Repository: USEPA/CMAQ Branch: main Commit: 9bd373417647 Files: 1556 Total size: 42.7 MB Directory structure: gitextract_tpkhsrgz/ ├── .github/ │ ├── ISSUE_TEMPLATE/ │ │ └── new-issue-.md │ └── PULL_REQUEST_TEMPLATE.md ├── .gitignore ├── CCTM/ │ ├── README.md │ ├── scripts/ │ │ ├── bldit_cctm.csh │ │ ├── bldit_mech.csh │ │ ├── isam_control.2018_12NE3.txt │ │ ├── lonlat.csv │ │ ├── run_cctm_2018_12US1_v55_Base_STAGE_EM_CRACMM.csh │ │ ├── run_cctm_Bench_2018_12NE3.WRFCMAQ.csh │ │ ├── run_cctm_Bench_2018_12NE3_CB6R5.csh │ │ ├── run_cctm_Bench_2018_12NE3_CRACMM2.csh │ │ └── run_cctm_Bench_2018_12NE3_cb6r5_m3dry_ddm.csh │ └── src/ │ ├── ICL/ │ │ └── fixed/ │ │ ├── const/ │ │ │ └── CONST.EXT │ │ ├── emctrl/ │ │ │ └── EMISPRM.EXT │ │ ├── filenames/ │ │ │ └── FILES_CTM.EXT │ │ └── mpi/ │ │ └── PE_COMM.EXT │ ├── MECHS/ │ │ ├── README.md │ │ ├── cb6r3_ae7_aq/ │ │ │ ├── AE_cb6r3_ae7_aq.nml │ │ │ ├── CMAQ_Control_DESID_cb6r3_ae7_aq.nml │ │ │ ├── CSQY_DATA_cb6r3_ae7_aq │ │ │ ├── GC_cb6r3_ae7_aq.nml │ │ │ ├── NR_cb6r3_ae7_aq.nml │ │ │ ├── RXNS_DATA_MODULE.F90 │ │ │ ├── RXNS_FUNC_MODULE.F90 │ │ │ ├── SpecDef_Conc_cb6r3_ae7_aq.txt │ │ │ ├── SpecDef_Dep_cb6r3_ae7_aq.txt │ │ │ ├── SpecDef_cb6r3_ae7_aq.txt │ │ │ ├── mech_cb6r3_ae7_aq.def │ │ │ └── pa_cb6r3_ae7_aq.ctl │ │ ├── cb6r5_ae7_aq/ │ │ │ ├── AE_cb6r5_ae7_aq.nml │ │ │ ├── CMAQ_Control_DESID_cb6r5_ae7_aq.nml │ │ │ ├── CSQY_DATA_cb6r5_ae7_aq │ │ │ ├── GC_cb6r5_ae7_aq.nml │ │ │ ├── NR_cb6r5_ae7_aq.nml │ │ │ ├── RXNS_DATA_MODULE.F90 │ │ │ ├── RXNS_FUNC_MODULE.F90 │ │ │ ├── SpecDef_Conc_cb6r5_ae7_aq.txt │ │ │ ├── SpecDef_Dep_cb6r5_ae7_aq.txt │ │ │ ├── SpecDef_cb6r5_ae7_aq.txt │ │ │ ├── mech_cb6r5_ae7_aq.def │ │ │ └── pa_cb6r5_ae7_aq.ctl │ │ ├── cb6r5_ae7_aqkmt2/ │ │ │ ├── AE_cb6r5_ae7_aq.nml │ │ │ └── GC_cb6r5_ae7_aq.nml │ │ ├── cb6r5hap_ae7_aq/ │ │ │ ├── AE_cb6r5hap_ae7_aq.nml │ │ │ ├── CMAQ_Control_DESID_cb6r5hap_ae7_aq.nml │ │ │ ├── NR_cb6r5hap_ae7_aq.nml │ │ │ ├── SpecDef_Conc_cb6r5hap_ae7_aq.txt │ │ │ ├── SpecDef_Dep_cb6r5hap_ae7_aq.txt │ │ │ └── SpecDef_cb6r5hap_ae7_aq.txt │ │ ├── cb6r5m_ae7_aq/ │ │ │ ├── AE_cb6r5m_ae7_aq.nml │ │ │ ├── CMAQ_Control_DESID_cb6r5m_ae7_aq.nml │ │ │ ├── CSQY_DATA_cb6r5m_ae7_aq │ │ │ ├── GC_cb6r5m_ae7_aq.nml │ │ │ ├── NR_cb6r5m_ae7_aq.nml │ │ │ ├── RXNS_DATA_MODULE.F90 │ │ │ ├── RXNS_FUNC_MODULE.F90 │ │ │ ├── SpecDef_Conc_cb6r5m_ae7_aq.txt │ │ │ ├── SpecDef_Dep_cb6r5m_ae7_aq.txt │ │ │ ├── SpecDef_cb6r5m_ae7_aq.txt │ │ │ ├── mech_cb6r5m_ae7_aq.def │ │ │ └── pa_cb6r5m_ae7_aq.ctl │ │ ├── cracmm1_aq/ │ │ │ ├── AE_cracmm1_aq.nml │ │ │ ├── CMAQ_Control_DESID_cracmm1_aq.nml │ │ │ ├── CSQY_DATA_cracmm1_aq │ │ │ ├── GC_cracmm1_aq.nml │ │ │ ├── NR_cracmm1_aq.nml │ │ │ ├── RXNS_DATA_MODULE.F90 │ │ │ ├── RXNS_FUNC_MODULE.F90 │ │ │ ├── SpecDef_Conc_cracmm1_aq.txt │ │ │ ├── SpecDef_Dep_cracmm1_aq.txt │ │ │ ├── SpecDef_cracmm1_aq.txt │ │ │ ├── cracmm1_aq_speciesdescription.csv │ │ │ ├── mech_cracmm1_aq.def │ │ │ └── pa_cracmm1_aq.ctl │ │ ├── cracmm1amore_aq/ │ │ │ ├── CSQY_DATA_cracmm1amore_aq │ │ │ ├── GC_cracmm1amore_aq.nml │ │ │ ├── RXNS_DATA_MODULE.F90 │ │ │ ├── RXNS_FUNC_MODULE.F90 │ │ │ ├── SpecDef_Conc_cracmm1amore_aq.txt │ │ │ ├── SpecDef_Dep_cracmm1amore_aq.txt │ │ │ ├── SpecDef_cracmm1amore_aq.txt │ │ │ └── mech_cracmm1amore_aq.def │ │ ├── cracmm2/ │ │ │ ├── AE_cracmm2.nml │ │ │ ├── CMAQ_Control_DESID_cracmm2.nml │ │ │ ├── CSQY_DATA_cracmm2 │ │ │ ├── GC_cracmm2.nml │ │ │ ├── NR_cracmm2.nml │ │ │ ├── RXNS_DATA_MODULE.F90 │ │ │ ├── RXNS_FUNC_MODULE.F90 │ │ │ ├── SpecDef_Conc_cracmm2.txt │ │ │ ├── SpecDef_Dep_cracmm2.txt │ │ │ ├── SpecDef_cracmm2.txt │ │ │ ├── cracmm2_speciesdescription.csv │ │ │ ├── mech_cracmm2.def │ │ │ └── pa_cracmm2.ctl │ │ ├── mechanism_information/ │ │ │ ├── cb6r3_ae7_aq/ │ │ │ │ ├── AE7_species_table.md │ │ │ │ ├── NR7_species_table.md │ │ │ │ ├── cb6r3_ae7_aq_species_table.md │ │ │ │ └── mech_cb6r3_ae7_aq.md │ │ │ ├── cb6r5_ae7_aq/ │ │ │ │ ├── AE7_species_table.md │ │ │ │ ├── NR7_species_table.md │ │ │ │ ├── cb6r5_ae7_aq_species_table.md │ │ │ │ └── mech_cb6r5_ae7_aq.md │ │ │ ├── cb6r5hap_ae7_aq/ │ │ │ │ ├── cb6r5hap_ae7_aq_species_table.md │ │ │ │ └── mech_cb6r5hap_ae7_aq.md │ │ │ ├── cb6r5m_ae7_aq/ │ │ │ │ ├── AE7_species_table.md │ │ │ │ ├── NR7_species_table.md │ │ │ │ ├── cb6r5m_ae7_aq_species_table.md │ │ │ │ └── mech_cb6r5m_ae7_aq.md │ │ │ ├── cracmm1_aq/ │ │ │ │ ├── cracmm1_aq_species_table.md │ │ │ │ └── mech_cracmm1_aq.md │ │ │ ├── cracmm1amore_aq/ │ │ │ │ ├── cracmm1amore_aq_species_table.md │ │ │ │ └── mech_cracmm1amore_aq.md │ │ │ ├── cracmm2/ │ │ │ │ ├── cracmm2_species_table.md │ │ │ │ └── mech_cracmm2.md │ │ │ ├── racm2_ae6_aq/ │ │ │ │ ├── AE6_species_table.md │ │ │ │ ├── NR_species_table.md │ │ │ │ ├── mech_racm2_ae6_aq.md │ │ │ │ ├── racm2_ae6_aq_species_table.md │ │ │ │ └── racm2_ae6_aq_species_table_aerosol.md │ │ │ ├── saprc07tc_ae6_aq/ │ │ │ │ ├── AE6_species_table.md │ │ │ │ ├── NR_species_table.md │ │ │ │ ├── mech_saprc07tc_ae6_aq.md │ │ │ │ ├── saprc07tc_ae6_aq_species_table.md │ │ │ │ └── saprc07tc_ae6_aq_species_table_aerosol.md │ │ │ └── saprc07tic_ae7i_aq/ │ │ │ ├── AE7I_species_table.md │ │ │ ├── NR7_species_table.md │ │ │ ├── mech_saprc07tic_ae7i_aq.md │ │ │ ├── saprc07tic_ae6i_aq_species_table_aerosol.md │ │ │ └── saprc07tic_ae7i_aq_species_table.md │ │ ├── racm2_ae6_aq/ │ │ │ ├── AE_racm2_ae6_aq.nml │ │ │ ├── CMAQ_Control_DESID_racm2_ae6_aq.nml │ │ │ ├── CSQY_DATA_racm2_ae6_aq │ │ │ ├── GC_racm2_ae6_aq.nml │ │ │ ├── NR_racm2_ae6_aq.nml │ │ │ ├── RXNS_DATA_MODULE.F90 │ │ │ ├── RXNS_FUNC_MODULE.F90 │ │ │ ├── SpecDef_Dep_racm2_ae6_aq.txt │ │ │ ├── SpecDef_racm2_ae6_aq.txt │ │ │ ├── mech_racm2_ae6_aq.def │ │ │ └── pa_racm2_ae6_aq.ctl │ │ ├── saprc07tc_ae6_aq/ │ │ │ ├── AE_saprc07tc_ae6_aq.nml │ │ │ ├── CMAQ_Control_DESID_saprc07tc_ae6_aq.nml │ │ │ ├── CSQY_DATA_saprc07tc_ae6_aq │ │ │ ├── GC_saprc07tc_ae6_aq.nml │ │ │ ├── NR_saprc07tc_ae6_aq.nml │ │ │ ├── RXNS_DATA_MODULE.F90 │ │ │ ├── RXNS_FUNC_MODULE.F90 │ │ │ ├── SpecDef_Dep_saprc07tc_ae6_aq.txt │ │ │ ├── SpecDef_saprc07tc_ae6_aq.txt │ │ │ ├── mech_saprc07tc_ae6_aq.def │ │ │ └── pa_saprc07tc_ae6_aq.ctl │ │ ├── saprc07tic_ae7i_aq/ │ │ │ ├── AE_saprc07tic_ae7i_aq.nml │ │ │ ├── CMAQ_Control_DESID_saprc07tic_ae7i_aq.nml │ │ │ ├── CSQY_DATA_saprc07tic_ae7i_aq │ │ │ ├── GC_saprc07tic_ae7i_aq.nml │ │ │ ├── NR_saprc07tic_ae7i_aq.nml │ │ │ ├── RXNS_DATA_MODULE.F90 │ │ │ ├── RXNS_FUNC_MODULE.F90 │ │ │ ├── SpecDef_Dep_saprc07tic_ae7i_aq.txt │ │ │ ├── SpecDef_saprc07tic_ae7i_aq.txt │ │ │ ├── mech_saprc07tic_ae7i_aq.def │ │ │ └── pa_saprc07tic_ae7i_aq.ctl │ │ ├── saprc07tic_ae7i_aqkmt2/ │ │ │ ├── AE_saprc07tic_ae7i_aq.nml │ │ │ └── GC_saprc07tic_ae7i_aq.nml │ │ ├── trac0/ │ │ │ └── Species_Table_TR_0.nml │ │ └── trac1/ │ │ └── Species_Table_TR_1.nml │ ├── PARIO/ │ │ ├── PIOGRID.EXT │ │ ├── PIOVARS.EXT │ │ ├── alloc_data_mod.f │ │ ├── get_write_map.f │ │ ├── parutilio.f │ │ ├── pio_init.f │ │ ├── piomaps_mod.f │ │ ├── pm3err.f │ │ ├── pm3exit.f │ │ ├── pm3warn.f │ │ ├── pshut3.F │ │ ├── ptrwrite3.f │ │ ├── pwrgrdd.f │ │ ├── pwrite3.f │ │ ├── subdmap.f │ │ └── wrsubdmap.f │ ├── STENEX/ │ │ ├── noop/ │ │ │ ├── noop_comm_module.f │ │ │ ├── noop_data_copy_module.f │ │ │ ├── noop_gather_module.f │ │ │ ├── noop_global_max_module.f │ │ │ ├── noop_global_min_module.f │ │ │ ├── noop_global_sum_module.f │ │ │ ├── noop_init_module.f │ │ │ ├── noop_modules.f │ │ │ ├── noop_slice_module.f │ │ │ ├── noop_term_module.f │ │ │ └── noop_util_module.f │ │ └── se/ │ │ ├── se_bndy_copy_info_ext.f │ │ ├── se_bndy_copy_module.f │ │ ├── se_comm_info_ext.f │ │ ├── se_comm_module.f │ │ ├── se_data_copy_module.f │ │ ├── se_data_recv_module.f │ │ ├── se_data_send_module.f │ │ ├── se_disp_info_ext.f │ │ ├── se_domain_info_ext.f │ │ ├── se_gather_module.f │ │ ├── se_global_bcast_module.f │ │ ├── se_global_gather_module.f │ │ ├── se_global_max_module.f │ │ ├── se_global_min_module.f │ │ ├── se_global_sum_module.f │ │ ├── se_init_module.F │ │ ├── se_internal_util_module.f │ │ ├── se_modules.f │ │ ├── se_pe_info_ext.f │ │ ├── se_reconfig_grid_info_ext.f │ │ ├── se_reconfig_grid_module.f │ │ ├── se_slice_module.f │ │ ├── se_subgrid_info_ext.f │ │ ├── se_term_module.f │ │ ├── se_twoway_comm_module.f │ │ └── se_util_module.f │ ├── aero/ │ │ └── aero6/ │ │ ├── AEROMET_DATA.F │ │ ├── AEROSOL_CHEMISTRY.F │ │ ├── AERO_BUDGET.F │ │ ├── AERO_DATA.F │ │ ├── AERO_EMIS.F │ │ ├── PRECURSOR_DATA.F │ │ ├── README.md │ │ ├── SOA_DEFN.F │ │ ├── aero_driver.F │ │ ├── aero_nml_modes.F │ │ ├── aero_subs.F │ │ ├── coags.f │ │ ├── getpar.f │ │ ├── isocom.f │ │ ├── isofwd.f │ │ ├── isorev.f │ │ └── isrpia.inc │ ├── biog/ │ │ ├── beis4/ │ │ │ ├── beis.F │ │ │ ├── checkmem.F │ │ │ ├── chkgrid.F │ │ │ ├── czangle.F │ │ │ ├── getparb.f │ │ │ ├── gspro_biogenics.txt │ │ │ ├── hrno.F │ │ │ ├── parsline.f │ │ │ ├── tmpbeis.F │ │ │ └── wrdaymsg.f │ │ └── megan3/ │ │ ├── BDSNP_MOD.F │ │ ├── MAP_CV2CB05.EXT │ │ ├── MAP_CV2CB6.EXT │ │ ├── MAP_CV2CB6_AE7.EXT │ │ ├── MAP_CV2CRACMM1.EXT │ │ ├── MAP_CV2CRACMM2.EXT │ │ ├── MAP_CV2RACM2.EXT │ │ ├── MAP_CV2SAPRC07.EXT │ │ ├── MAP_CV2SAPRC07T.EXT │ │ ├── MEGAN_DEFN.F │ │ ├── SPC_CB05.EXT │ │ ├── SPC_CB6.EXT │ │ ├── SPC_CB6_AE7.EXT │ │ ├── SPC_CRACMM1.EXT │ │ ├── SPC_CRACMM2.EXT │ │ ├── SPC_NOCONVER.EXT │ │ ├── SPC_RACM2.EXT │ │ ├── SPC_SAPRC07.EXT │ │ ├── SPC_SAPRC07T.EXT │ │ ├── megan_fx_mod.f90 │ │ ├── megan_gspro.F │ │ └── megan_hrno_mod.F │ ├── cio/ │ │ ├── centralized_io_module.F │ │ └── centralized_io_util_module.F │ ├── cloud/ │ │ ├── acm_ae6/ │ │ │ ├── AQ_DATA.F │ │ │ ├── acmcld.f │ │ │ ├── aq_map.F │ │ │ ├── aqchem.F │ │ │ ├── cldproc_acm.F │ │ │ ├── convcld_acm.F │ │ │ ├── getalpha.F │ │ │ ├── hlconst.F │ │ │ ├── indexn.f │ │ │ ├── opwdep.F │ │ │ ├── rescld.F │ │ │ └── scavwdep.F │ │ ├── acm_ae6_mp/ │ │ │ ├── AQ_DATA.F │ │ │ ├── aq_map.F │ │ │ ├── aqchem.F │ │ │ ├── cldproc_acm.F │ │ │ ├── convcld_acm.F │ │ │ ├── hg_aqchem_data.F │ │ │ └── rescld.F │ │ └── acm_ae7_kmt2/ │ │ ├── AQ_DATA.F │ │ ├── aqchem_Function.F90 │ │ ├── aqchem_Global.F90 │ │ ├── aqchem_Initialize.F90 │ │ ├── aqchem_Integrator.F90 │ │ ├── aqchem_Jacobian.F90 │ │ ├── aqchem_JacobianSP.F90 │ │ ├── aqchem_LinearAlgebra.F90 │ │ ├── aqchem_Model.F90 │ │ ├── aqchem_Parameters.F90 │ │ ├── aqchem_Precision.F90 │ │ ├── aqchem_Rates.F90 │ │ └── aqchem_kmt.F90 │ ├── couple/ │ │ ├── gencoor_local_cons/ │ │ │ └── couple.F │ │ └── gencoor_wrf_cons/ │ │ └── couplewrf.F │ ├── ddm3d/ │ │ ├── AERO_DDM3D.F │ │ ├── AQCHEM_DDM3D.EXT │ │ ├── DDM3D_CHEM.F │ │ ├── DDM3D_DEFN.F │ │ ├── MECHANISM_FUNCTIONS.F │ │ ├── S_PCGRID_DEFN.F │ │ ├── aero_sens_calc1.F │ │ ├── aero_sens_calc2.F │ │ ├── aero_sens_data.inc │ │ ├── aero_sens_driver.F │ │ ├── dact.inc │ │ ├── load_sengrid.F │ │ ├── opasens.F │ │ ├── s_lu.F │ │ ├── s_zfdbc.f │ │ ├── sinput.F │ │ ├── wr_asens.F │ │ └── wr_sengrid.F │ ├── depv/ │ │ ├── m3dry/ │ │ │ ├── ABFLUX_MOD.F │ │ │ ├── BIDI_MOD.F │ │ │ ├── DEPVVARS.F │ │ │ ├── DEPV_DEFN.F │ │ │ ├── HGSIM.F │ │ │ ├── LSM_MOD.F │ │ │ ├── cgrid_depv.F │ │ │ ├── depv_data_module.F │ │ │ ├── gas_depv_map.F │ │ │ ├── m3dry.F │ │ │ └── opdepv_diag.F │ │ └── stage/ │ │ ├── BIDI_MOD.F │ │ ├── CMAQ_Control_STAGE.nml │ │ ├── DEPV_DEFN.F │ │ ├── HGSIM.F │ │ ├── LSM_MOD.F │ │ ├── MOSAIC_MOD.F │ │ ├── NH3_BIDI_MOD.F │ │ ├── STAGE_DATA.F │ │ ├── STAGE_FUNCTIONS.F │ │ ├── STAGE_MOD.F │ │ ├── STAGE_OUTPUT.F │ │ └── depv_data_module.F │ ├── diag/ │ │ └── vertext_module.F │ ├── driver/ │ │ ├── AVG_CONC.F │ │ ├── ELMO_DATA.F │ │ ├── ELMO_PROC.F │ │ ├── STD_CONC.F │ │ ├── WVEL_DEFN.F │ │ ├── advstep.F │ │ ├── cmaq_main.F │ │ ├── driver.F │ │ ├── hveloc.F │ │ ├── sciproc.F │ │ ├── wr_aconc.F │ │ ├── wr_cgrid.F │ │ ├── wr_conc.F │ │ └── wr_init.F │ ├── emis/ │ │ └── emis/ │ │ ├── BEIS_DEFN.F │ │ ├── BIOG_EMIS.F │ │ ├── CMAQ_Control_DESID.nml │ │ ├── DUST_EMIS.F │ │ ├── LTNG_DEFN.F │ │ ├── LUS_DEFN.F │ │ ├── MGEMIS.F │ │ ├── PT3D_DEFN.F │ │ ├── PTBILIN.F │ │ ├── PTMET.F │ │ ├── SSEMIS.F │ │ ├── STK_EMIS.F │ │ ├── STK_PRMS.F │ │ ├── UDTYPES.F │ │ ├── biog_emis_param_module.F │ │ ├── desid_module.F │ │ ├── desid_param_module.F │ │ ├── desid_util.F │ │ ├── desid_vars.F │ │ ├── lus_data_module.F │ │ └── stack_group_data_module.F │ ├── gas/ │ │ ├── ebi_cb6r3_ae7_aq/ │ │ │ ├── hrdata_mod.F │ │ │ ├── hrdriver.F │ │ │ ├── hrg1.F │ │ │ ├── hrg2.F │ │ │ ├── hrg3.F │ │ │ ├── hrg4.F │ │ │ ├── hrinit.F │ │ │ ├── hrprodloss.F │ │ │ ├── hrrates.F │ │ │ └── hrsolver.F │ │ ├── ebi_cb6r5_ae7_aq/ │ │ │ ├── hrdata_mod.F │ │ │ ├── hrdriver.F │ │ │ ├── hrg1.F │ │ │ ├── hrg2.F │ │ │ ├── hrg3.F │ │ │ ├── hrg4.F │ │ │ ├── hrinit.F │ │ │ ├── hrprodloss.F │ │ │ ├── hrrates.F │ │ │ └── hrsolver.F │ │ ├── ebi_cb6r5m_ae7_aq/ │ │ │ ├── hrdata_mod.F │ │ │ ├── hrdriver.F │ │ │ ├── hrg1.F │ │ │ ├── hrg2.F │ │ │ ├── hrg3.F │ │ │ ├── hrg4.F │ │ │ ├── hrinit.F │ │ │ ├── hrprodloss.F │ │ │ ├── hrrates.F │ │ │ └── hrsolver.F │ │ ├── ebi_cracmm1_aq/ │ │ │ ├── hrdata_mod.F │ │ │ ├── hrdriver.F │ │ │ ├── hrg1.F │ │ │ ├── hrg2.F │ │ │ ├── hrg3.F │ │ │ ├── hrg4.F │ │ │ ├── hrinit.F │ │ │ ├── hrprodloss.F │ │ │ ├── hrrates.F │ │ │ └── hrsolver.F │ │ ├── ebi_cracmm1amore_aq/ │ │ │ ├── hrdata_mod.F │ │ │ ├── hrdriver.F │ │ │ ├── hrg1.F │ │ │ ├── hrg2.F │ │ │ ├── hrg3.F │ │ │ ├── hrg4.F │ │ │ ├── hrinit.F │ │ │ ├── hrprodloss.F │ │ │ ├── hrrates.F │ │ │ └── hrsolver.F │ │ ├── ebi_cracmm2/ │ │ │ ├── hrdata_mod.F │ │ │ ├── hrdriver.F │ │ │ ├── hrg1.F │ │ │ ├── hrg2.F │ │ │ ├── hrg3.F │ │ │ ├── hrg4.F │ │ │ ├── hrinit.F │ │ │ ├── hrprodloss.F │ │ │ ├── hrrates.F │ │ │ └── hrsolver.F │ │ ├── ebi_racm2_ae6_aq/ │ │ │ ├── hrdata_mod.F │ │ │ ├── hrdriver.F │ │ │ ├── hrg1.F │ │ │ ├── hrg2.F │ │ │ ├── hrg3.F │ │ │ ├── hrg4.F │ │ │ ├── hrinit.F │ │ │ ├── hrprodloss.F │ │ │ ├── hrrates.F │ │ │ └── hrsolver.F │ │ ├── ebi_saprc07tc_ae6_aq/ │ │ │ ├── hrdata_mod.F │ │ │ ├── hrdriver.F │ │ │ ├── hrg1.F │ │ │ ├── hrg2.F │ │ │ ├── hrg3.F │ │ │ ├── hrg4.F │ │ │ ├── hrinit.F │ │ │ ├── hrprodloss.F │ │ │ ├── hrrates.F │ │ │ └── hrsolver.F │ │ ├── ebi_saprc07tic_ae7i_aq/ │ │ │ ├── hrdata_mod.F │ │ │ ├── hrdriver.F │ │ │ ├── hrg1.F │ │ │ ├── hrg2.F │ │ │ ├── hrg3.F │ │ │ ├── hrg4.F │ │ │ ├── hrinit.F │ │ │ ├── hrprodloss.F │ │ │ ├── hrrates.F │ │ │ └── hrsolver.F │ │ ├── ros3/ │ │ │ ├── rbdata_mod.F │ │ │ ├── rbdecomp.F │ │ │ ├── rbdriver.F │ │ │ ├── rbfeval.F │ │ │ ├── rbinit.F │ │ │ ├── rbjacob.F │ │ │ ├── rbsolve.F │ │ │ ├── rbsolver.F │ │ │ └── rbsparse.F │ │ └── smvgear/ │ │ ├── GRVARS.F │ │ ├── grbacksub.F │ │ ├── grdecomp.F │ │ ├── grdriver.F │ │ ├── grinit.F │ │ ├── grpderiv.F │ │ ├── grsmvgear.F │ │ ├── grsprse.F │ │ └── grsubfun.F │ ├── grid/ │ │ └── cartesian/ │ │ ├── GRID_CONF.F │ │ ├── HGRD_DEFN.F │ │ ├── PAGRD_DEFN.F │ │ ├── PCGRID_DEFN.F │ │ └── VGRD_DEFN.F │ ├── hadv/ │ │ └── ppm/ │ │ ├── advbc_map.F │ │ ├── hadvppm.F │ │ ├── hcontvel.F │ │ ├── hppm.F │ │ ├── rdbcon.F │ │ ├── x_ppm.F │ │ ├── xy_budget.F │ │ ├── y_ppm.F │ │ └── zfdbc.f │ ├── hdiff/ │ │ └── multiscale/ │ │ ├── deform.F │ │ ├── hcdiff3d.F │ │ ├── hdiff.F │ │ └── rho_j.F │ ├── init/ │ │ ├── diffmsg.F │ │ ├── flcheck.F │ │ ├── grdcheck.F │ │ ├── initscen.F │ │ ├── load_cgrid.F │ │ ├── opaconc.F │ │ └── opconc.F │ ├── isam/ │ │ ├── PISAM_DEFN.F │ │ ├── SA_DEFN.F │ │ ├── SA_IRR_DEFN.F │ │ ├── SA_WRAP_AE.F │ │ ├── op_sa.F │ │ ├── sa_array_init.F │ │ ├── sa_dim.F │ │ ├── sa_matrix1.f │ │ ├── sa_opwddep.F │ │ ├── sa_tri.f │ │ ├── wr_avg_sa.F │ │ ├── wr_sa.F │ │ └── wr_sa_cgrid.F │ ├── par/ │ │ ├── mpi/ │ │ │ ├── distr_env.c │ │ │ └── mpcomm_init.F │ │ └── par_noop/ │ │ ├── par_init_noop.F │ │ └── par_term_noop.F │ ├── phot/ │ │ ├── inline/ │ │ │ ├── AERO_PHOTDATA.F │ │ │ ├── CLOUD_OPTICS.F │ │ │ ├── CSQY_DATA.F │ │ │ ├── PHOTOLYSIS_ALBEDO.F │ │ │ ├── PHOT_MET_DATA.F │ │ │ ├── PHOT_MOD.F │ │ │ ├── SEAS_STRAT_O3_MIN.F │ │ │ ├── complex_number_module.F90 │ │ │ ├── concld_prop_acm.F │ │ │ ├── o3totcol.f │ │ │ ├── opphot.F │ │ │ ├── phot.F │ │ │ └── wrf_fast_mie.F │ │ └── table/ │ │ ├── PHOT_MOD.F │ │ ├── opphot.F │ │ └── phot.F │ ├── plrise/ │ │ └── smoke/ │ │ ├── delta_zs.f │ │ ├── fire_plmris.F │ │ ├── openlayout.F │ │ ├── oppt3d_diag.F │ │ ├── plmris.F │ │ ├── plsprd.f │ │ ├── preplm.f │ │ └── write3_distr.F │ ├── procan/ │ │ └── pa/ │ │ ├── PA_DEFN.F │ │ ├── PA_GLOBAL.F │ │ ├── PA_IPRVARS.F │ │ ├── PA_IRR_CTL.F │ │ ├── PA_IRR_module.F │ │ ├── PA_PARSE.F │ │ ├── PA_VARS.F │ │ ├── budget_defn.F │ │ ├── pa_compmech.F │ │ ├── pa_datagen.F │ │ ├── pa_errcheck.F │ │ ├── pa_getcoef.F │ │ ├── pa_getcycle.F │ │ ├── pa_getdesc.F │ │ ├── pa_getfamily.F │ │ ├── pa_getiprout.F │ │ ├── pa_getirrout.F │ │ ├── pa_getrxns.F │ │ ├── pa_getrxnsum.F │ │ ├── pa_init.F │ │ ├── pa_mkhdr.F │ │ ├── pa_molcloss.F │ │ ├── pa_molcprod.F │ │ ├── pa_output.F │ │ ├── pa_read.F │ │ ├── pa_report.F │ │ ├── pa_setup_ipr.F │ │ ├── pa_setup_irr.F │ │ ├── pa_update.F │ │ └── pa_wrtpadefn.F │ ├── pv_o3/ │ │ └── pvo3.F │ ├── reactive_tracers/ │ │ ├── DEGRADE_PARAMETERS.F │ │ ├── DEGRADE_ROUTINES.F │ │ └── DEGRADE_SETUP_TOX.F │ ├── spcs/ │ │ ├── cgrid_spcs_icl/ │ │ │ └── CGRID_SPCS.F │ │ └── cgrid_spcs_nml/ │ │ ├── CGRID_SPCS.F │ │ └── CGRID_SPCS_TYPES.F │ ├── stm/ │ │ ├── STM_MODULE.F │ │ └── STM_VARS.F │ ├── twoway/ │ │ ├── twoway_aqprep.F90 │ │ ├── twoway_aqprep_util.F90 │ │ ├── twoway_cgrid_aerosol_spc_map_module.F90 │ │ ├── twoway_data_module.F90 │ │ ├── twoway_feedback.F90 │ │ ├── twoway_header_data_module.F90 │ │ ├── twoway_init_env_vars.F90 │ │ ├── twoway_met_param_module.F90 │ │ ├── twoway_rrtmg_aero_optics.F90 │ │ ├── twoway_sd_time_series.F90 │ │ └── twoway_util_module.F90 │ ├── util/ │ │ └── util/ │ │ ├── CMAQ_Control_Misc.nml │ │ ├── RUNTIME_VARS.F │ │ ├── UTILIO_DEFN.F │ │ ├── cksummer.F │ │ ├── findex.f │ │ ├── get_env_mod.F90 │ │ ├── log_header.F │ │ ├── lstepf.F │ │ ├── setup_logdev.F │ │ ├── subhdomain.F │ │ ├── subhfile.F │ │ └── util_family_module.F │ ├── vadv/ │ │ ├── local_cons/ │ │ │ ├── vppm.F │ │ │ └── zadvyppm.F │ │ └── wrf_cons/ │ │ └── zadvppmwrf.F │ └── vdiff/ │ ├── acm2_m3dry/ │ │ ├── ASX_DATA_MOD.F │ │ ├── SEDIMENTATION.F │ │ ├── VDIFF_DATA.F │ │ ├── VDIFF_DIAG.F │ │ ├── VDIFF_MAP.F │ │ ├── aero_depv.F │ │ ├── aero_sedv.F │ │ ├── conv_cgrid.F │ │ ├── eddyx.F │ │ ├── matrix1.F │ │ ├── opddep.F │ │ ├── tri.F │ │ ├── vdiffacmx.F │ │ └── vdiffproc.F │ └── acm2_stage/ │ ├── ASX_DATA_MOD.F │ ├── VDIFF_MAP.F │ ├── opddep.F │ ├── opddep_mos.F │ ├── vdiffacmx.F │ └── vdiffproc.F ├── DOCS/ │ ├── CMAQ-Bugfix-Branch.md │ ├── CMAQ_Data.md │ ├── Community_Support.md │ ├── Developers_Guide/ │ │ ├── CMAQ_Dev_Guide.md │ │ ├── Code_Management.md │ │ └── readme.pandoc │ ├── Getting_Started.md │ ├── Logos/ │ │ └── README.md │ ├── README.md │ ├── Release_FAQ/ │ │ ├── CMAQv5.4-Series-FAQ.md │ │ ├── CMAQv5.5-Series-FAQ.md │ │ └── README.md │ ├── Release_Notes/ │ │ ├── CMAQ-Release-Notes:-Chemistry.md │ │ ├── CMAQ-Release-Notes:-Chemistry:-Aerosol-Dynamics.md │ │ ├── CMAQ-Release-Notes:-Chemistry:-Aqueous-Chemistry-Scavenging-and-Wet-Deposition.md │ │ ├── CMAQ-Release-Notes:-Chemistry:-Carbon-Bond-6-Mechanism-(CB6)-with-Detailed-Marine-Halogen-Chemistry.md │ │ ├── CMAQ-Release-Notes:-Chemistry:-Carbon-Bond-6-Mechanism-(CB6)-with-Hazardous-Air-Pollutants.md │ │ ├── CMAQ-Release-Notes:-Chemistry:-Carbon-Bond-6-Mechanism-(CB6).md │ │ ├── CMAQ-Release-Notes:-Chemistry:-Community-Regional-Atmospheric-Chemistry-Multiphase-Mechanism-(CRACMM).md │ │ ├── CMAQ-Release-Notes:-Chemistry:-Gas-Phase-Chem-Solvers.md │ │ ├── CMAQ-Release-Notes:-Chemistry:-Photolysis.md │ │ ├── CMAQ-Release-Notes:-Chemistry:-Regional-Atmospheric-Chemistry-Mechanism-(RACM).md │ │ ├── CMAQ-Release-Notes:-Chemistry:-State-Air-Pollution-Research-Center-(SAPRC).md │ │ ├── CMAQ-Release-Notes:-Diagnostic-Options.md │ │ ├── CMAQ-Release-Notes:-Dry-Deposition-Air-Surface-Exchange.md │ │ ├── CMAQ-Release-Notes:-Dry-Deposition-Air-Surface-Exchange:-Generalized-Changes.md │ │ ├── CMAQ-Release-Notes:-Dry-Deposition-Air-Surface-Exchange:-M3DRY.md │ │ ├── CMAQ-Release-Notes:-Dry-Deposition-Air-Surface-Exchange:-Surface-Tiled-Aerosol-and-Gaseous-Exchange-(STAGE).md │ │ ├── CMAQ-Release-Notes:-Emissions-Updates.md │ │ ├── CMAQ-Release-Notes:-Emissions-Updates:-BEIS-Biogenic-Emissions.md │ │ ├── CMAQ-Release-Notes:-Emissions-Updates:-Detailed-Emissions-Scaling-Isolation-and-Diagnostics-Module-(DESID).md │ │ ├── CMAQ-Release-Notes:-Emissions-Updates:-Environmental-Policy-Integrated-Climate-(EPIC)-Model.md │ │ ├── CMAQ-Release-Notes:-Emissions-Updates:-Gridded-Emissions.md │ │ ├── CMAQ-Release-Notes:-Emissions-Updates:-Lightning-Emissions.md │ │ ├── CMAQ-Release-Notes:-Emissions-Updates:-Marine-Gas-Emissions.md │ │ ├── CMAQ-Release-Notes:-Emissions-Updates:-Model-of-Emissions-of-Gases-and-Aerosols-from-Nature-(MEGAN)-Biogenic-Emissions.md │ │ ├── CMAQ-Release-Notes:-Emissions-Updates:-Point-Source-Emissions.md │ │ ├── CMAQ-Release-Notes:-Emissions-Updates:-Sea-Spray-Aerosol-Emissions.md │ │ ├── CMAQ-Release-Notes:-Emissions-Updates:-Wind-Blown-Dust-Emissions.md │ │ ├── CMAQ-Release-Notes:-Instrumented-Models.md │ │ ├── CMAQ-Release-Notes:-Instrumented-Models:-CMAQ-DDM3D.md │ │ ├── CMAQ-Release-Notes:-Instrumented-Models:-CMAQ-ISAM.md │ │ ├── CMAQ-Release-Notes:-MPAS-CMAQ-Coupled-Model.md │ │ ├── CMAQ-Release-Notes:-PYTOOLS.md │ │ ├── CMAQ-Release-Notes:-Postprocessors.md │ │ ├── CMAQ-Release-Notes:-Preprocessors.md │ │ ├── CMAQ-Release-Notes:-Process-Analysis-&-Sulfur-Tracking-Model-(STM).md │ │ ├── CMAQ-Release-Notes:-Stratospheric‐Tropospheric-Exchange-(STE).md │ │ ├── CMAQ-Release-Notes:-Structural-Improvements.md │ │ ├── CMAQ-Release-Notes:-Transport-Processes.md │ │ ├── CMAQ-Release-Notes:-Utilities.md │ │ ├── CMAQ-Release-Notes:-WRF-CMAQ-Coupled-Model.md │ │ └── README.md │ └── Users_Guide/ │ ├── Appendix/ │ │ ├── CMAQ_UG_appendixA_model_options.md │ │ ├── CMAQ_UG_appendixB_emissions_control.md │ │ ├── CMAQ_UG_appendixC_spatial_data.md │ │ ├── CMAQ_UG_appendixD_parallel_implementation.md │ │ ├── CMAQ_UG_appendixE_configuring_WRF.md │ │ ├── CMAQ_UG_appendixF_elmo_output.md │ │ └── README.md │ ├── CMAQ_UG_ch01_overview.md │ ├── CMAQ_UG_ch02_program_structure.md │ ├── CMAQ_UG_ch03_preparing_compute_environment.md │ ├── CMAQ_UG_ch04_model_inputs.md │ ├── CMAQ_UG_ch05_running_a_simulation.md │ ├── CMAQ_UG_ch06_model_configuration_options.md │ ├── CMAQ_UG_ch07_model_outputs.md │ ├── CMAQ_UG_ch08_analysis_tools.md │ ├── CMAQ_UG_ch09_process_analysis.md │ ├── CMAQ_UG_ch10_HDDM-3D.md │ ├── CMAQ_UG_ch11_ISAM.md │ ├── CMAQ_UG_ch12_sulfur_tracking.md │ ├── CMAQ_UG_ch13_WRF-CMAQ.md │ ├── CMAQ_UG_ch14_MPAS-CMAQ.md │ ├── CMAQ_UG_tables_figures.md │ ├── README.md │ ├── Tutorials/ │ │ ├── CMAQ_UG_tutorial_CRACMM.md │ │ ├── CMAQ_UG_tutorial_DDM3D.md │ │ ├── CMAQ_UG_tutorial_HCMAQ_IC_BC.md │ │ ├── CMAQ_UG_tutorial_ISAM.md │ │ ├── CMAQ_UG_tutorial_MPAS-CMAQ_Benchmark_gcc.md │ │ ├── CMAQ_UG_tutorial_MPAS-CMAQ_Benchmark_intel.md │ │ ├── CMAQ_UG_tutorial_WRF-CMAQ_Benchmark.md │ │ ├── CMAQ_UG_tutorial_benchmark.md │ │ ├── CMAQ_UG_tutorial_benchmark_cracmm2_stage.md │ │ ├── CMAQ_UG_tutorial_build_library_gcc.md │ │ ├── CMAQ_UG_tutorial_build_library_gcc_support_nc4.md │ │ ├── CMAQ_UG_tutorial_build_library_intel.md │ │ ├── CMAQ_UG_tutorial_build_library_intel_support_nc4.md │ │ ├── CMAQ_UG_tutorial_chemicalmechanism.md │ │ ├── CMAQ_UG_tutorial_configure_linux_environment.md │ │ ├── CMAQ_UG_tutorial_debug.md │ │ ├── CMAQ_UG_tutorial_emissions.md │ │ ├── CMAQ_UG_tutorial_oceanfile.md │ │ ├── CMAQ_UG_tutorial_run_time.md │ │ ├── CMAQ_UG_tutorial_running_benchmarks.md │ │ ├── CMAQ_UG_tutorial_tracers.md │ │ ├── README.md │ │ └── scripts/ │ │ ├── cmaq_libraries/ │ │ │ ├── gcc9.1_install_cmaq55_cb6r5_m3dry_for_nc4_compression.csh │ │ │ ├── gcc9.1_install_ioapi_for_nc4_compression.csh │ │ │ ├── gcc9.1_install_netcdf_for_nc4_compression.csh │ │ │ ├── gcc_11.4_install_cmaq55_cb6r5_m3dry_classic.csh │ │ │ ├── gcc_11.4_install_cmaq55_cb6r5_m3dry_for_nc4_compression.csh │ │ │ ├── gcc_11.4_install_ioapi_classic.csh │ │ │ ├── gcc_11.4_install_ioapi_for_nc4_compression.csh │ │ │ ├── gcc_11.4_install_netcdf_classic.csh │ │ │ ├── gcc_11.4_install_netcdf_for_nc4_compression.csh │ │ │ ├── intel_18.2_install_cmaq55_cb6r5_m3dry_classic.csh │ │ │ ├── intel_18.2_install_cmaq55_cb6r5_m3dry_for_nc4_compression.csh │ │ │ ├── intel_18.2_install_ioapi_classic.csh │ │ │ ├── intel_18.2_install_ioapi_for_nc4_compression.csh │ │ │ ├── intel_18.2_install_netcdf_classic.csh │ │ │ ├── intel_18.2_install_netcdf_for_nc4_compression.csh │ │ │ ├── intel_20.2_install_cmaq55_cb6r5_m3dry_for_nc4_compression.csh │ │ │ ├── intel_20.2_install_ioapi_for_nc4_compression.csh │ │ │ ├── intel_20.2_install_netcdf_for_nc4_compression.csh │ │ │ ├── intel_2024_install_cmaq55_cb6r5_m3dry_for_nc4_compression.csh │ │ │ ├── intel_2024_install_ioapi_for_nc4_compression.csh │ │ │ └── intel_2024_install_netcdf_for_nc4_compression.csh │ │ └── mpas-cmaq_libraries/ │ │ ├── iolib_installation_gcc11.4.1.sh │ │ ├── iolib_installation_gcc9.1.sh │ │ ├── iolib_installation_intel_18.2.sh │ │ ├── iolib_installation_intel_20.2.sh │ │ └── iolib_installation_intel_2024.2.1.sh │ ├── filter/ │ │ └── comments.py │ ├── readme.pandoc │ └── templates/ │ ├── mytemplate.tex │ ├── mytemplate.tex.sv │ └── template.markdown ├── POST/ │ ├── README.md │ ├── calc_tmetric/ │ │ ├── README.md │ │ ├── scripts/ │ │ │ ├── bldit_calc_tmetric.csh │ │ │ └── run_calc_tmetric.csh │ │ └── src/ │ │ ├── calc_tmetric.F │ │ ├── ck_ctms.F │ │ ├── module_file.F │ │ ├── module_grid.F │ │ ├── module_spec.F │ │ ├── module_tstep.F │ │ └── parser.F │ ├── combine/ │ │ ├── README.md │ │ ├── scripts/ │ │ │ ├── bldit_combine.csh │ │ │ ├── run_combine.csh │ │ │ └── spec_def_files/ │ │ │ └── linkem │ │ └── src/ │ │ ├── combine.F │ │ ├── module_evaluator.F │ │ ├── module_file.F │ │ ├── module_specdef.F │ │ └── utils.F │ ├── hr2day/ │ │ ├── README.md │ │ ├── inputs/ │ │ │ ├── tz.csv │ │ │ └── tz_legacy.csv │ │ ├── scripts/ │ │ │ ├── bldit_hr2day.csh │ │ │ └── run_hr2day.csh │ │ └── src/ │ │ ├── ck_ctms.F │ │ ├── getTZ.F │ │ ├── hr2day.F │ │ ├── module_envvar.F │ │ ├── module_evaluator.F │ │ ├── module_file.F │ │ ├── module_grid.F │ │ ├── module_spec.F │ │ ├── module_tstep.F │ │ └── parser.F │ ├── sitecmp/ │ │ ├── README.md │ │ ├── scripts/ │ │ │ ├── README.md │ │ │ ├── bldit_sitecmp.csh │ │ │ ├── run_sitecmp_AQS_Daily.csh │ │ │ ├── run_sitecmp_AQS_Hourly.csh │ │ │ ├── run_sitecmp_CSN.csh │ │ │ ├── run_sitecmp_IMPROVE.csh │ │ │ ├── run_sitecmp_NADP.csh │ │ │ └── run_sitecmp_SEARCH_Hourly.csh │ │ └── src/ │ │ ├── ck_ctms.F │ │ ├── get_gridval.F │ │ ├── get_units.F │ │ ├── module_envvar.F │ │ ├── module_file.F │ │ ├── module_grid.F │ │ ├── module_sites.F │ │ ├── module_spec.F │ │ ├── module_tstep.F │ │ ├── parser.F │ │ ├── process.F │ │ └── sitecmp.F │ ├── sitecmp_dailyo3/ │ │ ├── README.md │ │ ├── scripts/ │ │ │ ├── bldit_sitecmp_dailyo3.csh │ │ │ ├── run_sitecmp_dailyo3_AQS.csh │ │ │ └── run_sitecmp_dailyo3_CASTNET.csh │ │ └── src/ │ │ ├── ck_ctms.F │ │ ├── get_units.F │ │ ├── module_envvar.F │ │ ├── module_file.F │ │ ├── module_grid.F │ │ ├── module_sites.F │ │ ├── module_spec.F │ │ ├── module_tstep.F │ │ ├── parser.F │ │ ├── process.F │ │ ├── sitecmp_dailyo3.F │ │ └── utilities.F │ └── writesite/ │ ├── README.md │ ├── inputs/ │ │ ├── sites.txt │ │ └── tz.csv │ ├── outputs/ │ │ └── O3.csv │ ├── scripts/ │ │ ├── bldit_writesite.csh │ │ └── run_writesite.csh │ └── src/ │ ├── getTZ.F │ ├── module_site.F │ ├── module_spec.F │ ├── parser.F │ └── writesite.F ├── PREP/ │ ├── README.md │ ├── bcon/ │ │ ├── README.md │ │ ├── map2mech/ │ │ │ ├── SpecDef_cracmm1_aq_derived_from_cb6r5m_ae7_aq.txt │ │ │ ├── SpecDef_cracmm2_derived_from_cb6r5m_ae7_aq.txt │ │ │ ├── SpecDef_racm2_ae6_aq_derived_from_cb6r3m_ae7_kmtbr.txt │ │ │ ├── SpecDef_racm_ae6_aq_derived_from_cb6r3m_ae7_kmtbr.txt │ │ │ ├── SpecDef_saprc07tc_ae6_aq_derived_from_cb6r3m_ae7_kmtbr.txt │ │ │ ├── SpecDef_saprc07tic_ae7i_aq_derived_from_cb6r3m_ae7_kmtbr.txt │ │ │ └── run_combine_mechanism_mapping.csh │ │ ├── scripts/ │ │ │ ├── bldit_bcon.csh │ │ │ └── run_bcon.csh │ │ └── src/ │ │ ├── common/ │ │ │ ├── BC_PARMS.F │ │ │ ├── HGRD_DEFN.F │ │ │ ├── VGRD_DEFN.F │ │ │ ├── bcon.F │ │ │ ├── findex.F │ │ │ ├── lat_lon.F │ │ │ ├── lr_interp.F │ │ │ └── opn_bc_file.F │ │ ├── m3conc/ │ │ │ ├── m3_bcout.F │ │ │ ├── m3_ck_bdy.F │ │ │ ├── m3_ck_ctms.F │ │ │ ├── m3_ck_met.F │ │ │ ├── m3_driver.F │ │ │ └── m3_vinterp.F │ │ ├── profile/ │ │ │ ├── avprofile_cb6r3m_ae7_kmtbr_hemi2016_v53beta2_m3dry_col051_row068.csv │ │ │ ├── avprofile_racm_ae6_aq_derived_from_cb6r3m_ae7_kmtbr_hemi2016_v53beta2_m3dry_col051_row068.csv │ │ │ ├── avprofile_saprc07tc_ae6_aq_derived_from_cb6r3m_ae7_kmtbr_hemi2016_v53beta2_m3dry_col051_row068.csv │ │ │ ├── avprofile_saprc07tic_ae7i_aq_derived_from_cb6r3m_ae7_kmtbr_hemi2016_v53beta2_m3dry_col051_row068.csv │ │ │ ├── legacy_PM_toxics_profile.csv │ │ │ ├── prof_bcout.F │ │ │ ├── prof_driver.F │ │ │ └── prof_vinterp.F │ │ └── tracer/ │ │ ├── trac_bc.F │ │ └── trac_driver.F │ ├── create_omi/ │ │ ├── README.md │ │ ├── scripts/ │ │ │ ├── bldit_create_omi.csh │ │ │ ├── get_toms_data.q │ │ │ └── run_create_omi.csh │ │ └── src/ │ │ ├── create_CMAQ_OMI.f │ │ ├── create_ioapi_OMI.f │ │ ├── create_omi.makefile │ │ ├── driver.f │ │ ├── get_env_vars.F │ │ ├── module_envvar.F │ │ └── module_utilities.f │ ├── icon/ │ │ ├── README.md │ │ ├── scripts/ │ │ │ ├── bldit_icon.csh │ │ │ └── run_icon.csh │ │ └── src/ │ │ ├── common/ │ │ │ ├── HGRD_DEFN.F │ │ │ ├── IC_PARMS.F │ │ │ ├── VGRD_DEFN.F │ │ │ ├── findex.F │ │ │ ├── icon.F │ │ │ ├── lat_lon.F │ │ │ ├── lr_interp.F │ │ │ └── opn_ic_file.F │ │ ├── m3conc/ │ │ │ ├── m3_ck_ctmmet.F │ │ │ ├── m3_ck_ctms.F │ │ │ ├── m3_ck_icmet.F │ │ │ ├── m3_driver.F │ │ │ ├── m3_icout.F │ │ │ └── m3_vinterp.F │ │ ├── profile/ │ │ │ ├── prof_driver.F │ │ │ ├── prof_icout.F │ │ │ └── prof_vinterp.F │ │ └── tracer/ │ │ ├── trac_driver.F │ │ └── trac_ic.F │ └── mcip/ │ ├── README.md │ ├── docs/ │ │ ├── CHANGES │ │ ├── FAQ │ │ └── ReleaseNotes │ ├── scripts/ │ │ └── run_mcip.csh │ └── src/ │ ├── Makefile │ ├── alloc_ctm.f90 │ ├── alloc_met.f90 │ ├── alloc_x.f90 │ ├── bcldprc_ak.f90 │ ├── blddesc.f90 │ ├── chkwpshdr.f90 │ ├── chkwrfhdr.f90 │ ├── close_files.f90 │ ├── comheader.f90 │ ├── comheader_lufrac.f90 │ ├── comheader_mos.f90 │ ├── comheader_soi.f90 │ ├── const_mod.f90 │ ├── const_pbl_mod.f90 │ ├── coord_mod.f90 │ ├── ctmout.f90 │ ├── ctmproc.f90 │ ├── ctmvars_mod.f90 │ ├── date_pack_mod.f90 │ ├── date_time_mod.f90 │ ├── dealloc_ctm.f90 │ ├── dealloc_met.f90 │ ├── dealloc_x.f90 │ ├── detangle_soil_px.f90 │ ├── dynflds.f90 │ ├── e_aerk.f90 │ ├── files_mod.f90 │ ├── getluse.f90 │ ├── getmet.f90 │ ├── getpblht.f90 │ ├── getpsih.f90 │ ├── getsdt.f90 │ ├── graceful_stop.f90 │ ├── gridout.f90 │ ├── gridproc.f90 │ ├── init_ctm.f90 │ ├── init_io.f90 │ ├── init_met.f90 │ ├── init_x.f90 │ ├── julian.f90 │ ├── layht.f90 │ ├── ll2xy_lam.f90 │ ├── ll2xy_lam_sec.f90 │ ├── ll2xy_lam_tan.f90 │ ├── ll2xy_merc.f90 │ ├── ll2xy_ps.f90 │ ├── locate.f90 │ ├── lucats_mod.f90 │ ├── mapfac_lam.f90 │ ├── mapfac_merc.f90 │ ├── mapfac_ps.f90 │ ├── mcip.f90 │ ├── mcipparm_mod.f90 │ ├── metgrid2ctm.f90 │ ├── metinfo_mod.f90 │ ├── metvars2ctm.f90 │ ├── metvars_mod.f90 │ ├── netcdf_io_mod.f90 │ ├── outclog.f90 │ ├── outcm3io.f90 │ ├── outglog.f90 │ ├── outgm3io.f90 │ ├── outncf.f90 │ ├── outncfbdy.f90 │ ├── outncfglobal.f90 │ ├── pblsup.f90 │ ├── ptemp.f90 │ ├── pvs.f90 │ ├── qsat.f90 │ ├── rdwrfem.f90 │ ├── readnml.f90 │ ├── resistcalc.f90 │ ├── setgriddefs.f90 │ ├── setup.f90 │ ├── setup_wrfem.f90 │ ├── sfclayer.f90 │ ├── statflds.f90 │ ├── vertarys.f90 │ ├── vertnhy_wrf.f90 │ ├── vgrd_mod.f90 │ ├── vstamp.f90 │ ├── vtemp.f90 │ ├── wind.f90 │ ├── wrfemopts.f90 │ ├── wrgdesc.f90 │ ├── xvars_mod.f90 │ ├── xy2ll_lam.f90 │ └── xy2ll_merc.f90 ├── PYTOOLS/ │ ├── README.md │ ├── dmschlo/ │ │ ├── .gitignore │ │ ├── CMAQ_DMS_ChlorA.ipynb │ │ ├── CMAQ_DMS_ChlorA_Plot.ipynb │ │ ├── README.md │ │ └── requirements.txt │ ├── install/ │ │ ├── README.md │ │ ├── environment.yml │ │ ├── requirements.txt │ │ └── show_versions.py │ └── shp2cmaq/ │ ├── README.md │ ├── requirements.txt │ ├── shapefile2cmaq.ipynb │ └── shp2cmaq.py ├── README.md ├── UTIL/ │ ├── README.md │ ├── bldmake/ │ │ ├── README.md │ │ ├── scripts/ │ │ │ └── bldit_bldmake.csh │ │ └── src/ │ │ ├── Makefile │ │ ├── bldmake.f │ │ ├── cfg_module.f │ │ ├── parser.f │ │ └── utils.f │ ├── chemmech/ │ │ ├── README.md │ │ ├── docs/ │ │ │ └── readme.txt │ │ ├── scripts/ │ │ │ ├── bldit_chemmech.csh │ │ │ └── run_chemmech.csh │ │ └── src/ │ │ ├── BASIC_WRITE_ROUTINES.f │ │ ├── GET_MECHDEF_DATA.f │ │ ├── MECHANISM_DATA.f │ │ ├── MECHANISM_DOCS.f │ │ ├── MECHANISM_PARMS.f │ │ ├── Makefile │ │ ├── SPECIES_ATOMS_DATA.f │ │ ├── TEXT_UTILITIES.f │ │ ├── cctm_species.f │ │ ├── chemmech.f │ │ ├── index1.f │ │ ├── junit.f │ │ ├── map_chemistry_spc.F90 │ │ ├── module_envvar.f │ │ ├── module_functions_evaluator.f │ │ ├── wrexts.f │ │ ├── wrexts_fortran90.f │ │ ├── wrextsb.f │ │ ├── wrspecial_ext.f │ │ ├── wrspecial_ext_fortran90.f │ │ ├── wrss_ext.f │ │ ├── wrss_ext_fortran90.f │ │ ├── wrt_kpp_inputs.f │ │ ├── wrt_rates.f │ │ ├── wrt_reactions_module.f │ │ └── wrt_reactions_module_CRI_fix.f │ ├── create_ebi/ │ │ ├── README.md │ │ ├── docs/ │ │ │ └── README.txt │ │ ├── scripts/ │ │ │ └── bldrun_create_ebi.csh │ │ ├── src/ │ │ │ ├── ATDSC3.EXT │ │ │ ├── CONST3.EXT │ │ │ ├── FDESC3.EXT │ │ │ ├── IODECL3.EXT │ │ │ ├── Makefile │ │ │ ├── NETCDF.EXT │ │ │ ├── NOTICE.EXT │ │ │ ├── PARMS3.EXT │ │ │ ├── STATE3.EXT │ │ │ ├── driver.F │ │ │ ├── err_check.F │ │ │ ├── fake_ioapi.f │ │ │ ├── junit.F │ │ │ ├── module_env_functions.F │ │ │ ├── module_envvar.F │ │ │ ├── module_envvar_new.F │ │ │ ├── module_envvar_test.F │ │ │ ├── module_glbldata.F │ │ │ ├── set_glbldata.F │ │ │ ├── util_subs.F │ │ │ ├── wr_calcks.F │ │ │ ├── wr_copyrt.F │ │ │ ├── wr_cvshdr.F │ │ │ ├── wr_data.F │ │ │ ├── wr_driver.F │ │ │ ├── wr_driver.F.original │ │ │ ├── wr_gp1.F │ │ │ ├── wr_gp2.F │ │ │ ├── wr_gp2.F_02-27-06 │ │ │ ├── wr_gp3.F │ │ │ ├── wr_gp3.F_1st_mod │ │ │ ├── wr_gp4.F │ │ │ ├── wr_gp4.F_1st_mod │ │ │ ├── wr_grp1.F_03-06-06 │ │ │ ├── wr_init.F │ │ │ ├── wr_prodloss.F │ │ │ ├── wr_rates.F │ │ │ ├── wr_rates.F_orig │ │ │ ├── wr_solver.F │ │ │ ├── wr_special.F │ │ │ └── wr_ssa.F │ │ └── template_RXNSU_OPT/ │ │ ├── copyright.txt │ │ ├── cvs_header.txt │ │ ├── hrdata_mod.F │ │ ├── hrdriver.F │ │ ├── hrg1.F │ │ ├── hrg2.F │ │ ├── hrg3.F │ │ ├── hrg4.F │ │ ├── hrinit.F │ │ ├── hrprodloss.F │ │ ├── hrrates.F │ │ └── hrsolver.F │ ├── inline_phot_preproc/ │ │ ├── README.md │ │ ├── docs/ │ │ │ └── README.txt │ │ ├── ice_clouds/ │ │ │ ├── fu96.asy │ │ │ ├── fu96.del │ │ │ ├── fu96.ext │ │ │ └── fu96.ssa │ │ ├── photolysis_CSQY_data/ │ │ │ ├── ACET-06 │ │ │ ├── ACETONE_RADM88 │ │ │ ├── ACETONE_SAPRC99 │ │ │ ├── ACET_06 │ │ │ ├── ACET_CO_CRI │ │ │ ├── ACET_IUPAC10 │ │ │ ├── ACET_R2_CRI │ │ │ ├── ACRO-09 │ │ │ ├── ACROLEIN │ │ │ ├── ACROLEIN_SAPRC99 │ │ │ ├── ACRO_09 │ │ │ ├── ACRO_10 │ │ │ ├── AFG1 │ │ │ ├── ALD2_R_IUPAC10 │ │ │ ├── ALD2_R_IUPAC13 │ │ │ ├── ALDX_R_IUPAC10 │ │ │ ├── ALDX_R_IUPAC13 │ │ │ ├── ALD_CBIV88 │ │ │ ├── ALD_JPL19 │ │ │ ├── ALD_RACM2 │ │ │ ├── ALD_RADM88 │ │ │ ├── BACL-07 │ │ │ ├── BACL_07 │ │ │ ├── BACL_ADJ_SAPRC99 │ │ │ ├── BALD-06 │ │ │ ├── BALD_06 │ │ │ ├── BALD_RACM2 │ │ │ ├── BIACET_MCMv32 │ │ │ ├── BR2 │ │ │ ├── BR2_IUPAC10 │ │ │ ├── BR2_IUPAC2014 │ │ │ ├── BRCL │ │ │ ├── BRCL_IUPAC10 │ │ │ ├── BRCL_IUPAC2014 │ │ │ ├── BRNO2 │ │ │ ├── BRNO2_IUPAC10 │ │ │ ├── BRNO2_IUPAC2014 │ │ │ ├── BRO │ │ │ ├── BRONO2_M │ │ │ ├── BRONO2_M_IUPAC10 │ │ │ ├── BRONO2_M_IUPAC2014 │ │ │ ├── BRONO2_R │ │ │ ├── BRONO2_R_IUPAC10 │ │ │ ├── BRONO2_R_IUPAC2014 │ │ │ ├── BRO_IUPAC10 │ │ │ ├── BRO_IUPAC14 │ │ │ ├── BRO_IUPAC2014 │ │ │ ├── BZCHO_SAPRC99 │ │ │ ├── C2CHO │ │ │ ├── C2CHO_R_MCMv32 │ │ │ ├── C2CHO_SAPRC99 │ │ │ ├── CCHO_R │ │ │ ├── CCHO_R1_MCMv32 │ │ │ ├── CCHO_R2_MCMv32 │ │ │ ├── CCHO_R_SAPRC99 │ │ │ ├── CH3CHO_RACM2 │ │ │ ├── CH3COCH3A_JPL19 │ │ │ ├── CH3COCH3B_JPL19 │ │ │ ├── CH3COCH3_RACM2 │ │ │ ├── CH3I_IUPAC10 │ │ │ ├── CH3ONO2_MCMv32 │ │ │ ├── CH3OOH_MCMv32 │ │ │ ├── CHBR2CL_BILDE1998 │ │ │ ├── CHBR3_IUPAC2014 │ │ │ ├── CHBRCL2_BILDE1998 │ │ │ ├── CL2 │ │ │ ├── CL2_IUPAC04 │ │ │ ├── CL2_IUPAC04_mod │ │ │ ├── CLACET │ │ │ ├── CLCCHO │ │ │ ├── CLNO-06 │ │ │ ├── CLNO2 │ │ │ ├── CLNO2_IUPAC13 │ │ │ ├── CLNO_06 │ │ │ ├── CLONO │ │ │ ├── CLONO2-1 │ │ │ ├── CLONO2-2 │ │ │ ├── CLONO2_1 │ │ │ ├── CLONO2_2 │ │ │ ├── COHBR_JPL2010 │ │ │ ├── COOH │ │ │ ├── COOH_SAPRC99 │ │ │ ├── ETHLN_RACM2 │ │ │ ├── ETHYNO3_MCMv32 │ │ │ ├── FMCL_IUPAC04 │ │ │ ├── FORM_M_IUPAC10 │ │ │ ├── FORM_M_IUPAC13 │ │ │ ├── FORM_R_IUPAC10 │ │ │ ├── FORM_R_IUPAC13 │ │ │ ├── GLY-07M │ │ │ ├── GLY-07R │ │ │ ├── GLYD_IUPAC10 │ │ │ ├── GLYF_RACM2 │ │ │ ├── GLYH2_RACM2 │ │ │ ├── GLYHX_RACM2 │ │ │ ├── GLYOX_M_CRI │ │ │ ├── GLYOX_R_CRI │ │ │ ├── GLY_07M │ │ │ ├── GLY_07R │ │ │ ├── GLY_1H_MCMv32 │ │ │ ├── GLY_2H_MCMv32 │ │ │ ├── GLY_2R_MCMv32 │ │ │ ├── GLY_ABS_SAPRC99 │ │ │ ├── GLY_FO_MCMv32 │ │ │ ├── GLY_H2_MCMv32 │ │ │ ├── GLY_R_IUPAC10 │ │ │ ├── GLY_R_IUPAC13 │ │ │ ├── GLY_R_SAPRC99 │ │ │ ├── GLYform_RADM88 │ │ │ ├── GLYmol_RADM88 │ │ │ ├── H2O2 │ │ │ ├── H2O2_IUPAC10 │ │ │ ├── H2O2_NASA94 │ │ │ ├── H2O2_RACM2 │ │ │ ├── H2O2_RADM88 │ │ │ ├── H2O2_SAPRC99 │ │ │ ├── HCHOM-06 │ │ │ ├── HCHOM_06 │ │ │ ├── HCHOR-06 │ │ │ ├── HCHOR_06 │ │ │ ├── HCHO_MOL_JPL19 │ │ │ ├── HCHO_MOL_RACM2 │ │ │ ├── HCHO_M_MCMv32 │ │ │ ├── HCHO_M_SAPRC99 │ │ │ ├── HCHO_RAD_JPL19 │ │ │ ├── HCHO_RAD_RACM2 │ │ │ ├── HCHO_R_MCMv32 │ │ │ ├── HCHO_R_SAPRC99 │ │ │ ├── HCHOmol_CBIV88 │ │ │ ├── HCHOmol_NASA94 │ │ │ ├── HCHOmol_RADM88 │ │ │ ├── HCHOrad_CBIV88 │ │ │ ├── HCHOrad_NASA94 │ │ │ ├── HCHOrad_RADM88 │ │ │ ├── HKET_RACM2 │ │ │ ├── HNO3 │ │ │ ├── HNO3_IUPAC04 │ │ │ ├── HNO3_IUPAC10 │ │ │ ├── HNO3_NASA94 │ │ │ ├── HNO3_RACM2 │ │ │ ├── HNO3_RADM88 │ │ │ ├── HNO3_SAPRC99 │ │ │ ├── HNO4-06 │ │ │ ├── HNO4_06 │ │ │ ├── HNO4_NASA94 │ │ │ ├── HNO4_RACM2 │ │ │ ├── HNO4_RADM88 │ │ │ ├── HO2NO2_IUPAC04 │ │ │ ├── HO2NO2_SAPRC99 │ │ │ ├── HOBR │ │ │ ├── HOBR_IUPAC10 │ │ │ ├── HOBR_IUPAC2014 │ │ │ ├── HOCCHO │ │ │ ├── HOCCHO_IUPAC │ │ │ ├── HOCCHO_JPL2011 │ │ │ ├── HOCCHO_RACM2 │ │ │ ├── HOCL-06 │ │ │ ├── HOCL_06 │ │ │ ├── HOCL_IUPAC04 │ │ │ ├── HOI_IUPAC10 │ │ │ ├── HONO-06 │ │ │ ├── HONO_06 │ │ │ ├── HONO_IUPAC04 │ │ │ ├── HONO_IUPAC10 │ │ │ ├── HONO_NASA94 │ │ │ ├── HONO_NO2_SAPRC99 │ │ │ ├── HONO_NO_SAPRC99 │ │ │ ├── HONO_RACM2 │ │ │ ├── HONO_RADM88 │ │ │ ├── HOP_RADM88 │ │ │ ├── HPALD │ │ │ ├── HPALD_MCMv32 │ │ │ ├── HPALD_RACM2 │ │ │ ├── HYDRO_ACET_CRI │ │ │ ├── HYDRPMETH_BUT_10 │ │ │ ├── I2_IUPAC10 │ │ │ ├── IBR_IUPAC10 │ │ │ ├── IC3ONO2 │ │ │ ├── IC3ONO2_SAPRC99 │ │ │ ├── ICL_IUPAC10 │ │ │ ├── IMONIT_RACM2 │ │ │ ├── INO2_06 │ │ │ ├── INO_06 │ │ │ ├── IONO2_06 │ │ │ ├── IO_IUPAC10 │ │ │ ├── IPROCHO_MCMv32 │ │ │ ├── IPRONO3_MCMv32 │ │ │ ├── ISOPNB_RACM2 │ │ │ ├── ISOPND_RACM2 │ │ │ ├── ISPD │ │ │ ├── KETONE_RADM88 │ │ │ ├── KETONE_SAPRC99 │ │ │ ├── KET_IUPAC10 │ │ │ ├── KET_JGR19 │ │ │ ├── KET_RACM2 │ │ │ ├── MACR-06 │ │ │ ├── MACRN_RACM2 │ │ │ ├── MACR_06 │ │ │ ├── MACR_A_MCMv32 │ │ │ ├── MACR_B_MCMv32 │ │ │ ├── MACR_MCMv32 │ │ │ ├── MACR_RACM2 │ │ │ ├── MB2C │ │ │ ├── MB2C_BLIDE98 │ │ │ ├── MB3 │ │ │ ├── MB3_IUPAC10 │ │ │ ├── MBC2 │ │ │ ├── MBC2_BLIDE98 │ │ │ ├── MEK-06 │ │ │ ├── MEK_06 │ │ │ ├── MEK_JGR19 │ │ │ ├── MEK_MCMv32 │ │ │ ├── MEK_RACM2 │ │ │ ├── MEPX_IUPAC10 │ │ │ ├── MGLY-06 │ │ │ ├── MGLY_06 │ │ │ ├── MGLY_ABS_SAPRC99 │ │ │ ├── MGLY_ADJ_SAPRC99 │ │ │ ├── MGLY_IUPAC04 │ │ │ ├── MGLY_IUPAC10 │ │ │ ├── MGLY_RACM2 │ │ │ ├── MGLY_RADM88 │ │ │ ├── MHP_NASA94 │ │ │ ├── MHP_RADM88 │ │ │ ├── MI2_IUPAC10 │ │ │ ├── MIB_IUPAC10 │ │ │ ├── MIC_IUPAC10 │ │ │ ├── MVK-06 │ │ │ ├── MVKN_RACM2 │ │ │ ├── MVK_06 │ │ │ ├── MVK_MCMv32 │ │ │ ├── MVK_RACM2 │ │ │ ├── N2O5_IUPAC04 │ │ │ ├── N2O5_IUPAC10 │ │ │ ├── N2O5_NO2_JPL11 │ │ │ ├── N2O5_O3P_JPL11 │ │ │ ├── NC3CHO_M_MCMv32 │ │ │ ├── NC3CHO_R_MCMv32 │ │ │ ├── NITROXY_ACET_2014 │ │ │ ├── NITROXY_ACET_93 │ │ │ ├── NITROXY_BUTA_2014 │ │ │ ├── NO2-06 │ │ │ ├── NO2EX │ │ │ ├── NO2_06 │ │ │ ├── NO2_CBIV88 │ │ │ ├── NO2_IUPAC10 │ │ │ ├── NO2_NASA94 │ │ │ ├── NO2_RACM2 │ │ │ ├── NO2_RADM88 │ │ │ ├── NO2_SAPRC99 │ │ │ ├── NO3NO-06 │ │ │ ├── NO3NO2-6 │ │ │ ├── NO3NO2_06 │ │ │ ├── NO3NO2_6 │ │ │ ├── NO3NO2_NASA94 │ │ │ ├── NO3NO2_RACM2 │ │ │ ├── NO3NO2_RADM88 │ │ │ ├── NO3NO2_SAPRC99 │ │ │ ├── NO3NO_06 │ │ │ ├── NO3NO_NASA94 │ │ │ ├── NO3NO_RACM2 │ │ │ ├── NO3NO_RADM88 │ │ │ ├── NO3NO_SAPRC99 │ │ │ ├── NOA │ │ │ ├── NOA_0_MCMv32 │ │ │ ├── NOA_B_MCMv32 │ │ │ ├── NOA_MCMv32 │ │ │ ├── NOA_T_MCMv32 │ │ │ ├── NPRONO3_MCMv32 │ │ │ ├── NTR_IUPAC04 │ │ │ ├── NTR_IUPAC10 │ │ │ ├── O2_JPL06-2 │ │ │ ├── O2_NASA94 │ │ │ ├── O2_RADM88 │ │ │ ├── O3O1D-06 │ │ │ ├── O3O1D_06 │ │ │ ├── O3O1D_CBIV88 │ │ │ ├── O3O1D_JPL06-2 │ │ │ ├── O3O1D_NASA06 │ │ │ ├── O3O1D_NASA94 │ │ │ ├── O3O1D_RADM88 │ │ │ ├── O3O1D_SAPRC99 │ │ │ ├── O3O3P-06 │ │ │ ├── O3O3P_06 │ │ │ ├── O3O3P_JPL06-2 │ │ │ ├── O3O3P_NASA06 │ │ │ ├── O3O3P_NASA94 │ │ │ ├── O3O3P_RADM88 │ │ │ ├── O3O3P_SAPRC99 │ │ │ ├── O3_O1D_IUPAC04 │ │ │ ├── O3_O1D_IUPAC10 │ │ │ ├── O3_O3P_IUPAC04 │ │ │ ├── O3_O3P_IUPAC10 │ │ │ ├── OIO_06 │ │ │ ├── ONIT_RACM2 │ │ │ ├── OP1_RACM2 │ │ │ ├── ORGNIT_RADM88 │ │ │ ├── PAA │ │ │ ├── PAA_RACM2 │ │ │ ├── PAA_RADM88 │ │ │ ├── PACD_CB05 │ │ │ ├── PAN │ │ │ ├── PAN1_RACM2 │ │ │ ├── PAN2_RACM2 │ │ │ ├── PAN_IUPAC04 │ │ │ ├── PAN_IUPAC10 │ │ │ ├── PNA_IUPAC10 │ │ │ ├── PROPANAL_IUPAC │ │ │ ├── PROPANAL_IUPAC_1st_try │ │ │ ├── PROPNN_RACM2 │ │ │ ├── PYRUACID_JPL2011 │ │ │ ├── PYRUACID_RACM2 │ │ │ ├── TBUTNO3_MCMv32 │ │ │ ├── UALD_RACM2 │ │ │ └── UDC_RADM88 │ │ ├── refractive_indices/ │ │ │ ├── IE_refractive_indices/ │ │ │ │ ├── Lambe_2013-naphthalene_SOA_refractive_indices.txt │ │ │ │ ├── Lui_2013_APIN_SOA_refractive_indices.txt │ │ │ │ ├── Lui_2013_Limonene_SOA_refractive_indices.txt │ │ │ │ ├── Lui_2013_catechol_SOA_refractive_indices.txt │ │ │ │ ├── Lui_2013_refractive_indices.txt │ │ │ │ ├── Lui_2015_refractive_indices.txt │ │ │ │ ├── Lui_2015_refractive_indices_mxylene_SOA_high_NOX.txt │ │ │ │ ├── Lui_2015_refractive_indices_mxylene_SOA_low_NOX.txt │ │ │ │ ├── Lui_2015_refractive_indices_toluene_SOA_high_NOX.txt │ │ │ │ ├── Lui_2015_refractive_indices_toluene_SOA_low_NOX.txt │ │ │ │ ├── nakayama_2018_isoprene_NOX_SOA_refractive_indices.txt │ │ │ │ └── nakayama_2018_isoprene_SOX_SOA_refractive_indices.txt │ │ │ ├── OPAC_water_clouds/ │ │ │ │ ├── inso00 │ │ │ │ ├── soot00 │ │ │ │ ├── soot00-two_way-Oct_21_2012 │ │ │ │ ├── ssam00 │ │ │ │ ├── sscm00 │ │ │ │ ├── waso00 │ │ │ │ ├── wc.asy │ │ │ │ ├── wc.ext │ │ │ │ └── wc.ssa │ │ │ └── adient_aerosol_refrac_indx/ │ │ │ ├── refract_ammoniumsulphate_lf.txt │ │ │ ├── refract_bc_high.txt │ │ │ ├── refract_bc_med.txt │ │ │ ├── refract_biomass_new.txt │ │ │ ├── refract_dust_kwcp_fou.txt │ │ │ ├── refract_nitrate.txt │ │ │ ├── refract_organicc_new.txt │ │ │ ├── refract_soa_dinar.txt │ │ │ ├── refract_soa_hadgem2.txt │ │ │ ├── refract_ssam_opac.txt │ │ │ └── refract_sulphuric.txt │ │ ├── scripts/ │ │ │ └── bldrun.inline_phot_preproc.csh │ │ └── src/ │ │ ├── ALBEDO_REFER_DATA.F │ │ ├── BIN_DATA.f │ │ ├── CHECK_CSQY_DATA.F │ │ ├── CSQY_DATA-p05cm-UCI.f │ │ ├── CSQY_DATA-solflx-lowtran.f │ │ ├── CSQY_PARAMETERS.F │ │ ├── CSQY_REFER_DATA.F │ │ ├── INLINE_CSQY.F │ │ ├── Make_processor │ │ ├── Makefile │ │ ├── aero_refract_index.F │ │ ├── convert_case.f │ │ ├── create_module.F │ │ ├── driver.f │ │ ├── effective_ave.F │ │ ├── init_lu.f90 │ │ ├── inline_phot_preproc.makefile │ │ ├── intavg.f │ │ ├── intavg_b.f │ │ ├── intavg_c.f │ │ ├── intavg_d.f │ │ ├── module_envvar.F │ │ ├── old-dumb.makefile │ │ ├── old.Makefile │ │ ├── optics_ice_cloud.f │ │ ├── optics_water_cloud.f │ │ ├── process_csqys.F │ │ ├── read_jproc_csqy.F │ │ ├── spectral_reflect.f │ │ ├── vegeland_s.f │ │ ├── vegeland_striecher-wth.f │ │ ├── vegeland_striecher.f │ │ ├── wrbf12d.f │ │ ├── wrbf12d_w_headerb.f │ │ ├── wrt_csqy_data.F │ │ ├── wrt_csqy_data_only.F │ │ ├── wrt_optics_data.F │ │ ├── wvbin_average-b.f │ │ ├── wvbin_average.f │ │ ├── xc_qy_td_effect-old.F │ │ ├── xc_qy_td_effect.F │ │ ├── xc_qy_td_effect_v2.F │ │ └── xc_qy_td_effect_v3.F │ ├── jproc/ │ │ ├── README.md │ │ ├── scripts/ │ │ │ ├── bldit_jproc.csh │ │ │ └── run_jproc.csh │ │ └── src/ │ │ └── common/ │ │ ├── JVALPARMS.EXT │ │ ├── calczen.F │ │ ├── chj.f │ │ ├── index2.f │ │ ├── intavg.f │ │ ├── interp.f │ │ ├── jproc.F │ │ ├── junit.f │ │ ├── module_envvar.F │ │ ├── o3scal.f │ │ ├── optics.f │ │ ├── pntavg.f │ │ ├── readcsqy.F │ │ ├── readet.f │ │ ├── reado2.f │ │ ├── reado3.f │ │ ├── readprof.f │ │ ├── readtoms.f │ │ ├── setaer.f │ │ ├── setair.f │ │ ├── setalb.f │ │ ├── setcld.f │ │ ├── srband.f │ │ ├── subgrid.F │ │ ├── tridiag.f │ │ └── twostr.f │ └── nml/ │ ├── README.md │ └── scripts/ │ ├── csv2nml.csh │ └── nml2csv.csh ├── config_cmaq.csh └── license.md ================================================ FILE CONTENTS ================================================ ================================================ FILE: .github/ISSUE_TEMPLATE/new-issue-.md ================================================ --- name: 'New Issue ' about: Create a report to help us improve title: '' labels: '' assignees: '' --- **Please Read** If you have questions or problems with your CMAQ simulation please visit the CMAS User Forum for support from EPA and CMAS scientists: **https://forum.cmascenter.org/t/please-read-before-posting/1321** If you have identified an error in CMAQ source code or documentation please fill out and submit the form below, or, alternatively, contact us directly at CMAQ_Team@epa.gov. Thank you for your contributions to the CMAQ Community! **Description** A clear and concise description of the issue. **Scope and Impact** A description of how other users might be impacted by this issue. **Solution** Is there a known solution for the issue? If so, how/when will it be shared with other users. **Additional context** Add any other context about the problem here. ================================================ FILE: .github/PULL_REQUEST_TEMPLATE.md ================================================ **Contact:** Developers name and affiliation **Type of code change:** For example, bug fix, enhancement, new feature, documentation. **Description of changes:** Clear and concise description of the problem, solution, and required changes. **Issue:** If this resolves a known issue, include the link to the GitHub Issue number. **Summary of Impact:** Please state whether this update changes the results of the core model predictions in terms of concentration, deposition, etc. Please state the approximate impact this update has on model runtime, if any. **Tests conducted:** Describe tests that were conducted including domain and time period (e.g. BLDCHECK; June 1-2 2016 SEBENCH; Jan 2017 12US1) and results of the tests. Include plots of relevant results. ================================================ FILE: .gitignore ================================================ # general files to ignore ### Fortran ### # Prerequisites *.d # Compiled Object files *.slo *.lo *.o *.obj # Precompiled Headers *.gch *.pch # Compiled Dynamic libraries *.so *.dylib *.dll # Fortran module files *.mod *.smod # Compiled Static libraries *.lai *.la *.a *.lib # Executables *.exe *.out *.app #archives *.tar *.gz #temporary files *.swp *~ #library symbolic links lib/ #file unique to repository CTM_LOG* BLD* *.log *_bak BLDMAKE* CHEMMECH* JPROC_* ICON_* BCON_* UTIL/chemmech/input UTIL/chemmech/output UTIL/create_ebi/output UTIL/create_ebi/input UTIL/inline_phot_preproc/output UTIL/inline_phot_preproc/input UTIL/inline_phot_preproc/bldrun.log #user specific scripts /scripts/ #unique to user; below section unlikely to add and commit to repository bldit_project.csh ================================================ FILE: CCTM/README.md ================================================ CMAQ Chemistry Transport Model (CCTM) ======== ## Overview CCTM is the Eulerian chemistry and transport component of CMAQ. It uses input data produced by the other CMAQ programs and from meteorological and emissions models. CCTM produces multiple output files for each simulation. The basic CCTM outputs include instantaneous and average hourly concentration files, wet and dry deposition files, and visibility estimates. Other CCTM outputs can include diagnostic aerosol and cloud files and processes analysis files. CCTM contains several science configurations for simulating transport, chemistry, and deposition. All of the science configuration options in CCTM, such as the chemical mechanism to be used, are set when compiling the executable. The model grid and vertical layer structure for CCTM are set at execution. The important distinction between selecting the science configuration and the model grid/layer configuration is that CCTM does not need to be recompiled when changing model grids/layers but does need to be recompiled when new science options are invoked. Optional output files are created when their associated processes are invoked in CCTM. For example, when CCTM is compiled with process analysis turned on, additional output files are created. CCTM includes options for the in-line processing of emissions and photolysis rates. In-line refers to the handling of processes that had previously been accomplished outside of CCTM, such as emissions processing with SMOKE, with algorithms internal to CCTM. The benefits of in-line emissions processing include the integration of higher time-resolution meteorology in the computation of biogenic emissions and plume rise from point sources and the avoidance of the large data storage burden required for emissions data. The benefit of in-line photolysis rate calculations is the inclusion of predicted gas and aerosol concentrations in the rate calculations. Both in-line emissions and photolysis are invoked through compile-time configuration options for CCTM. When CCTM is instrumented for in-line emissions calculations, a series of additional input files and environment variables are required at execution. The details of these additional inputs are provided below. In-line photolysis does not require any additional inputs as CCTM includes all of the photolysis rate data internal to the in-line instrumented version of the model. ## Directories * **scripts**: build and run scripts * **src**: model source code ## Documentation * CMAQ Science Options are discussed in [Chapter 6 of the User's Guide](../DOCS/Users_Guide/CMAQ_UG_ch06_model_configuration_options.md). * Description of CCTM environment variables are provided in comments in the CCTM build and run scripts and as well as [Appendix A of the User's Guide](../DOCS/Users_Guide/Appendix/CMAQ_UG_appendixA_model_options.md). ================================================ FILE: CCTM/scripts/bldit_cctm.csh ================================================ #!/bin/csh -f # ======================= CCTMv5.5.X Build Script ========================= # Usage: bldit_cctm.csh >&! bldit.cctm.log # Requirements: I/O API & netCDF libraries, a Fortran compiler, # and MPI for multiprocessor computing # # To report problems or request help with this script/program: # http://www.cmascenter.org # ========================================================================= #> Set Compiler Identity by User Input: Options -> intel | pgi | gcc if ( $#argv == 1 ) then setenv compiler $argv[1] setenv compilerVrsn Empty else if ( $#argv == 2 ) then #> Compiler Name and Version have been provided setenv compiler $1 setenv compilerVrsn $2 else echo "usage: $0 " echo " where is intel, pgi or gcc" exit(2) endif #> Source the config.cmaq file to set the build environment cd ../.. source ./config_cmaq.csh set echo # ======================================================================= #> Begin User Input Section # ======================================================================= #> Source Code Locations setenv CCTM_SRC ${CMAQ_REPO}/CCTM/src #> location of the CCTM source code set GlobInc = $CCTM_SRC/ICL #> location of the global include files set Mechs = $CCTM_SRC/MECHS #> location of the chemistry mechanism include files setenv REPOROOT $CCTM_SRC #> Controls for managing the source code and MPI compilation set CompileBLDMAKE #> Recompile the BLDMAKE utility from source #> comment out to use an existing BLDMAKE executable set CopySrc #> copy the source files into the build directory #set CopySrcTree #> copy the source files and directory tree into the build directory #set MakeFileOnly #> uncomment to build a Makefile, but do not compile; #> comment out to compile the model (default if not set) #set build_mech #> uncomment to build mechanism source code files using the #> chemmech utility. #> Below are chemmech options for revising the mechanism definitions file. The option needs information on the #> composition of each chemistry. See UTIL/chemmech/README.md for more information. #> Uncomment to use. #> Rewrite reactions by appending them with changes in tracked atoms or elements from reactants to products #setenv COMPUTE_DELTA_ATOMS F #> The species namelist contains the composition information as comments at the end of lines defining species. #> Note that if a defining line does not have an ending comment, the species is taken to have none of the tacked atoms. #> If NAMELISTS_LIST_ATOMS equals F, an additional ASCII file contains the information. #setenv NAMELISTS_LIST_ATOMS T #set clobber_mech #> when commented, the bldit_mech.csh script will halt if #> newly created mechanism files are attempting replace #> existing ones. When uncommented, the existing files #> will be overwritten. set ParOpt #> uncomment to build a multiple processor (MPI) executable; #> comment out for a single processor (serial) executable #set DistrEnv #> uncomment to distribute environmental variables to multiple machines #> comment out for a single processor (serial) executable (MPI only) #set build_parallel_io #> uncomment to build with parallel I/O (pnetcdf); #> comment out to use standard netCDF I/O #set Debug_CCTM #> uncomment to compile CCTM with debug option equal to TRUE #> comment out to use standard, optimized compile process set make_options = "-j" #> additional options for make command if MakeFileOnly is not set #> comment out if no additional options are wanted. #> Integrated Source Apportionment Method (ISAM) #set ISAM_CCTM #> uncomment to compile CCTM with ISAM activated #> comment out to use standard process #set DDM3D_CCTM #> uncomment to compile CCTM with DDM-3D activated #> comment out to use standard process #> Two-way WRF-CMAQ #set build_twoway #> uncomment to build WRF-CMAQ twoway; #> comment out for off-line chemistry #> Working directory and Version IDs if ( $?ISAM_CCTM ) then set VRSN = v55_ISAM #> model configuration ID for CMAQ_ISAM else if ( $?DDM3D_CCTM ) then set VRSN = v55_DDM3D #> model configuration ID for CMAQ_DDM else set VRSN = v55 #> model configuration ID for CMAQ endif set EXEC = CCTM_${VRSN}.exe #> executable name set CFG = CCTM_${VRSN}.cfg #> configuration file name if ( $?build_twoway ) then # WRF Version used for WRF-CMAQ Model (must be v4.4+) set WRF_VRSN = v4.4 endif #======================================================================== #> CCTM Science Modules #======================================================================== #> NOTE: For the modules with multiple options, a note is #> provided on where to look in the CCTM source code #> archive for a list of the possible settings. Users #> may also refer to the CMAQ documentation. set ModGrid = grid/cartesian #> grid configuration module set DepMod = m3dry #> m3dry or stage #set DepMod = stage set ModAdv = wrf_cons #> 3-D Advection Scheme [Options: wrf_cons (default), local_cons] set ModHdiff = hdiff/multiscale #> horizontal diffusion module set ModVdiff = vdiff/acm2_${DepMod} #> vertical diffusion module (see $CMAQ_MODEL/CCTM/src/vdiff) set ModDepv = depv/${DepMod} #> deposition velocity calculation module #> (see $CMAQ_MODEL/CCTM/src/depv) set ModEmis = emis/emis #> in-line emissions module set ModBiog = biog/beis4 #> BEIS4 in-line emissions module set ModMegBiog = biog/megan3 #> MEGAN3 in-line emissions module set ModPlmrs = plrise/smoke #> in-line emissions plume rise set ModCgrds = spcs/cgrid_spcs_nml #> chemistry species configuration module #> (see $CMAQ_MODEL/CCTM/src/spcs) set ModPhot = phot/inline #> photolysis calculation module #> (see $CMAQ_MODEL/CCTM/src/phot) setenv Mechanism cb6r5_ae7_aq #> chemical mechanism (see $CMAQ_MODEL/CCTM/src/MECHS) set ModMech = MECHS/${Mechanism} if ( ${Mechanism} =~ *ae7* ) then #> ae7 family of aero and cloud chem set ModAero = aero/aero7 # > aerosol chemistry module (see $CMAQ_MODEL/CCTM/src/aero) set ModCloud = cloud/acm_ae7 # > cloud chemistry module (see $CMAQ_MODEL/CCTM/src/cloud) else if ( ${Mechanism} =~ *ae6* ) then #> ae6 family of aero and cloud chem set ModAero = aero/aero6 # > aerosol chemistry module (see $CMAQ_MODEL/CCTM/src/aero) set ModCloud = cloud/acm_ae6 # > cloud chemistry module (see $CMAQ_MODEL/CCTM/src/cloud) else if ( ${Mechanism} =~ *cracmm* ) then #> CRACMM family of aero and cloud chem set ModAero = aero/cracmm # > aerosol chemistry module (see $CMAQ_MODEL/CCTM/src/aero) set ModCloud = cloud/acm_cracmm # > cloud chemistry module (see $CMAQ_MODEL/CCTM/src/cloud) endif # Special cloud modules for kmt versions if( ${Mechanism} == cb6r5_ae7_aqkmt2 ) then set ModCloud = cloud/acm_ae7_kmt2 else if( ${Mechanism} == saprc07tic_ae7i_aqkmt2 ) then set ModCloud = cloud/acm_ae7_kmt2 endif # Gas chem solver if ( ${Mechanism} == cb6r5m_ae7_aq ) then #> Gas-phase chemistry solver options ($CMAQ_MODEL/CCTM/src/gas) setenv ChemSolver ros3 #> ros3 (or smvgear) are system independent else setenv ChemSolver ebi #> [ default for most mechanisms: ebi ] endif if ( $ChemSolver == ebi ) then set ModGas = gas/${ChemSolver}_${Mechanism} else set ModGas = gas/${ChemSolver} endif set ModUtil = util/util #> CCTM utility modules set ModDiag = diag #> CCTM diagnostic modules set Tracer = trac0 #> tracer configuration directory under #> $CMAQ_MODEL/CCTM/src/MECHS [ default: no tracer species ] set ModPa = procan/pa #> CCTM process analysis set ModPvO3 = pv_o3 #> potential vorticity from the free troposphere set ModISAM = isam #> CCTM Integrated Source Apportionment Method set ModDDM3D = ddm3d #> Decoupled Direct Method in 3D set ModDegrade = reactive_tracers #> Linear Chemical Loss for a fixed set of species treated as reactive tracers #============================================================================================ #> Computing System Configuration: #> Most of these settings are done in config.cmaq #============================================================================================ setenv FC ${myFC} #> path of Fortan compiler; set in config.cmaq set FP = $FC #> path of Fortan preprocessor; set in config.cmaq set CC = ${myCC} #> path of C compiler; set in config.cmaq setenv BLDER ${CMAQ_HOME}/UTIL/bldmake/bldmake_${compilerString}.exe #> name of model builder executable #> Libraries/include files #set LIOAPI = "${IOAPI_DIR}/lib ${ioapi_lib}" #> I/O API library directory #set IOAPIMOD = "${IOAPI_DIR}/include" #> I/O API module directory set NETCDF = "${NETCDF_DIR}/lib ${netcdf_lib}" #> netCDF C library directory set NETCDFF = "${NETCDFF_DIR}/lib ${netcdff_lib}" #> netCDF Fortran library directory set PNETCDF = "${PNETCDF_DIR}/lib ${pnetcdf_lib}" #> Parallel netCDF library directory #set PIO_INC = "${IOAPI_DIR}/src" #> Compiler flags set in config.cmaq set FSTD = "${myFSTD}" set DBG = "${myDBG}" setenv F_FLAGS "${myFFLAGS}" #> F77 flags set F90_FLAGS = "${myFRFLAGS}" #> F90 flags set CPP_FLAGS = "" #> Fortran preprocessor flags set C_FLAGS = "${myCFLAGS} -DFLDMN -I" #> C flags set LINK_FLAGS = "${myLINK_FLAG}" # Link flags #============================================================================================ #> Implement User Input #============================================================================================ #> Check for CMAQ_REPO and CMAQ_LIB settings: if ( ! -e $CMAQ_REPO || ! -e $CMAQ_LIB ) then echo " $CMAQ_REPO or $CMAQ_LIB directory not found" exit 1 endif echo " Model repository base path: $CMAQ_REPO" echo " library path: $CMAQ_LIB" #> If $CMAQ_MODEL is not set, default to $CMAQ_REPO if ( $?CMAQ_MODEL ) then echo " Model repository path: $CMAQ_MODEL" else setenv CMAQ_MODEL $CMAQ_REPO echo " default Model repository path: $CMAQ_MODEL" endif #> This script was written for Linux hosts only. If #> the host system is not Linux, produce an error and stop set BLD_OS = `uname -s` if ($BLD_OS != 'Linux') then echo " $BLD_OS -> wrong bldit script for host!" exit 1 endif #> If the two-way, coupled WRF-CMAQ model is being built, #> then just generate the Makefile. Don't compile. if ( $?build_twoway ) then set MakeFileOnly set ModTwoway = twoway endif #> If parallel-io is selected, then make sure the multiprocessor #> option is also set. if ( $?build_parallel_io ) then if ( ! $?ParOpt ) then echo "*** ParOpt is not set: required for the build_parallel_io option" exit 1 endif set PIO = ( -Dparallel_io ) else set PIO = "" endif if ($DepMod == m3dry) then set cpp_depmod = '-Dm3dry_opt' else if ($DepMod == stage) then set cpp_depmod = '-Dstage_opt' if ( $?DDM3D_CCTM ) then echo "*** DDM3D is not compatible with the STAGE deposition model" exit 1 endif endif #> Set variables needed for multiprocessor and serial builds if ( $?ParOpt ) then #Multiprocessor system configuration echo " Parallel; set MPI flags" set ModStenex = STENEX/se set ModPario = PARIO set ModPar = par/mpi set PARIO = ${CMAQ_MODEL}/PARIO set STENEX = ${CMAQ_MODEL}/STENEX # MPI_INC is set in config.cmaq # set PIO_INC = "${IOAPI_DIR}/src/fixed_src" set PAR = ( -Dparallel ) set Popt = SE set seL = se_snl set LIB2 = "${ioapi_lib}" set LIB3 = "${mpi_lib} ${extra_lib}" set Str1 = (// Parallel / Include message passing definitions) set Str2 = (include SUBST_MPI mpif.h;) # Distribute Environment to different machines if not done automatically if ( $?DistrEnv ) then set PAR = ($PAR -Dcluster) endif else #Serial system configuration echo " Not Parallel; set Serial (no-op) flags" set ModStenex = STENEX/noop set ModPar = par/par_noop set PARIO = "." set STENEX = ${CMAQ_MODEL}/STENEX/noop set MPI_INC = "." # set PIO_INC = "." set PAR = "" set Popt = NOOP set seL = sef90_noop set LIB2 = "${ioapi_lib} ${extra_lib}" set Str1 = set Str2 = endif #> if DDM-3D is set, add the pre-processor flag for it. if ( $?DDM3D_CCTM ) then set SENS = ( -Dsens ) else set SENS = "" endif #> Build Mechanism Files and instruct build-make to look #> in the CHEMMECH output folder for the files if ( $?build_mech ) then # Note: modifying existing or creating new chemical mechanisms # can lead to unstable or highly inaccurate representations of # atmospheric chemical predictions when applying the EBI solvers. # EBI solvers are highly characterized and tested before # application. The CMAQ development team recommends using the # generalized solvers, Rosenbrock or Gear, with user-defined # mechanisms. # Because the bldit_cctm script is executing the bldit_mech # processor, we will assume that the source location for the new # mechanism files is in the CMAQ repo. There will also be an # error check for overwriting an existing mechanism that can be # disabled using the mech_clobber variable above. setenv MECH_SRC ${CMAQ_REPO}/CCTM/src/${ModMech} setenv TRAC_NML ${CMAQ_REPO}/CCTM/src/MECHS/trac0/Species_Table_TR_0.nml setenv MECH_OUT ${CMAQ_REPO}/CCTM/src/${ModMech} setenv EBI_SOLVER_OUT ${CMAQ_REPO}/CCTM/src/${ModGas} if ( $?clobber_mech ) then setenv CLOBBER_MECH TRUE else setenv CLOBBER_MECH FALSE endif cd ${CMAQ_HOME}/CCTM/scripts ./bldit_mech.csh ${compiler} ${compilerVrsn} if ( $? != 0 ) then echo "" echo "bldit_mech did not finish correctly --> Build Process Halted" exit 1 endif endif #> Tracer configuration files set ModTrac = MECHS/$Tracer #> Set and create the "BLD" directory for checking out and compiling #> source code. Move current directory to that build directory. if ( $?Debug_CCTM ) then set Bld = $CMAQ_HOME/CCTM/scripts/BLD_CCTM_${VRSN}_${compilerString}_${Mechanism}_${DepMod}_debug else set Bld = $CMAQ_HOME/CCTM/scripts/BLD_CCTM_${VRSN}_${compilerString}_${Mechanism}_${DepMod} endif if ( ! -e "$Bld" ) then mkdir $Bld else if ( ! -d "$Bld" ) then echo " *** target exists, but not a directory ***" exit 1 endif endif cd $Bld #> Set locations for the include files of various modules set ICL_PAR = $GlobInc/fixed/mpi set ICL_CONST = $GlobInc/fixed/const set ICL_FILES = $GlobInc/fixed/filenames set ICL_EMCTL = $GlobInc/fixed/emctrl #set ICL_PA = $GlobInc/procan/$PAOpt #Test with xlib commented out if ( $?ParOpt ) then set ICL_MPI = . #$xLib_Base/$xLib_3 endif #> If the source code is being copied to the build directory, #> then move the include files as well and direct the Makefile #> to the current directory. if ( $?CopySrc ) then /bin/cp -fp ${ICL_PAR}/* ${Bld} /bin/cp -fp ${ICL_CONST}/* ${Bld} /bin/cp -fp ${ICL_FILES}/* ${Bld} /bin/cp -fp ${ICL_EMCTL}/* ${Bld} #/bin/cp -fp ${ICL_PA}/* ${Bld} if ( $?ParOpt ) then /bin/cp -fp ${ICL_MPI}/mpif.h ${Bld} endif set ICL_PAR = . set ICL_CONST = . set ICL_FILES = . set ICL_EMCTL = . #set ICL_PA = . if ( $?ParOpt ) then set ICL_MPI = . endif endif set STX1 = ( -DSUBST_BARRIER=${Popt}_BARRIER\ -DSUBST_GLOBAL_MAX=${Popt}_GLOBAL_MAX\ -DSUBST_GLOBAL_MIN=${Popt}_GLOBAL_MIN\ -DSUBST_GLOBAL_MIN_DATA=${Popt}_GLOBAL_MIN_DATA\ -DSUBST_GLOBAL_TO_LOCAL_COORD=${Popt}_GLOBAL_TO_LOCAL_COORD\ -DSUBST_GLOBAL_SUM=${Popt}_GLOBAL_SUM\ -DSUBST_GLOBAL_LOGICAL=${Popt}_GLOBAL_LOGICAL\ -DSUBST_GLOBAL_GATHER=${Popt}_GLOBAL_GATHER\ -DSUBST_GLOBAL_BCAST=${Popt}_GLOBAL_BCAST\ -DSUBST_LOOP_INDEX=${Popt}_LOOP_INDEX\ -DSUBST_SUBGRID_INDEX=${Popt}_SUBGRID_INDEX ) set STX2 = ( -DSUBST_HI_LO_BND_PE=${Popt}_HI_LO_BND_PE\ -DSUBST_SUM_CHK=${Popt}_SUM_CHK\ -DSUBST_SE_INIT=${Popt}_INIT\ -DSUBST_INIT_ARRAY=${Popt}_INIT_ARRAY\ -DSUBST_COMM=${Popt}_COMM\ -DSUBST_MY_REGION=${Popt}_MY_REGION\ -DSUBST_SLICE=${Popt}_SLICE\ -DSUBST_GATHER=${Popt}_GATHER\ -DSUBST_DATA_COPY=${Popt}_DATA_COPY\ -DSUBST_IN_SYN=${Popt}_IN_SYN ) #> 3-D Advection Options if ( $ModAdv == wrf_cons ) then set ModCpl = couple/gencoor_wrf_cons #> unit conversion and concentration coupling module #> (see $CMAQ_MODEL/CCTM/src/couple) set ModHadv = hadv/ppm #> horizontal advection module set ModVadv = vadv/wrf_cons #> Vertical advection module else if ($ModAdv == local_cons) then set ModCpl = couple/gencoor_local_cons #> unit conversion and concentration coupling module #> (see $CMAQ_MODEL/CCTM/src/couple) set ModHadv = hadv/ppm #> horizontal advection module set ModVadv = vadv/local_cons #> Vertical advection module endif # Retrieve git repository sha ID for this source code version set shaID = `git --git-dir=${CMAQ_REPO}/.git rev-parse --short=10 HEAD` if ( $? != 0 ) then set shaID = "not_a_repo" endif # ============================================================================ #> Create Config File # ============================================================================ set Cfile = ${Bld}/${CFG}.bld # Config Filename set quote = '"' echo > $Cfile if ( $?make_options ) then echo "make_options $quote$make_options$quote;" >> $Cfile echo >> $Cfile endif echo "model $EXEC;" >> $Cfile echo >> $Cfile echo "repo $CCTM_SRC;" >> $Cfile echo >> $Cfile echo "sha_ID $shaID;" >> $Cfile echo >> $Cfile echo "mechanism $Mechanism;" >> $Cfile echo >> $Cfile echo "lib_base $CMAQ_LIB;" >> $Cfile echo >> $Cfile echo "lib_1 ioapi/lib;" >> $Cfile echo >> $Cfile echo "lib_2 ioapi/include_files;" >> $Cfile echo >> $Cfile if ( $?ParOpt ) then echo "lib_3 ${quote}mpi -I.$quote;" >> $Cfile echo >> $Cfile endif echo >> $Cfile echo "lib_4 ioapi/lib;" >> $Cfile echo >> $Cfile set text = "$quote$CPP_FLAGS $PAR $SENS $PIO $cpp_depmod $STX1 $STX2$quote;" echo "cpp_flags $text" >> $Cfile echo >> $Cfile echo "f_compiler $FC;" >> $Cfile echo >> $Cfile echo "fstd $quote$FSTD$quote;" >> $Cfile echo >> $Cfile echo "dbg $quote$DBG$quote;" >> $Cfile echo >> $Cfile echo "f_flags $quote$F_FLAGS$quote;" >> $Cfile echo >> $Cfile echo "f90_flags $quote$F90_FLAGS$quote;" >> $Cfile echo >> $Cfile echo "c_compiler $CC;" >> $Cfile echo >> $Cfile echo "c_flags $quote$C_FLAGS$quote;" >> $Cfile echo >> $Cfile echo "link_flags $quote$LINK_FLAGS$quote;" >> $Cfile echo >> $Cfile echo "ioapi $quote$LIB2$quote; " >> $Cfile echo >> $Cfile echo "netcdf $quote$netcdf_lib$quote;" >> $Cfile echo >> $Cfile echo "netcdff $quote$netcdff_lib$quote;" >> $Cfile echo >> $Cfile if ( $?ParOpt ) then echo "mpich $quote$LIB3$quote;" >> $Cfile echo >> $Cfile endif echo "include SUBST_PE_COMM $ICL_PAR/PE_COMM.EXT;" >> $Cfile echo "include SUBST_CONST $ICL_CONST/CONST.EXT;" >> $Cfile echo "include SUBST_FILES_ID $ICL_FILES/FILES_CTM.EXT;" >> $Cfile echo "include SUBST_EMISPRM $ICL_EMCTL/EMISPRM.EXT;" >> $Cfile echo >> $Cfile if ( $?ParOpt ) then echo "$Str1" >> $Cfile echo "include SUBST_MPI ./mpif.h;" >> $Cfile endif echo >> $Cfile set text = "stenex or se_noop" echo "// options are" $text >> $Cfile echo "Module ${ModStenex};" >> $Cfile if ( $?ParOpt ) then set text = "// parallel executable; stenex and pario included" echo $text >> $Cfile echo "Module ${ModPario};" >> $Cfile else set text = "serial executable; noop stenex" echo $text >> $Cfile endif echo >> $Cfile set text = "par, par_nodistr and par_noop" echo "// options are" $text >> $Cfile if ( $?ParOpt ) then echo "Module ${ModPar};" >> $Cfile endif echo >> $Cfile if ( $?build_twoway ) then echo "// option set for WRF-CMAQ twoway" >> $Cfile echo "Module ${ModTwoway};" >> $Cfile echo >> $Cfile endif set text = "driver" echo "// options are" $text >> $Cfile echo "Module driver;" >> $Cfile echo >> $Cfile set text = "cartesian" echo "// options are" $text >> $Cfile echo "Module ${ModGrid};" >> $Cfile echo >> $Cfile set text = "Init" echo "// options are" $text >> $Cfile echo "Module init;" >> $Cfile echo >> $Cfile set text = "gencoor_wrf_cons and gencoor_local_cons" echo "// options are" $text >> $Cfile echo "Module ${ModCpl};" >> $Cfile echo >> $Cfile set text = "ppm" echo "// options are" $text >> $Cfile echo "Module ${ModHadv};" >> $Cfile echo >> $Cfile set text = "wrf_cons and local_cons" echo "// options are" $text >> $Cfile echo "Module ${ModVadv};" >> $Cfile echo >> $Cfile set text = "multiscale" echo "// options are" $text >> $Cfile echo "Module ${ModHdiff};" >> $Cfile echo >> $Cfile set text = "acm2_m3dry or acm2_stage" echo "// options are" $text >> $Cfile echo "Module ${ModVdiff};" >> $Cfile echo >> $Cfile set text = "m3dry or stage" echo "// options are" $text >> $Cfile echo "Module ${ModDepv};" >> $Cfile echo >> $Cfile set text = "emis" echo "// options are" $text >> $Cfile echo "Module ${ModEmis};" >> $Cfile echo >> $Cfile set text = "beis4" echo "// options are" $text >> $Cfile echo "Module ${ModBiog};" >> $Cfile echo >> $Cfile set text = "megan3" echo "// options are" $text >> $Cfile echo "Module ${ModMegBiog};" >> $Cfile echo set text = "smoke" echo "// options are" $text >> $Cfile echo "Module ${ModPlmrs};" >> $Cfile echo >> $Cfile set text = "cgrid_spcs_nml and cgrid_spcs_icl" echo "// options are" $text >> $Cfile echo "Module ${ModCgrds};" >> $Cfile echo >> $Cfile set text = "inline and table" echo "// options are" $text >> $Cfile echo "Module ${ModPhot};" >> $Cfile echo >> $Cfile set text = "degrade" echo "// reactive_tracer options are" $text >> $Cfile echo "Module ${ModDegrade};" >> $Cfile echo >> $Cfile set text = "gas chemistry solvers" echo "// " $text >> $Cfile set text = "smvgear, ros3, and ebi; see 'gas chemistry mechanisms' for " echo "// options are" $text >> $Cfile echo "Module ${ModGas};" >> $Cfile echo >> $Cfile set MechList = "cb6r5hap_ae7_aq, cb6r3_ae7_aq, cb6r5_ae7_aq, cb6r5_ae7_aqkmt2, cb6r5m_ae7_aq, racm2_ae6_aq, saprc07tc_ae6_aq, saprc07tic_ae7i_aq, saprc07tic_ae7i_aqkmt2" set text = "gas chemistry mechanisms" echo "// " $text >> $Cfile set text = "$MechList" echo "// options are" $text >> $Cfile echo "Module ${ModMech};" >> $Cfile echo >> $Cfile set text = "tracer modules" echo "// " $text >> $Cfile echo "// options are trac0, trac1" >> $Cfile echo "Module ${ModTrac};" >> $Cfile echo set text = "use potential vorticity free-troposphere O3 scaling" echo "// options are" $text >> $Cfile echo "Module ${ModPvO3};" >> $Cfile echo >> $Cfile set text = "aero6" echo "// options are" $text >> $Cfile echo "Module ${ModAero};" >> $Cfile echo >> $Cfile set text = "acm_ae6, acm_ae6_kmt, acm_ae7_kmt2, acm_ae6_mp, acm_ae7" echo "// options are" $text >> $Cfile echo "Module ${ModCloud};" >> $Cfile echo >> $Cfile set text = "// compile for inline process analysis" echo $text >> $Cfile echo "Module ${ModPa};" >> $Cfile echo >> $Cfile set text = "// compile for integrated source apportionment method" echo $text >> $Cfile echo "Module ${ModISAM};" >> $Cfile echo >> $Cfile if ( $?DDM3D_CCTM ) then set text = "// compile for decoupled direct method in 3d" echo $text >> $Cfile echo "Module ${ModDDM3D};" >> $Cfile echo >> $Cfile endif set text = "util" echo "// options are" $text >> $Cfile echo "Module ${ModUtil};" >> $Cfile echo >> $Cfile set text = "diag" echo "// options are" $text >> $Cfile echo "Module ${ModDiag};" >> $Cfile echo >> $Cfile set text = "stm" echo "// options are" $text >> $Cfile echo "Module stm;" >> $Cfile echo >> $Cfile set text = "cio" echo "// options are" $text >> $Cfile echo "Module cio;" >> $Cfile echo >> $Cfile if ( $?ModMisc ) then echo "Module ${ModMisc};" >> $Cfile echo >> $Cfile endif # ============================================================================ #> Create Makefile and Model Executable # ============================================================================ unalias mv rm #> Recompile BLDMAKE from source if requested or if it does not exist if ( $?CompileBLDMAKE || ! -f $BLDER ) then cd ${CMAQ_REPO}/UTIL/bldmake/scripts ./bldit_bldmake.csh endif #> Relocate to the BLD_* directory cd $Bld #> Set multiprocessor/serial options for BLDMAKE execution if ( $?ParOpt ) then set Blder = "$BLDER -verbose" else set Blder = "$BLDER -serial -verbose" endif #> Run BLDMAKE Utility set bld_flags = "" if ( $?MakeFileOnly ) then # Do not compile the Model set bld_flags = "${bld_flags} -makefo" endif if ( $?CopySrc ) then set bld_flags = "${bld_flags}" else if ( $?CopySrcTree ) then set bld_flags = "${bld_flags} -co" else set bld_flags = "{bld_flags} -git_local" # Run BLDMAKE with source code in # version-controlled git repo # $Cfile = ${CFG}.bld endif if ( $?Debug_CCTM ) then set bld_flags = "${bld_flags} -debug_cctm" endif if ( $?ISAM_CCTM ) then set bld_flags = "${bld_flags} -isam_cctm" endif if ( $?build_twoway ) then set bld_flags = "${bld_flags} -twoway" endif #> Run BLDMAKE with source code in build directory $Blder $bld_flags $Cfile #> Rename Makefile to specify compiler option and link back to Makefile if ( ! $?build_twoway ) then mv Makefile Makefile.$compilerString if ( -e Makefile.$compilerString && -e Makefile ) rm Makefile ln -s Makefile.$compilerString Makefile endif #> Alert user of error in BLDMAKE if it ocurred if ( $status != 0 ) then echo " *** failure in $Blder ***" exit 1 endif #> Preserve old Config file, if it exists, before moving new one to #> build directory. if ( -e "$Bld/${CFG}" ) then echo " >>> previous ${CFG} exists, re-naming to ${CFG}.old <<<" mv $Bld/${CFG} $Bld/${CFG}.old endif mv ${CFG}.bld $Bld/${CFG} #> If a CRACMM mechanism is used and the compiler is gcc, remove trailing #> comments in species namelist files (or else model will not run) if ( ${Mechanism} =~ *cracmm* && ${compiler} == gcc ) then echo " >>> removing trailing comments from species namelists <<<" sed -i 's/,\!.*/,/' $Bld/GC_${Mechanism}.nml sed -i 's/,\!.*/,/' $Bld/AE_${Mechanism}.nml sed -i 's/,\!.*/,/' $Bld/NR_${Mechanism}.nml endif #> If Building WRF-CMAQ, download WRF, download auxillary files and build #> model if ( $?build_twoway ) then #> Check if the user has git installed on their system git --version >& /dev/null if ($? == 0) then set git_check endif if ($?git_check) then cd $CMAQ_HOME/CCTM/scripts # Downlad WRF repository from GitHub and put CMAQv5.5 into it set WRF_BLD = BLD_WRF${WRF_VRSN}_CCTM_${VRSN}_${compilerString} setenv wrf_path ${CMAQ_HOME}/CCTM/scripts/${WRF_BLD} setenv WRF_CMAQ 1 if ( ! -d $WRF_BLD ) then git clone --branch ${WRF_VRSN} https://github.com/wrf-model/WRF.git ./$WRF_BLD >& /dev/null cd $wrf_path mv $Bld ./cmaq # Configure WRF ./configure <&! bldit_mech.log # Requirements: I/O API & netCDF libraries, a Fortran compiler, # and MPI for multiprocessor computing # # To report problems or request help with this script/program: # http://www.cmascenter.org # ======================================================================= #> Set Compiler Identity by User Input: Options -> intel | pgi | gcc if ( $#argv == 1 ) then setenv compiler $argv[1] setenv compilerVrsn Empty else if ( $#argv == 2 ) then #> Compiler Name and Version have been provided setenv compiler $1 setenv compilerVrsn $2 else echo "usage: $0 " echo " where is intel, pgi or gcc" exit(2) endif #> Source the config.cmaq file to set the build environment cd ../.. source ./config_cmaq.csh # ======================================================================= #> Begin User Input Section # ======================================================================= #> Source Code Locations if ( ! $?Mechanism ) then # Manually set name of mechanism if not inherited setenv Mechanism cb6r5_ae7_aq endif setenv MECH $Mechanism if ( ! $?ChemSolver ) then # Manually set solver approach setenv ChemSolver ebi #> options: ros3, smvgear, ebi # Warning: If you are building a new mechanism or modifying an existing # one, the ebi solver approach could very possibly encounter convergence # or other issues that will lead to inaccuracies. The CMAQ development # team recommends using one of the generalized solvers (ros3 or smvgear). # If you would like to use ebi anyway, please benchmark your results for # important constituents like O3, NO, NO2, OH etc with the generalized # solvers and compare your results using ebi to these benchmarks. endif if ( ! $?MECH_SRC ) then # Manually set location of input mechanism files setenv MECH_SRC ${CMAQ_HOME}/CCTM/scripts/${Mechanism} endif if ( ! $?TRAC_NML ) then # Manually set location of input tracer files setenv TRAC_NML ${CMAQ_HOME}/CCTM/scripts/${Mechanism}/Species_Table_TR_0.nml endif if ( ! $?MECH_OUT ) then # Manually set location of output mechanism files setenv MECH_OUT ${CMAQ_HOME}/CCTM/scripts/${Mechanism} endif if ( ! $?EBI_SOLVER_OUT ) then # Manually set location of EBI solver output files. If # you are using Ros3 (rosenbrock) or Smvgear, then you # can ignore this option setenv EBI_SOLVER_OUT ${CMAQ_HOME}/CCTM/scripts/ebi_${Mechanism} endif if ( ! $?CLOBBER_MECH ) then # Manually set user preference for overwriting existing mechanism # files. If CLOBBER_MECH is FALSE, then if files exist, the # program will halt. set CLOBBER_MECH = FALSE endif ###################### CHEMMECH Processor ############################# #> Build Mechanism Files and instruct build-make to look #> in the CHEMMECH output folder for the files if ( ! -e ${MECH_SRC} ) then echo "bldit_mech.csh: $Mechanism input folder cannot be found. " echo " Please select a valid mechanism input location." exit 1 endif if ( ! -e ${TRAC_NML} ) then echo "bldit_mech.csh: ${TRAC_NML} file cannot be found. " echo " Please select a valid file." exit 1 endif mkdir -p ${MECH_OUT} # Create Output Folder if it Does not Already Exist cd ${CMAQ_HOME}/UTIL/chemmech/scripts ./bldit_chemmech.csh $compiler if ( $? != 0 ) then echo "CHEMMECH did not build correctly --> Build Process Halted" exit 1 endif # Copy files from MECH_SRC to the CHEMMECH input folder setenv CHEMMECH_INPUT ${CMAQ_HOME}/UTIL/chemmech/input/${MECH} mkdir -p $CHEMMECH_INPUT cp -f ${MECH_SRC}/* ${CHEMMECH_INPUT}/ cp -f ${TRAC_NML} ${CHEMMECH_INPUT}/ # Run CHEMMECH cd ${CMAQ_HOME}/UTIL/chemmech/scripts ./run_chemmech.csh if ( $? != 0 ) then echo "CHEMMECH did not run correctly --> Build Process Halted" exit 1 endif # Error out if the RXNS modules weren't created set CHEMMECH_OUTPUT = ${CMAQ_HOME}/UTIL/chemmech/output/${MECH} if ( ! -e ${CHEMMECH_OUTPUT}/RXNS_DATA_MODULE.F90 \ || ! -e ${CHEMMECH_OUTPUT}/RXNS_FUNC_MODULE.F90 ) then echo "Mechanism module not created for ${Mechanism}" exit 1 endif if ( ${CLOBBER_MECH} == 'FALSE' ) then # Error out if RXNS modules already exist in destination directory if ( -e ${MECH_OUT}/RXNS_DATA_MODULE.F90 \ || -e ${MECH_OUT}/RXNS_FUNC_MODULE.F90 ) then echo "" echo "Mechanism files already exist in the destination directory." echo "If you would like to overwrite them, uncomment clobber_mech" echo "if you are using the bldit_cctm script or set CLOBBER_MECH " echo "to TRUE if you are using bldit_mech stand-alone." echo "" exit 1 endif endif #> Copy Files Back to Mechanism location cp -f ${CHEMMECH_OUTPUT}/RXNS*MODULE.F90 ${MECH_OUT}/. cp -f ${CHEMMECH_OUTPUT}/[A,E,G,N]*.nml ${MECH_OUT}/. if ( $?COMPUTE_DELTA_ATOMS ) then if( ${COMPUTE_DELTA_ATOMS} == "T" )then cp -f ${CHEMMECH_OUTPUT}/mech*.def ${MECH_OUT}/. endif endif #################### CSQY Photolysis Processor ########################## #> Copy Inputs to Inline Phot Preprocessor set CSQY_INPUT = ${CMAQ_HOME}/UTIL/inline_phot_preproc/input/${MECH} mkdir -p ${CSQY_INPUT} cp -f ${MECH_OUT}/RXNS_DATA_MODULE.F90 ${CSQY_INPUT}/. #> Build CSQY Data Table for Inline Photolysis cd ${CMAQ_HOME}/UTIL/inline_phot_preproc/scripts ./bldrun.inline_phot_preproc.csh $compiler if ( $? != 0 ) then echo "Preparation of CSQY Table did not build or run correctly --> Build Process Halted" exit 1 endif # Error out if the CSQY Data files weren't created set CSQY_OUTPUT = ${CMAQ_HOME}/UTIL/inline_phot_preproc/output/${MECH} if ( ! -e ${CSQY_OUTPUT}/CSQY_DATA_${MECH} ) then echo "CSQY_${MECH} not created" exit 1 endif if ( ${CLOBBER_MECH} == 'FALSE' ) then # Error out if RXNS modules already exist in destination directory if ( -e ${MECH_OUT}/CSQY_DATA_${MECH} ) then echo "" echo "CSQY Data file already exists in the destination directory." echo "If you would like to overwrite it, uncomment clobber_mech" echo "if you are using the bldit_cctm script or set CLOBBER_MECH " echo "to TRUE if you are using bldit_mech stand-alone." echo "" exit 1 endif endif #> Copy Files Back to Mechanism Location cp -f ${CSQY_OUTPUT}/CSQY_DATA_${MECH} ${MECH_OUT}/. #################### EBI Solver Processor ########################## #> if EBI (Euler Backward-Iterative) Chemical Solver is set, build #> mechanism-dependent EBI files and instruct build-make to look in #> the create-ebi output folder for the files. if ( ${ChemSolver} == ebi ) then #> Copy Inputs to EBI Input Folder set EBI_INPUT = ${CMAQ_HOME}/UTIL/create_ebi/input/${MECH} mkdir -p ${EBI_INPUT} cp -f ${MECH_OUT}/RXNS_DATA_MODULE.F90 ${EBI_INPUT}/. # Build and Run Create_EBI cd ${CMAQ_HOME}/UTIL/create_ebi/scripts ./bldrun_create_ebi.csh $compiler if ( $? != 0 ) then echo "CREATE_EBI did not build or run correctly --> Build Process Halted" exit 1 endif # Error Out if the EBI output files weren't created set EBI_OUTPUT = ${CMAQ_HOME}/UTIL/create_ebi/output/ebi_${MECH} if ( ! -e ${EBI_OUTPUT}/hrrates.F ) then echo "EBI solver not created for ${Mechanism}" exit 1 endif mkdir -p ${EBI_SOLVER_OUT} # Create EBI Solver output folder if ( ${CLOBBER_MECH} == 'FALSE' ) then # Error out if RXNS modules already exist in destination directory if ( -e ${EBI_SOLVER_OUT}/hrrates.F ) then echo "" echo "EBI solver files already exist in the destination directory." echo "If you would like to overwrite it, uncomment clobber_mech" echo "if you are using the bldit_cctm script or set CLOBBER_MECH " echo "to TRUE if you are using bldit_mech stand-alone." echo "" exit 1 endif endif # Copy EBI files to EBI_SOLVER_OUT directory cp -f ${EBI_OUTPUT}/hr*.F ${EBI_SOLVER_OUT}/. endif exit ================================================ FILE: CCTM/scripts/isam_control.2018_12NE3.txt ================================================ !!! CMAQ-ISAM tag definition control file !!! (lines begining with !!! - three exclamation marks - are ignored by the text parser)!!! !!! !!! Example file provided with CMAQ v5.5 release !!! 14 September 2022: Sergey L. Napelenok !!! !!! The "TAG CLASSES" line defines the tag classes to track for the simulation. Species in NITRATE and VOC classes depend on the !!! the chemical mechanism used. The below definitions apply for the cb6r3_ae7_aq mechanism. These species will be tracked for !!! each user-defined source. !!! Choose any/all from the list: !!! SULFATE - ASO4, SO2, SULF, SULRXN !!! NITRATE - ANO3, HNO3, NO, NO2, NO3, HONO, N2O5, PNA, PAN, PANX, NTR1, NTR2, INTR, CLNO2, CLNO3 !!! AMMONIUM - ANH4, NH3 !!! EC - AEC !!! OA_TOT - Total Primary and Seocndary Organic Aerosol Species !!! NVPOA - Primary Organic Aerosol Species APOC, APNCOM !!! VOC - Various species depending on mechanism. Now includes CO. (see CCTM/src/isam/SA_DEFN.F for complete list) !!! PM_TOT - All PM Species. ACL,ANA,AMG,AK,ACA,AFE,AAL,ASI,ATI,AMN,AOTHR !!! and TAGCLASSES SULFATE, NITRATE, AMMONIUM, EC, OC, and VOC !!! PM_IONS - ANA, AMG, AK, ACA, AFE, AAL, ASI, ATI, AMN, AOTHR !!! OZONE - O3, all NITRATE species, and all VOC species !!! CHLORINE - ACL, HCL !!! HAP_GAS - Gas-phase Hazardous Air Pollutant Species !!! HAP_AERO - Aerosol-Phase Hazardous Air Pollutant Species !!! HAP_TOT - Total Gas and Aerosol HAPs !!! PAH_TEQ - Nonreactive TEQ PAH species !!! BENAPYRENE- BENAPY and ABENAPY !!! MERCURY - HG, HGIIGAS, HGIIAER, APHG !!! ALL - All available modeled species TAG CLASSES |SULFATE, OZONE !!! The following are source definition text blocks in the format. Provide a 3-line block for each source you want to track. !!! Do not assign the same source of mass in more than 1 source definition block. !!! TAG NAME |Three character text string (unique to each source definition) !!! REGION(S) |Keyword EVERYWHERE or variable names from the region file (multiple regions need to be comma delimited) !!! FILENAME(S) |Emissions labels (multiple labels need to be comma delimited) TAG NAME |EGU REGION(S) |EVERYWHERE EMIS STREAM(S) |PT_EGU TAG NAME |BIO REGION(S) |NY EMIS STREAM(S) |BIOG ENDLIST eof ================================================ FILE: CCTM/scripts/lonlat.csv ================================================ 4 # number of lon/lat pairs that follow -84.5684 32.8372 -83.1034 33.7499 -81.603 34.6438 -80.0667 35.5179 ================================================ FILE: CCTM/scripts/run_cctm_2018_12US1_v55_Base_STAGE_EM_CRACMM.csh ================================================ #!/bin/csh -f # ============== CCTMv5.5.X STAGE EM CRACMM 12US1 Run Script ================ # Usage: run_cctm_2018_12US1_v54_Base_STAGE_EM_CRACMM.csh >&! cctm_2018_12US1_CRACMM.log & # # To report problems or request help with this script/program: # http://www.epa.gov/cmaq (EPA CMAQ Website) # http://www.cmascenter.org (CMAS Website) # =========================================================================== # =================================================================== #> Runtime Environment Options # =================================================================== echo 'Start Model Run At ' `date` #> Toggle Diagnostic Mode which will print verbose information to #> standard output setenv CTM_DIAG_LVL 0 #> Choose compiler and set up CMAQ environment with correct #> libraries using config.cmaq. Options: intel | gcc | pgi if ( ! $?compiler ) then setenv compiler intel endif if ( ! $?compilerVrsn ) then setenv compilerVrsn Empty endif #> Source the config.cmaq file to set the build environment cd ../.. source ./config_cmaq.csh $compiler $compilerVrsn cd CCTM/scripts #> Set General Parameters for Configuring the Simulation set VRSN = v55 #> Code Version set PROC = mpi #> serial or mpi set MECH = cracmm2 #> Mechanism ID set EMIS = WR705_2018gc2 #> Emission Inventory Details set APPL = STAGE_EM_2018_12US1 #> Application Name (e.g. Gridname) #> Define RUNID as any combination of parameters above or others. By default, #> this information will be collected into this one string, $RUNID, for easy #> referencing in output binaries and log files as well as in other scripts. setenv RUNID ${VRSN}_${compilerString}_${APPL} #> Set the build directory (this is where the CMAQ executable #> is located by default). set BLD = ${CMAQ_HOME}/CCTM/scripts/BLD_CCTM_${VRSN}_${compilerString} set EXEC = CCTM_${VRSN}.exe #> Output Each line of Runscript to Log File if ( $CTM_DIAG_LVL != 0 ) set echo #> Set Working, Input, and Output Directories setenv WORKDIR ${CMAQ_HOME}/CCTM/scripts #> Working Directory. Where the runscript is. setenv OUTDIR ${CMAQ_DATA}/output_CCTM_${RUNID} #> Output Directory setenv INPDIR ${CMAQ_DATA}/2018_12US1 #Input Directory setenv LOGDIR ${OUTDIR}/LOGS #> Log Directory Location setenv NMLpath ${BLD} #> Location of Namelists. Common places are: #> ${WORKDIR} | ${CCTM_SRC}/MECHS/${MECH} | ${BLD} echo "" echo "Working Directory is $WORKDIR" echo "Build Directory is $BLD" echo "Output Directory is $OUTDIR" echo "Log Directory is $LOGDIR" echo "Executable Name is $EXEC" # ===================================================================== #> CCTM Configuration Options # ===================================================================== #> Set Start and End Days for looping setenv NEW_START TRUE #> Set to FALSE for model restart set START_DATE = "2018-07-01" #> beginning date (July 1, 2018) set END_DATE = "2018-07-02" #> ending date (July 2, 2018) #> Set Timestepping Parameters set STTIME = 000000 #> beginning GMT time (HHMMSS) set NSTEPS = 240000 #> time duration (HHMMSS) for this run set TSTEP = 010000 #> output time step interval (HHMMSS) #> Horizontal domain decomposition if ( $PROC == serial ) then setenv NPCOL_NPROW "1 1"; set NPROCS = 1 # single processor setting else @ NPCOL = 16; @ NPROW = 8 @ NPROCS = $NPCOL * $NPROW setenv NPCOL_NPROW "$NPCOL $NPROW"; endif #> Define Execution ID: e.g. [CMAQ-Version-Info]_[User]_[Date]_[Time] if ( ! -e ${BLD}/CCTM_${VRSN}.cfg ) then set SHAID = "" else set SHAID = `grep "sha_ID" ${BLD}/CCTM_${VRSN}.cfg | cut -c 13-22` if ( $SHAID == not_a_repo ) then set SHAID = "" else set SHAID = "_sha="$SHAID endif endif setenv EXECUTION_ID "CMAQ_CCTM${VRSN}_`id -u -n`_`date -u +%Y%m%d_%H%M%S_%N`" #> Inform IO/API of the Execution ID echo "" echo "---CMAQ EXECUTION ID: $EXECUTION_ID ---" #> Keep or Delete Existing Output Files set CLOBBER_DATA = FALSE #> Logfile Options #> Master Log File Name; uncomment to write standard output to a log, otherwise write to screen #setenv LOGFILE $CMAQ_HOME/$RUNID.log if (! -e $LOGDIR ) then mkdir -p $LOGDIR endif setenv PRINT_PROC_TIME Y #> Print timing for all science subprocesses to Logfile #> [ default: TRUE or Y ] setenv STDOUT T #> Override I/O-API trying to write information to both the processor #> logs and STDOUT [ options: T | F ] setenv GRID_NAME 12US1 #> check GRIDDESC file for GRID_NAME options setenv GRIDDESC ${INPDIR}/GRIDDESC #> grid description file #> Retrieve the number of columns, rows, and layers in this simulation set NZ = 35 set NX = `grep -A 1 ${GRID_NAME} ${GRIDDESC} | tail -1 | sed 's/ */ /g' | cut -d' ' -f6` set NY = `grep -A 1 ${GRID_NAME} ${GRIDDESC} | tail -1 | sed 's/ */ /g' | cut -d' ' -f7` set NCELLS = `echo "${NX} * ${NY} * ${NZ}" | bc -l` #> Output Species and Layer Options #> CONC file species; comment or set to "ALL" to write all species to CONC setenv CONC_SPCS "CO SO2 O3 NO ANO3I ANO3J NO2 NO3 HNO3 ISO GLY NH3 ANH4I ANH4J ASO4I ASO4J" setenv CONC_BLEV_ELEV " 1 1" #> CONC file layer range; comment to write all layers to CONC #> ACONC file species; comment or set to "ALL" to write all species to ACONC #setenv AVG_CONC_SPCS "O3 NO CO NO2 ASO4I ASO4J NH3" setenv AVG_CONC_SPCS "ALL" setenv ACONC_BLEV_ELEV " 1 1" #> ACONC file layer range; comment to write all layers to ACONC setenv AVG_FILE_ENDTIME N #> override default beginning ACONC timestamp [ default: N ] #> Synchronization Time Step and Tolerance Options setenv CTM_MAXSYNC 300 #> max sync time step (sec) [ default: 720 ] setenv CTM_MINSYNC 60 #> min sync time step (sec) [ default: 60 ] setenv SIGMA_SYNC_TOP 0.7 #> top sigma level thru which sync step determined [ default: 0.7 ] #setenv ADV_HDIV_LIM 0.95 #> maximum horiz. div. limit for adv step adjust [ default: 0.9 ] setenv CTM_ADV_CFL 0.95 #> max CFL [ default: 0.75] #setenv RB_ATOL 1.0E-09 #> global ROS3 solver absolute tolerance [ default: 1.0E-07 ] #> Science Options setenv CTM_OCEAN_CHEM Y #> Flag for ocean halogen chemistry and sea spray aerosol emissions [ default: Y ] setenv CTM_WB_DUST N #> use inline windblown dust emissions [ default: Y ] setenv CTM_LTNG_NO Y #> turn on lightning NOx [ default: N ] setenv KZMIN Y #> use Min Kz option in edyintb [ default: Y ], #> otherwise revert to Kz0UT setenv PX_VERSION Y #> WRF PX LSM setenv CLM_VERSION N #> WRF CLM LSM setenv NOAH_VERSION N #> WRF NOAH LSM setenv CTM_ABFLUX Y #> ammonia bi-directional flux for in-line deposition #> velocities [ default: N ] setenv CTM_BIDI_FERT_NH3 T #> subtract fertilizer NH3 from emissions because it will be handled #> by the BiDi calculation [ default: Y ] setenv CTM_HGBIDI N #> mercury bi-directional flux for in-line deposition #> velocities [ default: N ] setenv CTM_SFC_HONO Y #> surface HONO interaction [ default: Y ] #> please see user guide (6.10.4 Nitrous Acid (HONO)) #> for dependency on percent urban fraction dataset setenv CTM_GRAV_SETL Y #> vdiff aerosol gravitational sedimentation [ default: Y ] setenv CTM_PVO3 N #> consider potential vorticity module for O3 transport from the stratosphere #> [default: N] setenv CTM_BIOGEMIS_BE Y #> calculate in-line biogenic emissions with BEIS [ default: N ] setenv CTM_BIOGEMIS_MG N #> turns on MEGAN biogenic emission [ default: N ] setenv BDSNP_MEGAN N #> turns on BDSNP soil NO emissions [ default: N ] setenv AEROSOL_OPTICS 3 #> sets method for determining aerosol optics affecting photolysis #> frequencies ( 3 is the default value ) #> VALUES 1 thru 3 determined Uniformly Volume Mixed spherical #> (1-Tabular Mie; 2-Mie Calculation; 3-Case Approx to Mie Theory) #> VALUES 4 thru 6 attempts to use core-shell mixing model when the #> aerosol mode has signficant black carbon core otherwise use Volume Mixed #> model where optics determined by #> (4-Tabular Mie; 5-Mie Calculation; 6-Case Approx to Mie Theory) setenv IC_AERO_M2WET F #> Specify whether or not initial condition aerosol size distribution #> is wet or dry [ default: F = dry ] setenv BC_AERO_M2WET F #> Specify whether or not boundary condition aerosol size distribution #> is wet or dry [ default: F = dry ] setenv IC_AERO_M2USE T #> Specify whether or not to use aerosol surface area from initial #> conditions [ default: T = use aerosol surface area ] setenv BC_AERO_M2USE T #> Specify whether or not to use aerosol surface area from boundary #> conditions [ default: T = use aerosol surface area ] #> Surface Tiled Aerosol and Gaseous Exchange Options #> Only active if DepMod=stage at compile time setenv CTM_MOSAIC N #> Output landuse specific deposition velocities [ default: N ] setenv CTM_STAGE_P22 N #> Pleim et al. 2022 Aerosol deposition model [default: N] setenv CTM_STAGE_E20 Y #> Emerson et al. 2020 Aerosol deposition model [default: Y] setenv CTM_STAGE_S22 N #> Shu et al. 2022 (CMAQ v5.3) Aerosol deposition model [default: N] #> Vertical Extraction Options setenv VERTEXT N setenv VERTEXT_COORD_PATH ${WORKDIR}/lonlat.csv #> I/O Controls setenv IOAPI_LOG_WRITE F #> turn on excess WRITE3 logging [ options: T | F ] setenv FL_ERR_STOP N #> stop on inconsistent input files setenv PROMPTFLAG F #> turn on I/O-API PROMPT*FILE interactive mode [ options: T | F ] setenv IOAPI_OFFSET_64 YES #> support large timestep records (>2GB/timestep record) [ options: YES | NO ] setenv IOAPI_CHECK_HEADERS N #> check file headers [ options: Y | N ] setenv CTM_EMISCHK N #> Abort CMAQ if missing surrogates from emissions Input files #> Diagnostic Output Flags setenv CTM_CKSUM Y #> checksum report [ default: Y ] setenv CLD_DIAG N #> cloud diagnostic file [ default: N ] setenv CTM_PHOTDIAG Y #> photolysis diagnostic file [ default: N ] setenv NLAYS_PHOTDIAG "1" #> Number of layers for PHOTDIAG2 and PHOTDIAG3 from #> Layer 1 to NLAYS_PHOTDIAG [ default: all layers ] #setenv NWAVE_PHOTDIAG "294 303 310 316 333 381 607" #> Wavelengths written for variables #> in PHOTDIAG2 and PHOTDIAG3 #> [ default: all wavelengths ] setenv CTM_SSEMDIAG N #> sea-spray emissions diagnostic file [ default: N ] setenv CTM_DUSTEM_DIAG N #> windblown dust emissions diagnostic file [ default: N ]; #> Ignore if CTM_WB_DUST = N setenv CTM_DEPV_FILE N #> deposition velocities diagnostic file [ default: N ] setenv VDIFF_DIAG_FILE N #> vdiff & possibly aero grav. sedimentation diagnostic file [ default: N ] setenv LTNGDIAG N #> lightning diagnostic file [ default: N ] setenv B3GTS_DIAG N #> BEIS mass emissions diagnostic file [ default: N ] setenv CTM_WVEL Y #> save derived vertical velocity component to conc #> file [ default: Y ] # ===================================================================== #> Input Directories and Filenames # ===================================================================== set ICpath = $INPDIR/icbc #> initial conditions input directory set BCpath = $INPDIR/icbc #> boundary conditions input directory set EMISpath = $INPDIR/emis/WR705_2018gc2_cracmmv1/cmaq_ready/merged_nobeis_norwc #> surface emissions input directory set EMISpath2 = $INPDIR/emis/WR705_2018gc2_cracmmv1/premerged/rwc #> surface residential wood combustion emissions directory set IN_PTpath = $INPDIR/emis/WR705_2018gc2_cracmmv1/cmaq_ready #> elevated emissions input directory (in-line point only) set IN_LTpath = $INPDIR/met/lightning #> lightning NOx input directory set METpath = $INPDIR/met/WRFv4.3.3_LTNG_MCIP5.3.3_compressed #> meteorology input directory #set JVALpath = $INPDIR/jproc #> offline photolysis rate table directory set OMIpath = $BLD #> ozone column data for the photolysis model set EPICpath = $INPDIR/surface #> EPIC putput for bidirectional NH3 set LUpath = $INPDIR/surface #> BELD landuse data for windblown dust model set SZpath = $INPDIR/surface #> surf zone file for in-line seaspray emissions # ===================================================================== #> Begin Loop Through Simulation Days # ===================================================================== set rtarray = "" set TODAYG = ${START_DATE} set TODAYJ = `date -ud "${START_DATE}" +%Y%j` #> Convert YYYY-MM-DD to YYYYJJJ set START_DAY = ${TODAYJ} set STOP_DAY = `date -ud "${END_DATE}" +%Y%j` #> Convert YYYY-MM-DD to YYYYJJJ set NDAYS = 0 while ($TODAYJ <= $STOP_DAY ) #>Compare dates in terms of YYYYJJJ set NDAYS = `echo "${NDAYS} + 1" | bc -l` #> Retrieve Calendar day Information set YYYYMMDD = `date -ud "${TODAYG}" +%Y%m%d` #> Convert YYYY-MM-DD to YYYYMMDD set YYYYMM = `date -ud "${TODAYG}" +%Y%m` #> Convert YYYY-MM-DD to YYYYMM set YYYY = `date -ud "${TODAYG}" +%Y` #> Convert YYYY-MM-DD to YYYY set YYMMDD = `date -ud "${TODAYG}" +%y%m%d` #> Convert YYYY-MM-DD to YYMMDD set MM = `date -ud "${TODAYG}" +%m` set YYYYJJJ = $TODAYJ set MMDD = `date -ud "${TODAYG}" +%m%d` #> Calculate Yesterday's Date set YESTERDAY = `date -ud "${TODAYG}-1days" +%Y%m%d` #> Convert YYYY-MM-DD to YYYYJJJ # ===================================================================== #> Set Output String and Propagate Model Configuration Documentation # ===================================================================== echo "" echo "Set up input and output files for Day ${TODAYG}." #> set output file name extensions setenv CTM_APPL ${RUNID}_${YYYYMMDD} #> Copy Model Configuration To Output Folder if ( ! -d "$OUTDIR" ) mkdir -p $OUTDIR cp $BLD/CCTM_${VRSN}.cfg $OUTDIR/CCTM_${CTM_APPL}.cfg # ===================================================================== #> Input Files (Some are Day-Dependent) # ===================================================================== #> Initial conditions if ($NEW_START == true || $NEW_START == TRUE ) then setenv ICFILE CCTM_CGRID_${RUNID}_${YESTERDAY}.nc setenv INIT_MEDC_1 notused else set ICpath = $OUTDIR setenv ICFILE CCTM_CGRID_${RUNID}_${YESTERDAY}.nc setenv INIT_MEDC_1 $ICpath/CCTM_MEDIA_CONC_${RUNID}_${YESTERDAY}.nc endif #> Boundary conditions, use STAGE files if CCTM uses the stage option for depv set BCFILE = BCON_CONC_12US1_CMAQv54_2018_108NHEMI_CRACCM1_FROM_CB6R5M_STAGE_EMERSON_regrid_${YYYYMM}.nc #> Off-line photolysis rates #set JVALfile = JTABLE_${YYYYJJJ} #> Ozone column data set OMIfile = OMI_1979_to_2019.dat #> Optics file set OPTfile = PHOT_OPTICS.dat #> MCIP meteorology files setenv GRID_BDY_2D $METpath/GRIDBDY2D_$YYYYMMDD.nc4 setenv GRID_CRO_2D $METpath/GRIDCRO2D_$YYYYMMDD.nc4 setenv GRID_CRO_3D $METpath/GRIDCRO3D_$YYYYMMDD.nc4 setenv GRID_DOT_2D $METpath/GRIDDOT2D_$YYYYMMDD.nc4 setenv MET_CRO_2D $METpath/METCRO2D_$YYYYMMDD.nc4 setenv MET_CRO_3D $METpath/METCRO3D_$YYYYMMDD.nc4 setenv MET_DOT_3D $METpath/METDOT3D_$YYYYMMDD.nc4 setenv MET_BDY_3D $METpath/METBDY3D_$YYYYMMDD.nc4 setenv LUFRAC_CRO $METpath/LUFRAC_CRO_$YYYYMMDD.nc4 #> Control Files #> #> IMPORTANT NOTE #> #> The DESID control files defined below are an integral part of controlling the behavior of the model simulation. #> Among other things, they control the mapping of species in the emission files to chemical species in the model and #> several aspects related to the simulation of organic aerosols. #> Please carefully review the DESID control files to ensure that they are configured to be consistent with the assumptions #> made when creating the emission files defined below and the desired representation of organic aerosols. #> For further information, please see: #> + AERO7 Release Notes section on 'Required emission updates': #> https://github.com/USEPA/CMAQ/blob/master/DOCS/Release_Notes/aero7_overview.md #> + CMAQ User's Guide section 6.9.3 on 'Emission Compatability': #> https://github.com/USEPA/CMAQ/blob/master/DOCS/Users_Guide/CMAQ_UG_ch06_model_configuration_options.md#6.9.3_Emission_Compatability #> + Emission Control (DESID) Documentation in the CMAQ User's Guide: #> https://github.com/USEPA/CMAQ/blob/master/DOCS/Users_Guide/Appendix/CMAQ_UG_appendixB_emissions_control.md #> setenv DESID_CTRL_NML ${BLD}/CMAQ_Control_DESID.nml setenv DESID_CHEM_CTRL_NML ${BLD}/CMAQ_Control_DESID_${MECH}.nml #> The following namelist configures aggregated output (via the Explicit and Lumped #> Air Quality Model Output (ELMO) Module), domain-wide budget output, and chemical #> family output. setenv MISC_CTRL_NML ${BLD}/CMAQ_Control_Misc.nml #> The following namelist controls the mapping of meteorological land use types and the NH3 and Hg emission #> potentials setenv STAGECTRL_NML ${BLD}/CMAQ_Control_STAGE.nml #> Spatial Masks For Emissions Scaling setenv CMAQ_MASKS $SZpath/OCEAN_${MM}_L3m_MC_CHL_chlor_a_12US1.nc #> Determine Representative Emission Days set EMDATES = $INPDIR/emis/emis_dates/smk_merge_dates_${YYYYMM}.txt set intable = `grep "^${YYYYMMDD}" $EMDATES` set Date = `echo $intable[1] | cut -d, -f1` set aveday_N = `echo $intable[2] | cut -d, -f1` set aveday_Y = `echo $intable[3] | cut -d, -f1` set mwdss_N = `echo $intable[4] | cut -d, -f1` set mwdss_Y = `echo $intable[5] | cut -d, -f1` set week_N = `echo $intable[6] | cut -d, -f1` set week_Y = `echo $intable[7] | cut -d, -f1` set all = `echo $intable[8] | cut -d, -f1` #> Gridded Emissions files setenv N_EMIS_GR 2 set EMISfile = emis_mole_all_${YYYYMMDD}_12US1_nobeis_norwc_WR705_2018gc2.ncf setenv GR_EMIS_001 ${EMISpath}/${EMISfile} setenv GR_EMIS_LAB_001 GRIDDED_EMIS setenv GR_EM_SYM_DATE_001 T # To change default behaviour please see Users Guide for EMIS_SYM_DATE set EMISfile = emis_mole_rwc_${YYYYMMDD}_12US1_cmaq_cracmmv1_WR705_2018gc2.ncf setenv GR_EMIS_002 ${EMISpath2}/${EMISfile} setenv GR_EMIS_LAB_002 GR_RES_FIRES setenv GR_EM_SYM_DATE_002 T # To change default behaviour please see Users Guide for EMIS_SYM_DATE #> In-Line Point Emissions Files setenv N_EMIS_PT 10 #> Number of elevated source groups set STKCASEE = 12US1_cmaq_cracmmv1_WR705_2018gc2 # In-line Emission Rate File Suffix set STKCASEG = 12US1_WR705_2018gc2 # Stack parameter File Suffix setenv STK_GRPS_001 $IN_PTpath/ptnonipm/stack_groups_ptnonipm_${STKCASEG}.ncf setenv STK_GRPS_002 $IN_PTpath/ptegu/stack_groups_ptegu_${STKCASEG}.ncf setenv STK_GRPS_003 $IN_PTpath/othpt/stack_groups_othpt_${STKCASEG}.ncf setenv STK_GRPS_004 $IN_PTpath/ptagfire/stack_groups_ptagfire_2018${MMDD}_${STKCASEG}.ncf setenv STK_GRPS_005 $IN_PTpath/ptfire/stack_groups_ptfire_2018${MMDD}_${STKCASEG}.ncf setenv STK_GRPS_006 $IN_PTpath/ptfire_grass/stack_groups_ptfire_grass_2018${MMDD}_${STKCASEG}.ncf setenv STK_GRPS_007 $IN_PTpath/ptfire_othna/stack_groups_ptfire_othna_2018${MMDD}_${STKCASEG}.ncf setenv STK_GRPS_008 $IN_PTpath/pt_oilgas/stack_groups_pt_oilgas_${STKCASEG}.ncf setenv STK_GRPS_009 $IN_PTpath/cmv_c1c2_12/stack_groups_cmv_c1c2_12_${STKCASEG}.ncf setenv STK_GRPS_010 $IN_PTpath/cmv_c3_12/stack_groups_cmv_c3_12_${STKCASEG}.ncf setenv STK_EMIS_001 $IN_PTpath/ptnonipm/inln_mole_ptnonipm_${mwdss_Y}_${STKCASEE}.ncf setenv STK_EMIS_002 $IN_PTpath/ptegu/inln_mole_ptegu_2018${MMDD}_${STKCASEE}.ncf setenv STK_EMIS_003 $IN_PTpath/othpt/inln_mole_othpt_${mwdss_N}_${STKCASEE}.ncf setenv STK_EMIS_004 $IN_PTpath/ptagfire/inln_mole_ptagfire_2018${MMDD}_${STKCASEE}.ncf setenv STK_EMIS_005 $IN_PTpath/ptfire/inln_mole_ptfire_2018${MMDD}_${STKCASEE}.ncf setenv STK_EMIS_006 $IN_PTpath/ptfire_grass/inln_mole_ptfire_grass_2018${MMDD}_${STKCASEE}.ncf setenv STK_EMIS_007 $IN_PTpath/ptfire_othna/inln_mole_ptfire_othna_2018${MMDD}_${STKCASEE}.ncf setenv STK_EMIS_008 $IN_PTpath/pt_oilgas/inln_mole_pt_oilgas_${mwdss_Y}_${STKCASEE}.ncf setenv STK_EMIS_009 $IN_PTpath/cmv_c1c2_12/inln_mole_cmv_c1c2_12_2018${MMDD}_${STKCASEE}.ncf setenv STK_EMIS_010 $IN_PTpath/cmv_c3_12/inln_mole_cmv_c3_12_2018${MMDD}_${STKCASEE}.ncf # Label Each Emissions Stream setenv STK_EMIS_LAB_001 PT_NONEGU setenv STK_EMIS_LAB_002 PT_EGU setenv STK_EMIS_LAB_003 PT_OTHER setenv STK_EMIS_LAB_004 PT_AGFIRES setenv STK_EMIS_LAB_005 PT_FIRES setenv STK_EMIS_LAB_006 PT_RXFIRES setenv STK_EMIS_LAB_007 PT_OTHFIRES setenv STK_EMIS_LAB_008 PT_OILGAS setenv STK_EMIS_LAB_009 PT_CMV_C1C2 setenv STK_EMIS_LAB_010 PT_CMV_C3 # Allow CMAQ to Use Point Source files with dates that do not # match the internal model date # To change default behaviour please see Users Guide for EMIS_SYM_DATE setenv STK_EM_SYM_DATE_001 T setenv STK_EM_SYM_DATE_002 T setenv STK_EM_SYM_DATE_003 T setenv STK_EM_SYM_DATE_004 T setenv STK_EM_SYM_DATE_005 T setenv STK_EM_SYM_DATE_006 T setenv STK_EM_SYM_DATE_007 T setenv STK_EM_SYM_DATE_008 T setenv STK_EM_SYM_DATE_009 T setenv STK_EM_SYM_DATE_010 T #> Lightning NOx configuration if ( $CTM_LTNG_NO == 'Y' ) then setenv LTNGNO "InLine" #> set LTNGNO to "Inline" to activate in-line calculation #> In-line lightning NOx options setenv USE_NLDN Y #> use hourly NLDN strike file [ default: Y ] if ( $USE_NLDN == Y ) then setenv NLDN_STRIKES ${IN_LTpath}/NLDN_12km_60min_${YYYYMMDD}.ioapi endif setenv LTNGPARMS_FILE ${IN_LTpath}/LTNG_AllParms_12US1.ncf #> lightning parameter file; ignore if LTNGPARAM = N endif #> In-line biogenic emissions configuration if ( $CTM_BIOGEMIS_MG == 'Y' ) then setenv MEGAN_SOILINP $OUTDIR/CCTM_MSOILOUT_${RUNID}_${YESTERDAY}.nc #> Biogenic NO soil input file; ignore if INITIAL_RUN = Y #> ; ignore if IGNORE_SOILINP = Y setenv MEGAN_CTS /work/MOD3DATA/2016_12US1/surface/megan3.2/CT3_CONUS.ncf setenv MEGAN_EFS /work/MOD3DATA/2016_12US1/surface/megan3.2/EFMAPS_CONUS.ncf setenv MEGAN_LDF /work/MOD3DATA/2016_12US1/surface/megan3.2/LDF_CONUS.ncf if ($BDSNP_MEGAN == 'Y') then setenv BDSNPINP $OUTDIR/CCTM_BDSNPOUT_${RUNID}_${YESTERDAY}.nc setenv BDSNP_FFILE /work/MOD3DATA/2016_12US1/surface/megan3.2/FERT_CONUS.ncf setenv BDSNP_NFILE /work/MOD3DATA/2016_12US1/surface/megan3.2/NDEP_CONUS.ncf setenv BDSNP_LFILE /work/MOD3DATA/2016_12US1/surface/megan3.2/LANDTYPE_CONUS.ncf setenv BDSNP_AFILE /work/MOD3DATA/2016_12US1/surface/megan3.2/ARID_CONUS.ncf setenv BDSNP_NAFILE /work/MOD3DATA/2016_12US1/surface/megan3.2/NONARID_CONUS.ncf endif endif if ( $CTM_BIOGEMIS_BE == 'Y' ) then set IN_BEISpath = ${INPDIR}/surface setenv GSPRO ${BLD}/gspro_biogenics.txt setenv BEIS_NORM_EMIS $IN_BEISpath/beis4_beld6_norm_emis.12US1.ncf setenv BEIS_SOILINP $OUTDIR/CCTM_BSOILOUT_${RUNID}_${YESTERDAY}.nc #> Biogenic NO soil input file; ignore if INITIAL_RUN = Y endif #> In-line sea spray emissions configuration setenv OCEAN_1 $SZpath/OCEAN_${MM}_L3m_MC_CHL_chlor_a_12US1.nc #> Bidirectional ammonia configuration if ( $CTM_ABFLUX == 'Y' ) then # need to modify for FEST-C v1.4. setenv E2C_SOIL ${EPICpath}/${YYYY}r1_EPIC0509_12US1_soil.nc4 setenv E2C_CHEM ${EPICpath}/${YYYY}r1_EPIC0509_12US1_time${YYYYMMDD}.nc4 setenv E2C_LU ${EPICpath}/beld4_12US1_2011.nc4 endif #> Inline Process Analysis setenv CTM_PROCAN N #> use process analysis [ default: N] if ( $?CTM_PROCAN ) then # $CTM_PROCAN is defined if ( $CTM_PROCAN == 'Y' || $CTM_PROCAN == 'T' ) then #> process analysis global column, row and layer ranges # setenv PA_BCOL_ECOL "10 90" # default: all columns # setenv PA_BROW_EROW "10 80" # default: all rows # setenv PA_BLEV_ELEV "1 4" # default: all levels setenv PACM_INFILE ${NMLpath}/pa_${MECH}.ctl setenv PACM_REPORT $OUTDIR/"PA_REPORT".${YYYYMMDD} endif endif #> Integrated Source Apportionment Method (ISAM) Options setenv CTM_ISAM N if ( $?CTM_ISAM ) then if ( $CTM_ISAM == 'Y' || $CTM_ISAM == 'T' ) then setenv SA_IOLIST ${WORKDIR}/isam_control.txt setenv ISAM_BLEV_ELEV " 1 1" setenv AISAM_BLEV_ELEV " 1 1" #> Set Up ISAM Initial Condition Flags if ($NEW_START == true || $NEW_START == TRUE ) then setenv ISAM_NEW_START Y setenv ISAM_PREVDAY else setenv ISAM_NEW_START N setenv ISAM_PREVDAY "$OUTDIR/CCTM_SA_CGRID_${RUNID}_${YESTERDAY}.nc" endif #> Set Up ISAM Output Filenames setenv SA_ACONC_1 "$OUTDIR/CCTM_SA_ACONC_${CTM_APPL}.nc -v" setenv SA_CONC_1 "$OUTDIR/CCTM_SA_CONC_${CTM_APPL}.nc -v" setenv SA_DD_1 "$OUTDIR/CCTM_SA_DRYDEP_${CTM_APPL}.nc -v" setenv SA_WD_1 "$OUTDIR/CCTM_SA_WETDEP_${CTM_APPL}.nc -v" setenv SA_CGRID_1 "$OUTDIR/CCTM_SA_CGRID_${CTM_APPL}.nc -v" #> Set optional ISAM regions files # setenv ISAM_REGIONS /work/MOD3EVAL/nsu/isam_v53/CCTM/scripts/input/RGN_ISAM.nc endif endif #> Sulfur Tracking Model (STM) setenv STM_SO4TRACK N #> sulfur tracking [ default: N ] if ( $?STM_SO4TRACK ) then if ( $STM_SO4TRACK == 'Y' || $STM_SO4TRACK == 'T' ) then #> option to normalize sulfate tracers [ default: Y ] setenv STM_ADJSO4 Y endif endif #> CMAQ-DDM-3D setenv CTM_DDM3D N set NPMAX = 1 setenv SEN_INPUT ${WORKDIR}/sensinput.dat setenv DDM3D_HIGH N # allow higher-order sensitivity parameters [ T | Y | F | N ] (default is N/F) if ($NEW_START == true || $NEW_START == TRUE ) then setenv DDM3D_RST N # begins from sensitivities from a restart file [ T | Y | F | N ] (default is Y/T) set S_ICpath = set S_ICfile = else setenv DDM3D_RST Y set S_ICpath = $OUTDIR set S_ICfile = CCTM_SENGRID_${RUNID}_${YESTERDAY}.nc endif setenv DDM3D_BCS F # use sensitivity bc file for nested runs [ T | Y | F | N ] (default is N/F) set S_BCpath = /asm/MOD3DATA/CMAQv53_TS/2018_12US1/icbc/CMAQv53_TS_108NHEMI_SHAKEOUT set S_BCfile = BCON_CONC_12US1_CMAQv53_TS_regrid_${YYYYMM}.nc setenv CTM_NPMAX $NPMAX setenv CTM_SENS_1 "$OUTDIR/CCTM_SENGRID_${CTM_APPL}.nc -v" setenv A_SENS_1 "$OUTDIR/CCTM_ASENS_${CTM_APPL}.nc -v" setenv CTM_SWETDEP_1 "$OUTDIR/CCTM_SENWDEP_${CTM_APPL}.nc -v" setenv CTM_SDRYDEP_1 "$OUTDIR/CCTM_SENDDEP_${CTM_APPL}.nc -v" setenv CTM_NPMAX $NPMAX setenv INIT_SENS_1 $S_ICpath/$S_ICfile setenv BNDY_SENS_1 $S_BCpath/$S_BCfile # ===================================================================== #> Output Files # ===================================================================== #> set output file names setenv S_CGRID "$OUTDIR/CCTM_CGRID_${CTM_APPL}.nc" #> 3D Inst. Concentrations setenv CTM_CONC_1 "$OUTDIR/CCTM_CONC_${CTM_APPL}.nc -v" #> On-Hour Concentrations setenv A_CONC_1 "$OUTDIR/CCTM_ACONC_${CTM_APPL}.nc -v" #> Hourly Avg. Concentrations setenv MEDIA_CONC "$OUTDIR/CCTM_MEDIA_CONC_${CTM_APPL}.nc -v" #> NH3 Conc. in Media setenv CTM_DRY_DEP_1 "$OUTDIR/CCTM_DRYDEP_${CTM_APPL}.nc -v" #> Hourly Dry Deposition setenv CTM_DEPV_DIAG "$OUTDIR/CCTM_DEPV_${CTM_APPL}.nc -v" #> Dry Deposition Velocities setenv B3GTS_S "$OUTDIR/CCTM_B3GTS_S_${CTM_APPL}.nc -v" #> Biogenic Emissions setenv BDSNPOUT "$OUTDIR/CCTM_BDSNPOUT_${CTM_APPL}.nc" #> Soil Emissions setenv BEIS_SOILOUT "$OUTDIR/CCTM_BSOILOUT_${CTM_APPL}.nc" #> Soil Emissions setenv MEGAN_SOILOUT "$OUTDIR/CCTM_MSOILOUT_${CTM_APPL}.nc" #> Soil Emissions setenv CTM_WET_DEP_1 "$OUTDIR/CCTM_WETDEP1_${CTM_APPL}.nc -v" #> Wet Dep From All Clouds setenv CTM_WET_DEP_2 "$OUTDIR/CCTM_WETDEP2_${CTM_APPL}.nc -v" #> Wet Dep From SubGrid Clouds setenv CTM_ELMO_1 "$OUTDIR/CCTM_ELMO_${CTM_APPL}.nc -v" #> On-Hour Particle Diagnostics setenv CTM_AELMO_1 "$OUTDIR/CCTM_AELMO_${CTM_APPL}.nc -v" #> Hourly Avg. Particle Diagnostics setenv CTM_RJ_1 "$OUTDIR/CCTM_PHOTDIAG1_${CTM_APPL}.nc -v" #> 2D Surface Summary from Inline Photolysis setenv CTM_RJ_2 "$OUTDIR/CCTM_PHOTDIAG2_${CTM_APPL}.nc -v" #> 3D Photolysis Rates setenv CTM_RJ_3 "$OUTDIR/CCTM_PHOTDIAG3_${CTM_APPL}.nc -v" #> 3D Optical and Radiative Results from Photolysis setenv CTM_SSEMIS_1 "$OUTDIR/CCTM_SSEMIS_${CTM_APPL}.nc -v" #> Sea Spray Emissions setenv CTM_DUST_EMIS_1 "$OUTDIR/CCTM_DUSTEMIS_${CTM_APPL}.nc -v" #> Dust Emissions setenv CTM_BUDGET "$OUTDIR/CCTM_BUDGET_${CTM_APPL}.txt -v" #> Budget setenv CTM_IPR_1 "$OUTDIR/CCTM_PA_1_${CTM_APPL}.nc -v" #> Process Analysis setenv CTM_IPR_2 "$OUTDIR/CCTM_PA_2_${CTM_APPL}.nc -v" #> Process Analysis setenv CTM_IPR_3 "$OUTDIR/CCTM_PA_3_${CTM_APPL}.nc -v" #> Process Analysis setenv CTM_IRR_1 "$OUTDIR/CCTM_IRR_1_${CTM_APPL}.nc -v" #> Chem Process Analysis setenv CTM_IRR_2 "$OUTDIR/CCTM_IRR_2_${CTM_APPL}.nc -v" #> Chem Process Analysis setenv CTM_IRR_3 "$OUTDIR/CCTM_IRR_3_${CTM_APPL}.nc -v" #> Chem Process Analysis setenv CTM_DRY_DEP_MOS "$OUTDIR/CCTM_DDMOS_${CTM_APPL}.nc -v" #> Dry Dep setenv CTM_DEPV_MOS "$OUTDIR/CCTM_DEPVMOS_${CTM_APPL}.nc -v" #> Dry Dep Velocity setenv CTM_VDIFF_DIAG "$OUTDIR/CCTM_VDIFF_DIAG_${CTM_APPL}.nc -v" #> Vertical Dispersion Diagnostic setenv CTM_VSED_DIAG "$OUTDIR/CCTM_VSED_DIAG_${CTM_APPL}.nc -v" #> Particle Grav. Settling Velocity setenv CTM_LTNGDIAG_1 "$OUTDIR/CCTM_LTNGHRLY_${CTM_APPL}.nc -v" #> Hourly Avg Lightning NO setenv CTM_LTNGDIAG_2 "$OUTDIR/CCTM_LTNGCOL_${CTM_APPL}.nc -v" #> Column Total Lightning NO setenv CTM_VEXT_1 "$OUTDIR/CCTM_VEXT_${CTM_APPL}.nc -v" #> On-Hour 3D Concs at select sites #> set floor file (neg concs) setenv FLOOR_FILE ${OUTDIR}/FLOOR_${CTM_APPL}.txt #> look for existing log files and output files ( ls CTM_LOG_???.${CTM_APPL} > buff.txt ) >& /dev/null ( ls ${LOGDIR}/CTM_LOG_???.${CTM_APPL} >> buff.txt ) >& /dev/null set log_test = `cat buff.txt`; rm -f buff.txt set OUT_FILES = (${FLOOR_FILE} ${S_CGRID} ${CTM_CONC_1} ${A_CONC_1} ${MEDIA_CONC} \ ${CTM_DRY_DEP_1} $CTM_DEPV_DIAG $B3GTS_S $MEGAN_SOILOUT $BEIS_SOILOUT $BDSNPOUT \ $CTM_WET_DEP_1 $CTM_WET_DEP_2 $CTM_ELMO_1 $CTM_AELMO_1 \ $CTM_RJ_1 $CTM_RJ_2 $CTM_RJ_3 $CTM_SSEMIS_1 $CTM_DUST_EMIS_1 $CTM_IPR_1 $CTM_IPR_2 \ $CTM_IPR_3 $CTM_BUDGET $CTM_IRR_1 $CTM_IRR_2 $CTM_IRR_3 $CTM_DRY_DEP_MOS \ $CTM_DEPV_MOS $CTM_VDIFF_DIAG $CTM_VSED_DIAG $CTM_LTNGDIAG_1 $CTM_LTNGDIAG_2 $CTM_VEXT_1 ) if ( $?CTM_ISAM ) then if ( $CTM_ISAM == 'Y' || $CTM_ISAM == 'T' ) then set OUT_FILES = (${OUT_FILES} ${SA_ACONC_1} ${SA_CONC_1} ${SA_DD_1} ${SA_WD_1} \ ${SA_CGRID_1} ) endif endif if ( $?CTM_DDM3D ) then if ( $CTM_DDM3D == 'Y' || $CTM_DDM3D == 'T' ) then set OUT_FILES = (${OUT_FILES} ${CTM_SENS_1} ${A_SENS_1} ${CTM_SWETDEP_1} ${CTM_SDRYDEP_1} ) endif endif set OUT_FILES = `echo $OUT_FILES | sed "s; -v;;g" ` ( ls $OUT_FILES > buff.txt ) >& /dev/null set out_test = `cat buff.txt`; rm -f buff.txt #> delete previous output if requested if ( $CLOBBER_DATA == true || $CLOBBER_DATA == TRUE ) then echo echo "Existing Logs and Output Files for Day ${TODAYG} Will Be Deleted" #> remove previous log files foreach file ( ${log_test} ) #echo "Deleting log file: $file" /bin/rm -f $file end #> remove previous output files foreach file ( ${out_test} ) #echo "Deleting output file: $file" /bin/rm -f $file end /bin/rm -f ${OUTDIR}/CCTM_DESID*${CTM_APPL}.nc else #> error if previous log files exist if ( "$log_test" != "" ) then echo "*** Logs exist - run ABORTED ***" echo "*** To overide, set CLOBBER_DATA = TRUE in run_cctm.csh ***" echo "*** and these files will be automatically deleted. ***" exit 1 endif #> error if previous output files exist if ( "$out_test" != "" ) then echo "*** Output Files Exist - run will be ABORTED ***" foreach file ( $out_test ) echo " cannot delete $file" end echo "*** To overide, set CLOBBER_DATA = TRUE in run_cctm.csh ***" echo "*** and these files will be automatically deleted. ***" exit 1 endif endif #> for the run control ... setenv CTM_STDATE $YYYYJJJ setenv CTM_STTIME $STTIME setenv CTM_RUNLEN $NSTEPS setenv CTM_TSTEP $TSTEP setenv INIT_CONC_1 $ICpath/$ICFILE setenv BNDY_CONC_1 $BCpath/$BCFILE setenv OMI $OMIpath/$OMIfile setenv OPTICS_DATA $OMIpath/$OPTfile #setenv XJ_DATA $JVALpath/$JVALfile #> species defn & photolysis setenv gc_matrix_nml ${NMLpath}/GC_$MECH.nml setenv ae_matrix_nml ${NMLpath}/AE_$MECH.nml setenv nr_matrix_nml ${NMLpath}/NR_$MECH.nml setenv tr_matrix_nml ${NMLpath}/Species_Table_TR_0.nml #> check for photolysis input data setenv CSQY_DATA ${NMLpath}/CSQY_DATA_$MECH if (! (-e $CSQY_DATA ) ) then echo " $CSQY_DATA not found " exit 1 endif if (! (-e $OPTICS_DATA ) ) then echo " $OPTICS_DATA not found " exit 1 endif # =================================================================== #> Execution Portion # =================================================================== #> Print attributes of the executable if ( $CTM_DIAG_LVL != 0 ) then ls -l $BLD/$EXEC size $BLD/$EXEC unlimit limit endif #> Print Startup Dialogue Information to Standard Out echo echo "CMAQ Processing of Day $YYYYMMDD Began at `date`" echo #> Executable call for single PE, uncomment to invoke #( /usr/bin/time -p $BLD/$EXEC ) |& tee buff_${EXECUTION_ID}.txt #> Executable call for multi PE, configure for your system # set MPI = /usr/local/intel/impi/3.2.2.006/bin64 # set MPIRUN = $MPI/mpirun ( /usr/bin/time -p mpirun -np $NPROCS $BLD/$EXEC ) |& tee buff_${EXECUTION_ID}.txt #> Harvest Timing Output so that it may be reported below set rtarray = "${rtarray} `tail -3 buff_${EXECUTION_ID}.txt | grep -Eo '[+-]?[0-9]+([.][0-9]+)?' | head -1` " rm -rf buff_${EXECUTION_ID}.txt #> Abort script if abnormal termination if ( ! -e $S_CGRID ) then echo "" echo "**************************************************************" echo "** Runscript Detected an Error: CGRID file was not written. **" echo "** This indicates that CMAQ was interrupted or an issue **" echo "** exists with writing output. The runscript will now **" echo "** abort rather than proceeding to subsequent days. **" echo "**************************************************************" break endif #> Print Concluding Text echo echo "CMAQ Processing of Day $YYYYMMDD Finished at `date`" echo echo "\\\\\=====\\\\\=====\\\\\=====\\\\\=====/////=====/////=====/////=====/////" echo # =================================================================== #> Finalize Run for This Day and Loop to Next Day # =================================================================== #> Save Log Files and Move on to Next Simulation Day mv CTM_LOG_???.${CTM_APPL} $LOGDIR if ( $CTM_DIAG_LVL != 0 ) then mv CTM_DIAG_???.${CTM_APPL} $LOGDIR endif #> The next simulation day will, by definition, be a restart setenv NEW_START false #> Increment both Gregorian and Julian Days set TODAYG = `date -ud "${TODAYG}+1days" +%Y-%m-%d` #> Add a day for tomorrow set TODAYJ = `date -ud "${TODAYG}" +%Y%j` #> Convert YYYY-MM-DD to YYYYJJJ end #Loop to the next Simulation Day # =================================================================== #> Generate Timing Report # =================================================================== set RTMTOT = 0 foreach it ( `seq ${NDAYS}` ) set rt = `echo ${rtarray} | cut -d' ' -f${it}` set RTMTOT = `echo "${RTMTOT} + ${rt}" | bc -l` end set RTMAVG = `echo "scale=2; ${RTMTOT} / ${NDAYS}" | bc -l` set RTMTOT = `echo "scale=2; ${RTMTOT} / 1" | bc -l` echo echo "==================================" echo " ***** CMAQ TIMING REPORT *****" echo "==================================" echo "Start Day: ${START_DATE}" echo "End Day: ${END_DATE}" echo "Number of Simulation Days: ${NDAYS}" echo "Domain Name: ${GRID_NAME}" echo "Number of Grid Cells: ${NCELLS} (ROW x COL x LAY)" echo "Number of Layers: ${NZ}" echo "Number of Processes: ${NPROCS}" echo " All times are in seconds." echo echo "Num Day Wall Time" set d = 0 set day = ${START_DATE} foreach it ( `seq ${NDAYS}` ) # Set the right day and format it set d = `echo "${d} + 1" | bc -l` set n = `printf "%02d" ${d}` # Choose the correct time variables set rt = `echo ${rtarray} | cut -d' ' -f${it}` # Write out row of timing data echo "${n} ${day} ${rt}" # Increment day for next loop set day = `date -ud "${day}+1days" +%Y-%m-%d` end echo " Total Time = ${RTMTOT}" echo " Avg. Time = ${RTMAVG}" exit ================================================ FILE: CCTM/scripts/run_cctm_Bench_2018_12NE3.WRFCMAQ.csh ================================================ #!/bin/csh -f # ===================== WRF-CMAQ Run Script ========================= # Usage: run_cctm_Bench_2018_12NE3.WRFCMAQ.csh >& run_cctm_Bench_2018_12NE3.WRFCMAQ.log & # Slurm Usage: sbatch run_cctm_Bench_2018_12NE3.WRFCMAQ.csh # # To report problems or request help with this script/program: # http://www.epa.gov/cmaq (EPA CMAQ Website) # http://www.cmascenter.org (CMAS Website) # =================================================================== set NPROCS = 32 set wrfv = 4.5.1 set version = sw_feedback set option = 3 # =================================================================== #> Runtime Environment Options # =================================================================== echo 'Start Model Run At ' `date` #> Choose compiler and set up CMAQ environment with correct #> libraries using config.cmaq. Options: intel | gcc | pgi if ( ! $?compiler ) then setenv compiler gcc endif if ( ! $?compilerVrsn ) then setenv compilerVrsn Empty endif #> Source the config.cmaq file to set the build environment cd ../.. source ./config_cmaq.csh $compiler $compilerVrsn cd CCTM/scripts #> Toggle Diagnostic Mode which will print verbose information to #> standard output setenv CTM_DIAG_LVL 0 #> Set General Parameters and Labels for Configuring the Simulation set VRSN = ${wrfv}55 #> Code Version set PROC = mpi #> serial or mpi set MECH = cb6r5_ae7_aq #> Mechanism ID set APPL = Bench_2018_12NE3 #> Application Name (e.g. Domain) #> Define RUNID as any combination of parameters above or others. By default, #> this information will be collected into this one string, $RUNID, for easy #> referencing in output binaries and log files as well as in other scripts. setenv RUNID ${VRSN}_${APPL} set EXEC = wrf.exe #> Output Each line of Runscript to Log File if ( $CTM_DIAG_LVL != 0 ) set echo # Set Working, Input, and Output Directories set WORKDIR = ${PWD} # Pathname of current Working Directory set WRF_DIR = $WORKDIR/BLD_WRFv${wrfv}_CCTM_v55_gcc # Location of WRF-CMAQ Install set INPDIR = ${CMAQ_DATA}/2018_12NE3 # Input directory for WRF & CMAQ set OUTPUT_ROOT = $WORKDIR # output root directory set output_direct_name = WRFCMAQ-output-${version} # Output Directory Name setenv OUTDIR ${CMAQ_DATA}/$output_direct_name # output files and directories set NMLpath = $WRF_DIR/cmaq # path with *.nml file mechanism dependent echo "" echo "Working Directory is $WORKDIR" echo "Output Root Directory is $OUTPUT_ROOT" echo "Executable Name is $EXEC" # ===================================================================== # WRF-CMAQ coupled Configuration Options # ===================================================================== #> Set Start and End Days for looping setenv NEW_START TRUE # Set to FALSE for model restart set START_DATE = "2018-07-01" # beginning date (July 1, 2016) set END_DATE = "2018-07-02" # ending date (July 14, 2016) #> Set Timestepping Parameters set STTIME = 000000 # beginning GMT time (HHMMSS) set NSTEPS = 240000 # time duration (HHMMSS) for this run set TSTEP = 010000 # output time step interval (HHMMSS) set resolution = 12000 # domain resolution in meter set wrf_cmaq_option = ${option} # 0 = run WRF only # 1 = run WRF only and produce GRID and MET files as well # 2 = run WRF-CMAQ coupled model w/o producing GRID and MET files # 3 = run WRF-CMAQ coupled model w producing GRID and MET files set direct_sw_feedback = .true. # direct Shortwave aerosol feedback effect [.false] set wrf_cmaq_freq = 5 # WRF-CMAQ couple model frequency [1] set cont_from_spinup_run = T # indicates whether a wrf spinup run prior to the twoway model run set wrf_tstep = 60 # WRF model time-step set NUM_LAND_USE_TYPE = 40 # MODIS IS 20, USGS is 24, NCLD50 is 50, NCLD40 is 40 set radt = 20 # radiation module time step set met_file_tstep = 10000 set ltg_assim = .false. # Option for lightning assimilation in Kain-Fritsch when cu_physics=1 [ .false. ] set suppress_opt = 0 # Suppression option if ltg assim used. # 0 = nosuppress # 1 = fullsuppress # 2 = shallonly setenv CTM_LTNG_OPTION 0 # 0 - use nothing # 1 - use WRF convective cloud calculation currently # this only work with two-way coupled model # 2 - use lightning flashes data # 3 - use lightning parameter # 4 - use NOx emission data file if ($$direct_sw_feedback == .true.) then set feedback = sf else set feedback = nf endif #> Keep or Delete Existing Output Files set CLOBBER_DATA = TRUE setenv PRINT_PROC_TIME Y # Print timing for all science subprocesses to Logfile # [ TRUE or Y ] setenv STDOUT T # Override I/O-API trying to write information to both the processor # logs and STDOUT [ options: T | F ] setenv GRID_NAME 2018_12NE3 # check GRIDDESC file for GRID_NAME options setenv GRIDDESC $OUTDIR/GRIDDESC # grid description file #> WRF-CMAQ number of columns, rows and layers setenv WRF_COL_DIM 113 # wrf west_east_stag setenv WRF_ROW_DIM 118 # wrf south_north_stag setenv WRF_LAY_DIM 36 # wrf bottom_top_stag setenv CMAQ_COL_DIM 100 # CMAQ Domain Columns setenv CMAQ_ROW_DIM 105 # CMAQ Domain Rows setenv TWOWAY_DELTA_X 6 # distance between the wrf and cmaq lower left corner in the x-direction setenv TWOWAY_DELTA_Y 6 # distance between the wrf and cmaq lower left corner in the y-direction setenv WRF_LC_REF_LAT 40.0 # WRF Lambert conformal reference latitude if (! -e $OUTDIR ) then mkdir -p $OUTDIR endif # convert STTIME to WRF format HH:MM::SS @ second = $STTIME % 100 @ minute = ($STTIME / 100) % 100 @ hour = $STTIME / 10000 set wrf_sttime = `date -ud "$hour":"$minute":"$second" +%H:%M:%S` set wrf_hr = $NSTEPS #> setup wrf start hour, minute, and second @ wrf_sec = $NSTEPS % 100 @ wrf_min = ($NSTEPS / 100) % 100 @ wrf_hr = $NSTEPS / 10000 @ wrf_restart_interval = $wrf_min + ($wrf_hr * 60) # Output Species and Layer Options # CONC file species; comment or set to "ALL" to write all species to CONC #setenv CONC_SPCS "O3 NO ANO3I ANO3J NO2 FORM ISOP NH3 ANH4I ANH4J ASO4I ASO4J" #setenv CONC_BLEV_ELEV " 1 1" # CONC file layer range; comment to write all layers to CONC # ACONC file species; comment or set to "ALL" to write all species to ACONC # setenv AVG_CONC_SPCS "O3 NO CO NO2 ASO4I ASO4J NH3" setenv AVG_CONC_SPCS "ALL" setenv ACONC_BLEV_ELEV " 1 1" # ACONC file layer range; comment to write all layers to ACONC setenv AVG_FILE_ENDTIME N # override default beginning ACONC timestamp [ default: N ] # Synchronization Time Step and Tolerance Options setenv CTM_MAXSYNC 300 #> max sync time step (sec) [ default: 720 ] setenv CTM_MINSYNC 60 #> min sync time step (sec) [ default: 60 ] setenv SIGMA_SYNC_TOP 0.7 #> top sigma level thru which sync step determined [ default: 0.7 ] #setenv ADV_HDIV_LIM 0.95 #> maximum horiz. div. limit for adv step adjust [ default: 0.9 ] setenv CTM_ADV_CFL 0.95 #> max CFL [ default: 0.75] #setenv RB_ATOL 1.0E-09 #> global ROS3 solver absolute tolerance [ default: 1.0E-07 ] # Science Options setenv CTM_OCEAN_CHEM Y #> Flag for ocean halogen chemistry, sea spray aerosol emissions, #> and enhanced ozone deposition over ocean waters [ default: Y ] setenv CTM_WB_DUST N #> use inline windblown dust emissions [ Y ] setenv CTM_LTNG_NO N #> turn on lightning NOx [ N ] setenv KZMIN Y #> use Min Kz option in edyintb [ Y ], #> otherwise revert to Kz0UT setenv PX_VERSION Y #> WRF PX LSM setenv CLM_VERSION N #> WRF CLM LSM setenv NOAH_VERSION N #> WRF NOAH LSM setenv CTM_ABFLUX Y #> ammonia bi-directional flux for in-line deposition velocities [ N ] setenv CTM_BIDI_FERT_NH3 T #> subtract fertilizer NH3 from emissions because it will be handled #> by the BiDi calculation [ Y ] setenv CTM_HGBIDI N #> mercury bi-directional flux for in-line deposition velocities [ N ] setenv CTM_SFC_HONO Y #> surface HONO interaction [ Y ] setenv CTM_GRAV_SETL Y #> vdiff aerosol gravitational sedimentation [ Y ] setenv CTM_PVO3 N #> consider potential vorticity module for O3 transport from the stratosphere #> In WRF-CMAQ model, option also can activate calculating potential vorticity #> [default: N] setenv CTM_BIOGEMIS_BE Y #> calculate in-line biogenic emissions with BEIS [ default: N ] setenv CTM_BIOGEMIS_MG N #> turns on MEGAN biogenic emission [ default: N ] setenv BDSNP_MEGAN N #> turns on BDSNP soil NO emissions [ default: N ] setenv AEROSOL_OPTICS 3 #> sets method for determining aerosol optics affecting photolysis #> frequencies ( 3 is the default value ) #> VALUES 1 thru 3 determined Uniformly Volume Mixed spherical #> (1-Tabular Mie; 2-Mie Calculation; 3-Case Approx to Mie Theory) #> VALUES 4 thru 6 attempts to use core-shell mixing model when the #> aerosol mode has signficant black carbon core otherwise use Volume Mixed #> model where optics determined by #> (4-Tabular Mie; 5-Mie Calculation; 6-Case Approx to Mie Theory) setenv CTM_TURN_ON_PV N # WRF-CMAQ ONLY turn on/off PV [ N -- make sure compiled with pv on ] #> Surface Tiled Aerosol and Gaseous Exchange Options #> Only active if DepMod=stage at compile time setenv CTM_MOSAIC N #> Output landuse specific deposition velocities [ default: N ] setenv CTM_STAGE_P22 N #> Pleim et al. 2022 Aerosol deposition model [default: N] setenv CTM_STAGE_E20 Y #> Emerson et al. 2020 Aerosol deposition model [default: Y] setenv CTM_STAGE_S22 N #> Shu et al. 2022 (CMAQ v5.3) Aerosol deposition model [default: N] setenv IC_AERO_M2WET F #> Specify whether or not initial condition aerosol size distribution #> is wet or dry [ default: F = dry ] setenv BC_AERO_M2WET F #> Specify whether or not boundary condition aerosol size distribution #> is wet or dry [ default: F = dry ] setenv IC_AERO_M2USE F #> Specify whether or not to use aerosol surface area from initial #> conditions [ default: T = use aerosol surface area ] setenv BC_AERO_M2USE F #> Specify whether or not to use aerosol surface area from boundary #> conditions [ default: T = use aerosol surface area ] #> Vertical Extraction Options setenv VERTEXT N # setenv VERTEXT_COORD_PATH ${WORKDIR}/lonlat.csv #> I/O Controls setenv IOAPI_LOG_WRITE F #> turn on excess WRITE3 logging [ options: T | F ] setenv FL_ERR_STOP N #> stop on inconsistent input files setenv PROMPTFLAG F #> turn on I/O-API PROMPT*FILE interactive mode [ options: T | F ] setenv IOAPI_OFFSET_64 YES #> support large timestep records (>2GB/timestep record) [ options: YES | NO ] setenv IOAPI_CHECK_HEADERS N #> check file headers [ options: Y | N ] setenv CTM_EMISCHK N #> Abort CMAQ if missing surrogates from emissions Input files #> Diagnostic Output Flags setenv CTM_CKSUM Y #> checksum report [ Y ] setenv CLD_DIAG N #> cloud diagnostic file [ N ] setenv CTM_PHOTDIAG N #> photolysis diagnostic file [ N ] setenv NLAYS_PHOTDIAG "1" #> Number of layers for PHOTDIAG2 and PHOTDIAG3 from #> Layer 1 to NLAYS_PHOTDIAG [ default: all layers ] #setenv NWAVE_PHOTDIAG "294 303 310 316 333 381 607" # Wavelengths written for variables # in PHOTDIAG2 and PHOTDIAG3 # [ default: all wavelengths ] setenv CTM_SSEMDIAG N #> sea-spray emissions diagnostic file [ N ] setenv CTM_DUSTEM_DIAG N #> windblown dust emissions diagnostic file [ N ]; #> Ignore if CTM_WB_DUST = N setenv CTM_DEPV_FILE N #> deposition velocities diagnostic file [ N ] setenv VDIFF_DIAG_FILE N #> vdiff & possibly aero grav. sedimentation diagnostic file [ N ] setenv LTNGDIAG N #> lightning diagnostic file [ N ] setenv B3GTS_DIAG N #> BEIS mass emissions diagnostic file [ N ] setenv CTM_WVEL Y #> save derived vertical velocity component to conc file [ Y ] setenv SD_TIME_SERIES F # WRF-CMAQ sub domain time series output option [F] #setenv SD_SCOL 241 # WRF-CMAQ sub domain time series starting column #setenv SD_ECOL 248 # WRF-CMAQ sub domain time series ending column #setenv SD_SROW 160 # WRF-CMAQ sub domain time series starting row #setenv SD_EROW 169 # WRF-CMAQ sub domain time series ending row #setenv SD_CONC_SPCS "NO2 NO O3 NO3 CO ASO4J ASO4I ANH4J ANH4I ANO3J ANO3I AORGAJ AORGAI AORGPAJ AORGPAI AORGBJ AORGBI AECJ AECI A25J A25I ACORS ASEAS ASOIL" #> sub domain time series species subset list setenv FILE_TIME_STEP $met_file_tstep # ===================================================================== #> Input Directories and Filenames # ===================================================================== set ICpath = $INPDIR/icbc #> initial conditions input directory set BCpath = $INPDIR/icbc #> boundary conditions input directory set EMISpath = $INPDIR/emis #> gridded emissions input directory set IN_PTpath = $INPDIR/emis #> point source emissions input directory set IN_LTpath = $INPDIR/lightning #> lightning NOx input directory set METpath = $INPDIR/met/wrfv4.4_inputs #> meteorology input directory #set JVALpath = $INPDIR/jproc #> offline photolysis rate table directory set OMIpath = $WRF_DIR/cmaq #> ozone column data for the photolysis model set EPICpath = $INPDIR/epic #> EPIC putput for bidirectional NH3 set SZpath = $INPDIR/surface #> surf zone file for in-line seaspray emissions # ===================================================================== #> Begin Loop Through Simulation Days # ===================================================================== set rtarray = "" set TODAYG = ${START_DATE} set TODAYJ = `date -ud "${START_DATE}" +%Y%j` #> Convert YYYY-MM-DD to YYYYJJJ set START_DAY = ${TODAYJ} set STOP_DAY = `date -ud "${END_DATE}" +%Y%j` #> Convert YYYY-MM-DD to YYYYJJJ set NDAYS = 0 while ($TODAYJ <= $STOP_DAY ) #>Compare dates in terms of YYYYJJJ set NDAYS = `echo "${NDAYS} + 1" | bc -l` #> Retrieve Calendar day Information set YYYYMMDD = `date -ud "${TODAYG}" +%Y%m%d` #> Convert YYYY-MM-DD to YYYYMMDD set YYYYMM = `date -ud "${TODAYG}" +%Y%m` #> Convert YYYY-MM-DD to YYYYMM set YYMMDD = `date -ud "${TODAYG}" +%y%m%d` #> Convert YYYY-MM-DD to YYMMDD set YYYYJJJ = $TODAYJ #> Calculate Yesterday's Date set YESTERDAY = `date -ud "${TODAYG}-1days" +%Y%m%d` # ===================================================================== #> Set Output String and Propagate Model Configuration Documentation # ===================================================================== echo "" echo "Set up input and output files for Day ${TODAYG}." #> set output file name extensions setenv CTM_APPL ${RUNID}_${YYYYMMDD} setenv CTM_APPL_yesterday ${RUNID}_${YESTERDAY} #> Copy Model Configuration To Output Folder if ( ! -d "$OUTDIR" ) mkdir -p $OUTDIR # cp $BLD/cmaq/CCTM_${VRSN}.cfg $OUTDIR/CCTM_${CTM_APPL}.cfg # ===================================================================== #> Input Files (Some are Day-Dependent) # ===================================================================== #> Initial conditions if ($NEW_START == true || $NEW_START == TRUE ) then setenv ICFILE CCTM_ICON_v54_${MECH}_12NE3_20180701.nc setenv INIT_MEDC_1 notused #> WRF-CMAQ Configuration set feedback_restart = .false. # indicates no CMAQ aerosol information in the initial step if ($cont_from_spinup_run == T) then setenv WRF_RSTFLAG .TRUE. # indicates WRF restart file exist set pxlsm_smois_init = 0 # Init PX Soil Moisture from prevoius run else setenv WRF_RSTFLAG .false. # indicates WRF restart file does not exist set pxlsm_smois_init = 1 # Init PX Soil Moisture from TBL method endif else set ICpath = $OUTDIR setenv ICFILE CCTM_CGRID_${RUNID}_${YESTERDAY}.nc setenv INIT_MEDC_1 $ICpath/CCTM_MEDIA_CONC_${RUNID}_${YESTERDAY}.nc #> WRF-CMAQ Configuration setenv WRF_RSTFLAG .true. # indicates WRF restart file exist set feedback_restart = .true. # indicates CMAQ aerosol information is available set pxlsm_smois_init = 0 # Init PX Soil Moisture from prevoius run endif #> Boundary conditions set BCFILE = CCTM_BCON_v54_${MECH}_12NE3_${YYYYMMDD}.nc #> Off-line photolysis rates #set JVALfile = JTABLE_${YYYYJJJ} #> Ozone column data set OMIfile = OMI_1979_to_2019.dat #> Optics file set OPTfile = PHOT_OPTICS.dat #> MCIP meteorology files setenv GRID_BDY_2D BUFFERED # GRID files are static, not day-specific setenv GRID_CRO_2D BUFFERED setenv GRID_CRO_3D BUFFERED setenv GRID_DOT_2D BUFFERED setenv MET_CRO_2D BUFFERED setenv MET_CRO_3D BUFFERED setenv MET_DOT_3D BUFFERED setenv MET_BDY_3D BUFFERED #setenv LUFRAC_CRO BUFFERED #> Control Files #> #> IMPORTANT NOTE #> #> The DESID control files defined below are an integral part of controlling the behavior of the model simulation. #> Among other things, they control the mapping of species in the emission files to chemical species in the model and #> several aspects related to the simulation of organic aerosols. #> Please carefully review the DESID control files to ensure that they are configured to be consistent with the assumptions #> made when creating the emission files defined below and the desired representation of organic aerosols. #> For further information, please see: #> + AERO7 Release Notes section on 'Required emission updates': #> https://github.com/USEPA/CMAQ/blob/master/DOCS/Release_Notes/aero7_overview.md #> + CMAQ User's Guide section 6.9.3 on 'Emission Compatability': #> https://github.com/USEPA/CMAQ/blob/master/DOCS/Users_Guide/CMAQ_UG_ch06_model_configuration_options.md#6.9.3_Emission_Compatability #> + Emission Control (DESID) Documentation in the CMAQ User's Guide: #> https://github.com/USEPA/CMAQ/blob/master/DOCS/Users_Guide/Appendix/CMAQ_UG_appendixB_emissions_control.md #> setenv DESID_CTRL_NML ${WRF_DIR}/cmaq/CMAQ_Control_DESID.nml setenv DESID_CHEM_CTRL_NML ${WRF_DIR}/cmaq/CMAQ_Control_DESID_${MECH}.nml #> The following namelist configures aggregated output (via the Explicit and Lumped #> Air Quality Model Output (ELMO) Module), domain-wide budget output, and chemical #> family output. setenv MISC_CTRL_NML ${WRF_DIR}/cmaq/CMAQ_Control_Misc.nml #> The following namelist controls the mapping of meteorological land use types and the NH3 and Hg emission #> potentials setenv STAGECTRL_NML ${WRF_DIR}/cmaq/CMAQ_Control_STAGE.nml #> Spatial Masks For Emissions Scaling setenv CMAQ_MASKS $SZpath/OCEAN_07_L3m_MC_CHL_chlor_a_12NE3.nc #> horizontal grid-dependent ocean file #> Gridded Emissions Files setenv N_EMIS_GR 2 set EMISfile = emis_mole_all_${YYYYMMDD}_12NE3_nobeis_norwc_2018gc_cb6_18j.ncf setenv GR_EMIS_001 ${EMISpath}/merged_nobeis_norwc/${EMISfile} setenv GR_EMIS_LAB_001 GRIDDED_EMIS setenv GR_EM_SYM_DATE_001 F # To change default behaviour please see Users Guide for EMIS_SYM_DATE set EMISfile = emis_mole_rwc_${YYYYMMDD}_12NE3_cmaq_cb6ae7_2018gc_cb6_18j.ncf setenv GR_EMIS_002 ${EMISpath}/rwc/${EMISfile} setenv GR_EMIS_LAB_002 GR_RES_FIRES setenv GR_EM_SYM_DATE_002 F # To change default behaviour please see Users Guide for EMIS_SYM_DATE #> In-line point emissions configuration setenv N_EMIS_PT 10 #> Number of elevated source groups set STKCASEG = 12US1_2018gc_cb6_18j # Stack Group Version Label set STKCASEE = 12US1_cmaq_cb6ae7_2018gc_cb6_18j # Stack Emission Version Label # Time-Independent Stack Parameters for Inline Point Sources setenv STK_GRPS_001 $IN_PTpath/ptnonipm/stack_groups_ptnonipm_${STKCASEG}.ncf setenv STK_GRPS_002 $IN_PTpath/ptegu/stack_groups_ptegu_${STKCASEG}.ncf setenv STK_GRPS_003 $IN_PTpath/othpt/stack_groups_othpt_${STKCASEG}.ncf setenv STK_GRPS_004 $IN_PTpath/ptagfire/stack_groups_ptagfire_${YYYYMMDD}_${STKCASEG}.ncf setenv STK_GRPS_005 $IN_PTpath/ptfire-rx/stack_groups_ptfire-rx_${YYYYMMDD}_${STKCASEG}.ncf setenv STK_GRPS_006 $IN_PTpath/ptfire-wild/stack_groups_ptfire-wild_${YYYYMMDD}_${STKCASEG}.ncf setenv STK_GRPS_007 $IN_PTpath/ptfire_othna/stack_groups_ptfire_othna_${YYYYMMDD}_${STKCASEG}.ncf setenv STK_GRPS_008 $IN_PTpath/pt_oilgas/stack_groups_pt_oilgas_${STKCASEG}.ncf setenv STK_GRPS_009 $IN_PTpath/cmv_c3_12/stack_groups_cmv_c3_12_${STKCASEG}.ncf setenv STK_GRPS_010 $IN_PTpath/cmv_c1c2_12/stack_groups_cmv_c1c2_12_${STKCASEG}.ncf # Emission Rates for Inline Point Sources setenv STK_EMIS_001 $IN_PTpath/ptnonipm/inln_mole_ptnonipm_${YYYYMMDD}_${STKCASEE}.ncf setenv STK_EMIS_002 $IN_PTpath/ptegu/inln_mole_ptegu_${YYYYMMDD}_${STKCASEE}.ncf setenv STK_EMIS_003 $IN_PTpath/othpt/inln_mole_othpt_${YYYYMMDD}_${STKCASEE}.ncf setenv STK_EMIS_004 $IN_PTpath/ptagfire/inln_mole_ptagfire_${YYYYMMDD}_${STKCASEE}.ncf setenv STK_EMIS_005 $IN_PTpath/ptfire-rx/inln_mole_ptfire-rx_${YYYYMMDD}_${STKCASEE}.ncf setenv STK_EMIS_006 $IN_PTpath/ptfire-wild/inln_mole_ptfire-wild_${YYYYMMDD}_${STKCASEE}.ncf setenv STK_EMIS_007 $IN_PTpath/ptfire_othna/inln_mole_ptfire_othna_${YYYYMMDD}_${STKCASEE}.ncf setenv STK_EMIS_008 $IN_PTpath/pt_oilgas/inln_mole_pt_oilgas_${YYYYMMDD}_${STKCASEE}.ncf setenv STK_EMIS_009 $IN_PTpath/cmv_c3_12/inln_mole_cmv_c3_12_${YYYYMMDD}_${STKCASEE}.ncf setenv STK_EMIS_010 $IN_PTpath/cmv_c1c2_12/inln_mole_cmv_c1c2_12_${YYYYMMDD}_${STKCASEE}.ncf # Label Each Emissions Stream setenv STK_EMIS_LAB_001 PT_NONEGU setenv STK_EMIS_LAB_002 PT_EGU setenv STK_EMIS_LAB_003 PT_OTHER setenv STK_EMIS_LAB_004 PT_AGFIRES setenv STK_EMIS_LAB_005 PT_RXFIRES setenv STK_EMIS_LAB_006 PT_WILDFIRES setenv STK_EMIS_LAB_007 PT_OTHFIRES setenv STK_EMIS_LAB_008 PT_OILGAS setenv STK_EMIS_LAB_009 PT_CMV_C3 setenv STK_EMIS_LAB_010 PT_CMV_C1C2 # Allow CMAQ to Use Point Source files with dates that do not # match the internal model date # To change default behaviour please see Users Guide for EMIS_SYM_DATE setenv STK_EM_SYM_DATE_001 F setenv STK_EM_SYM_DATE_002 F setenv STK_EM_SYM_DATE_003 F setenv STK_EM_SYM_DATE_004 F setenv STK_EM_SYM_DATE_005 F setenv STK_EM_SYM_DATE_006 F setenv STK_EM_SYM_DATE_007 F setenv STK_EM_SYM_DATE_008 F #> Lightning NOx configuration if ( $CTM_LTNG_NO == 'Y' ) then setenv LTNGNO "InLine" #> set LTNGNO to "Inline" to activate in-line calculation #> In-line lightning NOx options setenv USE_NLDN Y #> use hourly NLDN strike file [ default: Y ] if ( $USE_NLDN == Y ) then setenv NLDN_STRIKES ${IN_LTpath}/NLDN.12US1.${YYYYMMDD}.ioapi endif setenv LTNGPARMS_FILE ${IN_LTpath}/LTNG_AllParms_12NE3.nc #> lightning parameter file endif #> In-line biogenic emissions configuration if ( $CTM_BIOGEMIS_BE == 'Y' ) then set IN_BEISpath = ${INPDIR}/surface setenv GSPRO ${WRF_DIR}/cmaq/gspro_biogenics.txt setenv BEIS_NORM_EMIS $IN_BEISpath/beis4_beld6_norm_emis.12NE3.nc setenv BEIS_SOILINP $OUTDIR/CCTM_BSOILOUT_${RUNID}_${YESTERDAY}.nc #> Biogenic NO soil input file; ignore if NEW_START = TRUE endif if ( $CTM_BIOGEMIS_MG == 'Y' ) then setenv MEGAN_SOILINP $OUTDIR/CCTM_MSOILOUT_${RUNID}_${YESTERDAY}.nc #> Biogenic NO soil input file; ignore if INITIAL_RUN = Y #> ; ignore if IGNORE_SOILINP = Y setenv MEGAN_CTS $SZpath/megan3.2/CT3_CONUS.ncf setenv MEGAN_EFS $SZpath/megan3.2/EFMAPS_CONUS.ncf setenv MEGAN_LDF $SZpath/megan3.2/LDF_CONUS.ncf if ($BDSNP_MEGAN == 'Y') then setenv BDSNPINP $OUTDIR/CCTM_BDSNPOUT_${RUNID}_${YESTERDAY}.nc setenv BDSNP_FFILE $SZpath/megan3.2/FERT_tceq_12km.ncf setenv BDSNP_NFILE $SZpath/megan3.2/NDEP_tceq_12km.ncf setenv BDSNP_LFILE $SZpath/megan3.2/LANDTYPE_tceq_12km.ncf setenv BDSNP_AFILE $SZpath/megan3.2/ARID_tceq_12km.ncf setenv BDSNP_NAFILE $SZpath/megan3.2/NONARID_tceq_12km.ncf endif endif #> In-line sea spray emissions configuration setenv OCEAN_1 $SZpath/OCEAN_07_L3m_MC_CHL_chlor_a_12NE3.nc #> horizontal grid-dependent ocean file #> Bidirectional ammonia configuration if ( $CTM_ABFLUX == 'Y' ) then setenv E2C_SOIL ${EPICpath}/2018r1_EPIC0509_12NE3_soil.nc setenv E2C_CHEM ${EPICpath}/2018r1_EPIC0509_12NE3_time${YYYYMMDD}.nc setenv E2C_CHEM_YEST ${EPICpath}/2018r1_EPIC0509_12NE3_time${YESTERDAY}.nc setenv E2C_LU ${EPICpath}/beld4_12NE3_2011.nc endif #> Inline Process Analysis setenv CTM_PROCAN N #> use process analysis [ default: N] if ( $?CTM_PROCAN ) then # $CTM_PROCAN is defined if ( $CTM_PROCAN == 'Y' || $CTM_PROCAN == 'T' ) then #> process analysis global column, row and layer ranges # setenv PA_BCOL_ECOL "10 90" # default: all columns # setenv PA_BROW_EROW "10 80" # default: all rows # setenv PA_BLEV_ELEV "1 4" # default: all levels setenv PACM_INFILE ${NMLpath}/pa_${MECH}.ctl setenv PACM_REPORT $OUTDIR/"PA_REPORT".${YYYYMMDD} endif endif #> Integrated Source Apportionment Method (ISAM) Options setenv CTM_ISAM N if ( $?CTM_ISAM ) then if ( $CTM_ISAM == 'Y' || $CTM_ISAM == 'T' ) then setenv SA_IOLIST ${WORKDIR}/isam_control.txt setenv ISAM_BLEV_ELEV " 1 1" setenv AISAM_BLEV_ELEV " 1 1" #> Set Up ISAM Initial Condition Flags if ($NEW_START == true || $NEW_START == TRUE ) then setenv ISAM_NEW_START Y setenv ISAM_PREVDAY else setenv ISAM_NEW_START N setenv ISAM_PREVDAY "$OUTDIR/CCTM_SA_CGRID_${RUNID}_${YESTERDAY}.nc" endif #> Set Up ISAM Output Filenames setenv SA_ACONC_1 "$OUTDIR/CCTM_SA_ACONC_${CTM_APPL}.nc -v" setenv SA_CONC_1 "$OUTDIR/CCTM_SA_CONC_${CTM_APPL}.nc -v" setenv SA_DD_1 "$OUTDIR/CCTM_SA_DRYDEP_${CTM_APPL}.nc -v" setenv SA_WD_1 "$OUTDIR/CCTM_SA_WETDEP_${CTM_APPL}.nc -v" setenv SA_CGRID_1 "$OUTDIR/CCTM_SA_CGRID_${CTM_APPL}.nc -v" #> Set optional ISAM regions files #setenv ISAM_REGIONS $INPDIR/GRIDMASK_STATES_12SE1.nc #> Options used to favor tracked species in reaction for Ozone-NOx chemistry setenv ISAM_O3_WEIGHTS 5 # weights for tracked species Default is 5 # OPTIONS # 1 does not weight any species # 2 weights NOx and subset of NOz species # 3 uses with from option 2 plus weight OVOC species, organic radicals and operators # 4 weight OVOC species, organic radicals and operators # 5 toggles between two weighting set based on VOC and NOx limited ozone production # Below options only used if ISAM_O3_WEIGHTS set to 5 setenv ISAM_NOX_CASE 2 # weights for tracked species when ozone production is NOx limited. Default is 2 setenv ISAM_VOC_CASE 4 # weights for tracked species when ozone production is VOC limited. Default is 4 setenv VOC_NOX_TRANS 0.35 # value of Prod H2O2 over Prod HNO3 less than where # ISAM_VOC_CASE weights are used. Otherwise, ISAM_NOX_CASE # weights are used. Default is 0.35 endif endif #> Sulfur Tracking Model (STM) setenv STM_SO4TRACK N #> sulfur tracking [ default: N ] if ( $?STM_SO4TRACK ) then if ( $STM_SO4TRACK == 'Y' || $STM_SO4TRACK == 'T' ) then #> option to normalize sulfate tracers [ default: Y ] setenv STM_ADJSO4 Y endif endif #> Decoupled Direct Method in 3D (DDM-3D) Options setenv CTM_DDM3D N # Sets up requisite script settings for DDM-3D (default is N/F) # Additionally requires for CCTM to be compiled for DDM-3D simulations set NPMAX = 1 # Number of sensitivity parameters defined in SEN_INPUT setenv SEN_INPUT ${WORKDIR}/sensinput.dat setenv DDM3D_HIGH N # allow higher-order sensitivity parameters in SEN_INPUT [ T | Y | F | N ] (default is N/F) if ($NEW_START == true || $NEW_START == TRUE ) then setenv DDM3D_RST N # begins from sensitivities from a restart file [ T | Y | F | N ] (default is Y/T) set S_ICpath = # sensitivity fields are initialized to 0.0 on the first hour of the first day set S_ICfile = else setenv DDM3D_RST Y # begins from sensitivities from a restart file [ T | Y | F | N ] (default is Y/T) set S_ICpath = $OUTDIR set S_ICfile = CCTM_SENGRID_${RUNID}_${YESTERDAY}.nc endif setenv CTM_NPMAX $NPMAX setenv CTM_SENS_1 "$OUTDIR/CCTM_SENGRID_${CTM_APPL}.nc -v" setenv A_SENS_1 "$OUTDIR/CCTM_ASENS_${CTM_APPL}.nc -v" setenv CTM_SWETDEP_1 "$OUTDIR/CCTM_SENWDEP_${CTM_APPL}.nc -v" setenv CTM_SDRYDEP_1 "$OUTDIR/CCTM_SENDDEP_${CTM_APPL}.nc -v" setenv INIT_SENS_1 $S_ICpath/$S_ICfile # ===================================================================== #> Output Files # ===================================================================== #> set output file names setenv S_CGRID "$OUTDIR/CCTM_CGRID_${CTM_APPL}.nc" #> 3D Inst. Concentrations setenv CTM_CONC_1 "$OUTDIR/CCTM_CONC_${CTM_APPL}.nc -v" #> On-Hour Concentrations setenv A_CONC_1 "$OUTDIR/CCTM_ACONC_${CTM_APPL}.nc -v" #> Hourly Avg. Concentrations setenv MEDIA_CONC "$OUTDIR/CCTM_MEDIA_CONC_${CTM_APPL}.nc -v" #> NH3 Conc. in Media setenv CTM_DRY_DEP_1 "$OUTDIR/CCTM_DRYDEP_${CTM_APPL}.nc -v" #> Hourly Dry Deposition setenv CTM_DEPV_DIAG "$OUTDIR/CCTM_DEPV_${CTM_APPL}.nc -v" #> Dry Deposition Velocities setenv B3GTS_S "$OUTDIR/CCTM_B3GTS_S_${CTM_APPL}.nc -v" #> Biogenic Emissions setenv BEIS_SOILOUT "$OUTDIR/CCTM_BSOILOUT_${CTM_APPL}.nc" #> Soil Emissions setenv MEGAN_SOILOUT "$OUTDIR/CCTM_MSOILOUT_${CTM_APPL}.nc" #> Soil Emissions setenv BDSNPOUT "$OUTDIR/CCTM_BDSNPOUT_${CTM_APPL}.nc" #> Soil Emissions setenv CTM_WET_DEP_1 "$OUTDIR/CCTM_WETDEP1_${CTM_APPL}.nc -v" #> Wet Dep From All Clouds setenv CTM_WET_DEP_2 "$OUTDIR/CCTM_WETDEP2_${CTM_APPL}.nc -v" #> Wet Dep From SubGrid Clouds setenv CTM_ELMO_1 "$OUTDIR/CCTM_ELMO_${CTM_APPL}.nc -v" #> On-Hour Particle Diagnostics setenv CTM_AELMO_1 "$OUTDIR/CCTM_AELMO_${CTM_APPL}.nc -v" #> Hourly Avg. Particle Diagnostics setenv CTM_RJ_1 "$OUTDIR/CCTM_PHOTDIAG1_${CTM_APPL}.nc -v" #> 2D Surface Summary from Inline Photolysis setenv CTM_RJ_2 "$OUTDIR/CCTM_PHOTDIAG2_${CTM_APPL}.nc -v" #> 3D Photolysis Rates setenv CTM_RJ_3 "$OUTDIR/CCTM_PHOTDIAG3_${CTM_APPL}.nc -v" #> 3D Optical and Radiative Results from Photolysis setenv CTM_SSEMIS_1 "$OUTDIR/CCTM_SSEMIS_${CTM_APPL}.nc -v" #> Sea Spray Emissions setenv CTM_DUST_EMIS_1 "$OUTDIR/CCTM_DUSTEMIS_${CTM_APPL}.nc -v" #> Dust Emissions setenv CTM_BUDGET "$OUTDIR/CCTM_BUDGET_${CTM_APPL}.txt -v" #> Budget [Default Off] setenv CTM_IPR_1 "$OUTDIR/CCTM_PA_1_${CTM_APPL}.nc -v" #> Process Analysis setenv CTM_IPR_2 "$OUTDIR/CCTM_PA_2_${CTM_APPL}.nc -v" #> Process Analysis setenv CTM_IPR_3 "$OUTDIR/CCTM_PA_3_${CTM_APPL}.nc -v" #> Process Analysis setenv CTM_IRR_1 "$OUTDIR/CCTM_IRR_1_${CTM_APPL}.nc -v" #> Chem Process Analysis setenv CTM_IRR_2 "$OUTDIR/CCTM_IRR_2_${CTM_APPL}.nc -v" #> Chem Process Analysis setenv CTM_IRR_3 "$OUTDIR/CCTM_IRR_3_${CTM_APPL}.nc -v" #> Chem Process Analysis setenv CTM_DRY_DEP_MOS "$OUTDIR/CCTM_DDMOS_${CTM_APPL}.nc -v" #> Dry Dep setenv CTM_DEPV_MOS "$OUTDIR/CCTM_DEPVMOS_${CTM_APPL}.nc -v" #> Dry Dep Velocity setenv CTM_VDIFF_DIAG "$OUTDIR/CCTM_VDIFF_DIAG_${CTM_APPL}.nc -v" #> Vertical Dispersion Diagnostic setenv CTM_VSED_DIAG "$OUTDIR/CCTM_VSED_DIAG_${CTM_APPL}.nc -v" #> Particle Grav. Settling Velocity setenv CTM_LTNGDIAG_1 "$OUTDIR/CCTM_LTNGHRLY_${CTM_APPL}.nc -v" #> Hourly Avg Lightning NO setenv CTM_LTNGDIAG_2 "$OUTDIR/CCTM_LTNGCOL_${CTM_APPL}.nc -v" #> Column Total Lightning NO setenv CTM_VEXT_1 "$OUTDIR/CCTM_VEXT_${CTM_APPL}.nc -v" #> On-Hour 3D Concs at select sites # this is for creating physical files setenv PGRID_DOT_2D "$OUTDIR/GRID_DOT_2D_${CTM_APPL}.nc -v" setenv PGRID_CRO_2D "$OUTDIR/GRID_CRO_2D_${CTM_APPL}.nc -v" setenv PMET_CRO_2D "$OUTDIR/MET_CRO_2D_${CTM_APPL}.nc -v" setenv PMET_DOT_3D "$OUTDIR/MET_DOT_2D_${CTM_APPL}.nc -v" setenv PMET_CRO_3D "$OUTDIR/MET_CRO_3D_${CTM_APPL}.nc -v" # WRF-CMAQ Files if ($SD_TIME_SERIES == T) then setenv CTM_SD_TS "$OUTDIR/SD_TSfile_${CTM_APPL}.nc -v" endif setenv LAYER_FILE MET_CRO_3D @ n = 0 while ($n < $NPROCS) set name = `printf "_%3.3d\n" $n` setenv feed_back$name BUFFERED # for feedback file @ n++ end #> set floor file (neg concs) setenv FLOOR_FILE ${OUTDIR}/FLOOR_${CTM_APPL}.txt #> look for existing log files and output files ( ls CTM_LOG_???.${CTM_APPL} > buff.txt ) >& /dev/null ( ls ${OUTDIR}/CTM_LOG_???.${CTM_APPL} >> buff.txt ) >& /dev/null set log_test = `cat buff.txt`; rm -f buff.txt set OUT_FILES = (${FLOOR_FILE} ${S_CGRID} ${CTM_CONC_1} ${A_CONC_1} ${MEDIA_CONC} \ ${CTM_DRY_DEP_1} $CTM_DEPV_DIAG $B3GTS_S $MEGAN_SOILOUT $BEIS_SOILOUT $BDSNPOUT \ $CTM_WET_DEP_1 $CTM_WET_DEP_2 $CTM_ELMO_1 $CTM_AELMO_1 \ $CTM_RJ_1 $CTM_RJ_2 $CTM_RJ_3 $CTM_SSEMIS_1 $CTM_DUST_EMIS_1 $CTM_IPR_1 $CTM_IPR_2 \ $CTM_IPR_3 $CTM_BUDGET $CTM_IRR_1 $CTM_IRR_2 $CTM_IRR_3 $CTM_DRY_DEP_MOS \ $CTM_DEPV_MOS $CTM_VDIFF_DIAG $CTM_VSED_DIAG $CTM_LTNGDIAG_1 $CTM_LTNGDIAG_2 $CTM_VEXT_1 ) if ( $?CTM_ISAM ) then if ( $CTM_ISAM == 'Y' || $CTM_ISAM == 'T' ) then set OUT_FILES = (${OUT_FILES} ${SA_ACONC_1} ${SA_CONC_1} ${SA_DD_1} ${SA_WD_1} \ ${SA_CGRID_1} ) endif endif if ( $?CTM_DDM3D ) then if ( $CTM_DDM3D == 'Y' || $CTM_DDM3D == 'T' ) then set OUT_FILES = (${OUT_FILES} ${CTM_SENS_1} ${A_SENS_1} ${CTM_SWETDEP_1} ${CTM_SDRYDEP_1} ) endif endif set OUT_FILES = `echo $OUT_FILES | sed "s; -v;;g" | sed "s;MPI:;;g" ` ( ls $OUT_FILES > buff.txt ) >& /dev/null set out_test = `cat buff.txt`; rm -f buff.txt #> delete previous output if requested if ( $CLOBBER_DATA == true || $CLOBBER_DATA == TRUE ) then echo echo "Existing Logs and Output Files for Day ${TODAYG} Will Be Deleted" #> remove previous log files foreach file ( ${log_test} ) #echo "Deleting log file: $file" /bin/rm -f $file end #> remove previous output files foreach file ( ${out_test} ) #echo "Deleting output file: $file" /bin/rm -f $file end /bin/rm -f ${OUTDIR}/CCTM_DESID*${CTM_APPL}.nc else #> error if previous log files exist if ( "$log_test" != "" ) then echo "*** Logs exist - run ABORTED ***" echo "*** To overide, set CLOBBER_DATA = TRUE in run_cctm.csh ***" echo "*** and these files will be automatically deleted. ***" exit 1 endif #> error if previous output files exist if ( "$out_test" != "" ) then echo "*** Output Files Exist - run will be ABORTED ***" foreach file ( $out_test ) echo " cannot delete $file" end echo "*** To overide, set CLOBBER_DATA = TRUE in run_cctm.csh ***" echo "*** and these files will be automatically deleted. ***" exit 1 endif endif #> for the run control ... setenv CTM_STDATE $YYYYJJJ setenv CTM_STTIME $STTIME setenv CTM_RUNLEN $NSTEPS setenv CTM_TSTEP $TSTEP setenv INIT_CONC_1 $ICpath/$ICFILE setenv BNDY_CONC_1 $BCpath/$BCFILE setenv OMI $OMIpath/$OMIfile setenv MIE_TABLE $OUTDIR/mie_table_coeffs_${compilerString}.txt setenv OPTICS_DATA $OMIpath/$OPTfile #setenv XJ_DATA $JVALpath/$JVALfile set TR_DVpath = $METpath set TR_DVfile = $MET_CRO_2D #> species defn & photolysis setenv gc_matrix_nml ${NMLpath}/GC_$MECH.nml setenv ae_matrix_nml ${NMLpath}/AE_$MECH.nml setenv nr_matrix_nml ${NMLpath}/NR_$MECH.nml setenv tr_matrix_nml ${NMLpath}/Species_Table_TR_0.nml #> check for photolysis input data setenv CSQY_DATA ${NMLpath}/CSQY_DATA_$MECH cd $OUTDIR # =================================================================== #> Building WRF Namelist. # =================================================================== if ( -f namelist.input ) rm -f namelist.input cat << End_Of_Namelist > namelist.input &time_control run_hours = $wrf_hr, run_minutes = $wrf_min, run_seconds = $wrf_sec, start_year = `date -ud "${TODAYG}" +%Y`, start_month = `date -ud "${TODAYG}" +%m`, start_day = `date -ud "${TODAYG}" +%d`, start_hour = `date -ud "$wrf_sttime" +%H`, start_minute = `date -ud "$wrf_sttime" +%M`, start_second = `date -ud "$wrf_sttime" +%S`, interval_seconds = 10800, input_from_file = .true., HISTORY_INTERVAL = 60, FRAMES_PER_OUTFILE = 25, restart = $WRF_RSTFLAG, restart_interval = $wrf_restart_interval, write_hist_at_0h_rst = .true., io_form_history = 2, io_form_restart = 2, io_form_input = 2, io_form_boundary = 2, io_form_auxinput2 = 2, io_form_auxinput4 = 2, debug_level = 0, auxinput4_inname = "wrflowinp_d01", auxinput4_interval = 360, auxinput4_end_h = 1000000, reset_simulation_start = .false., / &wrf_cmaq wrf_cmaq_option = $wrf_cmaq_option, wrf_cmaq_freq = $wrf_cmaq_freq, met_file_tstep = $met_file_tstep, direct_sw_feedback = $direct_sw_feedback, feedback_restart = $feedback_restart, / &domains time_step = $wrf_tstep, time_step_fract_num = 0, time_step_fract_den = 1, max_dom = 1, s_we = 1, e_we = $WRF_COL_DIM, s_sn = 1, e_sn = $WRF_ROW_DIM, s_vert = 1, e_vert = $WRF_LAY_DIM, p_top_requested = 5000, eta_levels = 1.000, 0.9975, 0.995, 0.990, 0.985, 0.980, 0.970, 0.960, 0.950, 0.940, 0.930, 0.920, 0.910, 0.900, 0.880, 0.860, 0.840, 0.820, 0.800, 0.770, 0.740, 0.700, 0.650, 0.600, 0.550, 0.500, 0.450, 0.400, 0.350, 0.300, 0.250, 0.200, 0.150, 0.100, 0.050, 0.000 num_metgrid_levels = 40, dx = $resolution, dy = $resolution, grid_id = 1, parent_id = 0, i_parent_start = 0, j_parent_start = 0, parent_grid_ratio = 1, parent_time_step_ratio = 1, feedback = 1, smooth_option = 0, / &physics mp_physics = 10, mp_zero_out = 2, mp_zero_out_thresh = 1.0e-8, ra_lw_physics = 4, ra_sw_physics = 4, radt = $radt, co2tf = 1, sf_sfclay_physics = 7, num_soil_layers = 2, pxlsm_smois_init = $pxlsm_smois_init, pxlsm_modis_veg = 1, sf_surface_physics = 7, sf_urban_physics = 0, bl_pbl_physics = 7, bldt = 0, cu_physics = 1, kfeta_trigger = 2 cudt = 0, ishallow = 0, shcu_physics = 0, prec_acc_dt = 60, isfflx = 1, ifsnow = 1, icloud = 1, cu_rad_feedback = .true., surface_input_source = 1, num_land_cat = $NUM_LAND_USE_TYPE, num_soil_cat = 16, sst_update = 1, seaice_threshold = 100, slope_rad = 1, topo_shading = 1, shadlen = 25000., do_radar_ref = 1, grav_settling = 0, / &fdda grid_fdda = 1, grid_sfdda = 1, gfdda_inname = "wrffdda_d01", sgfdda_inname = "wrfsfdda_d01", pxlsm_soil_nudge = 1, sgfdda_end_h = 1000000, sgfdda_interval_m = 180, GFDDA_END_H = 1000000, gfdda_interval_m = 180, fgdt = 0, if_no_pbl_nudging_uv = 1, if_no_pbl_nudging_t = 1, if_no_pbl_nudging_q = 1, if_zfac_uv = 0, k_zfac_uv = 13, if_zfac_t = 0, k_zfac_t = 13, if_zfac_q = 0, k_zfac_q = 13, guv = 0.0001, gt = 0.0001, gq = 0.00001, guv_sfc = 0.0000, gt_sfc = 0.0000, gq_sfc = 0.0000, if_ramping = 1, dtramp_min = 60.0, io_form_gfdda = 2, rinblw = 250.0 / &dynamics hybrid_opt = 2, w_damping = 1, diff_opt = 1, km_opt = 4, diff_6th_opt = 2, diff_6th_factor = 0.12, damp_opt = 3, base_temp = 290. zdamp = 5000., dampcoef = 0.05, khdif = 0, kvdif = 0, non_hydrostatic = .true., moist_adv_opt = 2, tke_adv_opt = 2, scalar_adv_opt = 2, use_theta_m = 1, / &bdy_control spec_bdy_width = 5, spec_zone = 1, relax_zone = 4, specified = .true., spec_exp = 0.0, nested = .false., / &grib2 / &namelist_quilt nio_tasks_per_group = 0, nio_groups = 1, / End_Of_Namelist rm -f wrfbdy_d01 wrffdda_d01 wrfsfdda_d01 wrfinput_d01 wrflowinp_d01 ln -sf $METpath/wrfbdy_d01 wrfbdy_d01 ln -sf $METpath/wrffdda_d01 wrffdda_d01 ln -sf $METpath/wrfsfdda_d01 wrfsfdda_d01 if (${WRF_RSTFLAG} == .false.) then ln -sf $METpath/wrfinput_d01 wrfinput_d01 else if (${WRF_RSTFLAG} == .TRUE.) then ln -sf $METpath/wrfrst_d01_${TODAYG}_00:00:00 endif ln -sf $METpath/wrflowinp_d01 wrflowinp_d01 #----------------------------------------------------------------------- # Set up and run WRF-EM executable. #----------------------------------------------------------------------- if ( -f wrf.exe ) rm -f wrf.exe if ( -f ETAMPNEW_DATA ) rm -f ETAMPNEW_DATA if ( -f GENPARM.TBL ) rm -f GENPARM.TBL if ( -f landFilenames ) rm -f landFilenames if ( -f LANDUSE.TBL ) rm -f LANDUSE.TBL if ( -f RRTM_DATA ) rm -f RRTM_DATA if ( -f SOILPARM.TBL ) rm -f SOILPARM.TBL if ( -f tr49t67 ) rm -f tr49t67 if ( -f tr49t85 ) rm -f tr49t85 if ( -f tr67t85 ) rm -f tr67t85 if ( -f VEGPARM.TBL ) rm -f VEGPARM.TBL ln -s $WRF_DIR/main/wrf.exe wrf.exe ln -s $WRF_DIR/test/em_real/ETAMPNEW_DATA ETAMPNEW_DATA ln -s $WRF_DIR/test/em_real/GENPARM.TBL GENPARM.TBL ln -s $WRF_DIR/test/em_real/landFilenames landFilenames ln -s $WRF_DIR/test/em_real/LANDUSE.TBL LANDUSE.TBL ln -s $WRF_DIR/test/em_real/RRTM_DATA RRTM_DATA ln -s $WRF_DIR/test/em_real/RRTMG_SW_DATA RRTMG_SW_DATA ln -s $WRF_DIR/test/em_real/RRTMG_LW_DATA RRTMG_LW_DATA ln -s $WRF_DIR/test/em_real/SOILPARM.TBL SOILPARM.TBL ln -s $WRF_DIR/test/em_real/tr49t67 tr49t67 ln -s $WRF_DIR/test/em_real/tr49t85 tr49t85 ln -s $WRF_DIR/test/em_real/tr67t85 tr67t85 ln -s $WRF_DIR/test/em_real/VEGPARM.TBL VEGPARM.TBL ln -s $WRF_DIR/test/em_real/ozone_plev.formatted ozone_plev.formatted ln -s $WRF_DIR/test/em_real/ozone_lat.formatted ozone_lat.formatted ln -s $WRF_DIR/test/em_real/ozone.formatted ozone.formatted ln -s $WRF_DIR/test/em_real/CAMtr_volume_mixing_ratio CAMtr_volume_mixing_ratio # =================================================================== #> Execution Portion # =================================================================== #> Print Startup Dialogue Information to Standard Out echo echo "CMAQ Processing of Day $YYYYMMDD Began at `date`" echo ls -al ${OUTDIR}/wrf.exe date time mpirun -np $NPROCS ${OUTDIR}/wrf.exe date #> Harvest Timing Output so that it may be reported below # set rtarray = "${rtarray} `tail -3 buff_${EXECUTION_ID}.txt | grep -Eo '[+-]?[0-9]+([.][0-9]+)?' | head -1` " # rm -rf buff_${EXECUTION_ID}.txt #> Abort script if abnormal termination if ($wrf_cmaq_option > 1) then if ( ! -e $OUTDIR/CCTM_CGRID_${CTM_APPL}.nc ) then echo "" echo "**************************************************************" echo "** Runscript Detected an Error: CGRID file was not written. **" echo "** This indicates that CMAQ was interrupted or an issue **" echo "** exists with writing output. The runscript will now **" echo "** abort rather than proceeding to subsequent days. **" echo "**************************************************************" break endif #> Print Concluding Text echo echo "CMAQ Processing of Day $YYYYMMDD Finished at `date`" echo echo "\\\\\=====\\\\\=====\\\\\=====\\\\\=====/////=====/////=====/////=====/////" echo endif # =================================================================== #> Finalize Run for This Day and Loop to Next Day # =================================================================== #> Save Log Files and Move on to Next Simulation Day #mv CTM_LOG_???.${CTM_APPL} $OUTDIR #> WRF-CMAQ LOGS are combined into WRF_LOGS no CTM_LOGS_* will be generated if ( ! -e $OUTDIR/${TODAYJ}) then mkdir $OUTDIR/${TODAYJ} endif mv rsl.* $OUTDIR/${TODAYJ} if (($wrf_cmaq_option == 1) || ($wrf_cmaq_option == 3)) then mv MET* $OUTDIR/${TODAYJ} mv GRI* $OUTDIR/${TODAYJ} endif if ( $CTM_DIAG_LVL != 0 ) then mv CTM_DIAG_???.${CTM_APPL} $OUTDIR endif #> The next simulation day will, by definition, be a restart setenv NEW_START false #> Increment both Gregorian and Julian Days set TODAYG = `date -ud "${TODAYG}+1days" +%Y-%m-%d` #> Add a day for tomorrow set TODAYJ = `date -ud "${TODAYG}" +%Y%j` #> Convert YYYY-MM-DD to YYYYJJJ end #Loop to the next Simulation Day # =================================================================== #> Generate Timing Report # =================================================================== set RTMTOT = 0 foreach it ( `seq ${NDAYS}` ) set rt = `echo ${rtarray} | cut -d' ' -f${it}` set RTMTOT = `echo "${RTMTOT} + ${rt}" | bc -l` end set RTMAVG = `echo "scale=2; ${RTMTOT} / ${NDAYS}" | bc -l` set RTMTOT = `echo "scale=2; ${RTMTOT} / 1" | bc -l` echo echo "==================================" echo " ***** CMAQ TIMING REPORT *****" echo "==================================" echo "Start Day: ${START_DATE}" echo "End Day: ${END_DATE}" echo "Number of Simulation Days: ${NDAYS}" echo "Domain Name: ${GRID_NAME}" echo "Number of Processes: ${NPROCS}" echo " All times are in seconds." echo echo "Num Day Wall Time" set d = 0 set day = ${START_DATE} foreach it ( `seq ${NDAYS}` ) # Set the right day and format it set d = `echo "${d} + 1" | bc -l` set n = `printf "%02d" ${d}` # Choose the correct time variables set rt = `echo ${rtarray} | cut -d' ' -f${it}` # Write out row of timing data echo "${n} ${day} ${rt}" # Increment day for next loop set day = `date -ud "${day}+1days" +%Y-%m-%d` end echo " Total Time = ${RTMTOT}" echo " Avg. Time = ${RTMAVG}" exit ================================================ FILE: CCTM/scripts/run_cctm_Bench_2018_12NE3_CB6R5.csh ================================================ #!/bin/csh -f # ===================== CCTMv5.5.X Run Script ========================= # Usage: run_cctm_Bench_2018_12NE3.csh >&! cctm_Bench_2018_12NE3.log & # Slurm Usage: sbatch run_cctm_Bench_2018_12NE3.csh # # To report problems or request help with this script/program: # http://www.epa.gov/cmaq (EPA CMAQ Website) # http://www.cmascenter.org (CMAS Website) # =================================================================== # =================================================================== #> Runtime Environment Options # =================================================================== echo 'Start Model Run At ' `date` #> Toggle Diagnostic Mode which will print verbose information to #> standard output setenv CTM_DIAG_LVL 0 #> Choose compiler and set up CMAQ environment with correct #> libraries using config.cmaq. Options: intel | gcc | pgi if ( ! $?compiler ) then setenv compiler intel endif if ( ! $?compilerVrsn ) then setenv compilerVrsn Empty endif #> Source the config.cmaq file to set the build environment cd ../.. source ./config_cmaq.csh $compiler $compilerVrsn cd CCTM/scripts #> Set General Parameters for Configuring the Simulation set VRSN = v55 #> Code Version set PROC = mpi #> serial or mpi set MECH = cb6r5_ae7_aq #> Mechanism ID, depends on the bldit_cctm.csh settings set DEP = m3dry #> m3dry or stage, depending on bldit_cctm.csh settings set APPL = Bench_2018_12NE3_${MECH}_${DEP} #> Application Name (e.g. Gridname) #> Define RUNID as any combination of parameters above or others. By default, #> this information will be collected into this one string, $RUNID, for easy #> referencing in output binaries and log files as well as in other scripts. setenv RUNID ${VRSN}_${compilerString}_${APPL} #> Set the build directory (this is where the CMAQ executable #> is located by default). set BLD = ${CMAQ_HOME}/CCTM/scripts/BLD_CCTM_${VRSN}_${compilerString}_${MECH}_${DEP} set EXEC = CCTM_${VRSN}.exe #> Output Each line of Runscript to Log File if ( $CTM_DIAG_LVL != 0 ) set echo #> Set Working, Input, and Output Directories setenv WORKDIR ${CMAQ_HOME}/CCTM/scripts #> Working Directory. Where the runscript is. setenv OUTDIR ${CMAQ_DATA}/output_CCTM_${RUNID} #> Output Directory setenv INPDIR ${CMAQ_DATA}/CMAQv5.4_2018_12NE3_Benchmark_2Day_Input/2018_12NE3 #> Input Directory setenv LOGDIR ${OUTDIR}/LOGS #> Log Directory Location setenv NMLpath ${BLD} #> Location of Namelists. Common places are: #> ${WORKDIR} | ${CCTM_SRC}/MECHS/${MECH} | ${BLD} echo "" echo "Working Directory is $WORKDIR" echo "Build Directory is $BLD" echo "Output Directory is $OUTDIR" echo "Log Directory is $LOGDIR" echo "Executable Name is $EXEC" # ===================================================================== #> CCTM Configuration Options # ===================================================================== #> Set Start and End Days for looping setenv NEW_START TRUE #> Set to FALSE for model restart set START_DATE = "2018-07-01" #> beginning date (July 1, 2016) set END_DATE = "2018-07-02" #> ending date (July 1, 2016) #> Set Timestepping Parameters set STTIME = 000000 #> beginning GMT time (HHMMSS) set NSTEPS = 240000 #> time duration (HHMMSS) for this run set TSTEP = 010000 #> output time step interval (HHMMSS) #> Horizontal domain decomposition if ( $PROC == serial ) then setenv NPCOL_NPROW "1 1"; set NPROCS = 1 # single processor setting else @ NPCOL = 8; @ NPROW = 4 @ NPROCS = $NPCOL * $NPROW setenv NPCOL_NPROW "$NPCOL $NPROW"; endif #> Define Execution ID: e.g. [CMAQ-Version-Info]_[User]_[Date]_[Time] if ( ! -e ${BLD}/CCTM_${VRSN}.cfg ) then set SHAID = "" else set SHAID = `grep "sha_ID" ${BLD}/CCTM_${VRSN}.cfg | cut -c 13-22` if ( $SHAID == not_a_repo ) then set SHAID = "" else set SHAID = "_sha="$SHAID endif endif setenv EXECUTION_ID "CMAQ_CCTM${VRSN}${SHAID}_`id -u -n`_`date -u +%Y%m%d_%H%M%S_%N`" #> Inform IO/API of the Execution ID echo "" echo "---CMAQ EXECUTION ID: $EXECUTION_ID ---" #> Keep or Delete Existing Output Files set CLOBBER_DATA = TRUE #> Logfile Options #> Master Log File Name; uncomment to write standard output to a log, otherwise write to screen #setenv LOGFILE $CMAQ_HOME/$RUNID.log if (! -e $LOGDIR ) then mkdir -p $LOGDIR endif setenv PRINT_PROC_TIME Y #> Print timing for all science subprocesses to Logfile #> [ default: TRUE or Y ] setenv STDOUT T #> Override I/O-API trying to write information to both the processor #> logs and STDOUT [ options: T | F ] setenv GRID_NAME 2018_12NE3 #> check GRIDDESC file for GRID_NAME options setenv GRIDDESC $INPDIR/GRIDDESC #> grid description file #> Retrieve the number of columns, rows, and layers in this simulation set NZ = 35 set NX = `grep -A 1 ${GRID_NAME} ${GRIDDESC} | tail -1 | sed 's/ */ /g' | cut -d' ' -f6` set NY = `grep -A 1 ${GRID_NAME} ${GRIDDESC} | tail -1 | sed 's/ */ /g' | cut -d' ' -f7` set NCELLS = `echo "${NX} * ${NY} * ${NZ}" | bc -l` #> Output Species and Layer Options #> CONC file species; comment or set to "ALL" to write all species to CONC # setenv CONC_SPCS "O3 NO ANO3I ANO3J NO2 FORM ISOP NH3 ANH4I ANH4J ASO4I ASO4J" # setenv CONC_BLEV_ELEV " 1 1" #> CONC file layer range; comment to write all layers to CONC #> ACONC file species; comment or set to "ALL" to write all species to ACONC #setenv AVG_CONC_SPCS "O3 NO CO NO2 ASO4I ASO4J NH3" setenv AVG_CONC_SPCS "ALL" setenv ACONC_BLEV_ELEV " 1 1" #> ACONC file layer range; comment to write all layers to ACONC setenv AVG_FILE_ENDTIME N #> override default beginning ACONC timestamp [ default: N ] #> Synchronization Time Step and Tolerance Options setenv CTM_MAXSYNC 300 #> max sync time step (sec) [ default: 720 ] setenv CTM_MINSYNC 60 #> min sync time step (sec) [ default: 60 ] setenv SIGMA_SYNC_TOP 0.7 #> top sigma level thru which sync step determined [ default: 0.7 ] #setenv ADV_HDIV_LIM 0.95 #> maximum horiz. div. limit for adv step adjust [ default: 0.9 ] setenv CTM_ADV_CFL 0.95 #> max CFL [ default: 0.75] #setenv RB_ATOL 1.0E-09 #> global ROS3 solver absolute tolerance [ default: 1.0E-07 ] #> Science Options setenv CTM_OCEAN_CHEM Y #> Flag for ocean halogen chemistry, sea spray aerosol emissions, #> and enhanced ozone deposition over ocean waters [ default: Y ] setenv CTM_WB_DUST N #> use inline windblown dust emissions (only for use with PX) [ default: N ] setenv CTM_LTNG_NO N #> turn on lightning NOx [ default: N ] setenv KZMIN Y #> use Min Kz option in edyintb [ default: Y ], #> otherwise revert to Kz0UT setenv PX_VERSION Y #> WRF PX LSM setenv CLM_VERSION N #> WRF CLM LSM setenv NOAH_VERSION N #> WRF NOAH LSM setenv CTM_ABFLUX Y #> ammonia bi-directional flux for in-line deposition #> velocities [ default: N ] setenv CTM_BIDI_FERT_NH3 T #> subtract fertilizer NH3 from emissions because it will be handled #> by the BiDi calculation [ default: Y ] setenv CTM_HGBIDI N #> mercury bi-directional flux for in-line deposition #> velocities [ default: N ] setenv CTM_SFC_HONO Y #> surface HONO interaction [ default: Y ] #> please see user guide (6.10.4 Nitrous Acid (HONO)) #> for dependency on percent urban fraction dataset setenv CTM_GRAV_SETL Y #> vdiff aerosol gravitational sedimentation [ default: Y ] setenv CTM_PVO3 N #> consider potential vorticity module for O3 transport from the stratosphere #> [default: N] setenv CTM_BIOGEMIS_BE Y #> calculate in-line biogenic emissions with BEIS [ default: N ] setenv CTM_BIOGEMIS_MG N #> turns on MEGAN biogenic emission [ default: N ] setenv BDSNP_MEGAN N #> turns on BDSNP soil NO emissions [ default: N ] setenv AEROSOL_OPTICS 3 #> sets method for determining aerosol optics affecting photolysis #> frequencies ( 3 is the default value ) #> VALUES 1 thru 3 determined Uniformly Volume Mixed spherical #> (1-Tabular Mie; 2-Mie Calculation; 3-Case Approx to Mie Theory) #> VALUES 4 thru 6 attempts to use core-shell mixing model when the #> aerosol mode has signficant black carbon core otherwise use Volume Mixed #> model where optics determined by #> (4-Tabular Mie; 5-Mie Calculation; 6-Case Approx to Mie Theory) #> Surface Tiled Aerosol and Gaseous Exchange Options #> Only active if DepMod=stage at compile time setenv CTM_MOSAIC N #> Output landuse specific deposition velocities [ default: N ] setenv CTM_STAGE_P22 N #> Pleim et al. 2022 Aerosol deposition model [default: N] setenv CTM_STAGE_E20 Y #> Emerson et al. 2020 Aerosol deposition model [default: Y] setenv CTM_STAGE_S22 N #> Shu et al. 2022 (CMAQ v5.3) Aerosol deposition model [default: N] setenv IC_AERO_M2WET F #> Specify whether or not initial condition aerosol size distribution #> is wet or dry [ default: F = dry ] setenv BC_AERO_M2WET F #> Specify whether or not boundary condition aerosol size distribution #> is wet or dry [ default: F = dry ] setenv IC_AERO_M2USE F #> Specify whether or not to use aerosol surface area from initial #> conditions [ default: T = use aerosol surface area ] setenv BC_AERO_M2USE F #> Specify whether or not to use aerosol surface area from boundary #> conditions [ default: T = use aerosol surface area ] #> Vertical Extraction Options setenv VERTEXT N setenv VERTEXT_COORD_PATH ${WORKDIR}/lonlat.csv #> I/O Controls setenv IOAPI_LOG_WRITE F #> turn on excess WRITE3 logging [ options: T | F ] setenv FL_ERR_STOP N #> stop on inconsistent input files setenv PROMPTFLAG F #> turn on I/O-API PROMPT*FILE interactive mode [ options: T | F ] setenv IOAPI_OFFSET_64 YES #> support large timestep records (>2GB/timestep record) [ options: YES | NO ] setenv IOAPI_CHECK_HEADERS N #> check file headers [ options: Y | N ] setenv CTM_EMISCHK N #> Abort CMAQ if missing surrogates from emissions Input files #> Diagnostic Output Flags setenv CTM_CKSUM Y #> checksum report [ default: Y ] setenv CLD_DIAG N #> cloud diagnostic file [ default: N ] setenv CTM_PHOTDIAG N #> photolysis diagnostic file [ default: N ] setenv NLAYS_PHOTDIAG "1" #> Number of layers for PHOTDIAG2 and PHOTDIAG3 from #> Layer 1 to NLAYS_PHOTDIAG [ default: all layers ] #setenv NWAVE_PHOTDIAG "294 303 310 316 333 381 607" #> Wavelengths written for variables #> in PHOTDIAG2 and PHOTDIAG3 #> [ default: all wavelengths ] setenv CTM_SSEMDIAG N #> sea-spray emissions diagnostic file [ default: N ] setenv CTM_DUSTEM_DIAG N #> windblown dust emissions diagnostic file [ default: N ]; #> Ignore if CTM_WB_DUST = N setenv CTM_DEPV_FILE N #> deposition velocities diagnostic file [ default: N ] setenv VDIFF_DIAG_FILE N #> vdiff & possibly aero grav. sedimentation diagnostic file [ default: N ] setenv LTNGDIAG N #> lightning diagnostic file [ default: N ] setenv B3GTS_DIAG N #> BEIS mass emissions diagnostic file [ default: N ] setenv CTM_WVEL Y #> save derived vertical velocity component to conc #> file [ default: Y ] # ===================================================================== #> Input Directories and Filenames # ===================================================================== set ICpath = $INPDIR/icbc #> initial conditions input directory set BCpath = $INPDIR/icbc #> boundary conditions input directory set EMISpath = $INPDIR/emis #> gridded emissions input directory set IN_PTpath = $INPDIR/emis #> point source emissions input directory set IN_LTpath = $INPDIR/lightning #> lightning NOx input directory set METpath = $INPDIR/met/mcipv5.4 #> meteorology input directory #set JVALpath = $INPDIR/jproc #> offline photolysis rate table directory set OMIpath = $BLD #> ozone column data for the photolysis model set EPICpath = $INPDIR/epic #> EPIC putput for bidirectional NH3 set SZpath = $INPDIR/surface #> surf zone file for in-line seaspray emissions # ===================================================================== #> Begin Loop Through Simulation Days # ===================================================================== set rtarray = "" set TODAYG = ${START_DATE} set TODAYJ = `date -ud "${START_DATE}" +%Y%j` #> Convert YYYY-MM-DD to YYYYJJJ set START_DAY = ${TODAYJ} set STOP_DAY = `date -ud "${END_DATE}" +%Y%j` #> Convert YYYY-MM-DD to YYYYJJJ set NDAYS = 0 while ($TODAYJ <= $STOP_DAY ) #>Compare dates in terms of YYYYJJJ set NDAYS = `echo "${NDAYS} + 1" | bc -l` #> Retrieve Calendar day Information set YYYYMMDD = `date -ud "${TODAYG}" +%Y%m%d` #> Convert YYYY-MM-DD to YYYYMMDD set YYYYMM = `date -ud "${TODAYG}" +%Y%m` #> Convert YYYY-MM-DD to YYYYMM set YYMMDD = `date -ud "${TODAYG}" +%y%m%d` #> Convert YYYY-MM-DD to YYMMDD set MM = `date -ud "${TODAYG}" +%m` #> Convert YYYY-MM-DD to MM set YYYYJJJ = $TODAYJ #> Calculate Yesterday's Date set YESTERDAY = `date -ud "${TODAYG}-1days" +%Y%m%d` #> Convert YYYY-MM-DD to YYYYJJJ # ===================================================================== #> Set Output String and Propagate Model Configuration Documentation # ===================================================================== echo "" echo "Set up input and output files for Day ${TODAYG}." #> set output file name extensions setenv CTM_APPL ${RUNID}_${YYYYMMDD} #> Copy Model Configuration To Output Folder if ( ! -d "$OUTDIR" ) mkdir -p $OUTDIR cp $BLD/CCTM_${VRSN}.cfg $OUTDIR/CCTM_${CTM_APPL}.cfg # ===================================================================== #> Input Files (Some are Day-Dependent) # ===================================================================== #> Initial conditions if ($NEW_START == true || $NEW_START == TRUE ) then setenv ICFILE CCTM_ICON_v54_${MECH}_12NE3_20180701.nc setenv INIT_MEDC_1 notused else set ICpath = $OUTDIR setenv ICFILE CCTM_CGRID_${RUNID}_${YESTERDAY}.nc setenv INIT_MEDC_1 $ICpath/CCTM_MEDIA_CONC_${RUNID}_${YESTERDAY}.nc endif #> Boundary conditions set BCFILE = CCTM_BCON_v54_${MECH}_12NE3_${YYYYMMDD}.nc #> Off-line photolysis rates #set JVALfile = JTABLE_${YYYYJJJ} #> Ozone column data set OMIfile = OMI_1979_to_2019.dat #> Optics file set OPTfile = PHOT_OPTICS.dat #> MCIP meteorology files setenv GRID_BDY_2D $METpath/GRIDBDY2D_12NE3_${YYYYMMDD}.nc # GRID files are static, not day-specific setenv GRID_CRO_2D $METpath/GRIDCRO2D_12NE3_${YYYYMMDD}.nc setenv GRID_CRO_3D $METpath/GRIDCRO3D_12NE3_${YYYYMMDD}.nc setenv GRID_DOT_2D $METpath/GRIDDOT2D_12NE3_${YYYYMMDD}.nc setenv MET_CRO_2D $METpath/METCRO2D_12NE3_${YYYYMMDD}.nc setenv MET_CRO_3D $METpath/METCRO3D_12NE3_${YYYYMMDD}.nc setenv MET_DOT_3D $METpath/METDOT3D_12NE3_${YYYYMMDD}.nc setenv MET_BDY_3D $METpath/METBDY3D_12NE3_${YYYYMMDD}.nc setenv LUFRAC_CRO $METpath/LUFRAC_CRO_12NE3_${YYYYMMDD}.nc #> Control Files #> #> IMPORTANT NOTE #> #> The DESID control files defined below are an integral part of controlling the behavior of the model simulation. #> Among other things, they control the mapping of species in the emission files to chemical species in the model and #> several aspects related to the simulation of organic aerosols. #> Please carefully review the DESID control files to ensure that they are configured to be consistent with the assumptions #> made when creating the emission files defined below and the desired representation of organic aerosols. #> For further information, please see: #> + AERO7 Release Notes section on 'Required emission updates': #> https://github.com/USEPA/CMAQ/blob/master/DOCS/Release_Notes/aero7_overview.md #> + CMAQ User's Guide section 6.9.3 on 'Emission Compatability': #> https://github.com/USEPA/CMAQ/blob/master/DOCS/Users_Guide/CMAQ_UG_ch06_model_configuration_options.md#6.9.3_Emission_Compatability #> + Emission Control (DESID) Documentation in the CMAQ User's Guide: #> https://github.com/USEPA/CMAQ/blob/master/DOCS/Users_Guide/Appendix/CMAQ_UG_appendixB_emissions_control.md #> setenv DESID_CTRL_NML ${BLD}/CMAQ_Control_DESID.nml setenv DESID_CHEM_CTRL_NML ${BLD}/CMAQ_Control_DESID_${MECH}.nml #> The following namelist configures aggregated output (via the Explicit and Lumped #> Air Quality Model Output (ELMO) Module), domain-wide budget output, and chemical #> family output. setenv MISC_CTRL_NML ${BLD}/CMAQ_Control_Misc.nml #> The following namelist controls the mapping of meteorological land use types and the NH3 and Hg emission #> potentials setenv STAGECTRL_NML ${BLD}/CMAQ_Control_STAGE.nml #> Spatial Masks For Emissions Scaling #setenv CMAQ_MASKS $SZpath/OCEAN_${MM}_L3m_MC_CHL_chlor_a_12NE3.nc #> horizontal grid-dependent ocean file setenv CMAQ_MASKS $INPDIR/GRIDMASK_STATES_12NE3.nc #> Gridded Emissions Files setenv N_EMIS_GR 2 set EMISfile = emis_mole_all_${YYYYMMDD}_12NE3_nobeis_norwc_2018gc_cb6_18j.ncf setenv GR_EMIS_001 ${EMISpath}/merged_nobeis_norwc/${EMISfile} setenv GR_EMIS_LAB_001 GRIDDED_EMIS setenv GR_EM_SYM_DATE_001 F # To change default behaviour please see Users Guide for EMIS_SYM_DATE set EMISfile = emis_mole_rwc_${YYYYMMDD}_12NE3_cmaq_cb6ae7_2018gc_cb6_18j.ncf setenv GR_EMIS_002 ${EMISpath}/rwc/${EMISfile} setenv GR_EMIS_LAB_002 GR_RES_FIRES setenv GR_EM_SYM_DATE_002 F # To change default behaviour please see Users Guide for EMIS_SYM_DATE #> In-line point emissions configuration setenv N_EMIS_PT 10 #> Number of elevated source groups set STKCASEG = 12US1_2018gc_cb6_18j # Stack Group Version Label set STKCASEE = 12US1_cmaq_cb6ae7_2018gc_cb6_18j # Stack Emission Version Label # Time-Independent Stack Parameters for Inline Point Sources setenv STK_GRPS_001 $IN_PTpath/ptnonipm/stack_groups_ptnonipm_${STKCASEG}.ncf setenv STK_GRPS_002 $IN_PTpath/ptegu/stack_groups_ptegu_${STKCASEG}.ncf setenv STK_GRPS_003 $IN_PTpath/othpt/stack_groups_othpt_${STKCASEG}.ncf setenv STK_GRPS_004 $IN_PTpath/ptagfire/stack_groups_ptagfire_${YYYYMMDD}_${STKCASEG}.ncf setenv STK_GRPS_005 $IN_PTpath/ptfire-rx/stack_groups_ptfire-rx_${YYYYMMDD}_${STKCASEG}.ncf setenv STK_GRPS_006 $IN_PTpath/ptfire-wild/stack_groups_ptfire-wild_${YYYYMMDD}_${STKCASEG}.ncf setenv STK_GRPS_007 $IN_PTpath/ptfire_othna/stack_groups_ptfire_othna_${YYYYMMDD}_${STKCASEG}.ncf setenv STK_GRPS_008 $IN_PTpath/pt_oilgas/stack_groups_pt_oilgas_${STKCASEG}.ncf setenv STK_GRPS_009 $IN_PTpath/cmv_c3_12/stack_groups_cmv_c3_12_${STKCASEG}.ncf setenv STK_GRPS_010 $IN_PTpath/cmv_c1c2_12/stack_groups_cmv_c1c2_12_${STKCASEG}.ncf # Emission Rates for Inline Point Sources setenv STK_EMIS_001 $IN_PTpath/ptnonipm/inln_mole_ptnonipm_${YYYYMMDD}_${STKCASEE}.ncf setenv STK_EMIS_002 $IN_PTpath/ptegu/inln_mole_ptegu_${YYYYMMDD}_${STKCASEE}.ncf setenv STK_EMIS_003 $IN_PTpath/othpt/inln_mole_othpt_${YYYYMMDD}_${STKCASEE}.ncf setenv STK_EMIS_004 $IN_PTpath/ptagfire/inln_mole_ptagfire_${YYYYMMDD}_${STKCASEE}.ncf setenv STK_EMIS_005 $IN_PTpath/ptfire-rx/inln_mole_ptfire-rx_${YYYYMMDD}_${STKCASEE}.ncf setenv STK_EMIS_006 $IN_PTpath/ptfire-wild/inln_mole_ptfire-wild_${YYYYMMDD}_${STKCASEE}.ncf setenv STK_EMIS_007 $IN_PTpath/ptfire_othna/inln_mole_ptfire_othna_${YYYYMMDD}_${STKCASEE}.ncf setenv STK_EMIS_008 $IN_PTpath/pt_oilgas/inln_mole_pt_oilgas_${YYYYMMDD}_${STKCASEE}.ncf setenv STK_EMIS_009 $IN_PTpath/cmv_c3_12/inln_mole_cmv_c3_12_${YYYYMMDD}_${STKCASEE}.ncf setenv STK_EMIS_010 $IN_PTpath/cmv_c1c2_12/inln_mole_cmv_c1c2_12_${YYYYMMDD}_${STKCASEE}.ncf # Label Each Emissions Stream setenv STK_EMIS_LAB_001 PT_NONEGU setenv STK_EMIS_LAB_002 PT_EGU setenv STK_EMIS_LAB_003 PT_OTHER setenv STK_EMIS_LAB_004 PT_AGFIRES setenv STK_EMIS_LAB_005 PT_RXFIRES setenv STK_EMIS_LAB_006 PT_WILDFIRES setenv STK_EMIS_LAB_007 PT_OTHFIRES setenv STK_EMIS_LAB_008 PT_OILGAS setenv STK_EMIS_LAB_009 PT_CMV_C3 setenv STK_EMIS_LAB_010 PT_CMV_C1C2 # Allow CMAQ to Use Point Source files with dates that do not # match the internal model date # To change default behaviour please see Users Guide for EMIS_SYM_DATE setenv STK_EM_SYM_DATE_001 F setenv STK_EM_SYM_DATE_002 F setenv STK_EM_SYM_DATE_003 F setenv STK_EM_SYM_DATE_004 F setenv STK_EM_SYM_DATE_005 F setenv STK_EM_SYM_DATE_006 F setenv STK_EM_SYM_DATE_007 F setenv STK_EM_SYM_DATE_008 F #> Lightning NOx configuration if ( $CTM_LTNG_NO == 'Y' ) then setenv LTNGNO "InLine" #> set LTNGNO to "Inline" to activate in-line calculation #> In-line lightning NOx options setenv USE_NLDN Y #> use hourly NLDN strike file [ default: Y ] if ( $USE_NLDN == Y ) then setenv NLDN_STRIKES ${IN_LTpath}/NLDN_12km_60min_${YYYYMMDD}.ioapi endif setenv LTNGPARMS_FILE ${IN_LTpath}/LTNG_AllParms_12NE3.nc #> lightning parameter file endif #> In-line biogenic emissions configuration if ( $CTM_BIOGEMIS_BE == 'Y' ) then set IN_BEISpath = ${INPDIR}/surface setenv GSPRO $BLD/gspro_biogenics.txt setenv BEIS_NORM_EMIS $IN_BEISpath/beis4_beld6_norm_emis.12NE3.nc setenv BEIS_SOILINP $OUTDIR/CCTM_BSOILOUT_${RUNID}_${YESTERDAY}.nc #> Biogenic NO soil input file; ignore if NEW_START = TRUE endif if ( $CTM_BIOGEMIS_MG == 'Y' ) then setenv MEGAN_SOILINP $OUTDIR/CCTM_MSOILOUT_${RUNID}_${YESTERDAY}.nc #> Biogenic NO soil input file; ignore if INITIAL_RUN = Y #> ; ignore if IGNORE_SOILINP = Y setenv MEGAN_CTS $SZpath/megan3.2/CT3_CONUS.ncf setenv MEGAN_EFS $SZpath/megan3.2/EFMAPS_CONUS.ncf setenv MEGAN_LDF $SZpath/megan3.2/LDF_CONUS.ncf if ($BDSNP_MEGAN == 'Y') then setenv BDSNPINP $OUTDIR/CCTM_BDSNPOUT_${RUNID}_${YESTERDAY}.nc setenv BDSNP_FFILE $SZpath/megan3.2/FERT_tceq_12km.ncf setenv BDSNP_NFILE $SZpath/megan3.2/NDEP_tceq_12km.ncf setenv BDSNP_LFILE $SZpath/megan3.2/LANDTYPE_tceq_12km.ncf setenv BDSNP_AFILE $SZpath/megan3.2/ARID_tceq_12km.ncf setenv BDSNP_NAFILE $SZpath/megan3.2/NONARID_tceq_12km.ncf endif endif #> In-line sea spray emissions configuration setenv OCEAN_1 $SZpath/OCEAN_${MM}_L3m_MC_CHL_chlor_a_12NE3.nc #> horizontal grid-dependent ocean file #> Bidirectional ammonia configuration if ( $CTM_ABFLUX == 'Y' ) then setenv E2C_SOIL ${EPICpath}/2018r1_EPIC0509_12NE3_soil.nc setenv E2C_CHEM ${EPICpath}/2018r1_EPIC0509_12NE3_time${YYYYMMDD}.nc setenv E2C_CHEM_YEST ${EPICpath}/2018r1_EPIC0509_12NE3_time${YESTERDAY}.nc setenv E2C_LU ${EPICpath}/beld4_12NE3_2011.nc endif #> Inline Process Analysis setenv CTM_PROCAN N #> use process analysis [ default: N] if ( $?CTM_PROCAN ) then # $CTM_PROCAN is defined if ( $CTM_PROCAN == 'Y' || $CTM_PROCAN == 'T' ) then #> process analysis global column, row and layer ranges # setenv PA_BCOL_ECOL "10 90" # default: all columns # setenv PA_BROW_EROW "10 80" # default: all rows # setenv PA_BLEV_ELEV "1 4" # default: all levels setenv PACM_INFILE ${NMLpath}/pa_${MECH}.ctl setenv PACM_REPORT $OUTDIR/"PA_REPORT".${YYYYMMDD} endif endif #> Integrated Source Apportionment Method (ISAM) Options setenv CTM_ISAM N if ( $?CTM_ISAM ) then if ( $CTM_ISAM == 'Y' || $CTM_ISAM == 'T' ) then setenv SA_IOLIST ${WORKDIR}/isam_control.2018_12NE3.txt setenv ISAM_BLEV_ELEV " 1 1" setenv AISAM_BLEV_ELEV " 1 1" #> Set Up ISAM Initial Condition Flags if ($NEW_START == true || $NEW_START == TRUE ) then setenv ISAM_NEW_START Y setenv ISAM_PREVDAY else setenv ISAM_NEW_START N setenv ISAM_PREVDAY "$OUTDIR/CCTM_SA_CGRID_${RUNID}_${YESTERDAY}.nc" endif #> Set Up ISAM Output Filenames setenv SA_ACONC_1 "$OUTDIR/CCTM_SA_ACONC_${CTM_APPL}.nc -v" setenv SA_CONC_1 "$OUTDIR/CCTM_SA_CONC_${CTM_APPL}.nc -v" setenv SA_DD_1 "$OUTDIR/CCTM_SA_DRYDEP_${CTM_APPL}.nc -v" setenv SA_WD_1 "$OUTDIR/CCTM_SA_WETDEP_${CTM_APPL}.nc -v" setenv SA_CGRID_1 "$OUTDIR/CCTM_SA_CGRID_${CTM_APPL}.nc -v" #> Set optional ISAM regions files setenv ISAM_REGIONS $INPDIR/GRIDMASK_STATES_12NE3.nc #> Options used to favor tracked species in reaction for Ozone-NOx chemistry setenv ISAM_O3_WEIGHTS 5 # weights for tracked species Default is 5 # OPTIONS # 1 does not weight any species # 2 weights NOx and subset of NOz species # 3 uses with from option 2 plus weight OVOC species, organic radicals and operators # 4 weight OVOC species, organic radicals and operators # 5 toggles between two weighting set based on VOC and NOx limited ozone production # Below options only used if ISAM_O3_WEIGHTS set to 5 setenv ISAM_NOX_CASE 2 # weights for tracked species when ozone production is NOx limited. Default is 2 setenv ISAM_VOC_CASE 4 # weights for tracked species when ozone production is VOC limited. Default is 4 setenv VOC_NOX_TRANS 0.35 # value of Prod H2O2 over Prod HNO3 less than where # ISAM_VOC_CASE weights are used. Otherwise, ISAM_NOX_CASE # weights are used. Default is 0.35 endif endif #> Sulfur Tracking Model (STM) setenv STM_SO4TRACK N #> sulfur tracking [ default: N ] if ( $?STM_SO4TRACK ) then if ( $STM_SO4TRACK == 'Y' || $STM_SO4TRACK == 'T' ) then #> option to normalize sulfate tracers [ default: Y ] setenv STM_ADJSO4 Y endif endif #> Decoupled Direct Method in 3D (DDM-3D) Options setenv CTM_DDM3D N # Sets up requisite script settings for DDM-3D (default is N/F) # Additionally requires for CCTM to be compiled for DDM-3D simulations set NPMAX = 1 # Number of sensitivity parameters defined in SEN_INPUT setenv SEN_INPUT ${WORKDIR}/sensinput.2018_12NE3.dat setenv DDM3D_HIGH N # allow higher-order sensitivity parameters in SEN_INPUT [ T | Y | F | N ] (default is N/F) if ($NEW_START == true || $NEW_START == TRUE ) then setenv DDM3D_RST N # begins from sensitivities from a restart file [ T | Y | F | N ] (default is Y/T) set S_ICpath = # sensitivity fields are initialized to 0.0 on the first hour of the first day set S_ICfile = else setenv DDM3D_RST Y # begins from sensitivities from a restart file [ T | Y | F | N ] (default is Y/T) set S_ICpath = $OUTDIR set S_ICfile = CCTM_SENGRID_${RUNID}_${YESTERDAY}.nc endif setenv CTM_NPMAX $NPMAX setenv CTM_SENS_1 "$OUTDIR/CCTM_SENGRID_${CTM_APPL}.nc -v" setenv A_SENS_1 "$OUTDIR/CCTM_ASENS_${CTM_APPL}.nc -v" setenv CTM_SWETDEP_1 "$OUTDIR/CCTM_SENWDEP_${CTM_APPL}.nc -v" setenv CTM_SDRYDEP_1 "$OUTDIR/CCTM_SENDDEP_${CTM_APPL}.nc -v" setenv INIT_SENS_1 $S_ICpath/$S_ICfile # ===================================================================== #> Output Files # ===================================================================== #> set output file names setenv S_CGRID "$OUTDIR/CCTM_CGRID_${CTM_APPL}.nc" #> 3D Inst. Concentrations setenv CTM_CONC_1 "$OUTDIR/CCTM_CONC_${CTM_APPL}.nc -v" #> On-Hour Concentrations setenv A_CONC_1 "$OUTDIR/CCTM_ACONC_${CTM_APPL}.nc -v" #> Hourly Avg. Concentrations setenv MEDIA_CONC "$OUTDIR/CCTM_MEDIA_CONC_${CTM_APPL}.nc -v" #> NH3 Conc. in Media setenv CTM_DRY_DEP_1 "$OUTDIR/CCTM_DRYDEP_${CTM_APPL}.nc -v" #> Hourly Dry Deposition setenv CTM_DEPV_DIAG "$OUTDIR/CCTM_DEPV_${CTM_APPL}.nc -v" #> Dry Deposition Velocities setenv B3GTS_S "$OUTDIR/CCTM_B3GTS_S_${CTM_APPL}.nc -v" #> Biogenic Emissions setenv BEIS_SOILOUT "$OUTDIR/CCTM_BSOILOUT_${CTM_APPL}.nc" #> Soil Emissions setenv MEGAN_SOILOUT "$OUTDIR/CCTM_MSOILOUT_${CTM_APPL}.nc" #> Soil Emissions setenv BDSNPOUT "$OUTDIR/CCTM_BDSNPOUT_${CTM_APPL}.nc" #> Soil Emissions setenv CTM_WET_DEP_1 "$OUTDIR/CCTM_WETDEP1_${CTM_APPL}.nc -v" #> Wet Dep From All Clouds setenv CTM_WET_DEP_2 "$OUTDIR/CCTM_WETDEP2_${CTM_APPL}.nc -v" #> Wet Dep From SubGrid Clouds setenv CTM_ELMO_1 "$OUTDIR/CCTM_ELMO_${CTM_APPL}.nc -v" #> On-Hour Particle Diagnostics setenv CTM_AELMO_1 "$OUTDIR/CCTM_AELMO_${CTM_APPL}.nc -v" #> Hourly Avg. Particle Diagnostics setenv CTM_RJ_1 "$OUTDIR/CCTM_PHOTDIAG1_${CTM_APPL}.nc -v" #> 2D Surface Summary from Inline Photolysis setenv CTM_RJ_2 "$OUTDIR/CCTM_PHOTDIAG2_${CTM_APPL}.nc -v" #> 3D Photolysis Rates setenv CTM_RJ_3 "$OUTDIR/CCTM_PHOTDIAG3_${CTM_APPL}.nc -v" #> 3D Optical and Radiative Results from Photolysis setenv CTM_SSEMIS_1 "$OUTDIR/CCTM_SSEMIS_${CTM_APPL}.nc -v" #> Sea Spray Emissions setenv CTM_DUST_EMIS_1 "$OUTDIR/CCTM_DUSTEMIS_${CTM_APPL}.nc -v" #> Dust Emissions setenv CTM_BUDGET "$OUTDIR/CCTM_BUDGET_${CTM_APPL}.txt -v" #> Budget [Default Off] setenv CTM_IPR_1 "$OUTDIR/CCTM_PA_1_${CTM_APPL}.nc -v" #> Process Analysis setenv CTM_IPR_2 "$OUTDIR/CCTM_PA_2_${CTM_APPL}.nc -v" #> Process Analysis setenv CTM_IPR_3 "$OUTDIR/CCTM_PA_3_${CTM_APPL}.nc -v" #> Process Analysis setenv CTM_IRR_1 "$OUTDIR/CCTM_IRR_1_${CTM_APPL}.nc -v" #> Chem Process Analysis setenv CTM_IRR_2 "$OUTDIR/CCTM_IRR_2_${CTM_APPL}.nc -v" #> Chem Process Analysis setenv CTM_IRR_3 "$OUTDIR/CCTM_IRR_3_${CTM_APPL}.nc -v" #> Chem Process Analysis setenv CTM_DRY_DEP_MOS "$OUTDIR/CCTM_DDMOS_${CTM_APPL}.nc -v" #> Dry Dep setenv CTM_DEPV_MOS "$OUTDIR/CCTM_DEPVMOS_${CTM_APPL}.nc -v" #> Dry Dep Velocity setenv CTM_VDIFF_DIAG "$OUTDIR/CCTM_VDIFF_DIAG_${CTM_APPL}.nc -v" #> Vertical Dispersion Diagnostic setenv CTM_VSED_DIAG "$OUTDIR/CCTM_VSED_DIAG_${CTM_APPL}.nc -v" #> Particle Grav. Settling Velocity setenv CTM_LTNGDIAG_1 "$OUTDIR/CCTM_LTNGHRLY_${CTM_APPL}.nc -v" #> Hourly Avg Lightning NO setenv CTM_LTNGDIAG_2 "$OUTDIR/CCTM_LTNGCOL_${CTM_APPL}.nc -v" #> Column Total Lightning NO setenv CTM_VEXT_1 "$OUTDIR/CCTM_VEXT_${CTM_APPL}.nc -v" #> On-Hour 3D Concs at select sites #> set floor file (neg concs) setenv FLOOR_FILE ${OUTDIR}/FLOOR_${CTM_APPL}.txt #> look for existing log files and output files ( ls CTM_LOG_???.${CTM_APPL} > buff.txt ) >& /dev/null ( ls ${LOGDIR}/CTM_LOG_???.${CTM_APPL} >> buff.txt ) >& /dev/null set log_test = `cat buff.txt`; rm -f buff.txt set OUT_FILES = (${FLOOR_FILE} ${S_CGRID} ${CTM_CONC_1} ${A_CONC_1} ${MEDIA_CONC} \ ${CTM_DRY_DEP_1} $CTM_DEPV_DIAG $B3GTS_S $MEGAN_SOILOUT $BEIS_SOILOUT $BDSNPOUT \ $CTM_WET_DEP_1 $CTM_WET_DEP_2 $CTM_ELMO_1 $CTM_AELMO_1 \ $CTM_RJ_1 $CTM_RJ_2 $CTM_RJ_3 $CTM_SSEMIS_1 $CTM_DUST_EMIS_1 $CTM_IPR_1 $CTM_IPR_2 \ $CTM_IPR_3 $CTM_BUDGET $CTM_IRR_1 $CTM_IRR_2 $CTM_IRR_3 $CTM_DRY_DEP_MOS \ $CTM_DEPV_MOS $CTM_VDIFF_DIAG $CTM_VSED_DIAG $CTM_LTNGDIAG_1 $CTM_LTNGDIAG_2 $CTM_VEXT_1 ) if ( $?CTM_ISAM ) then if ( $CTM_ISAM == 'Y' || $CTM_ISAM == 'T' ) then set OUT_FILES = (${OUT_FILES} ${SA_ACONC_1} ${SA_CONC_1} ${SA_DD_1} ${SA_WD_1} \ ${SA_CGRID_1} ) endif endif if ( $?CTM_DDM3D ) then if ( $CTM_DDM3D == 'Y' || $CTM_DDM3D == 'T' ) then set OUT_FILES = (${OUT_FILES} ${CTM_SENS_1} ${A_SENS_1} ${CTM_SWETDEP_1} ${CTM_SDRYDEP_1} ) endif endif set OUT_FILES = `echo $OUT_FILES | sed "s; -v;;g" | sed "s;MPI:;;g" ` ( ls $OUT_FILES > buff.txt ) >& /dev/null set out_test = `cat buff.txt`; rm -f buff.txt #> delete previous output if requested if ( $CLOBBER_DATA == true || $CLOBBER_DATA == TRUE ) then echo echo "Existing Logs and Output Files for Day ${TODAYG} Will Be Deleted" #> remove previous log files foreach file ( ${log_test} ) #echo "Deleting log file: $file" /bin/rm -f $file end #> remove previous output files foreach file ( ${out_test} ) #echo "Deleting output file: $file" /bin/rm -f $file end /bin/rm -f ${OUTDIR}/CCTM_DESID*${CTM_APPL}.nc else #> error if previous log files exist if ( "$log_test" != "" ) then echo "*** Logs exist - run ABORTED ***" echo "*** To overide, set CLOBBER_DATA = TRUE in run_cctm.csh ***" echo "*** and these files will be automatically deleted. ***" exit 1 endif #> error if previous output files exist if ( "$out_test" != "" ) then echo "*** Output Files Exist - run will be ABORTED ***" foreach file ( $out_test ) echo " cannot delete $file" end echo "*** To overide, set CLOBBER_DATA = TRUE in run_cctm.csh ***" echo "*** and these files will be automatically deleted. ***" exit 1 endif endif #> for the run control ... setenv CTM_STDATE $YYYYJJJ setenv CTM_STTIME $STTIME setenv CTM_RUNLEN $NSTEPS setenv CTM_TSTEP $TSTEP setenv INIT_CONC_1 $ICpath/$ICFILE setenv BNDY_CONC_1 $BCpath/$BCFILE setenv OMI $OMIpath/$OMIfile setenv MIE_TABLE $OUTDIR/mie_table_coeffs_${compilerString}.txt setenv OPTICS_DATA $OMIpath/$OPTfile #setenv XJ_DATA $JVALpath/$JVALfile #> species defn & photolysis setenv gc_matrix_nml ${NMLpath}/GC_$MECH.nml setenv ae_matrix_nml ${NMLpath}/AE_$MECH.nml setenv nr_matrix_nml ${NMLpath}/NR_$MECH.nml setenv tr_matrix_nml ${NMLpath}/Species_Table_TR_0.nml #> check for photolysis input data setenv CSQY_DATA ${NMLpath}/CSQY_DATA_$MECH if (! (-e $CSQY_DATA ) ) then echo " $CSQY_DATA not found " exit 1 endif if (! (-e $OPTICS_DATA ) ) then echo " $OPTICS_DATA not found " exit 1 endif # =================================================================== #> Execution Portion # =================================================================== #> Print attributes of the executable if ( $CTM_DIAG_LVL != 0 ) then ls -l $BLD/$EXEC size $BLD/$EXEC unlimit limit endif #> Print Startup Dialogue Information to Standard Out echo echo "CMAQ Processing of Day $YYYYMMDD Began at `date`" echo #> Executable call for single PE, uncomment to invoke #( /usr/bin/time -p $BLD/$EXEC ) |& tee buff_${EXECUTION_ID}.txt #> Executable call for multi PE, configure for your system # set MPI = /usr/local/intel/impi/3.2.2.006/bin64 # set MPIRUN = $MPI/mpirun ( /usr/bin/time -p mpirun -np $NPROCS $BLD/$EXEC ) |& tee buff_${EXECUTION_ID}.txt #> Harvest Timing Output so that it may be reported below set rtarray = "${rtarray} `tail -3 buff_${EXECUTION_ID}.txt | grep -Eo '[+-]?[0-9]+([.][0-9]+)?' | head -1` " rm -rf buff_${EXECUTION_ID}.txt #> Abort script if abnormal termination if ( ! -e $OUTDIR/CCTM_CGRID_${CTM_APPL}.nc ) then echo "" echo "**************************************************************" echo "** Runscript Detected an Error: CGRID file was not written. **" echo "** This indicates that CMAQ was interrupted or an issue **" echo "** exists with writing output. The runscript will now **" echo "** abort rather than proceeding to subsequent days. **" echo "**************************************************************" break endif #> Print Concluding Text echo echo "CMAQ Processing of Day $YYYYMMDD Finished at `date`" echo echo "\\\\\=====\\\\\=====\\\\\=====\\\\\=====/////=====/////=====/////=====/////" echo # =================================================================== #> Finalize Run for This Day and Loop to Next Day # =================================================================== #> Save Log Files and Move on to Next Simulation Day mv CTM_LOG_???.${CTM_APPL} $LOGDIR if ( $CTM_DIAG_LVL != 0 ) then mv CTM_DIAG_???.${CTM_APPL} $LOGDIR endif #> The next simulation day will, by definition, be a restart setenv NEW_START false #> Increment both Gregorian and Julian Days set TODAYG = `date -ud "${TODAYG}+1days" +%Y-%m-%d` #> Add a day for tomorrow set TODAYJ = `date -ud "${TODAYG}" +%Y%j` #> Convert YYYY-MM-DD to YYYYJJJ end #Loop to the next Simulation Day # =================================================================== #> Generate Timing Report # =================================================================== set RTMTOT = 0 foreach it ( `seq ${NDAYS}` ) set rt = `echo ${rtarray} | cut -d' ' -f${it}` set RTMTOT = `echo "${RTMTOT} + ${rt}" | bc -l` end set RTMAVG = `echo "scale=2; ${RTMTOT} / ${NDAYS}" | bc -l` set RTMTOT = `echo "scale=2; ${RTMTOT} / 1" | bc -l` echo echo "==================================" echo " ***** CMAQ TIMING REPORT *****" echo "==================================" echo "Start Day: ${START_DATE}" echo "End Day: ${END_DATE}" echo "Number of Simulation Days: ${NDAYS}" echo "Domain Name: ${GRID_NAME}" echo "Number of Grid Cells: ${NCELLS} (ROW x COL x LAY)" echo "Number of Layers: ${NZ}" echo "Number of Processes: ${NPROCS}" echo " All times are in seconds." echo echo "Num Day Wall Time" set d = 0 set day = ${START_DATE} foreach it ( `seq ${NDAYS}` ) # Set the right day and format it set d = `echo "${d} + 1" | bc -l` set n = `printf "%02d" ${d}` # Choose the correct time variables set rt = `echo ${rtarray} | cut -d' ' -f${it}` # Write out row of timing data echo "${n} ${day} ${rt}" # Increment day for next loop set day = `date -ud "${day}+1days" +%Y-%m-%d` end echo " Total Time = ${RTMTOT}" echo " Avg. Time = ${RTMAVG}" exit ================================================ FILE: CCTM/scripts/run_cctm_Bench_2018_12NE3_CRACMM2.csh ================================================ #!/bin/csh -f # ===================== CCTMv5.5.X STAGE CRACMM 12NE3 Run Script ========================= # Usage: run_cctm_2018_12NE3_v54_Base_STAGE_CRACMM.csh >&! cctm_2018_12NE3_CRACMM.log & # # To report problems or request help with this script/program: # http://www.epa.gov/cmaq (EPA CMAQ Website) # http://www.cmascenter.org (CMAS Website) # =================================================================== # =================================================================== #> Runtime Environment Options # =================================================================== echo 'Start Model Run At ' `date` #> Toggle Diagnostic Mode which will print verbose information to #> standard output setenv CTM_DIAG_LVL 0 #> Choose compiler and set up CMAQ environment with correct #> libraries using config.cmaq. Options: intel | gcc | pgi if ( ! $?compiler ) then setenv compiler gcc endif if ( ! $?compilerVrsn ) then setenv compilerVrsn Empty endif #> Source the config.cmaq file to set the build environment cd ../.. source ./config_cmaq.csh $compiler $compilerVrsn cd CCTM/scripts #> Set General Parameters for Configuring the Simulation set VRSN = v55 #> Code Version set PROC = mpi #> serial or mpi set MECH = cracmm2 #> Mechanism ID set DEP = stage set APPL = Bench_2018_12NE3_${MECH}_${DEP} #> Application Name (e.g. Gridname) #> Define RUNID as any combination of parameters above or others. By default, #> this information will be collected into this one string, $RUNID, for easy #> referencing in output binaries and log files as well as in other scripts. setenv RUNID ${VRSN}_${compilerString}_${APPL} #> Set the build directory (this is where the CMAQ executable #> is located by default). set BLD = ${CMAQ_HOME}/CCTM/scripts/BLD_CCTM_${VRSN}_${compilerString}_${MECH}_${DEP} set EXEC = CCTM_${VRSN}.exe #> Output Each line of Runscript to Log File if ( $CTM_DIAG_LVL != 0 ) set echo #> Set Working, Input, and Output Directories setenv WORKDIR ${CMAQ_HOME}/CCTM/scripts #> Working Directory. Where the runscript is. setenv OUTDIR ${CMAQ_DATA}/output_CCTM_${RUNID} #> Output Directory setenv INPDIR ${CMAQ_DATA}/CMAQv5.5_2018_12NE3_Benchmark_cracmm2_stage_2Day_Input/2018_12NE3 #Input Directory setenv LOGDIR ${OUTDIR}/LOGS #> Log Directory Location setenv NMLpath ${BLD} #> Location of Namelists. Common places are: #> ${WORKDIR} | ${CCTM_SRC}/MECHS/${MECH} | ${BLD} echo "" echo "Working Directory is $WORKDIR" echo "Build Directory is $BLD" echo "Output Directory is $OUTDIR" echo "Log Directory is $LOGDIR" echo "Executable Name is $EXEC" # ===================================================================== #> CCTM Configuration Options # ===================================================================== #> Set Start and End Days for looping setenv NEW_START TRUE #> Set to FALSE for model restart set START_DATE = "2018-07-01" #> beginning date (July 1, 2016) set END_DATE = "2018-07-02" #> ending date (July 1, 2016) #> Set Timestepping Parameters set STTIME = 000000 #> beginning GMT time (HHMMSS) set NSTEPS = 240000 #> time duration (HHMMSS) for this run set TSTEP = 010000 #> output time step interval (HHMMSS) #> Horizontal domain decomposition if ( $PROC == serial ) then setenv NPCOL_NPROW "1 1"; set NPROCS = 1 # single processor setting else @ NPCOL = 8; @ NPROW = 4 @ NPROCS = $NPCOL * $NPROW setenv NPCOL_NPROW "$NPCOL $NPROW"; endif #> Define Execution ID: e.g. [CMAQ-Version-Info]_[User]_[Date]_[Time] if ( ! -e ${BLD}/CCTM_${VRSN}.cfg ) then set SHAID = "" else set SHAID = `grep "sha_ID" ${BLD}/CCTM_${VRSN}.cfg | cut -c 13-22` if ( $SHAID == not_a_repo ) then set SHAID = "" else set SHAID = "_sha="$SHAID endif endif setenv EXECUTION_ID "CMAQ_CCTM${VRSN}${SHAID}_`id -u -n`_`date -u +%Y%m%d_%H%M%S_%N`" #> Inform IO/API of the Execution ID echo "" echo "---CMAQ EXECUTION ID: $EXECUTION_ID ---" #> Keep or Delete Existing Output Files set CLOBBER_DATA = TRUE #> Logfile Options #> Master Log File Name; uncomment to write standard output to a log, otherwise write to screen #setenv LOGFILE $CMAQ_HOME/$RUNID.log if (! -e $LOGDIR ) then mkdir -p $LOGDIR endif setenv PRINT_PROC_TIME Y #> Print timing for all science subprocesses to Logfile #> [ default: TRUE or Y ] setenv STDOUT T #> Override I/O-API trying to write information to both the processor #> logs and STDOUT [ options: T | F ] setenv GRID_NAME 2018_12NE3 #> check GRIDDESC file for GRID_NAME options setenv GRIDDESC $INPDIR/GRIDDESC #> grid description file #> Retrieve the number of columns, rows, and layers in this simulation set NZ = 35 set NX = `grep -A 1 ${GRID_NAME} ${GRIDDESC} | tail -1 | sed 's/ */ /g' | cut -d' ' -f6` set NY = `grep -A 1 ${GRID_NAME} ${GRIDDESC} | tail -1 | sed 's/ */ /g' | cut -d' ' -f7` set NCELLS = `echo "${NX} * ${NY} * ${NZ}" | bc -l` #> Output Species and Layer Options #> CONC file species; comment or set to "ALL" to write all species to CONC #setenv CONC_SPCS "O3 NO ANO3I ANO3J NO2 HCHO ISOP NH3 ANH4I ANH4J ASO4I ASO4J" #setenv CONC_BLEV_ELEV " 1 1" #> CONC file layer range; comment to write all layers to CONC #> ACONC file species; comment or set to "ALL" to write all species to ACONC #setenv AVG_CONC_SPCS "O3 NO CO NO2 ASO4I ASO4J NH3" setenv AVG_CONC_SPCS "ALL" setenv ACONC_BLEV_ELEV " 1 1" #> ACONC file layer range; comment to write all layers to ACONC setenv AVG_FILE_ENDTIME N #> override default beginning ACONC timestamp [ default: N ] #> Synchronization Time Step and Tolerance Options setenv CTM_MAXSYNC 300 #> max sync time step (sec) [ default: 720 ] setenv CTM_MINSYNC 60 #> min sync time step (sec) [ default: 60 ] setenv SIGMA_SYNC_TOP 0.7 #> top sigma level thru which sync step determined [ default: 0.7 ] #setenv ADV_HDIV_LIM 0.95 #> maximum horiz. div. limit for adv step adjust [ default: 0.9 ] setenv CTM_ADV_CFL 0.95 #> max CFL [ default: 0.75] #setenv RB_ATOL 1.0E-09 #> global ROS3 solver absolute tolerance [ default: 1.0E-07 ] #> Science Options setenv CTM_OCEAN_CHEM Y #> Flag for ocean halogen chemistry, sea spray aerosol emissions, #> and enhanced ozone deposition over ocean waters [ default: Y ] setenv CTM_WB_DUST N #> use inline windblown dust emissions (only for use with PX) [ default: N ] setenv CTM_LTNG_NO N #> turn on lightning NOx [ default: N ] setenv KZMIN Y #> use Min Kz option in edyintb [ default: Y ], #> otherwise revert to Kz0UT setenv PX_VERSION Y #> WRF PX LSM setenv CLM_VERSION N #> WRF CLM LSM setenv NOAH_VERSION N #> WRF NOAH LSM setenv CTM_ABFLUX Y #> ammonia bi-directional flux for in-line deposition #> velocities [ default: N ] setenv CTM_BIDI_FERT_NH3 T #> subtract fertilizer NH3 from emissions because it will be handled #> by the BiDi calculation [ default: Y ] setenv CTM_HGBIDI N #> mercury bi-directional flux for in-line deposition #> velocities [ default: N ] setenv CTM_SFC_HONO Y #> surface HONO interaction [ default: Y ] #> please see user guide (6.10.4 Nitrous Acid (HONO)) #> for dependency on percent urban fraction dataset setenv CTM_GRAV_SETL Y #> vdiff aerosol gravitational sedimentation [ default: Y ] setenv CTM_PVO3 N #> consider potential vorticity module for O3 transport from the stratosphere #> [default: N] setenv CTM_BIOGEMIS_BE Y #> calculate in-line biogenic emissions with BEIS [ default: N ] setenv CTM_BIOGEMIS_MG N #> turns on MEGAN biogenic emission [ default: N ] setenv BDSNP_MEGAN N #> turns on BDSNP soil NO emissions [ default: N ] setenv AEROSOL_OPTICS 3 #> sets method for determining aerosol optics affecting photolysis #> frequencies ( 3 is the default value ) #> VALUES 1 thru 3 determined Uniformly Volume Mixed spherical #> (1-Tabular Mie; 2-Mie Calculation; 3-Case Approx to Mie Theory) #> VALUES 4 thru 6 attempts to use core-shell mixing model when the #> aerosol mode has signficant black carbon core otherwise use Volume Mixed #> model where optics determined by #> (4-Tabular Mie; 5-Mie Calculation; 6-Case Approx to Mie Theory) #> Surface Tiled Aerosol and Gaseous Exchange Options #> Only active if DepMod=stage at compile time setenv CTM_MOSAIC N #> Output landuse specific deposition velocities [ default: N ] setenv CTM_STAGE_P22 N #> Pleim et al. 2022 Aerosol deposition model [default: N] setenv CTM_STAGE_E20 Y #> Emerson et al. 2020 Aerosol deposition model [default: Y] setenv CTM_STAGE_S22 N #> Shu et al. 2022 (CMAQ v5.3) Aerosol deposition model [default: N] setenv IC_AERO_M2WET F #> Specify whether or not initial condition aerosol size distribution #> is wet or dry [ default: F = dry ] setenv BC_AERO_M2WET F #> Specify whether or not boundary condition aerosol size distribution #> is wet or dry [ default: F = dry ] setenv IC_AERO_M2USE F #> Specify whether or not to use aerosol surface area from initial #> conditions [ default: T = use aerosol surface area ] setenv BC_AERO_M2USE F #> Specify whether or not to use aerosol surface area from boundary #> conditions [ default: T = use aerosol surface area ] #> Vertical Extraction Options setenv VERTEXT N setenv VERTEXT_COORD_PATH ${WORKDIR}/lonlat.csv #> I/O Controls setenv IOAPI_LOG_WRITE F #> turn on excess WRITE3 logging [ options: T | F ] setenv FL_ERR_STOP N #> stop on inconsistent input files setenv PROMPTFLAG F #> turn on I/O-API PROMPT*FILE interactive mode [ options: T | F ] setenv IOAPI_OFFSET_64 YES #> support large timestep records (>2GB/timestep record) [ options: YES | NO ] setenv IOAPI_CHECK_HEADERS N #> check file headers [ options: Y | N ] setenv CTM_EMISCHK N #> Abort CMAQ if missing surrogates from emissions Input files #> Diagnostic Output Flags setenv CTM_CKSUM Y #> checksum report [ default: Y ] setenv CLD_DIAG N #> cloud diagnostic file [ default: N ] setenv CTM_PHOTDIAG N #> photolysis diagnostic file [ default: N ] setenv NLAYS_PHOTDIAG "1" #> Number of layers for PHOTDIAG2 and PHOTDIAG3 from #> Layer 1 to NLAYS_PHOTDIAG [ default: all layers ] #setenv NWAVE_PHOTDIAG "294 303 310 316 333 381 607" #> Wavelengths written for variables #> in PHOTDIAG2 and PHOTDIAG3 #> [ default: all wavelengths ] setenv CTM_SSEMDIAG N #> sea-spray emissions diagnostic file [ default: N ] setenv CTM_DUSTEM_DIAG N #> windblown dust emissions diagnostic file [ default: N ]; #> Ignore if CTM_WB_DUST = N setenv CTM_DEPV_FILE N #> deposition velocities diagnostic file [ default: N ] setenv VDIFF_DIAG_FILE N #> vdiff & possibly aero grav. sedimentation diagnostic file [ default: N ] setenv LTNGDIAG N #> lightning diagnostic file [ default: N ] setenv B3GTS_DIAG N #> BEIS mass emissions diagnostic file [ default: N ] setenv CTM_WVEL Y #> save derived vertical velocity component to conc #> file [ default: Y ] # ===================================================================== #> Input Directories and Filenames # ===================================================================== set ICpath = $INPDIR/icbc #> initial conditions input directory set BCpath = $INPDIR/icbc #> boundary conditions input directory set EMISpath = $INPDIR/emis #> gridded emissions input directory set IN_PTpath = $INPDIR/emis #> point source emissions input directory set IN_LTpath = $INPDIR/lightning #> lightning NOx input directory set METpath = $INPDIR/met/mcipv5.4 #> meteorology input directory #set JVALpath = $INPDIR/jproc #> offline photolysis rate table directory set OMIpath = $BLD #> ozone column data for the photolysis model set EPICpath = $INPDIR/epic #> EPIC putput for bidirectional NH3 set SZpath = $INPDIR/surface #> surf zone file for in-line seaspray emissions # ===================================================================== #> Begin Loop Through Simulation Days # ===================================================================== set rtarray = "" set TODAYG = ${START_DATE} set TODAYJ = `date -ud "${START_DATE}" +%Y%j` #> Convert YYYY-MM-DD to YYYYJJJ set START_DAY = ${TODAYJ} set STOP_DAY = `date -ud "${END_DATE}" +%Y%j` #> Convert YYYY-MM-DD to YYYYJJJ set NDAYS = 0 while ($TODAYJ <= $STOP_DAY ) #>Compare dates in terms of YYYYJJJ set NDAYS = `echo "${NDAYS} + 1" | bc -l` #> Retrieve Calendar day Information set YYYYMMDD = `date -ud "${TODAYG}" +%Y%m%d` #> Convert YYYY-MM-DD to YYYYMMDD set YYYYMM = `date -ud "${TODAYG}" +%Y%m` #> Convert YYYY-MM-DD to YYYYMM set YYMMDD = `date -ud "${TODAYG}" +%y%m%d` #> Convert YYYY-MM-DD to YYMMDD set MM = `date -ud "${TODAYG}" +%m` #> Convert YYYY-MM-DD to MM set YYYYJJJ = $TODAYJ #> Calculate Yesterday's Date set YESTERDAY = `date -ud "${TODAYG}-1days" +%Y%m%d` #> Convert YYYY-MM-DD to YYYYJJJ # ===================================================================== #> Set Output String and Propagate Model Configuration Documentation # ===================================================================== echo "" echo "Set up input and output files for Day ${TODAYG}." #> set output file name extensions setenv CTM_APPL ${RUNID}_${YYYYMMDD} #> Copy Model Configuration To Output Folder if ( ! -d "$OUTDIR" ) mkdir -p $OUTDIR cp $BLD/CCTM_${VRSN}.cfg $OUTDIR/CCTM_${CTM_APPL}.cfg # ===================================================================== #> Input Files (Some are Day-Dependent) # ===================================================================== #> Initial conditions if ($NEW_START == true || $NEW_START == TRUE ) then setenv ICFILE CCTM_ICON_v55_CRACMM2_STAGE_12NE3_20180701.nc setenv INIT_MEDC_1 notused else set ICpath = $OUTDIR setenv ICFILE CCTM_CGRID_${RUNID}_${YESTERDAY}.nc setenv INIT_MEDC_1 $ICpath/CCTM_MEDIA_CONC_${RUNID}_${YESTERDAY}.nc endif #> Boundary conditions set BCFILE = BCON_v55_CRACMM2_STAGE_2018_12NE3_${YYYYMMDD}.nc #> Off-line photolysis rates #set JVALfile = JTABLE_${YYYYJJJ} #> Ozone column data set OMIfile = OMI_1979_to_2019.dat #> Optics file set OPTfile = PHOT_OPTICS.dat #> MCIP meteorology files setenv GRID_BDY_2D $METpath/GRIDBDY2D_12NE3_${YYYYMMDD}.nc # GRID files are static, not day-specific setenv GRID_CRO_2D $METpath/GRIDCRO2D_12NE3_${YYYYMMDD}.nc setenv GRID_CRO_3D $METpath/GRIDCRO3D_12NE3_${YYYYMMDD}.nc setenv GRID_DOT_2D $METpath/GRIDDOT2D_12NE3_${YYYYMMDD}.nc setenv MET_CRO_2D $METpath/METCRO2D_12NE3_${YYYYMMDD}.nc setenv MET_CRO_3D $METpath/METCRO3D_12NE3_${YYYYMMDD}.nc setenv MET_DOT_3D $METpath/METDOT3D_12NE3_${YYYYMMDD}.nc setenv MET_BDY_3D $METpath/METBDY3D_12NE3_${YYYYMMDD}.nc setenv LUFRAC_CRO $METpath/LUFRAC_CRO_12NE3_${YYYYMMDD}.nc #> Control Files #> #> IMPORTANT NOTE #> #> The DESID control files defined below are an integral part of controlling the behavior of the model simulation. #> Among other things, they control the mapping of species in the emission files to chemical species in the model and #> several aspects related to the simulation of organic aerosols. #> Please carefully review the DESID control files to ensure that they are configured to be consistent with the assumptions #> made when creating the emission files defined below and the desired representation of organic aerosols. #> For further information, please see: #> + AERO7 Release Notes section on 'Required emission updates': #> https://github.com/USEPA/CMAQ/blob/master/DOCS/Release_Notes/aero7_overview.md #> + CMAQ User's Guide section 6.9.3 on 'Emission Compatability': #> https://github.com/USEPA/CMAQ/blob/master/DOCS/Users_Guide/CMAQ_UG_ch06_model_configuration_options.md#6.9.3_Emission_Compatability #> + Emission Control (DESID) Documentation in the CMAQ User's Guide: #> https://github.com/USEPA/CMAQ/blob/master/DOCS/Users_Guide/Appendix/CMAQ_UG_appendixB_emissions_control.md #> setenv DESID_CTRL_NML ${BLD}/CMAQ_Control_DESID.nml setenv DESID_CHEM_CTRL_NML ${BLD}/CMAQ_Control_DESID_${MECH}.nml #> The following namelist configures aggregated output (via the Explicit and Lumped #> Air Quality Model Output (ELMO) Module), domain-wide budget output, and chemical #> family output. setenv MISC_CTRL_NML ${BLD}/CMAQ_Control_Misc.nml #> The following namelist controls the mapping of meteorological land use types and the NH3 and Hg emission #> potentials setenv STAGECTRL_NML ${BLD}/CMAQ_Control_STAGE.nml #> Spatial Masks For Emissions Scaling #setenv CMAQ_MASKS $SZpath/OCEAN_${MM}_L3m_MC_CHL_chlor_a_12NE3.nc #> horizontal grid-dependent ocean file setenv CMAQ_MASKS $INPDIR/surface/GRIDMASK_STATES_12NE3.nc #> Gridded Emissions Files setenv N_EMIS_GR 2 set EMISfile = emis_mole_all_${YYYYMMDD}_12NE3_nobeis_norwc_WR705_2018gc2.ncf setenv GR_EMIS_001 ${EMISpath}/merged_nobeis_norwc/${EMISfile} setenv GR_EMIS_LAB_001 GRIDDED_EMIS setenv GR_EM_SYM_DATE_001 F # To change default behaviour please see Users Guide for EMIS_SYM_DATE set EMISfile = emis_mole_rwc_${YYYYMMDD}_12NE3_cmaq_cracmmv2_WR705_2018gc2.ncf setenv GR_EMIS_002 ${EMISpath}/rwc/${EMISfile} setenv GR_EMIS_LAB_002 GR_RES_FIRES setenv GR_EM_SYM_DATE_002 F # To change default behaviour please see Users Guide for EMIS_SYM_DATE #> In-line point emissions configuration setenv N_EMIS_PT 10 #> Number of elevated source groups set STKCASEE = 12US1_cmaq_cracmmv2_WR705_2018gc2 # In-line Emission Rate File Suffix set STKCASEG = 12US1_WR705_2018gc2 # Stack parameter File Suffix # Time-Independent Stack Parameters for Inline Point Sources setenv STK_GRPS_001 $IN_PTpath/ptnonipm/stack_groups_ptnonipm_${STKCASEG}.ncf setenv STK_GRPS_002 $IN_PTpath/ptegu/stack_groups_ptegu_${STKCASEG}.ncf setenv STK_GRPS_003 $IN_PTpath/othpt/stack_groups_othpt_${STKCASEG}.ncf setenv STK_GRPS_004 $IN_PTpath/ptagfire/stack_groups_ptagfire_${YYYYMMDD}_${STKCASEG}.ncf setenv STK_GRPS_005 $IN_PTpath/ptfire_grass/stack_groups_ptfire_grass_${YYYYMMDD}_${STKCASEG}.ncf setenv STK_GRPS_006 $IN_PTpath/ptfire/stack_groups_ptfire_${YYYYMMDD}_${STKCASEG}.ncf setenv STK_GRPS_007 $IN_PTpath/ptfire_othna/stack_groups_ptfire_othna_${YYYYMMDD}_${STKCASEG}.ncf setenv STK_GRPS_008 $IN_PTpath/pt_oilgas/stack_groups_pt_oilgas_${STKCASEG}.ncf setenv STK_GRPS_009 $IN_PTpath/cmv_c3_12/stack_groups_cmv_c3_12_${STKCASEG}.ncf setenv STK_GRPS_010 $IN_PTpath/cmv_c1c2_12/stack_groups_cmv_c1c2_12_${STKCASEG}.ncf # Emission Rates for Inline Point Sources setenv STK_EMIS_001 $IN_PTpath/ptnonipm/inln_mole_ptnonipm_${YYYYMMDD}_${STKCASEE}.ncf setenv STK_EMIS_002 $IN_PTpath/ptegu/inln_mole_ptegu_${YYYYMMDD}_${STKCASEE}.ncf setenv STK_EMIS_003 $IN_PTpath/othpt/inln_mole_othpt_${YYYYMMDD}_${STKCASEE}.ncf setenv STK_EMIS_004 $IN_PTpath/ptagfire/inln_mole_ptagfire_${YYYYMMDD}_${STKCASEE}.ncf setenv STK_EMIS_005 $IN_PTpath/ptfire_grass/inln_mole_ptfire_grass_${YYYYMMDD}_${STKCASEE}.ncf setenv STK_EMIS_006 $IN_PTpath/ptfire/inln_mole_ptfire_${YYYYMMDD}_${STKCASEE}.ncf setenv STK_EMIS_007 $IN_PTpath/ptfire_othna/inln_mole_ptfire_othna_${YYYYMMDD}_${STKCASEE}.ncf setenv STK_EMIS_008 $IN_PTpath/pt_oilgas/inln_mole_pt_oilgas_${YYYYMMDD}_${STKCASEE}.ncf setenv STK_EMIS_009 $IN_PTpath/cmv_c3_12/inln_mole_cmv_c3_12_${YYYYMMDD}_${STKCASEE}.ncf setenv STK_EMIS_010 $IN_PTpath/cmv_c1c2_12/inln_mole_cmv_c1c2_12_${YYYYMMDD}_${STKCASEE}.ncf # Label Each Emissions Stream setenv STK_EMIS_LAB_001 PT_NONEGU setenv STK_EMIS_LAB_002 PT_EGU setenv STK_EMIS_LAB_003 PT_OTHER setenv STK_EMIS_LAB_004 PT_AGFIRES setenv STK_EMIS_LAB_005 PT_RXFIRES setenv STK_EMIS_LAB_006 PT_FIRES setenv STK_EMIS_LAB_007 PT_OTHFIRES setenv STK_EMIS_LAB_008 PT_OILGAS setenv STK_EMIS_LAB_009 PT_CMV_C3 setenv STK_EMIS_LAB_010 PT_CMV_C1C2 # Allow CMAQ to Use Point Source files with dates that do not # match the internal model date # To change default behaviour please see Users Guide for EMIS_SYM_DATE setenv STK_EM_SYM_DATE_001 F setenv STK_EM_SYM_DATE_002 F setenv STK_EM_SYM_DATE_003 F setenv STK_EM_SYM_DATE_004 F setenv STK_EM_SYM_DATE_005 F setenv STK_EM_SYM_DATE_006 F setenv STK_EM_SYM_DATE_007 F setenv STK_EM_SYM_DATE_008 F #> Lightning NOx configuration if ( $CTM_LTNG_NO == 'Y' ) then setenv LTNGNO "InLine" #> set LTNGNO to "Inline" to activate in-line calculation #> In-line lightning NOx options setenv USE_NLDN Y #> use hourly NLDN strike file [ default: Y ] if ( $USE_NLDN == Y ) then setenv NLDN_STRIKES ${IN_LTpath}/NLDN_12km_60min_${YYYYMMDD}.ioapi endif setenv LTNGPARMS_FILE ${IN_LTpath}/LTNG_AllParms_12NE3.nc #> lightning parameter file endif #> In-line biogenic emissions configuration if ( $CTM_BIOGEMIS_BE == 'Y' ) then set IN_BEISpath = ${INPDIR}/surface setenv GSPRO $BLD/gspro_biogenics.txt setenv BEIS_NORM_EMIS $IN_BEISpath/beis4_beld6_norm_emis.12NE3.nc setenv BEIS_SOILINP $OUTDIR/CCTM_BSOILOUT_${RUNID}_${YESTERDAY}.nc #> Biogenic NO soil input file; ignore if NEW_START = TRUE endif if ( $CTM_BIOGEMIS_MG == 'Y' ) then setenv MEGAN_SOILINP $OUTDIR/CCTM_MSOILOUT_${RUNID}_${YESTERDAY}.nc #> Biogenic NO soil input file; ignore if INITIAL_RUN = Y #> ; ignore if IGNORE_SOILINP = Y setenv MEGAN_CTS $SZpath/megan3.2/CT3_CONUS.ncf setenv MEGAN_EFS $SZpath/megan3.2/EFMAPS_CONUS.ncf setenv MEGAN_LDF $SZpath/megan3.2/LDF_CONUS.ncf if ($BDSNP_MEGAN == 'Y') then setenv BDSNPINP $OUTDIR/CCTM_BDSNPOUT_${RUNID}_${YESTERDAY}.nc setenv BDSNP_FFILE $SZpath/megan3.2/FERT_tceq_12km.ncf setenv BDSNP_NFILE $SZpath/megan3.2/NDEP_tceq_12km.ncf setenv BDSNP_LFILE $SZpath/megan3.2/LANDTYPE_tceq_12km.ncf setenv BDSNP_AFILE $SZpath/megan3.2/ARID_tceq_12km.ncf setenv BDSNP_NAFILE $SZpath/megan3.2/NONARID_tceq_12km.ncf endif endif #> In-line sea spray emissions configuration setenv OCEAN_1 $SZpath/OCEAN_${MM}_L3m_MC_CHL_chlor_a_12NE3.nc #> horizontal grid-dependent ocean file #> Bidirectional ammonia configuration if ( $CTM_ABFLUX == 'Y' ) then setenv E2C_SOIL ${EPICpath}/2018r1_EPIC0509_12NE3_soil.nc setenv E2C_CHEM ${EPICpath}/2018r1_EPIC0509_12NE3_time${YYYYMMDD}.nc setenv E2C_CHEM_YEST ${EPICpath}/2018r1_EPIC0509_12NE3_time${YESTERDAY}.nc setenv E2C_LU ${EPICpath}/beld4_12NE3_2011.nc endif #> Inline Process Analysis setenv CTM_PROCAN N #> use process analysis [ default: N] if ( $?CTM_PROCAN ) then # $CTM_PROCAN is defined if ( $CTM_PROCAN == 'Y' || $CTM_PROCAN == 'T' ) then #> process analysis global column, row and layer ranges # setenv PA_BCOL_ECOL "10 90" # default: all columns # setenv PA_BROW_EROW "10 80" # default: all rows # setenv PA_BLEV_ELEV "1 4" # default: all levels setenv PACM_INFILE ${NMLpath}/pa_${MECH}.ctl setenv PACM_REPORT $OUTDIR/"PA_REPORT".${YYYYMMDD} endif endif #> Integrated Source Apportionment Method (ISAM) Options setenv CTM_ISAM N if ( $?CTM_ISAM ) then if ( $CTM_ISAM == 'Y' || $CTM_ISAM == 'T' ) then setenv SA_IOLIST ${WORKDIR}/isam_control.2018_12NE3.txt setenv ISAM_BLEV_ELEV " 1 1" setenv AISAM_BLEV_ELEV " 1 1" #> Set Up ISAM Initial Condition Flags if ($NEW_START == true || $NEW_START == TRUE ) then setenv ISAM_NEW_START Y setenv ISAM_PREVDAY else setenv ISAM_NEW_START N setenv ISAM_PREVDAY "$OUTDIR/CCTM_SA_CGRID_${RUNID}_${YESTERDAY}.nc" endif #> Set Up ISAM Output Filenames setenv SA_ACONC_1 "$OUTDIR/CCTM_SA_ACONC_${CTM_APPL}.nc -v" setenv SA_CONC_1 "$OUTDIR/CCTM_SA_CONC_${CTM_APPL}.nc -v" setenv SA_DD_1 "$OUTDIR/CCTM_SA_DRYDEP_${CTM_APPL}.nc -v" setenv SA_WD_1 "$OUTDIR/CCTM_SA_WETDEP_${CTM_APPL}.nc -v" setenv SA_CGRID_1 "$OUTDIR/CCTM_SA_CGRID_${CTM_APPL}.nc -v" #> Set optional ISAM regions files setenv ISAM_REGIONS $INPDIR/surface/GRIDMASK_STATES_12NE3.nc #> Options used to favor tracked species in reaction for Ozone-NOx chemistry setenv ISAM_O3_WEIGHTS 5 # weights for tracked species Default is 5 # OPTIONS # 1 does not weight any species # 2 weights NOx and subset of NOz species # 3 uses with from option 2 plus weight OVOC species, organic radicals and operators # 4 weight OVOC species, organic radicals and operators # 5 toggles between two weighting set based on VOC and NOx limited ozone production # Below options only used if ISAM_O3_WEIGHTS set to 5 setenv ISAM_NOX_CASE 2 # weights for tracked species when ozone production is NOx limited. Default is 2 setenv ISAM_VOC_CASE 4 # weights for tracked species when ozone production is VOC limited. Default is 4 setenv VOC_NOX_TRANS 0.35 # value of Prod H2O2 over Prod HNO3 less than where # ISAM_VOC_CASE weights are used. Otherwise, ISAM_NOX_CASE # weights are used. Default is 0.35 endif endif #> Sulfur Tracking Model (STM) setenv STM_SO4TRACK N #> sulfur tracking [ default: N ] if ( $?STM_SO4TRACK ) then if ( $STM_SO4TRACK == 'Y' || $STM_SO4TRACK == 'T' ) then #> option to normalize sulfate tracers [ default: Y ] setenv STM_ADJSO4 Y endif endif #> Decoupled Direct Method in 3D (DDM-3D) Options setenv CTM_DDM3D N # Sets up requisite script settings for DDM-3D (default is N/F) # Additionally requires for CCTM to be compiled for DDM-3D simulations set NPMAX = 1 # Number of sensitivity parameters defined in SEN_INPUT setenv SEN_INPUT ${WORKDIR}/sensinput.2018_12NE3.dat setenv DDM3D_HIGH N # allow higher-order sensitivity parameters in SEN_INPUT [ T | Y | F | N ] (default is N/F) if ($NEW_START == true || $NEW_START == TRUE ) then setenv DDM3D_RST N # begins from sensitivities from a restart file [ T | Y | F | N ] (default is Y/T) set S_ICpath = # sensitivity fields are initialized to 0.0 on the first hour of the first day set S_ICfile = else setenv DDM3D_RST Y # begins from sensitivities from a restart file [ T | Y | F | N ] (default is Y/T) set S_ICpath = $OUTDIR set S_ICfile = CCTM_SENGRID_${RUNID}_${YESTERDAY}.nc endif setenv CTM_NPMAX $NPMAX setenv CTM_SENS_1 "$OUTDIR/CCTM_SENGRID_${CTM_APPL}.nc -v" setenv A_SENS_1 "$OUTDIR/CCTM_ASENS_${CTM_APPL}.nc -v" setenv CTM_SWETDEP_1 "$OUTDIR/CCTM_SENWDEP_${CTM_APPL}.nc -v" setenv CTM_SDRYDEP_1 "$OUTDIR/CCTM_SENDDEP_${CTM_APPL}.nc -v" setenv INIT_SENS_1 $S_ICpath/$S_ICfile # ===================================================================== #> Output Files # ===================================================================== #> set output file names setenv S_CGRID "$OUTDIR/CCTM_CGRID_${CTM_APPL}.nc" #> 3D Inst. Concentrations setenv CTM_CONC_1 "$OUTDIR/CCTM_CONC_${CTM_APPL}.nc -v" #> On-Hour Concentrations setenv A_CONC_1 "$OUTDIR/CCTM_ACONC_${CTM_APPL}.nc -v" #> Hourly Avg. Concentrations setenv MEDIA_CONC "$OUTDIR/CCTM_MEDIA_CONC_${CTM_APPL}.nc -v" #> NH3 Conc. in Media setenv CTM_DRY_DEP_1 "$OUTDIR/CCTM_DRYDEP_${CTM_APPL}.nc -v" #> Hourly Dry Deposition setenv CTM_DEPV_DIAG "$OUTDIR/CCTM_DEPV_${CTM_APPL}.nc -v" #> Dry Deposition Velocities setenv B3GTS_S "$OUTDIR/CCTM_B3GTS_S_${CTM_APPL}.nc -v" #> Biogenic Emissions setenv BEIS_SOILOUT "$OUTDIR/CCTM_BSOILOUT_${CTM_APPL}.nc" #> Soil Emissions setenv MEGAN_SOILOUT "$OUTDIR/CCTM_MSOILOUT_${CTM_APPL}.nc" #> Soil Emissions setenv BDSNPOUT "$OUTDIR/CCTM_BDSNPOUT_${CTM_APPL}.nc" #> Soil Emissions setenv CTM_WET_DEP_1 "$OUTDIR/CCTM_WETDEP1_${CTM_APPL}.nc -v" #> Wet Dep From All Clouds setenv CTM_WET_DEP_2 "$OUTDIR/CCTM_WETDEP2_${CTM_APPL}.nc -v" #> Wet Dep From SubGrid Clouds setenv CTM_ELMO_1 "$OUTDIR/CCTM_ELMO_${CTM_APPL}.nc -v" #> On-Hour Particle Diagnostics setenv CTM_AELMO_1 "$OUTDIR/CCTM_AELMO_${CTM_APPL}.nc -v" #> Hourly Avg. Particle Diagnostics setenv CTM_RJ_1 "$OUTDIR/CCTM_PHOTDIAG1_${CTM_APPL}.nc -v" #> 2D Surface Summary from Inline Photolysis setenv CTM_RJ_2 "$OUTDIR/CCTM_PHOTDIAG2_${CTM_APPL}.nc -v" #> 3D Photolysis Rates setenv CTM_RJ_3 "$OUTDIR/CCTM_PHOTDIAG3_${CTM_APPL}.nc -v" #> 3D Optical and Radiative Results from Photolysis setenv CTM_SSEMIS_1 "$OUTDIR/CCTM_SSEMIS_${CTM_APPL}.nc -v" #> Sea Spray Emissions setenv CTM_DUST_EMIS_1 "$OUTDIR/CCTM_DUSTEMIS_${CTM_APPL}.nc -v" #> Dust Emissions setenv CTM_BUDGET "$OUTDIR/CCTM_BUDGET_${CTM_APPL}.txt -v" #> Budget [Default Off] setenv CTM_IPR_1 "$OUTDIR/CCTM_PA_1_${CTM_APPL}.nc -v" #> Process Analysis setenv CTM_IPR_2 "$OUTDIR/CCTM_PA_2_${CTM_APPL}.nc -v" #> Process Analysis setenv CTM_IPR_3 "$OUTDIR/CCTM_PA_3_${CTM_APPL}.nc -v" #> Process Analysis setenv CTM_IRR_1 "$OUTDIR/CCTM_IRR_1_${CTM_APPL}.nc -v" #> Chem Process Analysis setenv CTM_IRR_2 "$OUTDIR/CCTM_IRR_2_${CTM_APPL}.nc -v" #> Chem Process Analysis setenv CTM_IRR_3 "$OUTDIR/CCTM_IRR_3_${CTM_APPL}.nc -v" #> Chem Process Analysis setenv CTM_DRY_DEP_MOS "$OUTDIR/CCTM_DDMOS_${CTM_APPL}.nc -v" #> Dry Dep setenv CTM_DEPV_MOS "$OUTDIR/CCTM_DEPVMOS_${CTM_APPL}.nc -v" #> Dry Dep Velocity setenv CTM_VDIFF_DIAG "$OUTDIR/CCTM_VDIFF_DIAG_${CTM_APPL}.nc -v" #> Vertical Dispersion Diagnostic setenv CTM_VSED_DIAG "$OUTDIR/CCTM_VSED_DIAG_${CTM_APPL}.nc -v" #> Particle Grav. Settling Velocity setenv CTM_LTNGDIAG_1 "$OUTDIR/CCTM_LTNGHRLY_${CTM_APPL}.nc -v" #> Hourly Avg Lightning NO setenv CTM_LTNGDIAG_2 "$OUTDIR/CCTM_LTNGCOL_${CTM_APPL}.nc -v" #> Column Total Lightning NO setenv CTM_VEXT_1 "$OUTDIR/CCTM_VEXT_${CTM_APPL}.nc -v" #> On-Hour 3D Concs at select sites #> set floor file (neg concs) setenv FLOOR_FILE ${OUTDIR}/FLOOR_${CTM_APPL}.txt #> look for existing log files and output files ( ls CTM_LOG_???.${CTM_APPL} > buff.txt ) >& /dev/null ( ls ${LOGDIR}/CTM_LOG_???.${CTM_APPL} >> buff.txt ) >& /dev/null set log_test = `cat buff.txt`; rm -f buff.txt set OUT_FILES = (${FLOOR_FILE} ${S_CGRID} ${CTM_CONC_1} ${A_CONC_1} ${MEDIA_CONC} \ ${CTM_DRY_DEP_1} $CTM_DEPV_DIAG $B3GTS_S $MEGAN_SOILOUT $BEIS_SOILOUT $BDSNPOUT \ $CTM_WET_DEP_1 $CTM_WET_DEP_2 $CTM_ELMO_1 $CTM_AELMO_1 \ $CTM_RJ_1 $CTM_RJ_2 $CTM_RJ_3 $CTM_SSEMIS_1 $CTM_DUST_EMIS_1 $CTM_IPR_1 $CTM_IPR_2 \ $CTM_IPR_3 $CTM_BUDGET $CTM_IRR_1 $CTM_IRR_2 $CTM_IRR_3 $CTM_DRY_DEP_MOS \ $CTM_DEPV_MOS $CTM_VDIFF_DIAG $CTM_VSED_DIAG $CTM_LTNGDIAG_1 $CTM_LTNGDIAG_2 $CTM_VEXT_1 ) if ( $?CTM_ISAM ) then if ( $CTM_ISAM == 'Y' || $CTM_ISAM == 'T' ) then set OUT_FILES = (${OUT_FILES} ${SA_ACONC_1} ${SA_CONC_1} ${SA_DD_1} ${SA_WD_1} \ ${SA_CGRID_1} ) endif endif if ( $?CTM_DDM3D ) then if ( $CTM_DDM3D == 'Y' || $CTM_DDM3D == 'T' ) then set OUT_FILES = (${OUT_FILES} ${CTM_SENS_1} ${A_SENS_1} ${CTM_SWETDEP_1} ${CTM_SDRYDEP_1} ) endif endif set OUT_FILES = `echo $OUT_FILES | sed "s; -v;;g" | sed "s;MPI:;;g" ` ( ls $OUT_FILES > buff.txt ) >& /dev/null set out_test = `cat buff.txt`; rm -f buff.txt #> delete previous output if requested if ( $CLOBBER_DATA == true || $CLOBBER_DATA == TRUE ) then echo echo "Existing Logs and Output Files for Day ${TODAYG} Will Be Deleted" #> remove previous log files foreach file ( ${log_test} ) #echo "Deleting log file: $file" /bin/rm -f $file end #> remove previous output files foreach file ( ${out_test} ) #echo "Deleting output file: $file" /bin/rm -f $file end /bin/rm -f ${OUTDIR}/CCTM_DESID*${CTM_APPL}.nc else #> error if previous log files exist if ( "$log_test" != "" ) then echo "*** Logs exist - run ABORTED ***" echo "*** To overide, set CLOBBER_DATA = TRUE in run_cctm.csh ***" echo "*** and these files will be automatically deleted. ***" exit 1 endif #> error if previous output files exist if ( "$out_test" != "" ) then echo "*** Output Files Exist - run will be ABORTED ***" foreach file ( $out_test ) echo " cannot delete $file" end echo "*** To overide, set CLOBBER_DATA = TRUE in run_cctm.csh ***" echo "*** and these files will be automatically deleted. ***" exit 1 endif endif #> for the run control ... setenv CTM_STDATE $YYYYJJJ setenv CTM_STTIME $STTIME setenv CTM_RUNLEN $NSTEPS setenv CTM_TSTEP $TSTEP setenv INIT_CONC_1 $ICpath/$ICFILE setenv BNDY_CONC_1 $BCpath/$BCFILE setenv OMI $OMIpath/$OMIfile setenv MIE_TABLE $OUTDIR/mie_table_coeffs_${compilerString}.txt setenv OPTICS_DATA $OMIpath/$OPTfile #setenv XJ_DATA $JVALpath/$JVALfile #> species defn & photolysis setenv gc_matrix_nml ${NMLpath}/GC_$MECH.nml setenv ae_matrix_nml ${NMLpath}/AE_$MECH.nml setenv nr_matrix_nml ${NMLpath}/NR_$MECH.nml setenv tr_matrix_nml ${NMLpath}/Species_Table_TR_0.nml #> check for photolysis input data setenv CSQY_DATA ${NMLpath}/CSQY_DATA_$MECH if (! (-e $CSQY_DATA ) ) then echo " $CSQY_DATA not found " exit 1 endif if (! (-e $OPTICS_DATA ) ) then echo " $OPTICS_DATA not found " exit 1 endif # =================================================================== #> Execution Portion # =================================================================== #> Print attributes of the executable if ( $CTM_DIAG_LVL != 0 ) then ls -l $BLD/$EXEC size $BLD/$EXEC unlimit limit endif #> Print Startup Dialogue Information to Standard Out echo echo "CMAQ Processing of Day $YYYYMMDD Began at `date`" echo #> Executable call for single PE, uncomment to invoke #( /usr/bin/time -p $BLD/$EXEC ) |& tee buff_${EXECUTION_ID}.txt #> Executable call for multi PE, configure for your system # set MPI = /usr/local/intel/impi/3.2.2.006/bin64 # set MPIRUN = $MPI/mpirun ( /usr/bin/time -p mpirun -np $NPROCS $BLD/$EXEC ) |& tee buff_${EXECUTION_ID}.txt #> Harvest Timing Output so that it may be reported below set rtarray = "${rtarray} `tail -3 buff_${EXECUTION_ID}.txt | grep -Eo '[+-]?[0-9]+([.][0-9]+)?' | head -1` " rm -rf buff_${EXECUTION_ID}.txt #> Abort script if abnormal termination if ( ! -e $OUTDIR/CCTM_CGRID_${CTM_APPL}.nc ) then echo "" echo "**************************************************************" echo "** Runscript Detected an Error: CGRID file was not written. **" echo "** This indicates that CMAQ was interrupted or an issue **" echo "** exists with writing output. The runscript will now **" echo "** abort rather than proceeding to subsequent days. **" echo "**************************************************************" break endif #> Print Concluding Text echo echo "CMAQ Processing of Day $YYYYMMDD Finished at `date`" echo echo "\\\\\=====\\\\\=====\\\\\=====\\\\\=====/////=====/////=====/////=====/////" echo # =================================================================== #> Finalize Run for This Day and Loop to Next Day # =================================================================== #> Save Log Files and Move on to Next Simulation Day mv CTM_LOG_???.${CTM_APPL} $LOGDIR if ( $CTM_DIAG_LVL != 0 ) then mv CTM_DIAG_???.${CTM_APPL} $LOGDIR endif #> The next simulation day will, by definition, be a restart setenv NEW_START false #> Increment both Gregorian and Julian Days set TODAYG = `date -ud "${TODAYG}+1days" +%Y-%m-%d` #> Add a day for tomorrow set TODAYJ = `date -ud "${TODAYG}" +%Y%j` #> Convert YYYY-MM-DD to YYYYJJJ end #Loop to the next Simulation Day # =================================================================== #> Generate Timing Report # =================================================================== set RTMTOT = 0 foreach it ( `seq ${NDAYS}` ) set rt = `echo ${rtarray} | cut -d' ' -f${it}` set RTMTOT = `echo "${RTMTOT} + ${rt}" | bc -l` end set RTMAVG = `echo "scale=2; ${RTMTOT} / ${NDAYS}" | bc -l` set RTMTOT = `echo "scale=2; ${RTMTOT} / 1" | bc -l` echo echo "==================================" echo " ***** CMAQ TIMING REPORT *****" echo "==================================" echo "Start Day: ${START_DATE}" echo "End Day: ${END_DATE}" echo "Number of Simulation Days: ${NDAYS}" echo "Domain Name: ${GRID_NAME}" echo "Number of Grid Cells: ${NCELLS} (ROW x COL x LAY)" echo "Number of Layers: ${NZ}" echo "Number of Processes: ${NPROCS}" echo " All times are in seconds." echo echo "Num Day Wall Time" set d = 0 set day = ${START_DATE} foreach it ( `seq ${NDAYS}` ) # Set the right day and format it set d = `echo "${d} + 1" | bc -l` set n = `printf "%02d" ${d}` # Choose the correct time variables set rt = `echo ${rtarray} | cut -d' ' -f${it}` # Write out row of timing data echo "${n} ${day} ${rt}" # Increment day for next loop set day = `date -ud "${day}+1days" +%Y-%m-%d` end echo " Total Time = ${RTMTOT}" echo " Avg. Time = ${RTMAVG}" exit ================================================ FILE: CCTM/scripts/run_cctm_Bench_2018_12NE3_cb6r5_m3dry_ddm.csh ================================================ #!/bin/csh -f # ===================== CCTMv5.5.X Run Script ========================= # Usage: run.cctm >&! cctm_Bench.log & # # To report problems or request help with this script/program: # http://www.epa.gov/cmaq (EPA CMAQ Website) # http://www.cmascenter.org (CMAS Website) # =================================================================== # =================================================================== #> Runtime Environment Options # =================================================================== echo 'Start Model Run At ' `date` #> Toggle Diagnostic Mode which will print verbose information to #> standard output setenv CTM_DIAG_LVL 0 #> Choose compiler and set up CMAQ environment with correct #> libraries using config.cmaq. Options: intel | gcc | pgi if ( ! $?compiler ) then setenv compiler intel endif if ( ! $?compilerVrsn ) then setenv compilerVrsn Empty endif #> Source the config.cmaq file to set the build environment cd ../.. source ./config_cmaq.csh $compiler $compilerVrsn cd CCTM/scripts #> Set General Parameters for Configuring the Simulation set VRSN = v55_DDM3D #> Code Version set PROC = mpi #> serial or mpi set MECH = cb6r5_ae7_aq #> Mechanism ID, depends on the bldit_cctm.csh settings set DEP = m3dry #> m3dry or stage, depending on bldit_cctm.csh settings set APPL = Bench_2018_12NE3_${MECH}_${DEP} #> Application Name (e.g. Gridname) #> Define RUNID as any combination of parameters above or others. By default, #> this information will be collected into this one string, $RUNID, for easy #> referencing in output binaries and log files as well as in other scripts. setenv RUNID ${VRSN}_${compilerString}_${APPL} #> Set the build directory (this is where the CMAQ executable #> is located by default). set BLD = ${CMAQ_HOME}/CCTM/scripts/BLD_CCTM_${VRSN}_${compilerString}_${MECH}_${DEP} set EXEC = CCTM_${VRSN}.exe #> Output Each line of Runscript to Log File if ( $CTM_DIAG_LVL != 0 ) set echo #> Set Working, Input, and Output Directories setenv WORKDIR ${CMAQ_HOME}/CCTM/scripts #> Working Directory. Where the runscript is. setenv OUTDIR ${CMAQ_DATA}/output_CCTM_${RUNID} #> Output Directory setenv INPDIR ${CMAQ_DATA}/CMAQv5.4_2018_12NE3_Benchmark_2Day_Input/2018_12NE3 #> Input Directory setenv LOGDIR ${OUTDIR}/LOGS #> Log Directory Location setenv NMLpath ${BLD} #> Location of Namelists. Common places are: #> ${WORKDIR} | ${CCTM_SRC}/MECHS/${MECH} | ${BLD} echo "" echo "Working Directory is $WORKDIR" echo "Build Directory is $BLD" echo "Output Directory is $OUTDIR" echo "Log Directory is $LOGDIR" echo "Executable Name is $EXEC" # ===================================================================== #> CCTM Configuration Options # ===================================================================== #> Set Start and End Days for looping setenv NEW_START TRUE #> Set to FALSE for model restart set START_DATE = "2018-07-01" #> beginning date (July 1, 2016) set END_DATE = "2018-07-02" #> ending date (July 1, 2016) #> Set Timestepping Parameters set STTIME = 000000 #> beginning GMT time (HHMMSS) set NSTEPS = 240000 #> time duration (HHMMSS) for this run set TSTEP = 010000 #> output time step interval (HHMMSS) #> Horizontal domain decomposition if ( $PROC == serial ) then setenv NPCOL_NPROW "1 1"; set NPROCS = 1 # single processor setting else @ NPCOL = 8; @ NPROW = 4 @ NPROCS = $NPCOL * $NPROW setenv NPCOL_NPROW "$NPCOL $NPROW"; endif #> Define Execution ID: e.g. [CMAQ-Version-Info]_[User]_[Date]_[Time] if ( ! -e ${BLD}/CCTM_${VRSN}.cfg ) then set SHAID = "" else set SHAID = `grep "sha_ID" ${BLD}/CCTM_${VRSN}.cfg | cut -c 13-22` if ( $SHAID == not_a_repo ) then set SHAID = "" else set SHAID = "_sha="$SHAID endif endif setenv EXECUTION_ID "CMAQ_CCTM${VRSN}${SHAID}_`id -u -n`_`date -u +%Y%m%d_%H%M%S_%N`" #> Inform IO/API of the Execution ID echo "" echo "---CMAQ EXECUTION ID: $EXECUTION_ID ---" #> Keep or Delete Existing Output Files set CLOBBER_DATA = TRUE #> Logfile Options #> Master Log File Name; uncomment to write standard output to a log, otherwise write to screen #setenv LOGFILE $CMAQ_HOME/$RUNID.log if (! -e $LOGDIR ) then mkdir -p $LOGDIR endif setenv PRINT_PROC_TIME Y #> Print timing for all science subprocesses to Logfile #> [ default: TRUE or Y ] setenv STDOUT T #> Override I/O-API trying to write information to both the processor #> logs and STDOUT [ options: T | F ] setenv GRID_NAME 2018_12NE3 #> check GRIDDESC file for GRID_NAME options setenv GRIDDESC $INPDIR/GRIDDESC #> grid description file #> Retrieve the number of columns, rows, and layers in this simulation set NZ = 35 set NX = `grep -A 1 ${GRID_NAME} ${GRIDDESC} | tail -1 | sed 's/ */ /g' | cut -d' ' -f6` set NY = `grep -A 1 ${GRID_NAME} ${GRIDDESC} | tail -1 | sed 's/ */ /g' | cut -d' ' -f7` set NCELLS = `echo "${NX} * ${NY} * ${NZ}" | bc -l` #> Output Species and Layer Options #> CONC file species; comment or set to "ALL" to write all species to CONC # setenv CONC_SPCS "O3 NO ANO3I ANO3J NO2 FORM ISOP NH3 ANH4I ANH4J ASO4I ASO4J" #setenv CONC_BLEV_ELEV " 1 1" #> CONC file layer range; comment to write all layers to CONC #> ACONC file species; comment or set to "ALL" to write all species to ACONC #setenv AVG_CONC_SPCS "O3 NO CO NO2 ASO4I ASO4J NH3" setenv AVG_CONC_SPCS "ALL" setenv ACONC_BLEV_ELEV " 1 1" #> ACONC file layer range; comment to write all layers to ACONC setenv AVG_FILE_ENDTIME N #> override default beginning ACONC timestamp [ default: N ] #> Synchronization Time Step and Tolerance Options setenv CTM_MAXSYNC 300 #> max sync time step (sec) [ default: 720 ] setenv CTM_MINSYNC 60 #> min sync time step (sec) [ default: 60 ] setenv SIGMA_SYNC_TOP 0.7 #> top sigma level thru which sync step determined [ default: 0.7 ] #setenv ADV_HDIV_LIM 0.95 #> maximum horiz. div. limit for adv step adjust [ default: 0.9 ] setenv CTM_ADV_CFL 0.95 #> max CFL [ default: 0.75] #setenv RB_ATOL 1.0E-09 #> global ROS3 solver absolute tolerance [ default: 1.0E-07 ] #> Science Options setenv CTM_OCEAN_CHEM Y #> Flag for ocean halogen chemistry, sea spray aerosol emissions, #> and enhanced ozone deposition over ocean waters [ default: Y ] setenv CTM_WB_DUST N #> use inline windblown dust emissions (only for use with PX) [ default: N ] setenv CTM_LTNG_NO N #> turn on lightning NOx [ default: N ] setenv KZMIN Y #> use Min Kz option in edyintb [ default: Y ], #> otherwise revert to Kz0UT setenv PX_VERSION Y #> WRF PX LSM setenv CLM_VERSION N #> WRF CLM LSM setenv NOAH_VERSION N #> WRF NOAH LSM setenv CTM_ABFLUX Y #> ammonia bi-directional flux for in-line deposition #> velocities [ default: N ] setenv CTM_BIDI_FERT_NH3 T #> subtract fertilizer NH3 from emissions because it will be handled #> by the BiDi calculation [ default: Y ] setenv CTM_HGBIDI N #> mercury bi-directional flux for in-line deposition #> velocities [ default: N ] setenv CTM_SFC_HONO Y #> surface HONO interaction [ default: Y ] #> please see user guide (6.10.4 Nitrous Acid (HONO)) #> for dependency on percent urban fraction dataset setenv CTM_GRAV_SETL Y #> vdiff aerosol gravitational sedimentation [ default: Y ] setenv CTM_PVO3 N #> consider potential vorticity module for O3 transport from the stratosphere #> [default: N] setenv CTM_BIOGEMIS_BE Y #> calculate in-line biogenic emissions with BEIS [ default: N ] setenv CTM_BIOGEMIS_MG N #> turns on MEGAN biogenic emission [ default: N ] setenv BDSNP_MEGAN N #> turns on BDSNP soil NO emissions [ default: N ] setenv AEROSOL_OPTICS 3 #> sets method for determining aerosol optics affecting photolysis #> frequencies ( 3 is the default value ) #> VALUES 1 thru 3 determined Uniformly Volume Mixed spherical #> (1-Tabular Mie; 2-Mie Calculation; 3-Case Approx to Mie Theory) #> VALUES 4 thru 6 attempts to use core-shell mixing model when the #> aerosol mode has signficant black carbon core otherwise use Volume Mixed #> model where optics determined by #> (4-Tabular Mie; 5-Mie Calculation; 6-Case Approx to Mie Theory) #> Surface Tiled Aerosol and Gaseous Exchange Options #> Only active if DepMod=stage at compile time setenv CTM_MOSAIC N #> Output landuse specific deposition velocities [ default: N ] setenv CTM_STAGE_P22 N #> Pleim et al. 2022 Aerosol deposition model [default: N] setenv CTM_STAGE_E20 Y #> Emerson et al. 2020 Aerosol deposition model [default: Y] setenv CTM_STAGE_S22 N #> Shu et al. 2022 (CMAQ v5.3) Aerosol deposition model [default: N] setenv IC_AERO_M2WET F #> Specify whether or not initial condition aerosol size distribution #> is wet or dry [ default: F = dry ] setenv BC_AERO_M2WET F #> Specify whether or not boundary condition aerosol size distribution #> is wet or dry [ default: F = dry ] setenv IC_AERO_M2USE F #> Specify whether or not to use aerosol surface area from initial #> conditions [ default: T = use aerosol surface area ] setenv BC_AERO_M2USE F #> Specify whether or not to use aerosol surface area from boundary #> conditions [ default: T = use aerosol surface area ] #> Vertical Extraction Options setenv VERTEXT N setenv VERTEXT_COORD_PATH ${WORKDIR}/lonlat.csv #> I/O Controls setenv IOAPI_LOG_WRITE F #> turn on excess WRITE3 logging [ options: T | F ] setenv FL_ERR_STOP N #> stop on inconsistent input files setenv PROMPTFLAG F #> turn on I/O-API PROMPT*FILE interactive mode [ options: T | F ] setenv IOAPI_OFFSET_64 YES #> support large timestep records (>2GB/timestep record) [ options: YES | NO ] setenv IOAPI_CHECK_HEADERS N #> check file headers [ options: Y | N ] setenv CTM_EMISCHK N #> Abort CMAQ if missing surrogates from emissions Input files #> Diagnostic Output Flags setenv CTM_CKSUM Y #> checksum report [ default: Y ] setenv CLD_DIAG N #> cloud diagnostic file [ default: N ] setenv CTM_PHOTDIAG N #> photolysis diagnostic file [ default: N ] setenv NLAYS_PHOTDIAG "1" #> Number of layers for PHOTDIAG2 and PHOTDIAG3 from #> Layer 1 to NLAYS_PHOTDIAG [ default: all layers ] #setenv NWAVE_PHOTDIAG "294 303 310 316 333 381 607" #> Wavelengths written for variables #> in PHOTDIAG2 and PHOTDIAG3 #> [ default: all wavelengths ] setenv CTM_SSEMDIAG N #> sea-spray emissions diagnostic file [ default: N ] setenv CTM_DUSTEM_DIAG N #> windblown dust emissions diagnostic file [ default: N ]; #> Ignore if CTM_WB_DUST = N setenv CTM_DEPV_FILE N #> deposition velocities diagnostic file [ default: N ] setenv VDIFF_DIAG_FILE N #> vdiff & possibly aero grav. sedimentation diagnostic file [ default: N ] setenv LTNGDIAG N #> lightning diagnostic file [ default: N ] setenv B3GTS_DIAG N #> BEIS mass emissions diagnostic file [ default: N ] setenv CTM_WVEL Y #> save derived vertical velocity component to conc #> file [ default: Y ] # ===================================================================== #> Input Directories and Filenames # ===================================================================== set ICpath = $INPDIR/icbc #> initial conditions input directory set BCpath = $INPDIR/icbc #> boundary conditions input directory set EMISpath = $INPDIR/emis #> gridded emissions input directory set IN_PTpath = $INPDIR/emis #> point source emissions input directory set IN_LTpath = $INPDIR/lightning #> lightning NOx input directory set METpath = $INPDIR/met/mcipv5.4 #> meteorology input directory #set JVALpath = $INPDIR/jproc #> offline photolysis rate table directory set OMIpath = $BLD #> ozone column data for the photolysis model set EPICpath = $INPDIR/epic #> EPIC putput for bidirectional NH3 set SZpath = $INPDIR/surface #> surf zone file for in-line seaspray emissions # ===================================================================== #> Begin Loop Through Simulation Days # ===================================================================== set rtarray = "" set TODAYG = ${START_DATE} set TODAYJ = `date -ud "${START_DATE}" +%Y%j` #> Convert YYYY-MM-DD to YYYYJJJ set START_DAY = ${TODAYJ} set STOP_DAY = `date -ud "${END_DATE}" +%Y%j` #> Convert YYYY-MM-DD to YYYYJJJ set NDAYS = 0 while ($TODAYJ <= $STOP_DAY ) #>Compare dates in terms of YYYYJJJ set NDAYS = `echo "${NDAYS} + 1" | bc -l` #> Retrieve Calendar day Information set YYYYMMDD = `date -ud "${TODAYG}" +%Y%m%d` #> Convert YYYY-MM-DD to YYYYMMDD set YYYYMM = `date -ud "${TODAYG}" +%Y%m` #> Convert YYYY-MM-DD to YYYYMM set YYMMDD = `date -ud "${TODAYG}" +%y%m%d` #> Convert YYYY-MM-DD to YYMMDD set MM = `date -ud "${TODAYG}" +%m` #> Convert YYYY-MM-DD to MM set YYYYJJJ = $TODAYJ #> Calculate Yesterday's Date set YESTERDAY = `date -ud "${TODAYG}-1days" +%Y%m%d` #> Convert YYYY-MM-DD to YYYYJJJ # ===================================================================== #> Set Output String and Propagate Model Configuration Documentation # ===================================================================== echo "" echo "Set up input and output files for Day ${TODAYG}." #> set output file name extensions setenv CTM_APPL ${RUNID}_${YYYYMMDD} #> Copy Model Configuration To Output Folder if ( ! -d "$OUTDIR" ) mkdir -p $OUTDIR cp $BLD/CCTM_${VRSN}.cfg $OUTDIR/CCTM_${CTM_APPL}.cfg # ===================================================================== #> Input Files (Some are Day-Dependent) # ===================================================================== #> Initial conditions if ($NEW_START == true || $NEW_START == TRUE ) then setenv ICFILE CCTM_ICON_v54_${MECH}_12NE3_20180701.nc setenv INIT_MEDC_1 notused else set ICpath = $OUTDIR setenv ICFILE CCTM_CGRID_${RUNID}_${YESTERDAY}.nc setenv INIT_MEDC_1 $ICpath/CCTM_MEDIA_CONC_${RUNID}_${YESTERDAY}.nc endif #> Boundary conditions set BCFILE = CCTM_BCON_v54_${MECH}_12NE3_${YYYYMMDD}.nc #> Off-line photolysis rates #set JVALfile = JTABLE_${YYYYJJJ} #> Ozone column data set OMIfile = OMI_1979_to_2019.dat #> Optics file set OPTfile = PHOT_OPTICS.dat #> MCIP meteorology files setenv GRID_BDY_2D $METpath/GRIDBDY2D_12NE3_${YYYYMMDD}.nc # GRID files are static, not day-specific setenv GRID_CRO_2D $METpath/GRIDCRO2D_12NE3_${YYYYMMDD}.nc setenv GRID_CRO_3D $METpath/GRIDCRO3D_12NE3_${YYYYMMDD}.nc setenv GRID_DOT_2D $METpath/GRIDDOT2D_12NE3_${YYYYMMDD}.nc setenv MET_CRO_2D $METpath/METCRO2D_12NE3_${YYYYMMDD}.nc setenv MET_CRO_3D $METpath/METCRO3D_12NE3_${YYYYMMDD}.nc setenv MET_DOT_3D $METpath/METDOT3D_12NE3_${YYYYMMDD}.nc setenv MET_BDY_3D $METpath/METBDY3D_12NE3_${YYYYMMDD}.nc setenv LUFRAC_CRO $METpath/LUFRAC_CRO_12NE3_${YYYYMMDD}.nc #> Control Files #> #> IMPORTANT NOTE #> #> The DESID control files defined below are an integral part of controlling the behavior of the model simulation. #> Among other things, they control the mapping of species in the emission files to chemical species in the model and #> several aspects related to the simulation of organic aerosols. #> Please carefully review the DESID control files to ensure that they are configured to be consistent with the assumptions #> made when creating the emission files defined below and the desired representation of organic aerosols. #> For further information, please see: #> + AERO7 Release Notes section on 'Required emission updates': #> https://github.com/USEPA/CMAQ/blob/master/DOCS/Release_Notes/aero7_overview.md #> + CMAQ User's Guide section 6.9.3 on 'Emission Compatability': #> https://github.com/USEPA/CMAQ/blob/master/DOCS/Users_Guide/CMAQ_UG_ch06_model_configuration_options.md#6.9.3_Emission_Compatability #> + Emission Control (DESID) Documentation in the CMAQ User's Guide: #> https://github.com/USEPA/CMAQ/blob/master/DOCS/Users_Guide/Appendix/CMAQ_UG_appendixB_emissions_control.md #> setenv DESID_CTRL_NML ${BLD}/CMAQ_Control_DESID.nml setenv DESID_CHEM_CTRL_NML ${BLD}/CMAQ_Control_DESID_${MECH}.nml #> The following namelist configures aggregated output (via the Explicit and Lumped #> Air Quality Model Output (ELMO) Module), domain-wide budget output, and chemical #> family output. setenv MISC_CTRL_NML ${BLD}/CMAQ_Control_Misc.nml #> The following namelist controls the mapping of meteorological land use types and the NH3 and Hg emission #> potentials setenv STAGECTRL_NML ${BLD}/CMAQ_Control_STAGE.nml #> Spatial Masks For Emissions Scaling #setenv CMAQ_MASKS $SZpath/OCEAN_${MM}_L3m_MC_CHL_chlor_a_12NE3.nc #> horizontal grid-dependent ocean file setenv CMAQ_MASKS $INPDIR/GRIDMASK_STATES_12NE3.nc #> Gridded Emissions Files setenv N_EMIS_GR 2 set EMISfile = emis_mole_all_${YYYYMMDD}_12NE3_nobeis_norwc_2018gc_cb6_18j.ncf setenv GR_EMIS_001 ${EMISpath}/merged_nobeis_norwc/${EMISfile} setenv GR_EMIS_LAB_001 GRIDDED_EMIS setenv GR_EM_SYM_DATE_001 F # To change default behaviour please see Users Guide for EMIS_SYM_DATE set EMISfile = emis_mole_rwc_${YYYYMMDD}_12NE3_cmaq_cb6ae7_2018gc_cb6_18j.ncf setenv GR_EMIS_002 ${EMISpath}/rwc/${EMISfile} setenv GR_EMIS_LAB_002 GR_RES_FIRES setenv GR_EM_SYM_DATE_002 F # To change default behaviour please see Users Guide for EMIS_SYM_DATE #> In-line point emissions configuration setenv N_EMIS_PT 10 #> Number of elevated source groups set STKCASEG = 12US1_2018gc_cb6_18j # Stack Group Version Label set STKCASEE = 12US1_cmaq_cb6ae7_2018gc_cb6_18j # Stack Emission Version Label # Time-Independent Stack Parameters for Inline Point Sources setenv STK_GRPS_001 $IN_PTpath/ptnonipm/stack_groups_ptnonipm_${STKCASEG}.ncf setenv STK_GRPS_002 $IN_PTpath/ptegu/stack_groups_ptegu_${STKCASEG}.ncf setenv STK_GRPS_003 $IN_PTpath/othpt/stack_groups_othpt_${STKCASEG}.ncf setenv STK_GRPS_004 $IN_PTpath/ptagfire/stack_groups_ptagfire_${YYYYMMDD}_${STKCASEG}.ncf setenv STK_GRPS_005 $IN_PTpath/ptfire-rx/stack_groups_ptfire-rx_${YYYYMMDD}_${STKCASEG}.ncf setenv STK_GRPS_006 $IN_PTpath/ptfire-wild/stack_groups_ptfire-wild_${YYYYMMDD}_${STKCASEG}.ncf setenv STK_GRPS_007 $IN_PTpath/ptfire_othna/stack_groups_ptfire_othna_${YYYYMMDD}_${STKCASEG}.ncf setenv STK_GRPS_008 $IN_PTpath/pt_oilgas/stack_groups_pt_oilgas_${STKCASEG}.ncf setenv STK_GRPS_009 $IN_PTpath/cmv_c3_12/stack_groups_cmv_c3_12_${STKCASEG}.ncf setenv STK_GRPS_010 $IN_PTpath/cmv_c1c2_12/stack_groups_cmv_c1c2_12_${STKCASEG}.ncf # Emission Rates for Inline Point Sources setenv STK_EMIS_001 $IN_PTpath/ptnonipm/inln_mole_ptnonipm_${YYYYMMDD}_${STKCASEE}.ncf setenv STK_EMIS_002 $IN_PTpath/ptegu/inln_mole_ptegu_${YYYYMMDD}_${STKCASEE}.ncf setenv STK_EMIS_003 $IN_PTpath/othpt/inln_mole_othpt_${YYYYMMDD}_${STKCASEE}.ncf setenv STK_EMIS_004 $IN_PTpath/ptagfire/inln_mole_ptagfire_${YYYYMMDD}_${STKCASEE}.ncf setenv STK_EMIS_005 $IN_PTpath/ptfire-rx/inln_mole_ptfire-rx_${YYYYMMDD}_${STKCASEE}.ncf setenv STK_EMIS_006 $IN_PTpath/ptfire-wild/inln_mole_ptfire-wild_${YYYYMMDD}_${STKCASEE}.ncf setenv STK_EMIS_007 $IN_PTpath/ptfire_othna/inln_mole_ptfire_othna_${YYYYMMDD}_${STKCASEE}.ncf setenv STK_EMIS_008 $IN_PTpath/pt_oilgas/inln_mole_pt_oilgas_${YYYYMMDD}_${STKCASEE}.ncf setenv STK_EMIS_009 $IN_PTpath/cmv_c3_12/inln_mole_cmv_c3_12_${YYYYMMDD}_${STKCASEE}.ncf setenv STK_EMIS_010 $IN_PTpath/cmv_c1c2_12/inln_mole_cmv_c1c2_12_${YYYYMMDD}_${STKCASEE}.ncf # Label Each Emissions Stream setenv STK_EMIS_LAB_001 PT_NONEGU setenv STK_EMIS_LAB_002 PT_EGU setenv STK_EMIS_LAB_003 PT_OTHER setenv STK_EMIS_LAB_004 PT_AGFIRES setenv STK_EMIS_LAB_005 PT_RXFIRES setenv STK_EMIS_LAB_006 PT_WILDFIRES setenv STK_EMIS_LAB_007 PT_OTHFIRES setenv STK_EMIS_LAB_008 PT_OILGAS setenv STK_EMIS_LAB_009 PT_CMV_C3 setenv STK_EMIS_LAB_010 PT_CMV_C1C2 # Allow CMAQ to Use Point Source files with dates that do not # match the internal model date # To change default behaviour please see Users Guide for EMIS_SYM_DATE setenv STK_EM_SYM_DATE_001 F setenv STK_EM_SYM_DATE_002 F setenv STK_EM_SYM_DATE_003 F setenv STK_EM_SYM_DATE_004 F setenv STK_EM_SYM_DATE_005 F setenv STK_EM_SYM_DATE_006 F setenv STK_EM_SYM_DATE_007 F setenv STK_EM_SYM_DATE_008 F #> Lightning NOx configuration if ( $CTM_LTNG_NO == 'Y' ) then setenv LTNGNO "InLine" #> set LTNGNO to "Inline" to activate in-line calculation #> In-line lightning NOx options setenv USE_NLDN Y #> use hourly NLDN strike file [ default: Y ] if ( $USE_NLDN == Y ) then setenv NLDN_STRIKES ${IN_LTpath}/NLDN_12km_60min_${YYYYMMDD}.ioapi endif setenv LTNGPARMS_FILE ${IN_LTpath}/LTNG_AllParms_12NE3.nc #> lightning parameter file endif #> In-line biogenic emissions configuration if ( $CTM_BIOGEMIS_BE == 'Y' ) then set IN_BEISpath = ${INPDIR}/surface setenv GSPRO $BLD/gspro_biogenics.txt setenv BEIS_NORM_EMIS $IN_BEISpath/beis4_beld6_norm_emis.12NE3.nc setenv BEIS_SOILINP $OUTDIR/CCTM_BSOILOUT_${RUNID}_${YESTERDAY}.nc #> Biogenic NO soil input file; ignore if NEW_START = TRUE endif if ( $CTM_BIOGEMIS_MG == 'Y' ) then setenv MEGAN_SOILINP $OUTDIR/CCTM_MSOILOUT_${RUNID}_${YESTERDAY}.nc #> Biogenic NO soil input file; ignore if INITIAL_RUN = Y #> ; ignore if IGNORE_SOILINP = Y setenv MEGAN_CTS $SZpath/megan3.2/CT3_CONUS.ncf setenv MEGAN_EFS $SZpath/megan3.2/EFMAPS_CONUS.ncf setenv MEGAN_LDF $SZpath/megan3.2/LDF_CONUS.ncf if ($BDSNP_MEGAN == 'Y') then setenv BDSNPINP $OUTDIR/CCTM_BDSNPOUT_${RUNID}_${YESTERDAY}.nc setenv BDSNP_FFILE $SZpath/megan3.2/FERT_tceq_12km.ncf setenv BDSNP_NFILE $SZpath/megan3.2/NDEP_tceq_12km.ncf setenv BDSNP_LFILE $SZpath/megan3.2/LANDTYPE_tceq_12km.ncf setenv BDSNP_AFILE $SZpath/megan3.2/ARID_tceq_12km.ncf setenv BDSNP_NAFILE $SZpath/megan3.2/NONARID_tceq_12km.ncf endif endif #> In-line sea spray emissions configuration setenv OCEAN_1 $SZpath/OCEAN_${MM}_L3m_MC_CHL_chlor_a_12NE3.nc #> horizontal grid-dependent ocean file #> Bidirectional ammonia configuration if ( $CTM_ABFLUX == 'Y' ) then setenv E2C_SOIL ${EPICpath}/2018r1_EPIC0509_12NE3_soil.nc setenv E2C_CHEM ${EPICpath}/2018r1_EPIC0509_12NE3_time${YYYYMMDD}.nc setenv E2C_CHEM_YEST ${EPICpath}/2018r1_EPIC0509_12NE3_time${YESTERDAY}.nc setenv E2C_LU ${EPICpath}/beld4_12NE3_2011.nc endif #> Inline Process Analysis setenv CTM_PROCAN N #> use process analysis [ default: N] if ( $?CTM_PROCAN ) then # $CTM_PROCAN is defined if ( $CTM_PROCAN == 'Y' || $CTM_PROCAN == 'T' ) then #> process analysis global column, row and layer ranges # setenv PA_BCOL_ECOL "10 90" # default: all columns # setenv PA_BROW_EROW "10 80" # default: all rows # setenv PA_BLEV_ELEV "1 4" # default: all levels setenv PACM_INFILE ${NMLpath}/pa_${MECH}.ctl setenv PACM_REPORT $OUTDIR/"PA_REPORT".${YYYYMMDD} endif endif #> Integrated Source Apportionment Method (ISAM) Options setenv CTM_ISAM N if ( $?CTM_ISAM ) then if ( $CTM_ISAM == 'Y' || $CTM_ISAM == 'T' ) then setenv SA_IOLIST ${WORKDIR}/isam_control.2018_12NE3.txt setenv ISAM_BLEV_ELEV " 1 1" setenv AISAM_BLEV_ELEV " 1 1" #> Set Up ISAM Initial Condition Flags if ($NEW_START == true || $NEW_START == TRUE ) then setenv ISAM_NEW_START Y setenv ISAM_PREVDAY else setenv ISAM_NEW_START N setenv ISAM_PREVDAY "$OUTDIR/CCTM_SA_CGRID_${RUNID}_${YESTERDAY}.nc" endif #> Set Up ISAM Output Filenames setenv SA_ACONC_1 "$OUTDIR/CCTM_SA_ACONC_${CTM_APPL}.nc -v" setenv SA_CONC_1 "$OUTDIR/CCTM_SA_CONC_${CTM_APPL}.nc -v" setenv SA_DD_1 "$OUTDIR/CCTM_SA_DRYDEP_${CTM_APPL}.nc -v" setenv SA_WD_1 "$OUTDIR/CCTM_SA_WETDEP_${CTM_APPL}.nc -v" setenv SA_CGRID_1 "$OUTDIR/CCTM_SA_CGRID_${CTM_APPL}.nc -v" #> Set optional ISAM regions files setenv ISAM_REGIONS $INPDIR/GRIDMASK_STATES_12NE3.nc #> Options used to favor tracked species in reaction for Ozone-NOx chemistry setenv ISAM_O3_WEIGHTS 5 # weights for tracked species Default is 5 # OPTIONS # 1 does not weight any species # 2 weights NOx and subset of NOz species # 3 uses with from option 2 plus weight OVOC species, organic radicals and operators # 4 weight OVOC species, organic radicals and operators # 5 toggles between two weighting set based on VOC and NOx limited ozone production # Below options only used if ISAM_O3_WEIGHTS set to 5 setenv ISAM_NOX_CASE 2 # weights for tracked species when ozone production is NOx limited. Default is 2 setenv ISAM_VOC_CASE 4 # weights for tracked species when ozone production is VOC limited. Default is 4 setenv VOC_NOX_TRANS 0.35 # value of Prod H2O2 over Prod HNO3 less than where # ISAM_VOC_CASE weights are used. Otherwise, ISAM_NOX_CASE # weights are used. Default is 0.35 endif endif #> Sulfur Tracking Model (STM) setenv STM_SO4TRACK N #> sulfur tracking [ default: N ] if ( $?STM_SO4TRACK ) then if ( $STM_SO4TRACK == 'Y' || $STM_SO4TRACK == 'T' ) then #> option to normalize sulfate tracers [ default: Y ] setenv STM_ADJSO4 Y endif endif #> Decoupled Direct Method in 3D (DDM-3D) Options setenv CTM_DDM3D Y # Sets up requisite script settings for DDM-3D (default is N/F) # Additionally requires for CCTM to be compiled for DDM-3D simulations set NPMAX = 2 # Number of sensitivity parameters defined in SEN_INPUT setenv SEN_INPUT ${WORKDIR}/sensinput.2018_12NE3.dat setenv DDM3D_HIGH N # allow higher-order sensitivity parameters in SEN_INPUT [ T | Y | F | N ] (default is N/F) if ($NEW_START == true || $NEW_START == TRUE ) then setenv DDM3D_RST N # begins from sensitivities from a restart file [ T | Y | F | N ] (default is Y/T) set S_ICpath = # sensitivity fields are initialized to 0.0 on the first hour of the first day set S_ICfile = else setenv DDM3D_RST Y # begins from sensitivities from a restart file [ T | Y | F | N ] (default is Y/T) set S_ICpath = $OUTDIR set S_ICfile = CCTM_SENGRID_${RUNID}_${YESTERDAY}.nc endif setenv CTM_NPMAX $NPMAX setenv CTM_SENS_1 "$OUTDIR/CCTM_SENGRID_${CTM_APPL}.nc -v" setenv A_SENS_1 "$OUTDIR/CCTM_ASENS_${CTM_APPL}.nc -v" setenv CTM_SWETDEP_1 "$OUTDIR/CCTM_SENWDEP_${CTM_APPL}.nc -v" setenv CTM_SDRYDEP_1 "$OUTDIR/CCTM_SENDDEP_${CTM_APPL}.nc -v" setenv INIT_SENS_1 $S_ICpath/$S_ICfile # ===================================================================== #> Output Files # ===================================================================== #> set output file names setenv S_CGRID "$OUTDIR/CCTM_CGRID_${CTM_APPL}.nc" #> 3D Inst. Concentrations setenv CTM_CONC_1 "$OUTDIR/CCTM_CONC_${CTM_APPL}.nc -v" #> On-Hour Concentrations setenv A_CONC_1 "$OUTDIR/CCTM_ACONC_${CTM_APPL}.nc -v" #> Hourly Avg. Concentrations setenv MEDIA_CONC "$OUTDIR/CCTM_MEDIA_CONC_${CTM_APPL}.nc -v" #> NH3 Conc. in Media setenv CTM_DRY_DEP_1 "$OUTDIR/CCTM_DRYDEP_${CTM_APPL}.nc -v" #> Hourly Dry Deposition setenv CTM_DEPV_DIAG "$OUTDIR/CCTM_DEPV_${CTM_APPL}.nc -v" #> Dry Deposition Velocities setenv B3GTS_S "$OUTDIR/CCTM_B3GTS_S_${CTM_APPL}.nc -v" #> Biogenic Emissions setenv BEIS_SOILOUT "$OUTDIR/CCTM_BSOILOUT_${CTM_APPL}.nc" #> Soil Emissions setenv MEGAN_SOILOUT "$OUTDIR/CCTM_MSOILOUT_${CTM_APPL}.nc" #> Soil Emissions setenv BDSNPOUT "$OUTDIR/CCTM_BDSNPOUT_${CTM_APPL}.nc" #> Soil Emissions setenv CTM_WET_DEP_1 "$OUTDIR/CCTM_WETDEP1_${CTM_APPL}.nc -v" #> Wet Dep From All Clouds setenv CTM_WET_DEP_2 "$OUTDIR/CCTM_WETDEP2_${CTM_APPL}.nc -v" #> Wet Dep From SubGrid Clouds setenv CTM_ELMO_1 "$OUTDIR/CCTM_ELMO_${CTM_APPL}.nc -v" #> On-Hour Particle Diagnostics setenv CTM_AELMO_1 "$OUTDIR/CCTM_AELMO_${CTM_APPL}.nc -v" #> Hourly Avg. Particle Diagnostics setenv CTM_RJ_1 "$OUTDIR/CCTM_PHOTDIAG1_${CTM_APPL}.nc -v" #> 2D Surface Summary from Inline Photolysis setenv CTM_RJ_2 "$OUTDIR/CCTM_PHOTDIAG2_${CTM_APPL}.nc -v" #> 3D Photolysis Rates setenv CTM_RJ_3 "$OUTDIR/CCTM_PHOTDIAG3_${CTM_APPL}.nc -v" #> 3D Optical and Radiative Results from Photolysis setenv CTM_SSEMIS_1 "$OUTDIR/CCTM_SSEMIS_${CTM_APPL}.nc -v" #> Sea Spray Emissions setenv CTM_DUST_EMIS_1 "$OUTDIR/CCTM_DUSTEMIS_${CTM_APPL}.nc -v" #> Dust Emissions setenv CTM_BUDGET "$OUTDIR/CCTM_BUDGET_${CTM_APPL}.txt -v" #> Budget [Default Off] setenv CTM_IPR_1 "$OUTDIR/CCTM_PA_1_${CTM_APPL}.nc -v" #> Process Analysis setenv CTM_IPR_2 "$OUTDIR/CCTM_PA_2_${CTM_APPL}.nc -v" #> Process Analysis setenv CTM_IPR_3 "$OUTDIR/CCTM_PA_3_${CTM_APPL}.nc -v" #> Process Analysis setenv CTM_IRR_1 "$OUTDIR/CCTM_IRR_1_${CTM_APPL}.nc -v" #> Chem Process Analysis setenv CTM_IRR_2 "$OUTDIR/CCTM_IRR_2_${CTM_APPL}.nc -v" #> Chem Process Analysis setenv CTM_IRR_3 "$OUTDIR/CCTM_IRR_3_${CTM_APPL}.nc -v" #> Chem Process Analysis setenv CTM_DRY_DEP_MOS "$OUTDIR/CCTM_DDMOS_${CTM_APPL}.nc -v" #> Dry Dep setenv CTM_DEPV_MOS "$OUTDIR/CCTM_DEPVMOS_${CTM_APPL}.nc -v" #> Dry Dep Velocity setenv CTM_VDIFF_DIAG "$OUTDIR/CCTM_VDIFF_DIAG_${CTM_APPL}.nc -v" #> Vertical Dispersion Diagnostic setenv CTM_VSED_DIAG "$OUTDIR/CCTM_VSED_DIAG_${CTM_APPL}.nc -v" #> Particle Grav. Settling Velocity setenv CTM_LTNGDIAG_1 "$OUTDIR/CCTM_LTNGHRLY_${CTM_APPL}.nc -v" #> Hourly Avg Lightning NO setenv CTM_LTNGDIAG_2 "$OUTDIR/CCTM_LTNGCOL_${CTM_APPL}.nc -v" #> Column Total Lightning NO setenv CTM_VEXT_1 "$OUTDIR/CCTM_VEXT_${CTM_APPL}.nc -v" #> On-Hour 3D Concs at select sites #> set floor file (neg concs) setenv FLOOR_FILE ${OUTDIR}/FLOOR_${CTM_APPL}.txt #> look for existing log files and output files ( ls CTM_LOG_???.${CTM_APPL} > buff.txt ) >& /dev/null ( ls ${LOGDIR}/CTM_LOG_???.${CTM_APPL} >> buff.txt ) >& /dev/null set log_test = `cat buff.txt`; rm -f buff.txt set OUT_FILES = (${FLOOR_FILE} ${S_CGRID} ${CTM_CONC_1} ${A_CONC_1} ${MEDIA_CONC} \ ${CTM_DRY_DEP_1} $CTM_DEPV_DIAG $B3GTS_S $MEGAN_SOILOUT $BEIS_SOILOUT $BDSNPOUT \ $CTM_WET_DEP_1 $CTM_WET_DEP_2 $CTM_ELMO_1 $CTM_AELMO_1 \ $CTM_RJ_1 $CTM_RJ_2 $CTM_RJ_3 $CTM_SSEMIS_1 $CTM_DUST_EMIS_1 $CTM_IPR_1 $CTM_IPR_2 \ $CTM_IPR_3 $CTM_BUDGET $CTM_IRR_1 $CTM_IRR_2 $CTM_IRR_3 $CTM_DRY_DEP_MOS \ $CTM_DEPV_MOS $CTM_VDIFF_DIAG $CTM_VSED_DIAG $CTM_LTNGDIAG_1 $CTM_LTNGDIAG_2 $CTM_VEXT_1 ) if ( $?CTM_ISAM ) then if ( $CTM_ISAM == 'Y' || $CTM_ISAM == 'T' ) then set OUT_FILES = (${OUT_FILES} ${SA_ACONC_1} ${SA_CONC_1} ${SA_DD_1} ${SA_WD_1} \ ${SA_CGRID_1} ) endif endif if ( $?CTM_DDM3D ) then if ( $CTM_DDM3D == 'Y' || $CTM_DDM3D == 'T' ) then set OUT_FILES = (${OUT_FILES} ${CTM_SENS_1} ${A_SENS_1} ${CTM_SWETDEP_1} ${CTM_SDRYDEP_1} ) endif endif set OUT_FILES = `echo $OUT_FILES | sed "s; -v;;g" | sed "s;MPI:;;g" ` ( ls $OUT_FILES > buff.txt ) >& /dev/null set out_test = `cat buff.txt`; rm -f buff.txt #> delete previous output if requested if ( $CLOBBER_DATA == true || $CLOBBER_DATA == TRUE ) then echo echo "Existing Logs and Output Files for Day ${TODAYG} Will Be Deleted" #> remove previous log files foreach file ( ${log_test} ) #echo "Deleting log file: $file" /bin/rm -f $file end #> remove previous output files foreach file ( ${out_test} ) #echo "Deleting output file: $file" /bin/rm -f $file end /bin/rm -f ${OUTDIR}/CCTM_DESID*${CTM_APPL}.nc else #> error if previous log files exist if ( "$log_test" != "" ) then echo "*** Logs exist - run ABORTED ***" echo "*** To overide, set CLOBBER_DATA = TRUE in run_cctm.csh ***" echo "*** and these files will be automatically deleted. ***" exit 1 endif #> error if previous output files exist if ( "$out_test" != "" ) then echo "*** Output Files Exist - run will be ABORTED ***" foreach file ( $out_test ) echo " cannot delete $file" end echo "*** To overide, set CLOBBER_DATA = TRUE in run_cctm.csh ***" echo "*** and these files will be automatically deleted. ***" exit 1 endif endif #> for the run control ... setenv CTM_STDATE $YYYYJJJ setenv CTM_STTIME $STTIME setenv CTM_RUNLEN $NSTEPS setenv CTM_TSTEP $TSTEP setenv INIT_CONC_1 $ICpath/$ICFILE setenv BNDY_CONC_1 $BCpath/$BCFILE setenv OMI $OMIpath/$OMIfile setenv MIE_TABLE $OUTDIR/mie_table_coeffs_${compilerString}.txt setenv OPTICS_DATA $OMIpath/$OPTfile #setenv XJ_DATA $JVALpath/$JVALfile #> species defn & photolysis setenv gc_matrix_nml ${NMLpath}/GC_$MECH.nml setenv ae_matrix_nml ${NMLpath}/AE_$MECH.nml setenv nr_matrix_nml ${NMLpath}/NR_$MECH.nml setenv tr_matrix_nml ${NMLpath}/Species_Table_TR_0.nml #> check for photolysis input data setenv CSQY_DATA ${NMLpath}/CSQY_DATA_$MECH if (! (-e $CSQY_DATA ) ) then echo " $CSQY_DATA not found " exit 1 endif if (! (-e $OPTICS_DATA ) ) then echo " $OPTICS_DATA not found " exit 1 endif # =================================================================== #> Execution Portion # =================================================================== #> Print attributes of the executable if ( $CTM_DIAG_LVL != 0 ) then ls -l $BLD/$EXEC size $BLD/$EXEC unlimit limit endif #> Print Startup Dialogue Information to Standard Out echo echo "CMAQ Processing of Day $YYYYMMDD Began at `date`" echo #> Executable call for single PE, uncomment to invoke #( /usr/bin/time -p $BLD/$EXEC ) |& tee buff_${EXECUTION_ID}.txt #> Executable call for multi PE, configure for your system # set MPI = /usr/local/intel/impi/3.2.2.006/bin64 # set MPIRUN = $MPI/mpirun ( /usr/bin/time -p mpirun -np $NPROCS $BLD/$EXEC ) |& tee buff_${EXECUTION_ID}.txt #> Harvest Timing Output so that it may be reported below set rtarray = "${rtarray} `tail -3 buff_${EXECUTION_ID}.txt | grep -Eo '[+-]?[0-9]+([.][0-9]+)?' | head -1` " rm -rf buff_${EXECUTION_ID}.txt #> Abort script if abnormal termination if ( ! -e $OUTDIR/CCTM_CGRID_${CTM_APPL}.nc ) then echo "" echo "**************************************************************" echo "** Runscript Detected an Error: CGRID file was not written. **" echo "** This indicates that CMAQ was interrupted or an issue **" echo "** exists with writing output. The runscript will now **" echo "** abort rather than proceeding to subsequent days. **" echo "**************************************************************" break endif #> Print Concluding Text echo echo "CMAQ Processing of Day $YYYYMMDD Finished at `date`" echo echo "\\\\\=====\\\\\=====\\\\\=====\\\\\=====/////=====/////=====/////=====/////" echo # =================================================================== #> Finalize Run for This Day and Loop to Next Day # =================================================================== #> Save Log Files and Move on to Next Simulation Day mv CTM_LOG_???.${CTM_APPL} $LOGDIR if ( $CTM_DIAG_LVL != 0 ) then mv CTM_DIAG_???.${CTM_APPL} $LOGDIR endif #> The next simulation day will, by definition, be a restart setenv NEW_START false #> Increment both Gregorian and Julian Days set TODAYG = `date -ud "${TODAYG}+1days" +%Y-%m-%d` #> Add a day for tomorrow set TODAYJ = `date -ud "${TODAYG}" +%Y%j` #> Convert YYYY-MM-DD to YYYYJJJ end #Loop to the next Simulation Day # =================================================================== #> Generate Timing Report # =================================================================== set RTMTOT = 0 foreach it ( `seq ${NDAYS}` ) set rt = `echo ${rtarray} | cut -d' ' -f${it}` set RTMTOT = `echo "${RTMTOT} + ${rt}" | bc -l` end set RTMAVG = `echo "scale=2; ${RTMTOT} / ${NDAYS}" | bc -l` set RTMTOT = `echo "scale=2; ${RTMTOT} / 1" | bc -l` echo echo "==================================" echo " ***** CMAQ TIMING REPORT *****" echo "==================================" echo "Start Day: ${START_DATE}" echo "End Day: ${END_DATE}" echo "Number of Simulation Days: ${NDAYS}" echo "Domain Name: ${GRID_NAME}" echo "Number of Grid Cells: ${NCELLS} (ROW x COL x LAY)" echo "Number of Layers: ${NZ}" echo "Number of Processes: ${NPROCS}" echo " All times are in seconds." echo echo "Num Day Wall Time" set d = 0 set day = ${START_DATE} foreach it ( `seq ${NDAYS}` ) # Set the right day and format it set d = `echo "${d} + 1" | bc -l` set n = `printf "%02d" ${d}` # Choose the correct time variables set rt = `echo ${rtarray} | cut -d' ' -f${it}` # Write out row of timing data echo "${n} ${day} ${rt}" # Increment day for next loop set day = `date -ud "${day}+1days" +%Y-%m-%d` end echo " Total Time = ${RTMTOT}" echo " Avg. Time = ${RTMAVG}" exit ================================================ FILE: CCTM/src/ICL/fixed/const/CONST.EXT ================================================ !....................................................................... ! INCLUDE FILE CONST.EXT ! Contains: Fundamental constants for air quality modeling ! Dependent Upon: none ! Revision History: ! Adapted 6/92 by CJC from ROM's PI.EXT. ! 3/1/93 John McHenry - include constants needed by LCM aqueous chemistry ! 9/93 by John McHenry - include additional constants needed for FMEM clouds ! and aqueous chemistry ! 3/4/96 Dr. Francis S. Binkowski - reflect current Models3 view that MKS ! units should be used wherever possible and that sources be documented. ! Some variables have been added, names changed, and values revised. ! 3/7/96 - add universal gas constant and compute gas constant in chemical ! form. TWOPI is now calculated rather than input. ! 3/13/96 - group declarations and parameter statements ! 9/13/96 - include more physical constants ! 12/24/96 - eliminate silly EPSILON, AMISS ! 1/06/97 - eliminate most derived constants - YOJ ! 1/17/97 (comments only) to provide numerical values as reference - DWB ! 4/30/08 - Changed REARTH to match default value in MM5 and WRF - TLO ! 12/22/11 - upgraded non-standard code to F95 ! FSB References: ! CRC76, "CRC Handbook of Chemistry and Physics (76th Ed)", ! CRC Press, 1995 ! Hobbs, P.V. "Basic Physical Chemistry for the Atmospheric Sciences", ! Cambridge Univ. Press, 206 pp, 1995. ! Snyder, J.P., "Map Projections-A Working Manual, U.S. Geological Survey ! Paper 1395 U.S.GPO, Washington, DC, 1987. ! Stull, R. B., "An Introduction to Bounday Layer Meteorology", Kluwer, ! Dordrecht, 1988 !....................................................................... ! Geometric Constants: REAL, PARAMETER :: PI = 3.14159265 REAL( 8 ), PARAMETER :: DPI = 3.14159265358979324D0 ! pi/180 [ rad/deg ] REAL, PARAMETER :: PI180 = PI / 180.0 ! Geodetic Constants: ! radius of the earth [ m ] ! FSB: radius of sphere having same surface area as ! Clarke ellipsoid of 1866 ( Source: Snyder, 1987) ! REAL, PARAMETER :: REARTH = 6370997.0 REAL, PARAMETER :: REARTH = 6370000.0 ! default Re in MM5 and WRF ! length of a sidereal day [ sec ] ! FSB: Source: CRC76 pp. 14-6 REAL, PARAMETER :: SIDAY = 86164.09 ! mean gravitational acceleration [ m/sec**2 ] ! FSB: Value is mean of polar and equatorial values. ! Source: CRC Handbook (76th Ed) pp. 14-6 REAL, PARAMETER :: GRAV = 9.80622 ! latitude degrees to meters REAL, PARAMETER :: DG2M = REARTH * PI180 ! Solar Constant: ! Solar constant [ W/m**2 ], p14-2 CRC76 REAL, PARAMETER :: SOLCNST = 1373.0 ! Fundamental Constants: ( Source: CRC76, pp. 1-1 to 1-6) ! Avogadro's Constant [ number/mol ] REAL, PARAMETER :: AVO = 6.0221367E23 ! The NIST Reference on Constants, Units, and Uncertainty. US National ! Institute of Standards and Technology. June 2015. Retrieved 2017-04-21. ! http://physics.nist.gov/cgi-bin/cuu/Value?na REAL( 8 ), PARAMETER :: DAVO = 6.02214085774D23 ! universal gas constant [ J/mol-K ] REAL, PARAMETER :: RGASUNIV = 8.314510 ! The NIST Reference on Constants, Units, and Uncertainty. US National ! Institute of Standards and Technology. June 2015. Retrieved 2017-04-21. ! http://physics.nist.gov/cgi-bin/cuu/Value?r REAL( 8 ), PARAMETER :: DRGASUNIV = 8.314459848D0 ! standard atmosphere [ Pa ] REAL, PARAMETER :: STDATMPA = 101325.0 ! Standard Temperature [ K ] REAL, PARAMETER :: STDTEMP = 273.15 ! Stefan-Boltzmann [ W/(m**2 K**4) ] REAL, PARAMETER :: STFBLZ = 5.67051E-8 ! FSB Non-MKS ! Molar volume at STP [ L/mol ] Non MKS units REAL, PARAMETER :: MOLVOL = 22.41410 ! Atmospheric Constants: ! mean molecular weight for dry air [ g/mol ] ! FSB: 78.06% N2, 21% O2, and 0.943% A on a mole ! fraction basis ( Source : Hobbs, 1995) pp. 69-70 REAL, PARAMETER :: MWAIR = 28.9628 ! dry-air gas constant [ J / kg-K ] REAL, PARAMETER :: RDGAS = 1.0E3 * RGASUNIV / MWAIR ! 287.07548994 ! mean molecular weight for water vapor [ g/mol ] REAL, PARAMETER :: MWWAT = 18.0153 ! gas constant for water vapor [ J/kg-K ] REAL, PARAMETER :: RWVAP = 1.0E3 * RGASUNIV / MWWAT ! 461.52492604 ! FSB NOTE: CPD, CVD, CPWVAP and CVWVAP are calculated assuming dry air and ! water vapor are classical ideal gases, i.e. vibration does not contribute ! to internal energy. ! specific heat of dry air at constant pressure [ J/kg-K ] REAL, PARAMETER :: CPD = 7.0 * RDGAS / 2.0 ! 1004.7642148 ! specific heat of dry air at constant volume [ J/kg-K ] REAL, PARAMETER :: CVD = 5.0 * RDGAS / 2.0 ! 717.68872485 ! specific heat for water vapor at constant pressure [ J/kg-K ] REAL, PARAMETER :: CPWVAP = 4.0 * RWVAP ! 1846.0997042 ! specific heat for water vapor at constant volume [ J/kg-K ] REAL, PARAMETER :: CVWVAP = 3.0 * RWVAP ! 1384.5747781 ! vapor press of water at 0 C [ Pa ] Source: CRC76 pp. 6-15 REAL, PARAMETER :: VP0 = 611.29 ! FSB The following values are taken from p. 641 of Stull (1988): ! latent heat of vaporization of water at 0 C [ J/kg ] REAL, PARAMETER :: LV0 = 2.501E6 ! Rate of change of latent heat of vaporization with ! respect to temperature [ J/kg-K ] REAL, PARAMETER :: DLVDT = 2370.0 ! latent heat of fusion of water at 0 C [ J/kg ] REAL, PARAMETER :: LF0 = 3.34E5 !....................................................................... ================================================ FILE: CCTM/src/ICL/fixed/emctrl/EMISPRM.EXT ================================================ C....................................................................... C Include File EMISPRM.EXT C Contains: Gas chemistry emissions processing control parameters C Revision History: initial C 3 Apr 09 J.Young: replace EMISPRM.vdif.EXT, EMISPRM.chem.EXT include C files with simpler implementation C....................................................................... LOGICAL, SAVE :: EMISVD ! gas chem emis processing in vert. diff INTEGER, SAVE :: NEMIS ! no. of gas chem emis species for vdiff C....................................................................... ================================================ FILE: CCTM/src/ICL/fixed/filenames/FILES_CTM.EXT ================================================ ! RCS file, release, date & time of last delta, author, state, [and locker] ! $Header: /project/yoj/arc/ICL/src/fixed/filenames/FILES_CTM.EXT,v 1.4 2011/09/29 20:24:42 sjr Exp $ ! what(1) key, module and SID; SCCS file; date and time of last delta: ! @(#)FILES_CTM.EXT 2.2 /project/mod3/ICL/src/fixed/filenames/SCCS/s.FILES_CTM.EXT 25 Jul 1997 13:38:00 !....................................................................... ! Include File FILES3_CTM.EXT ! ! Contains: Standard logical name variables set in the model executing ! shell environment ! Dependent Upon: none ! Revision History: ! Prototype 5/93 by CJC ! Feb, Mar 96, May 97 by Jeff ! 24 July 97, Jeff, change PARAMETER to DATA ! 31 Oct 2003, Jeff: F90-ize ! 16 May 2005, P.Bhave, add OCEAN input and SSEMIS output files ! 25 July 2008, S.Roselle: removed files associated with PING ! 13 Aug 2008, S.Napelenok, added files for ddm-3d ! 28 Feb 2011, J.Bash, Added files for NH3 bidi and MOSAIC ! 11 May 11 D.Wong: added files for sub-domain time series ! 14 Aug 14 J.Young: added vdiff and grav. settling diagnostic files ! 3 Nov 2015 G. Sarwar deleted CHLOROPHYLL since it is not used ! 3 Nov 2015 G. Sarwar added CTM_MGEM_1 output files ! 1 Feb 2017 D. Kang Added CTM_LTNGDIAG_1 and CTM_LTNGDIAG_2 for Lightning ! 29 Apr 2019 S.Napelenok: removed unused isam files ! 20 May 2019 F. Sidi : Organized Files into input and output sections ! 9 Jul 2019 T. Spero: added LUFRAC_CRO. ! 17 Jul 2019 S. Roselle: replaced species-group IC and BC files with ! INIT_CONC_1 and BNDY_CONC_1 ! 13 Dec 2019 S.Napelenok: updated sensitivity files to INIT_SENS_1 and ! BNDY_SENS_1, remove REGIONS_1 !....................................................................... INTEGER, PARAMETER :: N_FILES = 62 CHARACTER( 16 ) :: LGCL_NAME( N_FILES ) LOGICAL IN_MODE( N_FILES ) ! CCTM Input Files: CHARACTER( 16 ) :: GRID_DOT_2D ! MCIP Generated File CHARACTER( 16 ) :: GRID_CRO_2D ! MCIP Generated File CHARACTER( 16 ) :: GRID_CRO_3D ! MCIP Generated File CHARACTER( 16 ) :: GRID_BDY_2D ! MCIP Generated File, Not used by CCTM anymore CHARACTER( 16 ) :: LUFRAC_CRO ! MCIP Generated File CHARACTER( 16 ) :: MET_BDY_2D ! MCIP Generated File, Not used by CCTM anymore CHARACTER( 16 ) :: MET_BDY_3D ! MCIP Generated File CHARACTER( 16 ) :: MET_DOT_3D ! MCIP Generated File CHARACTER( 16 ) :: MET_CRO_2D ! MCIP Generated File CHARACTER( 16 ) :: MET_CRO_3D ! MCIP Generated File CHARACTER( 16 ) :: OCEAN_1 ! OCEAN File CHARACTER( 16 ) :: INIT_CONC_1 ! IC FILE for all Species CHARACTER( 16 ) :: BNDY_CONC_1 ! BC FILE for all Species CHARACTER( 16 ) :: E2C_CHEM ! BIDI NH3 Config. CHARACTER( 16 ) :: E2C_CHEM_YEST ! BIDI NH3 Config. CHARACTER( 16 ) :: E2C_SOIL ! BIDI NH3 Config. CHARACTER( 16 ) :: E2C_LU ! BIDI NH3 Config. ! CCTM Output Files: CHARACTER( 16 ) :: CTM_CONC_1 ! On-Hour Concentrations CHARACTER( 16 ) :: CTM_VEXT_1 ! On-Hour 3D Concentration at select sites CHARACTER( 16 ) :: CTM_DRY_DEP_1 ! Hourly Dry Deposition CHARACTER( 16 ) :: CTM_WET_DEP_1 ! Wet Deposition from all Clouds CHARACTER( 16 ) :: CTM_WET_DEP_2 ! Wet Deposition from SubGrid Clouds CHARACTER( 16 ) :: CTM_SSEMIS_1 ! Sea Spray Emissions CHARACTER( 16 ) :: CTM_MGEM_1 ! Marine Gas Emissions CHARACTER( 16 ) :: CTM_DUST_EMIS_1 ! Dust Emissions CHARACTER( 16 ) :: CTM_ELMO_1 ! On-Hour Particle Diagnostics CHARACTER( 16 ) :: CTM_AELMO_1 ! Hourly Avg. Particle Diagnostics CHARACTER( 16 ) :: CTM_LTNGDIAG_1 ! Hourly Avg Lightning NO CHARACTER( 16 ) :: CTM_LTNGDIAG_2 ! Column Total Lightning NO CHARACTER( 16 ) :: A_CONC_1 ! Hourly Avg. Concentrations CHARACTER( 16 ) :: CTM_DEPV_DIAG ! Dry Deposition Velocities CHARACTER( 16 ) :: CTM_PT3D_DIAG ! Point Source Emissions by Layer CHARACTER( 16 ) :: CTM_RJ_1 ! 2D Surface Summary from Inline Photolysis CHARACTER( 16 ) :: CTM_RJ_2 ! 3D Photolysis Rates CHARACTER( 16 ) :: CTM_RJ_3 ! 3D Optical and Radiative Results from Photolysis CHARACTER( 16 ) :: MEDIA_CONC ! NH3 Concentration in Media CHARACTER( 16 ) :: CTM_DEPV_MOS ! Dry Dep Velocity CHARACTER( 16 ) :: CTM_DRY_DEP_MOS ! Dry Dep CHARACTER( 16 ) :: CTM_VDIFF_DIAG ! Vertical Dispersion Diagnostic CHARACTER( 16 ) :: CTM_VSED_DIAG ! Particle Grav. Settling Velocity ! CCTM Restart Files: CHARACTER( 16 ) :: S_CGRID ! 3D Inst. Concentrations CHARACTER( 16 ) :: INIT_MEDC_1 ! IC FILE ! Process Analysis (PA) Output: CHARACTER( 16 ) :: CTM_IPR_1 CHARACTER( 16 ) :: CTM_IPR_2 CHARACTER( 16 ) :: CTM_IPR_3 CHARACTER( 16 ) :: CTM_IRR_1 ! Chem. Process Analysis CHARACTER( 16 ) :: CTM_IRR_2 ! Chem. Process Analysis CHARACTER( 16 ) :: CTM_IRR_3 ! Chem. Process Analysis ! Two Way Output: CHARACTER( 16 ) :: CTM_SD_TS ! Sub Domain Time Step ! DDM Files: CHARACTER( 16 ) :: INIT_SENS_1 CHARACTER( 16 ) :: BNDY_SENS_1 CHARACTER( 16 ) :: CTM_SENS_1 CHARACTER( 16 ) :: A_SENS_1 CHARACTER( 16 ) :: CTM_SWETDEP_1 CHARACTER( 16 ) :: CTM_SDRYDEP_1 !.....Source Apportionment (SA) Output files that contain tagged concentrations..... !.....Roger Kwok, Jul 2012: CHARACTER( 16 ) :: SA_CONC_1 CHARACTER( 16 ) :: SA_CGRID_1 CHARACTER( 16 ) :: SA_ACONC_1 CHARACTER( 16 ) :: SA_DD_1 CHARACTER( 16 ) :: SA_WD_1 DATA GRID_DOT_2D / 'GRID_DOT_2D ' / DATA GRID_CRO_2D / 'GRID_CRO_2D ' / DATA GRID_CRO_3D / 'GRID_CRO_3D ' / DATA GRID_BDY_2D / 'GRID_BDY_2D ' / DATA LUFRAC_CRO / 'LUFRAC_CRO ' / DATA OCEAN_1 / 'OCEAN_1 ' / DATA MET_BDY_2D / 'MET_BDY_2D ' / DATA MET_BDY_3D / 'MET_BDY_3D ' / DATA MET_DOT_3D / 'MET_DOT_3D ' / DATA MET_CRO_2D / 'MET_CRO_2D ' / DATA MET_CRO_3D / 'MET_CRO_3D ' / DATA CTM_CONC_1 / 'CTM_CONC_1 ' / DATA CTM_VEXT_1 / 'CTM_VEXT_1 ' / DATA CTM_DRY_DEP_1 / 'CTM_DRY_DEP_1 ' / DATA CTM_WET_DEP_1 / 'CTM_WET_DEP_1 ' / DATA CTM_WET_DEP_2 / 'CTM_WET_DEP_2 ' / DATA CTM_SSEMIS_1 / 'CTM_SSEMIS_1 ' / DATA CTM_MGEM_1 / 'CTM_MGEM_1 ' / DATA CTM_DUST_EMIS_1 / 'CTM_DUST_EMIS_1 ' / DATA CTM_ELMO_1 / 'CTM_ELMO_1 ' / DATA CTM_AELMO_1 / 'CTM_AELMO_1 ' / DATA CTM_LTNGDIAG_1 / 'CTM_LTNGDIAG_1 ' / DATA CTM_LTNGDIAG_2 / 'CTM_LTNGDIAG_2 ' / DATA CTM_IPR_1 / 'CTM_IPR_1 ' / DATA CTM_IPR_2 / 'CTM_IPR_2 ' / DATA CTM_IPR_3 / 'CTM_IPR_3 ' / DATA CTM_IRR_1 / 'CTM_IRR_1 ' / DATA CTM_IRR_2 / 'CTM_IRR_2 ' / DATA CTM_IRR_3 / 'CTM_IRR_3 ' / DATA A_CONC_1 / 'A_CONC_1 ' / DATA S_CGRID / 'S_CGRID ' / DATA INIT_CONC_1 / 'INIT_CONC_1 ' / DATA BNDY_CONC_1 / 'BNDY_CONC_1 ' / DATA CTM_DEPV_DIAG / 'CTM_DEPV_DIAG ' / DATA CTM_PT3D_DIAG / 'CTM_PT3D_DIAG ' / DATA CTM_RJ_1 / 'CTM_RJ_1 ' / DATA CTM_RJ_2 / 'CTM_RJ_2 ' / DATA CTM_RJ_3 / 'CTM_RJ_3 ' / DATA INIT_MEDC_1 / 'INIT_MEDC_1 ' / DATA MEDIA_CONC / 'MEDIA_CONC ' / DATA INIT_SENS_1 / 'INIT_SENS_1 ' / DATA BNDY_SENS_1 / 'BNDY_SENS_1 ' / DATA CTM_SENS_1 / 'CTM_SENS_1 ' / DATA A_SENS_1 / 'A_SENS_1 ' / DATA CTM_SWETDEP_1 / 'CTM_SWETDEP_1 ' / DATA CTM_SDRYDEP_1 / 'CTM_SDRYDEP_1 ' / DATA CTM_DEPV_MOS / 'CTM_DEPV_MOS ' / DATA CTM_DRY_DEP_MOS / 'CTM_DRY_DEP_MOS ' / DATA E2C_CHEM / 'E2C_CHEM ' / DATA E2C_CHEM_YEST / 'E2C_CHEM_YEST ' / DATA E2C_SOIL / 'E2C_SOIL ' / DATA E2C_LU / 'E2C_LU ' / DATA CTM_SD_TS / 'CTM_SD_TS ' / DATA CTM_VDIFF_DIAG / 'CTM_VDIFF_DIAG ' / DATA CTM_VSED_DIAG / 'CTM_VSED_DIAG ' / DATA SA_CONC_1 / 'SA_CONC_1 ' / DATA SA_CGRID_1 / 'SA_CGRID_1 ' / DATA SA_ACONC_1 / 'SA_ACONC_1 ' / DATA SA_DD_1 / 'SA_DD_1 ' / DATA SA_WD_1 / 'SA_WD_1 ' / DATA LGCL_NAME( 1 ), IN_MODE( 1 ) / 'GRID_DOT_2D ', .TRUE. / DATA LGCL_NAME( 2 ), IN_MODE( 2 ) / 'GRID_CRO_2D ', .TRUE. / DATA LGCL_NAME( 3 ), IN_MODE( 3 ) / 'GRID_CRO_3D ', .TRUE. / DATA LGCL_NAME( 4 ), IN_MODE( 4 ) / 'GRID_BDY_2D ', .TRUE. / DATA LGCL_NAME( 5 ), IN_MODE( 5 ) / 'LUFRAC_CRO ', .TRUE. / DATA LGCL_NAME( 6 ), IN_MODE( 6 ) / 'OCEAN_1 ', .TRUE. / DATA LGCL_NAME( 7 ), IN_MODE( 7 ) / 'MET_BDY_2D ', .TRUE. / DATA LGCL_NAME( 8 ), IN_MODE( 8 ) / 'MET_BDY_3D ', .TRUE. / DATA LGCL_NAME( 9 ), IN_MODE( 9 ) / 'MET_DOT_3D ', .TRUE. / DATA LGCL_NAME( 10 ), IN_MODE( 10 ) / 'MET_CRO_2D ', .TRUE. / DATA LGCL_NAME( 11 ), IN_MODE( 11 ) / 'MET_CRO_3D ', .TRUE. / DATA LGCL_NAME( 12 ), IN_MODE( 12 ) / 'CTM_CONC_1 ', .FALSE. / DATA LGCL_NAME( 13 ), IN_MODE( 13 ) / 'CTM_VEXT_1 ', .FALSE. / DATA LGCL_NAME( 14 ), IN_MODE( 14 ) / 'CTM_DRY_DEP_1 ', .FALSE. / DATA LGCL_NAME( 15 ), IN_MODE( 15 ) / 'CTM_WET_DEP_1 ', .FALSE. / DATA LGCL_NAME( 16 ), IN_MODE( 16 ) / 'CTM_WET_DEP_2 ', .FALSE. / DATA LGCL_NAME( 17 ), IN_MODE( 17 ) / 'CTM_SSEMIS_1 ', .FALSE. / DATA LGCL_NAME( 18 ), IN_MODE( 18 ) / 'CTM_MGEM_1 ', .FALSE. / DATA LGCL_NAME( 19 ), IN_MODE( 19 ) / 'CTM_DUST_EMIS_1 ', .FALSE. / DATA LGCL_NAME( 20 ), IN_MODE( 20 ) / 'CTM_ELMO_1 ', .FALSE. / DATA LGCL_NAME( 21 ), IN_MODE( 21 ) / 'CTM_AELMO_1 ', .FALSE. / DATA LGCL_NAME( 22 ), IN_MODE( 22 ) / 'CTM_LTNGDIAG_1 ', .FALSE. / DATA LGCL_NAME( 23 ), IN_MODE( 23 ) / 'CTM_LTNGDIAG_2 ', .FALSE. / DATA LGCL_NAME( 24 ), IN_MODE( 24 ) / 'CTM_IPR_1 ', .FALSE. / DATA LGCL_NAME( 25 ), IN_MODE( 25 ) / 'CTM_IPR_2 ', .FALSE. / DATA LGCL_NAME( 26 ), IN_MODE( 26 ) / 'CTM_IPR_3 ', .FALSE. / DATA LGCL_NAME( 27 ), IN_MODE( 27 ) / 'CTM_IRR_1 ', .FALSE. / DATA LGCL_NAME( 28 ), IN_MODE( 28 ) / 'CTM_IRR_2 ', .FALSE. / DATA LGCL_NAME( 29 ), IN_MODE( 29 ) / 'CTM_IRR_3 ', .FALSE. / DATA LGCL_NAME( 30 ), IN_MODE( 30 ) / 'A_CONC_1 ', .FALSE. / DATA LGCL_NAME( 31 ), IN_MODE( 31 ) / 'S_CGRID ', .FALSE. / DATA LGCL_NAME( 32 ), IN_MODE( 32 ) / 'INIT_CONC_1 ', .FALSE. / DATA LGCL_NAME( 33 ), IN_MODE( 33 ) / 'BNDY_CONC_1 ', .FALSE. / DATA LGCL_NAME( 34 ), IN_MODE( 34 ) / 'CTM_DEPV_DIAG ', .FALSE. / DATA LGCL_NAME( 35 ), IN_MODE( 35 ) / 'CTM_PT3D_DIAG ', .FALSE. / DATA LGCL_NAME( 36 ), IN_MODE( 36 ) / 'CTM_RJ_1 ', .FALSE. / DATA LGCL_NAME( 37 ), IN_MODE( 37 ) / 'CTM_RJ_2 ', .FALSE. / DATA LGCL_NAME( 38 ), IN_MODE( 38 ) / 'CTM_RJ_3 ', .FALSE. / DATA LGCL_NAME( 39 ), IN_MODE( 39 ) / 'INIT_MEDC_1 ', .FALSE. / DATA LGCL_NAME( 40 ), IN_MODE( 40 ) / 'MEDIA_CONC ', .FALSE. / DATA LGCL_NAME( 41 ), IN_MODE( 41 ) / 'INIT_SENS_1 ', .FALSE. / DATA LGCL_NAME( 42 ), IN_MODE( 42 ) / 'BNDY_SENS_1 ', .FALSE. / DATA LGCL_NAME( 43 ), IN_MODE( 43 ) / 'CTM_SENS_1 ', .FALSE. / DATA LGCL_NAME( 44 ), IN_MODE( 44 ) / 'A_SENS_1 ', .FALSE. / DATA LGCL_NAME( 45 ), IN_MODE( 45 ) / 'CTM_SWETDEP_1 ', .FALSE. / DATA LGCL_NAME( 46 ), IN_MODE( 46 ) / 'CTM_SDRYDEP_1 ', .FALSE. / DATA LGCL_NAME( 47 ), IN_MODE( 47 ) / 'CTM_DEPV_MOS ', .FALSE. / DATA LGCL_NAME( 48 ), IN_MODE( 48 ) / 'CTM_DRY_DEP_MOS ', .FALSE. / DATA LGCL_NAME( 49 ), IN_MODE( 49 ) / 'CTM_DRY_DEP_FST ', .FALSE. / DATA LGCL_NAME( 50 ), IN_MODE( 50 ) / 'CTM_DEPV_FST ', .FALSE. / DATA LGCL_NAME( 51 ), IN_MODE( 51 ) / 'E2C_CHEM ', .FALSE. / DATA LGCL_NAME( 52 ), IN_MODE( 52 ) / 'E2C_CHEM_YEST ', .FALSE. / DATA LGCL_NAME( 53 ), IN_MODE( 53 ) / 'E2C_SOIL ', .FALSE. / DATA LGCL_NAME( 54 ), IN_MODE( 54 ) / 'E2C_LU ', .FALSE. / DATA LGCL_NAME( 55 ), IN_MODE( 55 ) / 'CTM_SD_TS ', .FALSE. / DATA LGCL_NAME( 56 ), IN_MODE( 56 ) / 'CTM_VDIFF_DIAG ', .FALSE. / DATA LGCL_NAME( 57 ), IN_MODE( 57 ) / 'CTM_VSED_DIAG ', .FALSE. / DATA LGCL_NAME( 58 ), IN_MODE( 58 ) / 'SA_CONC_1 ', .FALSE. / DATA LGCL_NAME( 59 ), IN_MODE( 59 ) / 'SA_CGRID_1 ', .FALSE. / DATA LGCL_NAME( 60 ), IN_MODE( 60 ) / 'SA_ACONC_1 ', .FALSE. / DATA LGCL_NAME( 61 ), IN_MODE( 61 ) / 'SA_DD_1 ', .FALSE. / DATA LGCL_NAME( 62 ), IN_MODE( 62 ) / 'SA_WD_1 ', .FALSE. / !................ end FILES_CTM.EXT ............................. ================================================ FILE: CCTM/src/ICL/fixed/mpi/PE_COMM.EXT ================================================ C PE communication displacement and direction masks C NOTE: NE, NW, SE, SW stencils not used in CMAQ C....................................................................... ! CHARACTER( 12 ) :: DSPL_N0_E0_S0_W0 = ' 0 0 0 0' CHARACTER( 12 ) :: DSPL_N0_E0_S0_W1 = ' 0 0 0 1' CHARACTER( 12 ) :: DSPL_N0_E0_S1_W0 = ' 0 0 1 0' CHARACTER( 12 ) :: DSPL_N0_E0_S1_W1 = ' 0 0 1 1' CHARACTER( 12 ) :: DSPL_N0_E1_S0_W0 = ' 0 1 0 0' CHARACTER( 12 ) :: DSPL_N0_E1_S0_W1 = ' 0 1 0 1' CHARACTER( 12 ) :: DSPL_N0_E1_S1_W0 = ' 0 1 1 0' CHARACTER( 12 ) :: DSPL_N0_E1_S1_W1 = ' 0 1 1 1' CHARACTER( 12 ) :: DSPL_N1_E0_S0_W0 = ' 1 0 0 0' CHARACTER( 12 ) :: DSPL_N1_E0_S0_W1 = ' 1 0 0 1' CHARACTER( 12 ) :: DSPL_N1_E0_S1_W0 = ' 1 0 1 0' CHARACTER( 12 ) :: DSPL_N1_E0_S1_W1 = ' 1 0 1 1' CHARACTER( 12 ) :: DSPL_N1_E1_S0_W0 = ' 1 1 0 0' CHARACTER( 12 ) :: DSPL_N1_E1_S0_W1 = ' 1 1 0 1' CHARACTER( 12 ) :: DSPL_N1_E1_S1_W0 = ' 1 1 1 0' CHARACTER( 12 ) :: DSPL_N1_E1_S1_W1 = ' 1 1 1 1' CHARACTER( 12 ) :: DSPL_N1_E0_S2_W0 = ' 1 0 2 0' CHARACTER( 12 ) :: DSPL_N2_E0_S2_W0 = ' 2 0 2 0' CHARACTER( 12 ) :: DSPL_N2_E0_S1_W0 = ' 2 0 1 0' CHARACTER( 12 ) :: DSPL_N0_E1_S0_W2 = ' 0 1 0 2' CHARACTER( 12 ) :: DSPL_N0_E2_S0_W2 = ' 0 2 0 2' ! CHARACTER( 16 ) :: DRCN = ' 0 0 0 0 0 0 0 0' CHARACTER( 16 ) :: DRCN_NW = ' 0 0 0 0 0 0 0 1' CHARACTER( 16 ) :: DRCN_W = ' 0 0 0 0 0 0 1 0' CHARACTER( 16 ) :: DRCN_W_NW = ' 0 0 0 0 0 0 1 1' CHARACTER( 16 ) :: DRCN_SW = ' 0 0 0 0 0 1 0 0' CHARACTER( 16 ) :: DRCN_SW_NW = ' 0 0 0 0 0 1 0 1' CHARACTER( 16 ) :: DRCN_SW_W = ' 0 0 0 0 0 1 1 0' CHARACTER( 16 ) :: DRCN_SW_W_NW = ' 0 0 0 0 0 1 1 1' CHARACTER( 16 ) :: DRCN_S = ' 0 0 0 0 1 0 0 0' CHARACTER( 16 ) :: DRCN_S_NW = ' 0 0 0 0 1 0 0 1' CHARACTER( 16 ) :: DRCN_S_W = ' 0 0 0 0 1 0 1 0' CHARACTER( 16 ) :: DRCN_S_W_NW = ' 0 0 0 0 1 0 1 1' CHARACTER( 16 ) :: DRCN_S_SW = ' 0 0 0 0 1 1 0 0' CHARACTER( 16 ) :: DRCN_S_SW_NW = ' 0 0 0 0 1 1 0 1' CHARACTER( 16 ) :: DRCN_S_SW_W = ' 0 0 0 0 1 1 1 0' CHARACTER( 16 ) :: DRCN_S_SW_W_NW = ' 0 0 0 0 1 1 1 1' CHARACTER( 16 ) :: DRCN_SE = ' 0 0 0 1 0 0 0 0' CHARACTER( 16 ) :: DRCN_SE_NW = ' 0 0 0 1 0 0 0 1' CHARACTER( 16 ) :: DRCN_SE_W = ' 0 0 0 1 0 0 1 0' CHARACTER( 16 ) :: DRCN_SE_W_NW = ' 0 0 0 1 0 0 1 1' CHARACTER( 16 ) :: DRCN_SE_SW = ' 0 0 0 1 0 1 0 0' CHARACTER( 16 ) :: DRCN_SE_SW_NW = ' 0 0 0 1 0 1 0 1' CHARACTER( 16 ) :: DRCN_SE_SW_W = ' 0 0 0 1 0 1 1 0' CHARACTER( 16 ) :: DRCN_SE_SW_W_NW = ' 0 0 0 1 0 1 1 1' CHARACTER( 16 ) :: DRCN_SE_S = ' 0 0 0 1 1 0 0 0' CHARACTER( 16 ) :: DRCN_SE_S_NW = ' 0 0 0 1 1 0 0 1' CHARACTER( 16 ) :: DRCN_SE_S_W = ' 0 0 0 1 1 0 1 0' CHARACTER( 16 ) :: DRCN_SE_S_W_NW = ' 0 0 0 1 1 0 1 1' CHARACTER( 16 ) :: DRCN_SE_S_SW = ' 0 0 0 1 1 1 0 0' CHARACTER( 16 ) :: DRCN_SE_S_SW_NW = ' 0 0 0 1 1 1 0 1' CHARACTER( 16 ) :: DRCN_SE_S_SW_W = ' 0 0 0 1 1 1 1 0' CHARACTER( 16 ) :: DRCN_SE_S_SW_W_NW = ' 0 0 0 1 1 1 1 1' CHARACTER( 16 ) :: DRCN_E = ' 0 0 1 0 0 0 0 0' CHARACTER( 16 ) :: DRCN_E_NW = ' 0 0 1 0 0 0 0 1' CHARACTER( 16 ) :: DRCN_E_W = ' 0 0 1 0 0 0 1 0' CHARACTER( 16 ) :: DRCN_E_W_NW = ' 0 0 1 0 0 0 1 1' CHARACTER( 16 ) :: DRCN_E_SW = ' 0 0 1 0 0 1 0 0' CHARACTER( 16 ) :: DRCN_E_SW_NW = ' 0 0 1 0 0 1 0 1' CHARACTER( 16 ) :: DRCN_E_SW_W = ' 0 0 1 0 0 1 1 0' CHARACTER( 16 ) :: DRCN_E_SW_W_NW = ' 0 0 1 0 0 1 1 1' CHARACTER( 16 ) :: DRCN_E_S = ' 0 0 1 0 1 0 0 0' CHARACTER( 16 ) :: DRCN_E_S_NW = ' 0 0 1 0 1 0 0 1' CHARACTER( 16 ) :: DRCN_E_S_W = ' 0 0 1 0 1 0 1 0' CHARACTER( 16 ) :: DRCN_E_S_W_NW = ' 0 0 1 0 1 0 1 1' CHARACTER( 16 ) :: DRCN_E_S_SW = ' 0 0 1 0 1 1 0 0' CHARACTER( 16 ) :: DRCN_E_S_SW_NW = ' 0 0 1 0 1 1 0 1' CHARACTER( 16 ) :: DRCN_E_S_SW_W = ' 0 0 1 0 1 1 1 0' CHARACTER( 16 ) :: DRCN_E_S_SW_W_NW = ' 0 0 1 0 1 1 1 1' CHARACTER( 16 ) :: DRCN_E_SE = ' 0 0 1 1 0 0 0 0' CHARACTER( 16 ) :: DRCN_E_SE_NW = ' 0 0 1 1 0 0 0 1' CHARACTER( 16 ) :: DRCN_E_SE_W = ' 0 0 1 1 0 0 1 0' CHARACTER( 16 ) :: DRCN_E_SE_W_NW = ' 0 0 1 1 0 0 1 1' CHARACTER( 16 ) :: DRCN_E_SE_SW = ' 0 0 1 1 0 1 0 0' CHARACTER( 16 ) :: DRCN_E_SE_SW_NW = ' 0 0 1 1 0 1 0 1' CHARACTER( 16 ) :: DRCN_E_SE_SW_W = ' 0 0 1 1 0 1 1 0' CHARACTER( 16 ) :: DRCN_E_SE_SW_W_NW = ' 0 0 1 1 0 1 1 1' CHARACTER( 16 ) :: DRCN_E_SE_S = ' 0 0 1 1 1 0 0 0' CHARACTER( 16 ) :: DRCN_E_SE_S_NW = ' 0 0 1 1 1 0 0 1' CHARACTER( 16 ) :: DRCN_E_SE_S_W = ' 0 0 1 1 1 0 1 0' CHARACTER( 16 ) :: DRCN_E_SE_S_W_NW = ' 0 0 1 1 1 0 1 1' CHARACTER( 16 ) :: DRCN_E_SE_S_SW = ' 0 0 1 1 1 1 0 0' CHARACTER( 16 ) :: DRCN_E_SE_S_SW_NW = ' 0 0 1 1 1 1 0 1' CHARACTER( 16 ) :: DRCN_E_SE_S_SW_W = ' 0 0 1 1 1 1 1 0' CHARACTER( 16 ) :: DRCN_E_SE_S_SW_W_NW = ' 0 0 1 1 1 1 1 1' CHARACTER( 16 ) :: DRCN_NE = ' 0 1 0 0 0 0 0 0' CHARACTER( 16 ) :: DRCN_NE_NW = ' 0 1 0 0 0 0 0 1' CHARACTER( 16 ) :: DRCN_NE_W = ' 0 1 0 0 0 0 1 0' CHARACTER( 16 ) :: DRCN_NE_W_NW = ' 0 1 0 0 0 0 1 1' CHARACTER( 16 ) :: DRCN_NE_SW = ' 0 1 0 0 0 1 0 0' CHARACTER( 16 ) :: DRCN_NE_SW_NW = ' 0 1 0 0 0 1 0 1' CHARACTER( 16 ) :: DRCN_NE_SW_W = ' 0 1 0 0 0 1 1 0' CHARACTER( 16 ) :: DRCN_NE_SW_W_NW = ' 0 1 0 0 0 1 1 1' CHARACTER( 16 ) :: DRCN_NE_S = ' 0 1 0 0 1 0 0 0' CHARACTER( 16 ) :: DRCN_NE_S_NW = ' 0 1 0 0 1 0 0 1' CHARACTER( 16 ) :: DRCN_NE_S_W = ' 0 1 0 0 1 0 1 0' CHARACTER( 16 ) :: DRCN_NE_S_W_NW = ' 0 1 0 0 1 0 1 1' CHARACTER( 16 ) :: DRCN_NE_S_SW = ' 0 1 0 0 1 1 0 0' CHARACTER( 16 ) :: DRCN_NE_S_SW_NW = ' 0 1 0 0 1 1 0 1' CHARACTER( 16 ) :: DRCN_NE_S_SW_W = ' 0 1 0 0 1 1 1 0' CHARACTER( 16 ) :: DRCN_NE_S_SW_W_NW = ' 0 1 0 0 1 1 1 1' CHARACTER( 16 ) :: DRCN_NE_SE = ' 0 1 0 1 0 0 0 0' CHARACTER( 16 ) :: DRCN_NE_SE_NW = ' 0 1 0 1 0 0 0 1' CHARACTER( 16 ) :: DRCN_NE_SE_W = ' 0 1 0 1 0 0 1 0' CHARACTER( 16 ) :: DRCN_NE_SE_W_NW = ' 0 1 0 1 0 0 1 1' CHARACTER( 16 ) :: DRCN_NE_SE_SW = ' 0 1 0 1 0 1 0 0' CHARACTER( 16 ) :: DRCN_NE_SE_SW_NW = ' 0 1 0 1 0 1 0 1' CHARACTER( 16 ) :: DRCN_NE_SE_SW_W = ' 0 1 0 1 0 1 1 0' CHARACTER( 16 ) :: DRCN_NE_SE_SW_W_NW = ' 0 1 0 1 0 1 1 1' CHARACTER( 16 ) :: DRCN_NE_SE_S = ' 0 1 0 1 1 0 0 0' CHARACTER( 16 ) :: DRCN_NE_SE_S_NW = ' 0 1 0 1 1 0 0 1' CHARACTER( 16 ) :: DRCN_NE_SE_S_W = ' 0 1 0 1 1 0 1 0' CHARACTER( 16 ) :: DRCN_NE_SE_S_W_NW = ' 0 1 0 1 1 0 1 1' CHARACTER( 16 ) :: DRCN_NE_SE_S_SW = ' 0 1 0 1 1 1 0 0' CHARACTER( 16 ) :: DRCN_NE_SE_S_SW_NW = ' 0 1 0 1 1 1 0 1' CHARACTER( 16 ) :: DRCN_NE_SE_S_SW_W = ' 0 1 0 1 1 1 1 0' CHARACTER( 16 ) :: DRCN_NE_SE_S_SW_W_NW = ' 0 1 0 1 1 1 1 1' CHARACTER( 16 ) :: DRCN_NE_E = ' 0 1 1 0 0 0 0 0' CHARACTER( 16 ) :: DRCN_NE_E_NW = ' 0 1 1 0 0 0 0 1' CHARACTER( 16 ) :: DRCN_NE_E_W = ' 0 1 1 0 0 0 1 0' CHARACTER( 16 ) :: DRCN_NE_E_W_NW = ' 0 1 1 0 0 0 1 1' CHARACTER( 16 ) :: DRCN_NE_E_SW = ' 0 1 1 0 0 1 0 0' CHARACTER( 16 ) :: DRCN_NE_E_SW_NW = ' 0 1 1 0 0 1 0 1' CHARACTER( 16 ) :: DRCN_NE_E_SW_W = ' 0 1 1 0 0 1 1 0' CHARACTER( 16 ) :: DRCN_NE_E_SW_W_NW = ' 0 1 1 0 0 1 1 1' CHARACTER( 16 ) :: DRCN_NE_E_S = ' 0 1 1 0 1 0 0 0' CHARACTER( 16 ) :: DRCN_NE_E_S_NW = ' 0 1 1 0 1 0 0 1' CHARACTER( 16 ) :: DRCN_NE_E_S_W = ' 0 1 1 0 1 0 1 0' CHARACTER( 16 ) :: DRCN_NE_E_S_W_NW = ' 0 1 1 0 1 0 1 1' CHARACTER( 16 ) :: DRCN_NE_E_S_SW = ' 0 1 1 0 1 1 0 0' CHARACTER( 16 ) :: DRCN_NE_E_S_SW_NW = ' 0 1 1 0 1 1 0 1' CHARACTER( 16 ) :: DRCN_NE_E_S_SW_W = ' 0 1 1 0 1 1 1 0' CHARACTER( 16 ) :: DRCN_NE_E_S_SW_W_NW = ' 0 1 1 0 1 1 1 1' CHARACTER( 16 ) :: DRCN_NE_E_SE = ' 0 1 1 1 0 0 0 0' CHARACTER( 16 ) :: DRCN_NE_E_SE_NW = ' 0 1 1 1 0 0 0 1' CHARACTER( 16 ) :: DRCN_NE_E_SE_W = ' 0 1 1 1 0 0 1 0' CHARACTER( 16 ) :: DRCN_NE_E_SE_W_NW = ' 0 1 1 1 0 0 1 1' CHARACTER( 16 ) :: DRCN_NE_E_SE_SW = ' 0 1 1 1 0 1 0 0' CHARACTER( 16 ) :: DRCN_NE_E_SE_SW_NW = ' 0 1 1 1 0 1 0 1' CHARACTER( 16 ) :: DRCN_NE_E_SE_SW_W = ' 0 1 1 1 0 1 1 0' CHARACTER( 16 ) :: DRCN_NE_E_SE_SW_W_NW = ' 0 1 1 1 0 1 1 1' CHARACTER( 16 ) :: DRCN_NE_E_SE_S = ' 0 1 1 1 1 0 0 0' CHARACTER( 16 ) :: DRCN_NE_E_SE_S_NW = ' 0 1 1 1 1 0 0 1' CHARACTER( 16 ) :: DRCN_NE_E_SE_S_W = ' 0 1 1 1 1 0 1 0' CHARACTER( 16 ) :: DRCN_NE_E_SE_S_W_NW = ' 0 1 1 1 1 0 1 1' CHARACTER( 16 ) :: DRCN_NE_E_SE_S_SW = ' 0 1 1 1 1 1 0 0' CHARACTER( 16 ) :: DRCN_NE_E_SE_S_SW_NW = ' 0 1 1 1 1 1 0 1' CHARACTER( 16 ) :: DRCN_NE_E_SE_S_SW_W = ' 0 1 1 1 1 1 1 0' CHARACTER( 16 ) :: DRCN_NE_E_SE_S_SW_W_NW = ' 0 1 1 1 1 1 1 1' CHARACTER( 16 ) :: DRCN_N = ' 1 0 0 0 0 0 0 0' CHARACTER( 16 ) :: DRCN_N_NW = ' 1 0 0 0 0 0 0 1' CHARACTER( 16 ) :: DRCN_N_W = ' 1 0 0 0 0 0 1 0' CHARACTER( 16 ) :: DRCN_N_W_NW = ' 1 0 0 0 0 0 1 1' CHARACTER( 16 ) :: DRCN_N_SW = ' 1 0 0 0 0 1 0 0' CHARACTER( 16 ) :: DRCN_N_SW_NW = ' 1 0 0 0 0 1 0 1' CHARACTER( 16 ) :: DRCN_N_SW_W = ' 1 0 0 0 0 1 1 0' CHARACTER( 16 ) :: DRCN_N_SW_W_NW = ' 1 0 0 0 0 1 1 1' CHARACTER( 16 ) :: DRCN_N_S = ' 1 0 0 0 1 0 0 0' CHARACTER( 16 ) :: DRCN_N_S_NW = ' 1 0 0 0 1 0 0 1' CHARACTER( 16 ) :: DRCN_N_S_W = ' 1 0 0 0 1 0 1 0' CHARACTER( 16 ) :: DRCN_N_S_W_NW = ' 1 0 0 0 1 0 1 1' CHARACTER( 16 ) :: DRCN_N_S_SW = ' 1 0 0 0 1 1 0 0' CHARACTER( 16 ) :: DRCN_N_S_SW_NW = ' 1 0 0 0 1 1 0 1' CHARACTER( 16 ) :: DRCN_N_S_SW_W = ' 1 0 0 0 1 1 1 0' CHARACTER( 16 ) :: DRCN_N_S_SW_W_NW = ' 1 0 0 0 1 1 1 1' CHARACTER( 16 ) :: DRCN_N_SE = ' 1 0 0 1 0 0 0 0' CHARACTER( 16 ) :: DRCN_N_SE_NW = ' 1 0 0 1 0 0 0 1' CHARACTER( 16 ) :: DRCN_N_SE_W = ' 1 0 0 1 0 0 1 0' CHARACTER( 16 ) :: DRCN_N_SE_W_NW = ' 1 0 0 1 0 0 1 1' CHARACTER( 16 ) :: DRCN_N_SE_SW = ' 1 0 0 1 0 1 0 0' CHARACTER( 16 ) :: DRCN_N_SE_SW_NW = ' 1 0 0 1 0 1 0 1' CHARACTER( 16 ) :: DRCN_N_SE_SW_W = ' 1 0 0 1 0 1 1 0' CHARACTER( 16 ) :: DRCN_N_SE_SW_W_NW = ' 1 0 0 1 0 1 1 1' CHARACTER( 16 ) :: DRCN_N_SE_S = ' 1 0 0 1 1 0 0 0' CHARACTER( 16 ) :: DRCN_N_SE_S_NW = ' 1 0 0 1 1 0 0 1' CHARACTER( 16 ) :: DRCN_N_SE_S_W = ' 1 0 0 1 1 0 1 0' CHARACTER( 16 ) :: DRCN_N_SE_S_W_NW = ' 1 0 0 1 1 0 1 1' CHARACTER( 16 ) :: DRCN_N_SE_S_SW = ' 1 0 0 1 1 1 0 0' CHARACTER( 16 ) :: DRCN_N_SE_S_SW_NW = ' 1 0 0 1 1 1 0 1' CHARACTER( 16 ) :: DRCN_N_SE_S_SW_W = ' 1 0 0 1 1 1 1 0' CHARACTER( 16 ) :: DRCN_N_SE_S_SW_W_NW = ' 1 0 0 1 1 1 1 1' CHARACTER( 16 ) :: DRCN_N_E = ' 1 0 1 0 0 0 0 0' CHARACTER( 16 ) :: DRCN_N_E_NW = ' 1 0 1 0 0 0 0 1' CHARACTER( 16 ) :: DRCN_N_E_W = ' 1 0 1 0 0 0 1 0' CHARACTER( 16 ) :: DRCN_N_E_W_NW = ' 1 0 1 0 0 0 1 1' CHARACTER( 16 ) :: DRCN_N_E_SW = ' 1 0 1 0 0 1 0 0' CHARACTER( 16 ) :: DRCN_N_E_SW_NW = ' 1 0 1 0 0 1 0 1' CHARACTER( 16 ) :: DRCN_N_E_SW_W = ' 1 0 1 0 0 1 1 0' CHARACTER( 16 ) :: DRCN_N_E_SW_W_NW = ' 1 0 1 0 0 1 1 1' CHARACTER( 16 ) :: DRCN_N_E_S = ' 1 0 1 0 1 0 0 0' CHARACTER( 16 ) :: DRCN_N_E_S_NW = ' 1 0 1 0 1 0 0 1' CHARACTER( 16 ) :: DRCN_N_E_S_W = ' 1 0 1 0 1 0 1 0' ! for backward compatiblity CHARACTER( 16 ) :: DRCN_NESW = ' 1 0 1 0 1 0 1 0' CHARACTER( 16 ) :: DRCN_N_E_S_W_NW = ' 1 0 1 0 1 0 1 1' CHARACTER( 16 ) :: DRCN_N_E_S_SW = ' 1 0 1 0 1 1 0 0' CHARACTER( 16 ) :: DRCN_N_E_S_SW_NW = ' 1 0 1 0 1 1 0 1' CHARACTER( 16 ) :: DRCN_N_E_S_SW_W = ' 1 0 1 0 1 1 1 0' CHARACTER( 16 ) :: DRCN_N_E_S_SW_W_NW = ' 1 0 1 0 1 1 1 1' CHARACTER( 16 ) :: DRCN_N_E_SE = ' 1 0 1 1 0 0 0 0' CHARACTER( 16 ) :: DRCN_N_E_SE_NW = ' 1 0 1 1 0 0 0 1' CHARACTER( 16 ) :: DRCN_N_E_SE_W = ' 1 0 1 1 0 0 1 0' CHARACTER( 16 ) :: DRCN_N_E_SE_W_NW = ' 1 0 1 1 0 0 1 1' CHARACTER( 16 ) :: DRCN_N_E_SE_SW = ' 1 0 1 1 0 1 0 0' CHARACTER( 16 ) :: DRCN_N_E_SE_SW_NW = ' 1 0 1 1 0 1 0 1' CHARACTER( 16 ) :: DRCN_N_E_SE_SW_W = ' 1 0 1 1 0 1 1 0' CHARACTER( 16 ) :: DRCN_N_E_SE_SW_W_NW = ' 1 0 1 1 0 1 1 1' CHARACTER( 16 ) :: DRCN_N_E_SE_S = ' 1 0 1 1 1 0 0 0' CHARACTER( 16 ) :: DRCN_N_E_SE_S_NW = ' 1 0 1 1 1 0 0 1' CHARACTER( 16 ) :: DRCN_N_E_SE_S_W = ' 1 0 1 1 1 0 1 0' CHARACTER( 16 ) :: DRCN_N_E_SE_S_W_NW = ' 1 0 1 1 1 0 1 1' CHARACTER( 16 ) :: DRCN_N_E_SE_S_SW = ' 1 0 1 1 1 1 0 0' CHARACTER( 16 ) :: DRCN_N_E_SE_S_SW_NW = ' 1 0 1 1 1 1 0 1' CHARACTER( 16 ) :: DRCN_N_E_SE_S_SW_W = ' 1 0 1 1 1 1 1 0' CHARACTER( 16 ) :: DRCN_N_E_SE_S_SW_W_NW = ' 1 0 1 1 1 1 1 1' CHARACTER( 16 ) :: DRCN_N_NE = ' 1 1 0 0 0 0 0 0' CHARACTER( 16 ) :: DRCN_N_NE_NW = ' 1 1 0 0 0 0 0 1' CHARACTER( 16 ) :: DRCN_N_NE_W = ' 1 1 0 0 0 0 1 0' CHARACTER( 16 ) :: DRCN_N_NE_W_NW = ' 1 1 0 0 0 0 1 1' CHARACTER( 16 ) :: DRCN_N_NE_SW = ' 1 1 0 0 0 1 0 0' CHARACTER( 16 ) :: DRCN_N_NE_SW_NW = ' 1 1 0 0 0 1 0 1' CHARACTER( 16 ) :: DRCN_N_NE_SW_W = ' 1 1 0 0 0 1 1 0' CHARACTER( 16 ) :: DRCN_N_NE_SW_W_NW = ' 1 1 0 0 0 1 1 1' CHARACTER( 16 ) :: DRCN_N_NE_S = ' 1 1 0 0 1 0 0 0' CHARACTER( 16 ) :: DRCN_N_NE_S_NW = ' 1 1 0 0 1 0 0 1' CHARACTER( 16 ) :: DRCN_N_NE_S_W = ' 1 1 0 0 1 0 1 0' CHARACTER( 16 ) :: DRCN_N_NE_S_W_NW = ' 1 1 0 0 1 0 1 1' CHARACTER( 16 ) :: DRCN_N_NE_S_SW = ' 1 1 0 0 1 1 0 0' CHARACTER( 16 ) :: DRCN_N_NE_S_SW_NW = ' 1 1 0 0 1 1 0 1' CHARACTER( 16 ) :: DRCN_N_NE_S_SW_W = ' 1 1 0 0 1 1 1 0' CHARACTER( 16 ) :: DRCN_N_NE_S_SW_W_NW = ' 1 1 0 0 1 1 1 1' CHARACTER( 16 ) :: DRCN_N_NE_SE = ' 1 1 0 1 0 0 0 0' CHARACTER( 16 ) :: DRCN_N_NE_SE_NW = ' 1 1 0 1 0 0 0 1' CHARACTER( 16 ) :: DRCN_N_NE_SE_W = ' 1 1 0 1 0 0 1 0' CHARACTER( 16 ) :: DRCN_N_NE_SE_W_NW = ' 1 1 0 1 0 0 1 1' CHARACTER( 16 ) :: DRCN_N_NE_SE_SW = ' 1 1 0 1 0 1 0 0' CHARACTER( 16 ) :: DRCN_N_NE_SE_SW_NW = ' 1 1 0 1 0 1 0 1' CHARACTER( 16 ) :: DRCN_N_NE_SE_SW_W = ' 1 1 0 1 0 1 1 0' CHARACTER( 16 ) :: DRCN_N_NE_SE_SW_W_NW = ' 1 1 0 1 0 1 1 1' CHARACTER( 16 ) :: DRCN_N_NE_SE_S = ' 1 1 0 1 1 0 0 0' CHARACTER( 16 ) :: DRCN_N_NE_SE_S_NW = ' 1 1 0 1 1 0 0 1' CHARACTER( 16 ) :: DRCN_N_NE_SE_S_W = ' 1 1 0 1 1 0 1 0' CHARACTER( 16 ) :: DRCN_N_NE_SE_S_W_NW = ' 1 1 0 1 1 0 1 1' CHARACTER( 16 ) :: DRCN_N_NE_SE_S_SW = ' 1 1 0 1 1 1 0 0' CHARACTER( 16 ) :: DRCN_N_NE_SE_S_SW_NW = ' 1 1 0 1 1 1 0 1' CHARACTER( 16 ) :: DRCN_N_NE_SE_S_SW_W = ' 1 1 0 1 1 1 1 0' CHARACTER( 16 ) :: DRCN_N_NE_SE_S_SW_W_NW = ' 1 1 0 1 1 1 1 1' CHARACTER( 16 ) :: DRCN_N_NE_E = ' 1 1 1 0 0 0 0 0' CHARACTER( 16 ) :: DRCN_N_NE_E_NW = ' 1 1 1 0 0 0 0 1' CHARACTER( 16 ) :: DRCN_N_NE_E_W = ' 1 1 1 0 0 0 1 0' CHARACTER( 16 ) :: DRCN_N_NE_E_W_NW = ' 1 1 1 0 0 0 1 1' CHARACTER( 16 ) :: DRCN_N_NE_E_SW = ' 1 1 1 0 0 1 0 0' CHARACTER( 16 ) :: DRCN_N_NE_E_SW_NW = ' 1 1 1 0 0 1 0 1' CHARACTER( 16 ) :: DRCN_N_NE_E_SW_W = ' 1 1 1 0 0 1 1 0' CHARACTER( 16 ) :: DRCN_N_NE_E_SW_W_NW = ' 1 1 1 0 0 1 1 1' CHARACTER( 16 ) :: DRCN_N_NE_E_S = ' 1 1 1 0 1 0 0 0' CHARACTER( 16 ) :: DRCN_N_NE_E_S_NW = ' 1 1 1 0 1 0 0 1' CHARACTER( 16 ) :: DRCN_N_NE_E_S_W = ' 1 1 1 0 1 0 1 0' CHARACTER( 16 ) :: DRCN_N_NE_E_S_W_NW = ' 1 1 1 0 1 0 1 1' CHARACTER( 16 ) :: DRCN_N_NE_E_S_SW = ' 1 1 1 0 1 1 0 0' CHARACTER( 16 ) :: DRCN_N_NE_E_S_SW_NW = ' 1 1 1 0 1 1 0 1' CHARACTER( 16 ) :: DRCN_N_NE_E_S_SW_W = ' 1 1 1 0 1 1 1 0' CHARACTER( 16 ) :: DRCN_N_NE_E_S_SW_W_NW = ' 1 1 1 0 1 1 1 1' CHARACTER( 16 ) :: DRCN_N_NE_E_SE = ' 1 1 1 1 0 0 0 0' CHARACTER( 16 ) :: DRCN_N_NE_E_SE_NW = ' 1 1 1 1 0 0 0 1' CHARACTER( 16 ) :: DRCN_N_NE_E_SE_W = ' 1 1 1 1 0 0 1 0' CHARACTER( 16 ) :: DRCN_N_NE_E_SE_W_NW = ' 1 1 1 1 0 0 1 1' CHARACTER( 16 ) :: DRCN_N_NE_E_SE_SW = ' 1 1 1 1 0 1 0 0' CHARACTER( 16 ) :: DRCN_N_NE_E_SE_SW_NW = ' 1 1 1 1 0 1 0 1' CHARACTER( 16 ) :: DRCN_N_NE_E_SE_SW_W = ' 1 1 1 1 0 1 1 0' CHARACTER( 16 ) :: DRCN_N_NE_E_SE_SW_W_NW = ' 1 1 1 1 0 1 1 1' CHARACTER( 16 ) :: DRCN_N_NE_E_SE_S = ' 1 1 1 1 1 0 0 0' CHARACTER( 16 ) :: DRCN_N_NE_E_SE_S_NW = ' 1 1 1 1 1 0 0 1' CHARACTER( 16 ) :: DRCN_N_NE_E_SE_S_W = ' 1 1 1 1 1 0 1 0' CHARACTER( 16 ) :: DRCN_N_NE_E_SE_S_W_NW = ' 1 1 1 1 1 0 1 1' CHARACTER( 16 ) :: DRCN_N_NE_E_SE_S_SW = ' 1 1 1 1 1 1 0 0' CHARACTER( 16 ) :: DRCN_N_NE_E_SE_S_SW_NW = ' 1 1 1 1 1 1 0 1' CHARACTER( 16 ) :: DRCN_N_NE_E_SE_S_SW_W = ' 1 1 1 1 1 1 1 0' CHARACTER( 16 ) :: DRCN_N_NE_E_SE_S_SW_W_NW = ' 1 1 1 1 1 1 1 1' CHARACTER( 16 ) :: DRCN_ALL = ' 1 1 1 1 1 1 1 1' C....................................................................... ================================================ FILE: CCTM/src/MECHS/README.md ================================================ ### CMAQ Chemical Mechanisms The CMAQ modeling system accounts for chemistry in three phases: gas, aerosol, and cloud droplets. Available mechanisms include variations of three photochemistry schemes such as different representations of secondary organic aerosols, additional model species representing Hazardous Air Pollutants, inclusion of dimethyl sulfide chemistry or detailed isoprene chemistry. Please consult the release notes for changes to mechanisms available in a specific version of CMAQ. Fortran modules and namelists define a chemical mechanisms for the CMAQ model. Subdirectories of the $CMAQ_MODEL/CCTM/src/MECHS directory contain the files for available mechanisms. The species and emission control namelists enable setting runtime options for a mechanism. Species namelists define names, molecular weights and atmospheric processes (e.g., transport, cloud chemistry, and deposition). The files also determine whether the species concentrations and deposition results are written to output files. Emission control namelists define the emission inputs for model species. Two Fortran modules, RXNS_DATA_MODULE.F90 and RXNS_FUNC_MODULE.F90, define photochemistry for a mechanism. The data module specifies reactions and parameters. The functions module initializes photochemistry and calculates reaction rates constants. Because model source code define photochemistry for a mechanism, an executable version of the CMAQ model has a fixed photochemistry. To modify or change photochemistry, requires modifying or replacing the modules then recompiling. The approach may not work because data hardcoded within the photochemistry solver is not correct, _if using an Euler Backward Interative (EBI) solver_, or because data used to calculate photolysis rates is not complete. ### Using predefined chemical mechanisms To select a predefined mechanism configuration in CMAQ, set the *Mechanism* variable in the build scripts to a one of the mechanism subdirectories located under $CMAQ_MODEL/CCTM/src/MECHS. The below table lists mechanisms available in this version of the CMAQ model. Table 1. CMAQv5.4 Chemical Mechanisms |**Mechanism Name** | **Photochemistry** | **Model Species1,2** | **Cloud Chemistry Module3** | | ----------------- | ---------------------------------------------------- | -------------------- | ---------------------- | | cb6r3_ae7_aq | [Carbon Bond 6 version r3 with aero7 treatment of SOA](mechanism_information/cb6r3_ae7_aq/mech_cb6r3_ae7_aq.md) | [species table](mechanism_information/cb6r3_ae7_aq/cb6r3_ae7_aq_species_table.md) | acm_ae7 | | cb6r5_ae7_aq | [Carbon Bond 6 version r5 with aero7 treatment of SOA](mechanism_information/cb6r5_ae7_aq/mech_cb6r5_ae7_aq.md) | [species table](mechanism_information/cb6r5_ae7_aq/cb6r5_ae7_aq_species_table.md) | acm_ae7 | | cb6r5hap_ae7_aq | [Carbon Bond 6 version r5 with air toxics and aero7 treatment of SOA](mechanism_information/cb6r5_ae7_aq/mech_cb6r5_ae7_aq.md) | [species table](mechanism_information/cb6r5hap_ae7_aq/cb6r5hap_ae7_aq_species_table.md) | acm_ae7 | | cb6r5_ae7_aqkmt2 | [Carbon Bond 6 version r5 with aero7 treatment of SOA](mechanism_information/cb6r5_ae7_aq/mech_cb6r5_ae7_aq.md) | [species table](mechanism_information/cb6r5_ae7_aq/cb6r5_ae7_aq_species_table.md) | acm_ae7_kmt2 | | cb6r5m_ae7_aq | [Carbon Bond 6 version r5 with aero7 treatment of SOA and DMS and marine halogen chemistry](mechanism_information/cb6r5m_ae7_aq/mech_cb6r5m_ae7_aq.md) | [species table](mechanism_information/cb6r5m_ae7_aq/cb6r5m_ae7_aq_species_table.md) | acm_ae7_aq | | racm2_ae6_aq | [Regional Atmospheric Chemistry Mechanism version 2 with aero6 treatment of SOA](mechanism_information/racm2_ae6_aq/mech_racm2_ae6_aq.md) | [species table](mechanism_information/racm2_ae6_aq/racm2_ae6_aq_species_table.md) | acm_ae6 | | saprc07tic_ae7i_aq | [State Air Pollution Research Center version 07tc with extended isoprene chemistry and aero7i treatment of SOA]( mechanism_information/saprc07tic_ae7i_aq/mech_saprc07tic_ae7i_aq.md) | [species table](mechanism_information/saprc07tic_ae7i_aq/saprc07tic_ae7i_aq_species_table.md) | acm_ae7 | | saprc07tic_ae7i_aqkmt2 | [State Air Pollution Research Center version 07tc with extended isoprene chemistry and aero7i treatment of SOA](mechanism_information/saprc07tic_ae7i_aq/mech_saprc07tic_ae7i_aq.md) | [species table](mechanism_information/saprc07tic_ae7i_aq/saprc07tic_ae7i_aq_species_table.md) | acm_ae7_kmt2 | | saprc07tc_ae6_aq | [State Air Pollution Research Center version 07tc with aero6 treatment of SOA](mechanism_information/saprc07tc_ae6_aq/mech_saprc07tc_ae6_aq.md) | [species table](mechanism_information/saprc07tc_ae6_aq/saprc07tc_ae6_aq_species_table.md) | acm_ae6 | | cracmm1_aq | [Community Regional Atmospheric Chemistry Multiphase Mechanism version 1.0](mechanism_information/cracmm1_aq/mech_cracmm1_aq.md) | [species table](mechanism_information/cracmm1_aq/cracmm1_aq_species_table.md) | acm | | cracmm1amore_aq | [Community Regional Atmospheric Chemistry Multiphase Mechanism version 1.0 with AMORE isoprene condensation](mechanism_information/cracmm1amore_aq/mech_cracmm1amore_aq.md) | [species table](mechanism_information/cracmm1amore_aq/cracmm1amore_aq_species_table.md) | acm | | cracmm2 | [Community Regional Atmospheric Chemistry Multiphase Mechanism version 2](mechanism_information/cracmm2/mech_cracmm2.md) | [species table](mechanism_information/cracmm2/cracmm2_species_table.md) | acm | 1. mechanisms can share the same model species but differ cloud chemistry 2. species tables define model species in a mechanism's GC, AE, and NR namelists. 3. _kmt_ and _acm_ refers to the kinetic mass transfer to cloud droplets and the convective cloud/transport representation, respectively ### Creating or modifying a mechanism's photochemistry Editing a mechanism's Fortran modules is one way to make simple changes to thhe photochemistry scheme. More complex changes (_adding reactions and model species_) or creating a new scheme requires 1) creating new namelists with a text editor (_if adding new model species_) and 2) using the CMAQ chemical mechanism utility, CHEMMECH, to produce new Fortran modules. The CHEMMECH utility translates an ASCII file listing reactions for photochemistry into the Fortran modules used by CMAQ. For more information, consult the README file under $CMAQ_MODEL/UTIL/chemmech. Creating new mechanism modules may not be the last steps for the CMAQ model to use the photochemistry update. If changes add a new photolysis rate(s), the inline_phot_preproc or jproc utility has to create CMAQ input file(s) for the photolysis module used. If CMAQ is using an EBI solver to solve photochemistry, the create_ebi utility has to be used to create a new solver. These three utilities use the mechanism data module produced by the CHEMMECH utility. ### Using species namelist files Species namelists define the four groups of model species: gas (GC), aerosol (AE), non-reactive (NR), and tracer (TR) species simulated by the CMAQ model. It reads namelists to define processes determining concentrations. For example, species namelists can be used to apply uniform scaling factors to several physical processes. Dry deposition of NO can be reduced by 50% by applying a factor of 0.5 to the dry deposition velocity for NO. Similarly, the boundary conditions of O3 can be increased by 50% by applying a factor of 1.5. The gas, aerosol, and non-reactive namelists define a specific mechanism. The tracer namelist is generally interchangable between mechanisms. It can be employed for transport and deposition studies. Example tracer namelists are under $CMAQ_MODEL/CCTM/src/MECHS/trac0 (_the version most often used_) and $CMAQ_MODEL/CCTM/src/MECHS/trac1. ### Points to emphasize on chemical mechanisms - The Euler Backward Iterative (EBI) solver for photochemistry is hardcoded to the Fortran data module representing photochemistry and specific names in the species namelists. If either change, a new or different EBI solver source code is needed. - The Rosenbrock and SMVGEAR photochemistry solvers are not hardcoded the above files so they are more easily allow changing these files. ### Sulfur Tracking Method (STM) option This release of CMAQ includes a runtime option that provides detailed information on the modeled sulfur budget. This option, referred to as the "Sulfur Tracking Method (STM)", tracks sulfate production from gas- and aqueous-phase chemical reactions, as well as contributions from emissions and initial and boundary conditions. The STM option is activated by setting an environment variable in the CTM runscript: ``` setenv STM_SO4TRACK Y ``` Sulfur tracking species are added to the AE and NR groups at runtime if you enable this option. Table 2 provides a list of inorganic sulfur tracking species. Table 3 lists additional tracking species for the loss of inorganic sulfate to organosulfate for chemical mechanisms that include this loss pathway (SAPRC07TIC_AE6I, SAPRC07TIC_AE7I, CB6R3_AE7, or CB6R5M_AE7 mechanisms). Table 2. Sulfur Tracking Species |Species Group|Species Name| MW | Description | |:------------|:-----------|:-----|:------------| |AE |ASO4AQH2O2J | 96.0 |Accumulation mode sulfate (ASO4J) produced by aqueous-phase hydrogen peroxide oxidation reaction: H2O2 + S(IV) -> S(VI) + H2O | |AE |ASO4AQO3J | 96.0 |ASO4J produced by aqueous-phase ozone oxidation reaction: O3 + S(IV) -> S(VI) + O2 | |AE |ASO4AQFEMNJ | 96.0 |ASO4J produced by aqueous-phase oxygen catalyzed by Fe3+ and Mn2+ oxidation reaction: O2 + S(IV) -> S(VI) | |AE |ASO4AQMHPJ | 96.0 |ASO4J produced by aqueous-phase methyl hydrogen peroxide oxidation reaction: MHP + S(IV) -> S(VI) | |AE |ASO4AQPAAJ | 96.0 |ASO4J produced by aqueous-phase peroxyacetic acid oxidation reaction: PAA + S(IV) -> S(VI) | |AE |ASO4GASJ | 96.0 |ASO4J condensation following gas-phase reaction: OH + SO2 -> SULF + HO2 | |AE |ASO4EMISJ | 96.0 |ASO4J from source emissions | |AE |ASO4ICBCJ | 96.0 |ASO4J from boundary and initial conditions | |AE |ASO4GASI | 96.0 |Aitken mode sulfate (ASO4I) nucleation and/or condensation following gas-phase reaction: OH + SO2 -> SULF + HO2 | |AE |ASO4EMISI | 96.0 |ASO4I from source emissions | |AE |ASO4ICBCI | 96.0 |ASO4I from boundary and initial conditions | |AE |ASO4GASK | 96.0 |Coarse mode sulfate (ASO4K) condensation following gas-phase reaction: OH + SO2 -> SULF + HO2 | |AE |ASO4EMISK | 96.0 |ASO4K from source emissions | |AE |ASO4ICBCK | 96.0 |ASO4K from boundary and initial conditions | |NR |SULF_ICBC | 98.0 |Sulfuric acid vapor (SULF) from boundary and initial conditions | Table 3. Additional Tracking Species Representing Loss of Inorganic Sulfate to Organosulfate (only included if using SAPRC07TIC_AE6I, SAPRC07TIC_AE7I, CB6R3_AE7, or CB6R5M_AE7 mechanisms). |Species Group|Species Name| MW | Description | |:------------|:-----------|:-----|:------------| |AE |OSO4J | 96.0 |Loss of ASO4J to organosulfate | |AE |OSO4AQH2O2J | 96.0 |Loss of ASO4AQH2O2J to organosulfate | |AE |OSO4AQO3J | 96.0 |Loss of ASO4AQO3J to organosulfate | |AE |OSO4AQFEMNJ | 96.0 |Loss of ASO4AQFEMNJ to organosulfate | |AE |OSO4AQMHPJ | 96.0 |Loss of ASO4AQMHPJ to organosulfate | |AE |OSO4AQPAAJ | 96.0 |Loss of ASO4AQPAAJ to organosulfate | |AE |OSO4GASJ | 96.0 |Loss of ASO4GASJ to organosulfate | |AE |OSO4EMISJ | 96.0 |Loss of ASO4EMISJ to organosulfate | |AE |OSO4ICBCJ | 96.0 |Loss of ASO4ICBCJ to organosulfate | ================================================ FILE: CCTM/src/MECHS/cb6r3_ae7_aq/AE_cb6r3_ae7_aq.nml ================================================ &AE_nml AE_SPECIES_DATA = !SPECIES ,MOLWT ,Aitken ,Accum ,Coarse ,OPTICS ,IC ,ICFAC ,BC ,BC_FAC ,DRYDEP SURR ,FAC ,WET-SCAV SURR ,FAC ,AE2AQ SURR ,TRNS ,DDEP ,WDEP ,CONC 'ASO4' , 96.00 ,T ,T ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'SO4' , 1 ,'SO4' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ANH4' , 18.00 ,T ,T ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'NH4' , 1 ,'NH4' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ANO3' , 62.00 ,T ,T ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'NO3' , 1 ,'NO3' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ANA' , 23.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'NA' , 1 ,'NA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ACL' , 35.50 ,T ,T ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'CL' , 1 ,'CL' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AISO1' ,132.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AISO2' ,133.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ASQT' ,273.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AORGC' ,177.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'AORGC' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AEC' , 12.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'EC' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AOTHR' ,200.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'PRI' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AFE' , 55.80 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'FE' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AAL' , 27.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'PRI' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ASI' , 28.10 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'PRI' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ATI' , 47.90 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'PRI' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ACA' , 40.10 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'CA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AMG' , 24.30 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'MG' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AK' , 39.10 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'K' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AMN' , 54.90 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'MN' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ACORS' ,100.00 ,F ,F ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'ANTH' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ASOIL' ,100.00 ,F ,F ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'SOIL' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'NUM' , 1.00 ,T ,T ,T ,'' ,'' ,-1 ,'' ,-1 ,'VNUM' , 1 ,'NUM' , 1 ,'NUM' ,'Yes' ,'' ,'' ,'Yes', 'SRF' , 1.00 ,T ,T ,T ,'' ,'' ,-1 ,'' ,-1 ,'VSRF' , 1 ,'SRF' , 1 ,'SRF' ,'Yes' ,'' ,'' ,'Yes', 'AORGH2O' , 18.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'H2O' , 1 ,'H2O' ,'Yes' ,'' ,'' ,'Yes', 'AH2O' , 18.00 ,T ,T ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'H2O' , 1 ,'H2O' ,'Yes' ,'' ,'' ,'Yes', 'AH3OP' , 19.00 ,T ,T ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'' ,-1 ,'' ,'Yes' ,'' ,'' ,'Yes', 'ASEACAT' , 23.75 ,F ,F ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'SEAS' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AISO3' ,168.20 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AOLGA' ,206.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AOLGB' ,248.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AGLY' , 66.40 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AMTNO3' ,231.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AMTHYD' ,168.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'APOC' ,220.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'APNCOM' ,220.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'APCSO' ,170.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ALVPO1' ,218.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ASVPO1' ,230.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ASVPO2' ,241.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ASVPO3' ,253.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AIVPO1' ,266.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ALVOO1' ,136.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ALVOO2' ,136.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ASVOO1' ,135.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ASVOO2' ,135.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ASVOO3' ,134.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AAVB1' ,198.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AAVB2' ,179.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AAVB3' ,169.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AAVB4' ,158.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AMT1' ,300.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AMT2' ,200.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AMT3' ,186.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AMT4' ,184.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AMT5' ,170.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AMT6' ,168.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', / ================================================ FILE: CCTM/src/MECHS/cb6r3_ae7_aq/CMAQ_Control_DESID_cb6r3_ae7_aq.nml ================================================ !------------------------------------------------------------------------------! ! Emission Control Interface ! ! for the ! ! Detailed Emissions Scaling, Isolation, and Diagnostics (DESID) Module, ! ! part of the ! ! Community Multiscale Air Quality (CMAQ) Model ! ! developed and maintained by the ! ! Center for Environmental Measurement and Modeling (CEMM), ! ! Office of Research and Development (ORD) ! ! U.S. Environmental Protection Agency (USEPA) ! ! ! ! This namelist is consistent with CMAQv5.4 (Release AUGUST 2022) ! ! ! ! See CMAQ User's Guide Appendix B (https://github.com/USEPA/CMAQ/blob/main/ ! ! DOCS/Users_Guide/Appendix/CMAQ_UG_appendixB_emissions_control.md) ! ! and Murphy et al., Geoscientific Model Development, 14, 3407-3420, ! ! https://doi.org/10.5194/gmd-14-3407-2021, 2021. ! !------------------------------------------------------------------------------! !------------------------------------------------------------------------------! ! Emissions Scaling Rule Specification Component ! ! Each rule is presented as a row of inputs. The syntax of the ! ! emissions scaling rules is the following: ! ! EM_INSTR(I) = 'Region Label', 'Stream Label', 'Emission-Species', ! ! 'CMAQ-Species', 'Phase/Mode', 'Scale Factor', 'Basis', ! ! 'Operation' ! ! ! ! See the User's Guide for detailed definitions of each field. ! ! ! ! You may confirm the effect of the (default and custom) rules below by ! ! inspecting the processor-dependent log files ("CTM_LOG_XXX...") ! ! ! ! Note: If no rules are provided for a species, then there is no emission ! ! of that species. ! !------------------------------------------------------------------------------! &Desid_ScalingVars Desid_Max_Rules = 2000 / &Desid_Scaling Desid_Rules_nml = ! Region | Stream Label |Emission | CMAQ- |Phase/|Scale |Basis |Op ! Label | |Species | Species |Mode |Factor| | ! Gases 'EVERYWHERE', 'ALL' ,'NO2' ,'NO2' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'NO' ,'NO' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'HONO' ,'HONO' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'SO2' ,'SO2' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'NH3' ,'NH3' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'AACD' ,'AACD' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'ALD2' ,'ALD2' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'FORM' ,'FORM' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'MEOH' ,'MEOH' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'FACD' ,'FACD' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'CO' ,'CO' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'ALDX' ,'ALDX' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'ETHA' ,'ETHA' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'ETOH' ,'ETOH' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'KET' ,'KET' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PAR' ,'PAR' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'ACET' ,'ACET' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PRPA' ,'PRPA' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'ETHY' ,'ETHY' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'ETH' ,'ETH' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'OLE' ,'OLE' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'IOLE' ,'IOLE' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'ISOP' ,'ISOP' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'APIN' ,'APIN' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'TERP' ,'TERP' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'BENZ' ,'BENZENE' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'TOL' ,'TOL' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'XYLMN' ,'XYLMN' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'NAPH' ,'NAPH' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'CH4' ,'ECH4' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'CL2' ,'CL2' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'HCL' ,'HCL' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'SESQ' ,'SESQ' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'SOAALK' ,'SOAALK' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'ACROLEIN','ACROLEIN' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'ALD2_PRIMARY','ALD2_PRIMARY','GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'FORM_PRIMARY','FORM_PRIMARY','GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'ACROLEIN','ACRO_PRIMARY','GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'BUTADIENE13','BUTADIENE13' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'SULF' ,'SULF' ,'GAS' ,0. ,'UNIT','a', ! Fine-Mode Aerosols 'EVERYWHERE', 'ALL' ,'SULF' ,'ASO4' ,'FINE' ,1. ,'MASS','a', 'EVERYWHERE', 'ALL' ,'PSO4' ,'ASO4' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PNH4' ,'ANH4' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PNO3' ,'ANO3' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PCL' ,'ACL' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PNA' ,'ANA' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PEC' ,'AEC' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMOTHR' ,'AOTHR' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PFE' ,'AFE' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PAL' ,'AAL' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PSI' ,'ASI' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PTI' ,'ATI' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PCA' ,'ACA' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMG' ,'AMG' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PK' ,'AK' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMN' ,'AMN' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PH2O' ,'AH2O' ,'FINE' ,1. ,'UNIT','a', ! Coarse-Mode Inorganic Ions Scaling 'EVERYWHERE', 'ALL' ,'PMC' ,'ACORS' ,'COARSE',0.99675,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMC' ,'ASO4' ,'COARSE',0.001 ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMC' ,'ANO3' ,'COARSE',0.00048,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMC' ,'ACL' ,'COARSE',0.00145,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMC' ,'AH2O' ,'COARSE',0.00032,'UNIT','a', ! Fine-Mode Primary Organic Aerosol Scaling ! --> Nonvolatile POA 'EVERYWHERE', 'ALL' ,'POC' ,'APOC' ,'FINE',0. ,'MASS','a', 'EVERYWHERE', 'ALL' ,'PNCOM' ,'APNCOM' ,'FINE',0. ,'MASS','a', ! --> Semivolatile POA (see CMAQ User's Guide Appendix B.2.2.1) 'EVERYWHERE', 'ALL' ,'POC' ,'VSVPO1' ,'GAS' ,0.045,'MASS','a', 'EVERYWHERE', 'ALL' ,'PNCOM' ,'VSVPO1' ,'GAS' ,0.045,'MASS','a', 'EVERYWHERE', 'ALL' ,'POC' ,'VSVPO2' ,'GAS' ,0.14 ,'MASS','a', 'EVERYWHERE', 'ALL' ,'PNCOM' ,'VSVPO2' ,'GAS' ,0.14 ,'MASS','a', 'EVERYWHERE', 'ALL' ,'POC' ,'VSVPO3' ,'GAS' ,0.18 ,'MASS','a', 'EVERYWHERE', 'ALL' ,'PNCOM' ,'VSVPO3' ,'GAS' ,0.18 ,'MASS','a', 'EVERYWHERE', 'ALL' ,'POC' ,'VIVPO1' ,'GAS' ,0.50 ,'MASS','a', 'EVERYWHERE', 'ALL' ,'PNCOM' ,'VIVPO1' ,'GAS' ,0.50 ,'MASS','a', 'EVERYWHERE', 'ALL' ,'POC' ,'ALVPO1' ,'FINE',0.09 ,'MASS','a', 'EVERYWHERE', 'ALL' ,'PNCOM' ,'ALVPO1' ,'FINE',0.09 ,'MASS','a', 'EVERYWHERE', 'ALL' ,'POC' ,'ASVPO1' ,'FINE',0.045,'MASS','a', 'EVERYWHERE', 'ALL' ,'PNCOM' ,'ASVPO1' ,'FINE',0.045,'MASS','a', ! pcSOA is a CMAQ species introduced to account for missing pathways for SOA ! formation from combustion sources. It accounts for IVOC oxidation as well as ! other phenomena (Murphy et al., ACP, 2017). It was parameterized based on data ! primarily from Los Angeles, where vehicle exhaust continues to dominate. 'EVERYWHERE', 'ALL' ,'POC' ,'PCVOC' ,'GAS' ,6.579,'MASS','a', 'EVERYWHERE', 'ALL' ,'PNCOM' ,'PCVOC' ,'GAS' ,6.579,'MASS','a', ! However, the added pcSOA is probably inappropriate for Fire sources, especially ! in its current configuration. This pathway should be zeroed out for all fire ! and wood-burning related sources. 'EVERYWHERE', 'PT_FIRES' ,'ALL' ,'PCVOC' ,'GAS' ,0.0 ,'MASS','o', 'EVERYWHERE', 'PT_RXFIRES' ,'ALL' ,'PCVOC' ,'GAS' ,0.0 ,'MASS','o', 'EVERYWHERE', 'PT_WILDFIRES' ,'ALL' ,'PCVOC' ,'GAS' ,0.0 ,'MASS','o', 'EVERYWHERE', 'PT_AGFIRES' ,'ALL' ,'PCVOC' ,'GAS' ,0.0 ,'MASS','o', 'EVERYWHERE', 'PT_OTHFIRES' ,'ALL' ,'PCVOC' ,'GAS' ,0.0 ,'MASS','o', 'EVERYWHERE', 'PT_FIRES_MXCA','ALL' ,'PCVOC' ,'GAS' ,0.0 ,'MASS','o', 'EVERYWHERE', 'GR_RES_FIRES' ,'ALL' ,'PCVOC' ,'GAS' ,0.0 ,'MASS','o', ! Wind-Blown Dust and Sea Spray Scaling ! Fine Components 'EVERYWHERE', 'ALL' ,'PMFINE_LVPO1','ALVPO1' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_LVOO1','ALVOO1' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_SO4' ,'ASO4' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_NO3' ,'ANO3' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_CL' ,'ACL' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_NH4' ,'ANH4' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_NA' ,'ANA' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_CA' ,'ACA' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_MG' ,'AMG' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_K' ,'AK' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_FE' ,'AFE' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_AL' ,'AAL' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_SI' ,'ASI' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_TI' ,'ATI' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_MN' ,'AMN' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_H2O' ,'AH2O' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_OTHR' ,'AOTHR' ,'FINE',1. ,'UNIT','a', ! :Scaling of Fine-Mode POA from Wind-Blown Dust or Sea Spray. Either the ! :Nonvolatile POA should be propagated to the transport model, or the Low ! :Volatility POA should be propagated, not both. ! Wind-Blown Dust and Sea Spray Scaling ! Coarse Components 'EVERYWHERE', 'ALL' ,'PMCOARSE_SO4','ASO4' ,'COARSE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMCOARSE_NO3','ANO3' ,'COARSE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMCOARSE_CL' ,'ACL' ,'COARSE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMCOARSE_H2O','AH2O' ,'COARSE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMCOARSE_SOIL','ASOIL' ,'COARSE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMCOARSE_SEACAT','ASEACAT' ,'COARSE',1. ,'UNIT','a', / ================================================ FILE: CCTM/src/MECHS/cb6r3_ae7_aq/CSQY_DATA_cb6r3_ae7_aq ================================================ Table for Mechanism = CB6R3_AE7_AQ NPHOTAB = 32 !Individual rates listed below: NO2_IUPAC10 O3_O3P_IUPAC10 O3_O1D_IUPAC10 H2O2_IUPAC10 NO3NO2_06 NO3NO_06 N2O5_IUPAC10 HONO_IUPAC10 HNO3_IUPAC10 PNA_IUPAC10 PAN_IUPAC10 MEPX_IUPAC10 NTR_IUPAC10 FORM_R_IUPAC10 FORM_M_IUPAC10 ALD2_R_IUPAC10 ALDX_R_IUPAC10 GLYD_IUPAC10 GLY_R_IUPAC10 MGLY_IUPAC10 KET_IUPAC10 ACET_IUPAC10 ISPD HPALD CL2_IUPAC04 HOCL_IUPAC04 FMCL_IUPAC04 CLNO2_IUPAC13 CLONO2_1 CLONO2_2 IC3ONO2 ACRO_09 NTEMP = 6 ! I TEMP( I ) K 1 210.00 2 230.00 3 250.00 4 270.00 5 290.00 6 310.00 ! Wavelength and Photolysis Rate Parameters for CMAQ In-Line Photolysis ! calculation . The values are determined by averaging technique over the below ! number of wavelength bins. The technique employs an approach used by the FASTJX ! versions 6 and 7. !References: ! 1) Bian, H. S. and Prather, M. J.: Fast-J2: accurate simulation of stratospheric ! photolysis in global chemical models, J. Atmos. Chem., 41, 281-296 doi:10.1023/A:1014980619462, 2002. ! 2) Hsu, J. and Prather, M. J.: Stratospheric variability and tropospheric ozone, ! J. Geophys. Res., 114, D06102, doi:10.1029/2008JD010942, 2009. ! 3) Prather, M. J.: Fast-JX versions and utilities, available at: ! http://www.ess.uci.edu/researchgrp/prather/scholar_software/fast-jx ! (last accessed: 24 January 2014), 2014. ! Wave bands and Solar Flux ! N_INLINE_BAND = 7 ! I, START_WL_BIN(nm), EFFECT_WL_BIN_(nm), END_WL_BIN_(nm), photon_flux(cm-2*s-1), 1, 291.000, 294.590, 298.300, 5.8828E+14, 2, 298.300, 303.151, 307.500, 7.6354E+14, 3, 307.500, 310.007, 312.500, 5.0412E+14, 4, 312.500, 316.434, 320.300, 8.9628E+14, 5, 320.300, 333.076, 345.000, 3.8537E+15, 6, 345.000, 381.997, 412.500, 1.5457E+16, 7, 412.500, 607.723, 850.000, 2.1307E+17, !... CS = absorption cross sections averaged over UCI Solar Flux !... QY = quantum yields averaged over UCI Solar Flux !... EQY = eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model !PHOTAB QUANTITY TEMP WBIN( 1) WBIN( 2) WBIN( 3) WBIN( 4) WBIN( 5) WBIN( 6) WBIN( 7) NO2_IUPAC10 CS 210.000 9.420958E-20 1.354622E-19 1.774391E-19 2.174503E-19 3.547179E-19 5.767915E-19 3.786790E-21 NO2_IUPAC10 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 7.963594E-01 4.393946E-02 NO2_IUPAC10 CS 230.000 9.434513E-20 1.353973E-19 1.770686E-19 2.162921E-19 3.512878E-19 5.752929E-19 3.777024E-21 NO2_IUPAC10 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 7.963594E-01 4.393946E-02 NO2_IUPAC10 CS 250.000 9.461621E-20 1.352675E-19 1.763276E-19 2.139758E-19 3.444275E-19 5.722957E-19 3.757493E-21 NO2_IUPAC10 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 7.971660E-01 4.545939E-02 NO2_IUPAC10 CS 270.000 9.488729E-20 1.351377E-19 1.755867E-19 2.116595E-19 3.375671E-19 5.692984E-19 3.737961E-21 NO2_IUPAC10 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 8.052323E-01 6.065865E-02 NO2_IUPAC10 CS 290.000 9.515838E-20 1.350079E-19 1.748457E-19 2.093432E-19 3.307068E-19 5.663012E-19 3.718430E-21 NO2_IUPAC10 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 8.132986E-01 7.585791E-02 NO2_IUPAC10 CS 310.000 9.521259E-20 1.349819E-19 1.746975E-19 2.088799E-19 3.293347E-19 5.657017E-19 3.714523E-21 NO2_IUPAC10 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 8.165251E-01 8.193760E-02 O3_O3P_IUPAC10 CS 210.000 8.051318E-19 2.408910E-19 9.055385E-20 3.615927E-20 4.571664E-21 4.615212E-23 1.523765E-21 O3_O3P_IUPAC10 EQY 210.000 1.000000E-01 1.027219E-01 4.447545E-01 8.027972E-01 8.946853E-01 9.211782E-01 9.999820E-01 O3_O3P_IUPAC10 CS 230.000 8.171868E-19 2.460948E-19 9.334247E-20 3.770529E-20 4.888574E-21 4.615212E-23 1.523765E-21 O3_O3P_IUPAC10 EQY 230.000 1.000000E-01 1.027219E-01 4.402074E-01 8.051998E-01 8.946853E-01 9.211782E-01 9.999820E-01 O3_O3P_IUPAC10 CS 250.000 8.372787E-19 2.547678E-19 9.799016E-20 4.028199E-20 5.416759E-21 4.615212E-23 1.523765E-21 O3_O3P_IUPAC10 EQY 250.000 1.000000E-01 1.027219E-01 4.327254E-01 8.061814E-01 8.946853E-01 9.211782E-01 9.999820E-01 O3_O3P_IUPAC10 CS 270.000 8.573704E-19 2.634407E-19 1.026379E-19 4.285869E-20 5.944944E-21 4.615212E-23 1.523765E-21 O3_O3P_IUPAC10 EQY 270.000 1.000000E-01 1.027219E-01 4.200289E-01 8.006186E-01 8.946853E-01 9.211782E-01 9.999820E-01 O3_O3P_IUPAC10 CS 290.000 8.774622E-19 2.721137E-19 1.072856E-19 4.543539E-20 6.473128E-21 4.615212E-23 1.523765E-21 O3_O3P_IUPAC10 EQY 290.000 1.000000E-01 1.027219E-01 3.979119E-01 7.767363E-01 8.946853E-01 9.211782E-01 9.999820E-01 O3_O3P_IUPAC10 CS 310.000 8.804761E-19 2.734146E-19 1.079827E-19 4.582189E-20 6.552356E-21 4.615212E-23 1.523765E-21 O3_O3P_IUPAC10 EQY 310.000 1.000000E-01 1.027219E-01 3.582713E-01 7.092118E-01 8.946853E-01 9.211782E-01 9.999820E-01 O3_O1D_IUPAC10 CS 210.000 8.051318E-19 2.408910E-19 9.055385E-20 3.615927E-20 4.571664E-21 4.615212E-23 1.523765E-21 O3_O1D_IUPAC10 EQY 210.000 9.000000E-01 8.972781E-01 5.552455E-01 1.972028E-01 1.053147E-01 7.882178E-02 1.800060E-05 O3_O1D_IUPAC10 CS 230.000 8.171868E-19 2.460948E-19 9.334247E-20 3.770529E-20 4.888574E-21 4.615212E-23 1.523765E-21 O3_O1D_IUPAC10 EQY 230.000 9.000000E-01 8.972781E-01 5.597926E-01 1.948002E-01 1.053147E-01 7.882178E-02 1.800060E-05 O3_O1D_IUPAC10 CS 250.000 8.372787E-19 2.547678E-19 9.799016E-20 4.028199E-20 5.416759E-21 4.615212E-23 1.523765E-21 O3_O1D_IUPAC10 EQY 250.000 9.000000E-01 8.972781E-01 5.672746E-01 1.938186E-01 1.053147E-01 7.882178E-02 1.800060E-05 O3_O1D_IUPAC10 CS 270.000 8.573704E-19 2.634407E-19 1.026379E-19 4.285869E-20 5.944944E-21 4.615212E-23 1.523765E-21 O3_O1D_IUPAC10 EQY 270.000 9.000000E-01 8.972781E-01 5.799711E-01 1.993814E-01 1.053147E-01 7.882178E-02 1.800060E-05 O3_O1D_IUPAC10 CS 290.000 8.774622E-19 2.721137E-19 1.072856E-19 4.543539E-20 6.473128E-21 4.615212E-23 1.523765E-21 O3_O1D_IUPAC10 EQY 290.000 9.000000E-01 8.972781E-01 6.020881E-01 2.232637E-01 1.053147E-01 7.882178E-02 1.800060E-05 O3_O1D_IUPAC10 CS 310.000 8.804761E-19 2.734146E-19 1.079827E-19 4.582189E-20 6.552356E-21 4.615212E-23 1.523765E-21 O3_O1D_IUPAC10 EQY 310.000 9.000000E-01 8.972781E-01 6.417287E-01 2.907882E-01 1.053147E-01 7.882178E-02 1.800060E-05 H2O2_IUPAC10 CS 210.000 9.663063E-21 5.877752E-21 3.837687E-21 2.660469E-21 1.015675E-21 5.105271E-23 0.000000E+00 H2O2_IUPAC10 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.986846E-01 0.000000E+00 H2O2_IUPAC10 CS 230.000 9.802651E-21 5.987925E-21 3.927030E-21 2.734720E-21 1.056133E-21 5.105271E-23 0.000000E+00 H2O2_IUPAC10 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.986846E-01 0.000000E+00 H2O2_IUPAC10 CS 250.000 9.991126E-21 6.136684E-21 4.047665E-21 2.834977E-21 1.110760E-21 5.105271E-23 0.000000E+00 H2O2_IUPAC10 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.986846E-01 0.000000E+00 H2O2_IUPAC10 CS 270.000 1.023066E-20 6.325741E-21 4.200981E-21 2.962393E-21 1.180187E-21 5.105271E-23 0.000000E+00 H2O2_IUPAC10 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.986846E-01 0.000000E+00 H2O2_IUPAC10 CS 290.000 1.052111E-20 6.554984E-21 4.386883E-21 3.116892E-21 1.264370E-21 5.105271E-23 0.000000E+00 H2O2_IUPAC10 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.986846E-01 0.000000E+00 H2O2_IUPAC10 CS 310.000 1.086042E-20 6.822793E-21 4.604061E-21 3.297382E-21 1.362715E-21 5.105271E-23 0.000000E+00 H2O2_IUPAC10 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.986846E-01 0.000000E+00 NO3NO2_06 CS 210.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 5.262113E-21 1.613590E-18 NO3NO2_06 EQY 210.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.000000E+00 5.942736E-01 NO3NO2_06 CS 230.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 4.993950E-21 1.531360E-18 NO3NO2_06 EQY 230.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.000000E+00 6.050572E-01 NO3NO2_06 CS 250.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 4.713711E-21 1.445427E-18 NO3NO2_06 EQY 250.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.000000E+00 6.142171E-01 NO3NO2_06 CS 270.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 4.425707E-21 1.357113E-18 NO3NO2_06 EQY 270.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.000000E+00 6.233770E-01 NO3NO2_06 CS 290.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 4.133394E-21 1.267477E-18 NO3NO2_06 EQY 290.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.000000E+00 6.325368E-01 NO3NO2_06 CS 310.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 3.839497E-21 1.177355E-18 NO3NO2_06 EQY 310.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.000000E+00 6.362008E-01 NO3NO_06 CS 210.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 5.262113E-21 1.613590E-18 NO3NO_06 EQY 210.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 8.130509E-02 NO3NO_06 CS 230.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 4.993950E-21 1.531360E-18 NO3NO_06 EQY 230.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 8.048424E-02 NO3NO_06 CS 250.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 4.713711E-21 1.445427E-18 NO3NO_06 EQY 250.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 8.024673E-02 NO3NO_06 CS 270.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 4.425707E-21 1.357113E-18 NO3NO_06 EQY 270.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 8.000923E-02 NO3NO_06 CS 290.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 4.133394E-21 1.267477E-18 NO3NO_06 EQY 290.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 7.977173E-02 NO3NO_06 CS 310.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 3.839497E-21 1.177355E-18 NO3NO_06 EQY 310.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 7.967671E-02 N2O5_IUPAC10 CS 210.000 5.286138E-20 3.282404E-20 2.191359E-20 1.511474E-20 6.060293E-21 6.152397E-22 0.000000E+00 N2O5_IUPAC10 EQY 210.000 9.185266E-01 9.975538E-01 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 N2O5_IUPAC10 CS 230.000 5.286896E-20 3.282982E-20 2.191831E-20 1.511860E-20 6.062690E-21 6.157666E-22 0.000000E+00 N2O5_IUPAC10 EQY 230.000 9.185266E-01 9.975538E-01 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 N2O5_IUPAC10 CS 250.000 5.287533E-20 3.283467E-20 2.192227E-20 1.512185E-20 6.064704E-21 6.162096E-22 0.000000E+00 N2O5_IUPAC10 EQY 250.000 9.185266E-01 9.975538E-01 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 N2O5_IUPAC10 CS 270.000 5.288076E-20 3.283881E-20 2.192564E-20 1.512461E-20 6.066420E-21 6.165872E-22 0.000000E+00 N2O5_IUPAC10 EQY 270.000 9.185266E-01 9.975538E-01 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 N2O5_IUPAC10 CS 290.000 5.288543E-20 3.284238E-20 2.192855E-20 1.512700E-20 6.067900E-21 6.169129E-22 0.000000E+00 N2O5_IUPAC10 EQY 290.000 9.185266E-01 9.975538E-01 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 N2O5_IUPAC10 CS 310.000 5.288754E-20 3.284398E-20 2.192985E-20 1.512807E-20 6.068566E-21 6.170595E-22 0.000000E+00 N2O5_IUPAC10 EQY 310.000 9.185266E-01 9.975538E-01 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HONO_IUPAC10 CS 210.000 1.874562E-20 6.161052E-21 1.172420E-20 2.303942E-20 8.731945E-20 7.564806E-20 0.000000E+00 HONO_IUPAC10 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.999840E-01 0.000000E+00 HONO_IUPAC10 CS 230.000 1.874562E-20 6.161052E-21 1.172420E-20 2.303942E-20 8.731945E-20 7.564806E-20 0.000000E+00 HONO_IUPAC10 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.999840E-01 0.000000E+00 HONO_IUPAC10 CS 250.000 1.874562E-20 6.161052E-21 1.172420E-20 2.303942E-20 8.731945E-20 7.564806E-20 0.000000E+00 HONO_IUPAC10 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.999840E-01 0.000000E+00 HONO_IUPAC10 CS 270.000 1.874562E-20 6.161052E-21 1.172420E-20 2.303942E-20 8.731945E-20 7.564806E-20 0.000000E+00 HONO_IUPAC10 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.999840E-01 0.000000E+00 HONO_IUPAC10 CS 290.000 1.874562E-20 6.161052E-21 1.172420E-20 2.303942E-20 8.731945E-20 7.564806E-20 0.000000E+00 HONO_IUPAC10 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.999840E-01 0.000000E+00 HONO_IUPAC10 CS 310.000 1.874562E-20 6.161052E-21 1.172420E-20 2.303942E-20 8.731945E-20 7.564806E-20 0.000000E+00 HONO_IUPAC10 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.999840E-01 0.000000E+00 HNO3_IUPAC10 CS 210.000 4.166234E-21 1.877995E-21 7.805607E-22 3.243519E-22 2.838103E-23 3.550938E-25 0.000000E+00 HNO3_IUPAC10 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.983369E-01 0.000000E+00 HNO3_IUPAC10 CS 230.000 4.388597E-21 2.011394E-21 8.503601E-22 3.623056E-22 3.431827E-23 3.587909E-25 0.000000E+00 HNO3_IUPAC10 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.983369E-01 0.000000E+00 HNO3_IUPAC10 CS 250.000 4.622829E-21 2.154269E-21 9.264013E-22 4.047005E-22 4.149756E-23 3.625265E-25 0.000000E+00 HNO3_IUPAC10 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.983369E-01 0.000000E+00 HNO3_IUPAC10 CS 270.000 4.869561E-21 2.307292E-21 1.009242E-21 4.520562E-22 5.017875E-23 3.663011E-25 0.000000E+00 HNO3_IUPAC10 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.983369E-01 0.000000E+00 HNO3_IUPAC10 CS 290.000 5.129463E-21 2.471185E-21 1.099491E-21 5.049532E-22 6.067601E-23 3.701149E-25 0.000000E+00 HNO3_IUPAC10 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.983369E-01 0.000000E+00 HNO3_IUPAC10 CS 310.000 5.403236E-21 2.646719E-21 1.197810E-21 5.640399E-22 7.336928E-23 3.739684E-25 0.000000E+00 HNO3_IUPAC10 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.983369E-01 0.000000E+00 PNA_IUPAC10 CS 210.000 2.768231E-20 1.086640E-20 4.753695E-21 2.705257E-21 3.427064E-22 0.000000E+00 0.000000E+00 PNA_IUPAC10 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.993055E-01 0.000000E+00 0.000000E+00 PNA_IUPAC10 CS 230.000 2.825610E-20 1.126199E-20 5.012977E-21 2.902247E-21 3.888219E-22 0.000000E+00 0.000000E+00 PNA_IUPAC10 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.993055E-01 0.000000E+00 0.000000E+00 PNA_IUPAC10 CS 250.000 2.908251E-20 1.183175E-20 5.386413E-21 3.185963E-21 4.552405E-22 0.000000E+00 0.000000E+00 PNA_IUPAC10 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.993055E-01 0.000000E+00 0.000000E+00 PNA_IUPAC10 CS 270.000 3.019241E-20 1.259695E-20 5.887948E-21 3.567003E-21 5.444426E-22 0.000000E+00 0.000000E+00 PNA_IUPAC10 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.993055E-01 0.000000E+00 0.000000E+00 PNA_IUPAC10 CS 290.000 3.160436E-20 1.357040E-20 6.525974E-21 4.051742E-21 6.579210E-22 0.000000E+00 0.000000E+00 PNA_IUPAC10 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.993055E-01 0.000000E+00 0.000000E+00 PNA_IUPAC10 CS 310.000 3.332532E-20 1.475689E-20 7.303630E-21 4.642564E-21 7.962334E-22 0.000000E+00 0.000000E+00 PNA_IUPAC10 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.993055E-01 0.000000E+00 0.000000E+00 PAN_IUPAC10 CS 210.000 1.945595E-21 7.375681E-22 3.339314E-22 1.711848E-22 3.676151E-23 1.420572E-24 0.000000E+00 PAN_IUPAC10 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.982885E-01 0.000000E+00 PAN_IUPAC10 CS 230.000 2.279872E-21 8.774045E-22 4.009705E-22 2.076227E-22 4.614925E-23 1.435982E-24 0.000000E+00 PAN_IUPAC10 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.982885E-01 0.000000E+00 PAN_IUPAC10 CS 250.000 2.671583E-21 1.043752E-21 4.814681E-22 2.518166E-22 5.793432E-23 1.451559E-24 0.000000E+00 PAN_IUPAC10 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.982885E-01 0.000000E+00 PAN_IUPAC10 CS 270.000 3.130594E-21 1.241639E-21 5.781261E-22 3.054176E-22 7.272892E-23 1.467305E-24 0.000000E+00 PAN_IUPAC10 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.982885E-01 0.000000E+00 PAN_IUPAC10 CS 290.000 3.668470E-21 1.477042E-21 6.941890E-22 3.704279E-22 9.130162E-23 1.483222E-24 0.000000E+00 PAN_IUPAC10 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.982885E-01 0.000000E+00 PAN_IUPAC10 CS 310.000 4.298759E-21 1.757076E-21 8.335523E-22 4.492761E-22 1.146172E-22 1.499311E-24 0.000000E+00 PAN_IUPAC10 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.982885E-01 0.000000E+00 MEPX_IUPAC10 CS 210.000 6.280529E-21 4.060546E-21 2.741565E-21 1.980587E-21 8.228210E-22 5.779768E-23 0.000000E+00 MEPX_IUPAC10 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.995850E-01 0.000000E+00 MEPX_IUPAC10 CS 230.000 6.280529E-21 4.060546E-21 2.741565E-21 1.980587E-21 8.228210E-22 5.779768E-23 0.000000E+00 MEPX_IUPAC10 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.995850E-01 0.000000E+00 MEPX_IUPAC10 CS 250.000 6.280529E-21 4.060546E-21 2.741565E-21 1.980587E-21 8.228210E-22 5.779768E-23 0.000000E+00 MEPX_IUPAC10 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.995850E-01 0.000000E+00 MEPX_IUPAC10 CS 270.000 6.280529E-21 4.060546E-21 2.741565E-21 1.980587E-21 8.228210E-22 5.779768E-23 0.000000E+00 MEPX_IUPAC10 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.995850E-01 0.000000E+00 MEPX_IUPAC10 CS 290.000 6.280529E-21 4.060546E-21 2.741565E-21 1.980587E-21 8.228210E-22 5.779768E-23 0.000000E+00 MEPX_IUPAC10 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.995850E-01 0.000000E+00 MEPX_IUPAC10 CS 310.000 6.280529E-21 4.060546E-21 2.741565E-21 1.980587E-21 8.228210E-22 5.779768E-23 0.000000E+00 MEPX_IUPAC10 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.995850E-01 0.000000E+00 NTR_IUPAC10 CS 210.000 1.076218E-20 5.464268E-21 2.614017E-21 1.242460E-21 1.566121E-22 1.627988E-24 0.000000E+00 NTR_IUPAC10 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.998643E-01 0.000000E+00 NTR_IUPAC10 CS 230.000 1.076218E-20 5.464268E-21 2.614017E-21 1.242460E-21 1.566121E-22 1.627988E-24 0.000000E+00 NTR_IUPAC10 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.998643E-01 0.000000E+00 NTR_IUPAC10 CS 250.000 1.128924E-20 5.792141E-21 2.800412E-21 1.353672E-21 1.751516E-22 1.627988E-24 0.000000E+00 NTR_IUPAC10 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.998643E-01 0.000000E+00 NTR_IUPAC10 CS 270.000 1.242207E-20 6.508089E-21 3.214023E-21 1.606851E-21 2.190747E-22 1.627988E-24 0.000000E+00 NTR_IUPAC10 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.998643E-01 0.000000E+00 NTR_IUPAC10 CS 290.000 1.366857E-20 7.312533E-21 3.688722E-21 1.907382E-21 2.740124E-22 1.627988E-24 0.000000E+00 NTR_IUPAC10 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.998643E-01 0.000000E+00 NTR_IUPAC10 CS 310.000 1.504015E-20 8.216412E-21 4.233534E-21 2.264122E-21 3.427270E-22 1.627988E-24 0.000000E+00 NTR_IUPAC10 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.998643E-01 0.000000E+00 FORM_R_IUPAC10 CS 210.000 3.016736E-20 3.407197E-20 1.568985E-20 3.238252E-20 1.829643E-20 7.861401E-22 0.000000E+00 FORM_R_IUPAC10 EQY 210.000 6.880879E-01 7.231423E-01 7.194253E-01 6.869270E-01 3.142517E-01 0.000000E+00 0.000000E+00 FORM_R_IUPAC10 CS 230.000 3.013878E-20 3.406970E-20 1.568104E-20 3.240564E-20 1.830688E-20 7.856302E-22 0.000000E+00 FORM_R_IUPAC10 EQY 230.000 6.880879E-01 7.231423E-01 7.194253E-01 6.869270E-01 3.142517E-01 0.000000E+00 0.000000E+00 FORM_R_IUPAC10 CS 250.000 3.011020E-20 3.406742E-20 1.567224E-20 3.242876E-20 1.831733E-20 7.851202E-22 0.000000E+00 FORM_R_IUPAC10 EQY 250.000 6.880879E-01 7.231423E-01 7.194253E-01 6.869270E-01 3.142517E-01 0.000000E+00 0.000000E+00 FORM_R_IUPAC10 CS 270.000 3.008162E-20 3.406515E-20 1.566343E-20 3.245189E-20 1.832778E-20 7.846103E-22 0.000000E+00 FORM_R_IUPAC10 EQY 270.000 6.880879E-01 7.231423E-01 7.194253E-01 6.869270E-01 3.142517E-01 0.000000E+00 0.000000E+00 FORM_R_IUPAC10 CS 290.000 3.005305E-20 3.406287E-20 1.565463E-20 3.247501E-20 1.833823E-20 7.841004E-22 0.000000E+00 FORM_R_IUPAC10 EQY 290.000 6.880879E-01 7.231423E-01 7.194253E-01 6.869270E-01 3.142517E-01 0.000000E+00 0.000000E+00 FORM_R_IUPAC10 CS 310.000 3.003875E-20 3.406174E-20 1.565022E-20 3.248657E-20 1.834346E-20 7.838454E-22 0.000000E+00 FORM_R_IUPAC10 EQY 310.000 6.880879E-01 7.231423E-01 7.194253E-01 6.869270E-01 3.142517E-01 0.000000E+00 0.000000E+00 FORM_M_IUPAC10 CS 210.000 3.016736E-20 3.407197E-20 1.568985E-20 3.238252E-20 1.829643E-20 7.858541E-22 0.000000E+00 FORM_M_IUPAC10 EQY 210.000 2.921963E-01 2.751352E-01 2.807963E-01 3.135067E-01 5.269461E-01 2.222071E-01 0.000000E+00 FORM_M_IUPAC10 CS 230.000 3.013878E-20 3.406970E-20 1.568104E-20 3.240564E-20 1.830688E-20 7.853445E-22 0.000000E+00 FORM_M_IUPAC10 EQY 230.000 2.921963E-01 2.751352E-01 2.807963E-01 3.135067E-01 5.229684E-01 2.135576E-01 0.000000E+00 FORM_M_IUPAC10 CS 250.000 3.011020E-20 3.406742E-20 1.567224E-20 3.242876E-20 1.831733E-20 7.848347E-22 0.000000E+00 FORM_M_IUPAC10 EQY 250.000 2.921963E-01 2.751352E-01 2.807963E-01 3.135067E-01 5.147454E-01 1.978278E-01 0.000000E+00 FORM_M_IUPAC10 CS 270.000 3.008162E-20 3.406515E-20 1.566343E-20 3.245189E-20 1.832778E-20 7.843250E-22 0.000000E+00 FORM_M_IUPAC10 EQY 270.000 2.921963E-01 2.751352E-01 2.807963E-01 3.135067E-01 5.063055E-01 1.840914E-01 0.000000E+00 FORM_M_IUPAC10 CS 290.000 3.005305E-20 3.406287E-20 1.565463E-20 3.247501E-20 1.833823E-20 7.838152E-22 0.000000E+00 FORM_M_IUPAC10 EQY 290.000 2.921963E-01 2.751352E-01 2.807963E-01 3.135067E-01 4.976940E-01 1.720293E-01 0.000000E+00 FORM_M_IUPAC10 CS 310.000 3.003875E-20 3.406174E-20 1.565022E-20 3.248657E-20 1.834346E-20 7.835604E-22 0.000000E+00 FORM_M_IUPAC10 EQY 310.000 2.921963E-01 2.751352E-01 2.807963E-01 3.135067E-01 4.933168E-01 1.665162E-01 0.000000E+00 ALD2_R_IUPAC10 CS 210.000 4.459135E-20 3.773280E-20 3.017348E-20 2.156331E-20 3.903332E-21 0.000000E+00 0.000000E+00 ALD2_R_IUPAC10 EQY 210.000 4.899745E-01 3.998092E-01 2.956010E-01 1.673639E-01 5.199931E-02 0.000000E+00 0.000000E+00 ALD2_R_IUPAC10 CS 230.000 4.459135E-20 3.773280E-20 3.017348E-20 2.156331E-20 3.903332E-21 0.000000E+00 0.000000E+00 ALD2_R_IUPAC10 EQY 230.000 4.899745E-01 3.998092E-01 2.956010E-01 1.673639E-01 5.199931E-02 0.000000E+00 0.000000E+00 ALD2_R_IUPAC10 CS 250.000 4.459135E-20 3.773280E-20 3.017348E-20 2.156331E-20 3.903332E-21 0.000000E+00 0.000000E+00 ALD2_R_IUPAC10 EQY 250.000 4.899745E-01 3.998092E-01 2.956010E-01 1.673639E-01 5.199931E-02 0.000000E+00 0.000000E+00 ALD2_R_IUPAC10 CS 270.000 4.459135E-20 3.773280E-20 3.017348E-20 2.156331E-20 3.903332E-21 0.000000E+00 0.000000E+00 ALD2_R_IUPAC10 EQY 270.000 4.899745E-01 3.998092E-01 2.956010E-01 1.673639E-01 5.199931E-02 0.000000E+00 0.000000E+00 ALD2_R_IUPAC10 CS 290.000 4.459135E-20 3.773280E-20 3.017348E-20 2.156331E-20 3.903332E-21 0.000000E+00 0.000000E+00 ALD2_R_IUPAC10 EQY 290.000 4.899745E-01 3.998092E-01 2.956010E-01 1.673639E-01 5.199931E-02 0.000000E+00 0.000000E+00 ALD2_R_IUPAC10 CS 310.000 4.459135E-20 3.773280E-20 3.017348E-20 2.156331E-20 3.903332E-21 0.000000E+00 0.000000E+00 ALD2_R_IUPAC10 EQY 310.000 4.899745E-01 3.998092E-01 2.956010E-01 1.673639E-01 5.199931E-02 0.000000E+00 0.000000E+00 ALDX_R_IUPAC10 CS 210.000 3.166360E-20 4.710848E-20 3.611882E-20 2.543345E-20 6.159184E-21 0.000000E+00 0.000000E+00 ALDX_R_IUPAC10 EQY 210.000 7.734550E-01 6.582294E-01 3.752134E-01 2.049571E-01 5.996180E-02 0.000000E+00 0.000000E+00 ALDX_R_IUPAC10 CS 230.000 3.166360E-20 4.710848E-20 3.611882E-20 2.543345E-20 6.159184E-21 0.000000E+00 0.000000E+00 ALDX_R_IUPAC10 EQY 230.000 7.734550E-01 6.582294E-01 3.752134E-01 2.049571E-01 5.996180E-02 0.000000E+00 0.000000E+00 ALDX_R_IUPAC10 CS 250.000 3.166360E-20 4.710848E-20 3.611882E-20 2.543345E-20 6.159184E-21 0.000000E+00 0.000000E+00 ALDX_R_IUPAC10 EQY 250.000 7.734550E-01 6.582294E-01 3.752134E-01 2.049571E-01 5.996180E-02 0.000000E+00 0.000000E+00 ALDX_R_IUPAC10 CS 270.000 3.166360E-20 4.710848E-20 3.611882E-20 2.543345E-20 6.159184E-21 0.000000E+00 0.000000E+00 ALDX_R_IUPAC10 EQY 270.000 7.734550E-01 6.582294E-01 3.752134E-01 2.049571E-01 5.996180E-02 0.000000E+00 0.000000E+00 ALDX_R_IUPAC10 CS 290.000 3.166360E-20 4.710848E-20 3.611882E-20 2.543345E-20 6.159184E-21 0.000000E+00 0.000000E+00 ALDX_R_IUPAC10 EQY 290.000 7.734550E-01 6.582294E-01 3.752134E-01 2.049571E-01 5.996180E-02 0.000000E+00 0.000000E+00 ALDX_R_IUPAC10 CS 310.000 3.166360E-20 4.710848E-20 3.611882E-20 2.543345E-20 6.159184E-21 0.000000E+00 0.000000E+00 ALDX_R_IUPAC10 EQY 310.000 7.734550E-01 6.582294E-01 3.752134E-01 2.049571E-01 5.996180E-02 0.000000E+00 0.000000E+00 GLYD_IUPAC10 CS 210.000 3.704782E-20 2.277373E-20 1.257586E-20 5.852344E-21 6.507965E-22 0.000000E+00 0.000000E+00 GLYD_IUPAC10 EQY 210.000 7.500000E-01 7.500000E-01 7.500000E-01 7.500000E-01 7.500000E-01 0.000000E+00 0.000000E+00 GLYD_IUPAC10 CS 230.000 3.704782E-20 2.277373E-20 1.257586E-20 5.852344E-21 6.507965E-22 0.000000E+00 0.000000E+00 GLYD_IUPAC10 EQY 230.000 7.500000E-01 7.500000E-01 7.500000E-01 7.500000E-01 7.500000E-01 0.000000E+00 0.000000E+00 GLYD_IUPAC10 CS 250.000 3.704782E-20 2.277373E-20 1.257586E-20 5.852344E-21 6.507965E-22 0.000000E+00 0.000000E+00 GLYD_IUPAC10 EQY 250.000 7.500000E-01 7.500000E-01 7.500000E-01 7.500000E-01 7.500000E-01 0.000000E+00 0.000000E+00 GLYD_IUPAC10 CS 270.000 3.704782E-20 2.277373E-20 1.257586E-20 5.852344E-21 6.507965E-22 0.000000E+00 0.000000E+00 GLYD_IUPAC10 EQY 270.000 7.500000E-01 7.500000E-01 7.500000E-01 7.500000E-01 7.500000E-01 0.000000E+00 0.000000E+00 GLYD_IUPAC10 CS 290.000 3.704782E-20 2.277373E-20 1.257586E-20 5.852344E-21 6.507965E-22 0.000000E+00 0.000000E+00 GLYD_IUPAC10 EQY 290.000 7.500000E-01 7.500000E-01 7.500000E-01 7.500000E-01 7.500000E-01 0.000000E+00 0.000000E+00 GLYD_IUPAC10 CS 310.000 3.704782E-20 2.277373E-20 1.257586E-20 5.852344E-21 6.507965E-22 0.000000E+00 0.000000E+00 GLYD_IUPAC10 EQY 310.000 7.500000E-01 7.500000E-01 7.500000E-01 7.500000E-01 7.500000E-01 0.000000E+00 0.000000E+00 GLY_R_IUPAC10 CS 210.000 3.790312E-20 3.572568E-20 3.193592E-20 2.574332E-20 1.107792E-20 2.757578E-20 1.066401E-20 GLY_R_IUPAC10 EQY 210.000 9.967219E-01 9.926980E-01 9.859577E-01 9.761513E-01 9.177929E-01 1.356775E-01 5.195657E-17 GLY_R_IUPAC10 CS 230.000 3.790312E-20 3.572568E-20 3.193592E-20 2.574332E-20 1.107792E-20 2.757578E-20 1.066401E-20 GLY_R_IUPAC10 EQY 230.000 9.958482E-01 9.909940E-01 9.832090E-01 9.720629E-01 9.094443E-01 1.429276E-01 6.259819E-16 GLY_R_IUPAC10 CS 250.000 3.790312E-20 3.572568E-20 3.193592E-20 2.574332E-20 1.107792E-20 2.757578E-20 1.066401E-20 GLY_R_IUPAC10 EQY 250.000 9.949115E-01 9.892465E-01 9.804909E-01 9.681613E-01 9.022884E-01 1.502220E-01 1.248587E-09 GLY_R_IUPAC10 CS 270.000 3.790312E-20 3.572568E-20 3.193592E-20 2.574332E-20 1.107792E-20 2.757578E-20 1.066401E-20 GLY_R_IUPAC10 EQY 270.000 9.939302E-01 9.874880E-01 9.778448E-01 9.644851E-01 8.962001E-01 1.575783E-01 5.390683E-06 GLY_R_IUPAC10 CS 290.000 3.790312E-20 3.572568E-20 3.193592E-20 2.574332E-20 1.107792E-20 2.757578E-20 1.066401E-20 GLY_R_IUPAC10 EQY 290.000 9.929207E-01 9.857442E-01 9.752997E-01 9.610549E-01 8.910552E-01 1.649268E-01 7.041833E-04 GLY_R_IUPAC10 CS 310.000 3.790312E-20 3.572568E-20 3.193592E-20 2.574332E-20 1.107792E-20 2.757578E-20 1.066401E-20 GLY_R_IUPAC10 EQY 310.000 9.918970E-01 9.840348E-01 9.728748E-01 9.578785E-01 8.867379E-01 1.722405E-01 1.457921E-02 MGLY_IUPAC10 CS 210.000 4.623980E-20 3.737641E-20 2.838188E-20 2.024261E-20 7.313774E-21 3.354496E-20 8.017686E-21 MGLY_IUPAC10 EQY 210.000 9.424525E-01 9.055298E-01 8.638632E-01 8.161852E-01 6.723635E-01 1.057406E-01 2.062893E-02 MGLY_IUPAC10 CS 230.000 4.623980E-20 3.737641E-20 2.838188E-20 2.024261E-20 7.313774E-21 3.354496E-20 8.017686E-21 MGLY_IUPAC10 EQY 230.000 9.424612E-01 9.055434E-01 8.638818E-01 8.162095E-01 6.724034E-01 1.057492E-01 2.062893E-02 MGLY_IUPAC10 CS 250.000 4.623980E-20 3.737641E-20 2.838188E-20 2.024261E-20 7.313774E-21 3.354496E-20 8.017686E-21 MGLY_IUPAC10 EQY 250.000 9.424697E-01 9.055570E-01 8.639004E-01 8.162335E-01 6.724433E-01 1.057578E-01 2.062893E-02 MGLY_IUPAC10 CS 270.000 4.623980E-20 3.737641E-20 2.838188E-20 2.024261E-20 7.313774E-21 3.354496E-20 8.017686E-21 MGLY_IUPAC10 EQY 270.000 9.424782E-01 9.055706E-01 8.639192E-01 8.162577E-01 6.724831E-01 1.057665E-01 2.062893E-02 MGLY_IUPAC10 CS 290.000 4.623980E-20 3.737641E-20 2.838188E-20 2.024261E-20 7.313774E-21 3.354496E-20 8.017686E-21 MGLY_IUPAC10 EQY 290.000 9.424869E-01 9.055842E-01 8.639378E-01 8.162817E-01 6.725230E-01 1.057751E-01 2.062893E-02 MGLY_IUPAC10 CS 310.000 4.623980E-20 3.737641E-20 2.838188E-20 2.024261E-20 7.313774E-21 3.354496E-20 8.017686E-21 MGLY_IUPAC10 EQY 310.000 9.424955E-01 9.055978E-01 8.639566E-01 8.163059E-01 6.725629E-01 1.057837E-01 2.062893E-02 KET_IUPAC10 CS 210.000 4.244734E-20 2.775264E-20 1.650076E-20 8.235885E-21 8.879242E-22 2.161979E-25 0.000000E+00 KET_IUPAC10 EQY 210.000 3.557317E-01 2.281597E-01 9.456919E-02 4.449943E-02 1.703344E-02 2.980055E-03 0.000000E+00 KET_IUPAC10 CS 230.000 4.244734E-20 2.775264E-20 1.650076E-20 8.235885E-21 8.879242E-22 2.161979E-25 0.000000E+00 KET_IUPAC10 EQY 230.000 3.557317E-01 2.281597E-01 9.456919E-02 4.449943E-02 1.703344E-02 2.980055E-03 0.000000E+00 KET_IUPAC10 CS 250.000 4.244734E-20 2.775264E-20 1.650076E-20 8.235885E-21 8.879242E-22 2.161979E-25 0.000000E+00 KET_IUPAC10 EQY 250.000 3.557317E-01 2.281597E-01 9.456919E-02 4.449943E-02 1.703344E-02 2.980055E-03 0.000000E+00 KET_IUPAC10 CS 270.000 4.244734E-20 2.775264E-20 1.650076E-20 8.235885E-21 8.879242E-22 2.161979E-25 0.000000E+00 KET_IUPAC10 EQY 270.000 3.557317E-01 2.281597E-01 9.456919E-02 4.449943E-02 1.703344E-02 2.980055E-03 0.000000E+00 KET_IUPAC10 CS 290.000 4.244734E-20 2.775264E-20 1.650076E-20 8.235885E-21 8.879242E-22 2.161979E-25 0.000000E+00 KET_IUPAC10 EQY 290.000 3.557317E-01 2.281597E-01 9.456919E-02 4.449943E-02 1.703344E-02 2.980055E-03 0.000000E+00 KET_IUPAC10 CS 310.000 4.244734E-20 2.775264E-20 1.650076E-20 8.235885E-21 8.879242E-22 2.161979E-25 0.000000E+00 KET_IUPAC10 EQY 310.000 3.557317E-01 2.281597E-01 9.456919E-02 4.449943E-02 1.703344E-02 2.980055E-03 0.000000E+00 ACET_IUPAC10 CS 210.000 3.154020E-20 1.990274E-20 1.121114E-20 5.714158E-21 4.839526E-22 9.619963E-25 0.000000E+00 ACET_IUPAC10 EQY 210.000 3.142315E-01 9.508523E-02 1.347957E-02 2.101419E-03 4.774525E-05 2.883126E-03 0.000000E+00 ACET_IUPAC10 CS 230.000 3.210615E-20 2.065870E-20 1.200334E-20 6.223282E-21 5.288214E-22 9.615415E-25 0.000000E+00 ACET_IUPAC10 EQY 230.000 2.892200E-01 1.028149E-01 1.893153E-02 3.808953E-03 1.663003E-04 2.883126E-03 0.000000E+00 ACET_IUPAC10 CS 250.000 3.284215E-20 2.146998E-20 1.277972E-20 6.735570E-21 6.082958E-22 9.633595E-25 0.000000E+00 ACET_IUPAC10 EQY 250.000 2.868186E-01 1.209827E-01 2.841206E-02 7.388534E-03 7.029614E-04 2.883126E-03 0.000000E+00 ACET_IUPAC10 CS 270.000 3.374994E-20 2.230310E-20 1.348986E-20 7.221250E-21 7.267921E-22 9.679524E-25 0.000000E+00 ACET_IUPAC10 EQY 270.000 3.030808E-01 1.525401E-01 4.579334E-02 1.553840E-02 3.012870E-03 2.883126E-03 0.000000E+00 ACET_IUPAC10 CS 290.000 3.483127E-20 2.312459E-20 1.408336E-20 7.650557E-21 8.887266E-22 9.758227E-25 0.000000E+00 ACET_IUPAC10 EQY 290.000 3.373500E-01 2.015979E-01 7.683466E-02 3.310391E-02 1.071987E-02 2.883126E-03 0.000000E+00 ACET_IUPAC10 CS 310.000 3.608787E-20 2.390098E-20 1.450979E-20 7.993726E-21 1.098516E-21 9.874724E-25 0.000000E+00 ACET_IUPAC10 EQY 310.000 3.878387E-01 2.703615E-01 1.273605E-01 6.627605E-02 3.052155E-02 2.883126E-03 0.000000E+00 ISPD CS 210.000 2.840289E-20 4.154632E-20 5.213074E-20 6.122464E-20 6.678539E-20 1.408010E-20 0.000000E+00 ISPD EQY 210.000 5.009691E-02 5.009691E-02 5.009691E-02 5.009691E-02 5.009691E-02 5.009691E-02 0.000000E+00 ISPD CS 230.000 2.840289E-20 4.154632E-20 5.213074E-20 6.122464E-20 6.678539E-20 1.408010E-20 0.000000E+00 ISPD EQY 230.000 5.009691E-02 5.009691E-02 5.009691E-02 5.009691E-02 5.009691E-02 5.009691E-02 0.000000E+00 ISPD CS 250.000 2.840289E-20 4.154632E-20 5.213074E-20 6.122464E-20 6.678539E-20 1.408010E-20 0.000000E+00 ISPD EQY 250.000 5.009691E-02 5.009691E-02 5.009691E-02 5.009691E-02 5.009691E-02 5.009691E-02 0.000000E+00 ISPD CS 270.000 2.840289E-20 4.154632E-20 5.213074E-20 6.122464E-20 6.678539E-20 1.408010E-20 0.000000E+00 ISPD EQY 270.000 5.009691E-02 5.009691E-02 5.009691E-02 5.009691E-02 5.009691E-02 5.009691E-02 0.000000E+00 ISPD CS 290.000 2.840289E-20 4.154632E-20 5.213074E-20 6.122464E-20 6.678539E-20 1.408010E-20 0.000000E+00 ISPD EQY 290.000 5.009691E-02 5.009691E-02 5.009691E-02 5.009691E-02 5.009691E-02 5.009691E-02 0.000000E+00 ISPD CS 310.000 2.840289E-20 4.154632E-20 5.213074E-20 6.122464E-20 6.678539E-20 1.408010E-20 0.000000E+00 ISPD EQY 310.000 5.009691E-02 5.009691E-02 5.009691E-02 5.009691E-02 5.009691E-02 5.009691E-02 0.000000E+00 HPALD CS 210.000 2.639069E-20 3.936243E-20 4.989643E-20 5.926228E-20 6.528440E-20 1.326810E-20 0.000000E+00 HPALD EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HPALD CS 230.000 2.639069E-20 3.936243E-20 4.989643E-20 5.926228E-20 6.528440E-20 1.326810E-20 0.000000E+00 HPALD EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HPALD CS 250.000 2.639069E-20 3.936243E-20 4.989643E-20 5.926228E-20 6.528440E-20 1.326810E-20 0.000000E+00 HPALD EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HPALD CS 270.000 2.639069E-20 3.936243E-20 4.989643E-20 5.926228E-20 6.528440E-20 1.326810E-20 0.000000E+00 HPALD EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HPALD CS 290.000 2.639069E-20 3.936243E-20 4.989643E-20 5.926228E-20 6.528440E-20 1.326810E-20 0.000000E+00 HPALD EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HPALD CS 310.000 2.639069E-20 3.936243E-20 4.989643E-20 5.926228E-20 6.528440E-20 1.326810E-20 0.000000E+00 HPALD EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 CL2_IUPAC04 CS 210.000 8.459998E-20 1.387449E-19 1.859079E-19 2.232772E-19 2.484952E-19 6.038539E-20 6.788245E-22 CL2_IUPAC04 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 CL2_IUPAC04 CS 230.000 8.524757E-20 1.389977E-19 1.856245E-19 2.224567E-19 2.471989E-19 6.124574E-20 6.788245E-22 CL2_IUPAC04 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 CL2_IUPAC04 CS 250.000 8.601563E-20 1.392877E-19 1.852748E-19 2.214706E-19 2.456518E-19 6.228141E-20 6.788245E-22 CL2_IUPAC04 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 CL2_IUPAC04 CS 270.000 8.688803E-20 1.396037E-19 1.848591E-19 2.203326E-19 2.438807E-19 6.347855E-20 6.788245E-22 CL2_IUPAC04 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 CL2_IUPAC04 CS 290.000 8.784630E-20 1.399339E-19 1.843792E-19 2.190595E-19 2.419169E-19 6.481979E-20 6.788245E-22 CL2_IUPAC04 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 CL2_IUPAC04 CS 310.000 8.835163E-20 1.401007E-19 1.841159E-19 2.183779E-19 2.408728E-19 6.553857E-20 6.788245E-22 CL2_IUPAC04 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 HOCL_IUPAC04 CS 210.000 5.570117E-20 6.066934E-20 5.958161E-20 5.377945E-20 3.120855E-20 6.545254E-21 1.170137E-23 HOCL_IUPAC04 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 HOCL_IUPAC04 CS 230.000 5.570117E-20 6.066934E-20 5.958161E-20 5.377945E-20 3.120855E-20 6.545254E-21 1.170137E-23 HOCL_IUPAC04 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 HOCL_IUPAC04 CS 250.000 5.570117E-20 6.066934E-20 5.958161E-20 5.377945E-20 3.120855E-20 6.545254E-21 1.170137E-23 HOCL_IUPAC04 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 HOCL_IUPAC04 CS 270.000 5.570117E-20 6.066934E-20 5.958161E-20 5.377945E-20 3.120855E-20 6.545254E-21 1.170137E-23 HOCL_IUPAC04 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 HOCL_IUPAC04 CS 290.000 5.570117E-20 6.066934E-20 5.958161E-20 5.377945E-20 3.120855E-20 6.545254E-21 1.170137E-23 HOCL_IUPAC04 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 HOCL_IUPAC04 CS 310.000 5.570117E-20 6.066934E-20 5.958161E-20 5.377945E-20 3.120855E-20 6.545254E-21 1.170137E-23 HOCL_IUPAC04 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 FMCL_IUPAC04 CS 210.000 5.320050E-21 1.421323E-21 2.242342E-22 8.338288E-23 0.000000E+00 0.000000E+00 0.000000E+00 FMCL_IUPAC04 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 FMCL_IUPAC04 CS 230.000 5.320050E-21 1.421323E-21 2.242342E-22 8.338288E-23 0.000000E+00 0.000000E+00 0.000000E+00 FMCL_IUPAC04 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 FMCL_IUPAC04 CS 250.000 5.320050E-21 1.421323E-21 2.242342E-22 8.338288E-23 0.000000E+00 0.000000E+00 0.000000E+00 FMCL_IUPAC04 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 FMCL_IUPAC04 CS 270.000 5.320050E-21 1.421323E-21 2.242342E-22 8.338288E-23 0.000000E+00 0.000000E+00 0.000000E+00 FMCL_IUPAC04 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 FMCL_IUPAC04 CS 290.000 5.320050E-21 1.421323E-21 2.242342E-22 8.338288E-23 0.000000E+00 0.000000E+00 0.000000E+00 FMCL_IUPAC04 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 FMCL_IUPAC04 CS 310.000 5.320050E-21 1.421323E-21 2.242342E-22 8.338288E-23 0.000000E+00 0.000000E+00 0.000000E+00 FMCL_IUPAC04 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 CLNO2_IUPAC13 CS 210.000 1.630885E-19 1.401581E-19 1.165449E-19 9.197057E-20 4.058577E-20 2.506084E-21 1.666845E-23 CLNO2_IUPAC13 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 CLNO2_IUPAC13 CS 230.000 1.600463E-19 1.384247E-19 1.162092E-19 9.282048E-20 4.270499E-20 3.014832E-21 1.684379E-23 CLNO2_IUPAC13 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 CLNO2_IUPAC13 CS 250.000 1.583382E-19 1.376411E-19 1.165927E-19 9.421802E-20 4.513980E-20 3.671099E-21 1.713705E-23 CLNO2_IUPAC13 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 CLNO2_IUPAC13 CS 270.000 1.579640E-19 1.378072E-19 1.176955E-19 9.616322E-20 4.789021E-20 4.474883E-21 1.754824E-23 CLNO2_IUPAC13 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 CLNO2_IUPAC13 CS 290.000 1.589238E-19 1.389231E-19 1.195174E-19 9.865609E-20 5.095621E-20 5.426186E-21 1.807737E-23 CLNO2_IUPAC13 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 CLNO2_IUPAC13 CS 310.000 1.594719E-19 1.394430E-19 1.202042E-19 9.951074E-20 5.193755E-20 5.740343E-21 1.825910E-23 CLNO2_IUPAC13 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 CLONO2_1 CS 210.000 3.530556E-20 1.872070E-20 1.123545E-20 7.141706E-21 3.111550E-21 9.743237E-22 9.489116E-24 CLONO2_1 EQY 210.000 4.000000E-01 3.992096E-01 3.837866E-01 3.420477E-01 2.361424E-01 2.718547E-02 0.000000E+00 CLONO2_1 CS 230.000 3.756278E-20 2.004876E-20 1.210488E-20 7.706714E-21 3.240199E-21 1.038511E-21 9.491610E-24 CLONO2_1 EQY 230.000 4.000000E-01 3.992096E-01 3.837866E-01 3.420477E-01 2.361424E-01 2.718547E-02 0.000000E+00 CLONO2_1 CS 250.000 3.999382E-20 2.155965E-20 1.312916E-20 8.405717E-21 3.464433E-21 1.097813E-21 9.504681E-24 CLONO2_1 EQY 250.000 4.000000E-01 3.992096E-01 3.837866E-01 3.420477E-01 2.361424E-01 2.718547E-02 0.000000E+00 CLONO2_1 CS 270.000 4.259870E-20 2.325335E-20 1.430828E-20 9.238715E-21 3.784253E-21 1.152229E-21 9.528331E-24 CLONO2_1 EQY 270.000 4.000000E-01 3.992096E-01 3.837866E-01 3.420477E-01 2.361424E-01 2.718547E-02 0.000000E+00 CLONO2_1 CS 290.000 4.537742E-20 2.512988E-20 1.564224E-20 1.020571E-20 4.199657E-21 1.201758E-21 9.562558E-24 CLONO2_1 EQY 290.000 4.000000E-01 3.992096E-01 3.837866E-01 3.420477E-01 2.361424E-01 2.718547E-02 0.000000E+00 CLONO2_1 CS 310.000 4.832995E-20 2.718922E-20 1.713105E-20 1.130669E-20 4.710647E-21 1.246402E-21 9.607363E-24 CLONO2_1 EQY 310.000 4.000000E-01 3.992096E-01 3.837866E-01 3.420477E-01 2.361424E-01 2.718547E-02 0.000000E+00 CLONO2_2 CS 210.000 3.530556E-20 1.872070E-20 1.123545E-20 7.141706E-21 3.111550E-21 9.743237E-22 9.489116E-24 CLONO2_2 EQY 210.000 6.000000E-01 6.007904E-01 6.162134E-01 6.579523E-01 7.638576E-01 9.728145E-01 1.000000E+00 CLONO2_2 CS 230.000 3.756278E-20 2.004876E-20 1.210488E-20 7.706714E-21 3.240199E-21 1.038511E-21 9.491610E-24 CLONO2_2 EQY 230.000 6.000000E-01 6.007904E-01 6.162134E-01 6.579523E-01 7.638576E-01 9.728145E-01 1.000000E+00 CLONO2_2 CS 250.000 3.999382E-20 2.155965E-20 1.312916E-20 8.405717E-21 3.464433E-21 1.097813E-21 9.504681E-24 CLONO2_2 EQY 250.000 6.000000E-01 6.007904E-01 6.162134E-01 6.579523E-01 7.638576E-01 9.728145E-01 1.000000E+00 CLONO2_2 CS 270.000 4.259870E-20 2.325335E-20 1.430828E-20 9.238715E-21 3.784253E-21 1.152229E-21 9.528331E-24 CLONO2_2 EQY 270.000 6.000000E-01 6.007904E-01 6.162134E-01 6.579523E-01 7.638576E-01 9.728145E-01 1.000000E+00 CLONO2_2 CS 290.000 4.537742E-20 2.512988E-20 1.564224E-20 1.020571E-20 4.199657E-21 1.201758E-21 9.562558E-24 CLONO2_2 EQY 290.000 6.000000E-01 6.007904E-01 6.162134E-01 6.579523E-01 7.638576E-01 9.728145E-01 1.000000E+00 CLONO2_2 CS 310.000 4.832995E-20 2.718922E-20 1.713105E-20 1.130669E-20 4.710647E-21 1.246402E-21 9.607363E-24 CLONO2_2 EQY 310.000 6.000000E-01 6.007904E-01 6.162134E-01 6.579523E-01 7.638576E-01 9.728145E-01 1.000000E+00 IC3ONO2 CS 210.000 9.514298E-21 4.530419E-21 2.204171E-21 1.039935E-21 1.393909E-22 0.000000E+00 0.000000E+00 IC3ONO2 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 IC3ONO2 CS 230.000 9.514298E-21 4.530419E-21 2.204171E-21 1.039935E-21 1.393909E-22 0.000000E+00 0.000000E+00 IC3ONO2 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 IC3ONO2 CS 250.000 9.980248E-21 4.802258E-21 2.361341E-21 1.133020E-21 1.558919E-22 0.000000E+00 0.000000E+00 IC3ONO2 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 IC3ONO2 CS 270.000 1.098172E-20 5.395850E-21 2.710103E-21 1.344930E-21 1.949851E-22 0.000000E+00 0.000000E+00 IC3ONO2 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 IC3ONO2 CS 290.000 1.208369E-20 6.062813E-21 3.110376E-21 1.596473E-21 2.438819E-22 0.000000E+00 0.000000E+00 IC3ONO2 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 IC3ONO2 CS 310.000 1.329624E-20 6.812218E-21 3.569767E-21 1.895064E-21 3.050405E-22 0.000000E+00 0.000000E+00 IC3ONO2 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 ACRO_09 CS 210.000 1.856128E-20 2.787986E-20 3.602616E-20 4.321518E-20 5.371941E-20 1.543856E-20 0.000000E+00 ACRO_09 EQY 210.000 5.269045E-02 3.293790E-02 2.264026E-02 1.595375E-02 6.767500E-03 1.624741E-03 0.000000E+00 ACRO_09 CS 230.000 1.856128E-20 2.787986E-20 3.602616E-20 4.321518E-20 5.371941E-20 1.543856E-20 0.000000E+00 ACRO_09 EQY 230.000 5.269045E-02 3.293790E-02 2.264026E-02 1.595375E-02 6.767500E-03 1.624741E-03 0.000000E+00 ACRO_09 CS 250.000 1.856128E-20 2.787986E-20 3.602616E-20 4.321518E-20 5.371941E-20 1.543856E-20 0.000000E+00 ACRO_09 EQY 250.000 5.269045E-02 3.293790E-02 2.264026E-02 1.595375E-02 6.767500E-03 1.624741E-03 0.000000E+00 ACRO_09 CS 270.000 1.856128E-20 2.787986E-20 3.602616E-20 4.321518E-20 5.371941E-20 1.543856E-20 0.000000E+00 ACRO_09 EQY 270.000 5.269045E-02 3.293790E-02 2.264026E-02 1.595375E-02 6.767500E-03 1.624741E-03 0.000000E+00 ACRO_09 CS 290.000 1.856128E-20 2.787986E-20 3.602616E-20 4.321518E-20 5.371941E-20 1.543856E-20 0.000000E+00 ACRO_09 EQY 290.000 5.269045E-02 3.293790E-02 2.264026E-02 1.595375E-02 6.767500E-03 1.624741E-03 0.000000E+00 ACRO_09 CS 310.000 1.856128E-20 2.787986E-20 3.602616E-20 4.321518E-20 5.371941E-20 1.543856E-20 0.000000E+00 ACRO_09 EQY 310.000 5.269045E-02 3.293790E-02 2.264026E-02 1.595375E-02 6.767500E-03 1.624741E-03 0.000000E+00 ! Ozone Cross-Section for Stratospheric Opacity based on Table 4-5 in ! Chemical Kinetics and Photochemical Data for Use in Atmospheric ! Studies Evaluation Number 15. Sander et. al: NASA-JPL 2006 NTEMP_STRAT = 6 ! QUANTITY TEMP WBIN( 1) WBIN( 2) WBIN( 3) WBIN( 4) WBIN( 5) WBIN( 6) WBIN( 7) O3_STRAT CS 180.000 6.113743E-19 2.263004E-19 8.354117E-20 3.417408E-20 3.688351E-21 4.086261E-23 1.663175E-21 O3_STRAT CS 260.000 6.434133E-19 2.434104E-19 9.254548E-20 3.928807E-20 4.583227E-21 4.086261E-23 1.663175E-21 O3_STRAT CS 300.000 6.685868E-19 2.568540E-19 9.962031E-20 4.330621E-20 5.286344E-21 4.086261E-23 1.663175E-21 O3_STRAT CS 340.000 6.685868E-19 2.568540E-19 9.962031E-20 4.330621E-20 5.286344E-21 4.086261E-23 1.663175E-21 O3_STRAT CS 380.000 6.685868E-19 2.568540E-19 9.962031E-20 4.330621E-20 5.286344E-21 4.086261E-23 1.663175E-21 O3_STRAT CS 420.000 6.685868E-19 2.568540E-19 9.962031E-20 4.330621E-20 5.286344E-21 4.086261E-23 1.663175E-21 ================================================ FILE: CCTM/src/MECHS/cb6r3_ae7_aq/GC_cb6r3_ae7_aq.nml ================================================ &GC_nml GC_SPECIES_DATA = !SPECIES ,MOLWT ,IC ,IC_FAC,BC ,BC_FAC ,DRYDEP SURR ,FAC ,WET-SCAV SURR ,FAC ,GC2AE SURR ,GC2AQ SURR,TRNS ,DDEP ,WDEP ,CONC 'NO2' , 46.0 ,'' ,-1 ,'' ,-1 ,'VD_NO2' , 1 ,'NO2' , 1 ,'NO2' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'NO' , 30.0 ,'' ,-1 ,'' ,-1 ,'VD_NO' , 1 ,'NO' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'O' , 16.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'O3' , 48.0 ,'' ,-1 ,'' ,-1 ,'VD_O3' , 1 ,'O3' , 1 ,'' ,'O3' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'NO3' , 62.0 ,'' ,-1 ,'' ,-1 ,'VD_NO3' , 1 ,'NO3' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'O1D' , 16.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'OH' , 17.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'OH' ,'HO' ,'' ,'' ,'' ,'Yes', 'HO2' , 33.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'H2O2' , 34.0 ,'' ,-1 ,'' ,-1 ,'VD_H2O2' , 1 ,'H2O2' , 1 ,'' ,'H2O2' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'N2O5' ,108.0 ,'' ,-1 ,'' ,-1 ,'VD_N2O5' , 1 ,'N2O5' , 1 ,'N2O5' ,'N2O5' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'HNO3' , 63.0 ,'' ,-1 ,'' ,-1 ,'VD_HNO3' , 1 ,'HNO3' , 1 ,'HNO3' ,'HNO3' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'HONO' , 47.0 ,'' ,-1 ,'' ,-1 ,'VD_HONO' , 1 ,'HNO2' , 1 ,'HONO' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'PNA' , 79.0 ,'' ,-1 ,'' ,-1 ,'VD_PNA' , 1 ,'HNO4' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SO2' , 64.0 ,'' ,-1 ,'' ,-1 ,'VD_SO2' , 1 ,'SO2' , 1 ,'' ,'SO2' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SULF' , 98.0 ,'' ,-1 ,'' ,-1 ,'VD_SULF' , 1 ,'H2SO4' , 1 ,'SULF' ,'H2SO4' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SULRXN' , 98.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'SULPRD' ,'' ,'' ,'' ,'' ,'' , 'C2O3' , 75.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'MEO2' , 47.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'RO2' , 87.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'PAN' ,121.0 ,'' ,-1 ,'' ,-1 ,'VD_PAN' , 1 ,'PAN' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'PACD' , 76.0 ,'' ,-1 ,'' ,-1 ,'VD_PAA' , 1 ,'PEROXYACETIC_ACI', 1 ,'' ,'PAA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AACD' , 60.0 ,'' ,-1 ,'' ,-1 ,'VD_ORA' , 1 ,'ACETIC_ACID' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'CXO3' , 89.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'ALD2' , 44.0 ,'' ,-1 ,'' ,-1 ,'VD_ALD' , 1 ,'ACETALDEHYDE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'XO2H' , 87.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'PANX' ,135.0 ,'' ,-1 ,'' ,-1 ,'VD_PPN' , 1 ,'PPN' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'FORM' , 30.0 ,'' ,-1 ,'' ,-1 ,'VD_HCHO' , 1 ,'FORMALDEHYDE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'MEPX' , 48.0 ,'' ,-1 ,'' ,-1 ,'VD_OP' , 1 ,'METHYLHYDROPEROX', 1 ,'' ,'MHP' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'MEOH' , 32.0 ,'' ,-1 ,'' ,-1 ,'VD_METHANOL' , 1 ,'METHANOL' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ROOH' , 90.1 ,'' ,-1 ,'' ,-1 ,'VD_ROOH' , 1 ,'METHYLHYDROPEROX', 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'XO2' , 87.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'XO2N' , 87.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'XPAR' , 45.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'XPRP' , 89.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'NTR1' ,119.1 ,'' ,-1 ,'' ,-1 ,'VD_NTRALK' , 1 ,'NTR_ALK' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'NTR2' ,135.1 ,'' ,-1 ,'' ,-1 ,'VD_NTROH' , 1 ,'NTR_OH' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'FACD' , 46.0 ,'' ,-1 ,'' ,-1 ,'VD_FACD' , 1 ,'FORMIC_ACID' , 1 ,'' ,'FOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'CO' , 28.0 ,'' ,-1 ,'' ,-1 ,'VD_CO' , 1 ,'CO' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'HCO3' , 63.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'ALDX' , 58.1 ,'' ,-1 ,'' ,-1 ,'VD_GEN_ALD' , 1 ,'GENERIC_ALDEHYDE', 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'GLYD' , 60.0 ,'' ,-1 ,'' ,-1 ,'VD_GLYD' , 1 ,'GLYOXAL' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'GLY' , 58.0 ,'' ,-1 ,'' ,-1 ,'VD_GLY' , 1 ,'GLYOXAL' , 1 ,'' ,'GLY' ,'Yes' ,'Yes' ,'' ,'Yes', 'MGLY' , 72.0 ,'' ,-1 ,'' ,-1 ,'VD_MGLY' , 1 ,'METHYL_GLYOXAL' , 1 ,'' ,'MGLY' ,'Yes' ,'Yes' ,'' ,'Yes', 'ETHA' , 30.1 ,'' ,-1 ,'' ,-1 ,'VD_ETHA' , 1 ,'ETHANE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'ETOH' , 46.1 ,'' ,-1 ,'' ,-1 ,'VD_ETOH' , 1 ,'ETHANOL' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'KET' , 72.1 ,'' ,-1 ,'' ,-1 ,'VD_KET' , 1 ,'MEK' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'PAR' , 14.0 ,'' ,-1 ,'' ,-1 ,'VD_PAR' , 1 ,'ETHANE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'ACET' , 58.1 ,'' ,-1 ,'' ,-1 ,'VD_ACET' , 1 ,'ACETONE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'PRPA' , 44.1 ,'' ,-1 ,'' ,-1 ,'VD_PRPA' , 1 ,'PROPANE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'ROR' , 29.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'ETHY' , 26.0 ,'' ,-1 ,'' ,-1 ,'VD_ETHY' , 1 ,'ACETYLENE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'ETH' , 28.0 ,'' ,-1 ,'' ,-1 ,'VD_ETH' , 1 ,'ETHENE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'OLE' , 42.1 ,'' ,-1 ,'' ,-1 ,'VD_OLE' , 1 ,'ETHENE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'IOLE' , 56.1 ,'' ,-1 ,'' ,-1 ,'VD_IOLE' , 1 ,'ETHENE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'ISOP' , 68.1 ,'' ,-1 ,'' ,-1 ,'VD_ISOP' , 1 ,'ISOPRENE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'ISO2' ,117.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'ISOPRXN' , 68.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'ISOPRXN' ,'' ,'' ,'' ,'' ,'' , 'ISPD' , 70.1 ,'' ,-1 ,'' ,-1 ,'VD_ISPD' , 1 ,'METHACROLEIN' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'INTR' ,147.1 ,'' ,-1 ,'' ,-1 ,'VD_INTR' , 1 ,'NTR_OH' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ISPX' ,118.1 ,'' ,-1 ,'' ,-1 ,'VD_ISPX' , 1 ,'METHYLHYDROPEROX', 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'HPLD' ,116.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'OPO3' ,115.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'EPOX' ,118.1 ,'' ,-1 ,'' ,-1 ,'VD_IEPOX' , 1 ,'MEK' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'IEPOXP' ,118.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'EPX2' ,149.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'TERP' ,136.2 ,'' ,-1 ,'' ,-1 ,'VD_TERP' , 1 ,'PINENE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'APIN' ,136.2 ,'' ,-1 ,'' ,-1 ,'VD_TERP' , 1 ,'PINENE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'TERPNRO2' ,197.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'MTNO3' ,231.0 ,'' ,-1 ,'' ,-1 ,'VD_MTNO3' , 1 ,'MTNO3' , 1 ,'MTNO3' ,'MTNO3' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'TRPRXN' ,136.2 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'TRPRXN' ,'' ,'' ,'' ,'' ,'' , 'BENZENE' , 78.1 ,'' ,-1 ,'' ,-1 ,'VD_BENZ' , 1 ,'BENZENE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'CRES' ,108.1 ,'' ,-1 ,'' ,-1 ,'VD_CRES' , 1 ,'2-CRESOL' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'BZO2' ,159.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'OPEN' , 84.0 ,'' ,-1 ,'' ,-1 ,'VD_OPEN' , 1 ,'METHACROLEIN' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'BENZRO2' ,127.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'TOL' , 92.1 ,'' ,-1 ,'' ,-1 ,'VD_TOL' , 1 ,'TOLUENE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'TO2' ,173.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'TOLRO2' ,141.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'XOPN' , 98.1 ,'' ,-1 ,'' ,-1 ,'VD_XOPN' , 1 ,'MEK' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'XYLMN' ,106.2 ,'' ,-1 ,'' ,-1 ,'VD_XYLMN' , 1 ,'O-XYLENE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'XLO2' ,187.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'XYLRO2' ,155.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'NAPH' ,128.2 ,'' ,-1 ,'' ,-1 ,'VD_NAPH' , 1 ,'O-XYLENE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'PAHRO2' ,187.2 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'CRO' ,107.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'CAT1' ,124.1 ,'' ,-1 ,'' ,-1 ,'VD_CAT1' , 1 ,'PHENOL' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'CRON' ,153.1 ,'' ,-1 ,'' ,-1 ,'VD_METH_NIT_PHEN', 1 ,'6_NITRO_O_CRESOL', 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'OPAN' ,161.0 ,'' ,-1 ,'' ,-1 ,'VD_MPAN' , 1 ,'MPAN' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ECH4' , 16.0 ,'' ,-1 ,'' ,-1 ,'VD_METHANE' , 1 ,'METHANE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'CL2' , 71.0 ,'' ,-1 ,'' ,-1 ,'VD_CL2' , 1 ,'CL2' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'CL' , 35.5 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'HOCL' , 52.5 ,'' ,-1 ,'' ,-1 ,'VD_HOCL' , 1 ,'HOCL' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'CLO' , 51.5 ,'' ,-1 ,'' ,-1 ,'VD_CLO' , 1 ,'CLO' , 1 ,'' ,'' ,'YES' ,'' ,'' ,'Yes', 'FMCL' , 64.5 ,'' ,-1 ,'' ,-1 ,'VD_FMCL' , 1 ,'FMCL' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'HCL' , 36.5 ,'' ,-1 ,'' ,-1 ,'VD_HCL' , 1 ,'HCL' , 1 ,'HCL' ,'HCL' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'CLNO2' , 81.5 ,'' ,-1 ,'' ,-1 ,'VD_CLNO2' , 1 ,'NITRYL_CHLORIDE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'CLNO3' , 97.5 ,'' ,-1 ,'' ,-1 ,'VD_CLNO3' , 1 ,'CLNO3' , 1 ,'CLNO3' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SESQ' ,204.0 ,'' ,-1 ,'' ,-1 ,'VD_SESQ' , 1 ,'PINENE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'SESQRXN' ,204.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'SESQRXN' ,'' ,'' ,'' ,'' ,'' , 'SOAALK' ,112.0 ,'' ,-1 ,'' ,-1 ,'VD_SOAALK' , 1 ,'DECANE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'H2NO3PIJ' , 64.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'H2NO3PK' , 64.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'VLVPO1' ,218.0 ,'' ,-1 ,'' ,-1 ,'VD_VLVPO1' , 1 ,'ADIPIC_ACID' , 1 ,'VLVPO1' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'VSVPO1' ,230.0 ,'' ,-1 ,'' ,-1 ,'VD_VSVPO1' , 1 ,'ADIPIC_ACID' , 1 ,'VSVPO1' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'VSVPO2' ,241.0 ,'' ,-1 ,'' ,-1 ,'VD_VSVPO2' , 1 ,'ADIPIC_ACID' , 1 ,'VSVPO2' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'VSVPO3' ,253.0 ,'' ,-1 ,'' ,-1 ,'VD_VSVPO3' , 1 ,'ADIPIC_ACID' , 1 ,'VSVPO3' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'VIVPO1' ,266.0 ,'' ,-1 ,'' ,-1 ,'VD_VIVPO1' , 1 ,'ADIPIC_ACID' , 1 ,'VIVPO1' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'VLVOO1' ,136.0 ,'' ,-1 ,'' ,-1 ,'VD_VLVOO1' , 1 ,'ADIPIC_ACID' , 1 ,'VLVOO1' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'VLVOO2' ,136.0 ,'' ,-1 ,'' ,-1 ,'VD_VLVOO2' , 1 ,'ADIPIC_ACID' , 1 ,'VLVOO2' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'VSVOO1' ,135.0 ,'' ,-1 ,'' ,-1 ,'VD_VSVOO1' , 1 ,'ADIPIC_ACID' , 1 ,'VSVOO1' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'VSVOO2' ,135.0 ,'' ,-1 ,'' ,-1 ,'VD_VSVOO2' , 1 ,'ADIPIC_ACID' , 1 ,'VSVOO2' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'VSVOO3' ,134.0 ,'' ,-1 ,'' ,-1 ,'VD_VSVOO3' , 1 ,'ADIPIC_ACID' , 1 ,'VSVOO3' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'PCVOC' ,170.0 ,'' ,-1 ,'' ,-1 ,'VD_PCVOC' , 1 ,'GENERIC_ALDEHYDE', 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'PCSOARXN' ,170.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'PCSOARXN' ,'' ,'' ,'' ,'' ,'' , 'FORM_PRIMARY' , 30.0 ,'' ,-1 ,'' ,-1 ,'VD_HCHO' , 1 ,'FORMALDEHYDE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ALD2_PRIMARY' , 44.0 ,'' ,-1 ,'' ,-1 ,'VD_ALD' , 1 ,'ACETALDEHYDE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'BUTADIENE13' , 54.0 ,'' ,-1 ,'' ,-1 ,'VD_BUTADIENE13' , 1 ,'13-BUTADIENE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'ACROLEIN' , 56.1 ,'' ,-1 ,'' ,-1 ,'VD_ACROLEIN' , 1 ,'ACROLEIN' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'ACRO_PRIMARY' , 56.1 ,'' ,-1 ,'' ,-1 ,'VD_ACROLEIN' , 1 ,'ACROLEIN' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'TOLU' , 92.0 ,'' ,-1 ,'' ,-1 ,'VD_TOL' , 1 ,'TOLUENE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'HG' ,200.6 ,'' ,-1 ,'' ,-1 ,'VD_HG' , 1 ,'HG' , 1 ,'' ,'HG' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'HGIIAER' ,200.6 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'PHGRXN' ,'' ,'' ,'' ,'' ,'' , 'HGIIGAS' ,271.5 ,'' ,-1 ,'' ,-1 ,'VD_HGIIGAS' , 1 ,'HGIIGAS' , 1 ,'' ,'HGIIGAS' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SVAVB1' ,198.0 ,'' ,-1 ,'' ,-1 ,'VD_SVAVB1' , 1 ,'SVAVB1' , 1 ,'SVAVB1' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SVAVB2' ,179.0 ,'' ,-1 ,'' ,-1 ,'VD_SVAVB2' , 1 ,'SVAVB2' , 1 ,'SVAVB2' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SVAVB3' ,169.0 ,'' ,-1 ,'' ,-1 ,'VD_SVAVB3' , 1 ,'SVAVB3' , 1 ,'SVAVB3' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SVAVB4' ,158.0 ,'' ,-1 ,'' ,-1 ,'VD_SVAVB4' , 1 ,'SVAVB4' , 1 ,'SVAVB4' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', / ================================================ FILE: CCTM/src/MECHS/cb6r3_ae7_aq/NR_cb6r3_ae7_aq.nml ================================================ &NR_nml NR_SPECIES_DATA = !SPECIES ,MOLWT ,IC ,IC_FAC ,BC ,BC_FAC ,DRYDEP SURR ,FAC ,WET-SCAV SURR ,FAC ,NR2AE SURR ,NR2AQ SURR,TRNS ,DDEP ,WDEP ,CONC 'NH3' , 17.0 ,'' ,-1 ,'' ,-1 ,'VD_NH3' , 1 ,'NH3' , 1 ,'NH3' ,'NH3' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SVISO1' ,132.0 ,'' ,-1 ,'' ,-1 ,'VD_SVISO1' , 1 ,'SVISO1' , 1 ,'SVISO1' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SVISO2' ,133.0 ,'' ,-1 ,'' ,-1 ,'VD_SVISO2' , 1 ,'SVISO2' , 1 ,'SVISO2' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SVSQT' ,273.0 ,'' ,-1 ,'' ,-1 ,'VD_SVSQT' , 1 ,'SVSQT' , 1 ,'SVSQT' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'LVPCSOG',170.0 ,'' ,-1 ,'' ,-1 ,'VD_LVPCSOG' , 1 ,'ADIPIC_ACID' , 1 ,'LVPCSOG' ,'' ,'Yes' ,'' ,'' ,'Yes', 'SVMT1' ,300.0 ,'' ,-1 ,'' ,-1 ,'VD_SVMT1' , 1 ,'SVMT1' , 1 ,'SVMT1' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SVMT2' ,200.0 ,'' ,-1 ,'' ,-1 ,'VD_SVMT2' , 1 ,'SVMT2' , 1 ,'SVMT2' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SVMT3' ,186.0 ,'' ,-1 ,'' ,-1 ,'VD_SVMT3' , 1 ,'SVMT3' , 1 ,'SVMT3' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SVMT4' ,184.0 ,'' ,-1 ,'' ,-1 ,'VD_SVMT4' , 1 ,'SVMT4' , 1 ,'SVMT4' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SVMT5' ,170.0 ,'' ,-1 ,'' ,-1 ,'VD_SVMT5' , 1 ,'SVMT5' , 1 ,'SVMT5' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SVMT6' ,168.0 ,'' ,-1 ,'' ,-1 ,'VD_SVMT6' , 1 ,'SVMT6' , 1 ,'SVMT6' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', / ================================================ FILE: CCTM/src/MECHS/cb6r3_ae7_aq/RXNS_DATA_MODULE.F90 ================================================ MODULE RXNS_DATA IMPLICIT NONE ! --------- Photochemical Mechanism Reactions, Rates, etc. DAT --------- ! Source file: /home/bmurphy/cmaq_projects/bicicle_1.7/UTIL/chemmech/input/cb6r3_ae7_aq/mech_cb6r3_ae7_aq.def ! for Mechanism Name: CB6R3_AE7_AQ ! This file is used to create mechanism data and functions ! The following are reserved symbols declared in this file: ! MECHNAME = Mechanism name ! N_GAS_CHEM_SPC = Total number of gas species in chemical mechanism ! NUMB_MECH_SPC = Total number of species in chemical mechanism ! N_ACT_SP = Number of active (determined by ODE solver) species in mechanism ! GAS_CHEM_SPC = Names of gas species in chemical mechanism ! CHEMISTRY_SPC = Names of species in chemical mechanism ! CGRID_INDEX = CGRID Index of species in chemical mechanism ! SPECIES_TYPE = Group or type of species ! SPECIES_MOLWT = Molecular Weight of species (gm/mole) ! NRXNS = Number of mechanism reactions ! ZERO_REACT_REACTIONS = number zero reactant reactions ! ONE_REACT_REACTIONS = number one reactant reactions ! TWO_REACT_REACTIONS = number second order reactions ! THREE_REACT_REACTIONS = number three reactant reactions ! NSUNLIGHT_RXNS = Number of mechanism reactions requiring sunlight ! NTHERMAL_RXNS = Number of mechanism reactions not requiring sunlight ! KUNITS = Units of mechanism reactions ! KTYPE = Reaction type ! IRXBITS = Bit test mask vector for selected reactions ! IORDER = Order of the reaction ! NTERMS_JACOB = Maximum number of nonzero terms in day/night Jacobian ! MSTEPS_JACOB = Maximum number of LU Decomposition steps to solve each Jacobian ! KTN1 = Number of type 1 reactions ! KRX1 = Reactions list pointer to type 1 reactions ! KTN2 = Number of type 2 reactions ! KRX2 = Reactions list pointer to type 2 reactions ! KTN3 = Number of type 3 reactions ! KRX3 = Reactions list pointer to type 3 reactions ! KTN4 = Number of type 4 reactions ! KRX4 = Reactions list pointer to type 4 reactions ! KTN5 = Number of type 5 reactions ! KRX5 = Reactions list pointer to type 5 reactions ! KTN6 = Number of type 6 reactions ! KRX6 = Reactions list pointer to type 6 reactions ! KTN7 = Number of type 7 reactions ! KRX7 = Reactions list pointer to type 7 reactions ! NWM = Number of air 3-body reactions ! NRXWM = Reactions list pointer to air 3-body reactions ! ATM_AIR = air 3-body reactions concentration ! NWW = Number of H2O 3-body reactions ! NRXWW = Reactions list pointer to H2O 3-body reactions ! NWO2 = Number of reactions with O2 ! NRXWO2 = Reactions list pointer to O2 reactions ! ATM_O2 = Oxygen reactions concentration ! NWN2 = Number of N2 3-body reactions ! NRXWN2 = Reactions list pointer to N2 3-body reactions ! ATM_N2 = Nitrogen 3-body reactions concentration ! NWCH4 = Number of reactions with CH4 ! NRXWCH4 = Reactions list pointer to CH4 reactions ! ATM_CH4 = Methane reactions concentration ! NWH2 = Number of reactions with H2 ! NRXWH2 = Reactions list pointer to H2 reactions ! ATM_H2 = Hydrogen reactions concentration ! MXPRD = Maximum number of mechanism reaction products ! IRR = Reactions list pointer to reactants and products ! RTDAT = Kinetic reaction rates expressions components ! NFALLOFFF = Number of falloff reactions ! IRRFALL = Reactions list pointer to falloff reactions ! RFDAT = Falloff reaction rates expressions components ! SC = Stoichiometric coefficients ! NREACT = Number of reactants in each mechanism reaction ! NPRDCT = Number of products in each mechanism reaction ! RXLABEL = Character label list for mechanism reactions ! NMPHOT = Number of mechanism photolytic reactions ! NPHOTAB = Number of photolytic reactions tables ! IPH = Reactions list pointer to photolytic reactions and tables ! MHETERO = Number of mechanism heteorogenous reactions ! NHETERO = Number of unique heteorogenous rate constants ! IHETERO = Reactions list pointer to heteorogenous reactions and tables CHARACTER( 32 ), PARAMETER :: MECHNAME = 'CB6R3_AE7_AQ' INTEGER, PARAMETER :: N_GAS_CHEM_SPC = 127 INTEGER, PARAMETER :: NUMB_MECH_SPC = 147 CHARACTER( 16 ) :: GAS_CHEM_SPC( N_GAS_CHEM_SPC ) CHARACTER( 16 ) :: CHEMISTRY_SPC( NUMB_MECH_SPC ) CHARACTER( 16 ) :: SPECIES_TYPE( NUMB_MECH_SPC ) INTEGER :: CGRID_INDEX ( NUMB_MECH_SPC ) INTEGER :: TYPE_INDEX ( NUMB_MECH_SPC ) REAL( 8 ) :: SPECIES_MOLWT( NUMB_MECH_SPC ) LOGICAL :: CONVERT_CONC( NUMB_MECH_SPC ) ! The below character and integer arrays list the model species names used in the ! chemical mechanism. The gas species and their order should agree with ! the GC_SPC array for the gas phase chemistry to work correctly. ! If present, the CHEMISTRY_SPC names and species type should agree with the CGRID_SPCS module DATA GAS_CHEM_SPC( 1 ) / 'NO2 ' / DATA GAS_CHEM_SPC( 2 ) / 'NO ' / DATA GAS_CHEM_SPC( 3 ) / 'O ' / DATA GAS_CHEM_SPC( 4 ) / 'O3 ' / DATA GAS_CHEM_SPC( 5 ) / 'NO3 ' / DATA GAS_CHEM_SPC( 6 ) / 'O1D ' / DATA GAS_CHEM_SPC( 7 ) / 'OH ' / DATA GAS_CHEM_SPC( 8 ) / 'HO2 ' / DATA GAS_CHEM_SPC( 9 ) / 'H2O2 ' / DATA GAS_CHEM_SPC( 10 ) / 'N2O5 ' / DATA GAS_CHEM_SPC( 11 ) / 'HNO3 ' / DATA GAS_CHEM_SPC( 12 ) / 'HONO ' / DATA GAS_CHEM_SPC( 13 ) / 'PNA ' / DATA GAS_CHEM_SPC( 14 ) / 'SO2 ' / DATA GAS_CHEM_SPC( 15 ) / 'SULF ' / DATA GAS_CHEM_SPC( 16 ) / 'SULRXN ' / DATA GAS_CHEM_SPC( 17 ) / 'C2O3 ' / DATA GAS_CHEM_SPC( 18 ) / 'MEO2 ' / DATA GAS_CHEM_SPC( 19 ) / 'RO2 ' / DATA GAS_CHEM_SPC( 20 ) / 'PAN ' / DATA GAS_CHEM_SPC( 21 ) / 'PACD ' / DATA GAS_CHEM_SPC( 22 ) / 'AACD ' / DATA GAS_CHEM_SPC( 23 ) / 'CXO3 ' / DATA GAS_CHEM_SPC( 24 ) / 'ALD2 ' / DATA GAS_CHEM_SPC( 25 ) / 'XO2H ' / DATA GAS_CHEM_SPC( 26 ) / 'PANX ' / DATA GAS_CHEM_SPC( 27 ) / 'FORM ' / DATA GAS_CHEM_SPC( 28 ) / 'MEPX ' / DATA GAS_CHEM_SPC( 29 ) / 'MEOH ' / DATA GAS_CHEM_SPC( 30 ) / 'ROOH ' / DATA GAS_CHEM_SPC( 31 ) / 'XO2 ' / DATA GAS_CHEM_SPC( 32 ) / 'XO2N ' / DATA GAS_CHEM_SPC( 33 ) / 'NTR1 ' / DATA GAS_CHEM_SPC( 34 ) / 'NTR2 ' / DATA GAS_CHEM_SPC( 35 ) / 'FACD ' / DATA GAS_CHEM_SPC( 36 ) / 'CO ' / DATA GAS_CHEM_SPC( 37 ) / 'HCO3 ' / DATA GAS_CHEM_SPC( 38 ) / 'ALDX ' / DATA GAS_CHEM_SPC( 39 ) / 'GLYD ' / DATA GAS_CHEM_SPC( 40 ) / 'GLY ' / DATA GAS_CHEM_SPC( 41 ) / 'MGLY ' / DATA GAS_CHEM_SPC( 42 ) / 'ETHA ' / DATA GAS_CHEM_SPC( 43 ) / 'ETOH ' / DATA GAS_CHEM_SPC( 44 ) / 'KET ' / DATA GAS_CHEM_SPC( 45 ) / 'PAR ' / DATA GAS_CHEM_SPC( 46 ) / 'ACET ' / DATA GAS_CHEM_SPC( 47 ) / 'PRPA ' / DATA GAS_CHEM_SPC( 48 ) / 'XPRP ' / DATA GAS_CHEM_SPC( 49 ) / 'XPAR ' / DATA GAS_CHEM_SPC( 50 ) / 'ROR ' / DATA GAS_CHEM_SPC( 51 ) / 'ETHY ' / DATA GAS_CHEM_SPC( 52 ) / 'ETH ' / DATA GAS_CHEM_SPC( 53 ) / 'OLE ' / DATA GAS_CHEM_SPC( 54 ) / 'IOLE ' / DATA GAS_CHEM_SPC( 55 ) / 'ISOP ' / DATA GAS_CHEM_SPC( 56 ) / 'ISO2 ' / DATA GAS_CHEM_SPC( 57 ) / 'ISOPRXN ' / DATA GAS_CHEM_SPC( 58 ) / 'ISPD ' / DATA GAS_CHEM_SPC( 59 ) / 'INTR ' / DATA GAS_CHEM_SPC( 60 ) / 'ISPX ' / DATA GAS_CHEM_SPC( 61 ) / 'HPLD ' / DATA GAS_CHEM_SPC( 62 ) / 'OPO3 ' / DATA GAS_CHEM_SPC( 63 ) / 'EPOX ' / DATA GAS_CHEM_SPC( 64 ) / 'EPX2 ' / DATA GAS_CHEM_SPC( 65 ) / 'TERP ' / DATA GAS_CHEM_SPC( 66 ) / 'TRPRXN ' / DATA GAS_CHEM_SPC( 67 ) / 'TERPNRO2 ' / DATA GAS_CHEM_SPC( 68 ) / 'APIN ' / DATA GAS_CHEM_SPC( 69 ) / 'BENZENE ' / DATA GAS_CHEM_SPC( 70 ) / 'CRES ' / DATA GAS_CHEM_SPC( 71 ) / 'BZO2 ' / DATA GAS_CHEM_SPC( 72 ) / 'OPEN ' / DATA GAS_CHEM_SPC( 73 ) / 'BENZRO2 ' / DATA GAS_CHEM_SPC( 74 ) / 'TOL ' / DATA GAS_CHEM_SPC( 75 ) / 'TO2 ' / DATA GAS_CHEM_SPC( 76 ) / 'TOLRO2 ' / DATA GAS_CHEM_SPC( 77 ) / 'XOPN ' / DATA GAS_CHEM_SPC( 78 ) / 'XYLMN ' / DATA GAS_CHEM_SPC( 79 ) / 'XLO2 ' / DATA GAS_CHEM_SPC( 80 ) / 'XYLRO2 ' / DATA GAS_CHEM_SPC( 81 ) / 'NAPH ' / DATA GAS_CHEM_SPC( 82 ) / 'PAHRO2 ' / DATA GAS_CHEM_SPC( 83 ) / 'CRO ' / DATA GAS_CHEM_SPC( 84 ) / 'CAT1 ' / DATA GAS_CHEM_SPC( 85 ) / 'CRON ' / DATA GAS_CHEM_SPC( 86 ) / 'OPAN ' / DATA GAS_CHEM_SPC( 87 ) / 'ECH4 ' / DATA GAS_CHEM_SPC( 88 ) / 'CL2 ' / DATA GAS_CHEM_SPC( 89 ) / 'CL ' / DATA GAS_CHEM_SPC( 90 ) / 'HOCL ' / DATA GAS_CHEM_SPC( 91 ) / 'CLO ' / DATA GAS_CHEM_SPC( 92 ) / 'FMCL ' / DATA GAS_CHEM_SPC( 93 ) / 'HCL ' / DATA GAS_CHEM_SPC( 94 ) / 'CLNO2 ' / DATA GAS_CHEM_SPC( 95 ) / 'CLNO3 ' / DATA GAS_CHEM_SPC( 96 ) / 'SVAVB2 ' / DATA GAS_CHEM_SPC( 97 ) / 'SVAVB3 ' / DATA GAS_CHEM_SPC( 98 ) / 'SVAVB4 ' / DATA GAS_CHEM_SPC( 99 ) / 'SVAVB1 ' / DATA GAS_CHEM_SPC( 100 ) / 'SESQ ' / DATA GAS_CHEM_SPC( 101 ) / 'SESQRXN ' / DATA GAS_CHEM_SPC( 102 ) / 'SOAALK ' / DATA GAS_CHEM_SPC( 103 ) / 'H2NO3PIJ ' / DATA GAS_CHEM_SPC( 104 ) / 'H2NO3PK ' / DATA GAS_CHEM_SPC( 105 ) / 'IEPOXP ' / DATA GAS_CHEM_SPC( 106 ) / 'MTNO3 ' / DATA GAS_CHEM_SPC( 107 ) / 'PCVOC ' / DATA GAS_CHEM_SPC( 108 ) / 'PCSOARXN ' / DATA GAS_CHEM_SPC( 109 ) / 'VLVPO1 ' / DATA GAS_CHEM_SPC( 110 ) / 'VSVPO1 ' / DATA GAS_CHEM_SPC( 111 ) / 'VSVPO2 ' / DATA GAS_CHEM_SPC( 112 ) / 'VSVPO3 ' / DATA GAS_CHEM_SPC( 113 ) / 'VIVPO1 ' / DATA GAS_CHEM_SPC( 114 ) / 'VLVOO1 ' / DATA GAS_CHEM_SPC( 115 ) / 'VLVOO2 ' / DATA GAS_CHEM_SPC( 116 ) / 'VSVOO2 ' / DATA GAS_CHEM_SPC( 117 ) / 'VSVOO3 ' / DATA GAS_CHEM_SPC( 118 ) / 'VSVOO1 ' / DATA GAS_CHEM_SPC( 119 ) / 'FORM_PRIMARY ' / DATA GAS_CHEM_SPC( 120 ) / 'ALD2_PRIMARY ' / DATA GAS_CHEM_SPC( 121 ) / 'BUTADIENE13 ' / DATA GAS_CHEM_SPC( 122 ) / 'ACROLEIN ' / DATA GAS_CHEM_SPC( 123 ) / 'ACRO_PRIMARY ' / DATA GAS_CHEM_SPC( 124 ) / 'TOLU ' / DATA GAS_CHEM_SPC( 125 ) / 'HG ' / DATA GAS_CHEM_SPC( 126 ) / 'HGIIAER ' / DATA GAS_CHEM_SPC( 127 ) / 'HGIIGAS ' / LOGICAL :: HALOGEN_PARAMETER = .TRUE. ! The below character and integer arrays list the model species names used in the ! chemical mechanism. The gas species and their order should agree with ! the GC_SPC array for the gas phase chemistry to work correctly. ! If present, the CHEMISTRY_SPC names and species type should agree with the CGRID_SPCS module ! MAPPED_TO_CGRID declares whether CMAQ namelists were used to determine ! the below values of CGRID_INDEX, SPECIES_TYPE, SPECIES_MOLWT, and CONVERT_CONC LOGICAL, PARAMETER, PRIVATE :: F = .FALSE. LOGICAL, PARAMETER, PRIVATE :: T = .TRUE. LOGICAL :: MAPPED_TO_CGRID = .FALSE. TYPE MEMBER CHARACTER( 16 ) :: CHEMISTRY_SPC INTEGER :: CGRID_INDEX CHARACTER( 2 ) :: SPECIES_TYPE REAL( 8 ) :: SPECIES_MOLWT LOGICAL :: CONVERT_CONC END TYPE MEMBER TYPE( MEMBER ) :: SPECIES_LIST( NUMB_MECH_SPC ) = (/ & & MEMBER("NO2 ", 1, "GC", 46.00D0, F), & & MEMBER("NO ", 2, "GC", 30.00D0, F), & & MEMBER("O ", 3, "GC", 16.00D0, F), & & MEMBER("O3 ", 4, "GC", 48.00D0, F), & & MEMBER("NO3 ", 5, "GC", 62.00D0, F), & & MEMBER("O1D ", 6, "GC", 16.00D0, F), & & MEMBER("OH ", 7, "GC", 17.00D0, F), & & MEMBER("HO2 ", 8, "GC", 33.00D0, F), & & MEMBER("H2O2 ", 9, "GC", 34.00D0, F), & & MEMBER("N2O5 ", 10, "GC", 108.00D0, F), & & MEMBER("HNO3 ", 11, "GC", 63.00D0, F), & & MEMBER("HONO ", 12, "GC", 47.00D0, F), & & MEMBER("PNA ", 13, "GC", 79.00D0, F), & & MEMBER("SO2 ", 14, "GC", 64.00D0, F), & & MEMBER("SULF ", 15, "GC", 98.00D0, F), & & MEMBER("SULRXN ", 16, "GC", 98.00D0, F), & & MEMBER("C2O3 ", 17, "GC", 75.00D0, F), & & MEMBER("MEO2 ", 18, "GC", 47.00D0, F), & & MEMBER("RO2 ", 19, "GC", 87.10D0, F), & & MEMBER("PAN ", 20, "GC", 121.00D0, F), & & MEMBER("PACD ", 21, "GC", 76.00D0, F), & & MEMBER("AACD ", 22, "GC", 60.00D0, F), & & MEMBER("CXO3 ", 23, "GC", 89.00D0, F), & & MEMBER("ALD2 ", 24, "GC", 44.00D0, F), & & MEMBER("XO2H ", 25, "GC", 87.10D0, F), & & MEMBER("PANX ", 26, "GC", 135.00D0, F), & & MEMBER("FORM ", 27, "GC", 30.00D0, F), & & MEMBER("MEPX ", 28, "GC", 48.00D0, F), & & MEMBER("MEOH ", 29, "GC", 32.00D0, F), & & MEMBER("ROOH ", 30, "GC", 90.10D0, F), & & MEMBER("XO2 ", 31, "GC", 87.10D0, F), & & MEMBER("XO2N ", 32, "GC", 87.10D0, F), & & MEMBER("NTR1 ", 35, "GC", 119.10D0, F), & & MEMBER("NTR2 ", 36, "GC", 135.10D0, F), & & MEMBER("FACD ", 37, "GC", 46.00D0, F), & & MEMBER("CO ", 38, "GC", 28.00D0, F), & & MEMBER("HCO3 ", 39, "GC", 63.00D0, F), & & MEMBER("ALDX ", 40, "GC", 58.10D0, F), & & MEMBER("GLYD ", 41, "GC", 60.00D0, F), & & MEMBER("GLY ", 42, "GC", 58.00D0, F), & & MEMBER("MGLY ", 43, "GC", 72.00D0, F), & & MEMBER("ETHA ", 44, "GC", 30.10D0, F), & & MEMBER("ETOH ", 45, "GC", 46.10D0, F), & & MEMBER("KET ", 46, "GC", 72.10D0, F), & & MEMBER("PAR ", 47, "GC", 14.00D0, F), & & MEMBER("ACET ", 48, "GC", 58.10D0, F), & & MEMBER("PRPA ", 49, "GC", 44.10D0, F), & & MEMBER("XPRP ", 34, "GC", 89.10D0, F), & & MEMBER("XPAR ", 33, "GC", 45.00D0, F), & & MEMBER("ROR ", 50, "GC", 29.00D0, F), & & MEMBER("ETHY ", 51, "GC", 26.00D0, F), & & MEMBER("ETH ", 52, "GC", 28.00D0, F), & & MEMBER("OLE ", 53, "GC", 42.10D0, F), & & MEMBER("IOLE ", 54, "GC", 56.10D0, F), & & MEMBER("ISOP ", 55, "GC", 68.10D0, F), & & MEMBER("ISO2 ", 56, "GC", 117.10D0, F), & & MEMBER("ISOPRXN ", 57, "GC", 68.10D0, F), & & MEMBER("ISPD ", 58, "GC", 70.10D0, F), & & MEMBER("INTR ", 59, "GC", 147.10D0, F), & & MEMBER("ISPX ", 60, "GC", 118.10D0, F), & & MEMBER("HPLD ", 61, "GC", 116.10D0, F), & & MEMBER("OPO3 ", 62, "GC", 115.00D0, F), & & MEMBER("EPOX ", 63, "GC", 118.10D0, F), & & MEMBER("EPX2 ", 65, "GC", 149.10D0, F), & & MEMBER("TERP ", 66, "GC", 136.20D0, F), & & MEMBER("TRPRXN ", 70, "GC", 136.20D0, F), & & MEMBER("TERPNRO2 ", 68, "GC", 197.00D0, F), & & MEMBER("APIN ", 67, "GC", 136.20D0, F), & & MEMBER("BENZENE ", 71, "GC", 78.10D0, F), & & MEMBER("CRES ", 72, "GC", 108.10D0, F), & & MEMBER("BZO2 ", 73, "GC", 159.10D0, F), & & MEMBER("OPEN ", 74, "GC", 84.00D0, F), & & MEMBER("BENZRO2 ", 75, "GC", 127.00D0, F), & & MEMBER("TOL ", 76, "GC", 92.10D0, F), & & MEMBER("TO2 ", 77, "GC", 173.10D0, F), & & MEMBER("TOLRO2 ", 78, "GC", 141.00D0, F), & & MEMBER("XOPN ", 79, "GC", 98.10D0, F), & & MEMBER("XYLMN ", 80, "GC", 106.20D0, F), & & MEMBER("XLO2 ", 81, "GC", 187.10D0, F), & & MEMBER("XYLRO2 ", 82, "GC", 155.00D0, F), & & MEMBER("NAPH ", 83, "GC", 128.20D0, F), & & MEMBER("PAHRO2 ", 84, "GC", 187.20D0, F), & & MEMBER("CRO ", 85, "GC", 107.10D0, F), & & MEMBER("CAT1 ", 86, "GC", 124.10D0, F), & & MEMBER("CRON ", 87, "GC", 153.10D0, F), & & MEMBER("OPAN ", 88, "GC", 161.00D0, F), & & MEMBER("ECH4 ", 89, "GC", 16.00D0, F), & & MEMBER("CL2 ", 90, "GC", 71.00D0, F), & & MEMBER("CL ", 91, "GC", 35.50D0, F), & & MEMBER("HOCL ", 92, "GC", 52.50D0, F), & & MEMBER("CLO ", 93, "GC", 51.50D0, F), & & MEMBER("FMCL ", 94, "GC", 64.50D0, F), & & MEMBER("HCL ", 95, "GC", 36.50D0, F), & & MEMBER("CLNO2 ", 96, "GC", 81.50D0, F), & & MEMBER("CLNO3 ", 97, "GC", 97.50D0, F), & & MEMBER("SVAVB2 ", 125, "GC", 179.00D0, F), & & MEMBER("SVAVB3 ", 126, "GC", 169.00D0, F), & & MEMBER("SVAVB4 ", 127, "GC", 158.00D0, F), & & MEMBER("SVAVB1 ", 124, "GC", 198.00D0, F), & & MEMBER("SESQ ", 98, "GC", 204.00D0, F), & & MEMBER("SESQRXN ", 99, "GC", 204.00D0, F), & & MEMBER("SOAALK ", 100, "GC", 112.00D0, F), & & MEMBER("H2NO3PIJ ", 101, "GC", 64.00D0, F), & & MEMBER("H2NO3PK ", 102, "GC", 64.00D0, F), & & MEMBER("ACLI ", 140, "AE", 35.50D0, T), & & MEMBER("ACLJ ", 141, "AE", 35.50D0, T), & & MEMBER("ACLK ", 142, "AE", 35.50D0, T), & & MEMBER("IEPOXP ", 64, "GC", 118.10D0, F), & & MEMBER("ASO4J ", 130, "AE", 96.00D0, T), & & MEMBER("AISO3J ", 175, "AE", 168.20D0, T), & & MEMBER("AGLYJ ", 178, "AE", 66.40D0, T), & & MEMBER("MTNO3 ", 69, "GC", 231.00D0, F), & & MEMBER("AMTNO3J ", 179, "AE", 231.00D0, T), & & MEMBER("AMTHYDJ ", 180, "AE", 168.00D0, T), & & MEMBER("AAVB2J ", 204, "AE", 179.00D0, T), & & MEMBER("AOLGAJ ", 176, "AE", 206.00D0, T), & & MEMBER("AAVB3J ", 205, "AE", 169.00D0, T), & & MEMBER("AAVB4J ", 206, "AE", 158.00D0, T), & & MEMBER("AISO1J ", 143, "AE", 132.00D0, T), & & MEMBER("AOLGBJ ", 177, "AE", 248.00D0, T), & & MEMBER("AISO2J ", 144, "AE", 133.00D0, T), & & MEMBER("ASQTJ ", 145, "AE", 273.00D0, T), & & MEMBER("APOCI ", 181, "AE", 220.00D0, T), & & MEMBER("APNCOMI ", 183, "AE", 220.00D0, T), & & MEMBER("APOCJ ", 182, "AE", 220.00D0, T), & & MEMBER("APNCOMJ ", 184, "AE", 220.00D0, T), & & MEMBER("PCVOC ", 113, "GC", 170.00D0, F), & & MEMBER("PCSOARXN ", 114, "GC", 170.00D0, F), & & MEMBER("VLVPO1 ", 103, "GC", 218.00D0, F), & & MEMBER("VSVPO1 ", 104, "GC", 230.00D0, F), & & MEMBER("VSVPO2 ", 105, "GC", 241.00D0, F), & & MEMBER("VSVPO3 ", 106, "GC", 253.00D0, F), & & MEMBER("VIVPO1 ", 107, "GC", 266.00D0, F), & & MEMBER("VLVOO1 ", 108, "GC", 136.00D0, F), & & MEMBER("VLVOO2 ", 109, "GC", 136.00D0, F), & & MEMBER("VSVOO2 ", 111, "GC", 135.00D0, F), & & MEMBER("VSVOO3 ", 112, "GC", 134.00D0, F), & & MEMBER("VSVOO1 ", 110, "GC", 135.00D0, F), & & MEMBER("FORM_PRIMARY ", 115, "GC", 30.00D0, F), & & MEMBER("ALD2_PRIMARY ", 116, "GC", 44.00D0, F), & & MEMBER("BUTADIENE13 ", 117, "GC", 54.00D0, F), & & MEMBER("ACROLEIN ", 118, "GC", 56.10D0, F), & & MEMBER("ACRO_PRIMARY ", 119, "GC", 56.10D0, F), & & MEMBER("TOLU ", 120, "GC", 92.00D0, F), & & MEMBER("HG ", 121, "GC", 200.60D0, F), & & MEMBER("HGIIAER ", 122, "GC", 200.60D0, F), & & MEMBER("HGIIGAS ", 123, "GC", 271.50D0, F) /) DATA CHEMISTRY_SPC( 1 ), SPECIES_MOLWT( 1 ) / 'NO2 ', 46.00D0 / DATA CHEMISTRY_SPC( 2 ), SPECIES_MOLWT( 2 ) / 'NO ', 30.00D0 / DATA CHEMISTRY_SPC( 3 ), SPECIES_MOLWT( 3 ) / 'O ', 16.00D0 / DATA CHEMISTRY_SPC( 4 ), SPECIES_MOLWT( 4 ) / 'O3 ', 48.00D0 / DATA CHEMISTRY_SPC( 5 ), SPECIES_MOLWT( 5 ) / 'NO3 ', 62.00D0 / DATA CHEMISTRY_SPC( 6 ), SPECIES_MOLWT( 6 ) / 'O1D ', 16.00D0 / DATA CHEMISTRY_SPC( 7 ), SPECIES_MOLWT( 7 ) / 'OH ', 17.00D0 / DATA CHEMISTRY_SPC( 8 ), SPECIES_MOLWT( 8 ) / 'HO2 ', 33.00D0 / DATA CHEMISTRY_SPC( 9 ), SPECIES_MOLWT( 9 ) / 'H2O2 ', 34.00D0 / DATA CHEMISTRY_SPC( 10 ), SPECIES_MOLWT( 10 ) / 'N2O5 ', 108.00D0 / DATA CHEMISTRY_SPC( 11 ), SPECIES_MOLWT( 11 ) / 'HNO3 ', 63.00D0 / DATA CHEMISTRY_SPC( 12 ), SPECIES_MOLWT( 12 ) / 'HONO ', 47.00D0 / DATA CHEMISTRY_SPC( 13 ), SPECIES_MOLWT( 13 ) / 'PNA ', 79.00D0 / DATA CHEMISTRY_SPC( 14 ), SPECIES_MOLWT( 14 ) / 'SO2 ', 64.00D0 / DATA CHEMISTRY_SPC( 15 ), SPECIES_MOLWT( 15 ) / 'SULF ', 98.00D0 / DATA CHEMISTRY_SPC( 16 ), SPECIES_MOLWT( 16 ) / 'SULRXN ', 98.00D0 / DATA CHEMISTRY_SPC( 17 ), SPECIES_MOLWT( 17 ) / 'C2O3 ', 75.00D0 / DATA CHEMISTRY_SPC( 18 ), SPECIES_MOLWT( 18 ) / 'MEO2 ', 47.00D0 / DATA CHEMISTRY_SPC( 19 ), SPECIES_MOLWT( 19 ) / 'RO2 ', 87.10D0 / DATA CHEMISTRY_SPC( 20 ), SPECIES_MOLWT( 20 ) / 'PAN ', 121.00D0 / DATA CHEMISTRY_SPC( 21 ), SPECIES_MOLWT( 21 ) / 'PACD ', 76.00D0 / DATA CHEMISTRY_SPC( 22 ), SPECIES_MOLWT( 22 ) / 'AACD ', 60.00D0 / DATA CHEMISTRY_SPC( 23 ), SPECIES_MOLWT( 23 ) / 'CXO3 ', 89.00D0 / DATA CHEMISTRY_SPC( 24 ), SPECIES_MOLWT( 24 ) / 'ALD2 ', 44.00D0 / DATA CHEMISTRY_SPC( 25 ), SPECIES_MOLWT( 25 ) / 'XO2H ', 87.10D0 / DATA CHEMISTRY_SPC( 26 ), SPECIES_MOLWT( 26 ) / 'PANX ', 135.00D0 / DATA CHEMISTRY_SPC( 27 ), SPECIES_MOLWT( 27 ) / 'FORM ', 30.00D0 / DATA CHEMISTRY_SPC( 28 ), SPECIES_MOLWT( 28 ) / 'MEPX ', 48.00D0 / DATA CHEMISTRY_SPC( 29 ), SPECIES_MOLWT( 29 ) / 'MEOH ', 32.00D0 / DATA CHEMISTRY_SPC( 30 ), SPECIES_MOLWT( 30 ) / 'ROOH ', 90.10D0 / DATA CHEMISTRY_SPC( 31 ), SPECIES_MOLWT( 31 ) / 'XO2 ', 87.10D0 / DATA CHEMISTRY_SPC( 32 ), SPECIES_MOLWT( 32 ) / 'XO2N ', 87.10D0 / DATA CHEMISTRY_SPC( 33 ), SPECIES_MOLWT( 33 ) / 'NTR1 ', 119.10D0 / DATA CHEMISTRY_SPC( 34 ), SPECIES_MOLWT( 34 ) / 'NTR2 ', 135.10D0 / DATA CHEMISTRY_SPC( 35 ), SPECIES_MOLWT( 35 ) / 'FACD ', 46.00D0 / DATA CHEMISTRY_SPC( 36 ), SPECIES_MOLWT( 36 ) / 'CO ', 28.00D0 / DATA CHEMISTRY_SPC( 37 ), SPECIES_MOLWT( 37 ) / 'HCO3 ', 63.00D0 / DATA CHEMISTRY_SPC( 38 ), SPECIES_MOLWT( 38 ) / 'ALDX ', 58.10D0 / DATA CHEMISTRY_SPC( 39 ), SPECIES_MOLWT( 39 ) / 'GLYD ', 60.00D0 / DATA CHEMISTRY_SPC( 40 ), SPECIES_MOLWT( 40 ) / 'GLY ', 58.00D0 / DATA CHEMISTRY_SPC( 41 ), SPECIES_MOLWT( 41 ) / 'MGLY ', 72.00D0 / DATA CHEMISTRY_SPC( 42 ), SPECIES_MOLWT( 42 ) / 'ETHA ', 30.10D0 / DATA CHEMISTRY_SPC( 43 ), SPECIES_MOLWT( 43 ) / 'ETOH ', 46.10D0 / DATA CHEMISTRY_SPC( 44 ), SPECIES_MOLWT( 44 ) / 'KET ', 72.10D0 / DATA CHEMISTRY_SPC( 45 ), SPECIES_MOLWT( 45 ) / 'PAR ', 14.00D0 / DATA CHEMISTRY_SPC( 46 ), SPECIES_MOLWT( 46 ) / 'ACET ', 58.10D0 / DATA CHEMISTRY_SPC( 47 ), SPECIES_MOLWT( 47 ) / 'PRPA ', 44.10D0 / DATA CHEMISTRY_SPC( 48 ), SPECIES_MOLWT( 48 ) / 'XPRP ', 89.10D0 / DATA CHEMISTRY_SPC( 49 ), SPECIES_MOLWT( 49 ) / 'XPAR ', 45.00D0 / DATA CHEMISTRY_SPC( 50 ), SPECIES_MOLWT( 50 ) / 'ROR ', 29.00D0 / DATA CHEMISTRY_SPC( 51 ), SPECIES_MOLWT( 51 ) / 'ETHY ', 26.00D0 / DATA CHEMISTRY_SPC( 52 ), SPECIES_MOLWT( 52 ) / 'ETH ', 28.00D0 / DATA CHEMISTRY_SPC( 53 ), SPECIES_MOLWT( 53 ) / 'OLE ', 42.10D0 / DATA CHEMISTRY_SPC( 54 ), SPECIES_MOLWT( 54 ) / 'IOLE ', 56.10D0 / DATA CHEMISTRY_SPC( 55 ), SPECIES_MOLWT( 55 ) / 'ISOP ', 68.10D0 / DATA CHEMISTRY_SPC( 56 ), SPECIES_MOLWT( 56 ) / 'ISO2 ', 117.10D0 / DATA CHEMISTRY_SPC( 57 ), SPECIES_MOLWT( 57 ) / 'ISOPRXN ', 68.10D0 / DATA CHEMISTRY_SPC( 58 ), SPECIES_MOLWT( 58 ) / 'ISPD ', 70.10D0 / DATA CHEMISTRY_SPC( 59 ), SPECIES_MOLWT( 59 ) / 'INTR ', 147.10D0 / DATA CHEMISTRY_SPC( 60 ), SPECIES_MOLWT( 60 ) / 'ISPX ', 118.10D0 / DATA CHEMISTRY_SPC( 61 ), SPECIES_MOLWT( 61 ) / 'HPLD ', 116.10D0 / DATA CHEMISTRY_SPC( 62 ), SPECIES_MOLWT( 62 ) / 'OPO3 ', 115.00D0 / DATA CHEMISTRY_SPC( 63 ), SPECIES_MOLWT( 63 ) / 'EPOX ', 118.10D0 / DATA CHEMISTRY_SPC( 64 ), SPECIES_MOLWT( 64 ) / 'EPX2 ', 149.10D0 / DATA CHEMISTRY_SPC( 65 ), SPECIES_MOLWT( 65 ) / 'TERP ', 136.20D0 / DATA CHEMISTRY_SPC( 66 ), SPECIES_MOLWT( 66 ) / 'TRPRXN ', 136.20D0 / DATA CHEMISTRY_SPC( 67 ), SPECIES_MOLWT( 67 ) / 'TERPNRO2 ', 197.00D0 / DATA CHEMISTRY_SPC( 68 ), SPECIES_MOLWT( 68 ) / 'APIN ', 136.20D0 / DATA CHEMISTRY_SPC( 69 ), SPECIES_MOLWT( 69 ) / 'BENZENE ', 78.10D0 / DATA CHEMISTRY_SPC( 70 ), SPECIES_MOLWT( 70 ) / 'CRES ', 108.10D0 / DATA CHEMISTRY_SPC( 71 ), SPECIES_MOLWT( 71 ) / 'BZO2 ', 159.10D0 / DATA CHEMISTRY_SPC( 72 ), SPECIES_MOLWT( 72 ) / 'OPEN ', 84.00D0 / DATA CHEMISTRY_SPC( 73 ), SPECIES_MOLWT( 73 ) / 'BENZRO2 ', 127.00D0 / DATA CHEMISTRY_SPC( 74 ), SPECIES_MOLWT( 74 ) / 'TOL ', 92.10D0 / DATA CHEMISTRY_SPC( 75 ), SPECIES_MOLWT( 75 ) / 'TO2 ', 173.10D0 / DATA CHEMISTRY_SPC( 76 ), SPECIES_MOLWT( 76 ) / 'TOLRO2 ', 141.00D0 / DATA CHEMISTRY_SPC( 77 ), SPECIES_MOLWT( 77 ) / 'XOPN ', 98.10D0 / DATA CHEMISTRY_SPC( 78 ), SPECIES_MOLWT( 78 ) / 'XYLMN ', 106.20D0 / DATA CHEMISTRY_SPC( 79 ), SPECIES_MOLWT( 79 ) / 'XLO2 ', 187.10D0 / DATA CHEMISTRY_SPC( 80 ), SPECIES_MOLWT( 80 ) / 'XYLRO2 ', 155.00D0 / DATA CHEMISTRY_SPC( 81 ), SPECIES_MOLWT( 81 ) / 'NAPH ', 128.20D0 / DATA CHEMISTRY_SPC( 82 ), SPECIES_MOLWT( 82 ) / 'PAHRO2 ', 187.20D0 / DATA CHEMISTRY_SPC( 83 ), SPECIES_MOLWT( 83 ) / 'CRO ', 107.10D0 / DATA CHEMISTRY_SPC( 84 ), SPECIES_MOLWT( 84 ) / 'CAT1 ', 124.10D0 / DATA CHEMISTRY_SPC( 85 ), SPECIES_MOLWT( 85 ) / 'CRON ', 153.10D0 / DATA CHEMISTRY_SPC( 86 ), SPECIES_MOLWT( 86 ) / 'OPAN ', 161.00D0 / DATA CHEMISTRY_SPC( 87 ), SPECIES_MOLWT( 87 ) / 'ECH4 ', 16.00D0 / DATA CHEMISTRY_SPC( 88 ), SPECIES_MOLWT( 88 ) / 'CL2 ', 71.00D0 / DATA CHEMISTRY_SPC( 89 ), SPECIES_MOLWT( 89 ) / 'CL ', 35.50D0 / DATA CHEMISTRY_SPC( 90 ), SPECIES_MOLWT( 90 ) / 'HOCL ', 52.50D0 / DATA CHEMISTRY_SPC( 91 ), SPECIES_MOLWT( 91 ) / 'CLO ', 51.50D0 / DATA CHEMISTRY_SPC( 92 ), SPECIES_MOLWT( 92 ) / 'FMCL ', 64.50D0 / DATA CHEMISTRY_SPC( 93 ), SPECIES_MOLWT( 93 ) / 'HCL ', 36.50D0 / DATA CHEMISTRY_SPC( 94 ), SPECIES_MOLWT( 94 ) / 'CLNO2 ', 81.50D0 / DATA CHEMISTRY_SPC( 95 ), SPECIES_MOLWT( 95 ) / 'CLNO3 ', 97.50D0 / DATA CHEMISTRY_SPC( 96 ), SPECIES_MOLWT( 96 ) / 'SVAVB2 ', 179.00D0 / DATA CHEMISTRY_SPC( 97 ), SPECIES_MOLWT( 97 ) / 'SVAVB3 ', 169.00D0 / DATA CHEMISTRY_SPC( 98 ), SPECIES_MOLWT( 98 ) / 'SVAVB4 ', 158.00D0 / DATA CHEMISTRY_SPC( 99 ), SPECIES_MOLWT( 99 ) / 'SVAVB1 ', 198.00D0 / DATA CHEMISTRY_SPC( 100 ), SPECIES_MOLWT( 100 ) / 'SESQ ', 204.00D0 / DATA CHEMISTRY_SPC( 101 ), SPECIES_MOLWT( 101 ) / 'SESQRXN ', 204.00D0 / DATA CHEMISTRY_SPC( 102 ), SPECIES_MOLWT( 102 ) / 'SOAALK ', 112.00D0 / DATA CHEMISTRY_SPC( 103 ), SPECIES_MOLWT( 103 ) / 'H2NO3PIJ ', 64.00D0 / DATA CHEMISTRY_SPC( 104 ), SPECIES_MOLWT( 104 ) / 'H2NO3PK ', 64.00D0 / DATA CHEMISTRY_SPC( 105 ), SPECIES_MOLWT( 105 ) / 'ACLI ', 35.50D0 / DATA CHEMISTRY_SPC( 106 ), SPECIES_MOLWT( 106 ) / 'ACLJ ', 35.50D0 / DATA CHEMISTRY_SPC( 107 ), SPECIES_MOLWT( 107 ) / 'ACLK ', 35.50D0 / DATA CHEMISTRY_SPC( 108 ), SPECIES_MOLWT( 108 ) / 'IEPOXP ', 118.10D0 / DATA CHEMISTRY_SPC( 109 ), SPECIES_MOLWT( 109 ) / 'ASO4J ', 96.00D0 / DATA CHEMISTRY_SPC( 110 ), SPECIES_MOLWT( 110 ) / 'AISO3J ', 168.20D0 / DATA CHEMISTRY_SPC( 111 ), SPECIES_MOLWT( 111 ) / 'AGLYJ ', 66.40D0 / DATA CHEMISTRY_SPC( 112 ), SPECIES_MOLWT( 112 ) / 'MTNO3 ', 231.00D0 / DATA CHEMISTRY_SPC( 113 ), SPECIES_MOLWT( 113 ) / 'AMTNO3J ', 231.00D0 / DATA CHEMISTRY_SPC( 114 ), SPECIES_MOLWT( 114 ) / 'AMTHYDJ ', 168.00D0 / DATA CHEMISTRY_SPC( 115 ), SPECIES_MOLWT( 115 ) / 'AAVB2J ', 179.00D0 / DATA CHEMISTRY_SPC( 116 ), SPECIES_MOLWT( 116 ) / 'AOLGAJ ', 206.00D0 / DATA CHEMISTRY_SPC( 117 ), SPECIES_MOLWT( 117 ) / 'AAVB3J ', 169.00D0 / DATA CHEMISTRY_SPC( 118 ), SPECIES_MOLWT( 118 ) / 'AAVB4J ', 158.00D0 / DATA CHEMISTRY_SPC( 119 ), SPECIES_MOLWT( 119 ) / 'AISO1J ', 132.00D0 / DATA CHEMISTRY_SPC( 120 ), SPECIES_MOLWT( 120 ) / 'AOLGBJ ', 248.00D0 / DATA CHEMISTRY_SPC( 121 ), SPECIES_MOLWT( 121 ) / 'AISO2J ', 133.00D0 / DATA CHEMISTRY_SPC( 122 ), SPECIES_MOLWT( 122 ) / 'ASQTJ ', 273.00D0 / DATA CHEMISTRY_SPC( 123 ), SPECIES_MOLWT( 123 ) / 'APOCI ', 220.00D0 / DATA CHEMISTRY_SPC( 124 ), SPECIES_MOLWT( 124 ) / 'APNCOMI ', 220.00D0 / DATA CHEMISTRY_SPC( 125 ), SPECIES_MOLWT( 125 ) / 'APOCJ ', 220.00D0 / DATA CHEMISTRY_SPC( 126 ), SPECIES_MOLWT( 126 ) / 'APNCOMJ ', 220.00D0 / DATA CHEMISTRY_SPC( 127 ), SPECIES_MOLWT( 127 ) / 'PCVOC ', 170.00D0 / DATA CHEMISTRY_SPC( 128 ), SPECIES_MOLWT( 128 ) / 'PCSOARXN ', 170.00D0 / DATA CHEMISTRY_SPC( 129 ), SPECIES_MOLWT( 129 ) / 'VLVPO1 ', 218.00D0 / DATA CHEMISTRY_SPC( 130 ), SPECIES_MOLWT( 130 ) / 'VSVPO1 ', 230.00D0 / DATA CHEMISTRY_SPC( 131 ), SPECIES_MOLWT( 131 ) / 'VSVPO2 ', 241.00D0 / DATA CHEMISTRY_SPC( 132 ), SPECIES_MOLWT( 132 ) / 'VSVPO3 ', 253.00D0 / DATA CHEMISTRY_SPC( 133 ), SPECIES_MOLWT( 133 ) / 'VIVPO1 ', 266.00D0 / DATA CHEMISTRY_SPC( 134 ), SPECIES_MOLWT( 134 ) / 'VLVOO1 ', 136.00D0 / DATA CHEMISTRY_SPC( 135 ), SPECIES_MOLWT( 135 ) / 'VLVOO2 ', 136.00D0 / DATA CHEMISTRY_SPC( 136 ), SPECIES_MOLWT( 136 ) / 'VSVOO2 ', 135.00D0 / DATA CHEMISTRY_SPC( 137 ), SPECIES_MOLWT( 137 ) / 'VSVOO3 ', 134.00D0 / DATA CHEMISTRY_SPC( 138 ), SPECIES_MOLWT( 138 ) / 'VSVOO1 ', 135.00D0 / DATA CHEMISTRY_SPC( 139 ), SPECIES_MOLWT( 139 ) / 'FORM_PRIMARY ', 30.00D0 / DATA CHEMISTRY_SPC( 140 ), SPECIES_MOLWT( 140 ) / 'ALD2_PRIMARY ', 44.00D0 / DATA CHEMISTRY_SPC( 141 ), SPECIES_MOLWT( 141 ) / 'BUTADIENE13 ', 54.00D0 / DATA CHEMISTRY_SPC( 142 ), SPECIES_MOLWT( 142 ) / 'ACROLEIN ', 56.10D0 / DATA CHEMISTRY_SPC( 143 ), SPECIES_MOLWT( 143 ) / 'ACRO_PRIMARY ', 56.10D0 / DATA CHEMISTRY_SPC( 144 ), SPECIES_MOLWT( 144 ) / 'TOLU ', 92.00D0 / DATA CHEMISTRY_SPC( 145 ), SPECIES_MOLWT( 145 ) / 'HG ', 200.60D0 / DATA CHEMISTRY_SPC( 146 ), SPECIES_MOLWT( 146 ) / 'HGIIAER ', 200.60D0 / DATA CHEMISTRY_SPC( 147 ), SPECIES_MOLWT( 147 ) / 'HGIIGAS ', 271.50D0 / DATA CGRID_INDEX( 1 ), SPECIES_TYPE( 1 ), CONVERT_CONC( 1 ) / 1, 'GC', F / ! NO2 DATA CGRID_INDEX( 2 ), SPECIES_TYPE( 2 ), CONVERT_CONC( 2 ) / 2, 'GC', F / ! NO DATA CGRID_INDEX( 3 ), SPECIES_TYPE( 3 ), CONVERT_CONC( 3 ) / 3, 'GC', F / ! O DATA CGRID_INDEX( 4 ), SPECIES_TYPE( 4 ), CONVERT_CONC( 4 ) / 4, 'GC', F / ! O3 DATA CGRID_INDEX( 5 ), SPECIES_TYPE( 5 ), CONVERT_CONC( 5 ) / 5, 'GC', F / ! NO3 DATA CGRID_INDEX( 6 ), SPECIES_TYPE( 6 ), CONVERT_CONC( 6 ) / 6, 'GC', F / ! O1D DATA CGRID_INDEX( 7 ), SPECIES_TYPE( 7 ), CONVERT_CONC( 7 ) / 7, 'GC', F / ! OH DATA CGRID_INDEX( 8 ), SPECIES_TYPE( 8 ), CONVERT_CONC( 8 ) / 8, 'GC', F / ! HO2 DATA CGRID_INDEX( 9 ), SPECIES_TYPE( 9 ), CONVERT_CONC( 9 ) / 9, 'GC', F / ! H2O2 DATA CGRID_INDEX( 10 ), SPECIES_TYPE( 10 ), CONVERT_CONC( 10 ) / 10, 'GC', F / ! N2O5 DATA CGRID_INDEX( 11 ), SPECIES_TYPE( 11 ), CONVERT_CONC( 11 ) / 11, 'GC', F / ! HNO3 DATA CGRID_INDEX( 12 ), SPECIES_TYPE( 12 ), CONVERT_CONC( 12 ) / 12, 'GC', F / ! HONO DATA CGRID_INDEX( 13 ), SPECIES_TYPE( 13 ), CONVERT_CONC( 13 ) / 13, 'GC', F / ! PNA DATA CGRID_INDEX( 14 ), SPECIES_TYPE( 14 ), CONVERT_CONC( 14 ) / 14, 'GC', F / ! SO2 DATA CGRID_INDEX( 15 ), SPECIES_TYPE( 15 ), CONVERT_CONC( 15 ) / 15, 'GC', F / ! SULF DATA CGRID_INDEX( 16 ), SPECIES_TYPE( 16 ), CONVERT_CONC( 16 ) / 16, 'GC', F / ! SULRXN DATA CGRID_INDEX( 17 ), SPECIES_TYPE( 17 ), CONVERT_CONC( 17 ) / 17, 'GC', F / ! C2O3 DATA CGRID_INDEX( 18 ), SPECIES_TYPE( 18 ), CONVERT_CONC( 18 ) / 18, 'GC', F / ! MEO2 DATA CGRID_INDEX( 19 ), SPECIES_TYPE( 19 ), CONVERT_CONC( 19 ) / 19, 'GC', F / ! RO2 DATA CGRID_INDEX( 20 ), SPECIES_TYPE( 20 ), CONVERT_CONC( 20 ) / 20, 'GC', F / ! PAN DATA CGRID_INDEX( 21 ), SPECIES_TYPE( 21 ), CONVERT_CONC( 21 ) / 21, 'GC', F / ! PACD DATA CGRID_INDEX( 22 ), SPECIES_TYPE( 22 ), CONVERT_CONC( 22 ) / 22, 'GC', F / ! AACD DATA CGRID_INDEX( 23 ), SPECIES_TYPE( 23 ), CONVERT_CONC( 23 ) / 23, 'GC', F / ! CXO3 DATA CGRID_INDEX( 24 ), SPECIES_TYPE( 24 ), CONVERT_CONC( 24 ) / 24, 'GC', F / ! ALD2 DATA CGRID_INDEX( 25 ), SPECIES_TYPE( 25 ), CONVERT_CONC( 25 ) / 25, 'GC', F / ! XO2H DATA CGRID_INDEX( 26 ), SPECIES_TYPE( 26 ), CONVERT_CONC( 26 ) / 26, 'GC', F / ! PANX DATA CGRID_INDEX( 27 ), SPECIES_TYPE( 27 ), CONVERT_CONC( 27 ) / 27, 'GC', F / ! FORM DATA CGRID_INDEX( 28 ), SPECIES_TYPE( 28 ), CONVERT_CONC( 28 ) / 28, 'GC', F / ! MEPX DATA CGRID_INDEX( 29 ), SPECIES_TYPE( 29 ), CONVERT_CONC( 29 ) / 29, 'GC', F / ! MEOH DATA CGRID_INDEX( 30 ), SPECIES_TYPE( 30 ), CONVERT_CONC( 30 ) / 30, 'GC', F / ! ROOH DATA CGRID_INDEX( 31 ), SPECIES_TYPE( 31 ), CONVERT_CONC( 31 ) / 31, 'GC', F / ! XO2 DATA CGRID_INDEX( 32 ), SPECIES_TYPE( 32 ), CONVERT_CONC( 32 ) / 32, 'GC', F / ! XO2N DATA CGRID_INDEX( 33 ), SPECIES_TYPE( 33 ), CONVERT_CONC( 33 ) / 35, 'GC', F / ! NTR1 DATA CGRID_INDEX( 34 ), SPECIES_TYPE( 34 ), CONVERT_CONC( 34 ) / 36, 'GC', F / ! NTR2 DATA CGRID_INDEX( 35 ), SPECIES_TYPE( 35 ), CONVERT_CONC( 35 ) / 37, 'GC', F / ! FACD DATA CGRID_INDEX( 36 ), SPECIES_TYPE( 36 ), CONVERT_CONC( 36 ) / 38, 'GC', F / ! CO DATA CGRID_INDEX( 37 ), SPECIES_TYPE( 37 ), CONVERT_CONC( 37 ) / 39, 'GC', F / ! HCO3 DATA CGRID_INDEX( 38 ), SPECIES_TYPE( 38 ), CONVERT_CONC( 38 ) / 40, 'GC', F / ! ALDX DATA CGRID_INDEX( 39 ), SPECIES_TYPE( 39 ), CONVERT_CONC( 39 ) / 41, 'GC', F / ! GLYD DATA CGRID_INDEX( 40 ), SPECIES_TYPE( 40 ), CONVERT_CONC( 40 ) / 42, 'GC', F / ! GLY DATA CGRID_INDEX( 41 ), SPECIES_TYPE( 41 ), CONVERT_CONC( 41 ) / 43, 'GC', F / ! MGLY DATA CGRID_INDEX( 42 ), SPECIES_TYPE( 42 ), CONVERT_CONC( 42 ) / 44, 'GC', F / ! ETHA DATA CGRID_INDEX( 43 ), SPECIES_TYPE( 43 ), CONVERT_CONC( 43 ) / 45, 'GC', F / ! ETOH DATA CGRID_INDEX( 44 ), SPECIES_TYPE( 44 ), CONVERT_CONC( 44 ) / 46, 'GC', F / ! KET DATA CGRID_INDEX( 45 ), SPECIES_TYPE( 45 ), CONVERT_CONC( 45 ) / 47, 'GC', F / ! PAR DATA CGRID_INDEX( 46 ), SPECIES_TYPE( 46 ), CONVERT_CONC( 46 ) / 48, 'GC', F / ! ACET DATA CGRID_INDEX( 47 ), SPECIES_TYPE( 47 ), CONVERT_CONC( 47 ) / 49, 'GC', F / ! PRPA DATA CGRID_INDEX( 48 ), SPECIES_TYPE( 48 ), CONVERT_CONC( 48 ) / 34, 'GC', F / ! XPRP DATA CGRID_INDEX( 49 ), SPECIES_TYPE( 49 ), CONVERT_CONC( 49 ) / 33, 'GC', F / ! XPAR DATA CGRID_INDEX( 50 ), SPECIES_TYPE( 50 ), CONVERT_CONC( 50 ) / 50, 'GC', F / ! ROR DATA CGRID_INDEX( 51 ), SPECIES_TYPE( 51 ), CONVERT_CONC( 51 ) / 51, 'GC', F / ! ETHY DATA CGRID_INDEX( 52 ), SPECIES_TYPE( 52 ), CONVERT_CONC( 52 ) / 52, 'GC', F / ! ETH DATA CGRID_INDEX( 53 ), SPECIES_TYPE( 53 ), CONVERT_CONC( 53 ) / 53, 'GC', F / ! OLE DATA CGRID_INDEX( 54 ), SPECIES_TYPE( 54 ), CONVERT_CONC( 54 ) / 54, 'GC', F / ! IOLE DATA CGRID_INDEX( 55 ), SPECIES_TYPE( 55 ), CONVERT_CONC( 55 ) / 55, 'GC', F / ! ISOP DATA CGRID_INDEX( 56 ), SPECIES_TYPE( 56 ), CONVERT_CONC( 56 ) / 56, 'GC', F / ! ISO2 DATA CGRID_INDEX( 57 ), SPECIES_TYPE( 57 ), CONVERT_CONC( 57 ) / 57, 'GC', F / ! ISOPRXN DATA CGRID_INDEX( 58 ), SPECIES_TYPE( 58 ), CONVERT_CONC( 58 ) / 58, 'GC', F / ! ISPD DATA CGRID_INDEX( 59 ), SPECIES_TYPE( 59 ), CONVERT_CONC( 59 ) / 59, 'GC', F / ! INTR DATA CGRID_INDEX( 60 ), SPECIES_TYPE( 60 ), CONVERT_CONC( 60 ) / 60, 'GC', F / ! ISPX DATA CGRID_INDEX( 61 ), SPECIES_TYPE( 61 ), CONVERT_CONC( 61 ) / 61, 'GC', F / ! HPLD DATA CGRID_INDEX( 62 ), SPECIES_TYPE( 62 ), CONVERT_CONC( 62 ) / 62, 'GC', F / ! OPO3 DATA CGRID_INDEX( 63 ), SPECIES_TYPE( 63 ), CONVERT_CONC( 63 ) / 63, 'GC', F / ! EPOX DATA CGRID_INDEX( 64 ), SPECIES_TYPE( 64 ), CONVERT_CONC( 64 ) / 65, 'GC', F / ! EPX2 DATA CGRID_INDEX( 65 ), SPECIES_TYPE( 65 ), CONVERT_CONC( 65 ) / 66, 'GC', F / ! TERP DATA CGRID_INDEX( 66 ), SPECIES_TYPE( 66 ), CONVERT_CONC( 66 ) / 70, 'GC', F / ! TRPRXN DATA CGRID_INDEX( 67 ), SPECIES_TYPE( 67 ), CONVERT_CONC( 67 ) / 68, 'GC', F / ! TERPNRO2 DATA CGRID_INDEX( 68 ), SPECIES_TYPE( 68 ), CONVERT_CONC( 68 ) / 67, 'GC', F / ! APIN DATA CGRID_INDEX( 69 ), SPECIES_TYPE( 69 ), CONVERT_CONC( 69 ) / 71, 'GC', F / ! BENZENE DATA CGRID_INDEX( 70 ), SPECIES_TYPE( 70 ), CONVERT_CONC( 70 ) / 72, 'GC', F / ! CRES DATA CGRID_INDEX( 71 ), SPECIES_TYPE( 71 ), CONVERT_CONC( 71 ) / 73, 'GC', F / ! BZO2 DATA CGRID_INDEX( 72 ), SPECIES_TYPE( 72 ), CONVERT_CONC( 72 ) / 74, 'GC', F / ! OPEN DATA CGRID_INDEX( 73 ), SPECIES_TYPE( 73 ), CONVERT_CONC( 73 ) / 75, 'GC', F / ! BENZRO2 DATA CGRID_INDEX( 74 ), SPECIES_TYPE( 74 ), CONVERT_CONC( 74 ) / 76, 'GC', F / ! TOL DATA CGRID_INDEX( 75 ), SPECIES_TYPE( 75 ), CONVERT_CONC( 75 ) / 77, 'GC', F / ! TO2 DATA CGRID_INDEX( 76 ), SPECIES_TYPE( 76 ), CONVERT_CONC( 76 ) / 78, 'GC', F / ! TOLRO2 DATA CGRID_INDEX( 77 ), SPECIES_TYPE( 77 ), CONVERT_CONC( 77 ) / 79, 'GC', F / ! XOPN DATA CGRID_INDEX( 78 ), SPECIES_TYPE( 78 ), CONVERT_CONC( 78 ) / 80, 'GC', F / ! XYLMN DATA CGRID_INDEX( 79 ), SPECIES_TYPE( 79 ), CONVERT_CONC( 79 ) / 81, 'GC', F / ! XLO2 DATA CGRID_INDEX( 80 ), SPECIES_TYPE( 80 ), CONVERT_CONC( 80 ) / 82, 'GC', F / ! XYLRO2 DATA CGRID_INDEX( 81 ), SPECIES_TYPE( 81 ), CONVERT_CONC( 81 ) / 83, 'GC', F / ! NAPH DATA CGRID_INDEX( 82 ), SPECIES_TYPE( 82 ), CONVERT_CONC( 82 ) / 84, 'GC', F / ! PAHRO2 DATA CGRID_INDEX( 83 ), SPECIES_TYPE( 83 ), CONVERT_CONC( 83 ) / 85, 'GC', F / ! CRO DATA CGRID_INDEX( 84 ), SPECIES_TYPE( 84 ), CONVERT_CONC( 84 ) / 86, 'GC', F / ! CAT1 DATA CGRID_INDEX( 85 ), SPECIES_TYPE( 85 ), CONVERT_CONC( 85 ) / 87, 'GC', F / ! CRON DATA CGRID_INDEX( 86 ), SPECIES_TYPE( 86 ), CONVERT_CONC( 86 ) / 88, 'GC', F / ! OPAN DATA CGRID_INDEX( 87 ), SPECIES_TYPE( 87 ), CONVERT_CONC( 87 ) / 89, 'GC', F / ! ECH4 DATA CGRID_INDEX( 88 ), SPECIES_TYPE( 88 ), CONVERT_CONC( 88 ) / 90, 'GC', F / ! CL2 DATA CGRID_INDEX( 89 ), SPECIES_TYPE( 89 ), CONVERT_CONC( 89 ) / 91, 'GC', F / ! CL DATA CGRID_INDEX( 90 ), SPECIES_TYPE( 90 ), CONVERT_CONC( 90 ) / 92, 'GC', F / ! HOCL DATA CGRID_INDEX( 91 ), SPECIES_TYPE( 91 ), CONVERT_CONC( 91 ) / 93, 'GC', F / ! CLO DATA CGRID_INDEX( 92 ), SPECIES_TYPE( 92 ), CONVERT_CONC( 92 ) / 94, 'GC', F / ! FMCL DATA CGRID_INDEX( 93 ), SPECIES_TYPE( 93 ), CONVERT_CONC( 93 ) / 95, 'GC', F / ! HCL DATA CGRID_INDEX( 94 ), SPECIES_TYPE( 94 ), CONVERT_CONC( 94 ) / 96, 'GC', F / ! CLNO2 DATA CGRID_INDEX( 95 ), SPECIES_TYPE( 95 ), CONVERT_CONC( 95 ) / 97, 'GC', F / ! CLNO3 DATA CGRID_INDEX( 96 ), SPECIES_TYPE( 96 ), CONVERT_CONC( 96 ) / 125, 'GC', F / ! SVAVB2 DATA CGRID_INDEX( 97 ), SPECIES_TYPE( 97 ), CONVERT_CONC( 97 ) / 126, 'GC', F / ! SVAVB3 DATA CGRID_INDEX( 98 ), SPECIES_TYPE( 98 ), CONVERT_CONC( 98 ) / 127, 'GC', F / ! SVAVB4 DATA CGRID_INDEX( 99 ), SPECIES_TYPE( 99 ), CONVERT_CONC( 99 ) / 124, 'GC', F / ! SVAVB1 DATA CGRID_INDEX( 100 ), SPECIES_TYPE( 100 ), CONVERT_CONC( 100 ) / 98, 'GC', F / ! SESQ DATA CGRID_INDEX( 101 ), SPECIES_TYPE( 101 ), CONVERT_CONC( 101 ) / 99, 'GC', F / ! SESQRXN DATA CGRID_INDEX( 102 ), SPECIES_TYPE( 102 ), CONVERT_CONC( 102 ) / 100, 'GC', F / ! SOAALK DATA CGRID_INDEX( 103 ), SPECIES_TYPE( 103 ), CONVERT_CONC( 103 ) / 101, 'GC', F / ! H2NO3PIJ DATA CGRID_INDEX( 104 ), SPECIES_TYPE( 104 ), CONVERT_CONC( 104 ) / 102, 'GC', F / ! H2NO3PK DATA CGRID_INDEX( 105 ), SPECIES_TYPE( 105 ), CONVERT_CONC( 105 ) / 140, 'AE', T / ! ACLI DATA CGRID_INDEX( 106 ), SPECIES_TYPE( 106 ), CONVERT_CONC( 106 ) / 141, 'AE', T / ! ACLJ DATA CGRID_INDEX( 107 ), SPECIES_TYPE( 107 ), CONVERT_CONC( 107 ) / 142, 'AE', T / ! ACLK DATA CGRID_INDEX( 108 ), SPECIES_TYPE( 108 ), CONVERT_CONC( 108 ) / 64, 'GC', F / ! IEPOXP DATA CGRID_INDEX( 109 ), SPECIES_TYPE( 109 ), CONVERT_CONC( 109 ) / 130, 'AE', T / ! ASO4J DATA CGRID_INDEX( 110 ), SPECIES_TYPE( 110 ), CONVERT_CONC( 110 ) / 175, 'AE', T / ! AISO3J DATA CGRID_INDEX( 111 ), SPECIES_TYPE( 111 ), CONVERT_CONC( 111 ) / 178, 'AE', T / ! AGLYJ DATA CGRID_INDEX( 112 ), SPECIES_TYPE( 112 ), CONVERT_CONC( 112 ) / 69, 'GC', F / ! MTNO3 DATA CGRID_INDEX( 113 ), SPECIES_TYPE( 113 ), CONVERT_CONC( 113 ) / 179, 'AE', T / ! AMTNO3J DATA CGRID_INDEX( 114 ), SPECIES_TYPE( 114 ), CONVERT_CONC( 114 ) / 180, 'AE', T / ! AMTHYDJ DATA CGRID_INDEX( 115 ), SPECIES_TYPE( 115 ), CONVERT_CONC( 115 ) / 204, 'AE', T / ! AAVB2J DATA CGRID_INDEX( 116 ), SPECIES_TYPE( 116 ), CONVERT_CONC( 116 ) / 176, 'AE', T / ! AOLGAJ DATA CGRID_INDEX( 117 ), SPECIES_TYPE( 117 ), CONVERT_CONC( 117 ) / 205, 'AE', T / ! AAVB3J DATA CGRID_INDEX( 118 ), SPECIES_TYPE( 118 ), CONVERT_CONC( 118 ) / 206, 'AE', T / ! AAVB4J DATA CGRID_INDEX( 119 ), SPECIES_TYPE( 119 ), CONVERT_CONC( 119 ) / 143, 'AE', T / ! AISO1J DATA CGRID_INDEX( 120 ), SPECIES_TYPE( 120 ), CONVERT_CONC( 120 ) / 177, 'AE', T / ! AOLGBJ DATA CGRID_INDEX( 121 ), SPECIES_TYPE( 121 ), CONVERT_CONC( 121 ) / 144, 'AE', T / ! AISO2J DATA CGRID_INDEX( 122 ), SPECIES_TYPE( 122 ), CONVERT_CONC( 122 ) / 145, 'AE', T / ! ASQTJ DATA CGRID_INDEX( 123 ), SPECIES_TYPE( 123 ), CONVERT_CONC( 123 ) / 181, 'AE', T / ! APOCI DATA CGRID_INDEX( 124 ), SPECIES_TYPE( 124 ), CONVERT_CONC( 124 ) / 183, 'AE', T / ! APNCOMI DATA CGRID_INDEX( 125 ), SPECIES_TYPE( 125 ), CONVERT_CONC( 125 ) / 182, 'AE', T / ! APOCJ DATA CGRID_INDEX( 126 ), SPECIES_TYPE( 126 ), CONVERT_CONC( 126 ) / 184, 'AE', T / ! APNCOMJ DATA CGRID_INDEX( 127 ), SPECIES_TYPE( 127 ), CONVERT_CONC( 127 ) / 113, 'GC', F / ! PCVOC DATA CGRID_INDEX( 128 ), SPECIES_TYPE( 128 ), CONVERT_CONC( 128 ) / 114, 'GC', F / ! PCSOARXN DATA CGRID_INDEX( 129 ), SPECIES_TYPE( 129 ), CONVERT_CONC( 129 ) / 103, 'GC', F / ! VLVPO1 DATA CGRID_INDEX( 130 ), SPECIES_TYPE( 130 ), CONVERT_CONC( 130 ) / 104, 'GC', F / ! VSVPO1 DATA CGRID_INDEX( 131 ), SPECIES_TYPE( 131 ), CONVERT_CONC( 131 ) / 105, 'GC', F / ! VSVPO2 DATA CGRID_INDEX( 132 ), SPECIES_TYPE( 132 ), CONVERT_CONC( 132 ) / 106, 'GC', F / ! VSVPO3 DATA CGRID_INDEX( 133 ), SPECIES_TYPE( 133 ), CONVERT_CONC( 133 ) / 107, 'GC', F / ! VIVPO1 DATA CGRID_INDEX( 134 ), SPECIES_TYPE( 134 ), CONVERT_CONC( 134 ) / 108, 'GC', F / ! VLVOO1 DATA CGRID_INDEX( 135 ), SPECIES_TYPE( 135 ), CONVERT_CONC( 135 ) / 109, 'GC', F / ! VLVOO2 DATA CGRID_INDEX( 136 ), SPECIES_TYPE( 136 ), CONVERT_CONC( 136 ) / 111, 'GC', F / ! VSVOO2 DATA CGRID_INDEX( 137 ), SPECIES_TYPE( 137 ), CONVERT_CONC( 137 ) / 112, 'GC', F / ! VSVOO3 DATA CGRID_INDEX( 138 ), SPECIES_TYPE( 138 ), CONVERT_CONC( 138 ) / 110, 'GC', F / ! VSVOO1 DATA CGRID_INDEX( 139 ), SPECIES_TYPE( 139 ), CONVERT_CONC( 139 ) / 115, 'GC', F / ! FORM_PRIMARY DATA CGRID_INDEX( 140 ), SPECIES_TYPE( 140 ), CONVERT_CONC( 140 ) / 116, 'GC', F / ! ALD2_PRIMARY DATA CGRID_INDEX( 141 ), SPECIES_TYPE( 141 ), CONVERT_CONC( 141 ) / 117, 'GC', F / ! BUTADIENE13 DATA CGRID_INDEX( 142 ), SPECIES_TYPE( 142 ), CONVERT_CONC( 142 ) / 118, 'GC', F / ! ACROLEIN DATA CGRID_INDEX( 143 ), SPECIES_TYPE( 143 ), CONVERT_CONC( 143 ) / 119, 'GC', F / ! ACRO_PRIMARY DATA CGRID_INDEX( 144 ), SPECIES_TYPE( 144 ), CONVERT_CONC( 144 ) / 120, 'GC', F / ! TOLU DATA CGRID_INDEX( 145 ), SPECIES_TYPE( 145 ), CONVERT_CONC( 145 ) / 121, 'GC', F / ! HG DATA CGRID_INDEX( 146 ), SPECIES_TYPE( 146 ), CONVERT_CONC( 146 ) / 122, 'GC', F / ! HGIIAER DATA CGRID_INDEX( 147 ), SPECIES_TYPE( 147 ), CONVERT_CONC( 147 ) / 123, 'GC', F / ! HGIIGAS ! The below integers define the locations of mechanism species in the solver ! concentration array. INTEGER :: INDEX_NO2 = 1 INTEGER :: INDEX_NO = 2 INTEGER :: INDEX_O = 3 INTEGER :: INDEX_O3 = 4 INTEGER :: INDEX_NO3 = 5 INTEGER :: INDEX_O1D = 6 INTEGER :: INDEX_OH = 7 INTEGER :: INDEX_HO2 = 8 INTEGER :: INDEX_H2O2 = 9 INTEGER :: INDEX_N2O5 = 10 INTEGER :: INDEX_HNO3 = 11 INTEGER :: INDEX_HONO = 12 INTEGER :: INDEX_PNA = 13 INTEGER :: INDEX_SO2 = 14 INTEGER :: INDEX_SULF = 15 INTEGER :: INDEX_SULRXN = 16 INTEGER :: INDEX_C2O3 = 17 INTEGER :: INDEX_MEO2 = 18 INTEGER :: INDEX_RO2 = 19 INTEGER :: INDEX_PAN = 20 INTEGER :: INDEX_PACD = 21 INTEGER :: INDEX_AACD = 22 INTEGER :: INDEX_CXO3 = 23 INTEGER :: INDEX_ALD2 = 24 INTEGER :: INDEX_XO2H = 25 INTEGER :: INDEX_PANX = 26 INTEGER :: INDEX_FORM = 27 INTEGER :: INDEX_MEPX = 28 INTEGER :: INDEX_MEOH = 29 INTEGER :: INDEX_ROOH = 30 INTEGER :: INDEX_XO2 = 31 INTEGER :: INDEX_XO2N = 32 INTEGER :: INDEX_NTR1 = 33 INTEGER :: INDEX_NTR2 = 34 INTEGER :: INDEX_FACD = 35 INTEGER :: INDEX_CO = 36 INTEGER :: INDEX_HCO3 = 37 INTEGER :: INDEX_ALDX = 38 INTEGER :: INDEX_GLYD = 39 INTEGER :: INDEX_GLY = 40 INTEGER :: INDEX_MGLY = 41 INTEGER :: INDEX_ETHA = 42 INTEGER :: INDEX_ETOH = 43 INTEGER :: INDEX_KET = 44 INTEGER :: INDEX_PAR = 45 INTEGER :: INDEX_ACET = 46 INTEGER :: INDEX_PRPA = 47 INTEGER :: INDEX_XPRP = 48 INTEGER :: INDEX_XPAR = 49 INTEGER :: INDEX_ROR = 50 INTEGER :: INDEX_ETHY = 51 INTEGER :: INDEX_ETH = 52 INTEGER :: INDEX_OLE = 53 INTEGER :: INDEX_IOLE = 54 INTEGER :: INDEX_ISOP = 55 INTEGER :: INDEX_ISO2 = 56 INTEGER :: INDEX_ISOPRXN = 57 INTEGER :: INDEX_ISPD = 58 INTEGER :: INDEX_INTR = 59 INTEGER :: INDEX_ISPX = 60 INTEGER :: INDEX_HPLD = 61 INTEGER :: INDEX_OPO3 = 62 INTEGER :: INDEX_EPOX = 63 INTEGER :: INDEX_EPX2 = 64 INTEGER :: INDEX_TERP = 65 INTEGER :: INDEX_TRPRXN = 66 INTEGER :: INDEX_TERPNRO2 = 67 INTEGER :: INDEX_APIN = 68 INTEGER :: INDEX_BENZENE = 69 INTEGER :: INDEX_CRES = 70 INTEGER :: INDEX_BZO2 = 71 INTEGER :: INDEX_OPEN = 72 INTEGER :: INDEX_BENZRO2 = 73 INTEGER :: INDEX_TOL = 74 INTEGER :: INDEX_TO2 = 75 INTEGER :: INDEX_TOLRO2 = 76 INTEGER :: INDEX_XOPN = 77 INTEGER :: INDEX_XYLMN = 78 INTEGER :: INDEX_XLO2 = 79 INTEGER :: INDEX_XYLRO2 = 80 INTEGER :: INDEX_NAPH = 81 INTEGER :: INDEX_PAHRO2 = 82 INTEGER :: INDEX_CRO = 83 INTEGER :: INDEX_CAT1 = 84 INTEGER :: INDEX_CRON = 85 INTEGER :: INDEX_OPAN = 86 INTEGER :: INDEX_ECH4 = 87 INTEGER :: INDEX_CL2 = 88 INTEGER :: INDEX_CL = 89 INTEGER :: INDEX_HOCL = 90 INTEGER :: INDEX_CLO = 91 INTEGER :: INDEX_FMCL = 92 INTEGER :: INDEX_HCL = 93 INTEGER :: INDEX_CLNO2 = 94 INTEGER :: INDEX_CLNO3 = 95 INTEGER :: INDEX_SVAVB2 = 96 INTEGER :: INDEX_SVAVB3 = 97 INTEGER :: INDEX_SVAVB4 = 98 INTEGER :: INDEX_SVAVB1 = 99 INTEGER :: INDEX_SESQ = 100 INTEGER :: INDEX_SESQRXN = 101 INTEGER :: INDEX_SOAALK = 102 INTEGER :: INDEX_H2NO3PIJ = 103 INTEGER :: INDEX_H2NO3PK = 104 INTEGER :: INDEX_ACLI = 105 INTEGER :: INDEX_ACLJ = 106 INTEGER :: INDEX_ACLK = 107 INTEGER :: INDEX_IEPOXP = 108 INTEGER :: INDEX_ASO4J = 109 INTEGER :: INDEX_AISO3J = 110 INTEGER :: INDEX_AGLYJ = 111 INTEGER :: INDEX_MTNO3 = 112 INTEGER :: INDEX_AMTNO3J = 113 INTEGER :: INDEX_AMTHYDJ = 114 INTEGER :: INDEX_AAVB2J = 115 INTEGER :: INDEX_AOLGAJ = 116 INTEGER :: INDEX_AAVB3J = 117 INTEGER :: INDEX_AAVB4J = 118 INTEGER :: INDEX_AISO1J = 119 INTEGER :: INDEX_AOLGBJ = 120 INTEGER :: INDEX_AISO2J = 121 INTEGER :: INDEX_ASQTJ = 122 INTEGER :: INDEX_APOCI = 123 INTEGER :: INDEX_APNCOMI = 124 INTEGER :: INDEX_APOCJ = 125 INTEGER :: INDEX_APNCOMJ = 126 INTEGER :: INDEX_PCVOC = 127 INTEGER :: INDEX_PCSOARXN = 128 INTEGER :: INDEX_VLVPO1 = 129 INTEGER :: INDEX_VSVPO1 = 130 INTEGER :: INDEX_VSVPO2 = 131 INTEGER :: INDEX_VSVPO3 = 132 INTEGER :: INDEX_VIVPO1 = 133 INTEGER :: INDEX_VLVOO1 = 134 INTEGER :: INDEX_VLVOO2 = 135 INTEGER :: INDEX_VSVOO2 = 136 INTEGER :: INDEX_VSVOO3 = 137 INTEGER :: INDEX_VSVOO1 = 138 INTEGER :: INDEX_FORM_PRIMARY = 139 INTEGER :: INDEX_ALD2_PRIMARY = 140 INTEGER :: INDEX_BUTADIENE13 = 141 INTEGER :: INDEX_ACROLEIN = 142 INTEGER :: INDEX_ACRO_PRIMARY = 143 INTEGER :: INDEX_TOLU = 144 INTEGER :: INDEX_HG = 145 INTEGER :: INDEX_HGIIAER = 146 INTEGER :: INDEX_HGIIGAS = 147 INTEGER, PARAMETER :: N_ACT_SP = 147 INTEGER, PARAMETER :: NRXNS = 343 INTEGER, PARAMETER :: ONE_REACT_REACTIONS = 0 INTEGER, PARAMETER :: TWO_REACT_REACTIONS = 0 INTEGER, PARAMETER :: THREE_REACT_REACTIONS = 0 INTEGER, PARAMETER :: ZERO_REACT_REACTIONS = 0 LOGICAL, PARAMETER :: UNITARY_REACTIONS = .FALSE. INTEGER, PARAMETER :: ONE_REACT_START = 0 INTEGER, PARAMETER :: ONE_REACT_STOP = -1 LOGICAL, PARAMETER :: BINARY_REACTIONS = .FALSE. INTEGER, PARAMETER :: TWO_REACT_START = 0 INTEGER, PARAMETER :: TWO_REACT_STOP = -1 LOGICAL, PARAMETER :: TERNARY_REACTIONS = .FALSE. INTEGER, PARAMETER :: THREE_REACT_START = 0 INTEGER, PARAMETER :: THREE_REACT_STOP = -1 LOGICAL, PARAMETER :: NULL_REACTIONS = .FALSE. INTEGER, PARAMETER :: ZERO_REACT_START = 0 INTEGER, PARAMETER :: ZERO_REACT_STOP = -1 INTEGER, PARAMETER :: NSUNLIGHT_RXNS = 42 INTEGER, PARAMETER :: NTHERMAL_RXNS = 301 INTEGER, PARAMETER :: KUNITS = 2 INTEGER :: IRXXN INTEGER, PARAMETER :: NMPHOT = 41 INTEGER :: IPH( NMPHOT,3 ) DATA ( IPH( IRXXN,1 ), IRXXN = 1, NMPHOT ) / & & 1, 8, 9, 21, 27, 28, 38, 43, 47, 50, & & 56, 64, 88, 90, 92, 97, 98, 108, 112, 114, & & 117, 119, 128, 129, 161, 163, 201, 202, 206, 225, & & 226, 233, 251, 253, 254, 289, 315, 316, 321, 330, & & 335/ DATA ( IPH( IRXXN,2 ), IRXXN = 1, NMPHOT ) / & & 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, & & 11, 11, 12, 12, 13, 14, 15, 16, 17, 18, & & 19, 20, 21, 22, 23, 24, 13, 1, 1, 25, & & 26, 27, 28, 29, 30, 31, 14, 15, 16, 32, & & 32/ DATA ( IPH( IRXXN,3 ), IRXXN = 1, NMPHOT ) / & & 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, & & 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, & & 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, & & 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, & & 41/ REAL( 8 ) :: RTDAT( 3,NRXNS ) INTEGER, PARAMETER :: NFALLOFF = 22 REAL( 8 ) :: RFDAT( 5,NFALLOFF ) INTEGER :: KTYPE( NRXNS ) DATA ( KTYPE( IRXXN ), IRXXN = 1, NRXNS ) / & & 0, 2, 3, 2, 3, 10, 3, 0, 0, 3, & ! O & 1, 3, 4, 3, 3, 4, 10, 3, 9, 9, & ! 1 & 0, 3, 3, 3, 3, 3, 0, 0, 3, 3, & ! 2 & 1, 1, 1, 1, 3, 10, 10, 0, 1, 10, & ! 3 & 1, 1, 0, 3, 10, 8, 0, 10, 10, 0, & ! 4 & 3, 10, 3, 10, 10, 0, 3, 3, 3, 3, & ! 5 & 3, 6, 6, 0, 3, 3, 3, 3, 3, 3, & ! 6 & 3, 3, 3, 6, 3, 3, 6, 6, 6, 6, & ! 7 & 6, 6, 6, 6, 6, 6, 3, 0, 3, 0, & ! 8 & 1, 0, 1, 3, 3, 3, 0, 0, 3, 1, & ! 9 & 3, 3, 1, 3, 3, 3, 3, 0, 3, 3, & ! O & 1, 0, 1, 0, 3, 3, 0, 3, 0, 3, & ! 1 & 3, 3, 9, 3, 3, 3, 3, 0, 0, 3, & ! 2 & 3, 1, 3, 3, 3, 10, 3, 10, 3, 3, & ! 3 & 3, 10, 3, 3, 1, 3, 3, 1, 3, 1, & ! 4 & 3, 3, 6, 6, 3, 3, 3, 3, 3, 3, & ! 5 & 0, 3, 0, 3, 3, 3, 3, 6, 6, 1, & ! 6 & 1, 3, 3, 3, 1, 3, 3, 3, 3, 3, & ! 7 & 6, 3, 6, 3, 3, 6, 3, 6, 1, 1, & ! 8 & 3, 3, 6, 6, 3, 1, 1, 1, 1, 1, & ! 9 & 0, 0, 1, 3, 1, 0, 1, 3, 1, 1, & ! O & 1, 1, 6, 6, 6, 6, 6, 1, 1, 3, & ! 1 & 10, 1, 10, 1, 0, 0, 3, 1, 3, 3, & ! 2 & 3, 1, 0, 3, 1, 1, 3, 1, 1, 1, & ! 3 & 1, 3, 1, 1, 1, 3, 4, 1, 1, 1, & ! 4 & 0, 10, 0, 0, -1, 3, 3, 3, 3, 3, & ! 5 & 3, 1, 1, 1, 3, 3, 3, -1, -1, -1, & ! 6 & -1, -1, -1, -1, -1, -1, 12, -1, -1, -1, & ! 7 & -1, -1, 3, 3, 1, 1, 1, 1, 0, 1, & ! 8 & 1, 1, 1, 1, 1, 1, 1, -1, 1, -1, & ! 9 & 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, & ! O & 1, 3, 1, 3, 0, 0, 3, 3, 3, 3, & ! 1 & 0, 1, 3, 3, 1, 1, 1, 1, 1, 0, & ! 2 & 1, 1, 1, 1, 0, 1, 3, 1, 3, 1, & ! 3 & 1, 1, 3/ ! 4 INTEGER :: IRXBITS( NRXNS ) DATA ( IRXBITS( IRXXN ), IRXXN = 1, NRXNS ) / & & 2, 276, 0, 260, 0, 1, 0, 2, 2, 260, & ! O & 8, 0, 0, 0, 0, 0, 1, 0, 0, 8, & ! 1 & 2, 0, 0, 16, 0, 0, 2, 2, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 1, 1, 2, 8, 1, & ! 3 & 8, 0, 2, 0, 1, 0, 2, 1, 1, 2, & ! 4 & 0, 1, 0, 1, 1, 2, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 2, 0, 2, & ! 8 & 0, 2, 0, 0, 0, 0, 2, 2, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, & ! O & 0, 2, 0, 2, 0, 0, 2, 0, 2, 0, & ! 1 & 0, 128, 0, 64, 0, 0, 0, 2, 2, 0, & ! 2 & 0, 0, 0, 16, 0, 1, 0, 1, 0, 0, & ! 3 & 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 2, 0, 2, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 2, 2, 0, 0, 0, 2, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 1, 0, 1, 0, 2, 2, 0, 0, 0, 0, & ! 2 & 0, 0, 2, 64, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 2, 1, 2, 2, 1, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, & ! 6 & 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, & ! 7 & 1, 1, 0, 0, 0, 0, 0, 0, 2, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 1, 0, 1, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 2, 2, 0, 0, 0, 0, & ! 1 & 2, 0, 0, 0, 0, 0, 0, 0, 0, 2, & ! 2 & 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 260/ ! 4 INTEGER, PARAMETER :: NTERMS_JACOB = 21609 INTEGER, PARAMETER :: NSTEPS_JACOB = 686 INTEGER :: IORDER( NRXNS ) DATA ( IORDER( IRXXN ), IRXXN = 1, NRXNS ) / & & 1, 3, 2, 3, 2, 2, 2, 1, 1, 2, & ! O & 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, & ! 1 & 1, 2, 2, 3, 2, 2, 1, 1, 2, 2, & ! 2 & 2, 2, 2, 2, 2, 2, 1, 1, 2, 2, & ! 3 & 3, 2, 1, 2, 2, 2, 1, 2, 1, 1, & ! 4 & 2, 2, 2, 2, 1, 1, 2, 2, 2, 2, & ! 5 & 2, 2, 1, 1, 2, 2, 2, 2, 2, 2, & ! 6 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 7 & 2, 2, 2, 2, 2, 2, 2, 1, 2, 1, & ! 8 & 2, 1, 2, 2, 2, 2, 1, 1, 2, 2, & ! 9 & 2, 1, 2, 2, 2, 2, 2, 1, 2, 2, & ! O & 2, 1, 2, 1, 2, 2, 1, 2, 1, 2, & ! 1 & 2, 2, 2, 2, 2, 2, 2, 1, 1, 2, & ! 2 & 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, & ! 3 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 4 & 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, & ! 5 & 1, 2, 1, 2, 2, 2, 2, 2, 2, 2, & ! 6 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 7 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 8 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 9 & 1, 1, 2, 2, 2, 1, 2, 2, 2, 2, & ! O & 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, & ! 1 & 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, & ! 2 & 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, & ! 3 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 4 & 1, 2, 1, 1, 1, 2, 2, 2, 2, 2, & ! 5 & 2, 2, 2, 2, 2, 2, 2, 1, 1, 1, & ! 6 & 1, 1, 2, 2, 2, 1, 1, 1, 2, 1, & ! 7 & 1, 1, 2, 2, 2, 2, 2, 2, 1, 1, & ! 8 & 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, & ! 9 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! O & 2, 2, 2, 2, 1, 1, 2, 2, 2, 2, & ! 1 & 1, 2, 2, 2, 2, 2, 2, 2, 2, 1, & ! 2 & 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, & ! 3 & 2, 2, 3/ ! 4 INTEGER, PARAMETER :: KTN1 = 96 INTEGER :: KRX1( KTN1 ) DATA ( KRX1( IRXXN ), IRXXN = 1, KTN1 ) / & & 11, 31, 32, 33, 34, 39, 41, 42, 91, 93, & ! O & 100, 103, 111, 113, 132, 145, 148, 150, 170, 171, & ! 1 & 175, 189, 190, 196, 197, 198, 199, 200, 203, 205, & ! 2 & 207, 209, 210, 211, 212, 218, 219, 222, 224, 228, & ! 3 & 232, 235, 236, 238, 239, 240, 241, 243, 244, 245, & ! 4 & 248, 249, 250, 262, 263, 264, 285, 286, 287, 288, & ! 5 & 290, 291, 292, 293, 294, 295, 296, 297, 299, 301, & ! 6 & 302, 303, 304, 305, 306, 307, 308, 309, 310, 311, & ! 7 & 313, 322, 325, 326, 327, 328, 329, 331, 332, 333, & ! 8 & 334, 336, 338, 340, 341, 342/ ! 9 INTEGER, PARAMETER :: KTN2 = 2 INTEGER :: KRX2( KTN2 ) DATA ( KRX2( IRXXN ), IRXXN = 1, KTN2 ) / & & 2, 4/ INTEGER, PARAMETER :: KTN3 = 134 INTEGER :: KRX3( KTN3 ) DATA ( KRX3( IRXXN ), IRXXN = 1, KTN3 ) / & & 3, 5, 7, 10, 12, 14, 15, 18, 22, 23, & ! O & 24, 25, 26, 29, 30, 35, 44, 51, 53, 57, & ! 1 & 58, 59, 60, 61, 65, 66, 67, 68, 69, 70, & ! 2 & 71, 72, 73, 75, 76, 87, 89, 94, 95, 96, & ! 3 & 99, 101, 102, 104, 105, 106, 107, 109, 110, 115, & ! 4 & 116, 118, 120, 121, 122, 124, 125, 126, 127, 130, & ! 5 & 131, 133, 134, 135, 137, 139, 140, 141, 143, 144, & ! 6 & 146, 147, 149, 151, 152, 155, 156, 157, 158, 159, & ! 7 & 160, 162, 164, 165, 166, 167, 172, 173, 174, 176, & ! 8 & 177, 178, 179, 180, 182, 184, 185, 187, 191, 192, & ! 9 & 195, 204, 208, 220, 227, 229, 230, 231, 234, 237, & ! O & 242, 246, 256, 257, 258, 259, 260, 261, 265, 266, & ! 1 & 267, 283, 284, 312, 314, 317, 318, 319, 320, 323, & ! 2 & 324, 337, 339, 343/ ! 3 INTEGER, PARAMETER :: KTN4 = 3 INTEGER :: KRX4( KTN4 ) DATA ( KRX4( IRXXN ), IRXXN = 1, KTN4 ) / & & 13, 16, 247/ INTEGER, PARAMETER :: KTN5 = 0 INTEGER :: KRX5( 1 ) DATA KRX5( 1 ) / 0 / INTEGER, PARAMETER :: KTN6 = 28 INTEGER :: KRX6( KTN6 ) DATA ( KRX6( IRXXN ), IRXXN = 1, KTN6 ) / & & 62, 63, 74, 77, 78, 79, 80, 81, 82, 83, & & 84, 85, 86, 153, 154, 168, 169, 181, 183, 186, & & 188, 193, 194, 213, 214, 215, 216, 217/ INTEGER, PARAMETER :: KTN7 = 0 INTEGER :: KRX7( 1 ) DATA KRX7( 1 ) / 0 / INTEGER, PARAMETER :: NWM = 4 INTEGER :: NRXWM( NWM ) DATA ( NRXWM( IRXXN ), IRXXN = 1, NWM ) / & & 2, 4, 10, 343/ REAL( 8 ), PARAMETER :: ATM_AIR = 1.00000D+06 INTEGER, PARAMETER :: NWW = 4 INTEGER :: NRXWW( NWW ) DATA ( NRXWW( IRXXN ), IRXXN = 1, NWW ) / & & 11, 20, 39, 41/ INTEGER, PARAMETER :: NWO2 = 3 INTEGER :: NRXWO2( NWO2 ) DATA ( NRXWO2( IRXXN ), IRXXN = 1, NWO2 ) / & & 2, 24, 134/ REAL( 8 ), PARAMETER :: ATM_O2 = 2.09500D+05 INTEGER, PARAMETER :: NWN2 = 0 INTEGER :: NRXWN2( 1 ) DATA NRXWN2( 1 ) / 0 / REAL( 8 ), PARAMETER :: ATM_N2 = 7.80800D+05 INTEGER, PARAMETER :: NWCH4 = 2 INTEGER :: NRXWCH4( NWCH4 ) DATA ( NRXWCH4( IRXXN ), IRXXN = 1, NWCH4 ) / & & 124, 234/ REAL( 8 ), PARAMETER :: ATM_CH4 = 1.85000D+00 INTEGER, PARAMETER :: NWH2 = 1 INTEGER :: NRXWH2( NWH2 ) DATA ( NRXWH2( IRXXN ), IRXXN = 1, NWH2 ) / & & 122/ REAL( 8 ), PARAMETER :: ATM_H2 = 5.60000D-01 INTEGER, PARAMETER :: MXPRD = 14 INTEGER :: IRR( NRXNS,MXPRD+3 ) DATA ( IRR( IRXXN, 1 ), IRXXN = 1, NRXNS ) / & & 1, 3, 4, 3, 3, 3, 3, 4, 4, 6, & ! O & 6, 4, 4, 7, 8, 7, 7, 7, 8, 8, & ! 1 & 9, 9, 9, 2, 8, 1, 5, 5, 5, 5, & ! 2 & 5, 5, 5, 5, 5, 5, 10, 10, 10, 2, & ! 3 & 2, 12, 12, 12, 1, 11, 11, 8, 13, 13, & ! 4 & 13, 14, 17, 17, 20, 20, 17, 17, 17, 17, & ! 5 & 23, 23, 26, 26, 23, 23, 23, 19, 19, 19, & ! 6 & 18, 18, 18, 18, 25, 25, 25, 25, 31, 31, & ! 7 & 31, 31, 32, 32, 32, 32, 28, 28, 30, 30, & ! 8 & 33, 33, 35, 22, 21, 27, 27, 27, 27, 27, & ! 9 & 27, 37, 37, 37, 24, 24, 24, 24, 38, 38, & ! O & 38, 38, 39, 39, 39, 40, 40, 40, 41, 41, & ! 1 & 41, 7, 36, 7, 42, 29, 43, 44, 46, 46, & ! 2 & 47, 45, 50, 50, 50, 51, 52, 52, 52, 52, & ! 3 & 53, 53, 53, 53, 54, 54, 54, 54, 55, 55, & ! 4 & 56, 56, 56, 56, 56, 55, 55, 58, 58, 58, & ! 5 & 58, 60, 61, 61, 63, 64, 64, 64, 64, 59, & ! 6 & 65, 65, 65, 65, 68, 68, 68, 68, 69, 71, & ! 7 & 71, 71, 71, 74, 75, 75, 75, 75, 78, 81, & ! 8 & 79, 79, 79, 79, 70, 70, 83, 83, 85, 85, & ! 9 & 85, 77, 77, 77, 77, 72, 72, 72, 72, 84, & ! O & 84, 62, 62, 86, 62, 62, 62, 86, 26, 87, & ! 1 & 48, 48, 49, 49, 88, 90, 89, 91, 91, 91, & ! 2 & 91, 7, 92, 89, 89, 89, 89, 89, 89, 89, & ! 3 & 89, 89, 89, 89, 89, 89, 93, 89, 89, 89, & ! 4 & 94, 91, 95, 95, 95, 76, 76, 80, 80, 73, & ! 5 & 73, 100, 100, 100, 82, 82, 102, 34, 10, 10, & ! 6 & 103, 104, 103, 103, 104, 1, 4, 63, 108, 108, & ! 7 & 40, 41, 67, 67, 67, 67, 112, 112, 112, 113, & ! 8 & 115, 117, 118, 119, 121, 122, 123, 124, 125, 126, & ! 9 & 127, 129, 130, 131, 132, 133, 134, 135, 138, 136, & ! O & 137, 139, 139, 139, 139, 139, 139, 140, 140, 140, & ! 1 & 140, 140, 141, 141, 141, 141, 143, 143, 143, 143, & ! 2 & 143, 142, 142, 142, 142, 142, 144, 144, 145, 145, & ! 3 & 145, 145, 145/ ! 4 DATA ( IRR( IRXXN, 2 ), IRXXN = 1, NRXNS ) / & & 0, 0, 2, 2, 1, 1, 4, 0, 0, 0, & ! O & 0, 7, 8, 3, 3, 7, 7, 8, 8, 8, & ! 1 & 0, 7, 3, 2, 2, 4, 0, 0, 2, 1, & ! 2 & 3, 7, 8, 4, 5, 1, 0, 0, 0, 7, & ! 3 & 1, 12, 0, 7, 7, 7, 0, 1, 0, 0, & ! 4 & 7, 7, 2, 1, 0, 0, 8, 19, 17, 23, & ! 5 & 2, 1, 0, 0, 8, 19, 23, 2, 8, 19, & ! 6 & 2, 8, 17, 19, 2, 8, 17, 19, 2, 8, & ! 7 & 17, 19, 2, 8, 17, 19, 7, 0, 7, 0, & ! 8 & 7, 0, 7, 7, 7, 7, 0, 0, 3, 5, & ! 9 & 8, 0, 2, 8, 3, 7, 5, 0, 3, 7, & ! O & 5, 0, 7, 0, 5, 7, 0, 5, 0, 5, & ! 1 & 7, 0, 7, 0, 7, 7, 7, 0, 0, 7, & ! 2 & 7, 7, 0, 0, 1, 7, 3, 7, 4, 5, & ! 3 & 3, 7, 4, 5, 3, 7, 4, 5, 7, 3, & ! 4 & 2, 8, 17, 19, 0, 4, 5, 7, 4, 5, & ! 5 & 0, 7, 0, 5, 7, 8, 2, 17, 19, 7, & ! 6 & 3, 7, 4, 5, 3, 7, 4, 5, 7, 2, & ! 7 & 17, 8, 19, 7, 2, 17, 8, 19, 7, 7, & ! 8 & 2, 8, 17, 19, 7, 5, 1, 8, 7, 5, & ! 9 & 0, 0, 7, 4, 5, 0, 7, 4, 5, 7, & ! O & 5, 2, 1, 0, 8, 17, 19, 7, 7, 7, & ! 1 & 0, 0, 0, 0, 0, 0, 4, 91, 2, 8, & ! 2 & 18, 92, 0, 0, 45, 47, 42, 52, 53, 54, & ! 3 & 55, 27, 24, 38, 29, 43, 7, 74, 78, 81, & ! 4 & 0, 1, 0, 0, 0, 2, 8, 2, 8, 2, & ! 5 & 8, 4, 7, 5, 2, 8, 7, 0, 0, 0, & ! 6 & 0, 0, 105, 106, 107, 0, 0, 0, 109, 0, & ! 7 & 0, 0, 2, 8, 5, 19, 89, 7, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 7, 7, 7, 7, & ! 9 & 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, & ! O & 7, 7, 5, 3, 0, 0, 89, 7, 5, 3, & ! 1 & 0, 89, 7, 4, 5, 89, 7, 4, 5, 0, & ! 2 & 89, 7, 4, 5, 0, 89, 7, 89, 4, 88, & ! 3 & 9, 7, 89/ ! 4 DATA ( IRR( IRXXN, 3 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0/ ! 4 DATA ( IRR( IRXXN, 4 ), IRXXN = 1, NRXNS ) / & & 2, 4, 1, 1, 2, 5, 0, 3, 6, 3, & ! O & 7, 8, 7, 8, 7, 3, 9, 0, 9, 9, & ! 1 & 7, 8, 7, 1, 7, 5, 1, 2, 1, 2, & ! 2 & 1, 8, 7, 1, 1, 10, 5, 1, 11, 12, & ! 3 & 12, 2, 2, 1, 11, 5, 7, 13, 8, 8, & ! 4 & 1, 15, 1, 20, 1, 1, 21, 17, 18, 18, & ! 5 & 1, 26, 1, 1, 21, 24, 24, 2, 8, 0, & ! 6 & 27, 28, 27, 27, 1, 30, 8, 8, 1, 30, & ! 7 & 18, 19, 33, 30, 8, 19, 18, 18, 25, 8, & ! 8 & 34, 1, 8, 18, 17, 8, 8, 36, 7, 11, & ! 9 & 37, 27, 35, 28, 17, 17, 17, 18, 23, 23, & ! O & 23, 24, 40, 27, 11, 36, 8, 11, 17, 11, & ! 1 & 17, 8, 8, 18, 24, 27, 24, 24, 36, 27, & ! 2 & 48, 49, 44, 44, 33, 40, 27, 25, 27, 1, & ! 3 & 24, 27, 24, 1, 24, 24, 24, 1, 56, 58, & ! 4 & 59, 60, 27, 27, 8, 27, 1, 32, 24, 11, & ! 5 & 8, 63, 7, 11, 64, 39, 39, 39, 39, 31, & ! 6 & 38, 25, 7, 1, 38, 25, 7, 1, 70, 1, & ! 7 & 40, 0, 40, 70, 1, 40, 0, 40, 70, 70, & ! 8 & 1, 0, 40, 40, 40, 83, 85, 70, 34, 34, & ! 9 & 12, 40, 41, 41, 1, 62, 62, 40, 62, 27, & ! O & 83, 1, 86, 62, 21, 18, 25, 1, 24, 18, & ! 1 & 32, 46, 32, 38, 89, 7, 91, 88, 89, 90, & ! 2 & 89, 89, 89, 93, 93, 93, 93, 92, 92, 93, & ! 3 & 92, 93, 93, 93, 93, 93, 89, 93, 93, 93, & ! 4 & 89, 95, 91, 89, 90, 2, 8, 2, 8, 2, & ! 5 & 8, 4, 7, 5, 2, 8, 7, 11, 11, 11, & ! 6 & 11, 11, 94, 94, 94, 12, 0, 108, 110, 110, & ! 7 & 111, 111, 2, 8, 5, 19, 89, 7, 0, 114, & ! 8 & 116, 116, 116, 120, 120, 120, 124, 7, 126, 7, & ! 9 & 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, & ! O & 7, 7, 5, 3, 0, 0, 89, 7, 5, 3, & ! 1 & 0, 89, 7, 4, 5, 89, 7, 4, 5, 0, & ! 2 & 89, 7, 4, 5, 0, 89, 7, 89, 146, 147, & ! 3 & 147, 146, 145/ ! 4 DATA ( IRR( IRXXN, 5 ), IRXXN = 1, NRXNS ) / & & 3, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 8, 0, 1, 0, 3, 0, 0, 1, & ! 2 & 0, 1, 1, 0, 0, 0, 1, 5, 0, 0, & ! 3 & 0, 1, 7, 0, 0, 0, 1, 0, 1, 1, & ! 4 & 0, 8, 18, 0, 17, 17, 22, 0, 19, 24, & ! 5 & 24, 0, 23, 23, 22, 25, 25, 0, 0, 0, & ! 6 & 8, 27, 8, 29, 8, 0, 18, 19, 0, 0, & ! 7 & 22, 0, 34, 0, 18, 0, 19, 19, 32, 7, & ! 8 & 0, 0, 0, 19, 0, 36, 36, 0, 8, 8, & ! 9 & 0, 8, 1, 35, 7, 0, 11, 19, 7, 0, & ! O & 11, 25, 8, 36, 17, 31, 36, 36, 8, 17, & ! 1 & 36, 0, 0, 19, 25, 8, 8, 17, 18, 17, & ! 2 & 0, 0, 46, 8, 0, 7, 8, 19, 36, 33, & ! 3 & 38, 24, 27, 33, 38, 38, 38, 33, 19, 27, & ! 4 & 1, 7, 58, 58, 61, 58, 34, 31, 27, 34, & ! 5 & 25, 7, 58, 58, 19, 40, 40, 40, 40, 25, & ! 6 & 45, 31, 25, 25, 45, 31, 25, 25, 71, 34, & ! 7 & 72, 0, 72, 75, 34, 41, 0, 41, 79, 79, & ! 8 & 34, 0, 41, 41, 72, 11, 0, 0, 83, 83, & ! 9 & 8, 25, 40, 7, 34, 8, 25, 41, 11, 8, & ! O & 11, 40, 0, 1, 22, 31, 38, 40, 1, 19, & ! 1 & 19, 38, 19, 50, 0, 89, 0, 89, 1, 0, & ! 2 & 27, 36, 36, 18, 49, 46, 24, 31, 24, 92, & ! 3 & 58, 8, 17, 23, 8, 8, 0, 70, 70, 70, & ! 4 & 1, 0, 1, 5, 11, 96, 99, 96, 99, 96, & ! 5 & 99, 101, 101, 101, 96, 99, 96, 0, 103, 104, & ! 6 & 0, 0, 0, 0, 0, 11, 0, 0, 0, 0, & ! 7 & 0, 0, 112, 112, 112, 112, 112, 112, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 123, 0, 125, 0, & ! 9 & 128, 129, 129, 129, 129, 129, 134, 134, 134, 134, & ! O & 134, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 142, 142, 142, 142, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 147, 88, & ! 3 & 9, 147, 147/ ! 4 DATA ( IRR( IRXXN, 6 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 7, & ! 4 & 0, 16, 19, 0, 0, 5, 4, 0, 0, 25, & ! 5 & 25, 0, 0, 5, 4, 19, 19, 0, 0, 0, & ! 6 & 1, 0, 18, 8, 0, 0, 22, 0, 0, 0, & ! 7 & 19, 0, 0, 0, 22, 0, 27, 7, 19, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 36, 36, & ! 9 & 0, 0, 8, 7, 0, 0, 0, 36, 0, 0, & ! O & 0, 19, 17, 8, 0, 19, 0, 31, 36, 31, & ! 1 & 0, 0, 0, 0, 32, 0, 25, 25, 19, 31, & ! 2 & 0, 0, 24, 0, 0, 35, 36, 27, 8, 25, & ! 3 & 8, 38, 38, 31, 25, 25, 27, 31, 57, 31, & ! 4 & 27, 8, 8, 8, 0, 38, 25, 41, 41, 1, & ! 5 & 31, 56, 0, 0, 0, 41, 41, 41, 41, 19, & ! 6 & 66, 32, 31, 31, 66, 32, 31, 31, 19, 40, & ! 7 & 8, 0, 8, 19, 40, 72, 0, 72, 19, 19, & ! 8 & 40, 0, 72, 72, 8, 31, 0, 0, 0, 11, & ! 9 & 27, 8, 25, 17, 25, 36, 19, 7, 0, 83, & ! O & 0, 36, 0, 0, 4, 38, 19, 36, 0, 0, & ! 1 & 0, 45, 0, 25, 0, 0, 0, 0, 0, 0, & ! 2 & 8, 0, 8, 19, 0, 25, 25, 8, 38, 24, & ! 3 & 25, 36, 0, 0, 27, 24, 0, 75, 79, 79, & ! 4 & 0, 0, 0, 0, 0, 97, 0, 97, 0, 98, & ! 5 & 0, 0, 0, 0, 97, 0, 97, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 7, 0, 7, 0, & ! 9 & 0, 130, 130, 130, 130, 130, 135, 135, 135, 135, & ! O & 135, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 4, 0, & ! 3 & 0, 7, 89/ ! 4 DATA ( IRR( IRXXN, 7 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, & ! 4 & 0, 0, 0, 0, 0, 18, 18, 0, 0, 19, & ! 5 & 19, 0, 0, 24, 24, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 22, 19, 0, 0, 19, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 19, 0, 7, 0, 7, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 8, 0, 0, 0, 8, 0, 0, & ! O & 0, 36, 0, 29, 0, 8, 0, 19, 0, 19, & ! 1 & 0, 0, 0, 0, 19, 0, 19, 23, 17, 19, & ! 2 & 0, 0, 38, 0, 0, 36, 25, 39, 7, 31, & ! 3 & 25, 25, 25, 25, 19, 19, 36, 25, 0, 19, & ! 4 & 58, 27, 25, 25, 0, 23, 31, 18, 40, 31, & ! 5 & 18, 19, 0, 0, 0, 7, 7, 7, 7, 1, & ! 6 & 0, 19, 32, 32, 0, 19, 32, 32, 72, 72, & ! 7 & 18, 0, 19, 72, 41, 77, 0, 77, 77, 77, & ! 8 & 41, 0, 77, 77, 83, 25, 0, 0, 0, 0, & ! 9 & 72, 36, 19, 24, 31, 0, 40, 17, 0, 0, & ! O & 0, 8, 0, 0, 38, 19, 22, 34, 0, 0, & ! 1 & 0, 25, 0, 31, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 32, 32, 27, 31, 38, & ! 3 & 32, 0, 0, 0, 0, 0, 0, 19, 19, 19, & ! 4 & 0, 0, 0, 0, 0, 98, 0, 98, 0, 0, & ! 5 & 0, 0, 0, 0, 98, 0, 98, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 131, 131, 131, 131, 131, 138, 138, 138, 138, & ! O & 138, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0/ ! 4 DATA ( IRR( IRXXN, 8 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 19, 19, 0, 0, 0, & ! 5 & 0, 0, 0, 25, 25, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 19, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 8, 0, 7, 0, 0, 0, 8, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 27, 18, 0, 0, & ! 2 & 0, 0, 32, 0, 0, 8, 19, 0, 35, 19, & ! 3 & 36, 31, 19, 32, 36, 0, 7, 32, 0, 8, & ! 4 & 8, 58, 18, 19, 0, 45, 32, 39, 46, 25, & ! 5 & 17, 54, 0, 0, 0, 8, 8, 8, 8, 5, & ! 6 & 0, 27, 19, 19, 0, 27, 19, 19, 7, 8, & ! 7 & 19, 0, 0, 7, 72, 8, 0, 8, 7, 7, & ! 8 & 72, 0, 8, 8, 84, 40, 0, 0, 0, 0, & ! 9 & 0, 17, 0, 36, 32, 0, 0, 27, 0, 0, & ! O & 0, 23, 0, 0, 25, 0, 0, 0, 0, 0, & ! 1 & 0, 19, 0, 19, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 19, 19, 0, 8, 53, & ! 3 & 19, 0, 0, 0, 0, 0, 0, 72, 77, 77, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 132, 132, 132, 132, 134, 136, 136, 136, 136, & ! O & 136, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0/ ! 4 DATA ( IRR( IRXXN, 9 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 7, 0, 0, 0, & ! 5 & 0, 0, 0, 19, 19, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 40, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 39, 19, 0, 0, & ! 2 & 0, 0, 25, 0, 0, 0, 7, 0, 0, 27, & ! 3 & 27, 32, 7, 19, 45, 0, 25, 19, 0, 23, & ! 4 & 25, 0, 22, 0, 0, 7, 19, 17, 36, 39, & ! 5 & 27, 38, 0, 0, 0, 27, 27, 27, 27, 59, & ! 6 & 0, 45, 27, 38, 0, 45, 27, 38, 8, 0, & ! 7 & 0, 0, 0, 25, 77, 18, 0, 19, 25, 25, & ! 8 & 77, 0, 18, 19, 32, 41, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 25, 19, 0, 0, 24, 0, 0, & ! O & 0, 0, 0, 0, 19, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 45, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 45, 45, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 7, 7, 7, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 133, 134, 134, 134, 135, 137, 137, 137, 137, & ! O & 137, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0/ ! 4 DATA ( IRR( IRXXN, 10 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 7, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 25, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 45, 0, 0, & ! 2 & 0, 0, 19, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 32, 19, 8, 27, 0, 0, 19, 24, 0, 45, & ! 4 & 19, 0, 19, 0, 0, 31, 27, 62, 7, 41, & ! 5 & 53, 0, 0, 0, 0, 35, 1, 36, 36, 27, & ! 6 & 0, 38, 36, 34, 0, 38, 36, 34, 73, 0, & ! 7 & 0, 0, 0, 8, 8, 19, 0, 0, 8, 8, & ! 8 & 8, 0, 19, 0, 19, 62, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 19, 72, 0, 0, 36, 0, 0, & ! O & 0, 0, 0, 0, 7, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 31, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 25, 25, 25, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 134, 135, 135, 135, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0/ ! 4 DATA ( IRR( IRXXN, 11 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 19, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 50, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 19, 45, 36, 24, 0, 0, 40, 38, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 19, 58, 45, 35, 45, & ! 5 & 45, 0, 0, 0, 0, 36, 36, 45, 45, 39, & ! 6 & 0, 66, 45, 67, 0, 66, 45, 0, 0, 0, & ! 7 & 0, 0, 0, 76, 0, 0, 0, 0, 80, 82, & ! 8 & 0, 0, 0, 0, 0, 32, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 41, 0, 0, 8, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 8, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 8, 8, 8, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 135, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0/ ! 4 DATA ( IRR( IRXXN, 12 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 45, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 45, 0, 40, 38, 0, 0, 41, 45, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 8, 57, 46, 8, 23, & ! 5 & 46, 0, 0, 0, 0, 45, 45, 18, 19, 35, & ! 6 & 0, 0, 38, 0, 0, 0, 38, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 19, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 76, 80, 82, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 136, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0/ ! 4 DATA ( IRR( IRXXN, 13 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 7, 0, 41, 45, 0, 0, 45, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 36, 0, 36, 17, 19, & ! 5 & 39, 0, 0, 0, 0, 0, 0, 22, 0, 45, & ! 6 & 0, 0, 23, 0, 0, 0, 23, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 137, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0/ ! 4 DATA ( IRR( IRXXN, 14 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 35, 0, 0, 0, 22, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 8, 0, 0, & ! 5 & 19, 0, 0, 0, 0, 0, 0, 19, 0, 53, & ! 6 & 0, 0, 66, 0, 0, 0, 66, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0/ ! 4 DATA ( IRR( IRXXN, 15 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 22, 0, 0, 0, 9, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 19, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 38, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0/ ! 4 DATA ( IRR( IRXXN, 16 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 9, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 34, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0/ ! 4 DATA ( IRR( IRXXN, 17 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 45, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0/ ! 4 DATA ( RTDAT( 1,IRXXN ), IRXXN = 1, NRXNS ) / & & 1.0000D+00, 5.6800D-34, 1.4000D-12, 1.0000D-31, 5.5000D-12, & ! O & 1.3000D-31, 8.0000D-12, 1.0000D+00, 1.0000D+00, 2.2300D-11, & ! + & 2.1400D-10, 1.7000D-12, 2.0300D-16, 2.4000D-11, 2.7000D-11, & ! 1 & 6.2000D-14, 6.9000D-31, 4.8000D-11, 2.2000D-13, 3.0800D-34, & ! + & 1.0000D+00, 2.9000D-12, 1.4000D-12, 3.3000D-39, 3.4500D-12, & ! 2 & 1.4000D-13, 1.0000D+00, 1.0000D+00, 1.8000D-11, 4.5000D-14, & ! + & 1.7000D-11, 2.0000D-11, 4.0000D-12, 1.0000D-17, 8.5000D-13, & ! 3 & 3.6000D-30, 1.3000D-03, 1.0000D+00, 1.0000D-22, 7.4000D-31, & ! + & 5.0000D-40, 1.0000D-20, 1.0000D+00, 2.5000D-12, 1.8000D-30, & ! 4 & 2.4000D-14, 1.0000D+00, 1.8000D-31, 4.1000D-05, 1.0000D+00, & ! + & 3.2000D-13, 4.5000D-31, 7.5000D-12, 2.7000D-28, 4.9000D-03, & ! 5 & 1.0000D+00, 5.2000D-13, 8.9000D-13, 2.9000D-12, 2.9000D-12, & ! + & 6.7000D-12, 1.0000D+00, 1.0000D+00, 1.0000D+00, 5.2000D-13, & ! 6 & 8.9000D-13, 3.2000D-12, 2.4000D-12, 4.8000D-13, 6.5000D-14, & ! + & 2.3000D-12, 3.8000D-13, 2.0000D-12, 1.0000D+00, 2.7000D-12, & ! 7 & 6.8000D-13, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 8 & 1.0000D+00, 5.3000D-12, 1.0000D+00, 5.3000D-12, 1.0000D+00, & ! + & 2.0000D-12, 1.0000D+00, 4.5000D-13, 4.0000D-14, 5.3000D-12, & ! 9 & 5.4000D-12, 1.0000D+00, 1.0000D+00, 3.4000D-11, 5.5000D-16, & ! + & 9.7000D-15, 2.4000D+12, 5.6000D-12, 5.6000D-15, 1.8000D-11, & ! O & 4.7000D-12, 1.4000D-12, 1.0000D+00, 1.3000D-11, 4.9000D-12, & ! + & 6.3000D-15, 1.0000D+00, 8.0000D-12, 1.0000D+00, 1.4000D-12, & ! 1 & 3.1000D-12, 1.0000D+00, 1.4000D-12, 1.0000D+00, 1.4000D-12, & ! + & 1.9000D-12, 7.7000D-12, 1.4400D-13, 1.8500D-12, 6.9000D-12, & ! 2 & 2.8500D-12, 3.0000D-12, 1.0000D+00, 1.0000D+00, 1.4100D-12, & ! + & 7.6000D-12, 8.1000D-13, 5.7000D+12, 1.5000D-14, 8.6000D-12, & ! 3 & 5.0000D-30, 1.0400D-11, 8.6000D-29, 9.1000D-15, 3.3000D-12, & ! + & 1.0000D-11, 8.0000D-27, 5.5000D-15, 4.6000D-13, 2.3000D-11, & ! 4 & 1.0500D-11, 4.7000D-15, 3.7000D-13, 2.7000D-11, 3.0000D-11, & ! + & 2.3900D-12, 7.4300D-13, 1.0000D+00, 1.0000D+00, 3.3000D+09, & ! 5 & 1.0300D-14, 3.0300D-12, 5.5800D-12, 3.8800D-15, 4.1000D-12, & ! + & 1.0000D+00, 2.2300D-11, 1.0000D+00, 6.0000D-12, 5.7800D-11, & ! 6 & 7.4300D-13, 2.3900D-12, 1.0000D+00, 1.0000D+00, 3.1000D-11, & ! + & 3.6000D-11, 1.5000D-11, 1.2000D-15, 3.7000D-12, 3.6000D-11, & ! 7 & 1.5000D-11, 1.2000D-15, 3.7000D-12, 2.3000D-12, 2.7000D-12, & ! + & 1.0000D+00, 1.9000D-13, 1.0000D+00, 1.8000D-12, 2.7000D-12, & ! 8 & 1.0000D+00, 1.9000D-13, 1.0000D+00, 1.8500D-11, 1.8500D-11, & ! + & 2.7000D-12, 1.9000D-13, 1.0000D+00, 1.0000D+00, 1.7000D-12, & ! 9 & 1.4000D-11, 2.1000D-12, 5.5000D-12, 1.5300D-12, 3.8000D-12, & ! + & 1.0000D+00, 5.0000D-02, 9.0000D-11, 1.0800D-16, 3.0000D-12, & ! O & 2.8000D-02, 4.4000D-11, 5.4000D-17, 3.8000D-12, 5.0000D-11, & ! + & 1.7000D-10, 1.0000D-11, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 1 & 1.0000D+00, 1.0000D+00, 3.6000D-11, 3.0000D-12, 1.8500D-12, & ! + & 2.3700D-21, 1.0000D+00, 4.8100D-20, 1.0000D+00, 1.0000D+00, & ! 2 & 1.0000D+00, 2.3000D-11, 1.6300D-14, 6.4000D-12, 2.2000D-12, & ! + & 3.2000D-12, 5.0000D-13, 1.0000D+00, 6.6000D-12, 5.0000D-11, & ! 3 & 1.4000D-10, 8.3000D-11, 1.0700D-10, 2.5000D-10, 3.5000D-10, & ! + & 4.3000D-10, 8.2000D-11, 7.9000D-11, 1.3000D-10, 5.5000D-11, & ! 4 & 8.2000D-11, 6.5800D-13, 6.1000D-11, 1.2000D-10, 1.2000D-10, & ! + & 1.0000D+00, 1.8000D-31, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 5 & 2.7000D-12, 1.9000D-13, 2.7000D-12, 1.9000D-13, 2.7000D-12, & ! + & 1.9000D-13, 1.1600D-14, 1.9700D-10, 1.9000D-11, 2.7000D-12, & ! 6 & 1.9000D-13, 2.7000D-12, 1.4000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 7 & 1.0000D+00, 6.7006D-11, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 2.6000D-12, 2.6500D-13, 2.3000D-12, & ! 8 & 3.5000D-14, 1.9200D-10, 7.2000D-12, 1.0000D+00, 9.2590D-05, & ! + & 9.4882D-06, 9.4882D-06, 9.4882D-06, 9.4882D-06, 9.4882D-06, & ! 9 & 9.4882D-06, 2.5000D-12, 1.0000D+00, 2.5000D-12, 1.0000D+00, & ! + & 1.2500D-11, 4.0000D-11, 4.0000D-11, 4.0000D-11, 4.0000D-11, & ! O & 4.0000D-11, 4.0000D-11, 4.0000D-11, 4.0000D-11, 4.0000D-11, & ! + & 4.0000D-11, 5.4000D-12, 5.5000D-16, 3.4000D-11, 1.0000D+00, & ! 1 & 1.0000D+00, 8.2000D-11, 4.7000D-12, 1.4000D-12, 1.8000D-11, & ! + & 1.0000D+00, 7.9000D-11, 1.4800D-11, 1.3400D-14, 1.7900D-13, & ! 2 & 2.5100D-10, 2.0000D-11, 2.6100D-19, 1.1500D-15, 1.0000D+00, & ! + & 2.3700D-10, 2.0000D-11, 2.6100D-19, 1.1500D-15, 1.0000D+00, & ! 3 & 2.3700D-10, 1.8000D-12, 6.1000D-11, 2.1100D-18, 2.6000D-18, & ! + & 8.5000D-19, 7.7000D-14, 2.2500D-33/ ! 4 DATA ( RTDAT( 2,IRXXN ), IRXXN = 1, NRXNS ) / & & 0.0000D+00,-2.6000D+00, 0.0000D+00,-1.6000D+00, 0.0000D+00, & ! O & -1.5000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 4.5700D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 2.6000D+00,-8.0000D-01, 0.0000D+00, 6.0000D+02, 2.8000D+03, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & -4.1000D+00,-3.5000D+00, 0.0000D+00, 0.0000D+00,-2.4000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00,-3.0000D+00, & ! 4 & 4.6000D+02, 0.0000D+00,-3.2000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00,-3.9000D+00, 0.0000D+00,-7.1000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 5.4000D+01, 5.5000D+01, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 7.0000D+01, 0.0000D+00, & ! 7 & 0.0000D+00, 5.8000D+01, 7.0000D+01, 7.5000D+01, 7.6000D+01, & ! + & 5.8000D+01, 7.0000D+01, 7.5000D+01, 7.6000D+01, 5.8000D+01, & ! 8 & 7.0000D+01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & -1.5000D+00, 0.0000D+00,-3.1000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00,-3.5000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 5.8000D+01, 7.0000D+01, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 5.8000D+01, 7.0000D+01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 5.8000D+01, 0.0000D+00, 7.0000D+01, 0.0000D+00, 0.0000D+00, & ! 8 & 5.8000D+01, 0.0000D+00, 7.0000D+01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 5.8000D+01, 7.0000D+01, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 5.4000D+01, 5.5000D+01, 5.7000D+01, & ! 1 & 5.9000D+01, 5.8000D+01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 1.1600D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00,-3.4000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 3.4153D-08, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00/ ! 4 DATA ( RTDAT( 3,IRXXN ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00,-1.3100D+03, 0.0000D+00, 1.8800D+02, & ! O & 0.0000D+00,-2.0600D+03, 0.0000D+00, 0.0000D+00, 1.1500D+02, & ! + & 0.0000D+00,-9.4000D+02, 6.9300D+02, 1.1000D+02, 2.2400D+02, & ! 1 & 9.4500D+02, 0.0000D+00, 2.5000D+02, 1.9000D-33, 2.6600D-54, & ! + & 0.0000D+00,-1.6000D+02,-2.0000D+03, 5.3000D+02, 2.7000D+02, & ! 2 & -2.4700D+03, 0.0000D+00, 0.0000D+00, 1.1000D+02,-1.2600D+03, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00,-2.4500D+03, & ! 3 & 0.0000D+00,-1.1000D+04, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.6000D+02, 0.0000D+00, & ! 4 & 2.7000D-17, 0.0000D+00, 0.0000D+00,-1.0650D+04, 0.0000D+00, & ! + & 6.9000D+02, 0.0000D+00, 2.9000D+02, 0.0000D+00,-1.2100D+04, & ! 5 & 0.0000D+00, 9.8000D+02, 8.0000D+02, 5.0000D+02, 5.0000D+02, & ! + & 3.4000D+02, 0.0000D+00, 0.0000D+00, 0.0000D+00, 9.8000D+02, & ! 6 & 8.0000D+02, 5.0000D+02, 3.6000D+02, 8.0000D+02, 5.0000D+02, & ! + & 3.6000D+02, 7.8000D+02, 5.0000D+02, 0.0000D+00, 3.6000D+02, & ! 7 & 8.0000D+02, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 1.9000D+02, 0.0000D+00, 1.9000D+02, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 8.5000D+02, 1.9000D+02, & ! 9 & 1.3500D+02, 0.0000D+00, 0.0000D+00,-1.6000D+03, 0.0000D+00, & ! + & 6.2500D+02,-7.0000D+03, 0.0000D+00, 2.3000D+03,-1.1000D+03, & ! O & 3.4500D+02,-1.8600D+03, 0.0000D+00,-8.7000D+02, 4.0500D+02, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00,-1.8600D+03, & ! 1 & 3.4000D+02, 0.0000D+00,-1.8600D+03, 0.0000D+00,-1.8600D+03, & ! + & 5.7500D+02,-2.1000D+03, 3.4300D-33,-1.6900D+03,-1.0000D+03, & ! 2 & -3.4500D+02, 2.0000D+01, 0.0000D+00, 0.0000D+00,-6.2060D+02, & ! + & -5.8500D+02, 0.0000D+00,-5.7800D+03,-2.0000D+02, 4.0000D+02, & ! 3 & 0.0000D+00,-7.9200D+02, 0.0000D+00,-2.5800D+03,-2.8800D+03, & ! + & -2.8000D+02, 0.0000D+00,-1.8800D+03,-1.1550D+03, 0.0000D+00, & ! 4 & 5.1900D+02,-1.0130D+03, 0.0000D+00, 3.9000D+02, 0.0000D+00, & ! + & 3.6500D+02, 7.0000D+02, 0.0000D+00, 0.0000D+00,-8.3000D+03, & ! 5 & -1.9950D+03,-4.4800D+02, 5.1100D+02,-1.7700D+03,-1.8600D+03, & ! + & 0.0000D+00, 3.7200D+02, 0.0000D+00,-1.8600D+03,-4.0000D+02, & ! 6 & 7.0000D+02, 3.6500D+02, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 4.4900D+02,-8.2100D+02, 1.7500D+02, 0.0000D+00, & ! 7 & 4.4900D+02,-8.2100D+02, 1.7500D+02,-1.9000D+02, 3.6000D+02, & ! + & 0.0000D+00, 1.3000D+03, 0.0000D+00, 3.4000D+02, 3.6000D+02, & ! 8 & 0.0000D+00, 1.3000D+03, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 3.6000D+02, 1.3000D+03, 0.0000D+00, 0.0000D+00, 9.5000D+02, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00,-5.0000D+02, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00,-5.0000D+02, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00,-1.6900D+03, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00,-2.0000D+02, 0.0000D+00, 2.9000D+02, 3.4000D+02, & ! + & -1.1000D+02, 0.0000D+00, 0.0000D+00,-1.2400D+03, 0.0000D+00, & ! 3 & 0.0000D+00,-1.0000D+02, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00,-3.4000D+01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 4.5000D+01, 5.8000D+01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 3.6000D+02, 1.3000D+03, 3.6000D+02, 1.3000D+03, 3.6000D+02, & ! + & 1.3000D+03, 0.0000D+00, 0.0000D+00, 0.0000D+00, 3.6000D+02, & ! 6 & 1.3000D+03, 3.7400D+02, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 2.0000D-06, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 3.8000D+02, 1.3000D+03, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 1.3500D+02, 0.0000D+00,-1.6000D+03, 0.0000D+00, & ! 1 & 0.0000D+00,-3.4000D+01, 3.4500D+02,-1.8600D+03,-1.1000D+03, & ! + & 0.0000D+00, 0.0000D+00, 4.4800D+02,-2.2830D+03, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 3.4000D+02, 0.0000D+00,-1.2565D+03, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 6.8000D+02/ ! 4 INTEGER :: IRRFALL( NFALLOFF ) DATA ( IRRFALL( IRXXN ), IRXXN = 1, NFALLOFF ) / & & 6, 17, 19, 20, 36, 37, 40, 45, 46, 48, & & 49, 52, 54, 55, 123, 136, 138, 142, 221, 223, & & 252, 277/ DATA ( RFDAT( 1,IRXXN ), IRXXN = 1, NFALLOFF ) / & & 2.3000D-11, 2.6000D-11, 9.8000D+02, 3.1800D+03, 1.9000D-12, & & 9.7000D+14, 3.3000D-11, 2.8000D-11, 2.1990D+03, 4.7000D-12, & & 4.8000D+15, 1.3000D-12, 1.2000D-11, 5.4000D+16, 0.0000D+00, & & 1.0000D-12, 9.0000D-12, 3.0000D-11, 4.3000D-01, 4.3000D-01, & & 1.5000D-11, 1.0743D+01/ DATA ( RFDAT( 2,IRXXN ), IRXXN = 1, NFALLOFF ) / & & 2.4000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.0000D-01, & & 1.0000D-01,-3.0000D-01, 0.0000D+00, 6.5000D-34, 0.0000D+00, & & 0.0000D+00,-7.0000D-01,-9.0000D-01, 0.0000D+00, 0.0000D+00, & & 0.0000D+00,-8.5000D-01,-1.0000D+00,-8.0000D+00,-8.0000D+00, & & -1.9000D+00,-6.7130D-01/ DATA ( RFDAT( 3,IRXXN ), IRXXN = 1, NFALLOFF ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & & -1.1080D+04, 0.0000D+00, 0.0000D+00, 1.3350D+03, 0.0000D+00, & & -1.1170D+04, 0.0000D+00, 0.0000D+00,-1.3830D+04, 0.0000D+00, & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & & 0.0000D+00, 0.0000D+00/ DATA ( RFDAT( 4,IRXXN ), IRXXN = 1, NFALLOFF ) / & & 6.0000D-01, 5.0000D-01, 0.0000D+00, 0.0000D+00, 3.5000D-01, & & 3.5000D-01, 8.1000D-01, 6.0000D-01, 0.0000D+00, 6.0000D-01, & & 6.0000D-01, 5.3000D-01, 3.0000D-01, 3.0000D-01, 0.0000D+00, & & 3.7000D-01, 4.8000D-01, 5.0000D-01, 4.1000D-01, 4.1000D-01, & & 6.0000D-01, 0.0000D+00/ DATA ( RFDAT( 5,IRXXN ), IRXXN = 1, NFALLOFF ) / & & 1.0000D+00, 1.1300D+00, 0.0000D+00, 0.0000D+00, 1.3300D+00, & & 1.3300D+00, 8.7000D-01, 1.0000D+00, 0.0000D+00, 1.0000D+00, & & 1.0000D+00, 1.1000D+00, 1.4100D+00, 1.4100D+00, 0.0000D+00, & & 1.3000D+00, 1.1500D+00, 1.1300D+00, 1.0000D+00, 1.0000D+00, & & 1.0000D+00, 0.0000D+00/ REAL( 8 ) :: SC( NRXNS,MXPRD ) DATA ( SC( IRXXN, 1 ), IRXXN = 1, NRXNS ) / & & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! O & 1.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 2.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 1 & 1.0000D+00, 1.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 2.0000D+00, 1.0000D+00, 1.0000D+00, 2.0000D+00, 1.0000D+00, & ! 2 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 2.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 2.0000D+00, & ! 3 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 2.0000D+00, 1.0000D+00, & ! + & 2.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 4 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 5.9000D-01, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 5 & 6.0000D-01, 4.1000D-01, 1.0000D+00, 2.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 6.0000D-01, 4.1000D-01, & ! 6 & 8.0000D-01, 2.0000D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00, & ! + & 1.0000D+00, 9.0000D-01, 1.0000D+00, 6.8500D-01, 1.0000D+00, & ! 7 & 1.0000D+00, 8.0000D-01, 6.0000D-01, 1.0000D+00, 1.0000D+00, & ! + & 8.0000D-01, 1.0000D+00, 5.0000D-01, 1.0000D+00, 8.0000D-01, & ! 8 & 1.0000D+00, 6.0000D-01, 1.0000D+00, 5.4000D-01, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 9 & 1.0000D+00, 2.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 5.0000D-01, 1.0000D+00, & ! O & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 2.0000D-01, 7.4000D-01, 1.0000D+00, & ! 1 & 1.8000D+00, 2.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 9.9100D-01, & ! 2 & 1.0000D+00, 9.5000D-01, 5.0000D-01, 3.8000D-01, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 2.0000D-01, 1.0000D+00, 1.0000D+00, & ! 3 & 7.0000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 5.0000D-01, & ! + & 2.0000D-01, 7.8100D-01, 2.9500D-01, 5.0000D-01, 1.2400D+00, & ! 4 & 1.3000D+00, 7.3200D-01, 5.0000D-01, 1.0000D+00, 7.5000D-01, & ! + & 1.0000D-01, 8.8000D-01, 5.9800D-01, 5.9800D-01, 1.0000D+00, & ! 5 & 6.0000D-01, 3.5000D-01, 2.2000D-02, 4.0000D-02, 7.1700D-01, & ! + & 7.6000D-01, 9.0400D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 6 & 2.7500D-01, 2.7500D-01, 2.2000D-01, 2.7500D-01, 6.3000D-01, & ! + & 1.5000D-01, 7.5000D-01, 5.7000D-01, 4.7000D-01, 1.5000D-01, & ! 7 & 7.5000D-01, 5.7000D-01, 4.7000D-01, 5.3000D-01, 9.1800D-01, & ! + & 1.0000D+00, 0.0000D+00, 1.0000D+00, 1.8000D-01, 8.6000D-01, & ! 8 & 4.8000D-01, 0.0000D+00, 4.8000D-01, 1.5500D-01, 1.5500D-01, & ! + & 8.6000D-01, 0.0000D+00, 2.6000D-01, 2.6000D-01, 2.5000D-02, & ! 9 & 3.0000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 4.0000D-01, 1.0000D+00, 1.2000D+00, 5.0000D-01, & ! O & 1.0000D+00, 6.0000D-01, 1.4000D+00, 1.0000D+00, 1.4000D-01, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 4.1000D-01, & ! 1 & 1.0000D+00, 8.0000D-01, 5.0000D-01, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 7.3200D-01, 1.0000D+00, 1.2600D-01, 2.0000D+00, & ! 2 & 1.0000D+00, 1.0000D+00, 3.0000D-01, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 3 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 3.0000D-01, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 4 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 5 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 6 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 7 & 5.0000D-01, 0.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 8 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00, 1.0000D+00, & ! + & 9.0700D-01, 9.2500D-01, 9.4300D-01, 5.0000D-01, 5.0000D-01, & ! 9 & 1.5000D+00, 1.2500D+00, 1.0000D+00, 1.2500D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! O & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 0.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 2 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00, & ! 3 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 5.0000D-01, 1.0000D+00, & ! + & 1.0000D+00, 5.0000D-01, 5.0000D-01/ ! 4 DATA ( SC( IRXXN, 2 ), IRXXN = 1, NRXNS ) / & & 1.0000D+00, 1.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, 1.0000D+00, & ! 2 & 0.0000D+00, 1.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, & ! + & 0.0000D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 1.0000D+00, 0.0000D+00, 1.0000D+00, 5.9000D-01, & ! + & 0.0000D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00, 1.0000D+00, & ! 5 & 6.0000D-01, 1.5000D-01, 0.0000D+00, 2.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 0.0000D+00, 1.0000D+00, 6.0000D-01, 1.5000D-01, & ! 6 & 8.0000D-01, 2.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 1.0000D+00, 1.0000D-01, 9.0000D-01, 3.1500D-01, 1.0000D+00, & ! 7 & 0.0000D+00, 8.0000D-01, 1.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 2.0000D-01, 0.0000D+00, 5.0000D-01, 0.0000D+00, 8.0000D-01, & ! 8 & 0.0000D+00, 6.0000D-01, 1.0000D+00, 6.0000D-02, 1.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, & ! 9 & 1.0000D+00, 1.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 0.0000D+00, 1.0000D+00, 1.0000D+00, 5.0000D-01, 1.0000D+00, & ! O & 0.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 2.0000D-01, 8.9000D-01, 1.0000D+00, & ! 1 & 2.0000D-01, 2.0000D+00, 1.5000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, 9.9100D-01, & ! 2 & 1.0000D+00, 9.0000D-01, 5.0000D-01, 1.3800D+00, 1.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 4.2000D-01, 1.0000D+00, 0.0000D+00, & ! 3 & 7.0000D-01, 1.0000D+00, 1.0000D+00, 5.1000D-01, 5.0000D-01, & ! + & 3.0000D-01, 4.8800D-01, 5.5500D-01, 5.0000D-01, 6.6000D-01, & ! 4 & 7.0000D-01, 4.4200D-01, 5.0000D-01, 1.0000D+00, 5.0000D-01, & ! + & 9.0000D-01, 1.2000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 5 & 6.5000D-01, 6.5000D-01, 5.2100D-01, 2.3100D-01, 1.4200D-01, & ! + & 3.4000D-01, 9.3300D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 6 & 2.7500D-01, 2.7500D-01, 2.2000D-01, 2.7500D-01, 3.7000D-01, & ! + & 5.1200D+00, 5.0000D-01, 7.0000D-02, 2.8000D-01, 5.1200D+00, & ! 7 & 5.0000D-01, 7.0000D-02, 2.8000D-01, 3.5200D-01, 8.2000D-02, & ! + & 1.0000D+00, 0.0000D+00, 1.0000D+00, 6.5000D-01, 1.4000D-01, & ! 8 & 5.2000D-01, 0.0000D+00, 5.2000D-01, 5.4400D-01, 5.4400D-01, & ! + & 1.4000D-01, 0.0000D+00, 7.7000D-01, 7.7000D-01, 2.5000D-02, & ! 9 & 1.0000D+00, 0.0000D+00, 0.0000D+00, 5.0000D-01, 5.0000D-01, & ! + & 1.0000D+00, 1.0000D+00, 4.0000D-01, 5.0000D-01, 5.0000D-01, & ! O & 1.0000D+00, 4.0000D-01, 2.4000D-01, 1.0000D+00, 2.0000D-01, & ! + & 1.0000D+00, 5.0000D-01, 0.0000D+00, 1.0000D+00, 1.5000D-01, & ! 1 & 1.0000D+00, 8.0000D-01, 5.0000D-01, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 2.6800D-01, 1.0000D+00, 8.7400D-01, 0.0000D+00, & ! 2 & 1.0000D+00, 0.0000D+00, 1.4000D+00, 1.0000D+00, 0.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 3 & 1.0000D+00, 9.9100D-01, 2.0000D+00, 3.3000D-01, 7.0000D-01, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 4 & 1.0000D+00, 0.0000D+00, 1.8000D-01, 1.5500D-01, 1.5500D-01, & ! + & 1.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 5 & 1.6000D-02, 1.4000D-01, 1.5000D-02, 1.9300D-01, 3.4000D-02, & ! + & 1.4600D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 2.8000D-02, & ! 6 & 4.7300D-01, 6.0000D-03, 0.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 5.0000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 6.8800D-01, 1.0000D+00, 4.2200D-01, & ! 8 & 7.1100D-01, 3.7000D-01, 2.4000D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 1.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, & ! + & 1.0000D+00, 4.8570D-01, 3.0030D-01, 3.8560D-01, 2.1810D-01, & ! O & 2.4120D-01, 6.6640D-01, 2.8580D-01, 3.3030D-01, 3.4440D-01, & ! + & 3.8860D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 5.8000D-01, 5.2000D-01, 4.5000D-02, & ! 2 & 5.8000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 5.0000D-01, 1.0000D+00, & ! + & 1.0000D+00, 5.0000D-01, 5.0000D-01/ ! 4 DATA ( SC( IRXXN, 3 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 4.1000D-01, & ! + & 0.0000D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 4.0000D-01, 1.5000D-01, 0.0000D+00, 0.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 0.0000D+00, 0.0000D+00, 4.0000D-01, 1.5000D-01, & ! 6 & 8.0000D-01, 2.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 1.0000D+00, 0.0000D+00, 9.0000D-01, 3.7000D-01, 0.0000D+00, & ! 7 & 0.0000D+00, 2.0000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 8.0000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.0000D-01, & ! 8 & 0.0000D+00, 4.0000D-01, 1.0000D+00, 6.0000D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 1.0000D+00, 2.0000D-01, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 1.0000D+00, 8.0000D-01, 1.4000D+00, 0.0000D+00, & ! 1 & 2.0000D-01, 0.0000D+00, 5.0000D-01, 1.0000D+00, 1.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 9.0000D-03, & ! 2 & 0.0000D+00, 1.0000D-01, 5.0000D-01, 1.3800D+00, 1.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 7.4000D-01, 0.0000D+00, 0.0000D+00, & ! 3 & 3.0000D-01, 1.0000D+00, 1.5600D+00, 1.6000D-01, 5.0000D-01, & ! + & 1.0000D-01, 4.8800D-01, 2.7000D-01, 4.8000D-01, 1.0000D-01, & ! 4 & 1.0000D+00, 1.2800D-01, 4.8000D-01, 1.0000D+00, 2.5000D-01, & ! + & 6.7300D-01, 1.2000D-01, 7.2800D-01, 7.2800D-01, 0.0000D+00, & ! 5 & 1.5000D-01, 6.4000D-01, 1.1500D-01, 5.3100D-01, 1.4200D-01, & ! + & 1.6000D-01, 6.7000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 2.7500D-01, 2.7500D-01, 2.2000D-01, 2.7500D-01, 1.0000D+00, & ! + & 1.0000D+00, 2.5000D-01, 6.9000D-01, 7.5000D-01, 1.0000D+00, & ! 7 & 2.5000D-01, 6.9000D-01, 7.5000D-01, 3.5200D-01, 9.1800D-01, & ! + & 1.0000D+00, 0.0000D+00, 1.0000D+00, 7.2000D-01, 4.1700D-01, & ! 8 & 7.7000D-01, 0.0000D+00, 7.7000D-01, 6.0200D-01, 6.0200D-01, & ! + & 2.2100D-01, 0.0000D+00, 3.5000D-01, 3.5000D-01, 1.0000D+00, & ! 9 & 4.8000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 7.0000D-01, 2.0000D+00, 6.0000D-01, 4.5000D-01, & ! O & 1.0000D+00, 4.0000D-01, 5.0000D-01, 0.0000D+00, 5.0000D-01, & ! + & 0.0000D+00, 5.0000D-01, 0.0000D+00, 0.0000D+00, 1.5000D-01, & ! 1 & 1.0000D+00, 1.8000D+00, 1.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 2.6800D-01, 0.0000D+00, 1.2600D-01, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 1.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00, & ! 3 & 9.7000D-01, 9.9100D-01, 1.0000D+00, 6.7000D-01, 4.5000D-01, & ! + & 9.6000D-01, 1.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, & ! 4 & 1.0000D+00, 0.0000D+00, 6.5000D-01, 5.4400D-01, 5.4400D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 5.1000D-02, 0.0000D+00, 2.3000D-02, 0.0000D+00, 3.9200D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.2500D-01, & ! 6 & 0.0000D+00, 5.2000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 1.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 6.2000D-03, 2.8620D-01, 9.5000D-02, 3.0630D-01, & ! O & 2.0890D-01, 1.4300D-02, 3.9310D-01, 2.2720D-01, 2.7490D-01, & ! + & 2.4210D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 1.0000D+00, 1.0000D+00/ ! 4 DATA ( SC( IRXXN, 4 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 4.1000D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 4.0000D-01, 4.4000D-01, 0.0000D+00, 0.0000D+00, 2.0000D+00, & ! + & 1.0000D+00, 0.0000D+00, 0.0000D+00, 4.0000D-01, 4.4000D-01, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 1.0000D-01, 1.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 8.0000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 8.0000D-01, & ! 8 & 0.0000D+00, 4.0000D-01, 0.0000D+00, 4.0000D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.0000D-01, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 1.0000D+00, 0.0000D+00, 1.5000D-01, 0.0000D+00, & ! 1 & 1.0000D+00, 0.0000D+00, 5.0000D-01, 0.0000D+00, 1.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, & ! 2 & 0.0000D+00, 1.0000D-01, 5.0000D-01, 6.2000D-01, 1.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 3.7000D-01, 0.0000D+00, 0.0000D+00, & ! 3 & 3.0000D-01, 7.0000D-01, 2.2000D-01, 1.6000D-01, 5.0000D-01, & ! + & 2.0000D-01, 9.7600D-01, 1.5000D-01, 4.8000D-01, 1.0000D-01, & ! 4 & 1.0000D+00, 2.4500D-01, 4.8000D-01, 0.0000D+00, 2.5000D-01, & ! + & 9.0000D-01, 1.2000D-01, 7.2000D-02, 7.2000D-02, 0.0000D+00, & ! 5 & 2.0000D-01, 3.3000D-01, 1.1500D-01, 1.7000D-01, 1.4200D-01, & ! + & 3.4000D-01, 6.7000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 1.1250D+00, 1.2500D-01, 1.0000D-01, 1.2500D-01, 4.4400D-01, & ! + & 0.0000D+00, 1.5000D+00, 1.8000D-01, 2.5000D-01, 0.0000D+00, & ! 7 & 1.5000D+00, 1.8000D-01, 2.5000D-01, 1.1800D-01, 9.1800D-01, & ! + & 1.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D-01, 4.4300D-01, & ! 8 & 2.3000D-01, 0.0000D+00, 2.3000D-01, 2.4400D-01, 2.4400D-01, & ! + & 6.7500D-01, 0.0000D+00, 6.5000D-01, 6.5000D-01, 2.0000D-01, & ! 9 & 1.2000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 1.0000D+00, 7.0000D-01, 2.0000D+00, 1.0000D-01, 4.5000D-01, & ! O & 0.0000D+00, 4.0000D-01, 1.2000D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 8.0000D-01, 0.0000D+00, 0.0000D+00, 4.4000D-01, & ! 1 & 2.0000D+00, 2.0000D-01, 5.0000D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 1.0000D+00, 0.0000D+00, 8.7400D-01, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 3.0000D-02, 9.0000D-03, 1.0000D+00, 2.0000D+00, 5.5000D-01, & ! + & 4.0000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 7.2000D-01, 6.0200D-01, 6.0200D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 4.7000D-02, 0.0000D+00, 6.0000D-02, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.9100D-01, & ! 6 & 0.0000D+00, 8.1000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 2.5000D-03, 4.1000D-03, 1.3730D-01, 1.5300D-02, & ! O & 3.0000D-01, 1.2300D-02, 1.3900D-02, 2.6070D-01, 4.9100D-02, & ! + & 6.4000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 1.0000D+00/ ! 4 DATA ( SC( IRXXN, 5 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 4.0000D-01, 4.4000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 4.0000D-01, 4.4000D-01, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 9.0000D-01, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 1.0000D+00, 0.0000D+00, 1.9000D-01, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 7.8000D-02, 5.0000D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 4.0000D-02, 0.0000D+00, 0.0000D+00, & ! 3 & 3.0000D-01, 7.0000D-01, 0.0000D+00, 3.7000D-01, 1.0000D+00, & ! + & 2.0000D-01, 1.9500D-01, 1.5000D-01, 4.0000D-02, 1.0000D-01, & ! 4 & 0.0000D+00, 5.0000D-01, 4.0000D-02, 0.0000D+00, 2.5000D-01, & ! + & 8.1800D-01, 1.2000D-01, 8.0000D-01, 1.0720D+00, 0.0000D+00, & ! 5 & 3.5000D-01, 3.0000D-02, 2.6900D-01, 1.7000D-01, 1.4200D-01, & ! + & 2.0800D-01, 2.9000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 8.2500D-01, 8.2500D-01, 6.6000D-01, 8.2500D-01, 1.8500D-01, & ! + & 0.0000D+00, 2.8000D-01, 9.4000D-01, 1.2800D+00, 0.0000D+00, & ! 7 & 2.8000D-01, 9.4000D-01, 1.2800D+00, 1.1800D-01, 9.1800D-01, & ! + & 1.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D-01, 6.6000D-01, & ! 8 & 1.0000D+00, 0.0000D+00, 1.0000D+00, 2.4400D-01, 2.4400D-01, & ! + & 3.0000D-01, 0.0000D+00, 1.0000D+00, 1.0000D+00, 7.3200D-01, & ! 9 & 2.4000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 3.0000D-01, 0.0000D+00, 5.0000D-01, 1.0000D-01, & ! O & 0.0000D+00, 0.0000D+00, 8.0000D-02, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 2.0000D-01, 0.0000D+00, 0.0000D+00, 4.4000D-01, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 1.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 1.0000D+00, 1.0000D+00, 0.0000D+00, 1.0000D+00, 3.0000D-01, & ! + & 1.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 1.0000D-01, 2.4400D-01, 2.4400D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 2.6000D-03, 3.5000D-03, 5.0000D-04, 1.0430D-01, & ! O & 2.0280D-01, 1.2390D-01, 1.0270D-01, 7.0200D-02, 2.5770D-01, & ! + & 3.8500D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00/ ! 4 DATA ( SC( IRXXN, 6 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 4.4000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 4.0000D-01, 4.4000D-01, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.1000D-01, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 1.1000D-02, 1.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 9.4000D-01, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 3.0000D-01, 0.0000D+00, 0.0000D+00, 1.1250D+00, & ! + & 2.0000D-01, 2.4000D-02, 3.3400D-01, 1.0000D+00, 1.0000D-01, & ! 4 & 0.0000D+00, 3.0000D-01, 1.0000D+00, 0.0000D+00, 2.5000D-01, & ! + & 8.2000D-02, 0.0000D+00, 2.0000D-01, 0.0000D+00, 0.0000D+00, & ! 5 & 2.6600D-01, 1.0000D+00, 2.6900D-01, 5.4300D-01, 1.1300D-01, & ! + & 2.6000D-01, 2.9000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 3.7500D-01, 3.7500D-01, 3.0000D-01, 3.7500D-01, 1.0400D-01, & ! + & 0.0000D+00, 1.6600D+00, 2.4000D-01, 4.7000D-01, 0.0000D+00, & ! 7 & 1.6600D+00, 2.4000D-01, 4.7000D-01, 5.3000D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 7.0000D-02, 2.0000D-01, & ! 8 & 1.0000D+00, 0.0000D+00, 1.0000D+00, 5.8000D-02, 5.8000D-02, & ! + & 5.6000D-01, 0.0000D+00, 1.0000D+00, 1.0000D+00, 2.0000D-02, & ! 9 & 2.4000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 3.0000D-01, 1.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 2.0000D-02, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 4.4000D-01, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00,-1.2600D-01, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00,-1.0000D+00, 3.0000D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 1.0000D-01, 2.4400D-01, 2.4400D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 2.3000D-03, 2.2390D-01, 2.0510D-01, 1.8930D-01, & ! O & 4.7100D-02, 1.8310D-01, 2.0450D-01, 1.1160D-01, 7.3900D-02, & ! + & 2.6670D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00/ ! 4 DATA ( SC( IRXXN, 7 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 4.4000D-01, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.1000D-01, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00,-2.5000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 9.8000D-01, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 1.0000D-02, 1.1950D+00, 8.0000D-02, 5.0000D-01, 0.0000D+00, & ! 4 & 0.0000D+00, 3.0000D-01, 5.0000D-01, 0.0000D+00, 2.5000D-01, & ! + & 8.2000D-02, 0.0000D+00, 8.7200D-01, 0.0000D+00, 0.0000D+00, & ! 5 & 2.0000D-01, 3.5000D-01, 4.5700D-01, 4.6100D-01, 1.1300D-01, & ! + & 2.4000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 7.4000D-02, 1.0000D+00, 2.0000D-01, 2.5100D-01, 5.9200D-01, & ! + & 0.0000D+00, 4.7000D-01, 1.0000D-03, 5.3000D-01, 0.0000D+00, & ! 7 & 4.7000D-01, 1.0000D-03, 5.3000D-01, 1.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.8000D-01, 8.6000D-01, & ! 8 & 1.0000D+00, 0.0000D+00, 0.0000D+00, 1.5500D-01, 1.5500D-01, & ! + & 8.6000D-01, 0.0000D+00, 1.0000D+00, 0.0000D+00, 2.0000D-02, & ! 9 & 4.8000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 3.0000D-01, 2.5000D-01, & ! O & 0.0000D+00, 0.0000D+00, 1.9800D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 4.4000D-01, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.7000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 7.0000D-02, 5.8000D-02, 5.8000D-02, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 2.9440D-01, 1.8200D-01, 1.7640D-01, 1.6680D-01, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00/ ! 4 DATA ( SC( IRXXN, 8 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.1000D-01, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 2.0000D-02, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 2.1000D-01,-7.3000D-01, 3.7800D-01, 2.5000D-01, 0.0000D+00, & ! 4 & 0.0000D+00, 2.4000D-01, 6.2500D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 2.0000D-01, 3.5000D-01, 1.1700D-01, 1.5000D-01, 7.1700D-01, & ! + & 2.4000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 2.5100D-01, 2.5100D-01, 1.7400D+00, 2.1750D+00, 3.3100D-01, & ! + & 0.0000D+00, 1.0000D+00, 7.0000D+00, 1.0000D+00, 0.0000D+00, & ! 7 & 1.0000D+00, 7.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 1.0000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.5000D-01, & ! O & 0.0000D+00, 0.0000D+00, 5.6000D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 1.8000D-01, 1.5500D-01, 1.5500D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 2.0210D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00/ ! 4 DATA ( SC( IRXXN, 9 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00,-2.7000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 2.0000D-01, 0.0000D+00, 7.5000D-02, 3.7500D-01, 0.0000D+00, & ! 4 & 0.0000D+00, 6.0000D-02, 1.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 6.6000D-02, 1.0000D+00, 1.3700D-01, 3.9800D-01, 7.1700D-01, & ! + & 1.7000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 2.1750D+00, 2.1750D+00, 8.0000D-01, 1.0000D+00, 1.8500D-01, & ! + & 0.0000D+00, 0.0000D+00, 2.1000D-01, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 2.1000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 7.0000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 1.9000D-03, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00/ ! 4 DATA ( SC( IRXXN, 10 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 1.0000D-01, 0.0000D+00, 7.5000D-02,-1.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 2.9000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 6.6000D-02, 0.0000D+00, 1.3700D-01, 1.4300D-01, 2.8400D-01, & ! + & 1.2800D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 2.0000D-01, 0.0000D+00, 2.7000D+00, & ! + & 0.0000D+00, 0.0000D+00, 3.9000D-01, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 3.9000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 2.3000D-03, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00/ ! 4 DATA ( SC( IRXXN, 11 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 9.0000D-02, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 8.0000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 1.3700D-01, 0.0000D+00, 0.0000D+00, & ! + & 8.4000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 8.0000D-01, 0.0000D+00, 9.8000D-02, & ! + & 0.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 1.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00/ ! 4 DATA ( SC( IRXXN, 12 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 1.3000D-01, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 8.0000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 6.5800D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 7.8000D-02, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00/ ! 4 DATA ( SC( IRXXN, 13 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 4.0000D-02, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.6600D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00/ ! 4 DATA ( SC( IRXXN, 14 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00,-7.9000D-01, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00/ ! 4 INTEGER :: NREACT( NRXNS ) DATA ( NREACT( IRXXN ), IRXXN = 1, NRXNS ) / & & 1, 1, 2, 2, 2, 2, 2, 1, 1, 1, & ! O & 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 1 & 1, 2, 2, 2, 2, 2, 1, 1, 2, 2, & ! 2 & 2, 2, 2, 2, 2, 2, 1, 1, 1, 2, & ! 3 & 2, 2, 1, 2, 2, 2, 1, 2, 1, 1, & ! 4 & 2, 2, 2, 2, 1, 1, 2, 2, 2, 2, & ! 5 & 2, 2, 1, 1, 2, 2, 2, 2, 2, 2, & ! 6 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 7 & 2, 2, 2, 2, 2, 2, 2, 1, 2, 1, & ! 8 & 2, 1, 2, 2, 2, 2, 1, 1, 2, 2, & ! 9 & 2, 1, 2, 2, 2, 2, 2, 1, 2, 2, & ! O & 2, 1, 2, 1, 2, 2, 1, 2, 1, 2, & ! 1 & 2, 1, 2, 1, 2, 2, 2, 1, 1, 2, & ! 2 & 2, 2, 1, 1, 2, 2, 2, 2, 2, 2, & ! 3 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 4 & 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, & ! 5 & 1, 2, 1, 2, 2, 2, 2, 2, 2, 2, & ! 6 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 7 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 8 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 9 & 1, 1, 2, 2, 2, 1, 2, 2, 2, 2, & ! O & 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, & ! 1 & 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, & ! 2 & 2, 2, 1, 1, 2, 2, 2, 2, 2, 2, & ! 3 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 4 & 1, 2, 1, 1, 1, 2, 2, 2, 2, 2, & ! 5 & 2, 2, 2, 2, 2, 2, 2, 1, 1, 1, & ! 6 & 1, 1, 2, 2, 2, 1, 1, 1, 2, 1, & ! 7 & 1, 1, 2, 2, 2, 2, 2, 2, 1, 1, & ! 8 & 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, & ! 9 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! O & 2, 2, 2, 2, 1, 1, 2, 2, 2, 2, & ! 1 & 1, 2, 2, 2, 2, 2, 2, 2, 2, 1, & ! 2 & 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, & ! 3 & 2, 2, 2/ ! 4 INTEGER :: NPRDCT( NRXNS ) DATA ( NPRDCT( IRXXN ), IRXXN = 1, NRXNS ) / & & 2, 1, 1, 1, 1, 1, 0, 1, 1, 1, & ! O & 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, & ! 1 & 1, 1, 2, 1, 2, 1, 2, 1, 1, 2, & ! 2 & 1, 2, 2, 1, 1, 1, 2, 2, 1, 1, & ! 3 & 1, 2, 2, 1, 1, 1, 2, 1, 2, 4, & ! 4 & 1, 3, 3, 1, 2, 5, 6, 1, 2, 4, & ! 5 & 4, 1, 2, 6, 7, 3, 3, 1, 1, 0, & ! 6 & 3, 2, 5, 4, 2, 1, 4, 2, 1, 1, & ! 7 & 3, 1, 2, 1, 4, 1, 4, 3, 4, 2, & ! 8 & 1, 1, 1, 2, 1, 2, 2, 1, 3, 3, & ! 9 & 1, 2, 3, 4, 2, 1, 2, 4, 2, 1, & ! O & 2, 5, 3, 8, 2, 4, 2, 5, 3, 4, & ! 1 & 2, 1, 1, 2, 4, 2, 6, 7, 4, 4, & ! 2 & 1, 1, 9, 2, 1, 5, 6, 4, 5, 6, & ! 3 & 10, 8, 14, 10, 6, 4, 12, 9, 3, 7, & ! 4 & 7, 5, 7, 5, 2, 10, 9, 12, 10, 10, & ! 5 & 11, 6, 2, 2, 2, 9, 9, 11, 9, 13, & ! 6 & 3, 8, 11, 8, 3, 8, 11, 7, 7, 5, & ! 7 & 5, 0, 4, 8, 7, 7, 0, 6, 8, 8, & ! 8 & 7, 0, 7, 6, 7, 9, 1, 1, 2, 3, & ! 9 & 4, 5, 4, 7, 8, 3, 4, 8, 2, 3, & ! O & 2, 5, 1, 2, 7, 4, 4, 4, 2, 2, & ! 1 & 2, 5, 2, 6, 1, 2, 1, 2, 2, 1, & ! 2 & 3, 2, 3, 3, 2, 5, 5, 4, 6, 8, & ! 3 & 5, 3, 2, 2, 3, 3, 1, 9, 9, 9, & ! 4 & 2, 1, 2, 2, 2, 4, 2, 4, 2, 3, & ! 5 & 2, 2, 2, 2, 4, 2, 4, 1, 2, 2, & ! 6 & 1, 1, 1, 1, 1, 2, 0, 1, 1, 1, & ! 7 & 1, 1, 2, 2, 2, 2, 2, 2, 0, 1, & ! 8 & 1, 1, 1, 1, 1, 1, 3, 1, 3, 1, & ! 9 & 2, 10, 7, 7, 7, 6, 6, 6, 6, 6, & ! O & 6, 1, 1, 1, 0, 0, 1, 1, 1, 1, & ! 1 & 0, 1, 2, 2, 2, 2, 1, 1, 1, 0, & ! 2 & 1, 1, 1, 1, 0, 1, 1, 1, 3, 2, & ! 3 & 2, 3, 3/ ! 4 INTEGER, PARAMETER :: MHETERO = 17 INTEGER :: IHETERO( MHETERO,2 ) DATA ( IHETERO( IRXXN,1 ), IRXXN = 1, MHETERO ) / & & 255, 268, 269, 270, 271, 272, 273, 274, 275, 276, & & 278, 279, 280, 281, 282, 298, 300/ DATA ( IHETERO( IRXXN,2 ), IRXXN = 1, MHETERO ) / & & 1, 2, 3, 4, 5, 6, 7, 7, 8, 9, & & 10, 11, 12, 13, 14, 15, 16/ INTEGER, PARAMETER :: NPHOTAB = 32 CHARACTER( 16 ) :: PHOTAB( NPHOTAB ) DATA ( PHOTAB( IRXXN ), IRXXN = 1, NPHOTAB ) / & & 'NO2_IUPAC10 ', 'O3_O3P_IUPAC10 ', 'O3_O1D_IUPAC10 ', & & 'H2O2_IUPAC10 ', 'NO3NO2_06 ', 'NO3NO_06 ', & & 'N2O5_IUPAC10 ', 'HONO_IUPAC10 ', 'HNO3_IUPAC10 ', & & 'PNA_IUPAC10 ', 'PAN_IUPAC10 ', 'MEPX_IUPAC10 ', & & 'NTR_IUPAC10 ', 'FORM_R_IUPAC10 ', 'FORM_M_IUPAC10 ', & & 'ALD2_R_IUPAC10 ', 'ALDX_R_IUPAC10 ', 'GLYD_IUPAC10 ', & & 'GLY_R_IUPAC10 ', 'MGLY_IUPAC10 ', 'KET_IUPAC10 ', & & 'ACET_IUPAC10 ', 'ISPD ', 'HPALD ', & & 'CL2_IUPAC04 ', 'HOCL_IUPAC04 ', 'FMCL_IUPAC04 ', & & 'CLNO2_IUPAC13 ', 'CLONO2_1 ', 'CLONO2_2 ', & & 'IC3ONO2 ', 'ACRO_09 '/ INTEGER, PARAMETER :: NHETERO = 16 CHARACTER( 16 ) :: HETERO( NHETERO ) DATA ( HETERO( IRXXN ), IRXXN = 1, NHETERO ) / & & 'HETERO_CLNO3_WAJ', 'HETERO_NTR2 ', 'HETERO_N2O5IJ ', & & 'HETERO_N2O5K ', 'HETERO_H2NO3PAIJ', 'HETERO_H2NO3PAK ', & & 'HETERO_H2NO3PBIJ', 'HETERO_H2NO3PBK ', 'HETERO_NO2 ', & & 'HETERO_IEPOX ', 'HETERO_IEPOXOS ', 'HETERO_TETROL ', & & 'HETERO_GLY ', 'HETERO_MGLY ', 'HETERO_PNCOMLI ', & & 'HETERO_PNCOMLJ '/ CHARACTER( 16 ) :: RXLABEL( NRXNS ) DATA ( RXLABEL( IRXXN ), IRXXN = 1, NRXNS ) / & & 'R1 ', 'R2 ', 'R3 ', & ! 0 & 'R4 ', 'R5 ', 'R6 ', & ! 1 & 'R7 ', 'R8 ', 'R9 ', & ! 2 & 'R10 ', 'R11 ', 'R12 ', & ! 3 & 'R13 ', 'R14 ', 'R15 ', & ! 4 & 'R16 ', 'R17 ', 'R18 ', & ! 5 & 'R19 ', 'R20 ', 'R21 ', & ! 6 & 'R22 ', 'R23 ', 'R24 ', & ! 7 & 'R25 ', 'R26 ', 'R27 ', & ! 8 & 'R28 ', 'R29 ', 'R30 ', & ! 9 & 'R31 ', 'R32 ', 'R33 ', & ! 0 & 'R34 ', 'R35 ', 'R36 ', & ! 1 & 'R37 ', 'R38 ', 'R39 ', & ! 2 & 'R40 ', 'R41 ', 'R42 ', & ! 3 & 'R43 ', 'R44 ', 'R45 ', & ! 4 & 'R46 ', 'R47 ', 'R48 ', & ! 5 & 'R49 ', 'R50 ', 'R51 ', & ! 6 & 'R52 ', 'R53 ', 'R54 ', & ! 7 & 'R55 ', 'R56 ', 'R57 ', & ! 8 & 'R58 ', 'R59 ', 'R60 ', & ! 9 & 'R61 ', 'R62 ', 'R63 ', & ! 0 & 'R64 ', 'R65 ', 'R66 ', & ! 1 & 'R67 ', 'R68 ', 'R69 ', & ! 2 & 'R70 ', 'R71 ', 'R72 ', & ! 3 & 'R73 ', 'R74 ', 'R75 ', & ! 4 & 'R76 ', 'R77 ', 'R78 ', & ! 5 & 'R79 ', 'R80 ', 'R81 ', & ! 6 & 'R82 ', 'R83 ', 'R84 ', & ! 7 & 'R85 ', 'R86 ', 'R87 ', & ! 8 & 'R88 ', 'R89 ', 'R90 ', & ! 9 & 'R91 ', 'R92 ', 'R93 ', & ! 0 & 'R94 ', 'R95 ', 'R96 ', & ! 1 & 'R97 ', 'R98 ', 'R99 ', & ! 2 & 'R100 ', 'R101 ', 'R102 ', & ! 3 & 'R103 ', 'R104 ', 'R105 ', & ! 4 & 'R106 ', 'R107 ', 'R108 ', & ! 5 & 'R109 ', 'R110 ', 'R111 ', & ! 6 & 'R112 ', 'R113 ', 'R114 ', & ! 7 & 'R115 ', 'R116 ', 'R117 ', & ! 8 & 'R118 ', 'R119 ', 'R120 ', & ! 9 & 'R121 ', 'R122 ', 'R123 ', & ! 0 & 'R124 ', 'R125 ', 'R126 ', & ! 1 & 'R127 ', 'R128 ', 'R129 ', & ! 2 & 'R130 ', 'R131 ', 'R132 ', & ! 3 & 'R133 ', 'R134 ', 'R135 ', & ! 4 & 'R136 ', 'R137 ', 'R138 ', & ! 5 & 'R139 ', 'R140 ', 'R141 ', & ! 6 & 'R142 ', 'R143 ', 'R144 ', & ! 7 & 'R145 ', 'R146 ', 'R147 ', & ! 8 & 'R148 ', 'R149 ', 'R150 ', & ! 9 & 'R151 ', 'R152 ', 'R153 ', & ! 0 & 'R154 ', 'R155 ', 'R156 ', & ! 1 & 'R157 ', 'R158 ', 'R159 ', & ! 2 & 'R160 ', 'R161 ', 'R162 ', & ! 3 & 'R163 ', 'R164 ', 'R165 ', & ! 4 & 'R166 ', 'R167 ', 'R168 ', & ! 5 & 'R169 ', 'R170 ', 'R171 ', & ! 6 & 'R172 ', 'R173 ', 'R174 ', & ! 7 & 'R171a ', 'R172a ', 'R173a ', & ! 8 & 'R174a ', 'R175 ', 'R176 ', & ! 9 & 'R177 ', 'R178 ', 'R179 ', & ! 0 & 'R180 ', 'R181 ', 'R182 ', & ! 1 & 'R183 ', 'R184 ', 'R185 ', & ! 2 & 'R185a ', 'R186 ', 'R187 ', & ! 3 & 'R188 ', 'R189 ', 'R190 ', & ! 4 & 'R191 ', 'R192 ', 'R193 ', & ! 5 & 'R194 ', 'R195 ', 'R196 ', & ! 6 & 'R197 ', 'R198 ', 'R199 ', & ! 7 & 'R200 ', 'R201 ', 'R202 ', & ! 8 & 'R203 ', 'R204 ', 'R205 ', & ! 9 & 'R206 ', 'R207 ', 'R208 ', & ! 0 & 'R209 ', 'R210 ', 'R211 ', & ! 1 & 'R212 ', 'R213 ', 'R214 ', & ! 2 & 'R216 ', 'R217 ', 'R218 ', & ! 3 & 'R219 ', 'R220 ', 'CL1 ', & ! 4 & 'CL2 ', 'CL3 ', 'CL4 ', & ! 5 & 'CL5 ', 'CL6 ', 'CL7 ', & ! 6 & 'CL8 ', 'CL9 ', 'CL10 ', & ! 7 & 'CL11 ', 'CL12 ', 'CL13 ', & ! 8 & 'CL14 ', 'CL15 ', 'CL16 ', & ! 9 & 'CL17 ', 'CL18 ', 'CL19 ', & ! 0 & 'CL20 ', 'CL21 ', 'CL22 ', & ! 1 & 'CL23 ', 'CL24 ', 'CL25 ', & ! 2 & 'CL26 ', 'CL27 ', 'CL28 ', & ! 3 & 'CL30 ', 'CL31 ', 'HET_CLNO3_WAJ ', & ! 4 & 'SA01 ', 'SA02 ', 'SA03 ', & ! 5 & 'SA04 ', 'SA06 ', 'SA07 ', & ! 6 & 'SA08 ', 'SA09 ', 'SA10 ', & ! 7 & 'SA11 ', 'SA12 ', 'SA13 ', & ! 8 & 'HET_NTR2 ', 'HET_N2O5IJ ', 'HET_N2O5K ', & ! 9 & 'HET_H2NO3PIJA ', 'HET_H2NO3PKA ', 'HET_H2NO3PIB ', & ! 0 & 'HET_H2NO3PJB ', 'HET_H2NO3PKB ', 'HET_N02 ', & ! 1 & 'HAL_Ozone ', 'HET_IEPOX ', 'HET_IEPOXOS ', & ! 2 & 'HET_TETROL ', 'HET_GLY ', 'HET_MGLY ', & ! 3 & 'BL18a ', 'BL18b ', 'BL18c ', & ! 4 & 'BL18d ', 'CP07mtp ', 'BP70mtp ', & ! 5 & 'BP71mtp ', 'HYD_MT ', 'OLIG_AROMATIC1 ', & ! 6 & 'OLIG_AROMATIC2 ', 'OLIG_AROMATIC3 ', 'OLIG_ISOPRENE1 ', & ! 7 & 'OLIG_ISOPRENE2 ', 'OLIG_SESQT1 ', 'RPOAGEPI ', & ! 8 & 'RPOAGELI ', 'RPOAGEPJ ', 'RPOAGELJ ', & ! 9 & 'PCSOA ', 'POA_AGE1 ', 'POA_AGE2 ', & ! 0 & 'POA_AGE3 ', 'POA_AGE4 ', 'POA_AGE5 ', & ! 1 & 'POA_AGE6 ', 'POA_AGE7 ', 'POA_AGE8 ', & ! 2 & 'POA_AGE9 ', 'POA_AGE10 ', 'T01 ', & ! 3 & 'T02 ', 'T03 ', 'T04 ', & ! 4 & 'T05 ', 'TCL1 ', 'T06 ', & ! 5 & 'T07 ', 'T08 ', 'T09 ', & ! 6 & 'TCL2 ', 'T10 ', 'T11 ', & ! 7 & 'T12 ', 'TCL3 ', 'T13 ', & ! 8 & 'T14 ', 'T15 ', 'T16 ', & ! 9 & 'TCL4 ', 'T17 ', 'T18 ', & ! 0 & 'T19 ', 'T20 ', 'TCL5 ', & ! 1 & 'T21 ', 'TCL6 ', 'HG1 ', & ! 2 & 'HG2 ', 'HG3 ', 'HG4 ', & ! 3 & 'HG5 '/ ! 4 ! NSPECIAL = Number of special rate coefficients ! SPECIAL = Names of special rate coefficients ! NSPECIAL_RXN = Number of reactions with special rates ! ISPECIAL = Pointers to reactions using special rates and their special rate coefficients ! MAXSPECTERMS = Max Number of terms type used by special rate coefficients ! KC_COEFFS = Coefficients of standard rate coefficients times concentration terms ! INDEX_KTERMS = Pointers to standard rate coefficients in special rate coefficients ! INDEX_CTERMS = Pointers to species concentrations in special rate coefficients ! OPERATOR_COEFFS = Coefficients of preceeding special rate coefficients used in special coefficient ! OPERATORS = Pointers to preceeding special rate coefficients used in special coefficient ! Special Rate information not available .. INTEGER, PARAMETER :: NSPECIAL_RXN = 0 INTEGER :: ISPECIAL( 1, 2 ) ! Special Rate information not available ... INTEGER, PARAMETER :: NSPECIAL = 0 ! Special Rate information not available ... CHARACTER( 16 ) :: SPECIAL( 1 ) INTEGER, PARAMETER :: MAXSPECTERMS = 1 REAL( 8 ) :: KC_COEFFS( NSPECIAL + 1, MAXSPECTERMS) INTEGER :: INDEX_KTERMS( NSPECIAL + 1, MAXSPECTERMS) INTEGER :: INDEX_CTERMS( NSPECIAL + 1, MAXSPECTERMS) REAL( 8 ) :: OPERATOR_COEFFS( NSPECIAL + 1, MAXSPECTERMS) INTEGER :: OPERATORS( NSPECIAL + 1, MAXSPECTERMS) ! Steady-state species section ! N_SS_SPC = Number of species assumed to be in steady-state ! SS_SPC_DIM = Dimension paramete for steady-state species ! SS_SPC = Names of species assumed to be in steady-state ! MAX_SS_LOSS = Max no. of SS loss rxns for any SS species ! MAX_SS_PROD = Max no. of SS prod rxns for any SS species ! N_LOSS_RXNS = No. of SS loss rxns for each SS species ! N_PROD_RXNS = No. of SS prod rxns for each SS species ! SS_LOSS_RXNS = List of SS loss rxns for each SS species ! SS_PROD_RXNS = List of SS prod rxns for each SS species ! SS_PROD_COEF = List of SS prod yields for each SS species ! SS_RCT_IND = SS species index if it is a rxn reactant INTEGER, PARAMETER :: N_SS_SPC = 0 INTEGER, PARAMETER :: SS_SPC_DIM = 1 INTEGER, PARAMETER :: MAX_SS_LOSS = 0 INTEGER, PARAMETER :: MAX_SS_PROD = 0 CHARACTER( 16 ) :: SS_SPC( 1 ) INTEGER :: N_LOSS_RXNS( 1 ) INTEGER :: N_PROD_RXNS( 1 ) INTEGER :: SS_LOSS_RXNS( 1, 1 ) INTEGER :: SS_PROD_RXNS( 1, 1 ) INTEGER :: SS_RCT_IND( 1 ) REAL :: SS_PROD_COEF( 1,1 ) LOGICAL, PARAMETER :: USE_SPECIAL_RATES = .FALSE. ! pointers and names to specific photolysis rates INTEGER, PARAMETER :: IJ_NO2_IUPAC10 = 1 INTEGER, PARAMETER :: IJ_O3_O3P_IUPAC10 = 2 INTEGER, PARAMETER :: IJ_O3_O1D_IUPAC10 = 3 INTEGER, PARAMETER :: IJ_H2O2_IUPAC10 = 4 INTEGER, PARAMETER :: IJ_NO3NO2_06 = 5 INTEGER, PARAMETER :: IJ_NO3NO_06 = 6 INTEGER, PARAMETER :: IJ_N2O5_IUPAC10 = 7 INTEGER, PARAMETER :: IJ_HONO_IUPAC10 = 8 INTEGER, PARAMETER :: IJ_HNO3_IUPAC10 = 9 INTEGER, PARAMETER :: IJ_PNA_IUPAC10 = 10 INTEGER, PARAMETER :: IJ_PAN_IUPAC10 = 11 INTEGER, PARAMETER :: IJ_MEPX_IUPAC10 = 12 INTEGER, PARAMETER :: IJ_NTR_IUPAC10 = 13 INTEGER, PARAMETER :: IJ_FORM_R_IUPAC10 = 14 INTEGER, PARAMETER :: IJ_FORM_M_IUPAC10 = 15 INTEGER, PARAMETER :: IJ_ALD2_R_IUPAC10 = 16 INTEGER, PARAMETER :: IJ_ALDX_R_IUPAC10 = 17 INTEGER, PARAMETER :: IJ_GLYD_IUPAC10 = 18 INTEGER, PARAMETER :: IJ_GLY_R_IUPAC10 = 19 INTEGER, PARAMETER :: IJ_MGLY_IUPAC10 = 20 INTEGER, PARAMETER :: IJ_KET_IUPAC10 = 21 INTEGER, PARAMETER :: IJ_ACET_IUPAC10 = 22 INTEGER, PARAMETER :: IJ_ISPD = 23 INTEGER, PARAMETER :: IJ_HPALD = 24 INTEGER, PARAMETER :: IJ_CL2_IUPAC04 = 25 INTEGER, PARAMETER :: IJ_HOCL_IUPAC04 = 26 INTEGER, PARAMETER :: IJ_FMCL_IUPAC04 = 27 INTEGER, PARAMETER :: IJ_CLNO2_IUPAC13 = 28 INTEGER, PARAMETER :: IJ_CLONO2_1 = 29 INTEGER, PARAMETER :: IJ_CLONO2_2 = 30 INTEGER, PARAMETER :: IJ_IC3ONO2 = 31 INTEGER, PARAMETER :: IJ_ACRO_09 = 32 INTEGER, PARAMETER :: IK_HETERO_CLNO3_WAJ = 1 INTEGER, PARAMETER :: IK_HETERO_NTR2 = 2 INTEGER, PARAMETER :: IK_HETERO_N2O5IJ = 3 INTEGER, PARAMETER :: IK_HETERO_N2O5K = 4 INTEGER, PARAMETER :: IK_HETERO_H2NO3PAIJ = 5 INTEGER, PARAMETER :: IK_HETERO_H2NO3PAK = 6 INTEGER, PARAMETER :: IK_HETERO_H2NO3PBIJ = 7 INTEGER, PARAMETER :: IK_HETERO_H2NO3PBK = 8 INTEGER, PARAMETER :: IK_HETERO_NO2 = 9 INTEGER, PARAMETER :: IK_HETERO_IEPOX = 10 INTEGER, PARAMETER :: IK_HETERO_IEPOXOS = 11 INTEGER, PARAMETER :: IK_HETERO_TETROL = 12 INTEGER, PARAMETER :: IK_HETERO_GLY = 13 INTEGER, PARAMETER :: IK_HETERO_MGLY = 14 INTEGER, PARAMETER :: IK_HETERO_PNCOMLI = 15 INTEGER, PARAMETER :: IK_HETERO_PNCOMLJ = 16 END MODULE RXNS_DATA ================================================ FILE: CCTM/src/MECHS/cb6r3_ae7_aq/RXNS_FUNC_MODULE.F90 ================================================ MODULE RXNS_FUNCTION IMPLICIT NONE ! Name of Mechanism CB6R3_AE7_AQ PUBLIC :: CALC_RCONST, SPECIAL_RATES, MAP_CHEMISTRY_SPECIES CONTAINS REAL( 8 ) FUNCTION POWER_T02( TEMPOT300,A0,B0 ) IMPLICIT NONE ! rate constant for CMAQ Arrhenuis reaction type 2 ! Arguements: REAL( 8 ), INTENT( IN ) :: TEMPOT300 REAL( 8 ), INTENT( IN ) :: A0 REAL( 8 ), INTENT( IN ) :: B0 ! Local: None POWER_T02 = A0 * TEMPOT300**B0 RETURN END FUNCTION POWER_T02 REAL( 8 ) FUNCTION ARRHENUIS_T04( INV_TEMP,TEMPOT300,A0,B0,C0 ) IMPLICIT NONE ! rate constant for CMAQ Arrhenuis reaction type 4 ! Arguements: REAL( 8 ), INTENT( IN ) :: INV_TEMP REAL( 8 ), INTENT( IN ) :: TEMPOT300 REAL( 8 ), INTENT( IN ) :: A0 REAL( 8 ), INTENT( IN ) :: B0 REAL( 8 ), INTENT( IN ) :: C0 ! Local: INTRINSIC DEXP ARRHENUIS_T04 = A0 * DEXP( B0 * INV_TEMP ) * TEMPOT300**C0 RETURN END FUNCTION ARRHENUIS_T04 REAL( 8 ) FUNCTION ARRHENUIS_T03( INV_TEMP,A0,B0 ) ! rate constant for CMAQ Arrhenuis reaction type 3 IMPLICIT NONE ! Arguements: REAL( 8 ), INTENT( IN ) :: INV_TEMP REAL( 8 ), INTENT(IN) :: A0 REAL( 8 ), INTENT(IN) :: B0 ! Local: INTRINSIC DEXP ARRHENUIS_T03 = A0 * DEXP( B0 * INV_TEMP ) RETURN END FUNCTION ARRHENUIS_T03 REAL( 8 ) FUNCTION FALLOFF_T08(INV_TEMP,CAIR,A0,C0,A2,C2,A3,C3) ! rate constant for CMAQ fall off reaction type 8 IMPLICIT NONE ! Arguements: REAL( 8 ), INTENT( IN ) :: INV_TEMP REAL( 8 ), INTENT( IN ) :: CAIR REAL( 8 ), INTENT( IN ) :: A0 REAL( 8 ), INTENT( IN ) :: C0 REAL( 8 ), INTENT( IN ) :: A2 REAL( 8 ), INTENT( IN ) :: C2 REAL( 8 ), INTENT( IN ) :: A3 REAL( 8 ), INTENT( IN ) :: C3 ! Local: REAL( 8 ) K0 REAL( 8 ) K2 REAL( 8 ) K3 INTRINSIC DEXP K0 = A0 * DEXP( C0 * INV_TEMP ) K2 = A2 * DEXP( C2 * INV_TEMP ) K3 = A3 * DEXP( C3 * INV_TEMP ) K3 = K3 * CAIR FALLOFF_T08 = K0 + K3/( 1.0D0 + K3/K2 ) RETURN END FUNCTION FALLOFF_T08 REAL( 8 ) FUNCTION FALLOFF_T09(INV_TEMP,CAIR,A1,C1,A2,C2) ! rate constant for CMAQ fall off reaction type 9 IMPLICIT NONE ! Arguements: REAL( 8 ), INTENT( IN ) :: INV_TEMP REAL( 8 ), INTENT( IN ) :: CAIR REAL( 8 ), INTENT( IN ) :: A1 REAL( 8 ), INTENT( IN ) :: C1 REAL( 8 ), INTENT( IN ) :: A2 REAL( 8 ), INTENT( IN ) :: C2 ! Local: REAL( 8 ) K1 REAL( 8 ) K2 INTRINSIC DEXP K1 = A1 * DEXP( C1 * INV_TEMP ) K2 = A2 * DEXP( C2 * INV_TEMP ) FALLOFF_T09 = K1 + K2 * CAIR RETURN END FUNCTION FALLOFF_T09 REAL( 8 ) FUNCTION FALLOFF_T10(INV_TEMP,TEMPOT300,CAIR,A0,B0,C0,A1,B1,C1,CE,CF) IMPLICIT NONE ! rate constant for CMAQ fall off reaction type 10 ! Arguements: REAL( 8 ), INTENT( IN ) :: INV_TEMP REAL( 8 ), INTENT( IN ) :: TEMPOT300 REAL( 8 ), INTENT( IN ) :: CAIR REAL( 8 ), INTENT( IN ) :: A0 REAL( 8 ), INTENT( IN ) :: B0 REAL( 8 ), INTENT( IN ) :: C0 REAL( 8 ), INTENT( IN ) :: A1 REAL( 8 ), INTENT( IN ) :: B1 REAL( 8 ), INTENT( IN ) :: C1 REAL( 8 ), INTENT( IN ) :: CE REAL( 8 ), INTENT( IN ) :: CF ! Local: REAL( 8 ) K0 REAL( 8 ) K1 REAL( 8 ) KEND K0 = A0 * CAIR * DEXP(B0*INV_TEMP)* TEMPOT300**C0 K1 = A1 * DEXP(B1*INV_TEMP) * TEMPOT300**C1 KEND = ( ( 1.0D0 + ( ( 1.0D0 / CE ) * DLOG10( K0 / K1 ) ) ** 2.0D0 ) ) KEND = 1.0D0 / KEND FALLOFF_T10 = ( K0 / ( 1.0D0 + K0/K1 ) ) * CF ** KEND RETURN END FUNCTION FALLOFF_T10 REAL( 8 ) FUNCTION FALLOFF_T11(INV_TEMP,TEMPOT300,CAIR,A1,B1,C1,A2, B2, C2, D1, D2) ! rate constant for CMAQ fall off reaction type 11 ! actually expanded form of type 9 IMPLICIT NONE ! Arguements: REAL( 8 ), INTENT( IN ) :: INV_TEMP REAL( 8 ), INTENT( IN ) :: TEMPOT300 REAL( 8 ), INTENT( IN ) :: CAIR REAL( 8 ), INTENT( IN ) :: A1 REAL( 8 ), INTENT( IN ) :: B1 REAL( 8 ), INTENT( IN ) :: C1 REAL( 8 ), INTENT( IN ) :: A2 REAL( 8 ), INTENT( IN ) :: B2 REAL( 8 ), INTENT( IN ) :: C2 REAL( 8 ), INTENT( IN ) :: D1 REAL( 8 ), INTENT( IN ) :: D2 ! Local: REAL( 8 ) K1 REAL( 8 ) K2 REAL( 8 ) K3 INTRINSIC DEXP K1 = A1 * DEXP( C1 * INV_TEMP ) * TEMPOT300**B1 K2 = A2 * DEXP( C2 * INV_TEMP ) * TEMPOT300**B2 K3 = D1 * DEXP( D2 * INV_TEMP ) FALLOFF_T11 = K1 + K2 * CAIR + K3 RETURN END FUNCTION FALLOFF_T11 REAL( 8 ) FUNCTION HALOGEN_FALLOFF(PRESS,A1,B1,A2,B2,A3) IMPLICIT NONE REAL( 8 ), INTENT( IN ) :: PRESS REAL( 8 ), INTENT( IN ) :: A1 REAL( 8 ), INTENT( IN ) :: B1 REAL( 8 ), INTENT( IN ) :: A2 REAL( 8 ), INTENT( IN ) :: B2 REAL( 8 ), INTENT( IN ) :: A3 ! Maximum loss rate (1/sec) INTRINSIC DEXP HALOGEN_FALLOFF = A1 * DEXP( B1 * PRESS ) + A2 * DEXP( B2 * PRESS ) HALOGEN_FALLOFF = DMIN1 (A3, HALOGEN_FALLOFF ) RETURN END FUNCTION HALOGEN_FALLOFF SUBROUTINE SPECIAL_RATES( NUMCELLS, Y, TEMP, DENS, RKI ) ! Purpose: calculate special rate operators and update ! appropriate rate constants USE RXNS_DATA IMPLICIT NONE ! Arguments: INTEGER, INTENT( IN ) :: NUMCELLS ! Number of cells in block REAL( 8 ), INTENT( IN ) :: Y( :, : ) ! species concs REAL( 8 ), INTENT( IN ) :: TEMP( : ) ! air temperature, K REAL( 8 ), INTENT( IN ) :: DENS( : ) ! air density, Kg/m3 REAL( 8 ), INTENT( INOUT ) :: RKI( :, : ) ! reaction rate constant, ppm/min ! Local: REAL( 8 ), PARAMETER :: DENSITY_TO_NUMBER = 2.07930D+19 ! Kg/m3 to molecules/cm3 INTEGER :: NCELL REAL( 8 ) :: INV_TEMP REAL( 8 ) :: CAIR REAL( 8 ) :: CFACT ! scales operator if not multiplied by RKI, cm^3/(molecule) to 1/(ppm) REAL( 8 ) :: CFACT_SQU ! scales operator if not multiplied by RKI, cm^6/(molec^2) to 1/(ppm^2) ! special rate operators listed below DO NCELL = 1, NUMCELLS INV_TEMP = 1.0D0 / TEMP( NCELL ) CAIR = DENSITY_TO_NUMBER * DENS( NCELL ) CFACT = 1.0D-06 * CAIR CFACT_SQU = 1.0D-12 * CAIR * CAIR ! define special rate operators ! define rate constants in terms of special rate operators END DO RETURN END SUBROUTINE SPECIAL_RATES SUBROUTINE CALC_RCONST( BLKTEMP, BLKPRES, BLKH2O, RJBLK, BLKHET, LSUNLIGHT, SEAWATER, RKI, NUMCELLS ) !********************************************************************** ! Function: To compute thermal and photolytic reaction rate ! coefficients for each reaction. ! Preconditions: Photolysis rates for individual species must have ! been calculated and stored in RJPHOT. Expects ! temperature in deg K, pressure in atm., water ! vapor in ppmV, and J-values in /min. ! Key Subroutines/Functions Called: POWER_02, ARRHRENUIS_T0*, FALLOFF_T*, HALOGEN_FALLOFF !*********************************************************************** USE RXNS_DATA IMPLICIT NONE ! Arguements: None REAL( 8 ), INTENT( IN ) :: BLKTEMP( : ) ! temperature, deg K REAL( 8 ), INTENT( IN ) :: BLKPRES( : ) ! pressure, Atm REAL( 8 ), INTENT( IN ) :: BLKH2O ( : ) ! water mixing ratio, ppm REAL( 8 ), INTENT( IN ) :: RJBLK ( :, : ) ! photolysis rates, 1/min REAL( 8 ), INTENT( IN ) :: BLKHET ( :, : ) ! heterogeneous rate constants, ???/min INTEGER, INTENT( IN ) :: NUMCELLS ! Number of cells in block LOGICAL, INTENT( IN ) :: LSUNLIGHT ! Is there sunlight? REAL( 8 ), INTENT( IN ) :: SEAWATER( : ) ! fractional area of OPEN+SURF REAL( 8 ), INTENT( OUT ) :: RKI ( :, : ) ! reaction rate constant, ppm/min !..Parameters: REAL( 8 ), PARAMETER :: COEF1 = 7.33981D+15 ! Molec/cc to ppm conv factor REAL( 8 ), PARAMETER :: CONSTC = 0.6D+0 ! Constant for reaction type 7 REAL( 8 ), PARAMETER :: TI300 = 1.0D+0/300.0D+0 ! reciprocal of 300 deg K REAL( 8 ), PARAMETER :: SFACT = 60.D+0 ! seconds per minute !..External Functions: None !..Local Variables: INTEGER :: NRT ! Loop index for reaction types INTEGER :: IRXN ! Reaction number INTEGER :: JNUM ! J-value species # from PHOT) INTEGER :: KNUM ! Reaction # for a relative rate coeff. INTEGER :: N ! Loop index for reactions INTEGER :: NCELL ! Loop index for # of cells in the block REAL( 8 ) :: CAIR ! air number density (wet) [molec/cm^3] REAL( 8 ) :: CFACT ! Convertor cm^3/(molec*sec) to 1/(ppm*min) REAL( 8 ) :: CFACT_SQU ! Convertor cm^6/(molec^2*sec) to 1/(ppm^2*min) REAL( 8 ) :: INV_CFACT ! ppm/min to molec/(cm^3*sec) REAL( 8 ) :: TEMPOT300 ! temperature divided by 300 K, dimensionaless REAL( 8 ) :: INV_TEMP ! reciprocal of air temperature, K-1 REAL( 8 ) :: INV_CAIR ! reciprocal of air number density (wet), [cm^3/molec] REAL( 8 ) :: TEMP ! air temperature, K REAL( 8 ) :: PRESS ! pressure [Atm] REAL( 8 ) :: INV_RFACT ! ppm/min to molec/(cm^3*min) REAL( 8 ) :: RFACT_SQU ! cm^6/(molec^2*min) to 1/(ppm^2*min) REAL( 8 ) :: RFACT ! cm^3/(molec*min) to 1/(ppm*min) REAL( 8 ) :: H2O ! concentration, [molec/cm^3] RKI = 0.0D0 ! All rate constants converted from molec/cm3 to ppm ! and 1/sec to 1/min IF( LSUNLIGHT )THEN DO NCELL = 1, NUMCELLS ! Reaction Label R1 RKI( NCELL, 1) = RJBLK( NCELL, IJ_NO2_IUPAC10 ) ! Reaction Label R8 RKI( NCELL, 8) = RJBLK( NCELL, IJ_O3_O3P_IUPAC10 ) ! Reaction Label R9 RKI( NCELL, 9) = RJBLK( NCELL, IJ_O3_O1D_IUPAC10 ) ! Reaction Label R21 RKI( NCELL, 21) = RJBLK( NCELL, IJ_H2O2_IUPAC10 ) ! Reaction Label R27 RKI( NCELL, 27) = RJBLK( NCELL, IJ_NO3NO2_06 ) ! Reaction Label R28 RKI( NCELL, 28) = RJBLK( NCELL, IJ_NO3NO_06 ) ! Reaction Label R38 RKI( NCELL, 38) = RJBLK( NCELL, IJ_N2O5_IUPAC10 ) ! Reaction Label R43 RKI( NCELL, 43) = RJBLK( NCELL, IJ_HONO_IUPAC10 ) ! Reaction Label R47 RKI( NCELL, 47) = RJBLK( NCELL, IJ_HNO3_IUPAC10 ) ! Reaction Label R50 RKI( NCELL, 50) = RJBLK( NCELL, IJ_PNA_IUPAC10 ) ! Reaction Label R56 RKI( NCELL, 56) = RJBLK( NCELL, IJ_PAN_IUPAC10 ) ! Reaction Label R64 RKI( NCELL, 64) = RJBLK( NCELL, IJ_PAN_IUPAC10 ) ! Reaction Label R88 RKI( NCELL, 88) = RJBLK( NCELL, IJ_MEPX_IUPAC10 ) ! Reaction Label R90 RKI( NCELL, 90) = RJBLK( NCELL, IJ_MEPX_IUPAC10 ) ! Reaction Label R92 RKI( NCELL, 92) = RJBLK( NCELL, IJ_NTR_IUPAC10 ) ! Reaction Label R97 RKI( NCELL, 97) = RJBLK( NCELL, IJ_FORM_R_IUPAC10 ) ! Reaction Label R98 RKI( NCELL, 98) = RJBLK( NCELL, IJ_FORM_M_IUPAC10 ) ! Reaction Label R108 RKI( NCELL, 108) = RJBLK( NCELL, IJ_ALD2_R_IUPAC10 ) ! Reaction Label R112 RKI( NCELL, 112) = RJBLK( NCELL, IJ_ALDX_R_IUPAC10 ) ! Reaction Label R114 RKI( NCELL, 114) = RJBLK( NCELL, IJ_GLYD_IUPAC10 ) ! Reaction Label R117 RKI( NCELL, 117) = RJBLK( NCELL, IJ_GLY_R_IUPAC10 ) ! Reaction Label R119 RKI( NCELL, 119) = RJBLK( NCELL, IJ_MGLY_IUPAC10 ) ! Reaction Label R128 RKI( NCELL, 128) = RJBLK( NCELL, IJ_KET_IUPAC10 ) ! Reaction Label R129 RKI( NCELL, 129) = RJBLK( NCELL, IJ_ACET_IUPAC10 ) ! Reaction Label R161 RKI( NCELL, 161) = RJBLK( NCELL, IJ_ISPD ) ! Reaction Label R163 RKI( NCELL, 163) = RJBLK( NCELL, IJ_HPALD ) ! Reaction Label R196 RKI( NCELL, 201) = RJBLK( NCELL, IJ_NTR_IUPAC10 ) ! Reaction Label R197 RKI( NCELL, 202) = 5.0000D-02 * RJBLK( NCELL, IJ_NO2_IUPAC10 ) ! Reaction Label R201 RKI( NCELL, 206) = 2.8000D-02 * RJBLK( NCELL, IJ_NO2_IUPAC10 ) ! Reaction Label CL1 RKI( NCELL, 225) = RJBLK( NCELL, IJ_CL2_IUPAC04 ) ! Reaction Label CL2 RKI( NCELL, 226) = RJBLK( NCELL, IJ_HOCL_IUPAC04 ) ! Reaction Label CL9 RKI( NCELL, 233) = RJBLK( NCELL, IJ_FMCL_IUPAC04 ) ! Reaction Label CL27 RKI( NCELL, 251) = RJBLK( NCELL, IJ_CLNO2_IUPAC13 ) ! Reaction Label CL30 RKI( NCELL, 253) = RJBLK( NCELL, IJ_CLONO2_1 ) ! Reaction Label CL31 RKI( NCELL, 254) = RJBLK( NCELL, IJ_CLONO2_2 ) ! Reaction Label BP71mtp RKI( NCELL, 289) = RJBLK( NCELL, IJ_IC3ONO2 ) ! Reaction Label T04 RKI( NCELL, 315) = RJBLK( NCELL, IJ_FORM_R_IUPAC10 ) ! Reaction Label T05 RKI( NCELL, 316) = RJBLK( NCELL, IJ_FORM_M_IUPAC10 ) ! Reaction Label T09 RKI( NCELL, 321) = RJBLK( NCELL, IJ_ALD2_R_IUPAC10 ) ! Reaction Label T16 RKI( NCELL, 330) = RJBLK( NCELL, IJ_ACRO_09 ) ! Reaction Label T20 RKI( NCELL, 335) = RJBLK( NCELL, IJ_ACRO_09 ) IF ( SEAWATER (NCELL) .GT. 0.001D0 ) THEN ! Reaction Label HAL_Ozone RKI( NCELL, 277) = SEAWATER (NCELL) * SFACT * HALOGEN_FALLOFF( BLKPRES( NCELL ), 6.7006D-11, 1.0743D+01, & & 3.4153D-08, -6.7130D-01, 2.0000D-06 ) ELSE RKI( NCELL, 277) = 0.0D0 END IF END DO END IF DO NCELL = 1, NUMCELLS ! Set-up conversion factors INV_TEMP = 1.0D+00 / BLKTEMP( NCELL ) CAIR = 1.0D+06 * COEF1 * BLKPRES( NCELL ) * INV_TEMP CFACT = 6.0D-05 * CAIR CFACT_SQU = 6.0D-11 * CAIR * CAIR INV_CAIR = 1.0D0 / CAIR INV_CFACT = 6.0D+07 * INV_CAIR TEMP = BLKTEMP( NCELL ) TEMPOT300 = BLKTEMP( NCELL ) * TI300 RFACT = 1.0D+06 * INV_CAIR RFACT_SQU = 1.0D+12 * INV_CAIR * INV_CAIR ! Reaction Label R2 RKI( NCELL, 2) = CFACT_SQU * POWER_T02( TEMPOT300, 5.6800D-34, -2.6000D+00 ) ! Reaction Label R3 RKI( NCELL, 3) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.4000D-12, -1.3100D+03 ) ! Reaction Label R4 RKI( NCELL, 4) = CFACT_SQU * POWER_T02( TEMPOT300, 1.0000D-31, -1.6000D+00 ) ! Reaction Label R5 RKI( NCELL, 5) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.5000D-12, 1.8800D+02 ) ! Reaction Label R6 RKI( NCELL, 6) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 1.3000D-31, 0.0000D+00, -1.5000D+00, & & 2.3000D-11, 0.0000D+00, 2.4000D-01, & & 1.0000D+00, 6.0000D-01 ) ! Reaction Label R7 RKI( NCELL, 7) = CFACT * ARRHENUIS_T03( INV_TEMP, 8.0000D-12, -2.0600D+03 ) ! Reaction Label R10 RKI( NCELL, 10) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.2300D-11, 1.1500D+02 ) ! Reaction Label R11 RKI( NCELL, 11) = 2.1400D-10 * CFACT ! Reaction Label R12 RKI( NCELL, 12) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.7000D-12, -9.4000D+02 ) ! Reaction Label R13 RKI( NCELL, 13) = CFACT * ARRHENUIS_T04( INV_TEMP, TEMPOT300, & & 2.0300D-16, 6.9300D+02, 4.5700D+00 ) ! Reaction Label R14 RKI( NCELL, 14) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.4000D-11, 1.1000D+02 ) ! Reaction Label R15 RKI( NCELL, 15) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-11, 2.2400D+02 ) ! Reaction Label R16 RKI( NCELL, 16) = CFACT * ARRHENUIS_T04( INV_TEMP, TEMPOT300, & & 6.2000D-14, 9.4500D+02, 2.6000D+00 ) ! Reaction Label R17 RKI( NCELL, 17) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 6.9000D-31, 0.0000D+00, -8.0000D-01, & & 2.6000D-11, 0.0000D+00, 0.0000D+00, & & 1.1300D+00, 5.0000D-01 ) ! Reaction Label R18 RKI( NCELL, 18) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.8000D-11, 2.5000D+02 ) ! Reaction Label R19 RKI( NCELL, 19) = CFACT * FALLOFF_T09( INV_TEMP, CAIR, & & 2.2000D-13, 6.0000D+02, 1.9000D-33, & & 9.8000D+02 ) ! Reaction Label R20 RKI( NCELL, 20) = CFACT_SQU * FALLOFF_T09( INV_TEMP, CAIR, & & 3.0800D-34, 2.8000D+03, 2.6600D-54, & & 3.1800D+03 ) ! Reaction Label R22 RKI( NCELL, 22) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.9000D-12, -1.6000D+02 ) ! Reaction Label R23 RKI( NCELL, 23) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.4000D-12, -2.0000D+03 ) ! Reaction Label R24 RKI( NCELL, 24) = CFACT_SQU * ARRHENUIS_T03( INV_TEMP, 3.3000D-39, 5.3000D+02 ) ! Reaction Label R25 RKI( NCELL, 25) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.4500D-12, 2.7000D+02 ) ! Reaction Label R26 RKI( NCELL, 26) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.4000D-13, -2.4700D+03 ) ! Reaction Label R29 RKI( NCELL, 29) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.8000D-11, 1.1000D+02 ) ! Reaction Label R30 RKI( NCELL, 30) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.5000D-14, -1.2600D+03 ) ! Reaction Label R31 RKI( NCELL, 31) = 1.7000D-11 * CFACT ! Reaction Label R32 RKI( NCELL, 32) = 2.0000D-11 * CFACT ! Reaction Label R33 RKI( NCELL, 33) = 4.0000D-12 * CFACT ! Reaction Label R34 RKI( NCELL, 34) = 1.0000D-17 * CFACT ! Reaction Label R35 RKI( NCELL, 35) = CFACT * ARRHENUIS_T03( INV_TEMP, 8.5000D-13, -2.4500D+03 ) ! Reaction Label R36 RKI( NCELL, 36) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 3.6000D-30, 0.0000D+00, -4.1000D+00, & & 1.9000D-12, 0.0000D+00, 2.0000D-01, & & 1.3300D+00, 3.5000D-01 ) ! Reaction Label R37 RKI( NCELL, 37) = SFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 1.3000D-03, -1.1000D+04, -3.5000D+00, & & 9.7000D+14, -1.1080D+04, 1.0000D-01, & & 1.3300D+00, 3.5000D-01 ) ! Reaction Label R39 RKI( NCELL, 39) = 1.0000D-22 * CFACT ! Reaction Label R40 RKI( NCELL, 40) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 7.4000D-31, 0.0000D+00, -2.4000D+00, & & 3.3000D-11, 0.0000D+00, -3.0000D-01, & & 8.7000D-01, 8.1000D-01 ) ! Reaction Label R41 RKI( NCELL, 41) = 5.0000D-40 * CFACT_SQU ! Reaction Label R42 RKI( NCELL, 42) = 1.0000D-20 * CFACT ! Reaction Label R44 RKI( NCELL, 44) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.5000D-12, 2.6000D+02 ) ! Reaction Label R45 RKI( NCELL, 45) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 1.8000D-30, 0.0000D+00, -3.0000D+00, & & 2.8000D-11, 0.0000D+00, 0.0000D+00, & & 1.0000D+00, 6.0000D-01 ) ! Reaction Label R46 RKI( NCELL, 46) = CFACT * FALLOFF_T08( INV_TEMP, CAIR, & & 2.4000D-14, 4.6000D+02, 2.7000D-17, & & 2.1990D+03, 6.5000D-34, 1.3350D+03 ) ! Reaction Label R48 RKI( NCELL, 48) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 1.8000D-31, 0.0000D+00, -3.2000D+00, & & 4.7000D-12, 0.0000D+00, 0.0000D+00, & & 1.0000D+00, 6.0000D-01 ) ! Reaction Label R49 RKI( NCELL, 49) = SFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 4.1000D-05, -1.0650D+04, 0.0000D+00, & & 4.8000D+15, -1.1170D+04, 0.0000D+00, & & 1.0000D+00, 6.0000D-01 ) ! Reaction Label R51 RKI( NCELL, 51) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.2000D-13, 6.9000D+02 ) ! Reaction Label R52 RKI( NCELL, 52) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 4.5000D-31, 0.0000D+00, -3.9000D+00, & & 1.3000D-12, 0.0000D+00, -7.0000D-01, & & 1.1000D+00, 5.3000D-01 ) ! Reaction Label R53 RKI( NCELL, 53) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.5000D-12, 2.9000D+02 ) ! Reaction Label R54 RKI( NCELL, 54) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 2.7000D-28, 0.0000D+00, -7.1000D+00, & & 1.2000D-11, 0.0000D+00, -9.0000D-01, & & 1.4100D+00, 3.0000D-01 ) ! Reaction Label R55 RKI( NCELL, 55) = SFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 4.9000D-03, -1.2100D+04, 0.0000D+00, & & 5.4000D+16, -1.3830D+04, 0.0000D+00, & & 1.4100D+00, 3.0000D-01 ) ! Reaction Label R57 RKI( NCELL, 57) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.2000D-13, 9.8000D+02 ) ! Reaction Label R58 RKI( NCELL, 58) = CFACT * ARRHENUIS_T03( INV_TEMP, 8.9000D-13, 8.0000D+02 ) ! Reaction Label R59 RKI( NCELL, 59) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.9000D-12, 5.0000D+02 ) ! Reaction Label R60 RKI( NCELL, 60) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.9000D-12, 5.0000D+02 ) ! Reaction Label R61 RKI( NCELL, 61) = CFACT * ARRHENUIS_T03( INV_TEMP, 6.7000D-12, 3.4000D+02 ) ! Reaction Label R62 RKI( NCELL, 62) = RKI( NCELL, 54 ) ! Reaction Label R63 RKI( NCELL, 63) = RKI( NCELL, 55 ) ! Reaction Label R65 RKI( NCELL, 65) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.2000D-13, 9.8000D+02 ) ! Reaction Label R66 RKI( NCELL, 66) = CFACT * ARRHENUIS_T03( INV_TEMP, 8.9000D-13, 8.0000D+02 ) ! Reaction Label R67 RKI( NCELL, 67) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.2000D-12, 5.0000D+02 ) ! Reaction Label R68 RKI( NCELL, 68) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.4000D-12, 3.6000D+02 ) ! Reaction Label R69 RKI( NCELL, 69) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.8000D-13, 8.0000D+02 ) ! Reaction Label R70 RKI( NCELL, 70) = CFACT * ARRHENUIS_T03( INV_TEMP, 6.5000D-14, 5.0000D+02 ) ! Reaction Label R71 RKI( NCELL, 71) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.3000D-12, 3.6000D+02 ) ! Reaction Label R72 RKI( NCELL, 72) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.8000D-13, 7.8000D+02 ) ! Reaction Label R73 RKI( NCELL, 73) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.0000D-12, 5.0000D+02 ) ! Reaction Label R74 RKI( NCELL, 74) = RKI( NCELL, 70 ) ! Reaction Label R75 RKI( NCELL, 75) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label R76 RKI( NCELL, 76) = CFACT * ARRHENUIS_T03( INV_TEMP, 6.8000D-13, 8.0000D+02 ) ! Reaction Label R77 RKI( NCELL, 77) = RKI( NCELL, 58 ) ! Reaction Label R78 RKI( NCELL, 78) = RKI( NCELL, 70 ) ! Reaction Label R79 RKI( NCELL, 79) = RKI( NCELL, 75 ) ! Reaction Label R80 RKI( NCELL, 80) = RKI( NCELL, 76 ) ! Reaction Label R81 RKI( NCELL, 81) = RKI( NCELL, 58 ) ! Reaction Label R82 RKI( NCELL, 82) = RKI( NCELL, 70 ) ! Reaction Label R83 RKI( NCELL, 83) = RKI( NCELL, 75 ) ! Reaction Label R84 RKI( NCELL, 84) = RKI( NCELL, 76 ) ! Reaction Label R85 RKI( NCELL, 85) = RKI( NCELL, 58 ) ! Reaction Label R86 RKI( NCELL, 86) = RKI( NCELL, 70 ) ! Reaction Label R87 RKI( NCELL, 87) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.3000D-12, 1.9000D+02 ) ! Reaction Label R89 RKI( NCELL, 89) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.3000D-12, 1.9000D+02 ) ! Reaction Label R91 RKI( NCELL, 91) = 2.0000D-12 * CFACT ! Reaction Label R93 RKI( NCELL, 93) = 4.5000D-13 * CFACT ! Reaction Label R94 RKI( NCELL, 94) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.0000D-14, 8.5000D+02 ) ! Reaction Label R95 RKI( NCELL, 95) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.3000D-12, 1.9000D+02 ) ! Reaction Label R96 RKI( NCELL, 96) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.4000D-12, 1.3500D+02 ) ! Reaction Label R99 RKI( NCELL, 99) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.4000D-11, -1.6000D+03 ) ! Reaction Label R100 RKI( NCELL, 100) = 5.5000D-16 * CFACT ! Reaction Label R101 RKI( NCELL, 101) = CFACT * ARRHENUIS_T03( INV_TEMP, 9.7000D-15, 6.2500D+02 ) ! Reaction Label R102 RKI( NCELL, 102) = SFACT * ARRHENUIS_T03( INV_TEMP, 2.4000D+12, -7.0000D+03 ) ! Reaction Label R103 RKI( NCELL, 103) = 5.6000D-12 * CFACT ! Reaction Label R104 RKI( NCELL, 104) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.6000D-15, 2.3000D+03 ) ! Reaction Label R105 RKI( NCELL, 105) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.8000D-11, -1.1000D+03 ) ! Reaction Label R106 RKI( NCELL, 106) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.7000D-12, 3.4500D+02 ) ! Reaction Label R107 RKI( NCELL, 107) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.4000D-12, -1.8600D+03 ) ! Reaction Label R109 RKI( NCELL, 109) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.3000D-11, -8.7000D+02 ) ! Reaction Label R110 RKI( NCELL, 110) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.9000D-12, 4.0500D+02 ) ! Reaction Label R111 RKI( NCELL, 111) = 6.3000D-15 * CFACT ! Reaction Label R113 RKI( NCELL, 113) = 8.0000D-12 * CFACT ! Reaction Label R115 RKI( NCELL, 115) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.4000D-12, -1.8600D+03 ) ! Reaction Label R116 RKI( NCELL, 116) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.1000D-12, 3.4000D+02 ) ! Reaction Label R118 RKI( NCELL, 118) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.4000D-12, -1.8600D+03 ) ! Reaction Label R120 RKI( NCELL, 120) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.4000D-12, -1.8600D+03 ) ! Reaction Label R121 RKI( NCELL, 121) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.9000D-12, 5.7500D+02 ) ! Reaction Label R122 RKI( NCELL, 122) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.7000D-12, -2.1000D+03 ) ! Reaction Label R123 RKI( NCELL, 123) = CFACT * FALLOFF_T09( INV_TEMP, CAIR, & & 1.4400D-13, 0.0000D+00, 3.4300D-33, & & 0.0000D+00 ) ! Reaction Label R124 RKI( NCELL, 124) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.8500D-12, -1.6900D+03 ) ! Reaction Label R125 RKI( NCELL, 125) = CFACT * ARRHENUIS_T03( INV_TEMP, 6.9000D-12, -1.0000D+03 ) ! Reaction Label R126 RKI( NCELL, 126) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.8500D-12, -3.4500D+02 ) ! Reaction Label R127 RKI( NCELL, 127) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.0000D-12, 2.0000D+01 ) ! Reaction Label R130 RKI( NCELL, 130) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.4100D-12, -6.2060D+02 ) ! Reaction Label R131 RKI( NCELL, 131) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.6000D-12, -5.8500D+02 ) ! Reaction Label R132 RKI( NCELL, 132) = 8.1000D-13 * CFACT ! Reaction Label R133 RKI( NCELL, 133) = SFACT * ARRHENUIS_T03( INV_TEMP, 5.7000D+12, -5.7800D+03 ) ! Reaction Label R134 RKI( NCELL, 134) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.5000D-14, -2.0000D+02 ) ! Reaction Label R135 RKI( NCELL, 135) = CFACT * ARRHENUIS_T03( INV_TEMP, 8.6000D-12, 4.0000D+02 ) ! Reaction Label R136 RKI( NCELL, 136) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 5.0000D-30, 0.0000D+00, -1.5000D+00, & & 1.0000D-12, 0.0000D+00, 0.0000D+00, & & 1.3000D+00, 3.7000D-01 ) ! Reaction Label R137 RKI( NCELL, 137) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.0400D-11, -7.9200D+02 ) ! Reaction Label R138 RKI( NCELL, 138) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 8.6000D-29, 0.0000D+00, -3.1000D+00, & & 9.0000D-12, 0.0000D+00, -8.5000D-01, & & 1.1500D+00, 4.8000D-01 ) ! Reaction Label R139 RKI( NCELL, 139) = CFACT * ARRHENUIS_T03( INV_TEMP, 9.1000D-15, -2.5800D+03 ) ! Reaction Label R140 RKI( NCELL, 140) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.3000D-12, -2.8800D+03 ) ! Reaction Label R141 RKI( NCELL, 141) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.0000D-11, -2.8000D+02 ) ! Reaction Label R142 RKI( NCELL, 142) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 8.0000D-27, 0.0000D+00, -3.5000D+00, & & 3.0000D-11, 0.0000D+00, -1.0000D+00, & & 1.1300D+00, 5.0000D-01 ) ! Reaction Label R143 RKI( NCELL, 143) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.5000D-15, -1.8800D+03 ) ! Reaction Label R144 RKI( NCELL, 144) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.6000D-13, -1.1550D+03 ) ! Reaction Label R145 RKI( NCELL, 145) = 2.3000D-11 * CFACT ! Reaction Label R146 RKI( NCELL, 146) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.0500D-11, 5.1900D+02 ) ! Reaction Label R147 RKI( NCELL, 147) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.7000D-15, -1.0130D+03 ) ! Reaction Label R148 RKI( NCELL, 148) = 3.7000D-13 * CFACT ! Reaction Label R149 RKI( NCELL, 149) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-11, 3.9000D+02 ) ! Reaction Label R150 RKI( NCELL, 150) = 3.0000D-11 * CFACT ! Reaction Label R151 RKI( NCELL, 151) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.3900D-12, 3.6500D+02 ) ! Reaction Label R152 RKI( NCELL, 152) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.4300D-13, 7.0000D+02 ) ! Reaction Label R153 RKI( NCELL, 153) = RKI( NCELL, 58 ) ! Reaction Label R154 RKI( NCELL, 154) = RKI( NCELL, 70 ) ! Reaction Label R155 RKI( NCELL, 155) = SFACT * ARRHENUIS_T03( INV_TEMP, 3.3000D+09, -8.3000D+03 ) ! Reaction Label R156 RKI( NCELL, 156) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.0300D-14, -1.9950D+03 ) ! Reaction Label R157 RKI( NCELL, 157) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.0300D-12, -4.4800D+02 ) ! Reaction Label R158 RKI( NCELL, 158) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.5800D-12, 5.1100D+02 ) ! Reaction Label R159 RKI( NCELL, 159) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.8800D-15, -1.7700D+03 ) ! Reaction Label R160 RKI( NCELL, 160) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.1000D-12, -1.8600D+03 ) ! Reaction Label R162 RKI( NCELL, 162) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.2300D-11, 3.7200D+02 ) ! Reaction Label R164 RKI( NCELL, 164) = CFACT * ARRHENUIS_T03( INV_TEMP, 6.0000D-12, -1.8600D+03 ) ! Reaction Label R165 RKI( NCELL, 165) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.7800D-11, -4.0000D+02 ) ! Reaction Label R166 RKI( NCELL, 166) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.4300D-13, 7.0000D+02 ) ! Reaction Label R167 RKI( NCELL, 167) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.3900D-12, 3.6500D+02 ) ! Reaction Label R168 RKI( NCELL, 168) = RKI( NCELL, 58 ) ! Reaction Label R169 RKI( NCELL, 169) = RKI( NCELL, 70 ) ! Reaction Label R170 RKI( NCELL, 170) = 3.1000D-11 * CFACT ! Reaction Label R171 RKI( NCELL, 171) = 3.6000D-11 * CFACT ! Reaction Label R172 RKI( NCELL, 172) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.5000D-11, 4.4900D+02 ) ! Reaction Label R173 RKI( NCELL, 173) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.2000D-15, -8.2100D+02 ) ! Reaction Label R174 RKI( NCELL, 174) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.7000D-12, 1.7500D+02 ) ! Reaction Label R171a RKI( NCELL, 175) = 3.6000D-11 * CFACT ! Reaction Label R172a RKI( NCELL, 176) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.5000D-11, 4.4900D+02 ) ! Reaction Label R173a RKI( NCELL, 177) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.2000D-15, -8.2100D+02 ) ! Reaction Label R174a RKI( NCELL, 178) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.7000D-12, 1.7500D+02 ) ! Reaction Label R175 RKI( NCELL, 179) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.3000D-12, -1.9000D+02 ) ! Reaction Label R176 RKI( NCELL, 180) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label R177 RKI( NCELL, 181) = RKI( NCELL, 58 ) ! Reaction Label R178 RKI( NCELL, 182) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.9000D-13, 1.3000D+03 ) ! Reaction Label R179 RKI( NCELL, 183) = RKI( NCELL, 70 ) ! Reaction Label R180 RKI( NCELL, 184) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.8000D-12, 3.4000D+02 ) ! Reaction Label R181 RKI( NCELL, 185) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label R182 RKI( NCELL, 186) = RKI( NCELL, 58 ) ! Reaction Label R183 RKI( NCELL, 187) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.9000D-13, 1.3000D+03 ) ! Reaction Label R184 RKI( NCELL, 188) = RKI( NCELL, 70 ) ! Reaction Label R185 RKI( NCELL, 189) = 1.8500D-11 * CFACT ! Reaction Label R185a RKI( NCELL, 190) = 1.8500D-11 * CFACT ! Reaction Label R186 RKI( NCELL, 191) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label R187 RKI( NCELL, 192) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.9000D-13, 1.3000D+03 ) ! Reaction Label R188 RKI( NCELL, 193) = RKI( NCELL, 58 ) ! Reaction Label R189 RKI( NCELL, 194) = RKI( NCELL, 70 ) ! Reaction Label R190 RKI( NCELL, 195) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.7000D-12, 9.5000D+02 ) ! Reaction Label R191 RKI( NCELL, 196) = 1.4000D-11 * CFACT ! Reaction Label R192 RKI( NCELL, 197) = 2.1000D-12 * CFACT ! Reaction Label R193 RKI( NCELL, 198) = 5.5000D-12 * CFACT ! Reaction Label R194 RKI( NCELL, 199) = 1.5300D-12 * CFACT ! Reaction Label R195 RKI( NCELL, 200) = 3.8000D-12 * CFACT ! Reaction Label R198 RKI( NCELL, 203) = 9.0000D-11 * CFACT ! Reaction Label R199 RKI( NCELL, 204) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.0800D-16, -5.0000D+02 ) ! Reaction Label R200 RKI( NCELL, 205) = 3.0000D-12 * CFACT ! Reaction Label R202 RKI( NCELL, 207) = 4.4000D-11 * CFACT ! Reaction Label R203 RKI( NCELL, 208) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.4000D-17, -5.0000D+02 ) ! Reaction Label R204 RKI( NCELL, 209) = 3.8000D-12 * CFACT ! Reaction Label R205 RKI( NCELL, 210) = 5.0000D-11 * CFACT ! Reaction Label R206 RKI( NCELL, 211) = 1.7000D-10 * CFACT ! Reaction Label R207 RKI( NCELL, 212) = 1.0000D-11 * CFACT ! Reaction Label R208 RKI( NCELL, 213) = RKI( NCELL, 54 ) ! Reaction Label R209 RKI( NCELL, 214) = RKI( NCELL, 55 ) ! Reaction Label R210 RKI( NCELL, 215) = RKI( NCELL, 57 ) ! Reaction Label R211 RKI( NCELL, 216) = RKI( NCELL, 59 ) ! Reaction Label R212 RKI( NCELL, 217) = RKI( NCELL, 58 ) ! Reaction Label R213 RKI( NCELL, 218) = 3.6000D-11 * CFACT ! Reaction Label R214 RKI( NCELL, 219) = 3.0000D-12 * CFACT ! Reaction Label R216 RKI( NCELL, 220) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.8500D-12, -1.6900D+03 ) ! Reaction Label R217 RKI( NCELL, 221) = SFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 2.3700D-21, 0.0000D+00, 0.0000D+00, & & 4.3000D-01, 0.0000D+00, -8.0000D+00, & & 1.0000D+00, 4.1000D-01 ) ! Reaction Label R218 RKI( NCELL, 222) = 1.0000D+00 * SFACT ! Reaction Label R219 RKI( NCELL, 223) = SFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 4.8100D-20, 0.0000D+00, 0.0000D+00, & & 4.3000D-01, 0.0000D+00, -8.0000D+00, & & 1.0000D+00, 4.1000D-01 ) ! Reaction Label R220 RKI( NCELL, 224) = 1.0000D+00 * SFACT ! Reaction Label CL3 RKI( NCELL, 227) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.3000D-11, -2.0000D+02 ) ! Reaction Label CL4 RKI( NCELL, 228) = 1.6300D-14 * CFACT ! Reaction Label CL5 RKI( NCELL, 229) = CFACT * ARRHENUIS_T03( INV_TEMP, 6.4000D-12, 2.9000D+02 ) ! Reaction Label CL6 RKI( NCELL, 230) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.2000D-12, 3.4000D+02 ) ! Reaction Label CL7 RKI( NCELL, 231) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.2000D-12, -1.1000D+02 ) ! Reaction Label CL8 RKI( NCELL, 232) = 5.0000D-13 * CFACT ! Reaction Label CL10 RKI( NCELL, 234) = CFACT * ARRHENUIS_T03( INV_TEMP, 6.6000D-12, -1.2400D+03 ) ! Reaction Label CL11 RKI( NCELL, 235) = 5.0000D-11 * CFACT ! Reaction Label CL12 RKI( NCELL, 236) = 1.4000D-10 * CFACT ! Reaction Label CL13 RKI( NCELL, 237) = CFACT * ARRHENUIS_T03( INV_TEMP, 8.3000D-11, -1.0000D+02 ) ! Reaction Label CL14 RKI( NCELL, 238) = 1.0700D-10 * CFACT ! Reaction Label CL15 RKI( NCELL, 239) = 2.5000D-10 * CFACT ! Reaction Label CL16 RKI( NCELL, 240) = 3.5000D-10 * CFACT ! Reaction Label CL17 RKI( NCELL, 241) = 4.3000D-10 * CFACT ! Reaction Label CL18 RKI( NCELL, 242) = CFACT * ARRHENUIS_T03( INV_TEMP, 8.2000D-11, -3.4000D+01 ) ! Reaction Label CL19 RKI( NCELL, 243) = 7.9000D-11 * CFACT ! Reaction Label CL20 RKI( NCELL, 244) = 1.3000D-10 * CFACT ! Reaction Label CL21 RKI( NCELL, 245) = 5.5000D-11 * CFACT ! Reaction Label CL22 RKI( NCELL, 246) = CFACT * ARRHENUIS_T03( INV_TEMP, 8.2000D-11, 4.5000D+01 ) ! Reaction Label CL23 RKI( NCELL, 247) = CFACT * ARRHENUIS_T04( INV_TEMP, TEMPOT300, & & 6.5800D-13, 5.8000D+01, 1.1600D+00 ) ! Reaction Label CL24 RKI( NCELL, 248) = 6.1000D-11 * CFACT ! Reaction Label CL25 RKI( NCELL, 249) = 1.2000D-10 * CFACT ! Reaction Label CL26 RKI( NCELL, 250) = 1.2000D-10 * CFACT ! Reaction Label CL28 RKI( NCELL, 252) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 1.8000D-31, 0.0000D+00, -3.4000D+00, & & 1.5000D-11, 0.0000D+00, -1.9000D+00, & & 1.0000D+00, 6.0000D-01 ) ! Reaction Label HET_CLNO3_WAJ RKI( NCELL, 255) = BLKHET( NCELL, IK_HETERO_CLNO3_WAJ ) ! Reaction Label SA01 RKI( NCELL, 256) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label SA02 RKI( NCELL, 257) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.9000D-13, 1.3000D+03 ) ! Reaction Label SA03 RKI( NCELL, 258) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label SA04 RKI( NCELL, 259) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.9000D-13, 1.3000D+03 ) ! Reaction Label SA06 RKI( NCELL, 260) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label SA07 RKI( NCELL, 261) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.9000D-13, 1.3000D+03 ) ! Reaction Label SA08 RKI( NCELL, 262) = 1.1600D-14 * CFACT ! Reaction Label SA09 RKI( NCELL, 263) = 1.9700D-10 * CFACT ! Reaction Label SA10 RKI( NCELL, 264) = 1.9000D-11 * CFACT ! Reaction Label SA11 RKI( NCELL, 265) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label SA12 RKI( NCELL, 266) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.9000D-13, 1.3000D+03 ) ! Reaction Label SA13 RKI( NCELL, 267) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.7400D+02 ) ! Reaction Label HET_NTR2 RKI( NCELL, 268) = 1.4000D+00 * BLKHET( NCELL, IK_HETERO_NTR2 ) ! Reaction Label HET_N2O5IJ RKI( NCELL, 269) = BLKHET( NCELL, IK_HETERO_N2O5IJ ) ! Reaction Label HET_N2O5K RKI( NCELL, 270) = BLKHET( NCELL, IK_HETERO_N2O5K ) ! Reaction Label HET_H2NO3PIJA RKI( NCELL, 271) = BLKHET( NCELL, IK_HETERO_H2NO3PAIJ ) ! Reaction Label HET_H2NO3PKA RKI( NCELL, 272) = BLKHET( NCELL, IK_HETERO_H2NO3PAK ) ! Reaction Label HET_H2NO3PIB RKI( NCELL, 273) = BLKHET( NCELL, IK_HETERO_H2NO3PBIJ ) ! Reaction Label HET_H2NO3PJB RKI( NCELL, 274) = BLKHET( NCELL, IK_HETERO_H2NO3PBIJ ) ! Reaction Label HET_H2NO3PKB RKI( NCELL, 275) = BLKHET( NCELL, IK_HETERO_H2NO3PBK ) ! Reaction Label HET_N02 RKI( NCELL, 276) = BLKHET( NCELL, IK_HETERO_NO2 ) ! Reaction Label HET_IEPOX RKI( NCELL, 278) = BLKHET( NCELL, IK_HETERO_IEPOX ) ! Reaction Label HET_IEPOXOS RKI( NCELL, 279) = BLKHET( NCELL, IK_HETERO_IEPOXOS ) ! Reaction Label HET_TETROL RKI( NCELL, 280) = BLKHET( NCELL, IK_HETERO_TETROL ) ! Reaction Label HET_GLY RKI( NCELL, 281) = BLKHET( NCELL, IK_HETERO_GLY ) ! Reaction Label HET_MGLY RKI( NCELL, 282) = BLKHET( NCELL, IK_HETERO_MGLY ) ! Reaction Label BL18a RKI( NCELL, 283) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.6000D-12, 3.8000D+02 ) ! Reaction Label BL18b RKI( NCELL, 284) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.6500D-13, 1.3000D+03 ) ! Reaction Label BL18c RKI( NCELL, 285) = 2.3000D-12 * CFACT ! Reaction Label BL18d RKI( NCELL, 286) = 3.5000D-14 * CFACT ! Reaction Label CP07mtp RKI( NCELL, 287) = 1.9200D-10 * CFACT ! Reaction Label BP70mtp RKI( NCELL, 288) = 7.2000D-12 * CFACT ! Reaction Label HYD_MT RKI( NCELL, 290) = 9.2590D-05 * SFACT ! Reaction Label OLIG_AROMATIC1 RKI( NCELL, 291) = 9.4882D-06 * SFACT ! Reaction Label OLIG_AROMATIC2 RKI( NCELL, 292) = 9.4882D-06 * SFACT ! Reaction Label OLIG_AROMATIC3 RKI( NCELL, 293) = 9.4882D-06 * SFACT ! Reaction Label OLIG_ISOPRENE1 RKI( NCELL, 294) = 9.4882D-06 * SFACT ! Reaction Label OLIG_ISOPRENE2 RKI( NCELL, 295) = 9.4882D-06 * SFACT ! Reaction Label OLIG_SESQT1 RKI( NCELL, 296) = 9.4882D-06 * SFACT ! Reaction Label RPOAGEPI RKI( NCELL, 297) = 2.5000D-12 * CFACT ! Reaction Label RPOAGELI RKI( NCELL, 298) = BLKHET( NCELL, IK_HETERO_PNCOMLI ) ! Reaction Label RPOAGEPJ RKI( NCELL, 299) = 2.5000D-12 * CFACT ! Reaction Label RPOAGELJ RKI( NCELL, 300) = BLKHET( NCELL, IK_HETERO_PNCOMLJ ) ! Reaction Label PCSOA RKI( NCELL, 301) = 1.2500D-11 * CFACT ! Reaction Label POA_AGE1 RKI( NCELL, 302) = 4.0000D-11 * CFACT ! Reaction Label POA_AGE2 RKI( NCELL, 303) = 4.0000D-11 * CFACT ! Reaction Label POA_AGE3 RKI( NCELL, 304) = 4.0000D-11 * CFACT ! Reaction Label POA_AGE4 RKI( NCELL, 305) = 4.0000D-11 * CFACT ! Reaction Label POA_AGE5 RKI( NCELL, 306) = 4.0000D-11 * CFACT ! Reaction Label POA_AGE6 RKI( NCELL, 307) = 4.0000D-11 * CFACT ! Reaction Label POA_AGE7 RKI( NCELL, 308) = 4.0000D-11 * CFACT ! Reaction Label POA_AGE8 RKI( NCELL, 309) = 4.0000D-11 * CFACT ! Reaction Label POA_AGE9 RKI( NCELL, 310) = 4.0000D-11 * CFACT ! Reaction Label POA_AGE10 RKI( NCELL, 311) = 4.0000D-11 * CFACT ! Reaction Label T01 RKI( NCELL, 312) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.4000D-12, 1.3500D+02 ) ! Reaction Label T02 RKI( NCELL, 313) = 5.5000D-16 * CFACT ! Reaction Label T03 RKI( NCELL, 314) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.4000D-11, -1.6000D+03 ) ! Reaction Label TCL1 RKI( NCELL, 317) = CFACT * ARRHENUIS_T03( INV_TEMP, 8.2000D-11, -3.4000D+01 ) ! Reaction Label T06 RKI( NCELL, 318) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.7000D-12, 3.4500D+02 ) ! Reaction Label T07 RKI( NCELL, 319) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.4000D-12, -1.8600D+03 ) ! Reaction Label T08 RKI( NCELL, 320) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.8000D-11, -1.1000D+03 ) ! Reaction Label TCL2 RKI( NCELL, 322) = 7.9000D-11 * CFACT ! Reaction Label T10 RKI( NCELL, 323) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.4800D-11, 4.4800D+02 ) ! Reaction Label T11 RKI( NCELL, 324) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.3400D-14, -2.2830D+03 ) ! Reaction Label T12 RKI( NCELL, 325) = 1.7900D-13 * CFACT ! Reaction Label TCL3 RKI( NCELL, 326) = 2.5100D-10 * CFACT ! Reaction Label T13 RKI( NCELL, 327) = 2.0000D-11 * CFACT ! Reaction Label T14 RKI( NCELL, 328) = 2.6100D-19 * CFACT ! Reaction Label T15 RKI( NCELL, 329) = 1.1500D-15 * CFACT ! Reaction Label TCL4 RKI( NCELL, 331) = 2.3700D-10 * CFACT ! Reaction Label T17 RKI( NCELL, 332) = 2.0000D-11 * CFACT ! Reaction Label T18 RKI( NCELL, 333) = 2.6100D-19 * CFACT ! Reaction Label T19 RKI( NCELL, 334) = 1.1500D-15 * CFACT ! Reaction Label TCL5 RKI( NCELL, 336) = 2.3700D-10 * CFACT ! Reaction Label T21 RKI( NCELL, 337) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.8000D-12, 3.4000D+02 ) ! Reaction Label TCL6 RKI( NCELL, 338) = 6.1000D-11 * CFACT ! Reaction Label HG1 RKI( NCELL, 339) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.1100D-18, -1.2565D+03 ) ! Reaction Label HG2 RKI( NCELL, 340) = 2.6000D-18 * CFACT ! Reaction Label HG3 RKI( NCELL, 341) = 8.5000D-19 * CFACT ! Reaction Label HG4 RKI( NCELL, 342) = 7.7000D-14 * CFACT ! Reaction Label HG5 RKI( NCELL, 343) = CFACT_SQU * ARRHENUIS_T03( INV_TEMP, 2.2500D-33, 6.8000D+02 ) END DO ! Multiply rate constants by [M], [O2], [N2], [H2O], [H2], or [CH4] ! where needed and return IF ( NWM .GT. 0 ) THEN DO NRT = 1, NWM IRXN = NRXWM( NRT ) DO NCELL = 1, NUMCELLS RKI( NCELL,IRXN ) = RKI( NCELL,IRXN ) * ATM_AIR END DO END DO END IF IF ( NWO2 .GT. 0 ) THEN DO NRT = 1, NWO2 IRXN = NRXWO2( NRT ) DO NCELL = 1, NUMCELLS RKI( NCELL,IRXN ) = RKI( NCELL,IRXN ) * ATM_O2 END DO END DO END IF IF ( NWN2 .GT. 0 ) THEN DO NRT = 1, NWN2 IRXN = NRXWN2( NRT ) DO NCELL = 1, NUMCELLS RKI( NCELL,IRXN ) = RKI( NCELL,IRXN ) * ATM_N2 END DO END DO END IF IF ( NWW .GT. 0 ) THEN DO NRT = 1, NWW IRXN = NRXWW( NRT ) DO NCELL = 1, NUMCELLS RKI( NCELL,IRXN ) = RKI( NCELL,IRXN ) * BLKH2O( NCELL ) END DO END DO END IF IF ( NWH2 .GT. 0 ) THEN DO NRT = 1, NWH2 IRXN = NRXWH2( NRT ) DO NCELL = 1, NUMCELLS RKI( NCELL,IRXN ) = RKI( NCELL,IRXN ) * ATM_H2 END DO END DO END IF IF ( NWCH4 .GT. 0 ) THEN DO NRT = 1, NWCH4 IRXN = NRXWCH4( NRT ) DO NCELL = 1, NUMCELLS RKI( NCELL,IRXN ) = RKI( NCELL,IRXN ) * ATM_CH4 END DO END DO END IF RETURN END SUBROUTINE CALC_RCONST FUNCTION MAP_CHEMISTRY_SPECIES() RESULT ( SUCCESS ) ! Purpose find or test the CGRID Index, Species Type, and Conversion Factor ! for the Mechanism against the CMAQ namelists USE UTILIO_DEFN USE CGRID_SPCS USE RXNS_DATA IMPLICIT NONE !Parameters: CHARACTER( 1 ), PARAMETER :: BL = ' ' INTEGER, PARAMETER :: SPC_DIM = 200 !Local: LOGICAL SUCCESS INTEGER I, IOS, J INTEGER I1, I2, I3, I4 ! SURROGATE TYPE 1 COUNTERS INTEGER J1, J2 ! SURROGATE TYPE 2 COUNTERS INTEGER K1, K2, K3, K4, K5 ! CONTROL TYPE COUNTERS INTEGER ICALL LOGICAL :: ORDER = .TRUE. LOGICAL :: FOUND = .TRUE. CHARACTER( 120 ) :: XMSG CHARACTER( 16 ), ALLOCATABLE :: CGRID_SPC ( : ) CHARACTER( 16 ), ALLOCATABLE :: NML_SPC ( : ) CHARACTER( 2 ), ALLOCATABLE :: NML_TYPE ( : ) INTEGER, ALLOCATABLE :: NML_INDEX ( : ) LOGICAL, ALLOCATABLE :: NML_CONVERT( : ) REAL, ALLOCATABLE :: NML_MOLWT ( : ) REAL :: DELTA ! fractional difference LOGICAL, SAVE :: INITIALIZED = .FALSE. IF( INITIALIZED )RETURN INITIALIZED = .TRUE. SUCCESS = .TRUE. ALLOCATE ( CGRID_SPC( NSPCSD - 1 ), & & NML_SPC ( NSPCSD - 1 ), & & NML_INDEX( NSPCSD - 1 ), & & NML_TYPE( NSPCSD - 1 ), & & NML_CONVERT( NSPCSD - 1 ), & & NML_MOLWT( NSPCSD - 1 ), & & STAT = IOS ) J = 0 NML_INDEX = -1 TYPE_INDEX = -1 NML_TYPE = '??' NML_CONVERT = .FALSE. DO I = 1, N_GC_SPC ! load gc names and indices J = J + 1 CGRID_SPC( I ) = GC_SPC( I ) NML_INDEX( J ) = I + GC_STRT -1 NML_TYPE( J ) = 'GC' NML_MOLWT( J ) = GC_MOLWT( I ) END DO DO I = 1, N_AE_SPC ! load ae names and indices J = J + 1 CGRID_SPC( J ) = AE_SPC( I ) NML_INDEX( J ) = I + AE_STRT - 1 NML_TYPE( J ) = 'AE' NML_CONVERT( J ) = .TRUE. NML_MOLWT( J ) = AE_MOLWT( I ) END DO DO I = 1, N_NR_SPC ! load nr names and indices J = J + 1 CGRID_SPC( J ) = NR_SPC( I ) NML_INDEX( J ) = I + NR_STRT - 1 NML_TYPE( J ) = 'NR' NML_MOLWT( J ) = NR_MOLWT( I ) END DO DO I = 1, N_TR_SPC ! load tr names and indices J = J + 1 CGRID_SPC( J ) = TR_SPC( I ) NML_INDEX( J ) = I + TR_STRT - 1 NML_TYPE( J ) = 'TR' NML_MOLWT( J ) = TR_MOLWT( I ) END DO NML_SPC( 1:(NSPCSD-1) ) = CGRID_SPC( 1:(NSPCSD-1) ) ! determine if mechanism species are in cgrid species DO I = 1, NUMB_MECH_SPC ! set species informations arrays using SPECIES_LIST array before mapping CHEMISTRY_SPC( I ) = SPECIES_LIST( I )%CHEMISTRY_SPC CGRID_INDEX ( I ) = SPECIES_LIST( I )%CGRID_INDEX SPECIES_TYPE ( I ) = SPECIES_LIST( I )%SPECIES_TYPE CONVERT_CONC ( I ) = SPECIES_LIST( I )%CONVERT_CONC SPECIES_MOLWT( I ) = SPECIES_LIST( I )%SPECIES_MOLWT I1 = INDEX1R( CHEMISTRY_SPC( I ), (NSPCSD-1), CGRID_SPC ) IF ( I1 .LT. 1 ) THEN FOUND = .FALSE. ELSE FOUND = .TRUE. IF( .NOT. MAPPED_TO_CGRID )THEN CGRID_INDEX( I ) = NML_INDEX( I1 ) SPECIES_TYPE( I ) = NML_TYPE ( I1 ) SPECIES_MOLWT( I ) = NML_MOLWT( I1 ) CONVERT_CONC( I ) = NML_CONVERT( I1 ) ELSE IF(CGRID_INDEX( I ) .NE. NML_INDEX( I1 ))THEN SUCCESS = .FALSE. XMSG = '*** For Species ' // TRIM( CHEMISTRY_SPC( I ) ) & & // ' cgrid index does not match mechanism value.' WRITE( LOGDEV,'( /5X, A )' ) TRIM( XMSG ) WRITE( XMSG,'(A,I3,1X,I3)')'CGRID Indices: Mechanism and NML Values are ', & & CGRID_INDEX( I ),NML_INDEX( I1 ) WRITE( LOGDEV,'( 5X, A )' )XMSG END IF IF(CONVERT_CONC( I ) .NEQV. NML_CONVERT( I1 ))THEN SUCCESS = .FALSE. XMSG = '*** For Species ' // TRIM( CHEMISTRY_SPC( I ) ) & & // ' species unit conversion flag does not match mechanism value.' WRITE( LOGDEV,'( /5X, A )' ) TRIM( XMSG ) WRITE( XMSG,'(A,1X,L21X,L2)')'CONVERSION FLAGS: Mechanism and NML Values are ', & & CONVERT_CONC( I ),NML_CONVERT( I1 ) WRITE( LOGDEV,'( 5X, A )' )XMSG WRITE( XMSG,'(A,1X,A3,1X,A3)')'SPECIES TYPE: Mechanism and NML Values are ', & & SPECIES_TYPE( I ),NML_TYPE( I1 ) WRITE( LOGDEV,'( 5X, A )' )XMSG END IF DELTA = ( SPECIES_MOLWT( I ) - NML_MOLWT( I1 ) )/MAX(NML_MOLWT( I1 ),1.0E-20) IF( ABS( DELTA ) .GE. 0.05 )THEN IF( CONVERT_CONC( I ) )SUCCESS = .FALSE. XMSG = '*** For Species ' // TRIM( CHEMISTRY_SPC( I ) ) & & // ' species molecular weight does not match mechanism value.' WRITE( LOGDEV,'( /5X, A )' ) TRIM( XMSG ) WRITE( XMSG,'(A,2(ES12.4,1X))')'Molecular Weight: Mechanism and NML Values are ', & & SPECIES_MOLWT( I ), NML_MOLWT( I1 ) WRITE( LOGDEV,'( 5X, A )' )XMSG END IF END IF END IF IF( INDEX( CHEMISTRY_SPC( I ), 'SRF') .GT. 0 )THEN SUCCESS = .FALSE. XMSG = '*** reactions cannot use modal aerosol surface area as species' WRITE( LOGDEV,'( /5X, A )' ) TRIM( XMSG ) XMSG = TRIM( CHEMISTRY_SPC( I ) ) WRITE( LOGDEV,'( 2X, A )' ) TRIM( XMSG ) END IF IF( INDEX( CHEMISTRY_SPC( I ), 'NUM') .GT. 0 )THEN SUCCESS = .FALSE. XMSG = '*** reactions cannot use modal aerosol number density as species' WRITE( LOGDEV,'( /5X, A )' ) TRIM( XMSG ) XMSG = TRIM( CHEMISTRY_SPC( I ) ) WRITE( LOGDEV,'( 2X, A )' ) TRIM( XMSG ) END IF IF ( .NOT. FOUND ) THEN XMSG = 'Fatal error: Mechanism Species found not in species namelist:' WRITE( LOGDEV,'( /5X, A )', ADVANCE = 'NO' ) TRIM( XMSG ) XMSG = TRIM( CHEMISTRY_SPC( I ) ) WRITE( LOGDEV,'( 2X, A )' ) TRIM( XMSG ) SUCCESS = .FALSE. END IF END DO IF( SUCCESS )RETURN WRITE(LOGDEV,99901)TRIM( MECHNAME ) XMSG = 'The FATAL errors found in namelist used. Check ' & & // 'the log of exiting processor if more details are needed.' CALL M3WARN('MAP_CHEMISTRY_SPECIES',0,0,XMSG) 99901 FORMAT( / 'FATAL error(s) found in the namelists used. Check that ' & & / 'these namelists contain the above data as the respective files ' & & / 'in the respository version of the mechanism: ' , A ) RETURN END FUNCTION MAP_CHEMISTRY_SPECIES !---------------------------------------------------------------------------------------- INTEGER FUNCTION INDEX1R ( NAME, N, NLIST ) IMPLICIT NONE CHARACTER( * ) NAME ! character string being searched for INTEGER N ! length of array to be searched CHARACTER( * ) NLIST( : ) ! array to be searched INTEGER I DO I = 1, N IF ( NAME .EQ. NLIST( I ) ) THEN INDEX1R = I RETURN END IF END DO INDEX1R = 0 RETURN END FUNCTION INDEX1R SUBROUTINE RESET_SPECIES_POINTERS( IOLD2NEW ) USE RXNS_DATA IMPLICIT NONE INTEGER, INTENT( IN ) :: IOLD2NEW( :,: ) INDEX_NO2 = IOLD2NEW( INDEX_NO2 , 1 ) INDEX_NO = IOLD2NEW( INDEX_NO , 1 ) INDEX_O = IOLD2NEW( INDEX_O , 1 ) INDEX_O3 = IOLD2NEW( INDEX_O3 , 1 ) INDEX_NO3 = IOLD2NEW( INDEX_NO3 , 1 ) INDEX_O1D = IOLD2NEW( INDEX_O1D , 1 ) INDEX_OH = IOLD2NEW( INDEX_OH , 1 ) INDEX_HO2 = IOLD2NEW( INDEX_HO2 , 1 ) INDEX_H2O2 = IOLD2NEW( INDEX_H2O2 , 1 ) INDEX_N2O5 = IOLD2NEW( INDEX_N2O5 , 1 ) INDEX_HNO3 = IOLD2NEW( INDEX_HNO3 , 1 ) INDEX_HONO = IOLD2NEW( INDEX_HONO , 1 ) INDEX_PNA = IOLD2NEW( INDEX_PNA , 1 ) INDEX_SO2 = IOLD2NEW( INDEX_SO2 , 1 ) INDEX_SULF = IOLD2NEW( INDEX_SULF , 1 ) INDEX_SULRXN = IOLD2NEW( INDEX_SULRXN , 1 ) INDEX_C2O3 = IOLD2NEW( INDEX_C2O3 , 1 ) INDEX_MEO2 = IOLD2NEW( INDEX_MEO2 , 1 ) INDEX_RO2 = IOLD2NEW( INDEX_RO2 , 1 ) INDEX_PAN = IOLD2NEW( INDEX_PAN , 1 ) INDEX_PACD = IOLD2NEW( INDEX_PACD , 1 ) INDEX_AACD = IOLD2NEW( INDEX_AACD , 1 ) INDEX_CXO3 = IOLD2NEW( INDEX_CXO3 , 1 ) INDEX_ALD2 = IOLD2NEW( INDEX_ALD2 , 1 ) INDEX_XO2H = IOLD2NEW( INDEX_XO2H , 1 ) INDEX_PANX = IOLD2NEW( INDEX_PANX , 1 ) INDEX_FORM = IOLD2NEW( INDEX_FORM , 1 ) INDEX_MEPX = IOLD2NEW( INDEX_MEPX , 1 ) INDEX_MEOH = IOLD2NEW( INDEX_MEOH , 1 ) INDEX_ROOH = IOLD2NEW( INDEX_ROOH , 1 ) INDEX_XO2 = IOLD2NEW( INDEX_XO2 , 1 ) INDEX_XO2N = IOLD2NEW( INDEX_XO2N , 1 ) INDEX_NTR1 = IOLD2NEW( INDEX_NTR1 , 1 ) INDEX_NTR2 = IOLD2NEW( INDEX_NTR2 , 1 ) INDEX_FACD = IOLD2NEW( INDEX_FACD , 1 ) INDEX_CO = IOLD2NEW( INDEX_CO , 1 ) INDEX_HCO3 = IOLD2NEW( INDEX_HCO3 , 1 ) INDEX_ALDX = IOLD2NEW( INDEX_ALDX , 1 ) INDEX_GLYD = IOLD2NEW( INDEX_GLYD , 1 ) INDEX_GLY = IOLD2NEW( INDEX_GLY , 1 ) INDEX_MGLY = IOLD2NEW( INDEX_MGLY , 1 ) INDEX_ETHA = IOLD2NEW( INDEX_ETHA , 1 ) INDEX_ETOH = IOLD2NEW( INDEX_ETOH , 1 ) INDEX_KET = IOLD2NEW( INDEX_KET , 1 ) INDEX_PAR = IOLD2NEW( INDEX_PAR , 1 ) INDEX_ACET = IOLD2NEW( INDEX_ACET , 1 ) INDEX_PRPA = IOLD2NEW( INDEX_PRPA , 1 ) INDEX_XPRP = IOLD2NEW( INDEX_XPRP , 1 ) INDEX_XPAR = IOLD2NEW( INDEX_XPAR , 1 ) INDEX_ROR = IOLD2NEW( INDEX_ROR , 1 ) INDEX_ETHY = IOLD2NEW( INDEX_ETHY , 1 ) INDEX_ETH = IOLD2NEW( INDEX_ETH , 1 ) INDEX_OLE = IOLD2NEW( INDEX_OLE , 1 ) INDEX_IOLE = IOLD2NEW( INDEX_IOLE , 1 ) INDEX_ISOP = IOLD2NEW( INDEX_ISOP , 1 ) INDEX_ISO2 = IOLD2NEW( INDEX_ISO2 , 1 ) INDEX_ISOPRXN = IOLD2NEW( INDEX_ISOPRXN , 1 ) INDEX_ISPD = IOLD2NEW( INDEX_ISPD , 1 ) INDEX_INTR = IOLD2NEW( INDEX_INTR , 1 ) INDEX_ISPX = IOLD2NEW( INDEX_ISPX , 1 ) INDEX_HPLD = IOLD2NEW( INDEX_HPLD , 1 ) INDEX_OPO3 = IOLD2NEW( INDEX_OPO3 , 1 ) INDEX_EPOX = IOLD2NEW( INDEX_EPOX , 1 ) INDEX_EPX2 = IOLD2NEW( INDEX_EPX2 , 1 ) INDEX_TERP = IOLD2NEW( INDEX_TERP , 1 ) INDEX_TRPRXN = IOLD2NEW( INDEX_TRPRXN , 1 ) INDEX_TERPNRO2 = IOLD2NEW( INDEX_TERPNRO2 , 1 ) INDEX_APIN = IOLD2NEW( INDEX_APIN , 1 ) INDEX_BENZENE = IOLD2NEW( INDEX_BENZENE , 1 ) INDEX_CRES = IOLD2NEW( INDEX_CRES , 1 ) INDEX_BZO2 = IOLD2NEW( INDEX_BZO2 , 1 ) INDEX_OPEN = IOLD2NEW( INDEX_OPEN , 1 ) INDEX_BENZRO2 = IOLD2NEW( INDEX_BENZRO2 , 1 ) INDEX_TOL = IOLD2NEW( INDEX_TOL , 1 ) INDEX_TO2 = IOLD2NEW( INDEX_TO2 , 1 ) INDEX_TOLRO2 = IOLD2NEW( INDEX_TOLRO2 , 1 ) INDEX_XOPN = IOLD2NEW( INDEX_XOPN , 1 ) INDEX_XYLMN = IOLD2NEW( INDEX_XYLMN , 1 ) INDEX_XLO2 = IOLD2NEW( INDEX_XLO2 , 1 ) INDEX_XYLRO2 = IOLD2NEW( INDEX_XYLRO2 , 1 ) INDEX_NAPH = IOLD2NEW( INDEX_NAPH , 1 ) INDEX_PAHRO2 = IOLD2NEW( INDEX_PAHRO2 , 1 ) INDEX_CRO = IOLD2NEW( INDEX_CRO , 1 ) INDEX_CAT1 = IOLD2NEW( INDEX_CAT1 , 1 ) INDEX_CRON = IOLD2NEW( INDEX_CRON , 1 ) INDEX_OPAN = IOLD2NEW( INDEX_OPAN , 1 ) INDEX_ECH4 = IOLD2NEW( INDEX_ECH4 , 1 ) INDEX_CL2 = IOLD2NEW( INDEX_CL2 , 1 ) INDEX_CL = IOLD2NEW( INDEX_CL , 1 ) INDEX_HOCL = IOLD2NEW( INDEX_HOCL , 1 ) INDEX_CLO = IOLD2NEW( INDEX_CLO , 1 ) INDEX_FMCL = IOLD2NEW( INDEX_FMCL , 1 ) INDEX_HCL = IOLD2NEW( INDEX_HCL , 1 ) INDEX_CLNO2 = IOLD2NEW( INDEX_CLNO2 , 1 ) INDEX_CLNO3 = IOLD2NEW( INDEX_CLNO3 , 1 ) INDEX_SVAVB2 = IOLD2NEW( INDEX_SVAVB2 , 1 ) INDEX_SVAVB3 = IOLD2NEW( INDEX_SVAVB3 , 1 ) INDEX_SVAVB4 = IOLD2NEW( INDEX_SVAVB4 , 1 ) INDEX_SVAVB1 = IOLD2NEW( INDEX_SVAVB1 , 1 ) INDEX_SESQ = IOLD2NEW( INDEX_SESQ , 1 ) INDEX_SESQRXN = IOLD2NEW( INDEX_SESQRXN , 1 ) INDEX_SOAALK = IOLD2NEW( INDEX_SOAALK , 1 ) INDEX_H2NO3PIJ = IOLD2NEW( INDEX_H2NO3PIJ , 1 ) INDEX_H2NO3PK = IOLD2NEW( INDEX_H2NO3PK , 1 ) INDEX_ACLI = IOLD2NEW( INDEX_ACLI , 1 ) INDEX_ACLJ = IOLD2NEW( INDEX_ACLJ , 1 ) INDEX_ACLK = IOLD2NEW( INDEX_ACLK , 1 ) INDEX_IEPOXP = IOLD2NEW( INDEX_IEPOXP , 1 ) INDEX_ASO4J = IOLD2NEW( INDEX_ASO4J , 1 ) INDEX_AISO3J = IOLD2NEW( INDEX_AISO3J , 1 ) INDEX_AGLYJ = IOLD2NEW( INDEX_AGLYJ , 1 ) INDEX_MTNO3 = IOLD2NEW( INDEX_MTNO3 , 1 ) INDEX_AMTNO3J = IOLD2NEW( INDEX_AMTNO3J , 1 ) INDEX_AMTHYDJ = IOLD2NEW( INDEX_AMTHYDJ , 1 ) INDEX_AAVB2J = IOLD2NEW( INDEX_AAVB2J , 1 ) INDEX_AOLGAJ = IOLD2NEW( INDEX_AOLGAJ , 1 ) INDEX_AAVB3J = IOLD2NEW( INDEX_AAVB3J , 1 ) INDEX_AAVB4J = IOLD2NEW( INDEX_AAVB4J , 1 ) INDEX_AISO1J = IOLD2NEW( INDEX_AISO1J , 1 ) INDEX_AOLGBJ = IOLD2NEW( INDEX_AOLGBJ , 1 ) INDEX_AISO2J = IOLD2NEW( INDEX_AISO2J , 1 ) INDEX_ASQTJ = IOLD2NEW( INDEX_ASQTJ , 1 ) INDEX_APOCI = IOLD2NEW( INDEX_APOCI , 1 ) INDEX_APNCOMI = IOLD2NEW( INDEX_APNCOMI , 1 ) INDEX_APOCJ = IOLD2NEW( INDEX_APOCJ , 1 ) INDEX_APNCOMJ = IOLD2NEW( INDEX_APNCOMJ , 1 ) INDEX_PCVOC = IOLD2NEW( INDEX_PCVOC , 1 ) INDEX_PCSOARXN = IOLD2NEW( INDEX_PCSOARXN , 1 ) INDEX_VLVPO1 = IOLD2NEW( INDEX_VLVPO1 , 1 ) INDEX_VSVPO1 = IOLD2NEW( INDEX_VSVPO1 , 1 ) INDEX_VSVPO2 = IOLD2NEW( INDEX_VSVPO2 , 1 ) INDEX_VSVPO3 = IOLD2NEW( INDEX_VSVPO3 , 1 ) INDEX_VIVPO1 = IOLD2NEW( INDEX_VIVPO1 , 1 ) INDEX_VLVOO1 = IOLD2NEW( INDEX_VLVOO1 , 1 ) INDEX_VLVOO2 = IOLD2NEW( INDEX_VLVOO2 , 1 ) INDEX_VSVOO2 = IOLD2NEW( INDEX_VSVOO2 , 1 ) INDEX_VSVOO3 = IOLD2NEW( INDEX_VSVOO3 , 1 ) INDEX_VSVOO1 = IOLD2NEW( INDEX_VSVOO1 , 1 ) INDEX_FORM_PRIMARY = IOLD2NEW( INDEX_FORM_PRIMARY, 1 ) INDEX_ALD2_PRIMARY = IOLD2NEW( INDEX_ALD2_PRIMARY, 1 ) INDEX_BUTADIENE13 = IOLD2NEW( INDEX_BUTADIENE13 , 1 ) INDEX_ACROLEIN = IOLD2NEW( INDEX_ACROLEIN , 1 ) INDEX_ACRO_PRIMARY = IOLD2NEW( INDEX_ACRO_PRIMARY, 1 ) INDEX_TOLU = IOLD2NEW( INDEX_TOLU , 1 ) INDEX_HG = IOLD2NEW( INDEX_HG , 1 ) INDEX_HGIIAER = IOLD2NEW( INDEX_HGIIAER , 1 ) INDEX_HGIIGAS = IOLD2NEW( INDEX_HGIIGAS , 1 ) END SUBROUTINE RESET_SPECIES_POINTERS END MODULE RXNS_FUNCTION ================================================ FILE: CCTM/src/MECHS/cb6r3_ae7_aq/SpecDef_Conc_cb6r3_ae7_aq.txt ================================================ !#start YYYYJJJ 010000 !#end YYYYJJJ 000000 #layer 1 / ! This Species Definition File is for Use with the COMBINE tool built for ! post-processing CMAQ output. It is compatible with CMAQv5.4. ! Date: May 12 2017 ! Output variables that begin with 'PM' represent those in which a size cut was ! applied based on modeled aerosol mode parameters. For example, PM25_NA is all ! sodium that falls below 2.5 um diameter. These 'PM' variables are used for ! comparisons at IMPROVE and CSN sites. ! Output variables that begin with 'PMAMS' represent the mass that would have ! been detected by an Aerosol Mass Spectrometer. ! Output variables beginning with 'A' (aside from AIR_DENS) represent a ! combination of aerosol species in which no size cut was applied. For example, ! ASO4IJ is the sum of i-mode and j-mode sulfate. These 'A' variables are used ! for comparisons at CASTNet sites. ! Output variables beginning with 'PMC' refer to the coarse fraction of total PM, ! computed by summing all modes and subtracting the PM2.5 fraction. These 'PMC' ! variables are used for comparisons at SEARCH sites. ! This Species Definition File is just for use with the uncoupled, offline CMAQ, ! model. If you are processing WRF-CMAQ results, a different Species Definition ! file is required. / File [1]: CMAQ conc/aconc file / File [2]: METCRO3D file / File [3]: ELMO/AELMO file / File [4]: METCRO2D file / /new species ,units ,expression !-------------------------------------------! !------------- Meteorology -----------------! !-------------------------------------------! AIR_DENS ,kg m-3 ,DENS[2] RH ,% ,100.00*RH[3] SFC_TMP ,C ,(TEMP2[4]-273.15) PBLH ,m ,PBL[4] SOL_RAD ,W m-2 ,RGRND[4] precip ,cm ,RC[4]>=0 ? RN[4]+RC[4] : RN[4] WSPD10 ,m s-1 ,WSPD10[4] WDIR10 ,deg ,WDIR10[4] !-------------------------------------------! !--------------- Gases ---------------------! !-------------------------------------------! ALD2 ,ppbV ,1000.0*ALD2[1] BENZENE ,ppbV ,1000.0*BENZENE[1] CO ,ppbV ,1000.0*CO[1] ETH ,ppbV ,1000.0*ETH[1] ETHA ,ppbV ,1000.0*ETHA[1] FORM ,ppbV ,1000.0*FORM[1] H2O2 ,ppbV ,1000.0*H2O2[1] HNO3 ,ppbV ,1000.0*HNO3[1] HNO3_UGM3 ,ug m-3 ,1000.0*(HNO3[1]*2.1756*DENS[2]) HONO ,ppbV ,1000.0*HONO[1] HOX ,ppbV ,1000.0*(OH[1]+HO2[1]) OH ,ppbV ,1000.0*(OH[1]) ISOP ,ppbV ,1000.0*ISOP[1] N2O5 ,ppbV ,1000.0*N2O5[1] NH3 ,ppbV ,1000.0*NH3[1] NH3_UGM3 ,ug m-3 ,1000.0*(NH3[1]*0.5880*DENS[2]) NHX ,ug m-3 ,1000.0*(NH3[1]*0.5880*DENS[2])+ANH4I[1]+ANH4J[1]+ANH4K[1] NO ,ppbV ,1000.0*NO[1] NO2 ,ppbV ,1000.0*NO2[1] NOX ,ppbV ,1000.0*(NO[1] + NO2[1]) ANO3_PPB ,ppbV ,(ANO3I[1]+ANO3J[1]+ANO3K[1])/(DENS[2]*(62.0/28.97)) NTR ,ppbV ,1000.0*(NTR1[1]+NTR2[1]+INTR[1]) PANS ,ppbV ,1000.0*(PAN[1]+PANX[1]+OPAN[1]) NOY ,ppbV ,1000.0* (NO[1]+NO2[1]+NO3[1]+2*N2O5[1]+HONO[1]+HNO3[1]+PNA[1] \ +CRON[1]+CLNO2[1]+CLNO3[1]) \ +PANS[0]+NTR[0]+ANO3_PPB[0] O3 ,ppbV ,1000.0*O3[1] SO2 ,ppbV ,1000.0*SO2[1] SO2_UGM3 ,ug m-3 ,1000.0*(SO2[1]*2.2118*DENS[2]) TERP ,ppbV ,1000.0*TERP[1] TOL ,ppbV ,1000.0*TOL[1] XYL ,ppbV ,1000.0*XYLMN[1] !Additional Toxic gases !ACROLEIN ,ug m-3 ,1000.0*(ACROLEIN[1]*1.9365*DENS[2]) !ACRO_PRIMARY ,ug m-3 ,1000.0*(ACRO_PRIMARY*1.9365*DENS[2]) !ALD2_PRIMARY ,ug m-3 ,1000.0*(ALD2_PRIMARY[1]*1.5188*DENS[2]) !FORM_PRIMARY ,ug m-3 ,1000.0*(FORM_PRIMARY[1]*1.0356*DENS[2]) !BUTADIENE13 ,ug m-3 ,1000.0*(BUTADIENE13[1]*1.8674*DENS[2]) !HCL ,ppbV ,1000.0*HCL[1] !TOLUENE ,ppbV ,1000.0*TOLU[1] !Mercuric gas species !HG_0 ,ng/m3 ,1000.0*(HG[1]*8.3330*DENS[2]*1000.0) !HG_II ,ng/m3 ,1000.0*(HGIIGAS[1]*8.3330*DENS[2]*1000.0) !! Unused Gases. Presented Here for illustration. Users can uncomment !! them if they choose. !ALDX ,ppbV ,1000.0*ALDX[1] !IOLE ,ppbV ,1000.0*IOLE[1] !OLE ,ppbV ,1000.0*OLE[1] !PAR ,ppbV ,1000.0*PAR[1] !PAN ,ppbV ,1000.0*PAN[1] !SULF ,ppbV ,1000.0*SULF[1] ! emitted VOCs !VOC ,ppbC ,1000.0* (PAR[1] +2.0*ETHA[1] +3.0*PRPA[1] +MEOH[1]\ ! +2.0*ETH[1] +2.0*ETOH[1] +2.0*OLE[1] +3.0*ACET[1] \ ! +7.0*TOL[1] +8.0*XYLMN[1] +6.0*BENZENE[1] \ ! +FORM[1] +3.0*GLY[1] +4.0*KET[1] +2.0*ETHY[1] \ ! +2.0*ALD2[1] + 4.0*IOLE[1] + 2.0*ALDX[1] \ ! +5.0*ISOP[1] + 10.0*TERP[1]+ 10.0*NAPH[1] +10.*APIN[1]) !-------------------------------------------! !--------------- Particles -----------------! !-------------------------------------------! !! Crustal Elements AFEJ ,ug m-3 ,AFEJ[1] AALJ ,ug m-3 ,AALJ[1] ASIJ ,ug m-3 ,ASIJ[1] ATIJ ,ug m-3 ,ATIJ[1] ACAJ ,ug m-3 ,ACAJ[1] AMGJ ,ug m-3 ,AMGJ[1] AKJ ,ug m-3 ,AKJ[1] AMNJ ,ug m-3 ,AMNJ[1] ASOILJ ,ug m-3 ,2.20*AALJ[1]+2.49*ASIJ[1]+1.63*ACAJ[1]+2.42*AFEJ[1]+1.94*ATIJ[1] !! Non-Crustal Inorganic Particle Species AHPLUSIJ ,umol m-3 ,(AH3OPI[1]+AH3OPJ[1])*1.0/19.0 ANAK ,ug m-3 ,0.8373*ASEACAT[1]+0.0626*ASOIL[1]+0.0023*ACORS[1] AMGK ,ug m-3 ,0.0997*ASEACAT[1]+0.0170*ASOIL[1]+0.0032*ACORS[1] AKK ,ug m-3 ,0.0310*ASEACAT[1]+0.0242*ASOIL[1]+0.0176*ACORS[1] ACAK ,ug m-3 ,0.0320*ASEACAT[1]+0.0838*ASOIL[1]+0.0562*ACORS[1] ACLIJ ,ug m-3 ,ACLI[1]+ACLJ[1] AECIJ ,ug m-3 ,AECI[1]+AECJ[1] ANAIJ ,ug m-3 ,ANAJ[1]+ANAI[1] ANO3IJ ,ug m-3 ,ANO3I[1]+ANO3J[1] ANO3K ,ug m-3 ,ANO3K[1] TNO3 ,ug m-3 ,2175.6*(HNO3[1]*DENS[2])+ANO3I[1]+ANO3J[1]+ANO3K[1] ANH4IJ ,ug m-3 ,ANH4I[1]+ANH4J[1] ANH4K ,ug m-3 ,ANH4K[1] ASO4IJ ,ug m-3 ,ASO4I[1]+ASO4J[1] ASO4K ,ug m-3 ,ASO4K[1] !! Organic Particle Species APOCI ,ugC m-3 ,ALVPO1I[1]/1.39 + ASVPO1I[1]/1.32 + ASVPO2I[1]/1.26 \ +APOCI[1] APOCJ ,ugC m-3 ,ALVPO1J[1]/1.39 + ASVPO1J[1]/1.32 + ASVPO2J[1]/1.26 \ +ASVPO3J[1]/1.21 + AIVPO1J[1]/1.17 + APOCJ[1] APOCIJ ,ugC m-3 ,APOCI[0] + APOCJ[0] APOMI ,ug m-3 ,ALVPO1I[1] + ASVPO1I[1] + ASVPO2I[1] + APOCI[1] \ +APNCOMI[1] APOMJ ,ug m-3 ,ALVPO1J[1] + ASVPO1J[1] + ASVPO2J[1] + APOCJ[1] \ +ASVPO3J[1] + AIVPO1J[1] + APNCOMJ[1] APOMIJ ,ug m-3 ,APOMI[0] + APOMJ[0] ASOCI ,ugC m-3 ,ALVOO1I[1]/2.27 + ALVOO2I[1]/2.06 \ +ASVOO1I[1]/1.88 + ASVOO2I[1]/1.73 ASOCJ ,ugC m-3 ,AISO1J[1]/2.20 + AISO2J[1]/2.23 + AISO3J[1]/2.80 \ +AMT1J[1]/1.67 + AMT2J[1]/1.67 + AMT3J[1]/1.72 \ +AMT4J[1]/1.53 + AMT5J[1]/1.57 + AMT6J[1]/1.40 \ +AMTNO3J[1]/1.90 + AMTHYDJ[1]/1.54 \ +AGLYJ[1]/2.13 + ASQTJ[1]/1.52 \ +AORGCJ[1]/2.00 + AOLGBJ[1]/2.10 + AOLGAJ[1]/2.50 \ +ALVOO1J[1]/2.27 + ALVOO2J[1]/2.06 + ASVOO1J[1]/1.88 \ +ASVOO2J[1]/1.73 + ASVOO3J[1]/1.60 \ +AAVB1J[1]/2.70 + AAVB2J[1]/2.35 + AAVB3J[1]/2.17 \ +AAVB4J[1]/1.99 + APCSOJ[1]/2.00 ASOCIJ ,ugC m-3 ,ASOCI[0] + ASOCJ[0] ASOMI ,ug m-3 ,ALVOO1I[1] + ALVOO2I[1] + ASVOO1I[1] + ASVOO2I[1] ASOMJ ,ug m-3 ,+AISO1J[1]+ AISO2J[1] + AISO3J[1] \ +AMT1J[1] + AMT2J[1] + AMT3J[1] \ +AMT4J[1] + AMT5J[1] + AMT6J[1] \ +AMTNO3J[1] + AMTHYDJ[1] \ +AGLYJ[1] + ASQTJ[1] \ +AORGCJ[1] + AOLGBJ[1] + AOLGAJ[1] \ +ALVOO1J[1] + ALVOO2J[1] + ASVOO1J[1] \ +ASVOO2J[1] + ASVOO3J[1] + APCSOJ[1] \ +AAVB1J[1] + AAVB2J[1] + AAVB3J[1] \ +AAVB4J[1] ASOMIJ ,ug m-3 ,ASOMI[0] + ASOMJ[0] AOCI ,ugC m-3 ,APOCI[0] + ASOCI[0] AOCJ ,ugC m-3 ,APOCJ[0] + ASOCJ[0] AOCIJ ,ugC m-3 ,APOCIJ[0] + ASOCIJ[0] AOMI ,ug m-3 ,APOMI[0] + ASOMI[0] AOMJ ,ug m-3 ,APOMJ[0] + ASOMJ[0] AOMIJ ,ug m-3 ,APOMIJ[0] + ASOMIJ[0] !!! Anthropogenic-VOC Derived Organic Aerosol AORGAI ,ug m-3 ,ALVOO1I[1] + ALVOO2I[1] + ASVOO1I[1] \ +ASVOO2I[1] AORGAJ ,ug m-3 ,ALVOO1J[1] + ALVOO2J[1] \ +ASVOO1J[1] + ASVOO2J[1] + ASVOO3J[1] \ +AAVB1J[1] + AAVB2J[1] + AAVB3J[1] \ +AAVB4J[1] + AOLGAJ[1] + APCSOJ[1] AORGAIJ ,ug m-3 ,AORGAI[0] + AORGAJ[0] !!! Biogenic-VOC Derived Organic Aerosol AORGBIJ ,ug m-3 ,AMT1J[1] + AMT2J[1] + AMT3J[1] + AMT4J[1] \ +AMT5J[1] + AMT6J[1] + AMTNO3J[1] \ +AMTHYDJ[1] + AISO1J[1] + AISO2J[1] \ +AISO3J[1] + ASQTJ[1] + AOLGBJ[1] !!! Cloud-Processed SOA AORGCJ ,ug m-3 ,AORGCJ[1] !!! Remaining SOA AGLYJ ,ug m-3 ,AGLYJ[1] !!! OM/OC ratios AOMOCRAT_TOT , ,AOMIJ[0]/AOCIJ[0] !! Total PM Aggregates ATOTI ,ug m-3 ,ASO4I[1] + ANH4I[1] + ANO3I[1] + ANAI[1] \ +ACLI[1] + AECI[1] + AOMI[0] + AOTHRI[1] ATOTJ ,ug m-3 ,ASO4J[1] + ANH4J[1] + ANO3J[1] + ANAJ[1] \ +ACLJ[1] + AECJ[1] + AOMJ[0] + AOTHRJ[1] \ +AFEJ[1] + AALJ[1] + ASIJ[1] + ATIJ[1] \ +ACAJ[1] + AMGJ[1] + AKJ[1] + AMNJ[1] ATOTK ,ug m-3 ,ASO4K[1] + ANH4K[1] + ANO3K[1] + ACLK[1] \ +ACORS[1] + ASOIL[1] + ASEACAT[1] ATOTIJ ,ug m-3 ,ATOTI[0] + ATOTJ[0] ATOTIJK ,ug m-3 ,ATOTI[0] + ATOTJ[0] + ATOTK[0] !! Unspeciated PM including non-carbon organic mass AUNSPEC1IJ ,ug m-3 ,ATOTIJ[0] - (ASO4IJ[0] + ANO3IJ[0] \ +ANH4IJ[0] + ACLIJ[0] \ +ANAIJ[0] + AECIJ[0] \ +AOCIJ[0] + ASOILJ[0]) !! Non-Carbon Organic Mass ANCOMIJ ,ug m-3 ,AOMIJ[0] - AOCIJ[0] !! Unspeciated PM excluding non-carbon organic mass AUNSPEC2IJ ,ug m-3 ,AUNSPEC1IJ[0] - ANCOMIJ[0] !! AMS Projection of Output Concentrations PMAMS_CL ,ug m-3 ,ACLI[1] *FAMSAIT[3] +ACLJ[1]*FAMSACC[3]+ACLK[1] *FAMSCOR[3] PMAMS_NH4 ,ug m-3 ,ANH4I[1]*FAMSAIT[3]+ANH4J[1]*FAMSACC[3]+ANH4K[1]*FAMSCOR[3] PMAMS_NO3 ,ug m-3 ,ANO3I[1]*FAMSAIT[3]+ANO3J[1]*FAMSACC[3]+ANO3K[1]*FAMSCOR[3] PMAMS_OA ,ug m-3 ,AOMI[0] *FAMSAIT[3]+AOMJ[0] *FAMSACC[3] PMAMS_SO4 ,ug m-3 ,ASO4I[1]*FAMSAIT[3]+ASO4J[1]*FAMSACC[3]+ASO4K[1]*FAMSCOR[3] !! PM1 Cutoff Output PM1_TOT ,ug m-3 ,ATOTI[0]*FPM1AIT[3]+ATOTJ[0]*FPM1ACC[3]+ATOTK[0]*FPM1COR[3] !! Unused PM1 Species. Included Here for demonstration !PM1_EC ,ug m-3 ,AECI[1] *FPM1AIT[3] +AECJ[1] *FPM1ACC[3] !PM1_OC ,ugC m-3 ,AOCI[0] *FPM1AIT[3] +AOCJ[0] *FPM1ACC[3] !PM1_OM ,ug m-3 ,AOMI[0] *FPM1AIT[3] +AOMJ[0] *FPM1ACC[3] !PM1_SO4 ,ug m-3 ,ASO4I[1]*FPM1AIT[3] +ASO4J[1]*FPM1ACC[3] +ASO4K[1]*FPM1COR[3] !PM1_CL ,ug m-3 ,ACLI[1] *FPM1AIT[3] +ACLJ[1] *FPM1ACC[3] +ACLK[1] *FPM1COR[3] !PM1_NA ,ug m-3 ,ANAI[1] *FPM1AIT[3] +ANAJ[1] *FPM1ACC[3] +ANAK[0] *FPM1COR[3] !PM1_MG ,ug m-3 , AMGJ[1] *FPM1ACC[3] +AMGK[0] *FPM1COR[3] !PM1_K ,ug m-3 , AKJ[1] *FPM1ACC[3] +AKK[0] *FPM1COR[3] !PM1_CA ,ug m-3 , ACAJ[1] *FPM1ACC[3] +ACAK[0] *FPM1COR[3] !PM1_NH4 ,ug m-3 ,ANH4I[1] *FPM1AIT[3]+ANH4J[1]*FPM1ACC[3] +ANH4K[1]*FPM1COR[3] !PM1_NO3 ,ug m-3 ,ANO3I[1] *FPM1AIT[3]+ANO3J[1]*FPM1ACC[3] +ANO3K[1]*FPM1COR[3] !PM1_SOIL ,ug m-3 ,ASOILJ[0]*FPM1ACC[3]+(ASOIL[1]+ACORS[1])*FPM1COR[3] !PM1_UNSPEC1 ,ug m-3 ,PM1_TOT[0] - (PM1_CL[0] + PM1_EC[0]+ PM1_NA[0] + PM1_NH4[0] + \ ! PM1_NO3[0]+ PM1_OC[0]+ PM1_SOIL[0]+ PM1_SO4[0] ) !PM1_UNSPCRS ,ug m-3 ,ATOTK[0] *FPM1COR[3] - (ASO4K[1]*FPM1COR[3] \ ! +ACLK[1]*FPM1COR[3] \ ! +ANAK[0]*FPM1COR[3] \ ! +AMGK[0]*FPM1COR[3] \ ! +AKK[0]*FPM1COR[3] \ ! +ACAK[0]*FPM1COR[3] \ ! +ANH4K[1]*FPM1COR[3] \ ! +ANO3K[1]*FPM1COR[3]) !! PM2.5 species computed using modeled size distribution PM25_HP ,ug m-3 ,(AH3OPI[1]*FPM25AIT[3]+AH3OPJ[1]*FPM25ACC[3]+AH3OPK[1]*FPM25COR[3])*1.0/19.0 PM25_CL ,ug m-3 ,ACLI[1]*FPM25AIT[3]+ACLJ[1]*FPM25ACC[3]+ACLK[1]*FPM25COR[3] PM25_EC ,ug m-3 ,AECI[1]*FPM25AIT[3]+AECJ[1]*FPM25ACC[3] PM25_NA ,ug m-3 ,ANAI[1]*FPM25AIT[3]+ANAJ[1]*FPM25ACC[3]+ANAK[0]*FPM25COR[3] PM25_MG ,ug m-3 , AMGJ[1]*FPM25ACC[3]+AMGK[0]*FPM25COR[3] PM25_K ,ug m-3 , AKJ[1] *FPM25ACC[3]+AKK[0] *FPM25COR[3] PM25_CA ,ug m-3 , ACAJ[1]*FPM25ACC[3]+ACAK[0]*FPM25COR[3] PM25_NH4 ,ug m-3 ,ANH4I[1]*FPM25AIT[3]+ANH4J[1]*FPM25ACC[3]+ANH4K[1]*FPM25COR[3] PM25_NO3 ,ug m-3 ,ANO3I[1]*FPM25AIT[3]+ANO3J[1]*FPM25ACC[3]+ANO3K[1]*FPM25COR[3] PM25_OC ,ugC m-3 ,AOCI[0] *FPM25AIT[3]+AOCJ[0]*FPM25ACC[3] PM25_OM ,ug m-3 ,AOMI[0] *FPM25AIT[3]+AOMJ[0]*FPM25ACC[3] PM25_SOIL ,ug m-3 ,ASOILJ[0]*FPM25ACC[3]+ASOIL[1]*FPM25COR[3] PM25_SO4 ,ug m-3 ,ASO4I[1]*FPM25AIT[3]+ASO4J[1]*FPM25ACC[3]+ASO4K[1]*FPM25COR[3] PM25_TOT ,ug m-3 ,ATOTI[0]*FPM25AIT[3]+ATOTJ[0]*FPM25ACC[3]+ATOTK[0]*FPM25COR[3] PM25_UNSPEC1 ,ug m-3 ,PM25_TOT[0]-(PM25_CL[0]+PM25_EC[0]+PM25_NA[0]+PM25_NH4[0] \ +PM25_NO3[0]+PM25_OC[0]+PM25_SOIL[0]+PM25_SO4[0]) PM25_UNSPCRS ,ug m-3 ,ATOTK[0]*FPM25COR[3] - (ASO4K[1]*FPM25COR[3] \ +ACLK[1]*FPM25COR[3] \ +ANAK[0]*FPM25COR[3] \ +AMGK[0]*FPM25COR[3] \ +AKK[0]*FPM25COR[3] \ +ACAK[0]*FPM25COR[3] \ +ANH4K[1]*FPM25COR[3] \ +ANO3K[1]*FPM25COR[3]) !! Fine particle acidity (pH). pH is undefined if there is no aerosol water. !Do not trust predictions when hourly water is <0.01 ug m-3. FINEPHF will !have large negative value (-9.999E36) when pH is not to be trusted. !AH2OIJ ,ug m-3 ,AH2OI[1]+AH2OJ[1] !HPMOLAL ,mol kg-1 ,AHPLUSIJ[0]/AH2OIJ[0]*1000.0 !ACIDITYTEMP , ,-1*LOG10(HPMOLAL[0]) !FINEPHF , ,AH2OIJ[0]>0.01 ? ACIDITYTEMP[0] : -9.999E36 !! PM10.0 and Coarse-Sized Species PM10 ,ug m-3 ,ATOTI[0]*FPM10AIT[3]+ATOTJ[0]*FPM10ACC[3]+ATOTK[0]*FPM10COR[3] PMC_CL ,ug m-3 ,ACLI[1]*FPM10AIT[3] +ACLJ[1]*FPM10ACC[3] +ACLK[1]*FPM10COR[3] -PM25_CL[0] PMC_NA ,ug m-3 ,ANAI[1]*FPM10AIT[3] +ANAJ[1]*FPM10ACC[3] +ANAK[0]*FPM10COR[3] -PM25_NA[0] PMC_NH4 ,ug m-3 ,ANH4I[1]*FPM10AIT[3]+ANH4J[1]*FPM10ACC[3]+ANH4K[1]*FPM10COR[3]-PM25_NH4[0] PMC_NO3 ,ug m-3 ,ANO3I[1]*FPM10AIT[3]+ANO3J[1]*FPM10ACC[3]+ANO3K[1]*FPM10COR[3]-PM25_NO3[0] PMC_SO4 ,ug m-3 ,ASO4I[1]*FPM10AIT[3]+ASO4J[1]*FPM10ACC[3]+ASO4K[1]*FPM10COR[3]-PM25_SO4[0] PMC_TOT ,ug m-3 ,PM10[0]-PM25_TOT[0] !! FRM PM Equivalent Calculation !! This section calculates the FRM applicable PM species, PMIJ_FRM and !! PM25_FRM. The intermediate variablse K...ANH4IJ_loss are needed to !! calculate the final quantities. K ,ppb2 ,exp(118.87-24084/TEMP2[4]-6.025*log(TEMP2[4])) P1 , ,exp(8763/TEMP2[4]+19.12*log(TEMP2[4])-135.94) P2 , ,exp(9969/TEMP2[4]+16.22*log(TEMP2[4])-122.65) P3 , ,exp(13875/TEMP2[4]+24.46*log(TEMP2[4])-182.61) a , ,1-RH[0]/100 K_prime ,ppb2 ,(P1[0]-P2[0]*a[0]+(P3[0]*a[0]*a[0]))*(a[0]^1.75)*K[0] sqrt_Ki ,ppb ,sqrt(RH[0]<=61 ? K[0] : K_prime[0]) max_NO3_loss ,ug m-3 ,745.7/TEMP2[4]*sqrt_Ki[0] PM25_NO3_loss ,ug m-3 ,max_NO3_loss[0]<=PM25_NO3[0] ? max_NO3_loss[0] : PM25_NO3[0] ANO3IJ_loss ,ug m-3 ,max_NO3_loss[0]<=ANO3IJ[0] ? max_NO3_loss[0] : ANO3IJ[0] PM25_NH4_loss ,ug m-3 ,PM25_NO3_loss[0]*(18/62) ANH4IJ_loss ,ug m-3 ,ANO3IJ_loss[0]*(18/62) PMIJ_FRM ,ug m-3 ,ATOTIJ[0]-(ANO3IJ_loss[0]+ANH4IJ_loss[0]) \ +0.24*(ASO4IJ[0]+ANH4IJ[0]-ANH4IJ_loss[0])+0.5 PM25_FRM ,ug m-3 ,PM25_TOT[0]-(PM25_NO3_loss[0]+PM25_NH4_loss[0]) \ +0.24*(PM25_SO4[0]+PM25_NH4[0]-PM25_NH4_loss[0])+0.5 ================================================ FILE: CCTM/src/MECHS/cb6r3_ae7_aq/SpecDef_Dep_cb6r3_ae7_aq.txt ================================================ !#start YYYYJJJ !#end YYYYJJJ #layer 1 / File [1]: DRYDEP / File [2]: WETDEP / File [3]: METCRO2D / /new species ,units ,expression RT ,cm ,RC[3]>=0 ? RN[3]+RC[3] : RN[3] !---------------------------------------------------! !--------------- Gas Deposition --------------------! !---------------------------------------------------! DDEP_NO2 ,kg ha-1 ,NO2[1] WDEP_NO2 ,kg ha-1 ,NO2[2] DDEP_NO ,kg ha-1 ,NO[1] WDEP_NO ,kg ha-1 ,NO[2] DDEP_FORM ,kg ha-1 ,FORM[1] WDEP_FORM ,kg ha-1 ,FORM[2] DDEP_H2O2 ,kg ha-1 ,H2O2[1] WDEP_H2O2 ,kg ha-1 ,H2O2[2] DDEP_N2O5 ,kg ha-1 ,N2O5[1] WDEP_N2O5 ,kg ha-1 ,N2O5[2] DDEP_HONO ,kg ha-1 ,HONO[1] WDEP_HONO ,kg ha-1 ,HONO[2] DDEP_HNO3 ,kg ha-1 ,HNO3[1] WDEP_HNO3 ,kg ha-1 ,HNO3[2] DDEP_NO3 ,kg ha-1 ,NO3[1] WDEP_NO3 ,kg ha-1 ,NO3[2] DDEP_CLNO2 ,kg ha-1 ,CLNO2[1] WDEP_CLNO2 ,kg ha-1 ,CLNO2[2] DDEP_CLNO3 ,kg ha-1 ,CLNO3[1] WDEP_CLNO3 ,kg ha-1 ,CLNO3[2] DDEP_NTR ,kg ha-1 ,NTR1[1]+NTR2[1]+INTR[1] WDEP_NTR ,kg ha-1 ,NTR1[2]+NTR2[2]+INTR[2] DDEP_PANT ,kg ha-1 ,PAN[1] + PANX[1] + OPAN[1] WDEP_PANT ,kg ha-1 ,PAN[2] + PANX[2] + OPAN[2] DDEP_NH3 ,kg ha-1 ,NH3[1] WDEP_NH3 ,kg ha-1 ,NH3[2] DDEP_SO2 ,kg ha-1 ,SO2[1] DDEP_O3 ,kg ha-1 ,O3[1] WDEP_O3 ,kg ha-1 ,O3[2] DDEP_PNA ,kg ha-1 ,PNA[1] WDEP_PNA ,kg ha-1 ,PNA[2] !---------------------------------------------------! !------------- Aerosol Deposition ------------------! !---------------------------------------------------! DDEP_ANO3IJ ,kg ha-1 ,ANO3I[1] + ANO3J[1] DDEP_ANO3K ,kg ha-1 ,ANO3K[1] WDEP_ANO3IJK ,kg ha-1 ,ANO3I[2] + ANO3J[2] + ANO3K[2] DDEP_TNO3 ,kg ha-1 ,ANO3I[1] + ANO3J[1] + ANO3K[1] + 0.984*HNO3[1] + NO3[1] WDEP_TNO3 ,kg ha-1 ,ANO3I[2] + ANO3J[2] + ANO3K[2] + 0.984*HNO3[2] + NO3[2] DDEP_ANH4IJ ,kg ha-1 ,ANH4I[1] + ANH4J[1] DDEP_ANH4K ,kg ha-1 ,ANH4K[1] WDEP_ANH4IJK ,kg ha-1 ,ANH4I[2] + ANH4J[2] + ANH4K[2] DDEP_AMTNO3J ,kg ha-1 ,AMTNO3J[1] WDEP_AMTNO3J ,kg ha-1 ,AMTNO3J[2] DDEP_ASO4IJ ,kg ha-1 ,ASO4I[1] + ASO4J[1] DDEP_ASO4K ,kg ha-1 ,ASO4K[1] WDEP_ASO4IJK ,kg ha-1 ,ASO4I[2] + ASO4J[2] + ASO4K[2] DDEP_AECIJ ,kg ha-1 ,AECI[1] +AECJ[1] DDEP_AOCIJ ,kgC ha-1 ,ALVPO1I[1]/1.39 + ASVPO1I[1]/1.32 + ASVPO2I[1]/1.26 \ +ALVPO1J[1]/1.39 + ASVPO1J[1]/1.32 + ASVPO2J[1]/1.26 \ +ASVPO3J[1]/1.21 + AIVPO1J[1]/1.17 \ +ALVOO1I[1]/2.27 + ALVOO2I[1]/2.06 \ +ASVOO1I[1]/1.88 + ASVOO2I[1]/1.73 \ +AISO1J[1]/2.20 + AISO2J[1]/2.23 + AISO3J[1]/2.80 \ +AMT1J[1]/1.67 + AMT2J[1]/1.67 + AMT3J[1]/1.72 \ +AMT4J[1]/1.53 + AMT5J[1]/1.57 + AMT6J[1]/1.40 \ +AMTNO3J[1]/1.90 + AMTHYDJ[1]/1.54 \ +AGLYJ[1]/2.13 + ASQTJ[1]/1.52 \ +AORGCJ[1]/2.00 + AOLGBJ[1]/2.10 + AOLGAJ[1]/2.50 \ +ALVOO1J[1]/2.27+ ALVOO2J[1]/2.06+ ASVOO1J[1]/1.88 \ +ASVOO2J[1]/1.73+ ASVOO3J[1]/1.60 \ +APCSOJ[1] /2.00+ AAVB1J[1]/2.70 + AAVB2J[1]/2.35 \ +AAVB3J[1]/2.17 + AAVB4J[1]/1.99 !DDEP_SSSO4J ,kg ha-1 ,0.2514*ANAJ[1] !DDEP_SSSO4K ,kg ha-1 ,0.2514*DDEP_ANAK[0] !WDEP_SSSO4JK ,kg ha-1 ,0.2514*ANAJ[2] + 0.2514*WDEP_ANAK[0] !-----------------------------------------------------! !-------- Total (Gas + Aerosol) Deposition -----------! !-----------------------------------------------------! DDEP_NHX ,kg ha-1 ,ANH4I[1] + ANH4J[1] + ANH4K[1] + 1.059*NH3[1] WDEP_NHX ,kg ha-1 ,ANH4I[2] + ANH4J[2] + ANH4K[2] + 1.059*NH3[2] WDEP_TSO4 ,kg ha-1 ,ASO4I[2] + ASO4J[2] + ASO4K[2] + 1.5*SO2[2] !! Sodium DDEP_ANAJ ,kg ha-1 ,ANAJ[1] DDEP_ANAK ,kg ha-1 ,0.8373*ASEACAT[1]+0.0626*ASOIL[1]+0.0023*ACORS[1] DDEP_ANAJK ,kg ha-1 ,DDEP_ANAJ[0] + DDEP_ANAK[0] WDEP_ANAK ,kg ha-1 ,0.8373*ASEACAT[2]+0.0626*ASOIL[2]+0.0023*ACORS[2] WDEP_ANAJK ,kg ha-1 ,ANAJ[2] + WDEP_ANAK[0] TDEP_ANAJK ,kg ha-1 ,DDEP_ANAJK[0] + WDEP_ANAJK[0] !! Chloride DDEP_ACLJ ,kg ha-1 ,ACLJ[1] DDEP_ACLK ,kg ha-1 ,ACLK[1] DDEP_ACLJK ,kg ha-1 ,ACLJ[1] + ACLK[1] WDEP_TCL ,kg ha-1 ,0.972*HCL[2]+CL2[2] + ACLJ[2] + ACLK[2] + 0.6758*HOCL[1] TDEP_CL ,kg ha-1 ,DDEP_ACLJK[0] + WDEP_TCL[0] !! Calcium DDEP_CAJ ,kg ha-1 ,ACAJ[1] WDEP_CAJ ,kg ha-1 ,ACAJ[2] DDEP_CAK ,kg ha-1 ,0.0320*ASEACAT[1]+0.0838*ASOIL[1]+0.0562*ACORS[1] WDEP_CAK ,kg ha-1 ,0.0320*ASEACAT[2]+0.0838*ASOIL[2]+0.0562*ACORS[2] DDEP_CAJK ,kg ha-1 ,ACAJ[1]+DDEP_CAK[0] WDEP_CAJK ,kg ha-1 ,ACAJ[2]+WDEP_CAK[0] !! Iron DDEP_FEJ ,kg ha-1 ,AFEJ[1] WDEP_FEJ ,kg ha-1 ,AFEJ[2] !! Aluminum DDEP_ALJ ,kg ha-1 ,AALJ[1] WDEP_ALJ ,kg ha-1 ,AALJ[2] !! Silicon DDEP_SIJ ,kg ha-1 ,ASIJ[1] WDEP_SIJ ,kg ha-1 ,ASIJ[2] !! Titanium DDEP_TIJ ,kg ha-1 ,ATIJ[1] WDEP_TIJ ,kg ha-1 ,ATIJ[2] !! Magnesium DDEP_MGJ ,kg ha-1 ,AMGJ[1] WDEP_MGJ ,kg ha-1 ,AMGJ[2] DDEP_MGK ,kg ha-1 ,0.0997*ASEACAT[1]+0.0170*ASOIL[1]+0.0032*ACORS[1] WDEP_MGK ,kg ha-1 ,0.0997*ASEACAT[2]+0.0170*ASOIL[2]+0.0032*ACORS[2] DDEP_MGJK ,kg ha-1 ,AMGJ[1]+DDEP_MGK[0] WDEP_MGJK ,kg ha-1 ,AMGJ[2]+WDEP_MGK[0] !! Potassium DDEP_KJ ,kg ha-1 ,AKJ[1] WDEP_KJ ,kg ha-1 ,AKJ[2] DDEP_KK ,kg ha-1 ,0.0310*ASEACAT[1]+0.0242*ASOIL[1]+0.0176*ACORS[1] WDEP_KK ,kg ha-1 ,0.0310*ASEACAT[2]+0.0242*ASOIL[2]+0.0176*ACORS[2] DDEP_KJK ,kg ha-1 ,AKJ[1]+DDEP_KK[0] WDEP_KJK ,kg ha-1 ,AKJ[2]+WDEP_KK[0] !! Manganese DDEP_MNJ ,kg ha-1 ,AMNJ[1] WDEP_MNJ ,kg ha-1 ,AMNJ[2] !---------------------------------------------------! !------------- Nitrogen Deposition -----------------! !---------------------------------------------------! DD_OXN_NOX ,kgN ha-1 ,0.30435*NO2[1] + 0.46667*NO[1] WD_OXN_NOX ,kgN ha-1 ,0.30435*NO2[2] + 0.46667*NO[2] DD_OXN_TNO3 ,kgN ha-1 ,0.22581*DDEP_TNO3[0] WD_OXN_TNO3 ,kgN ha-1 ,0.22581*WDEP_TNO3[0] DD_OXN_PANT ,kgN ha-1 ,0.11570*PAN[1] + 0.11570*PANX[1] + 0.11570*OPAN[1] WD_OXN_PANT ,kgN ha-1 ,0.11570*PAN[2] + 0.11570*PANX[2] + 0.11570*OPAN[2] DD_OXN_ORGN ,kgN ha-1 ,0.10770*(NTR1[1]+NTR2[1]+INTR[1])+0.06061*DDEP_AMTNO3J[0]+DD_OXN_PANT[0] WD_OXN_ORGN ,kgN ha-1 ,0.10770*(NTR1[2]+NTR2[2]+INTR[2])+0.06061*WDEP_AMTNO3J[0]+WD_OXN_PANT[0] DD_OXN_OTHR ,kgN ha-1 ,0.25926*N2O5[1] + 0.29787*HONO[1]+0.17720*PNA[1]+0.1717*CLNO2[1]+0.1436*CLNO3[1] WD_OXN_OTHR ,kgN ha-1 ,0.25926*N2O5[2] + 0.29787*HONO[2]+0.17720*PNA[2]+0.1717*CLNO2[2]+0.1436*CLNO3[2] DD_OXN_TOT ,kgN ha-1 ,DD_OXN_NOX[0] + DD_OXN_TNO3[0] + DD_OXN_ORGN[0] + DD_OXN_OTHR[0] WD_OXN_TOT ,kgN ha-1 ,WD_OXN_NOX[0] + WD_OXN_TNO3[0] + WD_OXN_ORGN[0] + WD_OXN_OTHR[0] TD_OXN_TOT ,kgN ha-1 ,DD_OXN_TOT[0] + WD_OXN_TOT[0] DD_REDN_TOT ,kgN ha-1 ,0.7777*DDEP_NHX[0] WD_REDN_TOT ,kgN ha-1 ,0.7777*WDEP_NHX[0] TD_REDN_TOT ,kgN ha-1 ,DD_REDN_TOT[0] + WD_REDN_TOT[0] DD_N_TOT ,kgN ha-1 ,DD_OXN_TOT[0] + DD_REDN_TOT[0] WD_N_TOT ,kgN ha-1 ,WD_OXN_TOT[0] + WD_REDN_TOT[0] TD_N_TOT ,kgN ha-1 ,DD_N_TOT[0] + WD_N_TOT[0] !! Nitrogen Deposition in milliequivalents Nitrogen !DD_OXN_TOTMEQ ,meqN m-2 ,7.14*DD_OXN_TOT[0] !WD_OXN_TOTMEQ ,meqN m-2 ,7.14*WD_OXN_TOT[0] !TD_OXN_TOTMEQ ,meqN m-2 ,DD_OXN_TOTMEQ[0] + WD_OXN_TOTMEQ[0] !DD_REDN_TOTMEQ ,meqN m-2 ,7.14*DD_REDN_TOT[0] !WD_REDN_TOTMEQ ,meqN m-2 ,7.14*WD_REDN_TOT[0] !TD_REDN_TOTMEQ ,meqN m-2 ,DD_REDN_TOTMEQ[0] + WD_REDN_TOTMEQ[0] !DD_N_TOTMEQ ,meqN m-2 ,DD_OXN_TOTMEQ[0] + DD_REDN_TOTMEQ[0] !WD_N_TOTMEQ ,meqN m-2 ,WD_OXN_TOTMEQ[0] + WD_REDN_TOTMEQ[0] !TD_N_TOTMEQ ,meqN m-2 ,DD_N_TOTMEQ[0] + WD_N_TOTMEQ[0] !-------------------------------------------------! !------------- Sulfur Deposition -----------------! !-------------------------------------------------! DD_S_TOT ,kgS ha-1 ,0.5*SO2[1] + 0.33333*ASO4I[1] + 0.33333*ASO4J[1] + 0.33333*ASO4K[1] WD_S_TOT ,kgS ha-1 ,0.33333*WDEP_TSO4[0] TD_S_TOT ,kgS ha-1 ,DD_S_TOT[0] + WD_S_TOT[0] !DD_S_SeaS ,kgS ha-1 ,0.33333*DDEP_SSSO4J[0] + 0.33333*DDEP_SSSO4K[0] !WD_S_SeaS ,kgS ha-1 ,0.33333*WDEP_SSSO4JK[0] !TD_S_SeaS ,kgS ha-1 ,DD_S_SeaS[0] + WD_S_SeaS[0] !! Sulfur Deposition in milliequivalents Sulfur !DD_S_TOTMEQ ,meqS m-2 ,6.24*DD_S_TOT[0] !WD_S_TOTMEQ ,meqS m-2 ,6.24*WD_S_TOT[0] !TD_S_TOTMEQ ,meqS m-2 ,DD_S_TOTMEQ[0] + WD_S_TOTMEQ[0] !DD_S_SeaSMEQ ,meqS m-2 ,6.24*DD_S_SeaS[0] !WD_S_SeaSMEQ ,meqS m-2 ,6.24*WD_S_SeaS[0] !TD_S_SeaSMEQ ,meqS m-2 ,DD_S_SeaSMEQ[0] + WD_S_SeaSMEQ[0] ================================================ FILE: CCTM/src/MECHS/cb6r3_ae7_aq/SpecDef_cb6r3_ae7_aq.txt ================================================ !#start YYYYJJJ 010000 !#end YYYYJJJ 000000 #layer 1 / ! This Species Definition File is for Use with the COMBINE tool built for ! post-processing CMAQ output. It is compatible with CMAQv5.2. ! Date: May 12 2017 ! Output variables that begin with 'PM' represent those in which a size cut was ! applied based on modeled aerosol mode parameters. For example, PM25_NA is all ! sodium that falls below 2.5 um diameter. These 'PM' variables are used for ! comparisons at IMPROVE and CSN sites. ! Output variables that begin with 'PMAMS' represent the mass that would have ! been detected by an Aerosol Mass Spectrometer. ! Output variables beginning with 'A' (aside from AIR_DENS) represent a ! combination of aerosol species in which no size cut was applied. For example, ! ASO4IJ is the sum of i-mode and j-mode sulfate. These 'A' variables are used ! for comparisons at CASTNet sites. ! Output variables beginning with 'PMC' refer to the coarse fraction of total PM, ! computed by summing all modes and subtracting the PM2.5 fraction. These 'PMC' ! variables are used for comparisons at SEARCH sites. ! This Species Definition File is just for use with the uncoupled, offline CMAQ, ! model. If you are processing WRF-CMAQ results, a different Species Definition ! file is required. / File [1]: CMAQ conc/aconc file / File [2]: METCRO3D file / File [3]: ELMO/AELMO file / File [4]: METCRO2D file / /new species ,units ,expression !-------------------------------------------! !------------- Meteorology -----------------! !-------------------------------------------! AIR_DENS ,kg m-3 ,DENS[2] RH ,% ,100.00*RH[3] SFC_TMP ,C ,(TEMP2[4]-273.15) PBLH ,m ,PBL[4] SOL_RAD ,W m-2 ,RGRND[4] precip ,cm ,RC[4]>=0 ? RN[4]+RC[4] : RN[4] WSPD10 ,m s-1 ,WSPD10[4] WDIR10 ,deg ,WDIR10[4] !-------------------------------------------! !--------------- Gases ---------------------! !-------------------------------------------! ALD2 ,ppbV ,1000.0*ALD2[1] BENZENE ,ppbV ,1000.0*BENZENE[1] CO ,ppbV ,1000.0*CO[1] ETH ,ppbV ,1000.0*ETH[1] ETHA ,ppbV ,1000.0*ETHA[1] FORM ,ppbV ,1000.0*FORM[1] H2O2 ,ppbV ,1000.0*H2O2[1] HNO3 ,ppbV ,1000.0*HNO3[1] HNO3_UGM3 ,ug m-3 ,1000.0*(HNO3[1]*2.1756*DENS[2]) HONO ,ppbV ,1000.0*HONO[1] HOX ,ppbV ,1000.0*(OH[1]+HO2[1]) OH ,ppbV ,1000.0*(OH[1]) ISOP ,ppbV ,1000.0*ISOP[1] N2O5 ,ppbV ,1000.0*N2O5[1] NH3 ,ppbV ,1000.0*NH3[1] NH3_UGM3 ,ug m-3 ,1000.0*(NH3[1]*0.5880*DENS[2]) NHX ,ug m-3 ,1000.0*(NH3[1]*0.5880*DENS[2])+ANH4I[1]+ANH4J[1]+ANH4K[1] NO ,ppbV ,1000.0*NO[1] NO2 ,ppbV ,1000.0*NO2[1] NOX ,ppbV ,1000.0*(NO[1] + NO2[1]) ANO3_PPB ,ppbV ,(ANO3I[1]+ANO3J[1]+ANO3K[1])/(DENS[2]*(62.0/28.97)) NTR ,ppbV ,1000.0*(NTR1[1]+NTR2[1]+INTR[1]) PANS ,ppbV ,1000.0*(PAN[1]+PANX[1]+OPAN[1]) NOY ,ppbV ,1000.0* (NO[1]+NO2[1]+NO3[1]+2*N2O5[1]+HONO[1]+HNO3[1]+PNA[1] \ +CRON[1]+CLNO2[1]+CLNO3[1]) \ +PANS[0]+NTR[0]+ANO3_PPB[0] O3 ,ppbV ,1000.0*O3[1] SO2 ,ppbV ,1000.0*SO2[1] SO2_UGM3 ,ug m-3 ,1000.0*(SO2[1]*2.2118*DENS[2]) TERP ,ppbV ,1000.0*TERP[1] TOL ,ppbV ,1000.0*TOL[1] XYL ,ppbV ,1000.0*XYLMN[1] !Additional Toxic gases !ACROLEIN ,ug m-3 ,1000.0*(ACROLEIN[1]*1.9365*DENS[2]) !ACRO_PRIMARY ,ug m-3 ,1000.0*(ACRO_PRIMARY*1.9365*DENS[2]) !ALD2_PRIMARY ,ug m-3 ,1000.0*(ALD2_PRIMARY[1]*1.5188*DENS[2]) !FORM_PRIMARY ,ug m-3 ,1000.0*(FORM_PRIMARY[1]*1.0356*DENS[2]) !BUTADIENE13 ,ug m-3 ,1000.0*(BUTADIENE13[1]*1.8674*DENS[2]) !HCL ,ppbV ,1000.0*HCL[1] !TOLUENE ,ppbV ,1000.0*TOLU[1] !Mercuric gas species !HG_0 ,ng/m3 ,1000.0*(HG[1]*8.3330*DENS[2]*1000.0) !HG_II ,ng/m3 ,1000.0*(HGIIGAS[1]*8.3330*DENS[2]*1000.0) !! Unused Gases. Presented Here for illustration. Users can uncomment !! them if they choose. !ALDX ,ppbV ,1000.0*ALDX[1] !IOLE ,ppbV ,1000.0*IOLE[1] !OLE ,ppbV ,1000.0*OLE[1] !PAR ,ppbV ,1000.0*PAR[1] !PAN ,ppbV ,1000.0*PAN[1] !SULF ,ppbV ,1000.0*SULF[1] ! emitted VOCs !VOC ,ppbC ,1000.0* (PAR[1] +2.0*ETHA[1] +3.0*PRPA[1] +MEOH[1]\ ! +2.0*ETH[1] +2.0*ETOH[1] +2.0*OLE[1] +3.0*ACET[1] \ ! +7.0*TOL[1] +8.0*XYLMN[1] +6.0*BENZENE[1] \ ! +FORM[1] +3.0*GLY[1] +4.0*KET[1] +2.0*ETHY[1] \ ! +2.0*ALD2[1] + 4.0*IOLE[1] + 2.0*ALDX[1] \ ! +5.0*ISOP[1] + 10.0*TERP[1]+ 10.0*NAPH[1] +10.*APIN[1]) !-------------------------------------------! !--------------- Particles -----------------! !-------------------------------------------! !! Crustal Elements AFEJ ,ug m-3 ,PMF_FE[3] AALJ ,ug m-3 ,PMF_AL[3] ASIJ ,ug m-3 ,PMF_SI[3] ATIJ ,ug m-3 ,PMF_TI[3] ACAJ ,ug m-3 ,PMF_CA[3] AMGJ ,ug m-3 ,PMF_MG[3] AKJ ,ug m-3 ,PMF_K[3] AMNJ ,ug m-3 ,PMF_MN[3] ASOILJ ,ug m-3 ,PMF_SOILIMPV[3] !! Non-Crustal Inorganic Particle Species AHPLUSIJ ,umol m-3 ,PMF_HP[3] ANAK ,ug m-3 ,PMC_NA[3] AMGK ,ug m-3 ,PMC_MG[3] AKK ,ug m-3 ,PMC_K[3] ACAK ,ug m-3 ,PMC_CA[3] ACLIJ ,ug m-3 ,PMF_CL[3] AECIJ ,ug m-3 ,PMF_EC[3] ANAIJ ,ug m-3 ,PMF_NA[3] ANO3IJ ,ug m-3 ,PMF_NO3[3] ANO3K ,ug m-3 ,PMC_NO3[3] TNO3 ,ug m-3 ,TNO3[3] ANH4IJ ,ug m-3 ,PMF_NH4[3] ANH4K ,ug m-3 ,PMC_NH4[3] ASO4IJ ,ug m-3 ,PMF_SO4[3] ASO4K ,ug m-3 ,PMC_SO4[3] !! Organic Particle Species APOCIJ ,ugC m-3 ,PMF_POC[3] APOMIJ ,ug m-3 ,PMF_POA[3] ASOCIJ ,ugC m-3 ,PMF_SOC[3] ASOMIJ ,ug m-3 ,PMF_SOA[3] AOCIJ ,ugC m-3 ,PMF_OC[3] AOMIJ ,ug m-3 ,PMF_OA[3] !!! Anthropogenic-VOC Derived Organic Aerosol AORGAIJ ,ug m-3 ,PMF_ASOA[3] !!! Biogenic-VOC Derived Organic Aerosol AORGBIJ ,ug m-3 ,PMF_BSOA[3] !!! Cloud-Processed SOA AORGCJ ,ug m-3 ,AORGCJ[1] !!! OM/OC ratios AOMOCRAT_TOT , ,PMF_OMOC[3] !! Total PM Aggregates ATOTI ,ug m-3 ,PMAIT_MASS[3] ATOTJ ,ug m-3 ,PMACC_MASS[3] ATOTK ,ug m-3 ,PMC_MASS[3] ATOTIJ ,ug m-3 ,PMF_MASS[3] ATOTIJK ,ug m-3 ,PM_MASS[3] !! Unspeciated PM including non-carbon organic mass AUNSPEC1IJ ,ug m-3 ,PMF_UN_IMPV1[3] !! Non-Carbon Organic Mass ANCOMIJ ,ug m-3 ,PMF_NCOM[3] !! Unspeciated PM excluding non-carbon organic mass AUNSPEC2IJ ,ug m-3 ,PMF_UN_IMPV2[3] !! AMS Projection of Output Concentrations PMAMS_CL ,ug m-3 ,PMAMS_CL[3] PMAMS_NH4 ,ug m-3 ,PMAMS_NH4[3] PMAMS_NO3 ,ug m-3 ,PMAMS_NO3[3] PMAMS_OA ,ug m-3 ,PMAMS_OA[3] PMAMS_SO4 ,ug m-3 ,PMAMS_SO4[3] !! PM1 Cutoff Output PM1_TOT ,ug m-3 ,PM1[3] !! Unused PM1 Species. Included Here for demonstration !PM1_EC ,ug m-3 ,PM1_EC[3] !PM1_OC ,ugC m-3 ,PM1_OC[3] !PM1_OM ,ug m-3 ,PM1_OA[3] !PM1_SO4 ,ug m-3 ,PM1_SO4[3] !PM1_CL ,ug m-3 ,PM1_CL[3] !PM1_NA ,ug m-3 ,PM1_NA[3] !PM1_MG ,ug m-3 ,PM1_MG[3] !PM1_K ,ug m-3 ,PM1_K[3] !PM1_CA ,ug m-3 ,PM1_CA[3] !PM1_NH4 ,ug m-3 ,PM1_NH4[3] !PM1_NO3 ,ug m-3 ,PM1_NO3[3] !PM1_SOIL ,ug m-3 ,PM1_SOIL[3] !PM1_UNSPEC1 ,ug m-3 ,PM1_UNSP1[3] !PM1_UNSPCRS ,ug m-3 ,PM1_UNSPCRS[3] !! PM2.5 species computed using modeled size distribution PM25_HP ,ug m-3 ,PM25_HP[3] PM25_CL ,ug m-3 ,PM25_CL[3] PM25_EC ,ug m-3 ,PM25_EC[3] PM25_NA ,ug m-3 ,PM25_NA[3] PM25_MG ,ug m-3 ,PM25_MG[3] PM25_K ,ug m-3 ,PM25_K[3] PM25_CA ,ug m-3 ,PM25_CA[3] PM25_NH4 ,ug m-3 ,PM25_NH4[3] PM25_NO3 ,ug m-3 ,PM25_NO3[3] PM25_OC ,ugC m-3 ,PM25_OC[3] PM25_OM ,ug m-3 ,PM25_OA[3] PM25_SOIL ,ug m-3 ,PM25_SOIL[3] PM25_SO4 ,ug m-3 ,PM25_SO4[3] PM25_TOT ,ug m-3 ,PM25[3] PM25_UNSPEC1 ,ug m-3 ,PM25_UNSP1[3] PM25_UNSPCRS ,ug m-3 ,PM25_UNSPCRS[3] !! Fine particle acidity (pH). pH is undefined if there is no aerosol water. !Do not trust predictions when hourly water is <0.01 ug m-3. FINEPHF will !have large negative value (-9.999E36) when pH is not to be trusted. !AH2OIJ ,ug m-3 ,AH2OI[1]+AH2OJ[1] !HPMOLAL ,mol kg-1 ,AHPLUSIJ[0]/AH2OIJ[0]*1000.0 !ACIDITYTEMP , ,-1*LOG10(HPMOLAL[0]) !FINEPHF , ,AH2OIJ[0]>0.01 ? ACIDITYTEMP[0] : -9.999E36 !! PM10.0 and Coarse-Sized Species PM10 ,ug m-3 ,PM10[3] PMC_CL ,ug m-3 ,PM25TO10_CL[3] PMC_NA ,ug m-3 ,PM25TO10_NA[3] PMC_NH4 ,ug m-3 ,PM25TO10_NH4[3] PMC_NO3 ,ug m-3 ,PM25TO10_NO3[3] PMC_SO4 ,ug m-3 ,PM25TO10_SO4[3] PMC_TOT ,ug m-3 ,PM25TO10[3] !! FRM PM Equivalent Calculation PMIJ_FRM ,ug m-3 ,PMF_FRM[3] PM25_FRM ,ug m-3 ,PM25_FRM[3] ================================================ FILE: CCTM/src/MECHS/cb6r3_ae7_aq/mech_cb6r3_ae7_aq.def ================================================ !CB6r3 for CMAQ ! created for CMAQv5.2 and released in June 2017 ! documented in https://www.epa.gov/cmaq ! Changes made for CMAQv5.3: ! For SE US study with Ng Group, Gatech (HOT Pye 2017): ! Remove TRPRXN formation from NO3 reactions ! Split APIN from other monoterpenes ! Add MTNO3 formation following Pye et al. 2015 (from SAPRC07tic implementation) ! Update TRPRXN SOA yields in SOA_DEFN.F ! Documentation in Xu et al. 2018 ACPD: https://doi.org/10.5194/acp-2017-1109 ! 03-04-21 G.Sarwar ! updated ! 080118 DJL ! 1. Modified chlorine reactions ( to ) to match CB6r2, mimic ! similar reactions in CB6r3, or updated to IUPAC ! 2. Added new species, CLNO3 and reactions of CLNO3 ! 3. New heterogeneous reactions ( and ) from ! hemispheric halogen chemical mechanism ! 4. implemented temperature and pressure-dependent CS/QY for CLNO2 ! 040319 HOT Pye: IEPOX uptake now consumes inorganic sulfate ! !--------------------------------- CB6R3_AE7_AQ REACTIONS[CM] = NO2 = NO + O # 1.0/; O + O2 + M = O3 + M # 5.68E-34^-2.6; O3 + NO = NO2 # 1.40E-12@1310; O + NO + M = NO2 + M # 1.00E-31^-1.6; O + NO2 = NO # 5.50E-12@-188; O + NO2 = NO3 # 1.30E-31^-1.5 & 2.30E-11^0.24 &0.6 &1; O + O3 = # 8.00E-12@2060; O3 = O # 1.0/; O3 = O1D # 1.0/; O1D + M = O + M # 2.23E-11@-115; O1D + H2O = 2.0*OH # 2.14E-10; O3 + OH = HO2 # 1.70E-12@940; O3 + HO2 = OH # 2.03E-16^4.57@-693; OH + O = HO2 # 2.40E-11@-110; HO2 + O = OH # 2.70E-11@-224; OH + OH = O # 6.20E-14^2.6@-945; OH + OH = H2O2 # 6.90E-31^-0.8 & 2.60E-11 &0.5 &1.13; OH + HO2 = # 4.80E-11@-250; HO2 + HO2 = H2O2 %3 # 2.20E-13@-600 & 1.90E-33@-980; HO2 + HO2 + H2O = H2O2 %3 # 3.08E-34@-2800 & 2.66E-54@-3180; H2O2 = 2.0*OH # 1.0/; H2O2 + OH = HO2 # 2.90E-12@160; H2O2 + O = OH + HO2 # 1.40E-12@2000; NO + NO + O2 = 2.0*NO2 # 3.30E-39@-530; HO2 + NO = OH + NO2 # 3.45E-12@-270; NO2 + O3 = NO3 # 1.40E-13@2470; NO3 = NO2 + O # 1.0/; NO3 = NO # 1.0/; NO3 + NO = 2.0*NO2 # 1.80E-11@-110; NO3 + NO2 = NO + NO2 # 4.50E-14@1260; NO3 + O = NO2 # 1.70E-11; NO3 + OH = HO2 + NO2 # 2.00E-11; NO3 + HO2 = OH + NO2 # 4.00E-12; NO3 + O3 = NO2 # 1.00E-17; NO3 + NO3 = 2.0*NO2 # 8.50E-13@2450; NO3 + NO2 = N2O5 # 3.60E-30^-4.1 & 1.90E-12^0.2 &0.35 &1.33; N2O5 = NO3 + NO2 # 1.30E-3^-3.5@11000 & 9.70E+14^0.1@11080 &0.35 &1.33; N2O5 = NO2 + NO3 # 1.0/; N2O5 + H2O = 2.0*HNO3 # 1.00E-22; NO + OH = HONO # 7.40E-31^-2.4 & 3.30E-11^-0.3 &0.81 &0.87; NO + NO2 + H2O = 2.0*HONO # 5.00E-40; HONO + HONO = NO + NO2 # 1.00E-20; HONO = NO + OH # 1.0/; HONO + OH = NO2 # 2.50E-12@-260; NO2 + OH = HNO3 # 1.80E-30^-3 & 2.80E-11 &0.6 &1; HNO3 + OH = NO3 %2 # 2.40E-14@-460 & 2.70E-17@-2199 & 6.50E-34@-1335; HNO3 = OH + NO2 # 1.0/; HO2 + NO2 = PNA # 1.80E-31^-3.2 & 4.70E-12 &0.6 &1; PNA = HO2 + NO2 # 4.10E-5@10650 & 4.80E+15@11170 &0.6 &1; PNA = 0.59*HO2 + 0.59*NO2 + 0.41*OH + 0.41*NO3 # 1.0/; PNA + OH = NO2 # 3.20E-13@-690; ! Added SULRXN to SO2+OH SO2 + OH = SULF + HO2 + SULRXN # 4.50E-31^-3.9 & 1.30E-12^-0.7 &0.53 &1.1; C2O3 + NO = NO2 + MEO2 + RO2 # 7.50E-12@-290; C2O3 + NO2 = PAN # 2.70E-28^-7.1 & 1.20E-11^-0.9 &0.3 &1.41; PAN = NO2 + C2O3 # 4.90E-3@12100 & 5.40E+16@13830 &0.3 &1.41; PAN = 0.6*NO2 + 0.6*C2O3 + 0.4*NO3 + 0.4*MEO2 +0.4*RO2 #1.0/; C2O3 + HO2 = 0.41*PACD + 0.15*AACD + 0.15*O3 + 0.44*MEO2 + 0.44*RO2 + 0.44*OH # 5.20E-13@-980; C2O3 + RO2 = C2O3 # 8.90E-13@-800; C2O3 + C2O3 = 2.0*MEO2 + 2.0*RO2 # 2.90E-12@-500; C2O3 + CXO3 = MEO2 + ALD2 + XO2H + 2.0*RO2 # 2.90E-12@-500; CXO3 + NO = NO2 + ALD2 + XO2H + RO2 # 6.70E-12@-340; CXO3 + NO2 = PANX # 1.00E+0*K; PANX = NO2 + CXO3 # 1.00E+0*K; PANX = 0.6*NO2 +0.6*CXO3 +0.4*NO3 +0.4*ALD2 +0.4*XO2H +0.4*RO2 #1.0/; CXO3 + HO2 = 0.41*PACD + 0.15*AACD + 0.15*O3 + 0.44*ALD2 + 0.44*XO2H + 0.44*RO2 + 0.44*OH # 5.20E-13@-980; CXO3 + RO2 = 0.8*ALD2 + 0.8*XO2H + 0.8*RO2 # 8.90E-13@-800; CXO3 + CXO3 = 2.0*ALD2 + 2.0*XO2H + 2.0*RO2 # 3.20E-12@-500; RO2 + NO = NO # 2.40E-12@-360; RO2 + HO2 = HO2 # 4.80E-13@-800; RO2 + RO2 = # 6.50E-14@-500; MEO2 + NO = FORM + HO2 + NO2 # 2.30E-12@-360; MEO2 + HO2 = 0.9*MEPX + 0.1*FORM # 3.80E-13@-780; MEO2 + C2O3 = FORM + 0.9*HO2 + 0.9*MEO2 + 0.1*AACD +0.9*RO2 # 2.E-12@-500; MEO2 + RO2 = 0.685*FORM + 0.315*MEOH + 0.37*HO2 + RO2 # 1.0*K; XO2H + NO = NO2 + HO2 # 2.70E-12@-360; XO2H + HO2 = ROOH # 6.80E-13@-800; XO2H + C2O3 = 0.8*HO2 + 0.8*MEO2 + 0.2*AACD + 0.8*RO2 # 1.0*K; XO2H + RO2 = 0.6*HO2 + RO2 # 1.00E+0*K; XO2 + NO = NO2 # 1.00E+0*K; XO2 + HO2 = ROOH # 1.00E+0*K; XO2 + C2O3 = 0.8*MEO2 + 0.2*AACD + 0.8*RO2 # 1.0*K; XO2 + RO2 = RO2 # 1.00E+0*K; XO2N + NO = 0.5*NTR1 + 0.5*NTR2 # 1.00E+0*K; XO2N + HO2 = ROOH # 1.00E+0*K; XO2N + C2O3 = 0.8*HO2 + 0.8*MEO2 + 0.2*AACD + 0.8*RO2 # 1.0*K; XO2N + RO2 = RO2 # 1.00E+0*K; MEPX + OH = 0.6*MEO2 + 0.6*RO2 + 0.4*FORM + 0.4*OH # 5.30E-12@-190; MEPX = MEO2 + RO2 + OH # 1.0/; ROOH + OH = 0.54*XO2H + 0.06*XO2N + 0.6*RO2 + 0.4*OH # 5.30E-12@-190; ROOH = HO2 + OH # 1.0/; NTR1 + OH = NTR2 # 2.00E-12; NTR1 = NO2 # 1.0/; !BK NTR1 = NO2 # 0.0/; !BK NTR1 = NO2 # 0.0/; FACD + OH = HO2 # 4.50E-13; AACD + OH = MEO2 + RO2 # 4.00E-14@-850; PACD + OH = C2O3 # 5.30E-12@-190; FORM + OH = HO2 + CO # 5.40E-12@-135; FORM = 2.0*HO2 + CO # 1.0/; FORM = CO # 1.0/; FORM + O = OH + HO2 + CO # 3.40E-11@1600; FORM + NO3 = HNO3 + HO2 + CO # 5.50E-16; FORM + HO2 = HCO3 # 9.70E-15@-625; HCO3 = FORM + HO2 # 2.40E+12@7000; HCO3 + NO = FACD + NO2 + HO2 # 5.60E-12; HCO3 + HO2 = 0.5*MEPX + 0.5*FACD + 0.2*OH + 0.2*HO2 # 5.60E-15@-2300; ALD2 + O = C2O3 + OH # 1.80E-11@1100; ALD2 + OH = C2O3 # 4.70E-12@-345; ALD2 + NO3 = C2O3 + HNO3 # 1.40E-12@1860; ALD2 = MEO2 + RO2 + CO + HO2 # 1.0/; ALDX + O = CXO3 + OH # 1.30E-11@870; ALDX + OH = CXO3 # 4.90E-12@-405; ALDX + NO3 = CXO3 + HNO3 # 6.30E-15; ALDX = ALD2 + XO2H + RO2 + CO + HO2 # 1.0/; GLYD + OH = 0.2*GLY + 0.2*HO2 + 0.8*C2O3 # 8.00E-12; GLYD = 0.74*FORM + 0.89*CO + 1.4*HO2 + 0.15*MEOH + 0.19*OH + 0.11*GLY + 0.11*XO2H + 0.11*RO2 # 1.0/; GLYD + NO3 = HNO3 + C2O3 # 1.40E-12@1860; GLY + OH = 1.8*CO + 0.2*XO2 + 0.2*RO2 + HO2 # 3.10E-12@-340; GLY = 2.0*HO2 + 2.0*CO # 1.0/; GLY + NO3 = HNO3 + 1.5*CO + 0.5*XO2 + 0.5*RO2 + HO2 # 1.40E-12@1860; MGLY = C2O3 + HO2 + CO # 1.0/; MGLY + NO3 = HNO3 + C2O3 + XO2 + RO2 # 1.40E-12@1860; MGLY + OH = C2O3 + CO # 1.90E-12@-575; H2 + OH = HO2 # 7.70E-12@2100; CO + OH = HO2 %3 # 1.44E-13@0.0 &3.43E-33@0.0; CH4 + OH = MEO2 + RO2 # 1.85E-12@1690; ETHA + OH = 0.991*ALD2 + 0.991*XO2H + 0.009*XO2N + RO2 # 6.90E-12@1000; MEOH + OH = FORM + HO2 # 2.85E-12@345; ETOH + OH = 0.95*ALD2 + 0.9*HO2 + 0.1*XO2H + 0.1*RO2 + 0.078*FORM + 0.011*GLYD # 3.00E-12@-20; KET = 0.5*ALD2 + 0.5*C2O3 + 0.5*XO2H + 0.5*CXO3 + 0.5*MEO2 + RO2 -2.5*PAR # 1.0/; ACET = 0.38*CO + 1.38*MEO2 + 1.38*RO2 + 0.62*C2O3 # 1.0/; ACET + OH = FORM + C2O3 + XO2 + RO2 # 1.41E-12@620.6; PRPA + OH = XPRP # 7.60E-12@585; PAR + OH = XPAR # 8.10E-13; ROR = 0.2*KET + 0.42*ACET + 0.74*ALD2 + 0.37*ALDX + 0.04*XO2N +0.94*XO2H + 0.98*RO2 + 0.02*ROR -2.7*PAR # 5.70E+12@5780; ROR + O2 = KET + HO2 # 1.50E-14@200; ROR + NO2 = NTR1 # 8.60E-12@-400; ETHY + OH = 0.7*GLY + 0.7*OH + 0.3*FACD + 0.3*CO +0.3*HO2 # 5.E-30^-1.5 & 1.00E-12 &0.37 &1.3; ETH + O = FORM + HO2 + CO + 0.7*XO2H + 0.7*RO2 + 0.3*OH # 1.04E-11@792; ETH + OH = XO2H + RO2 + 1.56*FORM + 0.22*GLYD # 8.60E-29^-3.1 & 9.00E-12^-0.85 &0.48 &1.15; ETH + O3 = FORM + 0.51*CO + 0.16*HO2 + 0.16*OH +0.37*FACD #9.1E-15@2580; ETH + NO3 = 0.5*NO2 + 0.5*NTR1 + 0.5*XO2H + 0.5*XO2 + RO2 + 1.125*FORM # 3.30E-12@2880; OLE + O = 0.2*ALD2 + 0.3*ALDX + 0.1*HO2 + 0.2*XO2H + 0.2*CO + 0.2*FORM + 0.01*XO2N + 0.21*RO2 + 0.2*PAR + 0.1*OH # 1.00E-11@280; OLE + OH = 0.781*FORM + 0.488*ALD2 + 0.488*ALDX + 0.976*XO2H + 0.195*XO2 + 0.024*XO2N + 1.195*RO2 -0.73*PAR # 8.E-27^-3.5&3.00E-11^-1 &0.5 &1.13; OLE + O3 = 0.295*ALD2 + 0.555*FORM + 0.27*ALDX + 0.15*XO2H + 0.15*RO2 + 0.334*OH + 0.08*HO2 + 0.378*CO + 0.075*GLY + 0.075*MGLY + 0.09*FACD + 0.13*AACD + 0.04*H2O2 -0.79*PAR # 5.50E-15@1880; OLE + NO3 = 0.5*NO2 + 0.5*NTR1 + 0.48*XO2 + 0.48*XO2H + 0.04*XO2N + RO2 + 0.5*FORM + 0.25*ALD2 + 0.375*ALDX -1.0*PAR # 4.60E-13@1155; IOLE + O = 1.24*ALD2 + 0.66*ALDX + 0.1*XO2H + 0.1*RO2 + 0.1*CO + 0.1*PAR # 2.30E-11; IOLE + OH = 1.3*ALD2 + 0.7*ALDX + XO2H + RO2 # 1.05E-11@-519; IOLE + O3 = 0.732*ALD2 + 0.442*ALDX + 0.128*FORM + 0.245*CO + 0.5*OH + 0.3*XO2H + 0.3*RO2 + 0.24*GLY + 0.06*MGLY + 0.29*PAR + 0.08*AACD + 0.08*H2O2 # 4.70E-15@1013; IOLE + NO3 = 0.5*NO2 + 0.5*NTR1 + 0.48*XO2 + 0.48*XO2H + 0.04*XO2N + RO2 + 0.5*ALD2 + 0.625*ALDX + PAR # 3.70E-13; ! added ISOPRXN to ISOP+OH ISOP + OH = ISO2 + RO2 + ISOPRXN # 2.70E-11@-390; ISOP + O = 0.75*ISPD + 0.5*FORM + 0.25*XO2 + 0.25*RO2 + 0.25*HO2 + 0.25*CXO3 + 0.25*PAR # 3.00E-11; ISO2 + NO = 0.1*INTR + 0.9*NO2 + 0.673*FORM + 0.9*ISPD + 0.818*HO2 + 0.082*XO2H + 0.082*RO2 # 2.39E-12@-365; ISO2 + HO2 = 0.88*ISPX + 0.12*OH + 0.12*HO2 + 0.12*FORM + 0.12*ISPD # 7.43E-13@-700; ISO2 + C2O3 = 0.598*FORM + 1.0*ISPD + 0.728*HO2 + 0.072*XO2H + 0.8*MEO2 + 0.2*AACD + 0.872*RO2 # 1.00E+0*K; ISO2 + RO2 = 0.598*FORM + 1.0*ISPD + 0.728*HO2 + 0.072*XO2H + 1.072*RO2 # 1.0*K; ISO2 = HO2 + HPLD # 3.30E+9@8300; ISOP + O3 = 0.6*FORM + 0.65*ISPD + 0.15*ALDX + 0.2*CXO3 + 0.35*PAR + 0.266*OH + 0.2*XO2 + 0.2*RO2 + 0.066*HO2 + 0.066*CO # 1.03E-14@1995; ISOP + NO3 = 0.35*NO2 + 0.65*NTR2 + 0.64*XO2H + 0.33*XO2 + 0.03*XO2N + RO2 + 0.35*FORM + 0.35*ISPD + ISOPRXN # 3.03E-12@448; ISPD + OH = 0.022*XO2N + 0.521*XO2 + 0.115*MGLY + 0.115*MEO2 + 0.269*GLYD + 0.269*C2O3 + 0.457*OPO3 + 0.117*PAR + 0.137*ACET + 0.137*CO + 0.137*HO2 + 0.658*RO2 # 5.58E-12@-511; ISPD + O3 = 0.04*ALD2 + 0.231*FORM + 0.531*MGLY + 0.17*GLY + 0.17*ACET + 0.543*CO + 0.461*OH + 0.15*FACD + 0.398*HO2 + 0.143*C2O3 # 3.88E-15@1770; ISPD + NO3 = 0.717*HNO3 + 0.142*NTR2 + 0.142*NO2 + 0.142*XO2 + 0.142*XO2H + 0.113*GLYD + 0.113*MGLY + 0.717*PAR + 0.717*CXO3 + 0.284*RO2 # 4.10E-12@1860; ISPD = 0.76*HO2 + 0.34*XO2H + 0.16*XO2 + 0.34*MEO2 + 0.208*C2O3 + 0.26*FORM + 0.24*OLE + 0.24*PAR + 0.17*ACET + 0.128*GLYD + 0.84*RO2 # 1.0/; ISPX + OH = 0.904*EPOX + 0.933*OH + 0.067*ISO2 + 0.067*RO2 + 0.029*IOLE + 0.029*ALDX # 2.23E-11@-372; HPLD = OH + ISPD # 1.0/; HPLD + NO3 = HNO3 + ISPD # 6.00E-12@1860; EPOX + OH = EPX2 + RO2 # 5.78E-11@400; EPX2 + HO2 = 0.275*GLYD + 0.275*GLY + 0.275*MGLY + 1.125*OH + 0.825*HO2 + 0.375*FORM + 0.074*FACD + 0.251*CO + 2.175*PAR # 7.43E-13@-700; EPX2 + NO = 0.275*GLYD + 0.275*GLY + 0.275*MGLY + 0.125*OH + 0.825*HO2 + 0.375*FORM + NO2 + 0.251*CO + 2.175*PAR # 2.39E-12@-365; EPX2 + C2O3 = 0.22*GLYD + 0.22*GLY + 0.22*MGLY + 0.1*OH + 0.66*HO2 + 0.3*FORM + 0.2*CO +1.74*PAR + 0.8*MEO2 + 0.2*AACD +0.8*RO2 # 1.0*K; EPX2 + RO2 = 0.275*GLYD + 0.275*GLY + 0.275*MGLY + 0.125*OH + 0.825*HO2 + 0.375*FORM + 0.251*CO + 2.175*PAR + RO2 # 1.0*K; INTR + OH = 0.63*XO2 + 0.37*XO2H + RO2 + 0.444*NO2 + 0.185*NO3 + 0.104*INTR + 0.592*FORM + 0.331*GLYD + 0.185*FACD + 2.7*PAR + 0.098*OLE + 0.078*ALDX + 0.266*NTR2 # 3.10E-11; ! added TRPRXN to TERP+ O, OH, O3 and NO3 TERP + O = 0.15*ALDX + 5.12*PAR + TRPRXN # 3.60E-11; TERP + OH = 0.75*XO2H + 0.5*XO2 + 0.25*XO2N + 1.5*RO2 + 0.28*FORM + 1.66*PAR + 0.47*ALDX + TRPRXN # 1.50E-11@-449; TERP + O3 = 0.57*OH + 0.07*XO2H + 0.69*XO2 + 0.18*XO2N + 0.94*RO2 + 0.24*FORM + 0.001*CO + 7.0*PAR + 0.21*ALDX + 0.39*CXO3 + TRPRXN # 1.20E-15@821; TERP + NO3 = 0.47*NO2 + 0.28*XO2H + 0.75*XO2 + 0.25*XO2N + 1.28*RO2 + 0.47*ALDX + 0.53*NTR2 + 1.0*TERPNRO2 # 3.70E-12@-175; ! Separate APIN (alpha-pinene) APIN + O = 0.15*ALDX + 5.12*PAR + TRPRXN # 3.60E-11; APIN + OH = 0.75*XO2H + 0.5*XO2 + 0.25*XO2N + 1.5*RO2 + 0.28*FORM + 1.66*PAR + 0.47*ALDX + TRPRXN # 1.50E-11@-449; APIN + O3 = 0.57*OH + 0.07*XO2H + 0.69*XO2 + 0.18*XO2N + 0.94*RO2 + 0.24*FORM + 0.001*CO + 7.0*PAR + 0.21*ALDX + 0.39*CXO3 + TRPRXN # 1.20E-15@821; APIN + NO3 = 0.47*NO2 + 0.28*XO2H + 0.75*XO2 + 0.25*XO2N + 1.28*RO2 + 0.47*ALDX + 0.53*NTR2 # 3.70E-12@-175; ! added BENZRO2 as tracer for SOA products from BENZENE - used later to account ! for high vs. low NOx influence on SOA BENZENE + OH = 0.53*CRES + 0.352*BZO2 + 0.352*RO2 + 0.118*OPEN + 0.118*OH + 0.53*HO2 + BENZRO2 # 2.30E-12@190; BZO2 + NO = 0.918*NO2 + 0.082*NTR2 + 0.918*GLY + 0.918*OPEN + 0.918*HO2 # 2.70E-12@-360; BZO2 + C2O3 = GLY + OPEN + HO2 + MEO2 + RO2 # 1.0*K; BZO2 + HO2 = # 1.90E-13@-1300; BZO2 + RO2 = GLY + OPEN + HO2 + RO2 # 1.0*K; ! added TOLRO2 tracer for SOA production - used at end of mechanism file to ! account for low vs. high NOx dependance of SOA precursors (TOLRXN) TOL + OH = 0.18*CRES + 0.65*TO2 + 0.72*RO2 + 0.1*OPEN + 0.1*OH + 0.07*XO2H + 0.18*HO2 + TOLRO2 # 1.80E-12@-340; TO2 + NO = 0.86*NO2 + 0.14*NTR2 + 0.417*GLY + 0.443*MGLY + 0.66*OPEN + 0.2*XOPN + 0.86*HO2 # 2.70E-12@-360; TO2 + C2O3 = 0.48*GLY + 0.52*MGLY + 0.77*OPEN + 0.23*XOPN + HO2 + MEO2 + RO2 # 1.0*K; TO2 + HO2 = # 1.90E-13@-1300; TO2 + RO2 = 0.48*GLY + 0.52*MGLY + 0.77*OPEN + 0.23*XOPN + HO2 + RO2 # 1.0*K; ! added XYLRO2 tracer for SOA production - used at end of mechanism file to ! account for low vs. high NOx dependance of SOA precursors XYLMN + OH = 0.155*CRES + 0.544*XLO2 + 0.602*RO2 + 0.244*XOPN + 0.244*OH + 0.058*XO2H + 0.155*HO2 + XYLRO2 # 1.85E-11; NAPH + OH = 0.155*CRES + 0.544*XLO2 + 0.602*RO2 + 0.244*XOPN + 0.244*OH + 0.058*XO2H + 0.155*HO2 + PAHRO2 # 1.85E-11; XLO2 + NO = 0.86*NO2 + 0.14*NTR2 + 0.221*GLY + 0.675*MGLY + 0.3*OPEN + 0.56*XOPN + 0.86*HO2 # 2.70E-12@-360; XLO2 + HO2 = # 1.90E-13@-1300; XLO2 + C2O3 = 0.26*GLY + 0.77*MGLY + 0.35*OPEN + 0.65*XOPN + HO2 + MEO2 + RO2 # 1.0*K; XLO2 + RO2 = 0.26*GLY + 0.77*MGLY + 0.35*OPEN + 0.65*XOPN + HO2 + RO2 # 1.0*K; CRES + OH = 0.025*GLY + 0.025*OPEN + HO2 + 0.2*CRO + 0.732*CAT1 + 0.02*XO2N + 0.02*RO2 # 1.70E-12@-950; CRES + NO3 = 0.3*CRO + HNO3 + 0.48*XO2 + 0.12*XO2H + 0.24*GLY + 0.24*MGLY + 0.48*OPO3 + 0.1*XO2N + 0.7*RO2 # 1.40E-11; CRO + NO2 = CRON # 2.10E-12; CRO + HO2 = CRES # 5.50E-12; CRON + OH = NTR2 + 0.5*CRO # 1.53E-12; CRON + NO3 = NTR2 + 0.5*CRO + HNO3 # 3.80E-12; CRON = HONO + HO2 + FORM + OPEN # 1.0/; XOPN = 0.4*GLY + XO2H + 0.7*HO2 + 0.7*CO + 0.3*C2O3 #0.05/; XOPN + OH = MGLY + 0.4*GLY + 2.0*XO2H + 2.0*RO2 # 9.00E-11; XOPN + O3 = 1.2*MGLY + 0.5*OH + 0.6*C2O3 + 0.1*ALD2 + 0.5*CO + 0.3*XO2H + 0.3*RO2 # 1.08E-16@500; XOPN + NO3 = 0.5*NO2 + 0.5*NTR2 + 0.45*XO2H + 0.45*XO2 + 0.1*XO2N + RO2 + 0.25*OPEN + 0.25*MGLY # 3.00E-12; OPEN = OPO3 + HO2 + CO # 0.028/; OPEN + OH = 0.6*OPO3 + 0.4*XO2H + 0.4*RO2 + 0.4*GLY # 4.40E-11; OPEN + O3 = 1.4*GLY + 0.24*MGLY + 0.5*OH + 0.12*C2O3 + 0.08*FORM + 0.02*ALD2 + 1.98*CO + 0.56*HO2 # 5.40E-17@500; OPEN + NO3 = OPO3 + HNO3 # 3.80E-12; CAT1 + OH = 0.14*FORM + 0.2*HO2 + 0.5*CRO # 5.00E-11; CAT1 + NO3 = CRO + HNO3 # 1.70E-10; OPO3 + NO = NO2 + 0.5*GLY + 0.5*CO + 0.8*HO2 + 0.2*CXO3 # 1.00E-11; OPO3 + NO2 = OPAN # 1.00E+0*K; OPAN = OPO3 + NO2 # 1.00E+0*K; OPO3 + HO2 = 0.41*PACD + 0.15*AACD + 0.15*O3 + 0.44*ALDX + 0.44*XO2H + 0.44*RO2 + 0.44*OH # 1.00E+0*K; OPO3 + C2O3 = MEO2 + XO2 + ALDX + 2.0*RO2 # 1.00E+0*K; OPO3 + RO2 = 0.8*XO2H + 0.8*ALDX + 1.8*RO2 + 0.2*AACD # 1.00E+0*K; OPAN + OH = 0.5*NO2 + 0.5*GLY + CO + 0.5*NTR2 # 3.60E-11; PANX + OH = ALD2 + NO2 # 3.00E-12; !BK NTR2 = HNO3 # 2.30E-5; ECH4 + OH = MEO2 + RO2 # 1.85E-12@1690; XPRP = XO2N + RO2 # 2.37E-21 & 4.30E-01^-8.0 &0.41 &1.0; XPRP = 0.732*ACET + 0.268*ALDX + 0.268*PAR + XO2H + RO2 # 1.00E+00; XPAR = XO2N + RO2 # 4.81E-20 & 4.30E-01^-8.0 &0.41 &1.0; XPAR = 0.126*ALDX + 0.874*ROR + 0.126*XO2H + 0.874*XO2 + RO2 -0.126*PAR # 1.00E+00; ! ! Chlorine reactions added from base CB05tucl and updated ! CL2 = 2.000*CL # 1.0/; HOCL = OH + CL # 1.0/; CL + O3 = CLO # 2.3E-11 @ 200; CLO + CLO = 0.300*CL2 + 1.400*CL # 1.63E-14; CLO + NO = CL + NO2 # 6.4E-12 @ -290; CLO + HO2 = HOCL # 2.2E-12 @ -340; CLO + MEO2 = CL + FORM + HO2 # 3.2E-12@110; OH + FMCL = CL + CO # 5.0E-13; FMCL = CL + CO + HO2 # 1.0/; CL + CH4 = HCL + MEO2 + RO2 # 6.6E-12 @ 1240; CL + PAR = HCL + XPAR # 5.0E-11; CL + PRPA = HCL + ACET + 0.97*XO2H + 0.03*XO2N + RO2 # 1.4E-10; CL + ETHA = HCL + 0.991*ALD2 + 0.991*XO2H + 0.009*XO2N + RO2 # 8.3-11 @ 100; CL + ETH = FMCL + 2.000*XO2 + 1.000*HO2 + 1.000*FORM # 1.07E-10; CL + OLE = FMCL + 0.330*ALD2 + 0.670*ALDX + 2.000*XO2 + 1.000*HO2 - 1.000*PAR # 2.5E-10; CL + IOLE = 0.300*HCL + 0.700*FMCL + 0.450*ALD2 + 0.550*ALDX + 0.300*OLE + 0.300*PAR + 1.700*XO2 + 1.000*HO2 # 3.5E-10; CL + ISOP = FMCL + ISPD + 0.96*XO2H + 0.04*XO2N + RO2 # 4.3E-10; CL + FORM = HCL + 1.00*HO2 + 1.00*CO # 8.2E-11 @ 34; CL + ALD2 = HCL + 1.000*C2O3 # 7.9E-11; CL + ALDX = HCL + 1.000*CXO3 # 1.3E-10; CL + MEOH = HCL + 1.00*HO2 + 1.00*FORM # 5.5E-11; CL + ETOH = HCL + 1.00*HO2 + 1.00*ALD2 # 8.2E-11 @ -45; HCL + OH = CL # 6.58E-13^1.16 @ -58; CL + TOL = HCL + 0.18*CRES + 0.65*TO2 + 0.72*RO2 + 0.1*OPEN + 0.1*OH + 0.07*XO2H + 0.18*HO2 + TOLRO2 # 6.1E-11; CL + XYLMN = HCL + 0.155*CRES + 0.544*XLO2 + 0.602*RO2 + 0.244*XOPN + 0.244*OH + 0.058*XO2H + 0.155*HO2 + XYLRO2 # 1.2E-10; CL + NAPH = HCL + 0.155*CRES + 0.544*XLO2 + 0.602*RO2 + 0.244*XOPN + 0.244*OH + 0.058*XO2H + 0.155*HO2 + PAHRO2 # 1.2E-10; CLNO2 = CL + NO2 #1.0/; ! add new reactions for chlorine nitrate CLO + NO2 = CLNO3 #1.8E-31^-3.4&1.5E-11^-1.9&0.6; ! CLNO3 = CLO + NO2 #4.48E-5^-1.0@12530&3.71E+15^3.5@12530&0.6; CLNO3 = CLO + NO2 # 1.0/; CLNO3 = CL + NO3 # 1.0/; ! heterogeneous reactions from CB05eh51 CLNO3 = HOCL + HNO3 # 1.0~; ! SOA counter species and semivolatiles formed TOLRO2 + NO = NO + 0.016*SVAVB2 + 0.051*SVAVB3 + 0.047*SVAVB4 # 2.70e-12@-360; TOLRO2 + HO2 = HO2 + 0.14*SVAVB1 # 1.90e-13@-1300; XYLRO2 + NO = NO + 0.015*SVAVB2 + 0.023*SVAVB3 + 0.06*SVAVB4 # 2.70e-12@-360; XYLRO2 + HO2 = HO2 + 0.193*SVAVB1 # 1.90e-13@-1300; BENZRO2 + NO = NO + 0.034*SVAVB2 + 0.392*SVAVB4 # 2.70e-12@-360; BENZRO2 + HO2 = HO2 + 0.146*SVAVB1 # 1.90e-13@-1300; SESQ + O3 = O3 + SESQRXN # 1.16E-14; SESQ + OH = OH + SESQRXN # 1.97E-10; SESQ + NO3 = NO3 + SESQRXN # 1.90E-11; PAHRO2 + NO = NO + 0.028*SVAVB2 + 0.225*SVAVB3 + 0.191*SVAVB4 # 2.70e-12@-360; PAHRO2 + HO2 = HO2 + 0.473*SVAVB1 # 1.90e-13@-1300; SOAALK + OH = OH + 0.006*SVAVB2 + 0.052*SVAVB3 + 0.081*SVAVB4 # 2.70e-12@-374; ! iorganic heteorogeneous reactions from hetchem version 5.0.2 ! included F_NTR2_ON factor here, rather than in AEROSOL_CHEM.F NTR2 = HNO3 # 1.4~; N2O5 = HNO3 + H2NO3PIJ # 1.0~; N2O5 = HNO3 + H2NO3PK # 1.0~; H2NO3PIJ = HNO3 # 1.0~; H2NO3PK = HNO3 # 1.0~; H2NO3PIJ + ACLI = CLNO2 # 1.0~; H2NO3PIJ + ACLJ = CLNO2 # 1.0~; H2NO3PK + ACLK = CLNO2 # 1.0~; NO2 = 0.5*HONO + 0.5*HNO3 # 1.0~; ! updated reaction rate O3 = %H # 6.7006E-11@-10.7435 & 3.4153E-08@0.6713 & 2.0E-6; ! heterogeneous acid-catalyzed uptake of isoprene-epoxydiols EPOX = IEPOXP # 1.0~; IEPOXP + ASO4J = AISO3J # 1.0~; IEPOXP = AISO3J # 1.0~; ! GLY and MGLY uptake GLY = AGLYJ # 1.0~; MGLY = AGLYJ # 1.0~; ! MTNO3 formation and reaction TERPNRO2 + NO = 1.0*NO + 0.688*MTNO3 # 2.60e-12@-380; TERPNRO2 + HO2 = 1.0*HO2 + 1.0*MTNO3 # 2.65e-13@-1300; TERPNRO2 + NO3 = 1.0*NO3 + 0.422*MTNO3 # 2.30e-12; ! 50% alkoxy radical yield from TERPNRO2 + RO2 TERPNRO2 + RO2 = 1.0*RO2 + 0.711*MTNO3 # 3.50e-14; ! Reaction with OH, Cl is followed 50/50 by HO2 (N releasing) and NO (N retaining) MTNO3 + CL = CL + 0.37*MTNO3 # 1.92e-10; MTNO3 + OH = OH + 0.24*MTNO3 # 7.20e-12; ! photolysis releases all nitrate MTNO3 = # 1.0/; ! MTNO3 aerosol hydrolysis AMTNO3J = 1.00*AMTHYDJ #9.259E-5; ! oligomerization reaction for secondary organic aerosols AAVB2J = 0.907*AOLGAJ # 9.48816E-6; AAVB3J = 0.925*AOLGAJ # 9.48816E-6; AAVB4J = 0.943*AOLGAJ # 9.48816E-6; AISO1J = 0.50*AOLGBJ # 9.48816E-6; AISO2J = 0.50*AOLGBJ # 9.48816E-6; ASQTJ = 1.50*AOLGBJ # 9.48816E-6; !aging reactions for primary organic carbon APOCI + OH = 1.25*APNCOMI + APOCI + OH # 2.5E-12; APNCOMI + OH = OH # 1.0~; APOCJ + OH = 1.25*APNCOMJ + APOCJ + OH # 2.5E-12; APNCOMJ + OH = OH # 1.0~; ! Formation of Potential Combustion SOA (pcSOA) PCVOC + OH = OH + PCSOARXN # 1.25E-11; ! Aging with Func. and Frag. (Donahue et al. 2012) VLVPO1 + OH = OH + 0.4857 * VLVPO1 + 0.0062 * VSVPO1 + 0.0025 * VSVPO2 + 0.0026 * VSVPO3 + 0.0023 * VIVPO1 + 0.2944 * VLVOO1 + 0.2021 * VLVOO2 + 0.0019 * VSVOO2 + 0.0023 * VSVOO3 #4.0e-11; VSVPO1 + OH = OH + 0.3003 * VLVPO1 + 0.2862 * VSVPO1 + 0.0041 * VSVPO2 + 0.0035 * VSVPO3 + 0.2239 * VLVOO1 + 0.1820 * VLVOO2 #4.0e-11; VSVPO2 + OH = OH + 0.3856 * VLVPO1 + 0.0950 * VSVPO1 + 0.1373 * VSVPO2 + 0.0005 * VSVPO3 + 0.2051 * VLVOO1 + 0.1764 * VLVOO2 #4.0e-11; VSVPO3 + OH = OH + 0.2181 * VLVPO1 + 0.3063 * VSVPO1 + 0.0153 * VSVPO2 + 0.1043 * VSVPO3 + 0.1893 * VLVOO1 + 0.1668 * VLVOO2 #4.0e-11; VIVPO1 + OH = OH + 0.2412 * VLVPO1 + 0.2089 * VSVPO1 + 0.3000 * VSVPO2 + 0.2028 * VLVOO1 + 0.0471 * VLVOO2 #4.0e-11; VLVOO1 + OH = OH + 0.6664 * VLVOO1 + 0.0143 * VLVOO2 + 0.0123 * VSVOO1 + 0.1239 * VSVOO2 + 0.1831 * VSVOO3 #4.0e-11; VLVOO2 + OH = OH + 0.2858 * VLVOO1 + 0.3931 * VLVOO2 + 0.0139 * VSVOO1 + 0.1027 * VSVOO2 + 0.2045 * VSVOO3 #4.0e-11; VSVOO1 + OH = OH + 0.3303 * VLVOO1 + 0.2272 * VLVOO2 + 0.2607 * VSVOO1 + 0.0702 * VSVOO2 + 0.1116 * VSVOO3 #4.0e-11; VSVOO2 + OH = OH + 0.3444 * VLVOO1 + 0.2749 * VLVOO2 + 0.0491 * VSVOO1 + 0.2577 * VSVOO2 + 0.0739 * VSVOO3 #4.0e-11; VSVOO3 + OH = OH + 0.3886 * VLVOO1 + 0.2421 * VLVOO2 + 0.0640 * VSVOO1 + 0.0385 * VSVOO2 + 0.2667 * VSVOO3 #4.0e-11; ! MP extra species < T01> FORM_PRIMARY + OH = OH # 5.40E-12@-135; < T02> FORM_PRIMARY + NO3 = NO3 # 5.50E-16; < T03> FORM_PRIMARY + O = O # 3.4E-11 @ 1600; < T04> FORM_PRIMARY = # 1.0/; < T05> FORM_PRIMARY = # 1.0/; FORM_PRIMARY + CL = CL # 8.2E-11 @ 34; < T06> ALD2_PRIMARY + OH = OH # 4.70E-12@-345; < T07> ALD2_PRIMARY + NO3 = NO3 # 1.40E-12@1860; < T08> ALD2_PRIMARY + O = O # 1.8E-11 @ 1100; < T09> ALD2_PRIMARY = # 1.0/; ALD2_PRIMARY + CL = CL # 7.9E-11; < T10> BUTADIENE13 + OH = OH + 0.58*ACROLEIN # 1.48E-11@-448.; < T11> BUTADIENE13 + O3 = O3 + 0.52*ACROLEIN # 1.34E-14@2283.; < T12> BUTADIENE13 + NO3 = NO3 + 0.045*ACROLEIN # 1.79E-13; BUTADIENE13 + CL = CL + 0.58*ACROLEIN # 2.51E-10; < T13> ACRO_PRIMARY + OH = OH # 2.0E-11; < T14> ACRO_PRIMARY + O3 = O3 # 2.61E-19; < T15> ACRO_PRIMARY + NO3 = NO3 # 1.15E-15; < T16> ACRO_PRIMARY = # 1.0/; ACRO_PRIMARY + CL = CL # 2.37E-10; < T17> ACROLEIN + OH = OH # 2.0E-11; < T18> ACROLEIN + O3 = O3 # 2.61E-19; < T19> ACROLEIN + NO3 = NO3 # 1.15E-15; < T20> ACROLEIN = # 1.0/; ACROLEIN + CL = CL # 2.37E-10; < T21> TOLU + OH = OH # 1.80E-12@-340.; TOLU + CL = CL # 6.1E-11; HG + O3 = 0.5*HGIIAER + 0.5*HGIIGAS + O3 # 2.11E-18 @ 1256.5; HG + CL2 = HGIIGAS + CL2 # 2.6E-18; HG + H2O2 = HGIIGAS + H2O2 # 8.5E-19; HG + OH = 0.5*HGIIAER + 0.5*HGIIGAS + OH # 7.7E-14; HG + CL + M = 0.5*HG + 0.5*HGIIGAS + M + CL # 2.25E-33 @ -680.0; END MECH CONSTANTS ATM_AIR = 1.0E+06 ATM_H2 = 0.56 ATM_N2 = 0.7808E+06 ATM_O2 = 0.2095E+06 ATM_CH4 = 1.85 END CONSTANTS ================================================ FILE: CCTM/src/MECHS/cb6r3_ae7_aq/pa_cb6r3_ae7_aq.ctl ================================================ ! for CB6_cl2 ! IRRTYPE = PARTIAL; DEFINE FAMILY NOX = NO + NO2; DEFINE FAMILY NTR = NTR1 +NTR2 +INTR; DEFINE FAMILY PANy = PAN +PANX +OPAN; DEFINE FAMILY NOZ = PAN +PANX +OPAN +HONO +PNA +2*N2O5 +NTR1 +NTR2 +INTR +HNO3 +CLNO2 +CLNO3 +CRON; DEFINE FAMILY OX = O3 +NO2 +2*NO3 +O +O1D +PAN +3*N2O5 +PNA +PANX +OPAN; DEFINE FAMILY HOX = OH + HO2; DEFINE FAMILY aRO2s = C2O3 +CXO3 +OPO3; DEFINE FAMILY RO2s = MEO2 +XO2 +XO2H +XO2N +ISO2 +EPX2 +BZO2 +TO2 +XLO2; DEFINE FAMILY aVOC = FORM +ALD2 +ALDX +PAR +ETHA +PRPA +MEOH +ETOH +ETH +OLE +IOLE +ACET +TOL +XYLMN +GLYD +GLY +MGLY +KET +CRON +NTR1 +OPEN +CAT1 +CRES +XOPN +NAPH; DEFINE FAMILY bVOC = ISOP + ISPD + INTR + HPLD + EPOX + TERP; !!======================================================================= ! Reaction Sum Definitions !======================================================================= DEFINE CYCLE PANcyc = PAN; DEFINE CYCLE PANXcyc = PANX; DEFINE CYCLE OPANcyc = OPAN; DEFINE CYCLE PNAcyc = PNA; DEFINE RXNSUM PNAHO2cyc = 0.59* + - ; DEFINE RXNSUM HONOcyc = + 2.0* - 2.0* - - ; DEFINE RXNSUM NO3cyc = - ; DEFINE RXNSUM MEPXcyc = - 0.9*; DEFINE RXNSUM ROOHcyc = - - - ; DEFINE RXNSUM N2O5cyc = - ; DEFINE RXNSUM H2O2_OHcyc = - --; DEFINE RXNSUM HOXcyc = -; DEFINE RXNSUM HCO3cyc = - ; DEFINE RXNSUM CLNO3cyc = - ; !======================================================================= ! IPR_OUTPUTS !======================================================================= IPR_OUTPUT O3 = CHEM+DDEP+CLDS+AERO+TRNM; IPR_OUTPUT HNO3 = CHEM+DDEP+CLDS+AERO; IPR_OUTPUT PAN = CHEM+DDEP+CLDS+AERO+TRNM; IPR_OUTPUT N2O5 = CHEM+DDEP+CLDS+AERO; DEFINE FAMILY EC = AECI + AECJ; IPR_OUTPUT EC = COAG + EMIS + HADV; IPR_OUTPUT ASO4J = COND + COAG + EMIS + CHEM + VDIF + CLDS; IPR_OUTPUT ASO4I = NPF + COND + COAG + EMIS + CHEM + VDIF +CLDS; IPR_OUTPUT NUMATKN; !IPR_OUTPUT NUMACC; !IPR_OUTPUT NUMCOR; !======================================================================= ! IRR_OUTPUTS ! OX prod and loss ! IRR_OUTPUT OxPROD = NETP[OX]; IRR_OUTPUT OxLOSS = NETL[OX]; IRR_OUTPUT OxLOSSHAL = ; ! factors influencing PAN and N2O5 concentrations ! IRR_OUTPUT PANprod = PANcyc[POSONLY]; IRR_OUTPUT PANloss= PANcyc[NEGONLY] + ; ! RO2 fate IRR_OUTPUT RO2withNOtoNO2 = PROD[NO2] FROM [RO2s] AND [NO] + PROD[NO2] FROM [aRO2s] AND [NO]; IRR_OUTPUT RO2withNOtoNTR = PROD[NTR] FROM [RO2s] AND [NO]; IRR_OUTPUT RO2withNO2toPAN = PROD[PANy] FROM [aRO2s] AND [NO2]; IRR_OUTPUT RO2withHO2 = LOSS [RO2s] AND [HO2] + LOSS [aRO2s] AND [HO2]; IRR_OUTPUT RO2withRO2 = LOSS [RO2s] AND [RO2] + LOSS [aRO2s] AND [RO2] + LOSS [RO2s] AND [aRO2s]; ! VOC fate IRR_OUTPUT aVOCwithOH = LOSS[aVOC] AND [OH]; IRR_OUTPUT aVOCwithO3 = LOSS[aVOC] AND [O3]; IRR_OUTPUT aVOCwithNO3 = LOSS[aVOC] AND [NO3]; IRR_OUTPUT aVOCwithCL = LOSS[aVOC] AND [CL]; IRR_OUTPUT bVOCwithOH = LOSS[bVOC] AND [OH]; IRR_OUTPUT bVOCwithO3 = LOSS[bVOC] AND [O3]; IRR_OUTPUT bVOCwithNO3 = LOSS[bVOC] AND [NO3]; IRR_OUTPUT bVOCwithCL = LOSS[bVOC] AND [CL]; ! New radicals IRR_OUTPUT OHfrO1D = PROD [OH] FROM [O1D]; ! IRR_OUTPUT NewHOxfromHCHO =2.0*; IRR_OUTPUT NewHOxfromH2O2 =2.0*H2O2_OHcyc[POSONLY]; IRR_OUTPUT NewHOxfromHONO = HONOcyc[NEGONLY]; ! from photolysis not including HCHO IRR_OUTPUT NewHOxfromhv = + + 2.0* + 2.0* + + 1.59* + 2.0* + + 0.76* + + 0.7* + + ; ! from O3+alkene reactions IRR_OUTPUT NewHOxfromO3 =0.32* + 0.414* + 0.5* +0.332* +0.859* +0.57* + 1.06*; ! chlorine IRR_OUTPUT NewClrad = 2.0* + + + + ; IRR_OUTPUT ClfromCLNO2 = ; IRR_OUTPUT ClfromCLNO3 = ; ! NOz production rates IRR_OUTPUT NOZfrNOX = PANcyc[POSONLY] + PANXcyc[POSONLY] + OPANcyc[POSONLY] + HONOcyc[POSONLY] + PNAcyc[POSONLY] + NO3cyc[POSONLY] + N2O5cyc[POSONLY] + CLNO3cyc[POSONLY] +PROD[NTR] FROM [NOX] + PROD[HNO3] FROM [NOX]; ! O3 production efficiency = p(O3)/p(NOz)= O3prod/NOZfromNOX IRR_OUTPUT O3prod = NETP[O3]; ! HNO3 formation pathways IRR_OUTPUT HNO3prod = PROD[HNO3]; IRR_OUTPUT HNO3fromOHNO2 = ; IRR_OUTPUT HNO3fromhetNTR = ; IRR_OUTPUT HNO3fromN2O5 = + + +; IRR_OUTPUT HNO3fromNO3 = PROD[HNO3] FROM [NO3]; IRR_OUTPUT HNO3frCLNO3 = ; ! alkyl nitrate pathways ! IRR_OUTPUT NTRprod = NETP[NTR]; IRR_OUTPUT NTRfromISOP = PROD[NTR] FROM [ISOP] + PROD[NTR] FROM [ISPD]; IRR_OUTPUT NTRfromTERP = PROD[NTR] FROM [TERP]; IRR_OUTPUT XO2NfromISOP = PROD[XO2N] FROM [ISOP] + PROD[XO2N] FROM [ISPD]; IRR_OUTPUT XO2NfromTERP = PROD[XO2N] FROM [TERP]; IRR_OUTPUT XO2NfromALKx = PROD[XO2N] FROM [PAR]; IRR_OUTPUT XO2Nprod = PROD[XO2N]; IRR_OUTPUT NTRfromXO2N = PROD[NTR] FROM [XO2N]; ! ENDPA; ================================================ FILE: CCTM/src/MECHS/cb6r5_ae7_aq/AE_cb6r5_ae7_aq.nml ================================================ &AE_nml AE_SPECIES_DATA = !SPECIES ,MOLWT ,Aitken ,Accum ,Coarse ,OPTICS ,IC ,ICFAC ,BC ,BC_FAC ,DRYDEP SURR ,FAC ,WET-SCAV SURR ,FAC ,AE2AQ SURR ,TRNS ,DDEP ,WDEP ,CONC 'ASO4' , 96.00 ,T ,T ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'SO4' , 1 ,'SO4' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ANH4' , 18.00 ,T ,T ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'NH4' , 1 ,'NH4' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ANO3' , 62.00 ,T ,T ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'NO3' , 1 ,'NO3' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ANA' , 23.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'NA' , 1 ,'NA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ACL' , 35.50 ,T ,T ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'CL' , 1 ,'CL' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AISO1' ,132.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AISO2' ,133.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ASQT' ,273.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AORGC' ,177.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'AORGC' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AEC' , 12.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'EC' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AOTHR' ,200.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'PRI' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AFE' , 55.80 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'FE' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AAL' , 27.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'PRI' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ASI' , 28.10 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'PRI' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ATI' , 47.90 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'PRI' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ACA' , 40.10 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'CA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AMG' , 24.30 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'MG' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AK' , 39.10 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'K' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AMN' , 54.90 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'MN' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ACORS' ,100.00 ,F ,F ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'ANTH' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ASOIL' ,100.00 ,F ,F ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'SOIL' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'NUM' , 1.00 ,T ,T ,T ,'' ,'' ,-1 ,'' ,-1 ,'VNUM' , 1 ,'NUM' , 1 ,'NUM' ,'Yes' ,'' ,'' ,'Yes', 'SRF' , 1.00 ,T ,T ,T ,'' ,'' ,-1 ,'' ,-1 ,'VSRF' , 1 ,'SRF' , 1 ,'SRF' ,'Yes' ,'' ,'' ,'Yes', 'AORGH2O' , 18.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'H2O' , 1 ,'H2O' ,'Yes' ,'' ,'' ,'Yes', 'AH2O' , 18.00 ,T ,T ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'H2O' , 1 ,'H2O' ,'Yes' ,'' ,'' ,'Yes', 'AH3OP' , 19.00 ,T ,T ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'' ,-1 ,'' ,'Yes' ,'' ,'' ,'Yes', 'ASEACAT' , 23.75 ,F ,F ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'SEAS' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AISO3' ,168.20 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AOLGA' ,206.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AOLGB' ,248.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AGLY' , 66.40 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AMTNO3' ,231.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AMTHYD' ,168.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'APOC' ,220.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'APNCOM' ,220.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'APCSO' ,170.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ALVPO1' ,218.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ASVPO1' ,230.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ASVPO2' ,241.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ASVPO3' ,253.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AIVPO1' ,266.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ALVOO1' ,136.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ALVOO2' ,136.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ASVOO1' ,135.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ASVOO2' ,135.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ASVOO3' ,134.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AAVB1' ,198.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AAVB2' ,179.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AAVB3' ,169.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AAVB4' ,158.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AMT1' ,300.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AMT2' ,200.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AMT3' ,186.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AMT4' ,184.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AMT5' ,170.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AMT6' ,168.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', / ================================================ FILE: CCTM/src/MECHS/cb6r5_ae7_aq/CMAQ_Control_DESID_cb6r5_ae7_aq.nml ================================================ !------------------------------------------------------------------------------! ! Emission Control Interface ! ! for the ! ! Detailed Emissions Scaling, Isolation, and Diagnostics (DESID) Module, ! ! part of the ! ! Community Multiscale Air Quality (CMAQ) Model ! ! developed and maintained by the ! ! Center for Environmental Measurement and Modeling (CEMM), ! ! Office of Research and Development (ORD) ! ! U.S. Environmental Protection Agency (USEPA) ! ! ! ! This namelist is consistent with CMAQv5.4 (Release AUGUST 2022) ! ! ! ! See CMAQ User's Guide Appendix B (https://github.com/USEPA/CMAQ/blob/main/ ! ! DOCS/Users_Guide/Appendix/CMAQ_UG_appendixB_emissions_control.md) ! ! and Murphy et al., Geoscientific Model Development, 14, 3407-3420, ! ! https://doi.org/10.5194/gmd-14-3407-2021, 2021. ! !------------------------------------------------------------------------------! !------------------------------------------------------------------------------! ! Emissions Scaling Rule Specification Component ! ! Each rule is presented as a row of inputs. The syntax of the ! ! emissions scaling rules is the following: ! ! EM_INSTR(I) = 'Region Label', 'Stream Label', 'Emission-Species', ! ! 'CMAQ-Species', 'Phase/Mode', 'Scale Factor', 'Basis', ! ! 'Operation' ! ! ! ! See the User's Guide for detailed definitions of each field. ! ! ! ! You may confirm the effect of the (default and custom) rules below by ! ! inspecting the processor-dependent log files ("CTM_LOG_XXX...") ! ! ! ! Note: If no rules are provided for a species, then there is no emission ! ! of that species. ! !------------------------------------------------------------------------------! &Desid_ScalingVars Desid_Max_Rules = 2000 / &Desid_Scaling Desid_Rules_nml = ! Region | Stream Label |Emission | CMAQ- |Phase/|Scale |Basis |Op ! Label | |Species | Species |Mode |Factor| | ! Gases 'EVERYWHERE', 'ALL' ,'NO2' ,'NO2' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'NO' ,'NO' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'HONO' ,'HONO' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'SO2' ,'SO2' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'NH3' ,'NH3' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'AACD' ,'AACD' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'ALD2' ,'ALD2' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'FORM' ,'FORM' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'MEOH' ,'MEOH' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'FACD' ,'FACD' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'CO' ,'CO' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'ALDX' ,'ALDX' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'ETHA' ,'ETHA' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'ETOH' ,'ETOH' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'KET' ,'KET' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PAR' ,'PAR' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'ACET' ,'ACET' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PRPA' ,'PRPA' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'ETHY' ,'ETHY' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'ETH' ,'ETH' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'OLE' ,'OLE' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'IOLE' ,'IOLE' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'ISOP' ,'ISOP' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'APIN' ,'APIN' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'TERP' ,'TERP' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'BENZ' ,'BENZENE' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'TOL' ,'TOL' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'XYLMN' ,'XYLMN' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'NAPH' ,'NAPH' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'CH4' ,'ECH4' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'CL2' ,'CL2' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'HCL' ,'HCL' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'SESQ' ,'SESQ' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'SOAALK' ,'SOAALK' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'ACROLEIN','ACROLEIN' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'ALD2_PRIMARY','ALD2_PRIMARY','GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'FORM_PRIMARY','FORM_PRIMARY','GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'ACROLEIN','ACRO_PRIMARY','GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'BUTADIENE13','BUTADIENE13' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'SULF' ,'SULF' ,'GAS' ,0. ,'UNIT','a', ! Marine Halogen Chemistry 'EVERYWHERE', 'ALL' ,'DMS' ,'DMS' ,'GAS' ,1. ,'UNIT','a', ! Fine-Mode Aerosols 'EVERYWHERE', 'ALL' ,'SULF' ,'ASO4' ,'FINE' ,1. ,'MASS','a', 'EVERYWHERE', 'ALL' ,'PSO4' ,'ASO4' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PNH4' ,'ANH4' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PNO3' ,'ANO3' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PCL' ,'ACL' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PNA' ,'ANA' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PEC' ,'AEC' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMOTHR' ,'AOTHR' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PFE' ,'AFE' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PAL' ,'AAL' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PSI' ,'ASI' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PTI' ,'ATI' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PCA' ,'ACA' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMG' ,'AMG' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PK' ,'AK' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMN' ,'AMN' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PH2O' ,'AH2O' ,'FINE' ,1. ,'UNIT','a', ! Coarse-Mode Inorganic Ions Scaling 'EVERYWHERE', 'ALL' ,'PMC' ,'ACORS' ,'COARSE',0.99675,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMC' ,'ASO4' ,'COARSE',0.001 ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMC' ,'ANO3' ,'COARSE',0.00048,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMC' ,'ACL' ,'COARSE',0.00145,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMC' ,'AH2O' ,'COARSE',0.00032,'UNIT','a', ! Fine-Mode Primary Organic Aerosol Scaling ! --> Nonvolatile POA 'EVERYWHERE', 'ALL' ,'POC' ,'APOC' ,'FINE',0. ,'MASS','a', 'EVERYWHERE', 'ALL' ,'PNCOM' ,'APNCOM' ,'FINE',0. ,'MASS','a', ! --> Semivolatile POA (see CMAQ User's Guide Appendix B.2.2.1) 'EVERYWHERE', 'ALL' ,'POC' ,'VSVPO1' ,'GAS' ,0.045,'MASS','a', 'EVERYWHERE', 'ALL' ,'PNCOM' ,'VSVPO1' ,'GAS' ,0.045,'MASS','a', 'EVERYWHERE', 'ALL' ,'POC' ,'VSVPO2' ,'GAS' ,0.14 ,'MASS','a', 'EVERYWHERE', 'ALL' ,'PNCOM' ,'VSVPO2' ,'GAS' ,0.14 ,'MASS','a', 'EVERYWHERE', 'ALL' ,'POC' ,'VSVPO3' ,'GAS' ,0.18 ,'MASS','a', 'EVERYWHERE', 'ALL' ,'PNCOM' ,'VSVPO3' ,'GAS' ,0.18 ,'MASS','a', 'EVERYWHERE', 'ALL' ,'POC' ,'VIVPO1' ,'GAS' ,0.50 ,'MASS','a', 'EVERYWHERE', 'ALL' ,'PNCOM' ,'VIVPO1' ,'GAS' ,0.50 ,'MASS','a', 'EVERYWHERE', 'ALL' ,'POC' ,'ALVPO1' ,'FINE',0.09 ,'MASS','a', 'EVERYWHERE', 'ALL' ,'PNCOM' ,'ALVPO1' ,'FINE',0.09 ,'MASS','a', 'EVERYWHERE', 'ALL' ,'POC' ,'ASVPO1' ,'FINE',0.045,'MASS','a', 'EVERYWHERE', 'ALL' ,'PNCOM' ,'ASVPO1' ,'FINE',0.045,'MASS','a', ! pcSOA is a CMAQ species introduced to account for missing pathways for SOA ! formation from combustion sources. It accounts for IVOC oxidation as well as ! other phenomena (Murphy et al., ACP, 2017). It was parameterized based on data ! primarily from Los Angeles, where vehicle exhaust continues to dominate. 'EVERYWHERE', 'ALL' ,'POC' ,'PCVOC' ,'GAS' ,6.579,'MASS','a', 'EVERYWHERE', 'ALL' ,'PNCOM' ,'PCVOC' ,'GAS' ,6.579,'MASS','a', ! However, the added pcSOA is probably inappropriate for Fire sources, especially ! in its current configuration. This pathway should be zeroed out for all fire ! and wood-burning related sources. 'EVERYWHERE', 'PT_FIRES' ,'ALL' ,'PCVOC' ,'GAS' ,0.0 ,'MASS','o', 'EVERYWHERE', 'PT_RXFIRES' ,'ALL' ,'PCVOC' ,'GAS' ,0.0 ,'MASS','o', 'EVERYWHERE', 'PT_WILDFIRES' ,'ALL' ,'PCVOC' ,'GAS' ,0.0 ,'MASS','o', 'EVERYWHERE', 'PT_AGFIRES' ,'ALL' ,'PCVOC' ,'GAS' ,0.0 ,'MASS','o', 'EVERYWHERE', 'PT_OTHFIRES' ,'ALL' ,'PCVOC' ,'GAS' ,0.0 ,'MASS','o', 'EVERYWHERE', 'PT_FIRES_MXCA','ALL' ,'PCVOC' ,'GAS' ,0.0 ,'MASS','o', 'EVERYWHERE', 'GR_RES_FIRES' ,'ALL' ,'PCVOC' ,'GAS' ,0.0 ,'MASS','o', ! Wind-Blown Dust and Sea Spray Scaling ! Fine Components 'EVERYWHERE', 'ALL' ,'PMFINE_LVPO1','ALVPO1' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_LVOO1','ALVOO1' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_SO4' ,'ASO4' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_NO3' ,'ANO3' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_CL' ,'ACL' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_NH4' ,'ANH4' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_NA' ,'ANA' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_CA' ,'ACA' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_MG' ,'AMG' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_K' ,'AK' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_FE' ,'AFE' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_AL' ,'AAL' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_SI' ,'ASI' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_TI' ,'ATI' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_MN' ,'AMN' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_H2O' ,'AH2O' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_OTHR' ,'AOTHR' ,'FINE',1. ,'UNIT','a', ! Wind-Blown Dust and Sea Spray Scaling ! Coarse Components 'EVERYWHERE', 'ALL' ,'PMCOARSE_SO4','ASO4' ,'COARSE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMCOARSE_NO3','ANO3' ,'COARSE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMCOARSE_CL' ,'ACL' ,'COARSE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMCOARSE_H2O','AH2O' ,'COARSE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMCOARSE_SOIL','ASOIL' ,'COARSE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMCOARSE_SEACAT','ASEACAT' ,'COARSE',1. ,'UNIT','a', / ================================================ FILE: CCTM/src/MECHS/cb6r5_ae7_aq/CSQY_DATA_cb6r5_ae7_aq ================================================ Table for Mechanism = CB6R5_AE7_AQ NPHOTAB = 32 !Individual rates listed below: NO2_IUPAC10 O3_O3P_IUPAC10 O3_O1D_IUPAC10 H2O2_IUPAC10 NO3NO2_06 NO3NO_06 N2O5_IUPAC10 HONO_IUPAC10 HNO3_IUPAC10 PNA_IUPAC10 PAN_IUPAC10 MEPX_IUPAC10 NTR_IUPAC10 FORM_R_IUPAC13 FORM_M_IUPAC13 ALD2_R_IUPAC13 ALDX_R_IUPAC13 GLYD_IUPAC13 GLY_R_IUPAC13 MGLY_IUPAC10 KET_IUPAC10 ACET_IUPAC10 ISPD HPALD CL2_IUPAC04 HOCL_IUPAC04 FMCL_IUPAC04 CLNO2_IUPAC13 CLONO2_1 CLONO2_2 IC3ONO2 ACRO_09 NTEMP = 6 ! I TEMP( I ) K 1 210.00 2 230.00 3 250.00 4 270.00 5 290.00 6 310.00 ! Wavelength and Photolysis Rate Parameters for CMAQ In-Line Photolysis ! calculation . The values are determined by averaging technique over the below ! number of wavelength bins. The technique employs an approach used by the FASTJX ! versions 6 and 7. !References: ! 1) Bian, H. S. and Prather, M. J.: Fast-J2: accurate simulation of stratospheric ! photolysis in global chemical models, J. Atmos. Chem., 41, 281-296 doi:10.1023/A:1014980619462, 2002. ! 2) Hsu, J. and Prather, M. J.: Stratospheric variability and tropospheric ozone, ! J. Geophys. Res., 114, D06102, doi:10.1029/2008JD010942, 2009. ! 3) Prather, M. J.: Fast-JX versions and utilities, available at: ! http://www.ess.uci.edu/researchgrp/prather/scholar_software/fast-jx ! (last accessed: 24 January 2014), 2014. ! Wave bands and Solar Flux ! N_INLINE_BAND = 7 ! I, START_WL_BIN(nm), EFFECT_WL_BIN_(nm), END_WL_BIN_(nm), photon_flux(cm-2*s-1), 1, 291.000, 294.590, 298.300, 5.8828E+14, 2, 298.300, 303.151, 307.500, 7.6354E+14, 3, 307.500, 310.007, 312.500, 5.0412E+14, 4, 312.500, 316.434, 320.300, 8.9628E+14, 5, 320.300, 333.076, 345.000, 3.8537E+15, 6, 345.000, 381.997, 412.500, 1.5457E+16, 7, 412.500, 607.723, 850.000, 2.1307E+17, !... CS = absorption cross sections averaged over UCI Solar Flux !... QY = quantum yields averaged over UCI Solar Flux !... EQY = eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model !PHOTAB QUANTITY TEMP WBIN( 1) WBIN( 2) WBIN( 3) WBIN( 4) WBIN( 5) WBIN( 6) WBIN( 7) NO2_IUPAC10 CS 210.000 9.420958E-20 1.354622E-19 1.774391E-19 2.174503E-19 3.547179E-19 5.767915E-19 3.786790E-21 NO2_IUPAC10 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 7.963594E-01 4.393946E-02 NO2_IUPAC10 CS 230.000 9.434513E-20 1.353973E-19 1.770686E-19 2.162921E-19 3.512878E-19 5.752929E-19 3.777024E-21 NO2_IUPAC10 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 7.963594E-01 4.393946E-02 NO2_IUPAC10 CS 250.000 9.461621E-20 1.352675E-19 1.763276E-19 2.139758E-19 3.444275E-19 5.722957E-19 3.757493E-21 NO2_IUPAC10 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 7.971660E-01 4.545939E-02 NO2_IUPAC10 CS 270.000 9.488729E-20 1.351377E-19 1.755867E-19 2.116595E-19 3.375671E-19 5.692984E-19 3.737961E-21 NO2_IUPAC10 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 8.052323E-01 6.065865E-02 NO2_IUPAC10 CS 290.000 9.515838E-20 1.350079E-19 1.748457E-19 2.093432E-19 3.307068E-19 5.663012E-19 3.718430E-21 NO2_IUPAC10 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 8.132986E-01 7.585791E-02 NO2_IUPAC10 CS 310.000 9.521259E-20 1.349819E-19 1.746975E-19 2.088799E-19 3.293347E-19 5.657017E-19 3.714523E-21 NO2_IUPAC10 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 8.165251E-01 8.193760E-02 O3_O3P_IUPAC10 CS 210.000 8.051318E-19 2.408910E-19 9.055385E-20 3.615927E-20 4.571664E-21 4.615212E-23 1.523765E-21 O3_O3P_IUPAC10 EQY 210.000 1.000000E-01 1.027219E-01 4.447545E-01 8.027972E-01 8.946853E-01 9.211782E-01 9.999820E-01 O3_O3P_IUPAC10 CS 230.000 8.171868E-19 2.460948E-19 9.334247E-20 3.770529E-20 4.888574E-21 4.615212E-23 1.523765E-21 O3_O3P_IUPAC10 EQY 230.000 1.000000E-01 1.027219E-01 4.402074E-01 8.051998E-01 8.946853E-01 9.211782E-01 9.999820E-01 O3_O3P_IUPAC10 CS 250.000 8.372787E-19 2.547678E-19 9.799016E-20 4.028199E-20 5.416759E-21 4.615212E-23 1.523765E-21 O3_O3P_IUPAC10 EQY 250.000 1.000000E-01 1.027219E-01 4.327254E-01 8.061814E-01 8.946853E-01 9.211782E-01 9.999820E-01 O3_O3P_IUPAC10 CS 270.000 8.573704E-19 2.634407E-19 1.026379E-19 4.285869E-20 5.944944E-21 4.615212E-23 1.523765E-21 O3_O3P_IUPAC10 EQY 270.000 1.000000E-01 1.027219E-01 4.200289E-01 8.006186E-01 8.946853E-01 9.211782E-01 9.999820E-01 O3_O3P_IUPAC10 CS 290.000 8.774622E-19 2.721137E-19 1.072856E-19 4.543539E-20 6.473128E-21 4.615212E-23 1.523765E-21 O3_O3P_IUPAC10 EQY 290.000 1.000000E-01 1.027219E-01 3.979119E-01 7.767363E-01 8.946853E-01 9.211782E-01 9.999820E-01 O3_O3P_IUPAC10 CS 310.000 8.804761E-19 2.734146E-19 1.079827E-19 4.582189E-20 6.552356E-21 4.615212E-23 1.523765E-21 O3_O3P_IUPAC10 EQY 310.000 1.000000E-01 1.027219E-01 3.582713E-01 7.092118E-01 8.946853E-01 9.211782E-01 9.999820E-01 O3_O1D_IUPAC10 CS 210.000 8.051318E-19 2.408910E-19 9.055385E-20 3.615927E-20 4.571664E-21 4.615212E-23 1.523765E-21 O3_O1D_IUPAC10 EQY 210.000 9.000000E-01 8.972781E-01 5.552455E-01 1.972028E-01 1.053147E-01 7.882178E-02 1.800060E-05 O3_O1D_IUPAC10 CS 230.000 8.171868E-19 2.460948E-19 9.334247E-20 3.770529E-20 4.888574E-21 4.615212E-23 1.523765E-21 O3_O1D_IUPAC10 EQY 230.000 9.000000E-01 8.972781E-01 5.597926E-01 1.948002E-01 1.053147E-01 7.882178E-02 1.800060E-05 O3_O1D_IUPAC10 CS 250.000 8.372787E-19 2.547678E-19 9.799016E-20 4.028199E-20 5.416759E-21 4.615212E-23 1.523765E-21 O3_O1D_IUPAC10 EQY 250.000 9.000000E-01 8.972781E-01 5.672746E-01 1.938186E-01 1.053147E-01 7.882178E-02 1.800060E-05 O3_O1D_IUPAC10 CS 270.000 8.573704E-19 2.634407E-19 1.026379E-19 4.285869E-20 5.944944E-21 4.615212E-23 1.523765E-21 O3_O1D_IUPAC10 EQY 270.000 9.000000E-01 8.972781E-01 5.799711E-01 1.993814E-01 1.053147E-01 7.882178E-02 1.800060E-05 O3_O1D_IUPAC10 CS 290.000 8.774622E-19 2.721137E-19 1.072856E-19 4.543539E-20 6.473128E-21 4.615212E-23 1.523765E-21 O3_O1D_IUPAC10 EQY 290.000 9.000000E-01 8.972781E-01 6.020881E-01 2.232637E-01 1.053147E-01 7.882178E-02 1.800060E-05 O3_O1D_IUPAC10 CS 310.000 8.804761E-19 2.734146E-19 1.079827E-19 4.582189E-20 6.552356E-21 4.615212E-23 1.523765E-21 O3_O1D_IUPAC10 EQY 310.000 9.000000E-01 8.972781E-01 6.417287E-01 2.907882E-01 1.053147E-01 7.882178E-02 1.800060E-05 H2O2_IUPAC10 CS 210.000 9.663063E-21 5.877752E-21 3.837687E-21 2.660469E-21 1.015675E-21 5.105271E-23 0.000000E+00 H2O2_IUPAC10 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.986846E-01 0.000000E+00 H2O2_IUPAC10 CS 230.000 9.802651E-21 5.987925E-21 3.927030E-21 2.734720E-21 1.056133E-21 5.105271E-23 0.000000E+00 H2O2_IUPAC10 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.986846E-01 0.000000E+00 H2O2_IUPAC10 CS 250.000 9.991126E-21 6.136684E-21 4.047665E-21 2.834977E-21 1.110760E-21 5.105271E-23 0.000000E+00 H2O2_IUPAC10 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.986846E-01 0.000000E+00 H2O2_IUPAC10 CS 270.000 1.023066E-20 6.325741E-21 4.200981E-21 2.962393E-21 1.180187E-21 5.105271E-23 0.000000E+00 H2O2_IUPAC10 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.986846E-01 0.000000E+00 H2O2_IUPAC10 CS 290.000 1.052111E-20 6.554984E-21 4.386883E-21 3.116892E-21 1.264370E-21 5.105271E-23 0.000000E+00 H2O2_IUPAC10 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.986846E-01 0.000000E+00 H2O2_IUPAC10 CS 310.000 1.086042E-20 6.822793E-21 4.604061E-21 3.297382E-21 1.362715E-21 5.105271E-23 0.000000E+00 H2O2_IUPAC10 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.986846E-01 0.000000E+00 NO3NO2_06 CS 210.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 5.262113E-21 1.613590E-18 NO3NO2_06 EQY 210.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.000000E+00 5.942736E-01 NO3NO2_06 CS 230.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 4.993950E-21 1.531360E-18 NO3NO2_06 EQY 230.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.000000E+00 6.050572E-01 NO3NO2_06 CS 250.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 4.713711E-21 1.445427E-18 NO3NO2_06 EQY 250.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.000000E+00 6.142171E-01 NO3NO2_06 CS 270.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 4.425707E-21 1.357113E-18 NO3NO2_06 EQY 270.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.000000E+00 6.233770E-01 NO3NO2_06 CS 290.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 4.133394E-21 1.267477E-18 NO3NO2_06 EQY 290.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.000000E+00 6.325368E-01 NO3NO2_06 CS 310.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 3.839497E-21 1.177355E-18 NO3NO2_06 EQY 310.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.000000E+00 6.362008E-01 NO3NO_06 CS 210.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 5.262113E-21 1.613590E-18 NO3NO_06 EQY 210.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 8.130509E-02 NO3NO_06 CS 230.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 4.993950E-21 1.531360E-18 NO3NO_06 EQY 230.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 8.048424E-02 NO3NO_06 CS 250.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 4.713711E-21 1.445427E-18 NO3NO_06 EQY 250.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 8.024673E-02 NO3NO_06 CS 270.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 4.425707E-21 1.357113E-18 NO3NO_06 EQY 270.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 8.000923E-02 NO3NO_06 CS 290.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 4.133394E-21 1.267477E-18 NO3NO_06 EQY 290.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 7.977173E-02 NO3NO_06 CS 310.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 3.839497E-21 1.177355E-18 NO3NO_06 EQY 310.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 7.967671E-02 N2O5_IUPAC10 CS 210.000 5.286138E-20 3.282404E-20 2.191359E-20 1.511474E-20 6.060293E-21 6.152397E-22 0.000000E+00 N2O5_IUPAC10 EQY 210.000 9.185266E-01 9.975538E-01 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 N2O5_IUPAC10 CS 230.000 5.286896E-20 3.282982E-20 2.191831E-20 1.511860E-20 6.062690E-21 6.157666E-22 0.000000E+00 N2O5_IUPAC10 EQY 230.000 9.185266E-01 9.975538E-01 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 N2O5_IUPAC10 CS 250.000 5.287533E-20 3.283467E-20 2.192227E-20 1.512185E-20 6.064704E-21 6.162096E-22 0.000000E+00 N2O5_IUPAC10 EQY 250.000 9.185266E-01 9.975538E-01 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 N2O5_IUPAC10 CS 270.000 5.288076E-20 3.283881E-20 2.192564E-20 1.512461E-20 6.066420E-21 6.165872E-22 0.000000E+00 N2O5_IUPAC10 EQY 270.000 9.185266E-01 9.975538E-01 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 N2O5_IUPAC10 CS 290.000 5.288543E-20 3.284238E-20 2.192855E-20 1.512700E-20 6.067900E-21 6.169129E-22 0.000000E+00 N2O5_IUPAC10 EQY 290.000 9.185266E-01 9.975538E-01 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 N2O5_IUPAC10 CS 310.000 5.288754E-20 3.284398E-20 2.192985E-20 1.512807E-20 6.068566E-21 6.170595E-22 0.000000E+00 N2O5_IUPAC10 EQY 310.000 9.185266E-01 9.975538E-01 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HONO_IUPAC10 CS 210.000 1.874562E-20 6.161052E-21 1.172420E-20 2.303942E-20 8.731945E-20 7.564806E-20 0.000000E+00 HONO_IUPAC10 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.999840E-01 0.000000E+00 HONO_IUPAC10 CS 230.000 1.874562E-20 6.161052E-21 1.172420E-20 2.303942E-20 8.731945E-20 7.564806E-20 0.000000E+00 HONO_IUPAC10 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.999840E-01 0.000000E+00 HONO_IUPAC10 CS 250.000 1.874562E-20 6.161052E-21 1.172420E-20 2.303942E-20 8.731945E-20 7.564806E-20 0.000000E+00 HONO_IUPAC10 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.999840E-01 0.000000E+00 HONO_IUPAC10 CS 270.000 1.874562E-20 6.161052E-21 1.172420E-20 2.303942E-20 8.731945E-20 7.564806E-20 0.000000E+00 HONO_IUPAC10 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.999840E-01 0.000000E+00 HONO_IUPAC10 CS 290.000 1.874562E-20 6.161052E-21 1.172420E-20 2.303942E-20 8.731945E-20 7.564806E-20 0.000000E+00 HONO_IUPAC10 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.999840E-01 0.000000E+00 HONO_IUPAC10 CS 310.000 1.874562E-20 6.161052E-21 1.172420E-20 2.303942E-20 8.731945E-20 7.564806E-20 0.000000E+00 HONO_IUPAC10 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.999840E-01 0.000000E+00 HNO3_IUPAC10 CS 210.000 4.166234E-21 1.877995E-21 7.805607E-22 3.243519E-22 2.838103E-23 3.550938E-25 0.000000E+00 HNO3_IUPAC10 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.983369E-01 0.000000E+00 HNO3_IUPAC10 CS 230.000 4.388597E-21 2.011394E-21 8.503601E-22 3.623056E-22 3.431827E-23 3.587909E-25 0.000000E+00 HNO3_IUPAC10 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.983369E-01 0.000000E+00 HNO3_IUPAC10 CS 250.000 4.622829E-21 2.154269E-21 9.264013E-22 4.047005E-22 4.149756E-23 3.625265E-25 0.000000E+00 HNO3_IUPAC10 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.983369E-01 0.000000E+00 HNO3_IUPAC10 CS 270.000 4.869561E-21 2.307292E-21 1.009242E-21 4.520562E-22 5.017875E-23 3.663011E-25 0.000000E+00 HNO3_IUPAC10 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.983369E-01 0.000000E+00 HNO3_IUPAC10 CS 290.000 5.129463E-21 2.471185E-21 1.099491E-21 5.049532E-22 6.067601E-23 3.701149E-25 0.000000E+00 HNO3_IUPAC10 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.983369E-01 0.000000E+00 HNO3_IUPAC10 CS 310.000 5.403236E-21 2.646719E-21 1.197810E-21 5.640399E-22 7.336928E-23 3.739684E-25 0.000000E+00 HNO3_IUPAC10 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.983369E-01 0.000000E+00 PNA_IUPAC10 CS 210.000 2.768231E-20 1.086640E-20 4.753695E-21 2.705257E-21 3.427064E-22 0.000000E+00 0.000000E+00 PNA_IUPAC10 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.993055E-01 0.000000E+00 0.000000E+00 PNA_IUPAC10 CS 230.000 2.825610E-20 1.126199E-20 5.012977E-21 2.902247E-21 3.888219E-22 0.000000E+00 0.000000E+00 PNA_IUPAC10 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.993055E-01 0.000000E+00 0.000000E+00 PNA_IUPAC10 CS 250.000 2.908251E-20 1.183175E-20 5.386413E-21 3.185963E-21 4.552405E-22 0.000000E+00 0.000000E+00 PNA_IUPAC10 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.993055E-01 0.000000E+00 0.000000E+00 PNA_IUPAC10 CS 270.000 3.019241E-20 1.259695E-20 5.887948E-21 3.567003E-21 5.444426E-22 0.000000E+00 0.000000E+00 PNA_IUPAC10 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.993055E-01 0.000000E+00 0.000000E+00 PNA_IUPAC10 CS 290.000 3.160436E-20 1.357040E-20 6.525974E-21 4.051742E-21 6.579210E-22 0.000000E+00 0.000000E+00 PNA_IUPAC10 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.993055E-01 0.000000E+00 0.000000E+00 PNA_IUPAC10 CS 310.000 3.332532E-20 1.475689E-20 7.303630E-21 4.642564E-21 7.962334E-22 0.000000E+00 0.000000E+00 PNA_IUPAC10 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.993055E-01 0.000000E+00 0.000000E+00 PAN_IUPAC10 CS 210.000 1.945595E-21 7.375681E-22 3.339314E-22 1.711848E-22 3.676151E-23 1.420572E-24 0.000000E+00 PAN_IUPAC10 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.982885E-01 0.000000E+00 PAN_IUPAC10 CS 230.000 2.279872E-21 8.774045E-22 4.009705E-22 2.076227E-22 4.614925E-23 1.435982E-24 0.000000E+00 PAN_IUPAC10 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.982885E-01 0.000000E+00 PAN_IUPAC10 CS 250.000 2.671583E-21 1.043752E-21 4.814681E-22 2.518166E-22 5.793432E-23 1.451559E-24 0.000000E+00 PAN_IUPAC10 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.982885E-01 0.000000E+00 PAN_IUPAC10 CS 270.000 3.130594E-21 1.241639E-21 5.781261E-22 3.054176E-22 7.272892E-23 1.467305E-24 0.000000E+00 PAN_IUPAC10 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.982885E-01 0.000000E+00 PAN_IUPAC10 CS 290.000 3.668470E-21 1.477042E-21 6.941890E-22 3.704279E-22 9.130162E-23 1.483222E-24 0.000000E+00 PAN_IUPAC10 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.982885E-01 0.000000E+00 PAN_IUPAC10 CS 310.000 4.298759E-21 1.757076E-21 8.335523E-22 4.492761E-22 1.146172E-22 1.499311E-24 0.000000E+00 PAN_IUPAC10 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.982885E-01 0.000000E+00 MEPX_IUPAC10 CS 210.000 6.280529E-21 4.060546E-21 2.741565E-21 1.980587E-21 8.228210E-22 5.779768E-23 0.000000E+00 MEPX_IUPAC10 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.995850E-01 0.000000E+00 MEPX_IUPAC10 CS 230.000 6.280529E-21 4.060546E-21 2.741565E-21 1.980587E-21 8.228210E-22 5.779768E-23 0.000000E+00 MEPX_IUPAC10 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.995850E-01 0.000000E+00 MEPX_IUPAC10 CS 250.000 6.280529E-21 4.060546E-21 2.741565E-21 1.980587E-21 8.228210E-22 5.779768E-23 0.000000E+00 MEPX_IUPAC10 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.995850E-01 0.000000E+00 MEPX_IUPAC10 CS 270.000 6.280529E-21 4.060546E-21 2.741565E-21 1.980587E-21 8.228210E-22 5.779768E-23 0.000000E+00 MEPX_IUPAC10 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.995850E-01 0.000000E+00 MEPX_IUPAC10 CS 290.000 6.280529E-21 4.060546E-21 2.741565E-21 1.980587E-21 8.228210E-22 5.779768E-23 0.000000E+00 MEPX_IUPAC10 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.995850E-01 0.000000E+00 MEPX_IUPAC10 CS 310.000 6.280529E-21 4.060546E-21 2.741565E-21 1.980587E-21 8.228210E-22 5.779768E-23 0.000000E+00 MEPX_IUPAC10 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.995850E-01 0.000000E+00 NTR_IUPAC10 CS 210.000 1.076218E-20 5.464268E-21 2.614017E-21 1.242460E-21 1.566121E-22 1.627988E-24 0.000000E+00 NTR_IUPAC10 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.998643E-01 0.000000E+00 NTR_IUPAC10 CS 230.000 1.076218E-20 5.464268E-21 2.614017E-21 1.242460E-21 1.566121E-22 1.627988E-24 0.000000E+00 NTR_IUPAC10 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.998643E-01 0.000000E+00 NTR_IUPAC10 CS 250.000 1.128924E-20 5.792141E-21 2.800412E-21 1.353672E-21 1.751516E-22 1.627988E-24 0.000000E+00 NTR_IUPAC10 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.998643E-01 0.000000E+00 NTR_IUPAC10 CS 270.000 1.242207E-20 6.508089E-21 3.214023E-21 1.606851E-21 2.190747E-22 1.627988E-24 0.000000E+00 NTR_IUPAC10 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.998643E-01 0.000000E+00 NTR_IUPAC10 CS 290.000 1.366857E-20 7.312533E-21 3.688722E-21 1.907382E-21 2.740124E-22 1.627988E-24 0.000000E+00 NTR_IUPAC10 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.998643E-01 0.000000E+00 NTR_IUPAC10 CS 310.000 1.504015E-20 8.216412E-21 4.233534E-21 2.264122E-21 3.427270E-22 1.627988E-24 0.000000E+00 NTR_IUPAC10 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.998643E-01 0.000000E+00 FORM_R_IUPAC13 CS 210.000 3.183341E-20 3.299377E-20 1.538316E-20 3.249054E-20 1.927902E-20 7.819422E-22 0.000000E+00 FORM_R_IUPAC13 EQY 210.000 7.325943E-01 7.020468E-01 6.968195E-01 6.939636E-01 2.062342E-01 4.642611E-03 0.000000E+00 FORM_R_IUPAC13 CS 230.000 3.180326E-20 3.299156E-20 1.537452E-20 3.251374E-20 1.929003E-20 7.814351E-22 0.000000E+00 FORM_R_IUPAC13 EQY 230.000 7.325943E-01 7.020468E-01 6.968195E-01 6.939636E-01 2.062342E-01 4.642611E-03 0.000000E+00 FORM_R_IUPAC13 CS 250.000 3.177310E-20 3.298936E-20 1.536589E-20 3.253694E-20 1.930104E-20 7.809278E-22 0.000000E+00 FORM_R_IUPAC13 EQY 250.000 7.325943E-01 7.020468E-01 6.968195E-01 6.939636E-01 2.062342E-01 4.642611E-03 0.000000E+00 FORM_R_IUPAC13 CS 270.000 3.174294E-20 3.298716E-20 1.535726E-20 3.256014E-20 1.931205E-20 7.804207E-22 0.000000E+00 FORM_R_IUPAC13 EQY 270.000 7.325943E-01 7.020468E-01 6.968195E-01 6.939636E-01 2.062342E-01 4.642611E-03 0.000000E+00 FORM_R_IUPAC13 CS 290.000 3.171278E-20 3.298495E-20 1.534863E-20 3.258335E-20 1.932306E-20 7.799134E-22 0.000000E+00 FORM_R_IUPAC13 EQY 290.000 7.325943E-01 7.020468E-01 6.968195E-01 6.939636E-01 2.062342E-01 4.642611E-03 0.000000E+00 FORM_R_IUPAC13 CS 310.000 3.169770E-20 3.298385E-20 1.534431E-20 3.259494E-20 1.932857E-20 7.796598E-22 0.000000E+00 FORM_R_IUPAC13 EQY 310.000 7.325943E-01 7.020468E-01 6.968195E-01 6.939636E-01 2.062342E-01 4.642611E-03 0.000000E+00 FORM_M_IUPAC13 CS 210.000 3.183341E-20 3.299377E-20 1.538316E-20 3.249054E-20 1.927902E-20 7.819422E-22 0.000000E+00 FORM_M_IUPAC13 EQY 210.000 2.674058E-01 2.979532E-01 3.031805E-01 3.060364E-01 6.197889E-01 3.249540E-01 0.000000E+00 FORM_M_IUPAC13 CS 230.000 3.180326E-20 3.299156E-20 1.537452E-20 3.251374E-20 1.929003E-20 7.814351E-22 0.000000E+00 FORM_M_IUPAC13 EQY 230.000 2.674058E-01 2.979532E-01 3.031805E-01 3.060364E-01 6.151104E-01 3.123051E-01 0.000000E+00 FORM_M_IUPAC13 CS 250.000 3.177310E-20 3.298936E-20 1.536589E-20 3.253694E-20 1.930104E-20 7.809278E-22 0.000000E+00 FORM_M_IUPAC13 EQY 250.000 2.674058E-01 2.979532E-01 3.031805E-01 3.060364E-01 6.054386E-01 2.893018E-01 0.000000E+00 FORM_M_IUPAC13 CS 270.000 3.174294E-20 3.298716E-20 1.535726E-20 3.256014E-20 1.931205E-20 7.804207E-22 0.000000E+00 FORM_M_IUPAC13 EQY 270.000 2.674058E-01 2.979532E-01 3.031805E-01 3.060364E-01 5.955116E-01 2.692139E-01 0.000000E+00 FORM_M_IUPAC13 CS 290.000 3.171278E-20 3.298495E-20 1.534863E-20 3.258335E-20 1.932306E-20 7.799134E-22 0.000000E+00 FORM_M_IUPAC13 EQY 290.000 2.674058E-01 2.979532E-01 3.031805E-01 3.060364E-01 5.853828E-01 2.515744E-01 0.000000E+00 FORM_M_IUPAC13 CS 310.000 3.169770E-20 3.298385E-20 1.534431E-20 3.259494E-20 1.932857E-20 7.796598E-22 0.000000E+00 FORM_M_IUPAC13 EQY 310.000 2.674058E-01 2.979532E-01 3.031805E-01 3.060364E-01 5.802345E-01 2.435120E-01 0.000000E+00 ALD2_R_IUPAC13 CS 210.000 4.432586E-20 3.717937E-20 2.933103E-20 2.105459E-20 5.353235E-21 1.388418E-23 0.000000E+00 ALD2_R_IUPAC13 EQY 210.000 5.721845E-01 4.517220E-01 3.206589E-01 1.785219E-01 3.513154E-02 0.000000E+00 0.000000E+00 ALD2_R_IUPAC13 CS 230.000 4.432586E-20 3.717937E-20 2.933103E-20 2.105459E-20 5.353235E-21 1.388418E-23 0.000000E+00 ALD2_R_IUPAC13 EQY 230.000 5.721845E-01 4.517220E-01 3.206589E-01 1.785219E-01 3.513154E-02 0.000000E+00 0.000000E+00 ALD2_R_IUPAC13 CS 250.000 4.432586E-20 3.717937E-20 2.933103E-20 2.105459E-20 5.353235E-21 1.388418E-23 0.000000E+00 ALD2_R_IUPAC13 EQY 250.000 5.721845E-01 4.517220E-01 3.206589E-01 1.785219E-01 3.513154E-02 0.000000E+00 0.000000E+00 ALD2_R_IUPAC13 CS 270.000 4.432586E-20 3.717937E-20 2.933103E-20 2.105459E-20 5.353235E-21 1.388418E-23 0.000000E+00 ALD2_R_IUPAC13 EQY 270.000 5.721845E-01 4.517220E-01 3.206589E-01 1.785219E-01 3.513154E-02 0.000000E+00 0.000000E+00 ALD2_R_IUPAC13 CS 290.000 4.432586E-20 3.717937E-20 2.933103E-20 2.105459E-20 5.353235E-21 1.388418E-23 0.000000E+00 ALD2_R_IUPAC13 EQY 290.000 5.721845E-01 4.517220E-01 3.206589E-01 1.785219E-01 3.513154E-02 0.000000E+00 0.000000E+00 ALD2_R_IUPAC13 CS 310.000 4.432586E-20 3.717937E-20 2.933103E-20 2.105459E-20 5.353235E-21 1.388418E-23 0.000000E+00 ALD2_R_IUPAC13 EQY 310.000 5.721845E-01 4.517220E-01 3.206589E-01 1.785219E-01 3.513154E-02 0.000000E+00 0.000000E+00 ALDX_R_IUPAC13 CS 210.000 5.852983E-20 5.282509E-20 4.273233E-20 3.228716E-20 8.347573E-21 0.000000E+00 0.000000E+00 ALDX_R_IUPAC13 EQY 210.000 8.779770E-01 9.973180E-01 1.000000E+00 1.000000E+00 8.999137E-01 0.000000E+00 0.000000E+00 ALDX_R_IUPAC13 CS 230.000 5.852983E-20 5.282509E-20 4.273233E-20 3.228716E-20 8.347573E-21 0.000000E+00 0.000000E+00 ALDX_R_IUPAC13 EQY 230.000 8.779770E-01 9.973180E-01 1.000000E+00 1.000000E+00 8.999137E-01 0.000000E+00 0.000000E+00 ALDX_R_IUPAC13 CS 250.000 5.852983E-20 5.282509E-20 4.273233E-20 3.228716E-20 8.347573E-21 0.000000E+00 0.000000E+00 ALDX_R_IUPAC13 EQY 250.000 8.779770E-01 9.973180E-01 1.000000E+00 1.000000E+00 8.999137E-01 0.000000E+00 0.000000E+00 ALDX_R_IUPAC13 CS 270.000 5.852983E-20 5.282509E-20 4.273233E-20 3.228716E-20 8.347573E-21 0.000000E+00 0.000000E+00 ALDX_R_IUPAC13 EQY 270.000 8.779770E-01 9.973180E-01 1.000000E+00 1.000000E+00 8.999137E-01 0.000000E+00 0.000000E+00 ALDX_R_IUPAC13 CS 290.000 5.852983E-20 5.282509E-20 4.273233E-20 3.228716E-20 8.347573E-21 0.000000E+00 0.000000E+00 ALDX_R_IUPAC13 EQY 290.000 8.779770E-01 9.973180E-01 1.000000E+00 1.000000E+00 8.999137E-01 0.000000E+00 0.000000E+00 ALDX_R_IUPAC13 CS 310.000 5.852983E-20 5.282509E-20 4.273233E-20 3.228716E-20 8.347573E-21 0.000000E+00 0.000000E+00 ALDX_R_IUPAC13 EQY 310.000 8.779770E-01 9.973180E-01 1.000000E+00 1.000000E+00 8.999137E-01 0.000000E+00 0.000000E+00 GLYD_IUPAC13 CS 210.000 3.704782E-20 2.277373E-20 1.257586E-20 5.852344E-21 6.507965E-22 0.000000E+00 0.000000E+00 GLYD_IUPAC13 EQY 210.000 7.500000E-01 7.500000E-01 7.500000E-01 7.500000E-01 7.500000E-01 0.000000E+00 0.000000E+00 GLYD_IUPAC13 CS 230.000 3.704782E-20 2.277373E-20 1.257586E-20 5.852344E-21 6.507965E-22 0.000000E+00 0.000000E+00 GLYD_IUPAC13 EQY 230.000 7.500000E-01 7.500000E-01 7.500000E-01 7.500000E-01 7.500000E-01 0.000000E+00 0.000000E+00 GLYD_IUPAC13 CS 250.000 3.704782E-20 2.277373E-20 1.257586E-20 5.852344E-21 6.507965E-22 0.000000E+00 0.000000E+00 GLYD_IUPAC13 EQY 250.000 7.500000E-01 7.500000E-01 7.500000E-01 7.500000E-01 7.500000E-01 0.000000E+00 0.000000E+00 GLYD_IUPAC13 CS 270.000 3.704782E-20 2.277373E-20 1.257586E-20 5.852344E-21 6.507965E-22 0.000000E+00 0.000000E+00 GLYD_IUPAC13 EQY 270.000 7.500000E-01 7.500000E-01 7.500000E-01 7.500000E-01 7.500000E-01 0.000000E+00 0.000000E+00 GLYD_IUPAC13 CS 290.000 3.704782E-20 2.277373E-20 1.257586E-20 5.852344E-21 6.507965E-22 0.000000E+00 0.000000E+00 GLYD_IUPAC13 EQY 290.000 7.500000E-01 7.500000E-01 7.500000E-01 7.500000E-01 7.500000E-01 0.000000E+00 0.000000E+00 GLYD_IUPAC13 CS 310.000 3.704782E-20 2.277373E-20 1.257586E-20 5.852344E-21 6.507965E-22 0.000000E+00 0.000000E+00 GLYD_IUPAC13 EQY 310.000 7.500000E-01 7.500000E-01 7.500000E-01 7.500000E-01 7.500000E-01 0.000000E+00 0.000000E+00 GLY_R_IUPAC13 CS 210.000 3.792117E-20 3.572108E-20 3.194423E-20 2.574261E-20 1.106789E-20 2.757124E-20 1.066760E-20 GLY_R_IUPAC13 EQY 210.000 5.417586E-01 5.282888E-01 5.425920E-01 5.719462E-01 6.539832E-01 1.335054E-01 5.191700E-17 GLY_R_IUPAC13 CS 230.000 3.792117E-20 3.572108E-20 3.194423E-20 2.574261E-20 1.106789E-20 2.757124E-20 1.066760E-20 GLY_R_IUPAC13 EQY 230.000 5.412837E-01 5.273820E-01 5.410793E-01 5.695508E-01 6.480343E-01 1.406395E-01 6.255050E-16 GLY_R_IUPAC13 CS 250.000 3.792117E-20 3.572108E-20 3.194423E-20 2.574261E-20 1.106789E-20 2.757124E-20 1.066760E-20 GLY_R_IUPAC13 EQY 250.000 5.407746E-01 5.264520E-01 5.395834E-01 5.672647E-01 6.429353E-01 1.478171E-01 1.247636E-09 GLY_R_IUPAC13 CS 270.000 3.792117E-20 3.572108E-20 3.194423E-20 2.574261E-20 1.106789E-20 2.757124E-20 1.066760E-20 GLY_R_IUPAC13 EQY 270.000 5.402412E-01 5.255162E-01 5.381273E-01 5.651107E-01 6.385970E-01 1.550556E-01 5.386577E-06 GLY_R_IUPAC13 CS 290.000 3.792117E-20 3.572108E-20 3.194423E-20 2.574261E-20 1.106789E-20 2.757124E-20 1.066760E-20 GLY_R_IUPAC13 EQY 290.000 5.396925E-01 5.245881E-01 5.367267E-01 5.631009E-01 6.349310E-01 1.622865E-01 7.036469E-04 GLY_R_IUPAC13 CS 310.000 3.792117E-20 3.572108E-20 3.194423E-20 2.574261E-20 1.106789E-20 2.757124E-20 1.066760E-20 GLY_R_IUPAC13 EQY 310.000 5.391361E-01 5.236784E-01 5.353922E-01 5.612398E-01 6.318546E-01 1.694831E-01 1.456810E-02 MGLY_IUPAC10 CS 210.000 4.623980E-20 3.737641E-20 2.838188E-20 2.024261E-20 7.313774E-21 3.354496E-20 8.017686E-21 MGLY_IUPAC10 EQY 210.000 9.424525E-01 9.055298E-01 8.638632E-01 8.161852E-01 6.723635E-01 1.057406E-01 2.062893E-02 MGLY_IUPAC10 CS 230.000 4.623980E-20 3.737641E-20 2.838188E-20 2.024261E-20 7.313774E-21 3.354496E-20 8.017686E-21 MGLY_IUPAC10 EQY 230.000 9.424612E-01 9.055434E-01 8.638818E-01 8.162095E-01 6.724034E-01 1.057492E-01 2.062893E-02 MGLY_IUPAC10 CS 250.000 4.623980E-20 3.737641E-20 2.838188E-20 2.024261E-20 7.313774E-21 3.354496E-20 8.017686E-21 MGLY_IUPAC10 EQY 250.000 9.424697E-01 9.055570E-01 8.639004E-01 8.162335E-01 6.724433E-01 1.057578E-01 2.062893E-02 MGLY_IUPAC10 CS 270.000 4.623980E-20 3.737641E-20 2.838188E-20 2.024261E-20 7.313774E-21 3.354496E-20 8.017686E-21 MGLY_IUPAC10 EQY 270.000 9.424782E-01 9.055706E-01 8.639192E-01 8.162577E-01 6.724831E-01 1.057665E-01 2.062893E-02 MGLY_IUPAC10 CS 290.000 4.623980E-20 3.737641E-20 2.838188E-20 2.024261E-20 7.313774E-21 3.354496E-20 8.017686E-21 MGLY_IUPAC10 EQY 290.000 9.424869E-01 9.055842E-01 8.639378E-01 8.162817E-01 6.725230E-01 1.057751E-01 2.062893E-02 MGLY_IUPAC10 CS 310.000 4.623980E-20 3.737641E-20 2.838188E-20 2.024261E-20 7.313774E-21 3.354496E-20 8.017686E-21 MGLY_IUPAC10 EQY 310.000 9.424955E-01 9.055978E-01 8.639566E-01 8.163059E-01 6.725629E-01 1.057837E-01 2.062893E-02 KET_IUPAC10 CS 210.000 4.244734E-20 2.775264E-20 1.650076E-20 8.235885E-21 8.879242E-22 2.161979E-25 0.000000E+00 KET_IUPAC10 EQY 210.000 3.557317E-01 2.281597E-01 9.456919E-02 4.449943E-02 1.703344E-02 2.980055E-03 0.000000E+00 KET_IUPAC10 CS 230.000 4.244734E-20 2.775264E-20 1.650076E-20 8.235885E-21 8.879242E-22 2.161979E-25 0.000000E+00 KET_IUPAC10 EQY 230.000 3.557317E-01 2.281597E-01 9.456919E-02 4.449943E-02 1.703344E-02 2.980055E-03 0.000000E+00 KET_IUPAC10 CS 250.000 4.244734E-20 2.775264E-20 1.650076E-20 8.235885E-21 8.879242E-22 2.161979E-25 0.000000E+00 KET_IUPAC10 EQY 250.000 3.557317E-01 2.281597E-01 9.456919E-02 4.449943E-02 1.703344E-02 2.980055E-03 0.000000E+00 KET_IUPAC10 CS 270.000 4.244734E-20 2.775264E-20 1.650076E-20 8.235885E-21 8.879242E-22 2.161979E-25 0.000000E+00 KET_IUPAC10 EQY 270.000 3.557317E-01 2.281597E-01 9.456919E-02 4.449943E-02 1.703344E-02 2.980055E-03 0.000000E+00 KET_IUPAC10 CS 290.000 4.244734E-20 2.775264E-20 1.650076E-20 8.235885E-21 8.879242E-22 2.161979E-25 0.000000E+00 KET_IUPAC10 EQY 290.000 3.557317E-01 2.281597E-01 9.456919E-02 4.449943E-02 1.703344E-02 2.980055E-03 0.000000E+00 KET_IUPAC10 CS 310.000 4.244734E-20 2.775264E-20 1.650076E-20 8.235885E-21 8.879242E-22 2.161979E-25 0.000000E+00 KET_IUPAC10 EQY 310.000 3.557317E-01 2.281597E-01 9.456919E-02 4.449943E-02 1.703344E-02 2.980055E-03 0.000000E+00 ACET_IUPAC10 CS 210.000 3.154020E-20 1.990274E-20 1.121114E-20 5.714158E-21 4.839526E-22 9.619963E-25 0.000000E+00 ACET_IUPAC10 EQY 210.000 3.142315E-01 9.508523E-02 1.347957E-02 2.101419E-03 4.774525E-05 2.883126E-03 0.000000E+00 ACET_IUPAC10 CS 230.000 3.210615E-20 2.065870E-20 1.200334E-20 6.223282E-21 5.288214E-22 9.615415E-25 0.000000E+00 ACET_IUPAC10 EQY 230.000 2.892200E-01 1.028149E-01 1.893153E-02 3.808953E-03 1.663003E-04 2.883126E-03 0.000000E+00 ACET_IUPAC10 CS 250.000 3.284215E-20 2.146998E-20 1.277972E-20 6.735570E-21 6.082958E-22 9.633595E-25 0.000000E+00 ACET_IUPAC10 EQY 250.000 2.868186E-01 1.209827E-01 2.841206E-02 7.388534E-03 7.029614E-04 2.883126E-03 0.000000E+00 ACET_IUPAC10 CS 270.000 3.374994E-20 2.230310E-20 1.348986E-20 7.221250E-21 7.267921E-22 9.679524E-25 0.000000E+00 ACET_IUPAC10 EQY 270.000 3.030808E-01 1.525401E-01 4.579334E-02 1.553840E-02 3.012870E-03 2.883126E-03 0.000000E+00 ACET_IUPAC10 CS 290.000 3.483127E-20 2.312459E-20 1.408336E-20 7.650557E-21 8.887266E-22 9.758227E-25 0.000000E+00 ACET_IUPAC10 EQY 290.000 3.373500E-01 2.015979E-01 7.683466E-02 3.310391E-02 1.071987E-02 2.883126E-03 0.000000E+00 ACET_IUPAC10 CS 310.000 3.608787E-20 2.390098E-20 1.450979E-20 7.993726E-21 1.098516E-21 9.874724E-25 0.000000E+00 ACET_IUPAC10 EQY 310.000 3.878387E-01 2.703615E-01 1.273605E-01 6.627605E-02 3.052155E-02 2.883126E-03 0.000000E+00 ISPD CS 210.000 2.840289E-20 4.154632E-20 5.213074E-20 6.122464E-20 6.678539E-20 1.408010E-20 0.000000E+00 ISPD EQY 210.000 5.009691E-02 5.009691E-02 5.009691E-02 5.009691E-02 5.009691E-02 5.009691E-02 0.000000E+00 ISPD CS 230.000 2.840289E-20 4.154632E-20 5.213074E-20 6.122464E-20 6.678539E-20 1.408010E-20 0.000000E+00 ISPD EQY 230.000 5.009691E-02 5.009691E-02 5.009691E-02 5.009691E-02 5.009691E-02 5.009691E-02 0.000000E+00 ISPD CS 250.000 2.840289E-20 4.154632E-20 5.213074E-20 6.122464E-20 6.678539E-20 1.408010E-20 0.000000E+00 ISPD EQY 250.000 5.009691E-02 5.009691E-02 5.009691E-02 5.009691E-02 5.009691E-02 5.009691E-02 0.000000E+00 ISPD CS 270.000 2.840289E-20 4.154632E-20 5.213074E-20 6.122464E-20 6.678539E-20 1.408010E-20 0.000000E+00 ISPD EQY 270.000 5.009691E-02 5.009691E-02 5.009691E-02 5.009691E-02 5.009691E-02 5.009691E-02 0.000000E+00 ISPD CS 290.000 2.840289E-20 4.154632E-20 5.213074E-20 6.122464E-20 6.678539E-20 1.408010E-20 0.000000E+00 ISPD EQY 290.000 5.009691E-02 5.009691E-02 5.009691E-02 5.009691E-02 5.009691E-02 5.009691E-02 0.000000E+00 ISPD CS 310.000 2.840289E-20 4.154632E-20 5.213074E-20 6.122464E-20 6.678539E-20 1.408010E-20 0.000000E+00 ISPD EQY 310.000 5.009691E-02 5.009691E-02 5.009691E-02 5.009691E-02 5.009691E-02 5.009691E-02 0.000000E+00 HPALD CS 210.000 2.639069E-20 3.936243E-20 4.989643E-20 5.926228E-20 6.528440E-20 1.326810E-20 0.000000E+00 HPALD EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HPALD CS 230.000 2.639069E-20 3.936243E-20 4.989643E-20 5.926228E-20 6.528440E-20 1.326810E-20 0.000000E+00 HPALD EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HPALD CS 250.000 2.639069E-20 3.936243E-20 4.989643E-20 5.926228E-20 6.528440E-20 1.326810E-20 0.000000E+00 HPALD EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HPALD CS 270.000 2.639069E-20 3.936243E-20 4.989643E-20 5.926228E-20 6.528440E-20 1.326810E-20 0.000000E+00 HPALD EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HPALD CS 290.000 2.639069E-20 3.936243E-20 4.989643E-20 5.926228E-20 6.528440E-20 1.326810E-20 0.000000E+00 HPALD EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HPALD CS 310.000 2.639069E-20 3.936243E-20 4.989643E-20 5.926228E-20 6.528440E-20 1.326810E-20 0.000000E+00 HPALD EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 CL2_IUPAC04 CS 210.000 8.459998E-20 1.387449E-19 1.859079E-19 2.232772E-19 2.484952E-19 6.038539E-20 6.788245E-22 CL2_IUPAC04 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 CL2_IUPAC04 CS 230.000 8.524757E-20 1.389977E-19 1.856245E-19 2.224567E-19 2.471989E-19 6.124574E-20 6.788245E-22 CL2_IUPAC04 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 CL2_IUPAC04 CS 250.000 8.601563E-20 1.392877E-19 1.852748E-19 2.214706E-19 2.456518E-19 6.228141E-20 6.788245E-22 CL2_IUPAC04 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 CL2_IUPAC04 CS 270.000 8.688803E-20 1.396037E-19 1.848591E-19 2.203326E-19 2.438807E-19 6.347855E-20 6.788245E-22 CL2_IUPAC04 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 CL2_IUPAC04 CS 290.000 8.784630E-20 1.399339E-19 1.843792E-19 2.190595E-19 2.419169E-19 6.481979E-20 6.788245E-22 CL2_IUPAC04 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 CL2_IUPAC04 CS 310.000 8.835163E-20 1.401007E-19 1.841159E-19 2.183779E-19 2.408728E-19 6.553857E-20 6.788245E-22 CL2_IUPAC04 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 HOCL_IUPAC04 CS 210.000 5.570117E-20 6.066934E-20 5.958161E-20 5.377945E-20 3.120855E-20 6.545254E-21 1.170137E-23 HOCL_IUPAC04 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 HOCL_IUPAC04 CS 230.000 5.570117E-20 6.066934E-20 5.958161E-20 5.377945E-20 3.120855E-20 6.545254E-21 1.170137E-23 HOCL_IUPAC04 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 HOCL_IUPAC04 CS 250.000 5.570117E-20 6.066934E-20 5.958161E-20 5.377945E-20 3.120855E-20 6.545254E-21 1.170137E-23 HOCL_IUPAC04 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 HOCL_IUPAC04 CS 270.000 5.570117E-20 6.066934E-20 5.958161E-20 5.377945E-20 3.120855E-20 6.545254E-21 1.170137E-23 HOCL_IUPAC04 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 HOCL_IUPAC04 CS 290.000 5.570117E-20 6.066934E-20 5.958161E-20 5.377945E-20 3.120855E-20 6.545254E-21 1.170137E-23 HOCL_IUPAC04 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 HOCL_IUPAC04 CS 310.000 5.570117E-20 6.066934E-20 5.958161E-20 5.377945E-20 3.120855E-20 6.545254E-21 1.170137E-23 HOCL_IUPAC04 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 FMCL_IUPAC04 CS 210.000 5.320050E-21 1.421323E-21 2.242342E-22 8.338288E-23 0.000000E+00 0.000000E+00 0.000000E+00 FMCL_IUPAC04 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 FMCL_IUPAC04 CS 230.000 5.320050E-21 1.421323E-21 2.242342E-22 8.338288E-23 0.000000E+00 0.000000E+00 0.000000E+00 FMCL_IUPAC04 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 FMCL_IUPAC04 CS 250.000 5.320050E-21 1.421323E-21 2.242342E-22 8.338288E-23 0.000000E+00 0.000000E+00 0.000000E+00 FMCL_IUPAC04 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 FMCL_IUPAC04 CS 270.000 5.320050E-21 1.421323E-21 2.242342E-22 8.338288E-23 0.000000E+00 0.000000E+00 0.000000E+00 FMCL_IUPAC04 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 FMCL_IUPAC04 CS 290.000 5.320050E-21 1.421323E-21 2.242342E-22 8.338288E-23 0.000000E+00 0.000000E+00 0.000000E+00 FMCL_IUPAC04 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 FMCL_IUPAC04 CS 310.000 5.320050E-21 1.421323E-21 2.242342E-22 8.338288E-23 0.000000E+00 0.000000E+00 0.000000E+00 FMCL_IUPAC04 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 CLNO2_IUPAC13 CS 210.000 1.630885E-19 1.401581E-19 1.165449E-19 9.197057E-20 4.058577E-20 2.506084E-21 1.666845E-23 CLNO2_IUPAC13 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 CLNO2_IUPAC13 CS 230.000 1.600463E-19 1.384247E-19 1.162092E-19 9.282048E-20 4.270499E-20 3.014832E-21 1.684379E-23 CLNO2_IUPAC13 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 CLNO2_IUPAC13 CS 250.000 1.583382E-19 1.376411E-19 1.165927E-19 9.421802E-20 4.513980E-20 3.671099E-21 1.713705E-23 CLNO2_IUPAC13 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 CLNO2_IUPAC13 CS 270.000 1.579640E-19 1.378072E-19 1.176955E-19 9.616322E-20 4.789021E-20 4.474883E-21 1.754824E-23 CLNO2_IUPAC13 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 CLNO2_IUPAC13 CS 290.000 1.589238E-19 1.389231E-19 1.195174E-19 9.865609E-20 5.095621E-20 5.426186E-21 1.807737E-23 CLNO2_IUPAC13 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 CLNO2_IUPAC13 CS 310.000 1.594719E-19 1.394430E-19 1.202042E-19 9.951074E-20 5.193755E-20 5.740343E-21 1.825910E-23 CLNO2_IUPAC13 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 CLONO2_1 CS 210.000 3.530556E-20 1.872070E-20 1.123545E-20 7.141706E-21 3.111550E-21 9.743237E-22 9.489116E-24 CLONO2_1 EQY 210.000 4.000000E-01 3.992096E-01 3.837866E-01 3.420477E-01 2.361424E-01 2.718547E-02 0.000000E+00 CLONO2_1 CS 230.000 3.756278E-20 2.004876E-20 1.210488E-20 7.706714E-21 3.240199E-21 1.038511E-21 9.491610E-24 CLONO2_1 EQY 230.000 4.000000E-01 3.992096E-01 3.837866E-01 3.420477E-01 2.361424E-01 2.718547E-02 0.000000E+00 CLONO2_1 CS 250.000 3.999382E-20 2.155965E-20 1.312916E-20 8.405717E-21 3.464433E-21 1.097813E-21 9.504681E-24 CLONO2_1 EQY 250.000 4.000000E-01 3.992096E-01 3.837866E-01 3.420477E-01 2.361424E-01 2.718547E-02 0.000000E+00 CLONO2_1 CS 270.000 4.259870E-20 2.325335E-20 1.430828E-20 9.238715E-21 3.784253E-21 1.152229E-21 9.528331E-24 CLONO2_1 EQY 270.000 4.000000E-01 3.992096E-01 3.837866E-01 3.420477E-01 2.361424E-01 2.718547E-02 0.000000E+00 CLONO2_1 CS 290.000 4.537742E-20 2.512988E-20 1.564224E-20 1.020571E-20 4.199657E-21 1.201758E-21 9.562558E-24 CLONO2_1 EQY 290.000 4.000000E-01 3.992096E-01 3.837866E-01 3.420477E-01 2.361424E-01 2.718547E-02 0.000000E+00 CLONO2_1 CS 310.000 4.832995E-20 2.718922E-20 1.713105E-20 1.130669E-20 4.710647E-21 1.246402E-21 9.607363E-24 CLONO2_1 EQY 310.000 4.000000E-01 3.992096E-01 3.837866E-01 3.420477E-01 2.361424E-01 2.718547E-02 0.000000E+00 CLONO2_2 CS 210.000 3.530556E-20 1.872070E-20 1.123545E-20 7.141706E-21 3.111550E-21 9.743237E-22 9.489116E-24 CLONO2_2 EQY 210.000 6.000000E-01 6.007904E-01 6.162134E-01 6.579523E-01 7.638576E-01 9.728145E-01 1.000000E+00 CLONO2_2 CS 230.000 3.756278E-20 2.004876E-20 1.210488E-20 7.706714E-21 3.240199E-21 1.038511E-21 9.491610E-24 CLONO2_2 EQY 230.000 6.000000E-01 6.007904E-01 6.162134E-01 6.579523E-01 7.638576E-01 9.728145E-01 1.000000E+00 CLONO2_2 CS 250.000 3.999382E-20 2.155965E-20 1.312916E-20 8.405717E-21 3.464433E-21 1.097813E-21 9.504681E-24 CLONO2_2 EQY 250.000 6.000000E-01 6.007904E-01 6.162134E-01 6.579523E-01 7.638576E-01 9.728145E-01 1.000000E+00 CLONO2_2 CS 270.000 4.259870E-20 2.325335E-20 1.430828E-20 9.238715E-21 3.784253E-21 1.152229E-21 9.528331E-24 CLONO2_2 EQY 270.000 6.000000E-01 6.007904E-01 6.162134E-01 6.579523E-01 7.638576E-01 9.728145E-01 1.000000E+00 CLONO2_2 CS 290.000 4.537742E-20 2.512988E-20 1.564224E-20 1.020571E-20 4.199657E-21 1.201758E-21 9.562558E-24 CLONO2_2 EQY 290.000 6.000000E-01 6.007904E-01 6.162134E-01 6.579523E-01 7.638576E-01 9.728145E-01 1.000000E+00 CLONO2_2 CS 310.000 4.832995E-20 2.718922E-20 1.713105E-20 1.130669E-20 4.710647E-21 1.246402E-21 9.607363E-24 CLONO2_2 EQY 310.000 6.000000E-01 6.007904E-01 6.162134E-01 6.579523E-01 7.638576E-01 9.728145E-01 1.000000E+00 IC3ONO2 CS 210.000 9.514298E-21 4.530419E-21 2.204171E-21 1.039935E-21 1.393909E-22 0.000000E+00 0.000000E+00 IC3ONO2 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 IC3ONO2 CS 230.000 9.514298E-21 4.530419E-21 2.204171E-21 1.039935E-21 1.393909E-22 0.000000E+00 0.000000E+00 IC3ONO2 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 IC3ONO2 CS 250.000 9.980248E-21 4.802258E-21 2.361341E-21 1.133020E-21 1.558919E-22 0.000000E+00 0.000000E+00 IC3ONO2 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 IC3ONO2 CS 270.000 1.098172E-20 5.395850E-21 2.710103E-21 1.344930E-21 1.949851E-22 0.000000E+00 0.000000E+00 IC3ONO2 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 IC3ONO2 CS 290.000 1.208369E-20 6.062813E-21 3.110376E-21 1.596473E-21 2.438819E-22 0.000000E+00 0.000000E+00 IC3ONO2 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 IC3ONO2 CS 310.000 1.329624E-20 6.812218E-21 3.569767E-21 1.895064E-21 3.050405E-22 0.000000E+00 0.000000E+00 IC3ONO2 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 ACRO_09 CS 210.000 1.856128E-20 2.787986E-20 3.602616E-20 4.321518E-20 5.371941E-20 1.543856E-20 0.000000E+00 ACRO_09 EQY 210.000 5.269045E-02 3.293790E-02 2.264026E-02 1.595375E-02 6.767500E-03 1.624741E-03 0.000000E+00 ACRO_09 CS 230.000 1.856128E-20 2.787986E-20 3.602616E-20 4.321518E-20 5.371941E-20 1.543856E-20 0.000000E+00 ACRO_09 EQY 230.000 5.269045E-02 3.293790E-02 2.264026E-02 1.595375E-02 6.767500E-03 1.624741E-03 0.000000E+00 ACRO_09 CS 250.000 1.856128E-20 2.787986E-20 3.602616E-20 4.321518E-20 5.371941E-20 1.543856E-20 0.000000E+00 ACRO_09 EQY 250.000 5.269045E-02 3.293790E-02 2.264026E-02 1.595375E-02 6.767500E-03 1.624741E-03 0.000000E+00 ACRO_09 CS 270.000 1.856128E-20 2.787986E-20 3.602616E-20 4.321518E-20 5.371941E-20 1.543856E-20 0.000000E+00 ACRO_09 EQY 270.000 5.269045E-02 3.293790E-02 2.264026E-02 1.595375E-02 6.767500E-03 1.624741E-03 0.000000E+00 ACRO_09 CS 290.000 1.856128E-20 2.787986E-20 3.602616E-20 4.321518E-20 5.371941E-20 1.543856E-20 0.000000E+00 ACRO_09 EQY 290.000 5.269045E-02 3.293790E-02 2.264026E-02 1.595375E-02 6.767500E-03 1.624741E-03 0.000000E+00 ACRO_09 CS 310.000 1.856128E-20 2.787986E-20 3.602616E-20 4.321518E-20 5.371941E-20 1.543856E-20 0.000000E+00 ACRO_09 EQY 310.000 5.269045E-02 3.293790E-02 2.264026E-02 1.595375E-02 6.767500E-03 1.624741E-03 0.000000E+00 ! Ozone Cross-Section for Stratospheric Opacity based on Table 4-5 in ! Chemical Kinetics and Photochemical Data for Use in Atmospheric ! Studies Evaluation Number 15. Sander et. al: NASA-JPL 2006 NTEMP_STRAT = 6 ! QUANTITY TEMP WBIN( 1) WBIN( 2) WBIN( 3) WBIN( 4) WBIN( 5) WBIN( 6) WBIN( 7) O3_STRAT CS 180.000 6.113743E-19 2.263004E-19 8.354117E-20 3.417408E-20 3.688351E-21 4.086261E-23 1.663175E-21 O3_STRAT CS 260.000 6.434133E-19 2.434104E-19 9.254548E-20 3.928807E-20 4.583227E-21 4.086261E-23 1.663175E-21 O3_STRAT CS 300.000 6.685868E-19 2.568540E-19 9.962031E-20 4.330621E-20 5.286344E-21 4.086261E-23 1.663175E-21 O3_STRAT CS 340.000 6.685868E-19 2.568540E-19 9.962031E-20 4.330621E-20 5.286344E-21 4.086261E-23 1.663175E-21 O3_STRAT CS 380.000 6.685868E-19 2.568540E-19 9.962031E-20 4.330621E-20 5.286344E-21 4.086261E-23 1.663175E-21 O3_STRAT CS 420.000 6.685868E-19 2.568540E-19 9.962031E-20 4.330621E-20 5.286344E-21 4.086261E-23 1.663175E-21 ================================================ FILE: CCTM/src/MECHS/cb6r5_ae7_aq/GC_cb6r5_ae7_aq.nml ================================================ &GC_nml GC_SPECIES_DATA = !SPECIES ,MOLWT ,IC ,IC_FAC,BC ,BC_FAC ,DRYDEP SURR ,FAC ,WET-SCAV SURR ,FAC ,GC2AE SURR ,GC2AQ SURR,TRNS ,DDEP ,WDEP ,CONC 'NO2' , 46.0 ,'' ,-1 ,'' ,-1 ,'VD_NO2' , 1 ,'NO2' , 1 ,'NO2' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'NO' , 30.0 ,'' ,-1 ,'' ,-1 ,'VD_NO' , 1 ,'NO' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'O' , 16.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'O3' , 48.0 ,'' ,-1 ,'' ,-1 ,'VD_O3' , 1 ,'O3' , 1 ,'' ,'O3' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'NO3' , 62.0 ,'' ,-1 ,'' ,-1 ,'VD_NO3' , 1 ,'NO3' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'O1D' , 16.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'OH' , 17.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'OH' ,'HO' ,'' ,'' ,'' ,'Yes', 'HO2' , 33.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'H2O2' , 34.0 ,'' ,-1 ,'' ,-1 ,'VD_H2O2' , 1 ,'H2O2' , 1 ,'' ,'H2O2' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'N2O5' ,108.0 ,'' ,-1 ,'' ,-1 ,'VD_N2O5' , 1 ,'N2O5' , 1 ,'N2O5' ,'N2O5' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'HNO3' , 63.0 ,'' ,-1 ,'' ,-1 ,'VD_HNO3' , 1 ,'HNO3' , 1 ,'HNO3' ,'HNO3' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'HONO' , 47.0 ,'' ,-1 ,'' ,-1 ,'VD_HONO' , 1 ,'HNO2' , 1 ,'HONO' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'PNA' , 79.0 ,'' ,-1 ,'' ,-1 ,'VD_PNA' , 1 ,'HNO4' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SO2' , 64.0 ,'' ,-1 ,'' ,-1 ,'VD_SO2' , 1 ,'SO2' , 1 ,'' ,'SO2' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SULF' , 98.0 ,'' ,-1 ,'' ,-1 ,'VD_SULF' , 1 ,'H2SO4' , 1 ,'SULF' ,'H2SO4' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SULRXN' , 98.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'SULPRD' ,'' ,'' ,'' ,'' ,'' , 'C2O3' , 75.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'MEO2' , 47.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'RO2' , 87.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'PAN' ,121.0 ,'' ,-1 ,'' ,-1 ,'VD_PAN' , 1 ,'PAN' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'PACD' , 76.0 ,'' ,-1 ,'' ,-1 ,'VD_PAA' , 1 ,'PEROXYACETIC_ACI', 1 ,'' ,'PAA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AACD' , 60.0 ,'' ,-1 ,'' ,-1 ,'VD_ORA' , 1 ,'ACETIC_ACID' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'CXO3' , 89.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'ALD2' , 44.0 ,'' ,-1 ,'' ,-1 ,'VD_ALD' , 1 ,'ACETALDEHYDE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'XO2H' , 87.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'PANX' ,135.0 ,'' ,-1 ,'' ,-1 ,'VD_PPN' , 1 ,'PPN' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'FORM' , 30.0 ,'' ,-1 ,'' ,-1 ,'VD_HCHO' , 1 ,'FORMALDEHYDE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'MEPX' , 48.0 ,'' ,-1 ,'' ,-1 ,'VD_OP' , 1 ,'METHYLHYDROPEROX', 1 ,'' ,'MHP' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'MEOH' , 32.0 ,'' ,-1 ,'' ,-1 ,'VD_METHANOL' , 1 ,'METHANOL' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ROOH' , 90.1 ,'' ,-1 ,'' ,-1 ,'VD_ROOH' , 1 ,'METHYLHYDROPEROX', 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'XO2' , 87.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'XO2N' , 87.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'XPAR' , 45.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'XPRP' , 89.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'NTR1' ,119.1 ,'' ,-1 ,'' ,-1 ,'VD_NTRALK' , 1 ,'NTR_ALK' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'NTR2' ,135.1 ,'' ,-1 ,'' ,-1 ,'VD_NTROH' , 1 ,'NTR_OH' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'FACD' , 46.0 ,'' ,-1 ,'' ,-1 ,'VD_FACD' , 1 ,'FORMIC_ACID' , 1 ,'' ,'FOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'CO' , 28.0 ,'' ,-1 ,'' ,-1 ,'VD_CO' , 1 ,'CO' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'HCO3' , 63.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'ALDX' , 58.1 ,'' ,-1 ,'' ,-1 ,'VD_GEN_ALD' , 1 ,'GENERIC_ALDEHYDE', 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'GLYD' , 60.0 ,'' ,-1 ,'' ,-1 ,'VD_GLYD' , 1 ,'GLYOXAL' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'GLY' , 58.0 ,'' ,-1 ,'' ,-1 ,'VD_GLY' , 1 ,'GLYOXAL' , 1 ,'' ,'GLY' ,'Yes' ,'Yes' ,'' ,'Yes', 'MGLY' , 72.0 ,'' ,-1 ,'' ,-1 ,'VD_MGLY' , 1 ,'METHYL_GLYOXAL' , 1 ,'' ,'MGLY' ,'Yes' ,'Yes' ,'' ,'Yes', 'ETHA' , 30.1 ,'' ,-1 ,'' ,-1 ,'VD_ETHA' , 1 ,'ETHANE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'ETOH' , 46.1 ,'' ,-1 ,'' ,-1 ,'VD_ETOH' , 1 ,'ETHANOL' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'KET' , 72.1 ,'' ,-1 ,'' ,-1 ,'VD_KET' , 1 ,'MEK' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'PAR' , 14.0 ,'' ,-1 ,'' ,-1 ,'VD_PAR' , 1 ,'ETHANE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'ACET' , 58.1 ,'' ,-1 ,'' ,-1 ,'VD_ACET' , 1 ,'ACETONE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'PRPA' , 44.1 ,'' ,-1 ,'' ,-1 ,'VD_PRPA' , 1 ,'PROPANE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'ROR' , 29.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'ETHY' , 26.0 ,'' ,-1 ,'' ,-1 ,'VD_ETHY' , 1 ,'ACETYLENE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'ETH' , 28.0 ,'' ,-1 ,'' ,-1 ,'VD_ETH' , 1 ,'ETHENE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'OLE' , 42.1 ,'' ,-1 ,'' ,-1 ,'VD_OLE' , 1 ,'ETHENE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'IOLE' , 56.1 ,'' ,-1 ,'' ,-1 ,'VD_IOLE' , 1 ,'ETHENE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'ISOP' , 68.1 ,'' ,-1 ,'' ,-1 ,'VD_ISOP' , 1 ,'ISOPRENE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'ISO2' ,117.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'ISOPRXN' , 68.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'ISOPRXN' ,'' ,'' ,'' ,'' ,'' , 'ISPD' , 70.1 ,'' ,-1 ,'' ,-1 ,'VD_ISPD' , 1 ,'METHACROLEIN' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'INTR' ,147.1 ,'' ,-1 ,'' ,-1 ,'VD_INTR' , 1 ,'NTR_OH' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ISPX' ,118.1 ,'' ,-1 ,'' ,-1 ,'VD_ISPX' , 1 ,'METHYLHYDROPEROX', 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'HPLD' ,116.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'OPO3' ,115.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'EPOX' ,118.1 ,'' ,-1 ,'' ,-1 ,'VD_IEPOX' , 1 ,'MEK' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'IEPOXP' ,118.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'EPX2' ,149.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'TERP' ,136.2 ,'' ,-1 ,'' ,-1 ,'VD_TERP' , 1 ,'PINENE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'APIN' ,136.2 ,'' ,-1 ,'' ,-1 ,'VD_TERP' , 1 ,'PINENE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'TERPNRO2' ,197.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'MTNO3' ,231.0 ,'' ,-1 ,'' ,-1 ,'VD_MTNO3' , 1 ,'MTNO3' , 1 ,'MTNO3' ,'MTNO3' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'TRPRXN' ,136.2 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'TRPRXN' ,'' ,'' ,'' ,'' ,'' , 'BENZENE' , 78.1 ,'' ,-1 ,'' ,-1 ,'VD_BENZ' , 1 ,'BENZENE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'CRES' ,108.1 ,'' ,-1 ,'' ,-1 ,'VD_CRES' , 1 ,'2-CRESOL' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'BZO2' ,159.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'OPEN' , 84.0 ,'' ,-1 ,'' ,-1 ,'VD_OPEN' , 1 ,'METHACROLEIN' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'BENZRO2' ,127.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'TOL' , 92.1 ,'' ,-1 ,'' ,-1 ,'VD_TOL' , 1 ,'TOLUENE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'TO2' ,173.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'TOLRO2' ,141.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'XOPN' , 98.1 ,'' ,-1 ,'' ,-1 ,'VD_XOPN' , 1 ,'MEK' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'XYLMN' ,106.2 ,'' ,-1 ,'' ,-1 ,'VD_XYLMN' , 1 ,'O-XYLENE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'XLO2' ,187.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'XYLRO2' ,155.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'NAPH' ,128.2 ,'' ,-1 ,'' ,-1 ,'VD_NAPH' , 1 ,'O-XYLENE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'PAHRO2' ,187.2 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'CRO' ,107.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'CAT1' ,124.1 ,'' ,-1 ,'' ,-1 ,'VD_CAT1' , 1 ,'PHENOL' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'CRON' ,153.1 ,'' ,-1 ,'' ,-1 ,'VD_METH_NIT_PHEN', 1 ,'6_NITRO_O_CRESOL', 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'OPAN' ,161.0 ,'' ,-1 ,'' ,-1 ,'VD_MPAN' , 1 ,'MPAN' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ECH4' , 16.0 ,'' ,-1 ,'' ,-1 ,'VD_METHANE' , 1 ,'METHANE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'CL2' , 71.0 ,'' ,-1 ,'' ,-1 ,'VD_CL2' , 1 ,'CL2' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'CL' , 35.5 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'HOCL' , 52.5 ,'' ,-1 ,'' ,-1 ,'VD_HOCL' , 1 ,'HOCL' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'CLO' , 51.5 ,'' ,-1 ,'' ,-1 ,'VD_CLO' , 1 ,'CLO' , 1 ,'' ,'' ,'YES' ,'' ,'' ,'Yes', 'FMCL' , 64.5 ,'' ,-1 ,'' ,-1 ,'VD_FMCL' , 1 ,'FMCL' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'HCL' , 36.5 ,'' ,-1 ,'' ,-1 ,'VD_HCL' , 1 ,'HCL' , 1 ,'HCL' ,'HCL' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'CLNO2' , 81.5 ,'' ,-1 ,'' ,-1 ,'VD_CLNO2' , 1 ,'NITRYL_CHLORIDE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'CLNO3' , 97.5 ,'' ,-1 ,'' ,-1 ,'VD_CLNO3' , 1 ,'CLNO3' , 1 ,'CLNO3' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SESQ' ,204.0 ,'' ,-1 ,'' ,-1 ,'VD_SESQ' , 1 ,'PINENE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'SESQRXN' ,204.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'SESQRXN' ,'' ,'' ,'' ,'' ,'' , 'SOAALK' ,112.0 ,'' ,-1 ,'' ,-1 ,'VD_SOAALK' , 1 ,'DECANE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'H2NO3PIJ' , 64.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'H2NO3PK' , 64.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'VLVPO1' ,218.0 ,'' ,-1 ,'' ,-1 ,'VD_VLVPO1' , 1 ,'ADIPIC_ACID' , 1 ,'VLVPO1' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'VSVPO1' ,230.0 ,'' ,-1 ,'' ,-1 ,'VD_VSVPO1' , 1 ,'ADIPIC_ACID' , 1 ,'VSVPO1' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'VSVPO2' ,241.0 ,'' ,-1 ,'' ,-1 ,'VD_VSVPO2' , 1 ,'ADIPIC_ACID' , 1 ,'VSVPO2' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'VSVPO3' ,253.0 ,'' ,-1 ,'' ,-1 ,'VD_VSVPO3' , 1 ,'ADIPIC_ACID' , 1 ,'VSVPO3' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'VIVPO1' ,266.0 ,'' ,-1 ,'' ,-1 ,'VD_VIVPO1' , 1 ,'ADIPIC_ACID' , 1 ,'VIVPO1' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'VLVOO1' ,136.0 ,'' ,-1 ,'' ,-1 ,'VD_VLVOO1' , 1 ,'ADIPIC_ACID' , 1 ,'VLVOO1' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'VLVOO2' ,136.0 ,'' ,-1 ,'' ,-1 ,'VD_VLVOO2' , 1 ,'ADIPIC_ACID' , 1 ,'VLVOO2' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'VSVOO1' ,135.0 ,'' ,-1 ,'' ,-1 ,'VD_VSVOO1' , 1 ,'ADIPIC_ACID' , 1 ,'VSVOO1' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'VSVOO2' ,135.0 ,'' ,-1 ,'' ,-1 ,'VD_VSVOO2' , 1 ,'ADIPIC_ACID' , 1 ,'VSVOO2' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'VSVOO3' ,134.0 ,'' ,-1 ,'' ,-1 ,'VD_VSVOO3' , 1 ,'ADIPIC_ACID' , 1 ,'VSVOO3' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'PCVOC' ,170.0 ,'' ,-1 ,'' ,-1 ,'VD_PCVOC' , 1 ,'GENERIC_ALDEHYDE', 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'PCSOARXN' ,170.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'PCSOARXN' ,'' ,'' ,'' ,'' ,'' , 'FORM_PRIMARY' , 30.0 ,'' ,-1 ,'' ,-1 ,'VD_HCHO' , 1 ,'FORMALDEHYDE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ALD2_PRIMARY' , 44.0 ,'' ,-1 ,'' ,-1 ,'VD_ALD' , 1 ,'ACETALDEHYDE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'BUTADIENE13' , 54.0 ,'' ,-1 ,'' ,-1 ,'VD_BUTADIENE13' , 1 ,'13-BUTADIENE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'ACROLEIN' , 56.1 ,'' ,-1 ,'' ,-1 ,'VD_ACROLEIN' , 1 ,'ACROLEIN' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'ACRO_PRIMARY' , 56.1 ,'' ,-1 ,'' ,-1 ,'VD_ACROLEIN' , 1 ,'ACROLEIN' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'TOLU' , 92.0 ,'' ,-1 ,'' ,-1 ,'VD_TOL' , 1 ,'TOLUENE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'HG' ,200.6 ,'' ,-1 ,'' ,-1 ,'VD_HG' , 1 ,'HG' , 1 ,'' ,'HG' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'HGIIAER' ,200.6 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'PHGRXN' ,'' ,'' ,'' ,'' ,'' , 'HGIIGAS' ,271.5 ,'' ,-1 ,'' ,-1 ,'VD_HGIIGAS' , 1 ,'HGIIGAS' , 1 ,'' ,'HGIIGAS' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SVAVB1' ,198.0 ,'' ,-1 ,'' ,-1 ,'VD_SVAVB1' , 1 ,'SVAVB1' , 1 ,'SVAVB1' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SVAVB2' ,179.0 ,'' ,-1 ,'' ,-1 ,'VD_SVAVB2' , 1 ,'SVAVB2' , 1 ,'SVAVB2' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SVAVB3' ,169.0 ,'' ,-1 ,'' ,-1 ,'VD_SVAVB3' , 1 ,'SVAVB3' , 1 ,'SVAVB3' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SVAVB4' ,158.0 ,'' ,-1 ,'' ,-1 ,'VD_SVAVB4' , 1 ,'SVAVB4' , 1 ,'SVAVB4' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'DMS' , 62.0 ,'' ,-1 ,'' ,-1 ,'VD_DMS' , 1 ,'DMS' , 1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'MSA' , 96.0 ,'' ,-1 ,'' ,-1 ,'VD_MSA' , 1 ,'MSA' , 1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', / ================================================ FILE: CCTM/src/MECHS/cb6r5_ae7_aq/NR_cb6r5_ae7_aq.nml ================================================ &NR_nml NR_SPECIES_DATA = !SPECIES ,MOLWT ,IC ,IC_FAC ,BC ,BC_FAC ,DRYDEP SURR ,FAC ,WET-SCAV SURR ,FAC ,NR2AE SURR ,NR2AQ SURR,TRNS ,DDEP ,WDEP ,CONC 'NH3' , 17.0 ,'' ,-1 ,'' ,-1 ,'VD_NH3' , 1 ,'NH3' , 1 ,'NH3' ,'NH3' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SVISO1' ,132.0 ,'' ,-1 ,'' ,-1 ,'VD_SVISO1' , 1 ,'SVISO1' , 1 ,'SVISO1' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SVISO2' ,133.0 ,'' ,-1 ,'' ,-1 ,'VD_SVISO2' , 1 ,'SVISO2' , 1 ,'SVISO2' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SVSQT' ,273.0 ,'' ,-1 ,'' ,-1 ,'VD_SVSQT' , 1 ,'SVSQT' , 1 ,'SVSQT' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'LVPCSOG',170.0 ,'' ,-1 ,'' ,-1 ,'VD_LVPCSOG' , 1 ,'ADIPIC_ACID' , 1 ,'LVPCSOG' ,'' ,'Yes' ,'' ,'' ,'Yes', 'SVMT1' ,300.0 ,'' ,-1 ,'' ,-1 ,'VD_SVMT1' , 1 ,'SVMT1' , 1 ,'SVMT1' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SVMT2' ,200.0 ,'' ,-1 ,'' ,-1 ,'VD_SVMT2' , 1 ,'SVMT2' , 1 ,'SVMT2' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SVMT3' ,186.0 ,'' ,-1 ,'' ,-1 ,'VD_SVMT3' , 1 ,'SVMT3' , 1 ,'SVMT3' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SVMT4' ,184.0 ,'' ,-1 ,'' ,-1 ,'VD_SVMT4' , 1 ,'SVMT4' , 1 ,'SVMT4' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SVMT5' ,170.0 ,'' ,-1 ,'' ,-1 ,'VD_SVMT5' , 1 ,'SVMT5' , 1 ,'SVMT5' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SVMT6' ,168.0 ,'' ,-1 ,'' ,-1 ,'VD_SVMT6' , 1 ,'SVMT6' , 1 ,'SVMT6' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', / ================================================ FILE: CCTM/src/MECHS/cb6r5_ae7_aq/RXNS_DATA_MODULE.F90 ================================================ MODULE RXNS_DATA IMPLICIT NONE ! --------- Photochemical Mechanism Reactions, Rates, etc. DAT --------- ! Source file: /home/bmurphy/cmaq_projects/bicicle_1.7/UTIL/chemmech/input/cb6r5_ae7_aq/mech_cb6r5_ae7_aq.def ! for Mechanism Name: CB6R5_AE7_AQ ! This file is used to create mechanism data and functions ! The following are reserved symbols declared in this file: ! MECHNAME = Mechanism name ! N_GAS_CHEM_SPC = Total number of gas species in chemical mechanism ! NUMB_MECH_SPC = Total number of species in chemical mechanism ! N_ACT_SP = Number of active (determined by ODE solver) species in mechanism ! GAS_CHEM_SPC = Names of gas species in chemical mechanism ! CHEMISTRY_SPC = Names of species in chemical mechanism ! CGRID_INDEX = CGRID Index of species in chemical mechanism ! SPECIES_TYPE = Group or type of species ! SPECIES_MOLWT = Molecular Weight of species (gm/mole) ! NRXNS = Number of mechanism reactions ! ZERO_REACT_REACTIONS = number zero reactant reactions ! ONE_REACT_REACTIONS = number one reactant reactions ! TWO_REACT_REACTIONS = number second order reactions ! THREE_REACT_REACTIONS = number three reactant reactions ! NSUNLIGHT_RXNS = Number of mechanism reactions requiring sunlight ! NTHERMAL_RXNS = Number of mechanism reactions not requiring sunlight ! KUNITS = Units of mechanism reactions ! KTYPE = Reaction type ! IRXBITS = Bit test mask vector for selected reactions ! IORDER = Order of the reaction ! NTERMS_JACOB = Maximum number of nonzero terms in day/night Jacobian ! MSTEPS_JACOB = Maximum number of LU Decomposition steps to solve each Jacobian ! KTN1 = Number of type 1 reactions ! KRX1 = Reactions list pointer to type 1 reactions ! KTN2 = Number of type 2 reactions ! KRX2 = Reactions list pointer to type 2 reactions ! KTN3 = Number of type 3 reactions ! KRX3 = Reactions list pointer to type 3 reactions ! KTN4 = Number of type 4 reactions ! KRX4 = Reactions list pointer to type 4 reactions ! KTN5 = Number of type 5 reactions ! KRX5 = Reactions list pointer to type 5 reactions ! KTN6 = Number of type 6 reactions ! KRX6 = Reactions list pointer to type 6 reactions ! KTN7 = Number of type 7 reactions ! KRX7 = Reactions list pointer to type 7 reactions ! NWM = Number of air 3-body reactions ! NRXWM = Reactions list pointer to air 3-body reactions ! ATM_AIR = air 3-body reactions concentration ! NWW = Number of H2O 3-body reactions ! NRXWW = Reactions list pointer to H2O 3-body reactions ! NWO2 = Number of reactions with O2 ! NRXWO2 = Reactions list pointer to O2 reactions ! ATM_O2 = Oxygen reactions concentration ! NWN2 = Number of N2 3-body reactions ! NRXWN2 = Reactions list pointer to N2 3-body reactions ! ATM_N2 = Nitrogen 3-body reactions concentration ! NWCH4 = Number of reactions with CH4 ! NRXWCH4 = Reactions list pointer to CH4 reactions ! ATM_CH4 = Methane reactions concentration ! NWH2 = Number of reactions with H2 ! NRXWH2 = Reactions list pointer to H2 reactions ! ATM_H2 = Hydrogen reactions concentration ! MXPRD = Maximum number of mechanism reaction products ! IRR = Reactions list pointer to reactants and products ! RTDAT = Kinetic reaction rates expressions components ! NFALLOFFF = Number of falloff reactions ! IRRFALL = Reactions list pointer to falloff reactions ! RFDAT = Falloff reaction rates expressions components ! SC = Stoichiometric coefficients ! NREACT = Number of reactants in each mechanism reaction ! NPRDCT = Number of products in each mechanism reaction ! RXLABEL = Character label list for mechanism reactions ! NMPHOT = Number of mechanism photolytic reactions ! NPHOTAB = Number of photolytic reactions tables ! IPH = Reactions list pointer to photolytic reactions and tables ! MHETERO = Number of mechanism heteorogenous reactions ! NHETERO = Number of unique heteorogenous rate constants ! IHETERO = Reactions list pointer to heteorogenous reactions and tables CHARACTER( 32 ), PARAMETER :: MECHNAME = 'CB6R5_AE7_AQ' INTEGER, PARAMETER :: N_GAS_CHEM_SPC = 129 INTEGER, PARAMETER :: NUMB_MECH_SPC = 149 CHARACTER( 16 ) :: GAS_CHEM_SPC( N_GAS_CHEM_SPC ) CHARACTER( 16 ) :: CHEMISTRY_SPC( NUMB_MECH_SPC ) CHARACTER( 16 ) :: SPECIES_TYPE( NUMB_MECH_SPC ) INTEGER :: CGRID_INDEX ( NUMB_MECH_SPC ) INTEGER :: TYPE_INDEX ( NUMB_MECH_SPC ) REAL( 8 ) :: SPECIES_MOLWT( NUMB_MECH_SPC ) LOGICAL :: CONVERT_CONC( NUMB_MECH_SPC ) ! The below character and integer arrays list the model species names used in the ! chemical mechanism. The gas species and their order should agree with ! the GC_SPC array for the gas phase chemistry to work correctly. ! If present, the CHEMISTRY_SPC names and species type should agree with the CGRID_SPCS module DATA GAS_CHEM_SPC( 1 ) / 'NO2 ' / DATA GAS_CHEM_SPC( 2 ) / 'NO ' / DATA GAS_CHEM_SPC( 3 ) / 'O ' / DATA GAS_CHEM_SPC( 4 ) / 'O3 ' / DATA GAS_CHEM_SPC( 5 ) / 'NO3 ' / DATA GAS_CHEM_SPC( 6 ) / 'O1D ' / DATA GAS_CHEM_SPC( 7 ) / 'OH ' / DATA GAS_CHEM_SPC( 8 ) / 'HO2 ' / DATA GAS_CHEM_SPC( 9 ) / 'H2O2 ' / DATA GAS_CHEM_SPC( 10 ) / 'N2O5 ' / DATA GAS_CHEM_SPC( 11 ) / 'HNO3 ' / DATA GAS_CHEM_SPC( 12 ) / 'HONO ' / DATA GAS_CHEM_SPC( 13 ) / 'PNA ' / DATA GAS_CHEM_SPC( 14 ) / 'SO2 ' / DATA GAS_CHEM_SPC( 15 ) / 'SULF ' / DATA GAS_CHEM_SPC( 16 ) / 'SULRXN ' / DATA GAS_CHEM_SPC( 17 ) / 'C2O3 ' / DATA GAS_CHEM_SPC( 18 ) / 'MEO2 ' / DATA GAS_CHEM_SPC( 19 ) / 'RO2 ' / DATA GAS_CHEM_SPC( 20 ) / 'PAN ' / DATA GAS_CHEM_SPC( 21 ) / 'PACD ' / DATA GAS_CHEM_SPC( 22 ) / 'AACD ' / DATA GAS_CHEM_SPC( 23 ) / 'CXO3 ' / DATA GAS_CHEM_SPC( 24 ) / 'ALD2 ' / DATA GAS_CHEM_SPC( 25 ) / 'XO2H ' / DATA GAS_CHEM_SPC( 26 ) / 'PANX ' / DATA GAS_CHEM_SPC( 27 ) / 'FORM ' / DATA GAS_CHEM_SPC( 28 ) / 'MEPX ' / DATA GAS_CHEM_SPC( 29 ) / 'MEOH ' / DATA GAS_CHEM_SPC( 30 ) / 'ROOH ' / DATA GAS_CHEM_SPC( 31 ) / 'XO2 ' / DATA GAS_CHEM_SPC( 32 ) / 'XO2N ' / DATA GAS_CHEM_SPC( 33 ) / 'NTR1 ' / DATA GAS_CHEM_SPC( 34 ) / 'NTR2 ' / DATA GAS_CHEM_SPC( 35 ) / 'FACD ' / DATA GAS_CHEM_SPC( 36 ) / 'CO ' / DATA GAS_CHEM_SPC( 37 ) / 'HCO3 ' / DATA GAS_CHEM_SPC( 38 ) / 'ALDX ' / DATA GAS_CHEM_SPC( 39 ) / 'GLYD ' / DATA GAS_CHEM_SPC( 40 ) / 'GLY ' / DATA GAS_CHEM_SPC( 41 ) / 'MGLY ' / DATA GAS_CHEM_SPC( 42 ) / 'ETHA ' / DATA GAS_CHEM_SPC( 43 ) / 'ETOH ' / DATA GAS_CHEM_SPC( 44 ) / 'KET ' / DATA GAS_CHEM_SPC( 45 ) / 'PAR ' / DATA GAS_CHEM_SPC( 46 ) / 'ACET ' / DATA GAS_CHEM_SPC( 47 ) / 'PRPA ' / DATA GAS_CHEM_SPC( 48 ) / 'XPRP ' / DATA GAS_CHEM_SPC( 49 ) / 'XPAR ' / DATA GAS_CHEM_SPC( 50 ) / 'ROR ' / DATA GAS_CHEM_SPC( 51 ) / 'ETHY ' / DATA GAS_CHEM_SPC( 52 ) / 'ETH ' / DATA GAS_CHEM_SPC( 53 ) / 'OLE ' / DATA GAS_CHEM_SPC( 54 ) / 'IOLE ' / DATA GAS_CHEM_SPC( 55 ) / 'ISOP ' / DATA GAS_CHEM_SPC( 56 ) / 'ISO2 ' / DATA GAS_CHEM_SPC( 57 ) / 'ISOPRXN ' / DATA GAS_CHEM_SPC( 58 ) / 'ISPD ' / DATA GAS_CHEM_SPC( 59 ) / 'INTR ' / DATA GAS_CHEM_SPC( 60 ) / 'ISPX ' / DATA GAS_CHEM_SPC( 61 ) / 'HPLD ' / DATA GAS_CHEM_SPC( 62 ) / 'OPO3 ' / DATA GAS_CHEM_SPC( 63 ) / 'EPOX ' / DATA GAS_CHEM_SPC( 64 ) / 'EPX2 ' / DATA GAS_CHEM_SPC( 65 ) / 'TERP ' / DATA GAS_CHEM_SPC( 66 ) / 'TRPRXN ' / DATA GAS_CHEM_SPC( 67 ) / 'TERPNRO2 ' / DATA GAS_CHEM_SPC( 68 ) / 'APIN ' / DATA GAS_CHEM_SPC( 69 ) / 'BENZENE ' / DATA GAS_CHEM_SPC( 70 ) / 'CRES ' / DATA GAS_CHEM_SPC( 71 ) / 'BZO2 ' / DATA GAS_CHEM_SPC( 72 ) / 'OPEN ' / DATA GAS_CHEM_SPC( 73 ) / 'BENZRO2 ' / DATA GAS_CHEM_SPC( 74 ) / 'TOL ' / DATA GAS_CHEM_SPC( 75 ) / 'TO2 ' / DATA GAS_CHEM_SPC( 76 ) / 'TOLRO2 ' / DATA GAS_CHEM_SPC( 77 ) / 'XOPN ' / DATA GAS_CHEM_SPC( 78 ) / 'XYLMN ' / DATA GAS_CHEM_SPC( 79 ) / 'XLO2 ' / DATA GAS_CHEM_SPC( 80 ) / 'XYLRO2 ' / DATA GAS_CHEM_SPC( 81 ) / 'NAPH ' / DATA GAS_CHEM_SPC( 82 ) / 'PAHRO2 ' / DATA GAS_CHEM_SPC( 83 ) / 'CRO ' / DATA GAS_CHEM_SPC( 84 ) / 'CAT1 ' / DATA GAS_CHEM_SPC( 85 ) / 'CRON ' / DATA GAS_CHEM_SPC( 86 ) / 'OPAN ' / DATA GAS_CHEM_SPC( 87 ) / 'ECH4 ' / DATA GAS_CHEM_SPC( 88 ) / 'CL2 ' / DATA GAS_CHEM_SPC( 89 ) / 'CL ' / DATA GAS_CHEM_SPC( 90 ) / 'HOCL ' / DATA GAS_CHEM_SPC( 91 ) / 'CLO ' / DATA GAS_CHEM_SPC( 92 ) / 'FMCL ' / DATA GAS_CHEM_SPC( 93 ) / 'HCL ' / DATA GAS_CHEM_SPC( 94 ) / 'CLNO2 ' / DATA GAS_CHEM_SPC( 95 ) / 'CLNO3 ' / DATA GAS_CHEM_SPC( 96 ) / 'SVAVB2 ' / DATA GAS_CHEM_SPC( 97 ) / 'SVAVB3 ' / DATA GAS_CHEM_SPC( 98 ) / 'SVAVB4 ' / DATA GAS_CHEM_SPC( 99 ) / 'SVAVB1 ' / DATA GAS_CHEM_SPC( 100 ) / 'SESQ ' / DATA GAS_CHEM_SPC( 101 ) / 'SESQRXN ' / DATA GAS_CHEM_SPC( 102 ) / 'SOAALK ' / DATA GAS_CHEM_SPC( 103 ) / 'H2NO3PIJ ' / DATA GAS_CHEM_SPC( 104 ) / 'H2NO3PK ' / DATA GAS_CHEM_SPC( 105 ) / 'IEPOXP ' / DATA GAS_CHEM_SPC( 106 ) / 'MTNO3 ' / DATA GAS_CHEM_SPC( 107 ) / 'PCVOC ' / DATA GAS_CHEM_SPC( 108 ) / 'PCSOARXN ' / DATA GAS_CHEM_SPC( 109 ) / 'VLVPO1 ' / DATA GAS_CHEM_SPC( 110 ) / 'VSVPO1 ' / DATA GAS_CHEM_SPC( 111 ) / 'VSVPO2 ' / DATA GAS_CHEM_SPC( 112 ) / 'VSVPO3 ' / DATA GAS_CHEM_SPC( 113 ) / 'VIVPO1 ' / DATA GAS_CHEM_SPC( 114 ) / 'VLVOO1 ' / DATA GAS_CHEM_SPC( 115 ) / 'VLVOO2 ' / DATA GAS_CHEM_SPC( 116 ) / 'VSVOO2 ' / DATA GAS_CHEM_SPC( 117 ) / 'VSVOO3 ' / DATA GAS_CHEM_SPC( 118 ) / 'VSVOO1 ' / DATA GAS_CHEM_SPC( 119 ) / 'FORM_PRIMARY ' / DATA GAS_CHEM_SPC( 120 ) / 'ALD2_PRIMARY ' / DATA GAS_CHEM_SPC( 121 ) / 'BUTADIENE13 ' / DATA GAS_CHEM_SPC( 122 ) / 'ACROLEIN ' / DATA GAS_CHEM_SPC( 123 ) / 'ACRO_PRIMARY ' / DATA GAS_CHEM_SPC( 124 ) / 'TOLU ' / DATA GAS_CHEM_SPC( 125 ) / 'HG ' / DATA GAS_CHEM_SPC( 126 ) / 'HGIIAER ' / DATA GAS_CHEM_SPC( 127 ) / 'HGIIGAS ' / DATA GAS_CHEM_SPC( 128 ) / 'DMS ' / DATA GAS_CHEM_SPC( 129 ) / 'MSA ' / LOGICAL :: HALOGEN_PARAMETER = .TRUE. ! The below character and integer arrays list the model species names used in the ! chemical mechanism. The gas species and their order should agree with ! the GC_SPC array for the gas phase chemistry to work correctly. ! If present, the CHEMISTRY_SPC names and species type should agree with the CGRID_SPCS module ! MAPPED_TO_CGRID declares whether CMAQ namelists were used to determine ! the below values of CGRID_INDEX, SPECIES_TYPE, SPECIES_MOLWT, and CONVERT_CONC LOGICAL, PARAMETER, PRIVATE :: F = .FALSE. LOGICAL, PARAMETER, PRIVATE :: T = .TRUE. LOGICAL :: MAPPED_TO_CGRID = .FALSE. TYPE MEMBER CHARACTER( 16 ) :: CHEMISTRY_SPC INTEGER :: CGRID_INDEX CHARACTER( 2 ) :: SPECIES_TYPE REAL( 8 ) :: SPECIES_MOLWT LOGICAL :: CONVERT_CONC END TYPE MEMBER TYPE( MEMBER ) :: SPECIES_LIST( NUMB_MECH_SPC ) = (/ & & MEMBER("NO2 ", 1, "GC", 46.00D0, F), & & MEMBER("NO ", 2, "GC", 30.00D0, F), & & MEMBER("O ", 3, "GC", 16.00D0, F), & & MEMBER("O3 ", 4, "GC", 48.00D0, F), & & MEMBER("NO3 ", 5, "GC", 62.00D0, F), & & MEMBER("O1D ", 6, "GC", 16.00D0, F), & & MEMBER("OH ", 7, "GC", 17.00D0, F), & & MEMBER("HO2 ", 8, "GC", 33.00D0, F), & & MEMBER("H2O2 ", 9, "GC", 34.00D0, F), & & MEMBER("N2O5 ", 10, "GC", 108.00D0, F), & & MEMBER("HNO3 ", 11, "GC", 63.00D0, F), & & MEMBER("HONO ", 12, "GC", 47.00D0, F), & & MEMBER("PNA ", 13, "GC", 79.00D0, F), & & MEMBER("SO2 ", 14, "GC", 64.00D0, F), & & MEMBER("SULF ", 15, "GC", 98.00D0, F), & & MEMBER("SULRXN ", 16, "GC", 98.00D0, F), & & MEMBER("C2O3 ", 17, "GC", 75.00D0, F), & & MEMBER("MEO2 ", 18, "GC", 47.00D0, F), & & MEMBER("RO2 ", 19, "GC", 87.10D0, F), & & MEMBER("PAN ", 20, "GC", 121.00D0, F), & & MEMBER("PACD ", 21, "GC", 76.00D0, F), & & MEMBER("AACD ", 22, "GC", 60.00D0, F), & & MEMBER("CXO3 ", 23, "GC", 89.00D0, F), & & MEMBER("ALD2 ", 24, "GC", 44.00D0, F), & & MEMBER("XO2H ", 25, "GC", 87.10D0, F), & & MEMBER("PANX ", 26, "GC", 135.00D0, F), & & MEMBER("FORM ", 27, "GC", 30.00D0, F), & & MEMBER("MEPX ", 28, "GC", 48.00D0, F), & & MEMBER("MEOH ", 29, "GC", 32.00D0, F), & & MEMBER("ROOH ", 30, "GC", 90.10D0, F), & & MEMBER("XO2 ", 31, "GC", 87.10D0, F), & & MEMBER("XO2N ", 32, "GC", 87.10D0, F), & & MEMBER("NTR1 ", 35, "GC", 119.10D0, F), & & MEMBER("NTR2 ", 36, "GC", 135.10D0, F), & & MEMBER("FACD ", 37, "GC", 46.00D0, F), & & MEMBER("CO ", 38, "GC", 28.00D0, F), & & MEMBER("HCO3 ", 39, "GC", 63.00D0, F), & & MEMBER("ALDX ", 40, "GC", 58.10D0, F), & & MEMBER("GLYD ", 41, "GC", 60.00D0, F), & & MEMBER("GLY ", 42, "GC", 58.00D0, F), & & MEMBER("MGLY ", 43, "GC", 72.00D0, F), & & MEMBER("ETHA ", 44, "GC", 30.10D0, F), & & MEMBER("ETOH ", 45, "GC", 46.10D0, F), & & MEMBER("KET ", 46, "GC", 72.10D0, F), & & MEMBER("PAR ", 47, "GC", 14.00D0, F), & & MEMBER("ACET ", 48, "GC", 58.10D0, F), & & MEMBER("PRPA ", 49, "GC", 44.10D0, F), & & MEMBER("XPRP ", 34, "GC", 89.10D0, F), & & MEMBER("XPAR ", 33, "GC", 45.00D0, F), & & MEMBER("ROR ", 50, "GC", 29.00D0, F), & & MEMBER("ETHY ", 51, "GC", 26.00D0, F), & & MEMBER("ETH ", 52, "GC", 28.00D0, F), & & MEMBER("OLE ", 53, "GC", 42.10D0, F), & & MEMBER("IOLE ", 54, "GC", 56.10D0, F), & & MEMBER("ISOP ", 55, "GC", 68.10D0, F), & & MEMBER("ISO2 ", 56, "GC", 117.10D0, F), & & MEMBER("ISOPRXN ", 57, "GC", 68.10D0, F), & & MEMBER("ISPD ", 58, "GC", 70.10D0, F), & & MEMBER("INTR ", 59, "GC", 147.10D0, F), & & MEMBER("ISPX ", 60, "GC", 118.10D0, F), & & MEMBER("HPLD ", 61, "GC", 116.10D0, F), & & MEMBER("OPO3 ", 62, "GC", 115.00D0, F), & & MEMBER("EPOX ", 63, "GC", 118.10D0, F), & & MEMBER("EPX2 ", 65, "GC", 149.10D0, F), & & MEMBER("TERP ", 66, "GC", 136.20D0, F), & & MEMBER("TRPRXN ", 70, "GC", 136.20D0, F), & & MEMBER("TERPNRO2 ", 68, "GC", 197.00D0, F), & & MEMBER("APIN ", 67, "GC", 136.20D0, F), & & MEMBER("BENZENE ", 71, "GC", 78.10D0, F), & & MEMBER("CRES ", 72, "GC", 108.10D0, F), & & MEMBER("BZO2 ", 73, "GC", 159.10D0, F), & & MEMBER("OPEN ", 74, "GC", 84.00D0, F), & & MEMBER("BENZRO2 ", 75, "GC", 127.00D0, F), & & MEMBER("TOL ", 76, "GC", 92.10D0, F), & & MEMBER("TO2 ", 77, "GC", 173.10D0, F), & & MEMBER("TOLRO2 ", 78, "GC", 141.00D0, F), & & MEMBER("XOPN ", 79, "GC", 98.10D0, F), & & MEMBER("XYLMN ", 80, "GC", 106.20D0, F), & & MEMBER("XLO2 ", 81, "GC", 187.10D0, F), & & MEMBER("XYLRO2 ", 82, "GC", 155.00D0, F), & & MEMBER("NAPH ", 83, "GC", 128.20D0, F), & & MEMBER("PAHRO2 ", 84, "GC", 187.20D0, F), & & MEMBER("CRO ", 85, "GC", 107.10D0, F), & & MEMBER("CAT1 ", 86, "GC", 124.10D0, F), & & MEMBER("CRON ", 87, "GC", 153.10D0, F), & & MEMBER("OPAN ", 88, "GC", 161.00D0, F), & & MEMBER("ECH4 ", 89, "GC", 16.00D0, F), & & MEMBER("CL2 ", 90, "GC", 71.00D0, F), & & MEMBER("CL ", 91, "GC", 35.50D0, F), & & MEMBER("HOCL ", 92, "GC", 52.50D0, F), & & MEMBER("CLO ", 93, "GC", 51.50D0, F), & & MEMBER("FMCL ", 94, "GC", 64.50D0, F), & & MEMBER("HCL ", 95, "GC", 36.50D0, F), & & MEMBER("CLNO2 ", 96, "GC", 81.50D0, F), & & MEMBER("CLNO3 ", 97, "GC", 97.50D0, F), & & MEMBER("SVAVB2 ", 125, "GC", 179.00D0, F), & & MEMBER("SVAVB3 ", 126, "GC", 169.00D0, F), & & MEMBER("SVAVB4 ", 127, "GC", 158.00D0, F), & & MEMBER("SVAVB1 ", 124, "GC", 198.00D0, F), & & MEMBER("SESQ ", 98, "GC", 204.00D0, F), & & MEMBER("SESQRXN ", 99, "GC", 204.00D0, F), & & MEMBER("SOAALK ", 100, "GC", 112.00D0, F), & & MEMBER("H2NO3PIJ ", 101, "GC", 64.00D0, F), & & MEMBER("H2NO3PK ", 102, "GC", 64.00D0, F), & & MEMBER("ACLI ", 142, "AE", 35.50D0, T), & & MEMBER("ACLJ ", 143, "AE", 35.50D0, T), & & MEMBER("ACLK ", 144, "AE", 35.50D0, T), & & MEMBER("IEPOXP ", 64, "GC", 118.10D0, F), & & MEMBER("ASO4J ", 132, "AE", 96.00D0, T), & & MEMBER("AISO3J ", 177, "AE", 168.20D0, T), & & MEMBER("AGLYJ ", 180, "AE", 66.40D0, T), & & MEMBER("MTNO3 ", 69, "GC", 231.00D0, F), & & MEMBER("AMTNO3J ", 181, "AE", 231.00D0, T), & & MEMBER("AMTHYDJ ", 182, "AE", 168.00D0, T), & & MEMBER("AAVB2J ", 206, "AE", 179.00D0, T), & & MEMBER("AOLGAJ ", 178, "AE", 206.00D0, T), & & MEMBER("AAVB3J ", 207, "AE", 169.00D0, T), & & MEMBER("AAVB4J ", 208, "AE", 158.00D0, T), & & MEMBER("AISO1J ", 145, "AE", 132.00D0, T), & & MEMBER("AOLGBJ ", 179, "AE", 248.00D0, T), & & MEMBER("AISO2J ", 146, "AE", 133.00D0, T), & & MEMBER("ASQTJ ", 147, "AE", 273.00D0, T), & & MEMBER("APOCI ", 183, "AE", 220.00D0, T), & & MEMBER("APNCOMI ", 185, "AE", 220.00D0, T), & & MEMBER("APOCJ ", 184, "AE", 220.00D0, T), & & MEMBER("APNCOMJ ", 186, "AE", 220.00D0, T), & & MEMBER("PCVOC ", 113, "GC", 170.00D0, F), & & MEMBER("PCSOARXN ", 114, "GC", 170.00D0, F), & & MEMBER("VLVPO1 ", 103, "GC", 218.00D0, F), & & MEMBER("VSVPO1 ", 104, "GC", 230.00D0, F), & & MEMBER("VSVPO2 ", 105, "GC", 241.00D0, F), & & MEMBER("VSVPO3 ", 106, "GC", 253.00D0, F), & & MEMBER("VIVPO1 ", 107, "GC", 266.00D0, F), & & MEMBER("VLVOO1 ", 108, "GC", 136.00D0, F), & & MEMBER("VLVOO2 ", 109, "GC", 136.00D0, F), & & MEMBER("VSVOO2 ", 111, "GC", 135.00D0, F), & & MEMBER("VSVOO3 ", 112, "GC", 134.00D0, F), & & MEMBER("VSVOO1 ", 110, "GC", 135.00D0, F), & & MEMBER("FORM_PRIMARY ", 115, "GC", 30.00D0, F), & & MEMBER("ALD2_PRIMARY ", 116, "GC", 44.00D0, F), & & MEMBER("BUTADIENE13 ", 117, "GC", 54.00D0, F), & & MEMBER("ACROLEIN ", 118, "GC", 56.10D0, F), & & MEMBER("ACRO_PRIMARY ", 119, "GC", 56.10D0, F), & & MEMBER("TOLU ", 120, "GC", 92.00D0, F), & & MEMBER("HG ", 121, "GC", 200.60D0, F), & & MEMBER("HGIIAER ", 122, "GC", 200.60D0, F), & & MEMBER("HGIIGAS ", 123, "GC", 271.50D0, F), & & MEMBER("DMS ", 128, "GC", 62.00D0, F), & & MEMBER("MSA ", 129, "GC", 96.00D0, F) /) DATA CHEMISTRY_SPC( 1 ), SPECIES_MOLWT( 1 ) / 'NO2 ', 46.00D0 / DATA CHEMISTRY_SPC( 2 ), SPECIES_MOLWT( 2 ) / 'NO ', 30.00D0 / DATA CHEMISTRY_SPC( 3 ), SPECIES_MOLWT( 3 ) / 'O ', 16.00D0 / DATA CHEMISTRY_SPC( 4 ), SPECIES_MOLWT( 4 ) / 'O3 ', 48.00D0 / DATA CHEMISTRY_SPC( 5 ), SPECIES_MOLWT( 5 ) / 'NO3 ', 62.00D0 / DATA CHEMISTRY_SPC( 6 ), SPECIES_MOLWT( 6 ) / 'O1D ', 16.00D0 / DATA CHEMISTRY_SPC( 7 ), SPECIES_MOLWT( 7 ) / 'OH ', 17.00D0 / DATA CHEMISTRY_SPC( 8 ), SPECIES_MOLWT( 8 ) / 'HO2 ', 33.00D0 / DATA CHEMISTRY_SPC( 9 ), SPECIES_MOLWT( 9 ) / 'H2O2 ', 34.00D0 / DATA CHEMISTRY_SPC( 10 ), SPECIES_MOLWT( 10 ) / 'N2O5 ', 108.00D0 / DATA CHEMISTRY_SPC( 11 ), SPECIES_MOLWT( 11 ) / 'HNO3 ', 63.00D0 / DATA CHEMISTRY_SPC( 12 ), SPECIES_MOLWT( 12 ) / 'HONO ', 47.00D0 / DATA CHEMISTRY_SPC( 13 ), SPECIES_MOLWT( 13 ) / 'PNA ', 79.00D0 / DATA CHEMISTRY_SPC( 14 ), SPECIES_MOLWT( 14 ) / 'SO2 ', 64.00D0 / DATA CHEMISTRY_SPC( 15 ), SPECIES_MOLWT( 15 ) / 'SULF ', 98.00D0 / DATA CHEMISTRY_SPC( 16 ), SPECIES_MOLWT( 16 ) / 'SULRXN ', 98.00D0 / DATA CHEMISTRY_SPC( 17 ), SPECIES_MOLWT( 17 ) / 'C2O3 ', 75.00D0 / DATA CHEMISTRY_SPC( 18 ), SPECIES_MOLWT( 18 ) / 'MEO2 ', 47.00D0 / DATA CHEMISTRY_SPC( 19 ), SPECIES_MOLWT( 19 ) / 'RO2 ', 87.10D0 / DATA CHEMISTRY_SPC( 20 ), SPECIES_MOLWT( 20 ) / 'PAN ', 121.00D0 / DATA CHEMISTRY_SPC( 21 ), SPECIES_MOLWT( 21 ) / 'PACD ', 76.00D0 / DATA CHEMISTRY_SPC( 22 ), SPECIES_MOLWT( 22 ) / 'AACD ', 60.00D0 / DATA CHEMISTRY_SPC( 23 ), SPECIES_MOLWT( 23 ) / 'CXO3 ', 89.00D0 / DATA CHEMISTRY_SPC( 24 ), SPECIES_MOLWT( 24 ) / 'ALD2 ', 44.00D0 / DATA CHEMISTRY_SPC( 25 ), SPECIES_MOLWT( 25 ) / 'XO2H ', 87.10D0 / DATA CHEMISTRY_SPC( 26 ), SPECIES_MOLWT( 26 ) / 'PANX ', 135.00D0 / DATA CHEMISTRY_SPC( 27 ), SPECIES_MOLWT( 27 ) / 'FORM ', 30.00D0 / DATA CHEMISTRY_SPC( 28 ), SPECIES_MOLWT( 28 ) / 'MEPX ', 48.00D0 / DATA CHEMISTRY_SPC( 29 ), SPECIES_MOLWT( 29 ) / 'MEOH ', 32.00D0 / DATA CHEMISTRY_SPC( 30 ), SPECIES_MOLWT( 30 ) / 'ROOH ', 90.10D0 / DATA CHEMISTRY_SPC( 31 ), SPECIES_MOLWT( 31 ) / 'XO2 ', 87.10D0 / DATA CHEMISTRY_SPC( 32 ), SPECIES_MOLWT( 32 ) / 'XO2N ', 87.10D0 / DATA CHEMISTRY_SPC( 33 ), SPECIES_MOLWT( 33 ) / 'NTR1 ', 119.10D0 / DATA CHEMISTRY_SPC( 34 ), SPECIES_MOLWT( 34 ) / 'NTR2 ', 135.10D0 / DATA CHEMISTRY_SPC( 35 ), SPECIES_MOLWT( 35 ) / 'FACD ', 46.00D0 / DATA CHEMISTRY_SPC( 36 ), SPECIES_MOLWT( 36 ) / 'CO ', 28.00D0 / DATA CHEMISTRY_SPC( 37 ), SPECIES_MOLWT( 37 ) / 'HCO3 ', 63.00D0 / DATA CHEMISTRY_SPC( 38 ), SPECIES_MOLWT( 38 ) / 'ALDX ', 58.10D0 / DATA CHEMISTRY_SPC( 39 ), SPECIES_MOLWT( 39 ) / 'GLYD ', 60.00D0 / DATA CHEMISTRY_SPC( 40 ), SPECIES_MOLWT( 40 ) / 'GLY ', 58.00D0 / DATA CHEMISTRY_SPC( 41 ), SPECIES_MOLWT( 41 ) / 'MGLY ', 72.00D0 / DATA CHEMISTRY_SPC( 42 ), SPECIES_MOLWT( 42 ) / 'ETHA ', 30.10D0 / DATA CHEMISTRY_SPC( 43 ), SPECIES_MOLWT( 43 ) / 'ETOH ', 46.10D0 / DATA CHEMISTRY_SPC( 44 ), SPECIES_MOLWT( 44 ) / 'KET ', 72.10D0 / DATA CHEMISTRY_SPC( 45 ), SPECIES_MOLWT( 45 ) / 'PAR ', 14.00D0 / DATA CHEMISTRY_SPC( 46 ), SPECIES_MOLWT( 46 ) / 'ACET ', 58.10D0 / DATA CHEMISTRY_SPC( 47 ), SPECIES_MOLWT( 47 ) / 'PRPA ', 44.10D0 / DATA CHEMISTRY_SPC( 48 ), SPECIES_MOLWT( 48 ) / 'XPRP ', 89.10D0 / DATA CHEMISTRY_SPC( 49 ), SPECIES_MOLWT( 49 ) / 'XPAR ', 45.00D0 / DATA CHEMISTRY_SPC( 50 ), SPECIES_MOLWT( 50 ) / 'ROR ', 29.00D0 / DATA CHEMISTRY_SPC( 51 ), SPECIES_MOLWT( 51 ) / 'ETHY ', 26.00D0 / DATA CHEMISTRY_SPC( 52 ), SPECIES_MOLWT( 52 ) / 'ETH ', 28.00D0 / DATA CHEMISTRY_SPC( 53 ), SPECIES_MOLWT( 53 ) / 'OLE ', 42.10D0 / DATA CHEMISTRY_SPC( 54 ), SPECIES_MOLWT( 54 ) / 'IOLE ', 56.10D0 / DATA CHEMISTRY_SPC( 55 ), SPECIES_MOLWT( 55 ) / 'ISOP ', 68.10D0 / DATA CHEMISTRY_SPC( 56 ), SPECIES_MOLWT( 56 ) / 'ISO2 ', 117.10D0 / DATA CHEMISTRY_SPC( 57 ), SPECIES_MOLWT( 57 ) / 'ISOPRXN ', 68.10D0 / DATA CHEMISTRY_SPC( 58 ), SPECIES_MOLWT( 58 ) / 'ISPD ', 70.10D0 / DATA CHEMISTRY_SPC( 59 ), SPECIES_MOLWT( 59 ) / 'INTR ', 147.10D0 / DATA CHEMISTRY_SPC( 60 ), SPECIES_MOLWT( 60 ) / 'ISPX ', 118.10D0 / DATA CHEMISTRY_SPC( 61 ), SPECIES_MOLWT( 61 ) / 'HPLD ', 116.10D0 / DATA CHEMISTRY_SPC( 62 ), SPECIES_MOLWT( 62 ) / 'OPO3 ', 115.00D0 / DATA CHEMISTRY_SPC( 63 ), SPECIES_MOLWT( 63 ) / 'EPOX ', 118.10D0 / DATA CHEMISTRY_SPC( 64 ), SPECIES_MOLWT( 64 ) / 'EPX2 ', 149.10D0 / DATA CHEMISTRY_SPC( 65 ), SPECIES_MOLWT( 65 ) / 'TERP ', 136.20D0 / DATA CHEMISTRY_SPC( 66 ), SPECIES_MOLWT( 66 ) / 'TRPRXN ', 136.20D0 / DATA CHEMISTRY_SPC( 67 ), SPECIES_MOLWT( 67 ) / 'TERPNRO2 ', 197.00D0 / DATA CHEMISTRY_SPC( 68 ), SPECIES_MOLWT( 68 ) / 'APIN ', 136.20D0 / DATA CHEMISTRY_SPC( 69 ), SPECIES_MOLWT( 69 ) / 'BENZENE ', 78.10D0 / DATA CHEMISTRY_SPC( 70 ), SPECIES_MOLWT( 70 ) / 'CRES ', 108.10D0 / DATA CHEMISTRY_SPC( 71 ), SPECIES_MOLWT( 71 ) / 'BZO2 ', 159.10D0 / DATA CHEMISTRY_SPC( 72 ), SPECIES_MOLWT( 72 ) / 'OPEN ', 84.00D0 / DATA CHEMISTRY_SPC( 73 ), SPECIES_MOLWT( 73 ) / 'BENZRO2 ', 127.00D0 / DATA CHEMISTRY_SPC( 74 ), SPECIES_MOLWT( 74 ) / 'TOL ', 92.10D0 / DATA CHEMISTRY_SPC( 75 ), SPECIES_MOLWT( 75 ) / 'TO2 ', 173.10D0 / DATA CHEMISTRY_SPC( 76 ), SPECIES_MOLWT( 76 ) / 'TOLRO2 ', 141.00D0 / DATA CHEMISTRY_SPC( 77 ), SPECIES_MOLWT( 77 ) / 'XOPN ', 98.10D0 / DATA CHEMISTRY_SPC( 78 ), SPECIES_MOLWT( 78 ) / 'XYLMN ', 106.20D0 / DATA CHEMISTRY_SPC( 79 ), SPECIES_MOLWT( 79 ) / 'XLO2 ', 187.10D0 / DATA CHEMISTRY_SPC( 80 ), SPECIES_MOLWT( 80 ) / 'XYLRO2 ', 155.00D0 / DATA CHEMISTRY_SPC( 81 ), SPECIES_MOLWT( 81 ) / 'NAPH ', 128.20D0 / DATA CHEMISTRY_SPC( 82 ), SPECIES_MOLWT( 82 ) / 'PAHRO2 ', 187.20D0 / DATA CHEMISTRY_SPC( 83 ), SPECIES_MOLWT( 83 ) / 'CRO ', 107.10D0 / DATA CHEMISTRY_SPC( 84 ), SPECIES_MOLWT( 84 ) / 'CAT1 ', 124.10D0 / DATA CHEMISTRY_SPC( 85 ), SPECIES_MOLWT( 85 ) / 'CRON ', 153.10D0 / DATA CHEMISTRY_SPC( 86 ), SPECIES_MOLWT( 86 ) / 'OPAN ', 161.00D0 / DATA CHEMISTRY_SPC( 87 ), SPECIES_MOLWT( 87 ) / 'ECH4 ', 16.00D0 / DATA CHEMISTRY_SPC( 88 ), SPECIES_MOLWT( 88 ) / 'CL2 ', 71.00D0 / DATA CHEMISTRY_SPC( 89 ), SPECIES_MOLWT( 89 ) / 'CL ', 35.50D0 / DATA CHEMISTRY_SPC( 90 ), SPECIES_MOLWT( 90 ) / 'HOCL ', 52.50D0 / DATA CHEMISTRY_SPC( 91 ), SPECIES_MOLWT( 91 ) / 'CLO ', 51.50D0 / DATA CHEMISTRY_SPC( 92 ), SPECIES_MOLWT( 92 ) / 'FMCL ', 64.50D0 / DATA CHEMISTRY_SPC( 93 ), SPECIES_MOLWT( 93 ) / 'HCL ', 36.50D0 / DATA CHEMISTRY_SPC( 94 ), SPECIES_MOLWT( 94 ) / 'CLNO2 ', 81.50D0 / DATA CHEMISTRY_SPC( 95 ), SPECIES_MOLWT( 95 ) / 'CLNO3 ', 97.50D0 / DATA CHEMISTRY_SPC( 96 ), SPECIES_MOLWT( 96 ) / 'SVAVB2 ', 179.00D0 / DATA CHEMISTRY_SPC( 97 ), SPECIES_MOLWT( 97 ) / 'SVAVB3 ', 169.00D0 / DATA CHEMISTRY_SPC( 98 ), SPECIES_MOLWT( 98 ) / 'SVAVB4 ', 158.00D0 / DATA CHEMISTRY_SPC( 99 ), SPECIES_MOLWT( 99 ) / 'SVAVB1 ', 198.00D0 / DATA CHEMISTRY_SPC( 100 ), SPECIES_MOLWT( 100 ) / 'SESQ ', 204.00D0 / DATA CHEMISTRY_SPC( 101 ), SPECIES_MOLWT( 101 ) / 'SESQRXN ', 204.00D0 / DATA CHEMISTRY_SPC( 102 ), SPECIES_MOLWT( 102 ) / 'SOAALK ', 112.00D0 / DATA CHEMISTRY_SPC( 103 ), SPECIES_MOLWT( 103 ) / 'H2NO3PIJ ', 64.00D0 / DATA CHEMISTRY_SPC( 104 ), SPECIES_MOLWT( 104 ) / 'H2NO3PK ', 64.00D0 / DATA CHEMISTRY_SPC( 105 ), SPECIES_MOLWT( 105 ) / 'ACLI ', 35.50D0 / DATA CHEMISTRY_SPC( 106 ), SPECIES_MOLWT( 106 ) / 'ACLJ ', 35.50D0 / DATA CHEMISTRY_SPC( 107 ), SPECIES_MOLWT( 107 ) / 'ACLK ', 35.50D0 / DATA CHEMISTRY_SPC( 108 ), SPECIES_MOLWT( 108 ) / 'IEPOXP ', 118.10D0 / DATA CHEMISTRY_SPC( 109 ), SPECIES_MOLWT( 109 ) / 'ASO4J ', 96.00D0 / DATA CHEMISTRY_SPC( 110 ), SPECIES_MOLWT( 110 ) / 'AISO3J ', 168.20D0 / DATA CHEMISTRY_SPC( 111 ), SPECIES_MOLWT( 111 ) / 'AGLYJ ', 66.40D0 / DATA CHEMISTRY_SPC( 112 ), SPECIES_MOLWT( 112 ) / 'MTNO3 ', 231.00D0 / DATA CHEMISTRY_SPC( 113 ), SPECIES_MOLWT( 113 ) / 'AMTNO3J ', 231.00D0 / DATA CHEMISTRY_SPC( 114 ), SPECIES_MOLWT( 114 ) / 'AMTHYDJ ', 168.00D0 / DATA CHEMISTRY_SPC( 115 ), SPECIES_MOLWT( 115 ) / 'AAVB2J ', 179.00D0 / DATA CHEMISTRY_SPC( 116 ), SPECIES_MOLWT( 116 ) / 'AOLGAJ ', 206.00D0 / DATA CHEMISTRY_SPC( 117 ), SPECIES_MOLWT( 117 ) / 'AAVB3J ', 169.00D0 / DATA CHEMISTRY_SPC( 118 ), SPECIES_MOLWT( 118 ) / 'AAVB4J ', 158.00D0 / DATA CHEMISTRY_SPC( 119 ), SPECIES_MOLWT( 119 ) / 'AISO1J ', 132.00D0 / DATA CHEMISTRY_SPC( 120 ), SPECIES_MOLWT( 120 ) / 'AOLGBJ ', 248.00D0 / DATA CHEMISTRY_SPC( 121 ), SPECIES_MOLWT( 121 ) / 'AISO2J ', 133.00D0 / DATA CHEMISTRY_SPC( 122 ), SPECIES_MOLWT( 122 ) / 'ASQTJ ', 273.00D0 / DATA CHEMISTRY_SPC( 123 ), SPECIES_MOLWT( 123 ) / 'APOCI ', 220.00D0 / DATA CHEMISTRY_SPC( 124 ), SPECIES_MOLWT( 124 ) / 'APNCOMI ', 220.00D0 / DATA CHEMISTRY_SPC( 125 ), SPECIES_MOLWT( 125 ) / 'APOCJ ', 220.00D0 / DATA CHEMISTRY_SPC( 126 ), SPECIES_MOLWT( 126 ) / 'APNCOMJ ', 220.00D0 / DATA CHEMISTRY_SPC( 127 ), SPECIES_MOLWT( 127 ) / 'PCVOC ', 170.00D0 / DATA CHEMISTRY_SPC( 128 ), SPECIES_MOLWT( 128 ) / 'PCSOARXN ', 170.00D0 / DATA CHEMISTRY_SPC( 129 ), SPECIES_MOLWT( 129 ) / 'VLVPO1 ', 218.00D0 / DATA CHEMISTRY_SPC( 130 ), SPECIES_MOLWT( 130 ) / 'VSVPO1 ', 230.00D0 / DATA CHEMISTRY_SPC( 131 ), SPECIES_MOLWT( 131 ) / 'VSVPO2 ', 241.00D0 / DATA CHEMISTRY_SPC( 132 ), SPECIES_MOLWT( 132 ) / 'VSVPO3 ', 253.00D0 / DATA CHEMISTRY_SPC( 133 ), SPECIES_MOLWT( 133 ) / 'VIVPO1 ', 266.00D0 / DATA CHEMISTRY_SPC( 134 ), SPECIES_MOLWT( 134 ) / 'VLVOO1 ', 136.00D0 / DATA CHEMISTRY_SPC( 135 ), SPECIES_MOLWT( 135 ) / 'VLVOO2 ', 136.00D0 / DATA CHEMISTRY_SPC( 136 ), SPECIES_MOLWT( 136 ) / 'VSVOO2 ', 135.00D0 / DATA CHEMISTRY_SPC( 137 ), SPECIES_MOLWT( 137 ) / 'VSVOO3 ', 134.00D0 / DATA CHEMISTRY_SPC( 138 ), SPECIES_MOLWT( 138 ) / 'VSVOO1 ', 135.00D0 / DATA CHEMISTRY_SPC( 139 ), SPECIES_MOLWT( 139 ) / 'FORM_PRIMARY ', 30.00D0 / DATA CHEMISTRY_SPC( 140 ), SPECIES_MOLWT( 140 ) / 'ALD2_PRIMARY ', 44.00D0 / DATA CHEMISTRY_SPC( 141 ), SPECIES_MOLWT( 141 ) / 'BUTADIENE13 ', 54.00D0 / DATA CHEMISTRY_SPC( 142 ), SPECIES_MOLWT( 142 ) / 'ACROLEIN ', 56.10D0 / DATA CHEMISTRY_SPC( 143 ), SPECIES_MOLWT( 143 ) / 'ACRO_PRIMARY ', 56.10D0 / DATA CHEMISTRY_SPC( 144 ), SPECIES_MOLWT( 144 ) / 'TOLU ', 92.00D0 / DATA CHEMISTRY_SPC( 145 ), SPECIES_MOLWT( 145 ) / 'HG ', 200.60D0 / DATA CHEMISTRY_SPC( 146 ), SPECIES_MOLWT( 146 ) / 'HGIIAER ', 200.60D0 / DATA CHEMISTRY_SPC( 147 ), SPECIES_MOLWT( 147 ) / 'HGIIGAS ', 271.50D0 / DATA CHEMISTRY_SPC( 148 ), SPECIES_MOLWT( 148 ) / 'DMS ', 62.00D0 / DATA CHEMISTRY_SPC( 149 ), SPECIES_MOLWT( 149 ) / 'MSA ', 96.00D0 / DATA CGRID_INDEX( 1 ), SPECIES_TYPE( 1 ), CONVERT_CONC( 1 ) / 1, 'GC', F / ! NO2 DATA CGRID_INDEX( 2 ), SPECIES_TYPE( 2 ), CONVERT_CONC( 2 ) / 2, 'GC', F / ! NO DATA CGRID_INDEX( 3 ), SPECIES_TYPE( 3 ), CONVERT_CONC( 3 ) / 3, 'GC', F / ! O DATA CGRID_INDEX( 4 ), SPECIES_TYPE( 4 ), CONVERT_CONC( 4 ) / 4, 'GC', F / ! O3 DATA CGRID_INDEX( 5 ), SPECIES_TYPE( 5 ), CONVERT_CONC( 5 ) / 5, 'GC', F / ! NO3 DATA CGRID_INDEX( 6 ), SPECIES_TYPE( 6 ), CONVERT_CONC( 6 ) / 6, 'GC', F / ! O1D DATA CGRID_INDEX( 7 ), SPECIES_TYPE( 7 ), CONVERT_CONC( 7 ) / 7, 'GC', F / ! OH DATA CGRID_INDEX( 8 ), SPECIES_TYPE( 8 ), CONVERT_CONC( 8 ) / 8, 'GC', F / ! HO2 DATA CGRID_INDEX( 9 ), SPECIES_TYPE( 9 ), CONVERT_CONC( 9 ) / 9, 'GC', F / ! H2O2 DATA CGRID_INDEX( 10 ), SPECIES_TYPE( 10 ), CONVERT_CONC( 10 ) / 10, 'GC', F / ! N2O5 DATA CGRID_INDEX( 11 ), SPECIES_TYPE( 11 ), CONVERT_CONC( 11 ) / 11, 'GC', F / ! HNO3 DATA CGRID_INDEX( 12 ), SPECIES_TYPE( 12 ), CONVERT_CONC( 12 ) / 12, 'GC', F / ! HONO DATA CGRID_INDEX( 13 ), SPECIES_TYPE( 13 ), CONVERT_CONC( 13 ) / 13, 'GC', F / ! PNA DATA CGRID_INDEX( 14 ), SPECIES_TYPE( 14 ), CONVERT_CONC( 14 ) / 14, 'GC', F / ! SO2 DATA CGRID_INDEX( 15 ), SPECIES_TYPE( 15 ), CONVERT_CONC( 15 ) / 15, 'GC', F / ! SULF DATA CGRID_INDEX( 16 ), SPECIES_TYPE( 16 ), CONVERT_CONC( 16 ) / 16, 'GC', F / ! SULRXN DATA CGRID_INDEX( 17 ), SPECIES_TYPE( 17 ), CONVERT_CONC( 17 ) / 17, 'GC', F / ! C2O3 DATA CGRID_INDEX( 18 ), SPECIES_TYPE( 18 ), CONVERT_CONC( 18 ) / 18, 'GC', F / ! MEO2 DATA CGRID_INDEX( 19 ), SPECIES_TYPE( 19 ), CONVERT_CONC( 19 ) / 19, 'GC', F / ! RO2 DATA CGRID_INDEX( 20 ), SPECIES_TYPE( 20 ), CONVERT_CONC( 20 ) / 20, 'GC', F / ! PAN DATA CGRID_INDEX( 21 ), SPECIES_TYPE( 21 ), CONVERT_CONC( 21 ) / 21, 'GC', F / ! PACD DATA CGRID_INDEX( 22 ), SPECIES_TYPE( 22 ), CONVERT_CONC( 22 ) / 22, 'GC', F / ! AACD DATA CGRID_INDEX( 23 ), SPECIES_TYPE( 23 ), CONVERT_CONC( 23 ) / 23, 'GC', F / ! CXO3 DATA CGRID_INDEX( 24 ), SPECIES_TYPE( 24 ), CONVERT_CONC( 24 ) / 24, 'GC', F / ! ALD2 DATA CGRID_INDEX( 25 ), SPECIES_TYPE( 25 ), CONVERT_CONC( 25 ) / 25, 'GC', F / ! XO2H DATA CGRID_INDEX( 26 ), SPECIES_TYPE( 26 ), CONVERT_CONC( 26 ) / 26, 'GC', F / ! PANX DATA CGRID_INDEX( 27 ), SPECIES_TYPE( 27 ), CONVERT_CONC( 27 ) / 27, 'GC', F / ! FORM DATA CGRID_INDEX( 28 ), SPECIES_TYPE( 28 ), CONVERT_CONC( 28 ) / 28, 'GC', F / ! MEPX DATA CGRID_INDEX( 29 ), SPECIES_TYPE( 29 ), CONVERT_CONC( 29 ) / 29, 'GC', F / ! MEOH DATA CGRID_INDEX( 30 ), SPECIES_TYPE( 30 ), CONVERT_CONC( 30 ) / 30, 'GC', F / ! ROOH DATA CGRID_INDEX( 31 ), SPECIES_TYPE( 31 ), CONVERT_CONC( 31 ) / 31, 'GC', F / ! XO2 DATA CGRID_INDEX( 32 ), SPECIES_TYPE( 32 ), CONVERT_CONC( 32 ) / 32, 'GC', F / ! XO2N DATA CGRID_INDEX( 33 ), SPECIES_TYPE( 33 ), CONVERT_CONC( 33 ) / 35, 'GC', F / ! NTR1 DATA CGRID_INDEX( 34 ), SPECIES_TYPE( 34 ), CONVERT_CONC( 34 ) / 36, 'GC', F / ! NTR2 DATA CGRID_INDEX( 35 ), SPECIES_TYPE( 35 ), CONVERT_CONC( 35 ) / 37, 'GC', F / ! FACD DATA CGRID_INDEX( 36 ), SPECIES_TYPE( 36 ), CONVERT_CONC( 36 ) / 38, 'GC', F / ! CO DATA CGRID_INDEX( 37 ), SPECIES_TYPE( 37 ), CONVERT_CONC( 37 ) / 39, 'GC', F / ! HCO3 DATA CGRID_INDEX( 38 ), SPECIES_TYPE( 38 ), CONVERT_CONC( 38 ) / 40, 'GC', F / ! ALDX DATA CGRID_INDEX( 39 ), SPECIES_TYPE( 39 ), CONVERT_CONC( 39 ) / 41, 'GC', F / ! GLYD DATA CGRID_INDEX( 40 ), SPECIES_TYPE( 40 ), CONVERT_CONC( 40 ) / 42, 'GC', F / ! GLY DATA CGRID_INDEX( 41 ), SPECIES_TYPE( 41 ), CONVERT_CONC( 41 ) / 43, 'GC', F / ! MGLY DATA CGRID_INDEX( 42 ), SPECIES_TYPE( 42 ), CONVERT_CONC( 42 ) / 44, 'GC', F / ! ETHA DATA CGRID_INDEX( 43 ), SPECIES_TYPE( 43 ), CONVERT_CONC( 43 ) / 45, 'GC', F / ! ETOH DATA CGRID_INDEX( 44 ), SPECIES_TYPE( 44 ), CONVERT_CONC( 44 ) / 46, 'GC', F / ! KET DATA CGRID_INDEX( 45 ), SPECIES_TYPE( 45 ), CONVERT_CONC( 45 ) / 47, 'GC', F / ! PAR DATA CGRID_INDEX( 46 ), SPECIES_TYPE( 46 ), CONVERT_CONC( 46 ) / 48, 'GC', F / ! ACET DATA CGRID_INDEX( 47 ), SPECIES_TYPE( 47 ), CONVERT_CONC( 47 ) / 49, 'GC', F / ! PRPA DATA CGRID_INDEX( 48 ), SPECIES_TYPE( 48 ), CONVERT_CONC( 48 ) / 34, 'GC', F / ! XPRP DATA CGRID_INDEX( 49 ), SPECIES_TYPE( 49 ), CONVERT_CONC( 49 ) / 33, 'GC', F / ! XPAR DATA CGRID_INDEX( 50 ), SPECIES_TYPE( 50 ), CONVERT_CONC( 50 ) / 50, 'GC', F / ! ROR DATA CGRID_INDEX( 51 ), SPECIES_TYPE( 51 ), CONVERT_CONC( 51 ) / 51, 'GC', F / ! ETHY DATA CGRID_INDEX( 52 ), SPECIES_TYPE( 52 ), CONVERT_CONC( 52 ) / 52, 'GC', F / ! ETH DATA CGRID_INDEX( 53 ), SPECIES_TYPE( 53 ), CONVERT_CONC( 53 ) / 53, 'GC', F / ! OLE DATA CGRID_INDEX( 54 ), SPECIES_TYPE( 54 ), CONVERT_CONC( 54 ) / 54, 'GC', F / ! IOLE DATA CGRID_INDEX( 55 ), SPECIES_TYPE( 55 ), CONVERT_CONC( 55 ) / 55, 'GC', F / ! ISOP DATA CGRID_INDEX( 56 ), SPECIES_TYPE( 56 ), CONVERT_CONC( 56 ) / 56, 'GC', F / ! ISO2 DATA CGRID_INDEX( 57 ), SPECIES_TYPE( 57 ), CONVERT_CONC( 57 ) / 57, 'GC', F / ! ISOPRXN DATA CGRID_INDEX( 58 ), SPECIES_TYPE( 58 ), CONVERT_CONC( 58 ) / 58, 'GC', F / ! ISPD DATA CGRID_INDEX( 59 ), SPECIES_TYPE( 59 ), CONVERT_CONC( 59 ) / 59, 'GC', F / ! INTR DATA CGRID_INDEX( 60 ), SPECIES_TYPE( 60 ), CONVERT_CONC( 60 ) / 60, 'GC', F / ! ISPX DATA CGRID_INDEX( 61 ), SPECIES_TYPE( 61 ), CONVERT_CONC( 61 ) / 61, 'GC', F / ! HPLD DATA CGRID_INDEX( 62 ), SPECIES_TYPE( 62 ), CONVERT_CONC( 62 ) / 62, 'GC', F / ! OPO3 DATA CGRID_INDEX( 63 ), SPECIES_TYPE( 63 ), CONVERT_CONC( 63 ) / 63, 'GC', F / ! EPOX DATA CGRID_INDEX( 64 ), SPECIES_TYPE( 64 ), CONVERT_CONC( 64 ) / 65, 'GC', F / ! EPX2 DATA CGRID_INDEX( 65 ), SPECIES_TYPE( 65 ), CONVERT_CONC( 65 ) / 66, 'GC', F / ! TERP DATA CGRID_INDEX( 66 ), SPECIES_TYPE( 66 ), CONVERT_CONC( 66 ) / 70, 'GC', F / ! TRPRXN DATA CGRID_INDEX( 67 ), SPECIES_TYPE( 67 ), CONVERT_CONC( 67 ) / 68, 'GC', F / ! TERPNRO2 DATA CGRID_INDEX( 68 ), SPECIES_TYPE( 68 ), CONVERT_CONC( 68 ) / 67, 'GC', F / ! APIN DATA CGRID_INDEX( 69 ), SPECIES_TYPE( 69 ), CONVERT_CONC( 69 ) / 71, 'GC', F / ! BENZENE DATA CGRID_INDEX( 70 ), SPECIES_TYPE( 70 ), CONVERT_CONC( 70 ) / 72, 'GC', F / ! CRES DATA CGRID_INDEX( 71 ), SPECIES_TYPE( 71 ), CONVERT_CONC( 71 ) / 73, 'GC', F / ! BZO2 DATA CGRID_INDEX( 72 ), SPECIES_TYPE( 72 ), CONVERT_CONC( 72 ) / 74, 'GC', F / ! OPEN DATA CGRID_INDEX( 73 ), SPECIES_TYPE( 73 ), CONVERT_CONC( 73 ) / 75, 'GC', F / ! BENZRO2 DATA CGRID_INDEX( 74 ), SPECIES_TYPE( 74 ), CONVERT_CONC( 74 ) / 76, 'GC', F / ! TOL DATA CGRID_INDEX( 75 ), SPECIES_TYPE( 75 ), CONVERT_CONC( 75 ) / 77, 'GC', F / ! TO2 DATA CGRID_INDEX( 76 ), SPECIES_TYPE( 76 ), CONVERT_CONC( 76 ) / 78, 'GC', F / ! TOLRO2 DATA CGRID_INDEX( 77 ), SPECIES_TYPE( 77 ), CONVERT_CONC( 77 ) / 79, 'GC', F / ! XOPN DATA CGRID_INDEX( 78 ), SPECIES_TYPE( 78 ), CONVERT_CONC( 78 ) / 80, 'GC', F / ! XYLMN DATA CGRID_INDEX( 79 ), SPECIES_TYPE( 79 ), CONVERT_CONC( 79 ) / 81, 'GC', F / ! XLO2 DATA CGRID_INDEX( 80 ), SPECIES_TYPE( 80 ), CONVERT_CONC( 80 ) / 82, 'GC', F / ! XYLRO2 DATA CGRID_INDEX( 81 ), SPECIES_TYPE( 81 ), CONVERT_CONC( 81 ) / 83, 'GC', F / ! NAPH DATA CGRID_INDEX( 82 ), SPECIES_TYPE( 82 ), CONVERT_CONC( 82 ) / 84, 'GC', F / ! PAHRO2 DATA CGRID_INDEX( 83 ), SPECIES_TYPE( 83 ), CONVERT_CONC( 83 ) / 85, 'GC', F / ! CRO DATA CGRID_INDEX( 84 ), SPECIES_TYPE( 84 ), CONVERT_CONC( 84 ) / 86, 'GC', F / ! CAT1 DATA CGRID_INDEX( 85 ), SPECIES_TYPE( 85 ), CONVERT_CONC( 85 ) / 87, 'GC', F / ! CRON DATA CGRID_INDEX( 86 ), SPECIES_TYPE( 86 ), CONVERT_CONC( 86 ) / 88, 'GC', F / ! OPAN DATA CGRID_INDEX( 87 ), SPECIES_TYPE( 87 ), CONVERT_CONC( 87 ) / 89, 'GC', F / ! ECH4 DATA CGRID_INDEX( 88 ), SPECIES_TYPE( 88 ), CONVERT_CONC( 88 ) / 90, 'GC', F / ! CL2 DATA CGRID_INDEX( 89 ), SPECIES_TYPE( 89 ), CONVERT_CONC( 89 ) / 91, 'GC', F / ! CL DATA CGRID_INDEX( 90 ), SPECIES_TYPE( 90 ), CONVERT_CONC( 90 ) / 92, 'GC', F / ! HOCL DATA CGRID_INDEX( 91 ), SPECIES_TYPE( 91 ), CONVERT_CONC( 91 ) / 93, 'GC', F / ! CLO DATA CGRID_INDEX( 92 ), SPECIES_TYPE( 92 ), CONVERT_CONC( 92 ) / 94, 'GC', F / ! FMCL DATA CGRID_INDEX( 93 ), SPECIES_TYPE( 93 ), CONVERT_CONC( 93 ) / 95, 'GC', F / ! HCL DATA CGRID_INDEX( 94 ), SPECIES_TYPE( 94 ), CONVERT_CONC( 94 ) / 96, 'GC', F / ! CLNO2 DATA CGRID_INDEX( 95 ), SPECIES_TYPE( 95 ), CONVERT_CONC( 95 ) / 97, 'GC', F / ! CLNO3 DATA CGRID_INDEX( 96 ), SPECIES_TYPE( 96 ), CONVERT_CONC( 96 ) / 125, 'GC', F / ! SVAVB2 DATA CGRID_INDEX( 97 ), SPECIES_TYPE( 97 ), CONVERT_CONC( 97 ) / 126, 'GC', F / ! SVAVB3 DATA CGRID_INDEX( 98 ), SPECIES_TYPE( 98 ), CONVERT_CONC( 98 ) / 127, 'GC', F / ! SVAVB4 DATA CGRID_INDEX( 99 ), SPECIES_TYPE( 99 ), CONVERT_CONC( 99 ) / 124, 'GC', F / ! SVAVB1 DATA CGRID_INDEX( 100 ), SPECIES_TYPE( 100 ), CONVERT_CONC( 100 ) / 98, 'GC', F / ! SESQ DATA CGRID_INDEX( 101 ), SPECIES_TYPE( 101 ), CONVERT_CONC( 101 ) / 99, 'GC', F / ! SESQRXN DATA CGRID_INDEX( 102 ), SPECIES_TYPE( 102 ), CONVERT_CONC( 102 ) / 100, 'GC', F / ! SOAALK DATA CGRID_INDEX( 103 ), SPECIES_TYPE( 103 ), CONVERT_CONC( 103 ) / 101, 'GC', F / ! H2NO3PIJ DATA CGRID_INDEX( 104 ), SPECIES_TYPE( 104 ), CONVERT_CONC( 104 ) / 102, 'GC', F / ! H2NO3PK DATA CGRID_INDEX( 105 ), SPECIES_TYPE( 105 ), CONVERT_CONC( 105 ) / 142, 'AE', T / ! ACLI DATA CGRID_INDEX( 106 ), SPECIES_TYPE( 106 ), CONVERT_CONC( 106 ) / 143, 'AE', T / ! ACLJ DATA CGRID_INDEX( 107 ), SPECIES_TYPE( 107 ), CONVERT_CONC( 107 ) / 144, 'AE', T / ! ACLK DATA CGRID_INDEX( 108 ), SPECIES_TYPE( 108 ), CONVERT_CONC( 108 ) / 64, 'GC', F / ! IEPOXP DATA CGRID_INDEX( 109 ), SPECIES_TYPE( 109 ), CONVERT_CONC( 109 ) / 132, 'AE', T / ! ASO4J DATA CGRID_INDEX( 110 ), SPECIES_TYPE( 110 ), CONVERT_CONC( 110 ) / 177, 'AE', T / ! AISO3J DATA CGRID_INDEX( 111 ), SPECIES_TYPE( 111 ), CONVERT_CONC( 111 ) / 180, 'AE', T / ! AGLYJ DATA CGRID_INDEX( 112 ), SPECIES_TYPE( 112 ), CONVERT_CONC( 112 ) / 69, 'GC', F / ! MTNO3 DATA CGRID_INDEX( 113 ), SPECIES_TYPE( 113 ), CONVERT_CONC( 113 ) / 181, 'AE', T / ! AMTNO3J DATA CGRID_INDEX( 114 ), SPECIES_TYPE( 114 ), CONVERT_CONC( 114 ) / 182, 'AE', T / ! AMTHYDJ DATA CGRID_INDEX( 115 ), SPECIES_TYPE( 115 ), CONVERT_CONC( 115 ) / 206, 'AE', T / ! AAVB2J DATA CGRID_INDEX( 116 ), SPECIES_TYPE( 116 ), CONVERT_CONC( 116 ) / 178, 'AE', T / ! AOLGAJ DATA CGRID_INDEX( 117 ), SPECIES_TYPE( 117 ), CONVERT_CONC( 117 ) / 207, 'AE', T / ! AAVB3J DATA CGRID_INDEX( 118 ), SPECIES_TYPE( 118 ), CONVERT_CONC( 118 ) / 208, 'AE', T / ! AAVB4J DATA CGRID_INDEX( 119 ), SPECIES_TYPE( 119 ), CONVERT_CONC( 119 ) / 145, 'AE', T / ! AISO1J DATA CGRID_INDEX( 120 ), SPECIES_TYPE( 120 ), CONVERT_CONC( 120 ) / 179, 'AE', T / ! AOLGBJ DATA CGRID_INDEX( 121 ), SPECIES_TYPE( 121 ), CONVERT_CONC( 121 ) / 146, 'AE', T / ! AISO2J DATA CGRID_INDEX( 122 ), SPECIES_TYPE( 122 ), CONVERT_CONC( 122 ) / 147, 'AE', T / ! ASQTJ DATA CGRID_INDEX( 123 ), SPECIES_TYPE( 123 ), CONVERT_CONC( 123 ) / 183, 'AE', T / ! APOCI DATA CGRID_INDEX( 124 ), SPECIES_TYPE( 124 ), CONVERT_CONC( 124 ) / 185, 'AE', T / ! APNCOMI DATA CGRID_INDEX( 125 ), SPECIES_TYPE( 125 ), CONVERT_CONC( 125 ) / 184, 'AE', T / ! APOCJ DATA CGRID_INDEX( 126 ), SPECIES_TYPE( 126 ), CONVERT_CONC( 126 ) / 186, 'AE', T / ! APNCOMJ DATA CGRID_INDEX( 127 ), SPECIES_TYPE( 127 ), CONVERT_CONC( 127 ) / 113, 'GC', F / ! PCVOC DATA CGRID_INDEX( 128 ), SPECIES_TYPE( 128 ), CONVERT_CONC( 128 ) / 114, 'GC', F / ! PCSOARXN DATA CGRID_INDEX( 129 ), SPECIES_TYPE( 129 ), CONVERT_CONC( 129 ) / 103, 'GC', F / ! VLVPO1 DATA CGRID_INDEX( 130 ), SPECIES_TYPE( 130 ), CONVERT_CONC( 130 ) / 104, 'GC', F / ! VSVPO1 DATA CGRID_INDEX( 131 ), SPECIES_TYPE( 131 ), CONVERT_CONC( 131 ) / 105, 'GC', F / ! VSVPO2 DATA CGRID_INDEX( 132 ), SPECIES_TYPE( 132 ), CONVERT_CONC( 132 ) / 106, 'GC', F / ! VSVPO3 DATA CGRID_INDEX( 133 ), SPECIES_TYPE( 133 ), CONVERT_CONC( 133 ) / 107, 'GC', F / ! VIVPO1 DATA CGRID_INDEX( 134 ), SPECIES_TYPE( 134 ), CONVERT_CONC( 134 ) / 108, 'GC', F / ! VLVOO1 DATA CGRID_INDEX( 135 ), SPECIES_TYPE( 135 ), CONVERT_CONC( 135 ) / 109, 'GC', F / ! VLVOO2 DATA CGRID_INDEX( 136 ), SPECIES_TYPE( 136 ), CONVERT_CONC( 136 ) / 111, 'GC', F / ! VSVOO2 DATA CGRID_INDEX( 137 ), SPECIES_TYPE( 137 ), CONVERT_CONC( 137 ) / 112, 'GC', F / ! VSVOO3 DATA CGRID_INDEX( 138 ), SPECIES_TYPE( 138 ), CONVERT_CONC( 138 ) / 110, 'GC', F / ! VSVOO1 DATA CGRID_INDEX( 139 ), SPECIES_TYPE( 139 ), CONVERT_CONC( 139 ) / 115, 'GC', F / ! FORM_PRIMARY DATA CGRID_INDEX( 140 ), SPECIES_TYPE( 140 ), CONVERT_CONC( 140 ) / 116, 'GC', F / ! ALD2_PRIMARY DATA CGRID_INDEX( 141 ), SPECIES_TYPE( 141 ), CONVERT_CONC( 141 ) / 117, 'GC', F / ! BUTADIENE13 DATA CGRID_INDEX( 142 ), SPECIES_TYPE( 142 ), CONVERT_CONC( 142 ) / 118, 'GC', F / ! ACROLEIN DATA CGRID_INDEX( 143 ), SPECIES_TYPE( 143 ), CONVERT_CONC( 143 ) / 119, 'GC', F / ! ACRO_PRIMARY DATA CGRID_INDEX( 144 ), SPECIES_TYPE( 144 ), CONVERT_CONC( 144 ) / 120, 'GC', F / ! TOLU DATA CGRID_INDEX( 145 ), SPECIES_TYPE( 145 ), CONVERT_CONC( 145 ) / 121, 'GC', F / ! HG DATA CGRID_INDEX( 146 ), SPECIES_TYPE( 146 ), CONVERT_CONC( 146 ) / 122, 'GC', F / ! HGIIAER DATA CGRID_INDEX( 147 ), SPECIES_TYPE( 147 ), CONVERT_CONC( 147 ) / 123, 'GC', F / ! HGIIGAS DATA CGRID_INDEX( 148 ), SPECIES_TYPE( 148 ), CONVERT_CONC( 148 ) / 128, 'GC', F / ! DMS DATA CGRID_INDEX( 149 ), SPECIES_TYPE( 149 ), CONVERT_CONC( 149 ) / 129, 'GC', F / ! MSA ! The below integers define the locations of mechanism species in the solver ! concentration array. INTEGER :: INDEX_NO2 = 1 INTEGER :: INDEX_NO = 2 INTEGER :: INDEX_O = 3 INTEGER :: INDEX_O3 = 4 INTEGER :: INDEX_NO3 = 5 INTEGER :: INDEX_O1D = 6 INTEGER :: INDEX_OH = 7 INTEGER :: INDEX_HO2 = 8 INTEGER :: INDEX_H2O2 = 9 INTEGER :: INDEX_N2O5 = 10 INTEGER :: INDEX_HNO3 = 11 INTEGER :: INDEX_HONO = 12 INTEGER :: INDEX_PNA = 13 INTEGER :: INDEX_SO2 = 14 INTEGER :: INDEX_SULF = 15 INTEGER :: INDEX_SULRXN = 16 INTEGER :: INDEX_C2O3 = 17 INTEGER :: INDEX_MEO2 = 18 INTEGER :: INDEX_RO2 = 19 INTEGER :: INDEX_PAN = 20 INTEGER :: INDEX_PACD = 21 INTEGER :: INDEX_AACD = 22 INTEGER :: INDEX_CXO3 = 23 INTEGER :: INDEX_ALD2 = 24 INTEGER :: INDEX_XO2H = 25 INTEGER :: INDEX_PANX = 26 INTEGER :: INDEX_FORM = 27 INTEGER :: INDEX_MEPX = 28 INTEGER :: INDEX_MEOH = 29 INTEGER :: INDEX_ROOH = 30 INTEGER :: INDEX_XO2 = 31 INTEGER :: INDEX_XO2N = 32 INTEGER :: INDEX_NTR1 = 33 INTEGER :: INDEX_NTR2 = 34 INTEGER :: INDEX_FACD = 35 INTEGER :: INDEX_CO = 36 INTEGER :: INDEX_HCO3 = 37 INTEGER :: INDEX_ALDX = 38 INTEGER :: INDEX_GLYD = 39 INTEGER :: INDEX_GLY = 40 INTEGER :: INDEX_MGLY = 41 INTEGER :: INDEX_ETHA = 42 INTEGER :: INDEX_ETOH = 43 INTEGER :: INDEX_KET = 44 INTEGER :: INDEX_PAR = 45 INTEGER :: INDEX_ACET = 46 INTEGER :: INDEX_PRPA = 47 INTEGER :: INDEX_XPRP = 48 INTEGER :: INDEX_XPAR = 49 INTEGER :: INDEX_ROR = 50 INTEGER :: INDEX_ETHY = 51 INTEGER :: INDEX_ETH = 52 INTEGER :: INDEX_OLE = 53 INTEGER :: INDEX_IOLE = 54 INTEGER :: INDEX_ISOP = 55 INTEGER :: INDEX_ISO2 = 56 INTEGER :: INDEX_ISOPRXN = 57 INTEGER :: INDEX_ISPD = 58 INTEGER :: INDEX_INTR = 59 INTEGER :: INDEX_ISPX = 60 INTEGER :: INDEX_HPLD = 61 INTEGER :: INDEX_OPO3 = 62 INTEGER :: INDEX_EPOX = 63 INTEGER :: INDEX_EPX2 = 64 INTEGER :: INDEX_TERP = 65 INTEGER :: INDEX_TRPRXN = 66 INTEGER :: INDEX_TERPNRO2 = 67 INTEGER :: INDEX_APIN = 68 INTEGER :: INDEX_BENZENE = 69 INTEGER :: INDEX_CRES = 70 INTEGER :: INDEX_BZO2 = 71 INTEGER :: INDEX_OPEN = 72 INTEGER :: INDEX_BENZRO2 = 73 INTEGER :: INDEX_TOL = 74 INTEGER :: INDEX_TO2 = 75 INTEGER :: INDEX_TOLRO2 = 76 INTEGER :: INDEX_XOPN = 77 INTEGER :: INDEX_XYLMN = 78 INTEGER :: INDEX_XLO2 = 79 INTEGER :: INDEX_XYLRO2 = 80 INTEGER :: INDEX_NAPH = 81 INTEGER :: INDEX_PAHRO2 = 82 INTEGER :: INDEX_CRO = 83 INTEGER :: INDEX_CAT1 = 84 INTEGER :: INDEX_CRON = 85 INTEGER :: INDEX_OPAN = 86 INTEGER :: INDEX_ECH4 = 87 INTEGER :: INDEX_CL2 = 88 INTEGER :: INDEX_CL = 89 INTEGER :: INDEX_HOCL = 90 INTEGER :: INDEX_CLO = 91 INTEGER :: INDEX_FMCL = 92 INTEGER :: INDEX_HCL = 93 INTEGER :: INDEX_CLNO2 = 94 INTEGER :: INDEX_CLNO3 = 95 INTEGER :: INDEX_SVAVB2 = 96 INTEGER :: INDEX_SVAVB3 = 97 INTEGER :: INDEX_SVAVB4 = 98 INTEGER :: INDEX_SVAVB1 = 99 INTEGER :: INDEX_SESQ = 100 INTEGER :: INDEX_SESQRXN = 101 INTEGER :: INDEX_SOAALK = 102 INTEGER :: INDEX_H2NO3PIJ = 103 INTEGER :: INDEX_H2NO3PK = 104 INTEGER :: INDEX_ACLI = 105 INTEGER :: INDEX_ACLJ = 106 INTEGER :: INDEX_ACLK = 107 INTEGER :: INDEX_IEPOXP = 108 INTEGER :: INDEX_ASO4J = 109 INTEGER :: INDEX_AISO3J = 110 INTEGER :: INDEX_AGLYJ = 111 INTEGER :: INDEX_MTNO3 = 112 INTEGER :: INDEX_AMTNO3J = 113 INTEGER :: INDEX_AMTHYDJ = 114 INTEGER :: INDEX_AAVB2J = 115 INTEGER :: INDEX_AOLGAJ = 116 INTEGER :: INDEX_AAVB3J = 117 INTEGER :: INDEX_AAVB4J = 118 INTEGER :: INDEX_AISO1J = 119 INTEGER :: INDEX_AOLGBJ = 120 INTEGER :: INDEX_AISO2J = 121 INTEGER :: INDEX_ASQTJ = 122 INTEGER :: INDEX_APOCI = 123 INTEGER :: INDEX_APNCOMI = 124 INTEGER :: INDEX_APOCJ = 125 INTEGER :: INDEX_APNCOMJ = 126 INTEGER :: INDEX_PCVOC = 127 INTEGER :: INDEX_PCSOARXN = 128 INTEGER :: INDEX_VLVPO1 = 129 INTEGER :: INDEX_VSVPO1 = 130 INTEGER :: INDEX_VSVPO2 = 131 INTEGER :: INDEX_VSVPO3 = 132 INTEGER :: INDEX_VIVPO1 = 133 INTEGER :: INDEX_VLVOO1 = 134 INTEGER :: INDEX_VLVOO2 = 135 INTEGER :: INDEX_VSVOO2 = 136 INTEGER :: INDEX_VSVOO3 = 137 INTEGER :: INDEX_VSVOO1 = 138 INTEGER :: INDEX_FORM_PRIMARY = 139 INTEGER :: INDEX_ALD2_PRIMARY = 140 INTEGER :: INDEX_BUTADIENE13 = 141 INTEGER :: INDEX_ACROLEIN = 142 INTEGER :: INDEX_ACRO_PRIMARY = 143 INTEGER :: INDEX_TOLU = 144 INTEGER :: INDEX_HG = 145 INTEGER :: INDEX_HGIIAER = 146 INTEGER :: INDEX_HGIIGAS = 147 INTEGER :: INDEX_DMS = 148 INTEGER :: INDEX_MSA = 149 INTEGER, PARAMETER :: N_ACT_SP = 149 INTEGER, PARAMETER :: NRXNS = 349 INTEGER, PARAMETER :: ONE_REACT_REACTIONS = 0 INTEGER, PARAMETER :: TWO_REACT_REACTIONS = 0 INTEGER, PARAMETER :: THREE_REACT_REACTIONS = 0 INTEGER, PARAMETER :: ZERO_REACT_REACTIONS = 0 LOGICAL, PARAMETER :: UNITARY_REACTIONS = .FALSE. INTEGER, PARAMETER :: ONE_REACT_START = 0 INTEGER, PARAMETER :: ONE_REACT_STOP = -1 LOGICAL, PARAMETER :: BINARY_REACTIONS = .FALSE. INTEGER, PARAMETER :: TWO_REACT_START = 0 INTEGER, PARAMETER :: TWO_REACT_STOP = -1 LOGICAL, PARAMETER :: TERNARY_REACTIONS = .FALSE. INTEGER, PARAMETER :: THREE_REACT_START = 0 INTEGER, PARAMETER :: THREE_REACT_STOP = -1 LOGICAL, PARAMETER :: NULL_REACTIONS = .FALSE. INTEGER, PARAMETER :: ZERO_REACT_START = 0 INTEGER, PARAMETER :: ZERO_REACT_STOP = -1 INTEGER, PARAMETER :: NSUNLIGHT_RXNS = 42 INTEGER, PARAMETER :: NTHERMAL_RXNS = 307 INTEGER, PARAMETER :: KUNITS = 2 INTEGER :: IRXXN INTEGER, PARAMETER :: NMPHOT = 41 INTEGER :: IPH( NMPHOT,3 ) DATA ( IPH( IRXXN,1 ), IRXXN = 1, NMPHOT ) / & & 1, 8, 9, 21, 27, 28, 38, 43, 47, 50, & & 56, 64, 88, 90, 92, 97, 98, 108, 112, 114, & & 117, 119, 128, 129, 161, 163, 201, 202, 206, 226, & & 227, 234, 252, 254, 255, 291, 317, 318, 323, 332, & & 337/ DATA ( IPH( IRXXN,2 ), IRXXN = 1, NMPHOT ) / & & 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, & & 11, 11, 12, 12, 13, 14, 15, 16, 17, 18, & & 19, 20, 21, 22, 23, 24, 13, 1, 1, 25, & & 26, 27, 28, 29, 30, 31, 14, 15, 16, 32, & & 32/ DATA ( IPH( IRXXN,3 ), IRXXN = 1, NMPHOT ) / & & 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, & & 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, & & 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, & & 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, & & 41/ REAL( 8 ) :: RTDAT( 3,NRXNS ) INTEGER, PARAMETER :: NFALLOFF = 24 REAL( 8 ) :: RFDAT( 5,NFALLOFF ) INTEGER :: KTYPE( NRXNS ) DATA ( KTYPE( IRXXN ), IRXXN = 1, NRXNS ) / & & 0, 2, 3, 10, 3, 10, 3, 0, 0, 3, & ! O & 1, 3, 4, 3, 3, 4, 10, 3, 9, 9, & ! 1 & 0, 1, 3, 3, 3, 3, 0, 0, 3, 3, & ! 2 & 1, 1, 1, 1, 3, 10, 10, 0, 1, 10, & ! 3 & 1, 1, 0, 3, 10, 8, 0, 10, 10, 0, & ! 4 & 3, 10, 3, 10, 10, 0, 3, 3, 3, 6, & ! 5 & 3, 6, 6, 0, 6, 6, 6, 3, 3, 3, & ! 6 & 3, 3, 3, 6, 3, 3, 6, 6, 6, 6, & ! 7 & 6, 6, 6, 6, 6, 6, 3, 0, 3, 0, & ! 8 & 1, 0, 1, 3, 3, 3, 0, 0, 3, 1, & ! 9 & 3, 3, 1, 3, 3, 3, 3, 0, 3, 3, & ! O & 1, 0, 1, 0, 6, 3, 0, 1, 0, 1, & ! 1 & 3, 3, 9, 3, 3, 3, 3, 0, 0, 3, & ! 2 & 3, 1, 3, 3, 3, 10, 3, 10, 3, 3, & ! 3 & 3, 10, 3, 3, 1, 3, 3, 1, 3, 1, & ! 4 & 3, 3, 6, 6, 3, 3, 3, 3, 3, 3, & ! 5 & 0, 3, 0, 3, 3, 3, 3, 6, 6, 1, & ! 6 & 1, 3, 3, 3, 1, 3, 3, 3, 3, 3, & ! 7 & 6, 3, 6, 3, 3, 6, 3, 6, 1, 1, & ! 8 & 3, 3, 6, 6, 3, 1, 1, 1, 1, 1, & ! 9 & 0, 0, 1, 3, 1, 0, 1, 3, 1, 1, & ! O & 1, 6, 6, 6, 6, 6, 6, 1, 1, 3, & ! 1 & 10, 1, 10, 1, 1, 0, 0, 3, 1, 3, & ! 2 & 3, 3, 1, 0, 3, 1, 1, 3, 1, 1, & ! 3 & 1, 1, 3, 1, 1, 1, 3, 4, 1, 1, & ! 4 & 1, 0, 10, 0, 0, -1, -1, 3, 3, 3, & ! 5 & 3, 3, 3, 1, 1, 1, 3, 3, 3, -1, & ! 6 & -1, -1, -1, -1, -1, -1, -1, -1, 12, -1, & ! 7 & -1, -1, -1, -1, 3, 3, 1, 1, 1, 1, & ! 8 & 0, 1, 1, 1, 1, 1, 1, 1, 1, -1, & ! 9 & 1, -1, 1, 1, 1, 1, 1, 1, 1, 1, & ! O & 1, 1, 1, 3, 1, 3, 0, 0, 3, 3, & ! 1 & 3, 3, 0, 1, 3, 3, 1, 1, 1, 1, & ! 2 & 1, 0, 1, 1, 1, 1, 0, 1, 3, 1, & ! 3 & 3, 1, 1, 1, 3, 3, 10, 3, 3/ !4 INTEGER :: IRXBITS( NRXNS ) DATA ( IRXBITS( IRXXN ), IRXXN = 1, NRXNS ) / & & 2, 276, 0, 1, 0, 1, 0, 2, 2, 260, & ! O & 8, 0, 0, 0, 0, 0, 1, 0, 0, 8, & ! 1 & 2, 0, 0, 16, 0, 0, 2, 2, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 1, 1, 2, 8, 1, & ! 3 & 8, 0, 2, 0, 1, 0, 2, 1, 1, 2, & ! 4 & 0, 1, 0, 1, 1, 2, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 2, 0, 2, & ! 8 & 0, 2, 0, 0, 0, 0, 2, 2, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, & ! O & 0, 2, 0, 2, 0, 0, 2, 0, 2, 0, & ! 1 & 0, 128, 0, 64, 0, 0, 0, 2, 2, 0, & ! 2 & 0, 0, 0, 16, 0, 1, 0, 1, 0, 0, & ! 3 & 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 2, 0, 2, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 2, 2, 0, 0, 0, 2, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 1, 0, 1, 0, 8, 2, 2, 0, 0, 0, & ! 2 & 0, 0, 0, 2, 64, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 2, 1, 2, 2, 1, 1, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, & ! 6 & 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, & ! 7 & 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, & ! 8 & 2, 0, 0, 0, 0, 0, 0, 0, 0, 1, & ! 9 & 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 2, 2, 0, 0, & ! 1 & 0, 0, 2, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 2, 0, 0, 0, 0, 2, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 260, 0, 1, 0, 0/ !4 INTEGER, PARAMETER :: NTERMS_JACOB = 22201 INTEGER, PARAMETER :: NSTEPS_JACOB = 698 INTEGER :: IORDER( NRXNS ) DATA ( IORDER( IRXXN ), IRXXN = 1, NRXNS ) / & & 1, 3, 2, 2, 2, 2, 2, 1, 1, 2, & ! O & 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, & ! 1 & 1, 2, 2, 3, 2, 2, 1, 1, 2, 2, & ! 2 & 2, 2, 2, 2, 2, 2, 1, 1, 2, 2, & ! 3 & 3, 2, 1, 2, 2, 2, 1, 2, 1, 1, & ! 4 & 2, 2, 2, 2, 1, 1, 2, 2, 2, 2, & ! 5 & 2, 2, 1, 1, 2, 2, 2, 2, 2, 2, & ! 6 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 7 & 2, 2, 2, 2, 2, 2, 2, 1, 2, 1, & ! 8 & 2, 1, 2, 2, 2, 2, 1, 1, 2, 2, & ! 9 & 2, 1, 2, 2, 2, 2, 2, 1, 2, 2, & ! O & 2, 1, 2, 1, 2, 2, 1, 2, 1, 2, & ! 1 & 2, 2, 2, 2, 2, 2, 2, 1, 1, 2, & ! 2 & 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, & ! 3 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 4 & 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, & ! 5 & 1, 2, 1, 2, 2, 2, 2, 2, 2, 2, & ! 6 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 7 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 8 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 9 & 1, 1, 2, 2, 2, 1, 2, 2, 2, 2, & ! O & 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, & ! 1 & 1, 1, 1, 1, 3, 1, 1, 2, 2, 2, & ! 2 & 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, & ! 3 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 4 & 2, 1, 2, 1, 1, 1, 1, 2, 2, 2, & ! 5 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, & ! 6 & 1, 1, 1, 1, 2, 2, 2, 1, 1, 1, & ! 7 & 2, 1, 1, 1, 2, 2, 2, 2, 2, 2, & ! 8 & 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, & ! 9 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! O & 2, 2, 2, 2, 2, 2, 1, 1, 2, 2, & ! 1 & 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, & ! 2 & 2, 1, 2, 2, 2, 2, 1, 2, 2, 2, & ! 3 & 2, 2, 2, 2, 3, 2, 2, 2, 2/ !4 INTEGER, PARAMETER :: KTN1 = 99 INTEGER :: KRX1( KTN1 ) DATA ( KRX1( IRXXN ), IRXXN = 1, KTN1 ) / & & 11, 22, 31, 32, 33, 34, 39, 41, 42, 91, & ! O & 93, 100, 103, 111, 113, 118, 120, 132, 145, 148, & ! 1 & 150, 170, 171, 175, 189, 190, 196, 197, 198, 199, & ! 2 & 200, 203, 205, 207, 209, 210, 211, 218, 219, 222, & ! 3 & 224, 225, 229, 233, 236, 237, 239, 240, 241, 242, & ! 4 & 244, 245, 246, 249, 250, 251, 264, 265, 266, 287, & ! 5 & 288, 289, 290, 292, 293, 294, 295, 296, 297, 298, & ! 6 & 299, 301, 303, 304, 305, 306, 307, 308, 309, 310, & ! 7 & 311, 312, 313, 315, 324, 327, 328, 329, 330, 331, & ! 8 & 333, 334, 335, 336, 338, 340, 342, 343, 344/ !9 INTEGER, PARAMETER :: KTN2 = 1 INTEGER :: KRX2( KTN2 ) DATA ( KRX2( IRXXN ), IRXXN = 1, KTN2 ) / & & 2/ INTEGER, PARAMETER :: KTN3 = 129 INTEGER :: KRX3( KTN3 ) DATA ( KRX3( IRXXN ), IRXXN = 1, KTN3 ) / & & 3, 5, 7, 10, 12, 14, 15, 18, 23, 24, & ! O & 25, 26, 29, 30, 35, 44, 51, 53, 57, 58, & ! 1 & 59, 61, 68, 69, 70, 71, 72, 73, 75, 76, & ! 2 & 87, 89, 94, 95, 96, 99, 101, 102, 104, 105, & ! 3 & 106, 107, 109, 110, 116, 121, 122, 124, 125, 126, & ! 4 & 127, 130, 131, 133, 134, 135, 137, 139, 140, 141, & ! 5 & 143, 144, 146, 147, 149, 151, 152, 155, 156, 157, & ! 6 & 158, 159, 160, 162, 164, 165, 166, 167, 172, 173, & ! 7 & 174, 176, 177, 178, 179, 180, 182, 184, 185, 187, & ! 8 & 191, 192, 195, 204, 208, 220, 228, 230, 231, 232, & ! 9 & 235, 238, 243, 247, 258, 259, 260, 261, 262, 263, & ! O & 267, 268, 269, 285, 286, 314, 316, 319, 320, 321, & ! 1 & 322, 325, 326, 339, 341, 345, 346, 348, 349/ !2 INTEGER, PARAMETER :: KTN4 = 3 INTEGER :: KRX4( KTN4 ) DATA ( KRX4( IRXXN ), IRXXN = 1, KTN4 ) / & & 13, 16, 248/ INTEGER, PARAMETER :: KTN5 = 0 INTEGER :: KRX5( 1 ) DATA KRX5( 1 ) / 0 / INTEGER, PARAMETER :: KTN6 = 34 INTEGER :: KRX6( KTN6 ) DATA ( KRX6( IRXXN ), IRXXN = 1, KTN6 ) / & & 60, 62, 63, 65, 66, 67, 74, 77, 78, 79, & & 80, 81, 82, 83, 84, 85, 86, 115, 153, 154, & & 168, 169, 181, 183, 186, 188, 193, 194, 212, 213, & & 214, 215, 216, 217/ INTEGER, PARAMETER :: KTN7 = 0 INTEGER :: KRX7( 1 ) DATA KRX7( 1 ) / 0 / INTEGER, PARAMETER :: NWM = 3 INTEGER :: NRXWM( NWM ) DATA ( NRXWM( IRXXN ), IRXXN = 1, NWM ) / & & 2, 10, 345/ REAL( 8 ), PARAMETER :: ATM_AIR = 1.00000D+06 INTEGER, PARAMETER :: NWW = 5 INTEGER :: NRXWW( NWW ) DATA ( NRXWW( IRXXN ), IRXXN = 1, NWW ) / & & 11, 20, 39, 41, 225/ INTEGER, PARAMETER :: NWO2 = 3 INTEGER :: NRXWO2( NWO2 ) DATA ( NRXWO2( IRXXN ), IRXXN = 1, NWO2 ) / & & 2, 24, 134/ REAL( 8 ), PARAMETER :: ATM_O2 = 2.09500D+05 INTEGER, PARAMETER :: NWN2 = 0 INTEGER :: NRXWN2( 1 ) DATA NRXWN2( 1 ) / 0 / REAL( 8 ), PARAMETER :: ATM_N2 = 7.80800D+05 INTEGER, PARAMETER :: NWCH4 = 2 INTEGER :: NRXWCH4( NWCH4 ) DATA ( NRXWCH4( IRXXN ), IRXXN = 1, NWCH4 ) / & & 124, 235/ REAL( 8 ), PARAMETER :: ATM_CH4 = 1.85000D+00 INTEGER, PARAMETER :: NWH2 = 1 INTEGER :: NRXWH2( NWH2 ) DATA ( NRXWH2( IRXXN ), IRXXN = 1, NWH2 ) / & & 122/ REAL( 8 ), PARAMETER :: ATM_H2 = 5.60000D-01 INTEGER, PARAMETER :: MXPRD = 14 INTEGER :: IRR( NRXNS,MXPRD+3 ) DATA ( IRR( IRXXN, 1 ), IRXXN = 1, NRXNS ) / & & 1, 3, 4, 3, 3, 3, 3, 4, 4, 6, & ! O & 6, 4, 4, 7, 8, 7, 7, 7, 8, 8, & ! 1 & 9, 9, 9, 2, 8, 1, 5, 5, 5, 5, & ! 2 & 5, 5, 5, 5, 5, 5, 10, 10, 10, 2, & ! 3 & 2, 12, 12, 12, 1, 11, 11, 8, 13, 13, & ! 4 & 13, 14, 17, 17, 20, 20, 17, 17, 17, 17, & ! 5 & 23, 23, 26, 26, 23, 23, 23, 19, 19, 19, & ! 6 & 18, 18, 18, 18, 25, 25, 25, 25, 31, 31, & ! 7 & 31, 31, 32, 32, 32, 32, 28, 28, 30, 30, & ! 8 & 33, 33, 35, 22, 21, 27, 27, 27, 27, 27, & ! 9 & 27, 37, 37, 37, 24, 24, 24, 24, 38, 38, & ! O & 38, 38, 39, 39, 39, 40, 40, 40, 41, 41, & ! 1 & 41, 7, 36, 7, 42, 29, 43, 44, 46, 46, & ! 2 & 47, 45, 50, 50, 50, 51, 52, 52, 52, 52, & ! 3 & 53, 53, 53, 53, 54, 54, 54, 54, 55, 55, & ! 4 & 56, 56, 56, 56, 56, 55, 55, 58, 58, 58, & ! 5 & 58, 60, 61, 61, 63, 64, 64, 64, 64, 59, & ! 6 & 65, 65, 65, 65, 68, 68, 68, 68, 69, 71, & ! 7 & 71, 71, 71, 74, 75, 75, 75, 75, 78, 81, & ! 8 & 79, 79, 79, 79, 70, 70, 83, 83, 85, 85, & ! 9 & 85, 77, 77, 77, 77, 72, 72, 72, 72, 84, & ! O & 84, 62, 62, 86, 62, 62, 62, 86, 26, 87, & ! 1 & 48, 48, 49, 49, 1, 88, 90, 89, 91, 91, & ! 2 & 91, 91, 7, 92, 89, 89, 89, 89, 89, 89, & ! 3 & 89, 89, 89, 89, 89, 89, 89, 93, 89, 89, & ! 4 & 89, 94, 91, 95, 95, 95, 95, 76, 76, 80, & ! 5 & 80, 73, 73, 100, 100, 100, 82, 82, 102, 34, & ! 6 & 10, 10, 103, 104, 103, 103, 104, 1, 4, 63, & ! 7 & 108, 108, 40, 41, 67, 67, 67, 67, 112, 112, & ! 8 & 112, 113, 115, 117, 118, 119, 121, 122, 123, 124, & ! 9 & 125, 126, 127, 129, 130, 131, 132, 133, 134, 135, & ! O & 138, 136, 137, 139, 139, 139, 139, 139, 139, 140, & ! 1 & 140, 140, 140, 140, 141, 141, 141, 141, 143, 143, & ! 2 & 143, 143, 143, 142, 142, 142, 142, 142, 144, 144, & ! 3 & 145, 145, 145, 145, 145, 148, 148, 148, 148/ !4 DATA ( IRR( IRXXN, 2 ), IRXXN = 1, NRXNS ) / & & 0, 0, 2, 2, 1, 1, 4, 0, 0, 0, & ! O & 0, 7, 8, 3, 3, 7, 7, 8, 8, 8, & ! 1 & 0, 7, 3, 2, 2, 4, 0, 0, 2, 1, & ! 2 & 3, 7, 8, 4, 5, 1, 0, 0, 0, 7, & ! 3 & 1, 12, 0, 7, 7, 7, 0, 1, 0, 0, & ! 4 & 7, 7, 2, 1, 0, 0, 8, 19, 17, 23, & ! 5 & 2, 1, 0, 0, 8, 19, 23, 2, 8, 19, & ! 6 & 2, 8, 17, 19, 2, 8, 17, 19, 2, 8, & ! 7 & 17, 19, 2, 8, 17, 19, 7, 0, 7, 0, & ! 8 & 7, 0, 7, 7, 7, 7, 0, 0, 3, 5, & ! 9 & 8, 0, 2, 8, 3, 7, 5, 0, 3, 7, & ! O & 5, 0, 7, 0, 5, 7, 0, 5, 0, 5, & ! 1 & 7, 0, 7, 0, 7, 7, 7, 0, 0, 7, & ! 2 & 7, 7, 0, 0, 1, 7, 3, 7, 4, 5, & ! 3 & 3, 7, 4, 5, 3, 7, 4, 5, 7, 3, & ! 4 & 2, 8, 17, 19, 0, 4, 5, 7, 4, 5, & ! 5 & 0, 7, 0, 5, 7, 8, 2, 17, 19, 7, & ! 6 & 3, 7, 4, 5, 3, 7, 4, 5, 7, 2, & ! 7 & 17, 8, 19, 7, 2, 17, 8, 19, 7, 7, & ! 8 & 2, 8, 17, 19, 7, 5, 1, 8, 7, 5, & ! 9 & 0, 0, 7, 4, 5, 0, 7, 4, 5, 7, & ! O & 5, 2, 1, 0, 8, 17, 19, 7, 7, 7, & ! 1 & 0, 0, 0, 0, 7, 0, 0, 4, 91, 2, & ! 2 & 8, 18, 92, 0, 0, 45, 47, 42, 52, 53, & ! 3 & 54, 55, 27, 24, 38, 29, 43, 7, 74, 78, & ! 4 & 81, 0, 1, 0, 0, 0, 0, 2, 8, 2, & ! 5 & 8, 2, 8, 4, 7, 5, 2, 8, 7, 0, & ! 6 & 0, 0, 0, 0, 105, 106, 107, 0, 0, 0, & ! 7 & 109, 0, 0, 0, 2, 8, 5, 19, 89, 7, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 7, 7, & ! 9 & 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, & ! O & 7, 7, 7, 7, 5, 3, 0, 0, 89, 7, & ! 1 & 5, 3, 0, 89, 7, 4, 5, 89, 7, 4, & ! 2 & 5, 0, 89, 7, 4, 5, 0, 89, 7, 89, & ! 3 & 4, 88, 9, 7, 89, 7, 7, 5, 89/ !4 DATA ( IRR( IRXXN, 3 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0/ !4 DATA ( IRR( IRXXN, 4 ), IRXXN = 1, NRXNS ) / & & 2, 4, 1, 1, 2, 5, 0, 3, 6, 3, & ! O & 7, 8, 7, 8, 7, 3, 9, 0, 9, 9, & ! 1 & 7, 8, 7, 1, 7, 5, 1, 2, 1, 2, & ! 2 & 1, 8, 7, 1, 1, 10, 5, 1, 11, 12, & ! 3 & 12, 2, 2, 1, 11, 5, 7, 13, 8, 8, & ! 4 & 1, 15, 1, 20, 1, 1, 21, 18, 18, 18, & ! 5 & 1, 26, 1, 1, 21, 18, 18, 2, 8, 0, & ! 6 & 27, 28, 27, 27, 1, 30, 8, 8, 1, 30, & ! 7 & 18, 19, 33, 30, 8, 19, 18, 18, 25, 8, & ! 8 & 34, 1, 8, 18, 17, 8, 8, 36, 7, 11, & ! 9 & 37, 27, 35, 28, 17, 17, 17, 18, 23, 23, & ! O & 23, 24, 40, 27, 11, 36, 8, 11, 17, 11, & ! 1 & 17, 8, 8, 18, 24, 27, 24, 24, 36, 27, & ! 2 & 48, 49, 44, 44, 33, 40, 27, 25, 27, 1, & ! 3 & 24, 27, 24, 1, 24, 24, 24, 1, 56, 58, & ! 4 & 59, 60, 27, 27, 8, 27, 1, 32, 24, 11, & ! 5 & 8, 63, 7, 11, 64, 39, 39, 39, 39, 31, & ! 6 & 38, 25, 7, 1, 38, 25, 7, 1, 70, 1, & ! 7 & 40, 0, 40, 70, 1, 40, 0, 40, 70, 70, & ! 8 & 1, 0, 40, 40, 40, 83, 85, 70, 34, 34, & ! 9 & 12, 40, 41, 41, 1, 62, 62, 40, 62, 27, & ! O & 83, 1, 86, 62, 21, 18, 25, 1, 24, 18, & ! 1 & 32, 46, 32, 38, 11, 89, 7, 91, 88, 89, & ! 2 & 90, 89, 89, 89, 93, 93, 93, 93, 92, 92, & ! 3 & 93, 92, 93, 93, 93, 93, 93, 89, 93, 93, & ! 4 & 93, 89, 95, 91, 89, 90, 90, 2, 8, 2, & ! 5 & 8, 2, 8, 4, 7, 5, 2, 8, 7, 11, & ! 6 & 11, 11, 11, 11, 94, 94, 94, 12, 0, 108, & ! 7 & 110, 110, 111, 111, 2, 8, 5, 19, 89, 7, & ! 8 & 0, 114, 116, 116, 116, 120, 120, 120, 124, 7, & ! 9 & 126, 7, 7, 7, 7, 7, 7, 7, 7, 7, & ! O & 7, 7, 7, 7, 5, 3, 0, 0, 89, 7, & ! 1 & 5, 3, 0, 89, 7, 4, 5, 89, 7, 4, & ! 2 & 5, 0, 89, 7, 4, 5, 0, 89, 7, 89, & ! 3 & 146, 147, 147, 146, 145, 14, 14, 14, 14/ !4 DATA ( IRR( IRXXN, 5 ), IRXXN = 1, NRXNS ) / & & 3, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 8, 0, 1, 0, 3, 0, 0, 1, & ! 2 & 0, 1, 1, 0, 0, 0, 1, 5, 0, 0, & ! 3 & 0, 1, 7, 0, 0, 0, 1, 0, 1, 1, & ! 4 & 0, 8, 18, 0, 17, 17, 22, 0, 19, 24, & ! 5 & 24, 0, 23, 23, 22, 0, 19, 0, 0, 0, & ! 6 & 8, 27, 8, 29, 8, 0, 18, 19, 0, 0, & ! 7 & 22, 0, 34, 0, 18, 0, 19, 19, 32, 7, & ! 8 & 0, 0, 0, 19, 0, 36, 36, 0, 8, 8, & ! 9 & 0, 8, 1, 35, 7, 0, 11, 19, 7, 0, & ! O & 11, 25, 8, 36, 17, 31, 36, 36, 8, 17, & ! 1 & 36, 0, 0, 19, 25, 8, 8, 17, 18, 17, & ! 2 & 0, 0, 46, 8, 0, 7, 8, 19, 36, 33, & ! 3 & 38, 24, 27, 33, 38, 38, 38, 33, 19, 27, & ! 4 & 1, 7, 58, 58, 61, 58, 34, 31, 27, 34, & ! 5 & 25, 7, 58, 58, 19, 40, 40, 40, 40, 25, & ! 6 & 45, 31, 25, 25, 45, 31, 25, 25, 71, 34, & ! 7 & 72, 0, 72, 75, 34, 41, 0, 41, 79, 79, & ! 8 & 34, 0, 41, 41, 72, 11, 0, 0, 83, 83, & ! 9 & 8, 25, 40, 7, 34, 8, 25, 41, 11, 8, & ! O & 11, 40, 0, 1, 22, 31, 38, 40, 1, 19, & ! 1 & 19, 38, 19, 50, 0, 0, 89, 0, 89, 1, & ! 2 & 0, 27, 36, 36, 18, 49, 46, 24, 31, 24, & ! 3 & 92, 58, 8, 17, 23, 8, 8, 0, 70, 70, & ! 4 & 70, 1, 0, 1, 5, 11, 11, 96, 99, 96, & ! 5 & 99, 96, 99, 101, 101, 101, 96, 99, 96, 0, & ! 6 & 103, 104, 0, 0, 0, 0, 0, 11, 0, 0, & ! 7 & 0, 0, 0, 0, 112, 112, 112, 112, 112, 112, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 123, 0, & ! 9 & 125, 0, 128, 129, 129, 129, 129, 129, 134, 134, & ! O & 134, 134, 134, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 142, 142, 142, 142, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 147, 88, 9, 147, 147, 18, 149, 11, 18/ !4 DATA ( IRR( IRXXN, 6 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 7, & ! 4 & 0, 16, 19, 0, 0, 5, 4, 0, 0, 25, & ! 5 & 25, 0, 0, 5, 4, 0, 0, 0, 0, 0, & ! 6 & 1, 0, 18, 8, 0, 0, 22, 0, 0, 0, & ! 7 & 19, 0, 0, 0, 22, 0, 27, 7, 19, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 36, 36, & ! 9 & 0, 0, 8, 7, 0, 0, 0, 36, 0, 0, & ! O & 0, 19, 17, 8, 0, 19, 0, 31, 36, 31, & ! 1 & 0, 0, 0, 0, 32, 0, 25, 25, 19, 31, & ! 2 & 0, 0, 24, 0, 0, 35, 36, 27, 8, 25, & ! 3 & 8, 38, 38, 31, 25, 25, 27, 31, 57, 31, & ! 4 & 27, 8, 8, 8, 0, 38, 25, 41, 41, 1, & ! 5 & 31, 56, 0, 0, 0, 41, 41, 41, 41, 19, & ! 6 & 66, 32, 31, 31, 66, 32, 31, 31, 19, 40, & ! 7 & 8, 0, 8, 19, 40, 72, 0, 72, 19, 19, & ! 8 & 40, 0, 72, 72, 8, 31, 0, 0, 0, 11, & ! 9 & 27, 8, 25, 17, 25, 36, 19, 7, 0, 83, & ! O & 0, 36, 0, 0, 4, 38, 19, 36, 0, 0, & ! 1 & 0, 45, 0, 25, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 8, 0, 8, 19, 0, 25, 25, 8, 38, & ! 3 & 24, 25, 36, 0, 0, 27, 24, 0, 75, 79, & ! 4 & 79, 0, 0, 0, 0, 0, 0, 97, 0, 97, & ! 5 & 0, 98, 0, 0, 0, 0, 97, 0, 97, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 7, 0, & ! 9 & 7, 0, 0, 130, 130, 130, 130, 130, 135, 135, & ! O & 135, 135, 135, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 4, 0, 0, 7, 89, 27, 18, 18, 27/ !4 DATA ( IRR( IRXXN, 7 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, & ! 4 & 0, 0, 0, 0, 0, 18, 18, 0, 0, 19, & ! 5 & 19, 0, 0, 24, 7, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 22, 19, 0, 0, 19, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 19, 0, 7, 0, 7, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 8, 0, 0, 0, 8, 0, 0, & ! O & 0, 36, 0, 29, 0, 8, 0, 19, 0, 19, & ! 1 & 0, 0, 0, 0, 19, 0, 19, 23, 17, 19, & ! 2 & 0, 0, 38, 0, 0, 36, 25, 39, 7, 31, & ! 3 & 25, 25, 25, 25, 19, 19, 36, 25, 0, 19, & ! 4 & 58, 27, 25, 25, 0, 23, 31, 18, 40, 31, & ! 5 & 18, 19, 0, 0, 0, 7, 7, 7, 7, 1, & ! 6 & 0, 19, 32, 32, 0, 19, 32, 32, 72, 72, & ! 7 & 18, 0, 19, 72, 41, 77, 0, 77, 77, 77, & ! 8 & 41, 0, 77, 77, 83, 25, 0, 0, 0, 0, & ! 9 & 72, 36, 19, 24, 31, 0, 40, 17, 0, 0, & ! O & 0, 8, 0, 0, 7, 19, 22, 34, 0, 0, & ! 1 & 0, 25, 0, 31, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 32, 32, 27, 31, & ! 3 & 38, 32, 0, 0, 0, 0, 0, 0, 19, 19, & ! 4 & 19, 0, 0, 0, 0, 0, 0, 98, 0, 98, & ! 5 & 0, 0, 0, 0, 0, 0, 98, 0, 98, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 131, 131, 131, 131, 131, 138, 138, & ! O & 138, 138, 138, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 27, 93/ !4 DATA ( IRR( IRXXN, 8 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 19, 19, 0, 0, 0, & ! 5 & 0, 0, 0, 25, 18, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 19, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 8, 0, 7, 0, 0, 0, 8, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 27, 18, 0, 0, & ! 2 & 0, 0, 32, 0, 0, 8, 19, 0, 35, 19, & ! 3 & 36, 31, 19, 32, 36, 0, 7, 32, 0, 8, & ! 4 & 8, 58, 18, 19, 0, 45, 32, 39, 46, 25, & ! 5 & 17, 54, 0, 0, 0, 8, 8, 8, 8, 5, & ! 6 & 0, 27, 19, 19, 0, 27, 19, 19, 7, 8, & ! 7 & 19, 0, 0, 7, 72, 8, 0, 8, 7, 7, & ! 8 & 72, 0, 8, 8, 84, 40, 0, 0, 0, 0, & ! 9 & 0, 17, 0, 36, 32, 0, 0, 27, 0, 0, & ! O & 0, 23, 0, 0, 18, 0, 0, 0, 0, 0, & ! 1 & 0, 19, 0, 19, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 19, 19, 0, 8, & ! 3 & 53, 19, 0, 0, 0, 0, 0, 0, 72, 77, & ! 4 & 77, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 132, 132, 132, 132, 134, 136, 136, & ! O & 136, 136, 136, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 149/ !4 DATA ( IRR( IRXXN, 9 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 7, 0, 0, 0, & ! 5 & 0, 0, 0, 19, 19, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 40, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 39, 19, 0, 0, & ! 2 & 0, 0, 25, 0, 0, 0, 7, 0, 0, 27, & ! 3 & 27, 32, 7, 19, 45, 0, 25, 19, 0, 23, & ! 4 & 25, 0, 22, 0, 0, 7, 19, 17, 36, 39, & ! 5 & 27, 38, 0, 0, 0, 27, 27, 27, 27, 59, & ! 6 & 0, 45, 27, 38, 0, 45, 27, 38, 8, 0, & ! 7 & 0, 0, 0, 25, 77, 18, 0, 19, 25, 25, & ! 8 & 77, 0, 18, 19, 32, 41, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 25, 19, 0, 0, 24, 0, 0, & ! O & 0, 0, 0, 0, 19, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 45, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 45, & ! 3 & 45, 0, 0, 0, 0, 0, 0, 0, 7, 7, & ! 4 & 7, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 133, 134, 134, 134, 135, 137, 137, & ! O & 137, 137, 137, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 91/ !4 DATA ( IRR( IRXXN, 10 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 25, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 45, 0, 0, & ! 2 & 0, 0, 19, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 32, 19, 8, 27, 0, 0, 19, 24, 0, 45, & ! 4 & 19, 0, 19, 0, 0, 31, 27, 62, 7, 41, & ! 5 & 53, 0, 0, 0, 0, 35, 1, 36, 36, 27, & ! 6 & 0, 38, 36, 34, 0, 38, 36, 34, 73, 0, & ! 7 & 0, 0, 0, 8, 8, 19, 0, 0, 8, 8, & ! 8 & 8, 0, 19, 0, 19, 62, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 19, 72, 0, 0, 36, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 31, 0, 0, 0, 0, 0, 0, 0, 25, 25, & ! 4 & 25, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 134, 135, 135, 135, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0/ !4 DATA ( IRR( IRXXN, 11 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 19, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 50, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 19, 45, 36, 24, 0, 0, 40, 38, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 19, 58, 45, 35, 45, & ! 5 & 45, 0, 0, 0, 0, 36, 36, 45, 45, 39, & ! 6 & 0, 66, 45, 67, 0, 66, 45, 0, 0, 0, & ! 7 & 0, 0, 0, 76, 0, 0, 0, 0, 80, 82, & ! 8 & 0, 0, 0, 0, 0, 32, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 41, 0, 0, 8, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 8, 0, 0, 0, 0, 0, 0, 0, 8, 8, & ! 4 & 8, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 135, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0/ !4 DATA ( IRR( IRXXN, 12 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 45, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 45, 0, 40, 38, 0, 0, 41, 45, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 8, 57, 46, 8, 23, & ! 5 & 46, 0, 0, 0, 0, 45, 45, 18, 19, 35, & ! 6 & 0, 0, 38, 0, 0, 0, 38, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 19, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 76, 80, & ! 4 & 82, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 136, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0/ !4 DATA ( IRR( IRXXN, 13 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 7, 0, 41, 45, 0, 0, 45, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 36, 0, 36, 17, 19, & ! 5 & 39, 0, 0, 0, 0, 0, 0, 22, 0, 45, & ! 6 & 0, 0, 23, 0, 0, 0, 23, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 137, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0/ !4 DATA ( IRR( IRXXN, 14 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 35, 0, 0, 0, 22, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 8, 0, 0, & ! 5 & 19, 0, 0, 0, 0, 0, 0, 19, 0, 53, & ! 6 & 0, 0, 66, 0, 0, 0, 66, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0/ !4 DATA ( IRR( IRXXN, 15 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 22, 0, 0, 0, 9, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 19, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 38, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0/ !4 DATA ( IRR( IRXXN, 16 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 9, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 34, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0/ !4 DATA ( IRR( IRXXN, 17 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 45, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0/ !4 DATA ( RTDAT( 1,IRXXN ), IRXXN = 1, NRXNS ) / & & 1.0000D+00, 6.0000D-34, 2.0700D-12, 1.0000D-31, 5.1000D-12, & ! O & 1.3000D-31, 8.0000D-12, 1.0000D+00, 1.0000D+00, 2.2300D-11, & ! + & 2.1400D-10, 1.7000D-12, 2.0300D-16, 2.4000D-11, 3.0000D-11, & ! 1 & 6.2000D-14, 9.0000D-31, 4.8000D-11, 2.2000D-13, 3.0800D-34, & ! + & 1.0000D+00, 1.8000D-12, 1.4000D-12, 4.2500D-39, 3.4500D-12, & ! 2 & 1.4000D-13, 1.0000D+00, 1.0000D+00, 1.8000D-11, 4.5000D-14, & ! + & 1.7000D-11, 2.0000D-11, 4.0000D-12, 1.0000D-17, 8.5000D-13, & ! 3 & 3.6000D-30, 1.3000D-03, 1.0000D+00, 1.0000D-22, 7.4000D-31, & ! + & 5.0000D-40, 1.0000D-20, 1.0000D+00, 2.5000D-12, 1.8000D-30, & ! 4 & 2.4000D-14, 1.0000D+00, 1.4000D-31, 4.1000D-05, 1.0000D+00, & ! + & 3.2000D-13, 2.8000D-31, 7.5000D-12, 3.6100D-28, 1.1000D-05, & ! 5 & 1.0000D+00, 3.1400D-12, 4.4000D-13, 2.9000D-12, 1.0000D+00, & ! + & 6.7000D-12, 8.4000D-01, 8.4000D-01, 1.0000D+00, 1.0000D+00, & ! 6 & 1.0000D+00, 1.0000D+00, 2.4000D-12, 4.8000D-13, 6.5000D-14, & ! + & 2.3000D-12, 3.8000D-13, 2.0000D-12, 1.0000D+00, 2.7000D-12, & ! 7 & 6.8000D-13, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 8 & 1.0000D+00, 5.3000D-12, 1.0000D+00, 5.3000D-12, 1.0000D+00, & ! + & 2.0000D-12, 1.0000D+00, 4.5000D-13, 4.0000D-14, 5.3000D-12, & ! 9 & 5.4000D-12, 1.0000D+00, 1.0000D+00, 3.4000D-11, 5.5000D-16, & ! + & 9.7000D-15, 2.4000D+12, 5.6000D-12, 5.6000D-15, 1.8000D-11, & ! O & 4.7000D-12, 1.4000D-12, 1.0000D+00, 1.3000D-11, 4.9000D-12, & ! + & 6.3000D-15, 1.0000D+00, 8.0000D-12, 1.0000D+00, 1.0000D+00, & ! 1 & 3.1000D-12, 1.0000D+00, 4.0000D-16, 1.0000D+00, 5.0000D-16, & ! + & 1.9000D-12, 7.7000D-12, 1.4400D-13, 1.8500D-12, 6.9000D-12, & ! 2 & 2.8500D-12, 3.0000D-12, 1.0000D+00, 1.0000D+00, 1.4100D-12, & ! + & 7.6000D-12, 8.1000D-13, 5.7000D+12, 1.5000D-14, 8.6000D-12, & ! 3 & 5.0000D-30, 1.0400D-11, 8.6000D-29, 6.8200D-15, 3.3000D-12, & ! + & 1.0000D-11, 8.0000D-27, 5.5000D-15, 4.6000D-13, 2.3000D-11, & ! 4 & 1.0500D-11, 4.7000D-15, 3.7000D-13, 2.7000D-11, 3.0000D-11, & ! + & 2.3900D-12, 7.4300D-13, 1.0000D+00, 1.0000D+00, 3.3000D+09, & ! 5 & 1.0300D-14, 3.0300D-12, 5.5800D-12, 3.8800D-15, 4.1000D-12, & ! + & 1.0000D+00, 2.2300D-11, 1.0000D+00, 6.0000D-12, 5.7800D-11, & ! 6 & 7.4300D-13, 2.3900D-12, 1.0000D+00, 1.0000D+00, 3.1000D-11, & ! + & 3.6000D-11, 1.5000D-11, 1.2000D-15, 3.7000D-12, 3.6000D-11, & ! 7 & 1.5000D-11, 1.2000D-15, 3.7000D-12, 2.3000D-12, 2.7000D-12, & ! + & 1.0000D+00, 1.9000D-13, 1.0000D+00, 1.8000D-12, 2.7000D-12, & ! 8 & 1.0000D+00, 1.9000D-13, 1.0000D+00, 1.8500D-11, 1.8500D-11, & ! + & 2.7000D-12, 1.9000D-13, 1.0000D+00, 1.0000D+00, 1.7000D-12, & ! 9 & 1.4000D-11, 2.1000D-12, 5.5000D-12, 1.5300D-12, 3.8000D-12, & ! + & 1.0000D+00, 5.0000D-02, 9.0000D-11, 1.0800D-16, 3.0000D-12, & ! O & 2.8000D-02, 4.4000D-11, 5.4000D-17, 3.8000D-12, 5.0000D-11, & ! + & 1.7000D-10, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 1 & 1.0000D+00, 1.0000D+00, 3.6000D-11, 3.0000D-12, 1.8500D-12, & ! + & 2.3700D-21, 1.0000D+00, 4.8100D-20, 1.0000D+00, 1.1000D-30, & ! 2 & 1.0000D+00, 1.0000D+00, 2.3000D-11, 1.6300D-14, 6.4000D-12, & ! + & 2.2000D-12, 3.2000D-12, 5.0000D-13, 1.0000D+00, 6.6000D-12, & ! 3 & 5.0000D-11, 1.4000D-10, 8.3000D-11, 1.0700D-10, 2.5000D-10, & ! + & 3.5000D-10, 4.3000D-10, 8.2000D-11, 7.9000D-11, 1.3000D-10, & ! 4 & 5.5000D-11, 8.2000D-11, 6.5800D-13, 6.1000D-11, 1.2000D-10, & ! + & 1.2000D-10, 1.0000D+00, 1.8000D-31, 1.0000D+00, 1.0000D+00, & ! 5 & 1.0000D+00, 1.0000D+00, 2.7000D-12, 1.9000D-13, 2.7000D-12, & ! + & 1.9000D-13, 2.7000D-12, 1.9000D-13, 1.1600D-14, 1.9700D-10, & ! 6 & 1.9000D-11, 2.7000D-12, 1.9000D-13, 2.7000D-12, 1.4000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 7 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 6.7006D-11, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 2.6000D-12, & ! 8 & 2.6500D-13, 2.3000D-12, 3.5000D-14, 1.9200D-10, 7.2000D-12, & ! + & 1.0000D+00, 9.2590D-05, 9.4882D-06, 9.4882D-06, 9.4882D-06, & ! 9 & 9.4882D-06, 9.4882D-06, 9.4882D-06, 2.5000D-12, 1.0000D+00, & ! + & 2.5000D-12, 1.0000D+00, 1.2500D-11, 4.0000D-11, 4.0000D-11, & ! O & 4.0000D-11, 4.0000D-11, 4.0000D-11, 4.0000D-11, 4.0000D-11, & ! + & 4.0000D-11, 4.0000D-11, 4.0000D-11, 5.4000D-12, 5.5000D-16, & ! 1 & 3.4000D-11, 1.0000D+00, 1.0000D+00, 8.2000D-11, 4.7000D-12, & ! + & 1.4000D-12, 1.8000D-11, 1.0000D+00, 7.9000D-11, 1.4800D-11, & ! 2 & 1.3400D-14, 1.7900D-13, 2.5100D-10, 2.0000D-11, 2.6100D-19, & ! + & 1.1500D-15, 1.0000D+00, 2.3700D-10, 2.0000D-11, 2.6100D-19, & ! 3 & 1.1500D-15, 1.0000D+00, 2.3700D-10, 1.8000D-12, 6.1000D-11, & ! + & 2.1100D-18, 2.6000D-18, 8.5000D-19, 7.7000D-14, 2.2500D-33, & ! 4 & 1.1200D-11, 1.9900D-39, 1.9000D-13, 3.4000D-13/ !+ DATA ( RTDAT( 2,IRXXN ), IRXXN = 1, NRXNS ) / & & 0.0000D+00,-2.6000D+00, 0.0000D+00,-1.6000D+00, 0.0000D+00, & ! O & -1.5000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 4.5700D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 2.6000D+00,-3.2000D+00, 0.0000D+00, 6.0000D+02, 2.8000D+03, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & -4.1000D+00,-3.5000D+00, 0.0000D+00, 0.0000D+00,-2.4000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00,-3.0000D+00, & ! 4 & 4.6000D+02, 0.0000D+00,-3.1000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00,-2.6000D+00, 0.0000D+00,-6.8700D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 5.9000D+01, & ! + & 0.0000D+00, 5.4000D+01, 5.5000D+01, 0.0000D+00, 5.7000D+01, & ! 6 & 5.8000D+01, 5.9000D+01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 7.0000D+01, 0.0000D+00, & ! 7 & 0.0000D+00, 5.8000D+01, 7.0000D+01, 7.5000D+01, 7.6000D+01, & ! + & 5.8000D+01, 7.0000D+01, 7.5000D+01, 7.6000D+01, 5.8000D+01, & ! 8 & 7.0000D+01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0700D+02, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & -1.5000D+00, 0.0000D+00,-3.1000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00,-3.5000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 5.8000D+01, 7.0000D+01, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 5.8000D+01, 7.0000D+01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 5.8000D+01, 0.0000D+00, 7.0000D+01, 0.0000D+00, 0.0000D+00, & ! 8 & 5.8000D+01, 0.0000D+00, 7.0000D+01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 5.8000D+01, 7.0000D+01, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 6.1000D+01, 6.2000D+01, 6.3000D+01, 5.7000D+01, & ! 1 & 5.9000D+01, 5.8000D+01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 1.1600D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00,-3.4000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 3.4153D-08, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00/ !+ DATA ( RTDAT( 3,IRXXN ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00,-1.4000D+03, 0.0000D+00, 1.9800D+02, & ! O & 0.0000D+00,-2.0600D+03, 0.0000D+00, 0.0000D+00, 1.1500D+02, & ! + & 0.0000D+00,-9.4000D+02, 6.9300D+02, 1.1000D+02, 2.0000D+02, & ! 1 & 9.4500D+02, 0.0000D+00, 2.5000D+02, 1.9000D-33, 2.6600D-54, & ! + & 0.0000D+00, 0.0000D+00,-2.0000D+03, 6.6400D+02, 2.7000D+02, & ! 2 & -2.4700D+03, 0.0000D+00, 0.0000D+00, 1.1000D+02,-1.2600D+03, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00,-2.4500D+03, & ! 3 & 0.0000D+00,-1.1000D+04, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.6000D+02, 0.0000D+00, & ! 4 & 2.7000D-17, 0.0000D+00, 0.0000D+00,-1.0650D+04, 0.0000D+00, & ! + & 6.9000D+02, 0.0000D+00, 2.9000D+02, 0.0000D+00,-1.0100D+04, & ! 5 & 0.0000D+00, 5.8000D+02, 1.0700D+03, 5.0000D+02, 0.0000D+00, & ! + & 3.4000D+02, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 3.6000D+02, 8.0000D+02, 5.0000D+02, & ! + & 3.6000D+02, 7.8000D+02, 5.0000D+02, 0.0000D+00, 3.6000D+02, & ! 7 & 8.0000D+02, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 1.9000D+02, 0.0000D+00, 1.9000D+02, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 8.5000D+02, 1.9000D+02, & ! 9 & 1.3500D+02, 0.0000D+00, 0.0000D+00,-1.6000D+03, 0.0000D+00, & ! + & 6.2500D+02,-7.0000D+03, 0.0000D+00, 2.3000D+03,-1.1000D+03, & ! O & 3.4500D+02,-1.8600D+03, 0.0000D+00,-8.7000D+02, 4.0500D+02, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 3.4000D+02, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 5.7500D+02,-2.1000D+03, 3.4300D-33,-1.6900D+03,-1.0000D+03, & ! 2 & -3.4500D+02, 2.0000D+01, 0.0000D+00, 0.0000D+00,-6.2060D+02, & ! + & -5.8500D+02, 0.0000D+00,-5.7800D+03,-2.0000D+02, 4.0000D+02, & ! 3 & 0.0000D+00,-7.9200D+02, 0.0000D+00,-2.5000D+03,-2.8800D+03, & ! + & -2.8000D+02, 0.0000D+00,-1.8800D+03,-1.1550D+03, 0.0000D+00, & ! 4 & 5.1900D+02,-1.0130D+03, 0.0000D+00, 3.9000D+02, 0.0000D+00, & ! + & 3.6500D+02, 7.0000D+02, 0.0000D+00, 0.0000D+00,-8.3000D+03, & ! 5 & -1.9950D+03,-4.4800D+02, 5.1100D+02,-1.7700D+03,-1.8600D+03, & ! + & 0.0000D+00, 3.7200D+02, 0.0000D+00,-1.8600D+03,-4.0000D+02, & ! 6 & 7.0000D+02, 3.6500D+02, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 4.4900D+02,-8.2100D+02, 1.7500D+02, 0.0000D+00, & ! 7 & 4.4900D+02,-8.2100D+02, 1.7500D+02,-1.9000D+02, 3.6000D+02, & ! + & 0.0000D+00, 1.3000D+03, 0.0000D+00, 3.4000D+02, 3.6000D+02, & ! 8 & 0.0000D+00, 1.3000D+03, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 3.6000D+02, 1.3000D+03, 0.0000D+00, 0.0000D+00, 9.5000D+02, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00,-5.0000D+02, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00,-5.0000D+02, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00,-1.6900D+03, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00,-2.0000D+02, 0.0000D+00, 2.9000D+02, & ! + & 3.4000D+02,-1.1000D+02, 0.0000D+00, 0.0000D+00,-1.2400D+03, & ! 3 & 0.0000D+00, 0.0000D+00,-1.0000D+02, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00,-3.4000D+01, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 4.5000D+01, 5.8000D+01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 3.6000D+02, 1.3000D+03, 3.6000D+02, & ! + & 1.3000D+03, 3.6000D+02, 1.3000D+03, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 3.6000D+02, 1.3000D+03, 3.7400D+02, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.0000D-06, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 3.8000D+02, & ! 8 & 1.3000D+03, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.3500D+02, 0.0000D+00, & ! 1 & -1.6000D+03, 0.0000D+00, 0.0000D+00,-3.4000D+01, 3.4500D+02, & ! + & -1.8600D+03,-1.1000D+03, 0.0000D+00, 0.0000D+00, 4.4800D+02, & ! 2 & -2.2830D+03, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 3.4000D+02, 0.0000D+00, & ! + & -1.2565D+03, 0.0000D+00, 0.0000D+00, 0.0000D+00, 6.8000D+02, & ! 4 & -2.5000D+02, 5.2700D+03, 5.2000D+02, 2.0810D+03/ !+ INTEGER :: IRRFALL( NFALLOFF ) DATA ( IRRFALL( IRXXN ), IRXXN = 1, NFALLOFF ) / & & 4, 6, 17, 19, 20, 36, 37, 40, 45, 46, & & 48, 49, 52, 54, 55, 123, 136, 138, 142, 221, & & 223, 253, 279, 347/ DATA ( RFDAT( 1,IRXXN ), IRXXN = 1, NFALLOFF ) / & & 5.0000D-11, 2.3000D-11, 3.9000D-11, 9.8000D+02, 3.1800D+03, & & 1.9000D-12, 9.7000D+14, 3.3000D-11, 2.8000D-11, 2.1990D+03, & & 4.0000D-12, 6.0000D+15, 2.0000D-12, 1.2400D-11, 1.9000D+17, & & 0.0000D+00, 1.0000D-12, 9.0000D-12, 3.0000D-11, 4.0700D-01, & & 4.0700D-01, 1.5000D-11, 1.0743D+01, 1.2600D-10/ DATA ( RFDAT( 2,IRXXN ), IRXXN = 1, NFALLOFF ) / & & 3.0000D-01, 2.4000D-01,-4.7000D-01, 0.0000D+00, 0.0000D+00, & & 2.0000D-01, 1.0000D-01,-3.0000D-01, 0.0000D+00, 6.5000D-34, & & 0.0000D+00, 0.0000D+00, 0.0000D+00,-1.1050D+00, 0.0000D+00, & & 0.0000D+00, 0.0000D+00,-8.5000D-01,-1.0000D+00,-8.0000D+00, & & -8.0000D+00,-1.9000D+00,-6.7130D-01, 0.0000D+00/ DATA ( RFDAT( 3,IRXXN ), IRXXN = 1, NFALLOFF ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & & 0.0000D+00,-1.1080D+04, 0.0000D+00, 0.0000D+00, 1.3350D+03, & & 0.0000D+00,-1.1170D+04, 0.0000D+00, 0.0000D+00,-1.4100D+04, & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & & 0.0000D+00, 0.0000D+00, 0.0000D+00,-3.4000D+02/ DATA ( RFDAT( 4,IRXXN ), IRXXN = 1, NFALLOFF ) / & & 8.5000D-01, 6.0000D-01, 4.2000D-01, 0.0000D+00, 0.0000D+00, & & 3.5000D-01, 3.5000D-01, 8.1000D-01, 6.0000D-01, 0.0000D+00, & & 4.0000D-01, 4.0000D-01, 5.3000D-01, 3.0000D-01, 3.0000D-01, & & 0.0000D+00, 3.7000D-01, 4.8000D-01, 5.0000D-01, 4.1000D-01, & & 4.1000D-01, 6.0000D-01, 0.0000D+00, 1.0000D+00/ DATA ( RFDAT( 5,IRXXN ), IRXXN = 1, NFALLOFF ) / & & 8.4000D-01, 1.0300D+00, 1.2300D+00, 0.0000D+00, 0.0000D+00, & & 1.3300D+00, 1.3300D+00, 8.7000D-01, 1.0000D+00, 0.0000D+00, & & 1.2600D+00, 1.2600D+00, 1.1000D+00, 1.4100D+00, 1.4100D+00, & & 0.0000D+00, 1.3000D+00, 1.1500D+00, 1.1300D+00, 1.0000D+00, & & 1.0000D+00, 1.0000D+00, 0.0000D+00, 1.0000D+00/ REAL( 8 ) :: SC( NRXNS,MXPRD ) DATA ( SC( IRXXN, 1 ), IRXXN = 1, NRXNS ) / & & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! O & 1.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 2.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 1 & 1.0000D+00, 1.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 2.0000D+00, 1.0000D+00, 1.0000D+00, 2.0000D+00, 1.0000D+00, & ! 2 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 2.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 2.0000D+00, & ! 3 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 2.0000D+00, 1.0000D+00, & ! + & 2.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 4 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 5.9000D-01, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 5 & 6.0000D-01, 3.7000D-01, 1.0000D+00, 2.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 6.0000D-01, 3.7000D-01, & ! 6 & 1.0000D+00, 2.0000D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00, & ! + & 1.0000D+00, 9.0000D-01, 1.0000D+00, 6.8500D-01, 1.0000D+00, & ! 7 & 1.0000D+00, 8.0000D-01, 6.0000D-01, 1.0000D+00, 1.0000D+00, & ! + & 8.0000D-01, 1.0000D+00, 5.0000D-01, 1.0000D+00, 8.0000D-01, & ! 8 & 1.0000D+00, 6.0000D-01, 1.0000D+00, 5.4000D-01, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 9 & 1.0000D+00, 2.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 5.0000D-01, 1.0000D+00, & ! O & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 2.0000D-01, 7.4000D-01, 1.0000D+00, & ! 1 & 1.8000D+00, 2.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 9.9100D-01, & ! 2 & 1.0000D+00, 9.5000D-01, 5.0000D-01, 3.8000D-01, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 2.0000D-01, 1.0000D+00, 1.0000D+00, & ! 3 & 7.0000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 5.0000D-01, & ! + & 2.0000D-01, 7.8100D-01, 2.9500D-01, 5.0000D-01, 1.2400D+00, & ! 4 & 1.3000D+00, 7.3200D-01, 5.0000D-01, 1.0000D+00, 7.5000D-01, & ! + & 1.0000D-01, 8.8000D-01, 5.9800D-01, 5.9800D-01, 1.0000D+00, & ! 5 & 6.0000D-01, 3.5000D-01, 2.2000D-02, 4.0000D-02, 7.1700D-01, & ! + & 7.6000D-01, 9.0400D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 6 & 2.7500D-01, 2.7500D-01, 2.2000D-01, 2.7500D-01, 6.3000D-01, & ! + & 1.5000D-01, 7.5000D-01, 5.7000D-01, 4.7000D-01, 1.5000D-01, & ! 7 & 7.5000D-01, 5.7000D-01, 4.7000D-01, 5.3000D-01, 9.1800D-01, & ! + & 1.0000D+00, 0.0000D+00, 1.0000D+00, 1.8000D-01, 8.6000D-01, & ! 8 & 4.8000D-01, 0.0000D+00, 4.8000D-01, 1.5500D-01, 1.5500D-01, & ! + & 8.6000D-01, 0.0000D+00, 2.6000D-01, 2.6000D-01, 2.5000D-02, & ! 9 & 3.0000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 4.0000D-01, 1.0000D+00, 1.2000D+00, 5.0000D-01, & ! O & 1.0000D+00, 6.0000D-01, 1.4000D+00, 1.0000D+00, 1.4000D-01, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 3.7000D-01, & ! 1 & 1.0000D+00, 8.0000D-01, 5.0000D-01, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 7.3200D-01, 1.0000D+00, 1.2600D-01, 1.0000D+00, & ! 2 & 2.0000D+00, 1.0000D+00, 1.0000D+00, 3.0000D-01, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 3 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 3.0000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 4 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 5 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 6 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 7 & 1.0000D+00, 1.0000D+00, 5.0000D-01, 0.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 8 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 0.0000D+00, 1.0000D+00, 9.0700D-01, 9.2500D-01, 9.4300D-01, & ! 9 & 5.0000D-01, 5.0000D-01, 1.5000D+00, 1.2500D+00, 1.0000D+00, & ! + & 1.2500D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! O & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 1 & 1.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, & ! 2 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 3 & 1.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 5.0000D-01, 1.0000D+00, 1.0000D+00, 5.0000D-01, 5.0000D-01, & ! 4 & 1.0000D+00, 7.5000D-01, 1.0000D+00, 8.6000D-01/ !+ DATA ( SC( IRXXN, 2 ), IRXXN = 1, NRXNS ) / & & 1.0000D+00, 1.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, 1.0000D+00, & ! 2 & 0.0000D+00, 1.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, & ! + & 0.0000D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 1.0000D+00, 0.0000D+00, 1.0000D+00, 5.9000D-01, & ! + & 0.0000D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00, 1.0000D+00, & ! 5 & 6.0000D-01, 1.3000D-01, 0.0000D+00, 2.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 0.0000D+00, 1.0000D+00, 6.0000D-01, 1.3000D-01, & ! 6 & 0.0000D+00, 2.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 1.0000D+00, 1.0000D-01, 9.0000D-01, 3.1500D-01, 1.0000D+00, & ! 7 & 0.0000D+00, 8.0000D-01, 1.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 2.0000D-01, 0.0000D+00, 5.0000D-01, 0.0000D+00, 8.0000D-01, & ! 8 & 0.0000D+00, 6.0000D-01, 1.0000D+00, 6.0000D-02, 1.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, & ! 9 & 1.0000D+00, 1.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 0.0000D+00, 1.0000D+00, 1.0000D+00, 5.0000D-01, 1.0000D+00, & ! O & 0.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 2.0000D-01, 8.9000D-01, 1.0000D+00, & ! 1 & 2.0000D-01, 2.0000D+00, 1.5000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, 9.9100D-01, & ! 2 & 1.0000D+00, 9.0000D-01, 5.0000D-01, 1.3800D+00, 1.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 4.2000D-01, 1.0000D+00, 0.0000D+00, & ! 3 & 7.0000D-01, 1.0000D+00, 1.0000D+00, 3.5000D-01, 5.0000D-01, & ! + & 3.0000D-01, 4.8800D-01, 5.5500D-01, 5.0000D-01, 6.6000D-01, & ! 4 & 7.0000D-01, 4.4200D-01, 5.0000D-01, 1.0000D+00, 5.0000D-01, & ! + & 9.0000D-01, 1.2000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 5 & 6.5000D-01, 6.5000D-01, 5.2100D-01, 2.3100D-01, 1.4200D-01, & ! + & 3.4000D-01, 9.3300D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 6 & 2.7500D-01, 2.7500D-01, 2.2000D-01, 2.7500D-01, 3.7000D-01, & ! + & 5.1200D+00, 5.0000D-01, 7.0000D-02, 2.8000D-01, 5.1200D+00, & ! 7 & 5.0000D-01, 7.0000D-02, 2.8000D-01, 3.5200D-01, 8.2000D-02, & ! + & 1.0000D+00, 0.0000D+00, 1.0000D+00, 6.5000D-01, 1.4000D-01, & ! 8 & 5.2000D-01, 0.0000D+00, 5.2000D-01, 5.4400D-01, 5.4400D-01, & ! + & 1.4000D-01, 0.0000D+00, 7.7000D-01, 7.7000D-01, 2.5000D-02, & ! 9 & 1.0000D+00, 0.0000D+00, 0.0000D+00, 5.0000D-01, 5.0000D-01, & ! + & 1.0000D+00, 1.0000D+00, 4.0000D-01, 5.0000D-01, 5.0000D-01, & ! O & 1.0000D+00, 4.0000D-01, 2.4000D-01, 1.0000D+00, 2.0000D-01, & ! + & 1.0000D+00, 5.0000D-01, 0.0000D+00, 1.0000D+00, 1.3000D-01, & ! 1 & 1.0000D+00, 8.0000D-01, 5.0000D-01, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 2.6800D-01, 1.0000D+00, 8.7400D-01, 0.0000D+00, & ! 2 & 0.0000D+00, 1.0000D+00, 0.0000D+00, 1.4000D+00, 1.0000D+00, & ! + & 0.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 3 & 1.0000D+00, 1.0000D+00, 9.9100D-01, 2.0000D+00, 3.3000D-01, & ! + & 7.0000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 4 & 1.0000D+00, 1.0000D+00, 0.0000D+00, 1.8000D-01, 1.5500D-01, & ! + & 1.5500D-01, 1.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, & ! 5 & 1.0000D+00, 1.0000D+00, 1.6000D-02, 1.4000D-01, 1.5000D-02, & ! + & 1.9300D-01, 3.4000D-02, 1.4600D-01, 1.0000D+00, 1.0000D+00, & ! 6 & 1.0000D+00, 2.8000D-02, 4.7300D-01, 6.0000D-03, 0.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 5.0000D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 6.8800D-01, & ! 8 & 1.0000D+00, 4.2200D-01, 7.1100D-01, 3.7000D-01, 2.4000D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, & ! + & 1.0000D+00, 0.0000D+00, 1.0000D+00, 4.8570D-01, 3.0030D-01, & ! O & 3.8560D-01, 2.1810D-01, 2.4120D-01, 6.6640D-01, 2.8580D-01, & ! + & 3.3030D-01, 3.4440D-01, 3.8860D-01, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 5.8000D-01, & ! 2 & 5.2000D-01, 4.5000D-02, 5.8000D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 5.0000D-01, 1.0000D+00, 1.0000D+00, 5.0000D-01, 5.0000D-01, & ! 4 & 1.0000D+00, 2.5000D-01, 1.0000D+00, 1.0000D+00/ !+ DATA ( SC( IRXXN, 3 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 4.1000D-01, & ! + & 0.0000D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 4.0000D-01, 1.3000D-01, 0.0000D+00, 0.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 0.0000D+00, 0.0000D+00, 4.0000D-01, 1.3000D-01, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 1.0000D+00, 0.0000D+00, 9.0000D-01, 3.7000D-01, 0.0000D+00, & ! 7 & 0.0000D+00, 2.0000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 8.0000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.0000D-01, & ! 8 & 0.0000D+00, 4.0000D-01, 1.0000D+00, 6.0000D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 1.0000D+00, 2.0000D-01, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 1.0000D+00, 8.0000D-01, 1.4000D+00, 0.0000D+00, & ! 1 & 2.0000D-01, 0.0000D+00, 5.0000D-01, 1.0000D+00, 1.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 9.0000D-03, & ! 2 & 0.0000D+00, 1.0000D-01, 5.0000D-01, 1.3800D+00, 1.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 7.4000D-01, 0.0000D+00, 0.0000D+00, & ! 3 & 3.0000D-01, 1.0000D+00, 1.5600D+00, 2.7000D-01, 5.0000D-01, & ! + & 1.0000D-01, 4.8800D-01, 2.7000D-01, 4.8000D-01, 1.0000D-01, & ! 4 & 1.0000D+00, 1.2800D-01, 4.8000D-01, 1.0000D+00, 2.5000D-01, & ! + & 6.7300D-01, 1.2000D-01, 7.2800D-01, 7.2800D-01, 0.0000D+00, & ! 5 & 1.5000D-01, 6.4000D-01, 1.1500D-01, 5.3100D-01, 1.4200D-01, & ! + & 1.6000D-01, 6.7000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 2.7500D-01, 2.7500D-01, 2.2000D-01, 2.7500D-01, 1.0000D+00, & ! + & 1.0000D+00, 2.5000D-01, 6.9000D-01, 7.5000D-01, 1.0000D+00, & ! 7 & 2.5000D-01, 6.9000D-01, 7.5000D-01, 3.5200D-01, 9.1800D-01, & ! + & 1.0000D+00, 0.0000D+00, 1.0000D+00, 7.2000D-01, 4.1700D-01, & ! 8 & 7.7000D-01, 0.0000D+00, 7.7000D-01, 6.0200D-01, 6.0200D-01, & ! + & 2.2100D-01, 0.0000D+00, 3.5000D-01, 3.5000D-01, 1.0000D+00, & ! 9 & 4.8000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 7.0000D-01, 2.0000D+00, 6.0000D-01, 4.5000D-01, & ! O & 1.0000D+00, 4.0000D-01, 5.0000D-01, 0.0000D+00, 5.0000D-01, & ! + & 0.0000D+00, 5.0000D-01, 0.0000D+00, 0.0000D+00, 1.3000D-01, & ! 1 & 1.0000D+00, 1.8000D+00, 1.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 2.6800D-01, 0.0000D+00, 1.2600D-01, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 1.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, & ! 3 & 0.0000D+00, 9.7000D-01, 9.9100D-01, 1.0000D+00, 6.7000D-01, & ! + & 4.5000D-01, 9.6000D-01, 1.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 1.0000D+00, 1.0000D+00, 0.0000D+00, 6.5000D-01, 5.4400D-01, & ! + & 5.4400D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 5.1000D-02, 0.0000D+00, 2.3000D-02, & ! + & 0.0000D+00, 3.9200D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 2.2500D-01, 0.0000D+00, 5.2000D-02, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, & ! + & 1.0000D+00, 0.0000D+00, 0.0000D+00, 6.2000D-03, 2.8620D-01, & ! O & 9.5000D-02, 3.0630D-01, 2.0890D-01, 1.4300D-02, 3.9310D-01, & ! + & 2.2720D-01, 2.7490D-01, 2.4210D-01, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 1.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, & ! 4 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 4.5000D-01/ !+ DATA ( SC( IRXXN, 4 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 4.1000D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 4.0000D-01, 5.0000D-01, 0.0000D+00, 0.0000D+00, 2.0000D+00, & ! + & 1.0000D+00, 0.0000D+00, 0.0000D+00, 4.0000D-01, 5.0000D-01, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 1.0000D-01, 1.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 8.0000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 8.0000D-01, & ! 8 & 0.0000D+00, 4.0000D-01, 0.0000D+00, 4.0000D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.0000D-01, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 1.0000D+00, 0.0000D+00, 1.5000D-01, 0.0000D+00, & ! 1 & 1.0000D+00, 0.0000D+00, 5.0000D-01, 0.0000D+00, 1.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, & ! 2 & 0.0000D+00, 1.0000D-01, 5.0000D-01, 6.2000D-01, 1.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 3.7000D-01, 0.0000D+00, 0.0000D+00, & ! 3 & 3.0000D-01, 7.0000D-01, 2.2000D-01, 1.7000D-01, 5.0000D-01, & ! + & 2.0000D-01, 9.7600D-01, 1.5000D-01, 4.8000D-01, 1.0000D-01, & ! 4 & 1.0000D+00, 2.4500D-01, 4.8000D-01, 0.0000D+00, 2.5000D-01, & ! + & 9.0000D-01, 1.2000D-01, 7.2000D-02, 7.2000D-02, 0.0000D+00, & ! 5 & 2.0000D-01, 3.3000D-01, 1.1500D-01, 1.7000D-01, 1.4200D-01, & ! + & 3.4000D-01, 6.7000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 1.1250D+00, 1.2500D-01, 1.0000D-01, 1.2500D-01, 4.4400D-01, & ! + & 0.0000D+00, 1.5000D+00, 1.8000D-01, 2.5000D-01, 0.0000D+00, & ! 7 & 1.5000D+00, 1.8000D-01, 2.5000D-01, 1.1800D-01, 9.1800D-01, & ! + & 1.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D-01, 4.4300D-01, & ! 8 & 2.3000D-01, 0.0000D+00, 2.3000D-01, 2.4400D-01, 2.4400D-01, & ! + & 6.7500D-01, 0.0000D+00, 6.5000D-01, 6.5000D-01, 2.0000D-01, & ! 9 & 1.2000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 1.0000D+00, 7.0000D-01, 2.0000D+00, 1.0000D-01, 4.5000D-01, & ! O & 0.0000D+00, 4.0000D-01, 1.2000D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 8.0000D-01, 0.0000D+00, 0.0000D+00, 5.0000D-01, & ! 1 & 2.0000D+00, 2.0000D-01, 5.0000D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 1.0000D+00, 0.0000D+00, 8.7400D-01, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 3.0000D-02, 9.0000D-03, 1.0000D+00, 2.0000D+00, & ! + & 5.5000D-01, 4.0000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 7.2000D-01, 6.0200D-01, & ! + & 6.0200D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 4.7000D-02, 0.0000D+00, 6.0000D-02, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 1.9100D-01, 0.0000D+00, 8.1000D-02, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.5000D-03, 4.1000D-03, & ! O & 1.3730D-01, 1.5300D-02, 3.0000D-01, 1.2300D-02, 1.3900D-02, & ! + & 2.6070D-01, 4.9100D-02, 6.4000D-02, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 1.0000D+00, 4.5000D-01/ !+ DATA ( SC( IRXXN, 5 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 4.0000D-01, 5.0000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 4.0000D-01, 5.0000D-01, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 9.0000D-01, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 1.0000D+00, 0.0000D+00, 1.9000D-01, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 7.8000D-02, 5.0000D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 4.0000D-02, 0.0000D+00, 0.0000D+00, & ! 3 & 3.0000D-01, 7.0000D-01, 0.0000D+00, 4.2000D-01, 1.0000D+00, & ! + & 2.0000D-01, 1.9500D-01, 1.5000D-01, 4.0000D-02, 1.0000D-01, & ! 4 & 0.0000D+00, 5.0000D-01, 4.0000D-02, 0.0000D+00, 2.5000D-01, & ! + & 8.1800D-01, 1.2000D-01, 8.0000D-01, 1.0720D+00, 0.0000D+00, & ! 5 & 3.5000D-01, 3.0000D-02, 2.6900D-01, 1.7000D-01, 1.4200D-01, & ! + & 2.0800D-01, 2.9000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 8.2500D-01, 8.2500D-01, 6.6000D-01, 8.2500D-01, 1.8500D-01, & ! + & 0.0000D+00, 2.8000D-01, 9.4000D-01, 1.2800D+00, 0.0000D+00, & ! 7 & 2.8000D-01, 9.4000D-01, 1.2800D+00, 1.1800D-01, 9.1800D-01, & ! + & 1.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D-01, 6.6000D-01, & ! 8 & 1.0000D+00, 0.0000D+00, 1.0000D+00, 2.4400D-01, 2.4400D-01, & ! + & 3.0000D-01, 0.0000D+00, 1.0000D+00, 1.0000D+00, 7.3200D-01, & ! 9 & 2.4000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 3.0000D-01, 0.0000D+00, 5.0000D-01, 1.0000D-01, & ! O & 0.0000D+00, 0.0000D+00, 8.0000D-02, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 2.0000D-01, 0.0000D+00, 0.0000D+00, 5.0000D-01, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 1.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00, 1.0000D+00, & ! + & 3.0000D-01, 1.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D-01, 2.4400D-01, & ! + & 2.4400D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.6000D-03, 3.5000D-03, & ! O & 5.0000D-04, 1.0430D-01, 2.0280D-01, 1.2390D-01, 1.0270D-01, & ! + & 7.0200D-02, 2.5770D-01, 3.8500D-02, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.4000D-01/ !+ DATA ( SC( IRXXN, 6 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 5.0000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 4.0000D-01, 5.0000D-01, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.1000D-01, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 1.1000D-02, 1.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 9.4000D-01, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 3.0000D-01, 0.0000D+00, 0.0000D+00, 1.1250D+00, & ! + & 2.0000D-01, 2.4000D-02, 3.3400D-01, 1.0000D+00, 1.0000D-01, & ! 4 & 0.0000D+00, 3.0000D-01, 1.0000D+00, 0.0000D+00, 2.5000D-01, & ! + & 8.2000D-02, 0.0000D+00, 2.0000D-01, 0.0000D+00, 0.0000D+00, & ! 5 & 2.6600D-01, 1.0000D+00, 2.6900D-01, 5.4300D-01, 1.1300D-01, & ! + & 2.6000D-01, 2.9000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 3.7500D-01, 3.7500D-01, 3.0000D-01, 3.7500D-01, 1.0400D-01, & ! + & 0.0000D+00, 1.6600D+00, 2.4000D-01, 4.7000D-01, 0.0000D+00, & ! 7 & 1.6600D+00, 2.4000D-01, 4.7000D-01, 5.3000D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 7.0000D-02, 2.0000D-01, & ! 8 & 1.0000D+00, 0.0000D+00, 1.0000D+00, 5.8000D-02, 5.8000D-02, & ! + & 5.6000D-01, 0.0000D+00, 1.0000D+00, 1.0000D+00, 2.0000D-02, & ! 9 & 2.4000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 3.0000D-01, 1.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 2.0000D-02, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 5.0000D-01, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00,-1.2600D-01, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00,-1.0000D+00, & ! + & 3.0000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D-01, 2.4400D-01, & ! + & 2.4400D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.3000D-03, 2.2390D-01, & ! O & 2.0510D-01, 1.8930D-01, 4.7100D-02, 1.8310D-01, 2.0450D-01, & ! + & 1.1160D-01, 7.3900D-02, 2.6670D-01, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 5.5000D-01/ !+ DATA ( SC( IRXXN, 7 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.1000D-01, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00,-2.5000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 9.8000D-01, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 1.0000D-02, 1.1950D+00, 8.0000D-02, 5.0000D-01, 0.0000D+00, & ! 4 & 0.0000D+00, 3.0000D-01, 5.0000D-01, 0.0000D+00, 2.5000D-01, & ! + & 8.2000D-02, 0.0000D+00, 8.7200D-01, 0.0000D+00, 0.0000D+00, & ! 5 & 2.0000D-01, 3.5000D-01, 4.5700D-01, 4.6100D-01, 1.1300D-01, & ! + & 2.4000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 7.4000D-02, 1.0000D+00, 2.0000D-01, 2.5100D-01, 5.9200D-01, & ! + & 0.0000D+00, 4.7000D-01, 1.0000D-03, 5.3000D-01, 0.0000D+00, & ! 7 & 4.7000D-01, 1.0000D-03, 5.3000D-01, 1.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.8000D-01, 8.6000D-01, & ! 8 & 1.0000D+00, 0.0000D+00, 0.0000D+00, 1.5500D-01, 1.5500D-01, & ! + & 8.6000D-01, 0.0000D+00, 1.0000D+00, 0.0000D+00, 2.0000D-02, & ! 9 & 4.8000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 3.0000D-01, 2.5000D-01, & ! O & 0.0000D+00, 0.0000D+00, 1.9800D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 1.7000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 7.0000D-02, 5.8000D-02, & ! + & 5.8000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.9440D-01, 1.8200D-01, & ! O & 1.7640D-01, 1.6680D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00/ !+ DATA ( SC( IRXXN, 8 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.1000D-01, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 2.0000D-02, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 2.1000D-01,-7.3000D-01, 3.7800D-01, 2.5000D-01, 0.0000D+00, & ! 4 & 0.0000D+00, 2.4000D-01, 6.2500D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 2.0000D-01, 3.5000D-01, 1.1700D-01, 1.5000D-01, 7.1700D-01, & ! + & 2.4000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 2.5100D-01, 2.5100D-01, 1.7400D+00, 2.1750D+00, 3.3100D-01, & ! + & 0.0000D+00, 1.0000D+00, 7.0000D+00, 1.0000D+00, 0.0000D+00, & ! 7 & 1.0000D+00, 7.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 1.0000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.5000D-01, & ! O & 0.0000D+00, 0.0000D+00, 5.6000D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 1.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.8000D-01, 1.5500D-01, & ! + & 1.5500D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.0210D-01, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00/ !+ DATA ( SC( IRXXN, 9 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00,-2.7000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 2.0000D-01, 0.0000D+00, 7.5000D-02, 3.7500D-01, 0.0000D+00, & ! 4 & 0.0000D+00, 6.0000D-02, 1.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 6.6000D-02, 1.0000D+00, 1.3700D-01, 3.9800D-01, 7.1700D-01, & ! + & 1.7000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 2.1750D+00, 2.1750D+00, 8.0000D-01, 1.0000D+00, 1.8500D-01, & ! + & 0.0000D+00, 0.0000D+00, 2.1000D-01, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 2.1000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 7.0000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.9000D-03, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00/ !+ DATA ( SC( IRXXN, 10 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 1.0000D-01, 0.0000D+00, 7.5000D-02,-1.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 2.9000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 6.6000D-02, 0.0000D+00, 1.3700D-01, 1.4300D-01, 2.8400D-01, & ! + & 1.2800D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 2.0000D-01, 0.0000D+00, 2.7000D+00, & ! + & 0.0000D+00, 0.0000D+00, 3.9000D-01, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 3.9000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.3000D-03, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00/ !+ DATA ( SC( IRXXN, 11 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 9.0000D-02, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 8.0000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 1.3700D-01, 0.0000D+00, 0.0000D+00, & ! + & 8.4000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 8.0000D-01, 0.0000D+00, 9.8000D-02, & ! + & 0.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 1.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00/ !+ DATA ( SC( IRXXN, 12 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 1.3000D-01, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 8.0000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 6.5800D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 7.8000D-02, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00/ !+ DATA ( SC( IRXXN, 13 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 4.0000D-02, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.6600D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00/ !+ DATA ( SC( IRXXN, 14 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00,-7.9000D-01, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00/ !+ INTEGER :: NREACT( NRXNS ) DATA ( NREACT( IRXXN ), IRXXN = 1, NRXNS ) / & & 1, 1, 2, 2, 2, 2, 2, 1, 1, 1, & ! O & 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 1 & 1, 2, 2, 2, 2, 2, 1, 1, 2, 2, & ! 2 & 2, 2, 2, 2, 2, 2, 1, 1, 1, 2, & ! 3 & 2, 2, 1, 2, 2, 2, 1, 2, 1, 1, & ! 4 & 2, 2, 2, 2, 1, 1, 2, 2, 2, 2, & ! 5 & 2, 2, 1, 1, 2, 2, 2, 2, 2, 2, & ! 6 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 7 & 2, 2, 2, 2, 2, 2, 2, 1, 2, 1, & ! 8 & 2, 1, 2, 2, 2, 2, 1, 1, 2, 2, & ! 9 & 2, 1, 2, 2, 2, 2, 2, 1, 2, 2, & ! O & 2, 1, 2, 1, 2, 2, 1, 2, 1, 2, & ! 1 & 2, 1, 2, 1, 2, 2, 2, 1, 1, 2, & ! 2 & 2, 2, 1, 1, 2, 2, 2, 2, 2, 2, & ! 3 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 4 & 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, & ! 5 & 1, 2, 1, 2, 2, 2, 2, 2, 2, 2, & ! 6 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 7 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 8 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 9 & 1, 1, 2, 2, 2, 1, 2, 2, 2, 2, & ! O & 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, & ! 1 & 1, 1, 1, 1, 2, 1, 1, 2, 2, 2, & ! 2 & 2, 2, 2, 1, 1, 2, 2, 2, 2, 2, & ! 3 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 4 & 2, 1, 2, 1, 1, 1, 1, 2, 2, 2, & ! 5 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, & ! 6 & 1, 1, 1, 1, 2, 2, 2, 1, 1, 1, & ! 7 & 2, 1, 1, 1, 2, 2, 2, 2, 2, 2, & ! 8 & 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, & ! 9 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! O & 2, 2, 2, 2, 2, 2, 1, 1, 2, 2, & ! 1 & 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, & ! 2 & 2, 1, 2, 2, 2, 2, 1, 2, 2, 2, & ! 3 & 2, 2, 2, 2, 2, 2, 2, 2, 2/ !4 INTEGER :: NPRDCT( NRXNS ) DATA ( NPRDCT( IRXXN ), IRXXN = 1, NRXNS ) / & & 2, 1, 1, 1, 1, 1, 0, 1, 1, 1, & ! O & 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, & ! 1 & 1, 1, 2, 1, 2, 1, 2, 1, 1, 2, & ! 2 & 1, 2, 2, 1, 1, 1, 2, 2, 1, 1, & ! 3 & 1, 2, 2, 1, 1, 1, 2, 1, 2, 4, & ! 4 & 1, 3, 3, 1, 2, 5, 6, 1, 2, 4, & ! 5 & 4, 1, 2, 6, 6, 1, 2, 1, 1, 0, & ! 6 & 3, 2, 5, 4, 2, 1, 4, 2, 1, 1, & ! 7 & 3, 1, 2, 1, 4, 1, 4, 3, 4, 2, & ! 8 & 1, 1, 1, 2, 1, 2, 2, 1, 3, 3, & ! 9 & 1, 2, 3, 4, 2, 1, 2, 4, 2, 1, & ! O & 2, 5, 3, 8, 2, 4, 2, 5, 3, 4, & ! 1 & 2, 1, 1, 2, 4, 2, 6, 7, 4, 4, & ! 2 & 1, 1, 9, 2, 1, 5, 6, 4, 5, 6, & ! 3 & 10, 8, 14, 10, 6, 4, 12, 9, 3, 7, & ! 4 & 7, 5, 7, 5, 2, 10, 9, 12, 10, 10, & ! 5 & 11, 6, 2, 2, 2, 9, 9, 11, 9, 13, & ! 6 & 3, 8, 11, 8, 3, 8, 11, 7, 7, 5, & ! 7 & 5, 0, 4, 8, 7, 7, 0, 6, 8, 8, & ! 8 & 7, 0, 7, 6, 7, 9, 1, 1, 2, 3, & ! 9 & 4, 5, 4, 7, 8, 3, 4, 8, 2, 3, & ! O & 2, 5, 1, 2, 6, 4, 4, 4, 2, 2, & ! 1 & 2, 5, 2, 6, 1, 1, 2, 1, 2, 2, & ! 2 & 1, 3, 2, 3, 3, 2, 5, 5, 4, 6, & ! 3 & 8, 5, 3, 2, 2, 3, 3, 1, 9, 9, & ! 4 & 9, 2, 1, 2, 2, 2, 2, 4, 2, 4, & ! 5 & 2, 3, 2, 2, 2, 2, 4, 2, 4, 1, & ! 6 & 2, 2, 1, 1, 1, 1, 1, 2, 0, 1, & ! 7 & 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, & ! 8 & 0, 1, 1, 1, 1, 1, 1, 1, 3, 1, & ! 9 & 3, 1, 2, 10, 7, 7, 7, 6, 6, 6, & ! O & 6, 6, 6, 1, 1, 1, 0, 0, 1, 1, & ! 1 & 1, 1, 0, 1, 2, 2, 2, 2, 1, 1, & ! 2 & 1, 0, 1, 1, 1, 1, 0, 1, 1, 1, & ! 3 & 3, 2, 2, 3, 3, 3, 3, 4, 6/ !4 INTEGER, PARAMETER :: MHETERO = 18 INTEGER :: IHETERO( MHETERO,2 ) DATA ( IHETERO( IRXXN,1 ), IRXXN = 1, MHETERO ) / & & 256, 257, 270, 271, 272, 273, 274, 275, 276, 277, & & 278, 280, 281, 282, 283, 284, 300, 302/ DATA ( IHETERO( IRXXN,2 ), IRXXN = 1, MHETERO ) / & & 1, 2, 3, 4, 5, 6, 7, 8, 8, 9, & & 10, 11, 12, 13, 14, 15, 16, 17/ INTEGER, PARAMETER :: NPHOTAB = 32 CHARACTER( 16 ) :: PHOTAB( NPHOTAB ) DATA ( PHOTAB( IRXXN ), IRXXN = 1, NPHOTAB ) / & & 'NO2_IUPAC10 ', 'O3_O3P_IUPAC10 ', 'O3_O1D_IUPAC10 ', & & 'H2O2_IUPAC10 ', 'NO3NO2_06 ', 'NO3NO_06 ', & & 'N2O5_IUPAC10 ', 'HONO_IUPAC10 ', 'HNO3_IUPAC10 ', & & 'PNA_IUPAC10 ', 'PAN_IUPAC10 ', 'MEPX_IUPAC10 ', & & 'NTR_IUPAC10 ', 'FORM_R_IUPAC13 ', 'FORM_M_IUPAC13 ', & & 'ALD2_R_IUPAC13 ', 'ALDX_R_IUPAC13 ', 'GLYD_IUPAC13 ', & & 'GLY_R_IUPAC13 ', 'MGLY_IUPAC10 ', 'KET_IUPAC10 ', & & 'ACET_IUPAC10 ', 'ISPD ', 'HPALD ', & & 'CL2_IUPAC04 ', 'HOCL_IUPAC04 ', 'FMCL_IUPAC04 ', & & 'CLNO2_IUPAC13 ', 'CLONO2_1 ', 'CLONO2_2 ', & & 'IC3ONO2 ', 'ACRO_09 '/ INTEGER, PARAMETER :: NHETERO = 17 CHARACTER( 16 ) :: HETERO( NHETERO ) DATA ( HETERO( IRXXN ), IRXXN = 1, NHETERO ) / & & 'HETERO_CLNO3_WAI', 'HETERO_CLNO3_WAJ', 'HETERO_NTR2 ', & & 'HETERO_N2O5IJ ', 'HETERO_N2O5K ', 'HETERO_H2NO3PAIJ', & & 'HETERO_H2NO3PAK ', 'HETERO_H2NO3PBIJ', 'HETERO_H2NO3PBK ', & & 'HETERO_NO2 ', 'HETERO_IEPOX ', 'HETERO_IEPOXOS ', & & 'HETERO_TETROL ', 'HETERO_GLY ', 'HETERO_MGLY ', & & 'HETERO_PNCOMLI ', 'HETERO_PNCOMLJ '/ CHARACTER( 16 ) :: RXLABEL( NRXNS ) DATA ( RXLABEL( IRXXN ), IRXXN = 1, NRXNS ) / & & 'R1 ', 'R2 ', 'R3 ', & ! 0 & 'R4 ', 'R5 ', 'R6 ', & ! 1 & 'R7 ', 'R8 ', 'R9 ', & ! 2 & 'R10 ', 'R11 ', 'R12 ', & ! 3 & 'R13 ', 'R14 ', 'R15 ', & ! 4 & 'R16 ', 'R17 ', 'R18 ', & ! 5 & 'R19 ', 'R20 ', 'R21 ', & ! 6 & 'R22 ', 'R23 ', 'R24 ', & ! 7 & 'R25 ', 'R26 ', 'R27 ', & ! 8 & 'R28 ', 'R29 ', 'R30 ', & ! 9 & 'R31 ', 'R32 ', 'R33 ', & ! 0 & 'R34 ', 'R35 ', 'R36 ', & ! 1 & 'R37 ', 'R38 ', 'R39 ', & ! 2 & 'R40 ', 'R41 ', 'R42 ', & ! 3 & 'R43 ', 'R44 ', 'R45 ', & ! 4 & 'R46 ', 'R47 ', 'R48 ', & ! 5 & 'R49 ', 'R50 ', 'R51 ', & ! 6 & 'R52 ', 'R53 ', 'R54 ', & ! 7 & 'R55 ', 'R56 ', 'R57 ', & ! 8 & 'R58 ', 'R59 ', 'R60 ', & ! 9 & 'R61 ', 'R62 ', 'R63 ', & ! 0 & 'R64 ', 'R65 ', 'R66 ', & ! 1 & 'R67 ', 'R68 ', 'R69 ', & ! 2 & 'R70 ', 'R71 ', 'R72 ', & ! 3 & 'R73 ', 'R74 ', 'R75 ', & ! 4 & 'R76 ', 'R77 ', 'R78 ', & ! 5 & 'R79 ', 'R80 ', 'R81 ', & ! 6 & 'R82 ', 'R83 ', 'R84 ', & ! 7 & 'R85 ', 'R86 ', 'R87 ', & ! 8 & 'R88 ', 'R89 ', 'R90 ', & ! 9 & 'R91 ', 'R92 ', 'R93 ', & ! 0 & 'R94 ', 'R95 ', 'R96 ', & ! 1 & 'R97 ', 'R98 ', 'R99 ', & ! 2 & 'R100 ', 'R101 ', 'R102 ', & ! 3 & 'R103 ', 'R104 ', 'R105 ', & ! 4 & 'R106 ', 'R107 ', 'R108 ', & ! 5 & 'R109 ', 'R110 ', 'R111 ', & ! 6 & 'R112 ', 'R113 ', 'R114 ', & ! 7 & 'R115 ', 'R116 ', 'R117 ', & ! 8 & 'R118 ', 'R119 ', 'R120 ', & ! 9 & 'R121 ', 'R122 ', 'R123 ', & ! 0 & 'R124 ', 'R125 ', 'R126 ', & ! 1 & 'R127 ', 'R128 ', 'R129 ', & ! 2 & 'R130 ', 'R131 ', 'R132 ', & ! 3 & 'R133 ', 'R134 ', 'R135 ', & ! 4 & 'R136 ', 'R137 ', 'R138 ', & ! 5 & 'R139 ', 'R140 ', 'R141 ', & ! 6 & 'R142 ', 'R143 ', 'R144 ', & ! 7 & 'R145 ', 'R146 ', 'R147 ', & ! 8 & 'R148 ', 'R149 ', 'R150 ', & ! 9 & 'R151 ', 'R152 ', 'R153 ', & ! 0 & 'R154 ', 'R155 ', 'R156 ', & ! 1 & 'R157 ', 'R158 ', 'R159 ', & ! 2 & 'R160 ', 'R161 ', 'R162 ', & ! 3 & 'R163 ', 'R164 ', 'R165 ', & ! 4 & 'R166 ', 'R167 ', 'R168 ', & ! 5 & 'R169 ', 'R170 ', 'R171 ', & ! 6 & 'R172 ', 'R173 ', 'R174 ', & ! 7 & 'R171a ', 'R172a ', 'R173a ', & ! 8 & 'R174a ', 'R175 ', 'R176 ', & ! 9 & 'R177 ', 'R178 ', 'R179 ', & ! 0 & 'R180 ', 'R181 ', 'R182 ', & ! 1 & 'R183 ', 'R184 ', 'R185 ', & ! 2 & 'R185a ', 'R186 ', 'R187 ', & ! 3 & 'R188 ', 'R189 ', 'R190 ', & ! 4 & 'R191 ', 'R192 ', 'R193 ', & ! 5 & 'R194 ', 'R195 ', 'R196 ', & ! 6 & 'R197 ', 'R198 ', 'R199 ', & ! 7 & 'R200 ', 'R201 ', 'R202 ', & ! 8 & 'R203 ', 'R204 ', 'R205 ', & ! 9 & 'R206 ', 'R207 ', 'R208 ', & ! 0 & 'R209 ', 'R210 ', 'R211 ', & ! 1 & 'R212 ', 'R213 ', 'R214 ', & ! 2 & 'R216 ', 'R217 ', 'R218 ', & ! 3 & 'R219 ', 'R220 ', 'R221 ', & ! 4 & 'CL1 ', 'CL2 ', 'CL3 ', & ! 5 & 'CL4 ', 'CL5 ', 'CL6 ', & ! 6 & 'CL7 ', 'CL8 ', 'CL9 ', & ! 7 & 'CL10 ', 'CL11 ', 'CL12 ', & ! 8 & 'CL13 ', 'CL14 ', 'CL15 ', & ! 9 & 'CL16 ', 'CL17 ', 'CL18 ', & ! 0 & 'CL19 ', 'CL20 ', 'CL21 ', & ! 1 & 'CL22 ', 'CL23 ', 'CL24 ', & ! 2 & 'CL25 ', 'CL26 ', 'CL27 ', & ! 3 & 'CL28 ', 'CL30 ', 'CL31 ', & ! 4 & 'HET_CLNO3_WAI ', 'HET_CLNO3_WAJ ', 'SA01 ', & ! 5 & 'SA02 ', 'SA03 ', 'SA04 ', & ! 6 & 'SA06 ', 'SA07 ', 'SA08 ', & ! 7 & 'SA09 ', 'SA10 ', 'SA11 ', & ! 8 & 'SA12 ', 'SA13 ', 'HET_NTR2 ', & ! 9 & 'HET_N2O5IJ ', 'HET_N2O5K ', 'HET_H2NO3PIJA ', & ! 0 & 'HET_H2NO3PKA ', 'HET_H2NO3PIB ', 'HET_H2NO3PJB ', & ! 1 & 'HET_H2NO3PKB ', 'HET_N02 ', 'HAL_Ozone ', & ! 2 & 'HET_IEPOX ', 'HET_IEPOXOS ', 'HET_TETROL ', & ! 3 & 'HET_GLY ', 'HET_MGLY ', 'BL18a ', & ! 4 & 'BL18b ', 'BL18c ', 'BL18d ', & ! 5 & 'CP07mtp ', 'BP70mtp ', 'BP71mtp ', & ! 6 & 'HYD_MT ', 'OLIG_AROMATIC1 ', 'OLIG_AROMATIC2 ', & ! 7 & 'OLIG_AROMATIC3 ', 'OLIG_ISOPRENE1 ', 'OLIG_ISOPRENE2 ', & ! 8 & 'OLIG_SESQT1 ', 'RPOAGEPI ', 'RPOAGELI ', & ! 9 & 'RPOAGEPJ ', 'RPOAGELJ ', 'PCSOA ', & ! 0 & 'POA_AGE1 ', 'POA_AGE2 ', 'POA_AGE3 ', & ! 1 & 'POA_AGE4 ', 'POA_AGE5 ', 'POA_AGE6 ', & ! 2 & 'POA_AGE7 ', 'POA_AGE8 ', 'POA_AGE9 ', & ! 3 & 'POA_AGE10 ', 'T01 ', 'T02 ', & ! 4 & 'T03 ', 'T04 ', 'T05 ', & ! 5 & 'TCL1 ', 'T06 ', 'T07 ', & ! 6 & 'T08 ', 'T09 ', 'TCL2 ', & ! 7 & 'T10 ', 'T11 ', 'T12 ', & ! 8 & 'TCL3 ', 'T13 ', 'T14 ', & ! 9 & 'T15 ', 'T16 ', 'TCL4 ', & ! 0 & 'T17 ', 'T18 ', 'T19 ', & ! 1 & 'T20 ', 'TCL5 ', 'T21 ', & ! 2 & 'TCL6 ', 'HG1 ', 'HG2 ', & ! 3 & 'HG3 ', 'HG4 ', 'HG5 ', & ! 4 & 'DMS1 ', 'DMS2 ', 'DMS3 ', & ! 5 & 'DMS4 '/ ! 6 ! NSPECIAL = Number of special rate coefficients ! SPECIAL = Names of special rate coefficients ! NSPECIAL_RXN = Number of reactions with special rates ! ISPECIAL = Pointers to reactions using special rates and their special rate coefficients ! MAXSPECTERMS = Max Number of terms type used by special rate coefficients ! KC_COEFFS = Coefficients of standard rate coefficients times concentration terms ! INDEX_KTERMS = Pointers to standard rate coefficients in special rate coefficients ! INDEX_CTERMS = Pointers to species concentrations in special rate coefficients ! OPERATOR_COEFFS = Coefficients of preceeding special rate coefficients used in special coefficient ! OPERATORS = Pointers to preceeding special rate coefficients used in special coefficient ! Special Rate information not available .. INTEGER, PARAMETER :: NSPECIAL_RXN = 0 INTEGER :: ISPECIAL( 1, 2 ) ! Special Rate information not available ... INTEGER, PARAMETER :: NSPECIAL = 0 ! Special Rate information not available ... CHARACTER( 16 ) :: SPECIAL( 1 ) INTEGER, PARAMETER :: MAXSPECTERMS = 1 REAL( 8 ) :: KC_COEFFS( NSPECIAL + 1, MAXSPECTERMS) INTEGER :: INDEX_KTERMS( NSPECIAL + 1, MAXSPECTERMS) INTEGER :: INDEX_CTERMS( NSPECIAL + 1, MAXSPECTERMS) REAL( 8 ) :: OPERATOR_COEFFS( NSPECIAL + 1, MAXSPECTERMS) INTEGER :: OPERATORS( NSPECIAL + 1, MAXSPECTERMS) ! Steady-state species section ! N_SS_SPC = Number of species assumed to be in steady-state ! SS_SPC_DIM = Dimension paramete for steady-state species ! SS_SPC = Names of species assumed to be in steady-state ! MAX_SS_LOSS = Max no. of SS loss rxns for any SS species ! MAX_SS_PROD = Max no. of SS prod rxns for any SS species ! N_LOSS_RXNS = No. of SS loss rxns for each SS species ! N_PROD_RXNS = No. of SS prod rxns for each SS species ! SS_LOSS_RXNS = List of SS loss rxns for each SS species ! SS_PROD_RXNS = List of SS prod rxns for each SS species ! SS_PROD_COEF = List of SS prod yields for each SS species ! SS_RCT_IND = SS species index if it is a rxn reactant INTEGER, PARAMETER :: N_SS_SPC = 0 INTEGER, PARAMETER :: SS_SPC_DIM = 1 INTEGER, PARAMETER :: MAX_SS_LOSS = 0 INTEGER, PARAMETER :: MAX_SS_PROD = 0 CHARACTER( 16 ) :: SS_SPC( 1 ) INTEGER :: N_LOSS_RXNS( 1 ) INTEGER :: N_PROD_RXNS( 1 ) INTEGER :: SS_LOSS_RXNS( 1, 1 ) INTEGER :: SS_PROD_RXNS( 1, 1 ) INTEGER :: SS_RCT_IND( 1 ) REAL :: SS_PROD_COEF( 1,1 ) LOGICAL, PARAMETER :: USE_SPECIAL_RATES = .FALSE. ! pointers and names to specific photolysis rates INTEGER, PARAMETER :: IJ_NO2_IUPAC10 = 1 INTEGER, PARAMETER :: IJ_O3_O3P_IUPAC10 = 2 INTEGER, PARAMETER :: IJ_O3_O1D_IUPAC10 = 3 INTEGER, PARAMETER :: IJ_H2O2_IUPAC10 = 4 INTEGER, PARAMETER :: IJ_NO3NO2_06 = 5 INTEGER, PARAMETER :: IJ_NO3NO_06 = 6 INTEGER, PARAMETER :: IJ_N2O5_IUPAC10 = 7 INTEGER, PARAMETER :: IJ_HONO_IUPAC10 = 8 INTEGER, PARAMETER :: IJ_HNO3_IUPAC10 = 9 INTEGER, PARAMETER :: IJ_PNA_IUPAC10 = 10 INTEGER, PARAMETER :: IJ_PAN_IUPAC10 = 11 INTEGER, PARAMETER :: IJ_MEPX_IUPAC10 = 12 INTEGER, PARAMETER :: IJ_NTR_IUPAC10 = 13 INTEGER, PARAMETER :: IJ_FORM_R_IUPAC13 = 14 INTEGER, PARAMETER :: IJ_FORM_M_IUPAC13 = 15 INTEGER, PARAMETER :: IJ_ALD2_R_IUPAC13 = 16 INTEGER, PARAMETER :: IJ_ALDX_R_IUPAC13 = 17 INTEGER, PARAMETER :: IJ_GLYD_IUPAC13 = 18 INTEGER, PARAMETER :: IJ_GLY_R_IUPAC13 = 19 INTEGER, PARAMETER :: IJ_MGLY_IUPAC10 = 20 INTEGER, PARAMETER :: IJ_KET_IUPAC10 = 21 INTEGER, PARAMETER :: IJ_ACET_IUPAC10 = 22 INTEGER, PARAMETER :: IJ_ISPD = 23 INTEGER, PARAMETER :: IJ_HPALD = 24 INTEGER, PARAMETER :: IJ_CL2_IUPAC04 = 25 INTEGER, PARAMETER :: IJ_HOCL_IUPAC04 = 26 INTEGER, PARAMETER :: IJ_FMCL_IUPAC04 = 27 INTEGER, PARAMETER :: IJ_CLNO2_IUPAC13 = 28 INTEGER, PARAMETER :: IJ_CLONO2_1 = 29 INTEGER, PARAMETER :: IJ_CLONO2_2 = 30 INTEGER, PARAMETER :: IJ_IC3ONO2 = 31 INTEGER, PARAMETER :: IJ_ACRO_09 = 32 INTEGER, PARAMETER :: IK_HETERO_CLNO3_WAI = 1 INTEGER, PARAMETER :: IK_HETERO_CLNO3_WAJ = 2 INTEGER, PARAMETER :: IK_HETERO_NTR2 = 3 INTEGER, PARAMETER :: IK_HETERO_N2O5IJ = 4 INTEGER, PARAMETER :: IK_HETERO_N2O5K = 5 INTEGER, PARAMETER :: IK_HETERO_H2NO3PAIJ = 6 INTEGER, PARAMETER :: IK_HETERO_H2NO3PAK = 7 INTEGER, PARAMETER :: IK_HETERO_H2NO3PBIJ = 8 INTEGER, PARAMETER :: IK_HETERO_H2NO3PBK = 9 INTEGER, PARAMETER :: IK_HETERO_NO2 = 10 INTEGER, PARAMETER :: IK_HETERO_IEPOX = 11 INTEGER, PARAMETER :: IK_HETERO_IEPOXOS = 12 INTEGER, PARAMETER :: IK_HETERO_TETROL = 13 INTEGER, PARAMETER :: IK_HETERO_GLY = 14 INTEGER, PARAMETER :: IK_HETERO_MGLY = 15 INTEGER, PARAMETER :: IK_HETERO_PNCOMLI = 16 INTEGER, PARAMETER :: IK_HETERO_PNCOMLJ = 17 END MODULE RXNS_DATA ================================================ FILE: CCTM/src/MECHS/cb6r5_ae7_aq/RXNS_FUNC_MODULE.F90 ================================================ MODULE RXNS_FUNCTION IMPLICIT NONE ! Name of Mechanism CB6R5_AE7_AQ PUBLIC :: CALC_RCONST, SPECIAL_RATES, MAP_CHEMISTRY_SPECIES CONTAINS REAL( 8 ) FUNCTION POWER_T02( TEMPOT300,A0,B0 ) IMPLICIT NONE ! rate constant for CMAQ Arrhenuis reaction type 2 ! Arguements: REAL( 8 ), INTENT( IN ) :: TEMPOT300 REAL( 8 ), INTENT( IN ) :: A0 REAL( 8 ), INTENT( IN ) :: B0 ! Local: None POWER_T02 = A0 * TEMPOT300**B0 RETURN END FUNCTION POWER_T02 REAL( 8 ) FUNCTION ARRHENUIS_T04( INV_TEMP,TEMPOT300,A0,B0,C0 ) IMPLICIT NONE ! rate constant for CMAQ Arrhenuis reaction type 4 ! Arguements: REAL( 8 ), INTENT( IN ) :: INV_TEMP REAL( 8 ), INTENT( IN ) :: TEMPOT300 REAL( 8 ), INTENT( IN ) :: A0 REAL( 8 ), INTENT( IN ) :: B0 REAL( 8 ), INTENT( IN ) :: C0 ! Local: INTRINSIC DEXP ARRHENUIS_T04 = A0 * DEXP( B0 * INV_TEMP ) * TEMPOT300**C0 RETURN END FUNCTION ARRHENUIS_T04 REAL( 8 ) FUNCTION ARRHENUIS_T03( INV_TEMP,A0,B0 ) ! rate constant for CMAQ Arrhenuis reaction type 3 IMPLICIT NONE ! Arguements: REAL( 8 ), INTENT( IN ) :: INV_TEMP REAL( 8 ), INTENT(IN) :: A0 REAL( 8 ), INTENT(IN) :: B0 ! Local: INTRINSIC DEXP ARRHENUIS_T03 = A0 * DEXP( B0 * INV_TEMP ) RETURN END FUNCTION ARRHENUIS_T03 REAL( 8 ) FUNCTION FALLOFF_T08(INV_TEMP,CAIR,A0,C0,A2,C2,A3,C3) ! rate constant for CMAQ fall off reaction type 8 IMPLICIT NONE ! Arguements: REAL( 8 ), INTENT( IN ) :: INV_TEMP REAL( 8 ), INTENT( IN ) :: CAIR REAL( 8 ), INTENT( IN ) :: A0 REAL( 8 ), INTENT( IN ) :: C0 REAL( 8 ), INTENT( IN ) :: A2 REAL( 8 ), INTENT( IN ) :: C2 REAL( 8 ), INTENT( IN ) :: A3 REAL( 8 ), INTENT( IN ) :: C3 ! Local: REAL( 8 ) K0 REAL( 8 ) K2 REAL( 8 ) K3 INTRINSIC DEXP K0 = A0 * DEXP( C0 * INV_TEMP ) K2 = A2 * DEXP( C2 * INV_TEMP ) K3 = A3 * DEXP( C3 * INV_TEMP ) K3 = K3 * CAIR FALLOFF_T08 = K0 + K3/( 1.0D0 + K3/K2 ) RETURN END FUNCTION FALLOFF_T08 REAL( 8 ) FUNCTION FALLOFF_T09(INV_TEMP,CAIR,A1,C1,A2,C2) ! rate constant for CMAQ fall off reaction type 9 IMPLICIT NONE ! Arguements: REAL( 8 ), INTENT( IN ) :: INV_TEMP REAL( 8 ), INTENT( IN ) :: CAIR REAL( 8 ), INTENT( IN ) :: A1 REAL( 8 ), INTENT( IN ) :: C1 REAL( 8 ), INTENT( IN ) :: A2 REAL( 8 ), INTENT( IN ) :: C2 ! Local: REAL( 8 ) K1 REAL( 8 ) K2 INTRINSIC DEXP K1 = A1 * DEXP( C1 * INV_TEMP ) K2 = A2 * DEXP( C2 * INV_TEMP ) FALLOFF_T09 = K1 + K2 * CAIR RETURN END FUNCTION FALLOFF_T09 REAL( 8 ) FUNCTION FALLOFF_T10(INV_TEMP,TEMPOT300,CAIR,A0,B0,C0,A1,B1,C1,CE,CF) IMPLICIT NONE ! rate constant for CMAQ fall off reaction type 10 ! Arguements: REAL( 8 ), INTENT( IN ) :: INV_TEMP REAL( 8 ), INTENT( IN ) :: TEMPOT300 REAL( 8 ), INTENT( IN ) :: CAIR REAL( 8 ), INTENT( IN ) :: A0 REAL( 8 ), INTENT( IN ) :: B0 REAL( 8 ), INTENT( IN ) :: C0 REAL( 8 ), INTENT( IN ) :: A1 REAL( 8 ), INTENT( IN ) :: B1 REAL( 8 ), INTENT( IN ) :: C1 REAL( 8 ), INTENT( IN ) :: CE REAL( 8 ), INTENT( IN ) :: CF ! Local: REAL( 8 ) K0 REAL( 8 ) K1 REAL( 8 ) KEND K0 = A0 * CAIR * DEXP(B0*INV_TEMP)* TEMPOT300**C0 K1 = A1 * DEXP(B1*INV_TEMP) * TEMPOT300**C1 KEND = ( ( 1.0D0 + ( ( 1.0D0 / CE ) * DLOG10( K0 / K1 ) ) ** 2.0D0 ) ) KEND = 1.0D0 / KEND FALLOFF_T10 = ( K0 / ( 1.0D0 + K0/K1 ) ) * CF ** KEND RETURN END FUNCTION FALLOFF_T10 REAL( 8 ) FUNCTION FALLOFF_T11(INV_TEMP,TEMPOT300,CAIR,A1,B1,C1,A2, B2, C2, D1, D2) ! rate constant for CMAQ fall off reaction type 11 ! actually expanded form of type 9 IMPLICIT NONE ! Arguements: REAL( 8 ), INTENT( IN ) :: INV_TEMP REAL( 8 ), INTENT( IN ) :: TEMPOT300 REAL( 8 ), INTENT( IN ) :: CAIR REAL( 8 ), INTENT( IN ) :: A1 REAL( 8 ), INTENT( IN ) :: B1 REAL( 8 ), INTENT( IN ) :: C1 REAL( 8 ), INTENT( IN ) :: A2 REAL( 8 ), INTENT( IN ) :: B2 REAL( 8 ), INTENT( IN ) :: C2 REAL( 8 ), INTENT( IN ) :: D1 REAL( 8 ), INTENT( IN ) :: D2 ! Local: REAL( 8 ) K1 REAL( 8 ) K2 REAL( 8 ) K3 INTRINSIC DEXP K1 = A1 * DEXP( C1 * INV_TEMP ) * TEMPOT300**B1 K2 = A2 * DEXP( C2 * INV_TEMP ) * TEMPOT300**B2 K3 = D1 * DEXP( D2 * INV_TEMP ) FALLOFF_T11 = K1 + K2 * CAIR + K3 RETURN END FUNCTION FALLOFF_T11 REAL( 8 ) FUNCTION HALOGEN_FALLOFF(PRESS,A1,B1,A2,B2,A3) IMPLICIT NONE REAL( 8 ), INTENT( IN ) :: PRESS REAL( 8 ), INTENT( IN ) :: A1 REAL( 8 ), INTENT( IN ) :: B1 REAL( 8 ), INTENT( IN ) :: A2 REAL( 8 ), INTENT( IN ) :: B2 REAL( 8 ), INTENT( IN ) :: A3 ! Maximum loss rate (1/sec) INTRINSIC DEXP HALOGEN_FALLOFF = A1 * DEXP( B1 * PRESS ) + A2 * DEXP( B2 * PRESS ) HALOGEN_FALLOFF = DMIN1 (A3, HALOGEN_FALLOFF ) RETURN END FUNCTION HALOGEN_FALLOFF SUBROUTINE SPECIAL_RATES( NUMCELLS, Y, TEMP, DENS, RKI ) ! Purpose: calculate special rate operators and update ! appropriate rate constants USE RXNS_DATA IMPLICIT NONE ! Arguments: INTEGER, INTENT( IN ) :: NUMCELLS ! Number of cells in block REAL( 8 ), INTENT( IN ) :: Y( :, : ) ! species concs REAL( 8 ), INTENT( IN ) :: TEMP( : ) ! air temperature, K REAL( 8 ), INTENT( IN ) :: DENS( : ) ! air density, Kg/m3 REAL( 8 ), INTENT( INOUT ) :: RKI( :, : ) ! reaction rate constant, ppm/min ! Local: REAL( 8 ), PARAMETER :: DENSITY_TO_NUMBER = 2.07930D+19 ! Kg/m3 to molecules/cm3 INTEGER :: NCELL REAL( 8 ) :: INV_TEMP REAL( 8 ) :: CAIR REAL( 8 ) :: CFACT ! scales operator if not multiplied by RKI, cm^3/(molecule) to 1/(ppm) REAL( 8 ) :: CFACT_SQU ! scales operator if not multiplied by RKI, cm^6/(molec^2) to 1/(ppm^2) ! special rate operators listed below DO NCELL = 1, NUMCELLS INV_TEMP = 1.0D0 / TEMP( NCELL ) CAIR = DENSITY_TO_NUMBER * DENS( NCELL ) CFACT = 1.0D-06 * CAIR CFACT_SQU = 1.0D-12 * CAIR * CAIR ! define special rate operators ! define rate constants in terms of special rate operators END DO RETURN END SUBROUTINE SPECIAL_RATES SUBROUTINE CALC_RCONST( BLKTEMP, BLKPRES, BLKH2O, RJBLK, BLKHET, LSUNLIGHT, SEAWATER, RKI, NUMCELLS ) !********************************************************************** ! Function: To compute thermal and photolytic reaction rate ! coefficients for each reaction. ! Preconditions: Photolysis rates for individual species must have ! been calculated and stored in RJPHOT. Expects ! temperature in deg K, pressure in atm., water ! vapor in ppmV, and J-values in /min. ! Key Subroutines/Functions Called: POWER_02, ARRHRENUIS_T0*, FALLOFF_T*, HALOGEN_FALLOFF !*********************************************************************** USE RXNS_DATA IMPLICIT NONE ! Arguements: None REAL( 8 ), INTENT( IN ) :: BLKTEMP( : ) ! temperature, deg K REAL( 8 ), INTENT( IN ) :: BLKPRES( : ) ! pressure, Atm REAL( 8 ), INTENT( IN ) :: BLKH2O ( : ) ! water mixing ratio, ppm REAL( 8 ), INTENT( IN ) :: RJBLK ( :, : ) ! photolysis rates, 1/min REAL( 8 ), INTENT( IN ) :: BLKHET ( :, : ) ! heterogeneous rate constants, ???/min INTEGER, INTENT( IN ) :: NUMCELLS ! Number of cells in block LOGICAL, INTENT( IN ) :: LSUNLIGHT ! Is there sunlight? REAL( 8 ), INTENT( IN ) :: SEAWATER( : ) ! fractional area of OPEN+SURF REAL( 8 ), INTENT( OUT ) :: RKI ( :, : ) ! reaction rate constant, ppm/min !..Parameters: REAL( 8 ), PARAMETER :: COEF1 = 7.33981D+15 ! Molec/cc to ppm conv factor REAL( 8 ), PARAMETER :: CONSTC = 0.6D+0 ! Constant for reaction type 7 REAL( 8 ), PARAMETER :: TI300 = 1.0D+0/300.0D+0 ! reciprocal of 300 deg K REAL( 8 ), PARAMETER :: SFACT = 60.D+0 ! seconds per minute !..External Functions: None !..Local Variables: INTEGER :: NRT ! Loop index for reaction types INTEGER :: IRXN ! Reaction number INTEGER :: JNUM ! J-value species # from PHOT) INTEGER :: KNUM ! Reaction # for a relative rate coeff. INTEGER :: N ! Loop index for reactions INTEGER :: NCELL ! Loop index for # of cells in the block REAL( 8 ) :: CAIR ! air number density (wet) [molec/cm^3] REAL( 8 ) :: CFACT ! Convertor cm^3/(molec*sec) to 1/(ppm*min) REAL( 8 ) :: CFACT_SQU ! Convertor cm^6/(molec^2*sec) to 1/(ppm^2*min) REAL( 8 ) :: INV_CFACT ! ppm/min to molec/(cm^3*sec) REAL( 8 ) :: TEMPOT300 ! temperature divided by 300 K, dimensionaless REAL( 8 ) :: INV_TEMP ! reciprocal of air temperature, K-1 REAL( 8 ) :: INV_CAIR ! reciprocal of air number density (wet), [cm^3/molec] REAL( 8 ) :: TEMP ! air temperature, K REAL( 8 ) :: PRESS ! pressure [Atm] REAL( 8 ) :: INV_RFACT ! ppm/min to molec/(cm^3*min) REAL( 8 ) :: RFACT_SQU ! cm^6/(molec^2*min) to 1/(ppm^2*min) REAL( 8 ) :: RFACT ! cm^3/(molec*min) to 1/(ppm*min) REAL( 8 ) :: H2O ! concentration, [molec/cm^3] RKI = 0.0D0 ! All rate constants converted from molec/cm3 to ppm ! and 1/sec to 1/min IF( LSUNLIGHT )THEN DO NCELL = 1, NUMCELLS ! Reaction Label R1 RKI( NCELL, 1) = RJBLK( NCELL, IJ_NO2_IUPAC10 ) ! Reaction Label R8 RKI( NCELL, 8) = RJBLK( NCELL, IJ_O3_O3P_IUPAC10 ) ! Reaction Label R9 RKI( NCELL, 9) = RJBLK( NCELL, IJ_O3_O1D_IUPAC10 ) ! Reaction Label R21 RKI( NCELL, 21) = RJBLK( NCELL, IJ_H2O2_IUPAC10 ) ! Reaction Label R27 RKI( NCELL, 27) = RJBLK( NCELL, IJ_NO3NO2_06 ) ! Reaction Label R28 RKI( NCELL, 28) = RJBLK( NCELL, IJ_NO3NO_06 ) ! Reaction Label R38 RKI( NCELL, 38) = RJBLK( NCELL, IJ_N2O5_IUPAC10 ) ! Reaction Label R43 RKI( NCELL, 43) = RJBLK( NCELL, IJ_HONO_IUPAC10 ) ! Reaction Label R47 RKI( NCELL, 47) = RJBLK( NCELL, IJ_HNO3_IUPAC10 ) ! Reaction Label R50 RKI( NCELL, 50) = RJBLK( NCELL, IJ_PNA_IUPAC10 ) ! Reaction Label R56 RKI( NCELL, 56) = RJBLK( NCELL, IJ_PAN_IUPAC10 ) ! Reaction Label R64 RKI( NCELL, 64) = RJBLK( NCELL, IJ_PAN_IUPAC10 ) ! Reaction Label R88 RKI( NCELL, 88) = RJBLK( NCELL, IJ_MEPX_IUPAC10 ) ! Reaction Label R90 RKI( NCELL, 90) = RJBLK( NCELL, IJ_MEPX_IUPAC10 ) ! Reaction Label R92 RKI( NCELL, 92) = RJBLK( NCELL, IJ_NTR_IUPAC10 ) ! Reaction Label R97 RKI( NCELL, 97) = RJBLK( NCELL, IJ_FORM_R_IUPAC13 ) ! Reaction Label R98 RKI( NCELL, 98) = RJBLK( NCELL, IJ_FORM_M_IUPAC13 ) ! Reaction Label R108 RKI( NCELL, 108) = RJBLK( NCELL, IJ_ALD2_R_IUPAC13 ) ! Reaction Label R112 RKI( NCELL, 112) = RJBLK( NCELL, IJ_ALDX_R_IUPAC13 ) ! Reaction Label R114 RKI( NCELL, 114) = RJBLK( NCELL, IJ_GLYD_IUPAC13 ) ! Reaction Label R117 RKI( NCELL, 117) = RJBLK( NCELL, IJ_GLY_R_IUPAC13 ) ! Reaction Label R119 RKI( NCELL, 119) = RJBLK( NCELL, IJ_MGLY_IUPAC10 ) ! Reaction Label R128 RKI( NCELL, 128) = RJBLK( NCELL, IJ_KET_IUPAC10 ) ! Reaction Label R129 RKI( NCELL, 129) = RJBLK( NCELL, IJ_ACET_IUPAC10 ) ! Reaction Label R161 RKI( NCELL, 161) = RJBLK( NCELL, IJ_ISPD ) ! Reaction Label R163 RKI( NCELL, 163) = RJBLK( NCELL, IJ_HPALD ) ! Reaction Label R196 RKI( NCELL, 201) = RJBLK( NCELL, IJ_NTR_IUPAC10 ) ! Reaction Label R197 RKI( NCELL, 202) = 5.0000D-02 * RJBLK( NCELL, IJ_NO2_IUPAC10 ) ! Reaction Label R201 RKI( NCELL, 206) = 2.8000D-02 * RJBLK( NCELL, IJ_NO2_IUPAC10 ) ! Reaction Label CL1 RKI( NCELL, 226) = RJBLK( NCELL, IJ_CL2_IUPAC04 ) ! Reaction Label CL2 RKI( NCELL, 227) = RJBLK( NCELL, IJ_HOCL_IUPAC04 ) ! Reaction Label CL9 RKI( NCELL, 234) = RJBLK( NCELL, IJ_FMCL_IUPAC04 ) ! Reaction Label CL27 RKI( NCELL, 252) = RJBLK( NCELL, IJ_CLNO2_IUPAC13 ) ! Reaction Label CL30 RKI( NCELL, 254) = RJBLK( NCELL, IJ_CLONO2_1 ) ! Reaction Label CL31 RKI( NCELL, 255) = RJBLK( NCELL, IJ_CLONO2_2 ) ! Reaction Label BP71mtp RKI( NCELL, 291) = RJBLK( NCELL, IJ_IC3ONO2 ) ! Reaction Label T04 RKI( NCELL, 317) = RJBLK( NCELL, IJ_FORM_R_IUPAC13 ) ! Reaction Label T05 RKI( NCELL, 318) = RJBLK( NCELL, IJ_FORM_M_IUPAC13 ) ! Reaction Label T09 RKI( NCELL, 323) = RJBLK( NCELL, IJ_ALD2_R_IUPAC13 ) ! Reaction Label T16 RKI( NCELL, 332) = RJBLK( NCELL, IJ_ACRO_09 ) ! Reaction Label T20 RKI( NCELL, 337) = RJBLK( NCELL, IJ_ACRO_09 ) IF ( SEAWATER (NCELL) .GT. 0.001D0 ) THEN ! Reaction Label HAL_Ozone RKI( NCELL, 279) = SEAWATER (NCELL) * SFACT * HALOGEN_FALLOFF( BLKPRES( NCELL ), 6.7006D-11, 1.0743D+01, & & 3.4153D-08, -6.7130D-01, 2.0000D-06 ) ELSE RKI( NCELL, 279) = 0.0D0 END IF END DO END IF DO NCELL = 1, NUMCELLS ! Set-up conversion factors INV_TEMP = 1.0D+00 / BLKTEMP( NCELL ) CAIR = 1.0D+06 * COEF1 * BLKPRES( NCELL ) * INV_TEMP CFACT = 6.0D-05 * CAIR CFACT_SQU = 6.0D-11 * CAIR * CAIR INV_CAIR = 1.0D0 / CAIR INV_CFACT = 6.0D+07 * INV_CAIR TEMP = BLKTEMP( NCELL ) TEMPOT300 = BLKTEMP( NCELL ) * TI300 RFACT = 1.0D+06 * INV_CAIR RFACT_SQU = 1.0D+12 * INV_CAIR * INV_CAIR ! Reaction Label R2 RKI( NCELL, 2) = CFACT_SQU * POWER_T02( TEMPOT300, 6.0000D-34, -2.6000D+00 ) ! Reaction Label R3 RKI( NCELL, 3) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.0700D-12, -1.4000D+03 ) ! Reaction Label R4 RKI( NCELL, 4) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 1.0000D-31, 0.0000D+00, -1.6000D+00, & & 5.0000D-11, 0.0000D+00, 3.0000D-01, & & 8.4000D-01, 8.5000D-01 ) ! Reaction Label R5 RKI( NCELL, 5) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.1000D-12, 1.9800D+02 ) ! Reaction Label R6 RKI( NCELL, 6) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 1.3000D-31, 0.0000D+00, -1.5000D+00, & & 2.3000D-11, 0.0000D+00, 2.4000D-01, & & 1.0300D+00, 6.0000D-01 ) ! Reaction Label R7 RKI( NCELL, 7) = CFACT * ARRHENUIS_T03( INV_TEMP, 8.0000D-12, -2.0600D+03 ) ! Reaction Label R10 RKI( NCELL, 10) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.2300D-11, 1.1500D+02 ) ! Reaction Label R11 RKI( NCELL, 11) = 2.1400D-10 * CFACT ! Reaction Label R12 RKI( NCELL, 12) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.7000D-12, -9.4000D+02 ) ! Reaction Label R13 RKI( NCELL, 13) = CFACT * ARRHENUIS_T04( INV_TEMP, TEMPOT300, & & 2.0300D-16, 6.9300D+02, 4.5700D+00 ) ! Reaction Label R14 RKI( NCELL, 14) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.4000D-11, 1.1000D+02 ) ! Reaction Label R15 RKI( NCELL, 15) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.0000D-11, 2.0000D+02 ) ! Reaction Label R16 RKI( NCELL, 16) = CFACT * ARRHENUIS_T04( INV_TEMP, TEMPOT300, & & 6.2000D-14, 9.4500D+02, 2.6000D+00 ) ! Reaction Label R17 RKI( NCELL, 17) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 9.0000D-31, 0.0000D+00, -3.2000D+00, & & 3.9000D-11, 0.0000D+00, -4.7000D-01, & & 1.2300D+00, 4.2000D-01 ) ! Reaction Label R18 RKI( NCELL, 18) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.8000D-11, 2.5000D+02 ) ! Reaction Label R19 RKI( NCELL, 19) = CFACT * FALLOFF_T09( INV_TEMP, CAIR, & & 2.2000D-13, 6.0000D+02, 1.9000D-33, & & 9.8000D+02 ) ! Reaction Label R20 RKI( NCELL, 20) = CFACT_SQU * FALLOFF_T09( INV_TEMP, CAIR, & & 3.0800D-34, 2.8000D+03, 2.6600D-54, & & 3.1800D+03 ) ! Reaction Label R22 RKI( NCELL, 22) = 1.8000D-12 * CFACT ! Reaction Label R23 RKI( NCELL, 23) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.4000D-12, -2.0000D+03 ) ! Reaction Label R24 RKI( NCELL, 24) = CFACT_SQU * ARRHENUIS_T03( INV_TEMP, 4.2500D-39, 6.6400D+02 ) ! Reaction Label R25 RKI( NCELL, 25) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.4500D-12, 2.7000D+02 ) ! Reaction Label R26 RKI( NCELL, 26) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.4000D-13, -2.4700D+03 ) ! Reaction Label R29 RKI( NCELL, 29) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.8000D-11, 1.1000D+02 ) ! Reaction Label R30 RKI( NCELL, 30) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.5000D-14, -1.2600D+03 ) ! Reaction Label R31 RKI( NCELL, 31) = 1.7000D-11 * CFACT ! Reaction Label R32 RKI( NCELL, 32) = 2.0000D-11 * CFACT ! Reaction Label R33 RKI( NCELL, 33) = 4.0000D-12 * CFACT ! Reaction Label R34 RKI( NCELL, 34) = 1.0000D-17 * CFACT ! Reaction Label R35 RKI( NCELL, 35) = CFACT * ARRHENUIS_T03( INV_TEMP, 8.5000D-13, -2.4500D+03 ) ! Reaction Label R36 RKI( NCELL, 36) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 3.6000D-30, 0.0000D+00, -4.1000D+00, & & 1.9000D-12, 0.0000D+00, 2.0000D-01, & & 1.3300D+00, 3.5000D-01 ) ! Reaction Label R37 RKI( NCELL, 37) = SFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 1.3000D-03, -1.1000D+04, -3.5000D+00, & & 9.7000D+14, -1.1080D+04, 1.0000D-01, & & 1.3300D+00, 3.5000D-01 ) ! Reaction Label R39 RKI( NCELL, 39) = 1.0000D-22 * CFACT ! Reaction Label R40 RKI( NCELL, 40) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 7.4000D-31, 0.0000D+00, -2.4000D+00, & & 3.3000D-11, 0.0000D+00, -3.0000D-01, & & 8.7000D-01, 8.1000D-01 ) ! Reaction Label R41 RKI( NCELL, 41) = 5.0000D-40 * CFACT_SQU ! Reaction Label R42 RKI( NCELL, 42) = 1.0000D-20 * CFACT ! Reaction Label R44 RKI( NCELL, 44) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.5000D-12, 2.6000D+02 ) ! Reaction Label R45 RKI( NCELL, 45) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 1.8000D-30, 0.0000D+00, -3.0000D+00, & & 2.8000D-11, 0.0000D+00, 0.0000D+00, & & 1.0000D+00, 6.0000D-01 ) ! Reaction Label R46 RKI( NCELL, 46) = CFACT * FALLOFF_T08( INV_TEMP, CAIR, & & 2.4000D-14, 4.6000D+02, 2.7000D-17, & & 2.1990D+03, 6.5000D-34, 1.3350D+03 ) ! Reaction Label R48 RKI( NCELL, 48) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 1.4000D-31, 0.0000D+00, -3.1000D+00, & & 4.0000D-12, 0.0000D+00, 0.0000D+00, & & 1.2600D+00, 4.0000D-01 ) ! Reaction Label R49 RKI( NCELL, 49) = SFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 4.1000D-05, -1.0650D+04, 0.0000D+00, & & 6.0000D+15, -1.1170D+04, 0.0000D+00, & & 1.2600D+00, 4.0000D-01 ) ! Reaction Label R51 RKI( NCELL, 51) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.2000D-13, 6.9000D+02 ) ! Reaction Label R52 RKI( NCELL, 52) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 2.8000D-31, 0.0000D+00, -2.6000D+00, & & 2.0000D-12, 0.0000D+00, 0.0000D+00, & & 1.1000D+00, 5.3000D-01 ) ! Reaction Label R53 RKI( NCELL, 53) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.5000D-12, 2.9000D+02 ) ! Reaction Label R54 RKI( NCELL, 54) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 3.6100D-28, 0.0000D+00, -6.8700D+00, & & 1.2400D-11, 0.0000D+00, -1.1050D+00, & & 1.4100D+00, 3.0000D-01 ) ! Reaction Label R55 RKI( NCELL, 55) = SFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 1.1000D-05, -1.0100D+04, 0.0000D+00, & & 1.9000D+17, -1.4100D+04, 0.0000D+00, & & 1.4100D+00, 3.0000D-01 ) ! Reaction Label R57 RKI( NCELL, 57) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.1400D-12, 5.8000D+02 ) ! Reaction Label R58 RKI( NCELL, 58) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.4000D-13, 1.0700D+03 ) ! Reaction Label R59 RKI( NCELL, 59) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.9000D-12, 5.0000D+02 ) ! Reaction Label R60 RKI( NCELL, 60) = RKI( NCELL, 59 ) ! Reaction Label R61 RKI( NCELL, 61) = CFACT * ARRHENUIS_T03( INV_TEMP, 6.7000D-12, 3.4000D+02 ) ! Reaction Label R62 RKI( NCELL, 62) = 8.4000D-01 * RKI( NCELL, 54 ) ! Reaction Label R63 RKI( NCELL, 63) = 8.4000D-01 * RKI( NCELL, 55 ) ! Reaction Label R65 RKI( NCELL, 65) = RKI( NCELL, 57 ) ! Reaction Label R66 RKI( NCELL, 66) = RKI( NCELL, 58 ) ! Reaction Label R67 RKI( NCELL, 67) = RKI( NCELL, 59 ) ! Reaction Label R68 RKI( NCELL, 68) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.4000D-12, 3.6000D+02 ) ! Reaction Label R69 RKI( NCELL, 69) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.8000D-13, 8.0000D+02 ) ! Reaction Label R70 RKI( NCELL, 70) = CFACT * ARRHENUIS_T03( INV_TEMP, 6.5000D-14, 5.0000D+02 ) ! Reaction Label R71 RKI( NCELL, 71) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.3000D-12, 3.6000D+02 ) ! Reaction Label R72 RKI( NCELL, 72) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.8000D-13, 7.8000D+02 ) ! Reaction Label R73 RKI( NCELL, 73) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.0000D-12, 5.0000D+02 ) ! Reaction Label R74 RKI( NCELL, 74) = RKI( NCELL, 70 ) ! Reaction Label R75 RKI( NCELL, 75) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label R76 RKI( NCELL, 76) = CFACT * ARRHENUIS_T03( INV_TEMP, 6.8000D-13, 8.0000D+02 ) ! Reaction Label R77 RKI( NCELL, 77) = RKI( NCELL, 58 ) ! Reaction Label R78 RKI( NCELL, 78) = RKI( NCELL, 70 ) ! Reaction Label R79 RKI( NCELL, 79) = RKI( NCELL, 75 ) ! Reaction Label R80 RKI( NCELL, 80) = RKI( NCELL, 76 ) ! Reaction Label R81 RKI( NCELL, 81) = RKI( NCELL, 58 ) ! Reaction Label R82 RKI( NCELL, 82) = RKI( NCELL, 70 ) ! Reaction Label R83 RKI( NCELL, 83) = RKI( NCELL, 75 ) ! Reaction Label R84 RKI( NCELL, 84) = RKI( NCELL, 76 ) ! Reaction Label R85 RKI( NCELL, 85) = RKI( NCELL, 58 ) ! Reaction Label R86 RKI( NCELL, 86) = RKI( NCELL, 70 ) ! Reaction Label R87 RKI( NCELL, 87) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.3000D-12, 1.9000D+02 ) ! Reaction Label R89 RKI( NCELL, 89) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.3000D-12, 1.9000D+02 ) ! Reaction Label R91 RKI( NCELL, 91) = 2.0000D-12 * CFACT ! Reaction Label R93 RKI( NCELL, 93) = 4.5000D-13 * CFACT ! Reaction Label R94 RKI( NCELL, 94) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.0000D-14, 8.5000D+02 ) ! Reaction Label R95 RKI( NCELL, 95) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.3000D-12, 1.9000D+02 ) ! Reaction Label R96 RKI( NCELL, 96) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.4000D-12, 1.3500D+02 ) ! Reaction Label R99 RKI( NCELL, 99) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.4000D-11, -1.6000D+03 ) ! Reaction Label R100 RKI( NCELL, 100) = 5.5000D-16 * CFACT ! Reaction Label R101 RKI( NCELL, 101) = CFACT * ARRHENUIS_T03( INV_TEMP, 9.7000D-15, 6.2500D+02 ) ! Reaction Label R102 RKI( NCELL, 102) = SFACT * ARRHENUIS_T03( INV_TEMP, 2.4000D+12, -7.0000D+03 ) ! Reaction Label R103 RKI( NCELL, 103) = 5.6000D-12 * CFACT ! Reaction Label R104 RKI( NCELL, 104) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.6000D-15, 2.3000D+03 ) ! Reaction Label R105 RKI( NCELL, 105) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.8000D-11, -1.1000D+03 ) ! Reaction Label R106 RKI( NCELL, 106) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.7000D-12, 3.4500D+02 ) ! Reaction Label R107 RKI( NCELL, 107) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.4000D-12, -1.8600D+03 ) ! Reaction Label R109 RKI( NCELL, 109) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.3000D-11, -8.7000D+02 ) ! Reaction Label R110 RKI( NCELL, 110) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.9000D-12, 4.0500D+02 ) ! Reaction Label R111 RKI( NCELL, 111) = 6.3000D-15 * CFACT ! Reaction Label R113 RKI( NCELL, 113) = 8.0000D-12 * CFACT ! Reaction Label R115 RKI( NCELL, 115) = RKI( NCELL, 107 ) ! Reaction Label R116 RKI( NCELL, 116) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.1000D-12, 3.4000D+02 ) ! Reaction Label R118 RKI( NCELL, 118) = 4.0000D-16 * CFACT ! Reaction Label R120 RKI( NCELL, 120) = 5.0000D-16 * CFACT ! Reaction Label R121 RKI( NCELL, 121) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.9000D-12, 5.7500D+02 ) ! Reaction Label R122 RKI( NCELL, 122) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.7000D-12, -2.1000D+03 ) ! Reaction Label R123 RKI( NCELL, 123) = CFACT * FALLOFF_T09( INV_TEMP, CAIR, & & 1.4400D-13, 0.0000D+00, 3.4300D-33, & & 0.0000D+00 ) ! Reaction Label R124 RKI( NCELL, 124) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.8500D-12, -1.6900D+03 ) ! Reaction Label R125 RKI( NCELL, 125) = CFACT * ARRHENUIS_T03( INV_TEMP, 6.9000D-12, -1.0000D+03 ) ! Reaction Label R126 RKI( NCELL, 126) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.8500D-12, -3.4500D+02 ) ! Reaction Label R127 RKI( NCELL, 127) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.0000D-12, 2.0000D+01 ) ! Reaction Label R130 RKI( NCELL, 130) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.4100D-12, -6.2060D+02 ) ! Reaction Label R131 RKI( NCELL, 131) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.6000D-12, -5.8500D+02 ) ! Reaction Label R132 RKI( NCELL, 132) = 8.1000D-13 * CFACT ! Reaction Label R133 RKI( NCELL, 133) = SFACT * ARRHENUIS_T03( INV_TEMP, 5.7000D+12, -5.7800D+03 ) ! Reaction Label R134 RKI( NCELL, 134) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.5000D-14, -2.0000D+02 ) ! Reaction Label R135 RKI( NCELL, 135) = CFACT * ARRHENUIS_T03( INV_TEMP, 8.6000D-12, 4.0000D+02 ) ! Reaction Label R136 RKI( NCELL, 136) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 5.0000D-30, 0.0000D+00, -1.5000D+00, & & 1.0000D-12, 0.0000D+00, 0.0000D+00, & & 1.3000D+00, 3.7000D-01 ) ! Reaction Label R137 RKI( NCELL, 137) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.0400D-11, -7.9200D+02 ) ! Reaction Label R138 RKI( NCELL, 138) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 8.6000D-29, 0.0000D+00, -3.1000D+00, & & 9.0000D-12, 0.0000D+00, -8.5000D-01, & & 1.1500D+00, 4.8000D-01 ) ! Reaction Label R139 RKI( NCELL, 139) = CFACT * ARRHENUIS_T03( INV_TEMP, 6.8200D-15, -2.5000D+03 ) ! Reaction Label R140 RKI( NCELL, 140) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.3000D-12, -2.8800D+03 ) ! Reaction Label R141 RKI( NCELL, 141) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.0000D-11, -2.8000D+02 ) ! Reaction Label R142 RKI( NCELL, 142) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 8.0000D-27, 0.0000D+00, -3.5000D+00, & & 3.0000D-11, 0.0000D+00, -1.0000D+00, & & 1.1300D+00, 5.0000D-01 ) ! Reaction Label R143 RKI( NCELL, 143) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.5000D-15, -1.8800D+03 ) ! Reaction Label R144 RKI( NCELL, 144) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.6000D-13, -1.1550D+03 ) ! Reaction Label R145 RKI( NCELL, 145) = 2.3000D-11 * CFACT ! Reaction Label R146 RKI( NCELL, 146) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.0500D-11, 5.1900D+02 ) ! Reaction Label R147 RKI( NCELL, 147) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.7000D-15, -1.0130D+03 ) ! Reaction Label R148 RKI( NCELL, 148) = 3.7000D-13 * CFACT ! Reaction Label R149 RKI( NCELL, 149) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-11, 3.9000D+02 ) ! Reaction Label R150 RKI( NCELL, 150) = 3.0000D-11 * CFACT ! Reaction Label R151 RKI( NCELL, 151) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.3900D-12, 3.6500D+02 ) ! Reaction Label R152 RKI( NCELL, 152) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.4300D-13, 7.0000D+02 ) ! Reaction Label R153 RKI( NCELL, 153) = RKI( NCELL, 58 ) ! Reaction Label R154 RKI( NCELL, 154) = RKI( NCELL, 70 ) ! Reaction Label R155 RKI( NCELL, 155) = SFACT * ARRHENUIS_T03( INV_TEMP, 3.3000D+09, -8.3000D+03 ) ! Reaction Label R156 RKI( NCELL, 156) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.0300D-14, -1.9950D+03 ) ! Reaction Label R157 RKI( NCELL, 157) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.0300D-12, -4.4800D+02 ) ! Reaction Label R158 RKI( NCELL, 158) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.5800D-12, 5.1100D+02 ) ! Reaction Label R159 RKI( NCELL, 159) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.8800D-15, -1.7700D+03 ) ! Reaction Label R160 RKI( NCELL, 160) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.1000D-12, -1.8600D+03 ) ! Reaction Label R162 RKI( NCELL, 162) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.2300D-11, 3.7200D+02 ) ! Reaction Label R164 RKI( NCELL, 164) = CFACT * ARRHENUIS_T03( INV_TEMP, 6.0000D-12, -1.8600D+03 ) ! Reaction Label R165 RKI( NCELL, 165) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.7800D-11, -4.0000D+02 ) ! Reaction Label R166 RKI( NCELL, 166) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.4300D-13, 7.0000D+02 ) ! Reaction Label R167 RKI( NCELL, 167) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.3900D-12, 3.6500D+02 ) ! Reaction Label R168 RKI( NCELL, 168) = RKI( NCELL, 58 ) ! Reaction Label R169 RKI( NCELL, 169) = RKI( NCELL, 70 ) ! Reaction Label R170 RKI( NCELL, 170) = 3.1000D-11 * CFACT ! Reaction Label R171 RKI( NCELL, 171) = 3.6000D-11 * CFACT ! Reaction Label R172 RKI( NCELL, 172) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.5000D-11, 4.4900D+02 ) ! Reaction Label R173 RKI( NCELL, 173) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.2000D-15, -8.2100D+02 ) ! Reaction Label R174 RKI( NCELL, 174) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.7000D-12, 1.7500D+02 ) ! Reaction Label R171a RKI( NCELL, 175) = 3.6000D-11 * CFACT ! Reaction Label R172a RKI( NCELL, 176) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.5000D-11, 4.4900D+02 ) ! Reaction Label R173a RKI( NCELL, 177) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.2000D-15, -8.2100D+02 ) ! Reaction Label R174a RKI( NCELL, 178) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.7000D-12, 1.7500D+02 ) ! Reaction Label R175 RKI( NCELL, 179) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.3000D-12, -1.9000D+02 ) ! Reaction Label R176 RKI( NCELL, 180) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label R177 RKI( NCELL, 181) = RKI( NCELL, 58 ) ! Reaction Label R178 RKI( NCELL, 182) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.9000D-13, 1.3000D+03 ) ! Reaction Label R179 RKI( NCELL, 183) = RKI( NCELL, 70 ) ! Reaction Label R180 RKI( NCELL, 184) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.8000D-12, 3.4000D+02 ) ! Reaction Label R181 RKI( NCELL, 185) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label R182 RKI( NCELL, 186) = RKI( NCELL, 58 ) ! Reaction Label R183 RKI( NCELL, 187) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.9000D-13, 1.3000D+03 ) ! Reaction Label R184 RKI( NCELL, 188) = RKI( NCELL, 70 ) ! Reaction Label R185 RKI( NCELL, 189) = 1.8500D-11 * CFACT ! Reaction Label R185a RKI( NCELL, 190) = 1.8500D-11 * CFACT ! Reaction Label R186 RKI( NCELL, 191) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label R187 RKI( NCELL, 192) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.9000D-13, 1.3000D+03 ) ! Reaction Label R188 RKI( NCELL, 193) = RKI( NCELL, 58 ) ! Reaction Label R189 RKI( NCELL, 194) = RKI( NCELL, 70 ) ! Reaction Label R190 RKI( NCELL, 195) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.7000D-12, 9.5000D+02 ) ! Reaction Label R191 RKI( NCELL, 196) = 1.4000D-11 * CFACT ! Reaction Label R192 RKI( NCELL, 197) = 2.1000D-12 * CFACT ! Reaction Label R193 RKI( NCELL, 198) = 5.5000D-12 * CFACT ! Reaction Label R194 RKI( NCELL, 199) = 1.5300D-12 * CFACT ! Reaction Label R195 RKI( NCELL, 200) = 3.8000D-12 * CFACT ! Reaction Label R198 RKI( NCELL, 203) = 9.0000D-11 * CFACT ! Reaction Label R199 RKI( NCELL, 204) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.0800D-16, -5.0000D+02 ) ! Reaction Label R200 RKI( NCELL, 205) = 3.0000D-12 * CFACT ! Reaction Label R202 RKI( NCELL, 207) = 4.4000D-11 * CFACT ! Reaction Label R203 RKI( NCELL, 208) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.4000D-17, -5.0000D+02 ) ! Reaction Label R204 RKI( NCELL, 209) = 3.8000D-12 * CFACT ! Reaction Label R205 RKI( NCELL, 210) = 5.0000D-11 * CFACT ! Reaction Label R206 RKI( NCELL, 211) = 1.7000D-10 * CFACT ! Reaction Label R207 RKI( NCELL, 212) = RKI( NCELL, 61 ) ! Reaction Label R208 RKI( NCELL, 213) = RKI( NCELL, 62 ) ! Reaction Label R209 RKI( NCELL, 214) = RKI( NCELL, 63 ) ! Reaction Label R210 RKI( NCELL, 215) = RKI( NCELL, 57 ) ! Reaction Label R211 RKI( NCELL, 216) = RKI( NCELL, 59 ) ! Reaction Label R212 RKI( NCELL, 217) = RKI( NCELL, 58 ) ! Reaction Label R213 RKI( NCELL, 218) = 3.6000D-11 * CFACT ! Reaction Label R214 RKI( NCELL, 219) = 3.0000D-12 * CFACT ! Reaction Label R216 RKI( NCELL, 220) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.8500D-12, -1.6900D+03 ) ! Reaction Label R217 RKI( NCELL, 221) = SFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 2.3700D-21, 0.0000D+00, 0.0000D+00, & & 4.0700D-01, 0.0000D+00, -8.0000D+00, & & 1.0000D+00, 4.1000D-01 ) ! Reaction Label R218 RKI( NCELL, 222) = 1.0000D+00 * SFACT ! Reaction Label R219 RKI( NCELL, 223) = SFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 4.8100D-20, 0.0000D+00, 0.0000D+00, & & 4.0700D-01, 0.0000D+00, -8.0000D+00, & & 1.0000D+00, 4.1000D-01 ) ! Reaction Label R220 RKI( NCELL, 224) = 1.0000D+00 * SFACT ! Reaction Label R221 RKI( NCELL, 225) = 1.1000D-30 * CFACT_SQU ! Reaction Label CL3 RKI( NCELL, 228) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.3000D-11, -2.0000D+02 ) ! Reaction Label CL4 RKI( NCELL, 229) = 1.6300D-14 * CFACT ! Reaction Label CL5 RKI( NCELL, 230) = CFACT * ARRHENUIS_T03( INV_TEMP, 6.4000D-12, 2.9000D+02 ) ! Reaction Label CL6 RKI( NCELL, 231) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.2000D-12, 3.4000D+02 ) ! Reaction Label CL7 RKI( NCELL, 232) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.2000D-12, -1.1000D+02 ) ! Reaction Label CL8 RKI( NCELL, 233) = 5.0000D-13 * CFACT ! Reaction Label CL10 RKI( NCELL, 235) = CFACT * ARRHENUIS_T03( INV_TEMP, 6.6000D-12, -1.2400D+03 ) ! Reaction Label CL11 RKI( NCELL, 236) = 5.0000D-11 * CFACT ! Reaction Label CL12 RKI( NCELL, 237) = 1.4000D-10 * CFACT ! Reaction Label CL13 RKI( NCELL, 238) = CFACT * ARRHENUIS_T03( INV_TEMP, 8.3000D-11, -1.0000D+02 ) ! Reaction Label CL14 RKI( NCELL, 239) = 1.0700D-10 * CFACT ! Reaction Label CL15 RKI( NCELL, 240) = 2.5000D-10 * CFACT ! Reaction Label CL16 RKI( NCELL, 241) = 3.5000D-10 * CFACT ! Reaction Label CL17 RKI( NCELL, 242) = 4.3000D-10 * CFACT ! Reaction Label CL18 RKI( NCELL, 243) = CFACT * ARRHENUIS_T03( INV_TEMP, 8.2000D-11, -3.4000D+01 ) ! Reaction Label CL19 RKI( NCELL, 244) = 7.9000D-11 * CFACT ! Reaction Label CL20 RKI( NCELL, 245) = 1.3000D-10 * CFACT ! Reaction Label CL21 RKI( NCELL, 246) = 5.5000D-11 * CFACT ! Reaction Label CL22 RKI( NCELL, 247) = CFACT * ARRHENUIS_T03( INV_TEMP, 8.2000D-11, 4.5000D+01 ) ! Reaction Label CL23 RKI( NCELL, 248) = CFACT * ARRHENUIS_T04( INV_TEMP, TEMPOT300, & & 6.5800D-13, 5.8000D+01, 1.1600D+00 ) ! Reaction Label CL24 RKI( NCELL, 249) = 6.1000D-11 * CFACT ! Reaction Label CL25 RKI( NCELL, 250) = 1.2000D-10 * CFACT ! Reaction Label CL26 RKI( NCELL, 251) = 1.2000D-10 * CFACT ! Reaction Label CL28 RKI( NCELL, 253) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 1.8000D-31, 0.0000D+00, -3.4000D+00, & & 1.5000D-11, 0.0000D+00, -1.9000D+00, & & 1.0000D+00, 6.0000D-01 ) ! Reaction Label HET_CLNO3_WAI RKI( NCELL, 256) = BLKHET( NCELL, IK_HETERO_CLNO3_WAI ) ! Reaction Label HET_CLNO3_WAJ RKI( NCELL, 257) = BLKHET( NCELL, IK_HETERO_CLNO3_WAJ ) ! Reaction Label SA01 RKI( NCELL, 258) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label SA02 RKI( NCELL, 259) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.9000D-13, 1.3000D+03 ) ! Reaction Label SA03 RKI( NCELL, 260) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label SA04 RKI( NCELL, 261) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.9000D-13, 1.3000D+03 ) ! Reaction Label SA06 RKI( NCELL, 262) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label SA07 RKI( NCELL, 263) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.9000D-13, 1.3000D+03 ) ! Reaction Label SA08 RKI( NCELL, 264) = 1.1600D-14 * CFACT ! Reaction Label SA09 RKI( NCELL, 265) = 1.9700D-10 * CFACT ! Reaction Label SA10 RKI( NCELL, 266) = 1.9000D-11 * CFACT ! Reaction Label SA11 RKI( NCELL, 267) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label SA12 RKI( NCELL, 268) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.9000D-13, 1.3000D+03 ) ! Reaction Label SA13 RKI( NCELL, 269) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.7400D+02 ) ! Reaction Label HET_NTR2 RKI( NCELL, 270) = 1.4000D+00 * BLKHET( NCELL, IK_HETERO_NTR2 ) ! Reaction Label HET_N2O5IJ RKI( NCELL, 271) = BLKHET( NCELL, IK_HETERO_N2O5IJ ) ! Reaction Label HET_N2O5K RKI( NCELL, 272) = BLKHET( NCELL, IK_HETERO_N2O5K ) ! Reaction Label HET_H2NO3PIJA RKI( NCELL, 273) = BLKHET( NCELL, IK_HETERO_H2NO3PAIJ ) ! Reaction Label HET_H2NO3PKA RKI( NCELL, 274) = BLKHET( NCELL, IK_HETERO_H2NO3PAK ) ! Reaction Label HET_H2NO3PIB RKI( NCELL, 275) = BLKHET( NCELL, IK_HETERO_H2NO3PBIJ ) ! Reaction Label HET_H2NO3PJB RKI( NCELL, 276) = BLKHET( NCELL, IK_HETERO_H2NO3PBIJ ) ! Reaction Label HET_H2NO3PKB RKI( NCELL, 277) = BLKHET( NCELL, IK_HETERO_H2NO3PBK ) ! Reaction Label HET_N02 RKI( NCELL, 278) = BLKHET( NCELL, IK_HETERO_NO2 ) ! Reaction Label HET_IEPOX RKI( NCELL, 280) = BLKHET( NCELL, IK_HETERO_IEPOX ) ! Reaction Label HET_IEPOXOS RKI( NCELL, 281) = BLKHET( NCELL, IK_HETERO_IEPOXOS ) ! Reaction Label HET_TETROL RKI( NCELL, 282) = BLKHET( NCELL, IK_HETERO_TETROL ) ! Reaction Label HET_GLY RKI( NCELL, 283) = BLKHET( NCELL, IK_HETERO_GLY ) ! Reaction Label HET_MGLY RKI( NCELL, 284) = BLKHET( NCELL, IK_HETERO_MGLY ) ! Reaction Label BL18a RKI( NCELL, 285) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.6000D-12, 3.8000D+02 ) ! Reaction Label BL18b RKI( NCELL, 286) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.6500D-13, 1.3000D+03 ) ! Reaction Label BL18c RKI( NCELL, 287) = 2.3000D-12 * CFACT ! Reaction Label BL18d RKI( NCELL, 288) = 3.5000D-14 * CFACT ! Reaction Label CP07mtp RKI( NCELL, 289) = 1.9200D-10 * CFACT ! Reaction Label BP70mtp RKI( NCELL, 290) = 7.2000D-12 * CFACT ! Reaction Label HYD_MT RKI( NCELL, 292) = 9.2590D-05 * SFACT ! Reaction Label OLIG_AROMATIC1 RKI( NCELL, 293) = 9.4882D-06 * SFACT ! Reaction Label OLIG_AROMATIC2 RKI( NCELL, 294) = 9.4882D-06 * SFACT ! Reaction Label OLIG_AROMATIC3 RKI( NCELL, 295) = 9.4882D-06 * SFACT ! Reaction Label OLIG_ISOPRENE1 RKI( NCELL, 296) = 9.4882D-06 * SFACT ! Reaction Label OLIG_ISOPRENE2 RKI( NCELL, 297) = 9.4882D-06 * SFACT ! Reaction Label OLIG_SESQT1 RKI( NCELL, 298) = 9.4882D-06 * SFACT ! Reaction Label RPOAGEPI RKI( NCELL, 299) = 2.5000D-12 * CFACT ! Reaction Label RPOAGELI RKI( NCELL, 300) = BLKHET( NCELL, IK_HETERO_PNCOMLI ) ! Reaction Label RPOAGEPJ RKI( NCELL, 301) = 2.5000D-12 * CFACT ! Reaction Label RPOAGELJ RKI( NCELL, 302) = BLKHET( NCELL, IK_HETERO_PNCOMLJ ) ! Reaction Label PCSOA RKI( NCELL, 303) = 1.2500D-11 * CFACT ! Reaction Label POA_AGE1 RKI( NCELL, 304) = 4.0000D-11 * CFACT ! Reaction Label POA_AGE2 RKI( NCELL, 305) = 4.0000D-11 * CFACT ! Reaction Label POA_AGE3 RKI( NCELL, 306) = 4.0000D-11 * CFACT ! Reaction Label POA_AGE4 RKI( NCELL, 307) = 4.0000D-11 * CFACT ! Reaction Label POA_AGE5 RKI( NCELL, 308) = 4.0000D-11 * CFACT ! Reaction Label POA_AGE6 RKI( NCELL, 309) = 4.0000D-11 * CFACT ! Reaction Label POA_AGE7 RKI( NCELL, 310) = 4.0000D-11 * CFACT ! Reaction Label POA_AGE8 RKI( NCELL, 311) = 4.0000D-11 * CFACT ! Reaction Label POA_AGE9 RKI( NCELL, 312) = 4.0000D-11 * CFACT ! Reaction Label POA_AGE10 RKI( NCELL, 313) = 4.0000D-11 * CFACT ! Reaction Label T01 RKI( NCELL, 314) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.4000D-12, 1.3500D+02 ) ! Reaction Label T02 RKI( NCELL, 315) = 5.5000D-16 * CFACT ! Reaction Label T03 RKI( NCELL, 316) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.4000D-11, -1.6000D+03 ) ! Reaction Label TCL1 RKI( NCELL, 319) = CFACT * ARRHENUIS_T03( INV_TEMP, 8.2000D-11, -3.4000D+01 ) ! Reaction Label T06 RKI( NCELL, 320) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.7000D-12, 3.4500D+02 ) ! Reaction Label T07 RKI( NCELL, 321) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.4000D-12, -1.8600D+03 ) ! Reaction Label T08 RKI( NCELL, 322) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.8000D-11, -1.1000D+03 ) ! Reaction Label TCL2 RKI( NCELL, 324) = 7.9000D-11 * CFACT ! Reaction Label T10 RKI( NCELL, 325) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.4800D-11, 4.4800D+02 ) ! Reaction Label T11 RKI( NCELL, 326) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.3400D-14, -2.2830D+03 ) ! Reaction Label T12 RKI( NCELL, 327) = 1.7900D-13 * CFACT ! Reaction Label TCL3 RKI( NCELL, 328) = 2.5100D-10 * CFACT ! Reaction Label T13 RKI( NCELL, 329) = 2.0000D-11 * CFACT ! Reaction Label T14 RKI( NCELL, 330) = 2.6100D-19 * CFACT ! Reaction Label T15 RKI( NCELL, 331) = 1.1500D-15 * CFACT ! Reaction Label TCL4 RKI( NCELL, 333) = 2.3700D-10 * CFACT ! Reaction Label T17 RKI( NCELL, 334) = 2.0000D-11 * CFACT ! Reaction Label T18 RKI( NCELL, 335) = 2.6100D-19 * CFACT ! Reaction Label T19 RKI( NCELL, 336) = 1.1500D-15 * CFACT ! Reaction Label TCL5 RKI( NCELL, 338) = 2.3700D-10 * CFACT ! Reaction Label T21 RKI( NCELL, 339) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.8000D-12, 3.4000D+02 ) ! Reaction Label TCL6 RKI( NCELL, 340) = 6.1000D-11 * CFACT ! Reaction Label HG1 RKI( NCELL, 341) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.1100D-18, -1.2565D+03 ) ! Reaction Label HG2 RKI( NCELL, 342) = 2.6000D-18 * CFACT ! Reaction Label HG3 RKI( NCELL, 343) = 8.5000D-19 * CFACT ! Reaction Label HG4 RKI( NCELL, 344) = 7.7000D-14 * CFACT ! Reaction Label HG5 RKI( NCELL, 345) = CFACT_SQU * ARRHENUIS_T03( INV_TEMP, 2.2500D-33, 6.8000D+02 ) ! Reaction Label DMS1 RKI( NCELL, 346) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.1200D-11, -2.5000D+02 ) ! Reaction Label DMS2 RKI( NCELL, 347) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 1.9900D-39, 5.2700D+03, 0.0000D+00, & & 1.2600D-10, -3.4000D+02, 0.0000D+00, & & 1.0000D+00, 1.0000D+00 ) ! Reaction Label DMS3 RKI( NCELL, 348) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.9000D-13, 5.2000D+02 ) ! Reaction Label DMS4 RKI( NCELL, 349) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.4000D-13, 2.0810D+03 ) END DO ! Multiply rate constants by [M], [O2], [N2], [H2O], [H2], or [CH4] ! where needed and return IF ( NWM .GT. 0 ) THEN DO NRT = 1, NWM IRXN = NRXWM( NRT ) DO NCELL = 1, NUMCELLS RKI( NCELL,IRXN ) = RKI( NCELL,IRXN ) * ATM_AIR END DO END DO END IF IF ( NWO2 .GT. 0 ) THEN DO NRT = 1, NWO2 IRXN = NRXWO2( NRT ) DO NCELL = 1, NUMCELLS RKI( NCELL,IRXN ) = RKI( NCELL,IRXN ) * ATM_O2 END DO END DO END IF IF ( NWN2 .GT. 0 ) THEN DO NRT = 1, NWN2 IRXN = NRXWN2( NRT ) DO NCELL = 1, NUMCELLS RKI( NCELL,IRXN ) = RKI( NCELL,IRXN ) * ATM_N2 END DO END DO END IF IF ( NWW .GT. 0 ) THEN DO NRT = 1, NWW IRXN = NRXWW( NRT ) DO NCELL = 1, NUMCELLS RKI( NCELL,IRXN ) = RKI( NCELL,IRXN ) * BLKH2O( NCELL ) END DO END DO END IF IF ( NWH2 .GT. 0 ) THEN DO NRT = 1, NWH2 IRXN = NRXWH2( NRT ) DO NCELL = 1, NUMCELLS RKI( NCELL,IRXN ) = RKI( NCELL,IRXN ) * ATM_H2 END DO END DO END IF IF ( NWCH4 .GT. 0 ) THEN DO NRT = 1, NWCH4 IRXN = NRXWCH4( NRT ) DO NCELL = 1, NUMCELLS RKI( NCELL,IRXN ) = RKI( NCELL,IRXN ) * ATM_CH4 END DO END DO END IF RETURN END SUBROUTINE CALC_RCONST FUNCTION MAP_CHEMISTRY_SPECIES() RESULT ( SUCCESS ) ! Purpose find or test the CGRID Index, Species Type, and Conversion Factor ! for the Mechanism against the CMAQ namelists USE UTILIO_DEFN USE CGRID_SPCS USE RXNS_DATA IMPLICIT NONE !Parameters: CHARACTER( 1 ), PARAMETER :: BL = ' ' INTEGER, PARAMETER :: SPC_DIM = 200 !Local: LOGICAL SUCCESS INTEGER I, IOS, J INTEGER I1, I2, I3, I4 ! SURROGATE TYPE 1 COUNTERS INTEGER J1, J2 ! SURROGATE TYPE 2 COUNTERS INTEGER K1, K2, K3, K4, K5 ! CONTROL TYPE COUNTERS INTEGER ICALL LOGICAL :: ORDER = .TRUE. LOGICAL :: FOUND = .TRUE. CHARACTER( 120 ) :: XMSG CHARACTER( 16 ), ALLOCATABLE :: CGRID_SPC ( : ) CHARACTER( 16 ), ALLOCATABLE :: NML_SPC ( : ) CHARACTER( 2 ), ALLOCATABLE :: NML_TYPE ( : ) INTEGER, ALLOCATABLE :: NML_INDEX ( : ) LOGICAL, ALLOCATABLE :: NML_CONVERT( : ) REAL, ALLOCATABLE :: NML_MOLWT ( : ) REAL :: DELTA ! fractional difference LOGICAL, SAVE :: INITIALIZED = .FALSE. IF( INITIALIZED )RETURN INITIALIZED = .TRUE. SUCCESS = .TRUE. ALLOCATE ( CGRID_SPC( NSPCSD - 1 ), & & NML_SPC ( NSPCSD - 1 ), & & NML_INDEX( NSPCSD - 1 ), & & NML_TYPE( NSPCSD - 1 ), & & NML_CONVERT( NSPCSD - 1 ), & & NML_MOLWT( NSPCSD - 1 ), & & STAT = IOS ) J = 0 NML_INDEX = -1 TYPE_INDEX = -1 NML_TYPE = '??' NML_CONVERT = .FALSE. DO I = 1, N_GC_SPC ! load gc names and indices J = J + 1 CGRID_SPC( I ) = GC_SPC( I ) NML_INDEX( J ) = I + GC_STRT -1 NML_TYPE( J ) = 'GC' NML_MOLWT( J ) = GC_MOLWT( I ) END DO DO I = 1, N_AE_SPC ! load ae names and indices J = J + 1 CGRID_SPC( J ) = AE_SPC( I ) NML_INDEX( J ) = I + AE_STRT - 1 NML_TYPE( J ) = 'AE' NML_CONVERT( J ) = .TRUE. NML_MOLWT( J ) = AE_MOLWT( I ) END DO DO I = 1, N_NR_SPC ! load nr names and indices J = J + 1 CGRID_SPC( J ) = NR_SPC( I ) NML_INDEX( J ) = I + NR_STRT - 1 NML_TYPE( J ) = 'NR' NML_MOLWT( J ) = NR_MOLWT( I ) END DO DO I = 1, N_TR_SPC ! load tr names and indices J = J + 1 CGRID_SPC( J ) = TR_SPC( I ) NML_INDEX( J ) = I + TR_STRT - 1 NML_TYPE( J ) = 'TR' NML_MOLWT( J ) = TR_MOLWT( I ) END DO NML_SPC( 1:(NSPCSD-1) ) = CGRID_SPC( 1:(NSPCSD-1) ) ! determine if mechanism species are in cgrid species DO I = 1, NUMB_MECH_SPC ! set species informations arrays using SPECIES_LIST array before mapping CHEMISTRY_SPC( I ) = SPECIES_LIST( I )%CHEMISTRY_SPC CGRID_INDEX ( I ) = SPECIES_LIST( I )%CGRID_INDEX SPECIES_TYPE ( I ) = SPECIES_LIST( I )%SPECIES_TYPE CONVERT_CONC ( I ) = SPECIES_LIST( I )%CONVERT_CONC SPECIES_MOLWT( I ) = SPECIES_LIST( I )%SPECIES_MOLWT I1 = INDEX1R( CHEMISTRY_SPC( I ), (NSPCSD-1), CGRID_SPC ) IF ( I1 .LT. 1 ) THEN FOUND = .FALSE. ELSE FOUND = .TRUE. IF( .NOT. MAPPED_TO_CGRID )THEN CGRID_INDEX( I ) = NML_INDEX( I1 ) SPECIES_TYPE( I ) = NML_TYPE ( I1 ) SPECIES_MOLWT( I ) = NML_MOLWT( I1 ) CONVERT_CONC( I ) = NML_CONVERT( I1 ) ELSE IF(CGRID_INDEX( I ) .NE. NML_INDEX( I1 ))THEN SUCCESS = .FALSE. XMSG = '*** For Species ' // TRIM( CHEMISTRY_SPC( I ) ) & & // ' cgrid index does not match mechanism value.' WRITE( LOGDEV,'( /5X, A )' ) TRIM( XMSG ) WRITE( XMSG,'(A,I3,1X,I3)')'CGRID Indices: Mechanism and NML Values are ', & & CGRID_INDEX( I ),NML_INDEX( I1 ) WRITE( LOGDEV,'( 5X, A )' )XMSG END IF IF(CONVERT_CONC( I ) .NEQV. NML_CONVERT( I1 ))THEN SUCCESS = .FALSE. XMSG = '*** For Species ' // TRIM( CHEMISTRY_SPC( I ) ) & & // ' species unit conversion flag does not match mechanism value.' WRITE( LOGDEV,'( /5X, A )' ) TRIM( XMSG ) WRITE( XMSG,'(A,1X,L21X,L2)')'CONVERSION FLAGS: Mechanism and NML Values are ', & & CONVERT_CONC( I ),NML_CONVERT( I1 ) WRITE( LOGDEV,'( 5X, A )' )XMSG WRITE( XMSG,'(A,1X,A3,1X,A3)')'SPECIES TYPE: Mechanism and NML Values are ', & & SPECIES_TYPE( I ),NML_TYPE( I1 ) WRITE( LOGDEV,'( 5X, A )' )XMSG END IF DELTA = ( SPECIES_MOLWT( I ) - NML_MOLWT( I1 ) )/MAX(NML_MOLWT( I1 ),1.0E-20) IF( ABS( DELTA ) .GE. 0.05 )THEN IF( CONVERT_CONC( I ) )SUCCESS = .FALSE. XMSG = '*** For Species ' // TRIM( CHEMISTRY_SPC( I ) ) & & // ' species molecular weight does not match mechanism value.' WRITE( LOGDEV,'( /5X, A )' ) TRIM( XMSG ) WRITE( XMSG,'(A,2(ES12.4,1X))')'Molecular Weight: Mechanism and NML Values are ', & & SPECIES_MOLWT( I ), NML_MOLWT( I1 ) WRITE( LOGDEV,'( 5X, A )' )XMSG END IF END IF END IF IF( INDEX( CHEMISTRY_SPC( I ), 'SRF') .GT. 0 )THEN SUCCESS = .FALSE. XMSG = '*** reactions cannot use modal aerosol surface area as species' WRITE( LOGDEV,'( /5X, A )' ) TRIM( XMSG ) XMSG = TRIM( CHEMISTRY_SPC( I ) ) WRITE( LOGDEV,'( 2X, A )' ) TRIM( XMSG ) END IF IF( INDEX( CHEMISTRY_SPC( I ), 'NUM') .GT. 0 )THEN SUCCESS = .FALSE. XMSG = '*** reactions cannot use modal aerosol number density as species' WRITE( LOGDEV,'( /5X, A )' ) TRIM( XMSG ) XMSG = TRIM( CHEMISTRY_SPC( I ) ) WRITE( LOGDEV,'( 2X, A )' ) TRIM( XMSG ) END IF IF ( .NOT. FOUND ) THEN XMSG = 'Fatal error: Mechanism Species found not in species namelist:' WRITE( LOGDEV,'( /5X, A )', ADVANCE = 'NO' ) TRIM( XMSG ) XMSG = TRIM( CHEMISTRY_SPC( I ) ) WRITE( LOGDEV,'( 2X, A )' ) TRIM( XMSG ) SUCCESS = .FALSE. END IF END DO IF( SUCCESS )RETURN WRITE(LOGDEV,99901)TRIM( MECHNAME ) XMSG = 'The FATAL errors found in namelist used. Check ' & & // 'the log of exiting processor if more details are needed.' CALL M3WARN('MAP_CHEMISTRY_SPECIES',0,0,XMSG) 99901 FORMAT( / 'FATAL error(s) found in the namelists used. Check that ' & & / 'these namelists contain the above data as the respective files ' & & / 'in the respository version of the mechanism: ' , A ) RETURN END FUNCTION MAP_CHEMISTRY_SPECIES !---------------------------------------------------------------------------------------- INTEGER FUNCTION INDEX1R ( NAME, N, NLIST ) IMPLICIT NONE CHARACTER( * ) NAME ! character string being searched for INTEGER N ! length of array to be searched CHARACTER( * ) NLIST( : ) ! array to be searched INTEGER I DO I = 1, N IF ( NAME .EQ. NLIST( I ) ) THEN INDEX1R = I RETURN END IF END DO INDEX1R = 0 RETURN END FUNCTION INDEX1R SUBROUTINE RESET_SPECIES_POINTERS( IOLD2NEW ) USE RXNS_DATA IMPLICIT NONE INTEGER, INTENT( IN ) :: IOLD2NEW( :,: ) INDEX_NO2 = IOLD2NEW( INDEX_NO2 , 1 ) INDEX_NO = IOLD2NEW( INDEX_NO , 1 ) INDEX_O = IOLD2NEW( INDEX_O , 1 ) INDEX_O3 = IOLD2NEW( INDEX_O3 , 1 ) INDEX_NO3 = IOLD2NEW( INDEX_NO3 , 1 ) INDEX_O1D = IOLD2NEW( INDEX_O1D , 1 ) INDEX_OH = IOLD2NEW( INDEX_OH , 1 ) INDEX_HO2 = IOLD2NEW( INDEX_HO2 , 1 ) INDEX_H2O2 = IOLD2NEW( INDEX_H2O2 , 1 ) INDEX_N2O5 = IOLD2NEW( INDEX_N2O5 , 1 ) INDEX_HNO3 = IOLD2NEW( INDEX_HNO3 , 1 ) INDEX_HONO = IOLD2NEW( INDEX_HONO , 1 ) INDEX_PNA = IOLD2NEW( INDEX_PNA , 1 ) INDEX_SO2 = IOLD2NEW( INDEX_SO2 , 1 ) INDEX_SULF = IOLD2NEW( INDEX_SULF , 1 ) INDEX_SULRXN = IOLD2NEW( INDEX_SULRXN , 1 ) INDEX_C2O3 = IOLD2NEW( INDEX_C2O3 , 1 ) INDEX_MEO2 = IOLD2NEW( INDEX_MEO2 , 1 ) INDEX_RO2 = IOLD2NEW( INDEX_RO2 , 1 ) INDEX_PAN = IOLD2NEW( INDEX_PAN , 1 ) INDEX_PACD = IOLD2NEW( INDEX_PACD , 1 ) INDEX_AACD = IOLD2NEW( INDEX_AACD , 1 ) INDEX_CXO3 = IOLD2NEW( INDEX_CXO3 , 1 ) INDEX_ALD2 = IOLD2NEW( INDEX_ALD2 , 1 ) INDEX_XO2H = IOLD2NEW( INDEX_XO2H , 1 ) INDEX_PANX = IOLD2NEW( INDEX_PANX , 1 ) INDEX_FORM = IOLD2NEW( INDEX_FORM , 1 ) INDEX_MEPX = IOLD2NEW( INDEX_MEPX , 1 ) INDEX_MEOH = IOLD2NEW( INDEX_MEOH , 1 ) INDEX_ROOH = IOLD2NEW( INDEX_ROOH , 1 ) INDEX_XO2 = IOLD2NEW( INDEX_XO2 , 1 ) INDEX_XO2N = IOLD2NEW( INDEX_XO2N , 1 ) INDEX_NTR1 = IOLD2NEW( INDEX_NTR1 , 1 ) INDEX_NTR2 = IOLD2NEW( INDEX_NTR2 , 1 ) INDEX_FACD = IOLD2NEW( INDEX_FACD , 1 ) INDEX_CO = IOLD2NEW( INDEX_CO , 1 ) INDEX_HCO3 = IOLD2NEW( INDEX_HCO3 , 1 ) INDEX_ALDX = IOLD2NEW( INDEX_ALDX , 1 ) INDEX_GLYD = IOLD2NEW( INDEX_GLYD , 1 ) INDEX_GLY = IOLD2NEW( INDEX_GLY , 1 ) INDEX_MGLY = IOLD2NEW( INDEX_MGLY , 1 ) INDEX_ETHA = IOLD2NEW( INDEX_ETHA , 1 ) INDEX_ETOH = IOLD2NEW( INDEX_ETOH , 1 ) INDEX_KET = IOLD2NEW( INDEX_KET , 1 ) INDEX_PAR = IOLD2NEW( INDEX_PAR , 1 ) INDEX_ACET = IOLD2NEW( INDEX_ACET , 1 ) INDEX_PRPA = IOLD2NEW( INDEX_PRPA , 1 ) INDEX_XPRP = IOLD2NEW( INDEX_XPRP , 1 ) INDEX_XPAR = IOLD2NEW( INDEX_XPAR , 1 ) INDEX_ROR = IOLD2NEW( INDEX_ROR , 1 ) INDEX_ETHY = IOLD2NEW( INDEX_ETHY , 1 ) INDEX_ETH = IOLD2NEW( INDEX_ETH , 1 ) INDEX_OLE = IOLD2NEW( INDEX_OLE , 1 ) INDEX_IOLE = IOLD2NEW( INDEX_IOLE , 1 ) INDEX_ISOP = IOLD2NEW( INDEX_ISOP , 1 ) INDEX_ISO2 = IOLD2NEW( INDEX_ISO2 , 1 ) INDEX_ISOPRXN = IOLD2NEW( INDEX_ISOPRXN , 1 ) INDEX_ISPD = IOLD2NEW( INDEX_ISPD , 1 ) INDEX_INTR = IOLD2NEW( INDEX_INTR , 1 ) INDEX_ISPX = IOLD2NEW( INDEX_ISPX , 1 ) INDEX_HPLD = IOLD2NEW( INDEX_HPLD , 1 ) INDEX_OPO3 = IOLD2NEW( INDEX_OPO3 , 1 ) INDEX_EPOX = IOLD2NEW( INDEX_EPOX , 1 ) INDEX_EPX2 = IOLD2NEW( INDEX_EPX2 , 1 ) INDEX_TERP = IOLD2NEW( INDEX_TERP , 1 ) INDEX_TRPRXN = IOLD2NEW( INDEX_TRPRXN , 1 ) INDEX_TERPNRO2 = IOLD2NEW( INDEX_TERPNRO2 , 1 ) INDEX_APIN = IOLD2NEW( INDEX_APIN , 1 ) INDEX_BENZENE = IOLD2NEW( INDEX_BENZENE , 1 ) INDEX_CRES = IOLD2NEW( INDEX_CRES , 1 ) INDEX_BZO2 = IOLD2NEW( INDEX_BZO2 , 1 ) INDEX_OPEN = IOLD2NEW( INDEX_OPEN , 1 ) INDEX_BENZRO2 = IOLD2NEW( INDEX_BENZRO2 , 1 ) INDEX_TOL = IOLD2NEW( INDEX_TOL , 1 ) INDEX_TO2 = IOLD2NEW( INDEX_TO2 , 1 ) INDEX_TOLRO2 = IOLD2NEW( INDEX_TOLRO2 , 1 ) INDEX_XOPN = IOLD2NEW( INDEX_XOPN , 1 ) INDEX_XYLMN = IOLD2NEW( INDEX_XYLMN , 1 ) INDEX_XLO2 = IOLD2NEW( INDEX_XLO2 , 1 ) INDEX_XYLRO2 = IOLD2NEW( INDEX_XYLRO2 , 1 ) INDEX_NAPH = IOLD2NEW( INDEX_NAPH , 1 ) INDEX_PAHRO2 = IOLD2NEW( INDEX_PAHRO2 , 1 ) INDEX_CRO = IOLD2NEW( INDEX_CRO , 1 ) INDEX_CAT1 = IOLD2NEW( INDEX_CAT1 , 1 ) INDEX_CRON = IOLD2NEW( INDEX_CRON , 1 ) INDEX_OPAN = IOLD2NEW( INDEX_OPAN , 1 ) INDEX_ECH4 = IOLD2NEW( INDEX_ECH4 , 1 ) INDEX_CL2 = IOLD2NEW( INDEX_CL2 , 1 ) INDEX_CL = IOLD2NEW( INDEX_CL , 1 ) INDEX_HOCL = IOLD2NEW( INDEX_HOCL , 1 ) INDEX_CLO = IOLD2NEW( INDEX_CLO , 1 ) INDEX_FMCL = IOLD2NEW( INDEX_FMCL , 1 ) INDEX_HCL = IOLD2NEW( INDEX_HCL , 1 ) INDEX_CLNO2 = IOLD2NEW( INDEX_CLNO2 , 1 ) INDEX_CLNO3 = IOLD2NEW( INDEX_CLNO3 , 1 ) INDEX_SVAVB2 = IOLD2NEW( INDEX_SVAVB2 , 1 ) INDEX_SVAVB3 = IOLD2NEW( INDEX_SVAVB3 , 1 ) INDEX_SVAVB4 = IOLD2NEW( INDEX_SVAVB4 , 1 ) INDEX_SVAVB1 = IOLD2NEW( INDEX_SVAVB1 , 1 ) INDEX_SESQ = IOLD2NEW( INDEX_SESQ , 1 ) INDEX_SESQRXN = IOLD2NEW( INDEX_SESQRXN , 1 ) INDEX_SOAALK = IOLD2NEW( INDEX_SOAALK , 1 ) INDEX_H2NO3PIJ = IOLD2NEW( INDEX_H2NO3PIJ , 1 ) INDEX_H2NO3PK = IOLD2NEW( INDEX_H2NO3PK , 1 ) INDEX_ACLI = IOLD2NEW( INDEX_ACLI , 1 ) INDEX_ACLJ = IOLD2NEW( INDEX_ACLJ , 1 ) INDEX_ACLK = IOLD2NEW( INDEX_ACLK , 1 ) INDEX_IEPOXP = IOLD2NEW( INDEX_IEPOXP , 1 ) INDEX_ASO4J = IOLD2NEW( INDEX_ASO4J , 1 ) INDEX_AISO3J = IOLD2NEW( INDEX_AISO3J , 1 ) INDEX_AGLYJ = IOLD2NEW( INDEX_AGLYJ , 1 ) INDEX_MTNO3 = IOLD2NEW( INDEX_MTNO3 , 1 ) INDEX_AMTNO3J = IOLD2NEW( INDEX_AMTNO3J , 1 ) INDEX_AMTHYDJ = IOLD2NEW( INDEX_AMTHYDJ , 1 ) INDEX_AAVB2J = IOLD2NEW( INDEX_AAVB2J , 1 ) INDEX_AOLGAJ = IOLD2NEW( INDEX_AOLGAJ , 1 ) INDEX_AAVB3J = IOLD2NEW( INDEX_AAVB3J , 1 ) INDEX_AAVB4J = IOLD2NEW( INDEX_AAVB4J , 1 ) INDEX_AISO1J = IOLD2NEW( INDEX_AISO1J , 1 ) INDEX_AOLGBJ = IOLD2NEW( INDEX_AOLGBJ , 1 ) INDEX_AISO2J = IOLD2NEW( INDEX_AISO2J , 1 ) INDEX_ASQTJ = IOLD2NEW( INDEX_ASQTJ , 1 ) INDEX_APOCI = IOLD2NEW( INDEX_APOCI , 1 ) INDEX_APNCOMI = IOLD2NEW( INDEX_APNCOMI , 1 ) INDEX_APOCJ = IOLD2NEW( INDEX_APOCJ , 1 ) INDEX_APNCOMJ = IOLD2NEW( INDEX_APNCOMJ , 1 ) INDEX_PCVOC = IOLD2NEW( INDEX_PCVOC , 1 ) INDEX_PCSOARXN = IOLD2NEW( INDEX_PCSOARXN , 1 ) INDEX_VLVPO1 = IOLD2NEW( INDEX_VLVPO1 , 1 ) INDEX_VSVPO1 = IOLD2NEW( INDEX_VSVPO1 , 1 ) INDEX_VSVPO2 = IOLD2NEW( INDEX_VSVPO2 , 1 ) INDEX_VSVPO3 = IOLD2NEW( INDEX_VSVPO3 , 1 ) INDEX_VIVPO1 = IOLD2NEW( INDEX_VIVPO1 , 1 ) INDEX_VLVOO1 = IOLD2NEW( INDEX_VLVOO1 , 1 ) INDEX_VLVOO2 = IOLD2NEW( INDEX_VLVOO2 , 1 ) INDEX_VSVOO2 = IOLD2NEW( INDEX_VSVOO2 , 1 ) INDEX_VSVOO3 = IOLD2NEW( INDEX_VSVOO3 , 1 ) INDEX_VSVOO1 = IOLD2NEW( INDEX_VSVOO1 , 1 ) INDEX_FORM_PRIMARY = IOLD2NEW( INDEX_FORM_PRIMARY, 1 ) INDEX_ALD2_PRIMARY = IOLD2NEW( INDEX_ALD2_PRIMARY, 1 ) INDEX_BUTADIENE13 = IOLD2NEW( INDEX_BUTADIENE13 , 1 ) INDEX_ACROLEIN = IOLD2NEW( INDEX_ACROLEIN , 1 ) INDEX_ACRO_PRIMARY = IOLD2NEW( INDEX_ACRO_PRIMARY, 1 ) INDEX_TOLU = IOLD2NEW( INDEX_TOLU , 1 ) INDEX_HG = IOLD2NEW( INDEX_HG , 1 ) INDEX_HGIIAER = IOLD2NEW( INDEX_HGIIAER , 1 ) INDEX_HGIIGAS = IOLD2NEW( INDEX_HGIIGAS , 1 ) INDEX_DMS = IOLD2NEW( INDEX_DMS , 1 ) INDEX_MSA = IOLD2NEW( INDEX_MSA , 1 ) END SUBROUTINE RESET_SPECIES_POINTERS END MODULE RXNS_FUNCTION ================================================ FILE: CCTM/src/MECHS/cb6r5_ae7_aq/SpecDef_Conc_cb6r5_ae7_aq.txt ================================================ !#start YYYYJJJ 010000 !#end YYYYJJJ 000000 #layer 1 / ! This Species Definition File is for Use with the COMBINE tool built for ! post-processing CMAQ output. It is compatible with CMAQv5.4. ! Date: May 12 2017 ! Output variables that begin with 'PM' represent those in which a size cut was ! applied based on modeled aerosol mode parameters. For example, PM25_NA is all ! sodium that falls below 2.5 um diameter. These 'PM' variables are used for ! comparisons at IMPROVE and CSN sites. ! Output variables that begin with 'PMAMS' represent the mass that would have ! been detected by an Aerosol Mass Spectrometer. ! Output variables beginning with 'A' (aside from AIR_DENS) represent a ! combination of aerosol species in which no size cut was applied. For example, ! ASO4IJ is the sum of i-mode and j-mode sulfate. These 'A' variables are used ! for comparisons at CASTNet sites. ! Output variables beginning with 'PMC' refer to the coarse fraction of total PM, ! computed by summing all modes and subtracting the PM2.5 fraction. These 'PMC' ! variables are used for comparisons at SEARCH sites. ! This Species Definition File is just for use with the uncoupled, offline CMAQ, ! model. If you are processing WRF-CMAQ results, a different Species Definition ! file is required. / File [1]: CMAQ conc/aconc file / File [2]: METCRO3D file / File [3]: ELMO/AELMO file / File [4]: METCRO2D file / /new species ,units ,expression !-------------------------------------------! !------------- Meteorology -----------------! !-------------------------------------------! AIR_DENS ,kg m-3 ,DENS[2] RH ,% ,100.00*RH[3] SFC_TMP ,C ,(TEMP2[4]-273.15) PBLH ,m ,PBL[4] SOL_RAD ,W m-2 ,RGRND[4] precip ,cm ,RC[4]>=0 ? RN[4]+RC[4] : RN[4] WSPD10 ,m s-1 ,WSPD10[4] WDIR10 ,deg ,WDIR10[4] !-------------------------------------------! !--------------- Gases ---------------------! !-------------------------------------------! ALD2 ,ppbV ,1000.0*ALD2[1] BENZENE ,ppbV ,1000.0*BENZENE[1] CO ,ppbV ,1000.0*CO[1] ETH ,ppbV ,1000.0*ETH[1] ETHA ,ppbV ,1000.0*ETHA[1] FORM ,ppbV ,1000.0*FORM[1] H2O2 ,ppbV ,1000.0*H2O2[1] HNO3 ,ppbV ,1000.0*HNO3[1] HNO3_UGM3 ,ug m-3 ,1000.0*(HNO3[1]*2.1756*DENS[2]) HONO ,ppbV ,1000.0*HONO[1] HOX ,ppbV ,1000.0*(OH[1]+HO2[1]) OH ,ppbV ,1000.0*(OH[1]) ISOP ,ppbV ,1000.0*ISOP[1] N2O5 ,ppbV ,1000.0*N2O5[1] NH3 ,ppbV ,1000.0*NH3[1] NH3_UGM3 ,ug m-3 ,1000.0*(NH3[1]*0.5880*DENS[2]) NHX ,ug m-3 ,1000.0*(NH3[1]*0.5880*DENS[2])+ANH4I[1]+ANH4J[1]+ANH4K[1] NO ,ppbV ,1000.0*NO[1] NO2 ,ppbV ,1000.0*NO2[1] NOX ,ppbV ,1000.0*(NO[1] + NO2[1]) ANO3_PPB ,ppbV ,(ANO3I[1]+ANO3J[1]+ANO3K[1])/(DENS[2]*(62.0/28.97)) NTR ,ppbV ,1000.0*(NTR1[1]+NTR2[1]+INTR[1]) PANS ,ppbV ,1000.0*(PAN[1]+PANX[1]+OPAN[1]) NOY ,ppbV ,1000.0* (NO[1]+NO2[1]+NO3[1]+2*N2O5[1]+HONO[1]+HNO3[1]+PNA[1] \ +CRON[1]+CLNO2[1]+CLNO3[1]) \ +PANS[0]+NTR[0]+ANO3_PPB[0] O3 ,ppbV ,1000.0*O3[1] SO2 ,ppbV ,1000.0*SO2[1] SO2_UGM3 ,ug m-3 ,1000.0*(SO2[1]*2.2118*DENS[2]) TERP ,ppbV ,1000.0*TERP[1] TOL ,ppbV ,1000.0*TOL[1] XYL ,ppbV ,1000.0*XYLMN[1] !Additional Toxic gases !ACROLEIN ,ug m-3 ,1000.0*(ACROLEIN[1]*1.9365*DENS[2]) !ACRO_PRIMARY ,ug m-3 ,1000.0*(ACRO_PRIMARY*1.9365*DENS[2]) !ALD2_PRIMARY ,ug m-3 ,1000.0*(ALD2_PRIMARY[1]*1.5188*DENS[2]) !FORM_PRIMARY ,ug m-3 ,1000.0*(FORM_PRIMARY[1]*1.0356*DENS[2]) !BUTADIENE13 ,ug m-3 ,1000.0*(BUTADIENE13[1]*1.8674*DENS[2]) !HCL ,ppbV ,1000.0*HCL[1] !TOLUENE ,ppbV ,1000.0*TOLU[1] !Mercuric gas species !HG_0 ,ng/m3 ,1000.0*(HG[1]*8.3330*DENS[2]*1000.0) !HG_II ,ng/m3 ,1000.0*(HGIIGAS[1]*8.3330*DENS[2]*1000.0) !! Unused Gases. Presented Here for illustration. Users can uncomment !! them if they choose. !ALDX ,ppbV ,1000.0*ALDX[1] !IOLE ,ppbV ,1000.0*IOLE[1] !OLE ,ppbV ,1000.0*OLE[1] !PAR ,ppbV ,1000.0*PAR[1] !PAN ,ppbV ,1000.0*PAN[1] !SULF ,ppbV ,1000.0*SULF[1] ! emitted VOCs !VOC ,ppbC ,1000.0* (PAR[1] +2.0*ETHA[1] +3.0*PRPA[1] +MEOH[1]\ ! +2.0*ETH[1] +2.0*ETOH[1] +2.0*OLE[1] +3.0*ACET[1] \ ! +7.0*TOL[1] +8.0*XYLMN[1] +6.0*BENZENE[1] \ ! +FORM[1] +3.0*GLY[1] +4.0*KET[1] +2.0*ETHY[1] \ ! +2.0*ALD2[1] + 4.0*IOLE[1] + 2.0*ALDX[1] \ ! +5.0*ISOP[1] + 10.0*TERP[1]+ 10.0*NAPH[1] +10.*APIN[1]) !! DMS and MSA. Users can uncomment them if they choose. DMS ,ppbV ,1000.0*DMS[1] MSA ,ppbV ,1000.0*MSA[1] !-------------------------------------------! !--------------- Particles -----------------! !-------------------------------------------! !! Crustal Elements AFEJ ,ug m-3 ,AFEJ[1] AALJ ,ug m-3 ,AALJ[1] ASIJ ,ug m-3 ,ASIJ[1] ATIJ ,ug m-3 ,ATIJ[1] ACAJ ,ug m-3 ,ACAJ[1] AMGJ ,ug m-3 ,AMGJ[1] AKJ ,ug m-3 ,AKJ[1] AMNJ ,ug m-3 ,AMNJ[1] ASOILJ ,ug m-3 ,2.20*AALJ[1]+2.49*ASIJ[1]+1.63*ACAJ[1]+2.42*AFEJ[1]+1.94*ATIJ[1] !! Non-Crustal Inorganic Particle Species AHPLUSIJ ,umol m-3 ,(AH3OPI[1]+AH3OPJ[1])*1.0/19.0 ANAK ,ug m-3 ,0.8373*ASEACAT[1]+0.0626*ASOIL[1]+0.0023*ACORS[1] AMGK ,ug m-3 ,0.0997*ASEACAT[1]+0.0170*ASOIL[1]+0.0032*ACORS[1] AKK ,ug m-3 ,0.0310*ASEACAT[1]+0.0242*ASOIL[1]+0.0176*ACORS[1] ACAK ,ug m-3 ,0.0320*ASEACAT[1]+0.0838*ASOIL[1]+0.0562*ACORS[1] ACLIJ ,ug m-3 ,ACLI[1]+ACLJ[1] AECIJ ,ug m-3 ,AECI[1]+AECJ[1] ANAIJ ,ug m-3 ,ANAJ[1]+ANAI[1] ANO3IJ ,ug m-3 ,ANO3I[1]+ANO3J[1] ANO3K ,ug m-3 ,ANO3K[1] TNO3 ,ug m-3 ,2175.6*(HNO3[1]*DENS[2])+ANO3I[1]+ANO3J[1]+ANO3K[1] ANH4IJ ,ug m-3 ,ANH4I[1]+ANH4J[1] ANH4K ,ug m-3 ,ANH4K[1] ASO4IJ ,ug m-3 ,ASO4I[1]+ASO4J[1] ASO4K ,ug m-3 ,ASO4K[1] !! Organic Particle Species APOCI ,ugC m-3 ,ALVPO1I[1]/1.39 + ASVPO1I[1]/1.32 + ASVPO2I[1]/1.26 \ +APOCI[1] APOCJ ,ugC m-3 ,ALVPO1J[1]/1.39 + ASVPO1J[1]/1.32 + ASVPO2J[1]/1.26 \ +ASVPO3J[1]/1.21 + AIVPO1J[1]/1.17 + APOCJ[1] APOCIJ ,ugC m-3 ,APOCI[0] + APOCJ[0] APOMI ,ug m-3 ,ALVPO1I[1] + ASVPO1I[1] + ASVPO2I[1] + APOCI[1] \ +APNCOMI[1] APOMJ ,ug m-3 ,ALVPO1J[1] + ASVPO1J[1] + ASVPO2J[1] + APOCJ[1] \ +ASVPO3J[1] + AIVPO1J[1] + APNCOMJ[1] APOMIJ ,ug m-3 ,APOMI[0] + APOMJ[0] ASOCI ,ugC m-3 ,ALVOO1I[1]/2.27 + ALVOO2I[1]/2.06 \ +ASVOO1I[1]/1.88 + ASVOO2I[1]/1.73 ASOCJ ,ugC m-3 ,AISO1J[1]/2.20 + AISO2J[1]/2.23 + AISO3J[1]/2.80 \ +AMT1J[1]/1.67 + AMT2J[1]/1.67 + AMT3J[1]/1.72 \ +AMT4J[1]/1.53 + AMT5J[1]/1.57 + AMT6J[1]/1.40 \ +AMTNO3J[1]/1.90 + AMTHYDJ[1]/1.54 \ +AGLYJ[1]/2.13 + ASQTJ[1]/1.52 \ +AORGCJ[1]/2.00 + AOLGBJ[1]/2.10 + AOLGAJ[1]/2.50 \ +ALVOO1J[1]/2.27 + ALVOO2J[1]/2.06 + ASVOO1J[1]/1.88 \ +ASVOO2J[1]/1.73 + ASVOO3J[1]/1.60 \ +AAVB1J[1]/2.70 + AAVB2J[1]/2.35 + AAVB3J[1]/2.17 \ +AAVB4J[1]/1.99 + APCSOJ[1]/2.00 ASOCIJ ,ugC m-3 ,ASOCI[0] + ASOCJ[0] ASOMI ,ug m-3 ,ALVOO1I[1] + ALVOO2I[1] + ASVOO1I[1] + ASVOO2I[1] ASOMJ ,ug m-3 ,+AISO1J[1]+ AISO2J[1] + AISO3J[1] \ +AMT1J[1] + AMT2J[1] + AMT3J[1] \ +AMT4J[1] + AMT5J[1] + AMT6J[1] \ +AMTNO3J[1] + AMTHYDJ[1] \ +AGLYJ[1] + ASQTJ[1] \ +AORGCJ[1] + AOLGBJ[1] + AOLGAJ[1] \ +ALVOO1J[1] + ALVOO2J[1] + ASVOO1J[1] \ +ASVOO2J[1] + ASVOO3J[1] + APCSOJ[1] \ +AAVB1J[1] + AAVB2J[1] + AAVB3J[1] \ +AAVB4J[1] ASOMIJ ,ug m-3 ,ASOMI[0] + ASOMJ[0] AOCI ,ugC m-3 ,APOCI[0] + ASOCI[0] AOCJ ,ugC m-3 ,APOCJ[0] + ASOCJ[0] AOCIJ ,ugC m-3 ,APOCIJ[0] + ASOCIJ[0] AOMI ,ug m-3 ,APOMI[0] + ASOMI[0] AOMJ ,ug m-3 ,APOMJ[0] + ASOMJ[0] AOMIJ ,ug m-3 ,APOMIJ[0] + ASOMIJ[0] !!! Anthropogenic-VOC Derived Organic Aerosol AORGAI ,ug m-3 ,ALVOO1I[1] + ALVOO2I[1] + ASVOO1I[1] \ +ASVOO2I[1] AORGAJ ,ug m-3 ,ALVOO1J[1] + ALVOO2J[1] \ +ASVOO1J[1] + ASVOO2J[1] + ASVOO3J[1] \ +AAVB1J[1] + AAVB2J[1] + AAVB3J[1] \ +AAVB4J[1] + AOLGAJ[1] + APCSOJ[1] AORGAIJ ,ug m-3 ,AORGAI[0] + AORGAJ[0] !!! Biogenic-VOC Derived Organic Aerosol AORGBIJ ,ug m-3 ,AMT1J[1] + AMT2J[1] + AMT3J[1] + AMT4J[1] \ +AMT5J[1] + AMT6J[1] + AMTNO3J[1] \ +AMTHYDJ[1] + AISO1J[1] + AISO2J[1] \ +AISO3J[1] + ASQTJ[1] + AOLGBJ[1] !!! Cloud-Processed SOA AORGCJ ,ug m-3 ,AORGCJ[1] !!! Remaining SOA AGLYJ ,ug m-3 ,AGLYJ[1] !!! OM/OC ratios AOMOCRAT_TOT , ,AOMIJ[0]/AOCIJ[0] !! Total PM Aggregates ATOTI ,ug m-3 ,ASO4I[1] + ANH4I[1] + ANO3I[1] + ANAI[1] \ +ACLI[1] + AECI[1] + AOMI[0] + AOTHRI[1] ATOTJ ,ug m-3 ,ASO4J[1] + ANH4J[1] + ANO3J[1] + ANAJ[1] \ +ACLJ[1] + AECJ[1] + AOMJ[0] + AOTHRJ[1] \ +AFEJ[1] + AALJ[1] + ASIJ[1] + ATIJ[1] \ +ACAJ[1] + AMGJ[1] + AKJ[1] + AMNJ[1] ATOTK ,ug m-3 ,ASO4K[1] + ANH4K[1] + ANO3K[1] + ACLK[1] \ +ACORS[1] + ASOIL[1] + ASEACAT[1] ATOTIJ ,ug m-3 ,ATOTI[0] + ATOTJ[0] ATOTIJK ,ug m-3 ,ATOTI[0] + ATOTJ[0] + ATOTK[0] !! Unspeciated PM including non-carbon organic mass AUNSPEC1IJ ,ug m-3 ,ATOTIJ[0] - (ASO4IJ[0] + ANO3IJ[0] \ +ANH4IJ[0] + ACLIJ[0] \ +ANAIJ[0] + AECIJ[0] \ +AOCIJ[0] + ASOILJ[0]) !! Non-Carbon Organic Mass ANCOMIJ ,ug m-3 ,AOMIJ[0] - AOCIJ[0] !! Unspeciated PM excluding non-carbon organic mass AUNSPEC2IJ ,ug m-3 ,AUNSPEC1IJ[0] - ANCOMIJ[0] !! AMS Projection of Output Concentrations PMAMS_CL ,ug m-3 ,ACLI[1] *FAMSAIT[3] +ACLJ[1]*FAMSACC[3]+ACLK[1] *FAMSCOR[3] PMAMS_NH4 ,ug m-3 ,ANH4I[1]*FAMSAIT[3]+ANH4J[1]*FAMSACC[3]+ANH4K[1]*FAMSCOR[3] PMAMS_NO3 ,ug m-3 ,ANO3I[1]*FAMSAIT[3]+ANO3J[1]*FAMSACC[3]+ANO3K[1]*FAMSCOR[3] PMAMS_OA ,ug m-3 ,AOMI[0] *FAMSAIT[3]+AOMJ[0] *FAMSACC[3] PMAMS_SO4 ,ug m-3 ,ASO4I[1]*FAMSAIT[3]+ASO4J[1]*FAMSACC[3]+ASO4K[1]*FAMSCOR[3] !! PM1 Cutoff Output PM1_TOT ,ug m-3 ,ATOTI[0]*FPM1AIT[3]+ATOTJ[0]*FPM1ACC[3]+ATOTK[0]*FPM1COR[3] !! Unused PM1 Species. Included Here for demonstration !PM1_EC ,ug m-3 ,AECI[1] *FPM1AIT[3] +AECJ[1] *FPM1ACC[3] !PM1_OC ,ugC m-3 ,AOCI[0] *FPM1AIT[3] +AOCJ[0] *FPM1ACC[3] !PM1_OM ,ug m-3 ,AOMI[0] *FPM1AIT[3] +AOMJ[0] *FPM1ACC[3] !PM1_SO4 ,ug m-3 ,ASO4I[1]*FPM1AIT[3] +ASO4J[1]*FPM1ACC[3] +ASO4K[1]*FPM1COR[3] !PM1_CL ,ug m-3 ,ACLI[1] *FPM1AIT[3] +ACLJ[1] *FPM1ACC[3] +ACLK[1] *FPM1COR[3] !PM1_NA ,ug m-3 ,ANAI[1] *FPM1AIT[3] +ANAJ[1] *FPM1ACC[3] +ANAK[0] *FPM1COR[3] !PM1_MG ,ug m-3 , AMGJ[1] *FPM1ACC[3] +AMGK[0] *FPM1COR[3] !PM1_K ,ug m-3 , AKJ[1] *FPM1ACC[3] +AKK[0] *FPM1COR[3] !PM1_CA ,ug m-3 , ACAJ[1] *FPM1ACC[3] +ACAK[0] *FPM1COR[3] !PM1_NH4 ,ug m-3 ,ANH4I[1] *FPM1AIT[3]+ANH4J[1]*FPM1ACC[3] +ANH4K[1]*FPM1COR[3] !PM1_NO3 ,ug m-3 ,ANO3I[1] *FPM1AIT[3]+ANO3J[1]*FPM1ACC[3] +ANO3K[1]*FPM1COR[3] !PM1_SOIL ,ug m-3 ,ASOILJ[0]*FPM1ACC[3]+(ASOIL[1]+ACORS[1])*FPM1COR[3] !PM1_UNSPEC1 ,ug m-3 ,PM1_TOT[0] - (PM1_CL[0] + PM1_EC[0]+ PM1_NA[0] + PM1_NH4[0] + \ ! PM1_NO3[0]+ PM1_OC[0]+ PM1_SOIL[0]+ PM1_SO4[0] ) !PM1_UNSPCRS ,ug m-3 ,ATOTK[0] *FPM1COR[3] - (ASO4K[1]*FPM1COR[3] \ ! +ACLK[1]*FPM1COR[3] \ ! +ANAK[0]*FPM1COR[3] \ ! +AMGK[0]*FPM1COR[3] \ ! +AKK[0]*FPM1COR[3] \ ! +ACAK[0]*FPM1COR[3] \ ! +ANH4K[1]*FPM1COR[3] \ ! +ANO3K[1]*FPM1COR[3]) !! PM2.5 species computed using modeled size distribution PM25_HP ,ug m-3 ,(AH3OPI[1]*FPM25AIT[3]+AH3OPJ[1]*FPM25ACC[3]+AH3OPK[1]*FPM25COR[3])*1.0/19.0 PM25_CL ,ug m-3 ,ACLI[1]*FPM25AIT[3]+ACLJ[1]*FPM25ACC[3]+ACLK[1]*FPM25COR[3] PM25_EC ,ug m-3 ,AECI[1]*FPM25AIT[3]+AECJ[1]*FPM25ACC[3] PM25_NA ,ug m-3 ,ANAI[1]*FPM25AIT[3]+ANAJ[1]*FPM25ACC[3]+ANAK[0]*FPM25COR[3] PM25_MG ,ug m-3 , AMGJ[1]*FPM25ACC[3]+AMGK[0]*FPM25COR[3] PM25_K ,ug m-3 , AKJ[1] *FPM25ACC[3]+AKK[0] *FPM25COR[3] PM25_CA ,ug m-3 , ACAJ[1]*FPM25ACC[3]+ACAK[0]*FPM25COR[3] PM25_NH4 ,ug m-3 ,ANH4I[1]*FPM25AIT[3]+ANH4J[1]*FPM25ACC[3]+ANH4K[1]*FPM25COR[3] PM25_NO3 ,ug m-3 ,ANO3I[1]*FPM25AIT[3]+ANO3J[1]*FPM25ACC[3]+ANO3K[1]*FPM25COR[3] PM25_OC ,ugC m-3 ,AOCI[0] *FPM25AIT[3]+AOCJ[0]*FPM25ACC[3] PM25_OM ,ug m-3 ,AOMI[0] *FPM25AIT[3]+AOMJ[0]*FPM25ACC[3] PM25_SOIL ,ug m-3 ,ASOILJ[0]*FPM25ACC[3]+ASOIL[1]*FPM25COR[3] PM25_SO4 ,ug m-3 ,ASO4I[1]*FPM25AIT[3]+ASO4J[1]*FPM25ACC[3]+ASO4K[1]*FPM25COR[3] PM25_TOT ,ug m-3 ,ATOTI[0]*FPM25AIT[3]+ATOTJ[0]*FPM25ACC[3]+ATOTK[0]*FPM25COR[3] PM25_UNSPEC1 ,ug m-3 ,PM25_TOT[0]-(PM25_CL[0]+PM25_EC[0]+PM25_NA[0]+PM25_NH4[0] \ +PM25_NO3[0]+PM25_OC[0]+PM25_SOIL[0]+PM25_SO4[0]) PM25_UNSPCRS ,ug m-3 ,ATOTK[0]*FPM25COR[3] - (ASO4K[1]*FPM25COR[3] \ +ACLK[1]*FPM25COR[3] \ +ANAK[0]*FPM25COR[3] \ +AMGK[0]*FPM25COR[3] \ +AKK[0]*FPM25COR[3] \ +ACAK[0]*FPM25COR[3] \ +ANH4K[1]*FPM25COR[3] \ +ANO3K[1]*FPM25COR[3]) !! Fine particle acidity (pH). pH is undefined if there is no aerosol water. !Do not trust predictions when hourly water is <0.01 ug m-3. FINEPHF will !have large negative value (-9.999E36) when pH is not to be trusted. !AH2OIJ ,ug m-3 ,AH2OI[1]+AH2OJ[1] !HPMOLAL ,mol kg-1 ,AHPLUSIJ[0]/AH2OIJ[0]*1000.0 !ACIDITYTEMP , ,-1*LOG10(HPMOLAL[0]) !FINEPHF , ,AH2OIJ[0]>0.01 ? ACIDITYTEMP[0] : -9.999E36 !! PM10.0 and Coarse-Sized Species PM10 ,ug m-3 ,ATOTI[0]*FPM10AIT[3]+ATOTJ[0]*FPM10ACC[3]+ATOTK[0]*FPM10COR[3] PMC_CL ,ug m-3 ,ACLI[1]*FPM10AIT[3] +ACLJ[1]*FPM10ACC[3] +ACLK[1]*FPM10COR[3] -PM25_CL[0] PMC_NA ,ug m-3 ,ANAI[1]*FPM10AIT[3] +ANAJ[1]*FPM10ACC[3] +ANAK[0]*FPM10COR[3] -PM25_NA[0] PMC_NH4 ,ug m-3 ,ANH4I[1]*FPM10AIT[3]+ANH4J[1]*FPM10ACC[3]+ANH4K[1]*FPM10COR[3]-PM25_NH4[0] PMC_NO3 ,ug m-3 ,ANO3I[1]*FPM10AIT[3]+ANO3J[1]*FPM10ACC[3]+ANO3K[1]*FPM10COR[3]-PM25_NO3[0] PMC_SO4 ,ug m-3 ,ASO4I[1]*FPM10AIT[3]+ASO4J[1]*FPM10ACC[3]+ASO4K[1]*FPM10COR[3]-PM25_SO4[0] PMC_TOT ,ug m-3 ,PM10[0]-PM25_TOT[0] !! FRM PM Equivalent Calculation !! This section calculates the FRM applicable PM species, PMIJ_FRM and !! PM25_FRM. The intermediate variablse K...ANH4IJ_loss are needed to !! calculate the final quantities. K ,ppb2 ,exp(118.87-24084/TEMP2[4]-6.025*log(TEMP2[4])) P1 , ,exp(8763/TEMP2[4]+19.12*log(TEMP2[4])-135.94) P2 , ,exp(9969/TEMP2[4]+16.22*log(TEMP2[4])-122.65) P3 , ,exp(13875/TEMP2[4]+24.46*log(TEMP2[4])-182.61) a , ,1-RH[0]/100 K_prime ,ppb2 ,(P1[0]-P2[0]*a[0]+(P3[0]*a[0]*a[0]))*(a[0]^1.75)*K[0] sqrt_Ki ,ppb ,sqrt(RH[0]<=61 ? K[0] : K_prime[0]) max_NO3_loss ,ug m-3 ,745.7/TEMP2[4]*sqrt_Ki[0] PM25_NO3_loss ,ug m-3 ,max_NO3_loss[0]<=PM25_NO3[0] ? max_NO3_loss[0] : PM25_NO3[0] ANO3IJ_loss ,ug m-3 ,max_NO3_loss[0]<=ANO3IJ[0] ? max_NO3_loss[0] : ANO3IJ[0] PM25_NH4_loss ,ug m-3 ,PM25_NO3_loss[0]*(18/62) ANH4IJ_loss ,ug m-3 ,ANO3IJ_loss[0]*(18/62) PMIJ_FRM ,ug m-3 ,ATOTIJ[0]-(ANO3IJ_loss[0]+ANH4IJ_loss[0]) \ +0.24*(ASO4IJ[0]+ANH4IJ[0]-ANH4IJ_loss[0])+0.5 PM25_FRM ,ug m-3 ,PM25_TOT[0]-(PM25_NO3_loss[0]+PM25_NH4_loss[0]) \ +0.24*(PM25_SO4[0]+PM25_NH4[0]-PM25_NH4_loss[0])+0.5 ================================================ FILE: CCTM/src/MECHS/cb6r5_ae7_aq/SpecDef_Dep_cb6r5_ae7_aq.txt ================================================ !#start YYYYJJJ !#end YYYYJJJ #layer 1 / File [1]: DRYDEP / File [2]: WETDEP / File [3]: METCRO2D / /new species ,units ,expression RT ,cm ,RC[3]>=0 ? RN[3]+RC[3] : RN[3] !---------------------------------------------------! !--------------- Gas Deposition --------------------! !---------------------------------------------------! DDEP_NO2 ,kg ha-1 ,NO2[1] WDEP_NO2 ,kg ha-1 ,NO2[2] DDEP_NO ,kg ha-1 ,NO[1] WDEP_NO ,kg ha-1 ,NO[2] DDEP_FORM ,kg ha-1 ,FORM[1] WDEP_FORM ,kg ha-1 ,FORM[2] DDEP_H2O2 ,kg ha-1 ,H2O2[1] WDEP_H2O2 ,kg ha-1 ,H2O2[2] DDEP_N2O5 ,kg ha-1 ,N2O5[1] WDEP_N2O5 ,kg ha-1 ,N2O5[2] DDEP_HONO ,kg ha-1 ,HONO[1] WDEP_HONO ,kg ha-1 ,HONO[2] DDEP_HNO3 ,kg ha-1 ,HNO3[1] WDEP_HNO3 ,kg ha-1 ,HNO3[2] DDEP_NO3 ,kg ha-1 ,NO3[1] WDEP_NO3 ,kg ha-1 ,NO3[2] DDEP_CLNO2 ,kg ha-1 ,CLNO2[1] WDEP_CLNO2 ,kg ha-1 ,CLNO2[2] DDEP_CLNO3 ,kg ha-1 ,CLNO3[1] WDEP_CLNO3 ,kg ha-1 ,CLNO3[2] DDEP_NTR ,kg ha-1 ,NTR1[1]+NTR2[1]+INTR[1] WDEP_NTR ,kg ha-1 ,NTR1[2]+NTR2[2]+INTR[2] DDEP_PANT ,kg ha-1 ,PAN[1] + PANX[1] + OPAN[1] WDEP_PANT ,kg ha-1 ,PAN[2] + PANX[2] + OPAN[2] DDEP_NH3 ,kg ha-1 ,NH3[1] WDEP_NH3 ,kg ha-1 ,NH3[2] DDEP_SO2 ,kg ha-1 ,SO2[1] DDEP_O3 ,kg ha-1 ,O3[1] WDEP_O3 ,kg ha-1 ,O3[2] DDEP_PNA ,kg ha-1 ,PNA[1] WDEP_PNA ,kg ha-1 ,PNA[2] !---------------------------------------------------! !------------- Aerosol Deposition ------------------! !---------------------------------------------------! DDEP_ANO3IJ ,kg ha-1 ,ANO3I[1] + ANO3J[1] DDEP_ANO3K ,kg ha-1 ,ANO3K[1] WDEP_ANO3IJK ,kg ha-1 ,ANO3I[2] + ANO3J[2] + ANO3K[2] DDEP_TNO3 ,kg ha-1 ,ANO3I[1] + ANO3J[1] + ANO3K[1] + 0.984*HNO3[1] + NO3[1] WDEP_TNO3 ,kg ha-1 ,ANO3I[2] + ANO3J[2] + ANO3K[2] + 0.984*HNO3[2] + NO3[2] DDEP_ANH4IJ ,kg ha-1 ,ANH4I[1] + ANH4J[1] DDEP_ANH4K ,kg ha-1 ,ANH4K[1] WDEP_ANH4IJK ,kg ha-1 ,ANH4I[2] + ANH4J[2] + ANH4K[2] DDEP_AMTNO3J ,kg ha-1 ,AMTNO3J[1] WDEP_AMTNO3J ,kg ha-1 ,AMTNO3J[2] DDEP_ASO4IJ ,kg ha-1 ,ASO4I[1] + ASO4J[1] DDEP_ASO4K ,kg ha-1 ,ASO4K[1] WDEP_ASO4IJK ,kg ha-1 ,ASO4I[2] + ASO4J[2] + ASO4K[2] DDEP_AECIJ ,kg ha-1 ,AECI[1] +AECJ[1] DDEP_AOCIJ ,kgC ha-1 ,ALVPO1I[1]/1.39 + ASVPO1I[1]/1.32 + ASVPO2I[1]/1.26 \ +ALVPO1J[1]/1.39 + ASVPO1J[1]/1.32 + ASVPO2J[1]/1.26 \ +ASVPO3J[1]/1.21 + AIVPO1J[1]/1.17 \ +ALVOO1I[1]/2.27 + ALVOO2I[1]/2.06 \ +ASVOO1I[1]/1.88 + ASVOO2I[1]/1.73 \ +AISO1J[1]/2.20 + AISO2J[1]/2.23 + AISO3J[1]/2.80 \ +AMT1J[1]/1.67 + AMT2J[1]/1.67 + AMT3J[1]/1.72 \ +AMT4J[1]/1.53 + AMT5J[1]/1.57 + AMT6J[1]/1.40 \ +AMTNO3J[1]/1.90 + AMTHYDJ[1]/1.54 \ +AGLYJ[1]/2.13 + ASQTJ[1]/1.52 \ +AORGCJ[1]/2.00 + AOLGBJ[1]/2.10 + AOLGAJ[1]/2.50 \ +ALVOO1J[1]/2.27+ ALVOO2J[1]/2.06+ ASVOO1J[1]/1.88 \ +ASVOO2J[1]/1.73+ ASVOO3J[1]/1.60 \ +APCSOJ[1] /2.00+ AAVB1J[1]/2.70 + AAVB2J[1]/2.35 \ +AAVB3J[1]/2.17 + AAVB4J[1]/1.99 !DDEP_SSSO4J ,kg ha-1 ,0.2514*ANAJ[1] !DDEP_SSSO4K ,kg ha-1 ,0.2514*DDEP_ANAK[0] !WDEP_SSSO4JK ,kg ha-1 ,0.2514*ANAJ[2] + 0.2514*WDEP_ANAK[0] !-----------------------------------------------------! !-------- Total (Gas + Aerosol) Deposition -----------! !-----------------------------------------------------! DDEP_NHX ,kg ha-1 ,ANH4I[1] + ANH4J[1] + ANH4K[1] + 1.059*NH3[1] WDEP_NHX ,kg ha-1 ,ANH4I[2] + ANH4J[2] + ANH4K[2] + 1.059*NH3[2] WDEP_TSO4 ,kg ha-1 ,ASO4I[2] + ASO4J[2] + ASO4K[2] + 1.5*SO2[2] !! Sodium DDEP_ANAJ ,kg ha-1 ,ANAJ[1] DDEP_ANAK ,kg ha-1 ,0.8373*ASEACAT[1]+0.0626*ASOIL[1]+0.0023*ACORS[1] DDEP_ANAJK ,kg ha-1 ,DDEP_ANAJ[0] + DDEP_ANAK[0] WDEP_ANAK ,kg ha-1 ,0.8373*ASEACAT[2]+0.0626*ASOIL[2]+0.0023*ACORS[2] WDEP_ANAJK ,kg ha-1 ,ANAJ[2] + WDEP_ANAK[0] TDEP_ANAJK ,kg ha-1 ,DDEP_ANAJK[0] + WDEP_ANAJK[0] !! Chloride DDEP_ACLJ ,kg ha-1 ,ACLJ[1] DDEP_ACLK ,kg ha-1 ,ACLK[1] DDEP_ACLJK ,kg ha-1 ,ACLJ[1] + ACLK[1] WDEP_TCL ,kg ha-1 ,0.972*HCL[2]+CL2[2] + ACLJ[2] + ACLK[2] + 0.6758*HOCL[1] TDEP_CL ,kg ha-1 ,DDEP_ACLJK[0] + WDEP_TCL[0] !! Calcium DDEP_CAJ ,kg ha-1 ,ACAJ[1] WDEP_CAJ ,kg ha-1 ,ACAJ[2] DDEP_CAK ,kg ha-1 ,0.0320*ASEACAT[1]+0.0838*ASOIL[1]+0.0562*ACORS[1] WDEP_CAK ,kg ha-1 ,0.0320*ASEACAT[2]+0.0838*ASOIL[2]+0.0562*ACORS[2] DDEP_CAJK ,kg ha-1 ,ACAJ[1]+DDEP_CAK[0] WDEP_CAJK ,kg ha-1 ,ACAJ[2]+WDEP_CAK[0] !! Iron DDEP_FEJ ,kg ha-1 ,AFEJ[1] WDEP_FEJ ,kg ha-1 ,AFEJ[2] !! Aluminum DDEP_ALJ ,kg ha-1 ,AALJ[1] WDEP_ALJ ,kg ha-1 ,AALJ[2] !! Silicon DDEP_SIJ ,kg ha-1 ,ASIJ[1] WDEP_SIJ ,kg ha-1 ,ASIJ[2] !! Titanium DDEP_TIJ ,kg ha-1 ,ATIJ[1] WDEP_TIJ ,kg ha-1 ,ATIJ[2] !! Magnesium DDEP_MGJ ,kg ha-1 ,AMGJ[1] WDEP_MGJ ,kg ha-1 ,AMGJ[2] DDEP_MGK ,kg ha-1 ,0.0997*ASEACAT[1]+0.0170*ASOIL[1]+0.0032*ACORS[1] WDEP_MGK ,kg ha-1 ,0.0997*ASEACAT[2]+0.0170*ASOIL[2]+0.0032*ACORS[2] DDEP_MGJK ,kg ha-1 ,AMGJ[1]+DDEP_MGK[0] WDEP_MGJK ,kg ha-1 ,AMGJ[2]+WDEP_MGK[0] !! Potassium DDEP_KJ ,kg ha-1 ,AKJ[1] WDEP_KJ ,kg ha-1 ,AKJ[2] DDEP_KK ,kg ha-1 ,0.0310*ASEACAT[1]+0.0242*ASOIL[1]+0.0176*ACORS[1] WDEP_KK ,kg ha-1 ,0.0310*ASEACAT[2]+0.0242*ASOIL[2]+0.0176*ACORS[2] DDEP_KJK ,kg ha-1 ,AKJ[1]+DDEP_KK[0] WDEP_KJK ,kg ha-1 ,AKJ[2]+WDEP_KK[0] !! Manganese DDEP_MNJ ,kg ha-1 ,AMNJ[1] WDEP_MNJ ,kg ha-1 ,AMNJ[2] !---------------------------------------------------! !------------- Nitrogen Deposition -----------------! !---------------------------------------------------! DD_OXN_NOX ,kgN ha-1 ,0.30435*NO2[1] + 0.46667*NO[1] WD_OXN_NOX ,kgN ha-1 ,0.30435*NO2[2] + 0.46667*NO[2] DD_OXN_TNO3 ,kgN ha-1 ,0.22581*DDEP_TNO3[0] WD_OXN_TNO3 ,kgN ha-1 ,0.22581*WDEP_TNO3[0] DD_OXN_PANT ,kgN ha-1 ,0.11570*PAN[1] + 0.11570*PANX[1] + 0.11570*OPAN[1] WD_OXN_PANT ,kgN ha-1 ,0.11570*PAN[2] + 0.11570*PANX[2] + 0.11570*OPAN[2] DD_OXN_ORGN ,kgN ha-1 ,0.10770*(NTR1[1]+NTR2[1]+INTR[1])+0.06061*DDEP_AMTNO3J[0]+DD_OXN_PANT[0] WD_OXN_ORGN ,kgN ha-1 ,0.10770*(NTR1[2]+NTR2[2]+INTR[2])+0.06061*WDEP_AMTNO3J[0]+WD_OXN_PANT[0] DD_OXN_OTHR ,kgN ha-1 ,0.25926*N2O5[1] + 0.29787*HONO[1]+0.17720*PNA[1]+0.1717*CLNO2[1]+0.1436*CLNO3[1] WD_OXN_OTHR ,kgN ha-1 ,0.25926*N2O5[2] + 0.29787*HONO[2]+0.17720*PNA[2]+0.1717*CLNO2[2]+0.1436*CLNO3[2] DD_OXN_TOT ,kgN ha-1 ,DD_OXN_NOX[0] + DD_OXN_TNO3[0] + DD_OXN_ORGN[0] + DD_OXN_OTHR[0] WD_OXN_TOT ,kgN ha-1 ,WD_OXN_NOX[0] + WD_OXN_TNO3[0] + WD_OXN_ORGN[0] + WD_OXN_OTHR[0] TD_OXN_TOT ,kgN ha-1 ,DD_OXN_TOT[0] + WD_OXN_TOT[0] DD_REDN_TOT ,kgN ha-1 ,0.7777*DDEP_NHX[0] WD_REDN_TOT ,kgN ha-1 ,0.7777*WDEP_NHX[0] TD_REDN_TOT ,kgN ha-1 ,DD_REDN_TOT[0] + WD_REDN_TOT[0] DD_N_TOT ,kgN ha-1 ,DD_OXN_TOT[0] + DD_REDN_TOT[0] WD_N_TOT ,kgN ha-1 ,WD_OXN_TOT[0] + WD_REDN_TOT[0] TD_N_TOT ,kgN ha-1 ,DD_N_TOT[0] + WD_N_TOT[0] !! Nitrogen Deposition in milliequivalents Nitrogen !DD_OXN_TOTMEQ ,meqN m-2 ,7.14*DD_OXN_TOT[0] !WD_OXN_TOTMEQ ,meqN m-2 ,7.14*WD_OXN_TOT[0] !TD_OXN_TOTMEQ ,meqN m-2 ,DD_OXN_TOTMEQ[0] + WD_OXN_TOTMEQ[0] !DD_REDN_TOTMEQ ,meqN m-2 ,7.14*DD_REDN_TOT[0] !WD_REDN_TOTMEQ ,meqN m-2 ,7.14*WD_REDN_TOT[0] !TD_REDN_TOTMEQ ,meqN m-2 ,DD_REDN_TOTMEQ[0] + WD_REDN_TOTMEQ[0] !DD_N_TOTMEQ ,meqN m-2 ,DD_OXN_TOTMEQ[0] + DD_REDN_TOTMEQ[0] !WD_N_TOTMEQ ,meqN m-2 ,WD_OXN_TOTMEQ[0] + WD_REDN_TOTMEQ[0] !TD_N_TOTMEQ ,meqN m-2 ,DD_N_TOTMEQ[0] + WD_N_TOTMEQ[0] !-------------------------------------------------! !------------- Sulfur Deposition -----------------! !-------------------------------------------------! DD_S_TOT ,kgS ha-1 ,0.5*SO2[1] + 0.33333*ASO4I[1] + 0.33333*ASO4J[1] + 0.33333*ASO4K[1] WD_S_TOT ,kgS ha-1 ,0.33333*WDEP_TSO4[0] TD_S_TOT ,kgS ha-1 ,DD_S_TOT[0] + WD_S_TOT[0] !DD_S_SeaS ,kgS ha-1 ,0.33333*DDEP_SSSO4J[0] + 0.33333*DDEP_SSSO4K[0] !WD_S_SeaS ,kgS ha-1 ,0.33333*WDEP_SSSO4JK[0] !TD_S_SeaS ,kgS ha-1 ,DD_S_SeaS[0] + WD_S_SeaS[0] !! Sulfur Deposition in milliequivalents Sulfur !DD_S_TOTMEQ ,meqS m-2 ,6.24*DD_S_TOT[0] !WD_S_TOTMEQ ,meqS m-2 ,6.24*WD_S_TOT[0] !TD_S_TOTMEQ ,meqS m-2 ,DD_S_TOTMEQ[0] + WD_S_TOTMEQ[0] !DD_S_SeaSMEQ ,meqS m-2 ,6.24*DD_S_SeaS[0] !WD_S_SeaSMEQ ,meqS m-2 ,6.24*WD_S_SeaS[0] !TD_S_SeaSMEQ ,meqS m-2 ,DD_S_SeaSMEQ[0] + WD_S_SeaSMEQ[0] ================================================ FILE: CCTM/src/MECHS/cb6r5_ae7_aq/SpecDef_cb6r5_ae7_aq.txt ================================================ !#start YYYYJJJ 010000 !#end YYYYJJJ 000000 #layer 1 / ! This Species Definition File is for Use with the COMBINE tool built for ! post-processing CMAQ output. It is compatible with CMAQv5.2. ! Date: May 12 2017 ! Output variables that begin with 'PM' represent those in which a size cut was ! applied based on modeled aerosol mode parameters. For example, PM25_NA is all ! sodium that falls below 2.5 um diameter. These 'PM' variables are used for ! comparisons at IMPROVE and CSN sites. ! Output variables that begin with 'PMAMS' represent the mass that would have ! been detected by an Aerosol Mass Spectrometer. ! Output variables beginning with 'A' (aside from AIR_DENS) represent a ! combination of aerosol species in which no size cut was applied. For example, ! ASO4IJ is the sum of i-mode and j-mode sulfate. These 'A' variables are used ! for comparisons at CASTNet sites. ! Output variables beginning with 'PMC' refer to the coarse fraction of total PM, ! computed by summing all modes and subtracting the PM2.5 fraction. These 'PMC' ! variables are used for comparisons at SEARCH sites. ! This Species Definition File is just for use with the uncoupled, offline CMAQ, ! model. If you are processing WRF-CMAQ results, a different Species Definition ! file is required. / File [1]: CMAQ conc/aconc file / File [2]: METCRO3D file / File [3]: ELMO/AELMO file / File [4]: METCRO2D file / /new species ,units ,expression !-------------------------------------------! !------------- Meteorology -----------------! !-------------------------------------------! AIR_DENS ,kg m-3 ,DENS[2] RH ,% ,100.00*RH[3] SFC_TMP ,C ,(TEMP2[4]-273.15) PBLH ,m ,PBL[4] SOL_RAD ,W m-2 ,RGRND[4] precip ,cm ,RC[4]>=0 ? RN[4]+RC[4] : RN[4] WSPD10 ,m s-1 ,WSPD10[4] WDIR10 ,deg ,WDIR10[4] !-------------------------------------------! !--------------- Gases ---------------------! !-------------------------------------------! ALD2 ,ppbV ,1000.0*ALD2[1] BENZENE ,ppbV ,1000.0*BENZENE[1] CO ,ppbV ,1000.0*CO[1] ETH ,ppbV ,1000.0*ETH[1] ETHA ,ppbV ,1000.0*ETHA[1] FORM ,ppbV ,1000.0*FORM[1] H2O2 ,ppbV ,1000.0*H2O2[1] HNO3 ,ppbV ,1000.0*HNO3[1] HNO3_UGM3 ,ug m-3 ,1000.0*(HNO3[1]*2.1756*DENS[2]) HONO ,ppbV ,1000.0*HONO[1] HOX ,ppbV ,1000.0*(OH[1]+HO2[1]) OH ,ppbV ,1000.0*(OH[1]) ISOP ,ppbV ,1000.0*ISOP[1] N2O5 ,ppbV ,1000.0*N2O5[1] NH3 ,ppbV ,1000.0*NH3[1] NH3_UGM3 ,ug m-3 ,1000.0*(NH3[1]*0.5880*DENS[2]) NHX ,ug m-3 ,1000.0*(NH3[1]*0.5880*DENS[2])+ANH4I[1]+ANH4J[1]+ANH4K[1] NO ,ppbV ,1000.0*NO[1] NO2 ,ppbV ,1000.0*NO2[1] NOX ,ppbV ,1000.0*(NO[1] + NO2[1]) ANO3_PPB ,ppbV ,(ANO3I[1]+ANO3J[1]+ANO3K[1])/(DENS[2]*(62.0/28.97)) NTR ,ppbV ,1000.0*(NTR1[1]+NTR2[1]+INTR[1]) PANS ,ppbV ,1000.0*(PAN[1]+PANX[1]+OPAN[1]) NOY ,ppbV ,1000.0* (NO[1]+NO2[1]+NO3[1]+2*N2O5[1]+HONO[1]+HNO3[1]+PNA[1] \ +CRON[1]+CLNO2[1]+CLNO3[1]) \ +PANS[0]+NTR[0]+ANO3_PPB[0] O3 ,ppbV ,1000.0*O3[1] SO2 ,ppbV ,1000.0*SO2[1] SO2_UGM3 ,ug m-3 ,1000.0*(SO2[1]*2.2118*DENS[2]) TERP ,ppbV ,1000.0*TERP[1] TOL ,ppbV ,1000.0*TOL[1] XYL ,ppbV ,1000.0*XYLMN[1] !Additional Toxic gases !ACROLEIN ,ug m-3 ,1000.0*(ACROLEIN[1]*1.9365*DENS[2]) !ACRO_PRIMARY ,ug m-3 ,1000.0*(ACRO_PRIMARY*1.9365*DENS[2]) !ALD2_PRIMARY ,ug m-3 ,1000.0*(ALD2_PRIMARY[1]*1.5188*DENS[2]) !FORM_PRIMARY ,ug m-3 ,1000.0*(FORM_PRIMARY[1]*1.0356*DENS[2]) !BUTADIENE13 ,ug m-3 ,1000.0*(BUTADIENE13[1]*1.8674*DENS[2]) !HCL ,ppbV ,1000.0*HCL[1] !TOLUENE ,ppbV ,1000.0*TOLU[1] !Mercuric gas species !HG_0 ,ng/m3 ,1000.0*(HG[1]*8.3330*DENS[2]*1000.0) !HG_II ,ng/m3 ,1000.0*(HGIIGAS[1]*8.3330*DENS[2]*1000.0) !! Unused Gases. Presented Here for illustration. Users can uncomment !! them if they choose. !ALDX ,ppbV ,1000.0*ALDX[1] !IOLE ,ppbV ,1000.0*IOLE[1] !OLE ,ppbV ,1000.0*OLE[1] !PAR ,ppbV ,1000.0*PAR[1] !PAN ,ppbV ,1000.0*PAN[1] !SULF ,ppbV ,1000.0*SULF[1] ! emitted VOCs !VOC ,ppbC ,1000.0* (PAR[1] +2.0*ETHA[1] +3.0*PRPA[1] +MEOH[1]\ ! +2.0*ETH[1] +2.0*ETOH[1] +2.0*OLE[1] +3.0*ACET[1] \ ! +7.0*TOL[1] +8.0*XYLMN[1] +6.0*BENZENE[1] \ ! +FORM[1] +3.0*GLY[1] +4.0*KET[1] +2.0*ETHY[1] \ ! +2.0*ALD2[1] + 4.0*IOLE[1] + 2.0*ALDX[1] \ ! +5.0*ISOP[1] + 10.0*TERP[1]+ 10.0*NAPH[1] +10.*APIN[1]) !! DMS and MSA. Users can uncomment them if they choose. DMS ,ppbV ,1000.0*DMS[1] MSA ,ppbV ,1000.0*MSA[1] !-------------------------------------------! !--------------- Particles -----------------! !-------------------------------------------! !! Crustal Elements AFEJ ,ug m-3 ,PMF_FE[3] AALJ ,ug m-3 ,PMF_AL[3] ASIJ ,ug m-3 ,PMF_SI[3] ATIJ ,ug m-3 ,PMF_TI[3] ACAJ ,ug m-3 ,PMF_CA[3] AMGJ ,ug m-3 ,PMF_MG[3] AKJ ,ug m-3 ,PMF_K[3] AMNJ ,ug m-3 ,PMF_MN[3] ASOILJ ,ug m-3 ,PMF_SOILIMPV[3] !! Non-Crustal Inorganic Particle Species AHPLUSIJ ,umol m-3 ,PMF_HP[3] ANAK ,ug m-3 ,PMC_NA[3] AMGK ,ug m-3 ,PMC_MG[3] AKK ,ug m-3 ,PMC_K[3] ACAK ,ug m-3 ,PMC_CA[3] ACLIJ ,ug m-3 ,PMF_CL[3] AECIJ ,ug m-3 ,PMF_EC[3] ANAIJ ,ug m-3 ,PMF_NA[3] ANO3IJ ,ug m-3 ,PMF_NO3[3] ANO3K ,ug m-3 ,PMC_NO3[3] TNO3 ,ug m-3 ,TNO3[3] ANH4IJ ,ug m-3 ,PMF_NH4[3] ANH4K ,ug m-3 ,PMC_NH4[3] ASO4IJ ,ug m-3 ,PMF_SO4[3] ASO4K ,ug m-3 ,PMC_SO4[3] !! Organic Particle Species APOCIJ ,ugC m-3 ,PMF_POC[3] APOMIJ ,ug m-3 ,PMF_POA[3] ASOCIJ ,ugC m-3 ,PMF_SOC[3] ASOMIJ ,ug m-3 ,PMF_SOA[3] AOCIJ ,ugC m-3 ,PMF_OC[3] AOMIJ ,ug m-3 ,PMF_OA[3] !!! Anthropogenic-VOC Derived Organic Aerosol AORGAIJ ,ug m-3 ,PMF_ASOA[3] !!! Biogenic-VOC Derived Organic Aerosol AORGBIJ ,ug m-3 ,PMF_BSOA[3] !!! Cloud-Processed SOA AORGCJ ,ug m-3 ,AORGCJ[1] !!! OM/OC ratios AOMOCRAT_TOT , ,PMF_OMOC[3] !! Total PM Aggregates ATOTI ,ug m-3 ,PMAIT_MASS[3] ATOTJ ,ug m-3 ,PMACC_MASS[3] ATOTK ,ug m-3 ,PMC_MASS[3] ATOTIJ ,ug m-3 ,PMF_MASS[3] ATOTIJK ,ug m-3 ,PM_MASS[3] !! Unspeciated PM including non-carbon organic mass AUNSPEC1IJ ,ug m-3 ,PMF_UN_IMPV1[3] !! Non-Carbon Organic Mass ANCOMIJ ,ug m-3 ,PMF_NCOM[3] !! Unspeciated PM excluding non-carbon organic mass AUNSPEC2IJ ,ug m-3 ,PMF_UN_IMPV2[3] !! AMS Projection of Output Concentrations PMAMS_CL ,ug m-3 ,PMAMS_CL[3] PMAMS_NH4 ,ug m-3 ,PMAMS_NH4[3] PMAMS_NO3 ,ug m-3 ,PMAMS_NO3[3] PMAMS_OA ,ug m-3 ,PMAMS_OA[3] PMAMS_SO4 ,ug m-3 ,PMAMS_SO4[3] !! PM1 Cutoff Output PM1_TOT ,ug m-3 ,PM1[3] !! Unused PM1 Species. Included Here for demonstration !PM1_EC ,ug m-3 ,PM1_EC[3] !PM1_OC ,ugC m-3 ,PM1_OC[3] !PM1_OM ,ug m-3 ,PM1_OA[3] !PM1_SO4 ,ug m-3 ,PM1_SO4[3] !PM1_CL ,ug m-3 ,PM1_CL[3] !PM1_NA ,ug m-3 ,PM1_NA[3] !PM1_MG ,ug m-3 ,PM1_MG[3] !PM1_K ,ug m-3 ,PM1_K[3] !PM1_CA ,ug m-3 ,PM1_CA[3] !PM1_NH4 ,ug m-3 ,PM1_NH4[3] !PM1_NO3 ,ug m-3 ,PM1_NO3[3] !PM1_SOIL ,ug m-3 ,PM1_SOIL[3] !PM1_UNSPEC1 ,ug m-3 ,PM1_UNSP1[3] !PM1_UNSPCRS ,ug m-3 ,PM1_UNSPCRS[3] !! PM2.5 species computed using modeled size distribution PM25_HP ,ug m-3 ,PM25_HP[3] PM25_CL ,ug m-3 ,PM25_CL[3] PM25_EC ,ug m-3 ,PM25_EC[3] PM25_NA ,ug m-3 ,PM25_NA[3] PM25_MG ,ug m-3 ,PM25_MG[3] PM25_K ,ug m-3 ,PM25_K[3] PM25_CA ,ug m-3 ,PM25_CA[3] PM25_NH4 ,ug m-3 ,PM25_NH4[3] PM25_NO3 ,ug m-3 ,PM25_NO3[3] PM25_OC ,ugC m-3 ,PM25_OC[3] PM25_OM ,ug m-3 ,PM25_OA[3] PM25_SOIL ,ug m-3 ,PM25_SOIL[3] PM25_SO4 ,ug m-3 ,PM25_SO4[3] PM25_TOT ,ug m-3 ,PM25[3] PM25_UNSPEC1 ,ug m-3 ,PM25_UNSP1[3] PM25_UNSPCRS ,ug m-3 ,PM25_UNSPCRS[3] !! Fine particle acidity (pH). pH is undefined if there is no aerosol water. !Do not trust predictions when hourly water is <0.01 ug m-3. FINEPHF will !have large negative value (-9.999E36) when pH is not to be trusted. !AH2OIJ ,ug m-3 ,AH2OI[1]+AH2OJ[1] !HPMOLAL ,mol kg-1 ,AHPLUSIJ[0]/AH2OIJ[0]*1000.0 !ACIDITYTEMP , ,-1*LOG10(HPMOLAL[0]) !FINEPHF , ,AH2OIJ[0]>0.01 ? ACIDITYTEMP[0] : -9.999E36 !! PM10.0 and Coarse-Sized Species PM10 ,ug m-3 ,PM10[3] PMC_CL ,ug m-3 ,PM25TO10_CL[3] PMC_NA ,ug m-3 ,PM25TO10_NA[3] PMC_NH4 ,ug m-3 ,PM25TO10_NH4[3] PMC_NO3 ,ug m-3 ,PM25TO10_NO3[3] PMC_SO4 ,ug m-3 ,PM25TO10_SO4[3] PMC_TOT ,ug m-3 ,PM25TO10[3] !! FRM PM Equivalent Calculation PMIJ_FRM ,ug m-3 ,PMF_FRM[3] PM25_FRM ,ug m-3 ,PM25_FRM[3] ================================================ FILE: CCTM/src/MECHS/cb6r5_ae7_aq/mech_cb6r5_ae7_aq.def ================================================ !CB6r3 for CMAQ ! created for CMAQv5.2 and released in June 2017 ! documented in https://www.epa.gov/cmaq ! Changes made for CMAQv5.3: ! For SE US study with Ng Group, Gatech (HOT Pye 2017): ! Remove TRPRXN formation from NO3 reactions ! Split APIN from other monoterpenes ! Add MTNO3 formation following Pye et al. 2015 (from SAPRC07tic implementation) ! Update TRPRXN SOA yields in SOA_DEFN.F ! Documentation in Xu et al. 2018 ACPD: https://doi.org/10.5194/acp-2017-1109 ! 06-19-18 G.Sarwar ! updated ! 080118 DJL ! 1. Modified chlorine reactions ( to ) to match CB6r2, mimic ! similar reactions in CB6r3, or updated to IUPAC ! 2. Added new species, CLNO3 and reactions of CLNO3 ! 3. New heterogeneous reactions ( and ) from ! hemispheric halogen chemical mechanism ! 4. implemented temperature and pressure-dependent CS/QY for CLNO2 ! 040319 HOT Pye: IEPOX uptake now consumes inorganic sulfate ! 2-9-21 G Sarwar, added a reaction for CB6r5 and updated many rate constants and some yeilds following Ramboll Report to TCEQ (07/30/2020) ! 4-29-21 G Sarwar, added heterogeneous hydrolysis of ClNO3 on fine-mode aerosol () ! 3-3-22 G Sarwar, DMS chemistry (DMS1-DMS4) !--------------------------------- CB6R5_AE7_AQ REACTIONS[CM] = NO2 = NO + O # 1.0/; O + O2 + M = O3 + M # 6.00E-34^-2.6; O3 + NO = NO2 # 2.07E-12@1400; O + NO = NO2 # 1.00E-31^-1.6 & 5.00E-11^0.30 &0.85 &0.84; O + NO2 = NO # 5.10E-12@-198; O + NO2 = NO3 # 1.30E-31^-1.5 & 2.30E-11^0.24 &0.6 &1.03; O + O3 = # 8.00E-12@2060; O3 = O # 1.0/; O3 = O1D # 1.0/; O1D + M = O + M # 2.23E-11@-115; O1D + H2O = 2.0*OH # 2.14E-10; O3 + OH = HO2 # 1.70E-12@940; O3 + HO2 = OH # 2.03E-16^4.57@-693; OH + O = HO2 # 2.40E-11@-110; HO2 + O = OH # 3.00E-11@-200; OH + OH = O # 6.20E-14^2.6@-945; OH + OH = H2O2 # 9.00E-31^-3.2 & 3.90E-11^-0.47 &0.42 &1.23; OH + HO2 = # 4.80E-11@-250; HO2 + HO2 = H2O2 %3 # 2.20E-13@-600 & 1.90E-33@-980; HO2 + HO2 + H2O = H2O2 %3 # 3.08E-34@-2800 & 2.66E-54@-3180; H2O2 = 2.0*OH # 1.0/; H2O2 + OH = HO2 # 1.80E-12; H2O2 + O = OH + HO2 # 1.40E-12@2000; NO + NO + O2 = 2.0*NO2 # 4.25E-39@-664; HO2 + NO = OH + NO2 # 3.45E-12@-270; NO2 + O3 = NO3 # 1.40E-13@2470; NO3 = NO2 + O # 1.0/; NO3 = NO # 1.0/; NO3 + NO = 2.0*NO2 # 1.80E-11@-110; NO3 + NO2 = NO + NO2 # 4.50E-14@1260; NO3 + O = NO2 # 1.70E-11; NO3 + OH = HO2 + NO2 # 2.00E-11; NO3 + HO2 = OH + NO2 # 4.00E-12; NO3 + O3 = NO2 # 1.00E-17; NO3 + NO3 = 2.0*NO2 # 8.50E-13@2450; NO3 + NO2 = N2O5 # 3.60E-30^-4.1 & 1.90E-12^0.2 &0.35 &1.33; N2O5 = NO3 + NO2 # 1.30E-3^-3.5@11000 & 9.70E+14^0.1@11080 &0.35 &1.33; N2O5 = NO2 + NO3 # 1.0/; N2O5 + H2O = 2.0*HNO3 # 1.00E-22; NO + OH = HONO # 7.40E-31^-2.4 & 3.30E-11^-0.3 &0.81 &0.87; NO + NO2 + H2O = 2.0*HONO # 5.00E-40; HONO + HONO = NO + NO2 # 1.00E-20; HONO = NO + OH # 1.0/; HONO + OH = NO2 # 2.50E-12@-260; NO2 + OH = HNO3 # 1.80E-30^-3 & 2.80E-11 &0.6 &1; HNO3 + OH = NO3 %2 # 2.40E-14@-460 & 2.70E-17@-2199 & 6.50E-34@-1335; HNO3 = OH + NO2 # 1.0/; HO2 + NO2 = PNA # 1.40E-31^-3.1 & 4.00E-12 &0.4 &1.26; PNA = HO2 + NO2 # 4.10E-5@10650 & 6.00E+15@11170 &0.4 &1.26; PNA = 0.59*HO2 + 0.59*NO2 + 0.41*OH + 0.41*NO3 # 1.0/; PNA + OH = NO2 # 3.20E-13@-690; ! Added SULRXN to SO2+OH SO2 + OH = SULF + HO2 + SULRXN # 2.80E-31^-2.6 & 2.00E-12 &0.53 &1.1; C2O3 + NO = NO2 + MEO2 + RO2 # 7.50E-12@-290; C2O3 + NO2 = PAN # 3.61E-28^-6.87 & 1.24E-11^-1.105 &0.3 &1.41; PAN = NO2 + C2O3 # 1.10E-5@10100 & 1.90E+17@14100 &0.3 &1.41; PAN = 0.6*NO2 + 0.6*C2O3 + 0.4*NO3 + 0.4*MEO2 +0.4*RO2 #1.0/; C2O3 + HO2 = 0.37*PACD + 0.13*AACD + 0.13*O3 + 0.5*MEO2 + 0.5*RO2 + 0.50*OH # 3.14E-12@-580; C2O3 + RO2 = MEO2 # 4.40E-13@-1070; C2O3 + C2O3 = 2.0*MEO2 + 2.0*RO2 # 2.90E-12@-500; C2O3 + CXO3 = MEO2 + ALD2 + XO2H + 2.0*RO2 # 1.00E+0*K; CXO3 + NO = NO2 + ALD2 + XO2H + RO2 # 6.70E-12@-340; CXO3 + NO2 = PANX # 8.4E-1*K; PANX = NO2 + CXO3 # 8.4E-1*K; PANX = 0.6*NO2 +0.6*CXO3 +0.4*NO3 +0.4*ALD2 +0.4*XO2H +0.4*RO2 #1.0/; CXO3 + HO2 = 0.37*PACD + 0.13*AACD + 0.13*O3 + 0.5*OH + 0.5*MEO2 + 0.5*RO2 # 1.00E+0*K; CXO3 + RO2 = MEO2 # 1.00E+0*K; CXO3 + CXO3 = 2.0*MEO2 + 2.0*RO2 # 1.00E+0*K; RO2 + NO = NO # 2.40E-12@-360; RO2 + HO2 = HO2 # 4.80E-13@-800; RO2 + RO2 = # 6.50E-14@-500; MEO2 + NO = FORM + HO2 + NO2 # 2.30E-12@-360; MEO2 + HO2 = 0.9*MEPX + 0.1*FORM # 3.80E-13@-780; MEO2 + C2O3 = FORM + 0.9*HO2 + 0.9*MEO2 + 0.1*AACD +0.9*RO2 # 2.E-12@-500; MEO2 + RO2 = 0.685*FORM + 0.315*MEOH + 0.37*HO2 + RO2 # 1.0*K; XO2H + NO = NO2 + HO2 # 2.70E-12@-360; XO2H + HO2 = ROOH # 6.80E-13@-800; XO2H + C2O3 = 0.8*HO2 + 0.8*MEO2 + 0.2*AACD + 0.8*RO2 # 1.0*K; XO2H + RO2 = 0.6*HO2 + RO2 # 1.00E+0*K; XO2 + NO = NO2 # 1.00E+0*K; XO2 + HO2 = ROOH # 1.00E+0*K; XO2 + C2O3 = 0.8*MEO2 + 0.2*AACD + 0.8*RO2 # 1.0*K; XO2 + RO2 = RO2 # 1.00E+0*K; XO2N + NO = 0.5*NTR1 + 0.5*NTR2 # 1.00E+0*K; XO2N + HO2 = ROOH # 1.00E+0*K; XO2N + C2O3 = 0.8*HO2 + 0.8*MEO2 + 0.2*AACD + 0.8*RO2 # 1.0*K; XO2N + RO2 = RO2 # 1.00E+0*K; MEPX + OH = 0.6*MEO2 + 0.6*RO2 + 0.4*FORM + 0.4*OH # 5.30E-12@-190; MEPX = MEO2 + RO2 + OH # 1.0/; ROOH + OH = 0.54*XO2H + 0.06*XO2N + 0.6*RO2 + 0.4*OH # 5.30E-12@-190; ROOH = HO2 + OH # 1.0/; NTR1 + OH = NTR2 # 2.00E-12; NTR1 = NO2 # 1.0/; !BK NTR1 = NO2 # 0.0/; !BK NTR1 = NO2 # 0.0/; FACD + OH = HO2 # 4.50E-13; AACD + OH = MEO2 + RO2 # 4.00E-14@-850; PACD + OH = C2O3 # 5.30E-12@-190; FORM + OH = HO2 + CO # 5.40E-12@-135; FORM = 2.0*HO2 + CO # 1.0/; FORM = CO # 1.0/; FORM + O = OH + HO2 + CO # 3.40E-11@1600; FORM + NO3 = HNO3 + HO2 + CO # 5.50E-16; FORM + HO2 = HCO3 # 9.70E-15@-625; HCO3 = FORM + HO2 # 2.40E+12@7000; HCO3 + NO = FACD + NO2 + HO2 # 5.60E-12; HCO3 + HO2 = 0.5*MEPX + 0.5*FACD + 0.2*OH + 0.2*HO2 # 5.60E-15@-2300; ALD2 + O = C2O3 + OH # 1.80E-11@1100; ALD2 + OH = C2O3 # 4.70E-12@-345; ALD2 + NO3 = C2O3 + HNO3 # 1.40E-12@1860; ALD2 = MEO2 + RO2 + CO + HO2 # 1.0/; ALDX + O = CXO3 + OH # 1.30E-11@870; ALDX + OH = CXO3 # 4.90E-12@-405; ALDX + NO3 = CXO3 + HNO3 # 6.30E-15; ALDX = ALD2 + XO2H + RO2 + CO + HO2 # 1.0/; GLYD + OH = 0.2*GLY + 0.2*HO2 + 0.8*C2O3 # 8.00E-12; GLYD = 0.74*FORM + 0.89*CO + 1.4*HO2 + 0.15*MEOH + 0.19*OH + 0.11*GLY + 0.11*XO2H + 0.11*RO2 # 1.0/; GLYD + NO3 = HNO3 + C2O3 # 1.00E+0*K; GLY + OH = 1.8*CO + 0.2*XO2 + 0.2*RO2 + HO2 # 3.10E-12@-340; GLY = 2.0*HO2 + 2.0*CO # 1.0/; GLY + NO3 = HNO3 + 1.5*CO + 0.5*XO2 + 0.5*RO2 + HO2 # 4.00E-16; MGLY = C2O3 + HO2 + CO # 1.0/; MGLY + NO3 = HNO3 + C2O3 + XO2 + RO2 # 5.00E-16; MGLY + OH = C2O3 + CO # 1.90E-12@-575; H2 + OH = HO2 # 7.70E-12@2100; CO + OH = HO2 %3 # 1.44E-13@0.0 &3.43E-33@0.0; CH4 + OH = MEO2 + RO2 # 1.85E-12@1690; ETHA + OH = 0.991*ALD2 + 0.991*XO2H + 0.009*XO2N + RO2 # 6.90E-12@1000; MEOH + OH = FORM + HO2 # 2.85E-12@345; ETOH + OH = 0.95*ALD2 + 0.9*HO2 + 0.1*XO2H + 0.1*RO2 + 0.078*FORM + 0.011*GLYD # 3.00E-12@-20; KET = 0.5*ALD2 + 0.5*C2O3 + 0.5*XO2H + 0.5*CXO3 + 0.5*MEO2 + RO2 -2.5*PAR # 1.0/; ACET = 0.38*CO + 1.38*MEO2 + 1.38*RO2 + 0.62*C2O3 # 1.0/; ACET + OH = FORM + C2O3 + XO2 + RO2 # 1.41E-12@620.6; PRPA + OH = XPRP # 7.60E-12@585; PAR + OH = XPAR # 8.10E-13; ROR = 0.2*KET + 0.42*ACET + 0.74*ALD2 + 0.37*ALDX + 0.04*XO2N +0.94*XO2H + 0.98*RO2 + 0.02*ROR -2.7*PAR # 5.70E+12@5780; ROR + O2 = KET + HO2 # 1.50E-14@200; ROR + NO2 = NTR1 # 8.60E-12@-400; ETHY + OH = 0.7*GLY + 0.7*OH + 0.3*FACD + 0.3*CO +0.3*HO2 # 5.E-30^-1.5 & 1.00E-12 &0.37 &1.3; ETH + O = FORM + HO2 + CO + 0.7*XO2H + 0.7*RO2 + 0.3*OH # 1.04E-11@792; ETH + OH = XO2H + RO2 + 1.56*FORM + 0.22*GLYD # 8.60E-29^-3.1 & 9.00E-12^-0.85 &0.48 &1.15; ETH + O3 = FORM + 0.35*CO + 0.27*HO2 + 0.17*OH +0.42*FACD #6.82E-15@2500; ETH + NO3 = 0.5*NO2 + 0.5*NTR1 + 0.5*XO2H + 0.5*XO2 + RO2 + 1.125*FORM # 3.30E-12@2880; OLE + O = 0.2*ALD2 + 0.3*ALDX + 0.1*HO2 + 0.2*XO2H + 0.2*CO + 0.2*FORM + 0.01*XO2N + 0.21*RO2 + 0.2*PAR + 0.1*OH # 1.00E-11@280; OLE + OH = 0.781*FORM + 0.488*ALD2 + 0.488*ALDX + 0.976*XO2H + 0.195*XO2 + 0.024*XO2N + 1.195*RO2 -0.73*PAR # 8.E-27^-3.5&3.00E-11^-1 &0.5 &1.13; OLE + O3 = 0.295*ALD2 + 0.555*FORM + 0.27*ALDX + 0.15*XO2H + 0.15*RO2 + 0.334*OH + 0.08*HO2 + 0.378*CO + 0.075*GLY + 0.075*MGLY + 0.09*FACD + 0.13*AACD + 0.04*H2O2 -0.79*PAR # 5.50E-15@1880; OLE + NO3 = 0.5*NO2 + 0.5*NTR1 + 0.48*XO2 + 0.48*XO2H + 0.04*XO2N + RO2 + 0.5*FORM + 0.25*ALD2 + 0.375*ALDX -1.0*PAR # 4.60E-13@1155; IOLE + O = 1.24*ALD2 + 0.66*ALDX + 0.1*XO2H + 0.1*RO2 + 0.1*CO + 0.1*PAR # 2.30E-11; IOLE + OH = 1.3*ALD2 + 0.7*ALDX + XO2H + RO2 # 1.05E-11@-519; IOLE + O3 = 0.732*ALD2 + 0.442*ALDX + 0.128*FORM + 0.245*CO + 0.5*OH + 0.3*XO2H + 0.3*RO2 + 0.24*GLY + 0.06*MGLY + 0.29*PAR + 0.08*AACD + 0.08*H2O2 # 4.70E-15@1013; IOLE + NO3 = 0.5*NO2 + 0.5*NTR1 + 0.48*XO2 + 0.48*XO2H + 0.04*XO2N + RO2 + 0.5*ALD2 + 0.625*ALDX + PAR # 3.70E-13; ! added ISOPRXN to ISOP+OH ISOP + OH = ISO2 + RO2 + ISOPRXN # 2.70E-11@-390; ISOP + O = 0.75*ISPD + 0.5*FORM + 0.25*XO2 + 0.25*RO2 + 0.25*HO2 + 0.25*CXO3 + 0.25*PAR # 3.00E-11; ISO2 + NO = 0.1*INTR + 0.9*NO2 + 0.673*FORM + 0.9*ISPD + 0.818*HO2 + 0.082*XO2H + 0.082*RO2 # 2.39E-12@-365; ISO2 + HO2 = 0.88*ISPX + 0.12*OH + 0.12*HO2 + 0.12*FORM + 0.12*ISPD # 7.43E-13@-700; ISO2 + C2O3 = 0.598*FORM + 1.0*ISPD + 0.728*HO2 + 0.072*XO2H + 0.8*MEO2 + 0.2*AACD + 0.872*RO2 # 1.00E+0*K; ISO2 + RO2 = 0.598*FORM + 1.0*ISPD + 0.728*HO2 + 0.072*XO2H + 1.072*RO2 # 1.0*K; ISO2 = HO2 + HPLD # 3.30E+9@8300; ISOP + O3 = 0.6*FORM + 0.65*ISPD + 0.15*ALDX + 0.2*CXO3 + 0.35*PAR + 0.266*OH + 0.2*XO2 + 0.2*RO2 + 0.066*HO2 + 0.066*CO # 1.03E-14@1995; ISOP + NO3 = 0.35*NO2 + 0.65*NTR2 + 0.64*XO2H + 0.33*XO2 + 0.03*XO2N + RO2 + 0.35*FORM + 0.35*ISPD + ISOPRXN # 3.03E-12@448; ISPD + OH = 0.022*XO2N + 0.521*XO2 + 0.115*MGLY + 0.115*MEO2 + 0.269*GLYD + 0.269*C2O3 + 0.457*OPO3 + 0.117*PAR + 0.137*ACET + 0.137*CO + 0.137*HO2 + 0.658*RO2 # 5.58E-12@-511; ISPD + O3 = 0.04*ALD2 + 0.231*FORM + 0.531*MGLY + 0.17*GLY + 0.17*ACET + 0.543*CO + 0.461*OH + 0.15*FACD + 0.398*HO2 + 0.143*C2O3 # 3.88E-15@1770; ISPD + NO3 = 0.717*HNO3 + 0.142*NTR2 + 0.142*NO2 + 0.142*XO2 + 0.142*XO2H + 0.113*GLYD + 0.113*MGLY + 0.717*PAR + 0.717*CXO3 + 0.284*RO2 # 4.10E-12@1860; ISPD = 0.76*HO2 + 0.34*XO2H + 0.16*XO2 + 0.34*MEO2 + 0.208*C2O3 + 0.26*FORM + 0.24*OLE + 0.24*PAR + 0.17*ACET + 0.128*GLYD + 0.84*RO2 # 1.0/; ISPX + OH = 0.904*EPOX + 0.933*OH + 0.067*ISO2 + 0.067*RO2 + 0.029*IOLE + 0.029*ALDX # 2.23E-11@-372; HPLD = OH + ISPD # 1.0/; HPLD + NO3 = HNO3 + ISPD # 6.00E-12@1860; EPOX + OH = EPX2 + RO2 # 5.78E-11@400; EPX2 + HO2 = 0.275*GLYD + 0.275*GLY + 0.275*MGLY + 1.125*OH + 0.825*HO2 + 0.375*FORM + 0.074*FACD + 0.251*CO + 2.175*PAR # 7.43E-13@-700; EPX2 + NO = 0.275*GLYD + 0.275*GLY + 0.275*MGLY + 0.125*OH + 0.825*HO2 + 0.375*FORM + NO2 + 0.251*CO + 2.175*PAR # 2.39E-12@-365; EPX2 + C2O3 = 0.22*GLYD + 0.22*GLY + 0.22*MGLY + 0.1*OH + 0.66*HO2 + 0.3*FORM + 0.2*CO +1.74*PAR + 0.8*MEO2 + 0.2*AACD +0.8*RO2 # 1.0*K; EPX2 + RO2 = 0.275*GLYD + 0.275*GLY + 0.275*MGLY + 0.125*OH + 0.825*HO2 + 0.375*FORM + 0.251*CO + 2.175*PAR + RO2 # 1.0*K; INTR + OH = 0.63*XO2 + 0.37*XO2H + RO2 + 0.444*NO2 + 0.185*NO3 + 0.104*INTR + 0.592*FORM + 0.331*GLYD + 0.185*FACD + 2.7*PAR + 0.098*OLE + 0.078*ALDX + 0.266*NTR2 # 3.10E-11; ! added TRPRXN to TERP+ O, OH, O3 and NO3 TERP + O = 0.15*ALDX + 5.12*PAR + TRPRXN # 3.60E-11; TERP + OH = 0.75*XO2H + 0.5*XO2 + 0.25*XO2N + 1.5*RO2 + 0.28*FORM + 1.66*PAR + 0.47*ALDX + TRPRXN # 1.50E-11@-449; TERP + O3 = 0.57*OH + 0.07*XO2H + 0.69*XO2 + 0.18*XO2N + 0.94*RO2 + 0.24*FORM + 0.001*CO + 7.0*PAR + 0.21*ALDX + 0.39*CXO3 + TRPRXN # 1.20E-15@821; TERP + NO3 = 0.47*NO2 + 0.28*XO2H + 0.75*XO2 + 0.25*XO2N + 1.28*RO2 + 0.47*ALDX + 0.53*NTR2 + 1.0*TERPNRO2 # 3.70E-12@-175; ! Separate APIN (alpha-pinene) APIN + O = 0.15*ALDX + 5.12*PAR + TRPRXN # 3.60E-11; APIN + OH = 0.75*XO2H + 0.5*XO2 + 0.25*XO2N + 1.5*RO2 + 0.28*FORM + 1.66*PAR + 0.47*ALDX + TRPRXN # 1.50E-11@-449; APIN + O3 = 0.57*OH + 0.07*XO2H + 0.69*XO2 + 0.18*XO2N + 0.94*RO2 + 0.24*FORM + 0.001*CO + 7.0*PAR + 0.21*ALDX + 0.39*CXO3 + TRPRXN # 1.20E-15@821; APIN + NO3 = 0.47*NO2 + 0.28*XO2H + 0.75*XO2 + 0.25*XO2N + 1.28*RO2 + 0.47*ALDX + 0.53*NTR2 # 3.70E-12@-175; ! added BENZRO2 as tracer for SOA products from BENZENE - used later to account ! for high vs. low NOx influence on SOA BENZENE + OH = 0.53*CRES + 0.352*BZO2 + 0.352*RO2 + 0.118*OPEN + 0.118*OH + 0.53*HO2 + BENZRO2 # 2.30E-12@190; BZO2 + NO = 0.918*NO2 + 0.082*NTR2 + 0.918*GLY + 0.918*OPEN + 0.918*HO2 # 2.70E-12@-360; BZO2 + C2O3 = GLY + OPEN + HO2 + MEO2 + RO2 # 1.0*K; BZO2 + HO2 = # 1.90E-13@-1300; BZO2 + RO2 = GLY + OPEN + HO2 + RO2 # 1.0*K; ! added TOLRO2 tracer for SOA production - used at end of mechanism file to ! account for low vs. high NOx dependance of SOA precursors (TOLRXN) TOL + OH = 0.18*CRES + 0.65*TO2 + 0.72*RO2 + 0.1*OPEN + 0.1*OH + 0.07*XO2H + 0.18*HO2 + TOLRO2 # 1.80E-12@-340; TO2 + NO = 0.86*NO2 + 0.14*NTR2 + 0.417*GLY + 0.443*MGLY + 0.66*OPEN + 0.2*XOPN + 0.86*HO2 # 2.70E-12@-360; TO2 + C2O3 = 0.48*GLY + 0.52*MGLY + 0.77*OPEN + 0.23*XOPN + HO2 + MEO2 + RO2 # 1.0*K; TO2 + HO2 = # 1.90E-13@-1300; TO2 + RO2 = 0.48*GLY + 0.52*MGLY + 0.77*OPEN + 0.23*XOPN + HO2 + RO2 # 1.0*K; ! added XYLRO2 tracer for SOA production - used at end of mechanism file to ! account for low vs. high NOx dependance of SOA precursors XYLMN + OH = 0.155*CRES + 0.544*XLO2 + 0.602*RO2 + 0.244*XOPN + 0.244*OH + 0.058*XO2H + 0.155*HO2 + XYLRO2 # 1.85E-11; NAPH + OH = 0.155*CRES + 0.544*XLO2 + 0.602*RO2 + 0.244*XOPN + 0.244*OH + 0.058*XO2H + 0.155*HO2 + PAHRO2 # 1.85E-11; XLO2 + NO = 0.86*NO2 + 0.14*NTR2 + 0.221*GLY + 0.675*MGLY + 0.3*OPEN + 0.56*XOPN + 0.86*HO2 # 2.70E-12@-360; XLO2 + HO2 = # 1.90E-13@-1300; XLO2 + C2O3 = 0.26*GLY + 0.77*MGLY + 0.35*OPEN + 0.65*XOPN + HO2 + MEO2 + RO2 # 1.0*K; XLO2 + RO2 = 0.26*GLY + 0.77*MGLY + 0.35*OPEN + 0.65*XOPN + HO2 + RO2 # 1.0*K; CRES + OH = 0.025*GLY + 0.025*OPEN + HO2 + 0.2*CRO + 0.732*CAT1 + 0.02*XO2N + 0.02*RO2 # 1.70E-12@-950; CRES + NO3 = 0.3*CRO + HNO3 + 0.48*XO2 + 0.12*XO2H + 0.24*GLY + 0.24*MGLY + 0.48*OPO3 + 0.1*XO2N + 0.7*RO2 # 1.40E-11; CRO + NO2 = CRON # 2.10E-12; CRO + HO2 = CRES # 5.50E-12; CRON + OH = NTR2 + 0.5*CRO # 1.53E-12; CRON + NO3 = NTR2 + 0.5*CRO + HNO3 # 3.80E-12; CRON = HONO + HO2 + FORM + OPEN # 1.0/; XOPN = 0.4*GLY + XO2H + 0.7*HO2 + 0.7*CO + 0.3*C2O3 #0.05/; XOPN + OH = MGLY + 0.4*GLY + 2.0*XO2H + 2.0*RO2 # 9.00E-11; XOPN + O3 = 1.2*MGLY + 0.5*OH + 0.6*C2O3 + 0.1*ALD2 + 0.5*CO + 0.3*XO2H + 0.3*RO2 # 1.08E-16@500; XOPN + NO3 = 0.5*NO2 + 0.5*NTR2 + 0.45*XO2H + 0.45*XO2 + 0.1*XO2N + RO2 + 0.25*OPEN + 0.25*MGLY # 3.00E-12; OPEN = OPO3 + HO2 + CO # 0.028/; OPEN + OH = 0.6*OPO3 + 0.4*XO2H + 0.4*RO2 + 0.4*GLY # 4.40E-11; OPEN + O3 = 1.4*GLY + 0.24*MGLY + 0.5*OH + 0.12*C2O3 + 0.08*FORM + 0.02*ALD2 + 1.98*CO + 0.56*HO2 # 5.40E-17@500; OPEN + NO3 = OPO3 + HNO3 # 3.80E-12; CAT1 + OH = 0.14*FORM + 0.2*HO2 + 0.5*CRO # 5.00E-11; CAT1 + NO3 = CRO + HNO3 # 1.70E-10; OPO3 + NO = NO2 + 0.5*GLY + 0.5*CO + 0.8*HO2 + 0.2*CXO3 # 1.00E+0*K; OPO3 + NO2 = OPAN # 1.00E+0*K; OPAN = OPO3 + NO2 # 1.00E+0*K; OPO3 + HO2 = 0.37*PACD + 0.13*AACD + 0.13*O3 + 0.5*OH + 0.5*MEO2 + 0.5*RO2 # 1.00E+0*K; OPO3 + C2O3 = MEO2 + XO2 + ALDX + 2.0*RO2 # 1.00E+0*K; OPO3 + RO2 = 0.8*XO2H + 0.8*ALDX + 1.8*RO2 + 0.2*AACD # 1.00E+0*K; OPAN + OH = 0.5*NO2 + 0.5*GLY + CO + 0.5*NTR2 # 3.60E-11; PANX + OH = ALD2 + NO2 # 3.00E-12; !BK NTR2 = HNO3 # 2.30E-5; ECH4 + OH = MEO2 + RO2 # 1.85E-12@1690; XPRP = XO2N + RO2 # 2.37E-21 & 4.07E-01^-8.0 &0.41 &1.0; XPRP = 0.732*ACET + 0.268*ALDX + 0.268*PAR + XO2H + RO2 # 1.00E+00; XPAR = XO2N + RO2 # 4.81E-20 & 4.07E-01^-8.0 &0.41 &1.0; XPAR = 0.126*ALDX + 0.874*ROR + 0.126*XO2H + 0.874*XO2 + RO2 -0.126*PAR # 1.00E+00; NO2 + OH + H2O = HNO3 # 1.10E-30; ! ! Chlorine reactions added from base CB05tucl and updated ! CL2 = 2.000*CL # 1.0/; HOCL = OH + CL # 1.0/; CL + O3 = CLO # 2.3E-11 @ 200; CLO + CLO = 0.300*CL2 + 1.400*CL # 1.63E-14; CLO + NO = CL + NO2 # 6.4E-12 @ -290; CLO + HO2 = HOCL # 2.2E-12 @ -340; CLO + MEO2 = CL + FORM + HO2 # 3.2E-12@110; OH + FMCL = CL + CO # 5.0E-13; FMCL = CL + CO + HO2 # 1.0/; CL + CH4 = HCL + MEO2 + RO2 # 6.6E-12 @ 1240; CL + PAR = HCL + XPAR # 5.0E-11; CL + PRPA = HCL + ACET + 0.97*XO2H + 0.03*XO2N + RO2 # 1.4E-10; CL + ETHA = HCL + 0.991*ALD2 + 0.991*XO2H + 0.009*XO2N + RO2 # 8.3-11 @ 100; CL + ETH = FMCL + 2.000*XO2 + 1.000*HO2 + 1.000*FORM # 1.07E-10; CL + OLE = FMCL + 0.330*ALD2 + 0.670*ALDX + 2.000*XO2 + 1.000*HO2 - 1.000*PAR # 2.5E-10; CL + IOLE = 0.300*HCL + 0.700*FMCL + 0.450*ALD2 + 0.550*ALDX + 0.300*OLE + 0.300*PAR + 1.700*XO2 + 1.000*HO2 # 3.5E-10; CL + ISOP = FMCL + ISPD + 0.96*XO2H + 0.04*XO2N + RO2 # 4.3E-10; CL + FORM = HCL + 1.00*HO2 + 1.00*CO # 8.2E-11 @ 34; CL + ALD2 = HCL + 1.000*C2O3 # 7.9E-11; CL + ALDX = HCL + 1.000*CXO3 # 1.3E-10; CL + MEOH = HCL + 1.00*HO2 + 1.00*FORM # 5.5E-11; CL + ETOH = HCL + 1.00*HO2 + 1.00*ALD2 # 8.2E-11 @ -45; HCL + OH = CL # 6.58E-13^1.16 @ -58; CL + TOL = HCL + 0.18*CRES + 0.65*TO2 + 0.72*RO2 + 0.1*OPEN + 0.1*OH + 0.07*XO2H + 0.18*HO2 + TOLRO2 # 6.1E-11; CL + XYLMN = HCL + 0.155*CRES + 0.544*XLO2 + 0.602*RO2 + 0.244*XOPN + 0.244*OH + 0.058*XO2H + 0.155*HO2 + XYLRO2 # 1.2E-10; CL + NAPH = HCL + 0.155*CRES + 0.544*XLO2 + 0.602*RO2 + 0.244*XOPN + 0.244*OH + 0.058*XO2H + 0.155*HO2 + PAHRO2 # 1.2E-10; CLNO2 = CL + NO2 #1.0/; ! add new reactions for chlorine nitrate CLO + NO2 = CLNO3 #1.8E-31^-3.4&1.5E-11^-1.9&0.6; ! CLNO3 = CLO + NO2 #4.48E-5^-1.0@12530&3.71E+15^3.5@12530&0.6; CLNO3 = CLO + NO2 # 1.0/; CLNO3 = CL + NO3 # 1.0/; ! heterogeneous reactions CLNO3 = HOCL + HNO3 # 1.0~; CLNO3 = HOCL + HNO3 # 1.0~; ! SOA counter species and semivolatiles formed TOLRO2 + NO = NO + 0.016*SVAVB2 + 0.051*SVAVB3 + 0.047*SVAVB4 # 2.70e-12@-360; TOLRO2 + HO2 = HO2 + 0.14*SVAVB1 # 1.90e-13@-1300; XYLRO2 + NO = NO + 0.015*SVAVB2 + 0.023*SVAVB3 + 0.06*SVAVB4 # 2.70e-12@-360; XYLRO2 + HO2 = HO2 + 0.193*SVAVB1 # 1.90e-13@-1300; BENZRO2 + NO = NO + 0.034*SVAVB2 + 0.392*SVAVB4 # 2.70e-12@-360; BENZRO2 + HO2 = HO2 + 0.146*SVAVB1 # 1.90e-13@-1300; SESQ + O3 = O3 + SESQRXN # 1.16E-14; SESQ + OH = OH + SESQRXN # 1.97E-10; SESQ + NO3 = NO3 + SESQRXN # 1.90E-11; PAHRO2 + NO = NO + 0.028*SVAVB2 + 0.225*SVAVB3 + 0.191*SVAVB4 # 2.70e-12@-360; PAHRO2 + HO2 = HO2 + 0.473*SVAVB1 # 1.90e-13@-1300; SOAALK + OH = OH + 0.006*SVAVB2 + 0.052*SVAVB3 + 0.081*SVAVB4 # 2.70e-12@-374; ! iorganic heteorogeneous reactions from hetchem version 5.0.2 ! included F_NTR2_ON factor here, rather than in AEROSOL_CHEM.F NTR2 = HNO3 # 1.4~; N2O5 = HNO3 + H2NO3PIJ # 1.0~; N2O5 = HNO3 + H2NO3PK # 1.0~; H2NO3PIJ = HNO3 # 1.0~; H2NO3PK = HNO3 # 1.0~; H2NO3PIJ + ACLI = CLNO2 # 1.0~; H2NO3PIJ + ACLJ = CLNO2 # 1.0~; H2NO3PK + ACLK = CLNO2 # 1.0~; NO2 = 0.5*HONO + 0.5*HNO3 # 1.0~; ! updated reaction rate O3 = %H # 6.7006E-11@-10.7435 & 3.4153E-08@0.6713 & 2.0E-6; ! heterogeneous acid-catalyzed uptake of isoprene-epoxydiols EPOX = IEPOXP # 1.0~; IEPOXP + ASO4J = AISO3J # 1.0~; IEPOXP = AISO3J # 1.0~; ! GLY and MGLY uptake GLY = AGLYJ # 1.0~; MGLY = AGLYJ # 1.0~; ! MTNO3 formation and reaction TERPNRO2 + NO = 1.0*NO + 0.688*MTNO3 # 2.60e-12@-380; TERPNRO2 + HO2 = 1.0*HO2 + 1.0*MTNO3 # 2.65e-13@-1300; TERPNRO2 + NO3 = 1.0*NO3 + 0.422*MTNO3 # 2.30e-12; ! 50% alkoxy radical yield from TERPNRO2 + RO2 TERPNRO2 + RO2 = 1.0*RO2 + 0.711*MTNO3 # 3.50e-14; ! Reaction with OH, Cl is followed 50/50 by HO2 (N releasing) and NO (N retaining) MTNO3 + CL = CL + 0.37*MTNO3 # 1.92e-10; MTNO3 + OH = OH + 0.24*MTNO3 # 7.20e-12; ! photolysis releases all nitrate MTNO3 = # 1.0/; ! MTNO3 aerosol hydrolysis AMTNO3J = 1.00*AMTHYDJ #9.259E-5; ! oligomerization reaction for secondary organic aerosols AAVB2J = 0.907*AOLGAJ # 9.48816E-6; AAVB3J = 0.925*AOLGAJ # 9.48816E-6; AAVB4J = 0.943*AOLGAJ # 9.48816E-6; AISO1J = 0.50*AOLGBJ # 9.48816E-6; AISO2J = 0.50*AOLGBJ # 9.48816E-6; ASQTJ = 1.50*AOLGBJ # 9.48816E-6; !aging reactions for primary organic carbon APOCI + OH = 1.25*APNCOMI + APOCI + OH # 2.5E-12; APNCOMI + OH = OH # 1.0~; APOCJ + OH = 1.25*APNCOMJ + APOCJ + OH # 2.5E-12; APNCOMJ + OH = OH # 1.0~; ! Formation of Potential Combustion SOA (pcSOA) PCVOC + OH = OH + PCSOARXN # 1.25E-11; ! Aging with Func. and Frag. (Donahue et al. 2012) VLVPO1 + OH = OH + 0.4857 * VLVPO1 + 0.0062 * VSVPO1 + 0.0025 * VSVPO2 + 0.0026 * VSVPO3 + 0.0023 * VIVPO1 + 0.2944 * VLVOO1 + 0.2021 * VLVOO2 + 0.0019 * VSVOO2 + 0.0023 * VSVOO3 #4.0e-11; VSVPO1 + OH = OH + 0.3003 * VLVPO1 + 0.2862 * VSVPO1 + 0.0041 * VSVPO2 + 0.0035 * VSVPO3 + 0.2239 * VLVOO1 + 0.1820 * VLVOO2 #4.0e-11; VSVPO2 + OH = OH + 0.3856 * VLVPO1 + 0.0950 * VSVPO1 + 0.1373 * VSVPO2 + 0.0005 * VSVPO3 + 0.2051 * VLVOO1 + 0.1764 * VLVOO2 #4.0e-11; VSVPO3 + OH = OH + 0.2181 * VLVPO1 + 0.3063 * VSVPO1 + 0.0153 * VSVPO2 + 0.1043 * VSVPO3 + 0.1893 * VLVOO1 + 0.1668 * VLVOO2 #4.0e-11; VIVPO1 + OH = OH + 0.2412 * VLVPO1 + 0.2089 * VSVPO1 + 0.3000 * VSVPO2 + 0.2028 * VLVOO1 + 0.0471 * VLVOO2 #4.0e-11; VLVOO1 + OH = OH + 0.6664 * VLVOO1 + 0.0143 * VLVOO2 + 0.0123 * VSVOO1 + 0.1239 * VSVOO2 + 0.1831 * VSVOO3 #4.0e-11; VLVOO2 + OH = OH + 0.2858 * VLVOO1 + 0.3931 * VLVOO2 + 0.0139 * VSVOO1 + 0.1027 * VSVOO2 + 0.2045 * VSVOO3 #4.0e-11; VSVOO1 + OH = OH + 0.3303 * VLVOO1 + 0.2272 * VLVOO2 + 0.2607 * VSVOO1 + 0.0702 * VSVOO2 + 0.1116 * VSVOO3 #4.0e-11; VSVOO2 + OH = OH + 0.3444 * VLVOO1 + 0.2749 * VLVOO2 + 0.0491 * VSVOO1 + 0.2577 * VSVOO2 + 0.0739 * VSVOO3 #4.0e-11; VSVOO3 + OH = OH + 0.3886 * VLVOO1 + 0.2421 * VLVOO2 + 0.0640 * VSVOO1 + 0.0385 * VSVOO2 + 0.2667 * VSVOO3 #4.0e-11; ! MP extra species < T01> FORM_PRIMARY + OH = OH # 5.40E-12@-135; < T02> FORM_PRIMARY + NO3 = NO3 # 5.50E-16; < T03> FORM_PRIMARY + O = O # 3.4E-11 @ 1600; < T04> FORM_PRIMARY = # 1.0/; < T05> FORM_PRIMARY = # 1.0/; FORM_PRIMARY + CL = CL # 8.2E-11 @ 34; < T06> ALD2_PRIMARY + OH = OH # 4.70E-12@-345; < T07> ALD2_PRIMARY + NO3 = NO3 # 1.40E-12@1860; < T08> ALD2_PRIMARY + O = O # 1.8E-11 @ 1100; < T09> ALD2_PRIMARY = # 1.0/; ALD2_PRIMARY + CL = CL # 7.9E-11; < T10> BUTADIENE13 + OH = OH + 0.58*ACROLEIN # 1.48E-11@-448.; < T11> BUTADIENE13 + O3 = O3 + 0.52*ACROLEIN # 1.34E-14@2283.; < T12> BUTADIENE13 + NO3 = NO3 + 0.045*ACROLEIN # 1.79E-13; BUTADIENE13 + CL = CL + 0.58*ACROLEIN # 2.51E-10; < T13> ACRO_PRIMARY + OH = OH # 2.0E-11; < T14> ACRO_PRIMARY + O3 = O3 # 2.61E-19; < T15> ACRO_PRIMARY + NO3 = NO3 # 1.15E-15; < T16> ACRO_PRIMARY = # 1.0/; ACRO_PRIMARY + CL = CL # 2.37E-10; < T17> ACROLEIN + OH = OH # 2.0E-11; < T18> ACROLEIN + O3 = O3 # 2.61E-19; < T19> ACROLEIN + NO3 = NO3 # 1.15E-15; < T20> ACROLEIN = # 1.0/; ACROLEIN + CL = CL # 2.37E-10; < T21> TOLU + OH = OH # 1.80E-12@-340.; TOLU + CL = CL # 6.1E-11; HG + O3 = 0.5*HGIIAER + 0.5*HGIIGAS + O3 # 2.11E-18 @ 1256.5; HG + CL2 = HGIIGAS + CL2 # 2.6E-18; HG + H2O2 = HGIIGAS + H2O2 # 8.5E-19; HG + OH = 0.5*HGIIAER + 0.5*HGIIGAS + OH # 7.7E-14; HG + CL + M = 0.5*HG + 0.5*HGIIGAS + M + CL # 2.25E-33 @ -680.0; ! DMS chemistry (IUPAC except DMS4 which is from Somariva and Glasow, 2012 ) DMS + OH = SO2 + MEO2 + FORM # 1.12E-11@250; DMS + OH = 0.75*SO2 + 0.25*MSA + MEO2 # 1.99E-39@-5270 & 1.26E-10@+340 &1.0 &1; DMS + NO3 = SO2 + HNO3 + MEO2 + FORM # 1.9E-13@-520; DMS + CL = 0.86*SO2 + MEO2 + 0.45*FORM + 0.45*HCL + 0.14*MSA + 0.55*CLO # 3.4E-13@-2081; END MECH CONSTANTS ATM_AIR = 1.0E+06 ATM_H2 = 0.56 ATM_N2 = 0.7808E+06 ATM_O2 = 0.2095E+06 ATM_CH4 = 1.85 END CONSTANTS ================================================ FILE: CCTM/src/MECHS/cb6r5_ae7_aq/pa_cb6r5_ae7_aq.ctl ================================================ ! for CB6_cl2 ! IRRTYPE = PARTIAL; DEFINE FAMILY NOX = NO + NO2; DEFINE FAMILY NTR = NTR1 +NTR2 +INTR; DEFINE FAMILY PANy = PAN +PANX +OPAN; DEFINE FAMILY NOZ = PAN +PANX +OPAN +HONO +PNA +2*N2O5 +NTR1 +NTR2 +INTR +HNO3 +CLNO2 +CLNO3 +CRON; DEFINE FAMILY OX = O3 +NO2 +2*NO3 +O +O1D +PAN +3*N2O5 +PNA +PANX +OPAN; DEFINE FAMILY HOX = OH + HO2; DEFINE FAMILY aRO2s = C2O3 +CXO3 +OPO3; DEFINE FAMILY RO2s = MEO2 +XO2 +XO2H +XO2N +ISO2 +EPX2 +BZO2 +TO2 +XLO2; DEFINE FAMILY aVOC = FORM +ALD2 +ALDX +PAR +ETHA +PRPA +MEOH +ETOH +ETH +OLE +IOLE +ACET +TOL +XYLMN +GLYD +GLY +MGLY +KET +CRON +NTR1 +OPEN +CAT1 +CRES +XOPN +NAPH; DEFINE FAMILY bVOC = ISOP + ISPD + INTR + HPLD + EPOX + TERP; !!======================================================================= ! Reaction Sum Definitions !======================================================================= DEFINE CYCLE PANcyc = PAN; DEFINE CYCLE PANXcyc = PANX; DEFINE CYCLE OPANcyc = OPAN; DEFINE CYCLE PNAcyc = PNA; DEFINE RXNSUM PNAHO2cyc = 0.59* + - ; DEFINE RXNSUM HONOcyc = + 2.0* - 2.0* - - ; DEFINE RXNSUM NO3cyc = - ; DEFINE RXNSUM MEPXcyc = - 0.9*; DEFINE RXNSUM ROOHcyc = - - - ; DEFINE RXNSUM N2O5cyc = - ; DEFINE RXNSUM H2O2_OHcyc = - --; DEFINE RXNSUM HOXcyc = -; DEFINE RXNSUM HCO3cyc = - ; DEFINE RXNSUM CLNO3cyc = - ; !======================================================================= ! IPR_OUTPUTS !======================================================================= IPR_OUTPUT O3 = CHEM+DDEP+CLDS+AERO+TRNM; IPR_OUTPUT HNO3 = CHEM+DDEP+CLDS+AERO; IPR_OUTPUT PAN = CHEM+DDEP+CLDS+AERO+TRNM; IPR_OUTPUT N2O5 = CHEM+DDEP+CLDS+AERO; DEFINE FAMILY EC = AECI + AECJ; IPR_OUTPUT EC = COAG + EMIS + HADV; IPR_OUTPUT ASO4J = COND + COAG + EMIS + CHEM + VDIF + CLDS; IPR_OUTPUT ASO4I = NPF + COND + COAG + EMIS + CHEM + VDIF +CLDS; IPR_OUTPUT NUMATKN; !IPR_OUTPUT NUMACC; !IPR_OUTPUT NUMCOR; !======================================================================= ! IRR_OUTPUTS ! OX prod and loss ! IRR_OUTPUT OxPROD = NETP[OX]; IRR_OUTPUT OxLOSS = NETL[OX]; IRR_OUTPUT OxLOSSHAL = ; ! factors influencing PAN and N2O5 concentrations ! IRR_OUTPUT PANprod = PANcyc[POSONLY]; IRR_OUTPUT PANloss= PANcyc[NEGONLY] + ; ! RO2 fate IRR_OUTPUT RO2withNOtoNO2 = PROD[NO2] FROM [RO2s] AND [NO] + PROD[NO2] FROM [aRO2s] AND [NO]; IRR_OUTPUT RO2withNOtoNTR = PROD[NTR] FROM [RO2s] AND [NO]; IRR_OUTPUT RO2withNO2toPAN = PROD[PANy] FROM [aRO2s] AND [NO2]; IRR_OUTPUT RO2withHO2 = LOSS [RO2s] AND [HO2] + LOSS [aRO2s] AND [HO2]; IRR_OUTPUT RO2withRO2 = LOSS [RO2s] AND [RO2] + LOSS [aRO2s] AND [RO2] + LOSS [RO2s] AND [aRO2s]; ! VOC fate IRR_OUTPUT aVOCwithOH = LOSS[aVOC] AND [OH]; IRR_OUTPUT aVOCwithO3 = LOSS[aVOC] AND [O3]; IRR_OUTPUT aVOCwithNO3 = LOSS[aVOC] AND [NO3]; IRR_OUTPUT aVOCwithCL = LOSS[aVOC] AND [CL]; IRR_OUTPUT bVOCwithOH = LOSS[bVOC] AND [OH]; IRR_OUTPUT bVOCwithO3 = LOSS[bVOC] AND [O3]; IRR_OUTPUT bVOCwithNO3 = LOSS[bVOC] AND [NO3]; IRR_OUTPUT bVOCwithCL = LOSS[bVOC] AND [CL]; ! New radicals IRR_OUTPUT OHfrO1D = PROD [OH] FROM [O1D]; ! IRR_OUTPUT NewHOxfromHCHO =2.0*; IRR_OUTPUT NewHOxfromH2O2 =2.0*H2O2_OHcyc[POSONLY]; IRR_OUTPUT NewHOxfromHONO = HONOcyc[NEGONLY]; ! from photolysis not including HCHO IRR_OUTPUT NewHOxfromhv = + + 2.0* + 2.0* + + 1.59* + 2.0* + + 0.76* + + 0.7* + + ; ! from O3+alkene reactions IRR_OUTPUT NewHOxfromO3 =0.44* + 0.414* + 0.5* +0.332* +0.859* +0.57* + 1.06*; ! chlorine IRR_OUTPUT NewClrad = 2.0* + + + + ; IRR_OUTPUT ClfromCLNO2 = ; IRR_OUTPUT ClfromCLNO3 = ; ! NOz production rates IRR_OUTPUT NOZfrNOX = PANcyc[POSONLY] + PANXcyc[POSONLY] + OPANcyc[POSONLY] + HONOcyc[POSONLY] + PNAcyc[POSONLY] + NO3cyc[POSONLY] + N2O5cyc[POSONLY] + CLNO3cyc[POSONLY] +PROD[NTR] FROM [NOX] + PROD[HNO3] FROM [NOX]; ! O3 production efficiency = p(O3)/p(NOz)= O3prod/NOZfromNOX IRR_OUTPUT O3prod = NETP[O3]; ! HNO3 formation pathways IRR_OUTPUT HNO3prod = PROD[HNO3]; IRR_OUTPUT HNO3fromOHNO2 = ; IRR_OUTPUT HNO3fromhetNTR = ; IRR_OUTPUT HNO3fromN2O5 = + + +; IRR_OUTPUT HNO3fromNO3 = PROD[HNO3] FROM [NO3]; IRR_OUTPUT HNO3frCLNO3 = + ; ! alkyl nitrate pathways ! IRR_OUTPUT NTRprod = NETP[NTR]; IRR_OUTPUT NTRfromISOP = PROD[NTR] FROM [ISOP] + PROD[NTR] FROM [ISPD]; IRR_OUTPUT NTRfromTERP = PROD[NTR] FROM [TERP]; IRR_OUTPUT XO2NfromISOP = PROD[XO2N] FROM [ISOP] + PROD[XO2N] FROM [ISPD]; IRR_OUTPUT XO2NfromTERP = PROD[XO2N] FROM [TERP]; IRR_OUTPUT XO2NfromALKx = PROD[XO2N] FROM [PAR]; IRR_OUTPUT XO2Nprod = PROD[XO2N]; IRR_OUTPUT NTRfromXO2N = PROD[NTR] FROM [XO2N]; ! ENDPA; ================================================ FILE: CCTM/src/MECHS/cb6r5_ae7_aqkmt2/AE_cb6r5_ae7_aq.nml ================================================ &AE_nml AE_SPECIES_DATA = !SPECIES ,MOLWT ,Aitken ,Accum ,Coarse ,OPTICS ,IC ,ICFAC ,BC ,BC_FAC ,DRYDEP SURR ,FAC ,WET-SCAV SURR ,FAC ,AE2AQ SURR ,TRNS ,DDEP ,WDEP ,CONC 'ASO4' , 96.00 ,T ,T ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'SO4' , 1 ,'SO4' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ANH4' , 18.00 ,T ,T ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'NH4' , 1 ,'NH4' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ANO3' , 62.00 ,T ,T ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'NO3' , 1 ,'NO3' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ANA' , 23.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'NA' , 1 ,'NA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ACL' , 35.50 ,T ,T ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'CL' , 1 ,'CL' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AISO1' ,132.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AISO2' ,133.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ASQT' ,273.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AORGC' ,177.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'AORGC' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AEC' , 12.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'EC' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AOTHR' ,200.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'PRI' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AFE' , 55.80 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'FE' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AAL' , 27.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'PRI' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ASI' , 28.10 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'PRI' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ATI' , 47.90 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'PRI' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ACA' , 40.10 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'CA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AMG' , 24.30 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'MG' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AK' , 39.10 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'K' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AMN' , 54.90 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'MN' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ACORS' ,100.00 ,F ,F ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'ANTH' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ASOIL' ,100.00 ,F ,F ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'SOIL' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'NUM' , 1.00 ,T ,T ,T ,'' ,'' ,-1 ,'' ,-1 ,'VNUM' , 1 ,'NUM' , 1 ,'NUM' ,'Yes' ,'' ,'' ,'Yes', 'SRF' , 1.00 ,T ,T ,T ,'' ,'' ,-1 ,'' ,-1 ,'VSRF' , 1 ,'SRF' , 1 ,'SRF' ,'Yes' ,'' ,'' ,'Yes', 'AORGH2O' , 18.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'H2O' , 1 ,'H2O' ,'Yes' ,'' ,'' ,'Yes', 'AH2O' , 18.00 ,T ,T ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'H2O' , 1 ,'H2O' ,'Yes' ,'' ,'' ,'Yes', 'AH3OP' , 19.00 ,T ,T ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'' ,-1 ,'' ,'Yes' ,'' ,'' ,'Yes', 'ASEACAT' , 23.75 ,F ,F ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'SEAS' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AISO3' ,168.20 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'ISO3' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AOLGA' ,206.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AOLGB' ,248.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AGLY' , 66.40 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AMTNO3' ,231.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AMTHYD' ,168.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'APOC' ,220.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'APNCOM' ,220.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'APCSO' ,170.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ALVPO1' ,218.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ASVPO1' ,230.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ASVPO2' ,241.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ASVPO3' ,253.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AIVPO1' ,266.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ALVOO1' ,136.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ALVOO2' ,136.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ASVOO1' ,135.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ASVOO2' ,135.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ASVOO3' ,134.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AAVB1' ,198.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AAVB2' ,179.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AAVB3' ,169.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AAVB4' ,158.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AMT1' ,300.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AMT2' ,200.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AMT3' ,186.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AMT4' ,184.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AMT5' ,170.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AMT6' ,168.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', / ================================================ FILE: CCTM/src/MECHS/cb6r5_ae7_aqkmt2/GC_cb6r5_ae7_aq.nml ================================================ &GC_nml GC_SPECIES_DATA = !SPECIES ,MOLWT ,IC ,IC_FAC ,BC ,BC_FAC ,DRYDEP SURR ,FAC ,WET-SCAV SURR ,FAC ,GC2AE SURR ,GC2AQ SURR,TRNS ,DDEP ,WDEP ,CONC 'NO2' , 46.0 ,'' ,-1 ,'' ,-1 ,'VD_NO2' , 1 ,'NO2' , 1 ,'NO2' ,'NO2' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'NO' , 30.0 ,'' ,-1 ,'' ,-1 ,'VD_NO' , 1 ,'NO' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'O' , 16.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'O3' , 48.0 ,'' ,-1 ,'' ,-1 ,'VD_O3' , 1 ,'O3' , 1 ,'' ,'O3' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'NO3' , 62.0 ,'' ,-1 ,'' ,-1 ,'VD_NO3' , 1 ,'NO3' , 1 ,'' ,'NO3RAD' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'O1D' , 16.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'OH' , 17.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'OH' ,'HO' ,'' ,'' ,'' ,'Yes', 'HO2' , 33.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'HO2' ,'' ,'' ,'' ,'Yes', 'H2O2' , 34.0 ,'' ,-1 ,'' ,-1 ,'VD_H2O2' , 1 ,'H2O2' , 1 ,'' ,'H2O2' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'N2O5' ,108.0 ,'' ,-1 ,'' ,-1 ,'VD_N2O5' , 1 ,'N2O5' , 1 ,'N2O5' ,'N2O5' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'HNO3' , 63.0 ,'' ,-1 ,'' ,-1 ,'VD_HNO3' , 1 ,'HNO3' , 1 ,'HNO3' ,'HNO3' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'HONO' , 47.0 ,'' ,-1 ,'' ,-1 ,'VD_HONO' , 1 ,'HNO2' , 1 ,'HONO' ,'HONO' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'PNA' , 79.0 ,'' ,-1 ,'' ,-1 ,'VD_PNA' , 1 ,'HNO4' , 1 ,'' ,'HNO4' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SO2' , 64.0 ,'' ,-1 ,'' ,-1 ,'VD_SO2' , 1 ,'SO2' , 1 ,'' ,'SO2' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SULF' , 98.0 ,'' ,-1 ,'' ,-1 ,'VD_SULF' , 1 ,'H2SO4' , 1 ,'SULF' ,'H2SO4' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SULRXN' , 98.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'SULPRD' ,'' ,'' ,'' ,'' ,'' , 'C2O3' , 75.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'MEO2' , 47.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'CH3O2' ,'' ,'' ,'' ,'Yes', 'RO2' , 87.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'PAN' ,121.0 ,'' ,-1 ,'' ,-1 ,'VD_PAN' , 1 ,'PAN' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'PACD' , 76.0 ,'' ,-1 ,'' ,-1 ,'VD_PAA' , 1 ,'PEROXYACETIC_ACI', 1 ,'' ,'PAA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AACD' , 60.0 ,'' ,-1 ,'' ,-1 ,'VD_ORA' , 1 ,'ACETIC_ACID' , 1 ,'' ,'CCOOH' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'CXO3' , 89.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'ALD2' , 44.0 ,'' ,-1 ,'' ,-1 ,'VD_ALD' , 1 ,'ACETALDEHYDE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'XO2H' , 87.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'PANX' ,135.0 ,'' ,-1 ,'' ,-1 ,'VD_PPN' , 1 ,'PPN' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'FORM' , 30.0 ,'' ,-1 ,'' ,-1 ,'VD_HCHO' , 1 ,'FORMALDEHYDE' , 1 ,'' ,'HCHO' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'MEPX' , 48.0 ,'' ,-1 ,'' ,-1 ,'VD_OP' , 1 ,'METHYLHYDROPEROX', 1 ,'' ,'MHP' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'MEOH' , 32.0 ,'' ,-1 ,'' ,-1 ,'VD_METHANOL' , 1 ,'METHANOL' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ROOH' , 90.1 ,'' ,-1 ,'' ,-1 ,'VD_ROOH' , 1 ,'METHYLHYDROPEROX', 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'XO2' , 87.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'XO2N' , 87.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'XPAR' , 45.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'XPRP' , 89.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'NTR1' ,119.1 ,'' ,-1 ,'' ,-1 ,'VD_NTRALK' , 1 ,'NTR_ALK' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'NTR2' ,135.1 ,'' ,-1 ,'' ,-1 ,'VD_NTROH' , 1 ,'NTR_OH' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'FACD' , 46.0 ,'' ,-1 ,'' ,-1 ,'VD_FACD' , 1 ,'FORMIC_ACID' , 1 ,'' ,'FOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'CO' , 28.0 ,'' ,-1 ,'' ,-1 ,'VD_CO' , 1 ,'CO' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'HCO3' , 63.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'ALDX' , 58.1 ,'' ,-1 ,'' ,-1 ,'VD_GEN_ALD' , 1 ,'GENERIC_ALDEHYDE', 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'GLYD' , 60.0 ,'' ,-1 ,'' ,-1 ,'VD_GLYD' , 1 ,'GLYOXAL' , 1 ,'' ,'GCOL' ,'Yes' ,'Yes' ,'' ,'Yes', 'GLY' , 58.0 ,'' ,-1 ,'' ,-1 ,'VD_GLY' , 1 ,'GLYOXAL' , 1 ,'' ,'GLY' ,'Yes' ,'Yes' ,'' ,'Yes', 'MGLY' , 72.0 ,'' ,-1 ,'' ,-1 ,'VD_MGLY' , 1 ,'METHYL_GLYOXAL' , 1 ,'' ,'MGLY' ,'Yes' ,'Yes' ,'' ,'Yes', 'ETHA' , 30.1 ,'' ,-1 ,'' ,-1 ,'VD_ETHA' , 1 ,'ETHANE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'ETOH' , 46.1 ,'' ,-1 ,'' ,-1 ,'VD_ETOH' , 1 ,'ETHANOL' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'KET' , 72.1 ,'' ,-1 ,'' ,-1 ,'VD_KET' , 1 ,'MEK' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'PAR' , 14.0 ,'' ,-1 ,'' ,-1 ,'VD_PAR' , 1 ,'ETHANE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'ACET' , 58.1 ,'' ,-1 ,'' ,-1 ,'VD_ACET' , 1 ,'ACETONE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'PRPA' , 44.1 ,'' ,-1 ,'' ,-1 ,'VD_PRPA' , 1 ,'PROPANE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'ROR' , 29.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'ETHY' , 26.0 ,'' ,-1 ,'' ,-1 ,'VD_ETHY' , 1 ,'ACETYLENE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'ETH' , 28.0 ,'' ,-1 ,'' ,-1 ,'VD_ETH' , 1 ,'ETHENE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'OLE' , 42.1 ,'' ,-1 ,'' ,-1 ,'VD_OLE' , 1 ,'ETHENE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'IOLE' , 56.1 ,'' ,-1 ,'' ,-1 ,'VD_IOLE' , 1 ,'ETHENE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'ISOP' , 68.1 ,'' ,-1 ,'' ,-1 ,'VD_ISOP' , 1 ,'ISOPRENE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'ISO2' ,117.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'ISOPRXN' , 68.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'ISOPRXN' ,'' ,'' ,'' ,'' ,'' , 'ISPD' , 70.1 ,'' ,-1 ,'' ,-1 ,'VD_ISPD' , 1 ,'METHACROLEIN' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'INTR' ,147.1 ,'' ,-1 ,'' ,-1 ,'VD_INTR' , 1 ,'NTR_OH' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ISPX' ,118.1 ,'' ,-1 ,'' ,-1 ,'VD_ISPX' , 1 ,'METHYLHYDROPEROX', 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'HPLD' ,116.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'OPO3' ,115.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'EPOX' ,118.1 ,'' ,-1 ,'' ,-1 ,'VD_IEPOX' , 1 ,'MEK' , 1 ,'' ,'IEPOX' ,'Yes' ,'Yes' ,'' ,'Yes', 'IEPOXP' ,118.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'EPX2' ,149.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'TERP' ,136.2 ,'' ,-1 ,'' ,-1 ,'VD_TERP' , 1 ,'PINENE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'APIN' ,136.2 ,'' ,-1 ,'' ,-1 ,'VD_TERP' , 1 ,'PINENE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'TERPNRO2' ,197.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'MTNO3' ,231.0 ,'' ,-1 ,'' ,-1 ,'VD_MTNO3' , 1 ,'MTNO3' , 1 ,'MTNO3' ,'MTNO3' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'TRPRXN' ,136.2 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'TRPRXN' ,'' ,'' ,'' ,'' ,'' , 'BENZENE' , 78.1 ,'' ,-1 ,'' ,-1 ,'VD_BENZ' , 1 ,'BENZENE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'CRES' ,108.1 ,'' ,-1 ,'' ,-1 ,'VD_CRES' , 1 ,'2-CRESOL' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'BZO2' ,159.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'OPEN' , 84.0 ,'' ,-1 ,'' ,-1 ,'VD_OPEN' , 1 ,'METHACROLEIN' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'BENZRO2' ,127.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'TOL' , 92.1 ,'' ,-1 ,'' ,-1 ,'VD_TOL' , 1 ,'TOLUENE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'TO2' ,173.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'TOLRO2' ,141.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'XOPN' , 98.1 ,'' ,-1 ,'' ,-1 ,'VD_XOPN' , 1 ,'MEK' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'XYLMN' ,106.2 ,'' ,-1 ,'' ,-1 ,'VD_XYLMN' , 1 ,'O-XYLENE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'XLO2' ,187.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'XYLRO2' ,155.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'NAPH' ,128.2 ,'' ,-1 ,'' ,-1 ,'VD_NAPH' , 1 ,'O-XYLENE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'PAHRO2' ,187.2 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'CRO' ,107.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'CAT1' ,124.1 ,'' ,-1 ,'' ,-1 ,'VD_CAT1' , 1 ,'PHENOL' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'CRON' ,153.1 ,'' ,-1 ,'' ,-1 ,'VD_METH_NIT_PHEN', 1 ,'6_NITRO_O_CRESOL', 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'OPAN' ,161.0 ,'' ,-1 ,'' ,-1 ,'VD_MPAN' , 1 ,'MPAN' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ECH4' , 16.0 ,'' ,-1 ,'' ,-1 ,'VD_METHANE' , 1 ,'METHANE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'CL2' , 71.0 ,'' ,-1 ,'' ,-1 ,'VD_CL2' , 1 ,'CL2' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'CL' , 35.5 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'HOCL' , 52.5 ,'' ,-1 ,'' ,-1 ,'VD_HOCL' , 1 ,'HOCL' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'CLO' , 51.5 ,'' ,-1 ,'' ,-1 ,'VD_CLO' , 1 ,'CLO' , 1 ,'' ,'' ,'YES' ,'' ,'' ,'Yes', 'FMCL' , 64.5 ,'' ,-1 ,'' ,-1 ,'VD_FMCL' , 1 ,'FMCL' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'HCL' , 36.5 ,'' ,-1 ,'' ,-1 ,'VD_HCL' , 1 ,'HCL' , 1 ,'HCL' ,'HCL' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'CLNO2' , 81.5 ,'' ,-1 ,'' ,-1 ,'VD_CLNO2' , 1 ,'NITRYL_CHLORIDE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'CLNO3' , 97.5 ,'' ,-1 ,'' ,-1 ,'VD_CLNO3' , 1 ,'CLNO3' , 1 ,'CLNO3' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SESQ' ,204.0 ,'' ,-1 ,'' ,-1 ,'VD_SESQ' , 1 ,'PINENE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'SESQRXN' ,204.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'SESQRXN' ,'' ,'' ,'' ,'' ,'' , 'SOAALK' ,112.0 ,'' ,-1 ,'' ,-1 ,'VD_SOAALK' , 1 ,'DECANE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'H2NO3PIJ' , 64.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'H2NO3PK' , 64.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'VLVPO1' ,218.0 ,'' ,-1 ,'' ,-1 ,'VD_VLVPO1' , 1 ,'ADIPIC_ACID' , 1 ,'VLVPO1' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'VSVPO1' ,230.0 ,'' ,-1 ,'' ,-1 ,'VD_VSVPO1' , 1 ,'ADIPIC_ACID' , 1 ,'VSVPO1' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'VSVPO2' ,241.0 ,'' ,-1 ,'' ,-1 ,'VD_VSVPO2' , 1 ,'ADIPIC_ACID' , 1 ,'VSVPO2' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'VSVPO3' ,253.0 ,'' ,-1 ,'' ,-1 ,'VD_VSVPO3' , 1 ,'ADIPIC_ACID' , 1 ,'VSVPO3' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'VIVPO1' ,266.0 ,'' ,-1 ,'' ,-1 ,'VD_VIVPO1' , 1 ,'ADIPIC_ACID' , 1 ,'VIVPO1' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'VLVOO1' ,136.0 ,'' ,-1 ,'' ,-1 ,'VD_VLVOO1' , 1 ,'ADIPIC_ACID' , 1 ,'VLVOO1' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'VLVOO2' ,136.0 ,'' ,-1 ,'' ,-1 ,'VD_VLVOO2' , 1 ,'ADIPIC_ACID' , 1 ,'VLVOO2' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'VSVOO1' ,135.0 ,'' ,-1 ,'' ,-1 ,'VD_VSVOO1' , 1 ,'ADIPIC_ACID' , 1 ,'VSVOO1' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'VSVOO2' ,135.0 ,'' ,-1 ,'' ,-1 ,'VD_VSVOO2' , 1 ,'ADIPIC_ACID' , 1 ,'VSVOO2' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'VSVOO3' ,134.0 ,'' ,-1 ,'' ,-1 ,'VD_VSVOO3' , 1 ,'ADIPIC_ACID' , 1 ,'VSVOO3' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'PCVOC' ,170.0 ,'' ,-1 ,'' ,-1 ,'VD_PCVOC' , 1 ,'GENERIC_ALDEHYDE', 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'PCSOARXN' ,170.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'PCSOARXN' ,'' ,'' ,'' ,'' ,'' , 'FORM_PRIMARY' , 30.0 ,'' ,-1 ,'' ,-1 ,'VD_HCHO' , 1 ,'FORMALDEHYDE' , 1 ,'' ,'HCHOP' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ALD2_PRIMARY' , 44.0 ,'' ,-1 ,'' ,-1 ,'VD_ALD' , 1 ,'ACETALDEHYDE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'BUTADIENE13' , 54.0 ,'' ,-1 ,'' ,-1 ,'VD_BUTADIENE13' , 1 ,'13-BUTADIENE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'ACROLEIN' , 56.1 ,'' ,-1 ,'' ,-1 ,'VD_ACROLEIN' , 1 ,'ACROLEIN' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'ACRO_PRIMARY' , 56.1 ,'' ,-1 ,'' ,-1 ,'VD_ACROLEIN' , 1 ,'ACROLEIN' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'TOLU' , 92.0 ,'' ,-1 ,'' ,-1 ,'VD_TOL' , 1 ,'TOLUENE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'HG' ,200.6 ,'' ,-1 ,'' ,-1 ,'VD_HG' , 1 ,'HG' , 1 ,'' ,'HG' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'HGIIAER' ,200.6 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'PHGRXN' ,'' ,'' ,'' ,'' ,'' , 'HGIIGAS' ,271.5 ,'' ,-1 ,'' ,-1 ,'VD_HGIIGAS' , 1 ,'HGIIGAS' , 1 ,'' ,'HGIIGAS' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SVAVB1' ,198.0 ,'' ,-1 ,'' ,-1 ,'VD_SVAVB1' , 1 ,'SVAVB1' , 1 ,'SVAVB1' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SVAVB2' ,179.0 ,'' ,-1 ,'' ,-1 ,'VD_SVAVB2' , 1 ,'SVAVB2' , 1 ,'SVAVB2' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SVAVB3' ,169.0 ,'' ,-1 ,'' ,-1 ,'VD_SVAVB3' , 1 ,'SVAVB3' , 1 ,'SVAVB3' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SVAVB4' ,158.0 ,'' ,-1 ,'' ,-1 ,'VD_SVAVB4' , 1 ,'SVAVB4' , 1 ,'SVAVB4' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'DMS' , 62.0 ,'' ,-1 ,'' ,-1 ,'VD_DMS' , 1 ,'DMS' , 1 ,'' ,'' ,'Yes' , '' ,'' ,'Yes', 'MSA' , 96.0 ,'' ,-1 ,'' ,-1 ,'VD_MSA' , 1 ,'MSA' , 1 ,'' ,'' ,'Yes' , '' ,'' ,'Yes', / ================================================ FILE: CCTM/src/MECHS/cb6r5hap_ae7_aq/AE_cb6r5hap_ae7_aq.nml ================================================ &AE_nml AE_SPECIES_DATA = !SPECIES ,MOLWT ,Aitken ,Accum ,Coarse ,OPTICS ,IC ,ICFAC ,BC ,BC_FAC ,DRYDEP SURR ,FAC ,WET-SCAV SURR ,FAC ,AE2AQ SURR ,TRNS ,DDEP ,WDEP ,CONC 'ASO4' , 96.00 ,T ,T ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'SO4' , 1 ,'SO4' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ANH4' , 18.00 ,T ,T ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'NH4' , 1 ,'NH4' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ANO3' , 62.00 ,T ,T ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'NO3' , 1 ,'NO3' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ANA' , 23.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'NA' , 1 ,'NA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ACL' , 35.50 ,T ,T ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'CL' , 1 ,'CL' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AISO1' ,132.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AISO2' ,133.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ASQT' ,273.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AORGC' ,177.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'AORGC' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AEC' , 12.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'EC' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AOTHR' ,200.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'PRI' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AFE' , 55.80 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'FE' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AAL' , 27.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'PRI' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ASI' , 28.10 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'PRI' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ATI' , 47.90 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'PRI' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ACA' , 40.10 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'CA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AMG' , 24.30 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'MG' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AK' , 39.10 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'K' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AMN' , 54.90 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'MN' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ACORS' ,100.00 ,F ,F ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'ANTH' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ASOIL' ,100.00 ,F ,F ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'SOIL' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'NUM' , 1.00 ,T ,T ,T ,'' ,'' ,-1 ,'' ,-1 ,'VNUM' , 1 ,'NUM' , 1 ,'NUM' ,'Yes' ,'' ,'' ,'Yes', 'SRF' , 1.00 ,T ,T ,T ,'' ,'' ,-1 ,'' ,-1 ,'VSRF' , 1 ,'SRF' , 1 ,'SRF' ,'Yes' ,'' ,'' ,'Yes', 'AORGH2O' , 18.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'H2O' , 1 ,'H2O' ,'Yes' ,'' ,'' ,'Yes', 'AH2O' , 18.00 ,T ,T ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'H2O' , 1 ,'H2O' ,'Yes' ,'' ,'' ,'Yes', 'AH3OP' , 19.00 ,T ,T ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'' ,-1 ,'' ,'Yes' ,'' ,'' ,'Yes', 'ASEACAT' , 23.75 ,F ,F ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'SEAS' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AISO3' ,168.20 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AOLGA' ,206.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AOLGB' ,248.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AGLY' , 66.40 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AMTNO3' ,231.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AMTHYD' ,168.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'APOC' ,220.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'APNCOM' ,220.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'APCSO' ,170.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ALVPO1' ,218.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ASVPO1' ,230.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ASVPO2' ,241.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ASVPO3' ,253.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AIVPO1' ,266.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ALVOO1' ,136.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ALVOO2' ,136.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ASVOO1' ,135.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ASVOO2' ,135.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ASVOO3' ,134.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AAVB1' ,198.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AAVB2' ,179.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AAVB3' ,169.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AAVB4' ,158.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AMT1' ,300.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AMT2' ,200.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AMT3' ,186.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AMT4' ,184.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AMT5' ,170.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AMT6' ,168.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ANI' , 58.70 ,T ,T ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'TRACER' , 1 ,'TRACER' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ACR_VI' , 52.00 ,T ,T ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'TRACER' , 1 ,'TRACER' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ACR_III' , 52.00 ,T ,T ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'TRACER' , 1 ,'TRACER' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ABE' , 9.00 ,T ,T ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'TRACER' , 1 ,'TRACER' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'APB' ,207.20 ,T ,T ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'TRACER' , 1 ,'TRACER' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ADE_OTHR',200.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'TRACER' , 1 ,'TRACER' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ADE_EC' , 12.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'TRACER' , 1 ,'TRACER' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ADE_OC' ,220.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'TRACER' , 1 ,'TRACER' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ADE_NO3' , 62.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'TRACER' , 1 ,'TRACER' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ADE_SO4' , 96.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'TRACER' , 1 ,'TRACER' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ADE_CORS',100.00 ,F ,F ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'TRACER' , 1 ,'TRACER' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ACD' ,112.40 ,T ,T ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'TRACER' , 1 ,'TRACER' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AMN_HAPS', 54.90 ,T ,T ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'TRACER' , 1 ,'TRACER' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'APHG' ,200.50 ,T ,T ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'TRACER' , 1 ,'PHG' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AAS' , 74.92 ,T ,T ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'TRACER' , 1 ,'TRACER' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ABENAPY' ,252.30 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'TRACER' , 1 ,'TRACER' ,'Yes' ,'Yes' ,'Yes' ,'Yes', / ================================================ FILE: CCTM/src/MECHS/cb6r5hap_ae7_aq/CMAQ_Control_DESID_cb6r5hap_ae7_aq.nml ================================================ !------------------------------------------------------------------------------! ! Emission Control Interface ! ! for the ! ! Detailed Emissions Scaling, Isolation, and Diagnostics (DESID) Module, ! ! part of the ! ! Community Multiscale Air Quality (CMAQ) Model ! ! developed and maintained by the ! ! Center for Environmental Measurement and Modeling (CEMM), ! ! Office of Research and Development (ORD) ! ! U.S. Environmental Protection Agency (USEPA) ! ! ! ! This namelist is consistent with CMAQv5.4 (Release AUGUST 2022) ! ! ! ! See CMAQ User's Guide Appendix B (https://github.com/USEPA/CMAQ/blob/main/ ! ! DOCS/Users_Guide/Appendix/CMAQ_UG_appendixB_emissions_control.md) ! ! and Murphy et al., Geoscientific Model Development, 14, 3407-3420, ! ! https://doi.org/10.5194/gmd-14-3407-2021, 2021. ! !------------------------------------------------------------------------------! !------------------------------------------------------------------------------! ! Emissions Scaling Rule Specification Component ! ! Each rule is presented as a row of inputs. The syntax of the ! ! emissions scaling rules is the following: ! ! EM_INSTR(I) = 'Region Label', 'Stream Label', 'Emission-Species', ! ! 'CMAQ-Species', 'Phase/Mode', 'Scale Factor', 'Basis', ! ! 'Operation' ! ! ! ! See the User's Guide for detailed definitions of each field. ! ! ! ! You may confirm the effect of the (default and custom) rules below by ! ! inspecting the processor-dependent log files ("CTM_LOG_XXX...") ! ! ! ! Note: If no rules are provided for a species, then there is no emission ! ! of that species. ! !------------------------------------------------------------------------------! &Desid_ScalingVars Desid_Max_Rules = 2000 / &Desid_Scaling Desid_Rules_nml = ! Region | Stream Label |Emission | CMAQ- |Phase/|Scale |Basis |Op ! Label | |Species | Species |Mode |Factor| | ! Gases 'EVERYWHERE', 'ALL' ,'NO2' ,'NO2' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'NO' ,'NO' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'HONO' ,'HONO' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'SO2' ,'SO2' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'NH3' ,'NH3' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'AACD' ,'AACD' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'ALD2' ,'ALD2' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'FORM' ,'FORM' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'MEOH' ,'MEOH' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'FACD' ,'FACD' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'CO' ,'CO' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'ALDX' ,'ALDX' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'ETHA' ,'ETHA' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'ETOH' ,'ETOH' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'KET' ,'KET' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PAR' ,'PAR' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'ACET' ,'ACET' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PRPA' ,'PRPA' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'ETHY' ,'ETHY' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'ETH' ,'ETH' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'OLE' ,'OLE' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'IOLE' ,'IOLE' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'ISOP' ,'ISOP' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'APIN' ,'APIN' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'TERP' ,'TERP' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'BENZ' ,'BENZENE' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'TOL' ,'TOL' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'XYLMN' ,'XYLMN' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'NAPH' ,'NAPH' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'CH4' ,'ECH4' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'CL2' ,'CL2' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'HCL' ,'HCL' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'SESQ' ,'SESQ' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'SOAALK' ,'SOAALK' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'ACROLEIN','ACROLEIN' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'ALD2_PRIMARY','ALD2_PRIMARY','GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'FORM_PRIMARY','FORM_PRIMARY','GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'ACROLEIN','ACRO_PRIMARY','GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'BUTADIENE13','BUTADIENE13' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'TOLU' ,'TOLU' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'HGNRVA' ,'HG' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'HGIIGAS','HGIIGAS' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'SULF' ,'SULF' ,'GAS' ,0. ,'UNIT','a', ! Marine Halogen Chemistry 'EVERYWHERE', 'ALL' ,'DMS' ,'DMS' ,'GAS' ,1. ,'UNIT','a', ! Optional Air Toxics in NR namelist, comment out species if the NR namelist ! does not include one or more of them. 'EVERYWHERE', 'ALL' ,'ACRYLONITRILE','ACRY_NITRILE', 'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'CARBONTET','CARBONTET', 'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PROPDICHLORIDE','PROPYL_DICL', 'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'DICHLOROPROPENE','DICL_PROPENE', 'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'CL4_ETHANE1122','CL4_ETHANE', 'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'CHCL3','CHCL3', 'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'BR2_C2_12','BR2_C2_12', 'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'CL2_C2_12','CL2_C2_12', 'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'ETOX','ETOX', 'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'CL2_ME','CL2_ME', 'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'CL4_ETHE','CL4_ETHE', 'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'CL3_ETHE','CL3_ETHE', 'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'CL_ETHE','CL_ETHE', 'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'NAPH','NAPHTHALENE', 'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'QUINOLINE','QUINOLINE', 'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'HEXAMETHY_DIIS','HEXMETH_DIS', 'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'HYDRAZINE','HYDRAZINE', 'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'MAL_ANHYDRIDE','MAL_ANHYDRID', 'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'TOL_DIIS','TOL_DIIS', 'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'TRIETHYLAMINE','TRIETHYLAMIN', 'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'DICHLOROBENZENE','DICL_BENZENE', 'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'ACETONITRILE','ACET_NITRILE', 'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'XYLENES','XYLENE', 'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'STYRENE','STYRENE', 'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'ACRYLICACID','ACRYACID', 'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'HEXANE','HEXANE', 'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'METHCHLORIDE','METHCHLORIDE', 'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'CARBSULFIDE','CARBSULFIDE', 'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'CHLOROPRENE','CHLOROPRENE', 'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'ETHYLBENZ','ETHYLBENZENE', 'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'BENZOAPYRNE','BENAPY', 'GAS' ,1. ,'UNIT','a', ! Inert Tracers of PAH congeners for simple exposure assessments 'EVERYWHERE', 'ALL' , 'PAH_000E0', 'PAH_000E0', 'GAS',1.0 ,'UNIT','a', 'EVERYWHERE', 'ALL' , 'PAH_176E5', 'PAH_176E5', 'GAS',1.0 ,'UNIT','a', 'EVERYWHERE', 'ALL' , 'PAH_880E5', 'PAH_880E5', 'GAS',1.0 ,'UNIT','a', 'EVERYWHERE', 'ALL' , 'PAH_176E4', 'PAH_176E4', 'GAS',1.0 ,'UNIT','a', 'EVERYWHERE', 'ALL' , 'PAH_176E3', 'PAH_176E3', 'GAS',1.0 ,'UNIT','a', 'EVERYWHERE', 'ALL' , 'PAH_192E3', 'PAH_192E3', 'GAS',1.0 ,'UNIT','a', 'EVERYWHERE', 'ALL' , 'PAH_101E2', 'PAH_101E2', 'GAS',1.0 ,'UNIT','a', 'EVERYWHERE', 'ALL' , 'PAH_176E2', 'PAH_176E2', 'GAS',1.0 ,'UNIT','a', 'EVERYWHERE', 'ALL' , 'PAH_114E1', 'PAH_114E1', 'GAS',1.0 ,'UNIT','a', ! Default Aerosols 'EVERYWHERE', 'ALL' ,'SULF' ,'ASO4' ,'FINE' ,1. ,'MASS','a', 'EVERYWHERE', 'ALL' ,'PSO4' ,'ASO4' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PNH4' ,'ANH4' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PNO3' ,'ANO3' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PCL' ,'ACL' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PNA' ,'ANA' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PEC' ,'AEC' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMOTHR' ,'AOTHR' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PFE' ,'AFE' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PAL' ,'AAL' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PSI' ,'ASI' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PTI' ,'ATI' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PCA' ,'ACA' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMG' ,'AMG' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PK' ,'AK' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMN' ,'AMN' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PH2O' ,'AH2O' ,'FINE' ,1. ,'UNIT','a', ! Coarse-Mode Inorganic Ions Scaling 'EVERYWHERE', 'ALL' ,'PMC' ,'ACORS' ,'COARSE',0.99675,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMC' ,'ASO4' ,'COARSE',0.001 ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMC' ,'ANO3' ,'COARSE',0.00048,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMC' ,'ACL' ,'COARSE',0.00145,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMC' ,'AH2O' ,'COARSE',0.00032,'UNIT','a', ! Particulate Hazardous Air Pollutants (HAPs), can comment individual aerosol ! components across mode if AE namelist does not contain them 'EVERYWHERE', 'ALL' 'NICKEL_F','ANI' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' 'NICKEL_C','ANI' ,'COARSE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' 'CHROMHEX_F','ACR_VI' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' 'CHROMHEX_C','ACR_VI' ,'COARSE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' 'CHROMTRI_F','ACR_III' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' 'CHROMTRI_C','ACR_III' ,'COARSE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' 'BERYLLIUM_F','ABE' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' 'BERYLLIUM_C','ABE' ,'COARSE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' 'LEAD_F','APB' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' 'LEAD_C','APB' ,'COARSE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' 'DIESEL_PMFINE','ADE_OTHR','FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' 'DIESEL_PMEC','ADE_EC' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' 'DIESEL_PMOC','ADE_OC' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' 'DIESEL_PMNO3','ADE_NO3' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' 'DIESEL_PMSO4','ADE_SO4' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' 'DIESEL_PMC','ADE_CORS','COARSE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' 'CADMIUM_F','ACD' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' 'CADMIUM_C','ACD' ,'COARSE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' 'MANGANESE_F','AMN_HAPS','FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' 'MANGANESE_C','AMN_HAPS','COARSE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' 'ARSENIC_F','AAS' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' 'ARSENIC_C','AAS' ,'COARSE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' 'PHGI','APHG' ,'FINE' ,1. ,'UNIT','a', ! Fine-Mode Primary Organic Aerosol Scaling ! --> Nonvolatile POA 'EVERYWHERE', 'ALL' ,'POC' ,'APOC' ,'FINE',0. ,'MASS','a', 'EVERYWHERE', 'ALL' ,'PNCOM' ,'APNCOM' ,'FINE',0. ,'MASS','a', ! --> Semivolatile POA (see CMAQ User's Guide Appendix B.2.2.1) 'EVERYWHERE', 'ALL' ,'POC' ,'VSVPO1' ,'GAS' ,0.045,'MASS','a', 'EVERYWHERE', 'ALL' ,'PNCOM' ,'VSVPO1' ,'GAS' ,0.045,'MASS','a', 'EVERYWHERE', 'ALL' ,'POC' ,'VSVPO2' ,'GAS' ,0.14 ,'MASS','a', 'EVERYWHERE', 'ALL' ,'PNCOM' ,'VSVPO2' ,'GAS' ,0.14 ,'MASS','a', 'EVERYWHERE', 'ALL' ,'POC' ,'VSVPO3' ,'GAS' ,0.18 ,'MASS','a', 'EVERYWHERE', 'ALL' ,'PNCOM' ,'VSVPO3' ,'GAS' ,0.18 ,'MASS','a', 'EVERYWHERE', 'ALL' ,'POC' ,'VIVPO1' ,'GAS' ,0.50 ,'MASS','a', 'EVERYWHERE', 'ALL' ,'PNCOM' ,'VIVPO1' ,'GAS' ,0.50 ,'MASS','a', 'EVERYWHERE', 'ALL' ,'POC' ,'ALVPO1' ,'FINE',0.09 ,'MASS','a', 'EVERYWHERE', 'ALL' ,'PNCOM' ,'ALVPO1' ,'FINE',0.09 ,'MASS','a', 'EVERYWHERE', 'ALL' ,'POC' ,'ASVPO1' ,'FINE',0.045,'MASS','a', 'EVERYWHERE', 'ALL' ,'PNCOM' ,'ASVPO1' ,'FINE',0.045,'MASS','a', ! pcSOA is a CMAQ species introduced to account for missing pathways for SOA ! formation from combustion sources. It accounts for IVOC oxidation as well as ! other phenomena (Murphy et al., ACP, 2017). It was parameterized based on data ! primarily from Los Angeles, where vehicle exhaust continues to dominate. 'EVERYWHERE', 'ALL' ,'POC' ,'PCVOC' ,'GAS' ,6.579,'MASS','a', 'EVERYWHERE', 'ALL' ,'PNCOM' ,'PCVOC' ,'GAS' ,6.579,'MASS','a', ! However, the added pcSOA is probably inappropriate for Fire sources, especially ! in its current configuration. This pathway should be zeroed out for all fire ! and wood-burning related sources. 'EVERYWHERE', 'PT_FIRES' ,'ALL' ,'PCVOC' ,'GAS' ,0.0 ,'MASS','o', 'EVERYWHERE', 'PT_RXFIRES' ,'ALL' ,'PCVOC' ,'GAS' ,0.0 ,'MASS','o', 'EVERYWHERE', 'PT_WILDFIRES' ,'ALL' ,'PCVOC' ,'GAS' ,0.0 ,'MASS','o', 'EVERYWHERE', 'PT_AGFIRES' ,'ALL' ,'PCVOC' ,'GAS' ,0.0 ,'MASS','o', 'EVERYWHERE', 'PT_OTHFIRES' ,'ALL' ,'PCVOC' ,'GAS' ,0.0 ,'MASS','o', 'EVERYWHERE', 'PT_FIRES_MXCA','ALL' ,'PCVOC' ,'GAS' ,0.0 ,'MASS','o', 'EVERYWHERE', 'GR_RES_FIRES' ,'ALL' ,'PCVOC' ,'GAS' ,0.0 ,'MASS','o', ! Wind-Blown Dust and Sea Spray Scaling ! Fine Components 'EVERYWHERE', 'ALL' ,'PMFINE_LVPO1','ALVPO1' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_LVOO1','ALVOO1' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_SO4' ,'ASO4' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_NO3' ,'ANO3' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_CL' ,'ACL' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_NH4' ,'ANH4' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_NA' ,'ANA' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_CA' ,'ACA' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_MG' ,'AMG' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_K' ,'AK' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_FE' ,'AFE' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_AL' ,'AAL' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_SI' ,'ASI' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_TI' ,'ATI' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_MN' ,'AMN' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_H2O' ,'AH2O' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_OTHR' ,'AOTHR' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_CR_III' ,'ACR_III' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_CR_VI' ,'ACR_VI' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_NI' ,'ANI' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_AS' ,'AAS' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_BE' ,'ABE' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_PHG' ,'APHG' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_PB' ,'APB' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_CD' ,'ACD' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_MN_HAPS' ,'AMN_HAPS' ,'FINE',1. ,'UNIT','a', ! Wind-Blown Dust and Sea Spray Scaling ! Coarse Components 'EVERYWHERE', 'ALL' ,'PMCOARSE_SO4','ASO4' ,'COARSE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMCOARSE_NO3','ANO3' ,'COARSE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMCOARSE_CL' ,'ACL' ,'COARSE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMCOARSE_H2O','AH2O' ,'COARSE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMCOARSE_SOIL','ASOIL' ,'COARSE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMCOARSE_SEACAT','ASEACAT' ,'COARSE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMCOARSE_CR_III' ,'ACR_III' ,'COARSE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMCOARSE_CR_VI' ,'ACR_VI' ,'COARSE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMCOARSE_NI' ,'ANI' ,'COARSE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMCOARSE_AS' ,'AAS' ,'COARSE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMCOARSE_BE' ,'ABE' ,'COARSE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMCOARSE_PHG' ,'APHG' ,'COARSE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMCOARSE_PB' ,'APB' ,'COARSE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMCOARSE_CD' ,'ACD' ,'COARSE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMCOARSE_MN_HAPS' ,'AMN_HAPS' ,'COARSE',1. ,'UNIT','a', / ================================================ FILE: CCTM/src/MECHS/cb6r5hap_ae7_aq/NR_cb6r5hap_ae7_aq.nml ================================================ &NR_nml NR_SPECIES_DATA = !SPECIES ,MOLWT ,IC ,IC_FAC ,BC ,BC_FAC ,DRYDEP SURR ,FAC ,WET-SCAV SURR ,FAC ,NR2AE SURR ,NR2AQ SURR,TRNS ,DDEP ,WDEP ,CONC 'NH3' , 17.0 ,'' ,-1 ,'' ,-1 ,'VD_NH3' , 1 ,'NH3' , 1 ,'NH3' ,'NH3' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SVISO1' ,132.0 ,'' ,-1 ,'' ,-1 ,'VD_SVISO1' , 1 ,'SVISO1' , 1 ,'SVISO1' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SVISO2' ,133.0 ,'' ,-1 ,'' ,-1 ,'VD_SVISO2' , 1 ,'SVISO2' , 1 ,'SVISO2' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SVSQT' ,273.0 ,'' ,-1 ,'' ,-1 ,'VD_SVSQT' , 1 ,'SVSQT' , 1 ,'SVSQT' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'LVPCSOG' ,170.0 ,'' ,-1 ,'' ,-1 ,'VD_LVPCSOG' , 1 ,'ADIPIC_ACID' , 1 ,'LVPCSOG' ,'' ,'Yes' ,'' ,'' ,'Yes', 'SVMT1' ,300.0 ,'' ,-1 ,'' ,-1 ,'VD_SVMT1' , 1 ,'SVMT1' , 1 ,'SVMT1' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SVMT2' ,200.0 ,'' ,-1 ,'' ,-1 ,'VD_SVMT2' , 1 ,'SVMT2' , 1 ,'SVMT2' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SVMT3' ,186.0 ,'' ,-1 ,'' ,-1 ,'VD_SVMT3' , 1 ,'SVMT3' , 1 ,'SVMT3' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SVMT4' ,184.0 ,'' ,-1 ,'' ,-1 ,'VD_SVMT4' , 1 ,'SVMT4' , 1 ,'SVMT4' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SVMT5' ,170.0 ,'' ,-1 ,'' ,-1 ,'VD_SVMT5' , 1 ,'SVMT5' , 1 ,'SVMT5' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SVMT6' ,168.0 ,'' ,-1 ,'' ,-1 ,'VD_SVMT6' , 1 ,'SVMT6' , 1 ,'SVMT6' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ACRY_NITRILE' , 53.10 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'ACRYLONITRILE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'CARBONTET' ,153.80 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'CARBONTETRACHLOR', 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'PROPYL_DICL' ,113.00 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'PROPYLENE_DICHLO', 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'DICL_PROPENE' , 99.00 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'13DICHLOROPROPEN', 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'CL4_ETHANE' ,167.90 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'1122-CL4ETHANE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'CHCL3' ,119.40 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'CHLOROFORM' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'BR2_C2_12' ,187.90 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'12DIBROMOETHANE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'CL2_C2_12' , 99.00 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'12DICHLOROETHANE', 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'ETOX' , 44.10 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'ETHYLENE_OXIDE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'CL2_ME' , 84.90 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'METHYLENE_CHLORI', 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'CL4_ETHE' ,165.80 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'PERCHLOROETHYLEN', 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'CL3_ETHE' ,131.40 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'TRICHLOROETHENE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'CL_ETHE' , 62.50 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'VINYL_CHLORIDE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'NAPHTHALENE' ,128.20 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'NAPHTHALENE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'QUINOLINE' ,129.20 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'QUINOLINE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'HEXMETH_DIS' ,168.20 ,'' ,-1 ,'' ,-1 ,'VD_HEXMETH_DIIS' , 1 ,'HEXAMETHYLE_DIIS', 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'HYDRAZINE' , 32.00 ,'' ,-1 ,'' ,-1 ,'VD_HYDRAZINE' , 1 ,'HYDRAZINE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'MAL_ANHYDRID' , 98.00 ,'' ,-1 ,'' ,-1 ,'VD_MAL_ANHYDRIDE', 1 ,'MALEIC_ANHYDRIDE', 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'TOL_DIIS' ,174.20 ,'' ,-1 ,'' ,-1 ,'VD_TOLUENE_DIIS' , 1 ,'24-TOLUENE_DIIS' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'TRIETHYLAMIN' ,101.20 ,'' ,-1 ,'' ,-1 ,'VD_TRIETHYLAMINE', 1 ,'TRIETHYLAMINE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'DICL_BENZENE' ,147.00 ,'' ,-1 ,'' ,-1 ,'VD_BENZ' , 1 ,'P_DICHLOROBENZEN', 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ACET_NITRILE' , 41.05 ,'' ,-1 ,'' ,-1 ,'VD_ACETONITRILE' , 1 ,'ACETONITRILE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'XYLENE' ,106.20 ,'' ,-1 ,'' ,-1 ,'VD_XYLMN' , 1 ,'M-XYLENE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'STYRENE' ,104.15 ,'' ,-1 ,'' ,-1 ,'VD_TOL' , 1 ,'STYRENE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ACRYACID' , 72.06 ,'' ,-1 ,'' ,-1 ,'VD_ACRYACID' , 1 ,'ACRYACID' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'HEXANE' , 86.00 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'HEXANE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'METHCHLORIDE' , 50.40 ,'' ,-1 ,'' ,-1 ,'' , 1 ,'METHCHLORIDE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'CARBSULFIDE' , 60.10 ,'' ,-1 ,'' ,-1 ,'VD_CARBSULFIDE' , 1 ,'CARBSULFIDE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'CHLOROPRENE' , 88.50 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'CHLOROPRENE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'ETHYLBENZENE' ,106.00 ,'' ,-1 ,'' ,-1 ,'VD_TOL' , 1 ,'ETHYLBENZENE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'BENAPY' ,252.3 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'BENAPY' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'PAH_000E0' ,186.2 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'NAPHTHALENE' ,1.0 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'PAH_176E5' ,197.7 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'NAPHTHALENE' ,1.0 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'PAH_880E5' ,197.9 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'NAPHTHALENE' ,1.0 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'PAH_176E4' ,254.4 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'NAPHTHALENE' ,1.0 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'PAH_176E3' ,259.3 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'NAPHTHALENE' ,1.0 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'PAH_192E3' ,278.3 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'NAPHTHALENE' ,1.0 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'PAH_101E2' ,268.4 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'NAPHTHALENE' ,1.0 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'PAH_176E2' ,302.4 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'NAPHTHALENE' ,1.0 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'PAH_114E1' ,256.3 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'NAPHTHALENE' ,1.0 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes' / ================================================ FILE: CCTM/src/MECHS/cb6r5hap_ae7_aq/SpecDef_Conc_cb6r5hap_ae7_aq.txt ================================================ !#start YYYYJJJ 010000 !#end YYYYJJJ 000000 #layer 1 / ! This Species Definition File is for Use with the COMBINE tool built for ! post-processing CMAQ output. It is compatible with CMAQv5.4. ! Date: May 12 2017 ! Output variables that begin with 'PM' represent those in which a size cut was ! applied based on modeled aerosol mode parameters. For example, PM25_NA is all ! sodium that falls below 2.5 um diameter. These 'PM' variables are used for ! comparisons at IMPROVE and CSN sites. ! Output variables that begin with 'PMAMS' represent the mass that would have ! been detected by an Aerosol Mass Spectrometer. ! Output variables beginning with 'A' (aside from AIR_DENS) represent a ! combination of aerosol species in which no size cut was applied. For example, ! ASO4IJ is the sum of i-mode and j-mode sulfate. These 'A' variables are used ! for comparisons at CASTNet sites. ! Output variables beginning with 'PMC' refer to the coarse fraction of total PM, ! computed by summing all modes and subtracting the PM2.5 fraction. These 'PMC' ! variables are used for comparisons at SEARCH sites. ! This Species Definition File is just for use with the uncoupled, offline CMAQ, ! model. If you are processing WRF-CMAQ results, a different Species Definition ! file is required. / File [1]: CMAQ conc/aconc file / File [2]: METCRO3D file / File [3]: ELMO/AELMO file / File [4]: METCRO2D file / /new species ,units ,expression !-------------------------------------------! !------------- Meteorology -----------------! !-------------------------------------------! AIR_DENS ,kg m-3 ,DENS[2] RH ,% ,100.00*RH[3] SFC_TMP ,C ,(TEMP2[4]-273.15) PBLH ,m ,PBL[4] SOL_RAD ,W m-2 ,RGRND[4] precip ,cm ,RC[4]>=0 ? RN[4]+RC[4] : RN[4] WSPD10 ,m s-1 ,WSPD10[4] WDIR10 ,deg ,WDIR10[4] !-------------------------------------------! !--------------- Gases ---------------------! !-------------------------------------------! ALD2 ,ppbV ,1000.0*ALD2[1] BENZENE ,ppbV ,1000.0*BENZENE[1] CO ,ppbV ,1000.0*CO[1] ETH ,ppbV ,1000.0*ETH[1] ETHA ,ppbV ,1000.0*ETHA[1] FORM ,ppbV ,1000.0*FORM[1] H2O2 ,ppbV ,1000.0*H2O2[1] HNO3 ,ppbV ,1000.0*HNO3[1] HNO3_UGM3 ,ug m-3 ,1000.0*(HNO3[1]*2.1756*DENS[2]) HONO ,ppbV ,1000.0*HONO[1] HOX ,ppbV ,1000.0*(OH[1]+HO2[1]) OH ,ppbV ,1000.0*(OH[1]) ISOP ,ppbV ,1000.0*ISOP[1] N2O5 ,ppbV ,1000.0*N2O5[1] NH3 ,ppbV ,1000.0*NH3[1] NH3_UGM3 ,ug m-3 ,1000.0*(NH3[1]*0.5880*DENS[2]) NHX ,ug m-3 ,1000.0*(NH3[1]*0.5880*DENS[2])+ANH4I[1]+ANH4J[1]+ANH4K[1] NO ,ppbV ,1000.0*NO[1] NO2 ,ppbV ,1000.0*NO2[1] NOX ,ppbV ,1000.0*(NO[1] + NO2[1]) ANO3_PPB ,ppbV ,(ANO3I[1]+ANO3J[1]+ANO3K[1])/(DENS[2]*(62.0/28.97)) NTR ,ppbV ,1000.0*(NTR1[1]+NTR2[1]+INTR[1]) PANS ,ppbV ,1000.0*(PAN[1]+PANX[1]+OPAN[1]) NOY ,ppbV ,1000.0* (NO[1]+NO2[1]+NO3[1]+2*N2O5[1]+HONO[1]+HNO3[1]+PNA[1] \ +CRON[1]+CLNO2[1]+CLNO3[1]) \ +PANS[0]+NTR[0]+ANO3_PPB[0] O3 ,ppbV ,1000.0*O3[1] SO2 ,ppbV ,1000.0*SO2[1] SO2_UGM3 ,ug m-3 ,1000.0*(SO2[1]*2.2118*DENS[2]) TERP ,ppbV ,1000.0*TERP[1] TOL ,ppbV ,1000.0*TOL[1] XYL ,ppbV ,1000.0*XYLMN[1] !! Additional Global, Regional and Urban Toxic gases ACROLEIN ,ug/m3 ,1000.0*(ACROLEIN[1]*1.9365*DENS[2]) ACRY_NITRILE ,ug/m3 ,1000.0*(ACRY_NITRILE[1]*1.8329*DENS[2]) ALD2_UGM3 ,ug/m3 ,1000.0*(ALD2[1]*1.5188*DENS[2]) ALD2_PRIMARY ,ug/m3 ,1000.0*(ALD2_PRIMARY[1]*1.5188*DENS[2]) BENZENE_UGM3 ,ug/m3 ,1000.0*(BENZENE[1]*2.6959*DENS[2]) BR2_C2_12 ,ug/m3 ,1000.0*(BR2_C2_12[1]*6.4860*DENS[2]) BUTADIENE13 ,ug/m3 ,1000.0*(BUTADIENE13[1]*1.8674*DENS[2]) CHCL3 ,ug/m3 ,1000.0*(CHCL3[1]*4.1215*DENS[2]) CL_ETHE ,ug/m3 ,1000.0*(CL_ETHE[1]*2.1574*DENS[2]) CL2 ,ppbV ,1000.0*CL2[1] CL2_C2_12 ,ug/m3 ,1000.0*(CL2_C2_12[1]*3.4173*DENS[2]) CL2_ME ,ug/m3 ,1000.0*(CL2_ME[1]*2.9306*DENS[2]) CL3_ETHE ,ug/m3 ,1000.0*(CL3_ETHE[1]*4.5357*DENS[2]) CL4_ETHE ,ug/m3 ,1000.0*(CL4_ETHE[1]*5.7232*DENS[2]) CL4_ETHANE ,ug/m3 ,1000.0*(CL4_ETHANE[1]*5.7956*DENS[2]) CARBONTET ,ug/m3 ,1000.0*(CARBONTET[1]*5.3089*DENS[2]) DICL_BENZENE ,ug/m3 ,1000.0*(DICL_BENZENE[1]*5.069*DENS[2]) DICL_PROPENE ,ug/m3 ,1000.0*(DICL_PROPENE[1]*3.8316*DENS[2]) ETOH ,ppbV ,1000.0*ETOH[1] ETOX ,ug/m3 ,1000.0*(ETOX[1]*1.5223*DENS[2]) FORM_UGM3 ,ug/m3 ,1000.0*(FORM[1]*1.0356*DENS[2]) FORM_PRIMARY ,ug/m3 ,1000.0*(FORM_PRIMARY[1]*1.0356*DENS[2]) HCL ,ppbV ,1000.0*HCL[1] HEXMETH_DIS ,ug/m3 ,1000.0*(HEXMETH_DIS[1]*5.8000*DENS[2]) HYDRAZINE ,ug/m3 ,1000.0*(HYDRAZINE[1]*3.3793*DENS[2]) MEOH ,ppbV ,1000.0*MEOH[1] XYLENE ,ppbV ,1000.0*XYLENE[1] MAL_ANHYDRID ,ug/m3 ,1000.0*(MAL_ANHYDRID[1]*3.3843*DENS[2]) NAPHTHALENE ,ug/m3 ,1000.0*(NAPHTHALENE[1]*4.4253*DENS[2]) PROPY_DICL ,ug/m3 ,1000.0*(PROPYL_DICL[1]*3.9006*DENS[2]) QUINOLINE ,ug/m3 ,1000.0*(QUINOLINE[1]*4.4598*DENS[2]) TOLU ,ppbV ,1000.0*TOLU[1] TOL_DIIS ,ug/m3 ,1000.0*(TOL_DIIS[1]*6.0069*DENS[2]) TRIETHYLAMIN ,ug/m3 ,1000.0*(TRIETHYLAMIN[1]*3.4986*DENS[2]) ACET_NITRILE ,ug/m3 ,1000.0*(ACET_NITRILE[1]*1.4155*DENS[2]) STYRENE ,ug/m3 ,1000.0*(STYRENE[1]*3.5914*DENS[2]) ACRYACID ,ug/m3 ,1000.0*(ACRYACID[1]*2.4849*DENS[2]) HEXANE ,ug/m3 ,1000.0*(HEXANE[1]*2.9717*DENS[2]) METHCHLORIDE ,ug/m3 ,1000.0*(METHCHLORIDE[1]*1.7410*DENS[2]) CARBSULFIDE ,ug/m3 ,1000.0*(CARBSULFIDE[1]*2.0714*DENS[2]) CHLOROPRENE ,ug/m3 ,1000.0*(CHLOROPRENE[1]*3.0530*DENS[2]) ETHYLBENZENE ,ug/m3 ,1000.0*(ETHYLBENZENE[1]*3.6610*DENS[2]) !! Inert PAH tracers PAH_000E0 ,ug/m3 ,1000.0*(PAH_000E0[1]*6.4340*DENS[2]) PAH_176E5 ,ug/m3 ,1000.0*(PAH_176E5[1]*6.8314*DENS[2]) PAH_880E5 ,ug/m3 ,1000.0*(PAH_880E5[1]*6.8383*DENS[2]) PAH_176E4 ,ug/m3 ,1000.0*(PAH_176E4[1]*8.7907*DENS[2]) PAH_176E3 ,ug/m3 ,1000.0*(PAH_176E3[1]*9.6166*DENS[2]) PAH_192E3 ,ug/m3 ,1000.0*(PAH_192E3[1]*9.2745*DENS[2]) PAH_101E2 ,ug/m3 ,1000.0*(PAH_101E2[1]*10.4493*DENS[2]) PAH_176E2 ,ug/m3 ,1000.0*(PAH_176E2[1]*8.8556*DENS[2]) PAH_114E1 ,ug/m3 ,1000.0*(PAH_114E1[1]*3.3793*DENS[2]) !Mercuric gas species HG_0 ,ng/m3 ,1000.0*(HG[1]*8.3330*DENS[2]*1000.0) HG_II ,ng/m3 ,1000.0*(HGIIGAS[1]*8.3330*DENS[2]*1000.0) !! Unused Gases. Presented Here for illustration. Users can uncomment !! them if they choose. !ALDX ,ppbV ,1000.0*ALDX[1] !CLNO2 ,ppbV ,1000.0*CLNO2[1] !IOLE ,ppbV ,1000.0*IOLE[1] !OLE ,ppbV ,1000.0*OLE[1] !PAR ,ppbV ,1000.0*PAR[1] !PAN ,ppbV ,1000.0*PAN[1] !PANX ,ppbV ,1000.0*PANX[1] !SULF ,ppbV ,1000.0*SULF[1] !VOC ,ppbC ,1000.0* ( PAR[1] + 2.0*ETH[1] + MEOH[1] + 2.0*ETOH[1] \ ! +2.0*OLE[1] + 7.0*TOL[1] + 8.0*XYLMN[1]+ FORM[1] \ ! +2.0*ALD2[1] + 2.0*ETHA[1] + 4.0*IOLE[1] + 2.0*ALDX[1] \ ! +5.0*ISOP[1] + 10.0*TERP[1]+ 10.0*NAPH[1]) !! DMS and MSA. Users can uncomment them if they choose. DMS ,ppbV ,1000.0*DMS[1] MSA ,ppbV ,1000.0*MSA[1] !-------------------------------------------! !--------------- Particles -----------------! !-------------------------------------------! !! Crustal Elements AFEJ ,ug m-3 ,AFEJ[1] AALJ ,ug m-3 ,AALJ[1] ASIJ ,ug m-3 ,ASIJ[1] ATIJ ,ug m-3 ,ATIJ[1] ACAJ ,ug m-3 ,ACAJ[1] AMGJ ,ug m-3 ,AMGJ[1] AKJ ,ug m-3 ,AKJ[1] AMNJ ,ug m-3 ,AMNJ[1] ASOILJ ,ug m-3 ,2.20*AALJ[1]+2.49*ASIJ[1]+1.63*ACAJ[1]+2.42*AFEJ[1]+1.94*ATIJ[1] !! Non-Crustal Inorganic Particle Species AHPLUSIJ ,umol m-3 ,(AH3OPI[1]+AH3OPJ[1])*1.0/19.0 ANAK ,ug m-3 ,0.8373*ASEACAT[1]+0.0626*ASOIL[1]+0.0023*ACORS[1] AMGK ,ug m-3 ,0.0997*ASEACAT[1]+0.0170*ASOIL[1]+0.0032*ACORS[1] AKK ,ug m-3 ,0.0310*ASEACAT[1]+0.0242*ASOIL[1]+0.0176*ACORS[1] ACAK ,ug m-3 ,0.0320*ASEACAT[1]+0.0838*ASOIL[1]+0.0562*ACORS[1] ACLIJ ,ug m-3 ,ACLI[1]+ACLJ[1] AECIJ ,ug m-3 ,AECI[1]+AECJ[1] ANAIJ ,ug m-3 ,ANAJ[1]+ANAI[1] ANO3IJ ,ug m-3 ,ANO3I[1]+ANO3J[1] ANO3K ,ug m-3 ,ANO3K[1] TNO3 ,ug m-3 ,2175.6*(HNO3[1]*DENS[2])+ANO3I[1]+ANO3J[1]+ANO3K[1] ANH4IJ ,ug m-3 ,ANH4I[1]+ANH4J[1] ANH4K ,ug m-3 ,ANH4K[1] ASO4IJ ,ug m-3 ,ASO4I[1]+ASO4J[1] ASO4K ,ug m-3 ,ASO4K[1] !! Organic Particle Species APOCI ,ugC m-3 ,ALVPO1I[1]/1.39 + ASVPO1I[1]/1.32 + ASVPO2I[1]/1.26 \ +APOCI[1] APOCJ ,ugC m-3 ,ALVPO1J[1]/1.39 + ASVPO1J[1]/1.32 + ASVPO2J[1]/1.26 \ +ASVPO3J[1]/1.21 + AIVPO1J[1]/1.17 + APOCJ[1] APOCIJ ,ugC m-3 ,APOCI[0] + APOCJ[0] APOMI ,ug m-3 ,ALVPO1I[1] + ASVPO1I[1] + ASVPO2I[1] + APOCI[1] \ +APNCOMI[1] APOMJ ,ug m-3 ,ALVPO1J[1] + ASVPO1J[1] + ASVPO2J[1] + APOCJ[1] \ +ASVPO3J[1] + AIVPO1J[1] + APNCOMJ[1] APOMIJ ,ug m-3 ,APOMI[0] + APOMJ[0] ASOCI ,ugC m-3 ,ALVOO1I[1]/2.27 + ALVOO2I[1]/2.06 \ +ASVOO1I[1]/1.88 + ASVOO2I[1]/1.73 ASOCJ ,ugC m-3 ,AISO1J[1]/2.20 + AISO2J[1]/2.23 + AISO3J[1]/2.80 \ +AMT1J[1]/1.67 + AMT2J[1]/1.67 + AMT3J[1]/1.72 \ +AMT4J[1]/1.53 + AMT5J[1]/1.57 + AMT6J[1]/1.40 \ +AMTNO3J[1]/1.90 + AMTHYDJ[1]/1.54 \ +AGLYJ[1]/2.13 + ASQTJ[1]/1.52 \ +AORGCJ[1]/2.00 + AOLGBJ[1]/2.10 + AOLGAJ[1]/2.50 \ +ALVOO1J[1]/2.27 + ALVOO2J[1]/2.06 + ASVOO1J[1]/1.88 \ +ASVOO2J[1]/1.73 + ASVOO3J[1]/1.60 \ +AAVB1J[1]/2.70 + AAVB2J[1]/2.35 + AAVB3J[1]/2.17 \ +AAVB4J[1]/1.99 + APCSOJ[1]/2.00 ASOCIJ ,ugC m-3 ,ASOCI[0] + ASOCJ[0] ASOMI ,ug m-3 ,ALVOO1I[1] + ALVOO2I[1] + ASVOO1I[1] + ASVOO2I[1] ASOMJ ,ug m-3 ,+AISO1J[1]+ AISO2J[1] + AISO3J[1] \ +AMT1J[1] + AMT2J[1] + AMT3J[1] \ +AMT4J[1] + AMT5J[1] + AMT6J[1] \ +AMTNO3J[1] + AMTHYDJ[1] \ +AGLYJ[1] + ASQTJ[1] \ +AORGCJ[1] + AOLGBJ[1] + AOLGAJ[1] \ +ALVOO1J[1] + ALVOO2J[1] + ASVOO1J[1] \ +ASVOO2J[1] + ASVOO3J[1] + APCSOJ[1] \ +AAVB1J[1] + AAVB2J[1] + AAVB3J[1] \ +AAVB4J[1] ASOMIJ ,ug m-3 ,ASOMI[0] + ASOMJ[0] AOCI ,ugC m-3 ,APOCI[0] + ASOCI[0] AOCJ ,ugC m-3 ,APOCJ[0] + ASOCJ[0] AOCIJ ,ugC m-3 ,APOCIJ[0] + ASOCIJ[0] AOMI ,ug m-3 ,APOMI[0] + ASOMI[0] AOMJ ,ug m-3 ,APOMJ[0] + ASOMJ[0] AOMIJ ,ug m-3 ,APOMIJ[0] + ASOMIJ[0] !!! Anthropogenic-VOC Derived Organic Aerosol AORGAI ,ug m-3 ,ALVOO1I[1] + ALVOO2I[1] + ASVOO1I[1] \ +ASVOO2I[1] AORGAJ ,ug m-3 ,ALVOO1J[1] + ALVOO2J[1] \ +ASVOO1J[1] + ASVOO2J[1] + ASVOO3J[1] \ +AAVB1J[1] + AAVB2J[1] + AAVB3J[1] \ +AAVB4J[1] + AOLGAJ[1] + APCSOJ[1] AORGAIJ ,ug m-3 ,AORGAI[0] + AORGAJ[0] !!! Biogenic-VOC Derived Organic Aerosol AORGBIJ ,ug m-3 ,AMT1J[1] + AMT2J[1] + AMT3J[1] + AMT4J[1] \ +AMT5J[1] + AMT6J[1] + AMTNO3J[1] \ +AMTHYDJ[1] + AISO1J[1] + AISO2J[1] \ +AISO3J[1] + ASQTJ[1] + AOLGBJ[1] !!! Cloud-Processed SOA AORGCJ ,ug m-3 ,AORGCJ[1] !!! Remaining SOA AGLYJ ,ug m-3 ,AGLYJ[1] !!! OM/OC ratios AOMOCRAT_TOT , ,AOMIJ[0]/AOCIJ[0] !! Total PM Aggregates ATOTI ,ug m-3 ,ASO4I[1] + ANH4I[1] + ANO3I[1] + ANAI[1] \ +ACLI[1] + AECI[1] + AOMI[0] + AOTHRI[1] ATOTJ ,ug m-3 ,ASO4J[1] + ANH4J[1] + ANO3J[1] + ANAJ[1] \ +ACLJ[1] + AECJ[1] + AOMJ[0] + AOTHRJ[1] \ +AFEJ[1] + AALJ[1] + ASIJ[1] + ATIJ[1] \ +ACAJ[1] + AMGJ[1] + AKJ[1] + AMNJ[1] ATOTK ,ug m-3 ,ASO4K[1] + ANH4K[1] + ANO3K[1] + ACLK[1] \ +ACORS[1] + ASOIL[1] + ASEACAT[1] ATOTIJ ,ug m-3 ,ATOTI[0] + ATOTJ[0] ATOTIJK ,ug m-3 ,ATOTI[0] + ATOTJ[0] + ATOTK[0] !! Unspeciated PM including non-carbon organic mass AUNSPEC1IJ ,ug m-3 ,ATOTIJ[0] - (ASO4IJ[0] + ANO3IJ[0] \ +ANH4IJ[0] + ACLIJ[0] \ +ANAIJ[0] + AECIJ[0] \ +AOCIJ[0] + ASOILJ[0]) !! Non-Carbon Organic Mass ANCOMIJ ,ug m-3 ,AOMIJ[0] - AOCIJ[0] !! Unspeciated PM excluding non-carbon organic mass AUNSPEC2IJ ,ug m-3 ,AUNSPEC1IJ[0] - ANCOMIJ[0] !! AMS Projection of Output Concentrations PMAMS_CL ,ug m-3 ,ACLI[1] *FAMSAIT[3] +ACLJ[1]*FAMSACC[3]+ACLK[1] *FAMSCOR[3] PMAMS_NH4 ,ug m-3 ,ANH4I[1]*FAMSAIT[3]+ANH4J[1]*FAMSACC[3]+ANH4K[1]*FAMSCOR[3] PMAMS_NO3 ,ug m-3 ,ANO3I[1]*FAMSAIT[3]+ANO3J[1]*FAMSACC[3]+ANO3K[1]*FAMSCOR[3] PMAMS_OA ,ug m-3 ,AOMI[0] *FAMSAIT[3]+AOMJ[0] *FAMSACC[3] PMAMS_SO4 ,ug m-3 ,ASO4I[1]*FAMSAIT[3]+ASO4J[1]*FAMSACC[3]+ASO4K[1]*FAMSCOR[3] !! PM1 Cutoff Output PM1_TOT ,ug m-3 ,ATOTI[0]*FPM1AIT[3]+ATOTJ[0]*FPM1ACC[3]+ATOTK[0]*FPM1COR[3] !! Unused PM1 Species. Included Here for demonstration !PM1_EC ,ug m-3 ,AECI[1] *FPM1AIT[3] +AECJ[1] *FPM1ACC[3] !PM1_OC ,ugC m-3 ,AOCI[0] *FPM1AIT[3] +AOCJ[0] *FPM1ACC[3] !PM1_OM ,ug m-3 ,AOMI[0] *FPM1AIT[3] +AOMJ[0] *FPM1ACC[3] !PM1_SO4 ,ug m-3 ,ASO4I[1]*FPM1AIT[3] +ASO4J[1]*FPM1ACC[3] +ASO4K[1]*FPM1COR[3] !PM1_CL ,ug m-3 ,ACLI[1] *FPM1AIT[3] +ACLJ[1] *FPM1ACC[3] +ACLK[1] *FPM1COR[3] !PM1_NA ,ug m-3 ,ANAI[1] *FPM1AIT[3] +ANAJ[1] *FPM1ACC[3] +ANAK[0] *FPM1COR[3] !PM1_MG ,ug m-3 , AMGJ[1] *FPM1ACC[3] +AMGK[0] *FPM1COR[3] !PM1_K ,ug m-3 , AKJ[1] *FPM1ACC[3] +AKK[0] *FPM1COR[3] !PM1_CA ,ug m-3 , ACAJ[1] *FPM1ACC[3] +ACAK[0] *FPM1COR[3] !PM1_NH4 ,ug m-3 ,ANH4I[1] *FPM1AIT[3]+ANH4J[1]*FPM1ACC[3] +ANH4K[1]*FPM1COR[3] !PM1_NO3 ,ug m-3 ,ANO3I[1] *FPM1AIT[3]+ANO3J[1]*FPM1ACC[3] +ANO3K[1]*FPM1COR[3] !PM1_SOIL ,ug m-3 ,ASOILJ[0]*FPM1ACC[3]+(ASOIL[1]+ACORS[1])*FPM1COR[3] !PM1_UNSPEC1 ,ug m-3 ,PM1_TOT[0] - (PM1_CL[0] + PM1_EC[0]+ PM1_NA[0] + PM1_NH4[0] + \ ! PM1_NO3[0]+ PM1_OC[0]+ PM1_SOIL[0]+ PM1_SO4[0] ) !PM1_UNSPCRS ,ug m-3 ,ATOTK[0] *FPM1COR[3] - (ASO4K[1]*FPM1COR[3] \ ! +ACLK[1]*FPM1COR[3] \ ! +ANAK[0]*FPM1COR[3] \ ! +AMGK[0]*FPM1COR[3] \ ! +AKK[0]*FPM1COR[3] \ ! +ACAK[0]*FPM1COR[3] \ ! +ANH4K[1]*FPM1COR[3] \ ! +ANO3K[1]*FPM1COR[3]) !! PM2.5 species computed using modeled size distribution PM25_HP ,ug m-3 ,(AH3OPI[1]*FPM25AIT[3]+AH3OPJ[1]*FPM25ACC[3]+AH3OPK[1]*FPM25COR[3])*1.0/19.0 PM25_CL ,ug m-3 ,ACLI[1]*FPM25AIT[3]+ACLJ[1]*FPM25ACC[3]+ACLK[1]*FPM25COR[3] PM25_EC ,ug m-3 ,AECI[1]*FPM25AIT[3]+AECJ[1]*FPM25ACC[3] PM25_NA ,ug m-3 ,ANAI[1]*FPM25AIT[3]+ANAJ[1]*FPM25ACC[3]+ANAK[0]*FPM25COR[3] PM25_MG ,ug m-3 , AMGJ[1]*FPM25ACC[3]+AMGK[0]*FPM25COR[3] PM25_K ,ug m-3 , AKJ[1] *FPM25ACC[3]+AKK[0] *FPM25COR[3] PM25_CA ,ug m-3 , ACAJ[1]*FPM25ACC[3]+ACAK[0]*FPM25COR[3] PM25_NH4 ,ug m-3 ,ANH4I[1]*FPM25AIT[3]+ANH4J[1]*FPM25ACC[3]+ANH4K[1]*FPM25COR[3] PM25_NO3 ,ug m-3 ,ANO3I[1]*FPM25AIT[3]+ANO3J[1]*FPM25ACC[3]+ANO3K[1]*FPM25COR[3] PM25_OC ,ugC m-3 ,AOCI[0] *FPM25AIT[3]+AOCJ[0]*FPM25ACC[3] PM25_OM ,ug m-3 ,AOMI[0] *FPM25AIT[3]+AOMJ[0]*FPM25ACC[3] PM25_SOIL ,ug m-3 ,ASOILJ[0]*FPM25ACC[3]+ASOIL[1]*FPM25COR[3] PM25_SO4 ,ug m-3 ,ASO4I[1]*FPM25AIT[3]+ASO4J[1]*FPM25ACC[3]+ASO4K[1]*FPM25COR[3] PM25_TOT ,ug m-3 ,ATOTI[0]*FPM25AIT[3]+ATOTJ[0]*FPM25ACC[3]+ATOTK[0]*FPM25COR[3] PM25_UNSPEC1 ,ug m-3 ,PM25_TOT[0]-(PM25_CL[0]+PM25_EC[0]+PM25_NA[0]+PM25_NH4[0] \ +PM25_NO3[0]+PM25_OC[0]+PM25_SOIL[0]+PM25_SO4[0]) PM25_UNSPCRS ,ug m-3 ,ATOTK[0]*FPM25COR[3] - (ASO4K[1]*FPM25COR[3] \ +ACLK[1]*FPM25COR[3] \ +ANAK[0]*FPM25COR[3] \ +AMGK[0]*FPM25COR[3] \ +AKK[0]*FPM25COR[3] \ +ACAK[0]*FPM25COR[3] \ +ANH4K[1]*FPM25COR[3] \ +ANO3K[1]*FPM25COR[3]) !! Fine particle acidity (pH). pH is undefined if there is no aerosol water. !Do not trust predictions when hourly water is <0.01 ug m-3. FINEPHF will !have large negative value (-9.999E36) when pH is not to be trusted. !AH2OIJ ,ug m-3 ,AH2OI[1]+AH2OJ[1] !HPMOLAL ,mol kg-1 ,AHPLUSIJ[0]/AH2OIJ[0]*1000.0 !ACIDITYTEMP , ,-1*LOG10(HPMOLAL[0]) !FINEPHF , ,AH2OIJ[0]>0.01 ? ACIDITYTEMP[0] : -9.999E36 !! PM10.0 and Coarse-Sized Species PM10 ,ug m-3 ,ATOTI[0]*FPM10AIT[3]+ATOTJ[0]*FPM10ACC[3]+ATOTK[0]*FPM10COR[3] PMC_CL ,ug m-3 ,ACLI[1]*FPM10AIT[3] +ACLJ[1]*FPM10ACC[3] +ACLK[1]*FPM10COR[3] -PM25_CL[0] PMC_NA ,ug m-3 ,ANAI[1]*FPM10AIT[3] +ANAJ[1]*FPM10ACC[3] +ANAK[0]*FPM10COR[3] -PM25_NA[0] PMC_NH4 ,ug m-3 ,ANH4I[1]*FPM10AIT[3]+ANH4J[1]*FPM10ACC[3]+ANH4K[1]*FPM10COR[3]-PM25_NH4[0] PMC_NO3 ,ug m-3 ,ANO3I[1]*FPM10AIT[3]+ANO3J[1]*FPM10ACC[3]+ANO3K[1]*FPM10COR[3]-PM25_NO3[0] PMC_SO4 ,ug m-3 ,ASO4I[1]*FPM10AIT[3]+ASO4J[1]*FPM10ACC[3]+ASO4K[1]*FPM10COR[3]-PM25_SO4[0] PMC_TOT ,ug m-3 ,PM10[0]-PM25_TOT[0] !! Deisel PM Species DIESEL_PM10 ,ug m-3 ,ADE_OTHRI[1]*FPM10AIT[3] + ADE_OTHRJ[1]*FPM10ACC[3] \ +ADE_ECI[1] *FPM10AIT[3] + ADE_ECJ[1] *FPM10ACC[3] \ +ADE_OCI[1] *FPM10AIT[3] + ADE_OCJ[1] *FPM10ACC[3] \ + ADE_SO4J[1] *FPM10ACC[3] \ + ADE_NO3J[1] *FPM10ACC[3] \ + ADE_CORS[1] *FPM10COR[3] DIESEL_PM25 ,ug m-3 ,ADE_OTHRI[1]*FPM25AIT[3] + ADE_OTHRJ[1]*FPM25ACC[3] \ +ADE_ECI[1] *FPM25AIT[3] + ADE_ECJ[1] *FPM25ACC[3] \ +ADE_OCI[1] *FPM25AIT[3] + ADE_OCJ[1] *FPM25ACC[3] \ + ADE_SO4J[1] *FPM25ACC[3] \ + ADE_NO3J[1] *FPM25ACC[3] \ + ADE_CORS[1] *FPM25COR[3] !!Benzo-A-Pyrene, gas and aerosol species BAP_GAS ,ng/m3 ,1.0e6*8.7017*BENAPY[1]*DENS[2] , gas phase benzo-a-pyrene BAP_AERO ,ng/m3 ,1000.0*(ABENAPYI[1]+ABENAPYJ[1]) , fine aerosol phase benzo-a-pyrene BAP_FAERO , ,BAP_AERO[0]/(BAP_AERO[0]+BAP_GAS[0]), aerosol fraction benzo-a-pyrene BAP_PM10 ,ng/m3 ,1000.0*(ABENAPYI[1]*FPM10AIT[3] + ABENAPYJ[1]*FPM10ACC[3]) BAP_PM25 ,ng/m3 ,1000.0*(ABENAPYI[1]*FPM25AIT[3] + ABENAPYJ[1]*FPM25ACC[3]) !Toxic Metallic PM species BERYLLIUM_PM10 ,ng m-3 ,1000.0*(ABEI[1]*FPM10AIT[3] + ABEJ[1]*FPM10ACC[3]) BERYLLIUM_PM25 ,ng m-3 ,1000.0*(ABEI[1]*FPM25AIT[3] + ABEJ[1]*FPM25ACC[3]) CADMIUM_PM10 ,ng m-3 ,1000.0*(ACDI[1]*FPM10AIT[3] + ACDJ[1]*FPM10ACC[3]) CADMIUM_PM25 ,ng m-3 ,1000.0*(ACDI[1]*FPM25AIT[3] + ACDJ[1]*FPM25ACC[3]) CR_III_PM10 ,ng m-3 ,1000.0*(ACR_IIII[1]*FPM10AIT[3] + ACR_IIIJ[1]*FPM10ACC[3]) CR_III_PM25 ,ng m-3 ,1000.0*(ACR_IIII[1]*FPM25AIT[3] + ACR_IIIJ[1]*FPM25ACC[3]) CR_VI_PM10 ,ng m-3 ,1000.0*(ACR_VII[1]*FPM10AIT[3] + ACR_VIJ[1]*FPM10ACC[3]) CR_VI_PM25 ,ng m-3 ,1000.0*(ACR_VII[1]*FPM25AIT[3] + ACR_VIJ[1]*FPM25ACC[3]) CHROMIUM_PM10 ,ng m-3 ,CR_III_PM10[0] + CR_VI_PM10[0] CHROMIUM_PM25 ,ng m-3 ,CR_III_PM25[0] + CR_VI_PM25[0] LEAD_PM10 ,ng m-3 ,1000.0*(APBI[1]*FPM10AIT[3] + APBJ[1]*FPM10ACC[3]) LEAD_PM25 ,ng m-3 ,1000.0*(APBI[1]*FPM25AIT[3] + APBJ[1]*FPM25ACC[3]) MANGANESE_PM10 ,ng m-3 ,1000.0*(AMN_HAPSI[1]*FPM10AIT[3] + AMN_HAPSJ[1]*FPM10ACC[3]) MANGANESE_PM25 ,ng m-3 ,1000.0*(AMN_HAPSI[1]*FPM25AIT[3] + AMN_HAPSJ[1]*FPM25ACC[3]) NICKEL_PM10 ,ng m-3 ,1000.0*(ANII[1]*FPM10AIT[3] + ANIJ[1]*FPM10ACC[3]) NICKEL_PM25 ,ng m-3 ,1000.0*(ANII[1]*FPM25AIT[3] + ANIJ[1]*FPM25ACC[3]) ARSENIC_PM10 ,ng m-3 ,1000.0*(AASI[1]*FPM10AIT[3] + AASJ[1]*FPM10ACC[3]) ARSENIC_PM25 ,ng m-3 ,1000.0*(AASI[1]*FPM25AIT[3] + AASJ[1]*FPM25ACC[3]) !Mercuric PM species HG_PM10 ,ng m-3 ,1000.0*(APHGI[1]*FPM10AIT[3] + APHGJ[1]*FPM10ACC[3]) HG_PM25 ,ng m-3 ,1000.0*(APHGI[1]*FPM25AIT[3] + APHGJ[1]*FPM25ACC[3]) !! FRM PM Equivalent Calculation !! This section calculates the FRM applicable PM species, PMIJ_FRM and !! PM25_FRM. The intermediate variablse K...ANH4IJ_loss are needed to !! calculate the final quantities. K ,ppb2 ,exp(118.87-24084/TEMP2[4]-6.025*log(TEMP2[4])) P1 , ,exp(8763/TEMP2[4]+19.12*log(TEMP2[4])-135.94) P2 , ,exp(9969/TEMP2[4]+16.22*log(TEMP2[4])-122.65) P3 , ,exp(13875/TEMP2[4]+24.46*log(TEMP2[4])-182.61) a , ,1-RH[0]/100 K_prime ,ppb2 ,(P1[0]-P2[0]*a[0]+(P3[0]*a[0]*a[0]))*(a[0]^1.75)*K[0] sqrt_Ki ,ppb ,sqrt(RH[0]<=61 ? K[0] : K_prime[0]) max_NO3_loss ,ug m-3 ,745.7/TEMP2[4]*sqrt_Ki[0] PM25_NO3_loss ,ug m-3 ,max_NO3_loss[0]<=PM25_NO3[0] ? max_NO3_loss[0] : PM25_NO3[0] ANO3IJ_loss ,ug m-3 ,max_NO3_loss[0]<=ANO3IJ[0] ? max_NO3_loss[0] : ANO3IJ[0] PM25_NH4_loss ,ug m-3 ,PM25_NO3_loss[0]*(18/62) ANH4IJ_loss ,ug m-3 ,ANO3IJ_loss[0]*(18/62) PMIJ_FRM ,ug m-3 ,ATOTIJ[0]-(ANO3IJ_loss[0]+ANH4IJ_loss[0]) \ +0.24*(ASO4IJ[0]+ANH4IJ[0]-ANH4IJ_loss[0])+0.5 PM25_FRM ,ug m-3 ,PM25_TOT[0]-(PM25_NO3_loss[0]+PM25_NH4_loss[0]) \ +0.24*(PM25_SO4[0]+PM25_NH4[0]-PM25_NH4_loss[0])+0.5 ================================================ FILE: CCTM/src/MECHS/cb6r5hap_ae7_aq/SpecDef_Dep_cb6r5hap_ae7_aq.txt ================================================ !#start YYYYJJJ !#end YYYYJJJ #layer 1 / File [1]: DRYDEP / File [2]: WETDEP / File [3]: METCRO2D / /new species ,units ,expression RT ,cm ,RC[3]>=0 ? RN[3]+RC[3] : RN[3] !---------------------------------------------------! !--------------- Gas Deposition --------------------! !---------------------------------------------------! DDEP_NO2 ,kg ha-1 ,NO2[1] WDEP_NO2 ,kg ha-1 ,NO2[2] DDEP_NO ,kg ha-1 ,NO[1] WDEP_NO ,kg ha-1 ,NO[2] DDEP_FORM ,kg ha-1 ,FORM[1] WDEP_FORM ,kg ha-1 ,FORM[2] DDEP_H2O2 ,kg ha-1 ,H2O2[1] WDEP_H2O2 ,kg ha-1 ,H2O2[2] DDEP_N2O5 ,kg ha-1 ,N2O5[1] WDEP_N2O5 ,kg ha-1 ,N2O5[2] DDEP_HONO ,kg ha-1 ,HONO[1] WDEP_HONO ,kg ha-1 ,HONO[2] DDEP_HNO3 ,kg ha-1 ,HNO3[1] WDEP_HNO3 ,kg ha-1 ,HNO3[2] DDEP_NO3 ,kg ha-1 ,NO3[1] WDEP_NO3 ,kg ha-1 ,NO3[2] DDEP_CLNO2 ,kg ha-1 ,CLNO2[1] WDEP_CLNO2 ,kg ha-1 ,CLNO2[2] DDEP_CLNO3 ,kg ha-1 ,CLNO3[1] WDEP_CLNO3 ,kg ha-1 ,CLNO3[2] DDEP_NTR ,kg ha-1 ,NTR1[1]+NTR2[1]+INTR[1] WDEP_NTR ,kg ha-1 ,NTR1[2]+NTR2[2]+INTR[2] DDEP_PANT ,kg ha-1 ,PAN[1] + PANX[1] + OPAN[1] WDEP_PANT ,kg ha-1 ,PAN[2] + PANX[2] + OPAN[2] DDEP_NH3 ,kg ha-1 ,NH3[1] WDEP_NH3 ,kg ha-1 ,NH3[2] DDEP_SO2 ,kg ha-1 ,SO2[1] DDEP_O3 ,kg ha-1 ,O3[1] WDEP_O3 ,kg ha-1 ,O3[2] DDEP_PNA ,kg ha-1 ,PNA[1] WDEP_PNA ,kg ha-1 ,PNA[2] DDEP_BENZENE ,kg ha-1 ,BENZENE[1] WDEP_BENZENE ,kg ha-1 ,BENZENE[2] DDEP_TOLUENE ,kg ha-1 ,TOLU[1] WDEP_TOLUENE ,kg ha-1 ,TOLU[2] DDEP_ETHYLBENZENE ,kg ha-1 ,ETHYLBENZENE[1] WDEP_ETHYLBENZENE ,kg ha-1 ,ETHYLBENZENE[2] DDEP_DICLORBENZENE ,kg ha-1 ,DICL_BENZENE[1] WDEP_DICLORBENZENE ,kg ha-1 ,DICL_BENZENE[2] DDEP_STYRENE ,kg ha-1 ,STYRENE[1] WDEP_STYRENE ,kg ha-1 ,STYRENE[2] DDEP_XYLENE ,kg ha-1 ,XYLENE[1] WDEP_XYLENE ,kg ha-1 ,XYLENE[2] !---------------------------------------------------! !------------- Aerosol Deposition ------------------! !---------------------------------------------------! DDEP_ANO3IJ ,kg ha-1 ,ANO3I[1] + ANO3J[1] DDEP_ANO3K ,kg ha-1 ,ANO3K[1] WDEP_ANO3IJK ,kg ha-1 ,ANO3I[2] + ANO3J[2] + ANO3K[2] DDEP_TNO3 ,kg ha-1 ,ANO3I[1] + ANO3J[1] + ANO3K[1] + 0.984*HNO3[1] + NO3[1] WDEP_TNO3 ,kg ha-1 ,ANO3I[2] + ANO3J[2] + ANO3K[2] + 0.984*HNO3[2] + NO3[2] DDEP_ANH4IJ ,kg ha-1 ,ANH4I[1] + ANH4J[1] DDEP_ANH4K ,kg ha-1 ,ANH4K[1] WDEP_ANH4IJK ,kg ha-1 ,ANH4I[2] + ANH4J[2] + ANH4K[2] DDEP_AMTNO3J ,kg ha-1 ,AMTNO3J[1] WDEP_AMTNO3J ,kg ha-1 ,AMTNO3J[2] DDEP_ASO4IJ ,kg ha-1 ,ASO4I[1] + ASO4J[1] DDEP_ASO4K ,kg ha-1 ,ASO4K[1] WDEP_ASO4IJK ,kg ha-1 ,ASO4I[2] + ASO4J[2] + ASO4K[2] DDEP_AECIJ ,kg ha-1 ,AECI[1] +AECJ[1] DDEP_AOCIJ ,kgC ha-1 ,ALVPO1I[1]/1.39 + ASVPO1I[1]/1.32 + ASVPO2I[1]/1.26 \ +ALVPO1J[1]/1.39 + ASVPO1J[1]/1.32 + ASVPO2J[1]/1.26 \ +ASVPO3J[1]/1.21 + AIVPO1J[1]/1.17 \ +ALVOO1I[1]/2.27 + ALVOO2I[1]/2.06 \ +ASVOO1I[1]/1.88 + ASVOO2I[1]/1.73 \ +AISO1J[1]/2.20 + AISO2J[1]/2.23 + AISO3J[1]/2.80 \ +AMT1J[1]/1.67 + AMT2J[1]/1.67 + AMT3J[1]/1.72 \ +AMT4J[1]/1.53 + AMT5J[1]/1.57 + AMT6J[1]/1.40 \ +AMTNO3J[1]/1.90 + AMTHYDJ[1]/1.54 \ +AGLYJ[1]/2.13 + ASQTJ[1]/1.52 \ +AORGCJ[1]/2.00 + AOLGBJ[1]/2.10 + AOLGAJ[1]/2.50 \ +ALVOO1J[1]/2.27+ ALVOO2J[1]/2.06+ ASVOO1J[1]/1.88 \ +ASVOO2J[1]/1.73+ ASVOO3J[1]/1.60 \ +APCSOJ[1] /2.00+ AAVB1J[1]/2.70 + AAVB2J[1]/2.35 \ +AAVB3J[1]/2.17 + AAVB4J[1]/1.99 !DDEP_SSSO4J ,kg ha-1 ,0.2514*ANAJ[1] !DDEP_SSSO4K ,kg ha-1 ,0.2514*DDEP_ANAK[0] !WDEP_SSSO4JK ,kg ha-1 ,0.2514*ANAJ[2] + 0.2514*WDEP_ANAK[0] !-----------------------------------------------------! !-------- Total (Gas + Aerosol) Deposition -----------! !-----------------------------------------------------! DDEP_NHX ,kg ha-1 ,ANH4I[1] + ANH4J[1] + ANH4K[1] + 1.059*NH3[1] WDEP_NHX ,kg ha-1 ,ANH4I[2] + ANH4J[2] + ANH4K[2] + 1.059*NH3[2] WDEP_TSO4 ,kg ha-1 ,ASO4I[2] + ASO4J[2] + ASO4K[2] + 1.5*SO2[2] !! Sodium DDEP_ANAJ ,kg ha-1 ,ANAJ[1] DDEP_ANAK ,kg ha-1 ,0.8373*ASEACAT[1]+0.0626*ASOIL[1]+0.0023*ACORS[1] DDEP_ANAJK ,kg ha-1 ,DDEP_ANAJ[0] + DDEP_ANAK[0] WDEP_ANAK ,kg ha-1 ,0.8373*ASEACAT[2]+0.0626*ASOIL[2]+0.0023*ACORS[2] WDEP_ANAJK ,kg ha-1 ,ANAJ[2] + WDEP_ANAK[0] TDEP_ANAJK ,kg ha-1 ,DDEP_ANAJK[0] + WDEP_ANAJK[0] !! Chloride DDEP_ACLJ ,kg ha-1 ,ACLJ[1] DDEP_ACLK ,kg ha-1 ,ACLK[1] DDEP_ACLJK ,kg ha-1 ,ACLJ[1] + ACLK[1] WDEP_TCL ,kg ha-1 ,0.972*HCL[2]+CL2[2] + ACLJ[2] + ACLK[2] + 0.6758*HOCL[1] TDEP_CL ,kg ha-1 ,DDEP_ACLJK[0] + WDEP_TCL[0] !! Calcium DDEP_CAJ ,kg ha-1 ,ACAJ[1] WDEP_CAJ ,kg ha-1 ,ACAJ[2] DDEP_CAK ,kg ha-1 ,0.0320*ASEACAT[1]+0.0838*ASOIL[1]+0.0562*ACORS[1] WDEP_CAK ,kg ha-1 ,0.0320*ASEACAT[2]+0.0838*ASOIL[2]+0.0562*ACORS[2] DDEP_CAJK ,kg ha-1 ,ACAJ[1]+DDEP_CAK[0] WDEP_CAJK ,kg ha-1 ,ACAJ[2]+WDEP_CAK[0] !! Iron DDEP_FEJ ,kg ha-1 ,AFEJ[1] WDEP_FEJ ,kg ha-1 ,AFEJ[2] !! Aluminum DDEP_ALJ ,kg ha-1 ,AALJ[1] WDEP_ALJ ,kg ha-1 ,AALJ[2] !! Silicon DDEP_SIJ ,kg ha-1 ,ASIJ[1] WDEP_SIJ ,kg ha-1 ,ASIJ[2] !! Titanium DDEP_TIJ ,kg ha-1 ,ATIJ[1] WDEP_TIJ ,kg ha-1 ,ATIJ[2] !! Magnesium DDEP_MGJ ,kg ha-1 ,AMGJ[1] WDEP_MGJ ,kg ha-1 ,AMGJ[2] DDEP_MGK ,kg ha-1 ,0.0997*ASEACAT[1]+0.0170*ASOIL[1]+0.0032*ACORS[1] WDEP_MGK ,kg ha-1 ,0.0997*ASEACAT[2]+0.0170*ASOIL[2]+0.0032*ACORS[2] DDEP_MGJK ,kg ha-1 ,AMGJ[1]+DDEP_MGK[0] WDEP_MGJK ,kg ha-1 ,AMGJ[2]+WDEP_MGK[0] !! Potassium DDEP_KJ ,kg ha-1 ,AKJ[1] WDEP_KJ ,kg ha-1 ,AKJ[2] DDEP_KK ,kg ha-1 ,0.0310*ASEACAT[1]+0.0242*ASOIL[1]+0.0176*ACORS[1] WDEP_KK ,kg ha-1 ,0.0310*ASEACAT[2]+0.0242*ASOIL[2]+0.0176*ACORS[2] DDEP_KJK ,kg ha-1 ,AKJ[1]+DDEP_KK[0] WDEP_KJK ,kg ha-1 ,AKJ[2]+WDEP_KK[0] !! Manganese DDEP_MNJ ,kg ha-1 ,AMNJ[1] WDEP_MNJ ,kg ha-1 ,AMNJ[2] ! lead DDEP_LEAD ,kg ha-1 ,APBI[1] + APBJ[1] + APBK[1] WDEP_LEAD ,kg ha-1 ,APBI[2] + APBJ[2] + APBK[2] ! Manganese for Air Toxics Inventory DDEP_MN_HAPS ,kg ha-1 ,AMN_HAPSI[1] + AMN_HAPSJ[1] + AMN_HAPSK[1] WDEP_MN_HAPS ,kg ha-1 ,AMN_HAPSI[2] + AMN_HAPSJ[2] + AMN_HAPSK[2] ! Arsenic DDEP_ARSENIC ,kg ha-1 ,AASI[1] + AASJ[1] + AASK[1] WDEP_ARSENIC ,kg ha-1 ,AASI[2] + AASJ[2] + AASK[2] ! Trivalent Chromium DDEP_CRIII ,kg ha-1 ,ACR_IIII[1] + ACR_IIIJ[1] + ACR_IIIK[1] WDEP_CRIII ,kg ha-1 ,ACR_IIII[2] + ACR_IIIJ[2] + ACR_IIIK[2] ! Hexavalent Chromium DDEP_CRVI ,kg ha-1 ,ACR_VII[1] + ACR_VIJ[1] + ACR_VIK[1] WDEP_CRVI ,kg ha-1 ,ACR_VII[2] + ACR_VIJ[2] + ACR_VIK[2] ! BERYLLIUM DDEP_BERYLLIUM ,kg ha-1 ,ABEI[1] + ABEJ[1] + ABEK[1] WDEP_BERYLLIUM ,kg ha-1 ,ABEI[2] + ABEJ[2] + ABEK[2] ! CADMIUM DDEP_CADMIUM ,kg ha-1 ,ACDI[1] + ACDJ[1] + ACDK[1] WDEP_CADMIUM ,kg ha-1 ,ACDI[2] + ACDJ[2] + ACDK[2] ! NICKLE DDEP_NICKLE ,kg ha-1 ,ANII[1] + ANIJ[1] + ANIK[1] WDEP_NICKLE ,kg ha-1 ,ANII[2] + ANIJ[2] + ANIK[2] ! Total Chromium DDEP_CHROMIUM ,kg ha-1 ,DDEP_CRIII[0] + DDEP_CRVI[0] WDEP_CHROMIUM ,kg ha-1 ,WDEP_CRIII[0] + WDEP_CRVI[0] ! Gas plus Aerosol Mercury Deposition DDEP_HG ,kg ha-1 ,APHGI[1] + APHGJ[1] + APHGK[1] + HG[1] + HGIIGAS[1] WDEP_HG ,kg ha-1 ,APHGI[2] + APHGJ[2] + APHGK[2] + HG[2] + HGIIGAS[2] ! Gas plus Aerosol Benzo-A-Pyrene Deposition DDEP_BENAPY ,kg ha-1 ,ABENAPYI[1] + ABENAPYJ[1] WDEP_BENAPY ,kg ha-1 ,ABENAPYI[2] + ABENAPYJ[2] + BENAPY[2] !---------------------------------------------------! !------------- Nitrogen Deposition -----------------! !---------------------------------------------------! DD_OXN_NOX ,kgN ha-1 ,0.30435*NO2[1] + 0.46667*NO[1] WD_OXN_NOX ,kgN ha-1 ,0.30435*NO2[2] + 0.46667*NO[2] DD_OXN_TNO3 ,kgN ha-1 ,0.22581*DDEP_TNO3[0] WD_OXN_TNO3 ,kgN ha-1 ,0.22581*WDEP_TNO3[0] DD_OXN_PANT ,kgN ha-1 ,0.11570*PAN[1] + 0.11570*PANX[1] + 0.11570*OPAN[1] WD_OXN_PANT ,kgN ha-1 ,0.11570*PAN[2] + 0.11570*PANX[2] + 0.11570*OPAN[2] DD_OXN_ORGN ,kgN ha-1 ,0.10770*(NTR1[1]+NTR2[1]+INTR[1])+0.06061*DDEP_AMTNO3J[0]+DD_OXN_PANT[0] WD_OXN_ORGN ,kgN ha-1 ,0.10770*(NTR1[2]+NTR2[2]+INTR[2])+0.06061*WDEP_AMTNO3J[0]+WD_OXN_PANT[0] DD_OXN_OTHR ,kgN ha-1 ,0.25926*N2O5[1] + 0.29787*HONO[1]+0.17720*PNA[1]+0.1717*CLNO2[1]+0.1436*CLNO3[1] WD_OXN_OTHR ,kgN ha-1 ,0.25926*N2O5[2] + 0.29787*HONO[2]+0.17720*PNA[2]+0.1717*CLNO2[2]+0.1436*CLNO3[2] DD_OXN_TOT ,kgN ha-1 ,DD_OXN_NOX[0] + DD_OXN_TNO3[0] + DD_OXN_ORGN[0] + DD_OXN_OTHR[0] WD_OXN_TOT ,kgN ha-1 ,WD_OXN_NOX[0] + WD_OXN_TNO3[0] + WD_OXN_ORGN[0] + WD_OXN_OTHR[0] TD_OXN_TOT ,kgN ha-1 ,DD_OXN_TOT[0] + WD_OXN_TOT[0] DD_REDN_TOT ,kgN ha-1 ,0.7777*DDEP_NHX[0] WD_REDN_TOT ,kgN ha-1 ,0.7777*WDEP_NHX[0] TD_REDN_TOT ,kgN ha-1 ,DD_REDN_TOT[0] + WD_REDN_TOT[0] DD_N_TOT ,kgN ha-1 ,DD_OXN_TOT[0] + DD_REDN_TOT[0] WD_N_TOT ,kgN ha-1 ,WD_OXN_TOT[0] + WD_REDN_TOT[0] TD_N_TOT ,kgN ha-1 ,DD_N_TOT[0] + WD_N_TOT[0] !! Nitrogen Deposition in milliequivalents Nitrogen !DD_OXN_TOTMEQ ,meqN m-2 ,7.14*DD_OXN_TOT[0] !WD_OXN_TOTMEQ ,meqN m-2 ,7.14*WD_OXN_TOT[0] !TD_OXN_TOTMEQ ,meqN m-2 ,DD_OXN_TOTMEQ[0] + WD_OXN_TOTMEQ[0] !DD_REDN_TOTMEQ ,meqN m-2 ,7.14*DD_REDN_TOT[0] !WD_REDN_TOTMEQ ,meqN m-2 ,7.14*WD_REDN_TOT[0] !TD_REDN_TOTMEQ ,meqN m-2 ,DD_REDN_TOTMEQ[0] + WD_REDN_TOTMEQ[0] !DD_N_TOTMEQ ,meqN m-2 ,DD_OXN_TOTMEQ[0] + DD_REDN_TOTMEQ[0] !WD_N_TOTMEQ ,meqN m-2 ,WD_OXN_TOTMEQ[0] + WD_REDN_TOTMEQ[0] !TD_N_TOTMEQ ,meqN m-2 ,DD_N_TOTMEQ[0] + WD_N_TOTMEQ[0] !-------------------------------------------------! !------------- Sulfur Deposition -----------------! !-------------------------------------------------! DD_S_TOT ,kgS ha-1 ,0.5*SO2[1] + 0.33333*ASO4I[1] + 0.33333*ASO4J[1] + 0.33333*ASO4K[1] WD_S_TOT ,kgS ha-1 ,0.33333*WDEP_TSO4[0] TD_S_TOT ,kgS ha-1 ,DD_S_TOT[0] + WD_S_TOT[0] !DD_S_SeaS ,kgS ha-1 ,0.33333*DDEP_SSSO4J[0] + 0.33333*DDEP_SSSO4K[0] !WD_S_SeaS ,kgS ha-1 ,0.33333*WDEP_SSSO4JK[0] !TD_S_SeaS ,kgS ha-1 ,DD_S_SeaS[0] + WD_S_SeaS[0] !! Sulfur Deposition in milliequivalents Sulfur !DD_S_TOTMEQ ,meqS m-2 ,6.24*DD_S_TOT[0] !WD_S_TOTMEQ ,meqS m-2 ,6.24*WD_S_TOT[0] !TD_S_TOTMEQ ,meqS m-2 ,DD_S_TOTMEQ[0] + WD_S_TOTMEQ[0] !DD_S_SeaSMEQ ,meqS m-2 ,6.24*DD_S_SeaS[0] !WD_S_SeaSMEQ ,meqS m-2 ,6.24*WD_S_SeaS[0] !TD_S_SeaSMEQ ,meqS m-2 ,DD_S_SeaSMEQ[0] + WD_S_SeaSMEQ[0] ================================================ FILE: CCTM/src/MECHS/cb6r5hap_ae7_aq/SpecDef_cb6r5hap_ae7_aq.txt ================================================ !#start YYYYJJJ 010000 !#end YYYYJJJ 000000 #layer 1 / ! This Species Definition File is for Use with the COMBINE tool built for ! post-processing CMAQ output. It is compatible with CMAQv5.2. ! Date: May 12 2017 ! Output variables that begin with 'PM' represent those in which a size cut was ! applied based on modeled aerosol mode parameters. For example, PM25_NA is all ! sodium that falls below 2.5 um diameter. These 'PM' variables are used for ! comparisons at IMPROVE and CSN sites. ! Output variables that begin with 'PMAMS' represent the mass that would have ! been detected by an Aerosol Mass Spectrometer. ! Output variables beginning with 'A' (aside from AIR_DENS) represent a ! combination of aerosol species in which no size cut was applied. For example, ! ASO4IJ is the sum of i-mode and j-mode sulfate. These 'A' variables are used ! for comparisons at CASTNet sites. ! Output variables beginning with 'PMC' refer to the coarse fraction of total PM, ! computed by summing all modes and subtracting the PM2.5 fraction. These 'PMC' ! variables are used for comparisons at SEARCH sites. ! This Species Definition File is just for use with the uncoupled, offline CMAQ, ! model. If you are processing WRF-CMAQ results, a different Species Definition ! file is required. / File [1]: CMAQ conc/aconc file / File [2]: METCRO3D file / File [3]: ELMO/AELMO file / File [4]: METCRO2D file / /new species ,units ,expression !-------------------------------------------! !------------- Meteorology -----------------! !-------------------------------------------! AIR_DENS ,kg m-3 ,DENS[2] RH ,% ,100.00*RH[3] SFC_TMP ,C ,(TEMP2[4]-273.15) PBLH ,m ,PBL[4] SOL_RAD ,W m-2 ,RGRND[4] precip ,cm ,RC[4]>=0 ? RN[4]+RC[4] : RN[4] WSPD10 ,m s-1 ,WSPD10[4] WDIR10 ,deg ,WDIR10[4] !-------------------------------------------! !--------------- Gases ---------------------! !-------------------------------------------! ALD2 ,ppbV ,1000.0*ALD2[1] BENZENE ,ppbV ,1000.0*BENZENE[1] CO ,ppbV ,1000.0*CO[1] ETH ,ppbV ,1000.0*ETH[1] ETHA ,ppbV ,1000.0*ETHA[1] FORM ,ppbV ,1000.0*FORM[1] H2O2 ,ppbV ,1000.0*H2O2[1] HNO3 ,ppbV ,1000.0*HNO3[1] HNO3_UGM3 ,ug m-3 ,1000.0*(HNO3[1]*2.1756*DENS[2]) HONO ,ppbV ,1000.0*HONO[1] HOX ,ppbV ,1000.0*(OH[1]+HO2[1]) OH ,ppbV ,1000.0*(OH[1]) ISOP ,ppbV ,1000.0*ISOP[1] N2O5 ,ppbV ,1000.0*N2O5[1] NH3 ,ppbV ,1000.0*NH3[1] NH3_UGM3 ,ug m-3 ,1000.0*(NH3[1]*0.5880*DENS[2]) NHX ,ug m-3 ,1000.0*(NH3[1]*0.5880*DENS[2])+ANH4I[1]+ANH4J[1]+ANH4K[1] NO ,ppbV ,1000.0*NO[1] NO2 ,ppbV ,1000.0*NO2[1] NOX ,ppbV ,1000.0*(NO[1] + NO2[1]) ANO3_PPB ,ppbV ,(ANO3I[1]+ANO3J[1]+ANO3K[1])/(DENS[2]*(62.0/28.97)) NTR ,ppbV ,1000.0*(NTR1[1]+NTR2[1]+INTR[1]) PANS ,ppbV ,1000.0*(PAN[1]+PANX[1]+OPAN[1]) NOY ,ppbV ,1000.0* (NO[1]+NO2[1]+NO3[1]+2*N2O5[1]+HONO[1]+HNO3[1]+PNA[1] \ +CRON[1]+CLNO2[1]+CLNO3[1]) \ +PANS[0]+NTR[0]+ANO3_PPB[0] O3 ,ppbV ,1000.0*O3[1] SO2 ,ppbV ,1000.0*SO2[1] SO2_UGM3 ,ug m-3 ,1000.0*(SO2[1]*2.2118*DENS[2]) TERP ,ppbV ,1000.0*TERP[1] TOL ,ppbV ,1000.0*TOL[1] XYL ,ppbV ,1000.0*XYLMN[1] !! Additional Global, Regional and Urban Toxic gases ACROLEIN ,ug/m3 ,1000.0*(ACROLEIN[1]*1.9365*DENS[2]) ACRY_NITRILE ,ug/m3 ,1000.0*(ACRY_NITRILE[1]*1.8329*DENS[2]) ALD2_UGM3 ,ug/m3 ,1000.0*(ALD2[1]*1.5188*DENS[2]) ALD2_PRIMARY ,ug/m3 ,1000.0*(ALD2_PRIMARY[1]*1.5188*DENS[2]) BENZENE_UGM3 ,ug/m3 ,1000.0*(BENZENE[1]*2.6959*DENS[2]) BR2_C2_12 ,ug/m3 ,1000.0*(BR2_C2_12[1]*6.4860*DENS[2]) BUTADIENE13 ,ug/m3 ,1000.0*(BUTADIENE13[1]*1.8674*DENS[2]) CHCL3 ,ug/m3 ,1000.0*(CHCL3[1]*4.1215*DENS[2]) CL_ETHE ,ug/m3 ,1000.0*(CL_ETHE[1]*2.1574*DENS[2]) CL2 ,ppbV ,1000.0*CL2[1] CL2_C2_12 ,ug/m3 ,1000.0*(CL2_C2_12[1]*3.4173*DENS[2]) CL2_ME ,ug/m3 ,1000.0*(CL2_ME[1]*2.9306*DENS[2]) CL3_ETHE ,ug/m3 ,1000.0*(CL3_ETHE[1]*4.5357*DENS[2]) CL4_ETHE ,ug/m3 ,1000.0*(CL4_ETHE[1]*5.7232*DENS[2]) CL4_ETHANE ,ug/m3 ,1000.0*(CL4_ETHANE[1]*5.7956*DENS[2]) CARBONTET ,ug/m3 ,1000.0*(CARBONTET[1]*5.3089*DENS[2]) DICL_BENZENE ,ug/m3 ,1000.0*(DICL_BENZENE[1]*5.069*DENS[2]) DICL_PROPENE ,ug/m3 ,1000.0*(DICL_PROPENE[1]*3.8316*DENS[2]) ETOH ,ppbV ,1000.0*ETOH[1] ETOX ,ug/m3 ,1000.0*(ETOX[1]*1.5223*DENS[2]) FORM_UGM3 ,ug/m3 ,1000.0*(FORM[1]*1.0356*DENS[2]) FORM_PRIMARY ,ug/m3 ,1000.0*(FORM_PRIMARY[1]*1.0356*DENS[2]) HCL ,ppbV ,1000.0*HCL[1] HEXMETH_DIS ,ug/m3 ,1000.0*(HEXMETH_DIS[1]*5.8000*DENS[2]) HYDRAZINE ,ug/m3 ,1000.0*(HYDRAZINE[1]*3.3793*DENS[2]) MEOH ,ppbV ,1000.0*MEOH[1] XYLENE ,ppbV ,1000.0*XYLENE[1] MAL_ANHYDRID ,ug/m3 ,1000.0*(MAL_ANHYDRID[1]*3.3843*DENS[2]) NAPHTHALENE ,ug/m3 ,1000.0*(NAPHTHALENE[1]*4.4253*DENS[2]) PROPY_DICL ,ug/m3 ,1000.0*(PROPYL_DICL[1]*3.9006*DENS[2]) QUINOLINE ,ug/m3 ,1000.0*(QUINOLINE[1]*4.4598*DENS[2]) TOLU ,ppbV ,1000.0*TOLU[1] TOL_DIIS ,ug/m3 ,1000.0*(TOL_DIIS[1]*6.0069*DENS[2]) TRIETHYLAMIN ,ug/m3 ,1000.0*(TRIETHYLAMIN[1]*3.4986*DENS[2]) ACET_NITRILE ,ug/m3 ,1000.0*(ACET_NITRILE[1]*1.4155*DENS[2]) STYRENE ,ug/m3 ,1000.0*(STYRENE[1]*3.5914*DENS[2]) ACRYACID ,ug/m3 ,1000.0*(ACRYACID[1]*2.4849*DENS[2]) HEXANE ,ug/m3 ,1000.0*(HEXANE[1]*2.9717*DENS[2]) METHCHLORIDE ,ug/m3 ,1000.0*(METHCHLORIDE[1]*1.7410*DENS[2]) CARBSULFIDE ,ug/m3 ,1000.0*(CARBSULFIDE[1]*2.0714*DENS[2]) CHLOROPRENE ,ug/m3 ,1000.0*(CHLOROPRENE[1]*3.0530*DENS[2]) ETHYLBENZENE ,ug/m3 ,1000.0*(ETHYLBENZENE[1]*3.6610*DENS[2]) !! Inert PAH tracers PAH_000E0 ,ug/m3 ,1000.0*(PAH_000E0[1]*6.4340*DENS[2]) PAH_176E5 ,ug/m3 ,1000.0*(PAH_176E5[1]*6.8314*DENS[2]) PAH_880E5 ,ug/m3 ,1000.0*(PAH_880E5[1]*6.8383*DENS[2]) PAH_176E4 ,ug/m3 ,1000.0*(PAH_176E4[1]*8.7907*DENS[2]) PAH_176E3 ,ug/m3 ,1000.0*(PAH_176E3[1]*9.6166*DENS[2]) PAH_192E3 ,ug/m3 ,1000.0*(PAH_192E3[1]*9.2745*DENS[2]) PAH_101E2 ,ug/m3 ,1000.0*(PAH_101E2[1]*10.4493*DENS[2]) PAH_176E2 ,ug/m3 ,1000.0*(PAH_176E2[1]*8.8556*DENS[2]) PAH_114E1 ,ug/m3 ,1000.0*(PAH_114E1[1]*3.3793*DENS[2]) !Mercuric gas species HG_0 ,ng/m3 ,1000.0*(HG[1]*8.3330*DENS[2]*1000.0) HG_II ,ng/m3 ,1000.0*(HGIIGAS[1]*8.3330*DENS[2]*1000.0) !! Unused Gases. Presented Here for illustration. Users can uncomment !! them if they choose. !ALDX ,ppbV ,1000.0*ALDX[1] !CLNO2 ,ppbV ,1000.0*CLNO2[1] !IOLE ,ppbV ,1000.0*IOLE[1] !OLE ,ppbV ,1000.0*OLE[1] !PAR ,ppbV ,1000.0*PAR[1] !PAN ,ppbV ,1000.0*PAN[1] !PANX ,ppbV ,1000.0*PANX[1] !SULF ,ppbV ,1000.0*SULF[1] !VOC ,ppbC ,1000.0* ( PAR[1] + 2.0*ETH[1] + MEOH[1] + 2.0*ETOH[1] \ ! +2.0*OLE[1] + 7.0*TOL[1] + 8.0*XYLMN[1]+ FORM[1] \ ! +2.0*ALD2[1] + 2.0*ETHA[1] + 4.0*IOLE[1] + 2.0*ALDX[1] \ ! +5.0*ISOP[1] + 10.0*TERP[1]+ 10.0*NAPH[1]) !-------------------------------------------! !--------------- Particles -----------------! !-------------------------------------------! !! Crustal Elements AFEJ ,ug m-3 ,PMF_FE[3] AALJ ,ug m-3 ,PMF_AL[3] ASIJ ,ug m-3 ,PMF_SI[3] ATIJ ,ug m-3 ,PMF_TI[3] ACAJ ,ug m-3 ,PMF_CA[3] AMGJ ,ug m-3 ,PMF_MG[3] AKJ ,ug m-3 ,PMF_K[3] AMNJ ,ug m-3 ,PMF_MN[3] ASOILJ ,ug m-3 ,PMF_SOILIMPV[3] !! Non-Crustal Inorganic Particle Species AHPLUSIJ ,umol m-3 ,PMF_HP[3] ANAK ,ug m-3 ,PMC_NA[3] AMGK ,ug m-3 ,PMC_MG[3] AKK ,ug m-3 ,PMC_K[3] ACAK ,ug m-3 ,PMC_CA[3] ACLIJ ,ug m-3 ,PMF_CL[3] AECIJ ,ug m-3 ,PMF_EC[3] ANAIJ ,ug m-3 ,PMF_NA[3] ANO3IJ ,ug m-3 ,PMF_NO3[3] ANO3K ,ug m-3 ,PMC_NO3[3] TNO3 ,ug m-3 ,TNO3[3] ANH4IJ ,ug m-3 ,PMF_NH4[3] ANH4K ,ug m-3 ,PMC_NH4[3] ASO4IJ ,ug m-3 ,PMF_SO4[3] ASO4K ,ug m-3 ,PMC_SO4[3] !! Organic Particle Species APOCIJ ,ugC m-3 ,PMF_POC[3] APOMIJ ,ug m-3 ,PMF_POA[3] ASOCIJ ,ugC m-3 ,PMF_SOC[3] ASOMIJ ,ug m-3 ,PMF_SOA[3] AOCIJ ,ugC m-3 ,PMF_OC[3] AOMIJ ,ug m-3 ,PMF_OA[3] !!! Anthropogenic-VOC Derived Organic Aerosol AORGAIJ ,ug m-3 ,PMF_ASOA[3] !!! Biogenic-VOC Derived Organic Aerosol AORGBIJ ,ug m-3 ,PMF_BSOA[3] !!! Cloud-Processed SOA AORGCJ ,ug m-3 ,AORGCJ[1] !!! OM/OC ratios AOMOCRAT_TOT , ,PMF_OMOC[3] !! Total PM Aggregates ATOTI ,ug m-3 ,PMAIT_MASS[3] ATOTJ ,ug m-3 ,PMACC_MASS[3] ATOTK ,ug m-3 ,PMC_MASS[3] ATOTIJ ,ug m-3 ,PMF_MASS[3] ATOTIJK ,ug m-3 ,PM_MASS[3] !! Unspeciated PM including non-carbon organic mass AUNSPEC1IJ ,ug m-3 ,PMF_UN_IMPV1[3] !! Non-Carbon Organic Mass ANCOMIJ ,ug m-3 ,PMF_NCOM[3] !! Unspeciated PM excluding non-carbon organic mass AUNSPEC2IJ ,ug m-3 ,PMF_UN_IMPV2[3] !! AMS Projection of Output Concentrations PMAMS_CL ,ug m-3 ,PMAMS_CL[3] PMAMS_NH4 ,ug m-3 ,PMAMS_NH4[3] PMAMS_NO3 ,ug m-3 ,PMAMS_NO3[3] PMAMS_OA ,ug m-3 ,PMAMS_OA[3] PMAMS_SO4 ,ug m-3 ,PMAMS_SO4[3] !! PM1 Cutoff Output PM1_TOT ,ug m-3 ,PM1[3] !! Unused PM1 Species. Included Here for demonstration !PM1_EC ,ug m-3 ,PM1_EC[3] !PM1_OC ,ugC m-3 ,PM1_OC[3] !PM1_OM ,ug m-3 ,PM1_OA[3] !PM1_SO4 ,ug m-3 ,PM1_SO4[3] !PM1_CL ,ug m-3 ,PM1_CL[3] !PM1_NA ,ug m-3 ,PM1_NA[3] !PM1_MG ,ug m-3 ,PM1_MG[3] !PM1_K ,ug m-3 ,PM1_K[3] !PM1_CA ,ug m-3 ,PM1_CA[3] !PM1_NH4 ,ug m-3 ,PM1_NH4[3] !PM1_NO3 ,ug m-3 ,PM1_NO3[3] !PM1_SOIL ,ug m-3 ,PM1_SOIL[3] !PM1_UNSPEC1 ,ug m-3 ,PM1_UNSP1[3] !PM1_UNSPCRS ,ug m-3 ,PM1_UNSPCRS[3] !! PM2.5 species computed using modeled size distribution PM25_HP ,ug m-3 ,PM25_HP[3] PM25_CL ,ug m-3 ,PM25_CL[3] PM25_EC ,ug m-3 ,PM25_EC[3] PM25_NA ,ug m-3 ,PM25_NA[3] PM25_MG ,ug m-3 ,PM25_MG[3] PM25_K ,ug m-3 ,PM25_K[3] PM25_CA ,ug m-3 ,PM25_CA[3] PM25_NH4 ,ug m-3 ,PM25_NH4[3] PM25_NO3 ,ug m-3 ,PM25_NO3[3] PM25_OC ,ugC m-3 ,PM25_OC[3] PM25_OM ,ug m-3 ,PM25_OA[3] PM25_SOIL ,ug m-3 ,PM25_SOIL[3] PM25_SO4 ,ug m-3 ,PM25_SO4[3] PM25_TOT ,ug m-3 ,PM25[3] PM25_UNSPEC1 ,ug m-3 ,PM25_UNSP1[3] PM25_UNSPCRS ,ug m-3 ,PM25_UNSPCRS[3] !! PM10.0 and Coarse-Sized Species PM10 ,ug m-3 ,PM10[3] PMC_CL ,ug m-3 ,PM25TO10_CL[3] PMC_NA ,ug m-3 ,PM25TO10_NA[3] PMC_NH4 ,ug m-3 ,PM25TO10_NH4[3] PMC_NO3 ,ug m-3 ,PM25TO10_NO3[3] PMC_SO4 ,ug m-3 ,PM25TO10_SO4[3] PMC_TOT ,ug m-3 ,PM25TO10[3] !! Deisel PM Species DIESEL_PM10 ,ug m-3 ,PM10_HDIESEL[3] DIESEL_PM25 ,ug m-3 ,PM25_HDIESEL[3] !!Benzo-A-Pyrene, gas and aerosol species BAP_GAS ,ng/m3 ,1000.0*GAS_BENAPY[3], gas phase benzo-a-pyrene BAP_AERO ,ng/m3 ,1000.0*PMF_BENAPY[3], fine aerosol phase benzo-a-pyrene BAP_FAERO , ,BENAPY_FAERO[3], aerosol fraction benzo-a-pyrene BAP_PM10 ,ng/m3 ,1000.0*PM10_BENAPY[3] BAP_PM25 ,ng/m3 ,1000.0*PM25_BENAPY[3] !Toxic Metallic PM species BERYLLIUM_PM10 ,ng m-3 ,1000.0*PM10_HBE[3] BERYLLIUM_PM25 ,ng m-3 ,1000.0*PM25_HBE[3] CADMIUM_PM10 ,ng m-3 ,1000.0*PM10_HCD[3] CADMIUM_PM25 ,ng m-3 ,1000.0*PM25_HCD[3] CR_III_PM10 ,ng m-3 ,1000.0*PM10_HCR3[3] CR_III_PM25 ,ng m-3 ,1000.0*PM25_HCR3[3] CR_VI_PM10 ,ng m-3 ,1000.0*PM10_HCR6[3] CR_VI_PM25 ,ng m-3 ,1000.0*PM25_HCR6[3] CHROMIUM_PM10 ,ng m-3 ,1000.0*PM10_HCR[3] CHROMIUM_PM25 ,ng m-3 ,1000.0*PM25_HCR[3] LEAD_PM10 ,ng m-3 ,1000.0*PM10_HPB[3] LEAD_PM25 ,ng m-3 ,1000.0*PM25_HPB[3] MANGANESE_PM10 ,ng m-3 ,1000.0*PM10_HMN[3] MANGANESE_PM25 ,ng m-3 ,1000.0*PM25_HMN[3] NICKEL_PM10 ,ng m-3 ,1000.0*PM10_HNI[3] NICKEL_PM25 ,ng m-3 ,1000.0*PM25_HNI[3] ARSENIC_PM10 ,ng m-3 ,1000.0*PM10_HAS[3] ARSENIC_PM25 ,ng m-3 ,1000.0*PM25_HAS[3] !Mercuric PM species HG_PM10 ,ng m-3 ,1000.0*PM10_HG[3] HG_PM25 ,ng m-3 ,1000.0*PM25_HG[3] !! FRM PM Equivalent Calculation PMIJ_FRM ,ug m-3 ,PMF_FRM[3] PM25_FRM ,ug m-3 ,PM25_FRM[3] ================================================ FILE: CCTM/src/MECHS/cb6r5m_ae7_aq/AE_cb6r5m_ae7_aq.nml ================================================ &AE_nml AE_SPECIES_DATA = !SPECIES ,MOLWT ,Aitken ,Accum ,Coarse ,OPTICS ,IC ,ICFAC ,BC ,BC_FAC ,DRYDEP SURR ,FAC ,WET-SCAV SURR ,FAC ,AE2AQ SURR ,TRNS ,DDEP ,WDEP ,CONC 'ASO4' , 96.00 ,T ,T ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'SO4' , 1 ,'SO4' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ANH4' , 18.00 ,T ,T ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'NH4' , 1 ,'NH4' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ANO3' , 62.00 ,T ,T ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'NO3' , 1 ,'NO3' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ANA' , 23.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'NA' , 1 ,'NA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ACL' , 35.50 ,T ,T ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'CL' , 1 ,'CL' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AISO1' ,132.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AISO2' ,133.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ASQT' ,273.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AORGC' ,177.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'AORGC' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AEC' , 12.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'EC' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AOTHR' ,200.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'PRI' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AFE' , 55.80 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'FE' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AAL' , 27.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'PRI' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ASI' , 28.10 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'PRI' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ATI' , 47.90 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'PRI' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ACA' , 40.10 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'CA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AMG' , 24.30 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'MG' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AK' , 39.10 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'K' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AMN' , 54.90 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'MN' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ACORS' ,100.00 ,F ,F ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'ANTH' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ASOIL' ,100.00 ,F ,F ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'SOIL' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'NUM' , 1.00 ,T ,T ,T ,'' ,'' ,-1 ,'' ,-1 ,'VNUM' , 1 ,'NUM' , 1 ,'NUM' ,'Yes' ,'' ,'' ,'Yes', 'SRF' , 1.00 ,T ,T ,T ,'' ,'' ,-1 ,'' ,-1 ,'VSRF' , 1 ,'SRF' , 1 ,'SRF' ,'Yes' ,'' ,'' ,'Yes', 'AORGH2O' , 18.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'H2O' , 1 ,'H2O' ,'Yes' ,'' ,'' ,'Yes', 'AH2O' , 18.00 ,T ,T ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'H2O' , 1 ,'H2O' ,'Yes' ,'' ,'' ,'Yes', 'AH3OP' , 19.00 ,T ,T ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'' ,-1 ,'' ,'Yes' ,'' ,'' ,'Yes', 'ASEACAT' , 23.75 ,F ,F ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'SEAS' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AISO3' ,168.20 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AOLGA' ,206.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AOLGB' ,248.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AGLY' , 66.40 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AMTNO3' ,231.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AMTHYD' ,168.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'APOC' ,220.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'APNCOM' ,220.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'APCSO' ,170.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ALVPO1' ,218.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ASVPO1' ,230.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ASVPO2' ,241.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ASVPO3' ,253.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AIVPO1' ,266.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ALVOO1' ,136.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ALVOO2' ,136.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ASVOO1' ,135.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ASVOO2' ,135.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ASVOO3' ,134.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AAVB1' ,198.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AAVB2' ,179.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AAVB3' ,169.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AAVB4' ,158.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AMT1' ,300.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AMT2' ,200.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AMT3' ,186.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AMT4' ,184.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AMT5' ,170.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AMT6' ,168.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ABR' , 79.90 ,F ,T ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'TRACER' ,'Yes' ,'Yes' ,'Yes' ,'Yes', / ================================================ FILE: CCTM/src/MECHS/cb6r5m_ae7_aq/CMAQ_Control_DESID_cb6r5m_ae7_aq.nml ================================================ !------------------------------------------------------------------------------! ! Emission Control Interface ! ! for the ! ! Detailed Emissions Scaling, Isolation, and Diagnostics (DESID) Module, ! ! part of the ! ! Community Multiscale Air Quality (CMAQ) Model ! ! developed and maintained by the ! ! Center for Environmental Measurement and Modeling (CEMM), ! ! Office of Research and Development (ORD) ! ! U.S. Environmental Protection Agency (USEPA) ! ! ! ! This namelist is consistent with CMAQv5.4 (Release AUGUST 2022) ! ! ! ! See CMAQ User's Guide Appendix B (https://github.com/USEPA/CMAQ/blob/main/ ! ! DOCS/Users_Guide/Appendix/CMAQ_UG_appendixB_emissions_control.md) ! ! and Murphy et al., Geoscientific Model Development, 14, 3407-3420, ! ! https://doi.org/10.5194/gmd-14-3407-2021, 2021. ! !------------------------------------------------------------------------------! !------------------------------------------------------------------------------! ! Emissions Scaling Rule Specification Component ! ! Each rule is presented as a row of inputs. The syntax of the ! ! emissions scaling rules is the following: ! ! EM_INSTR(I) = 'Region Label', 'Stream Label', 'Emission-Species', ! ! 'CMAQ-Species', 'Phase/Mode', 'Scale Factor', 'Basis', ! ! 'Operation' ! ! ! ! See the User's Guide for detailed definitions of each field. ! ! ! ! You may confirm the effect of the (default and custom) rules below by ! ! inspecting the processor-dependent log files ("CTM_LOG_XXX...") ! ! ! ! Note: If no rules are provided for a species, then there is no emission ! ! of that species. ! !------------------------------------------------------------------------------! &Desid_ScalingVars Desid_Max_Rules = 2000 / &Desid_Scaling Desid_Rules_nml = ! Region | Stream Label |Emission | CMAQ- |Phase/|Scale |Basis |Op ! Label | |Species | Species |Mode |Factor| | ! Gases 'EVERYWHERE', 'ALL' ,'NO2' ,'NO2' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'NO' ,'NO' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'HONO' ,'HONO' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'SO2' ,'SO2' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'NH3' ,'NH3' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'AACD' ,'AACD' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'ALD2' ,'ALD2' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'FORM' ,'FORM' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'MEOH' ,'MEOH' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'FACD' ,'FACD' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'CO' ,'CO' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'ALDX' ,'ALDX' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'ETHA' ,'ETHA' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'ETOH' ,'ETOH' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'KET' ,'KET' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PAR' ,'PAR' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'ACET' ,'ACET' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PRPA' ,'PRPA' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'ETHY' ,'ETHY' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'ETH' ,'ETH' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'OLE' ,'OLE' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'IOLE' ,'IOLE' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'ISOP' ,'ISOP' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'APIN' ,'APIN' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'TERP' ,'TERP' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'BENZ' ,'BENZENE' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'TOL' ,'TOL' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'XYLMN' ,'XYLMN' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'NAPH' ,'NAPH' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'CH4' ,'ECH4' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'CL2' ,'CL2' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'HCL' ,'HCL' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'SESQ' ,'SESQ' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'SOAALK' ,'SOAALK' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'ACROLEIN','ACROLEIN' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'ALD2_PRIMARY','ALD2_PRIMARY','GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'FORM_PRIMARY','FORM_PRIMARY','GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'ACROLEIN','ACRO_PRIMARY','GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'BUTADIENE13','BUTADIENE13' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'SULF' ,'SULF' ,'GAS' ,0. ,'UNIT','a', ! Marine Halogen Chemistry 'EVERYWHERE', 'ALL' ,'HOI' ,'HOI' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'DMS' ,'DMS' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'CH3I' ,'CH3I' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'MI2' ,'MI2' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'MIB' ,'MIB' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'MIC' ,'MIC' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'BR2' ,'BR2' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'MB3' ,'MB3' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'MB2' ,'MB2' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'MB2C' ,'MB2C' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'MBC2' ,'MBC2' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'MBC' ,'MBC' ,'GAS' ,1. ,'UNIT','a', ! Default Aerosols 'EVERYWHERE', 'ALL' ,'SULF' ,'ASO4' ,'FINE' ,1. ,'MASS','a', 'EVERYWHERE', 'ALL' ,'PSO4' ,'ASO4' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PNH4' ,'ANH4' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PNO3' ,'ANO3' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PCL' ,'ACL' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PNA' ,'ANA' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PEC' ,'AEC' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMOTHR' ,'AOTHR' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PFE' ,'AFE' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PAL' ,'AAL' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PSI' ,'ASI' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PTI' ,'ATI' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PCA' ,'ACA' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMG' ,'AMG' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PK' ,'AK' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMN' ,'AMN' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PH2O' ,'AH2O' ,'FINE' ,1. ,'UNIT','a', ! Coarse-Mode Inorganic Ions Scaling 'EVERYWHERE', 'ALL' ,'PMC' ,'ACORS' ,'COARSE',0.99675,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMC' ,'ASO4' ,'COARSE',0.001 ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMC' ,'ANO3' ,'COARSE',0.00048,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMC' ,'ACL' ,'COARSE',0.00145,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMC' ,'AH2O' ,'COARSE',0.00032,'UNIT','a', ! Fine-Mode Primary Organic Aerosol Scaling ! --> Nonvolatile POA 'EVERYWHERE', 'ALL' ,'POC' ,'APOC' ,'FINE',0. ,'MASS','a', 'EVERYWHERE', 'ALL' ,'PNCOM' ,'APNCOM' ,'FINE',0. ,'MASS','a', ! --> Semivolatile POA (see CMAQ User's Guide Appendix B.2.2.1) 'EVERYWHERE', 'ALL' ,'POC' ,'VSVPO1' ,'GAS' ,0.045,'MASS','a', 'EVERYWHERE', 'ALL' ,'PNCOM' ,'VSVPO1' ,'GAS' ,0.045,'MASS','a', 'EVERYWHERE', 'ALL' ,'POC' ,'VSVPO2' ,'GAS' ,0.14 ,'MASS','a', 'EVERYWHERE', 'ALL' ,'PNCOM' ,'VSVPO2' ,'GAS' ,0.14 ,'MASS','a', 'EVERYWHERE', 'ALL' ,'POC' ,'VSVPO3' ,'GAS' ,0.18 ,'MASS','a', 'EVERYWHERE', 'ALL' ,'PNCOM' ,'VSVPO3' ,'GAS' ,0.18 ,'MASS','a', 'EVERYWHERE', 'ALL' ,'POC' ,'VIVPO1' ,'GAS' ,0.50 ,'MASS','a', 'EVERYWHERE', 'ALL' ,'PNCOM' ,'VIVPO1' ,'GAS' ,0.50 ,'MASS','a', 'EVERYWHERE', 'ALL' ,'POC' ,'ALVPO1' ,'FINE',0.09 ,'MASS','a', 'EVERYWHERE', 'ALL' ,'PNCOM' ,'ALVPO1' ,'FINE',0.09 ,'MASS','a', 'EVERYWHERE', 'ALL' ,'POC' ,'ASVPO1' ,'FINE',0.045,'MASS','a', 'EVERYWHERE', 'ALL' ,'PNCOM' ,'ASVPO1' ,'FINE',0.045,'MASS','a', ! pcSOA is a CMAQ species introduced to account for missing pathways for SOA ! formation from combustion sources. It accounts for IVOC oxidation as well as ! other phenomena (Murphy et al., ACP, 2017). It was parameterized based on data ! primarily from Los Angeles, where vehicle exhaust continues to dominate. 'EVERYWHERE', 'ALL' ,'POC' ,'PCVOC' ,'GAS' ,6.579,'MASS','a', 'EVERYWHERE', 'ALL' ,'PNCOM' ,'PCVOC' ,'GAS' ,6.579,'MASS','a', ! However, the added pcSOA is probably inappropriate for Fire sources, especially ! in its current configuration. This pathway should be zeroed out for all fire ! and wood-burning related sources. 'EVERYWHERE', 'PT_FIRES' ,'ALL' ,'PCVOC' ,'GAS' ,0.0 ,'MASS','o', 'EVERYWHERE', 'PT_RXFIRES' ,'ALL' ,'PCVOC' ,'GAS' ,0.0 ,'MASS','o', 'EVERYWHERE', 'PT_WILDFIRES' ,'ALL' ,'PCVOC' ,'GAS' ,0.0 ,'MASS','o', 'EVERYWHERE', 'PT_AGFIRES' ,'ALL' ,'PCVOC' ,'GAS' ,0.0 ,'MASS','o', 'EVERYWHERE', 'PT_OTHFIRES' ,'ALL' ,'PCVOC' ,'GAS' ,0.0 ,'MASS','o', 'EVERYWHERE', 'PT_FIRES_MXCA','ALL' ,'PCVOC' ,'GAS' ,0.0 ,'MASS','o', 'EVERYWHERE', 'GR_RES_FIRES' ,'ALL' ,'PCVOC' ,'GAS' ,0.0 ,'MASS','o', ! Wind-Blown Dust and Sea Spray Scaling ! Fine Components 'EVERYWHERE', 'ALL' ,'PMFINE_LVPO1','ALVPO1' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_LVOO1','ALVOO1' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_SO4' ,'ASO4' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_NO3' ,'ANO3' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_CL' ,'ACL' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_NH4' ,'ANH4' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_NA' ,'ANA' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_CA' ,'ACA' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_MG' ,'AMG' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_K' ,'AK' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_FE' ,'AFE' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_AL' ,'AAL' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_SI' ,'ASI' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_TI' ,'ATI' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_MN' ,'AMN' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_H2O' ,'AH2O' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_OTHR' ,'AOTHR' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_BR' ,'ABR' ,'FINE',1. ,'UNIT','a', ! :Scaling of Fine-Mode POA from Wind-Blown Dust or Sea Spray. Either the ! :Nonvolatile POA should be propagated to the transport model, or the Low ! :Volatility POA should be propagated, not both. ! Wind-Blown Dust and Sea Spray Scaling ! Coarse Components 'EVERYWHERE', 'ALL' ,'PMCOARSE_SO4','ASO4' ,'COARSE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMCOARSE_NO3','ANO3' ,'COARSE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMCOARSE_CL' ,'ACL' ,'COARSE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMCOARSE_H2O','AH2O' ,'COARSE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMCOARSE_SOIL','ASOIL' ,'COARSE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMCOARSE_SEACAT','ASEACAT' ,'COARSE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMCOARSE_BR' ,'ABR' ,'COARSE',1. ,'UNIT','a', / ================================================ FILE: CCTM/src/MECHS/cb6r5m_ae7_aq/CSQY_DATA_cb6r5m_ae7_aq ================================================ Table for Mechanism = CB6R5M_AE7_AQ NPHOTAB = 56 !Individual rates listed below: NO2_IUPAC10 O3_O3P_IUPAC10 O3_O1D_IUPAC10 H2O2_IUPAC10 NO3NO2_06 NO3NO_06 N2O5_IUPAC10 HONO_IUPAC10 HNO3_IUPAC10 PNA_IUPAC10 PAN_IUPAC10 MEPX_IUPAC10 NTR_IUPAC10 FORM_R_IUPAC13 FORM_M_IUPAC13 ALD2_R_IUPAC13 ALDX_R_IUPAC13 GLYD_IUPAC13 GLY_R_IUPAC13 MGLY_IUPAC10 KET_IUPAC10 ACET_IUPAC10 ISPD HPALD CL2_IUPAC04 HOCL_IUPAC04 FMCL_IUPAC04 CLNO2_IUPAC13 CLONO2_1 CLONO2_2 IC3ONO2 ACRO_09 BR2_IUPAC10 HOBR_IUPAC10 BRO_IUPAC10 BRNO2_IUPAC10 BRONO2_M_IUPAC10 BRONO2_R_IUPAC10 BRCL_IUPAC10 COHBR_JPL2010 MB3_IUPAC10 MB2C_BLIDE98 MBC2_BLIDE98 I2_IUPAC10 HOI_IUPAC10 IO_IUPAC10 OIO_06 INO_06 INO2_06 IONO2_06 ICL_IUPAC10 IBR_IUPAC10 CH3I_IUPAC10 MI2_IUPAC10 MIB_IUPAC10 MIC_IUPAC10 NTEMP = 6 ! I TEMP( I ) K 1 210.00 2 230.00 3 250.00 4 270.00 5 290.00 6 310.00 ! Wavelength and Photolysis Rate Parameters for CMAQ In-Line Photolysis ! calculation . The values are determined by averaging technique over the below ! number of wavelength bins. The technique employs an approach used by the FASTJX ! versions 6 and 7. !References: ! 1) Bian, H. S. and Prather, M. J.: Fast-J2: accurate simulation of stratospheric ! photolysis in global chemical models, J. Atmos. Chem., 41, 281-296 doi:10.1023/A:1014980619462, 2002. ! 2) Hsu, J. and Prather, M. J.: Stratospheric variability and tropospheric ozone, ! J. Geophys. Res., 114, D06102, doi:10.1029/2008JD010942, 2009. ! 3) Prather, M. J.: Fast-JX versions and utilities, available at: ! http://www.ess.uci.edu/researchgrp/prather/scholar_software/fast-jx ! (last accessed: 24 January 2014), 2014. ! Wave bands and Solar Flux ! N_INLINE_BAND = 7 ! I, START_WL_BIN(nm), EFFECT_WL_BIN_(nm), END_WL_BIN_(nm), photon_flux(cm-2*s-1), 1, 291.000, 294.590, 298.300, 5.8828E+14, 2, 298.300, 303.151, 307.500, 7.6354E+14, 3, 307.500, 310.007, 312.500, 5.0412E+14, 4, 312.500, 316.434, 320.300, 8.9628E+14, 5, 320.300, 333.076, 345.000, 3.8537E+15, 6, 345.000, 381.997, 412.500, 1.5457E+16, 7, 412.500, 607.723, 850.000, 2.1307E+17, !... CS = absorption cross sections averaged over UCI Solar Flux !... QY = quantum yields averaged over UCI Solar Flux !... EQY = eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model !PHOTAB QUANTITY TEMP WBIN( 1) WBIN( 2) WBIN( 3) WBIN( 4) WBIN( 5) WBIN( 6) WBIN( 7) NO2_IUPAC10 CS 210.000 9.420958E-20 1.354622E-19 1.774391E-19 2.174503E-19 3.547179E-19 5.767915E-19 3.786790E-21 NO2_IUPAC10 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 7.963594E-01 4.393946E-02 NO2_IUPAC10 CS 230.000 9.434513E-20 1.353973E-19 1.770686E-19 2.162921E-19 3.512878E-19 5.752929E-19 3.777024E-21 NO2_IUPAC10 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 7.963594E-01 4.393946E-02 NO2_IUPAC10 CS 250.000 9.461621E-20 1.352675E-19 1.763276E-19 2.139758E-19 3.444275E-19 5.722957E-19 3.757493E-21 NO2_IUPAC10 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 7.971660E-01 4.545939E-02 NO2_IUPAC10 CS 270.000 9.488729E-20 1.351377E-19 1.755867E-19 2.116595E-19 3.375671E-19 5.692984E-19 3.737961E-21 NO2_IUPAC10 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 8.052323E-01 6.065865E-02 NO2_IUPAC10 CS 290.000 9.515838E-20 1.350079E-19 1.748457E-19 2.093432E-19 3.307068E-19 5.663012E-19 3.718430E-21 NO2_IUPAC10 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 8.132986E-01 7.585791E-02 NO2_IUPAC10 CS 310.000 9.521259E-20 1.349819E-19 1.746975E-19 2.088799E-19 3.293347E-19 5.657017E-19 3.714523E-21 NO2_IUPAC10 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 8.165251E-01 8.193760E-02 O3_O3P_IUPAC10 CS 210.000 8.051318E-19 2.408910E-19 9.055385E-20 3.615927E-20 4.571664E-21 4.615212E-23 1.523765E-21 O3_O3P_IUPAC10 EQY 210.000 1.000000E-01 1.027219E-01 4.447545E-01 8.027972E-01 8.946853E-01 9.211782E-01 9.999820E-01 O3_O3P_IUPAC10 CS 230.000 8.171868E-19 2.460948E-19 9.334247E-20 3.770529E-20 4.888574E-21 4.615212E-23 1.523765E-21 O3_O3P_IUPAC10 EQY 230.000 1.000000E-01 1.027219E-01 4.402074E-01 8.051998E-01 8.946853E-01 9.211782E-01 9.999820E-01 O3_O3P_IUPAC10 CS 250.000 8.372787E-19 2.547678E-19 9.799016E-20 4.028199E-20 5.416759E-21 4.615212E-23 1.523765E-21 O3_O3P_IUPAC10 EQY 250.000 1.000000E-01 1.027219E-01 4.327254E-01 8.061814E-01 8.946853E-01 9.211782E-01 9.999820E-01 O3_O3P_IUPAC10 CS 270.000 8.573704E-19 2.634407E-19 1.026379E-19 4.285869E-20 5.944944E-21 4.615212E-23 1.523765E-21 O3_O3P_IUPAC10 EQY 270.000 1.000000E-01 1.027219E-01 4.200289E-01 8.006186E-01 8.946853E-01 9.211782E-01 9.999820E-01 O3_O3P_IUPAC10 CS 290.000 8.774622E-19 2.721137E-19 1.072856E-19 4.543539E-20 6.473128E-21 4.615212E-23 1.523765E-21 O3_O3P_IUPAC10 EQY 290.000 1.000000E-01 1.027219E-01 3.979119E-01 7.767363E-01 8.946853E-01 9.211782E-01 9.999820E-01 O3_O3P_IUPAC10 CS 310.000 8.804761E-19 2.734146E-19 1.079827E-19 4.582189E-20 6.552356E-21 4.615212E-23 1.523765E-21 O3_O3P_IUPAC10 EQY 310.000 1.000000E-01 1.027219E-01 3.582713E-01 7.092118E-01 8.946853E-01 9.211782E-01 9.999820E-01 O3_O1D_IUPAC10 CS 210.000 8.051318E-19 2.408910E-19 9.055385E-20 3.615927E-20 4.571664E-21 4.615212E-23 1.523765E-21 O3_O1D_IUPAC10 EQY 210.000 9.000000E-01 8.972781E-01 5.552455E-01 1.972028E-01 1.053147E-01 7.882178E-02 1.800060E-05 O3_O1D_IUPAC10 CS 230.000 8.171868E-19 2.460948E-19 9.334247E-20 3.770529E-20 4.888574E-21 4.615212E-23 1.523765E-21 O3_O1D_IUPAC10 EQY 230.000 9.000000E-01 8.972781E-01 5.597926E-01 1.948002E-01 1.053147E-01 7.882178E-02 1.800060E-05 O3_O1D_IUPAC10 CS 250.000 8.372787E-19 2.547678E-19 9.799016E-20 4.028199E-20 5.416759E-21 4.615212E-23 1.523765E-21 O3_O1D_IUPAC10 EQY 250.000 9.000000E-01 8.972781E-01 5.672746E-01 1.938186E-01 1.053147E-01 7.882178E-02 1.800060E-05 O3_O1D_IUPAC10 CS 270.000 8.573704E-19 2.634407E-19 1.026379E-19 4.285869E-20 5.944944E-21 4.615212E-23 1.523765E-21 O3_O1D_IUPAC10 EQY 270.000 9.000000E-01 8.972781E-01 5.799711E-01 1.993814E-01 1.053147E-01 7.882178E-02 1.800060E-05 O3_O1D_IUPAC10 CS 290.000 8.774622E-19 2.721137E-19 1.072856E-19 4.543539E-20 6.473128E-21 4.615212E-23 1.523765E-21 O3_O1D_IUPAC10 EQY 290.000 9.000000E-01 8.972781E-01 6.020881E-01 2.232637E-01 1.053147E-01 7.882178E-02 1.800060E-05 O3_O1D_IUPAC10 CS 310.000 8.804761E-19 2.734146E-19 1.079827E-19 4.582189E-20 6.552356E-21 4.615212E-23 1.523765E-21 O3_O1D_IUPAC10 EQY 310.000 9.000000E-01 8.972781E-01 6.417287E-01 2.907882E-01 1.053147E-01 7.882178E-02 1.800060E-05 H2O2_IUPAC10 CS 210.000 9.663063E-21 5.877752E-21 3.837687E-21 2.660469E-21 1.015675E-21 5.105271E-23 0.000000E+00 H2O2_IUPAC10 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.986846E-01 0.000000E+00 H2O2_IUPAC10 CS 230.000 9.802651E-21 5.987925E-21 3.927030E-21 2.734720E-21 1.056133E-21 5.105271E-23 0.000000E+00 H2O2_IUPAC10 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.986846E-01 0.000000E+00 H2O2_IUPAC10 CS 250.000 9.991126E-21 6.136684E-21 4.047665E-21 2.834977E-21 1.110760E-21 5.105271E-23 0.000000E+00 H2O2_IUPAC10 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.986846E-01 0.000000E+00 H2O2_IUPAC10 CS 270.000 1.023066E-20 6.325741E-21 4.200981E-21 2.962393E-21 1.180187E-21 5.105271E-23 0.000000E+00 H2O2_IUPAC10 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.986846E-01 0.000000E+00 H2O2_IUPAC10 CS 290.000 1.052111E-20 6.554984E-21 4.386883E-21 3.116892E-21 1.264370E-21 5.105271E-23 0.000000E+00 H2O2_IUPAC10 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.986846E-01 0.000000E+00 H2O2_IUPAC10 CS 310.000 1.086042E-20 6.822793E-21 4.604061E-21 3.297382E-21 1.362715E-21 5.105271E-23 0.000000E+00 H2O2_IUPAC10 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.986846E-01 0.000000E+00 NO3NO2_06 CS 210.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 5.262113E-21 1.613590E-18 NO3NO2_06 EQY 210.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.000000E+00 5.942736E-01 NO3NO2_06 CS 230.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 4.993950E-21 1.531360E-18 NO3NO2_06 EQY 230.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.000000E+00 6.050572E-01 NO3NO2_06 CS 250.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 4.713711E-21 1.445427E-18 NO3NO2_06 EQY 250.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.000000E+00 6.142171E-01 NO3NO2_06 CS 270.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 4.425707E-21 1.357113E-18 NO3NO2_06 EQY 270.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.000000E+00 6.233770E-01 NO3NO2_06 CS 290.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 4.133394E-21 1.267477E-18 NO3NO2_06 EQY 290.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.000000E+00 6.325368E-01 NO3NO2_06 CS 310.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 3.839497E-21 1.177355E-18 NO3NO2_06 EQY 310.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.000000E+00 6.362008E-01 NO3NO_06 CS 210.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 5.262113E-21 1.613590E-18 NO3NO_06 EQY 210.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 8.130509E-02 NO3NO_06 CS 230.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 4.993950E-21 1.531360E-18 NO3NO_06 EQY 230.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 8.048424E-02 NO3NO_06 CS 250.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 4.713711E-21 1.445427E-18 NO3NO_06 EQY 250.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 8.024673E-02 NO3NO_06 CS 270.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 4.425707E-21 1.357113E-18 NO3NO_06 EQY 270.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 8.000923E-02 NO3NO_06 CS 290.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 4.133394E-21 1.267477E-18 NO3NO_06 EQY 290.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 7.977173E-02 NO3NO_06 CS 310.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 3.839497E-21 1.177355E-18 NO3NO_06 EQY 310.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 7.967671E-02 N2O5_IUPAC10 CS 210.000 5.286138E-20 3.282404E-20 2.191359E-20 1.511474E-20 6.060293E-21 6.152397E-22 0.000000E+00 N2O5_IUPAC10 EQY 210.000 9.185266E-01 9.975538E-01 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 N2O5_IUPAC10 CS 230.000 5.286896E-20 3.282982E-20 2.191831E-20 1.511860E-20 6.062690E-21 6.157666E-22 0.000000E+00 N2O5_IUPAC10 EQY 230.000 9.185266E-01 9.975538E-01 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 N2O5_IUPAC10 CS 250.000 5.287533E-20 3.283467E-20 2.192227E-20 1.512185E-20 6.064704E-21 6.162096E-22 0.000000E+00 N2O5_IUPAC10 EQY 250.000 9.185266E-01 9.975538E-01 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 N2O5_IUPAC10 CS 270.000 5.288076E-20 3.283881E-20 2.192564E-20 1.512461E-20 6.066420E-21 6.165872E-22 0.000000E+00 N2O5_IUPAC10 EQY 270.000 9.185266E-01 9.975538E-01 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 N2O5_IUPAC10 CS 290.000 5.288543E-20 3.284238E-20 2.192855E-20 1.512700E-20 6.067900E-21 6.169129E-22 0.000000E+00 N2O5_IUPAC10 EQY 290.000 9.185266E-01 9.975538E-01 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 N2O5_IUPAC10 CS 310.000 5.288754E-20 3.284398E-20 2.192985E-20 1.512807E-20 6.068566E-21 6.170595E-22 0.000000E+00 N2O5_IUPAC10 EQY 310.000 9.185266E-01 9.975538E-01 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HONO_IUPAC10 CS 210.000 1.874562E-20 6.161052E-21 1.172420E-20 2.303942E-20 8.731945E-20 7.564806E-20 0.000000E+00 HONO_IUPAC10 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.999840E-01 0.000000E+00 HONO_IUPAC10 CS 230.000 1.874562E-20 6.161052E-21 1.172420E-20 2.303942E-20 8.731945E-20 7.564806E-20 0.000000E+00 HONO_IUPAC10 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.999840E-01 0.000000E+00 HONO_IUPAC10 CS 250.000 1.874562E-20 6.161052E-21 1.172420E-20 2.303942E-20 8.731945E-20 7.564806E-20 0.000000E+00 HONO_IUPAC10 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.999840E-01 0.000000E+00 HONO_IUPAC10 CS 270.000 1.874562E-20 6.161052E-21 1.172420E-20 2.303942E-20 8.731945E-20 7.564806E-20 0.000000E+00 HONO_IUPAC10 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.999840E-01 0.000000E+00 HONO_IUPAC10 CS 290.000 1.874562E-20 6.161052E-21 1.172420E-20 2.303942E-20 8.731945E-20 7.564806E-20 0.000000E+00 HONO_IUPAC10 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.999840E-01 0.000000E+00 HONO_IUPAC10 CS 310.000 1.874562E-20 6.161052E-21 1.172420E-20 2.303942E-20 8.731945E-20 7.564806E-20 0.000000E+00 HONO_IUPAC10 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.999840E-01 0.000000E+00 HNO3_IUPAC10 CS 210.000 4.166234E-21 1.877995E-21 7.805607E-22 3.243519E-22 2.838103E-23 3.550938E-25 0.000000E+00 HNO3_IUPAC10 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.983369E-01 0.000000E+00 HNO3_IUPAC10 CS 230.000 4.388597E-21 2.011394E-21 8.503601E-22 3.623056E-22 3.431827E-23 3.587909E-25 0.000000E+00 HNO3_IUPAC10 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.983369E-01 0.000000E+00 HNO3_IUPAC10 CS 250.000 4.622829E-21 2.154269E-21 9.264013E-22 4.047005E-22 4.149756E-23 3.625265E-25 0.000000E+00 HNO3_IUPAC10 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.983369E-01 0.000000E+00 HNO3_IUPAC10 CS 270.000 4.869561E-21 2.307292E-21 1.009242E-21 4.520562E-22 5.017875E-23 3.663011E-25 0.000000E+00 HNO3_IUPAC10 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.983369E-01 0.000000E+00 HNO3_IUPAC10 CS 290.000 5.129463E-21 2.471185E-21 1.099491E-21 5.049532E-22 6.067601E-23 3.701149E-25 0.000000E+00 HNO3_IUPAC10 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.983369E-01 0.000000E+00 HNO3_IUPAC10 CS 310.000 5.403236E-21 2.646719E-21 1.197810E-21 5.640399E-22 7.336928E-23 3.739684E-25 0.000000E+00 HNO3_IUPAC10 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.983369E-01 0.000000E+00 PNA_IUPAC10 CS 210.000 2.768231E-20 1.086640E-20 4.753695E-21 2.705257E-21 3.427064E-22 0.000000E+00 0.000000E+00 PNA_IUPAC10 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.993055E-01 0.000000E+00 0.000000E+00 PNA_IUPAC10 CS 230.000 2.825610E-20 1.126199E-20 5.012977E-21 2.902247E-21 3.888219E-22 0.000000E+00 0.000000E+00 PNA_IUPAC10 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.993055E-01 0.000000E+00 0.000000E+00 PNA_IUPAC10 CS 250.000 2.908251E-20 1.183175E-20 5.386413E-21 3.185963E-21 4.552405E-22 0.000000E+00 0.000000E+00 PNA_IUPAC10 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.993055E-01 0.000000E+00 0.000000E+00 PNA_IUPAC10 CS 270.000 3.019241E-20 1.259695E-20 5.887948E-21 3.567003E-21 5.444426E-22 0.000000E+00 0.000000E+00 PNA_IUPAC10 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.993055E-01 0.000000E+00 0.000000E+00 PNA_IUPAC10 CS 290.000 3.160436E-20 1.357040E-20 6.525974E-21 4.051742E-21 6.579210E-22 0.000000E+00 0.000000E+00 PNA_IUPAC10 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.993055E-01 0.000000E+00 0.000000E+00 PNA_IUPAC10 CS 310.000 3.332532E-20 1.475689E-20 7.303630E-21 4.642564E-21 7.962334E-22 0.000000E+00 0.000000E+00 PNA_IUPAC10 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.993055E-01 0.000000E+00 0.000000E+00 PAN_IUPAC10 CS 210.000 1.945595E-21 7.375681E-22 3.339314E-22 1.711848E-22 3.676151E-23 1.420572E-24 0.000000E+00 PAN_IUPAC10 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.982885E-01 0.000000E+00 PAN_IUPAC10 CS 230.000 2.279872E-21 8.774045E-22 4.009705E-22 2.076227E-22 4.614925E-23 1.435982E-24 0.000000E+00 PAN_IUPAC10 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.982885E-01 0.000000E+00 PAN_IUPAC10 CS 250.000 2.671583E-21 1.043752E-21 4.814681E-22 2.518166E-22 5.793432E-23 1.451559E-24 0.000000E+00 PAN_IUPAC10 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.982885E-01 0.000000E+00 PAN_IUPAC10 CS 270.000 3.130594E-21 1.241639E-21 5.781261E-22 3.054176E-22 7.272892E-23 1.467305E-24 0.000000E+00 PAN_IUPAC10 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.982885E-01 0.000000E+00 PAN_IUPAC10 CS 290.000 3.668470E-21 1.477042E-21 6.941890E-22 3.704279E-22 9.130162E-23 1.483222E-24 0.000000E+00 PAN_IUPAC10 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.982885E-01 0.000000E+00 PAN_IUPAC10 CS 310.000 4.298759E-21 1.757076E-21 8.335523E-22 4.492761E-22 1.146172E-22 1.499311E-24 0.000000E+00 PAN_IUPAC10 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.982885E-01 0.000000E+00 MEPX_IUPAC10 CS 210.000 6.280529E-21 4.060546E-21 2.741565E-21 1.980587E-21 8.228210E-22 5.779768E-23 0.000000E+00 MEPX_IUPAC10 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.995850E-01 0.000000E+00 MEPX_IUPAC10 CS 230.000 6.280529E-21 4.060546E-21 2.741565E-21 1.980587E-21 8.228210E-22 5.779768E-23 0.000000E+00 MEPX_IUPAC10 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.995850E-01 0.000000E+00 MEPX_IUPAC10 CS 250.000 6.280529E-21 4.060546E-21 2.741565E-21 1.980587E-21 8.228210E-22 5.779768E-23 0.000000E+00 MEPX_IUPAC10 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.995850E-01 0.000000E+00 MEPX_IUPAC10 CS 270.000 6.280529E-21 4.060546E-21 2.741565E-21 1.980587E-21 8.228210E-22 5.779768E-23 0.000000E+00 MEPX_IUPAC10 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.995850E-01 0.000000E+00 MEPX_IUPAC10 CS 290.000 6.280529E-21 4.060546E-21 2.741565E-21 1.980587E-21 8.228210E-22 5.779768E-23 0.000000E+00 MEPX_IUPAC10 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.995850E-01 0.000000E+00 MEPX_IUPAC10 CS 310.000 6.280529E-21 4.060546E-21 2.741565E-21 1.980587E-21 8.228210E-22 5.779768E-23 0.000000E+00 MEPX_IUPAC10 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.995850E-01 0.000000E+00 NTR_IUPAC10 CS 210.000 1.076218E-20 5.464268E-21 2.614017E-21 1.242460E-21 1.566121E-22 1.627988E-24 0.000000E+00 NTR_IUPAC10 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.998643E-01 0.000000E+00 NTR_IUPAC10 CS 230.000 1.076218E-20 5.464268E-21 2.614017E-21 1.242460E-21 1.566121E-22 1.627988E-24 0.000000E+00 NTR_IUPAC10 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.998643E-01 0.000000E+00 NTR_IUPAC10 CS 250.000 1.128924E-20 5.792141E-21 2.800412E-21 1.353672E-21 1.751516E-22 1.627988E-24 0.000000E+00 NTR_IUPAC10 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.998643E-01 0.000000E+00 NTR_IUPAC10 CS 270.000 1.242207E-20 6.508089E-21 3.214023E-21 1.606851E-21 2.190747E-22 1.627988E-24 0.000000E+00 NTR_IUPAC10 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.998643E-01 0.000000E+00 NTR_IUPAC10 CS 290.000 1.366857E-20 7.312533E-21 3.688722E-21 1.907382E-21 2.740124E-22 1.627988E-24 0.000000E+00 NTR_IUPAC10 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.998643E-01 0.000000E+00 NTR_IUPAC10 CS 310.000 1.504015E-20 8.216412E-21 4.233534E-21 2.264122E-21 3.427270E-22 1.627988E-24 0.000000E+00 NTR_IUPAC10 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.998643E-01 0.000000E+00 FORM_R_IUPAC13 CS 210.000 3.183341E-20 3.299377E-20 1.538316E-20 3.249054E-20 1.927902E-20 7.819422E-22 0.000000E+00 FORM_R_IUPAC13 EQY 210.000 7.325943E-01 7.020468E-01 6.968195E-01 6.939636E-01 2.062342E-01 4.642611E-03 0.000000E+00 FORM_R_IUPAC13 CS 230.000 3.180326E-20 3.299156E-20 1.537452E-20 3.251374E-20 1.929003E-20 7.814351E-22 0.000000E+00 FORM_R_IUPAC13 EQY 230.000 7.325943E-01 7.020468E-01 6.968195E-01 6.939636E-01 2.062342E-01 4.642611E-03 0.000000E+00 FORM_R_IUPAC13 CS 250.000 3.177310E-20 3.298936E-20 1.536589E-20 3.253694E-20 1.930104E-20 7.809278E-22 0.000000E+00 FORM_R_IUPAC13 EQY 250.000 7.325943E-01 7.020468E-01 6.968195E-01 6.939636E-01 2.062342E-01 4.642611E-03 0.000000E+00 FORM_R_IUPAC13 CS 270.000 3.174294E-20 3.298716E-20 1.535726E-20 3.256014E-20 1.931205E-20 7.804207E-22 0.000000E+00 FORM_R_IUPAC13 EQY 270.000 7.325943E-01 7.020468E-01 6.968195E-01 6.939636E-01 2.062342E-01 4.642611E-03 0.000000E+00 FORM_R_IUPAC13 CS 290.000 3.171278E-20 3.298495E-20 1.534863E-20 3.258335E-20 1.932306E-20 7.799134E-22 0.000000E+00 FORM_R_IUPAC13 EQY 290.000 7.325943E-01 7.020468E-01 6.968195E-01 6.939636E-01 2.062342E-01 4.642611E-03 0.000000E+00 FORM_R_IUPAC13 CS 310.000 3.169770E-20 3.298385E-20 1.534431E-20 3.259494E-20 1.932857E-20 7.796598E-22 0.000000E+00 FORM_R_IUPAC13 EQY 310.000 7.325943E-01 7.020468E-01 6.968195E-01 6.939636E-01 2.062342E-01 4.642611E-03 0.000000E+00 FORM_M_IUPAC13 CS 210.000 3.183341E-20 3.299377E-20 1.538316E-20 3.249054E-20 1.927902E-20 7.819422E-22 0.000000E+00 FORM_M_IUPAC13 EQY 210.000 2.674058E-01 2.979532E-01 3.031805E-01 3.060364E-01 6.197889E-01 3.249540E-01 0.000000E+00 FORM_M_IUPAC13 CS 230.000 3.180326E-20 3.299156E-20 1.537452E-20 3.251374E-20 1.929003E-20 7.814351E-22 0.000000E+00 FORM_M_IUPAC13 EQY 230.000 2.674058E-01 2.979532E-01 3.031805E-01 3.060364E-01 6.151104E-01 3.123051E-01 0.000000E+00 FORM_M_IUPAC13 CS 250.000 3.177310E-20 3.298936E-20 1.536589E-20 3.253694E-20 1.930104E-20 7.809278E-22 0.000000E+00 FORM_M_IUPAC13 EQY 250.000 2.674058E-01 2.979532E-01 3.031805E-01 3.060364E-01 6.054386E-01 2.893018E-01 0.000000E+00 FORM_M_IUPAC13 CS 270.000 3.174294E-20 3.298716E-20 1.535726E-20 3.256014E-20 1.931205E-20 7.804207E-22 0.000000E+00 FORM_M_IUPAC13 EQY 270.000 2.674058E-01 2.979532E-01 3.031805E-01 3.060364E-01 5.955116E-01 2.692139E-01 0.000000E+00 FORM_M_IUPAC13 CS 290.000 3.171278E-20 3.298495E-20 1.534863E-20 3.258335E-20 1.932306E-20 7.799134E-22 0.000000E+00 FORM_M_IUPAC13 EQY 290.000 2.674058E-01 2.979532E-01 3.031805E-01 3.060364E-01 5.853828E-01 2.515744E-01 0.000000E+00 FORM_M_IUPAC13 CS 310.000 3.169770E-20 3.298385E-20 1.534431E-20 3.259494E-20 1.932857E-20 7.796598E-22 0.000000E+00 FORM_M_IUPAC13 EQY 310.000 2.674058E-01 2.979532E-01 3.031805E-01 3.060364E-01 5.802345E-01 2.435120E-01 0.000000E+00 ALD2_R_IUPAC13 CS 210.000 4.432586E-20 3.717937E-20 2.933103E-20 2.105459E-20 5.353235E-21 1.388418E-23 0.000000E+00 ALD2_R_IUPAC13 EQY 210.000 5.721845E-01 4.517220E-01 3.206589E-01 1.785219E-01 3.513154E-02 0.000000E+00 0.000000E+00 ALD2_R_IUPAC13 CS 230.000 4.432586E-20 3.717937E-20 2.933103E-20 2.105459E-20 5.353235E-21 1.388418E-23 0.000000E+00 ALD2_R_IUPAC13 EQY 230.000 5.721845E-01 4.517220E-01 3.206589E-01 1.785219E-01 3.513154E-02 0.000000E+00 0.000000E+00 ALD2_R_IUPAC13 CS 250.000 4.432586E-20 3.717937E-20 2.933103E-20 2.105459E-20 5.353235E-21 1.388418E-23 0.000000E+00 ALD2_R_IUPAC13 EQY 250.000 5.721845E-01 4.517220E-01 3.206589E-01 1.785219E-01 3.513154E-02 0.000000E+00 0.000000E+00 ALD2_R_IUPAC13 CS 270.000 4.432586E-20 3.717937E-20 2.933103E-20 2.105459E-20 5.353235E-21 1.388418E-23 0.000000E+00 ALD2_R_IUPAC13 EQY 270.000 5.721845E-01 4.517220E-01 3.206589E-01 1.785219E-01 3.513154E-02 0.000000E+00 0.000000E+00 ALD2_R_IUPAC13 CS 290.000 4.432586E-20 3.717937E-20 2.933103E-20 2.105459E-20 5.353235E-21 1.388418E-23 0.000000E+00 ALD2_R_IUPAC13 EQY 290.000 5.721845E-01 4.517220E-01 3.206589E-01 1.785219E-01 3.513154E-02 0.000000E+00 0.000000E+00 ALD2_R_IUPAC13 CS 310.000 4.432586E-20 3.717937E-20 2.933103E-20 2.105459E-20 5.353235E-21 1.388418E-23 0.000000E+00 ALD2_R_IUPAC13 EQY 310.000 5.721845E-01 4.517220E-01 3.206589E-01 1.785219E-01 3.513154E-02 0.000000E+00 0.000000E+00 ALDX_R_IUPAC13 CS 210.000 5.852983E-20 5.282509E-20 4.273233E-20 3.228716E-20 8.347573E-21 0.000000E+00 0.000000E+00 ALDX_R_IUPAC13 EQY 210.000 8.779770E-01 9.973180E-01 1.000000E+00 1.000000E+00 8.999137E-01 0.000000E+00 0.000000E+00 ALDX_R_IUPAC13 CS 230.000 5.852983E-20 5.282509E-20 4.273233E-20 3.228716E-20 8.347573E-21 0.000000E+00 0.000000E+00 ALDX_R_IUPAC13 EQY 230.000 8.779770E-01 9.973180E-01 1.000000E+00 1.000000E+00 8.999137E-01 0.000000E+00 0.000000E+00 ALDX_R_IUPAC13 CS 250.000 5.852983E-20 5.282509E-20 4.273233E-20 3.228716E-20 8.347573E-21 0.000000E+00 0.000000E+00 ALDX_R_IUPAC13 EQY 250.000 8.779770E-01 9.973180E-01 1.000000E+00 1.000000E+00 8.999137E-01 0.000000E+00 0.000000E+00 ALDX_R_IUPAC13 CS 270.000 5.852983E-20 5.282509E-20 4.273233E-20 3.228716E-20 8.347573E-21 0.000000E+00 0.000000E+00 ALDX_R_IUPAC13 EQY 270.000 8.779770E-01 9.973180E-01 1.000000E+00 1.000000E+00 8.999137E-01 0.000000E+00 0.000000E+00 ALDX_R_IUPAC13 CS 290.000 5.852983E-20 5.282509E-20 4.273233E-20 3.228716E-20 8.347573E-21 0.000000E+00 0.000000E+00 ALDX_R_IUPAC13 EQY 290.000 8.779770E-01 9.973180E-01 1.000000E+00 1.000000E+00 8.999137E-01 0.000000E+00 0.000000E+00 ALDX_R_IUPAC13 CS 310.000 5.852983E-20 5.282509E-20 4.273233E-20 3.228716E-20 8.347573E-21 0.000000E+00 0.000000E+00 ALDX_R_IUPAC13 EQY 310.000 8.779770E-01 9.973180E-01 1.000000E+00 1.000000E+00 8.999137E-01 0.000000E+00 0.000000E+00 GLYD_IUPAC13 CS 210.000 3.704782E-20 2.277373E-20 1.257586E-20 5.852344E-21 6.507965E-22 0.000000E+00 0.000000E+00 GLYD_IUPAC13 EQY 210.000 7.500000E-01 7.500000E-01 7.500000E-01 7.500000E-01 7.500000E-01 0.000000E+00 0.000000E+00 GLYD_IUPAC13 CS 230.000 3.704782E-20 2.277373E-20 1.257586E-20 5.852344E-21 6.507965E-22 0.000000E+00 0.000000E+00 GLYD_IUPAC13 EQY 230.000 7.500000E-01 7.500000E-01 7.500000E-01 7.500000E-01 7.500000E-01 0.000000E+00 0.000000E+00 GLYD_IUPAC13 CS 250.000 3.704782E-20 2.277373E-20 1.257586E-20 5.852344E-21 6.507965E-22 0.000000E+00 0.000000E+00 GLYD_IUPAC13 EQY 250.000 7.500000E-01 7.500000E-01 7.500000E-01 7.500000E-01 7.500000E-01 0.000000E+00 0.000000E+00 GLYD_IUPAC13 CS 270.000 3.704782E-20 2.277373E-20 1.257586E-20 5.852344E-21 6.507965E-22 0.000000E+00 0.000000E+00 GLYD_IUPAC13 EQY 270.000 7.500000E-01 7.500000E-01 7.500000E-01 7.500000E-01 7.500000E-01 0.000000E+00 0.000000E+00 GLYD_IUPAC13 CS 290.000 3.704782E-20 2.277373E-20 1.257586E-20 5.852344E-21 6.507965E-22 0.000000E+00 0.000000E+00 GLYD_IUPAC13 EQY 290.000 7.500000E-01 7.500000E-01 7.500000E-01 7.500000E-01 7.500000E-01 0.000000E+00 0.000000E+00 GLYD_IUPAC13 CS 310.000 3.704782E-20 2.277373E-20 1.257586E-20 5.852344E-21 6.507965E-22 0.000000E+00 0.000000E+00 GLYD_IUPAC13 EQY 310.000 7.500000E-01 7.500000E-01 7.500000E-01 7.500000E-01 7.500000E-01 0.000000E+00 0.000000E+00 GLY_R_IUPAC13 CS 210.000 3.792117E-20 3.572108E-20 3.194423E-20 2.574261E-20 1.106789E-20 2.757124E-20 1.066760E-20 GLY_R_IUPAC13 EQY 210.000 5.417586E-01 5.282888E-01 5.425920E-01 5.719462E-01 6.539832E-01 1.335054E-01 5.191700E-17 GLY_R_IUPAC13 CS 230.000 3.792117E-20 3.572108E-20 3.194423E-20 2.574261E-20 1.106789E-20 2.757124E-20 1.066760E-20 GLY_R_IUPAC13 EQY 230.000 5.412837E-01 5.273820E-01 5.410793E-01 5.695508E-01 6.480343E-01 1.406395E-01 6.255050E-16 GLY_R_IUPAC13 CS 250.000 3.792117E-20 3.572108E-20 3.194423E-20 2.574261E-20 1.106789E-20 2.757124E-20 1.066760E-20 GLY_R_IUPAC13 EQY 250.000 5.407746E-01 5.264520E-01 5.395834E-01 5.672647E-01 6.429353E-01 1.478171E-01 1.247636E-09 GLY_R_IUPAC13 CS 270.000 3.792117E-20 3.572108E-20 3.194423E-20 2.574261E-20 1.106789E-20 2.757124E-20 1.066760E-20 GLY_R_IUPAC13 EQY 270.000 5.402412E-01 5.255162E-01 5.381273E-01 5.651107E-01 6.385970E-01 1.550556E-01 5.386577E-06 GLY_R_IUPAC13 CS 290.000 3.792117E-20 3.572108E-20 3.194423E-20 2.574261E-20 1.106789E-20 2.757124E-20 1.066760E-20 GLY_R_IUPAC13 EQY 290.000 5.396925E-01 5.245881E-01 5.367267E-01 5.631009E-01 6.349310E-01 1.622865E-01 7.036469E-04 GLY_R_IUPAC13 CS 310.000 3.792117E-20 3.572108E-20 3.194423E-20 2.574261E-20 1.106789E-20 2.757124E-20 1.066760E-20 GLY_R_IUPAC13 EQY 310.000 5.391361E-01 5.236784E-01 5.353922E-01 5.612398E-01 6.318546E-01 1.694831E-01 1.456810E-02 MGLY_IUPAC10 CS 210.000 4.623980E-20 3.737641E-20 2.838188E-20 2.024261E-20 7.313774E-21 3.354496E-20 8.017686E-21 MGLY_IUPAC10 EQY 210.000 9.424525E-01 9.055298E-01 8.638632E-01 8.161852E-01 6.723635E-01 1.057406E-01 2.062893E-02 MGLY_IUPAC10 CS 230.000 4.623980E-20 3.737641E-20 2.838188E-20 2.024261E-20 7.313774E-21 3.354496E-20 8.017686E-21 MGLY_IUPAC10 EQY 230.000 9.424612E-01 9.055434E-01 8.638818E-01 8.162095E-01 6.724034E-01 1.057492E-01 2.062893E-02 MGLY_IUPAC10 CS 250.000 4.623980E-20 3.737641E-20 2.838188E-20 2.024261E-20 7.313774E-21 3.354496E-20 8.017686E-21 MGLY_IUPAC10 EQY 250.000 9.424697E-01 9.055570E-01 8.639004E-01 8.162335E-01 6.724433E-01 1.057578E-01 2.062893E-02 MGLY_IUPAC10 CS 270.000 4.623980E-20 3.737641E-20 2.838188E-20 2.024261E-20 7.313774E-21 3.354496E-20 8.017686E-21 MGLY_IUPAC10 EQY 270.000 9.424782E-01 9.055706E-01 8.639192E-01 8.162577E-01 6.724831E-01 1.057665E-01 2.062893E-02 MGLY_IUPAC10 CS 290.000 4.623980E-20 3.737641E-20 2.838188E-20 2.024261E-20 7.313774E-21 3.354496E-20 8.017686E-21 MGLY_IUPAC10 EQY 290.000 9.424869E-01 9.055842E-01 8.639378E-01 8.162817E-01 6.725230E-01 1.057751E-01 2.062893E-02 MGLY_IUPAC10 CS 310.000 4.623980E-20 3.737641E-20 2.838188E-20 2.024261E-20 7.313774E-21 3.354496E-20 8.017686E-21 MGLY_IUPAC10 EQY 310.000 9.424955E-01 9.055978E-01 8.639566E-01 8.163059E-01 6.725629E-01 1.057837E-01 2.062893E-02 KET_IUPAC10 CS 210.000 4.244734E-20 2.775264E-20 1.650076E-20 8.235885E-21 8.879242E-22 2.161979E-25 0.000000E+00 KET_IUPAC10 EQY 210.000 3.557317E-01 2.281597E-01 9.456919E-02 4.449943E-02 1.703344E-02 2.980055E-03 0.000000E+00 KET_IUPAC10 CS 230.000 4.244734E-20 2.775264E-20 1.650076E-20 8.235885E-21 8.879242E-22 2.161979E-25 0.000000E+00 KET_IUPAC10 EQY 230.000 3.557317E-01 2.281597E-01 9.456919E-02 4.449943E-02 1.703344E-02 2.980055E-03 0.000000E+00 KET_IUPAC10 CS 250.000 4.244734E-20 2.775264E-20 1.650076E-20 8.235885E-21 8.879242E-22 2.161979E-25 0.000000E+00 KET_IUPAC10 EQY 250.000 3.557317E-01 2.281597E-01 9.456919E-02 4.449943E-02 1.703344E-02 2.980055E-03 0.000000E+00 KET_IUPAC10 CS 270.000 4.244734E-20 2.775264E-20 1.650076E-20 8.235885E-21 8.879242E-22 2.161979E-25 0.000000E+00 KET_IUPAC10 EQY 270.000 3.557317E-01 2.281597E-01 9.456919E-02 4.449943E-02 1.703344E-02 2.980055E-03 0.000000E+00 KET_IUPAC10 CS 290.000 4.244734E-20 2.775264E-20 1.650076E-20 8.235885E-21 8.879242E-22 2.161979E-25 0.000000E+00 KET_IUPAC10 EQY 290.000 3.557317E-01 2.281597E-01 9.456919E-02 4.449943E-02 1.703344E-02 2.980055E-03 0.000000E+00 KET_IUPAC10 CS 310.000 4.244734E-20 2.775264E-20 1.650076E-20 8.235885E-21 8.879242E-22 2.161979E-25 0.000000E+00 KET_IUPAC10 EQY 310.000 3.557317E-01 2.281597E-01 9.456919E-02 4.449943E-02 1.703344E-02 2.980055E-03 0.000000E+00 ACET_IUPAC10 CS 210.000 3.154020E-20 1.990274E-20 1.121114E-20 5.714158E-21 4.839526E-22 9.619963E-25 0.000000E+00 ACET_IUPAC10 EQY 210.000 3.142315E-01 9.508523E-02 1.347957E-02 2.101419E-03 4.774525E-05 2.883126E-03 0.000000E+00 ACET_IUPAC10 CS 230.000 3.210615E-20 2.065870E-20 1.200334E-20 6.223282E-21 5.288214E-22 9.615415E-25 0.000000E+00 ACET_IUPAC10 EQY 230.000 2.892200E-01 1.028149E-01 1.893153E-02 3.808953E-03 1.663003E-04 2.883126E-03 0.000000E+00 ACET_IUPAC10 CS 250.000 3.284215E-20 2.146998E-20 1.277972E-20 6.735570E-21 6.082958E-22 9.633595E-25 0.000000E+00 ACET_IUPAC10 EQY 250.000 2.868186E-01 1.209827E-01 2.841206E-02 7.388534E-03 7.029614E-04 2.883126E-03 0.000000E+00 ACET_IUPAC10 CS 270.000 3.374994E-20 2.230310E-20 1.348986E-20 7.221250E-21 7.267921E-22 9.679524E-25 0.000000E+00 ACET_IUPAC10 EQY 270.000 3.030808E-01 1.525401E-01 4.579334E-02 1.553840E-02 3.012870E-03 2.883126E-03 0.000000E+00 ACET_IUPAC10 CS 290.000 3.483127E-20 2.312459E-20 1.408336E-20 7.650557E-21 8.887266E-22 9.758227E-25 0.000000E+00 ACET_IUPAC10 EQY 290.000 3.373500E-01 2.015979E-01 7.683466E-02 3.310391E-02 1.071987E-02 2.883126E-03 0.000000E+00 ACET_IUPAC10 CS 310.000 3.608787E-20 2.390098E-20 1.450979E-20 7.993726E-21 1.098516E-21 9.874724E-25 0.000000E+00 ACET_IUPAC10 EQY 310.000 3.878387E-01 2.703615E-01 1.273605E-01 6.627605E-02 3.052155E-02 2.883126E-03 0.000000E+00 ISPD CS 210.000 2.840289E-20 4.154632E-20 5.213074E-20 6.122464E-20 6.678539E-20 1.408010E-20 0.000000E+00 ISPD EQY 210.000 5.009691E-02 5.009691E-02 5.009691E-02 5.009691E-02 5.009691E-02 5.009691E-02 0.000000E+00 ISPD CS 230.000 2.840289E-20 4.154632E-20 5.213074E-20 6.122464E-20 6.678539E-20 1.408010E-20 0.000000E+00 ISPD EQY 230.000 5.009691E-02 5.009691E-02 5.009691E-02 5.009691E-02 5.009691E-02 5.009691E-02 0.000000E+00 ISPD CS 250.000 2.840289E-20 4.154632E-20 5.213074E-20 6.122464E-20 6.678539E-20 1.408010E-20 0.000000E+00 ISPD EQY 250.000 5.009691E-02 5.009691E-02 5.009691E-02 5.009691E-02 5.009691E-02 5.009691E-02 0.000000E+00 ISPD CS 270.000 2.840289E-20 4.154632E-20 5.213074E-20 6.122464E-20 6.678539E-20 1.408010E-20 0.000000E+00 ISPD EQY 270.000 5.009691E-02 5.009691E-02 5.009691E-02 5.009691E-02 5.009691E-02 5.009691E-02 0.000000E+00 ISPD CS 290.000 2.840289E-20 4.154632E-20 5.213074E-20 6.122464E-20 6.678539E-20 1.408010E-20 0.000000E+00 ISPD EQY 290.000 5.009691E-02 5.009691E-02 5.009691E-02 5.009691E-02 5.009691E-02 5.009691E-02 0.000000E+00 ISPD CS 310.000 2.840289E-20 4.154632E-20 5.213074E-20 6.122464E-20 6.678539E-20 1.408010E-20 0.000000E+00 ISPD EQY 310.000 5.009691E-02 5.009691E-02 5.009691E-02 5.009691E-02 5.009691E-02 5.009691E-02 0.000000E+00 HPALD CS 210.000 2.639069E-20 3.936243E-20 4.989643E-20 5.926228E-20 6.528440E-20 1.326810E-20 0.000000E+00 HPALD EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HPALD CS 230.000 2.639069E-20 3.936243E-20 4.989643E-20 5.926228E-20 6.528440E-20 1.326810E-20 0.000000E+00 HPALD EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HPALD CS 250.000 2.639069E-20 3.936243E-20 4.989643E-20 5.926228E-20 6.528440E-20 1.326810E-20 0.000000E+00 HPALD EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HPALD CS 270.000 2.639069E-20 3.936243E-20 4.989643E-20 5.926228E-20 6.528440E-20 1.326810E-20 0.000000E+00 HPALD EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HPALD CS 290.000 2.639069E-20 3.936243E-20 4.989643E-20 5.926228E-20 6.528440E-20 1.326810E-20 0.000000E+00 HPALD EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HPALD CS 310.000 2.639069E-20 3.936243E-20 4.989643E-20 5.926228E-20 6.528440E-20 1.326810E-20 0.000000E+00 HPALD EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 CL2_IUPAC04 CS 210.000 8.459998E-20 1.387449E-19 1.859079E-19 2.232772E-19 2.484952E-19 6.038539E-20 6.788245E-22 CL2_IUPAC04 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 CL2_IUPAC04 CS 230.000 8.524757E-20 1.389977E-19 1.856245E-19 2.224567E-19 2.471989E-19 6.124574E-20 6.788245E-22 CL2_IUPAC04 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 CL2_IUPAC04 CS 250.000 8.601563E-20 1.392877E-19 1.852748E-19 2.214706E-19 2.456518E-19 6.228141E-20 6.788245E-22 CL2_IUPAC04 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 CL2_IUPAC04 CS 270.000 8.688803E-20 1.396037E-19 1.848591E-19 2.203326E-19 2.438807E-19 6.347855E-20 6.788245E-22 CL2_IUPAC04 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 CL2_IUPAC04 CS 290.000 8.784630E-20 1.399339E-19 1.843792E-19 2.190595E-19 2.419169E-19 6.481979E-20 6.788245E-22 CL2_IUPAC04 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 CL2_IUPAC04 CS 310.000 8.835163E-20 1.401007E-19 1.841159E-19 2.183779E-19 2.408728E-19 6.553857E-20 6.788245E-22 CL2_IUPAC04 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 HOCL_IUPAC04 CS 210.000 5.570117E-20 6.066934E-20 5.958161E-20 5.377945E-20 3.120855E-20 6.545254E-21 1.170137E-23 HOCL_IUPAC04 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 HOCL_IUPAC04 CS 230.000 5.570117E-20 6.066934E-20 5.958161E-20 5.377945E-20 3.120855E-20 6.545254E-21 1.170137E-23 HOCL_IUPAC04 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 HOCL_IUPAC04 CS 250.000 5.570117E-20 6.066934E-20 5.958161E-20 5.377945E-20 3.120855E-20 6.545254E-21 1.170137E-23 HOCL_IUPAC04 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 HOCL_IUPAC04 CS 270.000 5.570117E-20 6.066934E-20 5.958161E-20 5.377945E-20 3.120855E-20 6.545254E-21 1.170137E-23 HOCL_IUPAC04 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 HOCL_IUPAC04 CS 290.000 5.570117E-20 6.066934E-20 5.958161E-20 5.377945E-20 3.120855E-20 6.545254E-21 1.170137E-23 HOCL_IUPAC04 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 HOCL_IUPAC04 CS 310.000 5.570117E-20 6.066934E-20 5.958161E-20 5.377945E-20 3.120855E-20 6.545254E-21 1.170137E-23 HOCL_IUPAC04 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 FMCL_IUPAC04 CS 210.000 5.320050E-21 1.421323E-21 2.242342E-22 8.338288E-23 0.000000E+00 0.000000E+00 0.000000E+00 FMCL_IUPAC04 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 FMCL_IUPAC04 CS 230.000 5.320050E-21 1.421323E-21 2.242342E-22 8.338288E-23 0.000000E+00 0.000000E+00 0.000000E+00 FMCL_IUPAC04 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 FMCL_IUPAC04 CS 250.000 5.320050E-21 1.421323E-21 2.242342E-22 8.338288E-23 0.000000E+00 0.000000E+00 0.000000E+00 FMCL_IUPAC04 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 FMCL_IUPAC04 CS 270.000 5.320050E-21 1.421323E-21 2.242342E-22 8.338288E-23 0.000000E+00 0.000000E+00 0.000000E+00 FMCL_IUPAC04 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 FMCL_IUPAC04 CS 290.000 5.320050E-21 1.421323E-21 2.242342E-22 8.338288E-23 0.000000E+00 0.000000E+00 0.000000E+00 FMCL_IUPAC04 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 FMCL_IUPAC04 CS 310.000 5.320050E-21 1.421323E-21 2.242342E-22 8.338288E-23 0.000000E+00 0.000000E+00 0.000000E+00 FMCL_IUPAC04 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 CLNO2_IUPAC13 CS 210.000 1.630885E-19 1.401581E-19 1.165449E-19 9.197057E-20 4.058577E-20 2.506084E-21 1.666845E-23 CLNO2_IUPAC13 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 CLNO2_IUPAC13 CS 230.000 1.600463E-19 1.384247E-19 1.162092E-19 9.282048E-20 4.270499E-20 3.014832E-21 1.684379E-23 CLNO2_IUPAC13 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 CLNO2_IUPAC13 CS 250.000 1.583382E-19 1.376411E-19 1.165927E-19 9.421802E-20 4.513980E-20 3.671099E-21 1.713705E-23 CLNO2_IUPAC13 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 CLNO2_IUPAC13 CS 270.000 1.579640E-19 1.378072E-19 1.176955E-19 9.616322E-20 4.789021E-20 4.474883E-21 1.754824E-23 CLNO2_IUPAC13 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 CLNO2_IUPAC13 CS 290.000 1.589238E-19 1.389231E-19 1.195174E-19 9.865609E-20 5.095621E-20 5.426186E-21 1.807737E-23 CLNO2_IUPAC13 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 CLNO2_IUPAC13 CS 310.000 1.594719E-19 1.394430E-19 1.202042E-19 9.951074E-20 5.193755E-20 5.740343E-21 1.825910E-23 CLNO2_IUPAC13 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 CLONO2_1 CS 210.000 3.530556E-20 1.872070E-20 1.123545E-20 7.141706E-21 3.111550E-21 9.743237E-22 9.489116E-24 CLONO2_1 EQY 210.000 4.000000E-01 3.992096E-01 3.837866E-01 3.420477E-01 2.361424E-01 2.718547E-02 0.000000E+00 CLONO2_1 CS 230.000 3.756278E-20 2.004876E-20 1.210488E-20 7.706714E-21 3.240199E-21 1.038511E-21 9.491610E-24 CLONO2_1 EQY 230.000 4.000000E-01 3.992096E-01 3.837866E-01 3.420477E-01 2.361424E-01 2.718547E-02 0.000000E+00 CLONO2_1 CS 250.000 3.999382E-20 2.155965E-20 1.312916E-20 8.405717E-21 3.464433E-21 1.097813E-21 9.504681E-24 CLONO2_1 EQY 250.000 4.000000E-01 3.992096E-01 3.837866E-01 3.420477E-01 2.361424E-01 2.718547E-02 0.000000E+00 CLONO2_1 CS 270.000 4.259870E-20 2.325335E-20 1.430828E-20 9.238715E-21 3.784253E-21 1.152229E-21 9.528331E-24 CLONO2_1 EQY 270.000 4.000000E-01 3.992096E-01 3.837866E-01 3.420477E-01 2.361424E-01 2.718547E-02 0.000000E+00 CLONO2_1 CS 290.000 4.537742E-20 2.512988E-20 1.564224E-20 1.020571E-20 4.199657E-21 1.201758E-21 9.562558E-24 CLONO2_1 EQY 290.000 4.000000E-01 3.992096E-01 3.837866E-01 3.420477E-01 2.361424E-01 2.718547E-02 0.000000E+00 CLONO2_1 CS 310.000 4.832995E-20 2.718922E-20 1.713105E-20 1.130669E-20 4.710647E-21 1.246402E-21 9.607363E-24 CLONO2_1 EQY 310.000 4.000000E-01 3.992096E-01 3.837866E-01 3.420477E-01 2.361424E-01 2.718547E-02 0.000000E+00 CLONO2_2 CS 210.000 3.530556E-20 1.872070E-20 1.123545E-20 7.141706E-21 3.111550E-21 9.743237E-22 9.489116E-24 CLONO2_2 EQY 210.000 6.000000E-01 6.007904E-01 6.162134E-01 6.579523E-01 7.638576E-01 9.728145E-01 1.000000E+00 CLONO2_2 CS 230.000 3.756278E-20 2.004876E-20 1.210488E-20 7.706714E-21 3.240199E-21 1.038511E-21 9.491610E-24 CLONO2_2 EQY 230.000 6.000000E-01 6.007904E-01 6.162134E-01 6.579523E-01 7.638576E-01 9.728145E-01 1.000000E+00 CLONO2_2 CS 250.000 3.999382E-20 2.155965E-20 1.312916E-20 8.405717E-21 3.464433E-21 1.097813E-21 9.504681E-24 CLONO2_2 EQY 250.000 6.000000E-01 6.007904E-01 6.162134E-01 6.579523E-01 7.638576E-01 9.728145E-01 1.000000E+00 CLONO2_2 CS 270.000 4.259870E-20 2.325335E-20 1.430828E-20 9.238715E-21 3.784253E-21 1.152229E-21 9.528331E-24 CLONO2_2 EQY 270.000 6.000000E-01 6.007904E-01 6.162134E-01 6.579523E-01 7.638576E-01 9.728145E-01 1.000000E+00 CLONO2_2 CS 290.000 4.537742E-20 2.512988E-20 1.564224E-20 1.020571E-20 4.199657E-21 1.201758E-21 9.562558E-24 CLONO2_2 EQY 290.000 6.000000E-01 6.007904E-01 6.162134E-01 6.579523E-01 7.638576E-01 9.728145E-01 1.000000E+00 CLONO2_2 CS 310.000 4.832995E-20 2.718922E-20 1.713105E-20 1.130669E-20 4.710647E-21 1.246402E-21 9.607363E-24 CLONO2_2 EQY 310.000 6.000000E-01 6.007904E-01 6.162134E-01 6.579523E-01 7.638576E-01 9.728145E-01 1.000000E+00 IC3ONO2 CS 210.000 9.514298E-21 4.530419E-21 2.204171E-21 1.039935E-21 1.393909E-22 0.000000E+00 0.000000E+00 IC3ONO2 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 IC3ONO2 CS 230.000 9.514298E-21 4.530419E-21 2.204171E-21 1.039935E-21 1.393909E-22 0.000000E+00 0.000000E+00 IC3ONO2 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 IC3ONO2 CS 250.000 9.980248E-21 4.802258E-21 2.361341E-21 1.133020E-21 1.558919E-22 0.000000E+00 0.000000E+00 IC3ONO2 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 IC3ONO2 CS 270.000 1.098172E-20 5.395850E-21 2.710103E-21 1.344930E-21 1.949851E-22 0.000000E+00 0.000000E+00 IC3ONO2 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 IC3ONO2 CS 290.000 1.208369E-20 6.062813E-21 3.110376E-21 1.596473E-21 2.438819E-22 0.000000E+00 0.000000E+00 IC3ONO2 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 IC3ONO2 CS 310.000 1.329624E-20 6.812218E-21 3.569767E-21 1.895064E-21 3.050405E-22 0.000000E+00 0.000000E+00 IC3ONO2 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 ACRO_09 CS 210.000 1.856128E-20 2.787986E-20 3.602616E-20 4.321518E-20 5.371941E-20 1.543856E-20 0.000000E+00 ACRO_09 EQY 210.000 5.269045E-02 3.293790E-02 2.264026E-02 1.595375E-02 6.767500E-03 1.624741E-03 0.000000E+00 ACRO_09 CS 230.000 1.856128E-20 2.787986E-20 3.602616E-20 4.321518E-20 5.371941E-20 1.543856E-20 0.000000E+00 ACRO_09 EQY 230.000 5.269045E-02 3.293790E-02 2.264026E-02 1.595375E-02 6.767500E-03 1.624741E-03 0.000000E+00 ACRO_09 CS 250.000 1.856128E-20 2.787986E-20 3.602616E-20 4.321518E-20 5.371941E-20 1.543856E-20 0.000000E+00 ACRO_09 EQY 250.000 5.269045E-02 3.293790E-02 2.264026E-02 1.595375E-02 6.767500E-03 1.624741E-03 0.000000E+00 ACRO_09 CS 270.000 1.856128E-20 2.787986E-20 3.602616E-20 4.321518E-20 5.371941E-20 1.543856E-20 0.000000E+00 ACRO_09 EQY 270.000 5.269045E-02 3.293790E-02 2.264026E-02 1.595375E-02 6.767500E-03 1.624741E-03 0.000000E+00 ACRO_09 CS 290.000 1.856128E-20 2.787986E-20 3.602616E-20 4.321518E-20 5.371941E-20 1.543856E-20 0.000000E+00 ACRO_09 EQY 290.000 5.269045E-02 3.293790E-02 2.264026E-02 1.595375E-02 6.767500E-03 1.624741E-03 0.000000E+00 ACRO_09 CS 310.000 1.856128E-20 2.787986E-20 3.602616E-20 4.321518E-20 5.371941E-20 1.543856E-20 0.000000E+00 ACRO_09 EQY 310.000 5.269045E-02 3.293790E-02 2.264026E-02 1.595375E-02 6.767500E-03 1.624741E-03 0.000000E+00 BR2_IUPAC10 CS 210.000 1.903162E-22 1.146476E-22 1.488999E-22 3.944532E-22 6.862573E-21 3.595826E-19 8.682861E-20 BR2_IUPAC10 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 BR2_IUPAC10 CS 230.000 1.903162E-22 1.146476E-22 1.488999E-22 3.944532E-22 6.862573E-21 3.595826E-19 8.682861E-20 BR2_IUPAC10 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 BR2_IUPAC10 CS 250.000 1.903162E-22 1.146476E-22 1.488999E-22 3.944532E-22 6.862573E-21 3.595826E-19 8.682861E-20 BR2_IUPAC10 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 BR2_IUPAC10 CS 270.000 1.903162E-22 1.146476E-22 1.488999E-22 3.944532E-22 6.862573E-21 3.595826E-19 8.682861E-20 BR2_IUPAC10 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 BR2_IUPAC10 CS 290.000 1.903162E-22 1.146476E-22 1.488999E-22 3.944532E-22 6.862573E-21 3.595826E-19 8.682861E-20 BR2_IUPAC10 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 BR2_IUPAC10 CS 310.000 1.903162E-22 1.146476E-22 1.488999E-22 3.944532E-22 6.862573E-21 3.595826E-19 8.682861E-20 BR2_IUPAC10 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 HOBR_IUPAC10 CS 210.000 2.139690E-19 1.725353E-19 1.369808E-19 1.157725E-19 1.126976E-19 6.209873E-20 2.755955E-21 HOBR_IUPAC10 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 HOBR_IUPAC10 CS 230.000 2.139690E-19 1.725353E-19 1.369808E-19 1.157725E-19 1.126976E-19 6.209873E-20 2.755955E-21 HOBR_IUPAC10 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 HOBR_IUPAC10 CS 250.000 2.139690E-19 1.725353E-19 1.369808E-19 1.157725E-19 1.126976E-19 6.209873E-20 2.755955E-21 HOBR_IUPAC10 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 HOBR_IUPAC10 CS 270.000 2.139690E-19 1.725353E-19 1.369808E-19 1.157725E-19 1.126976E-19 6.209873E-20 2.755955E-21 HOBR_IUPAC10 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 HOBR_IUPAC10 CS 290.000 2.139690E-19 1.725353E-19 1.369808E-19 1.157725E-19 1.126976E-19 6.209873E-20 2.755955E-21 HOBR_IUPAC10 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 HOBR_IUPAC10 CS 310.000 2.139690E-19 1.725353E-19 1.369808E-19 1.157725E-19 1.126976E-19 6.209873E-20 2.755955E-21 HOBR_IUPAC10 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 BRO_IUPAC10 CS 210.000 0.000000E+00 1.520704E-18 3.755615E-18 4.380887E-18 6.081778E-18 6.102367E-19 0.000000E+00 BRO_IUPAC10 EQY 210.000 0.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 BRO_IUPAC10 CS 230.000 0.000000E+00 1.520704E-18 3.755615E-18 4.380887E-18 6.081778E-18 6.102367E-19 0.000000E+00 BRO_IUPAC10 EQY 230.000 0.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 BRO_IUPAC10 CS 250.000 0.000000E+00 1.520704E-18 3.755615E-18 4.380887E-18 6.081778E-18 6.102367E-19 0.000000E+00 BRO_IUPAC10 EQY 250.000 0.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 BRO_IUPAC10 CS 270.000 0.000000E+00 1.520704E-18 3.755615E-18 4.380887E-18 6.081778E-18 6.102367E-19 0.000000E+00 BRO_IUPAC10 EQY 270.000 0.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 BRO_IUPAC10 CS 290.000 0.000000E+00 1.520704E-18 3.755615E-18 4.380887E-18 6.081778E-18 6.102367E-19 0.000000E+00 BRO_IUPAC10 EQY 290.000 0.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 BRO_IUPAC10 CS 310.000 0.000000E+00 1.520704E-18 3.755615E-18 4.380887E-18 6.081778E-18 6.102367E-19 0.000000E+00 BRO_IUPAC10 EQY 310.000 0.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 BRNO2_IUPAC10 CS 210.000 3.168737E-19 1.703734E-19 1.151504E-19 1.063179E-19 1.368589E-19 1.577582E-19 6.037620E-21 BRNO2_IUPAC10 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 BRNO2_IUPAC10 CS 230.000 3.168737E-19 1.703734E-19 1.151504E-19 1.063179E-19 1.368589E-19 1.577582E-19 6.037620E-21 BRNO2_IUPAC10 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 BRNO2_IUPAC10 CS 250.000 3.168737E-19 1.703734E-19 1.151504E-19 1.063179E-19 1.368589E-19 1.577582E-19 6.037620E-21 BRNO2_IUPAC10 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 BRNO2_IUPAC10 CS 270.000 3.168737E-19 1.703734E-19 1.151504E-19 1.063179E-19 1.368589E-19 1.577582E-19 6.037620E-21 BRNO2_IUPAC10 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 BRNO2_IUPAC10 CS 290.000 3.168737E-19 1.703734E-19 1.151504E-19 1.063179E-19 1.368589E-19 1.577582E-19 6.037620E-21 BRNO2_IUPAC10 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 BRNO2_IUPAC10 CS 310.000 3.168737E-19 1.703734E-19 1.151504E-19 1.063179E-19 1.368589E-19 1.577582E-19 6.037620E-21 BRNO2_IUPAC10 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 BRONO2_M_IUPAC10 CS 210.000 2.101862E-19 1.727726E-19 1.452083E-19 1.232743E-19 9.009326E-20 3.843551E-20 1.444378E-21 BRONO2_M_IUPAC10 EQY 210.000 7.100000E-01 7.100000E-01 7.100000E-01 7.100000E-01 7.100000E-01 7.100000E-01 7.100000E-01 BRONO2_M_IUPAC10 CS 230.000 2.101862E-19 1.727726E-19 1.452083E-19 1.232743E-19 9.009326E-20 3.843551E-20 1.444378E-21 BRONO2_M_IUPAC10 EQY 230.000 7.100000E-01 7.100000E-01 7.100000E-01 7.100000E-01 7.100000E-01 7.100000E-01 7.100000E-01 BRONO2_M_IUPAC10 CS 250.000 2.101862E-19 1.727726E-19 1.452083E-19 1.232743E-19 9.009326E-20 3.843551E-20 1.444378E-21 BRONO2_M_IUPAC10 EQY 250.000 7.100000E-01 7.100000E-01 7.100000E-01 7.100000E-01 7.100000E-01 7.100000E-01 7.100000E-01 BRONO2_M_IUPAC10 CS 270.000 2.101862E-19 1.727726E-19 1.452083E-19 1.232743E-19 9.009326E-20 3.843551E-20 1.444378E-21 BRONO2_M_IUPAC10 EQY 270.000 7.100000E-01 7.100000E-01 7.100000E-01 7.100000E-01 7.100000E-01 7.100000E-01 7.100000E-01 BRONO2_M_IUPAC10 CS 290.000 2.101862E-19 1.727726E-19 1.452083E-19 1.232743E-19 9.009326E-20 3.843551E-20 1.444378E-21 BRONO2_M_IUPAC10 EQY 290.000 7.100000E-01 7.100000E-01 7.100000E-01 7.100000E-01 7.100000E-01 7.100000E-01 7.100000E-01 BRONO2_M_IUPAC10 CS 310.000 2.101862E-19 1.727726E-19 1.452083E-19 1.232743E-19 9.009326E-20 3.843551E-20 1.444378E-21 BRONO2_M_IUPAC10 EQY 310.000 7.100000E-01 7.100000E-01 7.100000E-01 7.100000E-01 7.100000E-01 7.100000E-01 7.100000E-01 BRONO2_R_IUPAC10 CS 210.000 2.101862E-19 1.727726E-19 1.452083E-19 1.232743E-19 9.009326E-20 3.843551E-20 1.444378E-21 BRONO2_R_IUPAC10 EQY 210.000 2.900000E-01 2.900000E-01 2.900000E-01 2.900000E-01 2.900000E-01 2.900000E-01 2.900000E-01 BRONO2_R_IUPAC10 CS 230.000 2.101862E-19 1.727726E-19 1.452083E-19 1.232743E-19 9.009326E-20 3.843551E-20 1.444378E-21 BRONO2_R_IUPAC10 EQY 230.000 2.900000E-01 2.900000E-01 2.900000E-01 2.900000E-01 2.900000E-01 2.900000E-01 2.900000E-01 BRONO2_R_IUPAC10 CS 250.000 2.101862E-19 1.727726E-19 1.452083E-19 1.232743E-19 9.009326E-20 3.843551E-20 1.444378E-21 BRONO2_R_IUPAC10 EQY 250.000 2.900000E-01 2.900000E-01 2.900000E-01 2.900000E-01 2.900000E-01 2.900000E-01 2.900000E-01 BRONO2_R_IUPAC10 CS 270.000 2.101862E-19 1.727726E-19 1.452083E-19 1.232743E-19 9.009326E-20 3.843551E-20 1.444378E-21 BRONO2_R_IUPAC10 EQY 270.000 2.900000E-01 2.900000E-01 2.900000E-01 2.900000E-01 2.900000E-01 2.900000E-01 2.900000E-01 BRONO2_R_IUPAC10 CS 290.000 2.101862E-19 1.727726E-19 1.452083E-19 1.232743E-19 9.009326E-20 3.843551E-20 1.444378E-21 BRONO2_R_IUPAC10 EQY 290.000 2.900000E-01 2.900000E-01 2.900000E-01 2.900000E-01 2.900000E-01 2.900000E-01 2.900000E-01 BRONO2_R_IUPAC10 CS 310.000 2.101862E-19 1.727726E-19 1.452083E-19 1.232743E-19 9.009326E-20 3.843551E-20 1.444378E-21 BRONO2_R_IUPAC10 EQY 310.000 2.900000E-01 2.900000E-01 2.900000E-01 2.900000E-01 2.900000E-01 2.900000E-01 2.900000E-01 BRCL_IUPAC10 CS 210.000 4.682875E-21 8.722435E-21 1.617152E-20 3.163336E-20 1.228206E-19 3.199842E-19 2.043871E-20 BRCL_IUPAC10 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 BRCL_IUPAC10 CS 230.000 4.682875E-21 8.722435E-21 1.617152E-20 3.163336E-20 1.228206E-19 3.199842E-19 2.043871E-20 BRCL_IUPAC10 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 BRCL_IUPAC10 CS 250.000 4.682875E-21 8.722435E-21 1.617152E-20 3.163336E-20 1.228206E-19 3.199842E-19 2.043871E-20 BRCL_IUPAC10 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 BRCL_IUPAC10 CS 270.000 4.682875E-21 8.722435E-21 1.617152E-20 3.163336E-20 1.228206E-19 3.199842E-19 2.043871E-20 BRCL_IUPAC10 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 BRCL_IUPAC10 CS 290.000 4.682875E-21 8.722435E-21 1.617152E-20 3.163336E-20 1.228206E-19 3.199842E-19 2.043871E-20 BRCL_IUPAC10 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 BRCL_IUPAC10 CS 310.000 4.682875E-21 8.722435E-21 1.617152E-20 3.163336E-20 1.228206E-19 3.199842E-19 2.043871E-20 BRCL_IUPAC10 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 COHBR_JPL2010 CS 210.000 1.021708E-19 4.139140E-20 1.707018E-20 7.518262E-21 4.649972E-22 0.000000E+00 0.000000E+00 COHBR_JPL2010 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 COHBR_JPL2010 CS 230.000 1.021708E-19 4.139140E-20 1.707018E-20 7.518262E-21 4.649972E-22 0.000000E+00 0.000000E+00 COHBR_JPL2010 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 COHBR_JPL2010 CS 250.000 1.021708E-19 4.139140E-20 1.707018E-20 7.518262E-21 4.649972E-22 0.000000E+00 0.000000E+00 COHBR_JPL2010 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 COHBR_JPL2010 CS 270.000 1.021708E-19 4.139140E-20 1.707018E-20 7.518262E-21 4.649972E-22 0.000000E+00 0.000000E+00 COHBR_JPL2010 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 COHBR_JPL2010 CS 290.000 1.021708E-19 4.139140E-20 1.707018E-20 7.518262E-21 4.649972E-22 0.000000E+00 0.000000E+00 COHBR_JPL2010 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 COHBR_JPL2010 CS 310.000 1.021708E-19 4.139140E-20 1.707018E-20 7.518262E-21 4.649972E-22 0.000000E+00 0.000000E+00 COHBR_JPL2010 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 MB3_IUPAC10 CS 210.000 1.625868E-20 4.862740E-21 1.746326E-21 7.069317E-22 8.551163E-23 0.000000E+00 0.000000E+00 MB3_IUPAC10 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 MB3_IUPAC10 CS 230.000 1.625868E-20 4.862740E-21 1.746326E-21 7.069317E-22 8.551163E-23 0.000000E+00 0.000000E+00 MB3_IUPAC10 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 MB3_IUPAC10 CS 250.000 1.625868E-20 4.862740E-21 1.746326E-21 7.069317E-22 8.551163E-23 0.000000E+00 0.000000E+00 MB3_IUPAC10 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 MB3_IUPAC10 CS 270.000 1.625868E-20 4.862740E-21 1.746326E-21 7.069317E-22 8.551163E-23 0.000000E+00 0.000000E+00 MB3_IUPAC10 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 MB3_IUPAC10 CS 290.000 1.625868E-20 4.862740E-21 1.746326E-21 7.069317E-22 8.551163E-23 0.000000E+00 0.000000E+00 MB3_IUPAC10 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 MB3_IUPAC10 CS 310.000 1.625868E-20 4.862740E-21 1.746326E-21 7.069317E-22 8.551163E-23 0.000000E+00 0.000000E+00 MB3_IUPAC10 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 MB2C_BLIDE98 CS 210.000 6.776396E-21 2.161088E-21 4.670897E-22 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 MB2C_BLIDE98 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 MB2C_BLIDE98 CS 230.000 6.776396E-21 2.161088E-21 4.670897E-22 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 MB2C_BLIDE98 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 MB2C_BLIDE98 CS 250.000 6.776396E-21 2.161088E-21 4.670897E-22 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 MB2C_BLIDE98 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 MB2C_BLIDE98 CS 270.000 6.776396E-21 2.161088E-21 4.670897E-22 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 MB2C_BLIDE98 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 MB2C_BLIDE98 CS 290.000 6.776396E-21 2.161088E-21 4.670897E-22 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 MB2C_BLIDE98 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 MB2C_BLIDE98 CS 310.000 6.776396E-21 2.161088E-21 4.670897E-22 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 MB2C_BLIDE98 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 MBC2_BLIDE98 CS 210.000 3.118455E-21 1.169366E-21 6.493162E-22 3.280297E-22 0.000000E+00 0.000000E+00 0.000000E+00 MBC2_BLIDE98 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 MBC2_BLIDE98 CS 230.000 3.118455E-21 1.169366E-21 6.493162E-22 3.280297E-22 0.000000E+00 0.000000E+00 0.000000E+00 MBC2_BLIDE98 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 MBC2_BLIDE98 CS 250.000 3.118455E-21 1.169366E-21 6.493162E-22 3.280297E-22 0.000000E+00 0.000000E+00 0.000000E+00 MBC2_BLIDE98 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 MBC2_BLIDE98 CS 270.000 3.118455E-21 1.169366E-21 6.493162E-22 3.280297E-22 0.000000E+00 0.000000E+00 0.000000E+00 MBC2_BLIDE98 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 MBC2_BLIDE98 CS 290.000 3.118455E-21 1.169366E-21 6.493162E-22 3.280297E-22 0.000000E+00 0.000000E+00 0.000000E+00 MBC2_BLIDE98 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 MBC2_BLIDE98 CS 310.000 3.118455E-21 1.169366E-21 6.493162E-22 3.280297E-22 0.000000E+00 0.000000E+00 0.000000E+00 MBC2_BLIDE98 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 I2_IUPAC10 CS 210.000 3.313148E-19 2.464001E-19 1.834931E-19 1.426881E-19 7.183280E-20 2.110795E-20 6.544204E-19 I2_IUPAC10 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 I2_IUPAC10 CS 230.000 3.313148E-19 2.464001E-19 1.834931E-19 1.426881E-19 7.183280E-20 2.110795E-20 6.544204E-19 I2_IUPAC10 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 I2_IUPAC10 CS 250.000 3.313148E-19 2.464001E-19 1.834931E-19 1.426881E-19 7.183280E-20 2.110795E-20 6.544204E-19 I2_IUPAC10 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 I2_IUPAC10 CS 270.000 3.313148E-19 2.464001E-19 1.834931E-19 1.426881E-19 7.183280E-20 2.110795E-20 6.544204E-19 I2_IUPAC10 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 I2_IUPAC10 CS 290.000 3.313148E-19 2.464001E-19 1.834931E-19 1.426881E-19 7.183280E-20 2.110795E-20 6.544204E-19 I2_IUPAC10 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 I2_IUPAC10 CS 310.000 3.313148E-19 2.464001E-19 1.834931E-19 1.426881E-19 7.183280E-20 2.110795E-20 6.544204E-19 I2_IUPAC10 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 HOI_IUPAC10 CS 210.000 1.411445E-20 4.601361E-20 9.453306E-20 1.637880E-19 3.361345E-19 2.783061E-19 1.366458E-20 HOI_IUPAC10 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 HOI_IUPAC10 CS 230.000 1.411445E-20 4.601361E-20 9.453306E-20 1.637880E-19 3.361345E-19 2.783061E-19 1.366458E-20 HOI_IUPAC10 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 HOI_IUPAC10 CS 250.000 1.411445E-20 4.601361E-20 9.453306E-20 1.637880E-19 3.361345E-19 2.783061E-19 1.366458E-20 HOI_IUPAC10 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 HOI_IUPAC10 CS 270.000 1.411445E-20 4.601361E-20 9.453306E-20 1.637880E-19 3.361345E-19 2.783061E-19 1.366458E-20 HOI_IUPAC10 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 HOI_IUPAC10 CS 290.000 1.411445E-20 4.601361E-20 9.453306E-20 1.637880E-19 3.361345E-19 2.783061E-19 1.366458E-20 HOI_IUPAC10 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 HOI_IUPAC10 CS 310.000 1.411445E-20 4.601361E-20 9.453306E-20 1.637880E-19 3.361345E-19 2.783061E-19 1.366458E-20 HOI_IUPAC10 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 IO_IUPAC10 CS 210.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 4.564031E-18 3.896229E-19 IO_IUPAC10 EQY 210.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.000000E+00 1.000000E+00 IO_IUPAC10 CS 230.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 4.564031E-18 3.896229E-19 IO_IUPAC10 EQY 230.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.000000E+00 1.000000E+00 IO_IUPAC10 CS 250.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 4.564031E-18 3.896229E-19 IO_IUPAC10 EQY 250.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.000000E+00 1.000000E+00 IO_IUPAC10 CS 270.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 4.564031E-18 3.896229E-19 IO_IUPAC10 EQY 270.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.000000E+00 1.000000E+00 IO_IUPAC10 CS 290.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 4.564031E-18 3.896229E-19 IO_IUPAC10 EQY 290.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.000000E+00 1.000000E+00 IO_IUPAC10 CS 310.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 4.564031E-18 3.896229E-19 IO_IUPAC10 EQY 310.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.000000E+00 1.000000E+00 OIO_06 CS 210.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 8.188757E-19 OIO_06 EQY 210.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.000000E+00 OIO_06 CS 230.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 8.188757E-19 OIO_06 EQY 230.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.000000E+00 OIO_06 CS 250.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 8.188757E-19 OIO_06 EQY 250.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.000000E+00 OIO_06 CS 270.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 8.188757E-19 OIO_06 EQY 270.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.000000E+00 OIO_06 CS 290.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 8.188757E-19 OIO_06 EQY 290.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.000000E+00 OIO_06 CS 310.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 8.188757E-19 OIO_06 EQY 310.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.000000E+00 INO_06 CS 210.000 1.432511E-18 7.642592E-19 4.433596E-19 4.151605E-19 4.285753E-19 7.389162E-19 7.098315E-20 INO_06 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 INO_06 CS 230.000 1.432511E-18 7.642592E-19 4.433596E-19 4.151605E-19 4.285753E-19 7.389162E-19 7.098315E-20 INO_06 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 INO_06 CS 250.000 1.432511E-18 7.642592E-19 4.433596E-19 4.151605E-19 4.285753E-19 7.389162E-19 7.098315E-20 INO_06 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 INO_06 CS 270.000 1.432511E-18 7.642592E-19 4.433596E-19 4.151605E-19 4.285753E-19 7.389162E-19 7.098315E-20 INO_06 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 INO_06 CS 290.000 1.432511E-18 7.642592E-19 4.433596E-19 4.151605E-19 4.285753E-19 7.389162E-19 7.098315E-20 INO_06 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 INO_06 CS 310.000 1.432511E-18 7.642592E-19 4.433596E-19 4.151605E-19 4.285753E-19 7.389162E-19 7.098315E-20 INO_06 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 INO2_06 CS 210.000 6.267140E-19 3.370751E-19 2.553803E-19 2.596610E-19 3.392447E-19 8.969386E-20 0.000000E+00 INO2_06 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 INO2_06 CS 230.000 6.267140E-19 3.370751E-19 2.553803E-19 2.596610E-19 3.392447E-19 8.969386E-20 0.000000E+00 INO2_06 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 INO2_06 CS 250.000 6.267140E-19 3.370751E-19 2.553803E-19 2.596610E-19 3.392447E-19 8.969386E-20 0.000000E+00 INO2_06 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 INO2_06 CS 270.000 6.267140E-19 3.370751E-19 2.553803E-19 2.596610E-19 3.392447E-19 8.969386E-20 0.000000E+00 INO2_06 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 INO2_06 CS 290.000 6.267140E-19 3.370751E-19 2.553803E-19 2.596610E-19 3.392447E-19 8.969386E-20 0.000000E+00 INO2_06 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 INO2_06 CS 310.000 6.267140E-19 3.370751E-19 2.553803E-19 2.596610E-19 3.392447E-19 8.969386E-20 0.000000E+00 INO2_06 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 IONO2_06 CS 210.000 5.815553E-18 5.063538E-18 4.634877E-18 4.289858E-18 3.755398E-18 1.715507E-18 1.935343E-21 IONO2_06 EQY 210.000 2.100000E-01 2.100000E-01 2.100000E-01 2.100000E-01 2.100000E-01 2.100000E-01 2.100000E-01 IONO2_06 CS 230.000 5.815553E-18 5.063538E-18 4.634877E-18 4.289858E-18 3.755398E-18 1.715507E-18 1.935343E-21 IONO2_06 EQY 230.000 2.100000E-01 2.100000E-01 2.100000E-01 2.100000E-01 2.100000E-01 2.100000E-01 2.100000E-01 IONO2_06 CS 250.000 5.815553E-18 5.063538E-18 4.634877E-18 4.289858E-18 3.755398E-18 1.715507E-18 1.935343E-21 IONO2_06 EQY 250.000 2.100000E-01 2.100000E-01 2.100000E-01 2.100000E-01 2.100000E-01 2.100000E-01 2.100000E-01 IONO2_06 CS 270.000 5.815553E-18 5.063538E-18 4.634877E-18 4.289858E-18 3.755398E-18 1.715507E-18 1.935343E-21 IONO2_06 EQY 270.000 2.100000E-01 2.100000E-01 2.100000E-01 2.100000E-01 2.100000E-01 2.100000E-01 2.100000E-01 IONO2_06 CS 290.000 5.815553E-18 5.063538E-18 4.634877E-18 4.289858E-18 3.755398E-18 1.715507E-18 1.935343E-21 IONO2_06 EQY 290.000 2.100000E-01 2.100000E-01 2.100000E-01 2.100000E-01 2.100000E-01 2.100000E-01 2.100000E-01 IONO2_06 CS 310.000 5.815553E-18 5.063538E-18 4.634877E-18 4.289858E-18 3.755398E-18 1.715507E-18 1.935343E-21 IONO2_06 EQY 310.000 2.100000E-01 2.100000E-01 2.100000E-01 2.100000E-01 2.100000E-01 2.100000E-01 2.100000E-01 ICL_IUPAC10 CS 210.000 7.876486E-20 5.632666E-20 4.647792E-20 4.216053E-20 3.551420E-20 1.240425E-19 8.889141E-20 ICL_IUPAC10 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 ICL_IUPAC10 CS 230.000 7.876486E-20 5.632666E-20 4.647792E-20 4.216053E-20 3.551420E-20 1.240425E-19 8.889141E-20 ICL_IUPAC10 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 ICL_IUPAC10 CS 250.000 7.876486E-20 5.632666E-20 4.647792E-20 4.216053E-20 3.551420E-20 1.240425E-19 8.889141E-20 ICL_IUPAC10 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 ICL_IUPAC10 CS 270.000 7.876486E-20 5.632666E-20 4.647792E-20 4.216053E-20 3.551420E-20 1.240425E-19 8.889141E-20 ICL_IUPAC10 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 ICL_IUPAC10 CS 290.000 7.876486E-20 5.632666E-20 4.647792E-20 4.216053E-20 3.551420E-20 1.240425E-19 8.889141E-20 ICL_IUPAC10 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 ICL_IUPAC10 CS 310.000 7.876486E-20 5.632666E-20 4.647792E-20 4.216053E-20 3.551420E-20 1.240425E-19 8.889141E-20 ICL_IUPAC10 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 IBR_IUPAC10 CS 210.000 1.479834E-19 1.100719E-19 8.070108E-20 6.299054E-20 3.124231E-20 8.015162E-20 2.887729E-19 IBR_IUPAC10 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 IBR_IUPAC10 CS 230.000 1.479834E-19 1.100719E-19 8.070108E-20 6.299054E-20 3.124231E-20 8.015162E-20 2.887729E-19 IBR_IUPAC10 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 IBR_IUPAC10 CS 250.000 1.479834E-19 1.100719E-19 8.070108E-20 6.299054E-20 3.124231E-20 8.015162E-20 2.887729E-19 IBR_IUPAC10 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 IBR_IUPAC10 CS 270.000 1.479834E-19 1.100719E-19 8.070108E-20 6.299054E-20 3.124231E-20 8.015162E-20 2.887729E-19 IBR_IUPAC10 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 IBR_IUPAC10 CS 290.000 1.479834E-19 1.100719E-19 8.070108E-20 6.299054E-20 3.124231E-20 8.015162E-20 2.887729E-19 IBR_IUPAC10 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 IBR_IUPAC10 CS 310.000 1.479834E-19 1.100719E-19 8.070108E-20 6.299054E-20 3.124231E-20 8.015162E-20 2.887729E-19 IBR_IUPAC10 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 CH3I_IUPAC10 CS 210.000 4.513597E-20 1.493555E-20 6.450626E-21 3.252768E-21 6.570483E-22 9.573097E-24 0.000000E+00 CH3I_IUPAC10 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 CH3I_IUPAC10 CS 230.000 4.513597E-20 1.493555E-20 6.450626E-21 3.252768E-21 6.570483E-22 9.573097E-24 0.000000E+00 CH3I_IUPAC10 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 CH3I_IUPAC10 CS 250.000 4.513597E-20 1.493555E-20 6.450626E-21 3.252768E-21 6.570483E-22 9.573097E-24 0.000000E+00 CH3I_IUPAC10 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 CH3I_IUPAC10 CS 270.000 4.513597E-20 1.493555E-20 6.450626E-21 3.252768E-21 6.570483E-22 9.573097E-24 0.000000E+00 CH3I_IUPAC10 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 CH3I_IUPAC10 CS 290.000 4.513597E-20 1.493555E-20 6.450626E-21 3.252768E-21 6.570483E-22 9.573097E-24 0.000000E+00 CH3I_IUPAC10 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 CH3I_IUPAC10 CS 310.000 4.513597E-20 1.493555E-20 6.450626E-21 3.252768E-21 6.570483E-22 9.573097E-24 0.000000E+00 CH3I_IUPAC10 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 MI2_IUPAC10 CS 210.000 3.718381E-18 3.444709E-18 3.126194E-18 2.693818E-18 1.374565E-18 5.902298E-20 0.000000E+00 MI2_IUPAC10 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 MI2_IUPAC10 CS 230.000 3.718381E-18 3.444709E-18 3.126194E-18 2.693818E-18 1.374565E-18 5.902298E-20 0.000000E+00 MI2_IUPAC10 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 MI2_IUPAC10 CS 250.000 3.718381E-18 3.444709E-18 3.126194E-18 2.693818E-18 1.374565E-18 5.902298E-20 0.000000E+00 MI2_IUPAC10 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 MI2_IUPAC10 CS 270.000 3.718381E-18 3.444709E-18 3.126194E-18 2.693818E-18 1.374565E-18 5.902298E-20 0.000000E+00 MI2_IUPAC10 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 MI2_IUPAC10 CS 290.000 3.718381E-18 3.444709E-18 3.126194E-18 2.693818E-18 1.374565E-18 5.902298E-20 0.000000E+00 MI2_IUPAC10 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 MI2_IUPAC10 CS 310.000 3.718381E-18 3.444709E-18 3.126194E-18 2.693818E-18 1.374565E-18 5.902298E-20 0.000000E+00 MI2_IUPAC10 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 MIB_IUPAC10 CS 210.000 8.548617E-19 4.993029E-19 3.178933E-19 2.143944E-19 7.134427E-20 2.624053E-21 0.000000E+00 MIB_IUPAC10 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 MIB_IUPAC10 CS 230.000 8.548617E-19 4.993029E-19 3.178933E-19 2.143944E-19 7.134427E-20 2.624053E-21 0.000000E+00 MIB_IUPAC10 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 MIB_IUPAC10 CS 250.000 8.548617E-19 4.993029E-19 3.178933E-19 2.143944E-19 7.134427E-20 2.624053E-21 0.000000E+00 MIB_IUPAC10 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 MIB_IUPAC10 CS 270.000 8.548617E-19 4.993029E-19 3.178933E-19 2.143944E-19 7.134427E-20 2.624053E-21 0.000000E+00 MIB_IUPAC10 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 MIB_IUPAC10 CS 290.000 8.548617E-19 4.993029E-19 3.178933E-19 2.143944E-19 7.134427E-20 2.624053E-21 0.000000E+00 MIB_IUPAC10 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 MIB_IUPAC10 CS 310.000 8.548617E-19 4.993029E-19 3.178933E-19 2.143944E-19 7.134427E-20 2.624053E-21 0.000000E+00 MIB_IUPAC10 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 MIC_IUPAC10 CS 210.000 4.188511E-19 2.043662E-19 1.115502E-19 6.587160E-20 1.929429E-20 6.854085E-22 0.000000E+00 MIC_IUPAC10 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 MIC_IUPAC10 CS 230.000 4.188511E-19 2.043662E-19 1.115502E-19 6.587160E-20 1.929429E-20 6.854085E-22 0.000000E+00 MIC_IUPAC10 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 MIC_IUPAC10 CS 250.000 4.188511E-19 2.043662E-19 1.115502E-19 6.587160E-20 1.929429E-20 6.854085E-22 0.000000E+00 MIC_IUPAC10 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 MIC_IUPAC10 CS 270.000 4.188511E-19 2.043662E-19 1.115502E-19 6.587160E-20 1.929429E-20 6.854085E-22 0.000000E+00 MIC_IUPAC10 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 MIC_IUPAC10 CS 290.000 4.188511E-19 2.043662E-19 1.115502E-19 6.587160E-20 1.929429E-20 6.854085E-22 0.000000E+00 MIC_IUPAC10 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 MIC_IUPAC10 CS 310.000 4.188511E-19 2.043662E-19 1.115502E-19 6.587160E-20 1.929429E-20 6.854085E-22 0.000000E+00 MIC_IUPAC10 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 ! Ozone Cross-Section for Stratospheric Opacity based on Table 4-5 in ! Chemical Kinetics and Photochemical Data for Use in Atmospheric ! Studies Evaluation Number 15. Sander et. al: NASA-JPL 2006 NTEMP_STRAT = 6 ! QUANTITY TEMP WBIN( 1) WBIN( 2) WBIN( 3) WBIN( 4) WBIN( 5) WBIN( 6) WBIN( 7) O3_STRAT CS 180.000 6.113743E-19 2.263004E-19 8.354117E-20 3.417408E-20 3.688351E-21 4.086261E-23 1.663175E-21 O3_STRAT CS 260.000 6.434133E-19 2.434104E-19 9.254548E-20 3.928807E-20 4.583227E-21 4.086261E-23 1.663175E-21 O3_STRAT CS 300.000 6.685868E-19 2.568540E-19 9.962031E-20 4.330621E-20 5.286344E-21 4.086261E-23 1.663175E-21 O3_STRAT CS 340.000 6.685868E-19 2.568540E-19 9.962031E-20 4.330621E-20 5.286344E-21 4.086261E-23 1.663175E-21 O3_STRAT CS 380.000 6.685868E-19 2.568540E-19 9.962031E-20 4.330621E-20 5.286344E-21 4.086261E-23 1.663175E-21 O3_STRAT CS 420.000 6.685868E-19 2.568540E-19 9.962031E-20 4.330621E-20 5.286344E-21 4.086261E-23 1.663175E-21 ================================================ FILE: CCTM/src/MECHS/cb6r5m_ae7_aq/GC_cb6r5m_ae7_aq.nml ================================================ &GC_nml GC_SPECIES_DATA = !SPECIES ,MOLWT ,IC ,IC_FAC ,BC ,BC_FAC ,DRYDEP SURR ,FAC ,WET-SCAV SURR ,FAC ,GC2AE SURR ,GC2AQ SURR,TRNS ,DDEP ,WDEP ,CONC 'NO2' , 46.0 ,'' ,-1 ,'' ,-1 ,'VD_NO2' , 1 ,'NO2' , 1 ,'NO2' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'NO' , 30.0 ,'' ,-1 ,'' ,-1 ,'VD_NO' , 1 ,'NO' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'O' , 16.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'O3' , 48.0 ,'' ,-1 ,'' ,-1 ,'VD_O3' , 1 ,'O3' , 1 ,'' ,'O3' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'NO3' , 62.0 ,'' ,-1 ,'' ,-1 ,'VD_NO3' , 1 ,'NO3' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'O1D' , 16.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'OH' , 17.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'OH' ,'HO' ,'' ,'' ,'' ,'Yes', 'HO2' , 33.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'H2O2' , 34.0 ,'' ,-1 ,'' ,-1 ,'VD_H2O2' , 1 ,'H2O2' , 1 ,'' ,'H2O2' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'N2O5' ,108.0 ,'' ,-1 ,'' ,-1 ,'VD_N2O5' , 1 ,'N2O5' , 1 ,'N2O5' ,'N2O5' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'HNO3' , 63.0 ,'' ,-1 ,'' ,-1 ,'VD_HNO3' , 1 ,'HNO3' , 1 ,'HNO3' ,'HNO3' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'HONO' , 47.0 ,'' ,-1 ,'' ,-1 ,'VD_HONO' , 1 ,'HNO2' , 1 ,'HONO' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'PNA' , 79.0 ,'' ,-1 ,'' ,-1 ,'VD_PNA' , 1 ,'HNO4' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SO2' , 64.0 ,'' ,-1 ,'' ,-1 ,'VD_SO2' , 1 ,'SO2' , 1 ,'' ,'SO2' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SULF' , 98.0 ,'' ,-1 ,'' ,-1 ,'VD_SULF' , 1 ,'H2SO4' , 1 ,'SULF' ,'H2SO4' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SULRXN' , 98.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'SULPRD' ,'' ,'' ,'' ,'' ,'' , 'C2O3' , 75.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'MEO2' , 47.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'RO2' , 87.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'PAN' ,121.0 ,'' ,-1 ,'' ,-1 ,'VD_PAN' , 1 ,'PAN' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'PACD' , 76.0 ,'' ,-1 ,'' ,-1 ,'VD_PAA' , 1 ,'PEROXYACETIC_ACI', 1 ,'' ,'PAA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AACD' , 60.0 ,'' ,-1 ,'' ,-1 ,'VD_ORA' , 1 ,'ACETIC_ACID' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'CXO3' , 89.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'ALD2' , 44.0 ,'' ,-1 ,'' ,-1 ,'VD_ALD' , 1 ,'ACETALDEHYDE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'XO2H' , 87.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'PANX' ,135.0 ,'' ,-1 ,'' ,-1 ,'VD_PPN' , 1 ,'PPN' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'FORM' , 30.0 ,'' ,-1 ,'' ,-1 ,'VD_HCHO' , 1 ,'FORMALDEHYDE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'MEPX' , 48.0 ,'' ,-1 ,'' ,-1 ,'VD_OP' , 1 ,'METHYLHYDROPEROX', 1 ,'' ,'MHP' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'MEOH' , 32.0 ,'' ,-1 ,'' ,-1 ,'VD_METHANOL' , 1 ,'METHANOL' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ROOH' , 90.1 ,'' ,-1 ,'' ,-1 ,'VD_ROOH' , 1 ,'METHYLHYDROPEROX', 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'XO2' , 87.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'XO2N' , 87.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'XPAR' , 45.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'XPRP' , 89.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'NTR1' ,119.1 ,'' ,-1 ,'' ,-1 ,'VD_NTRALK' , 1 ,'NTR_ALK' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'NTR2' ,135.1 ,'' ,-1 ,'' ,-1 ,'VD_NTROH' , 1 ,'NTR_OH' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'FACD' , 46.0 ,'' ,-1 ,'' ,-1 ,'VD_FACD' , 1 ,'FORMIC_ACID' , 1 ,'' ,'FOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'CO' , 28.0 ,'' ,-1 ,'' ,-1 ,'VD_CO' , 1 ,'CO' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'HCO3' , 63.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'ALDX' , 58.1 ,'' ,-1 ,'' ,-1 ,'VD_GEN_ALD' , 1 ,'GENERIC_ALDEHYDE', 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'GLYD' , 60.0 ,'' ,-1 ,'' ,-1 ,'VD_GLYD' , 1 ,'GLYOXAL' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'GLY' , 58.0 ,'' ,-1 ,'' ,-1 ,'VD_GLY' , 1 ,'GLYOXAL' , 1 ,'' ,'GLY' ,'Yes' ,'Yes' ,'' ,'Yes', 'MGLY' , 72.0 ,'' ,-1 ,'' ,-1 ,'VD_MGLY' , 1 ,'METHYL_GLYOXAL' , 1 ,'' ,'MGLY' ,'Yes' ,'Yes' ,'' ,'Yes', 'ETHA' , 30.1 ,'' ,-1 ,'' ,-1 ,'VD_ETHA' , 1 ,'ETHANE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'ETOH' , 46.1 ,'' ,-1 ,'' ,-1 ,'VD_ETOH' , 1 ,'ETHANOL' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'KET' , 72.1 ,'' ,-1 ,'' ,-1 ,'VD_KET' , 1 ,'MEK' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'PAR' , 14.0 ,'' ,-1 ,'' ,-1 ,'VD_PAR' , 1 ,'ETHANE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'ACET' , 58.1 ,'' ,-1 ,'' ,-1 ,'VD_ACET' , 1 ,'ACETONE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'PRPA' , 44.1 ,'' ,-1 ,'' ,-1 ,'VD_PRPA' , 1 ,'PROPANE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'ROR' , 29.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'ETHY' , 26.0 ,'' ,-1 ,'' ,-1 ,'VD_ETHY' , 1 ,'ACETYLENE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'ETH' , 28.0 ,'' ,-1 ,'' ,-1 ,'VD_ETH' , 1 ,'ETHENE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'OLE' , 42.1 ,'' ,-1 ,'' ,-1 ,'VD_OLE' , 1 ,'ETHENE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'IOLE' , 56.1 ,'' ,-1 ,'' ,-1 ,'VD_IOLE' , 1 ,'ETHENE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'ISOP' , 68.1 ,'' ,-1 ,'' ,-1 ,'VD_ISOP' , 1 ,'ISOPRENE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'ISO2' ,117.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'ISOPRXN' , 68.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'ISOPRXN' ,'' ,'' ,'' ,'' ,'' , 'ISPD' , 70.1 ,'' ,-1 ,'' ,-1 ,'VD_ISPD' , 1 ,'METHACROLEIN' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'INTR' ,147.1 ,'' ,-1 ,'' ,-1 ,'VD_INTR' , 1 ,'NTR_OH' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ISPX' ,118.1 ,'' ,-1 ,'' ,-1 ,'VD_ISPX' , 1 ,'METHYLHYDROPEROX', 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'HPLD' ,116.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'OPO3' ,115.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'EPOX' ,118.1 ,'' ,-1 ,'' ,-1 ,'VD_IEPOX' , 1 ,'MEK' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'IEPOXP' ,118.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'EPX2' ,149.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'TERP' ,136.2 ,'' ,-1 ,'' ,-1 ,'VD_TERP' , 1 ,'PINENE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'APIN' ,136.2 ,'' ,-1 ,'' ,-1 ,'VD_TERP' , 1 ,'PINENE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'TERPNRO2' ,197.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'MTNO3' ,231.0 ,'' ,-1 ,'' ,-1 ,'VD_MTNO3' , 1 ,'MTNO3' , 1 ,'MTNO3' ,'MTNO3' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'TRPRXN' ,136.2 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'TRPRXN' ,'' ,'' ,'' ,'' ,'' , 'BENZENE' , 78.1 ,'' ,-1 ,'' ,-1 ,'VD_BENZ' , 1 ,'BENZENE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'CRES' ,108.1 ,'' ,-1 ,'' ,-1 ,'VD_CRES' , 1 ,'2-CRESOL' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'BZO2' ,159.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'OPEN' , 84.0 ,'' ,-1 ,'' ,-1 ,'VD_OPEN' , 1 ,'METHACROLEIN' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'BENZRO2' ,127.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'TOL' , 92.1 ,'' ,-1 ,'' ,-1 ,'VD_TOL' , 1 ,'TOLUENE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'TO2' ,173.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'TOLRO2' ,141.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'XOPN' , 98.1 ,'' ,-1 ,'' ,-1 ,'VD_XOPN' , 1 ,'MEK' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'XYLMN' ,106.2 ,'' ,-1 ,'' ,-1 ,'VD_XYLMN' , 1 ,'O-XYLENE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'XLO2' ,187.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'XYLRO2' ,155.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'NAPH' ,128.2 ,'' ,-1 ,'' ,-1 ,'VD_NAPH' , 1 ,'O-XYLENE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'PAHRO2' ,187.2 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'CRO' ,107.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'CAT1' ,124.1 ,'' ,-1 ,'' ,-1 ,'VD_CAT1' , 1 ,'PHENOL' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'CRON' ,153.1 ,'' ,-1 ,'' ,-1 ,'VD_METH_NIT_PHEN', 1 ,'6_NITRO_O_CRESOL', 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'OPAN' ,161.0 ,'' ,-1 ,'' ,-1 ,'VD_MPAN' , 1 ,'MPAN' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ECH4' , 16.0 ,'' ,-1 ,'' ,-1 ,'VD_METHANE' , 1 ,'METHANE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'CL2' , 71.0 ,'' ,-1 ,'' ,-1 ,'VD_CL2' , 1 ,'CL2' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'CL' , 35.5 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'HOCL' , 52.5 ,'' ,-1 ,'' ,-1 ,'VD_HOCL' , 1 ,'HOCL' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'CLO' , 51.5 ,'' ,-1 ,'' ,-1 ,'VD_CLO' , 1 ,'CLO' , 1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'FMCL' , 64.5 ,'' ,-1 ,'' ,-1 ,'VD_FMCL' , 1 ,'FMCL' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'HCL' , 36.5 ,'' ,-1 ,'' ,-1 ,'VD_HCL' , 1 ,'HCL' , 1 ,'HCL' ,'HCL' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'CLNO2' , 81.5 ,'' ,-1 ,'' ,-1 ,'VD_CLNO2' , 1 ,'NITRYL_CHLORIDE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'CLNO3' , 97.5 ,'' ,-1 ,'' ,-1 ,'VD_CLNO3' , 1 ,'CLNO3' , 1 ,'CLNO3' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SESQ' ,204.0 ,'' ,-1 ,'' ,-1 ,'VD_SESQ' , 1 ,'PINENE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'SESQRXN' ,204.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'SESQRXN' ,'' ,'' ,'' ,'' ,'' , 'SOAALK' ,112.0 ,'' ,-1 ,'' ,-1 ,'VD_SOAALK' , 1 ,'DECANE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'H2NO3PIJ' , 64.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'H2NO3PK' , 64.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'VLVPO1' ,218.0 ,'' ,-1 ,'' ,-1 ,'VD_VLVPO1' , 1 ,'ADIPIC_ACID' , 1 ,'VLVPO1' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'VSVPO1' ,230.0 ,'' ,-1 ,'' ,-1 ,'VD_VSVPO1' , 1 ,'ADIPIC_ACID' , 1 ,'VSVPO1' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'VSVPO2' ,241.0 ,'' ,-1 ,'' ,-1 ,'VD_VSVPO2' , 1 ,'ADIPIC_ACID' , 1 ,'VSVPO2' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'VSVPO3' ,253.0 ,'' ,-1 ,'' ,-1 ,'VD_VSVPO3' , 1 ,'ADIPIC_ACID' , 1 ,'VSVPO3' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'VIVPO1' ,266.0 ,'' ,-1 ,'' ,-1 ,'VD_VIVPO1' , 1 ,'ADIPIC_ACID' , 1 ,'VIVPO1' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'VLVOO1' ,136.0 ,'' ,-1 ,'' ,-1 ,'VD_VLVOO1' , 1 ,'ADIPIC_ACID' , 1 ,'VLVOO1' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'VLVOO2' ,136.0 ,'' ,-1 ,'' ,-1 ,'VD_VLVOO2' , 1 ,'ADIPIC_ACID' , 1 ,'VLVOO2' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'VSVOO1' ,135.0 ,'' ,-1 ,'' ,-1 ,'VD_VSVOO1' , 1 ,'ADIPIC_ACID' , 1 ,'VSVOO1' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'VSVOO2' ,135.0 ,'' ,-1 ,'' ,-1 ,'VD_VSVOO2' , 1 ,'ADIPIC_ACID' , 1 ,'VSVOO2' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'VSVOO3' ,134.0 ,'' ,-1 ,'' ,-1 ,'VD_VSVOO3' , 1 ,'ADIPIC_ACID' , 1 ,'VSVOO3' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'PCVOC' ,170.0 ,'' ,-1 ,'' ,-1 ,'VD_PCVOC' , 1 ,'GENERIC_ALDEHYDE', 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'PCSOARXN' ,170.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'PCSOARXN' ,'' ,'' ,'' ,'' ,'' , 'FORM_PRIMARY' , 30.0 ,'' ,-1 ,'' ,-1 ,'VD_HCHO' , 1 ,'FORMALDEHYDE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ALD2_PRIMARY' , 44.0 ,'' ,-1 ,'' ,-1 ,'VD_ALD' , 1 ,'ACETALDEHYDE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'BUTADIENE13' , 54.0 ,'' ,-1 ,'' ,-1 ,'VD_BUTADIENE13' , 1 ,'13-BUTADIENE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'ACROLEIN' , 56.1 ,'' ,-1 ,'' ,-1 ,'VD_ACROLEIN' , 1 ,'ACROLEIN' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'ACRO_PRIMARY' , 56.1 ,'' ,-1 ,'' ,-1 ,'VD_ACROLEIN' , 1 ,'ACROLEIN' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'TOLU' , 92.0 ,'' ,-1 ,'' ,-1 ,'VD_TOL' , 1 ,'TOLUENE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'' ,'Yes', 'HG' ,200.6 ,'' ,-1 ,'' ,-1 ,'VD_HG' , 1 ,'HG' , 1 ,'' ,'HG' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'HGIIAER' ,200.6 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'PHGRXN' ,'' ,'' ,'' ,'' ,'' , 'HGIIGAS' ,271.5 ,'' ,-1 ,'' ,-1 ,'VD_HGIIGAS' , 1 ,'HGIIGAS' , 1 ,'' ,'HGIIGAS' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SVAVB1' ,198.0 ,'' ,-1 ,'' ,-1 ,'VD_SVAVB1' , 1 ,'SVAVB1' , 1 ,'SVAVB1' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SVAVB2' ,179.0 ,'' ,-1 ,'' ,-1 ,'VD_SVAVB2' , 1 ,'SVAVB2' , 1 ,'SVAVB2' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SVAVB3' ,169.0 ,'' ,-1 ,'' ,-1 ,'VD_SVAVB3' , 1 ,'SVAVB3' , 1 ,'SVAVB3' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SVAVB4' ,158.0 ,'' ,-1 ,'' ,-1 ,'VD_SVAVB4' , 1 ,'SVAVB4' , 1 ,'SVAVB4' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'BR' , 79.9 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'BRO' , 95.9 ,'' ,-1 ,'' ,-1 ,'VD_BRO' , 1 ,'BRO' , 1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'HOBR' , 96.9 ,'' ,-1 ,'' ,-1 ,'VD_HOBR' , 1 ,'HOBR' , 1 ,'HOBR' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'HBR' , 80.9 ,'' ,-1 ,'' ,-1 ,'VD_HBR' , 1 ,'HBR' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'BR2' ,159.8 ,'' ,-1 ,'' ,-1 ,'VD_BR2' , 1 ,'BR2' , 1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'BRNO3' ,141.9 ,'' ,-1 ,'' ,-1 ,'VD_BRNO3' , 1 ,'BRNO3' , 1 ,'BRNO3' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'BRNO2' ,125.9 ,'' ,-1 ,'' ,-1 ,'VD_BRNO2' , 1 ,'BRNO2' , 1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'FMBR' ,108.9 ,'' ,-1 ,'' ,-1 ,'VD_FMBR' , 1 ,'FMBR' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'MB3' ,252.7 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'MB3' , 1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'MB2' ,173.8 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'MB2' , 1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'MB2C' ,208.3 ,'' ,-1 ,'' ,-1 ,'VD_MB2C' , 1 ,'MB2C' , 1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'MBC2' ,243.8 ,'' ,-1 ,'' ,-1 ,'VD_MBC2' , 1 ,'MBC2' , 1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'MBC' ,129.4 ,'' ,-1 ,'' ,-1 ,'VD_MBC' , 1 ,'MBC' , 1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'DMS' , 62.0 ,'' ,-1 ,'' ,-1 ,'VD_DMS' , 1 ,'DMS' , 1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'MSA' , 96.0 ,'' ,-1 ,'' ,-1 ,'VD_MSA' , 1 ,'MSA' , 1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'BRCL' ,115.4 ,'' ,-1 ,'' ,-1 ,'VD_BRCL' , 1 ,'BRCL' , 1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'I' ,126.9 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'IO' ,142.9 ,'' ,-1 ,'' ,-1 ,'VD_IO' , 1 ,'IO' , 1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'HI' ,127.9 ,'' ,-1 ,'' ,-1 ,'VD_HI' , 1 ,'HI' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'I2' ,253.8 ,'' ,-1 ,'' ,-1 ,'VD_I2' , 1 ,'I2' , 1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'HOI' ,143.9 ,'' ,-1 ,'' ,-1 ,'VD_HOI' , 1 ,'HOI' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'INO' ,156.9 ,'' ,-1 ,'' ,-1 ,'VD_INO' , 1 ,'INO' , 1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'INO2' ,172.9 ,'' ,-1 ,'' ,-1 ,'VD_INO2' , 1 ,'INO2' , 1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'INO3' ,188.9 ,'' ,-1 ,'' ,-1 ,'VD_INO3' , 1 ,'INO3' , 1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'OIO' ,158.9 ,'' ,-1 ,'' ,-1 ,'VD_OIO' , 1 ,'OIO' , 1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'I2O4' ,317.8 ,'' ,-1 ,'' ,-1 ,'VD_I2O4' , 1 ,'I2O4' , 1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'I2O2' ,285.8 ,'' ,-1 ,'' ,-1 ,'VD_I2O2' , 1 ,'I2O2' , 1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'I2O3' ,301.8 ,'' ,-1 ,'' ,-1 ,'VD_I2O3' , 1 ,'I2O3' , 1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'CH3I' ,141.9 ,'' ,-1 ,'' ,-1 ,'VD_CH3I' , 1 ,'CH3I' , 1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'ICL' ,162.4 ,'' ,-1 ,'' ,-1 ,'VD_ICL' , 1 ,'ICL' , 1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'IBR' ,206.8 ,'' ,-1 ,'' ,-1 ,'VD_IBR' , 1 ,'IBR' , 1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'MI2' ,267.8 ,'' ,-1 ,'' ,-1 ,'VD_MI2' , 1 ,'MI2' , 1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'MIB' ,219.9 ,'' ,-1 ,'' ,-1 ,'VD_MIB' , 1 ,'MIB' , 1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'MIC' ,176.4 ,'' ,-1 ,'' ,-1 ,'VD_MIC' , 1 ,'MIC' , 1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', / ================================================ FILE: CCTM/src/MECHS/cb6r5m_ae7_aq/NR_cb6r5m_ae7_aq.nml ================================================ &NR_nml NR_SPECIES_DATA = !SPECIES ,MOLWT ,IC ,IC_FAC ,BC ,BC_FAC ,DRYDEP SURR ,FAC ,WET-SCAV SURR ,FAC ,NR2AE SURR ,NR2AQ SURR,TRNS ,DDEP ,WDEP ,CONC 'NH3' , 17.0 ,'' ,-1 ,'' ,-1 ,'VD_NH3' , 1 ,'NH3' , 1 ,'NH3' ,'NH3' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SVISO1' ,132.0 ,'' ,-1 ,'' ,-1 ,'VD_SVISO1' , 1 ,'SVISO1' , 1 ,'SVISO1' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SVISO2' ,133.0 ,'' ,-1 ,'' ,-1 ,'VD_SVISO2' , 1 ,'SVISO2' , 1 ,'SVISO2' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SVSQT' ,273.0 ,'' ,-1 ,'' ,-1 ,'VD_SVSQT' , 1 ,'SVSQT' , 1 ,'SVSQT' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'LVPCSOG' ,170.0 ,'' ,-1 ,'' ,-1 ,'VD_LVPCSOG' , 1 ,'ADIPIC_ACID' , 1 ,'LVPCSOG' ,'' ,'Yes' ,'' ,'' ,'Yes', 'SVMT1' ,300.0 ,'' ,-1 ,'' ,-1 ,'VD_SVMT1' , 1 ,'SVMT1' , 1 ,'SVMT1' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SVMT2' ,200.0 ,'' ,-1 ,'' ,-1 ,'VD_SVMT2' , 1 ,'SVMT2' , 1 ,'SVMT2' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SVMT3' ,186.0 ,'' ,-1 ,'' ,-1 ,'VD_SVMT3' , 1 ,'SVMT3' , 1 ,'SVMT3' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SVMT4' ,184.0 ,'' ,-1 ,'' ,-1 ,'VD_SVMT4' , 1 ,'SVMT4' , 1 ,'SVMT4' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SVMT5' ,170.0 ,'' ,-1 ,'' ,-1 ,'VD_SVMT5' , 1 ,'SVMT5' , 1 ,'SVMT5' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SVMT6' ,168.0 ,'' ,-1 ,'' ,-1 ,'VD_SVMT6' , 1 ,'SVMT6' , 1 ,'SVMT6' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', / ================================================ FILE: CCTM/src/MECHS/cb6r5m_ae7_aq/RXNS_DATA_MODULE.F90 ================================================ MODULE RXNS_DATA IMPLICIT NONE ! --------- Photochemical Mechanism Reactions, Rates, etc. DAT --------- ! Source file: /home/bmurphy/cmaq_projects/bicicle_1.6/UTIL/chemmech/input/cb6r5m_ae7_aq/mech_cb6r5m_ae7_aq.def ! for Mechanism Name: CB6R5M_AE7_AQ ! This file is used to create mechanism data and functions ! The following are reserved symbols declared in this file: ! MECHNAME = Mechanism name ! N_GAS_CHEM_SPC = Total number of gas species in chemical mechanism ! NUMB_MECH_SPC = Total number of species in chemical mechanism ! N_ACT_SP = Number of active (determined by ODE solver) species in mechanism ! GAS_CHEM_SPC = Names of gas species in chemical mechanism ! CHEMISTRY_SPC = Names of species in chemical mechanism ! CGRID_INDEX = CGRID Index of species in chemical mechanism ! SPECIES_TYPE = Group or type of species ! SPECIES_MOLWT = Molecular Weight of species (gm/mole) ! NRXNS = Number of mechanism reactions ! ZERO_REACT_REACTIONS = number zero reactant reactions ! ONE_REACT_REACTIONS = number one reactant reactions ! TWO_REACT_REACTIONS = number second order reactions ! THREE_REACT_REACTIONS = number three reactant reactions ! NSUNLIGHT_RXNS = Number of mechanism reactions requiring sunlight ! NTHERMAL_RXNS = Number of mechanism reactions not requiring sunlight ! KUNITS = Units of mechanism reactions ! KTYPE = Reaction type ! IRXBITS = Bit test mask vector for selected reactions ! IORDER = Order of the reaction ! NTERMS_JACOB = Maximum number of nonzero terms in day/night Jacobian ! MSTEPS_JACOB = Maximum number of LU Decomposition steps to solve each Jacobian ! KTN1 = Number of type 1 reactions ! KRX1 = Reactions list pointer to type 1 reactions ! KTN2 = Number of type 2 reactions ! KRX2 = Reactions list pointer to type 2 reactions ! KTN3 = Number of type 3 reactions ! KRX3 = Reactions list pointer to type 3 reactions ! KTN4 = Number of type 4 reactions ! KRX4 = Reactions list pointer to type 4 reactions ! KTN5 = Number of type 5 reactions ! KRX5 = Reactions list pointer to type 5 reactions ! KTN6 = Number of type 6 reactions ! KRX6 = Reactions list pointer to type 6 reactions ! KTN7 = Number of type 7 reactions ! KRX7 = Reactions list pointer to type 7 reactions ! NWM = Number of air 3-body reactions ! NRXWM = Reactions list pointer to air 3-body reactions ! ATM_AIR = air 3-body reactions concentration ! NWW = Number of H2O 3-body reactions ! NRXWW = Reactions list pointer to H2O 3-body reactions ! NWO2 = Number of reactions with O2 ! NRXWO2 = Reactions list pointer to O2 reactions ! ATM_O2 = Oxygen reactions concentration ! NWN2 = Number of N2 3-body reactions ! NRXWN2 = Reactions list pointer to N2 3-body reactions ! ATM_N2 = Nitrogen 3-body reactions concentration ! NWCH4 = Number of reactions with CH4 ! NRXWCH4 = Reactions list pointer to CH4 reactions ! ATM_CH4 = Methane reactions concentration ! NWH2 = Number of reactions with H2 ! NRXWH2 = Reactions list pointer to H2 reactions ! ATM_H2 = Hydrogen reactions concentration ! MXPRD = Maximum number of mechanism reaction products ! IRR = Reactions list pointer to reactants and products ! RTDAT = Kinetic reaction rates expressions components ! NFALLOFFF = Number of falloff reactions ! IRRFALL = Reactions list pointer to falloff reactions ! RFDAT = Falloff reaction rates expressions components ! SC = Stoichiometric coefficients ! NREACT = Number of reactants in each mechanism reaction ! NPRDCT = Number of products in each mechanism reaction ! RXLABEL = Character label list for mechanism reactions ! NMPHOT = Number of mechanism photolytic reactions ! NPHOTAB = Number of photolytic reactions tables ! IPH = Reactions list pointer to photolytic reactions and tables ! MHETERO = Number of mechanism heteorogenous reactions ! NHETERO = Number of unique heteorogenous rate constants ! IHETERO = Reactions list pointer to heteorogenous reactions and tables CHARACTER( 32 ), PARAMETER :: MECHNAME = 'CB6R5M_AE7_AQ' INTEGER, PARAMETER :: N_GAS_CHEM_SPC = 161 INTEGER, PARAMETER :: NUMB_MECH_SPC = 182 CHARACTER( 16 ) :: GAS_CHEM_SPC( N_GAS_CHEM_SPC ) CHARACTER( 16 ) :: CHEMISTRY_SPC( NUMB_MECH_SPC ) CHARACTER( 16 ) :: SPECIES_TYPE( NUMB_MECH_SPC ) INTEGER :: CGRID_INDEX ( NUMB_MECH_SPC ) INTEGER :: TYPE_INDEX ( NUMB_MECH_SPC ) REAL( 8 ) :: SPECIES_MOLWT( NUMB_MECH_SPC ) LOGICAL :: CONVERT_CONC( NUMB_MECH_SPC ) ! The below character and integer arrays list the model species names used in the ! chemical mechanism. The gas species and their order should agree with ! the GC_SPC array for the gas phase chemistry to work correctly. ! If present, the CHEMISTRY_SPC names and species type should agree with the CGRID_SPCS module DATA GAS_CHEM_SPC( 1 ) / 'NO2 ' / DATA GAS_CHEM_SPC( 2 ) / 'NO ' / DATA GAS_CHEM_SPC( 3 ) / 'O ' / DATA GAS_CHEM_SPC( 4 ) / 'O3 ' / DATA GAS_CHEM_SPC( 5 ) / 'NO3 ' / DATA GAS_CHEM_SPC( 6 ) / 'O1D ' / DATA GAS_CHEM_SPC( 7 ) / 'OH ' / DATA GAS_CHEM_SPC( 8 ) / 'HO2 ' / DATA GAS_CHEM_SPC( 9 ) / 'H2O2 ' / DATA GAS_CHEM_SPC( 10 ) / 'N2O5 ' / DATA GAS_CHEM_SPC( 11 ) / 'HNO3 ' / DATA GAS_CHEM_SPC( 12 ) / 'HONO ' / DATA GAS_CHEM_SPC( 13 ) / 'PNA ' / DATA GAS_CHEM_SPC( 14 ) / 'SO2 ' / DATA GAS_CHEM_SPC( 15 ) / 'SULF ' / DATA GAS_CHEM_SPC( 16 ) / 'SULRXN ' / DATA GAS_CHEM_SPC( 17 ) / 'C2O3 ' / DATA GAS_CHEM_SPC( 18 ) / 'MEO2 ' / DATA GAS_CHEM_SPC( 19 ) / 'RO2 ' / DATA GAS_CHEM_SPC( 20 ) / 'PAN ' / DATA GAS_CHEM_SPC( 21 ) / 'PACD ' / DATA GAS_CHEM_SPC( 22 ) / 'AACD ' / DATA GAS_CHEM_SPC( 23 ) / 'CXO3 ' / DATA GAS_CHEM_SPC( 24 ) / 'ALD2 ' / DATA GAS_CHEM_SPC( 25 ) / 'XO2H ' / DATA GAS_CHEM_SPC( 26 ) / 'PANX ' / DATA GAS_CHEM_SPC( 27 ) / 'FORM ' / DATA GAS_CHEM_SPC( 28 ) / 'MEPX ' / DATA GAS_CHEM_SPC( 29 ) / 'MEOH ' / DATA GAS_CHEM_SPC( 30 ) / 'ROOH ' / DATA GAS_CHEM_SPC( 31 ) / 'XO2 ' / DATA GAS_CHEM_SPC( 32 ) / 'XO2N ' / DATA GAS_CHEM_SPC( 33 ) / 'NTR1 ' / DATA GAS_CHEM_SPC( 34 ) / 'NTR2 ' / DATA GAS_CHEM_SPC( 35 ) / 'FACD ' / DATA GAS_CHEM_SPC( 36 ) / 'CO ' / DATA GAS_CHEM_SPC( 37 ) / 'HCO3 ' / DATA GAS_CHEM_SPC( 38 ) / 'ALDX ' / DATA GAS_CHEM_SPC( 39 ) / 'GLYD ' / DATA GAS_CHEM_SPC( 40 ) / 'GLY ' / DATA GAS_CHEM_SPC( 41 ) / 'MGLY ' / DATA GAS_CHEM_SPC( 42 ) / 'ETHA ' / DATA GAS_CHEM_SPC( 43 ) / 'ETOH ' / DATA GAS_CHEM_SPC( 44 ) / 'KET ' / DATA GAS_CHEM_SPC( 45 ) / 'PAR ' / DATA GAS_CHEM_SPC( 46 ) / 'ACET ' / DATA GAS_CHEM_SPC( 47 ) / 'PRPA ' / DATA GAS_CHEM_SPC( 48 ) / 'XPRP ' / DATA GAS_CHEM_SPC( 49 ) / 'XPAR ' / DATA GAS_CHEM_SPC( 50 ) / 'ROR ' / DATA GAS_CHEM_SPC( 51 ) / 'ETHY ' / DATA GAS_CHEM_SPC( 52 ) / 'ETH ' / DATA GAS_CHEM_SPC( 53 ) / 'OLE ' / DATA GAS_CHEM_SPC( 54 ) / 'IOLE ' / DATA GAS_CHEM_SPC( 55 ) / 'ISOP ' / DATA GAS_CHEM_SPC( 56 ) / 'ISO2 ' / DATA GAS_CHEM_SPC( 57 ) / 'ISOPRXN ' / DATA GAS_CHEM_SPC( 58 ) / 'ISPD ' / DATA GAS_CHEM_SPC( 59 ) / 'INTR ' / DATA GAS_CHEM_SPC( 60 ) / 'ISPX ' / DATA GAS_CHEM_SPC( 61 ) / 'HPLD ' / DATA GAS_CHEM_SPC( 62 ) / 'OPO3 ' / DATA GAS_CHEM_SPC( 63 ) / 'EPOX ' / DATA GAS_CHEM_SPC( 64 ) / 'EPX2 ' / DATA GAS_CHEM_SPC( 65 ) / 'TERP ' / DATA GAS_CHEM_SPC( 66 ) / 'TRPRXN ' / DATA GAS_CHEM_SPC( 67 ) / 'TERPNRO2 ' / DATA GAS_CHEM_SPC( 68 ) / 'APIN ' / DATA GAS_CHEM_SPC( 69 ) / 'BENZENE ' / DATA GAS_CHEM_SPC( 70 ) / 'CRES ' / DATA GAS_CHEM_SPC( 71 ) / 'BZO2 ' / DATA GAS_CHEM_SPC( 72 ) / 'OPEN ' / DATA GAS_CHEM_SPC( 73 ) / 'BENZRO2 ' / DATA GAS_CHEM_SPC( 74 ) / 'TOL ' / DATA GAS_CHEM_SPC( 75 ) / 'TO2 ' / DATA GAS_CHEM_SPC( 76 ) / 'TOLRO2 ' / DATA GAS_CHEM_SPC( 77 ) / 'XOPN ' / DATA GAS_CHEM_SPC( 78 ) / 'XYLMN ' / DATA GAS_CHEM_SPC( 79 ) / 'XLO2 ' / DATA GAS_CHEM_SPC( 80 ) / 'XYLRO2 ' / DATA GAS_CHEM_SPC( 81 ) / 'NAPH ' / DATA GAS_CHEM_SPC( 82 ) / 'PAHRO2 ' / DATA GAS_CHEM_SPC( 83 ) / 'CRO ' / DATA GAS_CHEM_SPC( 84 ) / 'CAT1 ' / DATA GAS_CHEM_SPC( 85 ) / 'CRON ' / DATA GAS_CHEM_SPC( 86 ) / 'OPAN ' / DATA GAS_CHEM_SPC( 87 ) / 'ECH4 ' / DATA GAS_CHEM_SPC( 88 ) / 'CL2 ' / DATA GAS_CHEM_SPC( 89 ) / 'CL ' / DATA GAS_CHEM_SPC( 90 ) / 'HOCL ' / DATA GAS_CHEM_SPC( 91 ) / 'CLO ' / DATA GAS_CHEM_SPC( 92 ) / 'FMCL ' / DATA GAS_CHEM_SPC( 93 ) / 'HCL ' / DATA GAS_CHEM_SPC( 94 ) / 'CLNO2 ' / DATA GAS_CHEM_SPC( 95 ) / 'CLNO3 ' / DATA GAS_CHEM_SPC( 96 ) / 'SVAVB2 ' / DATA GAS_CHEM_SPC( 97 ) / 'SVAVB3 ' / DATA GAS_CHEM_SPC( 98 ) / 'SVAVB4 ' / DATA GAS_CHEM_SPC( 99 ) / 'SVAVB1 ' / DATA GAS_CHEM_SPC( 100 ) / 'SESQ ' / DATA GAS_CHEM_SPC( 101 ) / 'SESQRXN ' / DATA GAS_CHEM_SPC( 102 ) / 'SOAALK ' / DATA GAS_CHEM_SPC( 103 ) / 'H2NO3PIJ ' / DATA GAS_CHEM_SPC( 104 ) / 'H2NO3PK ' / DATA GAS_CHEM_SPC( 105 ) / 'IEPOXP ' / DATA GAS_CHEM_SPC( 106 ) / 'MTNO3 ' / DATA GAS_CHEM_SPC( 107 ) / 'PCVOC ' / DATA GAS_CHEM_SPC( 108 ) / 'PCSOARXN ' / DATA GAS_CHEM_SPC( 109 ) / 'VLVPO1 ' / DATA GAS_CHEM_SPC( 110 ) / 'VSVPO1 ' / DATA GAS_CHEM_SPC( 111 ) / 'VSVPO2 ' / DATA GAS_CHEM_SPC( 112 ) / 'VSVPO3 ' / DATA GAS_CHEM_SPC( 113 ) / 'VIVPO1 ' / DATA GAS_CHEM_SPC( 114 ) / 'VLVOO1 ' / DATA GAS_CHEM_SPC( 115 ) / 'VLVOO2 ' / DATA GAS_CHEM_SPC( 116 ) / 'VSVOO2 ' / DATA GAS_CHEM_SPC( 117 ) / 'VSVOO3 ' / DATA GAS_CHEM_SPC( 118 ) / 'VSVOO1 ' / DATA GAS_CHEM_SPC( 119 ) / 'FORM_PRIMARY ' / DATA GAS_CHEM_SPC( 120 ) / 'ALD2_PRIMARY ' / DATA GAS_CHEM_SPC( 121 ) / 'BUTADIENE13 ' / DATA GAS_CHEM_SPC( 122 ) / 'ACROLEIN ' / DATA GAS_CHEM_SPC( 123 ) / 'ACRO_PRIMARY ' / DATA GAS_CHEM_SPC( 124 ) / 'TOLU ' / DATA GAS_CHEM_SPC( 125 ) / 'HG ' / DATA GAS_CHEM_SPC( 126 ) / 'HGIIAER ' / DATA GAS_CHEM_SPC( 127 ) / 'HGIIGAS ' / DATA GAS_CHEM_SPC( 128 ) / 'BR ' / DATA GAS_CHEM_SPC( 129 ) / 'BRO ' / DATA GAS_CHEM_SPC( 130 ) / 'HOBR ' / DATA GAS_CHEM_SPC( 131 ) / 'HBR ' / DATA GAS_CHEM_SPC( 132 ) / 'BR2 ' / DATA GAS_CHEM_SPC( 133 ) / 'BRNO3 ' / DATA GAS_CHEM_SPC( 134 ) / 'BRNO2 ' / DATA GAS_CHEM_SPC( 135 ) / 'FMBR ' / DATA GAS_CHEM_SPC( 136 ) / 'MB3 ' / DATA GAS_CHEM_SPC( 137 ) / 'MB2 ' / DATA GAS_CHEM_SPC( 138 ) / 'MB2C ' / DATA GAS_CHEM_SPC( 139 ) / 'MBC2 ' / DATA GAS_CHEM_SPC( 140 ) / 'MBC ' / DATA GAS_CHEM_SPC( 141 ) / 'DMS ' / DATA GAS_CHEM_SPC( 142 ) / 'MSA ' / DATA GAS_CHEM_SPC( 143 ) / 'BRCL ' / DATA GAS_CHEM_SPC( 144 ) / 'I ' / DATA GAS_CHEM_SPC( 145 ) / 'IO ' / DATA GAS_CHEM_SPC( 146 ) / 'HI ' / DATA GAS_CHEM_SPC( 147 ) / 'I2 ' / DATA GAS_CHEM_SPC( 148 ) / 'HOI ' / DATA GAS_CHEM_SPC( 149 ) / 'INO ' / DATA GAS_CHEM_SPC( 150 ) / 'INO2 ' / DATA GAS_CHEM_SPC( 151 ) / 'INO3 ' / DATA GAS_CHEM_SPC( 152 ) / 'OIO ' / DATA GAS_CHEM_SPC( 153 ) / 'I2O4 ' / DATA GAS_CHEM_SPC( 154 ) / 'I2O2 ' / DATA GAS_CHEM_SPC( 155 ) / 'I2O3 ' / DATA GAS_CHEM_SPC( 156 ) / 'CH3I ' / DATA GAS_CHEM_SPC( 157 ) / 'ICL ' / DATA GAS_CHEM_SPC( 158 ) / 'IBR ' / DATA GAS_CHEM_SPC( 159 ) / 'MI2 ' / DATA GAS_CHEM_SPC( 160 ) / 'MIB ' / DATA GAS_CHEM_SPC( 161 ) / 'MIC ' / LOGICAL :: HALOGEN_PARMAETER = .FALSE. ! The below character and integer arrays list the model species names used in the ! chemical mechanism. The gas species and their order should agree with ! the GC_SPC array for the gas phase chemistry to work correctly. ! If present, the CHEMISTRY_SPC names and species type should agree with the CGRID_SPCS module ! MAPPED_TO_CGRID declares whether CMAQ namelists were used to determine ! the below values of CGRID_INDEX, SPECIES_TYPE, SPECIES_MOLWT, and CONVERT_CONC LOGICAL, PARAMETER, PRIVATE :: F = .FALSE. LOGICAL, PARAMETER, PRIVATE :: T = .TRUE. LOGICAL :: MAPPED_TO_CGRID = .FALSE. TYPE MEMBER CHARACTER( 16 ) :: CHEMISTRY_SPC INTEGER :: CGRID_INDEX CHARACTER( 2 ) :: SPECIES_TYPE REAL( 8 ) :: SPECIES_MOLWT LOGICAL :: CONVERT_CONC END TYPE MEMBER TYPE( MEMBER ) :: SPECIES_LIST( NUMB_MECH_SPC ) = (/ & & MEMBER("NO2 ", 1, "GC", 46.00D0, F), & & MEMBER("NO ", 2, "GC", 30.00D0, F), & & MEMBER("O ", 3, "GC", 16.00D0, F), & & MEMBER("O3 ", 4, "GC", 48.00D0, F), & & MEMBER("NO3 ", 5, "GC", 62.00D0, F), & & MEMBER("O1D ", 6, "GC", 16.00D0, F), & & MEMBER("OH ", 7, "GC", 17.00D0, F), & & MEMBER("HO2 ", 8, "GC", 33.00D0, F), & & MEMBER("H2O2 ", 9, "GC", 34.00D0, F), & & MEMBER("N2O5 ", 10, "GC", 108.00D0, F), & & MEMBER("HNO3 ", 11, "GC", 63.00D0, F), & & MEMBER("HONO ", 12, "GC", 47.00D0, F), & & MEMBER("PNA ", 13, "GC", 79.00D0, F), & & MEMBER("SO2 ", 14, "GC", 64.00D0, F), & & MEMBER("SULF ", 15, "GC", 98.00D0, F), & & MEMBER("SULRXN ", 16, "GC", 98.00D0, F), & & MEMBER("C2O3 ", 17, "GC", 75.00D0, F), & & MEMBER("MEO2 ", 18, "GC", 47.00D0, F), & & MEMBER("RO2 ", 19, "GC", 87.10D0, F), & & MEMBER("PAN ", 20, "GC", 121.00D0, F), & & MEMBER("PACD ", 21, "GC", 76.00D0, F), & & MEMBER("AACD ", 22, "GC", 60.00D0, F), & & MEMBER("CXO3 ", 23, "GC", 89.00D0, F), & & MEMBER("ALD2 ", 24, "GC", 44.00D0, F), & & MEMBER("XO2H ", 25, "GC", 87.10D0, F), & & MEMBER("PANX ", 26, "GC", 135.00D0, F), & & MEMBER("FORM ", 27, "GC", 30.00D0, F), & & MEMBER("MEPX ", 28, "GC", 48.00D0, F), & & MEMBER("MEOH ", 29, "GC", 32.00D0, F), & & MEMBER("ROOH ", 30, "GC", 90.10D0, F), & & MEMBER("XO2 ", 31, "GC", 87.10D0, F), & & MEMBER("XO2N ", 32, "GC", 87.10D0, F), & & MEMBER("NTR1 ", 35, "GC", 119.10D0, F), & & MEMBER("NTR2 ", 36, "GC", 135.10D0, F), & & MEMBER("FACD ", 37, "GC", 46.00D0, F), & & MEMBER("CO ", 38, "GC", 28.00D0, F), & & MEMBER("HCO3 ", 39, "GC", 63.00D0, F), & & MEMBER("ALDX ", 40, "GC", 58.10D0, F), & & MEMBER("GLYD ", 41, "GC", 60.00D0, F), & & MEMBER("GLY ", 42, "GC", 58.00D0, F), & & MEMBER("MGLY ", 43, "GC", 72.00D0, F), & & MEMBER("ETHA ", 44, "GC", 30.10D0, F), & & MEMBER("ETOH ", 45, "GC", 46.10D0, F), & & MEMBER("KET ", 46, "GC", 72.10D0, F), & & MEMBER("PAR ", 47, "GC", 14.00D0, F), & & MEMBER("ACET ", 48, "GC", 58.10D0, F), & & MEMBER("PRPA ", 49, "GC", 44.10D0, F), & & MEMBER("XPRP ", 34, "GC", 89.10D0, F), & & MEMBER("XPAR ", 33, "GC", 45.00D0, F), & & MEMBER("ROR ", 50, "GC", 29.00D0, F), & & MEMBER("ETHY ", 51, "GC", 26.00D0, F), & & MEMBER("ETH ", 52, "GC", 28.00D0, F), & & MEMBER("OLE ", 53, "GC", 42.10D0, F), & & MEMBER("IOLE ", 54, "GC", 56.10D0, F), & & MEMBER("ISOP ", 55, "GC", 68.10D0, F), & & MEMBER("ISO2 ", 56, "GC", 117.10D0, F), & & MEMBER("ISOPRXN ", 57, "GC", 68.10D0, F), & & MEMBER("ISPD ", 58, "GC", 70.10D0, F), & & MEMBER("INTR ", 59, "GC", 147.10D0, F), & & MEMBER("ISPX ", 60, "GC", 118.10D0, F), & & MEMBER("HPLD ", 61, "GC", 116.10D0, F), & & MEMBER("OPO3 ", 62, "GC", 115.00D0, F), & & MEMBER("EPOX ", 63, "GC", 118.10D0, F), & & MEMBER("EPX2 ", 65, "GC", 149.10D0, F), & & MEMBER("TERP ", 66, "GC", 136.20D0, F), & & MEMBER("TRPRXN ", 70, "GC", 136.20D0, F), & & MEMBER("TERPNRO2 ", 68, "GC", 197.00D0, F), & & MEMBER("APIN ", 67, "GC", 136.20D0, F), & & MEMBER("BENZENE ", 71, "GC", 78.10D0, F), & & MEMBER("CRES ", 72, "GC", 108.10D0, F), & & MEMBER("BZO2 ", 73, "GC", 159.10D0, F), & & MEMBER("OPEN ", 74, "GC", 84.00D0, F), & & MEMBER("BENZRO2 ", 75, "GC", 127.00D0, F), & & MEMBER("TOL ", 76, "GC", 92.10D0, F), & & MEMBER("TO2 ", 77, "GC", 173.10D0, F), & & MEMBER("TOLRO2 ", 78, "GC", 141.00D0, F), & & MEMBER("XOPN ", 79, "GC", 98.10D0, F), & & MEMBER("XYLMN ", 80, "GC", 106.20D0, F), & & MEMBER("XLO2 ", 81, "GC", 187.10D0, F), & & MEMBER("XYLRO2 ", 82, "GC", 155.00D0, F), & & MEMBER("NAPH ", 83, "GC", 128.20D0, F), & & MEMBER("PAHRO2 ", 84, "GC", 187.20D0, F), & & MEMBER("CRO ", 85, "GC", 107.10D0, F), & & MEMBER("CAT1 ", 86, "GC", 124.10D0, F), & & MEMBER("CRON ", 87, "GC", 153.10D0, F), & & MEMBER("OPAN ", 88, "GC", 161.00D0, F), & & MEMBER("ECH4 ", 89, "GC", 16.00D0, F), & & MEMBER("CL2 ", 90, "GC", 71.00D0, F), & & MEMBER("CL ", 91, "GC", 35.50D0, F), & & MEMBER("HOCL ", 92, "GC", 52.50D0, F), & & MEMBER("CLO ", 93, "GC", 51.50D0, F), & & MEMBER("FMCL ", 94, "GC", 64.50D0, F), & & MEMBER("HCL ", 95, "GC", 36.50D0, F), & & MEMBER("CLNO2 ", 96, "GC", 81.50D0, F), & & MEMBER("CLNO3 ", 97, "GC", 97.50D0, F), & & MEMBER("SVAVB2 ", 125, "GC", 179.00D0, F), & & MEMBER("SVAVB3 ", 126, "GC", 169.00D0, F), & & MEMBER("SVAVB4 ", 127, "GC", 158.00D0, F), & & MEMBER("SVAVB1 ", 124, "GC", 198.00D0, F), & & MEMBER("SESQ ", 98, "GC", 204.00D0, F), & & MEMBER("SESQRXN ", 99, "GC", 204.00D0, F), & & MEMBER("SOAALK ", 100, "GC", 112.00D0, F), & & MEMBER("H2NO3PIJ ", 101, "GC", 64.00D0, F), & & MEMBER("H2NO3PK ", 102, "GC", 64.00D0, F), & & MEMBER("ACLI ", 174, "AE", 35.50D0, T), & & MEMBER("ACLJ ", 175, "AE", 35.50D0, T), & & MEMBER("ACLK ", 176, "AE", 35.50D0, T), & & MEMBER("IEPOXP ", 64, "GC", 118.10D0, F), & & MEMBER("ASO4J ", 164, "AE", 96.00D0, T), & & MEMBER("AISO3J ", 209, "AE", 168.20D0, T), & & MEMBER("AGLYJ ", 212, "AE", 66.40D0, T), & & MEMBER("MTNO3 ", 69, "GC", 231.00D0, F), & & MEMBER("AMTNO3J ", 213, "AE", 231.00D0, T), & & MEMBER("AMTHYDJ ", 214, "AE", 168.00D0, T), & & MEMBER("AAVB2J ", 238, "AE", 179.00D0, T), & & MEMBER("AOLGAJ ", 210, "AE", 206.00D0, T), & & MEMBER("AAVB3J ", 239, "AE", 169.00D0, T), & & MEMBER("AAVB4J ", 240, "AE", 158.00D0, T), & & MEMBER("AISO1J ", 177, "AE", 132.00D0, T), & & MEMBER("AOLGBJ ", 211, "AE", 248.00D0, T), & & MEMBER("AISO2J ", 178, "AE", 133.00D0, T), & & MEMBER("ASQTJ ", 179, "AE", 273.00D0, T), & & MEMBER("APOCI ", 215, "AE", 220.00D0, T), & & MEMBER("APNCOMI ", 217, "AE", 220.00D0, T), & & MEMBER("APOCJ ", 216, "AE", 220.00D0, T), & & MEMBER("APNCOMJ ", 218, "AE", 220.00D0, T), & & MEMBER("PCVOC ", 113, "GC", 170.00D0, F), & & MEMBER("PCSOARXN ", 114, "GC", 170.00D0, F), & & MEMBER("VLVPO1 ", 103, "GC", 218.00D0, F), & & MEMBER("VSVPO1 ", 104, "GC", 230.00D0, F), & & MEMBER("VSVPO2 ", 105, "GC", 241.00D0, F), & & MEMBER("VSVPO3 ", 106, "GC", 253.00D0, F), & & MEMBER("VIVPO1 ", 107, "GC", 266.00D0, F), & & MEMBER("VLVOO1 ", 108, "GC", 136.00D0, F), & & MEMBER("VLVOO2 ", 109, "GC", 136.00D0, F), & & MEMBER("VSVOO2 ", 111, "GC", 135.00D0, F), & & MEMBER("VSVOO3 ", 112, "GC", 134.00D0, F), & & MEMBER("VSVOO1 ", 110, "GC", 135.00D0, F), & & MEMBER("FORM_PRIMARY ", 115, "GC", 30.00D0, F), & & MEMBER("ALD2_PRIMARY ", 116, "GC", 44.00D0, F), & & MEMBER("BUTADIENE13 ", 117, "GC", 54.00D0, F), & & MEMBER("ACROLEIN ", 118, "GC", 56.10D0, F), & & MEMBER("ACRO_PRIMARY ", 119, "GC", 56.10D0, F), & & MEMBER("TOLU ", 120, "GC", 92.00D0, F), & & MEMBER("HG ", 121, "GC", 200.60D0, F), & & MEMBER("HGIIAER ", 122, "GC", 200.60D0, F), & & MEMBER("HGIIGAS ", 123, "GC", 271.50D0, F), & & MEMBER("BR ", 128, "GC", 79.90D0, F), & & MEMBER("BRO ", 129, "GC", 95.90D0, F), & & MEMBER("HOBR ", 130, "GC", 96.90D0, F), & & MEMBER("HBR ", 131, "GC", 80.90D0, F), & & MEMBER("BR2 ", 132, "GC", 159.80D0, F), & & MEMBER("BRNO3 ", 133, "GC", 141.90D0, F), & & MEMBER("BRNO2 ", 134, "GC", 125.90D0, F), & & MEMBER("FMBR ", 135, "GC", 108.90D0, F), & & MEMBER("MB3 ", 136, "GC", 252.70D0, F), & & MEMBER("MB2 ", 137, "GC", 173.80D0, F), & & MEMBER("MB2C ", 138, "GC", 208.30D0, F), & & MEMBER("MBC2 ", 139, "GC", 243.80D0, F), & & MEMBER("MBC ", 140, "GC", 129.40D0, F), & & MEMBER("DMS ", 141, "GC", 62.00D0, F), & & MEMBER("MSA ", 142, "GC", 96.00D0, F), & & MEMBER("BRCL ", 143, "GC", 115.40D0, F), & & MEMBER("ABRJ ", 247, "AE", 79.90D0, T), & & MEMBER("I ", 144, "GC", 126.90D0, F), & & MEMBER("IO ", 145, "GC", 142.90D0, F), & & MEMBER("HI ", 146, "GC", 127.90D0, F), & & MEMBER("I2 ", 147, "GC", 253.80D0, F), & & MEMBER("HOI ", 148, "GC", 143.90D0, F), & & MEMBER("INO ", 149, "GC", 156.90D0, F), & & MEMBER("INO2 ", 150, "GC", 172.90D0, F), & & MEMBER("INO3 ", 151, "GC", 188.90D0, F), & & MEMBER("OIO ", 152, "GC", 158.90D0, F), & & MEMBER("I2O4 ", 153, "GC", 317.80D0, F), & & MEMBER("I2O2 ", 154, "GC", 285.80D0, F), & & MEMBER("I2O3 ", 155, "GC", 301.80D0, F), & & MEMBER("CH3I ", 156, "GC", 141.90D0, F), & & MEMBER("ICL ", 157, "GC", 162.40D0, F), & & MEMBER("IBR ", 158, "GC", 206.80D0, F), & & MEMBER("MI2 ", 159, "GC", 267.80D0, F), & & MEMBER("MIB ", 160, "GC", 219.90D0, F), & & MEMBER("MIC ", 161, "GC", 176.40D0, F) /) DATA CHEMISTRY_SPC( 1 ), SPECIES_MOLWT( 1 ) / 'NO2 ', 46.00D0 / DATA CHEMISTRY_SPC( 2 ), SPECIES_MOLWT( 2 ) / 'NO ', 30.00D0 / DATA CHEMISTRY_SPC( 3 ), SPECIES_MOLWT( 3 ) / 'O ', 16.00D0 / DATA CHEMISTRY_SPC( 4 ), SPECIES_MOLWT( 4 ) / 'O3 ', 48.00D0 / DATA CHEMISTRY_SPC( 5 ), SPECIES_MOLWT( 5 ) / 'NO3 ', 62.00D0 / DATA CHEMISTRY_SPC( 6 ), SPECIES_MOLWT( 6 ) / 'O1D ', 16.00D0 / DATA CHEMISTRY_SPC( 7 ), SPECIES_MOLWT( 7 ) / 'OH ', 17.00D0 / DATA CHEMISTRY_SPC( 8 ), SPECIES_MOLWT( 8 ) / 'HO2 ', 33.00D0 / DATA CHEMISTRY_SPC( 9 ), SPECIES_MOLWT( 9 ) / 'H2O2 ', 34.00D0 / DATA CHEMISTRY_SPC( 10 ), SPECIES_MOLWT( 10 ) / 'N2O5 ', 108.00D0 / DATA CHEMISTRY_SPC( 11 ), SPECIES_MOLWT( 11 ) / 'HNO3 ', 63.00D0 / DATA CHEMISTRY_SPC( 12 ), SPECIES_MOLWT( 12 ) / 'HONO ', 47.00D0 / DATA CHEMISTRY_SPC( 13 ), SPECIES_MOLWT( 13 ) / 'PNA ', 79.00D0 / DATA CHEMISTRY_SPC( 14 ), SPECIES_MOLWT( 14 ) / 'SO2 ', 64.00D0 / DATA CHEMISTRY_SPC( 15 ), SPECIES_MOLWT( 15 ) / 'SULF ', 98.00D0 / DATA CHEMISTRY_SPC( 16 ), SPECIES_MOLWT( 16 ) / 'SULRXN ', 98.00D0 / DATA CHEMISTRY_SPC( 17 ), SPECIES_MOLWT( 17 ) / 'C2O3 ', 75.00D0 / DATA CHEMISTRY_SPC( 18 ), SPECIES_MOLWT( 18 ) / 'MEO2 ', 47.00D0 / DATA CHEMISTRY_SPC( 19 ), SPECIES_MOLWT( 19 ) / 'RO2 ', 87.10D0 / DATA CHEMISTRY_SPC( 20 ), SPECIES_MOLWT( 20 ) / 'PAN ', 121.00D0 / DATA CHEMISTRY_SPC( 21 ), SPECIES_MOLWT( 21 ) / 'PACD ', 76.00D0 / DATA CHEMISTRY_SPC( 22 ), SPECIES_MOLWT( 22 ) / 'AACD ', 60.00D0 / DATA CHEMISTRY_SPC( 23 ), SPECIES_MOLWT( 23 ) / 'CXO3 ', 89.00D0 / DATA CHEMISTRY_SPC( 24 ), SPECIES_MOLWT( 24 ) / 'ALD2 ', 44.00D0 / DATA CHEMISTRY_SPC( 25 ), SPECIES_MOLWT( 25 ) / 'XO2H ', 87.10D0 / DATA CHEMISTRY_SPC( 26 ), SPECIES_MOLWT( 26 ) / 'PANX ', 135.00D0 / DATA CHEMISTRY_SPC( 27 ), SPECIES_MOLWT( 27 ) / 'FORM ', 30.00D0 / DATA CHEMISTRY_SPC( 28 ), SPECIES_MOLWT( 28 ) / 'MEPX ', 48.00D0 / DATA CHEMISTRY_SPC( 29 ), SPECIES_MOLWT( 29 ) / 'MEOH ', 32.00D0 / DATA CHEMISTRY_SPC( 30 ), SPECIES_MOLWT( 30 ) / 'ROOH ', 90.10D0 / DATA CHEMISTRY_SPC( 31 ), SPECIES_MOLWT( 31 ) / 'XO2 ', 87.10D0 / DATA CHEMISTRY_SPC( 32 ), SPECIES_MOLWT( 32 ) / 'XO2N ', 87.10D0 / DATA CHEMISTRY_SPC( 33 ), SPECIES_MOLWT( 33 ) / 'NTR1 ', 119.10D0 / DATA CHEMISTRY_SPC( 34 ), SPECIES_MOLWT( 34 ) / 'NTR2 ', 135.10D0 / DATA CHEMISTRY_SPC( 35 ), SPECIES_MOLWT( 35 ) / 'FACD ', 46.00D0 / DATA CHEMISTRY_SPC( 36 ), SPECIES_MOLWT( 36 ) / 'CO ', 28.00D0 / DATA CHEMISTRY_SPC( 37 ), SPECIES_MOLWT( 37 ) / 'HCO3 ', 63.00D0 / DATA CHEMISTRY_SPC( 38 ), SPECIES_MOLWT( 38 ) / 'ALDX ', 58.10D0 / DATA CHEMISTRY_SPC( 39 ), SPECIES_MOLWT( 39 ) / 'GLYD ', 60.00D0 / DATA CHEMISTRY_SPC( 40 ), SPECIES_MOLWT( 40 ) / 'GLY ', 58.00D0 / DATA CHEMISTRY_SPC( 41 ), SPECIES_MOLWT( 41 ) / 'MGLY ', 72.00D0 / DATA CHEMISTRY_SPC( 42 ), SPECIES_MOLWT( 42 ) / 'ETHA ', 30.10D0 / DATA CHEMISTRY_SPC( 43 ), SPECIES_MOLWT( 43 ) / 'ETOH ', 46.10D0 / DATA CHEMISTRY_SPC( 44 ), SPECIES_MOLWT( 44 ) / 'KET ', 72.10D0 / DATA CHEMISTRY_SPC( 45 ), SPECIES_MOLWT( 45 ) / 'PAR ', 14.00D0 / DATA CHEMISTRY_SPC( 46 ), SPECIES_MOLWT( 46 ) / 'ACET ', 58.10D0 / DATA CHEMISTRY_SPC( 47 ), SPECIES_MOLWT( 47 ) / 'PRPA ', 44.10D0 / DATA CHEMISTRY_SPC( 48 ), SPECIES_MOLWT( 48 ) / 'XPRP ', 89.10D0 / DATA CHEMISTRY_SPC( 49 ), SPECIES_MOLWT( 49 ) / 'XPAR ', 45.00D0 / DATA CHEMISTRY_SPC( 50 ), SPECIES_MOLWT( 50 ) / 'ROR ', 29.00D0 / DATA CHEMISTRY_SPC( 51 ), SPECIES_MOLWT( 51 ) / 'ETHY ', 26.00D0 / DATA CHEMISTRY_SPC( 52 ), SPECIES_MOLWT( 52 ) / 'ETH ', 28.00D0 / DATA CHEMISTRY_SPC( 53 ), SPECIES_MOLWT( 53 ) / 'OLE ', 42.10D0 / DATA CHEMISTRY_SPC( 54 ), SPECIES_MOLWT( 54 ) / 'IOLE ', 56.10D0 / DATA CHEMISTRY_SPC( 55 ), SPECIES_MOLWT( 55 ) / 'ISOP ', 68.10D0 / DATA CHEMISTRY_SPC( 56 ), SPECIES_MOLWT( 56 ) / 'ISO2 ', 117.10D0 / DATA CHEMISTRY_SPC( 57 ), SPECIES_MOLWT( 57 ) / 'ISOPRXN ', 68.10D0 / DATA CHEMISTRY_SPC( 58 ), SPECIES_MOLWT( 58 ) / 'ISPD ', 70.10D0 / DATA CHEMISTRY_SPC( 59 ), SPECIES_MOLWT( 59 ) / 'INTR ', 147.10D0 / DATA CHEMISTRY_SPC( 60 ), SPECIES_MOLWT( 60 ) / 'ISPX ', 118.10D0 / DATA CHEMISTRY_SPC( 61 ), SPECIES_MOLWT( 61 ) / 'HPLD ', 116.10D0 / DATA CHEMISTRY_SPC( 62 ), SPECIES_MOLWT( 62 ) / 'OPO3 ', 115.00D0 / DATA CHEMISTRY_SPC( 63 ), SPECIES_MOLWT( 63 ) / 'EPOX ', 118.10D0 / DATA CHEMISTRY_SPC( 64 ), SPECIES_MOLWT( 64 ) / 'EPX2 ', 149.10D0 / DATA CHEMISTRY_SPC( 65 ), SPECIES_MOLWT( 65 ) / 'TERP ', 136.20D0 / DATA CHEMISTRY_SPC( 66 ), SPECIES_MOLWT( 66 ) / 'TRPRXN ', 136.20D0 / DATA CHEMISTRY_SPC( 67 ), SPECIES_MOLWT( 67 ) / 'TERPNRO2 ', 197.00D0 / DATA CHEMISTRY_SPC( 68 ), SPECIES_MOLWT( 68 ) / 'APIN ', 136.20D0 / DATA CHEMISTRY_SPC( 69 ), SPECIES_MOLWT( 69 ) / 'BENZENE ', 78.10D0 / DATA CHEMISTRY_SPC( 70 ), SPECIES_MOLWT( 70 ) / 'CRES ', 108.10D0 / DATA CHEMISTRY_SPC( 71 ), SPECIES_MOLWT( 71 ) / 'BZO2 ', 159.10D0 / DATA CHEMISTRY_SPC( 72 ), SPECIES_MOLWT( 72 ) / 'OPEN ', 84.00D0 / DATA CHEMISTRY_SPC( 73 ), SPECIES_MOLWT( 73 ) / 'BENZRO2 ', 127.00D0 / DATA CHEMISTRY_SPC( 74 ), SPECIES_MOLWT( 74 ) / 'TOL ', 92.10D0 / DATA CHEMISTRY_SPC( 75 ), SPECIES_MOLWT( 75 ) / 'TO2 ', 173.10D0 / DATA CHEMISTRY_SPC( 76 ), SPECIES_MOLWT( 76 ) / 'TOLRO2 ', 141.00D0 / DATA CHEMISTRY_SPC( 77 ), SPECIES_MOLWT( 77 ) / 'XOPN ', 98.10D0 / DATA CHEMISTRY_SPC( 78 ), SPECIES_MOLWT( 78 ) / 'XYLMN ', 106.20D0 / DATA CHEMISTRY_SPC( 79 ), SPECIES_MOLWT( 79 ) / 'XLO2 ', 187.10D0 / DATA CHEMISTRY_SPC( 80 ), SPECIES_MOLWT( 80 ) / 'XYLRO2 ', 155.00D0 / DATA CHEMISTRY_SPC( 81 ), SPECIES_MOLWT( 81 ) / 'NAPH ', 128.20D0 / DATA CHEMISTRY_SPC( 82 ), SPECIES_MOLWT( 82 ) / 'PAHRO2 ', 187.20D0 / DATA CHEMISTRY_SPC( 83 ), SPECIES_MOLWT( 83 ) / 'CRO ', 107.10D0 / DATA CHEMISTRY_SPC( 84 ), SPECIES_MOLWT( 84 ) / 'CAT1 ', 124.10D0 / DATA CHEMISTRY_SPC( 85 ), SPECIES_MOLWT( 85 ) / 'CRON ', 153.10D0 / DATA CHEMISTRY_SPC( 86 ), SPECIES_MOLWT( 86 ) / 'OPAN ', 161.00D0 / DATA CHEMISTRY_SPC( 87 ), SPECIES_MOLWT( 87 ) / 'ECH4 ', 16.00D0 / DATA CHEMISTRY_SPC( 88 ), SPECIES_MOLWT( 88 ) / 'CL2 ', 71.00D0 / DATA CHEMISTRY_SPC( 89 ), SPECIES_MOLWT( 89 ) / 'CL ', 35.50D0 / DATA CHEMISTRY_SPC( 90 ), SPECIES_MOLWT( 90 ) / 'HOCL ', 52.50D0 / DATA CHEMISTRY_SPC( 91 ), SPECIES_MOLWT( 91 ) / 'CLO ', 51.50D0 / DATA CHEMISTRY_SPC( 92 ), SPECIES_MOLWT( 92 ) / 'FMCL ', 64.50D0 / DATA CHEMISTRY_SPC( 93 ), SPECIES_MOLWT( 93 ) / 'HCL ', 36.50D0 / DATA CHEMISTRY_SPC( 94 ), SPECIES_MOLWT( 94 ) / 'CLNO2 ', 81.50D0 / DATA CHEMISTRY_SPC( 95 ), SPECIES_MOLWT( 95 ) / 'CLNO3 ', 97.50D0 / DATA CHEMISTRY_SPC( 96 ), SPECIES_MOLWT( 96 ) / 'SVAVB2 ', 179.00D0 / DATA CHEMISTRY_SPC( 97 ), SPECIES_MOLWT( 97 ) / 'SVAVB3 ', 169.00D0 / DATA CHEMISTRY_SPC( 98 ), SPECIES_MOLWT( 98 ) / 'SVAVB4 ', 158.00D0 / DATA CHEMISTRY_SPC( 99 ), SPECIES_MOLWT( 99 ) / 'SVAVB1 ', 198.00D0 / DATA CHEMISTRY_SPC( 100 ), SPECIES_MOLWT( 100 ) / 'SESQ ', 204.00D0 / DATA CHEMISTRY_SPC( 101 ), SPECIES_MOLWT( 101 ) / 'SESQRXN ', 204.00D0 / DATA CHEMISTRY_SPC( 102 ), SPECIES_MOLWT( 102 ) / 'SOAALK ', 112.00D0 / DATA CHEMISTRY_SPC( 103 ), SPECIES_MOLWT( 103 ) / 'H2NO3PIJ ', 64.00D0 / DATA CHEMISTRY_SPC( 104 ), SPECIES_MOLWT( 104 ) / 'H2NO3PK ', 64.00D0 / DATA CHEMISTRY_SPC( 105 ), SPECIES_MOLWT( 105 ) / 'ACLI ', 35.50D0 / DATA CHEMISTRY_SPC( 106 ), SPECIES_MOLWT( 106 ) / 'ACLJ ', 35.50D0 / DATA CHEMISTRY_SPC( 107 ), SPECIES_MOLWT( 107 ) / 'ACLK ', 35.50D0 / DATA CHEMISTRY_SPC( 108 ), SPECIES_MOLWT( 108 ) / 'IEPOXP ', 118.10D0 / DATA CHEMISTRY_SPC( 109 ), SPECIES_MOLWT( 109 ) / 'ASO4J ', 96.00D0 / DATA CHEMISTRY_SPC( 110 ), SPECIES_MOLWT( 110 ) / 'AISO3J ', 168.20D0 / DATA CHEMISTRY_SPC( 111 ), SPECIES_MOLWT( 111 ) / 'AGLYJ ', 66.40D0 / DATA CHEMISTRY_SPC( 112 ), SPECIES_MOLWT( 112 ) / 'MTNO3 ', 231.00D0 / DATA CHEMISTRY_SPC( 113 ), SPECIES_MOLWT( 113 ) / 'AMTNO3J ', 231.00D0 / DATA CHEMISTRY_SPC( 114 ), SPECIES_MOLWT( 114 ) / 'AMTHYDJ ', 168.00D0 / DATA CHEMISTRY_SPC( 115 ), SPECIES_MOLWT( 115 ) / 'AAVB2J ', 179.00D0 / DATA CHEMISTRY_SPC( 116 ), SPECIES_MOLWT( 116 ) / 'AOLGAJ ', 206.00D0 / DATA CHEMISTRY_SPC( 117 ), SPECIES_MOLWT( 117 ) / 'AAVB3J ', 169.00D0 / DATA CHEMISTRY_SPC( 118 ), SPECIES_MOLWT( 118 ) / 'AAVB4J ', 158.00D0 / DATA CHEMISTRY_SPC( 119 ), SPECIES_MOLWT( 119 ) / 'AISO1J ', 132.00D0 / DATA CHEMISTRY_SPC( 120 ), SPECIES_MOLWT( 120 ) / 'AOLGBJ ', 248.00D0 / DATA CHEMISTRY_SPC( 121 ), SPECIES_MOLWT( 121 ) / 'AISO2J ', 133.00D0 / DATA CHEMISTRY_SPC( 122 ), SPECIES_MOLWT( 122 ) / 'ASQTJ ', 273.00D0 / DATA CHEMISTRY_SPC( 123 ), SPECIES_MOLWT( 123 ) / 'APOCI ', 220.00D0 / DATA CHEMISTRY_SPC( 124 ), SPECIES_MOLWT( 124 ) / 'APNCOMI ', 220.00D0 / DATA CHEMISTRY_SPC( 125 ), SPECIES_MOLWT( 125 ) / 'APOCJ ', 220.00D0 / DATA CHEMISTRY_SPC( 126 ), SPECIES_MOLWT( 126 ) / 'APNCOMJ ', 220.00D0 / DATA CHEMISTRY_SPC( 127 ), SPECIES_MOLWT( 127 ) / 'PCVOC ', 170.00D0 / DATA CHEMISTRY_SPC( 128 ), SPECIES_MOLWT( 128 ) / 'PCSOARXN ', 170.00D0 / DATA CHEMISTRY_SPC( 129 ), SPECIES_MOLWT( 129 ) / 'VLVPO1 ', 218.00D0 / DATA CHEMISTRY_SPC( 130 ), SPECIES_MOLWT( 130 ) / 'VSVPO1 ', 230.00D0 / DATA CHEMISTRY_SPC( 131 ), SPECIES_MOLWT( 131 ) / 'VSVPO2 ', 241.00D0 / DATA CHEMISTRY_SPC( 132 ), SPECIES_MOLWT( 132 ) / 'VSVPO3 ', 253.00D0 / DATA CHEMISTRY_SPC( 133 ), SPECIES_MOLWT( 133 ) / 'VIVPO1 ', 266.00D0 / DATA CHEMISTRY_SPC( 134 ), SPECIES_MOLWT( 134 ) / 'VLVOO1 ', 136.00D0 / DATA CHEMISTRY_SPC( 135 ), SPECIES_MOLWT( 135 ) / 'VLVOO2 ', 136.00D0 / DATA CHEMISTRY_SPC( 136 ), SPECIES_MOLWT( 136 ) / 'VSVOO2 ', 135.00D0 / DATA CHEMISTRY_SPC( 137 ), SPECIES_MOLWT( 137 ) / 'VSVOO3 ', 134.00D0 / DATA CHEMISTRY_SPC( 138 ), SPECIES_MOLWT( 138 ) / 'VSVOO1 ', 135.00D0 / DATA CHEMISTRY_SPC( 139 ), SPECIES_MOLWT( 139 ) / 'FORM_PRIMARY ', 30.00D0 / DATA CHEMISTRY_SPC( 140 ), SPECIES_MOLWT( 140 ) / 'ALD2_PRIMARY ', 44.00D0 / DATA CHEMISTRY_SPC( 141 ), SPECIES_MOLWT( 141 ) / 'BUTADIENE13 ', 54.00D0 / DATA CHEMISTRY_SPC( 142 ), SPECIES_MOLWT( 142 ) / 'ACROLEIN ', 56.10D0 / DATA CHEMISTRY_SPC( 143 ), SPECIES_MOLWT( 143 ) / 'ACRO_PRIMARY ', 56.10D0 / DATA CHEMISTRY_SPC( 144 ), SPECIES_MOLWT( 144 ) / 'TOLU ', 92.00D0 / DATA CHEMISTRY_SPC( 145 ), SPECIES_MOLWT( 145 ) / 'HG ', 200.60D0 / DATA CHEMISTRY_SPC( 146 ), SPECIES_MOLWT( 146 ) / 'HGIIAER ', 200.60D0 / DATA CHEMISTRY_SPC( 147 ), SPECIES_MOLWT( 147 ) / 'HGIIGAS ', 271.50D0 / DATA CHEMISTRY_SPC( 148 ), SPECIES_MOLWT( 148 ) / 'BR ', 79.90D0 / DATA CHEMISTRY_SPC( 149 ), SPECIES_MOLWT( 149 ) / 'BRO ', 95.90D0 / DATA CHEMISTRY_SPC( 150 ), SPECIES_MOLWT( 150 ) / 'HOBR ', 96.90D0 / DATA CHEMISTRY_SPC( 151 ), SPECIES_MOLWT( 151 ) / 'HBR ', 80.90D0 / DATA CHEMISTRY_SPC( 152 ), SPECIES_MOLWT( 152 ) / 'BR2 ', 159.80D0 / DATA CHEMISTRY_SPC( 153 ), SPECIES_MOLWT( 153 ) / 'BRNO3 ', 141.90D0 / DATA CHEMISTRY_SPC( 154 ), SPECIES_MOLWT( 154 ) / 'BRNO2 ', 125.90D0 / DATA CHEMISTRY_SPC( 155 ), SPECIES_MOLWT( 155 ) / 'FMBR ', 108.90D0 / DATA CHEMISTRY_SPC( 156 ), SPECIES_MOLWT( 156 ) / 'MB3 ', 252.70D0 / DATA CHEMISTRY_SPC( 157 ), SPECIES_MOLWT( 157 ) / 'MB2 ', 173.80D0 / DATA CHEMISTRY_SPC( 158 ), SPECIES_MOLWT( 158 ) / 'MB2C ', 208.30D0 / DATA CHEMISTRY_SPC( 159 ), SPECIES_MOLWT( 159 ) / 'MBC2 ', 243.80D0 / DATA CHEMISTRY_SPC( 160 ), SPECIES_MOLWT( 160 ) / 'MBC ', 129.40D0 / DATA CHEMISTRY_SPC( 161 ), SPECIES_MOLWT( 161 ) / 'DMS ', 62.00D0 / DATA CHEMISTRY_SPC( 162 ), SPECIES_MOLWT( 162 ) / 'MSA ', 96.00D0 / DATA CHEMISTRY_SPC( 163 ), SPECIES_MOLWT( 163 ) / 'BRCL ', 115.40D0 / DATA CHEMISTRY_SPC( 164 ), SPECIES_MOLWT( 164 ) / 'ABRJ ', 79.90D0 / DATA CHEMISTRY_SPC( 165 ), SPECIES_MOLWT( 165 ) / 'I ', 126.90D0 / DATA CHEMISTRY_SPC( 166 ), SPECIES_MOLWT( 166 ) / 'IO ', 142.90D0 / DATA CHEMISTRY_SPC( 167 ), SPECIES_MOLWT( 167 ) / 'HI ', 127.90D0 / DATA CHEMISTRY_SPC( 168 ), SPECIES_MOLWT( 168 ) / 'I2 ', 253.80D0 / DATA CHEMISTRY_SPC( 169 ), SPECIES_MOLWT( 169 ) / 'HOI ', 143.90D0 / DATA CHEMISTRY_SPC( 170 ), SPECIES_MOLWT( 170 ) / 'INO ', 156.90D0 / DATA CHEMISTRY_SPC( 171 ), SPECIES_MOLWT( 171 ) / 'INO2 ', 172.90D0 / DATA CHEMISTRY_SPC( 172 ), SPECIES_MOLWT( 172 ) / 'INO3 ', 188.90D0 / DATA CHEMISTRY_SPC( 173 ), SPECIES_MOLWT( 173 ) / 'OIO ', 158.90D0 / DATA CHEMISTRY_SPC( 174 ), SPECIES_MOLWT( 174 ) / 'I2O4 ', 317.80D0 / DATA CHEMISTRY_SPC( 175 ), SPECIES_MOLWT( 175 ) / 'I2O2 ', 285.80D0 / DATA CHEMISTRY_SPC( 176 ), SPECIES_MOLWT( 176 ) / 'I2O3 ', 301.80D0 / DATA CHEMISTRY_SPC( 177 ), SPECIES_MOLWT( 177 ) / 'CH3I ', 141.90D0 / DATA CHEMISTRY_SPC( 178 ), SPECIES_MOLWT( 178 ) / 'ICL ', 162.40D0 / DATA CHEMISTRY_SPC( 179 ), SPECIES_MOLWT( 179 ) / 'IBR ', 206.80D0 / DATA CHEMISTRY_SPC( 180 ), SPECIES_MOLWT( 180 ) / 'MI2 ', 267.80D0 / DATA CHEMISTRY_SPC( 181 ), SPECIES_MOLWT( 181 ) / 'MIB ', 219.90D0 / DATA CHEMISTRY_SPC( 182 ), SPECIES_MOLWT( 182 ) / 'MIC ', 176.40D0 / DATA CGRID_INDEX( 1 ), SPECIES_TYPE( 1 ), CONVERT_CONC( 1 ) / 1, 'GC', F / ! NO2 DATA CGRID_INDEX( 2 ), SPECIES_TYPE( 2 ), CONVERT_CONC( 2 ) / 2, 'GC', F / ! NO DATA CGRID_INDEX( 3 ), SPECIES_TYPE( 3 ), CONVERT_CONC( 3 ) / 3, 'GC', F / ! O DATA CGRID_INDEX( 4 ), SPECIES_TYPE( 4 ), CONVERT_CONC( 4 ) / 4, 'GC', F / ! O3 DATA CGRID_INDEX( 5 ), SPECIES_TYPE( 5 ), CONVERT_CONC( 5 ) / 5, 'GC', F / ! NO3 DATA CGRID_INDEX( 6 ), SPECIES_TYPE( 6 ), CONVERT_CONC( 6 ) / 6, 'GC', F / ! O1D DATA CGRID_INDEX( 7 ), SPECIES_TYPE( 7 ), CONVERT_CONC( 7 ) / 7, 'GC', F / ! OH DATA CGRID_INDEX( 8 ), SPECIES_TYPE( 8 ), CONVERT_CONC( 8 ) / 8, 'GC', F / ! HO2 DATA CGRID_INDEX( 9 ), SPECIES_TYPE( 9 ), CONVERT_CONC( 9 ) / 9, 'GC', F / ! H2O2 DATA CGRID_INDEX( 10 ), SPECIES_TYPE( 10 ), CONVERT_CONC( 10 ) / 10, 'GC', F / ! N2O5 DATA CGRID_INDEX( 11 ), SPECIES_TYPE( 11 ), CONVERT_CONC( 11 ) / 11, 'GC', F / ! HNO3 DATA CGRID_INDEX( 12 ), SPECIES_TYPE( 12 ), CONVERT_CONC( 12 ) / 12, 'GC', F / ! HONO DATA CGRID_INDEX( 13 ), SPECIES_TYPE( 13 ), CONVERT_CONC( 13 ) / 13, 'GC', F / ! PNA DATA CGRID_INDEX( 14 ), SPECIES_TYPE( 14 ), CONVERT_CONC( 14 ) / 14, 'GC', F / ! SO2 DATA CGRID_INDEX( 15 ), SPECIES_TYPE( 15 ), CONVERT_CONC( 15 ) / 15, 'GC', F / ! SULF DATA CGRID_INDEX( 16 ), SPECIES_TYPE( 16 ), CONVERT_CONC( 16 ) / 16, 'GC', F / ! SULRXN DATA CGRID_INDEX( 17 ), SPECIES_TYPE( 17 ), CONVERT_CONC( 17 ) / 17, 'GC', F / ! C2O3 DATA CGRID_INDEX( 18 ), SPECIES_TYPE( 18 ), CONVERT_CONC( 18 ) / 18, 'GC', F / ! MEO2 DATA CGRID_INDEX( 19 ), SPECIES_TYPE( 19 ), CONVERT_CONC( 19 ) / 19, 'GC', F / ! RO2 DATA CGRID_INDEX( 20 ), SPECIES_TYPE( 20 ), CONVERT_CONC( 20 ) / 20, 'GC', F / ! PAN DATA CGRID_INDEX( 21 ), SPECIES_TYPE( 21 ), CONVERT_CONC( 21 ) / 21, 'GC', F / ! PACD DATA CGRID_INDEX( 22 ), SPECIES_TYPE( 22 ), CONVERT_CONC( 22 ) / 22, 'GC', F / ! AACD DATA CGRID_INDEX( 23 ), SPECIES_TYPE( 23 ), CONVERT_CONC( 23 ) / 23, 'GC', F / ! CXO3 DATA CGRID_INDEX( 24 ), SPECIES_TYPE( 24 ), CONVERT_CONC( 24 ) / 24, 'GC', F / ! ALD2 DATA CGRID_INDEX( 25 ), SPECIES_TYPE( 25 ), CONVERT_CONC( 25 ) / 25, 'GC', F / ! XO2H DATA CGRID_INDEX( 26 ), SPECIES_TYPE( 26 ), CONVERT_CONC( 26 ) / 26, 'GC', F / ! PANX DATA CGRID_INDEX( 27 ), SPECIES_TYPE( 27 ), CONVERT_CONC( 27 ) / 27, 'GC', F / ! FORM DATA CGRID_INDEX( 28 ), SPECIES_TYPE( 28 ), CONVERT_CONC( 28 ) / 28, 'GC', F / ! MEPX DATA CGRID_INDEX( 29 ), SPECIES_TYPE( 29 ), CONVERT_CONC( 29 ) / 29, 'GC', F / ! MEOH DATA CGRID_INDEX( 30 ), SPECIES_TYPE( 30 ), CONVERT_CONC( 30 ) / 30, 'GC', F / ! ROOH DATA CGRID_INDEX( 31 ), SPECIES_TYPE( 31 ), CONVERT_CONC( 31 ) / 31, 'GC', F / ! XO2 DATA CGRID_INDEX( 32 ), SPECIES_TYPE( 32 ), CONVERT_CONC( 32 ) / 32, 'GC', F / ! XO2N DATA CGRID_INDEX( 33 ), SPECIES_TYPE( 33 ), CONVERT_CONC( 33 ) / 35, 'GC', F / ! NTR1 DATA CGRID_INDEX( 34 ), SPECIES_TYPE( 34 ), CONVERT_CONC( 34 ) / 36, 'GC', F / ! NTR2 DATA CGRID_INDEX( 35 ), SPECIES_TYPE( 35 ), CONVERT_CONC( 35 ) / 37, 'GC', F / ! FACD DATA CGRID_INDEX( 36 ), SPECIES_TYPE( 36 ), CONVERT_CONC( 36 ) / 38, 'GC', F / ! CO DATA CGRID_INDEX( 37 ), SPECIES_TYPE( 37 ), CONVERT_CONC( 37 ) / 39, 'GC', F / ! HCO3 DATA CGRID_INDEX( 38 ), SPECIES_TYPE( 38 ), CONVERT_CONC( 38 ) / 40, 'GC', F / ! ALDX DATA CGRID_INDEX( 39 ), SPECIES_TYPE( 39 ), CONVERT_CONC( 39 ) / 41, 'GC', F / ! GLYD DATA CGRID_INDEX( 40 ), SPECIES_TYPE( 40 ), CONVERT_CONC( 40 ) / 42, 'GC', F / ! GLY DATA CGRID_INDEX( 41 ), SPECIES_TYPE( 41 ), CONVERT_CONC( 41 ) / 43, 'GC', F / ! MGLY DATA CGRID_INDEX( 42 ), SPECIES_TYPE( 42 ), CONVERT_CONC( 42 ) / 44, 'GC', F / ! ETHA DATA CGRID_INDEX( 43 ), SPECIES_TYPE( 43 ), CONVERT_CONC( 43 ) / 45, 'GC', F / ! ETOH DATA CGRID_INDEX( 44 ), SPECIES_TYPE( 44 ), CONVERT_CONC( 44 ) / 46, 'GC', F / ! KET DATA CGRID_INDEX( 45 ), SPECIES_TYPE( 45 ), CONVERT_CONC( 45 ) / 47, 'GC', F / ! PAR DATA CGRID_INDEX( 46 ), SPECIES_TYPE( 46 ), CONVERT_CONC( 46 ) / 48, 'GC', F / ! ACET DATA CGRID_INDEX( 47 ), SPECIES_TYPE( 47 ), CONVERT_CONC( 47 ) / 49, 'GC', F / ! PRPA DATA CGRID_INDEX( 48 ), SPECIES_TYPE( 48 ), CONVERT_CONC( 48 ) / 34, 'GC', F / ! XPRP DATA CGRID_INDEX( 49 ), SPECIES_TYPE( 49 ), CONVERT_CONC( 49 ) / 33, 'GC', F / ! XPAR DATA CGRID_INDEX( 50 ), SPECIES_TYPE( 50 ), CONVERT_CONC( 50 ) / 50, 'GC', F / ! ROR DATA CGRID_INDEX( 51 ), SPECIES_TYPE( 51 ), CONVERT_CONC( 51 ) / 51, 'GC', F / ! ETHY DATA CGRID_INDEX( 52 ), SPECIES_TYPE( 52 ), CONVERT_CONC( 52 ) / 52, 'GC', F / ! ETH DATA CGRID_INDEX( 53 ), SPECIES_TYPE( 53 ), CONVERT_CONC( 53 ) / 53, 'GC', F / ! OLE DATA CGRID_INDEX( 54 ), SPECIES_TYPE( 54 ), CONVERT_CONC( 54 ) / 54, 'GC', F / ! IOLE DATA CGRID_INDEX( 55 ), SPECIES_TYPE( 55 ), CONVERT_CONC( 55 ) / 55, 'GC', F / ! ISOP DATA CGRID_INDEX( 56 ), SPECIES_TYPE( 56 ), CONVERT_CONC( 56 ) / 56, 'GC', F / ! ISO2 DATA CGRID_INDEX( 57 ), SPECIES_TYPE( 57 ), CONVERT_CONC( 57 ) / 57, 'GC', F / ! ISOPRXN DATA CGRID_INDEX( 58 ), SPECIES_TYPE( 58 ), CONVERT_CONC( 58 ) / 58, 'GC', F / ! ISPD DATA CGRID_INDEX( 59 ), SPECIES_TYPE( 59 ), CONVERT_CONC( 59 ) / 59, 'GC', F / ! INTR DATA CGRID_INDEX( 60 ), SPECIES_TYPE( 60 ), CONVERT_CONC( 60 ) / 60, 'GC', F / ! ISPX DATA CGRID_INDEX( 61 ), SPECIES_TYPE( 61 ), CONVERT_CONC( 61 ) / 61, 'GC', F / ! HPLD DATA CGRID_INDEX( 62 ), SPECIES_TYPE( 62 ), CONVERT_CONC( 62 ) / 62, 'GC', F / ! OPO3 DATA CGRID_INDEX( 63 ), SPECIES_TYPE( 63 ), CONVERT_CONC( 63 ) / 63, 'GC', F / ! EPOX DATA CGRID_INDEX( 64 ), SPECIES_TYPE( 64 ), CONVERT_CONC( 64 ) / 65, 'GC', F / ! EPX2 DATA CGRID_INDEX( 65 ), SPECIES_TYPE( 65 ), CONVERT_CONC( 65 ) / 66, 'GC', F / ! TERP DATA CGRID_INDEX( 66 ), SPECIES_TYPE( 66 ), CONVERT_CONC( 66 ) / 70, 'GC', F / ! TRPRXN DATA CGRID_INDEX( 67 ), SPECIES_TYPE( 67 ), CONVERT_CONC( 67 ) / 68, 'GC', F / ! TERPNRO2 DATA CGRID_INDEX( 68 ), SPECIES_TYPE( 68 ), CONVERT_CONC( 68 ) / 67, 'GC', F / ! APIN DATA CGRID_INDEX( 69 ), SPECIES_TYPE( 69 ), CONVERT_CONC( 69 ) / 71, 'GC', F / ! BENZENE DATA CGRID_INDEX( 70 ), SPECIES_TYPE( 70 ), CONVERT_CONC( 70 ) / 72, 'GC', F / ! CRES DATA CGRID_INDEX( 71 ), SPECIES_TYPE( 71 ), CONVERT_CONC( 71 ) / 73, 'GC', F / ! BZO2 DATA CGRID_INDEX( 72 ), SPECIES_TYPE( 72 ), CONVERT_CONC( 72 ) / 74, 'GC', F / ! OPEN DATA CGRID_INDEX( 73 ), SPECIES_TYPE( 73 ), CONVERT_CONC( 73 ) / 75, 'GC', F / ! BENZRO2 DATA CGRID_INDEX( 74 ), SPECIES_TYPE( 74 ), CONVERT_CONC( 74 ) / 76, 'GC', F / ! TOL DATA CGRID_INDEX( 75 ), SPECIES_TYPE( 75 ), CONVERT_CONC( 75 ) / 77, 'GC', F / ! TO2 DATA CGRID_INDEX( 76 ), SPECIES_TYPE( 76 ), CONVERT_CONC( 76 ) / 78, 'GC', F / ! TOLRO2 DATA CGRID_INDEX( 77 ), SPECIES_TYPE( 77 ), CONVERT_CONC( 77 ) / 79, 'GC', F / ! XOPN DATA CGRID_INDEX( 78 ), SPECIES_TYPE( 78 ), CONVERT_CONC( 78 ) / 80, 'GC', F / ! XYLMN DATA CGRID_INDEX( 79 ), SPECIES_TYPE( 79 ), CONVERT_CONC( 79 ) / 81, 'GC', F / ! XLO2 DATA CGRID_INDEX( 80 ), SPECIES_TYPE( 80 ), CONVERT_CONC( 80 ) / 82, 'GC', F / ! XYLRO2 DATA CGRID_INDEX( 81 ), SPECIES_TYPE( 81 ), CONVERT_CONC( 81 ) / 83, 'GC', F / ! NAPH DATA CGRID_INDEX( 82 ), SPECIES_TYPE( 82 ), CONVERT_CONC( 82 ) / 84, 'GC', F / ! PAHRO2 DATA CGRID_INDEX( 83 ), SPECIES_TYPE( 83 ), CONVERT_CONC( 83 ) / 85, 'GC', F / ! CRO DATA CGRID_INDEX( 84 ), SPECIES_TYPE( 84 ), CONVERT_CONC( 84 ) / 86, 'GC', F / ! CAT1 DATA CGRID_INDEX( 85 ), SPECIES_TYPE( 85 ), CONVERT_CONC( 85 ) / 87, 'GC', F / ! CRON DATA CGRID_INDEX( 86 ), SPECIES_TYPE( 86 ), CONVERT_CONC( 86 ) / 88, 'GC', F / ! OPAN DATA CGRID_INDEX( 87 ), SPECIES_TYPE( 87 ), CONVERT_CONC( 87 ) / 89, 'GC', F / ! ECH4 DATA CGRID_INDEX( 88 ), SPECIES_TYPE( 88 ), CONVERT_CONC( 88 ) / 90, 'GC', F / ! CL2 DATA CGRID_INDEX( 89 ), SPECIES_TYPE( 89 ), CONVERT_CONC( 89 ) / 91, 'GC', F / ! CL DATA CGRID_INDEX( 90 ), SPECIES_TYPE( 90 ), CONVERT_CONC( 90 ) / 92, 'GC', F / ! HOCL DATA CGRID_INDEX( 91 ), SPECIES_TYPE( 91 ), CONVERT_CONC( 91 ) / 93, 'GC', F / ! CLO DATA CGRID_INDEX( 92 ), SPECIES_TYPE( 92 ), CONVERT_CONC( 92 ) / 94, 'GC', F / ! FMCL DATA CGRID_INDEX( 93 ), SPECIES_TYPE( 93 ), CONVERT_CONC( 93 ) / 95, 'GC', F / ! HCL DATA CGRID_INDEX( 94 ), SPECIES_TYPE( 94 ), CONVERT_CONC( 94 ) / 96, 'GC', F / ! CLNO2 DATA CGRID_INDEX( 95 ), SPECIES_TYPE( 95 ), CONVERT_CONC( 95 ) / 97, 'GC', F / ! CLNO3 DATA CGRID_INDEX( 96 ), SPECIES_TYPE( 96 ), CONVERT_CONC( 96 ) / 125, 'GC', F / ! SVAVB2 DATA CGRID_INDEX( 97 ), SPECIES_TYPE( 97 ), CONVERT_CONC( 97 ) / 126, 'GC', F / ! SVAVB3 DATA CGRID_INDEX( 98 ), SPECIES_TYPE( 98 ), CONVERT_CONC( 98 ) / 127, 'GC', F / ! SVAVB4 DATA CGRID_INDEX( 99 ), SPECIES_TYPE( 99 ), CONVERT_CONC( 99 ) / 124, 'GC', F / ! SVAVB1 DATA CGRID_INDEX( 100 ), SPECIES_TYPE( 100 ), CONVERT_CONC( 100 ) / 98, 'GC', F / ! SESQ DATA CGRID_INDEX( 101 ), SPECIES_TYPE( 101 ), CONVERT_CONC( 101 ) / 99, 'GC', F / ! SESQRXN DATA CGRID_INDEX( 102 ), SPECIES_TYPE( 102 ), CONVERT_CONC( 102 ) / 100, 'GC', F / ! SOAALK DATA CGRID_INDEX( 103 ), SPECIES_TYPE( 103 ), CONVERT_CONC( 103 ) / 101, 'GC', F / ! H2NO3PIJ DATA CGRID_INDEX( 104 ), SPECIES_TYPE( 104 ), CONVERT_CONC( 104 ) / 102, 'GC', F / ! H2NO3PK DATA CGRID_INDEX( 105 ), SPECIES_TYPE( 105 ), CONVERT_CONC( 105 ) / 174, 'AE', T / ! ACLI DATA CGRID_INDEX( 106 ), SPECIES_TYPE( 106 ), CONVERT_CONC( 106 ) / 175, 'AE', T / ! ACLJ DATA CGRID_INDEX( 107 ), SPECIES_TYPE( 107 ), CONVERT_CONC( 107 ) / 176, 'AE', T / ! ACLK DATA CGRID_INDEX( 108 ), SPECIES_TYPE( 108 ), CONVERT_CONC( 108 ) / 64, 'GC', F / ! IEPOXP DATA CGRID_INDEX( 109 ), SPECIES_TYPE( 109 ), CONVERT_CONC( 109 ) / 164, 'AE', T / ! ASO4J DATA CGRID_INDEX( 110 ), SPECIES_TYPE( 110 ), CONVERT_CONC( 110 ) / 209, 'AE', T / ! AISO3J DATA CGRID_INDEX( 111 ), SPECIES_TYPE( 111 ), CONVERT_CONC( 111 ) / 212, 'AE', T / ! AGLYJ DATA CGRID_INDEX( 112 ), SPECIES_TYPE( 112 ), CONVERT_CONC( 112 ) / 69, 'GC', F / ! MTNO3 DATA CGRID_INDEX( 113 ), SPECIES_TYPE( 113 ), CONVERT_CONC( 113 ) / 213, 'AE', T / ! AMTNO3J DATA CGRID_INDEX( 114 ), SPECIES_TYPE( 114 ), CONVERT_CONC( 114 ) / 214, 'AE', T / ! AMTHYDJ DATA CGRID_INDEX( 115 ), SPECIES_TYPE( 115 ), CONVERT_CONC( 115 ) / 238, 'AE', T / ! AAVB2J DATA CGRID_INDEX( 116 ), SPECIES_TYPE( 116 ), CONVERT_CONC( 116 ) / 210, 'AE', T / ! AOLGAJ DATA CGRID_INDEX( 117 ), SPECIES_TYPE( 117 ), CONVERT_CONC( 117 ) / 239, 'AE', T / ! AAVB3J DATA CGRID_INDEX( 118 ), SPECIES_TYPE( 118 ), CONVERT_CONC( 118 ) / 240, 'AE', T / ! AAVB4J DATA CGRID_INDEX( 119 ), SPECIES_TYPE( 119 ), CONVERT_CONC( 119 ) / 177, 'AE', T / ! AISO1J DATA CGRID_INDEX( 120 ), SPECIES_TYPE( 120 ), CONVERT_CONC( 120 ) / 211, 'AE', T / ! AOLGBJ DATA CGRID_INDEX( 121 ), SPECIES_TYPE( 121 ), CONVERT_CONC( 121 ) / 178, 'AE', T / ! AISO2J DATA CGRID_INDEX( 122 ), SPECIES_TYPE( 122 ), CONVERT_CONC( 122 ) / 179, 'AE', T / ! ASQTJ DATA CGRID_INDEX( 123 ), SPECIES_TYPE( 123 ), CONVERT_CONC( 123 ) / 215, 'AE', T / ! APOCI DATA CGRID_INDEX( 124 ), SPECIES_TYPE( 124 ), CONVERT_CONC( 124 ) / 217, 'AE', T / ! APNCOMI DATA CGRID_INDEX( 125 ), SPECIES_TYPE( 125 ), CONVERT_CONC( 125 ) / 216, 'AE', T / ! APOCJ DATA CGRID_INDEX( 126 ), SPECIES_TYPE( 126 ), CONVERT_CONC( 126 ) / 218, 'AE', T / ! APNCOMJ DATA CGRID_INDEX( 127 ), SPECIES_TYPE( 127 ), CONVERT_CONC( 127 ) / 113, 'GC', F / ! PCVOC DATA CGRID_INDEX( 128 ), SPECIES_TYPE( 128 ), CONVERT_CONC( 128 ) / 114, 'GC', F / ! PCSOARXN DATA CGRID_INDEX( 129 ), SPECIES_TYPE( 129 ), CONVERT_CONC( 129 ) / 103, 'GC', F / ! VLVPO1 DATA CGRID_INDEX( 130 ), SPECIES_TYPE( 130 ), CONVERT_CONC( 130 ) / 104, 'GC', F / ! VSVPO1 DATA CGRID_INDEX( 131 ), SPECIES_TYPE( 131 ), CONVERT_CONC( 131 ) / 105, 'GC', F / ! VSVPO2 DATA CGRID_INDEX( 132 ), SPECIES_TYPE( 132 ), CONVERT_CONC( 132 ) / 106, 'GC', F / ! VSVPO3 DATA CGRID_INDEX( 133 ), SPECIES_TYPE( 133 ), CONVERT_CONC( 133 ) / 107, 'GC', F / ! VIVPO1 DATA CGRID_INDEX( 134 ), SPECIES_TYPE( 134 ), CONVERT_CONC( 134 ) / 108, 'GC', F / ! VLVOO1 DATA CGRID_INDEX( 135 ), SPECIES_TYPE( 135 ), CONVERT_CONC( 135 ) / 109, 'GC', F / ! VLVOO2 DATA CGRID_INDEX( 136 ), SPECIES_TYPE( 136 ), CONVERT_CONC( 136 ) / 111, 'GC', F / ! VSVOO2 DATA CGRID_INDEX( 137 ), SPECIES_TYPE( 137 ), CONVERT_CONC( 137 ) / 112, 'GC', F / ! VSVOO3 DATA CGRID_INDEX( 138 ), SPECIES_TYPE( 138 ), CONVERT_CONC( 138 ) / 110, 'GC', F / ! VSVOO1 DATA CGRID_INDEX( 139 ), SPECIES_TYPE( 139 ), CONVERT_CONC( 139 ) / 115, 'GC', F / ! FORM_PRIMARY DATA CGRID_INDEX( 140 ), SPECIES_TYPE( 140 ), CONVERT_CONC( 140 ) / 116, 'GC', F / ! ALD2_PRIMARY DATA CGRID_INDEX( 141 ), SPECIES_TYPE( 141 ), CONVERT_CONC( 141 ) / 117, 'GC', F / ! BUTADIENE13 DATA CGRID_INDEX( 142 ), SPECIES_TYPE( 142 ), CONVERT_CONC( 142 ) / 118, 'GC', F / ! ACROLEIN DATA CGRID_INDEX( 143 ), SPECIES_TYPE( 143 ), CONVERT_CONC( 143 ) / 119, 'GC', F / ! ACRO_PRIMARY DATA CGRID_INDEX( 144 ), SPECIES_TYPE( 144 ), CONVERT_CONC( 144 ) / 120, 'GC', F / ! TOLU DATA CGRID_INDEX( 145 ), SPECIES_TYPE( 145 ), CONVERT_CONC( 145 ) / 121, 'GC', F / ! HG DATA CGRID_INDEX( 146 ), SPECIES_TYPE( 146 ), CONVERT_CONC( 146 ) / 122, 'GC', F / ! HGIIAER DATA CGRID_INDEX( 147 ), SPECIES_TYPE( 147 ), CONVERT_CONC( 147 ) / 123, 'GC', F / ! HGIIGAS DATA CGRID_INDEX( 148 ), SPECIES_TYPE( 148 ), CONVERT_CONC( 148 ) / 128, 'GC', F / ! BR DATA CGRID_INDEX( 149 ), SPECIES_TYPE( 149 ), CONVERT_CONC( 149 ) / 129, 'GC', F / ! BRO DATA CGRID_INDEX( 150 ), SPECIES_TYPE( 150 ), CONVERT_CONC( 150 ) / 130, 'GC', F / ! HOBR DATA CGRID_INDEX( 151 ), SPECIES_TYPE( 151 ), CONVERT_CONC( 151 ) / 131, 'GC', F / ! HBR DATA CGRID_INDEX( 152 ), SPECIES_TYPE( 152 ), CONVERT_CONC( 152 ) / 132, 'GC', F / ! BR2 DATA CGRID_INDEX( 153 ), SPECIES_TYPE( 153 ), CONVERT_CONC( 153 ) / 133, 'GC', F / ! BRNO3 DATA CGRID_INDEX( 154 ), SPECIES_TYPE( 154 ), CONVERT_CONC( 154 ) / 134, 'GC', F / ! BRNO2 DATA CGRID_INDEX( 155 ), SPECIES_TYPE( 155 ), CONVERT_CONC( 155 ) / 135, 'GC', F / ! FMBR DATA CGRID_INDEX( 156 ), SPECIES_TYPE( 156 ), CONVERT_CONC( 156 ) / 136, 'GC', F / ! MB3 DATA CGRID_INDEX( 157 ), SPECIES_TYPE( 157 ), CONVERT_CONC( 157 ) / 137, 'GC', F / ! MB2 DATA CGRID_INDEX( 158 ), SPECIES_TYPE( 158 ), CONVERT_CONC( 158 ) / 138, 'GC', F / ! MB2C DATA CGRID_INDEX( 159 ), SPECIES_TYPE( 159 ), CONVERT_CONC( 159 ) / 139, 'GC', F / ! MBC2 DATA CGRID_INDEX( 160 ), SPECIES_TYPE( 160 ), CONVERT_CONC( 160 ) / 140, 'GC', F / ! MBC DATA CGRID_INDEX( 161 ), SPECIES_TYPE( 161 ), CONVERT_CONC( 161 ) / 141, 'GC', F / ! DMS DATA CGRID_INDEX( 162 ), SPECIES_TYPE( 162 ), CONVERT_CONC( 162 ) / 142, 'GC', F / ! MSA DATA CGRID_INDEX( 163 ), SPECIES_TYPE( 163 ), CONVERT_CONC( 163 ) / 143, 'GC', F / ! BRCL DATA CGRID_INDEX( 164 ), SPECIES_TYPE( 164 ), CONVERT_CONC( 164 ) / 247, 'AE', T / ! ABRJ DATA CGRID_INDEX( 165 ), SPECIES_TYPE( 165 ), CONVERT_CONC( 165 ) / 144, 'GC', F / ! I DATA CGRID_INDEX( 166 ), SPECIES_TYPE( 166 ), CONVERT_CONC( 166 ) / 145, 'GC', F / ! IO DATA CGRID_INDEX( 167 ), SPECIES_TYPE( 167 ), CONVERT_CONC( 167 ) / 146, 'GC', F / ! HI DATA CGRID_INDEX( 168 ), SPECIES_TYPE( 168 ), CONVERT_CONC( 168 ) / 147, 'GC', F / ! I2 DATA CGRID_INDEX( 169 ), SPECIES_TYPE( 169 ), CONVERT_CONC( 169 ) / 148, 'GC', F / ! HOI DATA CGRID_INDEX( 170 ), SPECIES_TYPE( 170 ), CONVERT_CONC( 170 ) / 149, 'GC', F / ! INO DATA CGRID_INDEX( 171 ), SPECIES_TYPE( 171 ), CONVERT_CONC( 171 ) / 150, 'GC', F / ! INO2 DATA CGRID_INDEX( 172 ), SPECIES_TYPE( 172 ), CONVERT_CONC( 172 ) / 151, 'GC', F / ! INO3 DATA CGRID_INDEX( 173 ), SPECIES_TYPE( 173 ), CONVERT_CONC( 173 ) / 152, 'GC', F / ! OIO DATA CGRID_INDEX( 174 ), SPECIES_TYPE( 174 ), CONVERT_CONC( 174 ) / 153, 'GC', F / ! I2O4 DATA CGRID_INDEX( 175 ), SPECIES_TYPE( 175 ), CONVERT_CONC( 175 ) / 154, 'GC', F / ! I2O2 DATA CGRID_INDEX( 176 ), SPECIES_TYPE( 176 ), CONVERT_CONC( 176 ) / 155, 'GC', F / ! I2O3 DATA CGRID_INDEX( 177 ), SPECIES_TYPE( 177 ), CONVERT_CONC( 177 ) / 156, 'GC', F / ! CH3I DATA CGRID_INDEX( 178 ), SPECIES_TYPE( 178 ), CONVERT_CONC( 178 ) / 157, 'GC', F / ! ICL DATA CGRID_INDEX( 179 ), SPECIES_TYPE( 179 ), CONVERT_CONC( 179 ) / 158, 'GC', F / ! IBR DATA CGRID_INDEX( 180 ), SPECIES_TYPE( 180 ), CONVERT_CONC( 180 ) / 159, 'GC', F / ! MI2 DATA CGRID_INDEX( 181 ), SPECIES_TYPE( 181 ), CONVERT_CONC( 181 ) / 160, 'GC', F / ! MIB DATA CGRID_INDEX( 182 ), SPECIES_TYPE( 182 ), CONVERT_CONC( 182 ) / 161, 'GC', F / ! MIC ! The below integers define the locations of mechanism species in the solver ! concentration array. INTEGER :: INDEX_NO2 = 1 INTEGER :: INDEX_NO = 2 INTEGER :: INDEX_O = 3 INTEGER :: INDEX_O3 = 4 INTEGER :: INDEX_NO3 = 5 INTEGER :: INDEX_O1D = 6 INTEGER :: INDEX_OH = 7 INTEGER :: INDEX_HO2 = 8 INTEGER :: INDEX_H2O2 = 9 INTEGER :: INDEX_N2O5 = 10 INTEGER :: INDEX_HNO3 = 11 INTEGER :: INDEX_HONO = 12 INTEGER :: INDEX_PNA = 13 INTEGER :: INDEX_SO2 = 14 INTEGER :: INDEX_SULF = 15 INTEGER :: INDEX_SULRXN = 16 INTEGER :: INDEX_C2O3 = 17 INTEGER :: INDEX_MEO2 = 18 INTEGER :: INDEX_RO2 = 19 INTEGER :: INDEX_PAN = 20 INTEGER :: INDEX_PACD = 21 INTEGER :: INDEX_AACD = 22 INTEGER :: INDEX_CXO3 = 23 INTEGER :: INDEX_ALD2 = 24 INTEGER :: INDEX_XO2H = 25 INTEGER :: INDEX_PANX = 26 INTEGER :: INDEX_FORM = 27 INTEGER :: INDEX_MEPX = 28 INTEGER :: INDEX_MEOH = 29 INTEGER :: INDEX_ROOH = 30 INTEGER :: INDEX_XO2 = 31 INTEGER :: INDEX_XO2N = 32 INTEGER :: INDEX_NTR1 = 33 INTEGER :: INDEX_NTR2 = 34 INTEGER :: INDEX_FACD = 35 INTEGER :: INDEX_CO = 36 INTEGER :: INDEX_HCO3 = 37 INTEGER :: INDEX_ALDX = 38 INTEGER :: INDEX_GLYD = 39 INTEGER :: INDEX_GLY = 40 INTEGER :: INDEX_MGLY = 41 INTEGER :: INDEX_ETHA = 42 INTEGER :: INDEX_ETOH = 43 INTEGER :: INDEX_KET = 44 INTEGER :: INDEX_PAR = 45 INTEGER :: INDEX_ACET = 46 INTEGER :: INDEX_PRPA = 47 INTEGER :: INDEX_XPRP = 48 INTEGER :: INDEX_XPAR = 49 INTEGER :: INDEX_ROR = 50 INTEGER :: INDEX_ETHY = 51 INTEGER :: INDEX_ETH = 52 INTEGER :: INDEX_OLE = 53 INTEGER :: INDEX_IOLE = 54 INTEGER :: INDEX_ISOP = 55 INTEGER :: INDEX_ISO2 = 56 INTEGER :: INDEX_ISOPRXN = 57 INTEGER :: INDEX_ISPD = 58 INTEGER :: INDEX_INTR = 59 INTEGER :: INDEX_ISPX = 60 INTEGER :: INDEX_HPLD = 61 INTEGER :: INDEX_OPO3 = 62 INTEGER :: INDEX_EPOX = 63 INTEGER :: INDEX_EPX2 = 64 INTEGER :: INDEX_TERP = 65 INTEGER :: INDEX_TRPRXN = 66 INTEGER :: INDEX_TERPNRO2 = 67 INTEGER :: INDEX_APIN = 68 INTEGER :: INDEX_BENZENE = 69 INTEGER :: INDEX_CRES = 70 INTEGER :: INDEX_BZO2 = 71 INTEGER :: INDEX_OPEN = 72 INTEGER :: INDEX_BENZRO2 = 73 INTEGER :: INDEX_TOL = 74 INTEGER :: INDEX_TO2 = 75 INTEGER :: INDEX_TOLRO2 = 76 INTEGER :: INDEX_XOPN = 77 INTEGER :: INDEX_XYLMN = 78 INTEGER :: INDEX_XLO2 = 79 INTEGER :: INDEX_XYLRO2 = 80 INTEGER :: INDEX_NAPH = 81 INTEGER :: INDEX_PAHRO2 = 82 INTEGER :: INDEX_CRO = 83 INTEGER :: INDEX_CAT1 = 84 INTEGER :: INDEX_CRON = 85 INTEGER :: INDEX_OPAN = 86 INTEGER :: INDEX_ECH4 = 87 INTEGER :: INDEX_CL2 = 88 INTEGER :: INDEX_CL = 89 INTEGER :: INDEX_HOCL = 90 INTEGER :: INDEX_CLO = 91 INTEGER :: INDEX_FMCL = 92 INTEGER :: INDEX_HCL = 93 INTEGER :: INDEX_CLNO2 = 94 INTEGER :: INDEX_CLNO3 = 95 INTEGER :: INDEX_SVAVB2 = 96 INTEGER :: INDEX_SVAVB3 = 97 INTEGER :: INDEX_SVAVB4 = 98 INTEGER :: INDEX_SVAVB1 = 99 INTEGER :: INDEX_SESQ = 100 INTEGER :: INDEX_SESQRXN = 101 INTEGER :: INDEX_SOAALK = 102 INTEGER :: INDEX_H2NO3PIJ = 103 INTEGER :: INDEX_H2NO3PK = 104 INTEGER :: INDEX_ACLI = 105 INTEGER :: INDEX_ACLJ = 106 INTEGER :: INDEX_ACLK = 107 INTEGER :: INDEX_IEPOXP = 108 INTEGER :: INDEX_ASO4J = 109 INTEGER :: INDEX_AISO3J = 110 INTEGER :: INDEX_AGLYJ = 111 INTEGER :: INDEX_MTNO3 = 112 INTEGER :: INDEX_AMTNO3J = 113 INTEGER :: INDEX_AMTHYDJ = 114 INTEGER :: INDEX_AAVB2J = 115 INTEGER :: INDEX_AOLGAJ = 116 INTEGER :: INDEX_AAVB3J = 117 INTEGER :: INDEX_AAVB4J = 118 INTEGER :: INDEX_AISO1J = 119 INTEGER :: INDEX_AOLGBJ = 120 INTEGER :: INDEX_AISO2J = 121 INTEGER :: INDEX_ASQTJ = 122 INTEGER :: INDEX_APOCI = 123 INTEGER :: INDEX_APNCOMI = 124 INTEGER :: INDEX_APOCJ = 125 INTEGER :: INDEX_APNCOMJ = 126 INTEGER :: INDEX_PCVOC = 127 INTEGER :: INDEX_PCSOARXN = 128 INTEGER :: INDEX_VLVPO1 = 129 INTEGER :: INDEX_VSVPO1 = 130 INTEGER :: INDEX_VSVPO2 = 131 INTEGER :: INDEX_VSVPO3 = 132 INTEGER :: INDEX_VIVPO1 = 133 INTEGER :: INDEX_VLVOO1 = 134 INTEGER :: INDEX_VLVOO2 = 135 INTEGER :: INDEX_VSVOO2 = 136 INTEGER :: INDEX_VSVOO3 = 137 INTEGER :: INDEX_VSVOO1 = 138 INTEGER :: INDEX_FORM_PRIMARY = 139 INTEGER :: INDEX_ALD2_PRIMARY = 140 INTEGER :: INDEX_BUTADIENE13 = 141 INTEGER :: INDEX_ACROLEIN = 142 INTEGER :: INDEX_ACRO_PRIMARY = 143 INTEGER :: INDEX_TOLU = 144 INTEGER :: INDEX_HG = 145 INTEGER :: INDEX_HGIIAER = 146 INTEGER :: INDEX_HGIIGAS = 147 INTEGER :: INDEX_BR = 148 INTEGER :: INDEX_BRO = 149 INTEGER :: INDEX_HOBR = 150 INTEGER :: INDEX_HBR = 151 INTEGER :: INDEX_BR2 = 152 INTEGER :: INDEX_BRNO3 = 153 INTEGER :: INDEX_BRNO2 = 154 INTEGER :: INDEX_FMBR = 155 INTEGER :: INDEX_MB3 = 156 INTEGER :: INDEX_MB2 = 157 INTEGER :: INDEX_MB2C = 158 INTEGER :: INDEX_MBC2 = 159 INTEGER :: INDEX_MBC = 160 INTEGER :: INDEX_DMS = 161 INTEGER :: INDEX_MSA = 162 INTEGER :: INDEX_BRCL = 163 INTEGER :: INDEX_ABRJ = 164 INTEGER :: INDEX_I = 165 INTEGER :: INDEX_IO = 166 INTEGER :: INDEX_HI = 167 INTEGER :: INDEX_I2 = 168 INTEGER :: INDEX_HOI = 169 INTEGER :: INDEX_INO = 170 INTEGER :: INDEX_INO2 = 171 INTEGER :: INDEX_INO3 = 172 INTEGER :: INDEX_OIO = 173 INTEGER :: INDEX_I2O4 = 174 INTEGER :: INDEX_I2O2 = 175 INTEGER :: INDEX_I2O3 = 176 INTEGER :: INDEX_CH3I = 177 INTEGER :: INDEX_ICL = 178 INTEGER :: INDEX_IBR = 179 INTEGER :: INDEX_MI2 = 180 INTEGER :: INDEX_MIB = 181 INTEGER :: INDEX_MIC = 182 INTEGER, PARAMETER :: N_ACT_SP = 182 INTEGER, PARAMETER :: NRXNS = 453 INTEGER, PARAMETER :: ONE_REACT_REACTIONS = 0 INTEGER, PARAMETER :: TWO_REACT_REACTIONS = 0 INTEGER, PARAMETER :: THREE_REACT_REACTIONS = 0 INTEGER, PARAMETER :: ZERO_REACT_REACTIONS = 0 LOGICAL, PARAMETER :: UNITARY_REACTIONS = .FALSE. INTEGER, PARAMETER :: ONE_REACT_START = 0 INTEGER, PARAMETER :: ONE_REACT_STOP = -1 LOGICAL, PARAMETER :: BINARY_REACTIONS = .FALSE. INTEGER, PARAMETER :: TWO_REACT_START = 0 INTEGER, PARAMETER :: TWO_REACT_STOP = -1 LOGICAL, PARAMETER :: TERNARY_REACTIONS = .FALSE. INTEGER, PARAMETER :: THREE_REACT_START = 0 INTEGER, PARAMETER :: THREE_REACT_STOP = -1 LOGICAL, PARAMETER :: NULL_REACTIONS = .FALSE. INTEGER, PARAMETER :: ZERO_REACT_START = 0 INTEGER, PARAMETER :: ZERO_REACT_STOP = -1 INTEGER, PARAMETER :: NSUNLIGHT_RXNS = 68 INTEGER, PARAMETER :: NTHERMAL_RXNS = 385 INTEGER, PARAMETER :: KUNITS = 2 INTEGER :: IRXXN INTEGER, PARAMETER :: NMPHOT = 68 INTEGER :: IPH( NMPHOT,3 ) DATA ( IPH( IRXXN,1 ), IRXXN = 1, NMPHOT ) / & & 1, 8, 9, 21, 27, 28, 38, 43, 47, 50, & ! O & 56, 64, 88, 90, 92, 97, 98, 108, 112, 114, & ! 1 & 117, 119, 128, 129, 161, 163, 201, 202, 206, 226, & ! 2 & 227, 234, 252, 254, 255, 290, 316, 317, 322, 331, & ! 3 & 336, 371, 372, 373, 374, 375, 376, 377, 378, 379, & ! 4 & 380, 381, 419, 420, 421, 422, 423, 424, 425, 426, & ! 5 & 427, 428, 429, 430, 431, 432, 433, 434/ ! 6 DATA ( IPH( IRXXN,2 ), IRXXN = 1, NMPHOT ) / & & 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, & ! O & 11, 11, 12, 12, 13, 14, 15, 16, 17, 18, & ! 1 & 19, 20, 21, 22, 23, 24, 13, 1, 1, 25, & ! 2 & 26, 27, 28, 29, 30, 31, 14, 15, 16, 32, & ! 3 & 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, & ! 4 & 42, 43, 44, 45, 46, 47, 48, 49, 50, 50, & ! 5 & 50, 50, 51, 52, 53, 54, 55, 56/ ! 6 DATA ( IPH( IRXXN,3 ), IRXXN = 1, NMPHOT ) / & & 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, & ! O & 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, & ! 1 & 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, & ! 2 & 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, & ! 3 & 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, & ! 4 & 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, & ! 5 & 61, 62, 63, 64, 65, 66, 67, 68/ ! 6 REAL( 8 ) :: RTDAT( 3,NRXNS ) INTEGER, PARAMETER :: NFALLOFF = 28 REAL( 8 ) :: RFDAT( 5,NFALLOFF ) INTEGER :: KTYPE( NRXNS ) DATA ( KTYPE( IRXXN ), IRXXN = 1, NRXNS ) / & & 0, 2, 3, 10, 3, 10, 3, 0, 0, 3, & ! O & 1, 3, 4, 3, 3, 4, 10, 3, 9, 9, & ! 1 & 0, 1, 3, 3, 3, 3, 0, 0, 3, 3, & ! 2 & 1, 1, 1, 1, 3, 10, 10, 0, 1, 10, & ! 3 & 1, 1, 0, 3, 10, 8, 0, 10, 10, 0, & ! 4 & 3, 10, 3, 10, 10, 0, 3, 3, 3, 6, & ! 5 & 3, 6, 6, 0, 6, 6, 6, 3, 3, 3, & ! 6 & 3, 3, 3, 6, 3, 3, 6, 6, 6, 6, & ! 7 & 6, 6, 6, 6, 6, 6, 3, 0, 3, 0, & ! 8 & 1, 0, 1, 3, 3, 3, 0, 0, 3, 1, & ! 9 & 3, 3, 1, 3, 3, 3, 3, 0, 3, 3, & ! O & 1, 0, 1, 0, 6, 3, 0, 1, 0, 1, & ! 1 & 3, 3, 9, 3, 3, 3, 3, 0, 0, 3, & ! 2 & 3, 1, 3, 3, 3, 10, 3, 10, 3, 3, & ! 3 & 3, 10, 3, 3, 1, 3, 3, 1, 3, 1, & ! 4 & 3, 3, 6, 6, 3, 3, 3, 3, 3, 3, & ! 5 & 0, 3, 0, 3, 3, 3, 3, 6, 6, 1, & ! 6 & 1, 3, 3, 3, 1, 3, 3, 3, 3, 3, & ! 7 & 6, 3, 6, 3, 3, 6, 3, 6, 1, 1, & ! 8 & 3, 3, 6, 6, 3, 1, 1, 1, 1, 1, & ! 9 & 0, 0, 1, 3, 1, 0, 1, 3, 1, 1, & ! O & 1, 6, 6, 6, 6, 6, 6, 1, 1, 3, & ! 1 & 10, 1, 10, 1, 1, 0, 0, 3, 1, 3, & ! 2 & 3, 3, 1, 0, 3, 1, 1, 3, 1, 1, & ! 3 & 1, 1, 3, 1, 1, 1, 3, 4, 1, 1, & ! 4 & 1, 0, 10, 0, 0, -1, -1, 3, 3, 3, & ! 5 & 3, 3, 3, 1, 1, 1, 3, 3, 3, -1, & ! 6 & -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, & ! 7 & -1, -1, -1, 3, 3, 1, 1, 1, 1, 0, & ! 8 & 1, 1, 1, 1, 1, 1, 1, 1, -1, 1, & ! 9 & -1, 1, 1, 1, 1, 1, 1, 1, 1, 1, & ! O & 1, 1, 3, 1, 3, 0, 0, 3, 3, 3, & ! 1 & 3, 0, 1, 3, 3, 1, 1, 1, 1, 1, & ! 2 & 0, 1, 1, 1, 1, 0, 1, 3, 1, 3, & ! 3 & 1, 1, 1, 3, 3, 3, 3, 3, 3, 3, & ! 4 & 3, 3, 3, 3, 3, 10, 10, 3, 3, 3, & ! 5 & 1, 1, 1, 3, 3, 3, 3, 3, 3, 3, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, -1, -1, -1, -1, -1, -1, -1, -1, -1, & ! 8 & 3, 3, 1, 3, 1, 3, 3, 3, 3, 1, & ! 9 & 3, 1, 1, 3, 3, 3, 3, 3, 3, 3, & ! O & 3, 3, 3, 10, 10, 10, 3, 3, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 2, 3, -1, -1, -1, -1, & ! 3 & -1, -1, -1, -1, -1, -1, -1, -1, 3, 10, & ! 4 & 3, 3, 3/ ! 5 INTEGER :: IRXBITS( NRXNS ) DATA ( IRXBITS( IRXXN ), IRXXN = 1, NRXNS ) / & & 2, 276, 0, 1, 0, 1, 0, 2, 2, 260, & ! O & 8, 0, 0, 0, 0, 0, 1, 0, 0, 8, & ! 1 & 2, 0, 0, 16, 0, 0, 2, 2, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 1, 1, 2, 8, 1, & ! 3 & 8, 0, 2, 0, 1, 0, 2, 1, 1, 2, & ! 4 & 0, 1, 0, 1, 1, 2, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 2, 0, 2, & ! 8 & 0, 2, 0, 0, 0, 0, 2, 2, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, & ! O & 0, 2, 0, 2, 0, 0, 2, 0, 2, 0, & ! 1 & 0, 128, 0, 64, 0, 0, 0, 2, 2, 0, & ! 2 & 0, 0, 0, 16, 0, 1, 0, 1, 0, 0, & ! 3 & 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 2, 0, 2, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 2, 2, 0, 0, 0, 2, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 1, 0, 1, 0, 8, 2, 2, 0, 0, 0, & ! 2 & 0, 0, 0, 2, 64, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 2, 1, 2, 2, 1, 1, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, & ! 6 & 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, & ! 7 & 1, 1, 1, 0, 0, 0, 0, 0, 0, 2, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, & ! 9 & 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 2, 2, 0, 0, 0, & ! 1 & 0, 2, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 2, 0, 0, 0, 0, 2, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 260, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 7 & 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 1, 1, 1, 0, 0, 2, 2, & ! 1 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 2 & 2, 2, 2, 2, 0, 0, 1, 1, 1, 1, & ! 3 & 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, & ! 4 & 0, 0, 0/ ! 5 INTEGER, PARAMETER :: NTERMS_JACOB = 33124 INTEGER, PARAMETER :: NSTEPS_JACOB = 906 INTEGER :: IORDER( NRXNS ) DATA ( IORDER( IRXXN ), IRXXN = 1, NRXNS ) / & & 1, 3, 2, 2, 2, 2, 2, 1, 1, 2, & ! O & 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, & ! 1 & 1, 2, 2, 3, 2, 2, 1, 1, 2, 2, & ! 2 & 2, 2, 2, 2, 2, 2, 1, 1, 2, 2, & ! 3 & 3, 2, 1, 2, 2, 2, 1, 2, 1, 1, & ! 4 & 2, 2, 2, 2, 1, 1, 2, 2, 2, 2, & ! 5 & 2, 2, 1, 1, 2, 2, 2, 2, 2, 2, & ! 6 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 7 & 2, 2, 2, 2, 2, 2, 2, 1, 2, 1, & ! 8 & 2, 1, 2, 2, 2, 2, 1, 1, 2, 2, & ! 9 & 2, 1, 2, 2, 2, 2, 2, 1, 2, 2, & ! O & 2, 1, 2, 1, 2, 2, 1, 2, 1, 2, & ! 1 & 2, 2, 2, 2, 2, 2, 2, 1, 1, 2, & ! 2 & 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, & ! 3 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 4 & 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, & ! 5 & 1, 2, 1, 2, 2, 2, 2, 2, 2, 2, & ! 6 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 7 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 8 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 9 & 1, 1, 2, 2, 2, 1, 2, 2, 2, 2, & ! O & 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, & ! 1 & 1, 1, 1, 1, 3, 1, 1, 2, 2, 2, & ! 2 & 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, & ! 3 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 4 & 2, 1, 2, 1, 1, 1, 1, 2, 2, 2, & ! 5 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, & ! 6 & 1, 1, 1, 1, 2, 2, 2, 1, 1, 2, & ! 7 & 1, 1, 1, 2, 2, 2, 2, 2, 2, 1, & ! 8 & 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, & ! 9 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! O & 2, 2, 2, 2, 2, 1, 1, 2, 2, 2, & ! 1 & 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, & ! 2 & 1, 2, 2, 2, 2, 1, 2, 2, 2, 2, & ! 3 & 2, 2, 2, 3, 2, 2, 2, 2, 2, 2, & ! 4 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 5 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 6 & 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, & ! 7 & 1, 1, 1, 2, 2, 2, 2, 2, 2, 1, & ! 8 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 9 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, & ! O & 1, 1, 1, 2, 2, 2, 2, 2, 1, 1, & ! 1 & 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, & ! 2 & 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, & ! 3 & 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, & ! 4 & 2, 2, 2/ ! 5 INTEGER, PARAMETER :: KTN1 = 107 INTEGER :: KRX1( KTN1 ) DATA ( KRX1( IRXXN ), IRXXN = 1, KTN1 ) / & & 11, 22, 31, 32, 33, 34, 39, 41, 42, 91, & ! O & 93, 100, 103, 111, 113, 118, 120, 132, 145, 148, & ! 1 & 150, 170, 171, 175, 189, 190, 196, 197, 198, 199, & ! 2 & 200, 203, 205, 207, 209, 210, 211, 218, 219, 222, & ! 3 & 224, 225, 229, 233, 236, 237, 239, 240, 241, 242, & ! 4 & 244, 245, 246, 249, 250, 251, 264, 265, 266, 286, & ! 5 & 287, 288, 289, 291, 292, 293, 294, 295, 296, 297, & ! 6 & 298, 300, 302, 303, 304, 305, 306, 307, 308, 309, & ! 7 & 310, 311, 312, 314, 323, 326, 327, 328, 329, 330, & ! 8 & 332, 333, 334, 335, 337, 339, 341, 342, 343, 361, & ! 9 & 362, 363, 393, 395, 400, 402, 403/ ! O INTEGER, PARAMETER :: KTN2 = 2 INTEGER :: KRX2( KTN2 ) DATA ( KRX2( IRXXN ), IRXXN = 1, KTN2 ) / & & 2, 435/ INTEGER, PARAMETER :: KTN3 = 172 INTEGER :: KRX3( KTN3 ) DATA ( KRX3( IRXXN ), IRXXN = 1, KTN3 ) / & & 3, 5, 7, 10, 12, 14, 15, 18, 23, 24, & ! O & 25, 26, 29, 30, 35, 44, 51, 53, 57, 58, & ! 1 & 59, 61, 68, 69, 70, 71, 72, 73, 75, 76, & ! 2 & 87, 89, 94, 95, 96, 99, 101, 102, 104, 105, & ! 3 & 106, 107, 109, 110, 116, 121, 122, 124, 125, 126, & ! 4 & 127, 130, 131, 133, 134, 135, 137, 139, 140, 141, & ! 5 & 143, 144, 146, 147, 149, 151, 152, 155, 156, 157, & ! 6 & 158, 159, 160, 162, 164, 165, 166, 167, 172, 173, & ! 7 & 174, 176, 177, 178, 179, 180, 182, 184, 185, 187, & ! 8 & 191, 192, 195, 204, 208, 220, 228, 230, 231, 232, & ! 9 & 235, 238, 243, 247, 258, 259, 260, 261, 262, 263, & ! O & 267, 268, 269, 284, 285, 313, 315, 318, 319, 320, & ! 1 & 321, 324, 325, 338, 340, 344, 345, 346, 347, 348, & ! 2 & 349, 350, 351, 352, 353, 354, 355, 358, 359, 360, & ! 3 & 364, 365, 366, 367, 368, 369, 370, 391, 392, 394, & ! 4 & 396, 397, 398, 399, 401, 404, 405, 406, 407, 408, & ! 5 & 409, 410, 411, 412, 413, 417, 418, 436, 449, 451, & ! 6 & 452, 453/ ! 7 INTEGER, PARAMETER :: KTN4 = 3 INTEGER :: KRX4( KTN4 ) DATA ( KRX4( IRXXN ), IRXXN = 1, KTN4 ) / & & 13, 16, 248/ INTEGER, PARAMETER :: KTN5 = 0 INTEGER :: KRX5( 1 ) DATA KRX5( 1 ) / 0 / INTEGER, PARAMETER :: KTN6 = 34 INTEGER :: KRX6( KTN6 ) DATA ( KRX6( IRXXN ), IRXXN = 1, KTN6 ) / & & 60, 62, 63, 65, 66, 67, 74, 77, 78, 79, & & 80, 81, 82, 83, 84, 85, 86, 115, 153, 154, & & 168, 169, 181, 183, 186, 188, 193, 194, 212, 213, & & 214, 215, 216, 217/ INTEGER, PARAMETER :: KTN7 = 0 INTEGER :: KRX7( 1 ) DATA KRX7( 1 ) / 0 / INTEGER, PARAMETER :: NWM = 3 INTEGER :: NRXWM( NWM ) DATA ( NRXWM( IRXXN ), IRXXN = 1, NWM ) / & & 2, 10, 344/ REAL( 8 ), PARAMETER :: ATM_AIR = 1.00000D+06 INTEGER, PARAMETER :: NWW = 5 INTEGER :: NRXWW( NWW ) DATA ( NRXWW( IRXXN ), IRXXN = 1, NWW ) / & & 11, 20, 39, 41, 225/ INTEGER, PARAMETER :: NWO2 = 3 INTEGER :: NRXWO2( NWO2 ) DATA ( NRXWO2( IRXXN ), IRXXN = 1, NWO2 ) / & & 2, 24, 134/ REAL( 8 ), PARAMETER :: ATM_O2 = 2.09500D+05 INTEGER, PARAMETER :: NWN2 = 0 INTEGER :: NRXWN2( 1 ) DATA NRXWN2( 1 ) / 0 / REAL( 8 ), PARAMETER :: ATM_N2 = 7.80800D+05 INTEGER, PARAMETER :: NWCH4 = 2 INTEGER :: NRXWCH4( NWCH4 ) DATA ( NRXWCH4( IRXXN ), IRXXN = 1, NWCH4 ) / & & 124, 235/ REAL( 8 ), PARAMETER :: ATM_CH4 = 1.85000D+00 INTEGER, PARAMETER :: NWH2 = 1 INTEGER :: NRXWH2( NWH2 ) DATA ( NRXWH2( IRXXN ), IRXXN = 1, NWH2 ) / & & 122/ REAL( 8 ), PARAMETER :: ATM_H2 = 5.60000D-01 INTEGER, PARAMETER :: MXPRD = 14 INTEGER :: IRR( NRXNS,MXPRD+3 ) DATA ( IRR( IRXXN, 1 ), IRXXN = 1, NRXNS ) / & & 1, 3, 4, 3, 3, 3, 3, 4, 4, 6, & ! O & 6, 4, 4, 7, 8, 7, 7, 7, 8, 8, & ! 1 & 9, 9, 9, 2, 8, 1, 5, 5, 5, 5, & ! 2 & 5, 5, 5, 5, 5, 5, 10, 10, 10, 2, & ! 3 & 2, 12, 12, 12, 1, 11, 11, 8, 13, 13, & ! 4 & 13, 14, 17, 17, 20, 20, 17, 17, 17, 17, & ! 5 & 23, 23, 26, 26, 23, 23, 23, 19, 19, 19, & ! 6 & 18, 18, 18, 18, 25, 25, 25, 25, 31, 31, & ! 7 & 31, 31, 32, 32, 32, 32, 28, 28, 30, 30, & ! 8 & 33, 33, 35, 22, 21, 27, 27, 27, 27, 27, & ! 9 & 27, 37, 37, 37, 24, 24, 24, 24, 38, 38, & ! O & 38, 38, 39, 39, 39, 40, 40, 40, 41, 41, & ! 1 & 41, 7, 36, 7, 42, 29, 43, 44, 46, 46, & ! 2 & 47, 45, 50, 50, 50, 51, 52, 52, 52, 52, & ! 3 & 53, 53, 53, 53, 54, 54, 54, 54, 55, 55, & ! 4 & 56, 56, 56, 56, 56, 55, 55, 58, 58, 58, & ! 5 & 58, 60, 61, 61, 63, 64, 64, 64, 64, 59, & ! 6 & 65, 65, 65, 65, 68, 68, 68, 68, 69, 71, & ! 7 & 71, 71, 71, 74, 75, 75, 75, 75, 78, 81, & ! 8 & 79, 79, 79, 79, 70, 70, 83, 83, 85, 85, & ! 9 & 85, 77, 77, 77, 77, 72, 72, 72, 72, 84, & ! O & 84, 62, 62, 86, 62, 62, 62, 86, 26, 87, & ! 1 & 48, 48, 49, 49, 1, 88, 90, 89, 91, 91, & ! 2 & 91, 91, 7, 92, 89, 89, 89, 89, 89, 89, & ! 3 & 89, 89, 89, 89, 89, 89, 89, 93, 89, 89, & ! 4 & 89, 94, 91, 95, 95, 95, 95, 76, 76, 80, & ! 5 & 80, 73, 73, 100, 100, 100, 82, 82, 102, 34, & ! 6 & 10, 10, 103, 104, 103, 103, 104, 1, 63, 108, & ! 7 & 108, 40, 41, 67, 67, 67, 67, 112, 112, 112, & ! 8 & 113, 115, 117, 118, 119, 121, 122, 123, 124, 125, & ! 9 & 126, 127, 129, 130, 131, 132, 133, 134, 135, 138, & ! O & 136, 137, 139, 139, 139, 139, 139, 139, 140, 140, & ! 1 & 140, 140, 140, 141, 141, 141, 141, 143, 143, 143, & ! 2 & 143, 143, 142, 142, 142, 142, 142, 144, 144, 145, & ! 3 & 145, 145, 145, 145, 148, 149, 148, 151, 149, 149, & ! 4 & 149, 148, 152, 149, 148, 149, 148, 149, 27, 24, & ! 5 & 53, 55, 155, 149, 156, 157, 158, 159, 160, 161, & ! 6 & 152, 150, 149, 154, 153, 153, 163, 155, 156, 158, & ! 7 & 159, 153, 153, 150, 150, 153, 153, 154, 154, 151, & ! 8 & 165, 165, 168, 167, 169, 166, 166, 170, 171, 168, & ! 9 & 172, 165, 166, 166, 166, 173, 173, 166, 166, 175, & ! O & 174, 171, 172, 165, 165, 166, 177, 161, 168, 169, & ! 1 & 166, 173, 170, 171, 172, 175, 176, 174, 178, 179, & ! 2 & 177, 180, 181, 182, 169, 175, 175, 175, 176, 176, & ! 3 & 174, 174, 172, 172, 171, 171, 169, 169, 161, 161, & ! 4 & 161, 161, 161/ ! 5 DATA ( IRR( IRXXN, 2 ), IRXXN = 1, NRXNS ) / & & 0, 0, 2, 2, 1, 1, 4, 0, 0, 0, & ! O & 0, 7, 8, 3, 3, 7, 7, 8, 8, 8, & ! 1 & 0, 7, 3, 2, 2, 4, 0, 0, 2, 1, & ! 2 & 3, 7, 8, 4, 5, 1, 0, 0, 0, 7, & ! 3 & 1, 12, 0, 7, 7, 7, 0, 1, 0, 0, & ! 4 & 7, 7, 2, 1, 0, 0, 8, 19, 17, 23, & ! 5 & 2, 1, 0, 0, 8, 19, 23, 2, 8, 19, & ! 6 & 2, 8, 17, 19, 2, 8, 17, 19, 2, 8, & ! 7 & 17, 19, 2, 8, 17, 19, 7, 0, 7, 0, & ! 8 & 7, 0, 7, 7, 7, 7, 0, 0, 3, 5, & ! 9 & 8, 0, 2, 8, 3, 7, 5, 0, 3, 7, & ! O & 5, 0, 7, 0, 5, 7, 0, 5, 0, 5, & ! 1 & 7, 0, 7, 0, 7, 7, 7, 0, 0, 7, & ! 2 & 7, 7, 0, 0, 1, 7, 3, 7, 4, 5, & ! 3 & 3, 7, 4, 5, 3, 7, 4, 5, 7, 3, & ! 4 & 2, 8, 17, 19, 0, 4, 5, 7, 4, 5, & ! 5 & 0, 7, 0, 5, 7, 8, 2, 17, 19, 7, & ! 6 & 3, 7, 4, 5, 3, 7, 4, 5, 7, 2, & ! 7 & 17, 8, 19, 7, 2, 17, 8, 19, 7, 7, & ! 8 & 2, 8, 17, 19, 7, 5, 1, 8, 7, 5, & ! 9 & 0, 0, 7, 4, 5, 0, 7, 4, 5, 7, & ! O & 5, 2, 1, 0, 8, 17, 19, 7, 7, 7, & ! 1 & 0, 0, 0, 0, 7, 0, 0, 4, 91, 2, & ! 2 & 8, 18, 92, 0, 0, 45, 47, 42, 52, 53, & ! 3 & 54, 55, 27, 24, 38, 29, 43, 7, 74, 78, & ! 4 & 81, 0, 1, 0, 0, 0, 0, 2, 8, 2, & ! 5 & 8, 2, 8, 4, 7, 5, 2, 8, 7, 0, & ! 6 & 0, 0, 0, 0, 105, 106, 107, 0, 0, 109, & ! 7 & 0, 0, 0, 2, 8, 5, 19, 89, 7, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 7, 7, 7, & ! 9 & 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, & ! O & 7, 7, 7, 5, 3, 0, 0, 89, 7, 5, & ! 1 & 3, 0, 89, 7, 4, 5, 89, 7, 4, 5, & ! 2 & 0, 89, 7, 4, 5, 0, 89, 7, 89, 4, & ! 3 & 88, 9, 7, 89, 4, 8, 8, 7, 149, 149, & ! 4 & 2, 153, 7, 7, 5, 1, 1, 91, 148, 148, & ! 5 & 148, 148, 7, 18, 7, 7, 7, 7, 7, 149, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 106, 164, 106, 164, 106, 164, 0, & ! 8 & 4, 8, 7, 7, 7, 8, 2, 170, 171, 5, & ! 9 & 165, 149, 148, 149, 91, 173, 2, 166, 173, 0, & ! O & 0, 0, 0, 2, 1, 1, 7, 166, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 5, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 106, 164, 106, 164, 106, 164, 7, 7, & ! 4 & 5, 89, 91/ ! 5 DATA ( IRR( IRXXN, 3 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0/ ! 5 DATA ( IRR( IRXXN, 4 ), IRXXN = 1, NRXNS ) / & & 2, 4, 1, 1, 2, 5, 0, 3, 6, 3, & ! O & 7, 8, 7, 8, 7, 3, 9, 0, 9, 9, & ! 1 & 7, 8, 7, 1, 7, 5, 1, 2, 1, 2, & ! 2 & 1, 8, 7, 1, 1, 10, 5, 1, 11, 12, & ! 3 & 12, 2, 2, 1, 11, 5, 7, 13, 8, 8, & ! 4 & 1, 15, 1, 20, 1, 1, 21, 18, 18, 18, & ! 5 & 1, 26, 1, 1, 21, 18, 18, 2, 8, 0, & ! 6 & 27, 28, 27, 27, 1, 30, 8, 8, 1, 30, & ! 7 & 18, 19, 33, 30, 8, 19, 18, 18, 25, 8, & ! 8 & 34, 1, 8, 18, 17, 8, 8, 36, 7, 11, & ! 9 & 37, 27, 35, 28, 17, 17, 17, 18, 23, 23, & ! O & 23, 24, 40, 27, 11, 36, 8, 11, 17, 11, & ! 1 & 17, 8, 8, 18, 24, 27, 24, 24, 36, 27, & ! 2 & 48, 49, 44, 44, 33, 40, 27, 25, 27, 1, & ! 3 & 24, 27, 24, 1, 24, 24, 24, 1, 56, 58, & ! 4 & 59, 60, 27, 27, 8, 27, 1, 32, 24, 11, & ! 5 & 8, 63, 7, 11, 64, 39, 39, 39, 39, 31, & ! 6 & 38, 25, 7, 1, 38, 25, 7, 1, 70, 1, & ! 7 & 40, 0, 40, 70, 1, 40, 0, 40, 70, 70, & ! 8 & 1, 0, 40, 40, 40, 83, 85, 70, 34, 34, & ! 9 & 12, 40, 41, 41, 1, 62, 62, 40, 62, 27, & ! O & 83, 1, 86, 62, 21, 18, 25, 1, 24, 18, & ! 1 & 32, 46, 32, 38, 11, 89, 7, 91, 88, 89, & ! 2 & 90, 89, 89, 89, 93, 93, 93, 93, 92, 92, & ! 3 & 93, 92, 93, 93, 93, 93, 93, 89, 93, 93, & ! 4 & 93, 89, 95, 91, 89, 90, 90, 2, 8, 2, & ! 5 & 8, 2, 8, 4, 7, 5, 2, 8, 7, 11, & ! 6 & 11, 11, 11, 11, 94, 94, 94, 12, 108, 110, & ! 7 & 110, 111, 111, 2, 8, 5, 19, 89, 7, 0, & ! 8 & 114, 116, 116, 116, 120, 120, 120, 124, 7, 126, & ! 9 & 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, & ! O & 7, 7, 7, 5, 3, 0, 0, 89, 7, 5, & ! 1 & 3, 0, 89, 7, 4, 5, 89, 7, 4, 5, & ! 2 & 0, 89, 7, 4, 5, 0, 89, 7, 89, 146, & ! 3 & 147, 147, 146, 145, 149, 150, 151, 148, 148, 152, & ! 4 & 148, 152, 150, 148, 149, 153, 154, 148, 151, 151, & ! 5 & 155, 155, 148, 150, 148, 148, 148, 148, 148, 14, & ! 6 & 148, 7, 148, 148, 149, 148, 148, 148, 148, 148, & ! 7 & 148, 150, 150, 163, 152, 163, 152, 163, 152, 164, & ! 8 & 166, 167, 169, 165, 166, 169, 165, 168, 168, 165, & ! 9 & 168, 166, 165, 148, 165, 174, 166, 173, 176, 173, & ! O & 173, 165, 166, 170, 171, 172, 165, 14, 165, 165, & ! 1 & 165, 165, 165, 165, 165, 165, 166, 173, 165, 165, & ! 2 & 165, 165, 165, 165, 166, 166, 0, 0, 0, 0, & ! 3 & 0, 0, 178, 179, 178, 179, 178, 179, 14, 14, & ! 4 & 14, 14, 14/ ! 5 DATA ( IRR( IRXXN, 5 ), IRXXN = 1, NRXNS ) / & & 3, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 8, 0, 1, 0, 3, 0, 0, 1, & ! 2 & 0, 1, 1, 0, 0, 0, 1, 5, 0, 0, & ! 3 & 0, 1, 7, 0, 0, 0, 1, 0, 1, 1, & ! 4 & 0, 8, 18, 0, 17, 17, 22, 0, 19, 24, & ! 5 & 24, 0, 23, 23, 22, 0, 19, 0, 0, 0, & ! 6 & 8, 27, 8, 29, 8, 0, 18, 19, 0, 0, & ! 7 & 22, 0, 34, 0, 18, 0, 19, 19, 32, 7, & ! 8 & 0, 0, 0, 19, 0, 36, 36, 0, 8, 8, & ! 9 & 0, 8, 1, 35, 7, 0, 11, 19, 7, 0, & ! O & 11, 25, 8, 36, 17, 31, 36, 36, 8, 17, & ! 1 & 36, 0, 0, 19, 25, 8, 8, 17, 18, 17, & ! 2 & 0, 0, 46, 8, 0, 7, 8, 19, 36, 33, & ! 3 & 38, 24, 27, 33, 38, 38, 38, 33, 19, 27, & ! 4 & 1, 7, 58, 58, 61, 58, 34, 31, 27, 34, & ! 5 & 25, 7, 58, 58, 19, 40, 40, 40, 40, 25, & ! 6 & 45, 31, 25, 25, 45, 31, 25, 25, 71, 34, & ! 7 & 72, 0, 72, 75, 34, 41, 0, 41, 79, 79, & ! 8 & 34, 0, 41, 41, 72, 11, 0, 0, 83, 83, & ! 9 & 8, 25, 40, 7, 34, 8, 25, 41, 11, 8, & ! O & 11, 40, 0, 1, 22, 31, 38, 40, 1, 19, & ! 1 & 19, 38, 19, 50, 0, 0, 89, 0, 89, 1, & ! 2 & 0, 27, 36, 36, 18, 49, 46, 24, 31, 24, & ! 3 & 92, 58, 8, 17, 23, 8, 8, 0, 70, 70, & ! 4 & 70, 1, 0, 1, 5, 11, 11, 96, 99, 96, & ! 5 & 99, 96, 99, 101, 101, 101, 96, 99, 96, 0, & ! 6 & 103, 104, 0, 0, 0, 0, 0, 11, 0, 0, & ! 7 & 0, 0, 0, 112, 112, 112, 112, 112, 112, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 123, 0, 125, & ! 9 & 0, 128, 129, 129, 129, 129, 129, 134, 134, 134, & ! O & 134, 134, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 142, 142, 142, 142, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 147, & ! 3 & 88, 9, 147, 147, 0, 0, 0, 0, 0, 0, & ! 4 & 1, 5, 148, 8, 1, 0, 0, 89, 8, 17, & ! 5 & 24, 58, 36, 148, 36, 8, 89, 89, 89, 162, & ! 6 & 0, 148, 3, 1, 1, 5, 89, 36, 8, 89, & ! 7 & 89, 11, 11, 0, 0, 11, 11, 12, 12, 0, & ! 8 & 0, 0, 165, 0, 0, 0, 1, 2, 1, 172, & ! 9 & 5, 148, 149, 165, 89, 0, 1, 165, 0, 165, & ! O & 0, 1, 1, 0, 0, 0, 27, 162, 0, 7, & ! 1 & 3, 0, 2, 1, 5, 173, 173, 0, 89, 148, & ! 2 & 18, 27, 148, 89, 11, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 11, 11, 12, 12, 0, 0, 18, 162, & ! 4 & 11, 18, 162/ ! 5 DATA ( IRR( IRXXN, 6 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 7, & ! 4 & 0, 16, 19, 0, 0, 5, 4, 0, 0, 25, & ! 5 & 25, 0, 0, 5, 4, 0, 0, 0, 0, 0, & ! 6 & 1, 0, 18, 8, 0, 0, 22, 0, 0, 0, & ! 7 & 19, 0, 0, 0, 22, 0, 27, 7, 19, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 36, 36, & ! 9 & 0, 0, 8, 7, 0, 0, 0, 36, 0, 0, & ! O & 0, 19, 17, 8, 0, 19, 0, 31, 36, 31, & ! 1 & 0, 0, 0, 0, 32, 0, 25, 25, 19, 31, & ! 2 & 0, 0, 24, 0, 0, 35, 36, 27, 8, 25, & ! 3 & 8, 38, 38, 31, 25, 25, 27, 31, 57, 31, & ! 4 & 27, 8, 8, 8, 0, 38, 25, 41, 41, 1, & ! 5 & 31, 56, 0, 0, 0, 41, 41, 41, 41, 19, & ! 6 & 66, 32, 31, 31, 66, 32, 31, 31, 19, 40, & ! 7 & 8, 0, 8, 19, 40, 72, 0, 72, 19, 19, & ! 8 & 40, 0, 72, 72, 8, 31, 0, 0, 0, 11, & ! 9 & 27, 8, 25, 17, 25, 36, 19, 7, 0, 83, & ! O & 0, 36, 0, 0, 4, 38, 19, 36, 0, 0, & ! 1 & 0, 45, 0, 25, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 8, 0, 8, 19, 0, 25, 25, 8, 38, & ! 3 & 24, 25, 36, 0, 0, 27, 24, 0, 75, 79, & ! 4 & 79, 0, 0, 0, 0, 0, 0, 97, 0, 97, & ! 5 & 0, 98, 0, 0, 0, 0, 97, 0, 97, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 7, 0, 7, & ! 9 & 0, 0, 130, 130, 130, 130, 130, 135, 135, 135, & ! O & 135, 135, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, & ! 3 & 0, 0, 7, 89, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 36, 0, & ! 5 & 25, 25, 0, 27, 0, 36, 36, 36, 36, 18, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 8, 36, 8, & ! 7 & 8, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 175, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 18, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 27, 27, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 27, 18, & ! 4 & 18, 27, 18/ ! 5 DATA ( IRR( IRXXN, 7 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, & ! 4 & 0, 0, 0, 0, 0, 18, 18, 0, 0, 19, & ! 5 & 19, 0, 0, 24, 7, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 22, 19, 0, 0, 19, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 19, 0, 7, 0, 7, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 8, 0, 0, 0, 8, 0, 0, & ! O & 0, 36, 0, 29, 0, 8, 0, 19, 0, 19, & ! 1 & 0, 0, 0, 0, 19, 0, 19, 23, 17, 19, & ! 2 & 0, 0, 38, 0, 0, 36, 25, 39, 7, 31, & ! 3 & 25, 25, 25, 25, 19, 19, 36, 25, 0, 19, & ! 4 & 58, 27, 25, 25, 0, 23, 31, 18, 40, 31, & ! 5 & 18, 19, 0, 0, 0, 7, 7, 7, 7, 1, & ! 6 & 0, 19, 32, 32, 0, 19, 32, 32, 72, 72, & ! 7 & 18, 0, 19, 72, 41, 77, 0, 77, 77, 77, & ! 8 & 41, 0, 77, 77, 83, 25, 0, 0, 0, 0, & ! 9 & 72, 36, 19, 24, 31, 0, 40, 17, 0, 0, & ! O & 0, 8, 0, 0, 7, 19, 22, 34, 0, 0, & ! 1 & 0, 25, 0, 31, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 32, 32, 27, 31, & ! 3 & 38, 32, 0, 0, 0, 0, 0, 0, 19, 19, & ! 4 & 19, 0, 0, 0, 0, 0, 0, 98, 0, 98, & ! 5 & 0, 0, 0, 0, 0, 0, 98, 0, 98, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 131, 131, 131, 131, 131, 138, 138, 138, & ! O & 138, 138, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 45, 32, 0, 0, 0, 0, 0, 0, 8, 148, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 36, & ! 7 & 36, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 165, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 27, 93, 89/ ! 5 DATA ( IRR( IRXXN, 8 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 19, 19, 0, 0, 0, & ! 5 & 0, 0, 0, 25, 18, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 19, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 8, 0, 7, 0, 0, 0, 8, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 27, 18, 0, 0, & ! 2 & 0, 0, 32, 0, 0, 8, 19, 0, 35, 19, & ! 3 & 36, 31, 19, 32, 36, 0, 7, 32, 0, 8, & ! 4 & 8, 58, 18, 19, 0, 45, 32, 39, 46, 25, & ! 5 & 17, 54, 0, 0, 0, 8, 8, 8, 8, 5, & ! 6 & 0, 27, 19, 19, 0, 27, 19, 19, 7, 8, & ! 7 & 19, 0, 0, 7, 72, 8, 0, 8, 7, 7, & ! 8 & 72, 0, 8, 8, 84, 40, 0, 0, 0, 0, & ! 9 & 0, 17, 0, 36, 32, 0, 0, 27, 0, 0, & ! O & 0, 23, 0, 0, 18, 0, 0, 0, 0, 0, & ! 1 & 0, 19, 0, 19, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 19, 19, 0, 8, & ! 3 & 53, 19, 0, 0, 0, 0, 0, 0, 72, 77, & ! 4 & 77, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 132, 132, 132, 132, 134, 136, 136, 136, & ! O & 136, 136, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 19, 19, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 162, 0/ ! 5 DATA ( IRR( IRXXN, 9 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 7, 0, 0, 0, & ! 5 & 0, 0, 0, 19, 19, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 40, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 39, 19, 0, 0, & ! 2 & 0, 0, 25, 0, 0, 0, 7, 0, 0, 27, & ! 3 & 27, 32, 7, 19, 45, 0, 25, 19, 0, 23, & ! 4 & 25, 0, 22, 0, 0, 7, 19, 17, 36, 39, & ! 5 & 27, 38, 0, 0, 0, 27, 27, 27, 27, 59, & ! 6 & 0, 45, 27, 38, 0, 45, 27, 38, 8, 0, & ! 7 & 0, 0, 0, 25, 77, 18, 0, 19, 25, 25, & ! 8 & 77, 0, 18, 19, 32, 41, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 25, 19, 0, 0, 24, 0, 0, & ! O & 0, 0, 0, 0, 19, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 45, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 45, & ! 3 & 45, 0, 0, 0, 0, 0, 0, 0, 7, 7, & ! 4 & 7, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 133, 134, 134, 134, 135, 137, 137, 137, & ! O & 137, 137, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 91, 0/ ! 5 DATA ( IRR( IRXXN, 10 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 25, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 45, 0, 0, & ! 2 & 0, 0, 19, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 32, 19, 8, 27, 0, 0, 19, 24, 0, 45, & ! 4 & 19, 0, 19, 0, 0, 31, 27, 62, 7, 41, & ! 5 & 53, 0, 0, 0, 0, 35, 1, 36, 36, 27, & ! 6 & 0, 38, 36, 34, 0, 38, 36, 34, 73, 0, & ! 7 & 0, 0, 0, 8, 8, 19, 0, 0, 8, 8, & ! 8 & 8, 0, 19, 0, 19, 62, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 19, 72, 0, 0, 36, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 31, 0, 0, 0, 0, 0, 0, 0, 25, 25, & ! 4 & 25, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 134, 135, 135, 135, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0/ ! 5 DATA ( IRR( IRXXN, 11 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 19, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 50, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 19, 45, 36, 24, 0, 0, 40, 38, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 19, 58, 45, 35, 45, & ! 5 & 45, 0, 0, 0, 0, 36, 36, 45, 45, 39, & ! 6 & 0, 66, 45, 67, 0, 66, 45, 0, 0, 0, & ! 7 & 0, 0, 0, 76, 0, 0, 0, 0, 80, 82, & ! 8 & 0, 0, 0, 0, 0, 32, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 41, 0, 0, 8, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 8, 0, 0, 0, 0, 0, 0, 0, 8, 8, & ! 4 & 8, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 135, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0/ ! 5 DATA ( IRR( IRXXN, 12 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 45, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 45, 0, 40, 38, 0, 0, 41, 45, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 8, 57, 46, 8, 23, & ! 5 & 46, 0, 0, 0, 0, 45, 45, 18, 19, 35, & ! 6 & 0, 0, 38, 0, 0, 0, 38, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 19, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 76, 80, & ! 4 & 82, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 136, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0/ ! 5 DATA ( IRR( IRXXN, 13 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 7, 0, 41, 45, 0, 0, 45, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 36, 0, 36, 17, 19, & ! 5 & 39, 0, 0, 0, 0, 0, 0, 22, 0, 45, & ! 6 & 0, 0, 23, 0, 0, 0, 23, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 137, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0/ ! 5 DATA ( IRR( IRXXN, 14 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 35, 0, 0, 0, 22, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 8, 0, 0, & ! 5 & 19, 0, 0, 0, 0, 0, 0, 19, 0, 53, & ! 6 & 0, 0, 66, 0, 0, 0, 66, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0/ ! 5 DATA ( IRR( IRXXN, 15 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 22, 0, 0, 0, 9, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 19, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 38, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0/ ! 5 DATA ( IRR( IRXXN, 16 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 9, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 34, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0/ ! 5 DATA ( IRR( IRXXN, 17 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 45, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0/ ! 5 DATA ( RTDAT( 1,IRXXN ), IRXXN = 1, NRXNS ) / & & 1.0000D+00, 6.0000D-34, 2.0700D-12, 1.0000D-31, 5.1000D-12, & ! O & 1.3000D-31, 8.0000D-12, 1.0000D+00, 1.0000D+00, 2.2300D-11, & ! + & 2.1400D-10, 1.7000D-12, 2.0300D-16, 2.4000D-11, 3.0000D-11, & ! 1 & 6.2000D-14, 9.0000D-31, 4.8000D-11, 2.2000D-13, 3.0800D-34, & ! + & 1.0000D+00, 1.8000D-12, 1.4000D-12, 4.2500D-39, 3.4500D-12, & ! 2 & 1.4000D-13, 1.0000D+00, 1.0000D+00, 1.8000D-11, 4.5000D-14, & ! + & 1.7000D-11, 2.0000D-11, 4.0000D-12, 1.0000D-17, 8.5000D-13, & ! 3 & 3.6000D-30, 1.3000D-03, 1.0000D+00, 1.0000D-22, 7.4000D-31, & ! + & 5.0000D-40, 1.0000D-20, 1.0000D+00, 2.5000D-12, 1.8000D-30, & ! 4 & 2.4000D-14, 1.0000D+00, 1.4000D-31, 4.1000D-05, 1.0000D+00, & ! + & 3.2000D-13, 2.8000D-31, 7.5000D-12, 3.6100D-28, 1.1000D-05, & ! 5 & 1.0000D+00, 3.1400D-12, 4.4000D-13, 2.9000D-12, 1.0000D+00, & ! + & 6.7000D-12, 8.4000D-01, 8.4000D-01, 1.0000D+00, 1.0000D+00, & ! 6 & 1.0000D+00, 1.0000D+00, 2.4000D-12, 4.8000D-13, 6.5000D-14, & ! + & 2.3000D-12, 3.8000D-13, 2.0000D-12, 1.0000D+00, 2.7000D-12, & ! 7 & 6.8000D-13, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 8 & 1.0000D+00, 5.3000D-12, 1.0000D+00, 5.3000D-12, 1.0000D+00, & ! + & 2.0000D-12, 1.0000D+00, 4.5000D-13, 4.0000D-14, 5.3000D-12, & ! 9 & 5.4000D-12, 1.0000D+00, 1.0000D+00, 3.4000D-11, 5.5000D-16, & ! + & 9.7000D-15, 2.4000D+12, 5.6000D-12, 5.6000D-15, 1.8000D-11, & ! O & 4.7000D-12, 1.4000D-12, 1.0000D+00, 1.3000D-11, 4.9000D-12, & ! + & 6.3000D-15, 1.0000D+00, 8.0000D-12, 1.0000D+00, 1.0000D+00, & ! 1 & 3.1000D-12, 1.0000D+00, 4.0000D-16, 1.0000D+00, 5.0000D-16, & ! + & 1.9000D-12, 7.7000D-12, 1.4400D-13, 1.8500D-12, 6.9000D-12, & ! 2 & 2.8500D-12, 3.0000D-12, 1.0000D+00, 1.0000D+00, 1.4100D-12, & ! + & 7.6000D-12, 8.1000D-13, 5.7000D+12, 1.5000D-14, 8.6000D-12, & ! 3 & 5.0000D-30, 1.0400D-11, 8.6000D-29, 6.8200D-15, 3.3000D-12, & ! + & 1.0000D-11, 8.0000D-27, 5.5000D-15, 4.6000D-13, 2.3000D-11, & ! 4 & 1.0500D-11, 4.7000D-15, 3.7000D-13, 2.7000D-11, 3.0000D-11, & ! + & 2.3900D-12, 7.4300D-13, 1.0000D+00, 1.0000D+00, 3.3000D+09, & ! 5 & 1.0300D-14, 3.0300D-12, 5.5800D-12, 3.8800D-15, 4.1000D-12, & ! + & 1.0000D+00, 2.2300D-11, 1.0000D+00, 6.0000D-12, 5.7800D-11, & ! 6 & 7.4300D-13, 2.3900D-12, 1.0000D+00, 1.0000D+00, 3.1000D-11, & ! + & 3.6000D-11, 1.5000D-11, 1.2000D-15, 3.7000D-12, 3.6000D-11, & ! 7 & 1.5000D-11, 1.2000D-15, 3.7000D-12, 2.3000D-12, 2.7000D-12, & ! + & 1.0000D+00, 1.9000D-13, 1.0000D+00, 1.8000D-12, 2.7000D-12, & ! 8 & 1.0000D+00, 1.9000D-13, 1.0000D+00, 1.8500D-11, 1.8500D-11, & ! + & 2.7000D-12, 1.9000D-13, 1.0000D+00, 1.0000D+00, 1.7000D-12, & ! 9 & 1.4000D-11, 2.1000D-12, 5.5000D-12, 1.5300D-12, 3.8000D-12, & ! + & 1.0000D+00, 5.0000D-02, 9.0000D-11, 1.0800D-16, 3.0000D-12, & ! O & 2.8000D-02, 4.4000D-11, 5.4000D-17, 3.8000D-12, 5.0000D-11, & ! + & 1.7000D-10, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 1 & 1.0000D+00, 1.0000D+00, 3.6000D-11, 3.0000D-12, 1.8500D-12, & ! + & 2.3700D-21, 1.0000D+00, 4.8100D-20, 1.0000D+00, 1.1000D-30, & ! 2 & 1.0000D+00, 1.0000D+00, 2.3000D-11, 1.6300D-14, 6.4000D-12, & ! + & 2.2000D-12, 3.2000D-12, 5.0000D-13, 1.0000D+00, 6.6000D-12, & ! 3 & 5.0000D-11, 1.4000D-10, 8.3000D-11, 1.0700D-10, 2.5000D-10, & ! + & 3.5000D-10, 4.3000D-10, 8.2000D-11, 7.9000D-11, 1.3000D-10, & ! 4 & 5.5000D-11, 8.2000D-11, 6.5800D-13, 6.1000D-11, 1.2000D-10, & ! + & 1.2000D-10, 1.0000D+00, 1.8000D-31, 1.0000D+00, 1.0000D+00, & ! 5 & 1.0000D+00, 1.0000D+00, 2.7000D-12, 1.9000D-13, 2.7000D-12, & ! + & 1.9000D-13, 2.7000D-12, 1.9000D-13, 1.1600D-14, 1.9700D-10, & ! 6 & 1.9000D-11, 2.7000D-12, 1.9000D-13, 2.7000D-12, 1.4000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 7 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 2.6000D-12, 2.6500D-13, & ! 8 & 2.3000D-12, 3.5000D-14, 1.9200D-10, 7.2000D-12, 1.0000D+00, & ! + & 9.2590D-05, 9.4882D-06, 9.4882D-06, 9.4882D-06, 9.4882D-06, & ! 9 & 9.4882D-06, 9.4882D-06, 2.5000D-12, 1.0000D+00, 2.5000D-12, & ! + & 1.0000D+00, 1.2500D-11, 4.0000D-11, 4.0000D-11, 4.0000D-11, & ! O & 4.0000D-11, 4.0000D-11, 4.0000D-11, 4.0000D-11, 4.0000D-11, & ! + & 4.0000D-11, 4.0000D-11, 5.4000D-12, 5.5000D-16, 3.4000D-11, & ! 1 & 1.0000D+00, 1.0000D+00, 8.2000D-11, 4.7000D-12, 1.4000D-12, & ! + & 1.8000D-11, 1.0000D+00, 7.9000D-11, 1.4800D-11, 1.3400D-14, & ! 2 & 1.7900D-13, 2.5100D-10, 2.0000D-11, 2.6100D-19, 1.1500D-15, & ! + & 1.0000D+00, 2.3700D-10, 2.0000D-11, 2.6100D-19, 1.1500D-15, & ! 3 & 1.0000D+00, 2.3700D-10, 1.8000D-12, 6.1000D-11, 2.1100D-18, & ! + & 2.6000D-18, 8.5000D-19, 7.7000D-14, 2.2500D-33, 1.6000D-11, & ! 4 & 4.5000D-12, 4.8000D-12, 6.7000D-12, 1.4000D-12, 2.9000D-14, & ! + & 8.8000D-12, 4.9000D-11, 2.1000D-11, 1.7000D-11, 1.6000D-11, & ! 5 & 5.2000D-31, 4.2000D-31, 4.7000D-12, 1.7000D-11, 1.3000D-11, & ! + & 3.6000D-12, 5.0000D-12, 5.0000D-12, 2.7000D-14, 1.0000D-12, & ! 6 & 2.0000D-12, 9.0000D-13, 9.4000D-13, 2.1000D-12, 1.5000D-14, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 7 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 8 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 2.1000D-11, 1.5000D-11, 2.1000D-10, 1.6000D-11, 5.0000D-12, & ! 9 & 1.4000D-11, 7.1500D-12, 8.4000D-11, 4.7000D-13, 1.5000D-12, & ! + & 9.1000D-11, 1.2000D-11, 2.7000D-11, 1.5000D-11, 4.7000D-12, & ! O & 1.5000D-10, 1.1000D-12, 5.4000D-11, 1.5000D-10, 2.5000D+14, & ! + & 3.8000D-02, 9.9400D+17, 2.1000D+15, 1.8000D-32, 3.0000D-31, & ! 1 & 7.7000D-31, 4.3000D-12, 3.3000D-13, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 2 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 2.7000D-12, & ! 3 & 1.0000D+12, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 4 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.1200D-11, 1.9900D-39, & ! + & 1.9000D-13, 3.4000D-13, 1.7000D-15/ ! 5 DATA ( RTDAT( 2,IRXXN ), IRXXN = 1, NRXNS ) / & & 0.0000D+00,-2.6000D+00, 0.0000D+00,-1.6000D+00, 0.0000D+00, & ! O & -1.5000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 4.5700D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 2.6000D+00,-3.2000D+00, 0.0000D+00, 6.0000D+02, 2.8000D+03, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & -4.1000D+00,-3.5000D+00, 0.0000D+00, 0.0000D+00,-2.4000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00,-3.0000D+00, & ! 4 & 4.6000D+02, 0.0000D+00,-3.1000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00,-2.6000D+00, 0.0000D+00,-6.8700D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 5.9000D+01, & ! + & 0.0000D+00, 5.4000D+01, 5.5000D+01, 0.0000D+00, 5.7000D+01, & ! 6 & 5.8000D+01, 5.9000D+01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 7.0000D+01, 0.0000D+00, & ! 7 & 0.0000D+00, 5.8000D+01, 7.0000D+01, 7.5000D+01, 7.6000D+01, & ! + & 5.8000D+01, 7.0000D+01, 7.5000D+01, 7.6000D+01, 5.8000D+01, & ! 8 & 7.0000D+01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0700D+02, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & -1.5000D+00, 0.0000D+00,-3.1000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00,-3.5000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 5.8000D+01, 7.0000D+01, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 5.8000D+01, 7.0000D+01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 5.8000D+01, 0.0000D+00, 7.0000D+01, 0.0000D+00, 0.0000D+00, & ! 8 & 5.8000D+01, 0.0000D+00, 7.0000D+01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 5.8000D+01, 7.0000D+01, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 6.1000D+01, 6.2000D+01, 6.3000D+01, 5.7000D+01, & ! 1 & 5.9000D+01, 5.8000D+01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 1.1600D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00,-3.4000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & -3.2000D+00,-2.4000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00,-1.0000D+00,-1.0000D+00, & ! 1 & -5.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00,-2.6600D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00/ ! 5 DATA ( RTDAT( 3,IRXXN ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00,-1.4000D+03, 0.0000D+00, 1.9800D+02, & ! O & 0.0000D+00,-2.0600D+03, 0.0000D+00, 0.0000D+00, 1.1500D+02, & ! + & 0.0000D+00,-9.4000D+02, 6.9300D+02, 1.1000D+02, 2.0000D+02, & ! 1 & 9.4500D+02, 0.0000D+00, 2.5000D+02, 1.9000D-33, 2.6600D-54, & ! + & 0.0000D+00, 0.0000D+00,-2.0000D+03, 6.6400D+02, 2.7000D+02, & ! 2 & -2.4700D+03, 0.0000D+00, 0.0000D+00, 1.1000D+02,-1.2600D+03, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00,-2.4500D+03, & ! 3 & 0.0000D+00,-1.1000D+04, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.6000D+02, 0.0000D+00, & ! 4 & 2.7000D-17, 0.0000D+00, 0.0000D+00,-1.0650D+04, 0.0000D+00, & ! + & 6.9000D+02, 0.0000D+00, 2.9000D+02, 0.0000D+00,-1.0100D+04, & ! 5 & 0.0000D+00, 5.8000D+02, 1.0700D+03, 5.0000D+02, 0.0000D+00, & ! + & 3.4000D+02, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 3.6000D+02, 8.0000D+02, 5.0000D+02, & ! + & 3.6000D+02, 7.8000D+02, 5.0000D+02, 0.0000D+00, 3.6000D+02, & ! 7 & 8.0000D+02, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 1.9000D+02, 0.0000D+00, 1.9000D+02, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 8.5000D+02, 1.9000D+02, & ! 9 & 1.3500D+02, 0.0000D+00, 0.0000D+00,-1.6000D+03, 0.0000D+00, & ! + & 6.2500D+02,-7.0000D+03, 0.0000D+00, 2.3000D+03,-1.1000D+03, & ! O & 3.4500D+02,-1.8600D+03, 0.0000D+00,-8.7000D+02, 4.0500D+02, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 3.4000D+02, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 5.7500D+02,-2.1000D+03, 3.4300D-33,-1.6900D+03,-1.0000D+03, & ! 2 & -3.4500D+02, 2.0000D+01, 0.0000D+00, 0.0000D+00,-6.2060D+02, & ! + & -5.8500D+02, 0.0000D+00,-5.7800D+03,-2.0000D+02, 4.0000D+02, & ! 3 & 0.0000D+00,-7.9200D+02, 0.0000D+00,-2.5000D+03,-2.8800D+03, & ! + & -2.8000D+02, 0.0000D+00,-1.8800D+03,-1.1550D+03, 0.0000D+00, & ! 4 & 5.1900D+02,-1.0130D+03, 0.0000D+00, 3.9000D+02, 0.0000D+00, & ! + & 3.6500D+02, 7.0000D+02, 0.0000D+00, 0.0000D+00,-8.3000D+03, & ! 5 & -1.9950D+03,-4.4800D+02, 5.1100D+02,-1.7700D+03,-1.8600D+03, & ! + & 0.0000D+00, 3.7200D+02, 0.0000D+00,-1.8600D+03,-4.0000D+02, & ! 6 & 7.0000D+02, 3.6500D+02, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 4.4900D+02,-8.2100D+02, 1.7500D+02, 0.0000D+00, & ! 7 & 4.4900D+02,-8.2100D+02, 1.7500D+02,-1.9000D+02, 3.6000D+02, & ! + & 0.0000D+00, 1.3000D+03, 0.0000D+00, 3.4000D+02, 3.6000D+02, & ! 8 & 0.0000D+00, 1.3000D+03, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 3.6000D+02, 1.3000D+03, 0.0000D+00, 0.0000D+00, 9.5000D+02, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00,-5.0000D+02, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00,-5.0000D+02, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00,-1.6900D+03, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00,-2.0000D+02, 0.0000D+00, 2.9000D+02, & ! + & 3.4000D+02,-1.1000D+02, 0.0000D+00, 0.0000D+00,-1.2400D+03, & ! 3 & 0.0000D+00, 0.0000D+00,-1.0000D+02, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00,-3.4000D+01, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 4.5000D+01, 5.8000D+01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 3.6000D+02, 1.3000D+03, 3.6000D+02, & ! + & 1.3000D+03, 3.6000D+02, 1.3000D+03, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 3.6000D+02, 1.3000D+03, 3.7400D+02, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 3.8000D+02, 1.3000D+03, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 1.3500D+02, 0.0000D+00,-1.6000D+03, & ! 1 & 0.0000D+00, 0.0000D+00,-3.4000D+01, 3.4500D+02,-1.8600D+03, & ! + & -1.1000D+03, 0.0000D+00, 0.0000D+00, 4.4800D+02,-2.2830D+03, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 3.4000D+02, 0.0000D+00,-1.2565D+03, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 6.8000D+02,-7.8000D+02, & ! 4 & 4.6000D+02,-3.1000D+02, 1.5500D+02, 2.1000D+02, 8.4000D+02, & ! + & 2.6000D+02, 0.0000D+00, 2.4000D+02, 2.5000D+02, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 3.2000D+02,-8.0000D+02,-3.6000D+02, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.6000D+03,-3.8800D+02, & ! 6 & -8.4000D+02,-4.2000D+02,-5.1000D+02,-8.8000D+02, 1.0000D+03, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & -8.3000D+02,-1.0900D+03, 0.0000D+00, 4.4000D+02, 0.0000D+00, & ! 9 & 5.4000D+02, 3.0000D+02,-2.6200D+03,-1.6700D+03, 0.0000D+00, & ! + & -1.4600D+02, 0.0000D+00, 0.0000D+00, 5.1000D+02, 2.8000D+02, & ! O & 0.0000D+00, 5.4200D+02, 1.8000D+02, 0.0000D+00,-9.7700D+03, & ! + & 0.0000D+00,-1.1859D+04,-1.3670D+04, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00,-1.1200D+03,-9.2500D+02, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & -9.7700D+03, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00,-2.5000D+02, 5.2700D+03, & ! + & 5.2000D+02, 2.0810D+03, 3.4000D+02/ ! 5 INTEGER :: IRRFALL( NFALLOFF ) DATA ( IRRFALL( IRXXN ), IRXXN = 1, NFALLOFF ) / & & 4, 6, 17, 19, 20, 36, 37, 40, 45, 46, & & 48, 49, 52, 54, 55, 123, 136, 138, 142, 221, & & 223, 253, 356, 357, 414, 415, 416, 450/ DATA ( RFDAT( 1,IRXXN ), IRXXN = 1, NFALLOFF ) / & & 5.0000D-11, 2.3000D-11, 3.9000D-11, 9.8000D+02, 3.1800D+03, & & 1.9000D-12, 9.7000D+14, 3.3000D-11, 2.8000D-11, 2.1990D+03, & & 4.0000D-12, 6.0000D+15, 2.0000D-12, 1.2400D-11, 1.9000D+17, & & 0.0000D+00, 1.0000D-12, 9.0000D-12, 3.0000D-11, 4.0700D-01, & & 4.0700D-01, 1.5000D-11, 6.9000D-12, 2.7000D-11, 1.7000D-11, & & 6.6000D-11, 1.6000D-11, 1.2600D-10/ DATA ( RFDAT( 2,IRXXN ), IRXXN = 1, NFALLOFF ) / & & 3.0000D-01, 2.4000D-01,-4.7000D-01, 0.0000D+00, 0.0000D+00, & & 2.0000D-01, 1.0000D-01,-3.0000D-01, 0.0000D+00, 6.5000D-34, & & 0.0000D+00, 0.0000D+00, 0.0000D+00,-1.1050D+00, 0.0000D+00, & & 0.0000D+00, 0.0000D+00,-8.5000D-01,-1.0000D+00,-8.0000D+00, & & -8.0000D+00,-1.9000D+00,-2.9000D+00, 0.0000D+00, 0.0000D+00, & & 0.0000D+00, 0.0000D+00, 0.0000D+00/ DATA ( RFDAT( 3,IRXXN ), IRXXN = 1, NFALLOFF ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & & 0.0000D+00,-1.1080D+04, 0.0000D+00, 0.0000D+00, 1.3350D+03, & & 0.0000D+00,-1.1170D+04, 0.0000D+00, 0.0000D+00,-1.4100D+04, & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & & 0.0000D+00, 0.0000D+00,-3.4000D+02/ DATA ( RFDAT( 4,IRXXN ), IRXXN = 1, NFALLOFF ) / & & 8.5000D-01, 6.0000D-01, 4.2000D-01, 0.0000D+00, 0.0000D+00, & & 3.5000D-01, 3.5000D-01, 8.1000D-01, 6.0000D-01, 0.0000D+00, & & 4.0000D-01, 4.0000D-01, 5.3000D-01, 3.0000D-01, 3.0000D-01, & & 0.0000D+00, 3.7000D-01, 4.8000D-01, 5.0000D-01, 4.1000D-01, & & 4.1000D-01, 6.0000D-01, 6.0000D-01, 6.0000D-01, 6.0000D-01, & & 6.3000D-01, 4.0000D-01, 1.0000D+00/ DATA ( RFDAT( 5,IRXXN ), IRXXN = 1, NFALLOFF ) / & & 8.4000D-01, 1.0300D+00, 1.2300D+00, 0.0000D+00, 0.0000D+00, & & 1.3300D+00, 1.3300D+00, 8.7000D-01, 1.0000D+00, 0.0000D+00, & & 1.2600D+00, 1.2600D+00, 1.1000D+00, 1.4100D+00, 1.4100D+00, & & 0.0000D+00, 1.3000D+00, 1.1500D+00, 1.1300D+00, 1.0000D+00, & & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & & 1.0000D+00, 1.0000D+00, 1.0000D+00/ REAL( 8 ) :: SC( NRXNS,MXPRD ) DATA ( SC( IRXXN, 1 ), IRXXN = 1, NRXNS ) / & & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! O & 1.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 2.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 1 & 1.0000D+00, 1.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 2.0000D+00, 1.0000D+00, 1.0000D+00, 2.0000D+00, 1.0000D+00, & ! 2 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 2.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 2.0000D+00, & ! 3 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 2.0000D+00, 1.0000D+00, & ! + & 2.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 4 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 5.9000D-01, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 5 & 6.0000D-01, 3.7000D-01, 1.0000D+00, 2.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 6.0000D-01, 3.7000D-01, & ! 6 & 1.0000D+00, 2.0000D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00, & ! + & 1.0000D+00, 9.0000D-01, 1.0000D+00, 6.8500D-01, 1.0000D+00, & ! 7 & 1.0000D+00, 8.0000D-01, 6.0000D-01, 1.0000D+00, 1.0000D+00, & ! + & 8.0000D-01, 1.0000D+00, 5.0000D-01, 1.0000D+00, 8.0000D-01, & ! 8 & 1.0000D+00, 6.0000D-01, 1.0000D+00, 5.4000D-01, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 9 & 1.0000D+00, 2.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 5.0000D-01, 1.0000D+00, & ! O & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 2.0000D-01, 7.4000D-01, 1.0000D+00, & ! 1 & 1.8000D+00, 2.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 9.9100D-01, & ! 2 & 1.0000D+00, 9.5000D-01, 5.0000D-01, 3.8000D-01, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 2.0000D-01, 1.0000D+00, 1.0000D+00, & ! 3 & 7.0000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 5.0000D-01, & ! + & 2.0000D-01, 7.8100D-01, 2.9500D-01, 5.0000D-01, 1.2400D+00, & ! 4 & 1.3000D+00, 7.3200D-01, 5.0000D-01, 1.0000D+00, 7.5000D-01, & ! + & 1.0000D-01, 8.8000D-01, 5.9800D-01, 5.9800D-01, 1.0000D+00, & ! 5 & 6.0000D-01, 3.5000D-01, 2.2000D-02, 4.0000D-02, 7.1700D-01, & ! + & 7.6000D-01, 9.0400D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 6 & 2.7500D-01, 2.7500D-01, 2.2000D-01, 2.7500D-01, 6.3000D-01, & ! + & 1.5000D-01, 7.5000D-01, 5.7000D-01, 4.7000D-01, 1.5000D-01, & ! 7 & 7.5000D-01, 5.7000D-01, 4.7000D-01, 5.3000D-01, 9.1800D-01, & ! + & 1.0000D+00, 0.0000D+00, 1.0000D+00, 1.8000D-01, 8.6000D-01, & ! 8 & 4.8000D-01, 0.0000D+00, 4.8000D-01, 1.5500D-01, 1.5500D-01, & ! + & 8.6000D-01, 0.0000D+00, 2.6000D-01, 2.6000D-01, 2.5000D-02, & ! 9 & 3.0000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 4.0000D-01, 1.0000D+00, 1.2000D+00, 5.0000D-01, & ! O & 1.0000D+00, 6.0000D-01, 1.4000D+00, 1.0000D+00, 1.4000D-01, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 3.7000D-01, & ! 1 & 1.0000D+00, 8.0000D-01, 5.0000D-01, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 7.3200D-01, 1.0000D+00, 1.2600D-01, 1.0000D+00, & ! 2 & 2.0000D+00, 1.0000D+00, 1.0000D+00, 3.0000D-01, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 3 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 3.0000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 4 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 5 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 6 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 7 & 1.0000D+00, 1.0000D+00, 5.0000D-01, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 8 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00, & ! + & 1.0000D+00, 9.0700D-01, 9.2500D-01, 9.4300D-01, 5.0000D-01, & ! 9 & 5.0000D-01, 1.5000D+00, 1.2500D+00, 1.0000D+00, 1.2500D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! O & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 2 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 0.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 3 & 0.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 5.0000D-01, & ! + & 1.0000D+00, 1.0000D+00, 5.0000D-01, 5.0000D-01, 1.0000D+00, & ! 4 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 2.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 5 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 8.0000D-01, 3.0000D+00, & ! 6 & 2.0000D+00, 2.0000D+00, 1.0000D+00, 1.0000D+00, 7.5000D-01, & ! + & 2.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 7 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 3.0000D+00, 2.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 8 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 9 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! O & 1.0000D+00, 1.0000D+00, 4.0000D-01, 1.0000D+00, 1.0000D+00, & ! + & 2.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 1 & 1.0000D+00, 1.0000D+00, 7.5000D-01, 2.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 2 & 1.0000D+00, 1.0000D+00, 2.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 2.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 3 & 2.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 4 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 7.5000D-01, & ! + & 1.0000D+00, 8.6000D-01, 7.5000D-01/ ! 5 DATA ( SC( IRXXN, 2 ), IRXXN = 1, NRXNS ) / & & 1.0000D+00, 1.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, 1.0000D+00, & ! 2 & 0.0000D+00, 1.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, & ! + & 0.0000D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 1.0000D+00, 0.0000D+00, 1.0000D+00, 5.9000D-01, & ! + & 0.0000D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00, 1.0000D+00, & ! 5 & 6.0000D-01, 1.3000D-01, 0.0000D+00, 2.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 0.0000D+00, 1.0000D+00, 6.0000D-01, 1.3000D-01, & ! 6 & 0.0000D+00, 2.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 1.0000D+00, 1.0000D-01, 9.0000D-01, 3.1500D-01, 1.0000D+00, & ! 7 & 0.0000D+00, 8.0000D-01, 1.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 2.0000D-01, 0.0000D+00, 5.0000D-01, 0.0000D+00, 8.0000D-01, & ! 8 & 0.0000D+00, 6.0000D-01, 1.0000D+00, 6.0000D-02, 1.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, & ! 9 & 1.0000D+00, 1.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 0.0000D+00, 1.0000D+00, 1.0000D+00, 5.0000D-01, 1.0000D+00, & ! O & 0.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 2.0000D-01, 8.9000D-01, 1.0000D+00, & ! 1 & 2.0000D-01, 2.0000D+00, 1.5000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, 9.9100D-01, & ! 2 & 1.0000D+00, 9.0000D-01, 5.0000D-01, 1.3800D+00, 1.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 4.2000D-01, 1.0000D+00, 0.0000D+00, & ! 3 & 7.0000D-01, 1.0000D+00, 1.0000D+00, 3.5000D-01, 5.0000D-01, & ! + & 3.0000D-01, 4.8800D-01, 5.5500D-01, 5.0000D-01, 6.6000D-01, & ! 4 & 7.0000D-01, 4.4200D-01, 5.0000D-01, 1.0000D+00, 5.0000D-01, & ! + & 9.0000D-01, 1.2000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 5 & 6.5000D-01, 6.5000D-01, 5.2100D-01, 2.3100D-01, 1.4200D-01, & ! + & 3.4000D-01, 9.3300D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 6 & 2.7500D-01, 2.7500D-01, 2.2000D-01, 2.7500D-01, 3.7000D-01, & ! + & 5.1200D+00, 5.0000D-01, 7.0000D-02, 2.8000D-01, 5.1200D+00, & ! 7 & 5.0000D-01, 7.0000D-02, 2.8000D-01, 3.5200D-01, 8.2000D-02, & ! + & 1.0000D+00, 0.0000D+00, 1.0000D+00, 6.5000D-01, 1.4000D-01, & ! 8 & 5.2000D-01, 0.0000D+00, 5.2000D-01, 5.4400D-01, 5.4400D-01, & ! + & 1.4000D-01, 0.0000D+00, 7.7000D-01, 7.7000D-01, 2.5000D-02, & ! 9 & 1.0000D+00, 0.0000D+00, 0.0000D+00, 5.0000D-01, 5.0000D-01, & ! + & 1.0000D+00, 1.0000D+00, 4.0000D-01, 5.0000D-01, 5.0000D-01, & ! O & 1.0000D+00, 4.0000D-01, 2.4000D-01, 1.0000D+00, 2.0000D-01, & ! + & 1.0000D+00, 5.0000D-01, 0.0000D+00, 1.0000D+00, 1.3000D-01, & ! 1 & 1.0000D+00, 8.0000D-01, 5.0000D-01, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 2.6800D-01, 1.0000D+00, 8.7400D-01, 0.0000D+00, & ! 2 & 0.0000D+00, 1.0000D+00, 0.0000D+00, 1.4000D+00, 1.0000D+00, & ! + & 0.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 3 & 1.0000D+00, 1.0000D+00, 9.9100D-01, 2.0000D+00, 3.3000D-01, & ! + & 7.0000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 4 & 1.0000D+00, 1.0000D+00, 0.0000D+00, 1.8000D-01, 1.5500D-01, & ! + & 1.5500D-01, 1.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, & ! 5 & 1.0000D+00, 1.0000D+00, 1.6000D-02, 1.4000D-01, 1.5000D-02, & ! + & 1.9300D-01, 3.4000D-02, 1.4600D-01, 1.0000D+00, 1.0000D+00, & ! 6 & 1.0000D+00, 2.8000D-02, 4.7300D-01, 6.0000D-03, 0.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 5.0000D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 6.8800D-01, 1.0000D+00, & ! 8 & 4.2200D-01, 7.1100D-01, 3.7000D-01, 2.4000D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, 1.0000D+00, & ! + & 0.0000D+00, 1.0000D+00, 4.8570D-01, 3.0030D-01, 3.8560D-01, & ! O & 2.1810D-01, 2.4120D-01, 6.6640D-01, 2.8580D-01, 3.3030D-01, & ! + & 3.4440D-01, 3.8860D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 5.8000D-01, 5.2000D-01, & ! 2 & 4.5000D-02, 5.8000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 5.0000D-01, & ! + & 1.0000D+00, 1.0000D+00, 5.0000D-01, 5.0000D-01, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 2.0000D-01, 1.0000D+00, & ! 6 & 1.0000D+00, 1.0000D+00, 2.0000D+00, 1.0000D+00, 2.5000D-01, & ! + & 0.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 7 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 2.0000D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 1.0000D+00, 2.0000D+00, 2.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! O & 0.0000D+00, 1.0000D+00, 4.0000D-01, 0.0000D+00, 1.0000D+00, & ! + & 0.0000D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 1.0000D+00, 2.5000D-01, 0.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 2 & 1.0000D+00, 1.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 4 & 1.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, 2.5000D-01, & ! + & 1.0000D+00, 1.0000D+00, 2.5000D-01/ ! 5 DATA ( SC( IRXXN, 3 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 4.1000D-01, & ! + & 0.0000D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 4.0000D-01, 1.3000D-01, 0.0000D+00, 0.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 0.0000D+00, 0.0000D+00, 4.0000D-01, 1.3000D-01, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 1.0000D+00, 0.0000D+00, 9.0000D-01, 3.7000D-01, 0.0000D+00, & ! 7 & 0.0000D+00, 2.0000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 8.0000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.0000D-01, & ! 8 & 0.0000D+00, 4.0000D-01, 1.0000D+00, 6.0000D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 1.0000D+00, 2.0000D-01, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 1.0000D+00, 8.0000D-01, 1.4000D+00, 0.0000D+00, & ! 1 & 2.0000D-01, 0.0000D+00, 5.0000D-01, 1.0000D+00, 1.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 9.0000D-03, & ! 2 & 0.0000D+00, 1.0000D-01, 5.0000D-01, 1.3800D+00, 1.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 7.4000D-01, 0.0000D+00, 0.0000D+00, & ! 3 & 3.0000D-01, 1.0000D+00, 1.5600D+00, 2.7000D-01, 5.0000D-01, & ! + & 1.0000D-01, 4.8800D-01, 2.7000D-01, 4.8000D-01, 1.0000D-01, & ! 4 & 1.0000D+00, 1.2800D-01, 4.8000D-01, 1.0000D+00, 2.5000D-01, & ! + & 6.7300D-01, 1.2000D-01, 7.2800D-01, 7.2800D-01, 0.0000D+00, & ! 5 & 1.5000D-01, 6.4000D-01, 1.1500D-01, 5.3100D-01, 1.4200D-01, & ! + & 1.6000D-01, 6.7000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 2.7500D-01, 2.7500D-01, 2.2000D-01, 2.7500D-01, 1.0000D+00, & ! + & 1.0000D+00, 2.5000D-01, 6.9000D-01, 7.5000D-01, 1.0000D+00, & ! 7 & 2.5000D-01, 6.9000D-01, 7.5000D-01, 3.5200D-01, 9.1800D-01, & ! + & 1.0000D+00, 0.0000D+00, 1.0000D+00, 7.2000D-01, 4.1700D-01, & ! 8 & 7.7000D-01, 0.0000D+00, 7.7000D-01, 6.0200D-01, 6.0200D-01, & ! + & 2.2100D-01, 0.0000D+00, 3.5000D-01, 3.5000D-01, 1.0000D+00, & ! 9 & 4.8000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 7.0000D-01, 2.0000D+00, 6.0000D-01, 4.5000D-01, & ! O & 1.0000D+00, 4.0000D-01, 5.0000D-01, 0.0000D+00, 5.0000D-01, & ! + & 0.0000D+00, 5.0000D-01, 0.0000D+00, 0.0000D+00, 1.3000D-01, & ! 1 & 1.0000D+00, 1.8000D+00, 1.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 2.6800D-01, 0.0000D+00, 1.2600D-01, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 1.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, & ! 3 & 0.0000D+00, 9.7000D-01, 9.9100D-01, 1.0000D+00, 6.7000D-01, & ! + & 4.5000D-01, 9.6000D-01, 1.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 1.0000D+00, 1.0000D+00, 0.0000D+00, 6.5000D-01, 5.4400D-01, & ! + & 5.4400D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 5.1000D-02, 0.0000D+00, 2.3000D-02, & ! + & 0.0000D+00, 3.9200D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 2.2500D-01, 0.0000D+00, 5.2000D-02, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, 1.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 6.2000D-03, 2.8620D-01, 9.5000D-02, & ! O & 3.0630D-01, 2.0890D-01, 1.4300D-02, 3.9310D-01, 2.2720D-01, & ! + & 2.7490D-01, 2.4210D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, & ! + & 1.0000D+00, 9.6000D-01, 0.0000D+00, 1.0000D+00, 0.0000D+00, & ! 6 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 6.0000D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 4.5000D-01, 1.0000D+00/ ! 5 DATA ( SC( IRXXN, 4 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 4.1000D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 4.0000D-01, 5.0000D-01, 0.0000D+00, 0.0000D+00, 2.0000D+00, & ! + & 1.0000D+00, 0.0000D+00, 0.0000D+00, 4.0000D-01, 5.0000D-01, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 1.0000D-01, 1.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 8.0000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 8.0000D-01, & ! 8 & 0.0000D+00, 4.0000D-01, 0.0000D+00, 4.0000D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.0000D-01, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 1.0000D+00, 0.0000D+00, 1.5000D-01, 0.0000D+00, & ! 1 & 1.0000D+00, 0.0000D+00, 5.0000D-01, 0.0000D+00, 1.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, & ! 2 & 0.0000D+00, 1.0000D-01, 5.0000D-01, 6.2000D-01, 1.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 3.7000D-01, 0.0000D+00, 0.0000D+00, & ! 3 & 3.0000D-01, 7.0000D-01, 2.2000D-01, 1.7000D-01, 5.0000D-01, & ! + & 2.0000D-01, 9.7600D-01, 1.5000D-01, 4.8000D-01, 1.0000D-01, & ! 4 & 1.0000D+00, 2.4500D-01, 4.8000D-01, 0.0000D+00, 2.5000D-01, & ! + & 9.0000D-01, 1.2000D-01, 7.2000D-02, 7.2000D-02, 0.0000D+00, & ! 5 & 2.0000D-01, 3.3000D-01, 1.1500D-01, 1.7000D-01, 1.4200D-01, & ! + & 3.4000D-01, 6.7000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 1.1250D+00, 1.2500D-01, 1.0000D-01, 1.2500D-01, 4.4400D-01, & ! + & 0.0000D+00, 1.5000D+00, 1.8000D-01, 2.5000D-01, 0.0000D+00, & ! 7 & 1.5000D+00, 1.8000D-01, 2.5000D-01, 1.1800D-01, 9.1800D-01, & ! + & 1.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D-01, 4.4300D-01, & ! 8 & 2.3000D-01, 0.0000D+00, 2.3000D-01, 2.4400D-01, 2.4400D-01, & ! + & 6.7500D-01, 0.0000D+00, 6.5000D-01, 6.5000D-01, 2.0000D-01, & ! 9 & 1.2000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 1.0000D+00, 7.0000D-01, 2.0000D+00, 1.0000D-01, 4.5000D-01, & ! O & 0.0000D+00, 4.0000D-01, 1.2000D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 8.0000D-01, 0.0000D+00, 0.0000D+00, 5.0000D-01, & ! 1 & 2.0000D+00, 2.0000D-01, 5.0000D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 1.0000D+00, 0.0000D+00, 8.7400D-01, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 3.0000D-02, 9.0000D-03, 1.0000D+00, 2.0000D+00, & ! + & 5.5000D-01, 4.0000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 7.2000D-01, 6.0200D-01, & ! + & 6.0200D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 4.7000D-02, 0.0000D+00, 6.0000D-02, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 1.9100D-01, 0.0000D+00, 8.1000D-02, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 2.5000D-03, 4.1000D-03, 1.3730D-01, & ! O & 1.5300D-02, 3.0000D-01, 1.2300D-02, 1.3900D-02, 2.6070D-01, & ! + & 4.9100D-02, 6.4000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & -1.0000D+00, 4.0000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 1.0000D+00, 4.5000D-01, 1.0000D+00/ ! 5 DATA ( SC( IRXXN, 5 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 4.0000D-01, 5.0000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 4.0000D-01, 5.0000D-01, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 9.0000D-01, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 1.0000D+00, 0.0000D+00, 1.9000D-01, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 7.8000D-02, 5.0000D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 4.0000D-02, 0.0000D+00, 0.0000D+00, & ! 3 & 3.0000D-01, 7.0000D-01, 0.0000D+00, 4.2000D-01, 1.0000D+00, & ! + & 2.0000D-01, 1.9500D-01, 1.5000D-01, 4.0000D-02, 1.0000D-01, & ! 4 & 0.0000D+00, 5.0000D-01, 4.0000D-02, 0.0000D+00, 2.5000D-01, & ! + & 8.1800D-01, 1.2000D-01, 8.0000D-01, 1.0720D+00, 0.0000D+00, & ! 5 & 3.5000D-01, 3.0000D-02, 2.6900D-01, 1.7000D-01, 1.4200D-01, & ! + & 2.0800D-01, 2.9000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 8.2500D-01, 8.2500D-01, 6.6000D-01, 8.2500D-01, 1.8500D-01, & ! + & 0.0000D+00, 2.8000D-01, 9.4000D-01, 1.2800D+00, 0.0000D+00, & ! 7 & 2.8000D-01, 9.4000D-01, 1.2800D+00, 1.1800D-01, 9.1800D-01, & ! + & 1.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D-01, 6.6000D-01, & ! 8 & 1.0000D+00, 0.0000D+00, 1.0000D+00, 2.4400D-01, 2.4400D-01, & ! + & 3.0000D-01, 0.0000D+00, 1.0000D+00, 1.0000D+00, 7.3200D-01, & ! 9 & 2.4000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 3.0000D-01, 0.0000D+00, 5.0000D-01, 1.0000D-01, & ! O & 0.0000D+00, 0.0000D+00, 8.0000D-02, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 2.0000D-01, 0.0000D+00, 0.0000D+00, 5.0000D-01, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 1.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00, 1.0000D+00, & ! + & 3.0000D-01, 1.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D-01, 2.4400D-01, & ! + & 2.4400D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 2.6000D-03, 3.5000D-03, 5.0000D-04, & ! O & 1.0430D-01, 2.0280D-01, 1.2390D-01, 1.0270D-01, 7.0200D-02, & ! + & 2.5770D-01, 3.8500D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 1.4000D-01, 0.0000D+00/ ! 5 DATA ( SC( IRXXN, 6 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 5.0000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 4.0000D-01, 5.0000D-01, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.1000D-01, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 1.1000D-02, 1.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 9.4000D-01, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 3.0000D-01, 0.0000D+00, 0.0000D+00, 1.1250D+00, & ! + & 2.0000D-01, 2.4000D-02, 3.3400D-01, 1.0000D+00, 1.0000D-01, & ! 4 & 0.0000D+00, 3.0000D-01, 1.0000D+00, 0.0000D+00, 2.5000D-01, & ! + & 8.2000D-02, 0.0000D+00, 2.0000D-01, 0.0000D+00, 0.0000D+00, & ! 5 & 2.6600D-01, 1.0000D+00, 2.6900D-01, 5.4300D-01, 1.1300D-01, & ! + & 2.6000D-01, 2.9000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 3.7500D-01, 3.7500D-01, 3.0000D-01, 3.7500D-01, 1.0400D-01, & ! + & 0.0000D+00, 1.6600D+00, 2.4000D-01, 4.7000D-01, 0.0000D+00, & ! 7 & 1.6600D+00, 2.4000D-01, 4.7000D-01, 5.3000D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 7.0000D-02, 2.0000D-01, & ! 8 & 1.0000D+00, 0.0000D+00, 1.0000D+00, 5.8000D-02, 5.8000D-02, & ! + & 5.6000D-01, 0.0000D+00, 1.0000D+00, 1.0000D+00, 2.0000D-02, & ! 9 & 2.4000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 3.0000D-01, 1.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 2.0000D-02, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 5.0000D-01, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00,-1.2600D-01, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00,-1.0000D+00, & ! + & 3.0000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D-01, 2.4400D-01, & ! + & 2.4400D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 2.3000D-03, 2.2390D-01, 2.0510D-01, & ! O & 1.8930D-01, 4.7100D-02, 1.8310D-01, 2.0450D-01, 1.1160D-01, & ! + & 7.3900D-02, 2.6670D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 5.5000D-01, 0.0000D+00/ ! 5 DATA ( SC( IRXXN, 7 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.1000D-01, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00,-2.5000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 9.8000D-01, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 1.0000D-02, 1.1950D+00, 8.0000D-02, 5.0000D-01, 0.0000D+00, & ! 4 & 0.0000D+00, 3.0000D-01, 5.0000D-01, 0.0000D+00, 2.5000D-01, & ! + & 8.2000D-02, 0.0000D+00, 8.7200D-01, 0.0000D+00, 0.0000D+00, & ! 5 & 2.0000D-01, 3.5000D-01, 4.5700D-01, 4.6100D-01, 1.1300D-01, & ! + & 2.4000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 7.4000D-02, 1.0000D+00, 2.0000D-01, 2.5100D-01, 5.9200D-01, & ! + & 0.0000D+00, 4.7000D-01, 1.0000D-03, 5.3000D-01, 0.0000D+00, & ! 7 & 4.7000D-01, 1.0000D-03, 5.3000D-01, 1.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.8000D-01, 8.6000D-01, & ! 8 & 1.0000D+00, 0.0000D+00, 0.0000D+00, 1.5500D-01, 1.5500D-01, & ! + & 8.6000D-01, 0.0000D+00, 1.0000D+00, 0.0000D+00, 2.0000D-02, & ! 9 & 4.8000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 3.0000D-01, 2.5000D-01, & ! O & 0.0000D+00, 0.0000D+00, 1.9800D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 1.7000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 7.0000D-02, 5.8000D-02, & ! + & 5.8000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 2.9440D-01, 1.8200D-01, 1.7640D-01, & ! O & 1.6680D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00/ ! 5 DATA ( SC( IRXXN, 8 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.1000D-01, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 2.0000D-02, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 2.1000D-01,-7.3000D-01, 3.7800D-01, 2.5000D-01, 0.0000D+00, & ! 4 & 0.0000D+00, 2.4000D-01, 6.2500D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 2.0000D-01, 3.5000D-01, 1.1700D-01, 1.5000D-01, 7.1700D-01, & ! + & 2.4000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 2.5100D-01, 2.5100D-01, 1.7400D+00, 2.1750D+00, 3.3100D-01, & ! + & 0.0000D+00, 1.0000D+00, 7.0000D+00, 1.0000D+00, 0.0000D+00, & ! 7 & 1.0000D+00, 7.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 1.0000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.5000D-01, & ! O & 0.0000D+00, 0.0000D+00, 5.6000D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 1.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.8000D-01, 1.5500D-01, & ! + & 1.5500D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 2.0210D-01, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00/ ! 5 DATA ( SC( IRXXN, 9 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00,-2.7000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 2.0000D-01, 0.0000D+00, 7.5000D-02, 3.7500D-01, 0.0000D+00, & ! 4 & 0.0000D+00, 6.0000D-02, 1.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 6.6000D-02, 1.0000D+00, 1.3700D-01, 3.9800D-01, 7.1700D-01, & ! + & 1.7000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 2.1750D+00, 2.1750D+00, 8.0000D-01, 1.0000D+00, 1.8500D-01, & ! + & 0.0000D+00, 0.0000D+00, 2.1000D-01, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 2.1000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 7.0000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 1.9000D-03, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00/ ! 5 DATA ( SC( IRXXN, 10 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 1.0000D-01, 0.0000D+00, 7.5000D-02,-1.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 2.9000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 6.6000D-02, 0.0000D+00, 1.3700D-01, 1.4300D-01, 2.8400D-01, & ! + & 1.2800D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 2.0000D-01, 0.0000D+00, 2.7000D+00, & ! + & 0.0000D+00, 0.0000D+00, 3.9000D-01, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 3.9000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 2.3000D-03, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00/ ! 5 DATA ( SC( IRXXN, 11 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 9.0000D-02, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 8.0000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 1.3700D-01, 0.0000D+00, 0.0000D+00, & ! + & 8.4000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 8.0000D-01, 0.0000D+00, 9.8000D-02, & ! + & 0.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 1.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00/ ! 5 DATA ( SC( IRXXN, 12 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 1.3000D-01, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 8.0000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 6.5800D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 7.8000D-02, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00/ ! 5 DATA ( SC( IRXXN, 13 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 4.0000D-02, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.6600D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00/ ! 5 DATA ( SC( IRXXN, 14 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00,-7.9000D-01, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00/ ! 5 INTEGER :: NREACT( NRXNS ) DATA ( NREACT( IRXXN ), IRXXN = 1, NRXNS ) / & & 1, 1, 2, 2, 2, 2, 2, 1, 1, 1, & ! O & 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 1 & 1, 2, 2, 2, 2, 2, 1, 1, 2, 2, & ! 2 & 2, 2, 2, 2, 2, 2, 1, 1, 1, 2, & ! 3 & 2, 2, 1, 2, 2, 2, 1, 2, 1, 1, & ! 4 & 2, 2, 2, 2, 1, 1, 2, 2, 2, 2, & ! 5 & 2, 2, 1, 1, 2, 2, 2, 2, 2, 2, & ! 6 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 7 & 2, 2, 2, 2, 2, 2, 2, 1, 2, 1, & ! 8 & 2, 1, 2, 2, 2, 2, 1, 1, 2, 2, & ! 9 & 2, 1, 2, 2, 2, 2, 2, 1, 2, 2, & ! O & 2, 1, 2, 1, 2, 2, 1, 2, 1, 2, & ! 1 & 2, 1, 2, 1, 2, 2, 2, 1, 1, 2, & ! 2 & 2, 2, 1, 1, 2, 2, 2, 2, 2, 2, & ! 3 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 4 & 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, & ! 5 & 1, 2, 1, 2, 2, 2, 2, 2, 2, 2, & ! 6 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 7 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 8 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 9 & 1, 1, 2, 2, 2, 1, 2, 2, 2, 2, & ! O & 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, & ! 1 & 1, 1, 1, 1, 2, 1, 1, 2, 2, 2, & ! 2 & 2, 2, 2, 1, 1, 2, 2, 2, 2, 2, & ! 3 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 4 & 2, 1, 2, 1, 1, 1, 1, 2, 2, 2, & ! 5 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, & ! 6 & 1, 1, 1, 1, 2, 2, 2, 1, 1, 2, & ! 7 & 1, 1, 1, 2, 2, 2, 2, 2, 2, 1, & ! 8 & 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, & ! 9 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! O & 2, 2, 2, 2, 2, 1, 1, 2, 2, 2, & ! 1 & 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, & ! 2 & 1, 2, 2, 2, 2, 1, 2, 2, 2, 2, & ! 3 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 4 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 5 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 6 & 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, & ! 7 & 1, 1, 1, 2, 2, 2, 2, 2, 2, 1, & ! 8 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 9 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, & ! O & 1, 1, 1, 2, 2, 2, 2, 2, 1, 1, & ! 1 & 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, & ! 2 & 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, & ! 3 & 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, & ! 4 & 2, 2, 2/ ! 5 INTEGER :: NPRDCT( NRXNS ) DATA ( NPRDCT( IRXXN ), IRXXN = 1, NRXNS ) / & & 2, 1, 1, 1, 1, 1, 0, 1, 1, 1, & ! O & 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, & ! 1 & 1, 1, 2, 1, 2, 1, 2, 1, 1, 2, & ! 2 & 1, 2, 2, 1, 1, 1, 2, 2, 1, 1, & ! 3 & 1, 2, 2, 1, 1, 1, 2, 1, 2, 4, & ! 4 & 1, 3, 3, 1, 2, 5, 6, 1, 2, 4, & ! 5 & 4, 1, 2, 6, 6, 1, 2, 1, 1, 0, & ! 6 & 3, 2, 5, 4, 2, 1, 4, 2, 1, 1, & ! 7 & 3, 1, 2, 1, 4, 1, 4, 3, 4, 2, & ! 8 & 1, 1, 1, 2, 1, 2, 2, 1, 3, 3, & ! 9 & 1, 2, 3, 4, 2, 1, 2, 4, 2, 1, & ! O & 2, 5, 3, 8, 2, 4, 2, 5, 3, 4, & ! 1 & 2, 1, 1, 2, 4, 2, 6, 7, 4, 4, & ! 2 & 1, 1, 9, 2, 1, 5, 6, 4, 5, 6, & ! 3 & 10, 8, 14, 10, 6, 4, 12, 9, 3, 7, & ! 4 & 7, 5, 7, 5, 2, 10, 9, 12, 10, 10, & ! 5 & 11, 6, 2, 2, 2, 9, 9, 11, 9, 13, & ! 6 & 3, 8, 11, 8, 3, 8, 11, 7, 7, 5, & ! 7 & 5, 0, 4, 8, 7, 7, 0, 6, 8, 8, & ! 8 & 7, 0, 7, 6, 7, 9, 1, 1, 2, 3, & ! 9 & 4, 5, 4, 7, 8, 3, 4, 8, 2, 3, & ! O & 2, 5, 1, 2, 6, 4, 4, 4, 2, 2, & ! 1 & 2, 5, 2, 6, 1, 1, 2, 1, 2, 2, & ! 2 & 1, 3, 2, 3, 3, 2, 5, 5, 4, 6, & ! 3 & 8, 5, 3, 2, 2, 3, 3, 1, 9, 9, & ! 4 & 9, 2, 1, 2, 2, 2, 2, 4, 2, 4, & ! 5 & 2, 3, 2, 2, 2, 2, 4, 2, 4, 1, & ! 6 & 2, 2, 1, 1, 1, 1, 1, 2, 1, 1, & ! 7 & 1, 1, 1, 2, 2, 2, 2, 2, 2, 0, & ! 8 & 1, 1, 1, 1, 1, 1, 1, 3, 1, 3, & ! 9 & 1, 2, 10, 7, 7, 7, 6, 6, 6, 6, & ! O & 6, 6, 1, 1, 1, 0, 0, 1, 1, 1, & ! 1 & 1, 0, 1, 2, 2, 2, 2, 1, 1, 1, & ! 2 & 0, 1, 1, 1, 1, 0, 1, 1, 1, 3, & ! 3 & 2, 2, 3, 3, 1, 1, 1, 1, 1, 1, & ! 4 & 2, 2, 2, 2, 2, 1, 1, 2, 3, 2, & ! 5 & 5, 5, 2, 3, 2, 3, 3, 3, 4, 4, & ! 6 & 1, 2, 2, 2, 2, 2, 2, 3, 3, 4, & ! 7 & 4, 2, 2, 1, 1, 2, 2, 2, 2, 1, & ! 8 & 1, 1, 2, 1, 1, 1, 2, 2, 2, 2, & ! 9 & 2, 2, 2, 2, 2, 1, 2, 3, 1, 2, & ! O & 1, 2, 2, 1, 1, 1, 2, 4, 1, 2, & ! 1 & 2, 1, 2, 2, 2, 2, 2, 1, 2, 2, & ! 2 & 2, 2, 3, 3, 2, 1, 0, 0, 0, 0, & ! 3 & 0, 0, 2, 2, 2, 2, 1, 1, 3, 3, & ! 4 & 4, 6, 4/ ! 5 INTEGER, PARAMETER :: MHETERO = 39 INTEGER :: IHETERO( MHETERO,2 ) DATA ( IHETERO( IRXXN,1 ), IRXXN = 1, MHETERO ) / & & 256, 257, 270, 271, 272, 273, 274, 275, 276, 277, & & 278, 279, 280, 281, 282, 283, 299, 301, 382, 383, & & 384, 385, 386, 387, 388, 389, 390, 437, 438, 439, & & 440, 441, 442, 443, 444, 445, 446, 447, 448/ DATA ( IHETERO( IRXXN,2 ), IRXXN = 1, MHETERO ) / & & 1, 2, 3, 4, 5, 6, 7, 8, 8, 9, & & 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, & & 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, & & 30, 31, 32, 33, 34, 35, 36, 37, 38/ INTEGER, PARAMETER :: NPHOTAB = 56 CHARACTER( 16 ) :: PHOTAB( NPHOTAB ) DATA ( PHOTAB( IRXXN ), IRXXN = 1, NPHOTAB ) / & & 'NO2_IUPAC10 ', 'O3_O3P_IUPAC10 ', 'O3_O1D_IUPAC10 ', & & 'H2O2_IUPAC10 ', 'NO3NO2_06 ', 'NO3NO_06 ', & & 'N2O5_IUPAC10 ', 'HONO_IUPAC10 ', 'HNO3_IUPAC10 ', & & 'PNA_IUPAC10 ', 'PAN_IUPAC10 ', 'MEPX_IUPAC10 ', & & 'NTR_IUPAC10 ', 'FORM_R_IUPAC13 ', 'FORM_M_IUPAC13 ', & & 'ALD2_R_IUPAC13 ', 'ALDX_R_IUPAC13 ', 'GLYD_IUPAC13 ', & & 'GLY_R_IUPAC13 ', 'MGLY_IUPAC10 ', 'KET_IUPAC10 ', & & 'ACET_IUPAC10 ', 'ISPD ', 'HPALD ', & & 'CL2_IUPAC04 ', 'HOCL_IUPAC04 ', 'FMCL_IUPAC04 ', & & 'CLNO2_IUPAC13 ', 'CLONO2_1 ', 'CLONO2_2 ', & & 'IC3ONO2 ', 'ACRO_09 ', 'BR2_IUPAC10 ', & & 'HOBR_IUPAC10 ', 'BRO_IUPAC10 ', 'BRNO2_IUPAC10 ', & & 'BRONO2_M_IUPAC10', 'BRONO2_R_IUPAC10', 'BRCL_IUPAC10 ', & & 'COHBR_JPL2010 ', 'MB3_IUPAC10 ', 'MB2C_BLIDE98 ', & & 'MBC2_BLIDE98 ', 'I2_IUPAC10 ', 'HOI_IUPAC10 ', & & 'IO_IUPAC10 ', 'OIO_06 ', 'INO_06 ', & & 'INO2_06 ', 'IONO2_06 ', 'ICL_IUPAC10 ', & & 'IBR_IUPAC10 ', 'CH3I_IUPAC10 ', 'MI2_IUPAC10 ', & & 'MIB_IUPAC10 ', 'MIC_IUPAC10 '/ INTEGER, PARAMETER :: NHETERO = 38 CHARACTER( 16 ) :: HETERO( NHETERO ) DATA ( HETERO( IRXXN ), IRXXN = 1, NHETERO ) / & & 'HETERO_CLNO3_WAI', 'HETERO_CLNO3_WAJ', 'HETERO_NTR2 ', & & 'HETERO_N2O5IJ ', 'HETERO_N2O5K ', 'HETERO_H2NO3PAIJ', & & 'HETERO_H2NO3PAK ', 'HETERO_H2NO3PBIJ', 'HETERO_H2NO3PBK ', & & 'HETERO_NO2 ', 'HETERO_IEPOX ', 'HETERO_IEPOXOS ', & & 'HETERO_TETROL ', 'HETERO_GLY ', 'HETERO_MGLY ', & & 'HETERO_PNCOMLI ', 'HETERO_PNCOMLJ ', 'HETERO_BRNO3_WAI', & & 'HETERO_BRNO3_WAJ', 'HETERO_HOBR_CLJ ', 'HETERO_HOBR_BRJ ', & & 'HETERO_BRNO3_CLJ', 'HETERO_BRNO3_BRJ', 'HETERO_BRNO2_CLJ', & & 'HETERO_BRNO2_BRJ', 'HETERO_HBR_BRJ ', 'HETERO_I2O2_AI ', & & 'HETERO_I2O2_AJ ', 'HETERO_I2O3_AI ', 'HETERO_I2O3_AJ ', & & 'HETERO_I2O4_AI ', 'HETERO_I2O4_AJ ', 'HETERO_INO3_CLJ ', & & 'HETERO_INO3_BRJ ', 'HETERO_INO2_CLJ ', 'HETERO_INO2_BRJ ', & & 'HETERO_HOI_CLJ ', 'HETERO_HOI_BRJ '/ CHARACTER( 16 ) :: RXLABEL( NRXNS ) DATA ( RXLABEL( IRXXN ), IRXXN = 1, NRXNS ) / & & 'R1 ', 'R2 ', 'R3 ', & ! 0 & 'R4 ', 'R5 ', 'R6 ', & ! 1 & 'R7 ', 'R8 ', 'R9 ', & ! 2 & 'R10 ', 'R11 ', 'R12 ', & ! 3 & 'R13 ', 'R14 ', 'R15 ', & ! 4 & 'R16 ', 'R17 ', 'R18 ', & ! 5 & 'R19 ', 'R20 ', 'R21 ', & ! 6 & 'R22 ', 'R23 ', 'R24 ', & ! 7 & 'R25 ', 'R26 ', 'R27 ', & ! 8 & 'R28 ', 'R29 ', 'R30 ', & ! 9 & 'R31 ', 'R32 ', 'R33 ', & ! 0 & 'R34 ', 'R35 ', 'R36 ', & ! 1 & 'R37 ', 'R38 ', 'R39 ', & ! 2 & 'R40 ', 'R41 ', 'R42 ', & ! 3 & 'R43 ', 'R44 ', 'R45 ', & ! 4 & 'R46 ', 'R47 ', 'R48 ', & ! 5 & 'R49 ', 'R50 ', 'R51 ', & ! 6 & 'R52 ', 'R53 ', 'R54 ', & ! 7 & 'R55 ', 'R56 ', 'R57 ', & ! 8 & 'R58 ', 'R59 ', 'R60 ', & ! 9 & 'R61 ', 'R62 ', 'R63 ', & ! 0 & 'R64 ', 'R65 ', 'R66 ', & ! 1 & 'R67 ', 'R68 ', 'R69 ', & ! 2 & 'R70 ', 'R71 ', 'R72 ', & ! 3 & 'R73 ', 'R74 ', 'R75 ', & ! 4 & 'R76 ', 'R77 ', 'R78 ', & ! 5 & 'R79 ', 'R80 ', 'R81 ', & ! 6 & 'R82 ', 'R83 ', 'R84 ', & ! 7 & 'R85 ', 'R86 ', 'R87 ', & ! 8 & 'R88 ', 'R89 ', 'R90 ', & ! 9 & 'R91 ', 'R92 ', 'R93 ', & ! 0 & 'R94 ', 'R95 ', 'R96 ', & ! 1 & 'R97 ', 'R98 ', 'R99 ', & ! 2 & 'R100 ', 'R101 ', 'R102 ', & ! 3 & 'R103 ', 'R104 ', 'R105 ', & ! 4 & 'R106 ', 'R107 ', 'R108 ', & ! 5 & 'R109 ', 'R110 ', 'R111 ', & ! 6 & 'R112 ', 'R113 ', 'R114 ', & ! 7 & 'R115 ', 'R116 ', 'R117 ', & ! 8 & 'R118 ', 'R119 ', 'R120 ', & ! 9 & 'R121 ', 'R122 ', 'R123 ', & ! 0 & 'R124 ', 'R125 ', 'R126 ', & ! 1 & 'R127 ', 'R128 ', 'R129 ', & ! 2 & 'R130 ', 'R131 ', 'R132 ', & ! 3 & 'R133 ', 'R134 ', 'R135 ', & ! 4 & 'R136 ', 'R137 ', 'R138 ', & ! 5 & 'R139 ', 'R140 ', 'R141 ', & ! 6 & 'R142 ', 'R143 ', 'R144 ', & ! 7 & 'R145 ', 'R146 ', 'R147 ', & ! 8 & 'R148 ', 'R149 ', 'R150 ', & ! 9 & 'R151 ', 'R152 ', 'R153 ', & ! 0 & 'R154 ', 'R155 ', 'R156 ', & ! 1 & 'R157 ', 'R158 ', 'R159 ', & ! 2 & 'R160 ', 'R161 ', 'R162 ', & ! 3 & 'R163 ', 'R164 ', 'R165 ', & ! 4 & 'R166 ', 'R167 ', 'R168 ', & ! 5 & 'R169 ', 'R170 ', 'R171 ', & ! 6 & 'R172 ', 'R173 ', 'R174 ', & ! 7 & 'R171a ', 'R172a ', 'R173a ', & ! 8 & 'R174a ', 'R175 ', 'R176 ', & ! 9 & 'R177 ', 'R178 ', 'R179 ', & ! 0 & 'R180 ', 'R181 ', 'R182 ', & ! 1 & 'R183 ', 'R184 ', 'R185 ', & ! 2 & 'R185a ', 'R186 ', 'R187 ', & ! 3 & 'R188 ', 'R189 ', 'R190 ', & ! 4 & 'R191 ', 'R192 ', 'R193 ', & ! 5 & 'R194 ', 'R195 ', 'R196 ', & ! 6 & 'R197 ', 'R198 ', 'R199 ', & ! 7 & 'R200 ', 'R201 ', 'R202 ', & ! 8 & 'R203 ', 'R204 ', 'R205 ', & ! 9 & 'R206 ', 'R207 ', 'R208 ', & ! 0 & 'R209 ', 'R210 ', 'R211 ', & ! 1 & 'R212 ', 'R213 ', 'R214 ', & ! 2 & 'R216 ', 'R217 ', 'R218 ', & ! 3 & 'R219 ', 'R220 ', 'R221 ', & ! 4 & 'CL1 ', 'CL2 ', 'CL3 ', & ! 5 & 'CL4 ', 'CL5 ', 'CL6 ', & ! 6 & 'CL7 ', 'CL8 ', 'CL9 ', & ! 7 & 'CL10 ', 'CL11 ', 'CL12 ', & ! 8 & 'CL13 ', 'CL14 ', 'CL15 ', & ! 9 & 'CL16 ', 'CL17 ', 'CL18 ', & ! 0 & 'CL19 ', 'CL20 ', 'CL21 ', & ! 1 & 'CL22 ', 'CL23 ', 'CL24 ', & ! 2 & 'CL25 ', 'CL26 ', 'CL27 ', & ! 3 & 'CL28 ', 'CL30 ', 'CL31 ', & ! 4 & 'HET_CLNO3_WAI ', 'HET_CLNO3_WAJ ', 'SA01 ', & ! 5 & 'SA02 ', 'SA03 ', 'SA04 ', & ! 6 & 'SA06 ', 'SA07 ', 'SA08 ', & ! 7 & 'SA09 ', 'SA10 ', 'SA11 ', & ! 8 & 'SA12 ', 'SA13 ', 'HET_NTR2 ', & ! 9 & 'HET_N2O5IJ ', 'HET_N2O5K ', 'HET_H2NO3PIJA ', & ! 0 & 'HET_H2NO3PKA ', 'HET_H2NO3PIB ', 'HET_H2NO3PJB ', & ! 1 & 'HET_H2NO3PKB ', 'HET_N02 ', 'HET_IEPOX ', & ! 2 & 'HET_IEPOXOS ', 'HET_TETROL ', 'HET_GLY ', & ! 3 & 'HET_MGLY ', 'BL18a ', 'BL18b ', & ! 4 & 'BL18c ', 'BL18d ', 'CP07mtp ', & ! 5 & 'BP70mtp ', 'BP71mtp ', 'HYD_MT ', & ! 6 & 'OLIG_AROMATIC1 ', 'OLIG_AROMATIC2 ', 'OLIG_AROMATIC3 ', & ! 7 & 'OLIG_ISOPRENE1 ', 'OLIG_ISOPRENE2 ', 'OLIG_SESQT1 ', & ! 8 & 'RPOAGEPI ', 'RPOAGELI ', 'RPOAGEPJ ', & ! 9 & 'RPOAGELJ ', 'PCSOA ', 'POA_AGE1 ', & ! 0 & 'POA_AGE2 ', 'POA_AGE3 ', 'POA_AGE4 ', & ! 1 & 'POA_AGE5 ', 'POA_AGE6 ', 'POA_AGE7 ', & ! 2 & 'POA_AGE8 ', 'POA_AGE9 ', 'POA_AGE10 ', & ! 3 & 'T01 ', 'T02 ', 'T03 ', & ! 4 & 'T04 ', 'T05 ', 'TCL1 ', & ! 5 & 'T06 ', 'T07 ', 'T08 ', & ! 6 & 'T09 ', 'TCL2 ', 'T10 ', & ! 7 & 'T11 ', 'T12 ', 'TCL3 ', & ! 8 & 'T13 ', 'T14 ', 'T15 ', & ! 9 & 'T16 ', 'TCL4 ', 'T17 ', & ! 0 & 'T18 ', 'T19 ', 'T20 ', & ! 1 & 'TCL5 ', 'T21 ', 'TCL6 ', & ! 2 & 'HG1 ', 'HG2 ', 'HG3 ', & ! 3 & 'HG4 ', 'HG5 ', 'BR01 ', & ! 4 & 'BR02 ', 'BR03 ', 'BR04 ', & ! 5 & 'BR05 ', 'BR06 ', 'BR07 ', & ! 6 & 'BR08 ', 'BR09 ', 'BR10 ', & ! 7 & 'BR11 ', 'BR12 ', 'BR13 ', & ! 8 & 'BR14 ', 'BR15 ', 'BR16 ', & ! 9 & 'BR17 ', 'BR18 ', 'BR19 ', & ! 0 & 'BR20 ', 'BR22 ', 'BR23 ', & ! 1 & 'BR24 ', 'BR25 ', 'BR26 ', & ! 2 & 'BR27 ', 'BR28 ', 'BR29 ', & ! 3 & 'BR30 ', 'BR31 ', 'BR32 ', & ! 4 & 'BR33 ', 'BR34 ', 'BR35 ', & ! 5 & 'BR36 ', 'BR37 ', 'BR38 ', & ! 6 & 'HET_BRNO3_WAI ', 'HET_BRNO3_WAJ ', 'HET_HOBR_CLJ ', & ! 7 & 'HET_HOBR_BRJ ', 'HET_BRNO3_CLJ ', 'HET_BRNO3_BRJ ', & ! 8 & 'HET_BRNO2_CLJ ', 'HET_BRNO2_BRJ ', 'HET_HBR_BRJ ', & ! 9 & 'IO01 ', 'IO02 ', 'IO03 ', & ! 0 & 'IO04 ', 'IO05 ', 'IO06 ', & ! 1 & 'IO07 ', 'IO08 ', 'IO09 ', & ! 2 & 'IO10 ', 'IO11 ', 'IO12 ', & ! 3 & 'IO13 ', 'IO14 ', 'IO15 ', & ! 4 & 'IO16 ', 'IO17 ', 'IO18 ', & ! 5 & 'IO19 ', 'IO20 ', 'IO21 ', & ! 6 & 'IO22 ', 'IO23 ', 'IO24 ', & ! 7 & 'IO25 ', 'IO26 ', 'IO27 ', & ! 8 & 'IO28 ', 'IO29 ', 'IO30 ', & ! 9 & 'IO31 ', 'IO32 ', 'IO33 ', & ! 0 & 'IO34 ', 'IO35 ', 'IO36 ', & ! 1 & 'IO37 ', 'IO38 ', 'IO39 ', & ! 2 & 'IO40 ', 'IO41 ', 'IO42 ', & ! 3 & 'IO43 ', 'IO44 ', 'IO45 ', & ! 4 & 'IO46 ', 'HET_I2O2_AI ', 'HET_I2O2_AJ ', & ! 5 & 'HET_I2O3_AI ', 'HET_I2O3_AJ ', 'HET_I2O4_AI ', & ! 6 & 'HET_I2O4_AJ ', 'HET_INO3_CLJ ', 'HET_INO3_BRJ ', & ! 7 & 'HET_INO2_CLJ ', 'HET_INO2_BRJ ', 'HET_HOI_CLJ ', & ! 8 & 'HET_HOI_BRJ ', 'DMS1 ', 'DMS2 ', & ! 9 & 'DMS3 ', 'DMS4 ', 'DMS5 '/! 0 ! NSPECIAL = Number of special rate coefficients ! SPECIAL = Names of special rate coefficients ! NSPECIAL_RXN = Number of reactions with special rates ! ISPECIAL = Pointers to reactions using special rates and their special rate coefficients ! MAXSPECTERMS = Max Number of terms type used by special rate coefficients ! KC_COEFFS = Coefficients of standard rate coefficients times concentration terms ! INDEX_KTERMS = Pointers to standard rate coefficients in special rate coefficients ! INDEX_CTERMS = Pointers to species concentrations in special rate coefficients ! OPERATOR_COEFFS = Coefficients of preceeding special rate coefficients used in special coefficient ! OPERATORS = Pointers to preceeding special rate coefficients used in special coefficient ! Special Rate information not available .. INTEGER, PARAMETER :: NSPECIAL_RXN = 0 INTEGER :: ISPECIAL( 1, 2 ) ! Special Rate information not available ... INTEGER, PARAMETER :: NSPECIAL = 0 ! Special Rate information not available ... CHARACTER( 16 ) :: SPECIAL( 1 ) INTEGER, PARAMETER :: MAXSPECTERMS = 1 REAL( 8 ) :: KC_COEFFS( NSPECIAL + 1, MAXSPECTERMS) INTEGER :: INDEX_KTERMS( NSPECIAL + 1, MAXSPECTERMS) INTEGER :: INDEX_CTERMS( NSPECIAL + 1, MAXSPECTERMS) REAL( 8 ) :: OPERATOR_COEFFS( NSPECIAL + 1, MAXSPECTERMS) INTEGER :: OPERATORS( NSPECIAL + 1, MAXSPECTERMS) ! Steady-state species section ! N_SS_SPC = Number of species assumed to be in steady-state ! SS_SPC_DIM = Dimension paramete for steady-state species ! SS_SPC = Names of species assumed to be in steady-state ! MAX_SS_LOSS = Max no. of SS loss rxns for any SS species ! MAX_SS_PROD = Max no. of SS prod rxns for any SS species ! N_LOSS_RXNS = No. of SS loss rxns for each SS species ! N_PROD_RXNS = No. of SS prod rxns for each SS species ! SS_LOSS_RXNS = List of SS loss rxns for each SS species ! SS_PROD_RXNS = List of SS prod rxns for each SS species ! SS_PROD_COEF = List of SS prod yields for each SS species ! SS_RCT_IND = SS species index if it is a rxn reactant INTEGER, PARAMETER :: N_SS_SPC = 0 INTEGER, PARAMETER :: SS_SPC_DIM = 1 INTEGER, PARAMETER :: MAX_SS_LOSS = 0 INTEGER, PARAMETER :: MAX_SS_PROD = 0 CHARACTER( 16 ) :: SS_SPC( 1 ) INTEGER :: N_LOSS_RXNS( 1 ) INTEGER :: N_PROD_RXNS( 1 ) INTEGER :: SS_LOSS_RXNS( 1, 1 ) INTEGER :: SS_PROD_RXNS( 1, 1 ) INTEGER :: SS_RCT_IND( 1 ) REAL :: SS_PROD_COEF( 1,1 ) LOGICAL, PARAMETER :: USE_SPECIAL_RATES = .FALSE. ! pointers and names to specific photolysis rates INTEGER, PARAMETER :: IJ_NO2_IUPAC10 = 1 INTEGER, PARAMETER :: IJ_O3_O3P_IUPAC10 = 2 INTEGER, PARAMETER :: IJ_O3_O1D_IUPAC10 = 3 INTEGER, PARAMETER :: IJ_H2O2_IUPAC10 = 4 INTEGER, PARAMETER :: IJ_NO3NO2_06 = 5 INTEGER, PARAMETER :: IJ_NO3NO_06 = 6 INTEGER, PARAMETER :: IJ_N2O5_IUPAC10 = 7 INTEGER, PARAMETER :: IJ_HONO_IUPAC10 = 8 INTEGER, PARAMETER :: IJ_HNO3_IUPAC10 = 9 INTEGER, PARAMETER :: IJ_PNA_IUPAC10 = 10 INTEGER, PARAMETER :: IJ_PAN_IUPAC10 = 11 INTEGER, PARAMETER :: IJ_MEPX_IUPAC10 = 12 INTEGER, PARAMETER :: IJ_NTR_IUPAC10 = 13 INTEGER, PARAMETER :: IJ_FORM_R_IUPAC13 = 14 INTEGER, PARAMETER :: IJ_FORM_M_IUPAC13 = 15 INTEGER, PARAMETER :: IJ_ALD2_R_IUPAC13 = 16 INTEGER, PARAMETER :: IJ_ALDX_R_IUPAC13 = 17 INTEGER, PARAMETER :: IJ_GLYD_IUPAC13 = 18 INTEGER, PARAMETER :: IJ_GLY_R_IUPAC13 = 19 INTEGER, PARAMETER :: IJ_MGLY_IUPAC10 = 20 INTEGER, PARAMETER :: IJ_KET_IUPAC10 = 21 INTEGER, PARAMETER :: IJ_ACET_IUPAC10 = 22 INTEGER, PARAMETER :: IJ_ISPD = 23 INTEGER, PARAMETER :: IJ_HPALD = 24 INTEGER, PARAMETER :: IJ_CL2_IUPAC04 = 25 INTEGER, PARAMETER :: IJ_HOCL_IUPAC04 = 26 INTEGER, PARAMETER :: IJ_FMCL_IUPAC04 = 27 INTEGER, PARAMETER :: IJ_CLNO2_IUPAC13 = 28 INTEGER, PARAMETER :: IJ_CLONO2_1 = 29 INTEGER, PARAMETER :: IJ_CLONO2_2 = 30 INTEGER, PARAMETER :: IJ_IC3ONO2 = 31 INTEGER, PARAMETER :: IJ_ACRO_09 = 32 INTEGER, PARAMETER :: IJ_BR2_IUPAC10 = 33 INTEGER, PARAMETER :: IJ_HOBR_IUPAC10 = 34 INTEGER, PARAMETER :: IJ_BRO_IUPAC10 = 35 INTEGER, PARAMETER :: IJ_BRNO2_IUPAC10 = 36 INTEGER, PARAMETER :: IJ_BRONO2_M_IUPAC10 = 37 INTEGER, PARAMETER :: IJ_BRONO2_R_IUPAC10 = 38 INTEGER, PARAMETER :: IJ_BRCL_IUPAC10 = 39 INTEGER, PARAMETER :: IJ_COHBR_JPL2010 = 40 INTEGER, PARAMETER :: IJ_MB3_IUPAC10 = 41 INTEGER, PARAMETER :: IJ_MB2C_BLIDE98 = 42 INTEGER, PARAMETER :: IJ_MBC2_BLIDE98 = 43 INTEGER, PARAMETER :: IJ_I2_IUPAC10 = 44 INTEGER, PARAMETER :: IJ_HOI_IUPAC10 = 45 INTEGER, PARAMETER :: IJ_IO_IUPAC10 = 46 INTEGER, PARAMETER :: IJ_OIO_06 = 47 INTEGER, PARAMETER :: IJ_INO_06 = 48 INTEGER, PARAMETER :: IJ_INO2_06 = 49 INTEGER, PARAMETER :: IJ_IONO2_06 = 50 INTEGER, PARAMETER :: IJ_ICL_IUPAC10 = 51 INTEGER, PARAMETER :: IJ_IBR_IUPAC10 = 52 INTEGER, PARAMETER :: IJ_CH3I_IUPAC10 = 53 INTEGER, PARAMETER :: IJ_MI2_IUPAC10 = 54 INTEGER, PARAMETER :: IJ_MIB_IUPAC10 = 55 INTEGER, PARAMETER :: IJ_MIC_IUPAC10 = 56 INTEGER, PARAMETER :: IK_HETERO_CLNO3_WAI = 1 INTEGER, PARAMETER :: IK_HETERO_CLNO3_WAJ = 2 INTEGER, PARAMETER :: IK_HETERO_NTR2 = 3 INTEGER, PARAMETER :: IK_HETERO_N2O5IJ = 4 INTEGER, PARAMETER :: IK_HETERO_N2O5K = 5 INTEGER, PARAMETER :: IK_HETERO_H2NO3PAIJ = 6 INTEGER, PARAMETER :: IK_HETERO_H2NO3PAK = 7 INTEGER, PARAMETER :: IK_HETERO_H2NO3PBIJ = 8 INTEGER, PARAMETER :: IK_HETERO_H2NO3PBK = 9 INTEGER, PARAMETER :: IK_HETERO_NO2 = 10 INTEGER, PARAMETER :: IK_HETERO_IEPOX = 11 INTEGER, PARAMETER :: IK_HETERO_IEPOXOS = 12 INTEGER, PARAMETER :: IK_HETERO_TETROL = 13 INTEGER, PARAMETER :: IK_HETERO_GLY = 14 INTEGER, PARAMETER :: IK_HETERO_MGLY = 15 INTEGER, PARAMETER :: IK_HETERO_PNCOMLI = 16 INTEGER, PARAMETER :: IK_HETERO_PNCOMLJ = 17 INTEGER, PARAMETER :: IK_HETERO_BRNO3_WAI = 18 INTEGER, PARAMETER :: IK_HETERO_BRNO3_WAJ = 19 INTEGER, PARAMETER :: IK_HETERO_HOBR_CLJ = 20 INTEGER, PARAMETER :: IK_HETERO_HOBR_BRJ = 21 INTEGER, PARAMETER :: IK_HETERO_BRNO3_CLJ = 22 INTEGER, PARAMETER :: IK_HETERO_BRNO3_BRJ = 23 INTEGER, PARAMETER :: IK_HETERO_BRNO2_CLJ = 24 INTEGER, PARAMETER :: IK_HETERO_BRNO2_BRJ = 25 INTEGER, PARAMETER :: IK_HETERO_HBR_BRJ = 26 INTEGER, PARAMETER :: IK_HETERO_I2O2_AI = 27 INTEGER, PARAMETER :: IK_HETERO_I2O2_AJ = 28 INTEGER, PARAMETER :: IK_HETERO_I2O3_AI = 29 INTEGER, PARAMETER :: IK_HETERO_I2O3_AJ = 30 INTEGER, PARAMETER :: IK_HETERO_I2O4_AI = 31 INTEGER, PARAMETER :: IK_HETERO_I2O4_AJ = 32 INTEGER, PARAMETER :: IK_HETERO_INO3_CLJ = 33 INTEGER, PARAMETER :: IK_HETERO_INO3_BRJ = 34 INTEGER, PARAMETER :: IK_HETERO_INO2_CLJ = 35 INTEGER, PARAMETER :: IK_HETERO_INO2_BRJ = 36 INTEGER, PARAMETER :: IK_HETERO_HOI_CLJ = 37 INTEGER, PARAMETER :: IK_HETERO_HOI_BRJ = 38 END MODULE RXNS_DATA ================================================ FILE: CCTM/src/MECHS/cb6r5m_ae7_aq/RXNS_FUNC_MODULE.F90 ================================================ MODULE RXNS_FUNCTION IMPLICIT NONE ! Name of Mechanism CB6R5M_AE7_AQ PUBLIC :: CALC_RCONST, SPECIAL_RATES, MAP_CHEMISTRY_SPECIES CONTAINS REAL( 8 ) FUNCTION POWER_T02( TEMPOT300,A0,B0 ) IMPLICIT NONE ! rate constant for CMAQ Arrhenuis reaction type 2 ! Arguements: REAL( 8 ), INTENT( IN ) :: TEMPOT300 REAL( 8 ), INTENT( IN ) :: A0 REAL( 8 ), INTENT( IN ) :: B0 ! Local: None POWER_T02 = A0 * TEMPOT300**B0 RETURN END FUNCTION POWER_T02 REAL( 8 ) FUNCTION ARRHENUIS_T04( INV_TEMP,TEMPOT300,A0,B0,C0 ) IMPLICIT NONE ! rate constant for CMAQ Arrhenuis reaction type 4 ! Arguements: REAL( 8 ), INTENT( IN ) :: INV_TEMP REAL( 8 ), INTENT( IN ) :: TEMPOT300 REAL( 8 ), INTENT( IN ) :: A0 REAL( 8 ), INTENT( IN ) :: B0 REAL( 8 ), INTENT( IN ) :: C0 ! Local: INTRINSIC DEXP ARRHENUIS_T04 = A0 * DEXP( B0 * INV_TEMP ) * TEMPOT300**C0 RETURN END FUNCTION ARRHENUIS_T04 REAL( 8 ) FUNCTION ARRHENUIS_T03( INV_TEMP,A0,B0 ) ! rate constant for CMAQ Arrhenuis reaction type 3 IMPLICIT NONE ! Arguements: REAL( 8 ), INTENT( IN ) :: INV_TEMP REAL( 8 ), INTENT(IN) :: A0 REAL( 8 ), INTENT(IN) :: B0 ! Local: INTRINSIC DEXP ARRHENUIS_T03 = A0 * DEXP( B0 * INV_TEMP ) RETURN END FUNCTION ARRHENUIS_T03 REAL( 8 ) FUNCTION FALLOFF_T08(INV_TEMP,CAIR,A0,C0,A2,C2,A3,C3) ! rate constant for CMAQ fall off reaction type 8 IMPLICIT NONE ! Arguements: REAL( 8 ), INTENT( IN ) :: INV_TEMP REAL( 8 ), INTENT( IN ) :: CAIR REAL( 8 ), INTENT( IN ) :: A0 REAL( 8 ), INTENT( IN ) :: C0 REAL( 8 ), INTENT( IN ) :: A2 REAL( 8 ), INTENT( IN ) :: C2 REAL( 8 ), INTENT( IN ) :: A3 REAL( 8 ), INTENT( IN ) :: C3 ! Local: REAL( 8 ) K0 REAL( 8 ) K2 REAL( 8 ) K3 INTRINSIC DEXP K0 = A0 * DEXP( C0 * INV_TEMP ) K2 = A2 * DEXP( C2 * INV_TEMP ) K3 = A3 * DEXP( C3 * INV_TEMP ) K3 = K3 * CAIR FALLOFF_T08 = K0 + K3/( 1.0D0 + K3/K2 ) RETURN END FUNCTION FALLOFF_T08 REAL( 8 ) FUNCTION FALLOFF_T09(INV_TEMP,CAIR,A1,C1,A2,C2) ! rate constant for CMAQ fall off reaction type 9 IMPLICIT NONE ! Arguements: REAL( 8 ), INTENT( IN ) :: INV_TEMP REAL( 8 ), INTENT( IN ) :: CAIR REAL( 8 ), INTENT( IN ) :: A1 REAL( 8 ), INTENT( IN ) :: C1 REAL( 8 ), INTENT( IN ) :: A2 REAL( 8 ), INTENT( IN ) :: C2 ! Local: REAL( 8 ) K1 REAL( 8 ) K2 INTRINSIC DEXP K1 = A1 * DEXP( C1 * INV_TEMP ) K2 = A2 * DEXP( C2 * INV_TEMP ) FALLOFF_T09 = K1 + K2 * CAIR RETURN END FUNCTION FALLOFF_T09 REAL( 8 ) FUNCTION FALLOFF_T10(INV_TEMP,TEMPOT300,CAIR,A0,B0,C0,A1,B1,C1,CE,CF) IMPLICIT NONE ! rate constant for CMAQ fall off reaction type 10 ! Arguements: REAL( 8 ), INTENT( IN ) :: INV_TEMP REAL( 8 ), INTENT( IN ) :: TEMPOT300 REAL( 8 ), INTENT( IN ) :: CAIR REAL( 8 ), INTENT( IN ) :: A0 REAL( 8 ), INTENT( IN ) :: B0 REAL( 8 ), INTENT( IN ) :: C0 REAL( 8 ), INTENT( IN ) :: A1 REAL( 8 ), INTENT( IN ) :: B1 REAL( 8 ), INTENT( IN ) :: C1 REAL( 8 ), INTENT( IN ) :: CE REAL( 8 ), INTENT( IN ) :: CF ! Local: REAL( 8 ) K0 REAL( 8 ) K1 REAL( 8 ) KEND K0 = A0 * CAIR * DEXP(B0*INV_TEMP)* TEMPOT300**C0 K1 = A1 * DEXP(B1*INV_TEMP) * TEMPOT300**C1 KEND = ( ( 1.0D0 + ( ( 1.0D0 / CE ) * DLOG10( K0 / K1 ) ) ** 2.0D0 ) ) KEND = 1.0D0 / KEND FALLOFF_T10 = ( K0 / ( 1.0D0 + K0/K1 ) ) * CF ** KEND RETURN END FUNCTION FALLOFF_T10 REAL( 8 ) FUNCTION FALLOFF_T11(INV_TEMP,TEMPOT300,CAIR,A1,B1,C1,A2, B2, C2, D1, D2) ! rate constant for CMAQ fall off reaction type 11 ! actually expanded form of type 9 IMPLICIT NONE ! Arguements: REAL( 8 ), INTENT( IN ) :: INV_TEMP REAL( 8 ), INTENT( IN ) :: TEMPOT300 REAL( 8 ), INTENT( IN ) :: CAIR REAL( 8 ), INTENT( IN ) :: A1 REAL( 8 ), INTENT( IN ) :: B1 REAL( 8 ), INTENT( IN ) :: C1 REAL( 8 ), INTENT( IN ) :: A2 REAL( 8 ), INTENT( IN ) :: B2 REAL( 8 ), INTENT( IN ) :: C2 REAL( 8 ), INTENT( IN ) :: D1 REAL( 8 ), INTENT( IN ) :: D2 ! Local: REAL( 8 ) K1 REAL( 8 ) K2 REAL( 8 ) K3 INTRINSIC DEXP K1 = A1 * DEXP( C1 * INV_TEMP ) * TEMPOT300**B1 K2 = A2 * DEXP( C2 * INV_TEMP ) * TEMPOT300**B2 K3 = D1 * DEXP( D2 * INV_TEMP ) FALLOFF_T11 = K1 + K2 * CAIR + K3 RETURN END FUNCTION FALLOFF_T11 REAL( 8 ) FUNCTION HALOGEN_FALLOFF(PRESS,A1,B1,A2,B2,A3) IMPLICIT NONE REAL( 8 ), INTENT( IN ) :: PRESS REAL( 8 ), INTENT( IN ) :: A1 REAL( 8 ), INTENT( IN ) :: B1 REAL( 8 ), INTENT( IN ) :: A2 REAL( 8 ), INTENT( IN ) :: B2 REAL( 8 ), INTENT( IN ) :: A3 ! Maximum loss rate (1/sec) INTRINSIC DEXP HALOGEN_FALLOFF = A1 * DEXP( B1 * PRESS ) + A2 * DEXP( B2 * PRESS ) HALOGEN_FALLOFF = DMIN1 (A3, HALOGEN_FALLOFF ) RETURN END FUNCTION HALOGEN_FALLOFF SUBROUTINE SPECIAL_RATES( NUMCELLS, Y, TEMP, DENS, RKI ) ! Purpose: calculate special rate operators and update ! appropriate rate constants USE RXNS_DATA IMPLICIT NONE ! Arguments: INTEGER, INTENT( IN ) :: NUMCELLS ! Number of cells in block REAL( 8 ), INTENT( IN ) :: Y( :, : ) ! species concs REAL( 8 ), INTENT( IN ) :: TEMP( : ) ! air temperature, K REAL( 8 ), INTENT( IN ) :: DENS( : ) ! air density, Kg/m3 REAL( 8 ), INTENT( INOUT ) :: RKI( :, : ) ! reaction rate constant, ppm/min ! Local: REAL( 8 ), PARAMETER :: DENSITY_TO_NUMBER = 2.07930D+19 ! Kg/m3 to molecules/cm3 INTEGER :: NCELL REAL( 8 ) :: INV_TEMP REAL( 8 ) :: CAIR REAL( 8 ) :: CFACT ! scales operator if not multiplied by RKI, cm^3/(molecule) to 1/(ppm) REAL( 8 ) :: CFACT_SQU ! scales operator if not multiplied by RKI, cm^6/(molec^2) to 1/(ppm^2) ! special rate operators listed below DO NCELL = 1, NUMCELLS INV_TEMP = 1.0D0 / TEMP( NCELL ) CAIR = DENSITY_TO_NUMBER * DENS( NCELL ) CFACT = 1.0D-06 * CAIR CFACT_SQU = 1.0D-12 * CAIR * CAIR ! define special rate operators ! define rate constants in terms of special rate operators END DO RETURN END SUBROUTINE SPECIAL_RATES SUBROUTINE CALC_RCONST( BLKTEMP, BLKPRES, BLKH2O, RJBLK, BLKHET, LSUNLIGHT, SEAWATER, RKI, NUMCELLS ) !********************************************************************** ! Function: To compute thermal and photolytic reaction rate ! coefficients for each reaction. ! Preconditions: Photolysis rates for individual species must have ! been calculated and stored in RJPHOT. Expects ! temperature in deg K, pressure in atm., water ! vapor in ppmV, and J-values in /min. ! Key Subroutines/Functions Called: POWER_02, ARRHRENUIS_T0*, FALLOFF_T*, HALOGEN_FALLOFF !*********************************************************************** USE RXNS_DATA IMPLICIT NONE ! Arguements: None REAL( 8 ), INTENT( IN ) :: BLKTEMP( : ) ! temperature, deg K REAL( 8 ), INTENT( IN ) :: BLKPRES( : ) ! pressure, Atm REAL( 8 ), INTENT( IN ) :: BLKH2O ( : ) ! water mixing ratio, ppm REAL( 8 ), INTENT( IN ) :: RJBLK ( :, : ) ! photolysis rates, 1/min REAL( 8 ), INTENT( IN ) :: BLKHET ( :, : ) ! heterogeneous rate constants, ???/min INTEGER, INTENT( IN ) :: NUMCELLS ! Number of cells in block LOGICAL, INTENT( IN ) :: LSUNLIGHT ! Is there sunlight? REAL( 8 ), INTENT( IN ) :: SEAWATER( : ) ! fractional area of OPEN+SURF REAL( 8 ), INTENT( OUT ) :: RKI ( :, : ) ! reaction rate constant, ppm/min !..Parameters: REAL( 8 ), PARAMETER :: COEF1 = 7.33981D+15 ! Molec/cc to ppm conv factor REAL( 8 ), PARAMETER :: CONSTC = 0.6D+0 ! Constant for reaction type 7 REAL( 8 ), PARAMETER :: TI300 = 1.0D+0/300.0D+0 ! reciprocal of 300 deg K REAL( 8 ), PARAMETER :: SFACT = 60.D+0 ! seconds per minute !..External Functions: None !..Local Variables: INTEGER :: NRT ! Loop index for reaction types INTEGER :: IRXN ! Reaction number INTEGER :: JNUM ! J-value species # from PHOT) INTEGER :: KNUM ! Reaction # for a relative rate coeff. INTEGER :: N ! Loop index for reactions INTEGER :: NCELL ! Loop index for # of cells in the block REAL( 8 ) :: CAIR ! air number density (wet) [molec/cm^3] REAL( 8 ) :: CFACT ! Convertor cm^3/(molec*sec) to 1/(ppm*min) REAL( 8 ) :: CFACT_SQU ! Convertor cm^6/(molec^2*sec) to 1/(ppm^2*min) REAL( 8 ) :: INV_CFACT ! ppm/min to molec/(cm^3*sec) REAL( 8 ) :: TEMPOT300 ! temperature divided by 300 K, dimensionaless REAL( 8 ) :: INV_TEMP ! reciprocal of air temperature, K-1 REAL( 8 ) :: INV_CAIR ! reciprocal of air number density (wet), [cm^3/molec] REAL( 8 ) :: TEMP ! air temperature, K REAL( 8 ) :: PRESS ! pressure [Atm] REAL( 8 ) :: INV_RFACT ! ppm/min to molec/(cm^3*min) REAL( 8 ) :: RFACT_SQU ! cm^6/(molec^2*min) to 1/(ppm^2*min) REAL( 8 ) :: RFACT ! cm^3/(molec*min) to 1/(ppm*min) REAL( 8 ) :: H2O ! concentration, [molec/cm^3] RKI = 0.0D0 ! All rate constants converted from molec/cm3 to ppm ! and 1/sec to 1/min IF( LSUNLIGHT )THEN DO NCELL = 1, NUMCELLS ! Reaction Label R1 RKI( NCELL, 1) = RJBLK( NCELL, IJ_NO2_IUPAC10 ) ! Reaction Label R8 RKI( NCELL, 8) = RJBLK( NCELL, IJ_O3_O3P_IUPAC10 ) ! Reaction Label R9 RKI( NCELL, 9) = RJBLK( NCELL, IJ_O3_O1D_IUPAC10 ) ! Reaction Label R21 RKI( NCELL, 21) = RJBLK( NCELL, IJ_H2O2_IUPAC10 ) ! Reaction Label R27 RKI( NCELL, 27) = RJBLK( NCELL, IJ_NO3NO2_06 ) ! Reaction Label R28 RKI( NCELL, 28) = RJBLK( NCELL, IJ_NO3NO_06 ) ! Reaction Label R38 RKI( NCELL, 38) = RJBLK( NCELL, IJ_N2O5_IUPAC10 ) ! Reaction Label R43 RKI( NCELL, 43) = RJBLK( NCELL, IJ_HONO_IUPAC10 ) ! Reaction Label R47 RKI( NCELL, 47) = RJBLK( NCELL, IJ_HNO3_IUPAC10 ) ! Reaction Label R50 RKI( NCELL, 50) = RJBLK( NCELL, IJ_PNA_IUPAC10 ) ! Reaction Label R56 RKI( NCELL, 56) = RJBLK( NCELL, IJ_PAN_IUPAC10 ) ! Reaction Label R64 RKI( NCELL, 64) = RJBLK( NCELL, IJ_PAN_IUPAC10 ) ! Reaction Label R88 RKI( NCELL, 88) = RJBLK( NCELL, IJ_MEPX_IUPAC10 ) ! Reaction Label R90 RKI( NCELL, 90) = RJBLK( NCELL, IJ_MEPX_IUPAC10 ) ! Reaction Label R92 RKI( NCELL, 92) = RJBLK( NCELL, IJ_NTR_IUPAC10 ) ! Reaction Label R97 RKI( NCELL, 97) = RJBLK( NCELL, IJ_FORM_R_IUPAC13 ) ! Reaction Label R98 RKI( NCELL, 98) = RJBLK( NCELL, IJ_FORM_M_IUPAC13 ) ! Reaction Label R108 RKI( NCELL, 108) = RJBLK( NCELL, IJ_ALD2_R_IUPAC13 ) ! Reaction Label R112 RKI( NCELL, 112) = RJBLK( NCELL, IJ_ALDX_R_IUPAC13 ) ! Reaction Label R114 RKI( NCELL, 114) = RJBLK( NCELL, IJ_GLYD_IUPAC13 ) ! Reaction Label R117 RKI( NCELL, 117) = RJBLK( NCELL, IJ_GLY_R_IUPAC13 ) ! Reaction Label R119 RKI( NCELL, 119) = RJBLK( NCELL, IJ_MGLY_IUPAC10 ) ! Reaction Label R128 RKI( NCELL, 128) = RJBLK( NCELL, IJ_KET_IUPAC10 ) ! Reaction Label R129 RKI( NCELL, 129) = RJBLK( NCELL, IJ_ACET_IUPAC10 ) ! Reaction Label R161 RKI( NCELL, 161) = RJBLK( NCELL, IJ_ISPD ) ! Reaction Label R163 RKI( NCELL, 163) = RJBLK( NCELL, IJ_HPALD ) ! Reaction Label R196 RKI( NCELL, 201) = RJBLK( NCELL, IJ_NTR_IUPAC10 ) ! Reaction Label R197 RKI( NCELL, 202) = 5.0000D-02 * RJBLK( NCELL, IJ_NO2_IUPAC10 ) ! Reaction Label R201 RKI( NCELL, 206) = 2.8000D-02 * RJBLK( NCELL, IJ_NO2_IUPAC10 ) ! Reaction Label CL1 RKI( NCELL, 226) = RJBLK( NCELL, IJ_CL2_IUPAC04 ) ! Reaction Label CL2 RKI( NCELL, 227) = RJBLK( NCELL, IJ_HOCL_IUPAC04 ) ! Reaction Label CL9 RKI( NCELL, 234) = RJBLK( NCELL, IJ_FMCL_IUPAC04 ) ! Reaction Label CL27 RKI( NCELL, 252) = RJBLK( NCELL, IJ_CLNO2_IUPAC13 ) ! Reaction Label CL30 RKI( NCELL, 254) = RJBLK( NCELL, IJ_CLONO2_1 ) ! Reaction Label CL31 RKI( NCELL, 255) = RJBLK( NCELL, IJ_CLONO2_2 ) ! Reaction Label BP71mtp RKI( NCELL, 290) = RJBLK( NCELL, IJ_IC3ONO2 ) ! Reaction Label T04 RKI( NCELL, 316) = RJBLK( NCELL, IJ_FORM_R_IUPAC13 ) ! Reaction Label T05 RKI( NCELL, 317) = RJBLK( NCELL, IJ_FORM_M_IUPAC13 ) ! Reaction Label T09 RKI( NCELL, 322) = RJBLK( NCELL, IJ_ALD2_R_IUPAC13 ) ! Reaction Label T16 RKI( NCELL, 331) = RJBLK( NCELL, IJ_ACRO_09 ) ! Reaction Label T20 RKI( NCELL, 336) = RJBLK( NCELL, IJ_ACRO_09 ) ! Reaction Label BR28 RKI( NCELL, 371) = RJBLK( NCELL, IJ_BR2_IUPAC10 ) ! Reaction Label BR29 RKI( NCELL, 372) = RJBLK( NCELL, IJ_HOBR_IUPAC10 ) ! Reaction Label BR30 RKI( NCELL, 373) = RJBLK( NCELL, IJ_BRO_IUPAC10 ) ! Reaction Label BR31 RKI( NCELL, 374) = RJBLK( NCELL, IJ_BRNO2_IUPAC10 ) ! Reaction Label BR32 RKI( NCELL, 375) = RJBLK( NCELL, IJ_BRONO2_M_IUPAC10 ) ! Reaction Label BR33 RKI( NCELL, 376) = RJBLK( NCELL, IJ_BRONO2_R_IUPAC10 ) ! Reaction Label BR34 RKI( NCELL, 377) = RJBLK( NCELL, IJ_BRCL_IUPAC10 ) ! Reaction Label BR35 RKI( NCELL, 378) = RJBLK( NCELL, IJ_COHBR_JPL2010 ) ! Reaction Label BR36 RKI( NCELL, 379) = RJBLK( NCELL, IJ_MB3_IUPAC10 ) ! Reaction Label BR37 RKI( NCELL, 380) = RJBLK( NCELL, IJ_MB2C_BLIDE98 ) ! Reaction Label BR38 RKI( NCELL, 381) = RJBLK( NCELL, IJ_MBC2_BLIDE98 ) ! Reaction Label IO29 RKI( NCELL, 419) = RJBLK( NCELL, IJ_I2_IUPAC10 ) ! Reaction Label IO30 RKI( NCELL, 420) = RJBLK( NCELL, IJ_HOI_IUPAC10 ) ! Reaction Label IO31 RKI( NCELL, 421) = RJBLK( NCELL, IJ_IO_IUPAC10 ) ! Reaction Label IO32 RKI( NCELL, 422) = RJBLK( NCELL, IJ_OIO_06 ) ! Reaction Label IO33 RKI( NCELL, 423) = RJBLK( NCELL, IJ_INO_06 ) ! Reaction Label IO34 RKI( NCELL, 424) = RJBLK( NCELL, IJ_INO2_06 ) ! Reaction Label IO35 RKI( NCELL, 425) = RJBLK( NCELL, IJ_IONO2_06 ) ! Reaction Label IO36 RKI( NCELL, 426) = RJBLK( NCELL, IJ_IONO2_06 ) ! Reaction Label IO37 RKI( NCELL, 427) = RJBLK( NCELL, IJ_IONO2_06 ) ! Reaction Label IO38 RKI( NCELL, 428) = RJBLK( NCELL, IJ_IONO2_06 ) ! Reaction Label IO39 RKI( NCELL, 429) = RJBLK( NCELL, IJ_ICL_IUPAC10 ) ! Reaction Label IO40 RKI( NCELL, 430) = RJBLK( NCELL, IJ_IBR_IUPAC10 ) ! Reaction Label IO41 RKI( NCELL, 431) = RJBLK( NCELL, IJ_CH3I_IUPAC10 ) ! Reaction Label IO42 RKI( NCELL, 432) = RJBLK( NCELL, IJ_MI2_IUPAC10 ) ! Reaction Label IO43 RKI( NCELL, 433) = RJBLK( NCELL, IJ_MIB_IUPAC10 ) ! Reaction Label IO44 RKI( NCELL, 434) = RJBLK( NCELL, IJ_MIC_IUPAC10 ) END DO END IF DO NCELL = 1, NUMCELLS ! Set-up conversion factors INV_TEMP = 1.0D+00 / BLKTEMP( NCELL ) CAIR = 1.0D+06 * COEF1 * BLKPRES( NCELL ) * INV_TEMP CFACT = 6.0D-05 * CAIR CFACT_SQU = 6.0D-11 * CAIR * CAIR INV_CAIR = 1.0D0 / CAIR INV_CFACT = 6.0D+07 * INV_CAIR TEMP = BLKTEMP( NCELL ) TEMPOT300 = BLKTEMP( NCELL ) * TI300 RFACT = 1.0D+06 * INV_CAIR RFACT_SQU = 1.0D+12 * INV_CAIR * INV_CAIR ! Reaction Label R2 RKI( NCELL, 2) = CFACT_SQU * POWER_T02( TEMPOT300, 6.0000D-34, -2.6000D+00 ) ! Reaction Label R3 RKI( NCELL, 3) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.0700D-12, -1.4000D+03 ) ! Reaction Label R4 RKI( NCELL, 4) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 1.0000D-31, 0.0000D+00, -1.6000D+00, & & 5.0000D-11, 0.0000D+00, 3.0000D-01, & & 8.4000D-01, 8.5000D-01 ) ! Reaction Label R5 RKI( NCELL, 5) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.1000D-12, 1.9800D+02 ) ! Reaction Label R6 RKI( NCELL, 6) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 1.3000D-31, 0.0000D+00, -1.5000D+00, & & 2.3000D-11, 0.0000D+00, 2.4000D-01, & & 1.0300D+00, 6.0000D-01 ) ! Reaction Label R7 RKI( NCELL, 7) = CFACT * ARRHENUIS_T03( INV_TEMP, 8.0000D-12, -2.0600D+03 ) ! Reaction Label R10 RKI( NCELL, 10) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.2300D-11, 1.1500D+02 ) ! Reaction Label R11 RKI( NCELL, 11) = 2.1400D-10 * CFACT ! Reaction Label R12 RKI( NCELL, 12) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.7000D-12, -9.4000D+02 ) ! Reaction Label R13 RKI( NCELL, 13) = CFACT * ARRHENUIS_T04( INV_TEMP, TEMPOT300, & & 2.0300D-16, 6.9300D+02, 4.5700D+00 ) ! Reaction Label R14 RKI( NCELL, 14) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.4000D-11, 1.1000D+02 ) ! Reaction Label R15 RKI( NCELL, 15) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.0000D-11, 2.0000D+02 ) ! Reaction Label R16 RKI( NCELL, 16) = CFACT * ARRHENUIS_T04( INV_TEMP, TEMPOT300, & & 6.2000D-14, 9.4500D+02, 2.6000D+00 ) ! Reaction Label R17 RKI( NCELL, 17) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 9.0000D-31, 0.0000D+00, -3.2000D+00, & & 3.9000D-11, 0.0000D+00, -4.7000D-01, & & 1.2300D+00, 4.2000D-01 ) ! Reaction Label R18 RKI( NCELL, 18) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.8000D-11, 2.5000D+02 ) ! Reaction Label R19 RKI( NCELL, 19) = CFACT * FALLOFF_T09( INV_TEMP, CAIR, & & 2.2000D-13, 6.0000D+02, 1.9000D-33, & & 9.8000D+02 ) ! Reaction Label R20 RKI( NCELL, 20) = CFACT_SQU * FALLOFF_T09( INV_TEMP, CAIR, & & 3.0800D-34, 2.8000D+03, 2.6600D-54, & & 3.1800D+03 ) ! Reaction Label R22 RKI( NCELL, 22) = 1.8000D-12 * CFACT ! Reaction Label R23 RKI( NCELL, 23) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.4000D-12, -2.0000D+03 ) ! Reaction Label R24 RKI( NCELL, 24) = CFACT_SQU * ARRHENUIS_T03( INV_TEMP, 4.2500D-39, 6.6400D+02 ) ! Reaction Label R25 RKI( NCELL, 25) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.4500D-12, 2.7000D+02 ) ! Reaction Label R26 RKI( NCELL, 26) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.4000D-13, -2.4700D+03 ) ! Reaction Label R29 RKI( NCELL, 29) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.8000D-11, 1.1000D+02 ) ! Reaction Label R30 RKI( NCELL, 30) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.5000D-14, -1.2600D+03 ) ! Reaction Label R31 RKI( NCELL, 31) = 1.7000D-11 * CFACT ! Reaction Label R32 RKI( NCELL, 32) = 2.0000D-11 * CFACT ! Reaction Label R33 RKI( NCELL, 33) = 4.0000D-12 * CFACT ! Reaction Label R34 RKI( NCELL, 34) = 1.0000D-17 * CFACT ! Reaction Label R35 RKI( NCELL, 35) = CFACT * ARRHENUIS_T03( INV_TEMP, 8.5000D-13, -2.4500D+03 ) ! Reaction Label R36 RKI( NCELL, 36) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 3.6000D-30, 0.0000D+00, -4.1000D+00, & & 1.9000D-12, 0.0000D+00, 2.0000D-01, & & 1.3300D+00, 3.5000D-01 ) ! Reaction Label R37 RKI( NCELL, 37) = SFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 1.3000D-03, -1.1000D+04, -3.5000D+00, & & 9.7000D+14, -1.1080D+04, 1.0000D-01, & & 1.3300D+00, 3.5000D-01 ) ! Reaction Label R39 RKI( NCELL, 39) = 1.0000D-22 * CFACT ! Reaction Label R40 RKI( NCELL, 40) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 7.4000D-31, 0.0000D+00, -2.4000D+00, & & 3.3000D-11, 0.0000D+00, -3.0000D-01, & & 8.7000D-01, 8.1000D-01 ) ! Reaction Label R41 RKI( NCELL, 41) = 5.0000D-40 * CFACT_SQU ! Reaction Label R42 RKI( NCELL, 42) = 1.0000D-20 * CFACT ! Reaction Label R44 RKI( NCELL, 44) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.5000D-12, 2.6000D+02 ) ! Reaction Label R45 RKI( NCELL, 45) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 1.8000D-30, 0.0000D+00, -3.0000D+00, & & 2.8000D-11, 0.0000D+00, 0.0000D+00, & & 1.0000D+00, 6.0000D-01 ) ! Reaction Label R46 RKI( NCELL, 46) = CFACT * FALLOFF_T08( INV_TEMP, CAIR, & & 2.4000D-14, 4.6000D+02, 2.7000D-17, & & 2.1990D+03, 6.5000D-34, 1.3350D+03 ) ! Reaction Label R48 RKI( NCELL, 48) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 1.4000D-31, 0.0000D+00, -3.1000D+00, & & 4.0000D-12, 0.0000D+00, 0.0000D+00, & & 1.2600D+00, 4.0000D-01 ) ! Reaction Label R49 RKI( NCELL, 49) = SFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 4.1000D-05, -1.0650D+04, 0.0000D+00, & & 6.0000D+15, -1.1170D+04, 0.0000D+00, & & 1.2600D+00, 4.0000D-01 ) ! Reaction Label R51 RKI( NCELL, 51) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.2000D-13, 6.9000D+02 ) ! Reaction Label R52 RKI( NCELL, 52) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 2.8000D-31, 0.0000D+00, -2.6000D+00, & & 2.0000D-12, 0.0000D+00, 0.0000D+00, & & 1.1000D+00, 5.3000D-01 ) ! Reaction Label R53 RKI( NCELL, 53) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.5000D-12, 2.9000D+02 ) ! Reaction Label R54 RKI( NCELL, 54) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 3.6100D-28, 0.0000D+00, -6.8700D+00, & & 1.2400D-11, 0.0000D+00, -1.1050D+00, & & 1.4100D+00, 3.0000D-01 ) ! Reaction Label R55 RKI( NCELL, 55) = SFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 1.1000D-05, -1.0100D+04, 0.0000D+00, & & 1.9000D+17, -1.4100D+04, 0.0000D+00, & & 1.4100D+00, 3.0000D-01 ) ! Reaction Label R57 RKI( NCELL, 57) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.1400D-12, 5.8000D+02 ) ! Reaction Label R58 RKI( NCELL, 58) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.4000D-13, 1.0700D+03 ) ! Reaction Label R59 RKI( NCELL, 59) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.9000D-12, 5.0000D+02 ) ! Reaction Label R60 RKI( NCELL, 60) = RKI( NCELL, 59 ) ! Reaction Label R61 RKI( NCELL, 61) = CFACT * ARRHENUIS_T03( INV_TEMP, 6.7000D-12, 3.4000D+02 ) ! Reaction Label R62 RKI( NCELL, 62) = 8.4000D-01 * RKI( NCELL, 54 ) ! Reaction Label R63 RKI( NCELL, 63) = 8.4000D-01 * RKI( NCELL, 55 ) ! Reaction Label R65 RKI( NCELL, 65) = RKI( NCELL, 57 ) ! Reaction Label R66 RKI( NCELL, 66) = RKI( NCELL, 58 ) ! Reaction Label R67 RKI( NCELL, 67) = RKI( NCELL, 59 ) ! Reaction Label R68 RKI( NCELL, 68) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.4000D-12, 3.6000D+02 ) ! Reaction Label R69 RKI( NCELL, 69) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.8000D-13, 8.0000D+02 ) ! Reaction Label R70 RKI( NCELL, 70) = CFACT * ARRHENUIS_T03( INV_TEMP, 6.5000D-14, 5.0000D+02 ) ! Reaction Label R71 RKI( NCELL, 71) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.3000D-12, 3.6000D+02 ) ! Reaction Label R72 RKI( NCELL, 72) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.8000D-13, 7.8000D+02 ) ! Reaction Label R73 RKI( NCELL, 73) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.0000D-12, 5.0000D+02 ) ! Reaction Label R74 RKI( NCELL, 74) = RKI( NCELL, 70 ) ! Reaction Label R75 RKI( NCELL, 75) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label R76 RKI( NCELL, 76) = CFACT * ARRHENUIS_T03( INV_TEMP, 6.8000D-13, 8.0000D+02 ) ! Reaction Label R77 RKI( NCELL, 77) = RKI( NCELL, 58 ) ! Reaction Label R78 RKI( NCELL, 78) = RKI( NCELL, 70 ) ! Reaction Label R79 RKI( NCELL, 79) = RKI( NCELL, 75 ) ! Reaction Label R80 RKI( NCELL, 80) = RKI( NCELL, 76 ) ! Reaction Label R81 RKI( NCELL, 81) = RKI( NCELL, 58 ) ! Reaction Label R82 RKI( NCELL, 82) = RKI( NCELL, 70 ) ! Reaction Label R83 RKI( NCELL, 83) = RKI( NCELL, 75 ) ! Reaction Label R84 RKI( NCELL, 84) = RKI( NCELL, 76 ) ! Reaction Label R85 RKI( NCELL, 85) = RKI( NCELL, 58 ) ! Reaction Label R86 RKI( NCELL, 86) = RKI( NCELL, 70 ) ! Reaction Label R87 RKI( NCELL, 87) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.3000D-12, 1.9000D+02 ) ! Reaction Label R89 RKI( NCELL, 89) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.3000D-12, 1.9000D+02 ) ! Reaction Label R91 RKI( NCELL, 91) = 2.0000D-12 * CFACT ! Reaction Label R93 RKI( NCELL, 93) = 4.5000D-13 * CFACT ! Reaction Label R94 RKI( NCELL, 94) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.0000D-14, 8.5000D+02 ) ! Reaction Label R95 RKI( NCELL, 95) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.3000D-12, 1.9000D+02 ) ! Reaction Label R96 RKI( NCELL, 96) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.4000D-12, 1.3500D+02 ) ! Reaction Label R99 RKI( NCELL, 99) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.4000D-11, -1.6000D+03 ) ! Reaction Label R100 RKI( NCELL, 100) = 5.5000D-16 * CFACT ! Reaction Label R101 RKI( NCELL, 101) = CFACT * ARRHENUIS_T03( INV_TEMP, 9.7000D-15, 6.2500D+02 ) ! Reaction Label R102 RKI( NCELL, 102) = SFACT * ARRHENUIS_T03( INV_TEMP, 2.4000D+12, -7.0000D+03 ) ! Reaction Label R103 RKI( NCELL, 103) = 5.6000D-12 * CFACT ! Reaction Label R104 RKI( NCELL, 104) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.6000D-15, 2.3000D+03 ) ! Reaction Label R105 RKI( NCELL, 105) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.8000D-11, -1.1000D+03 ) ! Reaction Label R106 RKI( NCELL, 106) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.7000D-12, 3.4500D+02 ) ! Reaction Label R107 RKI( NCELL, 107) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.4000D-12, -1.8600D+03 ) ! Reaction Label R109 RKI( NCELL, 109) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.3000D-11, -8.7000D+02 ) ! Reaction Label R110 RKI( NCELL, 110) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.9000D-12, 4.0500D+02 ) ! Reaction Label R111 RKI( NCELL, 111) = 6.3000D-15 * CFACT ! Reaction Label R113 RKI( NCELL, 113) = 8.0000D-12 * CFACT ! Reaction Label R115 RKI( NCELL, 115) = RKI( NCELL, 107 ) ! Reaction Label R116 RKI( NCELL, 116) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.1000D-12, 3.4000D+02 ) ! Reaction Label R118 RKI( NCELL, 118) = 4.0000D-16 * CFACT ! Reaction Label R120 RKI( NCELL, 120) = 5.0000D-16 * CFACT ! Reaction Label R121 RKI( NCELL, 121) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.9000D-12, 5.7500D+02 ) ! Reaction Label R122 RKI( NCELL, 122) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.7000D-12, -2.1000D+03 ) ! Reaction Label R123 RKI( NCELL, 123) = CFACT * FALLOFF_T09( INV_TEMP, CAIR, & & 1.4400D-13, 0.0000D+00, 3.4300D-33, & & 0.0000D+00 ) ! Reaction Label R124 RKI( NCELL, 124) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.8500D-12, -1.6900D+03 ) ! Reaction Label R125 RKI( NCELL, 125) = CFACT * ARRHENUIS_T03( INV_TEMP, 6.9000D-12, -1.0000D+03 ) ! Reaction Label R126 RKI( NCELL, 126) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.8500D-12, -3.4500D+02 ) ! Reaction Label R127 RKI( NCELL, 127) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.0000D-12, 2.0000D+01 ) ! Reaction Label R130 RKI( NCELL, 130) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.4100D-12, -6.2060D+02 ) ! Reaction Label R131 RKI( NCELL, 131) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.6000D-12, -5.8500D+02 ) ! Reaction Label R132 RKI( NCELL, 132) = 8.1000D-13 * CFACT ! Reaction Label R133 RKI( NCELL, 133) = SFACT * ARRHENUIS_T03( INV_TEMP, 5.7000D+12, -5.7800D+03 ) ! Reaction Label R134 RKI( NCELL, 134) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.5000D-14, -2.0000D+02 ) ! Reaction Label R135 RKI( NCELL, 135) = CFACT * ARRHENUIS_T03( INV_TEMP, 8.6000D-12, 4.0000D+02 ) ! Reaction Label R136 RKI( NCELL, 136) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 5.0000D-30, 0.0000D+00, -1.5000D+00, & & 1.0000D-12, 0.0000D+00, 0.0000D+00, & & 1.3000D+00, 3.7000D-01 ) ! Reaction Label R137 RKI( NCELL, 137) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.0400D-11, -7.9200D+02 ) ! Reaction Label R138 RKI( NCELL, 138) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 8.6000D-29, 0.0000D+00, -3.1000D+00, & & 9.0000D-12, 0.0000D+00, -8.5000D-01, & & 1.1500D+00, 4.8000D-01 ) ! Reaction Label R139 RKI( NCELL, 139) = CFACT * ARRHENUIS_T03( INV_TEMP, 6.8200D-15, -2.5000D+03 ) ! Reaction Label R140 RKI( NCELL, 140) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.3000D-12, -2.8800D+03 ) ! Reaction Label R141 RKI( NCELL, 141) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.0000D-11, -2.8000D+02 ) ! Reaction Label R142 RKI( NCELL, 142) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 8.0000D-27, 0.0000D+00, -3.5000D+00, & & 3.0000D-11, 0.0000D+00, -1.0000D+00, & & 1.1300D+00, 5.0000D-01 ) ! Reaction Label R143 RKI( NCELL, 143) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.5000D-15, -1.8800D+03 ) ! Reaction Label R144 RKI( NCELL, 144) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.6000D-13, -1.1550D+03 ) ! Reaction Label R145 RKI( NCELL, 145) = 2.3000D-11 * CFACT ! Reaction Label R146 RKI( NCELL, 146) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.0500D-11, 5.1900D+02 ) ! Reaction Label R147 RKI( NCELL, 147) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.7000D-15, -1.0130D+03 ) ! Reaction Label R148 RKI( NCELL, 148) = 3.7000D-13 * CFACT ! Reaction Label R149 RKI( NCELL, 149) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-11, 3.9000D+02 ) ! Reaction Label R150 RKI( NCELL, 150) = 3.0000D-11 * CFACT ! Reaction Label R151 RKI( NCELL, 151) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.3900D-12, 3.6500D+02 ) ! Reaction Label R152 RKI( NCELL, 152) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.4300D-13, 7.0000D+02 ) ! Reaction Label R153 RKI( NCELL, 153) = RKI( NCELL, 58 ) ! Reaction Label R154 RKI( NCELL, 154) = RKI( NCELL, 70 ) ! Reaction Label R155 RKI( NCELL, 155) = SFACT * ARRHENUIS_T03( INV_TEMP, 3.3000D+09, -8.3000D+03 ) ! Reaction Label R156 RKI( NCELL, 156) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.0300D-14, -1.9950D+03 ) ! Reaction Label R157 RKI( NCELL, 157) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.0300D-12, -4.4800D+02 ) ! Reaction Label R158 RKI( NCELL, 158) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.5800D-12, 5.1100D+02 ) ! Reaction Label R159 RKI( NCELL, 159) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.8800D-15, -1.7700D+03 ) ! Reaction Label R160 RKI( NCELL, 160) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.1000D-12, -1.8600D+03 ) ! Reaction Label R162 RKI( NCELL, 162) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.2300D-11, 3.7200D+02 ) ! Reaction Label R164 RKI( NCELL, 164) = CFACT * ARRHENUIS_T03( INV_TEMP, 6.0000D-12, -1.8600D+03 ) ! Reaction Label R165 RKI( NCELL, 165) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.7800D-11, -4.0000D+02 ) ! Reaction Label R166 RKI( NCELL, 166) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.4300D-13, 7.0000D+02 ) ! Reaction Label R167 RKI( NCELL, 167) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.3900D-12, 3.6500D+02 ) ! Reaction Label R168 RKI( NCELL, 168) = RKI( NCELL, 58 ) ! Reaction Label R169 RKI( NCELL, 169) = RKI( NCELL, 70 ) ! Reaction Label R170 RKI( NCELL, 170) = 3.1000D-11 * CFACT ! Reaction Label R171 RKI( NCELL, 171) = 3.6000D-11 * CFACT ! Reaction Label R172 RKI( NCELL, 172) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.5000D-11, 4.4900D+02 ) ! Reaction Label R173 RKI( NCELL, 173) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.2000D-15, -8.2100D+02 ) ! Reaction Label R174 RKI( NCELL, 174) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.7000D-12, 1.7500D+02 ) ! Reaction Label R171a RKI( NCELL, 175) = 3.6000D-11 * CFACT ! Reaction Label R172a RKI( NCELL, 176) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.5000D-11, 4.4900D+02 ) ! Reaction Label R173a RKI( NCELL, 177) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.2000D-15, -8.2100D+02 ) ! Reaction Label R174a RKI( NCELL, 178) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.7000D-12, 1.7500D+02 ) ! Reaction Label R175 RKI( NCELL, 179) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.3000D-12, -1.9000D+02 ) ! Reaction Label R176 RKI( NCELL, 180) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label R177 RKI( NCELL, 181) = RKI( NCELL, 58 ) ! Reaction Label R178 RKI( NCELL, 182) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.9000D-13, 1.3000D+03 ) ! Reaction Label R179 RKI( NCELL, 183) = RKI( NCELL, 70 ) ! Reaction Label R180 RKI( NCELL, 184) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.8000D-12, 3.4000D+02 ) ! Reaction Label R181 RKI( NCELL, 185) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label R182 RKI( NCELL, 186) = RKI( NCELL, 58 ) ! Reaction Label R183 RKI( NCELL, 187) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.9000D-13, 1.3000D+03 ) ! Reaction Label R184 RKI( NCELL, 188) = RKI( NCELL, 70 ) ! Reaction Label R185 RKI( NCELL, 189) = 1.8500D-11 * CFACT ! Reaction Label R185a RKI( NCELL, 190) = 1.8500D-11 * CFACT ! Reaction Label R186 RKI( NCELL, 191) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label R187 RKI( NCELL, 192) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.9000D-13, 1.3000D+03 ) ! Reaction Label R188 RKI( NCELL, 193) = RKI( NCELL, 58 ) ! Reaction Label R189 RKI( NCELL, 194) = RKI( NCELL, 70 ) ! Reaction Label R190 RKI( NCELL, 195) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.7000D-12, 9.5000D+02 ) ! Reaction Label R191 RKI( NCELL, 196) = 1.4000D-11 * CFACT ! Reaction Label R192 RKI( NCELL, 197) = 2.1000D-12 * CFACT ! Reaction Label R193 RKI( NCELL, 198) = 5.5000D-12 * CFACT ! Reaction Label R194 RKI( NCELL, 199) = 1.5300D-12 * CFACT ! Reaction Label R195 RKI( NCELL, 200) = 3.8000D-12 * CFACT ! Reaction Label R198 RKI( NCELL, 203) = 9.0000D-11 * CFACT ! Reaction Label R199 RKI( NCELL, 204) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.0800D-16, -5.0000D+02 ) ! Reaction Label R200 RKI( NCELL, 205) = 3.0000D-12 * CFACT ! Reaction Label R202 RKI( NCELL, 207) = 4.4000D-11 * CFACT ! Reaction Label R203 RKI( NCELL, 208) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.4000D-17, -5.0000D+02 ) ! Reaction Label R204 RKI( NCELL, 209) = 3.8000D-12 * CFACT ! Reaction Label R205 RKI( NCELL, 210) = 5.0000D-11 * CFACT ! Reaction Label R206 RKI( NCELL, 211) = 1.7000D-10 * CFACT ! Reaction Label R207 RKI( NCELL, 212) = RKI( NCELL, 61 ) ! Reaction Label R208 RKI( NCELL, 213) = RKI( NCELL, 62 ) ! Reaction Label R209 RKI( NCELL, 214) = RKI( NCELL, 63 ) ! Reaction Label R210 RKI( NCELL, 215) = RKI( NCELL, 57 ) ! Reaction Label R211 RKI( NCELL, 216) = RKI( NCELL, 59 ) ! Reaction Label R212 RKI( NCELL, 217) = RKI( NCELL, 58 ) ! Reaction Label R213 RKI( NCELL, 218) = 3.6000D-11 * CFACT ! Reaction Label R214 RKI( NCELL, 219) = 3.0000D-12 * CFACT ! Reaction Label R216 RKI( NCELL, 220) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.8500D-12, -1.6900D+03 ) ! Reaction Label R217 RKI( NCELL, 221) = SFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 2.3700D-21, 0.0000D+00, 0.0000D+00, & & 4.0700D-01, 0.0000D+00, -8.0000D+00, & & 1.0000D+00, 4.1000D-01 ) ! Reaction Label R218 RKI( NCELL, 222) = 1.0000D+00 * SFACT ! Reaction Label R219 RKI( NCELL, 223) = SFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 4.8100D-20, 0.0000D+00, 0.0000D+00, & & 4.0700D-01, 0.0000D+00, -8.0000D+00, & & 1.0000D+00, 4.1000D-01 ) ! Reaction Label R220 RKI( NCELL, 224) = 1.0000D+00 * SFACT ! Reaction Label R221 RKI( NCELL, 225) = 1.1000D-30 * CFACT_SQU ! Reaction Label CL3 RKI( NCELL, 228) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.3000D-11, -2.0000D+02 ) ! Reaction Label CL4 RKI( NCELL, 229) = 1.6300D-14 * CFACT ! Reaction Label CL5 RKI( NCELL, 230) = CFACT * ARRHENUIS_T03( INV_TEMP, 6.4000D-12, 2.9000D+02 ) ! Reaction Label CL6 RKI( NCELL, 231) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.2000D-12, 3.4000D+02 ) ! Reaction Label CL7 RKI( NCELL, 232) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.2000D-12, -1.1000D+02 ) ! Reaction Label CL8 RKI( NCELL, 233) = 5.0000D-13 * CFACT ! Reaction Label CL10 RKI( NCELL, 235) = CFACT * ARRHENUIS_T03( INV_TEMP, 6.6000D-12, -1.2400D+03 ) ! Reaction Label CL11 RKI( NCELL, 236) = 5.0000D-11 * CFACT ! Reaction Label CL12 RKI( NCELL, 237) = 1.4000D-10 * CFACT ! Reaction Label CL13 RKI( NCELL, 238) = CFACT * ARRHENUIS_T03( INV_TEMP, 8.3000D-11, -1.0000D+02 ) ! Reaction Label CL14 RKI( NCELL, 239) = 1.0700D-10 * CFACT ! Reaction Label CL15 RKI( NCELL, 240) = 2.5000D-10 * CFACT ! Reaction Label CL16 RKI( NCELL, 241) = 3.5000D-10 * CFACT ! Reaction Label CL17 RKI( NCELL, 242) = 4.3000D-10 * CFACT ! Reaction Label CL18 RKI( NCELL, 243) = CFACT * ARRHENUIS_T03( INV_TEMP, 8.2000D-11, -3.4000D+01 ) ! Reaction Label CL19 RKI( NCELL, 244) = 7.9000D-11 * CFACT ! Reaction Label CL20 RKI( NCELL, 245) = 1.3000D-10 * CFACT ! Reaction Label CL21 RKI( NCELL, 246) = 5.5000D-11 * CFACT ! Reaction Label CL22 RKI( NCELL, 247) = CFACT * ARRHENUIS_T03( INV_TEMP, 8.2000D-11, 4.5000D+01 ) ! Reaction Label CL23 RKI( NCELL, 248) = CFACT * ARRHENUIS_T04( INV_TEMP, TEMPOT300, & & 6.5800D-13, 5.8000D+01, 1.1600D+00 ) ! Reaction Label CL24 RKI( NCELL, 249) = 6.1000D-11 * CFACT ! Reaction Label CL25 RKI( NCELL, 250) = 1.2000D-10 * CFACT ! Reaction Label CL26 RKI( NCELL, 251) = 1.2000D-10 * CFACT ! Reaction Label CL28 RKI( NCELL, 253) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 1.8000D-31, 0.0000D+00, -3.4000D+00, & & 1.5000D-11, 0.0000D+00, -1.9000D+00, & & 1.0000D+00, 6.0000D-01 ) ! Reaction Label HET_CLNO3_WAI RKI( NCELL, 256) = BLKHET( NCELL, IK_HETERO_CLNO3_WAI ) ! Reaction Label HET_CLNO3_WAJ RKI( NCELL, 257) = BLKHET( NCELL, IK_HETERO_CLNO3_WAJ ) ! Reaction Label SA01 RKI( NCELL, 258) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label SA02 RKI( NCELL, 259) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.9000D-13, 1.3000D+03 ) ! Reaction Label SA03 RKI( NCELL, 260) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label SA04 RKI( NCELL, 261) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.9000D-13, 1.3000D+03 ) ! Reaction Label SA06 RKI( NCELL, 262) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label SA07 RKI( NCELL, 263) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.9000D-13, 1.3000D+03 ) ! Reaction Label SA08 RKI( NCELL, 264) = 1.1600D-14 * CFACT ! Reaction Label SA09 RKI( NCELL, 265) = 1.9700D-10 * CFACT ! Reaction Label SA10 RKI( NCELL, 266) = 1.9000D-11 * CFACT ! Reaction Label SA11 RKI( NCELL, 267) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label SA12 RKI( NCELL, 268) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.9000D-13, 1.3000D+03 ) ! Reaction Label SA13 RKI( NCELL, 269) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.7400D+02 ) ! Reaction Label HET_NTR2 RKI( NCELL, 270) = 1.4000D+00 * BLKHET( NCELL, IK_HETERO_NTR2 ) ! Reaction Label HET_N2O5IJ RKI( NCELL, 271) = BLKHET( NCELL, IK_HETERO_N2O5IJ ) ! Reaction Label HET_N2O5K RKI( NCELL, 272) = BLKHET( NCELL, IK_HETERO_N2O5K ) ! Reaction Label HET_H2NO3PIJA RKI( NCELL, 273) = BLKHET( NCELL, IK_HETERO_H2NO3PAIJ ) ! Reaction Label HET_H2NO3PKA RKI( NCELL, 274) = BLKHET( NCELL, IK_HETERO_H2NO3PAK ) ! Reaction Label HET_H2NO3PIB RKI( NCELL, 275) = BLKHET( NCELL, IK_HETERO_H2NO3PBIJ ) ! Reaction Label HET_H2NO3PJB RKI( NCELL, 276) = BLKHET( NCELL, IK_HETERO_H2NO3PBIJ ) ! Reaction Label HET_H2NO3PKB RKI( NCELL, 277) = BLKHET( NCELL, IK_HETERO_H2NO3PBK ) ! Reaction Label HET_N02 RKI( NCELL, 278) = BLKHET( NCELL, IK_HETERO_NO2 ) ! Reaction Label HET_IEPOX RKI( NCELL, 279) = BLKHET( NCELL, IK_HETERO_IEPOX ) ! Reaction Label HET_IEPOXOS RKI( NCELL, 280) = BLKHET( NCELL, IK_HETERO_IEPOXOS ) ! Reaction Label HET_TETROL RKI( NCELL, 281) = BLKHET( NCELL, IK_HETERO_TETROL ) ! Reaction Label HET_GLY RKI( NCELL, 282) = BLKHET( NCELL, IK_HETERO_GLY ) ! Reaction Label HET_MGLY RKI( NCELL, 283) = BLKHET( NCELL, IK_HETERO_MGLY ) ! Reaction Label BL18a RKI( NCELL, 284) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.6000D-12, 3.8000D+02 ) ! Reaction Label BL18b RKI( NCELL, 285) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.6500D-13, 1.3000D+03 ) ! Reaction Label BL18c RKI( NCELL, 286) = 2.3000D-12 * CFACT ! Reaction Label BL18d RKI( NCELL, 287) = 3.5000D-14 * CFACT ! Reaction Label CP07mtp RKI( NCELL, 288) = 1.9200D-10 * CFACT ! Reaction Label BP70mtp RKI( NCELL, 289) = 7.2000D-12 * CFACT ! Reaction Label HYD_MT RKI( NCELL, 291) = 9.2590D-05 * SFACT ! Reaction Label OLIG_AROMATIC1 RKI( NCELL, 292) = 9.4882D-06 * SFACT ! Reaction Label OLIG_AROMATIC2 RKI( NCELL, 293) = 9.4882D-06 * SFACT ! Reaction Label OLIG_AROMATIC3 RKI( NCELL, 294) = 9.4882D-06 * SFACT ! Reaction Label OLIG_ISOPRENE1 RKI( NCELL, 295) = 9.4882D-06 * SFACT ! Reaction Label OLIG_ISOPRENE2 RKI( NCELL, 296) = 9.4882D-06 * SFACT ! Reaction Label OLIG_SESQT1 RKI( NCELL, 297) = 9.4882D-06 * SFACT ! Reaction Label RPOAGEPI RKI( NCELL, 298) = 2.5000D-12 * CFACT ! Reaction Label RPOAGELI RKI( NCELL, 299) = BLKHET( NCELL, IK_HETERO_PNCOMLI ) ! Reaction Label RPOAGEPJ RKI( NCELL, 300) = 2.5000D-12 * CFACT ! Reaction Label RPOAGELJ RKI( NCELL, 301) = BLKHET( NCELL, IK_HETERO_PNCOMLJ ) ! Reaction Label PCSOA RKI( NCELL, 302) = 1.2500D-11 * CFACT ! Reaction Label POA_AGE1 RKI( NCELL, 303) = 4.0000D-11 * CFACT ! Reaction Label POA_AGE2 RKI( NCELL, 304) = 4.0000D-11 * CFACT ! Reaction Label POA_AGE3 RKI( NCELL, 305) = 4.0000D-11 * CFACT ! Reaction Label POA_AGE4 RKI( NCELL, 306) = 4.0000D-11 * CFACT ! Reaction Label POA_AGE5 RKI( NCELL, 307) = 4.0000D-11 * CFACT ! Reaction Label POA_AGE6 RKI( NCELL, 308) = 4.0000D-11 * CFACT ! Reaction Label POA_AGE7 RKI( NCELL, 309) = 4.0000D-11 * CFACT ! Reaction Label POA_AGE8 RKI( NCELL, 310) = 4.0000D-11 * CFACT ! Reaction Label POA_AGE9 RKI( NCELL, 311) = 4.0000D-11 * CFACT ! Reaction Label POA_AGE10 RKI( NCELL, 312) = 4.0000D-11 * CFACT ! Reaction Label T01 RKI( NCELL, 313) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.4000D-12, 1.3500D+02 ) ! Reaction Label T02 RKI( NCELL, 314) = 5.5000D-16 * CFACT ! Reaction Label T03 RKI( NCELL, 315) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.4000D-11, -1.6000D+03 ) ! Reaction Label TCL1 RKI( NCELL, 318) = CFACT * ARRHENUIS_T03( INV_TEMP, 8.2000D-11, -3.4000D+01 ) ! Reaction Label T06 RKI( NCELL, 319) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.7000D-12, 3.4500D+02 ) ! Reaction Label T07 RKI( NCELL, 320) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.4000D-12, -1.8600D+03 ) ! Reaction Label T08 RKI( NCELL, 321) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.8000D-11, -1.1000D+03 ) ! Reaction Label TCL2 RKI( NCELL, 323) = 7.9000D-11 * CFACT ! Reaction Label T10 RKI( NCELL, 324) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.4800D-11, 4.4800D+02 ) ! Reaction Label T11 RKI( NCELL, 325) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.3400D-14, -2.2830D+03 ) ! Reaction Label T12 RKI( NCELL, 326) = 1.7900D-13 * CFACT ! Reaction Label TCL3 RKI( NCELL, 327) = 2.5100D-10 * CFACT ! Reaction Label T13 RKI( NCELL, 328) = 2.0000D-11 * CFACT ! Reaction Label T14 RKI( NCELL, 329) = 2.6100D-19 * CFACT ! Reaction Label T15 RKI( NCELL, 330) = 1.1500D-15 * CFACT ! Reaction Label TCL4 RKI( NCELL, 332) = 2.3700D-10 * CFACT ! Reaction Label T17 RKI( NCELL, 333) = 2.0000D-11 * CFACT ! Reaction Label T18 RKI( NCELL, 334) = 2.6100D-19 * CFACT ! Reaction Label T19 RKI( NCELL, 335) = 1.1500D-15 * CFACT ! Reaction Label TCL5 RKI( NCELL, 337) = 2.3700D-10 * CFACT ! Reaction Label T21 RKI( NCELL, 338) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.8000D-12, 3.4000D+02 ) ! Reaction Label TCL6 RKI( NCELL, 339) = 6.1000D-11 * CFACT ! Reaction Label HG1 RKI( NCELL, 340) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.1100D-18, -1.2565D+03 ) ! Reaction Label HG2 RKI( NCELL, 341) = 2.6000D-18 * CFACT ! Reaction Label HG3 RKI( NCELL, 342) = 8.5000D-19 * CFACT ! Reaction Label HG4 RKI( NCELL, 343) = 7.7000D-14 * CFACT ! Reaction Label HG5 RKI( NCELL, 344) = CFACT_SQU * ARRHENUIS_T03( INV_TEMP, 2.2500D-33, 6.8000D+02 ) ! Reaction Label BR01 RKI( NCELL, 345) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.6000D-11, -7.8000D+02 ) ! Reaction Label BR02 RKI( NCELL, 346) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.5000D-12, 4.6000D+02 ) ! Reaction Label BR03 RKI( NCELL, 347) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.8000D-12, -3.1000D+02 ) ! Reaction Label BR04 RKI( NCELL, 348) = CFACT * ARRHENUIS_T03( INV_TEMP, 6.7000D-12, 1.5500D+02 ) ! Reaction Label BR05 RKI( NCELL, 349) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.4000D-12, 2.1000D+02 ) ! Reaction Label BR06 RKI( NCELL, 350) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.9000D-14, 8.4000D+02 ) ! Reaction Label BR07 RKI( NCELL, 351) = CFACT * ARRHENUIS_T03( INV_TEMP, 8.8000D-12, 2.6000D+02 ) ! Reaction Label BR08 RKI( NCELL, 352) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.9000D-11, 0.0000D+00 ) ! Reaction Label BR09 RKI( NCELL, 353) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.1000D-11, 2.4000D+02 ) ! Reaction Label BR10 RKI( NCELL, 354) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.7000D-11, 2.5000D+02 ) ! Reaction Label BR11 RKI( NCELL, 355) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.6000D-11, 0.0000D+00 ) ! Reaction Label BR12 RKI( NCELL, 356) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 5.2000D-31, 0.0000D+00, -3.2000D+00, & & 6.9000D-12, 0.0000D+00, -2.9000D+00, & & 1.0000D+00, 6.0000D-01 ) ! Reaction Label BR13 RKI( NCELL, 357) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 4.2000D-31, 0.0000D+00, -2.4000D+00, & & 2.7000D-11, 0.0000D+00, 0.0000D+00, & & 1.0000D+00, 6.0000D-01 ) ! Reaction Label BR14 RKI( NCELL, 358) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.7000D-12, 3.2000D+02 ) ! Reaction Label BR15 RKI( NCELL, 359) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.7000D-11, -8.0000D+02 ) ! Reaction Label BR16 RKI( NCELL, 360) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.3000D-11, -3.6000D+02 ) ! Reaction Label BR17 RKI( NCELL, 361) = 3.6000D-12 * CFACT ! Reaction Label BR18 RKI( NCELL, 362) = 5.0000D-12 * CFACT ! Reaction Label BR19 RKI( NCELL, 363) = 5.0000D-12 * CFACT ! Reaction Label BR20 RKI( NCELL, 364) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-14, 1.6000D+03 ) ! Reaction Label BR22 RKI( NCELL, 365) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.0000D-12, -3.8800D+02 ) ! Reaction Label BR23 RKI( NCELL, 366) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.0000D-12, -8.4000D+02 ) ! Reaction Label BR24 RKI( NCELL, 367) = CFACT * ARRHENUIS_T03( INV_TEMP, 9.0000D-13, -4.2000D+02 ) ! Reaction Label BR25 RKI( NCELL, 368) = CFACT * ARRHENUIS_T03( INV_TEMP, 9.4000D-13, -5.1000D+02 ) ! Reaction Label BR26 RKI( NCELL, 369) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.1000D-12, -8.8000D+02 ) ! Reaction Label BR27 RKI( NCELL, 370) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.5000D-14, 1.0000D+03 ) ! Reaction Label HET_BRNO3_WAI RKI( NCELL, 382) = BLKHET( NCELL, IK_HETERO_BRNO3_WAI ) ! Reaction Label HET_BRNO3_WAJ RKI( NCELL, 383) = BLKHET( NCELL, IK_HETERO_BRNO3_WAJ ) ! Reaction Label HET_HOBR_CLJ RKI( NCELL, 384) = BLKHET( NCELL, IK_HETERO_HOBR_CLJ ) ! Reaction Label HET_HOBR_BRJ RKI( NCELL, 385) = BLKHET( NCELL, IK_HETERO_HOBR_BRJ ) ! Reaction Label HET_BRNO3_CLJ RKI( NCELL, 386) = BLKHET( NCELL, IK_HETERO_BRNO3_CLJ ) ! Reaction Label HET_BRNO3_BRJ RKI( NCELL, 387) = BLKHET( NCELL, IK_HETERO_BRNO3_BRJ ) ! Reaction Label HET_BRNO2_CLJ RKI( NCELL, 388) = BLKHET( NCELL, IK_HETERO_BRNO2_CLJ ) ! Reaction Label HET_BRNO2_BRJ RKI( NCELL, 389) = BLKHET( NCELL, IK_HETERO_BRNO2_BRJ ) ! Reaction Label HET_HBR_BRJ RKI( NCELL, 390) = BLKHET( NCELL, IK_HETERO_HBR_BRJ ) ! Reaction Label IO01 RKI( NCELL, 391) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.1000D-11, -8.3000D+02 ) ! Reaction Label IO02 RKI( NCELL, 392) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.5000D-11, -1.0900D+03 ) ! Reaction Label IO03 RKI( NCELL, 393) = 2.1000D-10 * CFACT ! Reaction Label IO04 RKI( NCELL, 394) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.6000D-11, 4.4000D+02 ) ! Reaction Label IO05 RKI( NCELL, 395) = 5.0000D-12 * CFACT ! Reaction Label IO06 RKI( NCELL, 396) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.4000D-11, 5.4000D+02 ) ! Reaction Label IO07 RKI( NCELL, 397) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.1500D-12, 3.0000D+02 ) ! Reaction Label IO08 RKI( NCELL, 398) = CFACT * ARRHENUIS_T03( INV_TEMP, 8.4000D-11, -2.6200D+03 ) ! Reaction Label IO09 RKI( NCELL, 399) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.7000D-13, -1.6700D+03 ) ! Reaction Label IO10 RKI( NCELL, 400) = 1.5000D-12 * CFACT ! Reaction Label IO11 RKI( NCELL, 401) = CFACT * ARRHENUIS_T03( INV_TEMP, 9.1000D-11, -1.4600D+02 ) ! Reaction Label IO12 RKI( NCELL, 402) = 1.2000D-11 * CFACT ! Reaction Label IO13 RKI( NCELL, 403) = 2.7000D-11 * CFACT ! Reaction Label IO14 RKI( NCELL, 404) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.5000D-11, 5.1000D+02 ) ! Reaction Label IO15 RKI( NCELL, 405) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.7000D-12, 2.8000D+02 ) ! Reaction Label IO16 RKI( NCELL, 406) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.5000D-10, 0.0000D+00 ) ! Reaction Label IO17 RKI( NCELL, 407) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.1000D-12, 5.4200D+02 ) ! Reaction Label IO18 RKI( NCELL, 408) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.4000D-11, 1.8000D+02 ) ! Reaction Label IO19 RKI( NCELL, 409) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.5000D-10, 0.0000D+00 ) ! Reaction Label IO20 RKI( NCELL, 410) = SFACT * ARRHENUIS_T03( INV_TEMP, 2.5000D+14, -9.7700D+03 ) ! Reaction Label IO21 RKI( NCELL, 411) = SFACT * ARRHENUIS_T03( INV_TEMP, 3.8000D-02, 0.0000D+00 ) ! Reaction Label IO22 RKI( NCELL, 412) = SFACT * ARRHENUIS_T03( INV_TEMP, 9.9400D+17, -1.1859D+04 ) ! Reaction Label IO23 RKI( NCELL, 413) = SFACT * ARRHENUIS_T03( INV_TEMP, 2.1000D+15, -1.3670D+04 ) ! Reaction Label IO24 RKI( NCELL, 414) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 1.8000D-32, 0.0000D+00, -1.0000D+00, & & 1.7000D-11, 0.0000D+00, 0.0000D+00, & & 1.0000D+00, 6.0000D-01 ) ! Reaction Label IO25 RKI( NCELL, 415) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 3.0000D-31, 0.0000D+00, -1.0000D+00, & & 6.6000D-11, 0.0000D+00, 0.0000D+00, & & 1.0000D+00, 6.3000D-01 ) ! Reaction Label IO26 RKI( NCELL, 416) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 7.7000D-31, 0.0000D+00, -5.0000D+00, & & 1.6000D-11, 0.0000D+00, 0.0000D+00, & & 1.0000D+00, 4.0000D-01 ) ! Reaction Label IO27 RKI( NCELL, 417) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.3000D-12, -1.1200D+03 ) ! Reaction Label IO28 RKI( NCELL, 418) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.3000D-13, -9.2500D+02 ) ! Reaction Label IO45 RKI( NCELL, 435) = CFACT * POWER_T02( TEMPOT300, 2.7000D-12, -2.6600D+00 ) ! Reaction Label IO46 RKI( NCELL, 436) = SFACT * ARRHENUIS_T03( INV_TEMP, 1.0000D+12, -9.7700D+03 ) ! Reaction Label HET_I2O2_AI RKI( NCELL, 437) = BLKHET( NCELL, IK_HETERO_I2O2_AI ) ! Reaction Label HET_I2O2_AJ RKI( NCELL, 438) = BLKHET( NCELL, IK_HETERO_I2O2_AJ ) ! Reaction Label HET_I2O3_AI RKI( NCELL, 439) = BLKHET( NCELL, IK_HETERO_I2O3_AI ) ! Reaction Label HET_I2O3_AJ RKI( NCELL, 440) = BLKHET( NCELL, IK_HETERO_I2O3_AJ ) ! Reaction Label HET_I2O4_AI RKI( NCELL, 441) = BLKHET( NCELL, IK_HETERO_I2O4_AI ) ! Reaction Label HET_I2O4_AJ RKI( NCELL, 442) = BLKHET( NCELL, IK_HETERO_I2O4_AJ ) ! Reaction Label HET_INO3_CLJ RKI( NCELL, 443) = BLKHET( NCELL, IK_HETERO_INO3_CLJ ) ! Reaction Label HET_INO3_BRJ RKI( NCELL, 444) = BLKHET( NCELL, IK_HETERO_INO3_BRJ ) ! Reaction Label HET_INO2_CLJ RKI( NCELL, 445) = BLKHET( NCELL, IK_HETERO_INO2_CLJ ) ! Reaction Label HET_INO2_BRJ RKI( NCELL, 446) = BLKHET( NCELL, IK_HETERO_INO2_BRJ ) ! Reaction Label HET_HOI_CLJ RKI( NCELL, 447) = BLKHET( NCELL, IK_HETERO_HOI_CLJ ) ! Reaction Label HET_HOI_BRJ RKI( NCELL, 448) = BLKHET( NCELL, IK_HETERO_HOI_BRJ ) ! Reaction Label DMS1 RKI( NCELL, 449) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.1200D-11, -2.5000D+02 ) ! Reaction Label DMS2 RKI( NCELL, 450) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 1.9900D-39, 5.2700D+03, 0.0000D+00, & & 1.2600D-10, -3.4000D+02, 0.0000D+00, & & 1.0000D+00, 1.0000D+00 ) ! Reaction Label DMS3 RKI( NCELL, 451) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.9000D-13, 5.2000D+02 ) ! Reaction Label DMS4 RKI( NCELL, 452) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.4000D-13, 2.0810D+03 ) ! Reaction Label DMS5 RKI( NCELL, 453) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.7000D-15, 3.4000D+02 ) END DO ! Multiply rate constants by [M], [O2], [N2], [H2O], [H2], or [CH4] ! where needed and return IF ( NWM .GT. 0 ) THEN DO NRT = 1, NWM IRXN = NRXWM( NRT ) DO NCELL = 1, NUMCELLS RKI( NCELL,IRXN ) = RKI( NCELL,IRXN ) * ATM_AIR END DO END DO END IF IF ( NWO2 .GT. 0 ) THEN DO NRT = 1, NWO2 IRXN = NRXWO2( NRT ) DO NCELL = 1, NUMCELLS RKI( NCELL,IRXN ) = RKI( NCELL,IRXN ) * ATM_O2 END DO END DO END IF IF ( NWN2 .GT. 0 ) THEN DO NRT = 1, NWN2 IRXN = NRXWN2( NRT ) DO NCELL = 1, NUMCELLS RKI( NCELL,IRXN ) = RKI( NCELL,IRXN ) * ATM_N2 END DO END DO END IF IF ( NWW .GT. 0 ) THEN DO NRT = 1, NWW IRXN = NRXWW( NRT ) DO NCELL = 1, NUMCELLS RKI( NCELL,IRXN ) = RKI( NCELL,IRXN ) * BLKH2O( NCELL ) END DO END DO END IF IF ( NWH2 .GT. 0 ) THEN DO NRT = 1, NWH2 IRXN = NRXWH2( NRT ) DO NCELL = 1, NUMCELLS RKI( NCELL,IRXN ) = RKI( NCELL,IRXN ) * ATM_H2 END DO END DO END IF IF ( NWCH4 .GT. 0 ) THEN DO NRT = 1, NWCH4 IRXN = NRXWCH4( NRT ) DO NCELL = 1, NUMCELLS RKI( NCELL,IRXN ) = RKI( NCELL,IRXN ) * ATM_CH4 END DO END DO END IF RETURN END SUBROUTINE CALC_RCONST FUNCTION MAP_CHEMISTRY_SPECIES() RESULT ( SUCCESS ) ! Purpose find or test the CGRID Index, Species Type, and Conversion Factor ! for the Mechanism against the CMAQ namelists USE UTILIO_DEFN USE CGRID_SPCS USE RXNS_DATA IMPLICIT NONE !Parameters: CHARACTER( 1 ), PARAMETER :: BL = ' ' INTEGER, PARAMETER :: SPC_DIM = 200 !Local: LOGICAL SUCCESS INTEGER I, IOS, J INTEGER I1, I2, I3, I4 ! SURROGATE TYPE 1 COUNTERS INTEGER J1, J2 ! SURROGATE TYPE 2 COUNTERS INTEGER K1, K2, K3, K4, K5 ! CONTROL TYPE COUNTERS INTEGER ICALL LOGICAL :: ORDER = .TRUE. LOGICAL :: FOUND = .TRUE. CHARACTER( 120 ) :: XMSG CHARACTER( 16 ), ALLOCATABLE :: CGRID_SPC ( : ) CHARACTER( 16 ), ALLOCATABLE :: NML_SPC ( : ) CHARACTER( 2 ), ALLOCATABLE :: NML_TYPE ( : ) INTEGER, ALLOCATABLE :: NML_INDEX ( : ) LOGICAL, ALLOCATABLE :: NML_CONVERT( : ) REAL, ALLOCATABLE :: NML_MOLWT ( : ) REAL :: DELTA ! fractional difference LOGICAL, SAVE :: INITIALIZED = .FALSE. IF( INITIALIZED )RETURN INITIALIZED = .TRUE. SUCCESS = .TRUE. ALLOCATE ( CGRID_SPC( NSPCSD - 1 ), & & NML_SPC ( NSPCSD - 1 ), & & NML_INDEX( NSPCSD - 1 ), & & NML_TYPE( NSPCSD - 1 ), & & NML_CONVERT( NSPCSD - 1 ), & & NML_MOLWT( NSPCSD - 1 ), & & STAT = IOS ) J = 0 NML_INDEX = -1 TYPE_INDEX = -1 NML_TYPE = '??' NML_CONVERT = .FALSE. DO I = 1, N_GC_SPC ! load gc names and indices J = J + 1 CGRID_SPC( I ) = GC_SPC( I ) NML_INDEX( J ) = I + GC_STRT -1 NML_TYPE( J ) = 'GC' NML_MOLWT( J ) = GC_MOLWT( I ) END DO DO I = 1, N_AE_SPC ! load ae names and indices J = J + 1 CGRID_SPC( J ) = AE_SPC( I ) NML_INDEX( J ) = I + AE_STRT - 1 NML_TYPE( J ) = 'AE' NML_CONVERT( J ) = .TRUE. NML_MOLWT( J ) = AE_MOLWT( I ) END DO DO I = 1, N_NR_SPC ! load nr names and indices J = J + 1 CGRID_SPC( J ) = NR_SPC( I ) NML_INDEX( J ) = I + NR_STRT - 1 NML_TYPE( J ) = 'NR' NML_MOLWT( J ) = NR_MOLWT( I ) END DO DO I = 1, N_TR_SPC ! load tr names and indices J = J + 1 CGRID_SPC( J ) = TR_SPC( I ) NML_INDEX( J ) = I + TR_STRT - 1 NML_TYPE( J ) = 'TR' NML_MOLWT( J ) = TR_MOLWT( I ) END DO NML_SPC( 1:(NSPCSD-1) ) = CGRID_SPC( 1:(NSPCSD-1) ) ! determine if mechanism species are in cgrid species DO I = 1, NUMB_MECH_SPC ! set species informations arrays using SPECIES_LIST array before mapping CHEMISTRY_SPC( I ) = SPECIES_LIST( I )%CHEMISTRY_SPC CGRID_INDEX ( I ) = SPECIES_LIST( I )%CGRID_INDEX SPECIES_TYPE ( I ) = SPECIES_LIST( I )%SPECIES_TYPE CONVERT_CONC ( I ) = SPECIES_LIST( I )%CONVERT_CONC SPECIES_MOLWT( I ) = SPECIES_LIST( I )%SPECIES_MOLWT I1 = INDEX1R( CHEMISTRY_SPC( I ), (NSPCSD-1), CGRID_SPC ) IF ( I1 .LT. 1 ) THEN FOUND = .FALSE. ELSE FOUND = .TRUE. IF( .NOT. MAPPED_TO_CGRID )THEN CGRID_INDEX( I ) = NML_INDEX( I1 ) SPECIES_TYPE( I ) = NML_TYPE ( I1 ) SPECIES_MOLWT( I ) = NML_MOLWT( I1 ) CONVERT_CONC( I ) = NML_CONVERT( I1 ) ELSE IF(CGRID_INDEX( I ) .NE. NML_INDEX( I1 ))THEN SUCCESS = .FALSE. XMSG = '*** For Species ' // TRIM( CHEMISTRY_SPC( I ) ) & & // ' cgrid index does not match mechanism value.' WRITE( LOGDEV,'( /5X, A )' ) TRIM( XMSG ) WRITE( XMSG,'(A,I3,1X,I3)')'CGRID Indices: Mechanism and NML Values are ', & & CGRID_INDEX( I ),NML_INDEX( I1 ) WRITE( LOGDEV,'( 5X, A )' )XMSG END IF IF(CONVERT_CONC( I ) .NEQV. NML_CONVERT( I1 ))THEN SUCCESS = .FALSE. XMSG = '*** For Species ' // TRIM( CHEMISTRY_SPC( I ) ) & & // ' species unit conversion flag does not match mechanism value.' WRITE( LOGDEV,'( /5X, A )' ) TRIM( XMSG ) WRITE( XMSG,'(A,1X,L21X,L2)')'CONVERSION FLAGS: Mechanism and NML Values are ', & & CONVERT_CONC( I ),NML_CONVERT( I1 ) WRITE( LOGDEV,'( 5X, A )' )XMSG WRITE( XMSG,'(A,1X,A3,1X,A3)')'SPECIES TYPE: Mechanism and NML Values are ', & & SPECIES_TYPE( I ),NML_TYPE( I1 ) WRITE( LOGDEV,'( 5X, A )' )XMSG END IF DELTA = ( SPECIES_MOLWT( I ) - NML_MOLWT( I1 ) )/MAX(NML_MOLWT( I1 ),1.0E-20) IF( ABS( DELTA ) .GE. 0.05 )THEN IF( CONVERT_CONC( I ) )SUCCESS = .FALSE. XMSG = '*** For Species ' // TRIM( CHEMISTRY_SPC( I ) ) & & // ' species molecular weight does not match mechanism value.' WRITE( LOGDEV,'( /5X, A )' ) TRIM( XMSG ) WRITE( XMSG,'(A,2(ES12.4,1X))')'Molecular Weight: Mechanism and NML Values are ', & & SPECIES_MOLWT( I ), NML_MOLWT( I1 ) WRITE( LOGDEV,'( 5X, A )' )XMSG END IF END IF END IF IF( INDEX( CHEMISTRY_SPC( I ), 'SRF') .GT. 0 )THEN SUCCESS = .FALSE. XMSG = '*** reactions cannot use modal aerosol surface area as species' WRITE( LOGDEV,'( /5X, A )' ) TRIM( XMSG ) XMSG = TRIM( CHEMISTRY_SPC( I ) ) WRITE( LOGDEV,'( 2X, A )' ) TRIM( XMSG ) END IF IF( INDEX( CHEMISTRY_SPC( I ), 'NUM') .GT. 0 )THEN SUCCESS = .FALSE. XMSG = '*** reactions cannot use modal aerosol number density as species' WRITE( LOGDEV,'( /5X, A )' ) TRIM( XMSG ) XMSG = TRIM( CHEMISTRY_SPC( I ) ) WRITE( LOGDEV,'( 2X, A )' ) TRIM( XMSG ) END IF IF ( .NOT. FOUND ) THEN XMSG = 'Fatal error: Mechanism Species found not in species namelist:' WRITE( LOGDEV,'( /5X, A )', ADVANCE = 'NO' ) TRIM( XMSG ) XMSG = TRIM( CHEMISTRY_SPC( I ) ) WRITE( LOGDEV,'( 2X, A )' ) TRIM( XMSG ) SUCCESS = .FALSE. END IF END DO IF( SUCCESS )RETURN WRITE(LOGDEV,99901)TRIM( MECHNAME ) XMSG = 'The FATAL errors found in namelist used. Check ' & & // 'the log of exiting processor if more details are needed.' CALL M3WARN('MAP_CHEMISTRY_SPECIES',0,0,XMSG) 99901 FORMAT( / 'FATAL error(s) found in the namelists used. Check that ' & & / 'these namelists contain the above data as the respective files ' & & / 'in the respository version of the mechanism: ' , A ) RETURN END FUNCTION MAP_CHEMISTRY_SPECIES !---------------------------------------------------------------------------------------- INTEGER FUNCTION INDEX1R ( NAME, N, NLIST ) IMPLICIT NONE CHARACTER( * ) NAME ! character string being searched for INTEGER N ! length of array to be searched CHARACTER( * ) NLIST( : ) ! array to be searched INTEGER I DO I = 1, N IF ( NAME .EQ. NLIST( I ) ) THEN INDEX1R = I RETURN END IF END DO INDEX1R = 0 RETURN END FUNCTION INDEX1R SUBROUTINE RESET_SPECIES_POINTERS( IOLD2NEW ) USE RXNS_DATA IMPLICIT NONE INTEGER, INTENT( IN ) :: IOLD2NEW( :,: ) INDEX_NO2 = IOLD2NEW( INDEX_NO2 , 1 ) INDEX_NO = IOLD2NEW( INDEX_NO , 1 ) INDEX_O = IOLD2NEW( INDEX_O , 1 ) INDEX_O3 = IOLD2NEW( INDEX_O3 , 1 ) INDEX_NO3 = IOLD2NEW( INDEX_NO3 , 1 ) INDEX_O1D = IOLD2NEW( INDEX_O1D , 1 ) INDEX_OH = IOLD2NEW( INDEX_OH , 1 ) INDEX_HO2 = IOLD2NEW( INDEX_HO2 , 1 ) INDEX_H2O2 = IOLD2NEW( INDEX_H2O2 , 1 ) INDEX_N2O5 = IOLD2NEW( INDEX_N2O5 , 1 ) INDEX_HNO3 = IOLD2NEW( INDEX_HNO3 , 1 ) INDEX_HONO = IOLD2NEW( INDEX_HONO , 1 ) INDEX_PNA = IOLD2NEW( INDEX_PNA , 1 ) INDEX_SO2 = IOLD2NEW( INDEX_SO2 , 1 ) INDEX_SULF = IOLD2NEW( INDEX_SULF , 1 ) INDEX_SULRXN = IOLD2NEW( INDEX_SULRXN , 1 ) INDEX_C2O3 = IOLD2NEW( INDEX_C2O3 , 1 ) INDEX_MEO2 = IOLD2NEW( INDEX_MEO2 , 1 ) INDEX_RO2 = IOLD2NEW( INDEX_RO2 , 1 ) INDEX_PAN = IOLD2NEW( INDEX_PAN , 1 ) INDEX_PACD = IOLD2NEW( INDEX_PACD , 1 ) INDEX_AACD = IOLD2NEW( INDEX_AACD , 1 ) INDEX_CXO3 = IOLD2NEW( INDEX_CXO3 , 1 ) INDEX_ALD2 = IOLD2NEW( INDEX_ALD2 , 1 ) INDEX_XO2H = IOLD2NEW( INDEX_XO2H , 1 ) INDEX_PANX = IOLD2NEW( INDEX_PANX , 1 ) INDEX_FORM = IOLD2NEW( INDEX_FORM , 1 ) INDEX_MEPX = IOLD2NEW( INDEX_MEPX , 1 ) INDEX_MEOH = IOLD2NEW( INDEX_MEOH , 1 ) INDEX_ROOH = IOLD2NEW( INDEX_ROOH , 1 ) INDEX_XO2 = IOLD2NEW( INDEX_XO2 , 1 ) INDEX_XO2N = IOLD2NEW( INDEX_XO2N , 1 ) INDEX_NTR1 = IOLD2NEW( INDEX_NTR1 , 1 ) INDEX_NTR2 = IOLD2NEW( INDEX_NTR2 , 1 ) INDEX_FACD = IOLD2NEW( INDEX_FACD , 1 ) INDEX_CO = IOLD2NEW( INDEX_CO , 1 ) INDEX_HCO3 = IOLD2NEW( INDEX_HCO3 , 1 ) INDEX_ALDX = IOLD2NEW( INDEX_ALDX , 1 ) INDEX_GLYD = IOLD2NEW( INDEX_GLYD , 1 ) INDEX_GLY = IOLD2NEW( INDEX_GLY , 1 ) INDEX_MGLY = IOLD2NEW( INDEX_MGLY , 1 ) INDEX_ETHA = IOLD2NEW( INDEX_ETHA , 1 ) INDEX_ETOH = IOLD2NEW( INDEX_ETOH , 1 ) INDEX_KET = IOLD2NEW( INDEX_KET , 1 ) INDEX_PAR = IOLD2NEW( INDEX_PAR , 1 ) INDEX_ACET = IOLD2NEW( INDEX_ACET , 1 ) INDEX_PRPA = IOLD2NEW( INDEX_PRPA , 1 ) INDEX_XPRP = IOLD2NEW( INDEX_XPRP , 1 ) INDEX_XPAR = IOLD2NEW( INDEX_XPAR , 1 ) INDEX_ROR = IOLD2NEW( INDEX_ROR , 1 ) INDEX_ETHY = IOLD2NEW( INDEX_ETHY , 1 ) INDEX_ETH = IOLD2NEW( INDEX_ETH , 1 ) INDEX_OLE = IOLD2NEW( INDEX_OLE , 1 ) INDEX_IOLE = IOLD2NEW( INDEX_IOLE , 1 ) INDEX_ISOP = IOLD2NEW( INDEX_ISOP , 1 ) INDEX_ISO2 = IOLD2NEW( INDEX_ISO2 , 1 ) INDEX_ISOPRXN = IOLD2NEW( INDEX_ISOPRXN , 1 ) INDEX_ISPD = IOLD2NEW( INDEX_ISPD , 1 ) INDEX_INTR = IOLD2NEW( INDEX_INTR , 1 ) INDEX_ISPX = IOLD2NEW( INDEX_ISPX , 1 ) INDEX_HPLD = IOLD2NEW( INDEX_HPLD , 1 ) INDEX_OPO3 = IOLD2NEW( INDEX_OPO3 , 1 ) INDEX_EPOX = IOLD2NEW( INDEX_EPOX , 1 ) INDEX_EPX2 = IOLD2NEW( INDEX_EPX2 , 1 ) INDEX_TERP = IOLD2NEW( INDEX_TERP , 1 ) INDEX_TRPRXN = IOLD2NEW( INDEX_TRPRXN , 1 ) INDEX_TERPNRO2 = IOLD2NEW( INDEX_TERPNRO2 , 1 ) INDEX_APIN = IOLD2NEW( INDEX_APIN , 1 ) INDEX_BENZENE = IOLD2NEW( INDEX_BENZENE , 1 ) INDEX_CRES = IOLD2NEW( INDEX_CRES , 1 ) INDEX_BZO2 = IOLD2NEW( INDEX_BZO2 , 1 ) INDEX_OPEN = IOLD2NEW( INDEX_OPEN , 1 ) INDEX_BENZRO2 = IOLD2NEW( INDEX_BENZRO2 , 1 ) INDEX_TOL = IOLD2NEW( INDEX_TOL , 1 ) INDEX_TO2 = IOLD2NEW( INDEX_TO2 , 1 ) INDEX_TOLRO2 = IOLD2NEW( INDEX_TOLRO2 , 1 ) INDEX_XOPN = IOLD2NEW( INDEX_XOPN , 1 ) INDEX_XYLMN = IOLD2NEW( INDEX_XYLMN , 1 ) INDEX_XLO2 = IOLD2NEW( INDEX_XLO2 , 1 ) INDEX_XYLRO2 = IOLD2NEW( INDEX_XYLRO2 , 1 ) INDEX_NAPH = IOLD2NEW( INDEX_NAPH , 1 ) INDEX_PAHRO2 = IOLD2NEW( INDEX_PAHRO2 , 1 ) INDEX_CRO = IOLD2NEW( INDEX_CRO , 1 ) INDEX_CAT1 = IOLD2NEW( INDEX_CAT1 , 1 ) INDEX_CRON = IOLD2NEW( INDEX_CRON , 1 ) INDEX_OPAN = IOLD2NEW( INDEX_OPAN , 1 ) INDEX_ECH4 = IOLD2NEW( INDEX_ECH4 , 1 ) INDEX_CL2 = IOLD2NEW( INDEX_CL2 , 1 ) INDEX_CL = IOLD2NEW( INDEX_CL , 1 ) INDEX_HOCL = IOLD2NEW( INDEX_HOCL , 1 ) INDEX_CLO = IOLD2NEW( INDEX_CLO , 1 ) INDEX_FMCL = IOLD2NEW( INDEX_FMCL , 1 ) INDEX_HCL = IOLD2NEW( INDEX_HCL , 1 ) INDEX_CLNO2 = IOLD2NEW( INDEX_CLNO2 , 1 ) INDEX_CLNO3 = IOLD2NEW( INDEX_CLNO3 , 1 ) INDEX_SVAVB2 = IOLD2NEW( INDEX_SVAVB2 , 1 ) INDEX_SVAVB3 = IOLD2NEW( INDEX_SVAVB3 , 1 ) INDEX_SVAVB4 = IOLD2NEW( INDEX_SVAVB4 , 1 ) INDEX_SVAVB1 = IOLD2NEW( INDEX_SVAVB1 , 1 ) INDEX_SESQ = IOLD2NEW( INDEX_SESQ , 1 ) INDEX_SESQRXN = IOLD2NEW( INDEX_SESQRXN , 1 ) INDEX_SOAALK = IOLD2NEW( INDEX_SOAALK , 1 ) INDEX_H2NO3PIJ = IOLD2NEW( INDEX_H2NO3PIJ , 1 ) INDEX_H2NO3PK = IOLD2NEW( INDEX_H2NO3PK , 1 ) INDEX_ACLI = IOLD2NEW( INDEX_ACLI , 1 ) INDEX_ACLJ = IOLD2NEW( INDEX_ACLJ , 1 ) INDEX_ACLK = IOLD2NEW( INDEX_ACLK , 1 ) INDEX_IEPOXP = IOLD2NEW( INDEX_IEPOXP , 1 ) INDEX_ASO4J = IOLD2NEW( INDEX_ASO4J , 1 ) INDEX_AISO3J = IOLD2NEW( INDEX_AISO3J , 1 ) INDEX_AGLYJ = IOLD2NEW( INDEX_AGLYJ , 1 ) INDEX_MTNO3 = IOLD2NEW( INDEX_MTNO3 , 1 ) INDEX_AMTNO3J = IOLD2NEW( INDEX_AMTNO3J , 1 ) INDEX_AMTHYDJ = IOLD2NEW( INDEX_AMTHYDJ , 1 ) INDEX_AAVB2J = IOLD2NEW( INDEX_AAVB2J , 1 ) INDEX_AOLGAJ = IOLD2NEW( INDEX_AOLGAJ , 1 ) INDEX_AAVB3J = IOLD2NEW( INDEX_AAVB3J , 1 ) INDEX_AAVB4J = IOLD2NEW( INDEX_AAVB4J , 1 ) INDEX_AISO1J = IOLD2NEW( INDEX_AISO1J , 1 ) INDEX_AOLGBJ = IOLD2NEW( INDEX_AOLGBJ , 1 ) INDEX_AISO2J = IOLD2NEW( INDEX_AISO2J , 1 ) INDEX_ASQTJ = IOLD2NEW( INDEX_ASQTJ , 1 ) INDEX_APOCI = IOLD2NEW( INDEX_APOCI , 1 ) INDEX_APNCOMI = IOLD2NEW( INDEX_APNCOMI , 1 ) INDEX_APOCJ = IOLD2NEW( INDEX_APOCJ , 1 ) INDEX_APNCOMJ = IOLD2NEW( INDEX_APNCOMJ , 1 ) INDEX_PCVOC = IOLD2NEW( INDEX_PCVOC , 1 ) INDEX_PCSOARXN = IOLD2NEW( INDEX_PCSOARXN , 1 ) INDEX_VLVPO1 = IOLD2NEW( INDEX_VLVPO1 , 1 ) INDEX_VSVPO1 = IOLD2NEW( INDEX_VSVPO1 , 1 ) INDEX_VSVPO2 = IOLD2NEW( INDEX_VSVPO2 , 1 ) INDEX_VSVPO3 = IOLD2NEW( INDEX_VSVPO3 , 1 ) INDEX_VIVPO1 = IOLD2NEW( INDEX_VIVPO1 , 1 ) INDEX_VLVOO1 = IOLD2NEW( INDEX_VLVOO1 , 1 ) INDEX_VLVOO2 = IOLD2NEW( INDEX_VLVOO2 , 1 ) INDEX_VSVOO2 = IOLD2NEW( INDEX_VSVOO2 , 1 ) INDEX_VSVOO3 = IOLD2NEW( INDEX_VSVOO3 , 1 ) INDEX_VSVOO1 = IOLD2NEW( INDEX_VSVOO1 , 1 ) INDEX_FORM_PRIMARY = IOLD2NEW( INDEX_FORM_PRIMARY, 1 ) INDEX_ALD2_PRIMARY = IOLD2NEW( INDEX_ALD2_PRIMARY, 1 ) INDEX_BUTADIENE13 = IOLD2NEW( INDEX_BUTADIENE13 , 1 ) INDEX_ACROLEIN = IOLD2NEW( INDEX_ACROLEIN , 1 ) INDEX_ACRO_PRIMARY = IOLD2NEW( INDEX_ACRO_PRIMARY, 1 ) INDEX_TOLU = IOLD2NEW( INDEX_TOLU , 1 ) INDEX_HG = IOLD2NEW( INDEX_HG , 1 ) INDEX_HGIIAER = IOLD2NEW( INDEX_HGIIAER , 1 ) INDEX_HGIIGAS = IOLD2NEW( INDEX_HGIIGAS , 1 ) INDEX_BR = IOLD2NEW( INDEX_BR , 1 ) INDEX_BRO = IOLD2NEW( INDEX_BRO , 1 ) INDEX_HOBR = IOLD2NEW( INDEX_HOBR , 1 ) INDEX_HBR = IOLD2NEW( INDEX_HBR , 1 ) INDEX_BR2 = IOLD2NEW( INDEX_BR2 , 1 ) INDEX_BRNO3 = IOLD2NEW( INDEX_BRNO3 , 1 ) INDEX_BRNO2 = IOLD2NEW( INDEX_BRNO2 , 1 ) INDEX_FMBR = IOLD2NEW( INDEX_FMBR , 1 ) INDEX_MB3 = IOLD2NEW( INDEX_MB3 , 1 ) INDEX_MB2 = IOLD2NEW( INDEX_MB2 , 1 ) INDEX_MB2C = IOLD2NEW( INDEX_MB2C , 1 ) INDEX_MBC2 = IOLD2NEW( INDEX_MBC2 , 1 ) INDEX_MBC = IOLD2NEW( INDEX_MBC , 1 ) INDEX_DMS = IOLD2NEW( INDEX_DMS , 1 ) INDEX_MSA = IOLD2NEW( INDEX_MSA , 1 ) INDEX_BRCL = IOLD2NEW( INDEX_BRCL , 1 ) INDEX_ABRJ = IOLD2NEW( INDEX_ABRJ , 1 ) INDEX_I = IOLD2NEW( INDEX_I , 1 ) INDEX_IO = IOLD2NEW( INDEX_IO , 1 ) INDEX_HI = IOLD2NEW( INDEX_HI , 1 ) INDEX_I2 = IOLD2NEW( INDEX_I2 , 1 ) INDEX_HOI = IOLD2NEW( INDEX_HOI , 1 ) INDEX_INO = IOLD2NEW( INDEX_INO , 1 ) INDEX_INO2 = IOLD2NEW( INDEX_INO2 , 1 ) INDEX_INO3 = IOLD2NEW( INDEX_INO3 , 1 ) INDEX_OIO = IOLD2NEW( INDEX_OIO , 1 ) INDEX_I2O4 = IOLD2NEW( INDEX_I2O4 , 1 ) INDEX_I2O2 = IOLD2NEW( INDEX_I2O2 , 1 ) INDEX_I2O3 = IOLD2NEW( INDEX_I2O3 , 1 ) INDEX_CH3I = IOLD2NEW( INDEX_CH3I , 1 ) INDEX_ICL = IOLD2NEW( INDEX_ICL , 1 ) INDEX_IBR = IOLD2NEW( INDEX_IBR , 1 ) INDEX_MI2 = IOLD2NEW( INDEX_MI2 , 1 ) INDEX_MIB = IOLD2NEW( INDEX_MIB , 1 ) INDEX_MIC = IOLD2NEW( INDEX_MIC , 1 ) END SUBROUTINE RESET_SPECIES_POINTERS END MODULE RXNS_FUNCTION ================================================ FILE: CCTM/src/MECHS/cb6r5m_ae7_aq/SpecDef_Conc_cb6r5m_ae7_aq.txt ================================================ !#start YYYYJJJ 010000 !#end YYYYJJJ 000000 #layer 1 / ! This Species Definition File is for Use with the COMBINE tool built for ! post-processing CMAQ output. It is compatible with CMAQv5.4. ! Date: May 12 2017 ! Output variables that begin with 'PM' represent those in which a size cut was ! applied based on modeled aerosol mode parameters. For example, PM25_NA is all ! sodium that falls below 2.5 um diameter. These 'PM' variables are used for ! comparisons at IMPROVE and CSN sites. ! Output variables that begin with 'PMAMS' represent the mass that would have ! been detected by an Aerosol Mass Spectrometer. ! Output variables beginning with 'A' (aside from AIR_DENS) represent a ! combination of aerosol species in which no size cut was applied. For example, ! ASO4IJ is the sum of i-mode and j-mode sulfate. These 'A' variables are used ! for comparisons at CASTNet sites. ! Output variables beginning with 'PMC' refer to the coarse fraction of total PM, ! computed by summing all modes and subtracting the PM2.5 fraction. These 'PMC' ! variables are used for comparisons at SEARCH sites. ! This Species Definition File is just for use with the uncoupled, offline CMAQ, ! model. If you are processing WRF-CMAQ results, a different Species Definition ! file is required. / File [1]: CMAQ conc/aconc file / File [2]: METCRO3D file / File [3]: ELMO/AELMO file / File [4]: METCRO2D file / /new species ,units ,expression !-------------------------------------------! !------------- Meteorology -----------------! !-------------------------------------------! AIR_DENS ,kg m-3 ,DENS[2] RH ,% ,100.00*RH[3] SFC_TMP ,C ,(TEMP2[4]-273.15) PBLH ,m ,PBL[4] SOL_RAD ,W m-2 ,RGRND[4] precip ,cm ,RC[4]>=0 ? RN[4]+RC[4] : RN[4] WSPD10 ,m s-1 ,WSPD10[4] WDIR10 ,deg ,WDIR10[4] !-------------------------------------------! !--------------- Gases ---------------------! !-------------------------------------------! ALD2 ,ppbV ,1000.0*ALD2[1] BENZENE ,ppbV ,1000.0*BENZENE[1] CO ,ppbV ,1000.0*CO[1] ETH ,ppbV ,1000.0*ETH[1] ETHA ,ppbV ,1000.0*ETHA[1] FORM ,ppbV ,1000.0*FORM[1] H2O2 ,ppbV ,1000.0*H2O2[1] HNO3 ,ppbV ,1000.0*HNO3[1] HNO3_UGM3 ,ug m-3 ,1000.0*(HNO3[1]*2.1756*DENS[2]) HONO ,ppbV ,1000.0*HONO[1] HOX ,ppbV ,1000.0*(OH[1]+HO2[1]) OH ,ppbV ,1000.0*(OH[1]) ISOP ,ppbV ,1000.0*ISOP[1] N2O5 ,ppbV ,1000.0*N2O5[1] NH3 ,ppbV ,1000.0*NH3[1] NH3_UGM3 ,ug m-3 ,1000.0*(NH3[1]*0.5880*DENS[2]) NHX ,ug m-3 ,1000.0*(NH3[1]*0.5880*DENS[2])+ANH4I[1]+ANH4J[1]+ANH4K[1] NO ,ppbV ,1000.0*NO[1] NO2 ,ppbV ,1000.0*NO2[1] NOX ,ppbV ,1000.0*(NO[1] + NO2[1]) ANO3_PPB ,ppbV ,(ANO3I[1]+ANO3J[1]+ANO3K[1])/(DENS[2]*(62.0/28.97)) NTR ,ppbV ,1000.0*(NTR1[1]+NTR2[1]+INTR[1]) PANS ,ppbV ,1000.0*(PAN[1]+PANX[1]+OPAN[1]) NOY ,ppbV ,1000.0* (NO[1]+NO2[1]+NO3[1]+2*N2O5[1]+HONO[1]+HNO3[1]+PNA[1] \ +CRON[1]+CLNO2[1]+CLNO3[1] \ +BRNO2[1]+BRNO3[1]+INO[1]+INO2[1]+INO3[1]) \ +PANS[0]+NTR[0]+ANO3_PPB[0] O3 ,ppbV ,1000.0*O3[1] SO2 ,ppbV ,1000.0*SO2[1] SO2_UGM3 ,ug m-3 ,1000.0*(SO2[1]*2.2118*DENS[2]) TERP ,ppbV ,1000.0*TERP[1] TOL ,ppbV ,1000.0*TOL[1] XYL ,ppbV ,1000.0*XYLMN[1] !Additional Toxic gases !ACROLEIN ,ug m-3 ,1000.0*(ACROLEIN[1]*1.9365*DENS[2]) !ACRO_PRIMARY ,ug m-3 ,1000.0*(ACRO_PRIMARY*1.9365*DENS[2]) !ALD2_PRIMARY ,ug m-3 ,1000.0*(ALD2_PRIMARY[1]*1.5188*DENS[2]) !FORM_PRIMARY ,ug m-3 ,1000.0*(FORM_PRIMARY[1]*1.0356*DENS[2]) !BUTADIENE13 ,ug m-3 ,1000.0*(BUTADIENE13[1]*1.8674*DENS[2]) !HCL ,ppbV ,1000.0*HCL[1] !TOLUENE ,ppbV ,1000.0*TOLU[1] !Mercuric gas species !HG_0 ,ng/m3 ,1000.0*(HG[1]*8.3330*DENS[2]*1000.0) !HG_II ,ng/m3 ,1000.0*(HGIIGAS[1]*8.3330*DENS[2]*1000.0) !! Unused Gases. Presented Here for illustration. Users can uncomment !! them if they choose. !ALDX ,ppbV ,1000.0*ALDX[1] !IOLE ,ppbV ,1000.0*IOLE[1] !OLE ,ppbV ,1000.0*OLE[1] !PAR ,ppbV ,1000.0*PAR[1] !PAN ,ppbV ,1000.0*PAN[1] !SULF ,ppbV ,1000.0*SULF[1] ! emitted VOCs !VOC ,ppbC ,1000.0* (PAR[1] +2.0*ETHA[1] +3.0*PRPA[1] +MEOH[1]\ ! +2.0*ETH[1] +2.0*ETOH[1] +2.0*OLE[1] +3.0*ACET[1] \ ! +7.0*TOL[1] +8.0*XYLMN[1] +6.0*BENZENE[1] \ ! +FORM[1] +3.0*GLY[1] +4.0*KET[1] +2.0*ETHY[1] \ ! +2.0*ALD2[1] + 2.0*ETHA[1] + 4.0*IOLE[1] + 2.0*ALDX[1] \ ! +5.0*ISOP[1] + 10.0*TERP[1]+ 10.0*NAPH[1] +10.*APIN[1]) !! DMS and MSA. Users can uncomment them if they choose. DMS ,ppbV ,1000.0*DMS[1] MSA ,ppbV ,1000.0*MSA[1] !-------------------------------------------! !--------------- Particles -----------------! !-------------------------------------------! !! Crustal Elements AFEJ ,ug m-3 ,AFEJ[1] AALJ ,ug m-3 ,AALJ[1] ASIJ ,ug m-3 ,ASIJ[1] ATIJ ,ug m-3 ,ATIJ[1] ACAJ ,ug m-3 ,ACAJ[1] AMGJ ,ug m-3 ,AMGJ[1] AKJ ,ug m-3 ,AKJ[1] AMNJ ,ug m-3 ,AMNJ[1] ASOILJ ,ug m-3 ,2.20*AALJ[1]+2.49*ASIJ[1]+1.63*ACAJ[1]+2.42*AFEJ[1]+1.94*ATIJ[1] !! Non-Crustal Inorganic Particle Species AHPLUSIJ ,umol m-3 ,(AH3OPI[1]+AH3OPJ[1])*1.0/19.0 ANAK ,ug m-3 ,0.8373*ASEACAT[1]+0.0626*ASOIL[1]+0.0023*ACORS[1] AMGK ,ug m-3 ,0.0997*ASEACAT[1]+0.0170*ASOIL[1]+0.0032*ACORS[1] AKK ,ug m-3 ,0.0310*ASEACAT[1]+0.0242*ASOIL[1]+0.0176*ACORS[1] ACAK ,ug m-3 ,0.0320*ASEACAT[1]+0.0838*ASOIL[1]+0.0562*ACORS[1] ACLIJ ,ug m-3 ,ACLI[1]+ACLJ[1] AECIJ ,ug m-3 ,AECI[1]+AECJ[1] ANAIJ ,ug m-3 ,ANAJ[1]+ANAI[1] ANO3IJ ,ug m-3 ,ANO3I[1]+ANO3J[1] ANO3K ,ug m-3 ,ANO3K[1] TNO3 ,ug m-3 ,2175.6*(HNO3[1]*DENS[2])+ANO3I[1]+ANO3J[1]+ANO3K[1] ANH4IJ ,ug m-3 ,ANH4I[1]+ANH4J[1] ANH4K ,ug m-3 ,ANH4K[1] ASO4IJ ,ug m-3 ,ASO4I[1]+ASO4J[1] ASO4K ,ug m-3 ,ASO4K[1] !! Organic Particle Species APOCI ,ugC m-3 ,ALVPO1I[1]/1.39 + ASVPO1I[1]/1.32 + ASVPO2I[1]/1.26 \ +APOCI[1] APOCJ ,ugC m-3 ,ALVPO1J[1]/1.39 + ASVPO1J[1]/1.32 + ASVPO2J[1]/1.26 \ +ASVPO3J[1]/1.21 + AIVPO1J[1]/1.17 + APOCJ[1] APOCIJ ,ugC m-3 ,APOCI[0] + APOCJ[0] APOMI ,ug m-3 ,ALVPO1I[1] + ASVPO1I[1] + ASVPO2I[1] + APOCI[1] \ +APNCOMI[1] APOMJ ,ug m-3 ,ALVPO1J[1] + ASVPO1J[1] + ASVPO2J[1] + APOCJ[1] \ +ASVPO3J[1] + AIVPO1J[1] + APNCOMJ[1] APOMIJ ,ug m-3 ,APOMI[0] + APOMJ[0] ASOCI ,ugC m-3 ,ALVOO1I[1]/2.27 + ALVOO2I[1]/2.06 \ +ASVOO1I[1]/1.88 + ASVOO2I[1]/1.73 ASOCJ ,ugC m-3 ,AISO1J[1]/2.20 + AISO2J[1]/2.23 + AISO3J[1]/2.80 \ +AMT1J[1]/1.67 + AMT2J[1]/1.67 + AMT3J[1]/1.72 \ +AMT4J[1]/1.53 + AMT5J[1]/1.57 + AMT6J[1]/1.40 \ +AMTNO3J[1]/1.90 + AMTHYDJ[1]/1.54 \ +AGLYJ[1]/2.13 + ASQTJ[1]/1.52 \ +AORGCJ[1]/2.00 + AOLGBJ[1]/2.10 + AOLGAJ[1]/2.50 \ +ALVOO1J[1]/2.27 + ALVOO2J[1]/2.06 + ASVOO1J[1]/1.88 \ +ASVOO2J[1]/1.73 + ASVOO3J[1]/1.60 \ +AAVB1J[1]/2.70 + AAVB2J[1]/2.35 + AAVB3J[1]/2.17 \ +AAVB4J[1]/1.99 + APCSOJ[1]/2.00 ASOCIJ ,ugC m-3 ,ASOCI[0] + ASOCJ[0] ASOMI ,ug m-3 ,ALVOO1I[1] + ALVOO2I[1] + ASVOO1I[1] + ASVOO2I[1] ASOMJ ,ug m-3 ,+AISO1J[1]+ AISO2J[1] + AISO3J[1] \ +AMT1J[1] + AMT2J[1] + AMT3J[1] \ +AMT4J[1] + AMT5J[1] + AMT6J[1] \ +AMTNO3J[1] + AMTHYDJ[1] \ +AGLYJ[1] + ASQTJ[1] \ +AORGCJ[1] + AOLGBJ[1] + AOLGAJ[1] \ +ALVOO1J[1] + ALVOO2J[1] + ASVOO1J[1] \ +ASVOO2J[1] + ASVOO3J[1] + APCSOJ[1] \ +AAVB1J[1] + AAVB2J[1] + AAVB3J[1] \ +AAVB4J[1] ASOMIJ ,ug m-3 ,ASOMI[0] + ASOMJ[0] AOCI ,ugC m-3 ,APOCI[0] + ASOCI[0] AOCJ ,ugC m-3 ,APOCJ[0] + ASOCJ[0] AOCIJ ,ugC m-3 ,APOCIJ[0] + ASOCIJ[0] AOMI ,ug m-3 ,APOMI[0] + ASOMI[0] AOMJ ,ug m-3 ,APOMJ[0] + ASOMJ[0] AOMIJ ,ug m-3 ,APOMIJ[0] + ASOMIJ[0] !!! Anthropogenic-VOC Derived Organic Aerosol AORGAI ,ug m-3 ,ALVOO1I[1] + ALVOO2I[1] + ASVOO1I[1] \ +ASVOO2I[1] AORGAJ ,ug m-3 ,ALVOO1J[1] + ALVOO2J[1] \ +ASVOO1J[1] + ASVOO2J[1] + ASVOO3J[1] \ +AAVB1J[1] + AAVB2J[1] + AAVB3J[1] \ +AAVB4J[1] + AOLGAJ[1] + APCSOJ[1] AORGAIJ ,ug m-3 ,AORGAI[0] + AORGAJ[0] !!! Biogenic-VOC Derived Organic Aerosol AORGBIJ ,ug m-3 ,AMT1J[1] + AMT2J[1] + AMT3J[1] + AMT4J[1] \ +AMT5J[1] + AMT6J[1] + AMTNO3J[1] \ +AMTHYDJ[1] + AISO1J[1] + AISO2J[1] \ +AISO3J[1] + ASQTJ[1] + AOLGBJ[1] !!! Cloud-Processed SOA AORGCJ ,ug m-3 ,AORGCJ[1] !!! Remaining SOA AGLYJ ,ug m-3 ,AGLYJ[1] !!! OM/OC ratios AOMOCRAT_TOT , ,AOMIJ[0]/AOCIJ[0] !! Total PM Aggregates ATOTI ,ug m-3 ,ASO4I[1] + ANH4I[1] + ANO3I[1] + ANAI[1] \ +ACLI[1] + AECI[1] + AOMI[0] + AOTHRI[1] ATOTJ ,ug m-3 ,ASO4J[1] + ANH4J[1] + ANO3J[1] + ANAJ[1] \ +ACLJ[1] + AECJ[1] + AOMJ[0] + AOTHRJ[1] \ +AFEJ[1] + AALJ[1] + ASIJ[1] + ATIJ[1] \ +ACAJ[1] + AMGJ[1] + AKJ[1] + AMNJ[1] ATOTK ,ug m-3 ,ASO4K[1] + ANH4K[1] + ANO3K[1] + ACLK[1] \ +ACORS[1] + ASOIL[1] + ASEACAT[1] ATOTIJ ,ug m-3 ,ATOTI[0] + ATOTJ[0] ATOTIJK ,ug m-3 ,ATOTI[0] + ATOTJ[0] + ATOTK[0] !! Unspeciated PM including non-carbon organic mass AUNSPEC1IJ ,ug m-3 ,ATOTIJ[0] - (ASO4IJ[0] + ANO3IJ[0] \ +ANH4IJ[0] + ACLIJ[0] \ +ANAIJ[0] + AECIJ[0] \ +AOCIJ[0] + ASOILJ[0]) !! Non-Carbon Organic Mass ANCOMIJ ,ug m-3 ,AOMIJ[0] - AOCIJ[0] !! Unspeciated PM excluding non-carbon organic mass AUNSPEC2IJ ,ug m-3 ,AUNSPEC1IJ[0] - ANCOMIJ[0] !! AMS Projection of Output Concentrations PMAMS_CL ,ug m-3 ,ACLI[1] *FAMSAIT[3] +ACLJ[1]*FAMSACC[3]+ACLK[1] *FAMSCOR[3] PMAMS_NH4 ,ug m-3 ,ANH4I[1]*FAMSAIT[3]+ANH4J[1]*FAMSACC[3]+ANH4K[1]*FAMSCOR[3] PMAMS_NO3 ,ug m-3 ,ANO3I[1]*FAMSAIT[3]+ANO3J[1]*FAMSACC[3]+ANO3K[1]*FAMSCOR[3] PMAMS_OA ,ug m-3 ,AOMI[0] *FAMSAIT[3]+AOMJ[0] *FAMSACC[3] PMAMS_SO4 ,ug m-3 ,ASO4I[1]*FAMSAIT[3]+ASO4J[1]*FAMSACC[3]+ASO4K[1]*FAMSCOR[3] !! PM1 Cutoff Output PM1_TOT ,ug m-3 ,ATOTI[0]*FPM1AIT[3]+ATOTJ[0]*FPM1ACC[3]+ATOTK[0]*FPM1COR[3] !! Unused PM1 Species. Included Here for demonstration !PM1_EC ,ug m-3 ,AECI[1] *FPM1AIT[3] +AECJ[1] *FPM1ACC[3] !PM1_OC ,ugC m-3 ,AOCI[0] *FPM1AIT[3] +AOCJ[0] *FPM1ACC[3] !PM1_OM ,ug m-3 ,AOMI[0] *FPM1AIT[3] +AOMJ[0] *FPM1ACC[3] !PM1_SO4 ,ug m-3 ,ASO4I[1]*FPM1AIT[3] +ASO4J[1]*FPM1ACC[3] +ASO4K[1]*FPM1COR[3] !PM1_CL ,ug m-3 ,ACLI[1] *FPM1AIT[3] +ACLJ[1] *FPM1ACC[3] +ACLK[1] *FPM1COR[3] !PM1_NA ,ug m-3 ,ANAI[1] *FPM1AIT[3] +ANAJ[1] *FPM1ACC[3] +ANAK[0] *FPM1COR[3] !PM1_MG ,ug m-3 , AMGJ[1] *FPM1ACC[3] +AMGK[0] *FPM1COR[3] !PM1_K ,ug m-3 , AKJ[1] *FPM1ACC[3] +AKK[0] *FPM1COR[3] !PM1_CA ,ug m-3 , ACAJ[1] *FPM1ACC[3] +ACAK[0] *FPM1COR[3] !PM1_NH4 ,ug m-3 ,ANH4I[1] *FPM1AIT[3]+ANH4J[1]*FPM1ACC[3] +ANH4K[1]*FPM1COR[3] !PM1_NO3 ,ug m-3 ,ANO3I[1] *FPM1AIT[3]+ANO3J[1]*FPM1ACC[3] +ANO3K[1]*FPM1COR[3] !PM1_SOIL ,ug m-3 ,ASOILJ[0]*FPM1ACC[3]+(ASOIL[1]+ACORS[1])*FPM1COR[3] !PM1_UNSPEC1 ,ug m-3 ,PM1_TOT[0] - (PM1_CL[0] + PM1_EC[0]+ PM1_NA[0] + PM1_NH4[0] + \ ! PM1_NO3[0]+ PM1_OC[0]+ PM1_SOIL[0]+ PM1_SO4[0] ) !PM1_UNSPCRS ,ug m-3 ,ATOTK[0] *FPM1COR[3] - (ASO4K[1]*FPM1COR[3] \ ! +ACLK[1]*FPM1COR[3] \ ! +ANAK[0]*FPM1COR[3] \ ! +AMGK[0]*FPM1COR[3] \ ! +AKK[0]*FPM1COR[3] \ ! +ACAK[0]*FPM1COR[3] \ ! +ANH4K[1]*FPM1COR[3] \ ! +ANO3K[1]*FPM1COR[3]) !! PM2.5 species computed using modeled size distribution PM25_HP ,ug m-3 ,(AH3OPI[1]*FPM25AIT[3]+AH3OPJ[1]*FPM25ACC[3]+AH3OPK[1]*FPM25COR[3])*1.0/19.0 PM25_CL ,ug m-3 ,ACLI[1]*FPM25AIT[3]+ACLJ[1]*FPM25ACC[3]+ACLK[1]*FPM25COR[3] PM25_EC ,ug m-3 ,AECI[1]*FPM25AIT[3]+AECJ[1]*FPM25ACC[3] PM25_NA ,ug m-3 ,ANAI[1]*FPM25AIT[3]+ANAJ[1]*FPM25ACC[3]+ANAK[0]*FPM25COR[3] PM25_MG ,ug m-3 , AMGJ[1]*FPM25ACC[3]+AMGK[0]*FPM25COR[3] PM25_K ,ug m-3 , AKJ[1] *FPM25ACC[3]+AKK[0] *FPM25COR[3] PM25_CA ,ug m-3 , ACAJ[1]*FPM25ACC[3]+ACAK[0]*FPM25COR[3] PM25_NH4 ,ug m-3 ,ANH4I[1]*FPM25AIT[3]+ANH4J[1]*FPM25ACC[3]+ANH4K[1]*FPM25COR[3] PM25_NO3 ,ug m-3 ,ANO3I[1]*FPM25AIT[3]+ANO3J[1]*FPM25ACC[3]+ANO3K[1]*FPM25COR[3] PM25_OC ,ugC m-3 ,AOCI[0] *FPM25AIT[3]+AOCJ[0]*FPM25ACC[3] PM25_OM ,ug m-3 ,AOMI[0] *FPM25AIT[3]+AOMJ[0]*FPM25ACC[3] PM25_SOIL ,ug m-3 ,ASOILJ[0]*FPM25ACC[3]+ASOIL[1]*FPM25COR[3] PM25_SO4 ,ug m-3 ,ASO4I[1]*FPM25AIT[3]+ASO4J[1]*FPM25ACC[3]+ASO4K[1]*FPM25COR[3] PM25_TOT ,ug m-3 ,ATOTI[0]*FPM25AIT[3]+ATOTJ[0]*FPM25ACC[3]+ATOTK[0]*FPM25COR[3] PM25_UNSPEC1 ,ug m-3 ,PM25_TOT[0]-(PM25_CL[0]+PM25_EC[0]+PM25_NA[0]+PM25_NH4[0] \ +PM25_NO3[0]+PM25_OC[0]+PM25_SOIL[0]+PM25_SO4[0]) PM25_UNSPCRS ,ug m-3 ,ATOTK[0]*FPM25COR[3] - (ASO4K[1]*FPM25COR[3] \ +ACLK[1]*FPM25COR[3] \ +ANAK[0]*FPM25COR[3] \ +AMGK[0]*FPM25COR[3] \ +AKK[0]*FPM25COR[3] \ +ACAK[0]*FPM25COR[3] \ +ANH4K[1]*FPM25COR[3] \ +ANO3K[1]*FPM25COR[3]) !! Fine particle acidity (pH). pH is undefined if there is no aerosol water. !Do not trust predictions when hourly water is <0.01 ug m-3. FINEPHF will !have large negative value (-9.999E36) when pH is not to be trusted. !AH2OIJ ,ug m-3 ,AH2OI[1]+AH2OJ[1] !HPMOLAL ,mol kg-1 ,AHPLUSIJ[0]/AH2OIJ[0]*1000.0 !ACIDITYTEMP , ,-1*LOG10(HPMOLAL[0]) !FINEPHF , ,AH2OIJ[0]>0.01 ? ACIDITYTEMP[0] : -9.999E36 !! PM10.0 and Coarse-Sized Species PM10 ,ug m-3 ,ATOTI[0]*FPM10AIT[3]+ATOTJ[0]*FPM10ACC[3]+ATOTK[0]*FPM10COR[3] PMC_CL ,ug m-3 ,ACLI[1]*FPM10AIT[3] +ACLJ[1]*FPM10ACC[3] +ACLK[1]*FPM10COR[3] -PM25_CL[0] PMC_NA ,ug m-3 ,ANAI[1]*FPM10AIT[3] +ANAJ[1]*FPM10ACC[3] +ANAK[0]*FPM10COR[3] -PM25_NA[0] PMC_NH4 ,ug m-3 ,ANH4I[1]*FPM10AIT[3]+ANH4J[1]*FPM10ACC[3]+ANH4K[1]*FPM10COR[3]-PM25_NH4[0] PMC_NO3 ,ug m-3 ,ANO3I[1]*FPM10AIT[3]+ANO3J[1]*FPM10ACC[3]+ANO3K[1]*FPM10COR[3]-PM25_NO3[0] PMC_SO4 ,ug m-3 ,ASO4I[1]*FPM10AIT[3]+ASO4J[1]*FPM10ACC[3]+ASO4K[1]*FPM10COR[3]-PM25_SO4[0] PMC_TOT ,ug m-3 ,PM10[0]-PM25_TOT[0] !! FRM PM Equivalent Calculation !! This section calculates the FRM applicable PM species, PMIJ_FRM and !! PM25_FRM. The intermediate variablse K...ANH4IJ_loss are needed to !! calculate the final quantities. K ,ppb2 ,exp(118.87-24084/TEMP2[4]-6.025*log(TEMP2[4])) P1 , ,exp(8763/TEMP2[4]+19.12*log(TEMP2[4])-135.94) P2 , ,exp(9969/TEMP2[4]+16.22*log(TEMP2[4])-122.65) P3 , ,exp(13875/TEMP2[4]+24.46*log(TEMP2[4])-182.61) a , ,1-RH[0]/100 K_prime ,ppb2 ,(P1[0]-P2[0]*a[0]+(P3[0]*a[0]*a[0]))*(a[0]^1.75)*K[0] sqrt_Ki ,ppb ,sqrt(RH[0]<=61 ? K[0] : K_prime[0]) max_NO3_loss ,ug m-3 ,745.7/TEMP2[4]*sqrt_Ki[0] PM25_NO3_loss ,ug m-3 ,max_NO3_loss[0]<=PM25_NO3[0] ? max_NO3_loss[0] : PM25_NO3[0] ANO3IJ_loss ,ug m-3 ,max_NO3_loss[0]<=ANO3IJ[0] ? max_NO3_loss[0] : ANO3IJ[0] PM25_NH4_loss ,ug m-3 ,PM25_NO3_loss[0]*(18/62) ANH4IJ_loss ,ug m-3 ,ANO3IJ_loss[0]*(18/62) PMIJ_FRM ,ug m-3 ,ATOTIJ[0]-(ANO3IJ_loss[0]+ANH4IJ_loss[0]) \ +0.24*(ASO4IJ[0]+ANH4IJ[0]-ANH4IJ_loss[0])+0.5 PM25_FRM ,ug m-3 ,PM25_TOT[0]-(PM25_NO3_loss[0]+PM25_NH4_loss[0]) \ +0.24*(PM25_SO4[0]+PM25_NH4[0]-PM25_NH4_loss[0])+0.5 ================================================ FILE: CCTM/src/MECHS/cb6r5m_ae7_aq/SpecDef_Dep_cb6r5m_ae7_aq.txt ================================================ !#start YYYYJJJ !#end YYYYJJJ #layer 1 / File [1]: DRYDEP / File [2]: WETDEP / File [3]: METCRO2D / /new species ,units ,expression RT ,cm ,RC[3]>=0 ? RN[3]+RC[3] : RN[3] !---------------------------------------------------! !--------------- Gas Deposition --------------------! !---------------------------------------------------! DDEP_NO2 ,kg ha-1 ,NO2[1] WDEP_NO2 ,kg ha-1 ,NO2[2] DDEP_NO ,kg ha-1 ,NO[1] WDEP_NO ,kg ha-1 ,NO[2] DDEP_FORM ,kg ha-1 ,FORM[1] WDEP_FORM ,kg ha-1 ,FORM[2] DDEP_H2O2 ,kg ha-1 ,H2O2[1] WDEP_H2O2 ,kg ha-1 ,H2O2[2] DDEP_N2O5 ,kg ha-1 ,N2O5[1] WDEP_N2O5 ,kg ha-1 ,N2O5[2] DDEP_HONO ,kg ha-1 ,HONO[1] WDEP_HONO ,kg ha-1 ,HONO[2] DDEP_HNO3 ,kg ha-1 ,HNO3[1] WDEP_HNO3 ,kg ha-1 ,HNO3[2] DDEP_NO3 ,kg ha-1 ,NO3[1] WDEP_NO3 ,kg ha-1 ,NO3[2] DDEP_CLNO2 ,kg ha-1 ,CLNO2[1] WDEP_CLNO2 ,kg ha-1 ,CLNO2[2] DDEP_CLNO3 ,kg ha-1 ,CLNO3[1] WDEP_CLNO3 ,kg ha-1 ,CLNO3[2] DDEP_NTR ,kg ha-1 ,NTR1[1]+NTR2[1]+INTR[1] WDEP_NTR ,kg ha-1 ,NTR1[2]+NTR2[2]+INTR[2] DDEP_PANT ,kg ha-1 ,PAN[1] + PANX[1] + OPAN[1] WDEP_PANT ,kg ha-1 ,PAN[2] + PANX[2] + OPAN[2] DDEP_NH3 ,kg ha-1 ,NH3[1] WDEP_NH3 ,kg ha-1 ,NH3[2] DDEP_SO2 ,kg ha-1 ,SO2[1] DDEP_O3 ,kg ha-1 ,O3[1] WDEP_O3 ,kg ha-1 ,O3[2] WDEP_PNA ,kg ha-1 ,PNA[2] DDEP_PNA ,kg ha-1 ,PNA[1] !---------------------------------------------------! !------------- Aerosol Deposition ------------------! !---------------------------------------------------! DDEP_ANO3IJ ,kg ha-1 ,ANO3I[1] + ANO3J[1] DDEP_ANO3K ,kg ha-1 ,ANO3K[1] WDEP_ANO3IJK ,kg ha-1 ,ANO3I[2] + ANO3J[2] + ANO3K[2] DDEP_TNO3 ,kg ha-1 ,ANO3I[1] + ANO3J[1] + ANO3K[1] + 0.984*HNO3[1] + NO3[1] WDEP_TNO3 ,kg ha-1 ,ANO3I[2] + ANO3J[2] + ANO3K[2] + 0.984*HNO3[2] + NO3[2] DDEP_ANH4IJ ,kg ha-1 ,ANH4I[1] + ANH4J[1] DDEP_ANH4K ,kg ha-1 ,ANH4K[1] WDEP_ANH4IJK ,kg ha-1 ,ANH4I[2] + ANH4J[2] + ANH4K[2] DDEP_AMTNO3J ,kg ha-1 ,AMTNO3J[1] WDEP_AMTNO3J ,kg ha-1 ,AMTNO3J[2] DDEP_ASO4IJ ,kg ha-1 ,ASO4I[1] + ASO4J[1] DDEP_ASO4K ,kg ha-1 ,ASO4K[1] WDEP_ASO4IJK ,kg ha-1 ,ASO4I[2] + ASO4J[2] + ASO4K[2] DDEP_AECIJ ,kg ha-1 ,AECI[1] +AECJ[1] DDEP_AOCIJ ,kgC ha-1 ,ALVPO1I[1]/1.39 + ASVPO1I[1]/1.32 + ASVPO2I[1]/1.26 \ +ALVPO1J[1]/1.39 + ASVPO1J[1]/1.32 + ASVPO2J[1]/1.26 \ +ASVPO3J[1]/1.21 + AIVPO1J[1]/1.17 \ +ALVOO1I[1]/2.27 + ALVOO2I[1]/2.06 \ +ASVOO1I[1]/1.88 + ASVOO2I[1]/1.73 \ +AISO1J[1]/2.20 + AISO2J[1]/2.23 + AISO3J[1]/2.80 \ +AMT1J[1]/1.67 + AMT2J[1]/1.67 + AMT3J[1]/1.72 \ +AMT4J[1]/1.53 + AMT5J[1]/1.57 + AMT6J[1]/1.40 \ +AMTNO3J[1]/1.90 + AMTHYDJ[1]/1.54 \ +AGLYJ[1]/2.13 + ASQTJ[1]/1.52 \ +AORGCJ[1]/2.00 + AOLGBJ[1]/2.10 + AOLGAJ[1]/2.50 \ +ALVOO1J[1]/2.27+ ALVOO2J[1]/2.06+ ASVOO1J[1]/1.88 \ +ASVOO2J[1]/1.73+ ASVOO3J[1]/1.60 \ +APCSOJ[1] /2.00+ AAVB1J[1]/2.70 + AAVB2J[1]/2.35 \ +AAVB3J[1]/2.17 + AAVB4J[1]/1.99 !DDEP_SSSO4J ,kg ha-1 ,0.2514*ANAJ[1] !DDEP_SSSO4K ,kg ha-1 ,0.2514*DDEP_ANAK[0] !WDEP_SSSO4JK ,kg ha-1 ,0.2514*ANAJ[2] + 0.2514*WDEP_ANAK[0] !-----------------------------------------------------! !-------- Total (Gas + Aerosol) Deposition -----------! !-----------------------------------------------------! DDEP_NHX ,kg ha-1 ,ANH4I[1] + ANH4J[1] + ANH4K[1] + 1.059*NH3[1] WDEP_NHX ,kg ha-1 ,ANH4I[2] + ANH4J[2] + ANH4K[2] + 1.059*NH3[2] WDEP_TSO4 ,kg ha-1 ,ASO4I[2] + ASO4J[2] + ASO4K[2] + 1.5*SO2[2] !! Sodium DDEP_ANAJ ,kg ha-1 ,ANAJ[1] DDEP_ANAK ,kg ha-1 ,0.8373*ASEACAT[1]+0.0626*ASOIL[1]+0.0023*ACORS[1] DDEP_ANAJK ,kg ha-1 ,DDEP_ANAJ[0] + DDEP_ANAK[0] WDEP_ANAK ,kg ha-1 ,0.8373*ASEACAT[2]+0.0626*ASOIL[2]+0.0023*ACORS[2] WDEP_ANAJK ,kg ha-1 ,ANAJ[2] + WDEP_ANAK[0] TDEP_ANAJK ,kg ha-1 ,DDEP_ANAJK[0] + WDEP_ANAJK[0] !! Chloride DDEP_ACLJ ,kg ha-1 ,ACLJ[1] DDEP_ACLK ,kg ha-1 ,ACLK[1] DDEP_ACLJK ,kg ha-1 ,ACLJ[1] + ACLK[1] WDEP_TCL ,kg ha-1 ,0.972*HCL[2]+CL2[2] + ACLJ[2] + ACLK[2] + 0.6758*HOCL[1] TDEP_CL ,kg ha-1 ,DDEP_ACLJK[0] + WDEP_TCL[0] !! Calcium DDEP_CAJ ,kg ha-1 ,ACAJ[1] WDEP_CAJ ,kg ha-1 ,ACAJ[2] DDEP_CAK ,kg ha-1 ,0.0320*ASEACAT[1]+0.0838*ASOIL[1]+0.0562*ACORS[1] WDEP_CAK ,kg ha-1 ,0.0320*ASEACAT[2]+0.0838*ASOIL[2]+0.0562*ACORS[2] DDEP_CAJK ,kg ha-1 ,ACAJ[1]+DDEP_CAK[0] WDEP_CAJK ,kg ha-1 ,ACAJ[2]+WDEP_CAK[0] !! Iron DDEP_FEJ ,kg ha-1 ,AFEJ[1] WDEP_FEJ ,kg ha-1 ,AFEJ[2] !! Aluminum DDEP_ALJ ,kg ha-1 ,AALJ[1] WDEP_ALJ ,kg ha-1 ,AALJ[2] !! Silicon DDEP_SIJ ,kg ha-1 ,ASIJ[1] WDEP_SIJ ,kg ha-1 ,ASIJ[2] !! Titanium DDEP_TIJ ,kg ha-1 ,ATIJ[1] WDEP_TIJ ,kg ha-1 ,ATIJ[2] !! Magnesium DDEP_MGJ ,kg ha-1 ,AMGJ[1] WDEP_MGJ ,kg ha-1 ,AMGJ[2] DDEP_MGK ,kg ha-1 ,0.0997*ASEACAT[1]+0.0170*ASOIL[1]+0.0032*ACORS[1] WDEP_MGK ,kg ha-1 ,0.0997*ASEACAT[2]+0.0170*ASOIL[2]+0.0032*ACORS[2] DDEP_MGJK ,kg ha-1 ,AMGJ[1]+DDEP_MGK[0] WDEP_MGJK ,kg ha-1 ,AMGJ[2]+WDEP_MGK[0] !! Potassium DDEP_KJ ,kg ha-1 ,AKJ[1] WDEP_KJ ,kg ha-1 ,AKJ[2] DDEP_KK ,kg ha-1 ,0.0310*ASEACAT[1]+0.0242*ASOIL[1]+0.0176*ACORS[1] WDEP_KK ,kg ha-1 ,0.0310*ASEACAT[2]+0.0242*ASOIL[2]+0.0176*ACORS[2] DDEP_KJK ,kg ha-1 ,AKJ[1]+DDEP_KK[0] WDEP_KJK ,kg ha-1 ,AKJ[2]+WDEP_KK[0] !! Manganese DDEP_MNJ ,kg ha-1 ,AMNJ[1] WDEP_MNJ ,kg ha-1 ,AMNJ[2] !---------------------------------------------------! !------------- Nitrogen Deposition -----------------! !---------------------------------------------------! DD_OXN_NOX ,kgN ha-1 ,0.30435*NO2[1] + 0.46667*NO[1] WD_OXN_NOX ,kgN ha-1 ,0.30435*NO2[2] + 0.46667*NO[2] DD_OXN_TNO3 ,kgN ha-1 ,0.22581*DDEP_TNO3[0] WD_OXN_TNO3 ,kgN ha-1 ,0.22581*WDEP_TNO3[0] DD_OXN_PANT ,kgN ha-1 ,0.11570*PAN[1] + 0.11570*PANX[1] + 0.11570*OPAN[1] WD_OXN_PANT ,kgN ha-1 ,0.11570*PAN[2] + 0.11570*PANX[2] + 0.11570*OPAN[2] DD_OXN_ORGN ,kgN ha-1 ,0.10770*(NTR1[1]+NTR2[1]+INTR[1])+0.06061*DDEP_AMTNO3J[0]+DD_OXN_PANT[0] WD_OXN_ORGN ,kgN ha-1 ,0.10770*(NTR1[2]+NTR2[2]+INTR[2])+0.06061*WDEP_AMTNO3J[0]+WD_OXN_PANT[0] DD_OXN_OTHR ,kgN ha-1 ,0.25926*N2O5[1] + 0.29787*HONO[1]+0.17720*PNA[1]+0.1717*CLNO2[1]+0.1436*CLNO3[1] WD_OXN_OTHR ,kgN ha-1 ,0.25926*N2O5[2] + 0.29787*HONO[2]+0.17720*PNA[2]+0.1717*CLNO2[2]+0.1436*CLNO3[2] DD_OXN_TOT ,kgN ha-1 ,DD_OXN_NOX[0] + DD_OXN_TNO3[0] + DD_OXN_ORGN[0] + DD_OXN_OTHR[0] WD_OXN_TOT ,kgN ha-1 ,WD_OXN_NOX[0] + WD_OXN_TNO3[0] + WD_OXN_ORGN[0] + WD_OXN_OTHR[0] TD_OXN_TOT ,kgN ha-1 ,DD_OXN_TOT[0] + WD_OXN_TOT[0] DD_REDN_TOT ,kgN ha-1 ,0.7777*DDEP_NHX[0] WD_REDN_TOT ,kgN ha-1 ,0.7777*WDEP_NHX[0] TD_REDN_TOT ,kgN ha-1 ,DD_REDN_TOT[0] + WD_REDN_TOT[0] DD_N_TOT ,kgN ha-1 ,DD_OXN_TOT[0] + DD_REDN_TOT[0] WD_N_TOT ,kgN ha-1 ,WD_OXN_TOT[0] + WD_REDN_TOT[0] TD_N_TOT ,kgN ha-1 ,DD_N_TOT[0] + WD_N_TOT[0] !! Nitrogen Deposition in milliequivalents Nitrogen !DD_OXN_TOTMEQ ,meqN m-2 ,7.14*DD_OXN_TOT[0] !WD_OXN_TOTMEQ ,meqN m-2 ,7.14*WD_OXN_TOT[0] !TD_OXN_TOTMEQ ,meqN m-2 ,DD_OXN_TOTMEQ[0] + WD_OXN_TOTMEQ[0] !DD_REDN_TOTMEQ ,meqN m-2 ,7.14*DD_REDN_TOT[0] !WD_REDN_TOTMEQ ,meqN m-2 ,7.14*WD_REDN_TOT[0] !TD_REDN_TOTMEQ ,meqN m-2 ,DD_REDN_TOTMEQ[0] + WD_REDN_TOTMEQ[0] !DD_N_TOTMEQ ,meqN m-2 ,DD_OXN_TOTMEQ[0] + DD_REDN_TOTMEQ[0] !WD_N_TOTMEQ ,meqN m-2 ,WD_OXN_TOTMEQ[0] + WD_REDN_TOTMEQ[0] !TD_N_TOTMEQ ,meqN m-2 ,DD_N_TOTMEQ[0] + WD_N_TOTMEQ[0] !-------------------------------------------------! !------------- Sulfur Deposition -----------------! !-------------------------------------------------! DD_S_TOT ,kgS ha-1 ,0.5*SO2[1] + 0.33333*ASO4I[1] + 0.33333*ASO4J[1] + 0.33333*ASO4K[1] WD_S_TOT ,kgS ha-1 ,0.33333*WDEP_TSO4[0] TD_S_TOT ,kgS ha-1 ,DD_S_TOT[0] + WD_S_TOT[0] !DD_S_SeaS ,kgS ha-1 ,0.33333*DDEP_SSSO4J[0] + 0.33333*DDEP_SSSO4K[0] !WD_S_SeaS ,kgS ha-1 ,0.33333*WDEP_SSSO4JK[0] !TD_S_SeaS ,kgS ha-1 ,DD_S_SeaS[0] + WD_S_SeaS[0] !! Sulfur Deposition in milliequivalents Sulfur !DD_S_TOTMEQ ,meqS m-2 ,6.24*DD_S_TOT[0] !WD_S_TOTMEQ ,meqS m-2 ,6.24*WD_S_TOT[0] !TD_S_TOTMEQ ,meqS m-2 ,DD_S_TOTMEQ[0] + WD_S_TOTMEQ[0] !DD_S_SeaSMEQ ,meqS m-2 ,6.24*DD_S_SeaS[0] !WD_S_SeaSMEQ ,meqS m-2 ,6.24*WD_S_SeaS[0] !TD_S_SeaSMEQ ,meqS m-2 ,DD_S_SeaSMEQ[0] + WD_S_SeaSMEQ[0] ================================================ FILE: CCTM/src/MECHS/cb6r5m_ae7_aq/SpecDef_cb6r5m_ae7_aq.txt ================================================ !#start YYYYJJJ 010000 !#end YYYYJJJ 000000 #layer 1 / ! This Species Definition File is for Use with the COMBINE tool built for ! post-processing CMAQ output. It is compatible with CMAQv5.2. ! Date: May 12 2017 ! Output variables that begin with 'PM' represent those in which a size cut was ! applied based on modeled aerosol mode parameters. For example, PM25_NA is all ! sodium that falls below 2.5 um diameter. These 'PM' variables are used for ! comparisons at IMPROVE and CSN sites. ! Output variables that begin with 'PMAMS' represent the mass that would have ! been detected by an Aerosol Mass Spectrometer. ! Output variables beginning with 'A' (aside from AIR_DENS) represent a ! combination of aerosol species in which no size cut was applied. For example, ! ASO4IJ is the sum of i-mode and j-mode sulfate. These 'A' variables are used ! for comparisons at CASTNet sites. ! Output variables beginning with 'PMC' refer to the coarse fraction of total PM, ! computed by summing all modes and subtracting the PM2.5 fraction. These 'PMC' ! variables are used for comparisons at SEARCH sites. ! This Species Definition File is just for use with the uncoupled, offline CMAQ, ! model. If you are processing WRF-CMAQ results, a different Species Definition ! file is required. / File [1]: CMAQ conc/aconc file / File [2]: METCRO3D file / File [3]: ELMO/AELMO file / File [4]: METCRO2D file / /new species ,units ,expression !-------------------------------------------! !------------- Meteorology -----------------! !-------------------------------------------! AIR_DENS ,kg m-3 ,DENS[2] RH ,% ,100.00*RH[3] SFC_TMP ,C ,(TEMP2[4]-273.15) PBLH ,m ,PBL[4] SOL_RAD ,W m-2 ,RGRND[4] precip ,cm ,RC[4]>=0 ? RN[4]+RC[4] : RN[4] WSPD10 ,m s-1 ,WSPD10[4] WDIR10 ,deg ,WDIR10[4] !-------------------------------------------! !--------------- Gases ---------------------! !-------------------------------------------! ALD2 ,ppbV ,1000.0*ALD2[1] BENZENE ,ppbV ,1000.0*BENZENE[1] CO ,ppbV ,1000.0*CO[1] ETH ,ppbV ,1000.0*ETH[1] ETHA ,ppbV ,1000.0*ETHA[1] FORM ,ppbV ,1000.0*FORM[1] H2O2 ,ppbV ,1000.0*H2O2[1] HNO3 ,ppbV ,1000.0*HNO3[1] HNO3_UGM3 ,ug m-3 ,1000.0*(HNO3[1]*2.1756*DENS[2]) HONO ,ppbV ,1000.0*HONO[1] HOX ,ppbV ,1000.0*(OH[1]+HO2[1]) OH ,ppbV ,1000.0*(OH[1]) ISOP ,ppbV ,1000.0*ISOP[1] N2O5 ,ppbV ,1000.0*N2O5[1] NH3 ,ppbV ,1000.0*NH3[1] NH3_UGM3 ,ug m-3 ,1000.0*(NH3[1]*0.5880*DENS[2]) NHX ,ug m-3 ,1000.0*(NH3[1]*0.5880*DENS[2])+ANH4I[1]+ANH4J[1]+ANH4K[1] NO ,ppbV ,1000.0*NO[1] NO2 ,ppbV ,1000.0*NO2[1] NOX ,ppbV ,1000.0*(NO[1] + NO2[1]) ANO3_PPB ,ppbV ,(ANO3I[1]+ANO3J[1]+ANO3K[1])/(DENS[2]*(62.0/28.97)) NTR ,ppbV ,1000.0*(NTR1[1]+NTR2[1]+INTR[1]) PANS ,ppbV ,1000.0*(PAN[1]+PANX[1]+OPAN[1]) NOY ,ppbV ,1000.0* (NO[1]+NO2[1]+NO3[1]+2*N2O5[1]+HONO[1]+HNO3[1]+PNA[1] \ +CRON[1]+CLNO2[1]+CLNO3[1] \ +BRNO2[1]+BRNO3[1]+INO[1]+INO2[1]+INO3[1]) \ +PANS[0]+NTR[0]+ANO3_PPB[0] O3 ,ppbV ,1000.0*O3[1] SO2 ,ppbV ,1000.0*SO2[1] SO2_UGM3 ,ug m-3 ,1000.0*(SO2[1]*2.2118*DENS[2]) TERP ,ppbV ,1000.0*TERP[1] TOL ,ppbV ,1000.0*TOL[1] XYL ,ppbV ,1000.0*XYLMN[1] !Additional Toxic gases !ACROLEIN ,ug m-3 ,1000.0*(ACROLEIN[1]*1.9365*DENS[2]) !ACRO_PRIMARY ,ug m-3 ,1000.0*(ACRO_PRIMARY*1.9365*DENS[2]) !ALD2_PRIMARY ,ug m-3 ,1000.0*(ALD2_PRIMARY[1]*1.5188*DENS[2]) !FORM_PRIMARY ,ug m-3 ,1000.0*(FORM_PRIMARY[1]*1.0356*DENS[2]) !BUTADIENE13 ,ug m-3 ,1000.0*(BUTADIENE13[1]*1.8674*DENS[2]) !HCL ,ppbV ,1000.0*HCL[1] !TOLUENE ,ppbV ,1000.0*TOLU[1] !Mercuric gas species !HG_0 ,ng/m3 ,1000.0*(HG[1]*8.3330*DENS[2]*1000.0) !HG_II ,ng/m3 ,1000.0*(HGIIGAS[1]*8.3330*DENS[2]*1000.0) !! Unused Gases. Presented Here for illustration. Users can uncomment !! them if they choose. !ALDX ,ppbV ,1000.0*ALDX[1] !IOLE ,ppbV ,1000.0*IOLE[1] !OLE ,ppbV ,1000.0*OLE[1] !PAR ,ppbV ,1000.0*PAR[1] !PAN ,ppbV ,1000.0*PAN[1] !SULF ,ppbV ,1000.0*SULF[1] ! emitted VOCs !VOC ,ppbC ,1000.0* (PAR[1] +2.0*ETHA[1] +3.0*PRPA[1] +MEOH[1]\ ! +2.0*ETH[1] +2.0*ETOH[1] +2.0*OLE[1] +3.0*ACET[1] \ ! +7.0*TOL[1] +8.0*XYLMN[1] +6.0*BENZENE[1] \ ! +FORM[1] +3.0*GLY[1] +4.0*KET[1] +2.0*ETHY[1] \ ! +2.0*ALD2[1] + 2.0*ETHA[1] + 4.0*IOLE[1] + 2.0*ALDX[1] \ ! +5.0*ISOP[1] + 10.0*TERP[1]+ 10.0*NAPH[1] +10.*APIN[1]) !! DMS and MSA. Users can uncomment them if they choose. DMS ,ppbV ,1000.0*DMS[1] MSA ,ppbV ,1000.0*MSA[1] !-------------------------------------------! !--------------- Particles -----------------! !-------------------------------------------! !! Crustal Elements AFEJ ,ug m-3 ,PMF_FE[3] AALJ ,ug m-3 ,PMF_AL[3] ASIJ ,ug m-3 ,PMF_SI[3] ATIJ ,ug m-3 ,PMF_TI[3] ACAJ ,ug m-3 ,PMF_CA[3] AMGJ ,ug m-3 ,PMF_MG[3] AKJ ,ug m-3 ,PMF_K[3] AMNJ ,ug m-3 ,PMF_MN[3] ASOILJ ,ug m-3 ,PMF_SOILIMPV[3] !! Non-Crustal Inorganic Particle Species AHPLUSIJ ,umol m-3 ,PMF_HP[3] ANAK ,ug m-3 ,PMC_NA[3] AMGK ,ug m-3 ,PMC_MG[3] AKK ,ug m-3 ,PMC_K[3] ACAK ,ug m-3 ,PMC_CA[3] ACLIJ ,ug m-3 ,PMF_CL[3] AECIJ ,ug m-3 ,PMF_EC[3] ANAIJ ,ug m-3 ,PMF_NA[3] ANO3IJ ,ug m-3 ,PMF_NO3[3] ANO3K ,ug m-3 ,PMC_NO3[3] TNO3 ,ug m-3 ,TNO3[3] ANH4IJ ,ug m-3 ,PMF_NH4[3] ANH4K ,ug m-3 ,PMC_NH4[3] ASO4IJ ,ug m-3 ,PMF_SO4[3] ASO4K ,ug m-3 ,PMC_SO4[3] !! Organic Particle Species APOCIJ ,ugC m-3 ,PMF_POC[3] APOMIJ ,ug m-3 ,PMF_POA[3] ASOCIJ ,ugC m-3 ,PMF_SOC[3] ASOMIJ ,ug m-3 ,PMF_SOA[3] AOCIJ ,ugC m-3 ,PMF_OC[3] AOMIJ ,ug m-3 ,PMF_OA[3] !!! Anthropogenic-VOC Derived Organic Aerosol AORGAIJ ,ug m-3 ,PMF_ASOA[3] !!! Biogenic-VOC Derived Organic Aerosol AORGBIJ ,ug m-3 ,PMF_BSOA[3] !!! Cloud-Processed SOA AORGCJ ,ug m-3 ,AORGCJ[1] !!! OM/OC ratios AOMOCRAT_TOT , ,PMF_OMOC[3] !! Total PM Aggregates ATOTI ,ug m-3 ,PMAIT_MASS[3] ATOTJ ,ug m-3 ,PMACC_MASS[3] ATOTK ,ug m-3 ,PMC_MASS[3] ATOTIJ ,ug m-3 ,PMF_MASS[3] ATOTIJK ,ug m-3 ,PM_MASS[3] !! Unspeciated PM including non-carbon organic mass AUNSPEC1IJ ,ug m-3 ,PMF_UN_IMPV1[3] !! Non-Carbon Organic Mass ANCOMIJ ,ug m-3 ,PMF_NCOM[3] !! Unspeciated PM excluding non-carbon organic mass AUNSPEC2IJ ,ug m-3 ,PMF_UN_IMPV2[3] !! AMS Projection of Output Concentrations PMAMS_CL ,ug m-3 ,PMAMS_CL[3] PMAMS_NH4 ,ug m-3 ,PMAMS_NH4[3] PMAMS_NO3 ,ug m-3 ,PMAMS_NO3[3] PMAMS_OA ,ug m-3 ,PMAMS_OA[3] PMAMS_SO4 ,ug m-3 ,PMAMS_SO4[3] !! PM1 Cutoff Output PM1_TOT ,ug m-3 ,PM1[3] !! Unused PM1 Species. Included Here for demonstration !PM1_EC ,ug m-3 ,PM1_EC[3] !PM1_OC ,ugC m-3 ,PM1_OC[3] !PM1_OM ,ug m-3 ,PM1_OA[3] !PM1_SO4 ,ug m-3 ,PM1_SO4[3] !PM1_CL ,ug m-3 ,PM1_CL[3] !PM1_NA ,ug m-3 ,PM1_NA[3] !PM1_MG ,ug m-3 ,PM1_MG[3] !PM1_K ,ug m-3 ,PM1_K[3] !PM1_CA ,ug m-3 ,PM1_CA[3] !PM1_NH4 ,ug m-3 ,PM1_NH4[3] !PM1_NO3 ,ug m-3 ,PM1_NO3[3] !PM1_SOIL ,ug m-3 ,PM1_SOIL[3] !PM1_UNSPEC1 ,ug m-3 ,PM1_UNSP1[3] !PM1_UNSPCRS ,ug m-3 ,PM1_UNSPCRS[3] !! PM2.5 species computed using modeled size distribution PM25_HP ,ug m-3 ,PM25_HP[3] PM25_CL ,ug m-3 ,PM25_CL[3] PM25_EC ,ug m-3 ,PM25_EC[3] PM25_NA ,ug m-3 ,PM25_NA[3] PM25_MG ,ug m-3 ,PM25_MG[3] PM25_K ,ug m-3 ,PM25_K[3] PM25_CA ,ug m-3 ,PM25_CA[3] PM25_NH4 ,ug m-3 ,PM25_NH4[3] PM25_NO3 ,ug m-3 ,PM25_NO3[3] PM25_OC ,ugC m-3 ,PM25_OC[3] PM25_OM ,ug m-3 ,PM25_OA[3] PM25_SOIL ,ug m-3 ,PM25_SOIL[3] PM25_SO4 ,ug m-3 ,PM25_SO4[3] PM25_TOT ,ug m-3 ,PM25[3] PM25_UNSPEC1 ,ug m-3 ,PM25_UNSP1[3] PM25_UNSPCRS ,ug m-3 ,PM25_UNSPCRS[3] !! Fine particle acidity (pH). pH is undefined if there is no aerosol water. !Do not trust predictions when hourly water is <0.01 ug m-3. FINEPHF will !have large negative value (-9.999E36) when pH is not to be trusted. !AH2OIJ ,ug m-3 ,AH2OI[1]+AH2OJ[1] !HPMOLAL ,mol kg-1 ,AHPLUSIJ[0]/AH2OIJ[0]*1000.0 !ACIDITYTEMP , ,-1*LOG10(HPMOLAL[0]) !FINEPHF , ,AH2OIJ[0]>0.01 ? ACIDITYTEMP[0] : -9.999E36 !! PM10.0 and Coarse-Sized Species PM10 ,ug m-3 ,PM10[3] PMC_CL ,ug m-3 ,PM25TO10_CL[3] PMC_NA ,ug m-3 ,PM25TO10_NA[3] PMC_NH4 ,ug m-3 ,PM25TO10_NH4[3] PMC_NO3 ,ug m-3 ,PM25TO10_NO3[3] PMC_SO4 ,ug m-3 ,PM25TO10_SO4[3] PMC_TOT ,ug m-3 ,PM25TO10[3] !! FRM PM Equivalent Calculation PMIJ_FRM ,ug m-3 ,PMF_FRM[3] PM25_FRM ,ug m-3 ,PM25_FRM[3] ================================================ FILE: CCTM/src/MECHS/cb6r5m_ae7_aq/mech_cb6r5m_ae7_aq.def ================================================ !CB6r3 for CMAQ ! created for CMAQv5.2 and released in June 2017 ! documented in https://www.epa.gov/cmaq ! Changes made for CMAQv5.3: ! For SE US study with Ng Group, Gatech (HOT Pye 2017): ! Remove TRPRXN formation from NO3 reactions ! Split APIN from other monoterpenes ! Add MTNO3 formation following Pye et al. 2015 (from SAPRC07tic implementation) ! Update TRPRXN SOA yields in SOA_DEFN.F ! Documentation in Xu et al. 2018 ACPD: https://doi.org/10.5194/acp-2017-1109 ! 06-19-18 G.Sarwar ! updated ! 080118 DJL ! 1. Modified chlorine reactions ( to ) to match CB6r2, mimic ! similar reactions in CB6r3, or updated to IUPAC ! 2. Added new species, CLNO3 and reactions of CLNO3 ! 3. New heterogeneous reactions ( and ) from ! hemispheric halogen chemical mechanism ! 4. implemented temperature and pressure-dependent CS/QY for CLNO2 ! ! 07-16-18 G.Sarwar, removed condensed halogen chemistry and added bromine/iodine and DMS chemistry ! 040319 HOT Pye: IEPOX uptake now consumes inorganic sulfate ! ! 07-04-20 G Sarwar, added an iodine reaction - (IO45) ! 01/08/21 G Sarwar, removed the reaction of CH3BR ; there are no emissions (BR21) ! 12-20-20 G Sarwar, added a reaction for CB6r5 and updated many rate constants and some yields following Ramboll Report to TCEQ (07/30/2020) ! !--------------------------------- CB6R5M_AE7_AQ REACTIONS[CM] = NO2 = NO + O # 1.0/; O + O2 + M = O3 + M # 6.00E-34^-2.6; O3 + NO = NO2 # 2.07E-12@1400; O + NO = NO2 # 1.00E-31^-1.6 & 5.00E-11^0.30 &0.85 &0.84; O + NO2 = NO # 5.10E-12@-198; O + NO2 = NO3 # 1.30E-31^-1.5 & 2.30E-11^0.24 &0.6 &1.03; O + O3 = # 8.00E-12@2060; O3 = O # 1.0/; O3 = O1D # 1.0/; O1D + M = O + M # 2.23E-11@-115; O1D + H2O = 2.0*OH # 2.14E-10; O3 + OH = HO2 # 1.70E-12@940; O3 + HO2 = OH # 2.03E-16^4.57@-693; OH + O = HO2 # 2.40E-11@-110; HO2 + O = OH # 3.00E-11@-200; OH + OH = O # 6.20E-14^2.6@-945; OH + OH = H2O2 # 9.00E-31^-3.2 & 3.90E-11^-0.47 &0.42 &1.23; OH + HO2 = # 4.80E-11@-250; HO2 + HO2 = H2O2 %3 # 2.20E-13@-600 & 1.90E-33@-980; HO2 + HO2 + H2O = H2O2 %3 # 3.08E-34@-2800 & 2.66E-54@-3180; H2O2 = 2.0*OH # 1.0/; H2O2 + OH = HO2 # 1.80E-12; H2O2 + O = OH + HO2 # 1.40E-12@2000; NO + NO + O2 = 2.0*NO2 # 4.25E-39@-664; HO2 + NO = OH + NO2 # 3.45E-12@-270; NO2 + O3 = NO3 # 1.40E-13@2470; NO3 = NO2 + O # 1.0/; NO3 = NO # 1.0/; NO3 + NO = 2.0*NO2 # 1.80E-11@-110; NO3 + NO2 = NO + NO2 # 4.50E-14@1260; NO3 + O = NO2 # 1.70E-11; NO3 + OH = HO2 + NO2 # 2.00E-11; NO3 + HO2 = OH + NO2 # 4.00E-12; NO3 + O3 = NO2 # 1.00E-17; NO3 + NO3 = 2.0*NO2 # 8.50E-13@2450; NO3 + NO2 = N2O5 # 3.60E-30^-4.1 & 1.90E-12^0.2 &0.35 &1.33; N2O5 = NO3 + NO2 # 1.30E-3^-3.5@11000 & 9.70E+14^0.1@11080 &0.35 &1.33; N2O5 = NO2 + NO3 # 1.0/; N2O5 + H2O = 2.0*HNO3 # 1.00E-22; NO + OH = HONO # 7.40E-31^-2.4 & 3.30E-11^-0.3 &0.81 &0.87; NO + NO2 + H2O = 2.0*HONO # 5.00E-40; HONO + HONO = NO + NO2 # 1.00E-20; HONO = NO + OH # 1.0/; HONO + OH = NO2 # 2.50E-12@-260; NO2 + OH = HNO3 # 1.80E-30^-3 & 2.80E-11 &0.6 &1; HNO3 + OH = NO3 %2 # 2.40E-14@-460 & 2.70E-17@-2199 & 6.50E-34@-1335; HNO3 = OH + NO2 # 1.0/; HO2 + NO2 = PNA # 1.40E-31^-3.1 & 4.00E-12 &0.4 &1.26; PNA = HO2 + NO2 # 4.10E-5@10650 & 6.00E+15@11170 &0.4 &1.26; PNA = 0.59*HO2 + 0.59*NO2 + 0.41*OH + 0.41*NO3 # 1.0/; PNA + OH = NO2 # 3.20E-13@-690; ! Added SULRXN to SO2+OH SO2 + OH = SULF + HO2 + SULRXN # 2.80E-31^-2.6 & 2.00E-12 &0.53 &1.1; C2O3 + NO = NO2 + MEO2 + RO2 # 7.50E-12@-290; C2O3 + NO2 = PAN # 3.61E-28^-6.87 & 1.24E-11^-1.105 &0.3 &1.41; PAN = NO2 + C2O3 # 1.10E-5@10100 & 1.90E+17@14100 &0.3 &1.41; PAN = 0.6*NO2 + 0.6*C2O3 + 0.4*NO3 + 0.4*MEO2 +0.4*RO2 #1.0/; C2O3 + HO2 = 0.37*PACD + 0.13*AACD + 0.13*O3 + 0.5*MEO2 + 0.5*RO2 + 0.50*OH # 3.14E-12@-580; C2O3 + RO2 = MEO2 # 4.40E-13@-1070; C2O3 + C2O3 = 2.0*MEO2 + 2.0*RO2 # 2.90E-12@-500; C2O3 + CXO3 = MEO2 + ALD2 + XO2H + 2.0*RO2 # 1.00E+0*K; CXO3 + NO = NO2 + ALD2 + XO2H + RO2 # 6.70E-12@-340; CXO3 + NO2 = PANX # 8.4E-1*K; PANX = NO2 + CXO3 # 8.4E-1*K; PANX = 0.6*NO2 +0.6*CXO3 +0.4*NO3 +0.4*ALD2 +0.4*XO2H +0.4*RO2 #1.0/; CXO3 + HO2 = 0.37*PACD + 0.13*AACD + 0.13*O3 + 0.5*OH + 0.5*MEO2 + 0.5*RO2 # 1.00E+0*K; CXO3 + RO2 = MEO2 # 1.00E+0*K; CXO3 + CXO3 = 2.0*MEO2 + 2.0*RO2 # 1.00E+0*K; RO2 + NO = NO # 2.40E-12@-360; RO2 + HO2 = HO2 # 4.80E-13@-800; RO2 + RO2 = # 6.50E-14@-500; MEO2 + NO = FORM + HO2 + NO2 # 2.30E-12@-360; MEO2 + HO2 = 0.9*MEPX + 0.1*FORM # 3.80E-13@-780; MEO2 + C2O3 = FORM + 0.9*HO2 + 0.9*MEO2 + 0.1*AACD +0.9*RO2 # 2.E-12@-500; MEO2 + RO2 = 0.685*FORM + 0.315*MEOH + 0.37*HO2 + RO2 # 1.0*K; XO2H + NO = NO2 + HO2 # 2.70E-12@-360; XO2H + HO2 = ROOH # 6.80E-13@-800; XO2H + C2O3 = 0.8*HO2 + 0.8*MEO2 + 0.2*AACD + 0.8*RO2 # 1.0*K; XO2H + RO2 = 0.6*HO2 + RO2 # 1.00E+0*K; XO2 + NO = NO2 # 1.00E+0*K; XO2 + HO2 = ROOH # 1.00E+0*K; XO2 + C2O3 = 0.8*MEO2 + 0.2*AACD + 0.8*RO2 # 1.0*K; XO2 + RO2 = RO2 # 1.00E+0*K; XO2N + NO = 0.5*NTR1 + 0.5*NTR2 # 1.00E+0*K; XO2N + HO2 = ROOH # 1.00E+0*K; XO2N + C2O3 = 0.8*HO2 + 0.8*MEO2 + 0.2*AACD + 0.8*RO2 # 1.0*K; XO2N + RO2 = RO2 # 1.00E+0*K; MEPX + OH = 0.6*MEO2 + 0.6*RO2 + 0.4*FORM + 0.4*OH # 5.30E-12@-190; MEPX = MEO2 + RO2 + OH # 1.0/; ROOH + OH = 0.54*XO2H + 0.06*XO2N + 0.6*RO2 + 0.4*OH # 5.30E-12@-190; ROOH = HO2 + OH # 1.0/; NTR1 + OH = NTR2 # 2.00E-12; NTR1 = NO2 # 1.0/; !BK NTR1 = NO2 # 0.0/; !BK NTR1 = NO2 # 0.0/; FACD + OH = HO2 # 4.50E-13; AACD + OH = MEO2 + RO2 # 4.00E-14@-850; PACD + OH = C2O3 # 5.30E-12@-190; FORM + OH = HO2 + CO # 5.40E-12@-135; FORM = 2.0*HO2 + CO # 1.0/; FORM = CO # 1.0/; FORM + O = OH + HO2 + CO # 3.40E-11@1600; FORM + NO3 = HNO3 + HO2 + CO # 5.50E-16; FORM + HO2 = HCO3 # 9.70E-15@-625; HCO3 = FORM + HO2 # 2.40E+12@7000; HCO3 + NO = FACD + NO2 + HO2 # 5.60E-12; HCO3 + HO2 = 0.5*MEPX + 0.5*FACD + 0.2*OH + 0.2*HO2 # 5.60E-15@-2300; ALD2 + O = C2O3 + OH # 1.80E-11@1100; ALD2 + OH = C2O3 # 4.70E-12@-345; ALD2 + NO3 = C2O3 + HNO3 # 1.40E-12@1860; ALD2 = MEO2 + RO2 + CO + HO2 # 1.0/; ALDX + O = CXO3 + OH # 1.30E-11@870; ALDX + OH = CXO3 # 4.90E-12@-405; ALDX + NO3 = CXO3 + HNO3 # 6.30E-15; ALDX = ALD2 + XO2H + RO2 + CO + HO2 # 1.0/; GLYD + OH = 0.2*GLY + 0.2*HO2 + 0.8*C2O3 # 8.00E-12; GLYD = 0.74*FORM + 0.89*CO + 1.4*HO2 + 0.15*MEOH + 0.19*OH + 0.11*GLY + 0.11*XO2H + 0.11*RO2 # 1.0/; GLYD + NO3 = HNO3 + C2O3 # 1.00E+0*K; GLY + OH = 1.8*CO + 0.2*XO2 + 0.2*RO2 + HO2 # 3.10E-12@-340; GLY = 2.0*HO2 + 2.0*CO # 1.0/; GLY + NO3 = HNO3 + 1.5*CO + 0.5*XO2 + 0.5*RO2 + HO2 # 4.00E-16; MGLY = C2O3 + HO2 + CO # 1.0/; MGLY + NO3 = HNO3 + C2O3 + XO2 + RO2 # 5.00E-16; MGLY + OH = C2O3 + CO # 1.90E-12@-575; H2 + OH = HO2 # 7.70E-12@2100; CO + OH = HO2 %3 # 1.44E-13@0.0 &3.43E-33@0.0; CH4 + OH = MEO2 + RO2 # 1.85E-12@1690; ETHA + OH = 0.991*ALD2 + 0.991*XO2H + 0.009*XO2N + RO2 # 6.90E-12@1000; MEOH + OH = FORM + HO2 # 2.85E-12@345; ETOH + OH = 0.95*ALD2 + 0.9*HO2 + 0.1*XO2H + 0.1*RO2 + 0.078*FORM + 0.011*GLYD # 3.00E-12@-20; KET = 0.5*ALD2 + 0.5*C2O3 + 0.5*XO2H + 0.5*CXO3 + 0.5*MEO2 + RO2 -2.5*PAR # 1.0/; ACET = 0.38*CO + 1.38*MEO2 + 1.38*RO2 + 0.62*C2O3 # 1.0/; ACET + OH = FORM + C2O3 + XO2 + RO2 # 1.41E-12@620.6; PRPA + OH = XPRP # 7.60E-12@585; PAR + OH = XPAR # 8.10E-13; ROR = 0.2*KET + 0.42*ACET + 0.74*ALD2 + 0.37*ALDX + 0.04*XO2N +0.94*XO2H + 0.98*RO2 + 0.02*ROR -2.7*PAR # 5.70E+12@5780; ROR + O2 = KET + HO2 # 1.50E-14@200; ROR + NO2 = NTR1 # 8.60E-12@-400; ETHY + OH = 0.7*GLY + 0.7*OH + 0.3*FACD + 0.3*CO +0.3*HO2 # 5.E-30^-1.5 & 1.00E-12 &0.37 &1.3; ETH + O = FORM + HO2 + CO + 0.7*XO2H + 0.7*RO2 + 0.3*OH # 1.04E-11@792; ETH + OH = XO2H + RO2 + 1.56*FORM + 0.22*GLYD # 8.60E-29^-3.1 & 9.00E-12^-0.85 &0.48 &1.15; ETH + O3 = FORM + 0.35*CO + 0.27*HO2 + 0.17*OH +0.42*FACD #6.82E-15@2500; ETH + NO3 = 0.5*NO2 + 0.5*NTR1 + 0.5*XO2H + 0.5*XO2 + RO2 + 1.125*FORM # 3.30E-12@2880; OLE + O = 0.2*ALD2 + 0.3*ALDX + 0.1*HO2 + 0.2*XO2H + 0.2*CO + 0.2*FORM + 0.01*XO2N + 0.21*RO2 + 0.2*PAR + 0.1*OH # 1.00E-11@280; OLE + OH = 0.781*FORM + 0.488*ALD2 + 0.488*ALDX + 0.976*XO2H + 0.195*XO2 + 0.024*XO2N + 1.195*RO2 -0.73*PAR # 8.E-27^-3.5&3.00E-11^-1 &0.5 &1.13; OLE + O3 = 0.295*ALD2 + 0.555*FORM + 0.27*ALDX + 0.15*XO2H + 0.15*RO2 + 0.334*OH + 0.08*HO2 + 0.378*CO + 0.075*GLY + 0.075*MGLY + 0.09*FACD + 0.13*AACD + 0.04*H2O2 -0.79*PAR # 5.50E-15@1880; OLE + NO3 = 0.5*NO2 + 0.5*NTR1 + 0.48*XO2 + 0.48*XO2H + 0.04*XO2N + RO2 + 0.5*FORM + 0.25*ALD2 + 0.375*ALDX -1.0*PAR # 4.60E-13@1155; IOLE + O = 1.24*ALD2 + 0.66*ALDX + 0.1*XO2H + 0.1*RO2 + 0.1*CO + 0.1*PAR # 2.30E-11; IOLE + OH = 1.3*ALD2 + 0.7*ALDX + XO2H + RO2 # 1.05E-11@-519; IOLE + O3 = 0.732*ALD2 + 0.442*ALDX + 0.128*FORM + 0.245*CO + 0.5*OH + 0.3*XO2H + 0.3*RO2 + 0.24*GLY + 0.06*MGLY + 0.29*PAR + 0.08*AACD + 0.08*H2O2 # 4.70E-15@1013; IOLE + NO3 = 0.5*NO2 + 0.5*NTR1 + 0.48*XO2 + 0.48*XO2H + 0.04*XO2N + RO2 + 0.5*ALD2 + 0.625*ALDX + PAR # 3.70E-13; ! added ISOPRXN to ISOP+OH ISOP + OH = ISO2 + RO2 + ISOPRXN # 2.70E-11@-390; ISOP + O = 0.75*ISPD + 0.5*FORM + 0.25*XO2 + 0.25*RO2 + 0.25*HO2 + 0.25*CXO3 + 0.25*PAR # 3.00E-11; ISO2 + NO = 0.1*INTR + 0.9*NO2 + 0.673*FORM + 0.9*ISPD + 0.818*HO2 + 0.082*XO2H + 0.082*RO2 # 2.39E-12@-365; ISO2 + HO2 = 0.88*ISPX + 0.12*OH + 0.12*HO2 + 0.12*FORM + 0.12*ISPD # 7.43E-13@-700; ISO2 + C2O3 = 0.598*FORM + 1.0*ISPD + 0.728*HO2 + 0.072*XO2H + 0.8*MEO2 + 0.2*AACD + 0.872*RO2 # 1.00E+0*K; ISO2 + RO2 = 0.598*FORM + 1.0*ISPD + 0.728*HO2 + 0.072*XO2H + 1.072*RO2 # 1.0*K; ISO2 = HO2 + HPLD # 3.30E+9@8300; ISOP + O3 = 0.6*FORM + 0.65*ISPD + 0.15*ALDX + 0.2*CXO3 + 0.35*PAR + 0.266*OH + 0.2*XO2 + 0.2*RO2 + 0.066*HO2 + 0.066*CO # 1.03E-14@1995; ISOP + NO3 = 0.35*NO2 + 0.65*NTR2 + 0.64*XO2H + 0.33*XO2 + 0.03*XO2N + RO2 + 0.35*FORM + 0.35*ISPD + ISOPRXN # 3.03E-12@448; ISPD + OH = 0.022*XO2N + 0.521*XO2 + 0.115*MGLY + 0.115*MEO2 + 0.269*GLYD + 0.269*C2O3 + 0.457*OPO3 + 0.117*PAR + 0.137*ACET + 0.137*CO + 0.137*HO2 + 0.658*RO2 # 5.58E-12@-511; ISPD + O3 = 0.04*ALD2 + 0.231*FORM + 0.531*MGLY + 0.17*GLY + 0.17*ACET + 0.543*CO + 0.461*OH + 0.15*FACD + 0.398*HO2 + 0.143*C2O3 # 3.88E-15@1770; ISPD + NO3 = 0.717*HNO3 + 0.142*NTR2 + 0.142*NO2 + 0.142*XO2 + 0.142*XO2H + 0.113*GLYD + 0.113*MGLY + 0.717*PAR + 0.717*CXO3 + 0.284*RO2 # 4.10E-12@1860; ISPD = 0.76*HO2 + 0.34*XO2H + 0.16*XO2 + 0.34*MEO2 + 0.208*C2O3 + 0.26*FORM + 0.24*OLE + 0.24*PAR + 0.17*ACET + 0.128*GLYD + 0.84*RO2 # 1.0/; ISPX + OH = 0.904*EPOX + 0.933*OH + 0.067*ISO2 + 0.067*RO2 + 0.029*IOLE + 0.029*ALDX # 2.23E-11@-372; HPLD = OH + ISPD # 1.0/; HPLD + NO3 = HNO3 + ISPD # 6.00E-12@1860; EPOX + OH = EPX2 + RO2 # 5.78E-11@400; EPX2 + HO2 = 0.275*GLYD + 0.275*GLY + 0.275*MGLY + 1.125*OH + 0.825*HO2 + 0.375*FORM + 0.074*FACD + 0.251*CO + 2.175*PAR # 7.43E-13@-700; EPX2 + NO = 0.275*GLYD + 0.275*GLY + 0.275*MGLY + 0.125*OH + 0.825*HO2 + 0.375*FORM + NO2 + 0.251*CO + 2.175*PAR # 2.39E-12@-365; EPX2 + C2O3 = 0.22*GLYD + 0.22*GLY + 0.22*MGLY + 0.1*OH + 0.66*HO2 + 0.3*FORM + 0.2*CO +1.74*PAR + 0.8*MEO2 + 0.2*AACD +0.8*RO2 # 1.0*K; EPX2 + RO2 = 0.275*GLYD + 0.275*GLY + 0.275*MGLY + 0.125*OH + 0.825*HO2 + 0.375*FORM + 0.251*CO + 2.175*PAR + RO2 # 1.0*K; INTR + OH = 0.63*XO2 + 0.37*XO2H + RO2 + 0.444*NO2 + 0.185*NO3 + 0.104*INTR + 0.592*FORM + 0.331*GLYD + 0.185*FACD + 2.7*PAR + 0.098*OLE + 0.078*ALDX + 0.266*NTR2 # 3.10E-11; ! added TRPRXN to TERP+ O, OH, O3 and NO3 TERP + O = 0.15*ALDX + 5.12*PAR + TRPRXN # 3.60E-11; TERP + OH = 0.75*XO2H + 0.5*XO2 + 0.25*XO2N + 1.5*RO2 + 0.28*FORM + 1.66*PAR + 0.47*ALDX + TRPRXN # 1.50E-11@-449; TERP + O3 = 0.57*OH + 0.07*XO2H + 0.69*XO2 + 0.18*XO2N + 0.94*RO2 + 0.24*FORM + 0.001*CO + 7.0*PAR + 0.21*ALDX + 0.39*CXO3 + TRPRXN # 1.20E-15@821; TERP + NO3 = 0.47*NO2 + 0.28*XO2H + 0.75*XO2 + 0.25*XO2N + 1.28*RO2 + 0.47*ALDX + 0.53*NTR2 + 1.0*TERPNRO2 # 3.70E-12@-175; ! Separate APIN (alpha-pinene) APIN + O = 0.15*ALDX + 5.12*PAR + TRPRXN # 3.60E-11; APIN + OH = 0.75*XO2H + 0.5*XO2 + 0.25*XO2N + 1.5*RO2 + 0.28*FORM + 1.66*PAR + 0.47*ALDX + TRPRXN # 1.50E-11@-449; APIN + O3 = 0.57*OH + 0.07*XO2H + 0.69*XO2 + 0.18*XO2N + 0.94*RO2 + 0.24*FORM + 0.001*CO + 7.0*PAR + 0.21*ALDX + 0.39*CXO3 + TRPRXN # 1.20E-15@821; APIN + NO3 = 0.47*NO2 + 0.28*XO2H + 0.75*XO2 + 0.25*XO2N + 1.28*RO2 + 0.47*ALDX + 0.53*NTR2 # 3.70E-12@-175; ! added BENZRO2 as tracer for SOA products from BENZENE - used later to account ! for high vs. low NOx influence on SOA BENZENE + OH = 0.53*CRES + 0.352*BZO2 + 0.352*RO2 + 0.118*OPEN + 0.118*OH + 0.53*HO2 + BENZRO2 # 2.30E-12@190; BZO2 + NO = 0.918*NO2 + 0.082*NTR2 + 0.918*GLY + 0.918*OPEN + 0.918*HO2 # 2.70E-12@-360; BZO2 + C2O3 = GLY + OPEN + HO2 + MEO2 + RO2 # 1.0*K; BZO2 + HO2 = # 1.90E-13@-1300; BZO2 + RO2 = GLY + OPEN + HO2 + RO2 # 1.0*K; ! added TOLRO2 tracer for SOA production - used at end of mechanism file to ! account for low vs. high NOx dependance of SOA precursors (TOLRXN) TOL + OH = 0.18*CRES + 0.65*TO2 + 0.72*RO2 + 0.1*OPEN + 0.1*OH + 0.07*XO2H + 0.18*HO2 + TOLRO2 # 1.80E-12@-340; TO2 + NO = 0.86*NO2 + 0.14*NTR2 + 0.417*GLY + 0.443*MGLY + 0.66*OPEN + 0.2*XOPN + 0.86*HO2 # 2.70E-12@-360; TO2 + C2O3 = 0.48*GLY + 0.52*MGLY + 0.77*OPEN + 0.23*XOPN + HO2 + MEO2 + RO2 # 1.0*K; TO2 + HO2 = # 1.90E-13@-1300; TO2 + RO2 = 0.48*GLY + 0.52*MGLY + 0.77*OPEN + 0.23*XOPN + HO2 + RO2 # 1.0*K; ! added XYLRO2 tracer for SOA production - used at end of mechanism file to ! account for low vs. high NOx dependance of SOA precursors XYLMN + OH = 0.155*CRES + 0.544*XLO2 + 0.602*RO2 + 0.244*XOPN + 0.244*OH + 0.058*XO2H + 0.155*HO2 + XYLRO2 # 1.85E-11; NAPH + OH = 0.155*CRES + 0.544*XLO2 + 0.602*RO2 + 0.244*XOPN + 0.244*OH + 0.058*XO2H + 0.155*HO2 + PAHRO2 # 1.85E-11; XLO2 + NO = 0.86*NO2 + 0.14*NTR2 + 0.221*GLY + 0.675*MGLY + 0.3*OPEN + 0.56*XOPN + 0.86*HO2 # 2.70E-12@-360; XLO2 + HO2 = # 1.90E-13@-1300; XLO2 + C2O3 = 0.26*GLY + 0.77*MGLY + 0.35*OPEN + 0.65*XOPN + HO2 + MEO2 + RO2 # 1.0*K; XLO2 + RO2 = 0.26*GLY + 0.77*MGLY + 0.35*OPEN + 0.65*XOPN + HO2 + RO2 # 1.0*K; CRES + OH = 0.025*GLY + 0.025*OPEN + HO2 + 0.2*CRO + 0.732*CAT1 + 0.02*XO2N + 0.02*RO2 # 1.70E-12@-950; CRES + NO3 = 0.3*CRO + HNO3 + 0.48*XO2 + 0.12*XO2H + 0.24*GLY + 0.24*MGLY + 0.48*OPO3 + 0.1*XO2N + 0.7*RO2 # 1.40E-11; CRO + NO2 = CRON # 2.10E-12; CRO + HO2 = CRES # 5.50E-12; CRON + OH = NTR2 + 0.5*CRO # 1.53E-12; CRON + NO3 = NTR2 + 0.5*CRO + HNO3 # 3.80E-12; CRON = HONO + HO2 + FORM + OPEN # 1.0/; XOPN = 0.4*GLY + XO2H + 0.7*HO2 + 0.7*CO + 0.3*C2O3 #0.05/; XOPN + OH = MGLY + 0.4*GLY + 2.0*XO2H + 2.0*RO2 # 9.00E-11; XOPN + O3 = 1.2*MGLY + 0.5*OH + 0.6*C2O3 + 0.1*ALD2 + 0.5*CO + 0.3*XO2H + 0.3*RO2 # 1.08E-16@500; XOPN + NO3 = 0.5*NO2 + 0.5*NTR2 + 0.45*XO2H + 0.45*XO2 + 0.1*XO2N + RO2 + 0.25*OPEN + 0.25*MGLY # 3.00E-12; OPEN = OPO3 + HO2 + CO # 0.028/; OPEN + OH = 0.6*OPO3 + 0.4*XO2H + 0.4*RO2 + 0.4*GLY # 4.40E-11; OPEN + O3 = 1.4*GLY + 0.24*MGLY + 0.5*OH + 0.12*C2O3 + 0.08*FORM + 0.02*ALD2 + 1.98*CO + 0.56*HO2 # 5.40E-17@500; OPEN + NO3 = OPO3 + HNO3 # 3.80E-12; CAT1 + OH = 0.14*FORM + 0.2*HO2 + 0.5*CRO # 5.00E-11; CAT1 + NO3 = CRO + HNO3 # 1.70E-10; OPO3 + NO = NO2 + 0.5*GLY + 0.5*CO + 0.8*HO2 + 0.2*CXO3 # 1.00E+0*K; OPO3 + NO2 = OPAN # 1.00E+0*K; OPAN = OPO3 + NO2 # 1.00E+0*K; OPO3 + HO2 = 0.37*PACD + 0.13*AACD + 0.13*O3 + 0.5*OH + 0.5*MEO2 + 0.5*RO2 # 1.00E+0*K; OPO3 + C2O3 = MEO2 + XO2 + ALDX + 2.0*RO2 # 1.00E+0*K; OPO3 + RO2 = 0.8*XO2H + 0.8*ALDX + 1.8*RO2 + 0.2*AACD # 1.00E+0*K; OPAN + OH = 0.5*NO2 + 0.5*GLY + CO + 0.5*NTR2 # 3.60E-11; PANX + OH = ALD2 + NO2 # 3.00E-12; !BK NTR2 = HNO3 # 2.30E-5; ECH4 + OH = MEO2 + RO2 # 1.85E-12@1690; XPRP = XO2N + RO2 # 2.37E-21 & 4.07E-01^-8.0 &0.41 &1.0; XPRP = 0.732*ACET + 0.268*ALDX + 0.268*PAR + XO2H + RO2 # 1.00E+00; XPAR = XO2N + RO2 # 4.81E-20 & 4.07E-01^-8.0 &0.41 &1.0; XPAR = 0.126*ALDX + 0.874*ROR + 0.126*XO2H + 0.874*XO2 + RO2 -0.126*PAR # 1.00E+00; NO2 + OH + H2O = HNO3 # 1.10E-30; ! ! Chlorine reactions added from base CB05tucl and updated ! CL2 = 2.000*CL # 1.0/; HOCL = OH + CL # 1.0/; CL + O3 = CLO # 2.3E-11 @ 200; CLO + CLO = 0.300*CL2 + 1.400*CL # 1.63E-14; CLO + NO = CL + NO2 # 6.4E-12 @ -290; CLO + HO2 = HOCL # 2.2E-12 @ -340; CLO + MEO2 = CL + FORM + HO2 # 3.2E-12@110; OH + FMCL = CL + CO # 5.0E-13; FMCL = CL + CO + HO2 # 1.0/; CL + CH4 = HCL + MEO2 + RO2 # 6.6E-12 @ 1240; CL + PAR = HCL + XPAR # 5.0E-11; CL + PRPA = HCL + ACET + 0.97*XO2H + 0.03*XO2N + RO2 # 1.4E-10; CL + ETHA = HCL + 0.991*ALD2 + 0.991*XO2H + 0.009*XO2N + RO2 # 8.3-11 @ 100; CL + ETH = FMCL + 2.000*XO2 + 1.000*HO2 + 1.000*FORM # 1.07E-10; CL + OLE = FMCL + 0.330*ALD2 + 0.670*ALDX + 2.000*XO2 + 1.000*HO2 - 1.000*PAR # 2.5E-10; CL + IOLE = 0.300*HCL + 0.700*FMCL + 0.450*ALD2 + 0.550*ALDX + 0.300*OLE + 0.300*PAR + 1.700*XO2 + 1.000*HO2 # 3.5E-10; CL + ISOP = FMCL + ISPD + 0.96*XO2H + 0.04*XO2N + RO2 # 4.3E-10; CL + FORM = HCL + 1.00*HO2 + 1.00*CO # 8.2E-11 @ 34; CL + ALD2 = HCL + 1.000*C2O3 # 7.9E-11; CL + ALDX = HCL + 1.000*CXO3 # 1.3E-10; CL + MEOH = HCL + 1.00*HO2 + 1.00*FORM # 5.5E-11; CL + ETOH = HCL + 1.00*HO2 + 1.00*ALD2 # 8.2E-11 @ -45; HCL + OH = CL # 6.58E-13^1.16 @ -58; CL + TOL = HCL + 0.18*CRES + 0.65*TO2 + 0.72*RO2 + 0.1*OPEN + 0.1*OH + 0.07*XO2H + 0.18*HO2 + TOLRO2 # 6.1E-11; CL + XYLMN = HCL + 0.155*CRES + 0.544*XLO2 + 0.602*RO2 + 0.244*XOPN + 0.244*OH + 0.058*XO2H + 0.155*HO2 + XYLRO2 # 1.2E-10; CL + NAPH = HCL + 0.155*CRES + 0.544*XLO2 + 0.602*RO2 + 0.244*XOPN + 0.244*OH + 0.058*XO2H + 0.155*HO2 + PAHRO2 # 1.2E-10; CLNO2 = CL + NO2 #1.0/; ! add new reactions for chlorine nitrate CLO + NO2 = CLNO3 #1.8E-31^-3.4&1.5E-11^-1.9&0.6; ! CLNO3 = CLO + NO2 #4.48E-5^-1.0@12530&3.71E+15^3.5@12530&0.6; CLNO3 = CLO + NO2 # 1.0/; CLNO3 = CL + NO3 # 1.0/; ! heterogeneous reactions CLNO3 = HOCL + HNO3 # 1.0~; CLNO3 = HOCL + HNO3 # 1.0~; ! SOA counter species and semivolatiles formed TOLRO2 + NO = NO + 0.016*SVAVB2 + 0.051*SVAVB3 + 0.047*SVAVB4 # 2.70e-12@-360; TOLRO2 + HO2 = HO2 + 0.14*SVAVB1 # 1.90e-13@-1300; XYLRO2 + NO = NO + 0.015*SVAVB2 + 0.023*SVAVB3 + 0.06*SVAVB4 # 2.70e-12@-360; XYLRO2 + HO2 = HO2 + 0.193*SVAVB1 # 1.90e-13@-1300; BENZRO2 + NO = NO + 0.034*SVAVB2 + 0.392*SVAVB4 # 2.70e-12@-360; BENZRO2 + HO2 = HO2 + 0.146*SVAVB1 # 1.90e-13@-1300; SESQ + O3 = O3 + SESQRXN # 1.16E-14; SESQ + OH = OH + SESQRXN # 1.97E-10; SESQ + NO3 = NO3 + SESQRXN # 1.90E-11; PAHRO2 + NO = NO + 0.028*SVAVB2 + 0.225*SVAVB3 + 0.191*SVAVB4 # 2.70e-12@-360; PAHRO2 + HO2 = HO2 + 0.473*SVAVB1 # 1.90e-13@-1300; SOAALK + OH = OH + 0.006*SVAVB2 + 0.052*SVAVB3 + 0.081*SVAVB4 # 2.70e-12@-374; ! iorganic heteorogeneous reactions from hetchem version 5.0.2 ! included F_NTR2_ON factor here, rather than in AEROSOL_CHEM.F NTR2 = HNO3 # 1.4~; N2O5 = HNO3 + H2NO3PIJ # 1.0~; N2O5 = HNO3 + H2NO3PK # 1.0~; H2NO3PIJ = HNO3 # 1.0~; H2NO3PK = HNO3 # 1.0~; H2NO3PIJ + ACLI = CLNO2 # 1.0~; H2NO3PIJ + ACLJ = CLNO2 # 1.0~; H2NO3PK + ACLK = CLNO2 # 1.0~; NO2 = 0.5*HONO + 0.5*HNO3 # 1.0~; ! heterogeneous acid-catalyzed uptake of isoprene-epoxydiols EPOX = IEPOXP # 1.0~; IEPOXP + ASO4J = AISO3J # 1.0~; IEPOXP = AISO3J # 1.0~; ! GLY and MGLY uptake GLY = AGLYJ # 1.0~; MGLY = AGLYJ # 1.0~; ! MTNO3 formation and reaction TERPNRO2 + NO = 1.0*NO + 0.688*MTNO3 # 2.60e-12@-380; TERPNRO2 + HO2 = 1.0*HO2 + 1.0*MTNO3 # 2.65e-13@-1300; TERPNRO2 + NO3 = 1.0*NO3 + 0.422*MTNO3 # 2.30e-12; ! 50% alkoxy radical yield from TERPNRO2 + RO2 TERPNRO2 + RO2 = 1.0*RO2 + 0.711*MTNO3 # 3.50e-14; ! Reaction with OH, Cl is followed 50/50 by HO2 (N releasing) and NO (N retaining) MTNO3 + CL = CL + 0.37*MTNO3 # 1.92e-10; MTNO3 + OH = OH + 0.24*MTNO3 # 7.20e-12; ! photolysis releases all nitrate MTNO3 = # 1.0/; ! MTNO3 aerosol hydrolysis AMTNO3J = 1.00*AMTHYDJ #9.259E-5; ! oligomerization reaction for secondary organic aerosols AAVB2J = 0.907*AOLGAJ # 9.48816E-6; AAVB3J = 0.925*AOLGAJ # 9.48816E-6; AAVB4J = 0.943*AOLGAJ # 9.48816E-6; AISO1J = 0.50*AOLGBJ # 9.48816E-6; AISO2J = 0.50*AOLGBJ # 9.48816E-6; ASQTJ = 1.50*AOLGBJ # 9.48816E-6; !aging reactions for primary organic carbon APOCI + OH = 1.25*APNCOMI + APOCI + OH # 2.5E-12; APNCOMI + OH = OH # 1.0~; APOCJ + OH = 1.25*APNCOMJ + APOCJ + OH # 2.5E-12; APNCOMJ + OH = OH # 1.0~; ! Formation of Potential Combustion SOA (pcSOA) PCVOC + OH = OH + PCSOARXN # 1.25E-11; ! Aging with Func. and Frag. (Donahue et al. 2012) VLVPO1 + OH = OH + 0.4857 * VLVPO1 + 0.0062 * VSVPO1 + 0.0025 * VSVPO2 + 0.0026 * VSVPO3 + 0.0023 * VIVPO1 + 0.2944 * VLVOO1 + 0.2021 * VLVOO2 + 0.0019 * VSVOO2 + 0.0023 * VSVOO3 #4.0e-11; VSVPO1 + OH = OH + 0.3003 * VLVPO1 + 0.2862 * VSVPO1 + 0.0041 * VSVPO2 + 0.0035 * VSVPO3 + 0.2239 * VLVOO1 + 0.1820 * VLVOO2 #4.0e-11; VSVPO2 + OH = OH + 0.3856 * VLVPO1 + 0.0950 * VSVPO1 + 0.1373 * VSVPO2 + 0.0005 * VSVPO3 + 0.2051 * VLVOO1 + 0.1764 * VLVOO2 #4.0e-11; VSVPO3 + OH = OH + 0.2181 * VLVPO1 + 0.3063 * VSVPO1 + 0.0153 * VSVPO2 + 0.1043 * VSVPO3 + 0.1893 * VLVOO1 + 0.1668 * VLVOO2 #4.0e-11; VIVPO1 + OH = OH + 0.2412 * VLVPO1 + 0.2089 * VSVPO1 + 0.3000 * VSVPO2 + 0.2028 * VLVOO1 + 0.0471 * VLVOO2 #4.0e-11; VLVOO1 + OH = OH + 0.6664 * VLVOO1 + 0.0143 * VLVOO2 + 0.0123 * VSVOO1 + 0.1239 * VSVOO2 + 0.1831 * VSVOO3 #4.0e-11; VLVOO2 + OH = OH + 0.2858 * VLVOO1 + 0.3931 * VLVOO2 + 0.0139 * VSVOO1 + 0.1027 * VSVOO2 + 0.2045 * VSVOO3 #4.0e-11; VSVOO1 + OH = OH + 0.3303 * VLVOO1 + 0.2272 * VLVOO2 + 0.2607 * VSVOO1 + 0.0702 * VSVOO2 + 0.1116 * VSVOO3 #4.0e-11; VSVOO2 + OH = OH + 0.3444 * VLVOO1 + 0.2749 * VLVOO2 + 0.0491 * VSVOO1 + 0.2577 * VSVOO2 + 0.0739 * VSVOO3 #4.0e-11; VSVOO3 + OH = OH + 0.3886 * VLVOO1 + 0.2421 * VLVOO2 + 0.0640 * VSVOO1 + 0.0385 * VSVOO2 + 0.2667 * VSVOO3 #4.0e-11; ! MP extra species < T01> FORM_PRIMARY + OH = OH # 5.40E-12@-135; < T02> FORM_PRIMARY + NO3 = NO3 # 5.50E-16; < T03> FORM_PRIMARY + O = O # 3.4E-11 @ 1600; < T04> FORM_PRIMARY = # 1.0/; < T05> FORM_PRIMARY = # 1.0/; FORM_PRIMARY + CL = CL # 8.2E-11 @ 34; < T06> ALD2_PRIMARY + OH = OH # 4.70E-12@-345; < T07> ALD2_PRIMARY + NO3 = NO3 # 1.40E-12@1860; < T08> ALD2_PRIMARY + O = O # 1.8E-11 @ 1100; < T09> ALD2_PRIMARY = # 1.0/; ALD2_PRIMARY + CL = CL # 7.9E-11; < T10> BUTADIENE13 + OH = OH + 0.58*ACROLEIN # 1.48E-11@-448.; < T11> BUTADIENE13 + O3 = O3 + 0.52*ACROLEIN # 1.34E-14@2283.; < T12> BUTADIENE13 + NO3 = NO3 + 0.045*ACROLEIN # 1.79E-13; BUTADIENE13 + CL = CL + 0.58*ACROLEIN # 2.51E-10; < T13> ACRO_PRIMARY + OH = OH # 2.0E-11; < T14> ACRO_PRIMARY + O3 = O3 # 2.61E-19; < T15> ACRO_PRIMARY + NO3 = NO3 # 1.15E-15; < T16> ACRO_PRIMARY = # 1.0/; ACRO_PRIMARY + CL = CL # 2.37E-10; < T17> ACROLEIN + OH = OH # 2.0E-11; < T18> ACROLEIN + O3 = O3 # 2.61E-19; < T19> ACROLEIN + NO3 = NO3 # 1.15E-15; < T20> ACROLEIN = # 1.0/; ACROLEIN + CL = CL # 2.37E-10; < T21> TOLU + OH = OH # 1.80E-12@-340.; TOLU + CL = CL # 6.1E-11; HG + O3 = 0.5*HGIIAER + 0.5*HGIIGAS + O3 # 2.11E-18 @ 1256.5; HG + CL2 = HGIIGAS + CL2 # 2.6E-18; HG + H2O2 = HGIIGAS + H2O2 # 8.5E-19; HG + OH = 0.5*HGIIAER + 0.5*HGIIGAS + OH # 7.7E-14; HG + CL + M = 0.5*HG + 0.5*HGIIGAS + M + CL # 2.25E-33 @ -680.0; ! Bromine chemistry BR + O3 = BRO # 1.6E-11 @ 780; BRO + HO2 = HOBR # 4.5E-12 @-460; BR + HO2 = HBR # 4.8E-12 @ 310; HBR + OH = BR # 6.7E-12 @-155; BRO + BRO = 2.0*BR # 1.4E-12 @-210; BRO + BRO = BR2 # 2.9E-14 @-840; BRO + NO = BR + NO2 # 8.8E-12 @-260; BR + BRNO3 = BR2 + NO3 # 4.9E-11 @ 0; BR2 + OH = HOBR + BR # 2.1E-11 @-240; BRO + OH = BR + HO2 # 1.7E-11 @-250; BR + NO3 = BRO + NO2 # 1.6E-11 @ 0.0; BRO + NO2 = BRNO3 # 5.2E-31^-3.2@0.0 & 6.9E-12^-2.9@0.0 & 0.6 & 1.0; BR + NO2 = BRNO2 # 4.2E-31^-2.4@0.0 & 2.7E-11^0.0@0.0 & 0.6 & 1.0; BRO + CLO = BR + CL # 4.7E-12@-320; FORM + BR = HBR + HO2 + CO # 1.7E-11 @ 800; ALD2 + BR = HBR + C2O3 # 1.3E-11 @ 360; OLE + BR = FMBR + ALD2 + XO2H - 1.0 * PAR + RO2 # 3.6E-12; ISOP + BR = FMBR + ISPD + 0.96 * XO2H + 0.04 * XO2N + RO2 # 5.0E-12; FMBR + OH = BR + CO # 5.0E-12; BRO + MEO2 = 0.8*HOBR + 0.2*BR + FORM # 2.7E-14 @-1600; MB3 + OH = 3*BR + CO # 1.0E-12 @ 388; MB2 + OH = 2*BR + HO2 + CO # 2.0E-12 @ 840; MB2C + OH = 2*BR + CL + CO # 9.0E-13 @ 420; MBC2 + OH = BR + 2*CL + CO # 9.4E-13 @ 510; MBC + OH = BR + CL + CO + HO2 # 2.1E-12 @ 880; DMS + BRO = 0.75*SO2 + 0.25*MSA + MEO2 + BR # 1.50E-14@-1000; ! phtolysis BR2 = 2*BR # 1.0/; HOBR = OH + BR # 1.0/; BRO = BR + O # 1.0/; BRNO2 = BR + NO2 # 1.0/; BRNO3 = BRO + NO2 # 1.0/; BRNO3 = BR + NO3 # 1.0/; BRCL = BR + CL # 1.0/; FMBR = BR + CO + HO2 # 1.0/; MB3 = 3*BR + HO2 + CO # 1.0/; MB2C = 2*BR + CL + HO2 + CO # 1.0/; MBC2 = BR + 2*CL + HO2 + CO # 1.0/; ! Heterogeneous reactions BRNO3 = HOBR + HNO3 # 1.0~; BRNO3 = HOBR + HNO3 # 1.0~; HOBR + ACLJ = BRCL # 1.0~; HOBR + ABRJ = BR2 # 1.0~; BRNO3 + ACLJ = BRCL + HNO3 # 1.0~; BRNO3 + ABRJ = BR2 + HNO3 # 1.0~; BRNO2 + ACLJ = BRCL + HONO # 1.0~; BRNO2 + ABRJ = BR2 + HONO # 1.0~; ! Heterogeneous reaction of HBR HBR = ABRJ # 1.0~; ! Iodine chemistry I + O3 = IO # 2.10E-11 @ 830; I + HO2 = HI # 1.50E-11 @ 1090; I2 + OH = HOI + I # 2.10E-10; HI + OH = I # 1.60E-11 @ -440; HOI + OH = IO # 5.0E-12; IO + HO2 = HOI # 1.40E-11 @ -540; IO + NO = I + NO2 # 7.15E-12 @ -300; INO + INO = I2 + 2*NO # 8.40E-11 @ 2620; INO2 + INO2 = I2 + 2*NO2 # 4.7E-13 @ 1670; I2 + NO3 = I + INO3 # 1.50E-12; INO3 + I = I2 + NO3 # 9.10E-11 @ 146; I + BRO = IO + BR # 1.20E-11; IO + BR = I + BRO # 2.70E-11; IO + BRO = BR + I # 1.5E-11 @-510; IO + CLO = I + CL # 4.70E-12 @ -280; OIO + OIO = I2O4 # 1.50E-10 @ 0; OIO + NO = IO + NO2 # 1.10E-12 @ -542; IO + IO = 0.4*OIO + 0.4*I + 0.6*I2O2 # 5.40E-11 @ -180; IO + OIO = I2O3 # 1.50E-10 @ 0; I2O2 = OIO + I # 2.50E+14 @ 9770; I2O4 = 2*OIO # 3.80E-02 @ 0; INO2 = I + NO2 # 9.94E17 @ 11859; INO3 = IO + NO2 # 2.10E+15 @ 13670; I + NO = INO # 1.8E-32^-1.0 & 1.7E-11^0.0 & 0.60 & 1.0; I + NO2 = INO2 # 3.0E-31^-1.0 & 6.6E-11^0.00 & 0.63 & 1.0; IO + NO2 = INO3 # 7.7-31^-5.0 & 1.6E-11^0.0 & 0.40 & 1.0; CH3I + OH = I + FORM # 4.3E-12 @1120; DMS + IO = 0.75*SO2 + 0.25*MSA + MEO2 + I # 3.3E-13@925; ! phtolysis I2 = 2.0*I # 1.0/; HOI = I + OH # 1.0/; IO = I + O # 1.0/; OIO = I # 1.0/; INO = I + NO # 1.0/; INO2 = I + NO2 # 1.0/; INO3 = I + NO3 # 1.0/; I2O2 = I + OIO # 1.0/; I2O3 = IO + OIO # 1.0/; I2O4 = 2*OIO # 1.0/; ICL = I + CL # 1.0/; IBR = I + BR # 1.0/; CH3I = I + MEO2 # 1.0/; MI2 = 2.0*I + FORM # 1.0/; MIB = I + BR + FORM # 1.0/; MIC = I + CL + FORM # 1.0/; HOI + NO3 = IO + HNO3 # 2.7E-12 ^ -2.66; I2O2 = IO + IO # 1.00E+12 @ 9770; ! heterogeneous reactions I2O2 = # 1.0~; I2O2 = # 1.0~; I2O3 = # 1.0~; I2O3 = # 1.0~; I2O4 = # 1.0~; I2O4 = # 1.0~; INO3 + ACLJ = ICL + HNO3 # 1.0~; INO3 + ABRJ = IBR + HNO3 # 1.0~; INO2 + ACLJ = ICL + HONO # 1.0~; INO2 + ABRJ = IBR + HONO # 1.0~; HOI + ACLJ = ICL # 1.0~; HOI + ABRJ = IBR # 1.0~; ! DMS chemistry (IUPAC except DMS4 which is from Somariva and Glasow, 2012 ) DMS + OH = SO2 + MEO2 + FORM # 1.12E-11@250; DMS + OH = 0.75*SO2 + 0.25*MSA + MEO2 # 1.99E-39@-5270 & 1.26E-10@+340 &1.0 &1; DMS + NO3 = SO2 + HNO3 + MEO2 + FORM # 1.9E-13@-520; DMS + CL = 0.86*SO2 + MEO2 + 0.45*FORM + 0.45*HCL + 0.14*MSA + 0.55*CLO # 3.4E-13@-2081; DMS + CLO = 0.75*SO2 + 0.25*MSA + MEO2 + CL # 1.7E-15@-340; END MECH CONSTANTS ATM_AIR = 1.0E+06 ATM_H2 = 0.56 ATM_N2 = 0.7808E+06 ATM_O2 = 0.2095E+06 ATM_CH4 = 1.85 END CONSTANTS ================================================ FILE: CCTM/src/MECHS/cb6r5m_ae7_aq/pa_cb6r5m_ae7_aq.ctl ================================================ ! for CB6_cl2 ! !======================================================================= ! IPR_OUTPUTS !======================================================================= IPR_OUTPUT O3 = CHEM+DDEP+CLDS+AERO+TRNM; IPR_OUTPUT HNO3 = CHEM+DDEP+CLDS+AERO; IPR_OUTPUT PAN = CHEM+DDEP+CLDS+AERO+TRNM; IPR_OUTPUT N2O5 = CHEM+DDEP+CLDS+AERO; DEFINE FAMILY EC = AECI + AECJ; IPR_OUTPUT EC = COAG + EMIS + HADV; IPR_OUTPUT ASO4J = COND + COAG + EMIS + CHEM + VDIF + CLDS; IPR_OUTPUT ASO4I = NPF + COND + COAG + EMIS + CHEM + VDIF +CLDS; IPR_OUTPUT NUMATKN; !IPR_OUTPUT NUMACC; !IPR_OUTPUT NUMCOR; ! ENDPA; ================================================ FILE: CCTM/src/MECHS/cracmm1_aq/AE_cracmm1_aq.nml ================================================ &AE_nml AE_SPECIES_DATA = !SPECIES ,MOLWT ,Aitken ,Accum ,Coarse ,OPTICS ,IC ,IC_FAC ,BC ,BC_FAC ,DRYDEP SURR ,FAC ,WET-SCAV SURR,FAC ,AE2AQ SURR ,TRNS ,DDEP ,WDEP ,CONC,!RepCmp,ExplicitorLumped,DTXSID,SMILES 'ASO4' , 96.00 ,T ,T ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'SO4' , 1 ,'SO4' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Sulfate ion,L,DTXSID3042425,[O-]S(=O)(=O)[O-] 'ANH4' , 18.00 ,T ,T ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'NH4' , 1 ,'NH4' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Ammonium ion,E,DTXSID5043974,[NH4+] 'ANO3' , 62.00 ,T ,T ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'NO3' , 1 ,'NO3' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Nitrate ion,E,DTXSID5024217,[N+](=O)([O-])[O-] 'ASOAT' ,200.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!3;4;5;6;7-Pentahydroxyheptan-2-one,L,DTXSID80956455,CC(=O)C(C(C(C(CO)O)O)O)O 'AGLY' , 66.40 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!2-(4;5-dihydroxy-1;3-dioxolan-2-yl)-1;3-dioxolane-4;5-diol,L,NA,OC2OC(C1OC(O)C(O)O1)OC2O 'AHOM' ,250.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!NA,NA,NA,NA 'AELHOM' ,402.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!NA,NA,NA,NA 'AORGC' ,177.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'AORGC' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!2-(4;5-dihydroxy-1;3-dioxolan-2-yl)-1;3-dioxolane-4;5-diol,L,NA,OC2OC(C1OC(O)C(O)O1)OC2O 'AEC' , 12.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'EC' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Carbon,L,NA,[C] 'AOTHR' ,200.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'PRI' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Unspeciated PM,L,NA,NA 'AFE' , 55.80 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'FE' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Iron ion,E,DTXSID4042672,[Fe++] 'AAL' , 27.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'PRI' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Aluminum ion,E,DTXSID70912343,[Al+3] 'ASI' , 28.10 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'PRI' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Total Silicon,E,DTXSID0051441,[Si] 'ATI' , 47.90 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'PRI' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Total Titanium,E,DTXSID3047764,[Ti] 'ACA' , 40.10 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'CA' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Calcium ion,E,DTXSID7037638,[Ca++] 'AMG' , 24.30 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'MG' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Magnesium ion,E,NA,[Mg++] 'AK' , 39.10 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'K' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Potassium ion,E,DTXSID9042671,[K+] 'AMN' , 54.90 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'MN' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Manganese ions,L,DTXSID00167687,[Mn++] 'ACORS' ,100.00 ,F ,F ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'ANTH' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Coarse PM,L,NA,NA 'ASOIL' ,100.00 ,F ,F ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'SOIL' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Crustal species,L,NA,NA 'NUM' , 1.00 ,T ,T ,T ,'' ,'' ,-1 ,'' ,-1 ,'VNUM' , 1 ,'NUM' , 1 ,'NUM' ,'Yes' ,'' ,'' ,'Yes',!Number of particles,L,NA,NA 'SRF' , 1.00 ,T ,T ,T ,'' ,'' ,-1 ,'' ,-1 ,'VSRF' , 1 ,'SRF' , 1 ,'SRF' ,'Yes' ,'' ,'' ,'Yes',!Surface area of particles,L,NA,NA 'AORGH2O' , 18.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'H2O' , 1 ,'H2O' ,'Yes' ,'' ,'' ,'Yes',!Water,E,DTXSID6026296,O 'AH2O' , 18.00 ,T ,T ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'H2O' , 1 ,'H2O' ,'Yes' ,'' ,'' ,'Yes',!Water,E,DTXSID6026296,O 'AH3OP' , 19.00 ,T ,T ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'' ,-1 ,'' ,'Yes' ,'' ,'' ,'Yes',!Hydronium ion,E,DTXSID20893597,[OH3+] 'ANA' , 23.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'NA' , 1 ,'NA' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Sodium ion,E,DTXSID8037671,[Na+] 'ACL' , 35.50 ,T ,T ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'CL' , 1 ,'CL' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Chloride ion,E,DTXSID6043969,[Cl-] 'ASEACAT' , 23.75 ,F ,F ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'SEAS' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Coarse sea spray cations,L,NA,NA 'APOC' ,220.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Organic carbon,L,NA,NA 'APNCOM' ,220.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Non-carbon organic matter,L,NA,NA 'AOP3' ,176.2 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!NA,NA,NA,NA 'AROCN2ALK' ,422.83 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!NA,NA,NA,NA 'AROCN1ALK' ,408.80 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!NA,NA,NA,NA 'AROCP0ALK' ,394.77 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!NA,NA,NA,NA 'AROCP1ALK' ,380.75 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!NA,NA,NA,NA 'AROCP2ALK' ,338.66 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!NA,NA,NA,NA 'AROCP3ALK' ,296.58 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!NA,NA,NA,NA 'AROCN2OXY2',282.4 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!NA,NA,NA,NA 'AROCN2OXY4',232.3 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!NA,NA,NA,NA 'AROCN2OXY8',194.2 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!NA,NA,NA,NA 'AROCN1OXY1',312.5 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!NA,NA,NA,NA 'AROCN1OXY3',230.3 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!NA,NA,NA,NA 'AROCN1OXY6',190.2 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!NA,NA,NA,NA 'AROCP0OXY2',242.4 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!NA,NA,NA,NA 'AROCP0OXY4',202.3 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!NA,NA,NA,NA 'AROCP1OXY1',270.5 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!NA,NA,NA,NA 'AROCP1OXY3',202.3 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!NA,NA,NA,NA 'AROCP2OXY2',200.3 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!NA,NA,NA,NA 'AROCP3OXY2',186.3 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!NA,NA,NA,NA 'AISO3NOS' ,136.20 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!2-methylbutane-1;2;3;4-tetrol,L,NA,C(O)C(O)(C)C(O)CO 'AISO3OS' ,216.20 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!(1;3;4-trihydroxy-2-methylbutan-2-yl)oxysulfonic acid,L,NA,C(O)C(OS(O)(=O)(=O))(C)C(O)CO / ================================================ FILE: CCTM/src/MECHS/cracmm1_aq/CMAQ_Control_DESID_cracmm1_aq.nml ================================================ !------------------------------------------------------------------------------! ! Emission Control Interface ! ! for the ! ! Detailed Emissions Scaling, Isolation, and Diagnostics (DESID) Module, ! ! part of the ! ! Community Multiscale Air Quality (CMAQ) Model ! ! developed and maintained by the ! ! Center for Environmental Measurement and Modeling (CEMM), ! ! Office of Research and Development (ORD) ! ! U.S. Environmental Protection Agency (USEPA) ! ! ! ! This namelist is consistent with CMAQv5.4 (Release AUGUST 2022) ! ! ! ! See CMAQ User's Guide Appendix B (https://github.com/USEPA/CMAQ/blob/main/ ! ! DOCS/Users_Guide/Appendix/CMAQ_UG_appendixB_emissions_control.md) ! ! and Murphy et al., Geoscientific Model Development, 14, 3407-3420, ! ! https://doi.org/10.5194/gmd-14-3407-2021, 2021. ! !------------------------------------------------------------------------------! !------------------------------------------------------------------------------! ! Emissions Scaling Rule Specification Component ! ! Each rule is presented as a row of inputs. The syntax of the ! ! emissions scaling rules is the following: ! ! EM_INSTR(I) = 'Region Label', 'Stream Label', 'Emission-Species', ! ! 'CMAQ-Species', 'Phase/Mode', 'Scale Factor', 'Basis', ! ! 'Operation' ! ! ! ! See the User's Guide for detailed definitions of each field. ! ! ! ! You may confirm the effect of the (default and custom) rules below by ! ! inspecting the processor-dependent log files ("CTM_LOG_XXX...") ! ! ! ! Note: If no rules are provided for a species, then there is no emission ! ! of that species. ! !------------------------------------------------------------------------------! &Desid_ScalingVars Desid_Max_Rules = 2500 / &Desid_Scaling Desid_Rules_nml = ! Region | Stream Label |Emission | CMAQ- |Phase/|Scale |Basis |Op ! Label | |Surrogate| Species |Mode |Factor| | !> DEFAULT MAPPING Semivolatile POA - apply meat cooking profile by default for sources ! that are not treated with a specific volatility profile (GENERAL_POA family). ! Based on Woody et al., 2016: https://doi.org/10.5194/acp-16-4081-2016 ! O:C Ratio of 0.1 (or lowest available OXY species) based on ! Mohr et al. 2009 https://pubs.acs.org/doi/10.1021/es8011518 'EVERYWHERE', 'GRIDDED_EMIS' ,'PMOCN2' ,'VROCN2OXY2' ,'GAS' ,0. ,'MASS','a', 'EVERYWHERE', 'GRIDDED_EMIS' ,'PMNCOMN2','VROCN2OXY2' ,'GAS' ,0. ,'MASS','a', 'EVERYWHERE', 'GRIDDED_EMIS' ,'PMOCN2' ,'VROCP0OXY2' ,'GAS' ,0.175,'MASS','a', 'EVERYWHERE', 'GRIDDED_EMIS' ,'PMNCOMN2','VROCP0OXY2' ,'GAS' ,0.175,'MASS','a', 'EVERYWHERE', 'GRIDDED_EMIS' ,'PMOCN2' ,'VROCP1OXY1' ,'GAS' ,0.091,'MASS','a', 'EVERYWHERE', 'GRIDDED_EMIS' ,'PMNCOMN2','VROCP1OXY1' ,'GAS' ,0.091,'MASS','a', 'EVERYWHERE', 'GRIDDED_EMIS' ,'PMOCN2' ,'VROCP2OXY2' ,'GAS' ,0.100,'MASS','a', 'EVERYWHERE', 'GRIDDED_EMIS' ,'PMNCOMN2','VROCP2OXY2' ,'GAS' ,0.100,'MASS','a', 'EVERYWHERE', 'GRIDDED_EMIS' ,'PMOCN2' ,'VROCP3OXY2' ,'GAS' ,0.100,'MASS','a', 'EVERYWHERE', 'GRIDDED_EMIS' ,'PMNCOMN2','VROCP3OXY2' ,'GAS' ,0.100,'MASS','a', 'EVERYWHERE', 'GRIDDED_EMIS' ,'PMOCN2' ,'AROCN2OXY2' ,'FINE',0.35 ,'MASS','a', 'EVERYWHERE', 'GRIDDED_EMIS' ,'PMNCOMN2','AROCN2OXY2' ,'FINE',0.35 ,'MASS','a', 'EVERYWHERE', 'GRIDDED_EMIS' ,'PMOCN2','AROCP0OXY2' ,'FINE',0.175,'MASS','a', 'EVERYWHERE', 'GRIDDED_EMIS' ,'PMNCOMN2','AROCP0OXY2' ,'FINE',0.175,'MASS','a', 'EVERYWHERE', 'GRIDDED_EMIS' ,'PMOCN2' ,'AROCP1OXY1' ,'FINE',0.009,'MASS','a', 'EVERYWHERE', 'GRIDDED_EMIS' ,'PMNCOMN2','AROCP1OXY1' ,'FINE',0.009,'MASS','a', 'EVERYWHERE', 'GRIDDED_EMIS' ,'PMOCN2' ,'AROCP2OXY2' ,'FINE',0. ,'MASS','a', 'EVERYWHERE', 'GRIDDED_EMIS' ,'PMNCOMN2','AROCP2OXY2' ,'FINE',0. ,'MASS','a', 'EVERYWHERE', 'GRIDDED_EMIS' ,'PMOCN2' ,'VROCP3OXY2' ,'FINE',0. ,'MASS','a', 'EVERYWHERE', 'GRIDDED_EMIS' ,'PMNCOMN2','VROCP3OXY2' ,'FINE',0. ,'MASS','a', 'EVERYWHERE', 'PT_NONEGU' ,'PMOCN2' ,'VROCN2OXY2' ,'GAS' ,0. ,'MASS','a', 'EVERYWHERE', 'PT_NONEGU' ,'PMNCOMN2','VROCN2OXY2' ,'GAS' ,0. ,'MASS','a', 'EVERYWHERE', 'PT_NONEGU' ,'PMOCN2' ,'VROCP0OXY2' ,'GAS' ,0.175,'MASS','a', 'EVERYWHERE', 'PT_NONEGU' ,'PMNCOMN2','VROCP0OXY2' ,'GAS' ,0.175,'MASS','a', 'EVERYWHERE', 'PT_NONEGU' ,'PMOCN2' ,'VROCP1OXY1' ,'GAS' ,0.091,'MASS','a', 'EVERYWHERE', 'PT_NONEGU' ,'PMNCOMN2','VROCP1OXY1' ,'GAS' ,0.091,'MASS','a', 'EVERYWHERE', 'PT_NONEGU' ,'PMOCN2' ,'VROCP2OXY2' ,'GAS' ,0.100,'MASS','a', 'EVERYWHERE', 'PT_NONEGU' ,'PMNCOMN2','VROCP2OXY2' ,'GAS' ,0.100,'MASS','a', 'EVERYWHERE', 'PT_NONEGU' ,'PMOCN2' ,'VROCP3OXY2' ,'GAS' ,0.100,'MASS','a', 'EVERYWHERE', 'PT_NONEGU' ,'PMNCOMN2','VROCP3OXY2' ,'GAS' ,0.100,'MASS','a', 'EVERYWHERE', 'PT_NONEGU' ,'PMOCN2' ,'AROCN2OXY2' ,'FINE',0.35 ,'MASS','a', 'EVERYWHERE', 'PT_NONEGU' ,'PMNCOMN2','AROCN2OXY2' ,'FINE',0.35 ,'MASS','a', 'EVERYWHERE', 'PT_NONEGU' ,'PMOCN2','AROCP0OXY2' ,'FINE',0.175,'MASS','a', 'EVERYWHERE', 'PT_NONEGU' ,'PMNCOMN2','AROCP0OXY2' ,'FINE',0.175,'MASS','a', 'EVERYWHERE', 'PT_NONEGU' ,'PMOCN2' ,'AROCP1OXY1' ,'FINE',0.009,'MASS','a', 'EVERYWHERE', 'PT_NONEGU' ,'PMNCOMN2','AROCP1OXY1' ,'FINE',0.009,'MASS','a', 'EVERYWHERE', 'PT_NONEGU' ,'PMOCN2' ,'AROCP2OXY2' ,'FINE',0. ,'MASS','a', 'EVERYWHERE', 'PT_NONEGU' ,'PMNCOMN2','AROCP2OXY2' ,'FINE',0. ,'MASS','a', 'EVERYWHERE', 'PT_NONEGU' ,'PMOCN2' ,'VROCP3OXY2' ,'FINE',0. ,'MASS','a', 'EVERYWHERE', 'PT_NONEGU' ,'PMNCOMN2','VROCP3OXY2' ,'FINE',0. ,'MASS','a', 'EVERYWHERE', 'PT_EGU' ,'PMOCN2' ,'VROCN2OXY2' ,'GAS' ,0. ,'MASS','a', 'EVERYWHERE', 'PT_EGU' ,'PMNCOMN2','VROCN2OXY2' ,'GAS' ,0. ,'MASS','a', 'EVERYWHERE', 'PT_EGU' ,'PMOCN2' ,'VROCP0OXY2' ,'GAS' ,0.175,'MASS','a', 'EVERYWHERE', 'PT_EGU' ,'PMNCOMN2','VROCP0OXY2' ,'GAS' ,0.175,'MASS','a', 'EVERYWHERE', 'PT_EGU' ,'PMOCN2' ,'VROCP1OXY1' ,'GAS' ,0.091,'MASS','a', 'EVERYWHERE', 'PT_EGU' ,'PMNCOMN2','VROCP1OXY1' ,'GAS' ,0.091,'MASS','a', 'EVERYWHERE', 'PT_EGU' ,'PMOCN2' ,'VROCP2OXY2' ,'GAS' ,0.100,'MASS','a', 'EVERYWHERE', 'PT_EGU' ,'PMNCOMN2','VROCP2OXY2' ,'GAS' ,0.100,'MASS','a', 'EVERYWHERE', 'PT_EGU' ,'PMOCN2' ,'VROCP3OXY2' ,'GAS' ,0.100,'MASS','a', 'EVERYWHERE', 'PT_EGU' ,'PMNCOMN2','VROCP3OXY2' ,'GAS' ,0.100,'MASS','a', 'EVERYWHERE', 'PT_EGU' ,'PMOCN2' ,'AROCN2OXY2' ,'FINE',0.35 ,'MASS','a', 'EVERYWHERE', 'PT_EGU' ,'PMNCOMN2','AROCN2OXY2' ,'FINE',0.35 ,'MASS','a', 'EVERYWHERE', 'PT_EGU' ,'PMOCN2','AROCP0OXY2' ,'FINE',0.175,'MASS','a', 'EVERYWHERE', 'PT_EGU' ,'PMNCOMN2','AROCP0OXY2' ,'FINE',0.175,'MASS','a', 'EVERYWHERE', 'PT_EGU' ,'PMOCN2' ,'AROCP1OXY1' ,'FINE',0.009,'MASS','a', 'EVERYWHERE', 'PT_EGU' ,'PMNCOMN2','AROCP1OXY1' ,'FINE',0.009,'MASS','a', 'EVERYWHERE', 'PT_EGU' ,'PMOCN2' ,'AROCP2OXY2' ,'FINE',0. ,'MASS','a', 'EVERYWHERE', 'PT_EGU' ,'PMNCOMN2','AROCP2OXY2' ,'FINE',0. ,'MASS','a', 'EVERYWHERE', 'PT_EGU' ,'PMOCN2' ,'VROCP3OXY2' ,'FINE',0. ,'MASS','a', 'EVERYWHERE', 'PT_EGU' ,'PMNCOMN2','VROCP3OXY2' ,'FINE',0. ,'MASS','a', 'EVERYWHERE', 'PT_OTHER' ,'PMOCN2' ,'VROCN2OXY2' ,'GAS' ,0. ,'MASS','a', 'EVERYWHERE', 'PT_OTHER' ,'PMNCOMN2','VROCN2OXY2' ,'GAS' ,0. ,'MASS','a', 'EVERYWHERE', 'PT_OTHER' ,'PMOCN2' ,'VROCP0OXY2' ,'GAS' ,0.175,'MASS','a', 'EVERYWHERE', 'PT_OTHER' ,'PMNCOMN2','VROCP0OXY2' ,'GAS' ,0.175,'MASS','a', 'EVERYWHERE', 'PT_OTHER' ,'PMOCN2' ,'VROCP1OXY1' ,'GAS' ,0.091,'MASS','a', 'EVERYWHERE', 'PT_OTHER' ,'PMNCOMN2','VROCP1OXY1' ,'GAS' ,0.091,'MASS','a', 'EVERYWHERE', 'PT_OTHER' ,'PMOCN2' ,'VROCP2OXY2' ,'GAS' ,0.100,'MASS','a', 'EVERYWHERE', 'PT_OTHER' ,'PMNCOMN2','VROCP2OXY2' ,'GAS' ,0.100,'MASS','a', 'EVERYWHERE', 'PT_OTHER' ,'PMOCN2' ,'VROCP3OXY2' ,'GAS' ,0.100,'MASS','a', 'EVERYWHERE', 'PT_OTHER' ,'PMNCOMN2','VROCP3OXY2' ,'GAS' ,0.100,'MASS','a', 'EVERYWHERE', 'PT_OTHER' ,'PMOCN2' ,'AROCN2OXY2' ,'FINE',0.35 ,'MASS','a', 'EVERYWHERE', 'PT_OTHER' ,'PMNCOMN2','AROCN2OXY2' ,'FINE',0.35 ,'MASS','a', 'EVERYWHERE', 'PT_OTHER' ,'PMOCN2','AROCP0OXY2' ,'FINE',0.175,'MASS','a', 'EVERYWHERE', 'PT_OTHER' ,'PMNCOMN2','AROCP0OXY2' ,'FINE',0.175,'MASS','a', 'EVERYWHERE', 'PT_OTHER' ,'PMOCN2' ,'AROCP1OXY1' ,'FINE',0.009,'MASS','a', 'EVERYWHERE', 'PT_OTHER' ,'PMNCOMN2','AROCP1OXY1' ,'FINE',0.009,'MASS','a', 'EVERYWHERE', 'PT_OTHER' ,'PMOCN2' ,'AROCP2OXY2' ,'FINE',0. ,'MASS','a', 'EVERYWHERE', 'PT_OTHER' ,'PMNCOMN2','AROCP2OXY2' ,'FINE',0. ,'MASS','a', 'EVERYWHERE', 'PT_OTHER' ,'PMOCN2' ,'VROCP3OXY2' ,'FINE',0. ,'MASS','a', 'EVERYWHERE', 'PT_OTHER' ,'PMNCOMN2','VROCP3OXY2' ,'FINE',0. ,'MASS','a', 'EVERYWHERE', 'PT_OILGAS' ,'PMOCN2' ,'VROCN2OXY2' ,'GAS' ,0. ,'MASS','a', 'EVERYWHERE', 'PT_OILGAS' ,'PMNCOMN2','VROCN2OXY2' ,'GAS' ,0. ,'MASS','a', 'EVERYWHERE', 'PT_OILGAS' ,'PMOCN2' ,'VROCP0OXY2' ,'GAS' ,0.175,'MASS','a', 'EVERYWHERE', 'PT_OILGAS' ,'PMNCOMN2','VROCP0OXY2' ,'GAS' ,0.175,'MASS','a', 'EVERYWHERE', 'PT_OILGAS' ,'PMOCN2' ,'VROCP1OXY1' ,'GAS' ,0.091,'MASS','a', 'EVERYWHERE', 'PT_OILGAS' ,'PMNCOMN2','VROCP1OXY1' ,'GAS' ,0.091,'MASS','a', 'EVERYWHERE', 'PT_OILGAS' ,'PMOCN2' ,'VROCP2OXY2' ,'GAS' ,0.100,'MASS','a', 'EVERYWHERE', 'PT_OILGAS' ,'PMNCOMN2','VROCP2OXY2' ,'GAS' ,0.100,'MASS','a', 'EVERYWHERE', 'PT_OILGAS' ,'PMOCN2' ,'VROCP3OXY2' ,'GAS' ,0.100,'MASS','a', 'EVERYWHERE', 'PT_OILGAS' ,'PMNCOMN2','VROCP3OXY2' ,'GAS' ,0.100,'MASS','a', 'EVERYWHERE', 'PT_OILGAS' ,'PMOCN2' ,'AROCN2OXY2' ,'FINE',0.35 ,'MASS','a', 'EVERYWHERE', 'PT_OILGAS' ,'PMNCOMN2','AROCN2OXY2' ,'FINE',0.35 ,'MASS','a', 'EVERYWHERE', 'PT_OILGAS' ,'PMOCN2','AROCP0OXY2' ,'FINE',0.175,'MASS','a', 'EVERYWHERE', 'PT_OILGAS' ,'PMNCOMN2','AROCP0OXY2' ,'FINE',0.175,'MASS','a', 'EVERYWHERE', 'PT_OILGAS' ,'PMOCN2' ,'AROCP1OXY1' ,'FINE',0.009,'MASS','a', 'EVERYWHERE', 'PT_OILGAS' ,'PMNCOMN2','AROCP1OXY1' ,'FINE',0.009,'MASS','a', 'EVERYWHERE', 'PT_OILGAS' ,'PMOCN2' ,'AROCP2OXY2' ,'FINE',0. ,'MASS','a', 'EVERYWHERE', 'PT_OILGAS' ,'PMNCOMN2','AROCP2OXY2' ,'FINE',0. ,'MASS','a', 'EVERYWHERE', 'PT_OILGAS' ,'PMOCN2' ,'VROCP3OXY2' ,'FINE',0. ,'MASS','a', 'EVERYWHERE', 'PT_OILGAS' ,'PMNCOMN2','VROCP3OXY2' ,'FINE',0. ,'MASS','a', ! Diesel Family Volatility Distribution (Mostly Onroad and Offroad Sources and CMV) 'EVERYWHERE', 'PT_CMV_C1C2' ,'PMOCN2' ,'AROCN1ALK' ,'FINE',0.187,'MASS','a', 'EVERYWHERE', 'PT_CMV_C1C2' ,'PMNCOMN2','AROCN1ALK' ,'FINE',0.187,'MASS','a', 'EVERYWHERE', 'PT_CMV_C1C2' ,'PMOCN2' ,'AROCP0ALK' ,'FINE',0.043,'MASS','a', 'EVERYWHERE', 'PT_CMV_C1C2' ,'PMNCOMN2','AROCP0ALK' ,'FINE',0.043,'MASS','a', 'EVERYWHERE', 'PT_CMV_C1C2' ,'PMOCN2' ,'VROCP0ALK' ,'GAS' ,0.043,'MASS','a', 'EVERYWHERE', 'PT_CMV_C1C2' ,'PMNCOMN2','VROCP0ALK' ,'GAS' ,0.043,'MASS','a', 'EVERYWHERE', 'PT_CMV_C1C2' ,'PMOCN2' ,'VROCP1ALK' ,'GAS' ,0.364,'MASS','a', 'EVERYWHERE', 'PT_CMV_C1C2' ,'PMNCOMN2','VROCP1ALK' ,'GAS' ,0.364,'MASS','a', 'EVERYWHERE', 'PT_CMV_C1C2' ,'PMOCN2' ,'VROCP2ALK' ,'GAS' ,0.363,'MASS','a', 'EVERYWHERE', 'PT_CMV_C1C2' ,'PMNCOMN2','VROCP2ALK' ,'GAS' ,0.363,'MASS','a', 'EVERYWHERE', 'PT_CMV_C1C2' ,'PMOCN2' ,'VROCP3ALK' ,'GAS' ,0.0 ,'MASS','a', 'EVERYWHERE', 'PT_CMV_C1C2' ,'PMNCOMN2','VROCP3ALK' ,'GAS' ,0.0 ,'MASS','a', 'EVERYWHERE', 'PT_CMV_C1C2' ,'NMOG' ,'VROCP3ALK' ,'GAS' ,0.0536,'MASS','a', 'EVERYWHERE', 'PT_CMV_C1C2' ,'NMOG' ,'VROCP4ALK' ,'GAS' ,0.1486,'MASS','a', 'EVERYWHERE', 'PT_CMV_C1C2' ,'NMOG' ,'VROCP5ALK' ,'GAS' ,0.1869,'MASS','a', 'EVERYWHERE', 'PT_CMV_C1C2' ,'NMOG' ,'VROCP6ALK' ,'GAS' ,0.1588,'MASS','a', 'EVERYWHERE', 'PT_CMV_C1C2' ,'NMOG' ,'VROCP5ARO' ,'GAS' ,0.0043,'MASS','a', 'EVERYWHERE', 'PT_CMV_C1C2' ,'NMOG' ,'VROCP6ARO' ,'GAS' ,0.0025,'MASS','a', 'EVERYWHERE', 'PT_CMV_C3' ,'PMOCN2' ,'AROCN1ALK' ,'FINE',0.187,'MASS','a', 'EVERYWHERE', 'PT_CMV_C3' ,'PMNCOMN2','AROCN1ALK' ,'FINE',0.187,'MASS','a', 'EVERYWHERE', 'PT_CMV_C3' ,'PMOCN2' ,'AROCP0ALK' ,'FINE',0.043,'MASS','a', 'EVERYWHERE', 'PT_CMV_C3' ,'PMNCOMN2','AROCP0ALK' ,'FINE',0.043,'MASS','a', 'EVERYWHERE', 'PT_CMV_C3' ,'PMOCN2' ,'VROCP0ALK' ,'GAS' ,0.043,'MASS','a', 'EVERYWHERE', 'PT_CMV_C3' ,'PMNCOMN2','VROCP0ALK' ,'GAS' ,0.043,'MASS','a', 'EVERYWHERE', 'PT_CMV_C3' ,'PMOCN2' ,'VROCP1ALK' ,'GAS' ,0.364,'MASS','a', 'EVERYWHERE', 'PT_CMV_C3' ,'PMNCOMN2','VROCP1ALK' ,'GAS' ,0.364,'MASS','a', 'EVERYWHERE', 'PT_CMV_C3' ,'PMOCN2' ,'VROCP2ALK' ,'GAS' ,0.363,'MASS','a', 'EVERYWHERE', 'PT_CMV_C3' ,'PMNCOMN2','VROCP2ALK' ,'GAS' ,0.363,'MASS','a', 'EVERYWHERE', 'PT_CMV_C3' ,'PMOCN2' ,'VROCP3ALK' ,'GAS' ,0.0 ,'MASS','a', 'EVERYWHERE', 'PT_CMV_C3' ,'PMNCOMN2','VROCP3ALK' ,'GAS' ,0.0 ,'MASS','a', 'EVERYWHERE', 'PT_CMV_C3' ,'NMOG' ,'VROCP3ALK' ,'GAS' ,0.0536,'MASS','a', 'EVERYWHERE', 'PT_CMV_C3' ,'NMOG' ,'VROCP4ALK' ,'GAS' ,0.1486,'MASS','a', 'EVERYWHERE', 'PT_CMV_C3' ,'NMOG' ,'VROCP5ALK' ,'GAS' ,0.1869,'MASS','a', 'EVERYWHERE', 'PT_CMV_C3' ,'NMOG' ,'VROCP6ALK' ,'GAS' ,0.1588,'MASS','a', 'EVERYWHERE', 'PT_CMV_C3' ,'NMOG' ,'VROCP5ARO' ,'GAS' ,0.0043,'MASS','a', 'EVERYWHERE', 'PT_CMV_C3' ,'NMOG' ,'VROCP6ARO' ,'GAS' ,0.0025,'MASS','a', ! --> Semivolatile POA - Use Woody et al. 2016 biomass burning for Fires ! O:C ratio of 0.4 (or similar) used based on OM/OC of 1.7 and ! Canagaratna et al. 2015 ACP relationship (OM/OC =1.29*O:C+1.17) 'EVERYWHERE', 'PT_AGFIRES' ,'PMOCN2' ,'VROCN2OXY4' ,'GAS' ,0. ,'MASS','a', 'EVERYWHERE', 'PT_AGFIRES' ,'PMNCOMN2','VROCN2OXY4' ,'GAS' ,0. ,'MASS','a', 'EVERYWHERE', 'PT_AGFIRES' ,'PMOCN2' ,'VROCP0OXY4' ,'GAS' ,0.05 ,'MASS','a', 'EVERYWHERE', 'PT_AGFIRES' ,'PMNCOMN2','VROCP0OXY4' ,'GAS' ,0.05 ,'MASS','a', 'EVERYWHERE', 'PT_AGFIRES' ,'PMOCN2' ,'VROCP1OXY3' ,'GAS' ,0.091,'MASS','a', 'EVERYWHERE', 'PT_AGFIRES' ,'PMNCOMN2','VROCP1OXY3' ,'GAS' ,0.091,'MASS','a', 'EVERYWHERE', 'PT_AGFIRES' ,'PMOCN2' ,'VROCP2OXY2' ,'GAS' ,0.200,'MASS','a', 'EVERYWHERE', 'PT_AGFIRES' ,'PMNCOMN2','VROCP2OXY2' ,'GAS' ,0.200,'MASS','a', 'EVERYWHERE', 'PT_AGFIRES' ,'PMOCN2' ,'VROCP3OXY2' ,'GAS' ,0.400,'MASS','a', 'EVERYWHERE', 'PT_AGFIRES' ,'PMNCOMN2','VROCP3OXY2' ,'GAS' ,0.400,'MASS','a', 'EVERYWHERE', 'PT_AGFIRES' ,'PMOCN2' ,'AROCN2OXY4' ,'FINE',0.20 ,'MASS','a', 'EVERYWHERE', 'PT_AGFIRES' ,'PMNCOMN2','AROCN2OXY4' ,'FINE',0.20 ,'MASS','a', 'EVERYWHERE', 'PT_AGFIRES' ,'PMOCN2','AROCP0OXY4' ,'FINE',0.05 ,'MASS','a', 'EVERYWHERE', 'PT_AGFIRES' ,'PMNCOMN2','AROCP0OXY4' ,'FINE',0.05 ,'MASS','a', 'EVERYWHERE', 'PT_AGFIRES' ,'PMOCN2' ,'AROCP1OXY3' ,'FINE',0.009,'MASS','a', 'EVERYWHERE', 'PT_AGFIRES' ,'PMNCOMN2','AROCP1OXY3' ,'FINE',0.009,'MASS','a', 'EVERYWHERE', 'PT_AGFIRES' ,'PMOCN2' ,'AROCP2OXY2' ,'FINE',0. ,'MASS','a', 'EVERYWHERE', 'PT_AGFIRES' ,'PMNCOMN2','AROCP2OXY2' ,'FINE',0. ,'MASS','a', 'EVERYWHERE', 'PT_AGFIRES' ,'PMOCN2' ,'VROCP3OXY2' ,'FINE',0. ,'MASS','a', 'EVERYWHERE', 'PT_AGFIRES' ,'PMNCOMN2','VROCP3OXY2' ,'FINE',0. ,'MASS','a', 'EVERYWHERE', 'PT_FIRES' ,'PMOCN2' ,'VROCN2OXY4' ,'GAS' ,0. ,'MASS','a', 'EVERYWHERE', 'PT_FIRES' ,'PMNCOMN2','VROCN2OXY4' ,'GAS' ,0. ,'MASS','a', 'EVERYWHERE', 'PT_FIRES' ,'PMOCN2' ,'VROCP0OXY4' ,'GAS' ,0.05 ,'MASS','a', 'EVERYWHERE', 'PT_FIRES' ,'PMNCOMN2','VROCP0OXY4' ,'GAS' ,0.05 ,'MASS','a', 'EVERYWHERE', 'PT_FIRES' ,'PMOCN2' ,'VROCP1OXY3' ,'GAS' ,0.091,'MASS','a', 'EVERYWHERE', 'PT_FIRES' ,'PMNCOMN2','VROCP1OXY3' ,'GAS' ,0.091,'MASS','a', 'EVERYWHERE', 'PT_FIRES' ,'PMOCN2' ,'VROCP2OXY2' ,'GAS' ,0.200,'MASS','a', 'EVERYWHERE', 'PT_FIRES' ,'PMNCOMN2','VROCP2OXY2' ,'GAS' ,0.200,'MASS','a', 'EVERYWHERE', 'PT_FIRES' ,'PMOCN2' ,'VROCP3OXY2' ,'GAS' ,0.400,'MASS','a', 'EVERYWHERE', 'PT_FIRES' ,'PMNCOMN2','VROCP3OXY2' ,'GAS' ,0.400,'MASS','a', 'EVERYWHERE', 'PT_FIRES' ,'PMOCN2' ,'AROCN2OXY4' ,'FINE',0.20 ,'MASS','a', 'EVERYWHERE', 'PT_FIRES' ,'PMNCOMN2','AROCN2OXY4' ,'FINE',0.20 ,'MASS','a', 'EVERYWHERE', 'PT_FIRES' ,'PMOCN2','AROCP0OXY4' ,'FINE',0.05 ,'MASS','a', 'EVERYWHERE', 'PT_FIRES' ,'PMNCOMN2','AROCP0OXY4' ,'FINE',0.05 ,'MASS','a', 'EVERYWHERE', 'PT_FIRES' ,'PMOCN2' ,'AROCP1OXY3' ,'FINE',0.009,'MASS','a', 'EVERYWHERE', 'PT_FIRES' ,'PMNCOMN2','AROCP1OXY3' ,'FINE',0.009,'MASS','a', 'EVERYWHERE', 'PT_FIRES' ,'PMOCN2' ,'AROCP2OXY2' ,'FINE',0. ,'MASS','a', 'EVERYWHERE', 'PT_FIRES' ,'PMNCOMN2','AROCP2OXY2' ,'FINE',0. ,'MASS','a', 'EVERYWHERE', 'PT_FIRES' ,'PMOCN2' ,'VROCP3OXY2' ,'FINE',0. ,'MASS','a', 'EVERYWHERE', 'PT_FIRES' ,'PMNCOMN2','VROCP3OXY2' ,'FINE',0. ,'MASS','a', 'EVERYWHERE', 'PT_RXFIRES' ,'PMOCN2' ,'VROCN2OXY4' ,'GAS' ,0. ,'MASS','a', 'EVERYWHERE', 'PT_RXFIRES' ,'PMNCOMN2','VROCN2OXY4' ,'GAS' ,0. ,'MASS','a', 'EVERYWHERE', 'PT_RXFIRES' ,'PMOCN2' ,'VROCP0OXY4' ,'GAS' ,0.05 ,'MASS','a', 'EVERYWHERE', 'PT_RXFIRES' ,'PMNCOMN2','VROCP0OXY4' ,'GAS' ,0.05 ,'MASS','a', 'EVERYWHERE', 'PT_RXFIRES' ,'PMOCN2' ,'VROCP1OXY3' ,'GAS' ,0.091,'MASS','a', 'EVERYWHERE', 'PT_RXFIRES' ,'PMNCOMN2','VROCP1OXY3' ,'GAS' ,0.091,'MASS','a', 'EVERYWHERE', 'PT_RXFIRES' ,'PMOCN2' ,'VROCP2OXY2' ,'GAS' ,0.200,'MASS','a', 'EVERYWHERE', 'PT_RXFIRES' ,'PMNCOMN2','VROCP2OXY2' ,'GAS' ,0.200,'MASS','a', 'EVERYWHERE', 'PT_RXFIRES' ,'PMOCN2' ,'VROCP3OXY2' ,'GAS' ,0.400,'MASS','a', 'EVERYWHERE', 'PT_RXFIRES' ,'PMNCOMN2','VROCP3OXY2' ,'GAS' ,0.400,'MASS','a', 'EVERYWHERE', 'PT_RXFIRES' ,'PMOCN2' ,'AROCN2OXY4' ,'FINE',0.20 ,'MASS','a', 'EVERYWHERE', 'PT_RXFIRES' ,'PMNCOMN2','AROCN2OXY4' ,'FINE',0.20 ,'MASS','a', 'EVERYWHERE', 'PT_RXFIRES' ,'PMOCN2','AROCP0OXY4' ,'FINE',0.05 ,'MASS','a', 'EVERYWHERE', 'PT_RXFIRES' ,'PMNCOMN2','AROCP0OXY4' ,'FINE',0.05 ,'MASS','a', 'EVERYWHERE', 'PT_RXFIRES' ,'PMOCN2' ,'AROCP1OXY3' ,'FINE',0.009,'MASS','a', 'EVERYWHERE', 'PT_RXFIRES' ,'PMNCOMN2','AROCP1OXY3' ,'FINE',0.009,'MASS','a', 'EVERYWHERE', 'PT_RXFIRES' ,'PMOCN2' ,'AROCP2OXY2' ,'FINE',0. ,'MASS','a', 'EVERYWHERE', 'PT_RXFIRES' ,'PMNCOMN2','AROCP2OXY2' ,'FINE',0. ,'MASS','a', 'EVERYWHERE', 'PT_RXFIRES' ,'PMOCN2' ,'VROCP3OXY2' ,'FINE',0. ,'MASS','a', 'EVERYWHERE', 'PT_RXFIRES' ,'PMNCOMN2','VROCP3OXY2' ,'FINE',0. ,'MASS','a', 'EVERYWHERE', 'PT_OTHFIRES' ,'PMOCN2' ,'VROCN2OXY4' ,'GAS' ,0. ,'MASS','a', 'EVERYWHERE', 'PT_OTHFIRES' ,'PMNCOMN2','VROCN2OXY4' ,'GAS' ,0. ,'MASS','a', 'EVERYWHERE', 'PT_OTHFIRES' ,'PMOCN2' ,'VROCP0OXY4' ,'GAS' ,0.05 ,'MASS','a', 'EVERYWHERE', 'PT_OTHFIRES' ,'PMNCOMN2','VROCP0OXY4' ,'GAS' ,0.05 ,'MASS','a', 'EVERYWHERE', 'PT_OTHFIRES' ,'PMOCN2' ,'VROCP1OXY3' ,'GAS' ,0.091,'MASS','a', 'EVERYWHERE', 'PT_OTHFIRES' ,'PMNCOMN2','VROCP1OXY3' ,'GAS' ,0.091,'MASS','a', 'EVERYWHERE', 'PT_OTHFIRES' ,'PMOCN2' ,'VROCP2OXY2' ,'GAS' ,0.200,'MASS','a', 'EVERYWHERE', 'PT_OTHFIRES' ,'PMNCOMN2','VROCP2OXY2' ,'GAS' ,0.200,'MASS','a', 'EVERYWHERE', 'PT_OTHFIRES' ,'PMOCN2' ,'VROCP3OXY2' ,'GAS' ,0.400,'MASS','a', 'EVERYWHERE', 'PT_OTHFIRES' ,'PMNCOMN2','VROCP3OXY2' ,'GAS' ,0.400,'MASS','a', 'EVERYWHERE', 'PT_OTHFIRES' ,'PMOCN2' ,'AROCN2OXY4' ,'FINE',0.20 ,'MASS','a', 'EVERYWHERE', 'PT_OTHFIRES' ,'PMNCOMN2','AROCN2OXY4' ,'FINE',0.20 ,'MASS','a', 'EVERYWHERE', 'PT_OTHFIRES' ,'PMOCN2','AROCP0OXY4' ,'FINE',0.05 ,'MASS','a', 'EVERYWHERE', 'PT_OTHFIRES' ,'PMNCOMN2','AROCP0OXY4' ,'FINE',0.05 ,'MASS','a', 'EVERYWHERE', 'PT_OTHFIRES' ,'PMOCN2' ,'AROCP1OXY3' ,'FINE',0.009,'MASS','a', 'EVERYWHERE', 'PT_OTHFIRES' ,'PMNCOMN2','AROCP1OXY3' ,'FINE',0.009,'MASS','a', 'EVERYWHERE', 'PT_OTHFIRES' ,'PMOCN2' ,'AROCP2OXY2' ,'FINE',0. ,'MASS','a', 'EVERYWHERE', 'PT_OTHFIRES' ,'PMNCOMN2','AROCP2OXY2' ,'FINE',0. ,'MASS','a', 'EVERYWHERE', 'PT_OTHFIRES' ,'PMOCN2' ,'VROCP3OXY2' ,'FINE',0. ,'MASS','a', 'EVERYWHERE', 'PT_OTHFIRES' ,'PMNCOMN2','VROCP3OXY2' ,'FINE',0. ,'MASS','a', 'EVERYWHERE', 'GR_RES_FIRES' ,'PMOCN2' ,'VROCN2OXY4' ,'GAS' ,0. ,'MASS','a', 'EVERYWHERE', 'GR_RES_FIRES' ,'PMNCOMN2','VROCN2OXY4' ,'GAS' ,0. ,'MASS','a', 'EVERYWHERE', 'GR_RES_FIRES' ,'PMOCN2' ,'VROCP0OXY4' ,'GAS' ,0.05 ,'MASS','a', 'EVERYWHERE', 'GR_RES_FIRES' ,'PMNCOMN2','VROCP0OXY4' ,'GAS' ,0.05 ,'MASS','a', 'EVERYWHERE', 'GR_RES_FIRES' ,'PMOCN2' ,'VROCP1OXY3' ,'GAS' ,0.091,'MASS','a', 'EVERYWHERE', 'GR_RES_FIRES' ,'PMNCOMN2','VROCP1OXY3' ,'GAS' ,0.091,'MASS','a', 'EVERYWHERE', 'GR_RES_FIRES' ,'PMOCN2' ,'VROCP2OXY2' ,'GAS' ,0.200,'MASS','a', 'EVERYWHERE', 'GR_RES_FIRES' ,'PMNCOMN2','VROCP2OXY2' ,'GAS' ,0.200,'MASS','a', 'EVERYWHERE', 'GR_RES_FIRES' ,'PMOCN2' ,'VROCP3OXY2' ,'GAS' ,0.400,'MASS','a', 'EVERYWHERE', 'GR_RES_FIRES' ,'PMNCOMN2','VROCP3OXY2' ,'GAS' ,0.400,'MASS','a', 'EVERYWHERE', 'GR_RES_FIRES' ,'PMOCN2' ,'AROCN2OXY4' ,'FINE',0.20 ,'MASS','a', 'EVERYWHERE', 'GR_RES_FIRES' ,'PMNCOMN2','AROCN2OXY4' ,'FINE',0.20 ,'MASS','a', 'EVERYWHERE', 'GR_RES_FIRES' ,'PMOCN2','AROCP0OXY4' ,'FINE',0.05 ,'MASS','a', 'EVERYWHERE', 'GR_RES_FIRES' ,'PMNCOMN2','AROCP0OXY4' ,'FINE',0.05 ,'MASS','a', 'EVERYWHERE', 'GR_RES_FIRES' ,'PMOCN2' ,'AROCP1OXY3' ,'FINE',0.009,'MASS','a', 'EVERYWHERE', 'GR_RES_FIRES' ,'PMNCOMN2','AROCP1OXY3' ,'FINE',0.009,'MASS','a', 'EVERYWHERE', 'GR_RES_FIRES' ,'PMOCN2' ,'AROCP2OXY2' ,'FINE',0. ,'MASS','a', 'EVERYWHERE', 'GR_RES_FIRES' ,'PMNCOMN2','AROCP2OXY2' ,'FINE',0. ,'MASS','a', 'EVERYWHERE', 'GR_RES_FIRES' ,'PMOCN2' ,'VROCP3OXY2' ,'FINE',0. ,'MASS','a', 'EVERYWHERE', 'GR_RES_FIRES' ,'PMNCOMN2','VROCP3OXY2' ,'FINE',0. ,'MASS','a', ! ! Gasoline-Source Volatility Distribution (Mostly Onroad and Offroad Vehicles) ! 'EVERYWHERE', 'GRIDDED_GASOLINE','PMOCN2' ,'AROCN1ALK' ,'FINE',0.228,'MASS','a', ! 'EVERYWHERE', 'GRIDDED_GASOLINE','PMNCOMN2','AROCN1ALK' ,'FINE',0.228,'MASS','a', ! 'EVERYWHERE', 'GRIDDED_GASOLINE','PMOCN2' ,'AROCP0ALK' ,'FINE',0.054,'MASS','a', ! 'EVERYWHERE', 'GRIDDED_GASOLINE','PMNCOMN2','AROCP0ALK' ,'FINE',0.054,'MASS','a', ! 'EVERYWHERE', 'GRIDDED_GASOLINE','PMOCN2' ,'VROCP0ALK' ,'GAS' ,0.054,'MASS','a', ! 'EVERYWHERE', 'GRIDDED_GASOLINE','PMNCOMN2','VROCP0ALK' ,'GAS' ,0.054,'MASS','a', ! 'EVERYWHERE', 'GRIDDED_GASOLINE','PMOCN2' ,'VROCP1ALK' ,'GAS' ,0.515,'MASS','a', ! 'EVERYWHERE', 'GRIDDED_GASOLINE','PMNCOMN2','VROCP1ALK' ,'GAS' ,0.515,'MASS','a', ! 'EVERYWHERE', 'GRIDDED_GASOLINE','PMOCN2' ,'VROCP2ALK' ,'GAS' ,0.550,'MASS','a', ! 'EVERYWHERE', 'GRIDDED_GASOLINE','PMNCOMN2','VROCP2ALK' ,'GAS' ,0.550,'MASS','a', ! 'EVERYWHERE', 'GRIDDED_GASOLINE','PMOCN2 ' ,'VROCP3ALK' ,'GAS' ,0.0 ,'MASS','a', ! 'EVERYWHERE', 'GRIDDED_GASOLINE','PMNCOMN2','VROCP3ALK' ,'GAS' ,0.0 ,'MASS','a', ! ! 'EVERYWHERE', 'GRIDDED_GASOLINE','NMOG' ,'VROCP3ALK' ,'GAS' ,0.0032,'MASS','a', ! 'EVERYWHERE', 'GRIDDED_GASOLINE','NMOG' ,'VROCP4ALK' ,'GAS' ,0.0034,'MASS','a', ! 'EVERYWHERE', 'GRIDDED_GASOLINE','NMOG' ,'VROCP5ALK' ,'GAS' ,0.0019,'MASS','a', ! 'EVERYWHERE', 'GRIDDED_GASOLINE','NMOG' ,'VROCP6ALK' ,'GAS' ,0.0064,'MASS','a', ! 'EVERYWHERE', 'GRIDDED_GASOLINE','NMOG' ,'VROCP5ARO' ,'GAS' ,0.0060,'MASS','a', ! 'EVERYWHERE', 'GRIDDED_GASOLINE','NMOG' ,'VROCP6ARO' ,'GAS' ,0.0253,'MASS','a', ! ! Aircraft Family Turbine Engine Volatility Distribution ! 'EVERYWHERE', 'AIRCRAFT' ,'PMOCN2' ,'AROCN1ALK' ,'FINE',0.149,'MASS','a', ! 'EVERYWHERE', 'AIRCRAFT' ,'PMNCOMN2','AROCN1ALK' ,'FINE',0.149,'MASS','a', ! 'EVERYWHERE', 'AIRCRAFT' ,'PMOCN2' ,'AROCP0ALK' ,'FINE',0.130,'MASS','a', ! 'EVERYWHERE', 'AIRCRAFT' ,'PMNCOMN2','AROCP0ALK' ,'FINE',0.130,'MASS','a', ! 'EVERYWHERE', 'AIRCRAFT' ,'PMOCN2' ,'VROCP0ALK' ,'GAS' ,0.130,'MASS','a', ! 'EVERYWHERE', 'AIRCRAFT' ,'PMNCOMN2','VROCP0ALK' ,'GAS' ,0.130,'MASS','a', ! 'EVERYWHERE', 'AIRCRAFT' ,'PMOCN2' ,'VROCP1ALK' ,'GAS' ,0.384,'MASS','a', ! 'EVERYWHERE', 'AIRCRAFT' ,'PMNCOMN2','VROCP1ALK' ,'GAS' ,0.384,'MASS','a', ! 'EVERYWHERE', 'AIRCRAFT' ,'PMOCN2' ,'VROCP2ALK' ,'GAS' ,0.208,'MASS','a', ! 'EVERYWHERE', 'AIRCRAFT' ,'PMNCOMN2','VROCP2ALK' ,'GAS' ,0.208,'MASS','a', ! 'EVERYWHERE', 'AIRCRAFT' ,'PMOCN2' ,'VROCP3ALK' ,'GAS' ,0.0 ,'MASS','a', ! 'EVERYWHERE', 'AIRCRAFT' ,'PMNCOMN2','VROCP3ALK' ,'GAS' ,0.0 ,'MASS','a', ! Semivolatile POA from the inventory via SPECIATE and SMOKE. ! These species are not populated with mass for LISTOS, but in the future ! the following species will have mass. Map them for safety. 'EVERYWHERE', 'ALL' ,'POCN2' ,'AROCN2ALK' ,'FINE',1.0,'UNIT','a', 'EVERYWHERE', 'ALL' ,'POCN1' ,'AROCN1ALK' ,'FINE',1.0,'UNIT','a', 'EVERYWHERE', 'ALL' ,'POCP0' ,'AROCP0ALK' ,'FINE',1.0,'UNIT','a', 'EVERYWHERE', 'ALL' ,'POCP1' ,'AROCP1ALK' ,'FINE',1.0,'UNIT','a', 'EVERYWHERE', 'ALL' ,'POCP2' ,'AROCP2ALK' ,'FINE',1.0,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PNCOMN2' ,'AROCN2ALK' ,'FINE',1.0,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PNCOMN1' ,'AROCN1ALK' ,'FINE',1.0,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PNCOMP0' ,'AROCP0ALK' ,'FINE',1.0,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PNCOMP1' ,'AROCP1ALK' ,'FINE',1.0,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PNCOMP2' ,'AROCP2ALK' ,'FINE',1.0,'UNIT','a', ! pcSOA is a CMAQ species introduced to account for missing pathways for SOA ! formation from combustion sources. It includes IVOC oxidation as well as other ! phenomena (Murphy et al., ACP, 2017). It was parameterized primarily in LA, ! where vehicle exhaust continues to dominate. ! pcSOA is deprecated in CRACMM ! Wind-Blown Dust and Sea Spray Scaling ! Fine Components 'EVERYWHERE', 'ALL' ,'PMFINE_SO4' ,'ASO4' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_NO3' ,'ANO3' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_CL' ,'ACL' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_NH4' ,'ANH4' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_NA' ,'ANA' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_CA' ,'ACA' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_MG' ,'AMG' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_K' ,'AK' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_FE' ,'AFE' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_AL' ,'AAL' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_SI' ,'ASI' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_TI' ,'ATI' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_MN' ,'AMN' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_H2O' ,'AH2O' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_OTHR' ,'AOTHR' ,'FINE',1. ,'UNIT','a', ! Wind-Blown Dust and Sea Spray Scaling ! Coarse Components 'EVERYWHERE', 'ALL' ,'PMCOARSE_SO4','ASO4' ,'COARSE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMCOARSE_NO3','ANO3' ,'COARSE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMCOARSE_CL' ,'ACL' ,'COARSE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMCOARSE_H2O','AH2O' ,'COARSE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMCOARSE_SOIL','ASOIL' ,'COARSE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMCOARSE_SEACAT','ASEACAT' ,'COARSE',1. ,'UNIT','a', / ================================================ FILE: CCTM/src/MECHS/cracmm1_aq/CSQY_DATA_cracmm1_aq ================================================ Table for Mechanism = CRACMM1_AQ NPHOTAB = 32 !Individual rates listed below: O3O3P_NASA06 O3O1D_NASA06 H2O2_RACM2 NO2_RACM2 NO3NO_RACM2 NO3NO2_RACM2 HONO_RACM2 HNO3_RACM2 HNO4_RACM2 HCHO_MOL_JPL19 HCHO_RAD_JPL19 CH3CHO_RACM2 ALD_JPL19 CH3COCH3A_JPL19 CH3COCH3B_JPL19 UALD_RACM2 MEK_JGR19 KET_JGR19 HKET_RACM2 MACR_RACM2 MVK_RACM2 GLYH2_RACM2 GLYF_RACM2 GLYHX_RACM2 MGLY_RACM2 BALD_RACM2 OP1_RACM2 PAA_RACM2 ONIT_RACM2 PAN1_RACM2 PAN2_RACM2 ACRO_09 NTEMP = 6 ! I TEMP( I ) K 1 210.00 2 230.00 3 250.00 4 270.00 5 290.00 6 310.00 ! Wavelength and Photolysis Rate Parameters for CMAQ In-Line Photolysis ! calculation . The values are determined by averaging technique over the below ! number of wavelength bins. The technique employs an approach used by the FASTJX ! versions 6 and 7. !References: ! 1) Bian, H. S. and Prather, M. J.: Fast-J2: accurate simulation of stratospheric ! photolysis in global chemical models, J. Atmos. Chem., 41, 281-296 doi:10.1023/A:1014980619462, 2002. ! 2) Hsu, J. and Prather, M. J.: Stratospheric variability and tropospheric ozone, ! J. Geophys. Res., 114, D06102, doi:10.1029/2008JD010942, 2009. ! 3) Prather, M. J.: Fast-JX versions and utilities, available at: ! http://www.ess.uci.edu/researchgrp/prather/scholar_software/fast-jx ! (last accessed: 24 January 2014), 2014. ! Wave bands and Solar Flux ! N_INLINE_BAND = 7 ! I, START_WL_BIN(nm), EFFECT_WL_BIN_(nm), END_WL_BIN_(nm), photon_flux(cm-2*s-1), 1, 291.000, 294.590, 298.300, 5.8828E+14, 2, 298.300, 303.151, 307.500, 7.6354E+14, 3, 307.500, 310.007, 312.500, 5.0412E+14, 4, 312.500, 316.434, 320.300, 8.9628E+14, 5, 320.300, 333.076, 345.000, 3.8537E+15, 6, 345.000, 381.997, 412.500, 1.5457E+16, 7, 412.500, 607.723, 850.000, 2.1307E+17, !... CS = absorption cross sections averaged over UCI Solar Flux !... QY = quantum yields averaged over UCI Solar Flux !... EQY = eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model !PHOTAB QUANTITY TEMP WBIN( 1) WBIN( 2) WBIN( 3) WBIN( 4) WBIN( 5) WBIN( 6) WBIN( 7) O3O3P_NASA06 CS 210.000 7.688467E-19 2.422055E-19 8.920470E-20 3.650450E-20 4.746825E-21 6.139220E-23 1.666851E-21 O3O3P_NASA06 EQY 210.000 1.000000E-01 1.041791E-01 4.952917E-01 8.153871E-01 8.979595E-01 9.291306E-01 1.000000E+00 O3O3P_NASA06 CS 230.000 7.803585E-19 2.474376E-19 9.195177E-20 3.806528E-20 5.075878E-21 6.139220E-23 1.666851E-21 O3O3P_NASA06 EQY 230.000 1.000000E-01 1.041791E-01 4.902279E-01 8.178273E-01 8.979595E-01 9.291306E-01 1.000000E+00 O3O3P_NASA06 CS 250.000 7.995448E-19 2.561579E-19 9.653022E-20 4.066658E-20 5.624299E-21 6.139220E-23 1.666851E-21 O3O3P_NASA06 EQY 250.000 1.000000E-01 1.041791E-01 4.818958E-01 8.188244E-01 8.979595E-01 9.291306E-01 1.000000E+00 O3O3P_NASA06 CS 270.000 8.187311E-19 2.648782E-19 1.011087E-19 4.326788E-20 6.172721E-21 6.139220E-23 1.666851E-21 O3O3P_NASA06 EQY 270.000 1.000000E-01 1.041791E-01 4.677566E-01 8.131744E-01 8.979595E-01 9.291306E-01 1.000000E+00 O3O3P_NASA06 CS 290.000 8.379175E-19 2.735984E-19 1.056871E-19 4.586918E-20 6.721143E-21 6.139220E-23 1.666851E-21 O3O3P_NASA06 EQY 290.000 1.000000E-01 1.041791E-01 4.431264E-01 7.889175E-01 8.979595E-01 9.291306E-01 1.000000E+00 O3O3P_NASA06 CS 310.000 8.407954E-19 2.749065E-19 1.063739E-19 4.625938E-20 6.803406E-21 6.139220E-23 1.666851E-21 O3O3P_NASA06 EQY 310.000 1.000000E-01 1.041791E-01 3.989815E-01 7.203341E-01 8.979595E-01 9.291306E-01 1.000000E+00 O3O1D_NASA06 CS 210.000 7.808049E-19 2.423500E-19 8.920470E-20 3.650450E-20 4.604240E-21 5.459842E-23 0.000000E+00 O3O1D_NASA06 EQY 210.000 9.000000E-01 8.958209E-01 5.047083E-01 1.846129E-01 1.020405E-01 7.086939E-02 0.000000E+00 O3O1D_NASA06 CS 230.000 7.924958E-19 2.475853E-19 9.195177E-20 3.806528E-20 4.923409E-21 5.459842E-23 0.000000E+00 O3O1D_NASA06 EQY 230.000 9.000000E-01 8.958209E-01 5.097721E-01 1.821727E-01 1.020405E-01 7.086939E-02 0.000000E+00 O3O1D_NASA06 CS 250.000 8.119805E-19 2.563108E-19 9.653022E-20 4.066658E-20 5.455358E-21 5.459842E-23 0.000000E+00 O3O1D_NASA06 EQY 250.000 9.000000E-01 8.958209E-01 5.181042E-01 1.811756E-01 1.020405E-01 7.086939E-02 0.000000E+00 O3O1D_NASA06 CS 270.000 8.314653E-19 2.650363E-19 1.011087E-19 4.326788E-20 5.987306E-21 5.459842E-23 0.000000E+00 O3O1D_NASA06 EQY 270.000 9.000000E-01 8.958209E-01 5.322434E-01 1.868256E-01 1.020405E-01 7.086939E-02 0.000000E+00 O3O1D_NASA06 CS 290.000 8.509500E-19 2.737617E-19 1.056871E-19 4.586918E-20 6.519254E-21 5.459842E-23 0.000000E+00 O3O1D_NASA06 EQY 290.000 9.000000E-01 8.958209E-01 5.568736E-01 2.110825E-01 1.020405E-01 7.086939E-02 0.000000E+00 O3O1D_NASA06 CS 310.000 8.538727E-19 2.750705E-19 1.063739E-19 4.625938E-20 6.599046E-21 5.459842E-23 0.000000E+00 O3O1D_NASA06 EQY 310.000 9.000000E-01 8.958209E-01 6.010185E-01 2.796659E-01 1.020405E-01 7.086939E-02 0.000000E+00 H2O2_RACM2 CS 210.000 8.527608E-21 5.100901E-21 3.367998E-21 2.275936E-21 8.877982E-22 3.606306E-23 0.000000E+00 H2O2_RACM2 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 H2O2_RACM2 CS 230.000 8.650794E-21 5.196512E-21 3.446407E-21 2.339455E-21 9.231624E-22 3.606306E-23 0.000000E+00 H2O2_RACM2 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 H2O2_RACM2 CS 250.000 8.817123E-21 5.325610E-21 3.552278E-21 2.425221E-21 9.709122E-22 3.606306E-23 0.000000E+00 H2O2_RACM2 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 H2O2_RACM2 CS 270.000 9.028511E-21 5.489680E-21 3.686830E-21 2.534221E-21 1.031598E-21 3.606306E-23 0.000000E+00 H2O2_RACM2 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 H2O2_RACM2 CS 290.000 9.284830E-21 5.688624E-21 3.849979E-21 2.666389E-21 1.105182E-21 3.606306E-23 0.000000E+00 H2O2_RACM2 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 H2O2_RACM2 CS 310.000 9.584270E-21 5.921037E-21 4.040577E-21 2.820792E-21 1.191145E-21 3.606306E-23 0.000000E+00 H2O2_RACM2 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 NO2_RACM2 CS 210.000 1.058805E-19 1.460434E-19 1.905840E-19 2.362586E-19 3.715161E-19 5.867486E-19 1.088657E-19 NO2_RACM2 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 7.961922E-01 2.423882E-03 NO2_RACM2 CS 230.000 1.060328E-19 1.459734E-19 1.901860E-19 2.350003E-19 3.679235E-19 5.852241E-19 1.085850E-19 NO2_RACM2 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 7.961922E-01 2.423882E-03 NO2_RACM2 CS 250.000 1.063375E-19 1.458335E-19 1.893902E-19 2.324836E-19 3.607383E-19 5.821752E-19 1.080235E-19 NO2_RACM2 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 7.969987E-01 2.507727E-03 NO2_RACM2 CS 270.000 1.066422E-19 1.456936E-19 1.885943E-19 2.299669E-19 3.535530E-19 5.791262E-19 1.074620E-19 NO2_RACM2 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 8.050633E-01 3.346181E-03 NO2_RACM2 CS 290.000 1.069468E-19 1.455536E-19 1.877985E-19 2.274503E-19 3.463678E-19 5.760772E-19 1.069005E-19 NO2_RACM2 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 8.131279E-01 4.184634E-03 NO2_RACM2 CS 310.000 1.070078E-19 1.455256E-19 1.876393E-19 2.269469E-19 3.449308E-19 5.754674E-19 1.067882E-19 NO2_RACM2 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 8.163537E-01 4.520015E-03 NO3NO_RACM2 CS 210.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 5.348470E-21 1.872219E-18 NO3NO_RACM2 EQY 210.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 6.767835E-02 NO3NO_RACM2 CS 230.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 5.075907E-21 1.776809E-18 NO3NO_RACM2 EQY 230.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 6.699507E-02 NO3NO_RACM2 CS 250.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 4.791067E-21 1.677102E-18 NO3NO_RACM2 EQY 250.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 6.679738E-02 NO3NO_RACM2 CS 270.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 4.498338E-21 1.574633E-18 NO3NO_RACM2 EQY 270.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 6.659967E-02 NO3NO_RACM2 CS 290.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 4.201227E-21 1.470630E-18 NO3NO_RACM2 EQY 290.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 6.640198E-02 NO3NO_RACM2 CS 310.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 3.902507E-21 1.366063E-18 NO3NO_RACM2 EQY 310.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 6.632289E-02 NO3NO2_RACM2 CS 210.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 5.348470E-21 1.872219E-18 NO3NO2_RACM2 EQY 210.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.000000E+00 5.038201E-01 NO3NO2_RACM2 CS 230.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 5.075907E-21 1.776809E-18 NO3NO2_RACM2 EQY 230.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.000000E+00 5.129623E-01 NO3NO2_RACM2 CS 250.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 4.791067E-21 1.677102E-18 NO3NO2_RACM2 EQY 250.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.000000E+00 5.207280E-01 NO3NO2_RACM2 CS 270.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 4.498338E-21 1.574633E-18 NO3NO2_RACM2 EQY 270.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.000000E+00 5.284936E-01 NO3NO2_RACM2 CS 290.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 4.201227E-21 1.470630E-18 NO3NO2_RACM2 EQY 290.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.000000E+00 5.362592E-01 NO3NO2_RACM2 CS 310.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 3.902507E-21 1.366063E-18 NO3NO2_RACM2 EQY 310.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.000000E+00 5.393655E-01 HONO_RACM2 CS 210.000 5.628977E-21 9.694364E-21 1.881716E-20 2.969466E-20 7.453932E-20 6.563367E-20 0.000000E+00 HONO_RACM2 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HONO_RACM2 CS 230.000 5.628977E-21 9.694364E-21 1.881716E-20 2.969466E-20 7.453932E-20 6.563367E-20 0.000000E+00 HONO_RACM2 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HONO_RACM2 CS 250.000 5.628977E-21 9.694364E-21 1.881716E-20 2.969466E-20 7.453932E-20 6.563367E-20 0.000000E+00 HONO_RACM2 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HONO_RACM2 CS 270.000 5.628977E-21 9.694364E-21 1.881716E-20 2.969466E-20 7.453932E-20 6.563367E-20 0.000000E+00 HONO_RACM2 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HONO_RACM2 CS 290.000 5.628977E-21 9.694364E-21 1.881716E-20 2.969466E-20 7.453932E-20 6.563367E-20 0.000000E+00 HONO_RACM2 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HONO_RACM2 CS 310.000 5.628977E-21 9.694364E-21 1.881716E-20 2.969466E-20 7.453932E-20 6.563367E-20 0.000000E+00 HONO_RACM2 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HNO3_RACM2 CS 210.000 3.477740E-21 1.421362E-21 5.692533E-22 2.194328E-22 2.062589E-23 3.797806E-25 0.000000E+00 HNO3_RACM2 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HNO3_RACM2 CS 230.000 3.663356E-21 1.522325E-21 6.201572E-22 2.451096E-22 2.494077E-23 3.837348E-25 0.000000E+00 HNO3_RACM2 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HNO3_RACM2 CS 250.000 3.858879E-21 1.630460E-21 6.756130E-22 2.737909E-22 3.015831E-23 3.877301E-25 0.000000E+00 HNO3_RACM2 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HNO3_RACM2 CS 270.000 4.064837E-21 1.746275E-21 7.360279E-22 3.058283E-22 3.646735E-23 3.917671E-25 0.000000E+00 HNO3_RACM2 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HNO3_RACM2 CS 290.000 4.281789E-21 1.870318E-21 8.018451E-22 3.416145E-22 4.409623E-23 3.958460E-25 0.000000E+00 HNO3_RACM2 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HNO3_RACM2 CS 310.000 4.510320E-21 2.003171E-21 8.735479E-22 3.815883E-22 5.332105E-23 3.999674E-25 0.000000E+00 HNO3_RACM2 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HNO4_RACM2 CS 210.000 2.329949E-20 9.144530E-21 3.983048E-21 1.967534E-21 3.976035E-22 3.285247E-24 0.000000E+00 HNO4_RACM2 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HNO4_RACM2 CS 230.000 2.378244E-20 9.477436E-21 4.200296E-21 2.110804E-21 4.511061E-22 4.554065E-24 0.000000E+00 HNO4_RACM2 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HNO4_RACM2 CS 250.000 2.447801E-20 9.956912E-21 4.513192E-21 2.317151E-21 5.281641E-22 6.381496E-24 0.000000E+00 HNO4_RACM2 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HNO4_RACM2 CS 270.000 2.541218E-20 1.060086E-20 4.933421E-21 2.594282E-21 6.316551E-22 8.835790E-24 0.000000E+00 HNO4_RACM2 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HNO4_RACM2 CS 290.000 2.660059E-20 1.142006E-20 5.468013E-21 2.946832E-21 7.633113E-22 1.195802E-23 0.000000E+00 HNO4_RACM2 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HNO4_RACM2 CS 310.000 2.804907E-20 1.241853E-20 6.119599E-21 3.376538E-21 9.237795E-22 1.576353E-23 0.000000E+00 HNO4_RACM2 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HCHO_MOL_JPL19 CS 210.000 3.436202E-20 3.561495E-20 1.661439E-20 3.505164E-20 1.949427E-20 8.453695E-22 0.000000E+00 HCHO_MOL_JPL19 EQY 210.000 2.573368E-01 2.406493E-01 2.610733E-01 3.312798E-01 6.395736E-01 3.544923E-01 0.000000E+00 HCHO_MOL_JPL19 CS 230.000 3.432947E-20 3.561257E-20 1.660507E-20 3.507666E-20 1.950541E-20 8.448212E-22 0.000000E+00 HCHO_MOL_JPL19 EQY 230.000 2.573368E-01 2.406493E-01 2.610733E-01 3.312798E-01 6.347457E-01 3.406936E-01 0.000000E+00 HCHO_MOL_JPL19 CS 250.000 3.429692E-20 3.561019E-20 1.659575E-20 3.510169E-20 1.951654E-20 8.442728E-22 0.000000E+00 HCHO_MOL_JPL19 EQY 250.000 2.573368E-01 2.406493E-01 2.610733E-01 3.312798E-01 6.247651E-01 3.155994E-01 0.000000E+00 HCHO_MOL_JPL19 CS 270.000 3.426437E-20 3.560782E-20 1.658643E-20 3.512672E-20 1.952767E-20 8.437245E-22 0.000000E+00 HCHO_MOL_JPL19 EQY 270.000 2.573368E-01 2.406493E-01 2.610733E-01 3.312798E-01 6.145213E-01 2.936854E-01 0.000000E+00 HCHO_MOL_JPL19 CS 290.000 3.423181E-20 3.560544E-20 1.657710E-20 3.515175E-20 1.953881E-20 8.431761E-22 0.000000E+00 HCHO_MOL_JPL19 EQY 290.000 2.573368E-01 2.406493E-01 2.610733E-01 3.312798E-01 6.040692E-01 2.744425E-01 0.000000E+00 HCHO_MOL_JPL19 CS 310.000 3.421553E-20 3.560425E-20 1.657244E-20 3.516426E-20 1.954437E-20 8.429019E-22 0.000000E+00 HCHO_MOL_JPL19 EQY 310.000 2.573368E-01 2.406493E-01 2.610733E-01 3.312798E-01 5.987564E-01 2.656473E-01 0.000000E+00 HCHO_RAD_JPL19 CS 210.000 3.436202E-20 3.561495E-20 1.661439E-20 3.505164E-20 1.949427E-20 8.453695E-22 0.000000E+00 HCHO_RAD_JPL19 EQY 210.000 7.308307E-01 7.593507E-01 7.389267E-01 6.687202E-01 2.626862E-01 0.000000E+00 0.000000E+00 HCHO_RAD_JPL19 CS 230.000 3.432947E-20 3.561257E-20 1.660507E-20 3.507666E-20 1.950541E-20 8.448212E-22 0.000000E+00 HCHO_RAD_JPL19 EQY 230.000 7.308307E-01 7.593507E-01 7.389267E-01 6.687202E-01 2.626862E-01 0.000000E+00 0.000000E+00 HCHO_RAD_JPL19 CS 250.000 3.429692E-20 3.561019E-20 1.659575E-20 3.510169E-20 1.951654E-20 8.442728E-22 0.000000E+00 HCHO_RAD_JPL19 EQY 250.000 7.308307E-01 7.593507E-01 7.389267E-01 6.687202E-01 2.626862E-01 0.000000E+00 0.000000E+00 HCHO_RAD_JPL19 CS 270.000 3.426437E-20 3.560782E-20 1.658643E-20 3.512672E-20 1.952767E-20 8.437245E-22 0.000000E+00 HCHO_RAD_JPL19 EQY 270.000 7.308307E-01 7.593507E-01 7.389267E-01 6.687202E-01 2.626862E-01 0.000000E+00 0.000000E+00 HCHO_RAD_JPL19 CS 290.000 3.423181E-20 3.560544E-20 1.657710E-20 3.515175E-20 1.953881E-20 8.431761E-22 0.000000E+00 HCHO_RAD_JPL19 EQY 290.000 7.308307E-01 7.593507E-01 7.389267E-01 6.687202E-01 2.626862E-01 0.000000E+00 0.000000E+00 HCHO_RAD_JPL19 CS 310.000 3.421553E-20 3.560425E-20 1.657244E-20 3.516426E-20 1.954437E-20 8.429019E-22 0.000000E+00 HCHO_RAD_JPL19 EQY 310.000 7.308307E-01 7.593507E-01 7.389267E-01 6.687202E-01 2.626862E-01 0.000000E+00 0.000000E+00 CH3CHO_RACM2 CS 210.000 4.432880E-20 3.689178E-20 2.913527E-20 2.067145E-20 5.819010E-21 1.448852E-23 0.000000E+00 CH3CHO_RACM2 EQY 210.000 4.909960E-01 3.900005E-01 2.794830E-01 1.560880E-01 3.457768E-02 0.000000E+00 0.000000E+00 CH3CHO_RACM2 CS 230.000 4.432880E-20 3.689178E-20 2.913527E-20 2.067145E-20 5.819010E-21 1.448852E-23 0.000000E+00 CH3CHO_RACM2 EQY 230.000 4.909960E-01 3.900005E-01 2.794830E-01 1.560880E-01 3.457768E-02 0.000000E+00 0.000000E+00 CH3CHO_RACM2 CS 250.000 4.432880E-20 3.689178E-20 2.913527E-20 2.067145E-20 5.819010E-21 1.448852E-23 0.000000E+00 CH3CHO_RACM2 EQY 250.000 4.909960E-01 3.900005E-01 2.794830E-01 1.560880E-01 3.457768E-02 0.000000E+00 0.000000E+00 CH3CHO_RACM2 CS 270.000 4.432880E-20 3.689178E-20 2.913527E-20 2.067145E-20 5.819010E-21 1.448852E-23 0.000000E+00 CH3CHO_RACM2 EQY 270.000 4.909960E-01 3.900005E-01 2.794830E-01 1.560880E-01 3.457768E-02 0.000000E+00 0.000000E+00 CH3CHO_RACM2 CS 290.000 4.432880E-20 3.689178E-20 2.913527E-20 2.067145E-20 5.819010E-21 1.448852E-23 0.000000E+00 CH3CHO_RACM2 EQY 290.000 4.909960E-01 3.900005E-01 2.794830E-01 1.560880E-01 3.457768E-02 0.000000E+00 0.000000E+00 CH3CHO_RACM2 CS 310.000 4.432880E-20 3.689178E-20 2.913527E-20 2.067145E-20 5.819010E-21 1.448852E-23 0.000000E+00 CH3CHO_RACM2 EQY 310.000 4.909960E-01 3.900005E-01 2.794830E-01 1.560880E-01 3.457768E-02 0.000000E+00 0.000000E+00 ALD_JPL19 CS 210.000 5.545019E-20 4.634689E-20 3.579653E-20 2.441742E-20 5.836673E-21 1.243216E-23 0.000000E+00 ALD_JPL19 EQY 210.000 7.650582E-01 4.959521E-01 3.110854E-01 1.880053E-01 5.620141E-02 3.880543E-04 0.000000E+00 ALD_JPL19 CS 230.000 5.545019E-20 4.634689E-20 3.579653E-20 2.441742E-20 5.836673E-21 1.243216E-23 0.000000E+00 ALD_JPL19 EQY 230.000 7.650582E-01 4.959521E-01 3.110854E-01 1.880053E-01 5.620141E-02 3.880543E-04 0.000000E+00 ALD_JPL19 CS 250.000 5.545019E-20 4.634689E-20 3.579653E-20 2.441742E-20 5.836673E-21 1.243216E-23 0.000000E+00 ALD_JPL19 EQY 250.000 7.650582E-01 4.959521E-01 3.110854E-01 1.880053E-01 5.620141E-02 3.880543E-04 0.000000E+00 ALD_JPL19 CS 270.000 5.545019E-20 4.634689E-20 3.579653E-20 2.441742E-20 5.836673E-21 1.243216E-23 0.000000E+00 ALD_JPL19 EQY 270.000 7.650582E-01 4.959521E-01 3.110854E-01 1.880053E-01 5.620141E-02 3.880543E-04 0.000000E+00 ALD_JPL19 CS 290.000 5.545019E-20 4.634689E-20 3.579653E-20 2.441742E-20 5.836673E-21 1.243216E-23 0.000000E+00 ALD_JPL19 EQY 290.000 7.650582E-01 4.959521E-01 3.110854E-01 1.880053E-01 5.620141E-02 3.880543E-04 0.000000E+00 ALD_JPL19 CS 310.000 5.545019E-20 4.634689E-20 3.579653E-20 2.441742E-20 5.836673E-21 1.243216E-23 0.000000E+00 ALD_JPL19 EQY 310.000 7.650582E-01 4.959521E-01 3.110854E-01 1.880053E-01 5.620141E-02 3.880543E-04 0.000000E+00 CH3COCH3A_JPL19 CS 210.000 3.093982E-20 1.932871E-20 1.074082E-20 5.401566E-21 3.042770E-22 0.000000E+00 0.000000E+00 CH3COCH3A_JPL19 EQY 210.000 3.050471E-01 8.750076E-02 1.202798E-02 1.958962E-03 1.000649E-04 0.000000E+00 0.000000E+00 CH3COCH3A_JPL19 CS 230.000 3.149499E-20 2.006286E-20 1.149978E-20 5.882838E-21 3.324875E-22 0.000000E+00 0.000000E+00 CH3COCH3A_JPL19 EQY 230.000 2.787375E-01 9.397311E-02 1.661723E-02 3.420933E-03 2.896750E-04 0.000000E+00 0.000000E+00 CH3COCH3A_JPL19 CS 250.000 3.221698E-20 2.085074E-20 1.224359E-20 6.367100E-21 3.824558E-22 0.000000E+00 0.000000E+00 CH3COCH3A_JPL19 EQY 250.000 2.691839E-01 1.077206E-01 2.349230E-02 5.851198E-03 7.538323E-04 0.000000E+00 0.000000E+00 CH3COCH3A_JPL19 CS 270.000 3.310749E-20 2.165984E-20 1.292394E-20 6.826211E-21 4.569583E-22 0.000000E+00 0.000000E+00 CH3COCH3A_JPL19 EQY 270.000 2.670556E-01 1.277864E-01 3.342436E-02 9.777799E-03 1.796207E-03 0.000000E+00 0.000000E+00 CH3COCH3A_JPL19 CS 290.000 3.416823E-20 2.245764E-20 1.349254E-20 7.232033E-21 5.587719E-22 0.000000E+00 0.000000E+00 CH3COCH3A_JPL19 EQY 290.000 2.665285E-01 1.530424E-01 4.715588E-02 1.588624E-02 3.968139E-03 0.000000E+00 0.000000E+00 CH3COCH3A_JPL19 CS 310.000 3.540091E-20 2.321163E-20 1.390108E-20 7.556429E-21 6.906736E-22 0.000000E+00 0.000000E+00 CH3COCH3A_JPL19 EQY 310.000 2.639931E-01 1.814900E-01 6.511231E-02 2.493997E-02 8.189921E-03 0.000000E+00 0.000000E+00 CH3COCH3B_JPL19 CS 210.000 3.093982E-20 1.932871E-20 1.074082E-20 5.401566E-21 3.042770E-22 0.000000E+00 0.000000E+00 CH3COCH3B_JPL19 EQY 210.000 3.229218E-04 7.721466E-05 2.367151E-05 8.249256E-06 9.221447E-07 0.000000E+00 0.000000E+00 CH3COCH3B_JPL19 CS 230.000 3.149499E-20 2.006286E-20 1.149978E-20 5.882838E-21 3.324875E-22 0.000000E+00 0.000000E+00 CH3COCH3B_JPL19 EQY 230.000 2.173083E-03 7.072018E-04 2.773263E-04 1.217087E-04 2.470983E-05 0.000000E+00 0.000000E+00 CH3COCH3B_JPL19 CS 250.000 3.221698E-20 2.085074E-20 1.224359E-20 6.367100E-21 3.824558E-22 0.000000E+00 0.000000E+00 CH3COCH3B_JPL19 EQY 250.000 8.847268E-03 3.614042E-03 1.697250E-03 8.814140E-04 2.763485E-04 0.000000E+00 0.000000E+00 CH3COCH3B_JPL19 CS 270.000 3.310749E-20 2.165984E-20 1.292394E-20 6.826211E-21 4.569583E-22 0.000000E+00 0.000000E+00 CH3COCH3B_JPL19 EQY 270.000 2.542563E-02 1.237548E-02 6.667331E-03 3.932365E-03 1.708441E-03 0.000000E+00 0.000000E+00 CH3COCH3B_JPL19 CS 290.000 3.416823E-20 2.245764E-20 1.349254E-20 7.232033E-21 5.587719E-22 0.000000E+00 0.000000E+00 CH3COCH3B_JPL19 EQY 290.000 5.670215E-02 3.177502E-02 1.909137E-02 1.244460E-02 6.963594E-03 0.000000E+00 0.000000E+00 CH3COCH3B_JPL19 CS 310.000 3.540091E-20 2.321163E-20 1.390108E-20 7.556429E-21 6.906736E-22 0.000000E+00 0.000000E+00 CH3COCH3B_JPL19 EQY 310.000 1.044077E-01 6.573535E-02 4.320569E-02 3.056103E-02 2.096195E-02 0.000000E+00 0.000000E+00 UALD_RACM2 CS 210.000 2.726167E-20 3.900286E-20 4.799106E-20 5.560386E-20 5.993363E-20 1.199965E-20 0.000000E+00 UALD_RACM2 EQY 210.000 3.000000E-02 3.000000E-02 3.000000E-02 3.000000E-02 3.000000E-02 3.000000E-02 0.000000E+00 UALD_RACM2 CS 230.000 2.726167E-20 3.900286E-20 4.799106E-20 5.560386E-20 5.993363E-20 1.199965E-20 0.000000E+00 UALD_RACM2 EQY 230.000 3.000000E-02 3.000000E-02 3.000000E-02 3.000000E-02 3.000000E-02 3.000000E-02 0.000000E+00 UALD_RACM2 CS 250.000 2.726167E-20 3.900286E-20 4.799106E-20 5.560386E-20 5.993363E-20 1.199965E-20 0.000000E+00 UALD_RACM2 EQY 250.000 3.000000E-02 3.000000E-02 3.000000E-02 3.000000E-02 3.000000E-02 3.000000E-02 0.000000E+00 UALD_RACM2 CS 270.000 2.726167E-20 3.900286E-20 4.799106E-20 5.560386E-20 5.993363E-20 1.199965E-20 0.000000E+00 UALD_RACM2 EQY 270.000 3.000000E-02 3.000000E-02 3.000000E-02 3.000000E-02 3.000000E-02 3.000000E-02 0.000000E+00 UALD_RACM2 CS 290.000 2.726167E-20 3.900286E-20 4.799106E-20 5.560386E-20 5.993363E-20 1.199965E-20 0.000000E+00 UALD_RACM2 EQY 290.000 3.000000E-02 3.000000E-02 3.000000E-02 3.000000E-02 3.000000E-02 3.000000E-02 0.000000E+00 UALD_RACM2 CS 310.000 2.726167E-20 3.900286E-20 4.799106E-20 5.560386E-20 5.993363E-20 1.199965E-20 0.000000E+00 UALD_RACM2 EQY 310.000 3.000000E-02 3.000000E-02 3.000000E-02 3.000000E-02 3.000000E-02 3.000000E-02 0.000000E+00 MEK_JGR19 CS 210.000 4.136901E-20 2.660165E-20 1.555986E-20 7.628035E-21 7.691484E-22 0.000000E+00 0.000000E+00 MEK_JGR19 EQY 210.000 3.400000E-01 3.400000E-01 3.400000E-01 3.400000E-01 3.400000E-01 0.000000E+00 0.000000E+00 MEK_JGR19 CS 230.000 4.136901E-20 2.660165E-20 1.555986E-20 7.628035E-21 7.691484E-22 0.000000E+00 0.000000E+00 MEK_JGR19 EQY 230.000 3.400000E-01 3.400000E-01 3.400000E-01 3.400000E-01 3.400000E-01 0.000000E+00 0.000000E+00 MEK_JGR19 CS 250.000 4.136901E-20 2.660165E-20 1.555986E-20 7.628035E-21 7.691484E-22 0.000000E+00 0.000000E+00 MEK_JGR19 EQY 250.000 3.400000E-01 3.400000E-01 3.400000E-01 3.400000E-01 3.400000E-01 0.000000E+00 0.000000E+00 MEK_JGR19 CS 270.000 4.136901E-20 2.660165E-20 1.555986E-20 7.628035E-21 7.691484E-22 0.000000E+00 0.000000E+00 MEK_JGR19 EQY 270.000 3.400000E-01 3.400000E-01 3.400000E-01 3.400000E-01 3.400000E-01 0.000000E+00 0.000000E+00 MEK_JGR19 CS 290.000 4.136901E-20 2.660165E-20 1.555986E-20 7.628035E-21 7.691484E-22 0.000000E+00 0.000000E+00 MEK_JGR19 EQY 290.000 3.400000E-01 3.400000E-01 3.400000E-01 3.400000E-01 3.400000E-01 0.000000E+00 0.000000E+00 MEK_JGR19 CS 310.000 4.136901E-20 2.660165E-20 1.555986E-20 7.628035E-21 7.691484E-22 0.000000E+00 0.000000E+00 MEK_JGR19 EQY 310.000 3.400000E-01 3.400000E-01 3.400000E-01 3.400000E-01 3.400000E-01 0.000000E+00 0.000000E+00 KET_JGR19 CS 210.000 4.752487E-20 3.017679E-20 1.668608E-20 8.110916E-21 7.302181E-22 0.000000E+00 0.000000E+00 KET_JGR19 EQY 210.000 3.400000E-01 3.400000E-01 3.400000E-01 3.400000E-01 3.400000E-01 0.000000E+00 0.000000E+00 KET_JGR19 CS 230.000 4.752487E-20 3.017679E-20 1.668608E-20 8.110916E-21 7.302181E-22 0.000000E+00 0.000000E+00 KET_JGR19 EQY 230.000 3.400000E-01 3.400000E-01 3.400000E-01 3.400000E-01 3.400000E-01 0.000000E+00 0.000000E+00 KET_JGR19 CS 250.000 4.752487E-20 3.017679E-20 1.668608E-20 8.110916E-21 7.302181E-22 0.000000E+00 0.000000E+00 KET_JGR19 EQY 250.000 3.400000E-01 3.400000E-01 3.400000E-01 3.400000E-01 3.400000E-01 0.000000E+00 0.000000E+00 KET_JGR19 CS 270.000 4.752487E-20 3.017679E-20 1.668608E-20 8.110916E-21 7.302181E-22 0.000000E+00 0.000000E+00 KET_JGR19 EQY 270.000 3.400000E-01 3.400000E-01 3.400000E-01 3.400000E-01 3.400000E-01 0.000000E+00 0.000000E+00 KET_JGR19 CS 290.000 4.752487E-20 3.017679E-20 1.668608E-20 8.110916E-21 7.302181E-22 0.000000E+00 0.000000E+00 KET_JGR19 EQY 290.000 3.400000E-01 3.400000E-01 3.400000E-01 3.400000E-01 3.400000E-01 0.000000E+00 0.000000E+00 KET_JGR19 CS 310.000 4.752487E-20 3.017679E-20 1.668608E-20 8.110916E-21 7.302181E-22 0.000000E+00 0.000000E+00 KET_JGR19 EQY 310.000 3.400000E-01 3.400000E-01 3.400000E-01 3.400000E-01 3.400000E-01 0.000000E+00 0.000000E+00 HKET_RACM2 CS 210.000 1.992923E-20 7.535076E-21 2.932970E-21 1.413067E-21 3.523287E-22 0.000000E+00 0.000000E+00 HKET_RACM2 EQY 210.000 6.500000E-01 6.500000E-01 6.500000E-01 6.500000E-01 6.500000E-01 0.000000E+00 0.000000E+00 HKET_RACM2 CS 230.000 1.992923E-20 7.535076E-21 2.932970E-21 1.413067E-21 3.523287E-22 0.000000E+00 0.000000E+00 HKET_RACM2 EQY 230.000 6.500000E-01 6.500000E-01 6.500000E-01 6.500000E-01 6.500000E-01 0.000000E+00 0.000000E+00 HKET_RACM2 CS 250.000 1.992923E-20 7.535076E-21 2.932970E-21 1.413067E-21 3.523287E-22 0.000000E+00 0.000000E+00 HKET_RACM2 EQY 250.000 6.500000E-01 6.500000E-01 6.500000E-01 6.500000E-01 6.500000E-01 0.000000E+00 0.000000E+00 HKET_RACM2 CS 270.000 1.992923E-20 7.535076E-21 2.932970E-21 1.413067E-21 3.523287E-22 0.000000E+00 0.000000E+00 HKET_RACM2 EQY 270.000 6.500000E-01 6.500000E-01 6.500000E-01 6.500000E-01 6.500000E-01 0.000000E+00 0.000000E+00 HKET_RACM2 CS 290.000 1.992923E-20 7.535076E-21 2.932970E-21 1.413067E-21 3.523287E-22 0.000000E+00 0.000000E+00 HKET_RACM2 EQY 290.000 6.500000E-01 6.500000E-01 6.500000E-01 6.500000E-01 6.500000E-01 0.000000E+00 0.000000E+00 HKET_RACM2 CS 310.000 1.992923E-20 7.535076E-21 2.932970E-21 1.413067E-21 3.523287E-22 0.000000E+00 0.000000E+00 HKET_RACM2 EQY 310.000 6.500000E-01 6.500000E-01 6.500000E-01 6.500000E-01 6.500000E-01 0.000000E+00 0.000000E+00 MACR_RACM2 CS 210.000 2.653810E-20 3.941266E-20 4.989643E-20 5.893396E-20 6.529031E-20 1.389067E-20 0.000000E+00 MACR_RACM2 EQY 210.000 8.015506E-03 8.015506E-03 8.015506E-03 8.015506E-03 8.015506E-03 8.015506E-03 0.000000E+00 MACR_RACM2 CS 230.000 2.653810E-20 3.941266E-20 4.989643E-20 5.893396E-20 6.529031E-20 1.389067E-20 0.000000E+00 MACR_RACM2 EQY 230.000 8.015506E-03 8.015506E-03 8.015506E-03 8.015506E-03 8.015506E-03 8.015506E-03 0.000000E+00 MACR_RACM2 CS 250.000 2.653810E-20 3.941266E-20 4.989643E-20 5.893396E-20 6.529031E-20 1.389067E-20 0.000000E+00 MACR_RACM2 EQY 250.000 8.015506E-03 8.015506E-03 8.015506E-03 8.015506E-03 8.015506E-03 8.015506E-03 0.000000E+00 MACR_RACM2 CS 270.000 2.653810E-20 3.941266E-20 4.989643E-20 5.893396E-20 6.529031E-20 1.389067E-20 0.000000E+00 MACR_RACM2 EQY 270.000 8.015506E-03 8.015506E-03 8.015506E-03 8.015506E-03 8.015506E-03 8.015506E-03 0.000000E+00 MACR_RACM2 CS 290.000 2.653810E-20 3.941266E-20 4.989643E-20 5.893396E-20 6.529031E-20 1.389067E-20 0.000000E+00 MACR_RACM2 EQY 290.000 8.015506E-03 8.015506E-03 8.015506E-03 8.015506E-03 8.015506E-03 8.015506E-03 0.000000E+00 MACR_RACM2 CS 310.000 2.653810E-20 3.941266E-20 4.989643E-20 5.893396E-20 6.529031E-20 1.389067E-20 0.000000E+00 MACR_RACM2 EQY 310.000 8.015506E-03 8.015506E-03 8.015506E-03 8.015506E-03 8.015506E-03 8.015506E-03 0.000000E+00 MVK_RACM2 CS 210.000 3.026195E-20 4.372470E-20 5.436504E-20 6.304111E-20 6.815623E-20 1.494179E-20 0.000000E+00 MVK_RACM2 EQY 210.000 1.750145E-02 1.106229E-02 7.572843E-03 5.008090E-03 2.251655E-03 4.698719E-04 0.000000E+00 MVK_RACM2 CS 230.000 3.026195E-20 4.372470E-20 5.436504E-20 6.304111E-20 6.815623E-20 1.494179E-20 0.000000E+00 MVK_RACM2 EQY 230.000 1.750145E-02 1.106229E-02 7.572843E-03 5.008090E-03 2.251655E-03 4.698719E-04 0.000000E+00 MVK_RACM2 CS 250.000 3.026195E-20 4.372470E-20 5.436504E-20 6.304111E-20 6.815623E-20 1.494179E-20 0.000000E+00 MVK_RACM2 EQY 250.000 1.750145E-02 1.106229E-02 7.572843E-03 5.008090E-03 2.251655E-03 4.698719E-04 0.000000E+00 MVK_RACM2 CS 270.000 3.026195E-20 4.372470E-20 5.436504E-20 6.304111E-20 6.815623E-20 1.494179E-20 0.000000E+00 MVK_RACM2 EQY 270.000 1.750145E-02 1.106229E-02 7.572843E-03 5.008090E-03 2.251655E-03 4.698719E-04 0.000000E+00 MVK_RACM2 CS 290.000 3.026195E-20 4.372470E-20 5.436504E-20 6.304111E-20 6.815623E-20 1.494179E-20 0.000000E+00 MVK_RACM2 EQY 290.000 1.750145E-02 1.106229E-02 7.572843E-03 5.008090E-03 2.251655E-03 4.698719E-04 0.000000E+00 MVK_RACM2 CS 310.000 3.026195E-20 4.372470E-20 5.436504E-20 6.304111E-20 6.815623E-20 1.494179E-20 0.000000E+00 MVK_RACM2 EQY 310.000 1.750145E-02 1.106229E-02 7.572843E-03 5.008090E-03 2.251655E-03 4.698719E-04 0.000000E+00 GLYH2_RACM2 CS 210.000 3.772546E-20 3.537579E-20 3.193592E-20 2.608503E-20 1.125923E-20 2.667804E-20 1.453960E-20 GLYH2_RACM2 EQY 210.000 2.083945E-01 1.741676E-01 1.458094E-01 1.226219E-01 7.896682E-02 4.675626E-04 0.000000E+00 GLYH2_RACM2 CS 230.000 3.772546E-20 3.537579E-20 3.193592E-20 2.608503E-20 1.125923E-20 2.667804E-20 1.453960E-20 GLYH2_RACM2 EQY 230.000 2.083945E-01 1.741676E-01 1.458094E-01 1.226219E-01 7.896682E-02 4.675626E-04 0.000000E+00 GLYH2_RACM2 CS 250.000 3.772546E-20 3.537579E-20 3.193592E-20 2.608503E-20 1.125923E-20 2.667804E-20 1.453960E-20 GLYH2_RACM2 EQY 250.000 2.083945E-01 1.741676E-01 1.458094E-01 1.226219E-01 7.896682E-02 4.675626E-04 0.000000E+00 GLYH2_RACM2 CS 270.000 3.772546E-20 3.537579E-20 3.193592E-20 2.608503E-20 1.125923E-20 2.667804E-20 1.453960E-20 GLYH2_RACM2 EQY 270.000 2.083945E-01 1.741676E-01 1.458094E-01 1.226219E-01 7.896682E-02 4.675626E-04 0.000000E+00 GLYH2_RACM2 CS 290.000 3.772546E-20 3.537579E-20 3.193592E-20 2.608503E-20 1.125923E-20 2.667804E-20 1.453960E-20 GLYH2_RACM2 EQY 290.000 2.083945E-01 1.741676E-01 1.458094E-01 1.226219E-01 7.896682E-02 4.675626E-04 0.000000E+00 GLYH2_RACM2 CS 310.000 3.772546E-20 3.537579E-20 3.193592E-20 2.608503E-20 1.125923E-20 2.667804E-20 1.453960E-20 GLYH2_RACM2 EQY 310.000 2.083945E-01 1.741676E-01 1.458094E-01 1.226219E-01 7.896682E-02 4.675626E-04 0.000000E+00 GLYF_RACM2 CS 210.000 3.772546E-20 3.537579E-20 3.193592E-20 2.608503E-20 1.125923E-20 2.667804E-20 1.453960E-20 GLYF_RACM2 EQY 210.000 4.492523E-01 4.582704E-01 4.575158E-01 4.464855E-01 3.643574E-01 9.914810E-03 6.082142E-05 GLYF_RACM2 CS 230.000 3.772546E-20 3.537579E-20 3.193592E-20 2.608503E-20 1.125923E-20 2.667804E-20 1.453960E-20 GLYF_RACM2 EQY 230.000 4.492523E-01 4.582704E-01 4.575158E-01 4.464855E-01 3.643574E-01 9.914810E-03 6.082142E-05 GLYF_RACM2 CS 250.000 3.772546E-20 3.537579E-20 3.193592E-20 2.608503E-20 1.125923E-20 2.667804E-20 1.453960E-20 GLYF_RACM2 EQY 250.000 4.492523E-01 4.582704E-01 4.575158E-01 4.464855E-01 3.643574E-01 9.914810E-03 6.082142E-05 GLYF_RACM2 CS 270.000 3.772546E-20 3.537579E-20 3.193592E-20 2.608503E-20 1.125923E-20 2.667804E-20 1.453960E-20 GLYF_RACM2 EQY 270.000 4.492523E-01 4.582704E-01 4.575158E-01 4.464855E-01 3.643574E-01 9.914810E-03 6.082142E-05 GLYF_RACM2 CS 290.000 3.772546E-20 3.537579E-20 3.193592E-20 2.608503E-20 1.125923E-20 2.667804E-20 1.453960E-20 GLYF_RACM2 EQY 290.000 4.492523E-01 4.582704E-01 4.575158E-01 4.464855E-01 3.643574E-01 9.914810E-03 6.082142E-05 GLYF_RACM2 CS 310.000 3.772546E-20 3.537579E-20 3.193592E-20 2.608503E-20 1.125923E-20 2.667804E-20 1.453960E-20 GLYF_RACM2 EQY 310.000 4.492523E-01 4.582704E-01 4.575158E-01 4.464855E-01 3.643574E-01 9.914810E-03 6.082142E-05 GLYHX_RACM2 CS 210.000 3.772546E-20 3.537579E-20 3.193592E-20 2.608503E-20 1.125923E-20 2.667804E-20 1.453960E-20 GLYHX_RACM2 EQY 210.000 3.424615E-01 3.676233E-01 3.968463E-01 4.307733E-01 5.451978E-01 6.424549E-02 3.251833E-03 GLYHX_RACM2 CS 230.000 3.772546E-20 3.537579E-20 3.193592E-20 2.608503E-20 1.125923E-20 2.667804E-20 1.453960E-20 GLYHX_RACM2 EQY 230.000 3.424615E-01 3.676233E-01 3.968463E-01 4.307733E-01 5.451978E-01 6.424549E-02 3.251833E-03 GLYHX_RACM2 CS 250.000 3.772546E-20 3.537579E-20 3.193592E-20 2.608503E-20 1.125923E-20 2.667804E-20 1.453960E-20 GLYHX_RACM2 EQY 250.000 3.424615E-01 3.676233E-01 3.968463E-01 4.307733E-01 5.451978E-01 6.424549E-02 3.251833E-03 GLYHX_RACM2 CS 270.000 3.772546E-20 3.537579E-20 3.193592E-20 2.608503E-20 1.125923E-20 2.667804E-20 1.453960E-20 GLYHX_RACM2 EQY 270.000 3.424615E-01 3.676233E-01 3.968463E-01 4.307733E-01 5.451978E-01 6.424549E-02 3.251833E-03 GLYHX_RACM2 CS 290.000 3.772546E-20 3.537579E-20 3.193592E-20 2.608503E-20 1.125923E-20 2.667804E-20 1.453960E-20 GLYHX_RACM2 EQY 290.000 3.424615E-01 3.676233E-01 3.968463E-01 4.307733E-01 5.451978E-01 6.424549E-02 3.251833E-03 GLYHX_RACM2 CS 310.000 3.772546E-20 3.537579E-20 3.193592E-20 2.608503E-20 1.125923E-20 2.667804E-20 1.453960E-20 GLYHX_RACM2 EQY 310.000 3.424615E-01 3.676233E-01 3.968463E-01 4.307733E-01 5.451978E-01 6.424549E-02 3.251833E-03 MGLY_RACM2 CS 210.000 4.369065E-20 3.468163E-20 2.431083E-20 1.791723E-20 6.182988E-21 3.703444E-20 7.886681E-21 MGLY_RACM2 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 6.094060E-01 1.339466E-01 MGLY_RACM2 CS 230.000 4.369065E-20 3.468163E-20 2.431083E-20 1.791723E-20 6.182988E-21 3.703444E-20 7.886681E-21 MGLY_RACM2 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 6.094060E-01 1.339466E-01 MGLY_RACM2 CS 250.000 4.369065E-20 3.468163E-20 2.431083E-20 1.791723E-20 6.182988E-21 3.703444E-20 7.886681E-21 MGLY_RACM2 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 6.094060E-01 1.339466E-01 MGLY_RACM2 CS 270.000 4.369065E-20 3.468163E-20 2.431083E-20 1.791723E-20 6.182988E-21 3.703444E-20 7.886681E-21 MGLY_RACM2 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 6.094060E-01 1.339466E-01 MGLY_RACM2 CS 290.000 4.369065E-20 3.468163E-20 2.431083E-20 1.791723E-20 6.182988E-21 3.703444E-20 7.886681E-21 MGLY_RACM2 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 6.094060E-01 1.339466E-01 MGLY_RACM2 CS 310.000 4.369065E-20 3.468163E-20 2.431083E-20 1.791723E-20 6.182988E-21 3.703444E-20 7.886681E-21 MGLY_RACM2 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 6.094060E-01 1.339466E-01 BALD_RACM2 CS 210.000 4.785295E-19 7.446018E-20 7.090561E-20 8.511820E-20 9.190661E-20 1.652288E-20 0.000000E+00 BALD_RACM2 EQY 210.000 6.000000E-02 6.000000E-02 6.000000E-02 6.000000E-02 6.000000E-02 5.654883E-02 0.000000E+00 BALD_RACM2 CS 230.000 4.785295E-19 7.446018E-20 7.090561E-20 8.511820E-20 9.190661E-20 1.652288E-20 0.000000E+00 BALD_RACM2 EQY 230.000 6.000000E-02 6.000000E-02 6.000000E-02 6.000000E-02 6.000000E-02 5.654883E-02 0.000000E+00 BALD_RACM2 CS 250.000 4.785295E-19 7.446018E-20 7.090561E-20 8.511820E-20 9.190661E-20 1.652288E-20 0.000000E+00 BALD_RACM2 EQY 250.000 6.000000E-02 6.000000E-02 6.000000E-02 6.000000E-02 6.000000E-02 5.654883E-02 0.000000E+00 BALD_RACM2 CS 270.000 4.785295E-19 7.446018E-20 7.090561E-20 8.511820E-20 9.190661E-20 1.652288E-20 0.000000E+00 BALD_RACM2 EQY 270.000 6.000000E-02 6.000000E-02 6.000000E-02 6.000000E-02 6.000000E-02 5.654883E-02 0.000000E+00 BALD_RACM2 CS 290.000 4.785295E-19 7.446018E-20 7.090561E-20 8.511820E-20 9.190661E-20 1.652288E-20 0.000000E+00 BALD_RACM2 EQY 290.000 6.000000E-02 6.000000E-02 6.000000E-02 6.000000E-02 6.000000E-02 5.654883E-02 0.000000E+00 BALD_RACM2 CS 310.000 4.785295E-19 7.446018E-20 7.090561E-20 8.511820E-20 9.190661E-20 1.652288E-20 0.000000E+00 BALD_RACM2 EQY 310.000 6.000000E-02 6.000000E-02 6.000000E-02 6.000000E-02 6.000000E-02 5.654883E-02 0.000000E+00 OP1_RACM2 CS 210.000 5.502859E-21 3.521580E-21 2.407395E-21 1.698535E-21 7.264998E-22 4.583933E-23 0.000000E+00 OP1_RACM2 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 OP1_RACM2 CS 230.000 5.502859E-21 3.521580E-21 2.407395E-21 1.698535E-21 7.264998E-22 4.583933E-23 0.000000E+00 OP1_RACM2 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 OP1_RACM2 CS 250.000 5.502859E-21 3.521580E-21 2.407395E-21 1.698535E-21 7.264998E-22 4.583933E-23 0.000000E+00 OP1_RACM2 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 OP1_RACM2 CS 270.000 5.502859E-21 3.521580E-21 2.407395E-21 1.698535E-21 7.264998E-22 4.583933E-23 0.000000E+00 OP1_RACM2 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 OP1_RACM2 CS 290.000 5.502859E-21 3.521580E-21 2.407395E-21 1.698535E-21 7.264998E-22 4.583933E-23 0.000000E+00 OP1_RACM2 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 OP1_RACM2 CS 310.000 5.502859E-21 3.521580E-21 2.407395E-21 1.698535E-21 7.264998E-22 4.583933E-23 0.000000E+00 OP1_RACM2 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 PAA_RACM2 CS 210.000 1.925838E-21 1.009150E-21 5.907156E-22 3.670602E-22 1.041377E-22 0.000000E+00 0.000000E+00 PAA_RACM2 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 PAA_RACM2 CS 230.000 1.925838E-21 1.009150E-21 5.907156E-22 3.670602E-22 1.041377E-22 0.000000E+00 0.000000E+00 PAA_RACM2 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 PAA_RACM2 CS 250.000 1.925838E-21 1.009150E-21 5.907156E-22 3.670602E-22 1.041377E-22 0.000000E+00 0.000000E+00 PAA_RACM2 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 PAA_RACM2 CS 270.000 1.925838E-21 1.009150E-21 5.907156E-22 3.670602E-22 1.041377E-22 0.000000E+00 0.000000E+00 PAA_RACM2 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 PAA_RACM2 CS 290.000 1.925838E-21 1.009150E-21 5.907156E-22 3.670602E-22 1.041377E-22 0.000000E+00 0.000000E+00 PAA_RACM2 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 PAA_RACM2 CS 310.000 1.925838E-21 1.009150E-21 5.907156E-22 3.670602E-22 1.041377E-22 0.000000E+00 0.000000E+00 PAA_RACM2 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 ONIT_RACM2 CS 210.000 9.713560E-21 4.546408E-21 2.120818E-21 9.214405E-22 1.152105E-22 1.219897E-24 0.000000E+00 ONIT_RACM2 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 ONIT_RACM2 CS 230.000 9.713560E-21 4.546408E-21 2.120818E-21 9.214405E-22 1.152105E-22 1.219897E-24 0.000000E+00 ONIT_RACM2 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 ONIT_RACM2 CS 250.000 1.018927E-20 4.819206E-21 2.272045E-21 1.003918E-21 1.288490E-22 1.219897E-24 0.000000E+00 ONIT_RACM2 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 ONIT_RACM2 CS 270.000 1.121172E-20 5.414893E-21 2.607618E-21 1.191682E-21 1.611607E-22 1.219897E-24 0.000000E+00 ONIT_RACM2 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 ONIT_RACM2 CS 290.000 1.233676E-20 6.084210E-21 2.992754E-21 1.414564E-21 2.015753E-22 1.219897E-24 0.000000E+00 ONIT_RACM2 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 ONIT_RACM2 CS 310.000 1.357470E-20 6.836260E-21 3.434773E-21 1.679132E-21 2.521246E-22 1.219897E-24 0.000000E+00 ONIT_RACM2 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 PAN1_RACM2 CS 210.000 1.768018E-21 6.646887E-22 3.009928E-22 1.566195E-22 3.492933E-23 1.494937E-24 0.000000E+00 PAN1_RACM2 EQY 210.000 8.000000E-01 8.000000E-01 6.922216E-01 6.000000E-01 6.000000E-01 6.000000E-01 0.000000E+00 PAN1_RACM2 CS 230.000 2.071785E-21 7.907078E-22 3.614192E-22 1.899570E-22 4.384918E-23 1.511154E-24 0.000000E+00 PAN1_RACM2 EQY 230.000 8.000000E-01 8.000000E-01 6.922216E-01 6.000000E-01 6.000000E-01 6.000000E-01 0.000000E+00 PAN1_RACM2 CS 250.000 2.427744E-21 9.406189E-22 4.339766E-22 2.303907E-22 5.504689E-23 1.527546E-24 0.000000E+00 PAN1_RACM2 EQY 250.000 8.000000E-01 8.000000E-01 6.922216E-01 6.000000E-01 6.000000E-01 6.000000E-01 0.000000E+00 PAN1_RACM2 CS 270.000 2.844861E-21 1.118952E-21 5.211004E-22 2.794310E-22 6.910414E-23 1.544117E-24 0.000000E+00 PAN1_RACM2 EQY 270.000 8.000000E-01 8.000000E-01 6.922216E-01 6.000000E-01 6.000000E-01 6.000000E-01 0.000000E+00 PAN1_RACM2 CS 290.000 3.333644E-21 1.331095E-21 6.257149E-22 3.389099E-22 8.675118E-23 1.560867E-24 0.000000E+00 PAN1_RACM2 EQY 290.000 8.000000E-01 8.000000E-01 6.922216E-01 6.000000E-01 6.000000E-01 6.000000E-01 0.000000E+00 PAN1_RACM2 CS 310.000 3.906406E-21 1.583459E-21 7.513316E-22 4.110492E-22 1.089047E-22 1.577798E-24 0.000000E+00 PAN1_RACM2 EQY 310.000 8.000000E-01 8.000000E-01 6.922216E-01 6.000000E-01 6.000000E-01 6.000000E-01 0.000000E+00 PAN2_RACM2 CS 210.000 1.768018E-21 6.646887E-22 3.009928E-22 1.566195E-22 3.492933E-23 1.494937E-24 0.000000E+00 PAN2_RACM2 EQY 210.000 2.000000E-01 2.000000E-01 3.077784E-01 4.000000E-01 4.000000E-01 4.000000E-01 0.000000E+00 PAN2_RACM2 CS 230.000 2.071785E-21 7.907078E-22 3.614192E-22 1.899570E-22 4.384918E-23 1.511154E-24 0.000000E+00 PAN2_RACM2 EQY 230.000 2.000000E-01 2.000000E-01 3.077784E-01 4.000000E-01 4.000000E-01 4.000000E-01 0.000000E+00 PAN2_RACM2 CS 250.000 2.427744E-21 9.406189E-22 4.339766E-22 2.303907E-22 5.504689E-23 1.527546E-24 0.000000E+00 PAN2_RACM2 EQY 250.000 2.000000E-01 2.000000E-01 3.077784E-01 4.000000E-01 4.000000E-01 4.000000E-01 0.000000E+00 PAN2_RACM2 CS 270.000 2.844861E-21 1.118952E-21 5.211004E-22 2.794310E-22 6.910414E-23 1.544117E-24 0.000000E+00 PAN2_RACM2 EQY 270.000 2.000000E-01 2.000000E-01 3.077784E-01 4.000000E-01 4.000000E-01 4.000000E-01 0.000000E+00 PAN2_RACM2 CS 290.000 3.333644E-21 1.331095E-21 6.257149E-22 3.389099E-22 8.675118E-23 1.560867E-24 0.000000E+00 PAN2_RACM2 EQY 290.000 2.000000E-01 2.000000E-01 3.077784E-01 4.000000E-01 4.000000E-01 4.000000E-01 0.000000E+00 PAN2_RACM2 CS 310.000 3.906406E-21 1.583459E-21 7.513316E-22 4.110492E-22 1.089047E-22 1.577798E-24 0.000000E+00 PAN2_RACM2 EQY 310.000 2.000000E-01 2.000000E-01 3.077784E-01 4.000000E-01 4.000000E-01 4.000000E-01 0.000000E+00 ACRO_09 CS 210.000 1.856128E-20 2.787986E-20 3.602616E-20 4.321518E-20 5.371941E-20 1.543856E-20 0.000000E+00 ACRO_09 EQY 210.000 5.269045E-02 3.293790E-02 2.264026E-02 1.595375E-02 6.767500E-03 1.624741E-03 0.000000E+00 ACRO_09 CS 230.000 1.856128E-20 2.787986E-20 3.602616E-20 4.321518E-20 5.371941E-20 1.543856E-20 0.000000E+00 ACRO_09 EQY 230.000 5.269045E-02 3.293790E-02 2.264026E-02 1.595375E-02 6.767500E-03 1.624741E-03 0.000000E+00 ACRO_09 CS 250.000 1.856128E-20 2.787986E-20 3.602616E-20 4.321518E-20 5.371941E-20 1.543856E-20 0.000000E+00 ACRO_09 EQY 250.000 5.269045E-02 3.293790E-02 2.264026E-02 1.595375E-02 6.767500E-03 1.624741E-03 0.000000E+00 ACRO_09 CS 270.000 1.856128E-20 2.787986E-20 3.602616E-20 4.321518E-20 5.371941E-20 1.543856E-20 0.000000E+00 ACRO_09 EQY 270.000 5.269045E-02 3.293790E-02 2.264026E-02 1.595375E-02 6.767500E-03 1.624741E-03 0.000000E+00 ACRO_09 CS 290.000 1.856128E-20 2.787986E-20 3.602616E-20 4.321518E-20 5.371941E-20 1.543856E-20 0.000000E+00 ACRO_09 EQY 290.000 5.269045E-02 3.293790E-02 2.264026E-02 1.595375E-02 6.767500E-03 1.624741E-03 0.000000E+00 ACRO_09 CS 310.000 1.856128E-20 2.787986E-20 3.602616E-20 4.321518E-20 5.371941E-20 1.543856E-20 0.000000E+00 ACRO_09 EQY 310.000 5.269045E-02 3.293790E-02 2.264026E-02 1.595375E-02 6.767500E-03 1.624741E-03 0.000000E+00 ! Ozone Cross-Section for Stratospheric Opacity based on Table 4-5 in ! Chemical Kinetics and Photochemical Data for Use in Atmospheric ! Studies Evaluation Number 15. Sander et. al: NASA-JPL 2006 NTEMP_STRAT = 6 ! QUANTITY TEMP WBIN( 1) WBIN( 2) WBIN( 3) WBIN( 4) WBIN( 5) WBIN( 6) WBIN( 7) O3_STRAT CS 180.000 6.113743E-19 2.263004E-19 8.354117E-20 3.417408E-20 3.688351E-21 4.086261E-23 1.663175E-21 O3_STRAT CS 260.000 6.434133E-19 2.434104E-19 9.254548E-20 3.928807E-20 4.583227E-21 4.086261E-23 1.663175E-21 O3_STRAT CS 300.000 6.685868E-19 2.568540E-19 9.962031E-20 4.330621E-20 5.286344E-21 4.086261E-23 1.663175E-21 O3_STRAT CS 340.000 6.685868E-19 2.568540E-19 9.962031E-20 4.330621E-20 5.286344E-21 4.086261E-23 1.663175E-21 O3_STRAT CS 380.000 6.685868E-19 2.568540E-19 9.962031E-20 4.330621E-20 5.286344E-21 4.086261E-23 1.663175E-21 O3_STRAT CS 420.000 6.685868E-19 2.568540E-19 9.962031E-20 4.330621E-20 5.286344E-21 4.086261E-23 1.663175E-21 ================================================ FILE: CCTM/src/MECHS/cracmm1_aq/GC_cracmm1_aq.nml ================================================ &GC_nml GC_SPECIES_DATA = !SPECIES ,MOLWT ,IC ,IC_FAC ,BC ,BC_FAC ,DRYDEP SURR ,FAC ,WET-SCAV SURR ,FAC ,GC2AE SURR ,GC2AQ SURR,TRNS ,DDEP ,WDEP ,CONC ,!RepCmp,ExplicitorLumped,DTXSID,SMILES 'O3' , 48.0 ,'' ,-1 ,'' ,-1 ,'VD_O3' , 1 ,'O3' , 1 ,'' ,'O3' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Ozone,E,DTXSID0021098,[O-][O+]=O 'O3P' , 16.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!Ground state oxygen,E,DTXSID00170378,[O] 'O1D' , 16.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!Excited oxygen,E,DTXSID00170378,[O] 'H2O2' , 34.0 ,'' ,-1 ,'' ,-1 ,'VD_H2O2' , 1 ,'H2O2' , 1 ,'' ,'H2O2' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Hydrogen peroxide,E,DTXSID2020715,OO 'HO' , 17.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'OH' ,'HO' ,'' ,'' ,'' ,'Yes',!Hydroxyl radical,E,NA,[OH] 'NO2' , 46.0 ,'' ,-1 ,'' ,-1 ,'VD_NO2' , 1 ,'NO2' , 1 ,'NO2' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Nitrogen dioxide,E,DTXSID7020974,N(=O)[O] 'NO' , 30.0 ,'' ,-1 ,'' ,-1 ,'VD_NO' , 1 ,'NO' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Nitric oxide,E,DTXSID1020938,[N]=O 'NO3' , 62.0 ,'' ,-1 ,'' ,-1 ,'VD_NO3' , 1 ,'NO3' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Nitrate radical,E,NA,[O]N(=O)=O 'HONO' , 47.0 ,'' ,-1 ,'' ,-1 ,'VD_HONO' , 1 ,'HNO2' , 1 ,'HONO' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Nitrous acid,E,DTXSID7064813,N(=O)O 'HNO3' , 63.0 ,'' ,-1 ,'' ,-1 ,'VD_HNO3' , 1 ,'HNO3' , 1 ,'HNO3' ,'HNO3' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Nitric acid,E,DTXSID5029685,[N+](=O)(O)[O-] 'HNO4' , 79.0 ,'' ,-1 ,'' ,-1 ,'VD_PNA' , 1 ,'HNO4' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Hydroxy nitrate,E,DTXSID201030501,[N+](=O)([O-])OO 'HO2' , 33.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!Hydroperoxy,E,DTXSID30894777,O[O-] 'HCHO' , 30.0 ,'' ,-1 ,'' ,-1 ,'VD_HCHO' , 1 ,'FORMALDEHYDE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Formaldehyde,E,DTXSID7020637,C=O 'CO' , 28.0 ,'' ,-1 ,'' ,-1 ,'VD_CO' , 1 ,'CO' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Carbon monoxide,E,DTXSID5027273,[C-]#[O+] 'ACD' , 44.0 ,'' ,-1 ,'' ,-1 ,'VD_ACD' , 1 ,'ACETALDEHYDE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Acetaldehyde,E,DTXSID5039224,CC=O 'MO2' , 47.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!Methylperoxy,E,DTXSID10944007,CO[O] 'ALD' , 58.0 ,'' ,-1 ,'' ,-1 ,'VD_ALD' , 1 ,'GENERIC_ALDEHYDE', 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Propanal,L,DTXSID2021658,CCC=O 'ETHP' , 61.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!Ethylperoxy,L,DTXSID90953652,CCO[O] 'ACT' , 58.0 ,'' ,-1 ,'' ,-1 ,'VD_ACT' , 1 ,'ACETONE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Acetone,E,DTXSID8021482,CC(C)=O 'ACO3' , 75.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!Acetylperoxy,E,DTXSID40957943,CC(=O)O[O] 'UALD' , 84.1 ,'' ,-1 ,'' ,-1 ,'VD_UALD' , 1 ,'UALDOPERA' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!2-Methylbut-2-enal,L,DTXSID00859414,CC=C(C)C=O 'KET' , 86.0 ,'' ,-1 ,'' ,-1 ,'VD_KET' , 1 ,'DIETHYLKETONE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Diethylketone,L,DTXSID6021820,CCC(=O)CC 'MEK' , 72.1 ,'' ,-1 ,'' ,-1 ,'VD_MEK' , 1 ,'MEK' , 1 ,'' ,'' ,'Yes' ,'Yes','Yes' ,'Yes',!Methyl ethyl ketone,E,DTXSID3021516,CCC(C)=O 'HKET' , 74.0 ,'' ,-1 ,'' ,-1 ,'VD_HKET' , 1 ,'HYDROXY-ACETONE' , 1 ,'' ,'' ,'Yes' ,'Yes','Yes' ,'Yes',!Hydroxy acetone,L,DTXSID8051590,CC(=O)CO 'MACR' , 70.0 ,'' ,-1 ,'' ,-1 ,'VD_MACR' , 1 ,'METHACROLEIN' , 1 ,'' ,'' ,'Yes' ,'Yes','Yes' ,'Yes',!Methacrolein,L,DTXSID0052540,CC(=C)C=O 'MACP' ,101.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!(2-methylprop-2-enoyl)peroxy,L,NA,CC(=C)C(=O)O[O] 'XO2' , 1.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!NA,NA,NA,NA 'MVK' , 70.1 ,'' ,-1 ,'' ,-1 ,'VD_MVK' , 1 ,'MVK' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Methyl vinyl ketone,E,DTXSID3025671,CC(=O)C=C 'GLY' , 58.0 ,'' ,-1 ,'' ,-1 ,'VD_GLY' , 1 ,'GLYOXAL' , 1 ,'' ,'GLY' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Glyoxal,L,DTXSID5025364,O=CC=O 'MGLY' , 72.0 ,'' ,-1 ,'' ,-1 ,'VD_MGLY' , 1 ,'METHYL_GLYOXAL' , 1 ,'' ,'MGLY' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Methyl glyoxal,L,DTXSID0021628,CC(=O)C=O 'DCB1' , 98.0 ,'' ,-1 ,'' ,-1 ,'VD_DCB1' , 1 ,'METHACROLEIN' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!2-methylbut-2-enedial,L,NA,O=CC=C(C)C=O 'DCB2' ,112.1 ,'' ,-1 ,'' ,-1 ,'VD_DCB2' , 1 ,'METHACROLEIN' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!2-methyl-4-oxopent-2-enal,L,NA,O=CC(=CC(=O)C)C 'BALD' ,106.0 ,'' ,-1 ,'' ,-1 ,'VD_BALD' , 1 ,'BENZALDEHYDE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Benzaldehyde,L,DTXSID8039241,O=CC1=CC=CC=C1 'CHO' ,139.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!4-hydroxy-3;5-dimethylcyclohexa-2;5-dien-1-yloxidanyl,L,NA,[O]C1C=C(C)C(O)C(=C1)C 'OP1' , 48.0 ,'' ,-1 ,'' ,-1 ,'VD_OP1' , 1 ,'METHYLHYDROPEROX', 1 ,'' ,'MHP' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Methyl hydroperoxide,E,DTXSID10184401,COO 'OP2' , 62.0 ,'' ,-1 ,'' ,-1 ,'VD_OP2' , 1 ,'METHYLHYDROPEROX', 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Ethyl hydroperoxide,L,DTXSID70184402,CCOO 'OPB' ,186.2 ,'' ,-1 ,'' ,-1 ,'VD_OPB' , 1 ,'METHYLHYDROPEROX', 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!2-hydroperoxy-2;6;6-trimethylbicyclo[3.1.1]heptan-3-ol,L,NA,OOC1(C)C(O)CC2CC1C2(C)C 'OP3' ,176.2 ,'' ,-1 ,'' ,-1 ,'VD_OP3' , 1 ,'METHYLHYDROPEROX', 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!5-hydroperoxy-6-hydroxyoctan-3-one,L,NA,CCC(=O)CC(OO)C(O)CC 'PAA' , 76.0 ,'' ,-1 ,'' ,-1 ,'VD_PAA' , 1 ,'PEROXYACETIC_ACI', 1 ,'' ,'PAA' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Peroxyacetic acid,L,DTXSID1025853,CC(=O)OO 'ONIT' ,119.0 ,'' ,-1 ,'' ,-1 ,'VD_ONIT' , 1 ,'MPAN' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Butan-2-yl nitrate,L,DTXSID00871813,CCC(C)O[N+](=O)[O-] 'PAN' ,121.0 ,'' ,-1 ,'' ,-1 ,'VD_PAN' , 1 ,'PAN' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Peroxyacetyl nitrate,L,DTXSID4062301,CC(=O)OON(=O)=O 'N2O5' ,108.0 ,'' ,-1 ,'' ,-1 ,'VD_N2O5' , 1 ,'N2O5' , 1 ,'N2O5' ,'N2O5' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Dinitrogen pentoxide,E,DTXSID90143672,[N+](=O)([O-])O[N+](=O)[O-] 'SO2' , 64.0 ,'' ,-1 ,'' ,-1 ,'VD_SO2' , 1 ,'SO2' , 1 ,'' ,'SO2' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Sulfur dioxide,E,DTXSID6029672,O=S=O 'SULF' , 98.0 ,'' ,-1 ,'' ,-1 ,'VD_SULF' , 1 ,'H2SO4' , 1 ,'SULF' ,'H2SO4' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Sulfuric acid,E,DTXSID5029683,OS(=O)(=O)O 'SULRXN' , 98.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'SULPRD' ,'' ,'' ,'' ,'' ,'' ,!NA,NA,NA,NA 'ETH' , 30.1 ,'' ,-1 ,'' ,-1 ,'VD_ETH' , 1 ,'ETHANE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Ethane,E,DTXSID6026377,CC 'HC3' , 44.1 ,'' ,-1 ,'' ,-1 ,'VD_HC3' , 1 ,'HC3OPERA' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Propane,L,DTXSID5026386,CCC 'HC3P' , 75.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!Isopropyl peroxy,L,NA,CC(C)O[O] 'HC5' , 72.1 ,'' ,-1 ,'' ,-1 ,'VD_HC5' , 1 ,'HC5OPERA' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Pentane,L,DTXSID2025846,CCCCC 'HC5P' ,103.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!Pentan-3-ylperoxy,L,NA,CCC(O[O])CC 'HC10' ,142.28 ,'' ,-1 ,'' ,-1 ,'VD_HC10' , 1 ,'HC10OPERA' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Decane,L,DTXSID6024913,CCCCCCCCCC 'HC10P' ,173.27 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!Decan-3-ylperoxy,L,NA,CCCCCCCC(CC)O[O] 'HC10P2' ,189.27 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!(8-hydroxydecan-5-yl)peroxy,L,NA,CCCCC(O[O])CCC(O)CC 'ETE' , 28.1 ,'' ,-1 ,'' ,-1 ,'VD_ETE' , 1 ,'ETHENE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Ethylene,E,DTXSID1026378,C=C 'ETEP' , 77.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!(2-hydroxyethyl)peroxy,E,NA,OCCO[O] 'OLT' , 42.0 ,'' ,-1 ,'' ,-1 ,'VD_OLT' , 1 ,'OLTOPERA' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!1-Propene,L,DTXSID5021205,CC=C 'OLTP' , 91.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!(1-hydroxypropan-2-yl)peroxy,L,NA,CC(CO)O[O] 'OLI' , 70.1 ,'' ,-1 ,'' ,-1 ,'VD_OLI' , 1 ,'OLIOPERA' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!2-Methyl-2-butene,L,DTXSID8027165,CC=C(C)C 'OLIP' ,119.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!(3-hydroxy-2-methylbutan-2-yl)peroxy,L,NA,[O]OC(C)(C)C(C)O 'ACE' , 26.0 ,'' ,-1 ,'' ,-1 ,'VD_ACE' , 1 ,'ACETYLENE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Acetylene,E,DTXSID6026379,C#C 'ORA1' , 46.0 ,'' ,-1 ,'' ,-1 ,'VD_ORA1' , 1 ,'ORA1OPERA' , 1 ,'' ,'FOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Formic acid,E,DTXSID2024115,OC=O 'BEN' , 78.11 ,'' ,-1 ,'' ,-1 ,'VD_BEN' , 1 ,'BENOPERA' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Benzene,E,DTXSID3039242,C1=CC=CC=C1 'BENP' ,159.12 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!{8-hydroxy-6;7-dioxabicyclo[3.2.1]oct-3-en-2-yl}peroxy,L,NA,[O]OC1C=CC2OOC1C2O 'PHEN' ,110.1 ,'' ,-1 ,'' ,-1 ,'VD_PHEN' , 1 ,'PHENOPERA' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Resorcinol,L,DTXSID2021238,OC1=CC(O)=CC=C1 'TOL' ,92.14 ,'' ,-1 ,'' ,-1 ,'VD_TOL' , 1 ,'TOLOPERA' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Toluene,E,DTXSID7021360,CC1=CC=CC=C1 'CSL' ,136.2 ,'' ,-1 ,'' ,-1 ,'VD_CSL' , 1 ,'CSLOPERA' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!2-Phenylpropan-2-ol,L,DTXSID3027247,CC(C)(O)C1=CC=CC=C1 'XYM' ,106.2 ,'' ,-1 ,'' ,-1 ,'VD_XYM' , 1 ,'XYMOPERA' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!m-Xylene,L,DTXSID6026298,CC1=CC(C)=CC=C1 'XYE' ,106.2 ,'' ,-1 ,'' ,-1 ,'VD_XYE' , 1 ,'XYEOPERA' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Ethylbenzene,L,DTXSID3020596,CCC1=CC=CC=C1 'TOLP' ,173.14 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!{8-hydroxy-5-methyl-6;7-dioxabicyclo[3.2.1]oct-3-en-2-yl}peroxy,L,NA,[O]OC1C=CC2(C)OOC1C2O 'XYMP' ,187.17 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!{8-hydroxy-1;5-dimethyl-6;7-dioxabicyclo[3.2.1]oct-3-en-2-yl}peroxy,L,NA,[O]OC1C=CC2(C)OOC1(C)C2O 'XYEP' ,187.17 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!{5-ethyl-8-hydroxy-6;7-dioxabicyclo[3.2.1]oct-3-en-2-yl}peroxy,L,NA,[O]OC1C=CC2(CC)OOC1C2O 'ISO' , 68.1 ,'' ,-1 ,'' ,-1 ,'VD_ISO' , 1 ,'ISOOPERA' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Isoprene,E,DTXSID2020761,CC(=C)C=C 'ISOP' ,117.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!(1-hydroxy-3-methylbut-3-en-2-yl)peroxy,L,NA,OCC(O[O])C(C)=C 'API' ,136.4 ,'' ,-1 ,'' ,-1 ,'VD_API' , 1 ,'APIOPERA' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!alpha-pinene,L,DTXSID4026501,CC1=CCC2CC1C2(C)C 'APIP1' ,185.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!{3-hydroxy-2;6;6-trimethylbicyclo[3.1.1]heptan-2-yl}peroxy,L,NA,[O]OC1(C)C(O)CC2CC1C2(C)C 'APIP2' ,185.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!{3-hydroxy-2;6;6-trimethylbicyclo[3.1.1]heptan-2-yl}peroxy,L,NA,[O]OC1(C)C(O)CC2CC1C2(C)C 'APINP1' ,230.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',![2;6;6-trimethyl-3-(nitrooxy)bicyclo[3.1.1]heptan-2-yl]peroxy,L,NA,[O]OC1(C)C(ON(=O)=O)CC2CC1C2(C)C 'APINP2' ,230.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',![2;6;6-trimethyl-3-(nitrooxy)bicyclo[3.1.1]heptan-2-yl]peroxy,L,NA,[O]OC1(C)C(ON(=O)=O)CC2CC1C2(C)C 'PINAL' ,168.0 ,'' ,-1 ,'' ,-1 ,'VD_PINAL' , 1 ,'GENERIC_ALDEHYDE', 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Pinonaldehyde,L,NA,O=CCC1CC(C(=O)C)C1(C)C 'PINALP' ,199.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',![3-acetyl-2;2-dimethyl-1-(2-oxoethyl)cyclobutyl]peroxy,L,NA,O=CCC1(O[O])CC(C(=O)C)C1(C)C 'LIM' ,136.3 ,'' ,-1 ,'' ,-1 ,'VD_LIM' , 1 ,'LIMOPERA' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!D-Limonene,L,DTXSID1020778,CC(=C)[C@@H]1CCC(C)=CC1 'LIMP1' ,185.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',![2-hydroxy-1-methyl-4-(prop-1-en-2-yl)cyclohexyl]peroxy,L,NA,[O]OC1(C)CCC(CC1O)C(=C)C 'LIMP2' ,185.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',![2-hydroxy-1-methyl-4-(prop-1-en-2-yl)cyclohexyl]peroxy,L,NA,[O]OC1(C)CCC(CC1O)C(=C)C 'LIMNP1' ,230.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',![1-methyl-2-(nitrooxy)-4-(prop-1-en-2-yl)cyclohexyl]peroxy,L,NA,[O-][N+](=O)OC1CC(CCC1(C)O[O])C(=C)C 'LIMNP2' ,230.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',![1-methyl-2-(nitrooxy)-4-(prop-1-en-2-yl)cyclohexyl]peroxy,L,NA,[O-][N+](=O)OC1CC(CCC1(C)O[O])C(=C)C 'LIMAL' ,168.0 ,'' ,-1 ,'' ,-1 ,'VD_LIMAL' , 1 ,'UALDOPERA' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Limonaldehyde,L,NA,O=CCC(CCC(=O)C)C(=C)C 'LIMALP' ,217.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',![1-hydroxy-2-methyl-5-oxo-3-(3-oxobutyl)pentan-2-yl]peroxy,L,NA,O=CCC(CCC(=O)C)C(C)(CO)O[O] 'HOM' ,250.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'HOM' ,'' ,'' ,'' ,'' ,'Yes',!6;7-dihydroperoxy-3;3;6-trimethyl-tetrahydro-3aH-1;2-benzodioxol-5-ol,L,NA,OC1CC2C(OOC2(C)C)C(OO)C1(C)OO 'ELHOM' ,402.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'ELHOM' ,'' ,'' ,'' ,'' ,'Yes',!6-hydroperoxy-7-({3-hydroxy-2;6;6-trimethylbicyclo[3.1.1]heptan-2-yl}peroxy)-3;3;6-trimethyl-tetrahydro-3aH-1;2-benzodioxol-5-ol,L,NA,OC1CC2C(OOC2(C)C)C(OOC3(C)C4C(C)(C)C(C4)CC3O)C1(C)OO 'RCO3' , 89.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!Propanoylperoxy,L,NA,CCC(=O)O[O] 'ACTP' , 89.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!(2-oxopropyl)peroxy,E,NA,CC(=O)CO[O] 'MEKP' ,103.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!(3-oxobutyl)peroxy,L,NA,[O]OCCC(=O)C 'KETP' ,117.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!(3-oxopentan-2-yl)peroxy,L,NA,CCC(C(C)O[O])=O 'MCP' ,119.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!(1-hydroxy-2-methyl-3-oxopropan-2-yl)peroxy,L,NA,OCC(C)(O[O])C=O 'MVKP' ,119.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!(2-hydroxy-3-oxobutyl)peroxy,L,NA,CC(=O)C(O)CO[O] 'UALP' ,133.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!(3-hydroxy-3-methyl-4-oxobutan-2-yl)peroxy,L,NA,CC(O[O])C(C)(O)C=O 'DCB3' , 84.0 ,'' ,-1 ,'' ,-1 ,'VD_DCB3' , 1 ,'METHACROLEIN' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!but-2-enedial,L,NA,O=CC=CC=O 'BALP' ,137.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!benzoylperoxy,L,NA,O=C(O[O])C1=CC=CC=C1 'ADDC' ,125.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!3-methyl-5-oxocyclohex-3-en-1-yloxidanyl,L,NA,CC1=CC(O)=CC([O])C1 'MCT' ,124.1 ,'' ,-1 ,'' ,-1 ,'VD_MCT' , 1 ,'MCTOPERA' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!4-Methylcatechol,L,DTXSID5020861,CC1=CC(O)=C(O)C=C1 'MCTO' ,123.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!3-hydroxy-5-methylphenyloxidanyl,L,NA,CC1=CC(O)=CC([O])=C1 'MOH' , 32.0 ,'' ,-1 ,'' ,-1 ,'VD_MOH' , 1 ,'METHANOL' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Methanol,E,DTXSID2021731,CO 'EOH' , 46.1 ,'' ,-1 ,'' ,-1 ,'VD_EOH' , 1 ,'ETHANOL' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Ethanol,E,DTXSID9020584,CCO 'ROH' , 60.0 ,'' ,-1 ,'' ,-1 ,'VD_ROH' , 1 ,'N-PROPANOL' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Propanol,L,DTXSID2021739,CCCO 'ETEG' , 62.1 ,'' ,-1 ,'' ,-1 ,'VD_ETEG' , 1 ,'ETHYLENEGLYCOL' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Ethylene glycol,E,DTXSID8020597,OCCO 'ISHP' ,118.0 ,'' ,-1 ,'' ,-1 ,'VD_ISHP' , 1 ,'METHACROLEIN' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!2-hydroperoxy-2-methylbut-3-en-1-ol,L,NA,C=CC(OO)(CO)C 'IEPOX' ,118.1 ,'' ,-1 ,'' ,-1 ,'VD_IEPOX' , 1 ,'HYDROXY_PEROXIDE', 1 ,'IEPOX' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Isoprene epoxydiol,E,NA,OCC1OC1(C)CO 'IEPOXP' ,118.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!NA,NA,NA,NA 'MAHP' ,102.0 ,'' ,-1 ,'' ,-1 ,'VD_MAHP' , 1 ,'METHACROLEIN' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!2-methylprop-2-eneperoxoic acid,L,NA,C=C(C)C(OO)=O 'ORA2' , 60.2 ,'' ,-1 ,'' ,-1 ,'VD_ORA2' , 1 ,'ORA2OPERA' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Acetic acid,L,DTXSID5024394,CC(O)=O 'ORAP' , 91.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!(carboxymethyl)peroxy,L,NA,[O]OCC(=O)O 'PPN' ,135.0 ,'' ,-1 ,'' ,-1 ,'VD_PPN' , 1 ,'PPN' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Peroxypopionyl nitrate,E,DTXSID90206675,CCC(=O)OO[N+](=O)[O-] 'MPAN' ,147.1 ,'' ,-1 ,'' ,-1 ,'VD_MPAN' , 1 ,'MPAN' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Peroxymethacryloyl nitrate,L,DTXSID10236878,O=N(=O)OOC(=O)C(=C)C 'NALD' ,105.0 ,'' ,-1 ,'' ,-1 ,'VD_NALD' , 1 ,'2NITRO_1BUTNL' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!1-(nitrooxy)acetaldehyde,E,NA,O=CCON(=O)=O 'ISON' ,147.0 ,'' ,-1 ,'' ,-1 ,'VD_ISON' , 1 ,'2NITRO_1BUTNL' , 1 ,'ISON' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!2-methyl-2-(nitrooxy)but-3-en-1-ol,L,NA,OCC(C)(C=C)ON(=O)=O 'TRPN' ,215.0 ,'' ,-1 ,'' ,-1 ,'VD_TRPN' , 1 ,'2NITRO_1BUTNL' , 1 ,'TRPN' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!3-hydroxy-2;6;6-trimethylbicyclo[3.1.1]heptan-2-yl nitrate,L,NA,O=N(=O)OC1(C)C(O)CC2CC1C2(C)C 'MCTP' ,172.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!C7H8O5 Biradical,L,NA,CC(/C=C\[C](O[O])O)=C/C(O)=O 'OLNN' ,136.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',![1-(nitrooxy)propan-2-yl]peroxy,L,NA,CC(O[O])CO[N+]([O-])=O 'OLND' ,136.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',![1-(nitrooxy)propan-2-yl]peroxy,L,NA,CC(O[O])CO[N+]([O-])=O 'ADCN' ,155.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!4-oxocyclohex-2-en-1-yl nitrate,L,NA,OC1=C[C]C(O[N+]([O-])=O)C=C1 'BAL1' ,123.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!(4-methylphenyl)peroxy,L, NA, [O]OC1=CC=C(C)C=C1 'BAL2' ,109.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!phenylperoxy,L, NA, [O]OC1=CC=CC=C1 'ACRO' , 56.1 ,'' ,-1 ,'' ,-1 ,'VD_ACRO' , 1 ,'ACROOPERA' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Acrolein,E,DTXSID5020023,C=CC=O 'BDE13' , 54.1 ,'' ,-1 ,'' ,-1 ,'VD_BDE13' , 1 ,'BDE13OPERA' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!1;3-Butadiene,E,DTXSID3020203,C=CC=C 'BDE13P' ,103.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' , 1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!(1-hydroxybut-3-en-2-yl)peroxy,L,NA,C=CC(O[O])CO 'PROG' , 76.1 ,'' ,-1 ,'' ,-1 ,'VD_PROG' , 1 ,'PROGOPERA' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!1;2-Propylene glycol,E,DTXSID0021206,CC(O)CO 'FURAN' , 96.1 ,'' ,-1 ,'' ,-1 ,'VD_FURAN' , 1 ,'FURANOPERA' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Furfural,L,DTXSID1020647,O=CC1=CC=CO1 'FURANO2' ,145.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' , 1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!(2-formyl-5-hydroxy-5H-furan-2-yl)peroxy,L,NA,OC1C=CC(O1)(O[O])(C=O) 'FURANONE' ,100.1 ,'' ,-1 ,'' ,-1 ,'VD_FURANONE' , 1 ,'FURANONEOPERA' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!2-hydroxy-2H-furan-5-one,L,DTXSID10930763,C1=CC(=O)OC1O 'VROCIOXY' ,247.0 ,'' ,-1 ,'' ,-1 ,'VD_VROCIOXY' , 1 ,'ROCIOXYOPERA' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Decamethylcyclopentasiloxane,L,DTXSID1027184,C[Si]1(C)O[Si](C)(C)O[Si](C)(C)O[Si](C)(C)O[Si](C)(C)O1 'SLOWROC' , 75.4 ,'' ,-1 ,'' ,-1 ,'VD_SLOWROC' , 1 ,'SLOWROCOPERA' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Hydrogen cyanide,L,DTXSID9024148,C#N 'SESQ' ,204.4 ,'' ,-1 ,'' ,-1 ,'VD_SESQ' , 1 ,'SESQOPERA' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!b-caryophyllene,L,DTXSID8024739,C/C1=C/CCC(=C)C2CC(C)(C)C2CC\1 'SESQRO2' ,253.4 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!{5-hydroxy-4;11;11-trimethyl-8-methylidenebicyclo[7.2.0]undecan-4-yl}peroxy,L,NA,[O]OC1(C)CCC2C(CC2(C)C)C(=C)CCC1O 'SESQNRO2' ,298.4 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',![4;11;11-trimethyl-8-methylidene-5-(nitrooxy)bicyclo[7.2.0]undecan-4-yl]peroxy,L,NA,[O]OC1(C)CCC2C(CC2(C)C)C(=C)CCC1O[N+](=O)[O-] 'NAPH' ,128.17 ,'' ,-1 ,'' ,-1 ,'VD_NAPH' , 1 ,'NAPHOPERA' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Naphthalene,L,DTXSID8020913,C1=CC2=CC=CC=C2C=C1 'NAPHP' ,209.17 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!{8-hydroxy-10;11-dioxatricyclo[7.2.1.0^{2;7}]dodeca-2;4;6-trien-12-yl}peroxy,L,NA,C12=CC=CC=C1C3OOC(C3O[O])C2(O) 'VROCP5ARO' ,190.33 ,'' ,-1 ,'' ,-1 ,'VD_VROCP5ARO' , 1 ,'VROCP5AROOPERA' , 1 ,'VROCP5ARO' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Benzene; octyl-,L, DTXSID2062240, CCCCCCCCC1=CC=CC=C1 'VROCP6ARO' ,176.30 ,'' ,-1 ,'' ,-1 ,'VD_VROCP6ARO' , 1 ,'VROCP6AROOPERA' , 1 ,'VROCP6ARO' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!1-Hexyl-4-methylbenzene,L, DTXSID30333914, CCCCCCC1=CC=C(C)C=C1 'VROCP5AROP' ,271.33 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' , -1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!{8-hydroxy-5-octyl-6;7-dioxabicyclo[3.2.1]oct-3-en-2-yl}peroxy,L,NA,CCCCCCCCC1(OO2)C=CC(O[O])C2C1O 'VROCP6AROP' ,257.30 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' , -1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!{2-hexyl-8-hydroxy-5-methyl-6;7-dioxabicyclo[3.2.1]oct-3-en-2-yl}peroxy,L, NA, OC1C2C(CCCCCC)(O[O])C=CC1(C)OO2 'VROCN2ALK' ,422.83 ,'' ,-1 ,'' ,-1 ,'VD_VROCN2ALK' , 1 ,'VROCN2ALKOPERA' , 1 ,'VROCN2ALK' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Triacontane,L, DTXSID0060935, CCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 'VROCN1ALK' ,408.80 ,'' ,-1 ,'' ,-1 ,'VD_VROCN1ALK' , 1 ,'VROCN1ALKOPERA' , 1 ,'VROCN1ALK' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!5;9-Dimethylheptacosane,L, DTXSID40823452, CCCCCCCCCCCCCCCCCCC(C)CCCC(C)CCCC 'VROCP0ALK' ,394.77 ,'' ,-1 ,'' ,-1 ,'VD_VROCP0ALK' , 1 ,'VROCP0ALKOPERA' , 1 ,'VROCP0ALK' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!11-Methylheptacosane,L, DTXSID40333900, CCCCCCCCCCCCCCCCC(C)CCCCCCCCCC 'VROCP1ALK' ,380.75 ,'' ,-1 ,'' ,-1 ,'VD_VROCP1ALK' , 1 ,'VROCP1ALKOPERA' , 1 ,'VROCP1ALK' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Heptacosane,L, DTXSID6058637, CCCCCCCCCCCCCCCCCCCCCCCCCCC 'VROCP2ALK' ,338.66 ,'' ,-1 ,'' ,-1 ,'VD_VROCP2ALK' , 1 ,'VROCP2ALKOPERA' , 1 ,'VROCP2ALK' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Tetracosane,L, DTXSID8060955, CCCCCCCCCCCCCCCCCCCCCCCC 'VROCP3ALK' ,296.58 ,'' ,-1 ,'' ,-1 ,'VD_VROCP3ALK' , 1 ,'VROCP3ALKOPERA' , 1 ,'VROCP3ALK' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Heneicosane,L, DTXSID9047097, CCCCCCCCCCCCCCCCCCCCC 'VROCP4ALK' ,254.50 ,'' ,-1 ,'' ,-1 ,'VD_VROCP4ALK' , 1 ,'VROCP4ALKOPERA' , 1 ,'VROCP4ALK' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Octadecane,L, DTXSID9047172, CCCCCCCCCCCCCCCCCC 'VROCP5ALK' ,198.39 ,'' ,-1 ,'' ,-1 ,'VD_VROCP5ALK' , 1 ,'VROCP5ALKOPERA' , 1 ,'VROCP5ALK' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Tetradecane,L, DTXSID1027267, CCCCCCCCCCCCCC 'VROCP6ALK' ,184.37 ,'' ,-1 ,'' ,-1 ,'VD_VROCP6ALK' , 1 ,'VROCP6ALKOPERA' , 1 ,'VROCP6ALK' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Tridecane,L, DTXSID6027266, CCCCCCCCCCCCC 'VROCP1ALKP' ,411.74 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' , -1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!heptacosan-3-ylperoxy,L,NA,CCCCCCCCCCCCCCCCCCCCCCCCC(CC)O[O] 'VROCP2ALKP' ,369.65 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' , -1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!tetracosan-3-ylperoxy,L,NA,CCCCCCCCCCCCCCCCCCCCCC(CC)O[O] 'VROCP3ALKP' ,327.57 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' , -1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!henicosan-3-ylperoxy,L,NA,CCCCCCCCCCCCCCCCCCC(CC)O[O] 'VROCP4ALKP' ,285.49 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' , -1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!octadecan-3-ylperoxy,L,NA,CCCCCCCCCCCCCCCC(CC)O[O] 'VROCP5ALKP' ,229.38 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' , -1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!tetradecan-3-ylperoxy,L,NA,CCCCCCCCCCCC(CC)O[O] 'VROCP6ALKP' ,215.36 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' , -1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!tridecan-3-ylperoxy,L,NA,CCCCCCCCCCC(CC)O[O] 'VROCP1ALKP2' ,427.73 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' , -1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!(3-hydroxyheptacosan-6-yl)peroxy,L,NA,CCCCCCCCCCCCCCCCCCCCCC(O[O])CCC(O)CC 'VROCP2ALKP2' ,385.65 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' , -1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!(3-hydroxytetracosan-6-yl)peroxy,L,NA,CCCCCCCCCCCCCCCCCCC(O[O])CCC(O)CC 'VROCP3ALKP2' ,343.57 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' , -1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!(3-hydroxyhenicosan-6-yl)peroxy,L,NA,CCCCCCCCCCCCCCCC(O[O])CCC(O)CC 'VROCP4ALKP2' ,301.49 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' , -1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!(3-hydroxyoctadecan-6-yl)peroxy,L,NA,CCCCCCCCCCCCC(O[O])CCC(O)CC 'VROCP5ALKP2' ,245.38 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' , -1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!(3-hydroxytetradecan-6-yl)peroxy,L,NA,CCCCCCCCC(O[O])CCC(O)CC 'VROCP6ALKP2' ,231.36 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' , -1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!(3-hydroxytridecan-6-yl)peroxy,L,NA,CCCCCCCC(O[O])CCC(O)CC 'VROCN2OXY2' ,282.4 ,'' ,-1 ,'' ,-1 ,'VD_VROCN2OXY2' , 1 ,'VROCN2OXY2OPERA', 1 ,'VROCN2OXY2' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!12(S)-hydroxy-16-Heptadecynoic Acid,L,NA,C#CCCC[C@H](CCCCCCCCCCC(=O)O)O 'VROCN2OXY4' ,232.3 ,'' ,-1 ,'' ,-1 ,'VD_VROCN2OXY4' , 1 ,'VROCN2OXY4OPERA', 1 ,'VROCN2OXY4' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!2-HYDROXYUNDECANEDIOIC ACID,L,DTXSID90726525,C(CCCCC(=O)O)CCCC(C(=O)O)O 'VROCN2OXY8' ,194.2 ,'' ,-1 ,'' ,-1 ,'VD_VROCN2OXY8' , 1 ,'VROCN2OXY8OPERA', 1 ,'VROCN2OXY8' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!3;4;5;6;7-Pentahydroxyheptan-2-one,L,DTXSID80956455,CC(=O)C(C(C(C(CO)O)O)O)O 'VROCN1OXY1' ,312.5 ,'' ,-1 ,'' ,-1 ,'VD_VROCN1OXY1' , 1 ,'VROCN1OXY1OPERA', 1 ,'VROCN1OXY1' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Arachidic Acid,L,DTXSID1060134,CCCCCCCCCCCCCCCCCCCC(=O)O 'VROCN1OXY3' ,230.3 ,'' ,-1 ,'' ,-1 ,'VD_VROCN1OXY3' , 1 ,'VROCN1OXY3OPERA', 1 ,'VROCN1OXY3' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!DODECANEDIOIC ACID,L,DTXSID3027297,C(CCCCCC(=O)O)CCCCC(=O)O 'VROCN1OXY6' ,190.2 ,'' ,-1 ,'' ,-1 ,'VD_VROCN1OXY6' , 1 ,'VROCN1OXY6OPERA', 1 ,'VROCN1OXY6' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!2-hydroxy-octanedioic acid,L,NA,C(CCC(C(=O)O)O)CCC(=O)O 'VROCP0OXY2' ,242.4 ,'' ,-1 ,'' ,-1 ,'VD_VROCP0OXY2' , 1 ,'VROCP0OXY2OPERA', 1 ,'VROCP0OXY2' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!3-oxotetradecanoic acid,L,DTXSID10332384,CCCCCCCCCCCC(=O)CC(=O)O 'VROCP0OXY4' ,202.3 ,'' ,-1 ,'' ,-1 ,'VD_VROCP0OXY4' , 1 ,'VROCP0OXY4OPERA', 1 ,'VROCP0OXY4' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!DECANEDIOIC ACID,L,DTXSID7026867,C(CCCCC(=O)O)CCCC(=O)O 'VROCP1OXY1' ,270.5 ,'' ,-1 ,'' ,-1 ,'VD_VROCP1OXY1' , 1 ,'VROCP1OXY1OPERA', 1 ,'VROCP1OXY1' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!HEPTADECANOIC ACID,L,DTXSID5021596,CCCCCCCCCCCCCCCCC(=O)O 'VROCP1OXY3' ,202.3 ,'' ,-1 ,'' ,-1 ,'VD_VROCP1OXY3' , 1 ,'VROCP1OXY3OPERA', 1 ,'VROCP1OXY3' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!11-hydroxyundecanoic acid,L,DTXSID40190136,C(CCCCCO)CCCCC(=O)O 'VROCP2OXY2' ,200.3 ,'' ,-1 ,'' ,-1 ,'VD_VROCP2OXY2' , 1 ,'VROCP2OXY2OPERA', 1 ,'VROCP2OXY2' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Dodecanoic Acid,L,DTXSID5021590,CCCCCCCCCCCC(=O)O 'VROCP3OXY2' ,186.3 ,'' ,-1 ,'' ,-1 ,'VD_VROCP3OXY2' , 1 ,'VROCP3OXY2OPERA', 1 ,'VROCP3OXY2' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!11-hydroxyundecanal,L,NA,C(CCCCCO)CCCCC=O 'VROCP4OXY2' ,158.2 ,'' ,-1 ,'' ,-1 ,'VD_VROCP4OXY2' , 1 ,'VROCP4OXY2OPERA', 1 ,'VROCP4OXY2' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!2-Ethylheptanoic Acid,L,DTXSID40880929,CCCCCC(CC)C(=O)O 'VROCP5OXY1' ,170.3 ,'' ,-1 ,'' ,-1 ,'VD_VROCP5OXY1' , 1 ,'VROCP5OXY1OPERA', 1 ,'VROCP5OXY1' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Undecanal,L,DTXSID4021688,CCCCCCCCCCC=O 'VROCP6OXY1' ,142.2 ,'' ,-1 ,'' ,-1 ,'VD_VROCP6OXY1' , 1 ,'VROCP6OXY1OPERA', 1 ,'VROCP6OXY1' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Nonanal,L,DTXSID9021639,CCCCCCCCC=O / ================================================ FILE: CCTM/src/MECHS/cracmm1_aq/NR_cracmm1_aq.nml ================================================ &NR_nml NR_SPECIES_DATA = !SPECIES ,MOLWT ,IC ,IC_FAC ,BC ,BC_FAC ,DRYDEP SURR ,FAC ,WET-SCAV SURR ,FAC ,NR2AE SURR ,NR2AQ SURR,TRNS ,DDEP ,WDEP ,CONC ,!RepCmp,ExplicitorLumped,DTXSID,SMILES 'NH3' , 17.0 ,'' ,-1 ,'' ,-1 ,'VD_NH3' , 1 ,'NH3' , 1 ,'NH3' ,'NH3' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Ammonia,E,DTXSID0023872,N 'HCL' , 36.0 ,'' ,-1 ,'' ,-1 ,'VD_HCL' , 1 ,'HCL' , 1 ,'HCL' ,'HCL' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Hydrochloric acid,E,DTXSID2020711,Cl / ================================================ FILE: CCTM/src/MECHS/cracmm1_aq/RXNS_DATA_MODULE.F90 ================================================ MODULE RXNS_DATA IMPLICIT NONE ! --------- Photochemical Mechanism Reactions, Rates, etc. DAT --------- ! Source file: /home/hwo/CCTM_git_repository/UTIL/chemmech/input/cracmm1_aq/mech_cracmm1_aq.def ! for Mechanism Name: CRACMM1_AQ ! This file is used to create mechanism data and functions ! The following are reserved symbols declared in this file: ! MECHNAME = Mechanism name ! N_GAS_CHEM_SPC = Total number of gas species in chemical mechanism ! NUMB_MECH_SPC = Total number of species in chemical mechanism ! N_ACT_SP = Number of active (determined by ODE solver) species in mechanism ! GAS_CHEM_SPC = Names of gas species in chemical mechanism ! CHEMISTRY_SPC = Names of species in chemical mechanism ! CGRID_INDEX = CGRID Index of species in chemical mechanism ! SPECIES_TYPE = Group or type of species ! SPECIES_MOLWT = Molecular Weight of species (gm/mole) ! NRXNS = Number of mechanism reactions ! ZERO_REACT_REACTIONS = number zero reactant reactions ! ONE_REACT_REACTIONS = number one reactant reactions ! TWO_REACT_REACTIONS = number second order reactions ! THREE_REACT_REACTIONS = number three reactant reactions ! NSUNLIGHT_RXNS = Number of mechanism reactions requiring sunlight ! NTHERMAL_RXNS = Number of mechanism reactions not requiring sunlight ! KUNITS = Units of mechanism reactions ! KTYPE = Reaction type ! IRXBITS = Bit test mask vector for selected reactions ! IORDER = Order of the reaction ! NTERMS_JACOB = Maximum number of nonzero terms in day/night Jacobian ! MSTEPS_JACOB = Maximum number of LU Decomposition steps to solve each Jacobian ! KTN1 = Number of type 1 reactions ! KRX1 = Reactions list pointer to type 1 reactions ! KTN2 = Number of type 2 reactions ! KRX2 = Reactions list pointer to type 2 reactions ! KTN3 = Number of type 3 reactions ! KRX3 = Reactions list pointer to type 3 reactions ! KTN4 = Number of type 4 reactions ! KRX4 = Reactions list pointer to type 4 reactions ! KTN5 = Number of type 5 reactions ! KRX5 = Reactions list pointer to type 5 reactions ! KTN6 = Number of type 6 reactions ! KRX6 = Reactions list pointer to type 6 reactions ! KTN7 = Number of type 7 reactions ! KRX7 = Reactions list pointer to type 7 reactions ! NWM = Number of air 3-body reactions ! NRXWM = Reactions list pointer to air 3-body reactions ! ATM_AIR = air 3-body reactions concentration ! NWW = Number of H2O 3-body reactions ! NRXWW = Reactions list pointer to H2O 3-body reactions ! NWO2 = Number of reactions with O2 ! NRXWO2 = Reactions list pointer to O2 reactions ! ATM_O2 = Oxygen reactions concentration ! NWN2 = Number of N2 3-body reactions ! NRXWN2 = Reactions list pointer to N2 3-body reactions ! ATM_N2 = Nitrogen 3-body reactions concentration ! NWCH4 = Number of reactions with CH4 ! NRXWCH4 = Reactions list pointer to CH4 reactions ! ATM_CH4 = Methane reactions concentration ! NWH2 = Number of reactions with H2 ! NRXWH2 = Reactions list pointer to H2 reactions ! ATM_H2 = Hydrogen reactions concentration ! MXPRD = Maximum number of mechanism reaction products ! IRR = Reactions list pointer to reactants and products ! RTDAT = Kinetic reaction rates expressions components ! NFALLOFFF = Number of falloff reactions ! IRRFALL = Reactions list pointer to falloff reactions ! RFDAT = Falloff reaction rates expressions components ! SC = Stoichiometric coefficients ! NREACT = Number of reactants in each mechanism reaction ! NPRDCT = Number of products in each mechanism reaction ! RXLABEL = Character label list for mechanism reactions ! NMPHOT = Number of mechanism photolytic reactions ! NPHOTAB = Number of photolytic reactions tables ! IPH = Reactions list pointer to photolytic reactions and tables ! MHETERO = Number of mechanism heteorogenous reactions ! NHETERO = Number of unique heteorogenous rate constants ! IHETERO = Reactions list pointer to heteorogenous reactions and tables CHARACTER( 32 ), PARAMETER :: MECHNAME = 'CRACMM1_AQ' INTEGER, PARAMETER :: N_GAS_CHEM_SPC = 173 INTEGER, PARAMETER :: NUMB_MECH_SPC = 178 CHARACTER( 16 ) :: GAS_CHEM_SPC( N_GAS_CHEM_SPC ) CHARACTER( 16 ) :: CHEMISTRY_SPC( NUMB_MECH_SPC ) CHARACTER( 16 ) :: SPECIES_TYPE( NUMB_MECH_SPC ) INTEGER :: CGRID_INDEX ( NUMB_MECH_SPC ) INTEGER :: TYPE_INDEX ( NUMB_MECH_SPC ) REAL( 8 ) :: SPECIES_MOLWT( NUMB_MECH_SPC ) LOGICAL :: CONVERT_CONC( NUMB_MECH_SPC ) ! The below character and integer arrays list the model species names used in the ! chemical mechanism. The gas species and their order should agree with ! the GC_SPC array for the gas phase chemistry to work correctly. ! If present, the CHEMISTRY_SPC names and species type should agree with the CGRID_SPCS module DATA GAS_CHEM_SPC( 1 ) / 'O3 ' / DATA GAS_CHEM_SPC( 2 ) / 'O3P ' / DATA GAS_CHEM_SPC( 3 ) / 'O1D ' / DATA GAS_CHEM_SPC( 4 ) / 'H2O2 ' / DATA GAS_CHEM_SPC( 5 ) / 'HO ' / DATA GAS_CHEM_SPC( 6 ) / 'NO2 ' / DATA GAS_CHEM_SPC( 7 ) / 'NO ' / DATA GAS_CHEM_SPC( 8 ) / 'NO3 ' / DATA GAS_CHEM_SPC( 9 ) / 'HONO ' / DATA GAS_CHEM_SPC( 10 ) / 'HNO3 ' / DATA GAS_CHEM_SPC( 11 ) / 'HNO4 ' / DATA GAS_CHEM_SPC( 12 ) / 'HO2 ' / DATA GAS_CHEM_SPC( 13 ) / 'HCHO ' / DATA GAS_CHEM_SPC( 14 ) / 'CO ' / DATA GAS_CHEM_SPC( 15 ) / 'ACD ' / DATA GAS_CHEM_SPC( 16 ) / 'MO2 ' / DATA GAS_CHEM_SPC( 17 ) / 'ALD ' / DATA GAS_CHEM_SPC( 18 ) / 'ETHP ' / DATA GAS_CHEM_SPC( 19 ) / 'ACT ' / DATA GAS_CHEM_SPC( 20 ) / 'ACO3 ' / DATA GAS_CHEM_SPC( 21 ) / 'UALD ' / DATA GAS_CHEM_SPC( 22 ) / 'KET ' / DATA GAS_CHEM_SPC( 23 ) / 'PINAL ' / DATA GAS_CHEM_SPC( 24 ) / 'HC10P ' / DATA GAS_CHEM_SPC( 25 ) / 'LIMAL ' / DATA GAS_CHEM_SPC( 26 ) / 'MEK ' / DATA GAS_CHEM_SPC( 27 ) / 'HKET ' / DATA GAS_CHEM_SPC( 28 ) / 'MACR ' / DATA GAS_CHEM_SPC( 29 ) / 'MACP ' / DATA GAS_CHEM_SPC( 30 ) / 'XO2 ' / DATA GAS_CHEM_SPC( 31 ) / 'MVK ' / DATA GAS_CHEM_SPC( 32 ) / 'GLY ' / DATA GAS_CHEM_SPC( 33 ) / 'MGLY ' / DATA GAS_CHEM_SPC( 34 ) / 'DCB1 ' / DATA GAS_CHEM_SPC( 35 ) / 'DCB2 ' / DATA GAS_CHEM_SPC( 36 ) / 'BALD ' / DATA GAS_CHEM_SPC( 37 ) / 'CHO ' / DATA GAS_CHEM_SPC( 38 ) / 'OP1 ' / DATA GAS_CHEM_SPC( 39 ) / 'OP2 ' / DATA GAS_CHEM_SPC( 40 ) / 'OPB ' / DATA GAS_CHEM_SPC( 41 ) / 'OP3 ' / DATA GAS_CHEM_SPC( 42 ) / 'PAA ' / DATA GAS_CHEM_SPC( 43 ) / 'ONIT ' / DATA GAS_CHEM_SPC( 44 ) / 'PAN ' / DATA GAS_CHEM_SPC( 45 ) / 'N2O5 ' / DATA GAS_CHEM_SPC( 46 ) / 'SO2 ' / DATA GAS_CHEM_SPC( 47 ) / 'SULF ' / DATA GAS_CHEM_SPC( 48 ) / 'SULRXN ' / DATA GAS_CHEM_SPC( 49 ) / 'ETH ' / DATA GAS_CHEM_SPC( 50 ) / 'HC3 ' / DATA GAS_CHEM_SPC( 51 ) / 'HC3P ' / DATA GAS_CHEM_SPC( 52 ) / 'HC5 ' / DATA GAS_CHEM_SPC( 53 ) / 'HC5P ' / DATA GAS_CHEM_SPC( 54 ) / 'ETE ' / DATA GAS_CHEM_SPC( 55 ) / 'ETEP ' / DATA GAS_CHEM_SPC( 56 ) / 'OLT ' / DATA GAS_CHEM_SPC( 57 ) / 'OLTP ' / DATA GAS_CHEM_SPC( 58 ) / 'OLI ' / DATA GAS_CHEM_SPC( 59 ) / 'OLIP ' / DATA GAS_CHEM_SPC( 60 ) / 'ACE ' / DATA GAS_CHEM_SPC( 61 ) / 'ORA1 ' / DATA GAS_CHEM_SPC( 62 ) / 'BEN ' / DATA GAS_CHEM_SPC( 63 ) / 'BENP ' / DATA GAS_CHEM_SPC( 64 ) / 'PHEN ' / DATA GAS_CHEM_SPC( 65 ) / 'TOL ' / DATA GAS_CHEM_SPC( 66 ) / 'TOLP ' / DATA GAS_CHEM_SPC( 67 ) / 'CSL ' / DATA GAS_CHEM_SPC( 68 ) / 'XYM ' / DATA GAS_CHEM_SPC( 69 ) / 'XYMP ' / DATA GAS_CHEM_SPC( 70 ) / 'XYE ' / DATA GAS_CHEM_SPC( 71 ) / 'XYEP ' / DATA GAS_CHEM_SPC( 72 ) / 'ISO ' / DATA GAS_CHEM_SPC( 73 ) / 'ISOP ' / DATA GAS_CHEM_SPC( 74 ) / 'API ' / DATA GAS_CHEM_SPC( 75 ) / 'APIP1 ' / DATA GAS_CHEM_SPC( 76 ) / 'APIP2 ' / DATA GAS_CHEM_SPC( 77 ) / 'LIM ' / DATA GAS_CHEM_SPC( 78 ) / 'LIMP1 ' / DATA GAS_CHEM_SPC( 79 ) / 'LIMP2 ' / DATA GAS_CHEM_SPC( 80 ) / 'PINALP ' / DATA GAS_CHEM_SPC( 81 ) / 'RCO3 ' / DATA GAS_CHEM_SPC( 82 ) / 'LIMALP ' / DATA GAS_CHEM_SPC( 83 ) / 'ACTP ' / DATA GAS_CHEM_SPC( 84 ) / 'MEKP ' / DATA GAS_CHEM_SPC( 85 ) / 'KETP ' / DATA GAS_CHEM_SPC( 86 ) / 'MCP ' / DATA GAS_CHEM_SPC( 87 ) / 'MVKP ' / DATA GAS_CHEM_SPC( 88 ) / 'UALP ' / DATA GAS_CHEM_SPC( 89 ) / 'DCB3 ' / DATA GAS_CHEM_SPC( 90 ) / 'BALP ' / DATA GAS_CHEM_SPC( 91 ) / 'ADDC ' / DATA GAS_CHEM_SPC( 92 ) / 'MCT ' / DATA GAS_CHEM_SPC( 93 ) / 'MCTO ' / DATA GAS_CHEM_SPC( 94 ) / 'MOH ' / DATA GAS_CHEM_SPC( 95 ) / 'EOH ' / DATA GAS_CHEM_SPC( 96 ) / 'ROH ' / DATA GAS_CHEM_SPC( 97 ) / 'ETEG ' / DATA GAS_CHEM_SPC( 98 ) / 'ISHP ' / DATA GAS_CHEM_SPC( 99 ) / 'IEPOX ' / DATA GAS_CHEM_SPC( 100 ) / 'MAHP ' / DATA GAS_CHEM_SPC( 101 ) / 'ORA2 ' / DATA GAS_CHEM_SPC( 102 ) / 'ORAP ' / DATA GAS_CHEM_SPC( 103 ) / 'PPN ' / DATA GAS_CHEM_SPC( 104 ) / 'MPAN ' / DATA GAS_CHEM_SPC( 105 ) / 'TRPN ' / DATA GAS_CHEM_SPC( 106 ) / 'HOM ' / DATA GAS_CHEM_SPC( 107 ) / 'NALD ' / DATA GAS_CHEM_SPC( 108 ) / 'ISON ' / DATA GAS_CHEM_SPC( 109 ) / 'MCTP ' / DATA GAS_CHEM_SPC( 110 ) / 'OLNN ' / DATA GAS_CHEM_SPC( 111 ) / 'OLND ' / DATA GAS_CHEM_SPC( 112 ) / 'APINP1 ' / DATA GAS_CHEM_SPC( 113 ) / 'APINP2 ' / DATA GAS_CHEM_SPC( 114 ) / 'LIMNP1 ' / DATA GAS_CHEM_SPC( 115 ) / 'LIMNP2 ' / DATA GAS_CHEM_SPC( 116 ) / 'ADCN ' / DATA GAS_CHEM_SPC( 117 ) / 'VROCP4OXY2 ' / DATA GAS_CHEM_SPC( 118 ) / 'VROCN1OXY6 ' / DATA GAS_CHEM_SPC( 119 ) / 'FURANONE ' / DATA GAS_CHEM_SPC( 120 ) / 'VROCP3OXY2 ' / DATA GAS_CHEM_SPC( 121 ) / 'VROCP0OXY4 ' / DATA GAS_CHEM_SPC( 122 ) / 'BAL1 ' / DATA GAS_CHEM_SPC( 123 ) / 'BAL2 ' / DATA GAS_CHEM_SPC( 124 ) / 'ELHOM ' / DATA GAS_CHEM_SPC( 125 ) / 'VROCIOXY ' / DATA GAS_CHEM_SPC( 126 ) / 'SLOWROC ' / DATA GAS_CHEM_SPC( 127 ) / 'ACRO ' / DATA GAS_CHEM_SPC( 128 ) / 'BDE13 ' / DATA GAS_CHEM_SPC( 129 ) / 'BDE13P ' / DATA GAS_CHEM_SPC( 130 ) / 'FURAN ' / DATA GAS_CHEM_SPC( 131 ) / 'FURANO2 ' / DATA GAS_CHEM_SPC( 132 ) / 'PROG ' / DATA GAS_CHEM_SPC( 133 ) / 'SESQ ' / DATA GAS_CHEM_SPC( 134 ) / 'SESQNRO2 ' / DATA GAS_CHEM_SPC( 135 ) / 'VROCN2OXY2 ' / DATA GAS_CHEM_SPC( 136 ) / 'SESQRO2 ' / DATA GAS_CHEM_SPC( 137 ) / 'VROCP0OXY2 ' / DATA GAS_CHEM_SPC( 138 ) / 'VROCP1OXY3 ' / DATA GAS_CHEM_SPC( 139 ) / 'IEPOXP ' / DATA GAS_CHEM_SPC( 140 ) / 'VROCP6ALK ' / DATA GAS_CHEM_SPC( 141 ) / 'VROCP6ALKP ' / DATA GAS_CHEM_SPC( 142 ) / 'VROCP5ALK ' / DATA GAS_CHEM_SPC( 143 ) / 'VROCP5ALKP ' / DATA GAS_CHEM_SPC( 144 ) / 'VROCP4ALK ' / DATA GAS_CHEM_SPC( 145 ) / 'VROCP4ALKP ' / DATA GAS_CHEM_SPC( 146 ) / 'VROCP3ALK ' / DATA GAS_CHEM_SPC( 147 ) / 'VROCP3ALKP ' / DATA GAS_CHEM_SPC( 148 ) / 'VROCP2ALK ' / DATA GAS_CHEM_SPC( 149 ) / 'VROCP2ALKP ' / DATA GAS_CHEM_SPC( 150 ) / 'VROCP1ALK ' / DATA GAS_CHEM_SPC( 151 ) / 'VROCP1ALKP ' / DATA GAS_CHEM_SPC( 152 ) / 'HC10 ' / DATA GAS_CHEM_SPC( 153 ) / 'VROCP6ALKP2 ' / DATA GAS_CHEM_SPC( 154 ) / 'VROCP5ALKP2 ' / DATA GAS_CHEM_SPC( 155 ) / 'VROCP4ALKP2 ' / DATA GAS_CHEM_SPC( 156 ) / 'VROCP2OXY2 ' / DATA GAS_CHEM_SPC( 157 ) / 'VROCP3ALKP2 ' / DATA GAS_CHEM_SPC( 158 ) / 'VROCP1OXY1 ' / DATA GAS_CHEM_SPC( 159 ) / 'VROCP2ALKP2 ' / DATA GAS_CHEM_SPC( 160 ) / 'VROCP1ALKP2 ' / DATA GAS_CHEM_SPC( 161 ) / 'VROCN1OXY1 ' / DATA GAS_CHEM_SPC( 162 ) / 'HC10P2 ' / DATA GAS_CHEM_SPC( 163 ) / 'VROCP6ARO ' / DATA GAS_CHEM_SPC( 164 ) / 'VROCP6AROP ' / DATA GAS_CHEM_SPC( 165 ) / 'VROCN2OXY4 ' / DATA GAS_CHEM_SPC( 166 ) / 'VROCN1OXY3 ' / DATA GAS_CHEM_SPC( 167 ) / 'VROCP5ARO ' / DATA GAS_CHEM_SPC( 168 ) / 'VROCP5AROP ' / DATA GAS_CHEM_SPC( 169 ) / 'NAPH ' / DATA GAS_CHEM_SPC( 170 ) / 'NAPHP ' / DATA GAS_CHEM_SPC( 171 ) / 'VROCN2OXY8 ' / DATA GAS_CHEM_SPC( 172 ) / 'VROCP5OXY1 ' / DATA GAS_CHEM_SPC( 173 ) / 'VROCP6OXY1 ' / LOGICAL :: HALOGEN_PARAMETER = .TRUE. ! The below character and integer arrays list the model species names used in the ! chemical mechanism. The gas species and their order should agree with ! the GC_SPC array for the gas phase chemistry to work correctly. ! If present, the CHEMISTRY_SPC names and species type should agree with the CGRID_SPCS module ! MAPPED_TO_CGRID declares whether CMAQ namelists were used to determine ! the below values of CGRID_INDEX, SPECIES_TYPE, SPECIES_MOLWT, and CONVERT_CONC LOGICAL, PARAMETER, PRIVATE :: F = .FALSE. LOGICAL, PARAMETER, PRIVATE :: T = .TRUE. LOGICAL :: MAPPED_TO_CGRID = .FALSE. TYPE MEMBER CHARACTER( 16 ) :: CHEMISTRY_SPC INTEGER :: CGRID_INDEX CHARACTER( 2 ) :: SPECIES_TYPE REAL( 8 ) :: SPECIES_MOLWT LOGICAL :: CONVERT_CONC END TYPE MEMBER TYPE( MEMBER ) :: SPECIES_LIST( NUMB_MECH_SPC ) = (/ & & MEMBER("O3 ", 1, "GC", 48.00D0, F), & & MEMBER("O3P ", 2, "GC", 16.00D0, F), & & MEMBER("O1D ", 3, "GC", 16.00D0, F), & & MEMBER("H2O2 ", 4, "GC", 34.00D0, F), & & MEMBER("HO ", 5, "GC", 17.00D0, F), & & MEMBER("NO2 ", 6, "GC", 46.00D0, F), & & MEMBER("NO ", 7, "GC", 30.00D0, F), & & MEMBER("NO3 ", 8, "GC", 62.00D0, F), & & MEMBER("HONO ", 9, "GC", 47.00D0, F), & & MEMBER("HNO3 ", 10, "GC", 63.00D0, F), & & MEMBER("HNO4 ", 11, "GC", 79.00D0, F), & & MEMBER("HO2 ", 12, "GC", 33.00D0, F), & & MEMBER("HCHO ", 13, "GC", 30.00D0, F), & & MEMBER("CO ", 14, "GC", 28.00D0, F), & & MEMBER("ACD ", 15, "GC", 44.00D0, F), & & MEMBER("MO2 ", 16, "GC", 47.00D0, F), & & MEMBER("ALD ", 17, "GC", 58.00D0, F), & & MEMBER("ETHP ", 18, "GC", 61.00D0, F), & & MEMBER("ACT ", 19, "GC", 58.00D0, F), & & MEMBER("ACO3 ", 20, "GC", 75.00D0, F), & & MEMBER("UALD ", 21, "GC", 84.10D0, F), & & MEMBER("KET ", 22, "GC", 86.00D0, F), & & MEMBER("PINAL ", 79, "GC", 168.00D0, F), & & MEMBER("HC10P ", 52, "GC", 173.27D0, F), & & MEMBER("LIMAL ", 86, "GC", 168.00D0, F), & & MEMBER("MEK ", 23, "GC", 72.10D0, F), & & MEMBER("HKET ", 24, "GC", 74.00D0, F), & & MEMBER("MACR ", 25, "GC", 70.00D0, F), & & MEMBER("MACP ", 26, "GC", 101.00D0, F), & & MEMBER("XO2 ", 27, "GC", 1.00D0, F), & & MEMBER("MVK ", 28, "GC", 70.10D0, F), & & MEMBER("GLY ", 29, "GC", 58.00D0, F), & & MEMBER("MGLY ", 30, "GC", 72.00D0, F), & & MEMBER("DCB1 ", 31, "GC", 98.00D0, F), & & MEMBER("DCB2 ", 32, "GC", 112.10D0, F), & & MEMBER("BALD ", 33, "GC", 106.00D0, F), & & MEMBER("CHO ", 34, "GC", 139.00D0, F), & & MEMBER("OP1 ", 35, "GC", 48.00D0, F), & & MEMBER("OP2 ", 36, "GC", 62.00D0, F), & & MEMBER("OPB ", 37, "GC", 186.20D0, F), & & MEMBER("OP3 ", 38, "GC", 176.20D0, F), & & MEMBER("PAA ", 39, "GC", 76.00D0, F), & & MEMBER("ONIT ", 40, "GC", 119.00D0, F), & & MEMBER("PAN ", 41, "GC", 121.00D0, F), & & MEMBER("N2O5 ", 42, "GC", 108.00D0, F), & & MEMBER("SO2 ", 43, "GC", 64.00D0, F), & & MEMBER("SULF ", 44, "GC", 98.00D0, F), & & MEMBER("SULRXN ", 45, "GC", 98.00D0, F), & & MEMBER("ETH ", 46, "GC", 30.10D0, F), & & MEMBER("HC3 ", 47, "GC", 44.10D0, F), & & MEMBER("HC3P ", 48, "GC", 75.00D0, F), & & MEMBER("ASOATJ ", 187, "AE", 200.00D0, T), & & MEMBER("HC5 ", 49, "GC", 72.10D0, F), & & MEMBER("HC5P ", 50, "GC", 103.00D0, F), & & MEMBER("ETE ", 54, "GC", 28.10D0, F), & & MEMBER("ETEP ", 55, "GC", 77.00D0, F), & & MEMBER("OLT ", 56, "GC", 42.00D0, F), & & MEMBER("OLTP ", 57, "GC", 91.00D0, F), & & MEMBER("OLI ", 58, "GC", 70.10D0, F), & & MEMBER("OLIP ", 59, "GC", 119.00D0, F), & & MEMBER("ACE ", 60, "GC", 26.00D0, F), & & MEMBER("ORA1 ", 61, "GC", 46.00D0, F), & & MEMBER("BEN ", 62, "GC", 78.11D0, F), & & MEMBER("BENP ", 63, "GC", 159.12D0, F), & & MEMBER("PHEN ", 64, "GC", 110.10D0, F), & & MEMBER("TOL ", 65, "GC", 92.14D0, F), & & MEMBER("TOLP ", 69, "GC", 173.14D0, F), & & MEMBER("CSL ", 66, "GC", 136.20D0, F), & & MEMBER("XYM ", 67, "GC", 106.20D0, F), & & MEMBER("XYMP ", 70, "GC", 187.17D0, F), & & MEMBER("XYE ", 68, "GC", 106.20D0, F), & & MEMBER("XYEP ", 71, "GC", 187.17D0, F), & & MEMBER("ISO ", 72, "GC", 68.10D0, F), & & MEMBER("ISOP ", 73, "GC", 117.00D0, F), & & MEMBER("API ", 74, "GC", 136.40D0, F), & & MEMBER("APIP1 ", 75, "GC", 185.00D0, F), & & MEMBER("APIP2 ", 76, "GC", 185.00D0, F), & & MEMBER("LIM ", 81, "GC", 136.30D0, F), & & MEMBER("LIMP1 ", 82, "GC", 185.00D0, F), & & MEMBER("LIMP2 ", 83, "GC", 185.00D0, F), & & MEMBER("PINALP ", 80, "GC", 199.00D0, F), & & MEMBER("RCO3 ", 90, "GC", 89.00D0, F), & & MEMBER("LIMALP ", 87, "GC", 217.00D0, F), & & MEMBER("ACTP ", 91, "GC", 89.00D0, F), & & MEMBER("MEKP ", 92, "GC", 103.00D0, F), & & MEMBER("KETP ", 93, "GC", 117.00D0, F), & & MEMBER("MCP ", 94, "GC", 119.00D0, F), & & MEMBER("MVKP ", 95, "GC", 119.00D0, F), & & MEMBER("UALP ", 96, "GC", 133.00D0, F), & & MEMBER("DCB3 ", 97, "GC", 84.00D0, F), & & MEMBER("BALP ", 98, "GC", 137.00D0, F), & & MEMBER("ADDC ", 99, "GC", 125.00D0, F), & & MEMBER("MCT ", 100, "GC", 124.10D0, F), & & MEMBER("MCTO ", 101, "GC", 123.00D0, F), & & MEMBER("MOH ", 102, "GC", 32.00D0, F), & & MEMBER("EOH ", 103, "GC", 46.10D0, F), & & MEMBER("ROH ", 104, "GC", 60.00D0, F), & & MEMBER("ETEG ", 105, "GC", 62.10D0, F), & & MEMBER("ISHP ", 106, "GC", 118.00D0, F), & & MEMBER("IEPOX ", 107, "GC", 118.10D0, F), & & MEMBER("MAHP ", 109, "GC", 102.00D0, F), & & MEMBER("ORA2 ", 110, "GC", 60.20D0, F), & & MEMBER("ORAP ", 111, "GC", 91.00D0, F), & & MEMBER("PPN ", 112, "GC", 135.00D0, F), & & MEMBER("MPAN ", 113, "GC", 147.10D0, F), & & MEMBER("TRPN ", 116, "GC", 215.00D0, F), & & MEMBER("HOM ", 88, "GC", 250.00D0, F), & & MEMBER("NALD ", 114, "GC", 105.00D0, F), & & MEMBER("ISON ", 115, "GC", 147.00D0, F), & & MEMBER("MCTP ", 117, "GC", 172.00D0, F), & & MEMBER("OLNN ", 118, "GC", 136.00D0, F), & & MEMBER("OLND ", 119, "GC", 136.00D0, F), & & MEMBER("APINP1 ", 77, "GC", 230.00D0, F), & & MEMBER("APINP2 ", 78, "GC", 230.00D0, F), & & MEMBER("LIMNP1 ", 84, "GC", 230.00D0, F), & & MEMBER("LIMNP2 ", 85, "GC", 230.00D0, F), & & MEMBER("ADCN ", 120, "GC", 155.00D0, F), & & MEMBER("VROCP4OXY2 ", 174, "GC", 158.20D0, F), & & MEMBER("VROCN1OXY6 ", 167, "GC", 190.20D0, F), & & MEMBER("FURANONE ", 129, "GC", 100.10D0, F), & & MEMBER("VROCP3OXY2 ", 173, "GC", 186.30D0, F), & & MEMBER("VROCP0OXY4 ", 169, "GC", 202.30D0, F), & & MEMBER("BAL1 ", 121, "GC", 123.00D0, F), & & MEMBER("BAL2 ", 122, "GC", 109.00D0, F), & & MEMBER("ELHOM ", 89, "GC", 402.00D0, F), & & MEMBER("VROCIOXY ", 130, "GC", 247.00D0, F), & & MEMBER("SLOWROC ", 131, "GC", 75.40D0, F), & & MEMBER("ACRO ", 123, "GC", 56.10D0, F), & & MEMBER("BDE13 ", 124, "GC", 54.10D0, F), & & MEMBER("BDE13P ", 125, "GC", 103.00D0, F), & & MEMBER("FURAN ", 127, "GC", 96.10D0, F), & & MEMBER("FURANO2 ", 128, "GC", 145.10D0, F), & & MEMBER("PROG ", 126, "GC", 76.10D0, F), & & MEMBER("SESQ ", 132, "GC", 204.40D0, F), & & MEMBER("SESQNRO2 ", 134, "GC", 298.40D0, F), & & MEMBER("VROCN2OXY2 ", 162, "GC", 282.40D0, F), & & MEMBER("SESQRO2 ", 133, "GC", 253.40D0, F), & & MEMBER("VROCP0OXY2 ", 168, "GC", 242.40D0, F), & & MEMBER("VROCP1OXY3 ", 171, "GC", 202.30D0, F), & & MEMBER("AGLYJ ", 188, "AE", 66.40D0, T), & & MEMBER("IEPOXP ", 108, "GC", 118.10D0, F), & & MEMBER("AISO3NOSJ ", 262, "AE", 136.20D0, T), & & MEMBER("ASO4J ", 179, "AE", 96.00D0, T), & & MEMBER("AISO3OSJ ", 263, "AE", 216.20D0, T), & & MEMBER("VROCP6ALK ", 149, "GC", 184.37D0, F), & & MEMBER("VROCP6ALKP ", 155, "GC", 215.36D0, F), & & MEMBER("VROCP5ALK ", 148, "GC", 198.39D0, F), & & MEMBER("VROCP5ALKP ", 154, "GC", 229.38D0, F), & & MEMBER("VROCP4ALK ", 147, "GC", 254.50D0, F), & & MEMBER("VROCP4ALKP ", 153, "GC", 285.49D0, F), & & MEMBER("VROCP3ALK ", 146, "GC", 296.58D0, F), & & MEMBER("VROCP3ALKP ", 152, "GC", 327.57D0, F), & & MEMBER("VROCP2ALK ", 145, "GC", 338.66D0, F), & & MEMBER("VROCP2ALKP ", 151, "GC", 369.65D0, F), & & MEMBER("VROCP1ALK ", 144, "GC", 380.75D0, F), & & MEMBER("VROCP1ALKP ", 150, "GC", 411.74D0, F), & & MEMBER("HC10 ", 51, "GC", 142.28D0, F), & & MEMBER("VROCP6ALKP2 ", 161, "GC", 231.36D0, F), & & MEMBER("VROCP5ALKP2 ", 160, "GC", 245.38D0, F), & & MEMBER("VROCP4ALKP2 ", 159, "GC", 301.49D0, F), & & MEMBER("VROCP2OXY2 ", 172, "GC", 200.30D0, F), & & MEMBER("VROCP3ALKP2 ", 158, "GC", 343.57D0, F), & & MEMBER("VROCP1OXY1 ", 170, "GC", 270.50D0, F), & & MEMBER("VROCP2ALKP2 ", 157, "GC", 385.65D0, F), & & MEMBER("VROCP1ALKP2 ", 156, "GC", 427.73D0, F), & & MEMBER("VROCN1OXY1 ", 165, "GC", 312.50D0, F), & & MEMBER("HC10P2 ", 53, "GC", 189.27D0, F), & & MEMBER("VROCP6ARO ", 138, "GC", 176.30D0, F), & & MEMBER("VROCP6AROP ", 140, "GC", 257.30D0, F), & & MEMBER("VROCN2OXY4 ", 163, "GC", 232.30D0, F), & & MEMBER("VROCN1OXY3 ", 166, "GC", 230.30D0, F), & & MEMBER("VROCP5ARO ", 137, "GC", 190.33D0, F), & & MEMBER("VROCP5AROP ", 139, "GC", 271.33D0, F), & & MEMBER("NAPH ", 135, "GC", 128.17D0, F), & & MEMBER("NAPHP ", 136, "GC", 209.17D0, F), & & MEMBER("VROCN2OXY8 ", 164, "GC", 194.20D0, F), & & MEMBER("VROCP5OXY1 ", 175, "GC", 170.30D0, F), & & MEMBER("VROCP6OXY1 ", 176, "GC", 142.20D0, F) /) DATA CHEMISTRY_SPC( 1 ), SPECIES_MOLWT( 1 ) / 'O3 ', 48.00D0 / DATA CHEMISTRY_SPC( 2 ), SPECIES_MOLWT( 2 ) / 'O3P ', 16.00D0 / DATA CHEMISTRY_SPC( 3 ), SPECIES_MOLWT( 3 ) / 'O1D ', 16.00D0 / DATA CHEMISTRY_SPC( 4 ), SPECIES_MOLWT( 4 ) / 'H2O2 ', 34.00D0 / DATA CHEMISTRY_SPC( 5 ), SPECIES_MOLWT( 5 ) / 'HO ', 17.00D0 / DATA CHEMISTRY_SPC( 6 ), SPECIES_MOLWT( 6 ) / 'NO2 ', 46.00D0 / DATA CHEMISTRY_SPC( 7 ), SPECIES_MOLWT( 7 ) / 'NO ', 30.00D0 / DATA CHEMISTRY_SPC( 8 ), SPECIES_MOLWT( 8 ) / 'NO3 ', 62.00D0 / DATA CHEMISTRY_SPC( 9 ), SPECIES_MOLWT( 9 ) / 'HONO ', 47.00D0 / DATA CHEMISTRY_SPC( 10 ), SPECIES_MOLWT( 10 ) / 'HNO3 ', 63.00D0 / DATA CHEMISTRY_SPC( 11 ), SPECIES_MOLWT( 11 ) / 'HNO4 ', 79.00D0 / DATA CHEMISTRY_SPC( 12 ), SPECIES_MOLWT( 12 ) / 'HO2 ', 33.00D0 / DATA CHEMISTRY_SPC( 13 ), SPECIES_MOLWT( 13 ) / 'HCHO ', 30.00D0 / DATA CHEMISTRY_SPC( 14 ), SPECIES_MOLWT( 14 ) / 'CO ', 28.00D0 / DATA CHEMISTRY_SPC( 15 ), SPECIES_MOLWT( 15 ) / 'ACD ', 44.00D0 / DATA CHEMISTRY_SPC( 16 ), SPECIES_MOLWT( 16 ) / 'MO2 ', 47.00D0 / DATA CHEMISTRY_SPC( 17 ), SPECIES_MOLWT( 17 ) / 'ALD ', 58.00D0 / DATA CHEMISTRY_SPC( 18 ), SPECIES_MOLWT( 18 ) / 'ETHP ', 61.00D0 / DATA CHEMISTRY_SPC( 19 ), SPECIES_MOLWT( 19 ) / 'ACT ', 58.00D0 / DATA CHEMISTRY_SPC( 20 ), SPECIES_MOLWT( 20 ) / 'ACO3 ', 75.00D0 / DATA CHEMISTRY_SPC( 21 ), SPECIES_MOLWT( 21 ) / 'UALD ', 84.10D0 / DATA CHEMISTRY_SPC( 22 ), SPECIES_MOLWT( 22 ) / 'KET ', 86.00D0 / DATA CHEMISTRY_SPC( 23 ), SPECIES_MOLWT( 23 ) / 'PINAL ', 168.00D0 / DATA CHEMISTRY_SPC( 24 ), SPECIES_MOLWT( 24 ) / 'HC10P ', 173.27D0 / DATA CHEMISTRY_SPC( 25 ), SPECIES_MOLWT( 25 ) / 'LIMAL ', 168.00D0 / DATA CHEMISTRY_SPC( 26 ), SPECIES_MOLWT( 26 ) / 'MEK ', 72.10D0 / DATA CHEMISTRY_SPC( 27 ), SPECIES_MOLWT( 27 ) / 'HKET ', 74.00D0 / DATA CHEMISTRY_SPC( 28 ), SPECIES_MOLWT( 28 ) / 'MACR ', 70.00D0 / DATA CHEMISTRY_SPC( 29 ), SPECIES_MOLWT( 29 ) / 'MACP ', 101.00D0 / DATA CHEMISTRY_SPC( 30 ), SPECIES_MOLWT( 30 ) / 'XO2 ', 1.00D0 / DATA CHEMISTRY_SPC( 31 ), SPECIES_MOLWT( 31 ) / 'MVK ', 70.10D0 / DATA CHEMISTRY_SPC( 32 ), SPECIES_MOLWT( 32 ) / 'GLY ', 58.00D0 / DATA CHEMISTRY_SPC( 33 ), SPECIES_MOLWT( 33 ) / 'MGLY ', 72.00D0 / DATA CHEMISTRY_SPC( 34 ), SPECIES_MOLWT( 34 ) / 'DCB1 ', 98.00D0 / DATA CHEMISTRY_SPC( 35 ), SPECIES_MOLWT( 35 ) / 'DCB2 ', 112.10D0 / DATA CHEMISTRY_SPC( 36 ), SPECIES_MOLWT( 36 ) / 'BALD ', 106.00D0 / DATA CHEMISTRY_SPC( 37 ), SPECIES_MOLWT( 37 ) / 'CHO ', 139.00D0 / DATA CHEMISTRY_SPC( 38 ), SPECIES_MOLWT( 38 ) / 'OP1 ', 48.00D0 / DATA CHEMISTRY_SPC( 39 ), SPECIES_MOLWT( 39 ) / 'OP2 ', 62.00D0 / DATA CHEMISTRY_SPC( 40 ), SPECIES_MOLWT( 40 ) / 'OPB ', 186.20D0 / DATA CHEMISTRY_SPC( 41 ), SPECIES_MOLWT( 41 ) / 'OP3 ', 176.20D0 / DATA CHEMISTRY_SPC( 42 ), SPECIES_MOLWT( 42 ) / 'PAA ', 76.00D0 / DATA CHEMISTRY_SPC( 43 ), SPECIES_MOLWT( 43 ) / 'ONIT ', 119.00D0 / DATA CHEMISTRY_SPC( 44 ), SPECIES_MOLWT( 44 ) / 'PAN ', 121.00D0 / DATA CHEMISTRY_SPC( 45 ), SPECIES_MOLWT( 45 ) / 'N2O5 ', 108.00D0 / DATA CHEMISTRY_SPC( 46 ), SPECIES_MOLWT( 46 ) / 'SO2 ', 64.00D0 / DATA CHEMISTRY_SPC( 47 ), SPECIES_MOLWT( 47 ) / 'SULF ', 98.00D0 / DATA CHEMISTRY_SPC( 48 ), SPECIES_MOLWT( 48 ) / 'SULRXN ', 98.00D0 / DATA CHEMISTRY_SPC( 49 ), SPECIES_MOLWT( 49 ) / 'ETH ', 30.10D0 / DATA CHEMISTRY_SPC( 50 ), SPECIES_MOLWT( 50 ) / 'HC3 ', 44.10D0 / DATA CHEMISTRY_SPC( 51 ), SPECIES_MOLWT( 51 ) / 'HC3P ', 75.00D0 / DATA CHEMISTRY_SPC( 52 ), SPECIES_MOLWT( 52 ) / 'ASOATJ ', 200.00D0 / DATA CHEMISTRY_SPC( 53 ), SPECIES_MOLWT( 53 ) / 'HC5 ', 72.10D0 / DATA CHEMISTRY_SPC( 54 ), SPECIES_MOLWT( 54 ) / 'HC5P ', 103.00D0 / DATA CHEMISTRY_SPC( 55 ), SPECIES_MOLWT( 55 ) / 'ETE ', 28.10D0 / DATA CHEMISTRY_SPC( 56 ), SPECIES_MOLWT( 56 ) / 'ETEP ', 77.00D0 / DATA CHEMISTRY_SPC( 57 ), SPECIES_MOLWT( 57 ) / 'OLT ', 42.00D0 / DATA CHEMISTRY_SPC( 58 ), SPECIES_MOLWT( 58 ) / 'OLTP ', 91.00D0 / DATA CHEMISTRY_SPC( 59 ), SPECIES_MOLWT( 59 ) / 'OLI ', 70.10D0 / DATA CHEMISTRY_SPC( 60 ), SPECIES_MOLWT( 60 ) / 'OLIP ', 119.00D0 / DATA CHEMISTRY_SPC( 61 ), SPECIES_MOLWT( 61 ) / 'ACE ', 26.00D0 / DATA CHEMISTRY_SPC( 62 ), SPECIES_MOLWT( 62 ) / 'ORA1 ', 46.00D0 / DATA CHEMISTRY_SPC( 63 ), SPECIES_MOLWT( 63 ) / 'BEN ', 78.11D0 / DATA CHEMISTRY_SPC( 64 ), SPECIES_MOLWT( 64 ) / 'BENP ', 159.12D0 / DATA CHEMISTRY_SPC( 65 ), SPECIES_MOLWT( 65 ) / 'PHEN ', 110.10D0 / DATA CHEMISTRY_SPC( 66 ), SPECIES_MOLWT( 66 ) / 'TOL ', 92.14D0 / DATA CHEMISTRY_SPC( 67 ), SPECIES_MOLWT( 67 ) / 'TOLP ', 173.14D0 / DATA CHEMISTRY_SPC( 68 ), SPECIES_MOLWT( 68 ) / 'CSL ', 136.20D0 / DATA CHEMISTRY_SPC( 69 ), SPECIES_MOLWT( 69 ) / 'XYM ', 106.20D0 / DATA CHEMISTRY_SPC( 70 ), SPECIES_MOLWT( 70 ) / 'XYMP ', 187.17D0 / DATA CHEMISTRY_SPC( 71 ), SPECIES_MOLWT( 71 ) / 'XYE ', 106.20D0 / DATA CHEMISTRY_SPC( 72 ), SPECIES_MOLWT( 72 ) / 'XYEP ', 187.17D0 / DATA CHEMISTRY_SPC( 73 ), SPECIES_MOLWT( 73 ) / 'ISO ', 68.10D0 / DATA CHEMISTRY_SPC( 74 ), SPECIES_MOLWT( 74 ) / 'ISOP ', 117.00D0 / DATA CHEMISTRY_SPC( 75 ), SPECIES_MOLWT( 75 ) / 'API ', 136.40D0 / DATA CHEMISTRY_SPC( 76 ), SPECIES_MOLWT( 76 ) / 'APIP1 ', 185.00D0 / DATA CHEMISTRY_SPC( 77 ), SPECIES_MOLWT( 77 ) / 'APIP2 ', 185.00D0 / DATA CHEMISTRY_SPC( 78 ), SPECIES_MOLWT( 78 ) / 'LIM ', 136.30D0 / DATA CHEMISTRY_SPC( 79 ), SPECIES_MOLWT( 79 ) / 'LIMP1 ', 185.00D0 / DATA CHEMISTRY_SPC( 80 ), SPECIES_MOLWT( 80 ) / 'LIMP2 ', 185.00D0 / DATA CHEMISTRY_SPC( 81 ), SPECIES_MOLWT( 81 ) / 'PINALP ', 199.00D0 / DATA CHEMISTRY_SPC( 82 ), SPECIES_MOLWT( 82 ) / 'RCO3 ', 89.00D0 / DATA CHEMISTRY_SPC( 83 ), SPECIES_MOLWT( 83 ) / 'LIMALP ', 217.00D0 / DATA CHEMISTRY_SPC( 84 ), SPECIES_MOLWT( 84 ) / 'ACTP ', 89.00D0 / DATA CHEMISTRY_SPC( 85 ), SPECIES_MOLWT( 85 ) / 'MEKP ', 103.00D0 / DATA CHEMISTRY_SPC( 86 ), SPECIES_MOLWT( 86 ) / 'KETP ', 117.00D0 / DATA CHEMISTRY_SPC( 87 ), SPECIES_MOLWT( 87 ) / 'MCP ', 119.00D0 / DATA CHEMISTRY_SPC( 88 ), SPECIES_MOLWT( 88 ) / 'MVKP ', 119.00D0 / DATA CHEMISTRY_SPC( 89 ), SPECIES_MOLWT( 89 ) / 'UALP ', 133.00D0 / DATA CHEMISTRY_SPC( 90 ), SPECIES_MOLWT( 90 ) / 'DCB3 ', 84.00D0 / DATA CHEMISTRY_SPC( 91 ), SPECIES_MOLWT( 91 ) / 'BALP ', 137.00D0 / DATA CHEMISTRY_SPC( 92 ), SPECIES_MOLWT( 92 ) / 'ADDC ', 125.00D0 / DATA CHEMISTRY_SPC( 93 ), SPECIES_MOLWT( 93 ) / 'MCT ', 124.10D0 / DATA CHEMISTRY_SPC( 94 ), SPECIES_MOLWT( 94 ) / 'MCTO ', 123.00D0 / DATA CHEMISTRY_SPC( 95 ), SPECIES_MOLWT( 95 ) / 'MOH ', 32.00D0 / DATA CHEMISTRY_SPC( 96 ), SPECIES_MOLWT( 96 ) / 'EOH ', 46.10D0 / DATA CHEMISTRY_SPC( 97 ), SPECIES_MOLWT( 97 ) / 'ROH ', 60.00D0 / DATA CHEMISTRY_SPC( 98 ), SPECIES_MOLWT( 98 ) / 'ETEG ', 62.10D0 / DATA CHEMISTRY_SPC( 99 ), SPECIES_MOLWT( 99 ) / 'ISHP ', 118.00D0 / DATA CHEMISTRY_SPC( 100 ), SPECIES_MOLWT( 100 ) / 'IEPOX ', 118.10D0 / DATA CHEMISTRY_SPC( 101 ), SPECIES_MOLWT( 101 ) / 'MAHP ', 102.00D0 / DATA CHEMISTRY_SPC( 102 ), SPECIES_MOLWT( 102 ) / 'ORA2 ', 60.20D0 / DATA CHEMISTRY_SPC( 103 ), SPECIES_MOLWT( 103 ) / 'ORAP ', 91.00D0 / DATA CHEMISTRY_SPC( 104 ), SPECIES_MOLWT( 104 ) / 'PPN ', 135.00D0 / DATA CHEMISTRY_SPC( 105 ), SPECIES_MOLWT( 105 ) / 'MPAN ', 147.10D0 / DATA CHEMISTRY_SPC( 106 ), SPECIES_MOLWT( 106 ) / 'TRPN ', 215.00D0 / DATA CHEMISTRY_SPC( 107 ), SPECIES_MOLWT( 107 ) / 'HOM ', 250.00D0 / DATA CHEMISTRY_SPC( 108 ), SPECIES_MOLWT( 108 ) / 'NALD ', 105.00D0 / DATA CHEMISTRY_SPC( 109 ), SPECIES_MOLWT( 109 ) / 'ISON ', 147.00D0 / DATA CHEMISTRY_SPC( 110 ), SPECIES_MOLWT( 110 ) / 'MCTP ', 172.00D0 / DATA CHEMISTRY_SPC( 111 ), SPECIES_MOLWT( 111 ) / 'OLNN ', 136.00D0 / DATA CHEMISTRY_SPC( 112 ), SPECIES_MOLWT( 112 ) / 'OLND ', 136.00D0 / DATA CHEMISTRY_SPC( 113 ), SPECIES_MOLWT( 113 ) / 'APINP1 ', 230.00D0 / DATA CHEMISTRY_SPC( 114 ), SPECIES_MOLWT( 114 ) / 'APINP2 ', 230.00D0 / DATA CHEMISTRY_SPC( 115 ), SPECIES_MOLWT( 115 ) / 'LIMNP1 ', 230.00D0 / DATA CHEMISTRY_SPC( 116 ), SPECIES_MOLWT( 116 ) / 'LIMNP2 ', 230.00D0 / DATA CHEMISTRY_SPC( 117 ), SPECIES_MOLWT( 117 ) / 'ADCN ', 155.00D0 / DATA CHEMISTRY_SPC( 118 ), SPECIES_MOLWT( 118 ) / 'VROCP4OXY2 ', 158.20D0 / DATA CHEMISTRY_SPC( 119 ), SPECIES_MOLWT( 119 ) / 'VROCN1OXY6 ', 190.20D0 / DATA CHEMISTRY_SPC( 120 ), SPECIES_MOLWT( 120 ) / 'FURANONE ', 100.10D0 / DATA CHEMISTRY_SPC( 121 ), SPECIES_MOLWT( 121 ) / 'VROCP3OXY2 ', 186.30D0 / DATA CHEMISTRY_SPC( 122 ), SPECIES_MOLWT( 122 ) / 'VROCP0OXY4 ', 202.30D0 / DATA CHEMISTRY_SPC( 123 ), SPECIES_MOLWT( 123 ) / 'BAL1 ', 123.00D0 / DATA CHEMISTRY_SPC( 124 ), SPECIES_MOLWT( 124 ) / 'BAL2 ', 109.00D0 / DATA CHEMISTRY_SPC( 125 ), SPECIES_MOLWT( 125 ) / 'ELHOM ', 402.00D0 / DATA CHEMISTRY_SPC( 126 ), SPECIES_MOLWT( 126 ) / 'VROCIOXY ', 247.00D0 / DATA CHEMISTRY_SPC( 127 ), SPECIES_MOLWT( 127 ) / 'SLOWROC ', 75.40D0 / DATA CHEMISTRY_SPC( 128 ), SPECIES_MOLWT( 128 ) / 'ACRO ', 56.10D0 / DATA CHEMISTRY_SPC( 129 ), SPECIES_MOLWT( 129 ) / 'BDE13 ', 54.10D0 / DATA CHEMISTRY_SPC( 130 ), SPECIES_MOLWT( 130 ) / 'BDE13P ', 103.00D0 / DATA CHEMISTRY_SPC( 131 ), SPECIES_MOLWT( 131 ) / 'FURAN ', 96.10D0 / DATA CHEMISTRY_SPC( 132 ), SPECIES_MOLWT( 132 ) / 'FURANO2 ', 145.10D0 / DATA CHEMISTRY_SPC( 133 ), SPECIES_MOLWT( 133 ) / 'PROG ', 76.10D0 / DATA CHEMISTRY_SPC( 134 ), SPECIES_MOLWT( 134 ) / 'SESQ ', 204.40D0 / DATA CHEMISTRY_SPC( 135 ), SPECIES_MOLWT( 135 ) / 'SESQNRO2 ', 298.40D0 / DATA CHEMISTRY_SPC( 136 ), SPECIES_MOLWT( 136 ) / 'VROCN2OXY2 ', 282.40D0 / DATA CHEMISTRY_SPC( 137 ), SPECIES_MOLWT( 137 ) / 'SESQRO2 ', 253.40D0 / DATA CHEMISTRY_SPC( 138 ), SPECIES_MOLWT( 138 ) / 'VROCP0OXY2 ', 242.40D0 / DATA CHEMISTRY_SPC( 139 ), SPECIES_MOLWT( 139 ) / 'VROCP1OXY3 ', 202.30D0 / DATA CHEMISTRY_SPC( 140 ), SPECIES_MOLWT( 140 ) / 'AGLYJ ', 66.40D0 / DATA CHEMISTRY_SPC( 141 ), SPECIES_MOLWT( 141 ) / 'IEPOXP ', 118.10D0 / DATA CHEMISTRY_SPC( 142 ), SPECIES_MOLWT( 142 ) / 'AISO3NOSJ ', 136.20D0 / DATA CHEMISTRY_SPC( 143 ), SPECIES_MOLWT( 143 ) / 'ASO4J ', 96.00D0 / DATA CHEMISTRY_SPC( 144 ), SPECIES_MOLWT( 144 ) / 'AISO3OSJ ', 216.20D0 / DATA CHEMISTRY_SPC( 145 ), SPECIES_MOLWT( 145 ) / 'VROCP6ALK ', 184.37D0 / DATA CHEMISTRY_SPC( 146 ), SPECIES_MOLWT( 146 ) / 'VROCP6ALKP ', 215.36D0 / DATA CHEMISTRY_SPC( 147 ), SPECIES_MOLWT( 147 ) / 'VROCP5ALK ', 198.39D0 / DATA CHEMISTRY_SPC( 148 ), SPECIES_MOLWT( 148 ) / 'VROCP5ALKP ', 229.38D0 / DATA CHEMISTRY_SPC( 149 ), SPECIES_MOLWT( 149 ) / 'VROCP4ALK ', 254.50D0 / DATA CHEMISTRY_SPC( 150 ), SPECIES_MOLWT( 150 ) / 'VROCP4ALKP ', 285.49D0 / DATA CHEMISTRY_SPC( 151 ), SPECIES_MOLWT( 151 ) / 'VROCP3ALK ', 296.58D0 / DATA CHEMISTRY_SPC( 152 ), SPECIES_MOLWT( 152 ) / 'VROCP3ALKP ', 327.57D0 / DATA CHEMISTRY_SPC( 153 ), SPECIES_MOLWT( 153 ) / 'VROCP2ALK ', 338.66D0 / DATA CHEMISTRY_SPC( 154 ), SPECIES_MOLWT( 154 ) / 'VROCP2ALKP ', 369.65D0 / DATA CHEMISTRY_SPC( 155 ), SPECIES_MOLWT( 155 ) / 'VROCP1ALK ', 380.75D0 / DATA CHEMISTRY_SPC( 156 ), SPECIES_MOLWT( 156 ) / 'VROCP1ALKP ', 411.74D0 / DATA CHEMISTRY_SPC( 157 ), SPECIES_MOLWT( 157 ) / 'HC10 ', 142.28D0 / DATA CHEMISTRY_SPC( 158 ), SPECIES_MOLWT( 158 ) / 'VROCP6ALKP2 ', 231.36D0 / DATA CHEMISTRY_SPC( 159 ), SPECIES_MOLWT( 159 ) / 'VROCP5ALKP2 ', 245.38D0 / DATA CHEMISTRY_SPC( 160 ), SPECIES_MOLWT( 160 ) / 'VROCP4ALKP2 ', 301.49D0 / DATA CHEMISTRY_SPC( 161 ), SPECIES_MOLWT( 161 ) / 'VROCP2OXY2 ', 200.30D0 / DATA CHEMISTRY_SPC( 162 ), SPECIES_MOLWT( 162 ) / 'VROCP3ALKP2 ', 343.57D0 / DATA CHEMISTRY_SPC( 163 ), SPECIES_MOLWT( 163 ) / 'VROCP1OXY1 ', 270.50D0 / DATA CHEMISTRY_SPC( 164 ), SPECIES_MOLWT( 164 ) / 'VROCP2ALKP2 ', 385.65D0 / DATA CHEMISTRY_SPC( 165 ), SPECIES_MOLWT( 165 ) / 'VROCP1ALKP2 ', 427.73D0 / DATA CHEMISTRY_SPC( 166 ), SPECIES_MOLWT( 166 ) / 'VROCN1OXY1 ', 312.50D0 / DATA CHEMISTRY_SPC( 167 ), SPECIES_MOLWT( 167 ) / 'HC10P2 ', 189.27D0 / DATA CHEMISTRY_SPC( 168 ), SPECIES_MOLWT( 168 ) / 'VROCP6ARO ', 176.30D0 / DATA CHEMISTRY_SPC( 169 ), SPECIES_MOLWT( 169 ) / 'VROCP6AROP ', 257.30D0 / DATA CHEMISTRY_SPC( 170 ), SPECIES_MOLWT( 170 ) / 'VROCN2OXY4 ', 232.30D0 / DATA CHEMISTRY_SPC( 171 ), SPECIES_MOLWT( 171 ) / 'VROCN1OXY3 ', 230.30D0 / DATA CHEMISTRY_SPC( 172 ), SPECIES_MOLWT( 172 ) / 'VROCP5ARO ', 190.33D0 / DATA CHEMISTRY_SPC( 173 ), SPECIES_MOLWT( 173 ) / 'VROCP5AROP ', 271.33D0 / DATA CHEMISTRY_SPC( 174 ), SPECIES_MOLWT( 174 ) / 'NAPH ', 128.17D0 / DATA CHEMISTRY_SPC( 175 ), SPECIES_MOLWT( 175 ) / 'NAPHP ', 209.17D0 / DATA CHEMISTRY_SPC( 176 ), SPECIES_MOLWT( 176 ) / 'VROCN2OXY8 ', 194.20D0 / DATA CHEMISTRY_SPC( 177 ), SPECIES_MOLWT( 177 ) / 'VROCP5OXY1 ', 170.30D0 / DATA CHEMISTRY_SPC( 178 ), SPECIES_MOLWT( 178 ) / 'VROCP6OXY1 ', 142.20D0 / DATA CGRID_INDEX( 1 ), SPECIES_TYPE( 1 ), CONVERT_CONC( 1 ) / 1, 'GC', F / ! O3 DATA CGRID_INDEX( 2 ), SPECIES_TYPE( 2 ), CONVERT_CONC( 2 ) / 2, 'GC', F / ! O3P DATA CGRID_INDEX( 3 ), SPECIES_TYPE( 3 ), CONVERT_CONC( 3 ) / 3, 'GC', F / ! O1D DATA CGRID_INDEX( 4 ), SPECIES_TYPE( 4 ), CONVERT_CONC( 4 ) / 4, 'GC', F / ! H2O2 DATA CGRID_INDEX( 5 ), SPECIES_TYPE( 5 ), CONVERT_CONC( 5 ) / 5, 'GC', F / ! HO DATA CGRID_INDEX( 6 ), SPECIES_TYPE( 6 ), CONVERT_CONC( 6 ) / 6, 'GC', F / ! NO2 DATA CGRID_INDEX( 7 ), SPECIES_TYPE( 7 ), CONVERT_CONC( 7 ) / 7, 'GC', F / ! NO DATA CGRID_INDEX( 8 ), SPECIES_TYPE( 8 ), CONVERT_CONC( 8 ) / 8, 'GC', F / ! NO3 DATA CGRID_INDEX( 9 ), SPECIES_TYPE( 9 ), CONVERT_CONC( 9 ) / 9, 'GC', F / ! HONO DATA CGRID_INDEX( 10 ), SPECIES_TYPE( 10 ), CONVERT_CONC( 10 ) / 10, 'GC', F / ! HNO3 DATA CGRID_INDEX( 11 ), SPECIES_TYPE( 11 ), CONVERT_CONC( 11 ) / 11, 'GC', F / ! HNO4 DATA CGRID_INDEX( 12 ), SPECIES_TYPE( 12 ), CONVERT_CONC( 12 ) / 12, 'GC', F / ! HO2 DATA CGRID_INDEX( 13 ), SPECIES_TYPE( 13 ), CONVERT_CONC( 13 ) / 13, 'GC', F / ! HCHO DATA CGRID_INDEX( 14 ), SPECIES_TYPE( 14 ), CONVERT_CONC( 14 ) / 14, 'GC', F / ! CO DATA CGRID_INDEX( 15 ), SPECIES_TYPE( 15 ), CONVERT_CONC( 15 ) / 15, 'GC', F / ! ACD DATA CGRID_INDEX( 16 ), SPECIES_TYPE( 16 ), CONVERT_CONC( 16 ) / 16, 'GC', F / ! MO2 DATA CGRID_INDEX( 17 ), SPECIES_TYPE( 17 ), CONVERT_CONC( 17 ) / 17, 'GC', F / ! ALD DATA CGRID_INDEX( 18 ), SPECIES_TYPE( 18 ), CONVERT_CONC( 18 ) / 18, 'GC', F / ! ETHP DATA CGRID_INDEX( 19 ), SPECIES_TYPE( 19 ), CONVERT_CONC( 19 ) / 19, 'GC', F / ! ACT DATA CGRID_INDEX( 20 ), SPECIES_TYPE( 20 ), CONVERT_CONC( 20 ) / 20, 'GC', F / ! ACO3 DATA CGRID_INDEX( 21 ), SPECIES_TYPE( 21 ), CONVERT_CONC( 21 ) / 21, 'GC', F / ! UALD DATA CGRID_INDEX( 22 ), SPECIES_TYPE( 22 ), CONVERT_CONC( 22 ) / 22, 'GC', F / ! KET DATA CGRID_INDEX( 23 ), SPECIES_TYPE( 23 ), CONVERT_CONC( 23 ) / 79, 'GC', F / ! PINAL DATA CGRID_INDEX( 24 ), SPECIES_TYPE( 24 ), CONVERT_CONC( 24 ) / 52, 'GC', F / ! HC10P DATA CGRID_INDEX( 25 ), SPECIES_TYPE( 25 ), CONVERT_CONC( 25 ) / 86, 'GC', F / ! LIMAL DATA CGRID_INDEX( 26 ), SPECIES_TYPE( 26 ), CONVERT_CONC( 26 ) / 23, 'GC', F / ! MEK DATA CGRID_INDEX( 27 ), SPECIES_TYPE( 27 ), CONVERT_CONC( 27 ) / 24, 'GC', F / ! HKET DATA CGRID_INDEX( 28 ), SPECIES_TYPE( 28 ), CONVERT_CONC( 28 ) / 25, 'GC', F / ! MACR DATA CGRID_INDEX( 29 ), SPECIES_TYPE( 29 ), CONVERT_CONC( 29 ) / 26, 'GC', F / ! MACP DATA CGRID_INDEX( 30 ), SPECIES_TYPE( 30 ), CONVERT_CONC( 30 ) / 27, 'GC', F / ! XO2 DATA CGRID_INDEX( 31 ), SPECIES_TYPE( 31 ), CONVERT_CONC( 31 ) / 28, 'GC', F / ! MVK DATA CGRID_INDEX( 32 ), SPECIES_TYPE( 32 ), CONVERT_CONC( 32 ) / 29, 'GC', F / ! GLY DATA CGRID_INDEX( 33 ), SPECIES_TYPE( 33 ), CONVERT_CONC( 33 ) / 30, 'GC', F / ! MGLY DATA CGRID_INDEX( 34 ), SPECIES_TYPE( 34 ), CONVERT_CONC( 34 ) / 31, 'GC', F / ! DCB1 DATA CGRID_INDEX( 35 ), SPECIES_TYPE( 35 ), CONVERT_CONC( 35 ) / 32, 'GC', F / ! DCB2 DATA CGRID_INDEX( 36 ), SPECIES_TYPE( 36 ), CONVERT_CONC( 36 ) / 33, 'GC', F / ! BALD DATA CGRID_INDEX( 37 ), SPECIES_TYPE( 37 ), CONVERT_CONC( 37 ) / 34, 'GC', F / ! CHO DATA CGRID_INDEX( 38 ), SPECIES_TYPE( 38 ), CONVERT_CONC( 38 ) / 35, 'GC', F / ! OP1 DATA CGRID_INDEX( 39 ), SPECIES_TYPE( 39 ), CONVERT_CONC( 39 ) / 36, 'GC', F / ! OP2 DATA CGRID_INDEX( 40 ), SPECIES_TYPE( 40 ), CONVERT_CONC( 40 ) / 37, 'GC', F / ! OPB DATA CGRID_INDEX( 41 ), SPECIES_TYPE( 41 ), CONVERT_CONC( 41 ) / 38, 'GC', F / ! OP3 DATA CGRID_INDEX( 42 ), SPECIES_TYPE( 42 ), CONVERT_CONC( 42 ) / 39, 'GC', F / ! PAA DATA CGRID_INDEX( 43 ), SPECIES_TYPE( 43 ), CONVERT_CONC( 43 ) / 40, 'GC', F / ! ONIT DATA CGRID_INDEX( 44 ), SPECIES_TYPE( 44 ), CONVERT_CONC( 44 ) / 41, 'GC', F / ! PAN DATA CGRID_INDEX( 45 ), SPECIES_TYPE( 45 ), CONVERT_CONC( 45 ) / 42, 'GC', F / ! N2O5 DATA CGRID_INDEX( 46 ), SPECIES_TYPE( 46 ), CONVERT_CONC( 46 ) / 43, 'GC', F / ! SO2 DATA CGRID_INDEX( 47 ), SPECIES_TYPE( 47 ), CONVERT_CONC( 47 ) / 44, 'GC', F / ! SULF DATA CGRID_INDEX( 48 ), SPECIES_TYPE( 48 ), CONVERT_CONC( 48 ) / 45, 'GC', F / ! SULRXN DATA CGRID_INDEX( 49 ), SPECIES_TYPE( 49 ), CONVERT_CONC( 49 ) / 46, 'GC', F / ! ETH DATA CGRID_INDEX( 50 ), SPECIES_TYPE( 50 ), CONVERT_CONC( 50 ) / 47, 'GC', F / ! HC3 DATA CGRID_INDEX( 51 ), SPECIES_TYPE( 51 ), CONVERT_CONC( 51 ) / 48, 'GC', F / ! HC3P DATA CGRID_INDEX( 52 ), SPECIES_TYPE( 52 ), CONVERT_CONC( 52 ) / 187, 'AE', T / ! ASOATJ DATA CGRID_INDEX( 53 ), SPECIES_TYPE( 53 ), CONVERT_CONC( 53 ) / 49, 'GC', F / ! HC5 DATA CGRID_INDEX( 54 ), SPECIES_TYPE( 54 ), CONVERT_CONC( 54 ) / 50, 'GC', F / ! HC5P DATA CGRID_INDEX( 55 ), SPECIES_TYPE( 55 ), CONVERT_CONC( 55 ) / 54, 'GC', F / ! ETE DATA CGRID_INDEX( 56 ), SPECIES_TYPE( 56 ), CONVERT_CONC( 56 ) / 55, 'GC', F / ! ETEP DATA CGRID_INDEX( 57 ), SPECIES_TYPE( 57 ), CONVERT_CONC( 57 ) / 56, 'GC', F / ! OLT DATA CGRID_INDEX( 58 ), SPECIES_TYPE( 58 ), CONVERT_CONC( 58 ) / 57, 'GC', F / ! OLTP DATA CGRID_INDEX( 59 ), SPECIES_TYPE( 59 ), CONVERT_CONC( 59 ) / 58, 'GC', F / ! OLI DATA CGRID_INDEX( 60 ), SPECIES_TYPE( 60 ), CONVERT_CONC( 60 ) / 59, 'GC', F / ! OLIP DATA CGRID_INDEX( 61 ), SPECIES_TYPE( 61 ), CONVERT_CONC( 61 ) / 60, 'GC', F / ! ACE DATA CGRID_INDEX( 62 ), SPECIES_TYPE( 62 ), CONVERT_CONC( 62 ) / 61, 'GC', F / ! ORA1 DATA CGRID_INDEX( 63 ), SPECIES_TYPE( 63 ), CONVERT_CONC( 63 ) / 62, 'GC', F / ! BEN DATA CGRID_INDEX( 64 ), SPECIES_TYPE( 64 ), CONVERT_CONC( 64 ) / 63, 'GC', F / ! BENP DATA CGRID_INDEX( 65 ), SPECIES_TYPE( 65 ), CONVERT_CONC( 65 ) / 64, 'GC', F / ! PHEN DATA CGRID_INDEX( 66 ), SPECIES_TYPE( 66 ), CONVERT_CONC( 66 ) / 65, 'GC', F / ! TOL DATA CGRID_INDEX( 67 ), SPECIES_TYPE( 67 ), CONVERT_CONC( 67 ) / 69, 'GC', F / ! TOLP DATA CGRID_INDEX( 68 ), SPECIES_TYPE( 68 ), CONVERT_CONC( 68 ) / 66, 'GC', F / ! CSL DATA CGRID_INDEX( 69 ), SPECIES_TYPE( 69 ), CONVERT_CONC( 69 ) / 67, 'GC', F / ! XYM DATA CGRID_INDEX( 70 ), SPECIES_TYPE( 70 ), CONVERT_CONC( 70 ) / 70, 'GC', F / ! XYMP DATA CGRID_INDEX( 71 ), SPECIES_TYPE( 71 ), CONVERT_CONC( 71 ) / 68, 'GC', F / ! XYE DATA CGRID_INDEX( 72 ), SPECIES_TYPE( 72 ), CONVERT_CONC( 72 ) / 71, 'GC', F / ! XYEP DATA CGRID_INDEX( 73 ), SPECIES_TYPE( 73 ), CONVERT_CONC( 73 ) / 72, 'GC', F / ! ISO DATA CGRID_INDEX( 74 ), SPECIES_TYPE( 74 ), CONVERT_CONC( 74 ) / 73, 'GC', F / ! ISOP DATA CGRID_INDEX( 75 ), SPECIES_TYPE( 75 ), CONVERT_CONC( 75 ) / 74, 'GC', F / ! API DATA CGRID_INDEX( 76 ), SPECIES_TYPE( 76 ), CONVERT_CONC( 76 ) / 75, 'GC', F / ! APIP1 DATA CGRID_INDEX( 77 ), SPECIES_TYPE( 77 ), CONVERT_CONC( 77 ) / 76, 'GC', F / ! APIP2 DATA CGRID_INDEX( 78 ), SPECIES_TYPE( 78 ), CONVERT_CONC( 78 ) / 81, 'GC', F / ! LIM DATA CGRID_INDEX( 79 ), SPECIES_TYPE( 79 ), CONVERT_CONC( 79 ) / 82, 'GC', F / ! LIMP1 DATA CGRID_INDEX( 80 ), SPECIES_TYPE( 80 ), CONVERT_CONC( 80 ) / 83, 'GC', F / ! LIMP2 DATA CGRID_INDEX( 81 ), SPECIES_TYPE( 81 ), CONVERT_CONC( 81 ) / 80, 'GC', F / ! PINALP DATA CGRID_INDEX( 82 ), SPECIES_TYPE( 82 ), CONVERT_CONC( 82 ) / 90, 'GC', F / ! RCO3 DATA CGRID_INDEX( 83 ), SPECIES_TYPE( 83 ), CONVERT_CONC( 83 ) / 87, 'GC', F / ! LIMALP DATA CGRID_INDEX( 84 ), SPECIES_TYPE( 84 ), CONVERT_CONC( 84 ) / 91, 'GC', F / ! ACTP DATA CGRID_INDEX( 85 ), SPECIES_TYPE( 85 ), CONVERT_CONC( 85 ) / 92, 'GC', F / ! MEKP DATA CGRID_INDEX( 86 ), SPECIES_TYPE( 86 ), CONVERT_CONC( 86 ) / 93, 'GC', F / ! KETP DATA CGRID_INDEX( 87 ), SPECIES_TYPE( 87 ), CONVERT_CONC( 87 ) / 94, 'GC', F / ! MCP DATA CGRID_INDEX( 88 ), SPECIES_TYPE( 88 ), CONVERT_CONC( 88 ) / 95, 'GC', F / ! MVKP DATA CGRID_INDEX( 89 ), SPECIES_TYPE( 89 ), CONVERT_CONC( 89 ) / 96, 'GC', F / ! UALP DATA CGRID_INDEX( 90 ), SPECIES_TYPE( 90 ), CONVERT_CONC( 90 ) / 97, 'GC', F / ! DCB3 DATA CGRID_INDEX( 91 ), SPECIES_TYPE( 91 ), CONVERT_CONC( 91 ) / 98, 'GC', F / ! BALP DATA CGRID_INDEX( 92 ), SPECIES_TYPE( 92 ), CONVERT_CONC( 92 ) / 99, 'GC', F / ! ADDC DATA CGRID_INDEX( 93 ), SPECIES_TYPE( 93 ), CONVERT_CONC( 93 ) / 100, 'GC', F / ! MCT DATA CGRID_INDEX( 94 ), SPECIES_TYPE( 94 ), CONVERT_CONC( 94 ) / 101, 'GC', F / ! MCTO DATA CGRID_INDEX( 95 ), SPECIES_TYPE( 95 ), CONVERT_CONC( 95 ) / 102, 'GC', F / ! MOH DATA CGRID_INDEX( 96 ), SPECIES_TYPE( 96 ), CONVERT_CONC( 96 ) / 103, 'GC', F / ! EOH DATA CGRID_INDEX( 97 ), SPECIES_TYPE( 97 ), CONVERT_CONC( 97 ) / 104, 'GC', F / ! ROH DATA CGRID_INDEX( 98 ), SPECIES_TYPE( 98 ), CONVERT_CONC( 98 ) / 105, 'GC', F / ! ETEG DATA CGRID_INDEX( 99 ), SPECIES_TYPE( 99 ), CONVERT_CONC( 99 ) / 106, 'GC', F / ! ISHP DATA CGRID_INDEX( 100 ), SPECIES_TYPE( 100 ), CONVERT_CONC( 100 ) / 107, 'GC', F / ! IEPOX DATA CGRID_INDEX( 101 ), SPECIES_TYPE( 101 ), CONVERT_CONC( 101 ) / 109, 'GC', F / ! MAHP DATA CGRID_INDEX( 102 ), SPECIES_TYPE( 102 ), CONVERT_CONC( 102 ) / 110, 'GC', F / ! ORA2 DATA CGRID_INDEX( 103 ), SPECIES_TYPE( 103 ), CONVERT_CONC( 103 ) / 111, 'GC', F / ! ORAP DATA CGRID_INDEX( 104 ), SPECIES_TYPE( 104 ), CONVERT_CONC( 104 ) / 112, 'GC', F / ! PPN DATA CGRID_INDEX( 105 ), SPECIES_TYPE( 105 ), CONVERT_CONC( 105 ) / 113, 'GC', F / ! MPAN DATA CGRID_INDEX( 106 ), SPECIES_TYPE( 106 ), CONVERT_CONC( 106 ) / 116, 'GC', F / ! TRPN DATA CGRID_INDEX( 107 ), SPECIES_TYPE( 107 ), CONVERT_CONC( 107 ) / 88, 'GC', F / ! HOM DATA CGRID_INDEX( 108 ), SPECIES_TYPE( 108 ), CONVERT_CONC( 108 ) / 114, 'GC', F / ! NALD DATA CGRID_INDEX( 109 ), SPECIES_TYPE( 109 ), CONVERT_CONC( 109 ) / 115, 'GC', F / ! ISON DATA CGRID_INDEX( 110 ), SPECIES_TYPE( 110 ), CONVERT_CONC( 110 ) / 117, 'GC', F / ! MCTP DATA CGRID_INDEX( 111 ), SPECIES_TYPE( 111 ), CONVERT_CONC( 111 ) / 118, 'GC', F / ! OLNN DATA CGRID_INDEX( 112 ), SPECIES_TYPE( 112 ), CONVERT_CONC( 112 ) / 119, 'GC', F / ! OLND DATA CGRID_INDEX( 113 ), SPECIES_TYPE( 113 ), CONVERT_CONC( 113 ) / 77, 'GC', F / ! APINP1 DATA CGRID_INDEX( 114 ), SPECIES_TYPE( 114 ), CONVERT_CONC( 114 ) / 78, 'GC', F / ! APINP2 DATA CGRID_INDEX( 115 ), SPECIES_TYPE( 115 ), CONVERT_CONC( 115 ) / 84, 'GC', F / ! LIMNP1 DATA CGRID_INDEX( 116 ), SPECIES_TYPE( 116 ), CONVERT_CONC( 116 ) / 85, 'GC', F / ! LIMNP2 DATA CGRID_INDEX( 117 ), SPECIES_TYPE( 117 ), CONVERT_CONC( 117 ) / 120, 'GC', F / ! ADCN DATA CGRID_INDEX( 118 ), SPECIES_TYPE( 118 ), CONVERT_CONC( 118 ) / 174, 'GC', F / ! VROCP4OXY2 DATA CGRID_INDEX( 119 ), SPECIES_TYPE( 119 ), CONVERT_CONC( 119 ) / 167, 'GC', F / ! VROCN1OXY6 DATA CGRID_INDEX( 120 ), SPECIES_TYPE( 120 ), CONVERT_CONC( 120 ) / 129, 'GC', F / ! FURANONE DATA CGRID_INDEX( 121 ), SPECIES_TYPE( 121 ), CONVERT_CONC( 121 ) / 173, 'GC', F / ! VROCP3OXY2 DATA CGRID_INDEX( 122 ), SPECIES_TYPE( 122 ), CONVERT_CONC( 122 ) / 169, 'GC', F / ! VROCP0OXY4 DATA CGRID_INDEX( 123 ), SPECIES_TYPE( 123 ), CONVERT_CONC( 123 ) / 121, 'GC', F / ! BAL1 DATA CGRID_INDEX( 124 ), SPECIES_TYPE( 124 ), CONVERT_CONC( 124 ) / 122, 'GC', F / ! BAL2 DATA CGRID_INDEX( 125 ), SPECIES_TYPE( 125 ), CONVERT_CONC( 125 ) / 89, 'GC', F / ! ELHOM DATA CGRID_INDEX( 126 ), SPECIES_TYPE( 126 ), CONVERT_CONC( 126 ) / 130, 'GC', F / ! VROCIOXY DATA CGRID_INDEX( 127 ), SPECIES_TYPE( 127 ), CONVERT_CONC( 127 ) / 131, 'GC', F / ! SLOWROC DATA CGRID_INDEX( 128 ), SPECIES_TYPE( 128 ), CONVERT_CONC( 128 ) / 123, 'GC', F / ! ACRO DATA CGRID_INDEX( 129 ), SPECIES_TYPE( 129 ), CONVERT_CONC( 129 ) / 124, 'GC', F / ! BDE13 DATA CGRID_INDEX( 130 ), SPECIES_TYPE( 130 ), CONVERT_CONC( 130 ) / 125, 'GC', F / ! BDE13P DATA CGRID_INDEX( 131 ), SPECIES_TYPE( 131 ), CONVERT_CONC( 131 ) / 127, 'GC', F / ! FURAN DATA CGRID_INDEX( 132 ), SPECIES_TYPE( 132 ), CONVERT_CONC( 132 ) / 128, 'GC', F / ! FURANO2 DATA CGRID_INDEX( 133 ), SPECIES_TYPE( 133 ), CONVERT_CONC( 133 ) / 126, 'GC', F / ! PROG DATA CGRID_INDEX( 134 ), SPECIES_TYPE( 134 ), CONVERT_CONC( 134 ) / 132, 'GC', F / ! SESQ DATA CGRID_INDEX( 135 ), SPECIES_TYPE( 135 ), CONVERT_CONC( 135 ) / 134, 'GC', F / ! SESQNRO2 DATA CGRID_INDEX( 136 ), SPECIES_TYPE( 136 ), CONVERT_CONC( 136 ) / 162, 'GC', F / ! VROCN2OXY2 DATA CGRID_INDEX( 137 ), SPECIES_TYPE( 137 ), CONVERT_CONC( 137 ) / 133, 'GC', F / ! SESQRO2 DATA CGRID_INDEX( 138 ), SPECIES_TYPE( 138 ), CONVERT_CONC( 138 ) / 168, 'GC', F / ! VROCP0OXY2 DATA CGRID_INDEX( 139 ), SPECIES_TYPE( 139 ), CONVERT_CONC( 139 ) / 171, 'GC', F / ! VROCP1OXY3 DATA CGRID_INDEX( 140 ), SPECIES_TYPE( 140 ), CONVERT_CONC( 140 ) / 188, 'AE', T / ! AGLYJ DATA CGRID_INDEX( 141 ), SPECIES_TYPE( 141 ), CONVERT_CONC( 141 ) / 108, 'GC', F / ! IEPOXP DATA CGRID_INDEX( 142 ), SPECIES_TYPE( 142 ), CONVERT_CONC( 142 ) / 262, 'AE', T / ! AISO3NOSJ DATA CGRID_INDEX( 143 ), SPECIES_TYPE( 143 ), CONVERT_CONC( 143 ) / 179, 'AE', T / ! ASO4J DATA CGRID_INDEX( 144 ), SPECIES_TYPE( 144 ), CONVERT_CONC( 144 ) / 263, 'AE', T / ! AISO3OSJ DATA CGRID_INDEX( 145 ), SPECIES_TYPE( 145 ), CONVERT_CONC( 145 ) / 149, 'GC', F / ! VROCP6ALK DATA CGRID_INDEX( 146 ), SPECIES_TYPE( 146 ), CONVERT_CONC( 146 ) / 155, 'GC', F / ! VROCP6ALKP DATA CGRID_INDEX( 147 ), SPECIES_TYPE( 147 ), CONVERT_CONC( 147 ) / 148, 'GC', F / ! VROCP5ALK DATA CGRID_INDEX( 148 ), SPECIES_TYPE( 148 ), CONVERT_CONC( 148 ) / 154, 'GC', F / ! VROCP5ALKP DATA CGRID_INDEX( 149 ), SPECIES_TYPE( 149 ), CONVERT_CONC( 149 ) / 147, 'GC', F / ! VROCP4ALK DATA CGRID_INDEX( 150 ), SPECIES_TYPE( 150 ), CONVERT_CONC( 150 ) / 153, 'GC', F / ! VROCP4ALKP DATA CGRID_INDEX( 151 ), SPECIES_TYPE( 151 ), CONVERT_CONC( 151 ) / 146, 'GC', F / ! VROCP3ALK DATA CGRID_INDEX( 152 ), SPECIES_TYPE( 152 ), CONVERT_CONC( 152 ) / 152, 'GC', F / ! VROCP3ALKP DATA CGRID_INDEX( 153 ), SPECIES_TYPE( 153 ), CONVERT_CONC( 153 ) / 145, 'GC', F / ! VROCP2ALK DATA CGRID_INDEX( 154 ), SPECIES_TYPE( 154 ), CONVERT_CONC( 154 ) / 151, 'GC', F / ! VROCP2ALKP DATA CGRID_INDEX( 155 ), SPECIES_TYPE( 155 ), CONVERT_CONC( 155 ) / 144, 'GC', F / ! VROCP1ALK DATA CGRID_INDEX( 156 ), SPECIES_TYPE( 156 ), CONVERT_CONC( 156 ) / 150, 'GC', F / ! VROCP1ALKP DATA CGRID_INDEX( 157 ), SPECIES_TYPE( 157 ), CONVERT_CONC( 157 ) / 51, 'GC', F / ! HC10 DATA CGRID_INDEX( 158 ), SPECIES_TYPE( 158 ), CONVERT_CONC( 158 ) / 161, 'GC', F / ! VROCP6ALKP2 DATA CGRID_INDEX( 159 ), SPECIES_TYPE( 159 ), CONVERT_CONC( 159 ) / 160, 'GC', F / ! VROCP5ALKP2 DATA CGRID_INDEX( 160 ), SPECIES_TYPE( 160 ), CONVERT_CONC( 160 ) / 159, 'GC', F / ! VROCP4ALKP2 DATA CGRID_INDEX( 161 ), SPECIES_TYPE( 161 ), CONVERT_CONC( 161 ) / 172, 'GC', F / ! VROCP2OXY2 DATA CGRID_INDEX( 162 ), SPECIES_TYPE( 162 ), CONVERT_CONC( 162 ) / 158, 'GC', F / ! VROCP3ALKP2 DATA CGRID_INDEX( 163 ), SPECIES_TYPE( 163 ), CONVERT_CONC( 163 ) / 170, 'GC', F / ! VROCP1OXY1 DATA CGRID_INDEX( 164 ), SPECIES_TYPE( 164 ), CONVERT_CONC( 164 ) / 157, 'GC', F / ! VROCP2ALKP2 DATA CGRID_INDEX( 165 ), SPECIES_TYPE( 165 ), CONVERT_CONC( 165 ) / 156, 'GC', F / ! VROCP1ALKP2 DATA CGRID_INDEX( 166 ), SPECIES_TYPE( 166 ), CONVERT_CONC( 166 ) / 165, 'GC', F / ! VROCN1OXY1 DATA CGRID_INDEX( 167 ), SPECIES_TYPE( 167 ), CONVERT_CONC( 167 ) / 53, 'GC', F / ! HC10P2 DATA CGRID_INDEX( 168 ), SPECIES_TYPE( 168 ), CONVERT_CONC( 168 ) / 138, 'GC', F / ! VROCP6ARO DATA CGRID_INDEX( 169 ), SPECIES_TYPE( 169 ), CONVERT_CONC( 169 ) / 140, 'GC', F / ! VROCP6AROP DATA CGRID_INDEX( 170 ), SPECIES_TYPE( 170 ), CONVERT_CONC( 170 ) / 163, 'GC', F / ! VROCN2OXY4 DATA CGRID_INDEX( 171 ), SPECIES_TYPE( 171 ), CONVERT_CONC( 171 ) / 166, 'GC', F / ! VROCN1OXY3 DATA CGRID_INDEX( 172 ), SPECIES_TYPE( 172 ), CONVERT_CONC( 172 ) / 137, 'GC', F / ! VROCP5ARO DATA CGRID_INDEX( 173 ), SPECIES_TYPE( 173 ), CONVERT_CONC( 173 ) / 139, 'GC', F / ! VROCP5AROP DATA CGRID_INDEX( 174 ), SPECIES_TYPE( 174 ), CONVERT_CONC( 174 ) / 135, 'GC', F / ! NAPH DATA CGRID_INDEX( 175 ), SPECIES_TYPE( 175 ), CONVERT_CONC( 175 ) / 136, 'GC', F / ! NAPHP DATA CGRID_INDEX( 176 ), SPECIES_TYPE( 176 ), CONVERT_CONC( 176 ) / 164, 'GC', F / ! VROCN2OXY8 DATA CGRID_INDEX( 177 ), SPECIES_TYPE( 177 ), CONVERT_CONC( 177 ) / 175, 'GC', F / ! VROCP5OXY1 DATA CGRID_INDEX( 178 ), SPECIES_TYPE( 178 ), CONVERT_CONC( 178 ) / 176, 'GC', F / ! VROCP6OXY1 ! The below integers define the locations of mechanism species in the solver ! concentration array. INTEGER :: INDEX_O3 = 1 INTEGER :: INDEX_O3P = 2 INTEGER :: INDEX_O1D = 3 INTEGER :: INDEX_H2O2 = 4 INTEGER :: INDEX_HO = 5 INTEGER :: INDEX_NO2 = 6 INTEGER :: INDEX_NO = 7 INTEGER :: INDEX_NO3 = 8 INTEGER :: INDEX_HONO = 9 INTEGER :: INDEX_HNO3 = 10 INTEGER :: INDEX_HNO4 = 11 INTEGER :: INDEX_HO2 = 12 INTEGER :: INDEX_HCHO = 13 INTEGER :: INDEX_CO = 14 INTEGER :: INDEX_ACD = 15 INTEGER :: INDEX_MO2 = 16 INTEGER :: INDEX_ALD = 17 INTEGER :: INDEX_ETHP = 18 INTEGER :: INDEX_ACT = 19 INTEGER :: INDEX_ACO3 = 20 INTEGER :: INDEX_UALD = 21 INTEGER :: INDEX_KET = 22 INTEGER :: INDEX_PINAL = 23 INTEGER :: INDEX_HC10P = 24 INTEGER :: INDEX_LIMAL = 25 INTEGER :: INDEX_MEK = 26 INTEGER :: INDEX_HKET = 27 INTEGER :: INDEX_MACR = 28 INTEGER :: INDEX_MACP = 29 INTEGER :: INDEX_XO2 = 30 INTEGER :: INDEX_MVK = 31 INTEGER :: INDEX_GLY = 32 INTEGER :: INDEX_MGLY = 33 INTEGER :: INDEX_DCB1 = 34 INTEGER :: INDEX_DCB2 = 35 INTEGER :: INDEX_BALD = 36 INTEGER :: INDEX_CHO = 37 INTEGER :: INDEX_OP1 = 38 INTEGER :: INDEX_OP2 = 39 INTEGER :: INDEX_OPB = 40 INTEGER :: INDEX_OP3 = 41 INTEGER :: INDEX_PAA = 42 INTEGER :: INDEX_ONIT = 43 INTEGER :: INDEX_PAN = 44 INTEGER :: INDEX_N2O5 = 45 INTEGER :: INDEX_SO2 = 46 INTEGER :: INDEX_SULF = 47 INTEGER :: INDEX_SULRXN = 48 INTEGER :: INDEX_ETH = 49 INTEGER :: INDEX_HC3 = 50 INTEGER :: INDEX_HC3P = 51 INTEGER :: INDEX_ASOATJ = 52 INTEGER :: INDEX_HC5 = 53 INTEGER :: INDEX_HC5P = 54 INTEGER :: INDEX_ETE = 55 INTEGER :: INDEX_ETEP = 56 INTEGER :: INDEX_OLT = 57 INTEGER :: INDEX_OLTP = 58 INTEGER :: INDEX_OLI = 59 INTEGER :: INDEX_OLIP = 60 INTEGER :: INDEX_ACE = 61 INTEGER :: INDEX_ORA1 = 62 INTEGER :: INDEX_BEN = 63 INTEGER :: INDEX_BENP = 64 INTEGER :: INDEX_PHEN = 65 INTEGER :: INDEX_TOL = 66 INTEGER :: INDEX_TOLP = 67 INTEGER :: INDEX_CSL = 68 INTEGER :: INDEX_XYM = 69 INTEGER :: INDEX_XYMP = 70 INTEGER :: INDEX_XYE = 71 INTEGER :: INDEX_XYEP = 72 INTEGER :: INDEX_ISO = 73 INTEGER :: INDEX_ISOP = 74 INTEGER :: INDEX_API = 75 INTEGER :: INDEX_APIP1 = 76 INTEGER :: INDEX_APIP2 = 77 INTEGER :: INDEX_LIM = 78 INTEGER :: INDEX_LIMP1 = 79 INTEGER :: INDEX_LIMP2 = 80 INTEGER :: INDEX_PINALP = 81 INTEGER :: INDEX_RCO3 = 82 INTEGER :: INDEX_LIMALP = 83 INTEGER :: INDEX_ACTP = 84 INTEGER :: INDEX_MEKP = 85 INTEGER :: INDEX_KETP = 86 INTEGER :: INDEX_MCP = 87 INTEGER :: INDEX_MVKP = 88 INTEGER :: INDEX_UALP = 89 INTEGER :: INDEX_DCB3 = 90 INTEGER :: INDEX_BALP = 91 INTEGER :: INDEX_ADDC = 92 INTEGER :: INDEX_MCT = 93 INTEGER :: INDEX_MCTO = 94 INTEGER :: INDEX_MOH = 95 INTEGER :: INDEX_EOH = 96 INTEGER :: INDEX_ROH = 97 INTEGER :: INDEX_ETEG = 98 INTEGER :: INDEX_ISHP = 99 INTEGER :: INDEX_IEPOX = 100 INTEGER :: INDEX_MAHP = 101 INTEGER :: INDEX_ORA2 = 102 INTEGER :: INDEX_ORAP = 103 INTEGER :: INDEX_PPN = 104 INTEGER :: INDEX_MPAN = 105 INTEGER :: INDEX_TRPN = 106 INTEGER :: INDEX_HOM = 107 INTEGER :: INDEX_NALD = 108 INTEGER :: INDEX_ISON = 109 INTEGER :: INDEX_MCTP = 110 INTEGER :: INDEX_OLNN = 111 INTEGER :: INDEX_OLND = 112 INTEGER :: INDEX_APINP1 = 113 INTEGER :: INDEX_APINP2 = 114 INTEGER :: INDEX_LIMNP1 = 115 INTEGER :: INDEX_LIMNP2 = 116 INTEGER :: INDEX_ADCN = 117 INTEGER :: INDEX_VROCP4OXY2 = 118 INTEGER :: INDEX_VROCN1OXY6 = 119 INTEGER :: INDEX_FURANONE = 120 INTEGER :: INDEX_VROCP3OXY2 = 121 INTEGER :: INDEX_VROCP0OXY4 = 122 INTEGER :: INDEX_BAL1 = 123 INTEGER :: INDEX_BAL2 = 124 INTEGER :: INDEX_ELHOM = 125 INTEGER :: INDEX_VROCIOXY = 126 INTEGER :: INDEX_SLOWROC = 127 INTEGER :: INDEX_ACRO = 128 INTEGER :: INDEX_BDE13 = 129 INTEGER :: INDEX_BDE13P = 130 INTEGER :: INDEX_FURAN = 131 INTEGER :: INDEX_FURANO2 = 132 INTEGER :: INDEX_PROG = 133 INTEGER :: INDEX_SESQ = 134 INTEGER :: INDEX_SESQNRO2 = 135 INTEGER :: INDEX_VROCN2OXY2 = 136 INTEGER :: INDEX_SESQRO2 = 137 INTEGER :: INDEX_VROCP0OXY2 = 138 INTEGER :: INDEX_VROCP1OXY3 = 139 INTEGER :: INDEX_AGLYJ = 140 INTEGER :: INDEX_IEPOXP = 141 INTEGER :: INDEX_AISO3NOSJ = 142 INTEGER :: INDEX_ASO4J = 143 INTEGER :: INDEX_AISO3OSJ = 144 INTEGER :: INDEX_VROCP6ALK = 145 INTEGER :: INDEX_VROCP6ALKP = 146 INTEGER :: INDEX_VROCP5ALK = 147 INTEGER :: INDEX_VROCP5ALKP = 148 INTEGER :: INDEX_VROCP4ALK = 149 INTEGER :: INDEX_VROCP4ALKP = 150 INTEGER :: INDEX_VROCP3ALK = 151 INTEGER :: INDEX_VROCP3ALKP = 152 INTEGER :: INDEX_VROCP2ALK = 153 INTEGER :: INDEX_VROCP2ALKP = 154 INTEGER :: INDEX_VROCP1ALK = 155 INTEGER :: INDEX_VROCP1ALKP = 156 INTEGER :: INDEX_HC10 = 157 INTEGER :: INDEX_VROCP6ALKP2 = 158 INTEGER :: INDEX_VROCP5ALKP2 = 159 INTEGER :: INDEX_VROCP4ALKP2 = 160 INTEGER :: INDEX_VROCP2OXY2 = 161 INTEGER :: INDEX_VROCP3ALKP2 = 162 INTEGER :: INDEX_VROCP1OXY1 = 163 INTEGER :: INDEX_VROCP2ALKP2 = 164 INTEGER :: INDEX_VROCP1ALKP2 = 165 INTEGER :: INDEX_VROCN1OXY1 = 166 INTEGER :: INDEX_HC10P2 = 167 INTEGER :: INDEX_VROCP6ARO = 168 INTEGER :: INDEX_VROCP6AROP = 169 INTEGER :: INDEX_VROCN2OXY4 = 170 INTEGER :: INDEX_VROCN1OXY3 = 171 INTEGER :: INDEX_VROCP5ARO = 172 INTEGER :: INDEX_VROCP5AROP = 173 INTEGER :: INDEX_NAPH = 174 INTEGER :: INDEX_NAPHP = 175 INTEGER :: INDEX_VROCN2OXY8 = 176 INTEGER :: INDEX_VROCP5OXY1 = 177 INTEGER :: INDEX_VROCP6OXY1 = 178 INTEGER, PARAMETER :: N_ACT_SP = 178 INTEGER, PARAMETER :: NRXNS = 508 INTEGER, PARAMETER :: ONE_REACT_REACTIONS = 0 INTEGER, PARAMETER :: TWO_REACT_REACTIONS = 0 INTEGER, PARAMETER :: THREE_REACT_REACTIONS = 0 INTEGER, PARAMETER :: ZERO_REACT_REACTIONS = 0 LOGICAL, PARAMETER :: UNITARY_REACTIONS = .FALSE. INTEGER, PARAMETER :: ONE_REACT_START = 0 INTEGER, PARAMETER :: ONE_REACT_STOP = -1 LOGICAL, PARAMETER :: BINARY_REACTIONS = .FALSE. INTEGER, PARAMETER :: TWO_REACT_START = 0 INTEGER, PARAMETER :: TWO_REACT_STOP = -1 LOGICAL, PARAMETER :: TERNARY_REACTIONS = .FALSE. INTEGER, PARAMETER :: THREE_REACT_START = 0 INTEGER, PARAMETER :: THREE_REACT_STOP = -1 LOGICAL, PARAMETER :: NULL_REACTIONS = .FALSE. INTEGER, PARAMETER :: ZERO_REACT_START = 0 INTEGER, PARAMETER :: ZERO_REACT_STOP = -1 INTEGER, PARAMETER :: NSUNLIGHT_RXNS = 40 INTEGER, PARAMETER :: NTHERMAL_RXNS = 468 INTEGER, PARAMETER :: KUNITS = 2 INTEGER :: IRXXN INTEGER, PARAMETER :: NMPHOT = 39 INTEGER :: IPH( NMPHOT,3 ) DATA ( IPH( IRXXN,1 ), IRXXN = 1, NMPHOT ) / & & 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, & & 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, & & 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, & & 31, 32, 33, 34, 35, 36, 37, 38, 386/ DATA ( IPH( IRXXN,2 ), IRXXN = 1, NMPHOT ) / & & 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, & & 11, 12, 13, 14, 15, 16, 13, 13, 17, 18, & & 19, 20, 21, 22, 23, 24, 25, 25, 25, 26, & & 27, 27, 27, 27, 28, 29, 30, 31, 32/ DATA ( IPH( IRXXN,3 ), IRXXN = 1, NMPHOT ) / & & 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, & & 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, & & 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, & & 31, 32, 33, 34, 35, 36, 37, 38, 39/ REAL( 8 ) :: RTDAT( 3,NRXNS ) INTEGER, PARAMETER :: NFALLOFF = 17 REAL( 8 ) :: RFDAT( 5,NFALLOFF ) INTEGER :: KTYPE( NRXNS ) DATA ( KTYPE( IRXXN ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 3, 3, & ! 3 & 3, 3, 2, 3, 3, 3, 3, 3, 3, 9, & ! 4 & 9, 3, 10, 10, 3, 9, 3, 3, 3, 10, & ! 5 & 10, 8, 1, 1, 3, 3, 3, 10, 5, 1, & ! 6 & 10, 5, 3, 10, 9, 3, 3, 3, 3, 10, & ! 7 & 3, 3, 10, 3, 3, 1, 1, 3, 3, 3, & ! 8 & 3, 1, 3, 3, 3, 4, 3, 3, 1, 3, & ! 9 & 3, 3, 1, 3, 3, 3, 1, 3, 3, 3, & ! O & 3, 3, 3, 3, 1, 3, 3, 3, 3, 1, & ! 1 & 1, 1, 3, 3, 1, 1, 1, 3, 1, 3, & ! 2 & 1, 3, 3, 3, 3, 3, 3, 1, 1, 3, & ! 3 & 3, 1, 1, 1, 1, 1, 4, 3, 3, 3, & ! 4 & 3, 1, 3, 3, 3, 3, 1, 3, 3, 3, & ! 5 & 1, 1, 1, 3, 1, 1, 10, 5, 10, 5, & ! 6 & 3, 3, 3, 3, 1, 1, 1, 1, 1, 3, & ! 7 & 3, 3, 3, 3, 1, 1, 1, 1, 1, 1, & ! 8 & 1, 1, 3, 3, 3, 3, 3, 1, 1, 3, & ! 9 & 3, 3, 3, 1, 1, 3, 3, 1, 1, 1, & ! O & 3, 1, 1, 1, 1, 3, 3, 3, 3, 3, & ! 1 & 3, 3, 3, 3, 3, 3, 3, 1, 1, 1, & ! 2 & 1, 1, 1, 1, 1, 3, 3, 3, 3, 3, & ! 3 & 3, 3, 3, 3, 3, 3, 3, 1, 3, 3, & ! 4 & 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, & ! 5 & 3, 3, 3, 3, 3, 3, 3, 1, 3, 1, & ! 6 & 3, 1, 3, 1, 3, 3, 3, 3, 3, 3, & ! 7 & 3, 1, 3, 3, 3, 3, 3, 3, 3, 3, & ! 8 & 1, 3, 3, 3, 3, 3, 3, 3, 3, 3, & ! 9 & 3, 3, 3, 3, 1, 3, 1, 3, 1, 3, & ! O & 1, 3, 3, 3, 3, 3, 3, 3, 3, 3, & ! 1 & 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, & ! 2 & 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, & ! 3 & 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, & ! 4 & 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, & ! 5 & 1, 3, 3, 3, 1, 3, 3, 1, 1, 1, & ! 6 & 1, 1, 1, 1, 1, 1, 1, 1, 1, 3, & ! 7 & 1, 1, 3, 1, 1, 0, 3, 1, 1, 1, & ! 8 & 1, 1, 3, 1, 1, 3, 3, 1, 1, 1, & ! 9 & 1, 1, 3, 3, 1, 1, 1, 3, 1, 3, & ! O & -1, -1, -1, -1, 12, -1, -1, -1, 1, 1, & ! 1 & 1, 1, 1, 1, 1, 3, 3, 3, 3, 3, & ! 2 & 3, 3, 1, 1, 1, 1, 1, 1, 1, 1, & ! 3 & 1, 1, 1, 1, 1, 3, 1, 1, 1, 1, & ! 4 & 1, 1, 1, 3, 3, 3, 3, 3, 3, 3, & ! 5 & 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, & ! 6 & 1, 1, 1, 3, 1, 3, 3, 1, 3, 3, & ! 7 & 1, 3, 3, 1, 3, 3, 1, 3, 3, 1, & ! 8 & 3, 3, 1, 1, 1, 1, 1, 1, 1, 1, & ! 9 & 1, 1, 1, 1, 1, 1, 1, 1/ ! O INTEGER :: IRXBITS( NRXNS ) DATA ( IRXBITS( IRXXN ), IRXXN = 1, NRXNS ) / & & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! O & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 1 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 2 & 2, 2, 2, 2, 2, 2, 2, 2, 0, 0, & ! 3 & 0, 0, 20, 0, 16, 32, 8, 128, 0, 0, & ! 4 & 8, 0, 1, 1, 0, 0, 16, 0, 0, 1, & ! 5 & 1, 0, 0, 0, 0, 0, 0, 1, 0, 8, & ! 6 & 1, 0, 0, 1, 0, 64, 0, 0, 0, 1, & ! 7 & 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 1, 0, 1, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 1, 1, 1, 1, 2, 1, 1, 1, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0/ ! O INTEGER, PARAMETER :: NTERMS_JACOB = 31684 INTEGER, PARAMETER :: NSTEPS_JACOB = 1016 INTEGER :: IORDER( NRXNS ) DATA ( IORDER( IRXXN ), IRXXN = 1, NRXNS ) / & & 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, & ! O & 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, & ! 1 & 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, & ! 2 & 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, & ! 3 & 2, 2, 3, 2, 2, 2, 2, 2, 2, 2, & ! 4 & 3, 2, 2, 2, 2, 2, 3, 2, 2, 2, & ! 5 & 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, & ! 6 & 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, & ! 7 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 8 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 9 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! O & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 1 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 2 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 3 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 4 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 5 & 2, 2, 2, 2, 1, 1, 2, 1, 2, 1, & ! 6 & 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, & ! 7 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 8 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 9 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! O & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 1 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 2 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 3 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 4 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 5 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 6 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 7 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 8 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 9 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! O & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 1 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 2 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 3 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 4 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 5 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 6 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 7 & 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, & ! 8 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 9 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! O & 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, & ! 1 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 2 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 3 & 2, 2, 2, 2, 2, 2, 1, 1, 1, 1, & ! 4 & 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, & ! 5 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 6 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 7 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 8 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 9 & 2, 2, 2, 2, 2, 2, 2, 2/ ! O INTEGER, PARAMETER :: KTN1 = 201 INTEGER :: KRX1( KTN1 ) DATA ( KRX1( IRXXN ), IRXXN = 1, KTN1 ) / & & 63, 64, 70, 86, 87, 92, 99, 103, 107, 115, & ! O & 120, 121, 122, 125, 126, 127, 129, 131, 138, 139, & ! 1 & 142, 143, 144, 145, 146, 152, 157, 161, 162, 163, & ! 2 & 165, 166, 175, 176, 177, 178, 179, 185, 186, 187, & ! 3 & 188, 189, 190, 191, 192, 198, 199, 204, 205, 208, & ! 4 & 209, 210, 212, 213, 214, 215, 228, 229, 230, 231, & ! 5 & 232, 233, 234, 235, 248, 268, 270, 272, 274, 282, & ! 6 & 291, 305, 307, 309, 311, 331, 332, 333, 334, 335, & ! 7 & 336, 337, 338, 339, 340, 341, 342, 343, 344, 345, & ! 8 & 346, 347, 348, 349, 350, 351, 352, 353, 354, 355, & ! 9 & 356, 357, 358, 359, 360, 361, 365, 368, 369, 370, & ! O & 371, 372, 373, 374, 375, 376, 377, 378, 379, 381, & ! 1 & 382, 384, 385, 388, 389, 390, 391, 392, 394, 395, & ! 2 & 398, 399, 400, 401, 402, 405, 406, 407, 409, 419, & ! 3 & 420, 421, 422, 423, 424, 425, 433, 434, 435, 436, & ! 4 & 437, 438, 439, 440, 441, 442, 443, 444, 445, 447, & ! 5 & 448, 449, 450, 451, 452, 453, 461, 462, 463, 464, & ! 6 & 465, 466, 467, 468, 469, 470, 471, 472, 473, 475, & ! 7 & 478, 481, 484, 487, 490, 493, 494, 495, 496, 497, & ! 8 & 498, 499, 500, 501, 502, 503, 504, 505, 506, 507, & ! 9 & 508/ ! O INTEGER, PARAMETER :: KTN2 = 1 INTEGER :: KRX2( KTN2 ) DATA ( KRX2( IRXXN ), IRXXN = 1, KTN2 ) / & & 43/ INTEGER, PARAMETER :: KTN3 = 237 INTEGER :: KRX3( KTN3 ) DATA ( KRX3( IRXXN ), IRXXN = 1, KTN3 ) / & & 39, 40, 41, 42, 44, 45, 46, 47, 48, 49, & ! O & 52, 55, 57, 58, 59, 65, 66, 67, 73, 76, & ! 1 & 77, 78, 79, 81, 82, 84, 85, 88, 89, 90, & ! 2 & 91, 93, 94, 95, 97, 98, 100, 101, 102, 104, & ! 3 & 105, 106, 108, 109, 110, 111, 112, 113, 114, 116, & ! 4 & 117, 118, 119, 123, 124, 128, 130, 132, 133, 134, & ! 5 & 135, 136, 137, 140, 141, 148, 149, 150, 151, 153, & ! 6 & 154, 155, 156, 158, 159, 160, 164, 171, 172, 173, & ! 7 & 174, 180, 181, 182, 183, 184, 193, 194, 195, 196, & ! 8 & 197, 200, 201, 202, 203, 206, 207, 211, 216, 217, & ! 9 & 218, 219, 220, 221, 222, 223, 224, 225, 226, 227, & ! O & 236, 237, 238, 239, 240, 241, 242, 243, 244, 245, & ! 1 & 246, 247, 249, 250, 251, 252, 253, 254, 255, 256, & ! 2 & 257, 258, 259, 260, 261, 262, 263, 264, 265, 266, & ! 3 & 267, 269, 271, 273, 275, 276, 277, 278, 279, 280, & ! 4 & 281, 283, 284, 285, 286, 287, 288, 289, 290, 292, & ! 5 & 293, 294, 295, 296, 297, 298, 299, 300, 301, 302, & ! 6 & 303, 304, 306, 308, 310, 312, 313, 314, 315, 316, & ! 7 & 317, 318, 319, 320, 321, 322, 323, 324, 325, 326, & ! 8 & 327, 328, 329, 330, 362, 363, 364, 366, 367, 380, & ! 9 & 383, 387, 393, 396, 397, 403, 404, 408, 410, 426, & ! O & 427, 428, 429, 430, 431, 432, 446, 454, 455, 456, & ! 1 & 457, 458, 459, 460, 474, 476, 477, 479, 480, 482, & ! 2 & 483, 485, 486, 488, 489, 491, 492/ ! 3 INTEGER, PARAMETER :: KTN4 = 2 INTEGER :: KRX4( KTN4 ) DATA ( KRX4( IRXXN ), IRXXN = 1, KTN4 ) / & & 96, 147/ INTEGER, PARAMETER :: KTN5 = 4 INTEGER :: KRX5( KTN5 ) DATA ( KRX5( IRXXN ), IRXXN = 1, KTN5 ) / & & 69, 72, 168, 170/ INTEGER, PARAMETER :: KTN6 = 0 INTEGER :: KRX6( 1 ) DATA KRX6( 1 ) / 0 / INTEGER, PARAMETER :: KTN7 = 0 INTEGER :: KRX7( 1 ) DATA KRX7( 1 ) / 0 / INTEGER, PARAMETER :: NWM = 1 INTEGER :: NRXWM( NWM ) DATA ( NRXWM( IRXXN ), IRXXN = 1, NWM ) / & & 43/ REAL( 8 ), PARAMETER :: ATM_AIR = 1.00000D+06 INTEGER, PARAMETER :: NWW = 3 INTEGER :: NRXWW( NWW ) DATA ( NRXWW( IRXXN ), IRXXN = 1, NWW ) / & & 47, 51, 70/ INTEGER, PARAMETER :: NWO2 = 3 INTEGER :: NRXWO2( NWO2 ) DATA ( NRXWO2( IRXXN ), IRXXN = 1, NWO2 ) / & & 43, 45, 57/ REAL( 8 ), PARAMETER :: ATM_O2 = 2.09500D+05 INTEGER, PARAMETER :: NWN2 = 1 INTEGER :: NRXWN2( NWN2 ) DATA ( NRXWN2( IRXXN ), IRXXN = 1, NWN2 ) / & & 46/ REAL( 8 ), PARAMETER :: ATM_N2 = 7.80800D+05 INTEGER, PARAMETER :: NWCH4 = 1 INTEGER :: NRXWCH4( NWCH4 ) DATA ( NRXWCH4( IRXXN ), IRXXN = 1, NWCH4 ) / & & 76/ REAL( 8 ), PARAMETER :: ATM_CH4 = 1.85000D+00 INTEGER, PARAMETER :: NWH2 = 1 INTEGER :: NRXWH2( NWH2 ) DATA ( NRXWH2( IRXXN ), IRXXN = 1, NWH2 ) / & & 48/ REAL( 8 ), PARAMETER :: ATM_H2 = 5.60000D-01 INTEGER, PARAMETER :: MXPRD = 28 INTEGER :: IRR( NRXNS,MXPRD+3 ) DATA ( IRR( IRXXN, 1 ), IRXXN = 1, NRXNS ) / & & 1, 1, 4, 6, 8, 8, 9, 10, 11, 13, & ! O & 13, 15, 17, 19, 19, 21, 23, 25, 26, 22, & ! 1 & 27, 28, 31, 32, 32, 32, 33, 34, 35, 36, & ! 2 & 38, 39, 40, 41, 42, 43, 44, 44, 1, 1, & ! 3 & 1, 1, 2, 2, 3, 3, 3, 5, 5, 12, & ! 4 & 12, 4, 7, 7, 7, 7, 7, 9, 6, 6, & ! 5 & 6, 10, 8, 8, 8, 8, 8, 8, 45, 45, & ! 6 & 6, 11, 11, 46, 14, 5, 49, 50, 53, 55, & ! 7 & 57, 59, 61, 63, 66, 69, 71, 73, 75, 78, & ! 8 & 23, 25, 13, 15, 17, 19, 26, 22, 27, 28, & ! 9 & 31, 21, 32, 33, 34, 35, 90, 36, 65, 68, & ! O & 93, 95, 96, 97, 98, 38, 39, 40, 41, 99, & ! 1 & 101, 62, 102, 42, 44, 104, 105, 43, 106, 108, & ! 2 & 109, 55, 57, 59, 73, 75, 78, 25, 106, 28, & ! 3 & 31, 21, 34, 35, 90, 94, 55, 57, 59, 73, & ! 4 & 75, 78, 106, 13, 15, 17, 28, 21, 32, 33, & ! 5 & 65, 68, 93, 105, 81, 83, 20, 44, 82, 104, & ! 6 & 29, 105, 16, 18, 51, 54, 56, 58, 60, 64, & ! 7 & 67, 70, 72, 74, 76, 77, 113, 114, 79, 80, & ! 8 & 115, 116, 81, 83, 20, 82, 84, 85, 86, 29, & ! 9 & 87, 88, 89, 91, 123, 92, 110, 103, 111, 112, & ! O & 117, 30, 124, 37, 94, 16, 18, 51, 54, 56, & ! 1 & 58, 60, 64, 67, 70, 72, 74, 76, 77, 113, & ! 2 & 114, 79, 80, 115, 116, 81, 83, 20, 82, 84, & ! 3 & 85, 86, 29, 87, 88, 89, 92, 37, 110, 103, & ! 4 & 111, 112, 117, 30, 16, 18, 51, 54, 56, 58, & ! 5 & 60, 64, 67, 70, 72, 74, 76, 77, 113, 114, & ! 6 & 79, 80, 115, 116, 20, 82, 84, 85, 86, 29, & ! 7 & 87, 88, 89, 91, 123, 92, 110, 103, 111, 112, & ! 8 & 117, 30, 18, 51, 54, 56, 58, 60, 64, 67, & ! 9 & 70, 72, 74, 76, 77, 113, 114, 79, 80, 115, & ! O & 116, 20, 82, 84, 85, 86, 29, 87, 88, 89, & ! 1 & 91, 123, 92, 110, 103, 111, 112, 117, 30, 82, & ! 2 & 16, 18, 51, 54, 56, 58, 60, 64, 67, 70, & ! 3 & 72, 74, 76, 79, 20, 82, 84, 85, 86, 29, & ! 4 & 87, 88, 89, 91, 123, 92, 110, 103, 111, 112, & ! 5 & 117, 111, 111, 112, 30, 30, 30, 77, 77, 77, & ! 6 & 80, 80, 80, 114, 114, 114, 116, 116, 116, 100, & ! 7 & 126, 127, 128, 128, 128, 128, 129, 130, 130, 130, & ! 8 & 130, 130, 129, 129, 131, 132, 132, 120, 131, 131, & ! 9 & 133, 134, 135, 135, 135, 134, 134, 137, 137, 137, & ! O & 32, 33, 45, 6, 1, 100, 141, 141, 145, 147, & ! 1 & 149, 151, 153, 155, 157, 146, 148, 150, 152, 154, & ! 2 & 156, 24, 146, 148, 150, 152, 154, 156, 24, 146, & ! 3 & 148, 150, 152, 154, 156, 24, 158, 159, 160, 162, & ! 4 & 164, 165, 167, 158, 159, 160, 162, 164, 165, 167, & ! 5 & 158, 159, 160, 162, 164, 165, 167, 158, 159, 160, & ! 6 & 162, 164, 165, 167, 168, 169, 169, 169, 169, 169, & ! 7 & 172, 173, 173, 173, 173, 173, 174, 175, 175, 175, & ! 8 & 175, 175, 176, 170, 136, 119, 171, 166, 122, 138, & ! 9 & 139, 163, 161, 121, 118, 177, 178, 41/ ! O DATA ( IRR( IRXXN, 2 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 5, 12, & ! 3 & 7, 6, 0, 1, 0, 0, 0, 0, 12, 12, & ! 4 & 12, 5, 2, 5, 12, 12, 7, 5, 2, 2, & ! 5 & 5, 5, 5, 12, 7, 6, 8, 6, 0, 0, & ! 6 & 12, 0, 5, 5, 5, 0, 5, 5, 5, 5, & ! 7 & 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, & ! 8 & 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, & ! 9 & 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, & ! O & 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, & ! 1 & 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, & ! 2 & 5, 1, 1, 1, 1, 1, 1, 1, 1, 1, & ! 3 & 1, 1, 1, 1, 1, 1, 8, 8, 8, 8, & ! 4 & 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, & ! 5 & 8, 8, 8, 8, 0, 0, 6, 0, 6, 0, & ! 6 & 6, 0, 7, 7, 7, 7, 7, 7, 7, 7, & ! 7 & 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, & ! 8 & 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, & ! 9 & 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, & ! O & 7, 7, 6, 6, 6, 12, 12, 12, 12, 12, & ! 1 & 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, & ! 2 & 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, & ! 3 & 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, & ! 4 & 12, 12, 12, 12, 16, 16, 16, 16, 16, 16, & ! 5 & 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, & ! 6 & 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, & ! 7 & 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, & ! 8 & 16, 16, 20, 20, 20, 20, 20, 20, 20, 20, & ! 9 & 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, & ! O & 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, & ! 1 & 20, 20, 20, 20, 20, 20, 20, 20, 20, 82, & ! 2 & 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, & ! 3 & 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, & ! 4 & 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, & ! 5 & 8, 111, 112, 112, 8, 82, 30, 76, 79, 74, & ! 6 & 76, 79, 74, 76, 79, 74, 76, 79, 74, 5, & ! 7 & 5, 5, 5, 1, 8, 0, 5, 7, 8, 12, & ! 8 & 16, 20, 1, 8, 5, 7, 12, 5, 1, 8, & ! 9 & 5, 8, 12, 7, 8, 1, 5, 12, 8, 7, & ! O & 0, 0, 0, 0, 0, 0, 0, 143, 5, 5, & ! 1 & 5, 5, 5, 5, 5, 7, 7, 7, 7, 7, & ! 2 & 7, 7, 8, 8, 8, 8, 8, 8, 8, 12, & ! 3 & 12, 12, 12, 12, 12, 12, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 7, 7, 7, 7, 7, 7, 7, & ! 5 & 8, 8, 8, 8, 8, 8, 8, 12, 12, 12, & ! 6 & 12, 12, 12, 12, 5, 12, 7, 8, 16, 20, & ! 7 & 5, 12, 7, 8, 16, 20, 5, 12, 7, 8, & ! 8 & 16, 20, 5, 5, 5, 5, 5, 5, 5, 5, & ! 9 & 5, 5, 5, 5, 5, 5, 5, 5/ ! O DATA ( IRR( IRXXN, 3 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0/ ! O DATA ( IRR( IRXXN, 4 ), IRXXN = 1, NRXNS ) / & & 2, 3, 5, 2, 7, 2, 5, 5, 5, 14, & ! O & 12, 12, 12, 16, 16, 12, 12, 12, 16, 18, & ! 1 & 12, 5, 16, 14, 13, 12, 12, 12, 12, 37, & ! 2 & 5, 5, 5, 5, 5, 12, 20, 16, 12, 5, & ! 3 & 6, 8, 1, 0, 2, 2, 5, 12, 0, 4, & ! 4 & 4, 12, 6, 9, 6, 10, 6, 6, 7, 8, & ! 5 & 10, 8, 12, 5, 6, 7, 6, 45, 6, 10, & ! 6 & 11, 12, 6, 12, 12, 16, 18, 51, 54, 56, & ! 7 & 58, 60, 5, 64, 67, 70, 72, 74, 76, 79, & ! 8 & 81, 83, 12, 20, 82, 84, 85, 86, 12, 29, & ! 9 & 88, 20, 12, 20, 12, 12, 12, 91, 52, 52, & ! O & 94, 12, 12, 12, 12, 5, 5, 5, 5, 5, & ! 1 & 29, 12, 16, 5, 30, 30, 6, 51, 107, 6, & ! 2 & 108, 5, 5, 5, 5, 5, 5, 5, 107, 5, & ! 3 & 5, 5, 5, 5, 5, 110, 111, 111, 111, 109, & ! 4 & 113, 115, 107, 12, 20, 82, 13, 12, 12, 20, & ! 5 & 52, 52, 94, 29, 107, 107, 44, 20, 104, 82, & ! 6 & 105, 29, 12, 12, 12, 12, 12, 12, 12, 43, & ! 7 & 43, 43, 43, 12, 12, 5, 6, 6, 12, 5, & ! 8 & 6, 6, 12, 12, 16, 18, 20, 12, 12, 16, & ! 9 & 6, 12, 12, 123, 124, 12, 94, 6, 6, 6, & ! O & 6, 6, 43, 43, 43, 38, 39, 39, 39, 39, & ! 1 & 39, 39, 39, 39, 39, 39, 99, 40, 107, 106, & ! 2 & 107, 40, 107, 106, 107, 40, 40, 5, 5, 5, & ! 3 & 39, 39, 101, 101, 39, 39, 39, 68, 39, 39, & ! 4 & 43, 43, 39, 39, 12, 12, 12, 12, 12, 12, & ! 5 & 12, 13, 13, 13, 13, 12, 12, 12, 12, 12, & ! 6 & 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, & ! 7 & 6, 12, 12, 12, 12, 12, 12, 13, 12, 12, & ! 8 & 12, 12, 12, 12, 12, 12, 12, 12, 16, 16, & ! 9 & 16, 16, 12, 12, 5, 6, 6, 12, 5, 6, & ! O & 16, 16, 16, 16, 12, 12, 102, 6, 12, 12, & ! 1 & 16, 16, 12, 12, 16, 12, 16, 12, 16, 18, & ! 2 & 12, 12, 12, 12, 12, 17, 12, 6, 6, 6, & ! 3 & 6, 12, 12, 12, 16, 18, 20, 12, 12, 13, & ! 4 & 6, 12, 12, 123, 124, 12, 6, 6, 12, 6, & ! 5 & 6, 12, 12, 6, 6, 18, 0, 107, 107, 107, & ! 6 & 107, 107, 107, 107, 107, 107, 107, 107, 107, 5, & ! 7 & 18, 18, 29, 14, 13, 14, 130, 12, 12, 39, & ! 8 & 95, 16, 128, 111, 34, 43, 39, 22, 5, 6, & ! 9 & 27, 135, 122, 121, 121, 121, 137, 138, 121, 139, & ! O & 140, 140, 10, 9, 0, 141, 142, 144, 146, 148, & ! 1 & 150, 152, 154, 156, 24, 158, 159, 160, 162, 164, & ! 2 & 165, 167, 158, 159, 160, 162, 164, 165, 167, 121, & ! 3 & 161, 163, 138, 166, 136, 39, 12, 12, 12, 12, & ! 4 & 12, 12, 12, 161, 139, 138, 166, 136, 136, 43, & ! 5 & 6, 6, 6, 6, 6, 6, 6, 139, 138, 166, & ! 6 & 136, 136, 136, 161, 169, 118, 118, 6, 13, 16, & ! 7 & 173, 121, 121, 6, 13, 16, 175, 121, 118, 6, & ! 8 & 13, 16, 5, 5, 5, 5, 5, 5, 5, 5, & ! 9 & 5, 5, 5, 5, 5, 5, 5, 5/ ! O DATA ( IRR( IRXXN, 5 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 7, 0, 6, 7, 6, 12, 0, & ! O & 14, 16, 18, 20, 14, 20, 24, 24, 18, 20, & ! 1 & 20, 12, 29, 0, 14, 14, 20, 20, 20, 12, & ! 2 & 12, 12, 12, 12, 16, 6, 6, 8, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 5, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 6, 6, 0, 6, 0, 0, 8, 0, & ! 6 & 0, 6, 0, 47, 0, 0, 0, 52, 52, 0, & ! 7 & 0, 0, 12, 65, 68, 68, 68, 0, 77, 80, & ! 8 & 82, 82, 14, 0, 0, 0, 0, 0, 33, 87, & ! 9 & 0, 89, 14, 14, 14, 14, 29, 0, 12, 12, & ! O & 0, 13, 15, 17, 17, 16, 51, 24, 24, 28, & ! 1 & 0, 0, 103, 20, 8, 8, 27, 6, 0, 30, & ! 2 & 27, 12, 12, 12, 12, 76, 79, 24, 0, 12, & ! 3 & 12, 12, 12, 12, 12, 0, 112, 112, 112, 0, & ! 4 & 114, 116, 0, 14, 10, 10, 29, 30, 14, 14, & ! 5 & 37, 37, 10, 6, 0, 0, 0, 6, 0, 6, & ! 6 & 0, 6, 6, 6, 16, 16, 6, 6, 6, 118, & ! 7 & 118, 121, 121, 6, 6, 6, 23, 5, 6, 6, & ! 8 & 25, 5, 6, 6, 6, 6, 6, 6, 20, 20, & ! 9 & 12, 20, 6, 6, 6, 6, 6, 32, 12, 13, & ! O & 32, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 119, 119, 41, 41, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 16, 18, 20, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 13, 13, 16, 16, 13, 13, & ! 5 & 13, 12, 12, 12, 12, 13, 13, 13, 6, 6, & ! 6 & 13, 13, 13, 13, 16, 16, 20, 13, 13, 20, & ! 7 & 12, 20, 14, 123, 124, 13, 94, 12, 13, 6, & ! 8 & 6, 13, 16, 16, 16, 16, 16, 16, 12, 12, & ! 9 & 12, 12, 16, 16, 16, 106, 16, 16, 16, 25, & ! O & 6, 0, 18, 20, 16, 16, 16, 12, 16, 16, & ! 1 & 123, 124, 16, 16, 32, 16, 6, 16, 0, 0, & ! 2 & 13, 6, 16, 16, 6, 13, 17, 12, 12, 12, & ! 3 & 12, 6, 6, 6, 6, 6, 6, 6, 6, 20, & ! 4 & 12, 20, 6, 6, 6, 6, 94, 32, 6, 13, & ! 5 & 32, 43, 6, 13, 0, 0, 0, 97, 97, 97, & ! 6 & 97, 97, 97, 97, 97, 97, 97, 97, 97, 0, & ! 7 & 52, 52, 87, 12, 29, 12, 21, 6, 6, 0, & ! 8 & 13, 102, 14, 112, 12, 6, 120, 32, 17, 34, & ! 9 & 17, 0, 0, 6, 6, 136, 0, 0, 0, 121, & ! O & 0, 0, 0, 10, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 118, 121, 161, 163, 138, & ! 2 & 166, 43, 6, 6, 6, 6, 6, 6, 6, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 121, 161, 163, 138, & ! 4 & 166, 136, 118, 6, 6, 6, 6, 6, 6, 6, & ! 5 & 121, 161, 163, 138, 166, 136, 22, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 12, 139, 161, 12, 12, 12, & ! 7 & 12, 138, 139, 12, 12, 12, 12, 139, 161, 12, & ! 8 & 12, 12, 176, 176, 176, 176, 176, 176, 176, 176, & ! 9 & 176, 176, 176, 176, 176, 170, 119, 176/ ! O DATA ( IRR( IRXXN, 6 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 6, 0, & ! O & 0, 14, 14, 0, 0, 14, 14, 14, 20, 14, & ! 1 & 13, 20, 14, 0, 0, 0, 14, 30, 30, 14, & ! 2 & 13, 17, 17, 17, 0, 17, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 10, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 48, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 14, 12, 12, 12, 12, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 17, 26, 14, 0, 92, 92, & ! O & 0, 0, 0, 15, 0, 13, 30, 30, 30, 100, & ! 1 & 0, 0, 0, 30, 13, 13, 0, 0, 0, 27, & ! 2 & 13, 14, 16, 16, 16, 77, 80, 13, 0, 20, & ! 3 & 20, 16, 82, 82, 14, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 10, 0, 0, 30, 14, 10, 10, & ! 5 & 92, 92, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 13, 15, 18, 18, 13, 13, 15, 119, & ! 7 & 119, 122, 122, 13, 23, 107, 0, 107, 25, 107, & ! 8 & 0, 107, 106, 106, 0, 0, 13, 13, 30, 6, & ! 9 & 13, 30, 14, 0, 0, 27, 0, 12, 43, 17, & ! O & 39, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 122, 122, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 102, 102, 13, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 95, 15, 18, 18, 17, 17, & ! 5 & 17, 95, 95, 95, 95, 28, 23, 95, 13, 95, & ! 6 & 25, 95, 25, 6, 13, 13, 13, 34, 34, 14, & ! 7 & 13, 30, 13, 13, 13, 27, 13, 32, 43, 13, & ! 8 & 13, 0, 15, 18, 18, 13, 13, 17, 102, 102, & ! 9 & 102, 102, 13, 23, 102, 23, 102, 25, 102, 106, & ! O & 102, 0, 0, 13, 13, 34, 20, 13, 20, 14, & ! 1 & 0, 0, 27, 94, 0, 43, 13, 6, 0, 0, & ! 2 & 6, 15, 30, 18, 13, 12, 22, 36, 36, 36, & ! 3 & 36, 13, 17, 59, 0, 0, 13, 13, 34, 14, & ! 4 & 13, 30, 14, 0, 0, 27, 0, 12, 43, 17, & ! 5 & 39, 0, 13, 17, 0, 0, 0, 23, 25, 13, & ! 6 & 23, 25, 13, 23, 25, 13, 23, 25, 13, 0, & ! 7 & 0, 0, 0, 5, 30, 55, 12, 128, 128, 0, & ! 8 & 12, 12, 12, 128, 132, 120, 5, 12, 0, 90, & ! 9 & 12, 0, 0, 0, 0, 0, 0, 0, 0, 6, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 6, 6, 6, 6, 6, & ! 2 & 6, 6, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 121, 161, 163, 138, 166, 12, 22, & ! 5 & 12, 12, 12, 12, 12, 12, 12, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 118, 170, 171, 36, 95, 102, & ! 7 & 121, 170, 170, 118, 95, 102, 121, 176, 176, 118, & ! 8 & 95, 102, 34, 170, 170, 170, 170, 170, 170, 170, & ! 9 & 170, 170, 170, 170, 170, 136, 171, 170/ ! O DATA ( IRR( IRXXN, 7 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 8, 0, & ! O & 0, 0, 0, 0, 0, 13, 0, 0, 14, 0, & ! 1 & 0, 29, 21, 0, 0, 0, 0, 14, 14, 0, & ! 2 & 0, 0, 0, 0, 0, 22, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 32, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 22, 32, 32, 0, 37, 37, & ! O & 0, 0, 0, 0, 0, 0, 17, 17, 17, 0, & ! 1 & 0, 0, 0, 13, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 13, 18, 18, 20, 23, 25, 22, 0, 14, & ! 3 & 30, 20, 30, 30, 32, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 33, 13, 0, 0, & ! 5 & 117, 117, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 30, 30, 17, 15, 17, 6, & ! 7 & 6, 6, 6, 28, 106, 0, 0, 0, 13, 0, & ! 8 & 0, 0, 13, 13, 0, 0, 0, 34, 6, 14, & ! 9 & 27, 6, 13, 0, 0, 32, 0, 0, 0, 22, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 42, 42, 39, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 95, 30, 30, 95, 22, & ! 5 & 22, 36, 36, 36, 36, 31, 22, 107, 23, 13, & ! 6 & 22, 107, 6, 95, 102, 102, 95, 95, 95, 13, & ! 7 & 27, 13, 17, 0, 0, 32, 0, 0, 0, 17, & ! 8 & 32, 0, 102, 30, 30, 17, 17, 22, 36, 36, & ! 9 & 36, 36, 28, 102, 107, 16, 107, 22, 107, 16, & ! O & 107, 0, 0, 102, 34, 102, 14, 27, 30, 13, & ! 1 & 0, 0, 32, 0, 0, 0, 17, 32, 0, 0, & ! 2 & 0, 0, 18, 30, 17, 6, 6, 32, 32, 32, & ! 3 & 32, 28, 22, 13, 0, 0, 0, 34, 0, 6, & ! 4 & 27, 6, 13, 0, 0, 32, 0, 0, 0, 22, & ! 5 & 0, 0, 17, 22, 0, 0, 0, 5, 5, 31, & ! 6 & 5, 5, 31, 6, 6, 31, 6, 6, 31, 0, & ! 7 & 0, 0, 0, 13, 33, 20, 0, 13, 13, 0, & ! 8 & 128, 128, 5, 0, 0, 12, 12, 16, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 12, 12, 12, 12, 12, 0, 12, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 6, 32, 36, 36, & ! 7 & 0, 0, 6, 32, 118, 118, 0, 0, 6, 32, & ! 8 & 118, 118, 26, 119, 136, 34, 136, 136, 119, 136, & ! 9 & 136, 136, 136, 136, 119, 119, 122, 119/ ! O DATA ( IRR( IRXXN, 8 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 17, 0, 0, 0, 0, & ! 1 & 0, 30, 0, 0, 0, 0, 0, 32, 32, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 62, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 32, 33, 33, 0, 93, 93, & ! O & 0, 0, 0, 0, 0, 0, 22, 22, 22, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 62, 51, 51, 29, 4, 4, 12, 0, 33, & ! 3 & 14, 30, 14, 14, 34, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 10, 17, 0, 0, & ! 5 & 10, 10, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 6, 6, 0, 17, 19, 12, & ! 7 & 12, 12, 12, 31, 0, 0, 0, 0, 21, 0, & ! 8 & 0, 0, 22, 22, 0, 0, 0, 0, 17, 13, & ! 9 & 0, 13, 17, 0, 0, 39, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 96, 13, 13, 98, 95, & ! 5 & 95, 32, 32, 32, 32, 95, 95, 0, 95, 107, & ! 6 & 95, 0, 95, 107, 0, 0, 97, 97, 97, 102, & ! 7 & 95, 17, 22, 0, 0, 39, 0, 0, 0, 22, & ! 8 & 39, 0, 0, 13, 13, 102, 22, 102, 32, 32, & ! 9 & 32, 32, 31, 22, 0, 102, 0, 102, 0, 102, & ! O & 0, 0, 0, 0, 102, 0, 13, 16, 13, 17, & ! 1 & 0, 0, 39, 0, 0, 0, 22, 39, 0, 0, & ! 2 & 0, 0, 6, 6, 0, 26, 19, 120, 33, 33, & ! 3 & 33, 31, 0, 28, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 13, 17, 0, 0, 39, 0, 0, 0, 0, & ! 5 & 0, 0, 22, 43, 0, 0, 0, 12, 12, 5, & ! 6 & 12, 12, 5, 12, 12, 6, 12, 12, 6, 0, & ! 7 & 0, 0, 0, 32, 10, 5, 0, 131, 131, 0, & ! 8 & 57, 13, 13, 0, 0, 16, 16, 14, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 12, 33, 32, 32, & ! 7 & 0, 0, 12, 33, 32, 32, 0, 0, 12, 33, & ! 8 & 32, 32, 15, 171, 119, 26, 119, 119, 171, 119, & ! 9 & 119, 119, 119, 119, 171, 171, 139, 122/ ! O DATA ( IRR( IRXXN, 9 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 22, 0, 0, 0, 0, & ! 1 & 0, 14, 0, 0, 0, 0, 0, 33, 33, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 33, 39, 39, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 54, 20, 4, 14, 14, 14, 0, 62, & ! 3 & 13, 14, 13, 13, 62, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 6, 43, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 15, 13, 0, 19, 22, 36, & ! 7 & 36, 36, 36, 109, 0, 0, 0, 0, 106, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 33, 0, & ! 9 & 0, 17, 32, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 17, 17, 0, 97, & ! 5 & 97, 120, 33, 33, 33, 97, 97, 0, 106, 0, & ! 6 & 97, 0, 106, 0, 0, 0, 102, 0, 0, 16, & ! 7 & 97, 33, 32, 0, 0, 0, 0, 0, 0, 95, & ! 8 & 43, 0, 0, 17, 17, 0, 102, 0, 120, 33, & ! 9 & 33, 33, 102, 97, 0, 0, 0, 13, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 102, 17, 22, & ! 1 & 0, 0, 0, 0, 0, 0, 102, 43, 0, 0, & ! 2 & 0, 0, 15, 13, 0, 15, 15, 35, 120, 120, & ! 3 & 120, 32, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 17, 22, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 43, 0, 0, 0, 0, 125, 125, 12, & ! 6 & 125, 125, 12, 125, 125, 12, 125, 125, 12, 0, & ! 7 & 0, 0, 0, 0, 6, 13, 0, 43, 0, 0, & ! 8 & 31, 31, 55, 0, 0, 0, 0, 52, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 36, 120, 33, 33, & ! 7 & 0, 0, 118, 120, 33, 33, 0, 0, 32, 120, & ! 8 & 33, 33, 17, 122, 171, 22, 171, 171, 122, 171, & ! 9 & 171, 171, 171, 171, 122, 122, 163, 34/ ! O DATA ( IRR( IRXXN, 10 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 13, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 4, 14, 14, 0, 0, 0, 0, 0, & ! 3 & 33, 13, 32, 32, 102, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 17, 15, 0, 26, 27, 32, & ! 7 & 32, 32, 32, 32, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 33, 22, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 22, 22, 0, 0, & ! 5 & 0, 35, 120, 120, 120, 17, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 95, & ! 7 & 0, 95, 33, 0, 0, 0, 0, 0, 0, 97, & ! 8 & 0, 0, 0, 22, 22, 0, 0, 0, 35, 120, & ! 9 & 120, 120, 0, 0, 0, 0, 0, 97, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 33, 32, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 17, 17, 0, 19, 27, 90, 34, 35, & ! 3 & 35, 27, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 33, 32, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 125, & ! 6 & 0, 0, 125, 0, 0, 125, 0, 0, 125, 0, & ! 7 & 0, 0, 0, 0, 0, 16, 0, 0, 0, 0, & ! 8 & 131, 131, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 32, 35, 120, 120, & ! 7 & 0, 0, 32, 35, 120, 120, 0, 0, 33, 35, & ! 8 & 120, 120, 16, 139, 166, 15, 122, 166, 161, 166, & ! 9 & 122, 166, 166, 122, 139, 138, 161, 26/ ! O DATA ( IRR( IRXXN, 11 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 14, 4, 13, 0, 0, 0, 0, 0, & ! 3 & 62, 15, 33, 33, 42, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 19, 17, 0, 43, 43, 120, & ! 7 & 33, 33, 33, 27, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 33, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 32, 95, 0, 0, & ! 5 & 0, 90, 34, 35, 35, 32, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 97, & ! 7 & 0, 97, 95, 0, 0, 0, 0, 0, 0, 43, & ! 8 & 0, 0, 0, 32, 102, 0, 0, 0, 90, 34, & ! 9 & 35, 35, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 102, 33, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 26, 22, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 17, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 33, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 21, 21, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 33, 0, 35, 35, & ! 7 & 0, 0, 33, 0, 35, 35, 0, 0, 120, 0, & ! 8 & 35, 35, 18, 161, 122, 17, 138, 122, 121, 122, & ! 9 & 138, 122, 122, 138, 163, 139, 121, 15/ ! O DATA ( IRR( IRXXN, 12 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 49, 49, 28, 0, 0, 0, 0, 0, & ! 3 & 102, 22, 39, 34, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 26, 26, 0, 0, 0, 35, & ! 7 & 120, 120, 120, 17, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 95, 97, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 27, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 102, 97, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 102, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 102, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 19, 26, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 120, 0, 0, 0, & ! 7 & 0, 0, 120, 0, 0, 0, 0, 0, 35, 0, & ! 8 & 0, 0, 51, 121, 138, 16, 139, 138, 118, 138, & ! 9 & 139, 138, 138, 139, 161, 163, 118, 17/ ! O DATA ( IRR( IRXXN, 13 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 50, 50, 31, 0, 0, 0, 0, 0, & ! 3 & 17, 32, 0, 39, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 43, 19, 0, 0, 0, 90, & ! 7 & 34, 35, 35, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 97, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 19, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 35, 0, 0, 0, & ! 7 & 0, 0, 35, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 85, 118, 139, 18, 163, 139, 39, 139, & ! 9 & 161, 139, 139, 163, 121, 161, 177, 16/ ! O DATA ( IRR( IRXXN, 14 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 53, 13, 62, 0, 0, 0, 0, 0, & ! 3 & 0, 33, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 22, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 15, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 41, 163, 51, 161, 163, 34, 163, & ! 9 & 121, 163, 163, 161, 118, 121, 178, 18/ ! O DATA ( IRR( IRXXN, 15 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 63, 15, 57, 0, 0, 0, 0, 0, & ! 3 & 0, 62, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 27, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 27, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 39, 161, 85, 121, 161, 26, 161, & ! 9 & 118, 161, 161, 121, 177, 118, 41, 51/ ! O DATA ( IRR( IRXXN, 16 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 13, 17, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 43, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 34, 121, 54, 118, 121, 22, 121, & ! 9 & 177, 121, 121, 118, 178, 177, 39, 85/ ! O DATA ( IRR( IRXXN, 17 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 15, 19, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 26, 118, 0, 177, 118, 15, 118, & ! 9 & 41, 118, 118, 177, 41, 178, 34, 0/ ! O DATA ( IRR( IRXXN, 18 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 17, 22, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 22, 177, 0, 39, 177, 17, 177, & ! 9 & 39, 177, 177, 178, 39, 41, 27, 0/ ! O DATA ( IRR( IRXXN, 19 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 19, 27, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 15, 178, 0, 34, 178, 16, 178, & ! 9 & 34, 178, 178, 41, 34, 39, 26, 0/ ! O DATA ( IRR( IRXXN, 20 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 36, 102, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 17, 41, 0, 27, 41, 18, 41, & ! 9 & 27, 41, 41, 39, 27, 34, 15, 0/ ! O DATA ( IRR( IRXXN, 21 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 26, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 16, 34, 0, 26, 39, 51, 34, & ! 9 & 26, 39, 39, 34, 26, 27, 17, 0/ ! O DATA ( IRR( IRXXN, 22 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 27, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 18, 27, 0, 15, 34, 85, 27, & ! 9 & 15, 34, 34, 27, 15, 26, 16, 0/ ! O DATA ( IRR( IRXXN, 23 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 62, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 51, 26, 0, 17, 27, 54, 26, & ! 9 & 17, 27, 27, 26, 17, 15, 18, 0/ ! O DATA ( IRR( IRXXN, 24 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 102, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 85, 15, 0, 16, 26, 86, 15, & ! 9 & 16, 26, 26, 15, 16, 17, 51, 0/ ! O DATA ( IRR( IRXXN, 25 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 54, 17, 0, 18, 15, 0, 17, & ! 9 & 18, 15, 15, 17, 18, 16, 85, 0/ ! O DATA ( IRR( IRXXN, 26 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 86, 16, 0, 51, 17, 0, 16, & ! 9 & 51, 17, 17, 16, 51, 18, 54, 0/ ! O DATA ( IRR( IRXXN, 27 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 18, 0, 85, 16, 0, 18, & ! 9 & 85, 16, 16, 18, 85, 51, 0, 0/ ! O DATA ( IRR( IRXXN, 28 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 51, 0, 54, 18, 0, 51, & ! 9 & 54, 18, 18, 51, 54, 85, 0, 0/ ! O DATA ( IRR( IRXXN, 29 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 85, 0, 0, 51, 0, 85, & ! 9 & 0, 51, 51, 85, 0, 54, 0, 0/ ! O DATA ( IRR( IRXXN, 30 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 54, 0, 0, 85, 0, 54, & ! 9 & 0, 85, 85, 54, 0, 0, 0, 0/ ! O DATA ( IRR( IRXXN, 31 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 54, 0, 0, & ! 9 & 0, 54, 54, 0, 0, 0, 0, 0/ ! O DATA ( RTDAT( 1,IRXXN ), IRXXN = 1, NRXNS ) / & & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! O & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 1 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 2 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 3 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.7000D-12, 1.0000D-14, & ! + & 3.0000D-12, 1.2000D-13, 6.1000D-34, 8.0000D-12, 3.3000D-11, & ! 4 & 2.1500D-11, 1.6300D-10, 2.8000D-12, 4.8000D-11, 3.0000D-13, & ! + & 4.2000D-34, 1.8000D-12, 9.1000D-32, 7.1000D-31, 3.4400D-12, & ! 5 & 6.0950D-14, 4.2500D-39, 3.0000D-12, 5.3000D-12, 3.4000D-31, & ! + & 1.8000D-30, 2.4000D-14, 2.0000D-11, 3.5000D-12, 1.7000D-11, & ! 6 & 4.3500D-14, 8.5000D-13, 2.4000D-30, 5.8000D-27, 1.0000D-22, & ! + & 1.9000D-31, 2.1000D-27, 4.5000D-13, 2.9000D-31, 1.4400D-13, & ! 7 & 2.4500D-12, 7.6600D-12, 7.6800D-12, 1.0100D-11, 1.0000D-28, & ! + & 5.7200D-12, 1.3300D-11, 5.5000D-30, 2.3300D-12, 1.8100D-12, & ! 8 & 2.3300D-11, 7.1600D-12, 2.7000D-11, 1.2100D-11, 4.2000D-11, & ! + & 5.2000D-12, 1.0000D-10, 5.5000D-12, 4.7000D-12, 4.9000D-12, & ! 9 & 4.5600D-14, 1.5000D-12, 2.8000D-12, 3.0000D-12, 8.0000D-12, & ! + & 2.6000D-12, 5.7700D-12, 1.1000D-11, 9.2600D-13, 2.8000D-11, & ! O & 2.8000D-11, 1.0000D-11, 5.3200D-12, 6.7500D-12, 4.6500D-11, & ! + & 2.0500D-10, 2.8500D-12, 3.0000D-12, 2.6000D-12, 1.4700D-11, & ! 1 & 2.9000D-12, 3.4000D-12, 3.4000D-12, 3.4000D-12, 1.0000D-10, & ! + & 3.0000D-11, 4.5000D-13, 4.0000D-14, 2.9300D-12, 4.0000D-14, & ! 2 & 4.0000D-14, 3.2000D-11, 5.3100D-12, 4.8000D-12, 5.6000D-12, & ! + & 1.3000D-11, 9.1400D-15, 4.3300D-15, 4.4000D-15, 7.8600D-15, & ! 3 & 5.0000D-16, 2.9500D-15, 8.3000D-18, 1.6700D-16, 1.3600D-15, & ! + & 8.5000D-16, 1.6600D-18, 2.0000D-16, 2.0000D-16, 9.0000D-17, & ! 4 & 2.8600D-13, 4.3920D-13, 1.7900D-13, 8.6400D-13, 3.0300D-12, & ! + & 1.1900D-12, 1.2200D-11, 3.1500D-14, 2.0000D-12, 1.4000D-12, & ! 5 & 3.7600D-12, 3.4000D-15, 5.0200D-13, 2.9000D-12, 3.7600D-12, & ! + & 3.7800D-12, 1.0600D-12, 2.0100D-10, 2.2000D-14, 1.0000D+00, & ! 6 & 1.0000D+00, 9.7000D-29, 9.0000D-29, 9.7000D-29, 9.0000D-29, & ! + & 2.8000D-12, 1.6000D+16, 2.8000D-12, 2.6000D-12, 4.0000D-12, & ! 7 & 4.0000D-12, 9.0000D-12, 4.0000D-12, 4.0000D-12, 2.7000D-12, & ! + & 2.7000D-12, 2.7000D-12, 2.7000D-12, 2.4300D-12, 4.0000D-12, & ! 8 & 4.0000D-12, 4.0000D-12, 4.0000D-12, 4.0000D-12, 4.0000D-12, & ! + & 4.0000D-12, 4.0000D-12, 2.7000D-12, 2.7000D-12, 8.1000D-12, & ! 9 & 8.1000D-12, 2.9000D-12, 4.0000D-12, 4.0000D-12, 2.5400D-12, & ! + & 2.5400D-12, 2.5400D-12, 2.5400D-12, 4.0000D-12, 4.0000D-12, & ! O & 2.7000D-12, 2.7000D-12, 4.0000D-12, 4.0000D-12, 4.0000D-12, & ! + & 2.7000D-12, 4.0000D-12, 2.0000D-11, 2.0000D-11, 2.0800D-12, & ! 1 & 4.1000D-13, 7.5000D-13, 1.6600D-13, 1.6600D-13, 1.9000D-13, & ! + & 1.6600D-13, 1.6600D-13, 2.9100D-13, 2.9100D-13, 2.9100D-13, & ! 2 & 2.9100D-13, 2.0500D-13, 1.5000D-11, 1.5000D-11, 1.5000D-11, & ! + & 1.5000D-11, 1.5000D-11, 1.5000D-11, 1.5000D-11, 1.5000D-11, & ! 3 & 2.9100D-13, 2.9100D-13, 4.3000D-13, 4.3000D-13, 1.1500D-13, & ! + & 1.1500D-13, 1.1500D-13, 1.8200D-13, 1.8200D-13, 2.9100D-13, & ! 4 & 2.9100D-13, 3.7500D-13, 1.0000D-11, 3.7500D-13, 1.1500D-13, & ! + & 1.6600D-13, 1.6600D-13, 3.7500D-13, 1.6600D-13, 9.5000D-14, & ! 5 & 1.1800D-13, 9.4600D-14, 1.0000D-13, 1.7100D-13, 1.4600D-13, & ! + & 9.1800D-14, 3.5600D-14, 3.5600D-14, 3.5600D-14, 3.5600D-14, & ! 6 & 3.4000D-14, 3.5600D-14, 1.0000D-10, 3.5600D-14, 1.0000D-10, & ! + & 3.5600D-14, 1.0000D-10, 3.5600D-14, 1.0000D-10, 2.0000D-11, & ! 7 & 2.0000D-11, 7.5000D-13, 6.9100D-13, 6.9100D-13, 3.4000D-14, & ! + & 3.4000D-14, 8.3700D-14, 3.4000D-14, 3.5600D-14, 3.5600D-14, & ! 8 & 3.5600D-14, 3.5600D-14, 7.5000D-13, 1.6000D-13, 9.6800D-14, & ! + & 3.5600D-14, 5.9900D-15, 1.0300D-12, 6.9000D-13, 5.5900D-13, & ! 9 & 9.4800D-13, 8.1100D-13, 5.0900D-13, 7.4000D-13, 7.4000D-13, & ! + & 7.4000D-13, 7.4000D-13, 8.4000D-14, 7.4000D-13, 1.0000D-10, & ! O & 7.4000D-13, 1.0000D-10, 7.4000D-13, 1.0000D-10, 7.4000D-13, & ! + & 1.0000D-10, 2.5000D-12, 2.5000D-12, 7.5100D-13, 7.5100D-13, & ! 1 & 7.5100D-13, 8.4000D-14, 8.4000D-14, 1.6800D-12, 1.6800D-12, & ! + & 7.4000D-13, 7.4000D-13, 7.4000D-13, 7.4000D-13, 7.5100D-13, & ! 2 & 8.8500D-13, 5.3700D-13, 7.4000D-13, 3.4000D-14, 2.5000D-12, & ! + & 1.2000D-12, 1.2000D-12, 1.2000D-12, 1.2000D-12, 1.2000D-12, & ! 3 & 1.2000D-12, 1.2000D-12, 2.3000D-12, 2.3000D-12, 2.3000D-12, & ! + & 2.3000D-12, 1.2000D-12, 1.2000D-12, 1.2000D-12, 4.0000D-12, & ! 4 & 4.0000D-12, 1.2000D-12, 1.2000D-12, 1.2000D-12, 1.2000D-12, & ! + & 1.2000D-12, 2.5000D-12, 2.5000D-12, 2.5000D-12, 2.5000D-12, & ! 5 & 1.2000D-12, 1.2000D-12, 1.2000D-12, 1.2000D-12, 1.2000D-12, & ! + & 1.2000D-12, 7.0000D-14, 4.2500D-14, 2.9600D-14, 1.2000D-12, & ! 6 & 2.5000D-12, 7.1300D-17, 1.0000D-10, 1.0000D-10, 1.0000D-10, & ! + & 1.0000D-10, 1.0000D-10, 1.0000D-10, 1.0000D-10, 1.0000D-10, & ! 7 & 1.0000D-10, 1.0000D-10, 1.0000D-10, 1.0000D-10, 5.7800D-11, & ! + & 6.8900D-12, 6.5500D-14, 8.0000D-12, 2.9000D-19, 3.4000D-15, & ! 8 & 1.0000D+00, 1.4800D-11, 9.0500D-12, 2.3000D-12, 1.6100D-11, & ! + & 2.3900D-12, 1.3700D-11, 1.3400D-14, 1.0000D-13, 5.0100D-11, & ! 9 & 2.7000D-12, 3.7500D-13, 4.4000D-11, 3.4300D-17, 8.9900D-12, & ! + & 1.2000D-11, 1.9000D-11, 2.8400D-13, 2.7000D-12, 2.3000D-12, & ! O & 1.2000D-14, 1.9700D-10, 2.8400D-13, 2.3000D-12, 2.7000D-12, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 6.7006D-11, & ! 1 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.5300D-11, 1.6800D-11, & ! + & 2.2400D-11, 2.6700D-11, 3.0900D-11, 3.3800D-11, 1.1000D-11, & ! 2 & 2.7000D-12, 2.7000D-12, 2.7000D-12, 2.7000D-12, 2.7000D-12, & ! + & 2.7000D-12, 2.7000D-12, 2.3000D-12, 2.3000D-12, 2.3000D-12, & ! 3 & 2.3000D-12, 2.3000D-12, 2.3000D-12, 2.3000D-12, 2.1700D-11, & ! + & 2.2000D-11, 2.2500D-11, 2.2600D-11, 2.2700D-11, 2.2700D-11, & ! 4 & 2.6600D-13, 1.8800D-01, 1.8800D-01, 1.8800D-01, 1.8800D-01, & ! + & 1.8800D-01, 1.8800D-01, 1.8800D-01, 2.7000D-12, 2.7000D-12, & ! 5 & 2.7000D-12, 2.7000D-12, 2.7000D-12, 2.7000D-12, 2.7000D-12, & ! + & 2.3000D-12, 2.3000D-12, 2.3000D-12, 2.3000D-12, 2.3000D-12, & ! 6 & 2.3000D-12, 2.3000D-12, 2.1700D-11, 2.2000D-11, 2.2500D-11, & ! + & 2.2600D-11, 2.2700D-11, 2.2700D-11, 2.6600D-13, 1.8100D-11, & ! 7 & 2.9100D-13, 2.7000D-12, 2.3000D-12, 3.5600D-14, 7.4000D-13, & ! + & 1.8100D-11, 2.9100D-13, 2.7000D-12, 2.3000D-12, 3.5600D-14, & ! 8 & 7.4000D-13, 2.3100D-11, 2.9100D-13, 2.7000D-12, 2.3000D-12, & ! + & 3.5600D-14, 7.4000D-13, 5.9000D-11, 6.0700D-11, 5.5400D-11, & ! 9 & 5.6300D-11, 5.4600D-11, 4.5000D-11, 5.1700D-11, 4.7300D-11, & ! + & 4.6000D-11, 3.8000D-11, 3.9300D-11, 3.5200D-11, 3.1200D-11, & ! O & 2.4000D-11, 2.0500D-11, 4.6900D-11/ ! + DATA ( RTDAT( 2,IRXXN ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00,-2.4000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 4.6000D+02, & ! + & 2.6600D+03, 0.0000D+00,-1.5000D+00,-2.6000D+00, 0.0000D+00, & ! 5 & 2.7000D+02, 0.0000D+00, 0.0000D+00, 0.0000D+00,-1.6000D+00, & ! + & -3.0000D+00, 4.6000D+02, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00,-3.0000D+00, 1.0840D+04, 0.0000D+00, & ! + & -3.4000D+00, 1.0900D+04, 0.0000D+00,-4.1000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00,-4.5000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 3.6500D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 2.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00,-5.6000D+00, 1.4000D+04,-5.6000D+00, 1.4000D+04, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 3.4153D-08, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00/ ! + DATA ( RTDAT( 3,IRXXN ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00,-9.4000D+02,-4.9000D+02, & ! + & -1.5000D+03,-2.4500D+03, 0.0000D+00,-2.0600D+03, 5.5000D+01, & ! 4 & 1.1000D+02, 6.0000D+01,-1.8000D+03, 2.5000D+02, 2.1000D-33, & ! + & 2.9400D-54, 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.6000D+02, & ! 5 & 6.8570D-34, 6.6350D+02, 2.5000D+02, 2.0000D+02, 0.0000D+00, & ! + & 0.0000D+00, 2.7000D-17, 0.0000D+00, 0.0000D+00, 1.2500D+02, & ! 6 & -1.3350D+03,-2.4500D+03, 0.0000D+00, 6.8000D+01, 0.0000D+00, & ! + & 0.0000D+00, 7.1000D+01, 6.1000D+02, 0.0000D+00, 2.7400D-33, & ! 7 & -1.7750D+03,-1.0200D+03,-3.7000D+02,-2.4500D+02, 0.0000D+00, & ! + & 5.0000D+02, 5.0000D+02, 0.0000D+00,-1.9300D+02, 3.5400D+02, & ! 8 & 0.0000D+00, 0.0000D+00, 3.9000D+02, 4.4000D+02, 4.0100D+02, & ! + & 6.0000D+02, 0.0000D+00, 1.2500D+02, 3.4500D+02, 4.0500D+02, & ! 9 & -4.2700D+02,-9.0000D+01, 1.0000D+01, 0.0000D+00, 3.8000D+02, & ! + & 6.1000D+02, 5.3300D+02, 0.0000D+00, 8.3000D+02, 1.7500D+02, & ! O & 1.7500D+02, 0.0000D+00, 2.4300D+02, 4.0500D+02, 0.0000D+00, & ! + & 0.0000D+00,-3.4500D+02, 2.0000D+01, 2.0000D+02, 0.0000D+00, & ! 1 & 1.9000D+02, 1.9000D+02, 1.9000D+02, 1.9000D+02, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 8.5000D+02, 1.9000D+02, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00,-2.6000D+02, 0.0000D+00, 2.7000D+02, & ! + & 0.0000D+00,-2.5800D+03,-1.8000D+03,-8.4500D+02,-1.9130D+03, & ! 3 & -5.3000D+02,-7.8300D+02, 0.0000D+00, 0.0000D+00,-2.1120D+03, & ! + & -1.5200D+03, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00,-2.2820D+03,-4.5000D+02, 4.5000D+02,-4.4600D+02, & ! + & 4.9000D+02, 0.0000D+00,-4.4800D+02,-2.4400D+03,-1.9000D+03, & ! 5 & -1.9000D+03, 0.0000D+00,-1.0760D+03,-1.9000D+03,-1.9000D+03, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00,-5.0000D+02, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 1.6700D+02, 0.0000D+00, 1.6900D+02, & ! + & 1.8100D+02,-1.3486D+04, 3.0000D+02, 3.6500D+02, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 3.6000D+02, & ! + & 3.6000D+02, 3.6000D+02, 3.6000D+02, 3.6000D+02, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 3.6000D+02, 3.6000D+02, 2.7000D+02, & ! 9 & 2.7000D+02, 3.0000D+02, 0.0000D+00, 0.0000D+00, 3.6000D+02, & ! + & 3.6000D+02, 3.6000D+02, 3.6000D+02, 0.0000D+00, 0.0000D+00, & ! O & 3.6000D+02, 3.6000D+02, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 3.6000D+02, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 7.5000D+02, 7.0000D+02, 1.3000D+03, 1.3000D+03, 1.3000D+03, & ! + & 1.3000D+03, 1.3000D+03, 1.3000D+03, 1.3000D+03, 1.3000D+03, & ! 2 & 1.3000D+03, 1.3000D+03, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 1.3000D+03, 1.3000D+03, 1.0400D+03, 1.0400D+03, 1.3000D+03, & ! + & 1.3000D+03, 1.3000D+03, 1.3000D+03, 1.3000D+03, 1.3000D+03, & ! 4 & 1.3000D+03, 9.8000D+02, 0.0000D+00, 9.8000D+02, 1.3000D+03, & ! + & 1.3000D+03, 1.3000D+03, 9.8000D+02, 1.3000D+03, 3.9000D+02, & ! 5 & 1.5800D+02, 4.3100D+02, 4.6700D+02, 7.0800D+02, 7.0800D+02, & ! + & 7.0800D+02, 7.0800D+02, 7.0800D+02, 7.0800D+02, 7.0800D+02, & ! 6 & 2.2100D+02, 7.0800D+02, 0.0000D+00, 7.0800D+02, 0.0000D+00, & ! + & 7.0800D+02, 0.0000D+00, 7.0800D+02, 0.0000D+00, 5.0000D+02, & ! 7 & 5.0000D+02, 5.0000D+02, 5.0800D+02, 5.0800D+02, 2.2100D+02, & ! + & 2.2100D+02, 0.0000D+00, 2.2100D+02, 7.0800D+02, 7.0800D+02, & ! 8 & 7.0800D+02, 7.0800D+02, 5.0000D+02, 7.0800D+02, 7.0800D+02, & ! + & 0.0000D+00, 1.5100D+03, 2.1100D+02, 4.6000D+02, 5.2200D+02, & ! 9 & 7.6500D+02, 7.6500D+02, 7.6500D+02, 7.6500D+02, 7.6500D+02, & ! + & 7.6500D+02, 7.6500D+02, 2.2100D+02, 7.6500D+02, 0.0000D+00, & ! O & 7.6500D+02, 0.0000D+00, 7.6500D+02, 0.0000D+00, 7.6500D+02, & ! + & 0.0000D+00, 5.0000D+02, 5.0000D+02, 5.6500D+02, 5.6500D+02, & ! 1 & 5.6500D+02, 2.2100D+02, 2.2100D+02, 5.0000D+02, 5.0000D+02, & ! + & 7.6500D+02, 7.6500D+02, 7.0800D+02, 7.0800D+02, 5.6500D+02, & ! 2 & 7.6500D+02, 7.6500D+02, 7.0800D+02, 1.5600D+03, 5.0000D+02, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 1.0000D+03, 1.0000D+03, 1.0000D+03, 0.0000D+00, & ! 6 & 5.0000D+02, 2.9500D+03, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00,-4.0000D+02, & ! + & 0.0000D+00, 0.0000D+00, 3.8000D+02, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 4.4800D+02, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00,-2.2830D+03, 0.0000D+00, 0.0000D+00, & ! 9 & 3.6000D+02, 9.8000D+02, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 1.3000D+03, 3.6000D+02, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 1.3000D+03, 0.0000D+00, 3.6000D+02, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.0000D-06, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 3.6000D+02, 3.6000D+02, 3.6000D+02, 3.6000D+02, 3.6000D+02, & ! + & 3.6000D+02, 3.6000D+02, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 1.3000D+03, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 3.6000D+02, 3.6000D+02, & ! 5 & 3.6000D+02, 3.6000D+02, 3.6000D+02, 3.6000D+02, 3.6000D+02, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.3000D+03, 0.0000D+00, & ! 7 & 1.3000D+03, 3.6000D+02, 0.0000D+00, 7.0800D+02, 7.6500D+02, & ! + & 0.0000D+00, 1.3000D+03, 3.6000D+02, 0.0000D+00, 7.0800D+02, & ! 8 & 7.6500D+02, 0.0000D+00, 1.3000D+03, 3.6000D+02, 0.0000D+00, & ! + & 7.0800D+02, 7.6500D+02, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00/ ! + INTEGER :: IRRFALL( NFALLOFF ) DATA ( IRRFALL( IRXXN ), IRXXN = 1, NFALLOFF ) / & & 50, 51, 53, 54, 56, 60, 61, 62, 68, 71, & & 74, 75, 80, 83, 167, 169, 415/ DATA ( RFDAT( 1,IRXXN ), IRXXN = 1, NFALLOFF ) / & & 9.2000D+02, 3.1200D+03, 3.0000D-11, 3.6000D-11, 2.7000D+02, & & 2.3000D-11, 2.8000D-11, 2.1990D+03, 1.6000D-12, 4.0000D-12, & & 1.7000D-12, 0.0000D+00, 8.8000D-12, 8.3000D-13, 9.3000D-12, & & 9.3000D-12, 1.0743D+01/ DATA ( RFDAT( 2,IRXXN ), IRXXN = 1, NFALLOFF ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00,-1.0000D-01,-1.0000D+00, & & -2.0000D-01, 0.0000D+00, 6.5000D-34, 1.0000D-01,-3.0000D-01, & & 2.0000D-01, 0.0000D+00,-8.5000D-01, 2.0000D+00,-1.5000D+00, & & -1.5000D+00,-6.7130D-01/ DATA ( RFDAT( 3,IRXXN ), IRXXN = 1, NFALLOFF ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, & & 0.0000D+00, 0.0000D+00, 1.3350D+03, 0.0000D+00, 0.0000D+00, & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & & 0.0000D+00, 0.0000D+00/ DATA ( RFDAT( 4,IRXXN ), IRXXN = 1, NFALLOFF ) / & & 0.0000D+00, 0.0000D+00, 6.0000D-01, 6.0000D-01,-5.9680D-14, & & 6.0000D-01, 6.0000D-01, 0.0000D+00, 6.0000D-01, 6.0000D-01, & & 6.0000D-01, 0.0000D+00, 6.0000D-01, 6.0000D-01, 6.0000D-01, & & 6.0000D-01, 0.0000D+00/ DATA ( RFDAT( 5,IRXXN ), IRXXN = 1, NFALLOFF ) / & & 0.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, 2.7000D+02, & & 1.0000D+00, 1.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, & & 1.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & & 1.0000D+00, 0.0000D+00/ REAL( 8 ) :: SC( NRXNS,MXPRD ) DATA ( SC( IRXXN, 1 ), IRXXN = 1, NRXNS ) / & & 1.0000D+00, 1.0000D+00, 2.0000D+00, 1.0000D+00, 1.0000D+00, & ! O & 1.0000D+00, 1.0000D+00, 1.0000D+00, 2.0000D-01, 1.0000D+00, & ! + & 2.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 2.0000D+00, & ! 1 & 1.2200D+00, 1.0000D+00, 1.0000D+00, 1.0000D-01, 1.5000D+00, & ! + & 1.0000D+00, 3.4000D-01, 3.0000D-01, 2.0000D+00, 1.0000D+00, & ! 2 & 2.0000D+00, 1.0000D+00, 1.5000D+00, 1.5000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 3 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00, 1.0000D+00, & ! 4 & 1.0000D+00, 2.0000D+00, 1.0000D+00, 0.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 5 & 1.0000D+00, 2.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 7.0000D-01, 2.0000D+00, & ! 6 & 1.0000D+00, 2.0000D+00, 1.0000D+00, 1.0000D+00, 2.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 7 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 6.5000D-01, 4.7000D-01, 8.2000D-01, & ! 8 & 8.3000D-01, 8.2000D-01, 1.0000D+00, 9.7500D-01, 9.4500D-01, & ! + & 2.3000D-01, 7.0000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 9 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 5.7000D-01, & ! + & 1.0000D+00, 3.1300D-01, 1.0000D+00, 1.0000D+00, 5.2000D-01, & ! O & 5.2000D-01, 5.6000D-01, 1.0000D+00, 1.5200D-01, 2.0000D-01, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 1 & 3.5000D-01, 1.0000D-02, 1.0000D-02, 1.0000D-02, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 6.4000D-01, 3.5000D-01, 1.0000D+00, & ! 2 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 8.0000D-02, 2.2000D-01, 4.6000D-01, 2.5000D-01, & ! 3 & 9.0000D-01, 8.4000D-01, 4.0000D-02, 1.0000D+00, 1.9000D-01, & ! + & 1.6000D-01, 1.0000D-01, 5.0000D-02, 5.0000D-02, 5.0000D-02, & ! 4 & 1.0000D+00, 8.0000D-01, 4.3000D-01, 1.1000D-01, 1.0000D+00, & ! + & 9.7500D-01, 9.4500D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 5 & 1.0000D+00, 6.8000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.5200D-01, 2.0000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 6 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 6.6000D-01, & ! 7 & 2.0000D-01, 1.0000D+00, 7.8000D-01, 8.3000D-01, 0.0000D+00, & ! + & 2.0000D-04, 1.0000D-04, 2.0000D-04, 8.8000D-01, 8.2000D-01, & ! 8 & 8.2000D-01, 2.0000D+00, 8.2000D-01, 7.7000D-01, 7.7000D-01, & ! + & 2.0000D+00, 7.7000D-01, 9.5000D-01, 9.4000D-01, 1.0000D+00, & ! 9 & 1.0000D+00, 1.0000D+00, 6.7000D-01, 7.7000D-01, 6.5000D-01, & ! + & 1.0000D+00, 3.0000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! O & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 2.0000D+00, & ! + & 2.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 1 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 6.0210D-01, 7.1950D-01, 4.8200D-02, & ! 2 & 8.5400D-02, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 3 & 1.0000D+00, 1.0000D+00, 4.4000D-01, 4.4000D-01, 1.5000D-01, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 4 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 7.4000D-01, & ! 5 & 1.0000D+00, 8.9400D-01, 8.4200D-01, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 6.8000D-01, 6.8000D-01, 6.8000D-01, 6.8000D-01, & ! 6 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 3.7000D-01, 7.5000D-01, & ! + & 1.0000D+00, 1.0000D+00, 3.7000D-01, 7.5000D-01, 9.0000D-01, & ! 7 & 9.0000D-01, 5.0000D-01, 8.3400D-01, 1.0000D+00, 5.0000D-01, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 8 & 2.0000D+00, 1.0000D+00, 1.0000D+00, 2.0000D+00, 5.0000D-01, & ! + & 1.0000D+00, 1.0000D+00, 5.0000D-01, 3.9400D-01, 3.4200D-01, & ! 9 & 5.0000D-01, 5.0000D-01, 5.0000D-01, 7.0000D-01, 7.0000D-01, & ! + & 7.0000D-01, 7.0000D-01, 5.0000D-01, 6.3000D-01, 5.0000D-01, & ! O & 8.6000D-01, 5.0000D-01, 6.3000D-01, 5.0000D-01, 7.0000D-01, & ! + & 5.0000D-01, 2.0000D+00, 1.0000D+00, 5.0000D-01, 3.3000D-01, & ! 1 & 5.0000D-01, 6.3500D-01, 1.0000D+00, 5.0000D-01, 5.0000D-01, & ! + & 1.0000D+00, 1.0000D+00, 2.0000D+00, 1.0000D+00, 1.0000D+00, & ! 2 & 1.0000D+00, 5.0000D-01, 1.0000D+00, 1.0000D+00, 2.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 2.5400D-01, 4.8800D-01, 1.0000D+00, & ! 3 & 4.7000D-01, 8.6000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 4 & 1.0000D+00, 1.0000D+00, 6.7000D-01, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 3.0000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 5 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 2.0000D+00, & ! + & 2.0000D+00, 1.0000D+00, 5.0000D-01, 1.0000D+00, 1.0000D+00, & ! 6 & 1.0000D+00, 0.0000D+00, 9.6000D-01, 9.6000D-01, 9.6000D-01, & ! + & 9.6000D-01, 9.6000D-01, 9.6000D-01, 9.6000D-01, 9.6000D-01, & ! 7 & 9.6000D-01, 9.6000D-01, 9.6000D-01, 9.6000D-01, 1.0000D+00, & ! + & 8.5200D-01, 1.0000D+00, 5.7000D-01, 8.4000D-01, 6.8000D-01, & ! 8 & 1.0000D+00, 6.6700D-01, 9.6800D-01, 1.0000D+00, 1.0000D+00, & ! + & 3.2000D-01, 7.0000D-01, 6.2000D-01, 9.0000D-01, 4.9000D-01, & ! 9 & 8.0000D-02, 6.0000D-01, 6.5000D-01, 2.0000D-02, 1.0000D+00, & ! + & 6.1300D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! O & 9.8200D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 2.4700D-01, & ! + & 1.0000D+00, 1.0000D+00, 2.0000D+00, 5.0000D-01, 0.0000D+00, & ! 1 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 2 & 7.2000D-01, 7.2000D-01, 7.2000D-01, 7.2000D-01, 7.2000D-01, & ! + & 7.2000D-01, 7.4000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 3 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 4 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.4000D-01, 1.4000D-01, & ! 5 & 1.4000D-01, 1.4000D-01, 1.4000D-01, 1.0000D+00, 1.2000D-01, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 6 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 8.4000D-01, & ! 7 & 5.9500D-02, 1.0000D-04, 1.0000D+00, 6.8000D-01, 7.0000D-01, & ! + & 8.4000D-01, 5.9500D-02, 1.0000D-04, 1.0000D+00, 6.8000D-01, & ! 8 & 7.0000D-01, 8.4000D-01, 5.9500D-02, 5.9500D-02, 1.0000D+00, & ! + & 6.8000D-01, 7.0000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 9 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! O & 1.0000D+00, 1.0000D+00, 1.0000D+00/ ! + DATA ( SC( IRXXN, 2 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, & ! O & 1.0000D+00, 1.0000D+00, 1.0000D+00, 8.0000D-01, 0.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 1 & 7.8400D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 5.0000D-01, & ! + & 1.0000D+00, 6.6000D-01, 3.0000D-01, 0.0000D+00, 1.0000D+00, & ! 2 & 2.0000D+00, 1.0000D+00, 2.5000D-01, 2.5000D-01, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 3 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 1.0000D+00, 7.0000D-01, 0.0000D+00, & ! 6 & 1.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 1.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 2.8100D-05, 1.3400D-03, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 3.5000D-01, 5.3000D-01, 1.8000D-01, & ! 8 & 1.7000D-01, 1.8000D-01, 0.0000D+00, 2.5000D-02, 5.5000D-02, & ! + & 7.7000D-01, 3.0000D-01, 1.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, 4.3000D-01, & ! + & 0.0000D+00, 6.8700D-01, 2.0000D+00, 1.0000D+00, 3.3000D-01, & ! O & 3.3000D-01, 2.1000D-01, 0.0000D+00, 6.1900D-01, 5.8400D-01, & ! + & 0.0000D+00, 1.0000D+00, 1.0000D+00, 7.1900D-01, 1.0000D+00, & ! 1 & 6.5000D-01, 4.4000D-01, 4.4000D-01, 4.4000D-01, 1.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 3.6000D-01, 6.5000D-01, 1.0000D+00, & ! 2 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00, 1.0000D+00, & ! + & 7.0000D-02, 1.5000D-01, 3.2000D-01, 7.0000D-02, 2.5000D-01, & ! 3 & 9.0000D-01, 8.4000D-01, 6.7000D-01, 0.0000D+00, 1.4000D-01, & ! + & 1.1000D-01, 7.2000D-02, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 4 & 0.0000D+00, 2.0000D-01, 5.7000D-01, 8.9000D-01, 0.0000D+00, & ! + & 2.5000D-02, 5.5000D-02, 0.0000D+00, 1.0000D+00, 1.0000D+00, & ! 5 & 1.0000D+00, 3.2000D-01, 1.0000D+00, 2.0000D+00, 1.0000D+00, & ! + & 3.3900D-01, 3.2000D-01, 1.0000D+00, 1.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, 1.0000D+00, & ! + & 0.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.3100D-01, & ! 7 & 5.1000D-02, 1.0000D+00, 9.7000D-01, 9.5000D-01, 1.2000D-03, & ! + & 1.3000D-03, 1.3000D-03, 1.3000D-03, 8.8000D-01, 8.2000D-01, & ! 8 & 8.2000D-01, 1.0000D+00, 8.2000D-01, 7.7000D-01, 7.7000D-01, & ! + & 1.0000D+00, 7.7000D-01, 9.5000D-01, 9.4000D-01, 1.0000D+00, & ! 9 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 2.3000D-01, 3.5000D-01, & ! + & 5.0000D-01, 7.0000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! O & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 2.8700D-01, & ! + & 1.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 3.9790D-01, 2.8050D-01, 6.7470D-01, & ! 2 & 6.3410D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 4.4000D-01, 4.4000D-01, 1.5000D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.3700D+00, & ! 5 & 7.5000D-01, 8.0000D-02, 1.8000D-02, 1.9500D+00, 1.5000D+00, & ! + & 7.5000D-01, 1.3700D+00, 1.2846D+00, 1.3218D+00, 1.2846D+00, & ! 6 & 1.3100D+00, 6.8000D-01, 7.5000D-01, 8.6000D-01, 7.5000D-01, & ! + & 1.0000D+00, 7.5000D-01, 6.8000D-01, 7.5000D-01, 9.0000D-01, & ! 7 & 9.0000D-01, 5.0000D-01, 1.0000D+00, 7.5000D-01, 2.6900D-01, & ! + & 1.0000D+00, 1.1600D+00, 3.0500D-01, 1.0000D+00, 1.0000D+00, & ! 8 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 5.0000D-01, & ! + & 7.0000D-01, 1.0000D+00, 5.0000D-01, 5.8000D-01, 5.1800D-01, & ! 9 & 5.0000D-01, 5.0000D-01, 5.0000D-01, 1.0000D+00, 9.1460D-01, & ! + & 9.5180D-01, 9.1460D-01, 5.0000D-01, 7.0000D-01, 5.0000D-01, & ! O & 1.4000D-01, 5.0000D-01, 7.0000D-01, 5.0000D-01, 7.0000D-01, & ! + & 5.0000D-01, 0.0000D+00, 1.0000D+00, 5.0000D-01, 5.0000D-01, & ! 1 & 5.0000D-01, 5.0000D-01, 5.0000D-01, 5.0000D-01, 5.0000D-01, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 2 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.4000D-01, 5.5000D-02, 1.0000D+00, & ! 3 & 7.9000D-01, 7.2000D-01, 1.0000D+00, 9.1460D-01, 9.5180D-01, & ! + & 9.1460D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 4 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 5.3800D-01, & ! + & 1.0000D+00, 7.0000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 5 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 2.8700D-01, & ! + & 1.0000D+00, 2.0000D+00, 5.0000D-01, 5.0400D-01, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 4.8000D-01, 4.8000D-01, 4.8000D-01, & ! + & 4.8000D-01, 4.8000D-01, 4.8000D-01, 4.8000D-01, 4.8000D-01, & ! 7 & 4.8000D-01, 4.8000D-01, 4.8000D-01, 4.8000D-01, 0.0000D+00, & ! + & 1.4900D-01, 1.0100D-03, 4.3000D-01, 5.6000D-01, 3.2000D-01, & ! 8 & 4.7700D-01, 3.3300D-01, 9.6800D-01, 1.0000D+00, 0.0000D+00, & ! + & 1.1430D+00, 3.0000D-01, 6.3000D-01, 1.0000D-01, 4.9000D-01, & ! 9 & 9.2000D-01, 4.0000D-01, 3.1000D-01, 1.0000D+00, 8.0000D-01, & ! + & 3.8700D-01, 0.0000D+00, 0.0000D+00, 2.0000D+00, 2.0000D+00, & ! O & 1.8000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, 7.5300D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 5.0000D-01, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 2.8000D-01, 2.8000D-01, 2.8000D-01, 2.8000D-01, 2.8000D-01, & ! + & 2.8000D-01, 2.6000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 3 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 8.6000D-01, 8.6000D-01, & ! 5 & 8.6000D-01, 8.6000D-01, 8.6000D-01, 8.6000D-01, 8.8000D-01, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 6 & 1.0000D+00, 1.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.6000D-01, & ! 7 & 9.0480D-01, 1.8000D-03, 9.4050D-01, 1.3105D+00, 9.4050D-01, & ! + & 1.6000D-01, 9.0480D-01, 1.8000D-03, 9.4050D-01, 1.3105D+00, & ! 8 & 9.4050D-01, 1.6000D-01, 9.0480D-01, 1.8000D-03, 9.4050D-01, & ! + & 1.3105D+00, 9.4050D-01, 8.5400D-02, 4.6400D-01, 1.0410D-01, & ! 9 & 2.0360D-01, 2.7920D-01, 7.4000D-03, 2.8220D-01, 6.5900D-02, & ! + & 1.7780D-01, 2.3000D-03, 4.4500D-02, 3.1700D-02, 1.1700D-02, & ! O & 1.0300D-02, 6.1000D-03, 1.1880D-01/ ! + DATA ( SC( IRXXN, 3 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 8.0000D-01, 0.0000D+00, & ! + & 0.0000D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 1.2200D+00, 1.0000D+00, 1.0000D+00, 9.0000D-01, 5.0000D-01, & ! + & 1.0000D+00, 6.7000D-01, 7.0000D-01, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 1.0000D+00, 2.0000D-01, 2.0000D-01, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00, & ! 3 & 2.0000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 3.0000D-01, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 3.5000D-01, 5.3000D-01, 1.8000D-01, & ! 8 & 1.7000D-01, 1.8000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 4.0000D-01, & ! O & 1.3000D-01, 1.1000D-01, 0.0000D+00, 1.7000D-01, 1.6000D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.8400D-01, 0.0000D+00, & ! 1 & 3.5000D-01, 7.0000D-02, 7.0000D-02, 7.0000D-02, 9.0400D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 3.5000D-01, 1.0000D+00, & ! 2 & 1.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, & ! + & 7.0000D-02, 4.3000D-01, 8.0000D-02, 3.2000D-01, 8.0000D-02, & ! 3 & 5.0000D-02, 1.1000D-01, 7.9000D-01, 0.0000D+00, 1.0000D-01, & ! + & 2.8000D-01, 8.0000D-03, 6.0000D-01, 6.0000D-01, 1.5000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 6.8000D-01, 6.6800D-01, 1.0000D+00, 1.0000D+00, & ! + & 8.5000D-01, 8.0000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, 4.8000D-02, & ! 7 & 2.3100D-01, 1.6000D+00, 7.8000D-01, 8.1000D-01, 8.0000D-04, & ! + & 6.0000D-04, 6.0000D-04, 6.0000D-04, 2.0000D-01, 8.2000D-01, & ! 8 & 1.0000D+00, 0.0000D+00, 1.0000D+00, 4.9000D-01, 1.0000D+00, & ! + & 0.0000D+00, 1.0000D+00, 5.0000D-02, 6.0000D-02, 0.0000D+00, & ! 9 & 0.0000D+00, 1.0000D+00, 3.3000D-01, 1.6000D-01, 1.0000D+00, & ! + & 5.0000D-01, 7.0000D-01, 6.1000D-01, 0.0000D+00, 0.0000D+00, & ! O & 3.2000D-01, 0.0000D+00, 1.0000D+00, 1.0000D+00, 1.2400D+00, & ! + & 1.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.7710D-01, & ! 2 & 2.8050D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 1.5000D-01, 1.5000D-01, 1.5000D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 6.3000D-01, & ! 5 & 7.5000D-01, 2.6000D-02, 1.4000D-01, 1.5000D-01, 7.0500D-01, & ! + & 1.2800D+00, 3.2000D-01, 3.2000D-01, 3.2000D-01, 3.2000D-01, & ! 6 & 1.5900D-01, 6.0000D-01, 2.5000D-01, 6.8000D-01, 2.5000D-01, & ! + & 4.2000D-01, 2.5000D-01, 7.0000D-01, 7.5000D-01, 1.0000D+00, & ! 7 & 1.0000D+00, 1.5000D+00, 3.3400D-01, 5.0000D-01, 5.0000D-01, & ! + & 1.5000D+00, 1.1600D+00, 7.7300D-01, 1.0000D+00, 1.0000D+00, & ! 8 & 3.2000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 9.6500D-01, & ! + & 1.0000D+00, 0.0000D+00, 1.0000D+00, 2.6000D-02, 1.4000D-01, & ! 9 & 1.6000D+00, 1.0000D+00, 1.7100D+00, 3.0000D-01, 3.0000D-01, & ! + & 3.0000D-01, 3.0000D-01, 1.0480D+00, 6.0000D-01, 5.0000D-01, & ! O & 8.6000D-01, 5.0000D-01, 4.2000D-01, 5.0000D-01, 3.0000D-01, & ! + & 5.0000D-01, 0.0000D+00, 0.0000D+00, 1.0000D+00, 3.3000D-01, & ! 1 & 5.0000D-01, 2.6900D-01, 1.0000D+00, 1.1600D+00, 5.0000D-01, & ! + & 0.0000D+00, 0.0000D+00, 3.2000D-01, 1.0000D+00, 0.0000D+00, & ! 2 & 1.0000D+00, 2.8700D-01, 7.0000D-01, 0.0000D+00, 0.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 9.2000D-02, 2.8000D-01, 1.6000D+00, & ! 3 & 7.9000D-01, 1.1000D-01, 0.0000D+00, 8.5400D-02, 4.8200D-02, & ! + & 8.5400D-02, 7.5000D-01, 1.0000D+00, 3.8500D-01, 0.0000D+00, & ! 4 & 0.0000D+00, 1.0000D+00, 3.3000D-01, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 7.0000D-01, 6.1000D-01, 0.0000D+00, 0.0000D+00, & ! 5 & 3.2000D-01, 0.0000D+00, 1.0000D+00, 1.0000D+00, 1.2400D+00, & ! + & 1.0000D+00, 0.0000D+00, 2.0200D-01, 1.2100D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 4.8000D-01, 4.8000D-01, 4.8000D-01, & ! + & 4.8000D-01, 4.8000D-01, 4.8000D-01, 4.8000D-01, 4.8000D-01, & ! 7 & 4.8000D-01, 4.8000D-01, 4.8000D-01, 4.8000D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.8000D-01, 6.8000D-01, & ! 8 & 2.5000D-01, 3.3300D-01, 8.9500D-01, 9.2500D-01, 0.0000D+00, & ! + & 8.7000D-01, 8.0000D-01, 4.2000D-01, 9.0000D-01, 5.1000D-01, & ! 9 & 9.2000D-01, 4.0000D-01, 6.6000D-01, 0.0000D+00, 2.0000D-01, & ! + & 1.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 7.5300D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 7.2000D-01, 7.2000D-01, 7.2000D-01, 7.2000D-01, 7.2000D-01, & ! + & 7.2000D-01, 7.4000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 8.6000D-01, 8.6000D-01, & ! 5 & 8.6000D-01, 8.6000D-01, 8.6000D-01, 8.6000D-01, 8.8000D-01, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 6 & 1.0000D+00, 1.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.6000D-01, & ! 7 & 3.5700D-02, 1.0000D-04, 5.9500D-02, 3.2000D-01, 3.0000D-01, & ! + & 1.6000D-01, 3.5700D-02, 1.0000D-04, 5.9500D-02, 3.2000D-01, & ! 8 & 3.0000D-01, 1.6000D-01, 3.5700D-02, 1.0000D-04, 5.9500D-02, & ! + & 3.2000D-01, 3.0000D-01, 2.5810D-01, 1.9770D-01, 5.6380D-01, & ! 9 & 7.1000D-03, 4.0250D-01, 1.1900D-01, 1.1650D-01, 4.5790D-01, & ! + & 1.9240D-01, 1.3400D-01, 1.7260D-01, 7.6500D-02, 1.6700D-02, & ! O & 6.0000D-04, 4.9000D-03, 8.0000D-04/ ! + DATA ( SC( IRXXN, 4 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.0000D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 3.5000D-01, 0.0000D+00, 0.0000D+00, 1.0000D-01, 0.0000D+00, & ! + & 0.0000D+00, 3.3000D-01, 7.0000D-01, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 8.0000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 6.5000D-01, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 7.8000D-01, & ! O & 1.0000D-01, 2.7000D-01, 0.0000D+00, 5.9000D-02, 5.6000D-02, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 8.0000D-02, 8.0000D-02, 8.0000D-02, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 3.5000D-01, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 1.0000D+00, 6.0000D-02, 7.0000D-02, 1.0000D-01, & ! 3 & 5.0000D-02, 5.0000D-02, 3.3000D-01, 0.0000D+00, 2.2000D-01, & ! + & 1.0000D-02, 2.0000D-03, 6.0000D-01, 6.0000D-01, 4.8000D-01, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 6.8000D-01, 3.3200D-01, 0.0000D+00, 0.0000D+00, & ! + & 4.2400D-01, 4.0000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 8.9000D-02, & ! 7 & 2.3500D-01, 2.0000D-01, 1.2000D-02, 6.8000D-01, 9.9800D-01, & ! + & 9.9800D-01, 9.9800D-01, 9.9800D-01, 2.8000D-01, 1.8000D-01, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.8000D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 9.5000D-01, 9.4000D-01, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 6.7000D-01, 1.0000D+00, 6.5000D-01, & ! + & 1.0000D+00, 1.0000D+00, 3.0000D-02, 0.0000D+00, 0.0000D+00, & ! O & 6.8000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 4.6400D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 4.1000D-01, 4.1000D-01, 8.5000D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 2.5000D-01, 2.6000D-02, 1.9100D-01, 2.5000D-01, 4.5000D-02, & ! + & 2.1800D-01, 0.0000D+00, 8.5400D-02, 4.8200D-02, 8.5400D-02, & ! 6 & 2.5000D-01, 7.0000D-02, 1.0000D+00, 8.6000D-01, 7.5000D-01, & ! + & 3.0000D-01, 1.0000D+00, 7.0000D-01, 2.5000D-01, 1.0000D-01, & ! 7 & 1.0000D-01, 2.5000D-01, 2.5000D-01, 2.5000D-01, 1.6600D+00, & ! + & 5.0000D-01, 1.5000D+00, 2.0300D-01, 0.0000D+00, 0.0000D+00, & ! 8 & 6.8000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 9.3000D-01, & ! + & 7.0000D-01, 0.0000D+00, 5.0000D-01, 2.6000D-02, 1.9100D-01, & ! 9 & 2.0000D-01, 9.4000D-01, 2.9000D-01, 0.0000D+00, 8.5400D-02, & ! + & 4.8200D-02, 8.5400D-02, 2.1900D-01, 3.0000D-01, 1.0000D+00, & ! O & 7.0000D-01, 1.0000D+00, 3.0000D-01, 1.0000D+00, 7.0000D-01, & ! + & 1.0000D+00, 0.0000D+00, 0.0000D+00, 7.5000D-01, 3.3400D-01, & ! 1 & 5.0000D-01, 5.0000D-01, 5.0000D-01, 1.1600D+00, 3.0000D-02, & ! + & 0.0000D+00, 0.0000D+00, 6.8000D-01, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 1.2400D+00, 7.0000D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 5.0300D-01, 4.8500D-01, 2.0000D-01, & ! 3 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 5.4880D-01, 7.0430D-01, & ! + & 5.4880D-01, 3.1800D-01, 1.0000D+00, 3.8500D-01, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 6.7000D-01, 0.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 3.0000D-02, 0.0000D+00, 0.0000D+00, & ! 5 & 6.8000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 4.6400D-01, & ! + & 0.0000D+00, 0.0000D+00, 6.4000D-01, 2.8500D-01, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 4.8000D-01, 4.8000D-01, 4.8000D-01, & ! + & 4.8000D-01, 4.8000D-01, 4.8000D-01, 4.8000D-01, 4.8000D-01, & ! 7 & 4.8000D-01, 4.8000D-01, 4.8000D-01, 4.8000D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 7.2000D-01, 6.8000D-01, & ! 8 & 3.5400D-01, 0.0000D+00, 8.9500D-01, 9.2500D-01, 0.0000D+00, & ! + & 4.6300D-01, 7.4000D-01, 8.0000D-02, 0.0000D+00, 0.0000D+00, & ! 9 & 7.5000D-01, 3.2000D-01, 3.4000D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 8.6000D-01, 8.6000D-01, & ! 5 & 8.6000D-01, 8.6000D-01, 8.6000D-01, 0.0000D+00, 8.8000D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 9.9800D-01, 4.7020D-01, 5.9500D-02, 5.9500D-02, & ! + & 0.0000D+00, 0.0000D+00, 9.9800D-01, 4.7020D-01, 5.9500D-02, & ! 8 & 5.9500D-02, 0.0000D+00, 0.0000D+00, 9.9800D-01, 4.7020D-01, & ! + & 5.9500D-02, 5.9500D-02, 2.5810D-01, 1.2100D-02, 2.1410D-01, & ! 9 & 1.8400D-01, 8.8000D-03, 7.2610D-01, 3.2000D-02, 1.1560D-01, & ! + & 4.0000D-04, 3.3490D-01, 1.0400D-02, 9.0000D-04, 4.8000D-02, & ! O & 9.0000D-03, 2.2400D-02, 3.9000D-02/ ! + DATA ( SC( IRXXN, 5 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 4.3400D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 3.4000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 5.0000D-01, 5.0000D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 3.5000D-01, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D-01, & ! O & 1.0000D-02, 1.0000D-02, 0.0000D+00, 6.1900D-01, 5.8400D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 4.1000D-01, 4.1000D-01, 4.1000D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 3.7000D-01, 4.0000D-02, 4.0000D-02, 1.0000D-01, & ! 3 & 5.0000D-02, 5.0000D-02, 4.0000D-02, 0.0000D+00, 5.0000D-01, & ! + & 5.6000D-01, 1.0000D-01, 1.5000D+00, 1.5000D+00, 7.0000D-01, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 3.2000D-01, 3.3200D-01, 0.0000D+00, 0.0000D+00, & ! + & 4.2400D-01, 4.0000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 9.3500D-01, & ! 7 & 8.6400D-01, 0.0000D+00, 4.4000D-01, 2.0000D-01, 9.9800D-01, & ! + & 9.9800D-01, 9.9800D-01, 9.9800D-01, 4.4000D-01, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.8000D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 9.5000D-01, 9.4000D-01, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 4.6000D-01, 6.5000D-01, & ! + & 0.0000D+00, 3.0000D-01, 2.7000D-01, 0.0000D+00, 0.0000D+00, & ! O & 6.8000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 2.5000D-01, 8.2700D-01, 7.7700D-01, 2.5000D-01, 2.5000D-01, & ! + & 2.5000D-01, 1.0000D+00, 5.4880D-01, 7.0430D-01, 5.4880D-01, & ! 6 & 2.5000D-01, 3.2000D-01, 0.0000D+00, 3.2000D-01, 1.0000D+00, & ! + & 3.2000D-01, 0.0000D+00, 3.2000D-01, 1.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 2.5000D-01, 2.5000D-01, 2.5000D-01, 6.7000D-02, & ! + & 2.5000D-01, 1.7500D+00, 5.2500D-01, 0.0000D+00, 0.0000D+00, & ! 8 & 6.8000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 3.4800D-01, & ! + & 7.0000D-01, 0.0000D+00, 0.0000D+00, 1.3000D-01, 4.2000D-02, & ! 9 & 5.0000D-01, 6.0000D-02, 5.0000D-01, 1.0000D+00, 5.4880D-01, & ! + & 7.0430D-01, 5.4880D-01, 3.0500D-01, 7.0000D-02, 0.0000D+00, & ! O & 3.0000D-01, 0.0000D+00, 3.0000D-01, 0.0000D+00, 3.0000D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 5.0000D-01, & ! 1 & 0.0000D+00, 1.0000D+00, 5.0000D-01, 1.0000D+00, 2.7000D-01, & ! + & 0.0000D+00, 0.0000D+00, 6.8000D-01, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 4.6400D-01, 7.0000D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00, & ! 3 & 1.8000D-01, 2.0000D-01, 5.0000D-01, 3.6590D-01, 2.4750D-01, & ! + & 3.6590D-01, 5.0000D-01, 0.0000D+00, 6.1500D-01, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 3.0000D-01, 2.7000D-01, 0.0000D+00, 0.0000D+00, & ! 5 & 6.8000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 1.4900D-01, 1.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 4.8000D-01, 4.8000D-01, 4.8000D-01, & ! + & 4.8000D-01, 4.8000D-01, 4.8000D-01, 4.8000D-01, 4.8000D-01, & ! 7 & 4.8000D-01, 4.8000D-01, 4.8000D-01, 4.8000D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 6.2000D-01, 3.2000D-01, & ! 8 & 2.0400D-01, 0.0000D+00, 7.2000D-02, 7.5000D-02, 0.0000D+00, & ! + & 2.5000D-01, 7.4000D-01, 8.3000D-01, 0.0000D+00, 0.0000D+00, & ! 9 & 1.7000D-01, 8.0000D-02, 4.3000D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 9.9800D-01, 4.7020D-01, 4.7020D-01, 4.7020D-01, & ! + & 0.0000D+00, 0.0000D+00, 9.9800D-01, 4.7020D-01, 4.7020D-01, & ! 8 & 4.7020D-01, 0.0000D+00, 0.0000D+00, 9.9800D-01, 4.7020D-01, & ! + & 4.7020D-01, 4.7020D-01, 2.5810D-01, 1.5200D-02, 1.5300D-02, & ! 9 & 1.8400D-01, 3.1900D-02, 1.2200D-02, 1.8300D-02, 3.2500D-02, & ! + & 7.4000D-02, 8.0000D-03, 5.1300D-02, 5.2600D-02, 2.4600D-02, & ! O & 1.4600D-02, 5.0300D-02, 1.1400D-02/ ! + DATA ( SC( IRXXN, 6 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 2.1600D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 6.7000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 5.0000D-01, 5.0000D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D-02, & ! O & 7.8000D-01, 7.9000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 2.0000D-02, 9.0000D-02, 9.0000D-02, & ! 3 & 1.4000D-01, 1.4000D-01, 2.0000D-01, 0.0000D+00, 4.5000D-01, & ! + & 1.0000D-01, 2.4300D-01, 5.0000D-02, 5.0000D-02, 2.5000D-01, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 6.8000D-01, 1.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 5.0400D-01, & ! 7 & 1.8000D-02, 0.0000D+00, 6.0000D-02, 9.0000D-02, 0.0000D+00, & ! + & 8.5200D-02, 4.8100D-02, 8.5200D-02, 1.2000D-01, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.3000D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 5.4000D-01, 0.0000D+00, & ! + & 0.0000D+00, 7.0000D-01, 1.8000D-01, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 1.9800D-01, 2.5100D-01, 0.0000D+00, 2.5000D-01, & ! + & 2.5000D-01, 5.0000D-01, 3.6590D-01, 2.4750D-01, 3.6590D-01, & ! 6 & 2.5000D-01, 2.5000D-01, 0.0000D+00, 1.4000D-01, 0.0000D+00, & ! + & 2.7000D-01, 0.0000D+00, 3.0000D-01, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 1.2500D-01, 0.0000D+00, 0.0000D+00, 2.5000D-01, & ! + & 2.5000D-01, 5.0000D-01, 1.3500D-01, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.5000D-01, & ! + & 3.0000D-01, 0.0000D+00, 0.0000D+00, 2.7300D-01, 3.8100D-01, & ! 9 & 0.0000D+00, 5.0000D-01, 0.0000D+00, 5.0000D-01, 3.6590D-01, & ! + & 2.4750D-01, 3.6590D-01, 5.0000D-01, 2.5000D-01, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 3.2000D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 5.0000D-01, 2.3000D+00, 7.0000D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 5.0000D-01, 3.0000D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 5.1900D-01, 2.4000D-02, 0.0000D+00, & ! 3 & 2.0000D-02, 8.5000D-01, 2.5000D-01, 3.6590D-01, 3.5220D-01, & ! + & 4.5730D-01, 2.4000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 7.0000D-01, 7.0000D-01, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 1.5000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 4.0000D-02, 4.0000D-02, 4.8000D-01, & ! + & 4.0000D-02, 4.0000D-02, 4.8000D-01, 4.0000D-02, 4.0000D-02, & ! 7 & 4.8000D-01, 4.0000D-02, 4.0000D-02, 4.8000D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 6.8000D-01, & ! 8 & 1.5000D-01, 0.0000D+00, 3.2000D-02, 0.0000D+00, 0.0000D+00, & ! + & 2.3100D-01, 1.8500D-01, 1.7000D-01, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 4.0000D-02, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 5.9400D-02, 4.7020D-01, 4.7020D-01, 4.7020D-01, & ! + & 0.0000D+00, 0.0000D+00, 5.9400D-02, 4.7020D-01, 4.7020D-01, & ! 8 & 4.7020D-01, 0.0000D+00, 0.0000D+00, 4.6930D-01, 4.7020D-01, & ! + & 4.7020D-01, 4.7020D-01, 2.5810D-01, 6.2400D-02, 2.9800D-02, & ! 9 & 1.8400D-01, 7.6000D-03, 3.0500D-02, 1.1000D-03, 6.5700D-02, & ! + & 4.5200D-02, 1.1930D-01, 1.1180D-01, 4.8900D-02, 8.8100D-02, & ! O & 7.0200D-02, 2.2000D-03, 2.2660D-01/ ! + DATA ( SC( IRXXN, 7 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 6.7000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 6.8000D-02, 3.7000D-01, 1.4000D-01, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 5.4000D-01, 8.0000D-02, 5.0000D-02, 5.0000D-02, 2.5000D-01, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.3200D-01, & ! 7 & 4.5000D-02, 0.0000D+00, 1.3000D-01, 2.0000D-02, 9.9800D-01, & ! + & 5.4770D-01, 7.0290D-01, 5.4770D-01, 2.1000D-02, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 3.0000D-01, 7.0000D-01, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 4.9700D-01, 6.1800D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 2.5000D-01, 3.6590D-01, 3.5220D-01, 4.5730D-01, & ! 6 & 2.3000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.5000D-01, & ! + & 0.0000D+00, 2.5000D-01, 1.0500D-01, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.5000D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 6.6200D-01, 8.2400D-01, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.5000D-01, 3.6590D-01, & ! + & 3.5220D-01, 4.5730D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 2.7000D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 5.0000D-01, 1.8000D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 1.4700D-01, 2.4100D-01, 0.0000D+00, & ! 3 & 9.0000D-02, 4.0000D-02, 2.5000D-01, 5.4880D-01, 5.9960D-01, & ! + & 4.5730D-01, 3.3000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 3.0000D-01, 1.8000D-01, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 4.0000D-02, & ! + & 0.0000D+00, 0.0000D+00, 4.0000D-02, 0.0000D+00, 0.0000D+00, & ! 7 & 4.0000D-02, 0.0000D+00, 0.0000D+00, 4.0000D-02, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 2.7000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 3.7000D-02, 6.0000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 4.6930D-01, 4.7020D-01, 4.7020D-01, 4.7020D-01, & ! + & 0.0000D+00, 0.0000D+00, 4.6930D-01, 4.7020D-01, 4.7020D-01, & ! 8 & 4.7020D-01, 0.0000D+00, 0.0000D+00, 4.6930D-01, 4.7020D-01, & ! + & 4.7020D-01, 4.7020D-01, 2.5810D-01, 3.8800D-02, 9.6000D-03, & ! 9 & 1.8400D-01, 1.9400D-02, 7.0000D-03, 6.6000D-02, 4.6000D-03, & ! + & 6.3100D-02, 7.5800D-02, 1.3000D-03, 1.5500D-01, 9.1600D-02, & ! O & 1.5300D-02, 8.7900D-02, 2.2660D-01/ ! + DATA ( SC( IRXXN, 8 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 4.3000D-01, 2.6000D-02, 5.8000D-01, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 7.0000D-02, 4.2000D-01, 8.0000D-02, 8.0000D-02, 1.1000D-01, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.6500D-01, & ! 7 & 2.0300D-01, 0.0000D+00, 3.0000D-02, 5.0000D-02, 4.9900D-01, & ! + & 3.6510D-01, 2.4700D-01, 3.6510D-01, 2.9000D-02, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 2.1000D-01, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 5.0000D-02, 2.5000D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 2.5000D-01, 5.4880D-01, 5.9960D-01, 4.5730D-01, & ! 6 & 1.8000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.5000D-01, & ! + & 0.0000D+00, 2.5000D-01, 2.5000D-01, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 5.0000D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 6.7000D-02, 5.0000D-01, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.5000D-01, 5.4880D-01, & ! + & 5.9960D-01, 4.5730D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0830D+00, 1.0500D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 7.5000D-02, 6.0000D-02, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 3.1000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 2.1000D-01, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 1.9000D-02, 1.5000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 4.6930D-01, 0.0000D+00, 4.7020D-01, 4.7020D-01, & ! + & 0.0000D+00, 0.0000D+00, 4.6930D-01, 0.0000D+00, 4.7020D-01, & ! 8 & 4.7020D-01, 0.0000D+00, 0.0000D+00, 4.6930D-01, 0.0000D+00, & ! + & 4.7020D-01, 4.7020D-01, 2.5810D-01, 4.9100D-02, 1.8900D-02, & ! 9 & 1.8400D-01, 1.0400D-02, 2.9100D-02, 5.3500D-02, 3.0700D-02, & ! + & 7.0000D-04, 2.9200D-02, 1.3370D-01, 1.5500D-02, 7.3000D-03, & ! O & 1.0380D-01, 1.3840D-01, 2.2660D-01/ ! + DATA ( SC( IRXXN, 9 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 2.0000D-02, 1.0000D-02, 4.6100D-01, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 7.0000D-02, 2.8000D-02, 6.5000D-01, 7.0000D-01, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 4.2000D-02, & ! 7 & 3.3000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.4950D-01, & ! + & 3.6510D-01, 3.5150D-01, 4.5640D-01, 2.7000D-02, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 2.5000D-01, 2.5000D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 1.6000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 2.9200D-01, 2.5000D-01, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 5.0000D-01, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 5.0000D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 9.5000D-02, 6.3000D-02, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 4.6930D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 4.6930D-01, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 4.6930D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 2.5810D-01, 3.9800D-02, 4.5600D-02, & ! 9 & 1.8400D-01, 5.1000D-02, 4.5400D-02, 2.4600D-02, 2.4000D-03, & ! + & 6.0000D-04, 7.6600D-02, 4.0300D-02, 1.0510D-01, 9.7200D-02, & ! O & 3.1000D-03, 1.4630D-01, 2.2660D-01/ ! + DATA ( SC( IRXXN, 10 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 1.5000D-02, 1.0000D-02, 1.8900D-01, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 1.0000D-01, 4.9100D-01, 0.0000D+00, 6.5000D-01, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 6.5000D-02, & ! 7 & 2.1700D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.4950D-01, & ! + & 5.4770D-01, 5.9840D-01, 4.5640D-01, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 2.5000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.4700D-01, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 4.6930D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 4.6930D-01, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 2.5810D-01, 1.8300D-02, 3.1400D-02, & ! 9 & 1.8400D-01, 7.5000D-03, 2.3400D-02, 5.4000D-03, 3.9500D-02, & ! + & 2.2700D-02, 2.7700D-02, 5.1100D-02, 1.3000D-03, 4.5600D-02, & ! O & 1.6500D-01, 4.3200D-02, 2.2660D-01/ ! + DATA ( SC( IRXXN, 11 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 6.0000D-03, 9.0000D-02, 2.8000D-01, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 3.0000D-03, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 3.3000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 4.8000D-02, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 3.0800D-02, 1.9900D-02, & ! 9 & 1.8400D-01, 5.1200D-02, 3.5200D-02, 1.0680D-01, 2.1500D-02, & ! + & 5.8500D-02, 1.1800D-02, 6.8000D-03, 5.3500D-02, 2.4000D-03, & ! O & 1.5660D-01, 9.5700D-02, 2.2660D-01/ ! + DATA ( SC( IRXXN, 12 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 3.2000D-02, 4.5700D-01, 1.5300D-01, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 4.4000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 2.7200D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.7500D-01, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 4.0000D-03, 4.5900D-02, & ! 9 & 1.8400D-01, 4.6200D-02, 6.2400D-02, 1.0680D-01, 5.3900D-02, & ! + & 6.4900D-02, 6.5100D-02, 2.3600D-02, 8.6000D-03, 4.7900D-02, & ! O & 7.2400D-02, 3.1600D-02, 2.2660D-01/ ! + DATA ( SC( IRXXN, 13 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 5.6000D-01, 7.3000D-01, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 1.3600D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 7.9400D-02, 4.5200D-02, & ! 9 & 1.8400D-01, 5.1200D-02, 5.1800D-02, 1.0680D-01, 5.1600D-02, & ! + & 1.7400D-02, 7.0900D-02, 2.9300D-02, 4.2600D-02, 7.4500D-02, & ! O & 6.2000D-03, 5.8500D-02, 2.2660D-01/ ! + DATA ( SC( IRXXN, 14 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 1.0000D-02, 1.1000D-01, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 7.9400D-02, 4.5500D-02, & ! 9 & 0.0000D+00, 1.3800D-02, 5.0900D-02, 1.0680D-01, 5.1900D-02, & ! + & 1.5400D-02, 6.6800D-02, 7.3300D-02, 5.8200D-02, 6.0700D-02, & ! O & 1.3980D-01, 5.7100D-02, 0.0000D+00/ ! + DATA ( SC( IRXXN, 15 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 4.4000D-01, 1.7000D-02, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 7.9400D-02, 3.2500D-02, & ! 9 & 0.0000D+00, 1.3500D-02, 3.4700D-02, 1.0680D-01, 3.7100D-02, & ! + & 1.7000D-02, 4.2300D-02, 5.2300D-02, 6.6100D-02, 1.5500D-02, & ! O & 2.1600D-02, 5.7100D-02, 0.0000D+00/ ! + DATA ( SC( IRXXN, 16 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 3.0000D-02, 4.4000D-02, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 7.9400D-02, 3.6900D-02, & ! 9 & 0.0000D+00, 6.4600D-02, 7.4800D-02, 1.0680D-01, 4.2100D-02, & ! + & 8.1800D-02, 9.1100D-02, 5.9500D-02, 5.0600D-02, 7.8600D-02, & ! O & 3.8400D-02, 5.7100D-02, 0.0000D+00/ ! + DATA ( SC( IRXXN, 17 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 2.0000D-02, 1.7000D-02, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 7.9400D-02, 2.6000D-03, & ! 9 & 0.0000D+00, 6.4600D-02, 1.6300D-02, 1.0680D-01, 1.0500D-02, & ! + & 8.1800D-02, 6.6000D-03, 4.1000D-03, 1.1400D-02, 7.8600D-02, & ! O & 5.2600D-02, 5.7100D-02, 0.0000D+00/ ! + DATA ( SC( IRXXN, 18 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 6.0000D-02, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 7.9400D-02, 3.9000D-02, & ! 9 & 0.0000D+00, 6.4600D-02, 6.2000D-03, 1.0680D-01, 4.4500D-02, & ! + & 8.1800D-02, 2.5000D-03, 2.3000D-03, 6.9800D-02, 7.8600D-02, & ! O & 5.2600D-02, 5.7100D-02, 0.0000D+00/ ! + DATA ( SC( IRXXN, 19 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 1.0000D-02, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 7.9400D-02, 3.9000D-02, & ! 9 & 0.0000D+00, 6.4600D-02, 2.4400D-02, 1.0680D-01, 4.4500D-02, & ! + & 8.1800D-02, 2.9700D-02, 6.2800D-02, 6.9800D-02, 7.8600D-02, & ! O & 5.2600D-02, 5.7100D-02, 0.0000D+00/ ! + DATA ( SC( IRXXN, 20 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 3.0000D-02, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 7.9400D-02, 3.9000D-02, & ! 9 & 0.0000D+00, 6.4600D-02, 2.4400D-02, 1.0680D-01, 4.4500D-02, & ! + & 8.1800D-02, 2.9700D-02, 6.2800D-02, 6.9800D-02, 7.8600D-02, & ! O & 5.2600D-02, 5.7100D-02, 0.0000D+00/ ! + DATA ( SC( IRXXN, 21 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 6.0000D-02, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 7.9400D-02, 3.9000D-02, & ! 9 & 0.0000D+00, 6.4600D-02, 2.4400D-02, 1.0680D-01, 4.4500D-02, & ! + & 8.1800D-02, 2.9700D-02, 6.2800D-02, 6.9800D-02, 7.8600D-02, & ! O & 5.2600D-02, 5.7100D-02, 0.0000D+00/ ! + DATA ( SC( IRXXN, 22 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 7.9400D-02, 3.9000D-02, & ! 9 & 0.0000D+00, 6.4600D-02, 2.4400D-02, 0.0000D+00, 4.4500D-02, & ! + & 8.1800D-02, 2.9700D-02, 6.2800D-02, 6.9800D-02, 7.8600D-02, & ! O & 5.2600D-02, 5.7100D-02, 0.0000D+00/ ! + DATA ( SC( IRXXN, 23 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 7.9400D-02, 3.9000D-02, & ! 9 & 0.0000D+00, 6.4600D-02, 2.4400D-02, 0.0000D+00, 4.4500D-02, & ! + & 8.1800D-02, 2.9700D-02, 6.2800D-02, 6.9800D-02, 7.8600D-02, & ! O & 5.2600D-02, 1.5440D-01, 0.0000D+00/ ! + DATA ( SC( IRXXN, 24 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 3.9000D-02, & ! 9 & 0.0000D+00, 6.4600D-02, 2.4400D-02, 0.0000D+00, 4.4500D-02, & ! + & 8.1800D-02, 2.9700D-02, 6.2800D-02, 6.9800D-02, 7.8600D-02, & ! O & 5.2600D-02, 0.0000D+00, 0.0000D+00/ ! + DATA ( SC( IRXXN, 25 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 3.9000D-02, & ! 9 & 0.0000D+00, 1.7530D-01, 2.4400D-02, 0.0000D+00, 4.4500D-02, & ! + & 2.2200D-01, 2.9700D-02, 6.2800D-02, 6.9800D-02, 1.7300D-01, & ! O & 5.2600D-02, 0.0000D+00, 0.0000D+00/ ! + DATA ( SC( IRXXN, 26 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 3.9000D-02, & ! 9 & 0.0000D+00, 0.0000D+00, 2.4400D-02, 0.0000D+00, 4.4500D-02, & ! + & 0.0000D+00, 2.9700D-02, 6.2800D-02, 6.9800D-02, 0.0000D+00, & ! O & 1.2800D-01, 0.0000D+00, 0.0000D+00/ ! + DATA ( SC( IRXXN, 27 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 9.2500D-02, & ! 9 & 0.0000D+00, 0.0000D+00, 2.4400D-02, 0.0000D+00, 1.0550D-01, & ! + & 0.0000D+00, 2.9700D-02, 6.2800D-02, 1.6560D-01, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00/ ! + DATA ( SC( IRXXN, 28 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 5.3700D-02, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 6.5400D-02, 1.4890D-01, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00/ ! + INTEGER :: NREACT( NRXNS ) DATA ( NREACT( IRXXN ), IRXXN = 1, NRXNS ) / & & 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, & ! O & 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, & ! 1 & 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, & ! 2 & 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, & ! 3 & 2, 2, 1, 2, 1, 1, 1, 1, 2, 2, & ! 4 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 5 & 2, 2, 2, 2, 2, 2, 2, 2, 1, 1, & ! 6 & 2, 1, 2, 2, 2, 1, 2, 2, 2, 2, & ! 7 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 8 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 9 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! O & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 1 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 2 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 3 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 4 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 5 & 2, 2, 2, 2, 1, 1, 2, 1, 2, 1, & ! 6 & 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, & ! 7 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 8 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 9 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! O & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 1 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 2 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 3 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 4 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 5 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 6 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 7 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 8 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 9 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! O & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 1 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 2 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 3 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 4 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 5 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 6 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 7 & 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, & ! 8 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 9 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! O & 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, & ! 1 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 2 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 3 & 2, 2, 2, 2, 2, 2, 1, 1, 1, 1, & ! 4 & 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, & ! 5 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 6 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 7 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 8 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 9 & 2, 2, 2, 2, 2, 2, 2, 2/ ! O INTEGER :: NPRDCT( NRXNS ) DATA ( NPRDCT( IRXXN ), IRXXN = 1, NRXNS ) / & & 1, 1, 1, 2, 1, 2, 2, 2, 4, 1, & ! O & 2, 3, 3, 2, 2, 6, 3, 3, 4, 3, & ! 1 & 3, 7, 4, 1, 2, 2, 3, 6, 6, 3, & ! 2 & 3, 3, 3, 3, 2, 4, 2, 2, 1, 1, & ! 3 & 1, 1, 1, 0, 1, 1, 1, 1, 0, 1, & ! 4 & 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, & ! 5 & 1, 1, 2, 3, 1, 2, 1, 1, 2, 1, & ! 6 & 1, 2, 1, 3, 1, 1, 1, 2, 2, 1, & ! 7 & 1, 1, 5, 3, 3, 3, 3, 1, 2, 2, & ! 8 & 2, 2, 2, 1, 1, 1, 1, 1, 2, 2, & ! 9 & 1, 2, 2, 2, 6, 6, 6, 1, 5, 5, & ! O & 1, 2, 2, 3, 2, 3, 5, 5, 5, 3, & ! 1 & 1, 1, 2, 4, 3, 3, 2, 2, 1, 3, & ! 2 & 3, 5, 21, 17, 12, 6, 6, 6, 1, 6, & ! 3 & 10, 12, 9, 10, 8, 1, 2, 2, 2, 1, & ! 4 & 2, 2, 1, 3, 2, 2, 6, 6, 3, 3, & ! 5 & 5, 5, 2, 2, 1, 1, 1, 2, 1, 2, & ! 6 & 1, 2, 3, 3, 10, 13, 4, 8, 8, 10, & ! 7 & 10, 10, 10, 9, 4, 3, 2, 3, 6, 3, & ! 8 & 2, 3, 5, 5, 2, 2, 3, 4, 6, 5, & ! 9 & 4, 7, 8, 2, 2, 5, 2, 3, 3, 4, & ! O & 3, 1, 1, 1, 1, 1, 1, 1, 1, 1, & ! 1 & 1, 1, 2, 2, 3, 3, 1, 1, 1, 1, & ! 2 & 1, 1, 1, 1, 1, 1, 1, 4, 4, 4, & ! 3 & 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, & ! 4 & 1, 1, 1, 1, 3, 5, 10, 9, 5, 6, & ! 5 & 6, 8, 8, 8, 8, 9, 6, 4, 6, 5, & ! 6 & 6, 4, 6, 5, 4, 4, 6, 5, 5, 8, & ! 7 & 6, 9, 9, 3, 3, 5, 3, 3, 3, 8, & ! 8 & 6, 2, 4, 9, 8, 5, 6, 5, 8, 8, & ! 9 & 8, 8, 6, 6, 4, 5, 4, 7, 4, 5, & ! O & 4, 1, 2, 4, 5, 4, 5, 6, 8, 9, & ! 1 & 2, 2, 5, 3, 2, 3, 6, 6, 1, 1, & ! 2 & 3, 3, 9, 12, 4, 7, 7, 7, 7, 7, & ! 3 & 7, 8, 4, 5, 2, 2, 3, 4, 3, 4, & ! 4 & 4, 7, 8, 2, 2, 5, 2, 3, 3, 4, & ! 5 & 3, 2, 6, 5, 1, 1, 0, 6, 6, 7, & ! 6 & 6, 6, 7, 6, 6, 7, 6, 6, 7, 1, & ! 7 & 2, 2, 2, 5, 6, 7, 3, 6, 5, 1, & ! 8 & 8, 8, 6, 3, 3, 5, 5, 6, 2, 3, & ! 9 & 3, 1, 1, 2, 2, 2, 1, 1, 1, 3, & ! O & 1, 1, 1, 2, 0, 1, 1, 1, 1, 1, & ! 1 & 1, 1, 1, 1, 1, 3, 3, 3, 3, 3, & ! 2 & 3, 3, 2, 2, 2, 2, 2, 2, 2, 1, & ! 3 & 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, & ! 4 & 2, 2, 2, 4, 4, 4, 4, 4, 3, 4, & ! 5 & 3, 3, 3, 3, 3, 3, 3, 1, 1, 1, & ! 6 & 1, 1, 1, 1, 3, 3, 10, 7, 8, 8, & ! 7 & 3, 3, 10, 7, 8, 8, 3, 3, 9, 7, & ! 8 & 8, 8, 10, 23, 27, 13, 25, 28, 21, 27, & ! 9 & 25, 28, 28, 27, 25, 26, 23, 13/ ! O INTEGER, PARAMETER :: MHETERO = 7 INTEGER :: IHETERO( MHETERO,2 ) DATA ( IHETERO( IRXXN,1 ), IRXXN = 1, MHETERO ) / & & 411, 412, 413, 414, 416, 417, 418/ DATA ( IHETERO( IRXXN,2 ), IRXXN = 1, MHETERO ) / & & 1, 2, 3, 4, 5, 6, 7/ INTEGER, PARAMETER :: NPHOTAB = 32 CHARACTER( 16 ) :: PHOTAB( NPHOTAB ) DATA ( PHOTAB( IRXXN ), IRXXN = 1, NPHOTAB ) / & & 'O3O3P_NASA06 ', 'O3O1D_NASA06 ', 'H2O2_RACM2 ', & & 'NO2_RACM2 ', 'NO3NO_RACM2 ', 'NO3NO2_RACM2 ', & & 'HONO_RACM2 ', 'HNO3_RACM2 ', 'HNO4_RACM2 ', & & 'HCHO_MOL_JPL19 ', 'HCHO_RAD_JPL19 ', 'CH3CHO_RACM2 ', & & 'ALD_JPL19 ', 'CH3COCH3A_JPL19 ', 'CH3COCH3B_JPL19 ', & & 'UALD_RACM2 ', 'MEK_JGR19 ', 'KET_JGR19 ', & & 'HKET_RACM2 ', 'MACR_RACM2 ', 'MVK_RACM2 ', & & 'GLYH2_RACM2 ', 'GLYF_RACM2 ', 'GLYHX_RACM2 ', & & 'MGLY_RACM2 ', 'BALD_RACM2 ', 'OP1_RACM2 ', & & 'PAA_RACM2 ', 'ONIT_RACM2 ', 'PAN1_RACM2 ', & & 'PAN2_RACM2 ', 'ACRO_09 '/ INTEGER, PARAMETER :: NHETERO = 7 CHARACTER( 16 ) :: HETERO( NHETERO ) DATA ( HETERO( IRXXN ), IRXXN = 1, NHETERO ) / & & 'HETERO_GLY ', 'HETERO_MGLY ', 'HETERO_N2O5IJ ', & & 'HETERO_NO2 ', 'HETERO_IEPOX ', 'HETERO_ISO3NOSJ ', & & 'HETERO_ISO3OSJ '/ CHARACTER( 16 ) :: RXLABEL( NRXNS ) DATA ( RXLABEL( IRXXN ), IRXXN = 1, NRXNS ) / & & 'R001 ', 'R002 ', 'R003 ', & ! 0 & 'R004 ', 'R005 ', 'R006 ', & ! 1 & 'R007 ', 'R008 ', 'R009 ', & ! 2 & 'R010 ', 'R011 ', 'R012 ', & ! 3 & 'R013 ', 'R014 ', 'R014a ', & ! 4 & 'R015 ', 'TRP01 ', 'TRP02 ', & ! 5 & 'R016 ', 'R017 ', 'R018 ', & ! 6 & 'R019 ', 'R020 ', 'R021 ', & ! 7 & 'R022 ', 'R023 ', 'R024 ', & ! 8 & 'R025 ', 'R026 ', 'R027 ', & ! 9 & 'R028 ', 'R029 ', 'TRP03 ', & ! 0 & 'R029a ', 'R030 ', 'R031 ', & ! 1 & 'R032 ', 'R033 ', 'R034 ', & ! 2 & 'R035 ', 'R036 ', 'R037 ', & ! 3 & 'R038 ', 'R039 ', 'R040 ', & ! 4 & 'R041 ', 'R042 ', 'R043 ', & ! 5 & 'R044 ', 'R045 ', 'R046 ', & ! 6 & 'R047 ', 'R048 ', 'R049 ', & ! 7 & 'R050 ', 'R051 ', 'R052 ', & ! 8 & 'R053 ', 'R054 ', 'R055 ', & ! 9 & 'R056 ', 'R057 ', 'R058 ', & ! 0 & 'R059 ', 'R060 ', 'R061 ', & ! 1 & 'R062 ', 'R063 ', 'R064 ', & ! 2 & 'R065 ', 'R066 ', 'R067 ', & ! 3 & 'R068 ', 'R069 ', 'R070 ', & ! 4 & 'R071 ', 'R072 ', 'R073 ', & ! 5 & 'R074 ', 'R076 ', 'R077 ', & ! 6 & 'R078 ', 'R080 ', 'ROCARO31 ', & ! 7 & 'ROCARO41 ', 'ROCARO51 ', 'ROCARO61 ', & ! 8 & 'R086 ', 'R087 ', 'R088 ', & ! 9 & 'TRP04 ', 'TRP05 ', 'R089 ', & ! 0 & 'R090 ', 'R091 ', 'R092 ', & ! 1 & 'R093 ', 'R094 ', 'R095 ', & ! 2 & 'R096 ', 'R097 ', 'R098 ', & ! 3 & 'R099 ', 'R100 ', 'R101 ', & ! 4 & 'R102 ', 'R103 ', 'R104 ', & ! 5 & 'R105 ', 'R106 ', 'R108 ', & ! 6 & 'R109 ', 'R110 ', 'R111 ', & ! 7 & 'R112 ', 'R113 ', 'R114 ', & ! 8 & 'TRP06 ', 'R114a ', 'R115 ', & ! 9 & 'R116 ', 'R117 ', 'R118 ', & ! 0 & 'R119 ', 'R120 ', 'R121 ', & ! 1 & 'R122 ', 'R123 ', 'TRP07 ', & ! 2 & 'R124 ', 'R125 ', 'R126 ', & ! 3 & 'R127 ', 'R128 ', 'R130 ', & ! 4 & 'R131 ', 'R132 ', 'TRP08 ', & ! 5 & 'TRP09 ', 'R133 ', 'R134 ', & ! 6 & 'R135 ', 'R136 ', 'R137 ', & ! 7 & 'R138 ', 'R140 ', 'R141 ', & ! 8 & 'R142 ', 'R143 ', 'R145 ', & ! 9 & 'R146 ', 'R147 ', 'TRP10 ', & ! 0 & 'R148 ', 'R149 ', 'R150 ', & ! 1 & 'R151 ', 'R152 ', 'R153 ', & ! 2 & 'R154 ', 'R155 ', 'R156 ', & ! 3 & 'R158 ', 'R159 ', 'TRP11 ', & ! 4 & 'TRP12 ', 'R166 ', 'R167 ', & ! 5 & 'R168 ', 'R169 ', 'R170 ', & ! 6 & 'R171 ', 'R172 ', 'R173 ', & ! 7 & 'R174 ', 'R175 ', 'R177 ', & ! 8 & 'R178 ', 'R179 ', 'ROCARO33 ', & ! 9 & 'ROCARO43 ', 'ROCARO53 ', 'ROCARO63 ', & ! 0 & 'R188 ', 'R189 ', 'TRP13 ', & ! 1 & 'TRP14 ', 'TRP15 ', 'R190 ', & ! 2 & 'TRP16 ', 'TRP17 ', 'TRP18 ', & ! 3 & 'TRP19 ', 'TRP20 ', 'R191 ', & ! 4 & 'R192 ', 'R193 ', 'R194 ', & ! 5 & 'R195 ', 'R196 ', 'R197 ', & ! 6 & 'R198 ', 'R199 ', 'R200 ', & ! 7 & 'R201 ', 'R202 ', 'R203 ', & ! 8 & 'R204 ', 'R205 ', 'R206 ', & ! 9 & 'R207 ', 'R208 ', 'R209 ', & ! 0 & 'R210 ', 'R211 ', 'R212 ', & ! 1 & 'R213 ', 'R214 ', 'R215 ', & ! 2 & 'R217 ', 'R218 ', 'R219 ', & ! 3 & 'ROCARO32 ', 'ROCARO42 ', 'ROCARO52 ', & ! 4 & 'ROCARO62 ', 'R228 ', 'R229 ', & ! 5 & 'TRP21 ', 'TRP22 ', 'TRP23 ', & ! 6 & 'R230 ', 'TRP24 ', 'TRP25 ', & ! 7 & 'TRP26 ', 'TRP27 ', 'TRP28 ', & ! 8 & 'R231 ', 'R232 ', 'R233 ', & ! 9 & 'R234 ', 'R235 ', 'R236 ', & ! 0 & 'R237 ', 'R238 ', 'R239 ', & ! 1 & 'R240 ', 'R241 ', 'R242 ', & ! 2 & 'R243 ', 'R244 ', 'R245 ', & ! 3 & 'R246 ', 'R247 ', 'R248 ', & ! 4 & 'R249 ', 'R250 ', 'R251 ', & ! 5 & 'R253 ', 'R254 ', 'R255 ', & ! 6 & 'ROCARO35 ', 'ROCARO45 ', 'ROCARO55 ', & ! 7 & 'ROCARO65 ', 'R264 ', 'R265 ', & ! 8 & 'TRP29 ', 'TRP30 ', 'TRP31 ', & ! 9 & 'R266 ', 'TRP32 ', 'TRP33 ', & ! 0 & 'TRP34 ', 'R267 ', 'R268 ', & ! 1 & 'R269 ', 'R270 ', 'R271 ', & ! 2 & 'R272 ', 'R273 ', 'R274 ', & ! 3 & 'R275 ', 'R276 ', 'R277 ', & ! 4 & 'R278 ', 'R279 ', 'R280 ', & ! 5 & 'R281 ', 'R282 ', 'R283 ', & ! 6 & 'R284 ', 'R285 ', 'R286 ', & ! 7 & 'R287 ', 'R289 ', 'R290 ', & ! 8 & 'R291 ', 'ROCARO36 ', 'ROCARO46 ', & ! 9 & 'ROCARO56 ', 'ROCARO66 ', 'R300 ', & ! 0 & 'R301 ', 'TRP35 ', 'TRP36 ', & ! 1 & 'TRP37 ', 'R302 ', 'TRP38 ', & ! 2 & 'TRP39 ', 'TRP40 ', 'R303 ', & ! 3 & 'R304 ', 'R305 ', 'R306 ', & ! 4 & 'R307 ', 'R308 ', 'R309 ', & ! 5 & 'R310 ', 'R311 ', 'R312 ', & ! 6 & 'R313 ', 'R314 ', 'R315 ', & ! 7 & 'R316 ', 'R317 ', 'R318 ', & ! 8 & 'R319 ', 'R320 ', 'R321 ', & ! 9 & 'R322 ', 'R323 ', 'R324 ', & ! 0 & 'R325 ', 'R327 ', 'R328 ', & ! 1 & 'R329 ', 'ROCARO34 ', 'ROCARO44 ', & ! 2 & 'ROCARO54 ', 'ROCARO64 ', 'R338 ', & ! 3 & 'R339 ', 'R340 ', 'R341 ', & ! 4 & 'R342 ', 'R343 ', 'R344 ', & ! 5 & 'R345 ', 'R346 ', 'R347 ', & ! 6 & 'R348 ', 'R349 ', 'R350 ', & ! 7 & 'R351 ', 'R352 ', 'R353 ', & ! 8 & 'R354 ', 'R355 ', 'R356 ', & ! 9 & 'R357 ', 'R358 ', 'R359 ', & ! 0 & 'R360 ', 'R361 ', 'R362 ', & ! 1 & 'R363 ', 'TRP41 ', 'TRP42 ', & ! 2 & 'TRP43 ', 'TRP44 ', 'TRP45 ', & ! 3 & 'TRP46 ', 'TRP47 ', 'TRP48 ', & ! 4 & 'TRP49 ', 'TRP50 ', 'TRP51 ', & ! 5 & 'TRP52 ', 'SA14 ', 'R001c ', & ! 6 & 'R002c ', 'T17 ', 'T18 ', & ! 7 & 'T19 ', 'T20 ', 'T10 ', & ! 8 & 'T10a ', 'T10b ', 'T10c ', & ! 9 & 'T10d ', 'T10e ', 'T11 ', & ! 0 & 'T12 ', 'R003c ', 'R004c ', & ! 1 & 'R005c ', 'R006c ', 'R007c ', & ! 2 & 'R008c ', 'R010c ', 'R011c ', & ! 3 & 'R012c ', 'R013c ', 'R014c ', & ! 4 & 'R015c ', 'R016c ', 'R017c ', & ! 5 & 'R019c ', 'R020c ', 'HET_GLY ', & ! 6 & 'HET_MGLY ', 'HET_N2O5 ', 'HET_N02 ', & ! 7 & 'HAL_Ozone ', 'HET_IEPOX ', 'HET_ISO3TET ', & ! 8 & 'HET_IEPOXOS ', 'ROCALK1c ', 'ROCALK2c ', & ! 9 & 'ROCALK3c ', 'ROCALK4c ', 'ROCALK5c ', & ! 0 & 'ROCALK6c ', 'HC1001 ', 'ROCALK7c ', & ! 1 & 'ROCALK8c ', 'ROCALK9c ', 'ROCALK10c ', & ! 2 & 'ROCALK11c ', 'ROCALK12c ', 'HC1002 ', & ! 3 & 'ROCALK13c ', 'ROCALK14c ', 'ROCALK15c ', & ! 4 & 'ROCALK16c ', 'ROCALK17c ', 'ROCALK18c ', & ! 5 & 'HC1003 ', 'ROCALK19c ', 'ROCALK20c ', & ! 6 & 'ROCALK21c ', 'ROCALK22c ', 'ROCALK23c ', & ! 7 & 'ROCALK24c ', 'HC1004 ', 'ROCALK25c ', & ! 8 & 'ROCALK26c ', 'ROCALK27c ', 'ROCALK28c ', & ! 9 & 'ROCALK29c ', 'ROCALK30c ', 'HC1005 ', & ! 0 & 'ROCALK31c ', 'ROCALK32c ', 'ROCALK33c ', & ! 1 & 'ROCALK34c ', 'ROCALK35c ', 'ROCALK36c ', & ! 2 & 'HC1006 ', 'ROCALK37c ', 'ROCALK38c ', & ! 3 & 'ROCALK39c ', 'ROCALK40c ', 'ROCALK41c ', & ! 4 & 'ROCALK42c ', 'HC1007 ', 'ROCALK43c ', & ! 5 & 'ROCALK44c ', 'ROCALK45c ', 'ROCALK46c ', & ! 6 & 'ROCALK47c ', 'ROCALK48c ', 'HC1008 ', & ! 7 & 'ROCARO01 ', 'ROCARO02 ', 'ROCARO03 ', & ! 8 & 'ROCARO04 ', 'ROCARO05 ', 'ROCARO06 ', & ! 9 & 'ROCARO11 ', 'ROCARO12 ', 'ROCARO13 ', & ! 0 & 'ROCARO14 ', 'ROCARO15 ', 'ROCARO16 ', & ! 1 & 'ROCARO21 ', 'ROCARO22 ', 'ROCARO23 ', & ! 2 & 'ROCARO24 ', 'ROCARO25 ', 'ROCARO26 ', & ! 3 & 'ROCOXY1c ', 'ROCOXY2c ', 'ROCOXY3c ', & ! 4 & 'ROCOXY4c ', 'ROCOXY5c ', 'ROCOXY6c ', & ! 5 & 'ROCOXY7c ', 'ROCOXY8c ', 'ROCOXY9c ', & ! 6 & 'ROCOXY10c ', 'ROCOXY11c ', 'ROCOXY12c ', & ! 7 & 'ROCOXY13c ', 'ROCOXY14c ', 'ROCOXY15c ', & ! 8 & 'ROCOXY16c '/ ! ! NSPECIAL = Number of special rate coefficients ! SPECIAL = Names of special rate coefficients ! NSPECIAL_RXN = Number of reactions with special rates ! ISPECIAL = Pointers to reactions using special rates and their special rate coefficients ! MAXSPECTERMS = Max Number of terms type used by special rate coefficients ! KC_COEFFS = Coefficients of standard rate coefficients times concentration terms ! INDEX_KTERMS = Pointers to standard rate coefficients in special rate coefficients ! INDEX_CTERMS = Pointers to species concentrations in special rate coefficients ! OPERATOR_COEFFS = Coefficients of preceeding special rate coefficients used in special coefficient ! OPERATORS = Pointers to preceeding special rate coefficients used in special coefficient ! Special Rate information not available .. INTEGER, PARAMETER :: NSPECIAL_RXN = 0 INTEGER :: ISPECIAL( 1, 2 ) ! Special Rate information not available ... INTEGER, PARAMETER :: NSPECIAL = 0 ! Special Rate information not available ... CHARACTER( 16 ) :: SPECIAL( 1 ) INTEGER, PARAMETER :: MAXSPECTERMS = 1 REAL( 8 ) :: KC_COEFFS( NSPECIAL + 1, MAXSPECTERMS) INTEGER :: INDEX_KTERMS( NSPECIAL + 1, MAXSPECTERMS) INTEGER :: INDEX_CTERMS( NSPECIAL + 1, MAXSPECTERMS) REAL( 8 ) :: OPERATOR_COEFFS( NSPECIAL + 1, MAXSPECTERMS) INTEGER :: OPERATORS( NSPECIAL + 1, MAXSPECTERMS) ! Steady-state species section ! N_SS_SPC = Number of species assumed to be in steady-state ! SS_SPC_DIM = Dimension paramete for steady-state species ! SS_SPC = Names of species assumed to be in steady-state ! MAX_SS_LOSS = Max no. of SS loss rxns for any SS species ! MAX_SS_PROD = Max no. of SS prod rxns for any SS species ! N_LOSS_RXNS = No. of SS loss rxns for each SS species ! N_PROD_RXNS = No. of SS prod rxns for each SS species ! SS_LOSS_RXNS = List of SS loss rxns for each SS species ! SS_PROD_RXNS = List of SS prod rxns for each SS species ! SS_PROD_COEF = List of SS prod yields for each SS species ! SS_RCT_IND = SS species index if it is a rxn reactant INTEGER, PARAMETER :: N_SS_SPC = 0 INTEGER, PARAMETER :: SS_SPC_DIM = 1 INTEGER, PARAMETER :: MAX_SS_LOSS = 0 INTEGER, PARAMETER :: MAX_SS_PROD = 0 CHARACTER( 16 ) :: SS_SPC( 1 ) INTEGER :: N_LOSS_RXNS( 1 ) INTEGER :: N_PROD_RXNS( 1 ) INTEGER :: SS_LOSS_RXNS( 1, 1 ) INTEGER :: SS_PROD_RXNS( 1, 1 ) INTEGER :: SS_RCT_IND( 1 ) REAL :: SS_PROD_COEF( 1,1 ) LOGICAL, PARAMETER :: USE_SPECIAL_RATES = .FALSE. ! pointers and names to specific photolysis rates INTEGER, PARAMETER :: IJ_O3O3P_NASA06 = 1 INTEGER, PARAMETER :: IJ_O3O1D_NASA06 = 2 INTEGER, PARAMETER :: IJ_H2O2_RACM2 = 3 INTEGER, PARAMETER :: IJ_NO2_RACM2 = 4 INTEGER, PARAMETER :: IJ_NO3NO_RACM2 = 5 INTEGER, PARAMETER :: IJ_NO3NO2_RACM2 = 6 INTEGER, PARAMETER :: IJ_HONO_RACM2 = 7 INTEGER, PARAMETER :: IJ_HNO3_RACM2 = 8 INTEGER, PARAMETER :: IJ_HNO4_RACM2 = 9 INTEGER, PARAMETER :: IJ_HCHO_MOL_JPL19 = 10 INTEGER, PARAMETER :: IJ_HCHO_RAD_JPL19 = 11 INTEGER, PARAMETER :: IJ_CH3CHO_RACM2 = 12 INTEGER, PARAMETER :: IJ_ALD_JPL19 = 13 INTEGER, PARAMETER :: IJ_CH3COCH3A_JPL19 = 14 INTEGER, PARAMETER :: IJ_CH3COCH3B_JPL19 = 15 INTEGER, PARAMETER :: IJ_UALD_RACM2 = 16 INTEGER, PARAMETER :: IJ_MEK_JGR19 = 17 INTEGER, PARAMETER :: IJ_KET_JGR19 = 18 INTEGER, PARAMETER :: IJ_HKET_RACM2 = 19 INTEGER, PARAMETER :: IJ_MACR_RACM2 = 20 INTEGER, PARAMETER :: IJ_MVK_RACM2 = 21 INTEGER, PARAMETER :: IJ_GLYH2_RACM2 = 22 INTEGER, PARAMETER :: IJ_GLYF_RACM2 = 23 INTEGER, PARAMETER :: IJ_GLYHX_RACM2 = 24 INTEGER, PARAMETER :: IJ_MGLY_RACM2 = 25 INTEGER, PARAMETER :: IJ_BALD_RACM2 = 26 INTEGER, PARAMETER :: IJ_OP1_RACM2 = 27 INTEGER, PARAMETER :: IJ_PAA_RACM2 = 28 INTEGER, PARAMETER :: IJ_ONIT_RACM2 = 29 INTEGER, PARAMETER :: IJ_PAN1_RACM2 = 30 INTEGER, PARAMETER :: IJ_PAN2_RACM2 = 31 INTEGER, PARAMETER :: IJ_ACRO_09 = 32 INTEGER, PARAMETER :: IK_HETERO_GLY = 1 INTEGER, PARAMETER :: IK_HETERO_MGLY = 2 INTEGER, PARAMETER :: IK_HETERO_N2O5IJ = 3 INTEGER, PARAMETER :: IK_HETERO_NO2 = 4 INTEGER, PARAMETER :: IK_HETERO_IEPOX = 5 INTEGER, PARAMETER :: IK_HETERO_ISO3NOSJ = 6 INTEGER, PARAMETER :: IK_HETERO_ISO3OSJ = 7 END MODULE RXNS_DATA ================================================ FILE: CCTM/src/MECHS/cracmm1_aq/RXNS_FUNC_MODULE.F90 ================================================ MODULE RXNS_FUNCTION IMPLICIT NONE ! Name of Mechanism CRACMM1_AQ PUBLIC :: CALC_RCONST, SPECIAL_RATES, MAP_CHEMISTRY_SPECIES CONTAINS REAL( 8 ) FUNCTION POWER_T02( TEMPOT300,A0,B0 ) IMPLICIT NONE ! rate constant for CMAQ Arrhenuis reaction type 2 ! Arguements: REAL( 8 ), INTENT( IN ) :: TEMPOT300 REAL( 8 ), INTENT( IN ) :: A0 REAL( 8 ), INTENT( IN ) :: B0 ! Local: None POWER_T02 = A0 * TEMPOT300**B0 RETURN END FUNCTION POWER_T02 REAL( 8 ) FUNCTION ARRHENUIS_T04( INV_TEMP,TEMPOT300,A0,B0,C0 ) IMPLICIT NONE ! rate constant for CMAQ Arrhenuis reaction type 4 ! Arguements: REAL( 8 ), INTENT( IN ) :: INV_TEMP REAL( 8 ), INTENT( IN ) :: TEMPOT300 REAL( 8 ), INTENT( IN ) :: A0 REAL( 8 ), INTENT( IN ) :: B0 REAL( 8 ), INTENT( IN ) :: C0 ! Local: INTRINSIC DEXP ARRHENUIS_T04 = A0 * DEXP( B0 * INV_TEMP ) * TEMPOT300**C0 RETURN END FUNCTION ARRHENUIS_T04 REAL( 8 ) FUNCTION ARRHENUIS_T03( INV_TEMP,A0,B0 ) ! rate constant for CMAQ Arrhenuis reaction type 3 IMPLICIT NONE ! Arguements: REAL( 8 ), INTENT( IN ) :: INV_TEMP REAL( 8 ), INTENT(IN) :: A0 REAL( 8 ), INTENT(IN) :: B0 ! Local: INTRINSIC DEXP ARRHENUIS_T03 = A0 * DEXP( B0 * INV_TEMP ) RETURN END FUNCTION ARRHENUIS_T03 REAL( 8 ) FUNCTION FALLOFF_T08(INV_TEMP,CAIR,A0,C0,A2,C2,A3,C3) ! rate constant for CMAQ fall off reaction type 8 IMPLICIT NONE ! Arguements: REAL( 8 ), INTENT( IN ) :: INV_TEMP REAL( 8 ), INTENT( IN ) :: CAIR REAL( 8 ), INTENT( IN ) :: A0 REAL( 8 ), INTENT( IN ) :: C0 REAL( 8 ), INTENT( IN ) :: A2 REAL( 8 ), INTENT( IN ) :: C2 REAL( 8 ), INTENT( IN ) :: A3 REAL( 8 ), INTENT( IN ) :: C3 ! Local: REAL( 8 ) K0 REAL( 8 ) K2 REAL( 8 ) K3 INTRINSIC DEXP K0 = A0 * DEXP( C0 * INV_TEMP ) K2 = A2 * DEXP( C2 * INV_TEMP ) K3 = A3 * DEXP( C3 * INV_TEMP ) K3 = K3 * CAIR FALLOFF_T08 = K0 + K3/( 1.0D0 + K3/K2 ) RETURN END FUNCTION FALLOFF_T08 REAL( 8 ) FUNCTION FALLOFF_T09(INV_TEMP,CAIR,A1,C1,A2,C2) ! rate constant for CMAQ fall off reaction type 9 IMPLICIT NONE ! Arguements: REAL( 8 ), INTENT( IN ) :: INV_TEMP REAL( 8 ), INTENT( IN ) :: CAIR REAL( 8 ), INTENT( IN ) :: A1 REAL( 8 ), INTENT( IN ) :: C1 REAL( 8 ), INTENT( IN ) :: A2 REAL( 8 ), INTENT( IN ) :: C2 ! Local: REAL( 8 ) K1 REAL( 8 ) K2 INTRINSIC DEXP K1 = A1 * DEXP( C1 * INV_TEMP ) K2 = A2 * DEXP( C2 * INV_TEMP ) FALLOFF_T09 = K1 + K2 * CAIR RETURN END FUNCTION FALLOFF_T09 REAL( 8 ) FUNCTION FALLOFF_T10(INV_TEMP,TEMPOT300,CAIR,A0,B0,C0,A1,B1,C1,CE,CF) IMPLICIT NONE ! rate constant for CMAQ fall off reaction type 10 ! Arguements: REAL( 8 ), INTENT( IN ) :: INV_TEMP REAL( 8 ), INTENT( IN ) :: TEMPOT300 REAL( 8 ), INTENT( IN ) :: CAIR REAL( 8 ), INTENT( IN ) :: A0 REAL( 8 ), INTENT( IN ) :: B0 REAL( 8 ), INTENT( IN ) :: C0 REAL( 8 ), INTENT( IN ) :: A1 REAL( 8 ), INTENT( IN ) :: B1 REAL( 8 ), INTENT( IN ) :: C1 REAL( 8 ), INTENT( IN ) :: CE REAL( 8 ), INTENT( IN ) :: CF ! Local: REAL( 8 ) K0 REAL( 8 ) K1 REAL( 8 ) KEND K0 = A0 * CAIR * DEXP(B0*INV_TEMP)* TEMPOT300**C0 K1 = A1 * DEXP(B1*INV_TEMP) * TEMPOT300**C1 KEND = ( ( 1.0D0 + ( ( 1.0D0 / CE ) * DLOG10( K0 / K1 ) ) ** 2.0D0 ) ) KEND = 1.0D0 / KEND FALLOFF_T10 = ( K0 / ( 1.0D0 + K0/K1 ) ) * CF ** KEND RETURN END FUNCTION FALLOFF_T10 REAL( 8 ) FUNCTION FALLOFF_T11(INV_TEMP,TEMPOT300,CAIR,A1,B1,C1,A2, B2, C2, D1, D2) ! rate constant for CMAQ fall off reaction type 11 ! actually expanded form of type 9 IMPLICIT NONE ! Arguements: REAL( 8 ), INTENT( IN ) :: INV_TEMP REAL( 8 ), INTENT( IN ) :: TEMPOT300 REAL( 8 ), INTENT( IN ) :: CAIR REAL( 8 ), INTENT( IN ) :: A1 REAL( 8 ), INTENT( IN ) :: B1 REAL( 8 ), INTENT( IN ) :: C1 REAL( 8 ), INTENT( IN ) :: A2 REAL( 8 ), INTENT( IN ) :: B2 REAL( 8 ), INTENT( IN ) :: C2 REAL( 8 ), INTENT( IN ) :: D1 REAL( 8 ), INTENT( IN ) :: D2 ! Local: REAL( 8 ) K1 REAL( 8 ) K2 REAL( 8 ) K3 INTRINSIC DEXP K1 = A1 * DEXP( C1 * INV_TEMP ) * TEMPOT300**B1 K2 = A2 * DEXP( C2 * INV_TEMP ) * TEMPOT300**B2 K3 = D1 * DEXP( D2 * INV_TEMP ) FALLOFF_T11 = K1 + K2 * CAIR + K3 RETURN END FUNCTION FALLOFF_T11 REAL( 8 ) FUNCTION HALOGEN_FALLOFF(PRESS,A1,B1,A2,B2,A3) IMPLICIT NONE REAL( 8 ), INTENT( IN ) :: PRESS REAL( 8 ), INTENT( IN ) :: A1 REAL( 8 ), INTENT( IN ) :: B1 REAL( 8 ), INTENT( IN ) :: A2 REAL( 8 ), INTENT( IN ) :: B2 REAL( 8 ), INTENT( IN ) :: A3 ! Maximum loss rate (1/sec) INTRINSIC DEXP HALOGEN_FALLOFF = A1 * DEXP( B1 * PRESS ) + A2 * DEXP( B2 * PRESS ) HALOGEN_FALLOFF = DMIN1 (A3, HALOGEN_FALLOFF ) RETURN END FUNCTION HALOGEN_FALLOFF SUBROUTINE SPECIAL_RATES( NUMCELLS, Y, TEMP, DENS, RKI ) ! Purpose: calculate special rate operators and update ! appropriate rate constants USE RXNS_DATA IMPLICIT NONE ! Arguments: INTEGER, INTENT( IN ) :: NUMCELLS ! Number of cells in block REAL( 8 ), INTENT( IN ) :: Y( :, : ) ! species concs REAL( 8 ), INTENT( IN ) :: TEMP( : ) ! air temperature, K REAL( 8 ), INTENT( IN ) :: DENS( : ) ! air density, Kg/m3 REAL( 8 ), INTENT( INOUT ) :: RKI( :, : ) ! reaction rate constant, ppm/min ! Local: REAL( 8 ), PARAMETER :: DENSITY_TO_NUMBER = 2.07930D+19 ! Kg/m3 to molecules/cm3 INTEGER :: NCELL REAL( 8 ) :: INV_TEMP REAL( 8 ) :: CAIR REAL( 8 ) :: CFACT ! scales operator if not multiplied by RKI, cm^3/(molecule) to 1/(ppm) REAL( 8 ) :: CFACT_SQU ! scales operator if not multiplied by RKI, cm^6/(molec^2) to 1/(ppm^2) ! special rate operators listed below DO NCELL = 1, NUMCELLS INV_TEMP = 1.0D0 / TEMP( NCELL ) CAIR = DENSITY_TO_NUMBER * DENS( NCELL ) CFACT = 1.0D-06 * CAIR CFACT_SQU = 1.0D-12 * CAIR * CAIR ! define special rate operators ! define rate constants in terms of special rate operators END DO RETURN END SUBROUTINE SPECIAL_RATES SUBROUTINE CALC_RCONST( BLKTEMP, BLKPRES, BLKH2O, RJBLK, BLKHET, LSUNLIGHT, SEAWATER, RKI, NUMCELLS ) !********************************************************************** ! Function: To compute thermal and photolytic reaction rate ! coefficients for each reaction. ! Preconditions: Photolysis rates for individual species must have ! been calculated and stored in RJPHOT. Expects ! temperature in deg K, pressure in atm., water ! vapor in ppmV, and J-values in /min. ! Key Subroutines/Functions Called: POWER_02, ARRHRENUIS_T0*, FALLOFF_T*, HALOGEN_FALLOFF !*********************************************************************** USE RXNS_DATA IMPLICIT NONE ! Arguements: None REAL( 8 ), INTENT( IN ) :: BLKTEMP( : ) ! temperature, deg K REAL( 8 ), INTENT( IN ) :: BLKPRES( : ) ! pressure, Atm REAL( 8 ), INTENT( IN ) :: BLKH2O ( : ) ! water mixing ratio, ppm REAL( 8 ), INTENT( IN ) :: RJBLK ( :, : ) ! photolysis rates, 1/min REAL( 8 ), INTENT( IN ) :: BLKHET ( :, : ) ! heterogeneous rate constants, ???/min INTEGER, INTENT( IN ) :: NUMCELLS ! Number of cells in block LOGICAL, INTENT( IN ) :: LSUNLIGHT ! Is there sunlight? REAL( 8 ), INTENT( IN ) :: SEAWATER( : ) ! fractional area of OPEN+SURF REAL( 8 ), INTENT( OUT ) :: RKI ( :, : ) ! reaction rate constant, ppm/min !..Parameters: REAL( 8 ), PARAMETER :: COEF1 = 7.33981D+15 ! Molec/cc to ppm conv factor REAL( 8 ), PARAMETER :: CONSTC = 0.6D+0 ! Constant for reaction type 7 REAL( 8 ), PARAMETER :: TI300 = 1.0D+0/300.0D+0 ! reciprocal of 300 deg K REAL( 8 ), PARAMETER :: SFACT = 60.D+0 ! seconds per minute !..External Functions: None !..Local Variables: INTEGER :: NRT ! Loop index for reaction types INTEGER :: IRXN ! Reaction number INTEGER :: JNUM ! J-value species # from PHOT) INTEGER :: KNUM ! Reaction # for a relative rate coeff. INTEGER :: N ! Loop index for reactions INTEGER :: NCELL ! Loop index for # of cells in the block REAL( 8 ) :: CAIR ! air number density (wet) [molec/cm^3] REAL( 8 ) :: CFACT ! Convertor cm^3/(molec*sec) to 1/(ppm*min) REAL( 8 ) :: CFACT_SQU ! Convertor cm^6/(molec^2*sec) to 1/(ppm^2*min) REAL( 8 ) :: INV_CFACT ! ppm/min to molec/(cm^3*sec) REAL( 8 ) :: TEMPOT300 ! temperature divided by 300 K, dimensionaless REAL( 8 ) :: INV_TEMP ! reciprocal of air temperature, K-1 REAL( 8 ) :: INV_CAIR ! reciprocal of air number density (wet), [cm^3/molec] REAL( 8 ) :: TEMP ! air temperature, K REAL( 8 ) :: PRESS ! pressure [Atm] REAL( 8 ) :: INV_RFACT ! ppm/min to molec/(cm^3*min) REAL( 8 ) :: RFACT_SQU ! cm^6/(molec^2*min) to 1/(ppm^2*min) REAL( 8 ) :: RFACT ! cm^3/(molec*min) to 1/(ppm*min) REAL( 8 ) :: H2O ! concentration, [molec/cm^3] RKI = 0.0D0 ! All rate constants converted from molec/cm3 to ppm ! and 1/sec to 1/min IF( LSUNLIGHT )THEN DO NCELL = 1, NUMCELLS ! Reaction Label R001 RKI( NCELL, 1) = RJBLK( NCELL, IJ_O3O3P_NASA06 ) ! Reaction Label R002 RKI( NCELL, 2) = RJBLK( NCELL, IJ_O3O1D_NASA06 ) ! Reaction Label R003 RKI( NCELL, 3) = RJBLK( NCELL, IJ_H2O2_RACM2 ) ! Reaction Label R004 RKI( NCELL, 4) = RJBLK( NCELL, IJ_NO2_RACM2 ) ! Reaction Label R005 RKI( NCELL, 5) = RJBLK( NCELL, IJ_NO3NO_RACM2 ) ! Reaction Label R006 RKI( NCELL, 6) = RJBLK( NCELL, IJ_NO3NO2_RACM2 ) ! Reaction Label R007 RKI( NCELL, 7) = RJBLK( NCELL, IJ_HONO_RACM2 ) ! Reaction Label R008 RKI( NCELL, 8) = RJBLK( NCELL, IJ_HNO3_RACM2 ) ! Reaction Label R009 RKI( NCELL, 9) = RJBLK( NCELL, IJ_HNO4_RACM2 ) ! Reaction Label R010 RKI( NCELL, 10) = RJBLK( NCELL, IJ_HCHO_MOL_JPL19 ) ! Reaction Label R011 RKI( NCELL, 11) = RJBLK( NCELL, IJ_HCHO_RAD_JPL19 ) ! Reaction Label R012 RKI( NCELL, 12) = RJBLK( NCELL, IJ_CH3CHO_RACM2 ) ! Reaction Label R013 RKI( NCELL, 13) = RJBLK( NCELL, IJ_ALD_JPL19 ) ! Reaction Label R014 RKI( NCELL, 14) = RJBLK( NCELL, IJ_CH3COCH3A_JPL19 ) ! Reaction Label R014a RKI( NCELL, 15) = RJBLK( NCELL, IJ_CH3COCH3B_JPL19 ) ! Reaction Label R015 RKI( NCELL, 16) = RJBLK( NCELL, IJ_UALD_RACM2 ) ! Reaction Label TRP01 RKI( NCELL, 17) = RJBLK( NCELL, IJ_ALD_JPL19 ) ! Reaction Label TRP02 RKI( NCELL, 18) = RJBLK( NCELL, IJ_ALD_JPL19 ) ! Reaction Label R016 RKI( NCELL, 19) = RJBLK( NCELL, IJ_MEK_JGR19 ) ! Reaction Label R017 RKI( NCELL, 20) = RJBLK( NCELL, IJ_KET_JGR19 ) ! Reaction Label R018 RKI( NCELL, 21) = RJBLK( NCELL, IJ_HKET_RACM2 ) ! Reaction Label R019 RKI( NCELL, 22) = RJBLK( NCELL, IJ_MACR_RACM2 ) ! Reaction Label R020 RKI( NCELL, 23) = RJBLK( NCELL, IJ_MVK_RACM2 ) ! Reaction Label R021 RKI( NCELL, 24) = RJBLK( NCELL, IJ_GLYH2_RACM2 ) ! Reaction Label R022 RKI( NCELL, 25) = RJBLK( NCELL, IJ_GLYF_RACM2 ) ! Reaction Label R023 RKI( NCELL, 26) = RJBLK( NCELL, IJ_GLYHX_RACM2 ) ! Reaction Label R024 RKI( NCELL, 27) = RJBLK( NCELL, IJ_MGLY_RACM2 ) ! Reaction Label R025 RKI( NCELL, 28) = RJBLK( NCELL, IJ_MGLY_RACM2 ) ! Reaction Label R026 RKI( NCELL, 29) = RJBLK( NCELL, IJ_MGLY_RACM2 ) ! Reaction Label R027 RKI( NCELL, 30) = RJBLK( NCELL, IJ_BALD_RACM2 ) ! Reaction Label R028 RKI( NCELL, 31) = RJBLK( NCELL, IJ_OP1_RACM2 ) ! Reaction Label R029 RKI( NCELL, 32) = RJBLK( NCELL, IJ_OP1_RACM2 ) ! Reaction Label TRP03 RKI( NCELL, 33) = RJBLK( NCELL, IJ_OP1_RACM2 ) ! Reaction Label R029a RKI( NCELL, 34) = RJBLK( NCELL, IJ_OP1_RACM2 ) ! Reaction Label R030 RKI( NCELL, 35) = RJBLK( NCELL, IJ_PAA_RACM2 ) ! Reaction Label R031 RKI( NCELL, 36) = RJBLK( NCELL, IJ_ONIT_RACM2 ) ! Reaction Label R032 RKI( NCELL, 37) = RJBLK( NCELL, IJ_PAN1_RACM2 ) ! Reaction Label R033 RKI( NCELL, 38) = RJBLK( NCELL, IJ_PAN2_RACM2 ) ! Reaction Label T20 RKI( NCELL, 386) = RJBLK( NCELL, IJ_ACRO_09 ) IF ( SEAWATER (NCELL) .GT. 0.001D0 ) THEN ! Reaction Label HAL_Ozone RKI( NCELL, 415) = SEAWATER (NCELL) * SFACT * HALOGEN_FALLOFF( BLKPRES( NCELL ), 6.7006D-11, 1.0743D+01, & & 3.4153D-08, -6.7130D-01, 2.0000D-06 ) ELSE RKI( NCELL, 415) = 0.0D0 END IF END DO END IF DO NCELL = 1, NUMCELLS ! Set-up conversion factors INV_TEMP = 1.0D+00 / BLKTEMP( NCELL ) CAIR = 1.0D+06 * COEF1 * BLKPRES( NCELL ) * INV_TEMP CFACT = 6.0D-05 * CAIR CFACT_SQU = 6.0D-11 * CAIR * CAIR INV_CAIR = 1.0D0 / CAIR INV_CFACT = 6.0D+07 * INV_CAIR TEMP = BLKTEMP( NCELL ) TEMPOT300 = BLKTEMP( NCELL ) * TI300 RFACT = 1.0D+06 * INV_CAIR RFACT_SQU = 1.0D+12 * INV_CAIR * INV_CAIR ! Reaction Label R034 RKI( NCELL, 39) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.7000D-12, -9.4000D+02 ) ! Reaction Label R035 RKI( NCELL, 40) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.0000D-14, -4.9000D+02 ) ! Reaction Label R036 RKI( NCELL, 41) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.0000D-12, -1.5000D+03 ) ! Reaction Label R037 RKI( NCELL, 42) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.2000D-13, -2.4500D+03 ) ! Reaction Label R038 RKI( NCELL, 43) = CFACT_SQU * POWER_T02( TEMPOT300, 6.1000D-34, -2.4000D+00 ) ! Reaction Label R039 RKI( NCELL, 44) = CFACT * ARRHENUIS_T03( INV_TEMP, 8.0000D-12, -2.0600D+03 ) ! Reaction Label R040 RKI( NCELL, 45) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.3000D-11, 5.5000D+01 ) ! Reaction Label R041 RKI( NCELL, 46) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.1500D-11, 1.1000D+02 ) ! Reaction Label R042 RKI( NCELL, 47) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.6300D-10, 6.0000D+01 ) ! Reaction Label R043 RKI( NCELL, 48) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.8000D-12, -1.8000D+03 ) ! Reaction Label R044 RKI( NCELL, 49) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.8000D-11, 2.5000D+02 ) ! Reaction Label R045 RKI( NCELL, 50) = CFACT * FALLOFF_T09( INV_TEMP, CAIR, & & 3.0000D-13, 4.6000D+02, 2.1000D-33, & & 9.2000D+02 ) ! Reaction Label R046 RKI( NCELL, 51) = CFACT_SQU * FALLOFF_T09( INV_TEMP, CAIR, & & 4.2000D-34, 2.6600D+03, 2.9400D-54, & & 3.1200D+03 ) ! Reaction Label R047 RKI( NCELL, 52) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.8000D-12, 0.0000D+00 ) ! Reaction Label R048 RKI( NCELL, 53) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 9.1000D-32, 0.0000D+00, -1.5000D+00, & & 3.0000D-11, 0.0000D+00, 0.0000D+00, & & 1.0000D+00, 6.0000D-01 ) ! Reaction Label R049 RKI( NCELL, 54) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 7.1000D-31, 0.0000D+00, -2.6000D+00, & & 3.6000D-11, 0.0000D+00, -1.0000D-01, & & 1.0000D+00, 6.0000D-01 ) ! Reaction Label R050 RKI( NCELL, 55) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.4400D-12, 2.6000D+02 ) ! Reaction Label R051 RKI( NCELL, 56) = CFACT * FALLOFF_T11( INV_TEMP,TEMPOT300,CAIR, & & 6.0950D-14, -1.0000D+00, 2.7000D+02, & & 6.8570D-34, 1.0000D+00, 2.7000D+02, & & -5.9680D-14, 2.7000D+02 ) ! Reaction Label R052 RKI( NCELL, 57) = CFACT_SQU * ARRHENUIS_T03( INV_TEMP, 4.2500D-39, 6.6350D+02 ) ! Reaction Label R053 RKI( NCELL, 58) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.0000D-12, 2.5000D+02 ) ! Reaction Label R054 RKI( NCELL, 59) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.3000D-12, 2.0000D+02 ) ! Reaction Label R055 RKI( NCELL, 60) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 3.4000D-31, 0.0000D+00, -1.6000D+00, & & 2.3000D-11, 0.0000D+00, -2.0000D-01, & & 1.0000D+00, 6.0000D-01 ) ! Reaction Label R056 RKI( NCELL, 61) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 1.8000D-30, 0.0000D+00, -3.0000D+00, & & 2.8000D-11, 0.0000D+00, 0.0000D+00, & & 1.0000D+00, 6.0000D-01 ) ! Reaction Label R057 RKI( NCELL, 62) = CFACT * FALLOFF_T08( INV_TEMP, CAIR, & & 2.4000D-14, 4.6000D+02, 2.7000D-17, & & 2.1990D+03, 6.5000D-34, 1.3350D+03 ) ! Reaction Label R058 RKI( NCELL, 63) = 2.0000D-11 * CFACT ! Reaction Label R059 RKI( NCELL, 64) = 3.5000D-12 * CFACT ! Reaction Label R060 RKI( NCELL, 65) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.7000D-11, 1.2500D+02 ) ! Reaction Label R061 RKI( NCELL, 66) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.3500D-14, -1.3350D+03 ) ! Reaction Label R062 RKI( NCELL, 67) = CFACT * ARRHENUIS_T03( INV_TEMP, 8.5000D-13, -2.4500D+03 ) ! Reaction Label R063 RKI( NCELL, 68) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 2.4000D-30, 0.0000D+00, -3.0000D+00, & & 1.6000D-12, 0.0000D+00, 1.0000D-01, & & 1.0000D+00, 6.0000D-01 ) ! Reaction Label R064 RKI( NCELL, 69) = RFACT * RKI( NCELL, 68 ) & & * ( 1.7241D+26 * DEXP( -1.0840D+04 * INV_TEMP) ) ! Reaction Label R065 RKI( NCELL, 70) = 1.0000D-22 * CFACT ! Reaction Label R066 RKI( NCELL, 71) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 1.9000D-31, 0.0000D+00, -3.4000D+00, & & 4.0000D-12, 0.0000D+00, -3.0000D-01, & & 1.0000D+00, 6.0000D-01 ) ! Reaction Label R067 RKI( NCELL, 72) = RFACT * RKI( NCELL, 71 ) & & * ( 4.7619D+26 * DEXP( -1.0900D+04 * INV_TEMP) ) ! Reaction Label R068 RKI( NCELL, 73) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.5000D-13, 6.1000D+02 ) ! Reaction Label R069 RKI( NCELL, 74) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 2.9000D-31, 0.0000D+00, -4.1000D+00, & & 1.7000D-12, 0.0000D+00, 2.0000D-01, & & 1.0000D+00, 6.0000D-01 ) ! Reaction Label R070 RKI( NCELL, 75) = CFACT * FALLOFF_T09( INV_TEMP, CAIR, & & 1.4400D-13, 0.0000D+00, 2.7400D-33, & & 0.0000D+00 ) ! Reaction Label R071 RKI( NCELL, 76) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.4500D-12, -1.7750D+03 ) ! Reaction Label R072 RKI( NCELL, 77) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.6600D-12, -1.0200D+03 ) ! Reaction Label R073 RKI( NCELL, 78) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.6800D-12, -3.7000D+02 ) ! Reaction Label R074 RKI( NCELL, 79) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.0100D-11, -2.4500D+02 ) ! Reaction Label R076 RKI( NCELL, 80) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 1.0000D-28, 0.0000D+00, -4.5000D+00, & & 8.8000D-12, 0.0000D+00, -8.5000D-01, & & 1.0000D+00, 6.0000D-01 ) ! Reaction Label R077 RKI( NCELL, 81) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.7200D-12, 5.0000D+02 ) ! Reaction Label R078 RKI( NCELL, 82) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.3300D-11, 5.0000D+02 ) ! Reaction Label R080 RKI( NCELL, 83) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 5.5000D-30, 0.0000D+00, 0.0000D+00, & & 8.3000D-13, 0.0000D+00, 2.0000D+00, & & 1.0000D+00, 6.0000D-01 ) ! Reaction Label ROCARO31 RKI( NCELL, 84) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.3300D-12, -1.9300D+02 ) ! Reaction Label ROCARO41 RKI( NCELL, 85) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.8100D-12, 3.5400D+02 ) ! Reaction Label ROCARO51 RKI( NCELL, 86) = 2.3300D-11 * CFACT ! Reaction Label ROCARO61 RKI( NCELL, 87) = 7.1600D-12 * CFACT ! Reaction Label R086 RKI( NCELL, 88) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-11, 3.9000D+02 ) ! Reaction Label R087 RKI( NCELL, 89) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.2100D-11, 4.4000D+02 ) ! Reaction Label R088 RKI( NCELL, 90) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.2000D-11, 4.0100D+02 ) ! Reaction Label TRP04 RKI( NCELL, 91) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.2000D-12, 6.0000D+02 ) ! Reaction Label TRP05 RKI( NCELL, 92) = 1.0000D-10 * CFACT ! Reaction Label R089 RKI( NCELL, 93) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.5000D-12, 1.2500D+02 ) ! Reaction Label R090 RKI( NCELL, 94) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.7000D-12, 3.4500D+02 ) ! Reaction Label R091 RKI( NCELL, 95) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.9000D-12, 4.0500D+02 ) ! Reaction Label R092 RKI( NCELL, 96) = CFACT * ARRHENUIS_T04( INV_TEMP, TEMPOT300, & & 4.5600D-14, -4.2700D+02, 3.6500D+00 ) ! Reaction Label R093 RKI( NCELL, 97) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.5000D-12, -9.0000D+01 ) ! Reaction Label R094 RKI( NCELL, 98) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.8000D-12, 1.0000D+01 ) ! Reaction Label R095 RKI( NCELL, 99) = 3.0000D-12 * CFACT ! Reaction Label R096 RKI( NCELL, 100) = CFACT * ARRHENUIS_T03( INV_TEMP, 8.0000D-12, 3.8000D+02 ) ! Reaction Label R097 RKI( NCELL, 101) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.6000D-12, 6.1000D+02 ) ! Reaction Label R098 RKI( NCELL, 102) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.7700D-12, 5.3300D+02 ) ! Reaction Label R099 RKI( NCELL, 103) = 1.1000D-11 * CFACT ! Reaction Label R100 RKI( NCELL, 104) = CFACT * ARRHENUIS_T03( INV_TEMP, 9.2600D-13, 8.3000D+02 ) ! Reaction Label R101 RKI( NCELL, 105) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.8000D-11, 1.7500D+02 ) ! Reaction Label R102 RKI( NCELL, 106) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.8000D-11, 1.7500D+02 ) ! Reaction Label R103 RKI( NCELL, 107) = 1.0000D-11 * CFACT ! Reaction Label R104 RKI( NCELL, 108) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.3200D-12, 2.4300D+02 ) ! Reaction Label R105 RKI( NCELL, 109) = CFACT * ARRHENUIS_T03( INV_TEMP, 6.7500D-12, 4.0500D+02 ) ! Reaction Label R106 RKI( NCELL, 110) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.6500D-11, 0.0000D+00 ) ! Reaction Label R108 RKI( NCELL, 111) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.0500D-10, 0.0000D+00 ) ! Reaction Label R109 RKI( NCELL, 112) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.8500D-12, -3.4500D+02 ) ! Reaction Label R110 RKI( NCELL, 113) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.0000D-12, 2.0000D+01 ) ! Reaction Label R111 RKI( NCELL, 114) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.6000D-12, 2.0000D+02 ) ! Reaction Label R112 RKI( NCELL, 115) = 1.4700D-11 * CFACT ! Reaction Label R113 RKI( NCELL, 116) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.9000D-12, 1.9000D+02 ) ! Reaction Label R114 RKI( NCELL, 117) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.4000D-12, 1.9000D+02 ) ! Reaction Label TRP06 RKI( NCELL, 118) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.4000D-12, 1.9000D+02 ) ! Reaction Label R114a RKI( NCELL, 119) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.4000D-12, 1.9000D+02 ) ! Reaction Label R115 RKI( NCELL, 120) = 1.0000D-10 * CFACT ! Reaction Label R116 RKI( NCELL, 121) = 3.0000D-11 * CFACT ! Reaction Label R117 RKI( NCELL, 122) = 4.5000D-13 * CFACT ! Reaction Label R118 RKI( NCELL, 123) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.0000D-14, 8.5000D+02 ) ! Reaction Label R119 RKI( NCELL, 124) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.9300D-12, 1.9000D+02 ) ! Reaction Label R120 RKI( NCELL, 125) = 4.0000D-14 * CFACT ! Reaction Label R121 RKI( NCELL, 126) = 4.0000D-14 * CFACT ! Reaction Label R122 RKI( NCELL, 127) = 3.2000D-11 * CFACT ! Reaction Label R123 RKI( NCELL, 128) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.3100D-12, -2.6000D+02 ) ! Reaction Label TRP07 RKI( NCELL, 129) = 4.8000D-12 * CFACT ! Reaction Label R124 RKI( NCELL, 130) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.6000D-12, 2.7000D+02 ) ! Reaction Label R125 RKI( NCELL, 131) = 1.3000D-11 * CFACT ! Reaction Label R126 RKI( NCELL, 132) = CFACT * ARRHENUIS_T03( INV_TEMP, 9.1400D-15, -2.5800D+03 ) ! Reaction Label R127 RKI( NCELL, 133) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.3300D-15, -1.8000D+03 ) ! Reaction Label R128 RKI( NCELL, 134) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.4000D-15, -8.4500D+02 ) ! Reaction Label R130 RKI( NCELL, 135) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.8600D-15, -1.9130D+03 ) ! Reaction Label R131 RKI( NCELL, 136) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.0000D-16, -5.3000D+02 ) ! Reaction Label R132 RKI( NCELL, 137) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.9500D-15, -7.8300D+02 ) ! Reaction Label TRP08 RKI( NCELL, 138) = 8.3000D-18 * CFACT ! Reaction Label TRP09 RKI( NCELL, 139) = 1.6700D-16 * CFACT ! Reaction Label R133 RKI( NCELL, 140) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.3600D-15, -2.1120D+03 ) ! Reaction Label R134 RKI( NCELL, 141) = CFACT * ARRHENUIS_T03( INV_TEMP, 8.5000D-16, -1.5200D+03 ) ! Reaction Label R135 RKI( NCELL, 142) = 1.6600D-18 * CFACT ! Reaction Label R136 RKI( NCELL, 143) = 2.0000D-16 * CFACT ! Reaction Label R137 RKI( NCELL, 144) = 2.0000D-16 * CFACT ! Reaction Label R138 RKI( NCELL, 145) = 9.0000D-17 * CFACT ! Reaction Label R140 RKI( NCELL, 146) = 2.8600D-13 * CFACT ! Reaction Label R141 RKI( NCELL, 147) = CFACT * ARRHENUIS_T04( INV_TEMP, TEMPOT300, & & 4.3920D-13, -2.2820D+03, 2.0000D+00 ) ! Reaction Label R142 RKI( NCELL, 148) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.7900D-13, -4.5000D+02 ) ! Reaction Label R143 RKI( NCELL, 149) = CFACT * ARRHENUIS_T03( INV_TEMP, 8.6400D-13, 4.5000D+02 ) ! Reaction Label R145 RKI( NCELL, 150) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.0300D-12, -4.4600D+02 ) ! Reaction Label R146 RKI( NCELL, 151) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.1900D-12, 4.9000D+02 ) ! Reaction Label R147 RKI( NCELL, 152) = 1.2200D-11 * CFACT ! Reaction Label TRP10 RKI( NCELL, 153) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.1500D-14, -4.4800D+02 ) ! Reaction Label R148 RKI( NCELL, 154) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.0000D-12, -2.4400D+03 ) ! Reaction Label R149 RKI( NCELL, 155) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.4000D-12, -1.9000D+03 ) ! Reaction Label R150 RKI( NCELL, 156) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.7600D-12, -1.9000D+03 ) ! Reaction Label R151 RKI( NCELL, 157) = 3.4000D-15 * CFACT ! Reaction Label R152 RKI( NCELL, 158) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.0200D-13, -1.0760D+03 ) ! Reaction Label R153 RKI( NCELL, 159) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.9000D-12, -1.9000D+03 ) ! Reaction Label R154 RKI( NCELL, 160) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.7600D-12, -1.9000D+03 ) ! Reaction Label R155 RKI( NCELL, 161) = 3.7800D-12 * CFACT ! Reaction Label R156 RKI( NCELL, 162) = 1.0600D-12 * CFACT ! Reaction Label R158 RKI( NCELL, 163) = 2.0100D-10 * CFACT ! Reaction Label R159 RKI( NCELL, 164) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.2000D-14, -5.0000D+02 ) ! Reaction Label TRP11 RKI( NCELL, 165) = 1.0000D+00 * SFACT ! Reaction Label TRP12 RKI( NCELL, 166) = 1.0000D+00 * SFACT ! Reaction Label R166 RKI( NCELL, 167) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 9.7000D-29, 0.0000D+00, -5.6000D+00, & & 9.3000D-12, 0.0000D+00, -1.5000D+00, & & 1.0000D+00, 6.0000D-01 ) ! Reaction Label R167 RKI( NCELL, 168) = RFACT * RKI( NCELL, 167 ) & & * ( 1.1111D+28 * DEXP( -1.4000D+04 * INV_TEMP) ) ! Reaction Label R168 RKI( NCELL, 169) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 9.7000D-29, 0.0000D+00, -5.6000D+00, & & 9.3000D-12, 0.0000D+00, -1.5000D+00, & & 1.0000D+00, 6.0000D-01 ) ! Reaction Label R169 RKI( NCELL, 170) = RFACT * RKI( NCELL, 169 ) & & * ( 1.1111D+28 * DEXP( -1.4000D+04 * INV_TEMP) ) ! Reaction Label R170 RKI( NCELL, 171) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.8000D-12, 1.8100D+02 ) ! Reaction Label R171 RKI( NCELL, 172) = SFACT * ARRHENUIS_T03( INV_TEMP, 1.6000D+16, -1.3486D+04 ) ! Reaction Label R172 RKI( NCELL, 173) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.8000D-12, 3.0000D+02 ) ! Reaction Label R173 RKI( NCELL, 174) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.6000D-12, 3.6500D+02 ) ! Reaction Label R174 RKI( NCELL, 175) = 4.0000D-12 * CFACT ! Reaction Label R175 RKI( NCELL, 176) = 4.0000D-12 * CFACT ! Reaction Label R177 RKI( NCELL, 177) = 9.0000D-12 * CFACT ! Reaction Label R178 RKI( NCELL, 178) = 4.0000D-12 * CFACT ! Reaction Label R179 RKI( NCELL, 179) = 4.0000D-12 * CFACT ! Reaction Label ROCARO33 RKI( NCELL, 180) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label ROCARO43 RKI( NCELL, 181) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label ROCARO53 RKI( NCELL, 182) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label ROCARO63 RKI( NCELL, 183) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label R188 RKI( NCELL, 184) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.4300D-12, 3.6000D+02 ) ! Reaction Label R189 RKI( NCELL, 185) = 4.0000D-12 * CFACT ! Reaction Label TRP13 RKI( NCELL, 186) = 4.0000D-12 * CFACT ! Reaction Label TRP14 RKI( NCELL, 187) = 4.0000D-12 * CFACT ! Reaction Label TRP15 RKI( NCELL, 188) = 4.0000D-12 * CFACT ! Reaction Label R190 RKI( NCELL, 189) = 4.0000D-12 * CFACT ! Reaction Label TRP16 RKI( NCELL, 190) = 4.0000D-12 * CFACT ! Reaction Label TRP17 RKI( NCELL, 191) = 4.0000D-12 * CFACT ! Reaction Label TRP18 RKI( NCELL, 192) = 4.0000D-12 * CFACT ! Reaction Label TRP19 RKI( NCELL, 193) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label TRP20 RKI( NCELL, 194) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label R191 RKI( NCELL, 195) = CFACT * ARRHENUIS_T03( INV_TEMP, 8.1000D-12, 2.7000D+02 ) ! Reaction Label R192 RKI( NCELL, 196) = CFACT * ARRHENUIS_T03( INV_TEMP, 8.1000D-12, 2.7000D+02 ) ! Reaction Label R193 RKI( NCELL, 197) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.9000D-12, 3.0000D+02 ) ! Reaction Label R194 RKI( NCELL, 198) = 4.0000D-12 * CFACT ! Reaction Label R195 RKI( NCELL, 199) = 4.0000D-12 * CFACT ! Reaction Label R196 RKI( NCELL, 200) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.5400D-12, 3.6000D+02 ) ! Reaction Label R197 RKI( NCELL, 201) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.5400D-12, 3.6000D+02 ) ! Reaction Label R198 RKI( NCELL, 202) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.5400D-12, 3.6000D+02 ) ! Reaction Label R199 RKI( NCELL, 203) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.5400D-12, 3.6000D+02 ) ! Reaction Label R200 RKI( NCELL, 204) = 4.0000D-12 * CFACT ! Reaction Label R201 RKI( NCELL, 205) = 4.0000D-12 * CFACT ! Reaction Label R202 RKI( NCELL, 206) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label R203 RKI( NCELL, 207) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label R204 RKI( NCELL, 208) = 4.0000D-12 * CFACT ! Reaction Label R205 RKI( NCELL, 209) = 4.0000D-12 * CFACT ! Reaction Label R206 RKI( NCELL, 210) = 4.0000D-12 * CFACT ! Reaction Label R207 RKI( NCELL, 211) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label R208 RKI( NCELL, 212) = 4.0000D-12 * CFACT ! Reaction Label R209 RKI( NCELL, 213) = 2.0000D-11 * CFACT ! Reaction Label R210 RKI( NCELL, 214) = 2.0000D-11 * CFACT ! Reaction Label R211 RKI( NCELL, 215) = 2.0800D-12 * CFACT ! Reaction Label R212 RKI( NCELL, 216) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.1000D-13, 7.5000D+02 ) ! Reaction Label R213 RKI( NCELL, 217) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.5000D-13, 7.0000D+02 ) ! Reaction Label R214 RKI( NCELL, 218) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.6600D-13, 1.3000D+03 ) ! Reaction Label R215 RKI( NCELL, 219) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.6600D-13, 1.3000D+03 ) ! Reaction Label R217 RKI( NCELL, 220) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.9000D-13, 1.3000D+03 ) ! Reaction Label R218 RKI( NCELL, 221) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.6600D-13, 1.3000D+03 ) ! Reaction Label R219 RKI( NCELL, 222) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.6600D-13, 1.3000D+03 ) ! Reaction Label ROCARO32 RKI( NCELL, 223) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.9100D-13, 1.3000D+03 ) ! Reaction Label ROCARO42 RKI( NCELL, 224) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.9100D-13, 1.3000D+03 ) ! Reaction Label ROCARO52 RKI( NCELL, 225) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.9100D-13, 1.3000D+03 ) ! Reaction Label ROCARO62 RKI( NCELL, 226) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.9100D-13, 1.3000D+03 ) ! Reaction Label R228 RKI( NCELL, 227) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.0500D-13, 1.3000D+03 ) ! Reaction Label R229 RKI( NCELL, 228) = 1.5000D-11 * CFACT ! Reaction Label TRP21 RKI( NCELL, 229) = 1.5000D-11 * CFACT ! Reaction Label TRP22 RKI( NCELL, 230) = 1.5000D-11 * CFACT ! Reaction Label TRP23 RKI( NCELL, 231) = 1.5000D-11 * CFACT ! Reaction Label R230 RKI( NCELL, 232) = 1.5000D-11 * CFACT ! Reaction Label TRP24 RKI( NCELL, 233) = 1.5000D-11 * CFACT ! Reaction Label TRP25 RKI( NCELL, 234) = 1.5000D-11 * CFACT ! Reaction Label TRP26 RKI( NCELL, 235) = 1.5000D-11 * CFACT ! Reaction Label TRP27 RKI( NCELL, 236) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.9100D-13, 1.3000D+03 ) ! Reaction Label TRP28 RKI( NCELL, 237) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.9100D-13, 1.3000D+03 ) ! Reaction Label R231 RKI( NCELL, 238) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.3000D-13, 1.0400D+03 ) ! Reaction Label R232 RKI( NCELL, 239) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.3000D-13, 1.0400D+03 ) ! Reaction Label R233 RKI( NCELL, 240) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.1500D-13, 1.3000D+03 ) ! Reaction Label R234 RKI( NCELL, 241) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.1500D-13, 1.3000D+03 ) ! Reaction Label R235 RKI( NCELL, 242) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.1500D-13, 1.3000D+03 ) ! Reaction Label R236 RKI( NCELL, 243) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.8200D-13, 1.3000D+03 ) ! Reaction Label R237 RKI( NCELL, 244) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.8200D-13, 1.3000D+03 ) ! Reaction Label R238 RKI( NCELL, 245) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.9100D-13, 1.3000D+03 ) ! Reaction Label R239 RKI( NCELL, 246) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.9100D-13, 1.3000D+03 ) ! Reaction Label R240 RKI( NCELL, 247) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.7500D-13, 9.8000D+02 ) ! Reaction Label R241 RKI( NCELL, 248) = 1.0000D-11 * CFACT ! Reaction Label R242 RKI( NCELL, 249) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.7500D-13, 9.8000D+02 ) ! Reaction Label R243 RKI( NCELL, 250) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.1500D-13, 1.3000D+03 ) ! Reaction Label R244 RKI( NCELL, 251) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.6600D-13, 1.3000D+03 ) ! Reaction Label R245 RKI( NCELL, 252) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.6600D-13, 1.3000D+03 ) ! Reaction Label R246 RKI( NCELL, 253) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.7500D-13, 9.8000D+02 ) ! Reaction Label R247 RKI( NCELL, 254) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.6600D-13, 1.3000D+03 ) ! Reaction Label R248 RKI( NCELL, 255) = CFACT * ARRHENUIS_T03( INV_TEMP, 9.5000D-14, 3.9000D+02 ) ! Reaction Label R249 RKI( NCELL, 256) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.1800D-13, 1.5800D+02 ) ! Reaction Label R250 RKI( NCELL, 257) = CFACT * ARRHENUIS_T03( INV_TEMP, 9.4600D-14, 4.3100D+02 ) ! Reaction Label R251 RKI( NCELL, 258) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.0000D-13, 4.6700D+02 ) ! Reaction Label R253 RKI( NCELL, 259) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.7100D-13, 7.0800D+02 ) ! Reaction Label R254 RKI( NCELL, 260) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.4600D-13, 7.0800D+02 ) ! Reaction Label R255 RKI( NCELL, 261) = CFACT * ARRHENUIS_T03( INV_TEMP, 9.1800D-14, 7.0800D+02 ) ! Reaction Label ROCARO35 RKI( NCELL, 262) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.5600D-14, 7.0800D+02 ) ! Reaction Label ROCARO45 RKI( NCELL, 263) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.5600D-14, 7.0800D+02 ) ! Reaction Label ROCARO55 RKI( NCELL, 264) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.5600D-14, 7.0800D+02 ) ! Reaction Label ROCARO65 RKI( NCELL, 265) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.5600D-14, 7.0800D+02 ) ! Reaction Label R264 RKI( NCELL, 266) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.4000D-14, 2.2100D+02 ) ! Reaction Label R265 RKI( NCELL, 267) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.5600D-14, 7.0800D+02 ) ! Reaction Label TRP29 RKI( NCELL, 268) = 1.0000D-10 * CFACT ! Reaction Label TRP30 RKI( NCELL, 269) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.5600D-14, 7.0800D+02 ) ! Reaction Label TRP31 RKI( NCELL, 270) = 1.0000D-10 * CFACT ! Reaction Label R266 RKI( NCELL, 271) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.5600D-14, 7.0800D+02 ) ! Reaction Label TRP32 RKI( NCELL, 272) = 1.0000D-10 * CFACT ! Reaction Label TRP33 RKI( NCELL, 273) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.5600D-14, 7.0800D+02 ) ! Reaction Label TRP34 RKI( NCELL, 274) = 1.0000D-10 * CFACT ! Reaction Label R267 RKI( NCELL, 275) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.0000D-11, 5.0000D+02 ) ! Reaction Label R268 RKI( NCELL, 276) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.0000D-11, 5.0000D+02 ) ! Reaction Label R269 RKI( NCELL, 277) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.5000D-13, 5.0000D+02 ) ! Reaction Label R270 RKI( NCELL, 278) = CFACT * ARRHENUIS_T03( INV_TEMP, 6.9100D-13, 5.0800D+02 ) ! Reaction Label R271 RKI( NCELL, 279) = CFACT * ARRHENUIS_T03( INV_TEMP, 6.9100D-13, 5.0800D+02 ) ! Reaction Label R272 RKI( NCELL, 280) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.4000D-14, 2.2100D+02 ) ! Reaction Label R273 RKI( NCELL, 281) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.4000D-14, 2.2100D+02 ) ! Reaction Label R274 RKI( NCELL, 282) = 8.3700D-14 * CFACT ! Reaction Label R275 RKI( NCELL, 283) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.4000D-14, 2.2100D+02 ) ! Reaction Label R276 RKI( NCELL, 284) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.5600D-14, 7.0800D+02 ) ! Reaction Label R277 RKI( NCELL, 285) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.5600D-14, 7.0800D+02 ) ! Reaction Label R278 RKI( NCELL, 286) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.5600D-14, 7.0800D+02 ) ! Reaction Label R279 RKI( NCELL, 287) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.5600D-14, 7.0800D+02 ) ! Reaction Label R280 RKI( NCELL, 288) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.5000D-13, 5.0000D+02 ) ! Reaction Label R281 RKI( NCELL, 289) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.6000D-13, 7.0800D+02 ) ! Reaction Label R282 RKI( NCELL, 290) = CFACT * ARRHENUIS_T03( INV_TEMP, 9.6800D-14, 7.0800D+02 ) ! Reaction Label R283 RKI( NCELL, 291) = 3.5600D-14 * CFACT ! Reaction Label R284 RKI( NCELL, 292) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.9900D-15, 1.5100D+03 ) ! Reaction Label R285 RKI( NCELL, 293) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.0300D-12, 2.1100D+02 ) ! Reaction Label R286 RKI( NCELL, 294) = CFACT * ARRHENUIS_T03( INV_TEMP, 6.9000D-13, 4.6000D+02 ) ! Reaction Label R287 RKI( NCELL, 295) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.5900D-13, 5.2200D+02 ) ! Reaction Label R289 RKI( NCELL, 296) = CFACT * ARRHENUIS_T03( INV_TEMP, 9.4800D-13, 7.6500D+02 ) ! Reaction Label R290 RKI( NCELL, 297) = CFACT * ARRHENUIS_T03( INV_TEMP, 8.1100D-13, 7.6500D+02 ) ! Reaction Label R291 RKI( NCELL, 298) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.0900D-13, 7.6500D+02 ) ! Reaction Label ROCARO36 RKI( NCELL, 299) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.4000D-13, 7.6500D+02 ) ! Reaction Label ROCARO46 RKI( NCELL, 300) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.4000D-13, 7.6500D+02 ) ! Reaction Label ROCARO56 RKI( NCELL, 301) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.4000D-13, 7.6500D+02 ) ! Reaction Label ROCARO66 RKI( NCELL, 302) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.4000D-13, 7.6500D+02 ) ! Reaction Label R300 RKI( NCELL, 303) = CFACT * ARRHENUIS_T03( INV_TEMP, 8.4000D-14, 2.2100D+02 ) ! Reaction Label R301 RKI( NCELL, 304) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.4000D-13, 7.6500D+02 ) ! Reaction Label TRP35 RKI( NCELL, 305) = 1.0000D-10 * CFACT ! Reaction Label TRP36 RKI( NCELL, 306) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.4000D-13, 7.6500D+02 ) ! Reaction Label TRP37 RKI( NCELL, 307) = 1.0000D-10 * CFACT ! Reaction Label R302 RKI( NCELL, 308) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.4000D-13, 7.6500D+02 ) ! Reaction Label TRP38 RKI( NCELL, 309) = 1.0000D-10 * CFACT ! Reaction Label TRP39 RKI( NCELL, 310) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.4000D-13, 7.6500D+02 ) ! Reaction Label TRP40 RKI( NCELL, 311) = 1.0000D-10 * CFACT ! Reaction Label R303 RKI( NCELL, 312) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.5000D-12, 5.0000D+02 ) ! Reaction Label R304 RKI( NCELL, 313) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.5000D-12, 5.0000D+02 ) ! Reaction Label R305 RKI( NCELL, 314) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.5100D-13, 5.6500D+02 ) ! Reaction Label R306 RKI( NCELL, 315) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.5100D-13, 5.6500D+02 ) ! Reaction Label R307 RKI( NCELL, 316) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.5100D-13, 5.6500D+02 ) ! Reaction Label R308 RKI( NCELL, 317) = CFACT * ARRHENUIS_T03( INV_TEMP, 8.4000D-14, 2.2100D+02 ) ! Reaction Label R309 RKI( NCELL, 318) = CFACT * ARRHENUIS_T03( INV_TEMP, 8.4000D-14, 2.2100D+02 ) ! Reaction Label R310 RKI( NCELL, 319) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.6800D-12, 5.0000D+02 ) ! Reaction Label R311 RKI( NCELL, 320) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.6800D-12, 5.0000D+02 ) ! Reaction Label R312 RKI( NCELL, 321) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.4000D-13, 7.6500D+02 ) ! Reaction Label R313 RKI( NCELL, 322) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.4000D-13, 7.6500D+02 ) ! Reaction Label R314 RKI( NCELL, 323) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.4000D-13, 7.0800D+02 ) ! Reaction Label R315 RKI( NCELL, 324) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.4000D-13, 7.0800D+02 ) ! Reaction Label R316 RKI( NCELL, 325) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.5100D-13, 5.6500D+02 ) ! Reaction Label R317 RKI( NCELL, 326) = CFACT * ARRHENUIS_T03( INV_TEMP, 8.8500D-13, 7.6500D+02 ) ! Reaction Label R318 RKI( NCELL, 327) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.3700D-13, 7.6500D+02 ) ! Reaction Label R319 RKI( NCELL, 328) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.4000D-13, 7.0800D+02 ) ! Reaction Label R320 RKI( NCELL, 329) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.4000D-14, 1.5600D+03 ) ! Reaction Label R321 RKI( NCELL, 330) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.5000D-12, 5.0000D+02 ) ! Reaction Label R322 RKI( NCELL, 331) = 1.2000D-12 * CFACT ! Reaction Label R323 RKI( NCELL, 332) = 1.2000D-12 * CFACT ! Reaction Label R324 RKI( NCELL, 333) = 1.2000D-12 * CFACT ! Reaction Label R325 RKI( NCELL, 334) = 1.2000D-12 * CFACT ! Reaction Label R327 RKI( NCELL, 335) = 1.2000D-12 * CFACT ! Reaction Label R328 RKI( NCELL, 336) = 1.2000D-12 * CFACT ! Reaction Label R329 RKI( NCELL, 337) = 1.2000D-12 * CFACT ! Reaction Label ROCARO34 RKI( NCELL, 338) = 2.3000D-12 * CFACT ! Reaction Label ROCARO44 RKI( NCELL, 339) = 2.3000D-12 * CFACT ! Reaction Label ROCARO54 RKI( NCELL, 340) = 2.3000D-12 * CFACT ! Reaction Label ROCARO64 RKI( NCELL, 341) = 2.3000D-12 * CFACT ! Reaction Label R338 RKI( NCELL, 342) = 1.2000D-12 * CFACT ! Reaction Label R339 RKI( NCELL, 343) = 1.2000D-12 * CFACT ! Reaction Label R340 RKI( NCELL, 344) = 1.2000D-12 * CFACT ! Reaction Label R341 RKI( NCELL, 345) = 4.0000D-12 * CFACT ! Reaction Label R342 RKI( NCELL, 346) = 4.0000D-12 * CFACT ! Reaction Label R343 RKI( NCELL, 347) = 1.2000D-12 * CFACT ! Reaction Label R344 RKI( NCELL, 348) = 1.2000D-12 * CFACT ! Reaction Label R345 RKI( NCELL, 349) = 1.2000D-12 * CFACT ! Reaction Label R346 RKI( NCELL, 350) = 1.2000D-12 * CFACT ! Reaction Label R347 RKI( NCELL, 351) = 1.2000D-12 * CFACT ! Reaction Label R348 RKI( NCELL, 352) = 2.5000D-12 * CFACT ! Reaction Label R349 RKI( NCELL, 353) = 2.5000D-12 * CFACT ! Reaction Label R350 RKI( NCELL, 354) = 2.5000D-12 * CFACT ! Reaction Label R351 RKI( NCELL, 355) = 2.5000D-12 * CFACT ! Reaction Label R352 RKI( NCELL, 356) = 1.2000D-12 * CFACT ! Reaction Label R353 RKI( NCELL, 357) = 1.2000D-12 * CFACT ! Reaction Label R354 RKI( NCELL, 358) = 1.2000D-12 * CFACT ! Reaction Label R355 RKI( NCELL, 359) = 1.2000D-12 * CFACT ! Reaction Label R356 RKI( NCELL, 360) = 1.2000D-12 * CFACT ! Reaction Label R357 RKI( NCELL, 361) = 1.2000D-12 * CFACT ! Reaction Label R358 RKI( NCELL, 362) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.0000D-14, 1.0000D+03 ) ! Reaction Label R359 RKI( NCELL, 363) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.2500D-14, 1.0000D+03 ) ! Reaction Label R360 RKI( NCELL, 364) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.9600D-14, 1.0000D+03 ) ! Reaction Label R361 RKI( NCELL, 365) = 1.2000D-12 * CFACT ! Reaction Label R362 RKI( NCELL, 366) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.5000D-12, 5.0000D+02 ) ! Reaction Label R363 RKI( NCELL, 367) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.1300D-17, 2.9500D+03 ) ! Reaction Label TRP41 RKI( NCELL, 368) = 1.0000D-10 * CFACT ! Reaction Label TRP42 RKI( NCELL, 369) = 1.0000D-10 * CFACT ! Reaction Label TRP43 RKI( NCELL, 370) = 1.0000D-10 * CFACT ! Reaction Label TRP44 RKI( NCELL, 371) = 1.0000D-10 * CFACT ! Reaction Label TRP45 RKI( NCELL, 372) = 1.0000D-10 * CFACT ! Reaction Label TRP46 RKI( NCELL, 373) = 1.0000D-10 * CFACT ! Reaction Label TRP47 RKI( NCELL, 374) = 1.0000D-10 * CFACT ! Reaction Label TRP48 RKI( NCELL, 375) = 1.0000D-10 * CFACT ! Reaction Label TRP49 RKI( NCELL, 376) = 1.0000D-10 * CFACT ! Reaction Label TRP50 RKI( NCELL, 377) = 1.0000D-10 * CFACT ! Reaction Label TRP51 RKI( NCELL, 378) = 1.0000D-10 * CFACT ! Reaction Label TRP52 RKI( NCELL, 379) = 1.0000D-10 * CFACT ! Reaction Label SA14 RKI( NCELL, 380) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.7800D-11, -4.0000D+02 ) ! Reaction Label R001c RKI( NCELL, 381) = 6.8900D-12 * CFACT ! Reaction Label R002c RKI( NCELL, 382) = 6.5500D-14 * CFACT ! Reaction Label T17 RKI( NCELL, 383) = CFACT * ARRHENUIS_T03( INV_TEMP, 8.0000D-12, 3.8000D+02 ) ! Reaction Label T18 RKI( NCELL, 384) = 2.9000D-19 * CFACT ! Reaction Label T19 RKI( NCELL, 385) = 3.4000D-15 * CFACT ! Reaction Label T10 RKI( NCELL, 387) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.4800D-11, 4.4800D+02 ) ! Reaction Label T10a RKI( NCELL, 388) = 9.0500D-12 * CFACT ! Reaction Label T10b RKI( NCELL, 389) = 2.3000D-12 * CFACT ! Reaction Label T10c RKI( NCELL, 390) = 1.6100D-11 * CFACT ! Reaction Label T10d RKI( NCELL, 391) = 2.3900D-12 * CFACT ! Reaction Label T10e RKI( NCELL, 392) = 1.3700D-11 * CFACT ! Reaction Label T11 RKI( NCELL, 393) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.3400D-14, -2.2830D+03 ) ! Reaction Label T12 RKI( NCELL, 394) = 1.0000D-13 * CFACT ! Reaction Label R003c RKI( NCELL, 395) = 5.0100D-11 * CFACT ! Reaction Label R004c RKI( NCELL, 396) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label R005c RKI( NCELL, 397) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.7500D-13, 9.8000D+02 ) ! Reaction Label R006c RKI( NCELL, 398) = 4.4000D-11 * CFACT ! Reaction Label R007c RKI( NCELL, 399) = 3.4300D-17 * CFACT ! Reaction Label R008c RKI( NCELL, 400) = 8.9900D-12 * CFACT ! Reaction Label R010c RKI( NCELL, 401) = 1.2000D-11 * CFACT ! Reaction Label R011c RKI( NCELL, 402) = 1.9000D-11 * CFACT ! Reaction Label R012c RKI( NCELL, 403) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.8400D-13, 1.3000D+03 ) ! Reaction Label R013c RKI( NCELL, 404) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label R014c RKI( NCELL, 405) = 2.3000D-12 * CFACT ! Reaction Label R015c RKI( NCELL, 406) = 1.2000D-14 * CFACT ! Reaction Label R016c RKI( NCELL, 407) = 1.9700D-10 * CFACT ! Reaction Label R017c RKI( NCELL, 408) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.8400D-13, 1.3000D+03 ) ! Reaction Label R019c RKI( NCELL, 409) = 2.3000D-12 * CFACT ! Reaction Label R020c RKI( NCELL, 410) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label HET_GLY RKI( NCELL, 411) = BLKHET( NCELL, IK_HETERO_GLY ) ! Reaction Label HET_MGLY RKI( NCELL, 412) = BLKHET( NCELL, IK_HETERO_MGLY ) ! Reaction Label HET_N2O5 RKI( NCELL, 413) = BLKHET( NCELL, IK_HETERO_N2O5IJ ) ! Reaction Label HET_N02 RKI( NCELL, 414) = BLKHET( NCELL, IK_HETERO_NO2 ) ! Reaction Label HET_IEPOX RKI( NCELL, 416) = BLKHET( NCELL, IK_HETERO_IEPOX ) ! Reaction Label HET_ISO3TET RKI( NCELL, 417) = BLKHET( NCELL, IK_HETERO_ISO3NOSJ ) ! Reaction Label HET_IEPOXOS RKI( NCELL, 418) = BLKHET( NCELL, IK_HETERO_ISO3OSJ ) ! Reaction Label ROCALK1c RKI( NCELL, 419) = 1.5300D-11 * CFACT ! Reaction Label ROCALK2c RKI( NCELL, 420) = 1.6800D-11 * CFACT ! Reaction Label ROCALK3c RKI( NCELL, 421) = 2.2400D-11 * CFACT ! Reaction Label ROCALK4c RKI( NCELL, 422) = 2.6700D-11 * CFACT ! Reaction Label ROCALK5c RKI( NCELL, 423) = 3.0900D-11 * CFACT ! Reaction Label ROCALK6c RKI( NCELL, 424) = 3.3800D-11 * CFACT ! Reaction Label HC1001 RKI( NCELL, 425) = 1.1000D-11 * CFACT ! Reaction Label ROCALK7c RKI( NCELL, 426) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label ROCALK8c RKI( NCELL, 427) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label ROCALK9c RKI( NCELL, 428) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label ROCALK10c RKI( NCELL, 429) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label ROCALK11c RKI( NCELL, 430) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label ROCALK12c RKI( NCELL, 431) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label HC1002 RKI( NCELL, 432) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label ROCALK13c RKI( NCELL, 433) = 2.3000D-12 * CFACT ! Reaction Label ROCALK14c RKI( NCELL, 434) = 2.3000D-12 * CFACT ! Reaction Label ROCALK15c RKI( NCELL, 435) = 2.3000D-12 * CFACT ! Reaction Label ROCALK16c RKI( NCELL, 436) = 2.3000D-12 * CFACT ! Reaction Label ROCALK17c RKI( NCELL, 437) = 2.3000D-12 * CFACT ! Reaction Label ROCALK18c RKI( NCELL, 438) = 2.3000D-12 * CFACT ! Reaction Label HC1003 RKI( NCELL, 439) = 2.3000D-12 * CFACT ! Reaction Label ROCALK19c RKI( NCELL, 440) = 2.1700D-11 * CFACT ! Reaction Label ROCALK20c RKI( NCELL, 441) = 2.2000D-11 * CFACT ! Reaction Label ROCALK21c RKI( NCELL, 442) = 2.2500D-11 * CFACT ! Reaction Label ROCALK22c RKI( NCELL, 443) = 2.2600D-11 * CFACT ! Reaction Label ROCALK23c RKI( NCELL, 444) = 2.2700D-11 * CFACT ! Reaction Label ROCALK24c RKI( NCELL, 445) = 2.2700D-11 * CFACT ! Reaction Label HC1004 RKI( NCELL, 446) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.6600D-13, 1.3000D+03 ) ! Reaction Label ROCALK25c RKI( NCELL, 447) = 1.8800D-01 * SFACT ! Reaction Label ROCALK26c RKI( NCELL, 448) = 1.8800D-01 * SFACT ! Reaction Label ROCALK27c RKI( NCELL, 449) = 1.8800D-01 * SFACT ! Reaction Label ROCALK28c RKI( NCELL, 450) = 1.8800D-01 * SFACT ! Reaction Label ROCALK29c RKI( NCELL, 451) = 1.8800D-01 * SFACT ! Reaction Label ROCALK30c RKI( NCELL, 452) = 1.8800D-01 * SFACT ! Reaction Label HC1005 RKI( NCELL, 453) = 1.8800D-01 * SFACT ! Reaction Label ROCALK31c RKI( NCELL, 454) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label ROCALK32c RKI( NCELL, 455) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label ROCALK33c RKI( NCELL, 456) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label ROCALK34c RKI( NCELL, 457) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label ROCALK35c RKI( NCELL, 458) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label ROCALK36c RKI( NCELL, 459) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label HC1006 RKI( NCELL, 460) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label ROCALK37c RKI( NCELL, 461) = 2.3000D-12 * CFACT ! Reaction Label ROCALK38c RKI( NCELL, 462) = 2.3000D-12 * CFACT ! Reaction Label ROCALK39c RKI( NCELL, 463) = 2.3000D-12 * CFACT ! Reaction Label ROCALK40c RKI( NCELL, 464) = 2.3000D-12 * CFACT ! Reaction Label ROCALK41c RKI( NCELL, 465) = 2.3000D-12 * CFACT ! Reaction Label ROCALK42c RKI( NCELL, 466) = 2.3000D-12 * CFACT ! Reaction Label HC1007 RKI( NCELL, 467) = 2.3000D-12 * CFACT ! Reaction Label ROCALK43c RKI( NCELL, 468) = 2.1700D-11 * CFACT ! Reaction Label ROCALK44c RKI( NCELL, 469) = 2.2000D-11 * CFACT ! Reaction Label ROCALK45c RKI( NCELL, 470) = 2.2500D-11 * CFACT ! Reaction Label ROCALK46c RKI( NCELL, 471) = 2.2600D-11 * CFACT ! Reaction Label ROCALK47c RKI( NCELL, 472) = 2.2700D-11 * CFACT ! Reaction Label ROCALK48c RKI( NCELL, 473) = 2.2700D-11 * CFACT ! Reaction Label HC1008 RKI( NCELL, 474) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.6600D-13, 1.3000D+03 ) ! Reaction Label ROCARO01 RKI( NCELL, 475) = 1.8100D-11 * CFACT ! Reaction Label ROCARO02 RKI( NCELL, 476) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.9100D-13, 1.3000D+03 ) ! Reaction Label ROCARO03 RKI( NCELL, 477) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label ROCARO04 RKI( NCELL, 478) = 2.3000D-12 * CFACT ! Reaction Label ROCARO05 RKI( NCELL, 479) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.5600D-14, 7.0800D+02 ) ! Reaction Label ROCARO06 RKI( NCELL, 480) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.4000D-13, 7.6500D+02 ) ! Reaction Label ROCARO11 RKI( NCELL, 481) = 1.8100D-11 * CFACT ! Reaction Label ROCARO12 RKI( NCELL, 482) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.9100D-13, 1.3000D+03 ) ! Reaction Label ROCARO13 RKI( NCELL, 483) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label ROCARO14 RKI( NCELL, 484) = 2.3000D-12 * CFACT ! Reaction Label ROCARO15 RKI( NCELL, 485) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.5600D-14, 7.0800D+02 ) ! Reaction Label ROCARO16 RKI( NCELL, 486) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.4000D-13, 7.6500D+02 ) ! Reaction Label ROCARO21 RKI( NCELL, 487) = 2.3100D-11 * CFACT ! Reaction Label ROCARO22 RKI( NCELL, 488) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.9100D-13, 1.3000D+03 ) ! Reaction Label ROCARO23 RKI( NCELL, 489) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label ROCARO24 RKI( NCELL, 490) = 2.3000D-12 * CFACT ! Reaction Label ROCARO25 RKI( NCELL, 491) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.5600D-14, 7.0800D+02 ) ! Reaction Label ROCARO26 RKI( NCELL, 492) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.4000D-13, 7.6500D+02 ) ! Reaction Label ROCOXY1c RKI( NCELL, 493) = 5.9000D-11 * CFACT ! Reaction Label ROCOXY2c RKI( NCELL, 494) = 6.0700D-11 * CFACT ! Reaction Label ROCOXY3c RKI( NCELL, 495) = 5.5400D-11 * CFACT ! Reaction Label ROCOXY4c RKI( NCELL, 496) = 5.6300D-11 * CFACT ! Reaction Label ROCOXY5c RKI( NCELL, 497) = 5.4600D-11 * CFACT ! Reaction Label ROCOXY6c RKI( NCELL, 498) = 4.5000D-11 * CFACT ! Reaction Label ROCOXY7c RKI( NCELL, 499) = 5.1700D-11 * CFACT ! Reaction Label ROCOXY8c RKI( NCELL, 500) = 4.7300D-11 * CFACT ! Reaction Label ROCOXY9c RKI( NCELL, 501) = 4.6000D-11 * CFACT ! Reaction Label ROCOXY10c RKI( NCELL, 502) = 3.8000D-11 * CFACT ! Reaction Label ROCOXY11c RKI( NCELL, 503) = 3.9300D-11 * CFACT ! Reaction Label ROCOXY12c RKI( NCELL, 504) = 3.5200D-11 * CFACT ! Reaction Label ROCOXY13c RKI( NCELL, 505) = 3.1200D-11 * CFACT ! Reaction Label ROCOXY14c RKI( NCELL, 506) = 2.4000D-11 * CFACT ! Reaction Label ROCOXY15c RKI( NCELL, 507) = 2.0500D-11 * CFACT ! Reaction Label ROCOXY16c RKI( NCELL, 508) = 4.6900D-11 * CFACT END DO ! Multiply rate constants by [M], [O2], [N2], [H2O], [H2], or [CH4] ! where needed and return IF ( NWM .GT. 0 ) THEN DO NRT = 1, NWM IRXN = NRXWM( NRT ) DO NCELL = 1, NUMCELLS RKI( NCELL,IRXN ) = RKI( NCELL,IRXN ) * ATM_AIR END DO END DO END IF IF ( NWO2 .GT. 0 ) THEN DO NRT = 1, NWO2 IRXN = NRXWO2( NRT ) DO NCELL = 1, NUMCELLS RKI( NCELL,IRXN ) = RKI( NCELL,IRXN ) * ATM_O2 END DO END DO END IF IF ( NWN2 .GT. 0 ) THEN DO NRT = 1, NWN2 IRXN = NRXWN2( NRT ) DO NCELL = 1, NUMCELLS RKI( NCELL,IRXN ) = RKI( NCELL,IRXN ) * ATM_N2 END DO END DO END IF IF ( NWW .GT. 0 ) THEN DO NRT = 1, NWW IRXN = NRXWW( NRT ) DO NCELL = 1, NUMCELLS RKI( NCELL,IRXN ) = RKI( NCELL,IRXN ) * BLKH2O( NCELL ) END DO END DO END IF IF ( NWH2 .GT. 0 ) THEN DO NRT = 1, NWH2 IRXN = NRXWH2( NRT ) DO NCELL = 1, NUMCELLS RKI( NCELL,IRXN ) = RKI( NCELL,IRXN ) * ATM_H2 END DO END DO END IF IF ( NWCH4 .GT. 0 ) THEN DO NRT = 1, NWCH4 IRXN = NRXWCH4( NRT ) DO NCELL = 1, NUMCELLS RKI( NCELL,IRXN ) = RKI( NCELL,IRXN ) * ATM_CH4 END DO END DO END IF RETURN END SUBROUTINE CALC_RCONST FUNCTION MAP_CHEMISTRY_SPECIES() RESULT ( SUCCESS ) ! Purpose find or test the CGRID Index, Species Type, and Conversion Factor ! for the Mechanism against the CMAQ namelists USE UTILIO_DEFN USE CGRID_SPCS USE RXNS_DATA IMPLICIT NONE !Parameters: CHARACTER( 1 ), PARAMETER :: BL = ' ' INTEGER, PARAMETER :: SPC_DIM = 200 !Local: LOGICAL SUCCESS INTEGER I, IOS, J INTEGER I1, I2, I3, I4 ! SURROGATE TYPE 1 COUNTERS INTEGER J1, J2 ! SURROGATE TYPE 2 COUNTERS INTEGER K1, K2, K3, K4, K5 ! CONTROL TYPE COUNTERS INTEGER ICALL LOGICAL :: ORDER = .TRUE. LOGICAL :: FOUND = .TRUE. CHARACTER( 120 ) :: XMSG CHARACTER( 16 ), ALLOCATABLE :: CGRID_SPC ( : ) CHARACTER( 16 ), ALLOCATABLE :: NML_SPC ( : ) CHARACTER( 2 ), ALLOCATABLE :: NML_TYPE ( : ) INTEGER, ALLOCATABLE :: NML_INDEX ( : ) LOGICAL, ALLOCATABLE :: NML_CONVERT( : ) REAL, ALLOCATABLE :: NML_MOLWT ( : ) REAL :: DELTA ! fractional difference LOGICAL, SAVE :: INITIALIZED = .FALSE. IF( INITIALIZED )RETURN INITIALIZED = .TRUE. SUCCESS = .TRUE. ALLOCATE ( CGRID_SPC( NSPCSD - 1 ), & & NML_SPC ( NSPCSD - 1 ), & & NML_INDEX( NSPCSD - 1 ), & & NML_TYPE( NSPCSD - 1 ), & & NML_CONVERT( NSPCSD - 1 ), & & NML_MOLWT( NSPCSD - 1 ), & & STAT = IOS ) J = 0 NML_INDEX = -1 TYPE_INDEX = -1 NML_TYPE = '??' NML_CONVERT = .FALSE. DO I = 1, N_GC_SPC ! load gc names and indices J = J + 1 CGRID_SPC( I ) = GC_SPC( I ) NML_INDEX( J ) = I + GC_STRT -1 NML_TYPE( J ) = 'GC' NML_MOLWT( J ) = GC_MOLWT( I ) END DO DO I = 1, N_AE_SPC ! load ae names and indices J = J + 1 CGRID_SPC( J ) = AE_SPC( I ) NML_INDEX( J ) = I + AE_STRT - 1 NML_TYPE( J ) = 'AE' NML_CONVERT( J ) = .TRUE. NML_MOLWT( J ) = AE_MOLWT( I ) END DO DO I = 1, N_NR_SPC ! load nr names and indices J = J + 1 CGRID_SPC( J ) = NR_SPC( I ) NML_INDEX( J ) = I + NR_STRT - 1 NML_TYPE( J ) = 'NR' NML_MOLWT( J ) = NR_MOLWT( I ) END DO DO I = 1, N_TR_SPC ! load tr names and indices J = J + 1 CGRID_SPC( J ) = TR_SPC( I ) NML_INDEX( J ) = I + TR_STRT - 1 NML_TYPE( J ) = 'TR' NML_MOLWT( J ) = TR_MOLWT( I ) END DO NML_SPC( 1:(NSPCSD-1) ) = CGRID_SPC( 1:(NSPCSD-1) ) ! determine if mechanism species are in cgrid species DO I = 1, NUMB_MECH_SPC ! set species informations arrays using SPECIES_LIST array before mapping CHEMISTRY_SPC( I ) = SPECIES_LIST( I )%CHEMISTRY_SPC CGRID_INDEX ( I ) = SPECIES_LIST( I )%CGRID_INDEX SPECIES_TYPE ( I ) = SPECIES_LIST( I )%SPECIES_TYPE CONVERT_CONC ( I ) = SPECIES_LIST( I )%CONVERT_CONC SPECIES_MOLWT( I ) = SPECIES_LIST( I )%SPECIES_MOLWT I1 = INDEX1R( CHEMISTRY_SPC( I ), (NSPCSD-1), CGRID_SPC ) IF ( I1 .LT. 1 ) THEN FOUND = .FALSE. ELSE FOUND = .TRUE. IF( .NOT. MAPPED_TO_CGRID )THEN CGRID_INDEX( I ) = NML_INDEX( I1 ) SPECIES_TYPE( I ) = NML_TYPE ( I1 ) SPECIES_MOLWT( I ) = NML_MOLWT( I1 ) CONVERT_CONC( I ) = NML_CONVERT( I1 ) ELSE IF(CGRID_INDEX( I ) .NE. NML_INDEX( I1 ))THEN SUCCESS = .FALSE. XMSG = '*** For Species ' // TRIM( CHEMISTRY_SPC( I ) ) & & // ' cgrid index does not match mechanism value.' WRITE( LOGDEV,'( /5X, A )' ) TRIM( XMSG ) WRITE( XMSG,'(A,I3,1X,I3)')'CGRID Indices: Mechanism and NML Values are ', & & CGRID_INDEX( I ),NML_INDEX( I1 ) WRITE( LOGDEV,'( 5X, A )' )XMSG END IF IF(CONVERT_CONC( I ) .NEQV. NML_CONVERT( I1 ))THEN SUCCESS = .FALSE. XMSG = '*** For Species ' // TRIM( CHEMISTRY_SPC( I ) ) & & // ' species unit conversion flag does not match mechanism value.' WRITE( LOGDEV,'( /5X, A )' ) TRIM( XMSG ) WRITE( XMSG,'(A,1X,L21X,L2)')'CONVERSION FLAGS: Mechanism and NML Values are ', & & CONVERT_CONC( I ),NML_CONVERT( I1 ) WRITE( LOGDEV,'( 5X, A )' )XMSG WRITE( XMSG,'(A,1X,A3,1X,A3)')'SPECIES TYPE: Mechanism and NML Values are ', & & SPECIES_TYPE( I ),NML_TYPE( I1 ) WRITE( LOGDEV,'( 5X, A )' )XMSG END IF DELTA = ( SPECIES_MOLWT( I ) - NML_MOLWT( I1 ) )/MAX(NML_MOLWT( I1 ),1.0E-20) IF( ABS( DELTA ) .GE. 0.05 )THEN IF( CONVERT_CONC( I ) )SUCCESS = .FALSE. XMSG = '*** For Species ' // TRIM( CHEMISTRY_SPC( I ) ) & & // ' species molecular weight does not match mechanism value.' WRITE( LOGDEV,'( /5X, A )' ) TRIM( XMSG ) WRITE( XMSG,'(A,2(ES12.4,1X))')'Molecular Weight: Mechanism and NML Values are ', & & SPECIES_MOLWT( I ), NML_MOLWT( I1 ) WRITE( LOGDEV,'( 5X, A )' )XMSG END IF END IF END IF IF( INDEX( CHEMISTRY_SPC( I ), 'SRF') .GT. 0 )THEN SUCCESS = .FALSE. XMSG = '*** reactions cannot use modal aerosol surface area as species' WRITE( LOGDEV,'( /5X, A )' ) TRIM( XMSG ) XMSG = TRIM( CHEMISTRY_SPC( I ) ) WRITE( LOGDEV,'( 2X, A )' ) TRIM( XMSG ) END IF IF( INDEX( CHEMISTRY_SPC( I ), 'NUM') .GT. 0 )THEN SUCCESS = .FALSE. XMSG = '*** reactions cannot use modal aerosol number density as species' WRITE( LOGDEV,'( /5X, A )' ) TRIM( XMSG ) XMSG = TRIM( CHEMISTRY_SPC( I ) ) WRITE( LOGDEV,'( 2X, A )' ) TRIM( XMSG ) END IF IF ( .NOT. FOUND ) THEN XMSG = 'Fatal error: Mechanism Species found not in species namelist:' WRITE( LOGDEV,'( /5X, A )', ADVANCE = 'NO' ) TRIM( XMSG ) XMSG = TRIM( CHEMISTRY_SPC( I ) ) WRITE( LOGDEV,'( 2X, A )' ) TRIM( XMSG ) SUCCESS = .FALSE. END IF END DO IF( SUCCESS )RETURN WRITE(LOGDEV,99901)TRIM( MECHNAME ) XMSG = 'The FATAL errors found in namelist used. Check ' & & // 'the log of exiting processor if more details are needed.' CALL M3WARN('MAP_CHEMISTRY_SPECIES',0,0,XMSG) 99901 FORMAT( / 'FATAL error(s) found in the namelists used. Check that ' & & / 'these namelists contain the above data as the respective files ' & & / 'in the respository version of the mechanism: ' , A ) RETURN END FUNCTION MAP_CHEMISTRY_SPECIES !---------------------------------------------------------------------------------------- INTEGER FUNCTION INDEX1R ( NAME, N, NLIST ) IMPLICIT NONE CHARACTER( * ) NAME ! character string being searched for INTEGER N ! length of array to be searched CHARACTER( * ) NLIST( : ) ! array to be searched INTEGER I DO I = 1, N IF ( NAME .EQ. NLIST( I ) ) THEN INDEX1R = I RETURN END IF END DO INDEX1R = 0 RETURN END FUNCTION INDEX1R SUBROUTINE RESET_SPECIES_POINTERS( IOLD2NEW ) USE RXNS_DATA IMPLICIT NONE INTEGER, INTENT( IN ) :: IOLD2NEW( :,: ) INDEX_O3 = IOLD2NEW( INDEX_O3 , 1 ) INDEX_O3P = IOLD2NEW( INDEX_O3P , 1 ) INDEX_O1D = IOLD2NEW( INDEX_O1D , 1 ) INDEX_H2O2 = IOLD2NEW( INDEX_H2O2 , 1 ) INDEX_HO = IOLD2NEW( INDEX_HO , 1 ) INDEX_NO2 = IOLD2NEW( INDEX_NO2 , 1 ) INDEX_NO = IOLD2NEW( INDEX_NO , 1 ) INDEX_NO3 = IOLD2NEW( INDEX_NO3 , 1 ) INDEX_HONO = IOLD2NEW( INDEX_HONO , 1 ) INDEX_HNO3 = IOLD2NEW( INDEX_HNO3 , 1 ) INDEX_HNO4 = IOLD2NEW( INDEX_HNO4 , 1 ) INDEX_HO2 = IOLD2NEW( INDEX_HO2 , 1 ) INDEX_HCHO = IOLD2NEW( INDEX_HCHO , 1 ) INDEX_CO = IOLD2NEW( INDEX_CO , 1 ) INDEX_ACD = IOLD2NEW( INDEX_ACD , 1 ) INDEX_MO2 = IOLD2NEW( INDEX_MO2 , 1 ) INDEX_ALD = IOLD2NEW( INDEX_ALD , 1 ) INDEX_ETHP = IOLD2NEW( INDEX_ETHP , 1 ) INDEX_ACT = IOLD2NEW( INDEX_ACT , 1 ) INDEX_ACO3 = IOLD2NEW( INDEX_ACO3 , 1 ) INDEX_UALD = IOLD2NEW( INDEX_UALD , 1 ) INDEX_KET = IOLD2NEW( INDEX_KET , 1 ) INDEX_PINAL = IOLD2NEW( INDEX_PINAL , 1 ) INDEX_HC10P = IOLD2NEW( INDEX_HC10P , 1 ) INDEX_LIMAL = IOLD2NEW( INDEX_LIMAL , 1 ) INDEX_MEK = IOLD2NEW( INDEX_MEK , 1 ) INDEX_HKET = IOLD2NEW( INDEX_HKET , 1 ) INDEX_MACR = IOLD2NEW( INDEX_MACR , 1 ) INDEX_MACP = IOLD2NEW( INDEX_MACP , 1 ) INDEX_XO2 = IOLD2NEW( INDEX_XO2 , 1 ) INDEX_MVK = IOLD2NEW( INDEX_MVK , 1 ) INDEX_GLY = IOLD2NEW( INDEX_GLY , 1 ) INDEX_MGLY = IOLD2NEW( INDEX_MGLY , 1 ) INDEX_DCB1 = IOLD2NEW( INDEX_DCB1 , 1 ) INDEX_DCB2 = IOLD2NEW( INDEX_DCB2 , 1 ) INDEX_BALD = IOLD2NEW( INDEX_BALD , 1 ) INDEX_CHO = IOLD2NEW( INDEX_CHO , 1 ) INDEX_OP1 = IOLD2NEW( INDEX_OP1 , 1 ) INDEX_OP2 = IOLD2NEW( INDEX_OP2 , 1 ) INDEX_OPB = IOLD2NEW( INDEX_OPB , 1 ) INDEX_OP3 = IOLD2NEW( INDEX_OP3 , 1 ) INDEX_PAA = IOLD2NEW( INDEX_PAA , 1 ) INDEX_ONIT = IOLD2NEW( INDEX_ONIT , 1 ) INDEX_PAN = IOLD2NEW( INDEX_PAN , 1 ) INDEX_N2O5 = IOLD2NEW( INDEX_N2O5 , 1 ) INDEX_SO2 = IOLD2NEW( INDEX_SO2 , 1 ) INDEX_SULF = IOLD2NEW( INDEX_SULF , 1 ) INDEX_SULRXN = IOLD2NEW( INDEX_SULRXN , 1 ) INDEX_ETH = IOLD2NEW( INDEX_ETH , 1 ) INDEX_HC3 = IOLD2NEW( INDEX_HC3 , 1 ) INDEX_HC3P = IOLD2NEW( INDEX_HC3P , 1 ) INDEX_ASOATJ = IOLD2NEW( INDEX_ASOATJ , 1 ) INDEX_HC5 = IOLD2NEW( INDEX_HC5 , 1 ) INDEX_HC5P = IOLD2NEW( INDEX_HC5P , 1 ) INDEX_ETE = IOLD2NEW( INDEX_ETE , 1 ) INDEX_ETEP = IOLD2NEW( INDEX_ETEP , 1 ) INDEX_OLT = IOLD2NEW( INDEX_OLT , 1 ) INDEX_OLTP = IOLD2NEW( INDEX_OLTP , 1 ) INDEX_OLI = IOLD2NEW( INDEX_OLI , 1 ) INDEX_OLIP = IOLD2NEW( INDEX_OLIP , 1 ) INDEX_ACE = IOLD2NEW( INDEX_ACE , 1 ) INDEX_ORA1 = IOLD2NEW( INDEX_ORA1 , 1 ) INDEX_BEN = IOLD2NEW( INDEX_BEN , 1 ) INDEX_BENP = IOLD2NEW( INDEX_BENP , 1 ) INDEX_PHEN = IOLD2NEW( INDEX_PHEN , 1 ) INDEX_TOL = IOLD2NEW( INDEX_TOL , 1 ) INDEX_TOLP = IOLD2NEW( INDEX_TOLP , 1 ) INDEX_CSL = IOLD2NEW( INDEX_CSL , 1 ) INDEX_XYM = IOLD2NEW( INDEX_XYM , 1 ) INDEX_XYMP = IOLD2NEW( INDEX_XYMP , 1 ) INDEX_XYE = IOLD2NEW( INDEX_XYE , 1 ) INDEX_XYEP = IOLD2NEW( INDEX_XYEP , 1 ) INDEX_ISO = IOLD2NEW( INDEX_ISO , 1 ) INDEX_ISOP = IOLD2NEW( INDEX_ISOP , 1 ) INDEX_API = IOLD2NEW( INDEX_API , 1 ) INDEX_APIP1 = IOLD2NEW( INDEX_APIP1 , 1 ) INDEX_APIP2 = IOLD2NEW( INDEX_APIP2 , 1 ) INDEX_LIM = IOLD2NEW( INDEX_LIM , 1 ) INDEX_LIMP1 = IOLD2NEW( INDEX_LIMP1 , 1 ) INDEX_LIMP2 = IOLD2NEW( INDEX_LIMP2 , 1 ) INDEX_PINALP = IOLD2NEW( INDEX_PINALP , 1 ) INDEX_RCO3 = IOLD2NEW( INDEX_RCO3 , 1 ) INDEX_LIMALP = IOLD2NEW( INDEX_LIMALP , 1 ) INDEX_ACTP = IOLD2NEW( INDEX_ACTP , 1 ) INDEX_MEKP = IOLD2NEW( INDEX_MEKP , 1 ) INDEX_KETP = IOLD2NEW( INDEX_KETP , 1 ) INDEX_MCP = IOLD2NEW( INDEX_MCP , 1 ) INDEX_MVKP = IOLD2NEW( INDEX_MVKP , 1 ) INDEX_UALP = IOLD2NEW( INDEX_UALP , 1 ) INDEX_DCB3 = IOLD2NEW( INDEX_DCB3 , 1 ) INDEX_BALP = IOLD2NEW( INDEX_BALP , 1 ) INDEX_ADDC = IOLD2NEW( INDEX_ADDC , 1 ) INDEX_MCT = IOLD2NEW( INDEX_MCT , 1 ) INDEX_MCTO = IOLD2NEW( INDEX_MCTO , 1 ) INDEX_MOH = IOLD2NEW( INDEX_MOH , 1 ) INDEX_EOH = IOLD2NEW( INDEX_EOH , 1 ) INDEX_ROH = IOLD2NEW( INDEX_ROH , 1 ) INDEX_ETEG = IOLD2NEW( INDEX_ETEG , 1 ) INDEX_ISHP = IOLD2NEW( INDEX_ISHP , 1 ) INDEX_IEPOX = IOLD2NEW( INDEX_IEPOX , 1 ) INDEX_MAHP = IOLD2NEW( INDEX_MAHP , 1 ) INDEX_ORA2 = IOLD2NEW( INDEX_ORA2 , 1 ) INDEX_ORAP = IOLD2NEW( INDEX_ORAP , 1 ) INDEX_PPN = IOLD2NEW( INDEX_PPN , 1 ) INDEX_MPAN = IOLD2NEW( INDEX_MPAN , 1 ) INDEX_TRPN = IOLD2NEW( INDEX_TRPN , 1 ) INDEX_HOM = IOLD2NEW( INDEX_HOM , 1 ) INDEX_NALD = IOLD2NEW( INDEX_NALD , 1 ) INDEX_ISON = IOLD2NEW( INDEX_ISON , 1 ) INDEX_MCTP = IOLD2NEW( INDEX_MCTP , 1 ) INDEX_OLNN = IOLD2NEW( INDEX_OLNN , 1 ) INDEX_OLND = IOLD2NEW( INDEX_OLND , 1 ) INDEX_APINP1 = IOLD2NEW( INDEX_APINP1 , 1 ) INDEX_APINP2 = IOLD2NEW( INDEX_APINP2 , 1 ) INDEX_LIMNP1 = IOLD2NEW( INDEX_LIMNP1 , 1 ) INDEX_LIMNP2 = IOLD2NEW( INDEX_LIMNP2 , 1 ) INDEX_ADCN = IOLD2NEW( INDEX_ADCN , 1 ) INDEX_VROCP4OXY2 = IOLD2NEW( INDEX_VROCP4OXY2 , 1 ) INDEX_VROCN1OXY6 = IOLD2NEW( INDEX_VROCN1OXY6 , 1 ) INDEX_FURANONE = IOLD2NEW( INDEX_FURANONE , 1 ) INDEX_VROCP3OXY2 = IOLD2NEW( INDEX_VROCP3OXY2 , 1 ) INDEX_VROCP0OXY4 = IOLD2NEW( INDEX_VROCP0OXY4 , 1 ) INDEX_BAL1 = IOLD2NEW( INDEX_BAL1 , 1 ) INDEX_BAL2 = IOLD2NEW( INDEX_BAL2 , 1 ) INDEX_ELHOM = IOLD2NEW( INDEX_ELHOM , 1 ) INDEX_VROCIOXY = IOLD2NEW( INDEX_VROCIOXY , 1 ) INDEX_SLOWROC = IOLD2NEW( INDEX_SLOWROC , 1 ) INDEX_ACRO = IOLD2NEW( INDEX_ACRO , 1 ) INDEX_BDE13 = IOLD2NEW( INDEX_BDE13 , 1 ) INDEX_BDE13P = IOLD2NEW( INDEX_BDE13P , 1 ) INDEX_FURAN = IOLD2NEW( INDEX_FURAN , 1 ) INDEX_FURANO2 = IOLD2NEW( INDEX_FURANO2 , 1 ) INDEX_PROG = IOLD2NEW( INDEX_PROG , 1 ) INDEX_SESQ = IOLD2NEW( INDEX_SESQ , 1 ) INDEX_SESQNRO2 = IOLD2NEW( INDEX_SESQNRO2 , 1 ) INDEX_VROCN2OXY2 = IOLD2NEW( INDEX_VROCN2OXY2 , 1 ) INDEX_SESQRO2 = IOLD2NEW( INDEX_SESQRO2 , 1 ) INDEX_VROCP0OXY2 = IOLD2NEW( INDEX_VROCP0OXY2 , 1 ) INDEX_VROCP1OXY3 = IOLD2NEW( INDEX_VROCP1OXY3 , 1 ) INDEX_AGLYJ = IOLD2NEW( INDEX_AGLYJ , 1 ) INDEX_IEPOXP = IOLD2NEW( INDEX_IEPOXP , 1 ) INDEX_AISO3NOSJ = IOLD2NEW( INDEX_AISO3NOSJ , 1 ) INDEX_ASO4J = IOLD2NEW( INDEX_ASO4J , 1 ) INDEX_AISO3OSJ = IOLD2NEW( INDEX_AISO3OSJ , 1 ) INDEX_VROCP6ALK = IOLD2NEW( INDEX_VROCP6ALK , 1 ) INDEX_VROCP6ALKP = IOLD2NEW( INDEX_VROCP6ALKP , 1 ) INDEX_VROCP5ALK = IOLD2NEW( INDEX_VROCP5ALK , 1 ) INDEX_VROCP5ALKP = IOLD2NEW( INDEX_VROCP5ALKP , 1 ) INDEX_VROCP4ALK = IOLD2NEW( INDEX_VROCP4ALK , 1 ) INDEX_VROCP4ALKP = IOLD2NEW( INDEX_VROCP4ALKP , 1 ) INDEX_VROCP3ALK = IOLD2NEW( INDEX_VROCP3ALK , 1 ) INDEX_VROCP3ALKP = IOLD2NEW( INDEX_VROCP3ALKP , 1 ) INDEX_VROCP2ALK = IOLD2NEW( INDEX_VROCP2ALK , 1 ) INDEX_VROCP2ALKP = IOLD2NEW( INDEX_VROCP2ALKP , 1 ) INDEX_VROCP1ALK = IOLD2NEW( INDEX_VROCP1ALK , 1 ) INDEX_VROCP1ALKP = IOLD2NEW( INDEX_VROCP1ALKP , 1 ) INDEX_HC10 = IOLD2NEW( INDEX_HC10 , 1 ) INDEX_VROCP6ALKP2 = IOLD2NEW( INDEX_VROCP6ALKP2, 1 ) INDEX_VROCP5ALKP2 = IOLD2NEW( INDEX_VROCP5ALKP2, 1 ) INDEX_VROCP4ALKP2 = IOLD2NEW( INDEX_VROCP4ALKP2, 1 ) INDEX_VROCP2OXY2 = IOLD2NEW( INDEX_VROCP2OXY2 , 1 ) INDEX_VROCP3ALKP2 = IOLD2NEW( INDEX_VROCP3ALKP2, 1 ) INDEX_VROCP1OXY1 = IOLD2NEW( INDEX_VROCP1OXY1 , 1 ) INDEX_VROCP2ALKP2 = IOLD2NEW( INDEX_VROCP2ALKP2, 1 ) INDEX_VROCP1ALKP2 = IOLD2NEW( INDEX_VROCP1ALKP2, 1 ) INDEX_VROCN1OXY1 = IOLD2NEW( INDEX_VROCN1OXY1 , 1 ) INDEX_HC10P2 = IOLD2NEW( INDEX_HC10P2 , 1 ) INDEX_VROCP6ARO = IOLD2NEW( INDEX_VROCP6ARO , 1 ) INDEX_VROCP6AROP = IOLD2NEW( INDEX_VROCP6AROP , 1 ) INDEX_VROCN2OXY4 = IOLD2NEW( INDEX_VROCN2OXY4 , 1 ) INDEX_VROCN1OXY3 = IOLD2NEW( INDEX_VROCN1OXY3 , 1 ) INDEX_VROCP5ARO = IOLD2NEW( INDEX_VROCP5ARO , 1 ) INDEX_VROCP5AROP = IOLD2NEW( INDEX_VROCP5AROP , 1 ) INDEX_NAPH = IOLD2NEW( INDEX_NAPH , 1 ) INDEX_NAPHP = IOLD2NEW( INDEX_NAPHP , 1 ) INDEX_VROCN2OXY8 = IOLD2NEW( INDEX_VROCN2OXY8 , 1 ) INDEX_VROCP5OXY1 = IOLD2NEW( INDEX_VROCP5OXY1 , 1 ) INDEX_VROCP6OXY1 = IOLD2NEW( INDEX_VROCP6OXY1 , 1 ) END SUBROUTINE RESET_SPECIES_POINTERS END MODULE RXNS_FUNCTION ================================================ FILE: CCTM/src/MECHS/cracmm1_aq/SpecDef_Conc_cracmm1_aq.txt ================================================ !#start YYYYJJJ 010000 !#end YYYYJJJ 000000 #layer 1 / ! This Species Definition File is for Use with the COMBINE tool built for ! post-processing CMAQ output. It is compatible with CMAQv5.2. ! Date: May 12 2017 ! Output variables that begin with 'PM' represent those in which a size cut was ! applied based on modeled aerosol mode parameters. For example, PM25_NA is all ! sodium that falls below 2.5 um diameter. These 'PM' variables are used for ! comparisons at IMPROVE and CSN sites. ! Output variables that begin with 'PMAMS' represent the mass that would have ! been detected by an Aerosol Mass Spectrometer. ! Output variables beginning with 'A' (aside from AIR_DENS) represent a ! combination of aerosol species in which no size cut was applied. For example, ! ASO4IJ is the sum of i-mode and j-mode sulfate. These 'A' variables are used ! for comparisons at CASTNet sites. ! Output variables beginning with 'PMC' refer to the coarse fraction of total PM, ! computed by summing all modes and subtracting the PM2.5 fraction. These 'PMC' ! variables are used for comparisons at SEARCH sites. ! This Species Definition File is just for use with the uncoupled, offline CMAQ, ! model. If you are processing WRF-CMAQ results, a different Species Definition ! file is required. / File [1]: CMAQ conc/aconc file / File [2]: METCRO3D file / File [3]: ELMO/AELMO file / File [4]: METCRO2D file / /new species ,units ,expression !-------------------------------------------! !------------- Meteorology -----------------! !-------------------------------------------! AIR_DENS ,kg m-3 ,DENS[2] RH ,% ,100.00*RH[3] SFC_TMP ,C ,(TEMP2[4]-273.15) PBLH ,m ,PBL[4] SOL_RAD ,W m-2 ,RGRND[4] precip ,cm ,RC[4]>=0 ? RN[4]+RC[4] : RN[4] WSPD10 ,m s-1 ,WSPD10[4] WDIR10 ,deg ,WDIR10[4] !-------------------------------------------! !--------------- Gases ---------------------! !-------------------------------------------! CO ,ppbV ,1000.0*CO[1] H2O2 ,ppbV ,1000.0*H2O2[1] HNO3 ,ppbV ,1000.0*HNO3[1] HNO3_UGM3 ,ug m-3 ,1000.0*(HNO3[1]*2.1756*DENS[2]) HONO ,ppbV ,1000.0*HONO[1] HOX ,ppbV ,1000.0*(HO[1]+HO2[1]) OH ,ppbV ,1000.0*HO[1] N2O5 ,ppbV ,1000.0*N2O5[1] NH3 ,ppbV ,1000.0*NH3[1] NH3_UGM3 ,ug m-3 ,1000.0*(NH3[1]*0.5880*DENS[2]) NHX ,ug m-3 ,1000.0*(NH3[1]*0.5880*DENS[2])+ANH4I[1]+ANH4J[1]+ANH4K[1] NO ,ppbV ,1000.0*NO[1] NO2 ,ppbV ,1000.0*NO2[1] NOX ,ppbV ,1000.0*(NO[1] + NO2[1]) ANO3_PPB ,ppbV ,(ANO3I[1]+ANO3J[1]+ANO3K[1])/(DENS[2]*(62.0/28.97)) NTR ,ppbV ,1000.0*(ONIT[1]+ISON[1]+TRPN[1]+NALD[1]), organic nitrates in RACM2 PANS ,ppbV ,1000.0*(PAN[1]+PPN[1]+MPAN[1]) NOY ,ppbV ,1000.0*(NO[1]+NO2[1]+NO3[1]+2*N2O5[1]+HONO[1] \ +HNO3[1]+HNO4[1]+PAN[1]+PPN[1]+MPAN[1] \ +ISON[1]+TRPN[1]+ONIT[1]+NALD[1])+ANO3_PPB[0] O3 ,ppbV ,1000.0*O3[1] SO2 ,ppbV ,1000.0*SO2[1] SO2_UGM3 ,ug m-3 ,1000.0*(SO2[1]*2.2118*DENS[2]) TERP ,ppbV ,1000.0*(API[1]+LIM[1]), a-pinene and limonene monoterpenes in RACM2 ! Deprecate these names in future ETH ,ppbV ,1000.0*ETE[1], ethene is ETE in RACM2 ETHA ,ppbV ,1000.0*ETH[1], ethane is ETH in RACM2 ALD2 ,ppbV ,1000.0*ACD[1], acetaldehyde is ACD in RACM2 FORM ,ppbV ,1000.0*HCHO[1], formaldehyde is HCHO RACM2 ISOP ,ppbV ,1000.0*ISO[1], isoprene is ISO in RACM2 TOL ,ppbV ,1000.0*TOL[1] ! Hydrocarbons for evaluation. Note an "s" on the end indicates a collection of species from AQS ACETALDEHYDE ,ppbV ,1000.0*ACD[1] ACETYLENE ,ppbV ,1000.0*ACE[1] ACROLEIN ,ppbV ,1000.0*ACRO[1] ACETONE ,ppbV ,1000.0*ACT[1] BUTADIENE13 ,ppbV ,1000.0*BDE13[1] BENZENE ,ppbV ,1000.0*BEN[1] ETHYLENE ,ppbV ,1000.0*ETE[1], ethene is ETE in RACM2 ETHANE ,ppbV ,1000.0*ETH[1], ethane is ETH in RACM2 ISOPRENE ,ppbV ,1000.0*ISO[1], isoprene is ISO in RACM2 FORMALDEHYDE ,ppbV ,1000.0*HCHO[1], formaldehyde is HCHO RACM2 MEKETONE ,ppbV ,1000.0*MEK[1] TOLUENE ,ppbV ,1000.0*TOL[1] XYLENES ,ppbV ,1000.0*(XYE[1]+XYM[1]) HCPROPANES ,ppbV ,1000.0*(HC3[1]) HCPENTANES ,ppbV ,1000.0*(HC5[1]) HCDECANES ,ppbV ,1000.0*(HC10[1]), formerly HC8 OLEFINS ,ppbV ,1000.0*(OLI[1]+OLT[1]) ABPINENES ,ppbV ,1000.0*(API[1]) !! Unused Gases. Presented Here for illustration. Users can uncomment !! them if they choose. ALDX ,ppbV ,1000.0*ALD[1], C3 and higher aldehydes is ALD in RACM2 !NOZ ,ppbV ,NOY[0]-NOX[0] !SULF ,ppbV ,1000.0*SULF[1] ! SIGROC: S/IVOC alk and oxy gas species LSIVROC ,ppbC ,1000.0* (9.5*VROCIOXY[1] \ +14.0*VROCP5ARO[1]+13.0*VROCP6ARO[1] \ +30.0*VROCN2ALK[1]+29.0*VROCN1ALK[1] \ +28.0*VROCP0ALK[1]+27.0*VROCP1ALK[1] \ +24.0*VROCP2ALK[1]+21.0*VROCP3ALK[1] \ +18.0*VROCP4ALK[1]+14.0*VROCP5ALK[1] \ +13.0*VROCP6ALK[1]\ +17.0*VROCN2OXY2[1]+11.0*VROCN2OXY4[1] \ +7.0*VROCN2OXY8[1]+20.0*VROCN1OXY1[1] \ +12.0*VROCN1OXY3[1]+8.0*VROCN1OXY6[1] \ +14.0*VROCP0OXY2[1]+10.0*VROCP0OXY4[1] \ +17.0*VROCP1OXY1[1]+11.0*VROCP1OXY3[1] \ +12.0*VROCP2OXY2[1]+11.0*VROCP3OXY2[1] \ +9.0*VROCP4OXY2[1]+11.0*VROCP5OXY1[1] \ +9.0*VROCP6OXY1[1] ), ! VROC: Total gas-phase (vapor) reactive organic carbon (stable species only) VROC ,ppbC ,1000.0*(2.0*ACD[1]+2.0*ACE[1] \ +3.0*ACRO[1]+3.0*ACT[1]+3.0*ALD[1]+10*API[1] \ +7.0*BALD[1]+4.0*BDE13[1]+6.0*BEN[1] \ +9.0*CSL[1]+5.0*DCB1[1]+6.0*DCB2[1]+4.0*DCB3[1] \ +20.0*ELHOM[1] \ +2.0*EOH[1]+2.0*ETE[1]+2.0*ETEG[1]+2.0*ETH[1] \ +5.0*FURAN[1]+4.0*FURANONE[1]+2.0*GLY[1]+10.0*HOM[1] \ +3.0*HC3[1]+5.0*HC5[1]+10.0*HC10[1] \ +1.0*HCHO[1]+3.0*HKET[1] \ +5.0*IEPOX[1]+5.0*ISHP[1]+5.0*ISO[1]+5.0*KET[1] \ +10.0*LIM[1]+10.0*LIMAL[1]+4.0*MACR[1]+4*MAHP[1] \ +7.0*MCT[1] \ +4.0*MEK[1]+3.0*MGLY[1]+1.0*MOH[1]+4.0*MVK[1] \ +10.0*NAPH[1]+5.0*OLI[1]+3.0*OLT[1] \ +1.0*OP1[1]+2.0*OP2[1]+8.0*OP3[1]+10.0*OPB[1] \ +1.0*ORA1[1]+2.0*ORA2[1] \ +10.0*PINAL[1] \ +6.0*PHEN[1]+3.0*PROG[1] \ +3.0*ROH[1]+15.0*SESQ[1]+2.1*SLOWROC[1] \ +7.0*TOL[1]+5.0*UALD[1] \ +8.0*XYM[1]+8.0*XYE[1] \ +2.0*PAA[1]+2.0*PAN[1]+3.0*PPN[1]+4.0*MPAN[1] \ +4.0*ONIT[1]+2.0*NALD[1]+5.0*ISON[1]+10.0*TRPN[1] ) \ +LSIVROC[0] , !-------------------------------------------! !--------------- Particles -----------------! !-------------------------------------------! !! Crustal Elements AFEJ ,ug m-3 ,AFEJ[1] AALJ ,ug m-3 ,AALJ[1] ASIJ ,ug m-3 ,ASIJ[1] ATIJ ,ug m-3 ,ATIJ[1] ACAJ ,ug m-3 ,ACAJ[1] AMGJ ,ug m-3 ,AMGJ[1] AKJ ,ug m-3 ,AKJ[1] AMNJ ,ug m-3 ,AMNJ[1] ASOILJ ,ug m-3 ,2.20*AALJ[1]+2.49*ASIJ[1]+1.63*ACAJ[1]+2.42*AFEJ[1]+1.94*ATIJ[1] !! Non-Crustal Inorganic Particle Species AHPLUSIJ ,umol m-3 ,(AH3OPI[1]+AH3OPJ[1])*1.0/19.0 ANAK ,ug m-3 ,0.8373*ASEACAT[1]+0.0626*ASOIL[1]+0.0023*ACORS[1] AMGK ,ug m-3 ,0.0997*ASEACAT[1]+0.0170*ASOIL[1]+0.0032*ACORS[1] AKK ,ug m-3 ,0.0310*ASEACAT[1]+0.0242*ASOIL[1]+0.0176*ACORS[1] ACAK ,ug m-3 ,0.0320*ASEACAT[1]+0.0838*ASOIL[1]+0.0562*ACORS[1] ACLIJ ,ug m-3 ,ACLI[1]+ACLJ[1] AECIJ ,ug m-3 ,AECI[1]+AECJ[1] ANAIJ ,ug m-3 ,ANAJ[1]+ANAI[1] ANO3IJ ,ug m-3 ,ANO3I[1]+ANO3J[1] ANO3K ,ug m-3 ,ANO3K[1] TNO3 ,ug m-3 ,2175.6*(HNO3[1]*DENS[2])+ANO3I[1]+ANO3J[1]+ANO3K[1] ANH4IJ ,ug m-3 ,ANH4I[1]+ANH4J[1] ANH4K ,ug m-3 ,ANH4K[1] ASO4IJ ,ug m-3 ,ASO4I[1]+ASO4J[1] ASO4K ,ug m-3 ,ASO4K[1] !! Organic Particle Species ! Why is there an APOCI and APOCJ in the output? It doesn't match below APOCI ,ugC m-3, AROCN2ALKI[1]/1.39 + AROCN1ALKI[1]/1.32 \ + AROCP0ALKI[1]/1.17 + AROCP1ALKI[1]/1.17 APOCJ ,ugC m-3, AROCN2ALKJ[1]/1.39 + AROCN1ALKJ[1]/1.32 \ + AROCP0ALKJ[1]/1.17 + AROCP1ALKJ[1]/1.17 \ + AROCP2ALKJ[1]/1.17 + AROCP3ALKJ[1]/1.17 APOCIJ ,ugC m-3, APOCI[0] + APOCJ[0] APOMI ,ug m-3, AROCN2ALKI[1] + AROCN1ALKI[1] \ + AROCP0ALKI[1] + AROCP1ALKI[1] + APNCOMI[1] APOMJ ,ug m-3, AROCN2ALKJ[1] + AROCN1ALKJ[1] + AROCP0ALKJ[1] \ + AROCP1ALKJ[1] + AROCP2ALKJ[1] + AROCP3ALKJ[1] + APNCOMJ[1] APOMIJ ,ug m-3, APOMI[0] + APOMJ[0] ASOCI ,ugC m-3, AROCN2OXY2I[1]/1.42 + AROCN2OXY4I[1]/1.67 \ + AROCN2OXY8I[1]/2.17 + AROCN1OXY1I[1]/1.29 \ + AROCN1OXY3I[1]/1.54 + AROCN1OXY6I[1]/1.92 \ + AROCP0OXY2I[1]/1.42 + AROCP0OXY4I[1]/1.67 \ + AROCP1OXY1I[1]/1.29 + AROCP1OXY3I[1]/1.54 ASOCJ ,ugC m-3, AHOMJ[1]/2.08 + AELHOMJ[1]/1.67 + AISO3NOSJ[1]/2.27 \ + AISO3OSJ[1]/3.6 + AGLYJ[1]/2.13 + AORGCJ[1]/2 \ + AOP3J[1]/1.92 + ASOATJ[1]/2.31 + AROCN2OXY2J[1]/1.42 \ + AROCN2OXY4J[1]/1.67 + AROCN2OXY8J[1]/2.17 + AROCN1OXY1J[1]/1.29 \ + AROCN1OXY3J[1]/1.54 + AROCN1OXY6J[1]/1.92 + AROCP0OXY2J[1]/1.42 \ + AROCP0OXY4J[1]/1.67 + AROCP1OXY1J[1]/1.29 + AROCP1OXY3J[1]/1.54 \ + AROCP2OXY2J[1]/1.42 + AROCP3OXY2J[1]/1.42 ASOCIJ ,ugC m-3, ASOCI[0] + ASOCJ[0] ASOMI ,ug m-3, AROCN2OXY2I[1] + AROCN2OXY4I[1] \ + AROCN2OXY8I[1] + AROCN1OXY1I[1] \ + AROCN1OXY3I[1] + AROCN1OXY6I[1] \ + AROCP0OXY2I[1] + AROCP0OXY4I[1] \ + AROCP1OXY1I[1] + AROCP1OXY3I[1] ASOMJ ,ug m-3, AHOMJ[1] + AELHOMJ[1] + AISO3NOSJ[1] \ + AISO3OSJ[1] + AGLYJ[1] + AORGCJ[1] \ + AOP3J[1] + ASOATJ[1] + AROCN2OXY2J[1] \ + AROCN2OXY4J[1] + AROCN2OXY8J[1] + AROCN1OXY1J[1] \ + AROCN1OXY3J[1] + AROCN1OXY6J[1] + AROCP0OXY2J[1] \ + AROCP0OXY4J[1] + AROCP1OXY1J[1] + AROCP1OXY3J[1] \ + AROCP2OXY2J[1] + AROCP3OXY2J[1] ASOMIJ ,ug m-3 ,ASOMI[0] + ASOMJ[0] AOCI ,ugC m-3 ,APOCI[0] + ASOCI[0] AOCJ ,ugC m-3 ,APOCJ[0] + ASOCJ[0] AOCIJ ,ugC m-3 ,APOCIJ[0] + ASOCIJ[0] AOMI ,ug m-3 ,APOMI[0] + ASOMI[0] AOMJ ,ug m-3 ,APOMJ[0] + ASOMJ[0] AOMIJ ,ug m-3 ,APOMIJ[0] + ASOMIJ[0] !!! Anthropogenic-VOC Derived Organic Aerosol AORGAI ,ug m-3 ,AROCN2OXY2I[1]+AROCN2OXY4I[1]+AROCN2OXY8I[1]+AROCN1OXY1I[1] \ +AROCN1OXY3I[1]+AROCN1OXY6I[1]+AROCP0OXY2I[1]+AROCP0OXY4I[1] \ +AROCP1OXY1I[1]+AROCP1OXY3I[1] AORGAJ ,ug m-3 ,AROCN2OXY2J[1]+AROCN2OXY4J[1]+AROCN2OXY8J[1]+AROCN1OXY1J[1] \ +AROCN1OXY3J[1]+AROCN1OXY6J[1]+AROCP0OXY2J[1]+AROCP0OXY4J[1] \ +AROCP1OXY1J[1]+AROCP1OXY3J[1]+AROCP2OXY2J[1]+AROCP3OXY2J[1] \ +AOP3J[1] +ASOATJ[1] AORGAIJ ,ug m-3 ,AORGAI[0] + AORGAJ[0] !!! Biogenic-VOC Derived Organic Aerosol AORGBIJ ,ug m-3 ,AISO3NOSJ[1] +AISO3OSJ[1] +AHOMJ[1] + AELHOMJ[1] !!! Cloud-Processed SOA AORGCJ ,ug m-3 ,AORGCJ[1] !!! Remaining SOA AGLYJ ,ug m-3 ,AGLYJ[1] !!! OM/OC ratios AOMOCRAT_TOT , ,AOMIJ[0]/AOCIJ[0] !! Total PM Aggregates ATOTI ,ug m-3 ,ASO4I[1] + ANH4I[1] + ANO3I[1] + ANAI[1] \ +ACLI[1] + AECI[1] + AOMI[0] + AOTHRI[1] ATOTJ ,ug m-3 ,ASO4J[1] + ANH4J[1] + ANO3J[1] + ANAJ[1] \ +ACLJ[1] + AECJ[1] + AOMJ[0] + AOTHRJ[1] \ +AFEJ[1] + AALJ[1] + ASIJ[1] + ATIJ[1] \ +ACAJ[1] + AMGJ[1] + AKJ[1] + AMNJ[1] ATOTK ,ug m-3 ,ASO4K[1] + ANH4K[1] + ANO3K[1] + ACLK[1] \ +ACORS[1] + ASOIL[1] + ASEACAT[1] ATOTIJ ,ug m-3 ,ATOTI[0] + ATOTJ[0] ATOTIJK ,ug m-3 ,ATOTI[0] + ATOTJ[0] + ATOTK[0] !! Unspeciated PM including non-carbon organic mass AUNSPEC1IJ ,ug m-3 ,ATOTIJ[0] - (ASO4IJ[0] + ANO3IJ[0] \ +ANH4IJ[0] + ACLIJ[0] \ +ANAIJ[0] + AECIJ[0] \ +AOCIJ[0] + ASOILJ[0]) !! Non-Carbon Organic Mass ANCOMIJ ,ug m-3 ,AOMIJ[0] - AOCIJ[0] !! Unspeciated PM excluding non-carbon organic mass AUNSPEC2IJ ,ug m-3 ,AUNSPEC1IJ[0] - ANCOMIJ[0] !! AMS Projection of Output Concentrations PMAMS_CL ,ug m-3 ,ACLI[1] *FAMSAIT[3] +ACLJ[1]*FAMSACC[3]+ACLK[1] *FAMSCOR[3] PMAMS_NH4 ,ug m-3 ,ANH4I[1]*FAMSAIT[3]+ANH4J[1]*FAMSACC[3]+ANH4K[1]*FAMSCOR[3] PMAMS_NO3 ,ug m-3 ,ANO3I[1]*FAMSAIT[3]+ANO3J[1]*FAMSACC[3]+ANO3K[1]*FAMSCOR[3] PMAMS_OA ,ug m-3 ,AOMI[0] *FAMSAIT[3]+AOMJ[0] *FAMSACC[3] PMAMS_SO4 ,ug m-3 ,ASO4I[1]*FAMSAIT[3]+ASO4J[1]*FAMSACC[3]+ASO4K[1]*FAMSCOR[3] !! PM1 Cutoff Output PM1_TOT ,ug m-3 ,ATOTI[0]*FPM1AIT[3]+ATOTJ[0]*FPM1ACC[3]+ATOTK[0]*FPM1COR[3] !! Unused PM1 Species. Included Here for demonstration !PM1_EC ,ug m-3 ,AECI[1] *FPM1AIT[3] +AECJ[1] *FPM1ACC[3] !PM1_OC ,ugC m-3 ,AOCI[0] *FPM1AIT[3] +AOCJ[0] *FPM1ACC[3] !PM1_OM ,ug m-3 ,AOMI[0] *FPM1AIT[3] +AOMJ[0] *FPM1ACC[3] !PM1_SO4 ,ug m-3 ,ASO4I[1]*FPM1AIT[3] +ASO4J[1]*FPM1ACC[3] +ASO4K[1]*FPM1COR[3] !PM1_CL ,ug m-3 ,ACLI[1] *FPM1AIT[3] +ACLJ[1] *FPM1ACC[3] +ACLK[1] *FPM1COR[3] !PM1_NA ,ug m-3 ,ANAI[1] *FPM1AIT[3] +ANAJ[1] *FPM1ACC[3] +ANAK[0] *FPM1COR[3] !PM1_MG ,ug m-3 , AMGJ[1] *FPM1ACC[3] +AMGK[0] *FPM1COR[3] !PM1_K ,ug m-3 , AKJ[1] *FPM1ACC[3] +AKK[0] *FPM1COR[3] !PM1_CA ,ug m-3 , ACAJ[1] *FPM1ACC[3] +ACAK[0] *FPM1COR[3] !PM1_NH4 ,ug m-3 ,ANH4I[1] *FPM1AIT[3]+ANH4J[1]*FPM1ACC[3] +ANH4K[1]*FPM1COR[3] !PM1_NO3 ,ug m-3 ,ANO3I[1] *FPM1AIT[3]+ANO3J[1]*FPM1ACC[3] +ANO3K[1]*FPM1COR[3] !PM1_SOIL ,ug m-3 ,ASOILJ[0]*FPM1ACC[3]+(ASOIL[1]+ACORS[1])*FPM1COR[3] !PM1_UNSPEC1 ,ug m-3 ,PM1_TOT[0] - (PM1_CL[0] + PM1_EC[0]+ PM1_NA[0] + PM1_NH4[0] + \ ! PM1_NO3[0]+ PM1_OC[0]+ PM1_SOIL[0]+ PM1_SO4[0] ) !PM1_UNSPCRS ,ug m-3 ,ATOTK[0] *FPM1COR[3] - (ASO4K[1]*FPM1COR[3] \ ! +ACLK[1]*FPM1COR[3] \ ! +ANAK[0]*FPM1COR[3] \ ! +AMGK[0]*FPM1COR[3] \ ! +AKK[0]*FPM1COR[3] \ ! +ACAK[0]*FPM1COR[3] \ ! +ANH4K[1]*FPM1COR[3] \ ! +ANO3K[1]*FPM1COR[3]) !! PM2.5 species computed using modeled size distribution PM25_HP ,ug m-3 ,(AH3OPI[1]*FPM25AIT[3]+AH3OPJ[1]*FPM25ACC[3]+AH3OPK[1]*FPM25COR[3])*1.0/19.0 PM25_CL ,ug m-3 ,ACLI[1]*FPM25AIT[3]+ACLJ[1]*FPM25ACC[3]+ACLK[1]*FPM25COR[3] PM25_EC ,ug m-3 ,AECI[1]*FPM25AIT[3]+AECJ[1]*FPM25ACC[3] PM25_NA ,ug m-3 ,ANAI[1]*FPM25AIT[3]+ANAJ[1]*FPM25ACC[3]+ANAK[0]*FPM25COR[3] PM25_MG ,ug m-3 , AMGJ[1]*FPM25ACC[3]+AMGK[0]*FPM25COR[3] PM25_K ,ug m-3 , AKJ[1] *FPM25ACC[3]+AKK[0] *FPM25COR[3] PM25_CA ,ug m-3 , ACAJ[1]*FPM25ACC[3]+ACAK[0]*FPM25COR[3] PM25_NH4 ,ug m-3 ,ANH4I[1]*FPM25AIT[3]+ANH4J[1]*FPM25ACC[3]+ANH4K[1]*FPM25COR[3] PM25_NO3 ,ug m-3 ,ANO3I[1]*FPM25AIT[3]+ANO3J[1]*FPM25ACC[3]+ANO3K[1]*FPM25COR[3] PM25_OC ,ugC m-3 ,AOCI[0] *FPM25AIT[3]+AOCJ[0]*FPM25ACC[3] PM25_OM ,ug m-3 ,AOMI[0] *FPM25AIT[3]+AOMJ[0]*FPM25ACC[3] PM25_SOIL ,ug m-3 ,ASOILJ[0]*FPM25ACC[3]+ASOIL[1]*FPM25COR[3] PM25_SO4 ,ug m-3 ,ASO4I[1]*FPM25AIT[3]+ASO4J[1]*FPM25ACC[3]+ASO4K[1]*FPM25COR[3] PM25_TOT ,ug m-3 ,ATOTI[0]*FPM25AIT[3]+ATOTJ[0]*FPM25ACC[3]+ATOTK[0]*FPM25COR[3] PM25_UNSPEC1 ,ug m-3 ,PM25_TOT[0]-(PM25_CL[0]+PM25_EC[0]+PM25_NA[0]+PM25_NH4[0] \ +PM25_NO3[0]+PM25_OC[0]+PM25_SOIL[0]+PM25_SO4[0]) PM25_UNSPCRS ,ug m-3 ,ATOTK[0]*FPM25COR[3] - (ASO4K[1]*FPM25COR[3] \ +ACLK[1]*FPM25COR[3] \ +ANAK[0]*FPM25COR[3] \ +AMGK[0]*FPM25COR[3] \ +AKK[0]*FPM25COR[3] \ +ACAK[0]*FPM25COR[3] \ +ANH4K[1]*FPM25COR[3] \ +ANO3K[1]*FPM25COR[3]) !! Fine particle acidity (pH). pH is undefined if there is no aerosol water. !Do not trust predictions when hourly water is <0.01 ug m-3. FINEPHF will !have large negative value (-9.999E36) when pH is not to be trusted. !AH2OIJ ,ug m-3 ,AH2OI[1]+AH2OJ[1] !HPMOLAL ,mol kg-1 ,AHPLUSIJ[0]/AH2OIJ[0]*1000.0 !ACIDITYTEMP , ,-1*LOG10(HPMOLAL[0]) !FINEPHF , ,AH2OIJ[0]>0.01 ? ACIDITYTEMP[0] : -9.999E36 !! PM10.0 and Coarse-Sized Species PM10 ,ug m-3 ,ATOTI[0]*FPM10AIT[3]+ATOTJ[0]*FPM10ACC[3]+ATOTK[0]*FPM10COR[3] PMC_CL ,ug m-3 ,ACLI[1]*FPM10AIT[3] +ACLJ[1]*FPM10ACC[3] +ACLK[1]*FPM10COR[3] -PM25_CL[0] PMC_NA ,ug m-3 ,ANAI[1]*FPM10AIT[3] +ANAJ[1]*FPM10ACC[3] +ANAK[0]*FPM10COR[3] -PM25_NA[0] PMC_NH4 ,ug m-3 ,ANH4I[1]*FPM10AIT[3]+ANH4J[1]*FPM10ACC[3]+ANH4K[1]*FPM10COR[3]-PM25_NH4[0] PMC_NO3 ,ug m-3 ,ANO3I[1]*FPM10AIT[3]+ANO3J[1]*FPM10ACC[3]+ANO3K[1]*FPM10COR[3]-PM25_NO3[0] PMC_SO4 ,ug m-3 ,ASO4I[1]*FPM10AIT[3]+ASO4J[1]*FPM10ACC[3]+ASO4K[1]*FPM10COR[3]-PM25_SO4[0] PMC_TOT ,ug m-3 ,PM10[0]-PM25_TOT[0] !! FRM PM Equivalent Calculation !! This section calculates the FRM applicable PM species, PMIJ_FRM and !! PM25_FRM. The intermediate variablse K...ANH4IJ_loss are needed to !! calculate the final quantities. K ,ppb2 ,exp(118.87-24084/TEMP2[4]-6.025*log(TEMP2[4])) P1 , ,exp(8763/TEMP2[4]+19.12*log(TEMP2[4])-135.94) P2 , ,exp(9969/TEMP2[4]+16.22*log(TEMP2[4])-122.65) P3 , ,exp(13875/TEMP2[4]+24.46*log(TEMP2[4])-182.61) a , ,1-RH[0]/100 K_prime ,ppb2 ,(P1[0]-P2[0]*a[0]+(P3[0]*a[0]*a[0]))*(a[0]^1.75)*K[0] sqrt_Ki ,ppb ,sqrt(RH[0]<=61 ? K[0] : K_prime[0]) max_NO3_loss ,ug m-3 ,745.7/TEMP2[4]*sqrt_Ki[0] PM25_NO3_loss ,ug m-3 ,max_NO3_loss[0]<=PM25_NO3[0] ? max_NO3_loss[0] : PM25_NO3[0] ANO3IJ_loss ,ug m-3 ,max_NO3_loss[0]<=ANO3IJ[0] ? max_NO3_loss[0] : ANO3IJ[0] PM25_NH4_loss ,ug m-3 ,PM25_NO3_loss[0]*(18/62) ANH4IJ_loss ,ug m-3 ,ANO3IJ_loss[0]*(18/62) PMIJ_FRM ,ug m-3 ,ATOTIJ[0]-(ANO3IJ_loss[0]+ANH4IJ_loss[0]) \ +0.24*(ASO4IJ[0]+ANH4IJ[0]-ANH4IJ_loss[0])+0.5 PM25_FRM ,ug m-3 ,PM25_TOT[0]-(PM25_NO3_loss[0]+PM25_NH4_loss[0]) \ +0.24*(PM25_SO4[0]+PM25_NH4[0]-PM25_NH4_loss[0])+0.5 ================================================ FILE: CCTM/src/MECHS/cracmm1_aq/SpecDef_Dep_cracmm1_aq.txt ================================================ !#start YYYYJJJ !#end YYYYJJJ #layer 1 / File [1]: DRYDEP / File [2]: WETDEP / File [3]: METCRO2D / /new species ,units ,expression RT ,cm ,RC[3]>=0 ? RN[3]+RC[3] : RN[3] !---------------------------------------------------! !--------------- Gas Deposition --------------------! !---------------------------------------------------! DDEP_NO2 ,kg ha-1 ,NO2[1] WDEP_NO2 ,kg ha-1 ,NO2[2] DDEP_NO ,kg ha-1 ,NO[1] WDEP_NO ,kg ha-1 ,NO[2] DDEP_FORM ,kg ha-1 ,HCHO[1], formaldehyde is HCHO RACM2 WDEP_FORM ,kg ha-1 ,HCHO[2], formaldehyde is HCHO RACM2 DDEP_H2O2 ,kg ha-1 ,H2O2[1] WDEP_H2O2 ,kg ha-1 ,H2O2[2] DDEP_N2O5 ,kg ha-1 ,N2O5[1] WDEP_N2O5 ,kg ha-1 ,N2O5[2] DDEP_HONO ,kg ha-1 ,HONO[1] WDEP_HONO ,kg ha-1 ,HONO[2] DDEP_HNO3 ,kg ha-1 ,HNO3[1] WDEP_HNO3 ,kg ha-1 ,HNO3[2] DDEP_NO3 ,kg ha-1 ,NO3[1] WDEP_NO3 ,kg ha-1 ,NO3[2] DDEP_NTR ,kg ha-1 ,ONIT[1]+ISON[1]+NALD[1]+TRPN[2] WDEP_NTR ,kg ha-1 ,ONIT[2]+ISON[2]+NALD[2]+TRPN[2] DDEP_PANT ,kg ha-1 ,PAN[1]+PPN[1]+MPAN[1] WDEP_PANT ,kg ha-1 ,PAN[2]+PPN[2]+MPAN[2] DDEP_NH3 ,kg ha-1 ,NH3[1] WDEP_NH3 ,kg ha-1 ,NH3[2] DDEP_SO2 ,kg ha-1 ,SO2[1] DDEP_O3 ,kg ha-1 ,O3[1] WDEP_O3 ,kg ha-1 ,O3[2] DDEP_PNA ,kg ha-1 ,HNO4[1], PeroxyNitric Acid WDEP_PNA ,kg ha-1 ,HNO4[2], PeroxyNitric Acid !---------------------------------------------------! !------------- Aerosol Deposition ------------------! !---------------------------------------------------! DDEP_ANO3IJ ,kg ha-1 ,ANO3I[1] + ANO3J[1] DDEP_ANO3K ,kg ha-1 ,ANO3K[1] WDEP_ANO3IJK ,kg ha-1 ,ANO3I[2] + ANO3J[2] + ANO3K[2] DDEP_TNO3 ,kg ha-1 ,ANO3I[1] + ANO3J[1] + ANO3K[1] + 0.984*HNO3[1] + NO3[1] WDEP_TNO3 ,kg ha-1 ,ANO3I[2] + ANO3J[2] + ANO3K[2] + 0.984*HNO3[2] + NO3[2] DDEP_ANH4IJ ,kg ha-1 ,ANH4I[1] + ANH4J[1] DDEP_ANH4K ,kg ha-1 ,ANH4K[1] WDEP_ANH4IJK ,kg ha-1 ,ANH4I[2] + ANH4J[2] + ANH4K[2] DDEP_ASO4IJ ,kg ha-1 ,ASO4I[1] + ASO4J[1] DDEP_ASO4K ,kg ha-1 ,ASO4K[1] WDEP_ASO4IJK ,kg ha-1 ,ASO4I[2] + ASO4J[2] + ASO4K[2] DDEP_AECIJ ,kg ha-1 ,AECI[1] +AECJ[1] !DDEP_SSSO4J ,kg ha-1 ,0.2514*ANAJ[1] !DDEP_SSSO4K ,kg ha-1 ,0.2514*DDEP_ANAK[0] !WDEP_SSSO4JK ,kg ha-1 ,0.2514*ANAJ[2] + 0.2514*WDEP_ANAK[0] !-----------------------------------------------------! !-------- Total (Gas + Aerosol) Deposition -----------! !-----------------------------------------------------! DDEP_NHX ,kg ha-1 ,ANH4I[1] + ANH4J[1] + ANH4K[1] + 1.059*NH3[1] WDEP_NHX ,kg ha-1 ,ANH4I[2] + ANH4J[2] + ANH4K[2] + 1.059*NH3[2] WDEP_TSO4 ,kg ha-1 ,ASO4I[2] + ASO4J[2] + ASO4K[2] + 1.5*SO2[2] !! Sodium DDEP_ANAJ ,kg ha-1 ,ANAJ[1] DDEP_ANAK ,kg ha-1 ,0.8373*ASEACAT[1]+0.0626*ASOIL[1]+0.0023*ACORS[1] DDEP_ANAJK ,kg ha-1 ,DDEP_ANAJ[0] + DDEP_ANAK[0] WDEP_ANAK ,kg ha-1 ,0.8373*ASEACAT[2]+0.0626*ASOIL[2]+0.0023*ACORS[2] WDEP_ANAJK ,kg ha-1 ,ANAJ[2] + WDEP_ANAK[0] TDEP_ANAJK ,kg ha-1 ,DDEP_ANAJK[0] + WDEP_ANAJK[0] !! Chloride DDEP_ACLJ ,kg ha-1 ,ACLJ[1] DDEP_ACLK ,kg ha-1 ,ACLK[1] DDEP_ACLJK ,kg ha-1 ,ACLJ[1] + ACLK[1] WDEP_TCL ,kg ha-1 ,0.972*HCL[2] + ACLJ[2] + ACLK[2] TDEP_CL ,kg ha-1 ,DDEP_ACLJK[0] + WDEP_TCL[0] !! Calcium DDEP_CAJ ,kg ha-1 ,ACAJ[1] WDEP_CAJ ,kg ha-1 ,ACAJ[2] DDEP_CAK ,kg ha-1 ,0.0320*ASEACAT[1]+0.0838*ASOIL[1]+0.0562*ACORS[1] WDEP_CAK ,kg ha-1 ,0.0320*ASEACAT[2]+0.0838*ASOIL[2]+0.0562*ACORS[2] DDEP_CAJK ,kg ha-1 ,ACAJ[1]+DDEP_CAK[0] WDEP_CAJK ,kg ha-1 ,ACAJ[2]+WDEP_CAK[0] !! Iron DDEP_FEJ ,kg ha-1 ,AFEJ[1] WDEP_FEJ ,kg ha-1 ,AFEJ[2] !! Aluminum DDEP_ALJ ,kg ha-1 ,AALJ[1] WDEP_ALJ ,kg ha-1 ,AALJ[2] !! Silicon DDEP_SIJ ,kg ha-1 ,ASIJ[1] WDEP_SIJ ,kg ha-1 ,ASIJ[2] !! Titanium DDEP_TIJ ,kg ha-1 ,ATIJ[1] WDEP_TIJ ,kg ha-1 ,ATIJ[2] !! Magnesium DDEP_MGJ ,kg ha-1 ,AMGJ[1] WDEP_MGJ ,kg ha-1 ,AMGJ[2] DDEP_MGK ,kg ha-1 ,0.0997*ASEACAT[1]+0.0170*ASOIL[1]+0.0032*ACORS[1] WDEP_MGK ,kg ha-1 ,0.0997*ASEACAT[2]+0.0170*ASOIL[2]+0.0032*ACORS[2] DDEP_MGJK ,kg ha-1 ,AMGJ[1]+DDEP_MGK[0] WDEP_MGJK ,kg ha-1 ,AMGJ[2]+WDEP_MGK[0] !! Potassium DDEP_KJ ,kg ha-1 ,AKJ[1] WDEP_KJ ,kg ha-1 ,AKJ[2] DDEP_KK ,kg ha-1 ,0.0310*ASEACAT[1]+0.0242*ASOIL[1]+0.0176*ACORS[1] WDEP_KK ,kg ha-1 ,0.0310*ASEACAT[2]+0.0242*ASOIL[2]+0.0176*ACORS[2] DDEP_KJK ,kg ha-1 ,AKJ[1]+DDEP_KK[0] WDEP_KJK ,kg ha-1 ,AKJ[2]+WDEP_KK[0] !! Manganese DDEP_MNJ ,kg ha-1 ,AMNJ[1] WDEP_MNJ ,kg ha-1 ,AMNJ[2] !---------------------------------------------------! !------------- Nitrogen Deposition -----------------! !---------------------------------------------------! DD_OXN_NOX ,kgN ha-1 ,0.30435*NO2[1] + 0.46667*NO[1] WD_OXN_NOX ,kgN ha-1 ,0.30435*NO2[2] + 0.46667*NO[2] DD_OXN_TNO3 ,kgN ha-1 ,0.22581*DDEP_TNO3[0] WD_OXN_TNO3 ,kgN ha-1 ,0.22581*WDEP_TNO3[0] DD_OXN_PANT ,kgN ha-1 ,0.11570*PAN[1] + 0.11570*PPN[1] + 0.11570*MPAN[1] WD_OXN_PANT ,kgN ha-1 ,0.11570*PAN[2] + 0.11570*PPN[2] + 0.11570*MPAN[2] DD_OXN_ORGN ,kgN ha-1 ,0.10770*(ONIT[1]+ISON[1]+NALD[1]) + DD_OXN_PANT[0] WD_OXN_ORGN ,kgN ha-1 ,0.10770*(ONIT[2]+ISON[2]+NALD[2]) + WD_OXN_PANT[0] DD_OXN_OTHR ,kgN ha-1 ,0.25926*N2O5[1] + 0.29787*HONO[1] + 0.17720*HNO4[1] WD_OXN_OTHR ,kgN ha-1 ,0.25926*N2O5[2] + 0.29787*HONO[2] + 0.17720*HNO4[2] DD_OXN_TOT ,kgN ha-1 ,DD_OXN_NOX[0] + DD_OXN_TNO3[0] + DD_OXN_ORGN[0] + DD_OXN_OTHR[0] WD_OXN_TOT ,kgN ha-1 ,WD_OXN_NOX[0] + WD_OXN_TNO3[0] + WD_OXN_ORGN[0] + WD_OXN_OTHR[0] TD_OXN_TOT ,kgN ha-1 ,DD_OXN_TOT[0] + WD_OXN_TOT[0] DD_REDN_TOT ,kgN ha-1 ,0.7777*DDEP_NHX[0] WD_REDN_TOT ,kgN ha-1 ,0.7777*WDEP_NHX[0] TD_REDN_TOT ,kgN ha-1 ,DD_REDN_TOT[0] + WD_REDN_TOT[0] DD_N_TOT ,kgN ha-1 ,DD_OXN_TOT[0] + DD_REDN_TOT[0] WD_N_TOT ,kgN ha-1 ,WD_OXN_TOT[0] + WD_REDN_TOT[0] TD_N_TOT ,kgN ha-1 ,DD_N_TOT[0] + WD_N_TOT[0] !! Nitrogen Deposition in milliequivalents Nitrogen !DD_OXN_TOTMEQ ,meqN m-2 ,7.14*DD_OXN_TOT[0] !WD_OXN_TOTMEQ ,meqN m-2 ,7.14*WD_OXN_TOT[0] !TD_OXN_TOTMEQ ,meqN m-2 ,DD_OXN_TOTMEQ[0] + WD_OXN_TOTMEQ[0] !DD_REDN_TOTMEQ ,meqN m-2 ,7.14*DD_REDN_TOT[0] !WD_REDN_TOTMEQ ,meqN m-2 ,7.14*WD_REDN_TOT[0] !TD_REDN_TOTMEQ ,meqN m-2 ,DD_REDN_TOTMEQ[0] + WD_REDN_TOTMEQ[0] !DD_N_TOTMEQ ,meqN m-2 ,DD_OXN_TOTMEQ[0] + DD_REDN_TOTMEQ[0] !WD_N_TOTMEQ ,meqN m-2 ,WD_OXN_TOTMEQ[0] + WD_REDN_TOTMEQ[0] !TD_N_TOTMEQ ,meqN m-2 ,DD_N_TOTMEQ[0] + WD_N_TOTMEQ[0] !-------------------------------------------------! !------------- Sulfur Deposition -----------------! !-------------------------------------------------! DD_S_TOT ,kgS ha-1 ,0.5*SO2[1] + 0.33333*ASO4I[1] + 0.33333*ASO4J[1] + 0.33333*ASO4K[1] WD_S_TOT ,kgS ha-1 ,0.33333*WDEP_TSO4[0] TD_S_TOT ,kgS ha-1 ,DD_S_TOT[0] + WD_S_TOT[0] !DD_S_SeaS ,kgS ha-1 ,0.33333*DDEP_SSSO4J[0] + 0.33333*DDEP_SSSO4K[0] !WD_S_SeaS ,kgS ha-1 ,0.33333*WDEP_SSSO4JK[0] !TD_S_SeaS ,kgS ha-1 ,DD_S_SeaS[0] + WD_S_SeaS[0] !! Sulfur Deposition in milliequivalents Sulfur !DD_S_TOTMEQ ,meqS m-2 ,6.24*DD_S_TOT[0] !WD_S_TOTMEQ ,meqS m-2 ,6.24*WD_S_TOT[0] !TD_S_TOTMEQ ,meqS m-2 ,DD_S_TOTMEQ[0] + WD_S_TOTMEQ[0] !DD_S_SeaSMEQ ,meqS m-2 ,6.24*DD_S_SeaS[0] !WD_S_SeaSMEQ ,meqS m-2 ,6.24*WD_S_SeaS[0] !TD_S_SeaSMEQ ,meqS m-2 ,DD_S_SeaSMEQ[0] + WD_S_SeaSMEQ[0] ================================================ FILE: CCTM/src/MECHS/cracmm1_aq/SpecDef_cracmm1_aq.txt ================================================ !#start YYYYJJJ 010000 !#end YYYYJJJ 000000 #layer 1 / ! This Species Definition File is for Use with the COMBINE tool built for ! post-processing CMAQ output. It is compatible with CMAQv5.2. ! Date: May 12 2017 ! Output variables that begin with 'PM' represent those in which a size cut was ! applied based on modeled aerosol mode parameters. For example, PM25_NA is all ! sodium that falls below 2.5 um diameter. These 'PM' variables are used for ! comparisons at IMPROVE and CSN sites. ! Output variables that begin with 'PMAMS' represent the mass that would have ! been detected by an Aerosol Mass Spectrometer. ! Output variables beginning with 'A' (aside from AIR_DENS) represent a ! combination of aerosol species in which no size cut was applied. For example, ! ASO4IJ is the sum of i-mode and j-mode sulfate. These 'A' variables are used ! for comparisons at CASTNet sites. ! Output variables beginning with 'PMC' refer to the coarse fraction of total PM, ! computed by summing all modes and subtracting the PM2.5 fraction. These 'PMC' ! variables are used for comparisons at SEARCH sites. ! This Species Definition File is just for use with the uncoupled, offline CMAQ, ! model. If you are processing WRF-CMAQ results, a different Species Definition ! file is required. / File [1]: CMAQ conc/aconc file / File [2]: METCRO3D file / File [3]: PMDIAG/APMDIAG file / File [4]: METCRO2D file / /new species ,units ,expression !-------------------------------------------! !------------- Meteorology -----------------! !-------------------------------------------! AIR_DENS ,kg m-3 ,DENS[2] RH ,% ,100.00*RH[3] SFC_TMP ,C ,(TEMP2[4]-273.15) PBLH ,m ,PBL[4] SOL_RAD ,W m-2 ,RGRND[4] precip ,cm ,RC[4]>=0 ? RN[4]+RC[4] : RN[4] WSPD10 ,m s-1 ,WSPD10[4] WDIR10 ,deg ,WDIR10[4] !-------------------------------------------! !--------------- Gases ---------------------! !-------------------------------------------! CO ,ppbV ,1000.0*CO[1] H2O2 ,ppbV ,1000.0*H2O2[1] HNO3 ,ppbV ,1000.0*HNO3[1] HNO3_UGM3 ,ug m-3 ,1000.0*(HNO3[1]*2.1756*DENS[2]) HONO ,ppbV ,1000.0*HONO[1] HOX ,ppbV ,1000.0*(HO[1]+HO2[1]) OH ,ppbV ,1000.0*HO[1] N2O5 ,ppbV ,1000.0*N2O5[1] NH3 ,ppbV ,1000.0*NH3[1] NH3_UGM3 ,ug m-3 ,1000.0*(NH3[1]*0.5880*DENS[2]) NHX ,ug m-3 ,1000.0*(NH3[1]*0.5880*DENS[2])+ANH4I[1]+ANH4J[1]+ANH4K[1] NO ,ppbV ,1000.0*NO[1] NO2 ,ppbV ,1000.0*NO2[1] NOX ,ppbV ,1000.0*(NO[1] + NO2[1]) ANO3_PPB ,ppbV ,(ANO3I[1]+ANO3J[1]+ANO3K[1])/(DENS[2]*(62.0/28.97)) NTR ,ppbV ,1000.0*(ONIT[1]+ISON[1]+TRPN[1]+NALD[1]), organic nitrates in RACM2 PANS ,ppbV ,1000.0*(PAN[1]+PPN[1]+MPAN[1]) NOY ,ppbV ,1000.0*(NO[1]+NO2[1]+NO3[1]+2*N2O5[1]+HONO[1] \ +HNO3[1]+HNO4[1]+PAN[1]+PPN[1]+MPAN[1] \ +ISON[1]+TRPN[1]+ONIT[1]+NALD[1])+ANO3_PPB[0] O3 ,ppbV ,1000.0*O3[1] SO2 ,ppbV ,1000.0*SO2[1] SO2_UGM3 ,ug m-3 ,1000.0*(SO2[1]*2.2118*DENS[2]) TERP ,ppbV ,1000.0*(API[1]+LIM[1]), a-pinene and limonene monoterpenes in RACM2 ! Deprecate these names in future ETH ,ppbV ,1000.0*ETE[1], ethene is ETE in RACM2 ETHA ,ppbV ,1000.0*ETH[1], ethane is ETH in RACM2 ALD2 ,ppbV ,1000.0*ACD[1], acetaldehyde is ACD in RACM2 FORM ,ppbV ,1000.0*HCHO[1], formaldehyde is HCHO RACM2 ISOP ,ppbV ,1000.0*ISO[1], isoprene is ISO in RACM2 TOL ,ppbV ,1000.0*TOL[1] ! Hydrocarbons for evaluation. Note an "s" on the end indicates a collection of species from AQS ACETALDEHYDE ,ppbV ,1000.0*ACD[1] ACETYLENE ,ppbV ,1000.0*ACE[1] ACROLEIN ,ppbV ,1000.0*ACRO[1] ACETONE ,ppbV ,1000.0*ACT[1] BUTADIENE13 ,ppbV ,1000.0*BDE13[1] BENZENE ,ppbV ,1000.0*BEN[1] ETHYLENE ,ppbV ,1000.0*ETE[1], ethene is ETE in RACM2 ETHANE ,ppbV ,1000.0*ETH[1], ethane is ETH in RACM2 ISOPRENE ,ppbV ,1000.0*ISO[1], isoprene is ISO in RACM2 FORMALDEHYDE ,ppbV ,1000.0*HCHO[1], formaldehyde is HCHO RACM2 MEKETONE ,ppbV ,1000.0*MEK[1] TOLUENE ,ppbV ,1000.0*TOL[1] XYLENES ,ppbV ,1000.0*(XYE[1]+XYM[1]) HCPROPANES ,ppbV ,1000.0*(HC3[1]) HCPENTANES ,ppbV ,1000.0*(HC5[1]) HCDECANES ,ppbV ,1000.0*(HC10[1]), formerly HC8 OLEFINS ,ppbV ,1000.0*(OLI[1]+OLT[1]) ABPINENES ,ppbV ,1000.0*(API[1]) !! Unused Gases. Presented Here for illustration. Users can uncomment !! them if they choose. ALDX ,ppbV ,1000.0*ALD[1], C3 and higher aldehydes is ALD in RACM2 !NOZ ,ppbV ,NOY[0]-NOX[0] !SULF ,ppbV ,1000.0*SULF[1] ! SIGROC: S/IVOC alk and oxy gas species LSIVROC ,ppbC ,1000.0* (9.5*VROCIOXY[1] \ +14.0*VROCP5ARO[1]+13.0*VROCP6ARO[1] \ +30.0*VROCN2ALK[1]+29.0*VROCN1ALK[1] \ +28.0*VROCP0ALK[1]+27.0*VROCP1ALK[1] \ +24.0*VROCP2ALK[1]+21.0*VROCP3ALK[1] \ +18.0*VROCP4ALK[1]+14.0*VROCP5ALK[1] \ +13.0*VROCP6ALK[1]\ +17.0*VROCN2OXY2[1]+11.0*VROCN2OXY4[1] \ +7.0*VROCN2OXY8[1]+20.0*VROCN1OXY1[1] \ +12.0*VROCN1OXY3[1]+8.0*VROCN1OXY6[1] \ +14.0*VROCP0OXY2[1]+10.0*VROCP0OXY4[1] \ +17.0*VROCP1OXY1[1]+11.0*VROCP1OXY3[1] \ +12.0*VROCP2OXY2[1]+11.0*VROCP3OXY2[1] \ +9.0*VROCP4OXY2[1]+11.0*VROCP5OXY1[1] \ +9.0*VROCP6OXY1[1] ), ! VROC: Total gas-phase (vapor) reactive organic carbon (stable species only) VROC ,ppbC ,1000.0*(2.0*ACD[1]+2.0*ACE[1] \ +3.0*ACRO[1]+3.0*ACT[1]+3.0*ALD[1]+10*API[1] \ +7.0*BALD[1]+4.0*BDE13[1]+6.0*BEN[1] \ +9.0*CSL[1]+5.0*DCB1[1]+6.0*DCB2[1]+4.0*DCB3[1] \ +20.0*ELHOM[1] \ +2.0*EOH[1]+2.0*ETE[1]+2.0*ETEG[1]+2.0*ETH[1] \ +5.0*FURAN[1]+4.0*FURANONE[1]+2.0*GLY[1]+10.0*HOM[1] \ +3.0*HC3[1]+5.0*HC5[1]+10.0*HC10[1] \ +1.0*HCHO[1]+3.0*HKET[1] \ +5.0*IEPOX[1]+5.0*ISHP[1]+5.0*ISO[1]+5.0*KET[1] \ +10.0*LIM[1]+10.0*LIMAL[1]+4.0*MACR[1]+4*MAHP[1] \ +7.0*MCT[1] \ +4.0*MEK[1]+3.0*MGLY[1]+1.0*MOH[1]+4.0*MVK[1] \ +10.0*NAPH[1]+5.0*OLI[1]+3.0*OLT[1] \ +1.0*OP1[1]+2.0*OP2[1]+8.0*OP3[1]+10.0*OPB[1] \ +1.0*ORA1[1]+2.0*ORA2[1] \ +10.0*PINAL[1] \ +6.0*PHEN[1]+3.0*PROG[1] \ +3.0*ROH[1]+15.0*SESQ[1]+2.1*SLOWROC[1] \ +7.0*TOL[1]+5.0*UALD[1] \ +8.0*XYM[1]+8.0*XYE[1] \ +2.0*PAA[1]+2.0*PAN[1]+3.0*PPN[1]+4.0*MPAN[1] \ +4.0*ONIT[1]+2.0*NALD[1]+5.0*ISON[1]+10.0*TRPN[1] ) \ +LSIVROC[0] , !-------------------------------------------! !--------------- Particles -----------------! !-------------------------------------------! !! Crustal Elements AFEJ ,ug m-3 ,PMF_FE[3] AALJ ,ug m-3 ,PMF_AL[3] ASIJ ,ug m-3 ,PMF_SI[3] ATIJ ,ug m-3 ,PMF_TI[3] ACAJ ,ug m-3 ,PMF_CA[3] AMGJ ,ug m-3 ,PMF_MG[3] AKJ ,ug m-3 ,PMF_K[3] AMNJ ,ug m-3 ,PMF_MN[3] ASOILJ ,ug m-3 ,PMF_SOILIMPV[3] !! Non-Crustal Inorganic Particle Species AHPLUSIJ ,ug m-3 ,PMF_HP[3] ANAK ,ug m-3 ,PMC_NA[3] AMGK ,ug m-3 ,PMC_MG[3] AKK ,ug m-3 ,PMC_K[3] ACAK ,ug m-3 ,PMC_CA[3] ACLIJ ,ug m-3 ,PMF_CL[3] AECIJ ,ug m-3 ,PMF_EC[3] ANAIJ ,ug m-3 ,PMF_NA[3] ANO3IJ ,ug m-3 ,PMF_NO3[3] ANO3K ,ug m-3 ,PMC_NO3[3] ANH4IJ ,ug m-3 ,PMF_NH4[3] ANH4K ,ug m-3 ,PMC_NH4[3] ASO4IJ ,ug m-3 ,PMF_SO4[3] ASO4K ,ug m-3 ,PMC_SO4[3] !! Organic Particle Species APOCIJ ,ugC m-3 ,PMF_POC[3] APOMIJ ,ug m-3 ,PMF_POA[3] ASOCIJ ,ugC m-3 ,PMF_SOC[3] ASOMIJ ,ug m-3 ,PMF_SOA[3] AOCIJ ,ugC m-3 ,PMF_OC[3] AOMIJ ,ug m-3 ,PMF_OA[3] !!! Anthropogenic-VOC Derived Organic Aerosol AORGAIJ ,ug m-3 ,PMF_ASOA[3] !!! Biogenic-VOC Derived Organic Aerosol AORGBIJ ,ug m-3 ,PMF_BSOA[3] !!! Cloud-Processed SOA AORGCJ ,ug m-3 ,AORGCJ[1] !!! OM/OC ratios AOMOCRAT_TOT , ,PMF_OMOC[3] !! Total PM Aggregates ATOTI ,ug m-3 ,PMAIT_MASS[3] ATOTJ ,ug m-3 ,PMACC_MASS[3] ATOTK ,ug m-3 ,PMC_MASS[3] ATOTIJ ,ug m-3 ,PMF_MASS[3] ATOTIJK ,ug m-3 ,PM_MASS[3] !! Unspeciated PM including non-carbon organic mass AUNSPEC1IJ ,ug m-3 ,PMF_UN_IMPV1[3] !! Non-Carbon Organic Mass ANCOMIJ ,ug m-3 ,PMF_NCOM[3] !! Unspeciated PM excluding non-carbon organic mass AUNSPEC2IJ ,ug m-3 ,PMF_UN_IMPV2[3] !! AMS Projection of Output Concentrations PMAMS_CL ,ug m-3 ,PMAMS_CL[3] PMAMS_NH4 ,ug m-3 ,PMAMS_NH4[3] PMAMS_NO3 ,ug m-3 ,PMAMS_NO3[3] PMAMS_OA ,ug m-3 ,PMAMS_OA[3] PMAMS_SO4 ,ug m-3 ,PMAMS_SO4[3] !! PM1 Cutoff Output PM1_TOT ,ug m-3 ,PM1[3] !! Unused PM1 Species. Included Here for demonstration !PM1_EC ,ug m-3 ,PM1_EC[3] !PM1_OC ,ugC m-3 ,PM1_OC[3] !PM1_OM ,ug m-3 ,PM1_OA[3] !PM1_SO4 ,ug m-3 ,PM1_SO4[3] !PM1_CL ,ug m-3 ,PM1_CL[3] !PM1_NA ,ug m-3 ,PM1_NA[3] !PM1_MG ,ug m-3 ,PM1_MG[3] !PM1_K ,ug m-3 ,PM1_K[3] !PM1_CA ,ug m-3 ,PM1_CA[3] !PM1_NH4 ,ug m-3 ,PM1_NH4[3] !PM1_NO3 ,ug m-3 ,PM1_NO3[3] !PM1_SOIL ,ug m-3 ,PM1_SOIL[3] !PM1_UNSPEC1 ,ug m-3 ,PM1_UNSP1[3] !PM1_UNSPCRS ,ug m-3 ,PM1_UNSPCRS[3] !! PM2.5 species computed using modeled size distribution PM25_HP ,ug m-3 ,PM25_HP[3] PM25_CL ,ug m-3 ,PM25_CL[3] PM25_EC ,ug m-3 ,PM25_EC[3] PM25_NA ,ug m-3 ,PM25_NA[3] PM25_MG ,ug m-3 ,PM25_MG[3] PM25_K ,ug m-3 ,PM25_K[3] PM25_CA ,ug m-3 ,PM25_CA[3] PM25_NH4 ,ug m-3 ,PM25_NH4[3] PM25_NO3 ,ug m-3 ,PM25_NO3[3] PM25_OC ,ugC m-3 ,PM25_OC[3] PM25_OM ,ug m-3 ,PM25_OA[3] PM25_SOIL ,ug m-3 ,PM25_SOIL[3] PM25_SO4 ,ug m-3 ,PM25_SO4[3] PM25_TOT ,ug m-3 ,PM25[3] PM25_UNSPEC1 ,ug m-3 ,PM25_UNSP1[3] PM25_UNSPCRS ,ug m-3 ,PM25_UNSPCRS[3] !! PM10.0 and Coarse-Sized Species PM10 ,ug m-3 ,PM10[3] PMC_CL ,ug m-3 ,PM25TO10_CL[3] PMC_NA ,ug m-3 ,PM25TO10_NA[3] PMC_NH4 ,ug m-3 ,PM25TO10_NH4[3] PMC_NO3 ,ug m-3 ,PM25TO10_NO3[3] PMC_SO4 ,ug m-3 ,PM25TO10_SO4[3] PMC_TOT ,ug m-3 ,PM25TO10[3] !! FRM PM Equivalent Calculation PMIJ_FRM ,ug m-3 ,PMF_FRM[3] PM25_FRM ,ug m-3 ,PM25_FRM[3] ================================================ FILE: CCTM/src/MECHS/cracmm1_aq/cracmm1_aq_speciesdescription.csv ================================================ Species,Description ACD,Acetaldehyde ACE,Acetylene ACO3,Acetyl peroxy radicals ACRO,Acrolein ACT,Acetone ACTP,Peroxy radicals formed from ACT ADCN,Aromatic-NO3 adduct from PHEN ADDC,Aromatic-HO adduct from CSL ALD,C3 and higher aldehydes API,Alpha-pinenes and other cyclic terpenes with one double bond APINP1,Peroxy radicals from API+NO3 that do not undergo autoxidation APINP2,Peroxy radicals from API+NO3 that undergo autoxidation APIP1,Peroxy radicals from API+OH that do not undergo autoxidation APIP2,Peroxy radicals from API+OH that undergo autoxidation BAL1,Peroxy radicals formed from BALD BAL2,Peroxy radicals formed from BALD BALD,Benzaldehyde and other aromatic aldehydes BALP,Peroxy radicals formed from BALD BDE13,1;3-butadiene BDE13P,Peroxy radicals from BDE13 BEN,Benzene BENP,Peroxy radicals formed from benzene CHO,Phenoxy radical formed from CSL CO,Carbon monoxide CSL,Cresol and other hydroxy substituted aromatics DCB1,Unsaturated dicarbonyls DCB2,Unsaturated dicarbonyls DCB3,Unsaturated dicarbonyls ELHOM,Extremely-low volatility highly oxygenated molecules from terpenes EOH,Ethanol ETE,ethene ETEG,Ethylene glycol ETEP,Peroxy radicals formed from ETE ETH,ethane ETHP,Peroxy radicals formed from ethane and other species FURAN,Furans and other dienes FURANO2,Peroxy radicals from FURAN oxidation FURANONE,Ring-retaining ketone product from FURAN oxidation GLY,Glyoxal and glycoaldehydes H2O2,Hydrogen peroxide HC10,Alkanes and other species with HO rate constant greater than 6.8x10-12 cm3 s-1 HC10P,Peroxy radicals formed from HC10 HC10P2,Hydroxy peroxy radicals from HC10P alkoxy product HC3,Alkanes and other species with HO rate constant less than 3.4x10-12 cm3 s-1 HC3P,Peroxy radicals formed from HC3 HC5,Alkanes and other species with HO rate constant between 3.4x10-12 and 6.8x10-12 cm3 s-1 HC5P,Peroxy radicals formed from HC5 HCHO,Formaldehyde HKET,Hydroxy ketone HNO3,Nitric acid HNO4,Pernitric acid HO,Hydroxy radical HO2,Hydroperoxy radical HOM,Highly oxygenated molecules from terpenes HONO,Nitrous acid IEPOX,isoprene epoxydiols ISHP,Beta-hydroxy hydroperoxides from ISOP+HO2 ISO,Isoprene ISON,Beta-hydroxyalkylnitrates from ISOP+NO alkylnitrates from ISO+NO3 ISOP,Peroxy radicals formed from ISO+HO KET,ketones KETP,Peroxy radicals formed from KET LIM,d-limonene and other cyclic diene-terpenes LIMAL,Limonene aldehyde and similar LIM-derived aldehydes LIMALP,Peroxy radicals from LIMAL LIMNP1,Peroxy radicals from LIM+NO3 that do not undergo autoxidation LIMNP2,Peroxy radicals from LIM+NO3 that undergo autoxidation LIMP1,Peroxy radicals from LIM+OH that do not undergo autoxidation LIMP2,Peroxy radicals from LIM+OH that undergo autoxidation MACP,Peroxy radicals formed from MACR+HO MACR,methacrolein and other C4 aldehydes MAHP,Hydroperoxides from MACP+HO2 MCP,Peroxy radical formed from MACR + HO which does not form MPAN MCT,Methyl catechol MCTO,Alkoxy radical formed from MCT+HO and MCT+NO3 MCTP,Radical formed fro MCT+O3 reaction MEK,Methyl ethyl ketone MEKP,Peroxy radicals formed from MEK MGLY,Methylglyoxal and other alpha-carbonyl aldehydes MO2,Methyl peroxy radical MOH,Methanol MPAN,Peroxymethacryloylnitrate and other higher peroxyacylnitrates from isoprene oxidation MVK,Methyl vinyl ketone MVKP,Peroxy radicals formed from MVK N2O5,Dinitrogen pentoxide NALD,Nitrooxyacetaldehyde NAPH,Naphthalene and other PAHs NAPHP,Peroxy radicals from NAPH oxidation NO,Nitric oxide NO2,Nitrogen dioxide NO3,Nitrogen trioxide O1D,Excited state oxygen atom; O(1D) O3,Ozone O3P,Ground state oxygen atom; O(3P) OLI,Internal alkenes OLIP,Peroxy radicals formed from OLI OLND,NO3-alkene adduct reacting via decomposition OLNN,NO3-alkene adduct reacting to form carbonitrates + HO2 OLT,Terminal alkenes OLTP,Peroxy radicals formed from OLT ONIT,Organic nitrates OP1,Methyl hydrogen peroxide OP2,Higher organic peroxides OPB,Terpene-derived peroxides ORA1,Formic acid ORA2,Acetic acid and higher acids ORAP,Peroxy radical formed from ORA2 + HO reaction PAA,Peroxyacetic acids and higher analogs PAN,Peroxyacetyl nitrate and higher saturated PANs PHEN,phenol and benzene diols PINAL,Pinonaldehyde and similar APIN-derived aldehydes PINALP,Peroxy radicals from PINAL oxidation PPN,Peroxypropionyl nitrate PROG,Propylene glyocol and other 3 carbon dialcohols RCO3,Higher saturated acyl peroxy radicals ROCIOXY,Intermediate volatility oxygenated ROC species (directly emitted) ROCN1ALK,Alkane-like ROC species with C* of 10-1 ug/m3 ROCN1OXY1,Oxygenated ROC species with C* of 10-1 ug/m3 and O:C of 0.1 ROCN1OXY3,Oxygenated ROC species with C* of 10-1 ug/m3 and O:C of 0.3 ROCN1OXY6,Oxygenated ROC species with C* of 10-1 ug/m3 and O:C of 0.6 ROCN2ALK,Alkane-like ROC species with C* of 10-2 ug/m3 ROCN2OXY2,Oxygenated ROC species with C* of 10-1 ug/m3 and O:C of 0.2 ROCN2OXY4,Oxygenated ROC species with C* of 10-2 ug/m3 and O:C of 0.4 ROCN2OXY8,Oxygenated ROC species with C* of 10-2 ug/m3 and O:C of 0.8 ROCP0ALK,Alkane-like ROC species with C* of 1 ug/m3 ROCP0OXY2,Oxygenated ROC species with C* of 1 ug/m3 and O:C of 0.2 ROCP0OXY4,Oxygenated ROC species with C* of 1 ug/m3 and O:C of 0.4 ROCP1ALK,Alkane-like ROC species with C* of 10 ug/m3 ROCP1ALKP,Peroxy radicals from ROCP1ALK oxidation ROCP1ALKP2,Hydroxy peroxy radicals from ROCP1ALK alkoxy product ROCP1OXY1,Oxygenated ROC species with C* of 10 ug/m3 and O:C of 0.1 ROCP1OXY3,Oxygenated ROC species with C* of 10 ug/m3 and O:C of 0.3 ROCP2ALK,Alkane-like ROC species with C* of 10+2 ug/m3 ROCP2ALKP,Peroxy radicals from ROCP2ALK oxidation ROCP2ALKP2,Hydroxy peroxy radicals from ROCP2ALK alkoxy product ROCP2OXY2,Oxygenated ROC species with C* of 10+2 ug/m3 and O:C of 0.2 ROCP3ALK,Alkane-like ROC species with C* of 10+3 ug/m3 ROCP3ALKP,Peroxy radicals from ROCP3ALK oxidation ROCP3ALKP2,Hydroxy peroxy radicals from ROCP3ALK alkoxy product ROCP3OXY2,Oxygenated ROC species with C* of 10+3 ug/m3 and O:C of 0.2 ROCP4ALK,Alkane-like ROC species with C* of 10+4 ug/m3 ROCP4ALKP,Peroxy radicals from ROCP4ALK oxidation ROCP4ALKP2,Hydroxy peroxy radicals from ROCP4ALK alkoxy product ROCP4OXY2,Oxygenated ROC species with C* of 10+4 ug/m3 and O:C of 0.2 ROCP5ALK,Alkane-like ROC species with C* of 10+5 ug/m3 ROCP5ALKP,Peroxy radicals from ROCP5ALK oxidation ROCP5ALKP2,Hydroxy peroxy radicals from ROCP5ALK alkoxy product ROCP5ARO,Aromatic ROC species with C* of 10+5 ug/m3 ROCP5AROP,Peroxy radicals from ROCP5ARO oxidation ROCP5OXY1,Oxygenated ROC species with C* of 10+5 ug/m3 and O:C of 0.1 ROCP6ALK,Alkane-like ROC species with C* of 10+6 ug/m3 ROCP6ALKP,Peroxy radicals from ROCP6ALK oxidation ROCP6ALKP2,Hydroxy peroxy radicals from ROCP6ALK alkoxy product ROCP6ARO,Aromatic ROC species with C* of 10+6 ug/m3 ROCP6AROP,Peroxy radicals from ROCP6ARO oxidation ROCP6OXY1,Oxygenated ROC species with C* of 10+6 ug/m3 and O:C of 0.1 ROH,C3 and higher alcohols SESQ,Sesquiterpenes SESQNRO2,Peroxy radicals from SESQ reaction with nitrate radicals SESQRO2,Peroxy radicals from SESQ reaction with OH SLOWROC,Slowly reacting ROC with kOH< 3.5x10-13 cm3 s-1 SO2,Sulfur dioxide SULF,Sulfuric acid SULRXN,Precursor of Aerosol Sulfate (tracking species) TOL,Toluene TOLP,Peroxy radicals formed from TOL UALD,Unsaturated aldehydes UALP,Peroxy radicals formed from UALD XO2,Accounts for addition NO to NO2 conversions (tracking species) XYE,O- and p-xylene and other less reactive volatile aromatics with kOH < 1.46x10-11 cm3 s-1 XYEP,Peroxy radicals formed from XYE XYM,M-xylene and other more reactive volatile aromatics with kOH > 1.46x10-11 cm3 s-1 XYMP,Peroxy radicals formed from XYM HCL,Hydrochloric acid NH3,Ammonia ASO4,Total sulfur IV as sulfate ANH4,Ammonium ion ANO3,Nitrate ion ASOAT,An empirical SOA AGLY,SOA from reactive uptake of glyoxal on particles TRPN,Terpene nitrates AORGC,SOA from cloud processing of GLY and MGLY AEC,Elemental carbon AOTHR,Primary unspeciated fine PM AFE,Iron ion AAL,Aluminum ion ASI,Silicon ATI,Titanium ACA,Calcium ion AMG,Magnesium ion AK,Potassium ion AMN,Manganese ion ACORS,Primary unspeciated coarse PM ASOIL,Lumped crustal species AORGH2O,Water associated with particulate organic compounds AH2O,Water associated with particulate inorganic compounds AH3OP,Hydronium ion tracer ANA,Sodium ion ACL,Chloride ion ASEACAT,Sea spray cations APOC,Primary organic carbon (legacy) APNCOM,Primary non-carbon organic matter (legacy) AISO3NOS,Non-sulfated SOA from IEPOX uptake AISO3OS,Organosulfate SOA from IEPOX uptake NUM,Number of particles SRF,Surface area of particles OP3,Semivolatile organic peroxide IEPOXP,IEPOX intermediate (tracking species) ATRPN,TRPN and its hydrolysis products AISON,ISON and its hydrolysis products IHN,Isoprene-derived hydroxy nitrates INO2,Isoprene nitrate-derived peroxy radicals IPN,Isoprene-derived peroxy nitrates IPC,Isoprene-derived hydroperoxyenals (HPALD) ================================================ FILE: CCTM/src/MECHS/cracmm1_aq/mech_cracmm1_aq.def ================================================ !! CRACMM version 1.0 mechanism developed 2021 by USEPA !! CRACMM builds upon RACM2 and RACM !! ********************************************************************** !! FILE: RACM2.5M4.mch - update MACR scheme with geos-chem !! DATE: Sept 4, 2012 - update MVK + O3 rxn !! VERSION: Final Frozen Version - all updates from reviewers !! ID: RACM Version 2.5M1 - updates from IUPAC JAN 2008 !! LAST UPDATE: Sept 4, 2012 !! -------------------------------------------------------------------- !! Based on REGIONAL ATMOSPHERIC CHEMISTRY MECHANISM (RACM) Version 1.3 !! Reference: W.R. Stockwell, F. Kirchner, M. Kuhn, and S. Seefeld, "A !! New Mechanism for Regional Atmospheric Chemistry Modeling", J. of !! Geophys. Res., 1997. !! -------------------------------------------------------------------- !! FOR MORE INFORMATION REGARDING THIS MECHANISM CONTACT: !! Wendy S. Goliff !! CE-CERT !! UC Riverside !! 1084 Columbia Ave !! Riverside, CA 92507 !! E-MAIL: wendyg@cert.ucr.edu !! Telephone: (951) 781-5665 !! FAX: !! OR !! William R. Stockwell !! Department of Chemistry, Room 120 !! Howard University !! 525 College Street, NW !! Washington DC 20059 !! E-MAIL: William.R.Stockwell@gmail.com !! Telephone: (202) 806-6913 !! FAX: (202) 806-5442 ! ********************************************************************** ! The RACM2 mechanism is based upon the earlier Regional Atmospheric ! Chemistry Mechanism (RACM) mechanism. It is intended to be valid for ! conditions ranging from remote to polluted and from the Earth's ! surface through the upper troposphere. The RACM2 mechanism includes ! 356 reactions and 117 total species: 17 stable inorganic species, 4 ! inorganic intermediates, 54 stable organic species (4 of these are ! primarily of biogenic origin) and 42 organic intermediates. ! ********************************************************************** ! ********************************************************************** ! Reformatted by Golam Sarwar in September 2012 for making it compatible with CMAQ ! Following species have been removed from the product list since these are used as constants in CMAQ - CH4, H2, O2 ! Following species have been removed from the product list since these are used as input to CMAQ - H2O ! Following species have been removed from the product list since CMAQ does not track these species - CO2 ! ! ! Modified for incorporating secondary sulfate and SOA mechanism ! Added SULRXN - counter species for aerosol from SO2 + OH reaction ! Added ISOPRXN - counter species for aerosol from ISO + OH reaction ! Added TRPRXN - counter species for aerosol from API and LIM ! Added TOLRO2, XYLRO2, BENZRO2 - first generation products from TOL, XYL and BEN that further react with NO and NO2 to produce SVOC ! Added two reactions for TOLRO2, added TOLNRXN, TOLHRXN - counter species for aerosol from TOL ! Added two reactions for XYLRO2, added XYLNRXN, XYLHRXN - counter species for aerosol from XYL and XYO ! Added two reactions for BENZRO2 added BNZNRXN, BNZHRXN - counter species for aerosol from BEN ! Added three reactions for SESQ from sesquiterpene, added SESQRXN - counter species for aerosol from SESQ ! BEN is changed to BENZENE since SOA module is expecting BENZENE, not BEN ! ADDED ALK5 FOR SOA PRODUCTION from HC8 ! ! Rate constant for R051 has a special expression ! ! Revised the rate constant of R65 based on IUPAC2010 ! ! Wendy Goliff corrected type errors in R110 and R111 ! ! B.Hutzell 07/10/14 ! added inorganic heterogeneous reactions for N2O5 and NO2, oligomerization reactions for ! SOA species and aging reactions for primary organic carbon and non-carbon aerosol species ! B.Hutzell 11/3/14 ! -changed ALK5RXN yield in reaction from 1.0 to 0.47 based on SOA updates ! suggested by H. Pye's for cb05e51_ae6_aq ! -Modified by splitting oligomerization into two reactions: one for each ! Alkene SOA species. The new species were introduced in cb05e51_ae6_aq ! Golam Sarwar 12/02/14 ! -Added a simple halogen chemistry over sea-water ! Golam Sarwar 6/25/15 ! -Revised the simple halogen chemistry over sea-water using results of two-way CMAQ model and detailed halogen chemistry ! Golam Sarwar 6/29/15 ! - Updated SOA formation; see CB05 changes done by Havala Pye for details ! - Added ISOPRXN counter to ISO + NO3 reaction to add SOA formation ! - Added SOAALK + OH reaction for SOA production and removed ALK5RXN from R075 ! - Added Naphthalene reaction for SOA ! - Added heterogeneous uptake of IEPOX on acidic aerosol ! - Yield of XYLRO2 in R083 is reduced to 0.98 to prevent double counting of SOA production from XYM since naphthalene is also included in XYM ! - 0.98 is the emission ratio of (XYM-NAPTH)/XYM for July 2011 ! 05-25-17 B. Hutzell ! 1. updated the oligomerization reactions to be consistent with the ! saprc07tic_ae6_aq mechanism. ! 03-04-21 G. Sarwar ! updated !------------------------------------------------------------------------------ ! CRACMMv1.0 modifications ! - XYO and XYP combined and replaced with XYE (R084c). Retains products of XYO ! (same as XYP) but decreases kOH to surrogate (ethylbenzene) value. ! Major contributors ethylbenzene and o-xylene. ! - renamed BENZENE to BEN for greater consistency in name length ! - added HAP placeholder chemistry for BDE13, ACRO. NAPH already present. ! - added PROG based on Coggon et al. PNAS 2021 and ! MCM http://mcm.york.ac.uk/browse.htt?species=PROPGLY ! - Photolysis updates added per B. Hutzell ! - FURAN chemistry added based on Wang et al. JGR 2021, Schwantes, Coggon ! - SESQ chemistry added based on MCM per H. Pye ! - Phenolic (PHEN, CSL) SOA added per H. Pye ! - Monoterpene nitrates added per B. Place ! - ACRO, BDE13 chemistry added per E. D'Ambro ! - Oxygenated ROC (ROCOXY) chemistry added per B. Murphy ! - Alkane ROC (ROCALK) chemistry added per K. Seltzer ! - HC8 replaced with HC10 following ROCALK template by H. Pye ! - Aromatic chemistry (ROCARO, NAPH, BTX) added per H. Pye !------------------------------------------------------------------------------ ! 10-18-21 G. Sarwar ! updated rate constants for inorganic reactions and three organic reactions (R70-R71) ! added one photolysis reaction (R014a), updated reaction products for R016 and R017 ! updated photolysis rate coefficients for CH3COCH3, MEK, KET, ALD, HCHO !------------------------------------------------------------------------------ CRACMM1_AQ ELIMINATE = XN; XC; CO2; END ELIMINATE REACTIONS[CM] = O3 = O3P # 1.0/; O3 = O1D # 1.0/; H2O2 = 2.0*HO # 1.0/; NO2 = O3P + NO # 1.0/; NO3 = NO # 1.0/; NO3 = O3P + NO2 # 1.0/; HONO = HO + NO # 1.0/; HNO3 = HO + NO2 # 1.0/; HNO4 = 0.20*HO + 0.80*HO2 + 0.80*NO2 + 0.20*NO3 # 1.0/; HCHO = CO # 1.0/; HCHO = HO2 + HO2 + CO # 1.0/; ACD = HO2 + MO2 + CO # 1.0/; ALD = HO2 + ETHP + CO # 1.0/; ACT = MO2 + ACO3 # 1.0/; ACT = 2.0*MO2 + CO # 1.0/; UALD = 1.22*HO2 + 0.784*ACO3 + 1.22*CO + 0.35*HCHO + 0.434*ALD + 0.216*KET # 1.0/; PINAL = HO2 + HC10P + CO # 1.0/; LIMAL = HO2 + HC10P + CO # 1.0/; MEK = 0.10*MO2 + ETHP + 0.9*ACO3 + 0.1*CO # 1.0/; KET = 1.5*ETHP + 0.5*ACO3 + 0.5*CO # 1.0/; HKET = HO2 + ACO3 + HCHO # 1.0/; MACR = 0.34*HO + 0.66*HO2 + 0.67*ACO3 + 0.33*MACP + 0.34*XO2 + 0.67*CO + 0.67*HCHO # 1.0/; MVK = 0.3*MO2 + 0.3*MACP + 0.7*CO + 0.7*UALD # 1.0/; GLY = 2*CO # 1.0/; GLY = HCHO + CO # 1.0/; GLY = 2*HO2 + 2*CO # 1.0/; MGLY = HO2 + ACO3 + CO # 1.0/; DCB1 = 1.5*HO2 + 0.25*ACO3 + 0.2*XO2 + CO + 0.5*GLY + 0.5*MGLY # 1.0/; DCB2 = 1.5*HO2 + 0.25*ACO3 + 0.2*XO2 + CO + 0.5*GLY + 0.5*MGLY # 1.0/; BALD = CHO + HO2 + CO # 1.0/; OP1 = HO + HO2 + HCHO # 1.0/; OP2 = HO + HO2 + ALD # 1.0/; OPB = HO + HO2 + ALD # 1.0/; OP3 = HO + HO2 + ALD # 1.0/; PAA = HO + MO2 # 1.0/; ONIT = HO2 + NO2 + 0.20*ALD + 0.80*KET # 1.0/; PAN = ACO3 + NO2 # 1.0/; PAN = MO2 + NO3 # 1.0/; O3 + HO = HO2 # 1.7E-12 @ 940.; O3 + HO2 = HO # 1.0E-14 @ 490.; O3 + NO = NO2 # 3.0E-12 @ 1500.; O3 + NO2 = NO3 # 1.2E-13 @ 2450.; O3P + O2 + M = O3 # 6.10E-34 ^ -2.4; O3P + O3 = # 8.0E-12 @ 2060.; O1D + O2 = O3P # 3.3E-11 @ -55.; O1D + N2 = O3P # 2.15E-11 @ -110.; O1D + H2O = 2.0*HO # 1.63E-10 @ -60.0; H2 + HO = HO2 # 2.80E-12 @ 1800.; HO + HO2 = # 4.8E-11 @ -250.; HO2 + HO2 = H2O2 %3 # 3.0E-13 @ -460. & 2.1E-33 @ -920.; HO2 + HO2 + H2O = H2O2 %3 # 4.20E-34 @ -2660. & 2.94E-54 @ -3120.; H2O2 + HO = HO2 # 1.8E-12 @ 0.; NO + O3P = NO2 # 9.1E-32 ^ -1.5 & 3.0E-11 ^ 0.0 ; NO + HO = HONO # 7.1E-31 ^ -2.6 & 3.6E-11 ^ -0.1; NO + HO2 = NO2 + HO # 3.44E-12 @ -260.; NO + HO2 = HNO3 %3 # 6.095e-14^-1.0@-270.0& 6.857e-34^1.0@-270.0& -5.968e-14@-270.0; NO + NO + O2 = 2.0*NO2 # 4.25E-39 @ -663.5; HONO + HO = NO2 # 3.0E-12 @ -250.; NO2 + O3P = NO # 5.3E-12 @ -200.; NO2 + O3P = NO3 # 3.4E-31 ^ -1.6 & 2.3E-11 ^ -0.2; NO2 + HO = HNO3 # 1.80E-30 ^ -3.0 & 2.80E-11 ^ 0.0; HNO3 + HO = NO3 %2 # 2.4E-14 @ -460 & 2.7E-17 @ -2199 & 6.5E-34 @ -1335; NO3 + HO = HO2 + NO2 # 2.0E-11; NO3 + HO2 = 0.7*HO + 0.7*NO2 + 0.3*HNO3 # 3.50E-12; NO3 + NO = 2.0*NO2 # 1.7E-11 @ -125.; NO3 + NO2 = NO + NO2 # 4.35E-14 @ 1335.; NO3 + NO3 = 2.0*NO2 # 8.5E-13 @ 2450.; NO3 + NO2 = N2O5 # 2.40E-30 ^ -3.0 & 1.6E-12 ^ +0.1; N2O5 = NO2 + NO3 # 5.80E-27 @ -10840.0 *E; N2O5 + H2O = 2.0*HNO3 # 1.0E-22; NO2 + HO2 = HNO4 # 1.9E-31 ^ -3.4 & 4.0E-12 ^ -0.3; HNO4 = HO2 + NO2 # 2.10E-27 @ -10900.0 *E; HNO4 + HO = NO2 # 4.50E-13 @ -610.; SO2 + HO = HO2 + SULF + SULRXN # 2.9E-31 ^ -4.1 & 1.7E-12 ^ +0.2; CO + HO = HO2 %3 # 1.44E-13 @ 0.0 & 2.74E-33 @ 0.0; CH4 + HO = MO2 # 2.45E-12 @ 1775.; ETH + HO = ETHP # 7.66E-12 @ 1020.; HC3 + HO = HC3P + 0.0000281*ASOATJ # 7.68E-12 @ 370.; HC5 + HO = HC5P + 0.00134*ASOATJ # 1.01E-11 @ 245.; ETE + HO = ETEP # 1.0E-28 ^ -4.5 & 8.8E-12 ^ -0.85; OLT + HO = OLTP # 5.72E-12 @ -500.; OLI + HO = OLIP # 1.33E-11 @ -500.; ACE + HO = 0.650*HO + 0.350*HO2 + 0.350*CO + 0.650*GLY + 0.350*ORA1 # 5.5E-30 ^ 0.0 & 8.3E-13 ^ 2.0; ! MCM-based chemistry for aromatics, RACM2 rates for BEN, TOL, XYM BEN + HO = 0.4700*BENP + 0.5300*PHEN + 0.5300*HO2 # 2.33E-12 @ 193.; TOL + HO = 0.8200*TOLP + 0.1800*CSL + 0.1800*HO2 # 1.81E-12 @ -354.; XYM + HO = 0.8300*XYMP + 0.1700*CSL + 0.1700*HO2 # 2.33E-11; XYE + HO = 0.8200*XYEP + 0.1800*CSL + 0.1800*HO2 # 7.16E-12; ISO + HO = ISOP # 2.70E-11 @ -390.; API + HO = 0.975*APIP1 + 0.025*APIP2 # 1.21E-11 @ -440.; LIM + HO = 0.945*LIMP1 + 0.055*LIMP2 # 4.20E-11 @ -401.; PINAL + HO = 0.23*PINALP + 0.77*RCO3 # 5.20E-12 @ -600.; LIMAL + HO = 0.70*LIMALP + 0.30*RCO3 # 1.00E-10; HCHO + HO = HO2 + CO # 5.50E-12 @ -125.; ACD + HO = ACO3 # 4.70E-12 @ -345.; ALD + HO = RCO3 # 4.90E-12 @ -405.; ACT + HO = ACTP # 4.56E-14 ^ 3.65 @ 427; MEK + HO = MEKP # 1.5E-12 @ 90.; KET + HO = KETP # 2.8E-12 @ -10.; HKET + HO = HO2 + MGLY # 3.0E-12; MACR + HO = 0.57*MACP + 0.43*MCP # 8.00E-12 @ -380.; MVK + HO = MVKP # 2.60E-12 @ -610.; UALD + HO = 0.313*ACO3 + 0.687*UALP # 5.77E-12 @ -533.; GLY + HO = HO2 + 2.0*CO # 1.1E-11; MGLY + HO = ACO3 + CO # 9.26E-13 @ -830.; DCB1 + HO = 0.52*HO2 + 0.33*CO + 0.40*ALD + 0.78*KET + 0.10*GLY + 0.01*MGLY # 2.8E-11 @ -175.; DCB2 + HO = 0.52*HO2 + 0.33*CO + 0.13*MEK + 0.10*GLY + 0.01*MGLY + 0.78*OP2 # 2.8E-11 @ -175.; DCB3 + HO = 0.56*HO2 + 0.21*MACP + 0.11*CO + 0.27*GLY + 0.01*MGLY + 0.79*OP2 # 1.00E-11; BALD + HO = BALP # 5.32E-12 @ -243.; PHEN + HO = 0.152*ASOATJ + 0.619*HO2 + 0.170*ADDC + 0.059*CHO + 0.619*MCT # 6.75E-12 @ -405.; CSL + HO = 0.200*ASOATJ + 0.584*HO2 + 0.160*ADDC + 0.056*CHO + 0.584*MCT # 4.65E-11 @ 0.0; MCT + HO = MCTO # 2.05E-10 @ 0.0; MOH + HO = HO2 + HCHO # 2.85E-12 @ 345.; EOH + HO = HO2 + ACD # 3.0E-12 @ -20.; ROH + HO = HO2 + 0.719*ALD + 0.184*ACD # 2.6E-12 @ -200.; ETEG + HO = HO2 + ALD # 1.47E-11; OP1 + HO = 0.35*HO + 0.65*MO2 + 0.35*HCHO # 2.9E-12 @ -190.; OP2 + HO = 0.01*HO + 0.44*HC3P + 0.07*XO2 + 0.08*ALD + 0.41*KET # 3.40E-12 @ -190.0; OPB + HO = 0.01*HO + 0.44*HC10P + 0.07*XO2 + 0.08*ALD + 0.41*KET # 3.40E-12 @ -190.0; OP3 + HO = 0.01*HO + 0.44*HC10P + 0.07*XO2 + 0.08*ALD + 0.41*KET # 3.40E-12 @ -190.0; ISHP + HO = HO + MACR + 0.904*IEPOX # 1.0E-10; MAHP + HO = MACP # 3.0E-11; ORA1 + HO = HO2 # 4.5E-13; ORA2 + HO = 0.64*MO2 + 0.36*ORAP # 4.0E-14 @ -850.; PAA + HO = 0.35*HO + 0.65*ACO3 + 0.35*XO2 + 0.35*HCHO # 2.93E-12 @ -190.; PAN + HO = XO2 + NO3 + HCHO # 4.0E-14; PPN + HO = XO2 + NO3 + HCHO # 4.0E-14; MPAN + HO = NO2 + HKET # 3.2E-11; ONIT + HO = HC3P + NO2 # 5.31E-12 @ 260.; TRPN + HO = HOM # 4.80E-12; NALD + HO = NO2 + XO2 + HKET # 5.6E-12 @ -270.; ISON + HO = NALD + 0.07*HKET + 0.07*HCHO # 1.3E-11; ETE + O3 = 0.08*HO + 0.15*HO2 + 0.43*CO + HCHO + 0.37*ORA1 # 9.14E-15 @ 2580.; OLT + O3 = 0.22*HO + 0.32*HO2 + 0.08*MO2 + 0.06*ETHP + 0.04*HC3P + 0.02*HC5P + 0.068*H2O2 + 0.43*CO + 0.02*ETH + 0.015*HC3 + 0.006*HC5 + 0.032*BEN + 0.56*HCHO + 0.01*ACD + 0.44*ALD + 0.03*ACT + 0.02*BALD + 0.06*MEK + 0.01*HKET + 0.03*ORA1 + 0.06*ORA2 # 4.33E-15 @ 1800.0; OLI + O3 = 0.46*HO + 0.07*HO2 + 0.32*MO2 + 0.07*ETHP + 0.04*HC3P + 0.09*ACO3 + 0.37*CO + 0.026*H2O2 + 0.01*ETH + 0.01*HC3 + 0.09*HCHO + 0.457*ACD + 0.73*ALD + 0.11*ACT + 0.017*KET + 0.044*HKET + 0.017*ORA2 # 4.40E-15 @ 845.0; ISO + O3 = 0.25*HO + 0.25*HO2 + 0.08*MO2 + 0.1*ACO3 + 0.1*MACP + 0.09*H2O2 + 0.14*CO + 0.58*HCHO + 0.461*MACR + 0.189*MVK + 0.28*ORA1 + 0.153*OLT # 7.86E-15 @ 1913.; API + O3 = 0.90*HO + 0.90*APIP1 + 0.05*APIP2 + 0.05*PINAL + 0.05*H2O2 + 0.14*CO # 5.0E-16 @ 530.; LIM + O3 = 0.84*HO + 0.84*LIMP1 + 0.11*LIMP2 + 0.05*LIMAL + 0.05*H2O2 + 0.14*CO # 2.95E-15 @ 783.; LIMAL + O3 = 0.04*HO + 0.67*HC10P + 0.79*HCHO + 0.33*KET + 0.04*HO2 + 0.20*CO # 8.30E-18; TRPN + O3 = HOM # 1.67E-16; MACR + O3 = 0.19*HO + 0.14*HO2 + 0.10*ACO3 + 0.22*CO + 0.50*MGLY + 0.45*ORA1 # 1.36E-15 @ 2112.; MVK + O3 = 0.16*HO + 0.11*HO2 + 0.28*ACO3 + 0.01*XO2 + 0.56*CO + 0.10*HCHO + 0.54*MGLY + 0.07*ORA1 + 0.07*ORA2 + 0.10*ALD # 8.50E-16 @ 1520.; UALD + O3 = 0.100*HO + 0.072*HO2 + 0.008*MO2 + 0.002*ACO3 + 0.10*XO2 + 0.243*CO + 0.080*HCHO + 0.420*ACD + 0.028*KET + 0.491*GLY + 0.003*MGLY + 0.044*ORA1 # 1.66E-18; DCB1 + O3 = 0.05*HO + HO2 + 0.60*RCO3 + 0.60*XO2 + 1.50*CO + 0.05*HCHO + 0.05*GLY + 0.08*MGLY + 0.65*OP2 # 2.0E-16; DCB2 + O3 = 0.05*HO + HO2 + 0.60*RCO3 + 0.60*XO2 + 1.50*CO + 0.05*HCHO + 0.05*GLY + 0.08*MGLY + 0.70*DCB1 + 0.65*OP2 # 2.0E-16; DCB3 + O3 = 0.05*HO + HO2 + 1.50*CO + 0.48*GLY + 0.70*DCB1 + 0.25*ORA1 + 0.25*ORA2 + 0.11*PAA # 9.0E-17; MCTO + O3 = MCTP # 2.86E-13; ETE + NO3 = 0.80*OLNN + 0.20*OLND # 4.392E-13^2.0@2282.0; OLT + NO3 = 0.43*OLNN + 0.57*OLND # 1.79E-13 @ 450.; OLI + NO3 = 0.11*OLNN + 0.89*OLND # 8.64E-13 @ -450.; ISO + NO3 = ISON # 3.03E-12 @ 446.; API + NO3 = 0.975*APINP1 + 0.025*APINP2 # 1.19E-12 @ -490.; LIM + NO3 = 0.945*LIMNP1 + 0.055*LIMNP2 # 1.22E-11; TRPN + NO3 = HOM # 3.15E-14 @ 448.; HCHO + NO3 = HO2 + CO + HNO3 # 2.0E-12 @ 2440.; ACD + NO3 = ACO3 + HNO3 # 1.4E-12 @ 1900.; ALD + NO3 = RCO3 + HNO3 # 3.76E-12 @ 1900.; MACR + NO3 = 0.68*HCHO + 0.32*MACP + 0.68*XO2 + 0.68*MGLY + 0.32*HNO3 + 0.68*NO2 # 3.40E-15; UALD + NO3 = HO2 + XO2 + 0.668*CO + 0.332*HCHO + 0.332*ALD + ONIT # 5.02E-13 @ 1076.; GLY + NO3 = HO2 + 2.0*CO + HNO3 # 2.90E-12 @ 1900.; MGLY + NO3 = ACO3 + CO + HNO3 # 3.76E-12 @ 1900.; PHEN + NO3 = 0.152*ASOATJ + 0.339*CHO + 0.85*ADDC + 0.424*ADCN + 0.424*HNO3 # 3.78E-12; CSL + NO3 = 0.200*ASOATJ + 0.320*CHO + 0.08*ADDC + 0.4*ADCN + 0.4*HNO3 # 1.06E-12; MCT + NO3 = MCTO + HNO3 # 2.01E-10; MPAN + NO3 = MACP + NO2 # 2.2E-14 @ 500.; PINALP = HOM # 1.0; LIMALP = HOM # 1.0; ACO3 + NO2 = PAN # 9.7E-29 ^ -5.6 & 9.3E-12 ^ -1.5; PAN = ACO3 + NO2 # 9.00E-29 @ -14000.0 *E; RCO3 + NO2 = PPN # 9.7E-29 ^ -5.6 & 9.3E-12 ^ -1.5; PPN = RCO3 + NO2 # 9.00E-29 @ -14000.0 *E; MACP + NO2 = MPAN # 2.80E-12 @ -181.; MPAN = MACP + NO2 # 1.60E+16 @ 13486.; MO2 + NO = HO2 + NO2 + HCHO # 2.80E-12 @ -300.; ETHP + NO = HO2 + NO2 + ACD # 2.6E-12 @ -365.; HC3P + NO = 0.660*HO2 + 0.131*MO2 + 0.048*ETHP + 0.089*XO2 + 0.935*NO2 + 0.504*ACD + 0.132*ALD + 0.165*ACT + 0.042*MEK + 0.065*ONIT # 4.0E-12; HC5P + NO = 0.200*HO2 + 0.051*MO2 + 0.231*ETHP + 0.235*XO2 + 0.864*NO2 + 0.018*HCHO + 0.045*ACD + 0.203*ALD + 0.033*MEK + 0.217*ACT + 0.033*KET + 0.272*HKET + 0.136*ONIT # 4.0E-12; ETEP + NO = HO2 + NO2 + 1.6*HCHO + 0.2*ALD # 9.0E-12; OLTP + NO = 0.78*HO2 + 0.97*NO2 + 0.78*HCHO + 0.012*ACD + 0.44*ALD + 0.06*ACT + 0.13*MEK + 0.03*ONIT # 4.00E-12; OLIP + NO = 0.83*HO2 + 0.95*NO2 + 0.81*ACD + 0.68*ALD + 0.20*ACT + 0.09*KET + 0.02*HKET + 0.05*ONIT # 4.00E-12; ! MCM-based aromatics with Lu et al. updates BENP + NO = 0.0000*ONIT + 0.0012*VROCP4OXY2 + 0.0008*VROCN1OXY6 + 0.9980*NO2 + 0.9980*HO2 + 0.0000*BALD + 0.9980*GLY + 0.4990*FURANONE + 0.2495*DCB2 + 0.2495*DCB3 # 2.7E-12 @ -360.; TOLP + NO = 0.0002*ONIT + 0.0013*VROCP4OXY2 + 0.0006*VROCN1OXY6 + 0.9980*NO2 + 0.9980*HO2 + 0.0852*BALD + 0.5477*GLY + 0.3651*MGLY + 0.3651*FURANONE + 0.5477*DCB1 # 2.7E-12 @ -360.; XYMP + NO = 0.0001*ONIT + 0.0013*VROCP3OXY2 + 0.0006*VROCP0OXY4 + 0.9980*NO2 + 0.9980*HO2 + 0.0481*BALD + 0.7029*GLY + 0.2470*MGLY + 0.3515*FURANONE + 0.5984*DCB2 # 2.7E-12 @ -360.; XYEP + NO = 0.0002*ONIT + 0.0013*VROCP3OXY2 + 0.0006*VROCP0OXY4 + 0.9980*NO2 + 0.9980*HO2 + 0.0852*BALD + 0.5477*GLY + 0.3651*MGLY + 0.4564*FURANONE + 0.4564*DCB2 # 2.7E-12 @ -360.; ISOP + NO = 0.880*HO2 + 0.880*NO2 + 0.200*HCHO + 0.280*MACR + 0.440*MVK + 0.120*ISON + 0.021*GLY + 0.029*HKET + 0.027*ALD # 2.43E-12 @ -360.; APIP1 + NO = 0.82*HO2 + 0.82*NO2 + 0.82*PINAL + 0.18*TRPN # 4.0E-12; APIP2 + NO = 0.82*HO + 0.82*NO2 + HOM # 4.0E-12; APINP1 + NO = 2*NO2 + PINAL # 4.0E-12; APINP2 + NO = 0.82*NO2 + 0.82*HO + HOM # 4.0E-12; LIMP1 + NO = 0.77*HO2 + 0.77*NO2 + 0.49*LIMAL + 0.28*HCHO + 0.28*UALD + 0.23*TRPN # 4.0E-12; LIMP2 + NO = 0.77*HO + 0.77*NO2 + HOM # 4.0E-12; LIMNP1 + NO = 2*NO2 + LIMAL # 4.0E-12; LIMNP2 + NO = 0.77*NO2 + 0.77*HO + HOM # 4.0E-12; PINALP + NO = 0.95*HO2 + 0.95*NO2 + 0.05*TRPN + 0.95*HCHO + 0.95*KET # 2.7E-12 @ -360.; LIMALP + NO = 0.94*HO2 + 0.94*NO2 + 0.06*TRPN + 0.94*HCHO + 0.94*KET # 2.7E-12 @ -360.; ACO3 + NO = MO2 + NO2 # 8.1E-12 @ -270.; RCO3 + NO = ETHP + NO2 # 8.1E-12 @ -270.; ACTP + NO = ACO3 + NO2 + HCHO # 2.9E-12 @ -300.; MEKP + NO = 0.67*HO2 + NO2 + 0.33*HCHO + 0.67*DCB1 # 4.0E-12; KETP + NO = 0.77*HO2 + 0.23*ACO3 + 0.16*XO2 + NO2 + 0.46*ALD + 0.54*MGLY # 4.0E-12; MACP + NO = 0.65*MO2 + 0.35*ACO3 + NO2 + 0.65*CO + 0.65*HCHO # 2.54E-12 @ -360.; MCP + NO = NO2 + 0.50*HO2 + 0.50*HCHO + HKET # 2.54E-12 @ -360.; MVKP + NO = 0.3*HO2 + 0.7*ACO3 + 0.7*XO2 + NO2 + 0.3*HCHO + 0.7*ALD + 0.3*MGLY # 2.54E-12 @ -360.; UALP + NO = HO2 + NO2 + 0.61*CO + 0.03*HCHO + 0.27*ALD + 0.18*GLY + 0.7*KET + 0.21*MGLY # 2.54E-12 @ -360.; BALP + NO = BAL1 + NO2 # 4.0E-12; BAL1 + NO = BAL2 + NO2 # 4.0E-12; ADDC + NO = HO2 + NO2 + 0.32*HKET + 0.68*GLY + 0.68*OP2 # 2.7E-12 @ -360.; MCTP + NO = MCTO + NO2 # 2.7E-12 @ -360.; ORAP + NO = NO2 + GLY + HO2 # 4.0E-12; OLNN + NO = NO2 + HO2 + ONIT # 4.0E-12; OLND + NO = 2.00*NO2 + 0.287*HCHO + 1.24*ALD + 0.464*KET # 4.0E-12; ADCN + NO = 2.0*NO2 + GLY + OP2 # 2.7E-12 @ -360.; XO2 + NO = NO2 # 4.0E-12; BAL2 + NO2 = ONIT # 2.0E-11; CHO + NO2 = ONIT # 2.0E-11; MCTO + NO2 = ONIT # 2.08E-12; MO2 + HO2 = OP1 # 4.1E-13 @ -750.; ETHP + HO2 = OP2 # 7.5E-13 @ -700.; HC3P + HO2 = OP2 # 1.66E-13 @ -1300.; HC5P + HO2 = OP2 # 1.66E-13 @ -1300.; ETEP + HO2 = OP2 # 1.90E-13 @ -1300.; OLTP + HO2 = OP2 # 1.66E-13 @ -1300.; OLIP + HO2 = OP2 # 1.66E-13 @ -1300.; ! MCM-based aromatics BENP + HO2 = 0.0000*OP2 + 0.6021*OP2 + 0.3979*VROCN1OXY6 # 2.91E-13 @ -1300.; TOLP + HO2 = 0.0854*OP2 + 0.6341*OP2 + 0.2805*VROCN1OXY6 # 2.91E-13 @ -1300.; XYMP + HO2 = 0.0482*OP2 + 0.6747*OP3 + 0.2771*VROCP0OXY4 # 2.91E-13 @ -1300.; XYEP + HO2 = 0.0854*OP2 + 0.6341*OP3 + 0.2805*VROCP0OXY4 # 2.91E-13 @ -1300.; ISOP + HO2 = ISHP # 2.05E-13 @ -1300.; APIP1 + HO2 = OPB # 1.5E-11; APIP2 + HO2 = HOM # 1.5E-11; APINP1 + HO2 = TRPN # 1.5E-11; APINP2 + HO2 = HOM # 1.5E-11; LIMP1 + HO2 = OPB # 1.5E-11; LIMP2 + HO2 = HOM # 1.5E-11; LIMNP1 + HO2 = TRPN # 1.5E-11; LIMNP2 + HO2 = HOM # 1.5E-11; PINALP + HO2 = OPB # 2.91E-13 @ -1300.; LIMALP + HO2 = OPB # 2.91E-13 @ -1300.; ACO3 + HO2 = 0.44*HO + 0.44*MO2 + 0.15*ORA2 + 0.41*PAA # 4.3E-13 @ -1040.; RCO3 + HO2 = 0.44*HO + 0.44*ETHP + 0.15*ORA2 + 0.41*PAA # 4.3E-13 @ -1040.; ACTP + HO2 = 0.150*HO + 0.150*ACO3 + 0.150*HCHO + 0.850*OP2 # 1.15E-13 @ -1300.; MEKP + HO2 = OP2 # 1.15E-13 @ -1300.; KETP + HO2 = OP2 # 1.15E-13 @ -1300.; MACP + HO2 = MAHP # 1.82E-13 @ -1300.; MCP + HO2 = MAHP # 1.82E-13 @ -1300.; MVKP + HO2 = OP2 # 2.91E-13 @ -1300.; UALP + HO2 = OP2 # 2.91E-13 @ -1300.; ADDC + HO2 = OP2 # 3.75E-13 @ -980.; CHO + HO2 = CSL # 1.00E-11; MCTP + HO2 = OP2 # 3.75E-13 @ -980.; ORAP + HO2 = OP2 # 1.15E-13 @ -1300.; OLNN + HO2 = ONIT # 1.66E-13 @ -1300.; OLND + HO2 = ONIT # 1.66E-13 @ -1300.; ADCN + HO2 = OP2 # 3.75E-13 @ -980.; XO2 + HO2 = OP2 # 1.66E-13 @ -1300.; MO2 + MO2 = 0.74*HO2 + 1.37*HCHO + 0.63*MOH # 9.5E-14 @ -390.; ETHP + MO2 = HO2 + 0.75*HCHO + 0.75*ACD + 0.250*MOH + 0.250*EOH # 1.18E-13 @ -158.; HC3P + MO2 = 0.894*HO2 + 0.080*MO2 + 0.026*ETHP + 0.026*XO2 + 0.827*HCHO + 0.198*ALD + 0.497*KET + 0.050*GLY + 0.250*MOH + 0.250*ROH # 9.46E-14 @ -431.; HC5P + MO2 = 0.842*HO2 + 0.018*MO2 + 0.140*ETHP + 0.191*XO2 + 0.777*HCHO + 0.251*ALD + 0.618*KET + 0.250*MOH + 0.250*ROH # 1.0E-13 @ -467.; ETEP + MO2 = HO2 + 1.95*HCHO + 0.15*ALD + 0.250*MOH + 0.250*ETEG # 1.71E-13 @ -708.; OLTP + MO2 = HO2 + 1.50*HCHO + 0.705*ALD + 0.045*KET + 0.250*MOH + 0.250*ROH # 1.46E-13 @ -708.; OLIP + MO2 = HO2 + 0.750*HCHO + 1.28*ALD + 0.218*KET + 0.250*MOH + 0.250*ROH # 9.18E-14 @ -708.; ! MCM-based aromatics BENP + MO2 = 0.6800*HCHO + 1.3700*HO2 + 0.3200*MOH + 0.0000*BALD + 1.0000*GLY + 0.5000*FURANONE + 0.2500*DCB2 + 0.2500*DCB3 # 3.56E-14 @ -708.; TOLP + MO2 = 0.6800*HCHO + 1.2846*HO2 + 0.3200*MOH + 0.0854*BALD + 0.5488*GLY + 0.3659*MGLY + 0.3659*FURANONE + 0.5488*DCB1 # 3.56E-14 @ -708.; XYMP + MO2 = 0.6800*HCHO + 1.3218*HO2 + 0.3200*MOH + 0.0482*BALD + 0.7043*GLY + 0.2475*MGLY + 0.3522*FURANONE + 0.5996*DCB2 # 3.56E-14 @ -708.; XYEP + MO2 = 0.6800*HCHO + 1.2846*HO2 + 0.3200*MOH + 0.0854*BALD + 0.5488*GLY + 0.3659*MGLY + 0.4573*FURANONE + 0.4573*DCB2 # 3.56E-14 @ -708.; ISOP + MO2 = HO2 + 1.31*HCHO + 0.159*MACR + 0.250*MVK + 0.250*MOH + 0.250*ROH + 0.023*ALD + 0.018*GLY + 0.016*HKET # 3.4E-14 @ -221.; APIP1 + MO2 = HO2 + 0.680*HCHO + 0.600*PINAL + 0.070*KET + 0.320*MOH + 0.250*ROH # 3.56E-14 @ -708.; APIP2 + MO2 = HO2 + 0.750*HCHO + 0.250*MOH + HOM # 1.00E-10; APINP1 + MO2 = 0.37*HO2 + 0.860*NO2 + 0.680*HCHO + 0.860*PINAL + 0.320*MOH + 0.140*TRPN # 3.56E-14 @ -708.; APINP2 + MO2 = 0.75*HO2 + 0.750*NO2 + 0.250*MOH + 0.750*HCHO + HOM # 1.00E-10; LIMP1 + MO2 = HO2 + HCHO + 0.420*LIMAL + 0.300*KET + 0.320*MOH + 0.270*ROH # 3.56E-14 @ -708.; LIMP2 + MO2 = HO2 + 0.750*HCHO + 0.250*MOH + HOM # 1.00E-10; LIMNP1 + MO2 = 0.37*HO2 + 0.680*HCHO + 0.700*LIMAL + 0.700*NO2 + 0.320*MOH + 0.300*TRPN # 3.56E-14 @ -708.; LIMNP2 + MO2 = 0.75*HO2 + 0.750*HCHO + 0.750*NO2 + 0.250*MOH + HOM # 1.00E-10; ACO3 + MO2 = 0.9*HO2 + 0.9*MO2 + HCHO + 0.1*ORA2 # 2.0E-11 @ -500.; RCO3 + MO2 = 0.9*HO2 + 0.9*MO2 + HCHO + 0.1*ORA2 # 2.0E-11 @ -500.; ACTP + MO2 = 0.50*HO2 + 0.50*ACO3 + 1.50*HCHO + 0.25*MOH + 0.25*ROH + 0.125*ORA2 # 7.5E-13 @ -500.; MEKP + MO2 = 0.834*HO2 + HCHO + 0.334*DCB1 + 0.25*MOH + 0.25*ROH # 6.91E-13 @ -508.; KETP + MO2 = HO2 + 0.75*HCHO + 0.50*DCB1 + 0.25*MOH + 0.25*ROH # 6.91E-13 @ -508.; MACP + MO2 = 0.50*HO2 + 0.269*ACO3 + 0.500*CO + 1.66*HCHO + 0.067*ORA2 + 0.250*MO2 + 0.250*MOH + 0.250*ROH # 3.4E-14 @ -221.; MCP + MO2 = NO2 + HO2 + 1.50*HCHO + 0.50*HKET + 0.250*MOH + 0.250*ROH # 3.4E-14 @ -221.; MVKP + MO2 = HO2 + 1.16*ACO3 + 1.16*XO2 + 1.5*HCHO + 1.75*ALD + 0.500*MGLY + 0.250*MOH + 0.250*ROH + 0.292*ORA2 # 8.37E-14; UALP + MO2 = HO2 + 0.305*CO + 0.773*HCHO + 0.203*ALD + 0.525*KET + 0.135*GLY + 0.105*MGLY + 0.250*MOH + 0.250*ROH # 3.4E-14 @ -221.; BALP + MO2 = HO2 + BAL1 + HCHO # 3.56E-14 @ -708.; BAL1 + MO2 = HO2 + BAL2 + HCHO # 3.56E-14 @ -708.; ADDC + MO2 = 2.0*HO2 + HCHO + 0.32*HKET + 0.68*GLY + 0.68*OP2 # 3.56E-14 @ -708.; MCTP + MO2 = HO2 + MCTO + HCHO # 3.56E-14 @ -708.; ORAP + MO2 = HCHO + HO2 + GLY # 7.50E-13 @ -500.; OLNN + MO2 = 2.00*HO2 + HCHO + ONIT # 1.6E-13 @ -708.; OLND + MO2 = 0.500*HO2 + 0.500*NO2 + 0.965*HCHO + 0.930*ALD + 0.348*KET + 0.250*MOH + 0.250*ROH + 0.500*ONIT # 9.68E-14 @ -708.; ADCN + MO2 = HO2 + 0.7*NO2 + HCHO + 0.7*GLY + 0.7*OP2 + 0.3*ONIT # 3.56E-14; XO2 + MO2 = HO2 + HCHO # 5.99E-15 @ -1510.; ETHP + ACO3 = 0.500*HO2 + 0.5*MO2 + ACD + 0.5*ORA2 # 1.03E-12 @ -211.; HC3P + ACO3 = 0.394*HO2 + 0.580*MO2 + 0.026*ETHP + 0.026*XO2 + 0.130*HCHO + 0.273*ALD + 0.662*KET + 0.067*GLY + 0.500*ORA2 # 6.9E-13 @ -460.; HC5P + ACO3 = 0.342*HO2 + 0.518*MO2 + 0.140*ETHP + 0.191*XO2 + 0.042*HCHO + 0.381*ALD + 0.824*KET + 0.500*ORA2 # 5.59E-13 @ -522.; ETEP + ACO3 = 0.5*HO2 + 0.5*MO2 + 1.6*HCHO + 0.2*ALD + 0.5*ORA2 # 9.48E-13 @ -765.; OLTP + ACO3 = 0.500*HO2 + 0.500*MO2 + HCHO + 0.940*ALD + 0.060*KET + 0.500*ORA2 # 8.11E-13 @ -765.; OLIP + ACO3 = 0.500*HO2 + 0.500*MO2 + 1.71*ALD + 0.290*KET + 0.500*ORA2 # 5.09E-13 @ -765.; ! MCM-based aromatics BENP + ACO3 = 0.7000*MO2 + 1.0000*HO2 + 0.3000*ORA2 + 0.0000*BALD + 1.0000*GLY + 0.5000*FURANONE + 0.2500*DCB2 + 0.2500*DCB3 # 7.4E-13 @ -765.; TOLP + ACO3 = 0.7000*MO2 + 0.9146*HO2 + 0.3000*ORA2 + 0.0854*BALD + 0.5488*GLY + 0.3659*MGLY + 0.3659*FURANONE + 0.5488*DCB1 # 7.4E-13 @ -765.; XYMP + ACO3 = 0.7000*MO2 + 0.9518*HO2 + 0.3000*ORA2 + 0.0482*BALD + 0.7043*GLY + 0.2475*MGLY + 0.3522*FURANONE + 0.5996*DCB2 # 7.4E-13 @ -765.; XYEP + ACO3 = 0.7000*MO2 + 0.9146*HO2 + 0.3000*ORA2 + 0.0854*BALD + 0.5488*GLY + 0.3659*MGLY + 0.4573*FURANONE + 0.4573*DCB2 # 7.4E-13 @ -765.; ISOP + ACO3 = 0.5*HO2 + 0.5*MO2 + 1.048*HCHO + 0.219*MACR + 0.305*MVK + 0.5*ORA2 # 8.4E-14 @ -221.; APIP1 + ACO3 = 0.63*HO2 + 0.7*MO2 + 0.6*PINAL + 0.3*ORA2 + 0.07*KET + 0.25*ROH # 7.4E-13 @ -765.; APIP2 + ACO3 = 0.5*HO + 0.5*MO2 + 0.5*ORA2 + HOM # 1.0E-10; APINP1 + ACO3 = 0.86*NO2 + 0.14*TRPN + 0.86*PINAL + 0.7*MO2 + 0.3*ORA2 # 7.4E-13 @ -765.; APINP2 + ACO3 = 0.5*NO2 + 0.5*MO2 + 0.5*ORA2 + HOM # 1.0E-10; LIMP1 + ACO3 = 0.63*HO2 + 0.7*MO2 + 0.42*LIMAL + 0.3*KET + 0.3*ORA2 + 0.32*HCHO + 0.27*ROH # 7.4E-13 @ -765.; LIMP2 + ACO3 = 0.5*HO + 0.5*MO2 + 0.5*ORA2 + HOM # 1.0E-10; LIMNP1 + ACO3 = 0.7*NO2 + 0.7*LIMAL + 0.3*TRPN + 0.7*MO2 + 0.3*ORA2 # 7.4E-13 @ -765.; LIMNP2 + ACO3 = 0.5*MO2 + 0.5*NO2 + 0.5*ORA2 + HOM # 1.0E-10; ACO3 + ACO3 = 2.0*MO2 # 2.5E-12 @ -500.; RCO3 + ACO3 = MO2 + ETHP # 2.5E-12 @ -500.; ACTP + ACO3 = 0.50*MO2 + 0.50*ACO3 + HCHO + 0.75*ORA2 # 7.51E-13 @ -565.; MEKP + ACO3 = 0.33*HO2 + 0.50*MO2 + 0.33*HCHO + 0.334*DCB1 + 0.50*ORA2 # 7.51E-13 @ -565.; KETP + ACO3 = 0.50*HO2 + 0.50*MO2 + 0.50*DCB1 + 0.50*ORA2 # 7.51E-13 @ -565.; MACP + ACO3 = 0.635*ORA2 + 0.50*MO2 + 0.269*ACO3 + 0.500*CO + HCHO # 8.4E-14 @ -221.; MCP + ACO3 = NO2 + 0.50*HO2 + HCHO + 0.5*HKET + 0.5*MO2 + 0.5*ORA2 # 8.4E-14 @ -221.; MVKP + ACO3 = 0.5*HO2 + 0.5*MO2 + 1.16*ACO3 + 1.16*XO2 + HCHO + 2.3*ALD + 0.5*MGLY + 1.083*ORA2 # 1.68E-12 @ -500.; UALP + ACO3 = 0.5*HO2 + 0.5*MO2 + 0.5*CO + 0.030*HCHO + 0.27*ALD + 0.7*KET + 0.18*GLY + 0.105*MGLY + 0.5*ORA2 # 1.68E-12 @ -500.; BALP + ACO3 = MO2 + BAL1 # 7.4E-13 @ -765.; BAL1 + ACO3 = MO2 + BAL2 # 7.4E-13 @ -765.; ADDC + ACO3 = 2.00*HO2 + MO2 + 0.32*HKET + 0.68*GLY + 0.68*OP2 # 7.4E-13 @ -708.; MCTP + ACO3 = HO2 + MO2 + MCTO # 7.4E-13 @ -708.; ORAP + ACO3 = MO2 + GLY # 7.51E-13 @ -565.; OLNN + ACO3 = HO2 + MO2 + ONIT # 8.85E-13 @ -765.; OLND + ACO3 = 0.500*MO2 + NO2 + 0.287*HCHO + 1.24*ALD + 0.464*KET + 0.500*ORA2 # 5.37E-13 @ -765.; ADCN + ACO3 = HO2 + MO2 + 0.7*NO2 + 0.7*GLY + 0.7*OP2 + 0.3*ONIT # 7.4E-13 @ -708.; XO2 + ACO3 = MO2 # 3.4E-14 @ -1560.; RCO3 + RCO3 = 2.0*ETHP # 2.50E-12 @ -500.0; MO2 + NO3 = HO2 + HCHO + NO2 # 1.20E-12; ETHP + NO3 = HO2 + NO2 + ACD # 1.2E-12; HC3P + NO3 = 0.254*HO2 + 0.140*MO2 + 0.092*XO2 + 0.503*ETHP + NO2 + 0.519*ACD + 0.147*ALD + 0.075*MEK + 0.095*ACT # 1.20E-12; HC5P + NO3 = 0.488*HO2 + 0.055*MO2 + 0.280*ETHP + 0.485*XO2 + NO2 + 0.024*HCHO + 0.241*ALD + 0.060*KET + 0.063*MEK + 0.247*ACT + 0.048*ACD + 0.275*HKET # 1.20E-12; ETEP + NO3 = HO2 + NO2 + 1.6*HCHO + 0.2*ALD # 1.2E-12; OLTP + NO3 = 0.47*ALD + 0.79*HCHO + 0.79*HO2 + NO2 + 0.18*MEK + 0.02*ACD + 0.09*ACT # 1.20E-12; OLIP + NO3 = 0.86*HO2 + 0.72*ALD + 0.11*KET + NO2 + 0.20*ACT + 0.85*ACD + 0.04*HKET # 1.20E-12; ! MCM-based aromatics BENP + NO3 = 1.0000*NO2 + 1.0000*HO2 + 0.0000*BALD + 1.0000*GLY + 0.5000*FURANONE + 0.2500*DCB2 + 0.2500*DCB3 # 2.3E-12; TOLP + NO3 = 1.0000*NO2 + 0.9146*HO2 + 0.0854*BALD + 0.5488*GLY + 0.3659*MGLY + 0.3659*FURANONE + 0.5488*DCB1 # 2.3E-12; XYMP + NO3 = 1.0000*NO2 + 0.9518*HO2 + 0.0482*BALD + 0.7043*GLY + 0.2475*MGLY + 0.3522*FURANONE + 0.5996*DCB2 # 2.3E-12; XYEP + NO3 = 1.0000*NO2 + 0.9146*HO2 + 0.0854*BALD + 0.5488*GLY + 0.3659*MGLY + 0.4573*FURANONE + 0.4573*DCB2 # 2.3E-12; ISOP + NO3 = HO2 + NO2 + 0.75*HCHO + 0.318*MACR + 0.500*MVK + 0.024*GLY + 0.033*HKET + 0.031*ALD # 1.2E-12; APIP1 + NO3 = HO2 + NO2 + ALD + KET # 1.2E-12; LIMP1 + NO3 = HO2 + NO2 + 0.385*OLI + 0.385*HCHO + 0.615*MACR # 1.2E-12; ACO3 + NO3 = MO2 + NO2 # 4.0E-12; RCO3 + NO3 = ETHP + NO2 # 4.0E-12; ACTP + NO3 = ACO3 + NO2 + HCHO # 1.2E-12; MEKP + NO3 = 0.67*HO2 + NO2 + 0.33*HCHO + 0.67*DCB1 # 1.2E-12; KETP + NO3 = HO2 + NO2 + DCB1 # 1.2E-12; MACP + NO3 = HCHO + 0.538*ACO3 + CO + NO2 # 1.2E-12; MCP + NO3 = NO2 + HO2 + HCHO + HKET # 1.2E-12; MVKP + NO3 = 0.30*HO2 + 0.70*ACO3 + 0.70*XO2 + NO2 + 0.30*HCHO + 0.70*ALD + 0.30*MGLY # 2.5E-12; UALP + NO3 = HO2 + NO2 + 0.61*CO + 0.03*HCHO + 0.27*ALD + 0.7*KET + 0.18*GLY + 0.21*MGLY # 2.5E-12; BALP + NO3 = BAL1 + NO2 # 2.5E-12; BAL1 + NO3 = BAL2 + NO2 # 2.5E-12; ADDC + NO3 = HO2 + NO2 + 0.32*HKET + 0.68*GLY + 0.68*OP2 # 1.2E-12; MCTP + NO3 = NO2 + MCTO # 1.2E-12; ORAP + NO3 = NO2 + GLY + HO2 # 1.2E-12; OLNN + NO3 = HO2 + NO2 + ONIT # 1.2E-12; OLND + NO3 = 2.00*NO2 + 0.287*HCHO + 1.24*ALD + 0.464*KET # 1.2E-12; ADCN + NO3 = 2.0*NO2 + GLY + OP2 # 1.2E-12; OLNN + OLNN = HO2 + 2.00*ONIT # 7.0E-14 @ -1000.; OLNN + OLND = 0.500*HO2 + 0.500*NO2 + 0.202*HCHO + 0.640*ALD + 0.149*KET + 1.50*ONIT # 4.25E-14 @ -1000.; OLND + OLND = NO2 + 0.504*HCHO + 1.21*ALD + 0.285*KET + ONIT # 2.96E-14 @ -1000.; XO2 + NO3 = NO2 # 1.2E-12; XO2 + RCO3 = ETHP # 2.5E-12 @ -500.; XO2 + XO2 = # 7.13E-17 @ -2950.; APIP2 + APIP1 = 0.96*HOM + 0.48*ROH + 0.48*PINAL + 0.48*HO + 0.48*HO2 + 0.04*ELHOM #1.00E-10; APIP2 + LIMP1 = 0.96*HOM + 0.48*ROH + 0.48*LIMAL + 0.48*HO + 0.48*HO2 + 0.04*ELHOM #1.00E-10; APIP2 + ISOP = 0.96*HOM + 0.48*ROH + 0.48*HCHO + 0.48*MVK + 0.48*HO + 0.48*HO2 + 0.04*ELHOM #1.00E-10; LIMP2 + APIP1 = 0.96*HOM + 0.48*ROH + 0.48*PINAL + 0.48*HO + 0.48*HO2 + 0.04*ELHOM #1.00E-10; LIMP2 + LIMP1 = 0.96*HOM + 0.48*ROH + 0.48*LIMAL + 0.48*HO + 0.48*HO2 + 0.04*ELHOM #1.00E-10; LIMP2 + ISOP = 0.96*HOM + 0.48*ROH + 0.48*HCHO + 0.48*MVK + 0.48*HO + 0.48*HO2 + 0.04*ELHOM #1.00E-10; APINP2 + APIP1 = 0.96*HOM + 0.48*ROH + 0.48*PINAL + 0.48*NO2 + 0.48*HO2 + 0.04*ELHOM #1.00E-10; APINP2 + LIMP1 = 0.96*HOM + 0.48*ROH + 0.48*LIMAL + 0.48*NO2 + 0.48*HO2 + 0.04*ELHOM #1.00E-10; APINP2 + ISOP = 0.96*HOM + 0.48*ROH + 0.48*HCHO + 0.48*MVK + 0.48*NO2 + 0.48*HO2 + 0.04*ELHOM #1.00E-10; LIMNP2 + APIP1 = 0.96*HOM + 0.48*ROH + 0.48*PINAL + 0.48*NO2 + 0.48*HO2 + 0.04*ELHOM #1.00E-10; LIMNP2 + LIMP1 = 0.96*HOM + 0.48*ROH + 0.48*LIMAL + 0.48*NO2 + 0.48*HO2 + 0.04*ELHOM #1.00E-10; LIMNP2 + ISOP = 0.96*HOM + 0.48*ROH + 0.48*HCHO + 0.48*MVK + 0.48*NO2 + 0.48*HO2 + 0.04*ELHOM #1.00E-10; ! ! SOA related reactions IEPOX + HO = HO # 5.78E-11@400; ! VROCIOXY added with behavior like ETHP ! 12.0% by mass (14.8% by mole) SOA yield added ! kOH set to emission weighted value VROCIOXY + HO = 0.852*ETHP + 0.149*ASOATJ # 6.89E-12; ! assume SLOWROC, which has effectively 2.1C, makes ethane-like RO2 with SLOWROC emission weighted kOH SLOWROC + HO = ETHP + 0.00101*ASOATJ # 6.55E-14; ! HAP chemistry ! ELD uncommented ACRO photolysis 11/18/21, kept photolysis rate constant that was already here < T17> ACRO + HO = 0.57*MACP + 0.43*MCP -1.0*XC # 8.E-12@-380; < T18> ACRO + O3 = .84*CO + .56*HO2 + .28*HO + .72*HCHO + .62*GLY + 0.2*XC # 2.9E-19; < T19> ACRO + NO3 = .68*HCHO + .32*MACP + .68*XO2 + .68*MGLY + .32*HNO3 + .68*NO2 - 0.32*XC # 3.4E-15; ! 0.219*CH4 product removed from ACRO due to fixed CH4 conc < T20> ACRO = CO + .477*HO2 + .25*ETE + .246*CO2 + .204*ACO3 + .204*HO + .15*HCHO + .15*ACO3 + .177*XC + .027*MO2 # 1.0/; ! BDE13 from SAPRC18/mechgen with MCM rate constant for T10 < T10> BDE13 + HO = 0.667*BDE13P + 0.333*UALD + 0.333*HO2 - 0.333*XC # 1.48E-11@-448.; < T10a> BDE13P + NO = 0.968*HO2 + .968*NO2 + .895*ACRO + .895*HCHO + .072*FURAN + .032*ONIT - 0.0975*XC # 9.05E-12; < T10b> BDE13P + NO3 = 1.0*HO2 + 1.*NO2 + .925*ACRO + .925*HCHO + .075*FURAN - .075*XC #2.3E-12; < T10c> BDE13P + HO2 = 1.0*OP2 - 2.*XC # 1.61E-11; < T10d> BDE13P + MO2 = 0.32*MOH + 0.68*HCHO + 0.87*HO2 + .463*ACRO + .463*HCHO + .25*OLT + .231*MVK + .037*FURAN + .019*UALD - 0.056*XC # 2.39E-12; < T10e> BDE13P + ACO3 = 0.7*MO2 + 0.3*ORA2 + 0.8*HO2 + .74*ACRO + .74*HCHO + .185*MVK + .06*FURAN + .015*UALD - 0.075*XC # 1.37E-11; < T11> BDE13 + O3 = .62*ACRO + .63*CO + .42*HO2 + .08*HO + .83*HCHO + .17*ETE + 3.66*XC # 1.34E-14@2283.; < T12> BDE13 + NO3 = 0.900*OLNN + 0.100*OLND + 0.900*ACRO # 1E-13; ! Furans based on 5 species aggregate using Wang et al. JGR 2021, Schwantes, and Coggon ! Use RACM2 o-xylene RO2+HO2, RACM2 (same as MCM) RO2+NO rate constants ! SOA yield taken from Table S1 of Bruns et al. 2016 Sci Rep and mass removed from KET product FURAN + HO = 0.49*DCB1 + 0.49*HO2 + 0.51*FURANO2 # 5.01E-11; FURANO2 + NO = 0.08*ONIT + 0.92*NO2 + 0.92*FURANONE + 0.75*HO2 + 0.17*MO2 # 2.7E-12 @ -360.; FURANO2 + HO2 = 0.6*OP2 + 0.4*FURANONE + 0.4*HO + 0.32*HO2 + 0.08*MO2 # 3.75E-13 @ -980.; FURANONE + HO = 0.65*KET + 0.31*GLY + 0.66*HO2 + 0.34*MO2 + 0.43*CO + 0.04*ASOATJ # 4.40E-11; FURAN + O3 = 0.02*HO + ALD # 3.43E-17; FURAN + NO3 = NO2 + 0.8*DCB1 + 0.2*DCB3 # 8.99E-12; ! PROG based on Coggon et al. and MCM http://mcm.york.ac.uk/browse.htt?species=PROPGLY PROG + HO = 0.613*HKET + 0.387*ALD + HO2 #1.20E-11; ! Sesquiterpenes based on MCM b-caryophyllene with autoxidation ! added to O3 channel following Richters et al. 2016 ES&T SESQ + NO3 = SESQNRO2 # 1.9E-11; SESQNRO2 + HO2 = VROCP0OXY4 # 2.84E-13 @ -1300.0; SESQNRO2 + NO = VROCP3OXY2 + 2.0*NO2 # 2.70E-12 @ -360.0; SESQNRO2 + NO3 = VROCP3OXY2 + 2.0*NO2 # 2.3E-12; SESQ + O3 = 0.982*VROCP3OXY2 + 0.018*VROCN2OXY2 # 1.2E-14; SESQ + HO = SESQRO2 # 1.97E-10; SESQRO2 + HO2 = VROCP0OXY2 # 2.84E-13 @ -1300.0; SESQRO2 + NO3 = VROCP3OXY2 # 2.3E-12; SESQRO2 + NO = 0.247*VROCP1OXY3 + 0.753*VROCP3OXY2 + 0.753*NO2 # 2.70E-12 @ -360.0; ! GLY and MGLY uptake GLY = AGLYJ # 1.0~; MGLY = AGLYJ # 1.0~; ! heteorogeneous reactions from hetchem and poaaging routines version 5.0.2 N2O5 = 2.0*HNO3 # 1.0~; NO2 = 0.5*HONO + 0.5*HNO3 # 1.0~; ! Simplified ozone loss from oceanic halogens excluding chlorine O3 = %H # 6.7006E-11@-10.7435 & 3.4153E-08@0.6713 & 2.0E-6; IEPOX = IEPOXP # 1.0~; IEPOXP = AISO3NOSJ # 1.0~; IEPOXP + ASO4J = AISO3OSJ # 1.0~; ! IEPOX = AISO3J # 1.0~; ! ROCALK chemistry based on GECKO (Lannuque et al. 2018 ACP) ! with autoxidation from Praske et al. 2018 PNAS ! HO not regenerated due to actual radical chemistry VROCP6ALK + HO = 1.0000 * VROCP6ALKP # 1.53e-11; VROCP5ALK + HO = 1.0000 * VROCP5ALKP # 1.68e-11; VROCP4ALK + HO = 1.0000 * VROCP4ALKP # 2.24e-11; VROCP3ALK + HO = 1.0000 * VROCP3ALKP # 2.67e-11; VROCP2ALK + HO = 1.0000 * VROCP2ALKP # 3.09e-11; VROCP1ALK + HO = 1.0000 * VROCP1ALKP # 3.38e-11; HC10 + HO = 1.0000 * HC10P # 1.10e-11; ! RO+NO updated to MCM values to include T dep VROCP6ALKP + NO = 0.7200 * VROCP6ALKP2 + 0.2800 * VROCP4OXY2 + 0.7200 * NO2 # 2.7e-12 @ -360.; VROCP5ALKP + NO = 0.7200 * VROCP5ALKP2 + 0.2800 * VROCP3OXY2 + 0.7200 * NO2 # 2.7e-12 @ -360.; VROCP4ALKP + NO = 0.7200 * VROCP4ALKP2 + 0.2800 * VROCP2OXY2 + 0.7200 * NO2 # 2.7e-12 @ -360.; VROCP3ALKP + NO = 0.7200 * VROCP3ALKP2 + 0.2800 * VROCP1OXY1 + 0.7200 * NO2 # 2.7e-12 @ -360.; VROCP2ALKP + NO = 0.7200 * VROCP2ALKP2 + 0.2800 * VROCP0OXY2 + 0.7200 * NO2 # 2.7e-12 @ -360.; VROCP1ALKP + NO = 0.7200 * VROCP1ALKP2 + 0.2800 * VROCN1OXY1 + 0.7200 * NO2 # 2.7e-12 @ -360.; HC10P + NO = 0.7400 * HC10P2 + 0.2600 * ONIT + 0.7400 * NO2 # 2.7E-12 @ -360.; VROCP6ALKP + NO3 = 1.0000 * VROCP6ALKP2 + 1.0000 * NO2 # 2.30e-12; VROCP5ALKP + NO3 = 1.0000 * VROCP5ALKP2 + 1.0000 * NO2 # 2.30e-12; VROCP4ALKP + NO3 = 1.0000 * VROCP4ALKP2 + 1.0000 * NO2 # 2.30e-12; VROCP3ALKP + NO3 = 1.0000 * VROCP3ALKP2 + 1.0000 * NO2 # 2.30e-12; VROCP2ALKP + NO3 = 1.0000 * VROCP2ALKP2 + 1.0000 * NO2 # 2.30e-12; VROCP1ALKP + NO3 = 1.0000 * VROCP1ALKP2 + 1.0000 * NO2 # 2.30e-12; HC10P + NO3 = 1.0000 * HC10P2 + 1.0000 * NO2 # 2.30e-12; VROCP6ALKP + HO2 = 1.0000 * VROCP3OXY2 # 2.17e-11; VROCP5ALKP + HO2 = 1.0000 * VROCP2OXY2 # 2.20e-11; VROCP4ALKP + HO2 = 1.0000 * VROCP1OXY1 # 2.25e-11; VROCP3ALKP + HO2 = 1.0000 * VROCP0OXY2 # 2.26e-11; VROCP2ALKP + HO2 = 1.0000 * VROCN1OXY1 # 2.27e-11; VROCP1ALKP + HO2 = 1.0000 * VROCN2OXY2 # 2.27e-11; HC10P + HO2 = 1.0000 * OP2 # 2.66e-13 @ -1300.; VROCP6ALKP2 = 1.0000 * HO2 + 1.0000 * VROCP3OXY2 # 1.88e-1; VROCP5ALKP2 = 1.0000 * HO2 + 1.0000 * VROCP2OXY2 # 1.88e-1; VROCP4ALKP2 = 1.0000 * HO2 + 1.0000 * VROCP1OXY1 # 1.88e-1; VROCP3ALKP2 = 1.0000 * HO2 + 1.0000 * VROCP0OXY2 # 1.88e-1; VROCP2ALKP2 = 1.0000 * HO2 + 1.0000 * VROCN1OXY1 # 1.88e-1; VROCP1ALKP2 = 1.0000 * HO2 + 1.0000 * VROCN2OXY2 # 1.88e-1; HC10P2 = 1.0000 * HO2 + 1.0000 * VROCP4OXY2 # 1.88e-1; ! RO2+NO,NO3 products updated to assume alkoxy radical proceeds ! entirely through ketone channel (same as MCM) VROCP6ALKP2 + NO = 0.1400 * VROCP2OXY2 + 0.8600 * NO2 + 0.8600 * VROCP3OXY2 + 0.8600 * HO2 # 2.7E-12 @ -360.; VROCP5ALKP2 + NO = 0.1400 * VROCP1OXY3 + 0.8600 * NO2 + 0.8600 * VROCP2OXY2 + 0.8600 * HO2 # 2.7E-12 @ -360.; VROCP4ALKP2 + NO = 0.1400 * VROCP0OXY2 + 0.8600 * NO2 + 0.8600 * VROCP1OXY1 + 0.8600 * HO2 # 2.7E-12 @ -360.; VROCP3ALKP2 + NO = 0.1400 * VROCN1OXY1 + 0.8600 * NO2 + 0.8600 * VROCP0OXY2 + 0.8600 * HO2 # 2.7E-12 @ -360.; VROCP2ALKP2 + NO = 0.1400 * VROCN2OXY2 + 0.8600 * NO2 + 0.8600 * VROCN1OXY1 + 0.8600 * HO2 # 2.7E-12 @ -360.; VROCP1ALKP2 + NO = 0.1400 * VROCN2OXY2 + 0.8600 * NO2 + 0.8600 * VROCN2OXY2 + 0.8600 * HO2 # 2.7E-12 @ -360.; HC10P2 + NO = 0.1200 * ONIT + 0.8800 * NO2 + 0.8800 * KET + 0.8800 * HO2 # 2.7E-12 @ -360.; VROCP6ALKP2 + NO3 = 1.0000 * NO2 + 1.0000 * VROCP3OXY2 + 1.0000 * HO2 # 2.30e-12; VROCP5ALKP2 + NO3 = 1.0000 * NO2 + 1.0000 * VROCP2OXY2 + 1.0000 * HO2 # 2.30e-12; VROCP4ALKP2 + NO3 = 1.0000 * NO2 + 1.0000 * VROCP1OXY1 + 1.0000 * HO2 # 2.30e-12; VROCP3ALKP2 + NO3 = 1.0000 * NO2 + 1.0000 * VROCP0OXY2 + 1.0000 * HO2 # 2.30e-12; VROCP2ALKP2 + NO3 = 1.0000 * NO2 + 1.0000 * VROCN1OXY1 + 1.0000 * HO2 # 2.30e-12; VROCP1ALKP2 + NO3 = 1.0000 * NO2 + 1.0000 * VROCN2OXY2 + 1.0000 * HO2 # 2.30e-12; HC10P2 + NO3 = 1.0000 * NO2 + 1.0000 * KET + 1.0000 * HO2 # 2.30e-12; VROCP6ALKP2 + HO2 = 1.0000 * VROCP1OXY3 # 2.17e-11; VROCP5ALKP2 + HO2 = 1.0000 * VROCP0OXY2 # 2.20e-11; VROCP4ALKP2 + HO2 = 1.0000 * VROCN1OXY1 # 2.25e-11; VROCP3ALKP2 + HO2 = 1.0000 * VROCN2OXY2 # 2.26e-11; VROCP2ALKP2 + HO2 = 1.0000 * VROCN2OXY2 # 2.27e-11; VROCP1ALKP2 + HO2 = 1.0000 * VROCN2OXY2 # 2.27e-11; HC10P2 + HO2 = 1.0000 * VROCP2OXY2 # 2.66e-13 @ -1300.; ! IVOC aromatic oxidation following MCM with autoxidation ! added to bicyclic RO2 channel. Epoxide channel eliminated ! and nitrate yield reduced following Xu et al. JPCA 2020. ! RO2+RO2 rates from RACM2 aromatic RO2s ! ROCP6ARO VROCP6ARO + HO = 0.8400*VROCP6AROP + 0.1600*HO2 + 0.1600*VROCP4OXY2 # 1.81E-11; VROCP6AROP + HO2 = 0.0595*VROCP4OXY2 + 0.9048*VROCP1OXY3 + 0.0357*VROCN2OXY4 # 2.91E-13 @ -1300.; VROCP6AROP + NO = 0.0001*VROCP4OXY2 + 0.0018*VROCP2OXY2 + 0.0001*VROCN1OXY3 + 0.9980*NO2 + 0.9980*HO2 + 0.0594*BALD + 0.4693*GLY + 0.4693*MGLY + 0.4693*FURANONE + 0.4693*DCB2 # 2.7E-12 @ -360.; VROCP6AROP + NO3 = 1.0000*NO2 + 0.9405*HO2 + 0.0595*BALD + 0.4702*GLY + 0.4702*MGLY + 0.4702*FURANONE + 0.4702*DCB2 # 2.3E-12; VROCP6AROP + MO2 = 0.6800*HCHO + 1.3105*HO2 + 0.3200*MOH + 0.0595*BALD + 0.4702*GLY + 0.4702*MGLY + 0.4702*FURANONE + 0.4702*DCB2 # 3.56E-14 @ -708.; VROCP6AROP + ACO3 = 0.7000*MO2 + 0.9405*HO2 + 0.3000*ORA2 + 0.0595*BALD + 0.4702*GLY + 0.4702*MGLY + 0.4702*FURANONE + 0.4702*DCB2 # 7.4E-13 @ -765.; ! ROCP5ARO VROCP5ARO + HO = 0.8400*VROCP5AROP + 0.1600*HO2 + 0.1600*VROCP3OXY2 # 1.81E-11; VROCP5AROP + HO2 = 0.0595*VROCP3OXY2 + 0.9048*VROCP0OXY2 + 0.0357*VROCN2OXY4 # 2.91E-13 @ -1300.; VROCP5AROP + NO = 0.0001*VROCP3OXY2 + 0.0018*VROCP1OXY3 + 0.0001*VROCN2OXY4 + 0.9980*NO2 + 0.9980*HO2 + 0.0594*VROCP4OXY2 + 0.4693*GLY + 0.4693*MGLY + 0.4693*FURANONE + 0.4693*DCB2 # 2.7E-12 @ -360.; VROCP5AROP + NO3 = 1.0000*NO2 + 0.9405*HO2 + 0.0595*VROCP4OXY2 + 0.4702*GLY + 0.4702*MGLY + 0.4702*FURANONE + 0.4702*DCB2 # 2.3E-12; VROCP5AROP + MO2 = 0.6800*HCHO + 1.3105*HO2 + 0.3200*MOH + 0.0595*VROCP4OXY2 + 0.4702*GLY + 0.4702*MGLY + 0.4702*FURANONE + 0.4702*DCB2 # 3.56E-14 @ -708.; VROCP5AROP + ACO3 = 0.7000*MO2 + 0.9405*HO2 + 0.3000*ORA2 + 0.0595*VROCP4OXY2 + 0.4702*GLY + 0.4702*MGLY + 0.4702*FURANONE + 0.4702*DCB2 # 7.4E-13 @ -765.; ! NAPH NAPH + HO = 0.8400*NAPHP + 0.1600*HO2 + 0.1600*VROCP3OXY2 # 2.31E-11; NAPHP + HO2 = 0.0595*VROCP3OXY2 + 0.9048*VROCP1OXY3 + 0.0357*VROCN2OXY8 # 2.91E-13 @ -1300.; NAPHP + NO = 0.0001*VROCP4OXY2 + 0.0018*VROCP2OXY2 + 0.0001*VROCN2OXY8 + 0.9980*NO2 + 0.9980*HO2 + 0.0594*VROCP4OXY2 + 0.4693*GLY + 0.4693*MGLY + 0.4693*FURANONE + 0.4693*DCB2 # 2.7E-12 @ -360.; NAPHP + NO3 = 1.0000*NO2 + 0.9405*HO2 + 0.0595*VROCP4OXY2 + 0.4702*GLY + 0.4702*MGLY + 0.4702*FURANONE + 0.4702*DCB2 # 2.3E-12; NAPHP + MO2 = 0.6800*HCHO + 1.3105*HO2 + 0.3200*MOH + 0.0595*VROCP4OXY2 + 0.4702*GLY + 0.4702*MGLY + 0.4702*FURANONE + 0.4702*DCB2 # 3.56E-14 @ -708.; NAPHP + ACO3 = 0.7000*MO2 + 0.9405*HO2 + 0.3000*ORA2 + 0.0595*VROCP4OXY2 + 0.4702*GLY + 0.4702*MGLY + 0.4702*FURANONE + 0.4702*DCB2 # 7.4E-13 @ -765.; ! Multigenerational oxidation of LVOCs and SVOCs ! Aging of ROCOXY with explicit low MW species VROCN2OXY8 + HO = HO + 0.0854 * VROCN2OXY8 + 0.2581 * DCB1 + 0.2581 * MEK + 0.2581 * ACD + 0.2581 * ALD + 0.2581 * MO2 + 0.2581 * ETHP + 0.2581 * HC3P + 0.2581 * MEKP # 5.90e-11; VROCN2OXY4 + HO = HO + 0.4640 * VROCN2OXY8 + 0.1977 * VROCN2OXY4 + 0.0121 * VROCN1OXY6 + 0.0152 * VROCN1OXY3 + 0.0624 * VROCP0OXY4 + 0.0388 * VROCP1OXY3 + 0.0491 * VROCP2OXY2 + 0.0398 * VROCP3OXY2 + 0.0183 * VROCP4OXY2 + 0.0308 * OP3 + 0.0040 * OP2 + 0.0794 * DCB1 + 0.0794 * MEK + 0.0794 * KET + 0.0794 * ACD + 0.0794 * ALD + 0.0794 * MO2 + 0.0794 * ETHP + 0.0794 * HC3P + 0.0794 * MEKP + 0.0794 * HC5P + 0.0794 * KETP # 6.07e-11; VROCN2OXY2 + HO = HO + 0.1041 * VROCN2OXY8 + 0.5638 * VROCN2OXY4 + 0.2141 * VROCN2OXY2 + 0.0153 * VROCN1OXY6 + 0.0298 * VROCN1OXY3 + 0.0096 * VROCN1OXY1 + 0.0189 * VROCP0OXY4 + 0.0456 * VROCP0OXY2 + 0.0314 * VROCP1OXY3 + 0.0199 * VROCP1OXY1 + 0.0459 * VROCP2OXY2 + 0.0452 * VROCP3OXY2 + 0.0455 * VROCP4OXY2 + 0.0325 * VROCP5OXY1 + 0.0369 * VROCP6OXY1 + 0.0026 * OP3 + 0.0390 * DCB1 + 0.0390 * HKET + 0.0390 * MEK + 0.0390 * ACD + 0.0390 * ALD + 0.0390 * MO2 + 0.0390 * ETHP + 0.0390 * HC3P + 0.0390 * MEKP + 0.0925 * HC5P # 5.54e-11; VROCN1OXY6 + HO = HO + 0.2036 * VROCN2OXY8 + 0.0071 * VROCN2OXY4 + 0.1840 * DCB1 + 0.1840 * MEK + 0.1840 * KET + 0.1840 * ACD + 0.1840 * ALD + 0.1840 * MO2 + 0.1840 * ETHP + 0.1840 * HC3P + 0.1840 * MEKP + 0.1840 * HC5P # 5.63e-11; VROCN1OXY3 + HO = HO + 0.2792 * VROCN2OXY8 + 0.4025 * VROCN2OXY4 + 0.0088 * VROCN2OXY2 + 0.0319 * VROCN1OXY6 + 0.0076 * VROCN1OXY3 + 0.0194 * VROCP0OXY4 + 0.0104 * VROCP0OXY2 + 0.0510 * VROCP1OXY3 + 0.0075 * VROCP1OXY1 + 0.0512 * VROCP2OXY2 + 0.0462 * VROCP3OXY2 + 0.0512 * VROCP4OXY2 + 0.0138 * VROCP5OXY1 + 0.0135 * OP2 + 0.0646 * DCB1 + 0.0646 * HKET + 0.0646 * MEK + 0.0646 * ACD + 0.0646 * ALD + 0.0646 * MO2 + 0.0646 * ETHP + 0.0646 * HC3P + 0.0646 * MEKP + 0.1753 * HC5P # 5.46e-11; VROCN1OXY1 + HO = HO + 0.0074 * VROCN2OXY8 + 0.1190 * VROCN2OXY4 + 0.7261 * VROCN2OXY2 + 0.0122 * VROCN1OXY6 + 0.0305 * VROCN1OXY3 + 0.0070 * VROCN1OXY1 + 0.0291 * VROCP0OXY4 + 0.0454 * VROCP0OXY2 + 0.0234 * VROCP1OXY3 + 0.0352 * VROCP1OXY1 + 0.0624 * VROCP2OXY2 + 0.0518 * VROCP3OXY2 + 0.0509 * VROCP4OXY2 + 0.0347 * VROCP5OXY1 + 0.0748 * VROCP6OXY1 + 0.0163 * OP3 + 0.0062 * OP2 + 0.0244 * DCB1 + 0.0244 * HKET + 0.0244 * MEK + 0.0244 * ACD + 0.0244 * ALD + 0.0244 * MO2 + 0.0244 * ETHP + 0.0244 * HC3P + 0.0244 * MEKP + 0.0537 * HC5P # 4.50e-11; VROCP0OXY4 + HO = HO + 0.2822 * VROCN2OXY8 + 0.1165 * VROCN2OXY4 + 0.0320 * VROCN1OXY6 + 0.0183 * VROCN1OXY3 + 0.0011 * VROCP0OXY4 + 0.0660 * VROCP2OXY2 + 0.0535 * VROCP3OXY2 + 0.0246 * VROCP4OXY2 + 0.0054 * OP2 + 0.1068 * DCB1 + 0.1068 * MEK + 0.1068 * KET + 0.1068 * ACD + 0.1068 * ALD + 0.1068 * MO2 + 0.1068 * ETHP + 0.1068 * HC3P + 0.1068 * MEKP + 0.1068 * HC5P + 0.1068 * KETP # 5.17e-11; VROCP0OXY2 + HO = HO + 0.0659 * VROCN2OXY8 + 0.4579 * VROCN2OXY4 + 0.1156 * VROCN2OXY2 + 0.0325 * VROCN1OXY6 + 0.0657 * VROCN1OXY3 + 0.0046 * VROCN1OXY1 + 0.0307 * VROCP0OXY4 + 0.0024 * VROCP0OXY2 + 0.0395 * VROCP1OXY3 + 0.0215 * VROCP1OXY1 + 0.0539 * VROCP2OXY2 + 0.0516 * VROCP3OXY2 + 0.0519 * VROCP4OXY2 + 0.0371 * VROCP5OXY1 + 0.0421 * VROCP6OXY1 + 0.0105 * OP3 + 0.0445 * DCB1 + 0.0445 * HKET + 0.0445 * MEK + 0.0445 * ACD + 0.0445 * ALD + 0.0445 * MO2 + 0.0445 * ETHP + 0.0445 * HC3P + 0.0445 * MEKP + 0.1055 * HC5P # 4.73e-11; VROCP1OXY3 + HO = HO + 0.1778 * VROCN2OXY8 + 0.1924 * VROCN2OXY4 + 0.0004 * VROCN2OXY2 + 0.0740 * VROCN1OXY6 + 0.0452 * VROCN1OXY3 + 0.0631 * VROCP0OXY4 + 0.0007 * VROCP0OXY2 + 0.0006 * VROCP1OXY3 + 0.0227 * VROCP2OXY2 + 0.0585 * VROCP3OXY2 + 0.0649 * VROCP4OXY2 + 0.0174 * VROCP5OXY1 + 0.0154 * OP3 + 0.0170 * OP2 + 0.0818 * DCB1 + 0.0818 * HKET + 0.0818 * MEK + 0.0818 * ACD + 0.0818 * ALD + 0.0818 * MO2 + 0.0818 * ETHP + 0.0818 * HC3P + 0.0818 * MEKP + 0.2220 * HC5P # 4.60e-11; VROCP1OXY1 + HO = HO + 0.0023 * VROCN2OXY8 + 0.1340 * VROCN2OXY4 + 0.3349 * VROCN2OXY2 + 0.0080 * VROCN1OXY6 + 0.1193 * VROCN1OXY3 + 0.0758 * VROCN1OXY1 + 0.0292 * VROCP0OXY4 + 0.0766 * VROCP0OXY2 + 0.0277 * VROCP1OXY3 + 0.0118 * VROCP1OXY1 + 0.0651 * VROCP2OXY2 + 0.0709 * VROCP3OXY2 + 0.0668 * VROCP4OXY2 + 0.0423 * VROCP5OXY1 + 0.0911 * VROCP6OXY1 + 0.0066 * OP3 + 0.0025 * OP2 + 0.0297 * DCB1 + 0.0297 * HKET + 0.0297 * MEK + 0.0297 * ACD + 0.0297 * ALD + 0.0297 * MO2 + 0.0297 * ETHP + 0.0297 * HC3P + 0.0297 * MEKP + 0.0654 * HC5P # 3.80e-11; VROCP2OXY2 + HO = HO + 0.0445 * VROCN2OXY8 + 0.1726 * VROCN2OXY4 + 0.0104 * VROCN2OXY2 + 0.0513 * VROCN1OXY6 + 0.1118 * VROCN1OXY3 + 0.0013 * VROCN1OXY1 + 0.1337 * VROCP0OXY4 + 0.0403 * VROCP0OXY2 + 0.0511 * VROCP1OXY3 + 0.0068 * VROCP1OXY1 + 0.0236 * VROCP2OXY2 + 0.0293 * VROCP3OXY2 + 0.0733 * VROCP4OXY2 + 0.0523 * VROCP5OXY1 + 0.0595 * VROCP6OXY1 + 0.0041 * OP3 + 0.0023 * OP2 + 0.0628 * DCB1 + 0.0628 * HKET + 0.0628 * MEK + 0.0628 * ACD + 0.0628 * ALD + 0.0628 * MO2 + 0.0628 * ETHP + 0.0628 * HC3P + 0.0628 * MEKP + 0.1489 * HC5P # 3.93e-11; VROCP3OXY2 + HO = HO + 0.0317 * VROCN2OXY8 + 0.0765 * VROCN2OXY4 + 0.0009 * VROCN2OXY2 + 0.0526 * VROCN1OXY6 + 0.0489 * VROCN1OXY3 + 0.1550 * VROCP0OXY4 + 0.0155 * VROCP0OXY2 + 0.1051 * VROCP1OXY3 + 0.0013 * VROCP1OXY1 + 0.0535 * VROCP2OXY2 + 0.0086 * VROCP3OXY2 + 0.0426 * VROCP4OXY2 + 0.0582 * VROCP5OXY1 + 0.0661 * VROCP6OXY1 + 0.0506 * OP3 + 0.0114 * OP2 + 0.0698 * DCB1 + 0.0698 * HKET + 0.0698 * MEK + 0.0698 * ACD + 0.0698 * ALD + 0.0698 * MO2 + 0.0698 * ETHP + 0.0698 * HC3P + 0.0698 * MEKP + 0.1656 * HC5P # 3.52e-11; VROCP4OXY2 + HO = HO + 0.0117 * VROCN2OXY8 + 0.0167 * VROCN2OXY4 + 0.0480 * VROCN1OXY6 + 0.0246 * VROCN1OXY3 + 0.0881 * VROCP0OXY4 + 0.0916 * VROCP1OXY3 + 0.0073 * VROCP1OXY1 + 0.0972 * VROCP2OXY2 + 0.0456 * VROCP3OXY2 + 0.0024 * VROCP4OXY2 + 0.0479 * VROCP5OXY1 + 0.0745 * VROCP6OXY1 + 0.0607 * OP3 + 0.0155 * OP2 + 0.0786 * DCB1 + 0.0786 * HKET + 0.0786 * MEK + 0.0786 * ACD + 0.0786 * ALD + 0.0786 * MO2 + 0.0786 * ETHP + 0.0786 * HC3P + 0.0786 * MEKP + 0.1730 * HC5P # 3.12e-11; VROCP5OXY1 + HO = HO + 0.0103 * VROCN2OXY4 + 0.0006 * VROCN2OXY2 + 0.0090 * VROCN1OXY6 + 0.0146 * VROCN1OXY3 + 0.0702 * VROCP0OXY4 + 0.0153 * VROCP0OXY2 + 0.1038 * VROCP1OXY3 + 0.0031 * VROCP1OXY1 + 0.1650 * VROCP2OXY2 + 0.1566 * VROCP3OXY2 + 0.0724 * VROCP4OXY2 + 0.0062 * VROCP5OXY1 + 0.1398 * VROCP6OXY1 + 0.0216 * OP3 + 0.0384 * OP2 + 0.0526 * DCB1 + 0.0526 * HKET + 0.0526 * MEK + 0.0526 * ACD + 0.0526 * ALD + 0.0526 * MO2 + 0.0526 * ETHP + 0.0526 * HC3P + 0.0526 * MEKP + 0.1280 * HC5P # 2.40e-11; VROCP6OXY1 + HO = HO + 0.0061 * VROCN1OXY6 + 0.0049 * VROCN1OXY3 + 0.0224 * VROCP0OXY4 + 0.0503 * VROCP1OXY3 + 0.0022 * VROCP1OXY1 + 0.0879 * VROCP2OXY2 + 0.1384 * VROCP3OXY2 + 0.1463 * VROCP4OXY2 + 0.0432 * VROCP5OXY1 + 0.0957 * VROCP6OXY1 + 0.0316 * OP3 + 0.0585 * OP2 + 0.0571 * DCB1 + 0.0571 * HKET + 0.0571 * MEK + 0.0571 * ACD + 0.0571 * ALD + 0.0571 * MO2 + 0.0571 * ETHP + 0.0571 * HC3P + 0.0571 * MEKP + 0.1544 * HC5P # 2.05e-11; OP3 + HO = HO + 0.1188 * VROCN2OXY8 + 0.0008 * VROCN2OXY4 + 0.0390 * VROCN1OXY6 + 0.0114 * VROCP0OXY4 + 0.2266 * DCB1 + 0.2266 * MEK + 0.2266 * ACD + 0.2266 * ALD + 0.2266 * MO2 + 0.2266 * ETHP + 0.2266 * HC3P + 0.2266 * MEKP # 4.69e-11; END MECH CONSTANTS ATM_AIR = 1.0E+06 ATM_H2 = 0.56 ATM_N2 = 0.7808E+06 ATM_O2 = 0.2095E+06 ATM_CH4 = 1.85 END CONSTANTS ================================================ FILE: CCTM/src/MECHS/cracmm1_aq/pa_cracmm1_aq.ctl ================================================ ! for cracmm1_aq ! IRRTYPE = PARTIAL; DEFINE FAMILY NOX = NO + NO2; DEFINE FAMILY ORG_NO3 = ADCN + ISON + OLND+ OLNN + ONIT + TRPN + NALD; DEFINE FAMILY PANS = PAN +PPN +MPAN; DEFINE FAMILY NOZ = PAN + PPN + MPAN + HONO + HNO4 + 2*N2O5 + ADCN + ISON + SESQNRO2 + OLND+ OLNN + ONIT + TRPN + HNO3; DEFINE FAMILY OX = O3 +NO2 +2*NO3 + O3P + O1D +PAN +3*N2O5 + HNO4 +PPN + MPAN; DEFINE FAMILY HOX = HO + HO2; DEFINE FAMILY RO3S = ACO3 + RCO3; DEFINE FAMILY RO2S = MO2 + ACTP + ISOP + KETP + LIMALP + LIMNP1 + LIMNP2 + HC10P + HC10P2 + HC3P + HC5P + LIMP1 + LIMP2 + MACP + MCP + MEKP + MVKP + NAPHP + OLTP + XYEP + XYMP + XO2 + APINP1 + APINP2 + APIP1 + APIP2 + PINALP + BAL1 + BAL2 + BALP + BDE13P + BENP + ETEP + ETHP + FURANO2 + VROCP5AROP + VROCP6AROP + SESQNRO2 + SESQRO2 + UALP + OLIP + ORAP + TOLP + VROCP6ALK + VROCP1ALKP + VROCP2ALKP + VROCP3ALKP + VROCP4ALKP + VROCP5ALKP + VROCP6ALKP + VROCP1ALKP2 + VROCP2ALKP2 + VROCP3ALKP2 + VROCP4ALKP2 + VROCP5ALKP2 + VROCP6ALKP2; DEFINE FAMILY RO2NS = LIMNP1 + LIMNP2 + APINP1 + APINP2 + VROCP1ALKP2 + VROCP2ALKP2 + VROCP3ALKP2 + VROCP4ALKP2 + VROCP5ALKP2 + SESQNRO2 + VROCP6ALKP2 + HC10P2; DEFINE FAMILY RO2OS = MO2 + ACTP + ISOP + KETP + HC10P + HC3P + HC5P + LIMP1 + LIMP2 + MACP + MCP + MEKP + MVKP + NAPHP + OLTP + VROCP5AROP + VROCP6AROP + XYEP + XYMP + XO2 + APIP1 + APIP2 + PINALP + BAL1 + BAL2 + BALP + BDE13P + BENP + ETEP + ETHP + FURANO2 + SESQRO2 + UALP + OLIP + ORAP + TOLP + VROCP6ALK + VROCP1ALKP + VROCP2ALKP + VROCP3ALKP + VROCP4ALKP + VROCP5ALKP + VROCP6ALKP; DEFINE FAMILY BIO_RO2S = ISOP + LIMALP + LIMNP1 + LIMNP2 + LIMP2 + PINALP + MACP + MVKP + APINP1 + APINP2 + APIP1 + APIP2 + SESQNRO2 + SESQRO2; DEFINE FAMILY AROM_RO2S = BENP + TOLP + XYEP + XYMP + NAPHP + VROCP5AROP + VROCP6AROP; DEFINE FAMILY ANTHRO_VOC = HCHO + ACD + ACT + UALD + KET + TOL + XYE + HC5 + HC10 + XYM + ACRO + ALD + BALD + BEN + BDE13 + CSL + DCB1 + EOH + HC3 + ETE + ETEG + ETH + FURAN + GLY + HKET + MACR + MCT + MEK + NAPH + MGLY + MVK + OLI + OLT + ORA1 + ORA2 + PHEN + PROG + VROCIOXY + ROH + SLOWROC; DEFINE FAMILY BIO_VOC = ISO + LIM + LIMAL + PINAL + API + SESQ; DEFINE FAMILY ISOPRENE_SOA = AISO3NOSJ + AISO3OSJ; DEFINE FAMILY ISOPRENE_VOC = ISHP + MVK + MACR + ISON + IEPOX; DEFINE FAMILY SVSOA_VAPALK = VROCP1ALK; DEFINE FAMILY HVSOA_VAPALK = VROCP2ALK + VROCP3ALK; DEFINE FAMILY LVSOA_VAPOXY = VROCN2OXY2 + VROCN2OXY4 + VROCN2OXY8 + VROCN1OXY1 + VROCN1OXY3 + VROCN1OXY6; DEFINE FAMILY SVSOA_VAPOXY = VROCP0OXY2 + VROCP0OXY4 + VROCP1OXY1 + VROCP1OXY3; DEFINE FAMILY HVSOA_VAPOXY = VROCP2OXY2 + VROCP3OXY2 + OP3; DEFINE FAMILY VROC_OXYS = VROCN2OXY2 + VROCP4OXY2 + VROCN1OXY6 + VROCP3OXY2 + VROCP0OXY4 + VROCIOXY + VROCP0OXY2 + VROCP1OXY3 + VROCP2OXY2 + VROCP1OXY1 + VROCN1OXY1 + VROCN2OXY4 + VROCN1OXY3 + VROCN2OXY8 + VROCP5OXY1 + VROCP6OXY1 + OP3; DEFINE FAMILY VROC_ALKS = VROCP6ALK + VROCP6ALKP + VROCP5ALK + VROCP5ALKP + VROCP4ALK + VROCP4ALKP + VROCP3ALK + VROCP3ALKP + VROCP2ALK + VROCP2ALKP + VROCP1ALK + VROCP1ALKP + VROCP6ALKP2 + VROCP5ALKP2 + VROCP4ALKP2 + VROCP3ALKP2 + VROCP2ALKP2 + VROCP1ALKP2; !!======================================================================= ! Reaction Sum Definitions !======================================================================= DEFINE CYCLE PANcyc = PAN; DEFINE CYCLE PPNcyc = PPN; DEFINE CYCLE MPANcyc = MPAN; DEFINE CYCLE HNO4cyc = HNO4; ! need to work on cycles because reaction labels from cb6r5 if lobal number is two digits DEFINE RXNSUM HNO4_HO2cyc = 0.80* + - ; DEFINE RXNSUM HONOcyc = - - ; DEFINE RXNSUM NO3cyc = - ; ! uncertain if only consider reaction involve HOX as reaction orproduct DEFINE RXNSUM CH3OO_cyc = - ; DEFINE RXNSUM C2H6OOcyc = - 0.780* - 0.790* - 0.650* - 0.650* - 0.680* - - - - - - - - 0.602* - 0.720* - 0.480* - 0.085* - 0.850* - - - - - - - - 0.680* - 0.700* - 0.680* - 0.700* - 0.680* - 0.620* - 0.720* - 0.048* - 0.085* - - - - - 0.004* - 0.013* - 0.006* - 0.005* - 0.017* - 0.003* - 0.011* - 0.013* - 0.038* - 0.059*; DEFINE RXNSUM N2O5cyc = - ; DEFINE RXNSUM H2O2_OHcyc = - - ; DEFINE RXNSUM HOXcyc = - ; !DEFINE CYCLE LVSOA_VAPALKcyc = LVSOA_VAPALK; !DEFINE CYCLE SVSOA_VAPALKcyc = SVSOA_VAPALK; !DEFINE CYCLE HVSOA_VAPALKcyc = HVSOA_VAPALK; !DEFINE CYCLE LVSOA_VAPOXYcyc = LVSOA_VAPOXY; !DEFINE CYCLE SVSOA_VAPOXYcyc = SVSOA_VAPOXY; !DEFINE CYCLE HVSOA_VAPOXYcyc = HVSOA_VAPOXY; !====================================================================== ! IPR_OUTPUTS !======================================================================= IPR_OUTPUT O3 = CHEM+DDEP+CLDS+AERO+TRNM; IPR_OUTPUT HNO3 = CHEM+DDEP+CLDS+AERO; IPR_OUTPUT PAN = CHEM+DDEP+CLDS+AERO+TRNM; IPR_OUTPUT N2O5 = CHEM+DDEP+CLDS+AERO; IPR_OUTPUT HCHO = CHEM+DDEP+CLDS+AERO; IPR_OUTPUT SVSOA_VAPALK = CHEM; IPR_OUTPUT HVSOA_VAPALK = CHEM; IPR_OUTPUT LVSOA_VAPOXY = CHEM; IPR_OUTPUT SVSOA_VAPOXY = CHEM; IPR_OUTPUT HVSOA_VAPOXY = CHEM; DEFINE FAMILY EC = AECI + AECJ; IPR_OUTPUT EC = COAG + EMIS + HADV; IPR_OUTPUT ASO4J = COND + COAG + EMIS + CHEM + VDIF + CLDS; IPR_OUTPUT ASO4I = NPF + COND + COAG + EMIS + CHEM + VDIF +CLDS; !IPR_OUTPUT NUMATKN; !IPR_OUTPUT NUMACC; !IPR_OUTPUT NUMCOR; !======================================================================= ! IRR_OUTPUTS ! OX prod and loss ! IRR_OUTPUT O3prod = NETP[O3]; IRR_OUTPUT OxPROD = NETP[OX]; IRR_OUTPUT OxLOSS = NETL[OX]; IRR_OUTPUT OxLOSSHAL = ; ! factors influencing PAN and N2O5 concentrations ! IRR_OUTPUT PANprod = PANcyc[POSONLY]; IRR_OUTPUT PANloss = PANcyc[NEGONLY]; ! RO2 fate IRR_OUTPUT RO2withNOtoNO2 = PROD[NO2] FROM [RO2S] AND [NO] + PROD[NO2] FROM [RO3S] AND [NO]; IRR_OUTPUT NRO2withNOtoNO2 = PROD[NO2] FROM [RO2NS] AND [NO]; IRR_OUTPUT RO2withNOtoNTR = PROD[ORG_NO3] FROM [RO2S] AND [NO]; IRR_OUTPUT RO3withNO2toPAN = PROD[PANS] FROM [RO3S] AND [NO2]; IRR_OUTPUT ROXwithHO2 = LOSS [RO2S] AND [HO2] + LOSS [RO3S] AND [HO2]; IRR_OUTPUT ROXwithRO2 = LOSS [RO2S] AND [RO2S] + LOSS [RO3S] AND [RO2S]; ! VOC fate IRR_OUTPUT ANTHRO_VOC_OH = LOSS[ANTHRO_VOC] AND [HO]; IRR_OUTPUT ANTHRO_VOC_O3 = LOSS[ANTHRO_VOC] AND [O3]; IRR_OUTPUT ANTHRO_VOC_NO3 = LOSS[ANTHRO_VOC] AND [NO3]; IRR_OUTPUT BIO_VOCwithOH = LOSS[BIO_VOC] AND [HO]; IRR_OUTPUT BIO_VOCwithO3 = LOSS[BIO_VOC] AND [O3]; IRR_OUTPUT BIO_VOCwithNO3 = LOSS[BIO_VOC] AND [NO3]; ! New radicals IRR_OUTPUT OHfrO1D = PROD [HO] FROM [O1D]; ! IRR_OUTPUT NewHOxfromHCHO =2.0*; IRR_OUTPUT NewHOxfromH2O2 =2.0*H2O2_OHcyc[POSONLY]; IRR_OUTPUT NewHOxfromHONO = HONOcyc[NEGONLY]; IRR_OUTPUT NewHOxfromHNOX = HNO4cyc[NEGONLY]; ! from photolysis not including HCHO, HNO3 and HNO4 IRR_OUTPUT NewHOxfromhv = + + 1.22* + + + 2.0* + + + + 1.5* + 1.5* + + 2.0* + 2.0* + 2.0* + 2.0* + + ; ! from O3+alkene reactions IRR_OUTPUT NewHOxfromO3 =0.230* + 0.550* + 0.530* +0.500* +0.900* + 0.840*; !radical loss from heterogeneous reactions IRR_OUTPUT NO2_LOSS_HET = ; ! NOz production rates ! use for O3 production efficiency = p(O3)/net_prod(NOz) IRR_OUTPUT NOZ_net_prod = NETP[NOZ]; ! use for O3 production efficiency = p(O3)/net_loss(NOx) IRR_OUTPUT NOX_net_loss = NETL[NOX]; ! use for O3 production efficiency = p(O3)/(NOz)= O3prod/NOZfromNOX IRR_OUTPUT NOZfrNOX = PANcyc[POSONLY] + PPNcyc[POSONLY] + MPANcyc[POSONLY] + HONOcyc[POSONLY] + HNO4cyc[POSONLY] + NO3cyc[POSONLY] + N2O5cyc[POSONLY] + PROD[ORG_NO3] FROM [NOX] + PROD[HNO3] FROM [NOX]; ! ASOAT production IRR_OUTPUT Prod_ASOAT_tot = PROD[ASOATJ]; IRR_OUTPUT Prod_ASOAT_NOz = PROD[ASOATJ] FROM [NOX] + PROD[ASOATJ] FROM [NO3]; ! HNO3 formation pathways IRR_OUTPUT HNO3prod = NETP[HNO3]; IRR_OUTPUT HNO3fromOHNO2 = ; IRR_OUTPUT HNO3fromN2O5 = ; IRR_OUTPUT HNO3fromNO3 = PROD[HNO3] FROM [NO3]; !H2O2 production IRR_OUTPUT H2O2prod = NETP[H2O2]; ! formaldehyde production and loss IRR_OUTPUT HCHOprod_tot = PROD[HCHO]; IRR_OUTPUT HCHOprod_bio = PROD[HCHO] FROM [BIO_VOC] + PROD[HCHO] FROM [BIO_RO2S] + PROD[HCHO] FROM [ISOPRENE_VOC]; IRR_OUTPUT LOSS_HCHO = LOSS[HCHO]; !production and loss for acetaldehyde and acrolein IRR_OUTPUT PROD_CH3CHO = PROD[ACD]; IRR_OUTPUT PROD_ACROLEIN = PROD[ACRO]; IRR_OUTPUT LOSS_ACD = LOSS[ACD]; IRR_OUTPUT LOSS_ACRO = LOSS[ACRO]; ! alkyl nitrate pathways ! IRR_OUTPUT ORGNO3prod = NETP[ORG_NO3]; IRR_OUTPUT ORGNO3viaISO = PROD[ORG_NO3] FROM [ISOP]; IRR_OUTPUT ORGNO3viaTERP = PROD[TRPN]; IRR_OUTPUT ISONprod = PROD[ISON]; IRR_OUTPUT TERPNO2fromTERP = PROD[SESQNRO2] FROM [SESQ] + PROD[APINP1] FROM [API] + PROD[APINP2] FROM [API] + PROD[LIMALP] FROM [LIMAL]+ PROD[LIMNP1] FROM [LIMAL] + PROD[LIMNP2] FROM [LIMAL] + PROD[LIMP1] FROM [LIM] + PROD[LIMP2] FROM [LIM]; IRR_OUTPUT SOAviaISOPRENE = PROD[ISOPRENE_SOA]; ! ENDPA; ================================================ FILE: CCTM/src/MECHS/cracmm1amore_aq/CSQY_DATA_cracmm1amore_aq ================================================ Table for Mechanism = CRACMM1AMORE_AQ NPHOTAB = 33 !Individual rates listed below: O3O3P_NASA06 O3O1D_NASA06 H2O2_RACM2 NO2_RACM2 NO3NO_RACM2 NO3NO2_RACM2 HONO_RACM2 HNO3_RACM2 HNO4_RACM2 HCHO_MOL_JPL19 HCHO_RAD_JPL19 CH3CHO_RACM2 ALD_JPL19 CH3COCH3A_JPL19 CH3COCH3B_JPL19 UALD_RACM2 MEK_JGR19 KET_JGR19 HKET_RACM2 MACR_RACM2 MVK_RACM2 GLYH2_RACM2 GLYF_RACM2 GLYHX_RACM2 MGLY_RACM2 BALD_RACM2 OP1_RACM2 PAA_RACM2 ONIT_RACM2 PAN1_RACM2 PAN2_RACM2 HCHO_RAD_RACM2 ACRO_09 NTEMP = 6 ! I TEMP( I ) K 1 210.00 2 230.00 3 250.00 4 270.00 5 290.00 6 310.00 ! Wavelength and Photolysis Rate Parameters for CMAQ In-Line Photolysis ! calculation . The values are determined by averaging technique over the below ! number of wavelength bins. The technique employs an approach used by the FASTJX ! versions 6 and 7. !References: ! 1) Bian, H. S. and Prather, M. J.: Fast-J2: accurate simulation of stratospheric ! photolysis in global chemical models, J. Atmos. Chem., 41, 281-296 doi:10.1023/A:1014980619462, 2002. ! 2) Hsu, J. and Prather, M. J.: Stratospheric variability and tropospheric ozone, ! J. Geophys. Res., 114, D06102, doi:10.1029/2008JD010942, 2009. ! 3) Prather, M. J.: Fast-JX versions and utilities, available at: ! http://www.ess.uci.edu/researchgrp/prather/scholar_software/fast-jx ! (last accessed: 24 January 2014), 2014. ! Wave bands and Solar Flux ! N_INLINE_BAND = 7 ! I, START_WL_BIN(nm), EFFECT_WL_BIN_(nm), END_WL_BIN_(nm), photon_flux(cm-2*s-1), 1, 291.000, 294.590, 298.300, 5.8828E+14, 2, 298.300, 303.151, 307.500, 7.6354E+14, 3, 307.500, 310.007, 312.500, 5.0412E+14, 4, 312.500, 316.434, 320.300, 8.9628E+14, 5, 320.300, 333.076, 345.000, 3.8537E+15, 6, 345.000, 381.997, 412.500, 1.5457E+16, 7, 412.500, 607.723, 850.000, 2.1307E+17, !... CS = absorption cross sections averaged over UCI Solar Flux !... QY = quantum yields averaged over UCI Solar Flux !... EQY = eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model !PHOTAB QUANTITY TEMP WBIN( 1) WBIN( 2) WBIN( 3) WBIN( 4) WBIN( 5) WBIN( 6) WBIN( 7) O3O3P_NASA06 CS 210.000 7.688467E-19 2.422055E-19 8.920470E-20 3.650450E-20 4.746825E-21 6.139220E-23 1.666851E-21 O3O3P_NASA06 EQY 210.000 1.000000E-01 1.041791E-01 4.952917E-01 8.153871E-01 8.979595E-01 9.291306E-01 1.000000E+00 O3O3P_NASA06 CS 230.000 7.803585E-19 2.474376E-19 9.195177E-20 3.806528E-20 5.075878E-21 6.139220E-23 1.666851E-21 O3O3P_NASA06 EQY 230.000 1.000000E-01 1.041791E-01 4.902279E-01 8.178273E-01 8.979595E-01 9.291306E-01 1.000000E+00 O3O3P_NASA06 CS 250.000 7.995448E-19 2.561579E-19 9.653022E-20 4.066658E-20 5.624299E-21 6.139220E-23 1.666851E-21 O3O3P_NASA06 EQY 250.000 1.000000E-01 1.041791E-01 4.818958E-01 8.188244E-01 8.979595E-01 9.291306E-01 1.000000E+00 O3O3P_NASA06 CS 270.000 8.187311E-19 2.648782E-19 1.011087E-19 4.326788E-20 6.172721E-21 6.139220E-23 1.666851E-21 O3O3P_NASA06 EQY 270.000 1.000000E-01 1.041791E-01 4.677566E-01 8.131744E-01 8.979595E-01 9.291306E-01 1.000000E+00 O3O3P_NASA06 CS 290.000 8.379175E-19 2.735984E-19 1.056871E-19 4.586918E-20 6.721143E-21 6.139220E-23 1.666851E-21 O3O3P_NASA06 EQY 290.000 1.000000E-01 1.041791E-01 4.431264E-01 7.889175E-01 8.979595E-01 9.291306E-01 1.000000E+00 O3O3P_NASA06 CS 310.000 8.407954E-19 2.749065E-19 1.063739E-19 4.625938E-20 6.803406E-21 6.139220E-23 1.666851E-21 O3O3P_NASA06 EQY 310.000 1.000000E-01 1.041791E-01 3.989815E-01 7.203341E-01 8.979595E-01 9.291306E-01 1.000000E+00 O3O1D_NASA06 CS 210.000 7.808049E-19 2.423500E-19 8.920470E-20 3.650450E-20 4.604240E-21 5.459842E-23 0.000000E+00 O3O1D_NASA06 EQY 210.000 9.000000E-01 8.958209E-01 5.047083E-01 1.846129E-01 1.020405E-01 7.086939E-02 0.000000E+00 O3O1D_NASA06 CS 230.000 7.924958E-19 2.475853E-19 9.195177E-20 3.806528E-20 4.923409E-21 5.459842E-23 0.000000E+00 O3O1D_NASA06 EQY 230.000 9.000000E-01 8.958209E-01 5.097721E-01 1.821727E-01 1.020405E-01 7.086939E-02 0.000000E+00 O3O1D_NASA06 CS 250.000 8.119805E-19 2.563108E-19 9.653022E-20 4.066658E-20 5.455358E-21 5.459842E-23 0.000000E+00 O3O1D_NASA06 EQY 250.000 9.000000E-01 8.958209E-01 5.181042E-01 1.811756E-01 1.020405E-01 7.086939E-02 0.000000E+00 O3O1D_NASA06 CS 270.000 8.314653E-19 2.650363E-19 1.011087E-19 4.326788E-20 5.987306E-21 5.459842E-23 0.000000E+00 O3O1D_NASA06 EQY 270.000 9.000000E-01 8.958209E-01 5.322434E-01 1.868256E-01 1.020405E-01 7.086939E-02 0.000000E+00 O3O1D_NASA06 CS 290.000 8.509500E-19 2.737617E-19 1.056871E-19 4.586918E-20 6.519254E-21 5.459842E-23 0.000000E+00 O3O1D_NASA06 EQY 290.000 9.000000E-01 8.958209E-01 5.568736E-01 2.110825E-01 1.020405E-01 7.086939E-02 0.000000E+00 O3O1D_NASA06 CS 310.000 8.538727E-19 2.750705E-19 1.063739E-19 4.625938E-20 6.599046E-21 5.459842E-23 0.000000E+00 O3O1D_NASA06 EQY 310.000 9.000000E-01 8.958209E-01 6.010185E-01 2.796659E-01 1.020405E-01 7.086939E-02 0.000000E+00 H2O2_RACM2 CS 210.000 8.527608E-21 5.100901E-21 3.367998E-21 2.275936E-21 8.877982E-22 3.606306E-23 0.000000E+00 H2O2_RACM2 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 H2O2_RACM2 CS 230.000 8.650794E-21 5.196512E-21 3.446407E-21 2.339455E-21 9.231624E-22 3.606306E-23 0.000000E+00 H2O2_RACM2 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 H2O2_RACM2 CS 250.000 8.817123E-21 5.325610E-21 3.552278E-21 2.425221E-21 9.709122E-22 3.606306E-23 0.000000E+00 H2O2_RACM2 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 H2O2_RACM2 CS 270.000 9.028511E-21 5.489680E-21 3.686830E-21 2.534221E-21 1.031598E-21 3.606306E-23 0.000000E+00 H2O2_RACM2 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 H2O2_RACM2 CS 290.000 9.284830E-21 5.688624E-21 3.849979E-21 2.666389E-21 1.105182E-21 3.606306E-23 0.000000E+00 H2O2_RACM2 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 H2O2_RACM2 CS 310.000 9.584270E-21 5.921037E-21 4.040577E-21 2.820792E-21 1.191145E-21 3.606306E-23 0.000000E+00 H2O2_RACM2 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 NO2_RACM2 CS 210.000 1.058805E-19 1.460434E-19 1.905840E-19 2.362586E-19 3.715161E-19 5.867486E-19 1.088657E-19 NO2_RACM2 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 7.961922E-01 2.423882E-03 NO2_RACM2 CS 230.000 1.060328E-19 1.459734E-19 1.901860E-19 2.350003E-19 3.679235E-19 5.852241E-19 1.085850E-19 NO2_RACM2 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 7.961922E-01 2.423882E-03 NO2_RACM2 CS 250.000 1.063375E-19 1.458335E-19 1.893902E-19 2.324836E-19 3.607383E-19 5.821752E-19 1.080235E-19 NO2_RACM2 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 7.969987E-01 2.507727E-03 NO2_RACM2 CS 270.000 1.066422E-19 1.456936E-19 1.885943E-19 2.299669E-19 3.535530E-19 5.791262E-19 1.074620E-19 NO2_RACM2 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 8.050633E-01 3.346181E-03 NO2_RACM2 CS 290.000 1.069468E-19 1.455536E-19 1.877985E-19 2.274503E-19 3.463678E-19 5.760772E-19 1.069005E-19 NO2_RACM2 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 8.131279E-01 4.184634E-03 NO2_RACM2 CS 310.000 1.070078E-19 1.455256E-19 1.876393E-19 2.269469E-19 3.449308E-19 5.754674E-19 1.067882E-19 NO2_RACM2 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 8.163537E-01 4.520015E-03 NO3NO_RACM2 CS 210.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 5.348470E-21 1.872219E-18 NO3NO_RACM2 EQY 210.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 6.767835E-02 NO3NO_RACM2 CS 230.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 5.075907E-21 1.776809E-18 NO3NO_RACM2 EQY 230.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 6.699507E-02 NO3NO_RACM2 CS 250.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 4.791067E-21 1.677102E-18 NO3NO_RACM2 EQY 250.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 6.679738E-02 NO3NO_RACM2 CS 270.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 4.498338E-21 1.574633E-18 NO3NO_RACM2 EQY 270.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 6.659967E-02 NO3NO_RACM2 CS 290.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 4.201227E-21 1.470630E-18 NO3NO_RACM2 EQY 290.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 6.640198E-02 NO3NO_RACM2 CS 310.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 3.902507E-21 1.366063E-18 NO3NO_RACM2 EQY 310.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 6.632289E-02 NO3NO2_RACM2 CS 210.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 5.348470E-21 1.872219E-18 NO3NO2_RACM2 EQY 210.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.000000E+00 5.038201E-01 NO3NO2_RACM2 CS 230.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 5.075907E-21 1.776809E-18 NO3NO2_RACM2 EQY 230.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.000000E+00 5.129623E-01 NO3NO2_RACM2 CS 250.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 4.791067E-21 1.677102E-18 NO3NO2_RACM2 EQY 250.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.000000E+00 5.207280E-01 NO3NO2_RACM2 CS 270.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 4.498338E-21 1.574633E-18 NO3NO2_RACM2 EQY 270.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.000000E+00 5.284936E-01 NO3NO2_RACM2 CS 290.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 4.201227E-21 1.470630E-18 NO3NO2_RACM2 EQY 290.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.000000E+00 5.362592E-01 NO3NO2_RACM2 CS 310.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 3.902507E-21 1.366063E-18 NO3NO2_RACM2 EQY 310.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.000000E+00 5.393655E-01 HONO_RACM2 CS 210.000 5.628977E-21 9.694364E-21 1.881716E-20 2.969466E-20 7.453932E-20 6.563367E-20 0.000000E+00 HONO_RACM2 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HONO_RACM2 CS 230.000 5.628977E-21 9.694364E-21 1.881716E-20 2.969466E-20 7.453932E-20 6.563367E-20 0.000000E+00 HONO_RACM2 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HONO_RACM2 CS 250.000 5.628977E-21 9.694364E-21 1.881716E-20 2.969466E-20 7.453932E-20 6.563367E-20 0.000000E+00 HONO_RACM2 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HONO_RACM2 CS 270.000 5.628977E-21 9.694364E-21 1.881716E-20 2.969466E-20 7.453932E-20 6.563367E-20 0.000000E+00 HONO_RACM2 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HONO_RACM2 CS 290.000 5.628977E-21 9.694364E-21 1.881716E-20 2.969466E-20 7.453932E-20 6.563367E-20 0.000000E+00 HONO_RACM2 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HONO_RACM2 CS 310.000 5.628977E-21 9.694364E-21 1.881716E-20 2.969466E-20 7.453932E-20 6.563367E-20 0.000000E+00 HONO_RACM2 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HNO3_RACM2 CS 210.000 3.477740E-21 1.421362E-21 5.692533E-22 2.194328E-22 2.062589E-23 3.797806E-25 0.000000E+00 HNO3_RACM2 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HNO3_RACM2 CS 230.000 3.663356E-21 1.522325E-21 6.201572E-22 2.451096E-22 2.494077E-23 3.837348E-25 0.000000E+00 HNO3_RACM2 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HNO3_RACM2 CS 250.000 3.858879E-21 1.630460E-21 6.756130E-22 2.737909E-22 3.015831E-23 3.877301E-25 0.000000E+00 HNO3_RACM2 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HNO3_RACM2 CS 270.000 4.064837E-21 1.746275E-21 7.360279E-22 3.058283E-22 3.646735E-23 3.917671E-25 0.000000E+00 HNO3_RACM2 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HNO3_RACM2 CS 290.000 4.281789E-21 1.870318E-21 8.018451E-22 3.416145E-22 4.409623E-23 3.958460E-25 0.000000E+00 HNO3_RACM2 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HNO3_RACM2 CS 310.000 4.510320E-21 2.003171E-21 8.735479E-22 3.815883E-22 5.332105E-23 3.999674E-25 0.000000E+00 HNO3_RACM2 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HNO4_RACM2 CS 210.000 2.329949E-20 9.144530E-21 3.983048E-21 1.967534E-21 3.976035E-22 3.285247E-24 0.000000E+00 HNO4_RACM2 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HNO4_RACM2 CS 230.000 2.378244E-20 9.477436E-21 4.200296E-21 2.110804E-21 4.511061E-22 4.554065E-24 0.000000E+00 HNO4_RACM2 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HNO4_RACM2 CS 250.000 2.447801E-20 9.956912E-21 4.513192E-21 2.317151E-21 5.281641E-22 6.381496E-24 0.000000E+00 HNO4_RACM2 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HNO4_RACM2 CS 270.000 2.541218E-20 1.060086E-20 4.933421E-21 2.594282E-21 6.316551E-22 8.835790E-24 0.000000E+00 HNO4_RACM2 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HNO4_RACM2 CS 290.000 2.660059E-20 1.142006E-20 5.468013E-21 2.946832E-21 7.633113E-22 1.195802E-23 0.000000E+00 HNO4_RACM2 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HNO4_RACM2 CS 310.000 2.804907E-20 1.241853E-20 6.119599E-21 3.376538E-21 9.237795E-22 1.576353E-23 0.000000E+00 HNO4_RACM2 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HCHO_MOL_JPL19 CS 210.000 3.436202E-20 3.561495E-20 1.661439E-20 3.505164E-20 1.949427E-20 8.453695E-22 0.000000E+00 HCHO_MOL_JPL19 EQY 210.000 2.573368E-01 2.406493E-01 2.610733E-01 3.312798E-01 6.395736E-01 3.544923E-01 0.000000E+00 HCHO_MOL_JPL19 CS 230.000 3.432947E-20 3.561257E-20 1.660507E-20 3.507666E-20 1.950541E-20 8.448212E-22 0.000000E+00 HCHO_MOL_JPL19 EQY 230.000 2.573368E-01 2.406493E-01 2.610733E-01 3.312798E-01 6.347457E-01 3.406936E-01 0.000000E+00 HCHO_MOL_JPL19 CS 250.000 3.429692E-20 3.561019E-20 1.659575E-20 3.510169E-20 1.951654E-20 8.442728E-22 0.000000E+00 HCHO_MOL_JPL19 EQY 250.000 2.573368E-01 2.406493E-01 2.610733E-01 3.312798E-01 6.247651E-01 3.155994E-01 0.000000E+00 HCHO_MOL_JPL19 CS 270.000 3.426437E-20 3.560782E-20 1.658643E-20 3.512672E-20 1.952767E-20 8.437245E-22 0.000000E+00 HCHO_MOL_JPL19 EQY 270.000 2.573368E-01 2.406493E-01 2.610733E-01 3.312798E-01 6.145213E-01 2.936854E-01 0.000000E+00 HCHO_MOL_JPL19 CS 290.000 3.423181E-20 3.560544E-20 1.657710E-20 3.515175E-20 1.953881E-20 8.431761E-22 0.000000E+00 HCHO_MOL_JPL19 EQY 290.000 2.573368E-01 2.406493E-01 2.610733E-01 3.312798E-01 6.040692E-01 2.744425E-01 0.000000E+00 HCHO_MOL_JPL19 CS 310.000 3.421553E-20 3.560425E-20 1.657244E-20 3.516426E-20 1.954437E-20 8.429019E-22 0.000000E+00 HCHO_MOL_JPL19 EQY 310.000 2.573368E-01 2.406493E-01 2.610733E-01 3.312798E-01 5.987564E-01 2.656473E-01 0.000000E+00 HCHO_RAD_JPL19 CS 210.000 3.436202E-20 3.561495E-20 1.661439E-20 3.505164E-20 1.949427E-20 8.453695E-22 0.000000E+00 HCHO_RAD_JPL19 EQY 210.000 7.308307E-01 7.593507E-01 7.389267E-01 6.687202E-01 2.626862E-01 0.000000E+00 0.000000E+00 HCHO_RAD_JPL19 CS 230.000 3.432947E-20 3.561257E-20 1.660507E-20 3.507666E-20 1.950541E-20 8.448212E-22 0.000000E+00 HCHO_RAD_JPL19 EQY 230.000 7.308307E-01 7.593507E-01 7.389267E-01 6.687202E-01 2.626862E-01 0.000000E+00 0.000000E+00 HCHO_RAD_JPL19 CS 250.000 3.429692E-20 3.561019E-20 1.659575E-20 3.510169E-20 1.951654E-20 8.442728E-22 0.000000E+00 HCHO_RAD_JPL19 EQY 250.000 7.308307E-01 7.593507E-01 7.389267E-01 6.687202E-01 2.626862E-01 0.000000E+00 0.000000E+00 HCHO_RAD_JPL19 CS 270.000 3.426437E-20 3.560782E-20 1.658643E-20 3.512672E-20 1.952767E-20 8.437245E-22 0.000000E+00 HCHO_RAD_JPL19 EQY 270.000 7.308307E-01 7.593507E-01 7.389267E-01 6.687202E-01 2.626862E-01 0.000000E+00 0.000000E+00 HCHO_RAD_JPL19 CS 290.000 3.423181E-20 3.560544E-20 1.657710E-20 3.515175E-20 1.953881E-20 8.431761E-22 0.000000E+00 HCHO_RAD_JPL19 EQY 290.000 7.308307E-01 7.593507E-01 7.389267E-01 6.687202E-01 2.626862E-01 0.000000E+00 0.000000E+00 HCHO_RAD_JPL19 CS 310.000 3.421553E-20 3.560425E-20 1.657244E-20 3.516426E-20 1.954437E-20 8.429019E-22 0.000000E+00 HCHO_RAD_JPL19 EQY 310.000 7.308307E-01 7.593507E-01 7.389267E-01 6.687202E-01 2.626862E-01 0.000000E+00 0.000000E+00 CH3CHO_RACM2 CS 210.000 4.432880E-20 3.689178E-20 2.913527E-20 2.067145E-20 5.819010E-21 1.448852E-23 0.000000E+00 CH3CHO_RACM2 EQY 210.000 4.909960E-01 3.900005E-01 2.794830E-01 1.560880E-01 3.457768E-02 0.000000E+00 0.000000E+00 CH3CHO_RACM2 CS 230.000 4.432880E-20 3.689178E-20 2.913527E-20 2.067145E-20 5.819010E-21 1.448852E-23 0.000000E+00 CH3CHO_RACM2 EQY 230.000 4.909960E-01 3.900005E-01 2.794830E-01 1.560880E-01 3.457768E-02 0.000000E+00 0.000000E+00 CH3CHO_RACM2 CS 250.000 4.432880E-20 3.689178E-20 2.913527E-20 2.067145E-20 5.819010E-21 1.448852E-23 0.000000E+00 CH3CHO_RACM2 EQY 250.000 4.909960E-01 3.900005E-01 2.794830E-01 1.560880E-01 3.457768E-02 0.000000E+00 0.000000E+00 CH3CHO_RACM2 CS 270.000 4.432880E-20 3.689178E-20 2.913527E-20 2.067145E-20 5.819010E-21 1.448852E-23 0.000000E+00 CH3CHO_RACM2 EQY 270.000 4.909960E-01 3.900005E-01 2.794830E-01 1.560880E-01 3.457768E-02 0.000000E+00 0.000000E+00 CH3CHO_RACM2 CS 290.000 4.432880E-20 3.689178E-20 2.913527E-20 2.067145E-20 5.819010E-21 1.448852E-23 0.000000E+00 CH3CHO_RACM2 EQY 290.000 4.909960E-01 3.900005E-01 2.794830E-01 1.560880E-01 3.457768E-02 0.000000E+00 0.000000E+00 CH3CHO_RACM2 CS 310.000 4.432880E-20 3.689178E-20 2.913527E-20 2.067145E-20 5.819010E-21 1.448852E-23 0.000000E+00 CH3CHO_RACM2 EQY 310.000 4.909960E-01 3.900005E-01 2.794830E-01 1.560880E-01 3.457768E-02 0.000000E+00 0.000000E+00 ALD_JPL19 CS 210.000 5.545019E-20 4.634689E-20 3.579653E-20 2.441742E-20 5.836673E-21 1.243216E-23 0.000000E+00 ALD_JPL19 EQY 210.000 7.650582E-01 4.959521E-01 3.110854E-01 1.880053E-01 5.620141E-02 3.880543E-04 0.000000E+00 ALD_JPL19 CS 230.000 5.545019E-20 4.634689E-20 3.579653E-20 2.441742E-20 5.836673E-21 1.243216E-23 0.000000E+00 ALD_JPL19 EQY 230.000 7.650582E-01 4.959521E-01 3.110854E-01 1.880053E-01 5.620141E-02 3.880543E-04 0.000000E+00 ALD_JPL19 CS 250.000 5.545019E-20 4.634689E-20 3.579653E-20 2.441742E-20 5.836673E-21 1.243216E-23 0.000000E+00 ALD_JPL19 EQY 250.000 7.650582E-01 4.959521E-01 3.110854E-01 1.880053E-01 5.620141E-02 3.880543E-04 0.000000E+00 ALD_JPL19 CS 270.000 5.545019E-20 4.634689E-20 3.579653E-20 2.441742E-20 5.836673E-21 1.243216E-23 0.000000E+00 ALD_JPL19 EQY 270.000 7.650582E-01 4.959521E-01 3.110854E-01 1.880053E-01 5.620141E-02 3.880543E-04 0.000000E+00 ALD_JPL19 CS 290.000 5.545019E-20 4.634689E-20 3.579653E-20 2.441742E-20 5.836673E-21 1.243216E-23 0.000000E+00 ALD_JPL19 EQY 290.000 7.650582E-01 4.959521E-01 3.110854E-01 1.880053E-01 5.620141E-02 3.880543E-04 0.000000E+00 ALD_JPL19 CS 310.000 5.545019E-20 4.634689E-20 3.579653E-20 2.441742E-20 5.836673E-21 1.243216E-23 0.000000E+00 ALD_JPL19 EQY 310.000 7.650582E-01 4.959521E-01 3.110854E-01 1.880053E-01 5.620141E-02 3.880543E-04 0.000000E+00 CH3COCH3A_JPL19 CS 210.000 3.093982E-20 1.932871E-20 1.074082E-20 5.401566E-21 3.042770E-22 0.000000E+00 0.000000E+00 CH3COCH3A_JPL19 EQY 210.000 3.050471E-01 8.750076E-02 1.202798E-02 1.958962E-03 1.000649E-04 0.000000E+00 0.000000E+00 CH3COCH3A_JPL19 CS 230.000 3.149499E-20 2.006286E-20 1.149978E-20 5.882838E-21 3.324875E-22 0.000000E+00 0.000000E+00 CH3COCH3A_JPL19 EQY 230.000 2.787375E-01 9.397311E-02 1.661723E-02 3.420933E-03 2.896750E-04 0.000000E+00 0.000000E+00 CH3COCH3A_JPL19 CS 250.000 3.221698E-20 2.085074E-20 1.224359E-20 6.367100E-21 3.824558E-22 0.000000E+00 0.000000E+00 CH3COCH3A_JPL19 EQY 250.000 2.691839E-01 1.077206E-01 2.349230E-02 5.851198E-03 7.538323E-04 0.000000E+00 0.000000E+00 CH3COCH3A_JPL19 CS 270.000 3.310749E-20 2.165984E-20 1.292394E-20 6.826211E-21 4.569583E-22 0.000000E+00 0.000000E+00 CH3COCH3A_JPL19 EQY 270.000 2.670556E-01 1.277864E-01 3.342436E-02 9.777799E-03 1.796207E-03 0.000000E+00 0.000000E+00 CH3COCH3A_JPL19 CS 290.000 3.416823E-20 2.245764E-20 1.349254E-20 7.232033E-21 5.587719E-22 0.000000E+00 0.000000E+00 CH3COCH3A_JPL19 EQY 290.000 2.665285E-01 1.530424E-01 4.715588E-02 1.588624E-02 3.968139E-03 0.000000E+00 0.000000E+00 CH3COCH3A_JPL19 CS 310.000 3.540091E-20 2.321163E-20 1.390108E-20 7.556429E-21 6.906736E-22 0.000000E+00 0.000000E+00 CH3COCH3A_JPL19 EQY 310.000 2.639931E-01 1.814900E-01 6.511231E-02 2.493997E-02 8.189921E-03 0.000000E+00 0.000000E+00 CH3COCH3B_JPL19 CS 210.000 3.093982E-20 1.932871E-20 1.074082E-20 5.401566E-21 3.042770E-22 0.000000E+00 0.000000E+00 CH3COCH3B_JPL19 EQY 210.000 3.229218E-04 7.721466E-05 2.367151E-05 8.249256E-06 9.221447E-07 0.000000E+00 0.000000E+00 CH3COCH3B_JPL19 CS 230.000 3.149499E-20 2.006286E-20 1.149978E-20 5.882838E-21 3.324875E-22 0.000000E+00 0.000000E+00 CH3COCH3B_JPL19 EQY 230.000 2.173083E-03 7.072018E-04 2.773263E-04 1.217087E-04 2.470983E-05 0.000000E+00 0.000000E+00 CH3COCH3B_JPL19 CS 250.000 3.221698E-20 2.085074E-20 1.224359E-20 6.367100E-21 3.824558E-22 0.000000E+00 0.000000E+00 CH3COCH3B_JPL19 EQY 250.000 8.847268E-03 3.614042E-03 1.697250E-03 8.814140E-04 2.763485E-04 0.000000E+00 0.000000E+00 CH3COCH3B_JPL19 CS 270.000 3.310749E-20 2.165984E-20 1.292394E-20 6.826211E-21 4.569583E-22 0.000000E+00 0.000000E+00 CH3COCH3B_JPL19 EQY 270.000 2.542563E-02 1.237548E-02 6.667331E-03 3.932365E-03 1.708441E-03 0.000000E+00 0.000000E+00 CH3COCH3B_JPL19 CS 290.000 3.416823E-20 2.245764E-20 1.349254E-20 7.232033E-21 5.587719E-22 0.000000E+00 0.000000E+00 CH3COCH3B_JPL19 EQY 290.000 5.670215E-02 3.177502E-02 1.909137E-02 1.244460E-02 6.963594E-03 0.000000E+00 0.000000E+00 CH3COCH3B_JPL19 CS 310.000 3.540091E-20 2.321163E-20 1.390108E-20 7.556429E-21 6.906736E-22 0.000000E+00 0.000000E+00 CH3COCH3B_JPL19 EQY 310.000 1.044077E-01 6.573535E-02 4.320569E-02 3.056103E-02 2.096195E-02 0.000000E+00 0.000000E+00 UALD_RACM2 CS 210.000 2.726167E-20 3.900286E-20 4.799106E-20 5.560386E-20 5.993363E-20 1.199965E-20 0.000000E+00 UALD_RACM2 EQY 210.000 3.000000E-02 3.000000E-02 3.000000E-02 3.000000E-02 3.000000E-02 3.000000E-02 0.000000E+00 UALD_RACM2 CS 230.000 2.726167E-20 3.900286E-20 4.799106E-20 5.560386E-20 5.993363E-20 1.199965E-20 0.000000E+00 UALD_RACM2 EQY 230.000 3.000000E-02 3.000000E-02 3.000000E-02 3.000000E-02 3.000000E-02 3.000000E-02 0.000000E+00 UALD_RACM2 CS 250.000 2.726167E-20 3.900286E-20 4.799106E-20 5.560386E-20 5.993363E-20 1.199965E-20 0.000000E+00 UALD_RACM2 EQY 250.000 3.000000E-02 3.000000E-02 3.000000E-02 3.000000E-02 3.000000E-02 3.000000E-02 0.000000E+00 UALD_RACM2 CS 270.000 2.726167E-20 3.900286E-20 4.799106E-20 5.560386E-20 5.993363E-20 1.199965E-20 0.000000E+00 UALD_RACM2 EQY 270.000 3.000000E-02 3.000000E-02 3.000000E-02 3.000000E-02 3.000000E-02 3.000000E-02 0.000000E+00 UALD_RACM2 CS 290.000 2.726167E-20 3.900286E-20 4.799106E-20 5.560386E-20 5.993363E-20 1.199965E-20 0.000000E+00 UALD_RACM2 EQY 290.000 3.000000E-02 3.000000E-02 3.000000E-02 3.000000E-02 3.000000E-02 3.000000E-02 0.000000E+00 UALD_RACM2 CS 310.000 2.726167E-20 3.900286E-20 4.799106E-20 5.560386E-20 5.993363E-20 1.199965E-20 0.000000E+00 UALD_RACM2 EQY 310.000 3.000000E-02 3.000000E-02 3.000000E-02 3.000000E-02 3.000000E-02 3.000000E-02 0.000000E+00 MEK_JGR19 CS 210.000 4.136901E-20 2.660165E-20 1.555986E-20 7.628035E-21 7.691484E-22 0.000000E+00 0.000000E+00 MEK_JGR19 EQY 210.000 3.400000E-01 3.400000E-01 3.400000E-01 3.400000E-01 3.400000E-01 0.000000E+00 0.000000E+00 MEK_JGR19 CS 230.000 4.136901E-20 2.660165E-20 1.555986E-20 7.628035E-21 7.691484E-22 0.000000E+00 0.000000E+00 MEK_JGR19 EQY 230.000 3.400000E-01 3.400000E-01 3.400000E-01 3.400000E-01 3.400000E-01 0.000000E+00 0.000000E+00 MEK_JGR19 CS 250.000 4.136901E-20 2.660165E-20 1.555986E-20 7.628035E-21 7.691484E-22 0.000000E+00 0.000000E+00 MEK_JGR19 EQY 250.000 3.400000E-01 3.400000E-01 3.400000E-01 3.400000E-01 3.400000E-01 0.000000E+00 0.000000E+00 MEK_JGR19 CS 270.000 4.136901E-20 2.660165E-20 1.555986E-20 7.628035E-21 7.691484E-22 0.000000E+00 0.000000E+00 MEK_JGR19 EQY 270.000 3.400000E-01 3.400000E-01 3.400000E-01 3.400000E-01 3.400000E-01 0.000000E+00 0.000000E+00 MEK_JGR19 CS 290.000 4.136901E-20 2.660165E-20 1.555986E-20 7.628035E-21 7.691484E-22 0.000000E+00 0.000000E+00 MEK_JGR19 EQY 290.000 3.400000E-01 3.400000E-01 3.400000E-01 3.400000E-01 3.400000E-01 0.000000E+00 0.000000E+00 MEK_JGR19 CS 310.000 4.136901E-20 2.660165E-20 1.555986E-20 7.628035E-21 7.691484E-22 0.000000E+00 0.000000E+00 MEK_JGR19 EQY 310.000 3.400000E-01 3.400000E-01 3.400000E-01 3.400000E-01 3.400000E-01 0.000000E+00 0.000000E+00 KET_JGR19 CS 210.000 4.752487E-20 3.017679E-20 1.668608E-20 8.110916E-21 7.302181E-22 0.000000E+00 0.000000E+00 KET_JGR19 EQY 210.000 3.400000E-01 3.400000E-01 3.400000E-01 3.400000E-01 3.400000E-01 0.000000E+00 0.000000E+00 KET_JGR19 CS 230.000 4.752487E-20 3.017679E-20 1.668608E-20 8.110916E-21 7.302181E-22 0.000000E+00 0.000000E+00 KET_JGR19 EQY 230.000 3.400000E-01 3.400000E-01 3.400000E-01 3.400000E-01 3.400000E-01 0.000000E+00 0.000000E+00 KET_JGR19 CS 250.000 4.752487E-20 3.017679E-20 1.668608E-20 8.110916E-21 7.302181E-22 0.000000E+00 0.000000E+00 KET_JGR19 EQY 250.000 3.400000E-01 3.400000E-01 3.400000E-01 3.400000E-01 3.400000E-01 0.000000E+00 0.000000E+00 KET_JGR19 CS 270.000 4.752487E-20 3.017679E-20 1.668608E-20 8.110916E-21 7.302181E-22 0.000000E+00 0.000000E+00 KET_JGR19 EQY 270.000 3.400000E-01 3.400000E-01 3.400000E-01 3.400000E-01 3.400000E-01 0.000000E+00 0.000000E+00 KET_JGR19 CS 290.000 4.752487E-20 3.017679E-20 1.668608E-20 8.110916E-21 7.302181E-22 0.000000E+00 0.000000E+00 KET_JGR19 EQY 290.000 3.400000E-01 3.400000E-01 3.400000E-01 3.400000E-01 3.400000E-01 0.000000E+00 0.000000E+00 KET_JGR19 CS 310.000 4.752487E-20 3.017679E-20 1.668608E-20 8.110916E-21 7.302181E-22 0.000000E+00 0.000000E+00 KET_JGR19 EQY 310.000 3.400000E-01 3.400000E-01 3.400000E-01 3.400000E-01 3.400000E-01 0.000000E+00 0.000000E+00 HKET_RACM2 CS 210.000 1.992923E-20 7.535076E-21 2.932970E-21 1.413067E-21 3.523287E-22 0.000000E+00 0.000000E+00 HKET_RACM2 EQY 210.000 6.500000E-01 6.500000E-01 6.500000E-01 6.500000E-01 6.500000E-01 0.000000E+00 0.000000E+00 HKET_RACM2 CS 230.000 1.992923E-20 7.535076E-21 2.932970E-21 1.413067E-21 3.523287E-22 0.000000E+00 0.000000E+00 HKET_RACM2 EQY 230.000 6.500000E-01 6.500000E-01 6.500000E-01 6.500000E-01 6.500000E-01 0.000000E+00 0.000000E+00 HKET_RACM2 CS 250.000 1.992923E-20 7.535076E-21 2.932970E-21 1.413067E-21 3.523287E-22 0.000000E+00 0.000000E+00 HKET_RACM2 EQY 250.000 6.500000E-01 6.500000E-01 6.500000E-01 6.500000E-01 6.500000E-01 0.000000E+00 0.000000E+00 HKET_RACM2 CS 270.000 1.992923E-20 7.535076E-21 2.932970E-21 1.413067E-21 3.523287E-22 0.000000E+00 0.000000E+00 HKET_RACM2 EQY 270.000 6.500000E-01 6.500000E-01 6.500000E-01 6.500000E-01 6.500000E-01 0.000000E+00 0.000000E+00 HKET_RACM2 CS 290.000 1.992923E-20 7.535076E-21 2.932970E-21 1.413067E-21 3.523287E-22 0.000000E+00 0.000000E+00 HKET_RACM2 EQY 290.000 6.500000E-01 6.500000E-01 6.500000E-01 6.500000E-01 6.500000E-01 0.000000E+00 0.000000E+00 HKET_RACM2 CS 310.000 1.992923E-20 7.535076E-21 2.932970E-21 1.413067E-21 3.523287E-22 0.000000E+00 0.000000E+00 HKET_RACM2 EQY 310.000 6.500000E-01 6.500000E-01 6.500000E-01 6.500000E-01 6.500000E-01 0.000000E+00 0.000000E+00 MACR_RACM2 CS 210.000 2.653810E-20 3.941266E-20 4.989643E-20 5.893396E-20 6.529031E-20 1.389067E-20 0.000000E+00 MACR_RACM2 EQY 210.000 8.015506E-03 8.015506E-03 8.015506E-03 8.015506E-03 8.015506E-03 8.015506E-03 0.000000E+00 MACR_RACM2 CS 230.000 2.653810E-20 3.941266E-20 4.989643E-20 5.893396E-20 6.529031E-20 1.389067E-20 0.000000E+00 MACR_RACM2 EQY 230.000 8.015506E-03 8.015506E-03 8.015506E-03 8.015506E-03 8.015506E-03 8.015506E-03 0.000000E+00 MACR_RACM2 CS 250.000 2.653810E-20 3.941266E-20 4.989643E-20 5.893396E-20 6.529031E-20 1.389067E-20 0.000000E+00 MACR_RACM2 EQY 250.000 8.015506E-03 8.015506E-03 8.015506E-03 8.015506E-03 8.015506E-03 8.015506E-03 0.000000E+00 MACR_RACM2 CS 270.000 2.653810E-20 3.941266E-20 4.989643E-20 5.893396E-20 6.529031E-20 1.389067E-20 0.000000E+00 MACR_RACM2 EQY 270.000 8.015506E-03 8.015506E-03 8.015506E-03 8.015506E-03 8.015506E-03 8.015506E-03 0.000000E+00 MACR_RACM2 CS 290.000 2.653810E-20 3.941266E-20 4.989643E-20 5.893396E-20 6.529031E-20 1.389067E-20 0.000000E+00 MACR_RACM2 EQY 290.000 8.015506E-03 8.015506E-03 8.015506E-03 8.015506E-03 8.015506E-03 8.015506E-03 0.000000E+00 MACR_RACM2 CS 310.000 2.653810E-20 3.941266E-20 4.989643E-20 5.893396E-20 6.529031E-20 1.389067E-20 0.000000E+00 MACR_RACM2 EQY 310.000 8.015506E-03 8.015506E-03 8.015506E-03 8.015506E-03 8.015506E-03 8.015506E-03 0.000000E+00 MVK_RACM2 CS 210.000 3.026195E-20 4.372470E-20 5.436504E-20 6.304111E-20 6.815623E-20 1.494179E-20 0.000000E+00 MVK_RACM2 EQY 210.000 1.750145E-02 1.106229E-02 7.572843E-03 5.008090E-03 2.251655E-03 4.698719E-04 0.000000E+00 MVK_RACM2 CS 230.000 3.026195E-20 4.372470E-20 5.436504E-20 6.304111E-20 6.815623E-20 1.494179E-20 0.000000E+00 MVK_RACM2 EQY 230.000 1.750145E-02 1.106229E-02 7.572843E-03 5.008090E-03 2.251655E-03 4.698719E-04 0.000000E+00 MVK_RACM2 CS 250.000 3.026195E-20 4.372470E-20 5.436504E-20 6.304111E-20 6.815623E-20 1.494179E-20 0.000000E+00 MVK_RACM2 EQY 250.000 1.750145E-02 1.106229E-02 7.572843E-03 5.008090E-03 2.251655E-03 4.698719E-04 0.000000E+00 MVK_RACM2 CS 270.000 3.026195E-20 4.372470E-20 5.436504E-20 6.304111E-20 6.815623E-20 1.494179E-20 0.000000E+00 MVK_RACM2 EQY 270.000 1.750145E-02 1.106229E-02 7.572843E-03 5.008090E-03 2.251655E-03 4.698719E-04 0.000000E+00 MVK_RACM2 CS 290.000 3.026195E-20 4.372470E-20 5.436504E-20 6.304111E-20 6.815623E-20 1.494179E-20 0.000000E+00 MVK_RACM2 EQY 290.000 1.750145E-02 1.106229E-02 7.572843E-03 5.008090E-03 2.251655E-03 4.698719E-04 0.000000E+00 MVK_RACM2 CS 310.000 3.026195E-20 4.372470E-20 5.436504E-20 6.304111E-20 6.815623E-20 1.494179E-20 0.000000E+00 MVK_RACM2 EQY 310.000 1.750145E-02 1.106229E-02 7.572843E-03 5.008090E-03 2.251655E-03 4.698719E-04 0.000000E+00 GLYH2_RACM2 CS 210.000 3.772546E-20 3.537579E-20 3.193592E-20 2.608503E-20 1.125923E-20 2.667804E-20 1.453960E-20 GLYH2_RACM2 EQY 210.000 2.083945E-01 1.741676E-01 1.458094E-01 1.226219E-01 7.896682E-02 4.675626E-04 0.000000E+00 GLYH2_RACM2 CS 230.000 3.772546E-20 3.537579E-20 3.193592E-20 2.608503E-20 1.125923E-20 2.667804E-20 1.453960E-20 GLYH2_RACM2 EQY 230.000 2.083945E-01 1.741676E-01 1.458094E-01 1.226219E-01 7.896682E-02 4.675626E-04 0.000000E+00 GLYH2_RACM2 CS 250.000 3.772546E-20 3.537579E-20 3.193592E-20 2.608503E-20 1.125923E-20 2.667804E-20 1.453960E-20 GLYH2_RACM2 EQY 250.000 2.083945E-01 1.741676E-01 1.458094E-01 1.226219E-01 7.896682E-02 4.675626E-04 0.000000E+00 GLYH2_RACM2 CS 270.000 3.772546E-20 3.537579E-20 3.193592E-20 2.608503E-20 1.125923E-20 2.667804E-20 1.453960E-20 GLYH2_RACM2 EQY 270.000 2.083945E-01 1.741676E-01 1.458094E-01 1.226219E-01 7.896682E-02 4.675626E-04 0.000000E+00 GLYH2_RACM2 CS 290.000 3.772546E-20 3.537579E-20 3.193592E-20 2.608503E-20 1.125923E-20 2.667804E-20 1.453960E-20 GLYH2_RACM2 EQY 290.000 2.083945E-01 1.741676E-01 1.458094E-01 1.226219E-01 7.896682E-02 4.675626E-04 0.000000E+00 GLYH2_RACM2 CS 310.000 3.772546E-20 3.537579E-20 3.193592E-20 2.608503E-20 1.125923E-20 2.667804E-20 1.453960E-20 GLYH2_RACM2 EQY 310.000 2.083945E-01 1.741676E-01 1.458094E-01 1.226219E-01 7.896682E-02 4.675626E-04 0.000000E+00 GLYF_RACM2 CS 210.000 3.772546E-20 3.537579E-20 3.193592E-20 2.608503E-20 1.125923E-20 2.667804E-20 1.453960E-20 GLYF_RACM2 EQY 210.000 4.492523E-01 4.582704E-01 4.575158E-01 4.464855E-01 3.643574E-01 9.914810E-03 6.082142E-05 GLYF_RACM2 CS 230.000 3.772546E-20 3.537579E-20 3.193592E-20 2.608503E-20 1.125923E-20 2.667804E-20 1.453960E-20 GLYF_RACM2 EQY 230.000 4.492523E-01 4.582704E-01 4.575158E-01 4.464855E-01 3.643574E-01 9.914810E-03 6.082142E-05 GLYF_RACM2 CS 250.000 3.772546E-20 3.537579E-20 3.193592E-20 2.608503E-20 1.125923E-20 2.667804E-20 1.453960E-20 GLYF_RACM2 EQY 250.000 4.492523E-01 4.582704E-01 4.575158E-01 4.464855E-01 3.643574E-01 9.914810E-03 6.082142E-05 GLYF_RACM2 CS 270.000 3.772546E-20 3.537579E-20 3.193592E-20 2.608503E-20 1.125923E-20 2.667804E-20 1.453960E-20 GLYF_RACM2 EQY 270.000 4.492523E-01 4.582704E-01 4.575158E-01 4.464855E-01 3.643574E-01 9.914810E-03 6.082142E-05 GLYF_RACM2 CS 290.000 3.772546E-20 3.537579E-20 3.193592E-20 2.608503E-20 1.125923E-20 2.667804E-20 1.453960E-20 GLYF_RACM2 EQY 290.000 4.492523E-01 4.582704E-01 4.575158E-01 4.464855E-01 3.643574E-01 9.914810E-03 6.082142E-05 GLYF_RACM2 CS 310.000 3.772546E-20 3.537579E-20 3.193592E-20 2.608503E-20 1.125923E-20 2.667804E-20 1.453960E-20 GLYF_RACM2 EQY 310.000 4.492523E-01 4.582704E-01 4.575158E-01 4.464855E-01 3.643574E-01 9.914810E-03 6.082142E-05 GLYHX_RACM2 CS 210.000 3.772546E-20 3.537579E-20 3.193592E-20 2.608503E-20 1.125923E-20 2.667804E-20 1.453960E-20 GLYHX_RACM2 EQY 210.000 3.424615E-01 3.676233E-01 3.968463E-01 4.307733E-01 5.451978E-01 6.424549E-02 3.251833E-03 GLYHX_RACM2 CS 230.000 3.772546E-20 3.537579E-20 3.193592E-20 2.608503E-20 1.125923E-20 2.667804E-20 1.453960E-20 GLYHX_RACM2 EQY 230.000 3.424615E-01 3.676233E-01 3.968463E-01 4.307733E-01 5.451978E-01 6.424549E-02 3.251833E-03 GLYHX_RACM2 CS 250.000 3.772546E-20 3.537579E-20 3.193592E-20 2.608503E-20 1.125923E-20 2.667804E-20 1.453960E-20 GLYHX_RACM2 EQY 250.000 3.424615E-01 3.676233E-01 3.968463E-01 4.307733E-01 5.451978E-01 6.424549E-02 3.251833E-03 GLYHX_RACM2 CS 270.000 3.772546E-20 3.537579E-20 3.193592E-20 2.608503E-20 1.125923E-20 2.667804E-20 1.453960E-20 GLYHX_RACM2 EQY 270.000 3.424615E-01 3.676233E-01 3.968463E-01 4.307733E-01 5.451978E-01 6.424549E-02 3.251833E-03 GLYHX_RACM2 CS 290.000 3.772546E-20 3.537579E-20 3.193592E-20 2.608503E-20 1.125923E-20 2.667804E-20 1.453960E-20 GLYHX_RACM2 EQY 290.000 3.424615E-01 3.676233E-01 3.968463E-01 4.307733E-01 5.451978E-01 6.424549E-02 3.251833E-03 GLYHX_RACM2 CS 310.000 3.772546E-20 3.537579E-20 3.193592E-20 2.608503E-20 1.125923E-20 2.667804E-20 1.453960E-20 GLYHX_RACM2 EQY 310.000 3.424615E-01 3.676233E-01 3.968463E-01 4.307733E-01 5.451978E-01 6.424549E-02 3.251833E-03 MGLY_RACM2 CS 210.000 4.369065E-20 3.468163E-20 2.431083E-20 1.791723E-20 6.182988E-21 3.703444E-20 7.886681E-21 MGLY_RACM2 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 6.094060E-01 1.339466E-01 MGLY_RACM2 CS 230.000 4.369065E-20 3.468163E-20 2.431083E-20 1.791723E-20 6.182988E-21 3.703444E-20 7.886681E-21 MGLY_RACM2 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 6.094060E-01 1.339466E-01 MGLY_RACM2 CS 250.000 4.369065E-20 3.468163E-20 2.431083E-20 1.791723E-20 6.182988E-21 3.703444E-20 7.886681E-21 MGLY_RACM2 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 6.094060E-01 1.339466E-01 MGLY_RACM2 CS 270.000 4.369065E-20 3.468163E-20 2.431083E-20 1.791723E-20 6.182988E-21 3.703444E-20 7.886681E-21 MGLY_RACM2 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 6.094060E-01 1.339466E-01 MGLY_RACM2 CS 290.000 4.369065E-20 3.468163E-20 2.431083E-20 1.791723E-20 6.182988E-21 3.703444E-20 7.886681E-21 MGLY_RACM2 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 6.094060E-01 1.339466E-01 MGLY_RACM2 CS 310.000 4.369065E-20 3.468163E-20 2.431083E-20 1.791723E-20 6.182988E-21 3.703444E-20 7.886681E-21 MGLY_RACM2 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 6.094060E-01 1.339466E-01 BALD_RACM2 CS 210.000 4.785295E-19 7.446018E-20 7.090561E-20 8.511820E-20 9.190661E-20 1.652288E-20 0.000000E+00 BALD_RACM2 EQY 210.000 6.000000E-02 6.000000E-02 6.000000E-02 6.000000E-02 6.000000E-02 5.654883E-02 0.000000E+00 BALD_RACM2 CS 230.000 4.785295E-19 7.446018E-20 7.090561E-20 8.511820E-20 9.190661E-20 1.652288E-20 0.000000E+00 BALD_RACM2 EQY 230.000 6.000000E-02 6.000000E-02 6.000000E-02 6.000000E-02 6.000000E-02 5.654883E-02 0.000000E+00 BALD_RACM2 CS 250.000 4.785295E-19 7.446018E-20 7.090561E-20 8.511820E-20 9.190661E-20 1.652288E-20 0.000000E+00 BALD_RACM2 EQY 250.000 6.000000E-02 6.000000E-02 6.000000E-02 6.000000E-02 6.000000E-02 5.654883E-02 0.000000E+00 BALD_RACM2 CS 270.000 4.785295E-19 7.446018E-20 7.090561E-20 8.511820E-20 9.190661E-20 1.652288E-20 0.000000E+00 BALD_RACM2 EQY 270.000 6.000000E-02 6.000000E-02 6.000000E-02 6.000000E-02 6.000000E-02 5.654883E-02 0.000000E+00 BALD_RACM2 CS 290.000 4.785295E-19 7.446018E-20 7.090561E-20 8.511820E-20 9.190661E-20 1.652288E-20 0.000000E+00 BALD_RACM2 EQY 290.000 6.000000E-02 6.000000E-02 6.000000E-02 6.000000E-02 6.000000E-02 5.654883E-02 0.000000E+00 BALD_RACM2 CS 310.000 4.785295E-19 7.446018E-20 7.090561E-20 8.511820E-20 9.190661E-20 1.652288E-20 0.000000E+00 BALD_RACM2 EQY 310.000 6.000000E-02 6.000000E-02 6.000000E-02 6.000000E-02 6.000000E-02 5.654883E-02 0.000000E+00 OP1_RACM2 CS 210.000 5.502859E-21 3.521580E-21 2.407395E-21 1.698535E-21 7.264998E-22 4.583933E-23 0.000000E+00 OP1_RACM2 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 OP1_RACM2 CS 230.000 5.502859E-21 3.521580E-21 2.407395E-21 1.698535E-21 7.264998E-22 4.583933E-23 0.000000E+00 OP1_RACM2 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 OP1_RACM2 CS 250.000 5.502859E-21 3.521580E-21 2.407395E-21 1.698535E-21 7.264998E-22 4.583933E-23 0.000000E+00 OP1_RACM2 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 OP1_RACM2 CS 270.000 5.502859E-21 3.521580E-21 2.407395E-21 1.698535E-21 7.264998E-22 4.583933E-23 0.000000E+00 OP1_RACM2 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 OP1_RACM2 CS 290.000 5.502859E-21 3.521580E-21 2.407395E-21 1.698535E-21 7.264998E-22 4.583933E-23 0.000000E+00 OP1_RACM2 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 OP1_RACM2 CS 310.000 5.502859E-21 3.521580E-21 2.407395E-21 1.698535E-21 7.264998E-22 4.583933E-23 0.000000E+00 OP1_RACM2 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 PAA_RACM2 CS 210.000 1.925838E-21 1.009150E-21 5.907156E-22 3.670602E-22 1.041377E-22 0.000000E+00 0.000000E+00 PAA_RACM2 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 PAA_RACM2 CS 230.000 1.925838E-21 1.009150E-21 5.907156E-22 3.670602E-22 1.041377E-22 0.000000E+00 0.000000E+00 PAA_RACM2 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 PAA_RACM2 CS 250.000 1.925838E-21 1.009150E-21 5.907156E-22 3.670602E-22 1.041377E-22 0.000000E+00 0.000000E+00 PAA_RACM2 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 PAA_RACM2 CS 270.000 1.925838E-21 1.009150E-21 5.907156E-22 3.670602E-22 1.041377E-22 0.000000E+00 0.000000E+00 PAA_RACM2 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 PAA_RACM2 CS 290.000 1.925838E-21 1.009150E-21 5.907156E-22 3.670602E-22 1.041377E-22 0.000000E+00 0.000000E+00 PAA_RACM2 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 PAA_RACM2 CS 310.000 1.925838E-21 1.009150E-21 5.907156E-22 3.670602E-22 1.041377E-22 0.000000E+00 0.000000E+00 PAA_RACM2 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 ONIT_RACM2 CS 210.000 9.713560E-21 4.546408E-21 2.120818E-21 9.214405E-22 1.152105E-22 1.219897E-24 0.000000E+00 ONIT_RACM2 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 ONIT_RACM2 CS 230.000 9.713560E-21 4.546408E-21 2.120818E-21 9.214405E-22 1.152105E-22 1.219897E-24 0.000000E+00 ONIT_RACM2 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 ONIT_RACM2 CS 250.000 1.018927E-20 4.819206E-21 2.272045E-21 1.003918E-21 1.288490E-22 1.219897E-24 0.000000E+00 ONIT_RACM2 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 ONIT_RACM2 CS 270.000 1.121172E-20 5.414893E-21 2.607618E-21 1.191682E-21 1.611607E-22 1.219897E-24 0.000000E+00 ONIT_RACM2 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 ONIT_RACM2 CS 290.000 1.233676E-20 6.084210E-21 2.992754E-21 1.414564E-21 2.015753E-22 1.219897E-24 0.000000E+00 ONIT_RACM2 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 ONIT_RACM2 CS 310.000 1.357470E-20 6.836260E-21 3.434773E-21 1.679132E-21 2.521246E-22 1.219897E-24 0.000000E+00 ONIT_RACM2 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 PAN1_RACM2 CS 210.000 1.768018E-21 6.646887E-22 3.009928E-22 1.566195E-22 3.492933E-23 1.494937E-24 0.000000E+00 PAN1_RACM2 EQY 210.000 8.000000E-01 8.000000E-01 6.922216E-01 6.000000E-01 6.000000E-01 6.000000E-01 0.000000E+00 PAN1_RACM2 CS 230.000 2.071785E-21 7.907078E-22 3.614192E-22 1.899570E-22 4.384918E-23 1.511154E-24 0.000000E+00 PAN1_RACM2 EQY 230.000 8.000000E-01 8.000000E-01 6.922216E-01 6.000000E-01 6.000000E-01 6.000000E-01 0.000000E+00 PAN1_RACM2 CS 250.000 2.427744E-21 9.406189E-22 4.339766E-22 2.303907E-22 5.504689E-23 1.527546E-24 0.000000E+00 PAN1_RACM2 EQY 250.000 8.000000E-01 8.000000E-01 6.922216E-01 6.000000E-01 6.000000E-01 6.000000E-01 0.000000E+00 PAN1_RACM2 CS 270.000 2.844861E-21 1.118952E-21 5.211004E-22 2.794310E-22 6.910414E-23 1.544117E-24 0.000000E+00 PAN1_RACM2 EQY 270.000 8.000000E-01 8.000000E-01 6.922216E-01 6.000000E-01 6.000000E-01 6.000000E-01 0.000000E+00 PAN1_RACM2 CS 290.000 3.333644E-21 1.331095E-21 6.257149E-22 3.389099E-22 8.675118E-23 1.560867E-24 0.000000E+00 PAN1_RACM2 EQY 290.000 8.000000E-01 8.000000E-01 6.922216E-01 6.000000E-01 6.000000E-01 6.000000E-01 0.000000E+00 PAN1_RACM2 CS 310.000 3.906406E-21 1.583459E-21 7.513316E-22 4.110492E-22 1.089047E-22 1.577798E-24 0.000000E+00 PAN1_RACM2 EQY 310.000 8.000000E-01 8.000000E-01 6.922216E-01 6.000000E-01 6.000000E-01 6.000000E-01 0.000000E+00 PAN2_RACM2 CS 210.000 1.768018E-21 6.646887E-22 3.009928E-22 1.566195E-22 3.492933E-23 1.494937E-24 0.000000E+00 PAN2_RACM2 EQY 210.000 2.000000E-01 2.000000E-01 3.077784E-01 4.000000E-01 4.000000E-01 4.000000E-01 0.000000E+00 PAN2_RACM2 CS 230.000 2.071785E-21 7.907078E-22 3.614192E-22 1.899570E-22 4.384918E-23 1.511154E-24 0.000000E+00 PAN2_RACM2 EQY 230.000 2.000000E-01 2.000000E-01 3.077784E-01 4.000000E-01 4.000000E-01 4.000000E-01 0.000000E+00 PAN2_RACM2 CS 250.000 2.427744E-21 9.406189E-22 4.339766E-22 2.303907E-22 5.504689E-23 1.527546E-24 0.000000E+00 PAN2_RACM2 EQY 250.000 2.000000E-01 2.000000E-01 3.077784E-01 4.000000E-01 4.000000E-01 4.000000E-01 0.000000E+00 PAN2_RACM2 CS 270.000 2.844861E-21 1.118952E-21 5.211004E-22 2.794310E-22 6.910414E-23 1.544117E-24 0.000000E+00 PAN2_RACM2 EQY 270.000 2.000000E-01 2.000000E-01 3.077784E-01 4.000000E-01 4.000000E-01 4.000000E-01 0.000000E+00 PAN2_RACM2 CS 290.000 3.333644E-21 1.331095E-21 6.257149E-22 3.389099E-22 8.675118E-23 1.560867E-24 0.000000E+00 PAN2_RACM2 EQY 290.000 2.000000E-01 2.000000E-01 3.077784E-01 4.000000E-01 4.000000E-01 4.000000E-01 0.000000E+00 PAN2_RACM2 CS 310.000 3.906406E-21 1.583459E-21 7.513316E-22 4.110492E-22 1.089047E-22 1.577798E-24 0.000000E+00 PAN2_RACM2 EQY 310.000 2.000000E-01 2.000000E-01 3.077784E-01 4.000000E-01 4.000000E-01 4.000000E-01 0.000000E+00 HCHO_RAD_RACM2 CS 210.000 2.909262E-20 3.408478E-20 1.539385E-20 2.593101E-20 1.680637E-20 9.199664E-22 0.000000E+00 HCHO_RAD_RACM2 EQY 210.000 7.289106E-01 7.594289E-01 7.389182E-01 6.682277E-01 4.671569E-01 2.792120E-01 0.000000E+00 HCHO_RAD_RACM2 CS 230.000 2.906506E-20 3.408251E-20 1.538521E-20 2.594953E-20 1.681597E-20 9.193698E-22 0.000000E+00 HCHO_RAD_RACM2 EQY 230.000 7.289106E-01 7.594289E-01 7.389182E-01 6.682277E-01 4.671569E-01 2.792120E-01 0.000000E+00 HCHO_RAD_RACM2 CS 250.000 2.903750E-20 3.408023E-20 1.537658E-20 2.596804E-20 1.682557E-20 9.187729E-22 0.000000E+00 HCHO_RAD_RACM2 EQY 250.000 7.289106E-01 7.594289E-01 7.389182E-01 6.682277E-01 4.671569E-01 2.792120E-01 0.000000E+00 HCHO_RAD_RACM2 CS 270.000 2.900994E-20 3.407795E-20 1.536794E-20 2.598656E-20 1.683517E-20 9.181762E-22 0.000000E+00 HCHO_RAD_RACM2 EQY 270.000 7.289106E-01 7.594289E-01 7.389182E-01 6.682277E-01 4.671569E-01 2.792120E-01 0.000000E+00 HCHO_RAD_RACM2 CS 290.000 2.898238E-20 3.407568E-20 1.535930E-20 2.600508E-20 1.684477E-20 9.175795E-22 0.000000E+00 HCHO_RAD_RACM2 EQY 290.000 7.289106E-01 7.594289E-01 7.389182E-01 6.682277E-01 4.671569E-01 2.792120E-01 0.000000E+00 HCHO_RAD_RACM2 CS 310.000 2.896860E-20 3.407454E-20 1.535498E-20 2.601433E-20 1.684957E-20 9.172811E-22 0.000000E+00 HCHO_RAD_RACM2 EQY 310.000 7.289106E-01 7.594289E-01 7.389182E-01 6.682277E-01 4.671569E-01 2.792120E-01 0.000000E+00 ACRO_09 CS 210.000 1.856128E-20 2.787986E-20 3.602616E-20 4.321518E-20 5.371941E-20 1.543856E-20 0.000000E+00 ACRO_09 EQY 210.000 5.269045E-02 3.293790E-02 2.264026E-02 1.595375E-02 6.767500E-03 1.624741E-03 0.000000E+00 ACRO_09 CS 230.000 1.856128E-20 2.787986E-20 3.602616E-20 4.321518E-20 5.371941E-20 1.543856E-20 0.000000E+00 ACRO_09 EQY 230.000 5.269045E-02 3.293790E-02 2.264026E-02 1.595375E-02 6.767500E-03 1.624741E-03 0.000000E+00 ACRO_09 CS 250.000 1.856128E-20 2.787986E-20 3.602616E-20 4.321518E-20 5.371941E-20 1.543856E-20 0.000000E+00 ACRO_09 EQY 250.000 5.269045E-02 3.293790E-02 2.264026E-02 1.595375E-02 6.767500E-03 1.624741E-03 0.000000E+00 ACRO_09 CS 270.000 1.856128E-20 2.787986E-20 3.602616E-20 4.321518E-20 5.371941E-20 1.543856E-20 0.000000E+00 ACRO_09 EQY 270.000 5.269045E-02 3.293790E-02 2.264026E-02 1.595375E-02 6.767500E-03 1.624741E-03 0.000000E+00 ACRO_09 CS 290.000 1.856128E-20 2.787986E-20 3.602616E-20 4.321518E-20 5.371941E-20 1.543856E-20 0.000000E+00 ACRO_09 EQY 290.000 5.269045E-02 3.293790E-02 2.264026E-02 1.595375E-02 6.767500E-03 1.624741E-03 0.000000E+00 ACRO_09 CS 310.000 1.856128E-20 2.787986E-20 3.602616E-20 4.321518E-20 5.371941E-20 1.543856E-20 0.000000E+00 ACRO_09 EQY 310.000 5.269045E-02 3.293790E-02 2.264026E-02 1.595375E-02 6.767500E-03 1.624741E-03 0.000000E+00 ! Ozone Cross-Section for Stratospheric Opacity based on Table 4-5 in ! Chemical Kinetics and Photochemical Data for Use in Atmospheric ! Studies Evaluation Number 15. Sander et. al: NASA-JPL 2006 NTEMP_STRAT = 6 ! QUANTITY TEMP WBIN( 1) WBIN( 2) WBIN( 3) WBIN( 4) WBIN( 5) WBIN( 6) WBIN( 7) O3_STRAT CS 180.000 6.113743E-19 2.263004E-19 8.354117E-20 3.417408E-20 3.688351E-21 4.086261E-23 1.663175E-21 O3_STRAT CS 260.000 6.434133E-19 2.434104E-19 9.254548E-20 3.928807E-20 4.583227E-21 4.086261E-23 1.663175E-21 O3_STRAT CS 300.000 6.685868E-19 2.568540E-19 9.962031E-20 4.330621E-20 5.286344E-21 4.086261E-23 1.663175E-21 O3_STRAT CS 340.000 6.685868E-19 2.568540E-19 9.962031E-20 4.330621E-20 5.286344E-21 4.086261E-23 1.663175E-21 O3_STRAT CS 380.000 6.685868E-19 2.568540E-19 9.962031E-20 4.330621E-20 5.286344E-21 4.086261E-23 1.663175E-21 O3_STRAT CS 420.000 6.685868E-19 2.568540E-19 9.962031E-20 4.330621E-20 5.286344E-21 4.086261E-23 1.663175E-21 ================================================ FILE: CCTM/src/MECHS/cracmm1amore_aq/GC_cracmm1amore_aq.nml ================================================ &GC_nml GC_SPECIES_DATA = !SPECIES ,MOLWT ,IC ,IC_FAC ,BC ,BC_FAC ,DRYDEP SURR ,FAC ,WET-SCAV SURR ,FAC ,GC2AE SURR ,GC2AQ SURR,TRNS ,DDEP ,WDEP ,CONC ,!RepCmp,ExplicitorLumped,DTXSID,SMILES 'O3' , 48.0 ,'' ,-1 ,'' ,-1 ,'VD_O3' , 1 ,'O3' , 1 ,'' ,'O3' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Ozone,E,DTXSID0021098,[O-][O+]=O 'O3P' , 16.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!Ground state oxygen,E,DTXSID00170378,[O] 'O1D' , 16.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!Excited oxygen,E,DTXSID00170378,[O] 'H2O2' , 34.0 ,'' ,-1 ,'' ,-1 ,'VD_H2O2' , 1 ,'H2O2' , 1 ,'' ,'H2O2' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Hydrogen peroxide,E,DTXSID2020715,OO 'HO' , 17.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'OH' ,'HO' ,'' ,'' ,'' ,'Yes',!Hydroxyl radical,E,NA,[OH] 'NO2' , 46.0 ,'' ,-1 ,'' ,-1 ,'VD_NO2' , 1 ,'NO2' , 1 ,'NO2' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Nitrogen dioxide,E,DTXSID7020974,N(=O)[O] 'NO' , 30.0 ,'' ,-1 ,'' ,-1 ,'VD_NO' , 1 ,'NO' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Nitric oxide,E,DTXSID1020938,[N]=O 'NO3' , 62.0 ,'' ,-1 ,'' ,-1 ,'VD_NO3' , 1 ,'NO3' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Nitrate radical,E,NA,[O]N(=O)=O 'HONO' , 47.0 ,'' ,-1 ,'' ,-1 ,'VD_HONO' , 1 ,'HNO2' , 1 ,'HONO' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Nitrous acid,E,DTXSID7064813,N(=O)O 'HNO3' , 63.0 ,'' ,-1 ,'' ,-1 ,'VD_HNO3' , 1 ,'HNO3' , 1 ,'HNO3' ,'HNO3' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Nitric acid,E,DTXSID5029685,[N+](=O)(O)[O-] 'HNO4' , 79.0 ,'' ,-1 ,'' ,-1 ,'VD_PNA' , 1 ,'HNO4' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Hydroxy nitrate,E,DTXSID201030501,[N+](=O)([O-])OO 'HO2' , 33.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!Hydroperoxy,E,DTXSID30894777,O[O-] 'HCHO' , 30.0 ,'' ,-1 ,'' ,-1 ,'VD_HCHO' , 1 ,'FORMALDEHYDE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Formaldehyde,E,DTXSID7020637,C=O 'CO' , 28.0 ,'' ,-1 ,'' ,-1 ,'VD_CO' , 1 ,'CO' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Carbon monoxide,E,DTXSID5027273,[C-]#[O+] 'ACD' , 44.0 ,'' ,-1 ,'' ,-1 ,'VD_ACD' , 1 ,'ACETALDEHYDE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Acetaldehyde,E,DTXSID5039224,CC=O 'MO2' , 47.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!Methylperoxy,E,DTXSID10944007,CO[O] 'ALD' , 58.0 ,'' ,-1 ,'' ,-1 ,'VD_ALD' , 1 ,'GENERIC_ALDEHYDE', 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Propanal,L,DTXSID2021658,CCC=O 'ETHP' , 61.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!Ethylperoxy,L,DTXSID90953652,CCO[O] 'ACT' , 58.0 ,'' ,-1 ,'' ,-1 ,'VD_ACT' , 1 ,'ACETONE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Acetone,E,DTXSID8021482,CC(C)=O 'ACO3' , 75.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!Acetylperoxy,E,DTXSID40957943,CC(=O)O[O] 'UALD' , 84.1 ,'' ,-1 ,'' ,-1 ,'VD_UALD' , 1 ,'UALDOPERA' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!2-Methylbut-2-enal,L,DTXSID00859414,CC=C(C)C=O 'KET' , 86.0 ,'' ,-1 ,'' ,-1 ,'VD_KET' , 1 ,'DIETHYLKETONE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Diethylketone,L,DTXSID6021820,CCC(=O)CC 'MEK' , 72.1 ,'' ,-1 ,'' ,-1 ,'VD_MEK' , 1 ,'MEK' , 1 ,'' ,'' ,'Yes' ,'Yes','Yes' ,'Yes',!Methyl ethyl ketone,E,DTXSID3021516,CCC(C)=O 'HKET' , 74.0 ,'' ,-1 ,'' ,-1 ,'VD_HKET' , 1 ,'HYDROXY-ACETONE' , 1 ,'' ,'' ,'Yes' ,'Yes','Yes' ,'Yes',!Hydroxy acetone,L,DTXSID8051590,CC(=O)CO 'MACR' , 70.0 ,'' ,-1 ,'' ,-1 ,'VD_MACR' , 1 ,'METHACROLEIN' , 1 ,'' ,'' ,'Yes' ,'Yes','Yes' ,'Yes',!Methacrolein,L,DTXSID0052540,CC(=C)C=O 'MACP' ,101.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!(2-methylprop-2-enoyl)peroxy,L,NA,CC(=C)C(=O)O[O] 'XO2' , 1.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!NA,NA,NA,NA 'MVK' , 70.1 ,'' ,-1 ,'' ,-1 ,'VD_MVK' , 1 ,'MVK' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Methyl vinyl ketone,E,DTXSID3025671,CC(=O)C=C 'GLY' , 58.0 ,'' ,-1 ,'' ,-1 ,'VD_GLY' , 1 ,'GLYOXAL' , 1 ,'' ,'GLY' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Glyoxal,L,DTXSID5025364,O=CC=O 'MGLY' , 72.0 ,'' ,-1 ,'' ,-1 ,'VD_MGLY' , 1 ,'METHYL_GLYOXAL' , 1 ,'' ,'MGLY' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Methyl glyoxal,L,DTXSID0021628,CC(=O)C=O 'DCB1' , 98.0 ,'' ,-1 ,'' ,-1 ,'VD_DCB1' , 1 ,'METHACROLEIN' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!2-methylbut-2-enedial,L,NA,O=CC=C(C)C=O 'DCB2' ,112.1 ,'' ,-1 ,'' ,-1 ,'VD_DCB2' , 1 ,'METHACROLEIN' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!2-methyl-4-oxopent-2-enal,L,NA,O=CC(=CC(=O)C)C 'BALD' ,106.0 ,'' ,-1 ,'' ,-1 ,'VD_BALD' , 1 ,'BENZALDEHYDE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Benzaldehyde,L,DTXSID8039241,O=CC1=CC=CC=C1 'CHO' ,139.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!4-hydroxy-3;5-dimethylcyclohexa-2;5-dien-1-yloxidanyl,L,NA,[O]C1C=C(C)C(O)C(=C1)C 'OP1' , 48.0 ,'' ,-1 ,'' ,-1 ,'VD_OP1' , 1 ,'METHYLHYDROPEROX', 1 ,'' ,'MHP' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Methyl hydroperoxide,E,DTXSID10184401,COO 'OP2' , 62.0 ,'' ,-1 ,'' ,-1 ,'VD_OP2' , 1 ,'METHYLHYDROPEROX', 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Ethyl hydroperoxide,L,DTXSID70184402,CCOO 'OPB' ,186.2 ,'' ,-1 ,'' ,-1 ,'VD_OPB' , 1 ,'METHYLHYDROPEROX', 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!2-hydroperoxy-2;6;6-trimethylbicyclo[3.1.1]heptan-3-ol,L,NA,OOC1(C)C(O)CC2CC1C2(C)C 'OP3' ,176.2 ,'' ,-1 ,'' ,-1 ,'VD_OP3' , 1 ,'METHYLHYDROPEROX', 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!5-hydroperoxy-6-hydroxyoctan-3-one,L,NA,CCC(=O)CC(OO)C(O)CC 'PAA' , 76.0 ,'' ,-1 ,'' ,-1 ,'VD_PAA' , 1 ,'PEROXYACETIC_ACI', 1 ,'' ,'PAA' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Peroxyacetic acid,L,DTXSID1025853,CC(=O)OO 'ONIT' ,119.0 ,'' ,-1 ,'' ,-1 ,'VD_ONIT' , 1 ,'MPAN' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Butan-2-yl nitrate,L,DTXSID00871813,CCC(C)O[N+](=O)[O-] 'PAN' ,121.0 ,'' ,-1 ,'' ,-1 ,'VD_PAN' , 1 ,'PAN' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Peroxyacetyl nitrate,L,DTXSID4062301,CC(=O)OON(=O)=O 'N2O5' ,108.0 ,'' ,-1 ,'' ,-1 ,'VD_N2O5' , 1 ,'N2O5' , 1 ,'N2O5' ,'N2O5' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Dinitrogen pentoxide,E,DTXSID90143672,[N+](=O)([O-])O[N+](=O)[O-] 'SO2' , 64.0 ,'' ,-1 ,'' ,-1 ,'VD_SO2' , 1 ,'SO2' , 1 ,'' ,'SO2' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Sulfur dioxide,E,DTXSID6029672,O=S=O 'SULF' , 98.0 ,'' ,-1 ,'' ,-1 ,'VD_SULF' , 1 ,'H2SO4' , 1 ,'SULF' ,'H2SO4' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Sulfuric acid,E,DTXSID5029683,OS(=O)(=O)O 'SULRXN' , 98.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'SULPRD' ,'' ,'' ,'' ,'' ,'' ,!NA,NA,NA,NA 'ETH' , 30.1 ,'' ,-1 ,'' ,-1 ,'VD_ETH' , 1 ,'ETHANE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Ethane,E,DTXSID6026377,CC 'HC3' , 44.1 ,'' ,-1 ,'' ,-1 ,'VD_HC3' , 1 ,'HC3OPERA' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Propane,L,DTXSID5026386,CCC 'HC3P' , 75.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!Isopropyl peroxy,L,NA,CC(C)O[O] 'HC5' , 72.1 ,'' ,-1 ,'' ,-1 ,'VD_HC5' , 1 ,'HC5OPERA' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Pentane,L,DTXSID2025846,CCCCC 'HC5P' ,103.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!Pentan-3-ylperoxy,L,NA,CCC(O[O])CC 'HC10' ,142.28 ,'' ,-1 ,'' ,-1 ,'VD_HC10' , 1 ,'HC10OPERA' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Decane,L,DTXSID6024913,CCCCCCCCCC 'HC10P' ,173.27 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!Decan-3-ylperoxy,L,NA,CCCCCCCC(CC)O[O] 'HC10P2' ,189.27 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!(8-hydroxydecan-5-yl)peroxy,L,NA,CCCCC(O[O])CCC(O)CC 'ETE' , 28.1 ,'' ,-1 ,'' ,-1 ,'VD_ETE' , 1 ,'ETHENE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Ethylene,E,DTXSID1026378,C=C 'ETEP' , 77.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!(2-hydroxyethyl)peroxy,E,NA,OCCO[O] 'OLT' , 42.0 ,'' ,-1 ,'' ,-1 ,'VD_OLT' , 1 ,'OLTOPERA' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!1-Propene,L,DTXSID5021205,CC=C 'OLTP' , 91.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!(1-hydroxypropan-2-yl)peroxy,L,NA,CC(CO)O[O] 'OLI' , 70.1 ,'' ,-1 ,'' ,-1 ,'VD_OLI' , 1 ,'OLIOPERA' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!2-Methyl-2-butene,L,DTXSID8027165,CC=C(C)C 'OLIP' ,119.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!(3-hydroxy-2-methylbutan-2-yl)peroxy,L,NA,[O]OC(C)(C)C(C)O 'ACE' , 26.0 ,'' ,-1 ,'' ,-1 ,'VD_ACE' , 1 ,'ACETYLENE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Acetylene,E,DTXSID6026379,C#C 'ORA1' , 46.0 ,'' ,-1 ,'' ,-1 ,'VD_ORA1' , 1 ,'ORA1OPERA' , 1 ,'' ,'FOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Formic acid,E,DTXSID2024115,OC=O 'BEN' , 78.11 ,'' ,-1 ,'' ,-1 ,'VD_BEN' , 1 ,'BENOPERA' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Benzene,E,DTXSID3039242,C1=CC=CC=C1 'BENP' ,159.12 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!{8-hydroxy-6;7-dioxabicyclo[3.2.1]oct-3-en-2-yl}peroxy,L,NA,[O]OC1C=CC2OOC1C2O 'PHEN' ,110.1 ,'' ,-1 ,'' ,-1 ,'VD_PHEN' , 1 ,'PHENOPERA' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Resorcinol,L,DTXSID2021238,OC1=CC(O)=CC=C1 'TOL' ,92.14 ,'' ,-1 ,'' ,-1 ,'VD_TOL' , 1 ,'TOLOPERA' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Toluene,E,DTXSID7021360,CC1=CC=CC=C1 'CSL' ,136.2 ,'' ,-1 ,'' ,-1 ,'VD_CSL' , 1 ,'CSLOPERA' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!2-Phenylpropan-2-ol,L,DTXSID3027247,CC(C)(O)C1=CC=CC=C1 'XYM' ,106.2 ,'' ,-1 ,'' ,-1 ,'VD_XYM' , 1 ,'XYMOPERA' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!m-Xylene,L,DTXSID6026298,CC1=CC(C)=CC=C1 'XYE' ,106.2 ,'' ,-1 ,'' ,-1 ,'VD_XYE' , 1 ,'XYEOPERA' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Ethylbenzene,L,DTXSID3020596,CCC1=CC=CC=C1 'TOLP' ,173.14 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!{8-hydroxy-5-methyl-6;7-dioxabicyclo[3.2.1]oct-3-en-2-yl}peroxy,L,NA,[O]OC1C=CC2(C)OOC1C2O 'XYMP' ,187.17 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!{8-hydroxy-1;5-dimethyl-6;7-dioxabicyclo[3.2.1]oct-3-en-2-yl}peroxy,L,NA,[O]OC1C=CC2(C)OOC1(C)C2O 'XYEP' ,187.17 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!{5-ethyl-8-hydroxy-6;7-dioxabicyclo[3.2.1]oct-3-en-2-yl}peroxy,L,NA,[O]OC1C=CC2(CC)OOC1C2O 'ISO' , 68.1 ,'' ,-1 ,'' ,-1 ,'VD_ISO' , 1 ,'ISOOPERA' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Isoprene,E,DTXSID2020761,CC(=C)C=C 'ISOP' ,117.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!(1-hydroxy-3-methylbut-3-en-2-yl)peroxy,L,NA,OCC(O[O])C(C)=C 'API' ,136.4 ,'' ,-1 ,'' ,-1 ,'VD_API' , 1 ,'APIOPERA' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!alpha-pinene,L,DTXSID4026501,CC1=CCC2CC1C2(C)C 'APIP1' ,185.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!{3-hydroxy-2;6;6-trimethylbicyclo[3.1.1]heptan-2-yl}peroxy,L,NA,[O]OC1(C)C(O)CC2CC1C2(C)C 'APIP2' ,185.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!{3-hydroxy-2;6;6-trimethylbicyclo[3.1.1]heptan-2-yl}peroxy,L,NA,[O]OC1(C)C(O)CC2CC1C2(C)C 'APINP1' ,230.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',![2;6;6-trimethyl-3-(nitrooxy)bicyclo[3.1.1]heptan-2-yl]peroxy,L,NA,[O]OC1(C)C(ON(=O)=O)CC2CC1C2(C)C 'APINP2' ,230.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',![2;6;6-trimethyl-3-(nitrooxy)bicyclo[3.1.1]heptan-2-yl]peroxy,L,NA,[O]OC1(C)C(ON(=O)=O)CC2CC1C2(C)C 'PINAL' ,168.0 ,'' ,-1 ,'' ,-1 ,'VD_PINAL' , 1 ,'GENERIC_ALDEHYDE', 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Pinonaldehyde,L,NA,O=CCC1CC(C(=O)C)C1(C)C 'PINALP' ,199.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',![3-acetyl-2;2-dimethyl-1-(2-oxoethyl)cyclobutyl]peroxy,L,NA,O=CCC1(O[O])CC(C(=O)C)C1(C)C 'LIM' ,136.3 ,'' ,-1 ,'' ,-1 ,'VD_LIM' , 1 ,'LIMOPERA' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!D-Limonene,L,DTXSID1020778,CC(=C)[C@@H]1CCC(C)=CC1 'LIMP1' ,185.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',![2-hydroxy-1-methyl-4-(prop-1-en-2-yl)cyclohexyl]peroxy,L,NA,[O]OC1(C)CCC(CC1O)C(=C)C 'LIMP2' ,185.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',![2-hydroxy-1-methyl-4-(prop-1-en-2-yl)cyclohexyl]peroxy,L,NA,[O]OC1(C)CCC(CC1O)C(=C)C 'LIMNP1' ,230.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',![1-methyl-2-(nitrooxy)-4-(prop-1-en-2-yl)cyclohexyl]peroxy,L,NA,[O-][N+](=O)OC1CC(CCC1(C)O[O])C(=C)C 'LIMNP2' ,230.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',![1-methyl-2-(nitrooxy)-4-(prop-1-en-2-yl)cyclohexyl]peroxy,L,NA,[O-][N+](=O)OC1CC(CCC1(C)O[O])C(=C)C 'LIMAL' ,168.0 ,'' ,-1 ,'' ,-1 ,'VD_LIMAL' , 1 ,'UALDOPERA' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Limonaldehyde,L,NA,O=CCC(CCC(=O)C)C(=C)C 'LIMALP' ,217.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',![1-hydroxy-2-methyl-5-oxo-3-(3-oxobutyl)pentan-2-yl]peroxy,L,NA,O=CCC(CCC(=O)C)C(C)(CO)O[O] 'HOM' ,250.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'HOM' ,'' ,'' ,'' ,'' ,'Yes',!6;7-dihydroperoxy-3;3;6-trimethyl-tetrahydro-3aH-1;2-benzodioxol-5-ol,L,NA,OC1CC2C(OOC2(C)C)C(OO)C1(C)OO 'ELHOM' ,402.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'ELHOM' ,'' ,'' ,'' ,'' ,'Yes',!6-hydroperoxy-7-({3-hydroxy-2;6;6-trimethylbicyclo[3.1.1]heptan-2-yl}peroxy)-3;3;6-trimethyl-tetrahydro-3aH-1;2-benzodioxol-5-ol,L,NA,OC1CC2C(OOC2(C)C)C(OOC3(C)C4C(C)(C)C(C4)CC3O)C1(C)OO 'RCO3' , 89.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!Propanoylperoxy,L,NA,CCC(=O)O[O] 'ACTP' , 89.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!(2-oxopropyl)peroxy,E,NA,CC(=O)CO[O] 'MEKP' ,103.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!(3-oxobutyl)peroxy,L,NA,[O]OCCC(=O)C 'KETP' ,117.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!(3-oxopentan-2-yl)peroxy,L,NA,CCC(C(C)O[O])=O 'MCP' ,119.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!(1-hydroxy-2-methyl-3-oxopropan-2-yl)peroxy,L,NA,OCC(C)(O[O])C=O 'MVKP' ,119.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!(2-hydroxy-3-oxobutyl)peroxy,L,NA,CC(=O)C(O)CO[O] 'UALP' ,133.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!(3-hydroxy-3-methyl-4-oxobutan-2-yl)peroxy,L,NA,CC(O[O])C(C)(O)C=O 'DCB3' , 84.0 ,'' ,-1 ,'' ,-1 ,'VD_DCB3' , 1 ,'METHACROLEIN' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!but-2-enedial,L,NA,O=CC=CC=O 'BALP' ,137.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!benzoylperoxy,L,NA,O=C(O[O])C1=CC=CC=C1 'ADDC' ,125.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!3-methyl-5-oxocyclohex-3-en-1-yloxidanyl,L,NA,CC1=CC(O)=CC([O])C1 'MCT' ,124.1 ,'' ,-1 ,'' ,-1 ,'VD_MCT' , 1 ,'MCTOPERA' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!4-Methylcatechol,L,DTXSID5020861,CC1=CC(O)=C(O)C=C1 'MCTO' ,123.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!3-hydroxy-5-methylphenyloxidanyl,L,NA,CC1=CC(O)=CC([O])=C1 'MOH' , 32.0 ,'' ,-1 ,'' ,-1 ,'VD_MOH' , 1 ,'METHANOL' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Methanol,E,DTXSID2021731,CO 'EOH' , 46.1 ,'' ,-1 ,'' ,-1 ,'VD_EOH' , 1 ,'ETHANOL' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Ethanol,E,DTXSID9020584,CCO 'ROH' , 60.0 ,'' ,-1 ,'' ,-1 ,'VD_ROH' , 1 ,'N-PROPANOL' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Propanol,L,DTXSID2021739,CCCO 'ETEG' , 62.1 ,'' ,-1 ,'' ,-1 ,'VD_ETEG' , 1 ,'ETHYLENEGLYCOL' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Ethylene glycol,E,DTXSID8020597,OCCO 'ISHP' ,118.0 ,'' ,-1 ,'' ,-1 ,'VD_ISHP' , 1 ,'METHACROLEIN' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!2-hydroperoxy-2-methylbut-3-en-1-ol,L,NA,C=CC(OO)(CO)C 'IEPOX' ,118.1 ,'' ,-1 ,'' ,-1 ,'VD_IEPOX' , 1 ,'HYDROXY_PEROXIDE', 1 ,'IEPOX' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Isoprene epoxydiol,E,NA,OCC1OC1(C)CO 'IEPOXP' ,118.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!NA,NA,NA,NA 'MAHP' ,102.0 ,'' ,-1 ,'' ,-1 ,'VD_MAHP' , 1 ,'METHACROLEIN' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!2-methylprop-2-eneperoxoic acid,L,NA,C=C(C)C(OO)=O 'ORA2' , 60.2 ,'' ,-1 ,'' ,-1 ,'VD_ORA2' , 1 ,'ORA2OPERA' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Acetic acid,L,DTXSID5024394,CC(O)=O 'ORAP' , 91.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!(carboxymethyl)peroxy,L,NA,[O]OCC(=O)O 'PPN' ,135.0 ,'' ,-1 ,'' ,-1 ,'VD_PPN' , 1 ,'PPN' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Peroxypopionyl nitrate,E,DTXSID90206675,CCC(=O)OO[N+](=O)[O-] 'MPAN' ,147.1 ,'' ,-1 ,'' ,-1 ,'VD_MPAN' , 1 ,'MPAN' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Peroxymethacryloyl nitrate,L,DTXSID10236878,O=N(=O)OOC(=O)C(=C)C 'NALD' ,105.0 ,'' ,-1 ,'' ,-1 ,'VD_NALD' , 1 ,'2NITRO_1BUTNL' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!1-(nitrooxy)acetaldehyde,E,NA,O=CCON(=O)=O 'INO2' ,162.1 ,'' ,-1 ,'' ,-1 ,'' , 1 ,'' , 1 ,'' ,'' ,'' ,'' ,'' ,'Yes',![(2E)-3-methyl-4-(nitrooxy)but-2-en-1-yl]peroxy,L,NA,C/C(=C\CO[O])CON(=O)=O 'ISON' ,147.0 ,'' ,-1 ,'' ,-1 ,'VD_ISON' , 1 ,'2NITRO_1BUTNL' , 1 ,'ISON' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!2-methyl-2-(nitrooxy)but-3-en-1-ol,L,NA,OCC(C)(C=C)ON(=O)=O 'IPN' ,163.0 ,'' ,-1 ,'' ,-1 ,'VD_IPN' , 1 ,'IPNOPERA' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!(2E)-3-methyl-4-(nitrooxy)but-2-ene-1-peroxol,L,NA,C/C(=C\COO)CON(=O)=O 'IPC' ,116.1 ,'' ,-1 ,'' ,-1 ,'VD_IPC' , 1 ,'IPCOPERA' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!(2Z)-4-hydroperoxy-2-methylbut-2-enal,L,NA,C/C(C=O)=C/COO 'TRPN' ,215.0 ,'' ,-1 ,'' ,-1 ,'VD_TRPN' , 1 ,'2NITRO_1BUTNL' , 1 ,'TRPN' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!3-hydroxy-2;6;6-trimethylbicyclo[3.1.1]heptan-2-yl nitrate,L,NA,O=N(=O)OC1(C)C(O)CC2CC1C2(C)C 'MCTP' ,172.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!C7H8O5 Biradical,L,NA,CC(/C=C\[C](O[O])O)=C/C(O)=O 'OLNN' ,136.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',![1-(nitrooxy)propan-2-yl]peroxy,L,NA,CC(O[O])CO[N+]([O-])=O 'OLND' ,136.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',![1-(nitrooxy)propan-2-yl]peroxy,L,NA,CC(O[O])CO[N+]([O-])=O 'ADCN' ,155.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!4-oxocyclohex-2-en-1-yl nitrate,L,NA,OC1=C[C]C(O[N+]([O-])=O)C=C1 'BAL1' ,123.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!(4-methylphenyl)peroxy,L, NA, [O]OC1=CC=C(C)C=C1 'BAL2' ,109.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!phenylperoxy,L, NA, [O]OC1=CC=CC=C1 'ACRO' , 56.1 ,'' ,-1 ,'' ,-1 ,'VD_ACRO' , 1 ,'ACROOPERA' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Acrolein,E,DTXSID5020023,C=CC=O 'BDE13' , 54.1 ,'' ,-1 ,'' ,-1 ,'VD_BDE13' , 1 ,'BDE13OPERA' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!1;3-Butadiene,E,DTXSID3020203,C=CC=C 'BDE13P' ,103.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' , 1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!(1-hydroxybut-3-en-2-yl)peroxy,L,NA,C=CC(O[O])CO 'PROG' , 76.1 ,'' ,-1 ,'' ,-1 ,'VD_PROG' , 1 ,'PROGOPERA' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!1;2-Propylene glycol,E,DTXSID0021206,CC(O)CO 'FURAN' , 96.1 ,'' ,-1 ,'' ,-1 ,'VD_FURAN' , 1 ,'FURANOPERA' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Furfural,L,DTXSID1020647,O=CC1=CC=CO1 'FURANO2' ,145.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' , 1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!(2-formyl-5-hydroxy-5H-furan-2-yl)peroxy,L,NA,OC1C=CC(O1)(O[O])(C=O) 'FURANONE' ,100.1 ,'' ,-1 ,'' ,-1 ,'VD_FURANONE' , 1 ,'FURANONEOPERA' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!2-hydroxy-2H-furan-5-one,L,DTXSID10930763,C1=CC(=O)OC1O 'VROCIOXY' ,247.0 ,'' ,-1 ,'' ,-1 ,'VD_VROCIOXY' , 1 ,'ROCIOXYOPERA' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Decamethylcyclopentasiloxane,L,DTXSID1027184,C[Si]1(C)O[Si](C)(C)O[Si](C)(C)O[Si](C)(C)O[Si](C)(C)O1 'SLOWROC' , 75.4 ,'' ,-1 ,'' ,-1 ,'VD_SLOWROC' , 1 ,'SLOWROCOPERA' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Hydrogen cyanide,L,DTXSID9024148,C#N 'SESQ' ,204.4 ,'' ,-1 ,'' ,-1 ,'VD_SESQ' , 1 ,'SESQOPERA' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!b-caryophyllene,L,DTXSID8024739,C/C1=C/CCC(=C)C2CC(C)(C)C2CC\1 'SESQRO2' ,253.4 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!{5-hydroxy-4;11;11-trimethyl-8-methylidenebicyclo[7.2.0]undecan-4-yl}peroxy,L,NA,[O]OC1(C)CCC2C(CC2(C)C)C(=C)CCC1O 'SESQNRO2' ,298.4 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',![4;11;11-trimethyl-8-methylidene-5-(nitrooxy)bicyclo[7.2.0]undecan-4-yl]peroxy,L,NA,[O]OC1(C)CCC2C(CC2(C)C)C(=C)CCC1O[N+](=O)[O-] 'NAPH' ,128.17 ,'' ,-1 ,'' ,-1 ,'VD_NAPH' , 1 ,'NAPHOPERA' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Naphthalene,L,DTXSID8020913,C1=CC2=CC=CC=C2C=C1 'NAPHP' ,209.17 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!{8-hydroxy-10;11-dioxatricyclo[7.2.1.0^{2;7}]dodeca-2;4;6-trien-12-yl}peroxy,L,NA,C12=CC=CC=C1C3OOC(C3O[O])C2(O) 'VROCP5ARO' ,190.33 ,'' ,-1 ,'' ,-1 ,'VD_VROCP5ARO' , 1 ,'VROCP5AROOPERA' , 1 ,'VROCP5ARO' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Benzene; octyl-,L, DTXSID2062240, CCCCCCCCC1=CC=CC=C1 'VROCP6ARO' ,176.30 ,'' ,-1 ,'' ,-1 ,'VD_VROCP6ARO' , 1 ,'VROCP6AROOPERA' , 1 ,'VROCP6ARO' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!1-Hexyl-4-methylbenzene,L, DTXSID30333914, CCCCCCC1=CC=C(C)C=C1 'VROCP5AROP' ,271.33 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' , -1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!{8-hydroxy-5-octyl-6;7-dioxabicyclo[3.2.1]oct-3-en-2-yl}peroxy,L,NA,CCCCCCCCC1(OO2)C=CC(O[O])C2C1O 'VROCP6AROP' ,257.30 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' , -1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!{2-hexyl-8-hydroxy-5-methyl-6;7-dioxabicyclo[3.2.1]oct-3-en-2-yl}peroxy,L, NA, OC1C2C(CCCCCC)(O[O])C=CC1(C)OO2 'VROCN2ALK' ,422.83 ,'' ,-1 ,'' ,-1 ,'VD_VROCN2ALK' , 1 ,'VROCN2ALKOPERA' , 1 ,'VROCN2ALK' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Triacontane,L, DTXSID0060935, CCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 'VROCN1ALK' ,408.80 ,'' ,-1 ,'' ,-1 ,'VD_VROCN1ALK' , 1 ,'VROCN1ALKOPERA' , 1 ,'VROCN1ALK' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!5;9-Dimethylheptacosane,L, DTXSID40823452, CCCCCCCCCCCCCCCCCCC(C)CCCC(C)CCCC 'VROCP0ALK' ,394.77 ,'' ,-1 ,'' ,-1 ,'VD_VROCP0ALK' , 1 ,'VROCP0ALKOPERA' , 1 ,'VROCP0ALK' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!11-Methylheptacosane,L, DTXSID40333900, CCCCCCCCCCCCCCCCC(C)CCCCCCCCCC 'VROCP1ALK' ,380.75 ,'' ,-1 ,'' ,-1 ,'VD_VROCP1ALK' , 1 ,'VROCP1ALKOPERA' , 1 ,'VROCP1ALK' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Heptacosane,L, DTXSID6058637, CCCCCCCCCCCCCCCCCCCCCCCCCCC 'VROCP2ALK' ,338.66 ,'' ,-1 ,'' ,-1 ,'VD_VROCP2ALK' , 1 ,'VROCP2ALKOPERA' , 1 ,'VROCP2ALK' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Tetracosane,L, DTXSID8060955, CCCCCCCCCCCCCCCCCCCCCCCC 'VROCP3ALK' ,296.58 ,'' ,-1 ,'' ,-1 ,'VD_VROCP3ALK' , 1 ,'VROCP3ALKOPERA' , 1 ,'VROCP3ALK' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Heneicosane,L, DTXSID9047097, CCCCCCCCCCCCCCCCCCCCC 'VROCP4ALK' ,254.50 ,'' ,-1 ,'' ,-1 ,'VD_VROCP4ALK' , 1 ,'VROCP4ALKOPERA' , 1 ,'VROCP4ALK' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Octadecane,L, DTXSID9047172, CCCCCCCCCCCCCCCCCC 'VROCP5ALK' ,198.39 ,'' ,-1 ,'' ,-1 ,'VD_VROCP5ALK' , 1 ,'VROCP5ALKOPERA' , 1 ,'VROCP5ALK' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Tetradecane,L, DTXSID1027267, CCCCCCCCCCCCCC 'VROCP6ALK' ,184.37 ,'' ,-1 ,'' ,-1 ,'VD_VROCP6ALK' , 1 ,'VROCP6ALKOPERA' , 1 ,'VROCP6ALK' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Tridecane,L, DTXSID6027266, CCCCCCCCCCCCC 'VROCP1ALKP' ,411.74 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' , -1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!heptacosan-3-ylperoxy,L,NA,CCCCCCCCCCCCCCCCCCCCCCCCC(CC)O[O] 'VROCP2ALKP' ,369.65 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' , -1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!tetracosan-3-ylperoxy,L,NA,CCCCCCCCCCCCCCCCCCCCCC(CC)O[O] 'VROCP3ALKP' ,327.57 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' , -1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!henicosan-3-ylperoxy,L,NA,CCCCCCCCCCCCCCCCCCC(CC)O[O] 'VROCP4ALKP' ,285.49 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' , -1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!octadecan-3-ylperoxy,L,NA,CCCCCCCCCCCCCCCC(CC)O[O] 'VROCP5ALKP' ,229.38 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' , -1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!tetradecan-3-ylperoxy,L,NA,CCCCCCCCCCCC(CC)O[O] 'VROCP6ALKP' ,215.36 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' , -1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!tridecan-3-ylperoxy,L,NA,CCCCCCCCCCC(CC)O[O] 'VROCP1ALKP2' ,427.73 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' , -1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!(3-hydroxyheptacosan-6-yl)peroxy,L,NA,CCCCCCCCCCCCCCCCCCCCCC(O[O])CCC(O)CC 'VROCP2ALKP2' ,385.65 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' , -1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!(3-hydroxytetracosan-6-yl)peroxy,L,NA,CCCCCCCCCCCCCCCCCCC(O[O])CCC(O)CC 'VROCP3ALKP2' ,343.57 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' , -1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!(3-hydroxyhenicosan-6-yl)peroxy,L,NA,CCCCCCCCCCCCCCCC(O[O])CCC(O)CC 'VROCP4ALKP2' ,301.49 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' , -1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!(3-hydroxyoctadecan-6-yl)peroxy,L,NA,CCCCCCCCCCCCC(O[O])CCC(O)CC 'VROCP5ALKP2' ,245.38 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' , -1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!(3-hydroxytetradecan-6-yl)peroxy,L,NA,CCCCCCCCC(O[O])CCC(O)CC 'VROCP6ALKP2' ,231.36 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' , -1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!(3-hydroxytridecan-6-yl)peroxy,L,NA,CCCCCCCC(O[O])CCC(O)CC 'VROCN2OXY2' ,282.4 ,'' ,-1 ,'' ,-1 ,'VD_VROCN2OXY2' , 1 ,'VROCN2OXY2OPERA', 1 ,'VROCN2OXY2' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!12(S)-hydroxy-16-Heptadecynoic Acid,L,NA,C#CCCC[C@H](CCCCCCCCCCC(=O)O)O 'VROCN2OXY4' ,232.3 ,'' ,-1 ,'' ,-1 ,'VD_VROCN2OXY4' , 1 ,'VROCN2OXY4OPERA', 1 ,'VROCN2OXY4' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!2-HYDROXYUNDECANEDIOIC ACID,L,DTXSID90726525,C(CCCCC(=O)O)CCCC(C(=O)O)O 'VROCN2OXY8' ,194.2 ,'' ,-1 ,'' ,-1 ,'VD_VROCN2OXY8' , 1 ,'VROCN2OXY8OPERA', 1 ,'VROCN2OXY8' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!3;4;5;6;7-Pentahydroxyheptan-2-one,L,DTXSID80956455,CC(=O)C(C(C(C(CO)O)O)O)O 'VROCN1OXY1' ,312.5 ,'' ,-1 ,'' ,-1 ,'VD_VROCN1OXY1' , 1 ,'VROCN1OXY1OPERA', 1 ,'VROCN1OXY1' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Arachidic Acid,L,DTXSID1060134,CCCCCCCCCCCCCCCCCCCC(=O)O 'VROCN1OXY3' ,230.3 ,'' ,-1 ,'' ,-1 ,'VD_VROCN1OXY3' , 1 ,'VROCN1OXY3OPERA', 1 ,'VROCN1OXY3' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!DODECANEDIOIC ACID,L,DTXSID3027297,C(CCCCCC(=O)O)CCCCC(=O)O 'VROCN1OXY6' ,190.2 ,'' ,-1 ,'' ,-1 ,'VD_VROCN1OXY6' , 1 ,'VROCN1OXY6OPERA', 1 ,'VROCN1OXY6' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!2-hydroxy-octanedioic acid,L,NA,C(CCC(C(=O)O)O)CCC(=O)O 'VROCP0OXY2' ,242.4 ,'' ,-1 ,'' ,-1 ,'VD_VROCP0OXY2' , 1 ,'VROCP0OXY2OPERA', 1 ,'VROCP0OXY2' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!3-oxotetradecanoic acid,L,DTXSID10332384,CCCCCCCCCCCC(=O)CC(=O)O 'VROCP0OXY4' ,202.3 ,'' ,-1 ,'' ,-1 ,'VD_VROCP0OXY4' , 1 ,'VROCP0OXY4OPERA', 1 ,'VROCP0OXY4' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!DECANEDIOIC ACID,L,DTXSID7026867,C(CCCCC(=O)O)CCCC(=O)O 'VROCP1OXY1' ,270.5 ,'' ,-1 ,'' ,-1 ,'VD_VROCP1OXY1' , 1 ,'VROCP1OXY1OPERA', 1 ,'VROCP1OXY1' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!HEPTADECANOIC ACID,L,DTXSID5021596,CCCCCCCCCCCCCCCCC(=O)O 'VROCP1OXY3' ,202.3 ,'' ,-1 ,'' ,-1 ,'VD_VROCP1OXY3' , 1 ,'VROCP1OXY3OPERA', 1 ,'VROCP1OXY3' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!11-hydroxyundecanoic acid,L,DTXSID40190136,C(CCCCCO)CCCCC(=O)O 'VROCP2OXY2' ,200.3 ,'' ,-1 ,'' ,-1 ,'VD_VROCP2OXY2' , 1 ,'VROCP2OXY2OPERA', 1 ,'VROCP2OXY2' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Dodecanoic Acid,L,DTXSID5021590,CCCCCCCCCCCC(=O)O 'VROCP3OXY2' ,186.3 ,'' ,-1 ,'' ,-1 ,'VD_VROCP3OXY2' , 1 ,'VROCP3OXY2OPERA', 1 ,'VROCP3OXY2' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!11-hydroxyundecanal,L,NA,C(CCCCCO)CCCCC=O 'VROCP4OXY2' ,158.2 ,'' ,-1 ,'' ,-1 ,'VD_VROCP4OXY2' , 1 ,'VROCP4OXY2OPERA', 1 ,'VROCP4OXY2' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!2-Ethylheptanoic Acid,L,DTXSID40880929,CCCCCC(CC)C(=O)O 'VROCP5OXY1' ,170.3 ,'' ,-1 ,'' ,-1 ,'VD_VROCP5OXY1' , 1 ,'VROCP5OXY1OPERA', 1 ,'VROCP5OXY1' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Undecanal,L,DTXSID4021688,CCCCCCCCCCC=O 'VROCP6OXY1' ,142.2 ,'' ,-1 ,'' ,-1 ,'VD_VROCP6OXY1' , 1 ,'VROCP6OXY1OPERA', 1 ,'VROCP6OXY1' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Nonanal,L,DTXSID9021639,CCCCCCCCC=O / ================================================ FILE: CCTM/src/MECHS/cracmm1amore_aq/RXNS_DATA_MODULE.F90 ================================================ MODULE RXNS_DATA IMPLICIT NONE ! --------- Photochemical Mechanism Reactions, Rates, etc. DAT --------- ! Source file: /home/hwo/CCTM_git_repository/UTIL/chemmech/input/cracmm1amore_aq__delta_atoms/mech_cracmm1amore_aq.def ! for Mechanism Name: CRACMM1AMORE_AQ ! This file is used to create mechanism data and functions ! The following are reserved symbols declared in this file: ! MECHNAME = Mechanism name ! N_GAS_CHEM_SPC = Total number of gas species in chemical mechanism ! NUMB_MECH_SPC = Total number of species in chemical mechanism ! N_ACT_SP = Number of active (determined by ODE solver) species in mechanism ! GAS_CHEM_SPC = Names of gas species in chemical mechanism ! CHEMISTRY_SPC = Names of species in chemical mechanism ! CGRID_INDEX = CGRID Index of species in chemical mechanism ! SPECIES_TYPE = Group or type of species ! SPECIES_MOLWT = Molecular Weight of species (gm/mole) ! NRXNS = Number of mechanism reactions ! ZERO_REACT_REACTIONS = number zero reactant reactions ! ONE_REACT_REACTIONS = number one reactant reactions ! TWO_REACT_REACTIONS = number second order reactions ! THREE_REACT_REACTIONS = number three reactant reactions ! NSUNLIGHT_RXNS = Number of mechanism reactions requiring sunlight ! NTHERMAL_RXNS = Number of mechanism reactions not requiring sunlight ! KUNITS = Units of mechanism reactions ! KTYPE = Reaction type ! IRXBITS = Bit test mask vector for selected reactions ! IORDER = Order of the reaction ! NTERMS_JACOB = Maximum number of nonzero terms in day/night Jacobian ! MSTEPS_JACOB = Maximum number of LU Decomposition steps to solve each Jacobian ! KTN1 = Number of type 1 reactions ! KRX1 = Reactions list pointer to type 1 reactions ! KTN2 = Number of type 2 reactions ! KRX2 = Reactions list pointer to type 2 reactions ! KTN3 = Number of type 3 reactions ! KRX3 = Reactions list pointer to type 3 reactions ! KTN4 = Number of type 4 reactions ! KRX4 = Reactions list pointer to type 4 reactions ! KTN5 = Number of type 5 reactions ! KRX5 = Reactions list pointer to type 5 reactions ! KTN6 = Number of type 6 reactions ! KRX6 = Reactions list pointer to type 6 reactions ! KTN7 = Number of type 7 reactions ! KRX7 = Reactions list pointer to type 7 reactions ! NWM = Number of air 3-body reactions ! NRXWM = Reactions list pointer to air 3-body reactions ! ATM_AIR = air 3-body reactions concentration ! NWW = Number of H2O 3-body reactions ! NRXWW = Reactions list pointer to H2O 3-body reactions ! NWO2 = Number of reactions with O2 ! NRXWO2 = Reactions list pointer to O2 reactions ! ATM_O2 = Oxygen reactions concentration ! NWN2 = Number of N2 3-body reactions ! NRXWN2 = Reactions list pointer to N2 3-body reactions ! ATM_N2 = Nitrogen 3-body reactions concentration ! NWCH4 = Number of reactions with CH4 ! NRXWCH4 = Reactions list pointer to CH4 reactions ! ATM_CH4 = Methane reactions concentration ! NWH2 = Number of reactions with H2 ! NRXWH2 = Reactions list pointer to H2 reactions ! ATM_H2 = Hydrogen reactions concentration ! MXPRD = Maximum number of mechanism reaction products ! IRR = Reactions list pointer to reactants and products ! RTDAT = Kinetic reaction rates expressions components ! NFALLOFFF = Number of falloff reactions ! IRRFALL = Reactions list pointer to falloff reactions ! RFDAT = Falloff reaction rates expressions components ! SC = Stoichiometric coefficients ! NREACT = Number of reactants in each mechanism reaction ! NPRDCT = Number of products in each mechanism reaction ! RXLABEL = Character label list for mechanism reactions ! NMPHOT = Number of mechanism photolytic reactions ! NPHOTAB = Number of photolytic reactions tables ! IPH = Reactions list pointer to photolytic reactions and tables ! MHETERO = Number of mechanism heteorogenous reactions ! NHETERO = Number of unique heteorogenous rate constants ! IHETERO = Reactions list pointer to heteorogenous reactions and tables CHARACTER( 32 ), PARAMETER :: MECHNAME = 'CRACMM1AMORE_AQ' INTEGER, PARAMETER :: N_GAS_CHEM_SPC = 176 INTEGER, PARAMETER :: NUMB_MECH_SPC = 181 CHARACTER( 16 ) :: GAS_CHEM_SPC( N_GAS_CHEM_SPC ) CHARACTER( 16 ) :: CHEMISTRY_SPC( NUMB_MECH_SPC ) CHARACTER( 16 ) :: SPECIES_TYPE( NUMB_MECH_SPC ) INTEGER :: CGRID_INDEX ( NUMB_MECH_SPC ) INTEGER :: TYPE_INDEX ( NUMB_MECH_SPC ) REAL( 8 ) :: SPECIES_MOLWT( NUMB_MECH_SPC ) LOGICAL :: CONVERT_CONC( NUMB_MECH_SPC ) ! The below character and integer arrays list the model species names used in the ! chemical mechanism. The gas species and their order should agree with ! the GC_SPC array for the gas phase chemistry to work correctly. ! If present, the CHEMISTRY_SPC names and species type should agree with the CGRID_SPCS module DATA GAS_CHEM_SPC( 1 ) / 'O3 ' / DATA GAS_CHEM_SPC( 2 ) / 'O3P ' / DATA GAS_CHEM_SPC( 3 ) / 'O1D ' / DATA GAS_CHEM_SPC( 4 ) / 'H2O2 ' / DATA GAS_CHEM_SPC( 5 ) / 'HO ' / DATA GAS_CHEM_SPC( 6 ) / 'NO2 ' / DATA GAS_CHEM_SPC( 7 ) / 'NO ' / DATA GAS_CHEM_SPC( 8 ) / 'NO3 ' / DATA GAS_CHEM_SPC( 9 ) / 'HONO ' / DATA GAS_CHEM_SPC( 10 ) / 'HNO3 ' / DATA GAS_CHEM_SPC( 11 ) / 'HNO4 ' / DATA GAS_CHEM_SPC( 12 ) / 'HO2 ' / DATA GAS_CHEM_SPC( 13 ) / 'HCHO ' / DATA GAS_CHEM_SPC( 14 ) / 'CO ' / DATA GAS_CHEM_SPC( 15 ) / 'ACD ' / DATA GAS_CHEM_SPC( 16 ) / 'MO2 ' / DATA GAS_CHEM_SPC( 17 ) / 'ALD ' / DATA GAS_CHEM_SPC( 18 ) / 'ETHP ' / DATA GAS_CHEM_SPC( 19 ) / 'ACT ' / DATA GAS_CHEM_SPC( 20 ) / 'ACO3 ' / DATA GAS_CHEM_SPC( 21 ) / 'UALD ' / DATA GAS_CHEM_SPC( 22 ) / 'KET ' / DATA GAS_CHEM_SPC( 23 ) / 'PINAL ' / DATA GAS_CHEM_SPC( 24 ) / 'HC10P ' / DATA GAS_CHEM_SPC( 25 ) / 'LIMAL ' / DATA GAS_CHEM_SPC( 26 ) / 'MEK ' / DATA GAS_CHEM_SPC( 27 ) / 'HKET ' / DATA GAS_CHEM_SPC( 28 ) / 'MACR ' / DATA GAS_CHEM_SPC( 29 ) / 'MACP ' / DATA GAS_CHEM_SPC( 30 ) / 'XO2 ' / DATA GAS_CHEM_SPC( 31 ) / 'MVK ' / DATA GAS_CHEM_SPC( 32 ) / 'GLY ' / DATA GAS_CHEM_SPC( 33 ) / 'MGLY ' / DATA GAS_CHEM_SPC( 34 ) / 'DCB1 ' / DATA GAS_CHEM_SPC( 35 ) / 'DCB2 ' / DATA GAS_CHEM_SPC( 36 ) / 'BALD ' / DATA GAS_CHEM_SPC( 37 ) / 'CHO ' / DATA GAS_CHEM_SPC( 38 ) / 'OP1 ' / DATA GAS_CHEM_SPC( 39 ) / 'OP2 ' / DATA GAS_CHEM_SPC( 40 ) / 'OPB ' / DATA GAS_CHEM_SPC( 41 ) / 'OP3 ' / DATA GAS_CHEM_SPC( 42 ) / 'PAA ' / DATA GAS_CHEM_SPC( 43 ) / 'ONIT ' / DATA GAS_CHEM_SPC( 44 ) / 'PAN ' / DATA GAS_CHEM_SPC( 45 ) / 'N2O5 ' / DATA GAS_CHEM_SPC( 46 ) / 'SO2 ' / DATA GAS_CHEM_SPC( 47 ) / 'SULF ' / DATA GAS_CHEM_SPC( 48 ) / 'SULRXN ' / DATA GAS_CHEM_SPC( 49 ) / 'ETH ' / DATA GAS_CHEM_SPC( 50 ) / 'HC3 ' / DATA GAS_CHEM_SPC( 51 ) / 'HC3P ' / DATA GAS_CHEM_SPC( 52 ) / 'HC5 ' / DATA GAS_CHEM_SPC( 53 ) / 'HC5P ' / DATA GAS_CHEM_SPC( 54 ) / 'ETE ' / DATA GAS_CHEM_SPC( 55 ) / 'ETEP ' / DATA GAS_CHEM_SPC( 56 ) / 'OLT ' / DATA GAS_CHEM_SPC( 57 ) / 'OLTP ' / DATA GAS_CHEM_SPC( 58 ) / 'OLI ' / DATA GAS_CHEM_SPC( 59 ) / 'OLIP ' / DATA GAS_CHEM_SPC( 60 ) / 'ACE ' / DATA GAS_CHEM_SPC( 61 ) / 'ORA1 ' / DATA GAS_CHEM_SPC( 62 ) / 'BEN ' / DATA GAS_CHEM_SPC( 63 ) / 'BENP ' / DATA GAS_CHEM_SPC( 64 ) / 'PHEN ' / DATA GAS_CHEM_SPC( 65 ) / 'TOL ' / DATA GAS_CHEM_SPC( 66 ) / 'TOLP ' / DATA GAS_CHEM_SPC( 67 ) / 'CSL ' / DATA GAS_CHEM_SPC( 68 ) / 'XYM ' / DATA GAS_CHEM_SPC( 69 ) / 'XYMP ' / DATA GAS_CHEM_SPC( 70 ) / 'XYE ' / DATA GAS_CHEM_SPC( 71 ) / 'XYEP ' / DATA GAS_CHEM_SPC( 72 ) / 'ISO ' / DATA GAS_CHEM_SPC( 73 ) / 'INO2 ' / DATA GAS_CHEM_SPC( 74 ) / 'NALD ' / DATA GAS_CHEM_SPC( 75 ) / 'ISOP ' / DATA GAS_CHEM_SPC( 76 ) / 'ISHP ' / DATA GAS_CHEM_SPC( 77 ) / 'ISON ' / DATA GAS_CHEM_SPC( 78 ) / 'IPN ' / DATA GAS_CHEM_SPC( 79 ) / 'IEPOX ' / DATA GAS_CHEM_SPC( 80 ) / 'IPC ' / DATA GAS_CHEM_SPC( 81 ) / 'ROH ' / DATA GAS_CHEM_SPC( 82 ) / 'API ' / DATA GAS_CHEM_SPC( 83 ) / 'APIP1 ' / DATA GAS_CHEM_SPC( 84 ) / 'APIP2 ' / DATA GAS_CHEM_SPC( 85 ) / 'LIM ' / DATA GAS_CHEM_SPC( 86 ) / 'LIMP1 ' / DATA GAS_CHEM_SPC( 87 ) / 'LIMP2 ' / DATA GAS_CHEM_SPC( 88 ) / 'PINALP ' / DATA GAS_CHEM_SPC( 89 ) / 'RCO3 ' / DATA GAS_CHEM_SPC( 90 ) / 'LIMALP ' / DATA GAS_CHEM_SPC( 91 ) / 'ACTP ' / DATA GAS_CHEM_SPC( 92 ) / 'MEKP ' / DATA GAS_CHEM_SPC( 93 ) / 'KETP ' / DATA GAS_CHEM_SPC( 94 ) / 'MCP ' / DATA GAS_CHEM_SPC( 95 ) / 'MVKP ' / DATA GAS_CHEM_SPC( 96 ) / 'UALP ' / DATA GAS_CHEM_SPC( 97 ) / 'DCB3 ' / DATA GAS_CHEM_SPC( 98 ) / 'BALP ' / DATA GAS_CHEM_SPC( 99 ) / 'ADDC ' / DATA GAS_CHEM_SPC( 100 ) / 'MCT ' / DATA GAS_CHEM_SPC( 101 ) / 'MCTO ' / DATA GAS_CHEM_SPC( 102 ) / 'MOH ' / DATA GAS_CHEM_SPC( 103 ) / 'EOH ' / DATA GAS_CHEM_SPC( 104 ) / 'ETEG ' / DATA GAS_CHEM_SPC( 105 ) / 'MAHP ' / DATA GAS_CHEM_SPC( 106 ) / 'ORA2 ' / DATA GAS_CHEM_SPC( 107 ) / 'ORAP ' / DATA GAS_CHEM_SPC( 108 ) / 'PPN ' / DATA GAS_CHEM_SPC( 109 ) / 'MPAN ' / DATA GAS_CHEM_SPC( 110 ) / 'TRPN ' / DATA GAS_CHEM_SPC( 111 ) / 'HOM ' / DATA GAS_CHEM_SPC( 112 ) / 'MCTP ' / DATA GAS_CHEM_SPC( 113 ) / 'OLNN ' / DATA GAS_CHEM_SPC( 114 ) / 'OLND ' / DATA GAS_CHEM_SPC( 115 ) / 'APINP1 ' / DATA GAS_CHEM_SPC( 116 ) / 'APINP2 ' / DATA GAS_CHEM_SPC( 117 ) / 'LIMNP1 ' / DATA GAS_CHEM_SPC( 118 ) / 'LIMNP2 ' / DATA GAS_CHEM_SPC( 119 ) / 'ADCN ' / DATA GAS_CHEM_SPC( 120 ) / 'VROCP4OXY2 ' / DATA GAS_CHEM_SPC( 121 ) / 'VROCN1OXY6 ' / DATA GAS_CHEM_SPC( 122 ) / 'FURANONE ' / DATA GAS_CHEM_SPC( 123 ) / 'VROCP3OXY2 ' / DATA GAS_CHEM_SPC( 124 ) / 'VROCP0OXY4 ' / DATA GAS_CHEM_SPC( 125 ) / 'BAL1 ' / DATA GAS_CHEM_SPC( 126 ) / 'BAL2 ' / DATA GAS_CHEM_SPC( 127 ) / 'ELHOM ' / DATA GAS_CHEM_SPC( 128 ) / 'VROCIOXY ' / DATA GAS_CHEM_SPC( 129 ) / 'SLOWROC ' / DATA GAS_CHEM_SPC( 130 ) / 'ACRO ' / DATA GAS_CHEM_SPC( 131 ) / 'BDE13 ' / DATA GAS_CHEM_SPC( 132 ) / 'BDE13P ' / DATA GAS_CHEM_SPC( 133 ) / 'FURAN ' / DATA GAS_CHEM_SPC( 134 ) / 'FURANO2 ' / DATA GAS_CHEM_SPC( 135 ) / 'PROG ' / DATA GAS_CHEM_SPC( 136 ) / 'SESQ ' / DATA GAS_CHEM_SPC( 137 ) / 'SESQNRO2 ' / DATA GAS_CHEM_SPC( 138 ) / 'VROCN2OXY2 ' / DATA GAS_CHEM_SPC( 139 ) / 'SESQRO2 ' / DATA GAS_CHEM_SPC( 140 ) / 'VROCP0OXY2 ' / DATA GAS_CHEM_SPC( 141 ) / 'VROCP1OXY3 ' / DATA GAS_CHEM_SPC( 142 ) / 'IEPOXP ' / DATA GAS_CHEM_SPC( 143 ) / 'VROCP6ALK ' / DATA GAS_CHEM_SPC( 144 ) / 'VROCP6ALKP ' / DATA GAS_CHEM_SPC( 145 ) / 'VROCP5ALK ' / DATA GAS_CHEM_SPC( 146 ) / 'VROCP5ALKP ' / DATA GAS_CHEM_SPC( 147 ) / 'VROCP4ALK ' / DATA GAS_CHEM_SPC( 148 ) / 'VROCP4ALKP ' / DATA GAS_CHEM_SPC( 149 ) / 'VROCP3ALK ' / DATA GAS_CHEM_SPC( 150 ) / 'VROCP3ALKP ' / DATA GAS_CHEM_SPC( 151 ) / 'VROCP2ALK ' / DATA GAS_CHEM_SPC( 152 ) / 'VROCP2ALKP ' / DATA GAS_CHEM_SPC( 153 ) / 'VROCP1ALK ' / DATA GAS_CHEM_SPC( 154 ) / 'VROCP1ALKP ' / DATA GAS_CHEM_SPC( 155 ) / 'HC10 ' / DATA GAS_CHEM_SPC( 156 ) / 'VROCP6ALKP2 ' / DATA GAS_CHEM_SPC( 157 ) / 'VROCP5ALKP2 ' / DATA GAS_CHEM_SPC( 158 ) / 'VROCP4ALKP2 ' / DATA GAS_CHEM_SPC( 159 ) / 'VROCP2OXY2 ' / DATA GAS_CHEM_SPC( 160 ) / 'VROCP3ALKP2 ' / DATA GAS_CHEM_SPC( 161 ) / 'VROCP1OXY1 ' / DATA GAS_CHEM_SPC( 162 ) / 'VROCP2ALKP2 ' / DATA GAS_CHEM_SPC( 163 ) / 'VROCP1ALKP2 ' / DATA GAS_CHEM_SPC( 164 ) / 'VROCN1OXY1 ' / DATA GAS_CHEM_SPC( 165 ) / 'HC10P2 ' / DATA GAS_CHEM_SPC( 166 ) / 'VROCP6ARO ' / DATA GAS_CHEM_SPC( 167 ) / 'VROCP6AROP ' / DATA GAS_CHEM_SPC( 168 ) / 'VROCN2OXY4 ' / DATA GAS_CHEM_SPC( 169 ) / 'VROCN1OXY3 ' / DATA GAS_CHEM_SPC( 170 ) / 'VROCP5ARO ' / DATA GAS_CHEM_SPC( 171 ) / 'VROCP5AROP ' / DATA GAS_CHEM_SPC( 172 ) / 'NAPH ' / DATA GAS_CHEM_SPC( 173 ) / 'NAPHP ' / DATA GAS_CHEM_SPC( 174 ) / 'VROCN2OXY8 ' / DATA GAS_CHEM_SPC( 175 ) / 'VROCP5OXY1 ' / DATA GAS_CHEM_SPC( 176 ) / 'VROCP6OXY1 ' / LOGICAL :: HALOGEN_PARAMETER = .TRUE. ! The below character and integer arrays list the model species names used in the ! chemical mechanism. The gas species and their order should agree with ! the GC_SPC array for the gas phase chemistry to work correctly. ! If present, the CHEMISTRY_SPC names and species type should agree with the CGRID_SPCS module ! MAPPED_TO_CGRID declares whether CMAQ namelists were used to determine ! the below values of CGRID_INDEX, SPECIES_TYPE, SPECIES_MOLWT, and CONVERT_CONC LOGICAL, PARAMETER, PRIVATE :: F = .FALSE. LOGICAL, PARAMETER, PRIVATE :: T = .TRUE. LOGICAL :: MAPPED_TO_CGRID = .FALSE. TYPE MEMBER CHARACTER( 16 ) :: CHEMISTRY_SPC INTEGER :: CGRID_INDEX CHARACTER( 2 ) :: SPECIES_TYPE REAL( 8 ) :: SPECIES_MOLWT LOGICAL :: CONVERT_CONC END TYPE MEMBER TYPE( MEMBER ) :: SPECIES_LIST( NUMB_MECH_SPC ) = (/ & & MEMBER("O3 ", 1, "GC", 48.00D0, F), & & MEMBER("O3P ", 2, "GC", 16.00D0, F), & & MEMBER("O1D ", 3, "GC", 16.00D0, F), & & MEMBER("H2O2 ", 4, "GC", 34.00D0, F), & & MEMBER("HO ", 5, "GC", 17.00D0, F), & & MEMBER("NO2 ", 6, "GC", 46.00D0, F), & & MEMBER("NO ", 7, "GC", 30.00D0, F), & & MEMBER("NO3 ", 8, "GC", 62.00D0, F), & & MEMBER("HONO ", 9, "GC", 47.00D0, F), & & MEMBER("HNO3 ", 10, "GC", 63.00D0, F), & & MEMBER("HNO4 ", 11, "GC", 79.00D0, F), & & MEMBER("HO2 ", 12, "GC", 33.00D0, F), & & MEMBER("HCHO ", 13, "GC", 30.00D0, F), & & MEMBER("CO ", 14, "GC", 28.00D0, F), & & MEMBER("ACD ", 15, "GC", 44.00D0, F), & & MEMBER("MO2 ", 16, "GC", 47.00D0, F), & & MEMBER("ALD ", 17, "GC", 58.00D0, F), & & MEMBER("ETHP ", 18, "GC", 61.00D0, F), & & MEMBER("ACT ", 19, "GC", 58.00D0, F), & & MEMBER("ACO3 ", 20, "GC", 75.00D0, F), & & MEMBER("UALD ", 21, "GC", 84.10D0, F), & & MEMBER("KET ", 22, "GC", 86.00D0, F), & & MEMBER("PINAL ", 79, "GC", 168.00D0, F), & & MEMBER("HC10P ", 52, "GC", 173.27D0, F), & & MEMBER("LIMAL ", 86, "GC", 168.00D0, F), & & MEMBER("MEK ", 23, "GC", 72.10D0, F), & & MEMBER("HKET ", 24, "GC", 74.00D0, F), & & MEMBER("MACR ", 25, "GC", 70.00D0, F), & & MEMBER("MACP ", 26, "GC", 101.00D0, F), & & MEMBER("XO2 ", 27, "GC", 1.00D0, F), & & MEMBER("MVK ", 28, "GC", 70.10D0, F), & & MEMBER("GLY ", 29, "GC", 58.00D0, F), & & MEMBER("MGLY ", 30, "GC", 72.00D0, F), & & MEMBER("DCB1 ", 31, "GC", 98.00D0, F), & & MEMBER("DCB2 ", 32, "GC", 112.10D0, F), & & MEMBER("BALD ", 33, "GC", 106.00D0, F), & & MEMBER("CHO ", 34, "GC", 139.00D0, F), & & MEMBER("OP1 ", 35, "GC", 48.00D0, F), & & MEMBER("OP2 ", 36, "GC", 62.00D0, F), & & MEMBER("OPB ", 37, "GC", 186.20D0, F), & & MEMBER("OP3 ", 38, "GC", 176.20D0, F), & & MEMBER("PAA ", 39, "GC", 76.00D0, F), & & MEMBER("ONIT ", 40, "GC", 119.00D0, F), & & MEMBER("PAN ", 41, "GC", 121.00D0, F), & & MEMBER("N2O5 ", 42, "GC", 108.00D0, F), & & MEMBER("SO2 ", 43, "GC", 64.00D0, F), & & MEMBER("SULF ", 44, "GC", 98.00D0, F), & & MEMBER("SULRXN ", 45, "GC", 98.00D0, F), & & MEMBER("ETH ", 46, "GC", 30.10D0, F), & & MEMBER("HC3 ", 47, "GC", 44.10D0, F), & & MEMBER("HC3P ", 48, "GC", 75.00D0, F), & & MEMBER("ASOATJ ", 190, "AE", 200.00D0, T), & & MEMBER("HC5 ", 49, "GC", 72.10D0, F), & & MEMBER("HC5P ", 50, "GC", 103.00D0, F), & & MEMBER("ETE ", 54, "GC", 28.10D0, F), & & MEMBER("ETEP ", 55, "GC", 77.00D0, F), & & MEMBER("OLT ", 56, "GC", 42.00D0, F), & & MEMBER("OLTP ", 57, "GC", 91.00D0, F), & & MEMBER("OLI ", 58, "GC", 70.10D0, F), & & MEMBER("OLIP ", 59, "GC", 119.00D0, F), & & MEMBER("ACE ", 60, "GC", 26.00D0, F), & & MEMBER("ORA1 ", 61, "GC", 46.00D0, F), & & MEMBER("BEN ", 62, "GC", 78.11D0, F), & & MEMBER("BENP ", 63, "GC", 159.12D0, F), & & MEMBER("PHEN ", 64, "GC", 110.10D0, F), & & MEMBER("TOL ", 65, "GC", 92.14D0, F), & & MEMBER("TOLP ", 69, "GC", 173.14D0, F), & & MEMBER("CSL ", 66, "GC", 136.20D0, F), & & MEMBER("XYM ", 67, "GC", 106.20D0, F), & & MEMBER("XYMP ", 70, "GC", 187.17D0, F), & & MEMBER("XYE ", 68, "GC", 106.20D0, F), & & MEMBER("XYEP ", 71, "GC", 187.17D0, F), & & MEMBER("ISO ", 72, "GC", 68.10D0, F), & & MEMBER("INO2 ", 115, "GC", 162.10D0, F), & & MEMBER("NALD ", 114, "GC", 105.00D0, F), & & MEMBER("ISOP ", 73, "GC", 117.00D0, F), & & MEMBER("ISHP ", 106, "GC", 118.00D0, F), & & MEMBER("ISON ", 116, "GC", 147.00D0, F), & & MEMBER("IPN ", 117, "GC", 163.00D0, F), & & MEMBER("IEPOX ", 107, "GC", 118.10D0, F), & & MEMBER("IPC ", 118, "GC", 116.10D0, F), & & MEMBER("ROH ", 104, "GC", 60.00D0, F), & & MEMBER("API ", 74, "GC", 136.40D0, F), & & MEMBER("APIP1 ", 75, "GC", 185.00D0, F), & & MEMBER("APIP2 ", 76, "GC", 185.00D0, F), & & MEMBER("LIM ", 81, "GC", 136.30D0, F), & & MEMBER("LIMP1 ", 82, "GC", 185.00D0, F), & & MEMBER("LIMP2 ", 83, "GC", 185.00D0, F), & & MEMBER("PINALP ", 80, "GC", 199.00D0, F), & & MEMBER("RCO3 ", 90, "GC", 89.00D0, F), & & MEMBER("LIMALP ", 87, "GC", 217.00D0, F), & & MEMBER("ACTP ", 91, "GC", 89.00D0, F), & & MEMBER("MEKP ", 92, "GC", 103.00D0, F), & & MEMBER("KETP ", 93, "GC", 117.00D0, F), & & MEMBER("MCP ", 94, "GC", 119.00D0, F), & & MEMBER("MVKP ", 95, "GC", 119.00D0, F), & & MEMBER("UALP ", 96, "GC", 133.00D0, F), & & MEMBER("DCB3 ", 97, "GC", 84.00D0, F), & & MEMBER("BALP ", 98, "GC", 137.00D0, F), & & MEMBER("ADDC ", 99, "GC", 125.00D0, F), & & MEMBER("MCT ", 100, "GC", 124.10D0, F), & & MEMBER("MCTO ", 101, "GC", 123.00D0, F), & & MEMBER("MOH ", 102, "GC", 32.00D0, F), & & MEMBER("EOH ", 103, "GC", 46.10D0, F), & & MEMBER("ETEG ", 105, "GC", 62.10D0, F), & & MEMBER("MAHP ", 109, "GC", 102.00D0, F), & & MEMBER("ORA2 ", 110, "GC", 60.20D0, F), & & MEMBER("ORAP ", 111, "GC", 91.00D0, F), & & MEMBER("PPN ", 112, "GC", 135.00D0, F), & & MEMBER("MPAN ", 113, "GC", 147.10D0, F), & & MEMBER("TRPN ", 119, "GC", 215.00D0, F), & & MEMBER("HOM ", 88, "GC", 250.00D0, F), & & MEMBER("MCTP ", 120, "GC", 172.00D0, F), & & MEMBER("OLNN ", 121, "GC", 136.00D0, F), & & MEMBER("OLND ", 122, "GC", 136.00D0, F), & & MEMBER("APINP1 ", 77, "GC", 230.00D0, F), & & MEMBER("APINP2 ", 78, "GC", 230.00D0, F), & & MEMBER("LIMNP1 ", 84, "GC", 230.00D0, F), & & MEMBER("LIMNP2 ", 85, "GC", 230.00D0, F), & & MEMBER("ADCN ", 123, "GC", 155.00D0, F), & & MEMBER("VROCP4OXY2 ", 177, "GC", 158.20D0, F), & & MEMBER("VROCN1OXY6 ", 170, "GC", 190.20D0, F), & & MEMBER("FURANONE ", 132, "GC", 100.10D0, F), & & MEMBER("VROCP3OXY2 ", 176, "GC", 186.30D0, F), & & MEMBER("VROCP0OXY4 ", 172, "GC", 202.30D0, F), & & MEMBER("BAL1 ", 124, "GC", 123.00D0, F), & & MEMBER("BAL2 ", 125, "GC", 109.00D0, F), & & MEMBER("ELHOM ", 89, "GC", 402.00D0, F), & & MEMBER("VROCIOXY ", 133, "GC", 247.00D0, F), & & MEMBER("SLOWROC ", 134, "GC", 75.40D0, F), & & MEMBER("ACRO ", 126, "GC", 56.10D0, F), & & MEMBER("BDE13 ", 127, "GC", 54.10D0, F), & & MEMBER("BDE13P ", 128, "GC", 103.00D0, F), & & MEMBER("FURAN ", 130, "GC", 96.10D0, F), & & MEMBER("FURANO2 ", 131, "GC", 145.10D0, F), & & MEMBER("PROG ", 129, "GC", 76.10D0, F), & & MEMBER("SESQ ", 135, "GC", 204.40D0, F), & & MEMBER("SESQNRO2 ", 137, "GC", 298.40D0, F), & & MEMBER("VROCN2OXY2 ", 165, "GC", 282.40D0, F), & & MEMBER("SESQRO2 ", 136, "GC", 253.40D0, F), & & MEMBER("VROCP0OXY2 ", 171, "GC", 242.40D0, F), & & MEMBER("VROCP1OXY3 ", 174, "GC", 202.30D0, F), & & MEMBER("AGLYJ ", 191, "AE", 66.40D0, T), & & MEMBER("IEPOXP ", 108, "GC", 118.10D0, F), & & MEMBER("AISO3NOSJ ", 265, "AE", 136.20D0, T), & & MEMBER("ASO4J ", 182, "AE", 96.00D0, T), & & MEMBER("AISO3OSJ ", 266, "AE", 216.20D0, T), & & MEMBER("VROCP6ALK ", 152, "GC", 184.37D0, F), & & MEMBER("VROCP6ALKP ", 158, "GC", 215.36D0, F), & & MEMBER("VROCP5ALK ", 151, "GC", 198.39D0, F), & & MEMBER("VROCP5ALKP ", 157, "GC", 229.38D0, F), & & MEMBER("VROCP4ALK ", 150, "GC", 254.50D0, F), & & MEMBER("VROCP4ALKP ", 156, "GC", 285.49D0, F), & & MEMBER("VROCP3ALK ", 149, "GC", 296.58D0, F), & & MEMBER("VROCP3ALKP ", 155, "GC", 327.57D0, F), & & MEMBER("VROCP2ALK ", 148, "GC", 338.66D0, F), & & MEMBER("VROCP2ALKP ", 154, "GC", 369.65D0, F), & & MEMBER("VROCP1ALK ", 147, "GC", 380.75D0, F), & & MEMBER("VROCP1ALKP ", 153, "GC", 411.74D0, F), & & MEMBER("HC10 ", 51, "GC", 142.28D0, F), & & MEMBER("VROCP6ALKP2 ", 164, "GC", 231.36D0, F), & & MEMBER("VROCP5ALKP2 ", 163, "GC", 245.38D0, F), & & MEMBER("VROCP4ALKP2 ", 162, "GC", 301.49D0, F), & & MEMBER("VROCP2OXY2 ", 175, "GC", 200.30D0, F), & & MEMBER("VROCP3ALKP2 ", 161, "GC", 343.57D0, F), & & MEMBER("VROCP1OXY1 ", 173, "GC", 270.50D0, F), & & MEMBER("VROCP2ALKP2 ", 160, "GC", 385.65D0, F), & & MEMBER("VROCP1ALKP2 ", 159, "GC", 427.73D0, F), & & MEMBER("VROCN1OXY1 ", 168, "GC", 312.50D0, F), & & MEMBER("HC10P2 ", 53, "GC", 189.27D0, F), & & MEMBER("VROCP6ARO ", 141, "GC", 176.30D0, F), & & MEMBER("VROCP6AROP ", 143, "GC", 257.30D0, F), & & MEMBER("VROCN2OXY4 ", 166, "GC", 232.30D0, F), & & MEMBER("VROCN1OXY3 ", 169, "GC", 230.30D0, F), & & MEMBER("VROCP5ARO ", 140, "GC", 190.33D0, F), & & MEMBER("VROCP5AROP ", 142, "GC", 271.33D0, F), & & MEMBER("NAPH ", 138, "GC", 128.17D0, F), & & MEMBER("NAPHP ", 139, "GC", 209.17D0, F), & & MEMBER("VROCN2OXY8 ", 167, "GC", 194.20D0, F), & & MEMBER("VROCP5OXY1 ", 178, "GC", 170.30D0, F), & & MEMBER("VROCP6OXY1 ", 179, "GC", 142.20D0, F) /) DATA CHEMISTRY_SPC( 1 ), SPECIES_MOLWT( 1 ) / 'O3 ', 48.00D0 / DATA CHEMISTRY_SPC( 2 ), SPECIES_MOLWT( 2 ) / 'O3P ', 16.00D0 / DATA CHEMISTRY_SPC( 3 ), SPECIES_MOLWT( 3 ) / 'O1D ', 16.00D0 / DATA CHEMISTRY_SPC( 4 ), SPECIES_MOLWT( 4 ) / 'H2O2 ', 34.00D0 / DATA CHEMISTRY_SPC( 5 ), SPECIES_MOLWT( 5 ) / 'HO ', 17.00D0 / DATA CHEMISTRY_SPC( 6 ), SPECIES_MOLWT( 6 ) / 'NO2 ', 46.00D0 / DATA CHEMISTRY_SPC( 7 ), SPECIES_MOLWT( 7 ) / 'NO ', 30.00D0 / DATA CHEMISTRY_SPC( 8 ), SPECIES_MOLWT( 8 ) / 'NO3 ', 62.00D0 / DATA CHEMISTRY_SPC( 9 ), SPECIES_MOLWT( 9 ) / 'HONO ', 47.00D0 / DATA CHEMISTRY_SPC( 10 ), SPECIES_MOLWT( 10 ) / 'HNO3 ', 63.00D0 / DATA CHEMISTRY_SPC( 11 ), SPECIES_MOLWT( 11 ) / 'HNO4 ', 79.00D0 / DATA CHEMISTRY_SPC( 12 ), SPECIES_MOLWT( 12 ) / 'HO2 ', 33.00D0 / DATA CHEMISTRY_SPC( 13 ), SPECIES_MOLWT( 13 ) / 'HCHO ', 30.00D0 / DATA CHEMISTRY_SPC( 14 ), SPECIES_MOLWT( 14 ) / 'CO ', 28.00D0 / DATA CHEMISTRY_SPC( 15 ), SPECIES_MOLWT( 15 ) / 'ACD ', 44.00D0 / DATA CHEMISTRY_SPC( 16 ), SPECIES_MOLWT( 16 ) / 'MO2 ', 47.00D0 / DATA CHEMISTRY_SPC( 17 ), SPECIES_MOLWT( 17 ) / 'ALD ', 58.00D0 / DATA CHEMISTRY_SPC( 18 ), SPECIES_MOLWT( 18 ) / 'ETHP ', 61.00D0 / DATA CHEMISTRY_SPC( 19 ), SPECIES_MOLWT( 19 ) / 'ACT ', 58.00D0 / DATA CHEMISTRY_SPC( 20 ), SPECIES_MOLWT( 20 ) / 'ACO3 ', 75.00D0 / DATA CHEMISTRY_SPC( 21 ), SPECIES_MOLWT( 21 ) / 'UALD ', 84.10D0 / DATA CHEMISTRY_SPC( 22 ), SPECIES_MOLWT( 22 ) / 'KET ', 86.00D0 / DATA CHEMISTRY_SPC( 23 ), SPECIES_MOLWT( 23 ) / 'PINAL ', 168.00D0 / DATA CHEMISTRY_SPC( 24 ), SPECIES_MOLWT( 24 ) / 'HC10P ', 173.27D0 / DATA CHEMISTRY_SPC( 25 ), SPECIES_MOLWT( 25 ) / 'LIMAL ', 168.00D0 / DATA CHEMISTRY_SPC( 26 ), SPECIES_MOLWT( 26 ) / 'MEK ', 72.10D0 / DATA CHEMISTRY_SPC( 27 ), SPECIES_MOLWT( 27 ) / 'HKET ', 74.00D0 / DATA CHEMISTRY_SPC( 28 ), SPECIES_MOLWT( 28 ) / 'MACR ', 70.00D0 / DATA CHEMISTRY_SPC( 29 ), SPECIES_MOLWT( 29 ) / 'MACP ', 101.00D0 / DATA CHEMISTRY_SPC( 30 ), SPECIES_MOLWT( 30 ) / 'XO2 ', 1.00D0 / DATA CHEMISTRY_SPC( 31 ), SPECIES_MOLWT( 31 ) / 'MVK ', 70.10D0 / DATA CHEMISTRY_SPC( 32 ), SPECIES_MOLWT( 32 ) / 'GLY ', 58.00D0 / DATA CHEMISTRY_SPC( 33 ), SPECIES_MOLWT( 33 ) / 'MGLY ', 72.00D0 / DATA CHEMISTRY_SPC( 34 ), SPECIES_MOLWT( 34 ) / 'DCB1 ', 98.00D0 / DATA CHEMISTRY_SPC( 35 ), SPECIES_MOLWT( 35 ) / 'DCB2 ', 112.10D0 / DATA CHEMISTRY_SPC( 36 ), SPECIES_MOLWT( 36 ) / 'BALD ', 106.00D0 / DATA CHEMISTRY_SPC( 37 ), SPECIES_MOLWT( 37 ) / 'CHO ', 139.00D0 / DATA CHEMISTRY_SPC( 38 ), SPECIES_MOLWT( 38 ) / 'OP1 ', 48.00D0 / DATA CHEMISTRY_SPC( 39 ), SPECIES_MOLWT( 39 ) / 'OP2 ', 62.00D0 / DATA CHEMISTRY_SPC( 40 ), SPECIES_MOLWT( 40 ) / 'OPB ', 186.20D0 / DATA CHEMISTRY_SPC( 41 ), SPECIES_MOLWT( 41 ) / 'OP3 ', 176.20D0 / DATA CHEMISTRY_SPC( 42 ), SPECIES_MOLWT( 42 ) / 'PAA ', 76.00D0 / DATA CHEMISTRY_SPC( 43 ), SPECIES_MOLWT( 43 ) / 'ONIT ', 119.00D0 / DATA CHEMISTRY_SPC( 44 ), SPECIES_MOLWT( 44 ) / 'PAN ', 121.00D0 / DATA CHEMISTRY_SPC( 45 ), SPECIES_MOLWT( 45 ) / 'N2O5 ', 108.00D0 / DATA CHEMISTRY_SPC( 46 ), SPECIES_MOLWT( 46 ) / 'SO2 ', 64.00D0 / DATA CHEMISTRY_SPC( 47 ), SPECIES_MOLWT( 47 ) / 'SULF ', 98.00D0 / DATA CHEMISTRY_SPC( 48 ), SPECIES_MOLWT( 48 ) / 'SULRXN ', 98.00D0 / DATA CHEMISTRY_SPC( 49 ), SPECIES_MOLWT( 49 ) / 'ETH ', 30.10D0 / DATA CHEMISTRY_SPC( 50 ), SPECIES_MOLWT( 50 ) / 'HC3 ', 44.10D0 / DATA CHEMISTRY_SPC( 51 ), SPECIES_MOLWT( 51 ) / 'HC3P ', 75.00D0 / DATA CHEMISTRY_SPC( 52 ), SPECIES_MOLWT( 52 ) / 'ASOATJ ', 200.00D0 / DATA CHEMISTRY_SPC( 53 ), SPECIES_MOLWT( 53 ) / 'HC5 ', 72.10D0 / DATA CHEMISTRY_SPC( 54 ), SPECIES_MOLWT( 54 ) / 'HC5P ', 103.00D0 / DATA CHEMISTRY_SPC( 55 ), SPECIES_MOLWT( 55 ) / 'ETE ', 28.10D0 / DATA CHEMISTRY_SPC( 56 ), SPECIES_MOLWT( 56 ) / 'ETEP ', 77.00D0 / DATA CHEMISTRY_SPC( 57 ), SPECIES_MOLWT( 57 ) / 'OLT ', 42.00D0 / DATA CHEMISTRY_SPC( 58 ), SPECIES_MOLWT( 58 ) / 'OLTP ', 91.00D0 / DATA CHEMISTRY_SPC( 59 ), SPECIES_MOLWT( 59 ) / 'OLI ', 70.10D0 / DATA CHEMISTRY_SPC( 60 ), SPECIES_MOLWT( 60 ) / 'OLIP ', 119.00D0 / DATA CHEMISTRY_SPC( 61 ), SPECIES_MOLWT( 61 ) / 'ACE ', 26.00D0 / DATA CHEMISTRY_SPC( 62 ), SPECIES_MOLWT( 62 ) / 'ORA1 ', 46.00D0 / DATA CHEMISTRY_SPC( 63 ), SPECIES_MOLWT( 63 ) / 'BEN ', 78.11D0 / DATA CHEMISTRY_SPC( 64 ), SPECIES_MOLWT( 64 ) / 'BENP ', 159.12D0 / DATA CHEMISTRY_SPC( 65 ), SPECIES_MOLWT( 65 ) / 'PHEN ', 110.10D0 / DATA CHEMISTRY_SPC( 66 ), SPECIES_MOLWT( 66 ) / 'TOL ', 92.14D0 / DATA CHEMISTRY_SPC( 67 ), SPECIES_MOLWT( 67 ) / 'TOLP ', 173.14D0 / DATA CHEMISTRY_SPC( 68 ), SPECIES_MOLWT( 68 ) / 'CSL ', 136.20D0 / DATA CHEMISTRY_SPC( 69 ), SPECIES_MOLWT( 69 ) / 'XYM ', 106.20D0 / DATA CHEMISTRY_SPC( 70 ), SPECIES_MOLWT( 70 ) / 'XYMP ', 187.17D0 / DATA CHEMISTRY_SPC( 71 ), SPECIES_MOLWT( 71 ) / 'XYE ', 106.20D0 / DATA CHEMISTRY_SPC( 72 ), SPECIES_MOLWT( 72 ) / 'XYEP ', 187.17D0 / DATA CHEMISTRY_SPC( 73 ), SPECIES_MOLWT( 73 ) / 'ISO ', 68.10D0 / DATA CHEMISTRY_SPC( 74 ), SPECIES_MOLWT( 74 ) / 'INO2 ', 162.10D0 / DATA CHEMISTRY_SPC( 75 ), SPECIES_MOLWT( 75 ) / 'NALD ', 105.00D0 / DATA CHEMISTRY_SPC( 76 ), SPECIES_MOLWT( 76 ) / 'ISOP ', 117.00D0 / DATA CHEMISTRY_SPC( 77 ), SPECIES_MOLWT( 77 ) / 'ISHP ', 118.00D0 / DATA CHEMISTRY_SPC( 78 ), SPECIES_MOLWT( 78 ) / 'ISON ', 147.00D0 / DATA CHEMISTRY_SPC( 79 ), SPECIES_MOLWT( 79 ) / 'IPN ', 163.00D0 / DATA CHEMISTRY_SPC( 80 ), SPECIES_MOLWT( 80 ) / 'IEPOX ', 118.10D0 / DATA CHEMISTRY_SPC( 81 ), SPECIES_MOLWT( 81 ) / 'IPC ', 116.10D0 / DATA CHEMISTRY_SPC( 82 ), SPECIES_MOLWT( 82 ) / 'ROH ', 60.00D0 / DATA CHEMISTRY_SPC( 83 ), SPECIES_MOLWT( 83 ) / 'API ', 136.40D0 / DATA CHEMISTRY_SPC( 84 ), SPECIES_MOLWT( 84 ) / 'APIP1 ', 185.00D0 / DATA CHEMISTRY_SPC( 85 ), SPECIES_MOLWT( 85 ) / 'APIP2 ', 185.00D0 / DATA CHEMISTRY_SPC( 86 ), SPECIES_MOLWT( 86 ) / 'LIM ', 136.30D0 / DATA CHEMISTRY_SPC( 87 ), SPECIES_MOLWT( 87 ) / 'LIMP1 ', 185.00D0 / DATA CHEMISTRY_SPC( 88 ), SPECIES_MOLWT( 88 ) / 'LIMP2 ', 185.00D0 / DATA CHEMISTRY_SPC( 89 ), SPECIES_MOLWT( 89 ) / 'PINALP ', 199.00D0 / DATA CHEMISTRY_SPC( 90 ), SPECIES_MOLWT( 90 ) / 'RCO3 ', 89.00D0 / DATA CHEMISTRY_SPC( 91 ), SPECIES_MOLWT( 91 ) / 'LIMALP ', 217.00D0 / DATA CHEMISTRY_SPC( 92 ), SPECIES_MOLWT( 92 ) / 'ACTP ', 89.00D0 / DATA CHEMISTRY_SPC( 93 ), SPECIES_MOLWT( 93 ) / 'MEKP ', 103.00D0 / DATA CHEMISTRY_SPC( 94 ), SPECIES_MOLWT( 94 ) / 'KETP ', 117.00D0 / DATA CHEMISTRY_SPC( 95 ), SPECIES_MOLWT( 95 ) / 'MCP ', 119.00D0 / DATA CHEMISTRY_SPC( 96 ), SPECIES_MOLWT( 96 ) / 'MVKP ', 119.00D0 / DATA CHEMISTRY_SPC( 97 ), SPECIES_MOLWT( 97 ) / 'UALP ', 133.00D0 / DATA CHEMISTRY_SPC( 98 ), SPECIES_MOLWT( 98 ) / 'DCB3 ', 84.00D0 / DATA CHEMISTRY_SPC( 99 ), SPECIES_MOLWT( 99 ) / 'BALP ', 137.00D0 / DATA CHEMISTRY_SPC( 100 ), SPECIES_MOLWT( 100 ) / 'ADDC ', 125.00D0 / DATA CHEMISTRY_SPC( 101 ), SPECIES_MOLWT( 101 ) / 'MCT ', 124.10D0 / DATA CHEMISTRY_SPC( 102 ), SPECIES_MOLWT( 102 ) / 'MCTO ', 123.00D0 / DATA CHEMISTRY_SPC( 103 ), SPECIES_MOLWT( 103 ) / 'MOH ', 32.00D0 / DATA CHEMISTRY_SPC( 104 ), SPECIES_MOLWT( 104 ) / 'EOH ', 46.10D0 / DATA CHEMISTRY_SPC( 105 ), SPECIES_MOLWT( 105 ) / 'ETEG ', 62.10D0 / DATA CHEMISTRY_SPC( 106 ), SPECIES_MOLWT( 106 ) / 'MAHP ', 102.00D0 / DATA CHEMISTRY_SPC( 107 ), SPECIES_MOLWT( 107 ) / 'ORA2 ', 60.20D0 / DATA CHEMISTRY_SPC( 108 ), SPECIES_MOLWT( 108 ) / 'ORAP ', 91.00D0 / DATA CHEMISTRY_SPC( 109 ), SPECIES_MOLWT( 109 ) / 'PPN ', 135.00D0 / DATA CHEMISTRY_SPC( 110 ), SPECIES_MOLWT( 110 ) / 'MPAN ', 147.10D0 / DATA CHEMISTRY_SPC( 111 ), SPECIES_MOLWT( 111 ) / 'TRPN ', 215.00D0 / DATA CHEMISTRY_SPC( 112 ), SPECIES_MOLWT( 112 ) / 'HOM ', 250.00D0 / DATA CHEMISTRY_SPC( 113 ), SPECIES_MOLWT( 113 ) / 'MCTP ', 172.00D0 / DATA CHEMISTRY_SPC( 114 ), SPECIES_MOLWT( 114 ) / 'OLNN ', 136.00D0 / DATA CHEMISTRY_SPC( 115 ), SPECIES_MOLWT( 115 ) / 'OLND ', 136.00D0 / DATA CHEMISTRY_SPC( 116 ), SPECIES_MOLWT( 116 ) / 'APINP1 ', 230.00D0 / DATA CHEMISTRY_SPC( 117 ), SPECIES_MOLWT( 117 ) / 'APINP2 ', 230.00D0 / DATA CHEMISTRY_SPC( 118 ), SPECIES_MOLWT( 118 ) / 'LIMNP1 ', 230.00D0 / DATA CHEMISTRY_SPC( 119 ), SPECIES_MOLWT( 119 ) / 'LIMNP2 ', 230.00D0 / DATA CHEMISTRY_SPC( 120 ), SPECIES_MOLWT( 120 ) / 'ADCN ', 155.00D0 / DATA CHEMISTRY_SPC( 121 ), SPECIES_MOLWT( 121 ) / 'VROCP4OXY2 ', 158.20D0 / DATA CHEMISTRY_SPC( 122 ), SPECIES_MOLWT( 122 ) / 'VROCN1OXY6 ', 190.20D0 / DATA CHEMISTRY_SPC( 123 ), SPECIES_MOLWT( 123 ) / 'FURANONE ', 100.10D0 / DATA CHEMISTRY_SPC( 124 ), SPECIES_MOLWT( 124 ) / 'VROCP3OXY2 ', 186.30D0 / DATA CHEMISTRY_SPC( 125 ), SPECIES_MOLWT( 125 ) / 'VROCP0OXY4 ', 202.30D0 / DATA CHEMISTRY_SPC( 126 ), SPECIES_MOLWT( 126 ) / 'BAL1 ', 123.00D0 / DATA CHEMISTRY_SPC( 127 ), SPECIES_MOLWT( 127 ) / 'BAL2 ', 109.00D0 / DATA CHEMISTRY_SPC( 128 ), SPECIES_MOLWT( 128 ) / 'ELHOM ', 402.00D0 / DATA CHEMISTRY_SPC( 129 ), SPECIES_MOLWT( 129 ) / 'VROCIOXY ', 247.00D0 / DATA CHEMISTRY_SPC( 130 ), SPECIES_MOLWT( 130 ) / 'SLOWROC ', 75.40D0 / DATA CHEMISTRY_SPC( 131 ), SPECIES_MOLWT( 131 ) / 'ACRO ', 56.10D0 / DATA CHEMISTRY_SPC( 132 ), SPECIES_MOLWT( 132 ) / 'BDE13 ', 54.10D0 / DATA CHEMISTRY_SPC( 133 ), SPECIES_MOLWT( 133 ) / 'BDE13P ', 103.00D0 / DATA CHEMISTRY_SPC( 134 ), SPECIES_MOLWT( 134 ) / 'FURAN ', 96.10D0 / DATA CHEMISTRY_SPC( 135 ), SPECIES_MOLWT( 135 ) / 'FURANO2 ', 145.10D0 / DATA CHEMISTRY_SPC( 136 ), SPECIES_MOLWT( 136 ) / 'PROG ', 76.10D0 / DATA CHEMISTRY_SPC( 137 ), SPECIES_MOLWT( 137 ) / 'SESQ ', 204.40D0 / DATA CHEMISTRY_SPC( 138 ), SPECIES_MOLWT( 138 ) / 'SESQNRO2 ', 298.40D0 / DATA CHEMISTRY_SPC( 139 ), SPECIES_MOLWT( 139 ) / 'VROCN2OXY2 ', 282.40D0 / DATA CHEMISTRY_SPC( 140 ), SPECIES_MOLWT( 140 ) / 'SESQRO2 ', 253.40D0 / DATA CHEMISTRY_SPC( 141 ), SPECIES_MOLWT( 141 ) / 'VROCP0OXY2 ', 242.40D0 / DATA CHEMISTRY_SPC( 142 ), SPECIES_MOLWT( 142 ) / 'VROCP1OXY3 ', 202.30D0 / DATA CHEMISTRY_SPC( 143 ), SPECIES_MOLWT( 143 ) / 'AGLYJ ', 66.40D0 / DATA CHEMISTRY_SPC( 144 ), SPECIES_MOLWT( 144 ) / 'IEPOXP ', 118.10D0 / DATA CHEMISTRY_SPC( 145 ), SPECIES_MOLWT( 145 ) / 'AISO3NOSJ ', 136.20D0 / DATA CHEMISTRY_SPC( 146 ), SPECIES_MOLWT( 146 ) / 'ASO4J ', 96.00D0 / DATA CHEMISTRY_SPC( 147 ), SPECIES_MOLWT( 147 ) / 'AISO3OSJ ', 216.20D0 / DATA CHEMISTRY_SPC( 148 ), SPECIES_MOLWT( 148 ) / 'VROCP6ALK ', 184.37D0 / DATA CHEMISTRY_SPC( 149 ), SPECIES_MOLWT( 149 ) / 'VROCP6ALKP ', 215.36D0 / DATA CHEMISTRY_SPC( 150 ), SPECIES_MOLWT( 150 ) / 'VROCP5ALK ', 198.39D0 / DATA CHEMISTRY_SPC( 151 ), SPECIES_MOLWT( 151 ) / 'VROCP5ALKP ', 229.38D0 / DATA CHEMISTRY_SPC( 152 ), SPECIES_MOLWT( 152 ) / 'VROCP4ALK ', 254.50D0 / DATA CHEMISTRY_SPC( 153 ), SPECIES_MOLWT( 153 ) / 'VROCP4ALKP ', 285.49D0 / DATA CHEMISTRY_SPC( 154 ), SPECIES_MOLWT( 154 ) / 'VROCP3ALK ', 296.58D0 / DATA CHEMISTRY_SPC( 155 ), SPECIES_MOLWT( 155 ) / 'VROCP3ALKP ', 327.57D0 / DATA CHEMISTRY_SPC( 156 ), SPECIES_MOLWT( 156 ) / 'VROCP2ALK ', 338.66D0 / DATA CHEMISTRY_SPC( 157 ), SPECIES_MOLWT( 157 ) / 'VROCP2ALKP ', 369.65D0 / DATA CHEMISTRY_SPC( 158 ), SPECIES_MOLWT( 158 ) / 'VROCP1ALK ', 380.75D0 / DATA CHEMISTRY_SPC( 159 ), SPECIES_MOLWT( 159 ) / 'VROCP1ALKP ', 411.74D0 / DATA CHEMISTRY_SPC( 160 ), SPECIES_MOLWT( 160 ) / 'HC10 ', 142.28D0 / DATA CHEMISTRY_SPC( 161 ), SPECIES_MOLWT( 161 ) / 'VROCP6ALKP2 ', 231.36D0 / DATA CHEMISTRY_SPC( 162 ), SPECIES_MOLWT( 162 ) / 'VROCP5ALKP2 ', 245.38D0 / DATA CHEMISTRY_SPC( 163 ), SPECIES_MOLWT( 163 ) / 'VROCP4ALKP2 ', 301.49D0 / DATA CHEMISTRY_SPC( 164 ), SPECIES_MOLWT( 164 ) / 'VROCP2OXY2 ', 200.30D0 / DATA CHEMISTRY_SPC( 165 ), SPECIES_MOLWT( 165 ) / 'VROCP3ALKP2 ', 343.57D0 / DATA CHEMISTRY_SPC( 166 ), SPECIES_MOLWT( 166 ) / 'VROCP1OXY1 ', 270.50D0 / DATA CHEMISTRY_SPC( 167 ), SPECIES_MOLWT( 167 ) / 'VROCP2ALKP2 ', 385.65D0 / DATA CHEMISTRY_SPC( 168 ), SPECIES_MOLWT( 168 ) / 'VROCP1ALKP2 ', 427.73D0 / DATA CHEMISTRY_SPC( 169 ), SPECIES_MOLWT( 169 ) / 'VROCN1OXY1 ', 312.50D0 / DATA CHEMISTRY_SPC( 170 ), SPECIES_MOLWT( 170 ) / 'HC10P2 ', 189.27D0 / DATA CHEMISTRY_SPC( 171 ), SPECIES_MOLWT( 171 ) / 'VROCP6ARO ', 176.30D0 / DATA CHEMISTRY_SPC( 172 ), SPECIES_MOLWT( 172 ) / 'VROCP6AROP ', 257.30D0 / DATA CHEMISTRY_SPC( 173 ), SPECIES_MOLWT( 173 ) / 'VROCN2OXY4 ', 232.30D0 / DATA CHEMISTRY_SPC( 174 ), SPECIES_MOLWT( 174 ) / 'VROCN1OXY3 ', 230.30D0 / DATA CHEMISTRY_SPC( 175 ), SPECIES_MOLWT( 175 ) / 'VROCP5ARO ', 190.33D0 / DATA CHEMISTRY_SPC( 176 ), SPECIES_MOLWT( 176 ) / 'VROCP5AROP ', 271.33D0 / DATA CHEMISTRY_SPC( 177 ), SPECIES_MOLWT( 177 ) / 'NAPH ', 128.17D0 / DATA CHEMISTRY_SPC( 178 ), SPECIES_MOLWT( 178 ) / 'NAPHP ', 209.17D0 / DATA CHEMISTRY_SPC( 179 ), SPECIES_MOLWT( 179 ) / 'VROCN2OXY8 ', 194.20D0 / DATA CHEMISTRY_SPC( 180 ), SPECIES_MOLWT( 180 ) / 'VROCP5OXY1 ', 170.30D0 / DATA CHEMISTRY_SPC( 181 ), SPECIES_MOLWT( 181 ) / 'VROCP6OXY1 ', 142.20D0 / DATA CGRID_INDEX( 1 ), SPECIES_TYPE( 1 ), CONVERT_CONC( 1 ) / 1, 'GC', F / ! O3 DATA CGRID_INDEX( 2 ), SPECIES_TYPE( 2 ), CONVERT_CONC( 2 ) / 2, 'GC', F / ! O3P DATA CGRID_INDEX( 3 ), SPECIES_TYPE( 3 ), CONVERT_CONC( 3 ) / 3, 'GC', F / ! O1D DATA CGRID_INDEX( 4 ), SPECIES_TYPE( 4 ), CONVERT_CONC( 4 ) / 4, 'GC', F / ! H2O2 DATA CGRID_INDEX( 5 ), SPECIES_TYPE( 5 ), CONVERT_CONC( 5 ) / 5, 'GC', F / ! HO DATA CGRID_INDEX( 6 ), SPECIES_TYPE( 6 ), CONVERT_CONC( 6 ) / 6, 'GC', F / ! NO2 DATA CGRID_INDEX( 7 ), SPECIES_TYPE( 7 ), CONVERT_CONC( 7 ) / 7, 'GC', F / ! NO DATA CGRID_INDEX( 8 ), SPECIES_TYPE( 8 ), CONVERT_CONC( 8 ) / 8, 'GC', F / ! NO3 DATA CGRID_INDEX( 9 ), SPECIES_TYPE( 9 ), CONVERT_CONC( 9 ) / 9, 'GC', F / ! HONO DATA CGRID_INDEX( 10 ), SPECIES_TYPE( 10 ), CONVERT_CONC( 10 ) / 10, 'GC', F / ! HNO3 DATA CGRID_INDEX( 11 ), SPECIES_TYPE( 11 ), CONVERT_CONC( 11 ) / 11, 'GC', F / ! HNO4 DATA CGRID_INDEX( 12 ), SPECIES_TYPE( 12 ), CONVERT_CONC( 12 ) / 12, 'GC', F / ! HO2 DATA CGRID_INDEX( 13 ), SPECIES_TYPE( 13 ), CONVERT_CONC( 13 ) / 13, 'GC', F / ! HCHO DATA CGRID_INDEX( 14 ), SPECIES_TYPE( 14 ), CONVERT_CONC( 14 ) / 14, 'GC', F / ! CO DATA CGRID_INDEX( 15 ), SPECIES_TYPE( 15 ), CONVERT_CONC( 15 ) / 15, 'GC', F / ! ACD DATA CGRID_INDEX( 16 ), SPECIES_TYPE( 16 ), CONVERT_CONC( 16 ) / 16, 'GC', F / ! MO2 DATA CGRID_INDEX( 17 ), SPECIES_TYPE( 17 ), CONVERT_CONC( 17 ) / 17, 'GC', F / ! ALD DATA CGRID_INDEX( 18 ), SPECIES_TYPE( 18 ), CONVERT_CONC( 18 ) / 18, 'GC', F / ! ETHP DATA CGRID_INDEX( 19 ), SPECIES_TYPE( 19 ), CONVERT_CONC( 19 ) / 19, 'GC', F / ! ACT DATA CGRID_INDEX( 20 ), SPECIES_TYPE( 20 ), CONVERT_CONC( 20 ) / 20, 'GC', F / ! ACO3 DATA CGRID_INDEX( 21 ), SPECIES_TYPE( 21 ), CONVERT_CONC( 21 ) / 21, 'GC', F / ! UALD DATA CGRID_INDEX( 22 ), SPECIES_TYPE( 22 ), CONVERT_CONC( 22 ) / 22, 'GC', F / ! KET DATA CGRID_INDEX( 23 ), SPECIES_TYPE( 23 ), CONVERT_CONC( 23 ) / 79, 'GC', F / ! PINAL DATA CGRID_INDEX( 24 ), SPECIES_TYPE( 24 ), CONVERT_CONC( 24 ) / 52, 'GC', F / ! HC10P DATA CGRID_INDEX( 25 ), SPECIES_TYPE( 25 ), CONVERT_CONC( 25 ) / 86, 'GC', F / ! LIMAL DATA CGRID_INDEX( 26 ), SPECIES_TYPE( 26 ), CONVERT_CONC( 26 ) / 23, 'GC', F / ! MEK DATA CGRID_INDEX( 27 ), SPECIES_TYPE( 27 ), CONVERT_CONC( 27 ) / 24, 'GC', F / ! HKET DATA CGRID_INDEX( 28 ), SPECIES_TYPE( 28 ), CONVERT_CONC( 28 ) / 25, 'GC', F / ! MACR DATA CGRID_INDEX( 29 ), SPECIES_TYPE( 29 ), CONVERT_CONC( 29 ) / 26, 'GC', F / ! MACP DATA CGRID_INDEX( 30 ), SPECIES_TYPE( 30 ), CONVERT_CONC( 30 ) / 27, 'GC', F / ! XO2 DATA CGRID_INDEX( 31 ), SPECIES_TYPE( 31 ), CONVERT_CONC( 31 ) / 28, 'GC', F / ! MVK DATA CGRID_INDEX( 32 ), SPECIES_TYPE( 32 ), CONVERT_CONC( 32 ) / 29, 'GC', F / ! GLY DATA CGRID_INDEX( 33 ), SPECIES_TYPE( 33 ), CONVERT_CONC( 33 ) / 30, 'GC', F / ! MGLY DATA CGRID_INDEX( 34 ), SPECIES_TYPE( 34 ), CONVERT_CONC( 34 ) / 31, 'GC', F / ! DCB1 DATA CGRID_INDEX( 35 ), SPECIES_TYPE( 35 ), CONVERT_CONC( 35 ) / 32, 'GC', F / ! DCB2 DATA CGRID_INDEX( 36 ), SPECIES_TYPE( 36 ), CONVERT_CONC( 36 ) / 33, 'GC', F / ! BALD DATA CGRID_INDEX( 37 ), SPECIES_TYPE( 37 ), CONVERT_CONC( 37 ) / 34, 'GC', F / ! CHO DATA CGRID_INDEX( 38 ), SPECIES_TYPE( 38 ), CONVERT_CONC( 38 ) / 35, 'GC', F / ! OP1 DATA CGRID_INDEX( 39 ), SPECIES_TYPE( 39 ), CONVERT_CONC( 39 ) / 36, 'GC', F / ! OP2 DATA CGRID_INDEX( 40 ), SPECIES_TYPE( 40 ), CONVERT_CONC( 40 ) / 37, 'GC', F / ! OPB DATA CGRID_INDEX( 41 ), SPECIES_TYPE( 41 ), CONVERT_CONC( 41 ) / 38, 'GC', F / ! OP3 DATA CGRID_INDEX( 42 ), SPECIES_TYPE( 42 ), CONVERT_CONC( 42 ) / 39, 'GC', F / ! PAA DATA CGRID_INDEX( 43 ), SPECIES_TYPE( 43 ), CONVERT_CONC( 43 ) / 40, 'GC', F / ! ONIT DATA CGRID_INDEX( 44 ), SPECIES_TYPE( 44 ), CONVERT_CONC( 44 ) / 41, 'GC', F / ! PAN DATA CGRID_INDEX( 45 ), SPECIES_TYPE( 45 ), CONVERT_CONC( 45 ) / 42, 'GC', F / ! N2O5 DATA CGRID_INDEX( 46 ), SPECIES_TYPE( 46 ), CONVERT_CONC( 46 ) / 43, 'GC', F / ! SO2 DATA CGRID_INDEX( 47 ), SPECIES_TYPE( 47 ), CONVERT_CONC( 47 ) / 44, 'GC', F / ! SULF DATA CGRID_INDEX( 48 ), SPECIES_TYPE( 48 ), CONVERT_CONC( 48 ) / 45, 'GC', F / ! SULRXN DATA CGRID_INDEX( 49 ), SPECIES_TYPE( 49 ), CONVERT_CONC( 49 ) / 46, 'GC', F / ! ETH DATA CGRID_INDEX( 50 ), SPECIES_TYPE( 50 ), CONVERT_CONC( 50 ) / 47, 'GC', F / ! HC3 DATA CGRID_INDEX( 51 ), SPECIES_TYPE( 51 ), CONVERT_CONC( 51 ) / 48, 'GC', F / ! HC3P DATA CGRID_INDEX( 52 ), SPECIES_TYPE( 52 ), CONVERT_CONC( 52 ) / 190, 'AE', T / ! ASOATJ DATA CGRID_INDEX( 53 ), SPECIES_TYPE( 53 ), CONVERT_CONC( 53 ) / 49, 'GC', F / ! HC5 DATA CGRID_INDEX( 54 ), SPECIES_TYPE( 54 ), CONVERT_CONC( 54 ) / 50, 'GC', F / ! HC5P DATA CGRID_INDEX( 55 ), SPECIES_TYPE( 55 ), CONVERT_CONC( 55 ) / 54, 'GC', F / ! ETE DATA CGRID_INDEX( 56 ), SPECIES_TYPE( 56 ), CONVERT_CONC( 56 ) / 55, 'GC', F / ! ETEP DATA CGRID_INDEX( 57 ), SPECIES_TYPE( 57 ), CONVERT_CONC( 57 ) / 56, 'GC', F / ! OLT DATA CGRID_INDEX( 58 ), SPECIES_TYPE( 58 ), CONVERT_CONC( 58 ) / 57, 'GC', F / ! OLTP DATA CGRID_INDEX( 59 ), SPECIES_TYPE( 59 ), CONVERT_CONC( 59 ) / 58, 'GC', F / ! OLI DATA CGRID_INDEX( 60 ), SPECIES_TYPE( 60 ), CONVERT_CONC( 60 ) / 59, 'GC', F / ! OLIP DATA CGRID_INDEX( 61 ), SPECIES_TYPE( 61 ), CONVERT_CONC( 61 ) / 60, 'GC', F / ! ACE DATA CGRID_INDEX( 62 ), SPECIES_TYPE( 62 ), CONVERT_CONC( 62 ) / 61, 'GC', F / ! ORA1 DATA CGRID_INDEX( 63 ), SPECIES_TYPE( 63 ), CONVERT_CONC( 63 ) / 62, 'GC', F / ! BEN DATA CGRID_INDEX( 64 ), SPECIES_TYPE( 64 ), CONVERT_CONC( 64 ) / 63, 'GC', F / ! BENP DATA CGRID_INDEX( 65 ), SPECIES_TYPE( 65 ), CONVERT_CONC( 65 ) / 64, 'GC', F / ! PHEN DATA CGRID_INDEX( 66 ), SPECIES_TYPE( 66 ), CONVERT_CONC( 66 ) / 65, 'GC', F / ! TOL DATA CGRID_INDEX( 67 ), SPECIES_TYPE( 67 ), CONVERT_CONC( 67 ) / 69, 'GC', F / ! TOLP DATA CGRID_INDEX( 68 ), SPECIES_TYPE( 68 ), CONVERT_CONC( 68 ) / 66, 'GC', F / ! CSL DATA CGRID_INDEX( 69 ), SPECIES_TYPE( 69 ), CONVERT_CONC( 69 ) / 67, 'GC', F / ! XYM DATA CGRID_INDEX( 70 ), SPECIES_TYPE( 70 ), CONVERT_CONC( 70 ) / 70, 'GC', F / ! XYMP DATA CGRID_INDEX( 71 ), SPECIES_TYPE( 71 ), CONVERT_CONC( 71 ) / 68, 'GC', F / ! XYE DATA CGRID_INDEX( 72 ), SPECIES_TYPE( 72 ), CONVERT_CONC( 72 ) / 71, 'GC', F / ! XYEP DATA CGRID_INDEX( 73 ), SPECIES_TYPE( 73 ), CONVERT_CONC( 73 ) / 72, 'GC', F / ! ISO DATA CGRID_INDEX( 74 ), SPECIES_TYPE( 74 ), CONVERT_CONC( 74 ) / 115, 'GC', F / ! INO2 DATA CGRID_INDEX( 75 ), SPECIES_TYPE( 75 ), CONVERT_CONC( 75 ) / 114, 'GC', F / ! NALD DATA CGRID_INDEX( 76 ), SPECIES_TYPE( 76 ), CONVERT_CONC( 76 ) / 73, 'GC', F / ! ISOP DATA CGRID_INDEX( 77 ), SPECIES_TYPE( 77 ), CONVERT_CONC( 77 ) / 106, 'GC', F / ! ISHP DATA CGRID_INDEX( 78 ), SPECIES_TYPE( 78 ), CONVERT_CONC( 78 ) / 116, 'GC', F / ! ISON DATA CGRID_INDEX( 79 ), SPECIES_TYPE( 79 ), CONVERT_CONC( 79 ) / 117, 'GC', F / ! IPN DATA CGRID_INDEX( 80 ), SPECIES_TYPE( 80 ), CONVERT_CONC( 80 ) / 107, 'GC', F / ! IEPOX DATA CGRID_INDEX( 81 ), SPECIES_TYPE( 81 ), CONVERT_CONC( 81 ) / 118, 'GC', F / ! IPC DATA CGRID_INDEX( 82 ), SPECIES_TYPE( 82 ), CONVERT_CONC( 82 ) / 104, 'GC', F / ! ROH DATA CGRID_INDEX( 83 ), SPECIES_TYPE( 83 ), CONVERT_CONC( 83 ) / 74, 'GC', F / ! API DATA CGRID_INDEX( 84 ), SPECIES_TYPE( 84 ), CONVERT_CONC( 84 ) / 75, 'GC', F / ! APIP1 DATA CGRID_INDEX( 85 ), SPECIES_TYPE( 85 ), CONVERT_CONC( 85 ) / 76, 'GC', F / ! APIP2 DATA CGRID_INDEX( 86 ), SPECIES_TYPE( 86 ), CONVERT_CONC( 86 ) / 81, 'GC', F / ! LIM DATA CGRID_INDEX( 87 ), SPECIES_TYPE( 87 ), CONVERT_CONC( 87 ) / 82, 'GC', F / ! LIMP1 DATA CGRID_INDEX( 88 ), SPECIES_TYPE( 88 ), CONVERT_CONC( 88 ) / 83, 'GC', F / ! LIMP2 DATA CGRID_INDEX( 89 ), SPECIES_TYPE( 89 ), CONVERT_CONC( 89 ) / 80, 'GC', F / ! PINALP DATA CGRID_INDEX( 90 ), SPECIES_TYPE( 90 ), CONVERT_CONC( 90 ) / 90, 'GC', F / ! RCO3 DATA CGRID_INDEX( 91 ), SPECIES_TYPE( 91 ), CONVERT_CONC( 91 ) / 87, 'GC', F / ! LIMALP DATA CGRID_INDEX( 92 ), SPECIES_TYPE( 92 ), CONVERT_CONC( 92 ) / 91, 'GC', F / ! ACTP DATA CGRID_INDEX( 93 ), SPECIES_TYPE( 93 ), CONVERT_CONC( 93 ) / 92, 'GC', F / ! MEKP DATA CGRID_INDEX( 94 ), SPECIES_TYPE( 94 ), CONVERT_CONC( 94 ) / 93, 'GC', F / ! KETP DATA CGRID_INDEX( 95 ), SPECIES_TYPE( 95 ), CONVERT_CONC( 95 ) / 94, 'GC', F / ! MCP DATA CGRID_INDEX( 96 ), SPECIES_TYPE( 96 ), CONVERT_CONC( 96 ) / 95, 'GC', F / ! MVKP DATA CGRID_INDEX( 97 ), SPECIES_TYPE( 97 ), CONVERT_CONC( 97 ) / 96, 'GC', F / ! UALP DATA CGRID_INDEX( 98 ), SPECIES_TYPE( 98 ), CONVERT_CONC( 98 ) / 97, 'GC', F / ! DCB3 DATA CGRID_INDEX( 99 ), SPECIES_TYPE( 99 ), CONVERT_CONC( 99 ) / 98, 'GC', F / ! BALP DATA CGRID_INDEX( 100 ), SPECIES_TYPE( 100 ), CONVERT_CONC( 100 ) / 99, 'GC', F / ! ADDC DATA CGRID_INDEX( 101 ), SPECIES_TYPE( 101 ), CONVERT_CONC( 101 ) / 100, 'GC', F / ! MCT DATA CGRID_INDEX( 102 ), SPECIES_TYPE( 102 ), CONVERT_CONC( 102 ) / 101, 'GC', F / ! MCTO DATA CGRID_INDEX( 103 ), SPECIES_TYPE( 103 ), CONVERT_CONC( 103 ) / 102, 'GC', F / ! MOH DATA CGRID_INDEX( 104 ), SPECIES_TYPE( 104 ), CONVERT_CONC( 104 ) / 103, 'GC', F / ! EOH DATA CGRID_INDEX( 105 ), SPECIES_TYPE( 105 ), CONVERT_CONC( 105 ) / 105, 'GC', F / ! ETEG DATA CGRID_INDEX( 106 ), SPECIES_TYPE( 106 ), CONVERT_CONC( 106 ) / 109, 'GC', F / ! MAHP DATA CGRID_INDEX( 107 ), SPECIES_TYPE( 107 ), CONVERT_CONC( 107 ) / 110, 'GC', F / ! ORA2 DATA CGRID_INDEX( 108 ), SPECIES_TYPE( 108 ), CONVERT_CONC( 108 ) / 111, 'GC', F / ! ORAP DATA CGRID_INDEX( 109 ), SPECIES_TYPE( 109 ), CONVERT_CONC( 109 ) / 112, 'GC', F / ! PPN DATA CGRID_INDEX( 110 ), SPECIES_TYPE( 110 ), CONVERT_CONC( 110 ) / 113, 'GC', F / ! MPAN DATA CGRID_INDEX( 111 ), SPECIES_TYPE( 111 ), CONVERT_CONC( 111 ) / 119, 'GC', F / ! TRPN DATA CGRID_INDEX( 112 ), SPECIES_TYPE( 112 ), CONVERT_CONC( 112 ) / 88, 'GC', F / ! HOM DATA CGRID_INDEX( 113 ), SPECIES_TYPE( 113 ), CONVERT_CONC( 113 ) / 120, 'GC', F / ! MCTP DATA CGRID_INDEX( 114 ), SPECIES_TYPE( 114 ), CONVERT_CONC( 114 ) / 121, 'GC', F / ! OLNN DATA CGRID_INDEX( 115 ), SPECIES_TYPE( 115 ), CONVERT_CONC( 115 ) / 122, 'GC', F / ! OLND DATA CGRID_INDEX( 116 ), SPECIES_TYPE( 116 ), CONVERT_CONC( 116 ) / 77, 'GC', F / ! APINP1 DATA CGRID_INDEX( 117 ), SPECIES_TYPE( 117 ), CONVERT_CONC( 117 ) / 78, 'GC', F / ! APINP2 DATA CGRID_INDEX( 118 ), SPECIES_TYPE( 118 ), CONVERT_CONC( 118 ) / 84, 'GC', F / ! LIMNP1 DATA CGRID_INDEX( 119 ), SPECIES_TYPE( 119 ), CONVERT_CONC( 119 ) / 85, 'GC', F / ! LIMNP2 DATA CGRID_INDEX( 120 ), SPECIES_TYPE( 120 ), CONVERT_CONC( 120 ) / 123, 'GC', F / ! ADCN DATA CGRID_INDEX( 121 ), SPECIES_TYPE( 121 ), CONVERT_CONC( 121 ) / 177, 'GC', F / ! VROCP4OXY2 DATA CGRID_INDEX( 122 ), SPECIES_TYPE( 122 ), CONVERT_CONC( 122 ) / 170, 'GC', F / ! VROCN1OXY6 DATA CGRID_INDEX( 123 ), SPECIES_TYPE( 123 ), CONVERT_CONC( 123 ) / 132, 'GC', F / ! FURANONE DATA CGRID_INDEX( 124 ), SPECIES_TYPE( 124 ), CONVERT_CONC( 124 ) / 176, 'GC', F / ! VROCP3OXY2 DATA CGRID_INDEX( 125 ), SPECIES_TYPE( 125 ), CONVERT_CONC( 125 ) / 172, 'GC', F / ! VROCP0OXY4 DATA CGRID_INDEX( 126 ), SPECIES_TYPE( 126 ), CONVERT_CONC( 126 ) / 124, 'GC', F / ! BAL1 DATA CGRID_INDEX( 127 ), SPECIES_TYPE( 127 ), CONVERT_CONC( 127 ) / 125, 'GC', F / ! BAL2 DATA CGRID_INDEX( 128 ), SPECIES_TYPE( 128 ), CONVERT_CONC( 128 ) / 89, 'GC', F / ! ELHOM DATA CGRID_INDEX( 129 ), SPECIES_TYPE( 129 ), CONVERT_CONC( 129 ) / 133, 'GC', F / ! VROCIOXY DATA CGRID_INDEX( 130 ), SPECIES_TYPE( 130 ), CONVERT_CONC( 130 ) / 134, 'GC', F / ! SLOWROC DATA CGRID_INDEX( 131 ), SPECIES_TYPE( 131 ), CONVERT_CONC( 131 ) / 126, 'GC', F / ! ACRO DATA CGRID_INDEX( 132 ), SPECIES_TYPE( 132 ), CONVERT_CONC( 132 ) / 127, 'GC', F / ! BDE13 DATA CGRID_INDEX( 133 ), SPECIES_TYPE( 133 ), CONVERT_CONC( 133 ) / 128, 'GC', F / ! BDE13P DATA CGRID_INDEX( 134 ), SPECIES_TYPE( 134 ), CONVERT_CONC( 134 ) / 130, 'GC', F / ! FURAN DATA CGRID_INDEX( 135 ), SPECIES_TYPE( 135 ), CONVERT_CONC( 135 ) / 131, 'GC', F / ! FURANO2 DATA CGRID_INDEX( 136 ), SPECIES_TYPE( 136 ), CONVERT_CONC( 136 ) / 129, 'GC', F / ! PROG DATA CGRID_INDEX( 137 ), SPECIES_TYPE( 137 ), CONVERT_CONC( 137 ) / 135, 'GC', F / ! SESQ DATA CGRID_INDEX( 138 ), SPECIES_TYPE( 138 ), CONVERT_CONC( 138 ) / 137, 'GC', F / ! SESQNRO2 DATA CGRID_INDEX( 139 ), SPECIES_TYPE( 139 ), CONVERT_CONC( 139 ) / 165, 'GC', F / ! VROCN2OXY2 DATA CGRID_INDEX( 140 ), SPECIES_TYPE( 140 ), CONVERT_CONC( 140 ) / 136, 'GC', F / ! SESQRO2 DATA CGRID_INDEX( 141 ), SPECIES_TYPE( 141 ), CONVERT_CONC( 141 ) / 171, 'GC', F / ! VROCP0OXY2 DATA CGRID_INDEX( 142 ), SPECIES_TYPE( 142 ), CONVERT_CONC( 142 ) / 174, 'GC', F / ! VROCP1OXY3 DATA CGRID_INDEX( 143 ), SPECIES_TYPE( 143 ), CONVERT_CONC( 143 ) / 191, 'AE', T / ! AGLYJ DATA CGRID_INDEX( 144 ), SPECIES_TYPE( 144 ), CONVERT_CONC( 144 ) / 108, 'GC', F / ! IEPOXP DATA CGRID_INDEX( 145 ), SPECIES_TYPE( 145 ), CONVERT_CONC( 145 ) / 265, 'AE', T / ! AISO3NOSJ DATA CGRID_INDEX( 146 ), SPECIES_TYPE( 146 ), CONVERT_CONC( 146 ) / 182, 'AE', T / ! ASO4J DATA CGRID_INDEX( 147 ), SPECIES_TYPE( 147 ), CONVERT_CONC( 147 ) / 266, 'AE', T / ! AISO3OSJ DATA CGRID_INDEX( 148 ), SPECIES_TYPE( 148 ), CONVERT_CONC( 148 ) / 152, 'GC', F / ! VROCP6ALK DATA CGRID_INDEX( 149 ), SPECIES_TYPE( 149 ), CONVERT_CONC( 149 ) / 158, 'GC', F / ! VROCP6ALKP DATA CGRID_INDEX( 150 ), SPECIES_TYPE( 150 ), CONVERT_CONC( 150 ) / 151, 'GC', F / ! VROCP5ALK DATA CGRID_INDEX( 151 ), SPECIES_TYPE( 151 ), CONVERT_CONC( 151 ) / 157, 'GC', F / ! VROCP5ALKP DATA CGRID_INDEX( 152 ), SPECIES_TYPE( 152 ), CONVERT_CONC( 152 ) / 150, 'GC', F / ! VROCP4ALK DATA CGRID_INDEX( 153 ), SPECIES_TYPE( 153 ), CONVERT_CONC( 153 ) / 156, 'GC', F / ! VROCP4ALKP DATA CGRID_INDEX( 154 ), SPECIES_TYPE( 154 ), CONVERT_CONC( 154 ) / 149, 'GC', F / ! VROCP3ALK DATA CGRID_INDEX( 155 ), SPECIES_TYPE( 155 ), CONVERT_CONC( 155 ) / 155, 'GC', F / ! VROCP3ALKP DATA CGRID_INDEX( 156 ), SPECIES_TYPE( 156 ), CONVERT_CONC( 156 ) / 148, 'GC', F / ! VROCP2ALK DATA CGRID_INDEX( 157 ), SPECIES_TYPE( 157 ), CONVERT_CONC( 157 ) / 154, 'GC', F / ! VROCP2ALKP DATA CGRID_INDEX( 158 ), SPECIES_TYPE( 158 ), CONVERT_CONC( 158 ) / 147, 'GC', F / ! VROCP1ALK DATA CGRID_INDEX( 159 ), SPECIES_TYPE( 159 ), CONVERT_CONC( 159 ) / 153, 'GC', F / ! VROCP1ALKP DATA CGRID_INDEX( 160 ), SPECIES_TYPE( 160 ), CONVERT_CONC( 160 ) / 51, 'GC', F / ! HC10 DATA CGRID_INDEX( 161 ), SPECIES_TYPE( 161 ), CONVERT_CONC( 161 ) / 164, 'GC', F / ! VROCP6ALKP2 DATA CGRID_INDEX( 162 ), SPECIES_TYPE( 162 ), CONVERT_CONC( 162 ) / 163, 'GC', F / ! VROCP5ALKP2 DATA CGRID_INDEX( 163 ), SPECIES_TYPE( 163 ), CONVERT_CONC( 163 ) / 162, 'GC', F / ! VROCP4ALKP2 DATA CGRID_INDEX( 164 ), SPECIES_TYPE( 164 ), CONVERT_CONC( 164 ) / 175, 'GC', F / ! VROCP2OXY2 DATA CGRID_INDEX( 165 ), SPECIES_TYPE( 165 ), CONVERT_CONC( 165 ) / 161, 'GC', F / ! VROCP3ALKP2 DATA CGRID_INDEX( 166 ), SPECIES_TYPE( 166 ), CONVERT_CONC( 166 ) / 173, 'GC', F / ! VROCP1OXY1 DATA CGRID_INDEX( 167 ), SPECIES_TYPE( 167 ), CONVERT_CONC( 167 ) / 160, 'GC', F / ! VROCP2ALKP2 DATA CGRID_INDEX( 168 ), SPECIES_TYPE( 168 ), CONVERT_CONC( 168 ) / 159, 'GC', F / ! VROCP1ALKP2 DATA CGRID_INDEX( 169 ), SPECIES_TYPE( 169 ), CONVERT_CONC( 169 ) / 168, 'GC', F / ! VROCN1OXY1 DATA CGRID_INDEX( 170 ), SPECIES_TYPE( 170 ), CONVERT_CONC( 170 ) / 53, 'GC', F / ! HC10P2 DATA CGRID_INDEX( 171 ), SPECIES_TYPE( 171 ), CONVERT_CONC( 171 ) / 141, 'GC', F / ! VROCP6ARO DATA CGRID_INDEX( 172 ), SPECIES_TYPE( 172 ), CONVERT_CONC( 172 ) / 143, 'GC', F / ! VROCP6AROP DATA CGRID_INDEX( 173 ), SPECIES_TYPE( 173 ), CONVERT_CONC( 173 ) / 166, 'GC', F / ! VROCN2OXY4 DATA CGRID_INDEX( 174 ), SPECIES_TYPE( 174 ), CONVERT_CONC( 174 ) / 169, 'GC', F / ! VROCN1OXY3 DATA CGRID_INDEX( 175 ), SPECIES_TYPE( 175 ), CONVERT_CONC( 175 ) / 140, 'GC', F / ! VROCP5ARO DATA CGRID_INDEX( 176 ), SPECIES_TYPE( 176 ), CONVERT_CONC( 176 ) / 142, 'GC', F / ! VROCP5AROP DATA CGRID_INDEX( 177 ), SPECIES_TYPE( 177 ), CONVERT_CONC( 177 ) / 138, 'GC', F / ! NAPH DATA CGRID_INDEX( 178 ), SPECIES_TYPE( 178 ), CONVERT_CONC( 178 ) / 139, 'GC', F / ! NAPHP DATA CGRID_INDEX( 179 ), SPECIES_TYPE( 179 ), CONVERT_CONC( 179 ) / 167, 'GC', F / ! VROCN2OXY8 DATA CGRID_INDEX( 180 ), SPECIES_TYPE( 180 ), CONVERT_CONC( 180 ) / 178, 'GC', F / ! VROCP5OXY1 DATA CGRID_INDEX( 181 ), SPECIES_TYPE( 181 ), CONVERT_CONC( 181 ) / 179, 'GC', F / ! VROCP6OXY1 ! The below integers define the locations of mechanism species in the solver ! concentration array. INTEGER :: INDEX_O3 = 1 INTEGER :: INDEX_O3P = 2 INTEGER :: INDEX_O1D = 3 INTEGER :: INDEX_H2O2 = 4 INTEGER :: INDEX_HO = 5 INTEGER :: INDEX_NO2 = 6 INTEGER :: INDEX_NO = 7 INTEGER :: INDEX_NO3 = 8 INTEGER :: INDEX_HONO = 9 INTEGER :: INDEX_HNO3 = 10 INTEGER :: INDEX_HNO4 = 11 INTEGER :: INDEX_HO2 = 12 INTEGER :: INDEX_HCHO = 13 INTEGER :: INDEX_CO = 14 INTEGER :: INDEX_ACD = 15 INTEGER :: INDEX_MO2 = 16 INTEGER :: INDEX_ALD = 17 INTEGER :: INDEX_ETHP = 18 INTEGER :: INDEX_ACT = 19 INTEGER :: INDEX_ACO3 = 20 INTEGER :: INDEX_UALD = 21 INTEGER :: INDEX_KET = 22 INTEGER :: INDEX_PINAL = 23 INTEGER :: INDEX_HC10P = 24 INTEGER :: INDEX_LIMAL = 25 INTEGER :: INDEX_MEK = 26 INTEGER :: INDEX_HKET = 27 INTEGER :: INDEX_MACR = 28 INTEGER :: INDEX_MACP = 29 INTEGER :: INDEX_XO2 = 30 INTEGER :: INDEX_MVK = 31 INTEGER :: INDEX_GLY = 32 INTEGER :: INDEX_MGLY = 33 INTEGER :: INDEX_DCB1 = 34 INTEGER :: INDEX_DCB2 = 35 INTEGER :: INDEX_BALD = 36 INTEGER :: INDEX_CHO = 37 INTEGER :: INDEX_OP1 = 38 INTEGER :: INDEX_OP2 = 39 INTEGER :: INDEX_OPB = 40 INTEGER :: INDEX_OP3 = 41 INTEGER :: INDEX_PAA = 42 INTEGER :: INDEX_ONIT = 43 INTEGER :: INDEX_PAN = 44 INTEGER :: INDEX_N2O5 = 45 INTEGER :: INDEX_SO2 = 46 INTEGER :: INDEX_SULF = 47 INTEGER :: INDEX_SULRXN = 48 INTEGER :: INDEX_ETH = 49 INTEGER :: INDEX_HC3 = 50 INTEGER :: INDEX_HC3P = 51 INTEGER :: INDEX_ASOATJ = 52 INTEGER :: INDEX_HC5 = 53 INTEGER :: INDEX_HC5P = 54 INTEGER :: INDEX_ETE = 55 INTEGER :: INDEX_ETEP = 56 INTEGER :: INDEX_OLT = 57 INTEGER :: INDEX_OLTP = 58 INTEGER :: INDEX_OLI = 59 INTEGER :: INDEX_OLIP = 60 INTEGER :: INDEX_ACE = 61 INTEGER :: INDEX_ORA1 = 62 INTEGER :: INDEX_BEN = 63 INTEGER :: INDEX_BENP = 64 INTEGER :: INDEX_PHEN = 65 INTEGER :: INDEX_TOL = 66 INTEGER :: INDEX_TOLP = 67 INTEGER :: INDEX_CSL = 68 INTEGER :: INDEX_XYM = 69 INTEGER :: INDEX_XYMP = 70 INTEGER :: INDEX_XYE = 71 INTEGER :: INDEX_XYEP = 72 INTEGER :: INDEX_ISO = 73 INTEGER :: INDEX_INO2 = 74 INTEGER :: INDEX_NALD = 75 INTEGER :: INDEX_ISOP = 76 INTEGER :: INDEX_ISHP = 77 INTEGER :: INDEX_ISON = 78 INTEGER :: INDEX_IPN = 79 INTEGER :: INDEX_IEPOX = 80 INTEGER :: INDEX_IPC = 81 INTEGER :: INDEX_ROH = 82 INTEGER :: INDEX_API = 83 INTEGER :: INDEX_APIP1 = 84 INTEGER :: INDEX_APIP2 = 85 INTEGER :: INDEX_LIM = 86 INTEGER :: INDEX_LIMP1 = 87 INTEGER :: INDEX_LIMP2 = 88 INTEGER :: INDEX_PINALP = 89 INTEGER :: INDEX_RCO3 = 90 INTEGER :: INDEX_LIMALP = 91 INTEGER :: INDEX_ACTP = 92 INTEGER :: INDEX_MEKP = 93 INTEGER :: INDEX_KETP = 94 INTEGER :: INDEX_MCP = 95 INTEGER :: INDEX_MVKP = 96 INTEGER :: INDEX_UALP = 97 INTEGER :: INDEX_DCB3 = 98 INTEGER :: INDEX_BALP = 99 INTEGER :: INDEX_ADDC = 100 INTEGER :: INDEX_MCT = 101 INTEGER :: INDEX_MCTO = 102 INTEGER :: INDEX_MOH = 103 INTEGER :: INDEX_EOH = 104 INTEGER :: INDEX_ETEG = 105 INTEGER :: INDEX_MAHP = 106 INTEGER :: INDEX_ORA2 = 107 INTEGER :: INDEX_ORAP = 108 INTEGER :: INDEX_PPN = 109 INTEGER :: INDEX_MPAN = 110 INTEGER :: INDEX_TRPN = 111 INTEGER :: INDEX_HOM = 112 INTEGER :: INDEX_MCTP = 113 INTEGER :: INDEX_OLNN = 114 INTEGER :: INDEX_OLND = 115 INTEGER :: INDEX_APINP1 = 116 INTEGER :: INDEX_APINP2 = 117 INTEGER :: INDEX_LIMNP1 = 118 INTEGER :: INDEX_LIMNP2 = 119 INTEGER :: INDEX_ADCN = 120 INTEGER :: INDEX_VROCP4OXY2 = 121 INTEGER :: INDEX_VROCN1OXY6 = 122 INTEGER :: INDEX_FURANONE = 123 INTEGER :: INDEX_VROCP3OXY2 = 124 INTEGER :: INDEX_VROCP0OXY4 = 125 INTEGER :: INDEX_BAL1 = 126 INTEGER :: INDEX_BAL2 = 127 INTEGER :: INDEX_ELHOM = 128 INTEGER :: INDEX_VROCIOXY = 129 INTEGER :: INDEX_SLOWROC = 130 INTEGER :: INDEX_ACRO = 131 INTEGER :: INDEX_BDE13 = 132 INTEGER :: INDEX_BDE13P = 133 INTEGER :: INDEX_FURAN = 134 INTEGER :: INDEX_FURANO2 = 135 INTEGER :: INDEX_PROG = 136 INTEGER :: INDEX_SESQ = 137 INTEGER :: INDEX_SESQNRO2 = 138 INTEGER :: INDEX_VROCN2OXY2 = 139 INTEGER :: INDEX_SESQRO2 = 140 INTEGER :: INDEX_VROCP0OXY2 = 141 INTEGER :: INDEX_VROCP1OXY3 = 142 INTEGER :: INDEX_AGLYJ = 143 INTEGER :: INDEX_IEPOXP = 144 INTEGER :: INDEX_AISO3NOSJ = 145 INTEGER :: INDEX_ASO4J = 146 INTEGER :: INDEX_AISO3OSJ = 147 INTEGER :: INDEX_VROCP6ALK = 148 INTEGER :: INDEX_VROCP6ALKP = 149 INTEGER :: INDEX_VROCP5ALK = 150 INTEGER :: INDEX_VROCP5ALKP = 151 INTEGER :: INDEX_VROCP4ALK = 152 INTEGER :: INDEX_VROCP4ALKP = 153 INTEGER :: INDEX_VROCP3ALK = 154 INTEGER :: INDEX_VROCP3ALKP = 155 INTEGER :: INDEX_VROCP2ALK = 156 INTEGER :: INDEX_VROCP2ALKP = 157 INTEGER :: INDEX_VROCP1ALK = 158 INTEGER :: INDEX_VROCP1ALKP = 159 INTEGER :: INDEX_HC10 = 160 INTEGER :: INDEX_VROCP6ALKP2 = 161 INTEGER :: INDEX_VROCP5ALKP2 = 162 INTEGER :: INDEX_VROCP4ALKP2 = 163 INTEGER :: INDEX_VROCP2OXY2 = 164 INTEGER :: INDEX_VROCP3ALKP2 = 165 INTEGER :: INDEX_VROCP1OXY1 = 166 INTEGER :: INDEX_VROCP2ALKP2 = 167 INTEGER :: INDEX_VROCP1ALKP2 = 168 INTEGER :: INDEX_VROCN1OXY1 = 169 INTEGER :: INDEX_HC10P2 = 170 INTEGER :: INDEX_VROCP6ARO = 171 INTEGER :: INDEX_VROCP6AROP = 172 INTEGER :: INDEX_VROCN2OXY4 = 173 INTEGER :: INDEX_VROCN1OXY3 = 174 INTEGER :: INDEX_VROCP5ARO = 175 INTEGER :: INDEX_VROCP5AROP = 176 INTEGER :: INDEX_NAPH = 177 INTEGER :: INDEX_NAPHP = 178 INTEGER :: INDEX_VROCN2OXY8 = 179 INTEGER :: INDEX_VROCP5OXY1 = 180 INTEGER :: INDEX_VROCP6OXY1 = 181 INTEGER, PARAMETER :: N_ACT_SP = 181 INTEGER, PARAMETER :: NRXNS = 516 INTEGER, PARAMETER :: ONE_REACT_REACTIONS = 0 INTEGER, PARAMETER :: TWO_REACT_REACTIONS = 0 INTEGER, PARAMETER :: THREE_REACT_REACTIONS = 0 INTEGER, PARAMETER :: ZERO_REACT_REACTIONS = 0 LOGICAL, PARAMETER :: UNITARY_REACTIONS = .FALSE. INTEGER, PARAMETER :: ONE_REACT_START = 0 INTEGER, PARAMETER :: ONE_REACT_STOP = -1 LOGICAL, PARAMETER :: BINARY_REACTIONS = .FALSE. INTEGER, PARAMETER :: TWO_REACT_START = 0 INTEGER, PARAMETER :: TWO_REACT_STOP = -1 LOGICAL, PARAMETER :: TERNARY_REACTIONS = .FALSE. INTEGER, PARAMETER :: THREE_REACT_START = 0 INTEGER, PARAMETER :: THREE_REACT_STOP = -1 LOGICAL, PARAMETER :: NULL_REACTIONS = .FALSE. INTEGER, PARAMETER :: ZERO_REACT_START = 0 INTEGER, PARAMETER :: ZERO_REACT_STOP = -1 INTEGER, PARAMETER :: NSUNLIGHT_RXNS = 41 INTEGER, PARAMETER :: NTHERMAL_RXNS = 475 INTEGER, PARAMETER :: KUNITS = 2 INTEGER :: IRXXN INTEGER, PARAMETER :: NMPHOT = 40 INTEGER :: IPH( NMPHOT,3 ) DATA ( IPH( IRXXN,1 ), IRXXN = 1, NMPHOT ) / & & 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, & & 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, & & 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, & & 31, 32, 33, 34, 35, 36, 37, 38, 99, 394/ DATA ( IPH( IRXXN,2 ), IRXXN = 1, NMPHOT ) / & & 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, & & 11, 12, 13, 14, 15, 16, 13, 13, 17, 18, & & 19, 20, 21, 22, 23, 24, 25, 25, 25, 26, & & 27, 27, 27, 27, 28, 29, 30, 31, 32, 33/ DATA ( IPH( IRXXN,3 ), IRXXN = 1, NMPHOT ) / & & 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, & & 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, & & 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, & & 31, 32, 33, 34, 35, 36, 37, 38, 39, 40/ REAL( 8 ) :: RTDAT( 3,NRXNS ) INTEGER, PARAMETER :: NFALLOFF = 17 REAL( 8 ) :: RFDAT( 5,NFALLOFF ) INTEGER :: KTYPE( NRXNS ) DATA ( KTYPE( IRXXN ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 3, 3, & ! 3 & 3, 3, 2, 3, 3, 3, 3, 3, 3, 9, & ! 4 & 9, 3, 10, 10, 3, 9, 3, 3, 3, 10, & ! 5 & 10, 8, 1, 1, 3, 3, 3, 10, 5, 1, & ! 6 & 10, 5, 3, 10, 9, 3, 3, 3, 3, 10, & ! 7 & 3, 3, 10, 3, 3, 1, 1, 3, 3, 3, & ! 8 & 3, 3, 3, 3, 3, 3, 3, 3, 0, 1, & ! 9 & 1, 1, 1, 3, 3, 3, 1, 3, 3, 3, & ! O & 4, 3, 3, 1, 3, 3, 3, 1, 3, 3, & ! 1 & 3, 1, 3, 3, 3, 3, 3, 3, 3, 1, & ! 2 & 3, 3, 3, 3, 1, 1, 3, 3, 1, 1, & ! 3 & 1, 3, 1, 3, 3, 3, 3, 3, 1, 1, & ! 4 & 3, 3, 1, 1, 1, 1, 1, 4, 3, 3, & ! 5 & 3, 1, 3, 3, 3, 3, 1, 3, 3, 3, & ! 6 & 1, 1, 1, 3, 1, 1, 10, 5, 10, 5, & ! 7 & 3, 3, 3, 3, 1, 1, 1, 1, 1, 3, & ! 8 & 3, 3, 3, 1, 1, 1, 1, 1, 1, 1, & ! 9 & 1, 3, 3, 3, 3, 3, 1, 1, 3, 3, & ! O & 3, 3, 1, 1, 3, 3, 1, 1, 1, 3, & ! 1 & 1, 1, 1, 1, 3, 3, 3, 3, 3, 3, & ! 2 & 3, 3, 3, 3, 3, 1, 1, 1, 1, 1, & ! 3 & 1, 1, 1, 3, 3, 3, 3, 3, 3, 3, & ! 4 & 3, 3, 3, 3, 3, 1, 3, 3, 3, 3, & ! 5 & 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, & ! 6 & 3, 3, 3, 3, 3, 1, 3, 1, 3, 1, & ! 7 & 3, 1, 3, 3, 3, 3, 3, 3, 3, 1, & ! 8 & 3, 3, 3, 3, 3, 3, 3, 3, 1, 3, & ! 9 & 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, & ! O & 3, 3, 1, 3, 1, 3, 1, 3, 1, 3, & ! 1 & 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, & ! 2 & 3, 3, 3, 3, 3, 3, 3, 3, 1, 1, & ! 3 & 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, & ! 4 & 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, & ! 5 & 1, 1, 1, 1, 1, 1, 1, 1, 1, 3, & ! 6 & 3, 3, 1, 3, 3, 1, 1, 1, 1, 1, & ! 7 & 1, 1, 1, 1, 1, 1, 1, 3, 1, 1, & ! 8 & 3, 1, 1, 0, 3, 1, 1, 1, 1, 1, & ! 9 & 3, 1, 1, 3, 3, 1, 1, 1, 1, 1, & ! O & 3, 3, 1, 1, 1, 3, 1, 3, -1, -1, & ! 1 & -1, -1, 12, -1, -1, -1, 1, 1, 1, 1, & ! 2 & 1, 1, 1, 3, 3, 3, 3, 3, 3, 3, & ! 3 & 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, & ! 4 & 1, 1, 1, 3, 1, 1, 1, 1, 1, 1, & ! 5 & 1, 3, 3, 3, 3, 3, 3, 3, 1, 1, & ! 6 & 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, & ! 7 & 1, 3, 1, 3, 3, 1, 3, 3, 1, 3, & ! 8 & 3, 1, 3, 3, 1, 3, 3, 1, 3, 3, & ! 9 & 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, & ! O & 1, 1, 1, 1, 1, 1/ ! 1 INTEGER :: IRXBITS( NRXNS ) DATA ( IRXBITS( IRXXN ), IRXXN = 1, NRXNS ) / & & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! O & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 1 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 2 & 2, 2, 2, 2, 2, 2, 2, 2, 0, 0, & ! 3 & 0, 0, 20, 0, 16, 32, 8, 128, 0, 0, & ! 4 & 8, 0, 1, 1, 0, 0, 16, 0, 0, 1, & ! 5 & 1, 0, 0, 0, 0, 0, 0, 1, 0, 8, & ! 6 & 1, 0, 0, 1, 0, 64, 0, 0, 0, 1, & ! 7 & 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 2, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 1, 0, 1, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, & ! 1 & 1, 1, 2, 1, 1, 1, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0/ ! 1 INTEGER, PARAMETER :: NTERMS_JACOB = 32761 INTEGER, PARAMETER :: NSTEPS_JACOB = 1032 INTEGER :: IORDER( NRXNS ) DATA ( IORDER( IRXXN ), IRXXN = 1, NRXNS ) / & & 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, & ! O & 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, & ! 1 & 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, & ! 2 & 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, & ! 3 & 2, 2, 3, 2, 2, 2, 2, 2, 2, 2, & ! 4 & 3, 2, 2, 2, 2, 2, 3, 2, 2, 2, & ! 5 & 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, & ! 6 & 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, & ! 7 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 8 & 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, & ! 9 & 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, & ! O & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 1 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 2 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 3 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 4 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 5 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 6 & 2, 2, 2, 2, 1, 1, 2, 1, 2, 1, & ! 7 & 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, & ! 8 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 9 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! O & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 1 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 2 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 3 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 4 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 5 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 6 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 7 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 8 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 9 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! O & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 1 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 2 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 3 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 4 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 5 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 6 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 7 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 8 & 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, & ! 9 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! O & 2, 2, 2, 2, 2, 2, 2, 2, 1, 1, & ! 1 & 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, & ! 2 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 3 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 4 & 2, 2, 2, 2, 1, 1, 1, 1, 1, 1, & ! 5 & 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 6 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 7 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 8 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 9 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! O & 2, 2, 2, 2, 2, 2/ ! 1 INTEGER, PARAMETER :: KTN1 = 203 INTEGER :: KRX1( KTN1 ) DATA ( KRX1( IRXXN ), IRXXN = 1, KTN1 ) / & & 63, 64, 70, 86, 87, 100, 101, 102, 103, 107, & ! O & 114, 118, 122, 130, 135, 136, 139, 140, 141, 143, & ! 1 & 149, 150, 153, 154, 155, 156, 157, 162, 167, 171, & ! 2 & 172, 173, 175, 176, 185, 186, 187, 188, 189, 194, & ! 3 & 195, 196, 197, 198, 199, 200, 201, 207, 208, 213, & ! 4 & 214, 217, 218, 219, 221, 222, 223, 224, 236, 237, & ! 5 & 238, 239, 240, 241, 242, 243, 256, 276, 278, 280, & ! 6 & 282, 290, 299, 313, 315, 317, 319, 339, 340, 341, & ! 7 & 342, 343, 344, 345, 346, 347, 348, 349, 350, 351, & ! 8 & 352, 353, 354, 355, 356, 357, 358, 359, 360, 361, & ! 9 & 362, 363, 364, 365, 366, 367, 368, 369, 373, 376, & ! O & 377, 378, 379, 380, 381, 382, 383, 384, 385, 386, & ! 1 & 387, 389, 390, 392, 393, 396, 397, 398, 399, 400, & ! 2 & 402, 403, 406, 407, 408, 409, 410, 413, 414, 415, & ! 3 & 417, 427, 428, 429, 430, 431, 432, 433, 441, 442, & ! 4 & 443, 444, 445, 446, 447, 448, 449, 450, 451, 452, & ! 5 & 453, 455, 456, 457, 458, 459, 460, 461, 469, 470, & ! 6 & 471, 472, 473, 474, 475, 476, 477, 478, 479, 480, & ! 7 & 481, 483, 486, 489, 492, 495, 498, 501, 502, 503, & ! 8 & 504, 505, 506, 507, 508, 509, 510, 511, 512, 513, & ! 9 & 514, 515, 516/ ! O INTEGER, PARAMETER :: KTN2 = 1 INTEGER :: KRX2( KTN2 ) DATA ( KRX2( IRXXN ), IRXXN = 1, KTN2 ) / & & 43/ INTEGER, PARAMETER :: KTN3 = 242 INTEGER :: KRX3( KTN3 ) DATA ( KRX3( IRXXN ), IRXXN = 1, KTN3 ) / & & 39, 40, 41, 42, 44, 45, 46, 47, 48, 49, & ! O & 52, 55, 57, 58, 59, 65, 66, 67, 73, 76, & ! 1 & 77, 78, 79, 81, 82, 84, 85, 88, 89, 90, & ! 2 & 91, 92, 93, 94, 95, 96, 97, 98, 104, 105, & ! 3 & 106, 108, 109, 110, 112, 113, 115, 116, 117, 119, & ! 4 & 120, 121, 123, 124, 125, 126, 127, 128, 129, 131, & ! 5 & 132, 133, 134, 137, 138, 142, 144, 145, 146, 147, & ! 6 & 148, 151, 152, 159, 160, 161, 163, 164, 165, 166, & ! 7 & 168, 169, 170, 174, 181, 182, 183, 184, 190, 191, & ! 8 & 192, 193, 202, 203, 204, 205, 206, 209, 210, 211, & ! 9 & 212, 215, 216, 220, 225, 226, 227, 228, 229, 230, & ! O & 231, 232, 233, 234, 235, 244, 245, 246, 247, 248, & ! 1 & 249, 250, 251, 252, 253, 254, 255, 257, 258, 259, & ! 2 & 260, 261, 262, 263, 264, 265, 266, 267, 268, 269, & ! 3 & 270, 271, 272, 273, 274, 275, 277, 279, 281, 283, & ! 4 & 284, 285, 286, 287, 288, 289, 291, 292, 293, 294, & ! 5 & 295, 296, 297, 298, 300, 301, 302, 303, 304, 305, & ! 6 & 306, 307, 308, 309, 310, 311, 312, 314, 316, 318, & ! 7 & 320, 321, 322, 323, 324, 325, 326, 327, 328, 329, & ! 8 & 330, 331, 332, 333, 334, 335, 336, 337, 338, 370, & ! 9 & 371, 372, 374, 375, 388, 391, 395, 401, 404, 405, & ! O & 411, 412, 416, 418, 434, 435, 436, 437, 438, 439, & ! 1 & 440, 454, 462, 463, 464, 465, 466, 467, 468, 482, & ! 2 & 484, 485, 487, 488, 490, 491, 493, 494, 496, 497, & ! 3 & 499, 500/ ! 4 INTEGER, PARAMETER :: KTN4 = 2 INTEGER :: KRX4( KTN4 ) DATA ( KRX4( IRXXN ), IRXXN = 1, KTN4 ) / & & 111, 158/ INTEGER, PARAMETER :: KTN5 = 4 INTEGER :: KRX5( KTN5 ) DATA ( KRX5( IRXXN ), IRXXN = 1, KTN5 ) / & & 69, 72, 178, 180/ INTEGER, PARAMETER :: KTN6 = 0 INTEGER :: KRX6( 1 ) DATA KRX6( 1 ) / 0 / INTEGER, PARAMETER :: KTN7 = 0 INTEGER :: KRX7( 1 ) DATA KRX7( 1 ) / 0 / INTEGER, PARAMETER :: NWM = 1 INTEGER :: NRXWM( NWM ) DATA ( NRXWM( IRXXN ), IRXXN = 1, NWM ) / & & 43/ REAL( 8 ), PARAMETER :: ATM_AIR = 1.00000D+06 INTEGER, PARAMETER :: NWW = 3 INTEGER :: NRXWW( NWW ) DATA ( NRXWW( IRXXN ), IRXXN = 1, NWW ) / & & 47, 51, 70/ INTEGER, PARAMETER :: NWO2 = 3 INTEGER :: NRXWO2( NWO2 ) DATA ( NRXWO2( IRXXN ), IRXXN = 1, NWO2 ) / & & 43, 45, 57/ REAL( 8 ), PARAMETER :: ATM_O2 = 2.09500D+05 INTEGER, PARAMETER :: NWN2 = 1 INTEGER :: NRXWN2( NWN2 ) DATA ( NRXWN2( IRXXN ), IRXXN = 1, NWN2 ) / & & 46/ REAL( 8 ), PARAMETER :: ATM_N2 = 7.80800D+05 INTEGER, PARAMETER :: NWCH4 = 1 INTEGER :: NRXWCH4( NWCH4 ) DATA ( NRXWCH4( IRXXN ), IRXXN = 1, NWCH4 ) / & & 76/ REAL( 8 ), PARAMETER :: ATM_CH4 = 1.85000D+00 INTEGER, PARAMETER :: NWH2 = 1 INTEGER :: NRXWH2( NWH2 ) DATA ( NRXWH2( IRXXN ), IRXXN = 1, NWH2 ) / & & 48/ REAL( 8 ), PARAMETER :: ATM_H2 = 5.60000D-01 INTEGER, PARAMETER :: MXPRD = 28 INTEGER :: IRR( NRXNS,MXPRD+3 ) DATA ( IRR( IRXXN, 1 ), IRXXN = 1, NRXNS ) / & & 1, 1, 4, 6, 8, 8, 9, 10, 11, 13, & ! O & 13, 15, 17, 19, 19, 21, 23, 25, 26, 22, & ! 1 & 27, 28, 31, 32, 32, 32, 33, 34, 35, 36, & ! 2 & 38, 39, 40, 41, 42, 43, 44, 44, 1, 1, & ! 3 & 1, 1, 2, 2, 3, 3, 3, 5, 5, 12, & ! 4 & 12, 4, 7, 7, 7, 7, 7, 9, 6, 6, & ! 5 & 6, 10, 8, 8, 8, 8, 8, 8, 45, 45, & ! 6 & 6, 11, 11, 46, 14, 5, 49, 50, 53, 55, & ! 7 & 57, 59, 61, 63, 66, 69, 71, 73, 73, 73, & ! 8 & 76, 76, 77, 74, 74, 79, 78, 77, 77, 81, & ! 9 & 75, 75, 78, 83, 86, 23, 25, 13, 15, 17, & ! O & 19, 26, 22, 27, 28, 31, 21, 32, 33, 34, & ! 1 & 35, 98, 36, 65, 68, 101, 103, 104, 82, 105, & ! 2 & 38, 39, 40, 41, 106, 62, 107, 42, 44, 109, & ! 3 & 110, 43, 111, 55, 57, 59, 83, 86, 25, 111, & ! 4 & 28, 31, 21, 34, 35, 98, 102, 55, 57, 59, & ! 5 & 83, 86, 111, 13, 15, 17, 28, 21, 32, 33, & ! 6 & 65, 68, 101, 110, 89, 91, 20, 44, 90, 109, & ! 7 & 29, 110, 16, 18, 51, 54, 56, 58, 60, 64, & ! 8 & 67, 70, 72, 84, 85, 116, 117, 87, 88, 118, & ! 9 & 119, 89, 91, 20, 90, 92, 93, 94, 29, 95, & ! O & 96, 97, 99, 126, 100, 113, 108, 114, 115, 120, & ! 1 & 30, 127, 37, 102, 16, 18, 51, 54, 56, 58, & ! 2 & 60, 64, 67, 70, 72, 84, 85, 116, 117, 87, & ! 3 & 88, 118, 119, 89, 91, 20, 90, 92, 93, 94, & ! 4 & 29, 95, 96, 97, 100, 37, 113, 108, 114, 115, & ! 5 & 120, 30, 16, 18, 51, 54, 56, 58, 60, 64, & ! 6 & 67, 70, 72, 76, 84, 85, 116, 117, 87, 88, & ! 7 & 118, 119, 20, 90, 92, 93, 94, 29, 95, 96, & ! 8 & 97, 99, 126, 100, 113, 108, 114, 115, 120, 30, & ! 9 & 18, 51, 54, 56, 58, 60, 64, 67, 70, 72, & ! O & 76, 84, 85, 116, 117, 87, 88, 118, 119, 20, & ! 1 & 90, 92, 93, 94, 29, 95, 96, 97, 99, 126, & ! 2 & 100, 113, 108, 114, 115, 120, 30, 90, 16, 18, & ! 3 & 51, 54, 56, 58, 60, 64, 67, 70, 72, 76, & ! 4 & 84, 87, 20, 90, 92, 93, 94, 29, 95, 96, & ! 5 & 97, 99, 126, 100, 113, 108, 114, 115, 120, 114, & ! 6 & 114, 115, 30, 30, 30, 85, 85, 85, 88, 88, & ! 7 & 88, 117, 117, 117, 119, 119, 119, 80, 129, 130, & ! 8 & 131, 131, 131, 131, 132, 133, 133, 133, 133, 133, & ! 9 & 132, 132, 134, 135, 135, 123, 134, 134, 136, 137, & ! O & 138, 138, 138, 137, 137, 140, 140, 140, 32, 33, & ! 1 & 45, 6, 1, 80, 144, 144, 148, 150, 152, 154, & ! 2 & 156, 158, 160, 149, 151, 153, 155, 157, 159, 24, & ! 3 & 149, 151, 153, 155, 157, 159, 24, 149, 151, 153, & ! 4 & 155, 157, 159, 24, 161, 162, 163, 165, 167, 168, & ! 5 & 170, 161, 162, 163, 165, 167, 168, 170, 161, 162, & ! 6 & 163, 165, 167, 168, 170, 161, 162, 163, 165, 167, & ! 7 & 168, 170, 171, 172, 172, 172, 172, 172, 175, 176, & ! 8 & 176, 176, 176, 176, 177, 178, 178, 178, 178, 178, & ! 9 & 179, 173, 139, 122, 174, 169, 125, 141, 142, 166, & ! O & 164, 124, 121, 180, 181, 41/ ! 1 DATA ( IRR( IRXXN, 2 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 5, 12, & ! 3 & 7, 6, 0, 1, 0, 0, 0, 0, 12, 12, & ! 4 & 12, 5, 2, 5, 12, 12, 7, 5, 2, 2, & ! 5 & 5, 5, 5, 12, 7, 6, 8, 6, 0, 0, & ! 6 & 12, 0, 5, 5, 5, 0, 5, 5, 5, 5, & ! 7 & 5, 5, 5, 5, 5, 5, 5, 1, 8, 5, & ! 8 & 12, 7, 5, 12, 7, 12, 5, 5, 0, 7, & ! 9 & 5, 8, 0, 5, 5, 5, 5, 5, 5, 5, & ! O & 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, & ! 1 & 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, & ! 2 & 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, & ! 3 & 5, 5, 5, 1, 1, 1, 1, 1, 1, 1, & ! 4 & 1, 1, 1, 1, 1, 1, 1, 8, 8, 8, & ! 5 & 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, & ! 6 & 8, 8, 8, 8, 0, 0, 6, 0, 6, 0, & ! 7 & 6, 0, 7, 7, 7, 7, 7, 7, 7, 7, & ! 8 & 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, & ! 9 & 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, & ! O & 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, & ! 1 & 7, 6, 6, 6, 12, 12, 12, 12, 12, 12, & ! 2 & 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, & ! 3 & 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, & ! 4 & 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, & ! 5 & 12, 12, 16, 16, 16, 16, 16, 16, 16, 16, & ! 6 & 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, & ! 7 & 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, & ! 8 & 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, & ! 9 & 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, & ! O & 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, & ! 1 & 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, & ! 2 & 20, 20, 20, 20, 20, 20, 20, 90, 8, 8, & ! 3 & 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, & ! 4 & 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, & ! 5 & 8, 8, 8, 8, 8, 8, 8, 8, 8, 114, & ! 6 & 115, 115, 8, 90, 30, 84, 87, 76, 84, 87, & ! 7 & 76, 84, 87, 76, 84, 87, 76, 5, 5, 5, & ! 8 & 5, 1, 8, 0, 5, 7, 8, 12, 16, 20, & ! 9 & 1, 8, 5, 7, 12, 5, 1, 8, 5, 8, & ! O & 12, 7, 8, 1, 5, 12, 8, 7, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 146, 5, 5, 5, 5, & ! 2 & 5, 5, 5, 7, 7, 7, 7, 7, 7, 7, & ! 3 & 8, 8, 8, 8, 8, 8, 8, 12, 12, 12, & ! 4 & 12, 12, 12, 12, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 7, 7, 7, 7, 7, 7, 7, 8, 8, & ! 6 & 8, 8, 8, 8, 8, 12, 12, 12, 12, 12, & ! 7 & 12, 12, 5, 12, 7, 8, 16, 20, 5, 12, & ! 8 & 7, 8, 16, 20, 5, 12, 7, 8, 16, 20, & ! 9 & 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, & ! O & 5, 5, 5, 5, 5, 5/ ! 1 DATA ( IRR( IRXXN, 3 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0/ ! 1 DATA ( IRR( IRXXN, 4 ), IRXXN = 1, NRXNS ) / & & 2, 3, 5, 2, 7, 2, 5, 5, 5, 14, & ! O & 12, 12, 12, 16, 16, 12, 12, 12, 16, 18, & ! 1 & 12, 5, 16, 14, 13, 12, 12, 12, 12, 37, & ! 2 & 5, 5, 5, 5, 5, 12, 20, 16, 12, 5, & ! 3 & 6, 8, 1, 0, 2, 2, 5, 12, 0, 4, & ! 4 & 4, 12, 6, 9, 6, 10, 6, 6, 7, 8, & ! 5 & 10, 8, 12, 5, 6, 7, 6, 45, 6, 10, & ! 6 & 11, 12, 6, 12, 12, 16, 18, 51, 54, 56, & ! 7 & 58, 60, 5, 64, 67, 70, 72, 28, 74, 76, & ! 8 & 77, 78, 76, 79, 13, 6, 75, 13, 13, 6, & ! 9 & 14, 14, 10, 84, 87, 89, 91, 12, 20, 90, & ! O & 92, 93, 94, 12, 29, 96, 20, 12, 20, 12, & ! 1 & 12, 12, 99, 52, 52, 102, 12, 12, 12, 12, & ! 2 & 5, 5, 5, 5, 29, 12, 16, 5, 30, 30, & ! 3 & 6, 51, 112, 5, 5, 5, 5, 5, 5, 112, & ! 4 & 5, 5, 5, 5, 5, 5, 113, 114, 114, 114, & ! 5 & 116, 118, 112, 12, 20, 90, 13, 12, 12, 20, & ! 6 & 52, 52, 102, 29, 112, 112, 44, 20, 109, 90, & ! 7 & 110, 29, 12, 12, 12, 12, 12, 12, 12, 43, & ! 8 & 43, 43, 43, 12, 5, 6, 6, 12, 5, 6, & ! 9 & 6, 12, 12, 16, 18, 20, 12, 12, 16, 6, & ! O & 12, 12, 126, 127, 12, 102, 6, 6, 6, 6, & ! 1 & 6, 43, 43, 43, 38, 39, 39, 39, 39, 39, & ! 2 & 39, 39, 39, 39, 39, 40, 112, 111, 112, 40, & ! 3 & 112, 111, 112, 40, 40, 5, 5, 5, 39, 39, & ! 4 & 106, 106, 39, 39, 39, 68, 39, 39, 43, 43, & ! 5 & 39, 39, 12, 12, 12, 12, 12, 12, 12, 13, & ! 6 & 13, 13, 13, 12, 12, 12, 12, 12, 12, 12, & ! 7 & 12, 12, 12, 12, 12, 12, 12, 12, 6, 12, & ! 8 & 12, 12, 12, 12, 12, 13, 12, 12, 12, 12, & ! 9 & 12, 12, 12, 12, 12, 12, 16, 16, 16, 16, & ! O & 12, 12, 5, 6, 6, 12, 5, 6, 16, 16, & ! 1 & 16, 16, 12, 12, 107, 6, 12, 12, 16, 16, & ! 2 & 12, 12, 16, 12, 16, 12, 16, 18, 12, 12, & ! 3 & 12, 12, 12, 17, 12, 6, 6, 6, 6, 12, & ! 4 & 12, 12, 16, 18, 20, 12, 12, 13, 6, 12, & ! 5 & 12, 126, 127, 12, 6, 6, 12, 6, 6, 12, & ! 6 & 12, 6, 6, 18, 0, 112, 112, 112, 112, 112, & ! 7 & 112, 112, 112, 112, 112, 112, 112, 5, 18, 18, & ! 8 & 29, 14, 13, 14, 133, 12, 12, 39, 103, 16, & ! 9 & 131, 114, 34, 43, 39, 22, 5, 6, 27, 138, & ! O & 125, 124, 124, 124, 140, 141, 124, 142, 143, 143, & ! 1 & 10, 9, 0, 144, 145, 147, 149, 151, 153, 155, & ! 2 & 157, 159, 24, 161, 162, 163, 165, 167, 168, 170, & ! 3 & 161, 162, 163, 165, 167, 168, 170, 124, 164, 166, & ! 4 & 141, 169, 139, 39, 12, 12, 12, 12, 12, 12, & ! 5 & 12, 164, 142, 141, 169, 139, 139, 43, 6, 6, & ! 6 & 6, 6, 6, 6, 6, 142, 141, 169, 139, 139, & ! 7 & 139, 164, 172, 121, 121, 6, 13, 16, 176, 124, & ! 8 & 124, 6, 13, 16, 178, 124, 121, 6, 13, 16, & ! 9 & 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, & ! O & 5, 5, 5, 5, 5, 5/ ! 1 DATA ( IRR( IRXXN, 5 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 7, 0, 6, 7, 6, 12, 0, & ! O & 14, 16, 18, 20, 14, 20, 24, 24, 18, 20, & ! 1 & 20, 12, 29, 0, 14, 14, 20, 20, 20, 12, & ! 2 & 12, 12, 12, 12, 16, 6, 6, 8, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 5, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 6, 6, 0, 6, 0, 0, 8, 0, & ! 6 & 0, 6, 0, 47, 0, 0, 0, 52, 52, 0, & ! 7 & 0, 0, 12, 65, 68, 68, 68, 31, 13, 16, & ! 8 & 12, 13, 0, 5, 33, 12, 5, 33, 33, 7, & ! 9 & 6, 0, 82, 85, 88, 90, 90, 14, 0, 0, & ! O & 0, 0, 0, 33, 95, 0, 97, 14, 14, 14, & ! 1 & 14, 29, 0, 12, 12, 0, 13, 15, 17, 17, & ! 2 & 16, 51, 24, 24, 0, 0, 108, 20, 8, 8, & ! 3 & 27, 6, 0, 12, 12, 12, 84, 87, 24, 0, & ! 4 & 12, 12, 12, 12, 12, 12, 0, 115, 115, 115, & ! 5 & 117, 119, 0, 14, 10, 10, 29, 30, 14, 14, & ! 6 & 37, 37, 10, 6, 0, 0, 0, 6, 0, 6, & ! 7 & 0, 6, 6, 6, 16, 16, 6, 6, 6, 121, & ! 8 & 121, 124, 124, 6, 6, 23, 5, 6, 6, 25, & ! 9 & 5, 6, 6, 6, 6, 6, 6, 20, 20, 12, & ! O & 20, 6, 6, 6, 6, 6, 32, 12, 13, 32, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 122, 122, 41, 41, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 16, 18, 20, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 13, 13, 16, 16, 13, 13, 13, 12, & ! 6 & 12, 12, 12, 13, 13, 13, 6, 6, 13, 13, & ! 7 & 13, 13, 16, 16, 20, 13, 13, 20, 12, 20, & ! 8 & 14, 126, 127, 13, 102, 12, 13, 6, 6, 13, & ! 9 & 16, 16, 16, 16, 16, 16, 12, 12, 12, 12, & ! O & 16, 16, 16, 111, 16, 16, 16, 25, 6, 0, & ! 1 & 18, 20, 16, 16, 16, 12, 16, 16, 126, 127, & ! 2 & 16, 16, 32, 16, 6, 16, 0, 0, 13, 6, & ! 3 & 16, 16, 6, 13, 17, 12, 12, 12, 12, 6, & ! 4 & 6, 6, 6, 6, 6, 6, 6, 20, 12, 20, & ! 5 & 6, 6, 6, 6, 102, 32, 6, 13, 32, 43, & ! 6 & 6, 13, 0, 0, 0, 82, 82, 82, 82, 82, & ! 7 & 82, 82, 82, 82, 82, 82, 82, 0, 52, 52, & ! 8 & 95, 12, 29, 12, 21, 6, 6, 0, 13, 107, & ! 9 & 14, 115, 12, 6, 123, 32, 17, 34, 17, 0, & ! O & 0, 6, 6, 139, 0, 0, 0, 124, 0, 0, & ! 1 & 0, 10, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 121, 124, 164, 166, 141, 169, 43, & ! 3 & 6, 6, 6, 6, 6, 6, 6, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 124, 164, 166, 141, 169, 139, & ! 5 & 121, 6, 6, 6, 6, 6, 6, 6, 124, 164, & ! 6 & 166, 141, 169, 139, 22, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 12, 142, 164, 12, 12, 12, 12, 141, & ! 8 & 142, 12, 12, 12, 12, 142, 164, 12, 12, 12, & ! 9 & 179, 179, 179, 179, 179, 179, 179, 179, 179, 179, & ! O & 179, 179, 179, 173, 122, 179/ ! 1 DATA ( IRR( IRXXN, 6 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 6, 0, & ! O & 0, 14, 14, 0, 0, 14, 14, 14, 20, 14, & ! 1 & 13, 20, 14, 0, 0, 0, 14, 30, 30, 14, & ! 2 & 13, 17, 17, 17, 0, 17, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 10, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 48, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 14, 12, 12, 12, 12, 13, 6, 0, & ! 8 & 13, 31, 0, 0, 31, 13, 80, 28, 20, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 17, & ! 1 & 26, 14, 0, 100, 100, 0, 0, 0, 15, 0, & ! 2 & 13, 30, 30, 30, 0, 0, 0, 30, 13, 13, & ! 3 & 0, 0, 0, 14, 16, 16, 85, 88, 13, 0, & ! 4 & 20, 20, 16, 90, 90, 14, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 10, 0, 0, 30, 14, 10, 10, & ! 6 & 100, 100, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 13, 15, 18, 18, 13, 13, 15, 122, & ! 8 & 122, 125, 125, 23, 112, 0, 112, 25, 112, 0, & ! 9 & 112, 111, 111, 0, 0, 13, 13, 30, 6, 13, & ! O & 30, 14, 0, 0, 27, 0, 12, 43, 17, 39, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 125, 125, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 107, 107, 13, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 103, 15, 18, 18, 17, 17, 17, 103, & ! 6 & 103, 103, 103, 28, 23, 103, 13, 103, 25, 103, & ! 7 & 25, 6, 13, 13, 13, 34, 34, 14, 13, 30, & ! 8 & 13, 13, 13, 27, 13, 32, 43, 13, 13, 0, & ! 9 & 15, 18, 18, 13, 13, 17, 107, 107, 107, 107, & ! O & 13, 23, 107, 23, 107, 25, 107, 111, 107, 0, & ! 1 & 0, 13, 13, 34, 20, 13, 20, 14, 0, 0, & ! 2 & 27, 102, 0, 43, 13, 6, 0, 0, 6, 15, & ! 3 & 30, 18, 13, 12, 22, 36, 36, 36, 36, 13, & ! 4 & 17, 59, 0, 0, 13, 13, 34, 14, 13, 30, & ! 5 & 14, 0, 0, 27, 0, 12, 43, 17, 39, 0, & ! 6 & 13, 17, 0, 0, 0, 23, 25, 13, 23, 25, & ! 7 & 13, 23, 25, 13, 23, 25, 13, 0, 0, 0, & ! 8 & 0, 5, 30, 55, 12, 131, 131, 0, 12, 12, & ! 9 & 12, 131, 135, 123, 5, 12, 0, 98, 12, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 6, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 6, 6, 6, 6, 6, 6, 6, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 124, 164, 166, 141, 169, 12, 22, 12, 12, & ! 6 & 12, 12, 12, 12, 12, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 121, 173, 174, 36, 103, 107, 124, 173, & ! 8 & 173, 121, 103, 107, 124, 179, 179, 121, 103, 107, & ! 9 & 34, 173, 173, 173, 173, 173, 173, 173, 173, 173, & ! O & 173, 173, 173, 139, 174, 173/ ! 1 DATA ( IRR( IRXXN, 7 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 8, 0, & ! O & 0, 0, 0, 0, 0, 13, 0, 0, 14, 0, & ! 1 & 0, 29, 21, 0, 0, 0, 0, 14, 14, 0, & ! 2 & 0, 0, 0, 0, 0, 22, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 32, 0, 0, 0, 0, 5, 75, 0, & ! 8 & 0, 12, 0, 0, 6, 32, 0, 32, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 22, & ! 1 & 32, 32, 0, 37, 37, 0, 0, 0, 0, 0, & ! 2 & 0, 17, 17, 17, 0, 0, 0, 13, 0, 0, & ! 3 & 0, 0, 0, 13, 18, 18, 23, 25, 22, 0, & ! 4 & 14, 30, 20, 30, 30, 32, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 33, 13, 0, 0, & ! 6 & 120, 120, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 30, 30, 17, 15, 17, 6, & ! 8 & 6, 6, 6, 111, 0, 0, 0, 13, 0, 0, & ! 9 & 0, 13, 13, 0, 0, 0, 34, 6, 14, 27, & ! O & 6, 13, 0, 0, 32, 0, 0, 0, 22, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 42, 42, 39, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 103, 30, 30, 103, 22, 22, 36, & ! 6 & 36, 36, 36, 31, 22, 112, 23, 13, 22, 112, & ! 7 & 6, 103, 107, 107, 103, 103, 103, 13, 27, 13, & ! 8 & 17, 0, 0, 32, 0, 0, 0, 17, 32, 0, & ! 9 & 107, 30, 30, 17, 17, 22, 36, 36, 36, 36, & ! O & 28, 107, 112, 16, 112, 22, 112, 16, 112, 0, & ! 1 & 0, 107, 34, 107, 14, 27, 30, 13, 0, 0, & ! 2 & 32, 0, 0, 0, 17, 32, 0, 0, 0, 0, & ! 3 & 18, 30, 17, 6, 6, 32, 32, 32, 32, 28, & ! 4 & 22, 13, 0, 0, 0, 34, 0, 6, 27, 6, & ! 5 & 13, 0, 0, 32, 0, 0, 0, 22, 0, 0, & ! 6 & 17, 22, 0, 0, 0, 5, 5, 31, 5, 5, & ! 7 & 31, 6, 6, 31, 6, 6, 31, 0, 0, 0, & ! 8 & 0, 13, 33, 20, 0, 13, 13, 0, 131, 131, & ! 9 & 5, 0, 0, 12, 12, 16, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 12, 12, 12, 12, 12, 0, 12, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 6, 32, 36, 36, 0, 0, & ! 8 & 6, 32, 121, 121, 0, 0, 6, 32, 121, 121, & ! 9 & 26, 122, 139, 34, 139, 139, 122, 139, 139, 139, & ! O & 139, 139, 122, 122, 125, 122/ ! 1 DATA ( IRR( IRXXN, 8 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 17, 0, 0, 0, 0, & ! 1 & 0, 30, 0, 0, 0, 0, 0, 32, 32, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 62, 0, 0, 0, 0, 12, 0, 0, & ! 8 & 0, 6, 0, 0, 12, 33, 0, 31, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 32, & ! 1 & 33, 33, 0, 101, 101, 0, 0, 0, 0, 0, & ! 2 & 0, 22, 22, 22, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 62, 51, 51, 4, 4, 12, 0, & ! 4 & 33, 14, 30, 14, 14, 34, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 10, 17, 0, 0, & ! 6 & 10, 10, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 6, 6, 0, 17, 19, 12, & ! 8 & 12, 12, 12, 0, 0, 0, 0, 21, 0, 0, & ! 9 & 0, 22, 22, 0, 0, 0, 0, 17, 13, 0, & ! O & 13, 17, 0, 0, 39, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 104, 13, 13, 105, 103, 103, 32, & ! 6 & 32, 32, 32, 103, 103, 0, 103, 112, 103, 0, & ! 7 & 103, 112, 0, 0, 82, 82, 82, 107, 103, 17, & ! 8 & 22, 0, 0, 39, 0, 0, 0, 22, 39, 0, & ! 9 & 0, 13, 13, 107, 22, 107, 32, 32, 32, 32, & ! O & 31, 22, 0, 107, 0, 107, 0, 107, 0, 0, & ! 1 & 0, 0, 107, 0, 13, 16, 13, 17, 0, 0, & ! 2 & 39, 0, 0, 0, 22, 39, 0, 0, 0, 0, & ! 3 & 6, 6, 0, 26, 19, 123, 33, 33, 33, 31, & ! 4 & 0, 28, 0, 0, 0, 0, 0, 0, 0, 13, & ! 5 & 17, 0, 0, 39, 0, 0, 0, 0, 0, 0, & ! 6 & 22, 43, 0, 0, 0, 12, 12, 5, 12, 12, & ! 7 & 5, 12, 12, 6, 12, 12, 6, 0, 0, 0, & ! 8 & 0, 32, 10, 5, 0, 134, 134, 0, 57, 13, & ! 9 & 13, 0, 0, 16, 16, 14, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 12, 33, 32, 32, 0, 0, & ! 8 & 12, 33, 32, 32, 0, 0, 12, 33, 32, 32, & ! 9 & 15, 174, 122, 26, 122, 122, 174, 122, 122, 122, & ! O & 122, 122, 174, 174, 142, 125/ ! 1 DATA ( IRR( IRXXN, 9 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 22, 0, 0, 0, 0, & ! 1 & 0, 14, 0, 0, 0, 0, 0, 33, 33, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 16, 0, 0, & ! 8 & 0, 28, 0, 0, 75, 28, 0, 6, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 33, & ! 1 & 39, 39, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 54, 20, 14, 14, 14, 0, & ! 4 & 62, 13, 14, 13, 13, 62, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 6, 43, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 15, 13, 0, 19, 22, 36, & ! 8 & 36, 36, 36, 0, 0, 0, 0, 111, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 33, 0, 0, & ! O & 17, 32, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 17, 17, 0, 82, 82, 123, & ! 6 & 33, 33, 33, 82, 82, 0, 111, 0, 82, 0, & ! 7 & 111, 0, 0, 0, 107, 0, 0, 16, 82, 33, & ! 8 & 32, 0, 0, 0, 0, 0, 0, 103, 43, 0, & ! 9 & 0, 17, 17, 0, 107, 0, 123, 33, 33, 33, & ! O & 107, 82, 0, 0, 0, 13, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 107, 17, 22, 0, 0, & ! 2 & 0, 0, 0, 0, 107, 43, 0, 0, 0, 0, & ! 3 & 15, 13, 0, 15, 15, 35, 123, 123, 123, 32, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 17, & ! 5 & 22, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 43, 0, 0, 0, 0, 128, 128, 12, 128, 128, & ! 7 & 12, 128, 128, 12, 128, 128, 12, 0, 0, 0, & ! 8 & 0, 0, 6, 13, 0, 43, 0, 0, 31, 31, & ! 9 & 55, 0, 0, 0, 0, 52, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 36, 123, 33, 33, 0, 0, & ! 8 & 121, 123, 33, 33, 0, 0, 32, 123, 33, 33, & ! 9 & 17, 125, 174, 22, 174, 174, 125, 174, 174, 174, & ! O & 174, 174, 125, 125, 166, 34/ ! 1 DATA ( IRR( IRXXN, 10 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 13, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 20, 0, 0, & ! 8 & 0, 32, 0, 0, 16, 31, 0, 81, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 4, 14, 0, 0, 0, 0, & ! 4 & 0, 33, 13, 32, 32, 107, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 17, 15, 0, 26, 27, 32, & ! 8 & 32, 32, 32, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 33, 22, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 22, 22, 0, 0, 0, 35, & ! 6 & 123, 123, 123, 17, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 103, 0, 103, & ! 8 & 33, 0, 0, 0, 0, 0, 0, 82, 0, 0, & ! 9 & 0, 22, 22, 0, 0, 0, 35, 123, 123, 123, & ! O & 0, 0, 0, 0, 0, 82, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 33, 32, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 17, 17, 0, 19, 27, 98, 34, 35, 35, 27, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 33, & ! 5 & 32, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 128, 0, 0, & ! 7 & 128, 0, 0, 128, 0, 0, 128, 0, 0, 0, & ! 8 & 0, 0, 0, 16, 0, 0, 0, 0, 134, 134, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 32, 35, 123, 123, 0, 0, & ! 8 & 32, 35, 123, 123, 0, 0, 33, 35, 123, 123, & ! 9 & 16, 142, 169, 15, 125, 169, 164, 169, 125, 169, & ! O & 169, 125, 142, 141, 164, 26/ ! 1 DATA ( IRR( IRXXN, 11 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 4, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 75, 0, 80, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 14, 4, 0, 0, 0, 0, & ! 4 & 0, 62, 15, 33, 33, 42, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 19, 17, 0, 43, 43, 123, & ! 8 & 33, 33, 33, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 33, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 32, 103, 0, 0, 0, 98, & ! 6 & 34, 35, 35, 32, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 82, 0, 82, & ! 8 & 103, 0, 0, 0, 0, 0, 0, 43, 0, 0, & ! 9 & 0, 32, 107, 0, 0, 0, 98, 34, 35, 35, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 107, 33, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 26, 22, 0, 0, 0, 0, 0, 0, 0, 17, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 33, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 21, 21, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 33, 0, 35, 35, 0, 0, & ! 8 & 33, 0, 35, 35, 0, 0, 123, 0, 35, 35, & ! 9 & 18, 164, 125, 17, 141, 125, 124, 125, 141, 125, & ! O & 125, 141, 166, 142, 124, 15/ ! 1 DATA ( IRR( IRXXN, 12 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 29, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 16, 0, 5, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 49, 49, 0, 0, 0, 0, & ! 4 & 0, 107, 22, 39, 34, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 26, 26, 0, 0, 0, 35, & ! 8 & 123, 123, 123, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 103, 82, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 27, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 107, & ! 8 & 82, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 107, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 107, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 19, 26, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 123, 0, 0, 0, 0, 0, & ! 8 & 123, 0, 0, 0, 0, 0, 35, 0, 0, 0, & ! 9 & 51, 124, 141, 16, 142, 141, 121, 141, 142, 141, & ! O & 141, 142, 164, 166, 121, 17/ ! 1 DATA ( IRR( IRXXN, 13 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 14, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 50, 50, 0, 0, 0, 0, & ! 4 & 0, 17, 32, 0, 39, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 43, 19, 0, 0, 0, 98, & ! 8 & 34, 35, 35, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 82, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 19, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 35, 0, 0, 0, 0, 0, & ! 8 & 35, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 93, 121, 142, 18, 166, 142, 39, 142, 164, 142, & ! O & 142, 166, 124, 164, 180, 16/ ! 1 DATA ( IRR( IRXXN, 14 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 62, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 53, 13, 0, 0, 0, 0, & ! 4 & 0, 0, 33, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 22, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 15, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 41, 166, 51, 164, 166, 34, 166, 124, 166, & ! O & 166, 164, 121, 124, 181, 18/ ! 1 DATA ( IRR( IRXXN, 15 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 57, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 63, 15, 0, 0, 0, 0, & ! 4 & 0, 0, 62, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 27, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 27, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 39, 164, 93, 124, 164, 26, 164, 121, 164, & ! O & 164, 124, 180, 121, 41, 51/ ! 1 DATA ( IRR( IRXXN, 16 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 13, 17, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 43, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 34, 124, 54, 121, 124, 22, 124, 180, 124, & ! O & 124, 121, 181, 180, 39, 93/ ! 1 DATA ( IRR( IRXXN, 17 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 15, 19, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 26, 121, 0, 180, 121, 15, 121, 41, 121, & ! O & 121, 180, 41, 181, 34, 0/ ! 1 DATA ( IRR( IRXXN, 18 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 17, 22, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 22, 180, 0, 39, 180, 17, 180, 39, 180, & ! O & 180, 181, 39, 41, 27, 0/ ! 1 DATA ( IRR( IRXXN, 19 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 19, 27, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 15, 181, 0, 34, 181, 16, 181, 34, 181, & ! O & 181, 41, 34, 39, 26, 0/ ! 1 DATA ( IRR( IRXXN, 20 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 36, 107, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 17, 41, 0, 27, 41, 18, 41, 27, 41, & ! O & 41, 39, 27, 34, 15, 0/ ! 1 DATA ( IRR( IRXXN, 21 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 26, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 16, 34, 0, 26, 39, 51, 34, 26, 39, & ! O & 39, 34, 26, 27, 17, 0/ ! 1 DATA ( IRR( IRXXN, 22 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 27, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 18, 27, 0, 15, 34, 93, 27, 15, 34, & ! O & 34, 27, 15, 26, 16, 0/ ! 1 DATA ( IRR( IRXXN, 23 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 62, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 51, 26, 0, 17, 27, 54, 26, 17, 27, & ! O & 27, 26, 17, 15, 18, 0/ ! 1 DATA ( IRR( IRXXN, 24 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 107, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 93, 15, 0, 16, 26, 94, 15, 16, 26, & ! O & 26, 15, 16, 17, 51, 0/ ! 1 DATA ( IRR( IRXXN, 25 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 54, 17, 0, 18, 15, 0, 17, 18, 15, & ! O & 15, 17, 18, 16, 93, 0/ ! 1 DATA ( IRR( IRXXN, 26 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 94, 16, 0, 51, 17, 0, 16, 51, 17, & ! O & 17, 16, 51, 18, 54, 0/ ! 1 DATA ( IRR( IRXXN, 27 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 18, 0, 93, 16, 0, 18, 93, 16, & ! O & 16, 18, 93, 51, 0, 0/ ! 1 DATA ( IRR( IRXXN, 28 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 51, 0, 54, 18, 0, 51, 54, 18, & ! O & 18, 51, 54, 93, 0, 0/ ! 1 DATA ( IRR( IRXXN, 29 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 93, 0, 0, 51, 0, 93, 0, 51, & ! O & 51, 93, 0, 54, 0, 0/ ! 1 DATA ( IRR( IRXXN, 30 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 54, 0, 0, 93, 0, 54, 0, 93, & ! O & 93, 54, 0, 0, 0, 0/ ! 1 DATA ( IRR( IRXXN, 31 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 54, 0, 0, 0, 54, & ! O & 54, 0, 0, 0, 0, 0/ ! 1 DATA ( RTDAT( 1,IRXXN ), IRXXN = 1, NRXNS ) / & & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! O & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 1 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 2 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 3 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.7000D-12, 1.0000D-14, & ! + & 3.0000D-12, 1.2000D-13, 6.1000D-34, 8.0000D-12, 3.3000D-11, & ! 4 & 2.1500D-11, 1.6300D-10, 2.8000D-12, 4.8000D-11, 3.0000D-13, & ! + & 4.2000D-34, 1.8000D-12, 9.1000D-32, 7.1000D-31, 3.4400D-12, & ! 5 & 6.0950D-14, 4.2500D-39, 3.0000D-12, 5.3000D-12, 3.4000D-31, & ! + & 1.8000D-30, 2.4000D-14, 2.0000D-11, 3.5000D-12, 1.7000D-11, & ! 6 & 4.3500D-14, 8.5000D-13, 2.4000D-30, 5.8000D-27, 1.0000D-22, & ! + & 1.9000D-31, 2.1000D-27, 4.5000D-13, 2.9000D-31, 1.4400D-13, & ! 7 & 2.4500D-12, 7.6600D-12, 7.6800D-12, 1.0100D-11, 1.0000D-28, & ! + & 5.7200D-12, 1.3300D-11, 5.5000D-30, 2.3300D-12, 1.8100D-12, & ! 8 & 2.3300D-11, 7.1600D-12, 1.5800D-14, 2.9500D-12, 2.6900D-11, & ! + & 4.5000D-13, 2.7000D-12, 4.6000D-12, 3.1400D-14, 9.4200D-16, & ! 9 & 3.4000D-11, 2.4000D-07, 2.9700D-11, 1.0000D+00, 1.0000D-10, & ! + & 5.0000D-11, 2.0000D-14, 2.3000D-05, 1.2100D-11, 4.2000D-11, & ! O & 5.2000D-12, 1.0000D-10, 5.5000D-12, 4.7000D-12, 4.9000D-12, & ! + & 4.5600D-14, 1.5000D-12, 2.8000D-12, 3.0000D-12, 8.0000D-12, & ! 1 & 2.6000D-12, 5.7700D-12, 1.1000D-11, 9.2600D-13, 2.8000D-11, & ! + & 2.8000D-11, 1.0000D-11, 5.3200D-12, 6.7500D-12, 4.6500D-11, & ! 2 & 2.0500D-10, 2.8500D-12, 3.0000D-12, 2.6000D-12, 1.4700D-11, & ! + & 2.9000D-12, 3.4000D-12, 3.4000D-12, 3.4000D-12, 3.0000D-11, & ! 3 & 4.5000D-13, 4.0000D-14, 2.9300D-12, 4.0000D-14, 4.0000D-14, & ! + & 3.2000D-11, 5.3100D-12, 4.8000D-12, 9.1400D-15, 4.3300D-15, & ! 4 & 4.4000D-15, 5.0000D-16, 2.9500D-15, 8.3000D-18, 1.6700D-16, & ! + & 1.3600D-15, 8.5000D-16, 1.6600D-18, 2.0000D-16, 2.0000D-16, & ! 5 & 9.0000D-17, 2.8600D-13, 4.3920D-13, 1.7900D-13, 8.6400D-13, & ! + & 1.1900D-12, 1.2200D-11, 3.1500D-14, 2.0000D-12, 1.4000D-12, & ! 6 & 3.7600D-12, 3.4000D-15, 5.0200D-13, 2.9000D-12, 3.7600D-12, & ! + & 3.7800D-12, 1.0600D-12, 2.0100D-10, 2.2000D-14, 1.0000D+00, & ! 7 & 1.0000D+00, 9.7000D-29, 9.0000D-29, 9.7000D-29, 9.0000D-29, & ! + & 2.8000D-12, 1.6000D+16, 2.8000D-12, 2.6000D-12, 4.0000D-12, & ! 8 & 4.0000D-12, 9.0000D-12, 4.0000D-12, 4.0000D-12, 2.7000D-12, & ! + & 2.7000D-12, 2.7000D-12, 2.7000D-12, 4.0000D-12, 4.0000D-12, & ! 9 & 4.0000D-12, 4.0000D-12, 4.0000D-12, 4.0000D-12, 4.0000D-12, & ! + & 4.0000D-12, 2.7000D-12, 2.7000D-12, 8.1000D-12, 8.1000D-12, & ! O & 2.9000D-12, 4.0000D-12, 4.0000D-12, 2.5400D-12, 2.5400D-12, & ! + & 2.5400D-12, 2.5400D-12, 4.0000D-12, 4.0000D-12, 2.7000D-12, & ! 1 & 2.7000D-12, 4.0000D-12, 4.0000D-12, 4.0000D-12, 2.7000D-12, & ! + & 4.0000D-12, 2.0000D-11, 2.0000D-11, 2.0800D-12, 4.1000D-13, & ! 2 & 7.5000D-13, 1.6600D-13, 1.6600D-13, 1.9000D-13, 1.6600D-13, & ! + & 1.6600D-13, 2.9100D-13, 2.9100D-13, 2.9100D-13, 2.9100D-13, & ! 3 & 1.5000D-11, 1.5000D-11, 1.5000D-11, 1.5000D-11, 1.5000D-11, & ! + & 1.5000D-11, 1.5000D-11, 1.5000D-11, 2.9100D-13, 2.9100D-13, & ! 4 & 4.3000D-13, 4.3000D-13, 1.1500D-13, 1.1500D-13, 1.1500D-13, & ! + & 1.8200D-13, 1.8200D-13, 2.9100D-13, 2.9100D-13, 3.7500D-13, & ! 5 & 1.0000D-11, 3.7500D-13, 1.1500D-13, 1.6600D-13, 1.6600D-13, & ! + & 3.7500D-13, 1.6600D-13, 9.5000D-14, 1.1800D-13, 9.4600D-14, & ! 6 & 1.0000D-13, 1.7100D-13, 1.4600D-13, 9.1800D-14, 3.5600D-14, & ! + & 3.5600D-14, 3.5600D-14, 3.5600D-14, 3.4000D-14, 3.5600D-14, & ! 7 & 1.0000D-10, 3.5600D-14, 1.0000D-10, 3.5600D-14, 1.0000D-10, & ! + & 3.5600D-14, 1.0000D-10, 2.0000D-11, 2.0000D-11, 7.5000D-13, & ! 8 & 6.9100D-13, 6.9100D-13, 3.4000D-14, 3.4000D-14, 8.3700D-14, & ! + & 3.4000D-14, 3.5600D-14, 3.5600D-14, 3.5600D-14, 3.5600D-14, & ! 9 & 7.5000D-13, 1.6000D-13, 9.6800D-14, 3.5600D-14, 5.9900D-15, & ! + & 1.0300D-12, 6.9000D-13, 5.5900D-13, 9.4800D-13, 8.1100D-13, & ! O & 5.0900D-13, 7.4000D-13, 7.4000D-13, 7.4000D-13, 7.4000D-13, & ! + & 8.4000D-14, 7.4000D-13, 1.0000D-10, 7.4000D-13, 1.0000D-10, & ! 1 & 7.4000D-13, 1.0000D-10, 7.4000D-13, 1.0000D-10, 2.5000D-12, & ! + & 2.5000D-12, 7.5100D-13, 7.5100D-13, 7.5100D-13, 8.4000D-14, & ! 2 & 8.4000D-14, 1.6800D-12, 1.6800D-12, 7.4000D-13, 7.4000D-13, & ! + & 7.4000D-13, 7.4000D-13, 7.5100D-13, 8.8500D-13, 5.3700D-13, & ! 3 & 7.4000D-13, 3.4000D-14, 2.5000D-12, 1.2000D-12, 1.2000D-12, & ! + & 1.2000D-12, 1.2000D-12, 1.2000D-12, 1.2000D-12, 1.2000D-12, & ! 4 & 2.3000D-12, 2.3000D-12, 2.3000D-12, 2.3000D-12, 1.2000D-12, & ! + & 1.2000D-12, 1.2000D-12, 4.0000D-12, 4.0000D-12, 1.2000D-12, & ! 5 & 1.2000D-12, 1.2000D-12, 1.2000D-12, 1.2000D-12, 2.5000D-12, & ! + & 2.5000D-12, 2.5000D-12, 2.5000D-12, 1.2000D-12, 1.2000D-12, & ! 6 & 1.2000D-12, 1.2000D-12, 1.2000D-12, 1.2000D-12, 7.0000D-14, & ! + & 4.2500D-14, 2.9600D-14, 1.2000D-12, 2.5000D-12, 7.1300D-17, & ! 7 & 1.0000D-10, 1.0000D-10, 1.0000D-10, 1.0000D-10, 1.0000D-10, & ! + & 1.0000D-10, 1.0000D-10, 1.0000D-10, 1.0000D-10, 1.0000D-10, & ! 8 & 1.0000D-10, 1.0000D-10, 5.7800D-11, 6.8900D-12, 6.5500D-14, & ! + & 8.0000D-12, 2.9000D-19, 3.4000D-15, 1.0000D+00, 1.4800D-11, & ! 9 & 9.0500D-12, 2.3000D-12, 1.6100D-11, 2.3900D-12, 1.3700D-11, & ! + & 1.3400D-14, 1.0000D-13, 5.0100D-11, 2.7000D-12, 3.7500D-13, & ! O & 4.4000D-11, 3.4300D-17, 8.9900D-12, 1.2000D-11, 1.9000D-11, & ! + & 2.8400D-13, 2.7000D-12, 2.3000D-12, 1.2000D-14, 1.9700D-10, & ! 1 & 2.8400D-13, 2.3000D-12, 2.7000D-12, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 6.7006D-11, 1.0000D+00, 1.0000D+00, & ! 2 & 1.0000D+00, 1.5300D-11, 1.6800D-11, 2.2400D-11, 2.6700D-11, & ! + & 3.0900D-11, 3.3800D-11, 1.1000D-11, 2.7000D-12, 2.7000D-12, & ! 3 & 2.7000D-12, 2.7000D-12, 2.7000D-12, 2.7000D-12, 2.7000D-12, & ! + & 2.3000D-12, 2.3000D-12, 2.3000D-12, 2.3000D-12, 2.3000D-12, & ! 4 & 2.3000D-12, 2.3000D-12, 2.1700D-11, 2.2000D-11, 2.2500D-11, & ! + & 2.2600D-11, 2.2700D-11, 2.2700D-11, 2.6600D-13, 1.8800D-01, & ! 5 & 1.8800D-01, 1.8800D-01, 1.8800D-01, 1.8800D-01, 1.8800D-01, & ! + & 1.8800D-01, 2.7000D-12, 2.7000D-12, 2.7000D-12, 2.7000D-12, & ! 6 & 2.7000D-12, 2.7000D-12, 2.7000D-12, 2.3000D-12, 2.3000D-12, & ! + & 2.3000D-12, 2.3000D-12, 2.3000D-12, 2.3000D-12, 2.3000D-12, & ! 7 & 2.1700D-11, 2.2000D-11, 2.2500D-11, 2.2600D-11, 2.2700D-11, & ! + & 2.2700D-11, 2.6600D-13, 1.8100D-11, 2.9100D-13, 2.7000D-12, & ! 8 & 2.3000D-12, 3.5600D-14, 7.4000D-13, 1.8100D-11, 2.9100D-13, & ! + & 2.7000D-12, 2.3000D-12, 3.5600D-14, 7.4000D-13, 2.3100D-11, & ! 9 & 2.9100D-13, 2.7000D-12, 2.3000D-12, 3.5600D-14, 7.4000D-13, & ! + & 5.9000D-11, 6.0700D-11, 5.5400D-11, 5.6300D-11, 5.4600D-11, & ! O & 4.5000D-11, 5.1700D-11, 4.7300D-11, 4.6000D-11, 3.8000D-11, & ! + & 3.9300D-11, 3.5200D-11, 3.1200D-11, 2.4000D-11, 2.0500D-11, & ! 1 & 4.6900D-11/ ! + DATA ( RTDAT( 2,IRXXN ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00,-2.4000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 4.6000D+02, & ! + & 2.6600D+03, 0.0000D+00,-1.5000D+00,-2.6000D+00, 0.0000D+00, & ! 5 & 2.7000D+02, 0.0000D+00, 0.0000D+00, 0.0000D+00,-1.6000D+00, & ! + & -3.0000D+00, 4.6000D+02, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00,-3.0000D+00, 1.0840D+04, 0.0000D+00, & ! + & -3.4000D+00, 1.0900D+04, 0.0000D+00,-4.1000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00,-4.5000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 3.6500D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 2.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00,-5.6000D+00, 1.4000D+04,-5.6000D+00, 1.4000D+04, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 3.4153D-08, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00/ ! + DATA ( RTDAT( 3,IRXXN ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00,-9.4000D+02,-4.9000D+02, & ! + & -1.5000D+03,-2.4500D+03, 0.0000D+00,-2.0600D+03, 5.5000D+01, & ! 4 & 1.1000D+02, 6.0000D+01,-1.8000D+03, 2.5000D+02, 2.1000D-33, & ! + & 2.9400D-54, 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.6000D+02, & ! 5 & 6.8570D-34, 6.6350D+02, 2.5000D+02, 2.0000D+02, 0.0000D+00, & ! + & 0.0000D+00, 2.7000D-17, 0.0000D+00, 0.0000D+00, 1.2500D+02, & ! 6 & -1.3350D+03,-2.4500D+03, 0.0000D+00, 6.8000D+01, 0.0000D+00, & ! + & 0.0000D+00, 7.1000D+01, 6.1000D+02, 0.0000D+00, 2.7400D-33, & ! 7 & -1.7750D+03,-1.0200D+03,-3.7000D+02,-2.4500D+02, 0.0000D+00, & ! + & 5.0000D+02, 5.0000D+02, 0.0000D+00,-1.9300D+02, 3.5400D+02, & ! 8 & 0.0000D+00, 0.0000D+00,-2.0000D+03,-4.5000D+02, 3.9000D+02, & ! + & 1.3000D+03, 3.5000D+02, 2.0000D+02, 5.8000D+02, 5.8000D+02, & ! 9 & 3.9000D+02, 5.8000D+02, 3.9000D+02, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 4.4000D+02, 4.0100D+02, & ! O & 6.0000D+02, 0.0000D+00, 1.2500D+02, 3.4500D+02, 4.0500D+02, & ! + & -4.2700D+02,-9.0000D+01, 1.0000D+01, 0.0000D+00, 3.8000D+02, & ! 1 & 6.1000D+02, 5.3300D+02, 0.0000D+00, 8.3000D+02, 1.7500D+02, & ! + & 1.7500D+02, 0.0000D+00, 2.4300D+02, 4.0500D+02, 0.0000D+00, & ! 2 & 0.0000D+00,-3.4500D+02, 2.0000D+01, 2.0000D+02, 0.0000D+00, & ! + & 1.9000D+02, 1.9000D+02, 1.9000D+02, 1.9000D+02, 0.0000D+00, & ! 3 & 0.0000D+00, 8.5000D+02, 1.9000D+02, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00,-2.6000D+02, 0.0000D+00,-2.5800D+03,-1.8000D+03, & ! 4 & -8.4500D+02,-5.3000D+02,-7.8300D+02, 0.0000D+00, 0.0000D+00, & ! + & -2.1120D+03,-1.5200D+03, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00,-2.2820D+03,-4.5000D+02, 4.5000D+02, & ! + & 4.9000D+02, 0.0000D+00,-4.4800D+02,-2.4400D+03,-1.9000D+03, & ! 6 & -1.9000D+03, 0.0000D+00,-1.0760D+03,-1.9000D+03,-1.9000D+03, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00,-5.0000D+02, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 1.7700D+02, 0.0000D+00, 1.7900D+02, & ! + & 1.8100D+02,-1.3486D+04, 3.0000D+02, 3.6500D+02, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 3.6000D+02, & ! + & 3.6000D+02, 3.6000D+02, 3.6000D+02, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 3.6000D+02, 3.6000D+02, 2.7000D+02, 2.7000D+02, & ! O & 3.0000D+02, 0.0000D+00, 0.0000D+00, 3.6000D+02, 3.6000D+02, & ! + & 3.6000D+02, 3.6000D+02, 0.0000D+00, 0.0000D+00, 3.6000D+02, & ! 1 & 3.6000D+02, 0.0000D+00, 0.0000D+00, 0.0000D+00, 3.6000D+02, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 7.5000D+02, & ! 2 & 7.0000D+02, 1.3000D+03, 1.3000D+03, 1.3000D+03, 1.3000D+03, & ! + & 1.3000D+03, 1.3000D+03, 1.3000D+03, 1.3000D+03, 1.3000D+03, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.3000D+03, 1.3000D+03, & ! 4 & 1.0400D+03, 1.0400D+03, 1.3000D+03, 1.3000D+03, 1.3000D+03, & ! + & 1.3000D+03, 1.3000D+03, 1.3000D+03, 1.3000D+03, 9.8000D+02, & ! 5 & 0.0000D+00, 9.8000D+02, 1.3000D+03, 1.3000D+03, 1.3000D+03, & ! + & 9.8000D+02, 1.3000D+03, 3.9000D+02, 1.5800D+02, 4.3100D+02, & ! 6 & 4.6700D+02, 7.0800D+02, 7.0800D+02, 7.0800D+02, 7.0800D+02, & ! + & 7.0800D+02, 7.0800D+02, 7.0800D+02, 2.2100D+02, 7.0800D+02, & ! 7 & 0.0000D+00, 7.0800D+02, 0.0000D+00, 7.0800D+02, 0.0000D+00, & ! + & 7.0800D+02, 0.0000D+00, 5.0000D+02, 5.0000D+02, 5.0000D+02, & ! 8 & 5.0800D+02, 5.0800D+02, 2.2100D+02, 2.2100D+02, 0.0000D+00, & ! + & 2.2100D+02, 7.0800D+02, 7.0800D+02, 7.0800D+02, 7.0800D+02, & ! 9 & 5.0000D+02, 7.0800D+02, 7.0800D+02, 0.0000D+00, 1.5100D+03, & ! + & 2.1100D+02, 4.6000D+02, 5.2200D+02, 7.6500D+02, 7.6500D+02, & ! O & 7.6500D+02, 7.6500D+02, 7.6500D+02, 7.6500D+02, 7.6500D+02, & ! + & 2.2100D+02, 7.6500D+02, 0.0000D+00, 7.6500D+02, 0.0000D+00, & ! 1 & 7.6500D+02, 0.0000D+00, 7.6500D+02, 0.0000D+00, 5.0000D+02, & ! + & 5.0000D+02, 5.6500D+02, 5.6500D+02, 5.6500D+02, 2.2100D+02, & ! 2 & 2.2100D+02, 5.0000D+02, 5.0000D+02, 7.6500D+02, 7.6500D+02, & ! + & 7.0800D+02, 7.0800D+02, 5.6500D+02, 7.6500D+02, 7.6500D+02, & ! 3 & 7.0800D+02, 1.5600D+03, 5.0000D+02, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+03, & ! + & 1.0000D+03, 1.0000D+03, 0.0000D+00, 5.0000D+02, 2.9500D+03, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00,-4.0000D+02, 0.0000D+00, 0.0000D+00, & ! + & 3.8000D+02, 0.0000D+00, 0.0000D+00, 0.0000D+00, 4.4800D+02, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & -2.2830D+03, 0.0000D+00, 0.0000D+00, 3.6000D+02, 9.8000D+02, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 1.3000D+03, 3.6000D+02, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 1.3000D+03, 0.0000D+00, 3.6000D+02, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 2.0000D-06, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 3.6000D+02, 3.6000D+02, & ! 3 & 3.6000D+02, 3.6000D+02, 3.6000D+02, 3.6000D+02, 3.6000D+02, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.3000D+03, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 3.6000D+02, 3.6000D+02, 3.6000D+02, 3.6000D+02, & ! 6 & 3.6000D+02, 3.6000D+02, 3.6000D+02, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 1.3000D+03, 0.0000D+00, 1.3000D+03, 3.6000D+02, & ! 8 & 0.0000D+00, 7.0800D+02, 7.6500D+02, 0.0000D+00, 1.3000D+03, & ! + & 3.6000D+02, 0.0000D+00, 7.0800D+02, 7.6500D+02, 0.0000D+00, & ! 9 & 1.3000D+03, 3.6000D+02, 0.0000D+00, 7.0800D+02, 7.6500D+02, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00/ ! + INTEGER :: IRRFALL( NFALLOFF ) DATA ( IRRFALL( IRXXN ), IRXXN = 1, NFALLOFF ) / & & 50, 51, 53, 54, 56, 60, 61, 62, 68, 71, & & 74, 75, 80, 83, 177, 179, 423/ DATA ( RFDAT( 1,IRXXN ), IRXXN = 1, NFALLOFF ) / & & 9.2000D+02, 3.1200D+03, 3.0000D-11, 3.6000D-11, 2.7000D+02, & & 2.3000D-11, 2.8000D-11, 2.1990D+03, 1.6000D-12, 4.0000D-12, & & 1.7000D-12, 0.0000D+00, 8.8000D-12, 8.3000D-13, 9.3000D-12, & & 9.3000D-12, 1.0743D+01/ DATA ( RFDAT( 2,IRXXN ), IRXXN = 1, NFALLOFF ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00,-1.0000D-01,-1.0000D+00, & & -2.0000D-01, 0.0000D+00, 6.5000D-34, 1.0000D-01,-3.0000D-01, & & 2.0000D-01, 0.0000D+00,-8.5000D-01, 2.0000D+00,-1.5000D+00, & & -1.5000D+00,-6.7130D-01/ DATA ( RFDAT( 3,IRXXN ), IRXXN = 1, NFALLOFF ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, & & 0.0000D+00, 0.0000D+00, 1.3350D+03, 0.0000D+00, 0.0000D+00, & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & & 0.0000D+00, 0.0000D+00/ DATA ( RFDAT( 4,IRXXN ), IRXXN = 1, NFALLOFF ) / & & 0.0000D+00, 0.0000D+00, 6.0000D-01, 6.0000D-01,-5.9680D-14, & & 6.0000D-01, 6.0000D-01, 0.0000D+00, 6.0000D-01, 6.0000D-01, & & 6.0000D-01, 0.0000D+00, 6.0000D-01, 6.0000D-01, 6.0000D-01, & & 6.0000D-01, 0.0000D+00/ DATA ( RFDAT( 5,IRXXN ), IRXXN = 1, NFALLOFF ) / & & 0.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, 2.7000D+02, & & 1.0000D+00, 1.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, & & 1.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & & 1.0000D+00, 0.0000D+00/ REAL( 8 ) :: SC( NRXNS,MXPRD ) DATA ( SC( IRXXN, 1 ), IRXXN = 1, NRXNS ) / & & 1.0000D+00, 1.0000D+00, 2.0000D+00, 1.0000D+00, 1.0000D+00, & ! O & 1.0000D+00, 1.0000D+00, 1.0000D+00, 2.0000D-01, 1.0000D+00, & ! + & 2.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 2.0000D+00, & ! 1 & 1.2200D+00, 1.0000D+00, 1.0000D+00, 1.0000D-01, 1.5000D+00, & ! + & 1.0000D+00, 3.4000D-01, 3.0000D-01, 2.0000D+00, 1.0000D+00, & ! 2 & 2.0000D+00, 1.0000D+00, 1.5000D+00, 1.5000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 3 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00, 1.0000D+00, & ! 4 & 1.0000D+00, 2.0000D+00, 1.0000D+00, 0.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 5 & 1.0000D+00, 2.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 7.0000D-01, 2.0000D+00, & ! 6 & 1.0000D+00, 2.0000D+00, 1.0000D+00, 1.0000D+00, 2.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 7 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 6.5000D-01, 4.7000D-01, 8.2000D-01, & ! 8 & 8.3000D-01, 8.2000D-01, 5.3100D-01, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.4000D-01, 1.0000D+00, 1.0000D+00, 9.0000D-01, & ! 9 & 8.0000D-01, 1.0000D+00, 1.5000D-01, 4.0000D-01, 3.5000D-01, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 9.7500D-01, 9.4500D-01, & ! O & 2.3000D-01, 7.0000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 5.7000D-01, & ! 1 & 1.0000D+00, 3.1300D-01, 1.0000D+00, 1.0000D+00, 5.2000D-01, & ! + & 5.2000D-01, 5.6000D-01, 1.0000D+00, 1.5200D-01, 2.0000D-01, & ! 2 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 3.5000D-01, 1.0000D-02, 1.0000D-02, 1.0000D-02, 1.0000D+00, & ! 3 & 1.0000D+00, 6.4000D-01, 3.5000D-01, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 8.0000D-02, 2.2000D-01, & ! 4 & 4.6000D-01, 9.0000D-01, 8.4000D-01, 4.0000D-02, 1.0000D+00, & ! + & 1.9000D-01, 1.6000D-01, 1.0000D-01, 5.0000D-02, 5.0000D-02, & ! 5 & 5.0000D-02, 1.0000D+00, 8.0000D-01, 4.3000D-01, 1.1000D-01, & ! + & 9.7500D-01, 9.4500D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 6 & 1.0000D+00, 6.8000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.5200D-01, 2.0000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 7 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 6.6000D-01, & ! 8 & 2.0000D-01, 1.0000D+00, 7.8000D-01, 8.3000D-01, 0.0000D+00, & ! + & 2.0000D-04, 1.0000D-04, 2.0000D-04, 8.2000D-01, 8.2000D-01, & ! 9 & 2.0000D+00, 8.2000D-01, 7.7000D-01, 7.7000D-01, 2.0000D+00, & ! + & 7.7000D-01, 9.5000D-01, 9.4000D-01, 1.0000D+00, 1.0000D+00, & ! O & 1.0000D+00, 6.7000D-01, 7.7000D-01, 6.5000D-01, 1.0000D+00, & ! + & 3.0000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 1 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 2.0000D+00, 2.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 2 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 6.0210D-01, 7.1950D-01, 4.8200D-02, 8.5400D-02, & ! 3 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 4 & 4.4000D-01, 4.4000D-01, 1.5000D-01, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 5 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 7.4000D-01, 1.0000D+00, 8.9400D-01, & ! 6 & 8.4200D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 6.8000D-01, & ! + & 6.8000D-01, 6.8000D-01, 6.8000D-01, 1.0000D+00, 1.0000D+00, & ! 7 & 1.0000D+00, 3.7000D-01, 7.5000D-01, 1.0000D+00, 1.0000D+00, & ! + & 3.7000D-01, 7.5000D-01, 9.0000D-01, 9.0000D-01, 5.0000D-01, & ! 8 & 8.3400D-01, 1.0000D+00, 5.0000D-01, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 2.0000D+00, 1.0000D+00, & ! 9 & 1.0000D+00, 2.0000D+00, 5.0000D-01, 1.0000D+00, 1.0000D+00, & ! + & 5.0000D-01, 3.9400D-01, 3.4200D-01, 5.0000D-01, 5.0000D-01, & ! O & 5.0000D-01, 7.0000D-01, 7.0000D-01, 7.0000D-01, 7.0000D-01, & ! + & 5.0000D-01, 6.3000D-01, 5.0000D-01, 8.6000D-01, 5.0000D-01, & ! 1 & 6.3000D-01, 5.0000D-01, 7.0000D-01, 5.0000D-01, 2.0000D+00, & ! + & 1.0000D+00, 5.0000D-01, 3.3000D-01, 5.0000D-01, 6.3500D-01, & ! 2 & 1.0000D+00, 5.0000D-01, 5.0000D-01, 1.0000D+00, 1.0000D+00, & ! + & 2.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 5.0000D-01, & ! 3 & 1.0000D+00, 1.0000D+00, 2.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 2.5400D-01, 4.8800D-01, 1.0000D+00, 4.7000D-01, 8.6000D-01, & ! 4 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 5 & 6.7000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 3.0000D-01, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 6 & 1.0000D+00, 1.0000D+00, 2.0000D+00, 2.0000D+00, 1.0000D+00, & ! + & 5.0000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00, & ! 7 & 9.6000D-01, 9.6000D-01, 9.6000D-01, 9.6000D-01, 9.6000D-01, & ! + & 9.6000D-01, 9.6000D-01, 9.6000D-01, 9.6000D-01, 9.6000D-01, & ! 8 & 9.6000D-01, 9.6000D-01, 1.0000D+00, 8.5200D-01, 1.0000D+00, & ! + & 5.7000D-01, 8.4000D-01, 6.8000D-01, 1.0000D+00, 6.6700D-01, & ! 9 & 9.6800D-01, 1.0000D+00, 1.0000D+00, 3.2000D-01, 7.0000D-01, & ! + & 6.2000D-01, 9.0000D-01, 4.9000D-01, 8.0000D-02, 6.0000D-01, & ! O & 6.5000D-01, 2.0000D-02, 1.0000D+00, 6.1300D-01, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 9.8200D-01, 1.0000D+00, & ! 1 & 1.0000D+00, 1.0000D+00, 2.4700D-01, 1.0000D+00, 1.0000D+00, & ! + & 2.0000D+00, 5.0000D-01, 0.0000D+00, 1.0000D+00, 1.0000D+00, & ! 2 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 7.2000D-01, 7.2000D-01, & ! 3 & 7.2000D-01, 7.2000D-01, 7.2000D-01, 7.2000D-01, 7.4000D-01, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 4 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 5 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.4000D-01, 1.4000D-01, 1.4000D-01, 1.4000D-01, & ! 6 & 1.4000D-01, 1.0000D+00, 1.2000D-01, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 7 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 8.4000D-01, 5.9500D-02, 1.0000D-04, & ! 8 & 1.0000D+00, 6.8000D-01, 7.0000D-01, 8.4000D-01, 5.9500D-02, & ! + & 1.0000D-04, 1.0000D+00, 6.8000D-01, 7.0000D-01, 8.4000D-01, & ! 9 & 5.9500D-02, 5.9500D-02, 1.0000D+00, 6.8000D-01, 7.0000D-01, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! O & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 1 & 1.0000D+00/ ! + DATA ( SC( IRXXN, 2 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, & ! O & 1.0000D+00, 1.0000D+00, 1.0000D+00, 8.0000D-01, 0.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 1 & 7.8400D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 5.0000D-01, & ! + & 1.0000D+00, 6.6000D-01, 3.0000D-01, 0.0000D+00, 1.0000D+00, & ! 2 & 2.0000D+00, 1.0000D+00, 2.5000D-01, 2.5000D-01, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 3 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 1.0000D+00, 7.0000D-01, 0.0000D+00, & ! 6 & 1.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 1.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 2.8100D-05, 1.3400D-03, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 3.5000D-01, 5.3000D-01, 1.8000D-01, & ! 8 & 1.7000D-01, 1.8000D-01, 1.8900D-01, 3.0000D-01, 2.0000D-02, & ! + & 6.0000D-01, 7.0000D-01, 0.0000D+00, 1.0000D+00, 5.0000D-01, & ! 9 & 1.0000D+00, 1.0000D+00, 5.0000D-02, 1.0000D-01, 8.0000D-01, & ! + & 1.2000D-01, 0.0000D+00, 1.0000D+00, 2.5000D-02, 5.5000D-02, & ! O & 7.7000D-01, 3.0000D-01, 1.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, 4.3000D-01, & ! 1 & 0.0000D+00, 6.8700D-01, 2.0000D+00, 1.0000D+00, 3.3000D-01, & ! + & 3.3000D-01, 2.1000D-01, 0.0000D+00, 6.1900D-01, 5.8400D-01, & ! 2 & 0.0000D+00, 1.0000D+00, 1.0000D+00, 7.1900D-01, 1.0000D+00, & ! + & 6.5000D-01, 4.4000D-01, 4.4000D-01, 4.4000D-01, 0.0000D+00, & ! 3 & 0.0000D+00, 3.6000D-01, 6.5000D-01, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 0.0000D+00, 1.5000D-01, 3.2000D-01, & ! 4 & 7.0000D-02, 9.0000D-01, 8.4000D-01, 6.7000D-01, 0.0000D+00, & ! + & 1.4000D-01, 1.1000D-01, 7.2000D-02, 1.0000D+00, 1.0000D+00, & ! 5 & 1.0000D+00, 0.0000D+00, 2.0000D-01, 5.7000D-01, 8.9000D-01, & ! + & 2.5000D-02, 5.5000D-02, 0.0000D+00, 1.0000D+00, 1.0000D+00, & ! 6 & 1.0000D+00, 3.2000D-01, 1.0000D+00, 2.0000D+00, 1.0000D+00, & ! + & 3.3900D-01, 3.2000D-01, 1.0000D+00, 1.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, 1.0000D+00, & ! + & 0.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.3100D-01, & ! 8 & 5.1000D-02, 1.0000D+00, 9.7000D-01, 9.5000D-01, 1.2000D-03, & ! + & 1.3000D-03, 1.3000D-03, 1.3000D-03, 8.2000D-01, 8.2000D-01, & ! 9 & 1.0000D+00, 8.2000D-01, 7.7000D-01, 7.7000D-01, 1.0000D+00, & ! + & 7.7000D-01, 9.5000D-01, 9.4000D-01, 1.0000D+00, 1.0000D+00, & ! O & 1.0000D+00, 1.0000D+00, 2.3000D-01, 3.5000D-01, 5.0000D-01, & ! + & 7.0000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 1 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 2.8700D-01, 1.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 3.9790D-01, 2.8050D-01, 6.7470D-01, 6.3410D-01, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 4.4000D-01, 4.4000D-01, 1.5000D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 1.3700D+00, 7.5000D-01, 8.0000D-02, & ! 6 & 1.8000D-02, 1.9500D+00, 1.5000D+00, 7.5000D-01, 1.3700D+00, & ! + & 1.2846D+00, 1.3218D+00, 1.2846D+00, 1.3100D+00, 6.8000D-01, & ! 7 & 7.5000D-01, 8.6000D-01, 7.5000D-01, 1.0000D+00, 7.5000D-01, & ! + & 6.8000D-01, 7.5000D-01, 9.0000D-01, 9.0000D-01, 5.0000D-01, & ! 8 & 1.0000D+00, 7.5000D-01, 2.6900D-01, 1.0000D+00, 1.1600D+00, & ! + & 3.0500D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 9 & 1.0000D+00, 1.0000D+00, 5.0000D-01, 7.0000D-01, 1.0000D+00, & ! + & 5.0000D-01, 5.8000D-01, 5.1800D-01, 5.0000D-01, 5.0000D-01, & ! O & 5.0000D-01, 1.0000D+00, 9.1460D-01, 9.5180D-01, 9.1460D-01, & ! + & 5.0000D-01, 7.0000D-01, 5.0000D-01, 1.4000D-01, 5.0000D-01, & ! 1 & 7.0000D-01, 5.0000D-01, 7.0000D-01, 5.0000D-01, 0.0000D+00, & ! + & 1.0000D+00, 5.0000D-01, 5.0000D-01, 5.0000D-01, 5.0000D-01, & ! 2 & 5.0000D-01, 5.0000D-01, 5.0000D-01, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 3 & 1.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.4000D-01, 5.5000D-02, 1.0000D+00, 7.9000D-01, 7.2000D-01, & ! 4 & 1.0000D+00, 9.1460D-01, 9.5180D-01, 9.1460D-01, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 5 & 1.0000D+00, 1.0000D+00, 5.3800D-01, 1.0000D+00, 7.0000D-01, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 6 & 1.0000D+00, 1.0000D+00, 2.8700D-01, 1.0000D+00, 2.0000D+00, & ! + & 5.0000D-01, 5.0400D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 4.8000D-01, 4.8000D-01, 4.8000D-01, 4.8000D-01, 4.8000D-01, & ! + & 4.8000D-01, 4.8000D-01, 4.8000D-01, 4.8000D-01, 4.8000D-01, & ! 8 & 4.8000D-01, 4.8000D-01, 0.0000D+00, 1.4900D-01, 1.0100D-03, & ! + & 4.3000D-01, 5.6000D-01, 3.2000D-01, 4.7700D-01, 3.3300D-01, & ! 9 & 9.6800D-01, 1.0000D+00, 0.0000D+00, 1.1430D+00, 3.0000D-01, & ! + & 6.3000D-01, 1.0000D-01, 4.9000D-01, 9.2000D-01, 4.0000D-01, & ! O & 3.1000D-01, 1.0000D+00, 8.0000D-01, 3.8700D-01, 0.0000D+00, & ! + & 0.0000D+00, 2.0000D+00, 2.0000D+00, 1.8000D-02, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 7.5300D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 5.0000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.8000D-01, 2.8000D-01, & ! 3 & 2.8000D-01, 2.8000D-01, 2.8000D-01, 2.8000D-01, 2.6000D-01, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 4 & 1.0000D+00, 1.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, & ! 5 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 8.6000D-01, 8.6000D-01, 8.6000D-01, 8.6000D-01, & ! 6 & 8.6000D-01, 8.6000D-01, 8.8000D-01, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 1.6000D-01, 9.0480D-01, 1.8000D-03, & ! 8 & 9.4050D-01, 1.3105D+00, 9.4050D-01, 1.6000D-01, 9.0480D-01, & ! + & 1.8000D-03, 9.4050D-01, 1.3105D+00, 9.4050D-01, 1.6000D-01, & ! 9 & 9.0480D-01, 1.8000D-03, 9.4050D-01, 1.3105D+00, 9.4050D-01, & ! + & 8.5400D-02, 4.6400D-01, 1.0410D-01, 2.0360D-01, 2.7920D-01, & ! O & 7.4000D-03, 2.8220D-01, 6.5900D-02, 1.7780D-01, 2.3000D-03, & ! + & 4.4500D-02, 3.1700D-02, 1.1700D-02, 1.0300D-02, 6.1000D-03, & ! 1 & 1.1880D-01/ ! + DATA ( SC( IRXXN, 3 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 8.0000D-01, 0.0000D+00, & ! + & 0.0000D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 1.2200D+00, 1.0000D+00, 1.0000D+00, 9.0000D-01, 5.0000D-01, & ! + & 1.0000D+00, 6.7000D-01, 7.0000D-01, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 1.0000D+00, 2.0000D-01, 2.0000D-01, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00, & ! 3 & 2.0000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 3.0000D-01, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 3.5000D-01, 5.3000D-01, 1.8000D-01, & ! 8 & 1.7000D-01, 1.8000D-01, 1.1600D+00, 3.0000D-01, 0.0000D+00, & ! + & 1.5000D-01, 4.4000D-01, 0.0000D+00, 0.0000D+00, 8.0000D-01, & ! 9 & 4.0000D-01, 2.0000D-01, 1.5000D-01, 6.0000D-02, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 4.0000D-01, & ! + & 1.3000D-01, 1.1000D-01, 0.0000D+00, 1.7000D-01, 1.6000D-01, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.8400D-01, 0.0000D+00, & ! + & 3.5000D-01, 7.0000D-02, 7.0000D-02, 7.0000D-02, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 3.5000D-01, 1.0000D+00, 1.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 4.3000D-01, 8.0000D-02, & ! 4 & 3.2000D-01, 5.0000D-02, 1.1000D-01, 7.9000D-01, 0.0000D+00, & ! + & 1.0000D-01, 2.8000D-01, 8.0000D-03, 6.0000D-01, 6.0000D-01, & ! 5 & 1.5000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 6.8000D-01, 6.6800D-01, 1.0000D+00, 1.0000D+00, & ! + & 8.5000D-01, 8.0000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, 4.8000D-02, & ! 8 & 2.3100D-01, 1.6000D+00, 7.8000D-01, 8.1000D-01, 8.0000D-04, & ! + & 6.0000D-04, 6.0000D-04, 6.0000D-04, 8.2000D-01, 1.0000D+00, & ! 9 & 0.0000D+00, 1.0000D+00, 4.9000D-01, 1.0000D+00, 0.0000D+00, & ! + & 1.0000D+00, 5.0000D-02, 6.0000D-02, 0.0000D+00, 0.0000D+00, & ! O & 1.0000D+00, 3.3000D-01, 1.6000D-01, 1.0000D+00, 5.0000D-01, & ! + & 7.0000D-01, 6.1000D-01, 0.0000D+00, 0.0000D+00, 3.2000D-01, & ! 1 & 0.0000D+00, 1.0000D+00, 1.0000D+00, 1.2400D+00, 1.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.7710D-01, 2.8050D-01, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 1.5000D-01, 1.5000D-01, 1.5000D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 6.3000D-01, 7.5000D-01, 2.6000D-02, & ! 6 & 1.4000D-01, 1.5000D-01, 7.0500D-01, 1.2800D+00, 3.2000D-01, & ! + & 3.2000D-01, 3.2000D-01, 3.2000D-01, 1.5900D-01, 6.0000D-01, & ! 7 & 2.5000D-01, 6.8000D-01, 2.5000D-01, 4.2000D-01, 2.5000D-01, & ! + & 7.0000D-01, 7.5000D-01, 1.0000D+00, 1.0000D+00, 1.5000D+00, & ! 8 & 3.3400D-01, 5.0000D-01, 5.0000D-01, 1.5000D+00, 1.1600D+00, & ! + & 7.7300D-01, 1.0000D+00, 1.0000D+00, 3.2000D-01, 1.0000D+00, & ! 9 & 1.0000D+00, 1.0000D+00, 9.6500D-01, 1.0000D+00, 0.0000D+00, & ! + & 1.0000D+00, 2.6000D-02, 1.4000D-01, 1.6000D+00, 1.0000D+00, & ! O & 1.7100D+00, 3.0000D-01, 3.0000D-01, 3.0000D-01, 3.0000D-01, & ! + & 1.0480D+00, 6.0000D-01, 5.0000D-01, 8.6000D-01, 5.0000D-01, & ! 1 & 4.2000D-01, 5.0000D-01, 3.0000D-01, 5.0000D-01, 0.0000D+00, & ! + & 0.0000D+00, 1.0000D+00, 3.3000D-01, 5.0000D-01, 2.6900D-01, & ! 2 & 1.0000D+00, 1.1600D+00, 5.0000D-01, 0.0000D+00, 0.0000D+00, & ! + & 3.2000D-01, 1.0000D+00, 0.0000D+00, 1.0000D+00, 2.8700D-01, & ! 3 & 7.0000D-01, 0.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 9.2000D-02, 2.8000D-01, 1.6000D+00, 7.9000D-01, 1.1000D-01, & ! 4 & 0.0000D+00, 8.5400D-02, 4.8200D-02, 8.5400D-02, 7.5000D-01, & ! + & 1.0000D+00, 3.8500D-01, 0.0000D+00, 0.0000D+00, 1.0000D+00, & ! 5 & 3.3000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 7.0000D-01, & ! + & 6.1000D-01, 0.0000D+00, 0.0000D+00, 3.2000D-01, 0.0000D+00, & ! 6 & 1.0000D+00, 1.0000D+00, 1.2400D+00, 1.0000D+00, 0.0000D+00, & ! + & 2.0200D-01, 1.2100D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 4.8000D-01, 4.8000D-01, 4.8000D-01, 4.8000D-01, 4.8000D-01, & ! + & 4.8000D-01, 4.8000D-01, 4.8000D-01, 4.8000D-01, 4.8000D-01, & ! 8 & 4.8000D-01, 4.8000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 2.8000D-01, 6.8000D-01, 2.5000D-01, 3.3300D-01, & ! 9 & 8.9500D-01, 9.2500D-01, 0.0000D+00, 8.7000D-01, 8.0000D-01, & ! + & 4.2000D-01, 9.0000D-01, 5.1000D-01, 9.2000D-01, 4.0000D-01, & ! O & 6.6000D-01, 0.0000D+00, 2.0000D-01, 1.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 7.5300D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 7.2000D-01, 7.2000D-01, & ! 3 & 7.2000D-01, 7.2000D-01, 7.2000D-01, 7.2000D-01, 7.4000D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 8.6000D-01, 8.6000D-01, 8.6000D-01, 8.6000D-01, & ! 6 & 8.6000D-01, 8.6000D-01, 8.8000D-01, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 1.6000D-01, 3.5700D-02, 1.0000D-04, & ! 8 & 5.9500D-02, 3.2000D-01, 3.0000D-01, 1.6000D-01, 3.5700D-02, & ! + & 1.0000D-04, 5.9500D-02, 3.2000D-01, 3.0000D-01, 1.6000D-01, & ! 9 & 3.5700D-02, 1.0000D-04, 5.9500D-02, 3.2000D-01, 3.0000D-01, & ! + & 2.5810D-01, 1.9770D-01, 5.6380D-01, 7.1000D-03, 4.0250D-01, & ! O & 1.1900D-01, 1.1650D-01, 4.5790D-01, 1.9240D-01, 1.3400D-01, & ! + & 1.7260D-01, 7.6500D-02, 1.6700D-02, 6.0000D-04, 4.9000D-03, & ! 1 & 8.0000D-04/ ! + DATA ( SC( IRXXN, 4 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.0000D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 3.5000D-01, 0.0000D+00, 0.0000D+00, 1.0000D-01, 0.0000D+00, & ! + & 0.0000D+00, 3.3000D-01, 7.0000D-01, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 8.0000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 6.5000D-01, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 2.5000D-01, 3.0000D-01, 0.0000D+00, & ! + & 0.0000D+00, 8.8000D-01, 0.0000D+00, 0.0000D+00, 5.0000D-01, & ! 9 & 5.0000D-02, 0.0000D+00, 2.0000D-02, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 7.8000D-01, & ! + & 1.0000D-01, 2.7000D-01, 0.0000D+00, 5.9000D-02, 5.6000D-02, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 8.0000D-02, 8.0000D-02, 8.0000D-02, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 3.5000D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, 6.0000D-02, & ! 4 & 7.0000D-02, 5.0000D-02, 5.0000D-02, 3.3000D-01, 0.0000D+00, & ! + & 2.2000D-01, 1.0000D-02, 2.0000D-03, 6.0000D-01, 6.0000D-01, & ! 5 & 4.8000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 6.8000D-01, 3.3200D-01, 0.0000D+00, 0.0000D+00, & ! + & 4.2400D-01, 4.0000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 8.9000D-02, & ! 8 & 2.3500D-01, 2.0000D-01, 1.2000D-02, 6.8000D-01, 9.9800D-01, & ! + & 9.9800D-01, 9.9800D-01, 9.9800D-01, 1.8000D-01, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 2.8000D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 9.5000D-01, 9.4000D-01, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 6.7000D-01, 1.0000D+00, 6.5000D-01, 1.0000D+00, & ! + & 1.0000D+00, 3.0000D-02, 0.0000D+00, 0.0000D+00, 6.8000D-01, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 4.6400D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 4.1000D-01, 4.1000D-01, 8.5000D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.5000D-01, 2.6000D-02, & ! 6 & 1.9100D-01, 2.5000D-01, 4.5000D-02, 2.1800D-01, 0.0000D+00, & ! + & 8.5400D-02, 4.8200D-02, 8.5400D-02, 2.5000D-01, 7.0000D-02, & ! 7 & 1.0000D+00, 8.6000D-01, 7.5000D-01, 3.0000D-01, 1.0000D+00, & ! + & 7.0000D-01, 2.5000D-01, 1.0000D-01, 1.0000D-01, 2.5000D-01, & ! 8 & 2.5000D-01, 2.5000D-01, 1.6600D+00, 5.0000D-01, 1.5000D+00, & ! + & 2.0300D-01, 0.0000D+00, 0.0000D+00, 6.8000D-01, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 9.3000D-01, 7.0000D-01, 0.0000D+00, & ! + & 5.0000D-01, 2.6000D-02, 1.9100D-01, 2.0000D-01, 9.4000D-01, & ! O & 2.9000D-01, 0.0000D+00, 8.5400D-02, 4.8200D-02, 8.5400D-02, & ! + & 2.1900D-01, 3.0000D-01, 1.0000D+00, 7.0000D-01, 1.0000D+00, & ! 1 & 3.0000D-01, 1.0000D+00, 7.0000D-01, 1.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 7.5000D-01, 3.3400D-01, 5.0000D-01, 5.0000D-01, & ! 2 & 5.0000D-01, 1.1600D+00, 3.0000D-02, 0.0000D+00, 0.0000D+00, & ! + & 6.8000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.2400D+00, & ! 3 & 7.0000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 5.0300D-01, 4.8500D-01, 2.0000D-01, 1.0000D+00, 1.0000D+00, & ! 4 & 1.0000D+00, 5.4880D-01, 7.0430D-01, 5.4880D-01, 3.1800D-01, & ! + & 1.0000D+00, 3.8500D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 6.7000D-01, 0.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 3.0000D-02, 0.0000D+00, 0.0000D+00, 6.8000D-01, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 4.6400D-01, 0.0000D+00, 0.0000D+00, & ! + & 6.4000D-01, 2.8500D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 4.8000D-01, 4.8000D-01, 4.8000D-01, 4.8000D-01, 4.8000D-01, & ! + & 4.8000D-01, 4.8000D-01, 4.8000D-01, 4.8000D-01, 4.8000D-01, & ! 8 & 4.8000D-01, 4.8000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 7.2000D-01, 6.8000D-01, 3.5400D-01, 0.0000D+00, & ! 9 & 8.9500D-01, 9.2500D-01, 0.0000D+00, 4.6300D-01, 7.4000D-01, & ! + & 8.0000D-02, 0.0000D+00, 0.0000D+00, 7.5000D-01, 3.2000D-01, & ! O & 3.4000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 8.6000D-01, 8.6000D-01, 8.6000D-01, 8.6000D-01, & ! 6 & 8.6000D-01, 0.0000D+00, 8.8000D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 9.9800D-01, & ! 8 & 4.7020D-01, 5.9500D-02, 5.9500D-02, 0.0000D+00, 0.0000D+00, & ! + & 9.9800D-01, 4.7020D-01, 5.9500D-02, 5.9500D-02, 0.0000D+00, & ! 9 & 0.0000D+00, 9.9800D-01, 4.7020D-01, 5.9500D-02, 5.9500D-02, & ! + & 2.5810D-01, 1.2100D-02, 2.1410D-01, 1.8400D-01, 8.8000D-03, & ! O & 7.2610D-01, 3.2000D-02, 1.1560D-01, 4.0000D-04, 3.3490D-01, & ! + & 1.0400D-02, 9.0000D-04, 4.8000D-02, 9.0000D-03, 2.2400D-02, & ! 1 & 3.9000D-02/ ! + DATA ( SC( IRXXN, 5 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 4.3400D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 3.4000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 5.0000D-01, 5.0000D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 3.5000D-01, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 2.5000D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 7.8000D-01, 0.0000D+00, 0.0000D+00, 1.0000D+00, & ! 9 & 1.0000D-01, 0.0000D+00, 2.0000D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D-01, & ! + & 1.0000D-02, 1.0000D-02, 0.0000D+00, 6.1900D-01, 5.8400D-01, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 4.1000D-01, 4.1000D-01, 4.1000D-01, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 3.7000D-01, 4.0000D-02, & ! 4 & 4.0000D-02, 5.0000D-02, 5.0000D-02, 4.0000D-02, 0.0000D+00, & ! + & 5.0000D-01, 5.6000D-01, 1.0000D-01, 1.5000D+00, 1.5000D+00, & ! 5 & 7.0000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 3.2000D-01, 3.3200D-01, 0.0000D+00, 0.0000D+00, & ! + & 4.2400D-01, 4.0000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 9.3500D-01, & ! 8 & 8.6400D-01, 0.0000D+00, 4.4000D-01, 2.0000D-01, 9.9800D-01, & ! + & 9.9800D-01, 9.9800D-01, 9.9800D-01, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 2.8000D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 9.5000D-01, 9.4000D-01, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 4.6000D-01, 6.5000D-01, 0.0000D+00, & ! + & 3.0000D-01, 2.7000D-01, 0.0000D+00, 0.0000D+00, 6.8000D-01, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.5000D-01, 8.2700D-01, & ! 6 & 7.7700D-01, 2.5000D-01, 2.5000D-01, 2.5000D-01, 1.0000D+00, & ! + & 5.4880D-01, 7.0430D-01, 5.4880D-01, 2.5000D-01, 3.2000D-01, & ! 7 & 0.0000D+00, 3.2000D-01, 1.0000D+00, 3.2000D-01, 0.0000D+00, & ! + & 3.2000D-01, 1.0000D+00, 0.0000D+00, 0.0000D+00, 2.5000D-01, & ! 8 & 2.5000D-01, 2.5000D-01, 6.7000D-02, 2.5000D-01, 1.7500D+00, & ! + & 5.2500D-01, 0.0000D+00, 0.0000D+00, 6.8000D-01, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 3.4800D-01, 7.0000D-01, 0.0000D+00, & ! + & 0.0000D+00, 1.3000D-01, 4.2000D-02, 5.0000D-01, 6.0000D-02, & ! O & 5.0000D-01, 1.0000D+00, 5.4880D-01, 7.0430D-01, 5.4880D-01, & ! + & 3.0500D-01, 7.0000D-02, 0.0000D+00, 3.0000D-01, 0.0000D+00, & ! 1 & 3.0000D-01, 0.0000D+00, 3.0000D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 5.0000D-01, 0.0000D+00, 1.0000D+00, & ! 2 & 5.0000D-01, 1.0000D+00, 2.7000D-01, 0.0000D+00, 0.0000D+00, & ! + & 6.8000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 4.6400D-01, & ! 3 & 7.0000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 0.0000D+00, 1.8000D-01, 2.0000D-01, & ! 4 & 5.0000D-01, 3.6590D-01, 2.4750D-01, 3.6590D-01, 5.0000D-01, & ! + & 0.0000D+00, 6.1500D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 3.0000D-01, & ! + & 2.7000D-01, 0.0000D+00, 0.0000D+00, 6.8000D-01, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 1.4900D-01, 1.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 4.8000D-01, 4.8000D-01, 4.8000D-01, 4.8000D-01, 4.8000D-01, & ! + & 4.8000D-01, 4.8000D-01, 4.8000D-01, 4.8000D-01, 4.8000D-01, & ! 8 & 4.8000D-01, 4.8000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 6.2000D-01, 3.2000D-01, 2.0400D-01, 0.0000D+00, & ! 9 & 7.2000D-02, 7.5000D-02, 0.0000D+00, 2.5000D-01, 7.4000D-01, & ! + & 8.3000D-01, 0.0000D+00, 0.0000D+00, 1.7000D-01, 8.0000D-02, & ! O & 4.3000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 9.9800D-01, & ! 8 & 4.7020D-01, 4.7020D-01, 4.7020D-01, 0.0000D+00, 0.0000D+00, & ! + & 9.9800D-01, 4.7020D-01, 4.7020D-01, 4.7020D-01, 0.0000D+00, & ! 9 & 0.0000D+00, 9.9800D-01, 4.7020D-01, 4.7020D-01, 4.7020D-01, & ! + & 2.5810D-01, 1.5200D-02, 1.5300D-02, 1.8400D-01, 3.1900D-02, & ! O & 1.2200D-02, 1.8300D-02, 3.2500D-02, 7.4000D-02, 8.0000D-03, & ! + & 5.1300D-02, 5.2600D-02, 2.4600D-02, 1.4600D-02, 5.0300D-02, & ! 1 & 1.1400D-02/ ! + DATA ( SC( IRXXN, 6 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 2.1600D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 6.7000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 5.0000D-01, 5.0000D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 8.0000D-02, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 2.8000D-01, 0.0000D+00, 0.0000D+00, 2.0000D-01, & ! 9 & 4.0000D-01, 0.0000D+00, 4.0000D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D-02, & ! + & 7.8000D-01, 7.9000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.0000D-02, & ! 4 & 9.0000D-02, 1.4000D-01, 1.4000D-01, 2.0000D-01, 0.0000D+00, & ! + & 4.5000D-01, 1.0000D-01, 2.4300D-01, 5.0000D-02, 5.0000D-02, & ! 5 & 2.5000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 6.8000D-01, 1.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 5.0400D-01, & ! 8 & 1.8000D-02, 0.0000D+00, 6.0000D-02, 9.0000D-02, 0.0000D+00, & ! + & 8.5200D-02, 4.8100D-02, 8.5200D-02, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 2.3000D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 5.4000D-01, 0.0000D+00, 0.0000D+00, & ! + & 7.0000D-01, 1.8000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.9800D-01, & ! 6 & 2.5100D-01, 0.0000D+00, 2.5000D-01, 2.5000D-01, 5.0000D-01, & ! + & 3.6590D-01, 2.4750D-01, 3.6590D-01, 2.5000D-01, 2.5000D-01, & ! 7 & 0.0000D+00, 1.4000D-01, 0.0000D+00, 2.7000D-01, 0.0000D+00, & ! + & 3.0000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.2500D-01, & ! 8 & 0.0000D+00, 0.0000D+00, 2.5000D-01, 2.5000D-01, 5.0000D-01, & ! + & 1.3500D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 2.5000D-01, 3.0000D-01, 0.0000D+00, & ! + & 0.0000D+00, 2.7300D-01, 3.8100D-01, 0.0000D+00, 5.0000D-01, & ! O & 0.0000D+00, 5.0000D-01, 3.6590D-01, 2.4750D-01, 3.6590D-01, & ! + & 5.0000D-01, 2.5000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 3.2000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 5.0000D-01, 2.3000D+00, 7.0000D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 5.0000D-01, & ! 3 & 3.0000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 5.1900D-01, 2.4000D-02, 0.0000D+00, 2.0000D-02, 8.5000D-01, & ! 4 & 2.5000D-01, 3.6590D-01, 3.5220D-01, 4.5730D-01, 2.4000D-02, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 7.0000D-01, & ! + & 7.0000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 1.5000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 4.0000D-02, 4.0000D-02, 4.8000D-01, 4.0000D-02, 4.0000D-02, & ! + & 4.8000D-01, 4.0000D-02, 4.0000D-02, 4.8000D-01, 4.0000D-02, & ! 8 & 4.0000D-02, 4.8000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 6.8000D-01, 1.5000D-01, 0.0000D+00, & ! 9 & 3.2000D-02, 0.0000D+00, 0.0000D+00, 2.3100D-01, 1.8500D-01, & ! + & 1.7000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 4.0000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 5.9400D-02, & ! 8 & 4.7020D-01, 4.7020D-01, 4.7020D-01, 0.0000D+00, 0.0000D+00, & ! + & 5.9400D-02, 4.7020D-01, 4.7020D-01, 4.7020D-01, 0.0000D+00, & ! 9 & 0.0000D+00, 4.6930D-01, 4.7020D-01, 4.7020D-01, 4.7020D-01, & ! + & 2.5810D-01, 6.2400D-02, 2.9800D-02, 1.8400D-01, 7.6000D-03, & ! O & 3.0500D-02, 1.1000D-03, 6.5700D-02, 4.5200D-02, 1.1930D-01, & ! + & 1.1180D-01, 4.8900D-02, 8.8100D-02, 7.0200D-02, 2.2000D-03, & ! 1 & 2.2660D-01/ ! + DATA ( SC( IRXXN, 7 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 6.7000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 1.0000D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 2.1000D-02, 0.0000D+00, 0.0000D+00, 1.0000D-01, & ! 9 & 9.4000D-01, 0.0000D+00, 5.0000D-02, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 6.8000D-02, & ! 4 & 3.7000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 5.4000D-01, 8.0000D-02, 5.0000D-02, 5.0000D-02, & ! 5 & 2.5000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.3200D-01, & ! 8 & 4.5000D-02, 0.0000D+00, 1.3000D-01, 2.0000D-02, 9.9800D-01, & ! + & 5.4770D-01, 7.0290D-01, 5.4770D-01, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 3.0000D-01, 7.0000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 4.9700D-01, & ! 6 & 6.1800D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.5000D-01, & ! + & 3.6590D-01, 3.5220D-01, 4.5730D-01, 2.3000D-02, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 2.5000D-01, 0.0000D+00, 2.5000D-01, & ! + & 1.0500D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 2.5000D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 6.6200D-01, 8.2400D-01, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 2.5000D-01, 3.6590D-01, 3.5220D-01, 4.5730D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 2.7000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 5.0000D-01, 1.8000D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 1.4700D-01, 2.4100D-01, 0.0000D+00, 9.0000D-02, 4.0000D-02, & ! 4 & 2.5000D-01, 5.4880D-01, 5.9960D-01, 4.5730D-01, 3.3000D-02, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 3.0000D-01, & ! + & 1.8000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 4.0000D-02, 0.0000D+00, 0.0000D+00, & ! + & 4.0000D-02, 0.0000D+00, 0.0000D+00, 4.0000D-02, 0.0000D+00, & ! 8 & 0.0000D+00, 4.0000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.7000D-02, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 3.7000D-02, 6.0000D-02, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 4.6930D-01, & ! 8 & 4.7020D-01, 4.7020D-01, 4.7020D-01, 0.0000D+00, 0.0000D+00, & ! + & 4.6930D-01, 4.7020D-01, 4.7020D-01, 4.7020D-01, 0.0000D+00, & ! 9 & 0.0000D+00, 4.6930D-01, 4.7020D-01, 4.7020D-01, 4.7020D-01, & ! + & 2.5810D-01, 3.8800D-02, 9.6000D-03, 1.8400D-01, 1.9400D-02, & ! O & 7.0000D-03, 6.6000D-02, 4.6000D-03, 6.3100D-02, 7.5800D-02, & ! + & 1.3000D-03, 1.5500D-01, 9.1600D-02, 1.5300D-02, 8.7900D-02, & ! 1 & 2.2660D-01/ ! + DATA ( SC( IRXXN, 8 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 9.0000D-02, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 2.0000D-01, 0.0000D+00, 5.8000D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 4.3000D-01, & ! 4 & 2.6000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 7.0000D-02, 4.2000D-01, 8.0000D-02, 8.0000D-02, & ! 5 & 1.1000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.6500D-01, & ! 8 & 2.0300D-01, 0.0000D+00, 3.0000D-02, 5.0000D-02, 4.9900D-01, & ! + & 3.6510D-01, 2.4700D-01, 3.6510D-01, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 2.1000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 5.0000D-02, & ! 6 & 2.5000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.5000D-01, & ! + & 5.4880D-01, 5.9960D-01, 4.5730D-01, 1.8000D-02, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 2.5000D-01, 0.0000D+00, 2.5000D-01, & ! + & 2.5000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 5.0000D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 6.7000D-02, 5.0000D-01, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 2.5000D-01, 5.4880D-01, 5.9960D-01, 4.5730D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 1.0830D+00, 1.0500D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 7.5000D-02, 6.0000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 3.1000D-02, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 2.1000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.9000D-02, 1.5000D-02, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 4.6930D-01, & ! 8 & 0.0000D+00, 4.7020D-01, 4.7020D-01, 0.0000D+00, 0.0000D+00, & ! + & 4.6930D-01, 0.0000D+00, 4.7020D-01, 4.7020D-01, 0.0000D+00, & ! 9 & 0.0000D+00, 4.6930D-01, 0.0000D+00, 4.7020D-01, 4.7020D-01, & ! + & 2.5810D-01, 4.9100D-02, 1.8900D-02, 1.8400D-01, 1.0400D-02, & ! O & 2.9100D-02, 5.3500D-02, 3.0700D-02, 7.0000D-04, 2.9200D-02, & ! + & 1.3370D-01, 1.5500D-02, 7.3000D-03, 1.0380D-01, 1.3840D-01, & ! 1 & 2.2660D-01/ ! + DATA ( SC( IRXXN, 9 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 1.0000D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 1.0000D-01, 0.0000D+00, 8.0000D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.0000D-02, & ! 4 & 1.0000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 7.0000D-02, 2.8000D-02, 6.5000D-01, 7.0000D-01, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 4.2000D-02, & ! 8 & 3.3000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.4950D-01, & ! + & 3.6510D-01, 3.5150D-01, 4.5640D-01, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.5000D-01, & ! 6 & 2.5000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.6000D-02, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.9200D-01, & ! + & 2.5000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 5.0000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 5.0000D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 9.5000D-02, 6.3000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 4.6930D-01, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 4.6930D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 4.6930D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 2.5810D-01, 3.9800D-02, 4.5600D-02, 1.8400D-01, 5.1000D-02, & ! O & 4.5400D-02, 2.4600D-02, 2.4000D-03, 6.0000D-04, 7.6600D-02, & ! + & 4.0300D-02, 1.0510D-01, 9.7200D-02, 3.1000D-03, 1.4630D-01, & ! 1 & 2.2660D-01/ ! + DATA ( SC( IRXXN, 10 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 1.4000D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.5000D-02, & ! 4 & 1.0000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 1.0000D-01, 4.9100D-01, 0.0000D+00, 6.5000D-01, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 6.5000D-02, & ! 8 & 2.1700D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.4950D-01, & ! + & 5.4770D-01, 5.9840D-01, 4.5640D-01, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.5000D-01, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 2.4700D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 4.6930D-01, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 4.6930D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 2.5810D-01, 1.8300D-02, 3.1400D-02, 1.8400D-01, 7.5000D-03, & ! O & 2.3400D-02, 5.4000D-03, 3.9500D-02, 2.2700D-02, 2.7700D-02, & ! + & 5.1100D-02, 1.3000D-03, 4.5600D-02, 1.6500D-01, 4.3200D-02, & ! 1 & 2.2660D-01/ ! + DATA ( SC( IRXXN, 11 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 2.8000D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 6.0000D-03, & ! 4 & 9.0000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 3.0000D-03, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 3.3000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 4.8000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 3.0800D-02, 1.9900D-02, 1.8400D-01, 5.1200D-02, & ! O & 3.5200D-02, 1.0680D-01, 2.1500D-02, 5.8500D-02, 1.1800D-02, & ! + & 6.8000D-03, 5.3500D-02, 2.4000D-03, 1.5660D-01, 9.5700D-02, & ! 1 & 2.2660D-01/ ! + DATA ( SC( IRXXN, 12 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 1.5000D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 3.2000D-02, & ! 4 & 4.5700D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 4.4000D-02, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 2.7200D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 2.7500D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 4.0000D-03, 4.5900D-02, 1.8400D-01, 4.6200D-02, & ! O & 6.2400D-02, 1.0680D-01, 5.3900D-02, 6.4900D-02, 6.5100D-02, & ! + & 2.3600D-02, 8.6000D-03, 4.7900D-02, 7.2400D-02, 3.1600D-02, & ! 1 & 2.2660D-01/ ! + DATA ( SC( IRXXN, 13 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 5.6000D-01, & ! 4 & 7.3000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 1.3600D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 7.9400D-02, 4.5200D-02, 1.8400D-01, 5.1200D-02, & ! O & 5.1800D-02, 1.0680D-01, 5.1600D-02, 1.7400D-02, 7.0900D-02, & ! + & 2.9300D-02, 4.2600D-02, 7.4500D-02, 6.2000D-03, 5.8500D-02, & ! 1 & 2.2660D-01/ ! + DATA ( SC( IRXXN, 14 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D-02, & ! 4 & 1.1000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 7.9400D-02, 4.5500D-02, 0.0000D+00, 1.3800D-02, & ! O & 5.0900D-02, 1.0680D-01, 5.1900D-02, 1.5400D-02, 6.6800D-02, & ! + & 7.3300D-02, 5.8200D-02, 6.0700D-02, 1.3980D-01, 5.7100D-02, & ! 1 & 0.0000D+00/ ! + DATA ( SC( IRXXN, 15 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 4.4000D-01, & ! 4 & 1.7000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 7.9400D-02, 3.2500D-02, 0.0000D+00, 1.3500D-02, & ! O & 3.4700D-02, 1.0680D-01, 3.7100D-02, 1.7000D-02, 4.2300D-02, & ! + & 5.2300D-02, 6.6100D-02, 1.5500D-02, 2.1600D-02, 5.7100D-02, & ! 1 & 0.0000D+00/ ! + DATA ( SC( IRXXN, 16 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 3.0000D-02, & ! 4 & 4.4000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 7.9400D-02, 3.6900D-02, 0.0000D+00, 6.4600D-02, & ! O & 7.4800D-02, 1.0680D-01, 4.2100D-02, 8.1800D-02, 9.1100D-02, & ! + & 5.9500D-02, 5.0600D-02, 7.8600D-02, 3.8400D-02, 5.7100D-02, & ! 1 & 0.0000D+00/ ! + DATA ( SC( IRXXN, 17 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.0000D-02, & ! 4 & 1.7000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 7.9400D-02, 2.6000D-03, 0.0000D+00, 6.4600D-02, & ! O & 1.6300D-02, 1.0680D-01, 1.0500D-02, 8.1800D-02, 6.6000D-03, & ! + & 4.1000D-03, 1.1400D-02, 7.8600D-02, 5.2600D-02, 5.7100D-02, & ! 1 & 0.0000D+00/ ! + DATA ( SC( IRXXN, 18 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 6.0000D-02, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 7.9400D-02, 3.9000D-02, 0.0000D+00, 6.4600D-02, & ! O & 6.2000D-03, 1.0680D-01, 4.4500D-02, 8.1800D-02, 2.5000D-03, & ! + & 2.3000D-03, 6.9800D-02, 7.8600D-02, 5.2600D-02, 5.7100D-02, & ! 1 & 0.0000D+00/ ! + DATA ( SC( IRXXN, 19 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D-02, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 7.9400D-02, 3.9000D-02, 0.0000D+00, 6.4600D-02, & ! O & 2.4400D-02, 1.0680D-01, 4.4500D-02, 8.1800D-02, 2.9700D-02, & ! + & 6.2800D-02, 6.9800D-02, 7.8600D-02, 5.2600D-02, 5.7100D-02, & ! 1 & 0.0000D+00/ ! + DATA ( SC( IRXXN, 20 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 3.0000D-02, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 7.9400D-02, 3.9000D-02, 0.0000D+00, 6.4600D-02, & ! O & 2.4400D-02, 1.0680D-01, 4.4500D-02, 8.1800D-02, 2.9700D-02, & ! + & 6.2800D-02, 6.9800D-02, 7.8600D-02, 5.2600D-02, 5.7100D-02, & ! 1 & 0.0000D+00/ ! + DATA ( SC( IRXXN, 21 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 6.0000D-02, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 7.9400D-02, 3.9000D-02, 0.0000D+00, 6.4600D-02, & ! O & 2.4400D-02, 1.0680D-01, 4.4500D-02, 8.1800D-02, 2.9700D-02, & ! + & 6.2800D-02, 6.9800D-02, 7.8600D-02, 5.2600D-02, 5.7100D-02, & ! 1 & 0.0000D+00/ ! + DATA ( SC( IRXXN, 22 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 7.9400D-02, 3.9000D-02, 0.0000D+00, 6.4600D-02, & ! O & 2.4400D-02, 0.0000D+00, 4.4500D-02, 8.1800D-02, 2.9700D-02, & ! + & 6.2800D-02, 6.9800D-02, 7.8600D-02, 5.2600D-02, 5.7100D-02, & ! 1 & 0.0000D+00/ ! + DATA ( SC( IRXXN, 23 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 7.9400D-02, 3.9000D-02, 0.0000D+00, 6.4600D-02, & ! O & 2.4400D-02, 0.0000D+00, 4.4500D-02, 8.1800D-02, 2.9700D-02, & ! + & 6.2800D-02, 6.9800D-02, 7.8600D-02, 5.2600D-02, 1.5440D-01, & ! 1 & 0.0000D+00/ ! + DATA ( SC( IRXXN, 24 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 3.9000D-02, 0.0000D+00, 6.4600D-02, & ! O & 2.4400D-02, 0.0000D+00, 4.4500D-02, 8.1800D-02, 2.9700D-02, & ! + & 6.2800D-02, 6.9800D-02, 7.8600D-02, 5.2600D-02, 0.0000D+00, & ! 1 & 0.0000D+00/ ! + DATA ( SC( IRXXN, 25 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 3.9000D-02, 0.0000D+00, 1.7530D-01, & ! O & 2.4400D-02, 0.0000D+00, 4.4500D-02, 2.2200D-01, 2.9700D-02, & ! + & 6.2800D-02, 6.9800D-02, 1.7300D-01, 5.2600D-02, 0.0000D+00, & ! 1 & 0.0000D+00/ ! + DATA ( SC( IRXXN, 26 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 3.9000D-02, 0.0000D+00, 0.0000D+00, & ! O & 2.4400D-02, 0.0000D+00, 4.4500D-02, 0.0000D+00, 2.9700D-02, & ! + & 6.2800D-02, 6.9800D-02, 0.0000D+00, 1.2800D-01, 0.0000D+00, & ! 1 & 0.0000D+00/ ! + DATA ( SC( IRXXN, 27 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 9.2500D-02, 0.0000D+00, 0.0000D+00, & ! O & 2.4400D-02, 0.0000D+00, 1.0550D-01, 0.0000D+00, 2.9700D-02, & ! + & 6.2800D-02, 1.6560D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00/ ! + DATA ( SC( IRXXN, 28 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 5.3700D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, 6.5400D-02, & ! + & 1.4890D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00/ ! + INTEGER :: NREACT( NRXNS ) DATA ( NREACT( IRXXN ), IRXXN = 1, NRXNS ) / & & 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, & ! O & 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, & ! 1 & 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, & ! 2 & 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, & ! 3 & 2, 2, 1, 2, 1, 1, 1, 1, 2, 2, & ! 4 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 5 & 2, 2, 2, 2, 2, 2, 2, 2, 1, 1, & ! 6 & 2, 1, 2, 2, 2, 1, 2, 2, 2, 2, & ! 7 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 8 & 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, & ! 9 & 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, & ! O & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 1 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 2 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 3 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 4 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 5 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 6 & 2, 2, 2, 2, 1, 1, 2, 1, 2, 1, & ! 7 & 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, & ! 8 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 9 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! O & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 1 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 2 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 3 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 4 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 5 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 6 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 7 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 8 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 9 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! O & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 1 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 2 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 3 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 4 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 5 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 6 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 7 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 8 & 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, & ! 9 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! O & 2, 2, 2, 2, 2, 2, 2, 2, 1, 1, & ! 1 & 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, & ! 2 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 3 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 4 & 2, 2, 2, 2, 1, 1, 1, 1, 1, 1, & ! 5 & 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 6 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 7 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 8 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 9 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! O & 2, 2, 2, 2, 2, 2/ ! 1 INTEGER :: NPRDCT( NRXNS ) DATA ( NPRDCT( IRXXN ), IRXXN = 1, NRXNS ) / & & 1, 1, 1, 2, 1, 2, 2, 2, 4, 1, & ! O & 2, 3, 3, 2, 2, 6, 3, 3, 4, 3, & ! 1 & 3, 7, 4, 1, 2, 2, 3, 6, 6, 3, & ! 2 & 3, 3, 3, 3, 2, 4, 2, 2, 1, 1, & ! 3 & 1, 1, 1, 0, 1, 1, 1, 1, 0, 1, & ! 4 & 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, & ! 5 & 1, 1, 2, 3, 1, 2, 1, 1, 2, 1, & ! 6 & 1, 2, 1, 3, 1, 1, 1, 2, 2, 1, & ! 7 & 1, 1, 5, 3, 3, 3, 3, 12, 4, 2, & ! 8 & 3, 7, 1, 2, 7, 9, 3, 9, 3, 2, & ! 9 & 2, 1, 2, 2, 2, 2, 2, 2, 1, 1, & ! O & 1, 1, 1, 2, 2, 1, 2, 2, 2, 6, & ! 1 & 6, 6, 1, 5, 5, 1, 2, 2, 3, 2, & ! 2 & 3, 5, 5, 5, 1, 1, 2, 4, 3, 3, & ! 3 & 2, 2, 1, 5, 21, 17, 6, 6, 6, 1, & ! 4 & 6, 10, 12, 9, 10, 8, 1, 2, 2, 2, & ! 5 & 2, 2, 1, 3, 2, 2, 6, 6, 3, 3, & ! 6 & 5, 5, 2, 2, 1, 1, 1, 2, 1, 2, & ! 7 & 1, 2, 3, 3, 10, 13, 4, 8, 8, 10, & ! 8 & 10, 10, 10, 4, 3, 2, 3, 6, 3, 2, & ! 9 & 3, 5, 5, 2, 2, 3, 4, 6, 5, 4, & ! O & 7, 8, 2, 2, 5, 2, 3, 3, 4, 3, & ! 1 & 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, & ! 2 & 1, 2, 2, 3, 3, 1, 1, 1, 1, 1, & ! 3 & 1, 1, 1, 1, 1, 4, 4, 4, 1, 1, & ! 4 & 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, & ! 5 & 1, 1, 3, 5, 10, 9, 5, 6, 6, 8, & ! 6 & 8, 8, 8, 9, 6, 4, 6, 5, 6, 4, & ! 7 & 6, 5, 4, 4, 6, 5, 5, 8, 6, 9, & ! 8 & 9, 3, 3, 5, 3, 3, 3, 8, 6, 2, & ! 9 & 4, 9, 8, 5, 6, 5, 8, 8, 8, 8, & ! O & 6, 6, 4, 5, 4, 7, 4, 5, 4, 1, & ! 1 & 2, 4, 5, 4, 5, 6, 8, 9, 2, 2, & ! 2 & 5, 3, 2, 3, 6, 6, 1, 1, 3, 3, & ! 3 & 9, 12, 4, 7, 7, 7, 7, 7, 7, 8, & ! 4 & 4, 5, 2, 2, 3, 4, 3, 4, 4, 7, & ! 5 & 8, 2, 2, 5, 2, 3, 3, 4, 3, 2, & ! 6 & 6, 5, 1, 1, 0, 6, 6, 7, 6, 6, & ! 7 & 7, 6, 6, 7, 6, 6, 7, 1, 2, 2, & ! 8 & 2, 5, 6, 7, 3, 6, 5, 1, 8, 8, & ! 9 & 6, 3, 3, 5, 5, 6, 2, 3, 3, 1, & ! O & 1, 2, 2, 2, 1, 1, 1, 3, 1, 1, & ! 1 & 1, 2, 0, 1, 1, 1, 1, 1, 1, 1, & ! 2 & 1, 1, 1, 3, 3, 3, 3, 3, 3, 3, & ! 3 & 2, 2, 2, 2, 2, 2, 2, 1, 1, 1, & ! 4 & 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, & ! 5 & 2, 4, 4, 4, 4, 4, 3, 4, 3, 3, & ! 6 & 3, 3, 3, 3, 3, 1, 1, 1, 1, 1, & ! 7 & 1, 1, 3, 3, 10, 7, 8, 8, 3, 3, & ! 8 & 10, 7, 8, 8, 3, 3, 9, 7, 8, 8, & ! 9 & 10, 23, 27, 13, 25, 28, 21, 27, 25, 28, & ! O & 28, 27, 25, 26, 23, 13/ ! 1 INTEGER, PARAMETER :: MHETERO = 7 INTEGER :: IHETERO( MHETERO,2 ) DATA ( IHETERO( IRXXN,1 ), IRXXN = 1, MHETERO ) / & & 419, 420, 421, 422, 424, 425, 426/ DATA ( IHETERO( IRXXN,2 ), IRXXN = 1, MHETERO ) / & & 1, 2, 3, 4, 5, 6, 7/ INTEGER, PARAMETER :: NPHOTAB = 33 CHARACTER( 16 ) :: PHOTAB( NPHOTAB ) DATA ( PHOTAB( IRXXN ), IRXXN = 1, NPHOTAB ) / & & 'O3O3P_NASA06 ', 'O3O1D_NASA06 ', 'H2O2_RACM2 ', & & 'NO2_RACM2 ', 'NO3NO_RACM2 ', 'NO3NO2_RACM2 ', & & 'HONO_RACM2 ', 'HNO3_RACM2 ', 'HNO4_RACM2 ', & & 'HCHO_MOL_JPL19 ', 'HCHO_RAD_JPL19 ', 'CH3CHO_RACM2 ', & & 'ALD_JPL19 ', 'CH3COCH3A_JPL19 ', 'CH3COCH3B_JPL19 ', & & 'UALD_RACM2 ', 'MEK_JGR19 ', 'KET_JGR19 ', & & 'HKET_RACM2 ', 'MACR_RACM2 ', 'MVK_RACM2 ', & & 'GLYH2_RACM2 ', 'GLYF_RACM2 ', 'GLYHX_RACM2 ', & & 'MGLY_RACM2 ', 'BALD_RACM2 ', 'OP1_RACM2 ', & & 'PAA_RACM2 ', 'ONIT_RACM2 ', 'PAN1_RACM2 ', & & 'PAN2_RACM2 ', 'HCHO_RAD_RACM2 ', 'ACRO_09 '/ INTEGER, PARAMETER :: NHETERO = 7 CHARACTER( 16 ) :: HETERO( NHETERO ) DATA ( HETERO( IRXXN ), IRXXN = 1, NHETERO ) / & & 'HETERO_GLY ', 'HETERO_MGLY ', 'HETERO_N2O5IJ ', & & 'HETERO_NO2 ', 'HETERO_IEPOX ', 'HETERO_ISO3NOSJ ', & & 'HETERO_ISO3OSJ '/ CHARACTER( 16 ) :: RXLABEL( NRXNS ) DATA ( RXLABEL( IRXXN ), IRXXN = 1, NRXNS ) / & & 'R001 ', 'R002 ', 'R003 ', & ! 0 & 'R004 ', 'R005 ', 'R006 ', & ! 1 & 'R007 ', 'R008 ', 'R009 ', & ! 2 & 'R010 ', 'R011 ', 'R012 ', & ! 3 & 'R013 ', 'R014 ', 'R014a ', & ! 4 & 'R015 ', 'TRP01 ', 'TRP02 ', & ! 5 & 'R016 ', 'R017 ', 'R018 ', & ! 6 & 'R019 ', 'R020 ', 'R021 ', & ! 7 & 'R022 ', 'R023 ', 'R024 ', & ! 8 & 'R025 ', 'R026 ', 'R027 ', & ! 9 & 'R028 ', 'R029 ', 'TRP03 ', & ! 0 & 'R029a ', 'R030 ', 'R031 ', & ! 1 & 'R032 ', 'R033 ', 'R034 ', & ! 2 & 'R035 ', 'R036 ', 'R037 ', & ! 3 & 'R038 ', 'R039 ', 'R040 ', & ! 4 & 'R041 ', 'R042 ', 'R043 ', & ! 5 & 'R044 ', 'R045 ', 'R046 ', & ! 6 & 'R047 ', 'R048 ', 'R049 ', & ! 7 & 'R050 ', 'R051 ', 'R052 ', & ! 8 & 'R053 ', 'R054 ', 'R055 ', & ! 9 & 'R056 ', 'R057 ', 'R058 ', & ! 0 & 'R059 ', 'R060 ', 'R061 ', & ! 1 & 'R062 ', 'R063 ', 'R064 ', & ! 2 & 'R065 ', 'R066 ', 'R067 ', & ! 3 & 'R068 ', 'R069 ', 'R070 ', & ! 4 & 'R071 ', 'R072 ', 'R073 ', & ! 5 & 'R074 ', 'R076 ', 'R077 ', & ! 6 & 'R078 ', 'R080 ', 'ROCARO31 ', & ! 7 & 'ROCARO41 ', 'ROCARO51 ', 'ROCARO61 ', & ! 8 & 'RAM01 ', 'RAM02 ', 'RAM03 ', & ! 9 & 'RAM04 ', 'RAM05 ', 'RAM06 ', & ! 0 & 'RAM07 ', 'RAM08 ', 'RAM9 ', & ! 1 & 'RAM10 ', 'RAM11 ', 'RAM12 ', & ! 2 & 'RAM13 ', 'RAM14 ', 'RAM15 ', & ! 3 & 'RAM16 ', 'R087 ', 'R088 ', & ! 4 & 'TRP04 ', 'TRP05 ', 'R089 ', & ! 5 & 'R090 ', 'R091 ', 'R092 ', & ! 6 & 'R093 ', 'R094 ', 'R095 ', & ! 7 & 'R096 ', 'R097 ', 'R098 ', & ! 8 & 'R099 ', 'R100 ', 'R101 ', & ! 9 & 'R102 ', 'R103 ', 'R104 ', & ! 0 & 'R105 ', 'R106 ', 'R108 ', & ! 1 & 'R109 ', 'R110 ', 'R111 ', & ! 2 & 'R112 ', 'R113 ', 'R114 ', & ! 3 & 'TRP06 ', 'R114a ', 'R116 ', & ! 4 & 'R117 ', 'R118 ', 'R119 ', & ! 5 & 'R120 ', 'R121 ', 'R122 ', & ! 6 & 'R123 ', 'TRP07 ', 'R126 ', & ! 7 & 'R127 ', 'R128 ', 'R131 ', & ! 8 & 'R132 ', 'TRP08 ', 'TRP09 ', & ! 9 & 'R133 ', 'R134 ', 'R135 ', & ! 0 & 'R136 ', 'R137 ', 'R138 ', & ! 1 & 'R140 ', 'R141 ', 'R142 ', & ! 2 & 'R143 ', 'R146 ', 'R147 ', & ! 3 & 'TRP10 ', 'R148 ', 'R149 ', & ! 4 & 'R150 ', 'R151 ', 'R152 ', & ! 5 & 'R153 ', 'R154 ', 'R155 ', & ! 6 & 'R156 ', 'R158 ', 'R159 ', & ! 7 & 'TRP11 ', 'TRP12 ', 'R166 ', & ! 8 & 'R167 ', 'R168 ', 'R169 ', & ! 9 & 'R170 ', 'R171 ', 'R172 ', & ! 0 & 'R173 ', 'R174 ', 'R175 ', & ! 1 & 'R177 ', 'R178 ', 'R179 ', & ! 2 & 'ROCARO33 ', 'ROCARO43 ', 'ROCARO53 ', & ! 3 & 'ROCARO63 ', 'R189 ', 'TRP13 ', & ! 4 & 'TRP14 ', 'TRP15 ', 'R190 ', & ! 5 & 'TRP16 ', 'TRP17 ', 'TRP18 ', & ! 6 & 'TRP19 ', 'TRP20 ', 'R191 ', & ! 7 & 'R192 ', 'R193 ', 'R194 ', & ! 8 & 'R195 ', 'R196 ', 'R197 ', & ! 9 & 'R198 ', 'R199 ', 'R200 ', & ! 0 & 'R201 ', 'R202 ', 'R203 ', & ! 1 & 'R204 ', 'R205 ', 'R206 ', & ! 2 & 'R207 ', 'R208 ', 'R209 ', & ! 3 & 'R210 ', 'R211 ', 'R212 ', & ! 4 & 'R213 ', 'R214 ', 'R215 ', & ! 5 & 'R217 ', 'R218 ', 'R219 ', & ! 6 & 'ROCARO32 ', 'ROCARO42 ', 'ROCARO52 ', & ! 7 & 'ROCARO62 ', 'R229 ', 'TRP21 ', & ! 8 & 'TRP22 ', 'TRP23 ', 'R230 ', & ! 9 & 'TRP24 ', 'TRP25 ', 'TRP26 ', & ! 0 & 'TRP27 ', 'TRP28 ', 'R231 ', & ! 1 & 'R232 ', 'R233 ', 'R234 ', & ! 2 & 'R235 ', 'R236 ', 'R237 ', & ! 3 & 'R238 ', 'R239 ', 'R240 ', & ! 4 & 'R241 ', 'R242 ', 'R243 ', & ! 5 & 'R244 ', 'R245 ', 'R246 ', & ! 6 & 'R247 ', 'R248 ', 'R249 ', & ! 7 & 'R250 ', 'R251 ', 'R253 ', & ! 8 & 'R254 ', 'R255 ', 'ROCARO35 ', & ! 9 & 'ROCARO45 ', 'ROCARO55 ', 'ROCARO65 ', & ! 0 & 'R264 ', 'R265 ', 'TRP29 ', & ! 1 & 'TRP30 ', 'TRP31 ', 'R266 ', & ! 2 & 'TRP32 ', 'TRP33 ', 'TRP34 ', & ! 3 & 'R267 ', 'R268 ', 'R269 ', & ! 4 & 'R270 ', 'R271 ', 'R272 ', & ! 5 & 'R273 ', 'R274 ', 'R275 ', & ! 6 & 'R276 ', 'R277 ', 'R278 ', & ! 7 & 'R279 ', 'R280 ', 'R281 ', & ! 8 & 'R282 ', 'R283 ', 'R284 ', & ! 9 & 'R285 ', 'R286 ', 'R287 ', & ! 0 & 'R289 ', 'R290 ', 'R291 ', & ! 1 & 'ROCARO36 ', 'ROCARO46 ', 'ROCARO56 ', & ! 2 & 'ROCARO66 ', 'R300 ', 'R301 ', & ! 3 & 'TRP35 ', 'TRP36 ', 'TRP37 ', & ! 4 & 'R302 ', 'TRP38 ', 'TRP39 ', & ! 5 & 'TRP40 ', 'R303 ', 'R304 ', & ! 6 & 'R305 ', 'R306 ', 'R307 ', & ! 7 & 'R308 ', 'R309 ', 'R310 ', & ! 8 & 'R311 ', 'R312 ', 'R313 ', & ! 9 & 'R314 ', 'R315 ', 'R316 ', & ! 0 & 'R317 ', 'R318 ', 'R319 ', & ! 1 & 'R320 ', 'R321 ', 'R322 ', & ! 2 & 'R323 ', 'R324 ', 'R325 ', & ! 3 & 'R327 ', 'R328 ', 'R329 ', & ! 4 & 'ROCARO34 ', 'ROCARO44 ', 'ROCARO54 ', & ! 5 & 'ROCARO64 ', 'R338 ', 'R339 ', & ! 6 & 'R340 ', 'R341 ', 'R342 ', & ! 7 & 'R343 ', 'R344 ', 'R345 ', & ! 8 & 'R346 ', 'R347 ', 'R348 ', & ! 9 & 'R349 ', 'R350 ', 'R351 ', & ! 0 & 'R352 ', 'R353 ', 'R354 ', & ! 1 & 'R355 ', 'R356 ', 'R357 ', & ! 2 & 'R358 ', 'R359 ', 'R360 ', & ! 3 & 'R361 ', 'R362 ', 'R363 ', & ! 4 & 'TRP41 ', 'TRP42 ', 'TRP43 ', & ! 5 & 'TRP44 ', 'TRP45 ', 'TRP46 ', & ! 6 & 'TRP47 ', 'TRP48 ', 'TRP49 ', & ! 7 & 'TRP50 ', 'TRP51 ', 'TRP52 ', & ! 8 & 'RAM17 ', 'R001c ', 'R002c ', & ! 9 & 'T17 ', 'T18 ', 'T19 ', & ! 0 & 'T20 ', 'T10 ', 'T10a ', & ! 1 & 'T10b ', 'T10c ', 'T10d ', & ! 2 & 'T10e ', 'T11 ', 'T12 ', & ! 3 & 'R003c ', 'R004c ', 'R005c ', & ! 4 & 'R006c ', 'R007c ', 'R008c ', & ! 5 & 'R010c ', 'R011c ', 'R012c ', & ! 6 & 'R013c ', 'R014c ', 'R015c ', & ! 7 & 'R016c ', 'R017c ', 'R019c ', & ! 8 & 'R020c ', 'HET_GLY ', 'HET_MGLY ', & ! 9 & 'HET_N2O5 ', 'HET_N02 ', 'HAL_Ozone ', & ! 0 & 'HET_IEPOX ', 'HET_ISO3TET ', 'HET_IEPOXOS ', & ! 1 & 'ROCALK1c ', 'ROCALK2c ', 'ROCALK3c ', & ! 2 & 'ROCALK4c ', 'ROCALK5c ', 'ROCALK6c ', & ! 3 & 'HC1001 ', 'ROCALK7c ', 'ROCALK8c ', & ! 4 & 'ROCALK9c ', 'ROCALK10c ', 'ROCALK11c ', & ! 5 & 'ROCALK12c ', 'HC1002 ', 'ROCALK13c ', & ! 6 & 'ROCALK14c ', 'ROCALK15c ', 'ROCALK16c ', & ! 7 & 'ROCALK17c ', 'ROCALK18c ', 'HC1003 ', & ! 8 & 'ROCALK19c ', 'ROCALK20c ', 'ROCALK21c ', & ! 9 & 'ROCALK22c ', 'ROCALK23c ', 'ROCALK24c ', & ! 0 & 'HC1004 ', 'ROCALK25c ', 'ROCALK26c ', & ! 1 & 'ROCALK27c ', 'ROCALK28c ', 'ROCALK29c ', & ! 2 & 'ROCALK30c ', 'HC1005 ', 'ROCALK31c ', & ! 3 & 'ROCALK32c ', 'ROCALK33c ', 'ROCALK34c ', & ! 4 & 'ROCALK35c ', 'ROCALK36c ', 'HC1006 ', & ! 5 & 'ROCALK37c ', 'ROCALK38c ', 'ROCALK39c ', & ! 6 & 'ROCALK40c ', 'ROCALK41c ', 'ROCALK42c ', & ! 7 & 'HC1007 ', 'ROCALK43c ', 'ROCALK44c ', & ! 8 & 'ROCALK45c ', 'ROCALK46c ', 'ROCALK47c ', & ! 9 & 'ROCALK48c ', 'HC1008 ', 'ROCARO01 ', & ! 0 & 'ROCARO02 ', 'ROCARO03 ', 'ROCARO04 ', & ! 1 & 'ROCARO05 ', 'ROCARO06 ', 'ROCARO11 ', & ! 2 & 'ROCARO12 ', 'ROCARO13 ', 'ROCARO14 ', & ! 3 & 'ROCARO15 ', 'ROCARO16 ', 'ROCARO21 ', & ! 4 & 'ROCARO22 ', 'ROCARO23 ', 'ROCARO24 ', & ! 5 & 'ROCARO25 ', 'ROCARO26 ', 'ROCOXY1c ', & ! 6 & 'ROCOXY2c ', 'ROCOXY3c ', 'ROCOXY4c ', & ! 7 & 'ROCOXY5c ', 'ROCOXY6c ', 'ROCOXY7c ', & ! 8 & 'ROCOXY8c ', 'ROCOXY9c ', 'ROCOXY10c ', & ! 9 & 'ROCOXY11c ', 'ROCOXY12c ', 'ROCOXY13c ', & ! 0 & 'ROCOXY14c ', 'ROCOXY15c ', 'ROCOXY16c '/! ! NSPECIAL = Number of special rate coefficients ! SPECIAL = Names of special rate coefficients ! NSPECIAL_RXN = Number of reactions with special rates ! ISPECIAL = Pointers to reactions using special rates and their special rate coefficients ! MAXSPECTERMS = Max Number of terms type used by special rate coefficients ! KC_COEFFS = Coefficients of standard rate coefficients times concentration terms ! INDEX_KTERMS = Pointers to standard rate coefficients in special rate coefficients ! INDEX_CTERMS = Pointers to species concentrations in special rate coefficients ! OPERATOR_COEFFS = Coefficients of preceeding special rate coefficients used in special coefficient ! OPERATORS = Pointers to preceeding special rate coefficients used in special coefficient ! Special Rate information not available .. INTEGER, PARAMETER :: NSPECIAL_RXN = 0 INTEGER :: ISPECIAL( 1, 2 ) ! Special Rate information not available ... INTEGER, PARAMETER :: NSPECIAL = 0 ! Special Rate information not available ... CHARACTER( 16 ) :: SPECIAL( 1 ) INTEGER, PARAMETER :: MAXSPECTERMS = 1 REAL( 8 ) :: KC_COEFFS( NSPECIAL + 1, MAXSPECTERMS) INTEGER :: INDEX_KTERMS( NSPECIAL + 1, MAXSPECTERMS) INTEGER :: INDEX_CTERMS( NSPECIAL + 1, MAXSPECTERMS) REAL( 8 ) :: OPERATOR_COEFFS( NSPECIAL + 1, MAXSPECTERMS) INTEGER :: OPERATORS( NSPECIAL + 1, MAXSPECTERMS) ! Steady-state species section ! N_SS_SPC = Number of species assumed to be in steady-state ! SS_SPC_DIM = Dimension paramete for steady-state species ! SS_SPC = Names of species assumed to be in steady-state ! MAX_SS_LOSS = Max no. of SS loss rxns for any SS species ! MAX_SS_PROD = Max no. of SS prod rxns for any SS species ! N_LOSS_RXNS = No. of SS loss rxns for each SS species ! N_PROD_RXNS = No. of SS prod rxns for each SS species ! SS_LOSS_RXNS = List of SS loss rxns for each SS species ! SS_PROD_RXNS = List of SS prod rxns for each SS species ! SS_PROD_COEF = List of SS prod yields for each SS species ! SS_RCT_IND = SS species index if it is a rxn reactant INTEGER, PARAMETER :: N_SS_SPC = 0 INTEGER, PARAMETER :: SS_SPC_DIM = 1 INTEGER, PARAMETER :: MAX_SS_LOSS = 0 INTEGER, PARAMETER :: MAX_SS_PROD = 0 CHARACTER( 16 ) :: SS_SPC( 1 ) INTEGER :: N_LOSS_RXNS( 1 ) INTEGER :: N_PROD_RXNS( 1 ) INTEGER :: SS_LOSS_RXNS( 1, 1 ) INTEGER :: SS_PROD_RXNS( 1, 1 ) INTEGER :: SS_RCT_IND( 1 ) REAL :: SS_PROD_COEF( 1,1 ) LOGICAL, PARAMETER :: USE_SPECIAL_RATES = .FALSE. ! pointers and names to specific photolysis rates INTEGER, PARAMETER :: IJ_O3O3P_NASA06 = 1 INTEGER, PARAMETER :: IJ_O3O1D_NASA06 = 2 INTEGER, PARAMETER :: IJ_H2O2_RACM2 = 3 INTEGER, PARAMETER :: IJ_NO2_RACM2 = 4 INTEGER, PARAMETER :: IJ_NO3NO_RACM2 = 5 INTEGER, PARAMETER :: IJ_NO3NO2_RACM2 = 6 INTEGER, PARAMETER :: IJ_HONO_RACM2 = 7 INTEGER, PARAMETER :: IJ_HNO3_RACM2 = 8 INTEGER, PARAMETER :: IJ_HNO4_RACM2 = 9 INTEGER, PARAMETER :: IJ_HCHO_MOL_JPL19 = 10 INTEGER, PARAMETER :: IJ_HCHO_RAD_JPL19 = 11 INTEGER, PARAMETER :: IJ_CH3CHO_RACM2 = 12 INTEGER, PARAMETER :: IJ_ALD_JPL19 = 13 INTEGER, PARAMETER :: IJ_CH3COCH3A_JPL19 = 14 INTEGER, PARAMETER :: IJ_CH3COCH3B_JPL19 = 15 INTEGER, PARAMETER :: IJ_UALD_RACM2 = 16 INTEGER, PARAMETER :: IJ_MEK_JGR19 = 17 INTEGER, PARAMETER :: IJ_KET_JGR19 = 18 INTEGER, PARAMETER :: IJ_HKET_RACM2 = 19 INTEGER, PARAMETER :: IJ_MACR_RACM2 = 20 INTEGER, PARAMETER :: IJ_MVK_RACM2 = 21 INTEGER, PARAMETER :: IJ_GLYH2_RACM2 = 22 INTEGER, PARAMETER :: IJ_GLYF_RACM2 = 23 INTEGER, PARAMETER :: IJ_GLYHX_RACM2 = 24 INTEGER, PARAMETER :: IJ_MGLY_RACM2 = 25 INTEGER, PARAMETER :: IJ_BALD_RACM2 = 26 INTEGER, PARAMETER :: IJ_OP1_RACM2 = 27 INTEGER, PARAMETER :: IJ_PAA_RACM2 = 28 INTEGER, PARAMETER :: IJ_ONIT_RACM2 = 29 INTEGER, PARAMETER :: IJ_PAN1_RACM2 = 30 INTEGER, PARAMETER :: IJ_PAN2_RACM2 = 31 INTEGER, PARAMETER :: IJ_HCHO_RAD_RACM2 = 32 INTEGER, PARAMETER :: IJ_ACRO_09 = 33 INTEGER, PARAMETER :: IK_HETERO_GLY = 1 INTEGER, PARAMETER :: IK_HETERO_MGLY = 2 INTEGER, PARAMETER :: IK_HETERO_N2O5IJ = 3 INTEGER, PARAMETER :: IK_HETERO_NO2 = 4 INTEGER, PARAMETER :: IK_HETERO_IEPOX = 5 INTEGER, PARAMETER :: IK_HETERO_ISO3NOSJ = 6 INTEGER, PARAMETER :: IK_HETERO_ISO3OSJ = 7 END MODULE RXNS_DATA ================================================ FILE: CCTM/src/MECHS/cracmm1amore_aq/RXNS_FUNC_MODULE.F90 ================================================ MODULE RXNS_FUNCTION IMPLICIT NONE ! Name of Mechanism CRACMM1AMORE_AQ PUBLIC :: CALC_RCONST, SPECIAL_RATES, MAP_CHEMISTRY_SPECIES CONTAINS REAL( 8 ) FUNCTION POWER_T02( TEMPOT300,A0,B0 ) IMPLICIT NONE ! rate constant for CMAQ Arrhenuis reaction type 2 ! Arguements: REAL( 8 ), INTENT( IN ) :: TEMPOT300 REAL( 8 ), INTENT( IN ) :: A0 REAL( 8 ), INTENT( IN ) :: B0 ! Local: None POWER_T02 = A0 * TEMPOT300**B0 RETURN END FUNCTION POWER_T02 REAL( 8 ) FUNCTION ARRHENUIS_T04( INV_TEMP,TEMPOT300,A0,B0,C0 ) IMPLICIT NONE ! rate constant for CMAQ Arrhenuis reaction type 4 ! Arguements: REAL( 8 ), INTENT( IN ) :: INV_TEMP REAL( 8 ), INTENT( IN ) :: TEMPOT300 REAL( 8 ), INTENT( IN ) :: A0 REAL( 8 ), INTENT( IN ) :: B0 REAL( 8 ), INTENT( IN ) :: C0 ! Local: INTRINSIC DEXP ARRHENUIS_T04 = A0 * DEXP( B0 * INV_TEMP ) * TEMPOT300**C0 RETURN END FUNCTION ARRHENUIS_T04 REAL( 8 ) FUNCTION ARRHENUIS_T03( INV_TEMP,A0,B0 ) ! rate constant for CMAQ Arrhenuis reaction type 3 IMPLICIT NONE ! Arguements: REAL( 8 ), INTENT( IN ) :: INV_TEMP REAL( 8 ), INTENT(IN) :: A0 REAL( 8 ), INTENT(IN) :: B0 ! Local: INTRINSIC DEXP ARRHENUIS_T03 = A0 * DEXP( B0 * INV_TEMP ) RETURN END FUNCTION ARRHENUIS_T03 REAL( 8 ) FUNCTION FALLOFF_T08(INV_TEMP,CAIR,A0,C0,A2,C2,A3,C3) ! rate constant for CMAQ fall off reaction type 8 IMPLICIT NONE ! Arguements: REAL( 8 ), INTENT( IN ) :: INV_TEMP REAL( 8 ), INTENT( IN ) :: CAIR REAL( 8 ), INTENT( IN ) :: A0 REAL( 8 ), INTENT( IN ) :: C0 REAL( 8 ), INTENT( IN ) :: A2 REAL( 8 ), INTENT( IN ) :: C2 REAL( 8 ), INTENT( IN ) :: A3 REAL( 8 ), INTENT( IN ) :: C3 ! Local: REAL( 8 ) K0 REAL( 8 ) K2 REAL( 8 ) K3 INTRINSIC DEXP K0 = A0 * DEXP( C0 * INV_TEMP ) K2 = A2 * DEXP( C2 * INV_TEMP ) K3 = A3 * DEXP( C3 * INV_TEMP ) K3 = K3 * CAIR FALLOFF_T08 = K0 + K3/( 1.0D0 + K3/K2 ) RETURN END FUNCTION FALLOFF_T08 REAL( 8 ) FUNCTION FALLOFF_T09(INV_TEMP,CAIR,A1,C1,A2,C2) ! rate constant for CMAQ fall off reaction type 9 IMPLICIT NONE ! Arguements: REAL( 8 ), INTENT( IN ) :: INV_TEMP REAL( 8 ), INTENT( IN ) :: CAIR REAL( 8 ), INTENT( IN ) :: A1 REAL( 8 ), INTENT( IN ) :: C1 REAL( 8 ), INTENT( IN ) :: A2 REAL( 8 ), INTENT( IN ) :: C2 ! Local: REAL( 8 ) K1 REAL( 8 ) K2 INTRINSIC DEXP K1 = A1 * DEXP( C1 * INV_TEMP ) K2 = A2 * DEXP( C2 * INV_TEMP ) FALLOFF_T09 = K1 + K2 * CAIR RETURN END FUNCTION FALLOFF_T09 REAL( 8 ) FUNCTION FALLOFF_T10(INV_TEMP,TEMPOT300,CAIR,A0,B0,C0,A1,B1,C1,CE,CF) IMPLICIT NONE ! rate constant for CMAQ fall off reaction type 10 ! Arguements: REAL( 8 ), INTENT( IN ) :: INV_TEMP REAL( 8 ), INTENT( IN ) :: TEMPOT300 REAL( 8 ), INTENT( IN ) :: CAIR REAL( 8 ), INTENT( IN ) :: A0 REAL( 8 ), INTENT( IN ) :: B0 REAL( 8 ), INTENT( IN ) :: C0 REAL( 8 ), INTENT( IN ) :: A1 REAL( 8 ), INTENT( IN ) :: B1 REAL( 8 ), INTENT( IN ) :: C1 REAL( 8 ), INTENT( IN ) :: CE REAL( 8 ), INTENT( IN ) :: CF ! Local: REAL( 8 ) K0 REAL( 8 ) K1 REAL( 8 ) KEND K0 = A0 * CAIR * DEXP(B0*INV_TEMP)* TEMPOT300**C0 K1 = A1 * DEXP(B1*INV_TEMP) * TEMPOT300**C1 KEND = ( ( 1.0D0 + ( ( 1.0D0 / CE ) * DLOG10( K0 / K1 ) ) ** 2.0D0 ) ) KEND = 1.0D0 / KEND FALLOFF_T10 = ( K0 / ( 1.0D0 + K0/K1 ) ) * CF ** KEND RETURN END FUNCTION FALLOFF_T10 REAL( 8 ) FUNCTION FALLOFF_T11(INV_TEMP,TEMPOT300,CAIR,A1,B1,C1,A2, B2, C2, D1, D2) ! rate constant for CMAQ fall off reaction type 11 ! actually expanded form of type 9 IMPLICIT NONE ! Arguements: REAL( 8 ), INTENT( IN ) :: INV_TEMP REAL( 8 ), INTENT( IN ) :: TEMPOT300 REAL( 8 ), INTENT( IN ) :: CAIR REAL( 8 ), INTENT( IN ) :: A1 REAL( 8 ), INTENT( IN ) :: B1 REAL( 8 ), INTENT( IN ) :: C1 REAL( 8 ), INTENT( IN ) :: A2 REAL( 8 ), INTENT( IN ) :: B2 REAL( 8 ), INTENT( IN ) :: C2 REAL( 8 ), INTENT( IN ) :: D1 REAL( 8 ), INTENT( IN ) :: D2 ! Local: REAL( 8 ) K1 REAL( 8 ) K2 REAL( 8 ) K3 INTRINSIC DEXP K1 = A1 * DEXP( C1 * INV_TEMP ) * TEMPOT300**B1 K2 = A2 * DEXP( C2 * INV_TEMP ) * TEMPOT300**B2 K3 = D1 * DEXP( D2 * INV_TEMP ) FALLOFF_T11 = K1 + K2 * CAIR + K3 RETURN END FUNCTION FALLOFF_T11 REAL( 8 ) FUNCTION HALOGEN_FALLOFF(PRESS,A1,B1,A2,B2,A3) IMPLICIT NONE REAL( 8 ), INTENT( IN ) :: PRESS REAL( 8 ), INTENT( IN ) :: A1 REAL( 8 ), INTENT( IN ) :: B1 REAL( 8 ), INTENT( IN ) :: A2 REAL( 8 ), INTENT( IN ) :: B2 REAL( 8 ), INTENT( IN ) :: A3 ! Maximum loss rate (1/sec) INTRINSIC DEXP HALOGEN_FALLOFF = A1 * DEXP( B1 * PRESS ) + A2 * DEXP( B2 * PRESS ) HALOGEN_FALLOFF = DMIN1 (A3, HALOGEN_FALLOFF ) RETURN END FUNCTION HALOGEN_FALLOFF SUBROUTINE SPECIAL_RATES( NUMCELLS, Y, TEMP, DENS, RKI ) ! Purpose: calculate special rate operators and update ! appropriate rate constants USE RXNS_DATA IMPLICIT NONE ! Arguments: INTEGER, INTENT( IN ) :: NUMCELLS ! Number of cells in block REAL( 8 ), INTENT( IN ) :: Y( :, : ) ! species concs REAL( 8 ), INTENT( IN ) :: TEMP( : ) ! air temperature, K REAL( 8 ), INTENT( IN ) :: DENS( : ) ! air density, Kg/m3 REAL( 8 ), INTENT( INOUT ) :: RKI( :, : ) ! reaction rate constant, ppm/min ! Local: REAL( 8 ), PARAMETER :: DENSITY_TO_NUMBER = 2.07930D+19 ! Kg/m3 to molecules/cm3 INTEGER :: NCELL REAL( 8 ) :: INV_TEMP REAL( 8 ) :: CAIR REAL( 8 ) :: CFACT ! scales operator if not multiplied by RKI, cm^3/(molecule) to 1/(ppm) REAL( 8 ) :: CFACT_SQU ! scales operator if not multiplied by RKI, cm^6/(molec^2) to 1/(ppm^2) ! special rate operators listed below DO NCELL = 1, NUMCELLS INV_TEMP = 1.0D0 / TEMP( NCELL ) CAIR = DENSITY_TO_NUMBER * DENS( NCELL ) CFACT = 1.0D-06 * CAIR CFACT_SQU = 1.0D-12 * CAIR * CAIR ! define special rate operators ! define rate constants in terms of special rate operators END DO RETURN END SUBROUTINE SPECIAL_RATES SUBROUTINE CALC_RCONST( BLKTEMP, BLKPRES, BLKH2O, RJBLK, BLKHET, LSUNLIGHT, SEAWATER, RKI, NUMCELLS ) !********************************************************************** ! Function: To compute thermal and photolytic reaction rate ! coefficients for each reaction. ! Preconditions: Photolysis rates for individual species must have ! been calculated and stored in RJPHOT. Expects ! temperature in deg K, pressure in atm., water ! vapor in ppmV, and J-values in /min. ! Key Subroutines/Functions Called: POWER_02, ARRHRENUIS_T0*, FALLOFF_T*, HALOGEN_FALLOFF !*********************************************************************** USE RXNS_DATA IMPLICIT NONE ! Arguements: None REAL( 8 ), INTENT( IN ) :: BLKTEMP( : ) ! temperature, deg K REAL( 8 ), INTENT( IN ) :: BLKPRES( : ) ! pressure, Atm REAL( 8 ), INTENT( IN ) :: BLKH2O ( : ) ! water mixing ratio, ppm REAL( 8 ), INTENT( IN ) :: RJBLK ( :, : ) ! photolysis rates, 1/min REAL( 8 ), INTENT( IN ) :: BLKHET ( :, : ) ! heterogeneous rate constants, ???/min INTEGER, INTENT( IN ) :: NUMCELLS ! Number of cells in block LOGICAL, INTENT( IN ) :: LSUNLIGHT ! Is there sunlight? REAL( 8 ), INTENT( IN ) :: SEAWATER( : ) ! fractional area of OPEN+SURF REAL( 8 ), INTENT( OUT ) :: RKI ( :, : ) ! reaction rate constant, ppm/min !..Parameters: REAL( 8 ), PARAMETER :: COEF1 = 7.33981D+15 ! Molec/cc to ppm conv factor REAL( 8 ), PARAMETER :: CONSTC = 0.6D+0 ! Constant for reaction type 7 REAL( 8 ), PARAMETER :: TI300 = 1.0D+0/300.0D+0 ! reciprocal of 300 deg K REAL( 8 ), PARAMETER :: SFACT = 60.D+0 ! seconds per minute !..External Functions: None !..Local Variables: INTEGER :: NRT ! Loop index for reaction types INTEGER :: IRXN ! Reaction number INTEGER :: JNUM ! J-value species # from PHOT) INTEGER :: KNUM ! Reaction # for a relative rate coeff. INTEGER :: N ! Loop index for reactions INTEGER :: NCELL ! Loop index for # of cells in the block REAL( 8 ) :: CAIR ! air number density (wet) [molec/cm^3] REAL( 8 ) :: CFACT ! Convertor cm^3/(molec*sec) to 1/(ppm*min) REAL( 8 ) :: CFACT_SQU ! Convertor cm^6/(molec^2*sec) to 1/(ppm^2*min) REAL( 8 ) :: INV_CFACT ! ppm/min to molec/(cm^3*sec) REAL( 8 ) :: TEMPOT300 ! temperature divided by 300 K, dimensionaless REAL( 8 ) :: INV_TEMP ! reciprocal of air temperature, K-1 REAL( 8 ) :: INV_CAIR ! reciprocal of air number density (wet), [cm^3/molec] REAL( 8 ) :: TEMP ! air temperature, K REAL( 8 ) :: PRESS ! pressure [Atm] REAL( 8 ) :: INV_RFACT ! ppm/min to molec/(cm^3*min) REAL( 8 ) :: RFACT_SQU ! cm^6/(molec^2*min) to 1/(ppm^2*min) REAL( 8 ) :: RFACT ! cm^3/(molec*min) to 1/(ppm*min) REAL( 8 ) :: H2O ! concentration, [molec/cm^3] RKI = 0.0D0 ! All rate constants converted from molec/cm3 to ppm ! and 1/sec to 1/min IF( LSUNLIGHT )THEN DO NCELL = 1, NUMCELLS ! Reaction Label R001 RKI( NCELL, 1) = RJBLK( NCELL, IJ_O3O3P_NASA06 ) ! Reaction Label R002 RKI( NCELL, 2) = RJBLK( NCELL, IJ_O3O1D_NASA06 ) ! Reaction Label R003 RKI( NCELL, 3) = RJBLK( NCELL, IJ_H2O2_RACM2 ) ! Reaction Label R004 RKI( NCELL, 4) = RJBLK( NCELL, IJ_NO2_RACM2 ) ! Reaction Label R005 RKI( NCELL, 5) = RJBLK( NCELL, IJ_NO3NO_RACM2 ) ! Reaction Label R006 RKI( NCELL, 6) = RJBLK( NCELL, IJ_NO3NO2_RACM2 ) ! Reaction Label R007 RKI( NCELL, 7) = RJBLK( NCELL, IJ_HONO_RACM2 ) ! Reaction Label R008 RKI( NCELL, 8) = RJBLK( NCELL, IJ_HNO3_RACM2 ) ! Reaction Label R009 RKI( NCELL, 9) = RJBLK( NCELL, IJ_HNO4_RACM2 ) ! Reaction Label R010 RKI( NCELL, 10) = RJBLK( NCELL, IJ_HCHO_MOL_JPL19 ) ! Reaction Label R011 RKI( NCELL, 11) = RJBLK( NCELL, IJ_HCHO_RAD_JPL19 ) ! Reaction Label R012 RKI( NCELL, 12) = RJBLK( NCELL, IJ_CH3CHO_RACM2 ) ! Reaction Label R013 RKI( NCELL, 13) = RJBLK( NCELL, IJ_ALD_JPL19 ) ! Reaction Label R014 RKI( NCELL, 14) = RJBLK( NCELL, IJ_CH3COCH3A_JPL19 ) ! Reaction Label R014a RKI( NCELL, 15) = RJBLK( NCELL, IJ_CH3COCH3B_JPL19 ) ! Reaction Label R015 RKI( NCELL, 16) = RJBLK( NCELL, IJ_UALD_RACM2 ) ! Reaction Label TRP01 RKI( NCELL, 17) = RJBLK( NCELL, IJ_ALD_JPL19 ) ! Reaction Label TRP02 RKI( NCELL, 18) = RJBLK( NCELL, IJ_ALD_JPL19 ) ! Reaction Label R016 RKI( NCELL, 19) = RJBLK( NCELL, IJ_MEK_JGR19 ) ! Reaction Label R017 RKI( NCELL, 20) = RJBLK( NCELL, IJ_KET_JGR19 ) ! Reaction Label R018 RKI( NCELL, 21) = RJBLK( NCELL, IJ_HKET_RACM2 ) ! Reaction Label R019 RKI( NCELL, 22) = RJBLK( NCELL, IJ_MACR_RACM2 ) ! Reaction Label R020 RKI( NCELL, 23) = RJBLK( NCELL, IJ_MVK_RACM2 ) ! Reaction Label R021 RKI( NCELL, 24) = RJBLK( NCELL, IJ_GLYH2_RACM2 ) ! Reaction Label R022 RKI( NCELL, 25) = RJBLK( NCELL, IJ_GLYF_RACM2 ) ! Reaction Label R023 RKI( NCELL, 26) = RJBLK( NCELL, IJ_GLYHX_RACM2 ) ! Reaction Label R024 RKI( NCELL, 27) = RJBLK( NCELL, IJ_MGLY_RACM2 ) ! Reaction Label R025 RKI( NCELL, 28) = RJBLK( NCELL, IJ_MGLY_RACM2 ) ! Reaction Label R026 RKI( NCELL, 29) = RJBLK( NCELL, IJ_MGLY_RACM2 ) ! Reaction Label R027 RKI( NCELL, 30) = RJBLK( NCELL, IJ_BALD_RACM2 ) ! Reaction Label R028 RKI( NCELL, 31) = RJBLK( NCELL, IJ_OP1_RACM2 ) ! Reaction Label R029 RKI( NCELL, 32) = RJBLK( NCELL, IJ_OP1_RACM2 ) ! Reaction Label TRP03 RKI( NCELL, 33) = RJBLK( NCELL, IJ_OP1_RACM2 ) ! Reaction Label R029a RKI( NCELL, 34) = RJBLK( NCELL, IJ_OP1_RACM2 ) ! Reaction Label R030 RKI( NCELL, 35) = RJBLK( NCELL, IJ_PAA_RACM2 ) ! Reaction Label R031 RKI( NCELL, 36) = RJBLK( NCELL, IJ_ONIT_RACM2 ) ! Reaction Label R032 RKI( NCELL, 37) = RJBLK( NCELL, IJ_PAN1_RACM2 ) ! Reaction Label R033 RKI( NCELL, 38) = RJBLK( NCELL, IJ_PAN2_RACM2 ) ! Reaction Label RAM12 RKI( NCELL, 99) = RJBLK( NCELL, IJ_HCHO_RAD_RACM2 ) ! Reaction Label T20 RKI( NCELL, 394) = RJBLK( NCELL, IJ_ACRO_09 ) IF ( SEAWATER (NCELL) .GT. 0.001D0 ) THEN ! Reaction Label HAL_Ozone RKI( NCELL, 423) = SEAWATER (NCELL) * SFACT * HALOGEN_FALLOFF( BLKPRES( NCELL ), 6.7006D-11, 1.0743D+01, & & 3.4153D-08, -6.7130D-01, 2.0000D-06 ) ELSE RKI( NCELL, 423) = 0.0D0 END IF END DO END IF DO NCELL = 1, NUMCELLS ! Set-up conversion factors INV_TEMP = 1.0D+00 / BLKTEMP( NCELL ) CAIR = 1.0D+06 * COEF1 * BLKPRES( NCELL ) * INV_TEMP CFACT = 6.0D-05 * CAIR CFACT_SQU = 6.0D-11 * CAIR * CAIR INV_CAIR = 1.0D0 / CAIR INV_CFACT = 6.0D+07 * INV_CAIR TEMP = BLKTEMP( NCELL ) TEMPOT300 = BLKTEMP( NCELL ) * TI300 RFACT = 1.0D+06 * INV_CAIR RFACT_SQU = 1.0D+12 * INV_CAIR * INV_CAIR ! Reaction Label R034 RKI( NCELL, 39) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.7000D-12, -9.4000D+02 ) ! Reaction Label R035 RKI( NCELL, 40) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.0000D-14, -4.9000D+02 ) ! Reaction Label R036 RKI( NCELL, 41) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.0000D-12, -1.5000D+03 ) ! Reaction Label R037 RKI( NCELL, 42) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.2000D-13, -2.4500D+03 ) ! Reaction Label R038 RKI( NCELL, 43) = CFACT_SQU * POWER_T02( TEMPOT300, 6.1000D-34, -2.4000D+00 ) ! Reaction Label R039 RKI( NCELL, 44) = CFACT * ARRHENUIS_T03( INV_TEMP, 8.0000D-12, -2.0600D+03 ) ! Reaction Label R040 RKI( NCELL, 45) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.3000D-11, 5.5000D+01 ) ! Reaction Label R041 RKI( NCELL, 46) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.1500D-11, 1.1000D+02 ) ! Reaction Label R042 RKI( NCELL, 47) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.6300D-10, 6.0000D+01 ) ! Reaction Label R043 RKI( NCELL, 48) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.8000D-12, -1.8000D+03 ) ! Reaction Label R044 RKI( NCELL, 49) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.8000D-11, 2.5000D+02 ) ! Reaction Label R045 RKI( NCELL, 50) = CFACT * FALLOFF_T09( INV_TEMP, CAIR, & & 3.0000D-13, 4.6000D+02, 2.1000D-33, & & 9.2000D+02 ) ! Reaction Label R046 RKI( NCELL, 51) = CFACT_SQU * FALLOFF_T09( INV_TEMP, CAIR, & & 4.2000D-34, 2.6600D+03, 2.9400D-54, & & 3.1200D+03 ) ! Reaction Label R047 RKI( NCELL, 52) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.8000D-12, 0.0000D+00 ) ! Reaction Label R048 RKI( NCELL, 53) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 9.1000D-32, 0.0000D+00, -1.5000D+00, & & 3.0000D-11, 0.0000D+00, 0.0000D+00, & & 1.0000D+00, 6.0000D-01 ) ! Reaction Label R049 RKI( NCELL, 54) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 7.1000D-31, 0.0000D+00, -2.6000D+00, & & 3.6000D-11, 0.0000D+00, -1.0000D-01, & & 1.0000D+00, 6.0000D-01 ) ! Reaction Label R050 RKI( NCELL, 55) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.4400D-12, 2.6000D+02 ) ! Reaction Label R051 RKI( NCELL, 56) = CFACT * FALLOFF_T11( INV_TEMP,TEMPOT300,CAIR, & & 6.0950D-14, -1.0000D+00, 2.7000D+02, & & 6.8570D-34, 1.0000D+00, 2.7000D+02, & & -5.9680D-14, 2.7000D+02 ) ! Reaction Label R052 RKI( NCELL, 57) = CFACT_SQU * ARRHENUIS_T03( INV_TEMP, 4.2500D-39, 6.6350D+02 ) ! Reaction Label R053 RKI( NCELL, 58) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.0000D-12, 2.5000D+02 ) ! Reaction Label R054 RKI( NCELL, 59) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.3000D-12, 2.0000D+02 ) ! Reaction Label R055 RKI( NCELL, 60) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 3.4000D-31, 0.0000D+00, -1.6000D+00, & & 2.3000D-11, 0.0000D+00, -2.0000D-01, & & 1.0000D+00, 6.0000D-01 ) ! Reaction Label R056 RKI( NCELL, 61) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 1.8000D-30, 0.0000D+00, -3.0000D+00, & & 2.8000D-11, 0.0000D+00, 0.0000D+00, & & 1.0000D+00, 6.0000D-01 ) ! Reaction Label R057 RKI( NCELL, 62) = CFACT * FALLOFF_T08( INV_TEMP, CAIR, & & 2.4000D-14, 4.6000D+02, 2.7000D-17, & & 2.1990D+03, 6.5000D-34, 1.3350D+03 ) ! Reaction Label R058 RKI( NCELL, 63) = 2.0000D-11 * CFACT ! Reaction Label R059 RKI( NCELL, 64) = 3.5000D-12 * CFACT ! Reaction Label R060 RKI( NCELL, 65) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.7000D-11, 1.2500D+02 ) ! Reaction Label R061 RKI( NCELL, 66) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.3500D-14, -1.3350D+03 ) ! Reaction Label R062 RKI( NCELL, 67) = CFACT * ARRHENUIS_T03( INV_TEMP, 8.5000D-13, -2.4500D+03 ) ! Reaction Label R063 RKI( NCELL, 68) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 2.4000D-30, 0.0000D+00, -3.0000D+00, & & 1.6000D-12, 0.0000D+00, 1.0000D-01, & & 1.0000D+00, 6.0000D-01 ) ! Reaction Label R064 RKI( NCELL, 69) = RFACT * RKI( NCELL, 68 ) & & * ( 1.7241D+26 * DEXP( -1.0840D+04 * INV_TEMP) ) ! Reaction Label R065 RKI( NCELL, 70) = 1.0000D-22 * CFACT ! Reaction Label R066 RKI( NCELL, 71) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 1.9000D-31, 0.0000D+00, -3.4000D+00, & & 4.0000D-12, 0.0000D+00, -3.0000D-01, & & 1.0000D+00, 6.0000D-01 ) ! Reaction Label R067 RKI( NCELL, 72) = RFACT * RKI( NCELL, 71 ) & & * ( 4.7619D+26 * DEXP( -1.0900D+04 * INV_TEMP) ) ! Reaction Label R068 RKI( NCELL, 73) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.5000D-13, 6.1000D+02 ) ! Reaction Label R069 RKI( NCELL, 74) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 2.9000D-31, 0.0000D+00, -4.1000D+00, & & 1.7000D-12, 0.0000D+00, 2.0000D-01, & & 1.0000D+00, 6.0000D-01 ) ! Reaction Label R070 RKI( NCELL, 75) = CFACT * FALLOFF_T09( INV_TEMP, CAIR, & & 1.4400D-13, 0.0000D+00, 2.7400D-33, & & 0.0000D+00 ) ! Reaction Label R071 RKI( NCELL, 76) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.4500D-12, -1.7750D+03 ) ! Reaction Label R072 RKI( NCELL, 77) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.6600D-12, -1.0200D+03 ) ! Reaction Label R073 RKI( NCELL, 78) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.6800D-12, -3.7000D+02 ) ! Reaction Label R074 RKI( NCELL, 79) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.0100D-11, -2.4500D+02 ) ! Reaction Label R076 RKI( NCELL, 80) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 1.0000D-28, 0.0000D+00, -4.5000D+00, & & 8.8000D-12, 0.0000D+00, -8.5000D-01, & & 1.0000D+00, 6.0000D-01 ) ! Reaction Label R077 RKI( NCELL, 81) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.7200D-12, 5.0000D+02 ) ! Reaction Label R078 RKI( NCELL, 82) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.3300D-11, 5.0000D+02 ) ! Reaction Label R080 RKI( NCELL, 83) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 5.5000D-30, 0.0000D+00, 0.0000D+00, & & 8.3000D-13, 0.0000D+00, 2.0000D+00, & & 1.0000D+00, 6.0000D-01 ) ! Reaction Label ROCARO31 RKI( NCELL, 84) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.3300D-12, -1.9300D+02 ) ! Reaction Label ROCARO41 RKI( NCELL, 85) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.8100D-12, 3.5400D+02 ) ! Reaction Label ROCARO51 RKI( NCELL, 86) = 2.3300D-11 * CFACT ! Reaction Label ROCARO61 RKI( NCELL, 87) = 7.1600D-12 * CFACT ! Reaction Label RAM01 RKI( NCELL, 88) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.5800D-14, -2.0000D+03 ) ! Reaction Label RAM02 RKI( NCELL, 89) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.9500D-12, -4.5000D+02 ) ! Reaction Label RAM03 RKI( NCELL, 90) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.6900D-11, 3.9000D+02 ) ! Reaction Label RAM04 RKI( NCELL, 91) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.5000D-13, 1.3000D+03 ) ! Reaction Label RAM05 RKI( NCELL, 92) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.5000D+02 ) ! Reaction Label RAM06 RKI( NCELL, 93) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.6000D-12, 2.0000D+02 ) ! Reaction Label RAM07 RKI( NCELL, 94) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.1400D-14, 5.8000D+02 ) ! Reaction Label RAM08 RKI( NCELL, 95) = CFACT * ARRHENUIS_T03( INV_TEMP, 9.4200D-16, 5.8000D+02 ) ! Reaction Label RAM9 RKI( NCELL, 96) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.4000D-11, 3.9000D+02 ) ! Reaction Label RAM10 RKI( NCELL, 97) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.4000D-07, 5.8000D+02 ) ! Reaction Label RAM11 RKI( NCELL, 98) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.9700D-11, 3.9000D+02 ) ! Reaction Label RAM13 RKI( NCELL, 100) = 1.0000D-10 * CFACT ! Reaction Label RAM14 RKI( NCELL, 101) = 5.0000D-11 * CFACT ! Reaction Label RAM15 RKI( NCELL, 102) = 2.0000D-14 * CFACT ! Reaction Label RAM16 RKI( NCELL, 103) = 2.3000D-05 * SFACT ! Reaction Label R087 RKI( NCELL, 104) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.2100D-11, 4.4000D+02 ) ! Reaction Label R088 RKI( NCELL, 105) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.2000D-11, 4.0100D+02 ) ! Reaction Label TRP04 RKI( NCELL, 106) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.2000D-12, 6.0000D+02 ) ! Reaction Label TRP05 RKI( NCELL, 107) = 1.0000D-10 * CFACT ! Reaction Label R089 RKI( NCELL, 108) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.5000D-12, 1.2500D+02 ) ! Reaction Label R090 RKI( NCELL, 109) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.7000D-12, 3.4500D+02 ) ! Reaction Label R091 RKI( NCELL, 110) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.9000D-12, 4.0500D+02 ) ! Reaction Label R092 RKI( NCELL, 111) = CFACT * ARRHENUIS_T04( INV_TEMP, TEMPOT300, & & 4.5600D-14, -4.2700D+02, 3.6500D+00 ) ! Reaction Label R093 RKI( NCELL, 112) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.5000D-12, -9.0000D+01 ) ! Reaction Label R094 RKI( NCELL, 113) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.8000D-12, 1.0000D+01 ) ! Reaction Label R095 RKI( NCELL, 114) = 3.0000D-12 * CFACT ! Reaction Label R096 RKI( NCELL, 115) = CFACT * ARRHENUIS_T03( INV_TEMP, 8.0000D-12, 3.8000D+02 ) ! Reaction Label R097 RKI( NCELL, 116) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.6000D-12, 6.1000D+02 ) ! Reaction Label R098 RKI( NCELL, 117) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.7700D-12, 5.3300D+02 ) ! Reaction Label R099 RKI( NCELL, 118) = 1.1000D-11 * CFACT ! Reaction Label R100 RKI( NCELL, 119) = CFACT * ARRHENUIS_T03( INV_TEMP, 9.2600D-13, 8.3000D+02 ) ! Reaction Label R101 RKI( NCELL, 120) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.8000D-11, 1.7500D+02 ) ! Reaction Label R102 RKI( NCELL, 121) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.8000D-11, 1.7500D+02 ) ! Reaction Label R103 RKI( NCELL, 122) = 1.0000D-11 * CFACT ! Reaction Label R104 RKI( NCELL, 123) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.3200D-12, 2.4300D+02 ) ! Reaction Label R105 RKI( NCELL, 124) = CFACT * ARRHENUIS_T03( INV_TEMP, 6.7500D-12, 4.0500D+02 ) ! Reaction Label R106 RKI( NCELL, 125) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.6500D-11, 0.0000D+00 ) ! Reaction Label R108 RKI( NCELL, 126) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.0500D-10, 0.0000D+00 ) ! Reaction Label R109 RKI( NCELL, 127) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.8500D-12, -3.4500D+02 ) ! Reaction Label R110 RKI( NCELL, 128) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.0000D-12, 2.0000D+01 ) ! Reaction Label R111 RKI( NCELL, 129) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.6000D-12, 2.0000D+02 ) ! Reaction Label R112 RKI( NCELL, 130) = 1.4700D-11 * CFACT ! Reaction Label R113 RKI( NCELL, 131) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.9000D-12, 1.9000D+02 ) ! Reaction Label R114 RKI( NCELL, 132) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.4000D-12, 1.9000D+02 ) ! Reaction Label TRP06 RKI( NCELL, 133) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.4000D-12, 1.9000D+02 ) ! Reaction Label R114a RKI( NCELL, 134) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.4000D-12, 1.9000D+02 ) ! Reaction Label R116 RKI( NCELL, 135) = 3.0000D-11 * CFACT ! Reaction Label R117 RKI( NCELL, 136) = 4.5000D-13 * CFACT ! Reaction Label R118 RKI( NCELL, 137) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.0000D-14, 8.5000D+02 ) ! Reaction Label R119 RKI( NCELL, 138) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.9300D-12, 1.9000D+02 ) ! Reaction Label R120 RKI( NCELL, 139) = 4.0000D-14 * CFACT ! Reaction Label R121 RKI( NCELL, 140) = 4.0000D-14 * CFACT ! Reaction Label R122 RKI( NCELL, 141) = 3.2000D-11 * CFACT ! Reaction Label R123 RKI( NCELL, 142) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.3100D-12, -2.6000D+02 ) ! Reaction Label TRP07 RKI( NCELL, 143) = 4.8000D-12 * CFACT ! Reaction Label R126 RKI( NCELL, 144) = CFACT * ARRHENUIS_T03( INV_TEMP, 9.1400D-15, -2.5800D+03 ) ! Reaction Label R127 RKI( NCELL, 145) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.3300D-15, -1.8000D+03 ) ! Reaction Label R128 RKI( NCELL, 146) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.4000D-15, -8.4500D+02 ) ! Reaction Label R131 RKI( NCELL, 147) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.0000D-16, -5.3000D+02 ) ! Reaction Label R132 RKI( NCELL, 148) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.9500D-15, -7.8300D+02 ) ! Reaction Label TRP08 RKI( NCELL, 149) = 8.3000D-18 * CFACT ! Reaction Label TRP09 RKI( NCELL, 150) = 1.6700D-16 * CFACT ! Reaction Label R133 RKI( NCELL, 151) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.3600D-15, -2.1120D+03 ) ! Reaction Label R134 RKI( NCELL, 152) = CFACT * ARRHENUIS_T03( INV_TEMP, 8.5000D-16, -1.5200D+03 ) ! Reaction Label R135 RKI( NCELL, 153) = 1.6600D-18 * CFACT ! Reaction Label R136 RKI( NCELL, 154) = 2.0000D-16 * CFACT ! Reaction Label R137 RKI( NCELL, 155) = 2.0000D-16 * CFACT ! Reaction Label R138 RKI( NCELL, 156) = 9.0000D-17 * CFACT ! Reaction Label R140 RKI( NCELL, 157) = 2.8600D-13 * CFACT ! Reaction Label R141 RKI( NCELL, 158) = CFACT * ARRHENUIS_T04( INV_TEMP, TEMPOT300, & & 4.3920D-13, -2.2820D+03, 2.0000D+00 ) ! Reaction Label R142 RKI( NCELL, 159) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.7900D-13, -4.5000D+02 ) ! Reaction Label R143 RKI( NCELL, 160) = CFACT * ARRHENUIS_T03( INV_TEMP, 8.6400D-13, 4.5000D+02 ) ! Reaction Label R146 RKI( NCELL, 161) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.1900D-12, 4.9000D+02 ) ! Reaction Label R147 RKI( NCELL, 162) = 1.2200D-11 * CFACT ! Reaction Label TRP10 RKI( NCELL, 163) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.1500D-14, -4.4800D+02 ) ! Reaction Label R148 RKI( NCELL, 164) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.0000D-12, -2.4400D+03 ) ! Reaction Label R149 RKI( NCELL, 165) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.4000D-12, -1.9000D+03 ) ! Reaction Label R150 RKI( NCELL, 166) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.7600D-12, -1.9000D+03 ) ! Reaction Label R151 RKI( NCELL, 167) = 3.4000D-15 * CFACT ! Reaction Label R152 RKI( NCELL, 168) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.0200D-13, -1.0760D+03 ) ! Reaction Label R153 RKI( NCELL, 169) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.9000D-12, -1.9000D+03 ) ! Reaction Label R154 RKI( NCELL, 170) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.7600D-12, -1.9000D+03 ) ! Reaction Label R155 RKI( NCELL, 171) = 3.7800D-12 * CFACT ! Reaction Label R156 RKI( NCELL, 172) = 1.0600D-12 * CFACT ! Reaction Label R158 RKI( NCELL, 173) = 2.0100D-10 * CFACT ! Reaction Label R159 RKI( NCELL, 174) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.2000D-14, -5.0000D+02 ) ! Reaction Label TRP11 RKI( NCELL, 175) = 1.0000D+00 * SFACT ! Reaction Label TRP12 RKI( NCELL, 176) = 1.0000D+00 * SFACT ! Reaction Label R166 RKI( NCELL, 177) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 9.7000D-29, 0.0000D+00, -5.6000D+00, & & 9.3000D-12, 0.0000D+00, -1.5000D+00, & & 1.0000D+00, 6.0000D-01 ) ! Reaction Label R167 RKI( NCELL, 178) = RFACT * RKI( NCELL, 177 ) & & * ( 1.1111D+28 * DEXP( -1.4000D+04 * INV_TEMP) ) ! Reaction Label R168 RKI( NCELL, 179) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 9.7000D-29, 0.0000D+00, -5.6000D+00, & & 9.3000D-12, 0.0000D+00, -1.5000D+00, & & 1.0000D+00, 6.0000D-01 ) ! Reaction Label R169 RKI( NCELL, 180) = RFACT * RKI( NCELL, 179 ) & & * ( 1.1111D+28 * DEXP( -1.4000D+04 * INV_TEMP) ) ! Reaction Label R170 RKI( NCELL, 181) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.8000D-12, 1.8100D+02 ) ! Reaction Label R171 RKI( NCELL, 182) = SFACT * ARRHENUIS_T03( INV_TEMP, 1.6000D+16, -1.3486D+04 ) ! Reaction Label R172 RKI( NCELL, 183) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.8000D-12, 3.0000D+02 ) ! Reaction Label R173 RKI( NCELL, 184) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.6000D-12, 3.6500D+02 ) ! Reaction Label R174 RKI( NCELL, 185) = 4.0000D-12 * CFACT ! Reaction Label R175 RKI( NCELL, 186) = 4.0000D-12 * CFACT ! Reaction Label R177 RKI( NCELL, 187) = 9.0000D-12 * CFACT ! Reaction Label R178 RKI( NCELL, 188) = 4.0000D-12 * CFACT ! Reaction Label R179 RKI( NCELL, 189) = 4.0000D-12 * CFACT ! Reaction Label ROCARO33 RKI( NCELL, 190) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label ROCARO43 RKI( NCELL, 191) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label ROCARO53 RKI( NCELL, 192) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label ROCARO63 RKI( NCELL, 193) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label R189 RKI( NCELL, 194) = 4.0000D-12 * CFACT ! Reaction Label TRP13 RKI( NCELL, 195) = 4.0000D-12 * CFACT ! Reaction Label TRP14 RKI( NCELL, 196) = 4.0000D-12 * CFACT ! Reaction Label TRP15 RKI( NCELL, 197) = 4.0000D-12 * CFACT ! Reaction Label R190 RKI( NCELL, 198) = 4.0000D-12 * CFACT ! Reaction Label TRP16 RKI( NCELL, 199) = 4.0000D-12 * CFACT ! Reaction Label TRP17 RKI( NCELL, 200) = 4.0000D-12 * CFACT ! Reaction Label TRP18 RKI( NCELL, 201) = 4.0000D-12 * CFACT ! Reaction Label TRP19 RKI( NCELL, 202) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label TRP20 RKI( NCELL, 203) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label R191 RKI( NCELL, 204) = CFACT * ARRHENUIS_T03( INV_TEMP, 8.1000D-12, 2.7000D+02 ) ! Reaction Label R192 RKI( NCELL, 205) = CFACT * ARRHENUIS_T03( INV_TEMP, 8.1000D-12, 2.7000D+02 ) ! Reaction Label R193 RKI( NCELL, 206) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.9000D-12, 3.0000D+02 ) ! Reaction Label R194 RKI( NCELL, 207) = 4.0000D-12 * CFACT ! Reaction Label R195 RKI( NCELL, 208) = 4.0000D-12 * CFACT ! Reaction Label R196 RKI( NCELL, 209) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.5400D-12, 3.6000D+02 ) ! Reaction Label R197 RKI( NCELL, 210) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.5400D-12, 3.6000D+02 ) ! Reaction Label R198 RKI( NCELL, 211) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.5400D-12, 3.6000D+02 ) ! Reaction Label R199 RKI( NCELL, 212) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.5400D-12, 3.6000D+02 ) ! Reaction Label R200 RKI( NCELL, 213) = 4.0000D-12 * CFACT ! Reaction Label R201 RKI( NCELL, 214) = 4.0000D-12 * CFACT ! Reaction Label R202 RKI( NCELL, 215) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label R203 RKI( NCELL, 216) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label R204 RKI( NCELL, 217) = 4.0000D-12 * CFACT ! Reaction Label R205 RKI( NCELL, 218) = 4.0000D-12 * CFACT ! Reaction Label R206 RKI( NCELL, 219) = 4.0000D-12 * CFACT ! Reaction Label R207 RKI( NCELL, 220) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label R208 RKI( NCELL, 221) = 4.0000D-12 * CFACT ! Reaction Label R209 RKI( NCELL, 222) = 2.0000D-11 * CFACT ! Reaction Label R210 RKI( NCELL, 223) = 2.0000D-11 * CFACT ! Reaction Label R211 RKI( NCELL, 224) = 2.0800D-12 * CFACT ! Reaction Label R212 RKI( NCELL, 225) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.1000D-13, 7.5000D+02 ) ! Reaction Label R213 RKI( NCELL, 226) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.5000D-13, 7.0000D+02 ) ! Reaction Label R214 RKI( NCELL, 227) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.6600D-13, 1.3000D+03 ) ! Reaction Label R215 RKI( NCELL, 228) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.6600D-13, 1.3000D+03 ) ! Reaction Label R217 RKI( NCELL, 229) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.9000D-13, 1.3000D+03 ) ! Reaction Label R218 RKI( NCELL, 230) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.6600D-13, 1.3000D+03 ) ! Reaction Label R219 RKI( NCELL, 231) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.6600D-13, 1.3000D+03 ) ! Reaction Label ROCARO32 RKI( NCELL, 232) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.9100D-13, 1.3000D+03 ) ! Reaction Label ROCARO42 RKI( NCELL, 233) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.9100D-13, 1.3000D+03 ) ! Reaction Label ROCARO52 RKI( NCELL, 234) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.9100D-13, 1.3000D+03 ) ! Reaction Label ROCARO62 RKI( NCELL, 235) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.9100D-13, 1.3000D+03 ) ! Reaction Label R229 RKI( NCELL, 236) = 1.5000D-11 * CFACT ! Reaction Label TRP21 RKI( NCELL, 237) = 1.5000D-11 * CFACT ! Reaction Label TRP22 RKI( NCELL, 238) = 1.5000D-11 * CFACT ! Reaction Label TRP23 RKI( NCELL, 239) = 1.5000D-11 * CFACT ! Reaction Label R230 RKI( NCELL, 240) = 1.5000D-11 * CFACT ! Reaction Label TRP24 RKI( NCELL, 241) = 1.5000D-11 * CFACT ! Reaction Label TRP25 RKI( NCELL, 242) = 1.5000D-11 * CFACT ! Reaction Label TRP26 RKI( NCELL, 243) = 1.5000D-11 * CFACT ! Reaction Label TRP27 RKI( NCELL, 244) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.9100D-13, 1.3000D+03 ) ! Reaction Label TRP28 RKI( NCELL, 245) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.9100D-13, 1.3000D+03 ) ! Reaction Label R231 RKI( NCELL, 246) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.3000D-13, 1.0400D+03 ) ! Reaction Label R232 RKI( NCELL, 247) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.3000D-13, 1.0400D+03 ) ! Reaction Label R233 RKI( NCELL, 248) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.1500D-13, 1.3000D+03 ) ! Reaction Label R234 RKI( NCELL, 249) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.1500D-13, 1.3000D+03 ) ! Reaction Label R235 RKI( NCELL, 250) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.1500D-13, 1.3000D+03 ) ! Reaction Label R236 RKI( NCELL, 251) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.8200D-13, 1.3000D+03 ) ! Reaction Label R237 RKI( NCELL, 252) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.8200D-13, 1.3000D+03 ) ! Reaction Label R238 RKI( NCELL, 253) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.9100D-13, 1.3000D+03 ) ! Reaction Label R239 RKI( NCELL, 254) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.9100D-13, 1.3000D+03 ) ! Reaction Label R240 RKI( NCELL, 255) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.7500D-13, 9.8000D+02 ) ! Reaction Label R241 RKI( NCELL, 256) = 1.0000D-11 * CFACT ! Reaction Label R242 RKI( NCELL, 257) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.7500D-13, 9.8000D+02 ) ! Reaction Label R243 RKI( NCELL, 258) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.1500D-13, 1.3000D+03 ) ! Reaction Label R244 RKI( NCELL, 259) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.6600D-13, 1.3000D+03 ) ! Reaction Label R245 RKI( NCELL, 260) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.6600D-13, 1.3000D+03 ) ! Reaction Label R246 RKI( NCELL, 261) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.7500D-13, 9.8000D+02 ) ! Reaction Label R247 RKI( NCELL, 262) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.6600D-13, 1.3000D+03 ) ! Reaction Label R248 RKI( NCELL, 263) = CFACT * ARRHENUIS_T03( INV_TEMP, 9.5000D-14, 3.9000D+02 ) ! Reaction Label R249 RKI( NCELL, 264) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.1800D-13, 1.5800D+02 ) ! Reaction Label R250 RKI( NCELL, 265) = CFACT * ARRHENUIS_T03( INV_TEMP, 9.4600D-14, 4.3100D+02 ) ! Reaction Label R251 RKI( NCELL, 266) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.0000D-13, 4.6700D+02 ) ! Reaction Label R253 RKI( NCELL, 267) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.7100D-13, 7.0800D+02 ) ! Reaction Label R254 RKI( NCELL, 268) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.4600D-13, 7.0800D+02 ) ! Reaction Label R255 RKI( NCELL, 269) = CFACT * ARRHENUIS_T03( INV_TEMP, 9.1800D-14, 7.0800D+02 ) ! Reaction Label ROCARO35 RKI( NCELL, 270) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.5600D-14, 7.0800D+02 ) ! Reaction Label ROCARO45 RKI( NCELL, 271) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.5600D-14, 7.0800D+02 ) ! Reaction Label ROCARO55 RKI( NCELL, 272) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.5600D-14, 7.0800D+02 ) ! Reaction Label ROCARO65 RKI( NCELL, 273) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.5600D-14, 7.0800D+02 ) ! Reaction Label R264 RKI( NCELL, 274) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.4000D-14, 2.2100D+02 ) ! Reaction Label R265 RKI( NCELL, 275) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.5600D-14, 7.0800D+02 ) ! Reaction Label TRP29 RKI( NCELL, 276) = 1.0000D-10 * CFACT ! Reaction Label TRP30 RKI( NCELL, 277) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.5600D-14, 7.0800D+02 ) ! Reaction Label TRP31 RKI( NCELL, 278) = 1.0000D-10 * CFACT ! Reaction Label R266 RKI( NCELL, 279) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.5600D-14, 7.0800D+02 ) ! Reaction Label TRP32 RKI( NCELL, 280) = 1.0000D-10 * CFACT ! Reaction Label TRP33 RKI( NCELL, 281) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.5600D-14, 7.0800D+02 ) ! Reaction Label TRP34 RKI( NCELL, 282) = 1.0000D-10 * CFACT ! Reaction Label R267 RKI( NCELL, 283) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.0000D-11, 5.0000D+02 ) ! Reaction Label R268 RKI( NCELL, 284) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.0000D-11, 5.0000D+02 ) ! Reaction Label R269 RKI( NCELL, 285) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.5000D-13, 5.0000D+02 ) ! Reaction Label R270 RKI( NCELL, 286) = CFACT * ARRHENUIS_T03( INV_TEMP, 6.9100D-13, 5.0800D+02 ) ! Reaction Label R271 RKI( NCELL, 287) = CFACT * ARRHENUIS_T03( INV_TEMP, 6.9100D-13, 5.0800D+02 ) ! Reaction Label R272 RKI( NCELL, 288) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.4000D-14, 2.2100D+02 ) ! Reaction Label R273 RKI( NCELL, 289) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.4000D-14, 2.2100D+02 ) ! Reaction Label R274 RKI( NCELL, 290) = 8.3700D-14 * CFACT ! Reaction Label R275 RKI( NCELL, 291) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.4000D-14, 2.2100D+02 ) ! Reaction Label R276 RKI( NCELL, 292) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.5600D-14, 7.0800D+02 ) ! Reaction Label R277 RKI( NCELL, 293) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.5600D-14, 7.0800D+02 ) ! Reaction Label R278 RKI( NCELL, 294) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.5600D-14, 7.0800D+02 ) ! Reaction Label R279 RKI( NCELL, 295) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.5600D-14, 7.0800D+02 ) ! Reaction Label R280 RKI( NCELL, 296) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.5000D-13, 5.0000D+02 ) ! Reaction Label R281 RKI( NCELL, 297) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.6000D-13, 7.0800D+02 ) ! Reaction Label R282 RKI( NCELL, 298) = CFACT * ARRHENUIS_T03( INV_TEMP, 9.6800D-14, 7.0800D+02 ) ! Reaction Label R283 RKI( NCELL, 299) = 3.5600D-14 * CFACT ! Reaction Label R284 RKI( NCELL, 300) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.9900D-15, 1.5100D+03 ) ! Reaction Label R285 RKI( NCELL, 301) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.0300D-12, 2.1100D+02 ) ! Reaction Label R286 RKI( NCELL, 302) = CFACT * ARRHENUIS_T03( INV_TEMP, 6.9000D-13, 4.6000D+02 ) ! Reaction Label R287 RKI( NCELL, 303) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.5900D-13, 5.2200D+02 ) ! Reaction Label R289 RKI( NCELL, 304) = CFACT * ARRHENUIS_T03( INV_TEMP, 9.4800D-13, 7.6500D+02 ) ! Reaction Label R290 RKI( NCELL, 305) = CFACT * ARRHENUIS_T03( INV_TEMP, 8.1100D-13, 7.6500D+02 ) ! Reaction Label R291 RKI( NCELL, 306) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.0900D-13, 7.6500D+02 ) ! Reaction Label ROCARO36 RKI( NCELL, 307) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.4000D-13, 7.6500D+02 ) ! Reaction Label ROCARO46 RKI( NCELL, 308) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.4000D-13, 7.6500D+02 ) ! Reaction Label ROCARO56 RKI( NCELL, 309) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.4000D-13, 7.6500D+02 ) ! Reaction Label ROCARO66 RKI( NCELL, 310) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.4000D-13, 7.6500D+02 ) ! Reaction Label R300 RKI( NCELL, 311) = CFACT * ARRHENUIS_T03( INV_TEMP, 8.4000D-14, 2.2100D+02 ) ! Reaction Label R301 RKI( NCELL, 312) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.4000D-13, 7.6500D+02 ) ! Reaction Label TRP35 RKI( NCELL, 313) = 1.0000D-10 * CFACT ! Reaction Label TRP36 RKI( NCELL, 314) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.4000D-13, 7.6500D+02 ) ! Reaction Label TRP37 RKI( NCELL, 315) = 1.0000D-10 * CFACT ! Reaction Label R302 RKI( NCELL, 316) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.4000D-13, 7.6500D+02 ) ! Reaction Label TRP38 RKI( NCELL, 317) = 1.0000D-10 * CFACT ! Reaction Label TRP39 RKI( NCELL, 318) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.4000D-13, 7.6500D+02 ) ! Reaction Label TRP40 RKI( NCELL, 319) = 1.0000D-10 * CFACT ! Reaction Label R303 RKI( NCELL, 320) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.5000D-12, 5.0000D+02 ) ! Reaction Label R304 RKI( NCELL, 321) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.5000D-12, 5.0000D+02 ) ! Reaction Label R305 RKI( NCELL, 322) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.5100D-13, 5.6500D+02 ) ! Reaction Label R306 RKI( NCELL, 323) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.5100D-13, 5.6500D+02 ) ! Reaction Label R307 RKI( NCELL, 324) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.5100D-13, 5.6500D+02 ) ! Reaction Label R308 RKI( NCELL, 325) = CFACT * ARRHENUIS_T03( INV_TEMP, 8.4000D-14, 2.2100D+02 ) ! Reaction Label R309 RKI( NCELL, 326) = CFACT * ARRHENUIS_T03( INV_TEMP, 8.4000D-14, 2.2100D+02 ) ! Reaction Label R310 RKI( NCELL, 327) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.6800D-12, 5.0000D+02 ) ! Reaction Label R311 RKI( NCELL, 328) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.6800D-12, 5.0000D+02 ) ! Reaction Label R312 RKI( NCELL, 329) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.4000D-13, 7.6500D+02 ) ! Reaction Label R313 RKI( NCELL, 330) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.4000D-13, 7.6500D+02 ) ! Reaction Label R314 RKI( NCELL, 331) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.4000D-13, 7.0800D+02 ) ! Reaction Label R315 RKI( NCELL, 332) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.4000D-13, 7.0800D+02 ) ! Reaction Label R316 RKI( NCELL, 333) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.5100D-13, 5.6500D+02 ) ! Reaction Label R317 RKI( NCELL, 334) = CFACT * ARRHENUIS_T03( INV_TEMP, 8.8500D-13, 7.6500D+02 ) ! Reaction Label R318 RKI( NCELL, 335) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.3700D-13, 7.6500D+02 ) ! Reaction Label R319 RKI( NCELL, 336) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.4000D-13, 7.0800D+02 ) ! Reaction Label R320 RKI( NCELL, 337) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.4000D-14, 1.5600D+03 ) ! Reaction Label R321 RKI( NCELL, 338) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.5000D-12, 5.0000D+02 ) ! Reaction Label R322 RKI( NCELL, 339) = 1.2000D-12 * CFACT ! Reaction Label R323 RKI( NCELL, 340) = 1.2000D-12 * CFACT ! Reaction Label R324 RKI( NCELL, 341) = 1.2000D-12 * CFACT ! Reaction Label R325 RKI( NCELL, 342) = 1.2000D-12 * CFACT ! Reaction Label R327 RKI( NCELL, 343) = 1.2000D-12 * CFACT ! Reaction Label R328 RKI( NCELL, 344) = 1.2000D-12 * CFACT ! Reaction Label R329 RKI( NCELL, 345) = 1.2000D-12 * CFACT ! Reaction Label ROCARO34 RKI( NCELL, 346) = 2.3000D-12 * CFACT ! Reaction Label ROCARO44 RKI( NCELL, 347) = 2.3000D-12 * CFACT ! Reaction Label ROCARO54 RKI( NCELL, 348) = 2.3000D-12 * CFACT ! Reaction Label ROCARO64 RKI( NCELL, 349) = 2.3000D-12 * CFACT ! Reaction Label R338 RKI( NCELL, 350) = 1.2000D-12 * CFACT ! Reaction Label R339 RKI( NCELL, 351) = 1.2000D-12 * CFACT ! Reaction Label R340 RKI( NCELL, 352) = 1.2000D-12 * CFACT ! Reaction Label R341 RKI( NCELL, 353) = 4.0000D-12 * CFACT ! Reaction Label R342 RKI( NCELL, 354) = 4.0000D-12 * CFACT ! Reaction Label R343 RKI( NCELL, 355) = 1.2000D-12 * CFACT ! Reaction Label R344 RKI( NCELL, 356) = 1.2000D-12 * CFACT ! Reaction Label R345 RKI( NCELL, 357) = 1.2000D-12 * CFACT ! Reaction Label R346 RKI( NCELL, 358) = 1.2000D-12 * CFACT ! Reaction Label R347 RKI( NCELL, 359) = 1.2000D-12 * CFACT ! Reaction Label R348 RKI( NCELL, 360) = 2.5000D-12 * CFACT ! Reaction Label R349 RKI( NCELL, 361) = 2.5000D-12 * CFACT ! Reaction Label R350 RKI( NCELL, 362) = 2.5000D-12 * CFACT ! Reaction Label R351 RKI( NCELL, 363) = 2.5000D-12 * CFACT ! Reaction Label R352 RKI( NCELL, 364) = 1.2000D-12 * CFACT ! Reaction Label R353 RKI( NCELL, 365) = 1.2000D-12 * CFACT ! Reaction Label R354 RKI( NCELL, 366) = 1.2000D-12 * CFACT ! Reaction Label R355 RKI( NCELL, 367) = 1.2000D-12 * CFACT ! Reaction Label R356 RKI( NCELL, 368) = 1.2000D-12 * CFACT ! Reaction Label R357 RKI( NCELL, 369) = 1.2000D-12 * CFACT ! Reaction Label R358 RKI( NCELL, 370) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.0000D-14, 1.0000D+03 ) ! Reaction Label R359 RKI( NCELL, 371) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.2500D-14, 1.0000D+03 ) ! Reaction Label R360 RKI( NCELL, 372) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.9600D-14, 1.0000D+03 ) ! Reaction Label R361 RKI( NCELL, 373) = 1.2000D-12 * CFACT ! Reaction Label R362 RKI( NCELL, 374) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.5000D-12, 5.0000D+02 ) ! Reaction Label R363 RKI( NCELL, 375) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.1300D-17, 2.9500D+03 ) ! Reaction Label TRP41 RKI( NCELL, 376) = 1.0000D-10 * CFACT ! Reaction Label TRP42 RKI( NCELL, 377) = 1.0000D-10 * CFACT ! Reaction Label TRP43 RKI( NCELL, 378) = 1.0000D-10 * CFACT ! Reaction Label TRP44 RKI( NCELL, 379) = 1.0000D-10 * CFACT ! Reaction Label TRP45 RKI( NCELL, 380) = 1.0000D-10 * CFACT ! Reaction Label TRP46 RKI( NCELL, 381) = 1.0000D-10 * CFACT ! Reaction Label TRP47 RKI( NCELL, 382) = 1.0000D-10 * CFACT ! Reaction Label TRP48 RKI( NCELL, 383) = 1.0000D-10 * CFACT ! Reaction Label TRP49 RKI( NCELL, 384) = 1.0000D-10 * CFACT ! Reaction Label TRP50 RKI( NCELL, 385) = 1.0000D-10 * CFACT ! Reaction Label TRP51 RKI( NCELL, 386) = 1.0000D-10 * CFACT ! Reaction Label TRP52 RKI( NCELL, 387) = 1.0000D-10 * CFACT ! Reaction Label RAM17 RKI( NCELL, 388) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.7800D-11, -4.0000D+02 ) ! Reaction Label R001c RKI( NCELL, 389) = 6.8900D-12 * CFACT ! Reaction Label R002c RKI( NCELL, 390) = 6.5500D-14 * CFACT ! Reaction Label T17 RKI( NCELL, 391) = CFACT * ARRHENUIS_T03( INV_TEMP, 8.0000D-12, 3.8000D+02 ) ! Reaction Label T18 RKI( NCELL, 392) = 2.9000D-19 * CFACT ! Reaction Label T19 RKI( NCELL, 393) = 3.4000D-15 * CFACT ! Reaction Label T10 RKI( NCELL, 395) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.4800D-11, 4.4800D+02 ) ! Reaction Label T10a RKI( NCELL, 396) = 9.0500D-12 * CFACT ! Reaction Label T10b RKI( NCELL, 397) = 2.3000D-12 * CFACT ! Reaction Label T10c RKI( NCELL, 398) = 1.6100D-11 * CFACT ! Reaction Label T10d RKI( NCELL, 399) = 2.3900D-12 * CFACT ! Reaction Label T10e RKI( NCELL, 400) = 1.3700D-11 * CFACT ! Reaction Label T11 RKI( NCELL, 401) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.3400D-14, -2.2830D+03 ) ! Reaction Label T12 RKI( NCELL, 402) = 1.0000D-13 * CFACT ! Reaction Label R003c RKI( NCELL, 403) = 5.0100D-11 * CFACT ! Reaction Label R004c RKI( NCELL, 404) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label R005c RKI( NCELL, 405) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.7500D-13, 9.8000D+02 ) ! Reaction Label R006c RKI( NCELL, 406) = 4.4000D-11 * CFACT ! Reaction Label R007c RKI( NCELL, 407) = 3.4300D-17 * CFACT ! Reaction Label R008c RKI( NCELL, 408) = 8.9900D-12 * CFACT ! Reaction Label R010c RKI( NCELL, 409) = 1.2000D-11 * CFACT ! Reaction Label R011c RKI( NCELL, 410) = 1.9000D-11 * CFACT ! Reaction Label R012c RKI( NCELL, 411) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.8400D-13, 1.3000D+03 ) ! Reaction Label R013c RKI( NCELL, 412) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label R014c RKI( NCELL, 413) = 2.3000D-12 * CFACT ! Reaction Label R015c RKI( NCELL, 414) = 1.2000D-14 * CFACT ! Reaction Label R016c RKI( NCELL, 415) = 1.9700D-10 * CFACT ! Reaction Label R017c RKI( NCELL, 416) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.8400D-13, 1.3000D+03 ) ! Reaction Label R019c RKI( NCELL, 417) = 2.3000D-12 * CFACT ! Reaction Label R020c RKI( NCELL, 418) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label HET_GLY RKI( NCELL, 419) = BLKHET( NCELL, IK_HETERO_GLY ) ! Reaction Label HET_MGLY RKI( NCELL, 420) = BLKHET( NCELL, IK_HETERO_MGLY ) ! Reaction Label HET_N2O5 RKI( NCELL, 421) = BLKHET( NCELL, IK_HETERO_N2O5IJ ) ! Reaction Label HET_N02 RKI( NCELL, 422) = BLKHET( NCELL, IK_HETERO_NO2 ) ! Reaction Label HET_IEPOX RKI( NCELL, 424) = BLKHET( NCELL, IK_HETERO_IEPOX ) ! Reaction Label HET_ISO3TET RKI( NCELL, 425) = BLKHET( NCELL, IK_HETERO_ISO3NOSJ ) ! Reaction Label HET_IEPOXOS RKI( NCELL, 426) = BLKHET( NCELL, IK_HETERO_ISO3OSJ ) ! Reaction Label ROCALK1c RKI( NCELL, 427) = 1.5300D-11 * CFACT ! Reaction Label ROCALK2c RKI( NCELL, 428) = 1.6800D-11 * CFACT ! Reaction Label ROCALK3c RKI( NCELL, 429) = 2.2400D-11 * CFACT ! Reaction Label ROCALK4c RKI( NCELL, 430) = 2.6700D-11 * CFACT ! Reaction Label ROCALK5c RKI( NCELL, 431) = 3.0900D-11 * CFACT ! Reaction Label ROCALK6c RKI( NCELL, 432) = 3.3800D-11 * CFACT ! Reaction Label HC1001 RKI( NCELL, 433) = 1.1000D-11 * CFACT ! Reaction Label ROCALK7c RKI( NCELL, 434) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label ROCALK8c RKI( NCELL, 435) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label ROCALK9c RKI( NCELL, 436) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label ROCALK10c RKI( NCELL, 437) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label ROCALK11c RKI( NCELL, 438) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label ROCALK12c RKI( NCELL, 439) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label HC1002 RKI( NCELL, 440) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label ROCALK13c RKI( NCELL, 441) = 2.3000D-12 * CFACT ! Reaction Label ROCALK14c RKI( NCELL, 442) = 2.3000D-12 * CFACT ! Reaction Label ROCALK15c RKI( NCELL, 443) = 2.3000D-12 * CFACT ! Reaction Label ROCALK16c RKI( NCELL, 444) = 2.3000D-12 * CFACT ! Reaction Label ROCALK17c RKI( NCELL, 445) = 2.3000D-12 * CFACT ! Reaction Label ROCALK18c RKI( NCELL, 446) = 2.3000D-12 * CFACT ! Reaction Label HC1003 RKI( NCELL, 447) = 2.3000D-12 * CFACT ! Reaction Label ROCALK19c RKI( NCELL, 448) = 2.1700D-11 * CFACT ! Reaction Label ROCALK20c RKI( NCELL, 449) = 2.2000D-11 * CFACT ! Reaction Label ROCALK21c RKI( NCELL, 450) = 2.2500D-11 * CFACT ! Reaction Label ROCALK22c RKI( NCELL, 451) = 2.2600D-11 * CFACT ! Reaction Label ROCALK23c RKI( NCELL, 452) = 2.2700D-11 * CFACT ! Reaction Label ROCALK24c RKI( NCELL, 453) = 2.2700D-11 * CFACT ! Reaction Label HC1004 RKI( NCELL, 454) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.6600D-13, 1.3000D+03 ) ! Reaction Label ROCALK25c RKI( NCELL, 455) = 1.8800D-01 * SFACT ! Reaction Label ROCALK26c RKI( NCELL, 456) = 1.8800D-01 * SFACT ! Reaction Label ROCALK27c RKI( NCELL, 457) = 1.8800D-01 * SFACT ! Reaction Label ROCALK28c RKI( NCELL, 458) = 1.8800D-01 * SFACT ! Reaction Label ROCALK29c RKI( NCELL, 459) = 1.8800D-01 * SFACT ! Reaction Label ROCALK30c RKI( NCELL, 460) = 1.8800D-01 * SFACT ! Reaction Label HC1005 RKI( NCELL, 461) = 1.8800D-01 * SFACT ! Reaction Label ROCALK31c RKI( NCELL, 462) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label ROCALK32c RKI( NCELL, 463) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label ROCALK33c RKI( NCELL, 464) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label ROCALK34c RKI( NCELL, 465) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label ROCALK35c RKI( NCELL, 466) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label ROCALK36c RKI( NCELL, 467) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label HC1006 RKI( NCELL, 468) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label ROCALK37c RKI( NCELL, 469) = 2.3000D-12 * CFACT ! Reaction Label ROCALK38c RKI( NCELL, 470) = 2.3000D-12 * CFACT ! Reaction Label ROCALK39c RKI( NCELL, 471) = 2.3000D-12 * CFACT ! Reaction Label ROCALK40c RKI( NCELL, 472) = 2.3000D-12 * CFACT ! Reaction Label ROCALK41c RKI( NCELL, 473) = 2.3000D-12 * CFACT ! Reaction Label ROCALK42c RKI( NCELL, 474) = 2.3000D-12 * CFACT ! Reaction Label HC1007 RKI( NCELL, 475) = 2.3000D-12 * CFACT ! Reaction Label ROCALK43c RKI( NCELL, 476) = 2.1700D-11 * CFACT ! Reaction Label ROCALK44c RKI( NCELL, 477) = 2.2000D-11 * CFACT ! Reaction Label ROCALK45c RKI( NCELL, 478) = 2.2500D-11 * CFACT ! Reaction Label ROCALK46c RKI( NCELL, 479) = 2.2600D-11 * CFACT ! Reaction Label ROCALK47c RKI( NCELL, 480) = 2.2700D-11 * CFACT ! Reaction Label ROCALK48c RKI( NCELL, 481) = 2.2700D-11 * CFACT ! Reaction Label HC1008 RKI( NCELL, 482) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.6600D-13, 1.3000D+03 ) ! Reaction Label ROCARO01 RKI( NCELL, 483) = 1.8100D-11 * CFACT ! Reaction Label ROCARO02 RKI( NCELL, 484) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.9100D-13, 1.3000D+03 ) ! Reaction Label ROCARO03 RKI( NCELL, 485) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label ROCARO04 RKI( NCELL, 486) = 2.3000D-12 * CFACT ! Reaction Label ROCARO05 RKI( NCELL, 487) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.5600D-14, 7.0800D+02 ) ! Reaction Label ROCARO06 RKI( NCELL, 488) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.4000D-13, 7.6500D+02 ) ! Reaction Label ROCARO11 RKI( NCELL, 489) = 1.8100D-11 * CFACT ! Reaction Label ROCARO12 RKI( NCELL, 490) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.9100D-13, 1.3000D+03 ) ! Reaction Label ROCARO13 RKI( NCELL, 491) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label ROCARO14 RKI( NCELL, 492) = 2.3000D-12 * CFACT ! Reaction Label ROCARO15 RKI( NCELL, 493) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.5600D-14, 7.0800D+02 ) ! Reaction Label ROCARO16 RKI( NCELL, 494) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.4000D-13, 7.6500D+02 ) ! Reaction Label ROCARO21 RKI( NCELL, 495) = 2.3100D-11 * CFACT ! Reaction Label ROCARO22 RKI( NCELL, 496) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.9100D-13, 1.3000D+03 ) ! Reaction Label ROCARO23 RKI( NCELL, 497) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label ROCARO24 RKI( NCELL, 498) = 2.3000D-12 * CFACT ! Reaction Label ROCARO25 RKI( NCELL, 499) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.5600D-14, 7.0800D+02 ) ! Reaction Label ROCARO26 RKI( NCELL, 500) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.4000D-13, 7.6500D+02 ) ! Reaction Label ROCOXY1c RKI( NCELL, 501) = 5.9000D-11 * CFACT ! Reaction Label ROCOXY2c RKI( NCELL, 502) = 6.0700D-11 * CFACT ! Reaction Label ROCOXY3c RKI( NCELL, 503) = 5.5400D-11 * CFACT ! Reaction Label ROCOXY4c RKI( NCELL, 504) = 5.6300D-11 * CFACT ! Reaction Label ROCOXY5c RKI( NCELL, 505) = 5.4600D-11 * CFACT ! Reaction Label ROCOXY6c RKI( NCELL, 506) = 4.5000D-11 * CFACT ! Reaction Label ROCOXY7c RKI( NCELL, 507) = 5.1700D-11 * CFACT ! Reaction Label ROCOXY8c RKI( NCELL, 508) = 4.7300D-11 * CFACT ! Reaction Label ROCOXY9c RKI( NCELL, 509) = 4.6000D-11 * CFACT ! Reaction Label ROCOXY10c RKI( NCELL, 510) = 3.8000D-11 * CFACT ! Reaction Label ROCOXY11c RKI( NCELL, 511) = 3.9300D-11 * CFACT ! Reaction Label ROCOXY12c RKI( NCELL, 512) = 3.5200D-11 * CFACT ! Reaction Label ROCOXY13c RKI( NCELL, 513) = 3.1200D-11 * CFACT ! Reaction Label ROCOXY14c RKI( NCELL, 514) = 2.4000D-11 * CFACT ! Reaction Label ROCOXY15c RKI( NCELL, 515) = 2.0500D-11 * CFACT ! Reaction Label ROCOXY16c RKI( NCELL, 516) = 4.6900D-11 * CFACT END DO ! Multiply rate constants by [M], [O2], [N2], [H2O], [H2], or [CH4] ! where needed and return IF ( NWM .GT. 0 ) THEN DO NRT = 1, NWM IRXN = NRXWM( NRT ) DO NCELL = 1, NUMCELLS RKI( NCELL,IRXN ) = RKI( NCELL,IRXN ) * ATM_AIR END DO END DO END IF IF ( NWO2 .GT. 0 ) THEN DO NRT = 1, NWO2 IRXN = NRXWO2( NRT ) DO NCELL = 1, NUMCELLS RKI( NCELL,IRXN ) = RKI( NCELL,IRXN ) * ATM_O2 END DO END DO END IF IF ( NWN2 .GT. 0 ) THEN DO NRT = 1, NWN2 IRXN = NRXWN2( NRT ) DO NCELL = 1, NUMCELLS RKI( NCELL,IRXN ) = RKI( NCELL,IRXN ) * ATM_N2 END DO END DO END IF IF ( NWW .GT. 0 ) THEN DO NRT = 1, NWW IRXN = NRXWW( NRT ) DO NCELL = 1, NUMCELLS RKI( NCELL,IRXN ) = RKI( NCELL,IRXN ) * BLKH2O( NCELL ) END DO END DO END IF IF ( NWH2 .GT. 0 ) THEN DO NRT = 1, NWH2 IRXN = NRXWH2( NRT ) DO NCELL = 1, NUMCELLS RKI( NCELL,IRXN ) = RKI( NCELL,IRXN ) * ATM_H2 END DO END DO END IF IF ( NWCH4 .GT. 0 ) THEN DO NRT = 1, NWCH4 IRXN = NRXWCH4( NRT ) DO NCELL = 1, NUMCELLS RKI( NCELL,IRXN ) = RKI( NCELL,IRXN ) * ATM_CH4 END DO END DO END IF RETURN END SUBROUTINE CALC_RCONST FUNCTION MAP_CHEMISTRY_SPECIES() RESULT ( SUCCESS ) ! Purpose find or test the CGRID Index, Species Type, and Conversion Factor ! for the Mechanism against the CMAQ namelists USE UTILIO_DEFN USE CGRID_SPCS USE RXNS_DATA IMPLICIT NONE !Parameters: CHARACTER( 1 ), PARAMETER :: BL = ' ' INTEGER, PARAMETER :: SPC_DIM = 200 !Local: LOGICAL SUCCESS INTEGER I, IOS, J INTEGER I1, I2, I3, I4 ! SURROGATE TYPE 1 COUNTERS INTEGER J1, J2 ! SURROGATE TYPE 2 COUNTERS INTEGER K1, K2, K3, K4, K5 ! CONTROL TYPE COUNTERS INTEGER ICALL LOGICAL :: ORDER = .TRUE. LOGICAL :: FOUND = .TRUE. CHARACTER( 120 ) :: XMSG CHARACTER( 16 ), ALLOCATABLE :: CGRID_SPC ( : ) CHARACTER( 16 ), ALLOCATABLE :: NML_SPC ( : ) CHARACTER( 2 ), ALLOCATABLE :: NML_TYPE ( : ) INTEGER, ALLOCATABLE :: NML_INDEX ( : ) LOGICAL, ALLOCATABLE :: NML_CONVERT( : ) REAL, ALLOCATABLE :: NML_MOLWT ( : ) REAL :: DELTA ! fractional difference LOGICAL, SAVE :: INITIALIZED = .FALSE. IF( INITIALIZED )RETURN INITIALIZED = .TRUE. SUCCESS = .TRUE. ALLOCATE ( CGRID_SPC( NSPCSD - 1 ), & & NML_SPC ( NSPCSD - 1 ), & & NML_INDEX( NSPCSD - 1 ), & & NML_TYPE( NSPCSD - 1 ), & & NML_CONVERT( NSPCSD - 1 ), & & NML_MOLWT( NSPCSD - 1 ), & & STAT = IOS ) J = 0 NML_INDEX = -1 TYPE_INDEX = -1 NML_TYPE = '??' NML_CONVERT = .FALSE. DO I = 1, N_GC_SPC ! load gc names and indices J = J + 1 CGRID_SPC( I ) = GC_SPC( I ) NML_INDEX( J ) = I + GC_STRT -1 NML_TYPE( J ) = 'GC' NML_MOLWT( J ) = GC_MOLWT( I ) END DO DO I = 1, N_AE_SPC ! load ae names and indices J = J + 1 CGRID_SPC( J ) = AE_SPC( I ) NML_INDEX( J ) = I + AE_STRT - 1 NML_TYPE( J ) = 'AE' NML_CONVERT( J ) = .TRUE. NML_MOLWT( J ) = AE_MOLWT( I ) END DO DO I = 1, N_NR_SPC ! load nr names and indices J = J + 1 CGRID_SPC( J ) = NR_SPC( I ) NML_INDEX( J ) = I + NR_STRT - 1 NML_TYPE( J ) = 'NR' NML_MOLWT( J ) = NR_MOLWT( I ) END DO DO I = 1, N_TR_SPC ! load tr names and indices J = J + 1 CGRID_SPC( J ) = TR_SPC( I ) NML_INDEX( J ) = I + TR_STRT - 1 NML_TYPE( J ) = 'TR' NML_MOLWT( J ) = TR_MOLWT( I ) END DO NML_SPC( 1:(NSPCSD-1) ) = CGRID_SPC( 1:(NSPCSD-1) ) ! determine if mechanism species are in cgrid species DO I = 1, NUMB_MECH_SPC ! set species informations arrays using SPECIES_LIST array before mapping CHEMISTRY_SPC( I ) = SPECIES_LIST( I )%CHEMISTRY_SPC CGRID_INDEX ( I ) = SPECIES_LIST( I )%CGRID_INDEX SPECIES_TYPE ( I ) = SPECIES_LIST( I )%SPECIES_TYPE CONVERT_CONC ( I ) = SPECIES_LIST( I )%CONVERT_CONC SPECIES_MOLWT( I ) = SPECIES_LIST( I )%SPECIES_MOLWT I1 = INDEX1R( CHEMISTRY_SPC( I ), (NSPCSD-1), CGRID_SPC ) IF ( I1 .LT. 1 ) THEN FOUND = .FALSE. ELSE FOUND = .TRUE. IF( .NOT. MAPPED_TO_CGRID )THEN CGRID_INDEX( I ) = NML_INDEX( I1 ) SPECIES_TYPE( I ) = NML_TYPE ( I1 ) SPECIES_MOLWT( I ) = NML_MOLWT( I1 ) CONVERT_CONC( I ) = NML_CONVERT( I1 ) ELSE IF(CGRID_INDEX( I ) .NE. NML_INDEX( I1 ))THEN SUCCESS = .FALSE. XMSG = '*** For Species ' // TRIM( CHEMISTRY_SPC( I ) ) & & // ' cgrid index does not match mechanism value.' WRITE( LOGDEV,'( /5X, A )' ) TRIM( XMSG ) WRITE( XMSG,'(A,I3,1X,I3)')'CGRID Indices: Mechanism and NML Values are ', & & CGRID_INDEX( I ),NML_INDEX( I1 ) WRITE( LOGDEV,'( 5X, A )' )XMSG END IF IF(CONVERT_CONC( I ) .NEQV. NML_CONVERT( I1 ))THEN SUCCESS = .FALSE. XMSG = '*** For Species ' // TRIM( CHEMISTRY_SPC( I ) ) & & // ' species unit conversion flag does not match mechanism value.' WRITE( LOGDEV,'( /5X, A )' ) TRIM( XMSG ) WRITE( XMSG,'(A,1X,L21X,L2)')'CONVERSION FLAGS: Mechanism and NML Values are ', & & CONVERT_CONC( I ),NML_CONVERT( I1 ) WRITE( LOGDEV,'( 5X, A )' )XMSG WRITE( XMSG,'(A,1X,A3,1X,A3)')'SPECIES TYPE: Mechanism and NML Values are ', & & SPECIES_TYPE( I ),NML_TYPE( I1 ) WRITE( LOGDEV,'( 5X, A )' )XMSG END IF DELTA = ( SPECIES_MOLWT( I ) - NML_MOLWT( I1 ) )/MAX(NML_MOLWT( I1 ),1.0E-20) IF( ABS( DELTA ) .GE. 0.05 )THEN IF( CONVERT_CONC( I ) )SUCCESS = .FALSE. XMSG = '*** For Species ' // TRIM( CHEMISTRY_SPC( I ) ) & & // ' species molecular weight does not match mechanism value.' WRITE( LOGDEV,'( /5X, A )' ) TRIM( XMSG ) WRITE( XMSG,'(A,2(ES12.4,1X))')'Molecular Weight: Mechanism and NML Values are ', & & SPECIES_MOLWT( I ), NML_MOLWT( I1 ) WRITE( LOGDEV,'( 5X, A )' )XMSG END IF END IF END IF IF( INDEX( CHEMISTRY_SPC( I ), 'SRF') .GT. 0 )THEN SUCCESS = .FALSE. XMSG = '*** reactions cannot use modal aerosol surface area as species' WRITE( LOGDEV,'( /5X, A )' ) TRIM( XMSG ) XMSG = TRIM( CHEMISTRY_SPC( I ) ) WRITE( LOGDEV,'( 2X, A )' ) TRIM( XMSG ) END IF IF( INDEX( CHEMISTRY_SPC( I ), 'NUM') .GT. 0 )THEN SUCCESS = .FALSE. XMSG = '*** reactions cannot use modal aerosol number density as species' WRITE( LOGDEV,'( /5X, A )' ) TRIM( XMSG ) XMSG = TRIM( CHEMISTRY_SPC( I ) ) WRITE( LOGDEV,'( 2X, A )' ) TRIM( XMSG ) END IF IF ( .NOT. FOUND ) THEN XMSG = 'Fatal error: Mechanism Species found not in species namelist:' WRITE( LOGDEV,'( /5X, A )', ADVANCE = 'NO' ) TRIM( XMSG ) XMSG = TRIM( CHEMISTRY_SPC( I ) ) WRITE( LOGDEV,'( 2X, A )' ) TRIM( XMSG ) SUCCESS = .FALSE. END IF END DO IF( SUCCESS )RETURN WRITE(LOGDEV,99901)TRIM( MECHNAME ) XMSG = 'The FATAL errors found in namelist used. Check ' & & // 'the log of exiting processor if more details are needed.' CALL M3WARN('MAP_CHEMISTRY_SPECIES',0,0,XMSG) 99901 FORMAT( / 'FATAL error(s) found in the namelists used. Check that ' & & / 'these namelists contain the above data as the respective files ' & & / 'in the respository version of the mechanism: ' , A ) RETURN END FUNCTION MAP_CHEMISTRY_SPECIES !---------------------------------------------------------------------------------------- INTEGER FUNCTION INDEX1R ( NAME, N, NLIST ) IMPLICIT NONE CHARACTER( * ) NAME ! character string being searched for INTEGER N ! length of array to be searched CHARACTER( * ) NLIST( : ) ! array to be searched INTEGER I DO I = 1, N IF ( NAME .EQ. NLIST( I ) ) THEN INDEX1R = I RETURN END IF END DO INDEX1R = 0 RETURN END FUNCTION INDEX1R SUBROUTINE RESET_SPECIES_POINTERS( IOLD2NEW ) USE RXNS_DATA IMPLICIT NONE INTEGER, INTENT( IN ) :: IOLD2NEW( :,: ) INDEX_O3 = IOLD2NEW( INDEX_O3 , 1 ) INDEX_O3P = IOLD2NEW( INDEX_O3P , 1 ) INDEX_O1D = IOLD2NEW( INDEX_O1D , 1 ) INDEX_H2O2 = IOLD2NEW( INDEX_H2O2 , 1 ) INDEX_HO = IOLD2NEW( INDEX_HO , 1 ) INDEX_NO2 = IOLD2NEW( INDEX_NO2 , 1 ) INDEX_NO = IOLD2NEW( INDEX_NO , 1 ) INDEX_NO3 = IOLD2NEW( INDEX_NO3 , 1 ) INDEX_HONO = IOLD2NEW( INDEX_HONO , 1 ) INDEX_HNO3 = IOLD2NEW( INDEX_HNO3 , 1 ) INDEX_HNO4 = IOLD2NEW( INDEX_HNO4 , 1 ) INDEX_HO2 = IOLD2NEW( INDEX_HO2 , 1 ) INDEX_HCHO = IOLD2NEW( INDEX_HCHO , 1 ) INDEX_CO = IOLD2NEW( INDEX_CO , 1 ) INDEX_ACD = IOLD2NEW( INDEX_ACD , 1 ) INDEX_MO2 = IOLD2NEW( INDEX_MO2 , 1 ) INDEX_ALD = IOLD2NEW( INDEX_ALD , 1 ) INDEX_ETHP = IOLD2NEW( INDEX_ETHP , 1 ) INDEX_ACT = IOLD2NEW( INDEX_ACT , 1 ) INDEX_ACO3 = IOLD2NEW( INDEX_ACO3 , 1 ) INDEX_UALD = IOLD2NEW( INDEX_UALD , 1 ) INDEX_KET = IOLD2NEW( INDEX_KET , 1 ) INDEX_PINAL = IOLD2NEW( INDEX_PINAL , 1 ) INDEX_HC10P = IOLD2NEW( INDEX_HC10P , 1 ) INDEX_LIMAL = IOLD2NEW( INDEX_LIMAL , 1 ) INDEX_MEK = IOLD2NEW( INDEX_MEK , 1 ) INDEX_HKET = IOLD2NEW( INDEX_HKET , 1 ) INDEX_MACR = IOLD2NEW( INDEX_MACR , 1 ) INDEX_MACP = IOLD2NEW( INDEX_MACP , 1 ) INDEX_XO2 = IOLD2NEW( INDEX_XO2 , 1 ) INDEX_MVK = IOLD2NEW( INDEX_MVK , 1 ) INDEX_GLY = IOLD2NEW( INDEX_GLY , 1 ) INDEX_MGLY = IOLD2NEW( INDEX_MGLY , 1 ) INDEX_DCB1 = IOLD2NEW( INDEX_DCB1 , 1 ) INDEX_DCB2 = IOLD2NEW( INDEX_DCB2 , 1 ) INDEX_BALD = IOLD2NEW( INDEX_BALD , 1 ) INDEX_CHO = IOLD2NEW( INDEX_CHO , 1 ) INDEX_OP1 = IOLD2NEW( INDEX_OP1 , 1 ) INDEX_OP2 = IOLD2NEW( INDEX_OP2 , 1 ) INDEX_OPB = IOLD2NEW( INDEX_OPB , 1 ) INDEX_OP3 = IOLD2NEW( INDEX_OP3 , 1 ) INDEX_PAA = IOLD2NEW( INDEX_PAA , 1 ) INDEX_ONIT = IOLD2NEW( INDEX_ONIT , 1 ) INDEX_PAN = IOLD2NEW( INDEX_PAN , 1 ) INDEX_N2O5 = IOLD2NEW( INDEX_N2O5 , 1 ) INDEX_SO2 = IOLD2NEW( INDEX_SO2 , 1 ) INDEX_SULF = IOLD2NEW( INDEX_SULF , 1 ) INDEX_SULRXN = IOLD2NEW( INDEX_SULRXN , 1 ) INDEX_ETH = IOLD2NEW( INDEX_ETH , 1 ) INDEX_HC3 = IOLD2NEW( INDEX_HC3 , 1 ) INDEX_HC3P = IOLD2NEW( INDEX_HC3P , 1 ) INDEX_ASOATJ = IOLD2NEW( INDEX_ASOATJ , 1 ) INDEX_HC5 = IOLD2NEW( INDEX_HC5 , 1 ) INDEX_HC5P = IOLD2NEW( INDEX_HC5P , 1 ) INDEX_ETE = IOLD2NEW( INDEX_ETE , 1 ) INDEX_ETEP = IOLD2NEW( INDEX_ETEP , 1 ) INDEX_OLT = IOLD2NEW( INDEX_OLT , 1 ) INDEX_OLTP = IOLD2NEW( INDEX_OLTP , 1 ) INDEX_OLI = IOLD2NEW( INDEX_OLI , 1 ) INDEX_OLIP = IOLD2NEW( INDEX_OLIP , 1 ) INDEX_ACE = IOLD2NEW( INDEX_ACE , 1 ) INDEX_ORA1 = IOLD2NEW( INDEX_ORA1 , 1 ) INDEX_BEN = IOLD2NEW( INDEX_BEN , 1 ) INDEX_BENP = IOLD2NEW( INDEX_BENP , 1 ) INDEX_PHEN = IOLD2NEW( INDEX_PHEN , 1 ) INDEX_TOL = IOLD2NEW( INDEX_TOL , 1 ) INDEX_TOLP = IOLD2NEW( INDEX_TOLP , 1 ) INDEX_CSL = IOLD2NEW( INDEX_CSL , 1 ) INDEX_XYM = IOLD2NEW( INDEX_XYM , 1 ) INDEX_XYMP = IOLD2NEW( INDEX_XYMP , 1 ) INDEX_XYE = IOLD2NEW( INDEX_XYE , 1 ) INDEX_XYEP = IOLD2NEW( INDEX_XYEP , 1 ) INDEX_ISO = IOLD2NEW( INDEX_ISO , 1 ) INDEX_INO2 = IOLD2NEW( INDEX_INO2 , 1 ) INDEX_NALD = IOLD2NEW( INDEX_NALD , 1 ) INDEX_ISOP = IOLD2NEW( INDEX_ISOP , 1 ) INDEX_ISHP = IOLD2NEW( INDEX_ISHP , 1 ) INDEX_ISON = IOLD2NEW( INDEX_ISON , 1 ) INDEX_IPN = IOLD2NEW( INDEX_IPN , 1 ) INDEX_IEPOX = IOLD2NEW( INDEX_IEPOX , 1 ) INDEX_IPC = IOLD2NEW( INDEX_IPC , 1 ) INDEX_ROH = IOLD2NEW( INDEX_ROH , 1 ) INDEX_API = IOLD2NEW( INDEX_API , 1 ) INDEX_APIP1 = IOLD2NEW( INDEX_APIP1 , 1 ) INDEX_APIP2 = IOLD2NEW( INDEX_APIP2 , 1 ) INDEX_LIM = IOLD2NEW( INDEX_LIM , 1 ) INDEX_LIMP1 = IOLD2NEW( INDEX_LIMP1 , 1 ) INDEX_LIMP2 = IOLD2NEW( INDEX_LIMP2 , 1 ) INDEX_PINALP = IOLD2NEW( INDEX_PINALP , 1 ) INDEX_RCO3 = IOLD2NEW( INDEX_RCO3 , 1 ) INDEX_LIMALP = IOLD2NEW( INDEX_LIMALP , 1 ) INDEX_ACTP = IOLD2NEW( INDEX_ACTP , 1 ) INDEX_MEKP = IOLD2NEW( INDEX_MEKP , 1 ) INDEX_KETP = IOLD2NEW( INDEX_KETP , 1 ) INDEX_MCP = IOLD2NEW( INDEX_MCP , 1 ) INDEX_MVKP = IOLD2NEW( INDEX_MVKP , 1 ) INDEX_UALP = IOLD2NEW( INDEX_UALP , 1 ) INDEX_DCB3 = IOLD2NEW( INDEX_DCB3 , 1 ) INDEX_BALP = IOLD2NEW( INDEX_BALP , 1 ) INDEX_ADDC = IOLD2NEW( INDEX_ADDC , 1 ) INDEX_MCT = IOLD2NEW( INDEX_MCT , 1 ) INDEX_MCTO = IOLD2NEW( INDEX_MCTO , 1 ) INDEX_MOH = IOLD2NEW( INDEX_MOH , 1 ) INDEX_EOH = IOLD2NEW( INDEX_EOH , 1 ) INDEX_ETEG = IOLD2NEW( INDEX_ETEG , 1 ) INDEX_MAHP = IOLD2NEW( INDEX_MAHP , 1 ) INDEX_ORA2 = IOLD2NEW( INDEX_ORA2 , 1 ) INDEX_ORAP = IOLD2NEW( INDEX_ORAP , 1 ) INDEX_PPN = IOLD2NEW( INDEX_PPN , 1 ) INDEX_MPAN = IOLD2NEW( INDEX_MPAN , 1 ) INDEX_TRPN = IOLD2NEW( INDEX_TRPN , 1 ) INDEX_HOM = IOLD2NEW( INDEX_HOM , 1 ) INDEX_MCTP = IOLD2NEW( INDEX_MCTP , 1 ) INDEX_OLNN = IOLD2NEW( INDEX_OLNN , 1 ) INDEX_OLND = IOLD2NEW( INDEX_OLND , 1 ) INDEX_APINP1 = IOLD2NEW( INDEX_APINP1 , 1 ) INDEX_APINP2 = IOLD2NEW( INDEX_APINP2 , 1 ) INDEX_LIMNP1 = IOLD2NEW( INDEX_LIMNP1 , 1 ) INDEX_LIMNP2 = IOLD2NEW( INDEX_LIMNP2 , 1 ) INDEX_ADCN = IOLD2NEW( INDEX_ADCN , 1 ) INDEX_VROCP4OXY2 = IOLD2NEW( INDEX_VROCP4OXY2 , 1 ) INDEX_VROCN1OXY6 = IOLD2NEW( INDEX_VROCN1OXY6 , 1 ) INDEX_FURANONE = IOLD2NEW( INDEX_FURANONE , 1 ) INDEX_VROCP3OXY2 = IOLD2NEW( INDEX_VROCP3OXY2 , 1 ) INDEX_VROCP0OXY4 = IOLD2NEW( INDEX_VROCP0OXY4 , 1 ) INDEX_BAL1 = IOLD2NEW( INDEX_BAL1 , 1 ) INDEX_BAL2 = IOLD2NEW( INDEX_BAL2 , 1 ) INDEX_ELHOM = IOLD2NEW( INDEX_ELHOM , 1 ) INDEX_VROCIOXY = IOLD2NEW( INDEX_VROCIOXY , 1 ) INDEX_SLOWROC = IOLD2NEW( INDEX_SLOWROC , 1 ) INDEX_ACRO = IOLD2NEW( INDEX_ACRO , 1 ) INDEX_BDE13 = IOLD2NEW( INDEX_BDE13 , 1 ) INDEX_BDE13P = IOLD2NEW( INDEX_BDE13P , 1 ) INDEX_FURAN = IOLD2NEW( INDEX_FURAN , 1 ) INDEX_FURANO2 = IOLD2NEW( INDEX_FURANO2 , 1 ) INDEX_PROG = IOLD2NEW( INDEX_PROG , 1 ) INDEX_SESQ = IOLD2NEW( INDEX_SESQ , 1 ) INDEX_SESQNRO2 = IOLD2NEW( INDEX_SESQNRO2 , 1 ) INDEX_VROCN2OXY2 = IOLD2NEW( INDEX_VROCN2OXY2 , 1 ) INDEX_SESQRO2 = IOLD2NEW( INDEX_SESQRO2 , 1 ) INDEX_VROCP0OXY2 = IOLD2NEW( INDEX_VROCP0OXY2 , 1 ) INDEX_VROCP1OXY3 = IOLD2NEW( INDEX_VROCP1OXY3 , 1 ) INDEX_AGLYJ = IOLD2NEW( INDEX_AGLYJ , 1 ) INDEX_IEPOXP = IOLD2NEW( INDEX_IEPOXP , 1 ) INDEX_AISO3NOSJ = IOLD2NEW( INDEX_AISO3NOSJ , 1 ) INDEX_ASO4J = IOLD2NEW( INDEX_ASO4J , 1 ) INDEX_AISO3OSJ = IOLD2NEW( INDEX_AISO3OSJ , 1 ) INDEX_VROCP6ALK = IOLD2NEW( INDEX_VROCP6ALK , 1 ) INDEX_VROCP6ALKP = IOLD2NEW( INDEX_VROCP6ALKP , 1 ) INDEX_VROCP5ALK = IOLD2NEW( INDEX_VROCP5ALK , 1 ) INDEX_VROCP5ALKP = IOLD2NEW( INDEX_VROCP5ALKP , 1 ) INDEX_VROCP4ALK = IOLD2NEW( INDEX_VROCP4ALK , 1 ) INDEX_VROCP4ALKP = IOLD2NEW( INDEX_VROCP4ALKP , 1 ) INDEX_VROCP3ALK = IOLD2NEW( INDEX_VROCP3ALK , 1 ) INDEX_VROCP3ALKP = IOLD2NEW( INDEX_VROCP3ALKP , 1 ) INDEX_VROCP2ALK = IOLD2NEW( INDEX_VROCP2ALK , 1 ) INDEX_VROCP2ALKP = IOLD2NEW( INDEX_VROCP2ALKP , 1 ) INDEX_VROCP1ALK = IOLD2NEW( INDEX_VROCP1ALK , 1 ) INDEX_VROCP1ALKP = IOLD2NEW( INDEX_VROCP1ALKP , 1 ) INDEX_HC10 = IOLD2NEW( INDEX_HC10 , 1 ) INDEX_VROCP6ALKP2 = IOLD2NEW( INDEX_VROCP6ALKP2, 1 ) INDEX_VROCP5ALKP2 = IOLD2NEW( INDEX_VROCP5ALKP2, 1 ) INDEX_VROCP4ALKP2 = IOLD2NEW( INDEX_VROCP4ALKP2, 1 ) INDEX_VROCP2OXY2 = IOLD2NEW( INDEX_VROCP2OXY2 , 1 ) INDEX_VROCP3ALKP2 = IOLD2NEW( INDEX_VROCP3ALKP2, 1 ) INDEX_VROCP1OXY1 = IOLD2NEW( INDEX_VROCP1OXY1 , 1 ) INDEX_VROCP2ALKP2 = IOLD2NEW( INDEX_VROCP2ALKP2, 1 ) INDEX_VROCP1ALKP2 = IOLD2NEW( INDEX_VROCP1ALKP2, 1 ) INDEX_VROCN1OXY1 = IOLD2NEW( INDEX_VROCN1OXY1 , 1 ) INDEX_HC10P2 = IOLD2NEW( INDEX_HC10P2 , 1 ) INDEX_VROCP6ARO = IOLD2NEW( INDEX_VROCP6ARO , 1 ) INDEX_VROCP6AROP = IOLD2NEW( INDEX_VROCP6AROP , 1 ) INDEX_VROCN2OXY4 = IOLD2NEW( INDEX_VROCN2OXY4 , 1 ) INDEX_VROCN1OXY3 = IOLD2NEW( INDEX_VROCN1OXY3 , 1 ) INDEX_VROCP5ARO = IOLD2NEW( INDEX_VROCP5ARO , 1 ) INDEX_VROCP5AROP = IOLD2NEW( INDEX_VROCP5AROP , 1 ) INDEX_NAPH = IOLD2NEW( INDEX_NAPH , 1 ) INDEX_NAPHP = IOLD2NEW( INDEX_NAPHP , 1 ) INDEX_VROCN2OXY8 = IOLD2NEW( INDEX_VROCN2OXY8 , 1 ) INDEX_VROCP5OXY1 = IOLD2NEW( INDEX_VROCP5OXY1 , 1 ) INDEX_VROCP6OXY1 = IOLD2NEW( INDEX_VROCP6OXY1 , 1 ) END SUBROUTINE RESET_SPECIES_POINTERS END MODULE RXNS_FUNCTION ================================================ FILE: CCTM/src/MECHS/cracmm1amore_aq/SpecDef_Conc_cracmm1amore_aq.txt ================================================ !#start YYYYJJJ 010000 !#end YYYYJJJ 000000 #layer 1 / ! This Species Definition File is for Use with the COMBINE tool built for ! post-processing CMAQ output. It is compatible with CMAQv5.2. ! Date: May 12 2017 ! Output variables that begin with 'PM' represent those in which a size cut was ! applied based on modeled aerosol mode parameters. For example, PM25_NA is all ! sodium that falls below 2.5 um diameter. These 'PM' variables are used for ! comparisons at IMPROVE and CSN sites. ! Output variables that begin with 'PMAMS' represent the mass that would have ! been detected by an Aerosol Mass Spectrometer. ! Output variables beginning with 'A' (aside from AIR_DENS) represent a ! combination of aerosol species in which no size cut was applied. For example, ! ASO4IJ is the sum of i-mode and j-mode sulfate. These 'A' variables are used ! for comparisons at CASTNet sites. ! Output variables beginning with 'PMC' refer to the coarse fraction of total PM, ! computed by summing all modes and subtracting the PM2.5 fraction. These 'PMC' ! variables are used for comparisons at SEARCH sites. ! This Species Definition File is just for use with the uncoupled, offline CMAQ, ! model. If you are processing WRF-CMAQ results, a different Species Definition ! file is required. / File [1]: CMAQ conc/aconc file / File [2]: METCRO3D file / File [3]: ELMO/AELMO file / File [4]: METCRO2D file / /new species ,units ,expression !-------------------------------------------! !------------- Meteorology -----------------! !-------------------------------------------! AIR_DENS ,kg m-3 ,DENS[2] RH ,% ,100.00*RH[3] SFC_TMP ,C ,(TEMP2[4]-273.15) PBLH ,m ,PBL[4] SOL_RAD ,W m-2 ,RGRND[4] precip ,cm ,RC[4]>=0 ? RN[4]+RC[4] : RN[4] WSPD10 ,m s-1 ,WSPD10[4] WDIR10 ,deg ,WDIR10[4] !-------------------------------------------! !--------------- Gases ---------------------! !-------------------------------------------! CO ,ppbV ,1000.0*CO[1] H2O2 ,ppbV ,1000.0*H2O2[1] HNO3 ,ppbV ,1000.0*HNO3[1] HNO3_UGM3 ,ug m-3 ,1000.0*(HNO3[1]*2.1756*DENS[2]) HONO ,ppbV ,1000.0*HONO[1] HOX ,ppbV ,1000.0*(HO[1]+HO2[1]) OH ,ppbV ,1000.0*HO[1] N2O5 ,ppbV ,1000.0*N2O5[1] NH3 ,ppbV ,1000.0*NH3[1] NH3_UGM3 ,ug m-3 ,1000.0*(NH3[1]*0.5880*DENS[2]) NHX ,ug m-3 ,1000.0*(NH3[1]*0.5880*DENS[2])+ANH4I[1]+ANH4J[1]+ANH4K[1] NO ,ppbV ,1000.0*NO[1] NO2 ,ppbV ,1000.0*NO2[1] NOX ,ppbV ,1000.0*(NO[1] + NO2[1]) ANO3_PPB ,ppbV ,(ANO3I[1]+ANO3J[1]+ANO3K[1])/(DENS[2]*(62.0/28.97)) NTR ,ppbV ,1000.0*(ONIT[1]+ISON[1]+NALD[1]+IPN[1]+IPC[1]+TRPN[1]), organic nitrates in RACM2 PANS ,ppbV ,1000.0*(PAN[1]+PPN[1]+MPAN[1]) NOY ,ppbV ,1000.0*(NO[1]+NO2[1]+NO3[1]+2*N2O5[1]+HONO[1] \ +HNO3[1]+HNO4[1]+PAN[1]+PPN[1]+MPAN[1] \ +ISON[1]+NALD[1]+IPN[1]+IPC[1]+TRPN[1]+ONIT[1])+ANO3_PPB[0] O3 ,ppbV ,1000.0*O3[1] SO2 ,ppbV ,1000.0*SO2[1] SO2_UGM3 ,ug m-3 ,1000.0*(SO2[1]*2.2118*DENS[2]) TERP ,ppbV ,1000.0*(API[1]+LIM[1]), a-pinene and limonene monoterpenes in RACM2 ! Deprecate these names in future ETH ,ppbV ,1000.0*ETE[1], ethene is ETE in RACM2 ETHA ,ppbV ,1000.0*ETH[1], ethane is ETH in RACM2 ALD2 ,ppbV ,1000.0*ACD[1], acetaldehyde is ACD in RACM2 FORM ,ppbV ,1000.0*HCHO[1], formaldehyde is HCHO RACM2 ISOP ,ppbV ,1000.0*ISO[1], isoprene is ISO in RACM2 TOL ,ppbV ,1000.0*TOL[1] ! Hydrocarbons for evaluation. Note an "s" on the end indicates a collection of species from AQS ACETALDEHYDE ,ppbV ,1000.0*ACD[1] ACETYLENE ,ppbV ,1000.0*ACE[1] ACROLEIN ,ppbV ,1000.0*ACRO[1] ACETONE ,ppbV ,1000.0*ACT[1] BUTADIENE13 ,ppbV ,1000.0*BDE13[1] BENZENE ,ppbV ,1000.0*BEN[1] ETHYLENE ,ppbV ,1000.0*ETE[1], ethene is ETE in RACM2 ETHANE ,ppbV ,1000.0*ETH[1], ethane is ETH in RACM2 ISOPRENE ,ppbV ,1000.0*ISO[1], isoprene is ISO in RACM2 FORMALDEHYDE ,ppbV ,1000.0*HCHO[1], formaldehyde is HCHO RACM2 MEKETONE ,ppbV ,1000.0*MEK[1] TOLUENE ,ppbV ,1000.0*TOL[1] XYLENES ,ppbV ,1000.0*(XYE[1]+XYM[1]) HCPROPANES ,ppbV ,1000.0*(HC3[1]) HCPENTANES ,ppbV ,1000.0*(HC5[1]) HCDECANES ,ppbV ,1000.0*(HC10[1]), formerly HC8 OLEFINS ,ppbV ,1000.0*(OLI[1]+OLT[1]) ABPINENES ,ppbV ,1000.0*(API[1]) !! Unused Gases. Presented Here for illustration. Users can uncomment !! them if they choose. ALDX ,ppbV ,1000.0*ALD[1], C3 and higher aldehydes is ALD in RACM2 !NOZ ,ppbV ,NOY[0]-NOX[0] !SULF ,ppbV ,1000.0*SULF[1] ! SIGROC: L/S/IVOC alk and oxy gas species LSIVROC ,ppbC ,1000.0* (9.5*VROCIOXY[1] \ +14.0*VROCP5ARO[1]+13.0*VROCP6ARO[1] \ +30.0*VROCN2ALK[1]+29.0*VROCN1ALK[1] \ +28.0*VROCP0ALK[1]+27.0*VROCP1ALK[1] \ +24.0*VROCP2ALK[1]+21.0*VROCP3ALK[1] \ +18.0*VROCP4ALK[1]+14.0*VROCP5ALK[1] \ +13.0*VROCP6ALK[1]\ +17.0*VROCN2OXY2[1]+11.0*VROCN2OXY4[1] \ +7.0*VROCN2OXY8[1]+20.0*VROCN1OXY1[1] \ +12.0*VROCN1OXY3[1]+8.0*VROCN1OXY6[1] \ +14.0*VROCP0OXY2[1]+10.0*VROCP0OXY4[1] \ +17.0*VROCP1OXY1[1]+11.0*VROCP1OXY3[1] \ +12.0*VROCP2OXY2[1]+11.0*VROCP3OXY2[1] \ +9.0*VROCP4OXY2[1]+11.0*VROCP5OXY1[1] \ +9.0*VROCP6OXY1[1] ), ! VROC: Total gas-phase (vapor) reactive organic carbon (stable species only) VROC ,ppbC ,1000.0*(2.0*ACD[1]+2.0*ACE[1] \ +3.0*ACRO[1]+3.0*ACT[1]+3.0*ALD[1]+10*API[1] \ +7.0*BALD[1]+4.0*BDE13[1]+6.0*BEN[1] \ +9.0*CSL[1]+5.0*DCB1[1]+6.0*DCB2[1]+4.0*DCB3[1] \ +20.0*ELHOM[1] \ +2.0*EOH[1]+2.0*ETE[1]+2.0*ETEG[1]+2.0*ETH[1] \ +5.0*FURAN[1]+4.0*FURANONE[1]+2.0*GLY[1]+10.0*HOM[1] \ +3.0*HC3[1]+5.0*HC5[1]+10.0*HC10[1] \ +1.0*HCHO[1]+3.0*HKET[1] \ +5.0*IEPOX[1]+5.0*ISHP[1]\ +5.0*ISO[1]+5.0*KET[1] \ +10.0*LIM[1]+10.0*LIMAL[1]+4.0*MACR[1]+4*MAHP[1] \ +7.0*MCT[1] \ +4.0*MEK[1]+3.0*MGLY[1]+1.0*MOH[1]+4.0*MVK[1] \ +10.0*NAPH[1]+5.0*OLI[1]+3.0*OLT[1] \ +1.0*OP1[1]+2.0*OP2[1]+8.0*OP3[1]+10.0*OPB[1] \ +1.0*ORA1[1]+2.0*ORA2[1] \ +10.0*PINAL[1] \ +6.0*PHEN[1]+3.0*PROG[1] \ +3.0*ROH[1]+15.0*SESQ[1]+2.1*SLOWROC[1] \ +7.0*TOL[1]+5.0*UALD[1] \ +8.0*XYM[1]+8.0*XYE[1] \ +2.0*PAA[1]+2.0*PAN[1]+3.0*PPN[1]+4.0*MPAN[1] \ +4.0*ONIT[1]+5.0*ISON[1] \ +5.0*NALD[1]+5.0*IPN[1]+5.0*IPC[1]+10.0*TRPN[1] ) \ +LSIVROC[0] , !-------------------------------------------! !--------------- Particles -----------------! !-------------------------------------------! !! Crustal Elements AFEJ ,ug m-3 ,AFEJ[1] AALJ ,ug m-3 ,AALJ[1] ASIJ ,ug m-3 ,ASIJ[1] ATIJ ,ug m-3 ,ATIJ[1] ACAJ ,ug m-3 ,ACAJ[1] AMGJ ,ug m-3 ,AMGJ[1] AKJ ,ug m-3 ,AKJ[1] AMNJ ,ug m-3 ,AMNJ[1] ASOILJ ,ug m-3 ,2.20*AALJ[1]+2.49*ASIJ[1]+1.63*ACAJ[1]+2.42*AFEJ[1]+1.94*ATIJ[1] !! Non-Crustal Inorganic Particle Species AHPLUSIJ ,umol m-3 ,(AH3OPI[1]+AH3OPJ[1])*1.0/19.0 ANAK ,ug m-3 ,0.8373*ASEACAT[1]+0.0626*ASOIL[1]+0.0023*ACORS[1] AMGK ,ug m-3 ,0.0997*ASEACAT[1]+0.0170*ASOIL[1]+0.0032*ACORS[1] AKK ,ug m-3 ,0.0310*ASEACAT[1]+0.0242*ASOIL[1]+0.0176*ACORS[1] ACAK ,ug m-3 ,0.0320*ASEACAT[1]+0.0838*ASOIL[1]+0.0562*ACORS[1] ACLIJ ,ug m-3 ,ACLI[1]+ACLJ[1] AECIJ ,ug m-3 ,AECI[1]+AECJ[1] ANAIJ ,ug m-3 ,ANAJ[1]+ANAI[1] ANO3IJ ,ug m-3 ,ANO3I[1]+ANO3J[1] ANO3K ,ug m-3 ,ANO3K[1] TNO3 ,ug m-3 ,2175.6*(HNO3[1]*DENS[2])+ANO3I[1]+ANO3J[1]+ANO3K[1] ANH4IJ ,ug m-3 ,ANH4I[1]+ANH4J[1] ANH4K ,ug m-3 ,ANH4K[1] ASO4IJ ,ug m-3 ,ASO4I[1]+ASO4J[1] ASO4K ,ug m-3 ,ASO4K[1] !! Organic Particle Species ! Why is there an APOCI and APOCJ in the output? It doesn't match below APOCI ,ugC m-3, AROCN2ALKI[1]/1.39 + AROCN1ALKI[1]/1.32 \ + AROCP0ALKI[1]/1.17 + AROCP1ALKI[1]/1.17 APOCJ ,ugC m-3, AROCN2ALKJ[1]/1.39 + AROCN1ALKJ[1]/1.32 \ + AROCP0ALKJ[1]/1.17 + AROCP1ALKJ[1]/1.17 \ + AROCP2ALKJ[1]/1.17 + AROCP3ALKJ[1]/1.17 APOCIJ ,ugC m-3, APOCI[0] + APOCJ[0] APOMI ,ug m-3, AROCN2ALKI[1] + AROCN1ALKI[1] \ + AROCP0ALKI[1] + AROCP1ALKI[1] + APNCOMI[1] APOMJ ,ug m-3, AROCN2ALKJ[1] + AROCN1ALKJ[1] + AROCP0ALKJ[1] \ + AROCP1ALKJ[1] + AROCP2ALKJ[1] + AROCP3ALKJ[1] + APNCOMJ[1] APOMIJ ,ug m-3, APOMI[0] + APOMJ[0] ASOCI ,ugC m-3, AROCN2OXY2I[1]/1.42 + AROCN2OXY4I[1]/1.67 \ + AROCN2OXY8I[1]/2.17 + AROCN1OXY1I[1]/1.29 \ + AROCN1OXY3I[1]/1.54 + AROCN1OXY6I[1]/1.92 \ + AROCP0OXY2I[1]/1.42 + AROCP0OXY4I[1]/1.67 \ + AROCP1OXY1I[1]/1.29 + AROCP1OXY3I[1]/1.54 ASOCJ ,ugC m-3, AHOMJ[1]/2.08 + AELHOMJ[1]/1.67 + AISO3NOSJ[1]/2.27 \ + AISO3OSJ[1]/3.6 + AGLYJ[1]/2.13 + AORGCJ[1]/2 \ + AOP3J[1]/1.92 + ASOATJ[1]/2.31 + AROCN2OXY2J[1]/1.42 \ + AROCN2OXY4J[1]/1.67 + AROCN2OXY8J[1]/2.17 + AROCN1OXY1J[1]/1.29 \ + AROCN1OXY3J[1]/1.54 + AROCN1OXY6J[1]/1.92 + AROCP0OXY2J[1]/1.42 \ + AROCP0OXY4J[1]/1.67 + AROCP1OXY1J[1]/1.29 + AROCP1OXY3J[1]/1.54 \ + AROCP2OXY2J[1]/1.42 + AROCP3OXY2J[1]/1.42 ASOCIJ ,ugC m-3, ASOCI[0] + ASOCJ[0] ASOMI ,ug m-3, AROCN2OXY2I[1] + AROCN2OXY4I[1] \ + AROCN2OXY8I[1] + AROCN1OXY1I[1] \ + AROCN1OXY3I[1] + AROCN1OXY6I[1] \ + AROCP0OXY2I[1] + AROCP0OXY4I[1] \ + AROCP1OXY1I[1] + AROCP1OXY3I[1] ASOMJ ,ug m-3, AHOMJ[1] + AELHOMJ[1] + AISO3NOSJ[1] \ + AISO3OSJ[1] + AGLYJ[1] + AORGCJ[1] \ + AOP3J[1] + ASOATJ[1] + AROCN2OXY2J[1] \ + AROCN2OXY4J[1] + AROCN2OXY8J[1] + AROCN1OXY1J[1] \ + AROCN1OXY3J[1] + AROCN1OXY6J[1] + AROCP0OXY2J[1] \ + AROCP0OXY4J[1] + AROCP1OXY1J[1] + AROCP1OXY3J[1] \ + AROCP2OXY2J[1] + AROCP3OXY2J[1] ASOMIJ ,ug m-3 ,ASOMI[0] + ASOMJ[0] AOCI ,ugC m-3 ,APOCI[0] + ASOCI[0] AOCJ ,ugC m-3 ,APOCJ[0] + ASOCJ[0] AOCIJ ,ugC m-3 ,APOCIJ[0] + ASOCIJ[0] AOMI ,ug m-3 ,APOMI[0] + ASOMI[0] AOMJ ,ug m-3 ,APOMJ[0] + ASOMJ[0] AOMIJ ,ug m-3 ,APOMIJ[0] + ASOMIJ[0] !!! Anthropogenic-VOC Derived Organic Aerosol AORGAI ,ug m-3 ,AROCN2OXY2I[1]+AROCN2OXY4I[1]+AROCN2OXY8I[1]+AROCN1OXY1I[1] \ +AROCN1OXY3I[1]+AROCN1OXY6I[1]+AROCP0OXY2I[1]+AROCP0OXY4I[1] \ +AROCP1OXY1I[1]+AROCP1OXY3I[1] AORGAJ ,ug m-3 ,AROCN2OXY2J[1]+AROCN2OXY4J[1]+AROCN2OXY8J[1]+AROCN1OXY1J[1] \ +AROCN1OXY3J[1]+AROCN1OXY6J[1]+AROCP0OXY2J[1]+AROCP0OXY4J[1] \ +AROCP1OXY1J[1]+AROCP1OXY3J[1]+AROCP2OXY2J[1]+AROCP3OXY2J[1] \ +AOP3J[1] +ASOATJ[1] AORGAIJ ,ug m-3 ,AORGAI[0] + AORGAJ[0] !!! Biogenic-VOC Derived Organic Aerosol AORGBIJ ,ug m-3 ,AISO3NOSJ[1] +AISO3OSJ[1] +AHOMJ[1] + AELHOMJ[1] !!! Cloud-Processed SOA AORGCJ ,ug m-3 ,AORGCJ[1] !!! Remaining SOA AGLYJ ,ug m-3 ,AGLYJ[1] !!! OM/OC ratios AOMOCRAT_TOT , ,AOMIJ[0]/AOCIJ[0] !! Total PM Aggregates ATOTI ,ug m-3 ,ASO4I[1] + ANH4I[1] + ANO3I[1] + ANAI[1] \ +ACLI[1] + AECI[1] + AOMI[0] + AOTHRI[1] ATOTJ ,ug m-3 ,ASO4J[1] + ANH4J[1] + ANO3J[1] + ANAJ[1] \ +ACLJ[1] + AECJ[1] + AOMJ[0] + AOTHRJ[1] \ +AFEJ[1] + AALJ[1] + ASIJ[1] + ATIJ[1] \ +ACAJ[1] + AMGJ[1] + AKJ[1] + AMNJ[1] ATOTK ,ug m-3 ,ASO4K[1] + ANH4K[1] + ANO3K[1] + ACLK[1] \ +ACORS[1] + ASOIL[1] + ASEACAT[1] ATOTIJ ,ug m-3 ,ATOTI[0] + ATOTJ[0] ATOTIJK ,ug m-3 ,ATOTI[0] + ATOTJ[0] + ATOTK[0] !! Unspeciated PM including non-carbon organic mass AUNSPEC1IJ ,ug m-3 ,ATOTIJ[0] - (ASO4IJ[0] + ANO3IJ[0] \ +ANH4IJ[0] + ACLIJ[0] \ +ANAIJ[0] + AECIJ[0] \ +AOCIJ[0] + ASOILJ[0]) !! Non-Carbon Organic Mass ANCOMIJ ,ug m-3 ,AOMIJ[0] - AOCIJ[0] !! Unspeciated PM excluding non-carbon organic mass AUNSPEC2IJ ,ug m-3 ,AUNSPEC1IJ[0] - ANCOMIJ[0] !! AMS Projection of Output Concentrations PMAMS_CL ,ug m-3 ,ACLI[1] *FAMSAIT[3] +ACLJ[1]*FAMSACC[3]+ACLK[1] *FAMSCOR[3] PMAMS_NH4 ,ug m-3 ,ANH4I[1]*FAMSAIT[3]+ANH4J[1]*FAMSACC[3]+ANH4K[1]*FAMSCOR[3] PMAMS_NO3 ,ug m-3 ,ANO3I[1]*FAMSAIT[3]+ANO3J[1]*FAMSACC[3]+ANO3K[1]*FAMSCOR[3] PMAMS_OA ,ug m-3 ,AOMI[0] *FAMSAIT[3]+AOMJ[0] *FAMSACC[3] PMAMS_SO4 ,ug m-3 ,ASO4I[1]*FAMSAIT[3]+ASO4J[1]*FAMSACC[3]+ASO4K[1]*FAMSCOR[3] !! PM1 Cutoff Output PM1_TOT ,ug m-3 ,ATOTI[0]*FPM1AIT[3]+ATOTJ[0]*FPM1ACC[3]+ATOTK[0]*FPM1COR[3] !! Unused PM1 Species. Included Here for demonstration !PM1_EC ,ug m-3 ,AECI[1] *FPM1AIT[3] +AECJ[1] *FPM1ACC[3] !PM1_OC ,ugC m-3 ,AOCI[0] *FPM1AIT[3] +AOCJ[0] *FPM1ACC[3] !PM1_OM ,ug m-3 ,AOMI[0] *FPM1AIT[3] +AOMJ[0] *FPM1ACC[3] !PM1_SO4 ,ug m-3 ,ASO4I[1]*FPM1AIT[3] +ASO4J[1]*FPM1ACC[3] +ASO4K[1]*FPM1COR[3] !PM1_CL ,ug m-3 ,ACLI[1] *FPM1AIT[3] +ACLJ[1] *FPM1ACC[3] +ACLK[1] *FPM1COR[3] !PM1_NA ,ug m-3 ,ANAI[1] *FPM1AIT[3] +ANAJ[1] *FPM1ACC[3] +ANAK[0] *FPM1COR[3] !PM1_MG ,ug m-3 , AMGJ[1] *FPM1ACC[3] +AMGK[0] *FPM1COR[3] !PM1_K ,ug m-3 , AKJ[1] *FPM1ACC[3] +AKK[0] *FPM1COR[3] !PM1_CA ,ug m-3 , ACAJ[1] *FPM1ACC[3] +ACAK[0] *FPM1COR[3] !PM1_NH4 ,ug m-3 ,ANH4I[1] *FPM1AIT[3]+ANH4J[1]*FPM1ACC[3] +ANH4K[1]*FPM1COR[3] !PM1_NO3 ,ug m-3 ,ANO3I[1] *FPM1AIT[3]+ANO3J[1]*FPM1ACC[3] +ANO3K[1]*FPM1COR[3] !PM1_SOIL ,ug m-3 ,ASOILJ[0]*FPM1ACC[3]+(ASOIL[1]+ACORS[1])*FPM1COR[3] !PM1_UNSPEC1 ,ug m-3 ,PM1_TOT[0] - (PM1_CL[0] + PM1_EC[0]+ PM1_NA[0] + PM1_NH4[0] + \ ! PM1_NO3[0]+ PM1_OC[0]+ PM1_SOIL[0]+ PM1_SO4[0] ) !PM1_UNSPCRS ,ug m-3 ,ATOTK[0] *FPM1COR[3] - (ASO4K[1]*FPM1COR[3] \ ! +ACLK[1]*FPM1COR[3] \ ! +ANAK[0]*FPM1COR[3] \ ! +AMGK[0]*FPM1COR[3] \ ! +AKK[0]*FPM1COR[3] \ ! +ACAK[0]*FPM1COR[3] \ ! +ANH4K[1]*FPM1COR[3] \ ! +ANO3K[1]*FPM1COR[3]) !! PM2.5 species computed using modeled size distribution PM25_HP ,ug m-3 ,(AH3OPI[1]*FPM25AIT[3]+AH3OPJ[1]*FPM25ACC[3]+AH3OPK[1]*FPM25COR[3])*1.0/19.0 PM25_CL ,ug m-3 ,ACLI[1]*FPM25AIT[3]+ACLJ[1]*FPM25ACC[3]+ACLK[1]*FPM25COR[3] PM25_EC ,ug m-3 ,AECI[1]*FPM25AIT[3]+AECJ[1]*FPM25ACC[3] PM25_NA ,ug m-3 ,ANAI[1]*FPM25AIT[3]+ANAJ[1]*FPM25ACC[3]+ANAK[0]*FPM25COR[3] PM25_MG ,ug m-3 , AMGJ[1]*FPM25ACC[3]+AMGK[0]*FPM25COR[3] PM25_K ,ug m-3 , AKJ[1] *FPM25ACC[3]+AKK[0] *FPM25COR[3] PM25_CA ,ug m-3 , ACAJ[1]*FPM25ACC[3]+ACAK[0]*FPM25COR[3] PM25_NH4 ,ug m-3 ,ANH4I[1]*FPM25AIT[3]+ANH4J[1]*FPM25ACC[3]+ANH4K[1]*FPM25COR[3] PM25_NO3 ,ug m-3 ,ANO3I[1]*FPM25AIT[3]+ANO3J[1]*FPM25ACC[3]+ANO3K[1]*FPM25COR[3] PM25_OC ,ugC m-3 ,AOCI[0] *FPM25AIT[3]+AOCJ[0]*FPM25ACC[3] PM25_OM ,ug m-3 ,AOMI[0] *FPM25AIT[3]+AOMJ[0]*FPM25ACC[3] PM25_SOIL ,ug m-3 ,ASOILJ[0]*FPM25ACC[3]+ASOIL[1]*FPM25COR[3] PM25_SO4 ,ug m-3 ,ASO4I[1]*FPM25AIT[3]+ASO4J[1]*FPM25ACC[3]+ASO4K[1]*FPM25COR[3] PM25_TOT ,ug m-3 ,ATOTI[0]*FPM25AIT[3]+ATOTJ[0]*FPM25ACC[3]+ATOTK[0]*FPM25COR[3] PM25_UNSPEC1 ,ug m-3 ,PM25_TOT[0]-(PM25_CL[0]+PM25_EC[0]+PM25_NA[0]+PM25_NH4[0] \ +PM25_NO3[0]+PM25_OC[0]+PM25_SOIL[0]+PM25_SO4[0]) PM25_UNSPCRS ,ug m-3 ,ATOTK[0]*FPM25COR[3] - (ASO4K[1]*FPM25COR[3] \ +ACLK[1]*FPM25COR[3] \ +ANAK[0]*FPM25COR[3] \ +AMGK[0]*FPM25COR[3] \ +AKK[0]*FPM25COR[3] \ +ACAK[0]*FPM25COR[3] \ +ANH4K[1]*FPM25COR[3] \ +ANO3K[1]*FPM25COR[3]) !! Fine particle acidity (pH). pH is undefined if there is no aerosol water. !Do not trust predictions when hourly water is <0.01 ug m-3. FINEPHF will !have large negative value (-9.999E36) when pH is not to be trusted. !AH2OIJ ,ug m-3 ,AH2OI[1]+AH2OJ[1] !HPMOLAL ,mol kg-1 ,AHPLUSIJ[0]/AH2OIJ[0]*1000.0 !ACIDITYTEMP , ,-1*LOG10(HPMOLAL[0]) !FINEPHF , ,AH2OIJ[0]>0.01 ? ACIDITYTEMP[0] : -9.999E36 !! PM10.0 and Coarse-Sized Species PM10 ,ug m-3 ,ATOTI[0]*FPM10AIT[3]+ATOTJ[0]*FPM10ACC[3]+ATOTK[0]*FPM10COR[3] PMC_CL ,ug m-3 ,ACLI[1]*FPM10AIT[3] +ACLJ[1]*FPM10ACC[3] +ACLK[1]*FPM10COR[3] -PM25_CL[0] PMC_NA ,ug m-3 ,ANAI[1]*FPM10AIT[3] +ANAJ[1]*FPM10ACC[3] +ANAK[0]*FPM10COR[3] -PM25_NA[0] PMC_NH4 ,ug m-3 ,ANH4I[1]*FPM10AIT[3]+ANH4J[1]*FPM10ACC[3]+ANH4K[1]*FPM10COR[3]-PM25_NH4[0] PMC_NO3 ,ug m-3 ,ANO3I[1]*FPM10AIT[3]+ANO3J[1]*FPM10ACC[3]+ANO3K[1]*FPM10COR[3]-PM25_NO3[0] PMC_SO4 ,ug m-3 ,ASO4I[1]*FPM10AIT[3]+ASO4J[1]*FPM10ACC[3]+ASO4K[1]*FPM10COR[3]-PM25_SO4[0] PMC_TOT ,ug m-3 ,PM10[0]-PM25_TOT[0] !! FRM PM Equivalent Calculation !! This section calculates the FRM applicable PM species, PMIJ_FRM and !! PM25_FRM. The intermediate variablse K...ANH4IJ_loss are needed to !! calculate the final quantities. K ,ppb2 ,exp(118.87-24084/TEMP2[4]-6.025*log(TEMP2[4])) P1 , ,exp(8763/TEMP2[4]+19.12*log(TEMP2[4])-135.94) P2 , ,exp(9969/TEMP2[4]+16.22*log(TEMP2[4])-122.65) P3 , ,exp(13875/TEMP2[4]+24.46*log(TEMP2[4])-182.61) a , ,1-RH[0]/100 K_prime ,ppb2 ,(P1[0]-P2[0]*a[0]+(P3[0]*a[0]*a[0]))*(a[0]^1.75)*K[0] sqrt_Ki ,ppb ,sqrt(RH[0]<=61 ? K[0] : K_prime[0]) max_NO3_loss ,ug m-3 ,745.7/TEMP2[4]*sqrt_Ki[0] PM25_NO3_loss ,ug m-3 ,max_NO3_loss[0]<=PM25_NO3[0] ? max_NO3_loss[0] : PM25_NO3[0] ANO3IJ_loss ,ug m-3 ,max_NO3_loss[0]<=ANO3IJ[0] ? max_NO3_loss[0] : ANO3IJ[0] PM25_NH4_loss ,ug m-3 ,PM25_NO3_loss[0]*(18/62) ANH4IJ_loss ,ug m-3 ,ANO3IJ_loss[0]*(18/62) PMIJ_FRM ,ug m-3 ,ATOTIJ[0]-(ANO3IJ_loss[0]+ANH4IJ_loss[0]) \ +0.24*(ASO4IJ[0]+ANH4IJ[0]-ANH4IJ_loss[0])+0.5 PM25_FRM ,ug m-3 ,PM25_TOT[0]-(PM25_NO3_loss[0]+PM25_NH4_loss[0]) \ +0.24*(PM25_SO4[0]+PM25_NH4[0]-PM25_NH4_loss[0])+0.5 ================================================ FILE: CCTM/src/MECHS/cracmm1amore_aq/SpecDef_Dep_cracmm1amore_aq.txt ================================================ !#start YYYYJJJ !#end YYYYJJJ #layer 1 / File [1]: DRYDEP / File [2]: WETDEP / File [3]: METCRO2D / /new species ,units ,expression RT ,cm ,RC[3]>=0 ? RN[3]+RC[3] : RN[3] !---------------------------------------------------! !--------------- Gas Deposition --------------------! !---------------------------------------------------! DDEP_NO2 ,kg ha-1 ,NO2[1] WDEP_NO2 ,kg ha-1 ,NO2[2] DDEP_NO ,kg ha-1 ,NO[1] WDEP_NO ,kg ha-1 ,NO[2] DDEP_FORM ,kg ha-1 ,HCHO[1], formaldehyde is HCHO RACM2 WDEP_FORM ,kg ha-1 ,HCHO[2], formaldehyde is HCHO RACM2 DDEP_H2O2 ,kg ha-1 ,H2O2[1] WDEP_H2O2 ,kg ha-1 ,H2O2[2] DDEP_N2O5 ,kg ha-1 ,N2O5[1] WDEP_N2O5 ,kg ha-1 ,N2O5[2] DDEP_HONO ,kg ha-1 ,HONO[1] WDEP_HONO ,kg ha-1 ,HONO[2] DDEP_HNO3 ,kg ha-1 ,HNO3[1] WDEP_HNO3 ,kg ha-1 ,HNO3[2] DDEP_NO3 ,kg ha-1 ,NO3[1] WDEP_NO3 ,kg ha-1 ,NO3[2] DDEP_NTR ,kg ha-1 ,ONIT[1]+ISON[1]+TRPN[1]+NALD[1]+IPN[1]+IPC[1] WDEP_NTR ,kg ha-1 ,ONIT[2]+ISON[2]+TRPN[2]+NALD[2]+IPN[2]+IPC[2] DDEP_PANT ,kg ha-1 ,PAN[1]+PPN[1]+MPAN[1] WDEP_PANT ,kg ha-1 ,PAN[2]+PPN[2]+MPAN[2] DDEP_NH3 ,kg ha-1 ,NH3[1] WDEP_NH3 ,kg ha-1 ,NH3[2] DDEP_SO2 ,kg ha-1 ,SO2[1] DDEP_O3 ,kg ha-1 ,O3[1] WDEP_O3 ,kg ha-1 ,O3[2] DDEP_PNA ,kg ha-1 ,HNO4[1], PeroxyNitric Acid WDEP_PNA ,kg ha-1 ,HNO4[2], PeroxyNitric Acid !---------------------------------------------------! !------------- Aerosol Deposition ------------------! !---------------------------------------------------! DDEP_ANO3IJ ,kg ha-1 ,ANO3I[1] + ANO3J[1] DDEP_ANO3K ,kg ha-1 ,ANO3K[1] WDEP_ANO3IJK ,kg ha-1 ,ANO3I[2] + ANO3J[2] + ANO3K[2] DDEP_TNO3 ,kg ha-1 ,ANO3I[1] + ANO3J[1] + ANO3K[1] + 0.984*HNO3[1] WDEP_TNO3 ,kg ha-1 ,ANO3I[2] + ANO3J[2] + ANO3K[2] + 0.984*HNO3[2] DDEP_ANH4IJ ,kg ha-1 ,ANH4I[1] + ANH4J[1] DDEP_ANH4K ,kg ha-1 ,ANH4K[1] WDEP_ANH4IJK ,kg ha-1 ,ANH4I[2] + ANH4J[2] + ANH4K[2] DDEP_ASO4IJ ,kg ha-1 ,ASO4I[1] + ASO4J[1] DDEP_ASO4K ,kg ha-1 ,ASO4K[1] WDEP_ASO4IJK ,kg ha-1 ,ASO4I[2] + ASO4J[2] + ASO4K[2] DDEP_AECIJ ,kg ha-1 ,AECI[1] +AECJ[1] !DDEP_SSSO4J ,kg ha-1 ,0.2514*ANAJ[1] !DDEP_SSSO4K ,kg ha-1 ,0.2514*DDEP_ANAK[0] !WDEP_SSSO4JK ,kg ha-1 ,0.2514*ANAJ[2] + 0.2514*WDEP_ANAK[0] !-----------------------------------------------------! !-------- Total (Gas + Aerosol) Deposition -----------! !-----------------------------------------------------! DDEP_NHX ,kg ha-1 ,ANH4I[1] + ANH4J[1] + ANH4K[1] + 1.059*NH3[1] WDEP_NHX ,kg ha-1 ,ANH4I[2] + ANH4J[2] + ANH4K[2] + 1.059*NH3[2] WDEP_TSO4 ,kg ha-1 ,ASO4I[2] + ASO4J[2] + ASO4K[2] + 1.5*SO2[2] !! Sodium DDEP_ANAJ ,kg ha-1 ,ANAJ[1] DDEP_ANAK ,kg ha-1 ,0.8373*ASEACAT[1]+0.0626*ASOIL[1]+0.0023*ACORS[1] DDEP_ANAJK ,kg ha-1 ,DDEP_ANAJ[0] + DDEP_ANAK[0] WDEP_ANAK ,kg ha-1 ,0.8373*ASEACAT[2]+0.0626*ASOIL[2]+0.0023*ACORS[2] WDEP_ANAJK ,kg ha-1 ,ANAJ[2] + WDEP_ANAK[0] TDEP_ANAJK ,kg ha-1 ,DDEP_ANAJK[0] + WDEP_ANAJK[0] !! Chloride DDEP_ACLJ ,kg ha-1 ,ACLJ[1] DDEP_ACLK ,kg ha-1 ,ACLK[1] DDEP_ACLJK ,kg ha-1 ,ACLJ[1] + ACLK[1] WDEP_TCL ,kg ha-1 ,0.972*HCL[2]+ ACLJ[2] + ACLK[2] TDEP_CL ,kg ha-1 ,DDEP_ACLJK[0] + WDEP_TCL[0] !! Calcium DDEP_CAJ ,kg ha-1 ,ACAJ[1] WDEP_CAJ ,kg ha-1 ,ACAJ[2] DDEP_CAK ,kg ha-1 ,0.0320*ASEACAT[1]+0.0838*ASOIL[1]+0.0562*ACORS[1] WDEP_CAK ,kg ha-1 ,0.0320*ASEACAT[2]+0.0838*ASOIL[2]+0.0562*ACORS[2] DDEP_CAJK ,kg ha-1 ,ACAJ[1]+DDEP_CAK[0] WDEP_CAJK ,kg ha-1 ,ACAJ[2]+WDEP_CAK[0] !! Iron DDEP_FEJ ,kg ha-1 ,AFEJ[1] WDEP_FEJ ,kg ha-1 ,AFEJ[2] !! Aluminum DDEP_ALJ ,kg ha-1 ,AALJ[1] WDEP_ALJ ,kg ha-1 ,AALJ[2] !! Silicon DDEP_SIJ ,kg ha-1 ,ASIJ[1] WDEP_SIJ ,kg ha-1 ,ASIJ[2] !! Titanium DDEP_TIJ ,kg ha-1 ,ATIJ[1] WDEP_TIJ ,kg ha-1 ,ATIJ[2] !! Magnesium DDEP_MGJ ,kg ha-1 ,AMGJ[1] WDEP_MGJ ,kg ha-1 ,AMGJ[2] DDEP_MGK ,kg ha-1 ,0.0997*ASEACAT[1]+0.0170*ASOIL[1]+0.0032*ACORS[1] WDEP_MGK ,kg ha-1 ,0.0997*ASEACAT[2]+0.0170*ASOIL[2]+0.0032*ACORS[2] DDEP_MGJK ,kg ha-1 ,AMGJ[1]+DDEP_MGK[0] WDEP_MGJK ,kg ha-1 ,AMGJ[2]+WDEP_MGK[0] !! Potassium DDEP_KJ ,kg ha-1 ,AKJ[1] WDEP_KJ ,kg ha-1 ,AKJ[2] DDEP_KK ,kg ha-1 ,0.0310*ASEACAT[1]+0.0242*ASOIL[1]+0.0176*ACORS[1] WDEP_KK ,kg ha-1 ,0.0310*ASEACAT[2]+0.0242*ASOIL[2]+0.0176*ACORS[2] DDEP_KJK ,kg ha-1 ,AKJ[1]+DDEP_KK[0] WDEP_KJK ,kg ha-1 ,AKJ[2]+WDEP_KK[0] !! Manganese DDEP_MNJ ,kg ha-1 ,AMNJ[1] WDEP_MNJ ,kg ha-1 ,AMNJ[2] !---------------------------------------------------! !------------- Nitrogen Deposition -----------------! !---------------------------------------------------! DD_OXN_NOX ,kgN ha-1 ,0.30435*NO2[1] + 0.46667*NO[1] WD_OXN_NOX ,kgN ha-1 ,0.30435*NO2[2] + 0.46667*NO[2] DD_OXN_TNO3 ,kgN ha-1 ,0.22581*DDEP_TNO3[0] WD_OXN_TNO3 ,kgN ha-1 ,0.22581*WDEP_TNO3[0] DD_OXN_PANT ,kgN ha-1 ,0.11570*PAN[1] + 0.11570*PPN[1] + 0.11570*MPAN[1] WD_OXN_PANT ,kgN ha-1 ,0.11570*PAN[2] + 0.11570*PPN[2] + 0.11570*MPAN[2] DD_OXN_ORGN ,kgN ha-1 ,0.10770*(ONIT[1]+ISON[1]+TRPN[1]+NALD[1]+IPN[1]+IPC[1]) + DD_OXN_PANT[0] WD_OXN_ORGN ,kgN ha-1 ,0.10770*(ONIT[2]+ISON[2]+TRPN[2]+NALD[2]+IPN[2]+IPC[2]) + WD_OXN_PANT[0] DD_OXN_OTHR ,kgN ha-1 ,0.25926*N2O5[1] + 0.29787*HONO[1] + 0.17720*HNO4[2] WD_OXN_OTHR ,kgN ha-1 ,0.25926*N2O5[2] + 0.29787*HONO[2] + 0.17720*HNO4[2] DD_OXN_TOT ,kgN ha-1 ,DD_OXN_NOX[0] + DD_OXN_TNO3[0] + DD_OXN_ORGN[0] + DD_OXN_OTHR[0] WD_OXN_TOT ,kgN ha-1 ,WD_OXN_NOX[0] + WD_OXN_TNO3[0] + WD_OXN_ORGN[0] + WD_OXN_OTHR[0] TD_OXN_TOT ,kgN ha-1 ,DD_OXN_TOT[0] + WD_OXN_TOT[0] DD_REDN_TOT ,kgN ha-1 ,0.7777*DDEP_NHX[0] WD_REDN_TOT ,kgN ha-1 ,0.7777*WDEP_NHX[0] TD_REDN_TOT ,kgN ha-1 ,DD_REDN_TOT[0] + WD_REDN_TOT[0] DD_N_TOT ,kgN ha-1 ,DD_OXN_TOT[0] + DD_REDN_TOT[0] WD_N_TOT ,kgN ha-1 ,WD_OXN_TOT[0] + WD_REDN_TOT[0] TD_N_TOT ,kgN ha-1 ,DD_N_TOT[0] + WD_N_TOT[0] !! Nitrogen Deposition in milliequivalents Nitrogen !DD_OXN_TOTMEQ ,meqN m-2 ,7.14*DD_OXN_TOT[0] !WD_OXN_TOTMEQ ,meqN m-2 ,7.14*WD_OXN_TOT[0] !TD_OXN_TOTMEQ ,meqN m-2 ,DD_OXN_TOTMEQ[0] + WD_OXN_TOTMEQ[0] !DD_REDN_TOTMEQ ,meqN m-2 ,7.14*DD_REDN_TOT[0] !WD_REDN_TOTMEQ ,meqN m-2 ,7.14*WD_REDN_TOT[0] !TD_REDN_TOTMEQ ,meqN m-2 ,DD_REDN_TOTMEQ[0] + WD_REDN_TOTMEQ[0] !DD_N_TOTMEQ ,meqN m-2 ,DD_OXN_TOTMEQ[0] + DD_REDN_TOTMEQ[0] !WD_N_TOTMEQ ,meqN m-2 ,WD_OXN_TOTMEQ[0] + WD_REDN_TOTMEQ[0] !TD_N_TOTMEQ ,meqN m-2 ,DD_N_TOTMEQ[0] + WD_N_TOTMEQ[0] !-------------------------------------------------! !------------- Sulfur Deposition -----------------! !-------------------------------------------------! DD_S_TOT ,kgS ha-1 ,0.5*SO2[1] + 0.33333*ASO4I[1] + 0.33333*ASO4J[1] + 0.33333*ASO4K[1] WD_S_TOT ,kgS ha-1 ,0.33333*WDEP_TSO4[0] TD_S_TOT ,kgS ha-1 ,DD_S_TOT[0] + WD_S_TOT[0] !DD_S_SeaS ,kgS ha-1 ,0.33333*DDEP_SSSO4J[0] + 0.33333*DDEP_SSSO4K[0] !WD_S_SeaS ,kgS ha-1 ,0.33333*WDEP_SSSO4JK[0] !TD_S_SeaS ,kgS ha-1 ,DD_S_SeaS[0] + WD_S_SeaS[0] !! Sulfur Deposition in milliequivalents Sulfur !DD_S_TOTMEQ ,meqS m-2 ,6.24*DD_S_TOT[0] !WD_S_TOTMEQ ,meqS m-2 ,6.24*WD_S_TOT[0] !TD_S_TOTMEQ ,meqS m-2 ,DD_S_TOTMEQ[0] + WD_S_TOTMEQ[0] !DD_S_SeaSMEQ ,meqS m-2 ,6.24*DD_S_SeaS[0] !WD_S_SeaSMEQ ,meqS m-2 ,6.24*WD_S_SeaS[0] !TD_S_SeaSMEQ ,meqS m-2 ,DD_S_SeaSMEQ[0] + WD_S_SeaSMEQ[0] ================================================ FILE: CCTM/src/MECHS/cracmm1amore_aq/SpecDef_cracmm1amore_aq.txt ================================================ !#start YYYYJJJ 010000 !#end YYYYJJJ 000000 #layer 1 / ! This Species Definition File is for Use with the COMBINE tool built for ! post-processing CMAQ output. It is compatible with CMAQv5.2. ! Date: May 12 2017 ! Output variables that begin with 'PM' represent those in which a size cut was ! applied based on modeled aerosol mode parameters. For example, PM25_NA is all ! sodium that falls below 2.5 um diameter. These 'PM' variables are used for ! comparisons at IMPROVE and CSN sites. ! Output variables that begin with 'PMAMS' represent the mass that would have ! been detected by an Aerosol Mass Spectrometer. ! Output variables beginning with 'A' (aside from AIR_DENS) represent a ! combination of aerosol species in which no size cut was applied. For example, ! ASO4IJ is the sum of i-mode and j-mode sulfate. These 'A' variables are used ! for comparisons at CASTNet sites. ! Output variables beginning with 'PMC' refer to the coarse fraction of total PM, ! computed by summing all modes and subtracting the PM2.5 fraction. These 'PMC' ! variables are used for comparisons at SEARCH sites. ! This Species Definition File is just for use with the uncoupled, offline CMAQ, ! model. If you are processing WRF-CMAQ results, a different Species Definition ! file is required. / File [1]: CMAQ conc/aconc file / File [2]: METCRO3D file / File [3]: PMDIAG/APMDIAG file / File [4]: METCRO2D file / /new species ,units ,expression !-------------------------------------------! !------------- Meteorology -----------------! !-------------------------------------------! AIR_DENS ,kg m-3 ,DENS[2] RH ,% ,100.00*RH[3] SFC_TMP ,C ,(TEMP2[4]-273.15) PBLH ,m ,PBL[4] SOL_RAD ,W m-2 ,RGRND[4] precip ,cm ,RC[4]>=0 ? RN[4]+RC[4] : RN[4] WSPD10 ,m s-1 ,WSPD10[4] WDIR10 ,deg ,WDIR10[4] !-------------------------------------------! !--------------- Gases ---------------------! !-------------------------------------------! CO ,ppbV ,1000.0*CO[1] H2O2 ,ppbV ,1000.0*H2O2[1] HNO3 ,ppbV ,1000.0*HNO3[1] HNO3_UGM3 ,ug m-3 ,1000.0*(HNO3[1]*2.1756*DENS[2]) HONO ,ppbV ,1000.0*HONO[1] HOX ,ppbV ,1000.0*(HO[1]+HO2[1]) OH ,ppbV ,1000.0*HO[1] N2O5 ,ppbV ,1000.0*N2O5[1] NH3 ,ppbV ,1000.0*NH3[1] NH3_UGM3 ,ug m-3 ,1000.0*(NH3[1]*0.5880*DENS[2]) NHX ,ug m-3 ,1000.0*(NH3[1]*0.5880*DENS[2])+ANH4I[1]+ANH4J[1]+ANH4K[1] NO ,ppbV ,1000.0*NO[1] NO2 ,ppbV ,1000.0*NO2[1] NOX ,ppbV ,1000.0*(NO[1] + NO2[1]) ANO3_PPB ,ppbV ,(ANO3I[1]+ANO3J[1]+ANO3K[1])/(DENS[2]*(62.0/28.97)) NTR ,ppbV ,1000.0*(ONIT[1]+ISON[1]+NALD[1]+IPN[1]+IPC[1]+TRPN[1]), organic nitrates in RACM2 PANS ,ppbV ,1000.0*(PAN[1]+PPN[1]+MPAN[1]) NOY ,ppbV ,1000.0*(NO[1]+NO2[1]+NO3[1]+2*N2O5[1]+HONO[1] \ +HNO3[1]+HNO4[1]+PAN[1]+PPN[1]+MPAN[1] \ +ISON[1]+NALD[1]+IPN[1]+IPC[1]+TRPN[1]+ONIT[1])+ANO3_PPB[0] O3 ,ppbV ,1000.0*O3[1] SO2 ,ppbV ,1000.0*SO2[1] SO2_UGM3 ,ug m-3 ,1000.0*(SO2[1]*2.2118*DENS[2]) TERP ,ppbV ,1000.0*(API[1]+LIM[1]), a-pinene and limonene monoterpenes in RACM2 ! Deprecate these names in future ETH ,ppbV ,1000.0*ETE[1], ethene is ETE in RACM2 ETHA ,ppbV ,1000.0*ETH[1], ethane is ETH in RACM2 ALD2 ,ppbV ,1000.0*ACD[1], acetaldehyde is ACD in RACM2 FORM ,ppbV ,1000.0*HCHO[1], formaldehyde is HCHO RACM2 ISOP ,ppbV ,1000.0*ISO[1], isoprene is ISO in RACM2 TOL ,ppbV ,1000.0*TOL[1] ! Hydrocarbons for evaluation. Note an "s" on the end indicates a collection of species from AQS ACETALDEHYDE ,ppbV ,1000.0*ACD[1] ACETYLENE ,ppbV ,1000.0*ACE[1] ACROLEIN ,ppbV ,1000.0*ACRO[1] ACETONE ,ppbV ,1000.0*ACT[1] BUTADIENE13 ,ppbV ,1000.0*BDE13[1] BENZENE ,ppbV ,1000.0*BEN[1] ETHYLENE ,ppbV ,1000.0*ETE[1], ethene is ETE in RACM2 ETHANE ,ppbV ,1000.0*ETH[1], ethane is ETH in RACM2 ISOPRENE ,ppbV ,1000.0*ISO[1], isoprene is ISO in RACM2 FORMALDEHYDE ,ppbV ,1000.0*HCHO[1], formaldehyde is HCHO RACM2 MEKETONE ,ppbV ,1000.0*MEK[1] TOLUENE ,ppbV ,1000.0*TOL[1] XYLENES ,ppbV ,1000.0*(XYE[1]+XYM[1]) HCPROPANES ,ppbV ,1000.0*(HC3[1]) HCPENTANES ,ppbV ,1000.0*(HC5[1]) HCDECANES ,ppbV ,1000.0*(HC10[1]), formerly HC8 OLEFINS ,ppbV ,1000.0*(OLI[1]+OLT[1]) ABPINENES ,ppbV ,1000.0*(API[1]) !! Unused Gases. Presented Here for illustration. Users can uncomment !! them if they choose. ALDX ,ppbV ,1000.0*ALD[1], C3 and higher aldehydes is ALD in RACM2 !NOZ ,ppbV ,NOY[0]-NOX[0] !SULF ,ppbV ,1000.0*SULF[1] ! LSIVROC: L/S/IVOC alk and oxy gas species LSIVROC ,ppbC ,1000.0* (9.5*VROCIOXY[1] \ +14.0*VROCP5ARO[1]+13.0*VROCP6ARO[1] \ +30.0*VROCN2ALK[1]+29.0*VROCN1ALK[1] \ +28.0*VROCP0ALK[1]+27.0*VROCP1ALK[1] \ +24.0*VROCP2ALK[1]+21.0*VROCP3ALK[1] \ +18.0*VROCP4ALK[1]+14.0*VROCP5ALK[1] \ +13.0*VROCP6ALK[1]\ +17.0*VROCN2OXY2[1]+11.0*VROCN2OXY4[1] \ +7.0*VROCN2OXY8[1]+20.0*VROCN1OXY1[1] \ +12.0*VROCN1OXY3[1]+8.0*VROCN1OXY6[1] \ +14.0*VROCP0OXY2[1]+10.0*VROCP0OXY4[1] \ +17.0*VROCP1OXY1[1]+11.0*VROCP1OXY3[1] \ +12.0*VROCP2OXY2[1]+11.0*VROCP3OXY2[1] \ +9.0*VROCP4OXY2[1]+11.0*VROCP5OXY1[1] \ +9.0*VROCP6OXY1[1] ), ! VROC: Total gas-phase (vapor) reactive organic carbon (stable species only) VROC ,ppbC ,1000.0*(2.0*ACD[1]+2.0*ACE[1] \ +3.0*ACRO[1]+3.0*ACT[1]+3.0*ALD[1]+10*API[1] \ +7.0*BALD[1]+4.0*BDE13[1]+6.0*BEN[1] \ +9.0*CSL[1]+5.0*DCB1[1]+6.0*DCB2[1]+4.0*DCB3[1] \ +20.0*ELHOM[1] \ +2.0*EOH[1]+2.0*ETE[1]+2.0*ETEG[1]+2.0*ETH[1] \ +5.0*FURAN[1]+4.0*FURANONE[1]+2.0*GLY[1]+10.0*HOM[1] \ +3.0*HC3[1]+5.0*HC5[1]+10.0*HC10[1] \ +1.0*HCHO[1]+3.0*HKET[1] \ +5.0*IEPOX[1]+5.0*ISHP[1]\ +5.0*ISO[1]+5.0*KET[1] \ +10.0*LIM[1]+10.0*LIMAL[1]+4.0*MACR[1]+4*MAHP[1] \ +7.0*MCT[1] \ +4.0*MEK[1]+3.0*MGLY[1]+1.0*MOH[1]+4.0*MVK[1] \ +10.0*NAPH[1]+5.0*OLI[1]+3.0*OLT[1] \ +1.0*OP1[1]+2.0*OP2[1]+8.0*OP3[1]+10.0*OPB[1] \ +1.0*ORA1[1]+2.0*ORA2[1] \ +10.0*PINAL[1] \ +6.0*PHEN[1]+3.0*PROG[1] \ +3.0*ROH[1]+15.0*SESQ[1]+2.1*SLOWROC[1] \ +7.0*TOL[1]+5.0*UALD[1] \ +8.0*XYM[1]+8.0*XYE[1] \ +2.0*PAA[1]+2.0*PAN[1]+3.0*PPN[1]+4.0*MPAN[1] \ +4.0*ONIT[1]+5.0*ISON[1] \ +5.0*NALD[1]+5.0*IPN[1]+5.0*IPC[1]+10.0*TRPN[1] ) \ +LSIVROC[0] , !-------------------------------------------! !--------------- Particles -----------------! !-------------------------------------------! !! Crustal Elements AFEJ ,ug m-3 ,PMF_FE[3] AALJ ,ug m-3 ,PMF_AL[3] ASIJ ,ug m-3 ,PMF_SI[3] ATIJ ,ug m-3 ,PMF_TI[3] ACAJ ,ug m-3 ,PMF_CA[3] AMGJ ,ug m-3 ,PMF_MG[3] AKJ ,ug m-3 ,PMF_K[3] AMNJ ,ug m-3 ,PMF_MN[3] ASOILJ ,ug m-3 ,PMF_SOILIMPV[3] !! Non-Crustal Inorganic Particle Species AHPLUSIJ ,ug m-3 ,PMF_HP[3] ANAK ,ug m-3 ,PMC_NA[3] AMGK ,ug m-3 ,PMC_MG[3] AKK ,ug m-3 ,PMC_K[3] ACAK ,ug m-3 ,PMC_CA[3] ACLIJ ,ug m-3 ,PMF_CL[3] AECIJ ,ug m-3 ,PMF_EC[3] ANAIJ ,ug m-3 ,PMF_NA[3] ANO3IJ ,ug m-3 ,PMF_NO3[3] ANO3K ,ug m-3 ,PMC_NO3[3] ANH4IJ ,ug m-3 ,PMF_NH4[3] ANH4K ,ug m-3 ,PMC_NH4[3] ASO4IJ ,ug m-3 ,PMF_SO4[3] ASO4K ,ug m-3 ,PMC_SO4[3] !! Organic Particle Species APOCIJ ,ugC m-3 ,PMF_POC[3] APOMIJ ,ug m-3 ,PMF_POA[3] ASOCIJ ,ugC m-3 ,PMF_SOC[3] ASOMIJ ,ug m-3 ,PMF_SOA[3] AOCIJ ,ugC m-3 ,PMF_OC[3] AOMIJ ,ug m-3 ,PMF_OA[3] !!! Anthropogenic-VOC Derived Organic Aerosol AORGAIJ ,ug m-3 ,PMF_ASOA[3] !!! Biogenic-VOC Derived Organic Aerosol AORGBIJ ,ug m-3 ,PMF_BSOA[3] !!! Cloud-Processed SOA AORGCJ ,ug m-3 ,AORGCJ[1] !!! OM/OC ratios AOMOCRAT_TOT , ,PMF_OMOC[3] !! Total PM Aggregates ATOTI ,ug m-3 ,PMAIT_MASS[3] ATOTJ ,ug m-3 ,PMACC_MASS[3] ATOTK ,ug m-3 ,PMC_MASS[3] ATOTIJ ,ug m-3 ,PMF_MASS[3] ATOTIJK ,ug m-3 ,PM_MASS[3] !! Unspeciated PM including non-carbon organic mass AUNSPEC1IJ ,ug m-3 ,PMF_UN_IMPV1[3] !! Non-Carbon Organic Mass ANCOMIJ ,ug m-3 ,PMF_NCOM[3] !! Unspeciated PM excluding non-carbon organic mass AUNSPEC2IJ ,ug m-3 ,PMF_UN_IMPV2[3] !! AMS Projection of Output Concentrations PMAMS_CL ,ug m-3 ,PMAMS_CL[3] PMAMS_NH4 ,ug m-3 ,PMAMS_NH4[3] PMAMS_NO3 ,ug m-3 ,PMAMS_NO3[3] PMAMS_OA ,ug m-3 ,PMAMS_OA[3] PMAMS_SO4 ,ug m-3 ,PMAMS_SO4[3] !! PM1 Cutoff Output PM1_TOT ,ug m-3 ,PM1[3] !! Unused PM1 Species. Included Here for demonstration !PM1_EC ,ug m-3 ,PM1_EC[3] !PM1_OC ,ugC m-3 ,PM1_OC[3] !PM1_OM ,ug m-3 ,PM1_OA[3] !PM1_SO4 ,ug m-3 ,PM1_SO4[3] !PM1_CL ,ug m-3 ,PM1_CL[3] !PM1_NA ,ug m-3 ,PM1_NA[3] !PM1_MG ,ug m-3 ,PM1_MG[3] !PM1_K ,ug m-3 ,PM1_K[3] !PM1_CA ,ug m-3 ,PM1_CA[3] !PM1_NH4 ,ug m-3 ,PM1_NH4[3] !PM1_NO3 ,ug m-3 ,PM1_NO3[3] !PM1_SOIL ,ug m-3 ,PM1_SOIL[3] !PM1_UNSPEC1 ,ug m-3 ,PM1_UNSP1[3] !PM1_UNSPCRS ,ug m-3 ,PM1_UNSPCRS[3] !! PM2.5 species computed using modeled size distribution PM25_HP ,ug m-3 ,PM25_HP[3] PM25_CL ,ug m-3 ,PM25_CL[3] PM25_EC ,ug m-3 ,PM25_EC[3] PM25_NA ,ug m-3 ,PM25_NA[3] PM25_MG ,ug m-3 ,PM25_MG[3] PM25_K ,ug m-3 ,PM25_K[3] PM25_CA ,ug m-3 ,PM25_CA[3] PM25_NH4 ,ug m-3 ,PM25_NH4[3] PM25_NO3 ,ug m-3 ,PM25_NO3[3] PM25_OC ,ugC m-3 ,PM25_OC[3] PM25_OM ,ug m-3 ,PM25_OA[3] PM25_SOIL ,ug m-3 ,PM25_SOIL[3] PM25_SO4 ,ug m-3 ,PM25_SO4[3] PM25_TOT ,ug m-3 ,PM25[3] PM25_UNSPEC1 ,ug m-3 ,PM25_UNSP1[3] PM25_UNSPCRS ,ug m-3 ,PM25_UNSPCRS[3] !! PM10.0 and Coarse-Sized Species PM10 ,ug m-3 ,PM10[3] PMC_CL ,ug m-3 ,PM25TO10_CL[3] PMC_NA ,ug m-3 ,PM25TO10_NA[3] PMC_NH4 ,ug m-3 ,PM25TO10_NH4[3] PMC_NO3 ,ug m-3 ,PM25TO10_NO3[3] PMC_SO4 ,ug m-3 ,PM25TO10_SO4[3] PMC_TOT ,ug m-3 ,PM25TO10[3] !! FRM PM Equivalent Calculation PMIJ_FRM ,ug m-3 ,PMF_FRM[3] PM25_FRM ,ug m-3 ,PM25_FRM[3] ================================================ FILE: CCTM/src/MECHS/cracmm1amore_aq/mech_cracmm1amore_aq.def ================================================ !! CRACMM version 1.0 mechanism developed 2021 by USEPA !! CRACMM builds upon RACM2 and RACM !! ********************************************************************** !! FILE: RACM2.5M4.mch - update MACR scheme with geos-chem !! DATE: Sept 4, 2012 - update MVK + O3 rxn !! VERSION: Final Frozen Version - all updates from reviewers !! ID: RACM Version 2.5M1 - updates from IUPAC JAN 2008 !! LAST UPDATE: Sept 4, 2012 !! -------------------------------------------------------------------- !! Based on REGIONAL ATMOSPHERIC CHEMISTRY MECHANISM (RACM) Version 1.3 !! Reference: W.R. Stockwell, F. Kirchner, M. Kuhn, and S. Seefeld, "A !! New Mechanism for Regional Atmospheric Chemistry Modeling", J. of !! Geophys. Res., 1997. !! -------------------------------------------------------------------- !! FOR MORE INFORMATION REGARDING THIS MECHANISM CONTACT: !! Wendy S. Goliff !! CE-CERT !! UC Riverside !! 1084 Columbia Ave !! Riverside, CA 92507 !! E-MAIL: wendyg@cert.ucr.edu !! Telephone: (951) 781-5665 !! FAX: !! OR !! William R. Stockwell !! Department of Chemistry, Room 120 !! Howard University !! 525 College Street, NW !! Washington DC 20059 !! E-MAIL: William.R.Stockwell@gmail.com !! Telephone: (202) 806-6913 !! FAX: (202) 806-5442 ! ********************************************************************** ! The RACM2 mechanism is based upon the earlier Regional Atmospheric ! Chemistry Mechanism (RACM) mechanism. It is intended to be valid for ! conditions ranging from remote to polluted and from the Earth's ! surface through the upper troposphere. The RACM2 mechanism includes ! 356 reactions and 117 total species: 17 stable inorganic species, 4 ! inorganic intermediates, 54 stable organic species (4 of these are ! primarily of biogenic origin) and 42 organic intermediates. ! ********************************************************************** ! ********************************************************************** ! Reformatted by Golam Sarwar in September 2012 for making it compatible with CMAQ ! Following species have been removed from the product list since these are used as constants in CMAQ - CH4, H2, O2 ! Following species have been removed from the product list since these are used as input to CMAQ - H2O ! Following species have been removed from the product list since CMAQ does not track these species - CO2 ! ! ! Modified for incorporating secondary sulfate and SOA mechanism ! Added SULRXN - counter species for aerosol from SO2 + OH reaction ! Added ISOPRXN - counter species for aerosol from ISO + OH reaction ! Added TRPRXN - counter species for aerosol from API and LIM ! Added TOLRO2, XYLRO2, BENZRO2 - first generation products from TOL, XYL and BEN that further react with NO and NO2 to produce SVOC ! Added two reactions for TOLRO2, added TOLNRXN, TOLHRXN - counter species for aerosol from TOL ! Added two reactions for XYLRO2, added XYLNRXN, XYLHRXN - counter species for aerosol from XYL and XYO ! Added two reactions for BENZRO2 added BNZNRXN, BNZHRXN - counter species for aerosol from BEN ! Added three reactions for SESQ from sesquiterpene, added SESQRXN - counter species for aerosol from SESQ ! BEN is changed to BENZENE since SOA module is expecting BENZENE, not BEN ! ADDED ALK5 FOR SOA PRODUCTION from HC8 ! ! Rate constant for R051 has a special expression ! ! Revised the rate constant of R65 based on IUPAC2010 ! ! Wendy Goliff corrected type errors in R110 and R111 ! ! B.Hutzell 07/10/14 ! added inorganic heterogeneous reactions for N2O5 and NO2, oligomerization reactions for ! SOA species and aging reactions for primary organic carbon and non-carbon aerosol species ! B.Hutzell 11/3/14 ! -changed ALK5RXN yield in reaction from 1.0 to 0.47 based on SOA updates ! suggested by H. Pye's for cb05e51_ae6_aq ! -Modified by splitting oligomerization into two reactions: one for each ! Alkene SOA species. The new species were introduced in cb05e51_ae6_aq ! Golam Sarwar 12/02/14 ! -Added a simple halogen chemistry over sea-water ! Golam Sarwar 6/25/15 ! -Revised the simple halogen chemistry over sea-water using results of two-way CMAQ model and detailed halogen chemistry ! Golam Sarwar 6/29/15 ! - Updated SOA formation; see CB05 changes done by Havala Pye for details ! - Added ISOPRXN counter to ISO + NO3 reaction to add SOA formation ! - Added SOAALK + OH reaction for SOA production and removed ALK5RXN from R075 ! - Added Naphthalene reaction for SOA ! - Added heterogeneous uptake of IEPOX on acidic aerosol ! - Yield of XYLRO2 in R083 is reduced to 0.98 to prevent double counting of SOA production from XYM since naphthalene is also included in XYM ! - 0.98 is the emission ratio of (XYM-NAPTH)/XYM for July 2011 ! 05-25-17 B. Hutzell ! 1. updated the oligomerization reactions to be consistent with the ! saprc07tic_ae6_aq mechanism. ! 03-04-21 G. Sarwar ! updated !------------------------------------------------------------------------------ ! CRACMMv1.0 modifications ! - XYO and XYP combined and replaced with XYE (R084c). Retains products of XYO ! (same as XYP) but decreases kOH to surrogate (ethylbenzene) value. ! Major contributors ethylbenzene and o-xylene. ! - renamed BENZENE to BEN for greater consistency in name length ! - added HAP placeholder chemistry for BDE13, ACRO. NAPH already present. ! - added PROG based on Coggon et al. PNAS 2021 and ! MCM http://mcm.york.ac.uk/browse.htt?species=PROPGLY ! - Photolysis updates added per B. Hutzell ! - FURAN chemistry added based on Wang et al. JGR 2021, Schwantes, Coggon ! - SESQ chemistry added based on MCM per H. Pye ! - Phenolic (PHEN, CSL) SOA added per H. Pye ! - Monoterpene nitrates added per B. Place ! - ACRO, BDE13 chemistry added per E. D'Ambro ! - Oxygenated ROC (ROCOXY) chemistry added per B. Murphy ! - Alkane ROC (ROCALK) chemistry added per K. Seltzer ! - HC8 replaced with HC10 following ROCALK template by H. Pye ! - Aromatic chemistry (ROCARO, NAPH, BTX) added per H. Pye ! - AMORE isoprene condensation from Woods Wiser and Faye McNeill implemented by B. Place !------------------------------------------------------------------------------ ! 10-18-21 G. Sarwar ! updated rate constants for inorganic reactions and three organic reactions (R70-R71) ! added one photolysis reaction (R014a), updated reaction products for R016 and R017 ! updated photolysis rate coefficients for CH3COCH3, MEK, KET, ALD, HCHO !------------------------------------------------------------------------------ CRACMM1AMORE_AQ ELIMINATE = XN; XC; CO2; END ELIMINATE REACTIONS[CM] = O3 = O3P # 1.0/; O3 = O1D # 1.0/; H2O2 = 2.0*HO # 1.0/; NO2 = O3P + NO # 1.0/; NO3 = NO # 1.0/; NO3 = O3P + NO2 # 1.0/; HONO = HO + NO # 1.0/; HNO3 = HO + NO2 # 1.0/; HNO4 = 0.20*HO + 0.80*HO2 + 0.80*NO2 + 0.20*NO3 # 1.0/; HCHO = CO # 1.0/; HCHO = HO2 + HO2 + CO # 1.0/; ACD = HO2 + MO2 + CO # 1.0/; ALD = HO2 + ETHP + CO # 1.0/; ACT = MO2 + ACO3 # 1.0/; ACT = 2.0*MO2 + CO # 1.0/; UALD = 1.22*HO2 + 0.784*ACO3 + 1.22*CO + 0.35*HCHO + 0.434*ALD + 0.216*KET # 1.0/; PINAL = HO2 + HC10P + CO # 1.0/; LIMAL = HO2 + HC10P + CO # 1.0/; MEK = 0.10*MO2 + ETHP + 0.9*ACO3 + 0.1*CO # 1.0/; KET = 1.5*ETHP + 0.5*ACO3 + 0.5*CO # 1.0/; HKET = HO2 + ACO3 + HCHO # 1.0/; MACR = 0.34*HO + 0.66*HO2 + 0.67*ACO3 + 0.33*MACP + 0.34*XO2 + 0.67*CO + 0.67*HCHO # 1.0/; MVK = 0.3*MO2 + 0.3*MACP + 0.7*CO + 0.7*UALD # 1.0/; GLY = 2*CO # 1.0/; GLY = HCHO + CO # 1.0/; GLY = 2*HO2 + 2*CO # 1.0/; MGLY = HO2 + ACO3 + CO # 1.0/; DCB1 = 1.5*HO2 + 0.25*ACO3 + 0.2*XO2 + CO + 0.5*GLY + 0.5*MGLY # 1.0/; DCB2 = 1.5*HO2 + 0.25*ACO3 + 0.2*XO2 + CO + 0.5*GLY + 0.5*MGLY # 1.0/; BALD = CHO + HO2 + CO # 1.0/; OP1 = HO + HO2 + HCHO # 1.0/; OP2 = HO + HO2 + ALD # 1.0/; OPB = HO + HO2 + ALD # 1.0/; OP3 = HO + HO2 + ALD # 1.0/; PAA = HO + MO2 # 1.0/; ONIT = HO2 + NO2 + 0.20*ALD + 0.80*KET # 1.0/; PAN = ACO3 + NO2 # 1.0/; PAN = MO2 + NO3 # 1.0/; O3 + HO = HO2 # 1.7E-12 @ 940.; O3 + HO2 = HO # 1.0E-14 @ 490.; O3 + NO = NO2 # 3.0E-12 @ 1500.; O3 + NO2 = NO3 # 1.2E-13 @ 2450.; O3P + O2 + M = O3 # 6.10E-34 ^ -2.4; O3P + O3 = # 8.0E-12 @ 2060.; O1D + O2 = O3P # 3.3E-11 @ -55.; O1D + N2 = O3P # 2.15E-11 @ -110.; O1D + H2O = 2.0*HO # 1.63E-10 @ -60.0; H2 + HO = HO2 # 2.80E-12 @ 1800.; HO + HO2 = # 4.8E-11 @ -250.; HO2 + HO2 = H2O2 %3 # 3.0E-13 @ -460. & 2.1E-33 @ -920.; HO2 + HO2 + H2O = H2O2 %3 # 4.20E-34 @ -2660. & 2.94E-54 @ -3120.; H2O2 + HO = HO2 # 1.8E-12 @ 0.; NO + O3P = NO2 # 9.1E-32 ^ -1.5 & 3.0E-11 ^ 0.0 ; NO + HO = HONO # 7.1E-31 ^ -2.6 & 3.6E-11 ^ -0.1; NO + HO2 = NO2 + HO # 3.44E-12 @ -260.; NO + HO2 = HNO3 %3 # 6.095e-14^-1.0@-270.0& 6.857e-34^1.0@-270.0& -5.968e-14@-270.0; NO + NO + O2 = 2.0*NO2 # 4.25E-39 @ -663.5; HONO + HO = NO2 # 3.0E-12 @ -250.; NO2 + O3P = NO # 5.3E-12 @ -200.; NO2 + O3P = NO3 # 3.4E-31 ^ -1.6 & 2.3E-11 ^ -0.2; NO2 + HO = HNO3 # 1.80E-30 ^ -3.0 & 2.80E-11 ^ 0.0; HNO3 + HO = NO3 %2 # 2.4E-14 @ -460 & 2.7E-17 @ -2199 & 6.5E-34 @ -1335; NO3 + HO = HO2 + NO2 # 2.0E-11; NO3 + HO2 = 0.7*HO + 0.7*NO2 + 0.3*HNO3 # 3.50E-12; NO3 + NO = 2.0*NO2 # 1.7E-11 @ -125.; NO3 + NO2 = NO + NO2 # 4.35E-14 @ 1335.; NO3 + NO3 = 2.0*NO2 # 8.5E-13 @ 2450.; NO3 + NO2 = N2O5 # 2.40E-30 ^ -3.0 & 1.6E-12 ^ +0.1; N2O5 = NO2 + NO3 # 5.80E-27 @ -10840.0 *E; N2O5 + H2O = 2.0*HNO3 # 1.0E-22; NO2 + HO2 = HNO4 # 1.9E-31 ^ -3.4 & 4.0E-12 ^ -0.3; HNO4 = HO2 + NO2 # 2.10E-27 @ -10900.0 *E; HNO4 + HO = NO2 # 4.50E-13 @ -610.; SO2 + HO = HO2 + SULF + SULRXN # 2.9E-31 ^ -4.1 & 1.7E-12 ^ +0.2; CO + HO = HO2 %3 # 1.44E-13 @ 0.0 & 2.74E-33 @ 0.0; CH4 + HO = MO2 # 2.45E-12 @ 1775.; ETH + HO = ETHP # 7.66E-12 @ 1020.; HC3 + HO = HC3P + 0.0000281*ASOATJ # 7.68E-12 @ 370.; HC5 + HO = HC5P + 0.00134*ASOATJ # 1.01E-11 @ 245.; ETE + HO = ETEP # 1.0E-28 ^ -4.5 & 8.8E-12 ^ -0.85; OLT + HO = OLTP # 5.72E-12 @ -500.; OLI + HO = OLIP # 1.33E-11 @ -500.; ACE + HO = 0.650*HO + 0.350*HO2 + 0.350*CO + 0.650*GLY + 0.350*ORA1 # 5.5E-30 ^ 0.0 & 8.3E-13 ^ 2.0; ! MCM-based chemistry for aromatics, RACM2 rates for BEN, TOL, XYM BEN + HO = 0.4700*BENP + 0.5300*PHEN + 0.5300*HO2 # 2.33E-12 @ 193.; TOL + HO = 0.8200*TOLP + 0.1800*CSL + 0.1800*HO2 # 1.81E-12 @ -354.; XYM + HO = 0.8300*XYMP + 0.1700*CSL + 0.1700*HO2 # 2.33E-11; XYE + HO = 0.8200*XYEP + 0.1800*CSL + 0.1800*HO2 #7.16E-12; !Isoprene AMORE mechanism ISO + O3 = 0.07*MACR + 0.189*MVK + 0.58*HCHO + 0.25*HO + 0.25*HO2 + 0.58*HCHO + 0.08*MO2 + 0.1*ACO3 + 0.09*H2O2 + 0.1*MACP + 0.461*MACR + 0.14*CO + 0.28*ORA1 + 0.15*OLT # 1.58E-14 @ 2000; ISO + NO3 = INO2 + 0.3*HCHO + 0.3*NO2 + 0.3*NALD # 2.95E-12 @ 450; ISO + HO = ISOP + 0.02*MO2 # 2.69E-11 @ -390; ISOP + HO2 = ISHP + 0.6*HO2 + 0.15*HCHO # 4.5E-13 @ -1300; ISOP + NO = 0.14*ISON + 0.7*HCHO + 0.44*MVK + 0.88*HO2 + 0.78*NO2 + 0.28*MACR + 0.021*GLY # 2.7E-12 @ -350; ISHP + HO = ISOP # 4.6E-12 @ -200; INO2 + HO2 = IPN + HO # 3.14E-14 @ -580; INO2 + NO = 0.9*HCHO + 0.5*MGLY + 0.8*MVK + 0.5*NO2 + 1*HO2 + 0.2*NALD + 0.1*MO2 # 9.42E-16 @ -580; IPN + HO2 = 0.8*NO2 + 1.0*HO2 + 0.4*HCHO + 0.05*GLY + 0.1*MGLY + 0.4*MACR + 0.94*MVK + 0.2*NALD + 0.1*MO2 # 3.4E-11 @ -390; ISON + HO = NALD + HO + 0.2*IEPOX # 2.4E-7 @ -580; ISHP + HO = 0.15*HCHO + 0.05*MGLY + 0.15*MACR + 0.02*GLY + 0.2*MVK + 0.4*NO2 + 0.05*IPC + 0.58*IEPOX + 0.8*HO # 2.97E-11 @ -390; ISHP = 0.4*HCHO + 0.1*MGLY + 0.06*ACO3 # 1.0/; IPC + NO = 0.35*NO2 + 0.8*NO # 1.0E-10; NALD + HO = CO + 0.12*NO2 # 5E-11; NALD + NO3 = CO # 2.0E-14; ISON = HNO3 + ROH # 2.3E-5; API + HO = 0.975*APIP1 + 0.025*APIP2 # 1.21E-11 @ -440.; LIM + HO = 0.945*LIMP1 + 0.055*LIMP2 # 4.20E-11 @ -401.; PINAL + HO = 0.23*PINALP + 0.77*RCO3 # 5.20E-12 @ -600.; LIMAL + HO = 0.70*LIMALP + 0.30*RCO3 # 1.00E-10; HCHO + HO = HO2 + CO # 5.50E-12 @ -125.; ACD + HO = ACO3 # 4.70E-12 @ -345.; ALD + HO = RCO3 # 4.90E-12 @ -405.; ACT + HO = ACTP # 4.56E-14 ^ 3.65 @ 427; MEK + HO = MEKP # 1.5E-12 @ 90.; KET + HO = KETP # 2.8E-12 @ -10.; HKET + HO = HO2 + MGLY # 3.0E-12; MACR + HO = 0.57*MACP + 0.43*MCP # 8.00E-12 @ -380.; MVK + HO = MVKP # 2.60E-12 @ -610.; UALD + HO = 0.313*ACO3 + 0.687*UALP # 5.77E-12 @ -533.; GLY + HO = HO2 + 2.0*CO # 1.1E-11; MGLY + HO = ACO3 + CO # 9.26E-13 @ -830.; DCB1 + HO = 0.52*HO2 + 0.33*CO + 0.40*ALD + 0.78*KET + 0.10*GLY + 0.01*MGLY # 2.8E-11 @ -175.; DCB2 + HO = 0.52*HO2 + 0.33*CO + 0.13*MEK + 0.10*GLY + 0.01*MGLY + 0.78*OP2 # 2.8E-11 @ -175.; DCB3 + HO = 0.56*HO2 + 0.21*MACP + 0.11*CO + 0.27*GLY + 0.01*MGLY + 0.79*OP2 # 1.00E-11; BALD + HO = BALP # 5.32E-12 @ -243.; PHEN + HO = 0.152*ASOATJ + 0.619*HO2 + 0.170*ADDC + 0.059*CHO + 0.619*MCT # 6.75E-12 @ -405.; CSL + HO = 0.200*ASOATJ + 0.584*HO2 + 0.160*ADDC + 0.056*CHO + 0.584*MCT # 4.65E-11 @ 0.0; MCT + HO = MCTO # 2.05E-10 @ 0.0; MOH + HO = HO2 + HCHO # 2.85E-12 @ 345.; EOH + HO = HO2 + ACD # 3.0E-12 @ -20.; ROH + HO = HO2 + 0.719*ALD + 0.184*ACD # 2.6E-12 @ -200.; ETEG + HO = HO2 + ALD # 1.47E-11; OP1 + HO = 0.35*HO + 0.65*MO2 + 0.35*HCHO # 2.9E-12 @ -190.; OP2 + HO = 0.01*HO + 0.44*HC3P + 0.07*XO2 + 0.08*ALD + 0.41*KET # 3.40E-12 @ -190.0; OPB + HO = 0.01*HO + 0.44*HC10P + 0.07*XO2 + 0.08*ALD + 0.41*KET # 3.40E-12 @ -190.0; OP3 + HO = 0.01*HO + 0.44*HC10P + 0.07*XO2 + 0.08*ALD + 0.41*KET # 3.40E-12 @ -190.0; MAHP + HO = MACP # 3.0E-11; ORA1 + HO = HO2 # 4.5E-13; ORA2 + HO = 0.64*MO2 + 0.36*ORAP # 4.0E-14 @ -850.; PAA + HO = 0.35*HO + 0.65*ACO3 + 0.35*XO2 + 0.35*HCHO # 2.93E-12 @ -190.; PAN + HO = XO2 + NO3 + HCHO # 4.0E-14; PPN + HO = XO2 + NO3 + HCHO # 4.0E-14; MPAN + HO = NO2 + HKET # 3.2E-11; ONIT + HO = HC3P + NO2 # 5.31E-12 @ 260.; TRPN + HO = HOM # 4.80E-12; ETE + O3 = 0.08*HO + 0.15*HO2 + 0.43*CO + HCHO + 0.37*ORA1 # 9.14E-15 @ 2580.; OLT + O3 = 0.22*HO + 0.32*HO2 + 0.08*MO2 + 0.06*ETHP + 0.04*HC3P + 0.02*HC5P + 0.068*H2O2 + 0.43*CO + 0.02*ETH + 0.015*HC3 + 0.006*HC5 + 0.032*BEN + 0.56*HCHO + 0.01*ACD + 0.44*ALD + 0.03*ACT + 0.02*BALD + 0.06*MEK + 0.01*HKET + 0.03*ORA1 + 0.06*ORA2 # 4.33E-15 @ 1800.0; OLI + O3 = 0.46*HO + 0.07*HO2 + 0.32*MO2 + 0.07*ETHP + 0.04*HC3P + 0.09*ACO3 + 0.37*CO + 0.026*H2O2 + 0.01*ETH + 0.01*HC3 + 0.09*HCHO + 0.457*ACD + 0.73*ALD + 0.11*ACT + 0.017*KET + 0.044*HKET + 0.017*ORA2 # 4.40E-15 @ 845.0; API + O3 = 0.90*HO + 0.90*APIP1 + 0.05*APIP2 + 0.05*PINAL + 0.05*H2O2 + 0.14*CO # 5.0E-16 @ 530.; LIM + O3 = 0.84*HO + 0.84*LIMP1 + 0.11*LIMP2 + 0.05*LIMAL + 0.05*H2O2 + 0.14*CO # 2.95E-15 @ 783.; LIMAL + O3 = 0.04*HO + 0.67*HC10P + 0.79*HCHO + 0.33*KET + 0.04*HO2 + 0.20*CO # 8.30E-18; TRPN + O3 = HOM # 1.67E-16; MACR + O3 = 0.19*HO + 0.14*HO2 + 0.10*ACO3 + 0.22*CO + 0.50*MGLY + 0.45*ORA1 # 1.36E-15 @ 2112.; MVK + O3 = 0.16*HO + 0.11*HO2 + 0.28*ACO3 + 0.01*XO2 + 0.56*CO + 0.10*HCHO + 0.54*MGLY + 0.07*ORA1 + 0.07*ORA2 + 0.10*ALD # 8.50E-16 @ 1520.; UALD + O3 = 0.100*HO + 0.072*HO2 + 0.008*MO2 + 0.002*ACO3 + 0.10*XO2 + 0.243*CO + 0.080*HCHO + 0.420*ACD + 0.028*KET + 0.491*GLY + 0.003*MGLY + 0.044*ORA1 # 1.66E-18; DCB1 + O3 = 0.05*HO + HO2 + 0.60*RCO3 + 0.60*XO2 + 1.50*CO + 0.05*HCHO + 0.05*GLY + 0.08*MGLY + 0.65*OP2 # 2.0E-16; DCB2 + O3 = 0.05*HO + HO2 + 0.60*RCO3 + 0.60*XO2 + 1.50*CO + 0.05*HCHO + 0.05*GLY + 0.08*MGLY + 0.70*DCB1 + 0.65*OP2 # 2.0E-16; DCB3 + O3 = 0.05*HO + HO2 + 1.50*CO + 0.48*GLY + 0.70*DCB1 + 0.25*ORA1 + 0.25*ORA2 + 0.11*PAA # 9.0E-17; MCTO + O3 = MCTP # 2.86E-13; ETE + NO3 = 0.80*OLNN + 0.20*OLND # 4.392E-13^2.0@2282.0; OLT + NO3 = 0.43*OLNN + 0.57*OLND # 1.79E-13 @ 450.; OLI + NO3 = 0.11*OLNN + 0.89*OLND # 8.64E-13 @ -450.; API + NO3 = 0.975*APINP1 + 0.025*APINP2 # 1.19E-12 @ -490.; LIM + NO3 = 0.945*LIMNP1 + 0.055*LIMNP2 # 1.22E-11; TRPN + NO3 = HOM # 3.15E-14 @ 448.; HCHO + NO3 = HO2 + CO + HNO3 # 2.0E-12 @ 2440.; ACD + NO3 = ACO3 + HNO3 # 1.4E-12 @ 1900.; ALD + NO3 = RCO3 + HNO3 # 3.76E-12 @ 1900.; MACR + NO3 = 0.68*HCHO + 0.32*MACP + 0.68*XO2 + 0.68*MGLY + 0.32*HNO3 + 0.68*NO2 # 3.40E-15; UALD + NO3 = HO2 + XO2 + 0.668*CO + 0.332*HCHO + 0.332*ALD + ONIT # 5.02E-13 @ 1076.; GLY + NO3 = HO2 + 2.0*CO + HNO3 # 2.90E-12 @ 1900.; MGLY + NO3 = ACO3 + CO + HNO3 # 3.76E-12 @ 1900.; PHEN + NO3 = 0.152*ASOATJ + 0.339*CHO + 0.85*ADDC + 0.424*ADCN + 0.424*HNO3 # 3.78E-12; CSL + NO3 = 0.200*ASOATJ + 0.320*CHO + 0.08*ADDC + 0.4*ADCN + 0.4*HNO3 # 1.06E-12; MCT + NO3 = MCTO + HNO3 # 2.01E-10; MPAN + NO3 = MACP + NO2 # 2.2E-14 @ 500.; PINALP = HOM # 1.0; LIMALP = HOM # 1.0; ACO3 + NO2 = PAN # 9.7E-29 ^ -5.6 & 9.3E-12 ^ -1.5; PAN = ACO3 + NO2 # 9.00E-29 @ -14000.0 *E; RCO3 + NO2 = PPN # 9.7E-29 ^ -5.6 & 9.3E-12 ^ -1.5; PPN = RCO3 + NO2 # 9.00E-29 @ -14000.0 *E; MACP + NO2 = MPAN # 2.80E-12 @ -181.; MPAN = MACP + NO2 # 1.60E+16 @ 13486.; MO2 + NO = HO2 + NO2 + HCHO # 2.80E-12 @ -300.; ETHP + NO = HO2 + NO2 + ACD # 2.6E-12 @ -365.; HC3P + NO = 0.660*HO2 + 0.131*MO2 + 0.048*ETHP + 0.089*XO2 + 0.935*NO2 + 0.504*ACD + 0.132*ALD + 0.165*ACT + 0.042*MEK + 0.065*ONIT # 4.0E-12; HC5P + NO = 0.200*HO2 + 0.051*MO2 + 0.231*ETHP + 0.235*XO2 + 0.864*NO2 + 0.018*HCHO + 0.045*ACD + 0.203*ALD + 0.033*MEK + 0.217*ACT + 0.033*KET + 0.272*HKET + 0.136*ONIT # 4.0E-12; ETEP + NO = HO2 + NO2 + 1.6*HCHO + 0.2*ALD # 9.0E-12; OLTP + NO = 0.78*HO2 + 0.97*NO2 + 0.78*HCHO + 0.012*ACD + 0.44*ALD + 0.06*ACT + 0.13*MEK + 0.03*ONIT # 4.00E-12; OLIP + NO = 0.83*HO2 + 0.95*NO2 + 0.81*ACD + 0.68*ALD + 0.20*ACT + 0.09*KET + 0.02*HKET + 0.05*ONIT # 4.00E-12; ! MCM-based aromatics with Lu et al. updates BENP + NO = 0.0000*ONIT + 0.0012*VROCP4OXY2 + 0.0008*VROCN1OXY6 + 0.9980*NO2 + 0.9980*HO2 + 0.0000*BALD + 0.9980*GLY + 0.4990*FURANONE + 0.2495*DCB2 + 0.2495*DCB3 # 2.7E-12 @ -360.; TOLP + NO = 0.0002*ONIT + 0.0013*VROCP4OXY2 + 0.0006*VROCN1OXY6 + 0.9980*NO2 + 0.9980*HO2 + 0.0852*BALD + 0.5477*GLY + 0.3651*MGLY + 0.3651*FURANONE + 0.5477*DCB1 # 2.7E-12 @ -360.; XYMP + NO = 0.0001*ONIT + 0.0013*VROCP3OXY2 + 0.0006*VROCP0OXY4 + 0.9980*NO2 + 0.9980*HO2 + 0.0481*BALD + 0.7029*GLY + 0.2470*MGLY + 0.3515*FURANONE + 0.5984*DCB2 # 2.7E-12 @ -360.; XYEP + NO = 0.0002*ONIT + 0.0013*VROCP3OXY2 + 0.0006*VROCP0OXY4 + 0.9980*NO2 + 0.9980*HO2 + 0.0852*BALD + 0.5477*GLY + 0.3651*MGLY + 0.4564*FURANONE + 0.4564*DCB2 # 2.7E-12 @ -360.; APIP1 + NO = 0.82*HO2 + 0.82*NO2 + 0.82*PINAL + 0.18*TRPN # 4.0E-12; APIP2 + NO = 0.82*HO + 0.82*NO2 + HOM # 4.0E-12; APINP1 + NO = 2*NO2 + PINAL # 4.0E-12; APINP2 + NO = 0.82*NO2 + 0.82*HO + HOM # 4.0E-12; LIMP1 + NO = 0.77*HO2 + 0.77*NO2 + 0.49*LIMAL + 0.28*HCHO + 0.28*UALD + 0.23*TRPN # 4.0E-12; LIMP2 + NO = 0.77*HO + 0.77*NO2 + HOM # 4.0E-12; LIMNP1 + NO = 2*NO2 + LIMAL # 4.0E-12; LIMNP2 + NO = 0.77*NO2 + 0.77*HO + HOM # 4.0E-12; PINALP + NO = 0.95*HO2 + 0.95*NO2 + 0.05*TRPN + 0.95*HCHO + 0.95*KET # 2.7E-12 @ -360.; LIMALP + NO = 0.94*HO2 + 0.94*NO2 + 0.06*TRPN + 0.94*HCHO + 0.94*KET # 2.7E-12 @ -360.; ACO3 + NO = MO2 + NO2 # 8.1E-12 @ -270.; RCO3 + NO = ETHP + NO2 # 8.1E-12 @ -270.; ACTP + NO = ACO3 + NO2 + HCHO # 2.9E-12 @ -300.; MEKP + NO = 0.67*HO2 + NO2 + 0.33*HCHO + 0.67*DCB1 # 4.0E-12; KETP + NO = 0.77*HO2 + 0.23*ACO3 + 0.16*XO2 + NO2 + 0.46*ALD + 0.54*MGLY # 4.0E-12; MACP + NO = 0.65*MO2 + 0.35*ACO3 + NO2 + 0.65*CO + 0.65*HCHO # 2.54E-12 @ -360.; MCP + NO = NO2 + 0.50*HO2 + 0.50*HCHO + HKET # 2.54E-12 @ -360.; MVKP + NO = 0.3*HO2 + 0.7*ACO3 + 0.7*XO2 + NO2 + 0.3*HCHO + 0.7*ALD + 0.3*MGLY # 2.54E-12 @ -360.; UALP + NO = HO2 + NO2 + 0.61*CO + 0.03*HCHO + 0.27*ALD + 0.18*GLY + 0.7*KET + 0.21*MGLY # 2.54E-12 @ -360.; BALP + NO = BAL1 + NO2 # 4.0E-12; BAL1 + NO = BAL2 + NO2 # 4.0E-12; ADDC + NO = HO2 + NO2 + 0.32*HKET + 0.68*GLY + 0.68*OP2 # 2.7E-12 @ -360.; MCTP + NO = MCTO + NO2 # 2.7E-12 @ -360.; ORAP + NO = NO2 + GLY + HO2 # 4.0E-12; OLNN + NO = NO2 + HO2 + ONIT # 4.0E-12; OLND + NO = 2.00*NO2 + 0.287*HCHO + 1.24*ALD + 0.464*KET # 4.0E-12; ADCN + NO = 2.0*NO2 + GLY + OP2 # 2.7E-12 @ -360.; XO2 + NO = NO2 # 4.0E-12; BAL2 + NO2 = ONIT # 2.0E-11; CHO + NO2 = ONIT # 2.0E-11; MCTO + NO2 = ONIT # 2.08E-12; MO2 + HO2 = OP1 # 4.1E-13 @ -750.; ETHP + HO2 = OP2 # 7.5E-13 @ -700.; HC3P + HO2 = OP2 # 1.66E-13 @ -1300.; HC5P + HO2 = OP2 # 1.66E-13 @ -1300.; ETEP + HO2 = OP2 # 1.90E-13 @ -1300.; OLTP + HO2 = OP2 # 1.66E-13 @ -1300.; OLIP + HO2 = OP2 # 1.66E-13 @ -1300.; ! MCM-based aromatics BENP + HO2 = 0.0000*OP2 + 0.6021*OP2 + 0.3979*VROCN1OXY6 # 2.91E-13 @ -1300.; TOLP + HO2 = 0.0854*OP2 + 0.6341*OP2 + 0.2805*VROCN1OXY6 # 2.91E-13 @ -1300.; XYMP + HO2 = 0.0482*OP2 + 0.6747*OP3 + 0.2771*VROCP0OXY4 # 2.91E-13 @ -1300.; XYEP + HO2 = 0.0854*OP2 + 0.6341*OP3 + 0.2805*VROCP0OXY4 # 2.91E-13 @ -1300.; APIP1 + HO2 = OPB # 1.5E-11; APIP2 + HO2 = HOM # 1.5E-11; APINP1 + HO2 = TRPN # 1.5E-11; APINP2 + HO2 = HOM # 1.5E-11; LIMP1 + HO2 = OPB # 1.5E-11; LIMP2 + HO2 = HOM # 1.5E-11; LIMNP1 + HO2 = TRPN # 1.5E-11; LIMNP2 + HO2 = HOM # 1.5E-11; PINALP + HO2 = OPB # 2.91E-13 @ -1300.; LIMALP + HO2 = OPB # 2.91E-13 @ -1300.; ACO3 + HO2 = 0.44*HO + 0.44*MO2 + 0.15*ORA2 + 0.41*PAA # 4.3E-13 @ -1040.; RCO3 + HO2 = 0.44*HO + 0.44*ETHP + 0.15*ORA2 + 0.41*PAA # 4.3E-13 @ -1040.; ACTP + HO2 = 0.150*HO + 0.150*ACO3 + 0.150*HCHO + 0.850*OP2 # 1.15E-13 @ -1300.; MEKP + HO2 = OP2 # 1.15E-13 @ -1300.; KETP + HO2 = OP2 # 1.15E-13 @ -1300.; MACP + HO2 = MAHP # 1.82E-13 @ -1300.; MCP + HO2 = MAHP # 1.82E-13 @ -1300.; MVKP + HO2 = OP2 # 2.91E-13 @ -1300.; UALP + HO2 = OP2 # 2.91E-13 @ -1300.; ADDC + HO2 = OP2 # 3.75E-13 @ -980.; CHO + HO2 = CSL # 1.00E-11; MCTP + HO2 = OP2 # 3.75E-13 @ -980.; ORAP + HO2 = OP2 # 1.15E-13 @ -1300.; OLNN + HO2 = ONIT # 1.66E-13 @ -1300.; OLND + HO2 = ONIT # 1.66E-13 @ -1300.; ADCN + HO2 = OP2 # 3.75E-13 @ -980.; XO2 + HO2 = OP2 # 1.66E-13 @ -1300.; MO2 + MO2 = 0.74*HO2 + 1.37*HCHO + 0.63*MOH # 9.5E-14 @ -390.; ETHP + MO2 = HO2 + 0.75*HCHO + 0.75*ACD + 0.250*MOH + 0.250*EOH # 1.18E-13 @ -158.; HC3P + MO2 = 0.894*HO2 + 0.080*MO2 + 0.026*ETHP + 0.026*XO2 + 0.827*HCHO + 0.198*ALD + 0.497*KET + 0.050*GLY + 0.250*MOH + 0.250*ROH # 9.46E-14 @ -431.; HC5P + MO2 = 0.842*HO2 + 0.018*MO2 + 0.140*ETHP + 0.191*XO2 + 0.777*HCHO + 0.251*ALD + 0.618*KET + 0.250*MOH + 0.250*ROH # 1.0E-13 @ -467.; ETEP + MO2 = HO2 + 1.95*HCHO + 0.15*ALD + 0.250*MOH + 0.250*ETEG # 1.71E-13 @ -708.; OLTP + MO2 = HO2 + 1.50*HCHO + 0.705*ALD + 0.045*KET + 0.250*MOH + 0.250*ROH # 1.46E-13 @ -708.; OLIP + MO2 = HO2 + 0.750*HCHO + 1.28*ALD + 0.218*KET + 0.250*MOH + 0.250*ROH # 9.18E-14 @ -708.; ! MCM-based aromatics BENP + MO2 = 0.6800*HCHO + 1.3700*HO2 + 0.3200*MOH + 0.0000*BALD + 1.0000*GLY + 0.5000*FURANONE + 0.2500*DCB2 + 0.2500*DCB3 # 3.56E-14 @ -708.; TOLP + MO2 = 0.6800*HCHO + 1.2846*HO2 + 0.3200*MOH + 0.0854*BALD + 0.5488*GLY + 0.3659*MGLY + 0.3659*FURANONE + 0.5488*DCB1 # 3.56E-14 @ -708.; XYMP + MO2 = 0.6800*HCHO + 1.3218*HO2 + 0.3200*MOH + 0.0482*BALD + 0.7043*GLY + 0.2475*MGLY + 0.3522*FURANONE + 0.5996*DCB2 # 3.56E-14 @ -708.; XYEP + MO2 = 0.6800*HCHO + 1.2846*HO2 + 0.3200*MOH + 0.0854*BALD + 0.5488*GLY + 0.3659*MGLY + 0.4573*FURANONE + 0.4573*DCB2 # 3.56E-14 @ -708.; ISOP + MO2 = HO2 + 1.31*HCHO + 0.159*MACR + 0.250*MVK + 0.250*MOH + 0.250*ROH + 0.023*ALD + 0.018*GLY + 0.016*HKET # 3.4E-14 @ -221.; APIP1 + MO2 = HO2 + 0.680*HCHO + 0.600*PINAL + 0.070*KET + 0.320*MOH + 0.250*ROH # 3.56E-14 @ -708.; APIP2 + MO2 = HO2 + 0.750*HCHO + 0.250*MOH + HOM # 1.00E-10; APINP1 + MO2 = 0.37*HO2 + 0.860*NO2 + 0.680*HCHO + 0.860*PINAL + 0.320*MOH + 0.140*TRPN # 3.56E-14 @ -708.; APINP2 + MO2 = 0.75*HO2 + 0.750*NO2 + 0.250*MOH + 0.750*HCHO + HOM # 1.00E-10; LIMP1 + MO2 = HO2 + HCHO + 0.420*LIMAL + 0.300*KET + 0.320*MOH + 0.270*ROH # 3.56E-14 @ -708.; LIMP2 + MO2 = HO2 + 0.750*HCHO + 0.250*MOH + HOM # 1.00E-10; LIMNP1 + MO2 = 0.37*HO2 + 0.680*HCHO + 0.700*LIMAL + 0.700*NO2 + 0.320*MOH + 0.300*TRPN # 3.56E-14 @ -708.; LIMNP2 + MO2 = 0.75*HO2 + 0.750*HCHO + 0.750*NO2 + 0.250*MOH + HOM # 1.00E-10; ACO3 + MO2 = 0.9*HO2 + 0.9*MO2 + HCHO + 0.1*ORA2 # 2.0E-11 @ -500.; RCO3 + MO2 = 0.9*HO2 + 0.9*MO2 + HCHO + 0.1*ORA2 # 2.0E-11 @ -500.; ACTP + MO2 = 0.50*HO2 + 0.50*ACO3 + 1.50*HCHO + 0.25*MOH + 0.25*ROH + 0.125*ORA2 # 7.5E-13 @ -500.; MEKP + MO2 = 0.834*HO2 + HCHO + 0.334*DCB1 + 0.25*MOH + 0.25*ROH # 6.91E-13 @ -508.; KETP + MO2 = HO2 + 0.75*HCHO + 0.50*DCB1 + 0.25*MOH + 0.25*ROH # 6.91E-13 @ -508.; MACP + MO2 = 0.50*HO2 + 0.269*ACO3 + 0.500*CO + 1.66*HCHO + 0.067*ORA2 + 0.250*MO2 + 0.250*MOH + 0.250*ROH # 3.4E-14 @ -221.; MCP + MO2 = NO2 + HO2 + 1.50*HCHO + 0.50*HKET + 0.250*MOH + 0.250*ROH # 3.4E-14 @ -221.; MVKP + MO2 = HO2 + 1.16*ACO3 + 1.16*XO2 + 1.5*HCHO + 1.75*ALD + 0.500*MGLY + 0.250*MOH + 0.250*ROH + 0.292*ORA2 # 8.37E-14; UALP + MO2 = HO2 + 0.305*CO + 0.773*HCHO + 0.203*ALD + 0.525*KET + 0.135*GLY + 0.105*MGLY + 0.250*MOH + 0.250*ROH # 3.4E-14 @ -221.; BALP + MO2 = HO2 + BAL1 + HCHO # 3.56E-14 @ -708.; BAL1 + MO2 = HO2 + BAL2 + HCHO # 3.56E-14 @ -708.; ADDC + MO2 = 2.0*HO2 + HCHO + 0.32*HKET + 0.68*GLY + 0.68*OP2 # 3.56E-14 @ -708.; MCTP + MO2 = HO2 + MCTO + HCHO # 3.56E-14 @ -708.; ORAP + MO2 = HCHO + HO2 + GLY # 7.50E-13 @ -500.; OLNN + MO2 = 2.00*HO2 + HCHO + ONIT # 1.6E-13 @ -708.; OLND + MO2 = 0.500*HO2 + 0.500*NO2 + 0.965*HCHO + 0.930*ALD + 0.348*KET + 0.250*MOH + 0.250*ROH + 0.500*ONIT # 9.68E-14 @ -708.; ADCN + MO2 = HO2 + 0.7*NO2 + HCHO + 0.7*GLY + 0.7*OP2 + 0.3*ONIT # 3.56E-14; XO2 + MO2 = HO2 + HCHO # 5.99E-15 @ -1510.; ETHP + ACO3 = 0.500*HO2 + 0.5*MO2 + ACD + 0.5*ORA2 # 1.03E-12 @ -211.; HC3P + ACO3 = 0.394*HO2 + 0.580*MO2 + 0.026*ETHP + 0.026*XO2 + 0.130*HCHO + 0.273*ALD + 0.662*KET + 0.067*GLY + 0.500*ORA2 # 6.9E-13 @ -460.; HC5P + ACO3 = 0.342*HO2 + 0.518*MO2 + 0.140*ETHP + 0.191*XO2 + 0.042*HCHO + 0.381*ALD + 0.824*KET + 0.500*ORA2 # 5.59E-13 @ -522.; ETEP + ACO3 = 0.5*HO2 + 0.5*MO2 + 1.6*HCHO + 0.2*ALD + 0.5*ORA2 # 9.48E-13 @ -765.; OLTP + ACO3 = 0.500*HO2 + 0.500*MO2 + HCHO + 0.940*ALD + 0.060*KET + 0.500*ORA2 # 8.11E-13 @ -765.; OLIP + ACO3 = 0.500*HO2 + 0.500*MO2 + 1.71*ALD + 0.290*KET + 0.500*ORA2 # 5.09E-13 @ -765.; ! MCM-based aromatics BENP + ACO3 = 0.7000*MO2 + 1.0000*HO2 + 0.3000*ORA2 + 0.0000*BALD + 1.0000*GLY + 0.5000*FURANONE + 0.2500*DCB2 + 0.2500*DCB3 # 7.4E-13 @ -765.; TOLP + ACO3 = 0.7000*MO2 + 0.9146*HO2 + 0.3000*ORA2 + 0.0854*BALD + 0.5488*GLY + 0.3659*MGLY + 0.3659*FURANONE + 0.5488*DCB1 # 7.4E-13 @ -765.; XYMP + ACO3 = 0.7000*MO2 + 0.9518*HO2 + 0.3000*ORA2 + 0.0482*BALD + 0.7043*GLY + 0.2475*MGLY + 0.3522*FURANONE + 0.5996*DCB2 # 7.4E-13 @ -765.; XYEP + ACO3 = 0.7000*MO2 + 0.9146*HO2 + 0.3000*ORA2 + 0.0854*BALD + 0.5488*GLY + 0.3659*MGLY + 0.4573*FURANONE + 0.4573*DCB2 # 7.4E-13 @ -765.; ISOP + ACO3 = 0.5*HO2 + 0.5*MO2 + 1.048*HCHO + 0.219*MACR + 0.305*MVK + 0.5*ORA2 # 8.4E-14 @ -221.; APIP1 + ACO3 = 0.63*HO2 + 0.7*MO2 + 0.6*PINAL + 0.3*ORA2 + 0.07*KET + 0.25*ROH # 7.4E-13 @ -765.; APIP2 + ACO3 = 0.5*HO + 0.5*MO2 + 0.5*ORA2 + HOM # 1.0E-10; APINP1 + ACO3 = 0.86*NO2 + 0.14*TRPN + 0.86*PINAL + 0.7*MO2 + 0.3*ORA2 # 7.4E-13 @ -765.; APINP2 + ACO3 = 0.5*NO2 + 0.5*MO2 + 0.5*ORA2 + HOM # 1.0E-10; LIMP1 + ACO3 = 0.63*HO2 + 0.7*MO2 + 0.42*LIMAL + 0.3*KET + 0.3*ORA2 + 0.32*HCHO + 0.27*ROH # 7.4E-13 @ -765.; LIMP2 + ACO3 = 0.5*HO + 0.5*MO2 + 0.5*ORA2 + HOM # 1.0E-10; LIMNP1 + ACO3 = 0.7*NO2 + 0.7*LIMAL + 0.3*TRPN + 0.7*MO2 + 0.3*ORA2 # 7.4E-13 @ -765.; LIMNP2 + ACO3 = 0.5*MO2 + 0.5*NO2 + 0.5*ORA2 + HOM # 1.0E-10; ACO3 + ACO3 = 2.0*MO2 # 2.5E-12 @ -500.; RCO3 + ACO3 = MO2 + ETHP # 2.5E-12 @ -500.; ACTP + ACO3 = 0.50*MO2 + 0.50*ACO3 + HCHO + 0.75*ORA2 # 7.51E-13 @ -565.; MEKP + ACO3 = 0.33*HO2 + 0.50*MO2 + 0.33*HCHO + 0.334*DCB1 + 0.50*ORA2 # 7.51E-13 @ -565.; KETP + ACO3 = 0.50*HO2 + 0.50*MO2 + 0.50*DCB1 + 0.50*ORA2 # 7.51E-13 @ -565.; MACP + ACO3 = 0.635*ORA2 + 0.50*MO2 + 0.269*ACO3 + 0.500*CO + HCHO # 8.4E-14 @ -221.; MCP + ACO3 = NO2 + 0.50*HO2 + HCHO + 0.5*HKET + 0.5*MO2 + 0.5*ORA2 # 8.4E-14 @ -221.; MVKP + ACO3 = 0.5*HO2 + 0.5*MO2 + 1.16*ACO3 + 1.16*XO2 + HCHO + 2.3*ALD + 0.5*MGLY + 1.083*ORA2 # 1.68E-12 @ -500.; UALP + ACO3 = 0.5*HO2 + 0.5*MO2 + 0.5*CO + 0.030*HCHO + 0.27*ALD + 0.7*KET + 0.18*GLY + 0.105*MGLY + 0.5*ORA2 # 1.68E-12 @ -500.; BALP + ACO3 = MO2 + BAL1 # 7.4E-13 @ -765.; BAL1 + ACO3 = MO2 + BAL2 # 7.4E-13 @ -765.; ADDC + ACO3 = 2.00*HO2 + MO2 + 0.32*HKET + 0.68*GLY + 0.68*OP2 # 7.4E-13 @ -708.; MCTP + ACO3 = HO2 + MO2 + MCTO # 7.4E-13 @ -708.; ORAP + ACO3 = MO2 + GLY # 7.51E-13 @ -565.; OLNN + ACO3 = HO2 + MO2 + ONIT # 8.85E-13 @ -765.; OLND + ACO3 = 0.500*MO2 + NO2 + 0.287*HCHO + 1.24*ALD + 0.464*KET + 0.500*ORA2 # 5.37E-13 @ -765.; ADCN + ACO3 = HO2 + MO2 + 0.7*NO2 + 0.7*GLY + 0.7*OP2 + 0.3*ONIT # 7.4E-13 @ -708.; XO2 + ACO3 = MO2 # 3.4E-14 @ -1560.; RCO3 + RCO3 = 2.0*ETHP # 2.50E-12 @ -500.0; MO2 + NO3 = HO2 + HCHO + NO2 # 1.20E-12; ETHP + NO3 = HO2 + NO2 + ACD # 1.2E-12; HC3P + NO3 = 0.254*HO2 + 0.140*MO2 + 0.092*XO2 + 0.503*ETHP + NO2 + 0.519*ACD + 0.147*ALD + 0.075*MEK + 0.095*ACT # 1.20E-12; HC5P + NO3 = 0.488*HO2 + 0.055*MO2 + 0.280*ETHP + 0.485*XO2 + NO2 + 0.024*HCHO + 0.241*ALD + 0.060*KET + 0.063*MEK + 0.247*ACT + 0.048*ACD + 0.275*HKET # 1.20E-12; ETEP + NO3 = HO2 + NO2 + 1.6*HCHO + 0.2*ALD # 1.2E-12; OLTP + NO3 = 0.47*ALD + 0.79*HCHO + 0.79*HO2 + NO2 + 0.18*MEK + 0.02*ACD + 0.09*ACT # 1.20E-12; OLIP + NO3 = 0.86*HO2 + 0.72*ALD + 0.11*KET + NO2 + 0.20*ACT + 0.85*ACD + 0.04*HKET # 1.20E-12; ! MCM-based aromatics BENP + NO3 = 1.0000*NO2 + 1.0000*HO2 + 0.0000*BALD + 1.0000*GLY + 0.5000*FURANONE + 0.2500*DCB2 + 0.2500*DCB3 # 2.3E-12; TOLP + NO3 = 1.0000*NO2 + 0.9146*HO2 + 0.0854*BALD + 0.5488*GLY + 0.3659*MGLY + 0.3659*FURANONE + 0.5488*DCB1 # 2.3E-12; XYMP + NO3 = 1.0000*NO2 + 0.9518*HO2 + 0.0482*BALD + 0.7043*GLY + 0.2475*MGLY + 0.3522*FURANONE + 0.5996*DCB2 # 2.3E-12; XYEP + NO3 = 1.0000*NO2 + 0.9146*HO2 + 0.0854*BALD + 0.5488*GLY + 0.3659*MGLY + 0.4573*FURANONE + 0.4573*DCB2 # 2.3E-12; ISOP + NO3 = HO2 + NO2 + 0.75*HCHO + 0.318*MACR + 0.500*MVK + 0.024*GLY + 0.033*HKET + 0.031*ALD # 1.2E-12; APIP1 + NO3 = HO2 + NO2 + ALD + KET # 1.2E-12; LIMP1 + NO3 = HO2 + NO2 + 0.385*OLI + 0.385*HCHO + 0.615*MACR # 1.2E-12; ACO3 + NO3 = MO2 + NO2 # 4.0E-12; RCO3 + NO3 = ETHP + NO2 # 4.0E-12; ACTP + NO3 = ACO3 + NO2 + HCHO # 1.2E-12; MEKP + NO3 = 0.67*HO2 + NO2 + 0.33*HCHO + 0.67*DCB1 # 1.2E-12; KETP + NO3 = HO2 + NO2 + DCB1 # 1.2E-12; MACP + NO3 = HCHO + 0.538*ACO3 + CO + NO2 # 1.2E-12; MCP + NO3 = NO2 + HO2 + HCHO + HKET # 1.2E-12; MVKP + NO3 = 0.30*HO2 + 0.70*ACO3 + 0.70*XO2 + NO2 + 0.30*HCHO + 0.70*ALD + 0.30*MGLY # 2.5E-12; UALP + NO3 = HO2 + NO2 + 0.61*CO + 0.03*HCHO + 0.27*ALD + 0.7*KET + 0.18*GLY + 0.21*MGLY # 2.5E-12; BALP + NO3 = BAL1 + NO2 # 2.5E-12; BAL1 + NO3 = BAL2 + NO2 # 2.5E-12; ADDC + NO3 = HO2 + NO2 + 0.32*HKET + 0.68*GLY + 0.68*OP2 # 1.2E-12; MCTP + NO3 = NO2 + MCTO # 1.2E-12; ORAP + NO3 = NO2 + GLY + HO2 # 1.2E-12; OLNN + NO3 = HO2 + NO2 + ONIT # 1.2E-12; OLND + NO3 = 2.00*NO2 + 0.287*HCHO + 1.24*ALD + 0.464*KET # 1.2E-12; ADCN + NO3 = 2.0*NO2 + GLY + OP2 # 1.2E-12; OLNN + OLNN = HO2 + 2.00*ONIT # 7.0E-14 @ -1000.; OLNN + OLND = 0.500*HO2 + 0.500*NO2 + 0.202*HCHO + 0.640*ALD + 0.149*KET + 1.50*ONIT # 4.25E-14 @ -1000.; OLND + OLND = NO2 + 0.504*HCHO + 1.21*ALD + 0.285*KET + ONIT # 2.96E-14 @ -1000.; XO2 + NO3 = NO2 # 1.2E-12; XO2 + RCO3 = ETHP # 2.5E-12 @ -500.; XO2 + XO2 = # 7.13E-17 @ -2950.; APIP2 + APIP1 = 0.96*HOM + 0.48*ROH + 0.48*PINAL + 0.48*HO + 0.48*HO2 + 0.04*ELHOM #1.00E-10; APIP2 + LIMP1 = 0.96*HOM + 0.48*ROH + 0.48*LIMAL + 0.48*HO + 0.48*HO2 + 0.04*ELHOM #1.00E-10; APIP2 + ISOP = 0.96*HOM + 0.48*ROH + 0.48*HCHO + 0.48*MVK + 0.48*HO + 0.48*HO2 + 0.04*ELHOM #1.00E-10; LIMP2 + APIP1 = 0.96*HOM + 0.48*ROH + 0.48*PINAL + 0.48*HO + 0.48*HO2 + 0.04*ELHOM #1.00E-10; LIMP2 + LIMP1 = 0.96*HOM + 0.48*ROH + 0.48*LIMAL + 0.48*HO + 0.48*HO2 + 0.04*ELHOM #1.00E-10; LIMP2 + ISOP = 0.96*HOM + 0.48*ROH + 0.48*HCHO + 0.48*MVK + 0.48*HO + 0.48*HO2 + 0.04*ELHOM #1.00E-10; APINP2 + APIP1 = 0.96*HOM + 0.48*ROH + 0.48*PINAL + 0.48*NO2 + 0.48*HO2 + 0.04*ELHOM #1.00E-10; APINP2 + LIMP1 = 0.96*HOM + 0.48*ROH + 0.48*LIMAL + 0.48*NO2 + 0.48*HO2 + 0.04*ELHOM #1.00E-10; APINP2 + ISOP = 0.96*HOM + 0.48*ROH + 0.48*HCHO + 0.48*MVK + 0.48*NO2 + 0.48*HO2 + 0.04*ELHOM #1.00E-10; LIMNP2 + APIP1 = 0.96*HOM + 0.48*ROH + 0.48*PINAL + 0.48*NO2 + 0.48*HO2 + 0.04*ELHOM #1.00E-10; LIMNP2 + LIMP1 = 0.96*HOM + 0.48*ROH + 0.48*LIMAL + 0.48*NO2 + 0.48*HO2 + 0.04*ELHOM #1.00E-10; LIMNP2 + ISOP = 0.96*HOM + 0.48*ROH + 0.48*HCHO + 0.48*MVK + 0.48*NO2 + 0.48*HO2 + 0.04*ELHOM #1.00E-10; ! ! SOA related reactions IEPOX + HO = HO # 5.78E-11@400; ! VROCIOXY added with behavior like ETHP ! 12.0% by mass (14.8% by mole) SOA yield added ! kOH set to emission weighted value VROCIOXY + HO = 0.852*ETHP + 0.149*ASOATJ # 6.89E-12; ! assume SLOWROC, which has effectively 2.1C, makes ethane-like RO2 with SLOWROC emission weighted kOH SLOWROC + HO = ETHP + 0.00101*ASOATJ # 6.55E-14; ! HAP chemistry ! ELD uncommented ACRO photolysis 11/18/21, kept photolysis rate constant that was already here < T17> ACRO + HO = 0.57*MACP + 0.43*MCP -1.0*XC # 8.E-12@-380; < T18> ACRO + O3 = .84*CO + .56*HO2 + .28*HO + .72*HCHO + .62*GLY + 0.2*XC # 2.9E-19; < T19> ACRO + NO3 = .68*HCHO + .32*MACP + .68*XO2 + .68*MGLY + .32*HNO3 + .68*NO2 - 0.32*XC # 3.4E-15; ! 0.219*CH4 product removed from ACRO due to fixed CH4 conc < T20> ACRO = CO + .477*HO2 + .25*ETE + .246*CO2 + .204*ACO3 + .204*HO + .15*HCHO + .15*ACO3 + .177*XC + .027*MO2 # 1.0/; ! BDE13 from SAPRC18/mechgen with MCM rate constant for T10 < T10> BDE13 + HO = 0.667*BDE13P + 0.333*UALD + 0.333*HO2 - 0.333*XC # 1.48E-11@-448.; < T10a> BDE13P + NO = 0.968*HO2 + .968*NO2 + .895*ACRO + .895*HCHO + .072*FURAN + .032*ONIT - 0.0975*XC # 9.05E-12; < T10b> BDE13P + NO3 = 1.0*HO2 + 1.*NO2 + .925*ACRO + .925*HCHO + .075*FURAN - .075*XC #2.3E-12; < T10c> BDE13P + HO2 = 1.0*OP2 - 2.*XC # 1.61E-11; < T10d> BDE13P + MO2 = 0.32*MOH + 0.68*HCHO + 0.87*HO2 + .463*ACRO + .463*HCHO + .25*OLT + .231*MVK + .037*FURAN + .019*UALD - 0.056*XC # 2.39E-12; < T10e> BDE13P + ACO3 = 0.7*MO2 + 0.3*ORA2 + 0.8*HO2 + .74*ACRO + .74*HCHO + .185*MVK + .06*FURAN + .015*UALD - 0.075*XC # 1.37E-11; < T11> BDE13 + O3 = .62*ACRO + .63*CO + .42*HO2 + .08*HO + .83*HCHO + .17*ETE + 3.66*XC # 1.34E-14@2283.; < T12> BDE13 + NO3 = 0.900*OLNN + 0.100*OLND + 0.900*ACRO # 1E-13; ! Furans based on 5 species aggregate using Wang et al. JGR 2021, Schwantes, and Coggon ! Use RACM2 o-xylene RO2+HO2, RACM2 (same as MCM) RO2+NO rate constants ! SOA yield taken from Table S1 of Bruns et al. 2016 Sci Rep and mass removed from KET product FURAN + HO = 0.49*DCB1 + 0.49*HO2 + 0.51*FURANO2 # 5.01E-11; FURANO2 + NO = 0.08*ONIT + 0.92*NO2 + 0.92*FURANONE + 0.75*HO2 + 0.17*MO2 # 2.7E-12 @ -360.; FURANO2 + HO2 = 0.6*OP2 + 0.4*FURANONE + 0.4*HO + 0.32*HO2 + 0.08*MO2 # 3.75E-13 @ -980.; FURANONE + HO = 0.65*KET + 0.31*GLY + 0.66*HO2 + 0.34*MO2 + 0.43*CO + 0.04*ASOATJ # 4.40E-11; FURAN + O3 = 0.02*HO + ALD # 3.43E-17; FURAN + NO3 = NO2 + 0.8*DCB1 + 0.2*DCB3 # 8.99E-12; ! PROG based on Coggon et al. and MCM http://mcm.york.ac.uk/browse.htt?species=PROPGLY PROG + HO = 0.613*HKET + 0.387*ALD + HO2 #1.20E-11; ! Sesquiterpenes based on MCM b-caryophyllene with autoxidation ! added to O3 channel following Richters et al. 2016 ES&T SESQ + NO3 = SESQNRO2 # 1.9E-11; SESQNRO2 + HO2 = VROCP0OXY4 # 2.84E-13 @ -1300.0; SESQNRO2 + NO = VROCP3OXY2 + 2.0*NO2 # 2.70E-12 @ -360.0; SESQNRO2 + NO3 = VROCP3OXY2 + 2.0*NO2 # 2.3E-12; SESQ + O3 = 0.982*VROCP3OXY2 + 0.018*VROCN2OXY2 # 1.2E-14; SESQ + HO = SESQRO2 # 1.97E-10; SESQRO2 + HO2 = VROCP0OXY2 # 2.84E-13 @ -1300.0; SESQRO2 + NO3 = VROCP3OXY2 # 2.3E-12; SESQRO2 + NO = 0.247*VROCP1OXY3 + 0.753*VROCP3OXY2 + 0.753*NO2 # 2.70E-12 @ -360.0; ! GLY and MGLY uptake GLY = AGLYJ # 1.0~; MGLY = AGLYJ # 1.0~; ! heteorogeneous reactions from hetchem and poaaging routines version 5.0.2 N2O5 = 2.0*HNO3 # 1.0~; NO2 = 0.5*HONO + 0.5*HNO3 # 1.0~; ! Simplified ozone loss from oceanic halogens excluding chlorine O3 = %H # 6.7006E-11@-10.7435 & 3.4153E-08@0.6713 & 2.0E-6; IEPOX = IEPOXP # 1.0~; IEPOXP = AISO3NOSJ # 1.0~; IEPOXP + ASO4J = AISO3OSJ # 1.0~; ! IEPOX = AISO3J # 1.0~; ! ROCALK chemistry based on GECKO (Lannuque et al. 2018 ACP) ! with autoxidation from Praske et al. 2018 PNAS ! HO not regenerated due to actual radical chemistry VROCP6ALK + HO = 1.0000 * VROCP6ALKP # 1.53e-11; VROCP5ALK + HO = 1.0000 * VROCP5ALKP # 1.68e-11; VROCP4ALK + HO = 1.0000 * VROCP4ALKP # 2.24e-11; VROCP3ALK + HO = 1.0000 * VROCP3ALKP # 2.67e-11; VROCP2ALK + HO = 1.0000 * VROCP2ALKP # 3.09e-11; VROCP1ALK + HO = 1.0000 * VROCP1ALKP # 3.38e-11; HC10 + HO = 1.0000 * HC10P # 1.10e-11; ! RO+NO updated to MCM values to include T dep VROCP6ALKP + NO = 0.7200 * VROCP6ALKP2 + 0.2800 * VROCP4OXY2 + 0.7200 * NO2 # 2.7e-12 @ -360.; VROCP5ALKP + NO = 0.7200 * VROCP5ALKP2 + 0.2800 * VROCP3OXY2 + 0.7200 * NO2 # 2.7e-12 @ -360.; VROCP4ALKP + NO = 0.7200 * VROCP4ALKP2 + 0.2800 * VROCP2OXY2 + 0.7200 * NO2 # 2.7e-12 @ -360.; VROCP3ALKP + NO = 0.7200 * VROCP3ALKP2 + 0.2800 * VROCP1OXY1 + 0.7200 * NO2 # 2.7e-12 @ -360.; VROCP2ALKP + NO = 0.7200 * VROCP2ALKP2 + 0.2800 * VROCP0OXY2 + 0.7200 * NO2 # 2.7e-12 @ -360.; VROCP1ALKP + NO = 0.7200 * VROCP1ALKP2 + 0.2800 * VROCN1OXY1 + 0.7200 * NO2 # 2.7e-12 @ -360.; HC10P + NO = 0.7400 * HC10P2 + 0.2600 * ONIT + 0.7400 * NO2 # 2.7E-12 @ -360.; VROCP6ALKP + NO3 = 1.0000 * VROCP6ALKP2 + 1.0000 * NO2 # 2.30e-12; VROCP5ALKP + NO3 = 1.0000 * VROCP5ALKP2 + 1.0000 * NO2 # 2.30e-12; VROCP4ALKP + NO3 = 1.0000 * VROCP4ALKP2 + 1.0000 * NO2 # 2.30e-12; VROCP3ALKP + NO3 = 1.0000 * VROCP3ALKP2 + 1.0000 * NO2 # 2.30e-12; VROCP2ALKP + NO3 = 1.0000 * VROCP2ALKP2 + 1.0000 * NO2 # 2.30e-12; VROCP1ALKP + NO3 = 1.0000 * VROCP1ALKP2 + 1.0000 * NO2 # 2.30e-12; HC10P + NO3 = 1.0000 * HC10P2 + 1.0000 * NO2 # 2.30e-12; VROCP6ALKP + HO2 = 1.0000 * VROCP3OXY2 # 2.17e-11; VROCP5ALKP + HO2 = 1.0000 * VROCP2OXY2 # 2.20e-11; VROCP4ALKP + HO2 = 1.0000 * VROCP1OXY1 # 2.25e-11; VROCP3ALKP + HO2 = 1.0000 * VROCP0OXY2 # 2.26e-11; VROCP2ALKP + HO2 = 1.0000 * VROCN1OXY1 # 2.27e-11; VROCP1ALKP + HO2 = 1.0000 * VROCN2OXY2 # 2.27e-11; HC10P + HO2 = 1.0000 * OP2 # 2.66e-13 @ -1300.; VROCP6ALKP2 = 1.0000 * HO2 + 1.0000 * VROCP3OXY2 # 1.88e-1; VROCP5ALKP2 = 1.0000 * HO2 + 1.0000 * VROCP2OXY2 # 1.88e-1; VROCP4ALKP2 = 1.0000 * HO2 + 1.0000 * VROCP1OXY1 # 1.88e-1; VROCP3ALKP2 = 1.0000 * HO2 + 1.0000 * VROCP0OXY2 # 1.88e-1; VROCP2ALKP2 = 1.0000 * HO2 + 1.0000 * VROCN1OXY1 # 1.88e-1; VROCP1ALKP2 = 1.0000 * HO2 + 1.0000 * VROCN2OXY2 # 1.88e-1; HC10P2 = 1.0000 * HO2 + 1.0000 * VROCP4OXY2 # 1.88e-1; ! RO2+NO,NO3 products updated to assume alkoxy radical proceeds ! entirely through ketone channel (same as MCM) VROCP6ALKP2 + NO = 0.1400 * VROCP2OXY2 + 0.8600 * NO2 + 0.8600 * VROCP3OXY2 + 0.8600 * HO2 # 2.7E-12 @ -360.; VROCP5ALKP2 + NO = 0.1400 * VROCP1OXY3 + 0.8600 * NO2 + 0.8600 * VROCP2OXY2 + 0.8600 * HO2 # 2.7E-12 @ -360.; VROCP4ALKP2 + NO = 0.1400 * VROCP0OXY2 + 0.8600 * NO2 + 0.8600 * VROCP1OXY1 + 0.8600 * HO2 # 2.7E-12 @ -360.; VROCP3ALKP2 + NO = 0.1400 * VROCN1OXY1 + 0.8600 * NO2 + 0.8600 * VROCP0OXY2 + 0.8600 * HO2 # 2.7E-12 @ -360.; VROCP2ALKP2 + NO = 0.1400 * VROCN2OXY2 + 0.8600 * NO2 + 0.8600 * VROCN1OXY1 + 0.8600 * HO2 # 2.7E-12 @ -360.; VROCP1ALKP2 + NO = 0.1400 * VROCN2OXY2 + 0.8600 * NO2 + 0.8600 * VROCN2OXY2 + 0.8600 * HO2 # 2.7E-12 @ -360.; HC10P2 + NO = 0.1200 * ONIT + 0.8800 * NO2 + 0.8800 * KET + 0.8800 * HO2 # 2.7E-12 @ -360.; VROCP6ALKP2 + NO3 = 1.0000 * NO2 + 1.0000 * VROCP3OXY2 + 1.0000 * HO2 # 2.30e-12; VROCP5ALKP2 + NO3 = 1.0000 * NO2 + 1.0000 * VROCP2OXY2 + 1.0000 * HO2 # 2.30e-12; VROCP4ALKP2 + NO3 = 1.0000 * NO2 + 1.0000 * VROCP1OXY1 + 1.0000 * HO2 # 2.30e-12; VROCP3ALKP2 + NO3 = 1.0000 * NO2 + 1.0000 * VROCP0OXY2 + 1.0000 * HO2 # 2.30e-12; VROCP2ALKP2 + NO3 = 1.0000 * NO2 + 1.0000 * VROCN1OXY1 + 1.0000 * HO2 # 2.30e-12; VROCP1ALKP2 + NO3 = 1.0000 * NO2 + 1.0000 * VROCN2OXY2 + 1.0000 * HO2 # 2.30e-12; HC10P2 + NO3 = 1.0000 * NO2 + 1.0000 * KET + 1.0000 * HO2 # 2.30e-12; VROCP6ALKP2 + HO2 = 1.0000 * VROCP1OXY3 # 2.17e-11; VROCP5ALKP2 + HO2 = 1.0000 * VROCP0OXY2 # 2.20e-11; VROCP4ALKP2 + HO2 = 1.0000 * VROCN1OXY1 # 2.25e-11; VROCP3ALKP2 + HO2 = 1.0000 * VROCN2OXY2 # 2.26e-11; VROCP2ALKP2 + HO2 = 1.0000 * VROCN2OXY2 # 2.27e-11; VROCP1ALKP2 + HO2 = 1.0000 * VROCN2OXY2 # 2.27e-11; HC10P2 + HO2 = 1.0000 * VROCP2OXY2 # 2.66e-13 @ -1300.; ! IVOC aromatic oxidation following MCM with autoxidation ! added to bicyclic RO2 channel. Epoxide channel eliminated ! and nitrate yield reduced following Xu et al. JPCA 2020. ! RO2+RO2 rates from RACM2 aromatic RO2s ! ROCP6ARO VROCP6ARO + HO = 0.8400*VROCP6AROP + 0.1600*HO2 + 0.1600*VROCP4OXY2 # 1.81E-11; VROCP6AROP + HO2 = 0.0595*VROCP4OXY2 + 0.9048*VROCP1OXY3 + 0.0357*VROCN2OXY4 # 2.91E-13 @ -1300.; VROCP6AROP + NO = 0.0001*VROCP4OXY2 + 0.0018*VROCP2OXY2 + 0.0001*VROCN1OXY3 + 0.9980*NO2 + 0.9980*HO2 + 0.0594*BALD + 0.4693*GLY + 0.4693*MGLY + 0.4693*FURANONE + 0.4693*DCB2 # 2.7E-12 @ -360.; VROCP6AROP + NO3 = 1.0000*NO2 + 0.9405*HO2 + 0.0595*BALD + 0.4702*GLY + 0.4702*MGLY + 0.4702*FURANONE + 0.4702*DCB2 # 2.3E-12; VROCP6AROP + MO2 = 0.6800*HCHO + 1.3105*HO2 + 0.3200*MOH + 0.0595*BALD + 0.4702*GLY + 0.4702*MGLY + 0.4702*FURANONE + 0.4702*DCB2 # 3.56E-14 @ -708.; VROCP6AROP + ACO3 = 0.7000*MO2 + 0.9405*HO2 + 0.3000*ORA2 + 0.0595*BALD + 0.4702*GLY + 0.4702*MGLY + 0.4702*FURANONE + 0.4702*DCB2 # 7.4E-13 @ -765.; ! ROCP5ARO VROCP5ARO + HO = 0.8400*VROCP5AROP + 0.1600*HO2 + 0.1600*VROCP3OXY2 # 1.81E-11; VROCP5AROP + HO2 = 0.0595*VROCP3OXY2 + 0.9048*VROCP0OXY2 + 0.0357*VROCN2OXY4 # 2.91E-13 @ -1300.; VROCP5AROP + NO = 0.0001*VROCP3OXY2 + 0.0018*VROCP1OXY3 + 0.0001*VROCN2OXY4 + 0.9980*NO2 + 0.9980*HO2 + 0.0594*VROCP4OXY2 + 0.4693*GLY + 0.4693*MGLY + 0.4693*FURANONE + 0.4693*DCB2 # 2.7E-12 @ -360.; VROCP5AROP + NO3 = 1.0000*NO2 + 0.9405*HO2 + 0.0595*VROCP4OXY2 + 0.4702*GLY + 0.4702*MGLY + 0.4702*FURANONE + 0.4702*DCB2 # 2.3E-12; VROCP5AROP + MO2 = 0.6800*HCHO + 1.3105*HO2 + 0.3200*MOH + 0.0595*VROCP4OXY2 + 0.4702*GLY + 0.4702*MGLY + 0.4702*FURANONE + 0.4702*DCB2 # 3.56E-14 @ -708.; VROCP5AROP + ACO3 = 0.7000*MO2 + 0.9405*HO2 + 0.3000*ORA2 + 0.0595*VROCP4OXY2 + 0.4702*GLY + 0.4702*MGLY + 0.4702*FURANONE + 0.4702*DCB2 # 7.4E-13 @ -765.; ! NAPH NAPH + HO = 0.8400*NAPHP + 0.1600*HO2 + 0.1600*VROCP3OXY2 # 2.31E-11; NAPHP + HO2 = 0.0595*VROCP3OXY2 + 0.9048*VROCP1OXY3 + 0.0357*VROCN2OXY8 # 2.91E-13 @ -1300.; NAPHP + NO = 0.0001*VROCP4OXY2 + 0.0018*VROCP2OXY2 + 0.0001*VROCN2OXY8 + 0.9980*NO2 + 0.9980*HO2 + 0.0594*VROCP4OXY2 + 0.4693*GLY + 0.4693*MGLY + 0.4693*FURANONE + 0.4693*DCB2 # 2.7E-12 @ -360.; NAPHP + NO3 = 1.0000*NO2 + 0.9405*HO2 + 0.0595*VROCP4OXY2 + 0.4702*GLY + 0.4702*MGLY + 0.4702*FURANONE + 0.4702*DCB2 # 2.3E-12; NAPHP + MO2 = 0.6800*HCHO + 1.3105*HO2 + 0.3200*MOH + 0.0595*VROCP4OXY2 + 0.4702*GLY + 0.4702*MGLY + 0.4702*FURANONE + 0.4702*DCB2 # 3.56E-14 @ -708.; NAPHP + ACO3 = 0.7000*MO2 + 0.9405*HO2 + 0.3000*ORA2 + 0.0595*VROCP4OXY2 + 0.4702*GLY + 0.4702*MGLY + 0.4702*FURANONE + 0.4702*DCB2 # 7.4E-13 @ -765.; ! Multigenerational oxidation of LVOCs and SVOCs ! Aging of ROCOXY with explicit low MW species VROCN2OXY8 + HO = HO + 0.0854 * VROCN2OXY8 + 0.2581 * DCB1 + 0.2581 * MEK + 0.2581 * ACD + 0.2581 * ALD + 0.2581 * MO2 + 0.2581 * ETHP + 0.2581 * HC3P + 0.2581 * MEKP # 5.90e-11; VROCN2OXY4 + HO = HO + 0.4640 * VROCN2OXY8 + 0.1977 * VROCN2OXY4 + 0.0121 * VROCN1OXY6 + 0.0152 * VROCN1OXY3 + 0.0624 * VROCP0OXY4 + 0.0388 * VROCP1OXY3 + 0.0491 * VROCP2OXY2 + 0.0398 * VROCP3OXY2 + 0.0183 * VROCP4OXY2 + 0.0308 * OP3 + 0.0040 * OP2 + 0.0794 * DCB1 + 0.0794 * MEK + 0.0794 * KET + 0.0794 * ACD + 0.0794 * ALD + 0.0794 * MO2 + 0.0794 * ETHP + 0.0794 * HC3P + 0.0794 * MEKP + 0.0794 * HC5P + 0.0794 * KETP # 6.07e-11; VROCN2OXY2 + HO = HO + 0.1041 * VROCN2OXY8 + 0.5638 * VROCN2OXY4 + 0.2141 * VROCN2OXY2 + 0.0153 * VROCN1OXY6 + 0.0298 * VROCN1OXY3 + 0.0096 * VROCN1OXY1 + 0.0189 * VROCP0OXY4 + 0.0456 * VROCP0OXY2 + 0.0314 * VROCP1OXY3 + 0.0199 * VROCP1OXY1 + 0.0459 * VROCP2OXY2 + 0.0452 * VROCP3OXY2 + 0.0455 * VROCP4OXY2 + 0.0325 * VROCP5OXY1 + 0.0369 * VROCP6OXY1 + 0.0026 * OP3 + 0.0390 * DCB1 + 0.0390 * HKET + 0.0390 * MEK + 0.0390 * ACD + 0.0390 * ALD + 0.0390 * MO2 + 0.0390 * ETHP + 0.0390 * HC3P + 0.0390 * MEKP + 0.0925 * HC5P # 5.54e-11; VROCN1OXY6 + HO = HO + 0.2036 * VROCN2OXY8 + 0.0071 * VROCN2OXY4 + 0.1840 * DCB1 + 0.1840 * MEK + 0.1840 * KET + 0.1840 * ACD + 0.1840 * ALD + 0.1840 * MO2 + 0.1840 * ETHP + 0.1840 * HC3P + 0.1840 * MEKP + 0.1840 * HC5P # 5.63e-11; VROCN1OXY3 + HO = HO + 0.2792 * VROCN2OXY8 + 0.4025 * VROCN2OXY4 + 0.0088 * VROCN2OXY2 + 0.0319 * VROCN1OXY6 + 0.0076 * VROCN1OXY3 + 0.0194 * VROCP0OXY4 + 0.0104 * VROCP0OXY2 + 0.0510 * VROCP1OXY3 + 0.0075 * VROCP1OXY1 + 0.0512 * VROCP2OXY2 + 0.0462 * VROCP3OXY2 + 0.0512 * VROCP4OXY2 + 0.0138 * VROCP5OXY1 + 0.0135 * OP2 + 0.0646 * DCB1 + 0.0646 * HKET + 0.0646 * MEK + 0.0646 * ACD + 0.0646 * ALD + 0.0646 * MO2 + 0.0646 * ETHP + 0.0646 * HC3P + 0.0646 * MEKP + 0.1753 * HC5P # 5.46e-11; VROCN1OXY1 + HO = HO + 0.0074 * VROCN2OXY8 + 0.1190 * VROCN2OXY4 + 0.7261 * VROCN2OXY2 + 0.0122 * VROCN1OXY6 + 0.0305 * VROCN1OXY3 + 0.0070 * VROCN1OXY1 + 0.0291 * VROCP0OXY4 + 0.0454 * VROCP0OXY2 + 0.0234 * VROCP1OXY3 + 0.0352 * VROCP1OXY1 + 0.0624 * VROCP2OXY2 + 0.0518 * VROCP3OXY2 + 0.0509 * VROCP4OXY2 + 0.0347 * VROCP5OXY1 + 0.0748 * VROCP6OXY1 + 0.0163 * OP3 + 0.0062 * OP2 + 0.0244 * DCB1 + 0.0244 * HKET + 0.0244 * MEK + 0.0244 * ACD + 0.0244 * ALD + 0.0244 * MO2 + 0.0244 * ETHP + 0.0244 * HC3P + 0.0244 * MEKP + 0.0537 * HC5P # 4.50e-11; VROCP0OXY4 + HO = HO + 0.2822 * VROCN2OXY8 + 0.1165 * VROCN2OXY4 + 0.0320 * VROCN1OXY6 + 0.0183 * VROCN1OXY3 + 0.0011 * VROCP0OXY4 + 0.0660 * VROCP2OXY2 + 0.0535 * VROCP3OXY2 + 0.0246 * VROCP4OXY2 + 0.0054 * OP2 + 0.1068 * DCB1 + 0.1068 * MEK + 0.1068 * KET + 0.1068 * ACD + 0.1068 * ALD + 0.1068 * MO2 + 0.1068 * ETHP + 0.1068 * HC3P + 0.1068 * MEKP + 0.1068 * HC5P + 0.1068 * KETP # 5.17e-11; VROCP0OXY2 + HO = HO + 0.0659 * VROCN2OXY8 + 0.4579 * VROCN2OXY4 + 0.1156 * VROCN2OXY2 + 0.0325 * VROCN1OXY6 + 0.0657 * VROCN1OXY3 + 0.0046 * VROCN1OXY1 + 0.0307 * VROCP0OXY4 + 0.0024 * VROCP0OXY2 + 0.0395 * VROCP1OXY3 + 0.0215 * VROCP1OXY1 + 0.0539 * VROCP2OXY2 + 0.0516 * VROCP3OXY2 + 0.0519 * VROCP4OXY2 + 0.0371 * VROCP5OXY1 + 0.0421 * VROCP6OXY1 + 0.0105 * OP3 + 0.0445 * DCB1 + 0.0445 * HKET + 0.0445 * MEK + 0.0445 * ACD + 0.0445 * ALD + 0.0445 * MO2 + 0.0445 * ETHP + 0.0445 * HC3P + 0.0445 * MEKP + 0.1055 * HC5P # 4.73e-11; VROCP1OXY3 + HO = HO + 0.1778 * VROCN2OXY8 + 0.1924 * VROCN2OXY4 + 0.0004 * VROCN2OXY2 + 0.0740 * VROCN1OXY6 + 0.0452 * VROCN1OXY3 + 0.0631 * VROCP0OXY4 + 0.0007 * VROCP0OXY2 + 0.0006 * VROCP1OXY3 + 0.0227 * VROCP2OXY2 + 0.0585 * VROCP3OXY2 + 0.0649 * VROCP4OXY2 + 0.0174 * VROCP5OXY1 + 0.0154 * OP3 + 0.0170 * OP2 + 0.0818 * DCB1 + 0.0818 * HKET + 0.0818 * MEK + 0.0818 * ACD + 0.0818 * ALD + 0.0818 * MO2 + 0.0818 * ETHP + 0.0818 * HC3P + 0.0818 * MEKP + 0.2220 * HC5P # 4.60e-11; VROCP1OXY1 + HO = HO + 0.0023 * VROCN2OXY8 + 0.1340 * VROCN2OXY4 + 0.3349 * VROCN2OXY2 + 0.0080 * VROCN1OXY6 + 0.1193 * VROCN1OXY3 + 0.0758 * VROCN1OXY1 + 0.0292 * VROCP0OXY4 + 0.0766 * VROCP0OXY2 + 0.0277 * VROCP1OXY3 + 0.0118 * VROCP1OXY1 + 0.0651 * VROCP2OXY2 + 0.0709 * VROCP3OXY2 + 0.0668 * VROCP4OXY2 + 0.0423 * VROCP5OXY1 + 0.0911 * VROCP6OXY1 + 0.0066 * OP3 + 0.0025 * OP2 + 0.0297 * DCB1 + 0.0297 * HKET + 0.0297 * MEK + 0.0297 * ACD + 0.0297 * ALD + 0.0297 * MO2 + 0.0297 * ETHP + 0.0297 * HC3P + 0.0297 * MEKP + 0.0654 * HC5P # 3.80e-11; VROCP2OXY2 + HO = HO + 0.0445 * VROCN2OXY8 + 0.1726 * VROCN2OXY4 + 0.0104 * VROCN2OXY2 + 0.0513 * VROCN1OXY6 + 0.1118 * VROCN1OXY3 + 0.0013 * VROCN1OXY1 + 0.1337 * VROCP0OXY4 + 0.0403 * VROCP0OXY2 + 0.0511 * VROCP1OXY3 + 0.0068 * VROCP1OXY1 + 0.0236 * VROCP2OXY2 + 0.0293 * VROCP3OXY2 + 0.0733 * VROCP4OXY2 + 0.0523 * VROCP5OXY1 + 0.0595 * VROCP6OXY1 + 0.0041 * OP3 + 0.0023 * OP2 + 0.0628 * DCB1 + 0.0628 * HKET + 0.0628 * MEK + 0.0628 * ACD + 0.0628 * ALD + 0.0628 * MO2 + 0.0628 * ETHP + 0.0628 * HC3P + 0.0628 * MEKP + 0.1489 * HC5P # 3.93e-11; VROCP3OXY2 + HO = HO + 0.0317 * VROCN2OXY8 + 0.0765 * VROCN2OXY4 + 0.0009 * VROCN2OXY2 + 0.0526 * VROCN1OXY6 + 0.0489 * VROCN1OXY3 + 0.1550 * VROCP0OXY4 + 0.0155 * VROCP0OXY2 + 0.1051 * VROCP1OXY3 + 0.0013 * VROCP1OXY1 + 0.0535 * VROCP2OXY2 + 0.0086 * VROCP3OXY2 + 0.0426 * VROCP4OXY2 + 0.0582 * VROCP5OXY1 + 0.0661 * VROCP6OXY1 + 0.0506 * OP3 + 0.0114 * OP2 + 0.0698 * DCB1 + 0.0698 * HKET + 0.0698 * MEK + 0.0698 * ACD + 0.0698 * ALD + 0.0698 * MO2 + 0.0698 * ETHP + 0.0698 * HC3P + 0.0698 * MEKP + 0.1656 * HC5P # 3.52e-11; VROCP4OXY2 + HO = HO + 0.0117 * VROCN2OXY8 + 0.0167 * VROCN2OXY4 + 0.0480 * VROCN1OXY6 + 0.0246 * VROCN1OXY3 + 0.0881 * VROCP0OXY4 + 0.0916 * VROCP1OXY3 + 0.0073 * VROCP1OXY1 + 0.0972 * VROCP2OXY2 + 0.0456 * VROCP3OXY2 + 0.0024 * VROCP4OXY2 + 0.0479 * VROCP5OXY1 + 0.0745 * VROCP6OXY1 + 0.0607 * OP3 + 0.0155 * OP2 + 0.0786 * DCB1 + 0.0786 * HKET + 0.0786 * MEK + 0.0786 * ACD + 0.0786 * ALD + 0.0786 * MO2 + 0.0786 * ETHP + 0.0786 * HC3P + 0.0786 * MEKP + 0.1730 * HC5P # 3.12e-11; VROCP5OXY1 + HO = HO + 0.0103 * VROCN2OXY4 + 0.0006 * VROCN2OXY2 + 0.0090 * VROCN1OXY6 + 0.0146 * VROCN1OXY3 + 0.0702 * VROCP0OXY4 + 0.0153 * VROCP0OXY2 + 0.1038 * VROCP1OXY3 + 0.0031 * VROCP1OXY1 + 0.1650 * VROCP2OXY2 + 0.1566 * VROCP3OXY2 + 0.0724 * VROCP4OXY2 + 0.0062 * VROCP5OXY1 + 0.1398 * VROCP6OXY1 + 0.0216 * OP3 + 0.0384 * OP2 + 0.0526 * DCB1 + 0.0526 * HKET + 0.0526 * MEK + 0.0526 * ACD + 0.0526 * ALD + 0.0526 * MO2 + 0.0526 * ETHP + 0.0526 * HC3P + 0.0526 * MEKP + 0.1280 * HC5P # 2.40e-11; VROCP6OXY1 + HO = HO + 0.0061 * VROCN1OXY6 + 0.0049 * VROCN1OXY3 + 0.0224 * VROCP0OXY4 + 0.0503 * VROCP1OXY3 + 0.0022 * VROCP1OXY1 + 0.0879 * VROCP2OXY2 + 0.1384 * VROCP3OXY2 + 0.1463 * VROCP4OXY2 + 0.0432 * VROCP5OXY1 + 0.0957 * VROCP6OXY1 + 0.0316 * OP3 + 0.0585 * OP2 + 0.0571 * DCB1 + 0.0571 * HKET + 0.0571 * MEK + 0.0571 * ACD + 0.0571 * ALD + 0.0571 * MO2 + 0.0571 * ETHP + 0.0571 * HC3P + 0.0571 * MEKP + 0.1544 * HC5P # 2.05e-11; OP3 + HO = HO + 0.1188 * VROCN2OXY8 + 0.0008 * VROCN2OXY4 + 0.0390 * VROCN1OXY6 + 0.0114 * VROCP0OXY4 + 0.2266 * DCB1 + 0.2266 * MEK + 0.2266 * ACD + 0.2266 * ALD + 0.2266 * MO2 + 0.2266 * ETHP + 0.2266 * HC3P + 0.2266 * MEKP # 4.69e-11; END MECH CONSTANTS ATM_AIR = 1.0E+06 ATM_H2 = 0.56 ATM_N2 = 0.7808E+06 ATM_O2 = 0.2095E+06 ATM_CH4 = 1.85 END CONSTANTS ================================================ FILE: CCTM/src/MECHS/cracmm2/AE_cracmm2.nml ================================================ &AE_nml AE_SPECIES_DATA = !SPECIES ,MOLWT ,Aitken ,Accum ,Coarse ,OPTICS ,IC ,IC_FAC ,BC ,BC_FAC ,DRYDEP SURR ,FAC ,WET-SCAV SURR,FAC ,AE2AQ SURR ,TRNS ,DDEP ,WDEP ,CONC,!RepCmp,ExplicitorLumped,DTXSID,SMILES 'ASO4' , 96.00 ,T ,T ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'SO4' , 1 ,'SO4' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Sulfate ion,L,DTXSID3042425,[O-]S(=O)(=O)[O-] 'ANH4' , 18.00 ,T ,T ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'NH4' , 1 ,'NH4' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Ammonium ion,E,DTXSID5043974,[NH4+] 'ANO3' , 62.00 ,T ,T ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'NO3' , 1 ,'NO3' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Nitrate ion,E,DTXSID5024217,[N+](=O)([O-])[O-] 'ASOAT' ,200.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!3;4;5;6;7-Pentahydroxyheptan-2-one,L,DTXSID80956455,CC(=O)C(C(C(C(CO)O)O)O)O 'AGLY' , 66.40 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!2-(4;5-dihydroxy-1;3-dioxolan-2-yl)-1;3-dioxolane-4;5-diol,L,NA,OC2OC(C1OC(O)C(O)O1)OC2O 'AHOM' ,250.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!NA,NA,NA,NA 'AELHOM' ,402.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!NA,NA,NA,NA 'AORGC' ,177.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'AORGC' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!2-(4;5-dihydroxy-1;3-dioxolan-2-yl)-1;3-dioxolane-4;5-diol,L,NA,OC2OC(C1OC(O)C(O)O1)OC2O 'AEC' , 12.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'EC' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Carbon,L,NA,[C] 'AOTHR' ,200.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'PRI' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Unspeciated PM,L,NA,NA 'AFE' , 55.80 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'FE' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Iron ion,E,DTXSID4042672,[Fe++] 'AAL' , 27.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'PRI' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Aluminum ion,E,DTXSID70912343,[Al+3] 'ASI' , 28.10 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'PRI' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Total Silicon,E,DTXSID0051441,[Si] 'ATI' , 47.90 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'PRI' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Total Titanium,E,DTXSID3047764,[Ti] 'ACA' , 40.10 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'CA' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Calcium ion,E,DTXSID7037638,[Ca++] 'AMG' , 24.30 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'MG' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Magnesium ion,E,NA,[Mg++] 'AK' , 39.10 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'K' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Potassium ion,E,DTXSID9042671,[K+] 'AMN' , 54.90 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'MN' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Manganese ions,L,DTXSID00167687,[Mn++] 'ACORS' ,100.00 ,F ,F ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'ANTH' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Coarse PM,L,NA,NA 'ASOIL' ,100.00 ,F ,F ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'SOIL' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Crustal species,L,NA,NA 'NUM' , 1.00 ,T ,T ,T ,'' ,'' ,-1 ,'' ,-1 ,'VNUM' , 1 ,'NUM' , 1 ,'NUM' ,'Yes' ,'' ,'' ,'Yes',!Number of particles,L,NA,NA 'SRF' , 1.00 ,T ,T ,T ,'' ,'' ,-1 ,'' ,-1 ,'VSRF' , 1 ,'SRF' , 1 ,'SRF' ,'Yes' ,'' ,'' ,'Yes',!Surface area of particles,L,NA,NA 'AORGH2O' , 18.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'H2O' , 1 ,'H2O' ,'Yes' ,'' ,'' ,'Yes',!Water,E,DTXSID6026296,O 'AH2O' , 18.00 ,T ,T ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'H2O' , 1 ,'H2O' ,'Yes' ,'' ,'' ,'Yes',!Water,E,DTXSID6026296,O 'AH3OP' , 19.00 ,T ,T ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'' ,-1 ,'' ,'Yes' ,'' ,'' ,'Yes',!Hydronium ion,E,DTXSID20893597,[OH3+] 'ANA' , 23.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'NA' , 1 ,'NA' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Sodium ion,E,DTXSID8037671,[Na+] 'ACL' , 35.50 ,T ,T ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'CL' , 1 ,'CL' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Chloride ion,E,DTXSID6043969,[Cl-] 'ASEACAT' , 23.75 ,F ,F ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'SEAS' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Coarse sea spray cations,L,NA,NA 'APOC' ,220.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Organic carbon,L,NA,NA 'APNCOM' ,220.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Non-carbon organic matter,L,NA,NA 'AOP3' ,176.2 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!NA,NA,NA,NA 'AROCN2ALK' ,422.83 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!NA,NA,NA,NA 'AROCN1ALK' ,408.80 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!NA,NA,NA,NA 'AROCP0ALK' ,394.77 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!NA,NA,NA,NA 'AROCP1ALK' ,380.75 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!NA,NA,NA,NA 'AROCP2ALK' ,338.66 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!NA,NA,NA,NA 'AROCP3ALK' ,296.58 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!NA,NA,NA,NA 'AROCN2OXY2',282.4 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!NA,NA,NA,NA 'AROCN2OXY4',232.3 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!NA,NA,NA,NA 'AROCN2OXY8',194.2 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!NA,NA,NA,NA 'AROCN1OXY1',312.5 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!NA,NA,NA,NA 'AROCN1OXY3',230.3 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!NA,NA,NA,NA 'AROCN1OXY6',190.2 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!NA,NA,NA,NA 'AROCP0OXY2',242.4 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!NA,NA,NA,NA 'AROCP0OXY4',202.3 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!NA,NA,NA,NA 'AROCP1OXY1',270.5 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!NA,NA,NA,NA 'AROCP1OXY3',202.3 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!NA,NA,NA,NA 'AROCP2OXY2',200.3 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!NA,NA,NA,NA 'AROCP3OXY2',186.3 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!NA,NA,NA,NA 'AISO3NOS' ,136.20 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!2-methylbutane-1;2;3;4-tetrol,L,NA,C(O)C(O)(C)C(O)CO 'AISO3OS' ,216.20 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!(1;3;4-trihydroxy-2-methylbutan-2-yl)oxysulfonic acid,L,NA,C(O)C(OS(O)(=O)(=O))(C)C(O)CO 'AISO4' ,168.1 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!4-hydroperoxy-3-methylbutane-1;1;2;3-tetrol,L,NA,CC(O)(COO)C(O)C(O)O 'AISO5' ,150.1 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!2-hydroperoxy-3;4-dihydroxy-3-methylbutanal,L,NA,CC(O)(CO)C(OO)C=O 'ATRPN' ,215.0 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!NA,NA,NA,NA 'AHONIT' ,265.0 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!NA,NA,NA,NA / ================================================ FILE: CCTM/src/MECHS/cracmm2/CMAQ_Control_DESID_cracmm2.nml ================================================ !------------------------------------------------------------------------------! ! Emission Control Interface ! ! for the ! ! Detailed Emissions Scaling, Isolation, and Diagnostics (DESID) Module, ! ! part of the ! ! Community Multiscale Air Quality (CMAQ) Model ! ! developed and maintained by the ! ! Center for Environmental Measurement and Modeling (CEMM), ! ! Office of Research and Development (ORD) ! ! U.S. Environmental Protection Agency (USEPA) ! ! ! ! This namelist is consistent with CMAQv5.4 (Release AUGUST 2022) ! ! ! ! See CMAQ User's Guide Appendix B (https://github.com/USEPA/CMAQ/blob/main/ ! ! DOCS/Users_Guide/Appendix/CMAQ_UG_appendixB_emissions_control.md) ! ! and Murphy et al., Geoscientific Model Development, 14, 3407-3420, ! ! https://doi.org/10.5194/gmd-14-3407-2021, 2021. ! !------------------------------------------------------------------------------! !------------------------------------------------------------------------------! ! Emissions Scaling Rule Specification Component ! ! Each rule is presented as a row of inputs. The syntax of the ! ! emissions scaling rules is the following: ! ! EM_INSTR(I) = 'Region Label', 'Stream Label', 'Emission-Species', ! ! 'CMAQ-Species', 'Phase/Mode', 'Scale Factor', 'Basis', ! ! 'Operation' ! ! ! ! See the User's Guide for detailed definitions of each field. ! ! ! ! You may confirm the effect of the (default and custom) rules below by ! ! inspecting the processor-dependent log files ("CTM_LOG_XXX...") ! ! ! ! Note: If no rules are provided for a species, then there is no emission ! ! of that species. ! !------------------------------------------------------------------------------! &Desid_ScalingVars Desid_Max_Rules = 2500 / &Desid_Scaling Desid_Rules_nml = ! Region | Stream Label |Emission | CMAQ- |Phase/|Scale |Basis |Op ! Label | |Surrogate| Species |Mode |Factor| | !> DEFAULT MAPPING Semivolatile POA - apply meat cooking profile by default for sources ! that are not treated with a specific volatility profile (GENERAL_POA family). ! Based on Woody et al., 2016: https://doi.org/10.5194/acp-16-4081-2016 ! O:C Ratio of 0.1 (or lowest available OXY species) based on ! Mohr et al. 2009 https://pubs.acs.org/doi/10.1021/es8011518 'EVERYWHERE', 'GRIDDED_EMIS' ,'PMOCN2' ,'VROCN2OXY2' ,'GAS' ,0. ,'MASS','a', 'EVERYWHERE', 'GRIDDED_EMIS' ,'PMNCOMN2','VROCN2OXY2' ,'GAS' ,0. ,'MASS','a', 'EVERYWHERE', 'GRIDDED_EMIS' ,'PMOCN2' ,'VROCP0OXY2' ,'GAS' ,0.175,'MASS','a', 'EVERYWHERE', 'GRIDDED_EMIS' ,'PMNCOMN2','VROCP0OXY2' ,'GAS' ,0.175,'MASS','a', 'EVERYWHERE', 'GRIDDED_EMIS' ,'PMOCN2' ,'VROCP1OXY1' ,'GAS' ,0.091,'MASS','a', 'EVERYWHERE', 'GRIDDED_EMIS' ,'PMNCOMN2','VROCP1OXY1' ,'GAS' ,0.091,'MASS','a', 'EVERYWHERE', 'GRIDDED_EMIS' ,'PMOCN2' ,'VROCP2OXY2' ,'GAS' ,0.100,'MASS','a', 'EVERYWHERE', 'GRIDDED_EMIS' ,'PMNCOMN2','VROCP2OXY2' ,'GAS' ,0.100,'MASS','a', 'EVERYWHERE', 'GRIDDED_EMIS' ,'PMOCN2' ,'VROCP3OXY2' ,'GAS' ,0.100,'MASS','a', 'EVERYWHERE', 'GRIDDED_EMIS' ,'PMNCOMN2','VROCP3OXY2' ,'GAS' ,0.100,'MASS','a', 'EVERYWHERE', 'GRIDDED_EMIS' ,'PMOCN2' ,'AROCN2OXY2' ,'FINE',0.35 ,'MASS','a', 'EVERYWHERE', 'GRIDDED_EMIS' ,'PMNCOMN2','AROCN2OXY2' ,'FINE',0.35 ,'MASS','a', 'EVERYWHERE', 'GRIDDED_EMIS' ,'PMOCN2','AROCP0OXY2' ,'FINE',0.175,'MASS','a', 'EVERYWHERE', 'GRIDDED_EMIS' ,'PMNCOMN2','AROCP0OXY2' ,'FINE',0.175,'MASS','a', 'EVERYWHERE', 'GRIDDED_EMIS' ,'PMOCN2' ,'AROCP1OXY1' ,'FINE',0.009,'MASS','a', 'EVERYWHERE', 'GRIDDED_EMIS' ,'PMNCOMN2','AROCP1OXY1' ,'FINE',0.009,'MASS','a', 'EVERYWHERE', 'GRIDDED_EMIS' ,'PMOCN2' ,'AROCP2OXY2' ,'FINE',0. ,'MASS','a', 'EVERYWHERE', 'GRIDDED_EMIS' ,'PMNCOMN2','AROCP2OXY2' ,'FINE',0. ,'MASS','a', 'EVERYWHERE', 'GRIDDED_EMIS' ,'PMOCN2' ,'VROCP3OXY2' ,'FINE',0. ,'MASS','a', 'EVERYWHERE', 'GRIDDED_EMIS' ,'PMNCOMN2','VROCP3OXY2' ,'FINE',0. ,'MASS','a', ! GENERAL_POA volatility profile 'EVERYWHERE', 'PT_NONEGU' ,'PMOCN2' ,'VROCN2OXY2' ,'GAS' ,0. ,'MASS','a', 'EVERYWHERE', 'PT_NONEGU' ,'PMNCOMN2','VROCN2OXY2' ,'GAS' ,0. ,'MASS','a', 'EVERYWHERE', 'PT_NONEGU' ,'PMOCN2' ,'VROCP0OXY2' ,'GAS' ,0.175,'MASS','a', 'EVERYWHERE', 'PT_NONEGU' ,'PMNCOMN2','VROCP0OXY2' ,'GAS' ,0.175,'MASS','a', 'EVERYWHERE', 'PT_NONEGU' ,'PMOCN2' ,'VROCP1OXY1' ,'GAS' ,0.091,'MASS','a', 'EVERYWHERE', 'PT_NONEGU' ,'PMNCOMN2','VROCP1OXY1' ,'GAS' ,0.091,'MASS','a', 'EVERYWHERE', 'PT_NONEGU' ,'PMOCN2' ,'VROCP2OXY2' ,'GAS' ,0.100,'MASS','a', 'EVERYWHERE', 'PT_NONEGU' ,'PMNCOMN2','VROCP2OXY2' ,'GAS' ,0.100,'MASS','a', 'EVERYWHERE', 'PT_NONEGU' ,'PMOCN2' ,'VROCP3OXY2' ,'GAS' ,0.100,'MASS','a', 'EVERYWHERE', 'PT_NONEGU' ,'PMNCOMN2','VROCP3OXY2' ,'GAS' ,0.100,'MASS','a', 'EVERYWHERE', 'PT_NONEGU' ,'PMOCN2' ,'AROCN2OXY2' ,'FINE',0.35 ,'MASS','a', 'EVERYWHERE', 'PT_NONEGU' ,'PMNCOMN2','AROCN2OXY2' ,'FINE',0.35 ,'MASS','a', 'EVERYWHERE', 'PT_NONEGU' ,'PMOCN2','AROCP0OXY2' ,'FINE',0.175,'MASS','a', 'EVERYWHERE', 'PT_NONEGU' ,'PMNCOMN2','AROCP0OXY2' ,'FINE',0.175,'MASS','a', 'EVERYWHERE', 'PT_NONEGU' ,'PMOCN2' ,'AROCP1OXY1' ,'FINE',0.009,'MASS','a', 'EVERYWHERE', 'PT_NONEGU' ,'PMNCOMN2','AROCP1OXY1' ,'FINE',0.009,'MASS','a', 'EVERYWHERE', 'PT_NONEGU' ,'PMOCN2' ,'AROCP2OXY2' ,'FINE',0. ,'MASS','a', 'EVERYWHERE', 'PT_NONEGU' ,'PMNCOMN2','AROCP2OXY2' ,'FINE',0. ,'MASS','a', 'EVERYWHERE', 'PT_NONEGU' ,'PMOCN2' ,'VROCP3OXY2' ,'FINE',0. ,'MASS','a', 'EVERYWHERE', 'PT_NONEGU' ,'PMNCOMN2','VROCP3OXY2' ,'FINE',0. ,'MASS','a', ! GENERAL_POA volatility profile 'EVERYWHERE', 'PT_EGU' ,'PMOCN2' ,'VROCN2OXY2' ,'GAS' ,0. ,'MASS','a', 'EVERYWHERE', 'PT_EGU' ,'PMNCOMN2','VROCN2OXY2' ,'GAS' ,0. ,'MASS','a', 'EVERYWHERE', 'PT_EGU' ,'PMOCN2' ,'VROCP0OXY2' ,'GAS' ,0.175,'MASS','a', 'EVERYWHERE', 'PT_EGU' ,'PMNCOMN2','VROCP0OXY2' ,'GAS' ,0.175,'MASS','a', 'EVERYWHERE', 'PT_EGU' ,'PMOCN2' ,'VROCP1OXY1' ,'GAS' ,0.091,'MASS','a', 'EVERYWHERE', 'PT_EGU' ,'PMNCOMN2','VROCP1OXY1' ,'GAS' ,0.091,'MASS','a', 'EVERYWHERE', 'PT_EGU' ,'PMOCN2' ,'VROCP2OXY2' ,'GAS' ,0.100,'MASS','a', 'EVERYWHERE', 'PT_EGU' ,'PMNCOMN2','VROCP2OXY2' ,'GAS' ,0.100,'MASS','a', 'EVERYWHERE', 'PT_EGU' ,'PMOCN2' ,'VROCP3OXY2' ,'GAS' ,0.100,'MASS','a', 'EVERYWHERE', 'PT_EGU' ,'PMNCOMN2','VROCP3OXY2' ,'GAS' ,0.100,'MASS','a', 'EVERYWHERE', 'PT_EGU' ,'PMOCN2' ,'AROCN2OXY2' ,'FINE',0.35 ,'MASS','a', 'EVERYWHERE', 'PT_EGU' ,'PMNCOMN2','AROCN2OXY2' ,'FINE',0.35 ,'MASS','a', 'EVERYWHERE', 'PT_EGU' ,'PMOCN2','AROCP0OXY2' ,'FINE',0.175,'MASS','a', 'EVERYWHERE', 'PT_EGU' ,'PMNCOMN2','AROCP0OXY2' ,'FINE',0.175,'MASS','a', 'EVERYWHERE', 'PT_EGU' ,'PMOCN2' ,'AROCP1OXY1' ,'FINE',0.009,'MASS','a', 'EVERYWHERE', 'PT_EGU' ,'PMNCOMN2','AROCP1OXY1' ,'FINE',0.009,'MASS','a', 'EVERYWHERE', 'PT_EGU' ,'PMOCN2' ,'AROCP2OXY2' ,'FINE',0. ,'MASS','a', 'EVERYWHERE', 'PT_EGU' ,'PMNCOMN2','AROCP2OXY2' ,'FINE',0. ,'MASS','a', 'EVERYWHERE', 'PT_EGU' ,'PMOCN2' ,'VROCP3OXY2' ,'FINE',0. ,'MASS','a', 'EVERYWHERE', 'PT_EGU' ,'PMNCOMN2','VROCP3OXY2' ,'FINE',0. ,'MASS','a', ! GENERAL_POA volatility profile 'EVERYWHERE', 'PT_OTHER' ,'PMOCN2' ,'VROCN2OXY2' ,'GAS' ,0. ,'MASS','a', 'EVERYWHERE', 'PT_OTHER' ,'PMNCOMN2','VROCN2OXY2' ,'GAS' ,0. ,'MASS','a', 'EVERYWHERE', 'PT_OTHER' ,'PMOCN2' ,'VROCP0OXY2' ,'GAS' ,0.175,'MASS','a', 'EVERYWHERE', 'PT_OTHER' ,'PMNCOMN2','VROCP0OXY2' ,'GAS' ,0.175,'MASS','a', 'EVERYWHERE', 'PT_OTHER' ,'PMOCN2' ,'VROCP1OXY1' ,'GAS' ,0.091,'MASS','a', 'EVERYWHERE', 'PT_OTHER' ,'PMNCOMN2','VROCP1OXY1' ,'GAS' ,0.091,'MASS','a', 'EVERYWHERE', 'PT_OTHER' ,'PMOCN2' ,'VROCP2OXY2' ,'GAS' ,0.100,'MASS','a', 'EVERYWHERE', 'PT_OTHER' ,'PMNCOMN2','VROCP2OXY2' ,'GAS' ,0.100,'MASS','a', 'EVERYWHERE', 'PT_OTHER' ,'PMOCN2' ,'VROCP3OXY2' ,'GAS' ,0.100,'MASS','a', 'EVERYWHERE', 'PT_OTHER' ,'PMNCOMN2','VROCP3OXY2' ,'GAS' ,0.100,'MASS','a', 'EVERYWHERE', 'PT_OTHER' ,'PMOCN2' ,'AROCN2OXY2' ,'FINE',0.35 ,'MASS','a', 'EVERYWHERE', 'PT_OTHER' ,'PMNCOMN2','AROCN2OXY2' ,'FINE',0.35 ,'MASS','a', 'EVERYWHERE', 'PT_OTHER' ,'PMOCN2','AROCP0OXY2' ,'FINE',0.175,'MASS','a', 'EVERYWHERE', 'PT_OTHER' ,'PMNCOMN2','AROCP0OXY2' ,'FINE',0.175,'MASS','a', 'EVERYWHERE', 'PT_OTHER' ,'PMOCN2' ,'AROCP1OXY1' ,'FINE',0.009,'MASS','a', 'EVERYWHERE', 'PT_OTHER' ,'PMNCOMN2','AROCP1OXY1' ,'FINE',0.009,'MASS','a', 'EVERYWHERE', 'PT_OTHER' ,'PMOCN2' ,'AROCP2OXY2' ,'FINE',0. ,'MASS','a', 'EVERYWHERE', 'PT_OTHER' ,'PMNCOMN2','AROCP2OXY2' ,'FINE',0. ,'MASS','a', 'EVERYWHERE', 'PT_OTHER' ,'PMOCN2' ,'VROCP3OXY2' ,'FINE',0. ,'MASS','a', 'EVERYWHERE', 'PT_OTHER' ,'PMNCOMN2','VROCP3OXY2' ,'FINE',0. ,'MASS','a', ! GENERAL_POA volatility profile 'EVERYWHERE', 'PT_OILGAS' ,'PMOCN2' ,'VROCN2OXY2' ,'GAS' ,0. ,'MASS','a', 'EVERYWHERE', 'PT_OILGAS' ,'PMNCOMN2','VROCN2OXY2' ,'GAS' ,0. ,'MASS','a', 'EVERYWHERE', 'PT_OILGAS' ,'PMOCN2' ,'VROCP0OXY2' ,'GAS' ,0.175,'MASS','a', 'EVERYWHERE', 'PT_OILGAS' ,'PMNCOMN2','VROCP0OXY2' ,'GAS' ,0.175,'MASS','a', 'EVERYWHERE', 'PT_OILGAS' ,'PMOCN2' ,'VROCP1OXY1' ,'GAS' ,0.091,'MASS','a', 'EVERYWHERE', 'PT_OILGAS' ,'PMNCOMN2','VROCP1OXY1' ,'GAS' ,0.091,'MASS','a', 'EVERYWHERE', 'PT_OILGAS' ,'PMOCN2' ,'VROCP2OXY2' ,'GAS' ,0.100,'MASS','a', 'EVERYWHERE', 'PT_OILGAS' ,'PMNCOMN2','VROCP2OXY2' ,'GAS' ,0.100,'MASS','a', 'EVERYWHERE', 'PT_OILGAS' ,'PMOCN2' ,'VROCP3OXY2' ,'GAS' ,0.100,'MASS','a', 'EVERYWHERE', 'PT_OILGAS' ,'PMNCOMN2','VROCP3OXY2' ,'GAS' ,0.100,'MASS','a', 'EVERYWHERE', 'PT_OILGAS' ,'PMOCN2' ,'AROCN2OXY2' ,'FINE',0.35 ,'MASS','a', 'EVERYWHERE', 'PT_OILGAS' ,'PMNCOMN2','AROCN2OXY2' ,'FINE',0.35 ,'MASS','a', 'EVERYWHERE', 'PT_OILGAS' ,'PMOCN2','AROCP0OXY2' ,'FINE',0.175,'MASS','a', 'EVERYWHERE', 'PT_OILGAS' ,'PMNCOMN2','AROCP0OXY2' ,'FINE',0.175,'MASS','a', 'EVERYWHERE', 'PT_OILGAS' ,'PMOCN2' ,'AROCP1OXY1' ,'FINE',0.009,'MASS','a', 'EVERYWHERE', 'PT_OILGAS' ,'PMNCOMN2','AROCP1OXY1' ,'FINE',0.009,'MASS','a', 'EVERYWHERE', 'PT_OILGAS' ,'PMOCN2' ,'AROCP2OXY2' ,'FINE',0. ,'MASS','a', 'EVERYWHERE', 'PT_OILGAS' ,'PMNCOMN2','AROCP2OXY2' ,'FINE',0. ,'MASS','a', 'EVERYWHERE', 'PT_OILGAS' ,'PMOCN2' ,'VROCP3OXY2' ,'FINE',0. ,'MASS','a', 'EVERYWHERE', 'PT_OILGAS' ,'PMNCOMN2','VROCP3OXY2' ,'FINE',0. ,'MASS','a', ! Diesel Family Volatility Distribution (Mostly Onroad and Offroad Sources and CMV) ! Diesel profile based on Lu et al. 2020 https://doi.org/10.5194/acp-20-4313-2020 'EVERYWHERE', 'PT_CMV_C1C2' ,'PMOCN2' ,'AROCN1ALK' ,'FINE',0.187,'MASS','a', 'EVERYWHERE', 'PT_CMV_C1C2' ,'PMNCOMN2','AROCN1ALK' ,'FINE',0.187,'MASS','a', 'EVERYWHERE', 'PT_CMV_C1C2' ,'PMOCN2' ,'AROCP0ALK' ,'FINE',0.043,'MASS','a', 'EVERYWHERE', 'PT_CMV_C1C2' ,'PMNCOMN2','AROCP0ALK' ,'FINE',0.043,'MASS','a', 'EVERYWHERE', 'PT_CMV_C1C2' ,'PMOCN2' ,'VROCP0ALK' ,'GAS' ,0.043,'MASS','a', 'EVERYWHERE', 'PT_CMV_C1C2' ,'PMNCOMN2','VROCP0ALK' ,'GAS' ,0.043,'MASS','a', 'EVERYWHERE', 'PT_CMV_C1C2' ,'PMOCN2' ,'VROCP1ALK' ,'GAS' ,0.364,'MASS','a', 'EVERYWHERE', 'PT_CMV_C1C2' ,'PMNCOMN2','VROCP1ALK' ,'GAS' ,0.364,'MASS','a', 'EVERYWHERE', 'PT_CMV_C1C2' ,'PMOCN2' ,'VROCP2ALK' ,'GAS' ,0.363,'MASS','a', 'EVERYWHERE', 'PT_CMV_C1C2' ,'PMNCOMN2','VROCP2ALK' ,'GAS' ,0.363,'MASS','a', 'EVERYWHERE', 'PT_CMV_C1C2' ,'PMOCN2' ,'VROCP3ALK' ,'GAS' ,0.0 ,'MASS','a', 'EVERYWHERE', 'PT_CMV_C1C2' ,'PMNCOMN2','VROCP3ALK' ,'GAS' ,0.0 ,'MASS','a', 'EVERYWHERE', 'PT_CMV_C1C2' ,'NMOG' ,'VROCP3ALK' ,'GAS' ,0.0536,'MASS','a', 'EVERYWHERE', 'PT_CMV_C1C2' ,'NMOG' ,'VROCP4ALK' ,'GAS' ,0.1486,'MASS','a', 'EVERYWHERE', 'PT_CMV_C1C2' ,'NMOG' ,'VROCP5ALK' ,'GAS' ,0.1869,'MASS','a', 'EVERYWHERE', 'PT_CMV_C1C2' ,'NMOG' ,'VROCP6ALK' ,'GAS' ,0.1588,'MASS','a', 'EVERYWHERE', 'PT_CMV_C1C2' ,'NMOG' ,'VROCP5ARO' ,'GAS' ,0.0043,'MASS','a', 'EVERYWHERE', 'PT_CMV_C1C2' ,'NMOG' ,'VROCP6ARO' ,'GAS' ,0.0025,'MASS','a', ! Diesel volatility profile 'EVERYWHERE', 'PT_CMV_C3' ,'PMOCN2' ,'AROCN1ALK' ,'FINE',0.187,'MASS','a', 'EVERYWHERE', 'PT_CMV_C3' ,'PMNCOMN2','AROCN1ALK' ,'FINE',0.187,'MASS','a', 'EVERYWHERE', 'PT_CMV_C3' ,'PMOCN2' ,'AROCP0ALK' ,'FINE',0.043,'MASS','a', 'EVERYWHERE', 'PT_CMV_C3' ,'PMNCOMN2','AROCP0ALK' ,'FINE',0.043,'MASS','a', 'EVERYWHERE', 'PT_CMV_C3' ,'PMOCN2' ,'VROCP0ALK' ,'GAS' ,0.043,'MASS','a', 'EVERYWHERE', 'PT_CMV_C3' ,'PMNCOMN2','VROCP0ALK' ,'GAS' ,0.043,'MASS','a', 'EVERYWHERE', 'PT_CMV_C3' ,'PMOCN2' ,'VROCP1ALK' ,'GAS' ,0.364,'MASS','a', 'EVERYWHERE', 'PT_CMV_C3' ,'PMNCOMN2','VROCP1ALK' ,'GAS' ,0.364,'MASS','a', 'EVERYWHERE', 'PT_CMV_C3' ,'PMOCN2' ,'VROCP2ALK' ,'GAS' ,0.363,'MASS','a', 'EVERYWHERE', 'PT_CMV_C3' ,'PMNCOMN2','VROCP2ALK' ,'GAS' ,0.363,'MASS','a', 'EVERYWHERE', 'PT_CMV_C3' ,'PMOCN2' ,'VROCP3ALK' ,'GAS' ,0.0 ,'MASS','a', 'EVERYWHERE', 'PT_CMV_C3' ,'PMNCOMN2','VROCP3ALK' ,'GAS' ,0.0 ,'MASS','a', 'EVERYWHERE', 'PT_CMV_C3' ,'NMOG' ,'VROCP3ALK' ,'GAS' ,0.0536,'MASS','a', 'EVERYWHERE', 'PT_CMV_C3' ,'NMOG' ,'VROCP4ALK' ,'GAS' ,0.1486,'MASS','a', 'EVERYWHERE', 'PT_CMV_C3' ,'NMOG' ,'VROCP5ALK' ,'GAS' ,0.1869,'MASS','a', 'EVERYWHERE', 'PT_CMV_C3' ,'NMOG' ,'VROCP6ALK' ,'GAS' ,0.1588,'MASS','a', 'EVERYWHERE', 'PT_CMV_C3' ,'NMOG' ,'VROCP5ARO' ,'GAS' ,0.0043,'MASS','a', 'EVERYWHERE', 'PT_CMV_C3' ,'NMOG' ,'VROCP6ARO' ,'GAS' ,0.0025,'MASS','a', ! --> Semivolatile POA - Use Woody et al. 2016 biomass burning for Fires ! O:C ratio of 0.4 (or similar) used based on OM/OC of 1.7 and ! Canagaratna et al. 2015 ACP relationship (OM/OC =1.29*O:C+1.17) 'EVERYWHERE', 'PT_AGFIRES' ,'PMOCN2' ,'VROCN2OXY4' ,'GAS' ,0. ,'MASS','a', 'EVERYWHERE', 'PT_AGFIRES' ,'PMNCOMN2','VROCN2OXY4' ,'GAS' ,0. ,'MASS','a', 'EVERYWHERE', 'PT_AGFIRES' ,'PMOCN2' ,'VROCP0OXY4' ,'GAS' ,0.05 ,'MASS','a', 'EVERYWHERE', 'PT_AGFIRES' ,'PMNCOMN2','VROCP0OXY4' ,'GAS' ,0.05 ,'MASS','a', 'EVERYWHERE', 'PT_AGFIRES' ,'PMOCN2' ,'VROCP1OXY3' ,'GAS' ,0.091,'MASS','a', 'EVERYWHERE', 'PT_AGFIRES' ,'PMNCOMN2','VROCP1OXY3' ,'GAS' ,0.091,'MASS','a', 'EVERYWHERE', 'PT_AGFIRES' ,'PMOCN2' ,'VROCP2OXY2' ,'GAS' ,0.200,'MASS','a', 'EVERYWHERE', 'PT_AGFIRES' ,'PMNCOMN2','VROCP2OXY2' ,'GAS' ,0.200,'MASS','a', 'EVERYWHERE', 'PT_AGFIRES' ,'PMOCN2' ,'VROCP3OXY2' ,'GAS' ,0.400,'MASS','a', 'EVERYWHERE', 'PT_AGFIRES' ,'PMNCOMN2','VROCP3OXY2' ,'GAS' ,0.400,'MASS','a', 'EVERYWHERE', 'PT_AGFIRES' ,'PMOCN2' ,'AROCN2OXY4' ,'FINE',0.20 ,'MASS','a', 'EVERYWHERE', 'PT_AGFIRES' ,'PMNCOMN2','AROCN2OXY4' ,'FINE',0.20 ,'MASS','a', 'EVERYWHERE', 'PT_AGFIRES' ,'PMOCN2','AROCP0OXY4' ,'FINE',0.05 ,'MASS','a', 'EVERYWHERE', 'PT_AGFIRES' ,'PMNCOMN2','AROCP0OXY4' ,'FINE',0.05 ,'MASS','a', 'EVERYWHERE', 'PT_AGFIRES' ,'PMOCN2' ,'AROCP1OXY3' ,'FINE',0.009,'MASS','a', 'EVERYWHERE', 'PT_AGFIRES' ,'PMNCOMN2','AROCP1OXY3' ,'FINE',0.009,'MASS','a', 'EVERYWHERE', 'PT_AGFIRES' ,'PMOCN2' ,'AROCP2OXY2' ,'FINE',0. ,'MASS','a', 'EVERYWHERE', 'PT_AGFIRES' ,'PMNCOMN2','AROCP2OXY2' ,'FINE',0. ,'MASS','a', 'EVERYWHERE', 'PT_AGFIRES' ,'PMOCN2' ,'VROCP3OXY2' ,'FINE',0. ,'MASS','a', 'EVERYWHERE', 'PT_AGFIRES' ,'PMNCOMN2','VROCP3OXY2' ,'FINE',0. ,'MASS','a', ! Biomass burning volatility profile 'EVERYWHERE', 'PT_FIRES' ,'PMOCN2' ,'VROCN2OXY4' ,'GAS' ,0. ,'MASS','a', 'EVERYWHERE', 'PT_FIRES' ,'PMNCOMN2','VROCN2OXY4' ,'GAS' ,0. ,'MASS','a', 'EVERYWHERE', 'PT_FIRES' ,'PMOCN2' ,'VROCP0OXY4' ,'GAS' ,0.05 ,'MASS','a', 'EVERYWHERE', 'PT_FIRES' ,'PMNCOMN2','VROCP0OXY4' ,'GAS' ,0.05 ,'MASS','a', 'EVERYWHERE', 'PT_FIRES' ,'PMOCN2' ,'VROCP1OXY3' ,'GAS' ,0.091,'MASS','a', 'EVERYWHERE', 'PT_FIRES' ,'PMNCOMN2','VROCP1OXY3' ,'GAS' ,0.091,'MASS','a', 'EVERYWHERE', 'PT_FIRES' ,'PMOCN2' ,'VROCP2OXY2' ,'GAS' ,0.200,'MASS','a', 'EVERYWHERE', 'PT_FIRES' ,'PMNCOMN2','VROCP2OXY2' ,'GAS' ,0.200,'MASS','a', 'EVERYWHERE', 'PT_FIRES' ,'PMOCN2' ,'VROCP3OXY2' ,'GAS' ,0.400,'MASS','a', 'EVERYWHERE', 'PT_FIRES' ,'PMNCOMN2','VROCP3OXY2' ,'GAS' ,0.400,'MASS','a', 'EVERYWHERE', 'PT_FIRES' ,'PMOCN2' ,'AROCN2OXY4' ,'FINE',0.20 ,'MASS','a', 'EVERYWHERE', 'PT_FIRES' ,'PMNCOMN2','AROCN2OXY4' ,'FINE',0.20 ,'MASS','a', 'EVERYWHERE', 'PT_FIRES' ,'PMOCN2','AROCP0OXY4' ,'FINE',0.05 ,'MASS','a', 'EVERYWHERE', 'PT_FIRES' ,'PMNCOMN2','AROCP0OXY4' ,'FINE',0.05 ,'MASS','a', 'EVERYWHERE', 'PT_FIRES' ,'PMOCN2' ,'AROCP1OXY3' ,'FINE',0.009,'MASS','a', 'EVERYWHERE', 'PT_FIRES' ,'PMNCOMN2','AROCP1OXY3' ,'FINE',0.009,'MASS','a', 'EVERYWHERE', 'PT_FIRES' ,'PMOCN2' ,'AROCP2OXY2' ,'FINE',0. ,'MASS','a', 'EVERYWHERE', 'PT_FIRES' ,'PMNCOMN2','AROCP2OXY2' ,'FINE',0. ,'MASS','a', 'EVERYWHERE', 'PT_FIRES' ,'PMOCN2' ,'VROCP3OXY2' ,'FINE',0. ,'MASS','a', 'EVERYWHERE', 'PT_FIRES' ,'PMNCOMN2','VROCP3OXY2' ,'FINE',0. ,'MASS','a', ! Biomass burning volatility profile 'EVERYWHERE', 'PT_RXFIRES' ,'PMOCN2' ,'VROCN2OXY4' ,'GAS' ,0. ,'MASS','a', 'EVERYWHERE', 'PT_RXFIRES' ,'PMNCOMN2','VROCN2OXY4' ,'GAS' ,0. ,'MASS','a', 'EVERYWHERE', 'PT_RXFIRES' ,'PMOCN2' ,'VROCP0OXY4' ,'GAS' ,0.05 ,'MASS','a', 'EVERYWHERE', 'PT_RXFIRES' ,'PMNCOMN2','VROCP0OXY4' ,'GAS' ,0.05 ,'MASS','a', 'EVERYWHERE', 'PT_RXFIRES' ,'PMOCN2' ,'VROCP1OXY3' ,'GAS' ,0.091,'MASS','a', 'EVERYWHERE', 'PT_RXFIRES' ,'PMNCOMN2','VROCP1OXY3' ,'GAS' ,0.091,'MASS','a', 'EVERYWHERE', 'PT_RXFIRES' ,'PMOCN2' ,'VROCP2OXY2' ,'GAS' ,0.200,'MASS','a', 'EVERYWHERE', 'PT_RXFIRES' ,'PMNCOMN2','VROCP2OXY2' ,'GAS' ,0.200,'MASS','a', 'EVERYWHERE', 'PT_RXFIRES' ,'PMOCN2' ,'VROCP3OXY2' ,'GAS' ,0.400,'MASS','a', 'EVERYWHERE', 'PT_RXFIRES' ,'PMNCOMN2','VROCP3OXY2' ,'GAS' ,0.400,'MASS','a', 'EVERYWHERE', 'PT_RXFIRES' ,'PMOCN2' ,'AROCN2OXY4' ,'FINE',0.20 ,'MASS','a', 'EVERYWHERE', 'PT_RXFIRES' ,'PMNCOMN2','AROCN2OXY4' ,'FINE',0.20 ,'MASS','a', 'EVERYWHERE', 'PT_RXFIRES' ,'PMOCN2','AROCP0OXY4' ,'FINE',0.05 ,'MASS','a', 'EVERYWHERE', 'PT_RXFIRES' ,'PMNCOMN2','AROCP0OXY4' ,'FINE',0.05 ,'MASS','a', 'EVERYWHERE', 'PT_RXFIRES' ,'PMOCN2' ,'AROCP1OXY3' ,'FINE',0.009,'MASS','a', 'EVERYWHERE', 'PT_RXFIRES' ,'PMNCOMN2','AROCP1OXY3' ,'FINE',0.009,'MASS','a', 'EVERYWHERE', 'PT_RXFIRES' ,'PMOCN2' ,'AROCP2OXY2' ,'FINE',0. ,'MASS','a', 'EVERYWHERE', 'PT_RXFIRES' ,'PMNCOMN2','AROCP2OXY2' ,'FINE',0. ,'MASS','a', 'EVERYWHERE', 'PT_RXFIRES' ,'PMOCN2' ,'VROCP3OXY2' ,'FINE',0. ,'MASS','a', 'EVERYWHERE', 'PT_RXFIRES' ,'PMNCOMN2','VROCP3OXY2' ,'FINE',0. ,'MASS','a', ! Biomass burning volatility profile 'EVERYWHERE', 'PT_OTHFIRES' ,'PMOCN2' ,'VROCN2OXY4' ,'GAS' ,0. ,'MASS','a', 'EVERYWHERE', 'PT_OTHFIRES' ,'PMNCOMN2','VROCN2OXY4' ,'GAS' ,0. ,'MASS','a', 'EVERYWHERE', 'PT_OTHFIRES' ,'PMOCN2' ,'VROCP0OXY4' ,'GAS' ,0.05 ,'MASS','a', 'EVERYWHERE', 'PT_OTHFIRES' ,'PMNCOMN2','VROCP0OXY4' ,'GAS' ,0.05 ,'MASS','a', 'EVERYWHERE', 'PT_OTHFIRES' ,'PMOCN2' ,'VROCP1OXY3' ,'GAS' ,0.091,'MASS','a', 'EVERYWHERE', 'PT_OTHFIRES' ,'PMNCOMN2','VROCP1OXY3' ,'GAS' ,0.091,'MASS','a', 'EVERYWHERE', 'PT_OTHFIRES' ,'PMOCN2' ,'VROCP2OXY2' ,'GAS' ,0.200,'MASS','a', 'EVERYWHERE', 'PT_OTHFIRES' ,'PMNCOMN2','VROCP2OXY2' ,'GAS' ,0.200,'MASS','a', 'EVERYWHERE', 'PT_OTHFIRES' ,'PMOCN2' ,'VROCP3OXY2' ,'GAS' ,0.400,'MASS','a', 'EVERYWHERE', 'PT_OTHFIRES' ,'PMNCOMN2','VROCP3OXY2' ,'GAS' ,0.400,'MASS','a', 'EVERYWHERE', 'PT_OTHFIRES' ,'PMOCN2' ,'AROCN2OXY4' ,'FINE',0.20 ,'MASS','a', 'EVERYWHERE', 'PT_OTHFIRES' ,'PMNCOMN2','AROCN2OXY4' ,'FINE',0.20 ,'MASS','a', 'EVERYWHERE', 'PT_OTHFIRES' ,'PMOCN2','AROCP0OXY4' ,'FINE',0.05 ,'MASS','a', 'EVERYWHERE', 'PT_OTHFIRES' ,'PMNCOMN2','AROCP0OXY4' ,'FINE',0.05 ,'MASS','a', 'EVERYWHERE', 'PT_OTHFIRES' ,'PMOCN2' ,'AROCP1OXY3' ,'FINE',0.009,'MASS','a', 'EVERYWHERE', 'PT_OTHFIRES' ,'PMNCOMN2','AROCP1OXY3' ,'FINE',0.009,'MASS','a', 'EVERYWHERE', 'PT_OTHFIRES' ,'PMOCN2' ,'AROCP2OXY2' ,'FINE',0. ,'MASS','a', 'EVERYWHERE', 'PT_OTHFIRES' ,'PMNCOMN2','AROCP2OXY2' ,'FINE',0. ,'MASS','a', 'EVERYWHERE', 'PT_OTHFIRES' ,'PMOCN2' ,'VROCP3OXY2' ,'FINE',0. ,'MASS','a', 'EVERYWHERE', 'PT_OTHFIRES' ,'PMNCOMN2','VROCP3OXY2' ,'FINE',0. ,'MASS','a', ! Biomass burning volatility profile 'EVERYWHERE', 'GR_RES_FIRES' ,'PMOCN2' ,'VROCN2OXY4' ,'GAS' ,0. ,'MASS','a', 'EVERYWHERE', 'GR_RES_FIRES' ,'PMNCOMN2','VROCN2OXY4' ,'GAS' ,0. ,'MASS','a', 'EVERYWHERE', 'GR_RES_FIRES' ,'PMOCN2' ,'VROCP0OXY4' ,'GAS' ,0.05 ,'MASS','a', 'EVERYWHERE', 'GR_RES_FIRES' ,'PMNCOMN2','VROCP0OXY4' ,'GAS' ,0.05 ,'MASS','a', 'EVERYWHERE', 'GR_RES_FIRES' ,'PMOCN2' ,'VROCP1OXY3' ,'GAS' ,0.091,'MASS','a', 'EVERYWHERE', 'GR_RES_FIRES' ,'PMNCOMN2','VROCP1OXY3' ,'GAS' ,0.091,'MASS','a', 'EVERYWHERE', 'GR_RES_FIRES' ,'PMOCN2' ,'VROCP2OXY2' ,'GAS' ,0.200,'MASS','a', 'EVERYWHERE', 'GR_RES_FIRES' ,'PMNCOMN2','VROCP2OXY2' ,'GAS' ,0.200,'MASS','a', 'EVERYWHERE', 'GR_RES_FIRES' ,'PMOCN2' ,'VROCP3OXY2' ,'GAS' ,0.400,'MASS','a', 'EVERYWHERE', 'GR_RES_FIRES' ,'PMNCOMN2','VROCP3OXY2' ,'GAS' ,0.400,'MASS','a', 'EVERYWHERE', 'GR_RES_FIRES' ,'PMOCN2' ,'AROCN2OXY4' ,'FINE',0.20 ,'MASS','a', 'EVERYWHERE', 'GR_RES_FIRES' ,'PMNCOMN2','AROCN2OXY4' ,'FINE',0.20 ,'MASS','a', 'EVERYWHERE', 'GR_RES_FIRES' ,'PMOCN2','AROCP0OXY4' ,'FINE',0.05 ,'MASS','a', 'EVERYWHERE', 'GR_RES_FIRES' ,'PMNCOMN2','AROCP0OXY4' ,'FINE',0.05 ,'MASS','a', 'EVERYWHERE', 'GR_RES_FIRES' ,'PMOCN2' ,'AROCP1OXY3' ,'FINE',0.009,'MASS','a', 'EVERYWHERE', 'GR_RES_FIRES' ,'PMNCOMN2','AROCP1OXY3' ,'FINE',0.009,'MASS','a', 'EVERYWHERE', 'GR_RES_FIRES' ,'PMOCN2' ,'AROCP2OXY2' ,'FINE',0. ,'MASS','a', 'EVERYWHERE', 'GR_RES_FIRES' ,'PMNCOMN2','AROCP2OXY2' ,'FINE',0. ,'MASS','a', 'EVERYWHERE', 'GR_RES_FIRES' ,'PMOCN2' ,'VROCP3OXY2' ,'FINE',0. ,'MASS','a', 'EVERYWHERE', 'GR_RES_FIRES' ,'PMNCOMN2','VROCP3OXY2' ,'FINE',0. ,'MASS','a', ! ! Gasoline-Source Volatility Distribution (Mostly Onroad and Offroad Vehicles) ! ! Gasoline profile based on Lu et al. 2020 https://doi.org/10.5194/acp-20-4313-2020 ! 'EVERYWHERE', 'GRIDDED_GASOLINE','PMOCN2' ,'AROCN1ALK' ,'FINE',0.228,'MASS','a', ! 'EVERYWHERE', 'GRIDDED_GASOLINE','PMNCOMN2','AROCN1ALK' ,'FINE',0.228,'MASS','a', ! 'EVERYWHERE', 'GRIDDED_GASOLINE','PMOCN2' ,'AROCP0ALK' ,'FINE',0.054,'MASS','a', ! 'EVERYWHERE', 'GRIDDED_GASOLINE','PMNCOMN2','AROCP0ALK' ,'FINE',0.054,'MASS','a', ! 'EVERYWHERE', 'GRIDDED_GASOLINE','PMOCN2' ,'VROCP0ALK' ,'GAS' ,0.054,'MASS','a', ! 'EVERYWHERE', 'GRIDDED_GASOLINE','PMNCOMN2','VROCP0ALK' ,'GAS' ,0.054,'MASS','a', ! 'EVERYWHERE', 'GRIDDED_GASOLINE','PMOCN2' ,'VROCP1ALK' ,'GAS' ,0.515,'MASS','a', ! 'EVERYWHERE', 'GRIDDED_GASOLINE','PMNCOMN2','VROCP1ALK' ,'GAS' ,0.515,'MASS','a', ! 'EVERYWHERE', 'GRIDDED_GASOLINE','PMOCN2' ,'VROCP2ALK' ,'GAS' ,0.550,'MASS','a', ! 'EVERYWHERE', 'GRIDDED_GASOLINE','PMNCOMN2','VROCP2ALK' ,'GAS' ,0.550,'MASS','a', ! 'EVERYWHERE', 'GRIDDED_GASOLINE','PMOCN2 ' ,'VROCP3ALK' ,'GAS' ,0.0 ,'MASS','a', ! 'EVERYWHERE', 'GRIDDED_GASOLINE','PMNCOMN2','VROCP3ALK' ,'GAS' ,0.0 ,'MASS','a', ! ! 'EVERYWHERE', 'GRIDDED_GASOLINE','NMOG' ,'VROCP3ALK' ,'GAS' ,0.0032,'MASS','a', ! 'EVERYWHERE', 'GRIDDED_GASOLINE','NMOG' ,'VROCP4ALK' ,'GAS' ,0.0034,'MASS','a', ! 'EVERYWHERE', 'GRIDDED_GASOLINE','NMOG' ,'VROCP5ALK' ,'GAS' ,0.0019,'MASS','a', ! 'EVERYWHERE', 'GRIDDED_GASOLINE','NMOG' ,'VROCP6ALK' ,'GAS' ,0.0064,'MASS','a', ! 'EVERYWHERE', 'GRIDDED_GASOLINE','NMOG' ,'VROCP5ARO' ,'GAS' ,0.0060,'MASS','a', ! 'EVERYWHERE', 'GRIDDED_GASOLINE','NMOG' ,'VROCP6ARO' ,'GAS' ,0.0253,'MASS','a', ! ! Aircraft Family Turbine Engine Volatility Distribution ! ! Aircraft profile based on Lu et al. 2020 https://doi.org/10.5194/acp-20-4313-2020 ! 'EVERYWHERE', 'AIRCRAFT' ,'PMOCN2' ,'AROCN1ALK' ,'FINE',0.149,'MASS','a', ! 'EVERYWHERE', 'AIRCRAFT' ,'PMNCOMN2','AROCN1ALK' ,'FINE',0.149,'MASS','a', ! 'EVERYWHERE', 'AIRCRAFT' ,'PMOCN2' ,'AROCP0ALK' ,'FINE',0.130,'MASS','a', ! 'EVERYWHERE', 'AIRCRAFT' ,'PMNCOMN2','AROCP0ALK' ,'FINE',0.130,'MASS','a', ! 'EVERYWHERE', 'AIRCRAFT' ,'PMOCN2' ,'VROCP0ALK' ,'GAS' ,0.130,'MASS','a', ! 'EVERYWHERE', 'AIRCRAFT' ,'PMNCOMN2','VROCP0ALK' ,'GAS' ,0.130,'MASS','a', ! 'EVERYWHERE', 'AIRCRAFT' ,'PMOCN2' ,'VROCP1ALK' ,'GAS' ,0.384,'MASS','a', ! 'EVERYWHERE', 'AIRCRAFT' ,'PMNCOMN2','VROCP1ALK' ,'GAS' ,0.384,'MASS','a', ! 'EVERYWHERE', 'AIRCRAFT' ,'PMOCN2' ,'VROCP2ALK' ,'GAS' ,0.208,'MASS','a', ! 'EVERYWHERE', 'AIRCRAFT' ,'PMNCOMN2','VROCP2ALK' ,'GAS' ,0.208,'MASS','a', ! 'EVERYWHERE', 'AIRCRAFT' ,'PMOCN2' ,'VROCP3ALK' ,'GAS' ,0.0 ,'MASS','a', ! 'EVERYWHERE', 'AIRCRAFT' ,'PMNCOMN2','VROCP3ALK' ,'GAS' ,0.0 ,'MASS','a', ! Volatility resolved CRACMM semivolatile POA 'EVERYWHERE', 'ALL' ,'POCN2' ,'AROCN2ALK' ,'FINE',1.0,'UNIT','a', 'EVERYWHERE', 'ALL' ,'POCN1' ,'AROCN1ALK' ,'FINE',1.0,'UNIT','a', 'EVERYWHERE', 'ALL' ,'POCP0' ,'AROCP0ALK' ,'FINE',1.0,'UNIT','a', 'EVERYWHERE', 'ALL' ,'POCP1' ,'AROCP1ALK' ,'FINE',1.0,'UNIT','a', 'EVERYWHERE', 'ALL' ,'POCP2' ,'AROCP2ALK' ,'FINE',1.0,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PNCOMN2' ,'AROCN2ALK' ,'FINE',1.0,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PNCOMN1' ,'AROCN1ALK' ,'FINE',1.0,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PNCOMP0' ,'AROCP0ALK' ,'FINE',1.0,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PNCOMP1' ,'AROCP1ALK' ,'FINE',1.0,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PNCOMP2' ,'AROCP2ALK' ,'FINE',1.0,'UNIT','a', ! pcSOA is a CMAQ species introduced to account for missing pathways for SOA ! formation from combustion sources. It includes IVOC oxidation as well as other ! phenomena (Murphy et al., ACP, 2017). It was parameterized primarily in LA, ! where vehicle exhaust continues to dominate. ! pcSOA is deprecated in CRACMM ! Wind-Blown Dust and Sea Spray Scaling ! Fine Components 'EVERYWHERE', 'ALL' ,'PMFINE_SO4' ,'ASO4' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_NO3' ,'ANO3' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_CL' ,'ACL' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_NH4' ,'ANH4' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_NA' ,'ANA' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_CA' ,'ACA' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_MG' ,'AMG' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_K' ,'AK' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_FE' ,'AFE' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_AL' ,'AAL' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_SI' ,'ASI' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_TI' ,'ATI' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_MN' ,'AMN' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_H2O' ,'AH2O' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_OTHR' ,'AOTHR' ,'FINE',1. ,'UNIT','a', ! Wind-Blown Dust and Sea Spray Scaling ! Coarse Components 'EVERYWHERE', 'ALL' ,'PMCOARSE_SO4','ASO4' ,'COARSE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMCOARSE_NO3','ANO3' ,'COARSE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMCOARSE_CL' ,'ACL' ,'COARSE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMCOARSE_H2O','AH2O' ,'COARSE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMCOARSE_SOIL','ASOIL' ,'COARSE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMCOARSE_SEACAT','ASEACAT' ,'COARSE',1. ,'UNIT','a', / ================================================ FILE: CCTM/src/MECHS/cracmm2/CSQY_DATA_cracmm2 ================================================ Table for Mechanism = CRACMM2 NPHOTAB = 32 !Individual rates listed below: O3O3P_NASA06 O3O1D_NASA06 H2O2_RACM2 NO2_RACM2 NO3NO_RACM2 NO3NO2_RACM2 HONO_RACM2 HNO3_RACM2 HNO4_RACM2 HCHO_MOL_JPL19 HCHO_RAD_JPL19 CH3CHO_RACM2 ALD_JPL19 CH3COCH3A_JPL19 CH3COCH3B_JPL19 UALD_RACM2 MEK_JGR19 KET_JGR19 HKET_RACM2 MACR_RACM2 MVK_RACM2 GLYH2_RACM2 GLYF_RACM2 GLYHX_RACM2 MGLY_RACM2 BALD_RACM2 OP1_RACM2 PAA_RACM2 ONIT_RACM2 PAN1_RACM2 PAN2_RACM2 ACRO_09 NTEMP = 6 ! I TEMP( I ) K 1 210.00 2 230.00 3 250.00 4 270.00 5 290.00 6 310.00 ! Wavelength and Photolysis Rate Parameters for CMAQ In-Line Photolysis ! calculation . The values are determined by averaging technique over the below ! number of wavelength bins. The technique employs an approach used by the FASTJX ! versions 6 and 7. !References: ! 1) Bian, H. S. and Prather, M. J.: Fast-J2: accurate simulation of stratospheric ! photolysis in global chemical models, J. Atmos. Chem., 41, 281-296 doi:10.1023/A:1014980619462, 2002. ! 2) Hsu, J. and Prather, M. J.: Stratospheric variability and tropospheric ozone, ! J. Geophys. Res., 114, D06102, doi:10.1029/2008JD010942, 2009. ! 3) Prather, M. J.: Fast-JX versions and utilities, available at: ! http://www.ess.uci.edu/researchgrp/prather/scholar_software/fast-jx ! (last accessed: 24 January 2014), 2014. ! Wave bands and Solar Flux ! N_INLINE_BAND = 7 ! I, START_WL_BIN(nm), EFFECT_WL_BIN_(nm), END_WL_BIN_(nm), photon_flux(cm-2*s-1), 1, 291.000, 294.590, 298.300, 5.8828E+14, 2, 298.300, 303.151, 307.500, 7.6354E+14, 3, 307.500, 310.007, 312.500, 5.0412E+14, 4, 312.500, 316.434, 320.300, 8.9628E+14, 5, 320.300, 333.076, 345.000, 3.8537E+15, 6, 345.000, 381.997, 412.500, 1.5457E+16, 7, 412.500, 607.723, 850.000, 2.1307E+17, !... CS = absorption cross sections averaged over UCI Solar Flux !... QY = quantum yields averaged over UCI Solar Flux !... EQY = eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model !PHOTAB QUANTITY TEMP WBIN( 1) WBIN( 2) WBIN( 3) WBIN( 4) WBIN( 5) WBIN( 6) WBIN( 7) O3O3P_NASA06 CS 210.000 7.688467E-19 2.422055E-19 8.920470E-20 3.650450E-20 4.746825E-21 6.139220E-23 1.666851E-21 O3O3P_NASA06 EQY 210.000 1.000000E-01 1.041791E-01 4.952917E-01 8.153871E-01 8.979595E-01 9.291306E-01 1.000000E+00 O3O3P_NASA06 CS 230.000 7.803585E-19 2.474376E-19 9.195177E-20 3.806528E-20 5.075878E-21 6.139220E-23 1.666851E-21 O3O3P_NASA06 EQY 230.000 1.000000E-01 1.041791E-01 4.902279E-01 8.178273E-01 8.979595E-01 9.291306E-01 1.000000E+00 O3O3P_NASA06 CS 250.000 7.995448E-19 2.561579E-19 9.653022E-20 4.066658E-20 5.624299E-21 6.139220E-23 1.666851E-21 O3O3P_NASA06 EQY 250.000 1.000000E-01 1.041791E-01 4.818958E-01 8.188244E-01 8.979595E-01 9.291306E-01 1.000000E+00 O3O3P_NASA06 CS 270.000 8.187311E-19 2.648782E-19 1.011087E-19 4.326788E-20 6.172721E-21 6.139220E-23 1.666851E-21 O3O3P_NASA06 EQY 270.000 1.000000E-01 1.041791E-01 4.677566E-01 8.131744E-01 8.979595E-01 9.291306E-01 1.000000E+00 O3O3P_NASA06 CS 290.000 8.379175E-19 2.735984E-19 1.056871E-19 4.586918E-20 6.721143E-21 6.139220E-23 1.666851E-21 O3O3P_NASA06 EQY 290.000 1.000000E-01 1.041791E-01 4.431264E-01 7.889175E-01 8.979595E-01 9.291306E-01 1.000000E+00 O3O3P_NASA06 CS 310.000 8.407954E-19 2.749065E-19 1.063739E-19 4.625938E-20 6.803406E-21 6.139220E-23 1.666851E-21 O3O3P_NASA06 EQY 310.000 1.000000E-01 1.041791E-01 3.989815E-01 7.203341E-01 8.979595E-01 9.291306E-01 1.000000E+00 O3O1D_NASA06 CS 210.000 7.808049E-19 2.423500E-19 8.920470E-20 3.650450E-20 4.604240E-21 5.459842E-23 0.000000E+00 O3O1D_NASA06 EQY 210.000 9.000000E-01 8.958209E-01 5.047083E-01 1.846129E-01 1.020405E-01 7.086939E-02 0.000000E+00 O3O1D_NASA06 CS 230.000 7.924958E-19 2.475853E-19 9.195177E-20 3.806528E-20 4.923409E-21 5.459842E-23 0.000000E+00 O3O1D_NASA06 EQY 230.000 9.000000E-01 8.958209E-01 5.097721E-01 1.821727E-01 1.020405E-01 7.086939E-02 0.000000E+00 O3O1D_NASA06 CS 250.000 8.119805E-19 2.563108E-19 9.653022E-20 4.066658E-20 5.455358E-21 5.459842E-23 0.000000E+00 O3O1D_NASA06 EQY 250.000 9.000000E-01 8.958209E-01 5.181042E-01 1.811756E-01 1.020405E-01 7.086939E-02 0.000000E+00 O3O1D_NASA06 CS 270.000 8.314653E-19 2.650363E-19 1.011087E-19 4.326788E-20 5.987306E-21 5.459842E-23 0.000000E+00 O3O1D_NASA06 EQY 270.000 9.000000E-01 8.958209E-01 5.322434E-01 1.868256E-01 1.020405E-01 7.086939E-02 0.000000E+00 O3O1D_NASA06 CS 290.000 8.509500E-19 2.737617E-19 1.056871E-19 4.586918E-20 6.519254E-21 5.459842E-23 0.000000E+00 O3O1D_NASA06 EQY 290.000 9.000000E-01 8.958209E-01 5.568736E-01 2.110825E-01 1.020405E-01 7.086939E-02 0.000000E+00 O3O1D_NASA06 CS 310.000 8.538727E-19 2.750705E-19 1.063739E-19 4.625938E-20 6.599046E-21 5.459842E-23 0.000000E+00 O3O1D_NASA06 EQY 310.000 9.000000E-01 8.958209E-01 6.010185E-01 2.796659E-01 1.020405E-01 7.086939E-02 0.000000E+00 H2O2_RACM2 CS 210.000 8.527608E-21 5.100901E-21 3.367998E-21 2.275936E-21 8.877982E-22 3.606306E-23 0.000000E+00 H2O2_RACM2 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 H2O2_RACM2 CS 230.000 8.650794E-21 5.196512E-21 3.446407E-21 2.339455E-21 9.231624E-22 3.606306E-23 0.000000E+00 H2O2_RACM2 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 H2O2_RACM2 CS 250.000 8.817123E-21 5.325610E-21 3.552278E-21 2.425221E-21 9.709122E-22 3.606306E-23 0.000000E+00 H2O2_RACM2 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 H2O2_RACM2 CS 270.000 9.028511E-21 5.489680E-21 3.686830E-21 2.534221E-21 1.031598E-21 3.606306E-23 0.000000E+00 H2O2_RACM2 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 H2O2_RACM2 CS 290.000 9.284830E-21 5.688624E-21 3.849979E-21 2.666389E-21 1.105182E-21 3.606306E-23 0.000000E+00 H2O2_RACM2 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 H2O2_RACM2 CS 310.000 9.584270E-21 5.921037E-21 4.040577E-21 2.820792E-21 1.191145E-21 3.606306E-23 0.000000E+00 H2O2_RACM2 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 NO2_RACM2 CS 210.000 1.058805E-19 1.460434E-19 1.905840E-19 2.362586E-19 3.715161E-19 5.867486E-19 1.088657E-19 NO2_RACM2 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 7.961922E-01 2.423882E-03 NO2_RACM2 CS 230.000 1.060328E-19 1.459734E-19 1.901860E-19 2.350003E-19 3.679235E-19 5.852241E-19 1.085850E-19 NO2_RACM2 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 7.961922E-01 2.423882E-03 NO2_RACM2 CS 250.000 1.063375E-19 1.458335E-19 1.893902E-19 2.324836E-19 3.607383E-19 5.821752E-19 1.080235E-19 NO2_RACM2 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 7.969987E-01 2.507727E-03 NO2_RACM2 CS 270.000 1.066422E-19 1.456936E-19 1.885943E-19 2.299669E-19 3.535530E-19 5.791262E-19 1.074620E-19 NO2_RACM2 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 8.050633E-01 3.346181E-03 NO2_RACM2 CS 290.000 1.069468E-19 1.455536E-19 1.877985E-19 2.274503E-19 3.463678E-19 5.760772E-19 1.069005E-19 NO2_RACM2 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 8.131279E-01 4.184634E-03 NO2_RACM2 CS 310.000 1.070078E-19 1.455256E-19 1.876393E-19 2.269469E-19 3.449308E-19 5.754674E-19 1.067882E-19 NO2_RACM2 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 8.163537E-01 4.520015E-03 NO3NO_RACM2 CS 210.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 5.348470E-21 1.872219E-18 NO3NO_RACM2 EQY 210.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 6.767835E-02 NO3NO_RACM2 CS 230.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 5.075907E-21 1.776809E-18 NO3NO_RACM2 EQY 230.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 6.699507E-02 NO3NO_RACM2 CS 250.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 4.791067E-21 1.677102E-18 NO3NO_RACM2 EQY 250.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 6.679738E-02 NO3NO_RACM2 CS 270.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 4.498338E-21 1.574633E-18 NO3NO_RACM2 EQY 270.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 6.659967E-02 NO3NO_RACM2 CS 290.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 4.201227E-21 1.470630E-18 NO3NO_RACM2 EQY 290.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 6.640198E-02 NO3NO_RACM2 CS 310.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 3.902507E-21 1.366063E-18 NO3NO_RACM2 EQY 310.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 6.632289E-02 NO3NO2_RACM2 CS 210.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 5.348470E-21 1.872219E-18 NO3NO2_RACM2 EQY 210.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.000000E+00 5.038201E-01 NO3NO2_RACM2 CS 230.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 5.075907E-21 1.776809E-18 NO3NO2_RACM2 EQY 230.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.000000E+00 5.129623E-01 NO3NO2_RACM2 CS 250.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 4.791067E-21 1.677102E-18 NO3NO2_RACM2 EQY 250.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.000000E+00 5.207280E-01 NO3NO2_RACM2 CS 270.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 4.498338E-21 1.574633E-18 NO3NO2_RACM2 EQY 270.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.000000E+00 5.284936E-01 NO3NO2_RACM2 CS 290.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 4.201227E-21 1.470630E-18 NO3NO2_RACM2 EQY 290.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.000000E+00 5.362592E-01 NO3NO2_RACM2 CS 310.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 3.902507E-21 1.366063E-18 NO3NO2_RACM2 EQY 310.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.000000E+00 5.393655E-01 HONO_RACM2 CS 210.000 5.628977E-21 9.694364E-21 1.881716E-20 2.969466E-20 7.453932E-20 6.563367E-20 0.000000E+00 HONO_RACM2 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HONO_RACM2 CS 230.000 5.628977E-21 9.694364E-21 1.881716E-20 2.969466E-20 7.453932E-20 6.563367E-20 0.000000E+00 HONO_RACM2 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HONO_RACM2 CS 250.000 5.628977E-21 9.694364E-21 1.881716E-20 2.969466E-20 7.453932E-20 6.563367E-20 0.000000E+00 HONO_RACM2 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HONO_RACM2 CS 270.000 5.628977E-21 9.694364E-21 1.881716E-20 2.969466E-20 7.453932E-20 6.563367E-20 0.000000E+00 HONO_RACM2 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HONO_RACM2 CS 290.000 5.628977E-21 9.694364E-21 1.881716E-20 2.969466E-20 7.453932E-20 6.563367E-20 0.000000E+00 HONO_RACM2 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HONO_RACM2 CS 310.000 5.628977E-21 9.694364E-21 1.881716E-20 2.969466E-20 7.453932E-20 6.563367E-20 0.000000E+00 HONO_RACM2 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HNO3_RACM2 CS 210.000 3.477740E-21 1.421362E-21 5.692533E-22 2.194328E-22 2.062589E-23 3.797806E-25 0.000000E+00 HNO3_RACM2 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HNO3_RACM2 CS 230.000 3.663356E-21 1.522325E-21 6.201572E-22 2.451096E-22 2.494077E-23 3.837348E-25 0.000000E+00 HNO3_RACM2 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HNO3_RACM2 CS 250.000 3.858879E-21 1.630460E-21 6.756130E-22 2.737909E-22 3.015831E-23 3.877301E-25 0.000000E+00 HNO3_RACM2 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HNO3_RACM2 CS 270.000 4.064837E-21 1.746275E-21 7.360279E-22 3.058283E-22 3.646735E-23 3.917671E-25 0.000000E+00 HNO3_RACM2 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HNO3_RACM2 CS 290.000 4.281789E-21 1.870318E-21 8.018451E-22 3.416145E-22 4.409623E-23 3.958460E-25 0.000000E+00 HNO3_RACM2 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HNO3_RACM2 CS 310.000 4.510320E-21 2.003171E-21 8.735479E-22 3.815883E-22 5.332105E-23 3.999674E-25 0.000000E+00 HNO3_RACM2 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HNO4_RACM2 CS 210.000 2.329949E-20 9.144530E-21 3.983048E-21 1.967534E-21 3.976035E-22 3.285247E-24 0.000000E+00 HNO4_RACM2 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HNO4_RACM2 CS 230.000 2.378244E-20 9.477436E-21 4.200296E-21 2.110804E-21 4.511061E-22 4.554065E-24 0.000000E+00 HNO4_RACM2 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HNO4_RACM2 CS 250.000 2.447801E-20 9.956912E-21 4.513192E-21 2.317151E-21 5.281641E-22 6.381496E-24 0.000000E+00 HNO4_RACM2 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HNO4_RACM2 CS 270.000 2.541218E-20 1.060086E-20 4.933421E-21 2.594282E-21 6.316551E-22 8.835790E-24 0.000000E+00 HNO4_RACM2 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HNO4_RACM2 CS 290.000 2.660059E-20 1.142006E-20 5.468013E-21 2.946832E-21 7.633113E-22 1.195802E-23 0.000000E+00 HNO4_RACM2 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HNO4_RACM2 CS 310.000 2.804907E-20 1.241853E-20 6.119599E-21 3.376538E-21 9.237795E-22 1.576353E-23 0.000000E+00 HNO4_RACM2 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HCHO_MOL_JPL19 CS 210.000 3.436202E-20 3.561495E-20 1.661439E-20 3.505164E-20 1.949427E-20 8.453695E-22 0.000000E+00 HCHO_MOL_JPL19 EQY 210.000 2.573368E-01 2.406493E-01 2.610733E-01 3.312798E-01 6.395736E-01 3.544923E-01 0.000000E+00 HCHO_MOL_JPL19 CS 230.000 3.432947E-20 3.561257E-20 1.660507E-20 3.507666E-20 1.950541E-20 8.448212E-22 0.000000E+00 HCHO_MOL_JPL19 EQY 230.000 2.573368E-01 2.406493E-01 2.610733E-01 3.312798E-01 6.347457E-01 3.406936E-01 0.000000E+00 HCHO_MOL_JPL19 CS 250.000 3.429692E-20 3.561019E-20 1.659575E-20 3.510169E-20 1.951654E-20 8.442728E-22 0.000000E+00 HCHO_MOL_JPL19 EQY 250.000 2.573368E-01 2.406493E-01 2.610733E-01 3.312798E-01 6.247651E-01 3.155994E-01 0.000000E+00 HCHO_MOL_JPL19 CS 270.000 3.426437E-20 3.560782E-20 1.658643E-20 3.512672E-20 1.952767E-20 8.437245E-22 0.000000E+00 HCHO_MOL_JPL19 EQY 270.000 2.573368E-01 2.406493E-01 2.610733E-01 3.312798E-01 6.145213E-01 2.936854E-01 0.000000E+00 HCHO_MOL_JPL19 CS 290.000 3.423181E-20 3.560544E-20 1.657710E-20 3.515175E-20 1.953881E-20 8.431761E-22 0.000000E+00 HCHO_MOL_JPL19 EQY 290.000 2.573368E-01 2.406493E-01 2.610733E-01 3.312798E-01 6.040692E-01 2.744425E-01 0.000000E+00 HCHO_MOL_JPL19 CS 310.000 3.421553E-20 3.560425E-20 1.657244E-20 3.516426E-20 1.954437E-20 8.429019E-22 0.000000E+00 HCHO_MOL_JPL19 EQY 310.000 2.573368E-01 2.406493E-01 2.610733E-01 3.312798E-01 5.987564E-01 2.656473E-01 0.000000E+00 HCHO_RAD_JPL19 CS 210.000 3.436202E-20 3.561495E-20 1.661439E-20 3.505164E-20 1.949427E-20 8.453695E-22 0.000000E+00 HCHO_RAD_JPL19 EQY 210.000 7.308307E-01 7.593507E-01 7.389267E-01 6.687202E-01 2.626862E-01 0.000000E+00 0.000000E+00 HCHO_RAD_JPL19 CS 230.000 3.432947E-20 3.561257E-20 1.660507E-20 3.507666E-20 1.950541E-20 8.448212E-22 0.000000E+00 HCHO_RAD_JPL19 EQY 230.000 7.308307E-01 7.593507E-01 7.389267E-01 6.687202E-01 2.626862E-01 0.000000E+00 0.000000E+00 HCHO_RAD_JPL19 CS 250.000 3.429692E-20 3.561019E-20 1.659575E-20 3.510169E-20 1.951654E-20 8.442728E-22 0.000000E+00 HCHO_RAD_JPL19 EQY 250.000 7.308307E-01 7.593507E-01 7.389267E-01 6.687202E-01 2.626862E-01 0.000000E+00 0.000000E+00 HCHO_RAD_JPL19 CS 270.000 3.426437E-20 3.560782E-20 1.658643E-20 3.512672E-20 1.952767E-20 8.437245E-22 0.000000E+00 HCHO_RAD_JPL19 EQY 270.000 7.308307E-01 7.593507E-01 7.389267E-01 6.687202E-01 2.626862E-01 0.000000E+00 0.000000E+00 HCHO_RAD_JPL19 CS 290.000 3.423181E-20 3.560544E-20 1.657710E-20 3.515175E-20 1.953881E-20 8.431761E-22 0.000000E+00 HCHO_RAD_JPL19 EQY 290.000 7.308307E-01 7.593507E-01 7.389267E-01 6.687202E-01 2.626862E-01 0.000000E+00 0.000000E+00 HCHO_RAD_JPL19 CS 310.000 3.421553E-20 3.560425E-20 1.657244E-20 3.516426E-20 1.954437E-20 8.429019E-22 0.000000E+00 HCHO_RAD_JPL19 EQY 310.000 7.308307E-01 7.593507E-01 7.389267E-01 6.687202E-01 2.626862E-01 0.000000E+00 0.000000E+00 CH3CHO_RACM2 CS 210.000 4.432880E-20 3.689178E-20 2.913527E-20 2.067145E-20 5.819010E-21 1.448852E-23 0.000000E+00 CH3CHO_RACM2 EQY 210.000 4.909960E-01 3.900005E-01 2.794830E-01 1.560880E-01 3.457768E-02 0.000000E+00 0.000000E+00 CH3CHO_RACM2 CS 230.000 4.432880E-20 3.689178E-20 2.913527E-20 2.067145E-20 5.819010E-21 1.448852E-23 0.000000E+00 CH3CHO_RACM2 EQY 230.000 4.909960E-01 3.900005E-01 2.794830E-01 1.560880E-01 3.457768E-02 0.000000E+00 0.000000E+00 CH3CHO_RACM2 CS 250.000 4.432880E-20 3.689178E-20 2.913527E-20 2.067145E-20 5.819010E-21 1.448852E-23 0.000000E+00 CH3CHO_RACM2 EQY 250.000 4.909960E-01 3.900005E-01 2.794830E-01 1.560880E-01 3.457768E-02 0.000000E+00 0.000000E+00 CH3CHO_RACM2 CS 270.000 4.432880E-20 3.689178E-20 2.913527E-20 2.067145E-20 5.819010E-21 1.448852E-23 0.000000E+00 CH3CHO_RACM2 EQY 270.000 4.909960E-01 3.900005E-01 2.794830E-01 1.560880E-01 3.457768E-02 0.000000E+00 0.000000E+00 CH3CHO_RACM2 CS 290.000 4.432880E-20 3.689178E-20 2.913527E-20 2.067145E-20 5.819010E-21 1.448852E-23 0.000000E+00 CH3CHO_RACM2 EQY 290.000 4.909960E-01 3.900005E-01 2.794830E-01 1.560880E-01 3.457768E-02 0.000000E+00 0.000000E+00 CH3CHO_RACM2 CS 310.000 4.432880E-20 3.689178E-20 2.913527E-20 2.067145E-20 5.819010E-21 1.448852E-23 0.000000E+00 CH3CHO_RACM2 EQY 310.000 4.909960E-01 3.900005E-01 2.794830E-01 1.560880E-01 3.457768E-02 0.000000E+00 0.000000E+00 ALD_JPL19 CS 210.000 5.545019E-20 4.634689E-20 3.579653E-20 2.441742E-20 5.836673E-21 1.243216E-23 0.000000E+00 ALD_JPL19 EQY 210.000 7.650582E-01 4.959521E-01 3.110854E-01 1.880053E-01 5.620141E-02 3.880543E-04 0.000000E+00 ALD_JPL19 CS 230.000 5.545019E-20 4.634689E-20 3.579653E-20 2.441742E-20 5.836673E-21 1.243216E-23 0.000000E+00 ALD_JPL19 EQY 230.000 7.650582E-01 4.959521E-01 3.110854E-01 1.880053E-01 5.620141E-02 3.880543E-04 0.000000E+00 ALD_JPL19 CS 250.000 5.545019E-20 4.634689E-20 3.579653E-20 2.441742E-20 5.836673E-21 1.243216E-23 0.000000E+00 ALD_JPL19 EQY 250.000 7.650582E-01 4.959521E-01 3.110854E-01 1.880053E-01 5.620141E-02 3.880543E-04 0.000000E+00 ALD_JPL19 CS 270.000 5.545019E-20 4.634689E-20 3.579653E-20 2.441742E-20 5.836673E-21 1.243216E-23 0.000000E+00 ALD_JPL19 EQY 270.000 7.650582E-01 4.959521E-01 3.110854E-01 1.880053E-01 5.620141E-02 3.880543E-04 0.000000E+00 ALD_JPL19 CS 290.000 5.545019E-20 4.634689E-20 3.579653E-20 2.441742E-20 5.836673E-21 1.243216E-23 0.000000E+00 ALD_JPL19 EQY 290.000 7.650582E-01 4.959521E-01 3.110854E-01 1.880053E-01 5.620141E-02 3.880543E-04 0.000000E+00 ALD_JPL19 CS 310.000 5.545019E-20 4.634689E-20 3.579653E-20 2.441742E-20 5.836673E-21 1.243216E-23 0.000000E+00 ALD_JPL19 EQY 310.000 7.650582E-01 4.959521E-01 3.110854E-01 1.880053E-01 5.620141E-02 3.880543E-04 0.000000E+00 CH3COCH3A_JPL19 CS 210.000 3.093982E-20 1.932871E-20 1.074082E-20 5.401566E-21 3.042770E-22 0.000000E+00 0.000000E+00 CH3COCH3A_JPL19 EQY 210.000 3.050471E-01 8.750076E-02 1.202798E-02 1.958962E-03 1.000649E-04 0.000000E+00 0.000000E+00 CH3COCH3A_JPL19 CS 230.000 3.149499E-20 2.006286E-20 1.149978E-20 5.882838E-21 3.324875E-22 0.000000E+00 0.000000E+00 CH3COCH3A_JPL19 EQY 230.000 2.787375E-01 9.397311E-02 1.661723E-02 3.420933E-03 2.896750E-04 0.000000E+00 0.000000E+00 CH3COCH3A_JPL19 CS 250.000 3.221698E-20 2.085074E-20 1.224359E-20 6.367100E-21 3.824558E-22 0.000000E+00 0.000000E+00 CH3COCH3A_JPL19 EQY 250.000 2.691839E-01 1.077206E-01 2.349230E-02 5.851198E-03 7.538323E-04 0.000000E+00 0.000000E+00 CH3COCH3A_JPL19 CS 270.000 3.310749E-20 2.165984E-20 1.292394E-20 6.826211E-21 4.569583E-22 0.000000E+00 0.000000E+00 CH3COCH3A_JPL19 EQY 270.000 2.670556E-01 1.277864E-01 3.342436E-02 9.777799E-03 1.796207E-03 0.000000E+00 0.000000E+00 CH3COCH3A_JPL19 CS 290.000 3.416823E-20 2.245764E-20 1.349254E-20 7.232033E-21 5.587719E-22 0.000000E+00 0.000000E+00 CH3COCH3A_JPL19 EQY 290.000 2.665285E-01 1.530424E-01 4.715588E-02 1.588624E-02 3.968139E-03 0.000000E+00 0.000000E+00 CH3COCH3A_JPL19 CS 310.000 3.540091E-20 2.321163E-20 1.390108E-20 7.556429E-21 6.906736E-22 0.000000E+00 0.000000E+00 CH3COCH3A_JPL19 EQY 310.000 2.639931E-01 1.814900E-01 6.511231E-02 2.493997E-02 8.189921E-03 0.000000E+00 0.000000E+00 CH3COCH3B_JPL19 CS 210.000 3.093982E-20 1.932871E-20 1.074082E-20 5.401566E-21 3.042770E-22 0.000000E+00 0.000000E+00 CH3COCH3B_JPL19 EQY 210.000 3.229218E-04 7.721466E-05 2.367151E-05 8.249256E-06 9.221447E-07 0.000000E+00 0.000000E+00 CH3COCH3B_JPL19 CS 230.000 3.149499E-20 2.006286E-20 1.149978E-20 5.882838E-21 3.324875E-22 0.000000E+00 0.000000E+00 CH3COCH3B_JPL19 EQY 230.000 2.173083E-03 7.072018E-04 2.773263E-04 1.217087E-04 2.470983E-05 0.000000E+00 0.000000E+00 CH3COCH3B_JPL19 CS 250.000 3.221698E-20 2.085074E-20 1.224359E-20 6.367100E-21 3.824558E-22 0.000000E+00 0.000000E+00 CH3COCH3B_JPL19 EQY 250.000 8.847268E-03 3.614042E-03 1.697250E-03 8.814140E-04 2.763485E-04 0.000000E+00 0.000000E+00 CH3COCH3B_JPL19 CS 270.000 3.310749E-20 2.165984E-20 1.292394E-20 6.826211E-21 4.569583E-22 0.000000E+00 0.000000E+00 CH3COCH3B_JPL19 EQY 270.000 2.542563E-02 1.237548E-02 6.667331E-03 3.932365E-03 1.708441E-03 0.000000E+00 0.000000E+00 CH3COCH3B_JPL19 CS 290.000 3.416823E-20 2.245764E-20 1.349254E-20 7.232033E-21 5.587719E-22 0.000000E+00 0.000000E+00 CH3COCH3B_JPL19 EQY 290.000 5.670215E-02 3.177502E-02 1.909137E-02 1.244460E-02 6.963594E-03 0.000000E+00 0.000000E+00 CH3COCH3B_JPL19 CS 310.000 3.540091E-20 2.321163E-20 1.390108E-20 7.556429E-21 6.906736E-22 0.000000E+00 0.000000E+00 CH3COCH3B_JPL19 EQY 310.000 1.044077E-01 6.573535E-02 4.320569E-02 3.056103E-02 2.096195E-02 0.000000E+00 0.000000E+00 UALD_RACM2 CS 210.000 2.726167E-20 3.900286E-20 4.799106E-20 5.560386E-20 5.993363E-20 1.199965E-20 0.000000E+00 UALD_RACM2 EQY 210.000 3.000000E-02 3.000000E-02 3.000000E-02 3.000000E-02 3.000000E-02 3.000000E-02 0.000000E+00 UALD_RACM2 CS 230.000 2.726167E-20 3.900286E-20 4.799106E-20 5.560386E-20 5.993363E-20 1.199965E-20 0.000000E+00 UALD_RACM2 EQY 230.000 3.000000E-02 3.000000E-02 3.000000E-02 3.000000E-02 3.000000E-02 3.000000E-02 0.000000E+00 UALD_RACM2 CS 250.000 2.726167E-20 3.900286E-20 4.799106E-20 5.560386E-20 5.993363E-20 1.199965E-20 0.000000E+00 UALD_RACM2 EQY 250.000 3.000000E-02 3.000000E-02 3.000000E-02 3.000000E-02 3.000000E-02 3.000000E-02 0.000000E+00 UALD_RACM2 CS 270.000 2.726167E-20 3.900286E-20 4.799106E-20 5.560386E-20 5.993363E-20 1.199965E-20 0.000000E+00 UALD_RACM2 EQY 270.000 3.000000E-02 3.000000E-02 3.000000E-02 3.000000E-02 3.000000E-02 3.000000E-02 0.000000E+00 UALD_RACM2 CS 290.000 2.726167E-20 3.900286E-20 4.799106E-20 5.560386E-20 5.993363E-20 1.199965E-20 0.000000E+00 UALD_RACM2 EQY 290.000 3.000000E-02 3.000000E-02 3.000000E-02 3.000000E-02 3.000000E-02 3.000000E-02 0.000000E+00 UALD_RACM2 CS 310.000 2.726167E-20 3.900286E-20 4.799106E-20 5.560386E-20 5.993363E-20 1.199965E-20 0.000000E+00 UALD_RACM2 EQY 310.000 3.000000E-02 3.000000E-02 3.000000E-02 3.000000E-02 3.000000E-02 3.000000E-02 0.000000E+00 MEK_JGR19 CS 210.000 4.136901E-20 2.660165E-20 1.555986E-20 7.628035E-21 7.691484E-22 0.000000E+00 0.000000E+00 MEK_JGR19 EQY 210.000 3.400000E-01 3.400000E-01 3.400000E-01 3.400000E-01 3.400000E-01 0.000000E+00 0.000000E+00 MEK_JGR19 CS 230.000 4.136901E-20 2.660165E-20 1.555986E-20 7.628035E-21 7.691484E-22 0.000000E+00 0.000000E+00 MEK_JGR19 EQY 230.000 3.400000E-01 3.400000E-01 3.400000E-01 3.400000E-01 3.400000E-01 0.000000E+00 0.000000E+00 MEK_JGR19 CS 250.000 4.136901E-20 2.660165E-20 1.555986E-20 7.628035E-21 7.691484E-22 0.000000E+00 0.000000E+00 MEK_JGR19 EQY 250.000 3.400000E-01 3.400000E-01 3.400000E-01 3.400000E-01 3.400000E-01 0.000000E+00 0.000000E+00 MEK_JGR19 CS 270.000 4.136901E-20 2.660165E-20 1.555986E-20 7.628035E-21 7.691484E-22 0.000000E+00 0.000000E+00 MEK_JGR19 EQY 270.000 3.400000E-01 3.400000E-01 3.400000E-01 3.400000E-01 3.400000E-01 0.000000E+00 0.000000E+00 MEK_JGR19 CS 290.000 4.136901E-20 2.660165E-20 1.555986E-20 7.628035E-21 7.691484E-22 0.000000E+00 0.000000E+00 MEK_JGR19 EQY 290.000 3.400000E-01 3.400000E-01 3.400000E-01 3.400000E-01 3.400000E-01 0.000000E+00 0.000000E+00 MEK_JGR19 CS 310.000 4.136901E-20 2.660165E-20 1.555986E-20 7.628035E-21 7.691484E-22 0.000000E+00 0.000000E+00 MEK_JGR19 EQY 310.000 3.400000E-01 3.400000E-01 3.400000E-01 3.400000E-01 3.400000E-01 0.000000E+00 0.000000E+00 KET_JGR19 CS 210.000 4.752487E-20 3.017679E-20 1.668608E-20 8.110916E-21 7.302181E-22 0.000000E+00 0.000000E+00 KET_JGR19 EQY 210.000 3.400000E-01 3.400000E-01 3.400000E-01 3.400000E-01 3.400000E-01 0.000000E+00 0.000000E+00 KET_JGR19 CS 230.000 4.752487E-20 3.017679E-20 1.668608E-20 8.110916E-21 7.302181E-22 0.000000E+00 0.000000E+00 KET_JGR19 EQY 230.000 3.400000E-01 3.400000E-01 3.400000E-01 3.400000E-01 3.400000E-01 0.000000E+00 0.000000E+00 KET_JGR19 CS 250.000 4.752487E-20 3.017679E-20 1.668608E-20 8.110916E-21 7.302181E-22 0.000000E+00 0.000000E+00 KET_JGR19 EQY 250.000 3.400000E-01 3.400000E-01 3.400000E-01 3.400000E-01 3.400000E-01 0.000000E+00 0.000000E+00 KET_JGR19 CS 270.000 4.752487E-20 3.017679E-20 1.668608E-20 8.110916E-21 7.302181E-22 0.000000E+00 0.000000E+00 KET_JGR19 EQY 270.000 3.400000E-01 3.400000E-01 3.400000E-01 3.400000E-01 3.400000E-01 0.000000E+00 0.000000E+00 KET_JGR19 CS 290.000 4.752487E-20 3.017679E-20 1.668608E-20 8.110916E-21 7.302181E-22 0.000000E+00 0.000000E+00 KET_JGR19 EQY 290.000 3.400000E-01 3.400000E-01 3.400000E-01 3.400000E-01 3.400000E-01 0.000000E+00 0.000000E+00 KET_JGR19 CS 310.000 4.752487E-20 3.017679E-20 1.668608E-20 8.110916E-21 7.302181E-22 0.000000E+00 0.000000E+00 KET_JGR19 EQY 310.000 3.400000E-01 3.400000E-01 3.400000E-01 3.400000E-01 3.400000E-01 0.000000E+00 0.000000E+00 HKET_RACM2 CS 210.000 1.992923E-20 7.535076E-21 2.932970E-21 1.413067E-21 3.523287E-22 0.000000E+00 0.000000E+00 HKET_RACM2 EQY 210.000 6.500000E-01 6.500000E-01 6.500000E-01 6.500000E-01 6.500000E-01 0.000000E+00 0.000000E+00 HKET_RACM2 CS 230.000 1.992923E-20 7.535076E-21 2.932970E-21 1.413067E-21 3.523287E-22 0.000000E+00 0.000000E+00 HKET_RACM2 EQY 230.000 6.500000E-01 6.500000E-01 6.500000E-01 6.500000E-01 6.500000E-01 0.000000E+00 0.000000E+00 HKET_RACM2 CS 250.000 1.992923E-20 7.535076E-21 2.932970E-21 1.413067E-21 3.523287E-22 0.000000E+00 0.000000E+00 HKET_RACM2 EQY 250.000 6.500000E-01 6.500000E-01 6.500000E-01 6.500000E-01 6.500000E-01 0.000000E+00 0.000000E+00 HKET_RACM2 CS 270.000 1.992923E-20 7.535076E-21 2.932970E-21 1.413067E-21 3.523287E-22 0.000000E+00 0.000000E+00 HKET_RACM2 EQY 270.000 6.500000E-01 6.500000E-01 6.500000E-01 6.500000E-01 6.500000E-01 0.000000E+00 0.000000E+00 HKET_RACM2 CS 290.000 1.992923E-20 7.535076E-21 2.932970E-21 1.413067E-21 3.523287E-22 0.000000E+00 0.000000E+00 HKET_RACM2 EQY 290.000 6.500000E-01 6.500000E-01 6.500000E-01 6.500000E-01 6.500000E-01 0.000000E+00 0.000000E+00 HKET_RACM2 CS 310.000 1.992923E-20 7.535076E-21 2.932970E-21 1.413067E-21 3.523287E-22 0.000000E+00 0.000000E+00 HKET_RACM2 EQY 310.000 6.500000E-01 6.500000E-01 6.500000E-01 6.500000E-01 6.500000E-01 0.000000E+00 0.000000E+00 MACR_RACM2 CS 210.000 2.653810E-20 3.941266E-20 4.989643E-20 5.893396E-20 6.529031E-20 1.389067E-20 0.000000E+00 MACR_RACM2 EQY 210.000 8.015506E-03 8.015506E-03 8.015506E-03 8.015506E-03 8.015506E-03 8.015506E-03 0.000000E+00 MACR_RACM2 CS 230.000 2.653810E-20 3.941266E-20 4.989643E-20 5.893396E-20 6.529031E-20 1.389067E-20 0.000000E+00 MACR_RACM2 EQY 230.000 8.015506E-03 8.015506E-03 8.015506E-03 8.015506E-03 8.015506E-03 8.015506E-03 0.000000E+00 MACR_RACM2 CS 250.000 2.653810E-20 3.941266E-20 4.989643E-20 5.893396E-20 6.529031E-20 1.389067E-20 0.000000E+00 MACR_RACM2 EQY 250.000 8.015506E-03 8.015506E-03 8.015506E-03 8.015506E-03 8.015506E-03 8.015506E-03 0.000000E+00 MACR_RACM2 CS 270.000 2.653810E-20 3.941266E-20 4.989643E-20 5.893396E-20 6.529031E-20 1.389067E-20 0.000000E+00 MACR_RACM2 EQY 270.000 8.015506E-03 8.015506E-03 8.015506E-03 8.015506E-03 8.015506E-03 8.015506E-03 0.000000E+00 MACR_RACM2 CS 290.000 2.653810E-20 3.941266E-20 4.989643E-20 5.893396E-20 6.529031E-20 1.389067E-20 0.000000E+00 MACR_RACM2 EQY 290.000 8.015506E-03 8.015506E-03 8.015506E-03 8.015506E-03 8.015506E-03 8.015506E-03 0.000000E+00 MACR_RACM2 CS 310.000 2.653810E-20 3.941266E-20 4.989643E-20 5.893396E-20 6.529031E-20 1.389067E-20 0.000000E+00 MACR_RACM2 EQY 310.000 8.015506E-03 8.015506E-03 8.015506E-03 8.015506E-03 8.015506E-03 8.015506E-03 0.000000E+00 MVK_RACM2 CS 210.000 3.026195E-20 4.372470E-20 5.436504E-20 6.304111E-20 6.815623E-20 1.494179E-20 0.000000E+00 MVK_RACM2 EQY 210.000 1.750145E-02 1.106229E-02 7.572843E-03 5.008090E-03 2.251655E-03 4.698719E-04 0.000000E+00 MVK_RACM2 CS 230.000 3.026195E-20 4.372470E-20 5.436504E-20 6.304111E-20 6.815623E-20 1.494179E-20 0.000000E+00 MVK_RACM2 EQY 230.000 1.750145E-02 1.106229E-02 7.572843E-03 5.008090E-03 2.251655E-03 4.698719E-04 0.000000E+00 MVK_RACM2 CS 250.000 3.026195E-20 4.372470E-20 5.436504E-20 6.304111E-20 6.815623E-20 1.494179E-20 0.000000E+00 MVK_RACM2 EQY 250.000 1.750145E-02 1.106229E-02 7.572843E-03 5.008090E-03 2.251655E-03 4.698719E-04 0.000000E+00 MVK_RACM2 CS 270.000 3.026195E-20 4.372470E-20 5.436504E-20 6.304111E-20 6.815623E-20 1.494179E-20 0.000000E+00 MVK_RACM2 EQY 270.000 1.750145E-02 1.106229E-02 7.572843E-03 5.008090E-03 2.251655E-03 4.698719E-04 0.000000E+00 MVK_RACM2 CS 290.000 3.026195E-20 4.372470E-20 5.436504E-20 6.304111E-20 6.815623E-20 1.494179E-20 0.000000E+00 MVK_RACM2 EQY 290.000 1.750145E-02 1.106229E-02 7.572843E-03 5.008090E-03 2.251655E-03 4.698719E-04 0.000000E+00 MVK_RACM2 CS 310.000 3.026195E-20 4.372470E-20 5.436504E-20 6.304111E-20 6.815623E-20 1.494179E-20 0.000000E+00 MVK_RACM2 EQY 310.000 1.750145E-02 1.106229E-02 7.572843E-03 5.008090E-03 2.251655E-03 4.698719E-04 0.000000E+00 GLYH2_RACM2 CS 210.000 3.772546E-20 3.537579E-20 3.193592E-20 2.608503E-20 1.125923E-20 2.667804E-20 1.453960E-20 GLYH2_RACM2 EQY 210.000 2.083945E-01 1.741676E-01 1.458094E-01 1.226219E-01 7.896682E-02 4.675626E-04 0.000000E+00 GLYH2_RACM2 CS 230.000 3.772546E-20 3.537579E-20 3.193592E-20 2.608503E-20 1.125923E-20 2.667804E-20 1.453960E-20 GLYH2_RACM2 EQY 230.000 2.083945E-01 1.741676E-01 1.458094E-01 1.226219E-01 7.896682E-02 4.675626E-04 0.000000E+00 GLYH2_RACM2 CS 250.000 3.772546E-20 3.537579E-20 3.193592E-20 2.608503E-20 1.125923E-20 2.667804E-20 1.453960E-20 GLYH2_RACM2 EQY 250.000 2.083945E-01 1.741676E-01 1.458094E-01 1.226219E-01 7.896682E-02 4.675626E-04 0.000000E+00 GLYH2_RACM2 CS 270.000 3.772546E-20 3.537579E-20 3.193592E-20 2.608503E-20 1.125923E-20 2.667804E-20 1.453960E-20 GLYH2_RACM2 EQY 270.000 2.083945E-01 1.741676E-01 1.458094E-01 1.226219E-01 7.896682E-02 4.675626E-04 0.000000E+00 GLYH2_RACM2 CS 290.000 3.772546E-20 3.537579E-20 3.193592E-20 2.608503E-20 1.125923E-20 2.667804E-20 1.453960E-20 GLYH2_RACM2 EQY 290.000 2.083945E-01 1.741676E-01 1.458094E-01 1.226219E-01 7.896682E-02 4.675626E-04 0.000000E+00 GLYH2_RACM2 CS 310.000 3.772546E-20 3.537579E-20 3.193592E-20 2.608503E-20 1.125923E-20 2.667804E-20 1.453960E-20 GLYH2_RACM2 EQY 310.000 2.083945E-01 1.741676E-01 1.458094E-01 1.226219E-01 7.896682E-02 4.675626E-04 0.000000E+00 GLYF_RACM2 CS 210.000 3.772546E-20 3.537579E-20 3.193592E-20 2.608503E-20 1.125923E-20 2.667804E-20 1.453960E-20 GLYF_RACM2 EQY 210.000 4.492523E-01 4.582704E-01 4.575158E-01 4.464855E-01 3.643574E-01 9.914810E-03 6.082142E-05 GLYF_RACM2 CS 230.000 3.772546E-20 3.537579E-20 3.193592E-20 2.608503E-20 1.125923E-20 2.667804E-20 1.453960E-20 GLYF_RACM2 EQY 230.000 4.492523E-01 4.582704E-01 4.575158E-01 4.464855E-01 3.643574E-01 9.914810E-03 6.082142E-05 GLYF_RACM2 CS 250.000 3.772546E-20 3.537579E-20 3.193592E-20 2.608503E-20 1.125923E-20 2.667804E-20 1.453960E-20 GLYF_RACM2 EQY 250.000 4.492523E-01 4.582704E-01 4.575158E-01 4.464855E-01 3.643574E-01 9.914810E-03 6.082142E-05 GLYF_RACM2 CS 270.000 3.772546E-20 3.537579E-20 3.193592E-20 2.608503E-20 1.125923E-20 2.667804E-20 1.453960E-20 GLYF_RACM2 EQY 270.000 4.492523E-01 4.582704E-01 4.575158E-01 4.464855E-01 3.643574E-01 9.914810E-03 6.082142E-05 GLYF_RACM2 CS 290.000 3.772546E-20 3.537579E-20 3.193592E-20 2.608503E-20 1.125923E-20 2.667804E-20 1.453960E-20 GLYF_RACM2 EQY 290.000 4.492523E-01 4.582704E-01 4.575158E-01 4.464855E-01 3.643574E-01 9.914810E-03 6.082142E-05 GLYF_RACM2 CS 310.000 3.772546E-20 3.537579E-20 3.193592E-20 2.608503E-20 1.125923E-20 2.667804E-20 1.453960E-20 GLYF_RACM2 EQY 310.000 4.492523E-01 4.582704E-01 4.575158E-01 4.464855E-01 3.643574E-01 9.914810E-03 6.082142E-05 GLYHX_RACM2 CS 210.000 3.772546E-20 3.537579E-20 3.193592E-20 2.608503E-20 1.125923E-20 2.667804E-20 1.453960E-20 GLYHX_RACM2 EQY 210.000 3.424615E-01 3.676233E-01 3.968463E-01 4.307733E-01 5.451978E-01 6.424549E-02 3.251833E-03 GLYHX_RACM2 CS 230.000 3.772546E-20 3.537579E-20 3.193592E-20 2.608503E-20 1.125923E-20 2.667804E-20 1.453960E-20 GLYHX_RACM2 EQY 230.000 3.424615E-01 3.676233E-01 3.968463E-01 4.307733E-01 5.451978E-01 6.424549E-02 3.251833E-03 GLYHX_RACM2 CS 250.000 3.772546E-20 3.537579E-20 3.193592E-20 2.608503E-20 1.125923E-20 2.667804E-20 1.453960E-20 GLYHX_RACM2 EQY 250.000 3.424615E-01 3.676233E-01 3.968463E-01 4.307733E-01 5.451978E-01 6.424549E-02 3.251833E-03 GLYHX_RACM2 CS 270.000 3.772546E-20 3.537579E-20 3.193592E-20 2.608503E-20 1.125923E-20 2.667804E-20 1.453960E-20 GLYHX_RACM2 EQY 270.000 3.424615E-01 3.676233E-01 3.968463E-01 4.307733E-01 5.451978E-01 6.424549E-02 3.251833E-03 GLYHX_RACM2 CS 290.000 3.772546E-20 3.537579E-20 3.193592E-20 2.608503E-20 1.125923E-20 2.667804E-20 1.453960E-20 GLYHX_RACM2 EQY 290.000 3.424615E-01 3.676233E-01 3.968463E-01 4.307733E-01 5.451978E-01 6.424549E-02 3.251833E-03 GLYHX_RACM2 CS 310.000 3.772546E-20 3.537579E-20 3.193592E-20 2.608503E-20 1.125923E-20 2.667804E-20 1.453960E-20 GLYHX_RACM2 EQY 310.000 3.424615E-01 3.676233E-01 3.968463E-01 4.307733E-01 5.451978E-01 6.424549E-02 3.251833E-03 MGLY_RACM2 CS 210.000 4.369065E-20 3.468163E-20 2.431083E-20 1.791723E-20 6.182988E-21 3.703444E-20 7.886681E-21 MGLY_RACM2 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 6.094060E-01 1.339466E-01 MGLY_RACM2 CS 230.000 4.369065E-20 3.468163E-20 2.431083E-20 1.791723E-20 6.182988E-21 3.703444E-20 7.886681E-21 MGLY_RACM2 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 6.094060E-01 1.339466E-01 MGLY_RACM2 CS 250.000 4.369065E-20 3.468163E-20 2.431083E-20 1.791723E-20 6.182988E-21 3.703444E-20 7.886681E-21 MGLY_RACM2 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 6.094060E-01 1.339466E-01 MGLY_RACM2 CS 270.000 4.369065E-20 3.468163E-20 2.431083E-20 1.791723E-20 6.182988E-21 3.703444E-20 7.886681E-21 MGLY_RACM2 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 6.094060E-01 1.339466E-01 MGLY_RACM2 CS 290.000 4.369065E-20 3.468163E-20 2.431083E-20 1.791723E-20 6.182988E-21 3.703444E-20 7.886681E-21 MGLY_RACM2 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 6.094060E-01 1.339466E-01 MGLY_RACM2 CS 310.000 4.369065E-20 3.468163E-20 2.431083E-20 1.791723E-20 6.182988E-21 3.703444E-20 7.886681E-21 MGLY_RACM2 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 6.094060E-01 1.339466E-01 BALD_RACM2 CS 210.000 4.785295E-19 7.446018E-20 7.090561E-20 8.511820E-20 9.190661E-20 1.652288E-20 0.000000E+00 BALD_RACM2 EQY 210.000 6.000000E-02 6.000000E-02 6.000000E-02 6.000000E-02 6.000000E-02 5.654883E-02 0.000000E+00 BALD_RACM2 CS 230.000 4.785295E-19 7.446018E-20 7.090561E-20 8.511820E-20 9.190661E-20 1.652288E-20 0.000000E+00 BALD_RACM2 EQY 230.000 6.000000E-02 6.000000E-02 6.000000E-02 6.000000E-02 6.000000E-02 5.654883E-02 0.000000E+00 BALD_RACM2 CS 250.000 4.785295E-19 7.446018E-20 7.090561E-20 8.511820E-20 9.190661E-20 1.652288E-20 0.000000E+00 BALD_RACM2 EQY 250.000 6.000000E-02 6.000000E-02 6.000000E-02 6.000000E-02 6.000000E-02 5.654883E-02 0.000000E+00 BALD_RACM2 CS 270.000 4.785295E-19 7.446018E-20 7.090561E-20 8.511820E-20 9.190661E-20 1.652288E-20 0.000000E+00 BALD_RACM2 EQY 270.000 6.000000E-02 6.000000E-02 6.000000E-02 6.000000E-02 6.000000E-02 5.654883E-02 0.000000E+00 BALD_RACM2 CS 290.000 4.785295E-19 7.446018E-20 7.090561E-20 8.511820E-20 9.190661E-20 1.652288E-20 0.000000E+00 BALD_RACM2 EQY 290.000 6.000000E-02 6.000000E-02 6.000000E-02 6.000000E-02 6.000000E-02 5.654883E-02 0.000000E+00 BALD_RACM2 CS 310.000 4.785295E-19 7.446018E-20 7.090561E-20 8.511820E-20 9.190661E-20 1.652288E-20 0.000000E+00 BALD_RACM2 EQY 310.000 6.000000E-02 6.000000E-02 6.000000E-02 6.000000E-02 6.000000E-02 5.654883E-02 0.000000E+00 OP1_RACM2 CS 210.000 5.502859E-21 3.521580E-21 2.407395E-21 1.698535E-21 7.264998E-22 4.583933E-23 0.000000E+00 OP1_RACM2 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 OP1_RACM2 CS 230.000 5.502859E-21 3.521580E-21 2.407395E-21 1.698535E-21 7.264998E-22 4.583933E-23 0.000000E+00 OP1_RACM2 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 OP1_RACM2 CS 250.000 5.502859E-21 3.521580E-21 2.407395E-21 1.698535E-21 7.264998E-22 4.583933E-23 0.000000E+00 OP1_RACM2 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 OP1_RACM2 CS 270.000 5.502859E-21 3.521580E-21 2.407395E-21 1.698535E-21 7.264998E-22 4.583933E-23 0.000000E+00 OP1_RACM2 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 OP1_RACM2 CS 290.000 5.502859E-21 3.521580E-21 2.407395E-21 1.698535E-21 7.264998E-22 4.583933E-23 0.000000E+00 OP1_RACM2 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 OP1_RACM2 CS 310.000 5.502859E-21 3.521580E-21 2.407395E-21 1.698535E-21 7.264998E-22 4.583933E-23 0.000000E+00 OP1_RACM2 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 PAA_RACM2 CS 210.000 1.925838E-21 1.009150E-21 5.907156E-22 3.670602E-22 1.041377E-22 0.000000E+00 0.000000E+00 PAA_RACM2 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 PAA_RACM2 CS 230.000 1.925838E-21 1.009150E-21 5.907156E-22 3.670602E-22 1.041377E-22 0.000000E+00 0.000000E+00 PAA_RACM2 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 PAA_RACM2 CS 250.000 1.925838E-21 1.009150E-21 5.907156E-22 3.670602E-22 1.041377E-22 0.000000E+00 0.000000E+00 PAA_RACM2 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 PAA_RACM2 CS 270.000 1.925838E-21 1.009150E-21 5.907156E-22 3.670602E-22 1.041377E-22 0.000000E+00 0.000000E+00 PAA_RACM2 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 PAA_RACM2 CS 290.000 1.925838E-21 1.009150E-21 5.907156E-22 3.670602E-22 1.041377E-22 0.000000E+00 0.000000E+00 PAA_RACM2 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 PAA_RACM2 CS 310.000 1.925838E-21 1.009150E-21 5.907156E-22 3.670602E-22 1.041377E-22 0.000000E+00 0.000000E+00 PAA_RACM2 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 ONIT_RACM2 CS 210.000 9.713560E-21 4.546408E-21 2.120818E-21 9.214405E-22 1.152105E-22 1.219897E-24 0.000000E+00 ONIT_RACM2 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 ONIT_RACM2 CS 230.000 9.713560E-21 4.546408E-21 2.120818E-21 9.214405E-22 1.152105E-22 1.219897E-24 0.000000E+00 ONIT_RACM2 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 ONIT_RACM2 CS 250.000 1.018927E-20 4.819206E-21 2.272045E-21 1.003918E-21 1.288490E-22 1.219897E-24 0.000000E+00 ONIT_RACM2 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 ONIT_RACM2 CS 270.000 1.121172E-20 5.414893E-21 2.607618E-21 1.191682E-21 1.611607E-22 1.219897E-24 0.000000E+00 ONIT_RACM2 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 ONIT_RACM2 CS 290.000 1.233676E-20 6.084210E-21 2.992754E-21 1.414564E-21 2.015753E-22 1.219897E-24 0.000000E+00 ONIT_RACM2 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 ONIT_RACM2 CS 310.000 1.357470E-20 6.836260E-21 3.434773E-21 1.679132E-21 2.521246E-22 1.219897E-24 0.000000E+00 ONIT_RACM2 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 PAN1_RACM2 CS 210.000 1.768018E-21 6.646887E-22 3.009928E-22 1.566195E-22 3.492933E-23 1.494937E-24 0.000000E+00 PAN1_RACM2 EQY 210.000 8.000000E-01 8.000000E-01 6.922216E-01 6.000000E-01 6.000000E-01 6.000000E-01 0.000000E+00 PAN1_RACM2 CS 230.000 2.071785E-21 7.907078E-22 3.614192E-22 1.899570E-22 4.384918E-23 1.511154E-24 0.000000E+00 PAN1_RACM2 EQY 230.000 8.000000E-01 8.000000E-01 6.922216E-01 6.000000E-01 6.000000E-01 6.000000E-01 0.000000E+00 PAN1_RACM2 CS 250.000 2.427744E-21 9.406189E-22 4.339766E-22 2.303907E-22 5.504689E-23 1.527546E-24 0.000000E+00 PAN1_RACM2 EQY 250.000 8.000000E-01 8.000000E-01 6.922216E-01 6.000000E-01 6.000000E-01 6.000000E-01 0.000000E+00 PAN1_RACM2 CS 270.000 2.844861E-21 1.118952E-21 5.211004E-22 2.794310E-22 6.910414E-23 1.544117E-24 0.000000E+00 PAN1_RACM2 EQY 270.000 8.000000E-01 8.000000E-01 6.922216E-01 6.000000E-01 6.000000E-01 6.000000E-01 0.000000E+00 PAN1_RACM2 CS 290.000 3.333644E-21 1.331095E-21 6.257149E-22 3.389099E-22 8.675118E-23 1.560867E-24 0.000000E+00 PAN1_RACM2 EQY 290.000 8.000000E-01 8.000000E-01 6.922216E-01 6.000000E-01 6.000000E-01 6.000000E-01 0.000000E+00 PAN1_RACM2 CS 310.000 3.906406E-21 1.583459E-21 7.513316E-22 4.110492E-22 1.089047E-22 1.577798E-24 0.000000E+00 PAN1_RACM2 EQY 310.000 8.000000E-01 8.000000E-01 6.922216E-01 6.000000E-01 6.000000E-01 6.000000E-01 0.000000E+00 PAN2_RACM2 CS 210.000 1.768018E-21 6.646887E-22 3.009928E-22 1.566195E-22 3.492933E-23 1.494937E-24 0.000000E+00 PAN2_RACM2 EQY 210.000 2.000000E-01 2.000000E-01 3.077784E-01 4.000000E-01 4.000000E-01 4.000000E-01 0.000000E+00 PAN2_RACM2 CS 230.000 2.071785E-21 7.907078E-22 3.614192E-22 1.899570E-22 4.384918E-23 1.511154E-24 0.000000E+00 PAN2_RACM2 EQY 230.000 2.000000E-01 2.000000E-01 3.077784E-01 4.000000E-01 4.000000E-01 4.000000E-01 0.000000E+00 PAN2_RACM2 CS 250.000 2.427744E-21 9.406189E-22 4.339766E-22 2.303907E-22 5.504689E-23 1.527546E-24 0.000000E+00 PAN2_RACM2 EQY 250.000 2.000000E-01 2.000000E-01 3.077784E-01 4.000000E-01 4.000000E-01 4.000000E-01 0.000000E+00 PAN2_RACM2 CS 270.000 2.844861E-21 1.118952E-21 5.211004E-22 2.794310E-22 6.910414E-23 1.544117E-24 0.000000E+00 PAN2_RACM2 EQY 270.000 2.000000E-01 2.000000E-01 3.077784E-01 4.000000E-01 4.000000E-01 4.000000E-01 0.000000E+00 PAN2_RACM2 CS 290.000 3.333644E-21 1.331095E-21 6.257149E-22 3.389099E-22 8.675118E-23 1.560867E-24 0.000000E+00 PAN2_RACM2 EQY 290.000 2.000000E-01 2.000000E-01 3.077784E-01 4.000000E-01 4.000000E-01 4.000000E-01 0.000000E+00 PAN2_RACM2 CS 310.000 3.906406E-21 1.583459E-21 7.513316E-22 4.110492E-22 1.089047E-22 1.577798E-24 0.000000E+00 PAN2_RACM2 EQY 310.000 2.000000E-01 2.000000E-01 3.077784E-01 4.000000E-01 4.000000E-01 4.000000E-01 0.000000E+00 ACRO_09 CS 210.000 1.856128E-20 2.787986E-20 3.602616E-20 4.321518E-20 5.371941E-20 1.543856E-20 0.000000E+00 ACRO_09 EQY 210.000 5.269045E-02 3.293790E-02 2.264026E-02 1.595375E-02 6.767500E-03 1.624741E-03 0.000000E+00 ACRO_09 CS 230.000 1.856128E-20 2.787986E-20 3.602616E-20 4.321518E-20 5.371941E-20 1.543856E-20 0.000000E+00 ACRO_09 EQY 230.000 5.269045E-02 3.293790E-02 2.264026E-02 1.595375E-02 6.767500E-03 1.624741E-03 0.000000E+00 ACRO_09 CS 250.000 1.856128E-20 2.787986E-20 3.602616E-20 4.321518E-20 5.371941E-20 1.543856E-20 0.000000E+00 ACRO_09 EQY 250.000 5.269045E-02 3.293790E-02 2.264026E-02 1.595375E-02 6.767500E-03 1.624741E-03 0.000000E+00 ACRO_09 CS 270.000 1.856128E-20 2.787986E-20 3.602616E-20 4.321518E-20 5.371941E-20 1.543856E-20 0.000000E+00 ACRO_09 EQY 270.000 5.269045E-02 3.293790E-02 2.264026E-02 1.595375E-02 6.767500E-03 1.624741E-03 0.000000E+00 ACRO_09 CS 290.000 1.856128E-20 2.787986E-20 3.602616E-20 4.321518E-20 5.371941E-20 1.543856E-20 0.000000E+00 ACRO_09 EQY 290.000 5.269045E-02 3.293790E-02 2.264026E-02 1.595375E-02 6.767500E-03 1.624741E-03 0.000000E+00 ACRO_09 CS 310.000 1.856128E-20 2.787986E-20 3.602616E-20 4.321518E-20 5.371941E-20 1.543856E-20 0.000000E+00 ACRO_09 EQY 310.000 5.269045E-02 3.293790E-02 2.264026E-02 1.595375E-02 6.767500E-03 1.624741E-03 0.000000E+00 ! Ozone Cross-Section for Stratospheric Opacity based on Table 4-5 in ! Chemical Kinetics and Photochemical Data for Use in Atmospheric ! Studies Evaluation Number 15. Sander et. al: NASA-JPL 2006 NTEMP_STRAT = 6 ! QUANTITY TEMP WBIN( 1) WBIN( 2) WBIN( 3) WBIN( 4) WBIN( 5) WBIN( 6) WBIN( 7) O3_STRAT CS 180.000 6.113743E-19 2.263004E-19 8.354117E-20 3.417408E-20 3.688351E-21 4.086261E-23 1.663175E-21 O3_STRAT CS 260.000 6.434133E-19 2.434104E-19 9.254548E-20 3.928807E-20 4.583227E-21 4.086261E-23 1.663175E-21 O3_STRAT CS 300.000 6.685868E-19 2.568540E-19 9.962031E-20 4.330621E-20 5.286344E-21 4.086261E-23 1.663175E-21 O3_STRAT CS 340.000 6.685868E-19 2.568540E-19 9.962031E-20 4.330621E-20 5.286344E-21 4.086261E-23 1.663175E-21 O3_STRAT CS 380.000 6.685868E-19 2.568540E-19 9.962031E-20 4.330621E-20 5.286344E-21 4.086261E-23 1.663175E-21 O3_STRAT CS 420.000 6.685868E-19 2.568540E-19 9.962031E-20 4.330621E-20 5.286344E-21 4.086261E-23 1.663175E-21 ================================================ FILE: CCTM/src/MECHS/cracmm2/GC_cracmm2.nml ================================================ &GC_nml GC_SPECIES_DATA = !SPECIES ,MOLWT ,IC ,IC_FAC ,BC ,BC_FAC ,DRYDEP SURR ,FAC ,WET-SCAV SURR ,FAC ,GC2AE SURR ,GC2AQ SURR,TRNS ,DDEP ,WDEP ,CONC ,!RepCmp,ExplicitorLumped,DTXSID,SMILES 'O3' , 48.0 ,'' ,-1 ,'' ,-1 ,'VD_O3' , 1 ,'O3' , 1 ,'' ,'O3' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Ozone,E,DTXSID0021098,[O-][O+]=O 'O3P' , 16.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!Ground state oxygen,E,DTXSID00170378,[O] 'O1D' , 16.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!Excited oxygen,E,DTXSID00170378,[O] 'H2O2' , 34.0 ,'' ,-1 ,'' ,-1 ,'VD_H2O2' , 1 ,'H2O2' , 1 ,'' ,'H2O2' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Hydrogen peroxide,E,DTXSID2020715,OO 'HO' , 17.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'OH' ,'HO' ,'' ,'' ,'' ,'Yes',!Hydroxyl radical,E,NA,[OH] 'NO2' , 46.0 ,'' ,-1 ,'' ,-1 ,'VD_NO2' , 1 ,'NO2' , 1 ,'NO2' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Nitrogen dioxide,E,DTXSID7020974,N(=O)[O] 'NO' , 30.0 ,'' ,-1 ,'' ,-1 ,'VD_NO' , 1 ,'NO' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Nitric oxide,E,DTXSID1020938,[N]=O 'NO3' , 62.0 ,'' ,-1 ,'' ,-1 ,'VD_NO3' , 1 ,'NO3' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Nitrate radical,E,NA,[O]N(=O)=O 'HONO' , 47.0 ,'' ,-1 ,'' ,-1 ,'VD_HONO' , 1 ,'HNO2' , 1 ,'HONO' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Nitrous acid,E,DTXSID7064813,N(=O)O 'HNO3' , 63.0 ,'' ,-1 ,'' ,-1 ,'VD_HNO3' , 1 ,'HNO3' , 1 ,'HNO3' ,'HNO3' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Nitric acid,E,DTXSID5029685,[N+](=O)(O)[O-] 'HNO4' , 79.0 ,'' ,-1 ,'' ,-1 ,'VD_PNA' , 1 ,'HNO4' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Hydroxy nitrate,E,DTXSID201030501,[N+](=O)([O-])OO 'HO2' , 33.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!Hydroperoxy,E,DTXSID30894777,O[O-] 'HCHO' , 30.0 ,'' ,-1 ,'' ,-1 ,'VD_HCHO' , 1 ,'FORMALDEHYDE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Formaldehyde,E,DTXSID7020637,C=O 'CO' , 28.0 ,'' ,-1 ,'' ,-1 ,'VD_CO' , 1 ,'CO' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Carbon monoxide,E,DTXSID5027273,[C-]#[O+] 'ACD' , 44.0 ,'' ,-1 ,'' ,-1 ,'VD_ACD' , 1 ,'ACETALDEHYDE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Acetaldehyde,E,DTXSID5039224,CC=O 'MO2' , 47.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!Methylperoxy,E,DTXSID10944007,CO[O] 'ALD' , 58.0 ,'' ,-1 ,'' ,-1 ,'VD_ALD' , 1 ,'GENERIC_ALDEHYDE', 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Propanal,L,DTXSID2021658,CCC=O 'ETHP' , 61.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!Ethylperoxy,L,DTXSID90953652,CCO[O] 'ACT' , 58.0 ,'' ,-1 ,'' ,-1 ,'VD_ACT' , 1 ,'ACETONE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Acetone,E,DTXSID8021482,CC(C)=O 'ACO3' , 75.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!Acetylperoxy,E,DTXSID40957943,CC(=O)O[O] 'UALD' , 84.1 ,'' ,-1 ,'' ,-1 ,'VD_UALD' , 1 ,'UALDOPERA' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!2-Methylbut-2-enal,L,DTXSID00859414,CC=C(C)C=O 'KET' , 86.0 ,'' ,-1 ,'' ,-1 ,'VD_KET' , 1 ,'DIETHYLKETONE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Diethylketone,L,DTXSID6021820,CCC(=O)CC 'MEK' , 72.1 ,'' ,-1 ,'' ,-1 ,'VD_MEK' , 1 ,'MEK' , 1 ,'' ,'' ,'Yes' ,'Yes','Yes' ,'Yes',!Methyl ethyl ketone,E,DTXSID3021516,CCC(C)=O 'HKET' , 74.0 ,'' ,-1 ,'' ,-1 ,'VD_HKET' , 1 ,'HYDROXY-ACETONE' , 1 ,'' ,'' ,'Yes' ,'Yes','Yes' ,'Yes',!Hydroxy acetone,L,DTXSID8051590,CC(=O)CO 'MACR' , 70.0 ,'' ,-1 ,'' ,-1 ,'VD_MACR' , 1 ,'METHACROLEIN' , 1 ,'' ,'' ,'Yes' ,'Yes','Yes' ,'Yes',!Methacrolein,L,DTXSID0052540,CC(=C)C=O 'MACP' ,101.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!(2-methylprop-2-enoyl)peroxy,L,NA,CC(=C)C(=O)O[O] 'XO2' , 1.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!NA,NA,NA,NA 'MVK' , 70.1 ,'' ,-1 ,'' ,-1 ,'VD_MVK' , 1 ,'MVK' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Methyl vinyl ketone,E,DTXSID3025671,CC(=O)C=C 'GLY' , 58.0 ,'' ,-1 ,'' ,-1 ,'VD_GLY' , 1 ,'GLYOXAL' , 1 ,'' ,'GLY' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Glyoxal,L,DTXSID5025364,O=CC=O 'MGLY' , 72.0 ,'' ,-1 ,'' ,-1 ,'VD_MGLY' , 1 ,'METHYL_GLYOXAL' , 1 ,'' ,'MGLY' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Methyl glyoxal,L,DTXSID0021628,CC(=O)C=O 'DCB1' , 98.0 ,'' ,-1 ,'' ,-1 ,'VD_DCB1' , 1 ,'METHACROLEIN' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!2-methylbut-2-enedial,L,NA,O=CC=C(C)C=O 'DCB2' ,112.1 ,'' ,-1 ,'' ,-1 ,'VD_DCB2' , 1 ,'METHACROLEIN' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!2-methyl-4-oxopent-2-enal,L,NA,O=CC(=CC(=O)C)C 'BALD' ,106.0 ,'' ,-1 ,'' ,-1 ,'VD_BALD' , 1 ,'BENZALDEHYDE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Benzaldehyde,L,DTXSID8039241,O=CC1=CC=CC=C1 'CHO' ,139.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!4-hydroxy-3;5-dimethylcyclohexa-2;5-dien-1-yloxidanyl,L,NA,[O]C1C=C(C)C(O)C(=C1)C 'OP1' , 48.0 ,'' ,-1 ,'' ,-1 ,'VD_OP1' , 1 ,'METHYLHYDROPEROX', 1 ,'' ,'MHP' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Methyl hydroperoxide,E,DTXSID10184401,COO 'OP2' , 62.0 ,'' ,-1 ,'' ,-1 ,'VD_OP2' , 1 ,'METHYLHYDROPEROX', 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Ethyl hydroperoxide,L,DTXSID70184402,CCOO 'OPB' ,186.2 ,'' ,-1 ,'' ,-1 ,'VD_OPB' , 1 ,'METHYLHYDROPEROX', 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!2-hydroperoxy-2;6;6-trimethylbicyclo[3.1.1]heptan-3-ol,L,NA,OOC1(C)C(O)CC2CC1C2(C)C 'OP3' ,176.2 ,'' ,-1 ,'' ,-1 ,'VD_OP3' , 1 ,'METHYLHYDROPEROX', 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!5-hydroperoxy-6-hydroxyoctan-3-one,L,NA,CCC(=O)CC(OO)C(O)CC 'PAA' , 76.0 ,'' ,-1 ,'' ,-1 ,'VD_PAA' , 1 ,'PEROXYACETIC_ACI', 1 ,'' ,'PAA' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Peroxyacetic acid,L,DTXSID1025853,CC(=O)OO 'ONIT' ,119.0 ,'' ,-1 ,'' ,-1 ,'VD_ONIT' , 1 ,'MPAN' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Butan-2-yl nitrate,L,DTXSID00871813,CCC(C)O[N+](=O)[O-] 'PAN' ,121.0 ,'' ,-1 ,'' ,-1 ,'VD_PAN' , 1 ,'PAN' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Peroxyacetyl nitrate,L,DTXSID4062301,CC(=O)OON(=O)=O 'N2O5' ,108.0 ,'' ,-1 ,'' ,-1 ,'VD_N2O5' , 1 ,'N2O5' , 1 ,'N2O5' ,'N2O5' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Dinitrogen pentoxide,E,DTXSID90143672,[N+](=O)([O-])O[N+](=O)[O-] 'SO2' , 64.0 ,'' ,-1 ,'' ,-1 ,'VD_SO2' , 1 ,'SO2' , 1 ,'' ,'SO2' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Sulfur dioxide,E,DTXSID6029672,O=S=O 'SULF' , 98.0 ,'' ,-1 ,'' ,-1 ,'VD_SULF' , 1 ,'H2SO4' , 1 ,'SULF' ,'H2SO4' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Sulfuric acid,E,DTXSID5029683,OS(=O)(=O)O 'SULRXN' , 98.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'SULPRD' ,'' ,'' ,'' ,'' ,'' ,!NA,NA,NA,NA 'ETH' , 30.1 ,'' ,-1 ,'' ,-1 ,'VD_ETH' , 1 ,'ETHANE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Ethane,E,DTXSID6026377,CC 'HC3' , 44.1 ,'' ,-1 ,'' ,-1 ,'VD_HC3' , 1 ,'HC3OPERA' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Propane,L,DTXSID5026386,CCC 'HC3P' , 75.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!Isopropyl peroxy,L,NA,CC(C)O[O] 'HC5' , 72.1 ,'' ,-1 ,'' ,-1 ,'VD_HC5' , 1 ,'HC5OPERA' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Pentane,L,DTXSID2025846,CCCCC 'HC5P' ,103.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!Pentan-3-ylperoxy,L,NA,CCC(O[O])CC 'HC10' ,142.28 ,'' ,-1 ,'' ,-1 ,'VD_HC10' , 1 ,'HC10OPERA' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Decane,L,DTXSID6024913,CCCCCCCCCC 'HC10P' ,173.27 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!Decan-3-ylperoxy,L,NA,CCCCCCCC(CC)O[O] 'HC10P2' ,189.27 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!(8-hydroxydecan-5-yl)peroxy,L,NA,CCCCC(O[O])CCC(O)CC 'ETE' , 28.1 ,'' ,-1 ,'' ,-1 ,'VD_ETE' , 1 ,'ETHENE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Ethylene,E,DTXSID1026378,C=C 'ETEP' , 77.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!(2-hydroxyethyl)peroxy,E,NA,OCCO[O] 'OLT' , 42.0 ,'' ,-1 ,'' ,-1 ,'VD_OLT' , 1 ,'OLTOPERA' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!1-Propene,L,DTXSID5021205,CC=C 'OLTP' , 91.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!(1-hydroxypropan-2-yl)peroxy,L,NA,CC(CO)O[O] 'OLI' , 70.1 ,'' ,-1 ,'' ,-1 ,'VD_OLI' , 1 ,'OLIOPERA' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!2-Methyl-2-butene,L,DTXSID8027165,CC=C(C)C 'OLIP' ,119.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!(3-hydroxy-2-methylbutan-2-yl)peroxy,L,NA,[O]OC(C)(C)C(C)O 'ACE' , 26.0 ,'' ,-1 ,'' ,-1 ,'VD_ACE' , 1 ,'ACETYLENE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Acetylene,E,DTXSID6026379,C#C 'ORA1' , 46.0 ,'' ,-1 ,'' ,-1 ,'VD_ORA1' , 1 ,'ORA1OPERA' , 1 ,'' ,'FOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Formic acid,E,DTXSID2024115,OC=O 'BEN' , 78.11 ,'' ,-1 ,'' ,-1 ,'VD_BEN' , 1 ,'BENOPERA' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Benzene,E,DTXSID3039242,C1=CC=CC=C1 'BENP' ,159.12 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!{8-hydroxy-6;7-dioxabicyclo[3.2.1]oct-3-en-2-yl}peroxy,L,NA,[O]OC1C=CC2OOC1C2O 'PHEN' ,110.1 ,'' ,-1 ,'' ,-1 ,'VD_PHEN' , 1 ,'PHENOPERA' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Resorcinol,L,DTXSID2021238,OC1=CC(O)=CC=C1 'TOL' ,92.14 ,'' ,-1 ,'' ,-1 ,'VD_TOL' , 1 ,'TOLOPERA' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Toluene,E,DTXSID7021360,CC1=CC=CC=C1 'CSL' ,136.2 ,'' ,-1 ,'' ,-1 ,'VD_CSL' , 1 ,'CSLOPERA' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!2-Phenylpropan-2-ol,L,DTXSID3027247,CC(C)(O)C1=CC=CC=C1 'XYL' ,106.2 ,'' ,-1 ,'' ,-1 ,'VD_XYL' , 1 ,'XYLOPERA' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!m-Xylene,L,DTXSID6026298,CC1=CC(C)=CC=C1 'EBZ' ,106.2 ,'' ,-1 ,'' ,-1 ,'VD_EBZ' , 1 ,'EBZOPERA' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Ethylbenzene,L,DTXSID3020596,CCC1=CC=CC=C1 'STY' ,104.0 ,'' ,-1 ,'' ,-1 ,'VD_STY' , 1 ,'STYOPERA' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Styrene,E,DTXSID2021284,C=CC1=CC=CC=C1 'TOLP' ,173.14 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!{8-hydroxy-5-methyl-6;7-dioxabicyclo[3.2.1]oct-3-en-2-yl}peroxy,L,NA,[O]OC1C=CC2(C)OOC1C2O 'XYLP' ,187.17 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!{8-hydroxy-1;5-dimethyl-6;7-dioxabicyclo[3.2.1]oct-3-en-2-yl}peroxy,L,NA,[O]OC1C=CC2(C)OOC1(C)C2O 'EBZP' ,187.17 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!{5-ethyl-8-hydroxy-6;7-dioxabicyclo[3.2.1]oct-3-en-2-yl}peroxy,L,NA,[O]OC1C=CC2(CC)OOC1C2O 'STYP' ,153.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!(2-hydroxy-2-phenylethyl)peroxy,E,NA,[O]OCC(O)C1=CC=CC=C1 'ISO' , 68.1 ,'' ,-1 ,'' ,-1 ,'VD_ISO' , 1 ,'ISOOPERA' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Isoprene,E,DTXSID2020761,CC(=C)C=C 'ISOP' ,117.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!(1-hydroxy-3-methylbut-3-en-2-yl)peroxy,L,NA,OCC(O[O])C(C)=C 'API' ,136.4 ,'' ,-1 ,'' ,-1 ,'VD_API' , 1 ,'APIOPERA' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!alpha-pinene,L,DTXSID4026501,CC1=CCC2CC1C2(C)C 'APIP1' ,185.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!{3-hydroxy-2;6;6-trimethylbicyclo[3.1.1]heptan-2-yl}peroxy,L,NA,[O]OC1(C)C(O)CC2CC1C2(C)C 'APIP2' ,185.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!{3-hydroxy-2;6;6-trimethylbicyclo[3.1.1]heptan-2-yl}peroxy,L,NA,[O]OC1(C)C(O)CC2CC1C2(C)C 'APINP1' ,230.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',![2;6;6-trimethyl-3-(nitrooxy)bicyclo[3.1.1]heptan-2-yl]peroxy,L,NA,[O]OC1(C)C(ON(=O)=O)CC2CC1C2(C)C 'APINP2' ,230.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',![2;6;6-trimethyl-3-(nitrooxy)bicyclo[3.1.1]heptan-2-yl]peroxy,L,NA,[O]OC1(C)C(ON(=O)=O)CC2CC1C2(C)C 'PINAL' ,168.0 ,'' ,-1 ,'' ,-1 ,'VD_PINAL' , 1 ,'GENERIC_ALDEHYDE', 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Pinonaldehyde,L,NA,O=CCC1CC(C(=O)C)C1(C)C 'PINALP' ,199.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',![3-acetyl-2;2-dimethyl-1-(2-oxoethyl)cyclobutyl]peroxy,L,NA,O=CCC1(O[O])CC(C(=O)C)C1(C)C 'LIM' ,136.3 ,'' ,-1 ,'' ,-1 ,'VD_LIM' , 1 ,'LIMOPERA' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!D-Limonene,L,DTXSID1020778,CC(=C)[C@@H]1CCC(C)=CC1 'LIMP1' ,185.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',![2-hydroxy-1-methyl-4-(prop-1-en-2-yl)cyclohexyl]peroxy,L,NA,[O]OC1(C)CCC(CC1O)C(=C)C 'LIMP2' ,185.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',![2-hydroxy-1-methyl-4-(prop-1-en-2-yl)cyclohexyl]peroxy,L,NA,[O]OC1(C)CCC(CC1O)C(=C)C 'LIMNP1' ,230.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',![1-methyl-2-(nitrooxy)-4-(prop-1-en-2-yl)cyclohexyl]peroxy,L,NA,[O-][N+](=O)OC1CC(CCC1(C)O[O])C(=C)C 'LIMNP2' ,230.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',![1-methyl-2-(nitrooxy)-4-(prop-1-en-2-yl)cyclohexyl]peroxy,L,NA,[O-][N+](=O)OC1CC(CCC1(C)O[O])C(=C)C 'LIMAL' ,168.0 ,'' ,-1 ,'' ,-1 ,'VD_LIMAL' , 1 ,'UALDOPERA' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Limonaldehyde,L,NA,O=CCC(CCC(=O)C)C(=C)C 'LIMALP' ,217.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',![1-hydroxy-2-methyl-5-oxo-3-(3-oxobutyl)pentan-2-yl]peroxy,L,NA,O=CCC(CCC(=O)C)C(C)(CO)O[O] 'HOM' ,250.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'HOM' ,'' ,'' ,'' ,'' ,'Yes',!6;7-dihydroperoxy-3;3;6-trimethyl-tetrahydro-3aH-1;2-benzodioxol-5-ol,L,NA,OC1CC2C(OOC2(C)C)C(OO)C1(C)OO 'ELHOM' ,402.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'ELHOM' ,'' ,'' ,'' ,'' ,'Yes',!6-hydroperoxy-7-({3-hydroxy-2;6;6-trimethylbicyclo[3.1.1]heptan-2-yl}peroxy)-3;3;6-trimethyl-tetrahydro-3aH-1;2-benzodioxol-5-ol,L,NA,OC1CC2C(OOC2(C)C)C(OOC3(C)C4C(C)(C)C(C4)CC3O)C1(C)OO 'RCO3' , 89.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!Propanoylperoxy,L,NA,CCC(=O)O[O] 'ACTP' , 89.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!(2-oxopropyl)peroxy,E,NA,CC(=O)CO[O] 'MEKP' ,103.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!(3-oxobutyl)peroxy,L,NA,[O]OCCC(=O)C 'KETP' ,117.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!(3-oxopentan-2-yl)peroxy,L,NA,CCC(C(C)O[O])=O 'MCP' ,119.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!(1-hydroxy-2-methyl-3-oxopropan-2-yl)peroxy,L,NA,OCC(C)(O[O])C=O 'MVKP' ,119.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!(2-hydroxy-3-oxobutyl)peroxy,L,NA,CC(=O)C(O)CO[O] 'UALP' ,133.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!(3-hydroxy-3-methyl-4-oxobutan-2-yl)peroxy,L,NA,CC(O[O])C(C)(O)C=O 'DCB3' , 84.0 ,'' ,-1 ,'' ,-1 ,'VD_DCB3' , 1 ,'METHACROLEIN' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!but-2-enedial,L,NA,O=CC=CC=O 'BALP' ,137.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!benzoylperoxy,L,NA,O=C(O[O])C1=CC=CC=C1 'ADDC' ,125.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!3-methyl-5-oxocyclohex-3-en-1-yloxidanyl,L,NA,CC1=CC(O)=CC([O])C1 'MCT' ,124.1 ,'' ,-1 ,'' ,-1 ,'VD_MCT' , 1 ,'MCTOPERA' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!4-Methylcatechol,L,DTXSID5020861,CC1=CC(O)=C(O)C=C1 'MCTO' ,123.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!3-hydroxy-5-methylphenyloxidanyl,L,NA,CC1=CC(O)=CC([O])=C1 'MOH' , 32.0 ,'' ,-1 ,'' ,-1 ,'VD_MOH' , 1 ,'METHANOL' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Methanol,E,DTXSID2021731,CO 'EOH' , 46.1 ,'' ,-1 ,'' ,-1 ,'VD_EOH' , 1 ,'ETHANOL' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Ethanol,E,DTXSID9020584,CCO 'ROH' , 60.0 ,'' ,-1 ,'' ,-1 ,'VD_ROH' , 1 ,'N-PROPANOL' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Propanol,L,DTXSID2021739,CCCO 'ETEG' , 62.1 ,'' ,-1 ,'' ,-1 ,'VD_ETEG' , 1 ,'ETHYLENEGLYCOL' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Ethylene glycol,E,DTXSID8020597,OCCO 'ISHP' ,118.0 ,'' ,-1 ,'' ,-1 ,'VD_ISHP' , 1 ,'METHACROLEIN' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!2-hydroperoxy-2-methylbut-3-en-1-ol,L,NA,C=CC(OO)(CO)C 'IEPOX' ,118.1 ,'' ,-1 ,'' ,-1 ,'VD_IEPOX' , 1 ,'HYDROXY_PEROXIDE', 1 ,'IEPOX' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Isoprene epoxydiol,E,NA,OCC1OC1(C)CO 'IEPOXP' ,118.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!NA,NA,NA,NA 'MAHP' ,102.0 ,'' ,-1 ,'' ,-1 ,'VD_MAHP' , 1 ,'METHACROLEIN' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!2-methylprop-2-eneperoxoic acid,L,NA,C=C(C)C(OO)=O 'ORA2' , 60.2 ,'' ,-1 ,'' ,-1 ,'VD_ORA2' , 1 ,'ORA2OPERA' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Acetic acid,L,DTXSID5024394,CC(O)=O 'ORAP' , 91.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!(carboxymethyl)peroxy,L,NA,[O]OCC(=O)O 'PPN' ,135.0 ,'' ,-1 ,'' ,-1 ,'VD_PPN' , 1 ,'PPN' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Peroxypopionyl nitrate,E,DTXSID90206675,CCC(=O)OO[N+](=O)[O-] 'MPAN' ,147.1 ,'' ,-1 ,'' ,-1 ,'VD_MPAN' , 1 ,'MPAN' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Peroxymethacryloyl nitrate,L,DTXSID10236878,O=N(=O)OOC(=O)C(=C)C 'INALD' ,195.1 ,'' ,-1 ,'' ,-1 ,'VD_INALD' , 1 ,'INALDOPERA' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!2-hydroperoxy-4-hydroxy-3-methyl-3-(nitrooxy)butanal,L,NA,CC(CO)(O[N+](=O)O)C(C=O)OO 'INO2' ,162.1 ,'' ,-1 ,'' ,-1 ,'' , 1 ,'' , 1 ,'' ,'' ,'' ,'' ,'' ,'Yes',![(2E)-3-methyl-4-(nitrooxy)but-2-en-1-yl]peroxy,L,NA,C/C(=C\CO[O])CON(=O)=O 'ISON' ,147.0 ,'' ,-1 ,'' ,-1 ,'VD_ISON' , 1 ,'2NITRO_1BUTNL' , 1 ,'ISON' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!2-methyl-2-(nitrooxy)but-3-en-1-ol,L,NA,OCC(C)(C=C)ON(=O)=O 'IPX' ,150.1 ,'' ,-1 ,'' ,-1 ,'VD_IPX' , 1 ,'IPXOPERA' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!3-(1-hydroperoxy-2-hydroxypropan-2-yl)oxiran-2-ol,L,NA,CC(O)(COO)C1OC1O 'TRPN' ,215.0 ,'' ,-1 ,'' ,-1 ,'VD_TRPN' , 1 ,'2NITRO_1BUTNL' , 1 ,'TRPN' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!3-hydroxy-2;6;6-trimethylbicyclo[3.1.1]heptan-2-yl nitrate,L,NA,O=N(=O)OC1(C)C(O)CC2CC1C2(C)C 'HONIT' ,265.0 ,'' ,-1 ,'' ,-1 ,'VD_HONIT' , 1 ,'2NITRO_1BUTNL' , 1 ,'HONIT' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!2-(3-hydroperoxy-4;5-dihydroxy-4-methylcyclohexyl)propan-2-yl nitrate,L,NA,CC(C)(O[N+]([O-])=O)C1CC(O)C(C)(O)C(C1)OO 'MCTP' ,172.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!C7H8O5 Biradical,L,NA,CC(/C=C\[C](O[O])O)=C/C(O)=O 'OLNN' ,136.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',![1-(nitrooxy)propan-2-yl]peroxy,L,NA,CC(O[O])CO[N+]([O-])=O 'OLND' ,136.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',![1-(nitrooxy)propan-2-yl]peroxy,L,NA,CC(O[O])CO[N+]([O-])=O 'ADCN' ,155.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!4-oxocyclohex-2-en-1-yl nitrate,L,NA,OC1=C[C]C(O[N+]([O-])=O)C=C1 'BAL1' ,123.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!(4-methylphenyl)peroxy,L, NA, [O]OC1=CC=C(C)C=C1 'BAL2' ,109.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!phenylperoxy,L, NA, [O]OC1=CC=CC=C1 'ACRO' , 56.1 ,'' ,-1 ,'' ,-1 ,'VD_ACRO' , 1 ,'ACROOPERA' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Acrolein,E,DTXSID5020023,C=CC=O 'BDE13' , 54.1 ,'' ,-1 ,'' ,-1 ,'VD_BDE13' , 1 ,'BDE13OPERA' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!1;3-Butadiene,E,DTXSID3020203,C=CC=C 'BDE13P' ,103.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' , 1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!(1-hydroxybut-3-en-2-yl)peroxy,L,NA,C=CC(O[O])CO 'PROG' , 76.1 ,'' ,-1 ,'' ,-1 ,'VD_PROG' , 1 ,'PROGOPERA' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!1;2-Propylene glycol,E,DTXSID0021206,CC(O)CO 'FURAN' , 96.1 ,'' ,-1 ,'' ,-1 ,'VD_FURAN' , 1 ,'FURANOPERA' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Furfural,L,DTXSID1020647,O=CC1=CC=CO1 'FURANO2' ,145.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' , 1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!(2-formyl-5-hydroxy-5H-furan-2-yl)peroxy,L,NA,OC1C=CC(O1)(O[O])(C=O) 'FURANONE' ,100.1 ,'' ,-1 ,'' ,-1 ,'VD_FURANONE' , 1 ,'FURANONEOPERA' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!2-hydroxy-2H-furan-5-one,L,DTXSID10930763,C1=CC(=O)OC1O 'VROCIOXY' ,247.0 ,'' ,-1 ,'' ,-1 ,'VD_VROCIOXY' , 1 ,'ROCIOXYOPERA' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Decamethylcyclopentasiloxane,L,DTXSID1027184,C[Si]1(C)O[Si](C)(C)O[Si](C)(C)O[Si](C)(C)O[Si](C)(C)O1 'SLOWROC' , 75.4 ,'' ,-1 ,'' ,-1 ,'VD_SLOWROC' , 1 ,'SLOWROCOPERA' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Hydrogen cyanide,L,DTXSID9024148,C#N 'SESQ' ,204.4 ,'' ,-1 ,'' ,-1 ,'VD_SESQ' , 1 ,'SESQOPERA' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!b-caryophyllene,L,DTXSID8024739,C/C1=C/CCC(=C)C2CC(C)(C)C2CC\1 'SESQRO2' ,253.4 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!{5-hydroxy-4;11;11-trimethyl-8-methylidenebicyclo[7.2.0]undecan-4-yl}peroxy,L,NA,[O]OC1(C)CCC2C(CC2(C)C)C(=C)CCC1O 'SESQNRO2' ,298.4 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',![4;11;11-trimethyl-8-methylidene-5-(nitrooxy)bicyclo[7.2.0]undecan-4-yl]peroxy,L,NA,[O]OC1(C)CCC2C(CC2(C)C)C(=C)CCC1O[N+](=O)[O-] 'NAPH' ,128.17 ,'' ,-1 ,'' ,-1 ,'VD_NAPH' , 1 ,'NAPHOPERA' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Naphthalene,L,DTXSID8020913,C1=CC2=CC=CC=C2C=C1 'NAPHP' ,209.17 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!{8-hydroxy-10;11-dioxatricyclo[7.2.1.0^{2;7}]dodeca-2;4;6-trien-12-yl}peroxy,L,NA,C12=CC=CC=C1C3OOC(C3O[O])C2(O) 'VROCP5ARO' ,190.33 ,'' ,-1 ,'' ,-1 ,'VD_VROCP5ARO' , 1 ,'VROCP5AROOPERA' , 1 ,'VROCP5ARO' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Benzene; octyl-,L, DTXSID2062240, CCCCCCCCC1=CC=CC=C1 'VROCP6ARO' ,176.30 ,'' ,-1 ,'' ,-1 ,'VD_VROCP6ARO' , 1 ,'VROCP6AROOPERA' , 1 ,'VROCP6ARO' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!1-Hexyl-4-methylbenzene,L, DTXSID30333914, CCCCCCC1=CC=C(C)C=C1 'VROCP5AROP' ,271.33 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' , -1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!{8-hydroxy-5-octyl-6;7-dioxabicyclo[3.2.1]oct-3-en-2-yl}peroxy,L,NA,CCCCCCCCC1(OO2)C=CC(O[O])C2C1O 'VROCP6AROP' ,257.30 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' , -1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!{2-hexyl-8-hydroxy-5-methyl-6;7-dioxabicyclo[3.2.1]oct-3-en-2-yl}peroxy,L, NA, OC1C2C(CCCCCC)(O[O])C=CC1(C)OO2 'VROCN2ALK' ,422.83 ,'' ,-1 ,'' ,-1 ,'VD_VROCN2ALK' , 1 ,'VROCN2ALKOPERA' , 1 ,'VROCN2ALK' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Triacontane,L, DTXSID0060935, CCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 'VROCN1ALK' ,408.80 ,'' ,-1 ,'' ,-1 ,'VD_VROCN1ALK' , 1 ,'VROCN1ALKOPERA' , 1 ,'VROCN1ALK' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!5;9-Dimethylheptacosane,L, DTXSID40823452, CCCCCCCCCCCCCCCCCCC(C)CCCC(C)CCCC 'VROCP0ALK' ,394.77 ,'' ,-1 ,'' ,-1 ,'VD_VROCP0ALK' , 1 ,'VROCP0ALKOPERA' , 1 ,'VROCP0ALK' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!11-Methylheptacosane,L, DTXSID40333900, CCCCCCCCCCCCCCCCC(C)CCCCCCCCCC 'VROCP1ALK' ,380.75 ,'' ,-1 ,'' ,-1 ,'VD_VROCP1ALK' , 1 ,'VROCP1ALKOPERA' , 1 ,'VROCP1ALK' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Heptacosane,L, DTXSID6058637, CCCCCCCCCCCCCCCCCCCCCCCCCCC 'VROCP2ALK' ,338.66 ,'' ,-1 ,'' ,-1 ,'VD_VROCP2ALK' , 1 ,'VROCP2ALKOPERA' , 1 ,'VROCP2ALK' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Tetracosane,L, DTXSID8060955, CCCCCCCCCCCCCCCCCCCCCCCC 'VROCP3ALK' ,296.58 ,'' ,-1 ,'' ,-1 ,'VD_VROCP3ALK' , 1 ,'VROCP3ALKOPERA' , 1 ,'VROCP3ALK' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Heneicosane,L, DTXSID9047097, CCCCCCCCCCCCCCCCCCCCC 'VROCP4ALK' ,254.50 ,'' ,-1 ,'' ,-1 ,'VD_VROCP4ALK' , 1 ,'VROCP4ALKOPERA' , 1 ,'VROCP4ALK' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Octadecane,L, DTXSID9047172, CCCCCCCCCCCCCCCCCC 'VROCP5ALK' ,198.39 ,'' ,-1 ,'' ,-1 ,'VD_VROCP5ALK' , 1 ,'VROCP5ALKOPERA' , 1 ,'VROCP5ALK' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Tetradecane,L, DTXSID1027267, CCCCCCCCCCCCCC 'VROCP6ALK' ,184.37 ,'' ,-1 ,'' ,-1 ,'VD_VROCP6ALK' , 1 ,'VROCP6ALKOPERA' , 1 ,'VROCP6ALK' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Tridecane,L, DTXSID6027266, CCCCCCCCCCCCC 'VROCP1ALKP' ,411.74 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' , -1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!heptacosan-3-ylperoxy,L,NA,CCCCCCCCCCCCCCCCCCCCCCCCC(CC)O[O] 'VROCP2ALKP' ,369.65 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' , -1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!tetracosan-3-ylperoxy,L,NA,CCCCCCCCCCCCCCCCCCCCCC(CC)O[O] 'VROCP3ALKP' ,327.57 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' , -1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!henicosan-3-ylperoxy,L,NA,CCCCCCCCCCCCCCCCCCC(CC)O[O] 'VROCP4ALKP' ,285.49 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' , -1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!octadecan-3-ylperoxy,L,NA,CCCCCCCCCCCCCCCC(CC)O[O] 'VROCP5ALKP' ,229.38 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' , -1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!tetradecan-3-ylperoxy,L,NA,CCCCCCCCCCCC(CC)O[O] 'VROCP6ALKP' ,215.36 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' , -1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!tridecan-3-ylperoxy,L,NA,CCCCCCCCCCC(CC)O[O] 'VROCP1ALKP2' ,427.73 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' , -1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!(3-hydroxyheptacosan-6-yl)peroxy,L,NA,CCCCCCCCCCCCCCCCCCCCCC(O[O])CCC(O)CC 'VROCP2ALKP2' ,385.65 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' , -1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!(3-hydroxytetracosan-6-yl)peroxy,L,NA,CCCCCCCCCCCCCCCCCCC(O[O])CCC(O)CC 'VROCP3ALKP2' ,343.57 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' , -1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!(3-hydroxyhenicosan-6-yl)peroxy,L,NA,CCCCCCCCCCCCCCCC(O[O])CCC(O)CC 'VROCP4ALKP2' ,301.49 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' , -1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!(3-hydroxyoctadecan-6-yl)peroxy,L,NA,CCCCCCCCCCCCC(O[O])CCC(O)CC 'VROCP5ALKP2' ,245.38 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' , -1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!(3-hydroxytetradecan-6-yl)peroxy,L,NA,CCCCCCCCC(O[O])CCC(O)CC 'VROCP6ALKP2' ,231.36 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' , -1 ,'' ,'' ,'' ,'' ,'' ,'Yes',!(3-hydroxytridecan-6-yl)peroxy,L,NA,CCCCCCCC(O[O])CCC(O)CC 'VROCN2OXY2' ,282.4 ,'' ,-1 ,'' ,-1 ,'VD_VROCN2OXY2' , 1 ,'VROCN2OXY2OPERA', 1 ,'VROCN2OXY2' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!12(S)-hydroxy-16-Heptadecynoic Acid,L,NA,C#CCCC[C@H](CCCCCCCCCCC(=O)O)O 'VROCN2OXY4' ,232.3 ,'' ,-1 ,'' ,-1 ,'VD_VROCN2OXY4' , 1 ,'VROCN2OXY4OPERA', 1 ,'VROCN2OXY4' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!2-HYDROXYUNDECANEDIOIC ACID,L,DTXSID90726525,C(CCCCC(=O)O)CCCC(C(=O)O)O 'VROCN2OXY8' ,194.2 ,'' ,-1 ,'' ,-1 ,'VD_VROCN2OXY8' , 1 ,'VROCN2OXY8OPERA', 1 ,'VROCN2OXY8' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!3;4;5;6;7-Pentahydroxyheptan-2-one,L,DTXSID80956455,CC(=O)C(C(C(C(CO)O)O)O)O 'VROCN1OXY1' ,312.5 ,'' ,-1 ,'' ,-1 ,'VD_VROCN1OXY1' , 1 ,'VROCN1OXY1OPERA', 1 ,'VROCN1OXY1' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Arachidic Acid,L,DTXSID1060134,CCCCCCCCCCCCCCCCCCCC(=O)O 'VROCN1OXY3' ,230.3 ,'' ,-1 ,'' ,-1 ,'VD_VROCN1OXY3' , 1 ,'VROCN1OXY3OPERA', 1 ,'VROCN1OXY3' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!DODECANEDIOIC ACID,L,DTXSID3027297,C(CCCCCC(=O)O)CCCCC(=O)O 'VROCN1OXY6' ,190.2 ,'' ,-1 ,'' ,-1 ,'VD_VROCN1OXY6' , 1 ,'VROCN1OXY6OPERA', 1 ,'VROCN1OXY6' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!2-hydroxy-octanedioic acid,L,NA,C(CCC(C(=O)O)O)CCC(=O)O 'VROCP0OXY2' ,242.4 ,'' ,-1 ,'' ,-1 ,'VD_VROCP0OXY2' , 1 ,'VROCP0OXY2OPERA', 1 ,'VROCP0OXY2' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!3-oxotetradecanoic acid,L,DTXSID10332384,CCCCCCCCCCCC(=O)CC(=O)O 'VROCP0OXY4' ,202.3 ,'' ,-1 ,'' ,-1 ,'VD_VROCP0OXY4' , 1 ,'VROCP0OXY4OPERA', 1 ,'VROCP0OXY4' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!DECANEDIOIC ACID,L,DTXSID7026867,C(CCCCC(=O)O)CCCC(=O)O 'VROCP1OXY1' ,270.5 ,'' ,-1 ,'' ,-1 ,'VD_VROCP1OXY1' , 1 ,'VROCP1OXY1OPERA', 1 ,'VROCP1OXY1' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!HEPTADECANOIC ACID,L,DTXSID5021596,CCCCCCCCCCCCCCCCC(=O)O 'VROCP1OXY3' ,202.3 ,'' ,-1 ,'' ,-1 ,'VD_VROCP1OXY3' , 1 ,'VROCP1OXY3OPERA', 1 ,'VROCP1OXY3' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!11-hydroxyundecanoic acid,L,DTXSID40190136,C(CCCCCO)CCCCC(=O)O 'VROCP2OXY2' ,200.3 ,'' ,-1 ,'' ,-1 ,'VD_VROCP2OXY2' , 1 ,'VROCP2OXY2OPERA', 1 ,'VROCP2OXY2' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Dodecanoic Acid,L,DTXSID5021590,CCCCCCCCCCCC(=O)O 'VROCP3OXY2' ,186.3 ,'' ,-1 ,'' ,-1 ,'VD_VROCP3OXY2' , 1 ,'VROCP3OXY2OPERA', 1 ,'VROCP3OXY2' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!11-hydroxyundecanal,L,NA,C(CCCCCO)CCCCC=O 'VROCP4OXY2' ,158.2 ,'' ,-1 ,'' ,-1 ,'VD_VROCP4OXY2' , 1 ,'VROCP4OXY2OPERA', 1 ,'VROCP4OXY2' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!2-Ethylheptanoic Acid,L,DTXSID40880929,CCCCCC(CC)C(=O)O 'VROCP5OXY1' ,170.3 ,'' ,-1 ,'' ,-1 ,'VD_VROCP5OXY1' , 1 ,'VROCP5OXY1OPERA', 1 ,'VROCP5OXY1' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Undecanal,L,DTXSID4021688,CCCCCCCCCCC=O 'VROCP6OXY1' ,142.2 ,'' ,-1 ,'' ,-1 ,'VD_VROCP6OXY1' , 1 ,'VROCP6OXY1OPERA', 1 ,'VROCP6OXY1' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Nonanal,L,DTXSID9021639,CCCCCCCCC=O 'ECH4' ,16.0 ,'' ,-1 ,'' ,-1 ,'VD_METHANE' , 1 ,'METHANE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Methane,E,DTXSID8025545,C / ================================================ FILE: CCTM/src/MECHS/cracmm2/NR_cracmm2.nml ================================================ &NR_nml NR_SPECIES_DATA = !SPECIES ,MOLWT ,IC ,IC_FAC ,BC ,BC_FAC ,DRYDEP SURR ,FAC ,WET-SCAV SURR ,FAC ,NR2AE SURR ,NR2AQ SURR,TRNS ,DDEP ,WDEP ,CONC ,!RepCmp,ExplicitorLumped,DTXSID,SMILES 'NH3' , 17.0 ,'' ,-1 ,'' ,-1 ,'VD_NH3' , 1 ,'NH3' , 1 ,'NH3' ,'NH3' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Ammonia,E,DTXSID0023872,N 'HCL' , 36.0 ,'' ,-1 ,'' ,-1 ,'VD_HCL' , 1 ,'HCL' , 1 ,'HCL' ,'HCL' ,'Yes' ,'Yes' ,'Yes' ,'Yes',!Hydrochloric acid,E,DTXSID2020711,Cl / ================================================ FILE: CCTM/src/MECHS/cracmm2/RXNS_DATA_MODULE.F90 ================================================ MODULE RXNS_DATA IMPLICIT NONE ! --------- Photochemical Mechanism Reactions, Rates, etc. DAT --------- ! Source file: /work/MOD3DEV/tskipper/cracmm_hcho/20240315_run_chemmech/UTIL/chemmech/input/cracmm2/mech_cracmm2.def ! for Mechanism Name: CRACMM2 ! This file is used to create mechanism data and functions ! The following are reserved symbols declared in this file: ! MECHNAME = Mechanism name ! N_GAS_CHEM_SPC = Total number of gas species in chemical mechanism ! NUMB_MECH_SPC = Total number of species in chemical mechanism ! N_ACT_SP = Number of active (determined by ODE solver) species in mechanism ! GAS_CHEM_SPC = Names of gas species in chemical mechanism ! CHEMISTRY_SPC = Names of species in chemical mechanism ! CGRID_INDEX = CGRID Index of species in chemical mechanism ! SPECIES_TYPE = Group or type of species ! SPECIES_MOLWT = Molecular Weight of species (gm/mole) ! NRXNS = Number of mechanism reactions ! ZERO_REACT_REACTIONS = number zero reactant reactions ! ONE_REACT_REACTIONS = number one reactant reactions ! TWO_REACT_REACTIONS = number second order reactions ! THREE_REACT_REACTIONS = number three reactant reactions ! NSUNLIGHT_RXNS = Number of mechanism reactions requiring sunlight ! NTHERMAL_RXNS = Number of mechanism reactions not requiring sunlight ! KUNITS = Units of mechanism reactions ! KTYPE = Reaction type ! IRXBITS = Bit test mask vector for selected reactions ! IORDER = Order of the reaction ! NTERMS_JACOB = Maximum number of nonzero terms in day/night Jacobian ! MSTEPS_JACOB = Maximum number of LU Decomposition steps to solve each Jacobian ! KTN1 = Number of type 1 reactions ! KRX1 = Reactions list pointer to type 1 reactions ! KTN2 = Number of type 2 reactions ! KRX2 = Reactions list pointer to type 2 reactions ! KTN3 = Number of type 3 reactions ! KRX3 = Reactions list pointer to type 3 reactions ! KTN4 = Number of type 4 reactions ! KRX4 = Reactions list pointer to type 4 reactions ! KTN5 = Number of type 5 reactions ! KRX5 = Reactions list pointer to type 5 reactions ! KTN6 = Number of type 6 reactions ! KRX6 = Reactions list pointer to type 6 reactions ! KTN7 = Number of type 7 reactions ! KRX7 = Reactions list pointer to type 7 reactions ! NWM = Number of air 3-body reactions ! NRXWM = Reactions list pointer to air 3-body reactions ! ATM_AIR = air 3-body reactions concentration ! NWW = Number of H2O 3-body reactions ! NRXWW = Reactions list pointer to H2O 3-body reactions ! NWO2 = Number of reactions with O2 ! NRXWO2 = Reactions list pointer to O2 reactions ! ATM_O2 = Oxygen reactions concentration ! NWN2 = Number of N2 3-body reactions ! NRXWN2 = Reactions list pointer to N2 3-body reactions ! ATM_N2 = Nitrogen 3-body reactions concentration ! NWCH4 = Number of reactions with CH4 ! NRXWCH4 = Reactions list pointer to CH4 reactions ! ATM_CH4 = Methane reactions concentration ! NWH2 = Number of reactions with H2 ! NRXWH2 = Reactions list pointer to H2 reactions ! ATM_H2 = Hydrogen reactions concentration ! MXPRD = Maximum number of mechanism reaction products ! IRR = Reactions list pointer to reactants and products ! RTDAT = Kinetic reaction rates expressions components ! NFALLOFFF = Number of falloff reactions ! IRRFALL = Reactions list pointer to falloff reactions ! RFDAT = Falloff reaction rates expressions components ! SC = Stoichiometric coefficients ! NREACT = Number of reactants in each mechanism reaction ! NPRDCT = Number of products in each mechanism reaction ! RXLABEL = Character label list for mechanism reactions ! NMPHOT = Number of mechanism photolytic reactions ! NPHOTAB = Number of photolytic reactions tables ! IPH = Reactions list pointer to photolytic reactions and tables ! MHETERO = Number of mechanism heteorogenous reactions ! NHETERO = Number of unique heteorogenous rate constants ! IHETERO = Reactions list pointer to heteorogenous reactions and tables CHARACTER( 32 ), PARAMETER :: MECHNAME = 'CRACMM2' INTEGER, PARAMETER :: N_GAS_CHEM_SPC = 179 INTEGER, PARAMETER :: NUMB_MECH_SPC = 189 CHARACTER( 16 ) :: GAS_CHEM_SPC( N_GAS_CHEM_SPC ) CHARACTER( 16 ) :: CHEMISTRY_SPC( NUMB_MECH_SPC ) CHARACTER( 16 ) :: SPECIES_TYPE( NUMB_MECH_SPC ) INTEGER :: CGRID_INDEX ( NUMB_MECH_SPC ) INTEGER :: TYPE_INDEX ( NUMB_MECH_SPC ) REAL( 8 ) :: SPECIES_MOLWT( NUMB_MECH_SPC ) LOGICAL :: CONVERT_CONC( NUMB_MECH_SPC ) ! The below character and integer arrays list the model species names used in the ! chemical mechanism. The gas species and their order should agree with ! the GC_SPC array for the gas phase chemistry to work correctly. ! If present, the CHEMISTRY_SPC names and species type should agree with the CGRID_SPCS module DATA GAS_CHEM_SPC( 1 ) / 'O3 ' / DATA GAS_CHEM_SPC( 2 ) / 'O3P ' / DATA GAS_CHEM_SPC( 3 ) / 'O1D ' / DATA GAS_CHEM_SPC( 4 ) / 'H2O2 ' / DATA GAS_CHEM_SPC( 5 ) / 'HO ' / DATA GAS_CHEM_SPC( 6 ) / 'NO2 ' / DATA GAS_CHEM_SPC( 7 ) / 'NO ' / DATA GAS_CHEM_SPC( 8 ) / 'NO3 ' / DATA GAS_CHEM_SPC( 9 ) / 'HONO ' / DATA GAS_CHEM_SPC( 10 ) / 'HNO3 ' / DATA GAS_CHEM_SPC( 11 ) / 'HNO4 ' / DATA GAS_CHEM_SPC( 12 ) / 'HO2 ' / DATA GAS_CHEM_SPC( 13 ) / 'HCHO ' / DATA GAS_CHEM_SPC( 14 ) / 'CO ' / DATA GAS_CHEM_SPC( 15 ) / 'ACD ' / DATA GAS_CHEM_SPC( 16 ) / 'MO2 ' / DATA GAS_CHEM_SPC( 17 ) / 'ALD ' / DATA GAS_CHEM_SPC( 18 ) / 'ETHP ' / DATA GAS_CHEM_SPC( 19 ) / 'ACT ' / DATA GAS_CHEM_SPC( 20 ) / 'ACO3 ' / DATA GAS_CHEM_SPC( 21 ) / 'UALD ' / DATA GAS_CHEM_SPC( 22 ) / 'KET ' / DATA GAS_CHEM_SPC( 23 ) / 'PINAL ' / DATA GAS_CHEM_SPC( 24 ) / 'HC10P ' / DATA GAS_CHEM_SPC( 25 ) / 'LIMAL ' / DATA GAS_CHEM_SPC( 26 ) / 'MEK ' / DATA GAS_CHEM_SPC( 27 ) / 'HKET ' / DATA GAS_CHEM_SPC( 28 ) / 'MACR ' / DATA GAS_CHEM_SPC( 29 ) / 'MACP ' / DATA GAS_CHEM_SPC( 30 ) / 'XO2 ' / DATA GAS_CHEM_SPC( 31 ) / 'MVK ' / DATA GAS_CHEM_SPC( 32 ) / 'GLY ' / DATA GAS_CHEM_SPC( 33 ) / 'MGLY ' / DATA GAS_CHEM_SPC( 34 ) / 'DCB1 ' / DATA GAS_CHEM_SPC( 35 ) / 'DCB2 ' / DATA GAS_CHEM_SPC( 36 ) / 'BALD ' / DATA GAS_CHEM_SPC( 37 ) / 'CHO ' / DATA GAS_CHEM_SPC( 38 ) / 'OP1 ' / DATA GAS_CHEM_SPC( 39 ) / 'OP2 ' / DATA GAS_CHEM_SPC( 40 ) / 'OPB ' / DATA GAS_CHEM_SPC( 41 ) / 'OP3 ' / DATA GAS_CHEM_SPC( 42 ) / 'PAA ' / DATA GAS_CHEM_SPC( 43 ) / 'ONIT ' / DATA GAS_CHEM_SPC( 44 ) / 'PAN ' / DATA GAS_CHEM_SPC( 45 ) / 'TRPN ' / DATA GAS_CHEM_SPC( 46 ) / 'HONIT ' / DATA GAS_CHEM_SPC( 47 ) / 'N2O5 ' / DATA GAS_CHEM_SPC( 48 ) / 'SO2 ' / DATA GAS_CHEM_SPC( 49 ) / 'SULF ' / DATA GAS_CHEM_SPC( 50 ) / 'SULRXN ' / DATA GAS_CHEM_SPC( 51 ) / 'ETH ' / DATA GAS_CHEM_SPC( 52 ) / 'HC3 ' / DATA GAS_CHEM_SPC( 53 ) / 'HC3P ' / DATA GAS_CHEM_SPC( 54 ) / 'HC5 ' / DATA GAS_CHEM_SPC( 55 ) / 'HC5P ' / DATA GAS_CHEM_SPC( 56 ) / 'ETE ' / DATA GAS_CHEM_SPC( 57 ) / 'ETEP ' / DATA GAS_CHEM_SPC( 58 ) / 'OLT ' / DATA GAS_CHEM_SPC( 59 ) / 'OLTP ' / DATA GAS_CHEM_SPC( 60 ) / 'OLI ' / DATA GAS_CHEM_SPC( 61 ) / 'OLIP ' / DATA GAS_CHEM_SPC( 62 ) / 'ACE ' / DATA GAS_CHEM_SPC( 63 ) / 'ORA1 ' / DATA GAS_CHEM_SPC( 64 ) / 'BEN ' / DATA GAS_CHEM_SPC( 65 ) / 'BENP ' / DATA GAS_CHEM_SPC( 66 ) / 'PHEN ' / DATA GAS_CHEM_SPC( 67 ) / 'TOL ' / DATA GAS_CHEM_SPC( 68 ) / 'TOLP ' / DATA GAS_CHEM_SPC( 69 ) / 'CSL ' / DATA GAS_CHEM_SPC( 70 ) / 'XYL ' / DATA GAS_CHEM_SPC( 71 ) / 'XYLP ' / DATA GAS_CHEM_SPC( 72 ) / 'EBZ ' / DATA GAS_CHEM_SPC( 73 ) / 'EBZP ' / DATA GAS_CHEM_SPC( 74 ) / 'ISO ' / DATA GAS_CHEM_SPC( 75 ) / 'ISON ' / DATA GAS_CHEM_SPC( 76 ) / 'INO2 ' / DATA GAS_CHEM_SPC( 77 ) / 'ISOP ' / DATA GAS_CHEM_SPC( 78 ) / 'ISHP ' / DATA GAS_CHEM_SPC( 79 ) / 'IEPOX ' / DATA GAS_CHEM_SPC( 80 ) / 'IPX ' / DATA GAS_CHEM_SPC( 81 ) / 'INALD ' / DATA GAS_CHEM_SPC( 82 ) / 'ROH ' / DATA GAS_CHEM_SPC( 83 ) / 'API ' / DATA GAS_CHEM_SPC( 84 ) / 'APIP1 ' / DATA GAS_CHEM_SPC( 85 ) / 'APIP2 ' / DATA GAS_CHEM_SPC( 86 ) / 'LIM ' / DATA GAS_CHEM_SPC( 87 ) / 'LIMP1 ' / DATA GAS_CHEM_SPC( 88 ) / 'LIMP2 ' / DATA GAS_CHEM_SPC( 89 ) / 'PINALP ' / DATA GAS_CHEM_SPC( 90 ) / 'RCO3 ' / DATA GAS_CHEM_SPC( 91 ) / 'LIMALP ' / DATA GAS_CHEM_SPC( 92 ) / 'ACTP ' / DATA GAS_CHEM_SPC( 93 ) / 'MEKP ' / DATA GAS_CHEM_SPC( 94 ) / 'KETP ' / DATA GAS_CHEM_SPC( 95 ) / 'MCP ' / DATA GAS_CHEM_SPC( 96 ) / 'MVKP ' / DATA GAS_CHEM_SPC( 97 ) / 'UALP ' / DATA GAS_CHEM_SPC( 98 ) / 'DCB3 ' / DATA GAS_CHEM_SPC( 99 ) / 'BALP ' / DATA GAS_CHEM_SPC( 100 ) / 'ADDC ' / DATA GAS_CHEM_SPC( 101 ) / 'MCT ' / DATA GAS_CHEM_SPC( 102 ) / 'MCTO ' / DATA GAS_CHEM_SPC( 103 ) / 'MOH ' / DATA GAS_CHEM_SPC( 104 ) / 'EOH ' / DATA GAS_CHEM_SPC( 105 ) / 'ETEG ' / DATA GAS_CHEM_SPC( 106 ) / 'MAHP ' / DATA GAS_CHEM_SPC( 107 ) / 'ORA2 ' / DATA GAS_CHEM_SPC( 108 ) / 'ORAP ' / DATA GAS_CHEM_SPC( 109 ) / 'PPN ' / DATA GAS_CHEM_SPC( 110 ) / 'MPAN ' / DATA GAS_CHEM_SPC( 111 ) / 'MCTP ' / DATA GAS_CHEM_SPC( 112 ) / 'OLNN ' / DATA GAS_CHEM_SPC( 113 ) / 'OLND ' / DATA GAS_CHEM_SPC( 114 ) / 'APINP1 ' / DATA GAS_CHEM_SPC( 115 ) / 'APINP2 ' / DATA GAS_CHEM_SPC( 116 ) / 'LIMNP1 ' / DATA GAS_CHEM_SPC( 117 ) / 'LIMNP2 ' / DATA GAS_CHEM_SPC( 118 ) / 'ADCN ' / DATA GAS_CHEM_SPC( 119 ) / 'HOM ' / DATA GAS_CHEM_SPC( 120 ) / 'VROCP4OXY2 ' / DATA GAS_CHEM_SPC( 121 ) / 'VROCN1OXY6 ' / DATA GAS_CHEM_SPC( 122 ) / 'FURANONE ' / DATA GAS_CHEM_SPC( 123 ) / 'VROCP3OXY2 ' / DATA GAS_CHEM_SPC( 124 ) / 'VROCP0OXY4 ' / DATA GAS_CHEM_SPC( 125 ) / 'BAL1 ' / DATA GAS_CHEM_SPC( 126 ) / 'BAL2 ' / DATA GAS_CHEM_SPC( 127 ) / 'ELHOM ' / DATA GAS_CHEM_SPC( 128 ) / 'VROCIOXY ' / DATA GAS_CHEM_SPC( 129 ) / 'SLOWROC ' / DATA GAS_CHEM_SPC( 130 ) / 'ACRO ' / DATA GAS_CHEM_SPC( 131 ) / 'BDE13 ' / DATA GAS_CHEM_SPC( 132 ) / 'BDE13P ' / DATA GAS_CHEM_SPC( 133 ) / 'FURAN ' / DATA GAS_CHEM_SPC( 134 ) / 'FURANO2 ' / DATA GAS_CHEM_SPC( 135 ) / 'PROG ' / DATA GAS_CHEM_SPC( 136 ) / 'SESQ ' / DATA GAS_CHEM_SPC( 137 ) / 'SESQNRO2 ' / DATA GAS_CHEM_SPC( 138 ) / 'VROCN2OXY2 ' / DATA GAS_CHEM_SPC( 139 ) / 'SESQRO2 ' / DATA GAS_CHEM_SPC( 140 ) / 'VROCP0OXY2 ' / DATA GAS_CHEM_SPC( 141 ) / 'VROCP1OXY3 ' / DATA GAS_CHEM_SPC( 142 ) / 'IEPOXP ' / DATA GAS_CHEM_SPC( 143 ) / 'VROCP6ALK ' / DATA GAS_CHEM_SPC( 144 ) / 'VROCP6ALKP ' / DATA GAS_CHEM_SPC( 145 ) / 'VROCP5ALK ' / DATA GAS_CHEM_SPC( 146 ) / 'VROCP5ALKP ' / DATA GAS_CHEM_SPC( 147 ) / 'VROCP4ALK ' / DATA GAS_CHEM_SPC( 148 ) / 'VROCP4ALKP ' / DATA GAS_CHEM_SPC( 149 ) / 'VROCP3ALK ' / DATA GAS_CHEM_SPC( 150 ) / 'VROCP3ALKP ' / DATA GAS_CHEM_SPC( 151 ) / 'VROCP2ALK ' / DATA GAS_CHEM_SPC( 152 ) / 'VROCP2ALKP ' / DATA GAS_CHEM_SPC( 153 ) / 'VROCP1ALK ' / DATA GAS_CHEM_SPC( 154 ) / 'VROCP1ALKP ' / DATA GAS_CHEM_SPC( 155 ) / 'HC10 ' / DATA GAS_CHEM_SPC( 156 ) / 'VROCP6ALKP2 ' / DATA GAS_CHEM_SPC( 157 ) / 'VROCP5ALKP2 ' / DATA GAS_CHEM_SPC( 158 ) / 'VROCP4ALKP2 ' / DATA GAS_CHEM_SPC( 159 ) / 'VROCP2OXY2 ' / DATA GAS_CHEM_SPC( 160 ) / 'VROCP3ALKP2 ' / DATA GAS_CHEM_SPC( 161 ) / 'VROCP1OXY1 ' / DATA GAS_CHEM_SPC( 162 ) / 'VROCP2ALKP2 ' / DATA GAS_CHEM_SPC( 163 ) / 'VROCP1ALKP2 ' / DATA GAS_CHEM_SPC( 164 ) / 'VROCN1OXY1 ' / DATA GAS_CHEM_SPC( 165 ) / 'HC10P2 ' / DATA GAS_CHEM_SPC( 166 ) / 'VROCP6ARO ' / DATA GAS_CHEM_SPC( 167 ) / 'VROCP6AROP ' / DATA GAS_CHEM_SPC( 168 ) / 'VROCN2OXY4 ' / DATA GAS_CHEM_SPC( 169 ) / 'VROCN1OXY3 ' / DATA GAS_CHEM_SPC( 170 ) / 'VROCP5ARO ' / DATA GAS_CHEM_SPC( 171 ) / 'VROCP5AROP ' / DATA GAS_CHEM_SPC( 172 ) / 'NAPH ' / DATA GAS_CHEM_SPC( 173 ) / 'NAPHP ' / DATA GAS_CHEM_SPC( 174 ) / 'VROCN2OXY8 ' / DATA GAS_CHEM_SPC( 175 ) / 'VROCP5OXY1 ' / DATA GAS_CHEM_SPC( 176 ) / 'VROCP6OXY1 ' / DATA GAS_CHEM_SPC( 177 ) / 'ECH4 ' / DATA GAS_CHEM_SPC( 178 ) / 'STY ' / DATA GAS_CHEM_SPC( 179 ) / 'STYP ' / LOGICAL :: HALOGEN_PARAMETER = .TRUE. ! The below character and integer arrays list the model species names used in the ! chemical mechanism. The gas species and their order should agree with ! the GC_SPC array for the gas phase chemistry to work correctly. ! If present, the CHEMISTRY_SPC names and species type should agree with the CGRID_SPCS module ! MAPPED_TO_CGRID declares whether CMAQ namelists were used to determine ! the below values of CGRID_INDEX, SPECIES_TYPE, SPECIES_MOLWT, and CONVERT_CONC LOGICAL, PARAMETER, PRIVATE :: F = .FALSE. LOGICAL, PARAMETER, PRIVATE :: T = .TRUE. LOGICAL :: MAPPED_TO_CGRID = .FALSE. TYPE MEMBER CHARACTER( 16 ) :: CHEMISTRY_SPC INTEGER :: CGRID_INDEX CHARACTER( 2 ) :: SPECIES_TYPE REAL( 8 ) :: SPECIES_MOLWT LOGICAL :: CONVERT_CONC END TYPE MEMBER TYPE( MEMBER ) :: SPECIES_LIST( NUMB_MECH_SPC ) = (/ & & MEMBER("O3 ", 1, "GC", 48.00D0, F), & & MEMBER("O3P ", 2, "GC", 16.00D0, F), & & MEMBER("O1D ", 3, "GC", 16.00D0, F), & & MEMBER("H2O2 ", 4, "GC", 34.00D0, F), & & MEMBER("HO ", 5, "GC", 17.00D0, F), & & MEMBER("NO2 ", 6, "GC", 46.00D0, F), & & MEMBER("NO ", 7, "GC", 30.00D0, F), & & MEMBER("NO3 ", 8, "GC", 62.00D0, F), & & MEMBER("HONO ", 9, "GC", 47.00D0, F), & & MEMBER("HNO3 ", 10, "GC", 63.00D0, F), & & MEMBER("HNO4 ", 11, "GC", 79.00D0, F), & & MEMBER("HO2 ", 12, "GC", 33.00D0, F), & & MEMBER("HCHO ", 13, "GC", 30.00D0, F), & & MEMBER("CO ", 14, "GC", 28.00D0, F), & & MEMBER("ACD ", 15, "GC", 44.00D0, F), & & MEMBER("MO2 ", 16, "GC", 47.00D0, F), & & MEMBER("ALD ", 17, "GC", 58.00D0, F), & & MEMBER("ETHP ", 18, "GC", 61.00D0, F), & & MEMBER("ACT ", 19, "GC", 58.00D0, F), & & MEMBER("ACO3 ", 20, "GC", 75.00D0, F), & & MEMBER("UALD ", 21, "GC", 84.10D0, F), & & MEMBER("KET ", 22, "GC", 86.00D0, F), & & MEMBER("PINAL ", 81, "GC", 168.00D0, F), & & MEMBER("HC10P ", 52, "GC", 173.27D0, F), & & MEMBER("LIMAL ", 88, "GC", 168.00D0, F), & & MEMBER("MEK ", 23, "GC", 72.10D0, F), & & MEMBER("HKET ", 24, "GC", 74.00D0, F), & & MEMBER("MACR ", 25, "GC", 70.00D0, F), & & MEMBER("MACP ", 26, "GC", 101.00D0, F), & & MEMBER("XO2 ", 27, "GC", 1.00D0, F), & & MEMBER("MVK ", 28, "GC", 70.10D0, F), & & MEMBER("GLY ", 29, "GC", 58.00D0, F), & & MEMBER("MGLY ", 30, "GC", 72.00D0, F), & & MEMBER("DCB1 ", 31, "GC", 98.00D0, F), & & MEMBER("DCB2 ", 32, "GC", 112.10D0, F), & & MEMBER("BALD ", 33, "GC", 106.00D0, F), & & MEMBER("CHO ", 34, "GC", 139.00D0, F), & & MEMBER("OP1 ", 35, "GC", 48.00D0, F), & & MEMBER("OP2 ", 36, "GC", 62.00D0, F), & & MEMBER("OPB ", 37, "GC", 186.20D0, F), & & MEMBER("OP3 ", 38, "GC", 176.20D0, F), & & MEMBER("PAA ", 39, "GC", 76.00D0, F), & & MEMBER("ONIT ", 40, "GC", 119.00D0, F), & & MEMBER("PAN ", 41, "GC", 121.00D0, F), & & MEMBER("TRPN ", 120, "GC", 215.00D0, F), & & MEMBER("HONIT ", 121, "GC", 265.00D0, F), & & MEMBER("N2O5 ", 42, "GC", 108.00D0, F), & & MEMBER("SO2 ", 43, "GC", 64.00D0, F), & & MEMBER("SULF ", 44, "GC", 98.00D0, F), & & MEMBER("SULRXN ", 45, "GC", 98.00D0, F), & & MEMBER("ETH ", 46, "GC", 30.10D0, F), & & MEMBER("HC3 ", 47, "GC", 44.10D0, F), & & MEMBER("HC3P ", 48, "GC", 75.00D0, F), & & MEMBER("ASOATJ ", 193, "AE", 200.00D0, T), & & MEMBER("HC5 ", 49, "GC", 72.10D0, F), & & MEMBER("HC5P ", 50, "GC", 103.00D0, F), & & MEMBER("ETE ", 54, "GC", 28.10D0, F), & & MEMBER("ETEP ", 55, "GC", 77.00D0, F), & & MEMBER("OLT ", 56, "GC", 42.00D0, F), & & MEMBER("OLTP ", 57, "GC", 91.00D0, F), & & MEMBER("OLI ", 58, "GC", 70.10D0, F), & & MEMBER("OLIP ", 59, "GC", 119.00D0, F), & & MEMBER("ACE ", 60, "GC", 26.00D0, F), & & MEMBER("ORA1 ", 61, "GC", 46.00D0, F), & & MEMBER("BEN ", 62, "GC", 78.11D0, F), & & MEMBER("BENP ", 63, "GC", 159.12D0, F), & & MEMBER("PHEN ", 64, "GC", 110.10D0, F), & & MEMBER("TOL ", 65, "GC", 92.14D0, F), & & MEMBER("TOLP ", 70, "GC", 173.14D0, F), & & MEMBER("CSL ", 66, "GC", 136.20D0, F), & & MEMBER("XYL ", 67, "GC", 106.20D0, F), & & MEMBER("XYLP ", 71, "GC", 187.17D0, F), & & MEMBER("EBZ ", 68, "GC", 106.20D0, F), & & MEMBER("EBZP ", 72, "GC", 187.17D0, F), & & MEMBER("ISO ", 74, "GC", 68.10D0, F), & & MEMBER("ISON ", 118, "GC", 147.00D0, F), & & MEMBER("INO2 ", 117, "GC", 162.10D0, F), & & MEMBER("ISOP ", 75, "GC", 117.00D0, F), & & MEMBER("ISHP ", 108, "GC", 118.00D0, F), & & MEMBER("IEPOX ", 109, "GC", 118.10D0, F), & & MEMBER("IPX ", 119, "GC", 150.10D0, F), & & MEMBER("INALD ", 116, "GC", 195.10D0, F), & & MEMBER("ROH ", 106, "GC", 60.00D0, F), & & MEMBER("API ", 76, "GC", 136.40D0, F), & & MEMBER("APIP1 ", 77, "GC", 185.00D0, F), & & MEMBER("APIP2 ", 78, "GC", 185.00D0, F), & & MEMBER("LIM ", 83, "GC", 136.30D0, F), & & MEMBER("LIMP1 ", 84, "GC", 185.00D0, F), & & MEMBER("LIMP2 ", 85, "GC", 185.00D0, F), & & MEMBER("PINALP ", 82, "GC", 199.00D0, F), & & MEMBER("RCO3 ", 92, "GC", 89.00D0, F), & & MEMBER("LIMALP ", 89, "GC", 217.00D0, F), & & MEMBER("ACTP ", 93, "GC", 89.00D0, F), & & MEMBER("MEKP ", 94, "GC", 103.00D0, F), & & MEMBER("KETP ", 95, "GC", 117.00D0, F), & & MEMBER("MCP ", 96, "GC", 119.00D0, F), & & MEMBER("MVKP ", 97, "GC", 119.00D0, F), & & MEMBER("UALP ", 98, "GC", 133.00D0, F), & & MEMBER("DCB3 ", 99, "GC", 84.00D0, F), & & MEMBER("BALP ", 100, "GC", 137.00D0, F), & & MEMBER("ADDC ", 101, "GC", 125.00D0, F), & & MEMBER("MCT ", 102, "GC", 124.10D0, F), & & MEMBER("MCTO ", 103, "GC", 123.00D0, F), & & MEMBER("MOH ", 104, "GC", 32.00D0, F), & & MEMBER("EOH ", 105, "GC", 46.10D0, F), & & MEMBER("ETEG ", 107, "GC", 62.10D0, F), & & MEMBER("MAHP ", 111, "GC", 102.00D0, F), & & MEMBER("ORA2 ", 112, "GC", 60.20D0, F), & & MEMBER("ORAP ", 113, "GC", 91.00D0, F), & & MEMBER("PPN ", 114, "GC", 135.00D0, F), & & MEMBER("MPAN ", 115, "GC", 147.10D0, F), & & MEMBER("MCTP ", 122, "GC", 172.00D0, F), & & MEMBER("OLNN ", 123, "GC", 136.00D0, F), & & MEMBER("OLND ", 124, "GC", 136.00D0, F), & & MEMBER("APINP1 ", 79, "GC", 230.00D0, F), & & MEMBER("APINP2 ", 80, "GC", 230.00D0, F), & & MEMBER("LIMNP1 ", 86, "GC", 230.00D0, F), & & MEMBER("LIMNP2 ", 87, "GC", 230.00D0, F), & & MEMBER("ADCN ", 125, "GC", 155.00D0, F), & & MEMBER("HOM ", 90, "GC", 250.00D0, F), & & MEMBER("VROCP4OXY2 ", 179, "GC", 158.20D0, F), & & MEMBER("VROCN1OXY6 ", 172, "GC", 190.20D0, F), & & MEMBER("FURANONE ", 134, "GC", 100.10D0, F), & & MEMBER("VROCP3OXY2 ", 178, "GC", 186.30D0, F), & & MEMBER("VROCP0OXY4 ", 174, "GC", 202.30D0, F), & & MEMBER("BAL1 ", 126, "GC", 123.00D0, F), & & MEMBER("BAL2 ", 127, "GC", 109.00D0, F), & & MEMBER("ELHOM ", 91, "GC", 402.00D0, F), & & MEMBER("VROCIOXY ", 135, "GC", 247.00D0, F), & & MEMBER("SLOWROC ", 136, "GC", 75.40D0, F), & & MEMBER("ACRO ", 128, "GC", 56.10D0, F), & & MEMBER("BDE13 ", 129, "GC", 54.10D0, F), & & MEMBER("BDE13P ", 130, "GC", 103.00D0, F), & & MEMBER("FURAN ", 132, "GC", 96.10D0, F), & & MEMBER("FURANO2 ", 133, "GC", 145.10D0, F), & & MEMBER("PROG ", 131, "GC", 76.10D0, F), & & MEMBER("SESQ ", 137, "GC", 204.40D0, F), & & MEMBER("SESQNRO2 ", 139, "GC", 298.40D0, F), & & MEMBER("VROCN2OXY2 ", 167, "GC", 282.40D0, F), & & MEMBER("SESQRO2 ", 138, "GC", 253.40D0, F), & & MEMBER("VROCP0OXY2 ", 173, "GC", 242.40D0, F), & & MEMBER("VROCP1OXY3 ", 176, "GC", 202.30D0, F), & & MEMBER("AGLYJ ", 194, "AE", 66.40D0, T), & & MEMBER("IEPOXP ", 110, "GC", 118.10D0, F), & & MEMBER("AISO3NOSJ ", 268, "AE", 136.20D0, T), & & MEMBER("ASO4J ", 185, "AE", 96.00D0, T), & & MEMBER("AISO3OSJ ", 269, "AE", 216.20D0, T), & & MEMBER("AISO4J ", 270, "AE", 168.10D0, T), & & MEMBER("AISO5J ", 271, "AE", 150.10D0, T), & & MEMBER("VROCP6ALK ", 154, "GC", 184.37D0, F), & & MEMBER("VROCP6ALKP ", 160, "GC", 215.36D0, F), & & MEMBER("VROCP5ALK ", 153, "GC", 198.39D0, F), & & MEMBER("VROCP5ALKP ", 159, "GC", 229.38D0, F), & & MEMBER("VROCP4ALK ", 152, "GC", 254.50D0, F), & & MEMBER("VROCP4ALKP ", 158, "GC", 285.49D0, F), & & MEMBER("VROCP3ALK ", 151, "GC", 296.58D0, F), & & MEMBER("VROCP3ALKP ", 157, "GC", 327.57D0, F), & & MEMBER("VROCP2ALK ", 150, "GC", 338.66D0, F), & & MEMBER("VROCP2ALKP ", 156, "GC", 369.65D0, F), & & MEMBER("VROCP1ALK ", 149, "GC", 380.75D0, F), & & MEMBER("VROCP1ALKP ", 155, "GC", 411.74D0, F), & & MEMBER("HC10 ", 51, "GC", 142.28D0, F), & & MEMBER("VROCP6ALKP2 ", 166, "GC", 231.36D0, F), & & MEMBER("VROCP5ALKP2 ", 165, "GC", 245.38D0, F), & & MEMBER("VROCP4ALKP2 ", 164, "GC", 301.49D0, F), & & MEMBER("VROCP2OXY2 ", 177, "GC", 200.30D0, F), & & MEMBER("VROCP3ALKP2 ", 163, "GC", 343.57D0, F), & & MEMBER("VROCP1OXY1 ", 175, "GC", 270.50D0, F), & & MEMBER("VROCP2ALKP2 ", 162, "GC", 385.65D0, F), & & MEMBER("VROCP1ALKP2 ", 161, "GC", 427.73D0, F), & & MEMBER("VROCN1OXY1 ", 170, "GC", 312.50D0, F), & & MEMBER("HC10P2 ", 53, "GC", 189.27D0, F), & & MEMBER("VROCP6ARO ", 143, "GC", 176.30D0, F), & & MEMBER("VROCP6AROP ", 145, "GC", 257.30D0, F), & & MEMBER("VROCN2OXY4 ", 168, "GC", 232.30D0, F), & & MEMBER("VROCN1OXY3 ", 171, "GC", 230.30D0, F), & & MEMBER("VROCP5ARO ", 142, "GC", 190.33D0, F), & & MEMBER("VROCP5AROP ", 144, "GC", 271.33D0, F), & & MEMBER("NAPH ", 140, "GC", 128.17D0, F), & & MEMBER("NAPHP ", 141, "GC", 209.17D0, F), & & MEMBER("VROCN2OXY8 ", 169, "GC", 194.20D0, F), & & MEMBER("VROCP5OXY1 ", 180, "GC", 170.30D0, F), & & MEMBER("VROCP6OXY1 ", 181, "GC", 142.20D0, F), & & MEMBER("ECH4 ", 182, "GC", 16.00D0, F), & & MEMBER("ATRPNJ ", 272, "AE", 215.00D0, T), & & MEMBER("AHOMJ ", 195, "AE", 250.00D0, T), & & MEMBER("AHONITJ ", 273, "AE", 265.00D0, T), & & MEMBER("STY ", 69, "GC", 104.00D0, F), & & MEMBER("STYP ", 73, "GC", 153.00D0, F) /) DATA CHEMISTRY_SPC( 1 ), SPECIES_MOLWT( 1 ) / 'O3 ', 48.00D0 / DATA CHEMISTRY_SPC( 2 ), SPECIES_MOLWT( 2 ) / 'O3P ', 16.00D0 / DATA CHEMISTRY_SPC( 3 ), SPECIES_MOLWT( 3 ) / 'O1D ', 16.00D0 / DATA CHEMISTRY_SPC( 4 ), SPECIES_MOLWT( 4 ) / 'H2O2 ', 34.00D0 / DATA CHEMISTRY_SPC( 5 ), SPECIES_MOLWT( 5 ) / 'HO ', 17.00D0 / DATA CHEMISTRY_SPC( 6 ), SPECIES_MOLWT( 6 ) / 'NO2 ', 46.00D0 / DATA CHEMISTRY_SPC( 7 ), SPECIES_MOLWT( 7 ) / 'NO ', 30.00D0 / DATA CHEMISTRY_SPC( 8 ), SPECIES_MOLWT( 8 ) / 'NO3 ', 62.00D0 / DATA CHEMISTRY_SPC( 9 ), SPECIES_MOLWT( 9 ) / 'HONO ', 47.00D0 / DATA CHEMISTRY_SPC( 10 ), SPECIES_MOLWT( 10 ) / 'HNO3 ', 63.00D0 / DATA CHEMISTRY_SPC( 11 ), SPECIES_MOLWT( 11 ) / 'HNO4 ', 79.00D0 / DATA CHEMISTRY_SPC( 12 ), SPECIES_MOLWT( 12 ) / 'HO2 ', 33.00D0 / DATA CHEMISTRY_SPC( 13 ), SPECIES_MOLWT( 13 ) / 'HCHO ', 30.00D0 / DATA CHEMISTRY_SPC( 14 ), SPECIES_MOLWT( 14 ) / 'CO ', 28.00D0 / DATA CHEMISTRY_SPC( 15 ), SPECIES_MOLWT( 15 ) / 'ACD ', 44.00D0 / DATA CHEMISTRY_SPC( 16 ), SPECIES_MOLWT( 16 ) / 'MO2 ', 47.00D0 / DATA CHEMISTRY_SPC( 17 ), SPECIES_MOLWT( 17 ) / 'ALD ', 58.00D0 / DATA CHEMISTRY_SPC( 18 ), SPECIES_MOLWT( 18 ) / 'ETHP ', 61.00D0 / DATA CHEMISTRY_SPC( 19 ), SPECIES_MOLWT( 19 ) / 'ACT ', 58.00D0 / DATA CHEMISTRY_SPC( 20 ), SPECIES_MOLWT( 20 ) / 'ACO3 ', 75.00D0 / DATA CHEMISTRY_SPC( 21 ), SPECIES_MOLWT( 21 ) / 'UALD ', 84.10D0 / DATA CHEMISTRY_SPC( 22 ), SPECIES_MOLWT( 22 ) / 'KET ', 86.00D0 / DATA CHEMISTRY_SPC( 23 ), SPECIES_MOLWT( 23 ) / 'PINAL ', 168.00D0 / DATA CHEMISTRY_SPC( 24 ), SPECIES_MOLWT( 24 ) / 'HC10P ', 173.27D0 / DATA CHEMISTRY_SPC( 25 ), SPECIES_MOLWT( 25 ) / 'LIMAL ', 168.00D0 / DATA CHEMISTRY_SPC( 26 ), SPECIES_MOLWT( 26 ) / 'MEK ', 72.10D0 / DATA CHEMISTRY_SPC( 27 ), SPECIES_MOLWT( 27 ) / 'HKET ', 74.00D0 / DATA CHEMISTRY_SPC( 28 ), SPECIES_MOLWT( 28 ) / 'MACR ', 70.00D0 / DATA CHEMISTRY_SPC( 29 ), SPECIES_MOLWT( 29 ) / 'MACP ', 101.00D0 / DATA CHEMISTRY_SPC( 30 ), SPECIES_MOLWT( 30 ) / 'XO2 ', 1.00D0 / DATA CHEMISTRY_SPC( 31 ), SPECIES_MOLWT( 31 ) / 'MVK ', 70.10D0 / DATA CHEMISTRY_SPC( 32 ), SPECIES_MOLWT( 32 ) / 'GLY ', 58.00D0 / DATA CHEMISTRY_SPC( 33 ), SPECIES_MOLWT( 33 ) / 'MGLY ', 72.00D0 / DATA CHEMISTRY_SPC( 34 ), SPECIES_MOLWT( 34 ) / 'DCB1 ', 98.00D0 / DATA CHEMISTRY_SPC( 35 ), SPECIES_MOLWT( 35 ) / 'DCB2 ', 112.10D0 / DATA CHEMISTRY_SPC( 36 ), SPECIES_MOLWT( 36 ) / 'BALD ', 106.00D0 / DATA CHEMISTRY_SPC( 37 ), SPECIES_MOLWT( 37 ) / 'CHO ', 139.00D0 / DATA CHEMISTRY_SPC( 38 ), SPECIES_MOLWT( 38 ) / 'OP1 ', 48.00D0 / DATA CHEMISTRY_SPC( 39 ), SPECIES_MOLWT( 39 ) / 'OP2 ', 62.00D0 / DATA CHEMISTRY_SPC( 40 ), SPECIES_MOLWT( 40 ) / 'OPB ', 186.20D0 / DATA CHEMISTRY_SPC( 41 ), SPECIES_MOLWT( 41 ) / 'OP3 ', 176.20D0 / DATA CHEMISTRY_SPC( 42 ), SPECIES_MOLWT( 42 ) / 'PAA ', 76.00D0 / DATA CHEMISTRY_SPC( 43 ), SPECIES_MOLWT( 43 ) / 'ONIT ', 119.00D0 / DATA CHEMISTRY_SPC( 44 ), SPECIES_MOLWT( 44 ) / 'PAN ', 121.00D0 / DATA CHEMISTRY_SPC( 45 ), SPECIES_MOLWT( 45 ) / 'TRPN ', 215.00D0 / DATA CHEMISTRY_SPC( 46 ), SPECIES_MOLWT( 46 ) / 'HONIT ', 265.00D0 / DATA CHEMISTRY_SPC( 47 ), SPECIES_MOLWT( 47 ) / 'N2O5 ', 108.00D0 / DATA CHEMISTRY_SPC( 48 ), SPECIES_MOLWT( 48 ) / 'SO2 ', 64.00D0 / DATA CHEMISTRY_SPC( 49 ), SPECIES_MOLWT( 49 ) / 'SULF ', 98.00D0 / DATA CHEMISTRY_SPC( 50 ), SPECIES_MOLWT( 50 ) / 'SULRXN ', 98.00D0 / DATA CHEMISTRY_SPC( 51 ), SPECIES_MOLWT( 51 ) / 'ETH ', 30.10D0 / DATA CHEMISTRY_SPC( 52 ), SPECIES_MOLWT( 52 ) / 'HC3 ', 44.10D0 / DATA CHEMISTRY_SPC( 53 ), SPECIES_MOLWT( 53 ) / 'HC3P ', 75.00D0 / DATA CHEMISTRY_SPC( 54 ), SPECIES_MOLWT( 54 ) / 'ASOATJ ', 200.00D0 / DATA CHEMISTRY_SPC( 55 ), SPECIES_MOLWT( 55 ) / 'HC5 ', 72.10D0 / DATA CHEMISTRY_SPC( 56 ), SPECIES_MOLWT( 56 ) / 'HC5P ', 103.00D0 / DATA CHEMISTRY_SPC( 57 ), SPECIES_MOLWT( 57 ) / 'ETE ', 28.10D0 / DATA CHEMISTRY_SPC( 58 ), SPECIES_MOLWT( 58 ) / 'ETEP ', 77.00D0 / DATA CHEMISTRY_SPC( 59 ), SPECIES_MOLWT( 59 ) / 'OLT ', 42.00D0 / DATA CHEMISTRY_SPC( 60 ), SPECIES_MOLWT( 60 ) / 'OLTP ', 91.00D0 / DATA CHEMISTRY_SPC( 61 ), SPECIES_MOLWT( 61 ) / 'OLI ', 70.10D0 / DATA CHEMISTRY_SPC( 62 ), SPECIES_MOLWT( 62 ) / 'OLIP ', 119.00D0 / DATA CHEMISTRY_SPC( 63 ), SPECIES_MOLWT( 63 ) / 'ACE ', 26.00D0 / DATA CHEMISTRY_SPC( 64 ), SPECIES_MOLWT( 64 ) / 'ORA1 ', 46.00D0 / DATA CHEMISTRY_SPC( 65 ), SPECIES_MOLWT( 65 ) / 'BEN ', 78.11D0 / DATA CHEMISTRY_SPC( 66 ), SPECIES_MOLWT( 66 ) / 'BENP ', 159.12D0 / DATA CHEMISTRY_SPC( 67 ), SPECIES_MOLWT( 67 ) / 'PHEN ', 110.10D0 / DATA CHEMISTRY_SPC( 68 ), SPECIES_MOLWT( 68 ) / 'TOL ', 92.14D0 / DATA CHEMISTRY_SPC( 69 ), SPECIES_MOLWT( 69 ) / 'TOLP ', 173.14D0 / DATA CHEMISTRY_SPC( 70 ), SPECIES_MOLWT( 70 ) / 'CSL ', 136.20D0 / DATA CHEMISTRY_SPC( 71 ), SPECIES_MOLWT( 71 ) / 'XYL ', 106.20D0 / DATA CHEMISTRY_SPC( 72 ), SPECIES_MOLWT( 72 ) / 'XYLP ', 187.17D0 / DATA CHEMISTRY_SPC( 73 ), SPECIES_MOLWT( 73 ) / 'EBZ ', 106.20D0 / DATA CHEMISTRY_SPC( 74 ), SPECIES_MOLWT( 74 ) / 'EBZP ', 187.17D0 / DATA CHEMISTRY_SPC( 75 ), SPECIES_MOLWT( 75 ) / 'ISO ', 68.10D0 / DATA CHEMISTRY_SPC( 76 ), SPECIES_MOLWT( 76 ) / 'ISON ', 147.00D0 / DATA CHEMISTRY_SPC( 77 ), SPECIES_MOLWT( 77 ) / 'INO2 ', 162.10D0 / DATA CHEMISTRY_SPC( 78 ), SPECIES_MOLWT( 78 ) / 'ISOP ', 117.00D0 / DATA CHEMISTRY_SPC( 79 ), SPECIES_MOLWT( 79 ) / 'ISHP ', 118.00D0 / DATA CHEMISTRY_SPC( 80 ), SPECIES_MOLWT( 80 ) / 'IEPOX ', 118.10D0 / DATA CHEMISTRY_SPC( 81 ), SPECIES_MOLWT( 81 ) / 'IPX ', 150.10D0 / DATA CHEMISTRY_SPC( 82 ), SPECIES_MOLWT( 82 ) / 'INALD ', 195.10D0 / DATA CHEMISTRY_SPC( 83 ), SPECIES_MOLWT( 83 ) / 'ROH ', 60.00D0 / DATA CHEMISTRY_SPC( 84 ), SPECIES_MOLWT( 84 ) / 'API ', 136.40D0 / DATA CHEMISTRY_SPC( 85 ), SPECIES_MOLWT( 85 ) / 'APIP1 ', 185.00D0 / DATA CHEMISTRY_SPC( 86 ), SPECIES_MOLWT( 86 ) / 'APIP2 ', 185.00D0 / DATA CHEMISTRY_SPC( 87 ), SPECIES_MOLWT( 87 ) / 'LIM ', 136.30D0 / DATA CHEMISTRY_SPC( 88 ), SPECIES_MOLWT( 88 ) / 'LIMP1 ', 185.00D0 / DATA CHEMISTRY_SPC( 89 ), SPECIES_MOLWT( 89 ) / 'LIMP2 ', 185.00D0 / DATA CHEMISTRY_SPC( 90 ), SPECIES_MOLWT( 90 ) / 'PINALP ', 199.00D0 / DATA CHEMISTRY_SPC( 91 ), SPECIES_MOLWT( 91 ) / 'RCO3 ', 89.00D0 / DATA CHEMISTRY_SPC( 92 ), SPECIES_MOLWT( 92 ) / 'LIMALP ', 217.00D0 / DATA CHEMISTRY_SPC( 93 ), SPECIES_MOLWT( 93 ) / 'ACTP ', 89.00D0 / DATA CHEMISTRY_SPC( 94 ), SPECIES_MOLWT( 94 ) / 'MEKP ', 103.00D0 / DATA CHEMISTRY_SPC( 95 ), SPECIES_MOLWT( 95 ) / 'KETP ', 117.00D0 / DATA CHEMISTRY_SPC( 96 ), SPECIES_MOLWT( 96 ) / 'MCP ', 119.00D0 / DATA CHEMISTRY_SPC( 97 ), SPECIES_MOLWT( 97 ) / 'MVKP ', 119.00D0 / DATA CHEMISTRY_SPC( 98 ), SPECIES_MOLWT( 98 ) / 'UALP ', 133.00D0 / DATA CHEMISTRY_SPC( 99 ), SPECIES_MOLWT( 99 ) / 'DCB3 ', 84.00D0 / DATA CHEMISTRY_SPC( 100 ), SPECIES_MOLWT( 100 ) / 'BALP ', 137.00D0 / DATA CHEMISTRY_SPC( 101 ), SPECIES_MOLWT( 101 ) / 'ADDC ', 125.00D0 / DATA CHEMISTRY_SPC( 102 ), SPECIES_MOLWT( 102 ) / 'MCT ', 124.10D0 / DATA CHEMISTRY_SPC( 103 ), SPECIES_MOLWT( 103 ) / 'MCTO ', 123.00D0 / DATA CHEMISTRY_SPC( 104 ), SPECIES_MOLWT( 104 ) / 'MOH ', 32.00D0 / DATA CHEMISTRY_SPC( 105 ), SPECIES_MOLWT( 105 ) / 'EOH ', 46.10D0 / DATA CHEMISTRY_SPC( 106 ), SPECIES_MOLWT( 106 ) / 'ETEG ', 62.10D0 / DATA CHEMISTRY_SPC( 107 ), SPECIES_MOLWT( 107 ) / 'MAHP ', 102.00D0 / DATA CHEMISTRY_SPC( 108 ), SPECIES_MOLWT( 108 ) / 'ORA2 ', 60.20D0 / DATA CHEMISTRY_SPC( 109 ), SPECIES_MOLWT( 109 ) / 'ORAP ', 91.00D0 / DATA CHEMISTRY_SPC( 110 ), SPECIES_MOLWT( 110 ) / 'PPN ', 135.00D0 / DATA CHEMISTRY_SPC( 111 ), SPECIES_MOLWT( 111 ) / 'MPAN ', 147.10D0 / DATA CHEMISTRY_SPC( 112 ), SPECIES_MOLWT( 112 ) / 'MCTP ', 172.00D0 / DATA CHEMISTRY_SPC( 113 ), SPECIES_MOLWT( 113 ) / 'OLNN ', 136.00D0 / DATA CHEMISTRY_SPC( 114 ), SPECIES_MOLWT( 114 ) / 'OLND ', 136.00D0 / DATA CHEMISTRY_SPC( 115 ), SPECIES_MOLWT( 115 ) / 'APINP1 ', 230.00D0 / DATA CHEMISTRY_SPC( 116 ), SPECIES_MOLWT( 116 ) / 'APINP2 ', 230.00D0 / DATA CHEMISTRY_SPC( 117 ), SPECIES_MOLWT( 117 ) / 'LIMNP1 ', 230.00D0 / DATA CHEMISTRY_SPC( 118 ), SPECIES_MOLWT( 118 ) / 'LIMNP2 ', 230.00D0 / DATA CHEMISTRY_SPC( 119 ), SPECIES_MOLWT( 119 ) / 'ADCN ', 155.00D0 / DATA CHEMISTRY_SPC( 120 ), SPECIES_MOLWT( 120 ) / 'HOM ', 250.00D0 / DATA CHEMISTRY_SPC( 121 ), SPECIES_MOLWT( 121 ) / 'VROCP4OXY2 ', 158.20D0 / DATA CHEMISTRY_SPC( 122 ), SPECIES_MOLWT( 122 ) / 'VROCN1OXY6 ', 190.20D0 / DATA CHEMISTRY_SPC( 123 ), SPECIES_MOLWT( 123 ) / 'FURANONE ', 100.10D0 / DATA CHEMISTRY_SPC( 124 ), SPECIES_MOLWT( 124 ) / 'VROCP3OXY2 ', 186.30D0 / DATA CHEMISTRY_SPC( 125 ), SPECIES_MOLWT( 125 ) / 'VROCP0OXY4 ', 202.30D0 / DATA CHEMISTRY_SPC( 126 ), SPECIES_MOLWT( 126 ) / 'BAL1 ', 123.00D0 / DATA CHEMISTRY_SPC( 127 ), SPECIES_MOLWT( 127 ) / 'BAL2 ', 109.00D0 / DATA CHEMISTRY_SPC( 128 ), SPECIES_MOLWT( 128 ) / 'ELHOM ', 402.00D0 / DATA CHEMISTRY_SPC( 129 ), SPECIES_MOLWT( 129 ) / 'VROCIOXY ', 247.00D0 / DATA CHEMISTRY_SPC( 130 ), SPECIES_MOLWT( 130 ) / 'SLOWROC ', 75.40D0 / DATA CHEMISTRY_SPC( 131 ), SPECIES_MOLWT( 131 ) / 'ACRO ', 56.10D0 / DATA CHEMISTRY_SPC( 132 ), SPECIES_MOLWT( 132 ) / 'BDE13 ', 54.10D0 / DATA CHEMISTRY_SPC( 133 ), SPECIES_MOLWT( 133 ) / 'BDE13P ', 103.00D0 / DATA CHEMISTRY_SPC( 134 ), SPECIES_MOLWT( 134 ) / 'FURAN ', 96.10D0 / DATA CHEMISTRY_SPC( 135 ), SPECIES_MOLWT( 135 ) / 'FURANO2 ', 145.10D0 / DATA CHEMISTRY_SPC( 136 ), SPECIES_MOLWT( 136 ) / 'PROG ', 76.10D0 / DATA CHEMISTRY_SPC( 137 ), SPECIES_MOLWT( 137 ) / 'SESQ ', 204.40D0 / DATA CHEMISTRY_SPC( 138 ), SPECIES_MOLWT( 138 ) / 'SESQNRO2 ', 298.40D0 / DATA CHEMISTRY_SPC( 139 ), SPECIES_MOLWT( 139 ) / 'VROCN2OXY2 ', 282.40D0 / DATA CHEMISTRY_SPC( 140 ), SPECIES_MOLWT( 140 ) / 'SESQRO2 ', 253.40D0 / DATA CHEMISTRY_SPC( 141 ), SPECIES_MOLWT( 141 ) / 'VROCP0OXY2 ', 242.40D0 / DATA CHEMISTRY_SPC( 142 ), SPECIES_MOLWT( 142 ) / 'VROCP1OXY3 ', 202.30D0 / DATA CHEMISTRY_SPC( 143 ), SPECIES_MOLWT( 143 ) / 'AGLYJ ', 66.40D0 / DATA CHEMISTRY_SPC( 144 ), SPECIES_MOLWT( 144 ) / 'IEPOXP ', 118.10D0 / DATA CHEMISTRY_SPC( 145 ), SPECIES_MOLWT( 145 ) / 'AISO3NOSJ ', 136.20D0 / DATA CHEMISTRY_SPC( 146 ), SPECIES_MOLWT( 146 ) / 'ASO4J ', 96.00D0 / DATA CHEMISTRY_SPC( 147 ), SPECIES_MOLWT( 147 ) / 'AISO3OSJ ', 216.20D0 / DATA CHEMISTRY_SPC( 148 ), SPECIES_MOLWT( 148 ) / 'AISO4J ', 168.10D0 / DATA CHEMISTRY_SPC( 149 ), SPECIES_MOLWT( 149 ) / 'AISO5J ', 150.10D0 / DATA CHEMISTRY_SPC( 150 ), SPECIES_MOLWT( 150 ) / 'VROCP6ALK ', 184.37D0 / DATA CHEMISTRY_SPC( 151 ), SPECIES_MOLWT( 151 ) / 'VROCP6ALKP ', 215.36D0 / DATA CHEMISTRY_SPC( 152 ), SPECIES_MOLWT( 152 ) / 'VROCP5ALK ', 198.39D0 / DATA CHEMISTRY_SPC( 153 ), SPECIES_MOLWT( 153 ) / 'VROCP5ALKP ', 229.38D0 / DATA CHEMISTRY_SPC( 154 ), SPECIES_MOLWT( 154 ) / 'VROCP4ALK ', 254.50D0 / DATA CHEMISTRY_SPC( 155 ), SPECIES_MOLWT( 155 ) / 'VROCP4ALKP ', 285.49D0 / DATA CHEMISTRY_SPC( 156 ), SPECIES_MOLWT( 156 ) / 'VROCP3ALK ', 296.58D0 / DATA CHEMISTRY_SPC( 157 ), SPECIES_MOLWT( 157 ) / 'VROCP3ALKP ', 327.57D0 / DATA CHEMISTRY_SPC( 158 ), SPECIES_MOLWT( 158 ) / 'VROCP2ALK ', 338.66D0 / DATA CHEMISTRY_SPC( 159 ), SPECIES_MOLWT( 159 ) / 'VROCP2ALKP ', 369.65D0 / DATA CHEMISTRY_SPC( 160 ), SPECIES_MOLWT( 160 ) / 'VROCP1ALK ', 380.75D0 / DATA CHEMISTRY_SPC( 161 ), SPECIES_MOLWT( 161 ) / 'VROCP1ALKP ', 411.74D0 / DATA CHEMISTRY_SPC( 162 ), SPECIES_MOLWT( 162 ) / 'HC10 ', 142.28D0 / DATA CHEMISTRY_SPC( 163 ), SPECIES_MOLWT( 163 ) / 'VROCP6ALKP2 ', 231.36D0 / DATA CHEMISTRY_SPC( 164 ), SPECIES_MOLWT( 164 ) / 'VROCP5ALKP2 ', 245.38D0 / DATA CHEMISTRY_SPC( 165 ), SPECIES_MOLWT( 165 ) / 'VROCP4ALKP2 ', 301.49D0 / DATA CHEMISTRY_SPC( 166 ), SPECIES_MOLWT( 166 ) / 'VROCP2OXY2 ', 200.30D0 / DATA CHEMISTRY_SPC( 167 ), SPECIES_MOLWT( 167 ) / 'VROCP3ALKP2 ', 343.57D0 / DATA CHEMISTRY_SPC( 168 ), SPECIES_MOLWT( 168 ) / 'VROCP1OXY1 ', 270.50D0 / DATA CHEMISTRY_SPC( 169 ), SPECIES_MOLWT( 169 ) / 'VROCP2ALKP2 ', 385.65D0 / DATA CHEMISTRY_SPC( 170 ), SPECIES_MOLWT( 170 ) / 'VROCP1ALKP2 ', 427.73D0 / DATA CHEMISTRY_SPC( 171 ), SPECIES_MOLWT( 171 ) / 'VROCN1OXY1 ', 312.50D0 / DATA CHEMISTRY_SPC( 172 ), SPECIES_MOLWT( 172 ) / 'HC10P2 ', 189.27D0 / DATA CHEMISTRY_SPC( 173 ), SPECIES_MOLWT( 173 ) / 'VROCP6ARO ', 176.30D0 / DATA CHEMISTRY_SPC( 174 ), SPECIES_MOLWT( 174 ) / 'VROCP6AROP ', 257.30D0 / DATA CHEMISTRY_SPC( 175 ), SPECIES_MOLWT( 175 ) / 'VROCN2OXY4 ', 232.30D0 / DATA CHEMISTRY_SPC( 176 ), SPECIES_MOLWT( 176 ) / 'VROCN1OXY3 ', 230.30D0 / DATA CHEMISTRY_SPC( 177 ), SPECIES_MOLWT( 177 ) / 'VROCP5ARO ', 190.33D0 / DATA CHEMISTRY_SPC( 178 ), SPECIES_MOLWT( 178 ) / 'VROCP5AROP ', 271.33D0 / DATA CHEMISTRY_SPC( 179 ), SPECIES_MOLWT( 179 ) / 'NAPH ', 128.17D0 / DATA CHEMISTRY_SPC( 180 ), SPECIES_MOLWT( 180 ) / 'NAPHP ', 209.17D0 / DATA CHEMISTRY_SPC( 181 ), SPECIES_MOLWT( 181 ) / 'VROCN2OXY8 ', 194.20D0 / DATA CHEMISTRY_SPC( 182 ), SPECIES_MOLWT( 182 ) / 'VROCP5OXY1 ', 170.30D0 / DATA CHEMISTRY_SPC( 183 ), SPECIES_MOLWT( 183 ) / 'VROCP6OXY1 ', 142.20D0 / DATA CHEMISTRY_SPC( 184 ), SPECIES_MOLWT( 184 ) / 'ECH4 ', 16.00D0 / DATA CHEMISTRY_SPC( 185 ), SPECIES_MOLWT( 185 ) / 'ATRPNJ ', 215.00D0 / DATA CHEMISTRY_SPC( 186 ), SPECIES_MOLWT( 186 ) / 'AHOMJ ', 250.00D0 / DATA CHEMISTRY_SPC( 187 ), SPECIES_MOLWT( 187 ) / 'AHONITJ ', 265.00D0 / DATA CHEMISTRY_SPC( 188 ), SPECIES_MOLWT( 188 ) / 'STY ', 104.00D0 / DATA CHEMISTRY_SPC( 189 ), SPECIES_MOLWT( 189 ) / 'STYP ', 153.00D0 / DATA CGRID_INDEX( 1 ), SPECIES_TYPE( 1 ), CONVERT_CONC( 1 ) / 1, 'GC', F / ! O3 DATA CGRID_INDEX( 2 ), SPECIES_TYPE( 2 ), CONVERT_CONC( 2 ) / 2, 'GC', F / ! O3P DATA CGRID_INDEX( 3 ), SPECIES_TYPE( 3 ), CONVERT_CONC( 3 ) / 3, 'GC', F / ! O1D DATA CGRID_INDEX( 4 ), SPECIES_TYPE( 4 ), CONVERT_CONC( 4 ) / 4, 'GC', F / ! H2O2 DATA CGRID_INDEX( 5 ), SPECIES_TYPE( 5 ), CONVERT_CONC( 5 ) / 5, 'GC', F / ! HO DATA CGRID_INDEX( 6 ), SPECIES_TYPE( 6 ), CONVERT_CONC( 6 ) / 6, 'GC', F / ! NO2 DATA CGRID_INDEX( 7 ), SPECIES_TYPE( 7 ), CONVERT_CONC( 7 ) / 7, 'GC', F / ! NO DATA CGRID_INDEX( 8 ), SPECIES_TYPE( 8 ), CONVERT_CONC( 8 ) / 8, 'GC', F / ! NO3 DATA CGRID_INDEX( 9 ), SPECIES_TYPE( 9 ), CONVERT_CONC( 9 ) / 9, 'GC', F / ! HONO DATA CGRID_INDEX( 10 ), SPECIES_TYPE( 10 ), CONVERT_CONC( 10 ) / 10, 'GC', F / ! HNO3 DATA CGRID_INDEX( 11 ), SPECIES_TYPE( 11 ), CONVERT_CONC( 11 ) / 11, 'GC', F / ! HNO4 DATA CGRID_INDEX( 12 ), SPECIES_TYPE( 12 ), CONVERT_CONC( 12 ) / 12, 'GC', F / ! HO2 DATA CGRID_INDEX( 13 ), SPECIES_TYPE( 13 ), CONVERT_CONC( 13 ) / 13, 'GC', F / ! HCHO DATA CGRID_INDEX( 14 ), SPECIES_TYPE( 14 ), CONVERT_CONC( 14 ) / 14, 'GC', F / ! CO DATA CGRID_INDEX( 15 ), SPECIES_TYPE( 15 ), CONVERT_CONC( 15 ) / 15, 'GC', F / ! ACD DATA CGRID_INDEX( 16 ), SPECIES_TYPE( 16 ), CONVERT_CONC( 16 ) / 16, 'GC', F / ! MO2 DATA CGRID_INDEX( 17 ), SPECIES_TYPE( 17 ), CONVERT_CONC( 17 ) / 17, 'GC', F / ! ALD DATA CGRID_INDEX( 18 ), SPECIES_TYPE( 18 ), CONVERT_CONC( 18 ) / 18, 'GC', F / ! ETHP DATA CGRID_INDEX( 19 ), SPECIES_TYPE( 19 ), CONVERT_CONC( 19 ) / 19, 'GC', F / ! ACT DATA CGRID_INDEX( 20 ), SPECIES_TYPE( 20 ), CONVERT_CONC( 20 ) / 20, 'GC', F / ! ACO3 DATA CGRID_INDEX( 21 ), SPECIES_TYPE( 21 ), CONVERT_CONC( 21 ) / 21, 'GC', F / ! UALD DATA CGRID_INDEX( 22 ), SPECIES_TYPE( 22 ), CONVERT_CONC( 22 ) / 22, 'GC', F / ! KET DATA CGRID_INDEX( 23 ), SPECIES_TYPE( 23 ), CONVERT_CONC( 23 ) / 81, 'GC', F / ! PINAL DATA CGRID_INDEX( 24 ), SPECIES_TYPE( 24 ), CONVERT_CONC( 24 ) / 52, 'GC', F / ! HC10P DATA CGRID_INDEX( 25 ), SPECIES_TYPE( 25 ), CONVERT_CONC( 25 ) / 88, 'GC', F / ! LIMAL DATA CGRID_INDEX( 26 ), SPECIES_TYPE( 26 ), CONVERT_CONC( 26 ) / 23, 'GC', F / ! MEK DATA CGRID_INDEX( 27 ), SPECIES_TYPE( 27 ), CONVERT_CONC( 27 ) / 24, 'GC', F / ! HKET DATA CGRID_INDEX( 28 ), SPECIES_TYPE( 28 ), CONVERT_CONC( 28 ) / 25, 'GC', F / ! MACR DATA CGRID_INDEX( 29 ), SPECIES_TYPE( 29 ), CONVERT_CONC( 29 ) / 26, 'GC', F / ! MACP DATA CGRID_INDEX( 30 ), SPECIES_TYPE( 30 ), CONVERT_CONC( 30 ) / 27, 'GC', F / ! XO2 DATA CGRID_INDEX( 31 ), SPECIES_TYPE( 31 ), CONVERT_CONC( 31 ) / 28, 'GC', F / ! MVK DATA CGRID_INDEX( 32 ), SPECIES_TYPE( 32 ), CONVERT_CONC( 32 ) / 29, 'GC', F / ! GLY DATA CGRID_INDEX( 33 ), SPECIES_TYPE( 33 ), CONVERT_CONC( 33 ) / 30, 'GC', F / ! MGLY DATA CGRID_INDEX( 34 ), SPECIES_TYPE( 34 ), CONVERT_CONC( 34 ) / 31, 'GC', F / ! DCB1 DATA CGRID_INDEX( 35 ), SPECIES_TYPE( 35 ), CONVERT_CONC( 35 ) / 32, 'GC', F / ! DCB2 DATA CGRID_INDEX( 36 ), SPECIES_TYPE( 36 ), CONVERT_CONC( 36 ) / 33, 'GC', F / ! BALD DATA CGRID_INDEX( 37 ), SPECIES_TYPE( 37 ), CONVERT_CONC( 37 ) / 34, 'GC', F / ! CHO DATA CGRID_INDEX( 38 ), SPECIES_TYPE( 38 ), CONVERT_CONC( 38 ) / 35, 'GC', F / ! OP1 DATA CGRID_INDEX( 39 ), SPECIES_TYPE( 39 ), CONVERT_CONC( 39 ) / 36, 'GC', F / ! OP2 DATA CGRID_INDEX( 40 ), SPECIES_TYPE( 40 ), CONVERT_CONC( 40 ) / 37, 'GC', F / ! OPB DATA CGRID_INDEX( 41 ), SPECIES_TYPE( 41 ), CONVERT_CONC( 41 ) / 38, 'GC', F / ! OP3 DATA CGRID_INDEX( 42 ), SPECIES_TYPE( 42 ), CONVERT_CONC( 42 ) / 39, 'GC', F / ! PAA DATA CGRID_INDEX( 43 ), SPECIES_TYPE( 43 ), CONVERT_CONC( 43 ) / 40, 'GC', F / ! ONIT DATA CGRID_INDEX( 44 ), SPECIES_TYPE( 44 ), CONVERT_CONC( 44 ) / 41, 'GC', F / ! PAN DATA CGRID_INDEX( 45 ), SPECIES_TYPE( 45 ), CONVERT_CONC( 45 ) / 120, 'GC', F / ! TRPN DATA CGRID_INDEX( 46 ), SPECIES_TYPE( 46 ), CONVERT_CONC( 46 ) / 121, 'GC', F / ! HONIT DATA CGRID_INDEX( 47 ), SPECIES_TYPE( 47 ), CONVERT_CONC( 47 ) / 42, 'GC', F / ! N2O5 DATA CGRID_INDEX( 48 ), SPECIES_TYPE( 48 ), CONVERT_CONC( 48 ) / 43, 'GC', F / ! SO2 DATA CGRID_INDEX( 49 ), SPECIES_TYPE( 49 ), CONVERT_CONC( 49 ) / 44, 'GC', F / ! SULF DATA CGRID_INDEX( 50 ), SPECIES_TYPE( 50 ), CONVERT_CONC( 50 ) / 45, 'GC', F / ! SULRXN DATA CGRID_INDEX( 51 ), SPECIES_TYPE( 51 ), CONVERT_CONC( 51 ) / 46, 'GC', F / ! ETH DATA CGRID_INDEX( 52 ), SPECIES_TYPE( 52 ), CONVERT_CONC( 52 ) / 47, 'GC', F / ! HC3 DATA CGRID_INDEX( 53 ), SPECIES_TYPE( 53 ), CONVERT_CONC( 53 ) / 48, 'GC', F / ! HC3P DATA CGRID_INDEX( 54 ), SPECIES_TYPE( 54 ), CONVERT_CONC( 54 ) / 193, 'AE', T / ! ASOATJ DATA CGRID_INDEX( 55 ), SPECIES_TYPE( 55 ), CONVERT_CONC( 55 ) / 49, 'GC', F / ! HC5 DATA CGRID_INDEX( 56 ), SPECIES_TYPE( 56 ), CONVERT_CONC( 56 ) / 50, 'GC', F / ! HC5P DATA CGRID_INDEX( 57 ), SPECIES_TYPE( 57 ), CONVERT_CONC( 57 ) / 54, 'GC', F / ! ETE DATA CGRID_INDEX( 58 ), SPECIES_TYPE( 58 ), CONVERT_CONC( 58 ) / 55, 'GC', F / ! ETEP DATA CGRID_INDEX( 59 ), SPECIES_TYPE( 59 ), CONVERT_CONC( 59 ) / 56, 'GC', F / ! OLT DATA CGRID_INDEX( 60 ), SPECIES_TYPE( 60 ), CONVERT_CONC( 60 ) / 57, 'GC', F / ! OLTP DATA CGRID_INDEX( 61 ), SPECIES_TYPE( 61 ), CONVERT_CONC( 61 ) / 58, 'GC', F / ! OLI DATA CGRID_INDEX( 62 ), SPECIES_TYPE( 62 ), CONVERT_CONC( 62 ) / 59, 'GC', F / ! OLIP DATA CGRID_INDEX( 63 ), SPECIES_TYPE( 63 ), CONVERT_CONC( 63 ) / 60, 'GC', F / ! ACE DATA CGRID_INDEX( 64 ), SPECIES_TYPE( 64 ), CONVERT_CONC( 64 ) / 61, 'GC', F / ! ORA1 DATA CGRID_INDEX( 65 ), SPECIES_TYPE( 65 ), CONVERT_CONC( 65 ) / 62, 'GC', F / ! BEN DATA CGRID_INDEX( 66 ), SPECIES_TYPE( 66 ), CONVERT_CONC( 66 ) / 63, 'GC', F / ! BENP DATA CGRID_INDEX( 67 ), SPECIES_TYPE( 67 ), CONVERT_CONC( 67 ) / 64, 'GC', F / ! PHEN DATA CGRID_INDEX( 68 ), SPECIES_TYPE( 68 ), CONVERT_CONC( 68 ) / 65, 'GC', F / ! TOL DATA CGRID_INDEX( 69 ), SPECIES_TYPE( 69 ), CONVERT_CONC( 69 ) / 70, 'GC', F / ! TOLP DATA CGRID_INDEX( 70 ), SPECIES_TYPE( 70 ), CONVERT_CONC( 70 ) / 66, 'GC', F / ! CSL DATA CGRID_INDEX( 71 ), SPECIES_TYPE( 71 ), CONVERT_CONC( 71 ) / 67, 'GC', F / ! XYL DATA CGRID_INDEX( 72 ), SPECIES_TYPE( 72 ), CONVERT_CONC( 72 ) / 71, 'GC', F / ! XYLP DATA CGRID_INDEX( 73 ), SPECIES_TYPE( 73 ), CONVERT_CONC( 73 ) / 68, 'GC', F / ! EBZ DATA CGRID_INDEX( 74 ), SPECIES_TYPE( 74 ), CONVERT_CONC( 74 ) / 72, 'GC', F / ! EBZP DATA CGRID_INDEX( 75 ), SPECIES_TYPE( 75 ), CONVERT_CONC( 75 ) / 74, 'GC', F / ! ISO DATA CGRID_INDEX( 76 ), SPECIES_TYPE( 76 ), CONVERT_CONC( 76 ) / 118, 'GC', F / ! ISON DATA CGRID_INDEX( 77 ), SPECIES_TYPE( 77 ), CONVERT_CONC( 77 ) / 117, 'GC', F / ! INO2 DATA CGRID_INDEX( 78 ), SPECIES_TYPE( 78 ), CONVERT_CONC( 78 ) / 75, 'GC', F / ! ISOP DATA CGRID_INDEX( 79 ), SPECIES_TYPE( 79 ), CONVERT_CONC( 79 ) / 108, 'GC', F / ! ISHP DATA CGRID_INDEX( 80 ), SPECIES_TYPE( 80 ), CONVERT_CONC( 80 ) / 109, 'GC', F / ! IEPOX DATA CGRID_INDEX( 81 ), SPECIES_TYPE( 81 ), CONVERT_CONC( 81 ) / 119, 'GC', F / ! IPX DATA CGRID_INDEX( 82 ), SPECIES_TYPE( 82 ), CONVERT_CONC( 82 ) / 116, 'GC', F / ! INALD DATA CGRID_INDEX( 83 ), SPECIES_TYPE( 83 ), CONVERT_CONC( 83 ) / 106, 'GC', F / ! ROH DATA CGRID_INDEX( 84 ), SPECIES_TYPE( 84 ), CONVERT_CONC( 84 ) / 76, 'GC', F / ! API DATA CGRID_INDEX( 85 ), SPECIES_TYPE( 85 ), CONVERT_CONC( 85 ) / 77, 'GC', F / ! APIP1 DATA CGRID_INDEX( 86 ), SPECIES_TYPE( 86 ), CONVERT_CONC( 86 ) / 78, 'GC', F / ! APIP2 DATA CGRID_INDEX( 87 ), SPECIES_TYPE( 87 ), CONVERT_CONC( 87 ) / 83, 'GC', F / ! LIM DATA CGRID_INDEX( 88 ), SPECIES_TYPE( 88 ), CONVERT_CONC( 88 ) / 84, 'GC', F / ! LIMP1 DATA CGRID_INDEX( 89 ), SPECIES_TYPE( 89 ), CONVERT_CONC( 89 ) / 85, 'GC', F / ! LIMP2 DATA CGRID_INDEX( 90 ), SPECIES_TYPE( 90 ), CONVERT_CONC( 90 ) / 82, 'GC', F / ! PINALP DATA CGRID_INDEX( 91 ), SPECIES_TYPE( 91 ), CONVERT_CONC( 91 ) / 92, 'GC', F / ! RCO3 DATA CGRID_INDEX( 92 ), SPECIES_TYPE( 92 ), CONVERT_CONC( 92 ) / 89, 'GC', F / ! LIMALP DATA CGRID_INDEX( 93 ), SPECIES_TYPE( 93 ), CONVERT_CONC( 93 ) / 93, 'GC', F / ! ACTP DATA CGRID_INDEX( 94 ), SPECIES_TYPE( 94 ), CONVERT_CONC( 94 ) / 94, 'GC', F / ! MEKP DATA CGRID_INDEX( 95 ), SPECIES_TYPE( 95 ), CONVERT_CONC( 95 ) / 95, 'GC', F / ! KETP DATA CGRID_INDEX( 96 ), SPECIES_TYPE( 96 ), CONVERT_CONC( 96 ) / 96, 'GC', F / ! MCP DATA CGRID_INDEX( 97 ), SPECIES_TYPE( 97 ), CONVERT_CONC( 97 ) / 97, 'GC', F / ! MVKP DATA CGRID_INDEX( 98 ), SPECIES_TYPE( 98 ), CONVERT_CONC( 98 ) / 98, 'GC', F / ! UALP DATA CGRID_INDEX( 99 ), SPECIES_TYPE( 99 ), CONVERT_CONC( 99 ) / 99, 'GC', F / ! DCB3 DATA CGRID_INDEX( 100 ), SPECIES_TYPE( 100 ), CONVERT_CONC( 100 ) / 100, 'GC', F / ! BALP DATA CGRID_INDEX( 101 ), SPECIES_TYPE( 101 ), CONVERT_CONC( 101 ) / 101, 'GC', F / ! ADDC DATA CGRID_INDEX( 102 ), SPECIES_TYPE( 102 ), CONVERT_CONC( 102 ) / 102, 'GC', F / ! MCT DATA CGRID_INDEX( 103 ), SPECIES_TYPE( 103 ), CONVERT_CONC( 103 ) / 103, 'GC', F / ! MCTO DATA CGRID_INDEX( 104 ), SPECIES_TYPE( 104 ), CONVERT_CONC( 104 ) / 104, 'GC', F / ! MOH DATA CGRID_INDEX( 105 ), SPECIES_TYPE( 105 ), CONVERT_CONC( 105 ) / 105, 'GC', F / ! EOH DATA CGRID_INDEX( 106 ), SPECIES_TYPE( 106 ), CONVERT_CONC( 106 ) / 107, 'GC', F / ! ETEG DATA CGRID_INDEX( 107 ), SPECIES_TYPE( 107 ), CONVERT_CONC( 107 ) / 111, 'GC', F / ! MAHP DATA CGRID_INDEX( 108 ), SPECIES_TYPE( 108 ), CONVERT_CONC( 108 ) / 112, 'GC', F / ! ORA2 DATA CGRID_INDEX( 109 ), SPECIES_TYPE( 109 ), CONVERT_CONC( 109 ) / 113, 'GC', F / ! ORAP DATA CGRID_INDEX( 110 ), SPECIES_TYPE( 110 ), CONVERT_CONC( 110 ) / 114, 'GC', F / ! PPN DATA CGRID_INDEX( 111 ), SPECIES_TYPE( 111 ), CONVERT_CONC( 111 ) / 115, 'GC', F / ! MPAN DATA CGRID_INDEX( 112 ), SPECIES_TYPE( 112 ), CONVERT_CONC( 112 ) / 122, 'GC', F / ! MCTP DATA CGRID_INDEX( 113 ), SPECIES_TYPE( 113 ), CONVERT_CONC( 113 ) / 123, 'GC', F / ! OLNN DATA CGRID_INDEX( 114 ), SPECIES_TYPE( 114 ), CONVERT_CONC( 114 ) / 124, 'GC', F / ! OLND DATA CGRID_INDEX( 115 ), SPECIES_TYPE( 115 ), CONVERT_CONC( 115 ) / 79, 'GC', F / ! APINP1 DATA CGRID_INDEX( 116 ), SPECIES_TYPE( 116 ), CONVERT_CONC( 116 ) / 80, 'GC', F / ! APINP2 DATA CGRID_INDEX( 117 ), SPECIES_TYPE( 117 ), CONVERT_CONC( 117 ) / 86, 'GC', F / ! LIMNP1 DATA CGRID_INDEX( 118 ), SPECIES_TYPE( 118 ), CONVERT_CONC( 118 ) / 87, 'GC', F / ! LIMNP2 DATA CGRID_INDEX( 119 ), SPECIES_TYPE( 119 ), CONVERT_CONC( 119 ) / 125, 'GC', F / ! ADCN DATA CGRID_INDEX( 120 ), SPECIES_TYPE( 120 ), CONVERT_CONC( 120 ) / 90, 'GC', F / ! HOM DATA CGRID_INDEX( 121 ), SPECIES_TYPE( 121 ), CONVERT_CONC( 121 ) / 179, 'GC', F / ! VROCP4OXY2 DATA CGRID_INDEX( 122 ), SPECIES_TYPE( 122 ), CONVERT_CONC( 122 ) / 172, 'GC', F / ! VROCN1OXY6 DATA CGRID_INDEX( 123 ), SPECIES_TYPE( 123 ), CONVERT_CONC( 123 ) / 134, 'GC', F / ! FURANONE DATA CGRID_INDEX( 124 ), SPECIES_TYPE( 124 ), CONVERT_CONC( 124 ) / 178, 'GC', F / ! VROCP3OXY2 DATA CGRID_INDEX( 125 ), SPECIES_TYPE( 125 ), CONVERT_CONC( 125 ) / 174, 'GC', F / ! VROCP0OXY4 DATA CGRID_INDEX( 126 ), SPECIES_TYPE( 126 ), CONVERT_CONC( 126 ) / 126, 'GC', F / ! BAL1 DATA CGRID_INDEX( 127 ), SPECIES_TYPE( 127 ), CONVERT_CONC( 127 ) / 127, 'GC', F / ! BAL2 DATA CGRID_INDEX( 128 ), SPECIES_TYPE( 128 ), CONVERT_CONC( 128 ) / 91, 'GC', F / ! ELHOM DATA CGRID_INDEX( 129 ), SPECIES_TYPE( 129 ), CONVERT_CONC( 129 ) / 135, 'GC', F / ! VROCIOXY DATA CGRID_INDEX( 130 ), SPECIES_TYPE( 130 ), CONVERT_CONC( 130 ) / 136, 'GC', F / ! SLOWROC DATA CGRID_INDEX( 131 ), SPECIES_TYPE( 131 ), CONVERT_CONC( 131 ) / 128, 'GC', F / ! ACRO DATA CGRID_INDEX( 132 ), SPECIES_TYPE( 132 ), CONVERT_CONC( 132 ) / 129, 'GC', F / ! BDE13 DATA CGRID_INDEX( 133 ), SPECIES_TYPE( 133 ), CONVERT_CONC( 133 ) / 130, 'GC', F / ! BDE13P DATA CGRID_INDEX( 134 ), SPECIES_TYPE( 134 ), CONVERT_CONC( 134 ) / 132, 'GC', F / ! FURAN DATA CGRID_INDEX( 135 ), SPECIES_TYPE( 135 ), CONVERT_CONC( 135 ) / 133, 'GC', F / ! FURANO2 DATA CGRID_INDEX( 136 ), SPECIES_TYPE( 136 ), CONVERT_CONC( 136 ) / 131, 'GC', F / ! PROG DATA CGRID_INDEX( 137 ), SPECIES_TYPE( 137 ), CONVERT_CONC( 137 ) / 137, 'GC', F / ! SESQ DATA CGRID_INDEX( 138 ), SPECIES_TYPE( 138 ), CONVERT_CONC( 138 ) / 139, 'GC', F / ! SESQNRO2 DATA CGRID_INDEX( 139 ), SPECIES_TYPE( 139 ), CONVERT_CONC( 139 ) / 167, 'GC', F / ! VROCN2OXY2 DATA CGRID_INDEX( 140 ), SPECIES_TYPE( 140 ), CONVERT_CONC( 140 ) / 138, 'GC', F / ! SESQRO2 DATA CGRID_INDEX( 141 ), SPECIES_TYPE( 141 ), CONVERT_CONC( 141 ) / 173, 'GC', F / ! VROCP0OXY2 DATA CGRID_INDEX( 142 ), SPECIES_TYPE( 142 ), CONVERT_CONC( 142 ) / 176, 'GC', F / ! VROCP1OXY3 DATA CGRID_INDEX( 143 ), SPECIES_TYPE( 143 ), CONVERT_CONC( 143 ) / 194, 'AE', T / ! AGLYJ DATA CGRID_INDEX( 144 ), SPECIES_TYPE( 144 ), CONVERT_CONC( 144 ) / 110, 'GC', F / ! IEPOXP DATA CGRID_INDEX( 145 ), SPECIES_TYPE( 145 ), CONVERT_CONC( 145 ) / 268, 'AE', T / ! AISO3NOSJ DATA CGRID_INDEX( 146 ), SPECIES_TYPE( 146 ), CONVERT_CONC( 146 ) / 185, 'AE', T / ! ASO4J DATA CGRID_INDEX( 147 ), SPECIES_TYPE( 147 ), CONVERT_CONC( 147 ) / 269, 'AE', T / ! AISO3OSJ DATA CGRID_INDEX( 148 ), SPECIES_TYPE( 148 ), CONVERT_CONC( 148 ) / 270, 'AE', T / ! AISO4J DATA CGRID_INDEX( 149 ), SPECIES_TYPE( 149 ), CONVERT_CONC( 149 ) / 271, 'AE', T / ! AISO5J DATA CGRID_INDEX( 150 ), SPECIES_TYPE( 150 ), CONVERT_CONC( 150 ) / 154, 'GC', F / ! VROCP6ALK DATA CGRID_INDEX( 151 ), SPECIES_TYPE( 151 ), CONVERT_CONC( 151 ) / 160, 'GC', F / ! VROCP6ALKP DATA CGRID_INDEX( 152 ), SPECIES_TYPE( 152 ), CONVERT_CONC( 152 ) / 153, 'GC', F / ! VROCP5ALK DATA CGRID_INDEX( 153 ), SPECIES_TYPE( 153 ), CONVERT_CONC( 153 ) / 159, 'GC', F / ! VROCP5ALKP DATA CGRID_INDEX( 154 ), SPECIES_TYPE( 154 ), CONVERT_CONC( 154 ) / 152, 'GC', F / ! VROCP4ALK DATA CGRID_INDEX( 155 ), SPECIES_TYPE( 155 ), CONVERT_CONC( 155 ) / 158, 'GC', F / ! VROCP4ALKP DATA CGRID_INDEX( 156 ), SPECIES_TYPE( 156 ), CONVERT_CONC( 156 ) / 151, 'GC', F / ! VROCP3ALK DATA CGRID_INDEX( 157 ), SPECIES_TYPE( 157 ), CONVERT_CONC( 157 ) / 157, 'GC', F / ! VROCP3ALKP DATA CGRID_INDEX( 158 ), SPECIES_TYPE( 158 ), CONVERT_CONC( 158 ) / 150, 'GC', F / ! VROCP2ALK DATA CGRID_INDEX( 159 ), SPECIES_TYPE( 159 ), CONVERT_CONC( 159 ) / 156, 'GC', F / ! VROCP2ALKP DATA CGRID_INDEX( 160 ), SPECIES_TYPE( 160 ), CONVERT_CONC( 160 ) / 149, 'GC', F / ! VROCP1ALK DATA CGRID_INDEX( 161 ), SPECIES_TYPE( 161 ), CONVERT_CONC( 161 ) / 155, 'GC', F / ! VROCP1ALKP DATA CGRID_INDEX( 162 ), SPECIES_TYPE( 162 ), CONVERT_CONC( 162 ) / 51, 'GC', F / ! HC10 DATA CGRID_INDEX( 163 ), SPECIES_TYPE( 163 ), CONVERT_CONC( 163 ) / 166, 'GC', F / ! VROCP6ALKP2 DATA CGRID_INDEX( 164 ), SPECIES_TYPE( 164 ), CONVERT_CONC( 164 ) / 165, 'GC', F / ! VROCP5ALKP2 DATA CGRID_INDEX( 165 ), SPECIES_TYPE( 165 ), CONVERT_CONC( 165 ) / 164, 'GC', F / ! VROCP4ALKP2 DATA CGRID_INDEX( 166 ), SPECIES_TYPE( 166 ), CONVERT_CONC( 166 ) / 177, 'GC', F / ! VROCP2OXY2 DATA CGRID_INDEX( 167 ), SPECIES_TYPE( 167 ), CONVERT_CONC( 167 ) / 163, 'GC', F / ! VROCP3ALKP2 DATA CGRID_INDEX( 168 ), SPECIES_TYPE( 168 ), CONVERT_CONC( 168 ) / 175, 'GC', F / ! VROCP1OXY1 DATA CGRID_INDEX( 169 ), SPECIES_TYPE( 169 ), CONVERT_CONC( 169 ) / 162, 'GC', F / ! VROCP2ALKP2 DATA CGRID_INDEX( 170 ), SPECIES_TYPE( 170 ), CONVERT_CONC( 170 ) / 161, 'GC', F / ! VROCP1ALKP2 DATA CGRID_INDEX( 171 ), SPECIES_TYPE( 171 ), CONVERT_CONC( 171 ) / 170, 'GC', F / ! VROCN1OXY1 DATA CGRID_INDEX( 172 ), SPECIES_TYPE( 172 ), CONVERT_CONC( 172 ) / 53, 'GC', F / ! HC10P2 DATA CGRID_INDEX( 173 ), SPECIES_TYPE( 173 ), CONVERT_CONC( 173 ) / 143, 'GC', F / ! VROCP6ARO DATA CGRID_INDEX( 174 ), SPECIES_TYPE( 174 ), CONVERT_CONC( 174 ) / 145, 'GC', F / ! VROCP6AROP DATA CGRID_INDEX( 175 ), SPECIES_TYPE( 175 ), CONVERT_CONC( 175 ) / 168, 'GC', F / ! VROCN2OXY4 DATA CGRID_INDEX( 176 ), SPECIES_TYPE( 176 ), CONVERT_CONC( 176 ) / 171, 'GC', F / ! VROCN1OXY3 DATA CGRID_INDEX( 177 ), SPECIES_TYPE( 177 ), CONVERT_CONC( 177 ) / 142, 'GC', F / ! VROCP5ARO DATA CGRID_INDEX( 178 ), SPECIES_TYPE( 178 ), CONVERT_CONC( 178 ) / 144, 'GC', F / ! VROCP5AROP DATA CGRID_INDEX( 179 ), SPECIES_TYPE( 179 ), CONVERT_CONC( 179 ) / 140, 'GC', F / ! NAPH DATA CGRID_INDEX( 180 ), SPECIES_TYPE( 180 ), CONVERT_CONC( 180 ) / 141, 'GC', F / ! NAPHP DATA CGRID_INDEX( 181 ), SPECIES_TYPE( 181 ), CONVERT_CONC( 181 ) / 169, 'GC', F / ! VROCN2OXY8 DATA CGRID_INDEX( 182 ), SPECIES_TYPE( 182 ), CONVERT_CONC( 182 ) / 180, 'GC', F / ! VROCP5OXY1 DATA CGRID_INDEX( 183 ), SPECIES_TYPE( 183 ), CONVERT_CONC( 183 ) / 181, 'GC', F / ! VROCP6OXY1 DATA CGRID_INDEX( 184 ), SPECIES_TYPE( 184 ), CONVERT_CONC( 184 ) / 182, 'GC', F / ! ECH4 DATA CGRID_INDEX( 185 ), SPECIES_TYPE( 185 ), CONVERT_CONC( 185 ) / 272, 'AE', T / ! ATRPNJ DATA CGRID_INDEX( 186 ), SPECIES_TYPE( 186 ), CONVERT_CONC( 186 ) / 195, 'AE', T / ! AHOMJ DATA CGRID_INDEX( 187 ), SPECIES_TYPE( 187 ), CONVERT_CONC( 187 ) / 273, 'AE', T / ! AHONITJ DATA CGRID_INDEX( 188 ), SPECIES_TYPE( 188 ), CONVERT_CONC( 188 ) / 69, 'GC', F / ! STY DATA CGRID_INDEX( 189 ), SPECIES_TYPE( 189 ), CONVERT_CONC( 189 ) / 73, 'GC', F / ! STYP ! The below integers define the locations of mechanism species in the solver ! concentration array. INTEGER :: INDEX_O3 = 1 INTEGER :: INDEX_O3P = 2 INTEGER :: INDEX_O1D = 3 INTEGER :: INDEX_H2O2 = 4 INTEGER :: INDEX_HO = 5 INTEGER :: INDEX_NO2 = 6 INTEGER :: INDEX_NO = 7 INTEGER :: INDEX_NO3 = 8 INTEGER :: INDEX_HONO = 9 INTEGER :: INDEX_HNO3 = 10 INTEGER :: INDEX_HNO4 = 11 INTEGER :: INDEX_HO2 = 12 INTEGER :: INDEX_HCHO = 13 INTEGER :: INDEX_CO = 14 INTEGER :: INDEX_ACD = 15 INTEGER :: INDEX_MO2 = 16 INTEGER :: INDEX_ALD = 17 INTEGER :: INDEX_ETHP = 18 INTEGER :: INDEX_ACT = 19 INTEGER :: INDEX_ACO3 = 20 INTEGER :: INDEX_UALD = 21 INTEGER :: INDEX_KET = 22 INTEGER :: INDEX_PINAL = 23 INTEGER :: INDEX_HC10P = 24 INTEGER :: INDEX_LIMAL = 25 INTEGER :: INDEX_MEK = 26 INTEGER :: INDEX_HKET = 27 INTEGER :: INDEX_MACR = 28 INTEGER :: INDEX_MACP = 29 INTEGER :: INDEX_XO2 = 30 INTEGER :: INDEX_MVK = 31 INTEGER :: INDEX_GLY = 32 INTEGER :: INDEX_MGLY = 33 INTEGER :: INDEX_DCB1 = 34 INTEGER :: INDEX_DCB2 = 35 INTEGER :: INDEX_BALD = 36 INTEGER :: INDEX_CHO = 37 INTEGER :: INDEX_OP1 = 38 INTEGER :: INDEX_OP2 = 39 INTEGER :: INDEX_OPB = 40 INTEGER :: INDEX_OP3 = 41 INTEGER :: INDEX_PAA = 42 INTEGER :: INDEX_ONIT = 43 INTEGER :: INDEX_PAN = 44 INTEGER :: INDEX_TRPN = 45 INTEGER :: INDEX_HONIT = 46 INTEGER :: INDEX_N2O5 = 47 INTEGER :: INDEX_SO2 = 48 INTEGER :: INDEX_SULF = 49 INTEGER :: INDEX_SULRXN = 50 INTEGER :: INDEX_ETH = 51 INTEGER :: INDEX_HC3 = 52 INTEGER :: INDEX_HC3P = 53 INTEGER :: INDEX_ASOATJ = 54 INTEGER :: INDEX_HC5 = 55 INTEGER :: INDEX_HC5P = 56 INTEGER :: INDEX_ETE = 57 INTEGER :: INDEX_ETEP = 58 INTEGER :: INDEX_OLT = 59 INTEGER :: INDEX_OLTP = 60 INTEGER :: INDEX_OLI = 61 INTEGER :: INDEX_OLIP = 62 INTEGER :: INDEX_ACE = 63 INTEGER :: INDEX_ORA1 = 64 INTEGER :: INDEX_BEN = 65 INTEGER :: INDEX_BENP = 66 INTEGER :: INDEX_PHEN = 67 INTEGER :: INDEX_TOL = 68 INTEGER :: INDEX_TOLP = 69 INTEGER :: INDEX_CSL = 70 INTEGER :: INDEX_XYL = 71 INTEGER :: INDEX_XYLP = 72 INTEGER :: INDEX_EBZ = 73 INTEGER :: INDEX_EBZP = 74 INTEGER :: INDEX_ISO = 75 INTEGER :: INDEX_ISON = 76 INTEGER :: INDEX_INO2 = 77 INTEGER :: INDEX_ISOP = 78 INTEGER :: INDEX_ISHP = 79 INTEGER :: INDEX_IEPOX = 80 INTEGER :: INDEX_IPX = 81 INTEGER :: INDEX_INALD = 82 INTEGER :: INDEX_ROH = 83 INTEGER :: INDEX_API = 84 INTEGER :: INDEX_APIP1 = 85 INTEGER :: INDEX_APIP2 = 86 INTEGER :: INDEX_LIM = 87 INTEGER :: INDEX_LIMP1 = 88 INTEGER :: INDEX_LIMP2 = 89 INTEGER :: INDEX_PINALP = 90 INTEGER :: INDEX_RCO3 = 91 INTEGER :: INDEX_LIMALP = 92 INTEGER :: INDEX_ACTP = 93 INTEGER :: INDEX_MEKP = 94 INTEGER :: INDEX_KETP = 95 INTEGER :: INDEX_MCP = 96 INTEGER :: INDEX_MVKP = 97 INTEGER :: INDEX_UALP = 98 INTEGER :: INDEX_DCB3 = 99 INTEGER :: INDEX_BALP = 100 INTEGER :: INDEX_ADDC = 101 INTEGER :: INDEX_MCT = 102 INTEGER :: INDEX_MCTO = 103 INTEGER :: INDEX_MOH = 104 INTEGER :: INDEX_EOH = 105 INTEGER :: INDEX_ETEG = 106 INTEGER :: INDEX_MAHP = 107 INTEGER :: INDEX_ORA2 = 108 INTEGER :: INDEX_ORAP = 109 INTEGER :: INDEX_PPN = 110 INTEGER :: INDEX_MPAN = 111 INTEGER :: INDEX_MCTP = 112 INTEGER :: INDEX_OLNN = 113 INTEGER :: INDEX_OLND = 114 INTEGER :: INDEX_APINP1 = 115 INTEGER :: INDEX_APINP2 = 116 INTEGER :: INDEX_LIMNP1 = 117 INTEGER :: INDEX_LIMNP2 = 118 INTEGER :: INDEX_ADCN = 119 INTEGER :: INDEX_HOM = 120 INTEGER :: INDEX_VROCP4OXY2 = 121 INTEGER :: INDEX_VROCN1OXY6 = 122 INTEGER :: INDEX_FURANONE = 123 INTEGER :: INDEX_VROCP3OXY2 = 124 INTEGER :: INDEX_VROCP0OXY4 = 125 INTEGER :: INDEX_BAL1 = 126 INTEGER :: INDEX_BAL2 = 127 INTEGER :: INDEX_ELHOM = 128 INTEGER :: INDEX_VROCIOXY = 129 INTEGER :: INDEX_SLOWROC = 130 INTEGER :: INDEX_ACRO = 131 INTEGER :: INDEX_BDE13 = 132 INTEGER :: INDEX_BDE13P = 133 INTEGER :: INDEX_FURAN = 134 INTEGER :: INDEX_FURANO2 = 135 INTEGER :: INDEX_PROG = 136 INTEGER :: INDEX_SESQ = 137 INTEGER :: INDEX_SESQNRO2 = 138 INTEGER :: INDEX_VROCN2OXY2 = 139 INTEGER :: INDEX_SESQRO2 = 140 INTEGER :: INDEX_VROCP0OXY2 = 141 INTEGER :: INDEX_VROCP1OXY3 = 142 INTEGER :: INDEX_AGLYJ = 143 INTEGER :: INDEX_IEPOXP = 144 INTEGER :: INDEX_AISO3NOSJ = 145 INTEGER :: INDEX_ASO4J = 146 INTEGER :: INDEX_AISO3OSJ = 147 INTEGER :: INDEX_AISO4J = 148 INTEGER :: INDEX_AISO5J = 149 INTEGER :: INDEX_VROCP6ALK = 150 INTEGER :: INDEX_VROCP6ALKP = 151 INTEGER :: INDEX_VROCP5ALK = 152 INTEGER :: INDEX_VROCP5ALKP = 153 INTEGER :: INDEX_VROCP4ALK = 154 INTEGER :: INDEX_VROCP4ALKP = 155 INTEGER :: INDEX_VROCP3ALK = 156 INTEGER :: INDEX_VROCP3ALKP = 157 INTEGER :: INDEX_VROCP2ALK = 158 INTEGER :: INDEX_VROCP2ALKP = 159 INTEGER :: INDEX_VROCP1ALK = 160 INTEGER :: INDEX_VROCP1ALKP = 161 INTEGER :: INDEX_HC10 = 162 INTEGER :: INDEX_VROCP6ALKP2 = 163 INTEGER :: INDEX_VROCP5ALKP2 = 164 INTEGER :: INDEX_VROCP4ALKP2 = 165 INTEGER :: INDEX_VROCP2OXY2 = 166 INTEGER :: INDEX_VROCP3ALKP2 = 167 INTEGER :: INDEX_VROCP1OXY1 = 168 INTEGER :: INDEX_VROCP2ALKP2 = 169 INTEGER :: INDEX_VROCP1ALKP2 = 170 INTEGER :: INDEX_VROCN1OXY1 = 171 INTEGER :: INDEX_HC10P2 = 172 INTEGER :: INDEX_VROCP6ARO = 173 INTEGER :: INDEX_VROCP6AROP = 174 INTEGER :: INDEX_VROCN2OXY4 = 175 INTEGER :: INDEX_VROCN1OXY3 = 176 INTEGER :: INDEX_VROCP5ARO = 177 INTEGER :: INDEX_VROCP5AROP = 178 INTEGER :: INDEX_NAPH = 179 INTEGER :: INDEX_NAPHP = 180 INTEGER :: INDEX_VROCN2OXY8 = 181 INTEGER :: INDEX_VROCP5OXY1 = 182 INTEGER :: INDEX_VROCP6OXY1 = 183 INTEGER :: INDEX_ECH4 = 184 INTEGER :: INDEX_ATRPNJ = 185 INTEGER :: INDEX_AHOMJ = 186 INTEGER :: INDEX_AHONITJ = 187 INTEGER :: INDEX_STY = 188 INTEGER :: INDEX_STYP = 189 INTEGER, PARAMETER :: N_ACT_SP = 189 INTEGER, PARAMETER :: NRXNS = 531 INTEGER, PARAMETER :: ONE_REACT_REACTIONS = 0 INTEGER, PARAMETER :: TWO_REACT_REACTIONS = 0 INTEGER, PARAMETER :: THREE_REACT_REACTIONS = 0 INTEGER, PARAMETER :: ZERO_REACT_REACTIONS = 0 LOGICAL, PARAMETER :: UNITARY_REACTIONS = .FALSE. INTEGER, PARAMETER :: ONE_REACT_START = 0 INTEGER, PARAMETER :: ONE_REACT_STOP = -1 LOGICAL, PARAMETER :: BINARY_REACTIONS = .FALSE. INTEGER, PARAMETER :: TWO_REACT_START = 0 INTEGER, PARAMETER :: TWO_REACT_STOP = -1 LOGICAL, PARAMETER :: TERNARY_REACTIONS = .FALSE. INTEGER, PARAMETER :: THREE_REACT_START = 0 INTEGER, PARAMETER :: THREE_REACT_STOP = -1 LOGICAL, PARAMETER :: NULL_REACTIONS = .FALSE. INTEGER, PARAMETER :: ZERO_REACT_START = 0 INTEGER, PARAMETER :: ZERO_REACT_STOP = -1 INTEGER, PARAMETER :: NSUNLIGHT_RXNS = 42 INTEGER, PARAMETER :: NTHERMAL_RXNS = 489 INTEGER, PARAMETER :: KUNITS = 2 INTEGER :: IRXXN INTEGER, PARAMETER :: NMPHOT = 41 INTEGER :: IPH( NMPHOT,3 ) DATA ( IPH( IRXXN,1 ), IRXXN = 1, NMPHOT ) / & & 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, & & 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, & & 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, & & 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, & & 396/ DATA ( IPH( IRXXN,2 ), IRXXN = 1, NMPHOT ) / & & 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, & & 11, 12, 13, 14, 15, 16, 13, 13, 17, 18, & & 19, 20, 21, 22, 23, 24, 25, 25, 25, 26, & & 27, 27, 27, 27, 28, 29, 30, 31, 29, 29, & & 32/ DATA ( IPH( IRXXN,3 ), IRXXN = 1, NMPHOT ) / & & 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, & & 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, & & 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, & & 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, & & 41/ REAL( 8 ) :: RTDAT( 3,NRXNS ) INTEGER, PARAMETER :: NFALLOFF = 18 REAL( 8 ) :: RFDAT( 5,NFALLOFF ) INTEGER :: KTYPE( NRXNS ) DATA ( KTYPE( IRXXN ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 3, 3, 3, 3, 2, 3, 3, 3, 3, 3, & ! 4 & 3, 9, 9, 3, 10, 10, 3, 9, 3, 3, & ! 5 & 3, 10, 10, 8, 1, 1, 3, 3, 3, 10, & ! 6 & 5, 1, 10, 5, 3, 10, 9, 3, 3, 3, & ! 7 & 3, 10, 3, 3, 10, 3, 3, 1, 1, 3, & ! 8 & 3, 3, 3, 3, 3, 3, 3, 3, 3, 1, & ! 9 & 1, 1, 3, 3, 3, 1, 3, 3, 3, 4, & ! O & 3, 3, 1, 3, 3, 3, 1, 3, 3, 3, & ! 1 & 1, 3, 3, 3, 3, 3, 3, 3, 1, 3, & ! 2 & 3, 3, 3, 1, 1, 3, 3, 1, 1, 1, & ! 3 & 3, 1, 8, 3, 3, 3, 3, 3, 1, 1, & ! 4 & 3, 3, 1, 1, 1, 1, 1, 4, 3, 3, & ! 5 & 3, 1, 3, 3, 3, 3, 1, 3, 3, 3, & ! 6 & 1, 1, 1, 3, 1, 1, 10, 5, 10, 5, & ! 7 & 3, 3, 3, 3, 1, 1, 1, 1, 1, 3, & ! 8 & 3, 3, 3, 3, 1, 3, 1, 3, 1, 3, & ! 9 & 1, 3, 3, 3, 3, 3, 1, 1, 3, 3, & ! O & 3, 3, 1, 1, 3, 3, 1, 1, 1, 3, & ! 1 & 1, 1, 1, 1, 3, 3, 3, 3, 3, 3, & ! 2 & 3, 3, 3, 3, 3, 3, 1, 3, 1, 3, & ! 3 & 1, 3, 1, 3, 3, 3, 3, 3, 3, 3, & ! 4 & 3, 3, 3, 3, 3, 1, 3, 3, 3, 3, & ! 5 & 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, & ! 6 & 3, 3, 3, 3, 1, 1, 1, 1, 1, 1, & ! 7 & 1, 1, 3, 3, 3, 3, 3, 3, 3, 1, & ! 8 & 3, 3, 3, 3, 3, 3, 3, 3, 1, 3, & ! 9 & 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, & ! O & 3, 3, 1, 3, 1, 3, 1, 3, 1, 3, & ! 1 & 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, & ! 2 & 3, 3, 3, 3, 3, 3, 3, 3, 1, 1, & ! 3 & 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, & ! 4 & 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, & ! 5 & 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, & ! 6 & 1, 3, 3, 3, 1, 3, 3, 1, 1, 1, & ! 7 & 1, 1, 1, 1, 1, 1, 1, 1, 1, 3, & ! 8 & 1, 1, 3, 1, 1, 0, 3, 1, 1, 1, & ! 9 & 1, 1, 3, 1, 1, 3, 3, 1, 1, 1, & ! O & 1, 1, 3, 3, 1, 1, 1, 3, 1, 3, & ! 1 & -1, -1, -1, -1, -1, -1, 12, -1, -1, -1, & ! 2 & -1, -1, 1, 1, 1, 1, 1, 1, 1, 3, & ! 3 & 3, 3, 3, 3, 3, 3, 1, 1, 1, 1, & ! 4 & 1, 1, 1, 1, 1, 1, 1, 1, 1, 3, & ! 5 & 1, 1, 1, 1, 1, 1, 1, 3, 3, 3, & ! 6 & 3, 3, 3, 3, 1, 1, 1, 1, 1, 1, & ! 7 & 1, 1, 1, 1, 1, 1, 1, 3, 1, 3, & ! 8 & 3, 1, 3, 3, 1, 3, 3, 1, 3, 3, & ! 9 & 1, 3, 3, 1, 3, 3, 1, 1, 1, 1, & ! O & 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, & ! 1 & 1, 1, 3, 1, 1, 1, 3, 3, 1, 1, & ! 2 & 1/ ! 3 INTEGER :: IRXBITS( NRXNS ) DATA ( IRXBITS( IRXXN ), IRXXN = 1, NRXNS ) / & & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! O & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 1 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 2 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 3 & 0, 0, 0, 0, 20, 0, 16, 32, 8, 128, & ! 4 & 0, 0, 8, 0, 1, 1, 0, 0, 16, 0, & ! 5 & 0, 1, 1, 0, 0, 0, 0, 0, 0, 1, & ! 6 & 0, 8, 1, 0, 0, 1, 0, 64, 0, 0, & ! 7 & 0, 1, 0, 0, 1, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 1, 0, 1, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, & ! 2 & 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0/ ! 3 INTEGER, PARAMETER :: NTERMS_JACOB = 35721 INTEGER, PARAMETER :: NSTEPS_JACOB = 1062 INTEGER :: IORDER( NRXNS ) DATA ( IORDER( IRXXN ), IRXXN = 1, NRXNS ) / & & 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, & ! O & 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, & ! 1 & 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, & ! 2 & 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, & ! 3 & 2, 2, 2, 2, 3, 2, 2, 2, 2, 2, & ! 4 & 2, 2, 3, 2, 2, 2, 2, 2, 3, 2, & ! 5 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 6 & 1, 2, 2, 1, 2, 2, 2, 2, 2, 2, & ! 7 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 8 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 9 & 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! O & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 1 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 2 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 3 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 4 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 5 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 6 & 2, 2, 2, 2, 1, 1, 2, 1, 2, 1, & ! 7 & 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, & ! 8 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 9 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! O & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 1 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 2 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 3 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 4 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 5 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 6 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 7 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 8 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 9 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! O & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 1 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 2 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 3 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 4 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 5 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 6 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 7 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 8 & 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, & ! 9 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! O & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 1 & 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, & ! 2 & 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, & ! 3 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 4 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 5 & 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, & ! 6 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 7 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 8 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 9 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! O & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 1 & 2, 2, 2, 1, 1, 2, 2, 2, 2, 2, & ! 2 & 2/ ! 3 INTEGER, PARAMETER :: KTN1 = 206 INTEGER :: KRX1( KTN1 ) DATA ( KRX1( IRXXN ), IRXXN = 1, KTN1 ) / & & 65, 66, 72, 88, 89, 100, 101, 102, 106, 113, & ! O & 117, 121, 129, 134, 135, 138, 139, 140, 142, 149, & ! 1 & 150, 153, 154, 155, 156, 157, 162, 167, 171, 172, & ! 2 & 173, 175, 176, 185, 186, 187, 188, 189, 195, 197, & ! 3 & 199, 201, 207, 208, 213, 214, 217, 218, 219, 221, & ! 4 & 222, 223, 224, 237, 239, 241, 243, 256, 275, 276, & ! 5 & 277, 278, 279, 280, 281, 282, 290, 299, 313, 315, & ! 6 & 317, 319, 339, 340, 341, 342, 343, 344, 345, 346, & ! 7 & 347, 348, 349, 350, 351, 352, 353, 354, 355, 356, & ! 8 & 357, 358, 359, 360, 361, 362, 363, 364, 365, 366, & ! 9 & 367, 368, 369, 370, 371, 375, 378, 379, 380, 381, & ! O & 382, 383, 384, 385, 386, 387, 388, 389, 391, 392, & ! 1 & 394, 395, 398, 399, 400, 401, 402, 404, 405, 408, & ! 2 & 409, 410, 411, 412, 415, 416, 417, 419, 433, 434, & ! 3 & 435, 436, 437, 438, 439, 447, 448, 449, 450, 451, & ! 4 & 452, 453, 454, 455, 456, 457, 458, 459, 461, 462, & ! 5 & 463, 464, 465, 466, 467, 475, 476, 477, 478, 479, & ! 6 & 480, 481, 482, 483, 484, 485, 486, 487, 489, 492, & ! 7 & 495, 498, 501, 504, 507, 508, 509, 510, 511, 512, & ! 8 & 513, 514, 515, 516, 517, 518, 519, 520, 521, 522, & ! 9 & 524, 525, 526, 529, 530, 531/ ! O INTEGER, PARAMETER :: KTN2 = 1 INTEGER :: KRX2( KTN2 ) DATA ( KRX2( IRXXN ), IRXXN = 1, KTN2 ) / & & 45/ INTEGER, PARAMETER :: KTN3 = 248 INTEGER :: KRX3( KTN3 ) DATA ( KRX3( IRXXN ), IRXXN = 1, KTN3 ) / & & 41, 42, 43, 44, 46, 47, 48, 49, 50, 51, & ! O & 54, 57, 59, 60, 61, 67, 68, 69, 75, 78, & ! 1 & 79, 80, 81, 83, 84, 86, 87, 90, 91, 92, & ! 2 & 93, 94, 95, 96, 97, 98, 99, 103, 104, 105, & ! 3 & 107, 108, 109, 111, 112, 114, 115, 116, 118, 119, & ! 4 & 120, 122, 123, 124, 125, 126, 127, 128, 130, 131, & ! 5 & 132, 133, 136, 137, 141, 144, 145, 146, 147, 148, & ! 6 & 151, 152, 159, 160, 161, 163, 164, 165, 166, 168, & ! 7 & 169, 170, 174, 181, 182, 183, 184, 190, 191, 192, & ! 8 & 193, 194, 196, 198, 200, 202, 203, 204, 205, 206, & ! 9 & 209, 210, 211, 212, 215, 216, 220, 225, 226, 227, & ! O & 228, 229, 230, 231, 232, 233, 234, 235, 236, 238, & ! 1 & 240, 242, 244, 245, 246, 247, 248, 249, 250, 251, & ! 2 & 252, 253, 254, 255, 257, 258, 259, 260, 261, 262, & ! 3 & 263, 264, 265, 266, 267, 268, 269, 270, 271, 272, & ! 4 & 273, 274, 283, 284, 285, 286, 287, 288, 289, 291, & ! 5 & 292, 293, 294, 295, 296, 297, 298, 300, 301, 302, & ! 6 & 303, 304, 305, 306, 307, 308, 309, 310, 311, 312, & ! 7 & 314, 316, 318, 320, 321, 322, 323, 324, 325, 326, & ! 8 & 327, 328, 329, 330, 331, 332, 333, 334, 335, 336, & ! 9 & 337, 338, 372, 373, 374, 376, 377, 390, 393, 397, & ! O & 403, 406, 407, 413, 414, 418, 420, 440, 441, 442, & ! 1 & 443, 444, 445, 446, 460, 468, 469, 470, 471, 472, & ! 2 & 473, 474, 488, 490, 491, 493, 494, 496, 497, 499, & ! 3 & 500, 502, 503, 505, 506, 523, 527, 528/ ! 4 INTEGER, PARAMETER :: KTN4 = 2 INTEGER :: KRX4( KTN4 ) DATA ( KRX4( IRXXN ), IRXXN = 1, KTN4 ) / & & 110, 158/ INTEGER, PARAMETER :: KTN5 = 4 INTEGER :: KRX5( KTN5 ) DATA ( KRX5( IRXXN ), IRXXN = 1, KTN5 ) / & & 71, 74, 178, 180/ INTEGER, PARAMETER :: KTN6 = 0 INTEGER :: KRX6( 1 ) DATA KRX6( 1 ) / 0 / INTEGER, PARAMETER :: KTN7 = 0 INTEGER :: KRX7( 1 ) DATA KRX7( 1 ) / 0 / INTEGER, PARAMETER :: NWM = 1 INTEGER :: NRXWM( NWM ) DATA ( NRXWM( IRXXN ), IRXXN = 1, NWM ) / & & 45/ REAL( 8 ), PARAMETER :: ATM_AIR = 1.00000D+06 INTEGER, PARAMETER :: NWW = 3 INTEGER :: NRXWW( NWW ) DATA ( NRXWW( IRXXN ), IRXXN = 1, NWW ) / & & 49, 53, 72/ INTEGER, PARAMETER :: NWO2 = 3 INTEGER :: NRXWO2( NWO2 ) DATA ( NRXWO2( IRXXN ), IRXXN = 1, NWO2 ) / & & 45, 47, 59/ REAL( 8 ), PARAMETER :: ATM_O2 = 2.09500D+05 INTEGER, PARAMETER :: NWN2 = 1 INTEGER :: NRXWN2( NWN2 ) DATA ( NRXWN2( IRXXN ), IRXXN = 1, NWN2 ) / & & 48/ REAL( 8 ), PARAMETER :: ATM_N2 = 7.80800D+05 INTEGER, PARAMETER :: NWCH4 = 1 INTEGER :: NRXWCH4( NWCH4 ) DATA ( NRXWCH4( IRXXN ), IRXXN = 1, NWCH4 ) / & & 78/ REAL( 8 ), PARAMETER :: ATM_CH4 = 1.85000D+00 INTEGER, PARAMETER :: NWH2 = 1 INTEGER :: NRXWH2( NWH2 ) DATA ( NRXWH2( IRXXN ), IRXXN = 1, NWH2 ) / & & 50/ REAL( 8 ), PARAMETER :: ATM_H2 = 5.60000D-01 INTEGER, PARAMETER :: MXPRD = 28 INTEGER :: IRR( NRXNS,MXPRD+3 ) DATA ( IRR( IRXXN, 1 ), IRXXN = 1, NRXNS ) / & & 1, 1, 4, 6, 8, 8, 9, 10, 11, 13, & ! O & 13, 15, 17, 19, 19, 21, 23, 25, 26, 22, & ! 1 & 27, 28, 31, 32, 32, 32, 33, 34, 35, 36, & ! 2 & 38, 39, 40, 41, 42, 43, 44, 44, 45, 46, & ! 3 & 1, 1, 1, 1, 2, 2, 3, 3, 3, 5, & ! 4 & 5, 12, 12, 4, 7, 7, 7, 7, 7, 9, & ! 5 & 6, 6, 6, 10, 8, 8, 8, 8, 8, 8, & ! 6 & 47, 47, 6, 11, 11, 48, 14, 5, 51, 52, & ! 7 & 55, 57, 59, 61, 63, 65, 68, 71, 73, 75, & ! 8 & 75, 75, 78, 78, 79, 79, 77, 77, 76, 5, & ! 9 & 76, 81, 84, 87, 23, 25, 13, 15, 17, 19, & ! O & 26, 22, 27, 28, 31, 21, 32, 33, 34, 35, & ! 1 & 99, 36, 67, 70, 102, 104, 105, 83, 106, 38, & ! 2 & 39, 40, 41, 107, 64, 108, 42, 44, 110, 111, & ! 3 & 43, 45, 46, 57, 59, 61, 84, 87, 25, 45, & ! 4 & 28, 31, 21, 34, 35, 99, 103, 57, 59, 61, & ! 5 & 84, 87, 45, 13, 15, 17, 28, 21, 32, 33, & ! 6 & 67, 70, 102, 111, 90, 92, 20, 44, 91, 110, & ! 7 & 29, 111, 16, 18, 53, 56, 58, 60, 62, 66, & ! 8 & 69, 72, 74, 85, 86, 115, 116, 88, 89, 117, & ! 9 & 118, 90, 92, 20, 91, 93, 94, 95, 29, 96, & ! O & 97, 98, 100, 126, 101, 112, 109, 113, 114, 119, & ! 1 & 30, 127, 37, 103, 16, 18, 53, 56, 58, 60, & ! 2 & 62, 66, 69, 72, 74, 85, 86, 115, 116, 88, & ! 3 & 89, 117, 118, 90, 92, 20, 91, 93, 94, 95, & ! 4 & 29, 96, 97, 98, 101, 37, 112, 109, 113, 114, & ! 5 & 119, 30, 16, 18, 53, 56, 58, 60, 62, 66, & ! 6 & 69, 72, 74, 78, 85, 86, 115, 116, 88, 89, & ! 7 & 117, 118, 20, 91, 93, 94, 95, 29, 96, 97, & ! 8 & 98, 100, 126, 101, 112, 109, 113, 114, 119, 30, & ! 9 & 18, 53, 56, 58, 60, 62, 66, 69, 72, 74, & ! O & 78, 85, 86, 115, 116, 88, 89, 117, 118, 20, & ! 1 & 91, 93, 94, 95, 29, 96, 97, 98, 100, 126, & ! 2 & 101, 112, 109, 113, 114, 119, 30, 91, 16, 18, & ! 3 & 53, 56, 58, 60, 62, 66, 69, 72, 74, 78, & ! 4 & 85, 88, 115, 117, 20, 91, 93, 94, 95, 29, & ! 5 & 96, 97, 98, 100, 126, 101, 112, 109, 113, 114, & ! 6 & 119, 113, 113, 114, 30, 30, 30, 86, 86, 86, & ! 7 & 89, 89, 89, 116, 116, 116, 118, 118, 118, 80, & ! 8 & 129, 130, 131, 131, 131, 131, 132, 133, 133, 133, & ! 9 & 133, 133, 132, 132, 134, 135, 135, 123, 134, 134, & ! O & 136, 137, 138, 138, 138, 137, 137, 140, 140, 140, & ! 1 & 32, 33, 47, 6, 12, 8, 1, 80, 144, 144, & ! 2 & 81, 82, 150, 152, 154, 156, 158, 160, 162, 151, & ! 3 & 153, 155, 157, 159, 161, 24, 151, 153, 155, 157, & ! 4 & 159, 161, 24, 151, 153, 155, 157, 159, 161, 24, & ! 5 & 163, 164, 165, 167, 169, 170, 172, 163, 164, 165, & ! 6 & 167, 169, 170, 172, 163, 164, 165, 167, 169, 170, & ! 7 & 172, 163, 164, 165, 167, 169, 170, 172, 173, 174, & ! 8 & 174, 174, 174, 174, 177, 178, 178, 178, 178, 178, & ! 9 & 179, 180, 180, 180, 180, 180, 181, 175, 139, 122, & ! O & 176, 171, 125, 141, 142, 168, 166, 124, 121, 182, & ! 1 & 183, 41, 184, 185, 187, 188, 189, 189, 189, 189, & ! 2 & 189/ ! 3 DATA ( IRR( IRXXN, 2 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 5, 12, 7, 6, 0, 1, 0, 0, 0, 0, & ! 4 & 12, 12, 12, 5, 2, 5, 12, 12, 7, 5, & ! 5 & 2, 2, 5, 5, 5, 12, 7, 6, 8, 6, & ! 6 & 0, 0, 12, 0, 5, 5, 5, 0, 5, 5, & ! 7 & 5, 5, 5, 5, 5, 5, 5, 5, 5, 1, & ! 8 & 8, 5, 12, 7, 5, 5, 12, 7, 5, 82, & ! 9 & 0, 5, 5, 5, 5, 5, 5, 5, 5, 5, & ! O & 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, & ! 1 & 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, & ! 2 & 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, & ! 3 & 5, 5, 5, 1, 1, 1, 1, 1, 1, 1, & ! 4 & 1, 1, 1, 1, 1, 1, 1, 8, 8, 8, & ! 5 & 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, & ! 6 & 8, 8, 8, 8, 0, 0, 6, 0, 6, 0, & ! 7 & 6, 0, 7, 7, 7, 7, 7, 7, 7, 7, & ! 8 & 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, & ! 9 & 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, & ! O & 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, & ! 1 & 7, 6, 6, 6, 12, 12, 12, 12, 12, 12, & ! 2 & 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, & ! 3 & 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, & ! 4 & 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, & ! 5 & 12, 12, 16, 16, 16, 16, 16, 16, 16, 16, & ! 6 & 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, & ! 7 & 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, & ! 8 & 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, & ! 9 & 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, & ! O & 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, & ! 1 & 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, & ! 2 & 20, 20, 20, 20, 20, 20, 20, 91, 8, 8, & ! 3 & 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, & ! 4 & 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, & ! 5 & 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, & ! 6 & 8, 113, 114, 114, 8, 91, 30, 85, 88, 78, & ! 7 & 85, 88, 78, 85, 88, 78, 85, 88, 78, 5, & ! 8 & 5, 5, 5, 1, 8, 0, 5, 7, 8, 12, & ! 9 & 16, 20, 1, 8, 5, 7, 12, 5, 1, 8, & ! O & 5, 8, 12, 7, 8, 1, 5, 12, 8, 7, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 146, & ! 2 & 0, 0, 5, 5, 5, 5, 5, 5, 5, 7, & ! 3 & 7, 7, 7, 7, 7, 7, 8, 8, 8, 8, & ! 4 & 8, 8, 8, 12, 12, 12, 12, 12, 12, 12, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 7, 7, 7, & ! 6 & 7, 7, 7, 7, 8, 8, 8, 8, 8, 8, & ! 7 & 8, 12, 12, 12, 12, 12, 12, 12, 5, 12, & ! 8 & 7, 8, 16, 20, 5, 12, 7, 8, 16, 20, & ! 9 & 5, 12, 7, 8, 16, 20, 5, 5, 5, 5, & ! O & 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, & ! 1 & 5, 5, 5, 0, 0, 5, 12, 7, 8, 16, & ! 2 & 20/ ! 3 DATA ( IRR( IRXXN, 3 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0/ ! 3 DATA ( IRR( IRXXN, 4 ), IRXXN = 1, NRXNS ) / & & 2, 3, 5, 2, 7, 2, 5, 5, 5, 14, & ! O & 12, 12, 12, 16, 16, 12, 12, 12, 16, 18, & ! 1 & 12, 5, 16, 14, 13, 12, 12, 12, 12, 37, & ! 2 & 5, 5, 5, 5, 5, 12, 20, 16, 6, 27, & ! 3 & 12, 5, 6, 8, 1, 0, 2, 2, 5, 12, & ! 4 & 0, 4, 4, 12, 6, 9, 6, 10, 6, 6, & ! 5 & 7, 8, 10, 8, 12, 5, 6, 7, 6, 47, & ! 6 & 6, 10, 11, 12, 6, 12, 12, 16, 18, 53, & ! 7 & 56, 58, 60, 62, 5, 66, 69, 72, 74, 5, & ! 8 & 6, 78, 79, 76, 78, 33, 5, 31, 5, 14, & ! 9 & 10, 28, 85, 88, 90, 92, 12, 20, 91, 93, & ! O & 94, 95, 12, 29, 97, 20, 12, 20, 12, 12, & ! 1 & 12, 100, 54, 54, 103, 12, 12, 12, 12, 5, & ! 2 & 5, 5, 5, 29, 12, 16, 5, 30, 30, 6, & ! 3 & 53, 46, 27, 5, 5, 5, 5, 5, 5, 46, & ! 4 & 5, 5, 5, 5, 5, 5, 112, 113, 113, 113, & ! 5 & 115, 117, 46, 12, 20, 91, 13, 12, 12, 20, & ! 6 & 54, 54, 103, 29, 120, 120, 44, 20, 110, 91, & ! 7 & 111, 29, 12, 12, 12, 12, 12, 12, 12, 43, & ! 8 & 43, 43, 43, 45, 5, 6, 6, 45, 5, 45, & ! 9 & 6, 45, 45, 16, 18, 20, 12, 12, 16, 6, & ! O & 12, 12, 126, 127, 12, 103, 6, 6, 6, 6, & ! 1 & 6, 43, 43, 43, 38, 39, 39, 39, 39, 39, & ! 2 & 39, 39, 39, 39, 39, 19, 120, 45, 120, 40, & ! 3 & 120, 45, 120, 40, 40, 5, 5, 5, 39, 39, & ! 4 & 107, 107, 39, 39, 39, 70, 39, 39, 43, 43, & ! 5 & 39, 39, 12, 12, 12, 12, 12, 12, 12, 13, & ! 6 & 13, 13, 13, 12, 13, 12, 45, 12, 104, 12, & ! 7 & 45, 12, 12, 12, 12, 12, 12, 12, 6, 12, & ! 8 & 12, 12, 12, 12, 12, 13, 12, 12, 12, 12, & ! 9 & 12, 12, 12, 12, 12, 12, 16, 16, 16, 16, & ! O & 12, 23, 5, 6, 6, 25, 5, 16, 16, 16, & ! 1 & 16, 16, 12, 12, 108, 6, 12, 12, 16, 16, & ! 2 & 12, 12, 16, 12, 16, 12, 16, 18, 12, 12, & ! 3 & 12, 12, 12, 17, 12, 6, 6, 6, 6, 12, & ! 4 & 6, 12, 6, 6, 16, 18, 20, 12, 12, 13, & ! 5 & 6, 12, 12, 126, 127, 12, 6, 6, 12, 6, & ! 6 & 6, 12, 12, 6, 6, 18, 0, 120, 120, 120, & ! 7 & 120, 120, 120, 120, 120, 120, 120, 120, 120, 5, & ! 8 & 18, 18, 29, 14, 13, 14, 133, 12, 12, 39, & ! 9 & 104, 16, 131, 113, 34, 43, 39, 22, 5, 6, & ! O & 27, 138, 125, 124, 124, 124, 140, 141, 124, 142, & ! 1 & 143, 143, 10, 9, 0, 10, 0, 144, 145, 147, & ! 2 & 148, 149, 151, 153, 155, 157, 159, 161, 24, 163, & ! 3 & 164, 165, 167, 169, 170, 172, 163, 164, 165, 167, & ! 4 & 169, 170, 172, 124, 166, 168, 141, 171, 139, 39, & ! 5 & 12, 12, 12, 12, 12, 12, 12, 166, 142, 141, & ! 6 & 171, 139, 139, 43, 6, 6, 6, 6, 6, 6, & ! 7 & 6, 142, 141, 171, 139, 139, 139, 166, 174, 121, & ! 8 & 121, 6, 13, 16, 178, 124, 124, 6, 13, 16, & ! 9 & 180, 124, 121, 6, 13, 16, 5, 5, 5, 5, & ! O & 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, & ! 1 & 5, 5, 16, 186, 186, 189, 124, 6, 6, 12, & ! 2 & 12/ ! 3 DATA ( IRR( IRXXN, 5 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 7, 0, 6, 7, 6, 12, 0, & ! O & 14, 16, 18, 20, 14, 20, 24, 24, 18, 20, & ! 1 & 20, 12, 29, 0, 14, 14, 20, 20, 20, 12, & ! 2 & 12, 12, 12, 12, 16, 6, 6, 8, 22, 6, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 5, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 6, 6, 0, 6, 0, 0, & ! 6 & 8, 0, 0, 6, 0, 49, 0, 0, 0, 54, & ! 7 & 54, 0, 0, 0, 12, 67, 70, 70, 70, 12, & ! 8 & 76, 13, 12, 13, 0, 32, 82, 82, 82, 6, & ! 9 & 83, 31, 86, 89, 91, 91, 14, 0, 0, 0, & ! O & 0, 0, 33, 96, 0, 98, 14, 14, 14, 14, & ! 1 & 29, 0, 12, 12, 0, 13, 15, 17, 17, 16, & ! 2 & 53, 24, 24, 0, 0, 109, 20, 8, 8, 27, & ! 3 & 6, 6, 8, 12, 12, 12, 90, 25, 17, 6, & ! 4 & 12, 12, 12, 12, 12, 12, 0, 114, 114, 114, & ! 5 & 116, 118, 6, 14, 10, 10, 29, 30, 14, 14, & ! 6 & 37, 37, 10, 6, 0, 0, 0, 6, 0, 6, & ! 7 & 0, 6, 6, 6, 16, 16, 6, 6, 6, 121, & ! 8 & 121, 124, 124, 12, 6, 45, 5, 6, 6, 43, & ! 9 & 5, 120, 6, 6, 6, 6, 6, 20, 20, 12, & ! O & 20, 6, 6, 6, 6, 6, 32, 12, 13, 32, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 122, 122, 41, 41, 25, 0, 23, 0, 25, & ! 3 & 0, 5, 0, 5, 5, 16, 18, 20, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 13, 13, 16, 16, 13, 13, 13, 12, & ! 6 & 12, 12, 12, 13, 25, 13, 13, 6, 25, 13, & ! 7 & 13, 13, 16, 16, 20, 13, 13, 20, 12, 20, & ! 8 & 14, 126, 127, 13, 103, 12, 13, 6, 6, 13, & ! 9 & 16, 16, 16, 16, 16, 16, 12, 12, 12, 12, & ! O & 16, 17, 16, 23, 16, 13, 16, 6, 6, 0, & ! 1 & 18, 20, 16, 16, 16, 12, 16, 16, 126, 127, & ! 2 & 16, 16, 32, 16, 6, 16, 0, 0, 13, 6, & ! 3 & 16, 16, 6, 13, 17, 12, 12, 12, 12, 6, & ! 4 & 12, 6, 23, 25, 6, 6, 6, 6, 6, 20, & ! 5 & 12, 20, 6, 6, 6, 6, 103, 32, 6, 13, & ! 6 & 32, 43, 6, 13, 0, 0, 0, 83, 83, 83, & ! 7 & 83, 83, 83, 83, 83, 83, 83, 83, 83, 0, & ! 8 & 54, 54, 96, 12, 29, 12, 21, 6, 6, 0, & ! 9 & 13, 108, 14, 114, 12, 6, 123, 32, 17, 34, & ! O & 17, 0, 0, 6, 6, 139, 0, 0, 0, 124, & ! 1 & 0, 0, 0, 10, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 10, 0, 0, 0, 0, 0, 0, 0, 121, & ! 3 & 124, 166, 168, 141, 171, 43, 6, 6, 6, 6, & ! 4 & 6, 6, 6, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 124, 166, 168, 141, 171, 139, 121, 6, 6, 6, & ! 6 & 6, 6, 6, 6, 124, 166, 168, 141, 171, 139, & ! 7 & 22, 0, 0, 0, 0, 0, 0, 0, 12, 142, & ! 8 & 166, 12, 12, 12, 12, 141, 142, 12, 12, 12, & ! 9 & 12, 142, 166, 12, 12, 12, 181, 181, 181, 181, & ! O & 181, 181, 181, 181, 181, 181, 181, 181, 181, 175, & ! 1 & 122, 181, 0, 10, 10, 0, 0, 12, 12, 13, & ! 2 & 13/ ! 3 DATA ( IRR( IRXXN, 6 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 6, 0, & ! O & 0, 14, 14, 0, 0, 14, 14, 14, 20, 14, & ! 1 & 13, 20, 14, 0, 0, 0, 14, 30, 30, 14, & ! 2 & 13, 17, 17, 17, 0, 17, 0, 0, 21, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 10, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 50, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 14, 12, 12, 12, 12, 16, & ! 8 & 13, 28, 5, 12, 0, 31, 81, 76, 80, 12, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 17, 26, & ! 1 & 14, 0, 101, 101, 0, 0, 0, 15, 0, 13, & ! 2 & 30, 30, 30, 0, 0, 0, 30, 13, 13, 0, & ! 3 & 0, 23, 0, 14, 16, 16, 4, 20, 13, 23, & ! 4 & 20, 20, 16, 91, 91, 14, 0, 0, 0, 0, & ! 5 & 0, 0, 23, 10, 0, 0, 30, 14, 10, 10, & ! 6 & 101, 101, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 13, 15, 18, 18, 13, 13, 15, 122, & ! 8 & 122, 125, 125, 6, 120, 43, 120, 25, 120, 6, & ! 9 & 120, 6, 12, 0, 0, 13, 13, 30, 6, 13, & ! O & 30, 14, 0, 0, 27, 0, 12, 43, 17, 39, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 125, 125, 13, 0, 6, 0, 5, & ! 3 & 0, 25, 0, 120, 12, 108, 108, 13, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 104, 15, 18, 18, 17, 17, 17, 104, & ! 6 & 104, 104, 104, 28, 23, 104, 104, 104, 13, 104, & ! 7 & 104, 6, 13, 13, 13, 34, 34, 14, 13, 30, & ! 8 & 13, 13, 13, 27, 13, 32, 43, 13, 13, 0, & ! 9 & 15, 18, 18, 13, 13, 17, 108, 108, 108, 108, & ! O & 13, 40, 108, 16, 108, 12, 108, 25, 108, 0, & ! 1 & 0, 13, 13, 34, 20, 13, 20, 14, 0, 0, & ! 2 & 27, 103, 0, 43, 13, 6, 0, 0, 6, 15, & ! 3 & 30, 18, 13, 12, 22, 36, 36, 36, 36, 13, & ! 4 & 23, 25, 45, 45, 0, 0, 13, 13, 34, 14, & ! 5 & 13, 30, 14, 0, 0, 27, 0, 12, 43, 17, & ! 6 & 39, 0, 13, 17, 0, 0, 0, 23, 25, 13, & ! 7 & 23, 25, 13, 23, 25, 13, 23, 25, 13, 0, & ! 8 & 0, 0, 0, 5, 30, 57, 12, 131, 131, 0, & ! 9 & 12, 12, 12, 131, 135, 123, 5, 12, 0, 99, & ! O & 12, 0, 0, 0, 0, 0, 0, 0, 0, 6, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 6, & ! 3 & 6, 6, 6, 6, 6, 6, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 124, 166, 168, & ! 6 & 141, 171, 12, 22, 12, 12, 12, 12, 12, 12, & ! 7 & 12, 0, 0, 0, 0, 0, 0, 0, 121, 175, & ! 8 & 176, 36, 104, 108, 124, 175, 175, 121, 104, 108, & ! 9 & 124, 181, 181, 121, 104, 108, 34, 175, 175, 175, & ! O & 175, 175, 175, 175, 175, 175, 175, 175, 175, 139, & ! 1 & 176, 175, 0, 0, 0, 0, 0, 13, 13, 36, & ! 2 & 36/ ! 3 DATA ( IRR( IRXXN, 7 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 8, 0, & ! O & 0, 0, 0, 0, 0, 13, 0, 0, 14, 0, & ! 1 & 0, 29, 21, 0, 0, 0, 0, 14, 14, 0, & ! 2 & 0, 0, 0, 0, 0, 22, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 32, 0, 0, 0, 0, 20, & ! 8 & 77, 33, 0, 6, 0, 80, 0, 13, 6, 13, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 22, 32, & ! 1 & 32, 0, 37, 37, 0, 0, 0, 0, 0, 0, & ! 2 & 17, 17, 17, 0, 0, 0, 13, 0, 0, 0, & ! 3 & 0, 22, 0, 13, 18, 18, 23, 13, 38, 22, & ! 4 & 14, 30, 20, 30, 30, 32, 0, 0, 0, 0, & ! 5 & 0, 0, 22, 0, 0, 0, 33, 13, 0, 0, & ! 6 & 119, 119, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 30, 30, 17, 15, 17, 6, & ! 8 & 6, 6, 6, 23, 0, 23, 0, 12, 0, 25, & ! 9 & 0, 0, 13, 0, 0, 0, 34, 6, 14, 27, & ! O & 6, 13, 0, 0, 32, 0, 0, 0, 22, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 40, 0, 5, 0, 12, & ! 3 & 0, 6, 0, 0, 13, 42, 42, 39, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 104, 30, 30, 104, 22, 22, 36, & ! 6 & 36, 36, 36, 31, 17, 120, 12, 13, 12, 120, & ! 7 & 12, 104, 108, 108, 104, 104, 104, 13, 27, 13, & ! 8 & 17, 0, 0, 32, 0, 0, 0, 17, 32, 0, & ! 9 & 108, 30, 30, 17, 17, 22, 36, 36, 36, 36, & ! O & 28, 19, 120, 45, 120, 16, 120, 45, 120, 0, & ! 1 & 0, 108, 34, 108, 14, 27, 30, 13, 0, 0, & ! 2 & 32, 0, 0, 0, 17, 32, 0, 0, 0, 0, & ! 3 & 18, 30, 17, 6, 6, 32, 32, 32, 32, 28, & ! 4 & 17, 13, 17, 12, 0, 0, 0, 34, 0, 6, & ! 5 & 27, 6, 13, 0, 0, 32, 0, 0, 0, 22, & ! 6 & 0, 0, 17, 22, 0, 0, 0, 5, 5, 31, & ! 7 & 5, 5, 31, 6, 6, 31, 6, 6, 31, 0, & ! 8 & 0, 0, 0, 13, 33, 20, 0, 13, 13, 0, & ! 9 & 131, 131, 5, 0, 0, 12, 12, 16, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 12, 12, 12, & ! 6 & 12, 12, 0, 12, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 6, 32, 36, 36, 0, 0, 6, 32, 121, 121, & ! 9 & 0, 0, 6, 32, 121, 121, 26, 122, 139, 34, & ! O & 139, 139, 122, 139, 139, 139, 139, 139, 122, 122, & ! 1 & 125, 122, 0, 0, 0, 0, 0, 36, 36, 104, & ! 2 & 16/ ! 3 DATA ( IRR( IRXXN, 8 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 17, 0, 0, 0, 0, & ! 1 & 0, 30, 0, 0, 0, 0, 0, 32, 32, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 64, 0, 0, 0, 0, 29, & ! 8 & 31, 0, 0, 28, 0, 20, 0, 6, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 32, 33, & ! 1 & 33, 0, 102, 102, 0, 0, 0, 0, 0, 0, & ! 2 & 22, 22, 22, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 13, 0, 64, 53, 53, 108, 91, 4, 13, & ! 4 & 33, 14, 30, 14, 14, 34, 0, 0, 0, 0, & ! 5 & 0, 0, 13, 0, 0, 0, 10, 17, 0, 0, & ! 6 & 10, 10, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 6, 6, 0, 17, 19, 12, & ! 8 & 12, 12, 12, 17, 0, 17, 0, 13, 0, 12, & ! 9 & 0, 0, 42, 0, 0, 0, 0, 17, 13, 0, & ! O & 13, 17, 0, 0, 39, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 12, 0, 17, 0, 13, & ! 3 & 0, 12, 0, 0, 42, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 105, 13, 13, 106, 104, 104, 32, & ! 6 & 32, 32, 32, 104, 40, 0, 6, 120, 0, 0, & ! 7 & 25, 120, 0, 0, 83, 83, 83, 108, 104, 17, & ! 8 & 22, 0, 0, 39, 0, 0, 0, 22, 39, 0, & ! 9 & 0, 13, 13, 108, 22, 108, 32, 32, 32, 32, & ! O & 31, 25, 0, 17, 0, 0, 0, 12, 0, 0, & ! 1 & 0, 0, 108, 0, 13, 16, 13, 17, 0, 0, & ! 2 & 39, 0, 0, 0, 22, 39, 0, 0, 0, 0, & ! 3 & 6, 6, 0, 26, 19, 123, 33, 33, 33, 31, & ! 4 & 19, 0, 22, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 13, 17, 0, 0, 39, 0, 0, 0, 0, & ! 6 & 0, 0, 22, 43, 0, 0, 0, 12, 12, 5, & ! 7 & 12, 12, 5, 12, 12, 6, 12, 12, 6, 0, & ! 8 & 0, 0, 0, 32, 10, 5, 0, 134, 134, 0, & ! 9 & 59, 13, 13, 0, 0, 16, 16, 14, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 12, 33, 32, 32, 0, 0, 12, 33, 32, 32, & ! 9 & 0, 0, 12, 33, 32, 32, 15, 176, 122, 26, & ! O & 122, 122, 176, 122, 122, 122, 122, 122, 176, 176, & ! 1 & 142, 125, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 108/ ! 3 DATA ( IRR( IRXXN, 9 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 22, 0, 0, 0, 0, & ! 1 & 0, 14, 0, 0, 0, 0, 0, 33, 33, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, & ! 8 & 28, 0, 0, 31, 0, 28, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 33, 39, & ! 1 & 39, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 17, 0, 0, 56, 20, 12, 4, 64, 17, & ! 4 & 64, 13, 14, 13, 13, 64, 0, 0, 0, 0, & ! 5 & 0, 0, 17, 0, 0, 0, 6, 43, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 15, 13, 0, 19, 22, 36, & ! 8 & 36, 36, 36, 19, 0, 22, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 33, 0, 0, & ! O & 17, 32, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 23, 0, 22, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 17, 17, 0, 83, 83, 123, & ! 6 & 33, 33, 33, 83, 104, 0, 23, 0, 0, 0, & ! 7 & 6, 0, 0, 0, 108, 0, 0, 16, 83, 33, & ! 8 & 32, 0, 0, 0, 0, 0, 0, 104, 43, 0, & ! 9 & 0, 17, 17, 0, 108, 0, 123, 33, 33, 33, & ! O & 108, 13, 0, 22, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 108, 17, 22, 0, 0, & ! 2 & 0, 0, 0, 0, 108, 43, 0, 0, 0, 0, & ! 3 & 15, 13, 0, 15, 15, 35, 123, 123, 123, 32, & ! 4 & 25, 0, 13, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 17, 22, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 43, 0, 0, 0, 0, 128, 128, 12, & ! 7 & 128, 128, 12, 128, 128, 12, 128, 128, 12, 0, & ! 8 & 0, 0, 0, 0, 6, 13, 0, 43, 0, 0, & ! 9 & 31, 31, 57, 0, 0, 0, 0, 54, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 36, 123, 33, 33, 0, 0, 121, 123, 33, 33, & ! 9 & 0, 0, 32, 123, 33, 33, 17, 125, 176, 22, & ! O & 176, 176, 125, 176, 176, 176, 176, 176, 125, 125, & ! 1 & 168, 34, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0/ ! 3 DATA ( IRR( IRXXN, 10 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 13, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 14, & ! 8 & 0, 0, 0, 0, 0, 5, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 4, 14, 14, 108, 0, 0, & ! 4 & 0, 33, 13, 32, 32, 108, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 17, 15, 0, 26, 27, 32, & ! 8 & 32, 32, 32, 25, 0, 13, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 33, 22, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 5, 0, 13, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 22, 22, 0, 0, 0, 35, & ! 6 & 123, 123, 123, 17, 22, 0, 22, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 104, 0, 104, & ! 8 & 33, 0, 0, 0, 0, 0, 0, 83, 0, 0, & ! 9 & 0, 22, 22, 0, 0, 0, 35, 123, 123, 123, & ! O & 0, 12, 0, 13, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 33, 32, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 17, 17, 0, 19, 27, 99, 34, 35, 35, 27, & ! 4 & 13, 0, 12, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 33, 32, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 128, & ! 7 & 0, 0, 128, 0, 0, 128, 0, 0, 128, 0, & ! 8 & 0, 0, 0, 0, 0, 16, 0, 0, 0, 0, & ! 9 & 134, 134, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 32, 35, 123, 123, 0, 0, 32, 35, 123, 123, & ! 9 & 0, 0, 33, 35, 123, 123, 16, 142, 171, 15, & ! O & 125, 171, 166, 171, 125, 171, 171, 125, 142, 141, & ! 1 & 166, 26, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0/ ! 3 DATA ( IRR( IRXXN, 11 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 13, & ! 8 & 0, 0, 0, 0, 0, 12, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 14, 4, 13, 0, 0, 0, & ! 4 & 0, 64, 15, 33, 33, 42, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 19, 17, 0, 43, 43, 123, & ! 8 & 33, 33, 33, 13, 0, 12, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 33, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 22, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 32, 104, 0, 0, 0, 99, & ! 6 & 34, 35, 35, 32, 19, 0, 17, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 83, 0, 83, & ! 8 & 104, 0, 0, 0, 0, 0, 0, 43, 0, 0, & ! 9 & 0, 32, 108, 0, 0, 0, 99, 34, 35, 35, & ! O & 0, 16, 0, 12, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 108, 33, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 26, 22, 0, 0, 0, 0, 0, 0, 0, 17, & ! 4 & 40, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 33, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 21, 21, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 33, 0, 35, 35, 0, 0, 33, 0, 35, 35, & ! 9 & 0, 0, 123, 0, 35, 35, 18, 166, 125, 17, & ! O & 141, 125, 124, 125, 141, 125, 125, 141, 168, 142, & ! 1 & 124, 15, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0/ ! 3 DATA ( IRR( IRXXN, 12 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 28, & ! 8 & 0, 0, 0, 0, 0, 81, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 51, 51, 91, 0, 0, 0, & ! 4 & 0, 108, 22, 39, 34, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 26, 26, 0, 0, 0, 35, & ! 8 & 123, 123, 123, 40, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 104, 83, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 27, 12, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 108, & ! 8 & 83, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 108, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 22, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 108, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 19, 26, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 22, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 123, 0, 0, 0, 0, 0, 123, 0, 0, 0, & ! 9 & 0, 0, 35, 0, 0, 0, 53, 124, 141, 16, & ! O & 142, 141, 121, 141, 142, 141, 141, 142, 166, 168, & ! 1 & 121, 17, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0/ ! 3 DATA ( IRR( IRXXN, 13 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 31, & ! 8 & 0, 0, 0, 0, 0, 14, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 52, 52, 22, 0, 0, 0, & ! 4 & 0, 17, 32, 0, 39, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 43, 19, 0, 0, 0, 99, & ! 8 & 34, 35, 35, 22, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 83, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 19, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 35, 0, 0, 0, 0, 0, 35, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 94, 121, 142, 18, & ! O & 168, 142, 39, 142, 166, 142, 142, 168, 124, 166, & ! 1 & 182, 16, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0/ ! 3 DATA ( IRR( IRXXN, 14 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 64, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 55, 13, 52, 0, 0, 0, & ! 4 & 0, 0, 33, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 22, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 15, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 41, 168, 53, & ! O & 166, 168, 34, 168, 124, 168, 168, 166, 121, 124, & ! 1 & 183, 18, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0/ ! 3 DATA ( IRR( IRXXN, 15 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 59, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 65, 15, 38, 0, 0, 0, & ! 4 & 0, 0, 64, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 27, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 27, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 39, 166, 94, & ! O & 124, 166, 26, 166, 121, 166, 166, 124, 182, 121, & ! 1 & 41, 53, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0/ ! 3 DATA ( IRR( IRXXN, 16 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 13, 17, 64, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 43, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 34, 124, 56, & ! O & 121, 124, 22, 124, 182, 124, 124, 121, 183, 182, & ! 1 & 39, 94, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0/ ! 3 DATA ( IRR( IRXXN, 17 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 15, 19, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 26, 121, 0, & ! O & 182, 121, 15, 121, 41, 121, 121, 182, 41, 183, & ! 1 & 34, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0/ ! 3 DATA ( IRR( IRXXN, 18 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 17, 22, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 22, 182, 0, & ! O & 39, 182, 17, 182, 39, 182, 182, 183, 39, 41, & ! 1 & 27, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0/ ! 3 DATA ( IRR( IRXXN, 19 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 19, 27, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 15, 183, 0, & ! O & 34, 183, 16, 183, 34, 183, 183, 41, 34, 39, & ! 1 & 26, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0/ ! 3 DATA ( IRR( IRXXN, 20 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 36, 108, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 17, 41, 0, & ! O & 27, 41, 18, 41, 27, 41, 41, 39, 27, 34, & ! 1 & 15, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0/ ! 3 DATA ( IRR( IRXXN, 21 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 26, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 16, 34, 0, & ! O & 26, 39, 53, 34, 26, 39, 39, 34, 26, 27, & ! 1 & 17, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0/ ! 3 DATA ( IRR( IRXXN, 22 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 27, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 18, 27, 0, & ! O & 15, 34, 94, 27, 15, 34, 34, 27, 15, 26, & ! 1 & 16, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0/ ! 3 DATA ( IRR( IRXXN, 23 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 64, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 53, 26, 0, & ! O & 17, 27, 56, 26, 17, 27, 27, 26, 17, 15, & ! 1 & 18, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0/ ! 3 DATA ( IRR( IRXXN, 24 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 108, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 94, 15, 0, & ! O & 16, 26, 95, 15, 16, 26, 26, 15, 16, 17, & ! 1 & 53, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0/ ! 3 DATA ( IRR( IRXXN, 25 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 56, 17, 0, & ! O & 18, 15, 0, 17, 18, 15, 15, 17, 18, 16, & ! 1 & 94, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0/ ! 3 DATA ( IRR( IRXXN, 26 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 95, 16, 0, & ! O & 53, 17, 0, 16, 53, 17, 17, 16, 53, 18, & ! 1 & 56, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0/ ! 3 DATA ( IRR( IRXXN, 27 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 18, 0, & ! O & 94, 16, 0, 18, 94, 16, 16, 18, 94, 53, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0/ ! 3 DATA ( IRR( IRXXN, 28 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 53, 0, & ! O & 56, 18, 0, 53, 56, 18, 18, 53, 56, 94, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0/ ! 3 DATA ( IRR( IRXXN, 29 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 94, 0, & ! O & 0, 53, 0, 94, 0, 53, 53, 94, 0, 56, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0/ ! 3 DATA ( IRR( IRXXN, 30 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 56, 0, & ! O & 0, 94, 0, 56, 0, 94, 94, 56, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0/ ! 3 DATA ( IRR( IRXXN, 31 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 56, 0, 0, 0, 56, 56, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0/ ! 3 DATA ( RTDAT( 1,IRXXN ), IRXXN = 1, NRXNS ) / & & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! O & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 1 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 2 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 3 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.7000D-12, 1.0000D-14, 3.0000D-12, 1.2000D-13, 6.1000D-34, & ! 4 & 8.0000D-12, 3.3000D-11, 2.1500D-11, 1.6300D-10, 2.8000D-12, & ! + & 4.8000D-11, 3.0000D-13, 4.2000D-34, 1.8000D-12, 9.1000D-32, & ! 5 & 7.1000D-31, 3.4400D-12, 6.0950D-14, 4.2500D-39, 3.0000D-12, & ! + & 5.3000D-12, 3.4000D-31, 1.8000D-30, 2.4000D-14, 2.0000D-11, & ! 6 & 3.5000D-12, 1.7000D-11, 4.3500D-14, 8.5000D-13, 2.4000D-30, & ! + & 5.8000D-27, 1.0000D-22, 1.9000D-31, 2.1000D-27, 4.5000D-13, & ! 7 & 2.9000D-31, 1.4400D-13, 2.4500D-12, 7.6600D-12, 7.6800D-12, & ! + & 1.0100D-11, 1.0000D-28, 5.7200D-12, 1.3300D-11, 5.5000D-30, & ! 8 & 2.3300D-12, 1.8100D-12, 2.3300D-11, 7.1600D-12, 1.5800D-14, & ! + & 2.9500D-12, 2.6900D-11, 4.5000D-13, 6.0000D-12, 4.6000D-12, & ! 9 & 2.9700D-11, 3.1400D-11, 9.4200D-12, 2.4000D-11, 1.5000D-11, & ! + & 4.0000D-05, 3.0000D-12, 1.2100D-11, 4.2000D-11, 5.2000D-12, & ! O & 1.1000D-10, 5.5000D-12, 4.7000D-12, 4.9000D-12, 4.5600D-14, & ! + & 1.5000D-12, 2.8000D-12, 3.0000D-12, 8.0000D-12, 2.6000D-12, & ! 1 & 5.7700D-12, 1.1000D-11, 9.2600D-13, 2.8000D-11, 2.8000D-11, & ! + & 1.0000D-11, 5.3200D-12, 6.7500D-12, 4.6500D-11, 2.0500D-10, & ! 2 & 2.8500D-12, 3.0000D-12, 2.6000D-12, 1.4700D-11, 2.9000D-12, & ! + & 3.4000D-12, 3.4000D-12, 3.4000D-12, 3.0000D-11, 4.5000D-13, & ! 3 & 4.0000D-14, 2.9300D-12, 4.0000D-14, 4.0000D-14, 3.2000D-11, & ! + & 5.3100D-12, 4.8000D-12, 2.4000D-14, 9.1400D-15, 4.3300D-15, & ! 4 & 4.4000D-15, 8.0500D-16, 2.8000D-15, 8.3000D-18, 1.6700D-16, & ! + & 1.3600D-15, 8.5000D-16, 1.6600D-18, 2.0000D-16, 2.0000D-16, & ! 5 & 9.0000D-17, 2.8600D-13, 4.3920D-13, 1.7900D-13, 8.6400D-13, & ! + & 1.1900D-12, 1.2200D-11, 3.1500D-13, 2.0000D-12, 1.4000D-12, & ! 6 & 3.7600D-12, 3.4000D-15, 5.0200D-13, 2.9000D-12, 3.7600D-12, & ! + & 3.7800D-12, 1.0600D-12, 2.0100D-10, 2.2000D-14, 2.9000D-02, & ! 7 & 2.4000D-02, 9.7000D-29, 9.0000D-29, 9.7000D-29, 9.0000D-29, & ! + & 2.8000D-12, 1.6000D+16, 2.8000D-12, 2.6000D-12, 4.0000D-12, & ! 8 & 4.0000D-12, 9.0000D-12, 4.0000D-12, 4.0000D-12, 2.7000D-12, & ! + & 2.7000D-12, 2.7000D-12, 2.7000D-12, 2.7000D-12, 4.0000D-12, & ! 9 & 2.7000D-12, 4.0000D-12, 2.7000D-12, 4.0000D-12, 2.7000D-12, & ! + & 4.0000D-12, 2.7000D-12, 2.7000D-12, 8.1000D-12, 8.1000D-12, & ! O & 2.9000D-12, 4.0000D-12, 4.0000D-12, 2.5400D-12, 2.5400D-12, & ! + & 2.5400D-12, 2.5400D-12, 4.0000D-12, 4.0000D-12, 2.7000D-12, & ! 1 & 2.7000D-12, 4.0000D-12, 4.0000D-12, 4.0000D-12, 2.7000D-12, & ! + & 4.0000D-12, 2.0000D-11, 2.0000D-11, 2.0800D-12, 4.1000D-13, & ! 2 & 7.5000D-13, 1.6600D-13, 1.6600D-13, 1.9000D-13, 1.6600D-13, & ! + & 1.6600D-13, 2.9100D-13, 2.9100D-13, 2.9100D-13, 2.9100D-13, & ! 3 & 2.6000D-13, 1.5000D-11, 2.7100D-13, 1.5000D-11, 2.6000D-13, & ! + & 1.5000D-11, 2.7100D-13, 1.5000D-11, 2.7100D-13, 2.7300D-13, & ! 4 & 4.3000D-13, 4.3000D-13, 1.1500D-13, 1.1500D-13, 1.1500D-13, & ! + & 1.8200D-13, 1.8200D-13, 2.9100D-13, 2.9100D-13, 3.7500D-13, & ! 5 & 1.0000D-11, 3.7500D-13, 1.1500D-13, 1.6600D-13, 1.6600D-13, & ! + & 3.7500D-13, 1.6600D-13, 9.5000D-14, 1.1800D-13, 9.4600D-14, & ! 6 & 1.0000D-13, 1.7100D-13, 1.4600D-13, 9.1800D-14, 3.5600D-14, & ! + & 3.5600D-14, 3.5600D-14, 3.5600D-14, 3.4000D-14, 2.0000D-12, & ! 7 & 1.0000D-10, 2.0000D-12, 1.0000D-10, 2.0000D-12, 1.0000D-10, & ! + & 2.0000D-12, 1.0000D-10, 2.0000D-11, 2.0000D-11, 7.5000D-13, & ! 8 & 6.9100D-13, 6.9100D-13, 3.4000D-14, 3.4000D-14, 8.3700D-14, & ! + & 3.4000D-14, 3.5600D-14, 3.5600D-14, 3.5600D-14, 3.5600D-14, & ! 9 & 7.5000D-13, 1.6000D-13, 9.6800D-14, 3.5600D-14, 5.9900D-15, & ! + & 1.0300D-12, 6.9000D-13, 5.5900D-13, 9.4800D-13, 8.1100D-13, & ! O & 5.0900D-13, 7.4000D-13, 7.4000D-13, 7.4000D-13, 7.4000D-13, & ! + & 8.4000D-14, 2.0000D-12, 1.0000D-10, 2.0000D-12, 1.0000D-10, & ! 1 & 2.0000D-12, 1.0000D-10, 2.0000D-12, 1.0000D-10, 2.5000D-12, & ! + & 2.5000D-12, 7.5100D-13, 7.5100D-13, 7.5100D-13, 8.4000D-14, & ! 2 & 8.4000D-14, 1.6800D-12, 1.6800D-12, 7.4000D-13, 7.4000D-13, & ! + & 7.4000D-13, 7.4000D-13, 7.5100D-13, 8.8500D-13, 5.3700D-13, & ! 3 & 7.4000D-13, 3.4000D-14, 2.5000D-12, 1.2000D-12, 1.2000D-12, & ! + & 1.2000D-12, 1.2000D-12, 1.2000D-12, 1.2000D-12, 1.2000D-12, & ! 4 & 2.3000D-12, 2.3000D-12, 2.3000D-12, 2.3000D-12, 1.2000D-12, & ! + & 2.3000D-12, 2.3000D-12, 2.3000D-12, 2.3000D-12, 4.0000D-12, & ! 5 & 4.0000D-12, 1.2000D-12, 1.2000D-12, 1.2000D-12, 1.2000D-12, & ! + & 1.2000D-12, 2.5000D-12, 2.5000D-12, 2.5000D-12, 2.5000D-12, & ! 6 & 1.2000D-12, 1.2000D-12, 1.2000D-12, 1.2000D-12, 1.2000D-12, & ! + & 1.2000D-12, 7.0000D-14, 4.2500D-14, 2.9600D-14, 1.2000D-12, & ! 7 & 2.5000D-12, 7.1300D-17, 1.0000D-10, 1.0000D-10, 1.0000D-10, & ! + & 1.0000D-10, 1.0000D-10, 1.0000D-10, 1.0000D-10, 1.0000D-10, & ! 8 & 1.0000D-10, 1.0000D-10, 1.0000D-10, 1.0000D-10, 5.7800D-11, & ! + & 6.8900D-12, 6.5500D-14, 8.0000D-12, 2.9000D-19, 3.4000D-15, & ! 9 & 1.0000D+00, 1.4800D-11, 9.0500D-12, 2.3000D-12, 1.6100D-11, & ! + & 2.3900D-12, 1.3700D-11, 1.3400D-14, 1.0000D-13, 5.0100D-11, & ! O & 2.7000D-12, 3.7500D-13, 4.4000D-11, 3.4300D-17, 8.9900D-12, & ! + & 1.2000D-11, 1.9000D-11, 2.8400D-13, 2.7000D-12, 2.3000D-12, & ! 1 & 1.2000D-14, 1.9700D-10, 2.8400D-13, 2.3000D-12, 2.7000D-12, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 2 & 1.0000D+00, 6.7006D-11, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 2.0000D+00, 5.0000D-01, 1.5300D-11, 1.6800D-11, 2.2400D-11, & ! 3 & 2.6700D-11, 3.0900D-11, 3.3800D-11, 1.1000D-11, 2.7000D-12, & ! + & 2.7000D-12, 2.7000D-12, 2.7000D-12, 2.7000D-12, 2.7000D-12, & ! 4 & 2.7000D-12, 2.3000D-12, 2.3000D-12, 2.3000D-12, 2.3000D-12, & ! + & 2.3000D-12, 2.3000D-12, 2.3000D-12, 2.1700D-11, 2.2000D-11, & ! 5 & 2.2500D-11, 2.2600D-11, 2.2700D-11, 2.2700D-11, 2.6600D-13, & ! + & 1.8800D-01, 1.8800D-01, 1.8800D-01, 1.8800D-01, 1.8800D-01, & ! 6 & 1.8800D-01, 1.8800D-01, 2.7000D-12, 2.7000D-12, 2.7000D-12, & ! + & 2.7000D-12, 2.7000D-12, 2.7000D-12, 2.7000D-12, 2.3000D-12, & ! 7 & 2.3000D-12, 2.3000D-12, 2.3000D-12, 2.3000D-12, 2.3000D-12, & ! + & 2.3000D-12, 2.1700D-11, 2.2000D-11, 2.2500D-11, 2.2600D-11, & ! 8 & 2.2700D-11, 2.2700D-11, 2.6600D-13, 1.8100D-11, 2.9100D-13, & ! + & 2.7000D-12, 2.3000D-12, 3.5600D-14, 7.4000D-13, 1.8100D-11, & ! 9 & 2.9100D-13, 2.7000D-12, 2.3000D-12, 3.5600D-14, 7.4000D-13, & ! + & 2.3100D-11, 2.9100D-13, 2.7000D-12, 2.3000D-12, 3.5600D-14, & ! O & 7.4000D-13, 5.9000D-11, 6.0700D-11, 5.5400D-11, 5.6300D-11, & ! + & 5.4600D-11, 4.5000D-11, 5.1700D-11, 4.7300D-11, 4.6000D-11, & ! 1 & 3.8000D-11, 3.9300D-11, 3.5200D-11, 3.1200D-11, 2.4000D-11, & ! + & 2.0500D-11, 4.6900D-11, 2.4500D-12, 9.2600D-05, 9.2600D-05, & ! 2 & 5.8000D-11, 2.9100D-12, 2.7000D-12, 2.3000D-12, 2.5000D-13, & ! + & 2.5000D-13/ ! 3 DATA ( RTDAT( 2,IRXXN ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00,-2.4000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 4.6000D+02, 2.6600D+03, 0.0000D+00,-1.5000D+00, & ! 5 & -2.6000D+00, 0.0000D+00, 2.7000D+02, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00,-1.6000D+00,-3.0000D+00, 4.6000D+02, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00,-3.0000D+00, & ! + & 1.0840D+04, 0.0000D+00,-3.4000D+00, 1.0900D+04, 0.0000D+00, & ! 7 & -4.1000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00,-4.5000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 3.6500D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 4.6000D+02, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 2.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00,-5.6000D+00, 1.4000D+04,-5.6000D+00, 1.4000D+04, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 3.4153D-08, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00/ ! 3 DATA ( RTDAT( 3,IRXXN ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & -9.4000D+02,-4.9000D+02,-1.5000D+03,-2.4500D+03, 0.0000D+00, & ! 4 & -2.0600D+03, 5.5000D+01, 1.1000D+02, 6.0000D+01,-1.8000D+03, & ! + & 2.5000D+02, 2.1000D-33, 2.9400D-54, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 2.6000D+02, 6.8570D-34, 6.6350D+02, 2.5000D+02, & ! + & 2.0000D+02, 0.0000D+00, 0.0000D+00, 2.7000D-17, 0.0000D+00, & ! 6 & 0.0000D+00, 1.2500D+02,-1.3350D+03,-2.4500D+03, 0.0000D+00, & ! + & 7.0000D+01, 0.0000D+00, 0.0000D+00, 7.3000D+01, 6.1000D+02, & ! 7 & 0.0000D+00, 2.7400D-33,-1.7750D+03,-1.0200D+03,-3.7000D+02, & ! + & -2.4500D+02, 0.0000D+00, 5.0000D+02, 5.0000D+02, 0.0000D+00, & ! 8 & -1.9300D+02, 3.5400D+02, 0.0000D+00, 0.0000D+00,-2.0000D+03, & ! + & -4.5000D+02, 3.9000D+02, 1.3000D+03, 3.5000D+02, 2.0000D+02, & ! 9 & 3.9000D+02, 5.8000D+02, 5.8000D+02, 3.9000D+02, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 4.4000D+02, 4.0100D+02, 6.0000D+02, & ! O & 0.0000D+00, 1.2500D+02, 3.4500D+02, 4.0500D+02,-4.2700D+02, & ! + & -9.0000D+01, 1.0000D+01, 0.0000D+00, 3.8000D+02, 6.1000D+02, & ! 1 & 5.3300D+02, 0.0000D+00, 8.3000D+02, 1.7500D+02, 1.7500D+02, & ! + & 0.0000D+00, 2.4300D+02, 4.0500D+02, 0.0000D+00, 0.0000D+00, & ! 2 & -3.4500D+02, 2.0000D+01, 2.0000D+02, 0.0000D+00, 1.9000D+02, & ! + & 1.9000D+02, 1.9000D+02, 1.9000D+02, 0.0000D+00, 0.0000D+00, & ! 3 & 8.5000D+02, 1.9000D+02, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & -2.6000D+02, 0.0000D+00, 2.7000D-17,-2.5800D+03,-1.8000D+03, & ! 4 & -8.4500D+02,-6.4000D+02,-7.7000D+02, 0.0000D+00, 0.0000D+00, & ! + & -2.1120D+03,-1.5200D+03, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00,-2.2820D+03,-4.5000D+02, 4.5000D+02, & ! + & 4.9000D+02, 0.0000D+00,-4.4800D+02,-2.4400D+03,-1.9000D+03, & ! 6 & -1.9000D+03, 0.0000D+00,-1.0760D+03,-1.9000D+03,-1.9000D+03, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00,-5.0000D+02, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 1.7700D+02, 0.0000D+00, 1.7900D+02, & ! + & 1.8100D+02,-1.3486D+04, 3.0000D+02, 3.6500D+02, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 3.6000D+02, & ! + & 3.6000D+02, 3.6000D+02, 3.6000D+02, 3.6000D+02, 0.0000D+00, & ! 9 & 3.6000D+02, 0.0000D+00, 3.6000D+02, 0.0000D+00, 3.6000D+02, & ! + & 0.0000D+00, 3.6000D+02, 3.6000D+02, 2.7000D+02, 2.7000D+02, & ! O & 3.0000D+02, 0.0000D+00, 0.0000D+00, 3.6000D+02, 3.6000D+02, & ! + & 3.6000D+02, 3.6000D+02, 0.0000D+00, 0.0000D+00, 3.6000D+02, & ! 1 & 3.6000D+02, 0.0000D+00, 0.0000D+00, 0.0000D+00, 3.6000D+02, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 7.5000D+02, & ! 2 & 7.0000D+02, 1.3000D+03, 1.3000D+03, 1.3000D+03, 1.3000D+03, & ! + & 1.3000D+03, 1.3000D+03, 1.3000D+03, 1.3000D+03, 1.3000D+03, & ! 3 & 1.3000D+03, 0.0000D+00, 1.3000D+03, 0.0000D+00, 1.3000D+03, & ! + & 0.0000D+00, 1.3000D+03, 0.0000D+00, 1.3000D+03, 1.3000D+03, & ! 4 & 1.0400D+03, 1.0400D+03, 1.3000D+03, 1.3000D+03, 1.3000D+03, & ! + & 1.3000D+03, 1.3000D+03, 1.3000D+03, 1.3000D+03, 9.8000D+02, & ! 5 & 0.0000D+00, 9.8000D+02, 1.3000D+03, 1.3000D+03, 1.3000D+03, & ! + & 9.8000D+02, 1.3000D+03, 3.9000D+02, 1.5800D+02, 4.3100D+02, & ! 6 & 4.6700D+02, 7.0800D+02, 7.0800D+02, 7.0800D+02, 7.0800D+02, & ! + & 7.0800D+02, 7.0800D+02, 7.0800D+02, 2.2100D+02, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 5.0000D+02, 5.0000D+02, 5.0000D+02, & ! 8 & 5.0800D+02, 5.0800D+02, 2.2100D+02, 2.2100D+02, 0.0000D+00, & ! + & 2.2100D+02, 7.0800D+02, 7.0800D+02, 7.0800D+02, 7.0800D+02, & ! 9 & 5.0000D+02, 7.0800D+02, 7.0800D+02, 0.0000D+00, 1.5100D+03, & ! + & 2.1100D+02, 4.6000D+02, 5.2200D+02, 7.6500D+02, 7.6500D+02, & ! O & 7.6500D+02, 7.6500D+02, 7.6500D+02, 7.6500D+02, 7.6500D+02, & ! + & 2.2100D+02, 5.0000D+02, 0.0000D+00, 5.0000D+02, 0.0000D+00, & ! 1 & 5.0000D+02, 0.0000D+00, 5.0000D+02, 0.0000D+00, 5.0000D+02, & ! + & 5.0000D+02, 5.6500D+02, 5.6500D+02, 5.6500D+02, 2.2100D+02, & ! 2 & 2.2100D+02, 5.0000D+02, 5.0000D+02, 7.6500D+02, 7.6500D+02, & ! + & 7.0800D+02, 7.0800D+02, 5.6500D+02, 7.6500D+02, 7.6500D+02, & ! 3 & 7.0800D+02, 1.5600D+03, 5.0000D+02, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 1.0000D+03, 1.0000D+03, 1.0000D+03, 0.0000D+00, & ! 7 & 5.0000D+02, 2.9500D+03, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00,-4.0000D+02, & ! + & 0.0000D+00, 0.0000D+00, 3.8000D+02, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 4.4800D+02, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00,-2.2830D+03, 0.0000D+00, 0.0000D+00, & ! O & 3.6000D+02, 9.8000D+02, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 1.3000D+03, 3.6000D+02, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 1.3000D+03, 0.0000D+00, 3.6000D+02, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 2.0000D-06, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 3.6000D+02, & ! + & 3.6000D+02, 3.6000D+02, 3.6000D+02, 3.6000D+02, 3.6000D+02, & ! 4 & 3.6000D+02, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.3000D+03, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 3.6000D+02, 3.6000D+02, 3.6000D+02, & ! + & 3.6000D+02, 3.6000D+02, 3.6000D+02, 3.6000D+02, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 1.3000D+03, 0.0000D+00, 1.3000D+03, & ! + & 3.6000D+02, 0.0000D+00, 7.0800D+02, 7.6500D+02, 0.0000D+00, & ! 9 & 1.3000D+03, 3.6000D+02, 0.0000D+00, 7.0800D+02, 7.6500D+02, & ! + & 0.0000D+00, 1.3000D+03, 3.6000D+02, 0.0000D+00, 7.0800D+02, & ! O & 7.6500D+02, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00,-1.7750D+03, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 1.3000D+03, 3.6000D+02, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00/ ! 3 INTEGER :: IRRFALL( NFALLOFF ) DATA ( IRRFALL( IRXXN ), IRXXN = 1, NFALLOFF ) / & & 52, 53, 55, 56, 58, 62, 63, 64, 70, 73, & & 76, 77, 82, 85, 143, 177, 179, 427/ DATA ( RFDAT( 1,IRXXN ), IRXXN = 1, NFALLOFF ) / & & 9.2000D+02, 3.1200D+03, 3.0000D-11, 3.6000D-11, 2.7000D+02, & & 2.3000D-11, 2.8000D-11, 2.1990D+03, 1.6000D-12, 4.0000D-12, & & 1.7000D-12, 0.0000D+00, 8.8000D-12, 8.3000D-13, 2.1990D+03, & & 9.3000D-12, 9.3000D-12, 1.0743D+01/ DATA ( RFDAT( 2,IRXXN ), IRXXN = 1, NFALLOFF ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00,-1.0000D-01,-1.0000D+00, & & -2.0000D-01, 0.0000D+00, 6.5000D-34, 1.0000D-01,-3.0000D-01, & & 2.0000D-01, 0.0000D+00,-8.5000D-01, 2.0000D+00, 6.5000D-34, & & -1.5000D+00,-1.5000D+00,-6.7130D-01/ DATA ( RFDAT( 3,IRXXN ), IRXXN = 1, NFALLOFF ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, & & 0.0000D+00, 0.0000D+00, 1.3350D+03, 0.0000D+00, 0.0000D+00, & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.3350D+03, & & 0.0000D+00, 0.0000D+00, 0.0000D+00/ DATA ( RFDAT( 4,IRXXN ), IRXXN = 1, NFALLOFF ) / & & 0.0000D+00, 0.0000D+00, 6.0000D-01, 6.0000D-01,-5.9680D-14, & & 6.0000D-01, 6.0000D-01, 0.0000D+00, 6.0000D-01, 6.0000D-01, & & 6.0000D-01, 0.0000D+00, 6.0000D-01, 6.0000D-01, 0.0000D+00, & & 6.0000D-01, 6.0000D-01, 0.0000D+00/ DATA ( RFDAT( 5,IRXXN ), IRXXN = 1, NFALLOFF ) / & & 0.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, 2.7000D+02, & & 1.0000D+00, 1.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, & & 1.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00, & & 1.0000D+00, 1.0000D+00, 0.0000D+00/ REAL( 8 ) :: SC( NRXNS,MXPRD ) DATA ( SC( IRXXN, 1 ), IRXXN = 1, NRXNS ) / & & 1.0000D+00, 1.0000D+00, 2.0000D+00, 1.0000D+00, 1.0000D+00, & ! O & 1.0000D+00, 1.0000D+00, 1.0000D+00, 2.0000D-01, 1.0000D+00, & ! + & 2.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 2.0000D+00, & ! 1 & 1.2200D+00, 1.0000D+00, 1.0000D+00, 1.0000D-01, 1.5000D+00, & ! + & 1.0000D+00, 3.4000D-01, 3.0000D-01, 2.0000D+00, 1.0000D+00, & ! 2 & 2.0000D+00, 1.0000D+00, 1.5000D+00, 1.5000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 3 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 4 & 0.0000D+00, 1.0000D+00, 1.0000D+00, 2.0000D+00, 1.0000D+00, & ! + & 0.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 5 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 2.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 6 & 7.0000D-01, 2.0000D+00, 1.0000D+00, 2.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 2.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 7 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 6.5000D-01, & ! 8 & 4.7000D-01, 8.2000D-01, 8.3000D-01, 8.2000D-01, 2.5000D-01, & ! + & 4.0000D-01, 1.0000D+00, 1.0000D+00, 1.3000D-01, 1.0000D+00, & ! 9 & 4.0000D-02, 4.5000D-01, 1.5000D-01, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 5.7000D-01, 9.7500D-01, 9.4500D-01, 2.3000D-01, & ! O & 8.3000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 5.7000D-01, 1.0000D+00, & ! 1 & 3.1300D-01, 1.0000D+00, 1.0000D+00, 5.2000D-01, 5.2000D-01, & ! + & 5.6000D-01, 1.0000D+00, 1.5200D-01, 2.0000D-01, 1.0000D+00, & ! 2 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 3.5000D-01, & ! + & 1.0000D-02, 1.0000D-02, 1.0000D-02, 1.0000D+00, 1.0000D+00, & ! 3 & 6.4000D-01, 3.5000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 3.3000D-01, 1.0000D+00, 8.0000D-02, 2.2000D-01, & ! 4 & 4.6000D-01, 6.0550D-01, 6.6000D-01, 9.0000D-02, 3.3000D-01, & ! + & 1.9000D-01, 1.6000D-01, 1.0000D-01, 5.0000D-02, 5.0000D-02, & ! 5 & 5.0000D-02, 1.0000D+00, 8.0000D-01, 4.3000D-01, 1.1000D-01, & ! + & 9.7500D-01, 9.4500D-01, 3.3000D-01, 1.0000D+00, 1.0000D+00, & ! 6 & 1.0000D+00, 6.8000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.5200D-01, 2.0000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 7 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 6.6000D-01, & ! 8 & 2.0000D-01, 1.0000D+00, 7.8000D-01, 8.3000D-01, 0.0000D+00, & ! + & 2.0000D-04, 1.0000D-04, 2.0000D-04, 2.3700D-01, 8.2000D-01, & ! 9 & 1.6955D+00, 8.2000D-01, 2.3000D-01, 7.7000D-01, 5.7000D-01, & ! + & 7.7000D-01, 3.6000D-01, 6.4000D-01, 1.0000D+00, 1.0000D+00, & ! O & 1.0000D+00, 6.7000D-01, 7.7000D-01, 6.5000D-01, 1.0000D+00, & ! + & 3.0000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 1 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 2.0000D+00, 2.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 2 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 6.0210D-01, 7.1950D-01, 4.8200D-02, 8.5400D-02, & ! 3 & 3.9000D-02, 1.0000D+00, 4.6100D-01, 1.0000D+00, 9.0000D-01, & ! + & 1.0000D+00, 7.7000D-01, 1.0000D+00, 7.5000D-01, 9.0000D-01, & ! 4 & 4.4000D-01, 4.4000D-01, 1.5000D-01, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 5 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 7.4000D-01, 1.0000D+00, 8.9400D-01, & ! 6 & 8.4200D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 6.8000D-01, & ! + & 6.8000D-01, 6.8000D-01, 6.8000D-01, 1.0000D+00, 1.0295D+00, & ! 7 & 1.0000D+00, 3.4100D-01, 7.5000D-01, 2.5000D-01, 1.0000D+00, & ! + & 6.9000D-01, 7.5000D-01, 9.0000D-01, 9.0000D-01, 5.0000D-01, & ! 8 & 8.3400D-01, 1.0000D+00, 5.0000D-01, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 2.0000D+00, 1.0000D+00, & ! 9 & 1.0000D+00, 2.0000D+00, 5.0000D-01, 1.0000D+00, 1.0000D+00, & ! + & 5.0000D-01, 3.9400D-01, 3.4200D-01, 5.0000D-01, 5.0000D-01, & ! O & 5.0000D-01, 7.0000D-01, 7.0000D-01, 7.0000D-01, 7.0000D-01, & ! + & 5.0000D-01, 2.5350D-01, 5.0000D-01, 8.2500D-01, 5.0000D-01, & ! 1 & 1.0000D+00, 5.0000D-01, 1.0000D+00, 5.0000D-01, 2.0000D+00, & ! + & 1.0000D+00, 5.0000D-01, 3.3000D-01, 5.0000D-01, 6.3500D-01, & ! 2 & 1.0000D+00, 5.0000D-01, 5.0000D-01, 1.0000D+00, 1.0000D+00, & ! + & 2.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 5.0000D-01, & ! 3 & 1.0000D+00, 1.0000D+00, 2.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 2.5400D-01, 4.8800D-01, 1.0000D+00, 4.7000D-01, 8.6000D-01, & ! 4 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.8250D+00, 1.4600D+00, 1.0000D+00, & ! 5 & 1.0000D+00, 1.0000D+00, 6.7000D-01, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 3.0000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 6 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 2.0000D+00, & ! + & 2.0000D+00, 1.0000D+00, 5.0000D-01, 1.0000D+00, 1.0000D+00, & ! 7 & 1.0000D+00, 0.0000D+00, 9.6000D-01, 9.6000D-01, 9.6000D-01, & ! + & 9.6000D-01, 9.6000D-01, 9.6000D-01, 9.6000D-01, 9.6000D-01, & ! 8 & 9.6000D-01, 9.6000D-01, 9.6000D-01, 9.6000D-01, 1.0000D+00, & ! + & 8.5200D-01, 1.0000D+00, 5.7000D-01, 8.4000D-01, 6.8000D-01, & ! 9 & 1.0000D+00, 6.6700D-01, 9.6800D-01, 1.0000D+00, 1.0000D+00, & ! + & 3.2000D-01, 7.0000D-01, 6.2000D-01, 9.0000D-01, 4.9000D-01, & ! O & 8.0000D-02, 6.0000D-01, 6.5000D-01, 2.0000D-02, 1.0000D+00, & ! + & 6.1300D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 1 & 9.8200D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 2.4700D-01, & ! + & 1.0000D+00, 1.0000D+00, 2.0000D+00, 5.0000D-01, 0.0000D+00, & ! 2 & 1.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 3 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 7.2000D-01, & ! + & 7.2000D-01, 7.2000D-01, 7.2000D-01, 7.2000D-01, 7.2000D-01, & ! 4 & 7.4000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 5 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 6 & 1.0000D+00, 1.0000D+00, 1.4000D-01, 1.4000D-01, 1.4000D-01, & ! + & 1.4000D-01, 1.4000D-01, 1.0000D+00, 1.2000D-01, 1.0000D+00, & ! 7 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 8 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 8.4000D-01, 5.9500D-02, & ! + & 1.0000D-04, 1.0000D+00, 6.8000D-01, 7.0000D-01, 8.4000D-01, & ! 9 & 5.9500D-02, 1.0000D-04, 1.0000D+00, 6.8000D-01, 7.0000D-01, & ! + & 8.4000D-01, 5.9500D-02, 5.9500D-02, 1.0000D+00, 6.8000D-01, & ! O & 7.0000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 1 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 2 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.3700D+00, & ! + & 1.0000D+00/ ! 3 DATA ( SC( IRXXN, 2 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, & ! O & 1.0000D+00, 1.0000D+00, 1.0000D+00, 8.0000D-01, 0.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 1 & 7.8400D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 5.0000D-01, & ! + & 1.0000D+00, 6.6000D-01, 3.0000D-01, 0.0000D+00, 1.0000D+00, & ! 2 & 2.0000D+00, 1.0000D+00, 2.5000D-01, 2.5000D-01, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 3 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 6.7000D-01, 1.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 1.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, & ! 6 & 7.0000D-01, 0.0000D+00, 1.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 1.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, & ! 7 & 1.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.8100D-05, & ! + & 1.3400D-03, 0.0000D+00, 0.0000D+00, 0.0000D+00, 3.5000D-01, & ! 8 & 5.3000D-01, 1.8000D-01, 1.7000D-01, 1.8000D-01, 2.5000D-01, & ! + & 4.5000D-02, 2.5000D-01, 7.0000D-02, 4.0000D-01, 0.0000D+00, & ! 9 & 2.0000D-02, 9.5000D-01, 6.5000D-01, 3.5000D-01, 1.0000D+00, & ! + & 1.0000D+00, 4.3000D-01, 2.5000D-02, 5.5000D-02, 7.7000D-01, & ! O & 1.7000D-01, 1.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 1.0000D+00, 4.3000D-01, 0.0000D+00, & ! 1 & 6.8700D-01, 2.0000D+00, 1.0000D+00, 3.3000D-01, 3.3000D-01, & ! + & 2.1000D-01, 0.0000D+00, 6.1900D-01, 5.8400D-01, 0.0000D+00, & ! 2 & 1.0000D+00, 1.0000D+00, 7.1900D-01, 1.0000D+00, 6.5000D-01, & ! + & 4.4000D-01, 4.4000D-01, 4.4000D-01, 0.0000D+00, 0.0000D+00, & ! 3 & 3.6000D-01, 6.5000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 6.7000D-01, 1.0000D+00, 1.5000D-01, 3.2000D-01, & ! 4 & 7.0000D-02, 2.1450D-01, 6.6000D-01, 1.0000D+00, 6.7000D-01, & ! + & 1.4000D-01, 1.1000D-01, 7.2000D-02, 1.0000D+00, 1.0000D+00, & ! 5 & 1.0000D+00, 0.0000D+00, 2.0000D-01, 5.7000D-01, 8.9000D-01, & ! + & 2.5000D-02, 5.5000D-02, 6.7000D-01, 1.0000D+00, 1.0000D+00, & ! 6 & 1.0000D+00, 3.2000D-01, 1.0000D+00, 2.0000D+00, 1.0000D+00, & ! + & 3.3900D-01, 3.2000D-01, 1.0000D+00, 1.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, 1.0000D+00, & ! + & 0.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.3100D-01, & ! 8 & 5.1000D-02, 1.0000D+00, 9.7000D-01, 9.5000D-01, 1.2000D-03, & ! + & 1.3000D-03, 1.3000D-03, 1.3000D-03, 7.6300D-01, 8.2000D-01, & ! 9 & 2.3450D-01, 8.2000D-01, 7.7000D-01, 7.7000D-01, 7.0000D-02, & ! + & 7.7000D-01, 6.4000D-01, 3.6000D-01, 1.0000D+00, 1.0000D+00, & ! O & 1.0000D+00, 1.0000D+00, 2.3000D-01, 3.5000D-01, 5.0000D-01, & ! + & 7.0000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 1 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 2.8700D-01, 1.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 3.9790D-01, 2.8050D-01, 6.7470D-01, 6.3410D-01, & ! 3 & 3.9000D-02, 0.0000D+00, 4.5500D-01, 0.0000D+00, 1.0000D-01, & ! + & 0.0000D+00, 5.0000D-01, 0.0000D+00, 2.5000D-01, 1.0000D-01, & ! 4 & 4.4000D-01, 4.4000D-01, 1.5000D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 1.3700D+00, 7.5000D-01, 8.0000D-02, & ! 6 & 1.8000D-02, 1.9500D+00, 1.5000D+00, 7.5000D-01, 1.3700D+00, & ! + & 1.2846D+00, 1.3218D+00, 1.2846D+00, 1.3100D+00, 2.2050D-01, & ! 7 & 7.5000D-01, 9.6400D-01, 7.5000D-01, 1.0000D+00, 7.5000D-01, & ! + & 9.1000D-01, 7.5000D-01, 9.0000D-01, 9.0000D-01, 5.0000D-01, & ! 8 & 1.0000D+00, 7.5000D-01, 2.6900D-01, 1.0000D+00, 1.1600D+00, & ! + & 3.0500D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 9 & 1.0000D+00, 1.0000D+00, 5.0000D-01, 7.0000D-01, 1.0000D+00, & ! + & 5.0000D-01, 5.8000D-01, 5.1800D-01, 5.0000D-01, 5.0000D-01, & ! O & 5.0000D-01, 1.0000D+00, 9.1460D-01, 9.5180D-01, 9.1460D-01, & ! + & 5.0000D-01, 3.7100D-01, 5.0000D-01, 6.5000D-01, 5.0000D-01, & ! 1 & 5.6000D-01, 5.0000D-01, 4.6000D-01, 5.0000D-01, 0.0000D+00, & ! + & 1.0000D+00, 5.0000D-01, 5.0000D-01, 5.0000D-01, 5.0000D-01, & ! 2 & 5.0000D-01, 5.0000D-01, 5.0000D-01, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 3 & 1.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.4000D-01, 5.5000D-02, 1.0000D+00, 7.9000D-01, 7.2000D-01, & ! 4 & 1.0000D+00, 9.1460D-01, 9.5180D-01, 9.1460D-01, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 6.5000D-01, 4.6000D-01, 1.0000D+00, & ! 5 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 5.3800D-01, & ! + & 1.0000D+00, 7.0000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 6 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 2.8700D-01, & ! + & 1.0000D+00, 2.0000D+00, 5.0000D-01, 5.0400D-01, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 4.8000D-01, 4.8000D-01, 4.8000D-01, & ! + & 4.8000D-01, 4.8000D-01, 4.8000D-01, 4.8000D-01, 4.8000D-01, & ! 8 & 4.8000D-01, 4.8000D-01, 4.8000D-01, 4.8000D-01, 0.0000D+00, & ! + & 1.4900D-01, 1.0100D-03, 4.3000D-01, 5.6000D-01, 3.2000D-01, & ! 9 & 4.7700D-01, 3.3300D-01, 9.6800D-01, 1.0000D+00, 0.0000D+00, & ! + & 1.1430D+00, 3.0000D-01, 6.3000D-01, 1.0000D-01, 4.9000D-01, & ! O & 9.2000D-01, 4.0000D-01, 3.1000D-01, 1.0000D+00, 8.0000D-01, & ! + & 3.8700D-01, 0.0000D+00, 0.0000D+00, 2.0000D+00, 2.0000D+00, & ! 1 & 1.8000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, 7.5300D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 5.0000D-01, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 1.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.8000D-01, & ! + & 2.8000D-01, 2.8000D-01, 2.8000D-01, 2.8000D-01, 2.8000D-01, & ! 4 & 2.6000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 6 & 1.0000D+00, 1.0000D+00, 8.6000D-01, 8.6000D-01, 8.6000D-01, & ! + & 8.6000D-01, 8.6000D-01, 8.6000D-01, 8.8000D-01, 1.0000D+00, & ! 7 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.6000D-01, 9.0480D-01, & ! + & 1.8000D-03, 9.4050D-01, 1.3105D+00, 9.4050D-01, 1.6000D-01, & ! 9 & 9.0480D-01, 1.8000D-03, 9.4050D-01, 1.3105D+00, 9.4050D-01, & ! + & 1.6000D-01, 9.0480D-01, 1.8000D-03, 9.4050D-01, 1.3105D+00, & ! O & 9.4050D-01, 8.5400D-02, 4.6400D-01, 1.0410D-01, 2.0360D-01, & ! + & 2.7920D-01, 7.4000D-03, 2.8220D-01, 6.5900D-02, 1.7780D-01, & ! 1 & 2.3000D-03, 4.4500D-02, 3.1700D-02, 1.1700D-02, 1.0300D-02, & ! + & 6.1000D-03, 1.1880D-01, 0.0000D+00, 1.0000D+00, 1.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, 1.6800D+00, & ! + & 1.0000D+00/ ! 3 DATA ( SC( IRXXN, 3 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 8.0000D-01, 0.0000D+00, & ! + & 0.0000D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 1.2200D+00, 1.0000D+00, 1.0000D+00, 9.0000D-01, 5.0000D-01, & ! + & 1.0000D+00, 6.7000D-01, 7.0000D-01, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 1.0000D+00, 2.0000D-01, 2.0000D-01, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00, & ! 3 & 2.0000D-01, 0.0000D+00, 0.0000D+00, 3.3000D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 3.0000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 1.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 3.5000D-01, & ! 8 & 5.3000D-01, 1.8000D-01, 1.7000D-01, 1.8000D-01, 4.0000D-01, & ! + & 3.5000D-01, 3.0000D-02, 5.0000D-01, 8.8000D-01, 0.0000D+00, & ! 9 & 1.3000D-01, 2.0000D-02, 5.0000D-02, 1.7000D-01, 3.0000D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 4.0000D-01, 1.3000D-01, & ! + & 1.1000D-01, 0.0000D+00, 1.7000D-01, 1.6000D-01, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 1.8400D-01, 0.0000D+00, 3.5000D-01, & ! + & 7.0000D-02, 7.0000D-02, 7.0000D-02, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 3.5000D-01, 1.0000D+00, 1.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 2.7000D-01, 0.0000D+00, 4.3000D-01, 8.0000D-02, & ! 4 & 3.2000D-01, 2.5500D-01, 3.3000D-01, 6.2000D-01, 2.7000D-01, & ! + & 1.0000D-01, 2.8000D-01, 8.0000D-03, 6.0000D-01, 6.0000D-01, & ! 5 & 1.5000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 2.7000D-01, 1.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 6.8000D-01, 6.6800D-01, 1.0000D+00, 1.0000D+00, & ! + & 8.5000D-01, 8.0000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, 4.8000D-02, & ! 8 & 2.3100D-01, 1.6000D+00, 7.8000D-01, 8.1000D-01, 8.0000D-04, & ! + & 6.0000D-04, 6.0000D-04, 6.0000D-04, 7.6300D-01, 1.0000D+00, & ! 9 & 7.0000D-02, 1.0000D+00, 7.7000D-01, 1.0000D+00, 1.3600D+00, & ! + & 1.0000D+00, 6.4000D-01, 3.6000D-01, 0.0000D+00, 0.0000D+00, & ! O & 1.0000D+00, 3.3000D-01, 1.6000D-01, 1.0000D+00, 5.0000D-01, & ! + & 7.0000D-01, 6.1000D-01, 0.0000D+00, 0.0000D+00, 3.2000D-01, & ! 1 & 0.0000D+00, 1.0000D+00, 1.0000D+00, 1.2400D+00, 1.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.7710D-01, 2.8050D-01, & ! 3 & 6.2500D-02, 0.0000D+00, 5.3900D-01, 0.0000D+00, 1.0000D-01, & ! + & 0.0000D+00, 2.3000D-01, 0.0000D+00, 2.5000D-01, 1.0000D-01, & ! 4 & 1.5000D-01, 1.5000D-01, 1.5000D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 6.3000D-01, 7.5000D-01, 2.6000D-02, & ! 6 & 1.4000D-01, 1.5000D-01, 7.0500D-01, 1.2800D+00, 3.2000D-01, & ! + & 3.2000D-01, 3.2000D-01, 3.2000D-01, 1.5900D-01, 2.7300D-01, & ! 7 & 2.5000D-01, 4.3000D-02, 2.5000D-01, 1.0300D+00, 2.5000D-01, & ! + & 9.0000D-02, 7.5000D-01, 1.0000D+00, 1.0000D+00, 1.5000D+00, & ! 8 & 3.3400D-01, 5.0000D-01, 5.0000D-01, 1.5000D+00, 1.1600D+00, & ! + & 7.7300D-01, 1.0000D+00, 1.0000D+00, 3.2000D-01, 1.0000D+00, & ! 9 & 1.0000D+00, 1.0000D+00, 9.6500D-01, 1.0000D+00, 0.0000D+00, & ! + & 1.0000D+00, 2.6000D-02, 1.4000D-01, 1.6000D+00, 1.0000D+00, & ! O & 1.7100D+00, 3.0000D-01, 3.0000D-01, 3.0000D-01, 3.0000D-01, & ! + & 1.0480D+00, 9.1000D-02, 5.0000D-01, 1.0000D+00, 5.0000D-01, & ! 1 & 1.0000D+00, 5.0000D-01, 4.6000D-01, 5.0000D-01, 0.0000D+00, & ! + & 0.0000D+00, 1.0000D+00, 3.3000D-01, 5.0000D-01, 2.6900D-01, & ! 2 & 1.0000D+00, 1.1600D+00, 5.0000D-01, 0.0000D+00, 0.0000D+00, & ! + & 3.2000D-01, 1.0000D+00, 0.0000D+00, 1.0000D+00, 2.8700D-01, & ! 3 & 7.0000D-01, 0.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 9.2000D-02, 2.8000D-01, 1.6000D+00, 7.9000D-01, 1.1000D-01, & ! 4 & 0.0000D+00, 8.5400D-02, 4.8200D-02, 8.5400D-02, 7.5000D-01, & ! + & 2.5350D-01, 1.0000D+00, 1.7500D-01, 5.4000D-01, 0.0000D+00, & ! 5 & 0.0000D+00, 1.0000D+00, 3.3000D-01, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 7.0000D-01, 6.1000D-01, 0.0000D+00, 0.0000D+00, & ! 6 & 3.2000D-01, 0.0000D+00, 1.0000D+00, 1.0000D+00, 1.2400D+00, & ! + & 1.0000D+00, 0.0000D+00, 2.0200D-01, 1.2100D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 4.8000D-01, 4.8000D-01, 4.8000D-01, & ! + & 4.8000D-01, 4.8000D-01, 4.8000D-01, 4.8000D-01, 4.8000D-01, & ! 8 & 4.8000D-01, 4.8000D-01, 4.8000D-01, 4.8000D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.8000D-01, 6.8000D-01, & ! 9 & 2.5000D-01, 3.3300D-01, 8.9500D-01, 9.2500D-01, 0.0000D+00, & ! + & 8.7000D-01, 8.0000D-01, 4.2000D-01, 9.0000D-01, 5.1000D-01, & ! O & 9.2000D-01, 4.0000D-01, 6.6000D-01, 0.0000D+00, 2.0000D-01, & ! + & 1.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 7.5300D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 7.2000D-01, & ! + & 7.2000D-01, 7.2000D-01, 7.2000D-01, 7.2000D-01, 7.2000D-01, & ! 4 & 7.4000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 8.6000D-01, 8.6000D-01, 8.6000D-01, & ! + & 8.6000D-01, 8.6000D-01, 8.6000D-01, 8.8000D-01, 1.0000D+00, & ! 7 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.6000D-01, 3.5700D-02, & ! + & 1.0000D-04, 5.9500D-02, 3.2000D-01, 3.0000D-01, 1.6000D-01, & ! 9 & 3.5700D-02, 1.0000D-04, 5.9500D-02, 3.2000D-01, 3.0000D-01, & ! + & 1.6000D-01, 3.5700D-02, 1.0000D-04, 5.9500D-02, 3.2000D-01, & ! O & 3.0000D-01, 2.5810D-01, 1.9770D-01, 5.6380D-01, 7.1000D-03, & ! + & 4.0250D-01, 1.1900D-01, 1.1650D-01, 4.5790D-01, 1.9240D-01, & ! 1 & 1.3400D-01, 1.7260D-01, 7.6500D-02, 1.6700D-02, 6.0000D-04, & ! + & 4.9000D-03, 8.0000D-04, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00/ ! 3 DATA ( SC( IRXXN, 4 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.0000D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 3.5000D-01, 0.0000D+00, 0.0000D+00, 1.0000D-01, 0.0000D+00, & ! + & 0.0000D+00, 3.3000D-01, 7.0000D-01, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 8.0000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 6.5000D-01, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.8000D-02, & ! + & 5.5500D-01, 5.0000D-02, 0.0000D+00, 8.7000D-01, 0.0000D+00, & ! 9 & 4.4000D-01, 0.0000D+00, 2.0000D-01, 6.5000D-01, 1.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 7.8000D-01, 1.0000D-01, & ! + & 2.7000D-01, 0.0000D+00, 5.9000D-02, 5.6000D-02, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 8.0000D-02, 8.0000D-02, 8.0000D-02, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 3.5000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 3.8000D-01, 0.0000D+00, 1.0000D+00, 6.0000D-02, & ! 4 & 7.0000D-02, 2.5350D-01, 3.3000D-01, 2.3000D-01, 3.8000D-01, & ! + & 2.2000D-01, 1.0000D-02, 2.0000D-03, 6.0000D-01, 6.0000D-01, & ! 5 & 4.8000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 3.8000D-01, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 6.8000D-01, 3.3200D-01, 0.0000D+00, 0.0000D+00, & ! + & 4.2400D-01, 4.0000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 8.9000D-02, & ! 8 & 2.3500D-01, 2.0000D-01, 1.2000D-02, 6.8000D-01, 9.9800D-01, & ! + & 9.9800D-01, 9.9800D-01, 9.9800D-01, 1.9500D-01, 0.0000D+00, & ! 9 & 6.0450D-01, 0.0000D+00, 7.7000D-01, 0.0000D+00, 4.3000D-01, & ! + & 0.0000D+00, 0.0000D+00, 3.6000D-01, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 6.7000D-01, 1.0000D+00, 6.5000D-01, 1.0000D+00, & ! + & 1.0000D+00, 3.0000D-02, 0.0000D+00, 0.0000D+00, 6.8000D-01, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 4.6400D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 7.6200D-01, 0.0000D+00, 6.1950D-01, 0.0000D+00, 1.0000D-01, & ! + & 0.0000D+00, 2.3000D-01, 0.0000D+00, 0.0000D+00, 1.0000D-01, & ! 4 & 4.1000D-01, 4.1000D-01, 8.5000D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.5000D-01, 2.6000D-02, & ! 6 & 1.9100D-01, 2.5000D-01, 4.5000D-02, 2.1800D-01, 0.0000D+00, & ! + & 8.5400D-02, 4.8200D-02, 8.5400D-02, 2.5000D-01, 2.3850D-01, & ! 7 & 1.0000D+00, 9.1800D-01, 7.5000D-01, 1.0000D+00, 1.0000D+00, & ! + & 1.0100D+00, 2.5000D-01, 1.0000D-01, 1.0000D-01, 2.5000D-01, & ! 8 & 2.5000D-01, 2.5000D-01, 1.6600D+00, 5.0000D-01, 1.5000D+00, & ! + & 2.0300D-01, 0.0000D+00, 0.0000D+00, 6.8000D-01, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 9.3000D-01, 7.0000D-01, 0.0000D+00, & ! + & 5.0000D-01, 2.6000D-02, 1.9100D-01, 2.0000D-01, 9.4000D-01, & ! O & 2.9000D-01, 0.0000D+00, 8.5400D-02, 4.8200D-02, 8.5400D-02, & ! + & 2.1900D-01, 1.1650D-01, 1.0000D+00, 1.7500D-01, 1.0000D+00, & ! 1 & 1.0000D+00, 1.0000D+00, 5.4000D-01, 1.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 7.5000D-01, 3.3400D-01, 5.0000D-01, 5.0000D-01, & ! 2 & 5.0000D-01, 1.1600D+00, 3.0000D-02, 0.0000D+00, 0.0000D+00, & ! + & 6.8000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.2400D+00, & ! 3 & 7.0000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 5.0300D-01, 4.8500D-01, 2.0000D-01, 1.0000D+00, 1.0000D+00, & ! 4 & 1.0000D+00, 5.4880D-01, 7.0430D-01, 5.4880D-01, 3.1800D-01, & ! + & 3.7100D-01, 5.6000D-01, 1.6800D-01, 5.4000D-01, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 6.7000D-01, 0.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 3.0000D-02, 0.0000D+00, 0.0000D+00, & ! 6 & 6.8000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 4.6400D-01, & ! + & 0.0000D+00, 0.0000D+00, 6.4000D-01, 2.8500D-01, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 4.8000D-01, 4.8000D-01, 4.8000D-01, & ! + & 4.8000D-01, 4.8000D-01, 4.8000D-01, 4.8000D-01, 4.8000D-01, & ! 8 & 4.8000D-01, 4.8000D-01, 4.8000D-01, 4.8000D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 7.2000D-01, 6.8000D-01, & ! 9 & 3.5400D-01, 0.0000D+00, 8.9500D-01, 9.2500D-01, 0.0000D+00, & ! + & 4.6300D-01, 7.4000D-01, 8.0000D-02, 0.0000D+00, 0.0000D+00, & ! O & 7.5000D-01, 3.2000D-01, 3.4000D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 8.6000D-01, 8.6000D-01, 8.6000D-01, & ! + & 8.6000D-01, 8.6000D-01, 0.0000D+00, 8.8000D-01, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 9.9800D-01, 4.7020D-01, 5.9500D-02, 5.9500D-02, 0.0000D+00, & ! 9 & 0.0000D+00, 9.9800D-01, 4.7020D-01, 5.9500D-02, 5.9500D-02, & ! + & 0.0000D+00, 0.0000D+00, 9.9800D-01, 4.7020D-01, 5.9500D-02, & ! O & 5.9500D-02, 2.5810D-01, 1.2100D-02, 2.1410D-01, 1.8400D-01, & ! + & 8.8000D-03, 7.2610D-01, 3.2000D-02, 1.1560D-01, 4.0000D-04, & ! 1 & 3.3490D-01, 1.0400D-02, 9.0000D-04, 4.8000D-02, 9.0000D-03, & ! + & 2.2400D-02, 3.9000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, 3.2000D-01, & ! + & 7.0000D-01/ ! 3 DATA ( SC( IRXXN, 5 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 4.3400D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 3.4000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 5.0000D-01, 5.0000D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 3.5000D-01, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D-01, & ! + & 2.6000D-01, 0.0000D+00, 0.0000D+00, 1.8000D-01, 0.0000D+00, & ! 9 & 1.1000D-01, 0.0000D+00, 1.3000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D-01, 1.0000D-02, & ! + & 1.0000D-02, 0.0000D+00, 6.1900D-01, 5.8400D-01, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 4.1000D-01, 4.1000D-01, 4.1000D-01, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 2.1000D-01, 0.0000D+00, 3.7000D-01, 4.0000D-02, & ! 4 & 4.0000D-02, 6.5000D-03, 3.3000D-01, 2.0000D-02, 2.1000D-01, & ! + & 5.0000D-01, 5.6000D-01, 1.0000D-01, 1.5000D+00, 1.5000D+00, & ! 5 & 7.0000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 2.1000D-01, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 3.2000D-01, 3.3200D-01, 0.0000D+00, 0.0000D+00, & ! + & 4.2400D-01, 4.0000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 9.3500D-01, & ! 8 & 8.6400D-01, 0.0000D+00, 4.4000D-01, 2.0000D-01, 9.9800D-01, & ! + & 9.9800D-01, 9.9800D-01, 9.9800D-01, 2.8400D-01, 0.0000D+00, & ! 9 & 1.5400D-01, 0.0000D+00, 4.3000D-01, 0.0000D+00, 5.0000D-01, & ! + & 0.0000D+00, 0.0000D+00, 3.6000D-01, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 4.6000D-01, 6.5000D-01, 0.0000D+00, & ! + & 3.0000D-01, 2.7000D-01, 0.0000D+00, 0.0000D+00, 6.8000D-01, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 3.2250D-01, 0.0000D+00, 7.7000D-02, 0.0000D+00, 6.0000D-02, & ! + & 0.0000D+00, 2.7000D-01, 0.0000D+00, 0.0000D+00, 1.0000D-01, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.5000D-01, 8.2700D-01, & ! 6 & 7.7700D-01, 2.5000D-01, 2.5000D-01, 2.5000D-01, 1.0000D+00, & ! + & 5.4880D-01, 7.0430D-01, 5.4880D-01, 2.5000D-01, 8.4500D-02, & ! 7 & 0.0000D+00, 6.5900D-01, 1.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 3.1000D-01, 1.0000D+00, 0.0000D+00, 0.0000D+00, 2.5000D-01, & ! 8 & 2.5000D-01, 2.5000D-01, 6.7000D-02, 2.5000D-01, 1.7500D+00, & ! + & 5.2500D-01, 0.0000D+00, 0.0000D+00, 6.8000D-01, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 3.4800D-01, 7.0000D-01, 0.0000D+00, & ! + & 0.0000D+00, 1.3000D-01, 4.2000D-02, 5.0000D-01, 6.0000D-02, & ! O & 5.0000D-01, 1.0000D+00, 5.4880D-01, 7.0430D-01, 5.4880D-01, & ! + & 3.0500D-01, 1.7250D-01, 0.0000D+00, 1.6800D-01, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 5.4000D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 5.0000D-01, 0.0000D+00, 1.0000D+00, & ! 2 & 5.0000D-01, 1.0000D+00, 2.7000D-01, 0.0000D+00, 0.0000D+00, & ! + & 6.8000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 4.6400D-01, & ! 3 & 7.0000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 0.0000D+00, 1.8000D-01, 2.0000D-01, & ! 4 & 5.0000D-01, 3.6590D-01, 2.4750D-01, 3.6590D-01, 5.0000D-01, & ! + & 1.1650D-01, 0.0000D+00, 7.0000D-03, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 3.0000D-01, 2.7000D-01, 0.0000D+00, 0.0000D+00, & ! 6 & 6.8000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 1.4900D-01, 1.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 4.8000D-01, 4.8000D-01, 4.8000D-01, & ! + & 4.8000D-01, 4.8000D-01, 4.8000D-01, 4.8000D-01, 4.8000D-01, & ! 8 & 4.8000D-01, 4.8000D-01, 4.8000D-01, 4.8000D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 6.2000D-01, 3.2000D-01, & ! 9 & 2.0400D-01, 0.0000D+00, 7.2000D-02, 7.5000D-02, 0.0000D+00, & ! + & 2.5000D-01, 7.4000D-01, 8.3000D-01, 0.0000D+00, 0.0000D+00, & ! O & 1.7000D-01, 8.0000D-02, 4.3000D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 9.9800D-01, 4.7020D-01, 4.7020D-01, 4.7020D-01, 0.0000D+00, & ! 9 & 0.0000D+00, 9.9800D-01, 4.7020D-01, 4.7020D-01, 4.7020D-01, & ! + & 0.0000D+00, 0.0000D+00, 9.9800D-01, 4.7020D-01, 4.7020D-01, & ! O & 4.7020D-01, 2.5810D-01, 1.5200D-02, 1.5300D-02, 1.8400D-01, & ! + & 3.1900D-02, 1.2200D-02, 1.8300D-02, 3.2500D-02, 7.4000D-02, & ! 1 & 8.0000D-03, 5.1300D-02, 5.2600D-02, 2.4600D-02, 1.4600D-02, & ! + & 5.0300D-02, 1.1400D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 3.0000D-01/ ! 3 DATA ( SC( IRXXN, 6 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 2.1600D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 6.7000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 5.0000D-01, 5.0000D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 9.0000D-02, & ! + & 2.8000D-02, 0.0000D+00, 0.0000D+00, 5.1000D-01, 0.0000D+00, & ! 9 & 3.0000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D-02, 7.8000D-01, & ! + & 7.9000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 2.0000D-02, 0.0000D+00, 0.0000D+00, 2.0000D-02, & ! 4 & 9.0000D-02, 1.1050D-01, 3.3000D-01, 1.5000D-01, 2.0000D-02, & ! + & 4.5000D-01, 1.0000D-01, 2.4300D-01, 5.0000D-02, 5.0000D-02, & ! 5 & 2.5000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 2.0000D-02, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 6.8000D-01, 1.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 5.0400D-01, & ! 8 & 1.8000D-02, 0.0000D+00, 6.0000D-02, 9.0000D-02, 0.0000D+00, & ! + & 8.5200D-02, 4.8100D-02, 8.5200D-02, 8.6500D-02, 0.0000D+00, & ! 9 & 7.0000D-03, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 5.4000D-01, 0.0000D+00, 0.0000D+00, & ! + & 7.0000D-01, 1.8000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 1.8850D-01, 0.0000D+00, 7.0000D-03, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.9800D-01, & ! 6 & 2.5100D-01, 0.0000D+00, 2.5000D-01, 2.5000D-01, 5.0000D-01, & ! + & 3.6590D-01, 2.4750D-01, 3.6590D-01, 2.5000D-01, 1.1050D-01, & ! 7 & 0.0000D+00, 5.3300D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 3.1000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.2500D-01, & ! 8 & 0.0000D+00, 0.0000D+00, 2.5000D-01, 2.5000D-01, 5.0000D-01, & ! + & 1.3500D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 2.5000D-01, 3.0000D-01, 0.0000D+00, & ! + & 0.0000D+00, 2.7300D-01, 3.8100D-01, 0.0000D+00, 5.0000D-01, & ! O & 0.0000D+00, 5.0000D-01, 3.6590D-01, 2.4750D-01, 3.6590D-01, & ! + & 5.0000D-01, 4.0300D-01, 0.0000D+00, 7.0000D-03, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 5.0000D-01, 2.3000D+00, 7.0000D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 5.0000D-01, & ! 3 & 3.0000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 5.1900D-01, 2.4000D-02, 0.0000D+00, 2.0000D-02, 8.5000D-01, & ! 4 & 2.5000D-01, 3.6590D-01, 3.5220D-01, 4.5730D-01, 2.4000D-02, & ! + & 1.7250D-01, 0.0000D+00, 7.0000D-03, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 7.0000D-01, 7.0000D-01, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 1.5000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 4.0000D-02, 4.0000D-02, 4.8000D-01, & ! + & 4.0000D-02, 4.0000D-02, 4.8000D-01, 4.0000D-02, 4.0000D-02, & ! 8 & 4.8000D-01, 4.0000D-02, 4.0000D-02, 4.8000D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 6.8000D-01, & ! 9 & 1.5000D-01, 0.0000D+00, 3.2000D-02, 0.0000D+00, 0.0000D+00, & ! + & 2.3100D-01, 1.8500D-01, 1.7000D-01, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 4.0000D-02, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 5.9400D-02, 4.7020D-01, 4.7020D-01, 4.7020D-01, 0.0000D+00, & ! 9 & 0.0000D+00, 5.9400D-02, 4.7020D-01, 4.7020D-01, 4.7020D-01, & ! + & 0.0000D+00, 0.0000D+00, 4.6930D-01, 4.7020D-01, 4.7020D-01, & ! O & 4.7020D-01, 2.5810D-01, 6.2400D-02, 2.9800D-02, 1.8400D-01, & ! + & 7.6000D-03, 3.0500D-02, 1.1000D-03, 6.5700D-02, 4.5200D-02, & ! 1 & 1.1930D-01, 1.1180D-01, 4.8900D-02, 8.8100D-02, 7.0200D-02, & ! + & 2.2000D-03, 2.2660D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00/ ! 3 DATA ( SC( IRXXN, 7 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 6.7000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.2000D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 2.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 6.8000D-02, & ! 4 & 3.7000D-01, 1.1050D-01, 1.0000D-02, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 5.4000D-01, 8.0000D-02, 5.0000D-02, 5.0000D-02, & ! 5 & 2.5000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.3200D-01, & ! 8 & 4.5000D-02, 0.0000D+00, 1.3000D-01, 2.0000D-02, 9.9800D-01, & ! + & 5.4770D-01, 7.0290D-01, 5.4770D-01, 1.2850D-01, 0.0000D+00, & ! 9 & 7.0000D-03, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 3.0000D-01, 7.0000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 2.3800D-01, 0.0000D+00, 7.0000D-03, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 4.9700D-01, & ! 6 & 6.1800D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.5000D-01, & ! + & 3.6590D-01, 3.5220D-01, 4.5730D-01, 2.3000D-02, 1.8350D-01, & ! 7 & 0.0000D+00, 7.0000D-03, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 2.5000D-01, 0.0000D+00, 2.5000D-01, & ! + & 1.0500D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 2.5000D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 6.6200D-01, 8.2400D-01, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 2.5000D-01, 3.6590D-01, 3.5220D-01, 4.5730D-01, & ! + & 0.0000D+00, 1.0000D+00, 0.0000D+00, 7.0000D-03, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 5.0000D-01, 1.8000D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 1.4700D-01, 2.4100D-01, 0.0000D+00, 9.0000D-02, 4.0000D-02, & ! 4 & 2.5000D-01, 5.4880D-01, 5.9960D-01, 4.5730D-01, 3.3000D-02, & ! + & 4.0300D-01, 0.0000D+00, 1.7500D-01, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 3.0000D-01, 1.8000D-01, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 4.0000D-02, & ! + & 0.0000D+00, 0.0000D+00, 4.0000D-02, 0.0000D+00, 0.0000D+00, & ! 8 & 4.0000D-02, 0.0000D+00, 0.0000D+00, 4.0000D-02, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 2.7000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 3.7000D-02, 6.0000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 4.6930D-01, 4.7020D-01, 4.7020D-01, 4.7020D-01, 0.0000D+00, & ! 9 & 0.0000D+00, 4.6930D-01, 4.7020D-01, 4.7020D-01, 4.7020D-01, & ! + & 0.0000D+00, 0.0000D+00, 4.6930D-01, 4.7020D-01, 4.7020D-01, & ! O & 4.7020D-01, 2.5810D-01, 3.8800D-02, 9.6000D-03, 1.8400D-01, & ! + & 1.9400D-02, 7.0000D-03, 6.6000D-02, 4.6000D-03, 6.3100D-02, & ! 1 & 7.5800D-02, 1.3000D-03, 1.5500D-01, 9.1600D-02, 1.5300D-02, & ! + & 8.7900D-02, 2.2660D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00/ ! 3 DATA ( SC( IRXXN, 8 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 3.4000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 4.3000D-01, & ! 4 & 2.6000D-02, 4.5900D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 7.0000D-02, 4.2000D-01, 8.0000D-02, 8.0000D-02, & ! 5 & 1.1000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.6500D-01, & ! 8 & 2.0300D-01, 0.0000D+00, 3.0000D-02, 5.0000D-02, 4.9900D-01, & ! + & 3.6510D-01, 2.4700D-01, 3.6510D-01, 3.0800D-01, 0.0000D+00, & ! 9 & 1.6450D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 2.1000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 1.0500D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 5.0000D-02, & ! 6 & 2.5000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.5000D-01, & ! + & 5.4880D-01, 5.9960D-01, 4.5730D-01, 1.8000D-02, 6.7000D-02, & ! 7 & 0.0000D+00, 1.1900D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 2.5000D-01, 0.0000D+00, 2.5000D-01, & ! + & 2.5000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 5.0000D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 6.7000D-02, 5.0000D-01, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 2.5000D-01, 5.4880D-01, 5.9960D-01, 4.5730D-01, & ! + & 0.0000D+00, 1.0000D+00, 0.0000D+00, 1.7500D-01, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 1.0830D+00, 1.0500D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 7.5000D-02, 6.0000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 3.1000D-02, & ! + & 9.1000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 2.1000D-01, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 1.9000D-02, 1.5000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 4.6930D-01, 0.0000D+00, 4.7020D-01, 4.7020D-01, 0.0000D+00, & ! 9 & 0.0000D+00, 4.6930D-01, 0.0000D+00, 4.7020D-01, 4.7020D-01, & ! + & 0.0000D+00, 0.0000D+00, 4.6930D-01, 0.0000D+00, 4.7020D-01, & ! O & 4.7020D-01, 2.5810D-01, 4.9100D-02, 1.8900D-02, 1.8400D-01, & ! + & 1.0400D-02, 2.9100D-02, 5.3500D-02, 3.0700D-02, 7.0000D-04, & ! 1 & 2.9200D-02, 1.3370D-01, 1.5500D-02, 7.3000D-03, 1.0380D-01, & ! + & 1.3840D-01, 2.2660D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00/ ! 3 DATA ( SC( IRXXN, 9 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 3.0000D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 1.4000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.0000D-02, & ! 4 & 1.0000D-02, 2.8050D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 7.0000D-02, 2.8000D-02, 6.5000D-01, 7.0000D-01, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 4.2000D-02, & ! 8 & 3.3000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.4950D-01, & ! + & 3.6510D-01, 3.5150D-01, 4.5640D-01, 7.1500D-02, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.5000D-01, & ! 6 & 2.5000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.6000D-02, 1.2790D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.9200D-01, & ! + & 2.5000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 5.0000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 1.1200D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 5.0000D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 9.5000D-02, 6.3000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 1.1200D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 4.6930D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 4.6930D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 4.6930D-01, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 2.5810D-01, 3.9800D-02, 4.5600D-02, 1.8400D-01, & ! + & 5.1000D-02, 4.5400D-02, 2.4600D-02, 2.4000D-03, 6.0000D-04, & ! 1 & 7.6600D-02, 4.0300D-02, 1.0510D-01, 9.7200D-02, 3.1000D-03, & ! + & 1.4630D-01, 2.2660D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00/ ! 3 DATA ( SC( IRXXN, 10 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.4000D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 1.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.5000D-02, & ! 4 & 1.0000D-02, 1.7850D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 1.0000D-01, 4.9100D-01, 0.0000D+00, 6.5000D-01, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 6.5000D-02, & ! 8 & 2.1700D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.4950D-01, & ! + & 5.4770D-01, 5.9840D-01, 4.5640D-01, 8.4000D-02, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.5000D-01, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 2.4700D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 4.6930D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 4.6930D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 2.5810D-01, 1.8300D-02, 3.1400D-02, 1.8400D-01, & ! + & 7.5000D-03, 2.3400D-02, 5.4000D-03, 3.9500D-02, 2.2700D-02, & ! 1 & 2.7700D-02, 5.1100D-02, 1.3000D-03, 4.5600D-02, 1.6500D-01, & ! + & 4.3200D-02, 2.2660D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00/ ! 3 DATA ( SC( IRXXN, 11 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.8000D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 6.0000D-03, & ! 4 & 9.0000D-02, 6.6500D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 3.0000D-03, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 3.3000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 4.8000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 3.0800D-02, 1.9900D-02, 1.8400D-01, & ! + & 5.1200D-02, 3.5200D-02, 1.0680D-01, 2.1500D-02, 5.8500D-02, & ! 1 & 1.1800D-02, 6.8000D-03, 5.3500D-02, 2.4000D-03, 1.5660D-01, & ! + & 9.5700D-02, 2.2660D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00/ ! 3 DATA ( SC( IRXXN, 12 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.5300D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 3.2000D-02, & ! 4 & 4.5700D-01, 3.8500D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 4.4000D-02, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 2.7200D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 2.7500D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 4.0000D-03, 4.5900D-02, 1.8400D-01, & ! + & 4.6200D-02, 6.2400D-02, 1.0680D-01, 5.3900D-02, 6.4900D-02, & ! 1 & 6.5100D-02, 2.3600D-02, 8.6000D-03, 4.7900D-02, 7.2400D-02, & ! + & 3.1600D-02, 2.2660D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00/ ! 3 DATA ( SC( IRXXN, 13 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 5.6000D-01, & ! 4 & 7.3000D-01, 2.8000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 1.3600D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 7.9400D-02, 4.5200D-02, 1.8400D-01, & ! + & 5.1200D-02, 5.1800D-02, 1.0680D-01, 5.1600D-02, 1.7400D-02, & ! 1 & 7.0900D-02, 2.9300D-02, 4.2600D-02, 7.4500D-02, 6.2000D-03, & ! + & 5.8500D-02, 2.2660D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00/ ! 3 DATA ( SC( IRXXN, 14 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D-02, & ! 4 & 1.1000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 7.9400D-02, 4.5500D-02, 0.0000D+00, & ! + & 1.3800D-02, 5.0900D-02, 1.0680D-01, 5.1900D-02, 1.5400D-02, & ! 1 & 6.6800D-02, 7.3300D-02, 5.8200D-02, 6.0700D-02, 1.3980D-01, & ! + & 5.7100D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00/ ! 3 DATA ( SC( IRXXN, 15 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 4.4000D-01, & ! 4 & 1.7000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 7.9400D-02, 3.2500D-02, 0.0000D+00, & ! + & 1.3500D-02, 3.4700D-02, 1.0680D-01, 3.7100D-02, 1.7000D-02, & ! 1 & 4.2300D-02, 5.2300D-02, 6.6100D-02, 1.5500D-02, 2.1600D-02, & ! + & 5.7100D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00/ ! 3 DATA ( SC( IRXXN, 16 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 3.0000D-02, & ! 4 & 4.4000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 7.9400D-02, 3.6900D-02, 0.0000D+00, & ! + & 6.4600D-02, 7.4800D-02, 1.0680D-01, 4.2100D-02, 8.1800D-02, & ! 1 & 9.1100D-02, 5.9500D-02, 5.0600D-02, 7.8600D-02, 3.8400D-02, & ! + & 5.7100D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00/ ! 3 DATA ( SC( IRXXN, 17 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.0000D-02, & ! 4 & 1.7000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 7.9400D-02, 2.6000D-03, 0.0000D+00, & ! + & 6.4600D-02, 1.6300D-02, 1.0680D-01, 1.0500D-02, 8.1800D-02, & ! 1 & 6.6000D-03, 4.1000D-03, 1.1400D-02, 7.8600D-02, 5.2600D-02, & ! + & 5.7100D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00/ ! 3 DATA ( SC( IRXXN, 18 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 6.0000D-02, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 7.9400D-02, 3.9000D-02, 0.0000D+00, & ! + & 6.4600D-02, 6.2000D-03, 1.0680D-01, 4.4500D-02, 8.1800D-02, & ! 1 & 2.5000D-03, 2.3000D-03, 6.9800D-02, 7.8600D-02, 5.2600D-02, & ! + & 5.7100D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00/ ! 3 DATA ( SC( IRXXN, 19 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D-02, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 7.9400D-02, 3.9000D-02, 0.0000D+00, & ! + & 6.4600D-02, 2.4400D-02, 1.0680D-01, 4.4500D-02, 8.1800D-02, & ! 1 & 2.9700D-02, 6.2800D-02, 6.9800D-02, 7.8600D-02, 5.2600D-02, & ! + & 5.7100D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00/ ! 3 DATA ( SC( IRXXN, 20 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 3.0000D-02, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 7.9400D-02, 3.9000D-02, 0.0000D+00, & ! + & 6.4600D-02, 2.4400D-02, 1.0680D-01, 4.4500D-02, 8.1800D-02, & ! 1 & 2.9700D-02, 6.2800D-02, 6.9800D-02, 7.8600D-02, 5.2600D-02, & ! + & 5.7100D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00/ ! 3 DATA ( SC( IRXXN, 21 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 6.0000D-02, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 7.9400D-02, 3.9000D-02, 0.0000D+00, & ! + & 6.4600D-02, 2.4400D-02, 1.0680D-01, 4.4500D-02, 8.1800D-02, & ! 1 & 2.9700D-02, 6.2800D-02, 6.9800D-02, 7.8600D-02, 5.2600D-02, & ! + & 5.7100D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00/ ! 3 DATA ( SC( IRXXN, 22 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 7.9400D-02, 3.9000D-02, 0.0000D+00, & ! + & 6.4600D-02, 2.4400D-02, 0.0000D+00, 4.4500D-02, 8.1800D-02, & ! 1 & 2.9700D-02, 6.2800D-02, 6.9800D-02, 7.8600D-02, 5.2600D-02, & ! + & 5.7100D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00/ ! 3 DATA ( SC( IRXXN, 23 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 7.9400D-02, 3.9000D-02, 0.0000D+00, & ! + & 6.4600D-02, 2.4400D-02, 0.0000D+00, 4.4500D-02, 8.1800D-02, & ! 1 & 2.9700D-02, 6.2800D-02, 6.9800D-02, 7.8600D-02, 5.2600D-02, & ! + & 1.5440D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00/ ! 3 DATA ( SC( IRXXN, 24 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 3.9000D-02, 0.0000D+00, & ! + & 6.4600D-02, 2.4400D-02, 0.0000D+00, 4.4500D-02, 8.1800D-02, & ! 1 & 2.9700D-02, 6.2800D-02, 6.9800D-02, 7.8600D-02, 5.2600D-02, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00/ ! 3 DATA ( SC( IRXXN, 25 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 3.9000D-02, 0.0000D+00, & ! + & 1.7530D-01, 2.4400D-02, 0.0000D+00, 4.4500D-02, 2.2200D-01, & ! 1 & 2.9700D-02, 6.2800D-02, 6.9800D-02, 1.7300D-01, 5.2600D-02, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00/ ! 3 DATA ( SC( IRXXN, 26 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 3.9000D-02, 0.0000D+00, & ! + & 0.0000D+00, 2.4400D-02, 0.0000D+00, 4.4500D-02, 0.0000D+00, & ! 1 & 2.9700D-02, 6.2800D-02, 6.9800D-02, 0.0000D+00, 1.2800D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00/ ! 3 DATA ( SC( IRXXN, 27 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 9.2500D-02, 0.0000D+00, & ! + & 0.0000D+00, 2.4400D-02, 0.0000D+00, 1.0550D-01, 0.0000D+00, & ! 1 & 2.9700D-02, 6.2800D-02, 1.6560D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00/ ! 3 DATA ( SC( IRXXN, 28 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 5.3700D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 6.5400D-02, 1.4890D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00/ ! 3 INTEGER :: NREACT( NRXNS ) DATA ( NREACT( IRXXN ), IRXXN = 1, NRXNS ) / & & 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, & ! O & 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, & ! 1 & 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, & ! 2 & 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, & ! 3 & 2, 2, 2, 2, 1, 2, 1, 1, 1, 1, & ! 4 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 5 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 6 & 1, 1, 2, 1, 2, 2, 2, 1, 2, 2, & ! 7 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 8 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 9 & 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! O & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 1 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 2 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 3 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 4 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 5 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 6 & 2, 2, 2, 2, 1, 1, 2, 1, 2, 1, & ! 7 & 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, & ! 8 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 9 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! O & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 1 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 2 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 3 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 4 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 5 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 6 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 7 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 8 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 9 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! O & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 1 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 2 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 3 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 4 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 5 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 6 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 7 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 8 & 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, & ! 9 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! O & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 1 & 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, & ! 2 & 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, & ! 3 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 4 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 5 & 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, & ! 6 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 7 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 8 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 9 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! O & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 1 & 2, 2, 2, 1, 1, 2, 2, 2, 2, 2, & ! 2 & 2/ ! 3 INTEGER :: NPRDCT( NRXNS ) DATA ( NPRDCT( IRXXN ), IRXXN = 1, NRXNS ) / & & 1, 1, 1, 2, 1, 2, 2, 2, 4, 1, & ! O & 2, 3, 3, 2, 2, 6, 3, 3, 4, 3, & ! 1 & 3, 7, 4, 1, 2, 2, 3, 6, 6, 3, & ! 2 & 3, 3, 3, 3, 2, 4, 2, 2, 3, 2, & ! 3 & 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, & ! 4 & 0, 1, 1, 1, 1, 1, 2, 1, 1, 1, & ! 5 & 1, 1, 1, 1, 2, 3, 1, 2, 1, 1, & ! 6 & 2, 1, 1, 2, 1, 3, 1, 1, 1, 2, & ! 7 & 2, 1, 1, 1, 5, 3, 3, 3, 3, 12, & ! 8 & 6, 4, 3, 6, 1, 10, 3, 5, 4, 4, & ! 9 & 2, 2, 2, 2, 2, 2, 2, 1, 1, 1, & ! O & 1, 1, 2, 2, 1, 2, 2, 2, 6, 6, & ! 1 & 6, 1, 5, 5, 1, 2, 2, 3, 2, 3, & ! 2 & 5, 5, 5, 1, 1, 2, 4, 3, 3, 2, & ! 3 & 2, 6, 2, 5, 21, 17, 13, 7, 6, 6, & ! 4 & 6, 10, 12, 9, 10, 8, 1, 2, 2, 2, & ! 5 & 2, 2, 6, 3, 2, 2, 6, 6, 3, 3, & ! 6 & 5, 5, 2, 2, 1, 1, 1, 2, 1, 2, & ! 7 & 1, 2, 3, 3, 10, 13, 4, 8, 8, 10, & ! 8 & 10, 10, 10, 10, 3, 8, 3, 5, 3, 5, & ! 9 & 3, 3, 5, 2, 2, 3, 4, 6, 5, 4, & ! O & 7, 8, 2, 2, 5, 2, 3, 3, 4, 3, & ! 1 & 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, & ! 2 & 1, 2, 2, 3, 3, 8, 1, 7, 1, 5, & ! 3 & 1, 5, 1, 3, 5, 4, 4, 4, 1, 1, & ! 4 & 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, & ! 5 & 1, 1, 3, 5, 10, 9, 5, 6, 6, 8, & ! 6 & 8, 8, 8, 9, 9, 4, 8, 5, 4, 4, & ! 7 & 6, 5, 4, 4, 6, 5, 5, 8, 6, 9, & ! 8 & 9, 3, 3, 5, 3, 3, 3, 8, 6, 2, & ! 9 & 4, 9, 8, 5, 6, 5, 8, 8, 8, 8, & ! O & 6, 9, 4, 8, 4, 4, 4, 5, 4, 1, & ! 1 & 2, 4, 5, 4, 5, 6, 8, 9, 2, 2, & ! 2 & 5, 3, 2, 3, 6, 6, 1, 1, 3, 3, & ! 3 & 9, 12, 4, 7, 7, 7, 7, 7, 7, 8, & ! 4 & 9, 4, 7, 4, 2, 2, 3, 4, 3, 4, & ! 5 & 4, 7, 8, 2, 2, 5, 2, 3, 3, 4, & ! 6 & 3, 2, 6, 5, 1, 1, 0, 6, 6, 7, & ! 7 & 6, 6, 7, 6, 6, 7, 6, 6, 7, 1, & ! 8 & 2, 2, 2, 5, 6, 7, 3, 6, 5, 1, & ! 9 & 8, 8, 6, 3, 3, 5, 5, 6, 2, 3, & ! O & 3, 1, 1, 2, 2, 2, 1, 1, 1, 3, & ! 1 & 1, 1, 1, 2, 0, 1, 0, 1, 1, 1, & ! 2 & 1, 2, 1, 1, 1, 1, 1, 1, 1, 3, & ! 3 & 3, 3, 3, 3, 3, 3, 2, 2, 2, 2, & ! 4 & 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, & ! 5 & 2, 2, 2, 2, 2, 2, 2, 4, 4, 4, & ! 6 & 4, 4, 3, 4, 3, 3, 3, 3, 3, 3, & ! 7 & 3, 1, 1, 1, 1, 1, 1, 1, 3, 3, & ! 8 & 10, 7, 8, 8, 3, 3, 10, 7, 8, 8, & ! 9 & 3, 3, 9, 7, 8, 8, 10, 23, 27, 13, & ! O & 25, 28, 21, 27, 25, 28, 28, 27, 25, 26, & ! 1 & 23, 13, 1, 2, 2, 1, 1, 4, 4, 4, & ! 2 & 5/ ! 3 INTEGER, PARAMETER :: MHETERO = 11 INTEGER :: IHETERO( MHETERO,2 ) DATA ( IHETERO( IRXXN,1 ), IRXXN = 1, MHETERO ) / & & 421, 422, 423, 424, 425, 426, 428, 429, 430, 431, & & 432/ DATA ( IHETERO( IRXXN,2 ), IRXXN = 1, MHETERO ) / & & 1, 2, 3, 4, 5, 6, 7, 8, 9, 7, & & 7/ INTEGER, PARAMETER :: NPHOTAB = 32 CHARACTER( 16 ) :: PHOTAB( NPHOTAB ) DATA ( PHOTAB( IRXXN ), IRXXN = 1, NPHOTAB ) / & & 'O3O3P_NASA06 ', 'O3O1D_NASA06 ', 'H2O2_RACM2 ', & & 'NO2_RACM2 ', 'NO3NO_RACM2 ', 'NO3NO2_RACM2 ', & & 'HONO_RACM2 ', 'HNO3_RACM2 ', 'HNO4_RACM2 ', & & 'HCHO_MOL_JPL19 ', 'HCHO_RAD_JPL19 ', 'CH3CHO_RACM2 ', & & 'ALD_JPL19 ', 'CH3COCH3A_JPL19 ', 'CH3COCH3B_JPL19 ', & & 'UALD_RACM2 ', 'MEK_JGR19 ', 'KET_JGR19 ', & & 'HKET_RACM2 ', 'MACR_RACM2 ', 'MVK_RACM2 ', & & 'GLYH2_RACM2 ', 'GLYF_RACM2 ', 'GLYHX_RACM2 ', & & 'MGLY_RACM2 ', 'BALD_RACM2 ', 'OP1_RACM2 ', & & 'PAA_RACM2 ', 'ONIT_RACM2 ', 'PAN1_RACM2 ', & & 'PAN2_RACM2 ', 'ACRO_09 '/ INTEGER, PARAMETER :: NHETERO = 9 CHARACTER( 16 ) :: HETERO( NHETERO ) DATA ( HETERO( IRXXN ), IRXXN = 1, NHETERO ) / & & 'HETERO_GLY ', 'HETERO_MGLY ', 'HETERO_N2O5IJ ', & & 'HETERO_NO2 ', 'HETERO_HO2 ', 'HETERO_NO3 ', & & 'HETERO_IEPOX ', 'HETERO_ISO3NOSJ ', 'HETERO_ISO3OSJ '/ CHARACTER( 16 ) :: RXLABEL( NRXNS ) DATA ( RXLABEL( IRXXN ), IRXXN = 1, NRXNS ) / & & 'R001 ', 'R002 ', 'R003 ', & ! 0 & 'R004 ', 'R005 ', 'R006 ', & ! 1 & 'R007 ', 'R008 ', 'R009 ', & ! 2 & 'R010 ', 'R011 ', 'R012 ', & ! 3 & 'R013 ', 'R014 ', 'R014a ', & ! 4 & 'R015 ', 'TRP01 ', 'TRP02 ', & ! 5 & 'R016 ', 'R017 ', 'R018 ', & ! 6 & 'R019 ', 'R020 ', 'R021 ', & ! 7 & 'R022 ', 'R023 ', 'R024 ', & ! 8 & 'R025 ', 'R026 ', 'R027 ', & ! 9 & 'R028 ', 'R029 ', 'TRP03 ', & ! 0 & 'R029a ', 'R030 ', 'R031 ', & ! 1 & 'R032 ', 'R033 ', 'TRP55 ', & ! 2 & 'TRP56 ', 'R034 ', 'R035 ', & ! 3 & 'R036 ', 'R037 ', 'R038 ', & ! 4 & 'R039 ', 'R040 ', 'R041 ', & ! 5 & 'R042 ', 'R043 ', 'R044 ', & ! 6 & 'R045 ', 'R046 ', 'R047 ', & ! 7 & 'R048 ', 'R049 ', 'R050 ', & ! 8 & 'R051 ', 'R052 ', 'R053 ', & ! 9 & 'R054 ', 'R055 ', 'R056 ', & ! 0 & 'R057 ', 'R058 ', 'R059 ', & ! 1 & 'R060 ', 'R061 ', 'R062 ', & ! 2 & 'R063 ', 'R064 ', 'R065 ', & ! 3 & 'R066 ', 'R067 ', 'R068 ', & ! 4 & 'R069 ', 'R070 ', 'R071 ', & ! 5 & 'R072 ', 'R073 ', 'R074 ', & ! 6 & 'R076 ', 'R077 ', 'R078 ', & ! 7 & 'R080 ', 'ROCARO31 ', 'ROCARO41 ', & ! 8 & 'ROCARO51 ', 'ROCARO61 ', 'RAM01 ', & ! 9 & 'RAM02 ', 'RAM03 ', 'RAM04 ', & ! 0 & 'RAM05 ', 'RAM06 ', 'RAM07 ', & ! 1 & 'RAM08 ', 'RAM09 ', 'RAM10 ', & ! 2 & 'RAM11 ', 'RAM12 ', 'RAM13 ', & ! 3 & 'R087 ', 'R088 ', 'TRP04 ', & ! 4 & 'TRP05 ', 'R089 ', 'R090 ', & ! 5 & 'R091 ', 'R092 ', 'R093 ', & ! 6 & 'R094 ', 'R095 ', 'R096 ', & ! 7 & 'R097 ', 'R098 ', 'R099 ', & ! 8 & 'R100 ', 'R101 ', 'R102 ', & ! 9 & 'R103 ', 'R104 ', 'R105 ', & ! 0 & 'R106 ', 'R108 ', 'R109 ', & ! 1 & 'R110 ', 'R111 ', 'R112 ', & ! 2 & 'R113 ', 'R114 ', 'TRP06 ', & ! 3 & 'R114a ', 'R116 ', 'R117 ', & ! 4 & 'R118 ', 'R119 ', 'R120 ', & ! 5 & 'R121 ', 'R122 ', 'R123 ', & ! 6 & 'TRP07 ', 'TRP57 ', 'R126 ', & ! 7 & 'R127 ', 'R128 ', 'R131 ', & ! 8 & 'R132 ', 'TRP08 ', 'TRP09 ', & ! 9 & 'R133 ', 'R134 ', 'R135 ', & ! 0 & 'R136 ', 'R137 ', 'R138 ', & ! 1 & 'R140 ', 'R141 ', 'R142 ', & ! 2 & 'R143 ', 'R146 ', 'R147 ', & ! 3 & 'TRP10 ', 'R148 ', 'R149 ', & ! 4 & 'R150 ', 'R151 ', 'R152 ', & ! 5 & 'R153 ', 'R154 ', 'R155 ', & ! 6 & 'R156 ', 'R158 ', 'R159 ', & ! 7 & 'TRP11 ', 'TRP12 ', 'R166 ', & ! 8 & 'R167 ', 'R168 ', 'R169 ', & ! 9 & 'R170 ', 'R171 ', 'R172 ', & ! 0 & 'R173 ', 'R174 ', 'R175 ', & ! 1 & 'R177 ', 'R178 ', 'R179 ', & ! 2 & 'ROCARO33 ', 'ROCARO43 ', 'ROCARO53 ', & ! 3 & 'ROCARO63 ', 'R189 ', 'TRP13 ', & ! 4 & 'TRP14 ', 'TRP15 ', 'R190 ', & ! 5 & 'TRP16 ', 'TRP17 ', 'TRP18 ', & ! 6 & 'TRP19 ', 'TRP20 ', 'R191 ', & ! 7 & 'R192 ', 'R193 ', 'R194 ', & ! 8 & 'R195 ', 'R196 ', 'R197 ', & ! 9 & 'R198 ', 'R199 ', 'R200 ', & ! 0 & 'R201 ', 'R202 ', 'R203 ', & ! 1 & 'R204 ', 'R205 ', 'R206 ', & ! 2 & 'R207 ', 'R208 ', 'R209 ', & ! 3 & 'R210 ', 'R211 ', 'R212 ', & ! 4 & 'R213 ', 'R214 ', 'R215 ', & ! 5 & 'R217 ', 'R218 ', 'R219 ', & ! 6 & 'ROCARO32 ', 'ROCARO42 ', 'ROCARO52 ', & ! 7 & 'ROCARO62 ', 'R229 ', 'TRP21 ', & ! 8 & 'TRP22 ', 'TRP23 ', 'R230 ', & ! 9 & 'TRP24 ', 'TRP25 ', 'TRP26 ', & ! 0 & 'TRP27 ', 'TRP28 ', 'R231 ', & ! 1 & 'R232 ', 'R233 ', 'R234 ', & ! 2 & 'R235 ', 'R236 ', 'R237 ', & ! 3 & 'R238 ', 'R239 ', 'R240 ', & ! 4 & 'R241 ', 'R242 ', 'R243 ', & ! 5 & 'R244 ', 'R245 ', 'R246 ', & ! 6 & 'R247 ', 'R248 ', 'R249 ', & ! 7 & 'R250 ', 'R251 ', 'R253 ', & ! 8 & 'R254 ', 'R255 ', 'ROCARO35 ', & ! 9 & 'ROCARO45 ', 'ROCARO55 ', 'ROCARO65 ', & ! 0 & 'R264 ', 'R265 ', 'TRP29 ', & ! 1 & 'TRP30 ', 'TRP31 ', 'R266 ', & ! 2 & 'TRP32 ', 'TRP33 ', 'TRP34 ', & ! 3 & 'R267 ', 'R268 ', 'R269 ', & ! 4 & 'R270 ', 'R271 ', 'R272 ', & ! 5 & 'R273 ', 'R274 ', 'R275 ', & ! 6 & 'R276 ', 'R277 ', 'R278 ', & ! 7 & 'R279 ', 'R280 ', 'R281 ', & ! 8 & 'R282 ', 'R283 ', 'R284 ', & ! 9 & 'R285 ', 'R286 ', 'R287 ', & ! 0 & 'R289 ', 'R290 ', 'R291 ', & ! 1 & 'ROCARO36 ', 'ROCARO46 ', 'ROCARO56 ', & ! 2 & 'ROCARO66 ', 'R300 ', 'R301 ', & ! 3 & 'TRP35 ', 'TRP36 ', 'TRP37 ', & ! 4 & 'R302 ', 'TRP38 ', 'TRP39 ', & ! 5 & 'TRP40 ', 'R303 ', 'R304 ', & ! 6 & 'R305 ', 'R306 ', 'R307 ', & ! 7 & 'R308 ', 'R309 ', 'R310 ', & ! 8 & 'R311 ', 'R312 ', 'R313 ', & ! 9 & 'R314 ', 'R315 ', 'R316 ', & ! 0 & 'R317 ', 'R318 ', 'R319 ', & ! 1 & 'R320 ', 'R321 ', 'R322 ', & ! 2 & 'R323 ', 'R324 ', 'R325 ', & ! 3 & 'R327 ', 'R328 ', 'R329 ', & ! 4 & 'ROCARO34 ', 'ROCARO44 ', 'ROCARO54 ', & ! 5 & 'ROCARO64 ', 'R338 ', 'R339 ', & ! 6 & 'R340 ', 'TRP53 ', 'TRP54 ', & ! 7 & 'R341 ', 'R342 ', 'R343 ', & ! 8 & 'R344 ', 'R345 ', 'R346 ', & ! 9 & 'R347 ', 'R348 ', 'R349 ', & ! 0 & 'R350 ', 'R351 ', 'R352 ', & ! 1 & 'R353 ', 'R354 ', 'R355 ', & ! 2 & 'R356 ', 'R357 ', 'R358 ', & ! 3 & 'R359 ', 'R360 ', 'R361 ', & ! 4 & 'R362 ', 'R363 ', 'TRP41 ', & ! 5 & 'TRP42 ', 'TRP43 ', 'TRP44 ', & ! 6 & 'TRP45 ', 'TRP46 ', 'TRP47 ', & ! 7 & 'TRP48 ', 'TRP49 ', 'TRP50 ', & ! 8 & 'TRP51 ', 'TRP52 ', 'RAM17 ', & ! 9 & 'R001c ', 'R002c ', 'T17 ', & ! 0 & 'T18 ', 'T19 ', 'T20 ', & ! 1 & 'T10 ', 'T10a ', 'T10b ', & ! 2 & 'T10c ', 'T10d ', 'T10e ', & ! 3 & 'T11 ', 'T12 ', 'R003c ', & ! 4 & 'R004c ', 'R005c ', 'R006c ', & ! 5 & 'R007c ', 'R008c ', 'R010c ', & ! 6 & 'R011c ', 'R012c ', 'R013c ', & ! 7 & 'R014c ', 'R015c ', 'R016c ', & ! 8 & 'R017c ', 'R019c ', 'R020c ', & ! 9 & 'HET_GLY ', 'HET_MGLY ', 'HET_N2O5 ', & ! 0 & 'HET_NO2 ', 'HET_HO2 ', 'HET_NO3 ', & ! 1 & 'HAL_Ozone ', 'HET_IEPOX ', 'HET_ISO3TET ', & ! 2 & 'HET_IEPOXOS ', 'HET_IPX ', 'HET_INALD ', & ! 3 & 'ROCALK1c ', 'ROCALK2c ', 'ROCALK3c ', & ! 4 & 'ROCALK4c ', 'ROCALK5c ', 'ROCALK6c ', & ! 5 & 'HC1001 ', 'ROCALK7c ', 'ROCALK8c ', & ! 6 & 'ROCALK9c ', 'ROCALK10c ', 'ROCALK11c ', & ! 7 & 'ROCALK12c ', 'HC1002 ', 'ROCALK13c ', & ! 8 & 'ROCALK14c ', 'ROCALK15c ', 'ROCALK16c ', & ! 9 & 'ROCALK17c ', 'ROCALK18c ', 'HC1003 ', & ! 0 & 'ROCALK19c ', 'ROCALK20c ', 'ROCALK21c ', & ! 1 & 'ROCALK22c ', 'ROCALK23c ', 'ROCALK24c ', & ! 2 & 'HC1004 ', 'ROCALK25c ', 'ROCALK26c ', & ! 3 & 'ROCALK27c ', 'ROCALK28c ', 'ROCALK29c ', & ! 4 & 'ROCALK30c ', 'HC1005 ', 'ROCALK31c ', & ! 5 & 'ROCALK32c ', 'ROCALK33c ', 'ROCALK34c ', & ! 6 & 'ROCALK35c ', 'ROCALK36c ', 'HC1006 ', & ! 7 & 'ROCALK37c ', 'ROCALK38c ', 'ROCALK39c ', & ! 8 & 'ROCALK40c ', 'ROCALK41c ', 'ROCALK42c ', & ! 9 & 'HC1007 ', 'ROCALK43c ', 'ROCALK44c ', & ! 0 & 'ROCALK45c ', 'ROCALK46c ', 'ROCALK47c ', & ! 1 & 'ROCALK48c ', 'HC1008 ', 'ROCARO01 ', & ! 2 & 'ROCARO02 ', 'ROCARO03 ', 'ROCARO04 ', & ! 3 & 'ROCARO05 ', 'ROCARO06 ', 'ROCARO11 ', & ! 4 & 'ROCARO12 ', 'ROCARO13 ', 'ROCARO14 ', & ! 5 & 'ROCARO15 ', 'ROCARO16 ', 'ROCARO21 ', & ! 6 & 'ROCARO22 ', 'ROCARO23 ', 'ROCARO24 ', & ! 7 & 'ROCARO25 ', 'ROCARO26 ', 'ROCOXY1c ', & ! 8 & 'ROCOXY2c ', 'ROCOXY3c ', 'ROCOXY4c ', & ! 9 & 'ROCOXY5c ', 'ROCOXY6c ', 'ROCOXY7c ', & ! 0 & 'ROCOXY8c ', 'ROCOXY9c ', 'ROCOXY10c ', & ! 1 & 'ROCOXY11c ', 'ROCOXY12c ', 'ROCOXY13c ', & ! 2 & 'ROCOXY14c ', 'ROCOXY15c ', 'ROCOXY16c ', & ! 3 & 'R364 ', 'TRP58 ', 'TRP59 ', & ! 4 & 'ROCARO71 ', 'ROCARO72 ', 'ROCARO73 ', & ! 5 & 'ROCARO74 ', 'ROCARO75 ', 'ROCARO76 '/! 6 ! NSPECIAL = Number of special rate coefficients ! SPECIAL = Names of special rate coefficients ! NSPECIAL_RXN = Number of reactions with special rates ! ISPECIAL = Pointers to reactions using special rates and their special rate coefficients ! MAXSPECTERMS = Max Number of terms type used by special rate coefficients ! KC_COEFFS = Coefficients of standard rate coefficients times concentration terms ! INDEX_KTERMS = Pointers to standard rate coefficients in special rate coefficients ! INDEX_CTERMS = Pointers to species concentrations in special rate coefficients ! OPERATOR_COEFFS = Coefficients of preceeding special rate coefficients used in special coefficient ! OPERATORS = Pointers to preceeding special rate coefficients used in special coefficient ! Special Rate information not available .. INTEGER, PARAMETER :: NSPECIAL_RXN = 0 INTEGER :: ISPECIAL( 1, 2 ) ! Special Rate information not available ... INTEGER, PARAMETER :: NSPECIAL = 0 ! Special Rate information not available ... CHARACTER( 16 ) :: SPECIAL( 1 ) INTEGER, PARAMETER :: MAXSPECTERMS = 1 REAL( 8 ) :: KC_COEFFS( NSPECIAL + 1, MAXSPECTERMS) INTEGER :: INDEX_KTERMS( NSPECIAL + 1, MAXSPECTERMS) INTEGER :: INDEX_CTERMS( NSPECIAL + 1, MAXSPECTERMS) REAL( 8 ) :: OPERATOR_COEFFS( NSPECIAL + 1, MAXSPECTERMS) INTEGER :: OPERATORS( NSPECIAL + 1, MAXSPECTERMS) ! Steady-state species section ! N_SS_SPC = Number of species assumed to be in steady-state ! SS_SPC_DIM = Dimension paramete for steady-state species ! SS_SPC = Names of species assumed to be in steady-state ! MAX_SS_LOSS = Max no. of SS loss rxns for any SS species ! MAX_SS_PROD = Max no. of SS prod rxns for any SS species ! N_LOSS_RXNS = No. of SS loss rxns for each SS species ! N_PROD_RXNS = No. of SS prod rxns for each SS species ! SS_LOSS_RXNS = List of SS loss rxns for each SS species ! SS_PROD_RXNS = List of SS prod rxns for each SS species ! SS_PROD_COEF = List of SS prod yields for each SS species ! SS_RCT_IND = SS species index if it is a rxn reactant INTEGER, PARAMETER :: N_SS_SPC = 0 INTEGER, PARAMETER :: SS_SPC_DIM = 1 INTEGER, PARAMETER :: MAX_SS_LOSS = 0 INTEGER, PARAMETER :: MAX_SS_PROD = 0 CHARACTER( 16 ) :: SS_SPC( 1 ) INTEGER :: N_LOSS_RXNS( 1 ) INTEGER :: N_PROD_RXNS( 1 ) INTEGER :: SS_LOSS_RXNS( 1, 1 ) INTEGER :: SS_PROD_RXNS( 1, 1 ) INTEGER :: SS_RCT_IND( 1 ) REAL :: SS_PROD_COEF( 1,1 ) LOGICAL, PARAMETER :: USE_SPECIAL_RATES = .FALSE. ! pointers and names to specific photolysis rates INTEGER, PARAMETER :: IJ_O3O3P_NASA06 = 1 INTEGER, PARAMETER :: IJ_O3O1D_NASA06 = 2 INTEGER, PARAMETER :: IJ_H2O2_RACM2 = 3 INTEGER, PARAMETER :: IJ_NO2_RACM2 = 4 INTEGER, PARAMETER :: IJ_NO3NO_RACM2 = 5 INTEGER, PARAMETER :: IJ_NO3NO2_RACM2 = 6 INTEGER, PARAMETER :: IJ_HONO_RACM2 = 7 INTEGER, PARAMETER :: IJ_HNO3_RACM2 = 8 INTEGER, PARAMETER :: IJ_HNO4_RACM2 = 9 INTEGER, PARAMETER :: IJ_HCHO_MOL_JPL19 = 10 INTEGER, PARAMETER :: IJ_HCHO_RAD_JPL19 = 11 INTEGER, PARAMETER :: IJ_CH3CHO_RACM2 = 12 INTEGER, PARAMETER :: IJ_ALD_JPL19 = 13 INTEGER, PARAMETER :: IJ_CH3COCH3A_JPL19 = 14 INTEGER, PARAMETER :: IJ_CH3COCH3B_JPL19 = 15 INTEGER, PARAMETER :: IJ_UALD_RACM2 = 16 INTEGER, PARAMETER :: IJ_MEK_JGR19 = 17 INTEGER, PARAMETER :: IJ_KET_JGR19 = 18 INTEGER, PARAMETER :: IJ_HKET_RACM2 = 19 INTEGER, PARAMETER :: IJ_MACR_RACM2 = 20 INTEGER, PARAMETER :: IJ_MVK_RACM2 = 21 INTEGER, PARAMETER :: IJ_GLYH2_RACM2 = 22 INTEGER, PARAMETER :: IJ_GLYF_RACM2 = 23 INTEGER, PARAMETER :: IJ_GLYHX_RACM2 = 24 INTEGER, PARAMETER :: IJ_MGLY_RACM2 = 25 INTEGER, PARAMETER :: IJ_BALD_RACM2 = 26 INTEGER, PARAMETER :: IJ_OP1_RACM2 = 27 INTEGER, PARAMETER :: IJ_PAA_RACM2 = 28 INTEGER, PARAMETER :: IJ_ONIT_RACM2 = 29 INTEGER, PARAMETER :: IJ_PAN1_RACM2 = 30 INTEGER, PARAMETER :: IJ_PAN2_RACM2 = 31 INTEGER, PARAMETER :: IJ_ACRO_09 = 32 INTEGER, PARAMETER :: IK_HETERO_GLY = 1 INTEGER, PARAMETER :: IK_HETERO_MGLY = 2 INTEGER, PARAMETER :: IK_HETERO_N2O5IJ = 3 INTEGER, PARAMETER :: IK_HETERO_NO2 = 4 INTEGER, PARAMETER :: IK_HETERO_HO2 = 5 INTEGER, PARAMETER :: IK_HETERO_NO3 = 6 INTEGER, PARAMETER :: IK_HETERO_IEPOX = 7 INTEGER, PARAMETER :: IK_HETERO_ISO3NOSJ = 8 INTEGER, PARAMETER :: IK_HETERO_ISO3OSJ = 9 END MODULE RXNS_DATA ================================================ FILE: CCTM/src/MECHS/cracmm2/RXNS_FUNC_MODULE.F90 ================================================ MODULE RXNS_FUNCTION IMPLICIT NONE ! Name of Mechanism CRACMM2 PUBLIC :: CALC_RCONST, SPECIAL_RATES, MAP_CHEMISTRY_SPECIES CONTAINS REAL( 8 ) FUNCTION POWER_T02( TEMPOT300,A0,B0 ) IMPLICIT NONE ! rate constant for CMAQ Arrhenuis reaction type 2 ! Arguements: REAL( 8 ), INTENT( IN ) :: TEMPOT300 REAL( 8 ), INTENT( IN ) :: A0 REAL( 8 ), INTENT( IN ) :: B0 ! Local: None POWER_T02 = A0 * TEMPOT300**B0 RETURN END FUNCTION POWER_T02 REAL( 8 ) FUNCTION ARRHENUIS_T04( INV_TEMP,TEMPOT300,A0,B0,C0 ) IMPLICIT NONE ! rate constant for CMAQ Arrhenuis reaction type 4 ! Arguements: REAL( 8 ), INTENT( IN ) :: INV_TEMP REAL( 8 ), INTENT( IN ) :: TEMPOT300 REAL( 8 ), INTENT( IN ) :: A0 REAL( 8 ), INTENT( IN ) :: B0 REAL( 8 ), INTENT( IN ) :: C0 ! Local: INTRINSIC DEXP ARRHENUIS_T04 = A0 * DEXP( B0 * INV_TEMP ) * TEMPOT300**C0 RETURN END FUNCTION ARRHENUIS_T04 REAL( 8 ) FUNCTION ARRHENUIS_T03( INV_TEMP,A0,B0 ) ! rate constant for CMAQ Arrhenuis reaction type 3 IMPLICIT NONE ! Arguements: REAL( 8 ), INTENT( IN ) :: INV_TEMP REAL( 8 ), INTENT(IN) :: A0 REAL( 8 ), INTENT(IN) :: B0 ! Local: INTRINSIC DEXP ARRHENUIS_T03 = A0 * DEXP( B0 * INV_TEMP ) RETURN END FUNCTION ARRHENUIS_T03 REAL( 8 ) FUNCTION FALLOFF_T08(INV_TEMP,CAIR,A0,C0,A2,C2,A3,C3) ! rate constant for CMAQ fall off reaction type 8 IMPLICIT NONE ! Arguements: REAL( 8 ), INTENT( IN ) :: INV_TEMP REAL( 8 ), INTENT( IN ) :: CAIR REAL( 8 ), INTENT( IN ) :: A0 REAL( 8 ), INTENT( IN ) :: C0 REAL( 8 ), INTENT( IN ) :: A2 REAL( 8 ), INTENT( IN ) :: C2 REAL( 8 ), INTENT( IN ) :: A3 REAL( 8 ), INTENT( IN ) :: C3 ! Local: REAL( 8 ) K0 REAL( 8 ) K2 REAL( 8 ) K3 INTRINSIC DEXP K0 = A0 * DEXP( C0 * INV_TEMP ) K2 = A2 * DEXP( C2 * INV_TEMP ) K3 = A3 * DEXP( C3 * INV_TEMP ) K3 = K3 * CAIR FALLOFF_T08 = K0 + K3/( 1.0D0 + K3/K2 ) RETURN END FUNCTION FALLOFF_T08 REAL( 8 ) FUNCTION FALLOFF_T09(INV_TEMP,CAIR,A1,C1,A2,C2) ! rate constant for CMAQ fall off reaction type 9 IMPLICIT NONE ! Arguements: REAL( 8 ), INTENT( IN ) :: INV_TEMP REAL( 8 ), INTENT( IN ) :: CAIR REAL( 8 ), INTENT( IN ) :: A1 REAL( 8 ), INTENT( IN ) :: C1 REAL( 8 ), INTENT( IN ) :: A2 REAL( 8 ), INTENT( IN ) :: C2 ! Local: REAL( 8 ) K1 REAL( 8 ) K2 INTRINSIC DEXP K1 = A1 * DEXP( C1 * INV_TEMP ) K2 = A2 * DEXP( C2 * INV_TEMP ) FALLOFF_T09 = K1 + K2 * CAIR RETURN END FUNCTION FALLOFF_T09 REAL( 8 ) FUNCTION FALLOFF_T10(INV_TEMP,TEMPOT300,CAIR,A0,B0,C0,A1,B1,C1,CE,CF) IMPLICIT NONE ! rate constant for CMAQ fall off reaction type 10 ! Arguements: REAL( 8 ), INTENT( IN ) :: INV_TEMP REAL( 8 ), INTENT( IN ) :: TEMPOT300 REAL( 8 ), INTENT( IN ) :: CAIR REAL( 8 ), INTENT( IN ) :: A0 REAL( 8 ), INTENT( IN ) :: B0 REAL( 8 ), INTENT( IN ) :: C0 REAL( 8 ), INTENT( IN ) :: A1 REAL( 8 ), INTENT( IN ) :: B1 REAL( 8 ), INTENT( IN ) :: C1 REAL( 8 ), INTENT( IN ) :: CE REAL( 8 ), INTENT( IN ) :: CF ! Local: REAL( 8 ) K0 REAL( 8 ) K1 REAL( 8 ) KEND K0 = A0 * CAIR * DEXP(B0*INV_TEMP)* TEMPOT300**C0 K1 = A1 * DEXP(B1*INV_TEMP) * TEMPOT300**C1 KEND = ( ( 1.0D0 + ( ( 1.0D0 / CE ) * DLOG10( K0 / K1 ) ) ** 2.0D0 ) ) KEND = 1.0D0 / KEND FALLOFF_T10 = ( K0 / ( 1.0D0 + K0/K1 ) ) * CF ** KEND RETURN END FUNCTION FALLOFF_T10 REAL( 8 ) FUNCTION FALLOFF_T11(INV_TEMP,TEMPOT300,CAIR,A1,B1,C1,A2, B2, C2, D1, D2) ! rate constant for CMAQ fall off reaction type 11 ! actually expanded form of type 9 IMPLICIT NONE ! Arguements: REAL( 8 ), INTENT( IN ) :: INV_TEMP REAL( 8 ), INTENT( IN ) :: TEMPOT300 REAL( 8 ), INTENT( IN ) :: CAIR REAL( 8 ), INTENT( IN ) :: A1 REAL( 8 ), INTENT( IN ) :: B1 REAL( 8 ), INTENT( IN ) :: C1 REAL( 8 ), INTENT( IN ) :: A2 REAL( 8 ), INTENT( IN ) :: B2 REAL( 8 ), INTENT( IN ) :: C2 REAL( 8 ), INTENT( IN ) :: D1 REAL( 8 ), INTENT( IN ) :: D2 ! Local: REAL( 8 ) K1 REAL( 8 ) K2 REAL( 8 ) K3 INTRINSIC DEXP K1 = A1 * DEXP( C1 * INV_TEMP ) * TEMPOT300**B1 K2 = A2 * DEXP( C2 * INV_TEMP ) * TEMPOT300**B2 K3 = D1 * DEXP( D2 * INV_TEMP ) FALLOFF_T11 = K1 + K2 * CAIR + K3 RETURN END FUNCTION FALLOFF_T11 REAL( 8 ) FUNCTION HALOGEN_FALLOFF(PRESS,A1,B1,A2,B2,A3) IMPLICIT NONE REAL( 8 ), INTENT( IN ) :: PRESS REAL( 8 ), INTENT( IN ) :: A1 REAL( 8 ), INTENT( IN ) :: B1 REAL( 8 ), INTENT( IN ) :: A2 REAL( 8 ), INTENT( IN ) :: B2 REAL( 8 ), INTENT( IN ) :: A3 ! Maximum loss rate (1/sec) INTRINSIC DEXP HALOGEN_FALLOFF = A1 * DEXP( B1 * PRESS ) + A2 * DEXP( B2 * PRESS ) HALOGEN_FALLOFF = DMIN1 (A3, HALOGEN_FALLOFF ) RETURN END FUNCTION HALOGEN_FALLOFF SUBROUTINE SPECIAL_RATES( NUMCELLS, Y, TEMP, DENS, RKI ) ! Purpose: calculate special rate operators and update ! appropriate rate constants USE RXNS_DATA IMPLICIT NONE ! Arguments: INTEGER, INTENT( IN ) :: NUMCELLS ! Number of cells in block REAL( 8 ), INTENT( IN ) :: Y( :, : ) ! species concs REAL( 8 ), INTENT( IN ) :: TEMP( : ) ! air temperature, K REAL( 8 ), INTENT( IN ) :: DENS( : ) ! air density, Kg/m3 REAL( 8 ), INTENT( INOUT ) :: RKI( :, : ) ! reaction rate constant, ppm/min ! Local: REAL( 8 ), PARAMETER :: DENSITY_TO_NUMBER = 2.07930D+19 ! Kg/m3 to molecules/cm3 INTEGER :: NCELL REAL( 8 ) :: INV_TEMP REAL( 8 ) :: CAIR REAL( 8 ) :: CFACT ! scales operator if not multiplied by RKI, cm^3/(molecule) to 1/(ppm) REAL( 8 ) :: CFACT_SQU ! scales operator if not multiplied by RKI, cm^6/(molec^2) to 1/(ppm^2) ! special rate operators listed below DO NCELL = 1, NUMCELLS INV_TEMP = 1.0D0 / TEMP( NCELL ) CAIR = DENSITY_TO_NUMBER * DENS( NCELL ) CFACT = 1.0D-06 * CAIR CFACT_SQU = 1.0D-12 * CAIR * CAIR ! define special rate operators ! define rate constants in terms of special rate operators END DO RETURN END SUBROUTINE SPECIAL_RATES SUBROUTINE CALC_RCONST( BLKTEMP, BLKPRES, BLKH2O, RJBLK, BLKHET, LSUNLIGHT, SEAWATER, RKI, NUMCELLS ) !********************************************************************** ! Function: To compute thermal and photolytic reaction rate ! coefficients for each reaction. ! Preconditions: Photolysis rates for individual species must have ! been calculated and stored in RJPHOT. Expects ! temperature in deg K, pressure in atm., water ! vapor in ppmV, and J-values in /min. ! Key Subroutines/Functions Called: POWER_02, ARRHRENUIS_T0*, FALLOFF_T*, HALOGEN_FALLOFF !*********************************************************************** USE RXNS_DATA IMPLICIT NONE ! Arguements: None REAL( 8 ), INTENT( IN ) :: BLKTEMP( : ) ! temperature, deg K REAL( 8 ), INTENT( IN ) :: BLKPRES( : ) ! pressure, Atm REAL( 8 ), INTENT( IN ) :: BLKH2O ( : ) ! water mixing ratio, ppm REAL( 8 ), INTENT( IN ) :: RJBLK ( :, : ) ! photolysis rates, 1/min REAL( 8 ), INTENT( IN ) :: BLKHET ( :, : ) ! heterogeneous rate constants, ???/min INTEGER, INTENT( IN ) :: NUMCELLS ! Number of cells in block LOGICAL, INTENT( IN ) :: LSUNLIGHT ! Is there sunlight? REAL( 8 ), INTENT( IN ) :: SEAWATER( : ) ! fractional area of OPEN+SURF REAL( 8 ), INTENT( OUT ) :: RKI ( :, : ) ! reaction rate constant, ppm/min !..Parameters: REAL( 8 ), PARAMETER :: COEF1 = 7.33981D+15 ! Molec/cc to ppm conv factor REAL( 8 ), PARAMETER :: CONSTC = 0.6D+0 ! Constant for reaction type 7 REAL( 8 ), PARAMETER :: TI300 = 1.0D+0/300.0D+0 ! reciprocal of 300 deg K REAL( 8 ), PARAMETER :: SFACT = 60.D+0 ! seconds per minute !..External Functions: None !..Local Variables: INTEGER :: NRT ! Loop index for reaction types INTEGER :: IRXN ! Reaction number INTEGER :: JNUM ! J-value species # from PHOT) INTEGER :: KNUM ! Reaction # for a relative rate coeff. INTEGER :: N ! Loop index for reactions INTEGER :: NCELL ! Loop index for # of cells in the block REAL( 8 ) :: CAIR ! air number density (wet) [molec/cm^3] REAL( 8 ) :: CFACT ! Convertor cm^3/(molec*sec) to 1/(ppm*min) REAL( 8 ) :: CFACT_SQU ! Convertor cm^6/(molec^2*sec) to 1/(ppm^2*min) REAL( 8 ) :: INV_CFACT ! ppm/min to molec/(cm^3*sec) REAL( 8 ) :: TEMPOT300 ! temperature divided by 300 K, dimensionaless REAL( 8 ) :: INV_TEMP ! reciprocal of air temperature, K-1 REAL( 8 ) :: INV_CAIR ! reciprocal of air number density (wet), [cm^3/molec] REAL( 8 ) :: TEMP ! air temperature, K REAL( 8 ) :: PRESS ! pressure [Atm] REAL( 8 ) :: INV_RFACT ! ppm/min to molec/(cm^3*min) REAL( 8 ) :: RFACT_SQU ! cm^6/(molec^2*min) to 1/(ppm^2*min) REAL( 8 ) :: RFACT ! cm^3/(molec*min) to 1/(ppm*min) REAL( 8 ) :: H2O ! concentration, [molec/cm^3] RKI = 0.0D0 ! All rate constants converted from molec/cm3 to ppm ! and 1/sec to 1/min IF( LSUNLIGHT )THEN DO NCELL = 1, NUMCELLS ! Reaction Label R001 RKI( NCELL, 1) = RJBLK( NCELL, IJ_O3O3P_NASA06 ) ! Reaction Label R002 RKI( NCELL, 2) = RJBLK( NCELL, IJ_O3O1D_NASA06 ) ! Reaction Label R003 RKI( NCELL, 3) = RJBLK( NCELL, IJ_H2O2_RACM2 ) ! Reaction Label R004 RKI( NCELL, 4) = RJBLK( NCELL, IJ_NO2_RACM2 ) ! Reaction Label R005 RKI( NCELL, 5) = RJBLK( NCELL, IJ_NO3NO_RACM2 ) ! Reaction Label R006 RKI( NCELL, 6) = RJBLK( NCELL, IJ_NO3NO2_RACM2 ) ! Reaction Label R007 RKI( NCELL, 7) = RJBLK( NCELL, IJ_HONO_RACM2 ) ! Reaction Label R008 RKI( NCELL, 8) = RJBLK( NCELL, IJ_HNO3_RACM2 ) ! Reaction Label R009 RKI( NCELL, 9) = RJBLK( NCELL, IJ_HNO4_RACM2 ) ! Reaction Label R010 RKI( NCELL, 10) = RJBLK( NCELL, IJ_HCHO_MOL_JPL19 ) ! Reaction Label R011 RKI( NCELL, 11) = RJBLK( NCELL, IJ_HCHO_RAD_JPL19 ) ! Reaction Label R012 RKI( NCELL, 12) = RJBLK( NCELL, IJ_CH3CHO_RACM2 ) ! Reaction Label R013 RKI( NCELL, 13) = RJBLK( NCELL, IJ_ALD_JPL19 ) ! Reaction Label R014 RKI( NCELL, 14) = RJBLK( NCELL, IJ_CH3COCH3A_JPL19 ) ! Reaction Label R014a RKI( NCELL, 15) = RJBLK( NCELL, IJ_CH3COCH3B_JPL19 ) ! Reaction Label R015 RKI( NCELL, 16) = RJBLK( NCELL, IJ_UALD_RACM2 ) ! Reaction Label TRP01 RKI( NCELL, 17) = RJBLK( NCELL, IJ_ALD_JPL19 ) ! Reaction Label TRP02 RKI( NCELL, 18) = RJBLK( NCELL, IJ_ALD_JPL19 ) ! Reaction Label R016 RKI( NCELL, 19) = RJBLK( NCELL, IJ_MEK_JGR19 ) ! Reaction Label R017 RKI( NCELL, 20) = RJBLK( NCELL, IJ_KET_JGR19 ) ! Reaction Label R018 RKI( NCELL, 21) = RJBLK( NCELL, IJ_HKET_RACM2 ) ! Reaction Label R019 RKI( NCELL, 22) = RJBLK( NCELL, IJ_MACR_RACM2 ) ! Reaction Label R020 RKI( NCELL, 23) = RJBLK( NCELL, IJ_MVK_RACM2 ) ! Reaction Label R021 RKI( NCELL, 24) = RJBLK( NCELL, IJ_GLYH2_RACM2 ) ! Reaction Label R022 RKI( NCELL, 25) = RJBLK( NCELL, IJ_GLYF_RACM2 ) ! Reaction Label R023 RKI( NCELL, 26) = RJBLK( NCELL, IJ_GLYHX_RACM2 ) ! Reaction Label R024 RKI( NCELL, 27) = RJBLK( NCELL, IJ_MGLY_RACM2 ) ! Reaction Label R025 RKI( NCELL, 28) = RJBLK( NCELL, IJ_MGLY_RACM2 ) ! Reaction Label R026 RKI( NCELL, 29) = RJBLK( NCELL, IJ_MGLY_RACM2 ) ! Reaction Label R027 RKI( NCELL, 30) = RJBLK( NCELL, IJ_BALD_RACM2 ) ! Reaction Label R028 RKI( NCELL, 31) = RJBLK( NCELL, IJ_OP1_RACM2 ) ! Reaction Label R029 RKI( NCELL, 32) = RJBLK( NCELL, IJ_OP1_RACM2 ) ! Reaction Label TRP03 RKI( NCELL, 33) = RJBLK( NCELL, IJ_OP1_RACM2 ) ! Reaction Label R029a RKI( NCELL, 34) = RJBLK( NCELL, IJ_OP1_RACM2 ) ! Reaction Label R030 RKI( NCELL, 35) = RJBLK( NCELL, IJ_PAA_RACM2 ) ! Reaction Label R031 RKI( NCELL, 36) = RJBLK( NCELL, IJ_ONIT_RACM2 ) ! Reaction Label R032 RKI( NCELL, 37) = RJBLK( NCELL, IJ_PAN1_RACM2 ) ! Reaction Label R033 RKI( NCELL, 38) = RJBLK( NCELL, IJ_PAN2_RACM2 ) ! Reaction Label TRP55 RKI( NCELL, 39) = RJBLK( NCELL, IJ_ONIT_RACM2 ) ! Reaction Label TRP56 RKI( NCELL, 40) = RJBLK( NCELL, IJ_ONIT_RACM2 ) ! Reaction Label T20 RKI( NCELL, 396) = RJBLK( NCELL, IJ_ACRO_09 ) IF ( SEAWATER (NCELL) .GT. 0.001D0 ) THEN ! Reaction Label HAL_Ozone RKI( NCELL, 427) = SEAWATER (NCELL) * SFACT * HALOGEN_FALLOFF( BLKPRES( NCELL ), 6.7006D-11, 1.0743D+01, & & 3.4153D-08, -6.7130D-01, 2.0000D-06 ) ELSE RKI( NCELL, 427) = 0.0D0 END IF END DO END IF DO NCELL = 1, NUMCELLS ! Set-up conversion factors INV_TEMP = 1.0D+00 / BLKTEMP( NCELL ) CAIR = 1.0D+06 * COEF1 * BLKPRES( NCELL ) * INV_TEMP CFACT = 6.0D-05 * CAIR CFACT_SQU = 6.0D-11 * CAIR * CAIR INV_CAIR = 1.0D0 / CAIR INV_CFACT = 6.0D+07 * INV_CAIR TEMP = BLKTEMP( NCELL ) TEMPOT300 = BLKTEMP( NCELL ) * TI300 RFACT = 1.0D+06 * INV_CAIR RFACT_SQU = 1.0D+12 * INV_CAIR * INV_CAIR ! Reaction Label R034 RKI( NCELL, 41) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.7000D-12, -9.4000D+02 ) ! Reaction Label R035 RKI( NCELL, 42) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.0000D-14, -4.9000D+02 ) ! Reaction Label R036 RKI( NCELL, 43) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.0000D-12, -1.5000D+03 ) ! Reaction Label R037 RKI( NCELL, 44) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.2000D-13, -2.4500D+03 ) ! Reaction Label R038 RKI( NCELL, 45) = CFACT_SQU * POWER_T02( TEMPOT300, 6.1000D-34, -2.4000D+00 ) ! Reaction Label R039 RKI( NCELL, 46) = CFACT * ARRHENUIS_T03( INV_TEMP, 8.0000D-12, -2.0600D+03 ) ! Reaction Label R040 RKI( NCELL, 47) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.3000D-11, 5.5000D+01 ) ! Reaction Label R041 RKI( NCELL, 48) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.1500D-11, 1.1000D+02 ) ! Reaction Label R042 RKI( NCELL, 49) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.6300D-10, 6.0000D+01 ) ! Reaction Label R043 RKI( NCELL, 50) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.8000D-12, -1.8000D+03 ) ! Reaction Label R044 RKI( NCELL, 51) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.8000D-11, 2.5000D+02 ) ! Reaction Label R045 RKI( NCELL, 52) = CFACT * FALLOFF_T09( INV_TEMP, CAIR, & & 3.0000D-13, 4.6000D+02, 2.1000D-33, & & 9.2000D+02 ) ! Reaction Label R046 RKI( NCELL, 53) = CFACT_SQU * FALLOFF_T09( INV_TEMP, CAIR, & & 4.2000D-34, 2.6600D+03, 2.9400D-54, & & 3.1200D+03 ) ! Reaction Label R047 RKI( NCELL, 54) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.8000D-12, 0.0000D+00 ) ! Reaction Label R048 RKI( NCELL, 55) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 9.1000D-32, 0.0000D+00, -1.5000D+00, & & 3.0000D-11, 0.0000D+00, 0.0000D+00, & & 1.0000D+00, 6.0000D-01 ) ! Reaction Label R049 RKI( NCELL, 56) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 7.1000D-31, 0.0000D+00, -2.6000D+00, & & 3.6000D-11, 0.0000D+00, -1.0000D-01, & & 1.0000D+00, 6.0000D-01 ) ! Reaction Label R050 RKI( NCELL, 57) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.4400D-12, 2.6000D+02 ) ! Reaction Label R051 RKI( NCELL, 58) = CFACT * FALLOFF_T11( INV_TEMP,TEMPOT300,CAIR, & & 6.0950D-14, -1.0000D+00, 2.7000D+02, & & 6.8570D-34, 1.0000D+00, 2.7000D+02, & & -5.9680D-14, 2.7000D+02 ) ! Reaction Label R052 RKI( NCELL, 59) = CFACT_SQU * ARRHENUIS_T03( INV_TEMP, 4.2500D-39, 6.6350D+02 ) ! Reaction Label R053 RKI( NCELL, 60) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.0000D-12, 2.5000D+02 ) ! Reaction Label R054 RKI( NCELL, 61) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.3000D-12, 2.0000D+02 ) ! Reaction Label R055 RKI( NCELL, 62) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 3.4000D-31, 0.0000D+00, -1.6000D+00, & & 2.3000D-11, 0.0000D+00, -2.0000D-01, & & 1.0000D+00, 6.0000D-01 ) ! Reaction Label R056 RKI( NCELL, 63) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 1.8000D-30, 0.0000D+00, -3.0000D+00, & & 2.8000D-11, 0.0000D+00, 0.0000D+00, & & 1.0000D+00, 6.0000D-01 ) ! Reaction Label R057 RKI( NCELL, 64) = CFACT * FALLOFF_T08( INV_TEMP, CAIR, & & 2.4000D-14, 4.6000D+02, 2.7000D-17, & & 2.1990D+03, 6.5000D-34, 1.3350D+03 ) ! Reaction Label R058 RKI( NCELL, 65) = 2.0000D-11 * CFACT ! Reaction Label R059 RKI( NCELL, 66) = 3.5000D-12 * CFACT ! Reaction Label R060 RKI( NCELL, 67) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.7000D-11, 1.2500D+02 ) ! Reaction Label R061 RKI( NCELL, 68) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.3500D-14, -1.3350D+03 ) ! Reaction Label R062 RKI( NCELL, 69) = CFACT * ARRHENUIS_T03( INV_TEMP, 8.5000D-13, -2.4500D+03 ) ! Reaction Label R063 RKI( NCELL, 70) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 2.4000D-30, 0.0000D+00, -3.0000D+00, & & 1.6000D-12, 0.0000D+00, 1.0000D-01, & & 1.0000D+00, 6.0000D-01 ) ! Reaction Label R064 RKI( NCELL, 71) = RFACT * RKI( NCELL, 70 ) & & * ( 1.7241D+26 * DEXP( -1.0840D+04 * INV_TEMP) ) ! Reaction Label R065 RKI( NCELL, 72) = 1.0000D-22 * CFACT ! Reaction Label R066 RKI( NCELL, 73) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 1.9000D-31, 0.0000D+00, -3.4000D+00, & & 4.0000D-12, 0.0000D+00, -3.0000D-01, & & 1.0000D+00, 6.0000D-01 ) ! Reaction Label R067 RKI( NCELL, 74) = RFACT * RKI( NCELL, 73 ) & & * ( 4.7619D+26 * DEXP( -1.0900D+04 * INV_TEMP) ) ! Reaction Label R068 RKI( NCELL, 75) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.5000D-13, 6.1000D+02 ) ! Reaction Label R069 RKI( NCELL, 76) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 2.9000D-31, 0.0000D+00, -4.1000D+00, & & 1.7000D-12, 0.0000D+00, 2.0000D-01, & & 1.0000D+00, 6.0000D-01 ) ! Reaction Label R070 RKI( NCELL, 77) = CFACT * FALLOFF_T09( INV_TEMP, CAIR, & & 1.4400D-13, 0.0000D+00, 2.7400D-33, & & 0.0000D+00 ) ! Reaction Label R071 RKI( NCELL, 78) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.4500D-12, -1.7750D+03 ) ! Reaction Label R072 RKI( NCELL, 79) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.6600D-12, -1.0200D+03 ) ! Reaction Label R073 RKI( NCELL, 80) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.6800D-12, -3.7000D+02 ) ! Reaction Label R074 RKI( NCELL, 81) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.0100D-11, -2.4500D+02 ) ! Reaction Label R076 RKI( NCELL, 82) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 1.0000D-28, 0.0000D+00, -4.5000D+00, & & 8.8000D-12, 0.0000D+00, -8.5000D-01, & & 1.0000D+00, 6.0000D-01 ) ! Reaction Label R077 RKI( NCELL, 83) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.7200D-12, 5.0000D+02 ) ! Reaction Label R078 RKI( NCELL, 84) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.3300D-11, 5.0000D+02 ) ! Reaction Label R080 RKI( NCELL, 85) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 5.5000D-30, 0.0000D+00, 0.0000D+00, & & 8.3000D-13, 0.0000D+00, 2.0000D+00, & & 1.0000D+00, 6.0000D-01 ) ! Reaction Label ROCARO31 RKI( NCELL, 86) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.3300D-12, -1.9300D+02 ) ! Reaction Label ROCARO41 RKI( NCELL, 87) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.8100D-12, 3.5400D+02 ) ! Reaction Label ROCARO51 RKI( NCELL, 88) = 2.3300D-11 * CFACT ! Reaction Label ROCARO61 RKI( NCELL, 89) = 7.1600D-12 * CFACT ! Reaction Label RAM01 RKI( NCELL, 90) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.5800D-14, -2.0000D+03 ) ! Reaction Label RAM02 RKI( NCELL, 91) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.9500D-12, -4.5000D+02 ) ! Reaction Label RAM03 RKI( NCELL, 92) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.6900D-11, 3.9000D+02 ) ! Reaction Label RAM04 RKI( NCELL, 93) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.5000D-13, 1.3000D+03 ) ! Reaction Label RAM05 RKI( NCELL, 94) = CFACT * ARRHENUIS_T03( INV_TEMP, 6.0000D-12, 3.5000D+02 ) ! Reaction Label RAM06 RKI( NCELL, 95) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.6000D-12, 2.0000D+02 ) ! Reaction Label RAM07 RKI( NCELL, 96) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.9700D-11, 3.9000D+02 ) ! Reaction Label RAM08 RKI( NCELL, 97) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.1400D-11, 5.8000D+02 ) ! Reaction Label RAM09 RKI( NCELL, 98) = CFACT * ARRHENUIS_T03( INV_TEMP, 9.4200D-12, 5.8000D+02 ) ! Reaction Label RAM10 RKI( NCELL, 99) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.4000D-11, 3.9000D+02 ) ! Reaction Label RAM11 RKI( NCELL, 100) = 1.5000D-11 * CFACT ! Reaction Label RAM12 RKI( NCELL, 101) = 4.0000D-05 * SFACT ! Reaction Label RAM13 RKI( NCELL, 102) = 3.0000D-12 * CFACT ! Reaction Label R087 RKI( NCELL, 103) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.2100D-11, 4.4000D+02 ) ! Reaction Label R088 RKI( NCELL, 104) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.2000D-11, 4.0100D+02 ) ! Reaction Label TRP04 RKI( NCELL, 105) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.2000D-12, 6.0000D+02 ) ! Reaction Label TRP05 RKI( NCELL, 106) = 1.1000D-10 * CFACT ! Reaction Label R089 RKI( NCELL, 107) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.5000D-12, 1.2500D+02 ) ! Reaction Label R090 RKI( NCELL, 108) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.7000D-12, 3.4500D+02 ) ! Reaction Label R091 RKI( NCELL, 109) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.9000D-12, 4.0500D+02 ) ! Reaction Label R092 RKI( NCELL, 110) = CFACT * ARRHENUIS_T04( INV_TEMP, TEMPOT300, & & 4.5600D-14, -4.2700D+02, 3.6500D+00 ) ! Reaction Label R093 RKI( NCELL, 111) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.5000D-12, -9.0000D+01 ) ! Reaction Label R094 RKI( NCELL, 112) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.8000D-12, 1.0000D+01 ) ! Reaction Label R095 RKI( NCELL, 113) = 3.0000D-12 * CFACT ! Reaction Label R096 RKI( NCELL, 114) = CFACT * ARRHENUIS_T03( INV_TEMP, 8.0000D-12, 3.8000D+02 ) ! Reaction Label R097 RKI( NCELL, 115) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.6000D-12, 6.1000D+02 ) ! Reaction Label R098 RKI( NCELL, 116) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.7700D-12, 5.3300D+02 ) ! Reaction Label R099 RKI( NCELL, 117) = 1.1000D-11 * CFACT ! Reaction Label R100 RKI( NCELL, 118) = CFACT * ARRHENUIS_T03( INV_TEMP, 9.2600D-13, 8.3000D+02 ) ! Reaction Label R101 RKI( NCELL, 119) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.8000D-11, 1.7500D+02 ) ! Reaction Label R102 RKI( NCELL, 120) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.8000D-11, 1.7500D+02 ) ! Reaction Label R103 RKI( NCELL, 121) = 1.0000D-11 * CFACT ! Reaction Label R104 RKI( NCELL, 122) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.3200D-12, 2.4300D+02 ) ! Reaction Label R105 RKI( NCELL, 123) = CFACT * ARRHENUIS_T03( INV_TEMP, 6.7500D-12, 4.0500D+02 ) ! Reaction Label R106 RKI( NCELL, 124) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.6500D-11, 0.0000D+00 ) ! Reaction Label R108 RKI( NCELL, 125) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.0500D-10, 0.0000D+00 ) ! Reaction Label R109 RKI( NCELL, 126) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.8500D-12, -3.4500D+02 ) ! Reaction Label R110 RKI( NCELL, 127) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.0000D-12, 2.0000D+01 ) ! Reaction Label R111 RKI( NCELL, 128) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.6000D-12, 2.0000D+02 ) ! Reaction Label R112 RKI( NCELL, 129) = 1.4700D-11 * CFACT ! Reaction Label R113 RKI( NCELL, 130) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.9000D-12, 1.9000D+02 ) ! Reaction Label R114 RKI( NCELL, 131) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.4000D-12, 1.9000D+02 ) ! Reaction Label TRP06 RKI( NCELL, 132) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.4000D-12, 1.9000D+02 ) ! Reaction Label R114a RKI( NCELL, 133) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.4000D-12, 1.9000D+02 ) ! Reaction Label R116 RKI( NCELL, 134) = 3.0000D-11 * CFACT ! Reaction Label R117 RKI( NCELL, 135) = 4.5000D-13 * CFACT ! Reaction Label R118 RKI( NCELL, 136) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.0000D-14, 8.5000D+02 ) ! Reaction Label R119 RKI( NCELL, 137) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.9300D-12, 1.9000D+02 ) ! Reaction Label R120 RKI( NCELL, 138) = 4.0000D-14 * CFACT ! Reaction Label R121 RKI( NCELL, 139) = 4.0000D-14 * CFACT ! Reaction Label R122 RKI( NCELL, 140) = 3.2000D-11 * CFACT ! Reaction Label R123 RKI( NCELL, 141) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.3100D-12, -2.6000D+02 ) ! Reaction Label TRP07 RKI( NCELL, 142) = 4.8000D-12 * CFACT ! Reaction Label TRP57 RKI( NCELL, 143) = CFACT * FALLOFF_T08( INV_TEMP, CAIR, & & 2.4000D-14, 4.6000D+02, 2.7000D-17, & & 2.1990D+03, 6.5000D-34, 1.3350D+03 ) ! Reaction Label R126 RKI( NCELL, 144) = CFACT * ARRHENUIS_T03( INV_TEMP, 9.1400D-15, -2.5800D+03 ) ! Reaction Label R127 RKI( NCELL, 145) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.3300D-15, -1.8000D+03 ) ! Reaction Label R128 RKI( NCELL, 146) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.4000D-15, -8.4500D+02 ) ! Reaction Label R131 RKI( NCELL, 147) = CFACT * ARRHENUIS_T03( INV_TEMP, 8.0500D-16, -6.4000D+02 ) ! Reaction Label R132 RKI( NCELL, 148) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.8000D-15, -7.7000D+02 ) ! Reaction Label TRP08 RKI( NCELL, 149) = 8.3000D-18 * CFACT ! Reaction Label TRP09 RKI( NCELL, 150) = 1.6700D-16 * CFACT ! Reaction Label R133 RKI( NCELL, 151) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.3600D-15, -2.1120D+03 ) ! Reaction Label R134 RKI( NCELL, 152) = CFACT * ARRHENUIS_T03( INV_TEMP, 8.5000D-16, -1.5200D+03 ) ! Reaction Label R135 RKI( NCELL, 153) = 1.6600D-18 * CFACT ! Reaction Label R136 RKI( NCELL, 154) = 2.0000D-16 * CFACT ! Reaction Label R137 RKI( NCELL, 155) = 2.0000D-16 * CFACT ! Reaction Label R138 RKI( NCELL, 156) = 9.0000D-17 * CFACT ! Reaction Label R140 RKI( NCELL, 157) = 2.8600D-13 * CFACT ! Reaction Label R141 RKI( NCELL, 158) = CFACT * ARRHENUIS_T04( INV_TEMP, TEMPOT300, & & 4.3920D-13, -2.2820D+03, 2.0000D+00 ) ! Reaction Label R142 RKI( NCELL, 159) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.7900D-13, -4.5000D+02 ) ! Reaction Label R143 RKI( NCELL, 160) = CFACT * ARRHENUIS_T03( INV_TEMP, 8.6400D-13, 4.5000D+02 ) ! Reaction Label R146 RKI( NCELL, 161) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.1900D-12, 4.9000D+02 ) ! Reaction Label R147 RKI( NCELL, 162) = 1.2200D-11 * CFACT ! Reaction Label TRP10 RKI( NCELL, 163) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.1500D-13, -4.4800D+02 ) ! Reaction Label R148 RKI( NCELL, 164) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.0000D-12, -2.4400D+03 ) ! Reaction Label R149 RKI( NCELL, 165) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.4000D-12, -1.9000D+03 ) ! Reaction Label R150 RKI( NCELL, 166) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.7600D-12, -1.9000D+03 ) ! Reaction Label R151 RKI( NCELL, 167) = 3.4000D-15 * CFACT ! Reaction Label R152 RKI( NCELL, 168) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.0200D-13, -1.0760D+03 ) ! Reaction Label R153 RKI( NCELL, 169) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.9000D-12, -1.9000D+03 ) ! Reaction Label R154 RKI( NCELL, 170) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.7600D-12, -1.9000D+03 ) ! Reaction Label R155 RKI( NCELL, 171) = 3.7800D-12 * CFACT ! Reaction Label R156 RKI( NCELL, 172) = 1.0600D-12 * CFACT ! Reaction Label R158 RKI( NCELL, 173) = 2.0100D-10 * CFACT ! Reaction Label R159 RKI( NCELL, 174) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.2000D-14, -5.0000D+02 ) ! Reaction Label TRP11 RKI( NCELL, 175) = 2.9000D-02 * SFACT ! Reaction Label TRP12 RKI( NCELL, 176) = 2.4000D-02 * SFACT ! Reaction Label R166 RKI( NCELL, 177) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 9.7000D-29, 0.0000D+00, -5.6000D+00, & & 9.3000D-12, 0.0000D+00, -1.5000D+00, & & 1.0000D+00, 6.0000D-01 ) ! Reaction Label R167 RKI( NCELL, 178) = RFACT * RKI( NCELL, 177 ) & & * ( 1.1111D+28 * DEXP( -1.4000D+04 * INV_TEMP) ) ! Reaction Label R168 RKI( NCELL, 179) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 9.7000D-29, 0.0000D+00, -5.6000D+00, & & 9.3000D-12, 0.0000D+00, -1.5000D+00, & & 1.0000D+00, 6.0000D-01 ) ! Reaction Label R169 RKI( NCELL, 180) = RFACT * RKI( NCELL, 179 ) & & * ( 1.1111D+28 * DEXP( -1.4000D+04 * INV_TEMP) ) ! Reaction Label R170 RKI( NCELL, 181) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.8000D-12, 1.8100D+02 ) ! Reaction Label R171 RKI( NCELL, 182) = SFACT * ARRHENUIS_T03( INV_TEMP, 1.6000D+16, -1.3486D+04 ) ! Reaction Label R172 RKI( NCELL, 183) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.8000D-12, 3.0000D+02 ) ! Reaction Label R173 RKI( NCELL, 184) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.6000D-12, 3.6500D+02 ) ! Reaction Label R174 RKI( NCELL, 185) = 4.0000D-12 * CFACT ! Reaction Label R175 RKI( NCELL, 186) = 4.0000D-12 * CFACT ! Reaction Label R177 RKI( NCELL, 187) = 9.0000D-12 * CFACT ! Reaction Label R178 RKI( NCELL, 188) = 4.0000D-12 * CFACT ! Reaction Label R179 RKI( NCELL, 189) = 4.0000D-12 * CFACT ! Reaction Label ROCARO33 RKI( NCELL, 190) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label ROCARO43 RKI( NCELL, 191) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label ROCARO53 RKI( NCELL, 192) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label ROCARO63 RKI( NCELL, 193) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label R189 RKI( NCELL, 194) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label TRP13 RKI( NCELL, 195) = 4.0000D-12 * CFACT ! Reaction Label TRP14 RKI( NCELL, 196) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label TRP15 RKI( NCELL, 197) = 4.0000D-12 * CFACT ! Reaction Label R190 RKI( NCELL, 198) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label TRP16 RKI( NCELL, 199) = 4.0000D-12 * CFACT ! Reaction Label TRP17 RKI( NCELL, 200) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label TRP18 RKI( NCELL, 201) = 4.0000D-12 * CFACT ! Reaction Label TRP19 RKI( NCELL, 202) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label TRP20 RKI( NCELL, 203) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label R191 RKI( NCELL, 204) = CFACT * ARRHENUIS_T03( INV_TEMP, 8.1000D-12, 2.7000D+02 ) ! Reaction Label R192 RKI( NCELL, 205) = CFACT * ARRHENUIS_T03( INV_TEMP, 8.1000D-12, 2.7000D+02 ) ! Reaction Label R193 RKI( NCELL, 206) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.9000D-12, 3.0000D+02 ) ! Reaction Label R194 RKI( NCELL, 207) = 4.0000D-12 * CFACT ! Reaction Label R195 RKI( NCELL, 208) = 4.0000D-12 * CFACT ! Reaction Label R196 RKI( NCELL, 209) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.5400D-12, 3.6000D+02 ) ! Reaction Label R197 RKI( NCELL, 210) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.5400D-12, 3.6000D+02 ) ! Reaction Label R198 RKI( NCELL, 211) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.5400D-12, 3.6000D+02 ) ! Reaction Label R199 RKI( NCELL, 212) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.5400D-12, 3.6000D+02 ) ! Reaction Label R200 RKI( NCELL, 213) = 4.0000D-12 * CFACT ! Reaction Label R201 RKI( NCELL, 214) = 4.0000D-12 * CFACT ! Reaction Label R202 RKI( NCELL, 215) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label R203 RKI( NCELL, 216) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label R204 RKI( NCELL, 217) = 4.0000D-12 * CFACT ! Reaction Label R205 RKI( NCELL, 218) = 4.0000D-12 * CFACT ! Reaction Label R206 RKI( NCELL, 219) = 4.0000D-12 * CFACT ! Reaction Label R207 RKI( NCELL, 220) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label R208 RKI( NCELL, 221) = 4.0000D-12 * CFACT ! Reaction Label R209 RKI( NCELL, 222) = 2.0000D-11 * CFACT ! Reaction Label R210 RKI( NCELL, 223) = 2.0000D-11 * CFACT ! Reaction Label R211 RKI( NCELL, 224) = 2.0800D-12 * CFACT ! Reaction Label R212 RKI( NCELL, 225) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.1000D-13, 7.5000D+02 ) ! Reaction Label R213 RKI( NCELL, 226) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.5000D-13, 7.0000D+02 ) ! Reaction Label R214 RKI( NCELL, 227) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.6600D-13, 1.3000D+03 ) ! Reaction Label R215 RKI( NCELL, 228) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.6600D-13, 1.3000D+03 ) ! Reaction Label R217 RKI( NCELL, 229) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.9000D-13, 1.3000D+03 ) ! Reaction Label R218 RKI( NCELL, 230) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.6600D-13, 1.3000D+03 ) ! Reaction Label R219 RKI( NCELL, 231) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.6600D-13, 1.3000D+03 ) ! Reaction Label ROCARO32 RKI( NCELL, 232) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.9100D-13, 1.3000D+03 ) ! Reaction Label ROCARO42 RKI( NCELL, 233) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.9100D-13, 1.3000D+03 ) ! Reaction Label ROCARO52 RKI( NCELL, 234) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.9100D-13, 1.3000D+03 ) ! Reaction Label ROCARO62 RKI( NCELL, 235) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.9100D-13, 1.3000D+03 ) ! Reaction Label R229 RKI( NCELL, 236) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.6000D-13, 1.3000D+03 ) ! Reaction Label TRP21 RKI( NCELL, 237) = 1.5000D-11 * CFACT ! Reaction Label TRP22 RKI( NCELL, 238) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7100D-13, 1.3000D+03 ) ! Reaction Label TRP23 RKI( NCELL, 239) = 1.5000D-11 * CFACT ! Reaction Label R230 RKI( NCELL, 240) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.6000D-13, 1.3000D+03 ) ! Reaction Label TRP24 RKI( NCELL, 241) = 1.5000D-11 * CFACT ! Reaction Label TRP25 RKI( NCELL, 242) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7100D-13, 1.3000D+03 ) ! Reaction Label TRP26 RKI( NCELL, 243) = 1.5000D-11 * CFACT ! Reaction Label TRP27 RKI( NCELL, 244) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7100D-13, 1.3000D+03 ) ! Reaction Label TRP28 RKI( NCELL, 245) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7300D-13, 1.3000D+03 ) ! Reaction Label R231 RKI( NCELL, 246) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.3000D-13, 1.0400D+03 ) ! Reaction Label R232 RKI( NCELL, 247) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.3000D-13, 1.0400D+03 ) ! Reaction Label R233 RKI( NCELL, 248) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.1500D-13, 1.3000D+03 ) ! Reaction Label R234 RKI( NCELL, 249) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.1500D-13, 1.3000D+03 ) ! Reaction Label R235 RKI( NCELL, 250) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.1500D-13, 1.3000D+03 ) ! Reaction Label R236 RKI( NCELL, 251) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.8200D-13, 1.3000D+03 ) ! Reaction Label R237 RKI( NCELL, 252) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.8200D-13, 1.3000D+03 ) ! Reaction Label R238 RKI( NCELL, 253) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.9100D-13, 1.3000D+03 ) ! Reaction Label R239 RKI( NCELL, 254) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.9100D-13, 1.3000D+03 ) ! Reaction Label R240 RKI( NCELL, 255) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.7500D-13, 9.8000D+02 ) ! Reaction Label R241 RKI( NCELL, 256) = 1.0000D-11 * CFACT ! Reaction Label R242 RKI( NCELL, 257) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.7500D-13, 9.8000D+02 ) ! Reaction Label R243 RKI( NCELL, 258) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.1500D-13, 1.3000D+03 ) ! Reaction Label R244 RKI( NCELL, 259) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.6600D-13, 1.3000D+03 ) ! Reaction Label R245 RKI( NCELL, 260) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.6600D-13, 1.3000D+03 ) ! Reaction Label R246 RKI( NCELL, 261) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.7500D-13, 9.8000D+02 ) ! Reaction Label R247 RKI( NCELL, 262) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.6600D-13, 1.3000D+03 ) ! Reaction Label R248 RKI( NCELL, 263) = CFACT * ARRHENUIS_T03( INV_TEMP, 9.5000D-14, 3.9000D+02 ) ! Reaction Label R249 RKI( NCELL, 264) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.1800D-13, 1.5800D+02 ) ! Reaction Label R250 RKI( NCELL, 265) = CFACT * ARRHENUIS_T03( INV_TEMP, 9.4600D-14, 4.3100D+02 ) ! Reaction Label R251 RKI( NCELL, 266) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.0000D-13, 4.6700D+02 ) ! Reaction Label R253 RKI( NCELL, 267) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.7100D-13, 7.0800D+02 ) ! Reaction Label R254 RKI( NCELL, 268) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.4600D-13, 7.0800D+02 ) ! Reaction Label R255 RKI( NCELL, 269) = CFACT * ARRHENUIS_T03( INV_TEMP, 9.1800D-14, 7.0800D+02 ) ! Reaction Label ROCARO35 RKI( NCELL, 270) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.5600D-14, 7.0800D+02 ) ! Reaction Label ROCARO45 RKI( NCELL, 271) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.5600D-14, 7.0800D+02 ) ! Reaction Label ROCARO55 RKI( NCELL, 272) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.5600D-14, 7.0800D+02 ) ! Reaction Label ROCARO65 RKI( NCELL, 273) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.5600D-14, 7.0800D+02 ) ! Reaction Label R264 RKI( NCELL, 274) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.4000D-14, 2.2100D+02 ) ! Reaction Label R265 RKI( NCELL, 275) = 2.0000D-12 * CFACT ! Reaction Label TRP29 RKI( NCELL, 276) = 1.0000D-10 * CFACT ! Reaction Label TRP30 RKI( NCELL, 277) = 2.0000D-12 * CFACT ! Reaction Label TRP31 RKI( NCELL, 278) = 1.0000D-10 * CFACT ! Reaction Label R266 RKI( NCELL, 279) = 2.0000D-12 * CFACT ! Reaction Label TRP32 RKI( NCELL, 280) = 1.0000D-10 * CFACT ! Reaction Label TRP33 RKI( NCELL, 281) = 2.0000D-12 * CFACT ! Reaction Label TRP34 RKI( NCELL, 282) = 1.0000D-10 * CFACT ! Reaction Label R267 RKI( NCELL, 283) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.0000D-11, 5.0000D+02 ) ! Reaction Label R268 RKI( NCELL, 284) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.0000D-11, 5.0000D+02 ) ! Reaction Label R269 RKI( NCELL, 285) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.5000D-13, 5.0000D+02 ) ! Reaction Label R270 RKI( NCELL, 286) = CFACT * ARRHENUIS_T03( INV_TEMP, 6.9100D-13, 5.0800D+02 ) ! Reaction Label R271 RKI( NCELL, 287) = CFACT * ARRHENUIS_T03( INV_TEMP, 6.9100D-13, 5.0800D+02 ) ! Reaction Label R272 RKI( NCELL, 288) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.4000D-14, 2.2100D+02 ) ! Reaction Label R273 RKI( NCELL, 289) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.4000D-14, 2.2100D+02 ) ! Reaction Label R274 RKI( NCELL, 290) = 8.3700D-14 * CFACT ! Reaction Label R275 RKI( NCELL, 291) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.4000D-14, 2.2100D+02 ) ! Reaction Label R276 RKI( NCELL, 292) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.5600D-14, 7.0800D+02 ) ! Reaction Label R277 RKI( NCELL, 293) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.5600D-14, 7.0800D+02 ) ! Reaction Label R278 RKI( NCELL, 294) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.5600D-14, 7.0800D+02 ) ! Reaction Label R279 RKI( NCELL, 295) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.5600D-14, 7.0800D+02 ) ! Reaction Label R280 RKI( NCELL, 296) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.5000D-13, 5.0000D+02 ) ! Reaction Label R281 RKI( NCELL, 297) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.6000D-13, 7.0800D+02 ) ! Reaction Label R282 RKI( NCELL, 298) = CFACT * ARRHENUIS_T03( INV_TEMP, 9.6800D-14, 7.0800D+02 ) ! Reaction Label R283 RKI( NCELL, 299) = 3.5600D-14 * CFACT ! Reaction Label R284 RKI( NCELL, 300) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.9900D-15, 1.5100D+03 ) ! Reaction Label R285 RKI( NCELL, 301) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.0300D-12, 2.1100D+02 ) ! Reaction Label R286 RKI( NCELL, 302) = CFACT * ARRHENUIS_T03( INV_TEMP, 6.9000D-13, 4.6000D+02 ) ! Reaction Label R287 RKI( NCELL, 303) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.5900D-13, 5.2200D+02 ) ! Reaction Label R289 RKI( NCELL, 304) = CFACT * ARRHENUIS_T03( INV_TEMP, 9.4800D-13, 7.6500D+02 ) ! Reaction Label R290 RKI( NCELL, 305) = CFACT * ARRHENUIS_T03( INV_TEMP, 8.1100D-13, 7.6500D+02 ) ! Reaction Label R291 RKI( NCELL, 306) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.0900D-13, 7.6500D+02 ) ! Reaction Label ROCARO36 RKI( NCELL, 307) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.4000D-13, 7.6500D+02 ) ! Reaction Label ROCARO46 RKI( NCELL, 308) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.4000D-13, 7.6500D+02 ) ! Reaction Label ROCARO56 RKI( NCELL, 309) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.4000D-13, 7.6500D+02 ) ! Reaction Label ROCARO66 RKI( NCELL, 310) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.4000D-13, 7.6500D+02 ) ! Reaction Label R300 RKI( NCELL, 311) = CFACT * ARRHENUIS_T03( INV_TEMP, 8.4000D-14, 2.2100D+02 ) ! Reaction Label R301 RKI( NCELL, 312) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.0000D-12, 5.0000D+02 ) ! Reaction Label TRP35 RKI( NCELL, 313) = 1.0000D-10 * CFACT ! Reaction Label TRP36 RKI( NCELL, 314) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.0000D-12, 5.0000D+02 ) ! Reaction Label TRP37 RKI( NCELL, 315) = 1.0000D-10 * CFACT ! Reaction Label R302 RKI( NCELL, 316) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.0000D-12, 5.0000D+02 ) ! Reaction Label TRP38 RKI( NCELL, 317) = 1.0000D-10 * CFACT ! Reaction Label TRP39 RKI( NCELL, 318) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.0000D-12, 5.0000D+02 ) ! Reaction Label TRP40 RKI( NCELL, 319) = 1.0000D-10 * CFACT ! Reaction Label R303 RKI( NCELL, 320) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.5000D-12, 5.0000D+02 ) ! Reaction Label R304 RKI( NCELL, 321) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.5000D-12, 5.0000D+02 ) ! Reaction Label R305 RKI( NCELL, 322) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.5100D-13, 5.6500D+02 ) ! Reaction Label R306 RKI( NCELL, 323) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.5100D-13, 5.6500D+02 ) ! Reaction Label R307 RKI( NCELL, 324) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.5100D-13, 5.6500D+02 ) ! Reaction Label R308 RKI( NCELL, 325) = CFACT * ARRHENUIS_T03( INV_TEMP, 8.4000D-14, 2.2100D+02 ) ! Reaction Label R309 RKI( NCELL, 326) = CFACT * ARRHENUIS_T03( INV_TEMP, 8.4000D-14, 2.2100D+02 ) ! Reaction Label R310 RKI( NCELL, 327) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.6800D-12, 5.0000D+02 ) ! Reaction Label R311 RKI( NCELL, 328) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.6800D-12, 5.0000D+02 ) ! Reaction Label R312 RKI( NCELL, 329) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.4000D-13, 7.6500D+02 ) ! Reaction Label R313 RKI( NCELL, 330) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.4000D-13, 7.6500D+02 ) ! Reaction Label R314 RKI( NCELL, 331) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.4000D-13, 7.0800D+02 ) ! Reaction Label R315 RKI( NCELL, 332) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.4000D-13, 7.0800D+02 ) ! Reaction Label R316 RKI( NCELL, 333) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.5100D-13, 5.6500D+02 ) ! Reaction Label R317 RKI( NCELL, 334) = CFACT * ARRHENUIS_T03( INV_TEMP, 8.8500D-13, 7.6500D+02 ) ! Reaction Label R318 RKI( NCELL, 335) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.3700D-13, 7.6500D+02 ) ! Reaction Label R319 RKI( NCELL, 336) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.4000D-13, 7.0800D+02 ) ! Reaction Label R320 RKI( NCELL, 337) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.4000D-14, 1.5600D+03 ) ! Reaction Label R321 RKI( NCELL, 338) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.5000D-12, 5.0000D+02 ) ! Reaction Label R322 RKI( NCELL, 339) = 1.2000D-12 * CFACT ! Reaction Label R323 RKI( NCELL, 340) = 1.2000D-12 * CFACT ! Reaction Label R324 RKI( NCELL, 341) = 1.2000D-12 * CFACT ! Reaction Label R325 RKI( NCELL, 342) = 1.2000D-12 * CFACT ! Reaction Label R327 RKI( NCELL, 343) = 1.2000D-12 * CFACT ! Reaction Label R328 RKI( NCELL, 344) = 1.2000D-12 * CFACT ! Reaction Label R329 RKI( NCELL, 345) = 1.2000D-12 * CFACT ! Reaction Label ROCARO34 RKI( NCELL, 346) = 2.3000D-12 * CFACT ! Reaction Label ROCARO44 RKI( NCELL, 347) = 2.3000D-12 * CFACT ! Reaction Label ROCARO54 RKI( NCELL, 348) = 2.3000D-12 * CFACT ! Reaction Label ROCARO64 RKI( NCELL, 349) = 2.3000D-12 * CFACT ! Reaction Label R338 RKI( NCELL, 350) = 1.2000D-12 * CFACT ! Reaction Label R339 RKI( NCELL, 351) = 2.3000D-12 * CFACT ! Reaction Label R340 RKI( NCELL, 352) = 2.3000D-12 * CFACT ! Reaction Label TRP53 RKI( NCELL, 353) = 2.3000D-12 * CFACT ! Reaction Label TRP54 RKI( NCELL, 354) = 2.3000D-12 * CFACT ! Reaction Label R341 RKI( NCELL, 355) = 4.0000D-12 * CFACT ! Reaction Label R342 RKI( NCELL, 356) = 4.0000D-12 * CFACT ! Reaction Label R343 RKI( NCELL, 357) = 1.2000D-12 * CFACT ! Reaction Label R344 RKI( NCELL, 358) = 1.2000D-12 * CFACT ! Reaction Label R345 RKI( NCELL, 359) = 1.2000D-12 * CFACT ! Reaction Label R346 RKI( NCELL, 360) = 1.2000D-12 * CFACT ! Reaction Label R347 RKI( NCELL, 361) = 1.2000D-12 * CFACT ! Reaction Label R348 RKI( NCELL, 362) = 2.5000D-12 * CFACT ! Reaction Label R349 RKI( NCELL, 363) = 2.5000D-12 * CFACT ! Reaction Label R350 RKI( NCELL, 364) = 2.5000D-12 * CFACT ! Reaction Label R351 RKI( NCELL, 365) = 2.5000D-12 * CFACT ! Reaction Label R352 RKI( NCELL, 366) = 1.2000D-12 * CFACT ! Reaction Label R353 RKI( NCELL, 367) = 1.2000D-12 * CFACT ! Reaction Label R354 RKI( NCELL, 368) = 1.2000D-12 * CFACT ! Reaction Label R355 RKI( NCELL, 369) = 1.2000D-12 * CFACT ! Reaction Label R356 RKI( NCELL, 370) = 1.2000D-12 * CFACT ! Reaction Label R357 RKI( NCELL, 371) = 1.2000D-12 * CFACT ! Reaction Label R358 RKI( NCELL, 372) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.0000D-14, 1.0000D+03 ) ! Reaction Label R359 RKI( NCELL, 373) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.2500D-14, 1.0000D+03 ) ! Reaction Label R360 RKI( NCELL, 374) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.9600D-14, 1.0000D+03 ) ! Reaction Label R361 RKI( NCELL, 375) = 1.2000D-12 * CFACT ! Reaction Label R362 RKI( NCELL, 376) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.5000D-12, 5.0000D+02 ) ! Reaction Label R363 RKI( NCELL, 377) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.1300D-17, 2.9500D+03 ) ! Reaction Label TRP41 RKI( NCELL, 378) = 1.0000D-10 * CFACT ! Reaction Label TRP42 RKI( NCELL, 379) = 1.0000D-10 * CFACT ! Reaction Label TRP43 RKI( NCELL, 380) = 1.0000D-10 * CFACT ! Reaction Label TRP44 RKI( NCELL, 381) = 1.0000D-10 * CFACT ! Reaction Label TRP45 RKI( NCELL, 382) = 1.0000D-10 * CFACT ! Reaction Label TRP46 RKI( NCELL, 383) = 1.0000D-10 * CFACT ! Reaction Label TRP47 RKI( NCELL, 384) = 1.0000D-10 * CFACT ! Reaction Label TRP48 RKI( NCELL, 385) = 1.0000D-10 * CFACT ! Reaction Label TRP49 RKI( NCELL, 386) = 1.0000D-10 * CFACT ! Reaction Label TRP50 RKI( NCELL, 387) = 1.0000D-10 * CFACT ! Reaction Label TRP51 RKI( NCELL, 388) = 1.0000D-10 * CFACT ! Reaction Label TRP52 RKI( NCELL, 389) = 1.0000D-10 * CFACT ! Reaction Label RAM17 RKI( NCELL, 390) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.7800D-11, -4.0000D+02 ) ! Reaction Label R001c RKI( NCELL, 391) = 6.8900D-12 * CFACT ! Reaction Label R002c RKI( NCELL, 392) = 6.5500D-14 * CFACT ! Reaction Label T17 RKI( NCELL, 393) = CFACT * ARRHENUIS_T03( INV_TEMP, 8.0000D-12, 3.8000D+02 ) ! Reaction Label T18 RKI( NCELL, 394) = 2.9000D-19 * CFACT ! Reaction Label T19 RKI( NCELL, 395) = 3.4000D-15 * CFACT ! Reaction Label T10 RKI( NCELL, 397) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.4800D-11, 4.4800D+02 ) ! Reaction Label T10a RKI( NCELL, 398) = 9.0500D-12 * CFACT ! Reaction Label T10b RKI( NCELL, 399) = 2.3000D-12 * CFACT ! Reaction Label T10c RKI( NCELL, 400) = 1.6100D-11 * CFACT ! Reaction Label T10d RKI( NCELL, 401) = 2.3900D-12 * CFACT ! Reaction Label T10e RKI( NCELL, 402) = 1.3700D-11 * CFACT ! Reaction Label T11 RKI( NCELL, 403) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.3400D-14, -2.2830D+03 ) ! Reaction Label T12 RKI( NCELL, 404) = 1.0000D-13 * CFACT ! Reaction Label R003c RKI( NCELL, 405) = 5.0100D-11 * CFACT ! Reaction Label R004c RKI( NCELL, 406) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label R005c RKI( NCELL, 407) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.7500D-13, 9.8000D+02 ) ! Reaction Label R006c RKI( NCELL, 408) = 4.4000D-11 * CFACT ! Reaction Label R007c RKI( NCELL, 409) = 3.4300D-17 * CFACT ! Reaction Label R008c RKI( NCELL, 410) = 8.9900D-12 * CFACT ! Reaction Label R010c RKI( NCELL, 411) = 1.2000D-11 * CFACT ! Reaction Label R011c RKI( NCELL, 412) = 1.9000D-11 * CFACT ! Reaction Label R012c RKI( NCELL, 413) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.8400D-13, 1.3000D+03 ) ! Reaction Label R013c RKI( NCELL, 414) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label R014c RKI( NCELL, 415) = 2.3000D-12 * CFACT ! Reaction Label R015c RKI( NCELL, 416) = 1.2000D-14 * CFACT ! Reaction Label R016c RKI( NCELL, 417) = 1.9700D-10 * CFACT ! Reaction Label R017c RKI( NCELL, 418) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.8400D-13, 1.3000D+03 ) ! Reaction Label R019c RKI( NCELL, 419) = 2.3000D-12 * CFACT ! Reaction Label R020c RKI( NCELL, 420) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label HET_GLY RKI( NCELL, 421) = BLKHET( NCELL, IK_HETERO_GLY ) ! Reaction Label HET_MGLY RKI( NCELL, 422) = BLKHET( NCELL, IK_HETERO_MGLY ) ! Reaction Label HET_N2O5 RKI( NCELL, 423) = BLKHET( NCELL, IK_HETERO_N2O5IJ ) ! Reaction Label HET_NO2 RKI( NCELL, 424) = BLKHET( NCELL, IK_HETERO_NO2 ) ! Reaction Label HET_HO2 RKI( NCELL, 425) = BLKHET( NCELL, IK_HETERO_HO2 ) ! Reaction Label HET_NO3 RKI( NCELL, 426) = BLKHET( NCELL, IK_HETERO_NO3 ) ! Reaction Label HET_IEPOX RKI( NCELL, 428) = BLKHET( NCELL, IK_HETERO_IEPOX ) ! Reaction Label HET_ISO3TET RKI( NCELL, 429) = BLKHET( NCELL, IK_HETERO_ISO3NOSJ ) ! Reaction Label HET_IEPOXOS RKI( NCELL, 430) = BLKHET( NCELL, IK_HETERO_ISO3OSJ ) ! Reaction Label HET_IPX RKI( NCELL, 431) = 2.0000D+00 * BLKHET( NCELL, IK_HETERO_IEPOX ) ! Reaction Label HET_INALD RKI( NCELL, 432) = 5.0000D-01 * BLKHET( NCELL, IK_HETERO_IEPOX ) ! Reaction Label ROCALK1c RKI( NCELL, 433) = 1.5300D-11 * CFACT ! Reaction Label ROCALK2c RKI( NCELL, 434) = 1.6800D-11 * CFACT ! Reaction Label ROCALK3c RKI( NCELL, 435) = 2.2400D-11 * CFACT ! Reaction Label ROCALK4c RKI( NCELL, 436) = 2.6700D-11 * CFACT ! Reaction Label ROCALK5c RKI( NCELL, 437) = 3.0900D-11 * CFACT ! Reaction Label ROCALK6c RKI( NCELL, 438) = 3.3800D-11 * CFACT ! Reaction Label HC1001 RKI( NCELL, 439) = 1.1000D-11 * CFACT ! Reaction Label ROCALK7c RKI( NCELL, 440) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label ROCALK8c RKI( NCELL, 441) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label ROCALK9c RKI( NCELL, 442) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label ROCALK10c RKI( NCELL, 443) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label ROCALK11c RKI( NCELL, 444) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label ROCALK12c RKI( NCELL, 445) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label HC1002 RKI( NCELL, 446) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label ROCALK13c RKI( NCELL, 447) = 2.3000D-12 * CFACT ! Reaction Label ROCALK14c RKI( NCELL, 448) = 2.3000D-12 * CFACT ! Reaction Label ROCALK15c RKI( NCELL, 449) = 2.3000D-12 * CFACT ! Reaction Label ROCALK16c RKI( NCELL, 450) = 2.3000D-12 * CFACT ! Reaction Label ROCALK17c RKI( NCELL, 451) = 2.3000D-12 * CFACT ! Reaction Label ROCALK18c RKI( NCELL, 452) = 2.3000D-12 * CFACT ! Reaction Label HC1003 RKI( NCELL, 453) = 2.3000D-12 * CFACT ! Reaction Label ROCALK19c RKI( NCELL, 454) = 2.1700D-11 * CFACT ! Reaction Label ROCALK20c RKI( NCELL, 455) = 2.2000D-11 * CFACT ! Reaction Label ROCALK21c RKI( NCELL, 456) = 2.2500D-11 * CFACT ! Reaction Label ROCALK22c RKI( NCELL, 457) = 2.2600D-11 * CFACT ! Reaction Label ROCALK23c RKI( NCELL, 458) = 2.2700D-11 * CFACT ! Reaction Label ROCALK24c RKI( NCELL, 459) = 2.2700D-11 * CFACT ! Reaction Label HC1004 RKI( NCELL, 460) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.6600D-13, 1.3000D+03 ) ! Reaction Label ROCALK25c RKI( NCELL, 461) = 1.8800D-01 * SFACT ! Reaction Label ROCALK26c RKI( NCELL, 462) = 1.8800D-01 * SFACT ! Reaction Label ROCALK27c RKI( NCELL, 463) = 1.8800D-01 * SFACT ! Reaction Label ROCALK28c RKI( NCELL, 464) = 1.8800D-01 * SFACT ! Reaction Label ROCALK29c RKI( NCELL, 465) = 1.8800D-01 * SFACT ! Reaction Label ROCALK30c RKI( NCELL, 466) = 1.8800D-01 * SFACT ! Reaction Label HC1005 RKI( NCELL, 467) = 1.8800D-01 * SFACT ! Reaction Label ROCALK31c RKI( NCELL, 468) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label ROCALK32c RKI( NCELL, 469) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label ROCALK33c RKI( NCELL, 470) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label ROCALK34c RKI( NCELL, 471) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label ROCALK35c RKI( NCELL, 472) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label ROCALK36c RKI( NCELL, 473) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label HC1006 RKI( NCELL, 474) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label ROCALK37c RKI( NCELL, 475) = 2.3000D-12 * CFACT ! Reaction Label ROCALK38c RKI( NCELL, 476) = 2.3000D-12 * CFACT ! Reaction Label ROCALK39c RKI( NCELL, 477) = 2.3000D-12 * CFACT ! Reaction Label ROCALK40c RKI( NCELL, 478) = 2.3000D-12 * CFACT ! Reaction Label ROCALK41c RKI( NCELL, 479) = 2.3000D-12 * CFACT ! Reaction Label ROCALK42c RKI( NCELL, 480) = 2.3000D-12 * CFACT ! Reaction Label HC1007 RKI( NCELL, 481) = 2.3000D-12 * CFACT ! Reaction Label ROCALK43c RKI( NCELL, 482) = 2.1700D-11 * CFACT ! Reaction Label ROCALK44c RKI( NCELL, 483) = 2.2000D-11 * CFACT ! Reaction Label ROCALK45c RKI( NCELL, 484) = 2.2500D-11 * CFACT ! Reaction Label ROCALK46c RKI( NCELL, 485) = 2.2600D-11 * CFACT ! Reaction Label ROCALK47c RKI( NCELL, 486) = 2.2700D-11 * CFACT ! Reaction Label ROCALK48c RKI( NCELL, 487) = 2.2700D-11 * CFACT ! Reaction Label HC1008 RKI( NCELL, 488) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.6600D-13, 1.3000D+03 ) ! Reaction Label ROCARO01 RKI( NCELL, 489) = 1.8100D-11 * CFACT ! Reaction Label ROCARO02 RKI( NCELL, 490) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.9100D-13, 1.3000D+03 ) ! Reaction Label ROCARO03 RKI( NCELL, 491) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label ROCARO04 RKI( NCELL, 492) = 2.3000D-12 * CFACT ! Reaction Label ROCARO05 RKI( NCELL, 493) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.5600D-14, 7.0800D+02 ) ! Reaction Label ROCARO06 RKI( NCELL, 494) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.4000D-13, 7.6500D+02 ) ! Reaction Label ROCARO11 RKI( NCELL, 495) = 1.8100D-11 * CFACT ! Reaction Label ROCARO12 RKI( NCELL, 496) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.9100D-13, 1.3000D+03 ) ! Reaction Label ROCARO13 RKI( NCELL, 497) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label ROCARO14 RKI( NCELL, 498) = 2.3000D-12 * CFACT ! Reaction Label ROCARO15 RKI( NCELL, 499) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.5600D-14, 7.0800D+02 ) ! Reaction Label ROCARO16 RKI( NCELL, 500) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.4000D-13, 7.6500D+02 ) ! Reaction Label ROCARO21 RKI( NCELL, 501) = 2.3100D-11 * CFACT ! Reaction Label ROCARO22 RKI( NCELL, 502) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.9100D-13, 1.3000D+03 ) ! Reaction Label ROCARO23 RKI( NCELL, 503) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label ROCARO24 RKI( NCELL, 504) = 2.3000D-12 * CFACT ! Reaction Label ROCARO25 RKI( NCELL, 505) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.5600D-14, 7.0800D+02 ) ! Reaction Label ROCARO26 RKI( NCELL, 506) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.4000D-13, 7.6500D+02 ) ! Reaction Label ROCOXY1c RKI( NCELL, 507) = 5.9000D-11 * CFACT ! Reaction Label ROCOXY2c RKI( NCELL, 508) = 6.0700D-11 * CFACT ! Reaction Label ROCOXY3c RKI( NCELL, 509) = 5.5400D-11 * CFACT ! Reaction Label ROCOXY4c RKI( NCELL, 510) = 5.6300D-11 * CFACT ! Reaction Label ROCOXY5c RKI( NCELL, 511) = 5.4600D-11 * CFACT ! Reaction Label ROCOXY6c RKI( NCELL, 512) = 4.5000D-11 * CFACT ! Reaction Label ROCOXY7c RKI( NCELL, 513) = 5.1700D-11 * CFACT ! Reaction Label ROCOXY8c RKI( NCELL, 514) = 4.7300D-11 * CFACT ! Reaction Label ROCOXY9c RKI( NCELL, 515) = 4.6000D-11 * CFACT ! Reaction Label ROCOXY10c RKI( NCELL, 516) = 3.8000D-11 * CFACT ! Reaction Label ROCOXY11c RKI( NCELL, 517) = 3.9300D-11 * CFACT ! Reaction Label ROCOXY12c RKI( NCELL, 518) = 3.5200D-11 * CFACT ! Reaction Label ROCOXY13c RKI( NCELL, 519) = 3.1200D-11 * CFACT ! Reaction Label ROCOXY14c RKI( NCELL, 520) = 2.4000D-11 * CFACT ! Reaction Label ROCOXY15c RKI( NCELL, 521) = 2.0500D-11 * CFACT ! Reaction Label ROCOXY16c RKI( NCELL, 522) = 4.6900D-11 * CFACT ! Reaction Label R364 RKI( NCELL, 523) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.4500D-12, -1.7750D+03 ) ! Reaction Label TRP58 RKI( NCELL, 524) = 9.2600D-05 * SFACT ! Reaction Label TRP59 RKI( NCELL, 525) = 9.2600D-05 * SFACT ! Reaction Label ROCARO71 RKI( NCELL, 526) = 5.8000D-11 * CFACT ! Reaction Label ROCARO72 RKI( NCELL, 527) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.9100D-12, 1.3000D+03 ) ! Reaction Label ROCARO73 RKI( NCELL, 528) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label ROCARO74 RKI( NCELL, 529) = 2.3000D-12 * CFACT ! Reaction Label ROCARO75 RKI( NCELL, 530) = 2.5000D-13 * CFACT ! Reaction Label ROCARO76 RKI( NCELL, 531) = 2.5000D-13 * CFACT END DO ! Multiply rate constants by [M], [O2], [N2], [H2O], [H2], or [CH4] ! where needed and return IF ( NWM .GT. 0 ) THEN DO NRT = 1, NWM IRXN = NRXWM( NRT ) DO NCELL = 1, NUMCELLS RKI( NCELL,IRXN ) = RKI( NCELL,IRXN ) * ATM_AIR END DO END DO END IF IF ( NWO2 .GT. 0 ) THEN DO NRT = 1, NWO2 IRXN = NRXWO2( NRT ) DO NCELL = 1, NUMCELLS RKI( NCELL,IRXN ) = RKI( NCELL,IRXN ) * ATM_O2 END DO END DO END IF IF ( NWN2 .GT. 0 ) THEN DO NRT = 1, NWN2 IRXN = NRXWN2( NRT ) DO NCELL = 1, NUMCELLS RKI( NCELL,IRXN ) = RKI( NCELL,IRXN ) * ATM_N2 END DO END DO END IF IF ( NWW .GT. 0 ) THEN DO NRT = 1, NWW IRXN = NRXWW( NRT ) DO NCELL = 1, NUMCELLS RKI( NCELL,IRXN ) = RKI( NCELL,IRXN ) * BLKH2O( NCELL ) END DO END DO END IF IF ( NWH2 .GT. 0 ) THEN DO NRT = 1, NWH2 IRXN = NRXWH2( NRT ) DO NCELL = 1, NUMCELLS RKI( NCELL,IRXN ) = RKI( NCELL,IRXN ) * ATM_H2 END DO END DO END IF IF ( NWCH4 .GT. 0 ) THEN DO NRT = 1, NWCH4 IRXN = NRXWCH4( NRT ) DO NCELL = 1, NUMCELLS RKI( NCELL,IRXN ) = RKI( NCELL,IRXN ) * ATM_CH4 END DO END DO END IF RETURN END SUBROUTINE CALC_RCONST FUNCTION MAP_CHEMISTRY_SPECIES() RESULT ( SUCCESS ) ! Purpose find or test the CGRID Index, Species Type, and Conversion Factor ! for the Mechanism against the CMAQ namelists USE UTILIO_DEFN USE CGRID_SPCS USE RXNS_DATA IMPLICIT NONE !Parameters: CHARACTER( 1 ), PARAMETER :: BL = ' ' INTEGER, PARAMETER :: SPC_DIM = 200 !Local: LOGICAL SUCCESS INTEGER I, IOS, J INTEGER I1, I2, I3, I4 ! SURROGATE TYPE 1 COUNTERS INTEGER J1, J2 ! SURROGATE TYPE 2 COUNTERS INTEGER K1, K2, K3, K4, K5 ! CONTROL TYPE COUNTERS INTEGER ICALL LOGICAL :: ORDER = .TRUE. LOGICAL :: FOUND = .TRUE. CHARACTER( 120 ) :: XMSG CHARACTER( 16 ), ALLOCATABLE :: CGRID_SPC ( : ) CHARACTER( 16 ), ALLOCATABLE :: NML_SPC ( : ) CHARACTER( 2 ), ALLOCATABLE :: NML_TYPE ( : ) INTEGER, ALLOCATABLE :: NML_INDEX ( : ) LOGICAL, ALLOCATABLE :: NML_CONVERT( : ) REAL, ALLOCATABLE :: NML_MOLWT ( : ) REAL :: DELTA ! fractional difference LOGICAL, SAVE :: INITIALIZED = .FALSE. IF( INITIALIZED )RETURN INITIALIZED = .TRUE. SUCCESS = .TRUE. ALLOCATE ( CGRID_SPC( NSPCSD - 1 ), & & NML_SPC ( NSPCSD - 1 ), & & NML_INDEX( NSPCSD - 1 ), & & NML_TYPE( NSPCSD - 1 ), & & NML_CONVERT( NSPCSD - 1 ), & & NML_MOLWT( NSPCSD - 1 ), & & STAT = IOS ) J = 0 NML_INDEX = -1 TYPE_INDEX = -1 NML_TYPE = '??' NML_CONVERT = .FALSE. DO I = 1, N_GC_SPC ! load gc names and indices J = J + 1 CGRID_SPC( I ) = GC_SPC( I ) NML_INDEX( J ) = I + GC_STRT -1 NML_TYPE( J ) = 'GC' NML_MOLWT( J ) = GC_MOLWT( I ) END DO DO I = 1, N_AE_SPC ! load ae names and indices J = J + 1 CGRID_SPC( J ) = AE_SPC( I ) NML_INDEX( J ) = I + AE_STRT - 1 NML_TYPE( J ) = 'AE' NML_CONVERT( J ) = .TRUE. NML_MOLWT( J ) = AE_MOLWT( I ) END DO DO I = 1, N_NR_SPC ! load nr names and indices J = J + 1 CGRID_SPC( J ) = NR_SPC( I ) NML_INDEX( J ) = I + NR_STRT - 1 NML_TYPE( J ) = 'NR' NML_MOLWT( J ) = NR_MOLWT( I ) END DO DO I = 1, N_TR_SPC ! load tr names and indices J = J + 1 CGRID_SPC( J ) = TR_SPC( I ) NML_INDEX( J ) = I + TR_STRT - 1 NML_TYPE( J ) = 'TR' NML_MOLWT( J ) = TR_MOLWT( I ) END DO NML_SPC( 1:(NSPCSD-1) ) = CGRID_SPC( 1:(NSPCSD-1) ) ! determine if mechanism species are in cgrid species DO I = 1, NUMB_MECH_SPC ! set species informations arrays using SPECIES_LIST array before mapping CHEMISTRY_SPC( I ) = SPECIES_LIST( I )%CHEMISTRY_SPC CGRID_INDEX ( I ) = SPECIES_LIST( I )%CGRID_INDEX SPECIES_TYPE ( I ) = SPECIES_LIST( I )%SPECIES_TYPE CONVERT_CONC ( I ) = SPECIES_LIST( I )%CONVERT_CONC SPECIES_MOLWT( I ) = SPECIES_LIST( I )%SPECIES_MOLWT I1 = INDEX1R( CHEMISTRY_SPC( I ), (NSPCSD-1), CGRID_SPC ) IF ( I1 .LT. 1 ) THEN FOUND = .FALSE. ELSE FOUND = .TRUE. IF( .NOT. MAPPED_TO_CGRID )THEN CGRID_INDEX( I ) = NML_INDEX( I1 ) SPECIES_TYPE( I ) = NML_TYPE ( I1 ) SPECIES_MOLWT( I ) = NML_MOLWT( I1 ) CONVERT_CONC( I ) = NML_CONVERT( I1 ) ELSE IF(CGRID_INDEX( I ) .NE. NML_INDEX( I1 ))THEN SUCCESS = .FALSE. XMSG = '*** For Species ' // TRIM( CHEMISTRY_SPC( I ) ) & & // ' cgrid index does not match mechanism value.' WRITE( LOGDEV,'( /5X, A )' ) TRIM( XMSG ) WRITE( XMSG,'(A,I3,1X,I3)')'CGRID Indices: Mechanism and NML Values are ', & & CGRID_INDEX( I ),NML_INDEX( I1 ) WRITE( LOGDEV,'( 5X, A )' )XMSG END IF IF(CONVERT_CONC( I ) .NEQV. NML_CONVERT( I1 ))THEN SUCCESS = .FALSE. XMSG = '*** For Species ' // TRIM( CHEMISTRY_SPC( I ) ) & & // ' species unit conversion flag does not match mechanism value.' WRITE( LOGDEV,'( /5X, A )' ) TRIM( XMSG ) WRITE( XMSG,'(A,1X,L21X,L2)')'CONVERSION FLAGS: Mechanism and NML Values are ', & & CONVERT_CONC( I ),NML_CONVERT( I1 ) WRITE( LOGDEV,'( 5X, A )' )XMSG WRITE( XMSG,'(A,1X,A3,1X,A3)')'SPECIES TYPE: Mechanism and NML Values are ', & & SPECIES_TYPE( I ),NML_TYPE( I1 ) WRITE( LOGDEV,'( 5X, A )' )XMSG END IF DELTA = ( SPECIES_MOLWT( I ) - NML_MOLWT( I1 ) )/MAX(NML_MOLWT( I1 ),1.0E-20) IF( ABS( DELTA ) .GE. 0.05 )THEN IF( CONVERT_CONC( I ) )SUCCESS = .FALSE. XMSG = '*** For Species ' // TRIM( CHEMISTRY_SPC( I ) ) & & // ' species molecular weight does not match mechanism value.' WRITE( LOGDEV,'( /5X, A )' ) TRIM( XMSG ) WRITE( XMSG,'(A,2(ES12.4,1X))')'Molecular Weight: Mechanism and NML Values are ', & & SPECIES_MOLWT( I ), NML_MOLWT( I1 ) WRITE( LOGDEV,'( 5X, A )' )XMSG END IF END IF END IF IF( INDEX( CHEMISTRY_SPC( I ), 'SRF') .GT. 0 )THEN SUCCESS = .FALSE. XMSG = '*** reactions cannot use modal aerosol surface area as species' WRITE( LOGDEV,'( /5X, A )' ) TRIM( XMSG ) XMSG = TRIM( CHEMISTRY_SPC( I ) ) WRITE( LOGDEV,'( 2X, A )' ) TRIM( XMSG ) END IF IF( INDEX( CHEMISTRY_SPC( I ), 'NUM') .GT. 0 )THEN SUCCESS = .FALSE. XMSG = '*** reactions cannot use modal aerosol number density as species' WRITE( LOGDEV,'( /5X, A )' ) TRIM( XMSG ) XMSG = TRIM( CHEMISTRY_SPC( I ) ) WRITE( LOGDEV,'( 2X, A )' ) TRIM( XMSG ) END IF IF ( .NOT. FOUND ) THEN XMSG = 'Fatal error: Mechanism Species found not in species namelist:' WRITE( LOGDEV,'( /5X, A )', ADVANCE = 'NO' ) TRIM( XMSG ) XMSG = TRIM( CHEMISTRY_SPC( I ) ) WRITE( LOGDEV,'( 2X, A )' ) TRIM( XMSG ) SUCCESS = .FALSE. END IF END DO IF( SUCCESS )RETURN WRITE(LOGDEV,99901)TRIM( MECHNAME ) XMSG = 'The FATAL errors found in namelist used. Check ' & & // 'the log of exiting processor if more details are needed.' CALL M3WARN('MAP_CHEMISTRY_SPECIES',0,0,XMSG) 99901 FORMAT( / 'FATAL error(s) found in the namelists used. Check that ' & & / 'these namelists contain the above data as the respective files ' & & / 'in the respository version of the mechanism: ' , A ) RETURN END FUNCTION MAP_CHEMISTRY_SPECIES !---------------------------------------------------------------------------------------- INTEGER FUNCTION INDEX1R ( NAME, N, NLIST ) IMPLICIT NONE CHARACTER( * ) NAME ! character string being searched for INTEGER N ! length of array to be searched CHARACTER( * ) NLIST( : ) ! array to be searched INTEGER I DO I = 1, N IF ( NAME .EQ. NLIST( I ) ) THEN INDEX1R = I RETURN END IF END DO INDEX1R = 0 RETURN END FUNCTION INDEX1R SUBROUTINE RESET_SPECIES_POINTERS( IOLD2NEW ) USE RXNS_DATA IMPLICIT NONE INTEGER, INTENT( IN ) :: IOLD2NEW( :,: ) INDEX_O3 = IOLD2NEW( INDEX_O3 , 1 ) INDEX_O3P = IOLD2NEW( INDEX_O3P , 1 ) INDEX_O1D = IOLD2NEW( INDEX_O1D , 1 ) INDEX_H2O2 = IOLD2NEW( INDEX_H2O2 , 1 ) INDEX_HO = IOLD2NEW( INDEX_HO , 1 ) INDEX_NO2 = IOLD2NEW( INDEX_NO2 , 1 ) INDEX_NO = IOLD2NEW( INDEX_NO , 1 ) INDEX_NO3 = IOLD2NEW( INDEX_NO3 , 1 ) INDEX_HONO = IOLD2NEW( INDEX_HONO , 1 ) INDEX_HNO3 = IOLD2NEW( INDEX_HNO3 , 1 ) INDEX_HNO4 = IOLD2NEW( INDEX_HNO4 , 1 ) INDEX_HO2 = IOLD2NEW( INDEX_HO2 , 1 ) INDEX_HCHO = IOLD2NEW( INDEX_HCHO , 1 ) INDEX_CO = IOLD2NEW( INDEX_CO , 1 ) INDEX_ACD = IOLD2NEW( INDEX_ACD , 1 ) INDEX_MO2 = IOLD2NEW( INDEX_MO2 , 1 ) INDEX_ALD = IOLD2NEW( INDEX_ALD , 1 ) INDEX_ETHP = IOLD2NEW( INDEX_ETHP , 1 ) INDEX_ACT = IOLD2NEW( INDEX_ACT , 1 ) INDEX_ACO3 = IOLD2NEW( INDEX_ACO3 , 1 ) INDEX_UALD = IOLD2NEW( INDEX_UALD , 1 ) INDEX_KET = IOLD2NEW( INDEX_KET , 1 ) INDEX_PINAL = IOLD2NEW( INDEX_PINAL , 1 ) INDEX_HC10P = IOLD2NEW( INDEX_HC10P , 1 ) INDEX_LIMAL = IOLD2NEW( INDEX_LIMAL , 1 ) INDEX_MEK = IOLD2NEW( INDEX_MEK , 1 ) INDEX_HKET = IOLD2NEW( INDEX_HKET , 1 ) INDEX_MACR = IOLD2NEW( INDEX_MACR , 1 ) INDEX_MACP = IOLD2NEW( INDEX_MACP , 1 ) INDEX_XO2 = IOLD2NEW( INDEX_XO2 , 1 ) INDEX_MVK = IOLD2NEW( INDEX_MVK , 1 ) INDEX_GLY = IOLD2NEW( INDEX_GLY , 1 ) INDEX_MGLY = IOLD2NEW( INDEX_MGLY , 1 ) INDEX_DCB1 = IOLD2NEW( INDEX_DCB1 , 1 ) INDEX_DCB2 = IOLD2NEW( INDEX_DCB2 , 1 ) INDEX_BALD = IOLD2NEW( INDEX_BALD , 1 ) INDEX_CHO = IOLD2NEW( INDEX_CHO , 1 ) INDEX_OP1 = IOLD2NEW( INDEX_OP1 , 1 ) INDEX_OP2 = IOLD2NEW( INDEX_OP2 , 1 ) INDEX_OPB = IOLD2NEW( INDEX_OPB , 1 ) INDEX_OP3 = IOLD2NEW( INDEX_OP3 , 1 ) INDEX_PAA = IOLD2NEW( INDEX_PAA , 1 ) INDEX_ONIT = IOLD2NEW( INDEX_ONIT , 1 ) INDEX_PAN = IOLD2NEW( INDEX_PAN , 1 ) INDEX_TRPN = IOLD2NEW( INDEX_TRPN , 1 ) INDEX_HONIT = IOLD2NEW( INDEX_HONIT , 1 ) INDEX_N2O5 = IOLD2NEW( INDEX_N2O5 , 1 ) INDEX_SO2 = IOLD2NEW( INDEX_SO2 , 1 ) INDEX_SULF = IOLD2NEW( INDEX_SULF , 1 ) INDEX_SULRXN = IOLD2NEW( INDEX_SULRXN , 1 ) INDEX_ETH = IOLD2NEW( INDEX_ETH , 1 ) INDEX_HC3 = IOLD2NEW( INDEX_HC3 , 1 ) INDEX_HC3P = IOLD2NEW( INDEX_HC3P , 1 ) INDEX_ASOATJ = IOLD2NEW( INDEX_ASOATJ , 1 ) INDEX_HC5 = IOLD2NEW( INDEX_HC5 , 1 ) INDEX_HC5P = IOLD2NEW( INDEX_HC5P , 1 ) INDEX_ETE = IOLD2NEW( INDEX_ETE , 1 ) INDEX_ETEP = IOLD2NEW( INDEX_ETEP , 1 ) INDEX_OLT = IOLD2NEW( INDEX_OLT , 1 ) INDEX_OLTP = IOLD2NEW( INDEX_OLTP , 1 ) INDEX_OLI = IOLD2NEW( INDEX_OLI , 1 ) INDEX_OLIP = IOLD2NEW( INDEX_OLIP , 1 ) INDEX_ACE = IOLD2NEW( INDEX_ACE , 1 ) INDEX_ORA1 = IOLD2NEW( INDEX_ORA1 , 1 ) INDEX_BEN = IOLD2NEW( INDEX_BEN , 1 ) INDEX_BENP = IOLD2NEW( INDEX_BENP , 1 ) INDEX_PHEN = IOLD2NEW( INDEX_PHEN , 1 ) INDEX_TOL = IOLD2NEW( INDEX_TOL , 1 ) INDEX_TOLP = IOLD2NEW( INDEX_TOLP , 1 ) INDEX_CSL = IOLD2NEW( INDEX_CSL , 1 ) INDEX_XYL = IOLD2NEW( INDEX_XYL , 1 ) INDEX_XYLP = IOLD2NEW( INDEX_XYLP , 1 ) INDEX_EBZ = IOLD2NEW( INDEX_EBZ , 1 ) INDEX_EBZP = IOLD2NEW( INDEX_EBZP , 1 ) INDEX_ISO = IOLD2NEW( INDEX_ISO , 1 ) INDEX_ISON = IOLD2NEW( INDEX_ISON , 1 ) INDEX_INO2 = IOLD2NEW( INDEX_INO2 , 1 ) INDEX_ISOP = IOLD2NEW( INDEX_ISOP , 1 ) INDEX_ISHP = IOLD2NEW( INDEX_ISHP , 1 ) INDEX_IEPOX = IOLD2NEW( INDEX_IEPOX , 1 ) INDEX_IPX = IOLD2NEW( INDEX_IPX , 1 ) INDEX_INALD = IOLD2NEW( INDEX_INALD , 1 ) INDEX_ROH = IOLD2NEW( INDEX_ROH , 1 ) INDEX_API = IOLD2NEW( INDEX_API , 1 ) INDEX_APIP1 = IOLD2NEW( INDEX_APIP1 , 1 ) INDEX_APIP2 = IOLD2NEW( INDEX_APIP2 , 1 ) INDEX_LIM = IOLD2NEW( INDEX_LIM , 1 ) INDEX_LIMP1 = IOLD2NEW( INDEX_LIMP1 , 1 ) INDEX_LIMP2 = IOLD2NEW( INDEX_LIMP2 , 1 ) INDEX_PINALP = IOLD2NEW( INDEX_PINALP , 1 ) INDEX_RCO3 = IOLD2NEW( INDEX_RCO3 , 1 ) INDEX_LIMALP = IOLD2NEW( INDEX_LIMALP , 1 ) INDEX_ACTP = IOLD2NEW( INDEX_ACTP , 1 ) INDEX_MEKP = IOLD2NEW( INDEX_MEKP , 1 ) INDEX_KETP = IOLD2NEW( INDEX_KETP , 1 ) INDEX_MCP = IOLD2NEW( INDEX_MCP , 1 ) INDEX_MVKP = IOLD2NEW( INDEX_MVKP , 1 ) INDEX_UALP = IOLD2NEW( INDEX_UALP , 1 ) INDEX_DCB3 = IOLD2NEW( INDEX_DCB3 , 1 ) INDEX_BALP = IOLD2NEW( INDEX_BALP , 1 ) INDEX_ADDC = IOLD2NEW( INDEX_ADDC , 1 ) INDEX_MCT = IOLD2NEW( INDEX_MCT , 1 ) INDEX_MCTO = IOLD2NEW( INDEX_MCTO , 1 ) INDEX_MOH = IOLD2NEW( INDEX_MOH , 1 ) INDEX_EOH = IOLD2NEW( INDEX_EOH , 1 ) INDEX_ETEG = IOLD2NEW( INDEX_ETEG , 1 ) INDEX_MAHP = IOLD2NEW( INDEX_MAHP , 1 ) INDEX_ORA2 = IOLD2NEW( INDEX_ORA2 , 1 ) INDEX_ORAP = IOLD2NEW( INDEX_ORAP , 1 ) INDEX_PPN = IOLD2NEW( INDEX_PPN , 1 ) INDEX_MPAN = IOLD2NEW( INDEX_MPAN , 1 ) INDEX_MCTP = IOLD2NEW( INDEX_MCTP , 1 ) INDEX_OLNN = IOLD2NEW( INDEX_OLNN , 1 ) INDEX_OLND = IOLD2NEW( INDEX_OLND , 1 ) INDEX_APINP1 = IOLD2NEW( INDEX_APINP1 , 1 ) INDEX_APINP2 = IOLD2NEW( INDEX_APINP2 , 1 ) INDEX_LIMNP1 = IOLD2NEW( INDEX_LIMNP1 , 1 ) INDEX_LIMNP2 = IOLD2NEW( INDEX_LIMNP2 , 1 ) INDEX_ADCN = IOLD2NEW( INDEX_ADCN , 1 ) INDEX_HOM = IOLD2NEW( INDEX_HOM , 1 ) INDEX_VROCP4OXY2 = IOLD2NEW( INDEX_VROCP4OXY2 , 1 ) INDEX_VROCN1OXY6 = IOLD2NEW( INDEX_VROCN1OXY6 , 1 ) INDEX_FURANONE = IOLD2NEW( INDEX_FURANONE , 1 ) INDEX_VROCP3OXY2 = IOLD2NEW( INDEX_VROCP3OXY2 , 1 ) INDEX_VROCP0OXY4 = IOLD2NEW( INDEX_VROCP0OXY4 , 1 ) INDEX_BAL1 = IOLD2NEW( INDEX_BAL1 , 1 ) INDEX_BAL2 = IOLD2NEW( INDEX_BAL2 , 1 ) INDEX_ELHOM = IOLD2NEW( INDEX_ELHOM , 1 ) INDEX_VROCIOXY = IOLD2NEW( INDEX_VROCIOXY , 1 ) INDEX_SLOWROC = IOLD2NEW( INDEX_SLOWROC , 1 ) INDEX_ACRO = IOLD2NEW( INDEX_ACRO , 1 ) INDEX_BDE13 = IOLD2NEW( INDEX_BDE13 , 1 ) INDEX_BDE13P = IOLD2NEW( INDEX_BDE13P , 1 ) INDEX_FURAN = IOLD2NEW( INDEX_FURAN , 1 ) INDEX_FURANO2 = IOLD2NEW( INDEX_FURANO2 , 1 ) INDEX_PROG = IOLD2NEW( INDEX_PROG , 1 ) INDEX_SESQ = IOLD2NEW( INDEX_SESQ , 1 ) INDEX_SESQNRO2 = IOLD2NEW( INDEX_SESQNRO2 , 1 ) INDEX_VROCN2OXY2 = IOLD2NEW( INDEX_VROCN2OXY2 , 1 ) INDEX_SESQRO2 = IOLD2NEW( INDEX_SESQRO2 , 1 ) INDEX_VROCP0OXY2 = IOLD2NEW( INDEX_VROCP0OXY2 , 1 ) INDEX_VROCP1OXY3 = IOLD2NEW( INDEX_VROCP1OXY3 , 1 ) INDEX_AGLYJ = IOLD2NEW( INDEX_AGLYJ , 1 ) INDEX_IEPOXP = IOLD2NEW( INDEX_IEPOXP , 1 ) INDEX_AISO3NOSJ = IOLD2NEW( INDEX_AISO3NOSJ , 1 ) INDEX_ASO4J = IOLD2NEW( INDEX_ASO4J , 1 ) INDEX_AISO3OSJ = IOLD2NEW( INDEX_AISO3OSJ , 1 ) INDEX_AISO4J = IOLD2NEW( INDEX_AISO4J , 1 ) INDEX_AISO5J = IOLD2NEW( INDEX_AISO5J , 1 ) INDEX_VROCP6ALK = IOLD2NEW( INDEX_VROCP6ALK , 1 ) INDEX_VROCP6ALKP = IOLD2NEW( INDEX_VROCP6ALKP , 1 ) INDEX_VROCP5ALK = IOLD2NEW( INDEX_VROCP5ALK , 1 ) INDEX_VROCP5ALKP = IOLD2NEW( INDEX_VROCP5ALKP , 1 ) INDEX_VROCP4ALK = IOLD2NEW( INDEX_VROCP4ALK , 1 ) INDEX_VROCP4ALKP = IOLD2NEW( INDEX_VROCP4ALKP , 1 ) INDEX_VROCP3ALK = IOLD2NEW( INDEX_VROCP3ALK , 1 ) INDEX_VROCP3ALKP = IOLD2NEW( INDEX_VROCP3ALKP , 1 ) INDEX_VROCP2ALK = IOLD2NEW( INDEX_VROCP2ALK , 1 ) INDEX_VROCP2ALKP = IOLD2NEW( INDEX_VROCP2ALKP , 1 ) INDEX_VROCP1ALK = IOLD2NEW( INDEX_VROCP1ALK , 1 ) INDEX_VROCP1ALKP = IOLD2NEW( INDEX_VROCP1ALKP , 1 ) INDEX_HC10 = IOLD2NEW( INDEX_HC10 , 1 ) INDEX_VROCP6ALKP2 = IOLD2NEW( INDEX_VROCP6ALKP2, 1 ) INDEX_VROCP5ALKP2 = IOLD2NEW( INDEX_VROCP5ALKP2, 1 ) INDEX_VROCP4ALKP2 = IOLD2NEW( INDEX_VROCP4ALKP2, 1 ) INDEX_VROCP2OXY2 = IOLD2NEW( INDEX_VROCP2OXY2 , 1 ) INDEX_VROCP3ALKP2 = IOLD2NEW( INDEX_VROCP3ALKP2, 1 ) INDEX_VROCP1OXY1 = IOLD2NEW( INDEX_VROCP1OXY1 , 1 ) INDEX_VROCP2ALKP2 = IOLD2NEW( INDEX_VROCP2ALKP2, 1 ) INDEX_VROCP1ALKP2 = IOLD2NEW( INDEX_VROCP1ALKP2, 1 ) INDEX_VROCN1OXY1 = IOLD2NEW( INDEX_VROCN1OXY1 , 1 ) INDEX_HC10P2 = IOLD2NEW( INDEX_HC10P2 , 1 ) INDEX_VROCP6ARO = IOLD2NEW( INDEX_VROCP6ARO , 1 ) INDEX_VROCP6AROP = IOLD2NEW( INDEX_VROCP6AROP , 1 ) INDEX_VROCN2OXY4 = IOLD2NEW( INDEX_VROCN2OXY4 , 1 ) INDEX_VROCN1OXY3 = IOLD2NEW( INDEX_VROCN1OXY3 , 1 ) INDEX_VROCP5ARO = IOLD2NEW( INDEX_VROCP5ARO , 1 ) INDEX_VROCP5AROP = IOLD2NEW( INDEX_VROCP5AROP , 1 ) INDEX_NAPH = IOLD2NEW( INDEX_NAPH , 1 ) INDEX_NAPHP = IOLD2NEW( INDEX_NAPHP , 1 ) INDEX_VROCN2OXY8 = IOLD2NEW( INDEX_VROCN2OXY8 , 1 ) INDEX_VROCP5OXY1 = IOLD2NEW( INDEX_VROCP5OXY1 , 1 ) INDEX_VROCP6OXY1 = IOLD2NEW( INDEX_VROCP6OXY1 , 1 ) INDEX_ECH4 = IOLD2NEW( INDEX_ECH4 , 1 ) INDEX_ATRPNJ = IOLD2NEW( INDEX_ATRPNJ , 1 ) INDEX_AHOMJ = IOLD2NEW( INDEX_AHOMJ , 1 ) INDEX_AHONITJ = IOLD2NEW( INDEX_AHONITJ , 1 ) INDEX_STY = IOLD2NEW( INDEX_STY , 1 ) INDEX_STYP = IOLD2NEW( INDEX_STYP , 1 ) END SUBROUTINE RESET_SPECIES_POINTERS END MODULE RXNS_FUNCTION ================================================ FILE: CCTM/src/MECHS/cracmm2/SpecDef_Conc_cracmm2.txt ================================================ !#start YYYYJJJ 010000 !#end YYYYJJJ 000000 #layer 1 / ! This Species Definition File is for Use with the COMBINE tool built for ! post-processing CMAQ output. It is compatible with CMAQv5.2. ! Date: May 12 2017 ! Output variables that begin with 'PM' represent those in which a size cut was ! applied based on modeled aerosol mode parameters. For example, PM25_NA is all ! sodium that falls below 2.5 um diameter. These 'PM' variables are used for ! comparisons at IMPROVE and CSN sites. ! Output variables that begin with 'PMAMS' represent the mass that would have ! been detected by an Aerosol Mass Spectrometer. ! Output variables beginning with 'A' (aside from AIR_DENS) represent a ! combination of aerosol species in which no size cut was applied. For example, ! ASO4IJ is the sum of i-mode and j-mode sulfate. These 'A' variables are used ! for comparisons at CASTNet sites. ! Output variables beginning with 'PMC' refer to the coarse fraction of total PM, ! computed by summing all modes and subtracting the PM2.5 fraction. These 'PMC' ! variables are used for comparisons at SEARCH sites. ! This Species Definition File is just for use with the uncoupled, offline CMAQ, ! model. If you are processing WRF-CMAQ results, a different Species Definition ! file is required. / File [1]: CMAQ conc/aconc file / File [2]: METCRO3D file / File [3]: ELMO/AELMO file / File [4]: METCRO2D file / /new species ,units ,expression !-------------------------------------------! !------------- Meteorology -----------------! !-------------------------------------------! AIR_DENS ,kg m-3 ,DENS[2] RH ,% ,100.00*RH[3] SFC_TMP ,C ,(TEMP2[4]-273.15) PBLH ,m ,PBL[4] SOL_RAD ,W m-2 ,RGRND[4] precip ,cm ,RC[4]>=0 ? RN[4]+RC[4] : RN[4] WSPD10 ,m s-1 ,WSPD10[4] WDIR10 ,deg ,WDIR10[4] !-------------------------------------------! !--------------- Gases ---------------------! !-------------------------------------------! CO ,ppbV ,1000.0*CO[1] H2O2 ,ppbV ,1000.0*H2O2[1] HNO3 ,ppbV ,1000.0*HNO3[1] HNO3_UGM3 ,ug m-3 ,1000.0*(HNO3[1]*2.1756*DENS[2]) HONO ,ppbV ,1000.0*HONO[1] HOX ,ppbV ,1000.0*(HO[1]+HO2[1]) OH ,ppbV ,1000.0*HO[1] N2O5 ,ppbV ,1000.0*N2O5[1] NH3 ,ppbV ,1000.0*NH3[1] NH3_UGM3 ,ug m-3 ,1000.0*(NH3[1]*0.5880*DENS[2]) NHX ,ug m-3 ,1000.0*(NH3[1]*0.5880*DENS[2])+ANH4I[1]+ANH4J[1]+ANH4K[1] NO ,ppbV ,1000.0*NO[1] NO2 ,ppbV ,1000.0*NO2[1] NOX ,ppbV ,1000.0*(NO[1] + NO2[1]) ANO3_PPB ,ppbV ,(ANO3I[1]+ANO3J[1]+ANO3K[1])/(DENS[2]*(62.0/28.97)) NTR ,ppbV ,1000.0*(ONIT[1]+ISON[1]+INALD[1]+TRPN[1]+HONIT[1]), organic nitrates PANS ,ppbV ,1000.0*(PAN[1]+PPN[1]+MPAN[1]) NOY ,ppbV ,1000.0*(NO[1]+NO2[1]+NO3[1]+2*N2O5[1]+HONO[1] \ +HNO3[1]+HNO4[1]+PAN[1]+PPN[1]+MPAN[1] \ +ISON[1]+INALD[1]+IPX[1]+TRPN[1]+ONIT[1]) \ +HONIT[1]+ANO3_PPB[0] O3 ,ppbV ,1000.0*O3[1] SO2 ,ppbV ,1000.0*SO2[1] SO2_UGM3 ,ug m-3 ,1000.0*(SO2[1]*2.2118*DENS[2]) TERP ,ppbV ,1000.0*(API[1]+LIM[1]), a-pinene and limonene monoterpenes in CRACMM2 ! Deprecate these names in future ETH ,ppbV ,1000.0*ETE[1], ethene is ETE in CRACMM ETHA ,ppbV ,1000.0*ETH[1], ethane is ETH in CRACMM ALD2 ,ppbV ,1000.0*ACD[1], acetaldehyde is ACD in CRACMM FORM ,ppbV ,1000.0*HCHO[1], formaldehyde is HCHO in CRACMM ISOP ,ppbV ,1000.0*ISO[1], isoprene is ISO in CRACMM TOL ,ppbV ,1000.0*TOL[1] ! Hydrocarbons for evaluation. Note an "s" on the end indicates a collection of species from AQS ACETALDEHYDE ,ppbV ,1000.0*ACD[1] ACETYLENE ,ppbV ,1000.0*ACE[1] ACROLEIN ,ppbV ,1000.0*ACRO[1] ACETONE ,ppbV ,1000.0*ACT[1] BUTADIENE13 ,ppbV ,1000.0*BDE13[1] BENZENE ,ppbV ,1000.0*BEN[1] ETHYLENE ,ppbV ,1000.0*ETE[1], ethene is ETE in CRACMM ETHANE ,ppbV ,1000.0*ETH[1], ethane is ETH in CRACMM ISOPRENE ,ppbV ,1000.0*ISO[1], isoprene is ISO in CRACMM FORMALDEHYDE ,ppbV ,1000.0*HCHO[1], formaldehyde is HCHO in CRACMM MEKETONE ,ppbV ,1000.0*MEK[1] TOLUENE ,ppbV ,1000.0*TOL[1] XYLENES ,ppbV ,1000.0*(XYL[1]+EBZ[1]+STY[1]) ETHB ,ppbV ,1000.0*EBZ[1] STYRENE ,ppbV ,1000.0*STY[1] HCPROPANES ,ppbV ,1000.0*(HC3[1]) HCPENTANES ,ppbV ,1000.0*(HC5[1]) HCDECANES ,ppbV ,1000.0*(HC10[1]), formerly HC8 OLEFINS ,ppbV ,1000.0*(OLI[1]+OLT[1]) ABPINENES ,ppbV ,1000.0*(API[1]) !! Unused Gases. Presented Here for illustration. Users can uncomment !! them if they choose. ALDX ,ppbV ,1000.0*ALD[1], C3 and higher aldehydes is ALD in CRACMM !NOZ ,ppbV ,NOY[0]-NOX[0] !SULF ,ppbV ,1000.0*SULF[1] ! SIGROC: L/S/IVOC alk and oxy gas species LSIVROC ,ppbC ,1000.0* (9.5*VROCIOXY[1] \ +14.0*VROCP5ARO[1]+13.0*VROCP6ARO[1] \ +30.0*VROCN2ALK[1]+29.0*VROCN1ALK[1] \ +28.0*VROCP0ALK[1]+27.0*VROCP1ALK[1] \ +24.0*VROCP2ALK[1]+21.0*VROCP3ALK[1] \ +18.0*VROCP4ALK[1]+14.0*VROCP5ALK[1] \ +13.0*VROCP6ALK[1]\ +17.0*VROCN2OXY2[1]+11.0*VROCN2OXY4[1] \ +7.0*VROCN2OXY8[1]+20.0*VROCN1OXY1[1] \ +12.0*VROCN1OXY3[1]+8.0*VROCN1OXY6[1] \ +14.0*VROCP0OXY2[1]+10.0*VROCP0OXY4[1] \ +17.0*VROCP1OXY1[1]+11.0*VROCP1OXY3[1] \ +12.0*VROCP2OXY2[1]+11.0*VROCP3OXY2[1] \ +9.0*VROCP4OXY2[1]+11.0*VROCP5OXY1[1] \ +9.0*VROCP6OXY1[1] ), ! VROC: Total gas-phase (vapor) reactive organic carbon (stable species only) VROC ,ppbC ,1000.0*(2.0*ACD[1]+2.0*ACE[1] \ +3.0*ACRO[1]+3.0*ACT[1]+3.0*ALD[1]+10*API[1] \ +7.0*BALD[1]+4.0*BDE13[1]+6.0*BEN[1] \ +9.0*CSL[1]+5.0*DCB1[1]+6.0*DCB2[1]+4.0*DCB3[1] \ +20.0*ELHOM[1] \ +2.0*EOH[1]+2.0*ETE[1]+2.0*ETEG[1]+2.0*ETH[1] \ +5.0*FURAN[1]+4.0*FURANONE[1]+2.0*GLY[1]+10.0*HOM[1] \ +3.0*HC3[1]+5.0*HC5[1]+10.0*HC10[1] \ +1.0*HCHO[1]+3.0*HKET[1] \ +5.0*IEPOX[1]+5.0*ISHP[1]\ +5.0*ISO[1]+5.0*KET[1] \ +10.0*LIM[1]+10.0*LIMAL[1]+4.0*MACR[1]+4*MAHP[1] \ +7.0*MCT[1] \ +4.0*MEK[1]+3.0*MGLY[1]+1.0*MOH[1]+4.0*MVK[1] \ +10.0*NAPH[1]+5.0*OLI[1]+3.0*OLT[1] \ +1.0*OP1[1]+2.0*OP2[1]+8.0*OP3[1]+10.0*OPB[1] \ +1.0*ORA1[1]+2.0*ORA2[1] \ +10.0*PINAL[1] \ +6.0*PHEN[1]+3.0*PROG[1] \ +3.0*ROH[1]+15.0*SESQ[1]+2.1*SLOWROC[1] \ +7.0*TOL[1]+5.0*UALD[1] \ +8.0*XYL[1]+8.0*EBZ[1]+8.0*STY[1] \ +2.0*PAA[1]+2.0*PAN[1]+3.0*PPN[1]+4.0*MPAN[1] \ +4.0*ONIT[1]+5.0*ISON[1] \ +5.0*INALD[1]+5.0*IPX[1]+10.0*TRPN[1]+10.0*HONIT[1] ) \ +LSIVROC[0] , !-------------------------------------------! !--------------- Particles -----------------! !-------------------------------------------! !! Crustal Elements AFEJ ,ug m-3 ,AFEJ[1] AALJ ,ug m-3 ,AALJ[1] ASIJ ,ug m-3 ,ASIJ[1] ATIJ ,ug m-3 ,ATIJ[1] ACAJ ,ug m-3 ,ACAJ[1] AMGJ ,ug m-3 ,AMGJ[1] AKJ ,ug m-3 ,AKJ[1] AMNJ ,ug m-3 ,AMNJ[1] ASOILJ ,ug m-3 ,2.20*AALJ[1]+2.49*ASIJ[1]+1.63*ACAJ[1]+2.42*AFEJ[1]+1.94*ATIJ[1] !! Non-Crustal Inorganic Particle Species AHPLUSIJ ,umol m-3 ,(AH3OPI[1]+AH3OPJ[1])*1.0/19.0 ANAK ,ug m-3 ,0.8373*ASEACAT[1]+0.0626*ASOIL[1]+0.0023*ACORS[1] AMGK ,ug m-3 ,0.0997*ASEACAT[1]+0.0170*ASOIL[1]+0.0032*ACORS[1] AKK ,ug m-3 ,0.0310*ASEACAT[1]+0.0242*ASOIL[1]+0.0176*ACORS[1] ACAK ,ug m-3 ,0.0320*ASEACAT[1]+0.0838*ASOIL[1]+0.0562*ACORS[1] ACLIJ ,ug m-3 ,ACLI[1]+ACLJ[1] AECIJ ,ug m-3 ,AECI[1]+AECJ[1] ANAIJ ,ug m-3 ,ANAJ[1]+ANAI[1] ANO3IJ ,ug m-3 ,ANO3I[1]+ANO3J[1] ANO3K ,ug m-3 ,ANO3K[1] TNO3 ,ug m-3 ,2175.6*(HNO3[1]*DENS[2])+ANO3I[1]+ANO3J[1]+ANO3K[1] ANH4IJ ,ug m-3 ,ANH4I[1]+ANH4J[1] ANH4K ,ug m-3 ,ANH4K[1] ASO4IJ ,ug m-3 ,ASO4I[1]+ASO4J[1] ASO4K ,ug m-3 ,ASO4K[1] !! Organic Particle Species ! Why is there an APOCI and APOCJ in the output? It doesn't match below APOCI ,ugC m-3, AROCN2ALKI[1]/1.39 + AROCN1ALKI[1]/1.32 \ + AROCP0ALKI[1]/1.17 + AROCP1ALKI[1]/1.17 APOCJ ,ugC m-3, AROCN2ALKJ[1]/1.39 + AROCN1ALKJ[1]/1.32 \ + AROCP0ALKJ[1]/1.17 + AROCP1ALKJ[1]/1.17 \ + AROCP2ALKJ[1]/1.17 + AROCP3ALKJ[1]/1.17 APOCIJ ,ugC m-3, APOCI[0] + APOCJ[0] APOMI ,ug m-3, AROCN2ALKI[1] + AROCN1ALKI[1] \ + AROCP0ALKI[1] + AROCP1ALKI[1] + APNCOMI[1] APOMJ ,ug m-3, AROCN2ALKJ[1] + AROCN1ALKJ[1] + AROCP0ALKJ[1] \ + AROCP1ALKJ[1] + AROCP2ALKJ[1] + AROCP3ALKJ[1] + APNCOMJ[1] APOMIJ ,ug m-3, APOMI[0] + APOMJ[0] ASOCI ,ugC m-3, AROCN2OXY2I[1]/1.42 + AROCN2OXY4I[1]/1.67 \ + AROCN2OXY8I[1]/2.17 + AROCN1OXY1I[1]/1.29 \ + AROCN1OXY3I[1]/1.54 + AROCN1OXY6I[1]/1.92 \ + AROCP0OXY2I[1]/1.42 + AROCP0OXY4I[1]/1.67 \ + AROCP1OXY1I[1]/1.29 + AROCP1OXY3I[1]/1.54 ASOCJ ,ugC m-3, AHOMJ[1]/2.08 + AELHOMJ[1]/1.67 + AISO3NOSJ[1]/2.27 \ + AISO3OSJ[1]/3.6 + AGLYJ[1]/2.13 + AORGCJ[1]/2 \ + AOP3J[1]/1.92 + ASOATJ[1]/2.31 + AROCN2OXY2J[1]/1.42 \ + AROCN2OXY4J[1]/1.67 + AROCN2OXY8J[1]/2.17 + AROCN1OXY1J[1]/1.29 \ + AROCN1OXY3J[1]/1.54 + AROCN1OXY6J[1]/1.92 + AROCP0OXY2J[1]/1.42 \ + AROCP0OXY4J[1]/1.67 + AROCP1OXY1J[1]/1.29 + AROCP1OXY3J[1]/1.54 \ + AROCP2OXY2J[1]/1.42 + AROCP3OXY2J[1]/1.42 ASOCIJ ,ugC m-3, ASOCI[0] + ASOCJ[0] ASOMI ,ug m-3, AROCN2OXY2I[1] + AROCN2OXY4I[1] \ + AROCN2OXY8I[1] + AROCN1OXY1I[1] \ + AROCN1OXY3I[1] + AROCN1OXY6I[1] \ + AROCP0OXY2I[1] + AROCP0OXY4I[1] \ + AROCP1OXY1I[1] + AROCP1OXY3I[1] ASOMJ ,ug m-3, AHOMJ[1] + AELHOMJ[1] + AISO3NOSJ[1] \ + AISO3OSJ[1] + AGLYJ[1] + AORGCJ[1] \ + AOP3J[1] + ASOATJ[1] + AROCN2OXY2J[1] \ + AROCN2OXY4J[1] + AROCN2OXY8J[1] + AROCN1OXY1J[1] \ + AROCN1OXY3J[1] + AROCN1OXY6J[1] + AROCP0OXY2J[1] \ + AROCP0OXY4J[1] + AROCP1OXY1J[1] + AROCP1OXY3J[1] \ + AROCP2OXY2J[1] + AROCP3OXY2J[1] ASOMIJ ,ug m-3 ,ASOMI[0] + ASOMJ[0] AOCI ,ugC m-3 ,APOCI[0] + ASOCI[0] AOCJ ,ugC m-3 ,APOCJ[0] + ASOCJ[0] AOCIJ ,ugC m-3 ,APOCIJ[0] + ASOCIJ[0] AOMI ,ug m-3 ,APOMI[0] + ASOMI[0] AOMJ ,ug m-3 ,APOMJ[0] + ASOMJ[0] AOMIJ ,ug m-3 ,APOMIJ[0] + ASOMIJ[0] !!! Anthropogenic-VOC Derived Organic Aerosol AORGAI ,ug m-3 ,AROCN2OXY2I[1]+AROCN2OXY4I[1]+AROCN2OXY8I[1]+AROCN1OXY1I[1] \ +AROCN1OXY3I[1]+AROCN1OXY6I[1]+AROCP0OXY2I[1]+AROCP0OXY4I[1] \ +AROCP1OXY1I[1]+AROCP1OXY3I[1] AORGAJ ,ug m-3 ,AROCN2OXY2J[1]+AROCN2OXY4J[1]+AROCN2OXY8J[1]+AROCN1OXY1J[1] \ +AROCN1OXY3J[1]+AROCN1OXY6J[1]+AROCP0OXY2J[1]+AROCP0OXY4J[1] \ +AROCP1OXY1J[1]+AROCP1OXY3J[1]+AROCP2OXY2J[1]+AROCP3OXY2J[1] \ +AOP3J[1] +ASOATJ[1] AORGAIJ ,ug m-3 ,AORGAI[0] + AORGAJ[0] !!! Biogenic-VOC Derived Organic Aerosol AORGBIJ ,ug m-3 ,AISO3NOSJ[1] +AISO3OSJ[1] +AHOMJ[1] + AELHOMJ[1] !!! Cloud-Processed SOA AORGCJ ,ug m-3 ,AORGCJ[1] !!! Remaining SOA AGLYJ ,ug m-3 ,AGLYJ[1] !!! OM/OC ratios AOMOCRAT_TOT , ,AOMIJ[0]/AOCIJ[0] !! Total PM Aggregates ATOTI ,ug m-3 ,ASO4I[1] + ANH4I[1] + ANO3I[1] + ANAI[1] \ +ACLI[1] + AECI[1] + AOMI[0] + AOTHRI[1] ATOTJ ,ug m-3 ,ASO4J[1] + ANH4J[1] + ANO3J[1] + ANAJ[1] \ +ACLJ[1] + AECJ[1] + AOMJ[0] + AOTHRJ[1] \ +AFEJ[1] + AALJ[1] + ASIJ[1] + ATIJ[1] \ +ACAJ[1] + AMGJ[1] + AKJ[1] + AMNJ[1] ATOTK ,ug m-3 ,ASO4K[1] + ANH4K[1] + ANO3K[1] + ACLK[1] \ +ACORS[1] + ASOIL[1] + ASEACAT[1] ATOTIJ ,ug m-3 ,ATOTI[0] + ATOTJ[0] ATOTIJK ,ug m-3 ,ATOTI[0] + ATOTJ[0] + ATOTK[0] !! Unspeciated PM including non-carbon organic mass AUNSPEC1IJ ,ug m-3 ,ATOTIJ[0] - (ASO4IJ[0] + ANO3IJ[0] \ +ANH4IJ[0] + ACLIJ[0] \ +ANAIJ[0] + AECIJ[0] \ +AOCIJ[0] + ASOILJ[0]) !! Non-Carbon Organic Mass ANCOMIJ ,ug m-3 ,AOMIJ[0] - AOCIJ[0] !! Unspeciated PM excluding non-carbon organic mass AUNSPEC2IJ ,ug m-3 ,AUNSPEC1IJ[0] - ANCOMIJ[0] !! AMS Projection of Output Concentrations PMAMS_CL ,ug m-3 ,ACLI[1] *FAMSAIT[3] +ACLJ[1]*FAMSACC[3]+ACLK[1] *FAMSCOR[3] PMAMS_NH4 ,ug m-3 ,ANH4I[1]*FAMSAIT[3]+ANH4J[1]*FAMSACC[3]+ANH4K[1]*FAMSCOR[3] PMAMS_NO3 ,ug m-3 ,ANO3I[1]*FAMSAIT[3]+ANO3J[1]*FAMSACC[3]+ANO3K[1]*FAMSCOR[3] PMAMS_OA ,ug m-3 ,AOMI[0] *FAMSAIT[3]+AOMJ[0] *FAMSACC[3] PMAMS_SO4 ,ug m-3 ,ASO4I[1]*FAMSAIT[3]+ASO4J[1]*FAMSACC[3]+ASO4K[1]*FAMSCOR[3] !! PM1 Cutoff Output PM1_TOT ,ug m-3 ,ATOTI[0]*FPM1AIT[3]+ATOTJ[0]*FPM1ACC[3]+ATOTK[0]*FPM1COR[3] !! Unused PM1 Species. Included Here for demonstration !PM1_EC ,ug m-3 ,AECI[1] *FPM1AIT[3] +AECJ[1] *FPM1ACC[3] !PM1_OC ,ugC m-3 ,AOCI[0] *FPM1AIT[3] +AOCJ[0] *FPM1ACC[3] !PM1_OM ,ug m-3 ,AOMI[0] *FPM1AIT[3] +AOMJ[0] *FPM1ACC[3] !PM1_SO4 ,ug m-3 ,ASO4I[1]*FPM1AIT[3] +ASO4J[1]*FPM1ACC[3] +ASO4K[1]*FPM1COR[3] !PM1_CL ,ug m-3 ,ACLI[1] *FPM1AIT[3] +ACLJ[1] *FPM1ACC[3] +ACLK[1] *FPM1COR[3] !PM1_NA ,ug m-3 ,ANAI[1] *FPM1AIT[3] +ANAJ[1] *FPM1ACC[3] +ANAK[0] *FPM1COR[3] !PM1_MG ,ug m-3 , AMGJ[1] *FPM1ACC[3] +AMGK[0] *FPM1COR[3] !PM1_K ,ug m-3 , AKJ[1] *FPM1ACC[3] +AKK[0] *FPM1COR[3] !PM1_CA ,ug m-3 , ACAJ[1] *FPM1ACC[3] +ACAK[0] *FPM1COR[3] !PM1_NH4 ,ug m-3 ,ANH4I[1] *FPM1AIT[3]+ANH4J[1]*FPM1ACC[3] +ANH4K[1]*FPM1COR[3] !PM1_NO3 ,ug m-3 ,ANO3I[1] *FPM1AIT[3]+ANO3J[1]*FPM1ACC[3] +ANO3K[1]*FPM1COR[3] !PM1_SOIL ,ug m-3 ,ASOILJ[0]*FPM1ACC[3]+(ASOIL[1]+ACORS[1])*FPM1COR[3] !PM1_UNSPEC1 ,ug m-3 ,PM1_TOT[0] - (PM1_CL[0] + PM1_EC[0]+ PM1_NA[0] + PM1_NH4[0] + \ ! PM1_NO3[0]+ PM1_OC[0]+ PM1_SOIL[0]+ PM1_SO4[0] ) !PM1_UNSPCRS ,ug m-3 ,ATOTK[0] *FPM1COR[3] - (ASO4K[1]*FPM1COR[3] \ ! +ACLK[1]*FPM1COR[3] \ ! +ANAK[0]*FPM1COR[3] \ ! +AMGK[0]*FPM1COR[3] \ ! +AKK[0]*FPM1COR[3] \ ! +ACAK[0]*FPM1COR[3] \ ! +ANH4K[1]*FPM1COR[3] \ ! +ANO3K[1]*FPM1COR[3]) !! PM2.5 species computed using modeled size distribution PM25_HP ,ug m-3 ,(AH3OPI[1]*FPM25AIT[3]+AH3OPJ[1]*FPM25ACC[3]+AH3OPK[1]*FPM25COR[3])*1.0/19.0 PM25_CL ,ug m-3 ,ACLI[1]*FPM25AIT[3]+ACLJ[1]*FPM25ACC[3]+ACLK[1]*FPM25COR[3] PM25_EC ,ug m-3 ,AECI[1]*FPM25AIT[3]+AECJ[1]*FPM25ACC[3] PM25_NA ,ug m-3 ,ANAI[1]*FPM25AIT[3]+ANAJ[1]*FPM25ACC[3]+ANAK[0]*FPM25COR[3] PM25_MG ,ug m-3 , AMGJ[1]*FPM25ACC[3]+AMGK[0]*FPM25COR[3] PM25_K ,ug m-3 , AKJ[1] *FPM25ACC[3]+AKK[0] *FPM25COR[3] PM25_CA ,ug m-3 , ACAJ[1]*FPM25ACC[3]+ACAK[0]*FPM25COR[3] PM25_NH4 ,ug m-3 ,ANH4I[1]*FPM25AIT[3]+ANH4J[1]*FPM25ACC[3]+ANH4K[1]*FPM25COR[3] PM25_NO3 ,ug m-3 ,ANO3I[1]*FPM25AIT[3]+ANO3J[1]*FPM25ACC[3]+ANO3K[1]*FPM25COR[3] PM25_OC ,ugC m-3 ,AOCI[0] *FPM25AIT[3]+AOCJ[0]*FPM25ACC[3] PM25_OM ,ug m-3 ,AOMI[0] *FPM25AIT[3]+AOMJ[0]*FPM25ACC[3] PM25_SOIL ,ug m-3 ,ASOILJ[0]*FPM25ACC[3]+ASOIL[1]*FPM25COR[3] PM25_SO4 ,ug m-3 ,ASO4I[1]*FPM25AIT[3]+ASO4J[1]*FPM25ACC[3]+ASO4K[1]*FPM25COR[3] PM25_TOT ,ug m-3 ,ATOTI[0]*FPM25AIT[3]+ATOTJ[0]*FPM25ACC[3]+ATOTK[0]*FPM25COR[3] PM25_UNSPEC1 ,ug m-3 ,PM25_TOT[0]-(PM25_CL[0]+PM25_EC[0]+PM25_NA[0]+PM25_NH4[0] \ +PM25_NO3[0]+PM25_OC[0]+PM25_SOIL[0]+PM25_SO4[0]) PM25_UNSPCRS ,ug m-3 ,ATOTK[0]*FPM25COR[3] - (ASO4K[1]*FPM25COR[3] \ +ACLK[1]*FPM25COR[3] \ +ANAK[0]*FPM25COR[3] \ +AMGK[0]*FPM25COR[3] \ +AKK[0]*FPM25COR[3] \ +ACAK[0]*FPM25COR[3] \ +ANH4K[1]*FPM25COR[3] \ +ANO3K[1]*FPM25COR[3]) !! Fine particle acidity (pH). pH is undefined if there is no aerosol water. !Do not trust predictions when hourly water is <0.01 ug m-3. FINEPHF will !have large negative value (-9.999E36) when pH is not to be trusted. !AH2OIJ ,ug m-3 ,AH2OI[1]+AH2OJ[1] !HPMOLAL ,mol kg-1 ,AHPLUSIJ[0]/AH2OIJ[0]*1000.0 !ACIDITYTEMP , ,-1*LOG10(HPMOLAL[0]) !FINEPHF , ,AH2OIJ[0]>0.01 ? ACIDITYTEMP[0] : -9.999E36 !! PM10.0 and Coarse-Sized Species PM10 ,ug m-3 ,ATOTI[0]*FPM10AIT[3]+ATOTJ[0]*FPM10ACC[3]+ATOTK[0]*FPM10COR[3] PMC_CL ,ug m-3 ,ACLI[1]*FPM10AIT[3] +ACLJ[1]*FPM10ACC[3] +ACLK[1]*FPM10COR[3] -PM25_CL[0] PMC_NA ,ug m-3 ,ANAI[1]*FPM10AIT[3] +ANAJ[1]*FPM10ACC[3] +ANAK[0]*FPM10COR[3] -PM25_NA[0] PMC_NH4 ,ug m-3 ,ANH4I[1]*FPM10AIT[3]+ANH4J[1]*FPM10ACC[3]+ANH4K[1]*FPM10COR[3]-PM25_NH4[0] PMC_NO3 ,ug m-3 ,ANO3I[1]*FPM10AIT[3]+ANO3J[1]*FPM10ACC[3]+ANO3K[1]*FPM10COR[3]-PM25_NO3[0] PMC_SO4 ,ug m-3 ,ASO4I[1]*FPM10AIT[3]+ASO4J[1]*FPM10ACC[3]+ASO4K[1]*FPM10COR[3]-PM25_SO4[0] PMC_TOT ,ug m-3 ,PM10[0]-PM25_TOT[0] !! FRM PM Equivalent Calculation !! This section calculates the FRM applicable PM species, PMIJ_FRM and !! PM25_FRM. The intermediate variablse K...ANH4IJ_loss are needed to !! calculate the final quantities. K ,ppb2 ,exp(118.87-24084/TEMP2[4]-6.025*log(TEMP2[4])) P1 , ,exp(8763/TEMP2[4]+19.12*log(TEMP2[4])-135.94) P2 , ,exp(9969/TEMP2[4]+16.22*log(TEMP2[4])-122.65) P3 , ,exp(13875/TEMP2[4]+24.46*log(TEMP2[4])-182.61) a , ,1-RH[0]/100 K_prime ,ppb2 ,(P1[0]-P2[0]*a[0]+(P3[0]*a[0]*a[0]))*(a[0]^1.75)*K[0] sqrt_Ki ,ppb ,sqrt(RH[0]<=61 ? K[0] : K_prime[0]) max_NO3_loss ,ug m-3 ,745.7/TEMP2[4]*sqrt_Ki[0] PM25_NO3_loss ,ug m-3 ,max_NO3_loss[0]<=PM25_NO3[0] ? max_NO3_loss[0] : PM25_NO3[0] ANO3IJ_loss ,ug m-3 ,max_NO3_loss[0]<=ANO3IJ[0] ? max_NO3_loss[0] : ANO3IJ[0] PM25_NH4_loss ,ug m-3 ,PM25_NO3_loss[0]*(18/62) ANH4IJ_loss ,ug m-3 ,ANO3IJ_loss[0]*(18/62) PMIJ_FRM ,ug m-3 ,ATOTIJ[0]-(ANO3IJ_loss[0]+ANH4IJ_loss[0]) \ +0.24*(ASO4IJ[0]+ANH4IJ[0]-ANH4IJ_loss[0])+0.5 PM25_FRM ,ug m-3 ,PM25_TOT[0]-(PM25_NO3_loss[0]+PM25_NH4_loss[0]) \ +0.24*(PM25_SO4[0]+PM25_NH4[0]-PM25_NH4_loss[0])+0.5 ================================================ FILE: CCTM/src/MECHS/cracmm2/SpecDef_Dep_cracmm2.txt ================================================ !#start YYYYJJJ !#end YYYYJJJ #layer 1 / File [1]: DRYDEP / File [2]: WETDEP / File [3]: METCRO2D / /new species ,units ,expression RT ,cm ,RC[3]>=0 ? RN[3]+RC[3] : RN[3] !---------------------------------------------------! !--------------- Gas Deposition --------------------! !---------------------------------------------------! DDEP_NO2 ,kg ha-1 ,NO2[1] WDEP_NO2 ,kg ha-1 ,NO2[2] DDEP_NO ,kg ha-1 ,NO[1] WDEP_NO ,kg ha-1 ,NO[2] DDEP_FORM ,kg ha-1 ,HCHO[1], formaldehyde is HCHO in CRACMM WDEP_FORM ,kg ha-1 ,HCHO[2], formaldehyde is HCHO in CRACMM DDEP_H2O2 ,kg ha-1 ,H2O2[1] WDEP_H2O2 ,kg ha-1 ,H2O2[2] DDEP_N2O5 ,kg ha-1 ,N2O5[1] WDEP_N2O5 ,kg ha-1 ,N2O5[2] DDEP_HONO ,kg ha-1 ,HONO[1] WDEP_HONO ,kg ha-1 ,HONO[2] DDEP_HNO3 ,kg ha-1 ,HNO3[1] WDEP_HNO3 ,kg ha-1 ,HNO3[2] DDEP_NTR ,kg ha-1 ,ONIT[1]+ISON[1]+TRPN[1]+INALD[1]+HONIT[1] WDEP_NTR ,kg ha-1 ,ONIT[2]+ISON[2]+TRPN[2]+INALD[2]+HONIT[2] DDEP_PANT ,kg ha-1 ,PAN[1]+PPN[1]+MPAN[1] WDEP_PANT ,kg ha-1 ,PAN[2]+PPN[2]+MPAN[2] DDEP_NH3 ,kg ha-1 ,NH3[1] WDEP_NH3 ,kg ha-1 ,NH3[2] DDEP_SO2 ,kg ha-1 ,SO2[1] DDEP_O3 ,kg ha-1 ,O3[1] WDEP_O3 ,kg ha-1 ,O3[2] DDEP_PNA ,kg ha-1 ,HNO4[1], PeroxyNitric Acid WDEP_PNA ,kg ha-1 ,HNO4[2], PeroxyNitric Acid !---------------------------------------------------! !------------- Aerosol Deposition ------------------! !---------------------------------------------------! DDEP_ANO3IJ ,kg ha-1 ,ANO3I[1] + ANO3J[1] DDEP_ANO3K ,kg ha-1 ,ANO3K[1] WDEP_ANO3IJK ,kg ha-1 ,ANO3I[2] + ANO3J[2] + ANO3K[2] DDEP_TNO3 ,kg ha-1 ,ANO3I[1] + ANO3J[1] + ANO3K[1] + 0.984*HNO3[1] WDEP_TNO3 ,kg ha-1 ,ANO3I[2] + ANO3J[2] + ANO3K[2] + 0.984*HNO3[2] DDEP_ANH4IJ ,kg ha-1 ,ANH4I[1] + ANH4J[1] DDEP_ANH4K ,kg ha-1 ,ANH4K[1] WDEP_ANH4IJK ,kg ha-1 ,ANH4I[2] + ANH4J[2] + ANH4K[2] DDEP_ASO4IJ ,kg ha-1 ,ASO4I[1] + ASO4J[1] DDEP_ASO4K ,kg ha-1 ,ASO4K[1] WDEP_ASO4IJK ,kg ha-1 ,ASO4I[2] + ASO4J[2] + ASO4K[2] DDEP_AECIJ ,kg ha-1 ,AECI[1] +AECJ[1] !DDEP_SSSO4J ,kg ha-1 ,0.2514*ANAJ[1] !DDEP_SSSO4K ,kg ha-1 ,0.2514*DDEP_ANAK[0] !WDEP_SSSO4JK ,kg ha-1 ,0.2514*ANAJ[2] + 0.2514*WDEP_ANAK[0] !-----------------------------------------------------! !-------- Total (Gas + Aerosol) Deposition -----------! !-----------------------------------------------------! DDEP_NHX ,kg ha-1 ,ANH4I[1] + ANH4J[1] + ANH4K[1] + 1.059*NH3[1] WDEP_NHX ,kg ha-1 ,ANH4I[2] + ANH4J[2] + ANH4K[2] + 1.059*NH3[2] WDEP_TSO4 ,kg ha-1 ,ASO4I[2] + ASO4J[2] + ASO4K[2] + 1.5*SO2[2] !! Sodium DDEP_ANAJ ,kg ha-1 ,ANAJ[1] DDEP_ANAK ,kg ha-1 ,0.8373*ASEACAT[1]+0.0626*ASOIL[1]+0.0023*ACORS[1] DDEP_ANAJK ,kg ha-1 ,DDEP_ANAJ[0] + DDEP_ANAK[0] WDEP_ANAK ,kg ha-1 ,0.8373*ASEACAT[2]+0.0626*ASOIL[2]+0.0023*ACORS[2] WDEP_ANAJK ,kg ha-1 ,ANAJ[2] + WDEP_ANAK[0] TDEP_ANAJK ,kg ha-1 ,DDEP_ANAJK[0] + WDEP_ANAJK[0] !! Chloride DDEP_ACLJ ,kg ha-1 ,ACLJ[1] DDEP_ACLK ,kg ha-1 ,ACLK[1] DDEP_ACLJK ,kg ha-1 ,ACLJ[1] + ACLK[1] WDEP_TCL ,kg ha-1 ,0.972*HCL[2] + ACLJ[2] + ACLK[2] TDEP_CL ,kg ha-1 ,DDEP_ACLJK[0] + WDEP_TCL[0] !! Calcium DDEP_CAJ ,kg ha-1 ,ACAJ[1] WDEP_CAJ ,kg ha-1 ,ACAJ[2] DDEP_CAK ,kg ha-1 ,0.0320*ASEACAT[1]+0.0838*ASOIL[1]+0.0562*ACORS[1] WDEP_CAK ,kg ha-1 ,0.0320*ASEACAT[2]+0.0838*ASOIL[2]+0.0562*ACORS[2] DDEP_CAJK ,kg ha-1 ,ACAJ[1]+DDEP_CAK[0] WDEP_CAJK ,kg ha-1 ,ACAJ[2]+WDEP_CAK[0] !! Iron DDEP_FEJ ,kg ha-1 ,AFEJ[1] WDEP_FEJ ,kg ha-1 ,AFEJ[2] !! Aluminum DDEP_ALJ ,kg ha-1 ,AALJ[1] WDEP_ALJ ,kg ha-1 ,AALJ[2] !! Silicon DDEP_SIJ ,kg ha-1 ,ASIJ[1] WDEP_SIJ ,kg ha-1 ,ASIJ[2] !! Titanium DDEP_TIJ ,kg ha-1 ,ATIJ[1] WDEP_TIJ ,kg ha-1 ,ATIJ[2] !! Magnesium DDEP_MGJ ,kg ha-1 ,AMGJ[1] WDEP_MGJ ,kg ha-1 ,AMGJ[2] DDEP_MGK ,kg ha-1 ,0.0997*ASEACAT[1]+0.0170*ASOIL[1]+0.0032*ACORS[1] WDEP_MGK ,kg ha-1 ,0.0997*ASEACAT[2]+0.0170*ASOIL[2]+0.0032*ACORS[2] DDEP_MGJK ,kg ha-1 ,AMGJ[1]+DDEP_MGK[0] WDEP_MGJK ,kg ha-1 ,AMGJ[2]+WDEP_MGK[0] !! Potassium DDEP_KJ ,kg ha-1 ,AKJ[1] WDEP_KJ ,kg ha-1 ,AKJ[2] DDEP_KK ,kg ha-1 ,0.0310*ASEACAT[1]+0.0242*ASOIL[1]+0.0176*ACORS[1] WDEP_KK ,kg ha-1 ,0.0310*ASEACAT[2]+0.0242*ASOIL[2]+0.0176*ACORS[2] DDEP_KJK ,kg ha-1 ,AKJ[1]+DDEP_KK[0] WDEP_KJK ,kg ha-1 ,AKJ[2]+WDEP_KK[0] !! Manganese DDEP_MNJ ,kg ha-1 ,AMNJ[1] WDEP_MNJ ,kg ha-1 ,AMNJ[2] !---------------------------------------------------! !------------- Nitrogen Deposition -----------------! !---------------------------------------------------! DD_OXN_NOX ,kgN ha-1 ,0.30435*NO2[1] + 0.46667*NO[1] WD_OXN_NOX ,kgN ha-1 ,0.30435*NO2[2] + 0.46667*NO[2] DD_OXN_TNO3 ,kgN ha-1 ,0.22222*HNO3[1] + 0.22581*ANO3I[1] + 0.22581*ANO3J[1] + 0.22581*ANO3K[1] WD_OXN_TNO3 ,kgN ha-1 ,0.22581*WDEP_TNO3[0] DD_OXN_PANT ,kgN ha-1 ,0.11570*PAN[1] + 0.11570*PPN[1] + 0.11570*MPAN[1] WD_OXN_PANT ,kgN ha-1 ,0.11570*PAN[2] + 0.11570*PPN[2] + 0.11570*MPAN[2] DD_OXN_ORGN ,kgN ha-1 ,0.10770*(ONIT[1]+ISON[1]+TRPN[1]+INALD[1]+HONIT[1]) WD_OXN_ORGN ,kgN ha-1 ,0.10770*(ONIT[2]+ISON[2]+TRPN[2]+INALD[2]+HONIT[2]) DD_OXN_OTHR ,kgN ha-1 ,0.25926*N2O5[1] + 0.29787*HONO[1] WD_OXN_OTHR ,kgN ha-1 ,0.25926*N2O5[2] + 0.29787*HONO[2]+0.177720*HNO4[2] DD_OXN_TOT ,kgN ha-1 ,DD_OXN_NOX[0] + DD_OXN_TNO3[0] + DD_OXN_PANT[0] + DD_OXN_ORGN[0] + DD_OXN_OTHR[0] WD_OXN_TOT ,kgN ha-1 ,WD_OXN_NOX[0] + WD_OXN_TNO3[0] + WD_OXN_PANT[0] + WD_OXN_ORGN[0] + WD_OXN_OTHR[0] TD_OXN_TOT ,kgN ha-1 ,DD_OXN_TOT[0] + WD_OXN_TOT[0] DD_REDN_TOT ,kgN ha-1 ,0.7777*DDEP_NHX[0] WD_REDN_TOT ,kgN ha-1 ,0.7777*WDEP_NHX[0] TD_REDN_TOT ,kgN ha-1 ,DD_REDN_TOT[0] + WD_REDN_TOT[0] DD_N_TOT ,kgN ha-1 ,DD_OXN_TOT[0] + DD_REDN_TOT[0] WD_N_TOT ,kgN ha-1 ,WD_OXN_TOT[0] + WD_REDN_TOT[0] TD_N_TOT ,kgN ha-1 ,DD_N_TOT[0] + WD_N_TOT[0] !! Nitrogen Deposition in milliequivalents Nitrogen !DD_OXN_TOTMEQ ,meqN m-2 ,7.14*DD_OXN_TOT[0] !WD_OXN_TOTMEQ ,meqN m-2 ,7.14*WD_OXN_TOT[0] !TD_OXN_TOTMEQ ,meqN m-2 ,DD_OXN_TOTMEQ[0] + WD_OXN_TOTMEQ[0] !DD_REDN_TOTMEQ ,meqN m-2 ,7.14*DD_REDN_TOT[0] !WD_REDN_TOTMEQ ,meqN m-2 ,7.14*WD_REDN_TOT[0] !TD_REDN_TOTMEQ ,meqN m-2 ,DD_REDN_TOTMEQ[0] + WD_REDN_TOTMEQ[0] !DD_N_TOTMEQ ,meqN m-2 ,DD_OXN_TOTMEQ[0] + DD_REDN_TOTMEQ[0] !WD_N_TOTMEQ ,meqN m-2 ,WD_OXN_TOTMEQ[0] + WD_REDN_TOTMEQ[0] !TD_N_TOTMEQ ,meqN m-2 ,DD_N_TOTMEQ[0] + WD_N_TOTMEQ[0] !-------------------------------------------------! !------------- Sulfur Deposition -----------------! !-------------------------------------------------! DD_S_TOT ,kgS ha-1 ,0.5*SO2[1] + 0.33333*ASO4I[1] + 0.33333*ASO4J[1] + 0.33333*ASO4K[1] WD_S_TOT ,kgS ha-1 ,0.33333*WDEP_TSO4[0] TD_S_TOT ,kgS ha-1 ,DD_S_TOT[0] + WD_S_TOT[0] !DD_S_SeaS ,kgS ha-1 ,0.33333*DDEP_SSSO4J[0] + 0.33333*DDEP_SSSO4K[0] !WD_S_SeaS ,kgS ha-1 ,0.33333*WDEP_SSSO4JK[0] !TD_S_SeaS ,kgS ha-1 ,DD_S_SeaS[0] + WD_S_SeaS[0] !! Sulfur Deposition in milliequivalents Sulfur !DD_S_TOTMEQ ,meqS m-2 ,6.24*DD_S_TOT[0] !WD_S_TOTMEQ ,meqS m-2 ,6.24*WD_S_TOT[0] !TD_S_TOTMEQ ,meqS m-2 ,DD_S_TOTMEQ[0] + WD_S_TOTMEQ[0] !DD_S_SeaSMEQ ,meqS m-2 ,6.24*DD_S_SeaS[0] !WD_S_SeaSMEQ ,meqS m-2 ,6.24*WD_S_SeaS[0] !TD_S_SeaSMEQ ,meqS m-2 ,DD_S_SeaSMEQ[0] + WD_S_SeaSMEQ[0] ================================================ FILE: CCTM/src/MECHS/cracmm2/SpecDef_cracmm2.txt ================================================ !#start YYYYJJJ 010000 !#end YYYYJJJ 000000 #layer 1 / ! This Species Definition File is for Use with the COMBINE tool built for ! post-processing CMAQ output. It is compatible with CMAQv5.2. ! Date: May 12 2017 ! Output variables that begin with 'PM' represent those in which a size cut was ! applied based on modeled aerosol mode parameters. For example, PM25_NA is all ! sodium that falls below 2.5 um diameter. These 'PM' variables are used for ! comparisons at IMPROVE and CSN sites. ! Output variables that begin with 'PMAMS' represent the mass that would have ! been detected by an Aerosol Mass Spectrometer. ! Output variables beginning with 'A' (aside from AIR_DENS) represent a ! combination of aerosol species in which no size cut was applied. For example, ! ASO4IJ is the sum of i-mode and j-mode sulfate. These 'A' variables are used ! for comparisons at CASTNet sites. ! Output variables beginning with 'PMC' refer to the coarse fraction of total PM, ! computed by summing all modes and subtracting the PM2.5 fraction. These 'PMC' ! variables are used for comparisons at SEARCH sites. ! This Species Definition File is just for use with the uncoupled, offline CMAQ, ! model. If you are processing WRF-CMAQ results, a different Species Definition ! file is required. / File [1]: CMAQ conc/aconc file / File [2]: METCRO3D file / File [3]: ELMO/AELMO file / File [4]: METCRO2D file / /new species ,units ,expression !-------------------------------------------! !------------- Meteorology -----------------! !-------------------------------------------! AIR_DENS ,kg m-3 ,DENS[2] RH ,% ,100.00*RH[3] SFC_TMP ,C ,(TEMP2[4]-273.15) PBLH ,m ,PBL[4] SOL_RAD ,W m-2 ,RGRND[4] precip ,cm ,RC[4]>=0 ? RN[4]+RC[4] : RN[4] WSPD10 ,m s-1 ,WSPD10[4] WDIR10 ,deg ,WDIR10[4] !-------------------------------------------! !--------------- Gases ---------------------! !-------------------------------------------! CO ,ppbV ,1000.0*CO[1] H2O2 ,ppbV ,1000.0*H2O2[1] HNO3 ,ppbV ,1000.0*HNO3[1] HNO3_UGM3 ,ug m-3 ,1000.0*(HNO3[1]*2.1756*DENS[2]) HONO ,ppbV ,1000.0*HONO[1] HOX ,ppbV ,1000.0*(HO[1]+HO2[1]) OH ,ppbV ,1000.0*HO[1] N2O5 ,ppbV ,1000.0*N2O5[1] NH3 ,ppbV ,1000.0*NH3[1] NH3_UGM3 ,ug m-3 ,1000.0*(NH3[1]*0.5880*DENS[2]) NHX ,ug m-3 ,1000.0*(NH3[1]*0.5880*DENS[2])+ANH4I[1]+ANH4J[1]+ANH4K[1] NO ,ppbV ,1000.0*NO[1] NO2 ,ppbV ,1000.0*NO2[1] NOX ,ppbV ,1000.0*(NO[1] + NO2[1]) ANO3_PPB ,ppbV ,(ANO3I[1]+ANO3J[1]+ANO3K[1])/(DENS[2]*(62.0/28.97)) NTR ,ppbV ,1000.0*(ONIT[1]+ISON[1]+INALD[1]+TRPN[1]+HONIT[1]), organic nitrates PANS ,ppbV ,1000.0*(PAN[1]+PPN[1]+MPAN[1]) NOY ,ppbV ,1000.0*(NO[1]+NO2[1]+NO3[1]+2*N2O5[1]+HONO[1] \ +HNO3[1]+HNO4[1]+PAN[1]+PPN[1]+MPAN[1] \ +ISON[1]+INALD[1]+IPX[1]+TRPN[1]+ONIT[1]) \ +HONIT[1]+ANO3_PPB[0] O3 ,ppbV ,1000.0*O3[1] SO2 ,ppbV ,1000.0*SO2[1] SO2_UGM3 ,ug m-3 ,1000.0*(SO2[1]*2.2118*DENS[2]) TERP ,ppbV ,1000.0*(API[1]+LIM[1]), a-pinene and limonene monoterpenes in CRACMM2 ! Deprecate these names in future ETH ,ppbV ,1000.0*ETE[1], ethene is ETE in CRACMM ETHA ,ppbV ,1000.0*ETH[1], ethane is ETH in CRACMM ALD2 ,ppbV ,1000.0*ACD[1], acetaldehyde is ACD in CRACMM FORM ,ppbV ,1000.0*HCHO[1], formaldehyde is HCHO in CRACMM ISOP ,ppbV ,1000.0*ISO[1], isoprene is ISO in CRACMM TOL ,ppbV ,1000.0*TOL[1] ! Hydrocarbons for evaluation. Note an "s" on the end indicates a collection of species from AQS ACETALDEHYDE ,ppbV ,1000.0*ACD[1] ACETYLENE ,ppbV ,1000.0*ACE[1] ACROLEIN ,ppbV ,1000.0*ACRO[1] ACETONE ,ppbV ,1000.0*ACT[1] BUTADIENE13 ,ppbV ,1000.0*BDE13[1] BENZENE ,ppbV ,1000.0*BEN[1] ETHYLENE ,ppbV ,1000.0*ETE[1], ethene is ETE in CRACMM ETHANE ,ppbV ,1000.0*ETH[1], ethane is ETH in CRACMM ISOPRENE ,ppbV ,1000.0*ISO[1], isoprene is ISO in CRACMM FORMALDEHYDE ,ppbV ,1000.0*HCHO[1], formaldehyde is HCHO in CRACMM MEKETONE ,ppbV ,1000.0*MEK[1] TOLUENE ,ppbV ,1000.0*TOL[1] XYLENES ,ppbV ,1000.0*(XYL[1]+EBZ[1]+STY[1]) ETHB ,ppbV ,1000.0*EBZ[1] STYRENE ,ppbV ,1000.0*STY[1] HCPROPANES ,ppbV ,1000.0*(HC3[1]) HCPENTANES ,ppbV ,1000.0*(HC5[1]) HCDECANES ,ppbV ,1000.0*(HC10[1]), formerly HC8 OLEFINS ,ppbV ,1000.0*(OLI[1]+OLT[1]) ABPINENES ,ppbV ,1000.0*(API[1]) !! Unused Gases. Presented Here for illustration. Users can uncomment !! them if they choose. ALDX ,ppbV ,1000.0*ALD[1], C3 and higher aldehydes is ALD in CRACMM !NOZ ,ppbV ,NOY[0]-NOX[0] !SULF ,ppbV ,1000.0*SULF[1] ! SIGROC: L/S/IVOC alk and oxy gas species LSIVROC ,ppbC ,1000.0* (9.5*VROCIOXY[1] \ +14.0*VROCP5ARO[1]+13.0*VROCP6ARO[1] \ +30.0*VROCN2ALK[1]+29.0*VROCN1ALK[1] \ +28.0*VROCP0ALK[1]+27.0*VROCP1ALK[1] \ +24.0*VROCP2ALK[1]+21.0*VROCP3ALK[1] \ +18.0*VROCP4ALK[1]+14.0*VROCP5ALK[1] \ +13.0*VROCP6ALK[1]\ +17.0*VROCN2OXY2[1]+11.0*VROCN2OXY4[1] \ +7.0*VROCN2OXY8[1]+20.0*VROCN1OXY1[1] \ +12.0*VROCN1OXY3[1]+8.0*VROCN1OXY6[1] \ +14.0*VROCP0OXY2[1]+10.0*VROCP0OXY4[1] \ +17.0*VROCP1OXY1[1]+11.0*VROCP1OXY3[1] \ +12.0*VROCP2OXY2[1]+11.0*VROCP3OXY2[1] \ +9.0*VROCP4OXY2[1]+11.0*VROCP5OXY1[1] \ +9.0*VROCP6OXY1[1] ), ! VROC: Total gas-phase (vapor) reactive organic carbon (stable species only) VROC ,ppbC ,1000.0*(2.0*ACD[1]+2.0*ACE[1] \ +3.0*ACRO[1]+3.0*ACT[1]+3.0*ALD[1]+10*API[1] \ +7.0*BALD[1]+4.0*BDE13[1]+6.0*BEN[1] \ +9.0*CSL[1]+5.0*DCB1[1]+6.0*DCB2[1]+4.0*DCB3[1] \ +20.0*ELHOM[1] \ +2.0*EOH[1]+2.0*ETE[1]+2.0*ETEG[1]+2.0*ETH[1] \ +5.0*FURAN[1]+4.0*FURANONE[1]+2.0*GLY[1]+10.0*HOM[1] \ +3.0*HC3[1]+5.0*HC5[1]+10.0*HC10[1] \ +1.0*HCHO[1]+3.0*HKET[1] \ +5.0*IEPOX[1]+5.0*ISHP[1]\ +5.0*ISO[1]+5.0*KET[1] \ +10.0*LIM[1]+10.0*LIMAL[1]+4.0*MACR[1]+4*MAHP[1] \ +7.0*MCT[1] \ +4.0*MEK[1]+3.0*MGLY[1]+1.0*MOH[1]+4.0*MVK[1] \ +10.0*NAPH[1]+5.0*OLI[1]+3.0*OLT[1] \ +1.0*OP1[1]+2.0*OP2[1]+8.0*OP3[1]+10.0*OPB[1] \ +1.0*ORA1[1]+2.0*ORA2[1] \ +10.0*PINAL[1] \ +6.0*PHEN[1]+3.0*PROG[1] \ +3.0*ROH[1]+15.0*SESQ[1]+2.1*SLOWROC[1] \ +7.0*TOL[1]+5.0*UALD[1] \ +8.0*XYL[1]+8.0*EBZ[1]+8.0*STY[1] \ +2.0*PAA[1]+2.0*PAN[1]+3.0*PPN[1]+4.0*MPAN[1] \ +4.0*ONIT[1]+5.0*ISON[1] \ +5.0*INALD[1]+5.0*IPX[1]+10.0*TRPN[1]+10.0*HONIT[1] ) \ +LSIVROC[0] , !-------------------------------------------! !--------------- Particles -----------------! !-------------------------------------------! !! Crustal Elements AFEJ ,ug m-3 ,PMF_FE[3] AALJ ,ug m-3 ,PMF_AL[3] ASIJ ,ug m-3 ,PMF_SI[3] ATIJ ,ug m-3 ,PMF_TI[3] ACAJ ,ug m-3 ,PMF_CA[3] AMGJ ,ug m-3 ,PMF_MG[3] AKJ ,ug m-3 ,PMF_K[3] AMNJ ,ug m-3 ,PMF_MN[3] ASOILJ ,ug m-3 ,PMF_SOILIMPV[3] !! Non-Crustal Inorganic Particle Species AHPLUSIJ ,ug m-3 ,PMF_HP[3] ANAK ,ug m-3 ,PMC_NA[3] AMGK ,ug m-3 ,PMC_MG[3] AKK ,ug m-3 ,PMC_K[3] ACAK ,ug m-3 ,PMC_CA[3] ACLIJ ,ug m-3 ,PMF_CL[3] AECIJ ,ug m-3 ,PMF_EC[3] ANAIJ ,ug m-3 ,PMF_NA[3] ANO3IJ ,ug m-3 ,PMF_NO3[3] ANO3K ,ug m-3 ,PMC_NO3[3] ANH4IJ ,ug m-3 ,PMF_NH4[3] ANH4K ,ug m-3 ,PMC_NH4[3] ASO4IJ ,ug m-3 ,PMF_SO4[3] ASO4K ,ug m-3 ,PMC_SO4[3] !! Organic Particle Species APOCIJ ,ugC m-3 ,PMF_POC[3] APOMIJ ,ug m-3 ,PMF_POA[3] ASOCIJ ,ugC m-3 ,PMF_SOC[3] ASOMIJ ,ug m-3 ,PMF_SOA[3] AOCIJ ,ugC m-3 ,PMF_OC[3] AOMIJ ,ug m-3 ,PMF_OA[3] !!! Anthropogenic-VOC Derived Organic Aerosol AORGAIJ ,ug m-3 ,PMF_ASOA[3] !!! Biogenic-VOC Derived Organic Aerosol AORGBIJ ,ug m-3 ,PMF_BSOA[3] !!! Cloud-Processed SOA AORGCJ ,ug m-3 ,AORGCJ[1] !!! OM/OC ratios AOMOCRAT_TOT , ,PMF_OMOC[3] !! Total PM Aggregates ATOTI ,ug m-3 ,PMAIT_MASS[3] ATOTJ ,ug m-3 ,PMACC_MASS[3] ATOTK ,ug m-3 ,PMC_MASS[3] ATOTIJ ,ug m-3 ,PMF_MASS[3] ATOTIJK ,ug m-3 ,PM_MASS[3] !! Unspeciated PM including non-carbon organic mass AUNSPEC1IJ ,ug m-3 ,PMF_UN_IMPV1[3] !! Non-Carbon Organic Mass ANCOMIJ ,ug m-3 ,PMF_NCOM[3] !! Unspeciated PM excluding non-carbon organic mass AUNSPEC2IJ ,ug m-3 ,PMF_UN_IMPV2[3] !! AMS Projection of Output Concentrations PMAMS_CL ,ug m-3 ,PMAMS_CL[3] PMAMS_NH4 ,ug m-3 ,PMAMS_NH4[3] PMAMS_NO3 ,ug m-3 ,PMAMS_NO3[3] PMAMS_OA ,ug m-3 ,PMAMS_OA[3] PMAMS_SO4 ,ug m-3 ,PMAMS_SO4[3] !! PM1 Cutoff Output PM1_TOT ,ug m-3 ,PM1[3] !! Unused PM1 Species. Included Here for demonstration !PM1_EC ,ug m-3 ,PM1_EC[3] !PM1_OC ,ugC m-3 ,PM1_OC[3] !PM1_OM ,ug m-3 ,PM1_OA[3] !PM1_SO4 ,ug m-3 ,PM1_SO4[3] !PM1_CL ,ug m-3 ,PM1_CL[3] !PM1_NA ,ug m-3 ,PM1_NA[3] !PM1_MG ,ug m-3 ,PM1_MG[3] !PM1_K ,ug m-3 ,PM1_K[3] !PM1_CA ,ug m-3 ,PM1_CA[3] !PM1_NH4 ,ug m-3 ,PM1_NH4[3] !PM1_NO3 ,ug m-3 ,PM1_NO3[3] !PM1_SOIL ,ug m-3 ,PM1_SOIL[3] !PM1_UNSPEC1 ,ug m-3 ,PM1_UNSP1[3] !PM1_UNSPCRS ,ug m-3 ,PM1_UNSPCRS[3] !! PM2.5 species computed using modeled size distribution PM25_HP ,ug m-3 ,PM25_HP[3] PM25_CL ,ug m-3 ,PM25_CL[3] PM25_EC ,ug m-3 ,PM25_EC[3] PM25_NA ,ug m-3 ,PM25_NA[3] PM25_MG ,ug m-3 ,PM25_MG[3] PM25_K ,ug m-3 ,PM25_K[3] PM25_CA ,ug m-3 ,PM25_CA[3] PM25_NH4 ,ug m-3 ,PM25_NH4[3] PM25_NO3 ,ug m-3 ,PM25_NO3[3] PM25_OC ,ugC m-3 ,PM25_OC[3] PM25_OM ,ug m-3 ,PM25_OA[3] PM25_SOIL ,ug m-3 ,PM25_SOIL[3] PM25_SO4 ,ug m-3 ,PM25_SO4[3] PM25_TOT ,ug m-3 ,PM25[3] PM25_UNSPEC1 ,ug m-3 ,PM25_UNSP1[3] PM25_UNSPCRS ,ug m-3 ,PM25_UNSPCRS[3] !! PM10.0 and Coarse-Sized Species PM10 ,ug m-3 ,PM10[3] PMC_CL ,ug m-3 ,PM25TO10_CL[3] PMC_NA ,ug m-3 ,PM25TO10_NA[3] PMC_NH4 ,ug m-3 ,PM25TO10_NH4[3] PMC_NO3 ,ug m-3 ,PM25TO10_NO3[3] PMC_SO4 ,ug m-3 ,PM25TO10_SO4[3] PMC_TOT ,ug m-3 ,PM25TO10[3] !! FRM PM Equivalent Calculation PMIJ_FRM ,ug m-3 ,PMF_FRM[3] PM25_FRM ,ug m-3 ,PM25_FRM[3] ================================================ FILE: CCTM/src/MECHS/cracmm2/cracmm2_speciesdescription.csv ================================================ Species,Description ACD,Acetaldehyde ACE,Acetylene ACO3,Acetyl peroxy radicals ACRO,Acrolein ACT,Acetone ACTP,Peroxy radicals formed from ACT ADCN,Aromatic-NO3 adduct from PHEN ADDC,Aromatic-HO adduct from CSL ALD,C3 and higher aldehydes API,Alpha-pinenes and other cyclic terpenes with one double bond APINP1,Peroxy radicals from API+NO3 that do not undergo autoxidation APINP2,Peroxy radicals from API+NO3 that undergo autoxidation APIP1,Peroxy radicals from API+OH that do not undergo autoxidation APIP2,Peroxy radicals from API+OH that undergo autoxidation BAL1,Peroxy radicals formed from BALD BAL2,Peroxy radicals formed from BALD BALD,Benzaldehyde and other aromatic aldehydes BALP,Peroxy radicals formed from BALD BDE13,1;3-butadiene BDE13P,Peroxy radicals from BDE13 BEN,Benzene BENP,Peroxy radicals formed from benzene CHO,Phenoxy radical formed from CSL CO,Carbon monoxide CSL,Cresol and other hydroxy substituted aromatics DCB1,Unsaturated dicarbonyls DCB2,Unsaturated dicarbonyls DCB3,Unsaturated dicarbonyls EBZ,Ethylbenzene EBZP,Peroxy radicals from EBZ ECH4,Methane ELHOM,Extremely-low volatility highly oxygenated molecules from terpenes EOH,Ethanol ETE,ethene ETEG,Ethylene glycol ETEP,Peroxy radicals formed from ETE ETH,ethane ETHP,Peroxy radicals formed from ethane and other species FURAN,Furans and other dienes FURANO2,Peroxy radicals from FURAN oxidation FURANONE,Ring-retaining ketone product from FURAN oxidation GLY,Glyoxal and glycoaldehydes H2O2,Hydrogen peroxide HC10,Alkanes and other species with HO rate constant greater than 6.8x10-12 cm3 s-1 HC10P,Peroxy radicals formed from HC10 HC10P2,Hydroxy peroxy radicals from HC10P alkoxy product HC3,Alkanes and other species with HO rate constant less than 3.4x10-12 cm3 s-1 HC3P,Peroxy radicals formed from HC3 HC5,Alkanes and other species with HO rate constant between 3.4x10-12 and 6.8x10-12 cm3 s-1 HC5P,Peroxy radicals formed from HC5 HCHO,Formaldehyde HKET,Hydroxy ketone HNO3,Nitric acid HNO4,Pernitric acid HO,Hydroxy radical HO2,Hydroperoxy radical HOM,Highly oxygenated molecules from terpenes HONIT,Second generation monoterpene nitrates HONO,Nitrous acid IEPOX,isoprene epoxydiols IEPOXP,IEPOX intermediate (tracking species) INALD,Isoprene nitrates INO2,Isoprene nitrate-derived peroxy radicals IPX,Isoprene tetrafunctional compounds ISHP,Beta-hydroxy hydroperoxides from ISOP+HO2 ISO,Isoprene ISON,Beta-hydroxyalkylnitrates from ISOP+NO alkylnitrates from ISO+NO3 ISOP,Peroxy radicals formed from ISO+HO KET,ketones KETP,Peroxy radicals formed from KET LIM,d-limonene and other cyclic diene-terpenes LIMAL,Limonene aldehyde and similar LIM-derived aldehydes LIMALP,Peroxy radicals from LIMAL LIMNP1,Peroxy radicals from LIM+NO3 that do not undergo autoxidation LIMNP2,Peroxy radicals from LIM+NO3 that undergo autoxidation LIMP1,Peroxy radicals from LIM+OH that do not undergo autoxidation LIMP2,Peroxy radicals from LIM+OH that undergo autoxidation MACP,Peroxy radicals formed from MACR+HO MACR,methacrolein and other C4 aldehydes MAHP,Hydroperoxides from MACP+HO2 MCP,Peroxy radical formed from MACR + HO which does not form MPAN MCT,Methyl catechol MCTO,Alkoxy radical formed from MCT+HO and MCT+NO3 MCTP,Radical formed fro MCT+O3 reaction MEK,Methyl ethyl ketone MEKP,Peroxy radicals formed from MEK MGLY,Methylglyoxal and other alpha-carbonyl aldehydes MO2,Methyl peroxy radical MOH,Methanol MPAN,Peroxymethacryloylnitrate and other higher peroxyacylnitrates from isoprene oxidation MVK,Methyl vinyl ketone MVKP,Peroxy radicals formed from MVK N2O5,Dinitrogen pentoxide NAPH,Naphthalene and other PAHs NAPHP,Peroxy radicals from NAPH oxidation NO,Nitric oxide NO2,Nitrogen dioxide NO3,Nitrogen trioxide O1D,Excited state oxygen atom; O(1D) O3,Ozone O3P,Ground state oxygen atom; O(3P) OLI,Internal alkenes OLIP,Peroxy radicals formed from OLI OLND,NO3-alkene adduct reacting via decomposition OLNN,NO3-alkene adduct reacting to form carbonitrates + HO2 OLT,Terminal alkenes OLTP,Peroxy radicals formed from OLT ONIT,Organic nitrates OP1,Methyl hydrogen peroxide OP2,Higher organic peroxides OP3,Semivolatile organic peroxide OPB,Terpene-derived peroxides ORA1,Formic acid ORA2,Acetic acid and higher acids ORAP,Peroxy radical formed from ORA2 + HO reaction PAA,Peroxyacetic acids and higher analogs PAN,Peroxyacetyl nitrate and higher saturated PANs PHEN,phenol and benzene diols PINAL,Pinonaldehyde and similar APIN-derived aldehydes PINALP,Peroxy radicals from PINAL oxidation PPN,Peroxypropionyl nitrate PROG,Propylene glyocol and other 3 carbon dialcohols RCO3,Higher saturated acyl peroxy radicals ROCIOXY,Intermediate volatility oxygenated ROC species (directly emitted) ROCN1ALK,Alkane-like ROC species with C* of 10-1 ug/m3 ROCN1OXY1,Oxygenated ROC species with C* of 10-1 ug/m3 and O:C of 0.1 ROCN1OXY3,Oxygenated ROC species with C* of 10-1 ug/m3 and O:C of 0.3 ROCN1OXY6,Oxygenated ROC species with C* of 10-1 ug/m3 and O:C of 0.6 ROCN2ALK,Alkane-like ROC species with C* of 10-2 ug/m3 ROCN2OXY2,Oxygenated ROC species with C* of 10-1 ug/m3 and O:C of 0.2 ROCN2OXY4,Oxygenated ROC species with C* of 10-2 ug/m3 and O:C of 0.4 ROCN2OXY8,Oxygenated ROC species with C* of 10-2 ug/m3 and O:C of 0.8 ROCP0ALK,Alkane-like ROC species with C* of 1 ug/m3 ROCP0OXY2,Oxygenated ROC species with C* of 1 ug/m3 and O:C of 0.2 ROCP0OXY4,Oxygenated ROC species with C* of 1 ug/m3 and O:C of 0.4 ROCP1ALK,Alkane-like ROC species with C* of 10 ug/m3 ROCP1ALKP,Peroxy radicals from ROCP1ALK oxidation ROCP1ALKP2,Hydroxy peroxy radicals from ROCP1ALK alkoxy product ROCP1OXY1,Oxygenated ROC species with C* of 10 ug/m3 and O:C of 0.1 ROCP1OXY3,Oxygenated ROC species with C* of 10 ug/m3 and O:C of 0.3 ROCP2ALK,Alkane-like ROC species with C* of 10+2 ug/m3 ROCP2ALKP,Peroxy radicals from ROCP2ALK oxidation ROCP2ALKP2,Hydroxy peroxy radicals from ROCP2ALK alkoxy product ROCP2OXY2,Oxygenated ROC species with C* of 10+2 ug/m3 and O:C of 0.2 ROCP3ALK,Alkane-like ROC species with C* of 10+3 ug/m3 ROCP3ALKP,Peroxy radicals from ROCP3ALK oxidation ROCP3ALKP2,Hydroxy peroxy radicals from ROCP3ALK alkoxy product ROCP3OXY2,Oxygenated ROC species with C* of 10+3 ug/m3 and O:C of 0.2 ROCP4ALK,Alkane-like ROC species with C* of 10+4 ug/m3 ROCP4ALKP,Peroxy radicals from ROCP4ALK oxidation ROCP4ALKP2,Hydroxy peroxy radicals from ROCP4ALK alkoxy product ROCP4OXY2,Oxygenated ROC species with C* of 10+4 ug/m3 and O:C of 0.2 ROCP5ALK,Alkane-like ROC species with C* of 10+5 ug/m3 ROCP5ALKP,Peroxy radicals from ROCP5ALK oxidation ROCP5ALKP2,Hydroxy peroxy radicals from ROCP5ALK alkoxy product ROCP5ARO,Aromatic ROC species with C* of 10+5 ug/m3 ROCP5AROP,Peroxy radicals from ROCP5ARO oxidation ROCP5OXY1,Oxygenated ROC species with C* of 10+5 ug/m3 and O:C of 0.1 ROCP6ALK,Alkane-like ROC species with C* of 10+6 ug/m3 ROCP6ALKP,Peroxy radicals from ROCP6ALK oxidation ROCP6ALKP2,Hydroxy peroxy radicals from ROCP6ALK alkoxy product ROCP6ARO,Aromatic ROC species with C* of 10+6 ug/m3 ROCP6AROP,Peroxy radicals from ROCP6ARO oxidation ROCP6OXY1,Oxygenated ROC species with C* of 10+6 ug/m3 and O:C of 0.1 ROH,C3 and higher alcohols SESQ,Sesquiterpenes SESQNRO2,Peroxy radicals from SESQ reaction with nitrate radicals SESQRO2,Peroxy radicals from SESQ reaction with OH SLOWROC,Slowly reacting ROC with kOH< 3.5x10-13 cm3 s-1 SO2,Sulfur dioxide STY,Styrene STYP,Peroxy radicals from STY SULF,Sulfuric acid SULRXN,Precursor of Aerosol Sulfate (tracking species) TOL,Toluene TOLP,Peroxy radicals formed from TOL TRPN,First generation monoterpene nitrates UALD,Unsaturated aldehydes UALP,Peroxy radicals formed from UALD XO2,Accounts for addition NO to NO2 conversions (tracking species) XYL,Xylenes and other volatile aromatics XYLP,Peroxy radicals formed from XYL HCL,Hydrochloric acid NH3,Ammonia ASO4,Total sulfur IV as sulfate ANH4,Ammonium ion ANO3,Nitrate ion ASOAT,An empirical SOA AGLY,SOA from reactive uptake of glyoxal on particles AORGC,SOA from cloud processing of GLY and MGLY AEC,Elemental carbon AOTHR,Primary unspeciated fine PM AFE,Iron ion AAL,Aluminum ion ASI,Silicon ATI,Titanium ACA,Calcium ion AMG,Magnesium ion AK,Potassium ion AMN,Manganese ion ACORS,Primary unspeciated coarse PM ASOIL,Lumped crustal species AORGH2O,Water associated with particulate organic compounds AH2O,Water associated with particulate inorganic compounds AH3OP,Hydronium ion tracer ANA,Sodium ion ACL,Chloride ion ASEACAT,Sea spray cations APOC,Primary organic carbon (legacy) APNCOM,Primary non-carbon organic matter (legacy) AISO3NOS,Non-sulfated SOA from IEPOX uptake AISO3OS,Organosulfate SOA from IEPOX uptake AISO4,Multifunctional product from heterogeneous uptake of IPX AISO5,Multifunctional product from heterogeneous uptake of INALD NUM,Number of particles SRF,Surface area of particles ATRPN,SOA from TRPN AHONIT,SOA from HONIT ================================================ FILE: CCTM/src/MECHS/cracmm2/mech_cracmm2.def ================================================ !! CRACMM version 1.0 mechanism developed 2021 by USEPA !! CRACMM builds upon RACM2 and RACM !! ********************************************************************** !! FILE: RACM2.5M4.mch - update MACR scheme with geos-chem !! DATE: Sept 4, 2012 - update MVK + O3 rxn !! VERSION: Final Frozen Version - all updates from reviewers !! ID: RACM Version 2.5M1 - updates from IUPAC JAN 2008 !! LAST UPDATE: Sept 4, 2012 !! -------------------------------------------------------------------- !! Based on REGIONAL ATMOSPHERIC CHEMISTRY MECHANISM (RACM) Version 1.3 !! Reference: W.R. Stockwell, F. Kirchner, M. Kuhn, and S. Seefeld, "A !! New Mechanism for Regional Atmospheric Chemistry Modeling", J. of !! Geophys. Res., 1997. !! -------------------------------------------------------------------- !! FOR MORE INFORMATION REGARDING THIS MECHANISM CONTACT: !! Wendy S. Goliff !! CE-CERT !! UC Riverside !! 1084 Columbia Ave !! Riverside, CA 92507 !! E-MAIL: wendyg@cert.ucr.edu !! Telephone: (951) 781-5665 !! FAX: !! OR !! William R. Stockwell !! Department of Chemistry, Room 120 !! Howard University !! 525 College Street, NW !! Washington DC 20059 !! E-MAIL: William.R.Stockwell@gmail.com !! Telephone: (202) 806-6913 !! FAX: (202) 806-5442 ! ********************************************************************** ! The RACM2 mechanism is based upon the earlier Regional Atmospheric ! Chemistry Mechanism (RACM) mechanism. It is intended to be valid for ! conditions ranging from remote to polluted and from the Earth's ! surface through the upper troposphere. The RACM2 mechanism includes ! 356 reactions and 117 total species: 17 stable inorganic species, 4 ! inorganic intermediates, 54 stable organic species (4 of these are ! primarily of biogenic origin) and 42 organic intermediates. ! ********************************************************************** ! ********************************************************************** ! Reformatted by Golam Sarwar in September 2012 for making it compatible with CMAQ ! Following species have been removed from the product list since these are used as constants in CMAQ - CH4, H2, O2 ! Following species have been removed from the product list since these are used as input to CMAQ - H2O ! Following species have been removed from the product list since CMAQ does not track these species - CO2 ! ! ! Modified for incorporating secondary sulfate and SOA mechanism ! Added SULRXN - counter species for aerosol from SO2 + OH reaction ! Added ISOPRXN - counter species for aerosol from ISO + OH reaction ! Added TRPRXN - counter species for aerosol from API and LIM ! Added TOLRO2, XYLRO2, BENZRO2 - first generation products from TOL, XYL and BEN that further react with NO and NO2 to produce SVOC ! Added two reactions for TOLRO2, added TOLNRXN, TOLHRXN - counter species for aerosol from TOL ! Added two reactions for XYLRO2, added XYLNRXN, XYLHRXN - counter species for aerosol from XYL and XYO ! Added two reactions for BENZRO2 added BNZNRXN, BNZHRXN - counter species for aerosol from BEN ! Added three reactions for SESQ from sesquiterpene, added SESQRXN - counter species for aerosol from SESQ ! BEN is changed to BENZENE since SOA module is expecting BENZENE, not BEN ! ADDED ALK5 FOR SOA PRODUCTION from HC8 ! ! Rate constant for R051 has a special expression ! ! Revised the rate constant of R65 based on IUPAC2010 ! ! Wendy Goliff corrected type errors in R110 and R111 ! ! B.Hutzell 07/10/14 ! added inorganic heterogeneous reactions for N2O5 and NO2, oligomerization reactions for ! SOA species and aging reactions for primary organic carbon and non-carbon aerosol species ! B.Hutzell 11/3/14 ! -changed ALK5RXN yield in reaction from 1.0 to 0.47 based on SOA updates ! suggested by H. Pye's for cb05e51_ae6_aq ! -Modified by splitting oligomerization into two reactions: one for each ! Alkene SOA species. The new species were introduced in cb05e51_ae6_aq ! Golam Sarwar 12/02/14 ! -Added a simple halogen chemistry over sea-water ! Golam Sarwar 6/25/15 ! -Revised the simple halogen chemistry over sea-water using results of two-way CMAQ model and detailed halogen chemistry ! Golam Sarwar 6/29/15 ! - Updated SOA formation; see CB05 changes done by Havala Pye for details ! - Added ISOPRXN counter to ISO + NO3 reaction to add SOA formation ! - Added SOAALK + OH reaction for SOA production and removed ALK5RXN from R075 ! - Added Naphthalene reaction for SOA ! - Added heterogeneous uptake of IEPOX on acidic aerosol ! - Yield of XYLRO2 in R083 is reduced to 0.98 to prevent double counting of SOA production from XYM since naphthalene is also included in XYM ! - 0.98 is the emission ratio of (XYM-NAPTH)/XYM for July 2011 ! 05-25-17 B. Hutzell ! 1. updated the oligomerization reactions to be consistent with the ! saprc07tic_ae6_aq mechanism. ! 03-04-21 G. Sarwar ! updated !------------------------------------------------------------------------------ ! CRACMMv1.0 modifications ! - XYO and XYP combined and replaced with XYE (R084c). Retains products of XYO ! (same as XYP) but decreases kOH to surrogate (ethylbenzene) value. ! Major contributors ethylbenzene and o-xylene. ! - renamed BENZENE to BEN for greater consistency in name length ! - added HAP placeholder chemistry for BDE13, ACRO. NAPH already present. ! - added PROG based on Coggon et al. PNAS 2021 and ! MCM http://mcm.york.ac.uk/browse.htt?species=PROPGLY ! - Photolysis updates added per B. Hutzell ! - FURAN chemistry added based on Wang et al. JGR 2021, Schwantes, Coggon ! - SESQ chemistry added based on MCM per H. Pye ! - Phenolic (PHEN, CSL) SOA added per H. Pye ! - Monoterpene nitrates added per B. Place ! - ACRO, BDE13 chemistry added per E. D'Ambro ! - Oxygenated ROC (ROCOXY) chemistry added per B. Murphy ! - Alkane ROC (ROCALK) chemistry added per K. Seltzer ! - HC8 replaced with HC10 following ROCALK template by H. Pye ! - Aromatic chemistry (ROCARO, NAPH, BTX) added per H. Pye ! - AMORE isoprene condensation from Woods Wiser and Faye McNeill implemented by B. Place !------------------------------------------------------------------------------ ! 10-18-21 G. Sarwar ! updated rate constants for inorganic reactions and three organic reactions (R70-R71) ! added one photolysis reaction (R014a), updated reaction products for R016 and R017 ! updated photolysis rate coefficients for CH3COCH3, MEK, KET, ALD, HCHO !------------------------------------------------------------------------------ ! CRACMM2 modifications (N. Skipper, H. Pye) (Skipper et al. in prep for ACP in 2024) ! - Updated AMORE isoprene condensation to AMORE v1.2 (Woods Wiser, Faye McNeill) ! - Added ECH4 + HO reaction for emissions of CH4 above background ! - Added heterogeneous uptake of HO2 and NO3 same as Zhu et al. 2024 ACP ! - Updated monoterpene chemistry based on Schwantes et al. ACP 2020 and assuming ! API is 65/35 a-pinene/b-pinene in emissions ! - Updated monoterpene nitrate chemistry to include second generation monoterpene ! nitrate, hydrolysis losses, and photolysis losses. Also revised chemical ! reaction products to include some NOx cycling. ! - Added styrene (STY) chemistry based on MCM ! - Updated xylene (XYL) and ethylbenzene (EBZ) species names (no chemistry changes) ! ! Notes on elemental balance terms (DELTA_C, DELTA_N, DELTA_SI): ! - DELTA_C, DELTA_N, and DELTA_SI appear in reactions where the number of carbons, ! nitrogens, or silicons are not balanced in the reactants and products. ! - These species are ignored in the chemistry (see ELIMINATE block) and are only ! for informational purposes. ! - The sign of DELTA_* indicates whether an element is being lost or produced in ! the reaction. Using DELTA_C as an example, -DELTA_C means the reaction has ! a net production of carbon (carbon needs to be subtracted to make the number ! of carbons in the products match the number of carbons in the reactants). ! +DELTA_C means the reaction has a net loss of carbon (carbon needs to be added ! to make the number carbons in the products match the number of carbons in ! the reactants). !------------------------------------------------------------------------------ CRACMM2 ELIMINATE = DELTA_SI; DELTA_N; DELTA_C; END ELIMINATE REACTIONS[CM] = O3 = O3P # 1.0/; O3 = O1D # 1.0/; H2O2 = 2.000*HO # 1.0/; NO2 = O3P + NO # 1.0/; NO3 = NO # 1.0/; NO3 = O3P + NO2 # 1.0/; HONO = HO + NO # 1.0/; HNO3 = HO + NO2 # 1.0/; HNO4 = 0.200*HO + 0.800*HO2 + 0.800*NO2 + 0.200*NO3 # 1.0/; HCHO = CO # 1.0/; HCHO = 2.000*HO2 + CO # 1.0/; ACD = HO2 + MO2 + CO # 1.0/; ALD = HO2 + ETHP + CO # 1.0/; ACT = MO2 + ACO3 # 1.0/; ACT = 2.000*MO2 + CO # 1.0/; UALD = 1.220*HO2 + 0.784*ACO3 + 1.220*CO + 0.350*HCHO + 0.434*ALD + 0.216*KET - 0.5200*DELTA_C # 1.0/; PINAL = HO2 + HC10P + CO - 1.0000*DELTA_C # 1.0/; LIMAL = HO2 + HC10P + CO - 1.0000*DELTA_C # 1.0/; MEK = 0.100*MO2 + ETHP + 0.900*ACO3 + 0.100*CO # 1.0/; KET = 1.500*ETHP + 0.500*ACO3 + 0.500*CO + 0.5000*DELTA_C # 1.0/; HKET = HO2 + ACO3 + HCHO # 1.0/; MACR = 0.340*HO + 0.660*HO2 + 0.670*ACO3 + 0.330*MACP + 0.340*XO2 + 0.670*CO + 0.670*HCHO # 1.0/; MVK = 0.300*MO2 + 0.300*MACP + 0.700*CO + 0.700*UALD - 1.7000*DELTA_C # 1.0/; GLY = 2.000*CO # 1.0/; GLY = HCHO + CO # 1.0/; GLY = 2.000*HO2 + 2.000*CO # 1.0/; MGLY = HO2 + ACO3 + CO # 1.0/; DCB1 = 1.500*HO2 + 0.250*ACO3 + 0.200*XO2 + CO + 0.500*GLY + 0.500*MGLY + 1.0000*DELTA_C # 1.0/; DCB2 = 1.500*HO2 + 0.250*ACO3 + 0.200*XO2 + CO + 0.500*GLY + 0.500*MGLY + 2.0000*DELTA_C # 1.0/; BALD = CHO + HO2 + CO - 2.0000*DELTA_C # 1.0/; OP1 = HO + HO2 + HCHO # 1.0/; OP2 = HO + HO2 + ALD - 1.0000*DELTA_C # 1.0/; OPB = HO + HO2 + ALD + 7.0000*DELTA_C # 1.0/; OP3 = HO + HO2 + ALD + 5.0000*DELTA_C # 1.0/; PAA = HO + MO2 + 1.0000*DELTA_C # 1.0/; ONIT = HO2 + NO2 + 0.200*ALD + 0.800*KET - 0.6000*DELTA_C # 1.0/; PAN = ACO3 + NO2 # 1.0/; PAN = MO2 + NO3 + 1.0000*DELTA_C # 1.0/; TRPN = NO2 + 0.670*KET + 0.330*UALD + 5.0000*DELTA_C # 1.0/; HONIT = HKET + NO2 + 7.0000*DELTA_C # 1.0/; O3 + HO = HO2 # 1.7E-12 @ 940.; O3 + HO2 = HO # 1.0E-14 @ 490.; O3 + NO = NO2 # 3.0E-12 @ 1500.; O3 + NO2 = NO3 # 1.2E-13 @ 2450.; O3P + O2 + M = O3 # 6.10E-34 ^ -2.4; O3P + O3 = # 8.0E-12 @ 2060.; O1D + O2 = O3P # 3.3E-11 @ -55.; O1D + N2 = O3P # 2.15E-11 @ -110.; O1D + H2O = 2.000*HO # 1.63E-10 @ -60.0; HO + H2 = HO2 # 2.80E-12 @ 1800.; HO + HO2 = # 4.8E-11 @ -250.; HO2 + HO2 = H2O2 %3 # 3.0E-13 @ -460. & 2.1E-33 @ -920.; HO2 + HO2 + H2O = H2O2 %3 # 4.20E-34 @ -2660. & 2.94E-54 @ -3120.; H2O2 + HO = HO2 # 1.8E-12 @ 0.; NO + O3P = NO2 # 9.1E-32 ^ -1.5 & 3.0E-11 ^ 0.0 ; NO + HO = HONO # 7.1E-31 ^ -2.6 & 3.6E-11 ^ -0.1; NO + HO2 = NO2 + HO # 3.44E-12 @ -260.; NO + HO2 = HNO3 %3 # 6.095e-14^-1.0@-270.0 & 6.857e-34^1.0@-270.0& -5.968e-14@-270.0; NO + NO + O2 = 2.000*NO2 # 4.25E-39 @ -663.5; HONO + HO = NO2 # 3.0E-12 @ -250.; NO2 + O3P = NO # 5.3E-12 @ -200.; NO2 + O3P = NO3 # 3.4E-31 ^ -1.6 & 2.3E-11 ^ -0.2; NO2 + HO = HNO3 # 1.80E-30 ^ -3.0 & 2.80E-11 ^ 0.0; HNO3 + HO = NO3 %2 # 2.4E-14 @ -460 & 2.7E-17 @ -2199 & 6.5E-34 @ -1335; NO3 + HO = HO2 + NO2 # 2.0E-11; NO3 + HO2 = 0.700*HO + 0.700*NO2 + 0.300*HNO3 # 3.50E-12; NO3 + NO = 2.000*NO2 # 1.7E-11 @ -125.; NO3 + NO2 = NO + NO2 # 4.35E-14 @ 1335.; NO3 + NO3 = 2.000*NO2 # 8.5E-13 @ 2450.; NO3 + NO2 = N2O5 # 2.40E-30 ^ -3.0 & 1.6E-12 ^ +0.1; N2O5 = NO2 + NO3 # 5.80E-27 @ -10840.0 *E; N2O5 + H2O = 2.000*HNO3 # 1.0E-22; NO2 + HO2 = HNO4 # 1.9E-31 ^ -3.4 & 4.0E-12 ^ -0.3; HNO4 = HO2 + NO2 # 2.10E-27 @ -10900.0 *E; HNO4 + HO = NO2 # 4.50E-13 @ -610.; SO2 + HO = HO2 + SULF + SULRXN # 2.9E-31 ^ -4.1 & 1.7E-12 ^ +0.2; CO + HO = HO2 + 1.0000*DELTA_C %3 # 1.44E-13 @ 0.0 & 2.74E-33 @ 0.0; HO + CH4 = MO2 - 1.0000*DELTA_C # 2.45E-12 @ 1775.; ETH + HO = ETHP # 7.66E-12 @ 1020.; HC3 + HO = HC3P + 0.0000281*ASOATJ - 0.0001*DELTA_C # 7.68E-12 @ 370.; HC5 + HO = HC5P + 0.00134*ASOATJ - 0.0093*DELTA_C # 1.01E-11 @ 245.; ETE + HO = ETEP # 1.0E-28 ^ -4.5 & 8.8E-12 ^ -0.85; OLT + HO = OLTP # 5.72E-12 @ -500.; OLI + HO = OLIP # 1.33E-11 @ -500.; ACE + HO = 0.650*HO + 0.350*HO2 + 0.350*CO + 0.650*GLY + 0.350*ORA1 # 5.5E-30 ^ 0.0 & 8.3E-13 ^ 2.0; ! MCM-based chemistry for aromatics, RACM2 rates for BEN, TOL, XYL, EBZ BEN + HO = 0.470*BENP + 0.530*PHEN + 0.530*HO2 # 2.33E-12 @ 193.; TOL + HO = 0.820*TOLP + 0.180*CSL + 0.180*HO2 - 0.3600*DELTA_C # 1.81E-12 @ -354.; XYL + HO = 0.830*XYLP + 0.170*CSL + 0.170*HO2 - 0.1700*DELTA_C # 2.33E-11; EBZ + HO = 0.820*EBZP + 0.180*CSL + 0.180*HO2 - 0.1800*DELTA_C #7.16E-12; !Isoprene AMORE mechanism ISO + O3 = 0.250*HO + 0.250*HO2 + 0.400*MO2 + 0.018*ACO3 + 0.100*MACP + 0.090*H2O2 + 0.220*CO + HCHO + 0.300*MACR + 0.140*MVK + 0.280*ORA1 + 0.153*OLT + 0.4450*DELTA_C # 1.58E-14 @ 2000; ISO + NO3 = 0.400*NO2 + 0.045*ISON + 0.350*HCHO + 0.555*INO2 + 0.260*MVK + 0.028*MACR + 0.4980*DELTA_C # 2.95E-12 @ 450; ISO + HO = ISOP + 0.250*HCHO + 0.030*MACR + 0.050*MGLY - 0.5200*DELTA_C # 2.69E-11 @ -390; ISOP + HO2 = ISHP + 0.070*HO2 + 0.500*HO # 4.5E-13 @ -1300; ISOP + NO = 0.130*ISON + 0.400*HCHO + 0.880*HO2 + 0.870*NO2 + 0.180*MACR + 0.510*MVK + 1.1900*DELTA_C # 6E-12 @ -350; ISHP + HO = ISOP # 4.6E-12 @ -200; ISHP + HO = 0.040*MGLY + 0.020*GLY + 0.130*MVK + 0.440*IEPOX + 0.110*ACO3 + 0.030*MACR + 2.000*HO + 0.340*HO2 + 0.140*IPX + CO + 0.0800*DELTA_C # 2.97E-11 @ -390; INO2 + HO2 = 0.450*HO + 0.950*INALD + 0.020*IPX + 0.0500*DELTA_N + 0.1500*DELTA_C # 3.14E-11 @ -580; INO2 + NO = 0.150*MVK + 0.650*INALD + 0.050*ISON + 0.200*HCHO + 1.300*NO2 + 0.7000*DELTA_C # 9.42E-12 @ -580; ISON + HO = HO + 0.350*INALD + 0.170*IEPOX + 0.650*NO2 + 2.4000*DELTA_C # 2.4E-11 @ -390; HO + INALD = CO + NO2 + 0.300*HO2 + HCHO + 3.0000*DELTA_C # 1.50E-11; ISON = HNO3 + ROH + 2.0000*DELTA_C # 4E-5; IPX + HO = 0.570*MACR + 0.430*MVK + 1.0000*DELTA_C # 3E-12; ! end AMORE isoprene chemistry API + HO = 0.975*APIP1 + 0.025*APIP2 # 1.21E-11 @ -440.; LIM + HO = 0.945*LIMP1 + 0.055*LIMP2 # 4.20E-11 @ -401.; PINAL + HO = 0.230*PINALP + 0.770*RCO3 + 5.3900*DELTA_C # 5.20E-12 @ -600.; LIMAL + HO = 0.830*LIMALP + 0.170*RCO3 + 1.1900*DELTA_C # 1.10E-10; HCHO + HO = HO2 + CO # 5.50E-12 @ -125.; ACD + HO = ACO3 # 4.70E-12 @ -345.; ALD + HO = RCO3 # 4.90E-12 @ -405.; ACT + HO = ACTP # 4.56E-14 ^ 3.65 @ 427; MEK + HO = MEKP # 1.5E-12 @ 90.; KET + HO = KETP # 2.8E-12 @ -10.; HKET + HO = HO2 + MGLY # 3.0E-12; MACR + HO = 0.570*MACP + 0.430*MCP # 8.00E-12 @ -380.; MVK + HO = MVKP # 2.60E-12 @ -610.; UALD + HO = 0.313*ACO3 + 0.687*UALP + 0.9390*DELTA_C # 5.77E-12 @ -533.; GLY + HO = HO2 + 2.000*CO # 1.1E-11; MGLY + HO = ACO3 + CO # 9.26E-13 @ -830.; DCB1 + HO = 0.520*HO2 + 0.330*CO + 0.400*ALD + 0.780*KET + 0.100*GLY + 0.010*MGLY - 0.6600*DELTA_C # 2.8E-11 @ -175.; DCB2 + HO = 0.520*HO2 + 0.330*CO + 0.130*MEK + 0.100*GLY + 0.010*MGLY + 0.780*OP2 + 3.3600*DELTA_C # 2.8E-11 @ -175.; DCB3 + HO = 0.560*HO2 + 0.210*MACP + 0.110*CO + 0.270*GLY + 0.010*MGLY + 0.790*OP2 + 0.9000*DELTA_C # 1.00E-11; BALD + HO = BALP # 5.32E-12 @ -243.; PHEN + HO = 0.152*ASOATJ + 0.619*HO2 + 0.170*ADDC + 0.059*CHO + 0.619*MCT - 1.0590*DELTA_C # 6.75E-12 @ -405.; CSL + HO = 0.200*ASOATJ + 0.584*HO2 + 0.160*ADDC + 0.056*CHO + 0.584*MCT + 1.9440*DELTA_C # 4.65E-11 @ 0.0; MCT + HO = MCTO # 2.05E-10 @ 0.0; MOH + HO = HO2 + HCHO # 2.85E-12 @ 345.; EOH + HO = HO2 + ACD # 3.0E-12 @ -20.; ROH + HO = HO2 + 0.719*ALD + 0.184*ACD + 0.4750*DELTA_C # 2.6E-12 @ -200.; ETEG + HO = HO2 + ALD - 1.0000*DELTA_C # 1.47E-11; OP1 + HO = 0.350*HO + 0.650*MO2 + 0.350*HCHO # 2.9E-12 @ -190.; OP2 + HO = 0.010*HO + 0.440*HC3P + 0.070*XO2 + 0.080*ALD + 0.410*KET - 1.6100*DELTA_C # 3.40E-12 @ -190.0; OPB + HO = 0.010*HO + 0.440*HC10P + 0.070*XO2 + 0.080*ALD + 0.410*KET + 3.3100*DELTA_C # 3.40E-12 @ -190.0; OP3 + HO = 0.010*HO + 0.440*HC10P + 0.070*XO2 + 0.080*ALD + 0.410*KET + 1.3100*DELTA_C # 3.40E-12 @ -190.0; MAHP + HO = MACP # 3.0E-11; ORA1 + HO = HO2 + 1.0000*DELTA_C # 4.5E-13; ORA2 + HO = 0.640*MO2 + 0.360*ORAP + 0.6400*DELTA_C # 4.0E-14 @ -850.; PAA + HO = 0.350*HO + 0.650*ACO3 + 0.350*XO2 + 0.350*HCHO + 0.3500*DELTA_C # 2.93E-12 @ -190.; PAN + HO = XO2 + NO3 + HCHO + 1.0000*DELTA_C # 4.0E-14; PPN + HO = XO2 + NO3 + HCHO + 2.0000*DELTA_C # 4.0E-14; MPAN + HO = NO2 + HKET + 1.0000*DELTA_C # 3.2E-11; ONIT + HO = HC3P + NO2 + 1.0000*DELTA_C # 5.31E-12 @ 260.; TRPN + HO = 0.330*HONIT + 0.670*NO2 + 0.270*PINAL + 0.380*KET + 0.210*HCHO + 0.020*ALD + 1.8300*DELTA_C # 4.80E-12; HONIT + HO = HKET + NO3 + 7.0000*DELTA_C %2 # 2.4E-14 @ -460 & 2.7E-17 @ -2199 & 6.5E-34 @ -1335; ETE + O3 = 0.080*HO + 0.150*HO2 + 0.430*CO + HCHO + 0.370*ORA1 + 0.2000*DELTA_C # 9.14E-15 @ 2580.; OLT + O3 = 0.220*HO + 0.320*HO2 + 0.080*MO2 + 0.060*ETHP + 0.040*HC3P + 0.020*HC5P + 0.068*H2O2 + 0.430*CO + 0.020*ETH + 0.015*HC3 + 0.006*HC5 + 0.032*BEN + 0.560*HCHO + 0.010*ACD + 0.440*ALD + 0.030*ACT + 0.020*BALD + 0.060*MEK + 0.010*HKET + 0.030*ORA1 + 0.060*ORA2 - 0.7070*DELTA_C # 4.33E-15 @ 1800.0; OLI + O3 = 0.460*HO + 0.070*HO2 + 0.320*MO2 + 0.070*ETHP + 0.040*HC3P + 0.090*ACO3 + 0.370*CO + 0.026*H2O2 + 0.010*ETH + 0.010*HC3 + 0.090*HCHO + 0.457*ACD + 0.730*ALD + 0.110*ACT + 0.017*KET + 0.044*HKET + 0.017*ORA2 + 0.0450*DELTA_C # 4.40E-15 @ 845.0; API + O3 = 0.6055*HO + 0.2145*PINALP + 0.255*H2O2 + 0.2535*PINAL + 0.0065*ORA2 + 0.1105*HO2 + 0.1105*CO + 0.459*HCHO + 0.2805*RCO3 + 0.1785*KET + 0.0665*HC3 + 0.0385*OP1 + 0.028*ORA1 + 2.7375*DELTA_C # 8.05e-16 @ 640.; LIM + O3 = 0.660*HO + 0.660*LIMAL + 0.330*ACO3 + 0.330*HCHO + 0.330*RCO3 + 0.330*H2O2 + 0.010*ORA2 + 1.4000*DELTA_C # 2.8E-15 @ 770.; LIMAL + O3 = 0.090*HO + ALD + 0.620*HCHO + 0.230*OP1 + 0.020*H2O2 + 0.150*ORA1 + 6.0000*DELTA_C # 8.30E-18; TRPN + O3 = 0.330*HONIT + 0.670*NO2 + 0.270*PINAL + 0.380*KET + 0.210*HCHO + 0.020*ALD + 1.8300*DELTA_C # 1.67E-16; MACR + O3 = 0.190*HO + 0.140*HO2 + 0.100*ACO3 + 0.220*CO + 0.500*MGLY + 0.450*ORA1 + 1.6300*DELTA_C # 1.36E-15 @ 2112.; MVK + O3 = 0.160*HO + 0.110*HO2 + 0.280*ACO3 + 0.010*XO2 + 0.560*CO + 0.100*HCHO + 0.540*MGLY + 0.070*ORA1 + 0.070*ORA2 + 0.100*ALD + 0.6500*DELTA_C # 8.50E-16 @ 1520.; UALD + O3 = 0.100*HO + 0.072*HO2 + 0.008*MO2 + 0.002*ACO3 + 0.100*XO2 + 0.243*CO + 0.080*HCHO + 0.420*ACD + 0.028*KET + 0.491*GLY + 0.003*MGLY + 0.044*ORA1 + 2.6500*DELTA_C # 1.66E-18; DCB1 + O3 = 0.050*HO + HO2 + 0.600*RCO3 + 0.600*XO2 + 1.500*CO + 0.050*HCHO + 0.050*GLY + 0.080*MGLY + 0.650*OP2 + 0.0100*DELTA_C # 2.0E-16; DCB2 + O3 = 0.050*HO + HO2 + 0.600*RCO3 + 0.600*XO2 + 1.500*CO + 0.050*HCHO + 0.050*GLY + 0.080*MGLY + 0.700*DCB1 + 0.650*OP2 - 2.4900*DELTA_C # 2.0E-16; DCB3 + O3 = 0.050*HO + HO2 + 1.500*CO + 0.480*GLY + 0.700*DCB1 + 0.250*ORA1 + 0.250*ORA2 + 0.110*PAA - 2.9300*DELTA_C # 9.0E-17; MCTO + O3 = MCTP # 2.86E-13; ETE + NO3 = 0.800*OLNN + 0.200*OLND - 1.0000*DELTA_C # 4.392E-13^2.0@2282.0; OLT + NO3 = 0.430*OLNN + 0.570*OLND # 1.79E-13 @ 450.; OLI + NO3 = 0.110*OLNN + 0.890*OLND + 2.0000*DELTA_C # 8.64E-13 @ -450.; API + NO3 = 0.975*APINP1 + 0.025*APINP2 # 1.19E-12 @ -490.; LIM + NO3 = 0.945*LIMNP1 + 0.055*LIMNP2 # 1.22E-11; TRPN + NO3 = 0.330*HONIT + 0.670*NO2 + 0.270*PINAL + 0.380*KET + 0.210*HCHO + 0.020*ALD + 1.0000*DELTA_N + 1.8300*DELTA_C # 3.15E-13 @ 448.; HCHO + NO3 = HO2 + CO + HNO3 # 2.0E-12 @ 2440.; ACD + NO3 = ACO3 + HNO3 # 1.4E-12 @ 1900.; ALD + NO3 = RCO3 + HNO3 # 3.76E-12 @ 1900.; MACR + NO3 = 0.680*HCHO + 0.320*MACP + 0.680*XO2 + 0.680*MGLY + 0.320*HNO3 + 0.680*NO2 # 3.40E-15; UALD + NO3 = HO2 + XO2 + 0.668*CO + 0.332*HCHO + 0.332*ALD + ONIT - 0.9960*DELTA_C # 5.02E-13 @ 1076.; GLY + NO3 = HO2 + 2.000*CO + HNO3 # 2.90E-12 @ 1900.; MGLY + NO3 = ACO3 + CO + HNO3 # 3.76E-12 @ 1900.; PHEN + NO3 = 0.152*ASOATJ + 0.339*CHO + 0.850*ADDC + 0.424*ADCN + 0.424*HNO3 + 0.1520*DELTA_N - 6.2700*DELTA_C # 3.78E-12; CSL + NO3 = 0.200*ASOATJ + 0.320*CHO + 0.080*ADDC + 0.400*ADCN + 0.400*HNO3 + 0.2000*DELTA_N + 2.0800*DELTA_C # 1.06E-12; MCT + NO3 = MCTO + HNO3 # 2.01E-10; MPAN + NO3 = MACP + NO2 + 1.0000*DELTA_N # 2.2E-14 @ 500.; PINALP = HOM # 0.029; LIMALP = HOM # 0.024; ACO3 + NO2 = PAN # 9.7E-29 ^ -5.6 & 9.3E-12 ^ -1.5; PAN = ACO3 + NO2 # 9.00E-29 @ -14000.0 *E; RCO3 + NO2 = PPN # 9.7E-29 ^ -5.6 & 9.3E-12 ^ -1.5; PPN = RCO3 + NO2 # 9.00E-29 @ -14000.0 *E; MACP + NO2 = MPAN # 2.80E-12 @ -181.; MPAN = MACP + NO2 # 1.60E+16 @ 13486.; MO2 + NO = HO2 + NO2 + HCHO # 2.80E-12 @ -300.; ETHP + NO = HO2 + NO2 + ACD # 2.6E-12 @ -365.; HC3P + NO = 0.660*HO2 + 0.131*MO2 + 0.048*ETHP + 0.089*XO2 + 0.935*NO2 + 0.504*ACD + 0.132*ALD + 0.165*ACT + 0.042*MEK + 0.065*ONIT + 0.4460*DELTA_C # 4.0E-12; HC5P + NO = 0.200*HO2 + 0.051*MO2 + 0.231*ETHP + 0.235*XO2 + 0.864*NO2 + 0.018*HCHO + 0.045*ACD + 0.203*ALD + 0.033*MEK + 0.217*ACT + 0.033*KET + 0.272*HKET + 0.136*ONIT + 1.4620*DELTA_C # 4.0E-12; ETEP + NO = HO2 + NO2 + 1.600*HCHO + 0.200*ALD - 0.2000*DELTA_C # 9.0E-12; OLTP + NO = 0.780*HO2 + 0.970*NO2 + 0.780*HCHO + 0.012*ACD + 0.440*ALD + 0.060*ACT + 0.130*MEK + 0.030*ONIT + 0.0560*DELTA_C # 4.00E-12; OLIP + NO = 0.830*HO2 + 0.950*NO2 + 0.810*ACD + 0.680*ALD + 0.200*ACT + 0.090*KET + 0.020*HKET + 0.050*ONIT + 0.0300*DELTA_C # 4.00E-12; ! MCM-based aromatics with Lu et al. updates BENP + NO = 0.000*ONIT + 0.0012*VROCP4OXY2 + 0.0008*VROCN1OXY6 + 0.998*NO2 + 0.998*HO2 + 0.000*BALD + 0.998*GLY + 0.499*FURANONE + 0.2495*DCB2 + 0.2495*DCB3 + 0.0020*DELTA_N - 0.5042*DELTA_C # 2.7E-12 @ -360.; TOLP + NO = 0.0002*ONIT + 0.0013*VROCP4OXY2 + 0.0006*VROCN1OXY6 + 0.998*NO2 + 0.998*HO2 + 0.0852*BALD + 0.5477*GLY + 0.3651*MGLY + 0.3651*FURANONE + 0.5477*DCB1 + 0.0018*DELTA_N - 0.0033*DELTA_C # 2.7E-12 @ -360.; XYLP + NO = 0.0001*ONIT + 0.0013*VROCP3OXY2 + 0.0006*VROCP0OXY4 + 0.998*NO2 + 0.998*HO2 + 0.0481*BALD + 0.7029*GLY + 0.247*MGLY + 0.3515*FURANONE + 0.5984*DCB2 + 0.0019*DELTA_N + 0.4994*DELTA_C # 2.7E-12 @ -360.; EBZP + NO = 0.0002*ONIT + 0.0013*VROCP3OXY2 + 0.0006*VROCP0OXY4 + 0.998*NO2 + 0.998*HO2 + 0.0852*BALD + 0.5477*GLY + 0.3651*MGLY + 0.4564*FURANONE + 0.4564*DCB2 + 0.0018*DELTA_N + 0.6278*DELTA_C # 2.7E-12 @ -360.; APIP1 + NO = 0.237*TRPN + 0.763*HO2 + 0.763*NO2 + 0.195*PINAL + 0.284*ALD + 0.0865*ACT + 0.1285*LIMAL + 0.308*HCHO + 0.0715*OPB + 0.084*KET + 1.8405*DELTA_C # 2.7E-12 @ -360.; APIP2 + NO = 0.820*HO + 0.820*NO2 + HOM + 0.1800*DELTA_N # 4.0E-12; APINP1 + NO = 1.6955*NO2 + 0.2345*TRPN + 0.070*ONIT + 0.6045*PINAL + 0.154*ALD + 0.007*KET + 0.007*HCHO + 0.1645*HO2 + 0.8260*DELTA_C # 2.7E-12 @ -360.; APINP2 + NO = 0.820*NO2 + 0.820*HO + HOM + 1.1800*DELTA_N # 4.0E-12; LIMP1 + NO = 0.230*TRPN + 0.770*NO2 + 0.770*LIMAL + 0.770*HO2 + 0.430*HCHO - 0.4300*DELTA_C # 2.7E-12 @ -360.; LIMP2 + NO = 0.770*HO + 0.770*NO2 + HOM + 0.2300*DELTA_N # 4.0E-12; LIMNP1 + NO = 0.570*TRPN + 0.070*ONIT + 1.360*NO2 + 0.430*LIMAL + 0.500*HO2 - 0.0000*DELTA_N - 0.2800*DELTA_C # 2.7E-12 @ -360.; LIMNP2 + NO = 0.770*NO2 + 0.770*HO + HOM + 1.2300*DELTA_N # 4.0E-12; PINALP + NO = 0.360*TRPN + 0.640*HOM + 0.640*NO2 # 2.7E-12 @ -360.; LIMALP + NO = 0.640*TRPN + 0.360*NO2 + 0.360*HO2 + 0.360*HCHO + 0.360*PAA + 2.5200*DELTA_C # 2.7E-12 @ -360.; ACO3 + NO = MO2 + NO2 + 1.0000*DELTA_C # 8.1E-12 @ -270.; RCO3 + NO = ETHP + NO2 + 1.0000*DELTA_C # 8.1E-12 @ -270.; ACTP + NO = ACO3 + NO2 + HCHO # 2.9E-12 @ -300.; MEKP + NO = 0.670*HO2 + NO2 + 0.330*HCHO + 0.670*DCB1 + 0.3200*DELTA_C # 4.0E-12; KETP + NO = 0.770*HO2 + 0.230*ACO3 + 0.160*XO2 + NO2 + 0.460*ALD + 0.540*MGLY + 1.5400*DELTA_C # 4.0E-12; MACP + NO = 0.650*MO2 + 0.350*ACO3 + NO2 + 0.650*CO + 0.650*HCHO + 1.3500*DELTA_C # 2.54E-12 @ -360.; MCP + NO = NO2 + 0.500*HO2 + 0.500*HCHO + HKET + 0.5000*DELTA_C # 2.54E-12 @ -360.; MVKP + NO = 0.300*HO2 + 0.700*ACO3 + 0.700*XO2 + NO2 + 0.300*HCHO + 0.700*ALD + 0.300*MGLY - 0.7000*DELTA_C # 2.54E-12 @ -360.; UALP + NO = HO2 + NO2 + 0.610*CO + 0.030*HCHO + 0.270*ALD + 0.180*GLY + 0.700*KET + 0.210*MGLY - 0.9400*DELTA_C # 2.54E-12 @ -360.; BALP + NO = BAL1 + NO2 # 4.0E-12; BAL1 + NO = BAL2 + NO2 + 1.0000*DELTA_C # 4.0E-12; ADDC + NO = HO2 + NO2 + 0.320*HKET + 0.680*GLY + 0.680*OP2 + 3.3200*DELTA_C # 2.7E-12 @ -360.; MCTP + NO = MCTO + NO2 # 2.7E-12 @ -360.; ORAP + NO = NO2 + GLY + HO2 # 4.0E-12; OLNN + NO = NO2 + HO2 + ONIT - 1.0000*DELTA_C # 4.0E-12; OLND + NO = 2.000*NO2 + 0.287*HCHO + 1.240*ALD + 0.464*KET - 3.3270*DELTA_C # 4.0E-12; ADCN + NO = 2.000*NO2 + GLY + OP2 + 2.0000*DELTA_C # 2.7E-12 @ -360.; XO2 + NO = NO2 # 4.0E-12; BAL2 + NO2 = ONIT + 2.0000*DELTA_C # 2.0E-11; CHO + NO2 = ONIT + 4.0000*DELTA_C # 2.0E-11; MCTO + NO2 = ONIT + 3.0000*DELTA_C # 2.08E-12; MO2 + HO2 = OP1 # 4.1E-13 @ -750.; ETHP + HO2 = OP2 # 7.5E-13 @ -700.; HC3P + HO2 = OP2 + 1.0000*DELTA_C # 1.66E-13 @ -1300.; HC5P + HO2 = OP2 + 3.0000*DELTA_C # 1.66E-13 @ -1300.; ETEP + HO2 = OP2 # 1.90E-13 @ -1300.; OLTP + HO2 = OP2 + 1.0000*DELTA_C # 1.66E-13 @ -1300.; OLIP + HO2 = OP2 + 3.0000*DELTA_C # 1.66E-13 @ -1300.; ! MCM-based aromatics BENP + HO2 = 0.6021*OP2 + 0.3979*VROCN1OXY6 + 1.6126*DELTA_C # 2.91E-13 @ -1300.; TOLP + HO2 = 0.7195*OP2 + 0.2805*VROCN1OXY6 + 3.3170*DELTA_C # 2.91E-13 @ -1300.; XYLP + HO2 = 0.0482*OP2 + 0.6747*OP3 + 0.2771*VROCP0OXY4 - 0.2650*DELTA_C # 2.91E-13 @ -1300.; EBZP + HO2 = 0.0854*OP2 + 0.6341*OP3 + 0.2805*VROCP0OXY4 - 0.0486*DELTA_C # 2.91E-13 @ -1300.; APIP1 + HO2 = 0.039*ACT + 0.039*LIMAL + 0.0625*HCHO + 0.762*OPB + 0.3225*HO2 + 0.1885*PINAL + 0.238*HO + 0.0105*KET - 0.1270*DELTA_C # 2.6E-13 @ -1300.; APIP2 + HO2 = HOM # 1.5E-11; APINP1 + HO2 = 0.461*TRPN + 0.455*PINAL + 0.539*NO2 + 0.6195*HO + 0.077*ALD + 0.007*KET + 0.007*HCHO + 0.5670*DELTA_C # 2.71E-13 @ -1300.; APINP2 + HO2 = HOM + 1.0000*DELTA_N # 1.5E-11; LIMP1 + HO2 = 0.900*OPB + 0.100*LIMAL + 0.100*HO + 0.100*HO2 + 0.060*HCHO - 0.0600*DELTA_C # 2.6E-13 @ -1300.; LIMP2 + HO2 = HOM # 1.5E-11; LIMNP1 + HO2 = 0.770*TRPN + 0.500*HO + 0.230*LIMAL + 0.230*NO2 + 0.270*HO2 # 2.71E-13 @ -1300.; LIMNP2 + HO2 = HOM + 1.0000*DELTA_N # 1.5E-11; PINALP + HO2 = 0.750*OPB + 0.250*HO + 0.250*HOM # 2.71E-13 @ -1300.; LIMALP + HO2 = 0.900*OPB + 0.100*HO + 0.100*HO2 + 0.100*HCHO + 0.100*PAA + 0.7000*DELTA_C # 2.73E-13 @ -1300.; ACO3 + HO2 = 0.440*HO + 0.440*MO2 + 0.150*ORA2 + 0.410*PAA + 0.4400*DELTA_C # 4.3E-13 @ -1040.; RCO3 + HO2 = 0.440*HO + 0.440*ETHP + 0.150*ORA2 + 0.410*PAA + 1.0000*DELTA_C # 4.3E-13 @ -1040.; ACTP + HO2 = 0.150*HO + 0.150*ACO3 + 0.150*HCHO + 0.850*OP2 + 0.8500*DELTA_C # 1.15E-13 @ -1300.; MEKP + HO2 = OP2 + 2.0000*DELTA_C # 1.15E-13 @ -1300.; KETP + HO2 = OP2 + 3.0000*DELTA_C # 1.15E-13 @ -1300.; MACP + HO2 = MAHP # 1.82E-13 @ -1300.; MCP + HO2 = MAHP # 1.82E-13 @ -1300.; MVKP + HO2 = OP2 + 2.0000*DELTA_C # 2.91E-13 @ -1300.; UALP + HO2 = OP2 + 3.0000*DELTA_C # 2.91E-13 @ -1300.; ADDC + HO2 = OP2 + 5.0000*DELTA_C # 3.75E-13 @ -980.; CHO + HO2 = CSL - 1.0000*DELTA_C # 1.00E-11; MCTP + HO2 = OP2 + 5.0000*DELTA_C # 3.75E-13 @ -980.; ORAP + HO2 = OP2 # 1.15E-13 @ -1300.; OLNN + HO2 = ONIT - 1.0000*DELTA_C # 1.66E-13 @ -1300.; OLND + HO2 = ONIT - 1.0000*DELTA_C # 1.66E-13 @ -1300.; ADCN + HO2 = OP2 + 1.0000*DELTA_N + 4.0000*DELTA_C # 3.75E-13 @ -980.; XO2 + HO2 = OP2 - 2.0000*DELTA_C # 1.66E-13 @ -1300.; MO2 + MO2 = 0.740*HO2 + 1.370*HCHO + 0.630*MOH # 9.5E-14 @ -390.; ETHP + MO2 = HO2 + 0.750*HCHO + 0.750*ACD + 0.250*MOH + 0.250*EOH # 1.18E-13 @ -158.; HC3P + MO2 = 0.894*HO2 + 0.080*MO2 + 0.026*ETHP + 0.026*XO2 + 0.827*HCHO + 0.198*ALD + 0.497*KET + 0.050*GLY + 0.250*MOH + 0.250*ROH - 1.1380*DELTA_C # 9.46E-14 @ -431.; HC5P + MO2 = 0.842*HO2 + 0.018*MO2 + 0.140*ETHP + 0.191*XO2 + 0.777*HCHO + 0.251*ALD + 0.618*KET + 0.250*MOH + 0.250*ROH + 0.0820*DELTA_C # 1.0E-13 @ -467.; ETEP + MO2 = HO2 + 1.950*HCHO + 0.150*ALD + 0.250*MOH + 0.250*ETEG - 0.1500*DELTA_C # 1.71E-13 @ -708.; OLTP + MO2 = HO2 + 1.500*HCHO + 0.705*ALD + 0.045*KET + 0.250*MOH + 0.250*ROH - 0.8400*DELTA_C # 1.46E-13 @ -708.; OLIP + MO2 = HO2 + 0.750*HCHO + 1.280*ALD + 0.218*KET + 0.250*MOH + 0.250*ROH - 0.6800*DELTA_C # 9.18E-14 @ -708.; ! MCM-based aromatics BENP + MO2 = 0.680*HCHO + 1.370*HO2 + 0.320*MOH + 0.000*BALD + GLY + 0.500*FURANONE + 0.250*DCB2 + 0.250*DCB3 - 0.5000*DELTA_C # 3.56E-14 @ -708.; TOLP + MO2 = 0.680*HCHO + 1.2846*HO2 + 0.320*MOH + 0.0854*BALD + 0.5488*GLY + 0.3659*MGLY + 0.3659*FURANONE + 0.5488*DCB1 - 0.0007*DELTA_C # 3.56E-14 @ -708.; XYLP + MO2 = 0.680*HCHO + 1.3218*HO2 + 0.320*MOH + 0.0482*BALD + 0.7043*GLY + 0.2475*MGLY + 0.3522*FURANONE + 0.5996*DCB2 + 0.5051*DELTA_C # 3.56E-14 @ -708.; EBZP + MO2 = 0.680*HCHO + 1.2846*HO2 + 0.320*MOH + 0.0854*BALD + 0.5488*GLY + 0.3659*MGLY + 0.4573*FURANONE + 0.4573*DCB2 + 0.6339*DELTA_C # 3.56E-14 @ -708.; ISOP + MO2 = HO2 + 1.310*HCHO + 0.159*MACR + 0.250*MVK + 0.250*MOH + 0.250*ROH + 0.023*ALD + 0.018*GLY + 0.016*HKET + 1.9010*DELTA_C # 3.4E-14 @ -221.; APIP1 + MO2 = 1.0295*HCHO + 0.2205*LIMAL + 0.273*PINAL + 0.2385*ALD + 0.0845*OPB + 0.1105*MOH + 0.1835*KET + 0.067*ACT + 1.279*HO2 + 2.2460*DELTA_C # 2.00E-12; APIP2 + MO2 = HO2 + 0.750*HCHO + 0.250*MOH + HOM # 1.00E-10; APINP1 + MO2 = 0.341*TRPN + 0.964*HCHO + 0.043*MOH + 0.918*HO2 + 0.659*NO2 + 0.533*PINAL + 0.007*KET + 0.119*ALD + 0.8610*DELTA_C # 2.00E-12; APINP2 + MO2 = 0.750*HO2 + 0.750*NO2 + 0.250*MOH + 0.750*HCHO + HOM + 0.2500*DELTA_N # 1.00E-10; LIMP1 + MO2 = 0.250*MOH + LIMAL + 1.030*HCHO + HO2 - 0.2800*DELTA_C # 2.00E-12; LIMP2 + MO2 = HO2 + 0.750*HCHO + 0.250*MOH + HOM # 1.00E-10; LIMNP1 + MO2 = 0.690*TRPN + 0.910*HCHO + 0.090*MOH + 1.010*HO2 + 0.310*LIMAL + 0.310*NO2 # 2.0E-12; LIMNP2 + MO2 = 0.750*HO2 + 0.750*HCHO + 0.750*NO2 + 0.250*MOH + HOM + 0.2500*DELTA_N # 1.00E-10; ACO3 + MO2 = 0.900*HO2 + 0.900*MO2 + HCHO + 0.100*ORA2 + 0.9000*DELTA_C # 2.0E-11 @ -500.; RCO3 + MO2 = 0.900*HO2 + 0.900*MO2 + HCHO + 0.100*ORA2 + 1.9000*DELTA_C # 2.0E-11 @ -500.; ACTP + MO2 = 0.500*HO2 + 0.500*ACO3 + 1.500*HCHO + 0.250*MOH + 0.250*ROH + 0.125*ORA2 + 0.2500*DELTA_C # 7.5E-13 @ -500.; MEKP + MO2 = 0.834*HO2 + HCHO + 0.334*DCB1 + 0.250*MOH + 0.250*ROH + 1.3300*DELTA_C # 6.91E-13 @ -508.; KETP + MO2 = HO2 + 0.750*HCHO + 0.500*DCB1 + 0.250*MOH + 0.250*ROH + 1.7500*DELTA_C # 6.91E-13 @ -508.; MACP + MO2 = 0.500*HO2 + 0.269*ACO3 + 0.500*CO + 1.660*HCHO + 0.067*ORA2 + 0.250*MO2 + 0.250*MOH + 0.250*ROH + 0.9180*DELTA_C # 3.4E-14 @ -221.; MCP + MO2 = NO2 + HO2 + 1.500*HCHO + 0.500*HKET + 0.250*MOH + 0.250*ROH - 1.0000*DELTA_N + 1.0000*DELTA_C # 3.4E-14 @ -221.; MVKP + MO2 = HO2 + 1.160*ACO3 + 1.160*XO2 + 1.500*HCHO + 1.750*ALD + 0.500*MGLY + 0.250*MOH + 0.250*ROH + 0.292*ORA2 - 7.1540*DELTA_C # 8.37E-14; UALP + MO2 = HO2 + 0.305*CO + 0.773*HCHO + 0.203*ALD + 0.525*KET + 0.135*GLY + 0.105*MGLY + 0.250*MOH + 0.250*ROH + 0.1030*DELTA_C # 3.4E-14 @ -221.; BALP + MO2 = HO2 + BAL1 + HCHO # 3.56E-14 @ -708.; BAL1 + MO2 = HO2 + BAL2 + HCHO + 1.0000*DELTA_C # 3.56E-14 @ -708.; ADDC + MO2 = 2.000*HO2 + HCHO + 0.320*HKET + 0.680*GLY + 0.680*OP2 + 3.3200*DELTA_C # 3.56E-14 @ -708.; MCTP + MO2 = HO2 + MCTO + HCHO # 3.56E-14 @ -708.; ORAP + MO2 = HCHO + HO2 + GLY # 7.50E-13 @ -500.; OLNN + MO2 = 2.000*HO2 + HCHO + ONIT - 1.0000*DELTA_C # 1.6E-13 @ -708.; OLND + MO2 = 0.500*HO2 + 0.500*NO2 + 0.965*HCHO + 0.930*ALD + 0.348*KET + 0.250*MOH + 0.250*ROH + 0.500*ONIT - 4.4950*DELTA_C # 9.68E-14 @ -708.; ADCN + MO2 = HO2 + 0.700*NO2 + HCHO + 0.700*GLY + 0.700*OP2 + 0.300*ONIT + 2.0000*DELTA_C # 3.56E-14; XO2 + MO2 = HO2 + HCHO # 5.99E-15 @ -1510.; ETHP + ACO3 = 0.500*HO2 + 0.500*MO2 + ACD + 0.500*ORA2 + 0.5000*DELTA_C # 1.03E-12 @ -211.; HC3P + ACO3 = 0.394*HO2 + 0.580*MO2 + 0.026*ETHP + 0.026*XO2 + 0.130*HCHO + 0.273*ALD + 0.662*KET + 0.067*GLY + 0.500*ORA2 - 1.0250*DELTA_C # 6.9E-13 @ -460.; HC5P + ACO3 = 0.342*HO2 + 0.518*MO2 + 0.140*ETHP + 0.191*XO2 + 0.042*HCHO + 0.381*ALD + 0.824*KET + 0.500*ORA2 - 0.1030*DELTA_C # 5.59E-13 @ -522.; ETEP + ACO3 = 0.500*HO2 + 0.500*MO2 + 1.600*HCHO + 0.200*ALD + 0.500*ORA2 + 0.3000*DELTA_C # 9.48E-13 @ -765.; OLTP + ACO3 = 0.500*HO2 + 0.500*MO2 + HCHO + 0.940*ALD + 0.060*KET + 0.500*ORA2 - 0.6200*DELTA_C # 8.11E-13 @ -765.; OLIP + ACO3 = 0.500*HO2 + 0.500*MO2 + 1.710*ALD + 0.290*KET + 0.500*ORA2 - 1.0800*DELTA_C # 5.09E-13 @ -765.; ! MCM-based aromatics BENP + ACO3 = 0.700*MO2 + HO2 + 0.300*ORA2 + 0.000*BALD + GLY + 0.500*FURANONE + 0.250*DCB2 + 0.250*DCB3 + 0.2000*DELTA_C # 7.4E-13 @ -765.; TOLP + ACO3 = 0.700*MO2 + 0.9146*HO2 + 0.300*ORA2 + 0.0854*BALD + 0.5488*GLY + 0.3659*MGLY + 0.3659*FURANONE + 0.5488*DCB1 + 0.6993*DELTA_C # 7.4E-13 @ -765.; XYLP + ACO3 = 0.700*MO2 + 0.9518*HO2 + 0.300*ORA2 + 0.0482*BALD + 0.7043*GLY + 0.2475*MGLY + 0.3522*FURANONE + 0.5996*DCB2 + 1.2051*DELTA_C # 7.4E-13 @ -765.; EBZP + ACO3 = 0.700*MO2 + 0.9146*HO2 + 0.300*ORA2 + 0.0854*BALD + 0.5488*GLY + 0.3659*MGLY + 0.4573*FURANONE + 0.4573*DCB2 + 1.3339*DELTA_C # 7.4E-13 @ -765.; ISOP + ACO3 = 0.500*HO2 + 0.500*MO2 + 1.048*HCHO + 0.219*MACR + 0.305*MVK + 0.500*ORA2 + 2.3560*DELTA_C # 8.4E-14 @ -221.; APIP1 + ACO3 = 0.2535*PINAL + 0.371*ALD + 0.091*OPB + 0.1165*ACT + 0.1725*LIMAL + 0.403*HCHO + HO2 + MO2 + 0.112*KET + 3.4045*DELTA_C # 2.0E-12 @ -500.; APIP2 + ACO3 = 0.500*HO + 0.500*MO2 + 0.500*ORA2 + HOM + 0.5000*DELTA_C # 1.0E-10; APINP1 + ACO3 = 0.825*NO2 + 0.650*PINAL + MO2 + 0.175*TRPN + 0.168*ALD + 0.007*KET + 0.007*HCHO + 0.175*HO2 + 2.2040*DELTA_C # 2.0E-12 @ -500.; APINP2 + ACO3 = 0.500*NO2 + 0.500*MO2 + 0.500*ORA2 + HOM + 0.5000*DELTA_N + 0.5000*DELTA_C # 1.0E-10; LIMP1 + ACO3 = LIMAL + 0.560*HCHO + HO2 + MO2 + 0.4400*DELTA_C # 2.0E-12 @ -500.; LIMP2 + ACO3 = 0.500*HO + 0.500*MO2 + 0.500*ORA2 + HOM + 0.5000*DELTA_C # 1.0E-10; LIMNP1 + ACO3 = MO2 + 0.460*NO2 + 0.460*LIMAL + 0.540*TRPN + 0.540*HO2 + 1.0000*DELTA_C # 2.0E-12 @ -500.; LIMNP2 + ACO3 = 0.500*MO2 + 0.500*NO2 + 0.500*ORA2 + HOM + 0.5000*DELTA_N + 0.5000*DELTA_C # 1.0E-10; ACO3 + ACO3 = 2.000*MO2 + 2.0000*DELTA_C # 2.5E-12 @ -500.; RCO3 + ACO3 = MO2 + ETHP + 2.0000*DELTA_C # 2.5E-12 @ -500.; ACTP + ACO3 = 0.500*MO2 + 0.500*ACO3 + HCHO + 0.750*ORA2 + 1.0000*DELTA_C # 7.51E-13 @ -565.; MEKP + ACO3 = 0.330*HO2 + 0.500*MO2 + 0.330*HCHO + 0.334*DCB1 + 0.500*ORA2 + 2.5000*DELTA_C # 7.51E-13 @ -565.; KETP + ACO3 = 0.500*HO2 + 0.500*MO2 + 0.500*DCB1 + 0.500*ORA2 + 3.0000*DELTA_C # 7.51E-13 @ -565.; MACP + ACO3 = 0.635*ORA2 + 0.500*MO2 + 0.269*ACO3 + 0.500*CO + HCHO + 2.1920*DELTA_C # 8.4E-14 @ -221.; MCP + ACO3 = NO2 + 0.500*HO2 + HCHO + 0.500*HKET + 0.500*MO2 + 0.500*ORA2 - 1.0000*DELTA_N + 2.0000*DELTA_C # 8.4E-14 @ -221.; MVKP + ACO3 = 0.500*HO2 + 0.500*MO2 + 1.160*ACO3 + 1.160*XO2 + HCHO + 2.300*ALD + 0.500*MGLY + 1.083*ORA2 - 8.3860*DELTA_C # 1.68E-12 @ -500.; UALP + ACO3 = 0.500*HO2 + 0.500*MO2 + 0.500*CO + 0.030*HCHO + 0.270*ALD + 0.700*KET + 0.180*GLY + 0.105*MGLY + 0.500*ORA2 - 0.0150*DELTA_C # 1.68E-12 @ -500.; BALP + ACO3 = MO2 + BAL1 + 1.0000*DELTA_C # 7.4E-13 @ -765.; BAL1 + ACO3 = MO2 + BAL2 + 2.0000*DELTA_C # 7.4E-13 @ -765.; ADDC + ACO3 = 2.000*HO2 + MO2 + 0.320*HKET + 0.680*GLY + 0.680*OP2 + 4.3200*DELTA_C # 7.4E-13 @ -708.; MCTP + ACO3 = HO2 + MO2 + MCTO + 1.0000*DELTA_C # 7.4E-13 @ -708.; ORAP + ACO3 = MO2 + GLY + 1.0000*DELTA_C # 7.51E-13 @ -565.; OLNN + ACO3 = HO2 + MO2 + ONIT # 8.85E-13 @ -765.; OLND + ACO3 = 0.500*MO2 + NO2 + 0.287*HCHO + 1.240*ALD + 0.464*KET + 0.500*ORA2 - 2.8270*DELTA_C # 5.37E-13 @ -765.; ADCN + ACO3 = HO2 + MO2 + 0.700*NO2 + 0.700*GLY + 0.700*OP2 + 0.300*ONIT + 3.0000*DELTA_C # 7.4E-13 @ -708.; XO2 + ACO3 = MO2 + 1.0000*DELTA_C # 3.4E-14 @ -1560.; RCO3 + RCO3 = 2.000*ETHP + 2.0000*DELTA_C # 2.50E-12 @ -500.0; MO2 + NO3 = HO2 + HCHO + NO2 # 1.20E-12; ETHP + NO3 = HO2 + NO2 + ACD # 1.2E-12; HC3P + NO3 = 0.254*HO2 + 0.140*MO2 + 0.092*XO2 + 0.503*ETHP + NO2 + 0.519*ACD + 0.147*ALD + 0.075*MEK + 0.095*ACT - 0.2100*DELTA_C # 1.20E-12; HC5P + NO3 = 0.488*HO2 + 0.055*MO2 + 0.280*ETHP + 0.485*XO2 + NO2 + 0.024*HCHO + 0.241*ALD + 0.060*KET + 0.063*MEK + 0.247*ACT + 0.048*ACD + 0.275*HKET + 1.4240*DELTA_C # 1.20E-12; ETEP + NO3 = HO2 + NO2 + 1.600*HCHO + 0.200*ALD - 0.2000*DELTA_C # 1.2E-12; OLTP + NO3 = 0.470*ALD + 0.790*HCHO + 0.790*HO2 + NO2 + 0.180*MEK + 0.020*ACD + 0.090*ACT - 0.2300*DELTA_C # 1.20E-12; OLIP + NO3 = 0.860*HO2 + 0.720*ALD + 0.110*KET + NO2 + 0.200*ACT + 0.850*ACD + 0.040*HKET - 0.1300*DELTA_C # 1.20E-12; ! MCM-based aromatics BENP + NO3 = NO2 + HO2 + 0.000*BALD + GLY + 0.500*FURANONE + 0.250*DCB2 + 0.250*DCB3 - 0.5000*DELTA_C # 2.3E-12; TOLP + NO3 = NO2 + 0.9146*HO2 + 0.0854*BALD + 0.5488*GLY + 0.3659*MGLY + 0.3659*FURANONE + 0.5488*DCB1 - 0.0007*DELTA_C # 2.3E-12; XYLP + NO3 = NO2 + 0.9518*HO2 + 0.0482*BALD + 0.7043*GLY + 0.2475*MGLY + 0.3522*FURANONE + 0.5996*DCB2 + 0.5051*DELTA_C # 2.3E-12; EBZP + NO3 = NO2 + 0.9146*HO2 + 0.0854*BALD + 0.5488*GLY + 0.3659*MGLY + 0.4573*FURANONE + 0.4573*DCB2 + 0.6339*DELTA_C # 2.3E-12; ISOP + NO3 = HO2 + NO2 + 0.750*HCHO + 0.318*MACR + 0.500*MVK + 0.024*GLY + 0.033*HKET + 0.031*ALD + 0.7380*DELTA_C # 1.2E-12; APIP1 + NO3 = NO2 + HO2 + 0.2535*PINAL + 0.371*ALD + 0.1165*ACT + 0.1725*LIMAL + 0.403*HCHO + 0.091*OPB + 0.112*KET + 2.4045*DELTA_C # 2.3E-12; LIMP1 + NO3 = HO2 + NO2 + LIMAL + 0.560*HCHO - 0.5600*DELTA_C # 2.3E-12; APINP1 + NO3 = 1.825*NO2 + 0.650*PINAL + 0.175*TRPN + 0.168*ALD + 0.007*KET + 0.007*HCHO + 0.175*HO2 + 1.2040*DELTA_C # 2.3E-12; LIMNP1 + NO3 = 1.460*NO2 + 0.460*LIMAL + 0.540*TRPN + 0.540*HO2 # 2.3E-12; ACO3 + NO3 = MO2 + NO2 + 1.0000*DELTA_C # 4.0E-12; RCO3 + NO3 = ETHP + NO2 + 1.0000*DELTA_C # 4.0E-12; ACTP + NO3 = ACO3 + NO2 + HCHO # 1.2E-12; MEKP + NO3 = 0.670*HO2 + NO2 + 0.330*HCHO + 0.670*DCB1 + 0.3200*DELTA_C # 1.2E-12; KETP + NO3 = HO2 + NO2 + DCB1 # 1.2E-12; MACP + NO3 = HCHO + 0.538*ACO3 + CO + NO2 + 0.9240*DELTA_C # 1.2E-12; MCP + NO3 = NO2 + HO2 + HCHO + HKET # 1.2E-12; MVKP + NO3 = 0.300*HO2 + 0.700*ACO3 + 0.700*XO2 + NO2 + 0.300*HCHO + 0.700*ALD + 0.300*MGLY - 0.7000*DELTA_C # 2.5E-12; UALP + NO3 = HO2 + NO2 + 0.610*CO + 0.030*HCHO + 0.270*ALD + 0.700*KET + 0.180*GLY + 0.210*MGLY - 0.9400*DELTA_C # 2.5E-12; BALP + NO3 = BAL1 + NO2 # 2.5E-12; BAL1 + NO3 = BAL2 + NO2 + 1.0000*DELTA_C # 2.5E-12; ADDC + NO3 = HO2 + NO2 + 0.320*HKET + 0.680*GLY + 0.680*OP2 + 3.3200*DELTA_C # 1.2E-12; MCTP + NO3 = NO2 + MCTO # 1.2E-12; ORAP + NO3 = NO2 + GLY + HO2 # 1.2E-12; OLNN + NO3 = HO2 + NO2 + ONIT - 1.0000*DELTA_C # 1.2E-12; OLND + NO3 = 2.000*NO2 + 0.287*HCHO + 1.240*ALD + 0.464*KET - 3.3270*DELTA_C # 1.2E-12; ADCN + NO3 = 2.000*NO2 + GLY + OP2 + 2.0000*DELTA_C # 1.2E-12; OLNN + OLNN = HO2 + 2.000*ONIT - 2.0000*DELTA_C # 7.0E-14 @ -1000.; OLNN + OLND = 0.500*HO2 + 0.500*NO2 + 0.202*HCHO + 0.640*ALD + 0.149*KET + 1.500*ONIT - 2.8670*DELTA_C # 4.25E-14 @ -1000.; OLND + OLND = NO2 + 0.504*HCHO + 1.210*ALD + 0.285*KET + ONIT - 3.5590*DELTA_C # 2.96E-14 @ -1000.; XO2 + NO3 = NO2 # 1.2E-12; XO2 + RCO3 = ETHP + 1.0000*DELTA_C # 2.5E-12 @ -500.; XO2 + XO2 = # 7.13E-17 @ -2950.; APIP2 + APIP1 = 0.960*HOM + 0.480*ROH + 0.480*PINAL + 0.480*HO + 0.480*HO2 + 0.040*ELHOM + 3.3600*DELTA_C #1.00E-10; APIP2 + LIMP1 = 0.960*HOM + 0.480*ROH + 0.480*LIMAL + 0.480*HO + 0.480*HO2 + 0.040*ELHOM + 3.3600*DELTA_C #1.00E-10; APIP2 + ISOP = 0.960*HOM + 0.480*ROH + 0.480*HCHO + 0.480*MVK + 0.480*HO + 0.480*HO2 + 0.040*ELHOM + 0.7600*DELTA_C #1.00E-10; LIMP2 + APIP1 = 0.960*HOM + 0.480*ROH + 0.480*PINAL + 0.480*HO + 0.480*HO2 + 0.040*ELHOM + 3.3600*DELTA_C #1.00E-10; LIMP2 + LIMP1 = 0.960*HOM + 0.480*ROH + 0.480*LIMAL + 0.480*HO + 0.480*HO2 + 0.040*ELHOM + 3.3600*DELTA_C #1.00E-10; LIMP2 + ISOP = 0.960*HOM + 0.480*ROH + 0.480*HCHO + 0.480*MVK + 0.480*HO + 0.480*HO2 + 0.040*ELHOM + 0.7600*DELTA_C #1.00E-10; APINP2 + APIP1 = 0.960*HOM + 0.480*ROH + 0.480*PINAL + 0.480*NO2 + 0.480*HO2 + 0.040*ELHOM + 0.5200*DELTA_N + 3.3600*DELTA_C #1.00E-10; APINP2 + LIMP1 = 0.960*HOM + 0.480*ROH + 0.480*LIMAL + 0.480*NO2 + 0.480*HO2 + 0.040*ELHOM + 0.5200*DELTA_N + 3.3600*DELTA_C #1.00E-10; APINP2 + ISOP = 0.960*HOM + 0.480*ROH + 0.480*HCHO + 0.480*MVK + 0.480*NO2 + 0.480*HO2 + 0.040*ELHOM + 0.5200*DELTA_N + 0.7600*DELTA_C #1.00E-10; LIMNP2 + APIP1 = 0.960*HOM + 0.480*ROH + 0.480*PINAL + 0.480*NO2 + 0.480*HO2 + 0.040*ELHOM + 0.5200*DELTA_N + 3.3600*DELTA_C #1.00E-10; LIMNP2 + LIMP1 = 0.960*HOM + 0.480*ROH + 0.480*LIMAL + 0.480*NO2 + 0.480*HO2 + 0.040*ELHOM + 0.5200*DELTA_N + 3.3600*DELTA_C #1.00E-10; LIMNP2 + ISOP = 0.960*HOM + 0.480*ROH + 0.480*HCHO + 0.480*MVK + 0.480*NO2 + 0.480*HO2 + 0.040*ELHOM + 0.5200*DELTA_N + 0.7600*DELTA_C #1.00E-10; ! SOA related reactions IEPOX + HO = HO + 5.0000*DELTA_C # 5.78E-11@400; ! VROCIOXY added with behavior like ETHP ! 12.0% by mass (14.8% by mole) SOA yield added ! kOH set to emission weighted value VROCIOXY + HO = 0.852*ETHP + 0.149*ASOATJ + 5.0000*DELTA_SI + 7.2529*DELTA_C # 6.89E-12; ! assume SLOWROC, which has effectively 2.1C, makes ethane-like RO2 with SLOWROC emission weighted kOH SLOWROC + HO = ETHP + 0.00101*ASOATJ + 1.0000*DELTA_N - 1.0070*DELTA_C # 6.55E-14; ! HAP chemistry ! ELD uncommented ACRO photolysis 11/18/21, kept photolysis rate constant that was already here ACRO + HO = 0.570*MACP + 0.430*MCP - 1.0000*DELTA_C # 8.E-12@-380; ACRO + O3 = 0.840*CO + 0.560*HO2 + 0.280*HO + 0.720*HCHO + 0.620*GLY + 0.2000*DELTA_C # 2.9E-19; ACRO + NO3 = 0.680*HCHO + 0.320*MACP + 0.680*XO2 + 0.680*MGLY + 0.320*HNO3 + 0.680*NO2 - 1.0000*DELTA_C # 3.4E-15; ! 0.219*CH4 product removed from ACRO due to fixed CH4 conc ACRO = CO + 0.477*HO2 + 0.250*ETE + 0.354*ACO3 + 0.204*HO + 0.150*HCHO + 0.027*MO2 + 0.6150*DELTA_C # 1.0/; ! BDE13 from SAPRC18/mechgen with MCM rate constant for T10 BDE13 + HO = 0.667*BDE13P + 0.333*UALD + 0.333*HO2 - 0.3330*DELTA_C # 1.48E-11@-448.; BDE13P + NO = 0.968*HO2 + 0.968*NO2 + 0.895*ACRO + 0.895*HCHO + 0.072*FURAN + 0.032*ONIT - 0.0680*DELTA_C # 9.05E-12; BDE13P + NO3 = HO2 + NO2 + 0.925*ACRO + 0.925*HCHO + 0.075*FURAN - 0.0750*DELTA_C #2.3E-12; BDE13P + HO2 = OP2 + 2.0000*DELTA_C # 1.61E-11; BDE13P + MO2 = 0.320*MOH + 1.143*HCHO + 0.870*HO2 + 0.463*ACRO + 0.250*OLT + 0.231*MVK + 0.037*FURAN + 0.019*UALD + 0.1940*DELTA_C # 2.39E-12; BDE13P + ACO3 = 0.700*MO2 + 0.300*ORA2 + 0.800*HO2 + 0.740*ACRO + 0.740*HCHO + 0.185*MVK + 0.060*FURAN + 0.015*UALD + 0.6250*DELTA_C # 1.37E-11; BDE13 + O3 = 0.620*ACRO + 0.630*CO + 0.420*HO2 + 0.080*HO + 0.830*HCHO + 0.170*ETE + 0.3400*DELTA_C # 1.34E-14@2283.; BDE13 + NO3 = 0.900*OLNN + 0.100*OLND + 0.900*ACRO - 1.7000*DELTA_C # 1E-13; ! Furans based on 5 species aggregate using Wang et al. JGR 2021, Schwantes, and Coggon ! Use RACM2 o-xylene RO2+HO2, RACM2 (same as MCM) RO2+NO rate constants ! SOA yield taken from Table S1 of Bruns et al. 2016 Sci Rep and mass removed from KET product FURAN + HO = 0.490*DCB1 + 0.490*HO2 + 0.510*FURANO2 # 5.01E-11; FURANO2 + NO = 0.080*ONIT + 0.920*NO2 + 0.920*FURANONE + 0.750*HO2 + 0.170*MO2 + 0.8300*DELTA_C # 2.7E-12 @ -360.; FURANO2 + HO2 = 0.600*OP2 + 0.400*FURANONE + 0.400*HO + 0.320*HO2 + 0.080*MO2 + 2.1200*DELTA_C # 3.75E-13 @ -980.; FURANONE + HO = 0.650*KET + 0.310*GLY + 0.660*HO2 + 0.340*MO2 + 0.430*CO + 0.040*ASOATJ - 0.9200*DELTA_C # 4.40E-11; FURAN + O3 = 0.020*HO + ALD + 2.0000*DELTA_C # 3.43E-17; FURAN + NO3 = NO2 + 0.800*DCB1 + 0.200*DCB3 + 0.2000*DELTA_C # 8.99E-12; ! PROG based on Coggon et al. and MCM http://mcm.york.ac.uk/browse.htt?species=PROPGLY PROG + HO = 0.613*HKET + 0.387*ALD + HO2 #1.20E-11; ! Sesquiterpenes based on MCM b-caryophyllene with autoxidation ! added to O3 channel following Richters et al. 2016 ES&T SESQ + NO3 = SESQNRO2 # 1.9E-11; SESQNRO2 + HO2 = VROCP0OXY4 + 1.0000*DELTA_N + 5.0000*DELTA_C # 2.84E-13 @ -1300.0; SESQNRO2 + NO = VROCP3OXY2 + 2.000*NO2 + 4.0000*DELTA_C # 2.70E-12 @ -360.0; SESQNRO2 + NO3 = VROCP3OXY2 + 2.000*NO2 + 4.0000*DELTA_C # 2.3E-12; SESQ + O3 = 0.982*VROCP3OXY2 + 0.018*VROCN2OXY2 + 3.8920*DELTA_C # 1.2E-14; SESQ + HO = SESQRO2 # 1.97E-10; SESQRO2 + HO2 = VROCP0OXY2 + 1.0000*DELTA_C # 2.84E-13 @ -1300.0; SESQRO2 + NO3 = VROCP3OXY2 + 1.0000*DELTA_N + 4.0000*DELTA_C # 2.3E-12; SESQRO2 + NO = 0.247*VROCP1OXY3 + 0.753*VROCP3OXY2 + 0.753*NO2 + 0.2470*DELTA_N + 4.0000*DELTA_C # 2.70E-12 @ -360.0; ! GLY and MGLY uptake GLY = AGLYJ - 4.0000*DELTA_C # 1.0~; MGLY = AGLYJ - 3.0000*DELTA_C # 1.0~; ! heteorogeneous reactions from hetchem and poaaging routines version 5.0.2 N2O5 = 2.000*HNO3 # 1.0~; NO2 = 0.500*HONO + 0.500*HNO3 # 1.0~; ! hetorogeneous uptake of HO2 HO2 = # 1.0~; ! heterogeneous uptake of NO3 NO3 = HNO3 # 1.0~; ! Simplified ozone loss from oceanic halogens excluding chlorine O3 = %H # 6.7006E-11@-10.7435 & 3.4153E-08@0.6713 & 2.0E-6; IEPOX = IEPOXP + 5.0000*DELTA_C # 1.0~; IEPOXP = AISO3NOSJ - 5.0000*DELTA_C # 1.0~; IEPOXP + ASO4J = AISO3OSJ - 5.0000*DELTA_C # 1.0~; ! AMORE Heterogeneous reactions IPX = AISO4J # 2.0~; INALD = AISO5J + HNO3 # 0.5~; ! IEPOX = AISO3J # 1.0~; ! ROCALK chemistry based on GECKO (Lannuque et al. 2018 ACP) ! with autoxidation from Praske et al. 2018 PNAS ! HO not regenerated due to actual radical chemistry VROCP6ALK + HO = VROCP6ALKP # 1.53e-11; VROCP5ALK + HO = VROCP5ALKP # 1.68e-11; VROCP4ALK + HO = VROCP4ALKP # 2.24e-11; VROCP3ALK + HO = VROCP3ALKP # 2.67e-11; VROCP2ALK + HO = VROCP2ALKP # 3.09e-11; VROCP1ALK + HO = VROCP1ALKP # 3.38e-11; HC10 + HO = HC10P # 1.10e-11; ! RO+NO updated to MCM values to include T dep VROCP6ALKP + NO = 0.720*VROCP6ALKP2 + 0.280*VROCP4OXY2 + 0.720*NO2 + 0.2800*DELTA_N + 1.1200*DELTA_C # 2.7e-12 @ -360.; VROCP5ALKP + NO = 0.720*VROCP5ALKP2 + 0.280*VROCP3OXY2 + 0.720*NO2 + 0.2800*DELTA_N + 0.8400*DELTA_C # 2.7e-12 @ -360.; VROCP4ALKP + NO = 0.720*VROCP4ALKP2 + 0.280*VROCP2OXY2 + 0.720*NO2 + 0.2800*DELTA_N + 1.6800*DELTA_C # 2.7e-12 @ -360.; VROCP3ALKP + NO = 0.720*VROCP3ALKP2 + 0.280*VROCP1OXY1 + 0.720*NO2 + 0.2800*DELTA_N + 1.1200*DELTA_C # 2.7e-12 @ -360.; VROCP2ALKP + NO = 0.720*VROCP2ALKP2 + 0.280*VROCP0OXY2 + 0.720*NO2 + 0.2800*DELTA_N + 2.8000*DELTA_C # 2.7e-12 @ -360.; VROCP1ALKP + NO = 0.720*VROCP1ALKP2 + 0.280*VROCN1OXY1 + 0.720*NO2 + 0.2800*DELTA_N + 1.9600*DELTA_C # 2.7e-12 @ -360.; HC10P + NO = 0.740*HC10P2 + 0.260*ONIT + 0.740*NO2 + 1.5600*DELTA_C # 2.7E-12 @ -360.; VROCP6ALKP + NO3 = VROCP6ALKP2 + NO2 # 2.30e-12; VROCP5ALKP + NO3 = VROCP5ALKP2 + NO2 # 2.30e-12; VROCP4ALKP + NO3 = VROCP4ALKP2 + NO2 # 2.30e-12; VROCP3ALKP + NO3 = VROCP3ALKP2 + NO2 # 2.30e-12; VROCP2ALKP + NO3 = VROCP2ALKP2 + NO2 # 2.30e-12; VROCP1ALKP + NO3 = VROCP1ALKP2 + NO2 # 2.30e-12; HC10P + NO3 = HC10P2 + NO2 # 2.30e-12; VROCP6ALKP + HO2 = VROCP3OXY2 + 2.0000*DELTA_C # 2.17e-11; VROCP5ALKP + HO2 = VROCP2OXY2 + 2.0000*DELTA_C # 2.20e-11; VROCP4ALKP + HO2 = VROCP1OXY1 + 1.0000*DELTA_C # 2.25e-11; VROCP3ALKP + HO2 = VROCP0OXY2 + 7.0000*DELTA_C # 2.26e-11; VROCP2ALKP + HO2 = VROCN1OXY1 + 4.0000*DELTA_C # 2.27e-11; VROCP1ALKP + HO2 = VROCN2OXY2 + 10.0000*DELTA_C # 2.27e-11; HC10P + HO2 = OP2 + 8.0000*DELTA_C # 2.66e-13 @ -1300.; VROCP6ALKP2 = HO2 + VROCP3OXY2 + 2.0000*DELTA_C # 1.88e-1; VROCP5ALKP2 = HO2 + VROCP2OXY2 + 2.0000*DELTA_C # 1.88e-1; VROCP4ALKP2 = HO2 + VROCP1OXY1 + 1.0000*DELTA_C # 1.88e-1; VROCP3ALKP2 = HO2 + VROCP0OXY2 + 7.0000*DELTA_C # 1.88e-1; VROCP2ALKP2 = HO2 + VROCN1OXY1 + 4.0000*DELTA_C # 1.88e-1; VROCP1ALKP2 = HO2 + VROCN2OXY2 + 10.0000*DELTA_C # 1.88e-1; HC10P2 = HO2 + VROCP4OXY2 + 1.0000*DELTA_C # 1.88e-1; ! RO2+NO,NO3 products updated to assume alkoxy radical proceeds ! entirely through ketone channel (same as MCM) VROCP6ALKP2 + NO = 0.140*VROCP2OXY2 + 0.860*NO2 + 0.860*VROCP3OXY2 + 0.860*HO2 + 0.1400*DELTA_N + 1.8600*DELTA_C # 2.7E-12 @ -360.; VROCP5ALKP2 + NO = 0.140*VROCP1OXY3 + 0.860*NO2 + 0.860*VROCP2OXY2 + 0.860*HO2 + 0.1400*DELTA_N + 2.1400*DELTA_C # 2.7E-12 @ -360.; VROCP4ALKP2 + NO = 0.140*VROCP0OXY2 + 0.860*NO2 + 0.860*VROCP1OXY1 + 0.860*HO2 + 0.1400*DELTA_N + 1.4200*DELTA_C # 2.7E-12 @ -360.; VROCP3ALKP2 + NO = 0.140*VROCN1OXY1 + 0.860*NO2 + 0.860*VROCP0OXY2 + 0.860*HO2 + 0.1400*DELTA_N + 6.1600*DELTA_C # 2.7E-12 @ -360.; VROCP2ALKP2 + NO = 0.140*VROCN2OXY2 + 0.860*NO2 + 0.860*VROCN1OXY1 + 0.860*HO2 + 0.1400*DELTA_N + 4.4200*DELTA_C # 2.7E-12 @ -360.; VROCP1ALKP2 + NO = VROCN2OXY2 + 0.860*NO2 + 0.860*HO2 + 0.1400*DELTA_N + 10.0000*DELTA_C # 2.7E-12 @ -360.; HC10P2 + NO = 0.120*ONIT + 0.880*NO2 + 0.880*KET + 0.880*HO2 + 5.1200*DELTA_C # 2.7E-12 @ -360.; VROCP6ALKP2 + NO3 = NO2 + VROCP3OXY2 + HO2 + 2.0000*DELTA_C # 2.30e-12; VROCP5ALKP2 + NO3 = NO2 + VROCP2OXY2 + HO2 + 2.0000*DELTA_C # 2.30e-12; VROCP4ALKP2 + NO3 = NO2 + VROCP1OXY1 + HO2 + 1.0000*DELTA_C # 2.30e-12; VROCP3ALKP2 + NO3 = NO2 + VROCP0OXY2 + HO2 + 7.0000*DELTA_C # 2.30e-12; VROCP2ALKP2 + NO3 = NO2 + VROCN1OXY1 + HO2 + 4.0000*DELTA_C # 2.30e-12; VROCP1ALKP2 + NO3 = NO2 + VROCN2OXY2 + HO2 + 10.0000*DELTA_C # 2.30e-12; HC10P2 + NO3 = NO2 + KET + HO2 + 5.0000*DELTA_C # 2.30e-12; VROCP6ALKP2 + HO2 = VROCP1OXY3 + 2.0000*DELTA_C # 2.17e-11; VROCP5ALKP2 + HO2 = VROCP0OXY2 # 2.20e-11; VROCP4ALKP2 + HO2 = VROCN1OXY1 - 2.0000*DELTA_C # 2.25e-11; VROCP3ALKP2 + HO2 = VROCN2OXY2 + 4.0000*DELTA_C # 2.26e-11; VROCP2ALKP2 + HO2 = VROCN2OXY2 + 7.0000*DELTA_C # 2.27e-11; VROCP1ALKP2 + HO2 = VROCN2OXY2 + 10.0000*DELTA_C # 2.27e-11; HC10P2 + HO2 = VROCP2OXY2 - 2.0000*DELTA_C # 2.66e-13 @ -1300.; ! IVOC aromatic oxidation following MCM with autoxidation ! added to bicyclic RO2 channel. Epoxide channel eliminated ! and nitrate yield reduced following Xu et al. JPCA 2020. ! RO2+RO2 rates from RACM2 aromatic RO2s ! ROCP6ARO VROCP6ARO + HO = 0.840*VROCP6AROP + 0.160*HO2 + 0.160*VROCP4OXY2 + 0.6400*DELTA_C # 1.81E-11; VROCP6AROP + HO2 = 0.0595*VROCP4OXY2 + 0.9048*VROCP1OXY3 + 0.0357*VROCN2OXY4 + 2.1190*DELTA_C # 2.91E-13 @ -1300.; VROCP6AROP + NO = 0.0001*VROCP4OXY2 + 0.0018*VROCP2OXY2 + 0.0001*VROCN1OXY3 + 0.998*NO2 + 0.998*HO2 + 0.0594*BALD + 0.4693*GLY + 0.4693*MGLY + 0.4693*FURANONE + 0.4693*DCB2 + 0.0020*DELTA_N + 5.5210*DELTA_C # 2.7E-12 @ -360.; VROCP6AROP + NO3 = NO2 + 0.9405*HO2 + 0.0595*BALD + 0.4702*GLY + 0.4702*MGLY + 0.4702*FURANONE + 0.4702*DCB2 + 5.5305*DELTA_C # 2.3E-12; VROCP6AROP + MO2 = 0.680*HCHO + 1.3105*HO2 + 0.320*MOH + 0.0595*BALD + 0.4702*GLY + 0.4702*MGLY + 0.4702*FURANONE + 0.4702*DCB2 + 5.5305*DELTA_C # 3.56E-14 @ -708.; VROCP6AROP + ACO3 = 0.700*MO2 + 0.9405*HO2 + 0.300*ORA2 + 0.0595*BALD + 0.4702*GLY + 0.4702*MGLY + 0.4702*FURANONE + 0.4702*DCB2 + 6.2305*DELTA_C # 7.4E-13 @ -765.; ! ROCP5ARO VROCP5ARO + HO = 0.840*VROCP5AROP + 0.160*HO2 + 0.160*VROCP3OXY2 + 0.4800*DELTA_C # 1.81E-11; VROCP5AROP + HO2 = 0.0595*VROCP3OXY2 + 0.9048*VROCP0OXY2 + 0.0357*VROCN2OXY4 + 0.2856*DELTA_C # 2.91E-13 @ -1300.; VROCP5AROP + NO = 0.0001*VROCP3OXY2 + 0.0018*VROCP1OXY3 + 0.0001*VROCN2OXY4 + 0.998*NO2 + 0.998*HO2 + 0.0594*VROCP4OXY2 + 0.4693*GLY + 0.4693*MGLY + 0.4693*FURANONE + 0.4693*DCB2 + 0.0020*DELTA_N + 6.4039*DELTA_C # 2.7E-12 @ -360.; VROCP5AROP + NO3 = NO2 + 0.9405*HO2 + 0.0595*VROCP4OXY2 + 0.4702*GLY + 0.4702*MGLY + 0.4702*FURANONE + 0.4702*DCB2 + 6.4115*DELTA_C # 2.3E-12; VROCP5AROP + MO2 = 0.680*HCHO + 1.3105*HO2 + 0.320*MOH + 0.0595*VROCP4OXY2 + 0.4702*GLY + 0.4702*MGLY + 0.4702*FURANONE + 0.4702*DCB2 + 6.4115*DELTA_C # 3.56E-14 @ -708.; VROCP5AROP + ACO3 = 0.700*MO2 + 0.9405*HO2 + 0.300*ORA2 + 0.0595*VROCP4OXY2 + 0.4702*GLY + 0.4702*MGLY + 0.4702*FURANONE + 0.4702*DCB2 + 7.1115*DELTA_C # 7.4E-13 @ -765.; ! NAPH NAPH + HO = 0.840*NAPHP + 0.160*HO2 + 0.160*VROCP3OXY2 - 0.1600*DELTA_C # 2.31E-11; NAPHP + HO2 = 0.0595*VROCP3OXY2 + 0.9048*VROCP1OXY3 + 0.0357*VROCN2OXY8 - 0.8572*DELTA_C # 2.91E-13 @ -1300.; NAPHP + NO = 0.0595*VROCP4OXY2 + 0.0018*VROCP2OXY2 + 0.0001*VROCN2OXY8 + 0.998*NO2 + 0.998*HO2 + 0.4693*GLY + 0.4693*MGLY + 0.4693*FURANONE + 0.4693*DCB2 + 0.0020*DELTA_N + 2.4027*DELTA_C # 2.7E-12 @ -360.; NAPHP + NO3 = NO2 + 0.9405*HO2 + 0.0595*VROCP4OXY2 + 0.4702*GLY + 0.4702*MGLY + 0.4702*FURANONE + 0.4702*DCB2 + 2.4115*DELTA_C # 2.3E-12; NAPHP + MO2 = 0.680*HCHO + 1.3105*HO2 + 0.320*MOH + 0.0595*VROCP4OXY2 + 0.4702*GLY + 0.4702*MGLY + 0.4702*FURANONE + 0.4702*DCB2 + 2.4115*DELTA_C # 3.56E-14 @ -708.; NAPHP + ACO3 = 0.700*MO2 + 0.9405*HO2 + 0.300*ORA2 + 0.0595*VROCP4OXY2 + 0.4702*GLY + 0.4702*MGLY + 0.4702*FURANONE + 0.4702*DCB2 + 3.1115*DELTA_C # 7.4E-13 @ -765.; ! Multigenerational oxidation of LVOCs and SVOCs ! Aging of ROCOXY with explicit low MW species VROCN2OXY8 + HO = HO + 0.0854*VROCN2OXY8 + 0.2581*DCB1 + 0.2581*MEK + 0.2581*ACD + 0.2581*ALD + 0.2581*MO2 + 0.2581*ETHP + 0.2581*HC3P + 0.2581*MEKP + 0.2078*DELTA_C # 5.90e-11; VROCN2OXY4 + HO = HO + 0.464*VROCN2OXY8 + 0.1977*VROCN2OXY4 + 0.0121*VROCN1OXY6 + 0.0152*VROCN1OXY3 + 0.0624*VROCP0OXY4 + 0.0388*VROCP1OXY3 + 0.0491*VROCP2OXY2 + 0.0398*VROCP3OXY2 + 0.0183*VROCP4OXY2 + 0.0308*OP3 + 0.004*OP2 + 0.0794*DCB1 + 0.0794*MEK + 0.0794*KET + 0.0794*ACD + 0.0794*ALD + 0.0794*MO2 + 0.0794*ETHP + 0.0794*HC3P + 0.0794*MEKP + 0.0794*HC5P + 0.0794*KETP - 0.2954*DELTA_C # 6.07e-11; VROCN2OXY2 + HO = HO + 0.1041*VROCN2OXY8 + 0.5638*VROCN2OXY4 + 0.2141*VROCN2OXY2 + 0.0153*VROCN1OXY6 + 0.0298*VROCN1OXY3 + 0.0096*VROCN1OXY1 + 0.0189*VROCP0OXY4 + 0.0456*VROCP0OXY2 + 0.0314*VROCP1OXY3 + 0.0199*VROCP1OXY1 + 0.0459*VROCP2OXY2 + 0.0452*VROCP3OXY2 + 0.0455*VROCP4OXY2 + 0.0325*VROCP5OXY1 + 0.0369*VROCP6OXY1 + 0.0026*OP3 + 0.039*DCB1 + 0.039*HKET + 0.039*MEK + 0.039*ACD + 0.039*ALD + 0.039*MO2 + 0.039*ETHP + 0.039*HC3P + 0.039*MEKP + 0.0925*HC5P + 0.5632*DELTA_C # 5.54e-11; VROCN1OXY6 + HO = HO + 0.2036*VROCN2OXY8 + 0.0071*VROCN2OXY4 + 0.184*DCB1 + 0.184*MEK + 0.184*KET + 0.184*ACD + 0.184*ALD + 0.184*MO2 + 0.184*ETHP + 0.184*HC3P + 0.184*MEKP + 0.184*HC5P + 0.2406*DELTA_C # 5.63e-11; VROCN1OXY3 + HO = HO + 0.2792*VROCN2OXY8 + 0.4025*VROCN2OXY4 + 0.0088*VROCN2OXY2 + 0.0319*VROCN1OXY6 + 0.0076*VROCN1OXY3 + 0.0194*VROCP0OXY4 + 0.0104*VROCP0OXY2 + 0.051*VROCP1OXY3 + 0.0075*VROCP1OXY1 + 0.0512*VROCP2OXY2 + 0.0462*VROCP3OXY2 + 0.0512*VROCP4OXY2 + 0.0138*VROCP5OXY1 + 0.0135*OP2 + 0.0646*DCB1 + 0.0646*HKET + 0.0646*MEK + 0.0646*ACD + 0.0646*ALD + 0.0646*MO2 + 0.0646*ETHP + 0.0646*HC3P + 0.0646*MEKP + 0.1753*HC5P - 0.2888*DELTA_C # 5.46e-11; VROCN1OXY1 + HO = HO + 0.0074*VROCN2OXY8 + 0.119*VROCN2OXY4 + 0.7261*VROCN2OXY2 + 0.0122*VROCN1OXY6 + 0.0305*VROCN1OXY3 + 0.007*VROCN1OXY1 + 0.0291*VROCP0OXY4 + 0.0454*VROCP0OXY2 + 0.0234*VROCP1OXY3 + 0.0352*VROCP1OXY1 + 0.0624*VROCP2OXY2 + 0.0518*VROCP3OXY2 + 0.0509*VROCP4OXY2 + 0.0347*VROCP5OXY1 + 0.0748*VROCP6OXY1 + 0.0163*OP3 + 0.0062*OP2 + 0.0244*DCB1 + 0.0244*HKET + 0.0244*MEK + 0.0244*ACD + 0.0244*ALD + 0.0244*MO2 + 0.0244*ETHP + 0.0244*HC3P + 0.0244*MEKP + 0.0537*HC5P + 0.0078*DELTA_C # 4.50e-11; VROCP0OXY4 + HO = HO + 0.2822*VROCN2OXY8 + 0.1165*VROCN2OXY4 + 0.032*VROCN1OXY6 + 0.0183*VROCN1OXY3 + 0.0011*VROCP0OXY4 + 0.066*VROCP2OXY2 + 0.0535*VROCP3OXY2 + 0.0246*VROCP4OXY2 + 0.0054*OP2 + 0.1068*DCB1 + 0.1068*MEK + 0.1068*KET + 0.1068*ACD + 0.1068*ALD + 0.1068*MO2 + 0.1068*ETHP + 0.1068*HC3P + 0.1068*MEKP + 0.1068*HC5P + 0.1068*KETP + 0.4786*DELTA_C # 5.17e-11; VROCP0OXY2 + HO = HO + 0.0659*VROCN2OXY8 + 0.4579*VROCN2OXY4 + 0.1156*VROCN2OXY2 + 0.0325*VROCN1OXY6 + 0.0657*VROCN1OXY3 + 0.0046*VROCN1OXY1 + 0.0307*VROCP0OXY4 + 0.0024*VROCP0OXY2 + 0.0395*VROCP1OXY3 + 0.0215*VROCP1OXY1 + 0.0539*VROCP2OXY2 + 0.0516*VROCP3OXY2 + 0.0519*VROCP4OXY2 + 0.0371*VROCP5OXY1 + 0.0421*VROCP6OXY1 + 0.0105*OP3 + 0.0445*DCB1 + 0.0445*HKET + 0.0445*MEK + 0.0445*ACD + 0.0445*ALD + 0.0445*MO2 + 0.0445*ETHP + 0.0445*HC3P + 0.0445*MEKP + 0.1055*HC5P - 0.0259*DELTA_C # 4.73e-11; VROCP1OXY3 + HO = HO + 0.1778*VROCN2OXY8 + 0.1924*VROCN2OXY4 + 0.0004*VROCN2OXY2 + 0.074*VROCN1OXY6 + 0.0452*VROCN1OXY3 + 0.0631*VROCP0OXY4 + 0.0007*VROCP0OXY2 + 0.0006*VROCP1OXY3 + 0.0227*VROCP2OXY2 + 0.0585*VROCP3OXY2 + 0.0649*VROCP4OXY2 + 0.0174*VROCP5OXY1 + 0.0154*OP3 + 0.017*OP2 + 0.0818*DCB1 + 0.0818*HKET + 0.0818*MEK + 0.0818*ACD + 0.0818*ALD + 0.0818*MO2 + 0.0818*ETHP + 0.0818*HC3P + 0.0818*MEKP + 0.222*HC5P + 0.6832*DELTA_C # 4.60e-11; VROCP1OXY1 + HO = HO + 0.0023*VROCN2OXY8 + 0.134*VROCN2OXY4 + 0.3349*VROCN2OXY2 + 0.008*VROCN1OXY6 + 0.1193*VROCN1OXY3 + 0.0758*VROCN1OXY1 + 0.0292*VROCP0OXY4 + 0.0766*VROCP0OXY2 + 0.0277*VROCP1OXY3 + 0.0118*VROCP1OXY1 + 0.0651*VROCP2OXY2 + 0.0709*VROCP3OXY2 + 0.0668*VROCP4OXY2 + 0.0423*VROCP5OXY1 + 0.0911*VROCP6OXY1 + 0.0066*OP3 + 0.0025*OP2 + 0.0297*DCB1 + 0.0297*HKET + 0.0297*MEK + 0.0297*ACD + 0.0297*ALD + 0.0297*MO2 + 0.0297*ETHP + 0.0297*HC3P + 0.0297*MEKP + 0.0654*HC5P + 0.3011*DELTA_C # 3.80e-11; VROCP2OXY2 + HO = HO + 0.0445*VROCN2OXY8 + 0.1726*VROCN2OXY4 + 0.0104*VROCN2OXY2 + 0.0513*VROCN1OXY6 + 0.1118*VROCN1OXY3 + 0.0013*VROCN1OXY1 + 0.1337*VROCP0OXY4 + 0.0403*VROCP0OXY2 + 0.0511*VROCP1OXY3 + 0.0068*VROCP1OXY1 + 0.0236*VROCP2OXY2 + 0.0293*VROCP3OXY2 + 0.0733*VROCP4OXY2 + 0.0523*VROCP5OXY1 + 0.0595*VROCP6OXY1 + 0.0041*OP3 + 0.0023*OP2 + 0.0628*DCB1 + 0.0628*HKET + 0.0628*MEK + 0.0628*ACD + 0.0628*ALD + 0.0628*MO2 + 0.0628*ETHP + 0.0628*HC3P + 0.0628*MEKP + 0.1489*HC5P + 0.4027*DELTA_C # 3.93e-11; VROCP3OXY2 + HO = HO + 0.0317*VROCN2OXY8 + 0.0765*VROCN2OXY4 + 0.0009*VROCN2OXY2 + 0.0526*VROCN1OXY6 + 0.0489*VROCN1OXY3 + 0.155*VROCP0OXY4 + 0.0155*VROCP0OXY2 + 0.1051*VROCP1OXY3 + 0.0013*VROCP1OXY1 + 0.0535*VROCP2OXY2 + 0.0086*VROCP3OXY2 + 0.0426*VROCP4OXY2 + 0.0582*VROCP5OXY1 + 0.0661*VROCP6OXY1 + 0.0506*OP3 + 0.0114*OP2 + 0.0698*DCB1 + 0.0698*HKET + 0.0698*MEK + 0.0698*ACD + 0.0698*ALD + 0.0698*MO2 + 0.0698*ETHP + 0.0698*HC3P + 0.0698*MEKP + 0.1656*HC5P + 0.4732*DELTA_C # 3.52e-11; VROCP4OXY2 + HO = HO + 0.0117*VROCN2OXY8 + 0.0167*VROCN2OXY4 + 0.048*VROCN1OXY6 + 0.0246*VROCN1OXY3 + 0.0881*VROCP0OXY4 + 0.0916*VROCP1OXY3 + 0.0073*VROCP1OXY1 + 0.0972*VROCP2OXY2 + 0.0456*VROCP3OXY2 + 0.0024*VROCP4OXY2 + 0.0479*VROCP5OXY1 + 0.0745*VROCP6OXY1 + 0.0607*OP3 + 0.0155*OP2 + 0.0786*DCB1 + 0.0786*HKET + 0.0786*MEK + 0.0786*ACD + 0.0786*ALD + 0.0786*MO2 + 0.0786*ETHP + 0.0786*HC3P + 0.0786*MEKP + 0.173*HC5P - 0.3482*DELTA_C # 3.12e-11; VROCP5OXY1 + HO = HO + 0.0103*VROCN2OXY4 + 0.0006*VROCN2OXY2 + 0.009*VROCN1OXY6 + 0.0146*VROCN1OXY3 + 0.0702*VROCP0OXY4 + 0.0153*VROCP0OXY2 + 0.1038*VROCP1OXY3 + 0.0031*VROCP1OXY1 + 0.165*VROCP2OXY2 + 0.1566*VROCP3OXY2 + 0.0724*VROCP4OXY2 + 0.0062*VROCP5OXY1 + 0.1398*VROCP6OXY1 + 0.0216*OP3 + 0.0384*OP2 + 0.0526*DCB1 + 0.0526*HKET + 0.0526*MEK + 0.0526*ACD + 0.0526*ALD + 0.0526*MO2 + 0.0526*ETHP + 0.0526*HC3P + 0.0526*MEKP + 0.128*HC5P + 0.5282*DELTA_C # 2.40e-11; VROCP6OXY1 + HO = HO + 0.0061*VROCN1OXY6 + 0.0049*VROCN1OXY3 + 0.0224*VROCP0OXY4 + 0.0503*VROCP1OXY3 + 0.0022*VROCP1OXY1 + 0.0879*VROCP2OXY2 + 0.1384*VROCP3OXY2 + 0.1463*VROCP4OXY2 + 0.0432*VROCP5OXY1 + 0.0957*VROCP6OXY1 + 0.0316*OP3 + 0.0585*OP2 + 0.0571*DCB1 + 0.0571*HKET + 0.0571*MEK + 0.0571*ACD + 0.0571*ALD + 0.0571*MO2 + 0.0571*ETHP + 0.0571*HC3P + 0.0571*MEKP + 0.1544*HC5P + 0.1638*DELTA_C # 2.05e-11; OP3 + HO = HO + 0.1188*VROCN2OXY8 + 0.0008*VROCN2OXY4 + 0.039*VROCN1OXY6 + 0.0114*VROCP0OXY4 + 0.2266*DCB1 + 0.2266*MEK + 0.2266*ACD + 0.2266*ALD + 0.2266*MO2 + 0.2266*ETHP + 0.2266*HC3P + 0.2266*MEKP + 1.2952*DELTA_C # 4.69e-11; ! ECH4 (emitted methane) ECH4 + HO = MO2 # 2.45E-12 @ 1775.; ! monoterpene nitrate hydrolysis ATRPNJ = AHOMJ + HNO3 - 1.0000*DELTA_N - 1.0000*DELTA_C # 9.26E-05; AHONITJ = AHOMJ + HNO3 - 1.0000*DELTA_N - 1.0000*DELTA_C # 9.26E-05; ! MCM-based styrene chemistry STY + HO = STYP # 5.8E-11; STYP + HO2 = VROCP3OXY2 - 3.0000*DELTA_C # 2.91E-12 @ -1300; STYP + NO = NO2 + HO2 + HCHO + BALD # 2.70E-12 @ -360; STYP + NO3 = NO2 + HO2 + HCHO + BALD # 2.3E-12; STYP + MO2 = 1.370*HO2 + 1.680*HCHO + BALD + 0.320*MOH + 0.0000*DELTA_C # 2.5E-13; STYP + ACO3 = HO2 + HCHO + BALD + 0.700*MO2 + 0.300*ORA2 + 0.7000*DELTA_C # 2.5E-13; END MECH CONSTANTS ATM_AIR = 1.0E+06 ATM_H2 = 0.56 ATM_N2 = 0.7808E+06 ATM_O2 = 0.2095E+06 ATM_CH4 = 1.85 END CONSTANTS ================================================ FILE: CCTM/src/MECHS/cracmm2/pa_cracmm2.ctl ================================================ ! for cracmm1_aq ! IRRTYPE = PARTIAL; DEFINE FAMILY NOX = NO + NO2; DEFINE FAMILY ORG_NO3 = ADCN + ISON + OLND+ OLNN + ONIT + INALD + TRPN + HONIT; DEFINE FAMILY PANS = PAN +PPN +MPAN; DEFINE FAMILY NOZ = PAN + PPN + MPAN + HONO + HNO4 + 2*N2O5 + ADCN + ISON + SESQNRO2 + OLND+ OLNN + ONIT + TRPN + HNO3; DEFINE FAMILY OX = O3 +NO2 +2*NO3 + O3P + O1D +PAN +3*N2O5 + HNO4 +PPN + MPAN; DEFINE FAMILY HOX = HO + HO2; DEFINE FAMILY RO3S = ACO3 + RCO3; DEFINE FAMILY RO2S = MO2 + ACTP + ISOP + KETP + LIMALP + LIMNP1 + LIMNP2 + HC10P + HC10P2 + HC3P + HC5P + LIMP1 + LIMP2 + MACP + MCP + MEKP + MVKP + NAPHP + OLTP + STYP + EBZP + XYL + XO2 + APINP1 + APINP2 + APIP1 + APIP2 + PINALP + BAL1 + BAL2 + BALP + BDE13P + BENP + ETEP + ETHP + FURANO2 + VROCP5AROP + VROCP6AROP + SESQNRO2 + SESQRO2 + UALP + OLIP + ORAP + TOLP + VROCP6ALK + VROCP1ALKP + VROCP2ALKP + VROCP3ALKP + VROCP4ALKP + VROCP5ALKP + VROCP6ALKP + VROCP1ALKP2 + VROCP2ALKP2 + VROCP3ALKP2 + VROCP4ALKP2 + VROCP5ALKP2 + VROCP6ALKP2; DEFINE FAMILY RO2NS = LIMNP1 + LIMNP2 + APINP1 + APINP2 + VROCP1ALKP2 + VROCP2ALKP2 + VROCP3ALKP2 + VROCP4ALKP2 + VROCP5ALKP2 + SESQNRO2 + VROCP6ALKP2 + HC10P2; DEFINE FAMILY RO2OS = MO2 + ACTP + ISOP + KETP + HC10P + HC3P + HC5P + LIMP1 + LIMP2 + MACP + MCP + MEKP + MVKP + NAPHP + OLTP + STYP + EBZP + VROCP5AROP + VROCP6AROP + XYLP + XO2 + APIP1 + APIP2 + PINALP + BAL1 + BAL2 + BALP + BDE13P + BENP + ETEP + ETHP + FURANO2 + SESQRO2 + UALP + OLIP + ORAP + TOLP + VROCP6ALK + VROCP1ALKP + VROCP2ALKP + VROCP3ALKP + VROCP4ALKP + VROCP5ALKP + VROCP6ALKP; DEFINE FAMILY BIO_RO2S = ISOP + LIMALP + LIMNP1 + LIMNP2 + LIMP2 + PINALP + MACP + MVKP + APINP1 + APINP2 + APIP1 + APIP2 + SESQNRO2 + SESQRO2; DEFINE FAMILY AROM_RO2S = BENP + TOLP + XYLP + NAPHP + EBZP + STYP + VROCP5AROP + VROCP6AROP; DEFINE FAMILY ANTHRO_VOC = HCHO + ACD + ACT + UALD + KET + TOL + EBZ + STY + ECH4 + HC5 + HC10 + XYL + ACRO + ALD + BALD + BEN + BDE13 + CSL + DCB1 + EOH + HC3 + ETE + ETEG + ETH + FURAN + GLY + HKET + MACR + MCT + MEK + NAPH + MGLY + MVK + OLI + OLT + ORA1 + ORA2 + PHEN + PROG + VROCIOXY + ROH + SLOWROC; DEFINE FAMILY BIO_VOC = ISO + LIM + LIMAL + PINAL + API + SESQ; DEFINE FAMILY ISOPRENE_SOA = AISO3NOSJ + AISO3OSJ + AISO5J + AISO4J; DEFINE FAMILY ISOPRENE_VOC = ISHP + MVK + MACR + ISON + INO2 + INALD + IPX + IEPOX; DEFINE FAMILY SVSOA_VAPALK = VROCP1ALK; DEFINE FAMILY HVSOA_VAPALK = VROCP2ALK + VROCP3ALK; DEFINE FAMILY LVSOA_VAPOXY = VROCN2OXY2 + VROCN2OXY4 + VROCN2OXY8 + VROCN1OXY1 + VROCN1OXY3 + VROCN1OXY6; DEFINE FAMILY SVSOA_VAPOXY = VROCP0OXY2 + VROCP0OXY4 + VROCP1OXY1 + VROCP1OXY3; DEFINE FAMILY HVSOA_VAPOXY = VROCP2OXY2 + VROCP3OXY2 + OP3; DEFINE FAMILY VROC_OXYS = VROCN2OXY2 + VROCP4OXY2 + VROCN1OXY6 + VROCP3OXY2 + VROCP0OXY4 + VROCIOXY + VROCP0OXY2 + VROCP1OXY3 + VROCP2OXY2 + VROCP1OXY1 + VROCN1OXY1 + VROCN2OXY4 + VROCN1OXY3 + VROCN2OXY8 + VROCP5OXY1 + VROCP6OXY1 + OP3; DEFINE FAMILY VROC_ALKS = VROCP6ALK + VROCP6ALKP + VROCP5ALK + VROCP5ALKP + VROCP4ALK + VROCP4ALKP + VROCP3ALK + VROCP3ALKP + VROCP2ALK + VROCP2ALKP + VROCP1ALK + VROCP1ALKP + VROCP6ALKP2 + VROCP5ALKP2 + VROCP4ALKP2 + VROCP3ALKP2 + VROCP2ALKP2 + VROCP1ALKP2; !!======================================================================= ! Reaction Sum Definitions !======================================================================= DEFINE CYCLE PANcyc = PAN; DEFINE CYCLE PPNcyc = PPN; DEFINE CYCLE MPANcyc = MPAN; DEFINE CYCLE HNO4cyc = HNO4; DEFINE RXNSUM HNO4_HO2cyc = 0.80* + - ; DEFINE RXNSUM HONOcyc = - - ; DEFINE RXNSUM NO3cyc = - ; ! uncertain if only consider reaction involve HOX as reaction orproduct DEFINE RXNSUM CH3OO_cyc = - ; DEFINE RXNSUM C2H6OOcyc = - 0.780* - 0.790* - 0.650* - 0.650* - 0.680* - - - - - - - - 0.602* - 0.720* - 0.480* - 0.085* - 0.850* - - - - - - - - 0.680* - 0.700* - 0.680* - 0.700* - 0.680* - 0.620* - 0.720* - 0.048* - 0.085* - - - - - 0.004* - 0.013* - 0.006* - 0.005* - 0.017* - 0.003* - 0.011* - 0.013* - 0.038* - 0.059*; DEFINE RXNSUM N2O5cyc = - ; DEFINE RXNSUM H2O2_OHcyc = - - ; DEFINE RXNSUM HOXcyc = - ; !====================================================================== ! IPR_OUTPUTS !======================================================================= IPR_OUTPUT O3 = CHEM+DDEP+CLDS+AERO+TRNM; IPR_OUTPUT HNO3 = CHEM+DDEP+CLDS+AERO; IPR_OUTPUT PAN = CHEM+DDEP+CLDS+AERO+TRNM; IPR_OUTPUT N2O5 = CHEM+DDEP+CLDS+AERO; IPR_OUTPUT HCHO = CHEM+DDEP+CLDS+AERO; IPR_OUTPUT SVSOA_VAPALK = CHEM; IPR_OUTPUT HVSOA_VAPALK = CHEM; IPR_OUTPUT LVSOA_VAPOXY = CHEM; IPR_OUTPUT SVSOA_VAPOXY = CHEM; IPR_OUTPUT HVSOA_VAPOXY = CHEM; DEFINE FAMILY EC = AECI + AECJ; IPR_OUTPUT EC = COAG + EMIS + HADV; IPR_OUTPUT ASO4J = COND + COAG + EMIS + CHEM + VDIF + CLDS; IPR_OUTPUT ASO4I = NPF + COND + COAG + EMIS + CHEM + VDIF +CLDS; !IPR_OUTPUT NUMATKN; !IPR_OUTPUT NUMACC; !IPR_OUTPUT NUMCOR; !======================================================================= ! IRR_OUTPUTS ! OX prod and loss ! IRR_OUTPUT O3prod = NETP[O3]; IRR_OUTPUT OxPROD = NETP[OX]; IRR_OUTPUT OxLOSS = NETL[OX]; IRR_OUTPUT OxLOSSHAL = ; ! factors influencing PAN and N2O5 concentrations ! IRR_OUTPUT PANprod = PANcyc[POSONLY]; IRR_OUTPUT PANloss = PANcyc[NEGONLY]; ! RO2 fate IRR_OUTPUT RO2withNOtoNO2 = PROD[NO2] FROM [RO2S] AND [NO] + PROD[NO2] FROM [RO3S] AND [NO]; IRR_OUTPUT NRO2withNOtoNO2 = PROD[NO2] FROM [RO2NS] AND [NO]; IRR_OUTPUT RO2withNOtoNTR = PROD[ORG_NO3] FROM [RO2S] AND [NO]; IRR_OUTPUT RO3withNO2toPAN = PROD[PANS] FROM [RO3S] AND [NO2]; IRR_OUTPUT ROXwithHO2 = LOSS [RO2S] AND [HO2] + LOSS [RO3S] AND [HO2]; IRR_OUTPUT ROXwithRO2 = LOSS [RO2S] AND [RO2S] + LOSS [RO3S] AND [RO2S]; ! VOC fate IRR_OUTPUT ANTHRO_VOC_OH = LOSS[ANTHRO_VOC] AND [HO]; IRR_OUTPUT ANTHRO_VOC_O3 = LOSS[ANTHRO_VOC] AND [O3]; IRR_OUTPUT ANTHRO_VOC_NO3 = LOSS[ANTHRO_VOC] AND [NO3]; IRR_OUTPUT BIO_VOCwithOH = LOSS[BIO_VOC] AND [HO]; IRR_OUTPUT BIO_VOCwithO3 = LOSS[BIO_VOC] AND [O3]; IRR_OUTPUT BIO_VOCwithNO3 = LOSS[BIO_VOC] AND [NO3]; ! New radicals IRR_OUTPUT OHfrO1D = PROD [HO] FROM [O1D]; ! IRR_OUTPUT NewHOxfromHCHO =2.0*; IRR_OUTPUT NewHOxfromH2O2 =2.0*H2O2_OHcyc[POSONLY]; IRR_OUTPUT NewHOxfromHONO = HONOcyc[NEGONLY]; IRR_OUTPUT NewHOxfromHNOX = HNO4cyc[NEGONLY]; ! from photolysis not including HCHO, HNO3 and HNO4 IRR_OUTPUT NewHOxfromhv = + + 1.22* + + + 2.0* + + + + 1.5* + 1.5* + + 2.0* + 2.0* + 2.0* + 2.0* + + ; ! from O3+alkene reactions IRR_OUTPUT NewHOxfromO3 =0.230* + 0.550* + 0.530* +0.500* +0.900* + 0.840*; !radical loss from heterogeneous reactions IRR_OUTPUT HOX_LOSS_HET = ; IRR_OUTPUT NO2_LOSS_HET = ; IRR_OUTPUT NO3_LOSS_HET = ; ! NOz production rates ! use for O3 production efficiency = p(O3)/net_prod(NOz) IRR_OUTPUT NOZ_net_prod = NETP[NOZ]; ! use for O3 production efficiency = p(O3)/net_loss(NOx) IRR_OUTPUT NOX_net_loss = NETL[NOX]; ! use for O3 production efficiency = p(O3)/(NOz)= O3prod/NOZfromNOX IRR_OUTPUT NOZfrNOX = PANcyc[POSONLY] + PPNcyc[POSONLY] + MPANcyc[POSONLY] + HONOcyc[POSONLY] + HNO4cyc[POSONLY] + NO3cyc[POSONLY] + N2O5cyc[POSONLY] + PROD[ORG_NO3] FROM [NOX] + PROD[HNO3] FROM [NOX]; ! ASOAT production IRR_OUTPUT Prod_ASOAT_tot = PROD[ASOATJ]; IRR_OUTPUT Prod_ASOAT_NOz = PROD[ASOATJ] FROM [NOX] + PROD[ASOATJ] FROM [NO3]; ! HNO3 formation pathways IRR_OUTPUT HNO3prod = NETP[HNO3]; IRR_OUTPUT HNO3fromOHNO2 = ; IRR_OUTPUT HNO3fromN2O5 = ; IRR_OUTPUT HNO3fromNO3 = PROD[HNO3] FROM [NO3]; !H2O2 production IRR_OUTPUT H2O2prod = NETP[H2O2]; ! formaldehyde production and loss IRR_OUTPUT HCHOprod_tot = PROD[HCHO]; IRR_OUTPUT HCHOprod_bio = PROD[HCHO] FROM [BIO_VOC] + PROD[HCHO] FROM [BIO_RO2S] + PROD[HCHO] FROM [ISOPRENE_VOC]; IRR_OUTPUT LOSS_HCHO = LOSS[HCHO]; !production and loss for acetaldehyde and acrolein IRR_OUTPUT PROD_CH3CHO = PROD[ACD]; IRR_OUTPUT PROD_ACROLEIN = PROD[ACRO]; IRR_OUTPUT LOSS_ACD = LOSS[ACD]; IRR_OUTPUT LOSS_ACRO = LOSS[ACRO]; ! organic nitrate pathways ! IRR_OUTPUT ORGNO3prod = NETP[ORG_NO3]; IRR_OUTPUT ORGNO3viaISO = PROD[ORG_NO3] FROM [ISOP]; IRR_OUTPUT ORGNO3viaTERP = PROD[TRPN]+PROD[HONIT]; IRR_OUTPUT ISONprod = PROD[ISON]; IRR_OUTPUT TERPNO2fromTERP = PROD[SESQNRO2] FROM [SESQ] + PROD[APINP1] FROM [API] + PROD[APINP2] FROM [API] + PROD[LIMALP] FROM [LIMAL]+ PROD[LIMNP1] FROM [LIMAL] + PROD[LIMNP2] FROM [LIMAL] + PROD[LIMP1] FROM [LIM] + PROD[LIMP2] FROM [LIM]; !SOA from isoprene IRR_OUTPUT SOAviaISOPRENE = PROD[ISOPRENE_SOA]; ENDPA; ================================================ FILE: CCTM/src/MECHS/mechanism_information/cb6r3_ae7_aq/AE7_species_table.md ================================================ **The AE namelist for cb6r3_ae7_aq has the following aerosol species.** | **Model Species** | **Name** | **Molecular Weight** | **Explicit or Lumped** | | ----------------- | ---------------------------------------------------- | -------------------- | ---------------------- | | AAL | Aluminum | 27 | E | | AAVB1 | low volatility organic particulate matter from oxidation of anthropogenic VOCs | 198.0 | L | | AAVB2 | semivolailte organic particulate matter from oxidation of anthropogenic VOCs | 179.0 | L | | AAVB3 | semivolailte organic particulate matter from oxidation of anthropogenic VOCs | 169.0 | L | | AAVB4 | semivolailte organic particulate matter from oxidation of anthropogenic VOCs | 158.0 | L | | ACA | Calcium | 40.1 | E | | ACL | Chloride | 35.5 | E | | ACORS | Anthropogenic Coarse-mode particle mass | 100.0 | L | | AEC | Elemental Carbon | 12 | E | | AFE | Iron | 55.8 | E | | AGLY | Glyoxal and Methylglyoxal SOA | 66.4 | L | | AH2O | Water | 18 | E | | AH3OP | Hydronium Ion | 19 | E | | AISO1 | Semivolatile SOA Product from Isoprene | 132.0 | L | | AISO2 | High-Volatility SOA Product from Isoprene | 133.0 | L | | AISO3 | Acid-Catalyzed Isoprene SOA compounds | 168.2 | L | | AIVPO1 | Intermediate Volatility Primary Organic Compounds | 266 | L | | AK | Potassium | 39.1 | E | | ALVOO1 | Low Volatility Oxidized Combustion Organic Compounds | 136 | L | | ALVOO2 | Low Volatility Oxidized Combustion Organic Compounds | 136 | L | | ALVPO1 | Low Volatility Primary Organic Compounds | 218 | L | | AMG | Magnesium | 24.3 | E | | AMN | Manganese | 54.9 | E | | AMT1 | low volatility particulate matter from monoterpene photoxidation, C*=0.01 ug/m3 | 200.0 | L | | AMT2 | low volatility particulate matter from monoterpene photoxidation, C*=0.1 ug/m3 | 300.0 | L | | AMT3 | semivolailte particulate matter from monoterpene photoxidation, C*=1 ug/m3 | 186.0 | L | | AMT4 | semivolatile particulate matter from monoterpene photoxidation, C*=10 ug/m3 | 184.0 | L | | AMT5 | semivolatile particulate matter from monoterpene photoxidation, C*=100 ug/m3 | 170.0 | L | | AMT6 | semivolatile particulate matter from monoterpene photoxidation, C*=1000 ug/m3 | 168.0 | L | | AMTNO3J | semivolatile organic nitrates from monoterpene oxidation (Should not to be included for tracking nitrogen) | 231.0 | L | | AMTHYDJ | organic pseudo-hydrolysis accretion product from monoterpene organic nitrates (AMTNO3J) | 168.0| L | | ANA | Sodium | 23 | E | | ANH4 | Ammonium | 18 | E | | ANO3 | Nitrate | 62 | E | | AOLGA | Oligomer products of anthropogenic SOA compounds | 206.0 | L | | AOLGB | Oligomer products of biogenic SOA compounds | 248.0 | L | | AORGC | Glyoxal and Methylglyoxal SOA | 177.0 | L | | AORGH2O | Water associated with organic species of particulate matter | 18.0 | E | | AOTHR | Other Particulate Mass | 200 | L | | APCSO | Potential Combustion SOA | 170 | L | | APNCOM | Non-Carbon Organic Matter associated with APOC | 220.0 | L | | APOC | Primary Organic Carbon | 220.0 | L | | ASEACAT | Sea spray cations | 23.75 | L | | ASI | Silicon | 28.1 | E | | ASO4 | Sulfate | 96 | E | | ASOIL | Lumped crustal species | 100.0 | L | | ASQT | Semivolatile SOA Product from Sesquiterpenes | 273.0 | L | | ASVOO1 | Semivolatile Oxidized Combustion Organic Compounds | 135 | L | | ASVOO2 | Semivolatile Oxidized Combustion Organic Compounds | 135 | L | | ASVOO3 | Semivolatile Oxidized Combustion Organic Compounds | 134 | L | | ASVPO1 | Semivolatile Primary Organic Compounds | 230 | L | | ASVPO2 | Semivolatile Primary Organic Compounds | 241 | L | | ASVPO3 | Semivolatile Primary Organic Compounds | 253 | L | | ATI | Titanium | 47.9 | E | | NUMACC | Accum. Mode Number Conc | NA | NA | | NUMAIT | Aitken Mode Number Conc | NA | NA | | NUMCOR | Coarse Mode Number Conc | NA | NA | | SRFACC | Accum. Mode Surface Area Conc | NA | NA | | SRFAIT | Aitken Mode Surface Area Conc | NA | NA | | SRFCOR | Coarse Mode Surface Area Conc | NA | NA | Note that for each aerosol mass species, a letter will be appended to the names below in order to designate the size, or mode, of the aerosol being represented: I = Aitken mode, J = Accumulation mode, K = Coarse mode. ================================================ FILE: CCTM/src/MECHS/mechanism_information/cb6r3_ae7_aq/NR7_species_table.md ================================================ **The NR namelist for cb6r3_ae7_aq has the following gas phase species.** | **Model Species** | **Name** | **Molecular Weight** | **Explicit or Lumped** | | ----------------- | ---------------------------------------------------- | -------------------- | ---------------------- | | LVPCSOG | surrogate SOA precursor gas for combustion/anthropogenic sources | 170.0 | L | | NH3 | ammonia | 17.0 | E | | SVMT1 | low volatility gas from monoterpene photoxidation | 300.0 | L | | SVMT2 | low volatility gas from monoterpene photoxidation | 200.0 | L | | SVMT3 | semivolatile gas from monoterpene photoxidation | 186.0 | L | | SVMT4 | semivolatile gas from monoterpene photoxidation | 184.0 | L | | SVMT5 | semivolatile gas from monoterpene photoxidation | 170.0 | L | | SVMT6 | semivolatile gas from monoterpene photoxidation | 168.0 | L | | SVISO1 | semivolatile gas of secondary aerosol material from isoprene | 132.0 | L | | SVISO2 | semivolatile gas of secondary aerosol material from isoprene | 133.0 | L | | SVSQT | semivolatile gas of secondary aerosol material from sesquiterpenes | 273.0 | L | ================================================ FILE: CCTM/src/MECHS/mechanism_information/cb6r3_ae7_aq/cb6r3_ae7_aq_species_table.md ================================================ **The GC namelist for cb6r3_ae7_aq has the following gas phase species.** | **Model Species** | **Definition** | **Molecular Weight** | **Explicit or Lumped** | | ----------------- | ---------------------------------------------------------------------------- | -------------------- | ---------------------- | | AACD | acetic acid | 60 | E | | ACET | acetone | 58.1 | E | | ACRO_PRIMARY | acrolein from emissions only | 56.1 | E | | ACROLEIN | acrolein | 56.1 | E | | ALD2 | acetaldehyde | 44 | E | | ALD2_PRIMARY | acetaldehyde from emissions only | 44 | E | | ALDX | aldehydes with 3 or more carbons | 58.1 | L | | APIN | alpha pinene | 136.2 | E | | BENZENE | benzene | 78.1 | E | | BENZRO2 | counter species for aerosol from benzene+OH | 127 | L | | BUTADIENE13 | 1,3-butadiene | 54 | E | | BZO2 | peroxy radical from benzene reactions with OH | 159.1 | L | | C2O3 | acetylperoxy radical | 75 | E | | CAT1 | methyl catechols | 124.1 | L | | CL | atomic chlorine | 35.5 | E | | CL2 | molecular chlorine | 71 | E | | CLNO2 | nitryl chloride | 81.5 | E | | CLNO3 | chlorine nitrate | 97.5 | E | | CLO | chlorine monoxide | 51.5 | E | | CO | carbon monoxide | 28 | E | | CRES | cresol and higher molecular weight phenols | 108.1 | L | | CRO | alkoxy radical from cresol | 107.1 | L | | CRON | nitro-cresols | 153.1 | L | | CXO3 | acetylperoxy radicals with 3 or more carbons | 89 | L | | ECH4 | methane | 16 | E | | EPOX | isoprene epoxydiol | 118.1 | L | | EPX2 | peroxy radical from EPOX+OH reaction | 149.1 | L | | ETH | ethene | 28 | E | | ETHA | ethane | 30.1 | E | | ETHY | ethyne (acetylene) | 26 | E | | ETOH | ethanol | 46.1 | E | | FACD | formic acid | 46 | E | | FMCL | formylchloride | 64.5 | E | | FORM | formaldehyde | 30 | E | | FORM_PRIMARY | formaldehyde from emissions only | 30 | E | | GLY | glyoxal | 58 | E | | GLYD | glycoaldehyde (hydroxyacetaldehyde) | 60 | E | | H2NO3PIJ | tracer producing HNO3 or ClNO2 from N2O5 in fine mode aerosols | 64 | E | | H2NO3PK | tracer producing HNO3 or ClNO2 from N2O5 in coarse mode aerosols | 64 | E | | H2O2 | hydrogen peroxide | 34 | E | | HCL | hydrochloric acid | 36.5 | E | | HCO3 | radical from HO2 reactions with formaldehyde | 63 | E | | HG | elemental mercury | 200.6 | E | | HGIIAER | precursor of aerosol divalent mercury | 200.6 | E | | HGIIGAS | divalent mercury | 271.5 | E | | HNO3 | nitric acid | 63 | E | | HO2 | hydroperoxy radical | 33 | E | | HOCL | hypochlorous acid | 52.5 | E | | HONO | nitrous acid | 47 | E | | HPLD | hydroperoxyaldehyde from ISO2 isomerization | 116.1 | L | | INTR | nitrate from isoprene | 147.1 | L | | IOLE | internal alkene bond | 56.1 | L | | ISO2 | isoprene peroxy radical | 117.1 | L | | ISOP | isoprene | 68.1 | E | | ISOPRXN | counter species for aerosol from isoprene, volatility pathways | 68.1 | L | | ISPD | isoprene reaction products (methacrolein, methylvinyl ketone, others) | 70.1 | L | | ISPX | hydroperoxide from ISO2 reaction with HO2 | 118.1 | L | | KET | carbon-ketone bond | 72.1 | L | | MEO2 | methylperoxy radical | 47 | E | | MEOH | methanol | 32 | E | | MEPX | methylhydroperoxide | 48 | E | | MGLY | methyl glyoxal | 72 | E | | MMTNO3 | organic nitrates from monoterpene oxidation (Should not to be included for tracking nitrogen) | 231.0 | L | | N2O5 | dinitrogen pentoxide | 108 | E | | NAPH | naphthalene | 128.2 | E | | NO | nitric oxide | 30 | E | | NO2 | nitrogen dioxide | 46 | E | | NO3 | nitrate radical | 62 | E | | NTR1 | monofunctional organic nitrates | 119.1 | L | | NTR2 | multifunctional organic nitrates | 135.1 | L | | O | ground-state oxygen atoms, O(3P) | 16 | E | | O1D | electronically excited oxygen atoms, O(1D) | 16 | E | | O3 | ozone | 48 | E | | OH | hydroxyl radical | 17 | E | | OLE | terminal alkene bond | 42.1 | L | | OPAN | peroxyacylnitrate from OPO3 | 161 | L | | OPEN | aromatic ring opening product (an alkene and aldehyde) | 84 | L | | OPO3 | peroxyacyl radical from OPEN | 115 | L | | PACD | peroxycarboxylic acids | 76 | L | | PAHRO2 | counter species for aerosol from NAPH+OH | 187.2 | L | | PAN | peroxyacylnitrate | 121 | E | | PANX | peroxyacylnitrates with 3 or more carbons | 135 | L | | PAR | carbon-carbon single bond | 14.0 | L | | PCSOARXN | counter species for potential aerosol from combustion (from PCVOC reactions) | 170 | L | | PCVOC | tracer for potential combustion SOA VOCs | 170 | L | | PNA | peroxynitric acid | 79 | E | | PRPA | propane | 44.1 | E | | RO2 | total peroxy radical concentration | 87.1 | L | | ROOH | methylhydroperoxide | 90.1 | E | | ROR | secondary alkoxy radical | 71.1 | L | | SESQ | sesquiterpenes | 204 | L | | SESQRXN | counter species for aerosol from sesquiterpenes | 204 | L | | SO2 | sulfur dioxide | 64 | E | | SOAALK | tracer for alkanes that can form secondary organic aerosol | 112 | L | | SULF | sulfuric acid (gaseous) | 98 | E | | SULRXN | sulfate aerosol precursor | 98 | E | | SVAVB1 | low volatility organic gas from oxidation of anthropogenic VOCs | 179.0 | L | | SVAVB2 | semivolatile organic gas from oxidation of anthropogenic VOCs | 169.0 | L | | SVAVB3 | semivolatile organic gas from oxidation of anthropogenic VOCs | 158.0 | L | | SVAVB4 | semivolatile organic gas from oxidation of anthropogenic VOCs | 198.0 | L | | TERP | monoterpenes | 136.2 | L | | TERPNRO2 | counter species for aerosol from TERP + NO3 | 197.0 | L | | TO2 | toluene peroxy radical | 173.1 | L | | TOL | toluene and other monoalkyl aromatics | 92.1 | L | | TOLRO2 | counter species for aerosol from TOL+OH | 141 | L | | TOLU | toluene | 92 | E | | TRPRXN | counter species for aerosol precursor from monoterpenes | 136.2 | L | | VIVPO1 | evaporated primary organic aerosol, intermed-volatility | 266 | L | | VLVOO1 | evaporated secondary organic aerosol, low-volatility, cat 1 | 136 | L | | VLVOO2 | evaporated secondary organic aerosol, low-volatility, cat 2 | 136 | L | | VLVPO1 | evaporated primary organic aerosol, low-volatility | 218 | L | | VSVOO1 | evaporated secondary organic aerosol, semi-volatile, cat 1 | 135 | L | | VSVOO2 | evaporated secondary organic aerosol, semi-volatile, cat 2 | 135 | L | | VSVOO3 | evaporated secondary organic aerosol, semi-volatile, cat 3 | 134 | L | | VSVPO1 | evaporated primary organic aerosol, semi-volatile, cat 1 | 230 | L | | VSVPO2 | evaporated primary organic aerosol, semi-volatile, cat 2 | 241 | L | | VSVPO3 | evaporated primary organic aerosol, semi-volatile, cat 3 | 253 | L | | XLO2 | peroxy radical from XYLMN+OH reaction | 187.1 | L | | XO2 | NO oxidation to NO2 via peroxy radical | 87.1 | L | | XO2H | NO oxidation to NO2 with HO2 production, from alkoxy radicals | 87.1 | L | | XO2N | nitrate production from NO reaction with peroxy radical | 87.1 | L | | XOPN | product of aromatic ring-opening reaction | 98.1 | L | | XPAR | organic nitrate production from PAR | 117.1 | L | | XPRP | organic nitrate production from PRPA | 89.1 | L | | XYLMN | xylene and other polyalkyl aromatics except naphthalene | 106.2 | L | | XYLRO2 | counter species for aerosol from XYLMN+OH | 155 | L | **The AE namelist for cb6r3_ae7_aq has the following aerosol species.** | **Model Species** | **Definition** | **Molecular Weight** | **Explicit or Lumped** | | ----------------- | ---------------------------------------------------- | -------------------- | ---------------------- | | AAL | Aluminum | 27 | E | | AAVB1 | low volatility organic particulate matter from oxidation of anthropogenic VOCs | 198.0 | L | | AAVB2 | semivolailte organic particulate matter from oxidation of anthropogenic VOCs | 179.0 | L | | AAVB3 | semivolailte organic particulate matter from oxidation of anthropogenic VOCs | 169.0 | L | | AAVB4 | semivolailte organic particulate matter from oxidation of anthropogenic VOCs | 158.0 | L | | ACA | Calcium | 40.1 | E | | ACL | Chloride | 35.5 | E | | ACORS | Anthropogenic Coarse-mode particle mass | 100.0 | L | | AEC | Elemental Carbon | 12 | E | | AFE | Iron | 55.8 | E | | AGLY | Glyoxal and Methylglyoxal SOA in aqueous aerosol material | 66.4 | L | | AH2O | Water | 18 | E | | AH3OP | Hydronium Ion | 19 | E | | AISO1 | Semivolatile SOA Product from Isoprene | 132.0 | L | | AISO2 | High-Volatility SOA Product from Isoprene | 133.0 | L | | AISO3 | Acid-catalyzed Isoprene Epoxydiol SOA | 168.2 | L | | AIVPO1 | Intermediate Volatility Primary Organic Compounds | 266 | L | | AK | Potassium | 39.1 | E | | ALVOO1 | Low Volatility Oxidized Combustion Organic Compounds | 136 | L | | ALVOO2 | Low Volatility Oxidized Combustion Organic Compounds | 136 | L | | ALVPO1 | Low Volatility Primary Organic Compounds | 218 | L | | AMG | Magnesium | 24.3 | E | | AMN | Manganese | 54.9 | E | | AMT1 | low volatility particulate matter from monoterpene photoxidation, C*=0.01 ug/m3 | 200.0 | L | | AMT2 | low volatility particulate matter from monoterpene photoxidation, C*=0.1 ug/m3 | 300.0 | L | | AMT3 | semivolailte particulate matter from monoterpene photoxidation, C*=1 ug/m3 | 186.0 | L | | AMT4 | semivolatile particulate matter from monoterpene photoxidation, C*=10 ug/m3 | 184.0 | L | | AMT5 | semivolatile particulate matter from monoterpene photoxidation, C*=100 ug/m3 | 170.0 | L | | AMT6 | semivolatile particulate matter from monoterpene photoxidation, C*=1000 ug/m3 | 168.0 | L | | AMTNO3J | semivolatile organic nitrates from monoterpene oxidation (Should not to be included for tracking nitrogen) | 231.0 | L | | AMTHYDJ | organic pseudo-hydrolysis accretion product from monoterpene organic nitrates (AMTNO3J) | 168.0| L | | ANA | Sodium | 23 | E | | ANH4 | Ammonium | 18 | E | | ANO3 | Nitrate | 62 | E | | AOLGA | Oligomer products of anthropogenic SOA compounds | 206.0 | L | | AOLGB | Oligomer products of biogenic SOA compounds | 248.0 | L | | AORGC | Glyoxal and methylglyoxal SOA produced in cloud water | 177.0 | L | | AORGH2O | Water associated with organic species of particulate matter | 18.0 | E | | AOTHR | Other Particulate Mass | 200 | L | | APCSO | Potential Combustion SOA | 170 | L | | APNCOM | Non-Carbon Organic Matter associated with APOC | 220.0 | L | | APOC | Primary Organic Carbon | 220.0 | L | | ASEACAT | Sea spray cations | 23.75 | L | | ASI | Silicon | 28.1 | E | | ASO4 | Sulfate | 96 | E | | ASOIL | Lumped crustal species | 100.0 | L | | ASQT | Semivolatile SOA Product from Sesquiterpenes | 273.0 | L | | ASVOO1 | Semivolatile Oxidized Combustion Organic Compounds | 135 | L | | ASVOO2 | Semivolatile Oxidized Combustion Organic Compounds | 135 | L | | ASVOO3 | Semivolatile Oxidized Combustion Organic Compounds | 134 | L | | ASVPO1 | Semivolatile Primary Organic Compounds | 230 | L | | ASVPO2 | Semivolatile Primary Organic Compounds | 241 | L | | ASVPO3 | Semivolatile Primary Organic Compounds | 253 | L | | ATI | Titanium | 47.9 | E | | NUMACC | Accum. Mode Number Conc | NA | NA | | NUMAIT | Aitken Mode Number Conc | NA | NA | | NUMCOR | Coarse Mode Number Conc | NA | NA | | SRFACC | Accum. Mode Surface Area Conc | NA | NA | | SRFAIT | Aitken Mode Surface Area Conc | NA | NA | | SRFCOR | Coarse Mode Surface Area Conc | NA | NA | Note that for each aerosol mass species, a letter will be appended to the names below in order to designate the size, or mode, of the aerosol being represented: I = Aitken mode, J = Accumulation mode, K = Coarse mode. **The NR namelist for cb6r3_ae7_aq has the following gas phase species.** | **Model Species** | **Definition** | **Molecular Weight** | **Explicit or Lumped** | | ----------------- | ---------------------------------------------------- | -------------------- | ---------------------- | | LVPCSOG | surrogate SOA precursor gas for combustion/anthropogenic sources | 170.0 | L | | NH3 | ammonia | 17.0 | E | | SVMT1 | low volatility gas from monoterpene photoxidation | 300.0 | L | | SVMT2 | low volatility gas from monoterpene photoxidation | 200.0 | L | | SVMT3 | semivolatile gas from monoterpene photoxidation | 186.0 | L | | SVMT4 | semivolatile gas from monoterpene photoxidation | 184.0 | L | | SVMT5 | semivolatile gas from monoterpene photoxidation | 170.0 | L | | SVMT6 | semivolatile gas from monoterpene photoxidation | 168.0 | L | | SVISO1 | semivolatile gas of secondary aerosol material from isoprene | 132.0 | L | | SVISO2 | semivolatile gas of secondary aerosol material from isoprene | 133.0 | L | | SVSQT | semivolatile gas of secondary aerosol material from sesquiterpenes | 273.0 | L | ================================================ FILE: CCTM/src/MECHS/mechanism_information/cb6r3_ae7_aq/mech_cb6r3_ae7_aq.md ================================================ Information is based on the mech.def file. * Fall-off or pressure dependent reaction rate constants (M equals air number density): * For rate constants with ko, ki, n, F values: k = [ koM/(1+koM/ki)]FG, where G=(1+(log10(koM/ki)/n)2))-1 * For rate constants with k1, k2: k = k1 + k2M * For rate constants with k0, k2, k3: k = k0 + k3M/(1+k3M/k2) * For rate constants with k1, k2, k3: k = k1 + k2M + k3 * For rate constants with the form A<_Reference_>, k equals A times a reference that represents photolysis rate, a heteorogeneous rate constant, rate constant for the given reaction or an operator. A equals one if not given. * In the mechanism definition file, the rate is formatted as * A~<_HETEOROGENEOUS_> * A*K<_REACTION_> * A/<_PHOTOLYSIS_> * A?<_OPERATOR_> |Label|Reaction |Rate Constant Formula| Value
molecules/(sec*cm3)| |:---|:-------------------|:--------------------|:----:| | R1 | NO2 ----> NO + O | NO2_IUPAC10 | Not Available1 | | R2 | O + O2 + M ----> O3 | 5.68E-34(T/300) -2.60 | 5.7721E-34 | | R3 | O3 + NO ----> NO2 | 1.40E-12e -1310.00/T | 1.7296E-14 | | R4 | O + NO + M ----> NO2 | 1.00E-31(T/300) -1.60 | 1.0099E-31 | | R5 | O + NO2 ----> NO | 5.50E-12e 188.00/T | 1.0333E-11 | | R6 | O + NO2 ----> NO3 | ko= 1.30E-31e 0.0/T(T/300) -1.50
ki = 2.30E-11e 0.0/T(T/300) 0.24
n= 1.00;F= 0.60 | 2.1061E-12 | | R7 | O + O3 ----> | 8.00E-12e -2060.00/T | 7.9879E-15 | | R8 | O3 ----> O | O3_O3P_IUPAC10 | Not Available1 | | R9 | O3 ----> O1D | O3_O1D_IUPAC10 | Not Available1 | | R10 | O1D + M ----> O | 2.23E-11e 115.00/T | 3.2796E-11 | | R11 | O1D + H2O ----> 2.000\*OH | 2.1400E-10 | 2.1400E-10 | | R12 | O3 + OH ----> HO2 | 1.70E-12e -940.00/T | 7.2647E-14 | | R13 | O3 + HO2 ----> OH | 2.03E-16e 693.00/T(T/300) 4.57 | 2.0168E-15 | | R14 | OH + O ----> HO2 | 2.40E-11e 110.00/T | 3.4709E-11 | | R15 | HO2 + O ----> OH | 2.70E-11e 224.00/T | 5.7233E-11 | | R16 | OH + OH ----> O | 6.20E-14e 945.00/T(T/300) 2.60 | 1.4519E-12 | | R17 | OH + OH ----> H2O2 | ko= 6.90E-31e 0.0/T(T/300) -0.80
ki = 2.60E-11e 0.0/T(T/300) 0.00
n= 1.13;F= 0.50 | 5.2439E-12 | | R18 | OH + HO2 ----> | 4.80E-11e 250.00/T | 1.1102E-10 | | R19 | HO2 + HO2 ----> H2O2 | k0= 2.20E-13e 600.0/T
k1= 1.90E-33e 980.0/T | 2.8975E-12 | | R20 | HO2 + HO2 + H2O ----> H2O2 | k0= 3.08E-34e 2800.0/T
k1= 2.66E-54e 3180.0/T | 6.4973E-30 | | R21 | H2O2 ----> 2.000\*OH | H2O2_IUPAC10 | Not Available1 | | R22 | H2O2 + OH ----> HO2 | 2.90E-12e -160.00/T | 1.6957E-12 | | R23 | H2O2 + O ----> OH + HO2 | 1.40E-12e -2000.00/T | 1.7095E-15 | | R24 | NO + NO + O2 ----> 2.000\*NO2 | 3.30E-39e 530.00/T | 1.9522E-38 | | R25 | HO2 + NO ----> OH + NO2 | 3.45E-12e 270.00/T | 8.5332E-12 | | R26 | NO2 + O3 ----> NO3 | 1.40E-13e -2470.00/T | 3.5339E-17 | | R27 | NO3 ----> NO2 + O | NO3NO2_06 | Not Available1 | | R28 | NO3 ----> NO | NO3NO_06 | Not Available1 | | R29 | NO3 + NO ----> 2.000\*NO2 | 1.80E-11e 110.00/T | 2.6032E-11 | | R30 | NO3 + NO2 ----> NO + NO2 | 4.50E-14e -1260.00/T | 6.5744E-16 | | R31 | NO3 + O ----> NO2 | 1.7000E-11 | 1.7000E-11 | | R32 | NO3 + OH ----> HO2 + NO2 | 2.0000E-11 | 2.0000E-11 | | R33 | NO3 + HO2 ----> OH + NO2 | 4.0000E-12 | 4.0000E-12 | | R34 | NO3 + O3 ----> NO2 | 1.0000E-17 | 1.0000E-17 | | R35 | NO3 + NO3 ----> 2.000\*NO2 | 8.50E-13e -2450.00/T | 2.2944E-16 | | R36 | NO3 + NO2 ----> N2O5 | ko= 3.60E-30e 0.0/T(T/300) -4.10
ki = 1.90E-12e 0.0/T(T/300) 0.20
n= 1.33;F= 0.35 | 1.2406E-12 | | R37 | N2O5 ----> NO3 + NO2 | ko= 1.30E-03e-11000.0/T(T/300) -3.50
ki = 9.70E+14e-11080.0/T(T/300) 0.10
n= 1.33;F= 0.35 | 4.5396E-02 | | R38 | N2O5 ----> NO2 + NO3 | N2O5_IUPAC10 | Not Available1 | | R39 | N2O5 + H2O ----> 2.000\*HNO3 | 1.0000E-22 | 1.0000E-22 | | R40 | NO + OH ----> HONO | ko= 7.40E-31e 0.0/T(T/300) -2.40
ki = 3.30E-11e 0.0/T(T/300) -0.30
n= 0.87;F= 0.81 | 9.7627E-12 | | R41 | NO + NO2 + H2O ----> 2.000\*HONO | 5.0000E-40 | 5.0000E-40 | | R42 | HONO + HONO ----> NO + NO2 | 1.0000E-20 | 1.0000E-20 | | R43 | HONO ----> NO + OH | HONO_IUPAC10 | Not Available1 | | R44 | HONO + OH ----> NO2 | 2.50E-12e 260.00/T | 5.9795E-12 | | R45 | NO2 + OH ----> HNO3 | ko= 1.80E-30e 0.0/T(T/300) -3.00
ki = 2.80E-11e 0.0/T(T/300) 0.00
n= 1.00;F= 0.60 | 1.0589E-11 | | R46 | HNO3 + OH ----> NO3 | k0= 2.40E-14e 460.0/T
k1= 2.70E-17e 2199.0/T
k3= 6.50E-34e 1335.0/T | 1.5409E-13 | | R47 | HNO3 ----> OH + NO2 | HNO3_IUPAC10 | Not Available1 | | R48 | HO2 + NO2 ----> PNA | ko= 1.80E-31e 0.0/T(T/300) -3.20
ki = 4.70E-12e 0.0/T(T/300) 0.00
n= 1.00;F= 0.60 | 1.3826E-12 | | R49 | PNA ----> HO2 + NO2 | ko= 4.10E-05e-10650.0/T(T/300) 0.00
ki = 4.80E+15e-11170.0/T(T/300) 0.00
n= 1.00;F= 0.60 | 8.4618E-02 | | R50 | PNA ----> 0.590\*HO2 + 0.590\*NO2 + 0.410\*OH + 0.410\*NO3 | PNA_IUPAC10 | Not Available1 | | R51 | PNA + OH ----> NO2 | 3.20E-13e 690.00/T | 3.2376E-12 | | R52 | SO2 + OH ----> SULF + HO2 + SULRXN | ko= 4.50E-31e 0.0/T(T/300) -3.90
ki = 1.30E-12e 0.0/T(T/300) -0.70
n= 1.10;F= 0.53 | 8.1103E-13 | | R53 | C2O3 + NO ----> NO2 + MEO2 + RO2 | 7.50E-12e 290.00/T | 1.9837E-11 | | R54 | C2O3 + NO2 ----> PAN | ko= 2.70E-28e 0.0/T(T/300) -7.10
ki = 1.20E-11e 0.0/T(T/300) -0.90
n= 1.41;F= 0.30 | 9.3892E-12 | | R55 | PAN ----> NO2 + C2O3 | ko= 4.90E-03e-12100.0/T(T/300) 0.00
ki = 5.40E+16e-13830.0/T(T/300) 0.00
n= 1.41;F= 0.30 | 3.0541E-04 | | R56 | PAN ----> 0.600\*NO2 + 0.600\*C2O3 + 0.400\*NO3 + 0.400\*MEO2 + 0.400\*RO2 | PAN_IUPAC10 | Not Available1 | | R57 | C2O3 + HO2 ----> 0.410\*PACD + 0.150\*AACD + 0.150\*O3 + 0.440\*MEO2 + 0.440\*RO2 + 0.440\*OH | 5.20E-13e 980.00/T | 1.3916E-11 | | R58 | C2O3 + RO2 ----> C2O3 | 8.90E-13e 800.00/T | 1.3023E-11 | | R59 | C2O3 + C2O3 ----> 2.000\*MEO2 + 2.000\*RO2 | 2.90E-12e 500.00/T | 1.5514E-11 | | R60 | C2O3 + CXO3 ----> MEO2 + ALD2 + XO2H + 2.000\*RO2 | 2.90E-12e 500.00/T | 1.5514E-11 | | R61 | CXO3 + NO ----> NO2 + ALD2 + XO2H + RO2 | 6.70E-12e 340.00/T | 2.0957E-11 | | R62 | CXO3 + NO2 ----> PANX | R54 | 9.3892E-127| | R63 | PANX ----> NO2 + CXO3 | R55 | 3.0541E-047| | R64 | PANX ----> 0.600\*NO2 + 0.600\*CXO3 + 0.400\*NO3 + 0.400\*ALD2 + 0.400\*XO2H + 0.400\*RO2 | PAN_IUPAC10 | Not Available1 | | R65 | CXO3 + HO2 ----> 0.410\*PACD + 0.150\*AACD + 0.150\*O3 + 0.440\*ALD2 + 0.440\*XO2H + 0.440\*RO2 + 0.440\*OH | 5.20E-13e 980.00/T | 1.3916E-11 | | R66 | CXO3 + RO2 ----> 0.800\*ALD2 + 0.800\*XO2H + 0.800\*RO2 | 8.90E-13e 800.00/T | 1.3023E-11 | | R67 | CXO3 + CXO3 ----> 2.000\*ALD2 + 2.000\*XO2H + 2.000\*RO2 | 3.20E-12e 500.00/T | 1.7118E-11 | | R68 | RO2 + NO ----> NO | 2.40E-12e 360.00/T | 8.0278E-12 | | R69 | RO2 + HO2 ----> HO2 | 4.80E-13e 800.00/T | 7.0234E-12 | | R70 | RO2 + RO2 ----> | 6.50E-14e 500.00/T | 3.4772E-13 | | R71 | MEO2 + NO ----> FORM + HO2 + NO2 | 2.30E-12e 360.00/T | 7.6933E-12 | | R72 | MEO2 + HO2 ----> 0.900\*MEPX + 0.100\*FORM | 3.80E-13e 780.00/T | 5.1994E-12 | | R73 | MEO2 + C2O3 ----> FORM + 0.900\*HO2 + 0.900\*MEO2 + 0.100\*AACD + 0.900\*RO2 | 2.00E-12e 500.00/T | 1.0699E-11 | | R74 | MEO2 + RO2 ----> 0.685\*FORM + 0.315\*MEOH + 0.370\*HO2 + RO2 | R70 | 3.4772E-137| | R75 | XO2H + NO ----> NO2 + HO2 | 2.70E-12e 360.00/T | 9.0313E-12 | | R76 | XO2H + HO2 ----> ROOH | 6.80E-13e 800.00/T | 9.9498E-12 | | R77 | XO2H + C2O3 ----> 0.800\*HO2 + 0.800\*MEO2 + 0.200\*AACD + 0.800\*RO2 | R58 | 1.3023E-117| | R78 | XO2H + RO2 ----> 0.600\*HO2 + RO2 | R70 | 3.4772E-137| | R79 | XO2 + NO ----> NO2 | R75 | 9.0313E-127| | R80 | XO2 + HO2 ----> ROOH | R76 | 9.9498E-127| | R81 | XO2 + C2O3 ----> 0.800\*MEO2 + 0.200\*AACD + 0.800\*RO2 | R58 | 1.3023E-117| | R82 | XO2 + RO2 ----> RO2 | R70 | 3.4772E-137| | R83 | XO2N + NO ----> 0.500\*NTR1 + 0.500\*NTR2 | R75 | 9.0313E-127| | R84 | XO2N + HO2 ----> ROOH | R76 | 9.9498E-127| | R85 | XO2N + C2O3 ----> 0.800\*HO2 + 0.800\*MEO2 + 0.200\*AACD + 0.800\*RO2 | R58 | 1.3023E-117| | R86 | XO2N + RO2 ----> RO2 | R70 | 3.4772E-137| | R87 | MEPX + OH ----> 0.600\*MEO2 + 0.600\*RO2 + 0.400\*FORM + 0.400\*OH | 5.30E-12e 190.00/T | 1.0024E-11 | | R88 | MEPX ----> MEO2 + RO2 + OH | MEPX_IUPAC10 | Not Available1 | | R89 | ROOH + OH ----> 0.540\*XO2H + 0.060\*XO2N + 0.600\*RO2 + 0.400\*OH | 5.30E-12e 190.00/T | 1.0024E-11 | | R90 | ROOH ----> HO2 + OH | MEPX_IUPAC10 | Not Available1 | | R91 | NTR1 + OH ----> NTR2 | 2.0000E-12 | 2.0000E-12 | | R92 | NTR1 ----> NO2 | NTR_IUPAC10 | Not Available1 | | R93 | FACD + OH ----> HO2 | 4.5000E-13 | 4.5000E-13 | | R94 | AACD + OH ----> MEO2 + RO2 | 4.00E-14e 850.00/T | 6.9214E-13 | | R95 | PACD + OH ----> C2O3 | 5.30E-12e 190.00/T | 1.0024E-11 | | R96 | FORM + OH ----> HO2 + CO | 5.40E-12e 135.00/T | 8.4926E-12 | | R97 | FORM ----> 2.000\*HO2 + CO | FORM_R_IUPAC10 | Not Available1 | | R98 | FORM ----> CO | FORM_M_IUPAC10 | Not Available1 | | R99 | FORM + O ----> OH + HO2 + CO | 3.40E-11e -1600.00/T | 1.5881E-13 | | R100 | FORM + NO3 ----> HNO3 + HO2 + CO | 5.5000E-16 | 5.5000E-16 | | R101 | FORM + HO2 ----> HCO3 | 9.70E-15e 625.00/T | 7.8916E-14 | | R102 | HCO3 ----> FORM + HO2 | 2.40E+12e -7000.00/T | 1.5268E+02 | | R103 | HCO3 + NO ----> FACD + NO2 + HO2 | 5.6000E-12 | 5.6000E-12 | | R104 | HCO3 + HO2 ----> 0.500\*MEPX + 0.500\*FACD + 0.200\*OH + 0.200\*HO2 | 5.60E-15e 2300.00/T | 1.2544E-11 | | R105 | ALD2 + O ----> C2O3 + OH | 1.80E-11e -1100.00/T | 4.4976E-13 | | R106 | ALD2 + OH ----> C2O3 | 4.70E-12e 345.00/T | 1.4950E-11 | | R107 | ALD2 + NO3 ----> C2O3 + HNO3 | 1.40E-12e -1860.00/T | 2.7340E-15 | | R108 | ALD2 ----> MEO2 + RO2 + CO + HO2 | ALD2_R_IUPAC10 | Not Available1 | | R109 | ALDX + O ----> CXO3 + OH | 1.30E-11e -870.00/T | 7.0255E-13 | | R110 | ALDX + OH ----> CXO3 | 4.90E-12e 405.00/T | 1.9060E-11 | | R111 | ALDX + NO3 ----> CXO3 + HNO3 | 6.3000E-15 | 6.3000E-15 | | R112 | ALDX ----> ALD2 + XO2H + RO2 + CO + HO2 | ALDX_R_IUPAC10 | Not Available1 | | R113 | GLYD + OH ----> 0.200\*GLY + 0.200\*HO2 + 0.800\*C2O3 | 8.0000E-12 | 8.0000E-12 | | R114 | GLYD ----> 0.740\*FORM + 0.890\*CO + 1.400\*HO2 + 0.150\*MEOH + 0.190\*OH + 0.110\*GLY + 0.110\*XO2H + 0.110\*RO2 | GLYD_IUPAC10 | Not Available1 | | R115 | GLYD + NO3 ----> HNO3 + C2O3 | 1.40E-12e -1860.00/T | 2.7340E-15 | | R116 | GLY + OH ----> 1.800\*CO + 0.200\*XO2 + 0.200\*RO2 + HO2 | 3.10E-12e 340.00/T | 9.6965E-12 | | R117 | GLY ----> 2.000\*HO2 + 2.000\*CO | GLY_R_IUPAC10 | Not Available1 | | R118 | GLY + NO3 ----> HNO3 + 1.500\*CO + 0.500\*XO2 + 0.500\*RO2 + HO2 | 1.40E-12e -1860.00/T | 2.7340E-15 | | R119 | MGLY ----> C2O3 + HO2 + CO | MGLY_IUPAC10 | Not Available1 | | R120 | MGLY + NO3 ----> HNO3 + C2O3 + XO2 + RO2 | 1.40E-12e -1860.00/T | 2.7340E-15 | | R121 | MGLY + OH ----> C2O3 + CO | 1.90E-12e 575.00/T | 1.3071E-11 | | R122 | OH + H2 ----> HO2 | 7.70E-12e -2100.00/T | 6.7230E-15 | | R123 | CO + OH ----> HO2 | k0= 1.44E-13e 0.0/T
k1= 3.43E-33e 0.0/T | 2.2843E-13 | | R124 | OH + CH4 ----> MEO2 + RO2 | 1.85E-12e -1690.00/T | 6.3895E-15 | | R125 | ETHA + OH ----> 0.991\*ALD2 + 0.991\*XO2H + 0.009\*XO2N + RO2 | 6.90E-12e -1000.00/T | 2.4111E-13 | | R126 | MEOH + OH ----> FORM + HO2 | 2.85E-12e -345.00/T | 8.9600E-13 | | R127 | ETOH + OH ----> 0.950\*ALD2 + 0.900\*HO2 + 0.100\*XO2H + 0.100\*RO2 + 0.078\*FORM + 0.011\*GLYD | 3.00E-12e 20.00/T | 3.2081E-12 | | R128 | KET ----> 0.500\*ALD2 + 0.500\*C2O3 + 0.500\*XO2H + 0.500\*CXO3 + 0.500\*MEO2 + RO2 - 2.500\*PAR | KET_IUPAC10 | Not Available1 | | R129 | ACET ----> 0.380\*CO + 1.380\*MEO2 + 1.380\*RO2 + 0.620\*C2O3 | ACET_IUPAC10 | Not Available1 | | R130 | ACET + OH ----> FORM + C2O3 + XO2 + RO2 | 1.41E-12e -620.60/T | 1.7589E-13 | | R131 | PRPA + OH ----> XPRP | 7.60E-12e -585.00/T | 1.0683E-12 | | R132 | PAR + OH ----> XPAR | 8.1000E-13 | 8.1000E-13 | | R133 | ROR ----> 0.200\*KET + 0.420\*ACET + 0.740\*ALD2 + 0.370\*ALDX + 0.040\*XO2N + 0.940\*XO2H + 0.980\*RO2 + 0.020\*ROR - 2.700\*PAR | 5.70E+12e -5780.00/T | 2.1704E+04 | | R134 | ROR + O2 ----> KET + HO2 | 1.50E-14e -200.00/T | 7.6695E-15 | | R135 | ROR + NO2 ----> NTR1 | 8.60E-12e 400.00/T | 3.2897E-11 | | R136 | ETHY + OH ----> 0.700\*GLY + 0.700\*OH + 0.300\*FACD + 0.300\*CO + 0.300\*HO2 | ko= 5.00E-30e 0.0/T(T/300) -1.50
ki = 1.00E-12e 0.0/T(T/300) 0.00
n= 1.30;F= 0.37 | 7.5233E-13 | | R137 | ETH + O ----> FORM + HO2 + CO + 0.700\*XO2H + 0.700\*RO2 + 0.300\*OH | 1.04E-11e -792.00/T | 7.3010E-13 | | R138 | ETH + OH ----> XO2H + RO2 + 1.560\*FORM + 0.220\*GLYD | ko= 8.60E-29e 0.0/T(T/300) -3.10
ki = 9.00E-12e 0.0/T(T/300) -0.85
n= 1.15;F= 0.48 | 7.8392E-12 | | R139 | ETH + O3 ----> FORM + 0.510\*CO + 0.160\*HO2 + 0.160\*OH + 0.370\*FACD | 9.10E-15e -2580.00/T | 1.5883E-18 | | R140 | ETH + NO3 ----> 0.500\*NO2 + 0.500\*NTR1 + 0.500\*XO2H + 0.500\*XO2 + RO2 + 1.125\*FORM | 3.30E-12e -2880.00/T | 2.1058E-16 | | R141 | OLE + O ----> 0.200\*ALD2 + 0.300\*ALDX + 0.100\*HO2 + 0.200\*XO2H + 0.200\*CO + 0.200\*FORM + 0.010\*XO2N + 0.210\*RO2 + 0.200\*PAR + 0.100\*OH | 1.00E-11e -280.00/T | 3.9097E-12 | | R142 | OLE + OH ----> 0.781\*FORM + 0.488\*ALD2 + 0.488\*ALDX + 0.976\*XO2H + 0.195\*XO2 + 0.024\*XO2N + 1.195\*RO2 - 0.730\*PAR | ko= 8.00E-27e 0.0/T(T/300) -3.50
ki = 3.00E-11e 0.0/T(T/300) -1.00
n= 1.13;F= 0.50 | 2.8547E-11 | | R143 | OLE + O3 ----> 0.295\*ALD2 + 0.555\*FORM + 0.270\*ALDX + 0.150\*XO2H + 0.150\*RO2 + 0.334\*OH + 0.080\*HO2 + 0.378\*CO + 0.075\*GLY + 0.075\*MGLY + 0.090\*FACD + 0.130\*AACD + 0.040\*H2O2 - 0.790\*PAR | 5.50E-15e -1880.00/T | 1.0044E-17 | | R144 | OLE + NO3 ----> 0.500\*NO2 + 0.500\*NTR1 + 0.480\*XO2 + 0.480\*XO2H + 0.040\*XO2N + RO2 + 0.500\*FORM + 0.250\*ALD2 + 0.375\*ALDX - PAR | 4.60E-13e -1155.00/T | 9.5576E-15 | | R145 | IOLE + O ----> 1.240\*ALD2 + 0.660\*ALDX + 0.100\*XO2H + 0.100\*RO2 + 0.100\*CO + 0.100\*PAR | 2.3000E-11 | 2.3000E-11 | | R146 | IOLE + OH ----> 1.300\*ALD2 + 0.700\*ALDX + XO2H + RO2 | 1.05E-11e 519.00/T | 5.9866E-11 | | R147 | IOLE + O3 ----> 0.732\*ALD2 + 0.442\*ALDX + 0.128\*FORM + 0.245\*CO + 0.500\*OH + 0.300\*XO2H + 0.300\*RO2 + 0.240\*GLY + 0.060\*MGLY + 0.290\*PAR + 0.080\*AACD + 0.080\*H2O2 | 4.70E-15e -1013.00/T | 1.5723E-16 | | R148 | IOLE + NO3 ----> 0.500\*NO2 + 0.500\*NTR1 + 0.480\*XO2 + 0.480\*XO2H + 0.040\*XO2N + RO2 + 0.500\*ALD2 + 0.625\*ALDX + PAR | 3.7000E-13 | 3.7000E-13 | | R149 | ISOP + OH ----> ISO2 + RO2 + ISOPRXN | 2.70E-11e 390.00/T | 9.9873E-11 | | R150 | ISOP + O ----> 0.750\*ISPD + 0.500\*FORM + 0.250\*XO2 + 0.250\*RO2 + 0.250\*HO2 + 0.250\*CXO3 + 0.250\*PAR | 3.0000E-11 | 3.0000E-11 | | R151 | ISO2 + NO ----> 0.100\*INTR + 0.900\*NO2 + 0.673\*FORM + 0.900\*ISPD + 0.818\*HO2 + 0.082\*XO2H + 0.082\*RO2 | 2.39E-12e 365.00/T | 8.1296E-12 | | R152 | ISO2 + HO2 ----> 0.880\*ISPX + 0.120\*OH + 0.120\*HO2 + 0.120\*FORM + 0.120\*ISPD | 7.43E-13e 700.00/T | 7.7737E-12 | | R153 | ISO2 + C2O3 ----> 0.598\*FORM + ISPD + 0.728\*HO2 + 0.072\*XO2H + 0.800\*MEO2 + 0.200\*AACD + 0.872\*RO2 | R58 | 1.3023E-117| | R154 | ISO2 + RO2 ----> 0.598\*FORM + ISPD + 0.728\*HO2 + 0.072\*XO2H + 1.072\*RO2 | R70 | 3.4772E-137| | R155 | ISO2 ----> HO2 + HPLD | 3.30E+09e -8300.00/T | 2.6821E-03 | | R156 | ISOP + O3 ----> 0.600\*FORM + 0.650\*ISPD + 0.150\*ALDX + 0.200\*CXO3 + 0.350\*PAR + 0.266\*OH + 0.200\*XO2 + 0.200\*RO2 + 0.066\*HO2 + 0.066\*CO | 1.03E-14e -1995.00/T | 1.2790E-17 | | R157 | ISOP + NO3 ----> 0.350\*NO2 + 0.650\*NTR2 + 0.640\*XO2H + 0.330\*XO2 + 0.030\*XO2N + RO2 + 0.350\*FORM + 0.350\*ISPD + ISOPRXN | 3.03E-12e -448.00/T | 6.7433E-13 | | R158 | ISPD + OH ----> 0.022\*XO2N + 0.521\*XO2 + 0.115\*MGLY + 0.115\*MEO2 + 0.269\*GLYD + 0.269\*C2O3 + 0.457\*OPO3 + 0.117\*PAR + 0.137\*ACET + 0.137\*CO + 0.137\*HO2 + 0.658\*RO2 | 5.58E-12e 511.00/T | 3.0972E-11 | | R159 | ISPD + O3 ----> 0.040\*ALD2 + 0.231\*FORM + 0.531\*MGLY + 0.170\*GLY + 0.170\*ACET + 0.543\*CO + 0.461\*OH + 0.150\*FACD + 0.398\*HO2 + 0.143\*C2O3 | 3.88E-15e -1770.00/T | 1.0247E-17 | | R160 | ISPD + NO3 ----> 0.717\*HNO3 + 0.142\*NTR2 + 0.142\*NO2 + 0.142\*XO2 + 0.142\*XO2H + 0.113\*GLYD + 0.113\*MGLY + 0.717\*PAR + 0.717\*CXO3 + 0.284\*RO2 | 4.10E-12e -1860.00/T | 8.0066E-15 | | R161 | ISPD ----> 0.760\*HO2 + 0.340\*XO2H + 0.160\*XO2 + 0.340\*MEO2 + 0.208\*C2O3 + 0.260\*FORM + 0.240\*OLE + 0.240\*PAR + 0.170\*ACET + 0.128\*GLYD + 0.840\*RO2 | ISPD | Not Available1 | | R162 | ISPX + OH ----> 0.904\*EPOX + 0.933\*OH + 0.067\*ISO2 + 0.067\*RO2 + 0.029\*IOLE + 0.029\*ALDX | 2.23E-11e 372.00/T | 7.7655E-11 | | R163 | HPLD ----> OH + ISPD | HPALD | Not Available1 | | R164 | HPLD + NO3 ----> HNO3 + ISPD | 6.00E-12e -1860.00/T | 1.1717E-14 | | R165 | EPOX + OH ----> EPX2 + RO2 | 5.78E-11e -400.00/T | 1.5110E-11 | | R166 | EPX2 + HO2 ----> 0.275\*GLYD + 0.275\*GLY + 0.275\*MGLY + 1.125\*OH + 0.825\*HO2 + 0.375\*FORM + 0.074\*FACD + 0.251\*CO + 2.175\*PAR | 7.43E-13e 700.00/T | 7.7737E-12 | | R167 | EPX2 + NO ----> 0.275\*GLYD + 0.275\*GLY + 0.275\*MGLY + 0.125\*OH + 0.825\*HO2 + 0.375\*FORM + NO2 + 0.251\*CO + 2.175\*PAR | 2.39E-12e 365.00/T | 8.1296E-12 | | R168 | EPX2 + C2O3 ----> 0.220\*GLYD + 0.220\*GLY + 0.220\*MGLY + 0.100\*OH + 0.660\*HO2 + 0.300\*FORM + 0.200\*CO + 1.740\*PAR + 0.800\*MEO2 + 0.200\*AACD + 0.800\*RO2 | R58 | 1.3023E-117| | R169 | EPX2 + RO2 ----> 0.275\*GLYD + 0.275\*GLY + 0.275\*MGLY + 0.125\*OH + 0.825\*HO2 + 0.375\*FORM + 0.251\*CO + 2.175\*PAR + RO2 | R70 | 3.4772E-137| | R170 | INTR + OH ----> 0.630\*XO2 + 0.370\*XO2H + RO2 + 0.444\*NO2 + 0.185\*NO3 + 0.104\*INTR + 0.592\*FORM + 0.331\*GLYD + 0.185\*FACD + 2.700\*PAR + 0.098\*OLE + 0.078\*ALDX + 0.266\*NTR2 | 3.1000E-11 | 3.1000E-11 | | R171 | TERP + O ----> 0.150\*ALDX + 5.120\*PAR + TRPRXN | 3.6000E-11 | 3.6000E-11 | | R172 | TERP + OH ----> 0.750\*XO2H + 0.500\*XO2 + 0.250\*XO2N + 1.500\*RO2 + 0.280\*FORM + 1.660\*PAR + 0.470\*ALDX + TRPRXN | 1.50E-11e 449.00/T | 6.7627E-11 | | R173 | TERP + O3 ----> 0.570\*OH + 0.070\*XO2H + 0.690\*XO2 + 0.180\*XO2N + 0.940\*RO2 + 0.240\*FORM + 0.001\*CO + 7.000\*PAR + 0.210\*ALDX + 0.390\*CXO3 + TRPRXN | 1.20E-15e -821.00/T | 7.6434E-17 | | R174 | TERP + NO3 ----> 0.470\*NO2 + 0.280\*XO2H + 0.750\*XO2 + 0.250\*XO2N + 1.280\*RO2 + 0.470\*ALDX + 0.530\*NTR2 + TERPNRO2 | 3.70E-12e 175.00/T | 6.6544E-12 | | R171a | APIN + O ----> 0.150\*ALDX + 5.120\*PAR + TRPRXN | 3.6000E-11 | 3.6000E-11 | | R172a | APIN + OH ----> 0.750\*XO2H + 0.500\*XO2 + 0.250\*XO2N + 1.500\*RO2 + 0.280\*FORM + 1.660\*PAR + 0.470\*ALDX + TRPRXN | 1.50E-11e 449.00/T | 6.7627E-11 | | R173a | APIN + O3 ----> 0.570\*OH + 0.070\*XO2H + 0.690\*XO2 + 0.180\*XO2N + 0.940\*RO2 + 0.240\*FORM + 0.001\*CO + 7.000\*PAR + 0.210\*ALDX + 0.390\*CXO3 + TRPRXN | 1.20E-15e -821.00/T | 7.6434E-17 | | R174a | APIN + NO3 ----> 0.470\*NO2 + 0.280\*XO2H + 0.750\*XO2 + 0.250\*XO2N + 1.280\*RO2 + 0.470\*ALDX + 0.530\*NTR2 | 3.70E-12e 175.00/T | 6.6544E-12 | | R175 | BENZENE + OH ----> 0.530\*CRES + 0.352\*BZO2 + 0.352\*RO2 + 0.118\*OPEN + 0.118\*OH + 0.530\*HO2 + BENZRO2 | 2.30E-12e -190.00/T | 1.2161E-12 | | R176 | BZO2 + NO ----> 0.918\*NO2 + 0.082\*NTR2 + 0.918\*GLY + 0.918\*OPEN + 0.918\*HO2 | 2.70E-12e 360.00/T | 9.0313E-12 | | R177 | BZO2 + C2O3 ----> GLY + OPEN + HO2 + MEO2 + RO2 | R58 | 1.3023E-117| | R178 | BZO2 + HO2 ----> | 1.90E-13e 1300.00/T | 1.4872E-11 | | R179 | BZO2 + RO2 ----> GLY + OPEN + HO2 + RO2 | R70 | 3.4772E-137| | R180 | TOL + OH ----> 0.180\*CRES + 0.650\*TO2 + 0.720\*RO2 + 0.100\*OPEN + 0.100\*OH + 0.070\*XO2H + 0.180\*HO2 + TOLRO2 | 1.80E-12e 340.00/T | 5.6302E-12 | | R181 | TO2 + NO ----> 0.860\*NO2 + 0.140\*NTR2 + 0.417\*GLY + 0.443\*MGLY + 0.660\*OPEN + 0.200\*XOPN + 0.860\*HO2 | 2.70E-12e 360.00/T | 9.0313E-12 | | R182 | TO2 + C2O3 ----> 0.480\*GLY + 0.520\*MGLY + 0.770\*OPEN + 0.230\*XOPN + HO2 + MEO2 + RO2 | R58 | 1.3023E-117| | R183 | TO2 + HO2 ----> | 1.90E-13e 1300.00/T | 1.4872E-11 | | R184 | TO2 + RO2 ----> 0.480\*GLY + 0.520\*MGLY + 0.770\*OPEN + 0.230\*XOPN + HO2 + RO2 | R70 | 3.4772E-137| | R185 | XYLMN + OH ----> 0.155\*CRES + 0.544\*XLO2 + 0.602\*RO2 + 0.244\*XOPN + 0.244\*OH + 0.058\*XO2H + 0.155\*HO2 + XYLRO2 | 1.8500E-11 | 1.8500E-11 | | R185a | NAPH + OH ----> 0.155\*CRES + 0.544\*XLO2 + 0.602\*RO2 + 0.244\*XOPN + 0.244\*OH + 0.058\*XO2H + 0.155\*HO2 + PAHRO2 | 1.8500E-11 | 1.8500E-11 | | R186 | XLO2 + NO ----> 0.860\*NO2 + 0.140\*NTR2 + 0.221\*GLY + 0.675\*MGLY + 0.300\*OPEN + 0.560\*XOPN + 0.860\*HO2 | 2.70E-12e 360.00/T | 9.0313E-12 | | R187 | XLO2 + HO2 ----> | 1.90E-13e 1300.00/T | 1.4872E-11 | | R188 | XLO2 + C2O3 ----> 0.260\*GLY + 0.770\*MGLY + 0.350\*OPEN + 0.650\*XOPN + HO2 + MEO2 + RO2 | R58 | 1.3023E-117| | R189 | XLO2 + RO2 ----> 0.260\*GLY + 0.770\*MGLY + 0.350\*OPEN + 0.650\*XOPN + HO2 + RO2 | R70 | 3.4772E-137| | R190 | CRES + OH ----> 0.025\*GLY + 0.025\*OPEN + HO2 + 0.200\*CRO + 0.732\*CAT1 + 0.020\*XO2N + 0.020\*RO2 | 1.70E-12e 950.00/T | 4.1138E-11 | | R191 | CRES + NO3 ----> 0.300\*CRO + HNO3 + 0.480\*XO2 + 0.120\*XO2H + 0.240\*GLY + 0.240\*MGLY + 0.480\*OPO3 + 0.100\*XO2N + 0.700\*RO2 | 1.4000E-11 | 1.4000E-11 | | R192 | CRO + NO2 ----> CRON | 2.1000E-12 | 2.1000E-12 | | R193 | CRO + HO2 ----> CRES | 5.5000E-12 | 5.5000E-12 | | R194 | CRON + OH ----> NTR2 + 0.500\*CRO | 1.5300E-12 | 1.5300E-12 | | R195 | CRON + NO3 ----> NTR2 + 0.500\*CRO + HNO3 | 3.8000E-12 | 3.8000E-12 | | R196 | CRON ----> HONO + HO2 + FORM + OPEN | NTR_IUPAC10 | Not Available1 | | R197 | XOPN ----> 0.400\*GLY + XO2H + 0.700\*HO2 + 0.700\*CO + 0.300\*C2O3 | 5.0000E-02\*NO2_IUPAC10 | Not Available1 | | R198 | XOPN + OH ----> MGLY + 0.400\*GLY + 2.000\*XO2H + 2.000\*RO2 | 9.0000E-11 | 9.0000E-11 | | R199 | XOPN + O3 ----> 1.200\*MGLY + 0.500\*OH + 0.600\*C2O3 + 0.100\*ALD2 + 0.500\*CO + 0.300\*XO2H + 0.300\*RO2 | 1.08E-16e -500.00/T | 2.0189E-17 | | R200 | XOPN + NO3 ----> 0.500\*NO2 + 0.500\*NTR2 + 0.450\*XO2H + 0.450\*XO2 + 0.100\*XO2N + RO2 + 0.250\*OPEN + 0.250\*MGLY | 3.0000E-12 | 3.0000E-12 | | R201 | OPEN ----> OPO3 + HO2 + CO | 2.8000E-02\*NO2_IUPAC10 | Not Available1 | | R202 | OPEN + OH ----> 0.600\*OPO3 + 0.400\*XO2H + 0.400\*RO2 + 0.400\*GLY | 4.4000E-11 | 4.4000E-11 | | R203 | OPEN + O3 ----> 1.400\*GLY + 0.240\*MGLY + 0.500\*OH + 0.120\*C2O3 + 0.080\*FORM + 0.020\*ALD2 + 1.980\*CO + 0.560\*HO2 | 5.40E-17e -500.00/T | 1.0094E-17 | | R204 | OPEN + NO3 ----> OPO3 + HNO3 | 3.8000E-12 | 3.8000E-12 | | R205 | CAT1 + OH ----> 0.140\*FORM + 0.200\*HO2 + 0.500\*CRO | 5.0000E-11 | 5.0000E-11 | | R206 | CAT1 + NO3 ----> CRO + HNO3 | 1.7000E-10 | 1.7000E-10 | | R207 | OPO3 + NO ----> NO2 + 0.500\*GLY + 0.500\*CO + 0.800\*HO2 + 0.200\*CXO3 | 1.0000E-11 | 1.0000E-11 | | R208 | OPO3 + NO2 ----> OPAN | R54 | 9.3892E-127| | R209 | OPAN ----> OPO3 + NO2 | R55 | 3.0541E-047| | R210 | OPO3 + HO2 ----> 0.410\*PACD + 0.150\*AACD + 0.150\*O3 + 0.440\*ALDX + 0.440\*XO2H + 0.440\*RO2 + 0.440\*OH | R57 | 1.3916E-117| | R211 | OPO3 + C2O3 ----> MEO2 + XO2 + ALDX + 2.000\*RO2 | R59 | 1.5514E-117| | R212 | OPO3 + RO2 ----> 0.800\*XO2H + 0.800\*ALDX + 1.800\*RO2 + 0.200\*AACD | R58 | 1.3023E-117| | R213 | OPAN + OH ----> 0.500\*NO2 + 0.500\*GLY + CO + 0.500\*NTR2 | 3.6000E-11 | 3.6000E-11 | | R214 | PANX + OH ----> ALD2 + NO2 | 3.0000E-12 | 3.0000E-12 | | R216 | ECH4 + OH ----> MEO2 + RO2 | 1.85E-12e -1690.00/T | 6.3895E-15 | | R217 | XPRP ----> XO2N + RO2 | ko= 2.37E-21e 0.0/T(T/300) 0.00
ki = 4.30E-01e 0.0/T(T/300) -8.00
n= 1.00;F= 0.41 | 3.1400E-02 | | R218 | XPRP ----> 0.732\*ACET + 0.268\*ALDX + 0.268\*PAR + XO2H + RO2 | 1.0000E+00 | 1.0000E+00 | | R219 | XPAR ----> XO2N + RO2 | ko= 4.81E-20e 0.0/T(T/300) 0.00
ki = 4.30E-01e 0.0/T(T/300) -8.00
n= 1.00;F= 0.41 | 1.5312E-01 | | R220 | XPAR ----> 0.126\*ALDX + 0.874\*ROR + 0.126\*XO2H + 0.874\*XO2 + RO2 - 0.126\*PAR | 1.0000E+00 | 1.0000E+00 | | CL1 | CL2 ----> 2.000\*CL | CL2_IUPAC04 | Not Available1 | | CL2 | HOCL ----> OH + CL | HOCL_IUPAC04 | Not Available1 | | CL3 | CL + O3 ----> CLO | 2.30E-11e -200.00/T | 1.1760E-11 | | CL4 | CLO + CLO ----> 0.300\*CL2 + 1.400\*CL | 1.6300E-14 | 1.6300E-14 | | CL5 | CLO + NO ----> CL + NO2 | 6.40E-12e 290.00/T | 1.6928E-11 | | CL6 | CLO + HO2 ----> HOCL | 2.20E-12e 340.00/T | 6.8814E-12 | | CL7 | CLO + MEO2 ----> CL + FORM + HO2 | 3.20E-12e -110.00/T | 2.2127E-12 | | CL8 | OH + FMCL ----> CL + CO | 5.0000E-13 | 5.0000E-13 | | CL9 | FMCL ----> CL + CO + HO2 | FMCL_IUPAC04 | Not Available1 | | CL10 | CL + CH4 ----> HCL + MEO2 + RO2 | 6.60E-12e -1240.00/T | 1.0311E-13 | | CL11 | CL + PAR ----> HCL + XPAR | 5.0000E-11 | 5.0000E-11 | | CL12 | CL + PRPA ----> HCL + ACET + 0.970\*XO2H + 0.030\*XO2N + RO2 | 1.4000E-10 | 1.4000E-10 | | CL13 | CL + ETHA ----> HCL + 0.991\*ALD2 + 0.991\*XO2H + 0.009\*XO2N + RO2 | 8.30E-11e -100.00/T | 5.9349E-11 | | CL14 | CL + ETH ----> FMCL + 2.000\*XO2 + HO2 + FORM | 1.0700E-10 | 1.0700E-10 | | CL15 | CL + OLE ----> FMCL + 0.330\*ALD2 + 0.670\*ALDX + 2.000\*XO2 + HO2 - PAR | 2.5000E-10 | 2.5000E-10 | | CL16 | CL + IOLE ----> 0.300\*HCL + 0.700\*FMCL + 0.450\*ALD2 + 0.550\*ALDX + 0.300\*OLE + 0.300\*PAR + 1.700\*XO2 + HO2 | 3.5000E-10 | 3.5000E-10 | | CL17 | CL + ISOP ----> FMCL + ISPD + 0.960\*XO2H + 0.040\*XO2N + RO2 | 4.3000E-10 | 4.3000E-10 | | CL18 | CL + FORM ----> HCL + HO2 + CO | 8.20E-11e -34.00/T | 7.3162E-11 | | CL19 | CL + ALD2 ----> HCL + C2O3 | 7.9000E-11 | 7.9000E-11 | | CL20 | CL + ALDX ----> HCL + CXO3 | 1.3000E-10 | 1.3000E-10 | | CL21 | CL + MEOH ----> HCL + HO2 + FORM | 5.5000E-11 | 5.5000E-11 | | CL22 | CL + ETOH ----> HCL + HO2 + ALD2 | 8.20E-11e 45.00/T | 9.5359E-11 | | CL23 | HCL + OH ----> CL | 6.58E-13e 58.00/T(T/300) 1.16 | 7.9359E-13 | | CL24 | CL + TOL ----> HCL + 0.180\*CRES + 0.650\*TO2 + 0.720\*RO2 + 0.100\*OPEN + 0.100\*OH + 0.070\*XO2H + 0.180\*HO2 + TOLRO2 | 6.1000E-11 | 6.1000E-11 | | CL25 | CL + XYLMN ----> HCL + 0.155\*CRES + 0.544\*XLO2 + 0.602\*RO2 + 0.244\*XOPN + 0.244\*OH + 0.058\*XO2H + 0.155\*HO2 + XYLRO2 | 1.2000E-10 | 1.2000E-10 | | CL26 | CL + NAPH ----> HCL + 0.155\*CRES + 0.544\*XLO2 + 0.602\*RO2 + 0.244\*XOPN + 0.244\*OH + 0.058\*XO2H + 0.155\*HO2 + PAHRO2 | 1.2000E-10 | 1.2000E-10 | | CL27 | CLNO2 ----> CL + NO2 | CLNO2_IUPAC13 | Not Available1 | | CL28 | CLO + NO2 ----> CLNO3 | ko= 1.80E-31e 0.0/T(T/300) -3.40
ki = 1.50E-11e 0.0/T(T/300) -1.90
n= 1.00;F= 0.60 | 2.3359E-12 | | CL30 | CLNO3 ----> CLO + NO2 | CLONO2_1 | Not Available1 | | CL31 | CLNO3 ----> CL + NO3 | CLONO2_2 | Not Available1 | | HET_CLNO3_WAJ | CLNO3 ----> HOCL + HNO3 | HETERO_CLNO3_WAJ | Not Available2 | | SA01 | TOLRO2 + NO ----> NO + 0.016\*SVAVB2 + 0.051\*SVAVB3 + 0.047\*SVAVB4 | 2.70E-12e 360.00/T | 9.0313E-12 | | SA02 | TOLRO2 + HO2 ----> HO2 + 0.140\*SVAVB1 | 1.90E-13e 1300.00/T | 1.4872E-11 | | SA03 | XYLRO2 + NO ----> NO + 0.015\*SVAVB2 + 0.023\*SVAVB3 + 0.060\*SVAVB4 | 2.70E-12e 360.00/T | 9.0313E-12 | | SA04 | XYLRO2 + HO2 ----> HO2 + 0.193\*SVAVB1 | 1.90E-13e 1300.00/T | 1.4872E-11 | | SA06 | BENZRO2 + NO ----> NO + 0.034\*SVAVB2 + 0.392\*SVAVB4 | 2.70E-12e 360.00/T | 9.0313E-12 | | SA07 | BENZRO2 + HO2 ----> HO2 + 0.146\*SVAVB1 | 1.90E-13e 1300.00/T | 1.4872E-11 | | SA08 | SESQ + O3 ----> O3 + SESQRXN | 1.1600E-14 | 1.1600E-14 | | SA09 | SESQ + OH ----> OH + SESQRXN | 1.9700E-10 | 1.9700E-10 | | SA10 | SESQ + NO3 ----> NO3 + SESQRXN | 1.9000E-11 | 1.9000E-11 | | SA11 | PAHRO2 + NO ----> NO + 0.028\*SVAVB2 + 0.225\*SVAVB3 + 0.191\*SVAVB4 | 2.70E-12e 360.00/T | 9.0313E-12 | | SA12 | PAHRO2 + HO2 ----> HO2 + 0.473\*SVAVB1 | 1.90E-13e 1300.00/T | 1.4872E-11 | | SA13 | SOAALK + OH ----> OH + 0.006\*SVAVB2 + 0.052\*SVAVB3 + 0.081\*SVAVB4 | 2.70E-12e 374.00/T | 9.4655E-12 | | HET_NTR2 | NTR2 ----> HNO3 | 1.4000E+00\*HETERO_NTR2 | Not Available2 | | HET_N2O5IJ | N2O5 ----> HNO3 + H2NO3PIJ | HETERO_N2O5IJ | Not Available2 | | HET_N2O5K | N2O5 ----> HNO3 + H2NO3PK | HETERO_N2O5K | Not Available2 | | HET_H2NO3PIJA | H2NO3PIJ ----> HNO3 | HETERO_H2NO3PAIJ | Not Available2 | | HET_H2NO3PKA | H2NO3PK ----> HNO3 | HETERO_H2NO3PAK | Not Available2 | | HET_H2NO3PIB | H2NO3PIJ + ACLI ----> CLNO2 | HETERO_H2NO3PBIJ | Not Available2 | | HET_H2NO3PJB | H2NO3PIJ + ACLJ ----> CLNO2 | HETERO_H2NO3PBIJ | Not Available2 | | HET_H2NO3PKB | H2NO3PK + ACLK ----> CLNO2 | HETERO_H2NO3PBK | Not Available2 | | HET_N02 | NO2 ----> 0.500\*HONO + 0.500\*HNO3 | HETERO_NO2 | Not Available2 | | HAL_Ozone | O3 ----> | SEAWATER*min( 6.701E-11e 1.074E+01P+ 3.415E-08e-6.713E-01P,
2.000E-06) | 2.0000E-064| | HET_IEPOX | EPOX ----> IEPOXP | HETERO_IEPOX | Not Available2 | | HET_IEPOXOS | IEPOXP + ASO4J ----> AISO3J | HETERO_IEPOXOS | Not Available2 | | HET_TETROL | IEPOXP ----> AISO3J | HETERO_TETROL | Not Available2 | | HET_GLY | GLY ----> AGLYJ | HETERO_GLY | Not Available2 | | HET_MGLY | MGLY ----> AGLYJ | HETERO_MGLY | Not Available2 | | BL18a | TERPNRO2 + NO ----> NO + 0.688\*MTNO3 | 2.60E-12e 380.00/T | 9.3002E-12 | | BL18b | TERPNRO2 + HO2 ----> HO2 + MTNO3 | 2.65E-13e 1300.00/T | 2.0743E-11 | | BL18c | TERPNRO2 + NO3 ----> NO3 + 0.422\*MTNO3 | 2.3000E-12 | 2.3000E-12 | | BL18d | TERPNRO2 + RO2 ----> RO2 + 0.711\*MTNO3 | 3.5000E-14 | 3.5000E-14 | | CP07mtp | MTNO3 + CL ----> CL + 0.370\*MTNO3 | 1.9200E-10 | 1.9200E-10 | | BP70mtp | MTNO3 + OH ----> OH + 0.240\*MTNO3 | 7.2000E-12 | 7.2000E-12 | | BP71mtp | MTNO3 ----> | IC3ONO2 | Not Available1 | | HYD_MT | AMTNO3J ----> AMTHYDJ | 9.2590E-05 | 9.2590E-05 | | OLIG_AROMATIC1 | AAVB2J ----> 0.907\*AOLGAJ | 9.4882E-06 | 9.4882E-06 | | OLIG_AROMATIC2 | AAVB3J ----> 0.925\*AOLGAJ | 9.4882E-06 | 9.4882E-06 | | OLIG_AROMATIC3 | AAVB4J ----> 0.943\*AOLGAJ | 9.4882E-06 | 9.4882E-06 | | OLIG_ISOPRENE1 | AISO1J ----> 0.500\*AOLGBJ | 9.4882E-06 | 9.4882E-06 | | OLIG_ISOPRENE2 | AISO2J ----> 0.500\*AOLGBJ | 9.4882E-06 | 9.4882E-06 | | OLIG_SESQT1 | ASQTJ ----> 1.500\*AOLGBJ | 9.4882E-06 | 9.4882E-06 | | RPOAGEPI | APOCI + OH ----> 1.250\*APNCOMI + APOCI + OH | 2.5000E-12 | 2.5000E-12 | | RPOAGELI | APNCOMI + OH ----> OH | HETERO_PNCOMLI | Not Available2 | | RPOAGEPJ | APOCJ + OH ----> 1.250\*APNCOMJ + APOCJ + OH | 2.5000E-12 | 2.5000E-12 | | RPOAGELJ | APNCOMJ + OH ----> OH | HETERO_PNCOMLJ | Not Available2 | | PCSOA | PCVOC + OH ----> OH + PCSOARXN | 1.2500E-11 | 1.2500E-11 | | POA_AGE1 | VLVPO1 + OH ----> OH + 0.486\*VLVPO1 + 0.006\*VSVPO1 + 0.003\*VSVPO2 + 0.003\*VSVPO3 + 0.002\*VIVPO1 + 0.294\*VLVOO1 + 0.202\*VLVOO2 + 0.002\*VSVOO2 + 0.002\*VSVOO3 | 4.0000E-11 | 4.0000E-11 | | POA_AGE2 | VSVPO1 + OH ----> OH + 0.300\*VLVPO1 + 0.286\*VSVPO1 + 0.004\*VSVPO2 + 0.004\*VSVPO3 + 0.224\*VLVOO1 + 0.182\*VLVOO2 | 4.0000E-11 | 4.0000E-11 | | POA_AGE3 | VSVPO2 + OH ----> OH + 0.386\*VLVPO1 + 0.095\*VSVPO1 + 0.137\*VSVPO2 + 0.001\*VSVPO3 + 0.205\*VLVOO1 + 0.176\*VLVOO2 | 4.0000E-11 | 4.0000E-11 | | POA_AGE4 | VSVPO3 + OH ----> OH + 0.218\*VLVPO1 + 0.306\*VSVPO1 + 0.015\*VSVPO2 + 0.104\*VSVPO3 + 0.189\*VLVOO1 + 0.167\*VLVOO2 | 4.0000E-11 | 4.0000E-11 | | POA_AGE5 | VIVPO1 + OH ----> OH + 0.241\*VLVPO1 + 0.209\*VSVPO1 + 0.300\*VSVPO2 + 0.203\*VLVOO1 + 0.047\*VLVOO2 | 4.0000E-11 | 4.0000E-11 | | POA_AGE6 | VLVOO1 + OH ----> OH + 0.666\*VLVOO1 + 0.014\*VLVOO2 + 0.012\*VSVOO1 + 0.124\*VSVOO2 + 0.183\*VSVOO3 | 4.0000E-11 | 4.0000E-11 | | POA_AGE7 | VLVOO2 + OH ----> OH + 0.286\*VLVOO1 + 0.393\*VLVOO2 + 0.014\*VSVOO1 + 0.103\*VSVOO2 + 0.204\*VSVOO3 | 4.0000E-11 | 4.0000E-11 | | POA_AGE8 | VSVOO1 + OH ----> OH + 0.330\*VLVOO1 + 0.227\*VLVOO2 + 0.261\*VSVOO1 + 0.070\*VSVOO2 + 0.112\*VSVOO3 | 4.0000E-11 | 4.0000E-11 | | POA_AGE9 | VSVOO2 + OH ----> OH + 0.344\*VLVOO1 + 0.275\*VLVOO2 + 0.049\*VSVOO1 + 0.258\*VSVOO2 + 0.074\*VSVOO3 | 4.0000E-11 | 4.0000E-11 | | POA_AGE10 | VSVOO3 + OH ----> OH + 0.389\*VLVOO1 + 0.242\*VLVOO2 + 0.064\*VSVOO1 + 0.038\*VSVOO2 + 0.267\*VSVOO3 | 4.0000E-11 | 4.0000E-11 | | T01 | FORM_PRIMARY + OH ----> OH | 5.40E-12e 135.00/T | 8.4926E-12 | | T02 | FORM_PRIMARY + NO3 ----> NO3 | 5.5000E-16 | 5.5000E-16 | | T03 | FORM_PRIMARY + O ----> O | 3.40E-11e -1600.00/T | 1.5881E-13 | | T04 | FORM_PRIMARY ----> | FORM_R_IUPAC10 | Not Available1 | | T05 | FORM_PRIMARY ----> | FORM_M_IUPAC10 | Not Available1 | | TCL1 | FORM_PRIMARY + CL ----> CL | 8.20E-11e -34.00/T | 7.3162E-11 | | T06 | ALD2_PRIMARY + OH ----> OH | 4.70E-12e 345.00/T | 1.4950E-11 | | T07 | ALD2_PRIMARY + NO3 ----> NO3 | 1.40E-12e -1860.00/T | 2.7340E-15 | | T08 | ALD2_PRIMARY + O ----> O | 1.80E-11e -1100.00/T | 4.4976E-13 | | T09 | ALD2_PRIMARY ----> | ALD2_R_IUPAC10 | Not Available1 | | TCL2 | ALD2_PRIMARY + CL ----> CL | 7.9000E-11 | 7.9000E-11 | | T10 | BUTADIENE13 + OH ----> OH + 0.580\*ACROLEIN | 1.48E-11e 448.00/T | 6.6502E-11 | | T11 | BUTADIENE13 + O3 ----> O3 + 0.520\*ACROLEIN | 1.34E-14e -2283.00/T | 6.3331E-18 | | T12 | BUTADIENE13 + NO3 ----> NO3 + 0.045\*ACROLEIN | 1.7900E-13 | 1.7900E-13 | | TCL3 | BUTADIENE13 + CL ----> CL + 0.580\*ACROLEIN | 2.5100E-10 | 2.5100E-10 | | T13 | ACRO_PRIMARY + OH ----> OH | 2.0000E-11 | 2.0000E-11 | | T14 | ACRO_PRIMARY + O3 ----> O3 | 2.6100E-19 | 2.6100E-19 | | T15 | ACRO_PRIMARY + NO3 ----> NO3 | 1.1500E-15 | 1.1500E-15 | | T16 | ACRO_PRIMARY ----> | ACRO_09 | Not Available1 | | TCL4 | ACRO_PRIMARY + CL ----> CL | 2.3700E-10 | 2.3700E-10 | | T17 | ACROLEIN + OH ----> OH | 2.0000E-11 | 2.0000E-11 | | T18 | ACROLEIN + O3 ----> O3 | 2.6100E-19 | 2.6100E-19 | | T19 | ACROLEIN + NO3 ----> NO3 | 1.1500E-15 | 1.1500E-15 | | T20 | ACROLEIN ----> | ACRO_09 | Not Available1 | | TCL5 | ACROLEIN + CL ----> CL | 2.3700E-10 | 2.3700E-10 | | T21 | TOLU + OH ----> OH | 1.80E-12e 340.00/T | 5.6302E-12 | | TCL6 | TOLU + CL ----> CL | 6.1000E-11 | 6.1000E-11 | | HG1 | HG + O3 ----> 0.500\*HGIIAER + 0.500\*HGIIGAS + O3 | 2.11E-18e -1256.50/T | 3.1191E-20 | | HG2 | HG + CL2 ----> HGIIGAS + CL2 | 2.6000E-18 | 2.6000E-18 | | HG3 | HG + H2O2 ----> HGIIGAS + H2O2 | 8.5000E-19 | 8.5000E-19 | | HG4 | HG + OH ----> 0.500\*HGIIAER + 0.500\*HGIIGAS + OH | 7.7000E-14 | 7.7000E-14 | | HG5 | HG + CL + M ----> 0.500\*HG + 0.500\*HGIIGAS + CL | 2.25E-33e 680.00/T | 2.2014E-32 | 0Units molecules/(sec*cm3); Value at 298.15 K; 2.4615E+19 molcules/cm3; 1.00 Atm. 1Photolysis Reaction;depends on radiation and predicted concentrations 2Heteorogeneous Reaction;Depends predicted concentrations 4Set to zero if sun is below the horizon. SEAWATER equals surface fraction covered by ice free open ocean plus surf zones. P equals air pressure in atmospheres. 7Rate constant multiple of constant for listed reaction ================================================ FILE: CCTM/src/MECHS/mechanism_information/cb6r5_ae7_aq/AE7_species_table.md ================================================ **The AE namelist for cb6r5_ae7_aq has the following aerosol species.** | **Model Species** | **Name** | **Molecular Weight** | **Explicit or Lumped** | | ----------------- | ---------------------------------------------------- | -------------------- | ---------------------- | | AAL | Aluminum | 27 | E | | AAVB1 | low volatility organic particulate matter from oxidation of anthropogenic VOCs | 198.0 | L | | AAVB2 | semivolailte organic particulate matter from oxidation of anthropogenic VOCs | 179.0 | L | | AAVB3 | semivolailte organic particulate matter from oxidation of anthropogenic VOCs | 169.0 | L | | AAVB4 | semivolailte organic particulate matter from oxidation of anthropogenic VOCs | 158.0 | L | | ACA | Calcium | 40.1 | E | | ACL | Chloride | 35.5 | E | | ACORS | Anthropogenic Coarse-mode particle mass | 100.0 | L | | AEC | Elemental Carbon | 12 | E | | AFE | Iron | 55.8 | E | | AGLY | Glyoxal and Methylglyoxal SOA | 66.4 | L | | AH2O | Water | 18 | E | | AH3OP | Hydronium Ion | 19 | E | | AISO1 | Semivolatile SOA Product from Isoprene | 132.0 | L | | AISO2 | High-Volatility SOA Product from Isoprene | 133.0 | L | | AISO3 | Acid-Catalyzed Isoprene SOA compounds | 168.2 | L | | AIVPO1 | Intermediate Volatility Primary Organic Compounds | 266 | L | | AK | Potassium | 39.1 | E | | ALVOO1 | Low Volatility Oxidized Combustion Organic Compounds | 136 | L | | ALVOO2 | Low Volatility Oxidized Combustion Organic Compounds | 136 | L | | ALVPO1 | Low Volatility Primary Organic Compounds | 218 | L | | AMG | Magnesium | 24.3 | E | | AMN | Manganese | 54.9 | E | | AMT1 | low volatility particulate matter from monoterpene photoxidation, C*=0.01 ug/m3 | 200.0 | L | | AMT2 | low volatility particulate matter from monoterpene photoxidation, C*=0.1 ug/m3 | 300.0 | L | | AMT3 | semivolailte particulate matter from monoterpene photoxidation, C*=1 ug/m3 | 186.0 | L | | AMT4 | semivolatile particulate matter from monoterpene photoxidation, C*=10 ug/m3 | 184.0 | L | | AMT5 | semivolatile particulate matter from monoterpene photoxidation, C*=100 ug/m3 | 170.0 | L | | AMT6 | semivolatile particulate matter from monoterpene photoxidation, C*=1000 ug/m3 | 168.0 | L | | AMTNO3J | semivolatile organic nitrates from monoterpene oxidation (Should not to be included for tracking nitrogen) | 231.0 | L | | AMTHYDJ | organic pseudo-hydrolysis accretion product from monoterpene organic nitrates (AMTNO3J) | 168.0| L | | ANA | Sodium | 23 | E | | ANH4 | Ammonium | 18 | E | | ANO3 | Nitrate | 62 | E | | AOLGA | Oligomer products of anthropogenic SOA compounds | 206.0 | L | | AOLGB | Oligomer products of biogenic SOA compounds | 248.0 | L | | AORGC | Glyoxal and Methylglyoxal SOA | 177.0 | L | | AORGH2O | Water associated with organic species of particulate matter | 18.0 | E | | AOTHR | Other Particulate Mass | 200 | L | | APCSO | Potential Combustion SOA | 170 | L | | APNCOM | Non-Carbon Organic Matter associated with APOC | 220.0 | L | | APOC | Primary Organic Carbon | 220.0 | L | | ASEACAT | Sea spray cations | 23.75 | L | | ASI | Silicon | 28.1 | E | | ASO4 | Sulfate | 96 | E | | ASOIL | Lumped crustal species | 100.0 | L | | ASQT | Semivolatile SOA Product from Sesquiterpenes | 273.0 | L | | ASVOO1 | Semivolatile Oxidized Combustion Organic Compounds | 135 | L | | ASVOO2 | Semivolatile Oxidized Combustion Organic Compounds | 135 | L | | ASVOO3 | Semivolatile Oxidized Combustion Organic Compounds | 134 | L | | ASVPO1 | Semivolatile Primary Organic Compounds | 230 | L | | ASVPO2 | Semivolatile Primary Organic Compounds | 241 | L | | ASVPO3 | Semivolatile Primary Organic Compounds | 253 | L | | ATI | Titanium | 47.9 | E | | NUMACC | Accum. Mode Number Conc | NA | NA | | NUMAIT | Aitken Mode Number Conc | NA | NA | | NUMCOR | Coarse Mode Number Conc | NA | NA | | SRFACC | Accum. Mode Surface Area Conc | NA | NA | | SRFAIT | Aitken Mode Surface Area Conc | NA | NA | | SRFCOR | Coarse Mode Surface Area Conc | NA | NA | Note that for each aerosol mass species, a letter will be appended to the names below in order to designate the size, or mode, of the aerosol being represented: I = Aitken mode, J = Accumulation mode, K = Coarse mode. ================================================ FILE: CCTM/src/MECHS/mechanism_information/cb6r5_ae7_aq/NR7_species_table.md ================================================ **The NR namelist for cb6r5_ae7_aq has the following gas phase species.** | **Model Species** | **Name** | **Molecular Weight** | **Explicit or Lumped** | | ----------------- | ---------------------------------------------------- | -------------------- | ---------------------- | | LVPCSOG | surrogate SOA precursor gas for combustion/anthropogenic sources | 170.0 | L | | NH3 | ammonia | 17.0 | E | | SVMT1 | low volatility gas from monoterpene photoxidation | 300.0 | L | | SVMT2 | low volatility gas from monoterpene photoxidation | 200.0 | L | | SVMT3 | semivolatile gas from monoterpene photoxidation | 186.0 | L | | SVMT4 | semivolatile gas from monoterpene photoxidation | 184.0 | L | | SVMT5 | semivolatile gas from monoterpene photoxidation | 170.0 | L | | SVMT6 | semivolatile gas from monoterpene photoxidation | 168.0 | L | | SVISO1 | semivolatile gas of secondary aerosol material from isoprene | 132.0 | L | | SVISO2 | semivolatile gas of secondary aerosol material from isoprene | 133.0 | L | | SVSQT | semivolatile gas of secondary aerosol material from sesquiterpenes | 273.0 | L | ================================================ FILE: CCTM/src/MECHS/mechanism_information/cb6r5_ae7_aq/cb6r5_ae7_aq_species_table.md ================================================ **The GC namelist for cb6r5_ae7_aq has the following gas phase species.** | **Model Species** | **Definition** | **Molecular Weight** | **Explicit or Lumped** | | ----------------- | ---------------------------------------------------------------------------- | -------------------- | ---------------------- | | AACD | acetic acid | 60 | E | | ACET | acetone | 58.1 | E | | ACRO_PRIMARY | acrolein from emissions only | 56.1 | E | | ACROLEIN | acrolein | 56.1 | E | | ALD2 | acetaldehyde | 44 | E | | ALD2_PRIMARY | acetaldehyde from emissions only | 44 | E | | ALDX | aldehydes with 3 or more carbons | 58.1 | L | | APIN | alpha pinene | 136.2 | E | | BENZENE | benzene | 78.1 | E | | BENZRO2 | counter species for aerosol from benzene+OH | 127 | L | | BUTADIENE13 | 1,3-butadiene | 54 | E | | BZO2 | peroxy radical from benzene reactions with OH | 159.1 | L | | C2O3 | acetylperoxy radical | 75 | E | | CAT1 | methyl catechols | 124.1 | L | | CL | atomic chlorine | 35.5 | E | | CL2 | molecular chlorine | 71 | E | | CLNO2 | nitryl chloride | 81.5 | E | | CLNO3 | chlorine nitrate | 97.5 | E | | CLO | chlorine monoxide | 51.5 | E | | CO | carbon monoxide | 28 | E | | CRES | cresol and higher molecular weight phenols | 108.1 | L | | CRO | alkoxy radical from cresol | 107.1 | L | | CRON | nitro-cresols | 153.1 | L | | CXO3 | acetylperoxy radicals with 3 or more carbons | 89 | L | | DMS | dimethylsulfide | 62.0 | E | | ECH4 | methane | 16 | E | | EPOX | isoprene epoxydiol | 118.1 | L | | EPX2 | peroxy radical from EPOX+OH reaction | 149.1 | L | | ETH | ethene | 28 | E | | ETHA | ethane | 30.1 | E | | ETHY | ethyne (acetylene) | 26 | E | | ETOH | ethanol | 46.1 | E | | FACD | formic acid | 46 | E | | FMCL | formylchloride | 64.5 | E | | FORM | formaldehyde | 30 | E | | FORM_PRIMARY | formaldehyde from emissions only | 30 | E | | GLY | glyoxal | 58 | E | | GLYD | glycoaldehyde (hydroxyacetaldehyde) | 60 | E | | H2NO3PIJ | tracer producing HNO3 or ClNO2 from N2O5 in fine mode aerosols | 64 | E | | H2NO3PK | tracer producing HNO3 or ClNO2 from N2O5 in coarse mode aerosols | 64 | E | | H2O2 | hydrogen peroxide | 34 | E | | HCL | hydrochloric acid | 36.5 | E | | HCO3 | radical from HO2 reactions with formaldehyde | 63 | E | | HG | elemental mercury | 200.6 | E | | HGIIAER | precursor of aerosol divalent mercury | 200.6 | E | | HGIIGAS | divalent mercury | 271.5 | E | | HNO3 | nitric acid | 63 | E | | HO2 | hydroperoxy radical | 33 | E | | HOCL | hypochlorous acid | 52.5 | E | | HONO | nitrous acid | 47 | E | | HPLD | hydroperoxyaldehyde from ISO2 isomerization | 116.1 | L | | INTR | nitrate from isoprene | 147.1 | L | | IOLE | internal alkene bond | 56.1 | L | | ISO2 | isoprene peroxy radical | 117.1 | L | | ISOP | isoprene | 68.1 | E | | ISOPRXN | counter species for aerosol from isoprene, volatility pathways | 68.1 | L | | ISPD | isoprene reaction products (methacrolein, methylvinyl ketone, others) | 70.1 | L | | ISPX | hydroperoxide from ISO2 reaction with HO2 | 118.1 | L | | KET | carbon-ketone bond | 72.1 | L | | MEO2 | methylperoxy radical | 47 | E | | MEOH | methanol | 32 | E | | MEPX | methylhydroperoxide | 48 | E | | MGLY | methyl glyoxal | 72 | E | | MMTNO3 | organic nitrates from monoterpene oxidation (Should not to be included for tracking nitrogen) | 231.0 | L | |MSA | methane sulfonic acid | 96.0 | E | | N2O5 | dinitrogen pentoxide | 108 | E | | NAPH | naphthalene | 128.2 | E | | NO | nitric oxide | 30 | E | | NO2 | nitrogen dioxide | 46 | E | | NO3 | nitrate radical | 62 | E | | NTR1 | monofunctional organic nitrates | 119.1 | L | | NTR2 | multifunctional organic nitrates | 135.1 | L | | O | ground-state oxygen atoms, O(3P) | 16 | E | | O1D | electronically excited oxygen atoms, O(1D) | 16 | E | | O3 | ozone | 48 | E | | OH | hydroxyl radical | 17 | E | | OLE | terminal alkene bond | 42.1 | L | | OPAN | peroxyacylnitrate from OPO3 | 161 | L | | OPEN | aromatic ring opening product (an alkene and aldehyde) | 84 | L | | OPO3 | peroxyacyl radical from OPEN | 115 | L | | PACD | peroxycarboxylic acids | 76 | L | | PAHRO2 | counter species for aerosol from NAPH+OH | 187.2 | L | | PAN | peroxyacylnitrate | 121 | E | | PANX | peroxyacylnitrates with 3 or more carbons | 135 | L | | PAR | carbon-carbon single bond | 14.0 | L | | PCSOARXN | counter species for potential aerosol from combustion (from PCVOC reactions) | 170 | L | | PCVOC | tracer for potential combustion SOA VOCs | 170 | L | | PNA | peroxynitric acid | 79 | E | | PRPA | propane | 44.1 | E | | RO2 | total peroxy radical concentration | 87.1 | L | | ROOH | methylhydroperoxide | 90.1 | E | | ROR | secondary alkoxy radical | 71.1 | L | | SESQ | sesquiterpenes | 204 | L | | SESQRXN | counter species for aerosol from sesquiterpenes | 204 | L | | SO2 | sulfur dioxide | 64 | E | | SOAALK | tracer for alkanes that can form secondary organic aerosol | 112 | L | | SULF | sulfuric acid (gaseous) | 98 | E | | SULRXN | sulfate aerosol precursor | 98 | E | | SVAVB1 | low volatility organic gas from oxidation of anthropogenic VOCs | 179.0 | L | | SVAVB2 | semivolatile organic gas from oxidation of anthropogenic VOCs | 169.0 | L | | SVAVB3 | semivolatile organic gas from oxidation of anthropogenic VOCs | 158.0 | L | | SVAVB4 | semivolatile organic gas from oxidation of anthropogenic VOCs | 198.0 | L | | TERP | monoterpenes | 136.2 | L | | TERPNRO2 | counter species for aerosol from TERP + NO3 | 197.0 | L | | TO2 | toluene peroxy radical | 173.1 | L | | TOL | toluene and other monoalkyl aromatics | 92.1 | L | | TOLRO2 | counter species for aerosol from TOL+OH | 141 | L | | TOLU | toluene | 92 | E | | TRPRXN | counter species for aerosol precursor from monoterpenes | 136.2 | L | | VIVPO1 | evaporated primary organic aerosol, intermed-volatility | 266 | L | | VLVOO1 | evaporated secondary organic aerosol, low-volatility, cat 1 | 136 | L | | VLVOO2 | evaporated secondary organic aerosol, low-volatility, cat 2 | 136 | L | | VLVPO1 | evaporated primary organic aerosol, low-volatility | 218 | L | | VSVOO1 | evaporated secondary organic aerosol, semi-volatile, cat 1 | 135 | L | | VSVOO2 | evaporated secondary organic aerosol, semi-volatile, cat 2 | 135 | L | | VSVOO3 | evaporated secondary organic aerosol, semi-volatile, cat 3 | 134 | L | | VSVPO1 | evaporated primary organic aerosol, semi-volatile, cat 1 | 230 | L | | VSVPO2 | evaporated primary organic aerosol, semi-volatile, cat 2 | 241 | L | | VSVPO3 | evaporated primary organic aerosol, semi-volatile, cat 3 | 253 | L | | XLO2 | peroxy radical from XYLMN+OH reaction | 187.1 | L | | XO2 | NO oxidation to NO2 via peroxy radical | 87.1 | L | | XO2H | NO oxidation to NO2 with HO2 production, from alkoxy radicals | 87.1 | L | | XO2N | nitrate production from NO reaction with peroxy radical | 87.1 | L | | XOPN | product of aromatic ring-opening reaction | 98.1 | L | | XPAR | organic nitrate production from PAR | 117.1 | L | | XPRP | organic nitrate production from PRPA | 89.1 | L | | XYLMN | xylene and other polyalkyl aromatics except naphthalene | 106.2 | L | | XYLRO2 | counter species for aerosol from XYLMN+OH | 155 | L | **The AE namelist for cb6r5_ae7_aq has the following aerosol species.** | **Model Species** | **Definition** | **Molecular Weight** | **Explicit or Lumped** | | ----------------- | ---------------------------------------------------- | -------------------- | ---------------------- | | AAL | Aluminum | 27 | E | | AAVB1 | low volatility organic particulate matter from oxidation of anthropogenic VOCs | 198.0 | L | | AAVB2 | semivolailte organic particulate matter from oxidation of anthropogenic VOCs | 179.0 | L | | AAVB3 | semivolailte organic particulate matter from oxidation of anthropogenic VOCs | 169.0 | L | | AAVB4 | semivolailte organic particulate matter from oxidation of anthropogenic VOCs | 158.0 | L | | ACA | Calcium | 40.1 | E | | ACL | Chloride | 35.5 | E | | ACORS | Anthropogenic Coarse-mode particle mass | 100.0 | L | | AEC | Elemental Carbon | 12 | E | | AFE | Iron | 55.8 | E | | AGLY | Glyoxal and Methylglyoxal SOA in aqueous aerosol material | 66.4 | L | | AH2O | Water | 18 | E | | AH3OP | Hydronium Ion | 19 | E | | AISO1 | Semivolatile SOA Product from Isoprene | 132.0 | L | | AISO2 | High-Volatility SOA Product from Isoprene | 133.0 | L | | AISO3 | Acid-catalyzed Isoprene Epoxydiol SOA | 168.2 | L | | AIVPO1 | Intermediate Volatility Primary Organic Compounds | 266 | L | | AK | Potassium | 39.1 | E | | ALVOO1 | Low Volatility Oxidized Combustion Organic Compounds | 136 | L | | ALVOO2 | Low Volatility Oxidized Combustion Organic Compounds | 136 | L | | ALVPO1 | Low Volatility Primary Organic Compounds | 218 | L | | AMG | Magnesium | 24.3 | E | | AMN | Manganese | 54.9 | E | | AMT1 | low volatility particulate matter from monoterpene photoxidation, C*=0.01 ug/m3 | 200.0 | L | | AMT2 | low volatility particulate matter from monoterpene photoxidation, C*=0.1 ug/m3 | 300.0 | L | | AMT3 | semivolailte particulate matter from monoterpene photoxidation, C*=1 ug/m3 | 186.0 | L | | AMT4 | semivolatile particulate matter from monoterpene photoxidation, C*=10 ug/m3 | 184.0 | L | | AMT5 | semivolatile particulate matter from monoterpene photoxidation, C*=100 ug/m3 | 170.0 | L | | AMT6 | semivolatile particulate matter from monoterpene photoxidation, C*=1000 ug/m3 | 168.0 | L | | AMTNO3J | semivolatile organic nitrates from monoterpene oxidation (Should not to be included for tracking nitrogen) | 231.0 | L | | AMTHYDJ | organic pseudo-hydrolysis accretion product from monoterpene organic nitrates (AMTNO3J) | 168.0| L | | ANA | Sodium | 23 | E | | ANH4 | Ammonium | 18 | E | | ANO3 | Nitrate | 62 | E | | AOLGA | Oligomer products of anthropogenic SOA compounds | 206.0 | L | | AOLGB | Oligomer products of biogenic SOA compounds | 248.0 | L | | AORGC | Glyoxal and methylglyoxal SOA produced in cloud water | 177.0 | L | | AORGH2O | Water associated with organic species of particulate matter | 18.0 | E | | AOTHR | Other Particulate Mass | 200 | L | | APCSO | Potential Combustion SOA | 170 | L | | APNCOM | Non-Carbon Organic Matter associated with APOC | 220.0 | L | | APOC | Primary Organic Carbon | 220.0 | L | | ASEACAT | Sea spray cations | 23.75 | L | | ASI | Silicon | 28.1 | E | | ASO4 | Sulfate | 96 | E | | ASOIL | Lumped crustal species | 100.0 | L | | ASQT | Semivolatile SOA Product from Sesquiterpenes | 273.0 | L | | ASVOO1 | Semivolatile Oxidized Combustion Organic Compounds | 135 | L | | ASVOO2 | Semivolatile Oxidized Combustion Organic Compounds | 135 | L | | ASVOO3 | Semivolatile Oxidized Combustion Organic Compounds | 134 | L | | ASVPO1 | Semivolatile Primary Organic Compounds | 230 | L | | ASVPO2 | Semivolatile Primary Organic Compounds | 241 | L | | ASVPO3 | Semivolatile Primary Organic Compounds | 253 | L | | ATI | Titanium | 47.9 | E | | NUMACC | Accum. Mode Number Conc | NA | NA | | NUMAIT | Aitken Mode Number Conc | NA | NA | | NUMCOR | Coarse Mode Number Conc | NA | NA | | SRFACC | Accum. Mode Surface Area Conc | NA | NA | | SRFAIT | Aitken Mode Surface Area Conc | NA | NA | | SRFCOR | Coarse Mode Surface Area Conc | NA | NA | Note that for each aerosol mass species, a letter will be appended to the names below in order to designate the size, or mode, of the aerosol being represented: I = Aitken mode, J = Accumulation mode, K = Coarse mode. **The NR namelist for cb6r5_ae7_aq has the following gas phase species.** | **Model Species** | **Definition** | **Molecular Weight** | **Explicit or Lumped** | | ----------------- | ---------------------------------------------------- | -------------------- | ---------------------- | | LVPCSOG | surrogate SOA precursor gas for combustion/anthropogenic sources | 170.0 | L | | NH3 | ammonia | 17.0 | E | | SVMT1 | low volatility gas from monoterpene photoxidation | 300.0 | L | | SVMT2 | low volatility gas from monoterpene photoxidation | 200.0 | L | | SVMT3 | semivolatile gas from monoterpene photoxidation | 186.0 | L | | SVMT4 | semivolatile gas from monoterpene photoxidation | 184.0 | L | | SVMT5 | semivolatile gas from monoterpene photoxidation | 170.0 | L | | SVMT6 | semivolatile gas from monoterpene photoxidation | 168.0 | L | | SVISO1 | semivolatile gas of secondary aerosol material from isoprene | 132.0 | L | | SVISO2 | semivolatile gas of secondary aerosol material from isoprene | 133.0 | L | | SVSQT | semivolatile gas of secondary aerosol material from sesquiterpenes | 273.0 | L | ================================================ FILE: CCTM/src/MECHS/mechanism_information/cb6r5_ae7_aq/mech_cb6r5_ae7_aq.md ================================================ Information is based on the mech.def file. * Fall-off or pressure dependent reaction rate constants (M equals air number density): * For rate constants with ko, ki, n, F values: k = [ koM/(1+koM/ki)]FG, where G=(1+(log10(koM/ki)/n)2))-1 * For rate constants with k1, k2: k = k1 + k2M * For rate constants with k0, k2, k3: k = k0 + k3M/(1+k3M/k2) * For rate constants with k1, k2, k3: k = k1 + k2M + k3 * For rate constants with the form A<_Reference_>, k equals A times a reference that represents photolysis rate, a heteorogeneous rate constant, rate constant for the given reaction or an operator. A equals one if not given. * In the mechanism definition file, the rate is formatted as * A~<_HETEOROGENEOUS_> * A*K<_REACTION_> * A/<_PHOTOLYSIS_> * A?<_OPERATOR_> |Label|Reaction |Rate Constant Formula| Value
molecules/(sec*cm3)| |:---|:-------------------|:--------------------|:----:| | R1 | NO2 ----> NO + O | NO2_IUPAC10 | Not Available1 | | R2 | O + O2 + M ----> O3 | 6.00E-34(T/300) -2.60 | 6.0973E-34 | | R3 | O3 + NO ----> NO2 | 2.07E-12e -1400.00/T | 1.8910E-14 | | R4 | O + NO ----> NO2 | ko= 1.00E-31e 0.0/T(T/300) -1.60
ki = 5.00E-11e 0.0/T(T/300) 0.30
n= 0.84;F= 0.85 | 2.2577E-12 | | R5 | O + NO2 ----> NO | 5.10E-12e 198.00/T | 9.9079E-12 | | R6 | O + NO2 ----> NO3 | ko= 1.30E-31e 0.0/T(T/300) -1.50
ki = 2.30E-11e 0.0/T(T/300) 0.24
n= 1.03;F= 0.60 | 2.0907E-12 | | R7 | O + O3 ----> | 8.00E-12e -2060.00/T | 7.9879E-15 | | R8 | O3 ----> O | O3_O3P_IUPAC10 | Not Available1 | | R9 | O3 ----> O1D | O3_O1D_IUPAC10 | Not Available1 | | R10 | O1D + M ----> O | 2.23E-11e 115.00/T | 3.2796E-11 | | R11 | O1D + H2O ----> 2.0000\*OH | 2.1400E-10 | 2.1400E-10 | | R12 | O3 + OH ----> HO2 | 1.70E-12e -940.00/T | 7.2647E-14 | | R13 | O3 + HO2 ----> OH | 2.03E-16e 693.00/T(T/300) 4.57 | 2.0168E-15 | | R14 | OH + O ----> HO2 | 2.40E-11e 110.00/T | 3.4709E-11 | | R15 | HO2 + O ----> OH | 3.00E-11e 200.00/T | 5.8674E-11 | | R16 | OH + OH ----> O | 6.20E-14e 945.00/T(T/300) 2.60 | 1.4519E-12 | | R17 | OH + OH ----> H2O2 | ko= 9.00E-31e 0.0/T(T/300) -3.20
ki = 3.90E-11e 0.0/T(T/300) -0.47
n= 1.23;F= 0.42 | 6.2071E-12 | | R18 | OH + HO2 ----> | 4.80E-11e 250.00/T | 1.1102E-10 | | R19 | HO2 + HO2 ----> H2O2 | k0= 2.20E-13e 600.0/T
k1= 1.90E-33e 980.0/T | 2.8975E-12 | | R20 | HO2 + HO2 + H2O ----> H2O2 | k0= 3.08E-34e 2800.0/T
k1= 2.66E-54e 3180.0/T | 6.4973E-30 | | R21 | H2O2 ----> 2.0000\*OH | H2O2_IUPAC10 | Not Available1 | | R22 | H2O2 + OH ----> HO2 | 1.8000E-12 | 1.8000E-12 | | R23 | H2O2 + O ----> OH + HO2 | 1.40E-12e -2000.00/T | 1.7095E-15 | | R24 | NO + NO + O2 ----> 2.0000\*NO2 | 4.25E-39e 664.00/T | 3.9409E-38 | | R25 | HO2 + NO ----> OH + NO2 | 3.45E-12e 270.00/T | 8.5332E-12 | | R26 | NO2 + O3 ----> NO3 | 1.40E-13e -2470.00/T | 3.5339E-17 | | R27 | NO3 ----> NO2 + O | NO3NO2_06 | Not Available1 | | R28 | NO3 ----> NO | NO3NO_06 | Not Available1 | | R29 | NO3 + NO ----> 2.0000\*NO2 | 1.80E-11e 110.00/T | 2.6032E-11 | | R30 | NO3 + NO2 ----> NO + NO2 | 4.50E-14e -1260.00/T | 6.5744E-16 | | R31 | NO3 + O ----> NO2 | 1.7000E-11 | 1.7000E-11 | | R32 | NO3 + OH ----> HO2 + NO2 | 2.0000E-11 | 2.0000E-11 | | R33 | NO3 + HO2 ----> OH + NO2 | 4.0000E-12 | 4.0000E-12 | | R34 | NO3 + O3 ----> NO2 | 1.0000E-17 | 1.0000E-17 | | R35 | NO3 + NO3 ----> 2.0000\*NO2 | 8.50E-13e -2450.00/T | 2.2944E-16 | | R36 | NO3 + NO2 ----> N2O5 | ko= 3.60E-30e 0.0/T(T/300) -4.10
ki = 1.90E-12e 0.0/T(T/300) 0.20
n= 1.33;F= 0.35 | 1.2406E-12 | | R37 | N2O5 ----> NO3 + NO2 | ko= 1.30E-03e-11000.0/T(T/300) -3.50
ki = 9.70E+14e-11080.0/T(T/300) 0.10
n= 1.33;F= 0.35 | 4.5396E-02 | | R38 | N2O5 ----> NO2 + NO3 | N2O5_IUPAC10 | Not Available1 | | R39 | N2O5 + H2O ----> 2.0000\*HNO3 | 1.0000E-22 | 1.0000E-22 | | R40 | NO + OH ----> HONO | ko= 7.40E-31e 0.0/T(T/300) -2.40
ki = 3.30E-11e 0.0/T(T/300) -0.30
n= 0.87;F= 0.81 | 9.7627E-12 | | R41 | NO + NO2 + H2O ----> 2.0000\*HONO | 5.0000E-40 | 5.0000E-40 | | R42 | HONO + HONO ----> NO + NO2 | 1.0000E-20 | 1.0000E-20 | | R43 | HONO ----> NO + OH | HONO_IUPAC10 | Not Available1 | | R44 | HONO + OH ----> NO2 | 2.50E-12e 260.00/T | 5.9795E-12 | | R45 | NO2 + OH ----> HNO3 | ko= 1.80E-30e 0.0/T(T/300) -3.00
ki = 2.80E-11e 0.0/T(T/300) 0.00
n= 1.00;F= 0.60 | 1.0589E-11 | | R46 | HNO3 + OH ----> NO3 | k0= 2.40E-14e 460.0/T
k1= 2.70E-17e 2199.0/T
k3= 6.50E-34e 1335.0/T | 1.5409E-13 | | R47 | HNO3 ----> OH + NO2 | HNO3_IUPAC10 | Not Available1 | | R48 | HO2 + NO2 ----> PNA | ko= 1.40E-31e 0.0/T(T/300) -3.10
ki = 4.00E-12e 0.0/T(T/300) 0.00
n= 1.26;F= 0.40 | 7.4949E-13 | | R49 | PNA ----> HO2 + NO2 | ko= 4.10E-05e-10650.0/T(T/300) 0.00
ki = 6.00E+15e-11170.0/T(T/300) 0.00
n= 1.26;F= 0.40 | 6.3131E-02 | | R50 | PNA ----> 0.5900\*HO2 + 0.5900\*NO2 + 0.4100\*OH + 0.4100\*NO3 | PNA_IUPAC10 | Not Available1 | | R51 | PNA + OH ----> NO2 | 3.20E-13e 690.00/T | 3.2376E-12 | | R52 | SO2 + OH ----> SULF + HO2 + SULRXN | ko= 2.80E-31e 0.0/T(T/300) -2.60
ki = 2.00E-12e 0.0/T(T/300) 0.00
n= 1.10;F= 0.53 | 9.3422E-13 | | R53 | C2O3 + NO ----> NO2 + MEO2 + RO2 | 7.50E-12e 290.00/T | 1.9837E-11 | | R54 | C2O3 + NO2 ----> PAN | ko= 3.61E-28e 0.0/T(T/300) -6.87
ki = 1.24E-11e 0.0/T(T/300) -1.10
n= 1.41;F= 0.30 | 9.8670E-12 | | R55 | PAN ----> NO2 + C2O3 | ko= 1.10E-05e-10100.0/T(T/300) 0.00
ki = 1.90E+17e-14100.0/T(T/300) 0.00
n= 1.41;F= 0.30 | 4.4073E-04 | | R56 | PAN ----> 0.6000\*NO2 + 0.6000\*C2O3 + 0.4000\*NO3 + 0.4000\*MEO2 + 0.4000\*RO2 | PAN_IUPAC10 | Not Available1 | | R57 | C2O3 + HO2 ----> 0.3700\*PACD + 0.1300\*AACD + 0.1300\*O3 + 0.5000\*MEO2 + 0.5000\*RO2 + 0.5000\*OH | 3.14E-12e 580.00/T | 2.1967E-11 | | R58 | C2O3 + RO2 ----> MEO2 | 4.40E-13e 1070.00/T | 1.5924E-11 | | R59 | C2O3 + C2O3 ----> 2.0000\*MEO2 + 2.0000\*RO2 | 2.90E-12e 500.00/T | 1.5514E-11 | | R60 | C2O3 + CXO3 ----> MEO2 + ALD2 + XO2H + 2.0000\*RO2 | R59 | 1.5514E-117| | R61 | CXO3 + NO ----> NO2 + ALD2 + XO2H + RO2 | 6.70E-12e 340.00/T | 2.0957E-11 | | R62 | CXO3 + NO2 ----> PANX | 8.4000E-01\*R54 | 8.2883E-127| | R63 | PANX ----> NO2 + CXO3 | 8.4000E-01\*R55 | 3.7022E-047| | R64 | PANX ----> 0.6000\*NO2 + 0.6000\*CXO3 + 0.4000\*NO3 + 0.4000\*ALD2 + 0.4000\*XO2H + 0.4000\*RO2 | PAN_IUPAC10 | Not Available1 | | R65 | CXO3 + HO2 ----> 0.3700\*PACD + 0.1300\*AACD + 0.1300\*O3 + 0.5000\*OH + 0.5000\*MEO2 + 0.5000\*RO2 | R57 | 2.1967E-117| | R66 | CXO3 + RO2 ----> MEO2 | R58 | 1.5924E-117| | R67 | CXO3 + CXO3 ----> 2.0000\*MEO2 + 2.0000\*RO2 | R59 | 1.5514E-117| | R68 | RO2 + NO ----> NO | 2.40E-12e 360.00/T | 8.0278E-12 | | R69 | RO2 + HO2 ----> HO2 | 4.80E-13e 800.00/T | 7.0234E-12 | | R70 | RO2 + RO2 ----> | 6.50E-14e 500.00/T | 3.4772E-13 | | R71 | MEO2 + NO ----> FORM + HO2 + NO2 | 2.30E-12e 360.00/T | 7.6933E-12 | | R72 | MEO2 + HO2 ----> 0.9000\*MEPX + 0.1000\*FORM | 3.80E-13e 780.00/T | 5.1994E-12 | | R73 | MEO2 + C2O3 ----> FORM + 0.9000\*HO2 + 0.9000\*MEO2 + 0.1000\*AACD + 0.9000\*RO2 | 2.00E-12e 500.00/T | 1.0699E-11 | | R74 | MEO2 + RO2 ----> 0.6850\*FORM + 0.3150\*MEOH + 0.3700\*HO2 + RO2 | R70 | 3.4772E-137| | R75 | XO2H + NO ----> NO2 + HO2 | 2.70E-12e 360.00/T | 9.0313E-12 | | R76 | XO2H + HO2 ----> ROOH | 6.80E-13e 800.00/T | 9.9498E-12 | | R77 | XO2H + C2O3 ----> 0.8000\*HO2 + 0.8000\*MEO2 + 0.2000\*AACD + 0.8000\*RO2 | R58 | 1.5924E-117| | R78 | XO2H + RO2 ----> 0.6000\*HO2 + RO2 | R70 | 3.4772E-137| | R79 | XO2 + NO ----> NO2 | R75 | 9.0313E-127| | R80 | XO2 + HO2 ----> ROOH | R76 | 9.9498E-127| | R81 | XO2 + C2O3 ----> 0.8000\*MEO2 + 0.2000\*AACD + 0.8000\*RO2 | R58 | 1.5924E-117| | R82 | XO2 + RO2 ----> RO2 | R70 | 3.4772E-137| | R83 | XO2N + NO ----> 0.5000\*NTR1 + 0.5000\*NTR2 | R75 | 9.0313E-127| | R84 | XO2N + HO2 ----> ROOH | R76 | 9.9498E-127| | R85 | XO2N + C2O3 ----> 0.8000\*HO2 + 0.8000\*MEO2 + 0.2000\*AACD + 0.8000\*RO2 | R58 | 1.5924E-117| | R86 | XO2N + RO2 ----> RO2 | R70 | 3.4772E-137| | R87 | MEPX + OH ----> 0.6000\*MEO2 + 0.6000\*RO2 + 0.4000\*FORM + 0.4000\*OH | 5.30E-12e 190.00/T | 1.0024E-11 | | R88 | MEPX ----> MEO2 + RO2 + OH | MEPX_IUPAC10 | Not Available1 | | R89 | ROOH + OH ----> 0.5400\*XO2H + 0.0600\*XO2N + 0.6000\*RO2 + 0.4000\*OH | 5.30E-12e 190.00/T | 1.0024E-11 | | R90 | ROOH ----> HO2 + OH | MEPX_IUPAC10 | Not Available1 | | R91 | NTR1 + OH ----> NTR2 | 2.0000E-12 | 2.0000E-12 | | R92 | NTR1 ----> NO2 | NTR_IUPAC10 | Not Available1 | | R93 | FACD + OH ----> HO2 | 4.5000E-13 | 4.5000E-13 | | R94 | AACD + OH ----> MEO2 + RO2 | 4.00E-14e 850.00/T | 6.9214E-13 | | R95 | PACD + OH ----> C2O3 | 5.30E-12e 190.00/T | 1.0024E-11 | | R96 | FORM + OH ----> HO2 + CO | 5.40E-12e 135.00/T | 8.4926E-12 | | R97 | FORM ----> 2.0000\*HO2 + CO | FORM_R_IUPAC13 | Not Available1 | | R98 | FORM ----> CO | FORM_M_IUPAC13 | Not Available1 | | R99 | FORM + O ----> OH + HO2 + CO | 3.40E-11e -1600.00/T | 1.5881E-13 | | R100 | FORM + NO3 ----> HNO3 + HO2 + CO | 5.5000E-16 | 5.5000E-16 | | R101 | FORM + HO2 ----> HCO3 | 9.70E-15e 625.00/T | 7.8916E-14 | | R102 | HCO3 ----> FORM + HO2 | 2.40E+12e -7000.00/T | 1.5268E+02 | | R103 | HCO3 + NO ----> FACD + NO2 + HO2 | 5.6000E-12 | 5.6000E-12 | | R104 | HCO3 + HO2 ----> 0.5000\*MEPX + 0.5000\*FACD + 0.2000\*OH + 0.2000\*HO2 | 5.60E-15e 2300.00/T | 1.2544E-11 | | R105 | ALD2 + O ----> C2O3 + OH | 1.80E-11e -1100.00/T | 4.4976E-13 | | R106 | ALD2 + OH ----> C2O3 | 4.70E-12e 345.00/T | 1.4950E-11 | | R107 | ALD2 + NO3 ----> C2O3 + HNO3 | 1.40E-12e -1860.00/T | 2.7340E-15 | | R108 | ALD2 ----> MEO2 + RO2 + CO + HO2 | ALD2_R_IUPAC13 | Not Available1 | | R109 | ALDX + O ----> CXO3 + OH | 1.30E-11e -870.00/T | 7.0255E-13 | | R110 | ALDX + OH ----> CXO3 | 4.90E-12e 405.00/T | 1.9060E-11 | | R111 | ALDX + NO3 ----> CXO3 + HNO3 | 6.3000E-15 | 6.3000E-15 | | R112 | ALDX ----> ALD2 + XO2H + RO2 + CO + HO2 | ALDX_R_IUPAC13 | Not Available1 | | R113 | GLYD + OH ----> 0.2000\*GLY + 0.2000\*HO2 + 0.8000\*C2O3 | 8.0000E-12 | 8.0000E-12 | | R114 | GLYD ----> 0.7400\*FORM + 0.8900\*CO + 1.4000\*HO2 + 0.1500\*MEOH + 0.1900\*OH + 0.1100\*GLY + 0.1100\*XO2H + 0.1100\*RO2 | GLYD_IUPAC13 | Not Available1 | | R115 | GLYD + NO3 ----> HNO3 + C2O3 | R107 | 2.7340E-157| | R116 | GLY + OH ----> 1.8000\*CO + 0.2000\*XO2 + 0.2000\*RO2 + HO2 | 3.10E-12e 340.00/T | 9.6965E-12 | | R117 | GLY ----> 2.0000\*HO2 + 2.0000\*CO | GLY_R_IUPAC13 | Not Available1 | | R118 | GLY + NO3 ----> HNO3 + 1.5000\*CO + 0.5000\*XO2 + 0.5000\*RO2 + HO2 | 4.0000E-16 | 4.0000E-16 | | R119 | MGLY ----> C2O3 + HO2 + CO | MGLY_IUPAC10 | Not Available1 | | R120 | MGLY + NO3 ----> HNO3 + C2O3 + XO2 + RO2 | 5.0000E-16 | 5.0000E-16 | | R121 | MGLY + OH ----> C2O3 + CO | 1.90E-12e 575.00/T | 1.3071E-11 | | R122 | OH + H2 ----> HO2 | 7.70E-12e -2100.00/T | 6.7230E-15 | | R123 | CO + OH ----> HO2 | k0= 1.44E-13e 0.0/T
k1= 3.43E-33e 0.0/T | 2.2843E-13 | | R124 | OH + CH4 ----> MEO2 + RO2 | 1.85E-12e -1690.00/T | 6.3895E-15 | | R125 | ETHA + OH ----> 0.9910\*ALD2 + 0.9910\*XO2H + 0.0090\*XO2N + RO2 | 6.90E-12e -1000.00/T | 2.4111E-13 | | R126 | MEOH + OH ----> FORM + HO2 | 2.85E-12e -345.00/T | 8.9600E-13 | | R127 | ETOH + OH ----> 0.9500\*ALD2 + 0.9000\*HO2 + 0.1000\*XO2H + 0.1000\*RO2 + 0.0780\*FORM + 0.0110\*GLYD | 3.00E-12e 20.00/T | 3.2081E-12 | | R128 | KET ----> 0.5000\*ALD2 + 0.5000\*C2O3 + 0.5000\*XO2H + 0.5000\*CXO3 + 0.5000\*MEO2 + RO2 - 2.5000\*PAR | KET_IUPAC10 | Not Available1 | | R129 | ACET ----> 0.3800\*CO + 1.3800\*MEO2 + 1.3800\*RO2 + 0.6200\*C2O3 | ACET_IUPAC10 | Not Available1 | | R130 | ACET + OH ----> FORM + C2O3 + XO2 + RO2 | 1.41E-12e -620.60/T | 1.7589E-13 | | R131 | PRPA + OH ----> XPRP | 7.60E-12e -585.00/T | 1.0683E-12 | | R132 | PAR + OH ----> XPAR | 8.1000E-13 | 8.1000E-13 | | R133 | ROR ----> 0.2000\*KET + 0.4200\*ACET + 0.7400\*ALD2 + 0.3700\*ALDX + 0.0400\*XO2N + 0.9400\*XO2H + 0.9800\*RO2 + 0.0200\*ROR - 2.7000\*PAR | 5.70E+12e -5780.00/T | 2.1704E+04 | | R134 | ROR + O2 ----> KET + HO2 | 1.50E-14e -200.00/T | 7.6695E-15 | | R135 | ROR + NO2 ----> NTR1 | 8.60E-12e 400.00/T | 3.2897E-11 | | R136 | ETHY + OH ----> 0.7000\*GLY + 0.7000\*OH + 0.3000\*FACD + 0.3000\*CO + 0.3000\*HO2 | ko= 5.00E-30e 0.0/T(T/300) -1.50
ki = 1.00E-12e 0.0/T(T/300) 0.00
n= 1.30;F= 0.37 | 7.5233E-13 | | R137 | ETH + O ----> FORM + HO2 + CO + 0.7000\*XO2H + 0.7000\*RO2 + 0.3000\*OH | 1.04E-11e -792.00/T | 7.3010E-13 | | R138 | ETH + OH ----> XO2H + RO2 + 1.5600\*FORM + 0.2200\*GLYD | ko= 8.60E-29e 0.0/T(T/300) -3.10
ki = 9.00E-12e 0.0/T(T/300) -0.85
n= 1.15;F= 0.48 | 7.8392E-12 | | R139 | ETH + O3 ----> FORM + 0.3500\*CO + 0.2700\*HO2 + 0.1700\*OH + 0.4200\*FACD | 6.82E-15e -2500.00/T | 1.5567E-18 | | R140 | ETH + NO3 ----> 0.5000\*NO2 + 0.5000\*NTR1 + 0.5000\*XO2H + 0.5000\*XO2 + RO2 + 1.1250\*FORM | 3.30E-12e -2880.00/T | 2.1058E-16 | | R141 | OLE + O ----> 0.2000\*ALD2 + 0.3000\*ALDX + 0.1000\*HO2 + 0.2000\*XO2H + 0.2000\*CO + 0.2000\*FORM + 0.0100\*XO2N + 0.2100\*RO2 + 0.2000\*PAR + 0.1000\*OH | 1.00E-11e -280.00/T | 3.9097E-12 | | R142 | OLE + OH ----> 0.7810\*FORM + 0.4880\*ALD2 + 0.4880\*ALDX + 0.9760\*XO2H + 0.1950\*XO2 + 0.0240\*XO2N + 1.1950\*RO2 - 0.7300\*PAR | ko= 8.00E-27e 0.0/T(T/300) -3.50
ki = 3.00E-11e 0.0/T(T/300) -1.00
n= 1.13;F= 0.50 | 2.8547E-11 | | R143 | OLE + O3 ----> 0.2950\*ALD2 + 0.5550\*FORM + 0.2700\*ALDX + 0.1500\*XO2H + 0.1500\*RO2 + 0.3340\*OH + 0.0800\*HO2 + 0.3780\*CO + 0.0750\*GLY + 0.0750\*MGLY + 0.0900\*FACD + 0.1300\*AACD + 0.0400\*H2O2 - 0.7900\*PAR | 5.50E-15e -1880.00/T | 1.0044E-17 | | R144 | OLE + NO3 ----> 0.5000\*NO2 + 0.5000\*NTR1 + 0.4800\*XO2 + 0.4800\*XO2H + 0.0400\*XO2N + RO2 + 0.5000\*FORM + 0.2500\*ALD2 + 0.3750\*ALDX - PAR | 4.60E-13e -1155.00/T | 9.5576E-15 | | R145 | IOLE + O ----> 1.2400\*ALD2 + 0.6600\*ALDX + 0.1000\*XO2H + 0.1000\*RO2 + 0.1000\*CO + 0.1000\*PAR | 2.3000E-11 | 2.3000E-11 | | R146 | IOLE + OH ----> 1.3000\*ALD2 + 0.7000\*ALDX + XO2H + RO2 | 1.05E-11e 519.00/T | 5.9866E-11 | | R147 | IOLE + O3 ----> 0.7320\*ALD2 + 0.4420\*ALDX + 0.1280\*FORM + 0.2450\*CO + 0.5000\*OH + 0.3000\*XO2H + 0.3000\*RO2 + 0.2400\*GLY + 0.0600\*MGLY + 0.2900\*PAR + 0.0800\*AACD + 0.0800\*H2O2 | 4.70E-15e -1013.00/T | 1.5723E-16 | | R148 | IOLE + NO3 ----> 0.5000\*NO2 + 0.5000\*NTR1 + 0.4800\*XO2 + 0.4800\*XO2H + 0.0400\*XO2N + RO2 + 0.5000\*ALD2 + 0.6250\*ALDX + PAR | 3.7000E-13 | 3.7000E-13 | | R149 | ISOP + OH ----> ISO2 + RO2 + ISOPRXN | 2.70E-11e 390.00/T | 9.9873E-11 | | R150 | ISOP + O ----> 0.7500\*ISPD + 0.5000\*FORM + 0.2500\*XO2 + 0.2500\*RO2 + 0.2500\*HO2 + 0.2500\*CXO3 + 0.2500\*PAR | 3.0000E-11 | 3.0000E-11 | | R151 | ISO2 + NO ----> 0.1000\*INTR + 0.9000\*NO2 + 0.6730\*FORM + 0.9000\*ISPD + 0.8180\*HO2 + 0.0820\*XO2H + 0.0820\*RO2 | 2.39E-12e 365.00/T | 8.1296E-12 | | R152 | ISO2 + HO2 ----> 0.8800\*ISPX + 0.1200\*OH + 0.1200\*HO2 + 0.1200\*FORM + 0.1200\*ISPD | 7.43E-13e 700.00/T | 7.7737E-12 | | R153 | ISO2 + C2O3 ----> 0.5980\*FORM + ISPD + 0.7280\*HO2 + 0.0720\*XO2H + 0.8000\*MEO2 + 0.2000\*AACD + 0.8720\*RO2 | R58 | 1.5924E-117| | R154 | ISO2 + RO2 ----> 0.5980\*FORM + ISPD + 0.7280\*HO2 + 0.0720\*XO2H + 1.0720\*RO2 | R70 | 3.4772E-137| | R155 | ISO2 ----> HO2 + HPLD | 3.30E+09e -8300.00/T | 2.6821E-03 | | R156 | ISOP + O3 ----> 0.6000\*FORM + 0.6500\*ISPD + 0.1500\*ALDX + 0.2000\*CXO3 + 0.3500\*PAR + 0.2660\*OH + 0.2000\*XO2 + 0.2000\*RO2 + 0.0660\*HO2 + 0.0660\*CO | 1.03E-14e -1995.00/T | 1.2790E-17 | | R157 | ISOP + NO3 ----> 0.3500\*NO2 + 0.6500\*NTR2 + 0.6400\*XO2H + 0.3300\*XO2 + 0.0300\*XO2N + RO2 + 0.3500\*FORM + 0.3500\*ISPD + ISOPRXN | 3.03E-12e -448.00/T | 6.7433E-13 | | R158 | ISPD + OH ----> 0.0220\*XO2N + 0.5210\*XO2 + 0.1150\*MGLY + 0.1150\*MEO2 + 0.2690\*GLYD + 0.2690\*C2O3 + 0.4570\*OPO3 + 0.1170\*PAR + 0.1370\*ACET + 0.1370\*CO + 0.1370\*HO2 + 0.6580\*RO2 | 5.58E-12e 511.00/T | 3.0972E-11 | | R159 | ISPD + O3 ----> 0.0400\*ALD2 + 0.2310\*FORM + 0.5310\*MGLY + 0.1700\*GLY + 0.1700\*ACET + 0.5430\*CO + 0.4610\*OH + 0.1500\*FACD + 0.3980\*HO2 + 0.1430\*C2O3 | 3.88E-15e -1770.00/T | 1.0247E-17 | | R160 | ISPD + NO3 ----> 0.7170\*HNO3 + 0.1420\*NTR2 + 0.1420\*NO2 + 0.1420\*XO2 + 0.1420\*XO2H + 0.1130\*GLYD + 0.1130\*MGLY + 0.7170\*PAR + 0.7170\*CXO3 + 0.2840\*RO2 | 4.10E-12e -1860.00/T | 8.0066E-15 | | R161 | ISPD ----> 0.7600\*HO2 + 0.3400\*XO2H + 0.1600\*XO2 + 0.3400\*MEO2 + 0.2080\*C2O3 + 0.2600\*FORM + 0.2400\*OLE + 0.2400\*PAR + 0.1700\*ACET + 0.1280\*GLYD + 0.8400\*RO2 | ISPD | Not Available1 | | R162 | ISPX + OH ----> 0.9040\*EPOX + 0.9330\*OH + 0.0670\*ISO2 + 0.0670\*RO2 + 0.0290\*IOLE + 0.0290\*ALDX | 2.23E-11e 372.00/T | 7.7655E-11 | | R163 | HPLD ----> OH + ISPD | HPALD | Not Available1 | | R164 | HPLD + NO3 ----> HNO3 + ISPD | 6.00E-12e -1860.00/T | 1.1717E-14 | | R165 | EPOX + OH ----> EPX2 + RO2 | 5.78E-11e -400.00/T | 1.5110E-11 | | R166 | EPX2 + HO2 ----> 0.2750\*GLYD + 0.2750\*GLY + 0.2750\*MGLY + 1.1250\*OH + 0.8250\*HO2 + 0.3750\*FORM + 0.0740\*FACD + 0.2510\*CO + 2.1750\*PAR | 7.43E-13e 700.00/T | 7.7737E-12 | | R167 | EPX2 + NO ----> 0.2750\*GLYD + 0.2750\*GLY + 0.2750\*MGLY + 0.1250\*OH + 0.8250\*HO2 + 0.3750\*FORM + NO2 + 0.2510\*CO + 2.1750\*PAR | 2.39E-12e 365.00/T | 8.1296E-12 | | R168 | EPX2 + C2O3 ----> 0.2200\*GLYD + 0.2200\*GLY + 0.2200\*MGLY + 0.1000\*OH + 0.6600\*HO2 + 0.3000\*FORM + 0.2000\*CO + 1.7400\*PAR + 0.8000\*MEO2 + 0.2000\*AACD + 0.8000\*RO2 | R58 | 1.5924E-117| | R169 | EPX2 + RO2 ----> 0.2750\*GLYD + 0.2750\*GLY + 0.2750\*MGLY + 0.1250\*OH + 0.8250\*HO2 + 0.3750\*FORM + 0.2510\*CO + 2.1750\*PAR + RO2 | R70 | 3.4772E-137| | R170 | INTR + OH ----> 0.6300\*XO2 + 0.3700\*XO2H + RO2 + 0.4440\*NO2 + 0.1850\*NO3 + 0.1040\*INTR + 0.5920\*FORM + 0.3310\*GLYD + 0.1850\*FACD + 2.7000\*PAR + 0.0980\*OLE + 0.0780\*ALDX + 0.2660\*NTR2 | 3.1000E-11 | 3.1000E-11 | | R171 | TERP + O ----> 0.1500\*ALDX + 5.1200\*PAR + TRPRXN | 3.6000E-11 | 3.6000E-11 | | R172 | TERP + OH ----> 0.7500\*XO2H + 0.5000\*XO2 + 0.2500\*XO2N + 1.5000\*RO2 + 0.2800\*FORM + 1.6600\*PAR + 0.4700\*ALDX + TRPRXN | 1.50E-11e 449.00/T | 6.7627E-11 | | R173 | TERP + O3 ----> 0.5700\*OH + 0.0700\*XO2H + 0.6900\*XO2 + 0.1800\*XO2N + 0.9400\*RO2 + 0.2400\*FORM + 0.0010\*CO + 7.0000\*PAR + 0.2100\*ALDX + 0.3900\*CXO3 + TRPRXN | 1.20E-15e -821.00/T | 7.6434E-17 | | R174 | TERP + NO3 ----> 0.4700\*NO2 + 0.2800\*XO2H + 0.7500\*XO2 + 0.2500\*XO2N + 1.2800\*RO2 + 0.4700\*ALDX + 0.5300\*NTR2 + TERPNRO2 | 3.70E-12e 175.00/T | 6.6544E-12 | | R171a | APIN + O ----> 0.1500\*ALDX + 5.1200\*PAR + TRPRXN | 3.6000E-11 | 3.6000E-11 | | R172a | APIN + OH ----> 0.7500\*XO2H + 0.5000\*XO2 + 0.2500\*XO2N + 1.5000\*RO2 + 0.2800\*FORM + 1.6600\*PAR + 0.4700\*ALDX + TRPRXN | 1.50E-11e 449.00/T | 6.7627E-11 | | R173a | APIN + O3 ----> 0.5700\*OH + 0.0700\*XO2H + 0.6900\*XO2 + 0.1800\*XO2N + 0.9400\*RO2 + 0.2400\*FORM + 0.0010\*CO + 7.0000\*PAR + 0.2100\*ALDX + 0.3900\*CXO3 + TRPRXN | 1.20E-15e -821.00/T | 7.6434E-17 | | R174a | APIN + NO3 ----> 0.4700\*NO2 + 0.2800\*XO2H + 0.7500\*XO2 + 0.2500\*XO2N + 1.2800\*RO2 + 0.4700\*ALDX + 0.5300\*NTR2 | 3.70E-12e 175.00/T | 6.6544E-12 | | R175 | BENZENE + OH ----> 0.5300\*CRES + 0.3520\*BZO2 + 0.3520\*RO2 + 0.1180\*OPEN + 0.1180\*OH + 0.5300\*HO2 + BENZRO2 | 2.30E-12e -190.00/T | 1.2161E-12 | | R176 | BZO2 + NO ----> 0.9180\*NO2 + 0.0820\*NTR2 + 0.9180\*GLY + 0.9180\*OPEN + 0.9180\*HO2 | 2.70E-12e 360.00/T | 9.0313E-12 | | R177 | BZO2 + C2O3 ----> GLY + OPEN + HO2 + MEO2 + RO2 | R58 | 1.5924E-117| | R178 | BZO2 + HO2 ----> | 1.90E-13e 1300.00/T | 1.4872E-11 | | R179 | BZO2 + RO2 ----> GLY + OPEN + HO2 + RO2 | R70 | 3.4772E-137| | R180 | TOL + OH ----> 0.1800\*CRES + 0.6500\*TO2 + 0.7200\*RO2 + 0.1000\*OPEN + 0.1000\*OH + 0.0700\*XO2H + 0.1800\*HO2 + TOLRO2 | 1.80E-12e 340.00/T | 5.6302E-12 | | R181 | TO2 + NO ----> 0.8600\*NO2 + 0.1400\*NTR2 + 0.4170\*GLY + 0.4430\*MGLY + 0.6600\*OPEN + 0.2000\*XOPN + 0.8600\*HO2 | 2.70E-12e 360.00/T | 9.0313E-12 | | R182 | TO2 + C2O3 ----> 0.4800\*GLY + 0.5200\*MGLY + 0.7700\*OPEN + 0.2300\*XOPN + HO2 + MEO2 + RO2 | R58 | 1.5924E-117| | R183 | TO2 + HO2 ----> | 1.90E-13e 1300.00/T | 1.4872E-11 | | R184 | TO2 + RO2 ----> 0.4800\*GLY + 0.5200\*MGLY + 0.7700\*OPEN + 0.2300\*XOPN + HO2 + RO2 | R70 | 3.4772E-137| | R185 | XYLMN + OH ----> 0.1550\*CRES + 0.5440\*XLO2 + 0.6020\*RO2 + 0.2440\*XOPN + 0.2440\*OH + 0.0580\*XO2H + 0.1550\*HO2 + XYLRO2 | 1.8500E-11 | 1.8500E-11 | | R185a | NAPH + OH ----> 0.1550\*CRES + 0.5440\*XLO2 + 0.6020\*RO2 + 0.2440\*XOPN + 0.2440\*OH + 0.0580\*XO2H + 0.1550\*HO2 + PAHRO2 | 1.8500E-11 | 1.8500E-11 | | R186 | XLO2 + NO ----> 0.8600\*NO2 + 0.1400\*NTR2 + 0.2210\*GLY + 0.6750\*MGLY + 0.3000\*OPEN + 0.5600\*XOPN + 0.8600\*HO2 | 2.70E-12e 360.00/T | 9.0313E-12 | | R187 | XLO2 + HO2 ----> | 1.90E-13e 1300.00/T | 1.4872E-11 | | R188 | XLO2 + C2O3 ----> 0.2600\*GLY + 0.7700\*MGLY + 0.3500\*OPEN + 0.6500\*XOPN + HO2 + MEO2 + RO2 | R58 | 1.5924E-117| | R189 | XLO2 + RO2 ----> 0.2600\*GLY + 0.7700\*MGLY + 0.3500\*OPEN + 0.6500\*XOPN + HO2 + RO2 | R70 | 3.4772E-137| | R190 | CRES + OH ----> 0.0250\*GLY + 0.0250\*OPEN + HO2 + 0.2000\*CRO + 0.7320\*CAT1 + 0.0200\*XO2N + 0.0200\*RO2 | 1.70E-12e 950.00/T | 4.1138E-11 | | R191 | CRES + NO3 ----> 0.3000\*CRO + HNO3 + 0.4800\*XO2 + 0.1200\*XO2H + 0.2400\*GLY + 0.2400\*MGLY + 0.4800\*OPO3 + 0.1000\*XO2N + 0.7000\*RO2 | 1.4000E-11 | 1.4000E-11 | | R192 | CRO + NO2 ----> CRON | 2.1000E-12 | 2.1000E-12 | | R193 | CRO + HO2 ----> CRES | 5.5000E-12 | 5.5000E-12 | | R194 | CRON + OH ----> NTR2 + 0.5000\*CRO | 1.5300E-12 | 1.5300E-12 | | R195 | CRON + NO3 ----> NTR2 + 0.5000\*CRO + HNO3 | 3.8000E-12 | 3.8000E-12 | | R196 | CRON ----> HONO + HO2 + FORM + OPEN | NTR_IUPAC10 | Not Available1 | | R197 | XOPN ----> 0.4000\*GLY + XO2H + 0.7000\*HO2 + 0.7000\*CO + 0.3000\*C2O3 | 5.0000E-02\*NO2_IUPAC10 | Not Available1 | | R198 | XOPN + OH ----> MGLY + 0.4000\*GLY + 2.0000\*XO2H + 2.0000\*RO2 | 9.0000E-11 | 9.0000E-11 | | R199 | XOPN + O3 ----> 1.2000\*MGLY + 0.5000\*OH + 0.6000\*C2O3 + 0.1000\*ALD2 + 0.5000\*CO + 0.3000\*XO2H + 0.3000\*RO2 | 1.08E-16e -500.00/T | 2.0189E-17 | | R200 | XOPN + NO3 ----> 0.5000\*NO2 + 0.5000\*NTR2 + 0.4500\*XO2H + 0.4500\*XO2 + 0.1000\*XO2N + RO2 + 0.2500\*OPEN + 0.2500\*MGLY | 3.0000E-12 | 3.0000E-12 | | R201 | OPEN ----> OPO3 + HO2 + CO | 2.8000E-02\*NO2_IUPAC10 | Not Available1 | | R202 | OPEN + OH ----> 0.6000\*OPO3 + 0.4000\*XO2H + 0.4000\*RO2 + 0.4000\*GLY | 4.4000E-11 | 4.4000E-11 | | R203 | OPEN + O3 ----> 1.4000\*GLY + 0.2400\*MGLY + 0.5000\*OH + 0.1200\*C2O3 + 0.0800\*FORM + 0.0200\*ALD2 + 1.9800\*CO + 0.5600\*HO2 | 5.40E-17e -500.00/T | 1.0094E-17 | | R204 | OPEN + NO3 ----> OPO3 + HNO3 | 3.8000E-12 | 3.8000E-12 | | R205 | CAT1 + OH ----> 0.1400\*FORM + 0.2000\*HO2 + 0.5000\*CRO | 5.0000E-11 | 5.0000E-11 | | R206 | CAT1 + NO3 ----> CRO + HNO3 | 1.7000E-10 | 1.7000E-10 | | R207 | OPO3 + NO ----> NO2 + 0.5000\*GLY + 0.5000\*CO + 0.8000\*HO2 + 0.2000\*CXO3 | R61 | 2.0957E-117| | R208 | OPO3 + NO2 ----> OPAN | R62 | 8.2883E-127| | R209 | OPAN ----> OPO3 + NO2 | R63 | 3.7022E-047| | R210 | OPO3 + HO2 ----> 0.3700\*PACD + 0.1300\*AACD + 0.1300\*O3 + 0.5000\*OH + 0.5000\*MEO2 + 0.5000\*RO2 | R57 | 2.1967E-117| | R211 | OPO3 + C2O3 ----> MEO2 + XO2 + ALDX + 2.0000\*RO2 | R59 | 1.5514E-117| | R212 | OPO3 + RO2 ----> 0.8000\*XO2H + 0.8000\*ALDX + 1.8000\*RO2 + 0.2000\*AACD | R58 | 1.5924E-117| | R213 | OPAN + OH ----> 0.5000\*NO2 + 0.5000\*GLY + CO + 0.5000\*NTR2 | 3.6000E-11 | 3.6000E-11 | | R214 | PANX + OH ----> ALD2 + NO2 | 3.0000E-12 | 3.0000E-12 | | R216 | ECH4 + OH ----> MEO2 + RO2 | 1.85E-12e -1690.00/T | 6.3895E-15 | | R217 | XPRP ----> XO2N + RO2 | ko= 2.37E-21e 0.0/T(T/300) 0.00
ki = 4.07E-01e 0.0/T(T/300) -8.00
n= 1.00;F= 0.41 | 3.0828E-02 | | R218 | XPRP ----> 0.7320\*ACET + 0.2680\*ALDX + 0.2680\*PAR + XO2H + RO2 | 1.0000E+00 | 1.0000E+00 | | R219 | XPAR ----> XO2N + RO2 | ko= 4.81E-20e 0.0/T(T/300) 0.00
ki = 4.07E-01e 0.0/T(T/300) -8.00
n= 1.00;F= 0.41 | 1.4904E-01 | | R220 | XPAR ----> 0.1260\*ALDX + 0.8740\*ROR + 0.1260\*XO2H + 0.8740\*XO2 + RO2 - 0.1260\*PAR | 1.0000E+00 | 1.0000E+00 | | R221 | NO2 + OH + H2O ----> HNO3 | 1.1000E-30 | 1.1000E-30 | | CL1 | CL2 ----> 2.0000\*CL | CL2_IUPAC04 | Not Available1 | | CL2 | HOCL ----> OH + CL | HOCL_IUPAC04 | Not Available1 | | CL3 | CL + O3 ----> CLO | 2.30E-11e -200.00/T | 1.1760E-11 | | CL4 | CLO + CLO ----> 0.3000\*CL2 + 1.4000\*CL | 1.6300E-14 | 1.6300E-14 | | CL5 | CLO + NO ----> CL + NO2 | 6.40E-12e 290.00/T | 1.6928E-11 | | CL6 | CLO + HO2 ----> HOCL | 2.20E-12e 340.00/T | 6.8814E-12 | | CL7 | CLO + MEO2 ----> CL + FORM + HO2 | 3.20E-12e -110.00/T | 2.2127E-12 | | CL8 | OH + FMCL ----> CL + CO | 5.0000E-13 | 5.0000E-13 | | CL9 | FMCL ----> CL + CO + HO2 | FMCL_IUPAC04 | Not Available1 | | CL10 | CL + CH4 ----> HCL + MEO2 + RO2 | 6.60E-12e -1240.00/T | 1.0311E-13 | | CL11 | CL + PAR ----> HCL + XPAR | 5.0000E-11 | 5.0000E-11 | | CL12 | CL + PRPA ----> HCL + ACET + 0.9700\*XO2H + 0.0300\*XO2N + RO2 | 1.4000E-10 | 1.4000E-10 | | CL13 | CL + ETHA ----> HCL + 0.9910\*ALD2 + 0.9910\*XO2H + 0.0090\*XO2N + RO2 | 8.30E-11e -100.00/T | 5.9349E-11 | | CL14 | CL + ETH ----> FMCL + 2.0000\*XO2 + HO2 + FORM | 1.0700E-10 | 1.0700E-10 | | CL15 | CL + OLE ----> FMCL + 0.3300\*ALD2 + 0.6700\*ALDX + 2.0000\*XO2 + HO2 - PAR | 2.5000E-10 | 2.5000E-10 | | CL16 | CL + IOLE ----> 0.3000\*HCL + 0.7000\*FMCL + 0.4500\*ALD2 + 0.5500\*ALDX + 0.3000\*OLE + 0.3000\*PAR + 1.7000\*XO2 + HO2 | 3.5000E-10 | 3.5000E-10 | | CL17 | CL + ISOP ----> FMCL + ISPD + 0.9600\*XO2H + 0.0400\*XO2N + RO2 | 4.3000E-10 | 4.3000E-10 | | CL18 | CL + FORM ----> HCL + HO2 + CO | 8.20E-11e -34.00/T | 7.3162E-11 | | CL19 | CL + ALD2 ----> HCL + C2O3 | 7.9000E-11 | 7.9000E-11 | | CL20 | CL + ALDX ----> HCL + CXO3 | 1.3000E-10 | 1.3000E-10 | | CL21 | CL + MEOH ----> HCL + HO2 + FORM | 5.5000E-11 | 5.5000E-11 | | CL22 | CL + ETOH ----> HCL + HO2 + ALD2 | 8.20E-11e 45.00/T | 9.5359E-11 | | CL23 | HCL + OH ----> CL | 6.58E-13e 58.00/T(T/300) 1.16 | 7.9359E-13 | | CL24 | CL + TOL ----> HCL + 0.1800\*CRES + 0.6500\*TO2 + 0.7200\*RO2 + 0.1000\*OPEN + 0.1000\*OH + 0.0700\*XO2H + 0.1800\*HO2 + TOLRO2 | 6.1000E-11 | 6.1000E-11 | | CL25 | CL + XYLMN ----> HCL + 0.1550\*CRES + 0.5440\*XLO2 + 0.6020\*RO2 + 0.2440\*XOPN + 0.2440\*OH + 0.0580\*XO2H + 0.1550\*HO2 + XYLRO2 | 1.2000E-10 | 1.2000E-10 | | CL26 | CL + NAPH ----> HCL + 0.1550\*CRES + 0.5440\*XLO2 + 0.6020\*RO2 + 0.2440\*XOPN + 0.2440\*OH + 0.0580\*XO2H + 0.1550\*HO2 + PAHRO2 | 1.2000E-10 | 1.2000E-10 | | CL27 | CLNO2 ----> CL + NO2 | CLNO2_IUPAC13 | Not Available1 | | CL28 | CLO + NO2 ----> CLNO3 | ko= 1.80E-31e 0.0/T(T/300) -3.40
ki = 1.50E-11e 0.0/T(T/300) -1.90
n= 1.00;F= 0.60 | 2.3359E-12 | | CL30 | CLNO3 ----> CLO + NO2 | CLONO2_1 | Not Available1 | | CL31 | CLNO3 ----> CL + NO3 | CLONO2_2 | Not Available1 | | HET_CLNO3_WAI | CLNO3 ----> HOCL + HNO3 | HETERO_CLNO3_WAI | Not Available2 | | HET_CLNO3_WAJ | CLNO3 ----> HOCL + HNO3 | HETERO_CLNO3_WAJ | Not Available2 | | SA01 | TOLRO2 + NO ----> NO + 0.0160\*SVAVB2 + 0.0510\*SVAVB3 + 0.0470\*SVAVB4 | 2.70E-12e 360.00/T | 9.0313E-12 | | SA02 | TOLRO2 + HO2 ----> HO2 + 0.1400\*SVAVB1 | 1.90E-13e 1300.00/T | 1.4872E-11 | | SA03 | XYLRO2 + NO ----> NO + 0.0150\*SVAVB2 + 0.0230\*SVAVB3 + 0.0600\*SVAVB4 | 2.70E-12e 360.00/T | 9.0313E-12 | | SA04 | XYLRO2 + HO2 ----> HO2 + 0.1930\*SVAVB1 | 1.90E-13e 1300.00/T | 1.4872E-11 | | SA06 | BENZRO2 + NO ----> NO + 0.0340\*SVAVB2 + 0.3920\*SVAVB4 | 2.70E-12e 360.00/T | 9.0313E-12 | | SA07 | BENZRO2 + HO2 ----> HO2 + 0.1460\*SVAVB1 | 1.90E-13e 1300.00/T | 1.4872E-11 | | SA08 | SESQ + O3 ----> O3 + SESQRXN | 1.1600E-14 | 1.1600E-14 | | SA09 | SESQ + OH ----> OH + SESQRXN | 1.9700E-10 | 1.9700E-10 | | SA10 | SESQ + NO3 ----> NO3 + SESQRXN | 1.9000E-11 | 1.9000E-11 | | SA11 | PAHRO2 + NO ----> NO + 0.0280\*SVAVB2 + 0.2250\*SVAVB3 + 0.1910\*SVAVB4 | 2.70E-12e 360.00/T | 9.0313E-12 | | SA12 | PAHRO2 + HO2 ----> HO2 + 0.4730\*SVAVB1 | 1.90E-13e 1300.00/T | 1.4872E-11 | | SA13 | SOAALK + OH ----> OH + 0.0060\*SVAVB2 + 0.0520\*SVAVB3 + 0.0810\*SVAVB4 | 2.70E-12e 374.00/T | 9.4655E-12 | | HET_NTR2 | NTR2 ----> HNO3 | 1.4000E+00\*HETERO_NTR2 | Not Available2 | | HET_N2O5IJ | N2O5 ----> HNO3 + H2NO3PIJ | HETERO_N2O5IJ | Not Available2 | | HET_N2O5K | N2O5 ----> HNO3 + H2NO3PK | HETERO_N2O5K | Not Available2 | | HET_H2NO3PIJA | H2NO3PIJ ----> HNO3 | HETERO_H2NO3PAIJ | Not Available2 | | HET_H2NO3PKA | H2NO3PK ----> HNO3 | HETERO_H2NO3PAK | Not Available2 | | HET_H2NO3PIB | H2NO3PIJ + ACLI ----> CLNO2 | HETERO_H2NO3PBIJ | Not Available2 | | HET_H2NO3PJB | H2NO3PIJ + ACLJ ----> CLNO2 | HETERO_H2NO3PBIJ | Not Available2 | | HET_H2NO3PKB | H2NO3PK + ACLK ----> CLNO2 | HETERO_H2NO3PBK | Not Available2 | | HET_N02 | NO2 ----> 0.5000\*HONO + 0.5000\*HNO3 | HETERO_NO2 | Not Available2 | | HAL_Ozone | O3 ----> | SEAWATER*min( 6.701E-11e 1.074E+01P+ 3.415E-08e-6.713E-01P,
2.000E-06) | 2.0000E-064| | HET_IEPOX | EPOX ----> IEPOXP | HETERO_IEPOX | Not Available2 | | HET_IEPOXOS | IEPOXP + ASO4J ----> AISO3J | HETERO_IEPOXOS | Not Available2 | | HET_TETROL | IEPOXP ----> AISO3J | HETERO_TETROL | Not Available2 | | HET_GLY | GLY ----> AGLYJ | HETERO_GLY | Not Available2 | | HET_MGLY | MGLY ----> AGLYJ | HETERO_MGLY | Not Available2 | | BL18a | TERPNRO2 + NO ----> NO + 0.6880\*MTNO3 | 2.60E-12e 380.00/T | 9.3002E-12 | | BL18b | TERPNRO2 + HO2 ----> HO2 + MTNO3 | 2.65E-13e 1300.00/T | 2.0743E-11 | | BL18c | TERPNRO2 + NO3 ----> NO3 + 0.4220\*MTNO3 | 2.3000E-12 | 2.3000E-12 | | BL18d | TERPNRO2 + RO2 ----> RO2 + 0.7110\*MTNO3 | 3.5000E-14 | 3.5000E-14 | | CP07mtp | MTNO3 + CL ----> CL + 0.3700\*MTNO3 | 1.9200E-10 | 1.9200E-10 | | BP70mtp | MTNO3 + OH ----> OH + 0.2400\*MTNO3 | 7.2000E-12 | 7.2000E-12 | | BP71mtp | MTNO3 ----> | IC3ONO2 | Not Available1 | | HYD_MT | AMTNO3J ----> AMTHYDJ | 9.2590E-05 | 9.2590E-05 | | OLIG_AROMATIC1 | AAVB2J ----> 0.9070\*AOLGAJ | 9.4882E-06 | 9.4882E-06 | | OLIG_AROMATIC2 | AAVB3J ----> 0.9250\*AOLGAJ | 9.4882E-06 | 9.4882E-06 | | OLIG_AROMATIC3 | AAVB4J ----> 0.9430\*AOLGAJ | 9.4882E-06 | 9.4882E-06 | | OLIG_ISOPRENE1 | AISO1J ----> 0.5000\*AOLGBJ | 9.4882E-06 | 9.4882E-06 | | OLIG_ISOPRENE2 | AISO2J ----> 0.5000\*AOLGBJ | 9.4882E-06 | 9.4882E-06 | | OLIG_SESQT1 | ASQTJ ----> 1.5000\*AOLGBJ | 9.4882E-06 | 9.4882E-06 | | RPOAGEPI | APOCI + OH ----> 1.2500\*APNCOMI + APOCI + OH | 2.5000E-12 | 2.5000E-12 | | RPOAGELI | APNCOMI + OH ----> OH | HETERO_PNCOMLI | Not Available2 | | RPOAGEPJ | APOCJ + OH ----> 1.2500\*APNCOMJ + APOCJ + OH | 2.5000E-12 | 2.5000E-12 | | RPOAGELJ | APNCOMJ + OH ----> OH | HETERO_PNCOMLJ | Not Available2 | | PCSOA | PCVOC + OH ----> OH + PCSOARXN | 1.2500E-11 | 1.2500E-11 | | POA_AGE1 | VLVPO1 + OH ----> OH + 0.4857\*VLVPO1 + 0.0062\*VSVPO1 + 0.0025\*VSVPO2 + 0.0026\*VSVPO3 + 0.0023\*VIVPO1 + 0.2944\*VLVOO1 + 0.2021\*VLVOO2 + 0.0019\*VSVOO2 + 0.0023\*VSVOO3 | 4.0000E-11 | 4.0000E-11 | | POA_AGE2 | VSVPO1 + OH ----> OH + 0.3003\*VLVPO1 + 0.2862\*VSVPO1 + 0.0041\*VSVPO2 + 0.0035\*VSVPO3 + 0.2239\*VLVOO1 + 0.1820\*VLVOO2 | 4.0000E-11 | 4.0000E-11 | | POA_AGE3 | VSVPO2 + OH ----> OH + 0.3856\*VLVPO1 + 0.0950\*VSVPO1 + 0.1373\*VSVPO2 + 0.0005\*VSVPO3 + 0.2051\*VLVOO1 + 0.1764\*VLVOO2 | 4.0000E-11 | 4.0000E-11 | | POA_AGE4 | VSVPO3 + OH ----> OH + 0.2181\*VLVPO1 + 0.3063\*VSVPO1 + 0.0153\*VSVPO2 + 0.1043\*VSVPO3 + 0.1893\*VLVOO1 + 0.1668\*VLVOO2 | 4.0000E-11 | 4.0000E-11 | | POA_AGE5 | VIVPO1 + OH ----> OH + 0.2412\*VLVPO1 + 0.2089\*VSVPO1 + 0.3000\*VSVPO2 + 0.2028\*VLVOO1 + 0.0471\*VLVOO2 | 4.0000E-11 | 4.0000E-11 | | POA_AGE6 | VLVOO1 + OH ----> OH + 0.6664\*VLVOO1 + 0.0143\*VLVOO2 + 0.0123\*VSVOO1 + 0.1239\*VSVOO2 + 0.1831\*VSVOO3 | 4.0000E-11 | 4.0000E-11 | | POA_AGE7 | VLVOO2 + OH ----> OH + 0.2858\*VLVOO1 + 0.3931\*VLVOO2 + 0.0139\*VSVOO1 + 0.1027\*VSVOO2 + 0.2045\*VSVOO3 | 4.0000E-11 | 4.0000E-11 | | POA_AGE8 | VSVOO1 + OH ----> OH + 0.3303\*VLVOO1 + 0.2272\*VLVOO2 + 0.2607\*VSVOO1 + 0.0702\*VSVOO2 + 0.1116\*VSVOO3 | 4.0000E-11 | 4.0000E-11 | | POA_AGE9 | VSVOO2 + OH ----> OH + 0.3444\*VLVOO1 + 0.2749\*VLVOO2 + 0.0491\*VSVOO1 + 0.2577\*VSVOO2 + 0.0739\*VSVOO3 | 4.0000E-11 | 4.0000E-11 | | POA_AGE10 | VSVOO3 + OH ----> OH + 0.3886\*VLVOO1 + 0.2421\*VLVOO2 + 0.0640\*VSVOO1 + 0.0385\*VSVOO2 + 0.2667\*VSVOO3 | 4.0000E-11 | 4.0000E-11 | | T01 | FORM_PRIMARY + OH ----> OH | 5.40E-12e 135.00/T | 8.4926E-12 | | T02 | FORM_PRIMARY + NO3 ----> NO3 | 5.5000E-16 | 5.5000E-16 | | T03 | FORM_PRIMARY + O ----> O | 3.40E-11e -1600.00/T | 1.5881E-13 | | T04 | FORM_PRIMARY ----> | FORM_R_IUPAC13 | Not Available1 | | T05 | FORM_PRIMARY ----> | FORM_M_IUPAC13 | Not Available1 | | TCL1 | FORM_PRIMARY + CL ----> CL | 8.20E-11e -34.00/T | 7.3162E-11 | | T06 | ALD2_PRIMARY + OH ----> OH | 4.70E-12e 345.00/T | 1.4950E-11 | | T07 | ALD2_PRIMARY + NO3 ----> NO3 | 1.40E-12e -1860.00/T | 2.7340E-15 | | T08 | ALD2_PRIMARY + O ----> O | 1.80E-11e -1100.00/T | 4.4976E-13 | | T09 | ALD2_PRIMARY ----> | ALD2_R_IUPAC13 | Not Available1 | | TCL2 | ALD2_PRIMARY + CL ----> CL | 7.9000E-11 | 7.9000E-11 | | T10 | BUTADIENE13 + OH ----> OH + 0.5800\*ACROLEIN | 1.48E-11e 448.00/T | 6.6502E-11 | | T11 | BUTADIENE13 + O3 ----> O3 + 0.5200\*ACROLEIN | 1.34E-14e -2283.00/T | 6.3331E-18 | | T12 | BUTADIENE13 + NO3 ----> NO3 + 0.0450\*ACROLEIN | 1.7900E-13 | 1.7900E-13 | | TCL3 | BUTADIENE13 + CL ----> CL + 0.5800\*ACROLEIN | 2.5100E-10 | 2.5100E-10 | | T13 | ACRO_PRIMARY + OH ----> OH | 2.0000E-11 | 2.0000E-11 | | T14 | ACRO_PRIMARY + O3 ----> O3 | 2.6100E-19 | 2.6100E-19 | | T15 | ACRO_PRIMARY + NO3 ----> NO3 | 1.1500E-15 | 1.1500E-15 | | T16 | ACRO_PRIMARY ----> | ACRO_09 | Not Available1 | | TCL4 | ACRO_PRIMARY + CL ----> CL | 2.3700E-10 | 2.3700E-10 | | T17 | ACROLEIN + OH ----> OH | 2.0000E-11 | 2.0000E-11 | | T18 | ACROLEIN + O3 ----> O3 | 2.6100E-19 | 2.6100E-19 | | T19 | ACROLEIN + NO3 ----> NO3 | 1.1500E-15 | 1.1500E-15 | | T20 | ACROLEIN ----> | ACRO_09 | Not Available1 | | TCL5 | ACROLEIN + CL ----> CL | 2.3700E-10 | 2.3700E-10 | | T21 | TOLU + OH ----> OH | 1.80E-12e 340.00/T | 5.6302E-12 | | TCL6 | TOLU + CL ----> CL | 6.1000E-11 | 6.1000E-11 | | HG1 | HG + O3 ----> 0.5000\*HGIIAER + 0.5000\*HGIIGAS + O3 | 2.11E-18e -1256.50/T | 3.1191E-20 | | HG2 | HG + CL2 ----> HGIIGAS + CL2 | 2.6000E-18 | 2.6000E-18 | | HG3 | HG + H2O2 ----> HGIIGAS + H2O2 | 8.5000E-19 | 8.5000E-19 | | HG4 | HG + OH ----> 0.5000\*HGIIAER + 0.5000\*HGIIGAS + OH | 7.7000E-14 | 7.7000E-14 | | HG5 | HG + CL + M ----> 0.5000\*HG + 0.5000\*HGIIGAS + CL | 2.25E-33e 680.00/T | 2.2014E-32 | | DMS1 | DMS + OH ----> SO2 + MEO2 + FORM | 1.12E-11e -250.00/T | 4.8424E-12 | | DMS2 | DMS + OH ----> 0.7500\*SO2 + 0.2500\*MSA + MEO2 | ko= 1.99E-39e 5270.0/T(T/300) 0.00
ki = 1.26E-10e -340.0/T(T/300) 0.00
n= 1.00;F= 1.00 | 2.1985E-12 | | DMS3 | DMS + NO3 ----> SO2 + HNO3 + MEO2 + FORM | 1.90E-13e 520.00/T | 1.0869E-12 | | DMS4 | DMS + CL ----> 0.8600\*SO2 + MEO2 + 0.4500\*FORM + 0.4500\*HCL + 0.1400\*MSA + 0.5500\*CLO | 3.40E-13e 2081.00/T | 3.6537E-10 | 0Units molecules/(sec*cm3); Value at 298.15 K; 2.4615E+19 molcules/cm3; 1.00 Atm. 1Photolysis Reaction;depends on radiation and predicted concentrations 2Heteorogeneous Reaction;Depends predicted concentrations 4Set to zero if sun is below the horizon. SEAWATER equals surface fraction covered by ice free open ocean plus surf zones. P equals air pressure in atmospheres. 7Rate constant multiple of constant for listed reaction ================================================ FILE: CCTM/src/MECHS/mechanism_information/cb6r5hap_ae7_aq/cb6r5hap_ae7_aq_species_table.md ================================================ **The GC namelist for cb6r5hap_ae7_aq has the following gas phase species.** | **Model Species** | **Definition** | **Molecular Weight** | **Explicit or Lumped** | | ----------------- | ---------------------------------------------------------------------------- | -------------------- | ---------------------- | | AACD | acetic acid | 60 | E | | ACET | acetone | 58.1 | E | | ACRO_PRIMARY | acrolein from emissions only | 56.1 | E | | ACROLEIN | acrolein | 56.1 | E | | ALD2 | acetaldehyde | 44 | E | | ALD2_PRIMARY | acetaldehyde from emissions only | 44 | E | | ALDX | aldehydes with 3 or more carbons | 58.1 | L | | APIN | alpha pinene | 136.2 | E | | BENZENE | benzene | 78.1 | E | | BENZRO2 | counter species for aerosol from benzene+OH | 127 | L | | BUTADIENE13 | 1,3-butadiene | 54 | E | | BZO2 | peroxy radical from benzene reactions with OH | 159.1 | L | | C2O3 | acetylperoxy radical | 75 | E | | CAT1 | methyl catechols | 124.1 | L | | CL | atomic chlorine | 35.5 | E | | CL2 | molecular chlorine | 71 | E | | CLNO2 | nitryl chloride | 81.5 | E | | CLNO3 | chlorine nitrate | 97.5 | E | | CLO | chlorine monoxide | 51.5 | E | | CO | carbon monoxide | 28 | E | | CRES | cresol and higher molecular weight phenols | 108.1 | L | | CRO | alkoxy radical from cresol | 107.1 | L | | CRON | nitro-cresols | 153.1 | L | | CXO3 | acetylperoxy radicals with 3 or more carbons | 89 | L | | DMS | dimethylsulfide | 62.0 | E | | ECH4 | methane | 16 | E | | EPOX | isoprene epoxydiol | 118.1 | L | | EPX2 | peroxy radical from EPOX+OH reaction | 149.1 | L | | ETH | ethene | 28 | E | | ETHA | ethane | 30.1 | E | | ETHY | ethyne (acetylene) | 26 | E | | ETOH | ethanol | 46.1 | E | | FACD | formic acid | 46 | E | | FMCL | formylchloride | 64.5 | E | | FORM | formaldehyde | 30 | E | | FORM_PRIMARY | formaldehyde from emissions only | 30 | E | | GLY | glyoxal | 58 | E | | GLYD | glycoaldehyde (hydroxyacetaldehyde) | 60 | E | | H2NO3PIJ | tracer producing HNO3 or ClNO2 from N2O5 in fine mode aerosols | 64 | E | | H2NO3PK | tracer producing HNO3 or ClNO2 from N2O5 in coarse mode aerosols | 64 | E | | H2O2 | hydrogen peroxide | 34 | E | | HCL | hydrochloric acid | 36.5 | E | | HCO3 | radical from HO2 reactions with formaldehyde | 63 | E | | HG | elemental mercury | 200.6 | E | | HGIIAER | precursor of aerosol divalent mercury | 200.6 | E | | HGIIGAS | divalent mercury | 271.5 | E | | HNO3 | nitric acid | 63 | E | | HO2 | hydroperoxy radical | 33 | E | | HOCL | hypochlorous acid | 52.5 | E | | HONO | nitrous acid | 47 | E | | HPLD | hydroperoxyaldehyde from ISO2 isomerization | 116.1 | L | | INTR | nitrate from isoprene | 147.1 | L | | IOLE | internal alkene bond | 56.1 | L | | ISO2 | isoprene peroxy radical | 117.1 | L | | ISOP | isoprene | 68.1 | E | | ISOPRXN | counter species for aerosol from isoprene, volatility pathways | 68.1 | L | | ISPD | isoprene reaction products (methacrolein, methylvinyl ketone, others) | 70.1 | L | | ISPX | hydroperoxide from ISO2 reaction with HO2 | 118.1 | L | | KET | carbon-ketone bond | 72.1 | L | | MEO2 | methylperoxy radical | 47 | E | | MEOH | methanol | 32 | E | | MEPX | methylhydroperoxide | 48 | E | | MGLY | methyl glyoxal | 72 | E | | MMTNO3 | organic nitrates from monoterpene oxidation (Should not to be included for tracking nitrogen) | 231.0 | L | | MSA | methane sulfonic acid | 96.0 | E | | N2O5 | dinitrogen pentoxide | 108 | E | | NAPH | naphthalene | 128.2 | E | | NO | nitric oxide | 30 | E | | NO2 | nitrogen dioxide | 46 | E | | NO3 | nitrate radical | 62 | E | | NTR1 | monofunctional organic nitrates | 119.1 | L | | NTR2 | multifunctional organic nitrates | 135.1 | L | | O | ground-state oxygen atoms, O(3P) | 16 | E | | O1D | electronically excited oxygen atoms, O(1D) | 16 | E | | O3 | ozone | 48 | E | | OH | hydroxyl radical | 17 | E | | OLE | terminal alkene bond | 42.1 | L | | OPAN | peroxyacylnitrate from OPO3 | 161 | L | | OPEN | aromatic ring opening product (an alkene and aldehyde) | 84 | L | | OPO3 | peroxyacyl radical from OPEN | 115 | L | | PACD | peroxycarboxylic acids | 76 | L | | PAHRO2 | counter species for aerosol from NAPH+OH | 187.2 | L | | PAN | peroxyacylnitrate | 121 | E | | PANX | peroxyacylnitrates with 3 or more carbons | 135 | L | | PAR | carbon-carbon single bond | 14.0 | L | | PCSOARXN | counter species for potential aerosol from combustion (from PCVOC reactions) | 170 | L | | PCVOC | tracer for potential combustion SOA VOCs | 170 | L | | PNA | peroxynitric acid | 79 | E | | PRPA | propane | 44.1 | E | | RO2 | total peroxy radical concentration | 87.1 | L | | ROOH | methylhydroperoxide | 90.1 | E | | ROR | secondary alkoxy radical | 71.1 | L | | SESQ | sesquiterpenes | 204 | L | | SESQRXN | counter species for aerosol from sesquiterpenes | 204 | L | | SO2 | sulfur dioxide | 64 | E | | SOAALK | tracer for alkanes that can form secondary organic aerosol | 112 | L | | SULF | sulfuric acid (gaseous) | 98 | E | | SULRXN | sulfate aerosol precursor | 98 | E | | SVAVB1 | low volatility organic gas from oxidation of anthropogenic VOCs | 179.0 | L | | SVAVB2 | semivolatile organic gas from oxidation of anthropogenic VOCs | 169.0 | L | | SVAVB3 | semivolatile organic gas from oxidation of anthropogenic VOCs | 158.0 | L | | SVAVB4 | semivolatile organic gas from oxidation of anthropogenic VOCs | 198.0 | L | | TERP | monoterpenes | 136.2 | L | | TERPNRO2 | counter species for aerosol from TERP + NO3 | 197.0 | L | | TO2 | toluene peroxy radical | 173.1 | L | | TOL | toluene and other monoalkyl aromatics | 92.1 | L | | TOLRO2 | counter species for aerosol from TOL+OH | 141 | L | | TOLU | toluene | 92 | E | | TRPRXN | counter species for aerosol precursor from monoterpenes | 136.2 | L | | VIVPO1 | evaporated primary organic aerosol, intermed-volatility | 266 | L | | VLVOO1 | evaporated secondary organic aerosol, low-volatility, cat 1 | 136 | L | | VLVOO2 | evaporated secondary organic aerosol, low-volatility, cat 2 | 136 | L | | VLVPO1 | evaporated primary organic aerosol, low-volatility | 218 | L | | VSVOO1 | evaporated secondary organic aerosol, semi-volatile, cat 1 | 135 | L | | VSVOO2 | evaporated secondary organic aerosol, semi-volatile, cat 2 | 135 | L | | VSVOO3 | evaporated secondary organic aerosol, semi-volatile, cat 3 | 134 | L | | VSVPO1 | evaporated primary organic aerosol, semi-volatile, cat 1 | 230 | L | | VSVPO2 | evaporated primary organic aerosol, semi-volatile, cat 2 | 241 | L | | VSVPO3 | evaporated primary organic aerosol, semi-volatile, cat 3 | 253 | L | | XLO2 | peroxy radical from XYLMN+OH reaction | 187.1 | L | | XO2 | NO oxidation to NO2 via peroxy radical | 87.1 | L | | XO2H | NO oxidation to NO2 with HO2 production, from alkoxy radicals | 87.1 | L | | XO2N | nitrate production from NO reaction with peroxy radical | 87.1 | L | | XOPN | product of aromatic ring-opening reaction | 98.1 | L | | XPAR | organic nitrate production from PAR | 117.1 | L | | XPRP | organic nitrate production from PRPA | 89.1 | L | | XYLMN | xylene and other polyalkyl aromatics except naphthalene | 106.2 | L | | XYLRO2 | counter species for aerosol from XYLMN+OH | 155 | L | **The AE namelist for cb6r5hap_ae7_aq has the following aerosol species.** | **Model Species** | **Definition** | **Molecular Weight** | **Explicit or Lumped** | | ----------------- | ---------------------------------------------------- | -------------------- | ---------------------- | | AAL | Aluminum | 27 | E | | AAS | Arsenic | 74.92 | E | | AAVB1 | low volatility organic particulate matter from oxidation of anthropogenic VOCs | 198.0 | L | | AAVB2 | semivolailte organic particulate matter from oxidation of anthropogenic VOCs | 179.0 | L | | AAVB3 | semivolailte organic particulate matter from oxidation of anthropogenic VOCs | 169.0 | L | | AAVB4 | semivolailte organic particulate matter from oxidation of anthropogenic VOCs | 158.0 | L | | ABE | Beryllium | 9.0 | E | | ABENAPY | Aerosol Phase Benzo-a-Pyrene | 252.30 | E | | ACA | Calcium | 40.1 | E | | ACL | Chloride | 35.5 | E | | ACORS | Anthropogenic Coarse-mode particle mass | 100.0 | L | | ACR_III | Trivalent Chromium | 52.0 | E | | ACR_VI | Hexavalent Chromium | 52.0 | E | | ADE_EC | Diesel Elemental Carbon | 12.0 | L | | ADE_CORS | Diesel Coarse Primary Particles | 100.0 | L | | ADE_NO3 | Diesel Nitrate | 62.0 | E | | ADE_OC | Diesel Organic Carbon | 220.0 | L | | ADE_OTHR | Other Diesel Fine Primary Particles | 200.0 | L | | ADE_SO4 | Diesel Sulfate | 96.0 | E | | AEC | Elemental Carbon | 12 | E | | AFE | Iron | 55.8 | E | | AGLY | Glyoxal and Methylglyoxal SOA in aqueous aerosol material | 66.4 | L | | AH2O | Water | 18 | E | | AH3OP | Hydronium Ion | 19 | E | | AISO1 | Semivolatile SOA Product from Isoprene | 132.0 | L | | AISO2 | High-Volatility SOA Product from Isoprene | 133.0 | L | | AISO3 | Acid-catalyzed Isoprene Epoxydiol SOA | 168.2 | L | | AIVPO1 | Intermediate Volatility Primary Organic Compounds | 266 | L | | AK | Potassium | 39.1 | E | | ALVOO1 | Low Volatility Oxidized Combustion Organic Compounds | 136 | L | | ALVOO2 | Low Volatility Oxidized Combustion Organic Compounds | 136 | L | | ALVPO1 | Low Volatility Primary Organic Compounds | 218 | L | | AMG | Magnesium | 24.3 | E | | AMN | Manganese | 54.9 | E | | AMN_HAPS | Manganese based on the Hazardous Air Pollutant Emissions | 54.9 | E | | AMT1 | low volatility particulate matter from monoterpene photoxidation, C*=0.01 ug/m3 | 200.0 | L | | AMT2 | low volatility particulate matter from monoterpene photoxidation, C*=0.1 ug/m3 | 300.0 | L | | AMT3 | semivolailte particulate matter from monoterpene photoxidation, C*=1 ug/m3 | 186.0 | L | | AMT4 | semivolatile particulate matter from monoterpene photoxidation, C*=10 ug/m3 | 184.0 | L | | AMT5 | semivolatile particulate matter from monoterpene photoxidation, C*=100 ug/m3 | 170.0 | L | | AMT6 | semivolatile particulate matter from monoterpene photoxidation, C*=1000 ug/m3 | 168.0 | L | | AMTNO3J | semivolatile organic nitrates from monoterpene oxidation (Should not to be included for tracking nitrogen) | 231.0 | L | | AMTHYDJ | organic pseudo-hydrolysis accretion product from monoterpene organic nitrates (AMTNO3J) | 168.0| L | | ANA | Sodium | 23 | E | | ANH4 | Ammonium | 18 | E | | ANI | Nickel | 58.7 | E | | ANO3 | Nitrate | 62 | E | | AOLGA | Oligomer products of anthropogenic SOA compounds | 206.0 | L | | AOLGB | Oligomer products of biogenic SOA compounds | 248.0 | L | | AORGC | Glyoxal and methylglyoxal SOA produced in cloud water | 177.0 | L | | AORGH2O | Water associated with organic species of particulate matter | 18.0 | E | | AOTHR | Other Particulate Mass | 200 | L | | APB | Lead | 207.2 | E | | APCSO | Potential Combustion SOA | 170 | L | | APHG | Mercury | 200.5 | E | | APB | Lead | 207.2 | E | | APCSO | Potential Combustion SOA | 170 | L | | APHG | Mercury | 200.5 | E | | APNCOM | Non-Carbon Organic Matter associated with APOC | 220.0 | L | | APOC | Primary Organic Carbon | 220.0 | L | | ASEACAT | Sea spray cations | 23.75 | L | | ASI | Silicon | 28.1 | E | | ASO4 | Sulfate | 96 | E | | ASOIL | Lumped crustal species | 100.0 | L | | ASQT | Semivolatile SOA Product from Sesquiterpenes | 273.0 | L | | ASVOO1 | Semivolatile Oxidized Combustion Organic Compounds | 135 | L | | ASVOO2 | Semivolatile Oxidized Combustion Organic Compounds | 135 | L | | ASVOO3 | Semivolatile Oxidized Combustion Organic Compounds | 134 | L | | ASVPO1 | Semivolatile Primary Organic Compounds | 230 | L | | ASVPO2 | Semivolatile Primary Organic Compounds | 241 | L | | ASVPO3 | Semivolatile Primary Organic Compounds | 253 | L | | ATI | Titanium | 47.9 | E | | NUMACC | Accum. Mode Number Conc | NA | NA | | NUMAIT | Aitken Mode Number Conc | NA | NA | | NUMCOR | Coarse Mode Number Conc | NA | NA | | SRFACC | Accum. Mode Surface Area Conc | NA | NA | | SRFAIT | Aitken Mode Surface Area Conc | NA | NA | | SRFCOR | Coarse Mode Surface Area Conc | NA | NA | Note that for each aerosol mass species, a letter will be appended to the names below in order to designate the size, or mode, of the aerosol being represented: I = Aitken mode, J = Accumulation mode, K = Coarse mode. **The NR namelist for cb6r5hap_ae7_aq has the following gas phase species.** | **Model Species** | **Definition** | **Molecular Weight** | **Explicit or Lumped** | | ----------------- | ---------------------------------------------------- | -------------------- | ---------------------- | | ACET_NITRILE | acetonitrile | 41.05 | E | | ACRYACID | acrylic acid | 72.06 | E | | ACRY_NITRILE | Acrylonitrile | 53.10 | E | | BENAPY | Gaseous Benzo-a-Pyrene | 252.30 | E | | BR2_C2_12 | 1,2-Dibromoethane | 187.90 | E | | CARBONTET | Carbon Tetrachloride | 153.80 | E | | CARBSULFIDE | carbonyl sulfide | 60.10 | E | | CHLOROPRENE | chloroprene | 88.50 | E | | CL2_C2_12 | 1,2-Dichloroethane | 99.00 | E | | CL4_ETHANE | 1,1,2,2-Tetrachloroethane | 167.90 | E | | CL2_ME | Methylene Chloride | 84.90 | E | | CL4_ETHE | Perchloroethylene | 165.80 | E | | CL3_ETHE | Trichloroethylene | 131.40 | E | | CL_ETHE | Vinyl Chloride | 62.50 | E | | CHCL3 | Chloroform | 119.40 | E | | DICL_BENZENE | 1,4-Dichlorobenzene | 147.00 | E | | DICL_PROPENE | 1,3-Dichloropropene | 99.00 | E | | ETHYLBENZENE | ethyl benzene | 106.00 | E | | ETOX | Ethylene Oxide | 44.10 | E | | HEXANE | n-Hexane | 86.00 | E | | HYDRAZINE | Hydrazine | 168.20 | E | | HEXMETHY_DIS | Hexamethylene 1,6-Diisocyanate | 98.00 | E | | LVPCSOG | surrogate SOA precursor gas for combustion/anthropogenic sources | 170.00 | L | | MAL_ANHYDRID | Maleic Anhydride | 174.20 | E | | METHCHLORIDE | methyl chloride | 50.40 | E | | NAPHTHALENE | Naphthalene | 128.20 | E | | NH3 | ammonia | 17.00 | E | | PAH_000E0 | Lumped POM or PAHs Inert Tracer with a 0.0 Unit Risk Exposure1 | 186.2 | L | | PAH_176E5 | Lumped POM or PAHs Inert Tracer with a 0.0000096 Unit Risk Exposure | 197.7 | L | | PAH_880E5 | Lumped POM or PAHs Inert Tracer with a 0.000048 Risk Exposure | 197.9 | L | | PAH_176E4 | Lumped POM or PAHs Inert Tracer with a 0.000096 zero Unit Risk Exposure | 254.4 | L | | PAH_176E3 | Lumped POM or PAHs Inert Tracer with a 0.00096 Unit Risk Exposure | 259.3 | L | | PAH_192E3 | Lumped POM or PAHs Inert Tracer with a 0.00099 Unit Risk Exposure | 278.3 | L | | PAH_101E2 | Lumped POM or PAHs Inert Tracer with a 0.01008 Unit Risk Exposure | 268.4 | L | | PAH_176E2 | Lumped POM or PAHs Inert Tracer with a 0.0096 Unit Risk Exposure | 302.4 | L | | PAH_114E1 | Lumped POM or PAHs Inert Tracer with a 0.1136 Unit Risk Exposure | 256.3 | L | | PROPYL_DICL | Propylene Dichloride | 113.00 | E | | QUINOLINE | Quinoline | 129.20 | E | | STYRENE | sytrene | 104.15 | E | | SVMT1 | low volatility gas from monoterpene photoxidation | 300.0 | L | | SVMT2 | low volatility gas from monoterpene photoxidation | 200.0 | L | | SVMT3 | semivolatile gas from monoterpene photoxidation | 186.0 | L | | SVMT4 | semivolatile gas from monoterpene photoxidation | 184.0 | L | | SVMT5 | semivolatile gas from monoterpene photoxidation | 170.0 | L | | SVMT6 | semivolatile gas from monoterpene photoxidation | 168.0 | L | | SVISO1 | semivolatile gas of secondary aerosol material from isoprene | 132.0 | L | | SVISO2 | semivolatile gas of secondary aerosol material from isoprene | 133.0 | L | | SVSQT | semivolatile gas of secondary aerosol material from sesquiterpenes | 273.0 | L | | TOL_DIIS | 2,4-Toluene Diisocyanate | 32.00 | E | | TRIETHYLAMIN | Triethylamine | 101.20 | E | | XYLENE | O-,M-, and P-xylene isomers | 106.20 | L | 1. The Unit Risk Exposure respresents excess lifetime risk of cancer from continuous exposure to an agent at an air concentration of 1 µg/m3. Interpret the URE as if an URE of 1.5 x 10-6, produces 1.5 excess tumors to develop per 1,000,000 people when they are exposed daily to 1 µg/m3 over a lifetime. Note that URE is usually not a statistical confidence limit and is considered a plausible upper limit to the true value. The true limit is likely to be less, but could be greater. ================================================ FILE: CCTM/src/MECHS/mechanism_information/cb6r5hap_ae7_aq/mech_cb6r5hap_ae7_aq.md ================================================ Information is based on the mech.def file. * Fall-off or pressure dependent reaction rate constants (M equals air number density): * For rate constants with ko, ki, n, F values: k = [ koM/(1+koM/ki)]FG, where G=(1+(log10(koM/ki)/n)2))-1 * For rate constants with k1, k2: k = k1 + k2M * For rate constants with k0, k2, k3: k = k0 + k3M/(1+k3M/k2) * For rate constants with k1, k2, k3: k = k1 + k2M + k3 * For rate constants with the form A<_Reference_>, k equals A times a reference that represents photolysis rate, a heteorogeneous rate constant, rate constant for the given reaction or an operator. A equals one if not given. * In the mechanism definition file, the rate is formatted as * A~<_HETEOROGENEOUS_> * A*K<_REACTION_> * A/<_PHOTOLYSIS_> * A?<_OPERATOR_> |Label|Reaction |Rate Constant Formula| Value
molecules/(sec*cm3)| |:---|:-------------------|:--------------------|:----:| | R1 | NO2 ----> NO + O | NO2_IUPAC10 | Not Available1 | | R2 | O + O2 + M ----> O3 | 6.00E-34(T/300) -2.60 | 6.0973E-34 | | R3 | O3 + NO ----> NO2 | 2.07E-12e -1400.00/T | 1.8910E-14 | | R4 | O + NO ----> NO2 | ko= 1.00E-31e 0.0/T(T/300) -1.60
ki = 5.00E-11e 0.0/T(T/300) 0.30
n= 0.84;F= 0.85 | 2.2577E-12 | | R5 | O + NO2 ----> NO | 5.10E-12e 198.00/T | 9.9079E-12 | | R6 | O + NO2 ----> NO3 | ko= 1.30E-31e 0.0/T(T/300) -1.50
ki = 2.30E-11e 0.0/T(T/300) 0.24
n= 1.03;F= 0.60 | 2.0907E-12 | | R7 | O + O3 ----> | 8.00E-12e -2060.00/T | 7.9879E-15 | | R8 | O3 ----> O | O3_O3P_IUPAC10 | Not Available1 | | R9 | O3 ----> O1D | O3_O1D_IUPAC10 | Not Available1 | | R10 | O1D + M ----> O | 2.23E-11e 115.00/T | 3.2796E-11 | | R11 | O1D + H2O ----> 2.000\*OH | 2.1400E-10 | 2.1400E-10 | | R12 | O3 + OH ----> HO2 | 1.70E-12e -940.00/T | 7.2647E-14 | | R13 | O3 + HO2 ----> OH | 2.03E-16e 693.00/T(T/300) 4.57 | 2.0168E-15 | | R14 | OH + O ----> HO2 | 2.40E-11e 110.00/T | 3.4709E-11 | | R15 | HO2 + O ----> OH | 3.00E-11e 200.00/T | 5.8674E-11 | | R16 | OH + OH ----> O | 6.20E-14e 945.00/T(T/300) 2.60 | 1.4519E-12 | | R17 | OH + OH ----> H2O2 | ko= 9.00E-31e 0.0/T(T/300) -3.20
ki = 3.90E-11e 0.0/T(T/300) -0.47
n= 1.23;F= 0.42 | 6.2071E-12 | | R18 | OH + HO2 ----> | 4.80E-11e 250.00/T | 1.1102E-10 | | R19 | HO2 + HO2 ----> H2O2 | k0= 2.20E-13e 600.0/T
k1= 1.90E-33e 980.0/T | 2.8975E-12 | | R20 | HO2 + HO2 + H2O ----> H2O2 | k0= 3.08E-34e 2800.0/T
k1= 2.66E-54e 3180.0/T | 6.4973E-30 | | R21 | H2O2 ----> 2.000\*OH | H2O2_IUPAC10 | Not Available1 | | R22 | H2O2 + OH ----> HO2 | 1.8000E-12 | 1.8000E-12 | | R23 | H2O2 + O ----> OH + HO2 | 1.40E-12e -2000.00/T | 1.7095E-15 | | R24 | NO + NO + O2 ----> 2.000\*NO2 | 4.25E-39e 664.00/T | 3.9409E-38 | | R25 | HO2 + NO ----> OH + NO2 | 3.45E-12e 270.00/T | 8.5332E-12 | | R26 | NO2 + O3 ----> NO3 | 1.40E-13e -2470.00/T | 3.5339E-17 | | R27 | NO3 ----> NO2 + O | NO3NO2_06 | Not Available1 | | R28 | NO3 ----> NO | NO3NO_06 | Not Available1 | | R29 | NO3 + NO ----> 2.000\*NO2 | 1.80E-11e 110.00/T | 2.6032E-11 | | R30 | NO3 + NO2 ----> NO + NO2 | 4.50E-14e -1260.00/T | 6.5744E-16 | | R31 | NO3 + O ----> NO2 | 1.7000E-11 | 1.7000E-11 | | R32 | NO3 + OH ----> HO2 + NO2 | 2.0000E-11 | 2.0000E-11 | | R33 | NO3 + HO2 ----> OH + NO2 | 4.0000E-12 | 4.0000E-12 | | R34 | NO3 + O3 ----> NO2 | 1.0000E-17 | 1.0000E-17 | | R35 | NO3 + NO3 ----> 2.000\*NO2 | 8.50E-13e -2450.00/T | 2.2944E-16 | | R36 | NO3 + NO2 ----> N2O5 | ko= 3.60E-30e 0.0/T(T/300) -4.10
ki = 1.90E-12e 0.0/T(T/300) 0.20
n= 1.33;F= 0.35 | 1.2406E-12 | | R37 | N2O5 ----> NO3 + NO2 | ko= 1.30E-03e-11000.0/T(T/300) -3.50
ki = 9.70E+14e-11080.0/T(T/300) 0.10
n= 1.33;F= 0.35 | 4.5396E-02 | | R38 | N2O5 ----> NO2 + NO3 | N2O5_IUPAC10 | Not Available1 | | R39 | N2O5 + H2O ----> 2.000\*HNO3 | 1.0000E-22 | 1.0000E-22 | | R40 | NO + OH ----> HONO | ko= 7.40E-31e 0.0/T(T/300) -2.40
ki = 3.30E-11e 0.0/T(T/300) -0.30
n= 0.87;F= 0.81 | 9.7627E-12 | | R41 | NO + NO2 + H2O ----> 2.000\*HONO | 5.0000E-40 | 5.0000E-40 | | R42 | HONO + HONO ----> NO + NO2 | 1.0000E-20 | 1.0000E-20 | | R43 | HONO ----> NO + OH | HONO_IUPAC10 | Not Available1 | | R44 | HONO + OH ----> NO2 | 2.50E-12e 260.00/T | 5.9795E-12 | | R45 | NO2 + OH ----> HNO3 | ko= 1.80E-30e 0.0/T(T/300) -3.00
ki = 2.80E-11e 0.0/T(T/300) 0.00
n= 1.00;F= 0.60 | 1.0589E-11 | | R46 | HNO3 + OH ----> NO3 | k0= 2.40E-14e 460.0/T
k1= 2.70E-17e 2199.0/T
k3= 6.50E-34e 1335.0/T | 1.5409E-13 | | R47 | HNO3 ----> OH + NO2 | HNO3_IUPAC10 | Not Available1 | | R48 | HO2 + NO2 ----> PNA | ko= 1.40E-31e 0.0/T(T/300) -3.10
ki = 4.00E-12e 0.0/T(T/300) 0.00
n= 1.26;F= 0.40 | 7.4949E-13 | | R49 | PNA ----> HO2 + NO2 | ko= 4.10E-05e-10650.0/T(T/300) 0.00
ki = 6.00E+15e-11170.0/T(T/300) 0.00
n= 1.26;F= 0.40 | 6.3131E-02 | | R50 | PNA ----> 0.590\*HO2 + 0.590\*NO2 + 0.410\*OH + 0.410\*NO3 | PNA_IUPAC10 | Not Available1 | | R51 | PNA + OH ----> NO2 | 3.20E-13e 690.00/T | 3.2376E-12 | | R52 | SO2 + OH ----> SULF + HO2 + SULRXN | ko= 2.80E-31e 0.0/T(T/300) -2.60
ki = 2.00E-12e 0.0/T(T/300) 0.00
n= 1.10;F= 0.53 | 9.3422E-13 | | R53 | C2O3 + NO ----> NO2 + MEO2 + RO2 | 7.50E-12e 290.00/T | 1.9837E-11 | | R54 | C2O3 + NO2 ----> PAN | ko= 3.61E-28e 0.0/T(T/300) -6.87
ki = 1.24E-11e 0.0/T(T/300) -1.10
n= 1.41;F= 0.30 | 9.8670E-12 | | R55 | PAN ----> NO2 + C2O3 | ko= 1.10E-05e-10100.0/T(T/300) 0.00
ki = 1.90E+17e-14100.0/T(T/300) 0.00
n= 1.41;F= 0.30 | 4.4073E-04 | | R56 | PAN ----> 0.600\*NO2 + 0.600\*C2O3 + 0.400\*NO3 + 0.400\*MEO2 + 0.400\*RO2 | PAN_IUPAC10 | Not Available1 | | R57 | C2O3 + HO2 ----> 0.370\*PACD + 0.130\*AACD + 0.130\*O3 + 0.500\*MEO2 + 0.500\*RO2 + 0.500\*OH | 3.14E-12e 580.00/T | 2.1967E-11 | | R58 | C2O3 + RO2 ----> MEO2 | 4.40E-13e 1070.00/T | 1.5924E-11 | | R59 | C2O3 + C2O3 ----> 2.000\*MEO2 + 2.000\*RO2 | 2.90E-12e 500.00/T | 1.5514E-11 | | R60 | C2O3 + CXO3 ----> MEO2 + ALD2 + XO2H + 2.000\*RO2 | R59 | 1.5514E-117| | R61 | CXO3 + NO ----> NO2 + ALD2 + XO2H + RO2 | 6.70E-12e 340.00/T | 2.0957E-11 | | R62 | CXO3 + NO2 ----> PANX | 8.4000E-01\*R54 | 8.2883E-127| | R63 | PANX ----> NO2 + CXO3 | 8.4000E-01\*R55 | 3.7022E-047| | R64 | PANX ----> 0.600\*NO2 + 0.600\*CXO3 + 0.400\*NO3 + 0.400\*ALD2 + 0.400\*XO2H + 0.400\*RO2 | PAN_IUPAC10 | Not Available1 | | R65 | CXO3 + HO2 ----> 0.370\*PACD + 0.130\*AACD + 0.130\*O3 + 0.500\*OH + 0.500\*MEO2 + 0.500\*RO2 | R57 | 2.1967E-117| | R66 | CXO3 + RO2 ----> MEO2 | R58 | 1.5924E-117| | R67 | CXO3 + CXO3 ----> 2.000\*MEO2 + 2.000\*RO2 | R59 | 1.5514E-117| | R68 | RO2 + NO ----> NO | 2.40E-12e 360.00/T | 8.0278E-12 | | R69 | RO2 + HO2 ----> HO2 | 4.80E-13e 800.00/T | 7.0234E-12 | | R70 | RO2 + RO2 ----> | 6.50E-14e 500.00/T | 3.4772E-13 | | R71 | MEO2 + NO ----> FORM + HO2 + NO2 | 2.30E-12e 360.00/T | 7.6933E-12 | | R72 | MEO2 + HO2 ----> 0.900\*MEPX + 0.100\*FORM | 3.80E-13e 780.00/T | 5.1994E-12 | | R73 | MEO2 + C2O3 ----> FORM + 0.900\*HO2 + 0.900\*MEO2 + 0.100\*AACD + 0.900\*RO2 | 2.00E-12e 500.00/T | 1.0699E-11 | | R74 | MEO2 + RO2 ----> 0.685\*FORM + 0.315\*MEOH + 0.370\*HO2 + RO2 | R70 | 3.4772E-137| | R75 | XO2H + NO ----> NO2 + HO2 | 2.70E-12e 360.00/T | 9.0313E-12 | | R76 | XO2H + HO2 ----> ROOH | 6.80E-13e 800.00/T | 9.9498E-12 | | R77 | XO2H + C2O3 ----> 0.800\*HO2 + 0.800\*MEO2 + 0.200\*AACD + 0.800\*RO2 | R58 | 1.5924E-117| | R78 | XO2H + RO2 ----> 0.600\*HO2 + RO2 | R70 | 3.4772E-137| | R79 | XO2 + NO ----> NO2 | R75 | 9.0313E-127| | R80 | XO2 + HO2 ----> ROOH | R76 | 9.9498E-127| | R81 | XO2 + C2O3 ----> 0.800\*MEO2 + 0.200\*AACD + 0.800\*RO2 | R58 | 1.5924E-117| | R82 | XO2 + RO2 ----> RO2 | R70 | 3.4772E-137| | R83 | XO2N + NO ----> 0.500\*NTR1 + 0.500\*NTR2 | R75 | 9.0313E-127| | R84 | XO2N + HO2 ----> ROOH | R76 | 9.9498E-127| | R85 | XO2N + C2O3 ----> 0.800\*HO2 + 0.800\*MEO2 + 0.200\*AACD + 0.800\*RO2 | R58 | 1.5924E-117| | R86 | XO2N + RO2 ----> RO2 | R70 | 3.4772E-137| | R87 | MEPX + OH ----> 0.600\*MEO2 + 0.600\*RO2 + 0.400\*FORM + 0.400\*OH | 5.30E-12e 190.00/T | 1.0024E-11 | | R88 | MEPX ----> MEO2 + RO2 + OH | MEPX_IUPAC10 | Not Available1 | | R89 | ROOH + OH ----> 0.540\*XO2H + 0.060\*XO2N + 0.600\*RO2 + 0.400\*OH | 5.30E-12e 190.00/T | 1.0024E-11 | | R90 | ROOH ----> HO2 + OH | MEPX_IUPAC10 | Not Available1 | | R91 | NTR1 + OH ----> NTR2 | 2.0000E-12 | 2.0000E-12 | | R92 | NTR1 ----> NO2 | NTR_IUPAC10 | Not Available1 | | R93 | FACD + OH ----> HO2 | 4.5000E-13 | 4.5000E-13 | | R94 | AACD + OH ----> MEO2 + RO2 | 4.00E-14e 850.00/T | 6.9214E-13 | | R95 | PACD + OH ----> C2O3 | 5.30E-12e 190.00/T | 1.0024E-11 | | R96 | FORM + OH ----> HO2 + CO | 5.40E-12e 135.00/T | 8.4926E-12 | | R97 | FORM ----> 2.000\*HO2 + CO | FORM_R_IUPAC13 | Not Available1 | | R98 | FORM ----> CO | FORM_M_IUPAC13 | Not Available1 | | R99 | FORM + O ----> OH + HO2 + CO | 3.40E-11e -1600.00/T | 1.5881E-13 | | R100 | FORM + NO3 ----> HNO3 + HO2 + CO | 5.5000E-16 | 5.5000E-16 | | R101 | FORM + HO2 ----> HCO3 | 9.70E-15e 625.00/T | 7.8916E-14 | | R102 | HCO3 ----> FORM + HO2 | 2.40E+12e -7000.00/T | 1.5268E+02 | | R103 | HCO3 + NO ----> FACD + NO2 + HO2 | 5.6000E-12 | 5.6000E-12 | | R104 | HCO3 + HO2 ----> 0.500\*MEPX + 0.500\*FACD + 0.200\*OH + 0.200\*HO2 | 5.60E-15e 2300.00/T | 1.2544E-11 | | R105 | ALD2 + O ----> C2O3 + OH | 1.80E-11e -1100.00/T | 4.4976E-13 | | R106 | ALD2 + OH ----> C2O3 | 4.70E-12e 345.00/T | 1.4950E-11 | | R107 | ALD2 + NO3 ----> C2O3 + HNO3 | 1.40E-12e -1860.00/T | 2.7340E-15 | | R108 | ALD2 ----> MEO2 + RO2 + CO + HO2 | ALD2_R_IUPAC13 | Not Available1 | | R109 | ALDX + O ----> CXO3 + OH | 1.30E-11e -870.00/T | 7.0255E-13 | | R110 | ALDX + OH ----> CXO3 | 4.90E-12e 405.00/T | 1.9060E-11 | | R111 | ALDX + NO3 ----> CXO3 + HNO3 | 6.3000E-15 | 6.3000E-15 | | R112 | ALDX ----> ALD2 + XO2H + RO2 + CO + HO2 | ALDX_R_IUPAC13 | Not Available1 | | R113 | GLYD + OH ----> 0.200\*GLY + 0.200\*HO2 + 0.800\*C2O3 | 8.0000E-12 | 8.0000E-12 | | R114 | GLYD ----> 0.740\*FORM + 0.890\*CO + 1.400\*HO2 + 0.150\*MEOH + 0.190\*OH + 0.110\*GLY + 0.110\*XO2H + 0.110\*RO2 | GLYD_IUPAC13 | Not Available1 | | R115 | GLYD + NO3 ----> HNO3 + C2O3 | R107 | 2.7340E-157| | R116 | GLY + OH ----> 1.800\*CO + 0.200\*XO2 + 0.200\*RO2 + HO2 | 3.10E-12e 340.00/T | 9.6965E-12 | | R117 | GLY ----> 2.000\*HO2 + 2.000\*CO | GLY_R_IUPAC13 | Not Available1 | | R118 | GLY + NO3 ----> HNO3 + 1.500\*CO + 0.500\*XO2 + 0.500\*RO2 + HO2 | 4.0000E-16 | 4.0000E-16 | | R119 | MGLY ----> C2O3 + HO2 + CO | MGLY_IUPAC10 | Not Available1 | | R120 | MGLY + NO3 ----> HNO3 + C2O3 + XO2 + RO2 | 5.0000E-16 | 5.0000E-16 | | R121 | MGLY + OH ----> C2O3 + CO | 1.90E-12e 575.00/T | 1.3071E-11 | | R122 | OH + H2 ----> HO2 | 7.70E-12e -2100.00/T | 6.7230E-15 | | R123 | CO + OH ----> HO2 | k0= 1.44E-13e 0.0/T
k1= 3.43E-33e 0.0/T | 2.2843E-13 | | R124 | OH + CH4 ----> MEO2 + RO2 | 1.85E-12e -1690.00/T | 6.3895E-15 | | R125 | ETHA + OH ----> 0.991\*ALD2 + 0.991\*XO2H + 0.009\*XO2N + RO2 | 6.90E-12e -1000.00/T | 2.4111E-13 | | R126 | MEOH + OH ----> FORM + HO2 | 2.85E-12e -345.00/T | 8.9600E-13 | | R127 | ETOH + OH ----> 0.950\*ALD2 + 0.900\*HO2 + 0.100\*XO2H + 0.100\*RO2 + 0.078\*FORM + 0.011\*GLYD | 3.00E-12e 20.00/T | 3.2081E-12 | | R128 | KET ----> 0.500\*ALD2 + 0.500\*C2O3 + 0.500\*XO2H + 0.500\*CXO3 + 0.500\*MEO2 + RO2 - 2.500\*PAR | KET_IUPAC10 | Not Available1 | | R129 | ACET ----> 0.380\*CO + 1.380\*MEO2 + 1.380\*RO2 + 0.620\*C2O3 | ACET_IUPAC10 | Not Available1 | | R130 | ACET + OH ----> FORM + C2O3 + XO2 + RO2 | 1.41E-12e -620.60/T | 1.7589E-13 | | R131 | PRPA + OH ----> XPRP | 7.60E-12e -585.00/T | 1.0683E-12 | | R132 | PAR + OH ----> XPAR | 8.1000E-13 | 8.1000E-13 | | R133 | ROR ----> 0.200\*KET + 0.420\*ACET + 0.740\*ALD2 + 0.370\*ALDX + 0.040\*XO2N + 0.940\*XO2H + 0.980\*RO2 + 0.020\*ROR - 2.700\*PAR | 5.70E+12e -5780.00/T | 2.1704E+04 | | R134 | ROR + O2 ----> KET + HO2 | 1.50E-14e -200.00/T | 7.6695E-15 | | R135 | ROR + NO2 ----> NTR1 | 8.60E-12e 400.00/T | 3.2897E-11 | | R136 | ETHY + OH ----> 0.700\*GLY + 0.700\*OH + 0.300\*FACD + 0.300\*CO + 0.300\*HO2 | ko= 5.00E-30e 0.0/T(T/300) -1.50
ki = 1.00E-12e 0.0/T(T/300) 0.00
n= 1.30;F= 0.37 | 7.5233E-13 | | R137 | ETH + O ----> FORM + HO2 + CO + 0.700\*XO2H + 0.700\*RO2 + 0.300\*OH | 1.04E-11e -792.00/T | 7.3010E-13 | | R138 | ETH + OH ----> XO2H + RO2 + 1.560\*FORM + 0.220\*GLYD | ko= 8.60E-29e 0.0/T(T/300) -3.10
ki = 9.00E-12e 0.0/T(T/300) -0.85
n= 1.15;F= 0.48 | 7.8392E-12 | | R139 | ETH + O3 ----> FORM + 0.350\*CO + 0.270\*HO2 + 0.170\*OH + 0.420\*FACD | 6.82E-15e -2500.00/T | 1.5567E-18 | | R140 | ETH + NO3 ----> 0.500\*NO2 + 0.500\*NTR1 + 0.500\*XO2H + 0.500\*XO2 + RO2 + 1.125\*FORM | 3.30E-12e -2880.00/T | 2.1058E-16 | | R141 | OLE + O ----> 0.200\*ALD2 + 0.300\*ALDX + 0.100\*HO2 + 0.200\*XO2H + 0.200\*CO + 0.200\*FORM + 0.010\*XO2N + 0.210\*RO2 + 0.200\*PAR + 0.100\*OH | 1.00E-11e -280.00/T | 3.9097E-12 | | R142 | OLE + OH ----> 0.781\*FORM + 0.488\*ALD2 + 0.488\*ALDX + 0.976\*XO2H + 0.195\*XO2 + 0.024\*XO2N + 1.195\*RO2 - 0.730\*PAR | ko= 8.00E-27e 0.0/T(T/300) -3.50
ki = 3.00E-11e 0.0/T(T/300) -1.00
n= 1.13;F= 0.50 | 2.8547E-11 | | R143 | OLE + O3 ----> 0.295\*ALD2 + 0.555\*FORM + 0.270\*ALDX + 0.150\*XO2H + 0.150\*RO2 + 0.334\*OH + 0.080\*HO2 + 0.378\*CO + 0.075\*GLY + 0.075\*MGLY + 0.090\*FACD + 0.130\*AACD + 0.040\*H2O2 - 0.790\*PAR | 5.50E-15e -1880.00/T | 1.0044E-17 | | R144 | OLE + NO3 ----> 0.500\*NO2 + 0.500\*NTR1 + 0.480\*XO2 + 0.480\*XO2H + 0.040\*XO2N + RO2 + 0.500\*FORM + 0.250\*ALD2 + 0.375\*ALDX - PAR | 4.60E-13e -1155.00/T | 9.5576E-15 | | R145 | IOLE + O ----> 1.240\*ALD2 + 0.660\*ALDX + 0.100\*XO2H + 0.100\*RO2 + 0.100\*CO + 0.100\*PAR | 2.3000E-11 | 2.3000E-11 | | R146 | IOLE + OH ----> 1.300\*ALD2 + 0.700\*ALDX + XO2H + RO2 | 1.05E-11e 519.00/T | 5.9866E-11 | | R147 | IOLE + O3 ----> 0.732\*ALD2 + 0.442\*ALDX + 0.128\*FORM + 0.245\*CO + 0.500\*OH + 0.300\*XO2H + 0.300\*RO2 + 0.240\*GLY + 0.060\*MGLY + 0.290\*PAR + 0.080\*AACD + 0.080\*H2O2 | 4.70E-15e -1013.00/T | 1.5723E-16 | | R148 | IOLE + NO3 ----> 0.500\*NO2 + 0.500\*NTR1 + 0.480\*XO2 + 0.480\*XO2H + 0.040\*XO2N + RO2 + 0.500\*ALD2 + 0.625\*ALDX + PAR | 3.7000E-13 | 3.7000E-13 | | R149 | ISOP + OH ----> ISO2 + RO2 + ISOPRXN | 2.70E-11e 390.00/T | 9.9873E-11 | | R150 | ISOP + O ----> 0.750\*ISPD + 0.500\*FORM + 0.250\*XO2 + 0.250\*RO2 + 0.250\*HO2 + 0.250\*CXO3 + 0.250\*PAR | 3.0000E-11 | 3.0000E-11 | | R151 | ISO2 + NO ----> 0.100\*INTR + 0.900\*NO2 + 0.673\*FORM + 0.900\*ISPD + 0.818\*HO2 + 0.082\*XO2H + 0.082\*RO2 | 2.39E-12e 365.00/T | 8.1296E-12 | | R152 | ISO2 + HO2 ----> 0.880\*ISPX + 0.120\*OH + 0.120\*HO2 + 0.120\*FORM + 0.120\*ISPD | 7.43E-13e 700.00/T | 7.7737E-12 | | R153 | ISO2 + C2O3 ----> 0.598\*FORM + ISPD + 0.728\*HO2 + 0.072\*XO2H + 0.800\*MEO2 + 0.200\*AACD + 0.872\*RO2 | R58 | 1.5924E-117| | R154 | ISO2 + RO2 ----> 0.598\*FORM + ISPD + 0.728\*HO2 + 0.072\*XO2H + 1.072\*RO2 | R70 | 3.4772E-137| | R155 | ISO2 ----> HO2 + HPLD | 3.30E+09e -8300.00/T | 2.6821E-03 | | R156 | ISOP + O3 ----> 0.600\*FORM + 0.650\*ISPD + 0.150\*ALDX + 0.200\*CXO3 + 0.350\*PAR + 0.266\*OH + 0.200\*XO2 + 0.200\*RO2 + 0.066\*HO2 + 0.066\*CO | 1.03E-14e -1995.00/T | 1.2790E-17 | | R157 | ISOP + NO3 ----> 0.350\*NO2 + 0.650\*NTR2 + 0.640\*XO2H + 0.330\*XO2 + 0.030\*XO2N + RO2 + 0.350\*FORM + 0.350\*ISPD + ISOPRXN | 3.03E-12e -448.00/T | 6.7433E-13 | | R158 | ISPD + OH ----> 0.022\*XO2N + 0.521\*XO2 + 0.115\*MGLY + 0.115\*MEO2 + 0.269\*GLYD + 0.269\*C2O3 + 0.457\*OPO3 + 0.117\*PAR + 0.137\*ACET + 0.137\*CO + 0.137\*HO2 + 0.658\*RO2 | 5.58E-12e 511.00/T | 3.0972E-11 | | R159 | ISPD + O3 ----> 0.040\*ALD2 + 0.231\*FORM + 0.531\*MGLY + 0.170\*GLY + 0.170\*ACET + 0.543\*CO + 0.461\*OH + 0.150\*FACD + 0.398\*HO2 + 0.143\*C2O3 | 3.88E-15e -1770.00/T | 1.0247E-17 | | R160 | ISPD + NO3 ----> 0.717\*HNO3 + 0.142\*NTR2 + 0.142\*NO2 + 0.142\*XO2 + 0.142\*XO2H + 0.113\*GLYD + 0.113\*MGLY + 0.717\*PAR + 0.717\*CXO3 + 0.284\*RO2 | 4.10E-12e -1860.00/T | 8.0066E-15 | | R161 | ISPD ----> 0.760\*HO2 + 0.340\*XO2H + 0.160\*XO2 + 0.340\*MEO2 + 0.208\*C2O3 + 0.260\*FORM + 0.240\*OLE + 0.240\*PAR + 0.170\*ACET + 0.128\*GLYD + 0.840\*RO2 | ISPD | Not Available1 | | R162 | ISPX + OH ----> 0.904\*EPOX + 0.933\*OH + 0.067\*ISO2 + 0.067\*RO2 + 0.029\*IOLE + 0.029\*ALDX | 2.23E-11e 372.00/T | 7.7655E-11 | | R163 | HPLD ----> OH + ISPD | HPALD | Not Available1 | | R164 | HPLD + NO3 ----> HNO3 + ISPD | 6.00E-12e -1860.00/T | 1.1717E-14 | | R165 | EPOX + OH ----> EPX2 + RO2 | 5.78E-11e -400.00/T | 1.5110E-11 | | R166 | EPX2 + HO2 ----> 0.275\*GLYD + 0.275\*GLY + 0.275\*MGLY + 1.125\*OH + 0.825\*HO2 + 0.375\*FORM + 0.074\*FACD + 0.251\*CO + 2.175\*PAR | 7.43E-13e 700.00/T | 7.7737E-12 | | R167 | EPX2 + NO ----> 0.275\*GLYD + 0.275\*GLY + 0.275\*MGLY + 0.125\*OH + 0.825\*HO2 + 0.375\*FORM + NO2 + 0.251\*CO + 2.175\*PAR | 2.39E-12e 365.00/T | 8.1296E-12 | | R168 | EPX2 + C2O3 ----> 0.220\*GLYD + 0.220\*GLY + 0.220\*MGLY + 0.100\*OH + 0.660\*HO2 + 0.300\*FORM + 0.200\*CO + 1.740\*PAR + 0.800\*MEO2 + 0.200\*AACD + 0.800\*RO2 | R58 | 1.5924E-117| | R169 | EPX2 + RO2 ----> 0.275\*GLYD + 0.275\*GLY + 0.275\*MGLY + 0.125\*OH + 0.825\*HO2 + 0.375\*FORM + 0.251\*CO + 2.175\*PAR + RO2 | R70 | 3.4772E-137| | R170 | INTR + OH ----> 0.630\*XO2 + 0.370\*XO2H + RO2 + 0.444\*NO2 + 0.185\*NO3 + 0.104\*INTR + 0.592\*FORM + 0.331\*GLYD + 0.185\*FACD + 2.700\*PAR + 0.098\*OLE + 0.078\*ALDX + 0.266\*NTR2 | 3.1000E-11 | 3.1000E-11 | | R171 | TERP + O ----> 0.150\*ALDX + 5.120\*PAR + TRPRXN | 3.6000E-11 | 3.6000E-11 | | R172 | TERP + OH ----> 0.750\*XO2H + 0.500\*XO2 + 0.250\*XO2N + 1.500\*RO2 + 0.280\*FORM + 1.660\*PAR + 0.470\*ALDX + TRPRXN | 1.50E-11e 449.00/T | 6.7627E-11 | | R173 | TERP + O3 ----> 0.570\*OH + 0.070\*XO2H + 0.690\*XO2 + 0.180\*XO2N + 0.940\*RO2 + 0.240\*FORM + 0.001\*CO + 7.000\*PAR + 0.210\*ALDX + 0.390\*CXO3 + TRPRXN | 1.20E-15e -821.00/T | 7.6434E-17 | | R174 | TERP + NO3 ----> 0.470\*NO2 + 0.280\*XO2H + 0.750\*XO2 + 0.250\*XO2N + 1.280\*RO2 + 0.470\*ALDX + 0.530\*NTR2 + TERPNRO2 | 3.70E-12e 175.00/T | 6.6544E-12 | | R171a | APIN + O ----> 0.150\*ALDX + 5.120\*PAR + TRPRXN | 3.6000E-11 | 3.6000E-11 | | R172a | APIN + OH ----> 0.750\*XO2H + 0.500\*XO2 + 0.250\*XO2N + 1.500\*RO2 + 0.280\*FORM + 1.660\*PAR + 0.470\*ALDX + TRPRXN | 1.50E-11e 449.00/T | 6.7627E-11 | | R173a | APIN + O3 ----> 0.570\*OH + 0.070\*XO2H + 0.690\*XO2 + 0.180\*XO2N + 0.940\*RO2 + 0.240\*FORM + 0.001\*CO + 7.000\*PAR + 0.210\*ALDX + 0.390\*CXO3 + TRPRXN | 1.20E-15e -821.00/T | 7.6434E-17 | | R174a | APIN + NO3 ----> 0.470\*NO2 + 0.280\*XO2H + 0.750\*XO2 + 0.250\*XO2N + 1.280\*RO2 + 0.470\*ALDX + 0.530\*NTR2 | 3.70E-12e 175.00/T | 6.6544E-12 | | R175 | BENZENE + OH ----> 0.530\*CRES + 0.352\*BZO2 + 0.352\*RO2 + 0.118\*OPEN + 0.118\*OH + 0.530\*HO2 + BENZRO2 | 2.30E-12e -190.00/T | 1.2161E-12 | | R176 | BZO2 + NO ----> 0.918\*NO2 + 0.082\*NTR2 + 0.918\*GLY + 0.918\*OPEN + 0.918\*HO2 | 2.70E-12e 360.00/T | 9.0313E-12 | | R177 | BZO2 + C2O3 ----> GLY + OPEN + HO2 + MEO2 + RO2 | R58 | 1.5924E-117| | R178 | BZO2 + HO2 ----> | 1.90E-13e 1300.00/T | 1.4872E-11 | | R179 | BZO2 + RO2 ----> GLY + OPEN + HO2 + RO2 | R70 | 3.4772E-137| | R180 | TOL + OH ----> 0.180\*CRES + 0.650\*TO2 + 0.720\*RO2 + 0.100\*OPEN + 0.100\*OH + 0.070\*XO2H + 0.180\*HO2 + TOLRO2 | 1.80E-12e 340.00/T | 5.6302E-12 | | R181 | TO2 + NO ----> 0.860\*NO2 + 0.140\*NTR2 + 0.417\*GLY + 0.443\*MGLY + 0.660\*OPEN + 0.200\*XOPN + 0.860\*HO2 | 2.70E-12e 360.00/T | 9.0313E-12 | | R182 | TO2 + C2O3 ----> 0.480\*GLY + 0.520\*MGLY + 0.770\*OPEN + 0.230\*XOPN + HO2 + MEO2 + RO2 | R58 | 1.5924E-117| | R183 | TO2 + HO2 ----> | 1.90E-13e 1300.00/T | 1.4872E-11 | | R184 | TO2 + RO2 ----> 0.480\*GLY + 0.520\*MGLY + 0.770\*OPEN + 0.230\*XOPN + HO2 + RO2 | R70 | 3.4772E-137| | R185 | XYLMN + OH ----> 0.155\*CRES + 0.544\*XLO2 + 0.602\*RO2 + 0.244\*XOPN + 0.244\*OH + 0.058\*XO2H + 0.155\*HO2 + XYLRO2 | 1.8500E-11 | 1.8500E-11 | | R185a | NAPH + OH ----> 0.155\*CRES + 0.544\*XLO2 + 0.602\*RO2 + 0.244\*XOPN + 0.244\*OH + 0.058\*XO2H + 0.155\*HO2 + PAHRO2 | 1.8500E-11 | 1.8500E-11 | | R186 | XLO2 + NO ----> 0.860\*NO2 + 0.140\*NTR2 + 0.221\*GLY + 0.675\*MGLY + 0.300\*OPEN + 0.560\*XOPN + 0.860\*HO2 | 2.70E-12e 360.00/T | 9.0313E-12 | | R187 | XLO2 + HO2 ----> | 1.90E-13e 1300.00/T | 1.4872E-11 | | R188 | XLO2 + C2O3 ----> 0.260\*GLY + 0.770\*MGLY + 0.350\*OPEN + 0.650\*XOPN + HO2 + MEO2 + RO2 | R58 | 1.5924E-117| | R189 | XLO2 + RO2 ----> 0.260\*GLY + 0.770\*MGLY + 0.350\*OPEN + 0.650\*XOPN + HO2 + RO2 | R70 | 3.4772E-137| | R190 | CRES + OH ----> 0.025\*GLY + 0.025\*OPEN + HO2 + 0.200\*CRO + 0.732\*CAT1 + 0.020\*XO2N + 0.020\*RO2 | 1.70E-12e 950.00/T | 4.1138E-11 | | R191 | CRES + NO3 ----> 0.300\*CRO + HNO3 + 0.480\*XO2 + 0.120\*XO2H + 0.240\*GLY + 0.240\*MGLY + 0.480\*OPO3 + 0.100\*XO2N + 0.700\*RO2 | 1.4000E-11 | 1.4000E-11 | | R192 | CRO + NO2 ----> CRON | 2.1000E-12 | 2.1000E-12 | | R193 | CRO + HO2 ----> CRES | 5.5000E-12 | 5.5000E-12 | | R194 | CRON + OH ----> NTR2 + 0.500\*CRO | 1.5300E-12 | 1.5300E-12 | | R195 | CRON + NO3 ----> NTR2 + 0.500\*CRO + HNO3 | 3.8000E-12 | 3.8000E-12 | | R196 | CRON ----> HONO + HO2 + FORM + OPEN | NTR_IUPAC10 | Not Available1 | | R197 | XOPN ----> 0.400\*GLY + XO2H + 0.700\*HO2 + 0.700\*CO + 0.300\*C2O3 | 5.0000E-02\*NO2_IUPAC10 | Not Available1 | | R198 | XOPN + OH ----> MGLY + 0.400\*GLY + 2.000\*XO2H + 2.000\*RO2 | 9.0000E-11 | 9.0000E-11 | | R199 | XOPN + O3 ----> 1.200\*MGLY + 0.500\*OH + 0.600\*C2O3 + 0.100\*ALD2 + 0.500\*CO + 0.300\*XO2H + 0.300\*RO2 | 1.08E-16e -500.00/T | 2.0189E-17 | | R200 | XOPN + NO3 ----> 0.500\*NO2 + 0.500\*NTR2 + 0.450\*XO2H + 0.450\*XO2 + 0.100\*XO2N + RO2 + 0.250\*OPEN + 0.250\*MGLY | 3.0000E-12 | 3.0000E-12 | | R201 | OPEN ----> OPO3 + HO2 + CO | 2.8000E-02\*NO2_IUPAC10 | Not Available1 | | R202 | OPEN + OH ----> 0.600\*OPO3 + 0.400\*XO2H + 0.400\*RO2 + 0.400\*GLY | 4.4000E-11 | 4.4000E-11 | | R203 | OPEN + O3 ----> 1.400\*GLY + 0.240\*MGLY + 0.500\*OH + 0.120\*C2O3 + 0.080\*FORM + 0.020\*ALD2 + 1.980\*CO + 0.560\*HO2 | 5.40E-17e -500.00/T | 1.0094E-17 | | R204 | OPEN + NO3 ----> OPO3 + HNO3 | 3.8000E-12 | 3.8000E-12 | | R205 | CAT1 + OH ----> 0.140\*FORM + 0.200\*HO2 + 0.500\*CRO | 5.0000E-11 | 5.0000E-11 | | R206 | CAT1 + NO3 ----> CRO + HNO3 | 1.7000E-10 | 1.7000E-10 | | R207 | OPO3 + NO ----> NO2 + 0.500\*GLY + 0.500\*CO + 0.800\*HO2 + 0.200\*CXO3 | R61 | 2.0957E-117| | R208 | OPO3 + NO2 ----> OPAN | R62 | 8.2883E-127| | R209 | OPAN ----> OPO3 + NO2 | R63 | 3.7022E-047| | R210 | OPO3 + HO2 ----> 0.370\*PACD + 0.130\*AACD + 0.130\*O3 + 0.500\*OH + 0.500\*MEO2 + 0.500\*RO2 | R57 | 2.1967E-117| | R211 | OPO3 + C2O3 ----> MEO2 + XO2 + ALDX + 2.000\*RO2 | R59 | 1.5514E-117| | R212 | OPO3 + RO2 ----> 0.800\*XO2H + 0.800\*ALDX + 1.800\*RO2 + 0.200\*AACD | R58 | 1.5924E-117| | R213 | OPAN + OH ----> 0.500\*NO2 + 0.500\*GLY + CO + 0.500\*NTR2 | 3.6000E-11 | 3.6000E-11 | | R214 | PANX + OH ----> ALD2 + NO2 | 3.0000E-12 | 3.0000E-12 | | R216 | ECH4 + OH ----> MEO2 + RO2 | 1.85E-12e -1690.00/T | 6.3895E-15 | | R217 | XPRP ----> XO2N + RO2 | ko= 2.37E-21e 0.0/T(T/300) 0.00
ki = 4.07E-01e 0.0/T(T/300) -8.00
n= 1.00;F= 0.41 | 3.0828E-02 | | R218 | XPRP ----> 0.732\*ACET + 0.268\*ALDX + 0.268\*PAR + XO2H + RO2 | 1.0000E+00 | 1.0000E+00 | | R219 | XPAR ----> XO2N + RO2 | ko= 4.81E-20e 0.0/T(T/300) 0.00
ki = 4.07E-01e 0.0/T(T/300) -8.00
n= 1.00;F= 0.41 | 1.4904E-01 | | R220 | XPAR ----> 0.126\*ALDX + 0.874\*ROR + 0.126\*XO2H + 0.874\*XO2 + RO2 - 0.126\*PAR | 1.0000E+00 | 1.0000E+00 | | R221 | NO2 + OH + H2O ----> HNO3 | 1.1000E-30 | 1.1000E-30 | | CL1 | CL2 ----> 2.000\*CL | CL2_IUPAC04 | Not Available1 | | CL2 | HOCL ----> OH + CL | HOCL_IUPAC04 | Not Available1 | | CL3 | CL + O3 ----> CLO | 2.30E-11e -200.00/T | 1.1760E-11 | | CL4 | CLO + CLO ----> 0.300\*CL2 + 1.400\*CL | 1.6300E-14 | 1.6300E-14 | | CL5 | CLO + NO ----> CL + NO2 | 6.40E-12e 290.00/T | 1.6928E-11 | | CL6 | CLO + HO2 ----> HOCL | 2.20E-12e 340.00/T | 6.8814E-12 | | CL7 | CLO + MEO2 ----> CL + FORM + HO2 | 3.20E-12e -110.00/T | 2.2127E-12 | | CL8 | OH + FMCL ----> CL + CO | 5.0000E-13 | 5.0000E-13 | | CL9 | FMCL ----> CL + CO + HO2 | FMCL_IUPAC04 | Not Available1 | | CL10 | CL + CH4 ----> HCL + MEO2 + RO2 | 6.60E-12e -1240.00/T | 1.0311E-13 | | CL11 | CL + PAR ----> HCL + XPAR | 5.0000E-11 | 5.0000E-11 | | CL12 | CL + PRPA ----> HCL + ACET + 0.970\*XO2H + 0.030\*XO2N + RO2 | 1.4000E-10 | 1.4000E-10 | | CL13 | CL + ETHA ----> HCL + 0.991\*ALD2 + 0.991\*XO2H + 0.009\*XO2N + RO2 | 8.30E-11e -100.00/T | 5.9349E-11 | | CL14 | CL + ETH ----> FMCL + 2.000\*XO2 + HO2 + FORM | 1.0700E-10 | 1.0700E-10 | | CL15 | CL + OLE ----> FMCL + 0.330\*ALD2 + 0.670\*ALDX + 2.000\*XO2 + HO2 - PAR | 2.5000E-10 | 2.5000E-10 | | CL16 | CL + IOLE ----> 0.300\*HCL + 0.700\*FMCL + 0.450\*ALD2 + 0.550\*ALDX + 0.300\*OLE + 0.300\*PAR + 1.700\*XO2 + HO2 | 3.5000E-10 | 3.5000E-10 | | CL17 | CL + ISOP ----> FMCL + ISPD + 0.960\*XO2H + 0.040\*XO2N + RO2 | 4.3000E-10 | 4.3000E-10 | | CL18 | CL + FORM ----> HCL + HO2 + CO | 8.20E-11e -34.00/T | 7.3162E-11 | | CL19 | CL + ALD2 ----> HCL + C2O3 | 7.9000E-11 | 7.9000E-11 | | CL20 | CL + ALDX ----> HCL + CXO3 | 1.3000E-10 | 1.3000E-10 | | CL21 | CL + MEOH ----> HCL + HO2 + FORM | 5.5000E-11 | 5.5000E-11 | | CL22 | CL + ETOH ----> HCL + HO2 + ALD2 | 8.20E-11e 45.00/T | 9.5359E-11 | | CL23 | HCL + OH ----> CL | 6.58E-13e 58.00/T(T/300) 1.16 | 7.9359E-13 | | CL24 | CL + TOL ----> HCL + 0.180\*CRES + 0.650\*TO2 + 0.720\*RO2 + 0.100\*OPEN + 0.100\*OH + 0.070\*XO2H + 0.180\*HO2 + TOLRO2 | 6.1000E-11 | 6.1000E-11 | | CL25 | CL + XYLMN ----> HCL + 0.155\*CRES + 0.544\*XLO2 + 0.602\*RO2 + 0.244\*XOPN + 0.244\*OH + 0.058\*XO2H + 0.155\*HO2 + XYLRO2 | 1.2000E-10 | 1.2000E-10 | | CL26 | CL + NAPH ----> HCL + 0.155\*CRES + 0.544\*XLO2 + 0.602\*RO2 + 0.244\*XOPN + 0.244\*OH + 0.058\*XO2H + 0.155\*HO2 + PAHRO2 | 1.2000E-10 | 1.2000E-10 | | CL27 | CLNO2 ----> CL + NO2 | CLNO2_IUPAC13 | Not Available1 | | CL28 | CLO + NO2 ----> CLNO3 | ko= 1.80E-31e 0.0/T(T/300) -3.40
ki = 1.50E-11e 0.0/T(T/300) -1.90
n= 1.00;F= 0.60 | 2.3359E-12 | | CL30 | CLNO3 ----> CLO + NO2 | CLONO2_1 | Not Available1 | | CL31 | CLNO3 ----> CL + NO3 | CLONO2_2 | Not Available1 | | HET_CLNO3_WAI | CLNO3 ----> HOCL + HNO3 | HETERO_CLNO3_WAI | Not Available2 | | HET_CLNO3_WAJ | CLNO3 ----> HOCL + HNO3 | HETERO_CLNO3_WAJ | Not Available2 | | SA01 | TOLRO2 + NO ----> NO + 0.016\*SVAVB2 + 0.051\*SVAVB3 + 0.047\*SVAVB4 | 2.70E-12e 360.00/T | 9.0313E-12 | | SA02 | TOLRO2 + HO2 ----> HO2 + 0.140\*SVAVB1 | 1.90E-13e 1300.00/T | 1.4872E-11 | | SA03 | XYLRO2 + NO ----> NO + 0.015\*SVAVB2 + 0.023\*SVAVB3 + 0.060\*SVAVB4 | 2.70E-12e 360.00/T | 9.0313E-12 | | SA04 | XYLRO2 + HO2 ----> HO2 + 0.193\*SVAVB1 | 1.90E-13e 1300.00/T | 1.4872E-11 | | SA06 | BENZRO2 + NO ----> NO + 0.034\*SVAVB2 + 0.392\*SVAVB4 | 2.70E-12e 360.00/T | 9.0313E-12 | | SA07 | BENZRO2 + HO2 ----> HO2 + 0.146\*SVAVB1 | 1.90E-13e 1300.00/T | 1.4872E-11 | | SA08 | SESQ + O3 ----> O3 + SESQRXN | 1.1600E-14 | 1.1600E-14 | | SA09 | SESQ + OH ----> OH + SESQRXN | 1.9700E-10 | 1.9700E-10 | | SA10 | SESQ + NO3 ----> NO3 + SESQRXN | 1.9000E-11 | 1.9000E-11 | | SA11 | PAHRO2 + NO ----> NO + 0.028\*SVAVB2 + 0.225\*SVAVB3 + 0.191\*SVAVB4 | 2.70E-12e 360.00/T | 9.0313E-12 | | SA12 | PAHRO2 + HO2 ----> HO2 + 0.473\*SVAVB1 | 1.90E-13e 1300.00/T | 1.4872E-11 | | SA13 | SOAALK + OH ----> OH + 0.006\*SVAVB2 + 0.052\*SVAVB3 + 0.081\*SVAVB4 | 2.70E-12e 374.00/T | 9.4655E-12 | | HET_NTR2 | NTR2 ----> HNO3 | 1.4000E+00\*HETERO_NTR2 | Not Available2 | | HET_N2O5IJ | N2O5 ----> HNO3 + H2NO3PIJ | HETERO_N2O5IJ | Not Available2 | | HET_N2O5K | N2O5 ----> HNO3 + H2NO3PK | HETERO_N2O5K | Not Available2 | | HET_H2NO3PIJA | H2NO3PIJ ----> HNO3 | HETERO_H2NO3PAIJ | Not Available2 | | HET_H2NO3PKA | H2NO3PK ----> HNO3 | HETERO_H2NO3PAK | Not Available2 | | HET_H2NO3PIB | H2NO3PIJ + ACLI ----> CLNO2 | HETERO_H2NO3PBIJ | Not Available2 | | HET_H2NO3PJB | H2NO3PIJ + ACLJ ----> CLNO2 | HETERO_H2NO3PBIJ | Not Available2 | | HET_H2NO3PKB | H2NO3PK + ACLK ----> CLNO2 | HETERO_H2NO3PBK | Not Available2 | | HET_N02 | NO2 ----> 0.500\*HONO + 0.500\*HNO3 | HETERO_NO2 | Not Available2 | | HAL_Ozone | O3 ----> | SEAWATER*min( 6.701E-11e 1.074E+01P+ 3.415E-08e-6.713E-01P,
2.000E-06) | 2.0000E-064| | HET_IEPOX | EPOX ----> IEPOXP | HETERO_IEPOX | Not Available2 | | HET_IEPOXOS | IEPOXP + ASO4J ----> AISO3J | HETERO_IEPOXOS | Not Available2 | | HET_TETROL | IEPOXP ----> AISO3J | HETERO_TETROL | Not Available2 | | HET_GLY | GLY ----> AGLYJ | HETERO_GLY | Not Available2 | | HET_MGLY | MGLY ----> AGLYJ | HETERO_MGLY | Not Available2 | | BL18a | TERPNRO2 + NO ----> NO + 0.688\*MTNO3 | 2.60E-12e 380.00/T | 9.3002E-12 | | BL18b | TERPNRO2 + HO2 ----> HO2 + MTNO3 | 2.65E-13e 1300.00/T | 2.0743E-11 | | BL18c | TERPNRO2 + NO3 ----> NO3 + 0.422\*MTNO3 | 2.3000E-12 | 2.3000E-12 | | BL18d | TERPNRO2 + RO2 ----> RO2 + 0.711\*MTNO3 | 3.5000E-14 | 3.5000E-14 | | CP07mtp | MTNO3 + CL ----> CL + 0.370\*MTNO3 | 1.9200E-10 | 1.9200E-10 | | BP70mtp | MTNO3 + OH ----> OH + 0.240\*MTNO3 | 7.2000E-12 | 7.2000E-12 | | BP71mtp | MTNO3 ----> | IC3ONO2 | Not Available1 | | HYD_MT | AMTNO3J ----> AMTHYDJ | 9.2590E-05 | 9.2590E-05 | | OLIG_AROMATIC1 | AAVB2J ----> 0.907\*AOLGAJ | 9.4882E-06 | 9.4882E-06 | | OLIG_AROMATIC2 | AAVB3J ----> 0.925\*AOLGAJ | 9.4882E-06 | 9.4882E-06 | | OLIG_AROMATIC3 | AAVB4J ----> 0.943\*AOLGAJ | 9.4882E-06 | 9.4882E-06 | | OLIG_ISOPRENE1 | AISO1J ----> 0.500\*AOLGBJ | 9.4882E-06 | 9.4882E-06 | | OLIG_ISOPRENE2 | AISO2J ----> 0.500\*AOLGBJ | 9.4882E-06 | 9.4882E-06 | | OLIG_SESQT1 | ASQTJ ----> 1.500\*AOLGBJ | 9.4882E-06 | 9.4882E-06 | | RPOAGEPI | APOCI + OH ----> 1.250\*APNCOMI + APOCI + OH | 2.5000E-12 | 2.5000E-12 | | RPOAGELI | APNCOMI + OH ----> OH | HETERO_PNCOMLI | Not Available2 | | RPOAGEPJ | APOCJ + OH ----> 1.250\*APNCOMJ + APOCJ + OH | 2.5000E-12 | 2.5000E-12 | | RPOAGELJ | APNCOMJ + OH ----> OH | HETERO_PNCOMLJ | Not Available2 | | PCSOA | PCVOC + OH ----> OH + PCSOARXN | 1.2500E-11 | 1.2500E-11 | | POA_AGE1 | VLVPO1 + OH ----> OH + 0.486\*VLVPO1 + 0.006\*VSVPO1 + 0.003\*VSVPO2 + 0.003\*VSVPO3 + 0.002\*VIVPO1 + 0.294\*VLVOO1 + 0.202\*VLVOO2 + 0.002\*VSVOO2 + 0.002\*VSVOO3 | 4.0000E-11 | 4.0000E-11 | | POA_AGE2 | VSVPO1 + OH ----> OH + 0.300\*VLVPO1 + 0.286\*VSVPO1 + 0.004\*VSVPO2 + 0.004\*VSVPO3 + 0.224\*VLVOO1 + 0.182\*VLVOO2 | 4.0000E-11 | 4.0000E-11 | | POA_AGE3 | VSVPO2 + OH ----> OH + 0.386\*VLVPO1 + 0.095\*VSVPO1 + 0.137\*VSVPO2 + 0.001\*VSVPO3 + 0.205\*VLVOO1 + 0.176\*VLVOO2 | 4.0000E-11 | 4.0000E-11 | | POA_AGE4 | VSVPO3 + OH ----> OH + 0.218\*VLVPO1 + 0.306\*VSVPO1 + 0.015\*VSVPO2 + 0.104\*VSVPO3 + 0.189\*VLVOO1 + 0.167\*VLVOO2 | 4.0000E-11 | 4.0000E-11 | | POA_AGE5 | VIVPO1 + OH ----> OH + 0.241\*VLVPO1 + 0.209\*VSVPO1 + 0.300\*VSVPO2 + 0.203\*VLVOO1 + 0.047\*VLVOO2 | 4.0000E-11 | 4.0000E-11 | | POA_AGE6 | VLVOO1 + OH ----> OH + 0.666\*VLVOO1 + 0.014\*VLVOO2 + 0.012\*VSVOO1 + 0.124\*VSVOO2 + 0.183\*VSVOO3 | 4.0000E-11 | 4.0000E-11 | | POA_AGE7 | VLVOO2 + OH ----> OH + 0.286\*VLVOO1 + 0.393\*VLVOO2 + 0.014\*VSVOO1 + 0.103\*VSVOO2 + 0.204\*VSVOO3 | 4.0000E-11 | 4.0000E-11 | | POA_AGE8 | VSVOO1 + OH ----> OH + 0.330\*VLVOO1 + 0.227\*VLVOO2 + 0.261\*VSVOO1 + 0.070\*VSVOO2 + 0.112\*VSVOO3 | 4.0000E-11 | 4.0000E-11 | | POA_AGE9 | VSVOO2 + OH ----> OH + 0.344\*VLVOO1 + 0.275\*VLVOO2 + 0.049\*VSVOO1 + 0.258\*VSVOO2 + 0.074\*VSVOO3 | 4.0000E-11 | 4.0000E-11 | | POA_AGE10 | VSVOO3 + OH ----> OH + 0.389\*VLVOO1 + 0.242\*VLVOO2 + 0.064\*VSVOO1 + 0.038\*VSVOO2 + 0.267\*VSVOO3 | 4.0000E-11 | 4.0000E-11 | | T01 | FORM_PRIMARY + OH ----> OH | 5.40E-12e 135.00/T | 8.4926E-12 | | T02 | FORM_PRIMARY + NO3 ----> NO3 | 5.5000E-16 | 5.5000E-16 | | T03 | FORM_PRIMARY + O ----> O | 3.40E-11e -1600.00/T | 1.5881E-13 | | T04 | FORM_PRIMARY ----> | FORM_R_IUPAC13 | Not Available1 | | T05 | FORM_PRIMARY ----> | FORM_M_IUPAC13 | Not Available1 | | TCL1 | FORM_PRIMARY + CL ----> CL | 8.20E-11e -34.00/T | 7.3162E-11 | | T06 | ALD2_PRIMARY + OH ----> OH | 4.70E-12e 345.00/T | 1.4950E-11 | | T07 | ALD2_PRIMARY + NO3 ----> NO3 | 1.40E-12e -1860.00/T | 2.7340E-15 | | T08 | ALD2_PRIMARY + O ----> O | 1.80E-11e -1100.00/T | 4.4976E-13 | | T09 | ALD2_PRIMARY ----> | ALD2_R_IUPAC13 | Not Available1 | | TCL2 | ALD2_PRIMARY + CL ----> CL | 7.9000E-11 | 7.9000E-11 | | T10 | BUTADIENE13 + OH ----> OH + 0.580\*ACROLEIN | 1.48E-11e 448.00/T | 6.6502E-11 | | T11 | BUTADIENE13 + O3 ----> O3 + 0.520\*ACROLEIN | 1.34E-14e -2283.00/T | 6.3331E-18 | | T12 | BUTADIENE13 + NO3 ----> NO3 + 0.045\*ACROLEIN | 1.7900E-13 | 1.7900E-13 | | TCL3 | BUTADIENE13 + CL ----> CL + 0.580\*ACROLEIN | 2.5100E-10 | 2.5100E-10 | | T13 | ACRO_PRIMARY + OH ----> OH | 2.0000E-11 | 2.0000E-11 | | T14 | ACRO_PRIMARY + O3 ----> O3 | 2.6100E-19 | 2.6100E-19 | | T15 | ACRO_PRIMARY + NO3 ----> NO3 | 1.1500E-15 | 1.1500E-15 | | T16 | ACRO_PRIMARY ----> | ACRO_09 | Not Available1 | | TCL4 | ACRO_PRIMARY + CL ----> CL | 2.3700E-10 | 2.3700E-10 | | T17 | ACROLEIN + OH ----> OH | 2.0000E-11 | 2.0000E-11 | | T18 | ACROLEIN + O3 ----> O3 | 2.6100E-19 | 2.6100E-19 | | T19 | ACROLEIN + NO3 ----> NO3 | 1.1500E-15 | 1.1500E-15 | | T20 | ACROLEIN ----> | ACRO_09 | Not Available1 | | TCL5 | ACROLEIN + CL ----> CL | 2.3700E-10 | 2.3700E-10 | | T21 | TOLU + OH ----> OH | 1.80E-12e 340.00/T | 5.6302E-12 | | TCL6 | TOLU + CL ----> CL | 6.1000E-11 | 6.1000E-11 | | HG1 | HG + O3 ----> 0.500\*HGIIAER + 0.500\*HGIIGAS + O3 | 2.11E-18e -1256.50/T | 3.1191E-20 | | HG2 | HG + CL2 ----> HGIIGAS + CL2 | 2.6000E-18 | 2.6000E-18 | | HG3 | HG + H2O2 ----> HGIIGAS + H2O2 | 8.5000E-19 | 8.5000E-19 | | HG4 | HG + OH ----> 0.500\*HGIIAER + 0.500\*HGIIGAS + OH | 7.7000E-14 | 7.7000E-14 | | HG5 | HG + CL + M ----> 0.500\*HG + 0.500\*HGIIGAS + CL | 2.25E-33e 680.00/T | 2.2014E-32 | 0Units molecules/(sec*cm3); Value at 298.15 K; 2.4615E+19 molcules/cm3; 1.00 Atm. 1Photolysis Reaction;depends on radiation and predicted concentrations 2Heteorogeneous Reaction;Depends predicted concentrations 4Set to zero if sun is below the horizon. SEAWATER equals surface fraction covered by ice free open ocean plus surf zones. P equals air pressure in atmospheres. 7Rate constant multiple of constant for listed reaction ================================================ FILE: CCTM/src/MECHS/mechanism_information/cb6r5m_ae7_aq/AE7_species_table.md ================================================ **The AE namelist for cb6r5m_ae7_aq has the following aerosol species.** | **Model Species** | **Name** | **Molecular Weight** | **Explicit or Lumped** | | ----------------- | ---------------------------------------------------- | -------------------- | ---------------------- | | AAL | Aluminum | 27 | E | | AAVB1 | low volatility organic particulate matter from oxidation of anthropogenic VOCs | 198.0 | L | | AAVB2 | semivolailte organic particulate matter from oxidation of anthropogenic VOCs | 179.0 | L | | AAVB3 | semivolailte organic particulate matter from oxidation of anthropogenic VOCs | 169.0 | L | | AAVB4 | semivolailte organic particulate matter from oxidation of anthropogenic VOCs | 158.0 | L | | ABR | Bromide | 79.9 | E | | ACA | Calcium | 40.1 | E | | ACL | Chloride | 35.5 | E | | ACORS | Anthropogenic Coarse-mode particle mass | 100.0 | L | | AEC | Elemental Carbon | 12 | E | | AFE | Iron | 55.8 | E | | AGLY | Glyoxal and Methylglyoxal SOA | 66.4 | L | | AH2O | Water | 18 | E | | AH3OP | Hydronium Ion | 19 | E | | AISO1 | Semivolatile SOA Product from Isoprene | 132.0 | L | | AISO2 | High-Volatility SOA Product from Isoprene | 133.0 | L | | AISO3 | Acid-Catalyzed Isoprene SOA compounds | 168.2 | L | | AIVPO1 | Intermediate Volatility Primary Organic Compounds | 266 | L | | AK | Potassium | 39.1 | E | | ALVOO1 | Low Volatility Oxidized Combustion Organic Compounds | 136 | L | | ALVOO2 | Low Volatility Oxidized Combustion Organic Compounds | 136 | L | | ALVPO1 | Low Volatility Primary Organic Compounds | 218 | L | | AMG | Magnesium | 24.3 | E | | AMN | Manganese | 54.9 | E | | AMT1 | low volatility particulate matter from monoterpene photoxidation, C*=0.01 ug/m3 | 200.0 | L | | AMT2 | low volatility particulate matter from monoterpene photoxidation, C*=0.1 ug/m3 | 300.0 | L | | AMT3 | semivolailte particulate matter from monoterpene photoxidation, C*=1 ug/m3 | 186.0 | L | | AMT4 | semivolatile particulate matter from monoterpene photoxidation, C*=10 ug/m3 | 184.0 | L | | AMT5 | semivolatile particulate matter from monoterpene photoxidation, C*=100 ug/m3 | 170.0 | L | | AMT6 | semivolatile particulate matter from monoterpene photoxidation, C*=1000 ug/m3 | 168.0 | L | | AMTNO3J | semivolatile organic nitrates from monoterpene oxidation (Should not to be included for tracking nitrogen)| 231.0 | L | | AMTHYDJ | organic pseudo-hydrolysis accretion product from monoterpene organic nitrates (AMTNO3J) | 168.0| L | | ANA | Sodium | 23 | E | | ANH4 | Ammonium | 18 | E | | ANO3 | Nitrate | 62 | E | | AOLGA | Oligomer products of anthropogenic SOA compounds | 206.0 | L | | AOLGB | Oligomer products of biogenic SOA compounds | 248.0 | L | | AORGC | Glyoxal and Methylglyoxal SOA | 177.0 | L | | AORGH2O | Water associated with organic species of particulate matter | 18.0 | E | | AOTHR | Other Particulate Mass | 200 | L | | APCSO | Potential Combustion SOA | 170 | L | | APNCOM | Non-Carbon Organic Matter associated with APOC | 220.0 | L | | APOC | Primary Organic Carbon | 220.0 | L | | ASEACAT | Sea spray cations | 23.75 | L | | ASI | Silicon | 28.1 | E | | ASO4 | Sulfate | 96 | E | | ASOIL | Lumped crustal species | 100.0 | L | | ASQT | Semivolatile SOA Product from Sesquiterpenes | 273.0 | L | | ASVOO1 | Semivolatile Oxidized Combustion Organic Compounds | 135 | L | | ASVOO2 | Semivolatile Oxidized Combustion Organic Compounds | 135 | L | | ASVOO3 | Semivolatile Oxidized Combustion Organic Compounds | 134 | L | | ASVPO1 | Semivolatile Primary Organic Compounds | 230 | L | | ASVPO2 | Semivolatile Primary Organic Compounds | 241 | L | | ASVPO3 | Semivolatile Primary Organic Compounds | 253 | L | | ATI | Titanium | 47.9 | E | | NUMACC | Accum. Mode Number Conc | NA | NA | | NUMAIT | Aitken Mode Number Conc | NA | NA | | NUMCOR | Coarse Mode Number Conc | NA | NA | | SRFACC | Accum. Mode Surface Area Conc | NA | NA | | SRFAIT | Aitken Mode Surface Area Conc | NA | NA | | SRFCOR | Coarse Mode Surface Area Conc | NA | NA | Note that for each aerosol mass species, a letter will be appended to the names below in order to designate the size, or mode, of the aerosol being represented: I = Aitken mode, J = Accumulation mode, K = Coarse mode. ================================================ FILE: CCTM/src/MECHS/mechanism_information/cb6r5m_ae7_aq/NR7_species_table.md ================================================ **The NR namelist for cb6r5m_ae7_aq has the following gas phase species.** | **Model Species** | **Name** | **Molecular Weight** | **Explicit or Lumped** | | ----------------- | ---------------------------------------------------- | -------------------- | ---------------------- | | LVPCSOG | surrogate SOA precursor gas for combustion/anthropogenic sources | 170.0 | L | | NH3 | ammonia | 17.0 | E | | SVMT1 | low volatility gas from monoterpene photoxidation | 300.0 | L | | SVMT2 | low volatility gas from monoterpene photoxidation | 200.0 | L | | SVMT3 | semivolatile gas from monoterpene photoxidation | 186.0 | L | | SVMT4 | semivolatile gas from monoterpene photoxidation | 184.0 | L | | SVMT5 | semivolatile gas from monoterpene photoxidation | 170.0 | L | | SVMT6 | semivolatile gas from monoterpene photoxidation | 168.0 | L | | SVISO1 | semivolatile gas of secondary aerosol material from isoprene | 132.0 | L | | SVISO2 | semivolatile gas of secondary aerosol material from isoprene | 133.0 | L | | SVSQT | semivolatile gas of secondary aerosol material from sesquiterpenes | 273.0 | L | ================================================ FILE: CCTM/src/MECHS/mechanism_information/cb6r5m_ae7_aq/cb6r5m_ae7_aq_species_table.md ================================================ **The GC namelist for cb6r5m_ae7_aq has the following gas phase species.** | **Model Species** | **Definition** | **Molecular Weight** | **Explicit or Lumped** | | ----------------- | ---------------------------------------------------------------------------- | -------------------- | ---------------------- | | AACD | acetic acid | 60 | E | | ACET | acetone | 58.1 | E | | ACRO_PRIMARY | acrolein from emissions only | 56.1 | E | | ACROLEIN | acrolein | 56.1 | E | | ALD2 | acetaldehyde | 44 | E | | ALD2_PRIMARY | acetaldehyde from emissions only | 44 | E | | ALDX | aldehydes with 3 or more carbons | 58.1 | L | | APIN | alpha pinene | 136.2 | E | | BENZENE | benzene | 78.1 | E | | BENZRO2 | counter species for aerosol from benzene+OH | 127 | L | | BUTADIENE13 | 1,3-butadiene | 54 | E | | BZO2 | peroxy radical from benzene reactions with OH | 159.1 | L | |BR | monoatomic bromine | 79.9 | E | |BR2 | molecular bromide | 159.8 | E | |BRCL | bromine chloride | 115.4 | E | |BRNO3 | bromide nitrate | 141.9 | E | |BRNO2 | bromide nitrite | 125.9 | E | |BRO | bromine oxide | 95.9 | E | | C2O3 | acetylperoxy radical | 75 | E | | CAT1 | methyl catechols | 124.1 | L | |CH3I | methyl iodide | 141.9 | E | | CL | atomic chlorine | 35.5 | E | | CL2 | molecular chlorine | 71 | E | | CLNO2 | nitryl chloride | 81.5 | E | | CLNO3 | chlorine nitrate | 97.5 | E | | CLO | chlorine monoxide | 51.5 | E | | CO | carbon monoxide | 28 | E | | CRES | cresol and higher molecular weight phenols | 108.1 | L | | CRO | alkoxy radical from cresol | 107.1 | L | | CRON | nitro-cresols | 153.1 | L | | CXO3 | acetylperoxy radicals with 3 or more carbons | 89 | L | |DMS | dimethylsulfide | 62.0 | E | | ECH4 | methane | 16 | E | | EPOX | isoprene epoxydiol | 118.1 | L | | EPX2 | peroxy radical from EPOX+OH reaction | 149.1 | L | | ETH | ethene | 28 | E | | ETHA | ethane | 30.1 | E | | ETHY | ethyne (acetylene) | 26 | E | | ETOH | ethanol | 46.1 | E | | FACD | formic acid | 46 | E | |FMBR | formylbormide | 108.9 | E | | FMCL | formylchloride | 64.5 | E | | FORM | formaldehyde | 30 | E | | FORM_PRIMARY | formaldehyde from emissions only | 30 | E | | GLY | glyoxal | 58 | E | | GLYD | glycoaldehyde (hydroxyacetaldehyde) | 60 | E | | H2NO3PIJ | tracer producing HNO3 or ClNO2 from N2O5 in fine mode aerosols | 64 | E | | H2NO3PK | tracer producing HNO3 or ClNO2 from N2O5 in coarse mode aerosols | 64 | E | | H2O2 | hydrogen peroxide | 34 | E | |HBR | hyrodrogen bromide | 80.9 | E | | HCL | hydrochloric acid | 36.5 | E | | HCO3 | radical from HO2 reactions with formaldehyde | 63 | E | | HG | elemental mercury | 200.6 | E | | HGIIAER | precursor of aerosol divalent mercury | 200.6 | E | | HGIIGAS | divalent mercury | 271.5 | E | |HI | hydrogen iodide | 127.9 | E | | HNO3 | nitric acid | 63 | E | | HO2 | hydroperoxy radical | 33 | E | |HOBR | hypobromic acid | 96.9 | E | |HOI | hypoiodous acid | 143.9 | E | | HOCL | hypochlorous acid | 52.5 | E | | HONO | nitrous acid | 47 | E | | HPLD | hydroperoxyaldehyde from ISO2 isomerization | 116.1 | L | | INTR | nitrate from isoprene | 147.1 | L | | IOLE | internal alkene bond | 56.1 | L | |I | mononatomic iodine | 126.9 | E | |I2 | molecular iodine | 253.8 | E | |I2O2 | iodoyl iodide | 285.8 | E | |I2O3 | iodate iodide | 301.8 | E | |I2O4 | diiodine tetroxide | 317.8 | E | |IBR | iodine monobromide | 206.8 | E | |ICL | iodine monochloride | 162.4 | E | |INO | nitrosyl iodide | 156.9 | E | |INO2 | iodine nitrite | 172.9 | E | |INO3 | iodine nitrate | 188.9 | E | |IO | iodine oxide | 142.9 | E | | ISO2 | isoprene peroxy radical | 117.1 | L | | ISOP | isoprene | 68.1 | E | | ISOPRXN | counter species for aerosol from isoprene, volatility pathways | 68.1 | L | | ISPD | isoprene reaction products (methacrolein, methylvinyl ketone, others) | 70.1 | L | | ISPX | hydroperoxide from ISO2 reaction with HO2 | 118.1 | L | | KET | carbon-ketone bond | 72.1 | L | |MB3 | methenyl tribromide | 252.7 | E | |MB2 | methylene bromide | 173.8 | E | |MB2C | dibromochloromethane | 208.3 | E | |MBC2 | dibromochloromethane | 243.8 | E | |MBC | bromochloromethane | 129.4 | E | | MEO2 | methylperoxy radical | 47 | E | | MEOH | methanol | 32 | E | | MEPX | methylhydroperoxide | 48 | E | | MGLY | methyl glyoxal | 72 | E | |MI2 | methylene diiodide | 267.8 | E | |MIB | bromoiodomethane | 219.9 | E | |MIC | chloroiodomethane | 176.4 | E | | MMTNO3 | organic nitrates from monoterpene oxidation (Should not to be included for tracking nitrogen) | 231.0 | L | |MSA | methane sulfonic acid | 96.0 | E | | N2O5 | dinitrogen pentoxide | 108 | E | | NAPH | naphthalene | 128.2 | E | | NO | nitric oxide | 30 | E | | NO2 | nitrogen dioxide | 46 | E | | NO3 | nitrate radical | 62 | E | | NTR1 | monofunctional organic nitrates | 119.1 | L | | NTR2 | multifunctional organic nitrates | 135.1 | L | | O | ground-state oxygen atoms, O(3P) | 16 | E | | O1D | electronically excited oxygen atoms, O(1D) | 16 | E | | O3 | ozone | 48 | E | | OH | hydroxyl radical | 17 | E | |OIO | iodine dioxide | 158.9 | E | | OLE | terminal alkene bond | 42.1 | L | | OPAN | peroxyacylnitrate from OPO3 | 161 | L | | OPEN | aromatic ring opening product (an alkene and aldehyde) | 84 | L | | OPO3 | peroxyacyl radical from OPEN | 115 | L | | PACD | peroxycarboxylic acids | 76 | L | | PAHRO2 | counter species for aerosol from NAPH+OH | 187.2 | L | | PAN | peroxyacylnitrate | 121 | E | | PANX | peroxyacylnitrates with 3 or more carbons | 135 | L | | PAR | carbon-carbon single bond | 14.0 | L | | PCSOARXN | counter species for potential aerosol from combustion (from PCVOC reactions) | 170 | L | | PCVOC | tracer for potential combustion SOA VOCs | 170 | L | | PNA | peroxynitric acid | 79 | E | | PRPA | propane | 44.1 | E | | RO2 | total peroxy radical concentration | 87.1 | L | | ROOH | methylhydroperoxide | 90.1 | E | | ROR | secondary alkoxy radical | 71.1 | L | | SESQ | sesquiterpenes | 204 | L | | SESQRXN | counter species for aerosol from sesquiterpenes | 204 | L | | SO2 | sulfur dioxide | 64 | E | | SOAALK | tracer for alkanes that can form secondary organic aerosol | 112 | L | | SULF | sulfuric acid (gaseous) | 98 | E | | SULRXN | sulfate aerosol precursor | 98 | E | | SVAVB1 | low volatility organic gas from oxidation of anthropogenic VOCs | 179.0 | L | | SVAVB2 | semivolatile organic gas from oxidation of anthropogenic VOCs | 169.0 | L | | SVAVB3 | semivolatile organic gas from oxidation of anthropogenic VOCs | 158.0 | L | | SVAVB4 | semivolatile organic gas from oxidation of anthropogenic VOCs | 198.0 | L | | TERP | monoterpenes | 136.2 | L | | TERPNRO2 | counter species for aerosol from TERP + NO3 | 197.0 | L | | TO2 | toluene peroxy radical | 173.1 | L | | TOL | toluene and other monoalkyl aromatics | 92.1 | L | | TOLRO2 | counter species for aerosol from TOL+OH | 141 | L | | TOLU | toluene | 92 | E | | TRPRXN | counter species for aerosol precursor from monoterpenes | 136.2 | L | | VIVPO1 | evaporated primary organic aerosol, intermed-volatility | 266 | L | | VLVOO1 | evaporated secondary organic aerosol, low-volatility, cat 1 | 136 | L | | VLVOO2 | evaporated secondary organic aerosol, low-volatility, cat 2 | 136 | L | | VLVPO1 | evaporated primary organic aerosol, low-volatility | 218 | L | | VSVOO1 | evaporated secondary organic aerosol, semi-volatile, cat 1 | 135 | L | | VSVOO2 | evaporated secondary organic aerosol, semi-volatile, cat 2 | 135 | L | | VSVOO3 | evaporated secondary organic aerosol, semi-volatile, cat 3 | 134 | L | | VSVPO1 | evaporated primary organic aerosol, semi-volatile, cat 1 | 230 | L | | VSVPO2 | evaporated primary organic aerosol, semi-volatile, cat 2 | 241 | L | | VSVPO3 | evaporated primary organic aerosol, semi-volatile, cat 3 | 253 | L | | XLO2 | peroxy radical from XYLMN+OH reaction | 187.1 | L | | XO2 | NO oxidation to NO2 via peroxy radical | 87.1 | L | | XO2H | NO oxidation to NO2 with HO2 production, from alkoxy radicals | 87.1 | L | | XO2N | nitrate production from NO reaction with peroxy radical | 87.1 | L | | XOPN | product of aromatic ring-opening reaction | 98.1 | L | | XPAR | organic nitrate production from PAR | 117.1 | L | | XPRP | organic nitrate production from PRPA | 89.1 | L | | XYLMN | xylene and other polyalkyl aromatics except naphthalene | 106.2 | L | | XYLRO2 | counter species for aerosol from XYLMN+OH | 155 | L | **The AE namelist for cb6r5m_ae7_aq has the following aerosol species.** | **Model Species** | **Definition** | **Molecular Weight** | **Explicit or Lumped** | | ----------------- | ---------------------------------------------------- | -------------------- | ---------------------- | | AAL | Aluminum | 27 | E | | AAVB1 | low volatility organic particulate matter from oxidation of anthropogenic VOCs | 198.0 | L | | AAVB2 | semivolailte organic particulate matter from oxidation of anthropogenic VOCs | 179.0 | L | | AAVB3 | semivolailte organic particulate matter from oxidation of anthropogenic VOCs | 169.0 | L | | AAVB4 | semivolailte organic particulate matter from oxidation of anthropogenic VOCs | 158.0 | L | | ABR | Bromide | 79.9 | E | | ACA | Calcium | 40.1 | E | | ACL | Chloride | 35.5 | E | | ACORS | Anthropogenic Coarse-mode particle mass | 100.0 | L | | AEC | Elemental Carbon | 12 | E | | AFE | Iron | 55.8 | E | | AGLY | Glyoxal and methylglyoxal SOA produced in aqueous aerosol material | 66.4 | L | | AH2O | Water | 18 | E | | AH3OP | Hydronium Ion | 19 | E | | AISO1 | Semivolatile SOA Product from Isoprene | 132.0 | L | | AISO2 | High-Volatility SOA Product from Isoprene | 133.0 | L | | AISO3 | Acid-catalyzed Isoprene Epoxydiol SOA | 168.2 | L | | AIVPO1 | Intermediate Volatility Primary Organic Compounds | 266 | L | | AK | Potassium | 39.1 | E | | ALVOO1 | Low Volatility Oxidized Combustion Organic Compounds | 136 | L | | ALVOO2 | Low Volatility Oxidized Combustion Organic Compounds | 136 | L | | ALVPO1 | Low Volatility Primary Organic Compounds | 218 | L | | AMG | Magnesium | 24.3 | E | | AMN | Manganese | 54.9 | E | | AMT1 | low volatility particulate matter from monoterpene photoxidation, C*=0.01 ug/m3 | 200.0 | L | | AMT2 | low volatility particulate matter from monoterpene photoxidation, C*=0.1 ug/m3 | 300.0 | L | | AMT3 | semivolailte particulate matter from monoterpene photoxidation, C*=1 ug/m3 | 186.0 | L | | AMT4 | semivolatile particulate matter from monoterpene photoxidation, C*=10 ug/m3 | 184.0 | L | | AMT5 | semivolatile particulate matter from monoterpene photoxidation, C*=100 ug/m3 | 170.0 | L | | AMT6 | semivolatile particulate matter from monoterpene photoxidation, C*=1000 ug/m3 | 168.0 | L | | AMTNO3J | semivolatile organic nitrates from monoterpene oxidation (Should not to be included for tracking nitrogen)| 231.0 | L | | AMTHYDJ | organic pseudo-hydrolysis accretion product from monoterpene organic nitrates (AMTNO3J) | 168.0| L | | ANA | Sodium | 23 | E | | ANH4 | Ammonium | 18 | E | | ANO3 | Nitrate | 62 | E | | AOLGA | Oligomer products of anthropogenic SOA compounds | 206.0 | L | | AOLGB | Oligomer products of biogenic SOA compounds | 248.0 | L | | AORGC | Glyoxal and Methylglyoxal SOA | 177.0 | L | | AORGH2O | Water associated with organic species of particulate matter | 18.0 | E | | AOTHR | Other Particulate Mass | 200 | L | | APCSO | Potential Combustion SOA | 170 | L | | APNCOM | Non-Carbon Organic Matter associated with APOC | 220.0 | L | | APOC | Primary Organic Carbon | 220.0 | L | | ASEACAT | Sea spray cations | 23.75 | L | | ASI | Silicon | 28.1 | E | | ASO4 | Sulfate | 96 | E | | ASOIL | Lumped crustal species | 100.0 | L | | ASQT | Semivolatile SOA Product from Sesquiterpenes | 273.0 | L | | ASVOO1 | Semivolatile Oxidized Combustion Organic Compounds | 135 | L | | ASVOO2 | Semivolatile Oxidized Combustion Organic Compounds | 135 | L | | ASVOO3 | Semivolatile Oxidized Combustion Organic Compounds | 134 | L | | ASVPO1 | Semivolatile Primary Organic Compounds | 230 | L | | ASVPO2 | Semivolatile Primary Organic Compounds | 241 | L | | ASVPO3 | Semivolatile Primary Organic Compounds | 253 | L | | ATI | Titanium | 47.9 | E | | NUMACC | Accum. Mode Number Conc | NA | NA | | NUMAIT | Aitken Mode Number Conc | NA | NA | | NUMCOR | Coarse Mode Number Conc | NA | NA | | SRFACC | Accum. Mode Surface Area Conc | NA | NA | | SRFAIT | Aitken Mode Surface Area Conc | NA | NA | | SRFCOR | Coarse Mode Surface Area Conc | NA | NA | Note that for each aerosol mass species, a letter will be appended to the names below in order to designate the size, or mode, of the aerosol being represented: I = Aitken mode, J = Accumulation mode, K = Coarse mode. **The NR namelist for cb6r5m_ae7_aq has the following gas phase species.** | **Model Species** | **Definition** | **Molecular Weight** | **Explicit or Lumped** | | ----------------- | ---------------------------------------------------- | -------------------- | ---------------------- | | LVPCSOG | surrogate SOA precursor gas for combustion/anthropogenic sources | 170.0 | L | | NH3 | ammonia | 17.0 | E | | SVMT1 | low volatility gas from monoterpene photoxidation | 300.0 | L | | SVMT2 | low volatility gas from monoterpene photoxidation | 200.0 | L | | SVMT3 | semivolatile gas from monoterpene photoxidation | 186.0 | L | | SVMT4 | semivolatile gas from monoterpene photoxidation | 184.0 | L | | SVMT5 | semivolatile gas from monoterpene photoxidation | 170.0 | L | | SVMT6 | semivolatile gas from monoterpene photoxidation | 168.0 | L | | SVISO1 | semivolatile gas of secondary aerosol material from isoprene | 132.0 | L | | SVISO2 | semivolatile gas of secondary aerosol material from isoprene | 133.0 | L | | SVSQT | semivolatile gas of secondary aerosol material from sesquiterpenes | 273.0 | L | ================================================ FILE: CCTM/src/MECHS/mechanism_information/cb6r5m_ae7_aq/mech_cb6r5m_ae7_aq.md ================================================ Information is based on the mech.def file. * Fall-off or pressure dependent reaction rate constants (M equals air number density): * For rate constants with ko, ki, n, F values: k = [ koM/(1+koM/ki)]FG, where G=(1+(log10(koM/ki)/n)2))-1 * For rate constants with k1, k2: k = k1 + k2M * For rate constants with k0, k2, k3: k = k0 + k3M/(1+k3M/k2) * For rate constants with k1, k2, k3: k = k1 + k2M + k3 * For rate constants with the form A<_Reference_>, k equals A times a reference that represents photolysis rate, a heteorogeneous rate constant, rate constant for the given reaction or an operator. A equals one if not given. * In the mechanism definition file, the rate is formatted as * A~<_HETEOROGENEOUS_> * A*K<_REACTION_> * A/<_PHOTOLYSIS_> * A?<_OPERATOR_> |Label|Reaction |Rate Constant Formula| Value
molecules/(sec*cm3)| |:---|:-------------------|:--------------------|:----:| | R1 | NO2 ----> NO + O | NO2_IUPAC10 | Not Available1 | | R2 | O + O2 + M ----> O3 | 6.00E-34(T/300) -2.60 | 6.0973E-34 | | R3 | O3 + NO ----> NO2 | 2.07E-12e -1400.00/T | 1.8910E-14 | | R4 | O + NO ----> NO2 | ko= 1.00E-31e 0.0/T(T/300) -1.60
ki = 5.00E-11e 0.0/T(T/300) 0.30
n= 0.84;F= 0.85 | 2.2577E-12 | | R5 | O + NO2 ----> NO | 5.10E-12e 198.00/T | 9.9079E-12 | | R6 | O + NO2 ----> NO3 | ko= 1.30E-31e 0.0/T(T/300) -1.50
ki = 2.30E-11e 0.0/T(T/300) 0.24
n= 1.03;F= 0.60 | 2.0907E-12 | | R7 | O + O3 ----> | 8.00E-12e -2060.00/T | 7.9879E-15 | | R8 | O3 ----> O | O3_O3P_IUPAC10 | Not Available1 | | R9 | O3 ----> O1D | O3_O1D_IUPAC10 | Not Available1 | | R10 | O1D + M ----> O | 2.23E-11e 115.00/T | 3.2796E-11 | | R11 | O1D + H2O ----> 2.000\*OH | 2.1400E-10 | 2.1400E-10 | | R12 | O3 + OH ----> HO2 | 1.70E-12e -940.00/T | 7.2647E-14 | | R13 | O3 + HO2 ----> OH | 2.03E-16e 693.00/T(T/300) 4.57 | 2.0168E-15 | | R14 | OH + O ----> HO2 | 2.40E-11e 110.00/T | 3.4709E-11 | | R15 | HO2 + O ----> OH | 3.00E-11e 200.00/T | 5.8674E-11 | | R16 | OH + OH ----> O | 6.20E-14e 945.00/T(T/300) 2.60 | 1.4519E-12 | | R17 | OH + OH ----> H2O2 | ko= 9.00E-31e 0.0/T(T/300) -3.20
ki = 3.90E-11e 0.0/T(T/300) -0.47
n= 1.23;F= 0.42 | 6.2071E-12 | | R18 | OH + HO2 ----> | 4.80E-11e 250.00/T | 1.1102E-10 | | R19 | HO2 + HO2 ----> H2O2 | k0= 2.20E-13e 600.0/T
k1= 1.90E-33e 980.0/T | 2.8975E-12 | | R20 | HO2 + HO2 + H2O ----> H2O2 | k0= 3.08E-34e 2800.0/T
k1= 2.66E-54e 3180.0/T | 6.4973E-30 | | R21 | H2O2 ----> 2.000\*OH | H2O2_IUPAC10 | Not Available1 | | R22 | H2O2 + OH ----> HO2 | 1.8000E-12 | 1.8000E-12 | | R23 | H2O2 + O ----> OH + HO2 | 1.40E-12e -2000.00/T | 1.7095E-15 | | R24 | NO + NO + O2 ----> 2.000\*NO2 | 4.25E-39e 664.00/T | 3.9409E-38 | | R25 | HO2 + NO ----> OH + NO2 | 3.45E-12e 270.00/T | 8.5332E-12 | | R26 | NO2 + O3 ----> NO3 | 1.40E-13e -2470.00/T | 3.5339E-17 | | R27 | NO3 ----> NO2 + O | NO3NO2_06 | Not Available1 | | R28 | NO3 ----> NO | NO3NO_06 | Not Available1 | | R29 | NO3 + NO ----> 2.000\*NO2 | 1.80E-11e 110.00/T | 2.6032E-11 | | R30 | NO3 + NO2 ----> NO + NO2 | 4.50E-14e -1260.00/T | 6.5744E-16 | | R31 | NO3 + O ----> NO2 | 1.7000E-11 | 1.7000E-11 | | R32 | NO3 + OH ----> HO2 + NO2 | 2.0000E-11 | 2.0000E-11 | | R33 | NO3 + HO2 ----> OH + NO2 | 4.0000E-12 | 4.0000E-12 | | R34 | NO3 + O3 ----> NO2 | 1.0000E-17 | 1.0000E-17 | | R35 | NO3 + NO3 ----> 2.000\*NO2 | 8.50E-13e -2450.00/T | 2.2944E-16 | | R36 | NO3 + NO2 ----> N2O5 | ko= 3.60E-30e 0.0/T(T/300) -4.10
ki = 1.90E-12e 0.0/T(T/300) 0.20
n= 1.33;F= 0.35 | 1.2406E-12 | | R37 | N2O5 ----> NO3 + NO2 | ko= 1.30E-03e-11000.0/T(T/300) -3.50
ki = 9.70E+14e-11080.0/T(T/300) 0.10
n= 1.33;F= 0.35 | 4.5396E-02 | | R38 | N2O5 ----> NO2 + NO3 | N2O5_IUPAC10 | Not Available1 | | R39 | N2O5 + H2O ----> 2.000\*HNO3 | 1.0000E-22 | 1.0000E-22 | | R40 | NO + OH ----> HONO | ko= 7.40E-31e 0.0/T(T/300) -2.40
ki = 3.30E-11e 0.0/T(T/300) -0.30
n= 0.87;F= 0.81 | 9.7627E-12 | | R41 | NO + NO2 + H2O ----> 2.000\*HONO | 5.0000E-40 | 5.0000E-40 | | R42 | HONO + HONO ----> NO + NO2 | 1.0000E-20 | 1.0000E-20 | | R43 | HONO ----> NO + OH | HONO_IUPAC10 | Not Available1 | | R44 | HONO + OH ----> NO2 | 2.50E-12e 260.00/T | 5.9795E-12 | | R45 | NO2 + OH ----> HNO3 | ko= 1.80E-30e 0.0/T(T/300) -3.00
ki = 2.80E-11e 0.0/T(T/300) 0.00
n= 1.00;F= 0.60 | 1.0589E-11 | | R46 | HNO3 + OH ----> NO3 | k0= 2.40E-14e 460.0/T
k1= 2.70E-17e 2199.0/T
k3= 6.50E-34e 1335.0/T | 1.5409E-13 | | R47 | HNO3 ----> OH + NO2 | HNO3_IUPAC10 | Not Available1 | | R48 | HO2 + NO2 ----> PNA | ko= 1.40E-31e 0.0/T(T/300) -3.10
ki = 4.00E-12e 0.0/T(T/300) 0.00
n= 1.26;F= 0.40 | 7.4949E-13 | | R49 | PNA ----> HO2 + NO2 | ko= 4.10E-05e-10650.0/T(T/300) 0.00
ki = 6.00E+15e-11170.0/T(T/300) 0.00
n= 1.26;F= 0.40 | 6.3131E-02 | | R50 | PNA ----> 0.590\*HO2 + 0.590\*NO2 + 0.410\*OH + 0.410\*NO3 | PNA_IUPAC10 | Not Available1 | | R51 | PNA + OH ----> NO2 | 3.20E-13e 690.00/T | 3.2376E-12 | | R52 | SO2 + OH ----> SULF + HO2 + SULRXN | ko= 2.80E-31e 0.0/T(T/300) -2.60
ki = 2.00E-12e 0.0/T(T/300) 0.00
n= 1.10;F= 0.53 | 9.3422E-13 | | R53 | C2O3 + NO ----> NO2 + MEO2 + RO2 | 7.50E-12e 290.00/T | 1.9837E-11 | | R54 | C2O3 + NO2 ----> PAN | ko= 3.61E-28e 0.0/T(T/300) -6.87
ki = 1.24E-11e 0.0/T(T/300) -1.10
n= 1.41;F= 0.30 | 9.8670E-12 | | R55 | PAN ----> NO2 + C2O3 | ko= 1.10E-05e-10100.0/T(T/300) 0.00
ki = 1.90E+17e-14100.0/T(T/300) 0.00
n= 1.41;F= 0.30 | 4.4073E-04 | | R56 | PAN ----> 0.600\*NO2 + 0.600\*C2O3 + 0.400\*NO3 + 0.400\*MEO2 + 0.400\*RO2 | PAN_IUPAC10 | Not Available1 | | R57 | C2O3 + HO2 ----> 0.370\*PACD + 0.130\*AACD + 0.130\*O3 + 0.500\*MEO2 + 0.500\*RO2 + 0.500\*OH | 3.14E-12e 580.00/T | 2.1967E-11 | | R58 | C2O3 + RO2 ----> MEO2 | 4.40E-13e 1070.00/T | 1.5924E-11 | | R59 | C2O3 + C2O3 ----> 2.000\*MEO2 + 2.000\*RO2 | 2.90E-12e 500.00/T | 1.5514E-11 | | R60 | C2O3 + CXO3 ----> MEO2 + ALD2 + XO2H + 2.000\*RO2 | R59 | 1.5514E-117| | R61 | CXO3 + NO ----> NO2 + ALD2 + XO2H + RO2 | 6.70E-12e 340.00/T | 2.0957E-11 | | R62 | CXO3 + NO2 ----> PANX | 8.4000E-01\*R54 | 8.2883E-127| | R63 | PANX ----> NO2 + CXO3 | 8.4000E-01\*R55 | 3.7022E-047| | R64 | PANX ----> 0.600\*NO2 + 0.600\*CXO3 + 0.400\*NO3 + 0.400\*ALD2 + 0.400\*XO2H + 0.400\*RO2 | PAN_IUPAC10 | Not Available1 | | R65 | CXO3 + HO2 ----> 0.370\*PACD + 0.130\*AACD + 0.130\*O3 + 0.500\*OH + 0.500\*MEO2 + 0.500\*RO2 | R57 | 2.1967E-117| | R66 | CXO3 + RO2 ----> MEO2 | R58 | 1.5924E-117| | R67 | CXO3 + CXO3 ----> 2.000\*MEO2 + 2.000\*RO2 | R59 | 1.5514E-117| | R68 | RO2 + NO ----> NO | 2.40E-12e 360.00/T | 8.0278E-12 | | R69 | RO2 + HO2 ----> HO2 | 4.80E-13e 800.00/T | 7.0234E-12 | | R70 | RO2 + RO2 ----> | 6.50E-14e 500.00/T | 3.4772E-13 | | R71 | MEO2 + NO ----> FORM + HO2 + NO2 | 2.30E-12e 360.00/T | 7.6933E-12 | | R72 | MEO2 + HO2 ----> 0.900\*MEPX + 0.100\*FORM | 3.80E-13e 780.00/T | 5.1994E-12 | | R73 | MEO2 + C2O3 ----> FORM + 0.900\*HO2 + 0.900\*MEO2 + 0.100\*AACD + 0.900\*RO2 | 2.00E-12e 500.00/T | 1.0699E-11 | | R74 | MEO2 + RO2 ----> 0.685\*FORM + 0.315\*MEOH + 0.370\*HO2 + RO2 | R70 | 3.4772E-137| | R75 | XO2H + NO ----> NO2 + HO2 | 2.70E-12e 360.00/T | 9.0313E-12 | | R76 | XO2H + HO2 ----> ROOH | 6.80E-13e 800.00/T | 9.9498E-12 | | R77 | XO2H + C2O3 ----> 0.800\*HO2 + 0.800\*MEO2 + 0.200\*AACD + 0.800\*RO2 | R58 | 1.5924E-117| | R78 | XO2H + RO2 ----> 0.600\*HO2 + RO2 | R70 | 3.4772E-137| | R79 | XO2 + NO ----> NO2 | R75 | 9.0313E-127| | R80 | XO2 + HO2 ----> ROOH | R76 | 9.9498E-127| | R81 | XO2 + C2O3 ----> 0.800\*MEO2 + 0.200\*AACD + 0.800\*RO2 | R58 | 1.5924E-117| | R82 | XO2 + RO2 ----> RO2 | R70 | 3.4772E-137| | R83 | XO2N + NO ----> 0.500\*NTR1 + 0.500\*NTR2 | R75 | 9.0313E-127| | R84 | XO2N + HO2 ----> ROOH | R76 | 9.9498E-127| | R85 | XO2N + C2O3 ----> 0.800\*HO2 + 0.800\*MEO2 + 0.200\*AACD + 0.800\*RO2 | R58 | 1.5924E-117| | R86 | XO2N + RO2 ----> RO2 | R70 | 3.4772E-137| | R87 | MEPX + OH ----> 0.600\*MEO2 + 0.600\*RO2 + 0.400\*FORM + 0.400\*OH | 5.30E-12e 190.00/T | 1.0024E-11 | | R88 | MEPX ----> MEO2 + RO2 + OH | MEPX_IUPAC10 | Not Available1 | | R89 | ROOH + OH ----> 0.540\*XO2H + 0.060\*XO2N + 0.600\*RO2 + 0.400\*OH | 5.30E-12e 190.00/T | 1.0024E-11 | | R90 | ROOH ----> HO2 + OH | MEPX_IUPAC10 | Not Available1 | | R91 | NTR1 + OH ----> NTR2 | 2.0000E-12 | 2.0000E-12 | | R92 | NTR1 ----> NO2 | NTR_IUPAC10 | Not Available1 | | R93 | FACD + OH ----> HO2 | 4.5000E-13 | 4.5000E-13 | | R94 | AACD + OH ----> MEO2 + RO2 | 4.00E-14e 850.00/T | 6.9214E-13 | | R95 | PACD + OH ----> C2O3 | 5.30E-12e 190.00/T | 1.0024E-11 | | R96 | FORM + OH ----> HO2 + CO | 5.40E-12e 135.00/T | 8.4926E-12 | | R97 | FORM ----> 2.000\*HO2 + CO | FORM_R_IUPAC13 | Not Available1 | | R98 | FORM ----> CO | FORM_M_IUPAC13 | Not Available1 | | R99 | FORM + O ----> OH + HO2 + CO | 3.40E-11e -1600.00/T | 1.5881E-13 | | R100 | FORM + NO3 ----> HNO3 + HO2 + CO | 5.5000E-16 | 5.5000E-16 | | R101 | FORM + HO2 ----> HCO3 | 9.70E-15e 625.00/T | 7.8916E-14 | | R102 | HCO3 ----> FORM + HO2 | 2.40E+12e -7000.00/T | 1.5268E+02 | | R103 | HCO3 + NO ----> FACD + NO2 + HO2 | 5.6000E-12 | 5.6000E-12 | | R104 | HCO3 + HO2 ----> 0.500\*MEPX + 0.500\*FACD + 0.200\*OH + 0.200\*HO2 | 5.60E-15e 2300.00/T | 1.2544E-11 | | R105 | ALD2 + O ----> C2O3 + OH | 1.80E-11e -1100.00/T | 4.4976E-13 | | R106 | ALD2 + OH ----> C2O3 | 4.70E-12e 345.00/T | 1.4950E-11 | | R107 | ALD2 + NO3 ----> C2O3 + HNO3 | 1.40E-12e -1860.00/T | 2.7340E-15 | | R108 | ALD2 ----> MEO2 + RO2 + CO + HO2 | ALD2_R_IUPAC13 | Not Available1 | | R109 | ALDX + O ----> CXO3 + OH | 1.30E-11e -870.00/T | 7.0255E-13 | | R110 | ALDX + OH ----> CXO3 | 4.90E-12e 405.00/T | 1.9060E-11 | | R111 | ALDX + NO3 ----> CXO3 + HNO3 | 6.3000E-15 | 6.3000E-15 | | R112 | ALDX ----> ALD2 + XO2H + RO2 + CO + HO2 | ALDX_R_IUPAC13 | Not Available1 | | R113 | GLYD + OH ----> 0.200\*GLY + 0.200\*HO2 + 0.800\*C2O3 | 8.0000E-12 | 8.0000E-12 | | R114 | GLYD ----> 0.740\*FORM + 0.890\*CO + 1.400\*HO2 + 0.150\*MEOH + 0.190\*OH + 0.110\*GLY + 0.110\*XO2H + 0.110\*RO2 | GLYD_IUPAC13 | Not Available1 | | R115 | GLYD + NO3 ----> HNO3 + C2O3 | R107 | 2.7340E-157| | R116 | GLY + OH ----> 1.800\*CO + 0.200\*XO2 + 0.200\*RO2 + HO2 | 3.10E-12e 340.00/T | 9.6965E-12 | | R117 | GLY ----> 2.000\*HO2 + 2.000\*CO | GLY_R_IUPAC13 | Not Available1 | | R118 | GLY + NO3 ----> HNO3 + 1.500\*CO + 0.500\*XO2 + 0.500\*RO2 + HO2 | 4.0000E-16 | 4.0000E-16 | | R119 | MGLY ----> C2O3 + HO2 + CO | MGLY_IUPAC10 | Not Available1 | | R120 | MGLY + NO3 ----> HNO3 + C2O3 + XO2 + RO2 | 5.0000E-16 | 5.0000E-16 | | R121 | MGLY + OH ----> C2O3 + CO | 1.90E-12e 575.00/T | 1.3071E-11 | | R122 | OH + H2 ----> HO2 | 7.70E-12e -2100.00/T | 6.7230E-15 | | R123 | CO + OH ----> HO2 | k0= 1.44E-13e 0.0/T
k1= 3.43E-33e 0.0/T | 2.2843E-13 | | R124 | OH + CH4 ----> MEO2 + RO2 | 1.85E-12e -1690.00/T | 6.3895E-15 | | R125 | ETHA + OH ----> 0.991\*ALD2 + 0.991\*XO2H + 0.009\*XO2N + RO2 | 6.90E-12e -1000.00/T | 2.4111E-13 | | R126 | MEOH + OH ----> FORM + HO2 | 2.85E-12e -345.00/T | 8.9600E-13 | | R127 | ETOH + OH ----> 0.950\*ALD2 + 0.900\*HO2 + 0.100\*XO2H + 0.100\*RO2 + 0.078\*FORM + 0.011\*GLYD | 3.00E-12e 20.00/T | 3.2081E-12 | | R128 | KET ----> 0.500\*ALD2 + 0.500\*C2O3 + 0.500\*XO2H + 0.500\*CXO3 + 0.500\*MEO2 + RO2 - 2.500\*PAR | KET_IUPAC10 | Not Available1 | | R129 | ACET ----> 0.380\*CO + 1.380\*MEO2 + 1.380\*RO2 + 0.620\*C2O3 | ACET_IUPAC10 | Not Available1 | | R130 | ACET + OH ----> FORM + C2O3 + XO2 + RO2 | 1.41E-12e -620.60/T | 1.7589E-13 | | R131 | PRPA + OH ----> XPRP | 7.60E-12e -585.00/T | 1.0683E-12 | | R132 | PAR + OH ----> XPAR | 8.1000E-13 | 8.1000E-13 | | R133 | ROR ----> 0.200\*KET + 0.420\*ACET + 0.740\*ALD2 + 0.370\*ALDX + 0.040\*XO2N + 0.940\*XO2H + 0.980\*RO2 + 0.020\*ROR - 2.700\*PAR | 5.70E+12e -5780.00/T | 2.1704E+04 | | R134 | ROR + O2 ----> KET + HO2 | 1.50E-14e -200.00/T | 7.6695E-15 | | R135 | ROR + NO2 ----> NTR1 | 8.60E-12e 400.00/T | 3.2897E-11 | | R136 | ETHY + OH ----> 0.700\*GLY + 0.700\*OH + 0.300\*FACD + 0.300\*CO + 0.300\*HO2 | ko= 5.00E-30e 0.0/T(T/300) -1.50
ki = 1.00E-12e 0.0/T(T/300) 0.00
n= 1.30;F= 0.37 | 7.5233E-13 | | R137 | ETH + O ----> FORM + HO2 + CO + 0.700\*XO2H + 0.700\*RO2 + 0.300\*OH | 1.04E-11e -792.00/T | 7.3010E-13 | | R138 | ETH + OH ----> XO2H + RO2 + 1.560\*FORM + 0.220\*GLYD | ko= 8.60E-29e 0.0/T(T/300) -3.10
ki = 9.00E-12e 0.0/T(T/300) -0.85
n= 1.15;F= 0.48 | 7.8392E-12 | | R139 | ETH + O3 ----> FORM + 0.350\*CO + 0.270\*HO2 + 0.170\*OH + 0.420\*FACD | 6.82E-15e -2500.00/T | 1.5567E-18 | | R140 | ETH + NO3 ----> 0.500\*NO2 + 0.500\*NTR1 + 0.500\*XO2H + 0.500\*XO2 + RO2 + 1.125\*FORM | 3.30E-12e -2880.00/T | 2.1058E-16 | | R141 | OLE + O ----> 0.200\*ALD2 + 0.300\*ALDX + 0.100\*HO2 + 0.200\*XO2H + 0.200\*CO + 0.200\*FORM + 0.010\*XO2N + 0.210\*RO2 + 0.200\*PAR + 0.100\*OH | 1.00E-11e -280.00/T | 3.9097E-12 | | R142 | OLE + OH ----> 0.781\*FORM + 0.488\*ALD2 + 0.488\*ALDX + 0.976\*XO2H + 0.195\*XO2 + 0.024\*XO2N + 1.195\*RO2 - 0.730\*PAR | ko= 8.00E-27e 0.0/T(T/300) -3.50
ki = 3.00E-11e 0.0/T(T/300) -1.00
n= 1.13;F= 0.50 | 2.8547E-11 | | R143 | OLE + O3 ----> 0.295\*ALD2 + 0.555\*FORM + 0.270\*ALDX + 0.150\*XO2H + 0.150\*RO2 + 0.334\*OH + 0.080\*HO2 + 0.378\*CO + 0.075\*GLY + 0.075\*MGLY + 0.090\*FACD + 0.130\*AACD + 0.040\*H2O2 - 0.790\*PAR | 5.50E-15e -1880.00/T | 1.0044E-17 | | R144 | OLE + NO3 ----> 0.500\*NO2 + 0.500\*NTR1 + 0.480\*XO2 + 0.480\*XO2H + 0.040\*XO2N + RO2 + 0.500\*FORM + 0.250\*ALD2 + 0.375\*ALDX - PAR | 4.60E-13e -1155.00/T | 9.5576E-15 | | R145 | IOLE + O ----> 1.240\*ALD2 + 0.660\*ALDX + 0.100\*XO2H + 0.100\*RO2 + 0.100\*CO + 0.100\*PAR | 2.3000E-11 | 2.3000E-11 | | R146 | IOLE + OH ----> 1.300\*ALD2 + 0.700\*ALDX + XO2H + RO2 | 1.05E-11e 519.00/T | 5.9866E-11 | | R147 | IOLE + O3 ----> 0.732\*ALD2 + 0.442\*ALDX + 0.128\*FORM + 0.245\*CO + 0.500\*OH + 0.300\*XO2H + 0.300\*RO2 + 0.240\*GLY + 0.060\*MGLY + 0.290\*PAR + 0.080\*AACD + 0.080\*H2O2 | 4.70E-15e -1013.00/T | 1.5723E-16 | | R148 | IOLE + NO3 ----> 0.500\*NO2 + 0.500\*NTR1 + 0.480\*XO2 + 0.480\*XO2H + 0.040\*XO2N + RO2 + 0.500\*ALD2 + 0.625\*ALDX + PAR | 3.7000E-13 | 3.7000E-13 | | R149 | ISOP + OH ----> ISO2 + RO2 + ISOPRXN | 2.70E-11e 390.00/T | 9.9873E-11 | | R150 | ISOP + O ----> 0.750\*ISPD + 0.500\*FORM + 0.250\*XO2 + 0.250\*RO2 + 0.250\*HO2 + 0.250\*CXO3 + 0.250\*PAR | 3.0000E-11 | 3.0000E-11 | | R151 | ISO2 + NO ----> 0.100\*INTR + 0.900\*NO2 + 0.673\*FORM + 0.900\*ISPD + 0.818\*HO2 + 0.082\*XO2H + 0.082\*RO2 | 2.39E-12e 365.00/T | 8.1296E-12 | | R152 | ISO2 + HO2 ----> 0.880\*ISPX + 0.120\*OH + 0.120\*HO2 + 0.120\*FORM + 0.120\*ISPD | 7.43E-13e 700.00/T | 7.7737E-12 | | R153 | ISO2 + C2O3 ----> 0.598\*FORM + ISPD + 0.728\*HO2 + 0.072\*XO2H + 0.800\*MEO2 + 0.200\*AACD + 0.872\*RO2 | R58 | 1.5924E-117| | R154 | ISO2 + RO2 ----> 0.598\*FORM + ISPD + 0.728\*HO2 + 0.072\*XO2H + 1.072\*RO2 | R70 | 3.4772E-137| | R155 | ISO2 ----> HO2 + HPLD | 3.30E+09e -8300.00/T | 2.6821E-03 | | R156 | ISOP + O3 ----> 0.600\*FORM + 0.650\*ISPD + 0.150\*ALDX + 0.200\*CXO3 + 0.350\*PAR + 0.266\*OH + 0.200\*XO2 + 0.200\*RO2 + 0.066\*HO2 + 0.066\*CO | 1.03E-14e -1995.00/T | 1.2790E-17 | | R157 | ISOP + NO3 ----> 0.350\*NO2 + 0.650\*NTR2 + 0.640\*XO2H + 0.330\*XO2 + 0.030\*XO2N + RO2 + 0.350\*FORM + 0.350\*ISPD + ISOPRXN | 3.03E-12e -448.00/T | 6.7433E-13 | | R158 | ISPD + OH ----> 0.022\*XO2N + 0.521\*XO2 + 0.115\*MGLY + 0.115\*MEO2 + 0.269\*GLYD + 0.269\*C2O3 + 0.457\*OPO3 + 0.117\*PAR + 0.137\*ACET + 0.137\*CO + 0.137\*HO2 + 0.658\*RO2 | 5.58E-12e 511.00/T | 3.0972E-11 | | R159 | ISPD + O3 ----> 0.040\*ALD2 + 0.231\*FORM + 0.531\*MGLY + 0.170\*GLY + 0.170\*ACET + 0.543\*CO + 0.461\*OH + 0.150\*FACD + 0.398\*HO2 + 0.143\*C2O3 | 3.88E-15e -1770.00/T | 1.0247E-17 | | R160 | ISPD + NO3 ----> 0.717\*HNO3 + 0.142\*NTR2 + 0.142\*NO2 + 0.142\*XO2 + 0.142\*XO2H + 0.113\*GLYD + 0.113\*MGLY + 0.717\*PAR + 0.717\*CXO3 + 0.284\*RO2 | 4.10E-12e -1860.00/T | 8.0066E-15 | | R161 | ISPD ----> 0.760\*HO2 + 0.340\*XO2H + 0.160\*XO2 + 0.340\*MEO2 + 0.208\*C2O3 + 0.260\*FORM + 0.240\*OLE + 0.240\*PAR + 0.170\*ACET + 0.128\*GLYD + 0.840\*RO2 | ISPD | Not Available1 | | R162 | ISPX + OH ----> 0.904\*EPOX + 0.933\*OH + 0.067\*ISO2 + 0.067\*RO2 + 0.029\*IOLE + 0.029\*ALDX | 2.23E-11e 372.00/T | 7.7655E-11 | | R163 | HPLD ----> OH + ISPD | HPALD | Not Available1 | | R164 | HPLD + NO3 ----> HNO3 + ISPD | 6.00E-12e -1860.00/T | 1.1717E-14 | | R165 | EPOX + OH ----> EPX2 + RO2 | 5.78E-11e -400.00/T | 1.5110E-11 | | R166 | EPX2 + HO2 ----> 0.275\*GLYD + 0.275\*GLY + 0.275\*MGLY + 1.125\*OH + 0.825\*HO2 + 0.375\*FORM + 0.074\*FACD + 0.251\*CO + 2.175\*PAR | 7.43E-13e 700.00/T | 7.7737E-12 | | R167 | EPX2 + NO ----> 0.275\*GLYD + 0.275\*GLY + 0.275\*MGLY + 0.125\*OH + 0.825\*HO2 + 0.375\*FORM + NO2 + 0.251\*CO + 2.175\*PAR | 2.39E-12e 365.00/T | 8.1296E-12 | | R168 | EPX2 + C2O3 ----> 0.220\*GLYD + 0.220\*GLY + 0.220\*MGLY + 0.100\*OH + 0.660\*HO2 + 0.300\*FORM + 0.200\*CO + 1.740\*PAR + 0.800\*MEO2 + 0.200\*AACD + 0.800\*RO2 | R58 | 1.5924E-117| | R169 | EPX2 + RO2 ----> 0.275\*GLYD + 0.275\*GLY + 0.275\*MGLY + 0.125\*OH + 0.825\*HO2 + 0.375\*FORM + 0.251\*CO + 2.175\*PAR + RO2 | R70 | 3.4772E-137| | R170 | INTR + OH ----> 0.630\*XO2 + 0.370\*XO2H + RO2 + 0.444\*NO2 + 0.185\*NO3 + 0.104\*INTR + 0.592\*FORM + 0.331\*GLYD + 0.185\*FACD + 2.700\*PAR + 0.098\*OLE + 0.078\*ALDX + 0.266\*NTR2 | 3.1000E-11 | 3.1000E-11 | | R171 | TERP + O ----> 0.150\*ALDX + 5.120\*PAR + TRPRXN | 3.6000E-11 | 3.6000E-11 | | R172 | TERP + OH ----> 0.750\*XO2H + 0.500\*XO2 + 0.250\*XO2N + 1.500\*RO2 + 0.280\*FORM + 1.660\*PAR + 0.470\*ALDX + TRPRXN | 1.50E-11e 449.00/T | 6.7627E-11 | | R173 | TERP + O3 ----> 0.570\*OH + 0.070\*XO2H + 0.690\*XO2 + 0.180\*XO2N + 0.940\*RO2 + 0.240\*FORM + 0.001\*CO + 7.000\*PAR + 0.210\*ALDX + 0.390\*CXO3 + TRPRXN | 1.20E-15e -821.00/T | 7.6434E-17 | | R174 | TERP + NO3 ----> 0.470\*NO2 + 0.280\*XO2H + 0.750\*XO2 + 0.250\*XO2N + 1.280\*RO2 + 0.470\*ALDX + 0.530\*NTR2 + TERPNRO2 | 3.70E-12e 175.00/T | 6.6544E-12 | | R171a | APIN + O ----> 0.150\*ALDX + 5.120\*PAR + TRPRXN | 3.6000E-11 | 3.6000E-11 | | R172a | APIN + OH ----> 0.750\*XO2H + 0.500\*XO2 + 0.250\*XO2N + 1.500\*RO2 + 0.280\*FORM + 1.660\*PAR + 0.470\*ALDX + TRPRXN | 1.50E-11e 449.00/T | 6.7627E-11 | | R173a | APIN + O3 ----> 0.570\*OH + 0.070\*XO2H + 0.690\*XO2 + 0.180\*XO2N + 0.940\*RO2 + 0.240\*FORM + 0.001\*CO + 7.000\*PAR + 0.210\*ALDX + 0.390\*CXO3 + TRPRXN | 1.20E-15e -821.00/T | 7.6434E-17 | | R174a | APIN + NO3 ----> 0.470\*NO2 + 0.280\*XO2H + 0.750\*XO2 + 0.250\*XO2N + 1.280\*RO2 + 0.470\*ALDX + 0.530\*NTR2 | 3.70E-12e 175.00/T | 6.6544E-12 | | R175 | BENZENE + OH ----> 0.530\*CRES + 0.352\*BZO2 + 0.352\*RO2 + 0.118\*OPEN + 0.118\*OH + 0.530\*HO2 + BENZRO2 | 2.30E-12e -190.00/T | 1.2161E-12 | | R176 | BZO2 + NO ----> 0.918\*NO2 + 0.082\*NTR2 + 0.918\*GLY + 0.918\*OPEN + 0.918\*HO2 | 2.70E-12e 360.00/T | 9.0313E-12 | | R177 | BZO2 + C2O3 ----> GLY + OPEN + HO2 + MEO2 + RO2 | R58 | 1.5924E-117| | R178 | BZO2 + HO2 ----> | 1.90E-13e 1300.00/T | 1.4872E-11 | | R179 | BZO2 + RO2 ----> GLY + OPEN + HO2 + RO2 | R70 | 3.4772E-137| | R180 | TOL + OH ----> 0.180\*CRES + 0.650\*TO2 + 0.720\*RO2 + 0.100\*OPEN + 0.100\*OH + 0.070\*XO2H + 0.180\*HO2 + TOLRO2 | 1.80E-12e 340.00/T | 5.6302E-12 | | R181 | TO2 + NO ----> 0.860\*NO2 + 0.140\*NTR2 + 0.417\*GLY + 0.443\*MGLY + 0.660\*OPEN + 0.200\*XOPN + 0.860\*HO2 | 2.70E-12e 360.00/T | 9.0313E-12 | | R182 | TO2 + C2O3 ----> 0.480\*GLY + 0.520\*MGLY + 0.770\*OPEN + 0.230\*XOPN + HO2 + MEO2 + RO2 | R58 | 1.5924E-117| | R183 | TO2 + HO2 ----> | 1.90E-13e 1300.00/T | 1.4872E-11 | | R184 | TO2 + RO2 ----> 0.480\*GLY + 0.520\*MGLY + 0.770\*OPEN + 0.230\*XOPN + HO2 + RO2 | R70 | 3.4772E-137| | R185 | XYLMN + OH ----> 0.155\*CRES + 0.544\*XLO2 + 0.602\*RO2 + 0.244\*XOPN + 0.244\*OH + 0.058\*XO2H + 0.155\*HO2 + XYLRO2 | 1.8500E-11 | 1.8500E-11 | | R185a | NAPH + OH ----> 0.155\*CRES + 0.544\*XLO2 + 0.602\*RO2 + 0.244\*XOPN + 0.244\*OH + 0.058\*XO2H + 0.155\*HO2 + PAHRO2 | 1.8500E-11 | 1.8500E-11 | | R186 | XLO2 + NO ----> 0.860\*NO2 + 0.140\*NTR2 + 0.221\*GLY + 0.675\*MGLY + 0.300\*OPEN + 0.560\*XOPN + 0.860\*HO2 | 2.70E-12e 360.00/T | 9.0313E-12 | | R187 | XLO2 + HO2 ----> | 1.90E-13e 1300.00/T | 1.4872E-11 | | R188 | XLO2 + C2O3 ----> 0.260\*GLY + 0.770\*MGLY + 0.350\*OPEN + 0.650\*XOPN + HO2 + MEO2 + RO2 | R58 | 1.5924E-117| | R189 | XLO2 + RO2 ----> 0.260\*GLY + 0.770\*MGLY + 0.350\*OPEN + 0.650\*XOPN + HO2 + RO2 | R70 | 3.4772E-137| | R190 | CRES + OH ----> 0.025\*GLY + 0.025\*OPEN + HO2 + 0.200\*CRO + 0.732\*CAT1 + 0.020\*XO2N + 0.020\*RO2 | 1.70E-12e 950.00/T | 4.1138E-11 | | R191 | CRES + NO3 ----> 0.300\*CRO + HNO3 + 0.480\*XO2 + 0.120\*XO2H + 0.240\*GLY + 0.240\*MGLY + 0.480\*OPO3 + 0.100\*XO2N + 0.700\*RO2 | 1.4000E-11 | 1.4000E-11 | | R192 | CRO + NO2 ----> CRON | 2.1000E-12 | 2.1000E-12 | | R193 | CRO + HO2 ----> CRES | 5.5000E-12 | 5.5000E-12 | | R194 | CRON + OH ----> NTR2 + 0.500\*CRO | 1.5300E-12 | 1.5300E-12 | | R195 | CRON + NO3 ----> NTR2 + 0.500\*CRO + HNO3 | 3.8000E-12 | 3.8000E-12 | | R196 | CRON ----> HONO + HO2 + FORM + OPEN | NTR_IUPAC10 | Not Available1 | | R197 | XOPN ----> 0.400\*GLY + XO2H + 0.700\*HO2 + 0.700\*CO + 0.300\*C2O3 | 5.0000E-02\*NO2_IUPAC10 | Not Available1 | | R198 | XOPN + OH ----> MGLY + 0.400\*GLY + 2.000\*XO2H + 2.000\*RO2 | 9.0000E-11 | 9.0000E-11 | | R199 | XOPN + O3 ----> 1.200\*MGLY + 0.500\*OH + 0.600\*C2O3 + 0.100\*ALD2 + 0.500\*CO + 0.300\*XO2H + 0.300\*RO2 | 1.08E-16e -500.00/T | 2.0189E-17 | | R200 | XOPN + NO3 ----> 0.500\*NO2 + 0.500\*NTR2 + 0.450\*XO2H + 0.450\*XO2 + 0.100\*XO2N + RO2 + 0.250\*OPEN + 0.250\*MGLY | 3.0000E-12 | 3.0000E-12 | | R201 | OPEN ----> OPO3 + HO2 + CO | 2.8000E-02\*NO2_IUPAC10 | Not Available1 | | R202 | OPEN + OH ----> 0.600\*OPO3 + 0.400\*XO2H + 0.400\*RO2 + 0.400\*GLY | 4.4000E-11 | 4.4000E-11 | | R203 | OPEN + O3 ----> 1.400\*GLY + 0.240\*MGLY + 0.500\*OH + 0.120\*C2O3 + 0.080\*FORM + 0.020\*ALD2 + 1.980\*CO + 0.560\*HO2 | 5.40E-17e -500.00/T | 1.0094E-17 | | R204 | OPEN + NO3 ----> OPO3 + HNO3 | 3.8000E-12 | 3.8000E-12 | | R205 | CAT1 + OH ----> 0.140\*FORM + 0.200\*HO2 + 0.500\*CRO | 5.0000E-11 | 5.0000E-11 | | R206 | CAT1 + NO3 ----> CRO + HNO3 | 1.7000E-10 | 1.7000E-10 | | R207 | OPO3 + NO ----> NO2 + 0.500\*GLY + 0.500\*CO + 0.800\*HO2 + 0.200\*CXO3 | R61 | 2.0957E-117| | R208 | OPO3 + NO2 ----> OPAN | R62 | 8.2883E-127| | R209 | OPAN ----> OPO3 + NO2 | R63 | 3.7022E-047| | R210 | OPO3 + HO2 ----> 0.370\*PACD + 0.130\*AACD + 0.130\*O3 + 0.500\*OH + 0.500\*MEO2 + 0.500\*RO2 | R57 | 2.1967E-117| | R211 | OPO3 + C2O3 ----> MEO2 + XO2 + ALDX + 2.000\*RO2 | R59 | 1.5514E-117| | R212 | OPO3 + RO2 ----> 0.800\*XO2H + 0.800\*ALDX + 1.800\*RO2 + 0.200\*AACD | R58 | 1.5924E-117| | R213 | OPAN + OH ----> 0.500\*NO2 + 0.500\*GLY + CO + 0.500\*NTR2 | 3.6000E-11 | 3.6000E-11 | | R214 | PANX + OH ----> ALD2 + NO2 | 3.0000E-12 | 3.0000E-12 | | R216 | ECH4 + OH ----> MEO2 + RO2 | 1.85E-12e -1690.00/T | 6.3895E-15 | | R217 | XPRP ----> XO2N + RO2 | ko= 2.37E-21e 0.0/T(T/300) 0.00
ki = 4.07E-01e 0.0/T(T/300) -8.00
n= 1.00;F= 0.41 | 3.0828E-02 | | R218 | XPRP ----> 0.732\*ACET + 0.268\*ALDX + 0.268\*PAR + XO2H + RO2 | 1.0000E+00 | 1.0000E+00 | | R219 | XPAR ----> XO2N + RO2 | ko= 4.81E-20e 0.0/T(T/300) 0.00
ki = 4.07E-01e 0.0/T(T/300) -8.00
n= 1.00;F= 0.41 | 1.4904E-01 | | R220 | XPAR ----> 0.126\*ALDX + 0.874\*ROR + 0.126\*XO2H + 0.874\*XO2 + RO2 - 0.126\*PAR | 1.0000E+00 | 1.0000E+00 | | R221 | NO2 + OH + H2O ----> HNO3 | 1.1000E-30 | 1.1000E-30 | | CL1 | CL2 ----> 2.000\*CL | CL2_IUPAC04 | Not Available1 | | CL2 | HOCL ----> OH + CL | HOCL_IUPAC04 | Not Available1 | | CL3 | CL + O3 ----> CLO | 2.30E-11e -200.00/T | 1.1760E-11 | | CL4 | CLO + CLO ----> 0.300\*CL2 + 1.400\*CL | 1.6300E-14 | 1.6300E-14 | | CL5 | CLO + NO ----> CL + NO2 | 6.40E-12e 290.00/T | 1.6928E-11 | | CL6 | CLO + HO2 ----> HOCL | 2.20E-12e 340.00/T | 6.8814E-12 | | CL7 | CLO + MEO2 ----> CL + FORM + HO2 | 3.20E-12e -110.00/T | 2.2127E-12 | | CL8 | OH + FMCL ----> CL + CO | 5.0000E-13 | 5.0000E-13 | | CL9 | FMCL ----> CL + CO + HO2 | FMCL_IUPAC04 | Not Available1 | | CL10 | CL + CH4 ----> HCL + MEO2 + RO2 | 6.60E-12e -1240.00/T | 1.0311E-13 | | CL11 | CL + PAR ----> HCL + XPAR | 5.0000E-11 | 5.0000E-11 | | CL12 | CL + PRPA ----> HCL + ACET + 0.970\*XO2H + 0.030\*XO2N + RO2 | 1.4000E-10 | 1.4000E-10 | | CL13 | CL + ETHA ----> HCL + 0.991\*ALD2 + 0.991\*XO2H + 0.009\*XO2N + RO2 | 8.30E-11e -100.00/T | 5.9349E-11 | | CL14 | CL + ETH ----> FMCL + 2.000\*XO2 + HO2 + FORM | 1.0700E-10 | 1.0700E-10 | | CL15 | CL + OLE ----> FMCL + 0.330\*ALD2 + 0.670\*ALDX + 2.000\*XO2 + HO2 - PAR | 2.5000E-10 | 2.5000E-10 | | CL16 | CL + IOLE ----> 0.300\*HCL + 0.700\*FMCL + 0.450\*ALD2 + 0.550\*ALDX + 0.300\*OLE + 0.300\*PAR + 1.700\*XO2 + HO2 | 3.5000E-10 | 3.5000E-10 | | CL17 | CL + ISOP ----> FMCL + ISPD + 0.960\*XO2H + 0.040\*XO2N + RO2 | 4.3000E-10 | 4.3000E-10 | | CL18 | CL + FORM ----> HCL + HO2 + CO | 8.20E-11e -34.00/T | 7.3162E-11 | | CL19 | CL + ALD2 ----> HCL + C2O3 | 7.9000E-11 | 7.9000E-11 | | CL20 | CL + ALDX ----> HCL + CXO3 | 1.3000E-10 | 1.3000E-10 | | CL21 | CL + MEOH ----> HCL + HO2 + FORM | 5.5000E-11 | 5.5000E-11 | | CL22 | CL + ETOH ----> HCL + HO2 + ALD2 | 8.20E-11e 45.00/T | 9.5359E-11 | | CL23 | HCL + OH ----> CL | 6.58E-13e 58.00/T(T/300) 1.16 | 7.9359E-13 | | CL24 | CL + TOL ----> HCL + 0.180\*CRES + 0.650\*TO2 + 0.720\*RO2 + 0.100\*OPEN + 0.100\*OH + 0.070\*XO2H + 0.180\*HO2 + TOLRO2 | 6.1000E-11 | 6.1000E-11 | | CL25 | CL + XYLMN ----> HCL + 0.155\*CRES + 0.544\*XLO2 + 0.602\*RO2 + 0.244\*XOPN + 0.244\*OH + 0.058\*XO2H + 0.155\*HO2 + XYLRO2 | 1.2000E-10 | 1.2000E-10 | | CL26 | CL + NAPH ----> HCL + 0.155\*CRES + 0.544\*XLO2 + 0.602\*RO2 + 0.244\*XOPN + 0.244\*OH + 0.058\*XO2H + 0.155\*HO2 + PAHRO2 | 1.2000E-10 | 1.2000E-10 | | CL27 | CLNO2 ----> CL + NO2 | CLNO2_IUPAC13 | Not Available1 | | CL28 | CLO + NO2 ----> CLNO3 | ko= 1.80E-31e 0.0/T(T/300) -3.40
ki = 1.50E-11e 0.0/T(T/300) -1.90
n= 1.00;F= 0.60 | 2.3359E-12 | | CL30 | CLNO3 ----> CLO + NO2 | CLONO2_1 | Not Available1 | | CL31 | CLNO3 ----> CL + NO3 | CLONO2_2 | Not Available1 | | HET_CLNO3_WAI | CLNO3 ----> HOCL + HNO3 | HETERO_CLNO3_WAI | Not Available2 | | HET_CLNO3_WAJ | CLNO3 ----> HOCL + HNO3 | HETERO_CLNO3_WAJ | Not Available2 | | SA01 | TOLRO2 + NO ----> NO + 0.016\*SVAVB2 + 0.051\*SVAVB3 + 0.047\*SVAVB4 | 2.70E-12e 360.00/T | 9.0313E-12 | | SA02 | TOLRO2 + HO2 ----> HO2 + 0.140\*SVAVB1 | 1.90E-13e 1300.00/T | 1.4872E-11 | | SA03 | XYLRO2 + NO ----> NO + 0.015\*SVAVB2 + 0.023\*SVAVB3 + 0.060\*SVAVB4 | 2.70E-12e 360.00/T | 9.0313E-12 | | SA04 | XYLRO2 + HO2 ----> HO2 + 0.193\*SVAVB1 | 1.90E-13e 1300.00/T | 1.4872E-11 | | SA06 | BENZRO2 + NO ----> NO + 0.034\*SVAVB2 + 0.392\*SVAVB4 | 2.70E-12e 360.00/T | 9.0313E-12 | | SA07 | BENZRO2 + HO2 ----> HO2 + 0.146\*SVAVB1 | 1.90E-13e 1300.00/T | 1.4872E-11 | | SA08 | SESQ + O3 ----> O3 + SESQRXN | 1.1600E-14 | 1.1600E-14 | | SA09 | SESQ + OH ----> OH + SESQRXN | 1.9700E-10 | 1.9700E-10 | | SA10 | SESQ + NO3 ----> NO3 + SESQRXN | 1.9000E-11 | 1.9000E-11 | | SA11 | PAHRO2 + NO ----> NO + 0.028\*SVAVB2 + 0.225\*SVAVB3 + 0.191\*SVAVB4 | 2.70E-12e 360.00/T | 9.0313E-12 | | SA12 | PAHRO2 + HO2 ----> HO2 + 0.473\*SVAVB1 | 1.90E-13e 1300.00/T | 1.4872E-11 | | SA13 | SOAALK + OH ----> OH + 0.006\*SVAVB2 + 0.052\*SVAVB3 + 0.081\*SVAVB4 | 2.70E-12e 374.00/T | 9.4655E-12 | | HET_NTR2 | NTR2 ----> HNO3 | 1.4000E+00\*HETERO_NTR2 | Not Available2 | | HET_N2O5IJ | N2O5 ----> HNO3 + H2NO3PIJ | HETERO_N2O5IJ | Not Available2 | | HET_N2O5K | N2O5 ----> HNO3 + H2NO3PK | HETERO_N2O5K | Not Available2 | | HET_H2NO3PIJA | H2NO3PIJ ----> HNO3 | HETERO_H2NO3PAIJ | Not Available2 | | HET_H2NO3PKA | H2NO3PK ----> HNO3 | HETERO_H2NO3PAK | Not Available2 | | HET_H2NO3PIB | H2NO3PIJ + ACLI ----> CLNO2 | HETERO_H2NO3PBIJ | Not Available2 | | HET_H2NO3PJB | H2NO3PIJ + ACLJ ----> CLNO2 | HETERO_H2NO3PBIJ | Not Available2 | | HET_H2NO3PKB | H2NO3PK + ACLK ----> CLNO2 | HETERO_H2NO3PBK | Not Available2 | | HET_N02 | NO2 ----> 0.500\*HONO + 0.500\*HNO3 | HETERO_NO2 | Not Available2 | | HET_IEPOX | EPOX ----> IEPOXP | HETERO_IEPOX | Not Available2 | | HET_IEPOXOS | IEPOXP + ASO4J ----> AISO3J | HETERO_IEPOXOS | Not Available2 | | HET_TETROL | IEPOXP ----> AISO3J | HETERO_TETROL | Not Available2 | | HET_GLY | GLY ----> AGLYJ | HETERO_GLY | Not Available2 | | HET_MGLY | MGLY ----> AGLYJ | HETERO_MGLY | Not Available2 | | BL18a | TERPNRO2 + NO ----> NO + 0.688\*MTNO3 | 2.60E-12e 380.00/T | 9.3002E-12 | | BL18b | TERPNRO2 + HO2 ----> HO2 + MTNO3 | 2.65E-13e 1300.00/T | 2.0743E-11 | | BL18c | TERPNRO2 + NO3 ----> NO3 + 0.422\*MTNO3 | 2.3000E-12 | 2.3000E-12 | | BL18d | TERPNRO2 + RO2 ----> RO2 + 0.711\*MTNO3 | 3.5000E-14 | 3.5000E-14 | | CP07mtp | MTNO3 + CL ----> CL + 0.370\*MTNO3 | 1.9200E-10 | 1.9200E-10 | | BP70mtp | MTNO3 + OH ----> OH + 0.240\*MTNO3 | 7.2000E-12 | 7.2000E-12 | | BP71mtp | MTNO3 ----> | IC3ONO2 | Not Available1 | | HYD_MT | AMTNO3J ----> AMTHYDJ | 9.2590E-05 | 9.2590E-05 | | OLIG_AROMATIC1 | AAVB2J ----> 0.907\*AOLGAJ | 9.4882E-06 | 9.4882E-06 | | OLIG_AROMATIC2 | AAVB3J ----> 0.925\*AOLGAJ | 9.4882E-06 | 9.4882E-06 | | OLIG_AROMATIC3 | AAVB4J ----> 0.943\*AOLGAJ | 9.4882E-06 | 9.4882E-06 | | OLIG_ISOPRENE1 | AISO1J ----> 0.500\*AOLGBJ | 9.4882E-06 | 9.4882E-06 | | OLIG_ISOPRENE2 | AISO2J ----> 0.500\*AOLGBJ | 9.4882E-06 | 9.4882E-06 | | OLIG_SESQT1 | ASQTJ ----> 1.500\*AOLGBJ | 9.4882E-06 | 9.4882E-06 | | RPOAGEPI | APOCI + OH ----> 1.250\*APNCOMI + APOCI + OH | 2.5000E-12 | 2.5000E-12 | | RPOAGELI | APNCOMI + OH ----> OH | HETERO_PNCOMLI | Not Available2 | | RPOAGEPJ | APOCJ + OH ----> 1.250\*APNCOMJ + APOCJ + OH | 2.5000E-12 | 2.5000E-12 | | RPOAGELJ | APNCOMJ + OH ----> OH | HETERO_PNCOMLJ | Not Available2 | | PCSOA | PCVOC + OH ----> OH + PCSOARXN | 1.2500E-11 | 1.2500E-11 | | POA_AGE1 | VLVPO1 + OH ----> OH + 0.486\*VLVPO1 + 0.006\*VSVPO1 + 0.003\*VSVPO2 + 0.003\*VSVPO3 + 0.002\*VIVPO1 + 0.294\*VLVOO1 + 0.202\*VLVOO2 + 0.002\*VSVOO2 + 0.002\*VSVOO3 | 4.0000E-11 | 4.0000E-11 | | POA_AGE2 | VSVPO1 + OH ----> OH + 0.300\*VLVPO1 + 0.286\*VSVPO1 + 0.004\*VSVPO2 + 0.004\*VSVPO3 + 0.224\*VLVOO1 + 0.182\*VLVOO2 | 4.0000E-11 | 4.0000E-11 | | POA_AGE3 | VSVPO2 + OH ----> OH + 0.386\*VLVPO1 + 0.095\*VSVPO1 + 0.137\*VSVPO2 + 0.001\*VSVPO3 + 0.205\*VLVOO1 + 0.176\*VLVOO2 | 4.0000E-11 | 4.0000E-11 | | POA_AGE4 | VSVPO3 + OH ----> OH + 0.218\*VLVPO1 + 0.306\*VSVPO1 + 0.015\*VSVPO2 + 0.104\*VSVPO3 + 0.189\*VLVOO1 + 0.167\*VLVOO2 | 4.0000E-11 | 4.0000E-11 | | POA_AGE5 | VIVPO1 + OH ----> OH + 0.241\*VLVPO1 + 0.209\*VSVPO1 + 0.300\*VSVPO2 + 0.203\*VLVOO1 + 0.047\*VLVOO2 | 4.0000E-11 | 4.0000E-11 | | POA_AGE6 | VLVOO1 + OH ----> OH + 0.666\*VLVOO1 + 0.014\*VLVOO2 + 0.012\*VSVOO1 + 0.124\*VSVOO2 + 0.183\*VSVOO3 | 4.0000E-11 | 4.0000E-11 | | POA_AGE7 | VLVOO2 + OH ----> OH + 0.286\*VLVOO1 + 0.393\*VLVOO2 + 0.014\*VSVOO1 + 0.103\*VSVOO2 + 0.204\*VSVOO3 | 4.0000E-11 | 4.0000E-11 | | POA_AGE8 | VSVOO1 + OH ----> OH + 0.330\*VLVOO1 + 0.227\*VLVOO2 + 0.261\*VSVOO1 + 0.070\*VSVOO2 + 0.112\*VSVOO3 | 4.0000E-11 | 4.0000E-11 | | POA_AGE9 | VSVOO2 + OH ----> OH + 0.344\*VLVOO1 + 0.275\*VLVOO2 + 0.049\*VSVOO1 + 0.258\*VSVOO2 + 0.074\*VSVOO3 | 4.0000E-11 | 4.0000E-11 | | POA_AGE10 | VSVOO3 + OH ----> OH + 0.389\*VLVOO1 + 0.242\*VLVOO2 + 0.064\*VSVOO1 + 0.038\*VSVOO2 + 0.267\*VSVOO3 | 4.0000E-11 | 4.0000E-11 | | T01 | FORM_PRIMARY + OH ----> OH | 5.40E-12e 135.00/T | 8.4926E-12 | | T02 | FORM_PRIMARY + NO3 ----> NO3 | 5.5000E-16 | 5.5000E-16 | | T03 | FORM_PRIMARY + O ----> O | 3.40E-11e -1600.00/T | 1.5881E-13 | | T04 | FORM_PRIMARY ----> | FORM_R_IUPAC13 | Not Available1 | | T05 | FORM_PRIMARY ----> | FORM_M_IUPAC13 | Not Available1 | | TCL1 | FORM_PRIMARY + CL ----> CL | 8.20E-11e -34.00/T | 7.3162E-11 | | T06 | ALD2_PRIMARY + OH ----> OH | 4.70E-12e 345.00/T | 1.4950E-11 | | T07 | ALD2_PRIMARY + NO3 ----> NO3 | 1.40E-12e -1860.00/T | 2.7340E-15 | | T08 | ALD2_PRIMARY + O ----> O | 1.80E-11e -1100.00/T | 4.4976E-13 | | T09 | ALD2_PRIMARY ----> | ALD2_R_IUPAC13 | Not Available1 | | TCL2 | ALD2_PRIMARY + CL ----> CL | 7.9000E-11 | 7.9000E-11 | | T10 | BUTADIENE13 + OH ----> OH + 0.580\*ACROLEIN | 1.48E-11e 448.00/T | 6.6502E-11 | | T11 | BUTADIENE13 + O3 ----> O3 + 0.520\*ACROLEIN | 1.34E-14e -2283.00/T | 6.3331E-18 | | T12 | BUTADIENE13 + NO3 ----> NO3 + 0.045\*ACROLEIN | 1.7900E-13 | 1.7900E-13 | | TCL3 | BUTADIENE13 + CL ----> CL + 0.580\*ACROLEIN | 2.5100E-10 | 2.5100E-10 | | T13 | ACRO_PRIMARY + OH ----> OH | 2.0000E-11 | 2.0000E-11 | | T14 | ACRO_PRIMARY + O3 ----> O3 | 2.6100E-19 | 2.6100E-19 | | T15 | ACRO_PRIMARY + NO3 ----> NO3 | 1.1500E-15 | 1.1500E-15 | | T16 | ACRO_PRIMARY ----> | ACRO_09 | Not Available1 | | TCL4 | ACRO_PRIMARY + CL ----> CL | 2.3700E-10 | 2.3700E-10 | | T17 | ACROLEIN + OH ----> OH | 2.0000E-11 | 2.0000E-11 | | T18 | ACROLEIN + O3 ----> O3 | 2.6100E-19 | 2.6100E-19 | | T19 | ACROLEIN + NO3 ----> NO3 | 1.1500E-15 | 1.1500E-15 | | T20 | ACROLEIN ----> | ACRO_09 | Not Available1 | | TCL5 | ACROLEIN + CL ----> CL | 2.3700E-10 | 2.3700E-10 | | T21 | TOLU + OH ----> OH | 1.80E-12e 340.00/T | 5.6302E-12 | | TCL6 | TOLU + CL ----> CL | 6.1000E-11 | 6.1000E-11 | | HG1 | HG + O3 ----> 0.500\*HGIIAER + 0.500\*HGIIGAS + O3 | 2.11E-18e -1256.50/T | 3.1191E-20 | | HG2 | HG + CL2 ----> HGIIGAS + CL2 | 2.6000E-18 | 2.6000E-18 | | HG3 | HG + H2O2 ----> HGIIGAS + H2O2 | 8.5000E-19 | 8.5000E-19 | | HG4 | HG + OH ----> 0.500\*HGIIAER + 0.500\*HGIIGAS + OH | 7.7000E-14 | 7.7000E-14 | | HG5 | HG + CL + M ----> 0.500\*HG + 0.500\*HGIIGAS + CL | 2.25E-33e 680.00/T | 2.2014E-32 | | BR01 | BR + O3 ----> BRO | 1.60E-11e -780.00/T | 1.1694E-12 | | BR02 | BRO + HO2 ----> HOBR | 4.50E-12e 460.00/T | 2.1051E-11 | | BR03 | BR + HO2 ----> HBR | 4.80E-12e -310.00/T | 1.6970E-12 | | BR04 | HBR + OH ----> BR | 6.70E-12e 155.00/T | 1.1268E-11 | | BR05 | BRO + BRO ----> 2.000\*BR | 1.40E-12e 210.00/T | 2.8315E-12 | | BR06 | BRO + BRO ----> BR2 | 2.90E-14e 840.00/T | 4.8525E-13 | | BR07 | BRO + NO ----> BR + NO2 | 8.80E-12e 260.00/T | 2.1048E-11 | | BR08 | BR + BRNO3 ----> BR2 + NO3 | 4.90E-11e 0.00/T | 4.9000E-11 | | BR09 | BR2 + OH ----> HOBR + BR | 2.10E-11e 240.00/T | 4.6969E-11 | | BR10 | BRO + OH ----> BR + HO2 | 1.70E-11e 250.00/T | 3.9319E-11 | | BR11 | BR + NO3 ----> BRO + NO2 | 1.60E-11e 0.00/T | 1.6000E-11 | | BR12 | BRO + NO2 ----> BRNO3 | ko= 5.20E-31e 0.0/T(T/300) -3.20
ki = 6.90E-12e 0.0/T(T/300) -2.90
n= 1.00;F= 0.60 | 2.8366E-12 | | BR13 | BR + NO2 ----> BRNO2 | ko= 4.20E-31e 0.0/T(T/300) -2.40
ki = 2.70E-11e 0.0/T(T/300) 0.00
n= 1.00;F= 0.60 | 4.8803E-12 | | BR14 | BRO + CLO ----> BR + CL | 4.70E-12e 320.00/T | 1.3747E-11 | | BR15 | FORM + BR ----> HBR + HO2 + CO | 1.70E-11e -800.00/T | 1.1618E-12 | | BR16 | ALD2 + BR ----> HBR + C2O3 | 1.30E-11e -360.00/T | 3.8865E-12 | | BR17 | OLE + BR ----> FMBR + ALD2 + XO2H - PAR + RO2 | 3.6000E-12 | 3.6000E-12 | | BR18 | ISOP + BR ----> FMBR + ISPD + 0.960\*XO2H + 0.040\*XO2N + RO2 | 5.0000E-12 | 5.0000E-12 | | BR19 | FMBR + OH ----> BR + CO | 5.0000E-12 | 5.0000E-12 | | BR20 | BRO + MEO2 ----> 0.800\*HOBR + 0.200\*BR + FORM | 2.70E-14e 1600.00/T | 5.7806E-12 | | BR22 | MB3 + OH ----> 3.000\*BR + CO | 1.00E-12e -388.00/T | 2.7216E-13 | | BR23 | MB2 + OH ----> 2.000\*BR + HO2 + CO | 2.00E-12e -840.00/T | 1.1953E-13 | | BR24 | MB2C + OH ----> 2.000\*BR + CL + CO | 9.00E-13e -420.00/T | 2.2002E-13 | | BR25 | MBC2 + OH ----> BR + 2.000\*CL + CO | 9.40E-13e -510.00/T | 1.6992E-13 | | BR26 | MBC + OH ----> BR + CL + CO + HO2 | 2.10E-12e -880.00/T | 1.0974E-13 | | BR27 | DMS + BRO ----> 0.750\*SO2 + 0.250\*MSA + MEO2 + BR | 1.50E-14e 1000.00/T | 4.2926E-13 | | BR28 | BR2 ----> 2.000\*BR | BR2_IUPAC10 | Not Available1 | | BR29 | HOBR ----> OH + BR | HOBR_IUPAC10 | Not Available1 | | BR30 | BRO ----> BR + O | BRO_IUPAC10 | Not Available1 | | BR31 | BRNO2 ----> BR + NO2 | BRNO2_IUPAC10 | Not Available1 | | BR32 | BRNO3 ----> BRO + NO2 | BRONO2_M_IUPAC10 | Not Available1 | | BR33 | BRNO3 ----> BR + NO3 | BRONO2_R_IUPAC10 | Not Available1 | | BR34 | BRCL ----> BR + CL | BRCL_IUPAC10 | Not Available1 | | BR35 | FMBR ----> BR + CO + HO2 | COHBR_JPL2010 | Not Available1 | | BR36 | MB3 ----> 3.000\*BR + HO2 + CO | MB3_IUPAC10 | Not Available1 | | BR37 | MB2C ----> 2.000\*BR + CL + HO2 + CO | MB2C_BLIDE98 | Not Available1 | | BR38 | MBC2 ----> BR + 2.000\*CL + HO2 + CO | MBC2_BLIDE98 | Not Available1 | | HET_BRNO3_WAI | BRNO3 ----> HOBR + HNO3 | HETERO_BRNO3_WAI | Not Available2 | | HET_BRNO3_WAJ | BRNO3 ----> HOBR + HNO3 | HETERO_BRNO3_WAJ | Not Available2 | | HET_HOBR_CLJ | HOBR + ACLJ ----> BRCL | HETERO_HOBR_CLJ | Not Available2 | | HET_HOBR_BRJ | HOBR + ABRJ ----> BR2 | HETERO_HOBR_BRJ | Not Available2 | | HET_BRNO3_CLJ | BRNO3 + ACLJ ----> BRCL + HNO3 | HETERO_BRNO3_CLJ | Not Available2 | | HET_BRNO3_BRJ | BRNO3 + ABRJ ----> BR2 + HNO3 | HETERO_BRNO3_BRJ | Not Available2 | | HET_BRNO2_CLJ | BRNO2 + ACLJ ----> BRCL + HONO | HETERO_BRNO2_CLJ | Not Available2 | | HET_BRNO2_BRJ | BRNO2 + ABRJ ----> BR2 + HONO | HETERO_BRNO2_BRJ | Not Available2 | | HET_HBR_BRJ | HBR ----> ABRJ | HETERO_HBR_BRJ | Not Available2 | | IO01 | I + O3 ----> IO | 2.10E-11e -830.00/T | 1.2978E-12 | | IO02 | I + HO2 ----> HI | 1.50E-11e -1090.00/T | 3.8758E-13 | | IO03 | I2 + OH ----> HOI + I | 2.1000E-10 | 2.1000E-10 | | IO04 | HI + OH ----> I | 1.60E-11e 440.00/T | 6.9990E-11 | | IO05 | HOI + OH ----> IO | 5.0000E-12 | 5.0000E-12 | | IO06 | IO + HO2 ----> HOI | 1.40E-11e 540.00/T | 8.5646E-11 | | IO07 | IO + NO ----> I + NO2 | 7.15E-12e 300.00/T | 1.9557E-11 | | IO08 | INO + INO ----> I2 + 2.000\*NO | 8.40E-11e -2620.00/T | 1.2821E-14 | | IO09 | INO2 + INO2 ----> I2 + 2.000\*NO2 | 4.70E-13e -1670.00/T | 1.7359E-15 | | IO10 | I2 + NO3 ----> I + INO3 | 1.5000E-12 | 1.5000E-12 | | IO11 | INO3 + I ----> I2 + NO3 | 9.10E-11e -146.00/T | 5.5766E-11 | | IO12 | I + BRO ----> IO + BR | 1.2000E-11 | 1.2000E-11 | | IO13 | IO + BR ----> I + BRO | 2.7000E-11 | 2.7000E-11 | | IO14 | IO + BRO ----> BR + I | 1.50E-11e 510.00/T | 8.2980E-11 | | IO15 | IO + CLO ----> I + CL | 4.70E-12e 280.00/T | 1.2021E-11 | | IO16 | OIO + OIO ----> I2O4 | 1.50E-10e 0.00/T | 1.5000E-10 | | IO17 | OIO + NO ----> IO + NO2 | 1.10E-12e 542.00/T | 6.7746E-12 | | IO18 | IO + IO ----> 0.400\*OIO + 0.400\*I + 0.600\*I2O2 | 5.40E-11e 180.00/T | 9.8761E-11 | | IO19 | IO + OIO ----> I2O3 | 1.50E-10e 0.00/T | 1.5000E-10 | | IO20 | I2O2 ----> OIO + I | 2.50E+14e -9770.00/T | 1.4678E+00 | | IO21 | I2O4 ----> 2.000\*OIO | 3.80E-02e 0.00/T | 3.8000E-02 | | IO22 | INO2 ----> I + NO2 | 9.94E+17e-11859.00/T | 5.2869E+00 | | IO23 | INO3 ----> IO + NO2 | 2.10E+15e-13670.00/T | 2.5708E-05 | | IO24 | I + NO ----> INO | ko= 1.80E-32e 0.0/T(T/300) -1.00
ki = 1.70E-11e 0.0/T(T/300) 0.00
n= 1.00;F= 0.60 | 3.7544E-13 | | IO25 | I + NO2 ----> INO2 | ko= 3.00E-31e 0.0/T(T/300) -1.00
ki = 6.60E-11e 0.0/T(T/300) 0.00
n= 1.00;F= 0.63 | 5.2366E-12 | | IO26 | IO + NO2 ----> INO3 | ko= 7.70E-31e 0.0/T(T/300) -5.00
ki = 1.60E-11e 0.0/T(T/300) 0.00
n= 1.00;F= 0.40 | 3.5438E-12 | | IO27 | CH3I + OH ----> I + FORM | 4.30E-12e -1120.00/T | 1.0047E-13 | | IO28 | DMS + IO ----> 0.750\*SO2 + 0.250\*MSA + MEO2 + I | 3.30E-13e -925.00/T | 1.4830E-14 | | IO29 | I2 ----> 2.000\*I | I2_IUPAC10 | Not Available1 | | IO30 | HOI ----> I + OH | HOI_IUPAC10 | Not Available1 | | IO31 | IO ----> I + O | IO_IUPAC10 | Not Available1 | | IO32 | OIO ----> I | OIO_06 | Not Available1 | | IO33 | INO ----> I + NO | INO_06 | Not Available1 | | IO34 | INO2 ----> I + NO2 | INO2_06 | Not Available1 | | IO35 | INO3 ----> I + NO3 | IONO2_06 | Not Available1 | | IO36 | I2O2 ----> I + OIO | IONO2_06 | Not Available1 | | IO37 | I2O3 ----> IO + OIO | IONO2_06 | Not Available1 | | IO38 | I2O4 ----> 2.000\*OIO | IONO2_06 | Not Available1 | | IO39 | ICL ----> I + CL | ICL_IUPAC10 | Not Available1 | | IO40 | IBR ----> I + BR | IBR_IUPAC10 | Not Available1 | | IO41 | CH3I ----> I + MEO2 | CH3I_IUPAC10 | Not Available1 | | IO42 | MI2 ----> 2.000\*I + FORM | MI2_IUPAC10 | Not Available1 | | IO43 | MIB ----> I + BR + FORM | MIB_IUPAC10 | Not Available1 | | IO44 | MIC ----> I + CL + FORM | MIC_IUPAC10 | Not Available1 | | IO45 | HOI + NO3 ----> IO + HNO3 | 2.70E-12(T/300) -2.66 | 2.7448E-12 | | IO46 | I2O2 ----> 2.000\*IO | 1.00E+12e -9770.00/T | 5.8711E-03 | | HET_I2O2_AI | I2O2 ----> | HETERO_I2O2_AI | Not Available2 | | HET_I2O2_AJ | I2O2 ----> | HETERO_I2O2_AJ | Not Available2 | | HET_I2O3_AI | I2O3 ----> | HETERO_I2O3_AI | Not Available2 | | HET_I2O3_AJ | I2O3 ----> | HETERO_I2O3_AJ | Not Available2 | | HET_I2O4_AI | I2O4 ----> | HETERO_I2O4_AI | Not Available2 | | HET_I2O4_AJ | I2O4 ----> | HETERO_I2O4_AJ | Not Available2 | | HET_INO3_CLJ | INO3 + ACLJ ----> ICL + HNO3 | HETERO_INO3_CLJ | Not Available2 | | HET_INO3_BRJ | INO3 + ABRJ ----> IBR + HNO3 | HETERO_INO3_BRJ | Not Available2 | | HET_INO2_CLJ | INO2 + ACLJ ----> ICL + HONO | HETERO_INO2_CLJ | Not Available2 | | HET_INO2_BRJ | INO2 + ABRJ ----> IBR + HONO | HETERO_INO2_BRJ | Not Available2 | | HET_HOI_CLJ | HOI + ACLJ ----> ICL | HETERO_HOI_CLJ | Not Available2 | | HET_HOI_BRJ | HOI + ABRJ ----> IBR | HETERO_HOI_BRJ | Not Available2 | | DMS1 | DMS + OH ----> SO2 + MEO2 + FORM | 1.12E-11e -250.00/T | 4.8424E-12 | | DMS2 | DMS + OH ----> 0.750\*SO2 + 0.250\*MSA + MEO2 | ko= 1.99E-39e 5270.0/T(T/300) 0.00
ki = 1.26E-10e -340.0/T(T/300) 0.00
n= 1.00;F= 1.00 | 2.1985E-12 | | DMS3 | DMS + NO3 ----> SO2 + HNO3 + MEO2 + FORM | 1.90E-13e 520.00/T | 1.0869E-12 | | DMS4 | DMS + CL ----> 0.860\*SO2 + MEO2 + 0.450\*FORM + 0.450\*HCL + 0.140\*MSA + 0.550\*CLO | 3.40E-13e 2081.00/T | 3.6537E-10 | | DMS5 | DMS + CLO ----> 0.750\*SO2 + 0.250\*MSA + MEO2 + CL | 1.70E-15e 340.00/T | 5.3174E-15 | 0Units molecules/(sec*cm3); Value at 298.15 K; 2.4615E+19 molcules/cm3; 1.00 Atm. 1Photolysis Reaction;depends on radiation and predicted concentrations 2Heteorogeneous Reaction;Depends predicted concentrations 7Rate constant multiple of constant for listed reaction ================================================ FILE: CCTM/src/MECHS/mechanism_information/cracmm1_aq/cracmm1_aq_species_table.md ================================================ Gas (G) and particle (P) species from the namelists. SMILES link to representative structures in the EPA Chemicals Dashboard (if available). Note that for each particulate species in CMAQ, a letter will be appended to the name to designate the size, or mode, of the aerosol being represented: I = Aitken mode, J = Accumulation mode, K = Coarse mode. Prepending of a species with a V or A in CMAQ or the chemical mechanism files indicates the species resides in the gas or particulate phase. Species | Description | Phase | Molecular Weight (g/mol) | Explicit/ Lumped | Representative Structure | SMILES ----- | ----- | ----- | ----- | ----- | ----- | ----- AAL|Aluminum ion|P|27.0|E|Aluminum ion|[\[Al+3\]](https://comptox.epa.gov/dashboard/chemical/details/DTXSID70912343) ACA|Calcium ion|P|40.1|E|Calcium ion|[\[Ca++\]](https://comptox.epa.gov/dashboard/chemical/details/DTXSID7037638) ACD|Acetaldehyde |G|44.0|E|Acetaldehyde|[CC=O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID5039224) ACE|Acetylene |G|26.0|E|Acetylene|[C#C](https://comptox.epa.gov/dashboard/chemical/details/DTXSID6026379) ACL|Chloride ion|P|35.5|E|Chloride ion|[\[Cl-\]](https://comptox.epa.gov/dashboard/chemical/details/DTXSID6043969) ACO3|Acetyl peroxy radicals|G|75.0|E|Acetylperoxy|[CC\(=O\)O\[O\]](https://comptox.epa.gov/dashboard/chemical/details/DTXSID40957943) ACORS|Primary unspeciated coarse PM|P|100.0|L|Coarse PM| ACRO|Acrolein|G|56.1|E|Acrolein|[C=CC=O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID5020023) ACT|Acetone|G|58.0|E|Acetone|[CC\(C\)=O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID8021482) ACTP|Peroxy radicals formed from ACT|G|89.0|E|(2-oxopropyl)peroxy|CC\(=O\)CO\[O\] ADCN|Aromatic-NO3 adduct from PHEN|G|155.0|L|4-oxocyclohex-2-en-1-yl nitrate|OC1=C\[C\]C\(O\[N+\]\(\[O-\]\)=O\)C=C1 ADDC|Aromatic-HO adduct from CSL|G|125.0|L|3-methyl-5-oxocyclohex-3-en-1-yloxidanyl|CC1=CC\(O\)=CC\(\[O\]\)C1 AEC|Elemental carbon|P|12.0|L|Carbon|\[C\] AFE|Iron ion|P|55.8|E|Iron ion|[\[Fe++\]](https://comptox.epa.gov/dashboard/chemical/details/DTXSID4042672) AGLY|SOA from reactive uptake of glyoxal on particles|P|66.4|L|2-(4,5-dihydroxy-1,3-dioxolan-2-yl)-1,3-dioxolane-4,5-diol|OC2OC\(C1OC\(O\)C\(O\)O1\)OC2O AH2O|Water associated with particulate inorganic compounds|P|18.0|E|Water|[O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID6026296) AH3OP|Hydronium ion tracer|P|19.0|E|Hydronium ion|[\[OH3+\]](https://comptox.epa.gov/dashboard/chemical/details/DTXSID20893597) AISO3NOS|Non-sulfated SOA from IEPOX uptake|P|136.2|L|2-methylbutane-1,2,3,4-tetrol|C\(O\)C\(O\)\(C\)C\(O\)CO AISO3OS|Organosulfate SOA from IEPOX uptake|P|216.2|L|(1,3,4-trihydroxy-2-methylbutan-2-yl)oxysulfonic acid|C\(O\)C\(OS\(O\)\(=O\)\(=O\)\)\(C\)C\(O\)CO AK|Potassium ion|P|39.1|E|Potassium ion|[\[K+\]](https://comptox.epa.gov/dashboard/chemical/details/DTXSID9042671) ALD|C3 and higher aldehydes|G|58.0|L|Propanal|[CCC=O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID2021658) AMG|Magnesium ion|P|24.3|E|Magnesium ion|\[Mg++\] AMN|Manganese ion|P|54.9|L|Manganese ions|[\[Mn++\]](https://comptox.epa.gov/dashboard/chemical/details/DTXSID00167687) ANA|Sodium ion|P|23.0|E|Sodium ion|[\[Na+\]](https://comptox.epa.gov/dashboard/chemical/details/DTXSID8037671) ANH4|Ammonium ion|P|18.0|E|Ammonium ion|[\[NH4+\]](https://comptox.epa.gov/dashboard/chemical/details/DTXSID5043974) ANO3|Nitrate ion|P|62.0|E|Nitrate ion|[\[N+\]\(=O\)\(\[O-\]\)\[O-\]](https://comptox.epa.gov/dashboard/chemical/details/DTXSID5024217) AORGC|SOA from cloud processing of GLY and MGLY|P|177.0|L|2-(4,5-dihydroxy-1,3-dioxolan-2-yl)-1,3-dioxolane-4,5-diol|OC2OC\(C1OC\(O\)C\(O\)O1\)OC2O AORGH2O|Water associated with particulate organic compounds|P|18.0|E|Water|[O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID6026296) AOTHR|Primary unspeciated fine PM|P|200.0|L|Unspeciated PM| API|Alpha-pinenes and other cyclic terpenes with one double bond|G|136.4|L|alpha-pinene|[CC1=CCC2CC1C2\(C\)C](https://comptox.epa.gov/dashboard/chemical/details/DTXSID4026501) APINP1|Peroxy radicals from API+NO3 that do not undergo autoxidation|G|230.0|L|[2,6,6-trimethyl-3-(nitrooxy)bicyclo[3.1.1]heptan-2-yl]peroxy|\[O\]OC1\(C\)C\(ON\(=O\)=O\)CC2CC1C2\(C\)C APINP2|Peroxy radicals from API+NO3 that undergo autoxidation|G|230.0|L|[2,6,6-trimethyl-3-(nitrooxy)bicyclo[3.1.1]heptan-2-yl]peroxy|\[O\]OC1\(C\)C\(ON\(=O\)=O\)CC2CC1C2\(C\)C APIP1|Peroxy radicals from API+OH that do not undergo autoxidation|G|185.0|L|{3-hydroxy-2,6,6-trimethylbicyclo[3.1.1]heptan-2-yl}peroxy|\[O\]OC1\(C\)C\(O\)CC2CC1C2\(C\)C APIP2|Peroxy radicals from API+OH that undergo autoxidation|G|185.0|L|{3-hydroxy-2,6,6-trimethylbicyclo[3.1.1]heptan-2-yl}peroxy|\[O\]OC1\(C\)C\(O\)CC2CC1C2\(C\)C APNCOM|Primary non-carbon organic matter (legacy)|P|220.0|L|Non-carbon organic matter| APOC|Primary organic carbon (legacy)|P|220.0|L|Organic carbon| ASEACAT|Sea spray cations|P|23.75|L|Coarse sea spray cations| ASI|Silicon|P|28.1|E|Total Silicon|[\[Si\]](https://comptox.epa.gov/dashboard/chemical/details/DTXSID0051441) ASO4|Total sulfur IV as sulfate|P|96.0|L|Sulfate ion|[\[O-\]S\(=O\)\(=O\)\[O-\]](https://comptox.epa.gov/dashboard/chemical/details/DTXSID3042425) ASOAT|An empirical SOA|P|200.0|L|3,4,5,6,7-Pentahydroxyheptan-2-one|[CC\(=O\)C\(C\(C\(C\(CO\)O\)O\)O\)O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID80956455) ASOIL|Lumped crustal species|P|100.0|L|Crustal species| ATI|Titanium|P|47.9|E|Total Titanium|[\[Ti\]](https://comptox.epa.gov/dashboard/chemical/details/DTXSID3047764) BAL1|Peroxy radicals formed from BALD |G|123.0|L|(4-methylphenyl)peroxy|\[O\]OC1=CC=C\(C\)C=C1 BAL2|Peroxy radicals formed from BALD |G|109.0|L|phenylperoxy|\[O\]OC1=CC=CC=C1 BALD|Benzaldehyde and other aromatic aldehydes|G|106.0|L|Benzaldehyde|[O=CC1=CC=CC=C1](https://comptox.epa.gov/dashboard/chemical/details/DTXSID8039241) BALP|Peroxy radicals formed from BALD |G|137.0|L|benzoylperoxy|O=C\(O\[O\]\)C1=CC=CC=C1 BDE13|1,3-butadiene|G|54.1|E|1,3-Butadiene|[C=CC=C](https://comptox.epa.gov/dashboard/chemical/details/DTXSID3020203) BDE13P|Peroxy radicals from BDE13|G|103.0|L|(1-hydroxybut-3-en-2-yl)peroxy|C=CC\(O\[O\]\)CO BEN|Benzene|G|78.11|E|Benzene|[C1=CC=CC=C1](https://comptox.epa.gov/dashboard/chemical/details/DTXSID3039242) BENP|Peroxy radicals formed from benzene|G|159.12|L|{8-hydroxy-6,7-dioxabicyclo[3.2.1]oct-3-en-2-yl}peroxy|\[O\]OC1C=CC2OOC1C2O CHO|Phenoxy radical formed from CSL|G|139.0|L|4-hydroxy-3,5-dimethylcyclohexa-2,5-dien-1-yloxidanyl|\[O\]C1C=C\(C\)C\(O\)C\(=C1\)C CO|Carbon monoxide|G|28.0|E|Carbon monoxide|[\[C-\]#\[O+\]](https://comptox.epa.gov/dashboard/chemical/details/DTXSID5027273) CSL|Cresol and other hydroxy substituted aromatics |G|136.2|L|2-Phenylpropan-2-ol|[CC\(C\)\(O\)C1=CC=CC=C1](https://comptox.epa.gov/dashboard/chemical/details/DTXSID3027247) DCB1|Unsaturated dicarbonyls|G|98.0|L|2-methylbut-2-enedial|O=CC=C\(C\)C=O DCB2|Unsaturated dicarbonyls|G|112.1|L|2-methyl-4-oxopent-2-enal|O=CC\(=CC\(=O\)C\)C DCB3|Unsaturated dicarbonyls|G|84.0|L|but-2-enedial|O=CC=CC=O ELHOM|Extremely-low volatility highly oxygenated molecules from terpenes|GP|402.0|L|6-hydroperoxy-7-({3-hydroxy-2,6,6-trimethylbicyclo[3.1.1]heptan-2-yl}peroxy)-3,3,6-trimethyl-tetrahydro-3aH-1,2-benzodioxol-5-ol|OC1CC2C\(OOC2\(C\)C\)C\(OOC3\(C\)C4C\(C\)\(C\)C\(C4\)CC3O\)C1\(C\)OO EOH|Ethanol|G|46.1|E|Ethanol|[CCO](https://comptox.epa.gov/dashboard/chemical/details/DTXSID9020584) ETE|ethene |G|28.1|E|Ethylene|[C=C](https://comptox.epa.gov/dashboard/chemical/details/DTXSID1026378) ETEG|Ethylene glycol|G|62.1|E|Ethylene glycol|[OCCO](https://comptox.epa.gov/dashboard/chemical/details/DTXSID8020597) ETEP|Peroxy radicals formed from ETE|G|77.0|E|(2-hydroxyethyl)peroxy|OCCO\[O\] ETH|ethane |G|30.1|E|Ethane|[CC](https://comptox.epa.gov/dashboard/chemical/details/DTXSID6026377) ETHP|Peroxy radicals formed from ethane and other species |G|61.0|L|Ethylperoxy|[CCO\[O\]](https://comptox.epa.gov/dashboard/chemical/details/DTXSID90953652) FURAN|Furans and other dienes|G|96.1|L|Furfural|[O=CC1=CC=CO1](https://comptox.epa.gov/dashboard/chemical/details/DTXSID1020647) FURANO2|Peroxy radicals from FURAN oxidation|G|145.1|L|(2-formyl-5-hydroxy-5H-furan-2-yl)peroxy|OC1C=CC\(O1\)\(O\[O\]\)\(C=O\) FURANONE|Ring-retaining ketone product from FURAN oxidation|G|100.1|L|2-hydroxy-2H-furan-5-one|[C1=CC\(=O\)OC1O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID10930763) GLY|Glyoxal and glycoaldehydes |G|58.0|L|Glyoxal|[O=CC=O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID5025364) H2O2|Hydrogen peroxide|G|34.0|E|Hydrogen peroxide|[OO](https://comptox.epa.gov/dashboard/chemical/details/DTXSID2020715) HC10|Alkanes and other species with HO rate constant greater than 6.8x10-12 cm3 s-1|G|142.28|L|Decane|[CCCCCCCCCC](https://comptox.epa.gov/dashboard/chemical/details/DTXSID6024913) HC10P|Peroxy radicals formed from HC10 |G|173.27|L|Decan-3-ylperoxy|CCCCCCCC\(CC\)O\[O\] HC10P2|Hydroxy peroxy radicals from HC10P alkoxy product|G|189.27|L|(8-hydroxydecan-5-yl)peroxy|CCCCC\(O\[O\]\)CCC\(O\)CC HC3|Alkanes and other species with HO rate constant less than 3.4x10-12 cm3 s-1 |G|44.1|L|Propane|[CCC](https://comptox.epa.gov/dashboard/chemical/details/DTXSID5026386) HC3P|Peroxy radicals formed from HC3|G|75.0|L|Isopropyl peroxy|CC\(C\)O\[O\] HC5|Alkanes and other species with HO rate constant between 3.4x10-12 and 6.8x10-12 cm3 s-1 |G|72.1|L|Pentane|[CCCCC](https://comptox.epa.gov/dashboard/chemical/details/DTXSID2025846) HC5P|Peroxy radicals formed from HC5|G|103.0|L|Pentan-3-ylperoxy|CCC\(O\[O\]\)CC HCHO|Formaldehyde |G|30.0|E|Formaldehyde|[C=O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID7020637) HCL|Hydrochloric acid|G|36.0|E|Hydrochloric acid|[Cl](https://comptox.epa.gov/dashboard/chemical/details/DTXSID2020711) HKET|Hydroxy ketone |G|74.0|L|Hydroxy acetone|[CC\(=O\)CO](https://comptox.epa.gov/dashboard/chemical/details/DTXSID8051590) HNO3|Nitric acid|G|63.0|E|Nitric acid|[\[N+\]\(=O\)\(O\)\[O-\]](https://comptox.epa.gov/dashboard/chemical/details/DTXSID5029685) HNO4|Pernitric acid |G|79.0|E|Hydroxy nitrate|[\[N+\]\(=O\)\(\[O-\]\)OO](https://comptox.epa.gov/dashboard/chemical/details/DTXSID201030501) HO|Hydroxy radical|G|17.0|E|Hydroxyl radical|\[OH\] HO2|Hydroperoxy radical|G|33.0|E|Hydroperoxy|[O\[O-\]](https://comptox.epa.gov/dashboard/chemical/details/DTXSID30894777) HOM|Highly oxygenated molecules from terpenes|GP|250.0|L|6,7-dihydroperoxy-3,3,6-trimethyl-tetrahydro-3aH-1,2-benzodioxol-5-ol|OC1CC2C\(OOC2\(C\)C\)C\(OO\)C1\(C\)OO HONO|Nitrous acid |G|47.0|E|Nitrous acid|[N\(=O\)O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID7064813) IEPOX|isoprene epoxydiols |G|118.1|E|Isoprene epoxydiol|OCC1OC1\(C\)CO IEPOXP|IEPOX intermediate (tracking species)|G|118.1||NA| ISHP|Beta-hydroxy hydroperoxides from ISOP+HO2|G|118.0|L|2-hydroperoxy-2-methylbut-3-en-1-ol|C=CC\(OO\)\(CO\)C ISO|Isoprene |G|68.1|E|Isoprene|[CC\(=C\)C=C](https://comptox.epa.gov/dashboard/chemical/details/DTXSID2020761) ISON|Beta-hydroxyalkylnitrates from ISOP+NO alkylnitrates from ISO+NO3|G|147.0|L|2-methyl-2-(nitrooxy)but-3-en-1-ol|OCC\(C\)\(C=C\)ON\(=O\)=O ISOP|Peroxy radicals formed from ISO+HO |G|117.0|L|(1-hydroxy-3-methylbut-3-en-2-yl)peroxy|OCC\(O\[O\]\)C\(C\)=C KET|ketones|G|86.0|L|Diethylketone|[CCC\(=O\)CC](https://comptox.epa.gov/dashboard/chemical/details/DTXSID6021820) KETP|Peroxy radicals formed from KET|G|117.0|L|(3-oxopentan-2-yl)peroxy|CCC\(C\(C\)O\[O\]\)=O LIM|d-limonene and other cyclic diene-terpenes |G|136.3|L|D-Limonene|[CC\(=C\)\[C@@H\]1CCC\(C\)=CC1](https://comptox.epa.gov/dashboard/chemical/details/DTXSID1020778) LIMAL|Limonene aldehyde and similar LIM-derived aldehydes|G|168.0|L|Limonaldehyde|O=CCC\(CCC\(=O\)C\)C\(=C\)C LIMALP|Peroxy radicals from LIMAL|G|217.0|L|[1-hydroxy-2-methyl-5-oxo-3-(3-oxobutyl)pentan-2-yl]peroxy|O=CCC\(CCC\(=O\)C\)C\(C\)\(CO\)O\[O\] LIMNP1|Peroxy radicals from LIM+NO3 that do not undergo autoxidation|G|230.0|L|[1-methyl-2-(nitrooxy)-4-(prop-1-en-2-yl)cyclohexyl]peroxy|\[O-\]\[N+\]\(=O\)OC1CC\(CCC1\(C\)O\[O\]\)C\(=C\)C LIMNP2|Peroxy radicals from LIM+NO3 that undergo autoxidation|G|230.0|L|[1-methyl-2-(nitrooxy)-4-(prop-1-en-2-yl)cyclohexyl]peroxy|\[O-\]\[N+\]\(=O\)OC1CC\(CCC1\(C\)O\[O\]\)C\(=C\)C LIMP1|Peroxy radicals from LIM+OH that do not undergo autoxidation|G|185.0|L|[2-hydroxy-1-methyl-4-(prop-1-en-2-yl)cyclohexyl]peroxy|\[O\]OC1\(C\)CCC\(CC1O\)C\(=C\)C LIMP2|Peroxy radicals from LIM+OH that undergo autoxidation|G|185.0|L|[2-hydroxy-1-methyl-4-(prop-1-en-2-yl)cyclohexyl]peroxy|\[O\]OC1\(C\)CCC\(CC1O\)C\(=C\)C MACP|Peroxy radicals formed from MACR+HO|G|101.0|L|(2-methylprop-2-enoyl)peroxy|CC\(=C\)C\(=O\)O\[O\] MACR|methacrolein and other C4 aldehydes |G|70.0|L|Methacrolein|[CC\(=C\)C=O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID0052540) MAHP|Hydroperoxides from MACP+HO2 |G|102.0|L|2-methylprop-2-eneperoxoic acid|C=C\(C\)C\(OO\)=O MCP|Peroxy radical formed from MACR + HO which does not form MPAN|G|119.0|L|(1-hydroxy-2-methyl-3-oxopropan-2-yl)peroxy|OCC\(C\)\(O\[O\]\)C=O MCT|Methyl catechol|G|124.1|L|4-Methylcatechol|[CC1=CC\(O\)=C\(O\)C=C1](https://comptox.epa.gov/dashboard/chemical/details/DTXSID5020861) MCTO|Alkoxy radical formed from MCT+HO and MCT+NO3|G|123.0|L|3-hydroxy-5-methylphenyloxidanyl|CC1=CC\(O\)=CC\(\[O\]\)=C1 MCTP|Radical formed fro MCT+O3 reaction |G|172.0|L|C7H8O5 Biradical|CC\(/C=C\\[C\]\(O\[O\]\)O\)=C/C\(O\)=O MEK|Methyl ethyl ketone|G|72.1|E|Methyl ethyl ketone|[CCC\(C\)=O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID3021516) MEKP|Peroxy radicals formed from MEK|G|103.0|L|(3-oxobutyl)peroxy|\[O\]OCCC\(=O\)C MGLY|Methylglyoxal and other alpha-carbonyl aldehydes |G|72.0|L|Methyl glyoxal|[CC\(=O\)C=O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID0021628) MO2|Methyl peroxy radical|G|47.0|E|Methylperoxy|[CO\[O\]](https://comptox.epa.gov/dashboard/chemical/details/DTXSID10944007) MOH|Methanol |G|32.0|E|Methanol|[CO](https://comptox.epa.gov/dashboard/chemical/details/DTXSID2021731) MPAN|Peroxymethacryloylnitrate and other higher peroxyacylnitrates from isoprene oxidation|G|147.1|L|Peroxymethacryloyl nitrate|[O=N\(=O\)OOC\(=O\)C\(=C\)C](https://comptox.epa.gov/dashboard/chemical/details/DTXSID10236878) MVK|Methyl vinyl ketone|G|70.1|E|Methyl vinyl ketone|[CC\(=O\)C=C](https://comptox.epa.gov/dashboard/chemical/details/DTXSID3025671) MVKP|Peroxy radicals formed from MVK|G|119.0|L|(2-hydroxy-3-oxobutyl)peroxy|CC\(=O\)C\(O\)CO\[O\] N2O5|Dinitrogen pentoxide |G|108.0|E|Dinitrogen pentoxide|[\[N+\]\(=O\)\(\[O-\]\)O\[N+\]\(=O\)\[O-\]](https://comptox.epa.gov/dashboard/chemical/details/DTXSID90143672) NALD|Nitrooxyacetaldehyde |G|105.0|E|1-(nitrooxy)acetaldehyde|O=CCON\(=O\)=O NAPH|Naphthalene and other PAHs|G|128.17|L|Naphthalene|[C1=CC2=CC=CC=C2C=C1](https://comptox.epa.gov/dashboard/chemical/details/DTXSID8020913) NAPHP|Peroxy radicals from NAPH oxidation|G|209.17|L|{8-hydroxy-10,11-dioxatricyclo[7.2.1.0^{2,7}]dodeca-2,4,6-trien-12-yl}peroxy|C12=CC=CC=C1C3OOC\(C3O\[O\]\)C2\(O\) NH3|Ammonia|G|17.0|E|Ammonia|[N](https://comptox.epa.gov/dashboard/chemical/details/DTXSID0023872) NO|Nitric oxide |G|30.0|E|Nitric oxide|[\[N\]=O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID1020938) NO2|Nitrogen dioxide |G|46.0|E|Nitrogen dioxide|[N\(=O\)\[O\]](https://comptox.epa.gov/dashboard/chemical/details/DTXSID7020974) NO3|Nitrogen trioxide|G|62.0|E|Nitrate radical|\[O\]N\(=O\)=O NUM|Number of particles|P|1.0|L|Number of particles| O1D|Excited state oxygen atom, O(1D) |G|16.0|E|Excited oxygen|[\[O\]](https://comptox.epa.gov/dashboard/chemical/details/DTXSID00170378) O3|Ozone|G|48.0|E|Ozone|[\[O-\]\[O+\]=O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID0021098) O3P|Ground state oxygen atom, O(3P)|G|16.0|E|Ground state oxygen|[\[O\]](https://comptox.epa.gov/dashboard/chemical/details/DTXSID00170378) OLI|Internal alkenes |G|70.1|L|2-Methyl-2-butene|[CC=C\(C\)C](https://comptox.epa.gov/dashboard/chemical/details/DTXSID8027165) OLIP|Peroxy radicals formed from OLI|G|119.0|L|(3-hydroxy-2-methylbutan-2-yl)peroxy|\[O\]OC\(C\)\(C\)C\(C\)O OLND|NO3-alkene adduct reacting via decomposition |G|136.0|L|[1-(nitrooxy)propan-2-yl]peroxy|CC\(O\[O\]\)CO\[N+\]\(\[O-\]\)=O OLNN|NO3-alkene adduct reacting to form carbonitrates + HO2 |G|136.0|L|[1-(nitrooxy)propan-2-yl]peroxy|CC\(O\[O\]\)CO\[N+\]\(\[O-\]\)=O OLT|Terminal alkenes |G|42.0|L|1-Propene|[CC=C](https://comptox.epa.gov/dashboard/chemical/details/DTXSID5021205) OLTP|Peroxy radicals formed from OLT|G|91.0|L|(1-hydroxypropan-2-yl)peroxy|CC\(CO\)O\[O\] ONIT|Organic nitrates|G|119.0|L|Butan-2-yl nitrate|[CCC\(C\)O\[N+\]\(=O\)\[O-\]](https://comptox.epa.gov/dashboard/chemical/details/DTXSID00871813) OP1|Methyl hydrogen peroxide |G|48.0|E|Methyl hydroperoxide|[COO](https://comptox.epa.gov/dashboard/chemical/details/DTXSID10184401) OP2|Higher organic peroxides |G|62.0|L|Ethyl hydroperoxide|[CCOO](https://comptox.epa.gov/dashboard/chemical/details/DTXSID70184402) OP3|Semivolatile organic peroxide|GP|176.2|L|5-hydroperoxy-6-hydroxyoctan-3-one|CCC\(=O\)CC\(OO\)C\(O\)CC OPB|Terpene-derived peroxides|G|186.2|L|2-hydroperoxy-2,6,6-trimethylbicyclo[3.1.1]heptan-3-ol|OOC1\(C\)C\(O\)CC2CC1C2\(C\)C ORA1|Formic acid|G|46.0|E|Formic acid|[OC=O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID2024115) ORA2|Acetic acid and higher acids |G|60.2|L|Acetic acid|[CC\(O\)=O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID5024394) ORAP|Peroxy radical formed from ORA2 + HO reaction|G|91.0|L|(carboxymethyl)peroxy|\[O\]OCC\(=O\)O PAA|Peroxyacetic acids and higher analogs|G|76.0|L|Peroxyacetic acid|[CC\(=O\)OO](https://comptox.epa.gov/dashboard/chemical/details/DTXSID1025853) PAN|Peroxyacetyl nitrate and higher saturated PANs |G|121.0|L|Peroxyacetyl nitrate|[CC\(=O\)OON\(=O\)=O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID4062301) PHEN|phenol and benzene diols|G|110.1|L|Resorcinol|[OC1=CC\(O\)=CC=C1](https://comptox.epa.gov/dashboard/chemical/details/DTXSID2021238) PINAL|Pinonaldehyde and similar APIN-derived aldehydes|G|168.0|L|Pinonaldehyde|O=CCC1CC\(C\(=O\)C\)C1\(C\)C PINALP|Peroxy radicals from PINAL oxidation|G|199.0|L|[3-acetyl-2,2-dimethyl-1-(2-oxoethyl)cyclobutyl]peroxy|O=CCC1\(O\[O\]\)CC\(C\(=O\)C\)C1\(C\)C PPN|Peroxypropionyl nitrate|G|135.0|E|Peroxypopionyl nitrate|[CCC\(=O\)OO\[N+\]\(=O\)\[O-\]](https://comptox.epa.gov/dashboard/chemical/details/DTXSID90206675) PROG|Propylene glyocol and other 3 carbon dialcohols|G|76.1|E|1,2-Propylene glycol|[CC\(O\)CO](https://comptox.epa.gov/dashboard/chemical/details/DTXSID0021206) RCO3|Higher saturated acyl peroxy radicals|G|89.0|L|Propanoylperoxy|CCC\(=O\)O\[O\] ROCIOXY|Intermediate volatility oxygenated ROC species (directly emitted)|G|247.0|L|Decamethylcyclopentasiloxane|[C\[Si\]1\(C\)O\[Si\]\(C\)\(C\)O\[Si\]\(C\)\(C\)O\[Si\]\(C\)\(C\)O\[Si\]\(C\)\(C\)O1](https://comptox.epa.gov/dashboard/chemical/details/DTXSID1027184) ROCN1ALK|Alkane-like ROC species with C* of 10-1 μg m-3|GP|408.8|L|5,9-Dimethylheptacosane|[CCCCCCCCCCCCCCCCCCC\(C\)CCCC\(C\)CCCC](https://comptox.epa.gov/dashboard/chemical/details/DTXSID40823452) ROCN1OXY1|Oxygenated ROC species with C* of 10-1 μg m-3 and O:C of 0.1|GP|312.5|L|Arachidic Acid|[CCCCCCCCCCCCCCCCCCCC\(=O\)O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID1060134) ROCN1OXY3|Oxygenated ROC species with C* of 10-1 μg m-3 and O:C of 0.3|GP|230.3|L|DODECANEDIOIC ACID|[C\(CCCCCC\(=O\)O\)CCCCC\(=O\)O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID3027297) ROCN1OXY6|Oxygenated ROC species with C* of 10-1 μg m-3 and O:C of 0.6|GP|190.2|L|2-hydroxy-octanedioic acid|C\(CCC\(C\(=O\)O\)O\)CCC\(=O\)O ROCN2ALK|Alkane-like ROC species with C* of 10-2 μg m-3|GP|422.83|L|Triacontane|[CCCCCCCCCCCCCCCCCCCCCCCCCCCCCC](https://comptox.epa.gov/dashboard/chemical/details/DTXSID0060935) ROCN2OXY2|Oxygenated ROC species with C* of 10-1 μg m-3 and O:C of 0.2|GP|282.4|L|12(S)-hydroxy-16-Heptadecynoic Acid|C#CCCC\[C@H\]\(CCCCCCCCCCC\(=O\)O\)O ROCN2OXY4|Oxygenated ROC species with C* of 10-2 μg m-3 and O:C of 0.4|GP|232.3|L|2-HYDROXYUNDECANEDIOIC ACID|[C\(CCCCC\(=O\)O\)CCCC\(C\(=O\)O\)O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID90726525) ROCN2OXY8|Oxygenated ROC species with C* of 10-2 μg m-3 and O:C of 0.8|GP|194.2|L|3,4,5,6,7-Pentahydroxyheptan-2-one|[CC\(=O\)C\(C\(C\(C\(CO\)O\)O\)O\)O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID80956455) ROCP0ALK|Alkane-like ROC species with C* of 1 μg m-3|GP|394.77|L|11-Methylheptacosane|[CCCCCCCCCCCCCCCCC\(C\)CCCCCCCCCC](https://comptox.epa.gov/dashboard/chemical/details/DTXSID40333900) ROCP0OXY2|Oxygenated ROC species with C* of 1 μg m-3 and O:C of 0.2|GP|242.4|L|3-oxotetradecanoic acid|[CCCCCCCCCCCC\(=O\)CC\(=O\)O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID10332384) ROCP0OXY4|Oxygenated ROC species with C* of 1 μg m-3 and O:C of 0.4|GP|202.3|L|DECANEDIOIC ACID|[C\(CCCCC\(=O\)O\)CCCC\(=O\)O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID7026867) ROCP1ALK|Alkane-like ROC species with C* of 10 μg m-3|GP|380.75|L|Heptacosane|[CCCCCCCCCCCCCCCCCCCCCCCCCCC](https://comptox.epa.gov/dashboard/chemical/details/DTXSID6058637) ROCP1ALKP|Peroxy radicals from ROCP1ALK oxidation|G|411.74|L|heptacosan-3-ylperoxy|CCCCCCCCCCCCCCCCCCCCCCCCC\(CC\)O\[O\] ROCP1ALKP2|Hydroxy peroxy radicals from ROCP1ALK alkoxy product|G|427.73|L|(3-hydroxyheptacosan-6-yl)peroxy|CCCCCCCCCCCCCCCCCCCCCC\(O\[O\]\)CCC\(O\)CC ROCP1OXY1|Oxygenated ROC species with C* of 10 μg m-3 and O:C of 0.1|GP|270.5|L|HEPTADECANOIC ACID|[CCCCCCCCCCCCCCCCC\(=O\)O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID5021596) ROCP1OXY3|Oxygenated ROC species with C* of 10 μg m-3 and O:C of 0.3|GP|202.3|L|11-hydroxyundecanoic acid|[C\(CCCCCO\)CCCCC\(=O\)O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID40190136) ROCP2ALK|Alkane-like ROC species with C* of 10+2 μg m-3|GP|338.66|L|Tetracosane|[CCCCCCCCCCCCCCCCCCCCCCCC](https://comptox.epa.gov/dashboard/chemical/details/DTXSID8060955) ROCP2ALKP|Peroxy radicals from ROCP2ALK oxidation|G|369.65|L|tetracosan-3-ylperoxy|CCCCCCCCCCCCCCCCCCCCCC\(CC\)O\[O\] ROCP2ALKP2|Hydroxy peroxy radicals from ROCP2ALK alkoxy product|G|385.65|L|(3-hydroxytetracosan-6-yl)peroxy|CCCCCCCCCCCCCCCCCCC\(O\[O\]\)CCC\(O\)CC ROCP2OXY2|Oxygenated ROC species with C* of 10+2 μg m-3 and O:C of 0.2|GP|200.3|L|Dodecanoic Acid|[CCCCCCCCCCCC\(=O\)O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID5021590) ROCP3ALK|Alkane-like ROC species with C* of 10+3 μg m-3|GP|296.58|L|Heneicosane|[CCCCCCCCCCCCCCCCCCCCC](https://comptox.epa.gov/dashboard/chemical/details/DTXSID9047097) ROCP3ALKP|Peroxy radicals from ROCP3ALK oxidation|G|327.57|L|henicosan-3-ylperoxy|CCCCCCCCCCCCCCCCCCC\(CC\)O\[O\] ROCP3ALKP2|Hydroxy peroxy radicals from ROCP3ALK alkoxy product|G|343.57|L|(3-hydroxyhenicosan-6-yl)peroxy|CCCCCCCCCCCCCCCC\(O\[O\]\)CCC\(O\)CC ROCP3OXY2|Oxygenated ROC species with C* of 10+3 μg m-3 and O:C of 0.2|GP|186.3|L|11-hydroxyundecanal|C\(CCCCCO\)CCCCC=O ROCP4ALK|Alkane-like ROC species with C* of 10+4 μg m-3|G|254.5|L|Octadecane|[CCCCCCCCCCCCCCCCCC](https://comptox.epa.gov/dashboard/chemical/details/DTXSID9047172) ROCP4ALKP|Peroxy radicals from ROCP4ALK oxidation|G|285.49|L|octadecan-3-ylperoxy|CCCCCCCCCCCCCCCC\(CC\)O\[O\] ROCP4ALKP2|Hydroxy peroxy radicals from ROCP4ALK alkoxy product|G|301.49|L|(3-hydroxyoctadecan-6-yl)peroxy|CCCCCCCCCCCCC\(O\[O\]\)CCC\(O\)CC ROCP4OXY2|Oxygenated ROC species with C* of 10+4 μg m-3 and O:C of 0.2|G|158.2|L|2-Ethylheptanoic Acid|[CCCCCC\(CC\)C\(=O\)O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID40880929) ROCP5ALK|Alkane-like ROC species with C* of 10+5 μg m-3|G|198.39|L|Tetradecane|[CCCCCCCCCCCCCC](https://comptox.epa.gov/dashboard/chemical/details/DTXSID1027267) ROCP5ALKP|Peroxy radicals from ROCP5ALK oxidation|G|229.38|L|tetradecan-3-ylperoxy|CCCCCCCCCCCC\(CC\)O\[O\] ROCP5ALKP2|Hydroxy peroxy radicals from ROCP5ALK alkoxy product|G|245.38|L|(3-hydroxytetradecan-6-yl)peroxy|CCCCCCCCC\(O\[O\]\)CCC\(O\)CC ROCP5ARO|Aromatic ROC species with C* of 10+5 μg m-3|G|190.33|L|Benzene, octyl-|[CCCCCCCCC1=CC=CC=C1](https://comptox.epa.gov/dashboard/chemical/details/DTXSID2062240) ROCP5AROP|Peroxy radicals from ROCP5ARO oxidation|G|271.33|L|{8-hydroxy-5-octyl-6,7-dioxabicyclo[3.2.1]oct-3-en-2-yl}peroxy|CCCCCCCCC1\(OO2\)C=CC\(O\[O\]\)C2C1O ROCP5OXY1|Oxygenated ROC species with C* of 10+5 μg m-3 and O:C of 0.1|G|170.3|L|Undecanal|[CCCCCCCCCCC=O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID4021688) ROCP6ALK|Alkane-like ROC species with C* of 10+6 μg m-3|G|184.37|L|Tridecane|[CCCCCCCCCCCCC](https://comptox.epa.gov/dashboard/chemical/details/DTXSID6027266) ROCP6ALKP|Peroxy radicals from ROCP6ALK oxidation|G|215.36|L|tridecan-3-ylperoxy|CCCCCCCCCCC\(CC\)O\[O\] ROCP6ALKP2|Hydroxy peroxy radicals from ROCP6ALK alkoxy product|G|231.36|L|(3-hydroxytridecan-6-yl)peroxy|CCCCCCCC\(O\[O\]\)CCC\(O\)CC ROCP6ARO|Aromatic ROC species with C* of 10+6 μg m-3|G|176.3|L|1-Hexyl-4-methylbenzene|[CCCCCCC1=CC=C\(C\)C=C1](https://comptox.epa.gov/dashboard/chemical/details/DTXSID30333914) ROCP6AROP|Peroxy radicals from ROCP6ARO oxidation|G|257.3|L|{2-hexyl-8-hydroxy-5-methyl-6,7-dioxabicyclo[3.2.1]oct-3-en-2-yl}peroxy|OC1C2C\(CCCCCC\)\(O\[O\]\)C=CC1\(C\)OO2 ROCP6OXY1|Oxygenated ROC species with C* of 10+6 μg m-3 and O:C of 0.1|G|142.2|L|Nonanal|[CCCCCCCCC=O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID9021639) ROH|C3 and higher alcohols |G|60.0|L|Propanol|[CCCO](https://comptox.epa.gov/dashboard/chemical/details/DTXSID2021739) SESQ|Sesquiterpenes |G|204.4|L|b-caryophyllene|[C/C1=C/CCC\(=C\)C2CC\(C\)\(C\)C2CC\1](https://comptox.epa.gov/dashboard/chemical/details/DTXSID8024739) SESQNRO2|Peroxy radicals from SESQ reaction with nitrate radicals|G|298.4|L|[4,11,11-trimethyl-8-methylidene-5-(nitrooxy)bicyclo[7.2.0]undecan-4-yl]peroxy|\[O\]OC1\(C\)CCC2C\(CC2\(C\)C\)C\(=C\)CCC1O\[N+\]\(=O\)\[O-\] SESQRO2|Peroxy radicals from SESQ reaction with OH|G|253.4|L|{5-hydroxy-4,11,11-trimethyl-8-methylidenebicyclo[7.2.0]undecan-4-yl}peroxy|\[O\]OC1\(C\)CCC2C\(CC2\(C\)C\)C\(=C\)CCC1O SLOWROC|Slowly reacting ROC with kOH< 3.5x10-13 cm3 s-1 |G|75.4|L|Hydrogen cyanide|[C#N](https://comptox.epa.gov/dashboard/chemical/details/DTXSID9024148) SO2|Sulfur dioxide |G|64.0|E|Sulfur dioxide|[O=S=O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID6029672) SRF|Surface area of particles|P|1.0|L|Surface area of particles| SULF|Sulfuric acid|G|98.0|E|Sulfuric acid|[OS\(=O\)\(=O\)O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID5029683) SULRXN|Precursor of Aerosol Sulfate (tracking species) |G|98.0||NA| TOL|Toluene |G|92.14|E|Toluene|[CC1=CC=CC=C1](https://comptox.epa.gov/dashboard/chemical/details/DTXSID7021360) TOLP|Peroxy radicals formed from TOL|G|173.14|L|{8-hydroxy-5-methyl-6,7-dioxabicyclo[3.2.1]oct-3-en-2-yl}peroxy|\[O\]OC1C=CC2\(C\)OOC1C2O TRPN|Terpene nitrates|G|215.0|L|3-hydroxy-2,6,6-trimethylbicyclo[3.1.1]heptan-2-yl nitrate|O=N\(=O\)OC1\(C\)C\(O\)CC2CC1C2\(C\)C UALD|Unsaturated aldehydes|G|84.1|L|2-Methylbut-2-enal|[CC=C\(C\)C=O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID00859414) UALP|Peroxy radicals formed from UALD |G|133.0|L|(3-hydroxy-3-methyl-4-oxobutan-2-yl)peroxy|CC\(O\[O\]\)C\(C\)\(O\)C=O XO2|Accounts for addition NO to NO2 conversions (tracking species)|G|1.0||NA| XYE|O- and p-xylene and other less reactive volatile aromatics with kOH < 1.46x10-11 cm3 s-1 |G|106.2|L|Ethylbenzene|[CCC1=CC=CC=C1](https://comptox.epa.gov/dashboard/chemical/details/DTXSID3020596) XYEP|Peroxy radicals formed from XYE|G|187.17|L|{5-ethyl-8-hydroxy-6,7-dioxabicyclo[3.2.1]oct-3-en-2-yl}peroxy|\[O\]OC1C=CC2\(CC\)OOC1C2O XYM|M-xylene and other more reactive volatile aromatics with kOH > 1.46x10-11 cm3 s-1 |G|106.2|L|m-Xylene|[CC1=CC\(C\)=CC=C1](https://comptox.epa.gov/dashboard/chemical/details/DTXSID6026298) XYMP|Peroxy radicals formed from XYM|G|187.17|L|{8-hydroxy-1,5-dimethyl-6,7-dioxabicyclo[3.2.1]oct-3-en-2-yl}peroxy|\[O\]OC1C=CC2\(C\)OOC1\(C\)C2O ================================================ FILE: CCTM/src/MECHS/mechanism_information/cracmm1_aq/mech_cracmm1_aq.md ================================================ Information is based on the mech.def file. * Fall-off or pressure dependent reaction rate constants (M equals air number density): * For rate constants with ko, ki, n, F values: k = [ koM/(1+koM/ki)]FG, where G=(1+(log10(koM/ki)/n)2))-1 * For rate constants with k1, k2: k = k1 + k2M * For rate constants with k0, k2, k3: k = k0 + k3M/(1+k3M/k2) * For rate constants with k1, k2, k3: k = k1 + k2M + k3 * For rate constants with the form A<_Reference_>, k equals A times a reference that represents photolysis rate, a heteorogeneous rate constant, rate constant for the given reaction or an operator. A equals one if not given. * In the mechanism definition file, the rate is formatted as * A~<_HETEROGENEOUS_> * A*K<_REACTION_> * A/<_PHOTOLYSIS_> * A?<_OPERATOR_> |Label|Reaction |Rate Constant Formula| Value
molecules/(sec*cm3)| |:---|:-------------------|:--------------------|:----:| | R001 | O3 ----> O3P | O3O3P_NASA06 | Not Available1 | | R002 | O3 ----> O1D | O3O1D_NASA06 | Not Available1 | | R003 | H2O2 ----> 2.000\*HO | H2O2_RACM2 | Not Available1 | | R004 | NO2 ----> O3P + NO | NO2_RACM2 | Not Available1 | | R005 | NO3 ----> NO | NO3NO_RACM2 | Not Available1 | | R006 | NO3 ----> O3P + NO2 | NO3NO2_RACM2 | Not Available1 | | R007 | HONO ----> HO + NO | HONO_RACM2 | Not Available1 | | R008 | HNO3 ----> HO + NO2 | HNO3_RACM2 | Not Available1 | | R009 | HNO4 ----> 0.200\*HO + 0.800\*HO2 + 0.800\*NO2 + 0.200\*NO3 | HNO4_RACM2 | Not Available1 | | R010 | HCHO ----> CO | HCHO_MOL_JPL19 | Not Available1 | | R011 | HCHO ----> 2.000\*HO2 + CO | HCHO_RAD_JPL19 | Not Available1 | | R012 | ACD ----> HO2 + MO2 + CO | CH3CHO_RACM2 | Not Available1 | | R013 | ALD ----> HO2 + ETHP + CO | ALD_JPL19 | Not Available1 | | R014 | ACT ----> MO2 + ACO3 | CH3COCH3A_JPL19 | Not Available1 | | R014a | ACT ----> 2.000\*MO2 + CO | CH3COCH3B_JPL19 | Not Available1 | | R015 | UALD ----> 1.220\*HO2 + 0.784\*ACO3 + 1.220\*CO + 0.350\*HCHO + 0.434\*ALD + 0.216\*KET | UALD_RACM2 | Not Available1 | | TRP01 | PINAL ----> HO2 + HC10P + CO | ALD_JPL19 | Not Available1 | | TRP02 | LIMAL ----> HO2 + HC10P + CO | ALD_JPL19 | Not Available1 | | R016 | MEK ----> 0.100\*MO2 + ETHP + 0.900\*ACO3 + 0.100\*CO | MEK_JGR19 | Not Available1 | | R017 | KET ----> 1.500\*ETHP + 0.500\*ACO3 + 0.500\*CO | KET_JGR19 | Not Available1 | | R018 | HKET ----> HO2 + ACO3 + HCHO | HKET_RACM2 | Not Available1 | | R019 | MACR ----> 0.340\*HO + 0.660\*HO2 + 0.670\*ACO3 + 0.330\*MACP + 0.340\*XO2 + 0.670\*CO + 0.670\*HCHO | MACR_RACM2 | Not Available1 | | R020 | MVK ----> 0.300\*MO2 + 0.300\*MACP + 0.700\*CO + 0.700\*UALD | MVK_RACM2 | Not Available1 | | R021 | GLY ----> 2.000\*CO | GLYH2_RACM2 | Not Available1 | | R022 | GLY ----> HCHO + CO | GLYF_RACM2 | Not Available1 | | R023 | GLY ----> 2.000\*HO2 + 2.000\*CO | GLYHX_RACM2 | Not Available1 | | R024 | MGLY ----> HO2 + ACO3 + CO | MGLY_RACM2 | Not Available1 | | R025 | DCB1 ----> 1.500\*HO2 + 0.250\*ACO3 + 0.200\*XO2 + CO + 0.500\*GLY + 0.500\*MGLY | MGLY_RACM2 | Not Available1 | | R026 | DCB2 ----> 1.500\*HO2 + 0.250\*ACO3 + 0.200\*XO2 + CO + 0.500\*GLY + 0.500\*MGLY | MGLY_RACM2 | Not Available1 | | R027 | BALD ----> CHO + HO2 + CO | BALD_RACM2 | Not Available1 | | R028 | OP1 ----> HO + HO2 + HCHO | OP1_RACM2 | Not Available1 | | R029 | OP2 ----> HO + HO2 + ALD | OP1_RACM2 | Not Available1 | | TRP03 | OPB ----> HO + HO2 + ALD | OP1_RACM2 | Not Available1 | | R029a | OP3 ----> HO + HO2 + ALD | OP1_RACM2 | Not Available1 | | R030 | PAA ----> HO + MO2 | PAA_RACM2 | Not Available1 | | R031 | ONIT ----> HO2 + NO2 + 0.200\*ALD + 0.800\*KET | ONIT_RACM2 | Not Available1 | | R032 | PAN ----> ACO3 + NO2 | PAN1_RACM2 | Not Available1 | | R033 | PAN ----> MO2 + NO3 | PAN2_RACM2 | Not Available1 | | R034 | O3 + HO ----> HO2 | 1.70E-12e -940.00/T | 7.2647E-14 | | R035 | O3 + HO2 ----> HO | 1.00E-14e -490.00/T | 1.9331E-15 | | R036 | O3 + NO ----> NO2 | 3.00E-12e -1500.00/T | 1.9596E-14 | | R037 | O3 + NO2 ----> NO3 | 1.20E-13e -2450.00/T | 3.2392E-17 | | R038 | O3P + O2 + M ----> O3 | 6.10E-34(T/300) -2.40 | 6.1912E-34 | | R039 | O3P + O3 ----> | 8.00E-12e -2060.00/T | 7.9879E-15 | | R040 | O1D + O2 ----> O3P | 3.30E-11e 55.00/T | 3.9685E-11 | | R041 | O1D + N2 ----> O3P | 2.15E-11e 110.00/T | 3.1093E-11 | | R042 | O1D + H2O ----> 2.000\*HO | 1.63E-10e 60.00/T | 1.9934E-10 | | R043 | HO + H2 ----> HO2 | 2.80E-12e -1800.00/T | 6.6869E-15 | | R044 | HO + HO2 ----> | 4.80E-11e 250.00/T | 1.1102E-10 | | R045 | HO2 + HO2 ----> H2O2 | k0= 3.00E-13e 460.0/T
k1= 2.10E-33e 920.0/T | 2.5345E-12 | | R046 | HO2 + HO2 + H2O ----> H2O2 | k0= 4.20E-34e 2660.0/T
k1= 2.94E-54e 3120.0/T | 5.6834E-30 | | R047 | H2O2 + HO ----> HO2 | 1.80E-12e 0.00/T | 1.8000E-12 | | R048 | NO + O3P ----> NO2 | ko= 9.10E-32e 0.0/T(T/300) -1.50
ki = 3.00E-11e 0.0/T(T/300) 0.00
n= 1.00;F= 0.60 | 1.6772E-12 | | R049 | NO + HO ----> HONO | ko= 7.10E-31e 0.0/T(T/300) -2.60
ki = 3.60E-11e 0.0/T(T/300) -0.10
n= 1.00;F= 0.60 | 7.4585E-12 | | R050 | NO + HO2 ----> NO2 + HO | 3.44E-12e 260.00/T | 8.2278E-12 | | R051 | NO + HO2 ----> HNO3 | k0= 6.0950E-14e 270.0/T(T/300) -1.00
k2= 6.8570E-34e 270.0/T(T/300) 1.00
k3= -5.9680E-14e 270.00/T | 4.5566E-14 | | R052 | NO + NO + O2 ----> 2.000\*NO2 | 4.25E-39e 663.50/T | 3.9343E-38 | | R053 | HONO + HO ----> NO2 | 3.00E-12e 250.00/T | 6.9387E-12 | | R054 | NO2 + O3P ----> NO | 5.30E-12e 200.00/T | 1.0366E-11 | | R055 | NO2 + O3P ----> NO3 | ko= 3.40E-31e 0.0/T(T/300) -1.60
ki = 2.30E-11e 0.0/T(T/300) -0.20
n= 1.00;F= 0.60 | 4.0243E-12 | | R056 | NO2 + HO ----> HNO3 | ko= 1.80E-30e 0.0/T(T/300) -3.00
ki = 2.80E-11e 0.0/T(T/300) 0.00
n= 1.00;F= 0.60 | 1.0589E-11 | | R057 | HNO3 + HO ----> NO3 | k0= 2.40E-14e 460.0/T
k1= 2.70E-17e 2199.0/T
k3= 6.50E-34e 1335.0/T | 1.5409E-13 | | R058 | NO3 + HO ----> HO2 + NO2 | 2.0000E-11 | 2.0000E-11 | | R059 | NO3 + HO2 ----> 0.700\*HO + 0.700\*NO2 + 0.300\*HNO3 | 3.5000E-12 | 3.5000E-12 | | R060 | NO3 + NO ----> 2.000\*NO2 | 1.70E-11e 125.00/T | 2.5854E-11 | | R061 | NO3 + NO2 ----> NO + NO2 | 4.35E-14e -1335.00/T | 4.9418E-16 | | R062 | NO3 + NO3 ----> 2.000\*NO2 | 8.50E-13e -2450.00/T | 2.2944E-16 | | R063 | NO3 + NO2 ----> N2O5 | ko= 2.40E-30e 0.0/T(T/300) -3.00
ki = 1.60E-12e 0.0/T(T/300) 0.10
n= 1.00;F= 0.60 | 1.3451E-12 | | R064 | N2O5 ----> NO2 + NO3 | 1.72E+26e-10840.00/T \*R063 | 3.7623E-028| | R065 | N2O5 + H2O ----> 2.000\*HNO3 | 1.0000E-22 | 1.0000E-22 | | R066 | NO2 + HO2 ----> HNO4 | ko= 1.90E-31e 0.0/T(T/300) -3.40
ki = 4.00E-12e 0.0/T(T/300) -0.30
n= 1.00;F= 0.60 | 1.3113E-12 | | R067 | HNO4 ----> HO2 + NO2 | 4.76E+26e-10900.00/T \*R066 | 8.2835E-028| | R068 | HNO4 + HO ----> NO2 | 4.50E-13e 610.00/T | 3.4814E-12 | | R069 | SO2 + HO ----> HO2 + SULF + SULRXN | ko= 2.90E-31e 0.0/T(T/300) -4.10
ki = 1.70E-12e 0.0/T(T/300) 0.20
n= 1.00;F= 0.60 | 9.5762E-13 | | R070 | CO + HO ----> HO2 | k0= 1.44E-13e 0.0/T
k1= 2.74E-33e 0.0/T | 2.1145E-13 | | R071 | HO + CH4 ----> MO2 | 2.45E-12e -1775.00/T | 6.3628E-15 | | R072 | ETH + HO ----> ETHP | 7.66E-12e -1020.00/T | 2.5030E-13 | | R073 | HC3 + HO ----> HC3P + 0.000\*ASOATJ | 7.68E-12e -370.00/T | 2.2203E-12 | | R074 | HC5 + HO ----> HC5P + 0.001\*ASOATJ | 1.01E-11e -245.00/T | 4.4407E-12 | | R076 | ETE + HO ----> ETEP | ko= 1.00E-28e 0.0/T(T/300) -4.50
ki = 8.80E-12e 0.0/T(T/300) -0.85
n= 1.00;F= 0.60 | 8.1981E-12 | | R077 | OLT + HO ----> OLTP | 5.72E-12e 500.00/T | 3.0599E-11 | | R078 | OLI + HO ----> OLIP | 1.33E-11e 500.00/T | 7.1149E-11 | | R080 | ACE + HO ----> 0.650\*HO + 0.350\*HO2 + 0.350\*CO + 0.650\*GLY + 0.350\*ORA1 | ko= 5.50E-30e 0.0/T(T/300) 0.00
ki = 8.30E-13e 0.0/T(T/300) 2.00
n= 1.00;F= 0.60 | 7.4748E-13 | | ROCARO31 | BEN + HO ----> 0.470\*BENP + 0.530\*PHEN + 0.530\*HO2 | 2.33E-12e -193.00/T | 1.2196E-12 | | ROCARO41 | TOL + HO ----> 0.820\*TOLP + 0.180\*CSL + 0.180\*HO2 | 1.81E-12e 354.00/T | 5.9337E-12 | | ROCARO51 | XYM + HO ----> 0.830\*XYMP + 0.170\*CSL + 0.170\*HO2 | 2.3300E-11 | 2.3300E-11 | | ROCARO61 | XYE + HO ----> 0.820\*XYEP + 0.180\*CSL + 0.180\*HO2 | 7.1600E-12 | 7.1600E-12 | | R086 | ISO + HO ----> ISOP | 2.70E-11e 390.00/T | 9.9873E-11 | | R087 | API + HO ----> 0.975\*APIP1 + 0.025\*APIP2 | 1.21E-11e 440.00/T | 5.2930E-11 | | R088 | LIM + HO ----> 0.945\*LIMP1 + 0.055\*LIMP2 | 4.20E-11e 401.00/T | 1.6120E-10 | | TRP04 | PINAL + HO ----> 0.230\*PINALP + 0.770\*RCO3 | 5.20E-12e 600.00/T | 3.8903E-11 | | TRP05 | LIMAL + HO ----> 0.700\*LIMALP + 0.300\*RCO3 | 1.0000E-10 | 1.0000E-10 | | R089 | HCHO + HO ----> HO2 + CO | 5.50E-12e 125.00/T | 8.3645E-12 | | R090 | ACD + HO ----> ACO3 | 4.70E-12e 345.00/T | 1.4950E-11 | | R091 | ALD + HO ----> RCO3 | 4.90E-12e 405.00/T | 1.9060E-11 | | R092 | ACT + HO ----> ACTP | 4.56E-14e -427.00/T(T/300) 3.65 | 1.0646E-14 | | R093 | MEK + HO ----> MEKP | 1.50E-12e -90.00/T | 1.1092E-12 | | R094 | KET + HO ----> KETP | 2.80E-12e 10.00/T | 2.8955E-12 | | R095 | HKET + HO ----> HO2 + MGLY | 3.0000E-12 | 3.0000E-12 | | R096 | MACR + HO ----> 0.570\*MACP + 0.430\*MCP | 8.00E-12e 380.00/T | 2.8616E-11 | | R097 | MVK + HO ----> MVKP | 2.60E-12e 610.00/T | 2.0115E-11 | | R098 | UALD + HO ----> 0.313\*ACO3 + 0.687\*UALP | 5.77E-12e 533.00/T | 3.4479E-11 | | R099 | GLY + HO ----> HO2 + 2.000\*CO | 1.1000E-11 | 1.1000E-11 | | R100 | MGLY + HO ----> ACO3 + CO | 9.26E-13e 830.00/T | 1.4984E-11 | | R101 | DCB1 + HO ----> 0.520\*HO2 + 0.330\*CO + 0.400\*ALD + 0.780\*KET + 0.100\*GLY + 0.010\*MGLY | 2.80E-11e 175.00/T | 5.0358E-11 | | R102 | DCB2 + HO ----> 0.520\*HO2 + 0.330\*CO + 0.130\*MEK + 0.100\*GLY + 0.010\*MGLY + 0.780\*OP2 | 2.80E-11e 175.00/T | 5.0358E-11 | | R103 | DCB3 + HO ----> 0.560\*HO2 + 0.210\*MACP + 0.110\*CO + 0.270\*GLY + 0.010\*MGLY + 0.790\*OP2 | 1.0000E-11 | 1.0000E-11 | | R104 | BALD + HO ----> BALP | 5.32E-12e 243.00/T | 1.2019E-11 | | R105 | PHEN + HO ----> 0.152\*ASOATJ + 0.619\*HO2 + 0.170\*ADDC + 0.059\*CHO + 0.619\*MCT | 6.75E-12e 405.00/T | 2.6257E-11 | | R106 | CSL + HO ----> 0.200\*ASOATJ + 0.584\*HO2 + 0.160\*ADDC + 0.056\*CHO + 0.584\*MCT | 4.65E-11e 0.00/T | 4.6500E-11 | | R108 | MCT + HO ----> MCTO | 2.05E-10e 0.00/T | 2.0500E-10 | | R109 | MOH + HO ----> HO2 + HCHO | 2.85E-12e -345.00/T | 8.9600E-13 | | R110 | EOH + HO ----> HO2 + ACD | 3.00E-12e 20.00/T | 3.2081E-12 | | R111 | ROH + HO ----> HO2 + 0.719\*ALD + 0.184\*ACD | 2.60E-12e 200.00/T | 5.0851E-12 | | R112 | ETEG + HO ----> HO2 + ALD | 1.4700E-11 | 1.4700E-11 | | R113 | OP1 + HO ----> 0.350\*HO + 0.650\*MO2 + 0.350\*HCHO | 2.90E-12e 190.00/T | 5.4848E-12 | | R114 | OP2 + HO ----> 0.010\*HO + 0.440\*HC3P + 0.070\*XO2 + 0.080\*ALD + 0.410\*KET | 3.40E-12e 190.00/T | 6.4304E-12 | | TRP06 | OPB + HO ----> 0.010\*HO + 0.440\*HC10P + 0.070\*XO2 + 0.080\*ALD + 0.410\*KET | 3.40E-12e 190.00/T | 6.4304E-12 | | R114a | OP3 + HO ----> 0.010\*HO + 0.440\*HC10P + 0.070\*XO2 + 0.080\*ALD + 0.410\*KET | 3.40E-12e 190.00/T | 6.4304E-12 | | R115 | ISHP + HO ----> HO + MACR + 0.904\*IEPOX | 1.0000E-10 | 1.0000E-10 | | R116 | MAHP + HO ----> MACP | 3.0000E-11 | 3.0000E-11 | | R117 | ORA1 + HO ----> HO2 | 4.5000E-13 | 4.5000E-13 | | R118 | ORA2 + HO ----> 0.640\*MO2 + 0.360\*ORAP | 4.00E-14e 850.00/T | 6.9214E-13 | | R119 | PAA + HO ----> 0.350\*HO + 0.650\*ACO3 + 0.350\*XO2 + 0.350\*HCHO | 2.93E-12e 190.00/T | 5.5415E-12 | | R120 | PAN + HO ----> XO2 + NO3 + HCHO | 4.0000E-14 | 4.0000E-14 | | R121 | PPN + HO ----> XO2 + NO3 + HCHO | 4.0000E-14 | 4.0000E-14 | | R122 | MPAN + HO ----> NO2 + HKET | 3.2000E-11 | 3.2000E-11 | | R123 | ONIT + HO ----> HC3P + NO2 | 5.31E-12e -260.00/T | 2.2201E-12 | | TRP07 | TRPN + HO ----> HOM | 4.8000E-12 | 4.8000E-12 | | R124 | NALD + HO ----> NO2 + XO2 + HKET | 5.60E-12e 270.00/T | 1.3851E-11 | | R125 | ISON + HO ----> NALD + 0.070\*HKET + 0.070\*HCHO | 1.3000E-11 | 1.3000E-11 | | R126 | ETE + O3 ----> 0.080\*HO + 0.150\*HO2 + 0.430\*CO + HCHO + 0.370\*ORA1 | 9.14E-15e -2580.00/T | 1.5953E-18 | | R127 | OLT + O3 ----> 0.220\*HO + 0.320\*HO2 + 0.080\*MO2 + 0.060\*ETHP + 0.040\*HC3P + 0.020\*HC5P + 0.068\*H2O2 + 0.430\*CO + 0.020\*ETH + 0.015\*HC3 + 0.006\*HC5 + 0.032\*BEN + 0.560\*HCHO + 0.010\*ACD + 0.440\*ALD + 0.030\*ACT + 0.020\*BALD + 0.060\*MEK + 0.010\*HKET + 0.030\*ORA1 + 0.060\*ORA2 | 4.33E-15e -1800.00/T | 1.0341E-17 | | R128 | OLI + O3 ----> 0.460\*HO + 0.070\*HO2 + 0.320\*MO2 + 0.070\*ETHP + 0.040\*HC3P + 0.090\*ACO3 + 0.370\*CO + 0.026\*H2O2 + 0.010\*ETH + 0.010\*HC3 + 0.090\*HCHO + 0.457\*ACD + 0.730\*ALD + 0.110\*ACT + 0.017\*KET + 0.044\*HKET + 0.017\*ORA2 | 4.40E-15e -845.00/T | 2.5858E-16 | | R130 | ISO + O3 ----> 0.250\*HO + 0.250\*HO2 + 0.080\*MO2 + 0.100\*ACO3 + 0.100\*MACP + 0.090\*H2O2 + 0.140\*CO + 0.580\*HCHO + 0.461\*MACR + 0.189\*MVK + 0.280\*ORA1 + 0.153\*OLT | 7.86E-15e -1913.00/T | 1.2850E-17 | | R131 | API + O3 ----> 0.900\*HO + 0.900\*APIP1 + 0.050\*APIP2 + 0.050\*PINAL + 0.050\*H2O2 + 0.140\*CO | 5.00E-16e -530.00/T | 8.4519E-17 | | R132 | LIM + O3 ----> 0.840\*HO + 0.840\*LIMP1 + 0.110\*LIMP2 + 0.050\*LIMAL + 0.050\*H2O2 + 0.140\*CO | 2.95E-15e -783.00/T | 2.1344E-16 | | TRP08 | LIMAL + O3 ----> 0.040\*HO + 0.670\*HC10P + 0.790\*HCHO + 0.330\*KET + 0.040\*HO2 + 0.200\*CO | 8.3000E-18 | 8.3000E-18 | | TRP09 | TRPN + O3 ----> HOM | 1.6700E-16 | 1.6700E-16 | | R133 | MACR + O3 ----> 0.190\*HO + 0.140\*HO2 + 0.100\*ACO3 + 0.220\*CO + 0.500\*MGLY + 0.450\*ORA1 | 1.36E-15e -2112.00/T | 1.1406E-18 | | R134 | MVK + O3 ----> 0.160\*HO + 0.110\*HO2 + 0.280\*ACO3 + 0.010\*XO2 + 0.560\*CO + 0.100\*HCHO + 0.540\*MGLY + 0.070\*ORA1 + 0.070\*ORA2 + 0.100\*ALD | 8.50E-16e -1520.00/T | 5.1921E-18 | | R135 | UALD + O3 ----> 0.100\*HO + 0.072\*HO2 + 0.008\*MO2 + 0.002\*ACO3 + 0.100\*XO2 + 0.243\*CO + 0.080\*HCHO + 0.420\*ACD + 0.028\*KET + 0.491\*GLY + 0.003\*MGLY + 0.044\*ORA1 | 1.6600E-18 | 1.6600E-18 | | R136 | DCB1 + O3 ----> 0.050\*HO + HO2 + 0.600\*RCO3 + 0.600\*XO2 + 1.500\*CO + 0.050\*HCHO + 0.050\*GLY + 0.080\*MGLY + 0.650\*OP2 | 2.0000E-16 | 2.0000E-16 | | R137 | DCB2 + O3 ----> 0.050\*HO + HO2 + 0.600\*RCO3 + 0.600\*XO2 + 1.500\*CO + 0.050\*HCHO + 0.050\*GLY + 0.080\*MGLY + 0.700\*DCB1 + 0.650\*OP2 | 2.0000E-16 | 2.0000E-16 | | R138 | DCB3 + O3 ----> 0.050\*HO + HO2 + 1.500\*CO + 0.480\*GLY + 0.700\*DCB1 + 0.250\*ORA1 + 0.250\*ORA2 + 0.110\*PAA | 9.0000E-17 | 9.0000E-17 | | R140 | MCTO + O3 ----> MCTP | 2.8600E-13 | 2.8600E-13 | | R141 | ETE + NO3 ----> 0.800\*OLNN + 0.200\*OLND | 4.39E-13e -2282.00/T(T/300) 2.00 | 2.0571E-16 | | R142 | OLT + NO3 ----> 0.430\*OLNN + 0.570\*OLND | 1.79E-13e -450.00/T | 3.9570E-14 | | R143 | OLI + NO3 ----> 0.110\*OLNN + 0.890\*OLND | 8.64E-13e 450.00/T | 3.9084E-12 | | R145 | ISO + NO3 ----> ISON | 3.03E-12e -446.00/T | 6.7887E-13 | | R146 | API + NO3 ----> 0.975\*APINP1 + 0.025\*APINP2 | 1.19E-12e 490.00/T | 6.1560E-12 | | R147 | LIM + NO3 ----> 0.945\*LIMNP1 + 0.055\*LIMNP2 | 1.2200E-11 | 1.2200E-11 | | TRP10 | TRPN + NO3 ----> HOM | 3.15E-14e -448.00/T | 7.0104E-15 | | R148 | HCHO + NO3 ----> HO2 + CO + HNO3 | 2.00E-12e -2440.00/T | 5.5828E-16 | | R149 | ACD + NO3 ----> ACO3 + HNO3 | 1.40E-12e -1900.00/T | 2.3907E-15 | | R150 | ALD + NO3 ----> RCO3 + HNO3 | 3.76E-12e -1900.00/T | 6.4208E-15 | | R151 | MACR + NO3 ----> 0.680\*HCHO + 0.320\*MACP + 0.680\*XO2 + 0.680\*MGLY + 0.320\*HNO3 + 0.680\*NO2 | 3.4000E-15 | 3.4000E-15 | | R152 | UALD + NO3 ----> HO2 + XO2 + 0.668\*CO + 0.332\*HCHO + 0.332\*ALD + ONIT | 5.02E-13e -1076.00/T | 1.3595E-14 | | R153 | GLY + NO3 ----> HO2 + 2.000\*CO + HNO3 | 2.90E-12e -1900.00/T | 4.9522E-15 | | R154 | MGLY + NO3 ----> ACO3 + CO + HNO3 | 3.76E-12e -1900.00/T | 6.4208E-15 | | R155 | PHEN + NO3 ----> 0.152\*ASOATJ + 0.339\*CHO + 0.850\*ADDC + 0.424\*ADCN + 0.424\*HNO3 | 3.7800E-12 | 3.7800E-12 | | R156 | CSL + NO3 ----> 0.200\*ASOATJ + 0.320\*CHO + 0.080\*ADDC + 0.400\*ADCN + 0.400\*HNO3 | 1.0600E-12 | 1.0600E-12 | | R158 | MCT + NO3 ----> MCTO + HNO3 | 2.0100E-10 | 2.0100E-10 | | R159 | MPAN + NO3 ----> MACP + NO2 | 2.20E-14e -500.00/T | 4.1125E-15 | | TRP11 | PINALP ----> HOM | 1.0000E+00 | 1.0000E+00 | | TRP12 | LIMALP ----> HOM | 1.0000E+00 | 1.0000E+00 | | R166 | ACO3 + NO2 ----> PAN | ko= 9.70E-29e 0.0/T(T/300) -5.60
ki = 9.30E-12e 0.0/T(T/300) -1.50
n= 1.00;F= 0.60 | 8.6800E-12 | | R167 | PAN ----> ACO3 + NO2 | 1.11E+28e-14000.00/T \*R166 | 3.9034E-048| | R168 | RCO3 + NO2 ----> PPN | ko= 9.70E-29e 0.0/T(T/300) -5.60
ki = 9.30E-12e 0.0/T(T/300) -1.50
n= 1.00;F= 0.60 | 8.6800E-12 | | R169 | PPN ----> RCO3 + NO2 | 1.11E+28e-14000.00/T \*R168 | 3.9034E-048| | R170 | MACP + NO2 ----> MPAN | 2.80E-12e 181.00/T | 5.1382E-12 | | R171 | MPAN ----> MACP + NO2 | 1.60E+16e-13486.00/T | 3.6308E-04 | | R172 | MO2 + NO ----> HO2 + NO2 + HCHO | 2.80E-12e 300.00/T | 7.6586E-12 | | R173 | ETHP + NO ----> HO2 + NO2 + ACD | 2.60E-12e 365.00/T | 8.8439E-12 | | R174 | HC3P + NO ----> 0.660\*HO2 + 0.131\*MO2 + 0.048\*ETHP + 0.089\*XO2 + 0.935\*NO2 + 0.504\*ACD + 0.132\*ALD + 0.165\*ACT + 0.042\*MEK + 0.065\*ONIT | 4.0000E-12 | 4.0000E-12 | | R175 | HC5P + NO ----> 0.200\*HO2 + 0.051\*MO2 + 0.231\*ETHP + 0.235\*XO2 + 0.864\*NO2 + 0.018\*HCHO + 0.045\*ACD + 0.203\*ALD + 0.033\*MEK + 0.217\*ACT + 0.033\*KET + 0.272\*HKET + 0.136\*ONIT | 4.0000E-12 | 4.0000E-12 | | R177 | ETEP + NO ----> HO2 + NO2 + 1.600\*HCHO + 0.200\*ALD | 9.0000E-12 | 9.0000E-12 | | R178 | OLTP + NO ----> 0.780\*HO2 + 0.970\*NO2 + 0.780\*HCHO + 0.012\*ACD + 0.440\*ALD + 0.060\*ACT + 0.130\*MEK + 0.030\*ONIT | 4.0000E-12 | 4.0000E-12 | | R179 | OLIP + NO ----> 0.830\*HO2 + 0.950\*NO2 + 0.810\*ACD + 0.680\*ALD + 0.200\*ACT + 0.090\*KET + 0.020\*HKET + 0.050\*ONIT | 4.0000E-12 | 4.0000E-12 | | ROCARO33 | BENP + NO ----> 0.000\*ONIT + 0.001\*VROCP4OXY2 + 0.001\*VROCN1OXY6 + 0.998\*NO2 + 0.998\*HO2 + 0.000\*BALD + 0.998\*GLY + 0.499\*FURANONE + 0.249\*DCB2 + 0.249\*DCB3 | 2.70E-12e 360.00/T | 9.0313E-12 | | ROCARO43 | TOLP + NO ----> 0.000\*ONIT + 0.001\*VROCP4OXY2 + 0.001\*VROCN1OXY6 + 0.998\*NO2 + 0.998\*HO2 + 0.085\*BALD + 0.548\*GLY + 0.365\*MGLY + 0.365\*FURANONE + 0.548\*DCB1 | 2.70E-12e 360.00/T | 9.0313E-12 | | ROCARO53 | XYMP + NO ----> 0.000\*ONIT + 0.001\*VROCP3OXY2 + 0.001\*VROCP0OXY4 + 0.998\*NO2 + 0.998\*HO2 + 0.048\*BALD + 0.703\*GLY + 0.247\*MGLY + 0.351\*FURANONE + 0.598\*DCB2 | 2.70E-12e 360.00/T | 9.0313E-12 | | ROCARO63 | XYEP + NO ----> 0.000\*ONIT + 0.001\*VROCP3OXY2 + 0.001\*VROCP0OXY4 + 0.998\*NO2 + 0.998\*HO2 + 0.085\*BALD + 0.548\*GLY + 0.365\*MGLY + 0.456\*FURANONE + 0.456\*DCB2 | 2.70E-12e 360.00/T | 9.0313E-12 | | R188 | ISOP + NO ----> 0.880\*HO2 + 0.880\*NO2 + 0.200\*HCHO + 0.280\*MACR + 0.440\*MVK + 0.120\*ISON + 0.021\*GLY + 0.029\*HKET + 0.027\*ALD | 2.43E-12e 360.00/T | 8.1282E-12 | | R189 | APIP1 + NO ----> 0.820\*HO2 + 0.820\*NO2 + 0.820\*PINAL + 0.180\*TRPN | 4.0000E-12 | 4.0000E-12 | | TRP13 | APIP2 + NO ----> 0.820\*HO + 0.820\*NO2 + HOM | 4.0000E-12 | 4.0000E-12 | | TRP14 | APINP1 + NO ----> 2.000\*NO2 + PINAL | 4.0000E-12 | 4.0000E-12 | | TRP15 | APINP2 + NO ----> 0.820\*NO2 + 0.820\*HO + HOM | 4.0000E-12 | 4.0000E-12 | | R190 | LIMP1 + NO ----> 0.770\*HO2 + 0.770\*NO2 + 0.490\*LIMAL + 0.280\*HCHO + 0.280\*UALD + 0.230\*TRPN | 4.0000E-12 | 4.0000E-12 | | TRP16 | LIMP2 + NO ----> 0.770\*HO + 0.770\*NO2 + HOM | 4.0000E-12 | 4.0000E-12 | | TRP17 | LIMNP1 + NO ----> 2.000\*NO2 + LIMAL | 4.0000E-12 | 4.0000E-12 | | TRP18 | LIMNP2 + NO ----> 0.770\*NO2 + 0.770\*HO + HOM | 4.0000E-12 | 4.0000E-12 | | TRP19 | PINALP + NO ----> 0.950\*HO2 + 0.950\*NO2 + 0.050\*TRPN + 0.950\*HCHO + 0.950\*KET | 2.70E-12e 360.00/T | 9.0313E-12 | | TRP20 | LIMALP + NO ----> 0.940\*HO2 + 0.940\*NO2 + 0.060\*TRPN + 0.940\*HCHO + 0.940\*KET | 2.70E-12e 360.00/T | 9.0313E-12 | | R191 | ACO3 + NO ----> MO2 + NO2 | 8.10E-12e 270.00/T | 2.0034E-11 | | R192 | RCO3 + NO ----> ETHP + NO2 | 8.10E-12e 270.00/T | 2.0034E-11 | | R193 | ACTP + NO ----> ACO3 + NO2 + HCHO | 2.90E-12e 300.00/T | 7.9321E-12 | | R194 | MEKP + NO ----> 0.670\*HO2 + NO2 + 0.330\*HCHO + 0.670\*DCB1 | 4.0000E-12 | 4.0000E-12 | | R195 | KETP + NO ----> 0.770\*HO2 + 0.230\*ACO3 + 0.160\*XO2 + NO2 + 0.460\*ALD + 0.540\*MGLY | 4.0000E-12 | 4.0000E-12 | | R196 | MACP + NO ----> 0.650\*MO2 + 0.350\*ACO3 + NO2 + 0.650\*CO + 0.650\*HCHO | 2.54E-12e 360.00/T | 8.4961E-12 | | R197 | MCP + NO ----> NO2 + 0.500\*HO2 + 0.500\*HCHO + HKET | 2.54E-12e 360.00/T | 8.4961E-12 | | R198 | MVKP + NO ----> 0.300\*HO2 + 0.700\*ACO3 + 0.700\*XO2 + NO2 + 0.300\*HCHO + 0.700\*ALD + 0.300\*MGLY | 2.54E-12e 360.00/T | 8.4961E-12 | | R199 | UALP + NO ----> HO2 + NO2 + 0.610\*CO + 0.030\*HCHO + 0.270\*ALD + 0.180\*GLY + 0.700\*KET + 0.210\*MGLY | 2.54E-12e 360.00/T | 8.4961E-12 | | R200 | BALP + NO ----> BAL1 + NO2 | 4.0000E-12 | 4.0000E-12 | | R201 | BAL1 + NO ----> BAL2 + NO2 | 4.0000E-12 | 4.0000E-12 | | R202 | ADDC + NO ----> HO2 + NO2 + 0.320\*HKET + 0.680\*GLY + 0.680\*OP2 | 2.70E-12e 360.00/T | 9.0313E-12 | | R203 | MCTP + NO ----> MCTO + NO2 | 2.70E-12e 360.00/T | 9.0313E-12 | | R204 | ORAP + NO ----> NO2 + GLY + HO2 | 4.0000E-12 | 4.0000E-12 | | R205 | OLNN + NO ----> NO2 + HO2 + ONIT | 4.0000E-12 | 4.0000E-12 | | R206 | OLND + NO ----> 2.000\*NO2 + 0.287\*HCHO + 1.240\*ALD + 0.464\*KET | 4.0000E-12 | 4.0000E-12 | | R207 | ADCN + NO ----> 2.000\*NO2 + GLY + OP2 | 2.70E-12e 360.00/T | 9.0313E-12 | | R208 | XO2 + NO ----> NO2 | 4.0000E-12 | 4.0000E-12 | | R209 | BAL2 + NO2 ----> ONIT | 2.0000E-11 | 2.0000E-11 | | R210 | CHO + NO2 ----> ONIT | 2.0000E-11 | 2.0000E-11 | | R211 | MCTO + NO2 ----> ONIT | 2.0800E-12 | 2.0800E-12 | | R212 | MO2 + HO2 ----> OP1 | 4.10E-13e 750.00/T | 5.0729E-12 | | R213 | ETHP + HO2 ----> OP2 | 7.50E-13e 700.00/T | 7.8470E-12 | | R214 | HC3P + HO2 ----> OP2 | 1.66E-13e 1300.00/T | 1.2994E-11 | | R215 | HC5P + HO2 ----> OP2 | 1.66E-13e 1300.00/T | 1.2994E-11 | | R217 | ETEP + HO2 ----> OP2 | 1.90E-13e 1300.00/T | 1.4872E-11 | | R218 | OLTP + HO2 ----> OP2 | 1.66E-13e 1300.00/T | 1.2994E-11 | | R219 | OLIP + HO2 ----> OP2 | 1.66E-13e 1300.00/T | 1.2994E-11 | | ROCARO32 | BENP + HO2 ----> 0.602\*OP2 + 0.398\*VROCN1OXY6 | 2.91E-13e 1300.00/T | 2.2778E-11 | | ROCARO42 | TOLP + HO2 ----> 0.720\*OP2 + 0.281\*VROCN1OXY6 | 2.91E-13e 1300.00/T | 2.2778E-11 | | ROCARO52 | XYMP + HO2 ----> 0.048\*OP2 + 0.675\*OP3 + 0.277\*VROCP0OXY4 | 2.91E-13e 1300.00/T | 2.2778E-11 | | ROCARO62 | XYEP + HO2 ----> 0.085\*OP2 + 0.634\*OP3 + 0.281\*VROCP0OXY4 | 2.91E-13e 1300.00/T | 2.2778E-11 | | R228 | ISOP + HO2 ----> ISHP | 2.05E-13e 1300.00/T | 1.6046E-11 | | R229 | APIP1 + HO2 ----> OPB | 1.5000E-11 | 1.5000E-11 | | TRP21 | APIP2 + HO2 ----> HOM | 1.5000E-11 | 1.5000E-11 | | TRP22 | APINP1 + HO2 ----> TRPN | 1.5000E-11 | 1.5000E-11 | | TRP23 | APINP2 + HO2 ----> HOM | 1.5000E-11 | 1.5000E-11 | | R230 | LIMP1 + HO2 ----> OPB | 1.5000E-11 | 1.5000E-11 | | TRP24 | LIMP2 + HO2 ----> HOM | 1.5000E-11 | 1.5000E-11 | | TRP25 | LIMNP1 + HO2 ----> TRPN | 1.5000E-11 | 1.5000E-11 | | TRP26 | LIMNP2 + HO2 ----> HOM | 1.5000E-11 | 1.5000E-11 | | TRP27 | PINALP + HO2 ----> OPB | 2.91E-13e 1300.00/T | 2.2778E-11 | | TRP28 | LIMALP + HO2 ----> OPB | 2.91E-13e 1300.00/T | 2.2778E-11 | | R231 | ACO3 + HO2 ----> 0.440\*HO + 0.440\*MO2 + 0.150\*ORA2 + 0.410\*PAA | 4.30E-13e 1040.00/T | 1.4072E-11 | | R232 | RCO3 + HO2 ----> 0.440\*HO + 0.440\*ETHP + 0.150\*ORA2 + 0.410\*PAA | 4.30E-13e 1040.00/T | 1.4072E-11 | | R233 | ACTP + HO2 ----> 0.150\*HO + 0.150\*ACO3 + 0.150\*HCHO + 0.850\*OP2 | 1.15E-13e 1300.00/T | 9.0016E-12 | | R234 | MEKP + HO2 ----> OP2 | 1.15E-13e 1300.00/T | 9.0016E-12 | | R235 | KETP + HO2 ----> OP2 | 1.15E-13e 1300.00/T | 9.0016E-12 | | R236 | MACP + HO2 ----> MAHP | 1.82E-13e 1300.00/T | 1.4246E-11 | | R237 | MCP + HO2 ----> MAHP | 1.82E-13e 1300.00/T | 1.4246E-11 | | R238 | MVKP + HO2 ----> OP2 | 2.91E-13e 1300.00/T | 2.2778E-11 | | R239 | UALP + HO2 ----> OP2 | 2.91E-13e 1300.00/T | 2.2778E-11 | | R240 | ADDC + HO2 ----> OP2 | 3.75E-13e 980.00/T | 1.0035E-11 | | R241 | CHO + HO2 ----> CSL | 1.0000E-11 | 1.0000E-11 | | R242 | MCTP + HO2 ----> OP2 | 3.75E-13e 980.00/T | 1.0035E-11 | | R243 | ORAP + HO2 ----> OP2 | 1.15E-13e 1300.00/T | 9.0016E-12 | | R244 | OLNN + HO2 ----> ONIT | 1.66E-13e 1300.00/T | 1.2994E-11 | | R245 | OLND + HO2 ----> ONIT | 1.66E-13e 1300.00/T | 1.2994E-11 | | R246 | ADCN + HO2 ----> OP2 | 3.75E-13e 980.00/T | 1.0035E-11 | | R247 | XO2 + HO2 ----> OP2 | 1.66E-13e 1300.00/T | 1.2994E-11 | | R248 | MO2 + MO2 ----> 0.740\*HO2 + 1.370\*HCHO + 0.630\*MOH | 9.50E-14e 390.00/T | 3.5141E-13 | | R249 | ETHP + MO2 ----> HO2 + 0.750\*HCHO + 0.750\*ACD + 0.250\*MOH + 0.250\*EOH | 1.18E-13e 158.00/T | 2.0046E-13 | | R250 | HC3P + MO2 ----> 0.894\*HO2 + 0.080\*MO2 + 0.026\*ETHP + 0.026\*XO2 + 0.827\*HCHO + 0.198\*ALD + 0.497\*KET + 0.050\*GLY + 0.250\*MOH + 0.250\*ROH | 9.46E-14e 431.00/T | 4.0151E-13 | | R251 | HC5P + MO2 ----> 0.842\*HO2 + 0.018\*MO2 + 0.140\*ETHP + 0.191\*XO2 + 0.777\*HCHO + 0.251\*ALD + 0.618\*KET + 0.250\*MOH + 0.250\*ROH | 1.00E-13e 467.00/T | 4.7890E-13 | | R253 | ETEP + MO2 ----> HO2 + 1.950\*HCHO + 0.150\*ALD + 0.250\*MOH + 0.250\*ETEG | 1.71E-13e 708.00/T | 1.8378E-12 | | R254 | OLTP + MO2 ----> HO2 + 1.500\*HCHO + 0.705\*ALD + 0.045\*KET + 0.250\*MOH + 0.250\*ROH | 1.46E-13e 708.00/T | 1.5691E-12 | | R255 | OLIP + MO2 ----> HO2 + 0.750\*HCHO + 1.280\*ALD + 0.218\*KET + 0.250\*MOH + 0.250\*ROH | 9.18E-14e 708.00/T | 9.8659E-13 | | ROCARO35 | BENP + MO2 ----> 0.680\*HCHO + 1.370\*HO2 + 0.320\*MOH + 0.000\*BALD + GLY + 0.500\*FURANONE + 0.250\*DCB2 + 0.250\*DCB3 | 3.56E-14e 708.00/T | 3.8260E-13 | | ROCARO45 | TOLP + MO2 ----> 0.680\*HCHO + 1.285\*HO2 + 0.320\*MOH + 0.085\*BALD + 0.549\*GLY + 0.366\*MGLY + 0.366\*FURANONE + 0.549\*DCB1 | 3.56E-14e 708.00/T | 3.8260E-13 | | ROCARO55 | XYMP + MO2 ----> 0.680\*HCHO + 1.322\*HO2 + 0.320\*MOH + 0.048\*BALD + 0.704\*GLY + 0.247\*MGLY + 0.352\*FURANONE + 0.600\*DCB2 | 3.56E-14e 708.00/T | 3.8260E-13 | | ROCARO65 | XYEP + MO2 ----> 0.680\*HCHO + 1.285\*HO2 + 0.320\*MOH + 0.085\*BALD + 0.549\*GLY + 0.366\*MGLY + 0.457\*FURANONE + 0.457\*DCB2 | 3.56E-14e 708.00/T | 3.8260E-13 | | R264 | ISOP + MO2 ----> HO2 + 1.310\*HCHO + 0.159\*MACR + 0.250\*MVK + 0.250\*MOH + 0.250\*ROH + 0.023\*ALD + 0.018\*GLY + 0.016\*HKET | 3.40E-14e 221.00/T | 7.1350E-14 | | R265 | APIP1 + MO2 ----> HO2 + 0.680\*HCHO + 0.600\*PINAL + 0.070\*KET + 0.320\*MOH + 0.250\*ROH | 3.56E-14e 708.00/T | 3.8260E-13 | | TRP29 | APIP2 + MO2 ----> HO2 + 0.750\*HCHO + 0.250\*MOH + HOM | 1.0000E-10 | 1.0000E-10 | | TRP30 | APINP1 + MO2 ----> 0.370\*HO2 + 0.860\*NO2 + 0.680\*HCHO + 0.860\*PINAL + 0.320\*MOH + 0.140\*TRPN | 3.56E-14e 708.00/T | 3.8260E-13 | | TRP31 | APINP2 + MO2 ----> 0.750\*HO2 + 0.750\*NO2 + 0.250\*MOH + 0.750\*HCHO + HOM | 1.0000E-10 | 1.0000E-10 | | R266 | LIMP1 + MO2 ----> HO2 + HCHO + 0.420\*LIMAL + 0.300\*KET + 0.320\*MOH + 0.270\*ROH | 3.56E-14e 708.00/T | 3.8260E-13 | | TRP32 | LIMP2 + MO2 ----> HO2 + 0.750\*HCHO + 0.250\*MOH + HOM | 1.0000E-10 | 1.0000E-10 | | TRP33 | LIMNP1 + MO2 ----> 0.370\*HO2 + 0.680\*HCHO + 0.700\*LIMAL + 0.700\*NO2 + 0.320\*MOH + 0.300\*TRPN | 3.56E-14e 708.00/T | 3.8260E-13 | | TRP34 | LIMNP2 + MO2 ----> 0.750\*HO2 + 0.750\*HCHO + 0.750\*NO2 + 0.250\*MOH + HOM | 1.0000E-10 | 1.0000E-10 | | R267 | ACO3 + MO2 ----> 0.900\*HO2 + 0.900\*MO2 + HCHO + 0.100\*ORA2 | 2.00E-11e 500.00/T | 1.0699E-10 | | R268 | RCO3 + MO2 ----> 0.900\*HO2 + 0.900\*MO2 + HCHO + 0.100\*ORA2 | 2.00E-11e 500.00/T | 1.0699E-10 | | R269 | ACTP + MO2 ----> 0.500\*HO2 + 0.500\*ACO3 + 1.500\*HCHO + 0.250\*MOH + 0.250\*ROH + 0.125\*ORA2 | 7.50E-13e 500.00/T | 4.0121E-12 | | R270 | MEKP + MO2 ----> 0.834\*HO2 + HCHO + 0.334\*DCB1 + 0.250\*MOH + 0.250\*ROH | 6.91E-13e 508.00/T | 3.7971E-12 | | R271 | KETP + MO2 ----> HO2 + 0.750\*HCHO + 0.500\*DCB1 + 0.250\*MOH + 0.250\*ROH | 6.91E-13e 508.00/T | 3.7971E-12 | | R272 | MACP + MO2 ----> 0.500\*HO2 + 0.269\*ACO3 + 0.500\*CO + 1.660\*HCHO + 0.067\*ORA2 + 0.250\*MO2 + 0.250\*MOH + 0.250\*ROH | 3.40E-14e 221.00/T | 7.1350E-14 | | R273 | MCP + MO2 ----> NO2 + HO2 + 1.500\*HCHO + 0.500\*HKET + 0.250\*MOH + 0.250\*ROH | 3.40E-14e 221.00/T | 7.1350E-14 | | R274 | MVKP + MO2 ----> HO2 + 1.160\*ACO3 + 1.160\*XO2 + 1.500\*HCHO + 1.750\*ALD + 0.500\*MGLY + 0.250\*MOH + 0.250\*ROH + 0.292\*ORA2 | 8.3700E-14 | 8.3700E-14 | | R275 | UALP + MO2 ----> HO2 + 0.305\*CO + 0.773\*HCHO + 0.203\*ALD + 0.525\*KET + 0.135\*GLY + 0.105\*MGLY + 0.250\*MOH + 0.250\*ROH | 3.40E-14e 221.00/T | 7.1350E-14 | | R276 | BALP + MO2 ----> HO2 + BAL1 + HCHO | 3.56E-14e 708.00/T | 3.8260E-13 | | R277 | BAL1 + MO2 ----> HO2 + BAL2 + HCHO | 3.56E-14e 708.00/T | 3.8260E-13 | | R278 | ADDC + MO2 ----> 2.000\*HO2 + HCHO + 0.320\*HKET + 0.680\*GLY + 0.680\*OP2 | 3.56E-14e 708.00/T | 3.8260E-13 | | R279 | MCTP + MO2 ----> HO2 + MCTO + HCHO | 3.56E-14e 708.00/T | 3.8260E-13 | | R280 | ORAP + MO2 ----> HCHO + HO2 + GLY | 7.50E-13e 500.00/T | 4.0121E-12 | | R281 | OLNN + MO2 ----> 2.000\*HO2 + HCHO + ONIT | 1.60E-13e 708.00/T | 1.7195E-12 | | R282 | OLND + MO2 ----> 0.500\*HO2 + 0.500\*NO2 + 0.965\*HCHO + 0.930\*ALD + 0.348\*KET + 0.250\*MOH + 0.250\*ROH + 0.500\*ONIT | 9.68E-14e 708.00/T | 1.0403E-12 | | R283 | ADCN + MO2 ----> HO2 + 0.700\*NO2 + HCHO + 0.700\*GLY + 0.700\*OP2 + 0.300\*ONIT | 3.5600E-14 | 3.5600E-14 | | R284 | XO2 + MO2 ----> HO2 + HCHO | 5.99E-15e 1510.00/T | 9.4829E-13 | | R285 | ETHP + ACO3 ----> 0.500\*HO2 + 0.500\*MO2 + ACD + 0.500\*ORA2 | 1.03E-12e 211.00/T | 2.0902E-12 | | R286 | HC3P + ACO3 ----> 0.394\*HO2 + 0.580\*MO2 + 0.026\*ETHP + 0.026\*XO2 + 0.130\*HCHO + 0.273\*ALD + 0.662\*KET + 0.067\*GLY + 0.500\*ORA2 | 6.90E-13e 460.00/T | 3.2277E-12 | | R287 | HC5P + ACO3 ----> 0.342\*HO2 + 0.518\*MO2 + 0.140\*ETHP + 0.191\*XO2 + 0.042\*HCHO + 0.381\*ALD + 0.824\*KET + 0.500\*ORA2 | 5.59E-13e 522.00/T | 3.2194E-12 | | R289 | ETEP + ACO3 ----> 0.500\*HO2 + 0.500\*MO2 + 1.600\*HCHO + 0.200\*ALD + 0.500\*ORA2 | 9.48E-13e 765.00/T | 1.2335E-11 | | R290 | OLTP + ACO3 ----> 0.500\*HO2 + 0.500\*MO2 + HCHO + 0.940\*ALD + 0.060\*KET + 0.500\*ORA2 | 8.11E-13e 765.00/T | 1.0552E-11 | | R291 | OLIP + ACO3 ----> 0.500\*HO2 + 0.500\*MO2 + 1.710\*ALD + 0.290\*KET + 0.500\*ORA2 | 5.09E-13e 765.00/T | 6.6228E-12 | | ROCARO36 | BENP + ACO3 ----> 0.700\*MO2 + HO2 + 0.300\*ORA2 + 0.000\*BALD + GLY + 0.500\*FURANONE + 0.250\*DCB2 + 0.250\*DCB3 | 7.40E-13e 765.00/T | 9.6284E-12 | | ROCARO46 | TOLP + ACO3 ----> 0.700\*MO2 + 0.915\*HO2 + 0.300\*ORA2 + 0.085\*BALD + 0.549\*GLY + 0.366\*MGLY + 0.366\*FURANONE + 0.549\*DCB1 | 7.40E-13e 765.00/T | 9.6284E-12 | | ROCARO56 | XYMP + ACO3 ----> 0.700\*MO2 + 0.952\*HO2 + 0.300\*ORA2 + 0.048\*BALD + 0.704\*GLY + 0.247\*MGLY + 0.352\*FURANONE + 0.600\*DCB2 | 7.40E-13e 765.00/T | 9.6284E-12 | | ROCARO66 | XYEP + ACO3 ----> 0.700\*MO2 + 0.915\*HO2 + 0.300\*ORA2 + 0.085\*BALD + 0.549\*GLY + 0.366\*MGLY + 0.457\*FURANONE + 0.457\*DCB2 | 7.40E-13e 765.00/T | 9.6284E-12 | | R300 | ISOP + ACO3 ----> 0.500\*HO2 + 0.500\*MO2 + 1.048\*HCHO + 0.219\*MACR + 0.305\*MVK + 0.500\*ORA2 | 8.40E-14e 221.00/T | 1.7628E-13 | | R301 | APIP1 + ACO3 ----> 0.630\*HO2 + 0.700\*MO2 + 0.600\*PINAL + 0.300\*ORA2 + 0.070\*KET + 0.250\*ROH | 7.40E-13e 765.00/T | 9.6284E-12 | | TRP35 | APIP2 + ACO3 ----> 0.500\*HO + 0.500\*MO2 + 0.500\*ORA2 + HOM | 1.0000E-10 | 1.0000E-10 | | TRP36 | APINP1 + ACO3 ----> 0.860\*NO2 + 0.140\*TRPN + 0.860\*PINAL + 0.700\*MO2 + 0.300\*ORA2 | 7.40E-13e 765.00/T | 9.6284E-12 | | TRP37 | APINP2 + ACO3 ----> 0.500\*NO2 + 0.500\*MO2 + 0.500\*ORA2 + HOM | 1.0000E-10 | 1.0000E-10 | | R302 | LIMP1 + ACO3 ----> 0.630\*HO2 + 0.700\*MO2 + 0.420\*LIMAL + 0.300\*KET + 0.300\*ORA2 + 0.320\*HCHO + 0.270\*ROH | 7.40E-13e 765.00/T | 9.6284E-12 | | TRP38 | LIMP2 + ACO3 ----> 0.500\*HO + 0.500\*MO2 + 0.500\*ORA2 + HOM | 1.0000E-10 | 1.0000E-10 | | TRP39 | LIMNP1 + ACO3 ----> 0.700\*NO2 + 0.700\*LIMAL + 0.300\*TRPN + 0.700\*MO2 + 0.300\*ORA2 | 7.40E-13e 765.00/T | 9.6284E-12 | | TRP40 | LIMNP2 + ACO3 ----> 0.500\*MO2 + 0.500\*NO2 + 0.500\*ORA2 + HOM | 1.0000E-10 | 1.0000E-10 | | R303 | ACO3 + ACO3 ----> 2.000\*MO2 | 2.50E-12e 500.00/T | 1.3374E-11 | | R304 | RCO3 + ACO3 ----> MO2 + ETHP | 2.50E-12e 500.00/T | 1.3374E-11 | | R305 | ACTP + ACO3 ----> 0.500\*MO2 + 0.500\*ACO3 + HCHO + 0.750\*ORA2 | 7.51E-13e 565.00/T | 4.9962E-12 | | R306 | MEKP + ACO3 ----> 0.330\*HO2 + 0.500\*MO2 + 0.330\*HCHO + 0.334\*DCB1 + 0.500\*ORA2 | 7.51E-13e 565.00/T | 4.9962E-12 | | R307 | KETP + ACO3 ----> 0.500\*HO2 + 0.500\*MO2 + 0.500\*DCB1 + 0.500\*ORA2 | 7.51E-13e 565.00/T | 4.9962E-12 | | R308 | MACP + ACO3 ----> 0.635\*ORA2 + 0.500\*MO2 + 0.269\*ACO3 + 0.500\*CO + HCHO | 8.40E-14e 221.00/T | 1.7628E-13 | | R309 | MCP + ACO3 ----> NO2 + 0.500\*HO2 + HCHO + 0.500\*HKET + 0.500\*MO2 + 0.500\*ORA2 | 8.40E-14e 221.00/T | 1.7628E-13 | | R310 | MVKP + ACO3 ----> 0.500\*HO2 + 0.500\*MO2 + 1.160\*ACO3 + 1.160\*XO2 + HCHO + 2.300\*ALD + 0.500\*MGLY + 1.083\*ORA2 | 1.68E-12e 500.00/T | 8.9872E-12 | | R311 | UALP + ACO3 ----> 0.500\*HO2 + 0.500\*MO2 + 0.500\*CO + 0.030\*HCHO + 0.270\*ALD + 0.700\*KET + 0.180\*GLY + 0.105\*MGLY + 0.500\*ORA2 | 1.68E-12e 500.00/T | 8.9872E-12 | | R312 | BALP + ACO3 ----> MO2 + BAL1 | 7.40E-13e 765.00/T | 9.6284E-12 | | R313 | BAL1 + ACO3 ----> MO2 + BAL2 | 7.40E-13e 765.00/T | 9.6284E-12 | | R314 | ADDC + ACO3 ----> 2.000\*HO2 + MO2 + 0.320\*HKET + 0.680\*GLY + 0.680\*OP2 | 7.40E-13e 708.00/T | 7.9529E-12 | | R315 | MCTP + ACO3 ----> HO2 + MO2 + MCTO | 7.40E-13e 708.00/T | 7.9529E-12 | | R316 | ORAP + ACO3 ----> MO2 + GLY | 7.51E-13e 565.00/T | 4.9962E-12 | | R317 | OLNN + ACO3 ----> HO2 + MO2 + ONIT | 8.85E-13e 765.00/T | 1.1515E-11 | | R318 | OLND + ACO3 ----> 0.500\*MO2 + NO2 + 0.287\*HCHO + 1.240\*ALD + 0.464\*KET + 0.500\*ORA2 | 5.37E-13e 765.00/T | 6.9871E-12 | | R319 | ADCN + ACO3 ----> HO2 + MO2 + 0.700\*NO2 + 0.700\*GLY + 0.700\*OP2 + 0.300\*ONIT | 7.40E-13e 708.00/T | 7.9529E-12 | | R320 | XO2 + ACO3 ----> MO2 | 3.40E-14e 1560.00/T | 6.3654E-12 | | R321 | RCO3 + RCO3 ----> 2.000\*ETHP | 2.50E-12e 500.00/T | 1.3374E-11 | | R322 | MO2 + NO3 ----> HO2 + HCHO + NO2 | 1.2000E-12 | 1.2000E-12 | | R323 | ETHP + NO3 ----> HO2 + NO2 + ACD | 1.2000E-12 | 1.2000E-12 | | R324 | HC3P + NO3 ----> 0.254\*HO2 + 0.140\*MO2 + 0.092\*XO2 + 0.503\*ETHP + NO2 + 0.519\*ACD + 0.147\*ALD + 0.075\*MEK + 0.095\*ACT | 1.2000E-12 | 1.2000E-12 | | R325 | HC5P + NO3 ----> 0.488\*HO2 + 0.055\*MO2 + 0.280\*ETHP + 0.485\*XO2 + NO2 + 0.024\*HCHO + 0.241\*ALD + 0.060\*KET + 0.063\*MEK + 0.247\*ACT + 0.048\*ACD + 0.275\*HKET | 1.2000E-12 | 1.2000E-12 | | R327 | ETEP + NO3 ----> HO2 + NO2 + 1.600\*HCHO + 0.200\*ALD | 1.2000E-12 | 1.2000E-12 | | R328 | OLTP + NO3 ----> 0.470\*ALD + 0.790\*HCHO + 0.790\*HO2 + NO2 + 0.180\*MEK + 0.020\*ACD + 0.090\*ACT | 1.2000E-12 | 1.2000E-12 | | R329 | OLIP + NO3 ----> 0.860\*HO2 + 0.720\*ALD + 0.110\*KET + NO2 + 0.200\*ACT + 0.850\*ACD + 0.040\*HKET | 1.2000E-12 | 1.2000E-12 | | ROCARO34 | BENP + NO3 ----> NO2 + HO2 + 0.000\*BALD + GLY + 0.500\*FURANONE + 0.250\*DCB2 + 0.250\*DCB3 | 2.3000E-12 | 2.3000E-12 | | ROCARO44 | TOLP + NO3 ----> NO2 + 0.915\*HO2 + 0.085\*BALD + 0.549\*GLY + 0.366\*MGLY + 0.366\*FURANONE + 0.549\*DCB1 | 2.3000E-12 | 2.3000E-12 | | ROCARO54 | XYMP + NO3 ----> NO2 + 0.952\*HO2 + 0.048\*BALD + 0.704\*GLY + 0.247\*MGLY + 0.352\*FURANONE + 0.600\*DCB2 | 2.3000E-12 | 2.3000E-12 | | ROCARO64 | XYEP + NO3 ----> NO2 + 0.915\*HO2 + 0.085\*BALD + 0.549\*GLY + 0.366\*MGLY + 0.457\*FURANONE + 0.457\*DCB2 | 2.3000E-12 | 2.3000E-12 | | R338 | ISOP + NO3 ----> HO2 + NO2 + 0.750\*HCHO + 0.318\*MACR + 0.500\*MVK + 0.024\*GLY + 0.033\*HKET + 0.031\*ALD | 1.2000E-12 | 1.2000E-12 | | R339 | APIP1 + NO3 ----> HO2 + NO2 + ALD + KET | 1.2000E-12 | 1.2000E-12 | | R340 | LIMP1 + NO3 ----> HO2 + NO2 + 0.385\*OLI + 0.385\*HCHO + 0.615\*MACR | 1.2000E-12 | 1.2000E-12 | | R341 | ACO3 + NO3 ----> MO2 + NO2 | 4.0000E-12 | 4.0000E-12 | | R342 | RCO3 + NO3 ----> ETHP + NO2 | 4.0000E-12 | 4.0000E-12 | | R343 | ACTP + NO3 ----> ACO3 + NO2 + HCHO | 1.2000E-12 | 1.2000E-12 | | R344 | MEKP + NO3 ----> 0.670\*HO2 + NO2 + 0.330\*HCHO + 0.670\*DCB1 | 1.2000E-12 | 1.2000E-12 | | R345 | KETP + NO3 ----> HO2 + NO2 + DCB1 | 1.2000E-12 | 1.2000E-12 | | R346 | MACP + NO3 ----> HCHO + 0.538\*ACO3 + CO + NO2 | 1.2000E-12 | 1.2000E-12 | | R347 | MCP + NO3 ----> NO2 + HO2 + HCHO + HKET | 1.2000E-12 | 1.2000E-12 | | R348 | MVKP + NO3 ----> 0.300\*HO2 + 0.700\*ACO3 + 0.700\*XO2 + NO2 + 0.300\*HCHO + 0.700\*ALD + 0.300\*MGLY | 2.5000E-12 | 2.5000E-12 | | R349 | UALP + NO3 ----> HO2 + NO2 + 0.610\*CO + 0.030\*HCHO + 0.270\*ALD + 0.700\*KET + 0.180\*GLY + 0.210\*MGLY | 2.5000E-12 | 2.5000E-12 | | R350 | BALP + NO3 ----> BAL1 + NO2 | 2.5000E-12 | 2.5000E-12 | | R351 | BAL1 + NO3 ----> BAL2 + NO2 | 2.5000E-12 | 2.5000E-12 | | R352 | ADDC + NO3 ----> HO2 + NO2 + 0.320\*HKET + 0.680\*GLY + 0.680\*OP2 | 1.2000E-12 | 1.2000E-12 | | R353 | MCTP + NO3 ----> NO2 + MCTO | 1.2000E-12 | 1.2000E-12 | | R354 | ORAP + NO3 ----> NO2 + GLY + HO2 | 1.2000E-12 | 1.2000E-12 | | R355 | OLNN + NO3 ----> HO2 + NO2 + ONIT | 1.2000E-12 | 1.2000E-12 | | R356 | OLND + NO3 ----> 2.000\*NO2 + 0.287\*HCHO + 1.240\*ALD + 0.464\*KET | 1.2000E-12 | 1.2000E-12 | | R357 | ADCN + NO3 ----> 2.000\*NO2 + GLY + OP2 | 1.2000E-12 | 1.2000E-12 | | R358 | OLNN + OLNN ----> HO2 + 2.000\*ONIT | 7.00E-14e 1000.00/T | 2.0032E-12 | | R359 | OLNN + OLND ----> 0.500\*HO2 + 0.500\*NO2 + 0.202\*HCHO + 0.640\*ALD + 0.149\*KET + 1.500\*ONIT | 4.25E-14e 1000.00/T | 1.2162E-12 | | R360 | OLND + OLND ----> NO2 + 0.504\*HCHO + 1.210\*ALD + 0.285\*KET + ONIT | 2.96E-14e 1000.00/T | 8.4708E-13 | | R361 | XO2 + NO3 ----> NO2 | 1.2000E-12 | 1.2000E-12 | | R362 | XO2 + RCO3 ----> ETHP | 2.50E-12e 500.00/T | 1.3374E-11 | | R363 | XO2 + XO2 ----> | 7.13E-17e 2950.00/T | 1.4130E-12 | | TRP41 | APIP2 + APIP1 ----> 0.960\*HOM + 0.480\*ROH + 0.480\*PINAL + 0.480\*HO + 0.480\*HO2 + 0.040\*ELHOM | 1.0000E-10 | 1.0000E-10 | | TRP42 | APIP2 + LIMP1 ----> 0.960\*HOM + 0.480\*ROH + 0.480\*LIMAL + 0.480\*HO + 0.480\*HO2 + 0.040\*ELHOM | 1.0000E-10 | 1.0000E-10 | | TRP43 | APIP2 + ISOP ----> 0.960\*HOM + 0.480\*ROH + 0.480\*HCHO + 0.480\*MVK + 0.480\*HO + 0.480\*HO2 + 0.040\*ELHOM | 1.0000E-10 | 1.0000E-10 | | TRP44 | LIMP2 + APIP1 ----> 0.960\*HOM + 0.480\*ROH + 0.480\*PINAL + 0.480\*HO + 0.480\*HO2 + 0.040\*ELHOM | 1.0000E-10 | 1.0000E-10 | | TRP45 | LIMP2 + LIMP1 ----> 0.960\*HOM + 0.480\*ROH + 0.480\*LIMAL + 0.480\*HO + 0.480\*HO2 + 0.040\*ELHOM | 1.0000E-10 | 1.0000E-10 | | TRP46 | LIMP2 + ISOP ----> 0.960\*HOM + 0.480\*ROH + 0.480\*HCHO + 0.480\*MVK + 0.480\*HO + 0.480\*HO2 + 0.040\*ELHOM | 1.0000E-10 | 1.0000E-10 | | TRP47 | APINP2 + APIP1 ----> 0.960\*HOM + 0.480\*ROH + 0.480\*PINAL + 0.480\*NO2 + 0.480\*HO2 + 0.040\*ELHOM | 1.0000E-10 | 1.0000E-10 | | TRP48 | APINP2 + LIMP1 ----> 0.960\*HOM + 0.480\*ROH + 0.480\*LIMAL + 0.480\*NO2 + 0.480\*HO2 + 0.040\*ELHOM | 1.0000E-10 | 1.0000E-10 | | TRP49 | APINP2 + ISOP ----> 0.960\*HOM + 0.480\*ROH + 0.480\*HCHO + 0.480\*MVK + 0.480\*NO2 + 0.480\*HO2 + 0.040\*ELHOM | 1.0000E-10 | 1.0000E-10 | | TRP50 | LIMNP2 + APIP1 ----> 0.960\*HOM + 0.480\*ROH + 0.480\*PINAL + 0.480\*NO2 + 0.480\*HO2 + 0.040\*ELHOM | 1.0000E-10 | 1.0000E-10 | | TRP51 | LIMNP2 + LIMP1 ----> 0.960\*HOM + 0.480\*ROH + 0.480\*LIMAL + 0.480\*NO2 + 0.480\*HO2 + 0.040\*ELHOM | 1.0000E-10 | 1.0000E-10 | | TRP52 | LIMNP2 + ISOP ----> 0.960\*HOM + 0.480\*ROH + 0.480\*HCHO + 0.480\*MVK + 0.480\*NO2 + 0.480\*HO2 + 0.040\*ELHOM | 1.0000E-10 | 1.0000E-10 | | SA14 | IEPOX + HO ----> HO | 5.78E-11e -400.00/T | 1.5110E-11 | | R001c | VROCIOXY + HO ----> 0.852\*ETHP + 0.149\*ASOATJ | 6.8900E-12 | 6.8900E-12 | | R002c | SLOWROC + HO ----> ETHP + 0.001\*ASOATJ | 6.5500E-14 | 6.5500E-14 | | T17 | ACRO + HO ----> 0.570\*MACP + 0.430\*MCP | 8.00E-12e 380.00/T | 2.8616E-11 | | T18 | ACRO + O3 ----> 0.840\*CO + 0.560\*HO2 + 0.280\*HO + 0.720\*HCHO + 0.620\*GLY | 2.9000E-19 | 2.9000E-19 | | T19 | ACRO + NO3 ----> 0.680\*HCHO + 0.320\*MACP + 0.680\*XO2 + 0.680\*MGLY + 0.320\*HNO3 + 0.680\*NO2 | 3.4000E-15 | 3.4000E-15 | | T20 | ACRO ----> CO + 0.477\*HO2 + 0.250\*ETE + 0.354\*ACO3 + 0.204\*HO + 0.150\*HCHO + 0.027\*MO2 | ACRO_09 | Not Available1 | | T10 | BDE13 + HO ----> 0.667\*BDE13P + 0.333\*UALD + 0.333\*HO2 | 1.48E-11e 448.00/T | 6.6502E-11 | | T10a | BDE13P + NO ----> 0.968\*HO2 + 0.968\*NO2 + 0.895\*ACRO + 0.895\*HCHO + 0.072\*FURAN + 0.032\*ONIT | 9.0500E-12 | 9.0500E-12 | | T10b | BDE13P + NO3 ----> HO2 + NO2 + 0.925\*ACRO + 0.925\*HCHO + 0.075\*FURAN | 2.3000E-12 | 2.3000E-12 | | T10c | BDE13P + HO2 ----> OP2 | 1.6100E-11 | 1.6100E-11 | | T10d | BDE13P + MO2 ----> 0.320\*MOH + 1.143\*HCHO + 0.870\*HO2 + 0.463\*ACRO + 0.250\*OLT + 0.231\*MVK + 0.037\*FURAN + 0.019\*UALD | 2.3900E-12 | 2.3900E-12 | | T10e | BDE13P + ACO3 ----> 0.700\*MO2 + 0.300\*ORA2 + 0.800\*HO2 + 0.740\*ACRO + 0.740\*HCHO + 0.185\*MVK + 0.060\*FURAN + 0.015\*UALD | 1.3700E-11 | 1.3700E-11 | | T11 | BDE13 + O3 ----> 0.620\*ACRO + 0.630\*CO + 0.420\*HO2 + 0.080\*HO + 0.830\*HCHO + 0.170\*ETE | 1.34E-14e -2283.00/T | 6.3331E-18 | | T12 | BDE13 + NO3 ----> 0.900\*OLNN + 0.100\*OLND + 0.900\*ACRO | 1.0000E-13 | 1.0000E-13 | | R003c | FURAN + HO ----> 0.490\*DCB1 + 0.490\*HO2 + 0.510\*FURANO2 | 5.0100E-11 | 5.0100E-11 | | R004c | FURANO2 + NO ----> 0.080\*ONIT + 0.920\*NO2 + 0.920\*FURANONE + 0.750\*HO2 + 0.170\*MO2 | 2.70E-12e 360.00/T | 9.0313E-12 | | R005c | FURANO2 + HO2 ----> 0.600\*OP2 + 0.400\*FURANONE + 0.400\*HO + 0.320\*HO2 + 0.080\*MO2 | 3.75E-13e 980.00/T | 1.0035E-11 | | R006c | FURANONE + HO ----> 0.650\*KET + 0.310\*GLY + 0.660\*HO2 + 0.340\*MO2 + 0.430\*CO + 0.040\*ASOATJ | 4.4000E-11 | 4.4000E-11 | | R007c | FURAN + O3 ----> 0.020\*HO + ALD | 3.4300E-17 | 3.4300E-17 | | R008c | FURAN + NO3 ----> NO2 + 0.800\*DCB1 + 0.200\*DCB3 | 8.9900E-12 | 8.9900E-12 | | R010c | PROG + HO ----> 0.613\*HKET + 0.387\*ALD + HO2 | 1.2000E-11 | 1.2000E-11 | | R011c | SESQ + NO3 ----> SESQNRO2 | 1.9000E-11 | 1.9000E-11 | | R012c | SESQNRO2 + HO2 ----> VROCP0OXY4 | 2.84E-13e 1300.00/T | 2.2230E-11 | | R013c | SESQNRO2 + NO ----> VROCP3OXY2 + 2.000\*NO2 | 2.70E-12e 360.00/T | 9.0313E-12 | | R014c | SESQNRO2 + NO3 ----> VROCP3OXY2 + 2.000\*NO2 | 2.3000E-12 | 2.3000E-12 | | R015c | SESQ + O3 ----> 0.982\*VROCP3OXY2 + 0.018\*VROCN2OXY2 | 1.2000E-14 | 1.2000E-14 | | R016c | SESQ + HO ----> SESQRO2 | 1.9700E-10 | 1.9700E-10 | | R017c | SESQRO2 + HO2 ----> VROCP0OXY2 | 2.84E-13e 1300.00/T | 2.2230E-11 | | R019c | SESQRO2 + NO3 ----> VROCP3OXY2 | 2.3000E-12 | 2.3000E-12 | | R020c | SESQRO2 + NO ----> 0.247\*VROCP1OXY3 + 0.753\*VROCP3OXY2 + 0.753\*NO2 | 2.70E-12e 360.00/T | 9.0313E-12 | | HET_GLY | GLY ----> AGLYJ | HETERO_GLY | Not Available2 | | HET_MGLY | MGLY ----> AGLYJ | HETERO_MGLY | Not Available2 | | HET_N2O5 | N2O5 ----> 2.000\*HNO3 | HETERO_N2O5IJ | Not Available2 | | HET_N02 | NO2 ----> 0.500\*HONO + 0.500\*HNO3 | HETERO_NO2 | Not Available2 | | HAL_Ozone | O3 ----> | SEAWATER*min( 6.701E-11e 1.074E+01P+ 3.415E-08e-6.713E-01P,
2.000E-06) | 2.0000E-064| | HET_IEPOX | IEPOX ----> IEPOXP | HETERO_IEPOX | Not Available2 | | HET_ISO3TET | IEPOXP ----> AISO3NOSJ | HETERO_ISO3NOSJ | Not Available2 | | HET_IEPOXOS | IEPOXP + ASO4J ----> AISO3OSJ | HETERO_ISO3OSJ | Not Available2 | | ROCALK1c | VROCP6ALK + HO ----> VROCP6ALKP | 1.5300E-11 | 1.5300E-11 | | ROCALK2c | VROCP5ALK + HO ----> VROCP5ALKP | 1.6800E-11 | 1.6800E-11 | | ROCALK3c | VROCP4ALK + HO ----> VROCP4ALKP | 2.2400E-11 | 2.2400E-11 | | ROCALK4c | VROCP3ALK + HO ----> VROCP3ALKP | 2.6700E-11 | 2.6700E-11 | | ROCALK5c | VROCP2ALK + HO ----> VROCP2ALKP | 3.0900E-11 | 3.0900E-11 | | ROCALK6c | VROCP1ALK + HO ----> VROCP1ALKP | 3.3800E-11 | 3.3800E-11 | | HC1001 | HC10 + HO ----> HC10P | 1.1000E-11 | 1.1000E-11 | | ROCALK7c | VROCP6ALKP + NO ----> 0.720\*VROCP6ALKP2 + 0.280\*VROCP4OXY2 + 0.720\*NO2 | 2.70E-12e 360.00/T | 9.0313E-12 | | ROCALK8c | VROCP5ALKP + NO ----> 0.720\*VROCP5ALKP2 + 0.280\*VROCP3OXY2 + 0.720\*NO2 | 2.70E-12e 360.00/T | 9.0313E-12 | | ROCALK9c | VROCP4ALKP + NO ----> 0.720\*VROCP4ALKP2 + 0.280\*VROCP2OXY2 + 0.720\*NO2 | 2.70E-12e 360.00/T | 9.0313E-12 | | ROCALK10c | VROCP3ALKP + NO ----> 0.720\*VROCP3ALKP2 + 0.280\*VROCP1OXY1 + 0.720\*NO2 | 2.70E-12e 360.00/T | 9.0313E-12 | | ROCALK11c | VROCP2ALKP + NO ----> 0.720\*VROCP2ALKP2 + 0.280\*VROCP0OXY2 + 0.720\*NO2 | 2.70E-12e 360.00/T | 9.0313E-12 | | ROCALK12c | VROCP1ALKP + NO ----> 0.720\*VROCP1ALKP2 + 0.280\*VROCN1OXY1 + 0.720\*NO2 | 2.70E-12e 360.00/T | 9.0313E-12 | | HC1002 | HC10P + NO ----> 0.740\*HC10P2 + 0.260\*ONIT + 0.740\*NO2 | 2.70E-12e 360.00/T | 9.0313E-12 | | ROCALK13c | VROCP6ALKP + NO3 ----> VROCP6ALKP2 + NO2 | 2.3000E-12 | 2.3000E-12 | | ROCALK14c | VROCP5ALKP + NO3 ----> VROCP5ALKP2 + NO2 | 2.3000E-12 | 2.3000E-12 | | ROCALK15c | VROCP4ALKP + NO3 ----> VROCP4ALKP2 + NO2 | 2.3000E-12 | 2.3000E-12 | | ROCALK16c | VROCP3ALKP + NO3 ----> VROCP3ALKP2 + NO2 | 2.3000E-12 | 2.3000E-12 | | ROCALK17c | VROCP2ALKP + NO3 ----> VROCP2ALKP2 + NO2 | 2.3000E-12 | 2.3000E-12 | | ROCALK18c | VROCP1ALKP + NO3 ----> VROCP1ALKP2 + NO2 | 2.3000E-12 | 2.3000E-12 | | HC1003 | HC10P + NO3 ----> HC10P2 + NO2 | 2.3000E-12 | 2.3000E-12 | | ROCALK19c | VROCP6ALKP + HO2 ----> VROCP3OXY2 | 2.1700E-11 | 2.1700E-11 | | ROCALK20c | VROCP5ALKP + HO2 ----> VROCP2OXY2 | 2.2000E-11 | 2.2000E-11 | | ROCALK21c | VROCP4ALKP + HO2 ----> VROCP1OXY1 | 2.2500E-11 | 2.2500E-11 | | ROCALK22c | VROCP3ALKP + HO2 ----> VROCP0OXY2 | 2.2600E-11 | 2.2600E-11 | | ROCALK23c | VROCP2ALKP + HO2 ----> VROCN1OXY1 | 2.2700E-11 | 2.2700E-11 | | ROCALK24c | VROCP1ALKP + HO2 ----> VROCN2OXY2 | 2.2700E-11 | 2.2700E-11 | | HC1004 | HC10P + HO2 ----> OP2 | 2.66E-13e 1300.00/T | 2.0821E-11 | | ROCALK25c | VROCP6ALKP2 ----> HO2 + VROCP3OXY2 | 1.8800E-01 | 1.8800E-01 | | ROCALK26c | VROCP5ALKP2 ----> HO2 + VROCP2OXY2 | 1.8800E-01 | 1.8800E-01 | | ROCALK27c | VROCP4ALKP2 ----> HO2 + VROCP1OXY1 | 1.8800E-01 | 1.8800E-01 | | ROCALK28c | VROCP3ALKP2 ----> HO2 + VROCP0OXY2 | 1.8800E-01 | 1.8800E-01 | | ROCALK29c | VROCP2ALKP2 ----> HO2 + VROCN1OXY1 | 1.8800E-01 | 1.8800E-01 | | ROCALK30c | VROCP1ALKP2 ----> HO2 + VROCN2OXY2 | 1.8800E-01 | 1.8800E-01 | | HC1005 | HC10P2 ----> HO2 + VROCP4OXY2 | 1.8800E-01 | 1.8800E-01 | | ROCALK31c | VROCP6ALKP2 + NO ----> 0.140\*VROCP2OXY2 + 0.860\*NO2 + 0.860\*VROCP3OXY2 + 0.860\*HO2 | 2.70E-12e 360.00/T | 9.0313E-12 | | ROCALK32c | VROCP5ALKP2 + NO ----> 0.140\*VROCP1OXY3 + 0.860\*NO2 + 0.860\*VROCP2OXY2 + 0.860\*HO2 | 2.70E-12e 360.00/T | 9.0313E-12 | | ROCALK33c | VROCP4ALKP2 + NO ----> 0.140\*VROCP0OXY2 + 0.860\*NO2 + 0.860\*VROCP1OXY1 + 0.860\*HO2 | 2.70E-12e 360.00/T | 9.0313E-12 | | ROCALK34c | VROCP3ALKP2 + NO ----> 0.140\*VROCN1OXY1 + 0.860\*NO2 + 0.860\*VROCP0OXY2 + 0.860\*HO2 | 2.70E-12e 360.00/T | 9.0313E-12 | | ROCALK35c | VROCP2ALKP2 + NO ----> 0.140\*VROCN2OXY2 + 0.860\*NO2 + 0.860\*VROCN1OXY1 + 0.860\*HO2 | 2.70E-12e 360.00/T | 9.0313E-12 | | ROCALK36c | VROCP1ALKP2 + NO ----> VROCN2OXY2 + 0.860\*NO2 + 0.860\*HO2 | 2.70E-12e 360.00/T | 9.0313E-12 | | HC1006 | HC10P2 + NO ----> 0.120\*ONIT + 0.880\*NO2 + 0.880\*KET + 0.880\*HO2 | 2.70E-12e 360.00/T | 9.0313E-12 | | ROCALK37c | VROCP6ALKP2 + NO3 ----> NO2 + VROCP3OXY2 + HO2 | 2.3000E-12 | 2.3000E-12 | | ROCALK38c | VROCP5ALKP2 + NO3 ----> NO2 + VROCP2OXY2 + HO2 | 2.3000E-12 | 2.3000E-12 | | ROCALK39c | VROCP4ALKP2 + NO3 ----> NO2 + VROCP1OXY1 + HO2 | 2.3000E-12 | 2.3000E-12 | | ROCALK40c | VROCP3ALKP2 + NO3 ----> NO2 + VROCP0OXY2 + HO2 | 2.3000E-12 | 2.3000E-12 | | ROCALK41c | VROCP2ALKP2 + NO3 ----> NO2 + VROCN1OXY1 + HO2 | 2.3000E-12 | 2.3000E-12 | | ROCALK42c | VROCP1ALKP2 + NO3 ----> NO2 + VROCN2OXY2 + HO2 | 2.3000E-12 | 2.3000E-12 | | HC1007 | HC10P2 + NO3 ----> NO2 + KET + HO2 | 2.3000E-12 | 2.3000E-12 | | ROCALK43c | VROCP6ALKP2 + HO2 ----> VROCP1OXY3 | 2.1700E-11 | 2.1700E-11 | | ROCALK44c | VROCP5ALKP2 + HO2 ----> VROCP0OXY2 | 2.2000E-11 | 2.2000E-11 | | ROCALK45c | VROCP4ALKP2 + HO2 ----> VROCN1OXY1 | 2.2500E-11 | 2.2500E-11 | | ROCALK46c | VROCP3ALKP2 + HO2 ----> VROCN2OXY2 | 2.2600E-11 | 2.2600E-11 | | ROCALK47c | VROCP2ALKP2 + HO2 ----> VROCN2OXY2 | 2.2700E-11 | 2.2700E-11 | | ROCALK48c | VROCP1ALKP2 + HO2 ----> VROCN2OXY2 | 2.2700E-11 | 2.2700E-11 | | HC1008 | HC10P2 + HO2 ----> VROCP2OXY2 | 2.66E-13e 1300.00/T | 2.0821E-11 | | ROCARO01 | VROCP6ARO + HO ----> 0.840\*VROCP6AROP + 0.160\*HO2 + 0.160\*VROCP4OXY2 | 1.8100E-11 | 1.8100E-11 | | ROCARO02 | VROCP6AROP + HO2 ----> 0.059\*VROCP4OXY2 + 0.905\*VROCP1OXY3 + 0.036\*VROCN2OXY4 | 2.91E-13e 1300.00/T | 2.2778E-11 | | ROCARO03 | VROCP6AROP + NO ----> 0.000\*VROCP4OXY2 + 0.002\*VROCP2OXY2 + 0.000\*VROCN1OXY3 + 0.998\*NO2 + 0.998\*HO2 + 0.059\*BALD + 0.469\*GLY + 0.469\*MGLY + 0.469\*FURANONE + 0.469\*DCB2 | 2.70E-12e 360.00/T | 9.0313E-12 | | ROCARO04 | VROCP6AROP + NO3 ----> NO2 + 0.941\*HO2 + 0.059\*BALD + 0.470\*GLY + 0.470\*MGLY + 0.470\*FURANONE + 0.470\*DCB2 | 2.3000E-12 | 2.3000E-12 | | ROCARO05 | VROCP6AROP + MO2 ----> 0.680\*HCHO + 1.310\*HO2 + 0.320\*MOH + 0.059\*BALD + 0.470\*GLY + 0.470\*MGLY + 0.470\*FURANONE + 0.470\*DCB2 | 3.56E-14e 708.00/T | 3.8260E-13 | | ROCARO06 | VROCP6AROP + ACO3 ----> 0.700\*MO2 + 0.941\*HO2 + 0.300\*ORA2 + 0.059\*BALD + 0.470\*GLY + 0.470\*MGLY + 0.470\*FURANONE + 0.470\*DCB2 | 7.40E-13e 765.00/T | 9.6284E-12 | | ROCARO11 | VROCP5ARO + HO ----> 0.840\*VROCP5AROP + 0.160\*HO2 + 0.160\*VROCP3OXY2 | 1.8100E-11 | 1.8100E-11 | | ROCARO12 | VROCP5AROP + HO2 ----> 0.059\*VROCP3OXY2 + 0.905\*VROCP0OXY2 + 0.036\*VROCN2OXY4 | 2.91E-13e 1300.00/T | 2.2778E-11 | | ROCARO13 | VROCP5AROP + NO ----> 0.000\*VROCP3OXY2 + 0.002\*VROCP1OXY3 + 0.000\*VROCN2OXY4 + 0.998\*NO2 + 0.998\*HO2 + 0.059\*VROCP4OXY2 + 0.469\*GLY + 0.469\*MGLY + 0.469\*FURANONE + 0.469\*DCB2 | 2.70E-12e 360.00/T | 9.0313E-12 | | ROCARO14 | VROCP5AROP + NO3 ----> NO2 + 0.941\*HO2 + 0.059\*VROCP4OXY2 + 0.470\*GLY + 0.470\*MGLY + 0.470\*FURANONE + 0.470\*DCB2 | 2.3000E-12 | 2.3000E-12 | | ROCARO15 | VROCP5AROP + MO2 ----> 0.680\*HCHO + 1.310\*HO2 + 0.320\*MOH + 0.059\*VROCP4OXY2 + 0.470\*GLY + 0.470\*MGLY + 0.470\*FURANONE + 0.470\*DCB2 | 3.56E-14e 708.00/T | 3.8260E-13 | | ROCARO16 | VROCP5AROP + ACO3 ----> 0.700\*MO2 + 0.941\*HO2 + 0.300\*ORA2 + 0.059\*VROCP4OXY2 + 0.470\*GLY + 0.470\*MGLY + 0.470\*FURANONE + 0.470\*DCB2 | 7.40E-13e 765.00/T | 9.6284E-12 | | ROCARO21 | NAPH + HO ----> 0.840\*NAPHP + 0.160\*HO2 + 0.160\*VROCP3OXY2 | 2.3100E-11 | 2.3100E-11 | | ROCARO22 | NAPHP + HO2 ----> 0.059\*VROCP3OXY2 + 0.905\*VROCP1OXY3 + 0.036\*VROCN2OXY8 | 2.91E-13e 1300.00/T | 2.2778E-11 | | ROCARO23 | NAPHP + NO ----> 0.060\*VROCP4OXY2 + 0.002\*VROCP2OXY2 + 0.000\*VROCN2OXY8 + 0.998\*NO2 + 0.998\*HO2 + 0.469\*GLY + 0.469\*MGLY + 0.469\*FURANONE + 0.469\*DCB2 | 2.70E-12e 360.00/T | 9.0313E-12 | | ROCARO24 | NAPHP + NO3 ----> NO2 + 0.941\*HO2 + 0.059\*VROCP4OXY2 + 0.470\*GLY + 0.470\*MGLY + 0.470\*FURANONE + 0.470\*DCB2 | 2.3000E-12 | 2.3000E-12 | | ROCARO25 | NAPHP + MO2 ----> 0.680\*HCHO + 1.310\*HO2 + 0.320\*MOH + 0.059\*VROCP4OXY2 + 0.470\*GLY + 0.470\*MGLY + 0.470\*FURANONE + 0.470\*DCB2 | 3.56E-14e 708.00/T | 3.8260E-13 | | ROCARO26 | NAPHP + ACO3 ----> 0.700\*MO2 + 0.941\*HO2 + 0.300\*ORA2 + 0.059\*VROCP4OXY2 + 0.470\*GLY + 0.470\*MGLY + 0.470\*FURANONE + 0.470\*DCB2 | 7.40E-13e 765.00/T | 9.6284E-12 | | ROCOXY1c | VROCN2OXY8 + HO ----> HO + 0.085\*VROCN2OXY8 + 0.258\*DCB1 + 0.258\*MEK + 0.258\*ACD + 0.258\*ALD + 0.258\*MO2 + 0.258\*ETHP + 0.258\*HC3P + 0.258\*MEKP | 5.9000E-11 | 5.9000E-11 | | ROCOXY2c | VROCN2OXY4 + HO ----> HO + 0.464\*VROCN2OXY8 + 0.198\*VROCN2OXY4 + 0.012\*VROCN1OXY6 + 0.015\*VROCN1OXY3 + 0.062\*VROCP0OXY4 + 0.039\*VROCP1OXY3 + 0.049\*VROCP2OXY2 + 0.040\*VROCP3OXY2 + 0.018\*VROCP4OXY2 + 0.031\*OP3 + 0.004\*OP2 + 0.079\*DCB1 + 0.079\*MEK + 0.079\*KET + 0.079\*ACD + 0.079\*ALD + 0.079\*MO2 + 0.079\*ETHP + 0.079\*HC3P + 0.079\*MEKP + 0.079\*HC5P + 0.079\*KETP | 6.0700E-11 | 6.0700E-11 | | ROCOXY3c | VROCN2OXY2 + HO ----> HO + 0.104\*VROCN2OXY8 + 0.564\*VROCN2OXY4 + 0.214\*VROCN2OXY2 + 0.015\*VROCN1OXY6 + 0.030\*VROCN1OXY3 + 0.010\*VROCN1OXY1 + 0.019\*VROCP0OXY4 + 0.046\*VROCP0OXY2 + 0.031\*VROCP1OXY3 + 0.020\*VROCP1OXY1 + 0.046\*VROCP2OXY2 + 0.045\*VROCP3OXY2 + 0.045\*VROCP4OXY2 + 0.033\*VROCP5OXY1 + 0.037\*VROCP6OXY1 + 0.003\*OP3 + 0.039\*DCB1 + 0.039\*HKET + 0.039\*MEK + 0.039\*ACD + 0.039\*ALD + 0.039\*MO2 + 0.039\*ETHP + 0.039\*HC3P + 0.039\*MEKP + 0.092\*HC5P | 5.5400E-11 | 5.5400E-11 | | ROCOXY4c | VROCN1OXY6 + HO ----> HO + 0.204\*VROCN2OXY8 + 0.007\*VROCN2OXY4 + 0.184\*DCB1 + 0.184\*MEK + 0.184\*KET + 0.184\*ACD + 0.184\*ALD + 0.184\*MO2 + 0.184\*ETHP + 0.184\*HC3P + 0.184\*MEKP + 0.184\*HC5P | 5.6300E-11 | 5.6300E-11 | | ROCOXY5c | VROCN1OXY3 + HO ----> HO + 0.279\*VROCN2OXY8 + 0.403\*VROCN2OXY4 + 0.009\*VROCN2OXY2 + 0.032\*VROCN1OXY6 + 0.008\*VROCN1OXY3 + 0.019\*VROCP0OXY4 + 0.010\*VROCP0OXY2 + 0.051\*VROCP1OXY3 + 0.007\*VROCP1OXY1 + 0.051\*VROCP2OXY2 + 0.046\*VROCP3OXY2 + 0.051\*VROCP4OXY2 + 0.014\*VROCP5OXY1 + 0.013\*OP2 + 0.065\*DCB1 + 0.065\*HKET + 0.065\*MEK + 0.065\*ACD + 0.065\*ALD + 0.065\*MO2 + 0.065\*ETHP + 0.065\*HC3P + 0.065\*MEKP + 0.175\*HC5P | 5.4600E-11 | 5.4600E-11 | | ROCOXY6c | VROCN1OXY1 + HO ----> HO + 0.007\*VROCN2OXY8 + 0.119\*VROCN2OXY4 + 0.726\*VROCN2OXY2 + 0.012\*VROCN1OXY6 + 0.030\*VROCN1OXY3 + 0.007\*VROCN1OXY1 + 0.029\*VROCP0OXY4 + 0.045\*VROCP0OXY2 + 0.023\*VROCP1OXY3 + 0.035\*VROCP1OXY1 + 0.062\*VROCP2OXY2 + 0.052\*VROCP3OXY2 + 0.051\*VROCP4OXY2 + 0.035\*VROCP5OXY1 + 0.075\*VROCP6OXY1 + 0.016\*OP3 + 0.006\*OP2 + 0.024\*DCB1 + 0.024\*HKET + 0.024\*MEK + 0.024\*ACD + 0.024\*ALD + 0.024\*MO2 + 0.024\*ETHP + 0.024\*HC3P + 0.024\*MEKP + 0.054\*HC5P | 4.5000E-11 | 4.5000E-11 | | ROCOXY7c | VROCP0OXY4 + HO ----> HO + 0.282\*VROCN2OXY8 + 0.117\*VROCN2OXY4 + 0.032\*VROCN1OXY6 + 0.018\*VROCN1OXY3 + 0.001\*VROCP0OXY4 + 0.066\*VROCP2OXY2 + 0.053\*VROCP3OXY2 + 0.025\*VROCP4OXY2 + 0.005\*OP2 + 0.107\*DCB1 + 0.107\*MEK + 0.107\*KET + 0.107\*ACD + 0.107\*ALD + 0.107\*MO2 + 0.107\*ETHP + 0.107\*HC3P + 0.107\*MEKP + 0.107\*HC5P + 0.107\*KETP | 5.1700E-11 | 5.1700E-11 | | ROCOXY8c | VROCP0OXY2 + HO ----> HO + 0.066\*VROCN2OXY8 + 0.458\*VROCN2OXY4 + 0.116\*VROCN2OXY2 + 0.033\*VROCN1OXY6 + 0.066\*VROCN1OXY3 + 0.005\*VROCN1OXY1 + 0.031\*VROCP0OXY4 + 0.002\*VROCP0OXY2 + 0.040\*VROCP1OXY3 + 0.021\*VROCP1OXY1 + 0.054\*VROCP2OXY2 + 0.052\*VROCP3OXY2 + 0.052\*VROCP4OXY2 + 0.037\*VROCP5OXY1 + 0.042\*VROCP6OXY1 + 0.011\*OP3 + 0.044\*DCB1 + 0.044\*HKET + 0.044\*MEK + 0.044\*ACD + 0.044\*ALD + 0.044\*MO2 + 0.044\*ETHP + 0.044\*HC3P + 0.044\*MEKP + 0.105\*HC5P | 4.7300E-11 | 4.7300E-11 | | ROCOXY9c | VROCP1OXY3 + HO ----> HO + 0.178\*VROCN2OXY8 + 0.192\*VROCN2OXY4 + 0.000\*VROCN2OXY2 + 0.074\*VROCN1OXY6 + 0.045\*VROCN1OXY3 + 0.063\*VROCP0OXY4 + 0.001\*VROCP0OXY2 + 0.001\*VROCP1OXY3 + 0.023\*VROCP2OXY2 + 0.059\*VROCP3OXY2 + 0.065\*VROCP4OXY2 + 0.017\*VROCP5OXY1 + 0.015\*OP3 + 0.017\*OP2 + 0.082\*DCB1 + 0.082\*HKET + 0.082\*MEK + 0.082\*ACD + 0.082\*ALD + 0.082\*MO2 + 0.082\*ETHP + 0.082\*HC3P + 0.082\*MEKP + 0.222\*HC5P | 4.6000E-11 | 4.6000E-11 | | ROCOXY10c | VROCP1OXY1 + HO ----> HO + 0.002\*VROCN2OXY8 + 0.134\*VROCN2OXY4 + 0.335\*VROCN2OXY2 + 0.008\*VROCN1OXY6 + 0.119\*VROCN1OXY3 + 0.076\*VROCN1OXY1 + 0.029\*VROCP0OXY4 + 0.077\*VROCP0OXY2 + 0.028\*VROCP1OXY3 + 0.012\*VROCP1OXY1 + 0.065\*VROCP2OXY2 + 0.071\*VROCP3OXY2 + 0.067\*VROCP4OXY2 + 0.042\*VROCP5OXY1 + 0.091\*VROCP6OXY1 + 0.007\*OP3 + 0.003\*OP2 + 0.030\*DCB1 + 0.030\*HKET + 0.030\*MEK + 0.030\*ACD + 0.030\*ALD + 0.030\*MO2 + 0.030\*ETHP + 0.030\*HC3P + 0.030\*MEKP + 0.065\*HC5P | 3.8000E-11 | 3.8000E-11 | | ROCOXY11c | VROCP2OXY2 + HO ----> HO + 0.044\*VROCN2OXY8 + 0.173\*VROCN2OXY4 + 0.010\*VROCN2OXY2 + 0.051\*VROCN1OXY6 + 0.112\*VROCN1OXY3 + 0.001\*VROCN1OXY1 + 0.134\*VROCP0OXY4 + 0.040\*VROCP0OXY2 + 0.051\*VROCP1OXY3 + 0.007\*VROCP1OXY1 + 0.024\*VROCP2OXY2 + 0.029\*VROCP3OXY2 + 0.073\*VROCP4OXY2 + 0.052\*VROCP5OXY1 + 0.059\*VROCP6OXY1 + 0.004\*OP3 + 0.002\*OP2 + 0.063\*DCB1 + 0.063\*HKET + 0.063\*MEK + 0.063\*ACD + 0.063\*ALD + 0.063\*MO2 + 0.063\*ETHP + 0.063\*HC3P + 0.063\*MEKP + 0.149\*HC5P | 3.9300E-11 | 3.9300E-11 | | ROCOXY12c | VROCP3OXY2 + HO ----> HO + 0.032\*VROCN2OXY8 + 0.076\*VROCN2OXY4 + 0.001\*VROCN2OXY2 + 0.053\*VROCN1OXY6 + 0.049\*VROCN1OXY3 + 0.155\*VROCP0OXY4 + 0.015\*VROCP0OXY2 + 0.105\*VROCP1OXY3 + 0.001\*VROCP1OXY1 + 0.053\*VROCP2OXY2 + 0.009\*VROCP3OXY2 + 0.043\*VROCP4OXY2 + 0.058\*VROCP5OXY1 + 0.066\*VROCP6OXY1 + 0.051\*OP3 + 0.011\*OP2 + 0.070\*DCB1 + 0.070\*HKET + 0.070\*MEK + 0.070\*ACD + 0.070\*ALD + 0.070\*MO2 + 0.070\*ETHP + 0.070\*HC3P + 0.070\*MEKP + 0.166\*HC5P | 3.5200E-11 | 3.5200E-11 | | ROCOXY13c | VROCP4OXY2 + HO ----> HO + 0.012\*VROCN2OXY8 + 0.017\*VROCN2OXY4 + 0.048\*VROCN1OXY6 + 0.025\*VROCN1OXY3 + 0.088\*VROCP0OXY4 + 0.092\*VROCP1OXY3 + 0.007\*VROCP1OXY1 + 0.097\*VROCP2OXY2 + 0.046\*VROCP3OXY2 + 0.002\*VROCP4OXY2 + 0.048\*VROCP5OXY1 + 0.074\*VROCP6OXY1 + 0.061\*OP3 + 0.015\*OP2 + 0.079\*DCB1 + 0.079\*HKET + 0.079\*MEK + 0.079\*ACD + 0.079\*ALD + 0.079\*MO2 + 0.079\*ETHP + 0.079\*HC3P + 0.079\*MEKP + 0.173\*HC5P | 3.1200E-11 | 3.1200E-11 | | ROCOXY14c | VROCP5OXY1 + HO ----> HO + 0.010\*VROCN2OXY4 + 0.001\*VROCN2OXY2 + 0.009\*VROCN1OXY6 + 0.015\*VROCN1OXY3 + 0.070\*VROCP0OXY4 + 0.015\*VROCP0OXY2 + 0.104\*VROCP1OXY3 + 0.003\*VROCP1OXY1 + 0.165\*VROCP2OXY2 + 0.157\*VROCP3OXY2 + 0.072\*VROCP4OXY2 + 0.006\*VROCP5OXY1 + 0.140\*VROCP6OXY1 + 0.022\*OP3 + 0.038\*OP2 + 0.053\*DCB1 + 0.053\*HKET + 0.053\*MEK + 0.053\*ACD + 0.053\*ALD + 0.053\*MO2 + 0.053\*ETHP + 0.053\*HC3P + 0.053\*MEKP + 0.128\*HC5P | 2.4000E-11 | 2.4000E-11 | | ROCOXY15c | VROCP6OXY1 + HO ----> HO + 0.006\*VROCN1OXY6 + 0.005\*VROCN1OXY3 + 0.022\*VROCP0OXY4 + 0.050\*VROCP1OXY3 + 0.002\*VROCP1OXY1 + 0.088\*VROCP2OXY2 + 0.138\*VROCP3OXY2 + 0.146\*VROCP4OXY2 + 0.043\*VROCP5OXY1 + 0.096\*VROCP6OXY1 + 0.032\*OP3 + 0.059\*OP2 + 0.057\*DCB1 + 0.057\*HKET + 0.057\*MEK + 0.057\*ACD + 0.057\*ALD + 0.057\*MO2 + 0.057\*ETHP + 0.057\*HC3P + 0.057\*MEKP + 0.154\*HC5P | 2.0500E-11 | 2.0500E-11 | | ROCOXY16c | OP3 + HO ----> HO + 0.119\*VROCN2OXY8 + 0.001\*VROCN2OXY4 + 0.039\*VROCN1OXY6 + 0.011\*VROCP0OXY4 + 0.227\*DCB1 + 0.227\*MEK + 0.227\*ACD + 0.227\*ALD + 0.227\*MO2 + 0.227\*ETHP + 0.227\*HC3P + 0.227\*MEKP | 4.6900E-11 | 4.6900E-11 | 0Units molecules/(sec*cm3); Value at 298.15 K; 2.4615E+19 molecules/cm3; 1.00 Atm. 1Photolysis Reaction; depends on radiation and predicted concentrations 2Heterogeneous Reaction; depends on predicted concentrations 4Set to zero if sun is below the horizon. SEAWATER equals surface fraction covered by ice free open ocean plus surf zones. P equals air pressure in atmospheres. 8Rate constant scaled as reverse equilibrium to constant for listed reaction ================================================ FILE: CCTM/src/MECHS/mechanism_information/cracmm1amore_aq/cracmm1amore_aq_species_table.md ================================================ Gas (G) and particle (P) species from the namelists. SMILES link to representative structures in the EPA Chemicals Dashboard (if available). Note that for each particulate species in CMAQ, a letter will be appended to the name to designate the size, or mode, of the aerosol being represented: I = Aitken mode, J = Accumulation mode, K = Coarse mode. Prepending of a species with a V or A in CMAQ or the chemical mechanism files indicates the species resides in the gas or particulate phase. Species | Description | Phase | Molecular Weight (g/mol) | Explicit/ Lumped | Representative Structure | SMILES ----- | ----- | ----- | ----- | ----- | ----- | ----- AAL|Aluminum ion|P|27.0|E|Aluminum ion|[\[Al+3\]](https://comptox.epa.gov/dashboard/chemical/details/DTXSID70912343) ACA|Calcium ion|P|40.1|E|Calcium ion|[\[Ca++\]](https://comptox.epa.gov/dashboard/chemical/details/DTXSID7037638) ACD|Acetaldehyde |G|44.0|E|Acetaldehyde|[CC=O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID5039224) ACE|Acetylene |G|26.0|E|Acetylene|[C#C](https://comptox.epa.gov/dashboard/chemical/details/DTXSID6026379) ACL|Chloride ion|P|35.5|E|Chloride ion|[\[Cl-\]](https://comptox.epa.gov/dashboard/chemical/details/DTXSID6043969) ACO3|Acetyl peroxy radicals|G|75.0|E|Acetylperoxy|[CC\(=O\)O\[O\]](https://comptox.epa.gov/dashboard/chemical/details/DTXSID40957943) ACORS|Primary unspeciated coarse PM|P|100.0|L|Coarse PM| ACRO|Acrolein|G|56.1|E|Acrolein|[C=CC=O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID5020023) ACT|Acetone|G|58.0|E|Acetone|[CC\(C\)=O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID8021482) ACTP|Peroxy radicals formed from ACT|G|89.0|E|(2-oxopropyl)peroxy|CC\(=O\)CO\[O\] ADCN|Aromatic-NO3 adduct from PHEN|G|155.0|L|4-oxocyclohex-2-en-1-yl nitrate|OC1=C\[C\]C\(O\[N+\]\(\[O-\]\)=O\)C=C1 ADDC|Aromatic-HO adduct from CSL|G|125.0|L|3-methyl-5-oxocyclohex-3-en-1-yloxidanyl|CC1=CC\(O\)=CC\(\[O\]\)C1 AEC|Elemental carbon|P|12.0|L|Carbon|\[C\] AFE|Iron ion|P|55.8|E|Iron ion|[\[Fe++\]](https://comptox.epa.gov/dashboard/chemical/details/DTXSID4042672) AGLY|SOA from reactive uptake of glyoxal on particles|P|66.4|L|2-(4,5-dihydroxy-1,3-dioxolan-2-yl)-1,3-dioxolane-4,5-diol|OC2OC\(C1OC\(O\)C\(O\)O1\)OC2O AH2O|Water associated with particulate inorganic compounds|P|18.0|E|Water|[O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID6026296) AH3OP|Hydronium ion tracer|P|19.0|E|Hydronium ion|[\[OH3+\]](https://comptox.epa.gov/dashboard/chemical/details/DTXSID20893597) AISO3NOS|Non-sulfated SOA from IEPOX uptake|P|136.2|L|2-methylbutane-1,2,3,4-tetrol|C\(O\)C\(O\)\(C\)C\(O\)CO AISO3OS|Organosulfate SOA from IEPOX uptake|P|216.2|L|(1,3,4-trihydroxy-2-methylbutan-2-yl)oxysulfonic acid|C\(O\)C\(OS\(O\)\(=O\)\(=O\)\)\(C\)C\(O\)CO AK|Potassium ion|P|39.1|E|Potassium ion|[\[K+\]](https://comptox.epa.gov/dashboard/chemical/details/DTXSID9042671) ALD|C3 and higher aldehydes|G|58.0|L|Propanal|[CCC=O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID2021658) AMG|Magnesium ion|P|24.3|E|Magnesium ion|\[Mg++\] AMN|Manganese ion|P|54.9|L|Manganese ions|[\[Mn++\]](https://comptox.epa.gov/dashboard/chemical/details/DTXSID00167687) ANA|Sodium ion|P|23.0|E|Sodium ion|[\[Na+\]](https://comptox.epa.gov/dashboard/chemical/details/DTXSID8037671) ANH4|Ammonium ion|P|18.0|E|Ammonium ion|[\[NH4+\]](https://comptox.epa.gov/dashboard/chemical/details/DTXSID5043974) ANO3|Nitrate ion|P|62.0|E|Nitrate ion|[\[N+\]\(=O\)\(\[O-\]\)\[O-\]](https://comptox.epa.gov/dashboard/chemical/details/DTXSID5024217) AORGC|SOA from cloud processing of GLY and MGLY|P|177.0|L|2-(4,5-dihydroxy-1,3-dioxolan-2-yl)-1,3-dioxolane-4,5-diol|OC2OC\(C1OC\(O\)C\(O\)O1\)OC2O AORGH2O|Water associated with particulate organic compounds|P|18.0|E|Water|[O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID6026296) AOTHR|Primary unspeciated fine PM|P|200.0|L|Unspeciated PM| API|Alpha-pinenes and other cyclic terpenes with one double bond|G|136.4|L|alpha-pinene|[CC1=CCC2CC1C2\(C\)C](https://comptox.epa.gov/dashboard/chemical/details/DTXSID4026501) APINP1|Peroxy radicals from API+NO3 that do not undergo autoxidation|G|230.0|L|[2,6,6-trimethyl-3-(nitrooxy)bicyclo[3.1.1]heptan-2-yl]peroxy|\[O\]OC1\(C\)C\(ON\(=O\)=O\)CC2CC1C2\(C\)C APINP2|Peroxy radicals from API+NO3 that undergo autoxidation|G|230.0|L|[2,6,6-trimethyl-3-(nitrooxy)bicyclo[3.1.1]heptan-2-yl]peroxy|\[O\]OC1\(C\)C\(ON\(=O\)=O\)CC2CC1C2\(C\)C APIP1|Peroxy radicals from API+OH that do not undergo autoxidation|G|185.0|L|{3-hydroxy-2,6,6-trimethylbicyclo[3.1.1]heptan-2-yl}peroxy|\[O\]OC1\(C\)C\(O\)CC2CC1C2\(C\)C APIP2|Peroxy radicals from API+OH that undergo autoxidation|G|185.0|L|{3-hydroxy-2,6,6-trimethylbicyclo[3.1.1]heptan-2-yl}peroxy|\[O\]OC1\(C\)C\(O\)CC2CC1C2\(C\)C APNCOM|Primary non-carbon organic matter (legacy)|P|220.0|L|Non-carbon organic matter| APOC|Primary organic carbon (legacy)|P|220.0|L|Organic carbon| ASEACAT|Sea spray cations|P|23.75|L|Coarse sea spray cations| ASI|Silicon|P|28.1|E|Total Silicon|[\[Si\]](https://comptox.epa.gov/dashboard/chemical/details/DTXSID0051441) ASO4|Total sulfur IV as sulfate|P|96.0|L|Sulfate ion|[\[O-\]S\(=O\)\(=O\)\[O-\]](https://comptox.epa.gov/dashboard/chemical/details/DTXSID3042425) ASOAT|An empirical SOA|P|200.0|L|3,4,5,6,7-Pentahydroxyheptan-2-one|[CC\(=O\)C\(C\(C\(C\(CO\)O\)O\)O\)O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID80956455) ASOIL|Lumped crustal species|P|100.0|L|Crustal species| ATI|Titanium|P|47.9|E|Total Titanium|[\[Ti\]](https://comptox.epa.gov/dashboard/chemical/details/DTXSID3047764) BAL1|Peroxy radicals formed from BALD |G|123.0|L|(4-methylphenyl)peroxy|\[O\]OC1=CC=C\(C\)C=C1 BAL2|Peroxy radicals formed from BALD |G|109.0|L|phenylperoxy|\[O\]OC1=CC=CC=C1 BALD|Benzaldehyde and other aromatic aldehydes|G|106.0|L|Benzaldehyde|[O=CC1=CC=CC=C1](https://comptox.epa.gov/dashboard/chemical/details/DTXSID8039241) BALP|Peroxy radicals formed from BALD |G|137.0|L|benzoylperoxy|O=C\(O\[O\]\)C1=CC=CC=C1 BDE13|1,3-butadiene|G|54.1|E|1,3-Butadiene|[C=CC=C](https://comptox.epa.gov/dashboard/chemical/details/DTXSID3020203) BDE13P|Peroxy radicals from BDE13|G|103.0|L|(1-hydroxybut-3-en-2-yl)peroxy|C=CC\(O\[O\]\)CO BEN|Benzene|G|78.11|E|Benzene|[C1=CC=CC=C1](https://comptox.epa.gov/dashboard/chemical/details/DTXSID3039242) BENP|Peroxy radicals formed from benzene|G|159.12|L|{8-hydroxy-6,7-dioxabicyclo[3.2.1]oct-3-en-2-yl}peroxy|\[O\]OC1C=CC2OOC1C2O CHO|Phenoxy radical formed from CSL|G|139.0|L|4-hydroxy-3,5-dimethylcyclohexa-2,5-dien-1-yloxidanyl|\[O\]C1C=C\(C\)C\(O\)C\(=C1\)C CO|Carbon monoxide|G|28.0|E|Carbon monoxide|[\[C-\]#\[O+\]](https://comptox.epa.gov/dashboard/chemical/details/DTXSID5027273) CSL|Cresol and other hydroxy substituted aromatics |G|136.2|L|2-Phenylpropan-2-ol|[CC\(C\)\(O\)C1=CC=CC=C1](https://comptox.epa.gov/dashboard/chemical/details/DTXSID3027247) DCB1|Unsaturated dicarbonyls|G|98.0|L|2-methylbut-2-enedial|O=CC=C\(C\)C=O DCB2|Unsaturated dicarbonyls|G|112.1|L|2-methyl-4-oxopent-2-enal|O=CC\(=CC\(=O\)C\)C DCB3|Unsaturated dicarbonyls|G|84.0|L|but-2-enedial|O=CC=CC=O ELHOM|Extremely-low volatility highly oxygenated molecules from terpenes|GP|402.0|L|6-hydroperoxy-7-({3-hydroxy-2,6,6-trimethylbicyclo[3.1.1]heptan-2-yl}peroxy)-3,3,6-trimethyl-tetrahydro-3aH-1,2-benzodioxol-5-ol|OC1CC2C\(OOC2\(C\)C\)C\(OOC3\(C\)C4C\(C\)\(C\)C\(C4\)CC3O\)C1\(C\)OO EOH|Ethanol|G|46.1|E|Ethanol|[CCO](https://comptox.epa.gov/dashboard/chemical/details/DTXSID9020584) ETE|ethene |G|28.1|E|Ethylene|[C=C](https://comptox.epa.gov/dashboard/chemical/details/DTXSID1026378) ETEG|Ethylene glycol|G|62.1|E|Ethylene glycol|[OCCO](https://comptox.epa.gov/dashboard/chemical/details/DTXSID8020597) ETEP|Peroxy radicals formed from ETE|G|77.0|E|(2-hydroxyethyl)peroxy|OCCO\[O\] ETH|ethane |G|30.1|E|Ethane|[CC](https://comptox.epa.gov/dashboard/chemical/details/DTXSID6026377) ETHP|Peroxy radicals formed from ethane and other species |G|61.0|L|Ethylperoxy|[CCO\[O\]](https://comptox.epa.gov/dashboard/chemical/details/DTXSID90953652) FURAN|Furans and other dienes|G|96.1|L|Furfural|[O=CC1=CC=CO1](https://comptox.epa.gov/dashboard/chemical/details/DTXSID1020647) FURANO2|Peroxy radicals from FURAN oxidation|G|145.1|L|(2-formyl-5-hydroxy-5H-furan-2-yl)peroxy|OC1C=CC\(O1\)\(O\[O\]\)\(C=O\) FURANONE|Ring-retaining ketone product from FURAN oxidation|G|100.1|L|2-hydroxy-2H-furan-5-one|[C1=CC\(=O\)OC1O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID10930763) GLY|Glyoxal and glycoaldehydes |G|58.0|L|Glyoxal|[O=CC=O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID5025364) H2O2|Hydrogen peroxide|G|34.0|E|Hydrogen peroxide|[OO](https://comptox.epa.gov/dashboard/chemical/details/DTXSID2020715) HC10|Alkanes and other species with HO rate constant greater than 6.8x10-12 cm3 s-1|G|142.28|L|Decane|[CCCCCCCCCC](https://comptox.epa.gov/dashboard/chemical/details/DTXSID6024913) HC10P|Peroxy radicals formed from HC10 |G|173.27|L|Decan-3-ylperoxy|CCCCCCCC\(CC\)O\[O\] HC10P2|Hydroxy peroxy radicals from HC10P alkoxy product|G|189.27|L|(8-hydroxydecan-5-yl)peroxy|CCCCC\(O\[O\]\)CCC\(O\)CC HC3|Alkanes and other species with HO rate constant less than 3.4x10-12 cm3 s-1 |G|44.1|L|Propane|[CCC](https://comptox.epa.gov/dashboard/chemical/details/DTXSID5026386) HC3P|Peroxy radicals formed from HC3|G|75.0|L|Isopropyl peroxy|CC\(C\)O\[O\] HC5|Alkanes and other species with HO rate constant between 3.4x10-12 and 6.8x10-12 cm3 s-1 |G|72.1|L|Pentane|[CCCCC](https://comptox.epa.gov/dashboard/chemical/details/DTXSID2025846) HC5P|Peroxy radicals formed from HC5|G|103.0|L|Pentan-3-ylperoxy|CCC\(O\[O\]\)CC HCHO|Formaldehyde |G|30.0|E|Formaldehyde|[C=O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID7020637) HCL|Hydrochloric acid|G|36.0|E|Hydrochloric acid|[Cl](https://comptox.epa.gov/dashboard/chemical/details/DTXSID2020711) HKET|Hydroxy ketone |G|74.0|L|Hydroxy acetone|[CC\(=O\)CO](https://comptox.epa.gov/dashboard/chemical/details/DTXSID8051590) HNO3|Nitric acid|G|63.0|E|Nitric acid|[\[N+\]\(=O\)\(O\)\[O-\]](https://comptox.epa.gov/dashboard/chemical/details/DTXSID5029685) HNO4|Pernitric acid |G|79.0|E|Hydroxy nitrate|[\[N+\]\(=O\)\(\[O-\]\)OO](https://comptox.epa.gov/dashboard/chemical/details/DTXSID201030501) HO|Hydroxy radical|G|17.0|E|Hydroxyl radical|\[OH\] HO2|Hydroperoxy radical|G|33.0|E|Hydroperoxy|[O\[O-\]](https://comptox.epa.gov/dashboard/chemical/details/DTXSID30894777) HOM|Highly oxygenated molecules from terpenes|GP|250.0|L|6,7-dihydroperoxy-3,3,6-trimethyl-tetrahydro-3aH-1,2-benzodioxol-5-ol|OC1CC2C\(OOC2\(C\)C\)C\(OO\)C1\(C\)OO HONO|Nitrous acid |G|47.0|E|Nitrous acid|[N\(=O\)O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID7064813) IEPOX|isoprene epoxydiols |G|118.1|E|Isoprene epoxydiol|OCC1OC1\(C\)CO IEPOXP|IEPOX intermediate (tracking species)|G|118.1||NA| INO2|Isoprene nitrate-derived peroxy radicals|G|162.1|L|[(2E)-3-methyl-4-(nitrooxy)but-2-en-1-yl]peroxy|C/C\(=C\CO\[O\]\)CON\(=O\)=O IPC|Isoprene-derived hydroperoxyenals (HPALD)|G|116.1|L|(2Z)-4-hydroperoxy-2-methylbut-2-enal|C/C\(C=O\)=C/COO IPN|Isoprene-derived peroxy nitrates|G|163.0|L|(2E)-3-methyl-4-(nitrooxy)but-2-ene-1-peroxol|C/C\(=C\COO\)CON\(=O\)=O ISHP|Beta-hydroxy hydroperoxides from ISOP+HO2|G|118.0|L|2-hydroperoxy-2-methylbut-3-en-1-ol|C=CC\(OO\)\(CO\)C ISO|Isoprene |G|68.1|E|Isoprene|[CC\(=C\)C=C](https://comptox.epa.gov/dashboard/chemical/details/DTXSID2020761) ISON|Beta-hydroxyalkylnitrates from ISOP+NO alkylnitrates from ISO+NO3|G|147.0|L|2-methyl-2-(nitrooxy)but-3-en-1-ol|OCC\(C\)\(C=C\)ON\(=O\)=O ISOP|Peroxy radicals formed from ISO+HO |G|117.0|L|(1-hydroxy-3-methylbut-3-en-2-yl)peroxy|OCC\(O\[O\]\)C\(C\)=C KET|ketones|G|86.0|L|Diethylketone|[CCC\(=O\)CC](https://comptox.epa.gov/dashboard/chemical/details/DTXSID6021820) KETP|Peroxy radicals formed from KET|G|117.0|L|(3-oxopentan-2-yl)peroxy|CCC\(C\(C\)O\[O\]\)=O LIM|d-limonene and other cyclic diene-terpenes |G|136.3|L|D-Limonene|[CC\(=C\)\[C@@H\]1CCC\(C\)=CC1](https://comptox.epa.gov/dashboard/chemical/details/DTXSID1020778) LIMAL|Limonene aldehyde and similar LIM-derived aldehydes|G|168.0|L|Limonaldehyde|O=CCC\(CCC\(=O\)C\)C\(=C\)C LIMALP|Peroxy radicals from LIMAL|G|217.0|L|[1-hydroxy-2-methyl-5-oxo-3-(3-oxobutyl)pentan-2-yl]peroxy|O=CCC\(CCC\(=O\)C\)C\(C\)\(CO\)O\[O\] LIMNP1|Peroxy radicals from LIM+NO3 that do not undergo autoxidation|G|230.0|L|[1-methyl-2-(nitrooxy)-4-(prop-1-en-2-yl)cyclohexyl]peroxy|\[O-\]\[N+\]\(=O\)OC1CC\(CCC1\(C\)O\[O\]\)C\(=C\)C LIMNP2|Peroxy radicals from LIM+NO3 that undergo autoxidation|G|230.0|L|[1-methyl-2-(nitrooxy)-4-(prop-1-en-2-yl)cyclohexyl]peroxy|\[O-\]\[N+\]\(=O\)OC1CC\(CCC1\(C\)O\[O\]\)C\(=C\)C LIMP1|Peroxy radicals from LIM+OH that do not undergo autoxidation|G|185.0|L|[2-hydroxy-1-methyl-4-(prop-1-en-2-yl)cyclohexyl]peroxy|\[O\]OC1\(C\)CCC\(CC1O\)C\(=C\)C LIMP2|Peroxy radicals from LIM+OH that undergo autoxidation|G|185.0|L|[2-hydroxy-1-methyl-4-(prop-1-en-2-yl)cyclohexyl]peroxy|\[O\]OC1\(C\)CCC\(CC1O\)C\(=C\)C MACP|Peroxy radicals formed from MACR+HO|G|101.0|L|(2-methylprop-2-enoyl)peroxy|CC\(=C\)C\(=O\)O\[O\] MACR|methacrolein and other C4 aldehydes |G|70.0|L|Methacrolein|[CC\(=C\)C=O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID0052540) MAHP|Hydroperoxides from MACP+HO2 |G|102.0|L|2-methylprop-2-eneperoxoic acid|C=C\(C\)C\(OO\)=O MCP|Peroxy radical formed from MACR + HO which does not form MPAN|G|119.0|L|(1-hydroxy-2-methyl-3-oxopropan-2-yl)peroxy|OCC\(C\)\(O\[O\]\)C=O MCT|Methyl catechol|G|124.1|L|4-Methylcatechol|[CC1=CC\(O\)=C\(O\)C=C1](https://comptox.epa.gov/dashboard/chemical/details/DTXSID5020861) MCTO|Alkoxy radical formed from MCT+HO and MCT+NO3|G|123.0|L|3-hydroxy-5-methylphenyloxidanyl|CC1=CC\(O\)=CC\(\[O\]\)=C1 MCTP|Radical formed fro MCT+O3 reaction |G|172.0|L|C7H8O5 Biradical|CC\(/C=C\\[C\]\(O\[O\]\)O\)=C/C\(O\)=O MEK|Methyl ethyl ketone|G|72.1|E|Methyl ethyl ketone|[CCC\(C\)=O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID3021516) MEKP|Peroxy radicals formed from MEK|G|103.0|L|(3-oxobutyl)peroxy|\[O\]OCCC\(=O\)C MGLY|Methylglyoxal and other alpha-carbonyl aldehydes |G|72.0|L|Methyl glyoxal|[CC\(=O\)C=O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID0021628) MO2|Methyl peroxy radical|G|47.0|E|Methylperoxy|[CO\[O\]](https://comptox.epa.gov/dashboard/chemical/details/DTXSID10944007) MOH|Methanol |G|32.0|E|Methanol|[CO](https://comptox.epa.gov/dashboard/chemical/details/DTXSID2021731) MPAN|Peroxymethacryloylnitrate and other higher peroxyacylnitrates from isoprene oxidation|G|147.1|L|Peroxymethacryloyl nitrate|[O=N\(=O\)OOC\(=O\)C\(=C\)C](https://comptox.epa.gov/dashboard/chemical/details/DTXSID10236878) MVK|Methyl vinyl ketone|G|70.1|E|Methyl vinyl ketone|[CC\(=O\)C=C](https://comptox.epa.gov/dashboard/chemical/details/DTXSID3025671) MVKP|Peroxy radicals formed from MVK|G|119.0|L|(2-hydroxy-3-oxobutyl)peroxy|CC\(=O\)C\(O\)CO\[O\] N2O5|Dinitrogen pentoxide |G|108.0|E|Dinitrogen pentoxide|[\[N+\]\(=O\)\(\[O-\]\)O\[N+\]\(=O\)\[O-\]](https://comptox.epa.gov/dashboard/chemical/details/DTXSID90143672) NALD|Nitrooxyacetaldehyde |G|105.0|E|1-(nitrooxy)acetaldehyde|O=CCON\(=O\)=O NAPH|Naphthalene and other PAHs|G|128.17|L|Naphthalene|[C1=CC2=CC=CC=C2C=C1](https://comptox.epa.gov/dashboard/chemical/details/DTXSID8020913) NAPHP|Peroxy radicals from NAPH oxidation|G|209.17|L|{8-hydroxy-10,11-dioxatricyclo[7.2.1.0^{2,7}]dodeca-2,4,6-trien-12-yl}peroxy|C12=CC=CC=C1C3OOC\(C3O\[O\]\)C2\(O\) NH3|Ammonia|G|17.0|E|Ammonia|[N](https://comptox.epa.gov/dashboard/chemical/details/DTXSID0023872) NO|Nitric oxide |G|30.0|E|Nitric oxide|[\[N\]=O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID1020938) NO2|Nitrogen dioxide |G|46.0|E|Nitrogen dioxide|[N\(=O\)\[O\]](https://comptox.epa.gov/dashboard/chemical/details/DTXSID7020974) NO3|Nitrogen trioxide|G|62.0|E|Nitrate radical|\[O\]N\(=O\)=O NUM|Number of particles|P|1.0|L|Number of particles| O1D|Excited state oxygen atom, O(1D) |G|16.0|E|Excited oxygen|[\[O\]](https://comptox.epa.gov/dashboard/chemical/details/DTXSID00170378) O3|Ozone|G|48.0|E|Ozone|[\[O-\]\[O+\]=O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID0021098) O3P|Ground state oxygen atom, O(3P)|G|16.0|E|Ground state oxygen|[\[O\]](https://comptox.epa.gov/dashboard/chemical/details/DTXSID00170378) OLI|Internal alkenes |G|70.1|L|2-Methyl-2-butene|[CC=C\(C\)C](https://comptox.epa.gov/dashboard/chemical/details/DTXSID8027165) OLIP|Peroxy radicals formed from OLI|G|119.0|L|(3-hydroxy-2-methylbutan-2-yl)peroxy|\[O\]OC\(C\)\(C\)C\(C\)O OLND|NO3-alkene adduct reacting via decomposition |G|136.0|L|[1-(nitrooxy)propan-2-yl]peroxy|CC\(O\[O\]\)CO\[N+\]\(\[O-\]\)=O OLNN|NO3-alkene adduct reacting to form carbonitrates + HO2 |G|136.0|L|[1-(nitrooxy)propan-2-yl]peroxy|CC\(O\[O\]\)CO\[N+\]\(\[O-\]\)=O OLT|Terminal alkenes |G|42.0|L|1-Propene|[CC=C](https://comptox.epa.gov/dashboard/chemical/details/DTXSID5021205) OLTP|Peroxy radicals formed from OLT|G|91.0|L|(1-hydroxypropan-2-yl)peroxy|CC\(CO\)O\[O\] ONIT|Organic nitrates|G|119.0|L|Butan-2-yl nitrate|[CCC\(C\)O\[N+\]\(=O\)\[O-\]](https://comptox.epa.gov/dashboard/chemical/details/DTXSID00871813) OP1|Methyl hydrogen peroxide |G|48.0|E|Methyl hydroperoxide|[COO](https://comptox.epa.gov/dashboard/chemical/details/DTXSID10184401) OP2|Higher organic peroxides |G|62.0|L|Ethyl hydroperoxide|[CCOO](https://comptox.epa.gov/dashboard/chemical/details/DTXSID70184402) OP3|Semivolatile organic peroxide|GP|176.2|L|5-hydroperoxy-6-hydroxyoctan-3-one|CCC\(=O\)CC\(OO\)C\(O\)CC OPB|Terpene-derived peroxides|G|186.2|L|2-hydroperoxy-2,6,6-trimethylbicyclo[3.1.1]heptan-3-ol|OOC1\(C\)C\(O\)CC2CC1C2\(C\)C ORA1|Formic acid|G|46.0|E|Formic acid|[OC=O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID2024115) ORA2|Acetic acid and higher acids |G|60.2|L|Acetic acid|[CC\(O\)=O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID5024394) ORAP|Peroxy radical formed from ORA2 + HO reaction|G|91.0|L|(carboxymethyl)peroxy|\[O\]OCC\(=O\)O PAA|Peroxyacetic acids and higher analogs|G|76.0|L|Peroxyacetic acid|[CC\(=O\)OO](https://comptox.epa.gov/dashboard/chemical/details/DTXSID1025853) PAN|Peroxyacetyl nitrate and higher saturated PANs |G|121.0|L|Peroxyacetyl nitrate|[CC\(=O\)OON\(=O\)=O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID4062301) PHEN|phenol and benzene diols|G|110.1|L|Resorcinol|[OC1=CC\(O\)=CC=C1](https://comptox.epa.gov/dashboard/chemical/details/DTXSID2021238) PINAL|Pinonaldehyde and similar APIN-derived aldehydes|G|168.0|L|Pinonaldehyde|O=CCC1CC\(C\(=O\)C\)C1\(C\)C PINALP|Peroxy radicals from PINAL oxidation|G|199.0|L|[3-acetyl-2,2-dimethyl-1-(2-oxoethyl)cyclobutyl]peroxy|O=CCC1\(O\[O\]\)CC\(C\(=O\)C\)C1\(C\)C PPN|Peroxypropionyl nitrate|G|135.0|E|Peroxypopionyl nitrate|[CCC\(=O\)OO\[N+\]\(=O\)\[O-\]](https://comptox.epa.gov/dashboard/chemical/details/DTXSID90206675) PROG|Propylene glyocol and other 3 carbon dialcohols|G|76.1|E|1,2-Propylene glycol|[CC\(O\)CO](https://comptox.epa.gov/dashboard/chemical/details/DTXSID0021206) RCO3|Higher saturated acyl peroxy radicals|G|89.0|L|Propanoylperoxy|CCC\(=O\)O\[O\] ROCIOXY|Intermediate volatility oxygenated ROC species (directly emitted)|G|247.0|L|Decamethylcyclopentasiloxane|[C\[Si\]1\(C\)O\[Si\]\(C\)\(C\)O\[Si\]\(C\)\(C\)O\[Si\]\(C\)\(C\)O\[Si\]\(C\)\(C\)O1](https://comptox.epa.gov/dashboard/chemical/details/DTXSID1027184) ROCN1ALK|Alkane-like ROC species with C* of 10-1 μg m-3|GP|408.8|L|5,9-Dimethylheptacosane|[CCCCCCCCCCCCCCCCCCC\(C\)CCCC\(C\)CCCC](https://comptox.epa.gov/dashboard/chemical/details/DTXSID40823452) ROCN1OXY1|Oxygenated ROC species with C* of 10-1 μg m-3 and O:C of 0.1|GP|312.5|L|Arachidic Acid|[CCCCCCCCCCCCCCCCCCCC\(=O\)O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID1060134) ROCN1OXY3|Oxygenated ROC species with C* of 10-1 μg m-3 and O:C of 0.3|GP|230.3|L|DODECANEDIOIC ACID|[C\(CCCCCC\(=O\)O\)CCCCC\(=O\)O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID3027297) ROCN1OXY6|Oxygenated ROC species with C* of 10-1 μg m-3 and O:C of 0.6|GP|190.2|L|2-hydroxy-octanedioic acid|C\(CCC\(C\(=O\)O\)O\)CCC\(=O\)O ROCN2ALK|Alkane-like ROC species with C* of 10-2 μg m-3|GP|422.83|L|Triacontane|[CCCCCCCCCCCCCCCCCCCCCCCCCCCCCC](https://comptox.epa.gov/dashboard/chemical/details/DTXSID0060935) ROCN2OXY2|Oxygenated ROC species with C* of 10-1 μg m-3 and O:C of 0.2|GP|282.4|L|12(S)-hydroxy-16-Heptadecynoic Acid|C#CCCC\[C@H\]\(CCCCCCCCCCC\(=O\)O\)O ROCN2OXY4|Oxygenated ROC species with C* of 10-2 μg m-3 and O:C of 0.4|GP|232.3|L|2-HYDROXYUNDECANEDIOIC ACID|[C\(CCCCC\(=O\)O\)CCCC\(C\(=O\)O\)O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID90726525) ROCN2OXY8|Oxygenated ROC species with C* of 10-2 μg m-3 and O:C of 0.8|GP|194.2|L|3,4,5,6,7-Pentahydroxyheptan-2-one|[CC\(=O\)C\(C\(C\(C\(CO\)O\)O\)O\)O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID80956455) ROCP0ALK|Alkane-like ROC species with C* of 1 μg m-3|GP|394.77|L|11-Methylheptacosane|[CCCCCCCCCCCCCCCCC\(C\)CCCCCCCCCC](https://comptox.epa.gov/dashboard/chemical/details/DTXSID40333900) ROCP0OXY2|Oxygenated ROC species with C* of 1 μg m-3 and O:C of 0.2|GP|242.4|L|3-oxotetradecanoic acid|[CCCCCCCCCCCC\(=O\)CC\(=O\)O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID10332384) ROCP0OXY4|Oxygenated ROC species with C* of 1 μg m-3 and O:C of 0.4|GP|202.3|L|DECANEDIOIC ACID|[C\(CCCCC\(=O\)O\)CCCC\(=O\)O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID7026867) ROCP1ALK|Alkane-like ROC species with C* of 10 μg m-3|GP|380.75|L|Heptacosane|[CCCCCCCCCCCCCCCCCCCCCCCCCCC](https://comptox.epa.gov/dashboard/chemical/details/DTXSID6058637) ROCP1ALKP|Peroxy radicals from ROCP1ALK oxidation|G|411.74|L|heptacosan-3-ylperoxy|CCCCCCCCCCCCCCCCCCCCCCCCC\(CC\)O\[O\] ROCP1ALKP2|Hydroxy peroxy radicals from ROCP1ALK alkoxy product|G|427.73|L|(3-hydroxyheptacosan-6-yl)peroxy|CCCCCCCCCCCCCCCCCCCCCC\(O\[O\]\)CCC\(O\)CC ROCP1OXY1|Oxygenated ROC species with C* of 10 μg m-3 and O:C of 0.1|GP|270.5|L|HEPTADECANOIC ACID|[CCCCCCCCCCCCCCCCC\(=O\)O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID5021596) ROCP1OXY3|Oxygenated ROC species with C* of 10 μg m-3 and O:C of 0.3|GP|202.3|L|11-hydroxyundecanoic acid|[C\(CCCCCO\)CCCCC\(=O\)O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID40190136) ROCP2ALK|Alkane-like ROC species with C* of 10+2 μg m-3|GP|338.66|L|Tetracosane|[CCCCCCCCCCCCCCCCCCCCCCCC](https://comptox.epa.gov/dashboard/chemical/details/DTXSID8060955) ROCP2ALKP|Peroxy radicals from ROCP2ALK oxidation|G|369.65|L|tetracosan-3-ylperoxy|CCCCCCCCCCCCCCCCCCCCCC\(CC\)O\[O\] ROCP2ALKP2|Hydroxy peroxy radicals from ROCP2ALK alkoxy product|G|385.65|L|(3-hydroxytetracosan-6-yl)peroxy|CCCCCCCCCCCCCCCCCCC\(O\[O\]\)CCC\(O\)CC ROCP2OXY2|Oxygenated ROC species with C* of 10+2 μg m-3 and O:C of 0.2|GP|200.3|L|Dodecanoic Acid|[CCCCCCCCCCCC\(=O\)O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID5021590) ROCP3ALK|Alkane-like ROC species with C* of 10+3 μg m-3|GP|296.58|L|Heneicosane|[CCCCCCCCCCCCCCCCCCCCC](https://comptox.epa.gov/dashboard/chemical/details/DTXSID9047097) ROCP3ALKP|Peroxy radicals from ROCP3ALK oxidation|G|327.57|L|henicosan-3-ylperoxy|CCCCCCCCCCCCCCCCCCC\(CC\)O\[O\] ROCP3ALKP2|Hydroxy peroxy radicals from ROCP3ALK alkoxy product|G|343.57|L|(3-hydroxyhenicosan-6-yl)peroxy|CCCCCCCCCCCCCCCC\(O\[O\]\)CCC\(O\)CC ROCP3OXY2|Oxygenated ROC species with C* of 10+3 μg m-3 and O:C of 0.2|GP|186.3|L|11-hydroxyundecanal|C\(CCCCCO\)CCCCC=O ROCP4ALK|Alkane-like ROC species with C* of 10+4 μg m-3|G|254.5|L|Octadecane|[CCCCCCCCCCCCCCCCCC](https://comptox.epa.gov/dashboard/chemical/details/DTXSID9047172) ROCP4ALKP|Peroxy radicals from ROCP4ALK oxidation|G|285.49|L|octadecan-3-ylperoxy|CCCCCCCCCCCCCCCC\(CC\)O\[O\] ROCP4ALKP2|Hydroxy peroxy radicals from ROCP4ALK alkoxy product|G|301.49|L|(3-hydroxyoctadecan-6-yl)peroxy|CCCCCCCCCCCCC\(O\[O\]\)CCC\(O\)CC ROCP4OXY2|Oxygenated ROC species with C* of 10+4 μg m-3 and O:C of 0.2|G|158.2|L|2-Ethylheptanoic Acid|[CCCCCC\(CC\)C\(=O\)O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID40880929) ROCP5ALK|Alkane-like ROC species with C* of 10+5 μg m-3|G|198.39|L|Tetradecane|[CCCCCCCCCCCCCC](https://comptox.epa.gov/dashboard/chemical/details/DTXSID1027267) ROCP5ALKP|Peroxy radicals from ROCP5ALK oxidation|G|229.38|L|tetradecan-3-ylperoxy|CCCCCCCCCCCC\(CC\)O\[O\] ROCP5ALKP2|Hydroxy peroxy radicals from ROCP5ALK alkoxy product|G|245.38|L|(3-hydroxytetradecan-6-yl)peroxy|CCCCCCCCC\(O\[O\]\)CCC\(O\)CC ROCP5ARO|Aromatic ROC species with C* of 10+5 μg m-3|G|190.33|L|Benzene, octyl-|[CCCCCCCCC1=CC=CC=C1](https://comptox.epa.gov/dashboard/chemical/details/DTXSID2062240) ROCP5AROP|Peroxy radicals from ROCP5ARO oxidation|G|271.33|L|{8-hydroxy-5-octyl-6,7-dioxabicyclo[3.2.1]oct-3-en-2-yl}peroxy|CCCCCCCCC1\(OO2\)C=CC\(O\[O\]\)C2C1O ROCP5OXY1|Oxygenated ROC species with C* of 10+5 μg m-3 and O:C of 0.1|G|170.3|L|Undecanal|[CCCCCCCCCCC=O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID4021688) ROCP6ALK|Alkane-like ROC species with C* of 10+6 μg m-3|G|184.37|L|Tridecane|[CCCCCCCCCCCCC](https://comptox.epa.gov/dashboard/chemical/details/DTXSID6027266) ROCP6ALKP|Peroxy radicals from ROCP6ALK oxidation|G|215.36|L|tridecan-3-ylperoxy|CCCCCCCCCCC\(CC\)O\[O\] ROCP6ALKP2|Hydroxy peroxy radicals from ROCP6ALK alkoxy product|G|231.36|L|(3-hydroxytridecan-6-yl)peroxy|CCCCCCCC\(O\[O\]\)CCC\(O\)CC ROCP6ARO|Aromatic ROC species with C* of 10+6 μg m-3|G|176.3|L|1-Hexyl-4-methylbenzene|[CCCCCCC1=CC=C\(C\)C=C1](https://comptox.epa.gov/dashboard/chemical/details/DTXSID30333914) ROCP6AROP|Peroxy radicals from ROCP6ARO oxidation|G|257.3|L|{2-hexyl-8-hydroxy-5-methyl-6,7-dioxabicyclo[3.2.1]oct-3-en-2-yl}peroxy|OC1C2C\(CCCCCC\)\(O\[O\]\)C=CC1\(C\)OO2 ROCP6OXY1|Oxygenated ROC species with C* of 10+6 μg m-3 and O:C of 0.1|G|142.2|L|Nonanal|[CCCCCCCCC=O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID9021639) ROH|C3 and higher alcohols |G|60.0|L|Propanol|[CCCO](https://comptox.epa.gov/dashboard/chemical/details/DTXSID2021739) SESQ|Sesquiterpenes |G|204.4|L|b-caryophyllene|[C/C1=C/CCC\(=C\)C2CC\(C\)\(C\)C2CC\1](https://comptox.epa.gov/dashboard/chemical/details/DTXSID8024739) SESQNRO2|Peroxy radicals from SESQ reaction with nitrate radicals|G|298.4|L|[4,11,11-trimethyl-8-methylidene-5-(nitrooxy)bicyclo[7.2.0]undecan-4-yl]peroxy|\[O\]OC1\(C\)CCC2C\(CC2\(C\)C\)C\(=C\)CCC1O\[N+\]\(=O\)\[O-\] SESQRO2|Peroxy radicals from SESQ reaction with OH|G|253.4|L|{5-hydroxy-4,11,11-trimethyl-8-methylidenebicyclo[7.2.0]undecan-4-yl}peroxy|\[O\]OC1\(C\)CCC2C\(CC2\(C\)C\)C\(=C\)CCC1O SLOWROC|Slowly reacting ROC with kOH< 3.5x10-13 cm3 s-1 |G|75.4|L|Hydrogen cyanide|[C#N](https://comptox.epa.gov/dashboard/chemical/details/DTXSID9024148) SO2|Sulfur dioxide |G|64.0|E|Sulfur dioxide|[O=S=O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID6029672) SRF|Surface area of particles|P|1.0|L|Surface area of particles| SULF|Sulfuric acid|G|98.0|E|Sulfuric acid|[OS\(=O\)\(=O\)O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID5029683) SULRXN|Precursor of Aerosol Sulfate (tracking species) |G|98.0||NA| TOL|Toluene |G|92.14|E|Toluene|[CC1=CC=CC=C1](https://comptox.epa.gov/dashboard/chemical/details/DTXSID7021360) TOLP|Peroxy radicals formed from TOL|G|173.14|L|{8-hydroxy-5-methyl-6,7-dioxabicyclo[3.2.1]oct-3-en-2-yl}peroxy|\[O\]OC1C=CC2\(C\)OOC1C2O TRPN|Terpene nitrates|G|215.0|L|3-hydroxy-2,6,6-trimethylbicyclo[3.1.1]heptan-2-yl nitrate|O=N\(=O\)OC1\(C\)C\(O\)CC2CC1C2\(C\)C UALD|Unsaturated aldehydes|G|84.1|L|2-Methylbut-2-enal|[CC=C\(C\)C=O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID00859414) UALP|Peroxy radicals formed from UALD |G|133.0|L|(3-hydroxy-3-methyl-4-oxobutan-2-yl)peroxy|CC\(O\[O\]\)C\(C\)\(O\)C=O XO2|Accounts for addition NO to NO2 conversions (tracking species)|G|1.0||NA| XYE|O- and p-xylene and other less reactive volatile aromatics with kOH < 1.46x10-11 cm3 s-1 |G|106.2|L|Ethylbenzene|[CCC1=CC=CC=C1](https://comptox.epa.gov/dashboard/chemical/details/DTXSID3020596) XYEP|Peroxy radicals formed from XYE|G|187.17|L|{5-ethyl-8-hydroxy-6,7-dioxabicyclo[3.2.1]oct-3-en-2-yl}peroxy|\[O\]OC1C=CC2\(CC\)OOC1C2O XYM|M-xylene and other more reactive volatile aromatics with kOH > 1.46x10-11 cm3 s-1 |G|106.2|L|m-Xylene|[CC1=CC\(C\)=CC=C1](https://comptox.epa.gov/dashboard/chemical/details/DTXSID6026298) XYMP|Peroxy radicals formed from XYM|G|187.17|L|{8-hydroxy-1,5-dimethyl-6,7-dioxabicyclo[3.2.1]oct-3-en-2-yl}peroxy|\[O\]OC1C=CC2\(C\)OOC1\(C\)C2O ================================================ FILE: CCTM/src/MECHS/mechanism_information/cracmm1amore_aq/mech_cracmm1amore_aq.md ================================================ Information is based on the mech.def file. * Fall-off or pressure dependent reaction rate constants (M equals air number density): * For rate constants with ko, ki, n, F values: k = [ koM/(1+koM/ki)]FG, where G=(1+(log10(koM/ki)/n)2))-1 * For rate constants with k1, k2: k = k1 + k2M * For rate constants with k0, k2, k3: k = k0 + k3M/(1+k3M/k2) * For rate constants with k1, k2, k3: k = k1 + k2M + k3 * For rate constants with the form A<_Reference_>, k equals A times a reference that represents photolysis rate, a heteorogeneous rate constant, rate constant for the given reaction or an operator. A equals one if not given. * In the mechanism definition file, the rate is formatted as * A~<_HETEROGENEOUS_> * A*K<_REACTION_> * A/<_PHOTOLYSIS_> * A?<_OPERATOR_> |Label|Reaction |Rate Constant Formula| Value
molecules/(sec*cm3)| |:---|:-------------------|:--------------------|:----:| | R001 | O3 ----> O3P | O3O3P_NASA06 | Not Available1 | | R002 | O3 ----> O1D | O3O1D_NASA06 | Not Available1 | | R003 | H2O2 ----> 2.000\*HO | H2O2_RACM2 | Not Available1 | | R004 | NO2 ----> O3P + NO | NO2_RACM2 | Not Available1 | | R005 | NO3 ----> NO | NO3NO_RACM2 | Not Available1 | | R006 | NO3 ----> O3P + NO2 | NO3NO2_RACM2 | Not Available1 | | R007 | HONO ----> HO + NO | HONO_RACM2 | Not Available1 | | R008 | HNO3 ----> HO + NO2 | HNO3_RACM2 | Not Available1 | | R009 | HNO4 ----> 0.200\*HO + 0.800\*HO2 + 0.800\*NO2 + 0.200\*NO3 | HNO4_RACM2 | Not Available1 | | R010 | HCHO ----> CO | HCHO_MOL_JPL19 | Not Available1 | | R011 | HCHO ----> 2.000\*HO2 + CO | HCHO_RAD_JPL19 | Not Available1 | | R012 | ACD ----> HO2 + MO2 + CO | CH3CHO_RACM2 | Not Available1 | | R013 | ALD ----> HO2 + ETHP + CO | ALD_JPL19 | Not Available1 | | R014 | ACT ----> MO2 + ACO3 | CH3COCH3A_JPL19 | Not Available1 | | R014a | ACT ----> 2.000\*MO2 + CO | CH3COCH3B_JPL19 | Not Available1 | | R015 | UALD ----> 1.220\*HO2 + 0.784\*ACO3 + 1.220\*CO + 0.350\*HCHO + 0.434\*ALD + 0.216\*KET | UALD_RACM2 | Not Available1 | | TRP01 | PINAL ----> HO2 + HC10P + CO | ALD_JPL19 | Not Available1 | | TRP02 | LIMAL ----> HO2 + HC10P + CO | ALD_JPL19 | Not Available1 | | R016 | MEK ----> 0.100\*MO2 + ETHP + 0.900\*ACO3 + 0.100\*CO | MEK_JGR19 | Not Available1 | | R017 | KET ----> 1.500\*ETHP + 0.500\*ACO3 + 0.500\*CO | KET_JGR19 | Not Available1 | | R018 | HKET ----> HO2 + ACO3 + HCHO | HKET_RACM2 | Not Available1 | | R019 | MACR ----> 0.340\*HO + 0.660\*HO2 + 0.670\*ACO3 + 0.330\*MACP + 0.340\*XO2 + 0.670\*CO + 0.670\*HCHO | MACR_RACM2 | Not Available1 | | R020 | MVK ----> 0.300\*MO2 + 0.300\*MACP + 0.700\*CO + 0.700\*UALD | MVK_RACM2 | Not Available1 | | R021 | GLY ----> 2.000\*CO | GLYH2_RACM2 | Not Available1 | | R022 | GLY ----> HCHO + CO | GLYF_RACM2 | Not Available1 | | R023 | GLY ----> 2.000\*HO2 + 2.000\*CO | GLYHX_RACM2 | Not Available1 | | R024 | MGLY ----> HO2 + ACO3 + CO | MGLY_RACM2 | Not Available1 | | R025 | DCB1 ----> 1.500\*HO2 + 0.250\*ACO3 + 0.200\*XO2 + CO + 0.500\*GLY + 0.500\*MGLY | MGLY_RACM2 | Not Available1 | | R026 | DCB2 ----> 1.500\*HO2 + 0.250\*ACO3 + 0.200\*XO2 + CO + 0.500\*GLY + 0.500\*MGLY | MGLY_RACM2 | Not Available1 | | R027 | BALD ----> CHO + HO2 + CO | BALD_RACM2 | Not Available1 | | R028 | OP1 ----> HO + HO2 + HCHO | OP1_RACM2 | Not Available1 | | R029 | OP2 ----> HO + HO2 + ALD | OP1_RACM2 | Not Available1 | | TRP03 | OPB ----> HO + HO2 + ALD | OP1_RACM2 | Not Available1 | | R029a | OP3 ----> HO + HO2 + ALD | OP1_RACM2 | Not Available1 | | R030 | PAA ----> HO + MO2 | PAA_RACM2 | Not Available1 | | R031 | ONIT ----> HO2 + NO2 + 0.200\*ALD + 0.800\*KET | ONIT_RACM2 | Not Available1 | | R032 | PAN ----> ACO3 + NO2 | PAN1_RACM2 | Not Available1 | | R033 | PAN ----> MO2 + NO3 | PAN2_RACM2 | Not Available1 | | R034 | O3 + HO ----> HO2 | 1.70E-12e -940.00/T | 7.2647E-14 | | R035 | O3 + HO2 ----> HO | 1.00E-14e -490.00/T | 1.9331E-15 | | R036 | O3 + NO ----> NO2 | 3.00E-12e -1500.00/T | 1.9596E-14 | | R037 | O3 + NO2 ----> NO3 | 1.20E-13e -2450.00/T | 3.2392E-17 | | R038 | O3P + O2 + M ----> O3 | 6.10E-34(T/300) -2.40 | 6.1912E-34 | | R039 | O3P + O3 ----> | 8.00E-12e -2060.00/T | 7.9879E-15 | | R040 | O1D + O2 ----> O3P | 3.30E-11e 55.00/T | 3.9685E-11 | | R041 | O1D + N2 ----> O3P | 2.15E-11e 110.00/T | 3.1093E-11 | | R042 | O1D + H2O ----> 2.000\*HO | 1.63E-10e 60.00/T | 1.9934E-10 | | R043 | HO + H2 ----> HO2 | 2.80E-12e -1800.00/T | 6.6869E-15 | | R044 | HO + HO2 ----> | 4.80E-11e 250.00/T | 1.1102E-10 | | R045 | HO2 + HO2 ----> H2O2 | k0= 3.00E-13e 460.0/T
k1= 2.10E-33e 920.0/T | 2.5345E-12 | | R046 | HO2 + HO2 + H2O ----> H2O2 | k0= 4.20E-34e 2660.0/T
k1= 2.94E-54e 3120.0/T | 5.6834E-30 | | R047 | H2O2 + HO ----> HO2 | 1.80E-12e 0.00/T | 1.8000E-12 | | R048 | NO + O3P ----> NO2 | ko= 9.10E-32e 0.0/T(T/300) -1.50
ki = 3.00E-11e 0.0/T(T/300) 0.00
n= 1.00;F= 0.60 | 1.6772E-12 | | R049 | NO + HO ----> HONO | ko= 7.10E-31e 0.0/T(T/300) -2.60
ki = 3.60E-11e 0.0/T(T/300) -0.10
n= 1.00;F= 0.60 | 7.4585E-12 | | R050 | NO + HO2 ----> NO2 + HO | 3.44E-12e 260.00/T | 8.2278E-12 | | R051 | NO + HO2 ----> HNO3 | k0= 6.0950E-14e 270.0/T(T/300) -1.00
k2= 6.8570E-34e 270.0/T(T/300) 1.00
k3= -5.9680E-14e 270.00/T | 4.5566E-14 | | R052 | NO + NO + O2 ----> 2.000\*NO2 | 4.25E-39e 663.50/T | 3.9343E-38 | | R053 | HONO + HO ----> NO2 | 3.00E-12e 250.00/T | 6.9387E-12 | | R054 | NO2 + O3P ----> NO | 5.30E-12e 200.00/T | 1.0366E-11 | | R055 | NO2 + O3P ----> NO3 | ko= 3.40E-31e 0.0/T(T/300) -1.60
ki = 2.30E-11e 0.0/T(T/300) -0.20
n= 1.00;F= 0.60 | 4.0243E-12 | | R056 | NO2 + HO ----> HNO3 | ko= 1.80E-30e 0.0/T(T/300) -3.00
ki = 2.80E-11e 0.0/T(T/300) 0.00
n= 1.00;F= 0.60 | 1.0589E-11 | | R057 | HNO3 + HO ----> NO3 | k0= 2.40E-14e 460.0/T
k1= 2.70E-17e 2199.0/T
k3= 6.50E-34e 1335.0/T | 1.5409E-13 | | R058 | NO3 + HO ----> HO2 + NO2 | 2.0000E-11 | 2.0000E-11 | | R059 | NO3 + HO2 ----> 0.700\*HO + 0.700\*NO2 + 0.300\*HNO3 | 3.5000E-12 | 3.5000E-12 | | R060 | NO3 + NO ----> 2.000\*NO2 | 1.70E-11e 125.00/T | 2.5854E-11 | | R061 | NO3 + NO2 ----> NO + NO2 | 4.35E-14e -1335.00/T | 4.9418E-16 | | R062 | NO3 + NO3 ----> 2.000\*NO2 | 8.50E-13e -2450.00/T | 2.2944E-16 | | R063 | NO3 + NO2 ----> N2O5 | ko= 2.40E-30e 0.0/T(T/300) -3.00
ki = 1.60E-12e 0.0/T(T/300) 0.10
n= 1.00;F= 0.60 | 1.3451E-12 | | R064 | N2O5 ----> NO2 + NO3 | 1.72E+26e-10840.00/T \*R063 | 3.7623E-028| | R065 | N2O5 + H2O ----> 2.000\*HNO3 | 1.0000E-22 | 1.0000E-22 | | R066 | NO2 + HO2 ----> HNO4 | ko= 1.90E-31e 0.0/T(T/300) -3.40
ki = 4.00E-12e 0.0/T(T/300) -0.30
n= 1.00;F= 0.60 | 1.3113E-12 | | R067 | HNO4 ----> HO2 + NO2 | 4.76E+26e-10900.00/T \*R066 | 8.2835E-028| | R068 | HNO4 + HO ----> NO2 | 4.50E-13e 610.00/T | 3.4814E-12 | | R069 | SO2 + HO ----> HO2 + SULF + SULRXN | ko= 2.90E-31e 0.0/T(T/300) -4.10
ki = 1.70E-12e 0.0/T(T/300) 0.20
n= 1.00;F= 0.60 | 9.5762E-13 | | R070 | CO + HO ----> HO2 | k0= 1.44E-13e 0.0/T
k1= 2.74E-33e 0.0/T | 2.1145E-13 | | R071 | HO + CH4 ----> MO2 | 2.45E-12e -1775.00/T | 6.3628E-15 | | R072 | ETH + HO ----> ETHP | 7.66E-12e -1020.00/T | 2.5030E-13 | | R073 | HC3 + HO ----> HC3P + 0.000\*ASOATJ | 7.68E-12e -370.00/T | 2.2203E-12 | | R074 | HC5 + HO ----> HC5P + 0.001\*ASOATJ | 1.01E-11e -245.00/T | 4.4407E-12 | | R076 | ETE + HO ----> ETEP | ko= 1.00E-28e 0.0/T(T/300) -4.50
ki = 8.80E-12e 0.0/T(T/300) -0.85
n= 1.00;F= 0.60 | 8.1981E-12 | | R077 | OLT + HO ----> OLTP | 5.72E-12e 500.00/T | 3.0599E-11 | | R078 | OLI + HO ----> OLIP | 1.33E-11e 500.00/T | 7.1149E-11 | | R080 | ACE + HO ----> 0.650\*HO + 0.350\*HO2 + 0.350\*CO + 0.650\*GLY + 0.350\*ORA1 | ko= 5.50E-30e 0.0/T(T/300) 0.00
ki = 8.30E-13e 0.0/T(T/300) 2.00
n= 1.00;F= 0.60 | 7.4748E-13 | | ROCARO31 | BEN + HO ----> 0.470\*BENP + 0.530\*PHEN + 0.530\*HO2 | 2.33E-12e -193.00/T | 1.2196E-12 | | ROCARO41 | TOL + HO ----> 0.820\*TOLP + 0.180\*CSL + 0.180\*HO2 | 1.81E-12e 354.00/T | 5.9337E-12 | | ROCARO51 | XYM + HO ----> 0.830\*XYMP + 0.170\*CSL + 0.170\*HO2 | 2.3300E-11 | 2.3300E-11 | | ROCARO61 | XYE + HO ----> 0.820\*XYEP + 0.180\*CSL + 0.180\*HO2 | 7.1600E-12 | 7.1600E-12 | | RAM01 | ISO + O3 ----> 0.531\*MACR + 0.189\*MVK + 1.160\*HCHO + 0.250\*HO + 0.250\*HO2 + 0.080\*MO2 + 0.100\*ACO3 + 0.090\*H2O2 + 0.100\*MACP + 0.140\*CO + 0.280\*ORA1 + 0.150\*OLT | 1.58E-14e -2000.00/T | 1.9293E-17 | | RAM02 | ISO + NO3 ----> INO2 + 0.300\*HCHO + 0.300\*NO2 + 0.300\*NALD | 2.95E-12e -450.00/T | 6.5214E-13 | | RAM03 | ISO + HO ----> ISOP + 0.020\*MO2 | 2.69E-11e 390.00/T | 9.9503E-11 | | RAM04 | ISOP + HO2 ----> ISHP + 0.600\*HO2 + 0.150\*HCHO | 4.50E-13e 1300.00/T | 3.5224E-11 | | RAM05 | ISOP + NO ----> 0.140\*ISON + 0.700\*HCHO + 0.440\*MVK + 0.880\*HO2 + 0.780\*NO2 + 0.280\*MACR + 0.021\*GLY | 2.70E-12e 350.00/T | 8.7334E-12 | | RAM06 | ISHP + HO ----> ISOP | 4.60E-12e 200.00/T | 8.9967E-12 | | RAM07 | INO2 + HO2 ----> IPN + HO | 3.14E-14e 580.00/T | 2.1967E-13 | | RAM08 | INO2 + NO ----> 0.900\*HCHO + 0.500\*MGLY + 0.800\*MVK + 0.500\*NO2 + HO2 + 0.200\*NALD + 0.100\*MO2 | 9.42E-16e 580.00/T | 6.5902E-15 | | RAM9 | IPN + HO2 ----> 0.800\*NO2 + HO2 + 0.400\*HCHO + 0.050\*GLY + 0.100\*MGLY + 0.400\*MACR + 0.940\*MVK + 0.200\*NALD + 0.100\*MO2 | 3.40E-11e 390.00/T | 1.2577E-10 | | RAM10 | ISON + HO ----> NALD + HO + 0.200\*IEPOX | 2.40E-07e 580.00/T | 1.6790E-06 | | RAM11 | ISHP + HO ----> 0.150\*HCHO + 0.050\*MGLY + 0.150\*MACR + 0.020\*GLY + 0.200\*MVK + 0.400\*NO2 + 0.050\*IPC + 0.580\*IEPOX + 0.800\*HO | 2.97E-11e 390.00/T | 1.0986E-10 | | RAM12 | ISHP ----> 0.400\*HCHO + 0.100\*MGLY + 0.060\*ACO3 | HCHO_RAD_RACM2 | Not Available1 | | RAM13 | IPC + NO ----> 0.350\*NO2 + 0.800\*NO | 1.0000E-10 | 1.0000E-10 | | RAM14 | NALD + HO ----> CO + 0.120\*NO2 | 5.0000E-11 | 5.0000E-11 | | RAM15 | NALD + NO3 ----> CO | 2.0000E-14 | 2.0000E-14 | | RAM16 | ISON ----> HNO3 + ROH | 2.3000E-05 | 2.3000E-05 | | R087 | API + HO ----> 0.975\*APIP1 + 0.025\*APIP2 | 1.21E-11e 440.00/T | 5.2930E-11 | | R088 | LIM + HO ----> 0.945\*LIMP1 + 0.055\*LIMP2 | 4.20E-11e 401.00/T | 1.6120E-10 | | TRP04 | PINAL + HO ----> 0.230\*PINALP + 0.770\*RCO3 | 5.20E-12e 600.00/T | 3.8903E-11 | | TRP05 | LIMAL + HO ----> 0.700\*LIMALP + 0.300\*RCO3 | 1.0000E-10 | 1.0000E-10 | | R089 | HCHO + HO ----> HO2 + CO | 5.50E-12e 125.00/T | 8.3645E-12 | | R090 | ACD + HO ----> ACO3 | 4.70E-12e 345.00/T | 1.4950E-11 | | R091 | ALD + HO ----> RCO3 | 4.90E-12e 405.00/T | 1.9060E-11 | | R092 | ACT + HO ----> ACTP | 4.56E-14e -427.00/T(T/300) 3.65 | 1.0646E-14 | | R093 | MEK + HO ----> MEKP | 1.50E-12e -90.00/T | 1.1092E-12 | | R094 | KET + HO ----> KETP | 2.80E-12e 10.00/T | 2.8955E-12 | | R095 | HKET + HO ----> HO2 + MGLY | 3.0000E-12 | 3.0000E-12 | | R096 | MACR + HO ----> 0.570\*MACP + 0.430\*MCP | 8.00E-12e 380.00/T | 2.8616E-11 | | R097 | MVK + HO ----> MVKP | 2.60E-12e 610.00/T | 2.0115E-11 | | R098 | UALD + HO ----> 0.313\*ACO3 + 0.687\*UALP | 5.77E-12e 533.00/T | 3.4479E-11 | | R099 | GLY + HO ----> HO2 + 2.000\*CO | 1.1000E-11 | 1.1000E-11 | | R100 | MGLY + HO ----> ACO3 + CO | 9.26E-13e 830.00/T | 1.4984E-11 | | R101 | DCB1 + HO ----> 0.520\*HO2 + 0.330\*CO + 0.400\*ALD + 0.780\*KET + 0.100\*GLY + 0.010\*MGLY | 2.80E-11e 175.00/T | 5.0358E-11 | | R102 | DCB2 + HO ----> 0.520\*HO2 + 0.330\*CO + 0.130\*MEK + 0.100\*GLY + 0.010\*MGLY + 0.780\*OP2 | 2.80E-11e 175.00/T | 5.0358E-11 | | R103 | DCB3 + HO ----> 0.560\*HO2 + 0.210\*MACP + 0.110\*CO + 0.270\*GLY + 0.010\*MGLY + 0.790\*OP2 | 1.0000E-11 | 1.0000E-11 | | R104 | BALD + HO ----> BALP | 5.32E-12e 243.00/T | 1.2019E-11 | | R105 | PHEN + HO ----> 0.152\*ASOATJ + 0.619\*HO2 + 0.170\*ADDC + 0.059\*CHO + 0.619\*MCT | 6.75E-12e 405.00/T | 2.6257E-11 | | R106 | CSL + HO ----> 0.200\*ASOATJ + 0.584\*HO2 + 0.160\*ADDC + 0.056\*CHO + 0.584\*MCT | 4.65E-11e 0.00/T | 4.6500E-11 | | R108 | MCT + HO ----> MCTO | 2.05E-10e 0.00/T | 2.0500E-10 | | R109 | MOH + HO ----> HO2 + HCHO | 2.85E-12e -345.00/T | 8.9600E-13 | | R110 | EOH + HO ----> HO2 + ACD | 3.00E-12e 20.00/T | 3.2081E-12 | | R111 | ROH + HO ----> HO2 + 0.719\*ALD + 0.184\*ACD | 2.60E-12e 200.00/T | 5.0851E-12 | | R112 | ETEG + HO ----> HO2 + ALD | 1.4700E-11 | 1.4700E-11 | | R113 | OP1 + HO ----> 0.350\*HO + 0.650\*MO2 + 0.350\*HCHO | 2.90E-12e 190.00/T | 5.4848E-12 | | R114 | OP2 + HO ----> 0.010\*HO + 0.440\*HC3P + 0.070\*XO2 + 0.080\*ALD + 0.410\*KET | 3.40E-12e 190.00/T | 6.4304E-12 | | TRP06 | OPB + HO ----> 0.010\*HO + 0.440\*HC10P + 0.070\*XO2 + 0.080\*ALD + 0.410\*KET | 3.40E-12e 190.00/T | 6.4304E-12 | | R114a | OP3 + HO ----> 0.010\*HO + 0.440\*HC10P + 0.070\*XO2 + 0.080\*ALD + 0.410\*KET | 3.40E-12e 190.00/T | 6.4304E-12 | | R116 | MAHP + HO ----> MACP | 3.0000E-11 | 3.0000E-11 | | R117 | ORA1 + HO ----> HO2 | 4.5000E-13 | 4.5000E-13 | | R118 | ORA2 + HO ----> 0.640\*MO2 + 0.360\*ORAP | 4.00E-14e 850.00/T | 6.9214E-13 | | R119 | PAA + HO ----> 0.350\*HO + 0.650\*ACO3 + 0.350\*XO2 + 0.350\*HCHO | 2.93E-12e 190.00/T | 5.5415E-12 | | R120 | PAN + HO ----> XO2 + NO3 + HCHO | 4.0000E-14 | 4.0000E-14 | | R121 | PPN + HO ----> XO2 + NO3 + HCHO | 4.0000E-14 | 4.0000E-14 | | R122 | MPAN + HO ----> NO2 + HKET | 3.2000E-11 | 3.2000E-11 | | R123 | ONIT + HO ----> HC3P + NO2 | 5.31E-12e -260.00/T | 2.2201E-12 | | TRP07 | TRPN + HO ----> HOM | 4.8000E-12 | 4.8000E-12 | | R126 | ETE + O3 ----> 0.080\*HO + 0.150\*HO2 + 0.430\*CO + HCHO + 0.370\*ORA1 | 9.14E-15e -2580.00/T | 1.5953E-18 | | R127 | OLT + O3 ----> 0.220\*HO + 0.320\*HO2 + 0.080\*MO2 + 0.060\*ETHP + 0.040\*HC3P + 0.020\*HC5P + 0.068\*H2O2 + 0.430\*CO + 0.020\*ETH + 0.015\*HC3 + 0.006\*HC5 + 0.032\*BEN + 0.560\*HCHO + 0.010\*ACD + 0.440\*ALD + 0.030\*ACT + 0.020\*BALD + 0.060\*MEK + 0.010\*HKET + 0.030\*ORA1 + 0.060\*ORA2 | 4.33E-15e -1800.00/T | 1.0341E-17 | | R128 | OLI + O3 ----> 0.460\*HO + 0.070\*HO2 + 0.320\*MO2 + 0.070\*ETHP + 0.040\*HC3P + 0.090\*ACO3 + 0.370\*CO + 0.026\*H2O2 + 0.010\*ETH + 0.010\*HC3 + 0.090\*HCHO + 0.457\*ACD + 0.730\*ALD + 0.110\*ACT + 0.017\*KET + 0.044\*HKET + 0.017\*ORA2 | 4.40E-15e -845.00/T | 2.5858E-16 | | R131 | API + O3 ----> 0.900\*HO + 0.900\*APIP1 + 0.050\*APIP2 + 0.050\*PINAL + 0.050\*H2O2 + 0.140\*CO | 5.00E-16e -530.00/T | 8.4519E-17 | | R132 | LIM + O3 ----> 0.840\*HO + 0.840\*LIMP1 + 0.110\*LIMP2 + 0.050\*LIMAL + 0.050\*H2O2 + 0.140\*CO | 2.95E-15e -783.00/T | 2.1344E-16 | | TRP08 | LIMAL + O3 ----> 0.040\*HO + 0.670\*HC10P + 0.790\*HCHO + 0.330\*KET + 0.040\*HO2 + 0.200\*CO | 8.3000E-18 | 8.3000E-18 | | TRP09 | TRPN + O3 ----> HOM | 1.6700E-16 | 1.6700E-16 | | R133 | MACR + O3 ----> 0.190\*HO + 0.140\*HO2 + 0.100\*ACO3 + 0.220\*CO + 0.500\*MGLY + 0.450\*ORA1 | 1.36E-15e -2112.00/T | 1.1406E-18 | | R134 | MVK + O3 ----> 0.160\*HO + 0.110\*HO2 + 0.280\*ACO3 + 0.010\*XO2 + 0.560\*CO + 0.100\*HCHO + 0.540\*MGLY + 0.070\*ORA1 + 0.070\*ORA2 + 0.100\*ALD | 8.50E-16e -1520.00/T | 5.1921E-18 | | R135 | UALD + O3 ----> 0.100\*HO + 0.072\*HO2 + 0.008\*MO2 + 0.002\*ACO3 + 0.100\*XO2 + 0.243\*CO + 0.080\*HCHO + 0.420\*ACD + 0.028\*KET + 0.491\*GLY + 0.003\*MGLY + 0.044\*ORA1 | 1.6600E-18 | 1.6600E-18 | | R136 | DCB1 + O3 ----> 0.050\*HO + HO2 + 0.600\*RCO3 + 0.600\*XO2 + 1.500\*CO + 0.050\*HCHO + 0.050\*GLY + 0.080\*MGLY + 0.650\*OP2 | 2.0000E-16 | 2.0000E-16 | | R137 | DCB2 + O3 ----> 0.050\*HO + HO2 + 0.600\*RCO3 + 0.600\*XO2 + 1.500\*CO + 0.050\*HCHO + 0.050\*GLY + 0.080\*MGLY + 0.700\*DCB1 + 0.650\*OP2 | 2.0000E-16 | 2.0000E-16 | | R138 | DCB3 + O3 ----> 0.050\*HO + HO2 + 1.500\*CO + 0.480\*GLY + 0.700\*DCB1 + 0.250\*ORA1 + 0.250\*ORA2 + 0.110\*PAA | 9.0000E-17 | 9.0000E-17 | | R140 | MCTO + O3 ----> MCTP | 2.8600E-13 | 2.8600E-13 | | R141 | ETE + NO3 ----> 0.800\*OLNN + 0.200\*OLND | 4.39E-13e -2282.00/T(T/300) 2.00 | 2.0571E-16 | | R142 | OLT + NO3 ----> 0.430\*OLNN + 0.570\*OLND | 1.79E-13e -450.00/T | 3.9570E-14 | | R143 | OLI + NO3 ----> 0.110\*OLNN + 0.890\*OLND | 8.64E-13e 450.00/T | 3.9084E-12 | | R146 | API + NO3 ----> 0.975\*APINP1 + 0.025\*APINP2 | 1.19E-12e 490.00/T | 6.1560E-12 | | R147 | LIM + NO3 ----> 0.945\*LIMNP1 + 0.055\*LIMNP2 | 1.2200E-11 | 1.2200E-11 | | TRP10 | TRPN + NO3 ----> HOM | 3.15E-14e -448.00/T | 7.0104E-15 | | R148 | HCHO + NO3 ----> HO2 + CO + HNO3 | 2.00E-12e -2440.00/T | 5.5828E-16 | | R149 | ACD + NO3 ----> ACO3 + HNO3 | 1.40E-12e -1900.00/T | 2.3907E-15 | | R150 | ALD + NO3 ----> RCO3 + HNO3 | 3.76E-12e -1900.00/T | 6.4208E-15 | | R151 | MACR + NO3 ----> 0.680\*HCHO + 0.320\*MACP + 0.680\*XO2 + 0.680\*MGLY + 0.320\*HNO3 + 0.680\*NO2 | 3.4000E-15 | 3.4000E-15 | | R152 | UALD + NO3 ----> HO2 + XO2 + 0.668\*CO + 0.332\*HCHO + 0.332\*ALD + ONIT | 5.02E-13e -1076.00/T | 1.3595E-14 | | R153 | GLY + NO3 ----> HO2 + 2.000\*CO + HNO3 | 2.90E-12e -1900.00/T | 4.9522E-15 | | R154 | MGLY + NO3 ----> ACO3 + CO + HNO3 | 3.76E-12e -1900.00/T | 6.4208E-15 | | R155 | PHEN + NO3 ----> 0.152\*ASOATJ + 0.339\*CHO + 0.850\*ADDC + 0.424\*ADCN + 0.424\*HNO3 | 3.7800E-12 | 3.7800E-12 | | R156 | CSL + NO3 ----> 0.200\*ASOATJ + 0.320\*CHO + 0.080\*ADDC + 0.400\*ADCN + 0.400\*HNO3 | 1.0600E-12 | 1.0600E-12 | | R158 | MCT + NO3 ----> MCTO + HNO3 | 2.0100E-10 | 2.0100E-10 | | R159 | MPAN + NO3 ----> MACP + NO2 | 2.20E-14e -500.00/T | 4.1125E-15 | | TRP11 | PINALP ----> HOM | 1.0000E+00 | 1.0000E+00 | | TRP12 | LIMALP ----> HOM | 1.0000E+00 | 1.0000E+00 | | R166 | ACO3 + NO2 ----> PAN | ko= 9.70E-29e 0.0/T(T/300) -5.60
ki = 9.30E-12e 0.0/T(T/300) -1.50
n= 1.00;F= 0.60 | 8.6800E-12 | | R167 | PAN ----> ACO3 + NO2 | 1.11E+28e-14000.00/T \*R166 | 3.9034E-048| | R168 | RCO3 + NO2 ----> PPN | ko= 9.70E-29e 0.0/T(T/300) -5.60
ki = 9.30E-12e 0.0/T(T/300) -1.50
n= 1.00;F= 0.60 | 8.6800E-12 | | R169 | PPN ----> RCO3 + NO2 | 1.11E+28e-14000.00/T \*R168 | 3.9034E-048| | R170 | MACP + NO2 ----> MPAN | 2.80E-12e 181.00/T | 5.1382E-12 | | R171 | MPAN ----> MACP + NO2 | 1.60E+16e-13486.00/T | 3.6308E-04 | | R172 | MO2 + NO ----> HO2 + NO2 + HCHO | 2.80E-12e 300.00/T | 7.6586E-12 | | R173 | ETHP + NO ----> HO2 + NO2 + ACD | 2.60E-12e 365.00/T | 8.8439E-12 | | R174 | HC3P + NO ----> 0.660\*HO2 + 0.131\*MO2 + 0.048\*ETHP + 0.089\*XO2 + 0.935\*NO2 + 0.504\*ACD + 0.132\*ALD + 0.165\*ACT + 0.042\*MEK + 0.065\*ONIT | 4.0000E-12 | 4.0000E-12 | | R175 | HC5P + NO ----> 0.200\*HO2 + 0.051\*MO2 + 0.231\*ETHP + 0.235\*XO2 + 0.864\*NO2 + 0.018\*HCHO + 0.045\*ACD + 0.203\*ALD + 0.033\*MEK + 0.217\*ACT + 0.033\*KET + 0.272\*HKET + 0.136\*ONIT | 4.0000E-12 | 4.0000E-12 | | R177 | ETEP + NO ----> HO2 + NO2 + 1.600\*HCHO + 0.200\*ALD | 9.0000E-12 | 9.0000E-12 | | R178 | OLTP + NO ----> 0.780\*HO2 + 0.970\*NO2 + 0.780\*HCHO + 0.012\*ACD + 0.440\*ALD + 0.060\*ACT + 0.130\*MEK + 0.030\*ONIT | 4.0000E-12 | 4.0000E-12 | | R179 | OLIP + NO ----> 0.830\*HO2 + 0.950\*NO2 + 0.810\*ACD + 0.680\*ALD + 0.200\*ACT + 0.090\*KET + 0.020\*HKET + 0.050\*ONIT | 4.0000E-12 | 4.0000E-12 | | ROCARO33 | BENP + NO ----> 0.000\*ONIT + 0.001\*VROCP4OXY2 + 0.001\*VROCN1OXY6 + 0.998\*NO2 + 0.998\*HO2 + 0.000\*BALD + 0.998\*GLY + 0.499\*FURANONE + 0.249\*DCB2 + 0.249\*DCB3 | 2.70E-12e 360.00/T | 9.0313E-12 | | ROCARO43 | TOLP + NO ----> 0.000\*ONIT + 0.001\*VROCP4OXY2 + 0.001\*VROCN1OXY6 + 0.998\*NO2 + 0.998\*HO2 + 0.085\*BALD + 0.548\*GLY + 0.365\*MGLY + 0.365\*FURANONE + 0.548\*DCB1 | 2.70E-12e 360.00/T | 9.0313E-12 | | ROCARO53 | XYMP + NO ----> 0.000\*ONIT + 0.001\*VROCP3OXY2 + 0.001\*VROCP0OXY4 + 0.998\*NO2 + 0.998\*HO2 + 0.048\*BALD + 0.703\*GLY + 0.247\*MGLY + 0.351\*FURANONE + 0.598\*DCB2 | 2.70E-12e 360.00/T | 9.0313E-12 | | ROCARO63 | XYEP + NO ----> 0.000\*ONIT + 0.001\*VROCP3OXY2 + 0.001\*VROCP0OXY4 + 0.998\*NO2 + 0.998\*HO2 + 0.085\*BALD + 0.548\*GLY + 0.365\*MGLY + 0.456\*FURANONE + 0.456\*DCB2 | 2.70E-12e 360.00/T | 9.0313E-12 | | R189 | APIP1 + NO ----> 0.820\*HO2 + 0.820\*NO2 + 0.820\*PINAL + 0.180\*TRPN | 4.0000E-12 | 4.0000E-12 | | TRP13 | APIP2 + NO ----> 0.820\*HO + 0.820\*NO2 + HOM | 4.0000E-12 | 4.0000E-12 | | TRP14 | APINP1 + NO ----> 2.000\*NO2 + PINAL | 4.0000E-12 | 4.0000E-12 | | TRP15 | APINP2 + NO ----> 0.820\*NO2 + 0.820\*HO + HOM | 4.0000E-12 | 4.0000E-12 | | R190 | LIMP1 + NO ----> 0.770\*HO2 + 0.770\*NO2 + 0.490\*LIMAL + 0.280\*HCHO + 0.280\*UALD + 0.230\*TRPN | 4.0000E-12 | 4.0000E-12 | | TRP16 | LIMP2 + NO ----> 0.770\*HO + 0.770\*NO2 + HOM | 4.0000E-12 | 4.0000E-12 | | TRP17 | LIMNP1 + NO ----> 2.000\*NO2 + LIMAL | 4.0000E-12 | 4.0000E-12 | | TRP18 | LIMNP2 + NO ----> 0.770\*NO2 + 0.770\*HO + HOM | 4.0000E-12 | 4.0000E-12 | | TRP19 | PINALP + NO ----> 0.950\*HO2 + 0.950\*NO2 + 0.050\*TRPN + 0.950\*HCHO + 0.950\*KET | 2.70E-12e 360.00/T | 9.0313E-12 | | TRP20 | LIMALP + NO ----> 0.940\*HO2 + 0.940\*NO2 + 0.060\*TRPN + 0.940\*HCHO + 0.940\*KET | 2.70E-12e 360.00/T | 9.0313E-12 | | R191 | ACO3 + NO ----> MO2 + NO2 | 8.10E-12e 270.00/T | 2.0034E-11 | | R192 | RCO3 + NO ----> ETHP + NO2 | 8.10E-12e 270.00/T | 2.0034E-11 | | R193 | ACTP + NO ----> ACO3 + NO2 + HCHO | 2.90E-12e 300.00/T | 7.9321E-12 | | R194 | MEKP + NO ----> 0.670\*HO2 + NO2 + 0.330\*HCHO + 0.670\*DCB1 | 4.0000E-12 | 4.0000E-12 | | R195 | KETP + NO ----> 0.770\*HO2 + 0.230\*ACO3 + 0.160\*XO2 + NO2 + 0.460\*ALD + 0.540\*MGLY | 4.0000E-12 | 4.0000E-12 | | R196 | MACP + NO ----> 0.650\*MO2 + 0.350\*ACO3 + NO2 + 0.650\*CO + 0.650\*HCHO | 2.54E-12e 360.00/T | 8.4961E-12 | | R197 | MCP + NO ----> NO2 + 0.500\*HO2 + 0.500\*HCHO + HKET | 2.54E-12e 360.00/T | 8.4961E-12 | | R198 | MVKP + NO ----> 0.300\*HO2 + 0.700\*ACO3 + 0.700\*XO2 + NO2 + 0.300\*HCHO + 0.700\*ALD + 0.300\*MGLY | 2.54E-12e 360.00/T | 8.4961E-12 | | R199 | UALP + NO ----> HO2 + NO2 + 0.610\*CO + 0.030\*HCHO + 0.270\*ALD + 0.180\*GLY + 0.700\*KET + 0.210\*MGLY | 2.54E-12e 360.00/T | 8.4961E-12 | | R200 | BALP + NO ----> BAL1 + NO2 | 4.0000E-12 | 4.0000E-12 | | R201 | BAL1 + NO ----> BAL2 + NO2 | 4.0000E-12 | 4.0000E-12 | | R202 | ADDC + NO ----> HO2 + NO2 + 0.320\*HKET + 0.680\*GLY + 0.680\*OP2 | 2.70E-12e 360.00/T | 9.0313E-12 | | R203 | MCTP + NO ----> MCTO + NO2 | 2.70E-12e 360.00/T | 9.0313E-12 | | R204 | ORAP + NO ----> NO2 + GLY + HO2 | 4.0000E-12 | 4.0000E-12 | | R205 | OLNN + NO ----> NO2 + HO2 + ONIT | 4.0000E-12 | 4.0000E-12 | | R206 | OLND + NO ----> 2.000\*NO2 + 0.287\*HCHO + 1.240\*ALD + 0.464\*KET | 4.0000E-12 | 4.0000E-12 | | R207 | ADCN + NO ----> 2.000\*NO2 + GLY + OP2 | 2.70E-12e 360.00/T | 9.0313E-12 | | R208 | XO2 + NO ----> NO2 | 4.0000E-12 | 4.0000E-12 | | R209 | BAL2 + NO2 ----> ONIT | 2.0000E-11 | 2.0000E-11 | | R210 | CHO + NO2 ----> ONIT | 2.0000E-11 | 2.0000E-11 | | R211 | MCTO + NO2 ----> ONIT | 2.0800E-12 | 2.0800E-12 | | R212 | MO2 + HO2 ----> OP1 | 4.10E-13e 750.00/T | 5.0729E-12 | | R213 | ETHP + HO2 ----> OP2 | 7.50E-13e 700.00/T | 7.8470E-12 | | R214 | HC3P + HO2 ----> OP2 | 1.66E-13e 1300.00/T | 1.2994E-11 | | R215 | HC5P + HO2 ----> OP2 | 1.66E-13e 1300.00/T | 1.2994E-11 | | R217 | ETEP + HO2 ----> OP2 | 1.90E-13e 1300.00/T | 1.4872E-11 | | R218 | OLTP + HO2 ----> OP2 | 1.66E-13e 1300.00/T | 1.2994E-11 | | R219 | OLIP + HO2 ----> OP2 | 1.66E-13e 1300.00/T | 1.2994E-11 | | ROCARO32 | BENP + HO2 ----> 0.602\*OP2 + 0.398\*VROCN1OXY6 | 2.91E-13e 1300.00/T | 2.2778E-11 | | ROCARO42 | TOLP + HO2 ----> 0.720\*OP2 + 0.281\*VROCN1OXY6 | 2.91E-13e 1300.00/T | 2.2778E-11 | | ROCARO52 | XYMP + HO2 ----> 0.048\*OP2 + 0.675\*OP3 + 0.277\*VROCP0OXY4 | 2.91E-13e 1300.00/T | 2.2778E-11 | | ROCARO62 | XYEP + HO2 ----> 0.085\*OP2 + 0.634\*OP3 + 0.281\*VROCP0OXY4 | 2.91E-13e 1300.00/T | 2.2778E-11 | | R229 | APIP1 + HO2 ----> OPB | 1.5000E-11 | 1.5000E-11 | | TRP21 | APIP2 + HO2 ----> HOM | 1.5000E-11 | 1.5000E-11 | | TRP22 | APINP1 + HO2 ----> TRPN | 1.5000E-11 | 1.5000E-11 | | TRP23 | APINP2 + HO2 ----> HOM | 1.5000E-11 | 1.5000E-11 | | R230 | LIMP1 + HO2 ----> OPB | 1.5000E-11 | 1.5000E-11 | | TRP24 | LIMP2 + HO2 ----> HOM | 1.5000E-11 | 1.5000E-11 | | TRP25 | LIMNP1 + HO2 ----> TRPN | 1.5000E-11 | 1.5000E-11 | | TRP26 | LIMNP2 + HO2 ----> HOM | 1.5000E-11 | 1.5000E-11 | | TRP27 | PINALP + HO2 ----> OPB | 2.91E-13e 1300.00/T | 2.2778E-11 | | TRP28 | LIMALP + HO2 ----> OPB | 2.91E-13e 1300.00/T | 2.2778E-11 | | R231 | ACO3 + HO2 ----> 0.440\*HO + 0.440\*MO2 + 0.150\*ORA2 + 0.410\*PAA | 4.30E-13e 1040.00/T | 1.4072E-11 | | R232 | RCO3 + HO2 ----> 0.440\*HO + 0.440\*ETHP + 0.150\*ORA2 + 0.410\*PAA | 4.30E-13e 1040.00/T | 1.4072E-11 | | R233 | ACTP + HO2 ----> 0.150\*HO + 0.150\*ACO3 + 0.150\*HCHO + 0.850\*OP2 | 1.15E-13e 1300.00/T | 9.0016E-12 | | R234 | MEKP + HO2 ----> OP2 | 1.15E-13e 1300.00/T | 9.0016E-12 | | R235 | KETP + HO2 ----> OP2 | 1.15E-13e 1300.00/T | 9.0016E-12 | | R236 | MACP + HO2 ----> MAHP | 1.82E-13e 1300.00/T | 1.4246E-11 | | R237 | MCP + HO2 ----> MAHP | 1.82E-13e 1300.00/T | 1.4246E-11 | | R238 | MVKP + HO2 ----> OP2 | 2.91E-13e 1300.00/T | 2.2778E-11 | | R239 | UALP + HO2 ----> OP2 | 2.91E-13e 1300.00/T | 2.2778E-11 | | R240 | ADDC + HO2 ----> OP2 | 3.75E-13e 980.00/T | 1.0035E-11 | | R241 | CHO + HO2 ----> CSL | 1.0000E-11 | 1.0000E-11 | | R242 | MCTP + HO2 ----> OP2 | 3.75E-13e 980.00/T | 1.0035E-11 | | R243 | ORAP + HO2 ----> OP2 | 1.15E-13e 1300.00/T | 9.0016E-12 | | R244 | OLNN + HO2 ----> ONIT | 1.66E-13e 1300.00/T | 1.2994E-11 | | R245 | OLND + HO2 ----> ONIT | 1.66E-13e 1300.00/T | 1.2994E-11 | | R246 | ADCN + HO2 ----> OP2 | 3.75E-13e 980.00/T | 1.0035E-11 | | R247 | XO2 + HO2 ----> OP2 | 1.66E-13e 1300.00/T | 1.2994E-11 | | R248 | MO2 + MO2 ----> 0.740\*HO2 + 1.370\*HCHO + 0.630\*MOH | 9.50E-14e 390.00/T | 3.5141E-13 | | R249 | ETHP + MO2 ----> HO2 + 0.750\*HCHO + 0.750\*ACD + 0.250\*MOH + 0.250\*EOH | 1.18E-13e 158.00/T | 2.0046E-13 | | R250 | HC3P + MO2 ----> 0.894\*HO2 + 0.080\*MO2 + 0.026\*ETHP + 0.026\*XO2 + 0.827\*HCHO + 0.198\*ALD + 0.497\*KET + 0.050\*GLY + 0.250\*MOH + 0.250\*ROH | 9.46E-14e 431.00/T | 4.0151E-13 | | R251 | HC5P + MO2 ----> 0.842\*HO2 + 0.018\*MO2 + 0.140\*ETHP + 0.191\*XO2 + 0.777\*HCHO + 0.251\*ALD + 0.618\*KET + 0.250\*MOH + 0.250\*ROH | 1.00E-13e 467.00/T | 4.7890E-13 | | R253 | ETEP + MO2 ----> HO2 + 1.950\*HCHO + 0.150\*ALD + 0.250\*MOH + 0.250\*ETEG | 1.71E-13e 708.00/T | 1.8378E-12 | | R254 | OLTP + MO2 ----> HO2 + 1.500\*HCHO + 0.705\*ALD + 0.045\*KET + 0.250\*MOH + 0.250\*ROH | 1.46E-13e 708.00/T | 1.5691E-12 | | R255 | OLIP + MO2 ----> HO2 + 0.750\*HCHO + 1.280\*ALD + 0.218\*KET + 0.250\*MOH + 0.250\*ROH | 9.18E-14e 708.00/T | 9.8659E-13 | | ROCARO35 | BENP + MO2 ----> 0.680\*HCHO + 1.370\*HO2 + 0.320\*MOH + 0.000\*BALD + GLY + 0.500\*FURANONE + 0.250\*DCB2 + 0.250\*DCB3 | 3.56E-14e 708.00/T | 3.8260E-13 | | ROCARO45 | TOLP + MO2 ----> 0.680\*HCHO + 1.285\*HO2 + 0.320\*MOH + 0.085\*BALD + 0.549\*GLY + 0.366\*MGLY + 0.366\*FURANONE + 0.549\*DCB1 | 3.56E-14e 708.00/T | 3.8260E-13 | | ROCARO55 | XYMP + MO2 ----> 0.680\*HCHO + 1.322\*HO2 + 0.320\*MOH + 0.048\*BALD + 0.704\*GLY + 0.247\*MGLY + 0.352\*FURANONE + 0.600\*DCB2 | 3.56E-14e 708.00/T | 3.8260E-13 | | ROCARO65 | XYEP + MO2 ----> 0.680\*HCHO + 1.285\*HO2 + 0.320\*MOH + 0.085\*BALD + 0.549\*GLY + 0.366\*MGLY + 0.457\*FURANONE + 0.457\*DCB2 | 3.56E-14e 708.00/T | 3.8260E-13 | | R264 | ISOP + MO2 ----> HO2 + 1.310\*HCHO + 0.159\*MACR + 0.250\*MVK + 0.250\*MOH + 0.250\*ROH + 0.023\*ALD + 0.018\*GLY + 0.016\*HKET | 3.40E-14e 221.00/T | 7.1350E-14 | | R265 | APIP1 + MO2 ----> HO2 + 0.680\*HCHO + 0.600\*PINAL + 0.070\*KET + 0.320\*MOH + 0.250\*ROH | 3.56E-14e 708.00/T | 3.8260E-13 | | TRP29 | APIP2 + MO2 ----> HO2 + 0.750\*HCHO + 0.250\*MOH + HOM | 1.0000E-10 | 1.0000E-10 | | TRP30 | APINP1 + MO2 ----> 0.370\*HO2 + 0.860\*NO2 + 0.680\*HCHO + 0.860\*PINAL + 0.320\*MOH + 0.140\*TRPN | 3.56E-14e 708.00/T | 3.8260E-13 | | TRP31 | APINP2 + MO2 ----> 0.750\*HO2 + 0.750\*NO2 + 0.250\*MOH + 0.750\*HCHO + HOM | 1.0000E-10 | 1.0000E-10 | | R266 | LIMP1 + MO2 ----> HO2 + HCHO + 0.420\*LIMAL + 0.300\*KET + 0.320\*MOH + 0.270\*ROH | 3.56E-14e 708.00/T | 3.8260E-13 | | TRP32 | LIMP2 + MO2 ----> HO2 + 0.750\*HCHO + 0.250\*MOH + HOM | 1.0000E-10 | 1.0000E-10 | | TRP33 | LIMNP1 + MO2 ----> 0.370\*HO2 + 0.680\*HCHO + 0.700\*LIMAL + 0.700\*NO2 + 0.320\*MOH + 0.300\*TRPN | 3.56E-14e 708.00/T | 3.8260E-13 | | TRP34 | LIMNP2 + MO2 ----> 0.750\*HO2 + 0.750\*HCHO + 0.750\*NO2 + 0.250\*MOH + HOM | 1.0000E-10 | 1.0000E-10 | | R267 | ACO3 + MO2 ----> 0.900\*HO2 + 0.900\*MO2 + HCHO + 0.100\*ORA2 | 2.00E-11e 500.00/T | 1.0699E-10 | | R268 | RCO3 + MO2 ----> 0.900\*HO2 + 0.900\*MO2 + HCHO + 0.100\*ORA2 | 2.00E-11e 500.00/T | 1.0699E-10 | | R269 | ACTP + MO2 ----> 0.500\*HO2 + 0.500\*ACO3 + 1.500\*HCHO + 0.250\*MOH + 0.250\*ROH + 0.125\*ORA2 | 7.50E-13e 500.00/T | 4.0121E-12 | | R270 | MEKP + MO2 ----> 0.834\*HO2 + HCHO + 0.334\*DCB1 + 0.250\*MOH + 0.250\*ROH | 6.91E-13e 508.00/T | 3.7971E-12 | | R271 | KETP + MO2 ----> HO2 + 0.750\*HCHO + 0.500\*DCB1 + 0.250\*MOH + 0.250\*ROH | 6.91E-13e 508.00/T | 3.7971E-12 | | R272 | MACP + MO2 ----> 0.500\*HO2 + 0.269\*ACO3 + 0.500\*CO + 1.660\*HCHO + 0.067\*ORA2 + 0.250\*MO2 + 0.250\*MOH + 0.250\*ROH | 3.40E-14e 221.00/T | 7.1350E-14 | | R273 | MCP + MO2 ----> NO2 + HO2 + 1.500\*HCHO + 0.500\*HKET + 0.250\*MOH + 0.250\*ROH | 3.40E-14e 221.00/T | 7.1350E-14 | | R274 | MVKP + MO2 ----> HO2 + 1.160\*ACO3 + 1.160\*XO2 + 1.500\*HCHO + 1.750\*ALD + 0.500\*MGLY + 0.250\*MOH + 0.250\*ROH + 0.292\*ORA2 | 8.3700E-14 | 8.3700E-14 | | R275 | UALP + MO2 ----> HO2 + 0.305\*CO + 0.773\*HCHO + 0.203\*ALD + 0.525\*KET + 0.135\*GLY + 0.105\*MGLY + 0.250\*MOH + 0.250\*ROH | 3.40E-14e 221.00/T | 7.1350E-14 | | R276 | BALP + MO2 ----> HO2 + BAL1 + HCHO | 3.56E-14e 708.00/T | 3.8260E-13 | | R277 | BAL1 + MO2 ----> HO2 + BAL2 + HCHO | 3.56E-14e 708.00/T | 3.8260E-13 | | R278 | ADDC + MO2 ----> 2.000\*HO2 + HCHO + 0.320\*HKET + 0.680\*GLY + 0.680\*OP2 | 3.56E-14e 708.00/T | 3.8260E-13 | | R279 | MCTP + MO2 ----> HO2 + MCTO + HCHO | 3.56E-14e 708.00/T | 3.8260E-13 | | R280 | ORAP + MO2 ----> HCHO + HO2 + GLY | 7.50E-13e 500.00/T | 4.0121E-12 | | R281 | OLNN + MO2 ----> 2.000\*HO2 + HCHO + ONIT | 1.60E-13e 708.00/T | 1.7195E-12 | | R282 | OLND + MO2 ----> 0.500\*HO2 + 0.500\*NO2 + 0.965\*HCHO + 0.930\*ALD + 0.348\*KET + 0.250\*MOH + 0.250\*ROH + 0.500\*ONIT | 9.68E-14e 708.00/T | 1.0403E-12 | | R283 | ADCN + MO2 ----> HO2 + 0.700\*NO2 + HCHO + 0.700\*GLY + 0.700\*OP2 + 0.300\*ONIT | 3.5600E-14 | 3.5600E-14 | | R284 | XO2 + MO2 ----> HO2 + HCHO | 5.99E-15e 1510.00/T | 9.4829E-13 | | R285 | ETHP + ACO3 ----> 0.500\*HO2 + 0.500\*MO2 + ACD + 0.500\*ORA2 | 1.03E-12e 211.00/T | 2.0902E-12 | | R286 | HC3P + ACO3 ----> 0.394\*HO2 + 0.580\*MO2 + 0.026\*ETHP + 0.026\*XO2 + 0.130\*HCHO + 0.273\*ALD + 0.662\*KET + 0.067\*GLY + 0.500\*ORA2 | 6.90E-13e 460.00/T | 3.2277E-12 | | R287 | HC5P + ACO3 ----> 0.342\*HO2 + 0.518\*MO2 + 0.140\*ETHP + 0.191\*XO2 + 0.042\*HCHO + 0.381\*ALD + 0.824\*KET + 0.500\*ORA2 | 5.59E-13e 522.00/T | 3.2194E-12 | | R289 | ETEP + ACO3 ----> 0.500\*HO2 + 0.500\*MO2 + 1.600\*HCHO + 0.200\*ALD + 0.500\*ORA2 | 9.48E-13e 765.00/T | 1.2335E-11 | | R290 | OLTP + ACO3 ----> 0.500\*HO2 + 0.500\*MO2 + HCHO + 0.940\*ALD + 0.060\*KET + 0.500\*ORA2 | 8.11E-13e 765.00/T | 1.0552E-11 | | R291 | OLIP + ACO3 ----> 0.500\*HO2 + 0.500\*MO2 + 1.710\*ALD + 0.290\*KET + 0.500\*ORA2 | 5.09E-13e 765.00/T | 6.6228E-12 | | ROCARO36 | BENP + ACO3 ----> 0.700\*MO2 + HO2 + 0.300\*ORA2 + 0.000\*BALD + GLY + 0.500\*FURANONE + 0.250\*DCB2 + 0.250\*DCB3 | 7.40E-13e 765.00/T | 9.6284E-12 | | ROCARO46 | TOLP + ACO3 ----> 0.700\*MO2 + 0.915\*HO2 + 0.300\*ORA2 + 0.085\*BALD + 0.549\*GLY + 0.366\*MGLY + 0.366\*FURANONE + 0.549\*DCB1 | 7.40E-13e 765.00/T | 9.6284E-12 | | ROCARO56 | XYMP + ACO3 ----> 0.700\*MO2 + 0.952\*HO2 + 0.300\*ORA2 + 0.048\*BALD + 0.704\*GLY + 0.247\*MGLY + 0.352\*FURANONE + 0.600\*DCB2 | 7.40E-13e 765.00/T | 9.6284E-12 | | ROCARO66 | XYEP + ACO3 ----> 0.700\*MO2 + 0.915\*HO2 + 0.300\*ORA2 + 0.085\*BALD + 0.549\*GLY + 0.366\*MGLY + 0.457\*FURANONE + 0.457\*DCB2 | 7.40E-13e 765.00/T | 9.6284E-12 | | R300 | ISOP + ACO3 ----> 0.500\*HO2 + 0.500\*MO2 + 1.048\*HCHO + 0.219\*MACR + 0.305\*MVK + 0.500\*ORA2 | 8.40E-14e 221.00/T | 1.7628E-13 | | R301 | APIP1 + ACO3 ----> 0.630\*HO2 + 0.700\*MO2 + 0.600\*PINAL + 0.300\*ORA2 + 0.070\*KET + 0.250\*ROH | 7.40E-13e 765.00/T | 9.6284E-12 | | TRP35 | APIP2 + ACO3 ----> 0.500\*HO + 0.500\*MO2 + 0.500\*ORA2 + HOM | 1.0000E-10 | 1.0000E-10 | | TRP36 | APINP1 + ACO3 ----> 0.860\*NO2 + 0.140\*TRPN + 0.860\*PINAL + 0.700\*MO2 + 0.300\*ORA2 | 7.40E-13e 765.00/T | 9.6284E-12 | | TRP37 | APINP2 + ACO3 ----> 0.500\*NO2 + 0.500\*MO2 + 0.500\*ORA2 + HOM | 1.0000E-10 | 1.0000E-10 | | R302 | LIMP1 + ACO3 ----> 0.630\*HO2 + 0.700\*MO2 + 0.420\*LIMAL + 0.300\*KET + 0.300\*ORA2 + 0.320\*HCHO + 0.270\*ROH | 7.40E-13e 765.00/T | 9.6284E-12 | | TRP38 | LIMP2 + ACO3 ----> 0.500\*HO + 0.500\*MO2 + 0.500\*ORA2 + HOM | 1.0000E-10 | 1.0000E-10 | | TRP39 | LIMNP1 + ACO3 ----> 0.700\*NO2 + 0.700\*LIMAL + 0.300\*TRPN + 0.700\*MO2 + 0.300\*ORA2 | 7.40E-13e 765.00/T | 9.6284E-12 | | TRP40 | LIMNP2 + ACO3 ----> 0.500\*MO2 + 0.500\*NO2 + 0.500\*ORA2 + HOM | 1.0000E-10 | 1.0000E-10 | | R303 | ACO3 + ACO3 ----> 2.000\*MO2 | 2.50E-12e 500.00/T | 1.3374E-11 | | R304 | RCO3 + ACO3 ----> MO2 + ETHP | 2.50E-12e 500.00/T | 1.3374E-11 | | R305 | ACTP + ACO3 ----> 0.500\*MO2 + 0.500\*ACO3 + HCHO + 0.750\*ORA2 | 7.51E-13e 565.00/T | 4.9962E-12 | | R306 | MEKP + ACO3 ----> 0.330\*HO2 + 0.500\*MO2 + 0.330\*HCHO + 0.334\*DCB1 + 0.500\*ORA2 | 7.51E-13e 565.00/T | 4.9962E-12 | | R307 | KETP + ACO3 ----> 0.500\*HO2 + 0.500\*MO2 + 0.500\*DCB1 + 0.500\*ORA2 | 7.51E-13e 565.00/T | 4.9962E-12 | | R308 | MACP + ACO3 ----> 0.635\*ORA2 + 0.500\*MO2 + 0.269\*ACO3 + 0.500\*CO + HCHO | 8.40E-14e 221.00/T | 1.7628E-13 | | R309 | MCP + ACO3 ----> NO2 + 0.500\*HO2 + HCHO + 0.500\*HKET + 0.500\*MO2 + 0.500\*ORA2 | 8.40E-14e 221.00/T | 1.7628E-13 | | R310 | MVKP + ACO3 ----> 0.500\*HO2 + 0.500\*MO2 + 1.160\*ACO3 + 1.160\*XO2 + HCHO + 2.300\*ALD + 0.500\*MGLY + 1.083\*ORA2 | 1.68E-12e 500.00/T | 8.9872E-12 | | R311 | UALP + ACO3 ----> 0.500\*HO2 + 0.500\*MO2 + 0.500\*CO + 0.030\*HCHO + 0.270\*ALD + 0.700\*KET + 0.180\*GLY + 0.105\*MGLY + 0.500\*ORA2 | 1.68E-12e 500.00/T | 8.9872E-12 | | R312 | BALP + ACO3 ----> MO2 + BAL1 | 7.40E-13e 765.00/T | 9.6284E-12 | | R313 | BAL1 + ACO3 ----> MO2 + BAL2 | 7.40E-13e 765.00/T | 9.6284E-12 | | R314 | ADDC + ACO3 ----> 2.000\*HO2 + MO2 + 0.320\*HKET + 0.680\*GLY + 0.680\*OP2 | 7.40E-13e 708.00/T | 7.9529E-12 | | R315 | MCTP + ACO3 ----> HO2 + MO2 + MCTO | 7.40E-13e 708.00/T | 7.9529E-12 | | R316 | ORAP + ACO3 ----> MO2 + GLY | 7.51E-13e 565.00/T | 4.9962E-12 | | R317 | OLNN + ACO3 ----> HO2 + MO2 + ONIT | 8.85E-13e 765.00/T | 1.1515E-11 | | R318 | OLND + ACO3 ----> 0.500\*MO2 + NO2 + 0.287\*HCHO + 1.240\*ALD + 0.464\*KET + 0.500\*ORA2 | 5.37E-13e 765.00/T | 6.9871E-12 | | R319 | ADCN + ACO3 ----> HO2 + MO2 + 0.700\*NO2 + 0.700\*GLY + 0.700\*OP2 + 0.300\*ONIT | 7.40E-13e 708.00/T | 7.9529E-12 | | R320 | XO2 + ACO3 ----> MO2 | 3.40E-14e 1560.00/T | 6.3654E-12 | | R321 | RCO3 + RCO3 ----> 2.000\*ETHP | 2.50E-12e 500.00/T | 1.3374E-11 | | R322 | MO2 + NO3 ----> HO2 + HCHO + NO2 | 1.2000E-12 | 1.2000E-12 | | R323 | ETHP + NO3 ----> HO2 + NO2 + ACD | 1.2000E-12 | 1.2000E-12 | | R324 | HC3P + NO3 ----> 0.254\*HO2 + 0.140\*MO2 + 0.092\*XO2 + 0.503\*ETHP + NO2 + 0.519\*ACD + 0.147\*ALD + 0.075\*MEK + 0.095\*ACT | 1.2000E-12 | 1.2000E-12 | | R325 | HC5P + NO3 ----> 0.488\*HO2 + 0.055\*MO2 + 0.280\*ETHP + 0.485\*XO2 + NO2 + 0.024\*HCHO + 0.241\*ALD + 0.060\*KET + 0.063\*MEK + 0.247\*ACT + 0.048\*ACD + 0.275\*HKET | 1.2000E-12 | 1.2000E-12 | | R327 | ETEP + NO3 ----> HO2 + NO2 + 1.600\*HCHO + 0.200\*ALD | 1.2000E-12 | 1.2000E-12 | | R328 | OLTP + NO3 ----> 0.470\*ALD + 0.790\*HCHO + 0.790\*HO2 + NO2 + 0.180\*MEK + 0.020\*ACD + 0.090\*ACT | 1.2000E-12 | 1.2000E-12 | | R329 | OLIP + NO3 ----> 0.860\*HO2 + 0.720\*ALD + 0.110\*KET + NO2 + 0.200\*ACT + 0.850\*ACD + 0.040\*HKET | 1.2000E-12 | 1.2000E-12 | | ROCARO34 | BENP + NO3 ----> NO2 + HO2 + 0.000\*BALD + GLY + 0.500\*FURANONE + 0.250\*DCB2 + 0.250\*DCB3 | 2.3000E-12 | 2.3000E-12 | | ROCARO44 | TOLP + NO3 ----> NO2 + 0.915\*HO2 + 0.085\*BALD + 0.549\*GLY + 0.366\*MGLY + 0.366\*FURANONE + 0.549\*DCB1 | 2.3000E-12 | 2.3000E-12 | | ROCARO54 | XYMP + NO3 ----> NO2 + 0.952\*HO2 + 0.048\*BALD + 0.704\*GLY + 0.247\*MGLY + 0.352\*FURANONE + 0.600\*DCB2 | 2.3000E-12 | 2.3000E-12 | | ROCARO64 | XYEP + NO3 ----> NO2 + 0.915\*HO2 + 0.085\*BALD + 0.549\*GLY + 0.366\*MGLY + 0.457\*FURANONE + 0.457\*DCB2 | 2.3000E-12 | 2.3000E-12 | | R338 | ISOP + NO3 ----> HO2 + NO2 + 0.750\*HCHO + 0.318\*MACR + 0.500\*MVK + 0.024\*GLY + 0.033\*HKET + 0.031\*ALD | 1.2000E-12 | 1.2000E-12 | | R339 | APIP1 + NO3 ----> HO2 + NO2 + ALD + KET | 1.2000E-12 | 1.2000E-12 | | R340 | LIMP1 + NO3 ----> HO2 + NO2 + 0.385\*OLI + 0.385\*HCHO + 0.615\*MACR | 1.2000E-12 | 1.2000E-12 | | R341 | ACO3 + NO3 ----> MO2 + NO2 | 4.0000E-12 | 4.0000E-12 | | R342 | RCO3 + NO3 ----> ETHP + NO2 | 4.0000E-12 | 4.0000E-12 | | R343 | ACTP + NO3 ----> ACO3 + NO2 + HCHO | 1.2000E-12 | 1.2000E-12 | | R344 | MEKP + NO3 ----> 0.670\*HO2 + NO2 + 0.330\*HCHO + 0.670\*DCB1 | 1.2000E-12 | 1.2000E-12 | | R345 | KETP + NO3 ----> HO2 + NO2 + DCB1 | 1.2000E-12 | 1.2000E-12 | | R346 | MACP + NO3 ----> HCHO + 0.538\*ACO3 + CO + NO2 | 1.2000E-12 | 1.2000E-12 | | R347 | MCP + NO3 ----> NO2 + HO2 + HCHO + HKET | 1.2000E-12 | 1.2000E-12 | | R348 | MVKP + NO3 ----> 0.300\*HO2 + 0.700\*ACO3 + 0.700\*XO2 + NO2 + 0.300\*HCHO + 0.700\*ALD + 0.300\*MGLY | 2.5000E-12 | 2.5000E-12 | | R349 | UALP + NO3 ----> HO2 + NO2 + 0.610\*CO + 0.030\*HCHO + 0.270\*ALD + 0.700\*KET + 0.180\*GLY + 0.210\*MGLY | 2.5000E-12 | 2.5000E-12 | | R350 | BALP + NO3 ----> BAL1 + NO2 | 2.5000E-12 | 2.5000E-12 | | R351 | BAL1 + NO3 ----> BAL2 + NO2 | 2.5000E-12 | 2.5000E-12 | | R352 | ADDC + NO3 ----> HO2 + NO2 + 0.320\*HKET + 0.680\*GLY + 0.680\*OP2 | 1.2000E-12 | 1.2000E-12 | | R353 | MCTP + NO3 ----> NO2 + MCTO | 1.2000E-12 | 1.2000E-12 | | R354 | ORAP + NO3 ----> NO2 + GLY + HO2 | 1.2000E-12 | 1.2000E-12 | | R355 | OLNN + NO3 ----> HO2 + NO2 + ONIT | 1.2000E-12 | 1.2000E-12 | | R356 | OLND + NO3 ----> 2.000\*NO2 + 0.287\*HCHO + 1.240\*ALD + 0.464\*KET | 1.2000E-12 | 1.2000E-12 | | R357 | ADCN + NO3 ----> 2.000\*NO2 + GLY + OP2 | 1.2000E-12 | 1.2000E-12 | | R358 | OLNN + OLNN ----> HO2 + 2.000\*ONIT | 7.00E-14e 1000.00/T | 2.0032E-12 | | R359 | OLNN + OLND ----> 0.500\*HO2 + 0.500\*NO2 + 0.202\*HCHO + 0.640\*ALD + 0.149\*KET + 1.500\*ONIT | 4.25E-14e 1000.00/T | 1.2162E-12 | | R360 | OLND + OLND ----> NO2 + 0.504\*HCHO + 1.210\*ALD + 0.285\*KET + ONIT | 2.96E-14e 1000.00/T | 8.4708E-13 | | R361 | XO2 + NO3 ----> NO2 | 1.2000E-12 | 1.2000E-12 | | R362 | XO2 + RCO3 ----> ETHP | 2.50E-12e 500.00/T | 1.3374E-11 | | R363 | XO2 + XO2 ----> | 7.13E-17e 2950.00/T | 1.4130E-12 | | TRP41 | APIP2 + APIP1 ----> 0.960\*HOM + 0.480\*ROH + 0.480\*PINAL + 0.480\*HO + 0.480\*HO2 + 0.040\*ELHOM | 1.0000E-10 | 1.0000E-10 | | TRP42 | APIP2 + LIMP1 ----> 0.960\*HOM + 0.480\*ROH + 0.480\*LIMAL + 0.480\*HO + 0.480\*HO2 + 0.040\*ELHOM | 1.0000E-10 | 1.0000E-10 | | TRP43 | APIP2 + ISOP ----> 0.960\*HOM + 0.480\*ROH + 0.480\*HCHO + 0.480\*MVK + 0.480\*HO + 0.480\*HO2 + 0.040\*ELHOM | 1.0000E-10 | 1.0000E-10 | | TRP44 | LIMP2 + APIP1 ----> 0.960\*HOM + 0.480\*ROH + 0.480\*PINAL + 0.480\*HO + 0.480\*HO2 + 0.040\*ELHOM | 1.0000E-10 | 1.0000E-10 | | TRP45 | LIMP2 + LIMP1 ----> 0.960\*HOM + 0.480\*ROH + 0.480\*LIMAL + 0.480\*HO + 0.480\*HO2 + 0.040\*ELHOM | 1.0000E-10 | 1.0000E-10 | | TRP46 | LIMP2 + ISOP ----> 0.960\*HOM + 0.480\*ROH + 0.480\*HCHO + 0.480\*MVK + 0.480\*HO + 0.480\*HO2 + 0.040\*ELHOM | 1.0000E-10 | 1.0000E-10 | | TRP47 | APINP2 + APIP1 ----> 0.960\*HOM + 0.480\*ROH + 0.480\*PINAL + 0.480\*NO2 + 0.480\*HO2 + 0.040\*ELHOM | 1.0000E-10 | 1.0000E-10 | | TRP48 | APINP2 + LIMP1 ----> 0.960\*HOM + 0.480\*ROH + 0.480\*LIMAL + 0.480\*NO2 + 0.480\*HO2 + 0.040\*ELHOM | 1.0000E-10 | 1.0000E-10 | | TRP49 | APINP2 + ISOP ----> 0.960\*HOM + 0.480\*ROH + 0.480\*HCHO + 0.480\*MVK + 0.480\*NO2 + 0.480\*HO2 + 0.040\*ELHOM | 1.0000E-10 | 1.0000E-10 | | TRP50 | LIMNP2 + APIP1 ----> 0.960\*HOM + 0.480\*ROH + 0.480\*PINAL + 0.480\*NO2 + 0.480\*HO2 + 0.040\*ELHOM | 1.0000E-10 | 1.0000E-10 | | TRP51 | LIMNP2 + LIMP1 ----> 0.960\*HOM + 0.480\*ROH + 0.480\*LIMAL + 0.480\*NO2 + 0.480\*HO2 + 0.040\*ELHOM | 1.0000E-10 | 1.0000E-10 | | TRP52 | LIMNP2 + ISOP ----> 0.960\*HOM + 0.480\*ROH + 0.480\*HCHO + 0.480\*MVK + 0.480\*NO2 + 0.480\*HO2 + 0.040\*ELHOM | 1.0000E-10 | 1.0000E-10 | | RAM17 | IEPOX + HO ----> HO | 5.78E-11e -400.00/T | 1.5110E-11 | | R001c | VROCIOXY + HO ----> 0.852\*ETHP + 0.149\*ASOATJ | 6.8900E-12 | 6.8900E-12 | | R002c | SLOWROC + HO ----> ETHP + 0.001\*ASOATJ | 6.5500E-14 | 6.5500E-14 | | T17 | ACRO + HO ----> 0.570\*MACP + 0.430\*MCP | 8.00E-12e 380.00/T | 2.8616E-11 | | T18 | ACRO + O3 ----> 0.840\*CO + 0.560\*HO2 + 0.280\*HO + 0.720\*HCHO + 0.620\*GLY | 2.9000E-19 | 2.9000E-19 | | T19 | ACRO + NO3 ----> 0.680\*HCHO + 0.320\*MACP + 0.680\*XO2 + 0.680\*MGLY + 0.320\*HNO3 + 0.680\*NO2 | 3.4000E-15 | 3.4000E-15 | | T20 | ACRO ----> CO + 0.477\*HO2 + 0.250\*ETE + 0.354\*ACO3 + 0.204\*HO + 0.150\*HCHO + 0.027\*MO2 | ACRO_09 | Not Available1 | | T10 | BDE13 + HO ----> 0.667\*BDE13P + 0.333\*UALD + 0.333\*HO2 | 1.48E-11e 448.00/T | 6.6502E-11 | | T10a | BDE13P + NO ----> 0.968\*HO2 + 0.968\*NO2 + 0.895\*ACRO + 0.895\*HCHO + 0.072\*FURAN + 0.032\*ONIT | 9.0500E-12 | 9.0500E-12 | | T10b | BDE13P + NO3 ----> HO2 + NO2 + 0.925\*ACRO + 0.925\*HCHO + 0.075\*FURAN | 2.3000E-12 | 2.3000E-12 | | T10c | BDE13P + HO2 ----> OP2 | 1.6100E-11 | 1.6100E-11 | | T10d | BDE13P + MO2 ----> 0.320\*MOH + 1.143\*HCHO + 0.870\*HO2 + 0.463\*ACRO + 0.250\*OLT + 0.231\*MVK + 0.037\*FURAN + 0.019\*UALD | 2.3900E-12 | 2.3900E-12 | | T10e | BDE13P + ACO3 ----> 0.700\*MO2 + 0.300\*ORA2 + 0.800\*HO2 + 0.740\*ACRO + 0.740\*HCHO + 0.185\*MVK + 0.060\*FURAN + 0.015\*UALD | 1.3700E-11 | 1.3700E-11 | | T11 | BDE13 + O3 ----> 0.620\*ACRO + 0.630\*CO + 0.420\*HO2 + 0.080\*HO + 0.830\*HCHO + 0.170\*ETE | 1.34E-14e -2283.00/T | 6.3331E-18 | | T12 | BDE13 + NO3 ----> 0.900\*OLNN + 0.100\*OLND + 0.900\*ACRO | 1.0000E-13 | 1.0000E-13 | | R003c | FURAN + HO ----> 0.490\*DCB1 + 0.490\*HO2 + 0.510\*FURANO2 | 5.0100E-11 | 5.0100E-11 | | R004c | FURANO2 + NO ----> 0.080\*ONIT + 0.920\*NO2 + 0.920\*FURANONE + 0.750\*HO2 + 0.170\*MO2 | 2.70E-12e 360.00/T | 9.0313E-12 | | R005c | FURANO2 + HO2 ----> 0.600\*OP2 + 0.400\*FURANONE + 0.400\*HO + 0.320\*HO2 + 0.080\*MO2 | 3.75E-13e 980.00/T | 1.0035E-11 | | R006c | FURANONE + HO ----> 0.650\*KET + 0.310\*GLY + 0.660\*HO2 + 0.340\*MO2 + 0.430\*CO + 0.040\*ASOATJ | 4.4000E-11 | 4.4000E-11 | | R007c | FURAN + O3 ----> 0.020\*HO + ALD | 3.4300E-17 | 3.4300E-17 | | R008c | FURAN + NO3 ----> NO2 + 0.800\*DCB1 + 0.200\*DCB3 | 8.9900E-12 | 8.9900E-12 | | R010c | PROG + HO ----> 0.613\*HKET + 0.387\*ALD + HO2 | 1.2000E-11 | 1.2000E-11 | | R011c | SESQ + NO3 ----> SESQNRO2 | 1.9000E-11 | 1.9000E-11 | | R012c | SESQNRO2 + HO2 ----> VROCP0OXY4 | 2.84E-13e 1300.00/T | 2.2230E-11 | | R013c | SESQNRO2 + NO ----> VROCP3OXY2 + 2.000\*NO2 | 2.70E-12e 360.00/T | 9.0313E-12 | | R014c | SESQNRO2 + NO3 ----> VROCP3OXY2 + 2.000\*NO2 | 2.3000E-12 | 2.3000E-12 | | R015c | SESQ + O3 ----> 0.982\*VROCP3OXY2 + 0.018\*VROCN2OXY2 | 1.2000E-14 | 1.2000E-14 | | R016c | SESQ + HO ----> SESQRO2 | 1.9700E-10 | 1.9700E-10 | | R017c | SESQRO2 + HO2 ----> VROCP0OXY2 | 2.84E-13e 1300.00/T | 2.2230E-11 | | R019c | SESQRO2 + NO3 ----> VROCP3OXY2 | 2.3000E-12 | 2.3000E-12 | | R020c | SESQRO2 + NO ----> 0.247\*VROCP1OXY3 + 0.753\*VROCP3OXY2 + 0.753\*NO2 | 2.70E-12e 360.00/T | 9.0313E-12 | | HET_GLY | GLY ----> AGLYJ | HETERO_GLY | Not Available2 | | HET_MGLY | MGLY ----> AGLYJ | HETERO_MGLY | Not Available2 | | HET_N2O5 | N2O5 ----> 2.000\*HNO3 | HETERO_N2O5IJ | Not Available2 | | HET_N02 | NO2 ----> 0.500\*HONO + 0.500\*HNO3 | HETERO_NO2 | Not Available2 | | HAL_Ozone | O3 ----> | SEAWATER*min( 6.701E-11e 1.074E+01P+ 3.415E-08e-6.713E-01P,
2.000E-06) | 2.0000E-064| | HET_IEPOX | IEPOX ----> IEPOXP | HETERO_IEPOX | Not Available2 | | HET_ISO3TET | IEPOXP ----> AISO3NOSJ | HETERO_ISO3NOSJ | Not Available2 | | HET_IEPOXOS | IEPOXP + ASO4J ----> AISO3OSJ | HETERO_ISO3OSJ | Not Available2 | | ROCALK1c | VROCP6ALK + HO ----> VROCP6ALKP | 1.5300E-11 | 1.5300E-11 | | ROCALK2c | VROCP5ALK + HO ----> VROCP5ALKP | 1.6800E-11 | 1.6800E-11 | | ROCALK3c | VROCP4ALK + HO ----> VROCP4ALKP | 2.2400E-11 | 2.2400E-11 | | ROCALK4c | VROCP3ALK + HO ----> VROCP3ALKP | 2.6700E-11 | 2.6700E-11 | | ROCALK5c | VROCP2ALK + HO ----> VROCP2ALKP | 3.0900E-11 | 3.0900E-11 | | ROCALK6c | VROCP1ALK + HO ----> VROCP1ALKP | 3.3800E-11 | 3.3800E-11 | | HC1001 | HC10 + HO ----> HC10P | 1.1000E-11 | 1.1000E-11 | | ROCALK7c | VROCP6ALKP + NO ----> 0.720\*VROCP6ALKP2 + 0.280\*VROCP4OXY2 + 0.720\*NO2 | 2.70E-12e 360.00/T | 9.0313E-12 | | ROCALK8c | VROCP5ALKP + NO ----> 0.720\*VROCP5ALKP2 + 0.280\*VROCP3OXY2 + 0.720\*NO2 | 2.70E-12e 360.00/T | 9.0313E-12 | | ROCALK9c | VROCP4ALKP + NO ----> 0.720\*VROCP4ALKP2 + 0.280\*VROCP2OXY2 + 0.720\*NO2 | 2.70E-12e 360.00/T | 9.0313E-12 | | ROCALK10c | VROCP3ALKP + NO ----> 0.720\*VROCP3ALKP2 + 0.280\*VROCP1OXY1 + 0.720\*NO2 | 2.70E-12e 360.00/T | 9.0313E-12 | | ROCALK11c | VROCP2ALKP + NO ----> 0.720\*VROCP2ALKP2 + 0.280\*VROCP0OXY2 + 0.720\*NO2 | 2.70E-12e 360.00/T | 9.0313E-12 | | ROCALK12c | VROCP1ALKP + NO ----> 0.720\*VROCP1ALKP2 + 0.280\*VROCN1OXY1 + 0.720\*NO2 | 2.70E-12e 360.00/T | 9.0313E-12 | | HC1002 | HC10P + NO ----> 0.740\*HC10P2 + 0.260\*ONIT + 0.740\*NO2 | 2.70E-12e 360.00/T | 9.0313E-12 | | ROCALK13c | VROCP6ALKP + NO3 ----> VROCP6ALKP2 + NO2 | 2.3000E-12 | 2.3000E-12 | | ROCALK14c | VROCP5ALKP + NO3 ----> VROCP5ALKP2 + NO2 | 2.3000E-12 | 2.3000E-12 | | ROCALK15c | VROCP4ALKP + NO3 ----> VROCP4ALKP2 + NO2 | 2.3000E-12 | 2.3000E-12 | | ROCALK16c | VROCP3ALKP + NO3 ----> VROCP3ALKP2 + NO2 | 2.3000E-12 | 2.3000E-12 | | ROCALK17c | VROCP2ALKP + NO3 ----> VROCP2ALKP2 + NO2 | 2.3000E-12 | 2.3000E-12 | | ROCALK18c | VROCP1ALKP + NO3 ----> VROCP1ALKP2 + NO2 | 2.3000E-12 | 2.3000E-12 | | HC1003 | HC10P + NO3 ----> HC10P2 + NO2 | 2.3000E-12 | 2.3000E-12 | | ROCALK19c | VROCP6ALKP + HO2 ----> VROCP3OXY2 | 2.1700E-11 | 2.1700E-11 | | ROCALK20c | VROCP5ALKP + HO2 ----> VROCP2OXY2 | 2.2000E-11 | 2.2000E-11 | | ROCALK21c | VROCP4ALKP + HO2 ----> VROCP1OXY1 | 2.2500E-11 | 2.2500E-11 | | ROCALK22c | VROCP3ALKP + HO2 ----> VROCP0OXY2 | 2.2600E-11 | 2.2600E-11 | | ROCALK23c | VROCP2ALKP + HO2 ----> VROCN1OXY1 | 2.2700E-11 | 2.2700E-11 | | ROCALK24c | VROCP1ALKP + HO2 ----> VROCN2OXY2 | 2.2700E-11 | 2.2700E-11 | | HC1004 | HC10P + HO2 ----> OP2 | 2.66E-13e 1300.00/T | 2.0821E-11 | | ROCALK25c | VROCP6ALKP2 ----> HO2 + VROCP3OXY2 | 1.8800E-01 | 1.8800E-01 | | ROCALK26c | VROCP5ALKP2 ----> HO2 + VROCP2OXY2 | 1.8800E-01 | 1.8800E-01 | | ROCALK27c | VROCP4ALKP2 ----> HO2 + VROCP1OXY1 | 1.8800E-01 | 1.8800E-01 | | ROCALK28c | VROCP3ALKP2 ----> HO2 + VROCP0OXY2 | 1.8800E-01 | 1.8800E-01 | | ROCALK29c | VROCP2ALKP2 ----> HO2 + VROCN1OXY1 | 1.8800E-01 | 1.8800E-01 | | ROCALK30c | VROCP1ALKP2 ----> HO2 + VROCN2OXY2 | 1.8800E-01 | 1.8800E-01 | | HC1005 | HC10P2 ----> HO2 + VROCP4OXY2 | 1.8800E-01 | 1.8800E-01 | | ROCALK31c | VROCP6ALKP2 + NO ----> 0.140\*VROCP2OXY2 + 0.860\*NO2 + 0.860\*VROCP3OXY2 + 0.860\*HO2 | 2.70E-12e 360.00/T | 9.0313E-12 | | ROCALK32c | VROCP5ALKP2 + NO ----> 0.140\*VROCP1OXY3 + 0.860\*NO2 + 0.860\*VROCP2OXY2 + 0.860\*HO2 | 2.70E-12e 360.00/T | 9.0313E-12 | | ROCALK33c | VROCP4ALKP2 + NO ----> 0.140\*VROCP0OXY2 + 0.860\*NO2 + 0.860\*VROCP1OXY1 + 0.860\*HO2 | 2.70E-12e 360.00/T | 9.0313E-12 | | ROCALK34c | VROCP3ALKP2 + NO ----> 0.140\*VROCN1OXY1 + 0.860\*NO2 + 0.860\*VROCP0OXY2 + 0.860\*HO2 | 2.70E-12e 360.00/T | 9.0313E-12 | | ROCALK35c | VROCP2ALKP2 + NO ----> 0.140\*VROCN2OXY2 + 0.860\*NO2 + 0.860\*VROCN1OXY1 + 0.860\*HO2 | 2.70E-12e 360.00/T | 9.0313E-12 | | ROCALK36c | VROCP1ALKP2 + NO ----> VROCN2OXY2 + 0.860\*NO2 + 0.860\*HO2 | 2.70E-12e 360.00/T | 9.0313E-12 | | HC1006 | HC10P2 + NO ----> 0.120\*ONIT + 0.880\*NO2 + 0.880\*KET + 0.880\*HO2 | 2.70E-12e 360.00/T | 9.0313E-12 | | ROCALK37c | VROCP6ALKP2 + NO3 ----> NO2 + VROCP3OXY2 + HO2 | 2.3000E-12 | 2.3000E-12 | | ROCALK38c | VROCP5ALKP2 + NO3 ----> NO2 + VROCP2OXY2 + HO2 | 2.3000E-12 | 2.3000E-12 | | ROCALK39c | VROCP4ALKP2 + NO3 ----> NO2 + VROCP1OXY1 + HO2 | 2.3000E-12 | 2.3000E-12 | | ROCALK40c | VROCP3ALKP2 + NO3 ----> NO2 + VROCP0OXY2 + HO2 | 2.3000E-12 | 2.3000E-12 | | ROCALK41c | VROCP2ALKP2 + NO3 ----> NO2 + VROCN1OXY1 + HO2 | 2.3000E-12 | 2.3000E-12 | | ROCALK42c | VROCP1ALKP2 + NO3 ----> NO2 + VROCN2OXY2 + HO2 | 2.3000E-12 | 2.3000E-12 | | HC1007 | HC10P2 + NO3 ----> NO2 + KET + HO2 | 2.3000E-12 | 2.3000E-12 | | ROCALK43c | VROCP6ALKP2 + HO2 ----> VROCP1OXY3 | 2.1700E-11 | 2.1700E-11 | | ROCALK44c | VROCP5ALKP2 + HO2 ----> VROCP0OXY2 | 2.2000E-11 | 2.2000E-11 | | ROCALK45c | VROCP4ALKP2 + HO2 ----> VROCN1OXY1 | 2.2500E-11 | 2.2500E-11 | | ROCALK46c | VROCP3ALKP2 + HO2 ----> VROCN2OXY2 | 2.2600E-11 | 2.2600E-11 | | ROCALK47c | VROCP2ALKP2 + HO2 ----> VROCN2OXY2 | 2.2700E-11 | 2.2700E-11 | | ROCALK48c | VROCP1ALKP2 + HO2 ----> VROCN2OXY2 | 2.2700E-11 | 2.2700E-11 | | HC1008 | HC10P2 + HO2 ----> VROCP2OXY2 | 2.66E-13e 1300.00/T | 2.0821E-11 | | ROCARO01 | VROCP6ARO + HO ----> 0.840\*VROCP6AROP + 0.160\*HO2 + 0.160\*VROCP4OXY2 | 1.8100E-11 | 1.8100E-11 | | ROCARO02 | VROCP6AROP + HO2 ----> 0.059\*VROCP4OXY2 + 0.905\*VROCP1OXY3 + 0.036\*VROCN2OXY4 | 2.91E-13e 1300.00/T | 2.2778E-11 | | ROCARO03 | VROCP6AROP + NO ----> 0.000\*VROCP4OXY2 + 0.002\*VROCP2OXY2 + 0.000\*VROCN1OXY3 + 0.998\*NO2 + 0.998\*HO2 + 0.059\*BALD + 0.469\*GLY + 0.469\*MGLY + 0.469\*FURANONE + 0.469\*DCB2 | 2.70E-12e 360.00/T | 9.0313E-12 | | ROCARO04 | VROCP6AROP + NO3 ----> NO2 + 0.941\*HO2 + 0.059\*BALD + 0.470\*GLY + 0.470\*MGLY + 0.470\*FURANONE + 0.470\*DCB2 | 2.3000E-12 | 2.3000E-12 | | ROCARO05 | VROCP6AROP + MO2 ----> 0.680\*HCHO + 1.310\*HO2 + 0.320\*MOH + 0.059\*BALD + 0.470\*GLY + 0.470\*MGLY + 0.470\*FURANONE + 0.470\*DCB2 | 3.56E-14e 708.00/T | 3.8260E-13 | | ROCARO06 | VROCP6AROP + ACO3 ----> 0.700\*MO2 + 0.941\*HO2 + 0.300\*ORA2 + 0.059\*BALD + 0.470\*GLY + 0.470\*MGLY + 0.470\*FURANONE + 0.470\*DCB2 | 7.40E-13e 765.00/T | 9.6284E-12 | | ROCARO11 | VROCP5ARO + HO ----> 0.840\*VROCP5AROP + 0.160\*HO2 + 0.160\*VROCP3OXY2 | 1.8100E-11 | 1.8100E-11 | | ROCARO12 | VROCP5AROP + HO2 ----> 0.059\*VROCP3OXY2 + 0.905\*VROCP0OXY2 + 0.036\*VROCN2OXY4 | 2.91E-13e 1300.00/T | 2.2778E-11 | | ROCARO13 | VROCP5AROP + NO ----> 0.000\*VROCP3OXY2 + 0.002\*VROCP1OXY3 + 0.000\*VROCN2OXY4 + 0.998\*NO2 + 0.998\*HO2 + 0.059\*VROCP4OXY2 + 0.469\*GLY + 0.469\*MGLY + 0.469\*FURANONE + 0.469\*DCB2 | 2.70E-12e 360.00/T | 9.0313E-12 | | ROCARO14 | VROCP5AROP + NO3 ----> NO2 + 0.941\*HO2 + 0.059\*VROCP4OXY2 + 0.470\*GLY + 0.470\*MGLY + 0.470\*FURANONE + 0.470\*DCB2 | 2.3000E-12 | 2.3000E-12 | | ROCARO15 | VROCP5AROP + MO2 ----> 0.680\*HCHO + 1.310\*HO2 + 0.320\*MOH + 0.059\*VROCP4OXY2 + 0.470\*GLY + 0.470\*MGLY + 0.470\*FURANONE + 0.470\*DCB2 | 3.56E-14e 708.00/T | 3.8260E-13 | | ROCARO16 | VROCP5AROP + ACO3 ----> 0.700\*MO2 + 0.941\*HO2 + 0.300\*ORA2 + 0.059\*VROCP4OXY2 + 0.470\*GLY + 0.470\*MGLY + 0.470\*FURANONE + 0.470\*DCB2 | 7.40E-13e 765.00/T | 9.6284E-12 | | ROCARO21 | NAPH + HO ----> 0.840\*NAPHP + 0.160\*HO2 + 0.160\*VROCP3OXY2 | 2.3100E-11 | 2.3100E-11 | | ROCARO22 | NAPHP + HO2 ----> 0.059\*VROCP3OXY2 + 0.905\*VROCP1OXY3 + 0.036\*VROCN2OXY8 | 2.91E-13e 1300.00/T | 2.2778E-11 | | ROCARO23 | NAPHP + NO ----> 0.060\*VROCP4OXY2 + 0.002\*VROCP2OXY2 + 0.000\*VROCN2OXY8 + 0.998\*NO2 + 0.998\*HO2 + 0.469\*GLY + 0.469\*MGLY + 0.469\*FURANONE + 0.469\*DCB2 | 2.70E-12e 360.00/T | 9.0313E-12 | | ROCARO24 | NAPHP + NO3 ----> NO2 + 0.941\*HO2 + 0.059\*VROCP4OXY2 + 0.470\*GLY + 0.470\*MGLY + 0.470\*FURANONE + 0.470\*DCB2 | 2.3000E-12 | 2.3000E-12 | | ROCARO25 | NAPHP + MO2 ----> 0.680\*HCHO + 1.310\*HO2 + 0.320\*MOH + 0.059\*VROCP4OXY2 + 0.470\*GLY + 0.470\*MGLY + 0.470\*FURANONE + 0.470\*DCB2 | 3.56E-14e 708.00/T | 3.8260E-13 | | ROCARO26 | NAPHP + ACO3 ----> 0.700\*MO2 + 0.941\*HO2 + 0.300\*ORA2 + 0.059\*VROCP4OXY2 + 0.470\*GLY + 0.470\*MGLY + 0.470\*FURANONE + 0.470\*DCB2 | 7.40E-13e 765.00/T | 9.6284E-12 | | ROCOXY1c | VROCN2OXY8 + HO ----> HO + 0.085\*VROCN2OXY8 + 0.258\*DCB1 + 0.258\*MEK + 0.258\*ACD + 0.258\*ALD + 0.258\*MO2 + 0.258\*ETHP + 0.258\*HC3P + 0.258\*MEKP | 5.9000E-11 | 5.9000E-11 | | ROCOXY2c | VROCN2OXY4 + HO ----> HO + 0.464\*VROCN2OXY8 + 0.198\*VROCN2OXY4 + 0.012\*VROCN1OXY6 + 0.015\*VROCN1OXY3 + 0.062\*VROCP0OXY4 + 0.039\*VROCP1OXY3 + 0.049\*VROCP2OXY2 + 0.040\*VROCP3OXY2 + 0.018\*VROCP4OXY2 + 0.031\*OP3 + 0.004\*OP2 + 0.079\*DCB1 + 0.079\*MEK + 0.079\*KET + 0.079\*ACD + 0.079\*ALD + 0.079\*MO2 + 0.079\*ETHP + 0.079\*HC3P + 0.079\*MEKP + 0.079\*HC5P + 0.079\*KETP | 6.0700E-11 | 6.0700E-11 | | ROCOXY3c | VROCN2OXY2 + HO ----> HO + 0.104\*VROCN2OXY8 + 0.564\*VROCN2OXY4 + 0.214\*VROCN2OXY2 + 0.015\*VROCN1OXY6 + 0.030\*VROCN1OXY3 + 0.010\*VROCN1OXY1 + 0.019\*VROCP0OXY4 + 0.046\*VROCP0OXY2 + 0.031\*VROCP1OXY3 + 0.020\*VROCP1OXY1 + 0.046\*VROCP2OXY2 + 0.045\*VROCP3OXY2 + 0.045\*VROCP4OXY2 + 0.033\*VROCP5OXY1 + 0.037\*VROCP6OXY1 + 0.003\*OP3 + 0.039\*DCB1 + 0.039\*HKET + 0.039\*MEK + 0.039\*ACD + 0.039\*ALD + 0.039\*MO2 + 0.039\*ETHP + 0.039\*HC3P + 0.039\*MEKP + 0.092\*HC5P | 5.5400E-11 | 5.5400E-11 | | ROCOXY4c | VROCN1OXY6 + HO ----> HO + 0.204\*VROCN2OXY8 + 0.007\*VROCN2OXY4 + 0.184\*DCB1 + 0.184\*MEK + 0.184\*KET + 0.184\*ACD + 0.184\*ALD + 0.184\*MO2 + 0.184\*ETHP + 0.184\*HC3P + 0.184\*MEKP + 0.184\*HC5P | 5.6300E-11 | 5.6300E-11 | | ROCOXY5c | VROCN1OXY3 + HO ----> HO + 0.279\*VROCN2OXY8 + 0.403\*VROCN2OXY4 + 0.009\*VROCN2OXY2 + 0.032\*VROCN1OXY6 + 0.008\*VROCN1OXY3 + 0.019\*VROCP0OXY4 + 0.010\*VROCP0OXY2 + 0.051\*VROCP1OXY3 + 0.007\*VROCP1OXY1 + 0.051\*VROCP2OXY2 + 0.046\*VROCP3OXY2 + 0.051\*VROCP4OXY2 + 0.014\*VROCP5OXY1 + 0.013\*OP2 + 0.065\*DCB1 + 0.065\*HKET + 0.065\*MEK + 0.065\*ACD + 0.065\*ALD + 0.065\*MO2 + 0.065\*ETHP + 0.065\*HC3P + 0.065\*MEKP + 0.175\*HC5P | 5.4600E-11 | 5.4600E-11 | | ROCOXY6c | VROCN1OXY1 + HO ----> HO + 0.007\*VROCN2OXY8 + 0.119\*VROCN2OXY4 + 0.726\*VROCN2OXY2 + 0.012\*VROCN1OXY6 + 0.030\*VROCN1OXY3 + 0.007\*VROCN1OXY1 + 0.029\*VROCP0OXY4 + 0.045\*VROCP0OXY2 + 0.023\*VROCP1OXY3 + 0.035\*VROCP1OXY1 + 0.062\*VROCP2OXY2 + 0.052\*VROCP3OXY2 + 0.051\*VROCP4OXY2 + 0.035\*VROCP5OXY1 + 0.075\*VROCP6OXY1 + 0.016\*OP3 + 0.006\*OP2 + 0.024\*DCB1 + 0.024\*HKET + 0.024\*MEK + 0.024\*ACD + 0.024\*ALD + 0.024\*MO2 + 0.024\*ETHP + 0.024\*HC3P + 0.024\*MEKP + 0.054\*HC5P | 4.5000E-11 | 4.5000E-11 | | ROCOXY7c | VROCP0OXY4 + HO ----> HO + 0.282\*VROCN2OXY8 + 0.117\*VROCN2OXY4 + 0.032\*VROCN1OXY6 + 0.018\*VROCN1OXY3 + 0.001\*VROCP0OXY4 + 0.066\*VROCP2OXY2 + 0.053\*VROCP3OXY2 + 0.025\*VROCP4OXY2 + 0.005\*OP2 + 0.107\*DCB1 + 0.107\*MEK + 0.107\*KET + 0.107\*ACD + 0.107\*ALD + 0.107\*MO2 + 0.107\*ETHP + 0.107\*HC3P + 0.107\*MEKP + 0.107\*HC5P + 0.107\*KETP | 5.1700E-11 | 5.1700E-11 | | ROCOXY8c | VROCP0OXY2 + HO ----> HO + 0.066\*VROCN2OXY8 + 0.458\*VROCN2OXY4 + 0.116\*VROCN2OXY2 + 0.033\*VROCN1OXY6 + 0.066\*VROCN1OXY3 + 0.005\*VROCN1OXY1 + 0.031\*VROCP0OXY4 + 0.002\*VROCP0OXY2 + 0.040\*VROCP1OXY3 + 0.021\*VROCP1OXY1 + 0.054\*VROCP2OXY2 + 0.052\*VROCP3OXY2 + 0.052\*VROCP4OXY2 + 0.037\*VROCP5OXY1 + 0.042\*VROCP6OXY1 + 0.011\*OP3 + 0.044\*DCB1 + 0.044\*HKET + 0.044\*MEK + 0.044\*ACD + 0.044\*ALD + 0.044\*MO2 + 0.044\*ETHP + 0.044\*HC3P + 0.044\*MEKP + 0.105\*HC5P | 4.7300E-11 | 4.7300E-11 | | ROCOXY9c | VROCP1OXY3 + HO ----> HO + 0.178\*VROCN2OXY8 + 0.192\*VROCN2OXY4 + 0.000\*VROCN2OXY2 + 0.074\*VROCN1OXY6 + 0.045\*VROCN1OXY3 + 0.063\*VROCP0OXY4 + 0.001\*VROCP0OXY2 + 0.001\*VROCP1OXY3 + 0.023\*VROCP2OXY2 + 0.059\*VROCP3OXY2 + 0.065\*VROCP4OXY2 + 0.017\*VROCP5OXY1 + 0.015\*OP3 + 0.017\*OP2 + 0.082\*DCB1 + 0.082\*HKET + 0.082\*MEK + 0.082\*ACD + 0.082\*ALD + 0.082\*MO2 + 0.082\*ETHP + 0.082\*HC3P + 0.082\*MEKP + 0.222\*HC5P | 4.6000E-11 | 4.6000E-11 | | ROCOXY10c | VROCP1OXY1 + HO ----> HO + 0.002\*VROCN2OXY8 + 0.134\*VROCN2OXY4 + 0.335\*VROCN2OXY2 + 0.008\*VROCN1OXY6 + 0.119\*VROCN1OXY3 + 0.076\*VROCN1OXY1 + 0.029\*VROCP0OXY4 + 0.077\*VROCP0OXY2 + 0.028\*VROCP1OXY3 + 0.012\*VROCP1OXY1 + 0.065\*VROCP2OXY2 + 0.071\*VROCP3OXY2 + 0.067\*VROCP4OXY2 + 0.042\*VROCP5OXY1 + 0.091\*VROCP6OXY1 + 0.007\*OP3 + 0.003\*OP2 + 0.030\*DCB1 + 0.030\*HKET + 0.030\*MEK + 0.030\*ACD + 0.030\*ALD + 0.030\*MO2 + 0.030\*ETHP + 0.030\*HC3P + 0.030\*MEKP + 0.065\*HC5P | 3.8000E-11 | 3.8000E-11 | | ROCOXY11c | VROCP2OXY2 + HO ----> HO + 0.044\*VROCN2OXY8 + 0.173\*VROCN2OXY4 + 0.010\*VROCN2OXY2 + 0.051\*VROCN1OXY6 + 0.112\*VROCN1OXY3 + 0.001\*VROCN1OXY1 + 0.134\*VROCP0OXY4 + 0.040\*VROCP0OXY2 + 0.051\*VROCP1OXY3 + 0.007\*VROCP1OXY1 + 0.024\*VROCP2OXY2 + 0.029\*VROCP3OXY2 + 0.073\*VROCP4OXY2 + 0.052\*VROCP5OXY1 + 0.059\*VROCP6OXY1 + 0.004\*OP3 + 0.002\*OP2 + 0.063\*DCB1 + 0.063\*HKET + 0.063\*MEK + 0.063\*ACD + 0.063\*ALD + 0.063\*MO2 + 0.063\*ETHP + 0.063\*HC3P + 0.063\*MEKP + 0.149\*HC5P | 3.9300E-11 | 3.9300E-11 | | ROCOXY12c | VROCP3OXY2 + HO ----> HO + 0.032\*VROCN2OXY8 + 0.076\*VROCN2OXY4 + 0.001\*VROCN2OXY2 + 0.053\*VROCN1OXY6 + 0.049\*VROCN1OXY3 + 0.155\*VROCP0OXY4 + 0.015\*VROCP0OXY2 + 0.105\*VROCP1OXY3 + 0.001\*VROCP1OXY1 + 0.053\*VROCP2OXY2 + 0.009\*VROCP3OXY2 + 0.043\*VROCP4OXY2 + 0.058\*VROCP5OXY1 + 0.066\*VROCP6OXY1 + 0.051\*OP3 + 0.011\*OP2 + 0.070\*DCB1 + 0.070\*HKET + 0.070\*MEK + 0.070\*ACD + 0.070\*ALD + 0.070\*MO2 + 0.070\*ETHP + 0.070\*HC3P + 0.070\*MEKP + 0.166\*HC5P | 3.5200E-11 | 3.5200E-11 | | ROCOXY13c | VROCP4OXY2 + HO ----> HO + 0.012\*VROCN2OXY8 + 0.017\*VROCN2OXY4 + 0.048\*VROCN1OXY6 + 0.025\*VROCN1OXY3 + 0.088\*VROCP0OXY4 + 0.092\*VROCP1OXY3 + 0.007\*VROCP1OXY1 + 0.097\*VROCP2OXY2 + 0.046\*VROCP3OXY2 + 0.002\*VROCP4OXY2 + 0.048\*VROCP5OXY1 + 0.074\*VROCP6OXY1 + 0.061\*OP3 + 0.015\*OP2 + 0.079\*DCB1 + 0.079\*HKET + 0.079\*MEK + 0.079\*ACD + 0.079\*ALD + 0.079\*MO2 + 0.079\*ETHP + 0.079\*HC3P + 0.079\*MEKP + 0.173\*HC5P | 3.1200E-11 | 3.1200E-11 | | ROCOXY14c | VROCP5OXY1 + HO ----> HO + 0.010\*VROCN2OXY4 + 0.001\*VROCN2OXY2 + 0.009\*VROCN1OXY6 + 0.015\*VROCN1OXY3 + 0.070\*VROCP0OXY4 + 0.015\*VROCP0OXY2 + 0.104\*VROCP1OXY3 + 0.003\*VROCP1OXY1 + 0.165\*VROCP2OXY2 + 0.157\*VROCP3OXY2 + 0.072\*VROCP4OXY2 + 0.006\*VROCP5OXY1 + 0.140\*VROCP6OXY1 + 0.022\*OP3 + 0.038\*OP2 + 0.053\*DCB1 + 0.053\*HKET + 0.053\*MEK + 0.053\*ACD + 0.053\*ALD + 0.053\*MO2 + 0.053\*ETHP + 0.053\*HC3P + 0.053\*MEKP + 0.128\*HC5P | 2.4000E-11 | 2.4000E-11 | | ROCOXY15c | VROCP6OXY1 + HO ----> HO + 0.006\*VROCN1OXY6 + 0.005\*VROCN1OXY3 + 0.022\*VROCP0OXY4 + 0.050\*VROCP1OXY3 + 0.002\*VROCP1OXY1 + 0.088\*VROCP2OXY2 + 0.138\*VROCP3OXY2 + 0.146\*VROCP4OXY2 + 0.043\*VROCP5OXY1 + 0.096\*VROCP6OXY1 + 0.032\*OP3 + 0.059\*OP2 + 0.057\*DCB1 + 0.057\*HKET + 0.057\*MEK + 0.057\*ACD + 0.057\*ALD + 0.057\*MO2 + 0.057\*ETHP + 0.057\*HC3P + 0.057\*MEKP + 0.154\*HC5P | 2.0500E-11 | 2.0500E-11 | | ROCOXY16c | OP3 + HO ----> HO + 0.119\*VROCN2OXY8 + 0.001\*VROCN2OXY4 + 0.039\*VROCN1OXY6 + 0.011\*VROCP0OXY4 + 0.227\*DCB1 + 0.227\*MEK + 0.227\*ACD + 0.227\*ALD + 0.227\*MO2 + 0.227\*ETHP + 0.227\*HC3P + 0.227\*MEKP | 4.6900E-11 | 4.6900E-11 | 0Units molecules/(sec*cm3); Value at 298.15 K; 2.4615E+19 molecules/cm3; 1.00 Atm. 1Photolysis Reaction;depends on radiation and predicted concentrations 2Heterogeneous Reaction; depends on predicted concentrations 4Set to zero if sun is below the horizon. SEAWATER equals surface fraction covered by ice free open ocean plus surf zones. P equals air pressure in atmospheres. 8Rate constant scaled as reverse equilibrium to constant for listed reaction ================================================ FILE: CCTM/src/MECHS/mechanism_information/cracmm2/cracmm2_species_table.md ================================================ Gas (G) and particle (P) species from the namelists. SMILES link to representative structures in the EPA Chemicals Dashboard (if available). Note that for each particulate species in CMAQ, a letter will be appended to the name to designate the size, or mode, of the aerosol being represented: I = Aitken mode, J = Accumulation mode, K = Coarse mode. Prepending of a species with a V or A in CMAQ or the chemical mechanism files indicates the species resides in the gas or particulate phase. Species | Description | Phase | Molecular Weight (g/mol) | Explicit/ Lumped | Representative Structure | SMILES ----- | ----- | ----- | ----- | ----- | ----- | ----- AAL|Aluminum ion|P|27.0|E|Aluminum ion|[\[Al+3\]](https://comptox.epa.gov/dashboard/chemical/details/DTXSID70912343) ACA|Calcium ion|P|40.1|E|Calcium ion|[\[Ca++\]](https://comptox.epa.gov/dashboard/chemical/details/DTXSID7037638) ACD|Acetaldehyde |G|44.0|E|Acetaldehyde|[CC=O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID5039224) ACE|Acetylene |G|26.0|E|Acetylene|[C#C](https://comptox.epa.gov/dashboard/chemical/details/DTXSID6026379) ACL|Chloride ion|P|35.5|E|Chloride ion|[\[Cl-\]](https://comptox.epa.gov/dashboard/chemical/details/DTXSID6043969) ACO3|Acetyl peroxy radicals|G|75.0|E|Acetylperoxy|[CC\(=O\)O\[O\]](https://comptox.epa.gov/dashboard/chemical/details/DTXSID40957943) ACORS|Primary unspeciated coarse PM|P|100.0|L|Coarse PM| ACRO|Acrolein|G|56.1|E|Acrolein|[C=CC=O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID5020023) ACT|Acetone|G|58.0|E|Acetone|[CC\(C\)=O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID8021482) ACTP|Peroxy radicals formed from ACT|G|89.0|E|(2-oxopropyl)peroxy|CC\(=O\)CO\[O\] ADCN|Aromatic-NO3 adduct from PHEN|G|155.0|L|4-oxocyclohex-2-en-1-yl nitrate|OC1=C\[C\]C\(O\[N+\]\(\[O-\]\)=O\)C=C1 ADDC|Aromatic-HO adduct from CSL|G|125.0|L|3-methyl-5-oxocyclohex-3-en-1-yloxidanyl|CC1=CC\(O\)=CC\(\[O\]\)C1 AEC|Elemental carbon|P|12.0|L|Carbon|\[C\] AFE|Iron ion|P|55.8|E|Iron ion|[\[Fe++\]](https://comptox.epa.gov/dashboard/chemical/details/DTXSID4042672) AGLY|SOA from reactive uptake of glyoxal on particles|P|66.4|L|2-(4,5-dihydroxy-1,3-dioxolan-2-yl)-1,3-dioxolane-4,5-diol|OC2OC\(C1OC\(O\)C\(O\)O1\)OC2O AH2O|Water associated with particulate inorganic compounds|P|18.0|E|Water|[O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID6026296) AH3OP|Hydronium ion tracer|P|19.0|E|Hydronium ion|[\[OH3+\]](https://comptox.epa.gov/dashboard/chemical/details/DTXSID20893597) AISO3NOS|Non-sulfated SOA from IEPOX uptake|P|136.2|L|2-methylbutane-1,2,3,4-tetrol|C\(O\)C\(O\)\(C\)C\(O\)CO AISO3OS|Organosulfate SOA from IEPOX uptake|P|216.2|L|(1,3,4-trihydroxy-2-methylbutan-2-yl)oxysulfonic acid|C\(O\)C\(OS\(O\)\(=O\)\(=O\)\)\(C\)C\(O\)CO AISO4|Multifunctional product from heterogeneous uptake of IPX|P|168.1|L|4-hydroperoxy-3-methylbutane-1,1,2,3-tetrol|CC\(O\)\(COO\)C\(O\)C\(O\)O AISO5|Multifunctional product from heterogeneous uptake of INALD|P|150.1|L|2-hydroperoxy-3,4-dihydroxy-3-methylbutanal|CC\(O\)\(CO\)C\(OO\)C=O AK|Potassium ion|P|39.1|E|Potassium ion|[\[K+\]](https://comptox.epa.gov/dashboard/chemical/details/DTXSID9042671) ALD|C3 and higher aldehydes|G|58.0|L|Propanal|[CCC=O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID2021658) AMG|Magnesium ion|P|24.3|E|Magnesium ion|\[Mg++\] AMN|Manganese ion|P|54.9|L|Manganese ions|[\[Mn++\]](https://comptox.epa.gov/dashboard/chemical/details/DTXSID00167687) ANA|Sodium ion|P|23.0|E|Sodium ion|[\[Na+\]](https://comptox.epa.gov/dashboard/chemical/details/DTXSID8037671) ANH4|Ammonium ion|P|18.0|E|Ammonium ion|[\[NH4+\]](https://comptox.epa.gov/dashboard/chemical/details/DTXSID5043974) ANO3|Nitrate ion|P|62.0|E|Nitrate ion|[\[N+\]\(=O\)\(\[O-\]\)\[O-\]](https://comptox.epa.gov/dashboard/chemical/details/DTXSID5024217) AORGC|SOA from cloud processing of GLY and MGLY|P|177.0|L|2-(4,5-dihydroxy-1,3-dioxolan-2-yl)-1,3-dioxolane-4,5-diol|OC2OC\(C1OC\(O\)C\(O\)O1\)OC2O AORGH2O|Water associated with particulate organic compounds|P|18.0|E|Water|[O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID6026296) AOTHR|Primary unspeciated fine PM|P|200.0|L|Unspeciated PM| API|Alpha-pinenes and other cyclic terpenes with one double bond|G|136.4|L|alpha-pinene|[CC1=CCC2CC1C2\(C\)C](https://comptox.epa.gov/dashboard/chemical/details/DTXSID4026501) APINP1|Peroxy radicals from API+NO3 that do not undergo autoxidation|G|230.0|L|[2,6,6-trimethyl-3-(nitrooxy)bicyclo[3.1.1]heptan-2-yl]peroxy|\[O\]OC1\(C\)C\(ON\(=O\)=O\)CC2CC1C2\(C\)C APINP2|Peroxy radicals from API+NO3 that undergo autoxidation|G|230.0|L|[2,6,6-trimethyl-3-(nitrooxy)bicyclo[3.1.1]heptan-2-yl]peroxy|\[O\]OC1\(C\)C\(ON\(=O\)=O\)CC2CC1C2\(C\)C APIP1|Peroxy radicals from API+OH that do not undergo autoxidation|G|185.0|L|{3-hydroxy-2,6,6-trimethylbicyclo[3.1.1]heptan-2-yl}peroxy|\[O\]OC1\(C\)C\(O\)CC2CC1C2\(C\)C APIP2|Peroxy radicals from API+OH that undergo autoxidation|G|185.0|L|{3-hydroxy-2,6,6-trimethylbicyclo[3.1.1]heptan-2-yl}peroxy|\[O\]OC1\(C\)C\(O\)CC2CC1C2\(C\)C APNCOM|Primary non-carbon organic matter (legacy)|P|220.0|L|Non-carbon organic matter| APOC|Primary organic carbon (legacy)|P|220.0|L|Organic carbon| ASEACAT|Sea spray cations|P|23.75|L|Coarse sea spray cations| ASI|Silicon|P|28.1|E|Total Silicon|[\[Si\]](https://comptox.epa.gov/dashboard/chemical/details/DTXSID0051441) ASO4|Total sulfur IV as sulfate|P|96.0|L|Sulfate ion|[\[O-\]S\(=O\)\(=O\)\[O-\]](https://comptox.epa.gov/dashboard/chemical/details/DTXSID3042425) ASOAT|An empirical SOA|P|200.0|L|3,4,5,6,7-Pentahydroxyheptan-2-one|[CC\(=O\)C\(C\(C\(C\(CO\)O\)O\)O\)O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID80956455) ASOIL|Lumped crustal species|P|100.0|L|Crustal species| ATI|Titanium|P|47.9|E|Total Titanium|[\[Ti\]](https://comptox.epa.gov/dashboard/chemical/details/DTXSID3047764) BAL1|Peroxy radicals formed from BALD |G|123.0|L|(4-methylphenyl)peroxy|\[O\]OC1=CC=C\(C\)C=C1 BAL2|Peroxy radicals formed from BALD |G|109.0|L|phenylperoxy|\[O\]OC1=CC=CC=C1 BALD|Benzaldehyde and other aromatic aldehydes|G|106.0|L|Benzaldehyde|[O=CC1=CC=CC=C1](https://comptox.epa.gov/dashboard/chemical/details/DTXSID8039241) BALP|Peroxy radicals formed from BALD |G|137.0|L|benzoylperoxy|O=C\(O\[O\]\)C1=CC=CC=C1 BDE13|1,3-butadiene|G|54.1|E|1,3-Butadiene|[C=CC=C](https://comptox.epa.gov/dashboard/chemical/details/DTXSID3020203) BDE13P|Peroxy radicals from BDE13|G|103.0|L|(1-hydroxybut-3-en-2-yl)peroxy|C=CC\(O\[O\]\)CO BEN|Benzene|G|78.11|E|Benzene|[C1=CC=CC=C1](https://comptox.epa.gov/dashboard/chemical/details/DTXSID3039242) BENP|Peroxy radicals formed from benzene|G|159.12|L|{8-hydroxy-6,7-dioxabicyclo[3.2.1]oct-3-en-2-yl}peroxy|\[O\]OC1C=CC2OOC1C2O CHO|Phenoxy radical formed from CSL|G|139.0|L|4-hydroxy-3,5-dimethylcyclohexa-2,5-dien-1-yloxidanyl|\[O\]C1C=C\(C\)C\(O\)C\(=C1\)C CO|Carbon monoxide|G|28.0|E|Carbon monoxide|[\[C-\]#\[O+\]](https://comptox.epa.gov/dashboard/chemical/details/DTXSID5027273) CSL|Cresol and other hydroxy substituted aromatics |G|136.2|L|2-Phenylpropan-2-ol|[CC\(C\)\(O\)C1=CC=CC=C1](https://comptox.epa.gov/dashboard/chemical/details/DTXSID3027247) DCB1|Unsaturated dicarbonyls|G|98.0|L|2-methylbut-2-enedial|O=CC=C\(C\)C=O DCB2|Unsaturated dicarbonyls|G|112.1|L|2-methyl-4-oxopent-2-enal|O=CC\(=CC\(=O\)C\)C DCB3|Unsaturated dicarbonyls|G|84.0|L|but-2-enedial|O=CC=CC=O EBZ|Ethylbenzene|G|106.2|L|Ethylbenzene|[CCC1=CC=CC=C1](https://comptox.epa.gov/dashboard/chemical/details/DTXSID3020596) EBZP|Peroxy radicals from EBZ|G|187.17|L|{5-ethyl-8-hydroxy-6,7-dioxabicyclo[3.2.1]oct-3-en-2-yl}peroxy|\[O\]OC1C=CC2\(CC\)OOC1C2O ECH4|Methane|G|16.0|E|Methane|[C](https://comptox.epa.gov/dashboard/chemical/details/DTXSID8025545) ELHOM|Extremely-low volatility highly oxygenated molecules from terpenes|GP|402.0|L|6-hydroperoxy-7-({3-hydroxy-2,6,6-trimethylbicyclo[3.1.1]heptan-2-yl}peroxy)-3,3,6-trimethyl-tetrahydro-3aH-1,2-benzodioxol-5-ol|OC1CC2C\(OOC2\(C\)C\)C\(OOC3\(C\)C4C\(C\)\(C\)C\(C4\)CC3O\)C1\(C\)OO EOH|Ethanol|G|46.1|E|Ethanol|[CCO](https://comptox.epa.gov/dashboard/chemical/details/DTXSID9020584) ETE|ethene |G|28.1|E|Ethylene|[C=C](https://comptox.epa.gov/dashboard/chemical/details/DTXSID1026378) ETEG|Ethylene glycol|G|62.1|E|Ethylene glycol|[OCCO](https://comptox.epa.gov/dashboard/chemical/details/DTXSID8020597) ETEP|Peroxy radicals formed from ETE|G|77.0|E|(2-hydroxyethyl)peroxy|OCCO\[O\] ETH|ethane |G|30.1|E|Ethane|[CC](https://comptox.epa.gov/dashboard/chemical/details/DTXSID6026377) ETHP|Peroxy radicals formed from ethane and other species |G|61.0|L|Ethylperoxy|[CCO\[O\]](https://comptox.epa.gov/dashboard/chemical/details/DTXSID90953652) FURAN|Furans and other dienes|G|96.1|L|Furfural|[O=CC1=CC=CO1](https://comptox.epa.gov/dashboard/chemical/details/DTXSID1020647) FURANO2|Peroxy radicals from FURAN oxidation|G|145.1|L|(2-formyl-5-hydroxy-5H-furan-2-yl)peroxy|OC1C=CC\(O1\)\(O\[O\]\)\(C=O\) FURANONE|Ring-retaining ketone product from FURAN oxidation|G|100.1|L|2-hydroxy-2H-furan-5-one|[C1=CC\(=O\)OC1O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID10930763) GLY|Glyoxal and glycoaldehydes |G|58.0|L|Glyoxal|[O=CC=O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID5025364) H2O2|Hydrogen peroxide|G|34.0|E|Hydrogen peroxide|[OO](https://comptox.epa.gov/dashboard/chemical/details/DTXSID2020715) HC10|Alkanes and other species with HO rate constant greater than 6.8x10-12 cm3 s-1|G|142.28|L|Decane|[CCCCCCCCCC](https://comptox.epa.gov/dashboard/chemical/details/DTXSID6024913) HC10P|Peroxy radicals formed from HC10 |G|173.27|L|Decan-3-ylperoxy|CCCCCCCC\(CC\)O\[O\] HC10P2|Hydroxy peroxy radicals from HC10P alkoxy product|G|189.27|L|(8-hydroxydecan-5-yl)peroxy|CCCCC\(O\[O\]\)CCC\(O\)CC HC3|Alkanes and other species with HO rate constant less than 3.4x10-12 cm3 s-1 |G|44.1|L|Propane|[CCC](https://comptox.epa.gov/dashboard/chemical/details/DTXSID5026386) HC3P|Peroxy radicals formed from HC3|G|75.0|L|Isopropyl peroxy|CC\(C\)O\[O\] HC5|Alkanes and other species with HO rate constant between 3.4x10-12 and 6.8x10-12 cm3 s-1 |G|72.1|L|Pentane|[CCCCC](https://comptox.epa.gov/dashboard/chemical/details/DTXSID2025846) HC5P|Peroxy radicals formed from HC5|G|103.0|L|Pentan-3-ylperoxy|CCC\(O\[O\]\)CC HCHO|Formaldehyde |G|30.0|E|Formaldehyde|[C=O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID7020637) HCL|Hydrochloric acid|G|36.0|E|Hydrochloric acid|[Cl](https://comptox.epa.gov/dashboard/chemical/details/DTXSID2020711) HKET|Hydroxy ketone |G|74.0|L|Hydroxy acetone|[CC\(=O\)CO](https://comptox.epa.gov/dashboard/chemical/details/DTXSID8051590) HNO3|Nitric acid|G|63.0|E|Nitric acid|[\[N+\]\(=O\)\(O\)\[O-\]](https://comptox.epa.gov/dashboard/chemical/details/DTXSID5029685) HNO4|Pernitric acid |G|79.0|E|Hydroxy nitrate|[\[N+\]\(=O\)\(\[O-\]\)OO](https://comptox.epa.gov/dashboard/chemical/details/DTXSID201030501) HO|Hydroxy radical|G|17.0|E|Hydroxyl radical|\[OH\] HO2|Hydroperoxy radical|G|33.0|E|Hydroperoxy|[O\[O-\]](https://comptox.epa.gov/dashboard/chemical/details/DTXSID30894777) HOM|Highly oxygenated molecules from terpenes|GP|250.0|L|6,7-dihydroperoxy-3,3,6-trimethyl-tetrahydro-3aH-1,2-benzodioxol-5-ol|OC1CC2C\(OOC2\(C\)C\)C\(OO\)C1\(C\)OO HONIT|Second generation monoterpene nitrates|GP|265.0|L|2-(3-hydroperoxy-4,5-dihydroxy-4-methylcyclohexyl)propan-2-yl nitrate|CC\(C\)\(O\[N+\]\(\[O-\]\)=O\)C1CC\(O\)C\(C\)\(O\)C\(C1\)OO HONO|Nitrous acid |G|47.0|E|Nitrous acid|[N\(=O\)O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID7064813) IEPOX|isoprene epoxydiols |G|118.1|E|Isoprene epoxydiol|OCC1OC1\(C\)CO IEPOXP|IEPOX intermediate (tracking species)|G|118.1||NA| INALD|Isoprene nitrates|G|195.1|L|2-hydroperoxy-4-hydroxy-3-methyl-3-(nitrooxy)butanal|CC\(CO\)\(O\[N+\]\(=O\)O\)C\(C=O\)OO INO2|Isoprene nitrate-derived peroxy radicals|G|162.1|L|[(2E)-3-methyl-4-(nitrooxy)but-2-en-1-yl]peroxy|C/C\(=C\CO\[O\]\)CON\(=O\)=O IPX|Isoprene tetrafunctional compounds|G|150.1|L|3-(1-hydroperoxy-2-hydroxypropan-2-yl)oxiran-2-ol|CC\(O\)\(COO\)C1OC1O ISHP|Beta-hydroxy hydroperoxides from ISOP+HO2|G|118.0|L|2-hydroperoxy-2-methylbut-3-en-1-ol|C=CC\(OO\)\(CO\)C ISO|Isoprene |G|68.1|E|Isoprene|[CC\(=C\)C=C](https://comptox.epa.gov/dashboard/chemical/details/DTXSID2020761) ISON|Beta-hydroxyalkylnitrates from ISOP+NO alkylnitrates from ISO+NO3|G|147.0|L|2-methyl-2-(nitrooxy)but-3-en-1-ol|OCC\(C\)\(C=C\)ON\(=O\)=O ISOP|Peroxy radicals formed from ISO+HO |G|117.0|L|(1-hydroxy-3-methylbut-3-en-2-yl)peroxy|OCC\(O\[O\]\)C\(C\)=C KET|ketones|G|86.0|L|Diethylketone|[CCC\(=O\)CC](https://comptox.epa.gov/dashboard/chemical/details/DTXSID6021820) KETP|Peroxy radicals formed from KET|G|117.0|L|(3-oxopentan-2-yl)peroxy|CCC\(C\(C\)O\[O\]\)=O LIM|d-limonene and other cyclic diene-terpenes |G|136.3|L|D-Limonene|[CC\(=C\)\[C@@H\]1CCC\(C\)=CC1](https://comptox.epa.gov/dashboard/chemical/details/DTXSID1020778) LIMAL|Limonene aldehyde and similar LIM-derived aldehydes|G|168.0|L|Limonaldehyde|O=CCC\(CCC\(=O\)C\)C\(=C\)C LIMALP|Peroxy radicals from LIMAL|G|217.0|L|[1-hydroxy-2-methyl-5-oxo-3-(3-oxobutyl)pentan-2-yl]peroxy|O=CCC\(CCC\(=O\)C\)C\(C\)\(CO\)O\[O\] LIMNP1|Peroxy radicals from LIM+NO3 that do not undergo autoxidation|G|230.0|L|[1-methyl-2-(nitrooxy)-4-(prop-1-en-2-yl)cyclohexyl]peroxy|\[O-\]\[N+\]\(=O\)OC1CC\(CCC1\(C\)O\[O\]\)C\(=C\)C LIMNP2|Peroxy radicals from LIM+NO3 that undergo autoxidation|G|230.0|L|[1-methyl-2-(nitrooxy)-4-(prop-1-en-2-yl)cyclohexyl]peroxy|\[O-\]\[N+\]\(=O\)OC1CC\(CCC1\(C\)O\[O\]\)C\(=C\)C LIMP1|Peroxy radicals from LIM+OH that do not undergo autoxidation|G|185.0|L|[2-hydroxy-1-methyl-4-(prop-1-en-2-yl)cyclohexyl]peroxy|\[O\]OC1\(C\)CCC\(CC1O\)C\(=C\)C LIMP2|Peroxy radicals from LIM+OH that undergo autoxidation|G|185.0|L|[2-hydroxy-1-methyl-4-(prop-1-en-2-yl)cyclohexyl]peroxy|\[O\]OC1\(C\)CCC\(CC1O\)C\(=C\)C MACP|Peroxy radicals formed from MACR+HO|G|101.0|L|(2-methylprop-2-enoyl)peroxy|CC\(=C\)C\(=O\)O\[O\] MACR|methacrolein and other C4 aldehydes |G|70.0|L|Methacrolein|[CC\(=C\)C=O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID0052540) MAHP|Hydroperoxides from MACP+HO2 |G|102.0|L|2-methylprop-2-eneperoxoic acid|C=C\(C\)C\(OO\)=O MCP|Peroxy radical formed from MACR + HO which does not form MPAN|G|119.0|L|(1-hydroxy-2-methyl-3-oxopropan-2-yl)peroxy|OCC\(C\)\(O\[O\]\)C=O MCT|Methyl catechol|G|124.1|L|4-Methylcatechol|[CC1=CC\(O\)=C\(O\)C=C1](https://comptox.epa.gov/dashboard/chemical/details/DTXSID5020861) MCTO|Alkoxy radical formed from MCT+HO and MCT+NO3|G|123.0|L|3-hydroxy-5-methylphenyloxidanyl|CC1=CC\(O\)=CC\(\[O\]\)=C1 MCTP|Radical formed fro MCT+O3 reaction |G|172.0|L|C7H8O5 Biradical|CC\(/C=C\\[C\]\(O\[O\]\)O\)=C/C\(O\)=O MEK|Methyl ethyl ketone|G|72.1|E|Methyl ethyl ketone|[CCC\(C\)=O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID3021516) MEKP|Peroxy radicals formed from MEK|G|103.0|L|(3-oxobutyl)peroxy|\[O\]OCCC\(=O\)C MGLY|Methylglyoxal and other alpha-carbonyl aldehydes |G|72.0|L|Methyl glyoxal|[CC\(=O\)C=O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID0021628) MO2|Methyl peroxy radical|G|47.0|E|Methylperoxy|[CO\[O\]](https://comptox.epa.gov/dashboard/chemical/details/DTXSID10944007) MOH|Methanol |G|32.0|E|Methanol|[CO](https://comptox.epa.gov/dashboard/chemical/details/DTXSID2021731) MPAN|Peroxymethacryloylnitrate and other higher peroxyacylnitrates from isoprene oxidation|G|147.1|L|Peroxymethacryloyl nitrate|[O=N\(=O\)OOC\(=O\)C\(=C\)C](https://comptox.epa.gov/dashboard/chemical/details/DTXSID10236878) MVK|Methyl vinyl ketone|G|70.1|E|Methyl vinyl ketone|[CC\(=O\)C=C](https://comptox.epa.gov/dashboard/chemical/details/DTXSID3025671) MVKP|Peroxy radicals formed from MVK|G|119.0|L|(2-hydroxy-3-oxobutyl)peroxy|CC\(=O\)C\(O\)CO\[O\] N2O5|Dinitrogen pentoxide |G|108.0|E|Dinitrogen pentoxide|[\[N+\]\(=O\)\(\[O-\]\)O\[N+\]\(=O\)\[O-\]](https://comptox.epa.gov/dashboard/chemical/details/DTXSID90143672) NAPH|Naphthalene and other PAHs|G|128.17|L|Naphthalene|[C1=CC2=CC=CC=C2C=C1](https://comptox.epa.gov/dashboard/chemical/details/DTXSID8020913) NAPHP|Peroxy radicals from NAPH oxidation|G|209.17|L|{8-hydroxy-10,11-dioxatricyclo[7.2.1.0^{2,7}]dodeca-2,4,6-trien-12-yl}peroxy|C12=CC=CC=C1C3OOC\(C3O\[O\]\)C2\(O\) NH3|Ammonia|G|17.0|E|Ammonia|[N](https://comptox.epa.gov/dashboard/chemical/details/DTXSID0023872) NO|Nitric oxide |G|30.0|E|Nitric oxide|[\[N\]=O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID1020938) NO2|Nitrogen dioxide |G|46.0|E|Nitrogen dioxide|[N\(=O\)\[O\]](https://comptox.epa.gov/dashboard/chemical/details/DTXSID7020974) NO3|Nitrogen trioxide|G|62.0|E|Nitrate radical|\[O\]N\(=O\)=O NUM|Number of particles|P|1.0|L|Number of particles| O1D|Excited state oxygen atom, O(1D) |G|16.0|E|Excited oxygen|[\[O\]](https://comptox.epa.gov/dashboard/chemical/details/DTXSID00170378) O3|Ozone|G|48.0|E|Ozone|[\[O-\]\[O+\]=O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID0021098) O3P|Ground state oxygen atom, O(3P)|G|16.0|E|Ground state oxygen|[\[O\]](https://comptox.epa.gov/dashboard/chemical/details/DTXSID00170378) OLI|Internal alkenes |G|70.1|L|2-Methyl-2-butene|[CC=C\(C\)C](https://comptox.epa.gov/dashboard/chemical/details/DTXSID8027165) OLIP|Peroxy radicals formed from OLI|G|119.0|L|(3-hydroxy-2-methylbutan-2-yl)peroxy|\[O\]OC\(C\)\(C\)C\(C\)O OLND|NO3-alkene adduct reacting via decomposition |G|136.0|L|[1-(nitrooxy)propan-2-yl]peroxy|CC\(O\[O\]\)CO\[N+\]\(\[O-\]\)=O OLNN|NO3-alkene adduct reacting to form carbonitrates + HO2 |G|136.0|L|[1-(nitrooxy)propan-2-yl]peroxy|CC\(O\[O\]\)CO\[N+\]\(\[O-\]\)=O OLT|Terminal alkenes |G|42.0|L|1-Propene|[CC=C](https://comptox.epa.gov/dashboard/chemical/details/DTXSID5021205) OLTP|Peroxy radicals formed from OLT|G|91.0|L|(1-hydroxypropan-2-yl)peroxy|CC\(CO\)O\[O\] ONIT|Organic nitrates|G|119.0|L|Butan-2-yl nitrate|[CCC\(C\)O\[N+\]\(=O\)\[O-\]](https://comptox.epa.gov/dashboard/chemical/details/DTXSID00871813) OP1|Methyl hydrogen peroxide |G|48.0|E|Methyl hydroperoxide|[COO](https://comptox.epa.gov/dashboard/chemical/details/DTXSID10184401) OP2|Higher organic peroxides |G|62.0|L|Ethyl hydroperoxide|[CCOO](https://comptox.epa.gov/dashboard/chemical/details/DTXSID70184402) OP3|Semivolatile organic peroxide|GP|176.2|L|5-hydroperoxy-6-hydroxyoctan-3-one|CCC\(=O\)CC\(OO\)C\(O\)CC OPB|Terpene-derived peroxides|G|186.2|L|2-hydroperoxy-2,6,6-trimethylbicyclo[3.1.1]heptan-3-ol|OOC1\(C\)C\(O\)CC2CC1C2\(C\)C ORA1|Formic acid|G|46.0|E|Formic acid|[OC=O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID2024115) ORA2|Acetic acid and higher acids |G|60.2|L|Acetic acid|[CC\(O\)=O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID5024394) ORAP|Peroxy radical formed from ORA2 + HO reaction|G|91.0|L|(carboxymethyl)peroxy|\[O\]OCC\(=O\)O PAA|Peroxyacetic acids and higher analogs|G|76.0|L|Peroxyacetic acid|[CC\(=O\)OO](https://comptox.epa.gov/dashboard/chemical/details/DTXSID1025853) PAN|Peroxyacetyl nitrate and higher saturated PANs |G|121.0|L|Peroxyacetyl nitrate|[CC\(=O\)OON\(=O\)=O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID4062301) PHEN|phenol and benzene diols|G|110.1|L|Resorcinol|[OC1=CC\(O\)=CC=C1](https://comptox.epa.gov/dashboard/chemical/details/DTXSID2021238) PINAL|Pinonaldehyde and similar APIN-derived aldehydes|G|168.0|L|Pinonaldehyde|O=CCC1CC\(C\(=O\)C\)C1\(C\)C PINALP|Peroxy radicals from PINAL oxidation|G|199.0|L|[3-acetyl-2,2-dimethyl-1-(2-oxoethyl)cyclobutyl]peroxy|O=CCC1\(O\[O\]\)CC\(C\(=O\)C\)C1\(C\)C PPN|Peroxypropionyl nitrate|G|135.0|E|Peroxypopionyl nitrate|[CCC\(=O\)OO\[N+\]\(=O\)\[O-\]](https://comptox.epa.gov/dashboard/chemical/details/DTXSID90206675) PROG|Propylene glyocol and other 3 carbon dialcohols|G|76.1|E|1,2-Propylene glycol|[CC\(O\)CO](https://comptox.epa.gov/dashboard/chemical/details/DTXSID0021206) RCO3|Higher saturated acyl peroxy radicals|G|89.0|L|Propanoylperoxy|CCC\(=O\)O\[O\] ROCIOXY|Intermediate volatility oxygenated ROC species (directly emitted)|G|247.0|L|Decamethylcyclopentasiloxane|[C\[Si\]1\(C\)O\[Si\]\(C\)\(C\)O\[Si\]\(C\)\(C\)O\[Si\]\(C\)\(C\)O\[Si\]\(C\)\(C\)O1](https://comptox.epa.gov/dashboard/chemical/details/DTXSID1027184) ROCN1ALK|Alkane-like ROC species with C* of 10-1 μg m-3|GP|408.8|L|5,9-Dimethylheptacosane|[CCCCCCCCCCCCCCCCCCC\(C\)CCCC\(C\)CCCC](https://comptox.epa.gov/dashboard/chemical/details/DTXSID40823452) ROCN1OXY1|Oxygenated ROC species with C* of 10-1 μg m-3 and O:C of 0.1|GP|312.5|L|Arachidic Acid|[CCCCCCCCCCCCCCCCCCCC\(=O\)O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID1060134) ROCN1OXY3|Oxygenated ROC species with C* of 10-1 μg m-3 and O:C of 0.3|GP|230.3|L|DODECANEDIOIC ACID|[C\(CCCCCC\(=O\)O\)CCCCC\(=O\)O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID3027297) ROCN1OXY6|Oxygenated ROC species with C* of 10-1 μg m-3 and O:C of 0.6|GP|190.2|L|2-hydroxy-octanedioic acid|C\(CCC\(C\(=O\)O\)O\)CCC\(=O\)O ROCN2ALK|Alkane-like ROC species with C* of 10-2 μg m-3|GP|422.83|L|Triacontane|[CCCCCCCCCCCCCCCCCCCCCCCCCCCCCC](https://comptox.epa.gov/dashboard/chemical/details/DTXSID0060935) ROCN2OXY2|Oxygenated ROC species with C* of 10-1 μg m-3 and O:C of 0.2|GP|282.4|L|12(S)-hydroxy-16-Heptadecynoic Acid|C#CCCC\[C@H\]\(CCCCCCCCCCC\(=O\)O\)O ROCN2OXY4|Oxygenated ROC species with C* of 10-2 μg m-3 and O:C of 0.4|GP|232.3|L|2-HYDROXYUNDECANEDIOIC ACID|[C\(CCCCC\(=O\)O\)CCCC\(C\(=O\)O\)O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID90726525) ROCN2OXY8|Oxygenated ROC species with C* of 10-2 μg m-3 and O:C of 0.8|GP|194.2|L|3,4,5,6,7-Pentahydroxyheptan-2-one|[CC\(=O\)C\(C\(C\(C\(CO\)O\)O\)O\)O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID80956455) ROCP0ALK|Alkane-like ROC species with C* of 1 μg m-3|GP|394.77|L|11-Methylheptacosane|[CCCCCCCCCCCCCCCCC\(C\)CCCCCCCCCC](https://comptox.epa.gov/dashboard/chemical/details/DTXSID40333900) ROCP0OXY2|Oxygenated ROC species with C* of 1 μg m-3 and O:C of 0.2|GP|242.4|L|3-oxotetradecanoic acid|[CCCCCCCCCCCC\(=O\)CC\(=O\)O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID10332384) ROCP0OXY4|Oxygenated ROC species with C* of 1 μg m-3 and O:C of 0.4|GP|202.3|L|DECANEDIOIC ACID|[C\(CCCCC\(=O\)O\)CCCC\(=O\)O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID7026867) ROCP1ALK|Alkane-like ROC species with C* of 10 μg m-3|GP|380.75|L|Heptacosane|[CCCCCCCCCCCCCCCCCCCCCCCCCCC](https://comptox.epa.gov/dashboard/chemical/details/DTXSID6058637) ROCP1ALKP|Peroxy radicals from ROCP1ALK oxidation|G|411.74|L|heptacosan-3-ylperoxy|CCCCCCCCCCCCCCCCCCCCCCCCC\(CC\)O\[O\] ROCP1ALKP2|Hydroxy peroxy radicals from ROCP1ALK alkoxy product|G|427.73|L|(3-hydroxyheptacosan-6-yl)peroxy|CCCCCCCCCCCCCCCCCCCCCC\(O\[O\]\)CCC\(O\)CC ROCP1OXY1|Oxygenated ROC species with C* of 10 μg m-3 and O:C of 0.1|GP|270.5|L|HEPTADECANOIC ACID|[CCCCCCCCCCCCCCCCC\(=O\)O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID5021596) ROCP1OXY3|Oxygenated ROC species with C* of 10 μg m-3 and O:C of 0.3|GP|202.3|L|11-hydroxyundecanoic acid|[C\(CCCCCO\)CCCCC\(=O\)O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID40190136) ROCP2ALK|Alkane-like ROC species with C* of 10+2 μg m-3|GP|338.66|L|Tetracosane|[CCCCCCCCCCCCCCCCCCCCCCCC](https://comptox.epa.gov/dashboard/chemical/details/DTXSID8060955) ROCP2ALKP|Peroxy radicals from ROCP2ALK oxidation|G|369.65|L|tetracosan-3-ylperoxy|CCCCCCCCCCCCCCCCCCCCCC\(CC\)O\[O\] ROCP2ALKP2|Hydroxy peroxy radicals from ROCP2ALK alkoxy product|G|385.65|L|(3-hydroxytetracosan-6-yl)peroxy|CCCCCCCCCCCCCCCCCCC\(O\[O\]\)CCC\(O\)CC ROCP2OXY2|Oxygenated ROC species with C* of 10+2 μg m-3 and O:C of 0.2|GP|200.3|L|Dodecanoic Acid|[CCCCCCCCCCCC\(=O\)O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID5021590) ROCP3ALK|Alkane-like ROC species with C* of 10+3 μg m-3|GP|296.58|L|Heneicosane|[CCCCCCCCCCCCCCCCCCCCC](https://comptox.epa.gov/dashboard/chemical/details/DTXSID9047097) ROCP3ALKP|Peroxy radicals from ROCP3ALK oxidation|G|327.57|L|henicosan-3-ylperoxy|CCCCCCCCCCCCCCCCCCC\(CC\)O\[O\] ROCP3ALKP2|Hydroxy peroxy radicals from ROCP3ALK alkoxy product|G|343.57|L|(3-hydroxyhenicosan-6-yl)peroxy|CCCCCCCCCCCCCCCC\(O\[O\]\)CCC\(O\)CC ROCP3OXY2|Oxygenated ROC species with C* of 10+3 μg m-3 and O:C of 0.2|GP|186.3|L|11-hydroxyundecanal|C\(CCCCCO\)CCCCC=O ROCP4ALK|Alkane-like ROC species with C* of 10+4 μg m-3|G|254.5|L|Octadecane|[CCCCCCCCCCCCCCCCCC](https://comptox.epa.gov/dashboard/chemical/details/DTXSID9047172) ROCP4ALKP|Peroxy radicals from ROCP4ALK oxidation|G|285.49|L|octadecan-3-ylperoxy|CCCCCCCCCCCCCCCC\(CC\)O\[O\] ROCP4ALKP2|Hydroxy peroxy radicals from ROCP4ALK alkoxy product|G|301.49|L|(3-hydroxyoctadecan-6-yl)peroxy|CCCCCCCCCCCCC\(O\[O\]\)CCC\(O\)CC ROCP4OXY2|Oxygenated ROC species with C* of 10+4 μg m-3 and O:C of 0.2|G|158.2|L|2-Ethylheptanoic Acid|[CCCCCC\(CC\)C\(=O\)O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID40880929) ROCP5ALK|Alkane-like ROC species with C* of 10+5 μg m-3|G|198.39|L|Tetradecane|[CCCCCCCCCCCCCC](https://comptox.epa.gov/dashboard/chemical/details/DTXSID1027267) ROCP5ALKP|Peroxy radicals from ROCP5ALK oxidation|G|229.38|L|tetradecan-3-ylperoxy|CCCCCCCCCCCC\(CC\)O\[O\] ROCP5ALKP2|Hydroxy peroxy radicals from ROCP5ALK alkoxy product|G|245.38|L|(3-hydroxytetradecan-6-yl)peroxy|CCCCCCCCC\(O\[O\]\)CCC\(O\)CC ROCP5ARO|Aromatic ROC species with C* of 10+5 μg m-3|G|190.33|L|Benzene, octyl-|[CCCCCCCCC1=CC=CC=C1](https://comptox.epa.gov/dashboard/chemical/details/DTXSID2062240) ROCP5AROP|Peroxy radicals from ROCP5ARO oxidation|G|271.33|L|{8-hydroxy-5-octyl-6,7-dioxabicyclo[3.2.1]oct-3-en-2-yl}peroxy|CCCCCCCCC1\(OO2\)C=CC\(O\[O\]\)C2C1O ROCP5OXY1|Oxygenated ROC species with C* of 10+5 μg m-3 and O:C of 0.1|G|170.3|L|Undecanal|[CCCCCCCCCCC=O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID4021688) ROCP6ALK|Alkane-like ROC species with C* of 10+6 μg m-3|G|184.37|L|Tridecane|[CCCCCCCCCCCCC](https://comptox.epa.gov/dashboard/chemical/details/DTXSID6027266) ROCP6ALKP|Peroxy radicals from ROCP6ALK oxidation|G|215.36|L|tridecan-3-ylperoxy|CCCCCCCCCCC\(CC\)O\[O\] ROCP6ALKP2|Hydroxy peroxy radicals from ROCP6ALK alkoxy product|G|231.36|L|(3-hydroxytridecan-6-yl)peroxy|CCCCCCCC\(O\[O\]\)CCC\(O\)CC ROCP6ARO|Aromatic ROC species with C* of 10+6 μg m-3|G|176.3|L|1-Hexyl-4-methylbenzene|[CCCCCCC1=CC=C\(C\)C=C1](https://comptox.epa.gov/dashboard/chemical/details/DTXSID30333914) ROCP6AROP|Peroxy radicals from ROCP6ARO oxidation|G|257.3|L|{2-hexyl-8-hydroxy-5-methyl-6,7-dioxabicyclo[3.2.1]oct-3-en-2-yl}peroxy|OC1C2C\(CCCCCC\)\(O\[O\]\)C=CC1\(C\)OO2 ROCP6OXY1|Oxygenated ROC species with C* of 10+6 μg m-3 and O:C of 0.1|G|142.2|L|Nonanal|[CCCCCCCCC=O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID9021639) ROH|C3 and higher alcohols |G|60.0|L|Propanol|[CCCO](https://comptox.epa.gov/dashboard/chemical/details/DTXSID2021739) SESQ|Sesquiterpenes |G|204.4|L|b-caryophyllene|[C/C1=C/CCC\(=C\)C2CC\(C\)\(C\)C2CC\1](https://comptox.epa.gov/dashboard/chemical/details/DTXSID8024739) SESQNRO2|Peroxy radicals from SESQ reaction with nitrate radicals|G|298.4|L|[4,11,11-trimethyl-8-methylidene-5-(nitrooxy)bicyclo[7.2.0]undecan-4-yl]peroxy|\[O\]OC1\(C\)CCC2C\(CC2\(C\)C\)C\(=C\)CCC1O\[N+\]\(=O\)\[O-\] SESQRO2|Peroxy radicals from SESQ reaction with OH|G|253.4|L|{5-hydroxy-4,11,11-trimethyl-8-methylidenebicyclo[7.2.0]undecan-4-yl}peroxy|\[O\]OC1\(C\)CCC2C\(CC2\(C\)C\)C\(=C\)CCC1O SLOWROC|Slowly reacting ROC with kOH< 3.5x10-13 cm3 s-1 |G|75.4|L|Hydrogen cyanide|[C#N](https://comptox.epa.gov/dashboard/chemical/details/DTXSID9024148) SO2|Sulfur dioxide|G|64.0|E|Sulfur dioxide|[O=S=O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID6029672) SRF|Surface area of particles|P|1.0|L|Surface area of particles| STY|Styrene|G|104.0|E|Styrene|[C=CC1=CC=CC=C1](https://comptox.epa.gov/dashboard/chemical/details/DTXSID2021284) STYP|Peroxy radicals from STY|G|153.0|E|(2-hydroxy-2-phenylethyl)peroxy|\[O\]OCC\(O\)C1=CC=CC=C1 SULF|Sulfuric acid|G|98.0|E|Sulfuric acid|[OS\(=O\)\(=O\)O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID5029683) SULRXN|Precursor of Aerosol Sulfate (tracking species) |G|98.0||NA| TOL|Toluene |G|92.14|E|Toluene|[CC1=CC=CC=C1](https://comptox.epa.gov/dashboard/chemical/details/DTXSID7021360) TOLP|Peroxy radicals formed from TOL|G|173.14|L|{8-hydroxy-5-methyl-6,7-dioxabicyclo[3.2.1]oct-3-en-2-yl}peroxy|\[O\]OC1C=CC2\(C\)OOC1C2O TRPN|First generation monoterpene nitrates|GP|215.0|L|3-hydroxy-2,6,6-trimethylbicyclo[3.1.1]heptan-2-yl nitrate|O=N\(=O\)OC1\(C\)C\(O\)CC2CC1C2\(C\)C UALD|Unsaturated aldehydes|G|84.1|L|2-Methylbut-2-enal|[CC=C\(C\)C=O](https://comptox.epa.gov/dashboard/chemical/details/DTXSID00859414) UALP|Peroxy radicals formed from UALD |G|133.0|L|(3-hydroxy-3-methyl-4-oxobutan-2-yl)peroxy|CC\(O\[O\]\)C\(C\)\(O\)C=O XO2|Accounts for addition NO to NO2 conversions (tracking species)|G|1.0||NA| XYL|Xylenes and other volatile aromatics |G|106.2|L|m-Xylene|[CC1=CC\(C\)=CC=C1](https://comptox.epa.gov/dashboard/chemical/details/DTXSID6026298) XYLP|Peroxy radicals formed from XYL|G|187.17|L|{8-hydroxy-1,5-dimethyl-6,7-dioxabicyclo[3.2.1]oct-3-en-2-yl}peroxy|\[O\]OC1C=CC2\(C\)OOC1\(C\)C2O ================================================ FILE: CCTM/src/MECHS/mechanism_information/cracmm2/mech_cracmm2.md ================================================ Information is based on the mech.def file. * Fall-off or pressure dependent reaction rate constants (M equals air number density): * For rate constants with ko, ki, n, F values: k = [ koM/(1+koM/ki)]FG, where G=(1+(log10(koM/ki)/n)2))-1 * For rate constants with k1, k2: k = k1 + k2M * For rate constants with k0, k2, k3: k = k0 + k3M/(1+k3M/k2) * For rate constants with k1, k2, k3: k = k1 + k2M + k3 * For rate constants with the form A<_Reference_>, k equals A times a reference that represents photolysis rate, a heteorogeneous rate constant, rate constant for the given reaction or an operator. A equals one if not given. * In the mechanism definition file, the rate is formatted as * A~<_HETEROGENEOUS_> * A*K<_REACTION_> * A/<_PHOTOLYSIS_> * A?<_OPERATOR_> |Label|Reaction |Rate Constant Formula| Value
molecules/(sec*cm3)| |:---|:-------------------|:--------------------|:----:| | R001 | O3 ----> O3P | O3O3P_NASA06 | Not Available1 | | R002 | O3 ----> O1D | O3O1D_NASA06 | Not Available1 | | R003 | H2O2 ----> 2.0000\*HO | H2O2_RACM2 | Not Available1 | | R004 | NO2 ----> O3P + NO | NO2_RACM2 | Not Available1 | | R005 | NO3 ----> NO | NO3NO_RACM2 | Not Available1 | | R006 | NO3 ----> O3P + NO2 | NO3NO2_RACM2 | Not Available1 | | R007 | HONO ----> HO + NO | HONO_RACM2 | Not Available1 | | R008 | HNO3 ----> HO + NO2 | HNO3_RACM2 | Not Available1 | | R009 | HNO4 ----> 0.2000\*HO + 0.8000\*HO2 + 0.8000\*NO2 + 0.2000\*NO3 | HNO4_RACM2 | Not Available1 | | R010 | HCHO ----> CO | HCHO_MOL_JPL19 | Not Available1 | | R011 | HCHO ----> 2.0000\*HO2 + CO | HCHO_RAD_JPL19 | Not Available1 | | R012 | ACD ----> HO2 + MO2 + CO | CH3CHO_RACM2 | Not Available1 | | R013 | ALD ----> HO2 + ETHP + CO | ALD_JPL19 | Not Available1 | | R014 | ACT ----> MO2 + ACO3 | CH3COCH3A_JPL19 | Not Available1 | | R014a | ACT ----> 2.0000\*MO2 + CO | CH3COCH3B_JPL19 | Not Available1 | | R015 | UALD ----> 1.2200\*HO2 + 0.7840\*ACO3 + 1.2200\*CO + 0.3500\*HCHO + 0.4340\*ALD + 0.2160\*KET | UALD_RACM2 | Not Available1 | | TRP01 | PINAL ----> HO2 + HC10P + CO | ALD_JPL19 | Not Available1 | | TRP02 | LIMAL ----> HO2 + HC10P + CO | ALD_JPL19 | Not Available1 | | R016 | MEK ----> 0.1000\*MO2 + ETHP + 0.9000\*ACO3 + 0.1000\*CO | MEK_JGR19 | Not Available1 | | R017 | KET ----> 1.5000\*ETHP + 0.5000\*ACO3 + 0.5000\*CO | KET_JGR19 | Not Available1 | | R018 | HKET ----> HO2 + ACO3 + HCHO | HKET_RACM2 | Not Available1 | | R019 | MACR ----> 0.3400\*HO + 0.6600\*HO2 + 0.6700\*ACO3 + 0.3300\*MACP + 0.3400\*XO2 + 0.6700\*CO + 0.6700\*HCHO | MACR_RACM2 | Not Available1 | | R020 | MVK ----> 0.3000\*MO2 + 0.3000\*MACP + 0.7000\*CO + 0.7000\*UALD | MVK_RACM2 | Not Available1 | | R021 | GLY ----> 2.0000\*CO | GLYH2_RACM2 | Not Available1 | | R022 | GLY ----> HCHO + CO | GLYF_RACM2 | Not Available1 | | R023 | GLY ----> 2.0000\*HO2 + 2.0000\*CO | GLYHX_RACM2 | Not Available1 | | R024 | MGLY ----> HO2 + ACO3 + CO | MGLY_RACM2 | Not Available1 | | R025 | DCB1 ----> 1.5000\*HO2 + 0.2500\*ACO3 + 0.2000\*XO2 + CO + 0.5000\*GLY + 0.5000\*MGLY | MGLY_RACM2 | Not Available1 | | R026 | DCB2 ----> 1.5000\*HO2 + 0.2500\*ACO3 + 0.2000\*XO2 + CO + 0.5000\*GLY + 0.5000\*MGLY | MGLY_RACM2 | Not Available1 | | R027 | BALD ----> CHO + HO2 + CO | BALD_RACM2 | Not Available1 | | R028 | OP1 ----> HO + HO2 + HCHO | OP1_RACM2 | Not Available1 | | R029 | OP2 ----> HO + HO2 + ALD | OP1_RACM2 | Not Available1 | | TRP03 | OPB ----> HO + HO2 + ALD | OP1_RACM2 | Not Available1 | | R029a | OP3 ----> HO + HO2 + ALD | OP1_RACM2 | Not Available1 | | R030 | PAA ----> HO + MO2 | PAA_RACM2 | Not Available1 | | R031 | ONIT ----> HO2 + NO2 + 0.2000\*ALD + 0.8000\*KET | ONIT_RACM2 | Not Available1 | | R032 | PAN ----> ACO3 + NO2 | PAN1_RACM2 | Not Available1 | | R033 | PAN ----> MO2 + NO3 | PAN2_RACM2 | Not Available1 | | TRP55 | TRPN ----> NO2 + 0.6700\*KET + 0.3300\*UALD | ONIT_RACM2 | Not Available1 | | TRP56 | HONIT ----> HKET + NO2 | ONIT_RACM2 | Not Available1 | | R034 | O3 + HO ----> HO2 | 1.70E-12e -940.00/T | 7.2647E-14 | | R035 | O3 + HO2 ----> HO | 1.00E-14e -490.00/T | 1.9331E-15 | | R036 | O3 + NO ----> NO2 | 3.00E-12e -1500.00/T | 1.9596E-14 | | R037 | O3 + NO2 ----> NO3 | 1.20E-13e -2450.00/T | 3.2392E-17 | | R038 | O3P + O2 + M ----> O3 | 6.10E-34(T/300) -2.40 | 6.1912E-34 | | R039 | O3P + O3 ----> | 8.00E-12e -2060.00/T | 7.9879E-15 | | R040 | O1D + O2 ----> O3P | 3.30E-11e 55.00/T | 3.9685E-11 | | R041 | O1D + N2 ----> O3P | 2.15E-11e 110.00/T | 3.1093E-11 | | R042 | O1D + H2O ----> 2.0000\*HO | 1.63E-10e 60.00/T | 1.9934E-10 | | R043 | HO + H2 ----> HO2 | 2.80E-12e -1800.00/T | 6.6869E-15 | | R044 | HO + HO2 ----> | 4.80E-11e 250.00/T | 1.1102E-10 | | R045 | HO2 + HO2 ----> H2O2 | k0= 3.00E-13e 460.0/T
k1= 2.10E-33e 920.0/T | 2.5345E-12 | | R046 | HO2 + HO2 + H2O ----> H2O2 | k0= 4.20E-34e 2660.0/T
k1= 2.94E-54e 3120.0/T | 5.6834E-30 | | R047 | H2O2 + HO ----> HO2 | 1.80E-12e 0.00/T | 1.8000E-12 | | R048 | NO + O3P ----> NO2 | ko= 9.10E-32e 0.0/T(T/300) -1.50
ki = 3.00E-11e 0.0/T(T/300) 0.00
n= 1.00;F= 0.60 | 1.6772E-12 | | R049 | NO + HO ----> HONO | ko= 7.10E-31e 0.0/T(T/300) -2.60
ki = 3.60E-11e 0.0/T(T/300) -0.10
n= 1.00;F= 0.60 | 7.4585E-12 | | R050 | NO + HO2 ----> NO2 + HO | 3.44E-12e 260.00/T | 8.2278E-12 | | R051 | NO + HO2 ----> HNO3 | k0= 6.0950E-14e 270.0/T(T/300) -1.00
k2= 6.8570E-34e 270.0/T(T/300) 1.00
k3= -5.9680E-14e 270.00/T | 4.5566E-14 | | R052 | NO + NO + O2 ----> 2.0000\*NO2 | 4.25E-39e 663.50/T | 3.9343E-38 | | R053 | HONO + HO ----> NO2 | 3.00E-12e 250.00/T | 6.9387E-12 | | R054 | NO2 + O3P ----> NO | 5.30E-12e 200.00/T | 1.0366E-11 | | R055 | NO2 + O3P ----> NO3 | ko= 3.40E-31e 0.0/T(T/300) -1.60
ki = 2.30E-11e 0.0/T(T/300) -0.20
n= 1.00;F= 0.60 | 4.0243E-12 | | R056 | NO2 + HO ----> HNO3 | ko= 1.80E-30e 0.0/T(T/300) -3.00
ki = 2.80E-11e 0.0/T(T/300) 0.00
n= 1.00;F= 0.60 | 1.0589E-11 | | R057 | HNO3 + HO ----> NO3 | k0= 2.40E-14e 460.0/T
k1= 2.70E-17e 2199.0/T
k3= 6.50E-34e 1335.0/T | 1.5409E-13 | | R058 | NO3 + HO ----> HO2 + NO2 | 2.0000E-11 | 2.0000E-11 | | R059 | NO3 + HO2 ----> 0.7000\*HO + 0.7000\*NO2 + 0.3000\*HNO3 | 3.5000E-12 | 3.5000E-12 | | R060 | NO3 + NO ----> 2.0000\*NO2 | 1.70E-11e 125.00/T | 2.5854E-11 | | R061 | NO3 + NO2 ----> NO + NO2 | 4.35E-14e -1335.00/T | 4.9418E-16 | | R062 | NO3 + NO3 ----> 2.0000\*NO2 | 8.50E-13e -2450.00/T | 2.2944E-16 | | R063 | NO3 + NO2 ----> N2O5 | ko= 2.40E-30e 0.0/T(T/300) -3.00
ki = 1.60E-12e 0.0/T(T/300) 0.10
n= 1.00;F= 0.60 | 1.3451E-12 | | R064 | N2O5 ----> NO2 + NO3 | 1.72E+26e-10840.00/T \*R063 | 3.7623E-028| | R065 | N2O5 + H2O ----> 2.0000\*HNO3 | 1.0000E-22 | 1.0000E-22 | | R066 | NO2 + HO2 ----> HNO4 | ko= 1.90E-31e 0.0/T(T/300) -3.40
ki = 4.00E-12e 0.0/T(T/300) -0.30
n= 1.00;F= 0.60 | 1.3113E-12 | | R067 | HNO4 ----> HO2 + NO2 | 4.76E+26e-10900.00/T \*R066 | 8.2835E-028| | R068 | HNO4 + HO ----> NO2 | 4.50E-13e 610.00/T | 3.4814E-12 | | R069 | SO2 + HO ----> HO2 + SULF + SULRXN | ko= 2.90E-31e 0.0/T(T/300) -4.10
ki = 1.70E-12e 0.0/T(T/300) 0.20
n= 1.00;F= 0.60 | 9.5762E-13 | | R070 | CO + HO ----> HO2 | k0= 1.44E-13e 0.0/T
k1= 2.74E-33e 0.0/T | 2.1145E-13 | | R071 | HO + CH4 ----> MO2 | 2.45E-12e -1775.00/T | 6.3628E-15 | | R072 | ETH + HO ----> ETHP | 7.66E-12e -1020.00/T | 2.5030E-13 | | R073 | HC3 + HO ----> HC3P + 0.0000\*ASOATJ | 7.68E-12e -370.00/T | 2.2203E-12 | | R074 | HC5 + HO ----> HC5P + 0.0013\*ASOATJ | 1.01E-11e -245.00/T | 4.4407E-12 | | R076 | ETE + HO ----> ETEP | ko= 1.00E-28e 0.0/T(T/300) -4.50
ki = 8.80E-12e 0.0/T(T/300) -0.85
n= 1.00;F= 0.60 | 8.1981E-12 | | R077 | OLT + HO ----> OLTP | 5.72E-12e 500.00/T | 3.0599E-11 | | R078 | OLI + HO ----> OLIP | 1.33E-11e 500.00/T | 7.1149E-11 | | R080 | ACE + HO ----> 0.6500\*HO + 0.3500\*HO2 + 0.3500\*CO + 0.6500\*GLY + 0.3500\*ORA1 | ko= 5.50E-30e 0.0/T(T/300) 0.00
ki = 8.30E-13e 0.0/T(T/300) 2.00
n= 1.00;F= 0.60 | 7.4748E-13 | | ROCARO31 | BEN + HO ----> 0.4700\*BENP + 0.5300\*PHEN + 0.5300\*HO2 | 2.33E-12e -193.00/T | 1.2196E-12 | | ROCARO41 | TOL + HO ----> 0.8200\*TOLP + 0.1800\*CSL + 0.1800\*HO2 | 1.81E-12e 354.00/T | 5.9337E-12 | | ROCARO51 | XYL + HO ----> 0.8300\*XYLP + 0.1700\*CSL + 0.1700\*HO2 | 2.3300E-11 | 2.3300E-11 | | ROCARO61 | EBZ + HO ----> 0.8200\*EBZP + 0.1800\*CSL + 0.1800\*HO2 | 7.1600E-12 | 7.1600E-12 | | RAM01 | ISO + O3 ----> 0.2500\*HO + 0.2500\*HO2 + 0.4000\*MO2 + 0.0180\*ACO3 + 0.1000\*MACP + 0.0900\*H2O2 + 0.2200\*CO + HCHO + 0.3000\*MACR + 0.1400\*MVK + 0.2800\*ORA1 + 0.1530\*OLT | 1.58E-14e -2000.00/T | 1.9293E-17 | | RAM02 | ISO + NO3 ----> 0.4000\*NO2 + 0.0450\*ISON + 0.3500\*HCHO + 0.5550\*INO2 + 0.2600\*MVK + 0.0280\*MACR | 2.95E-12e -450.00/T | 6.5214E-13 | | RAM03 | ISO + HO ----> ISOP + 0.2500\*HCHO + 0.0300\*MACR + 0.0500\*MGLY | 2.69E-11e 390.00/T | 9.9503E-11 | | RAM04 | ISOP + HO2 ----> ISHP + 0.0700\*HO2 + 0.5000\*HO | 4.50E-13e 1300.00/T | 3.5224E-11 | | RAM05 | ISOP + NO ----> 0.1300\*ISON + 0.4000\*HCHO + 0.8800\*HO2 + 0.8700\*NO2 + 0.1800\*MACR + 0.5100\*MVK | 6.00E-12e 350.00/T | 1.9408E-11 | | RAM06 | ISHP + HO ----> ISOP | 4.60E-12e 200.00/T | 8.9967E-12 | | RAM07 | ISHP + HO ----> 0.0400\*MGLY + 0.0200\*GLY + 0.1300\*MVK + 0.4400\*IEPOX + 0.1100\*ACO3 + 0.0300\*MACR + 2.0000\*HO + 0.3400\*HO2 + 0.1400\*IPX + CO | 2.97E-11e 390.00/T | 1.0986E-10 | | RAM08 | INO2 + HO2 ----> 0.4500\*HO + 0.9500\*INALD + 0.0200\*IPX | 3.14E-11e 580.00/T | 2.1967E-10 | | RAM09 | INO2 + NO ----> 0.1500\*MVK + 0.6500\*INALD + 0.0500\*ISON + 0.2000\*HCHO + 1.3000\*NO2 | 9.42E-12e 580.00/T | 6.5902E-11 | | RAM10 | ISON + HO ----> HO + 0.3500\*INALD + 0.1700\*IEPOX + 0.6500\*NO2 | 2.40E-11e 390.00/T | 8.8776E-11 | | RAM11 | HO + INALD ----> CO + NO2 + 0.3000\*HO2 + HCHO | 1.5000E-11 | 1.5000E-11 | | RAM12 | ISON ----> HNO3 + ROH | 4.0000E-05 | 4.0000E-05 | | RAM13 | IPX + HO ----> 0.5700\*MACR + 0.4300\*MVK | 3.0000E-12 | 3.0000E-12 | | R087 | API + HO ----> 0.9750\*APIP1 + 0.0250\*APIP2 | 1.21E-11e 440.00/T | 5.2930E-11 | | R088 | LIM + HO ----> 0.9450\*LIMP1 + 0.0550\*LIMP2 | 4.20E-11e 401.00/T | 1.6120E-10 | | TRP04 | PINAL + HO ----> 0.2300\*PINALP + 0.7700\*RCO3 | 5.20E-12e 600.00/T | 3.8903E-11 | | TRP05 | LIMAL + HO ----> 0.8300\*LIMALP + 0.1700\*RCO3 | 1.1000E-10 | 1.1000E-10 | | R089 | HCHO + HO ----> HO2 + CO | 5.50E-12e 125.00/T | 8.3645E-12 | | R090 | ACD + HO ----> ACO3 | 4.70E-12e 345.00/T | 1.4950E-11 | | R091 | ALD + HO ----> RCO3 | 4.90E-12e 405.00/T | 1.9060E-11 | | R092 | ACT + HO ----> ACTP | 4.56E-14e -427.00/T(T/300) 3.65 | 1.0646E-14 | | R093 | MEK + HO ----> MEKP | 1.50E-12e -90.00/T | 1.1092E-12 | | R094 | KET + HO ----> KETP | 2.80E-12e 10.00/T | 2.8955E-12 | | R095 | HKET + HO ----> HO2 + MGLY | 3.0000E-12 | 3.0000E-12 | | R096 | MACR + HO ----> 0.5700\*MACP + 0.4300\*MCP | 8.00E-12e 380.00/T | 2.8616E-11 | | R097 | MVK + HO ----> MVKP | 2.60E-12e 610.00/T | 2.0115E-11 | | R098 | UALD + HO ----> 0.3130\*ACO3 + 0.6870\*UALP | 5.77E-12e 533.00/T | 3.4479E-11 | | R099 | GLY + HO ----> HO2 + 2.0000\*CO | 1.1000E-11 | 1.1000E-11 | | R100 | MGLY + HO ----> ACO3 + CO | 9.26E-13e 830.00/T | 1.4984E-11 | | R101 | DCB1 + HO ----> 0.5200\*HO2 + 0.3300\*CO + 0.4000\*ALD + 0.7800\*KET + 0.1000\*GLY + 0.0100\*MGLY | 2.80E-11e 175.00/T | 5.0358E-11 | | R102 | DCB2 + HO ----> 0.5200\*HO2 + 0.3300\*CO + 0.1300\*MEK + 0.1000\*GLY + 0.0100\*MGLY + 0.7800\*OP2 | 2.80E-11e 175.00/T | 5.0358E-11 | | R103 | DCB3 + HO ----> 0.5600\*HO2 + 0.2100\*MACP + 0.1100\*CO + 0.2700\*GLY + 0.0100\*MGLY + 0.7900\*OP2 | 1.0000E-11 | 1.0000E-11 | | R104 | BALD + HO ----> BALP | 5.32E-12e 243.00/T | 1.2019E-11 | | R105 | PHEN + HO ----> 0.1520\*ASOATJ + 0.6190\*HO2 + 0.1700\*ADDC + 0.0590\*CHO + 0.6190\*MCT | 6.75E-12e 405.00/T | 2.6257E-11 | | R106 | CSL + HO ----> 0.2000\*ASOATJ + 0.5840\*HO2 + 0.1600\*ADDC + 0.0560\*CHO + 0.5840\*MCT | 4.65E-11e 0.00/T | 4.6500E-11 | | R108 | MCT + HO ----> MCTO | 2.05E-10e 0.00/T | 2.0500E-10 | | R109 | MOH + HO ----> HO2 + HCHO | 2.85E-12e -345.00/T | 8.9600E-13 | | R110 | EOH + HO ----> HO2 + ACD | 3.00E-12e 20.00/T | 3.2081E-12 | | R111 | ROH + HO ----> HO2 + 0.7190\*ALD + 0.1840\*ACD | 2.60E-12e 200.00/T | 5.0851E-12 | | R112 | ETEG + HO ----> HO2 + ALD | 1.4700E-11 | 1.4700E-11 | | R113 | OP1 + HO ----> 0.3500\*HO + 0.6500\*MO2 + 0.3500\*HCHO | 2.90E-12e 190.00/T | 5.4848E-12 | | R114 | OP2 + HO ----> 0.0100\*HO + 0.4400\*HC3P + 0.0700\*XO2 + 0.0800\*ALD + 0.4100\*KET | 3.40E-12e 190.00/T | 6.4304E-12 | | TRP06 | OPB + HO ----> 0.0100\*HO + 0.4400\*HC10P + 0.0700\*XO2 + 0.0800\*ALD + 0.4100\*KET | 3.40E-12e 190.00/T | 6.4304E-12 | | R114a | OP3 + HO ----> 0.0100\*HO + 0.4400\*HC10P + 0.0700\*XO2 + 0.0800\*ALD + 0.4100\*KET | 3.40E-12e 190.00/T | 6.4304E-12 | | R116 | MAHP + HO ----> MACP | 3.0000E-11 | 3.0000E-11 | | R117 | ORA1 + HO ----> HO2 | 4.5000E-13 | 4.5000E-13 | | R118 | ORA2 + HO ----> 0.6400\*MO2 + 0.3600\*ORAP | 4.00E-14e 850.00/T | 6.9214E-13 | | R119 | PAA + HO ----> 0.3500\*HO + 0.6500\*ACO3 + 0.3500\*XO2 + 0.3500\*HCHO | 2.93E-12e 190.00/T | 5.5415E-12 | | R120 | PAN + HO ----> XO2 + NO3 + HCHO | 4.0000E-14 | 4.0000E-14 | | R121 | PPN + HO ----> XO2 + NO3 + HCHO | 4.0000E-14 | 4.0000E-14 | | R122 | MPAN + HO ----> NO2 + HKET | 3.2000E-11 | 3.2000E-11 | | R123 | ONIT + HO ----> HC3P + NO2 | 5.31E-12e -260.00/T | 2.2201E-12 | | TRP07 | TRPN + HO ----> 0.3300\*HONIT + 0.6700\*NO2 + 0.2700\*PINAL + 0.3800\*KET + 0.2100\*HCHO + 0.0200\*ALD | 4.8000E-12 | 4.8000E-12 | | TRP57 | HONIT + HO ----> HKET + NO3 | k0= 2.40E-14e 460.0/T
k1= 2.70E-17e 2199.0/T
k3= 6.50E-34e 1335.0/T | 1.5409E-13 | | R126 | ETE + O3 ----> 0.0800\*HO + 0.1500\*HO2 + 0.4300\*CO + HCHO + 0.3700\*ORA1 | 9.14E-15e -2580.00/T | 1.5953E-18 | | R127 | OLT + O3 ----> 0.2200\*HO + 0.3200\*HO2 + 0.0800\*MO2 + 0.0600\*ETHP + 0.0400\*HC3P + 0.0200\*HC5P + 0.0680\*H2O2 + 0.4300\*CO + 0.0200\*ETH + 0.0150\*HC3 + 0.0060\*HC5 + 0.0320\*BEN + 0.5600\*HCHO + 0.0100\*ACD + 0.4400\*ALD + 0.0300\*ACT + 0.0200\*BALD + 0.0600\*MEK + 0.0100\*HKET + 0.0300\*ORA1 + 0.0600\*ORA2 | 4.33E-15e -1800.00/T | 1.0341E-17 | | R128 | OLI + O3 ----> 0.4600\*HO + 0.0700\*HO2 + 0.3200\*MO2 + 0.0700\*ETHP + 0.0400\*HC3P + 0.0900\*ACO3 + 0.3700\*CO + 0.0260\*H2O2 + 0.0100\*ETH + 0.0100\*HC3 + 0.0900\*HCHO + 0.4570\*ACD + 0.7300\*ALD + 0.1100\*ACT + 0.0170\*KET + 0.0440\*HKET + 0.0170\*ORA2 | 4.40E-15e -845.00/T | 2.5858E-16 | | R131 | API + O3 ----> 0.6055\*HO + 0.2145\*PINALP + 0.2550\*H2O2 + 0.2535\*PINAL + 0.0065\*ORA2 + 0.1105\*HO2 + 0.1105\*CO + 0.4590\*HCHO + 0.2805\*RCO3 + 0.1785\*KET + 0.0665\*HC3 + 0.0385\*OP1 + 0.0280\*ORA1 | 8.05E-16e -640.00/T | 9.4092E-17 | | R132 | LIM + O3 ----> 0.6600\*HO + 0.6600\*LIMAL + 0.3300\*ACO3 + 0.3300\*HCHO + 0.3300\*RCO3 + 0.3300\*H2O2 + 0.0100\*ORA2 | 2.80E-15e -770.00/T | 2.1162E-16 | | TRP08 | LIMAL + O3 ----> 0.0900\*HO + ALD + 0.6200\*HCHO + 0.2300\*OP1 + 0.0200\*H2O2 + 0.1500\*ORA1 | 8.3000E-18 | 8.3000E-18 | | TRP09 | TRPN + O3 ----> 0.3300\*HONIT + 0.6700\*NO2 + 0.2700\*PINAL + 0.3800\*KET + 0.2100\*HCHO + 0.0200\*ALD | 1.6700E-16 | 1.6700E-16 | | R133 | MACR + O3 ----> 0.1900\*HO + 0.1400\*HO2 + 0.1000\*ACO3 + 0.2200\*CO + 0.5000\*MGLY + 0.4500\*ORA1 | 1.36E-15e -2112.00/T | 1.1406E-18 | | R134 | MVK + O3 ----> 0.1600\*HO + 0.1100\*HO2 + 0.2800\*ACO3 + 0.0100\*XO2 + 0.5600\*CO + 0.1000\*HCHO + 0.5400\*MGLY + 0.0700\*ORA1 + 0.0700\*ORA2 + 0.1000\*ALD | 8.50E-16e -1520.00/T | 5.1921E-18 | | R135 | UALD + O3 ----> 0.1000\*HO + 0.0720\*HO2 + 0.0080\*MO2 + 0.0020\*ACO3 + 0.1000\*XO2 + 0.2430\*CO + 0.0800\*HCHO + 0.4200\*ACD + 0.0280\*KET + 0.4910\*GLY + 0.0030\*MGLY + 0.0440\*ORA1 | 1.6600E-18 | 1.6600E-18 | | R136 | DCB1 + O3 ----> 0.0500\*HO + HO2 + 0.6000\*RCO3 + 0.6000\*XO2 + 1.5000\*CO + 0.0500\*HCHO + 0.0500\*GLY + 0.0800\*MGLY + 0.6500\*OP2 | 2.0000E-16 | 2.0000E-16 | | R137 | DCB2 + O3 ----> 0.0500\*HO + HO2 + 0.6000\*RCO3 + 0.6000\*XO2 + 1.5000\*CO + 0.0500\*HCHO + 0.0500\*GLY + 0.0800\*MGLY + 0.7000\*DCB1 + 0.6500\*OP2 | 2.0000E-16 | 2.0000E-16 | | R138 | DCB3 + O3 ----> 0.0500\*HO + HO2 + 1.5000\*CO + 0.4800\*GLY + 0.7000\*DCB1 + 0.2500\*ORA1 + 0.2500\*ORA2 + 0.1100\*PAA | 9.0000E-17 | 9.0000E-17 | | R140 | MCTO + O3 ----> MCTP | 2.8600E-13 | 2.8600E-13 | | R141 | ETE + NO3 ----> 0.8000\*OLNN + 0.2000\*OLND | 4.39E-13e -2282.00/T(T/300) 2.00 | 2.0571E-16 | | R142 | OLT + NO3 ----> 0.4300\*OLNN + 0.5700\*OLND | 1.79E-13e -450.00/T | 3.9570E-14 | | R143 | OLI + NO3 ----> 0.1100\*OLNN + 0.8900\*OLND | 8.64E-13e 450.00/T | 3.9084E-12 | | R146 | API + NO3 ----> 0.9750\*APINP1 + 0.0250\*APINP2 | 1.19E-12e 490.00/T | 6.1560E-12 | | R147 | LIM + NO3 ----> 0.9450\*LIMNP1 + 0.0550\*LIMNP2 | 1.2200E-11 | 1.2200E-11 | | TRP10 | TRPN + NO3 ----> 0.3300\*HONIT + 0.6700\*NO2 + 0.2700\*PINAL + 0.3800\*KET + 0.2100\*HCHO + 0.0200\*ALD | 3.15E-13e -448.00/T | 7.0104E-14 | | R148 | HCHO + NO3 ----> HO2 + CO + HNO3 | 2.00E-12e -2440.00/T | 5.5828E-16 | | R149 | ACD + NO3 ----> ACO3 + HNO3 | 1.40E-12e -1900.00/T | 2.3907E-15 | | R150 | ALD + NO3 ----> RCO3 + HNO3 | 3.76E-12e -1900.00/T | 6.4208E-15 | | R151 | MACR + NO3 ----> 0.6800\*HCHO + 0.3200\*MACP + 0.6800\*XO2 + 0.6800\*MGLY + 0.3200\*HNO3 + 0.6800\*NO2 | 3.4000E-15 | 3.4000E-15 | | R152 | UALD + NO3 ----> HO2 + XO2 + 0.6680\*CO + 0.3320\*HCHO + 0.3320\*ALD + ONIT | 5.02E-13e -1076.00/T | 1.3595E-14 | | R153 | GLY + NO3 ----> HO2 + 2.0000\*CO + HNO3 | 2.90E-12e -1900.00/T | 4.9522E-15 | | R154 | MGLY + NO3 ----> ACO3 + CO + HNO3 | 3.76E-12e -1900.00/T | 6.4208E-15 | | R155 | PHEN + NO3 ----> 0.1520\*ASOATJ + 0.3390\*CHO + 0.8500\*ADDC + 0.4240\*ADCN + 0.4240\*HNO3 | 3.7800E-12 | 3.7800E-12 | | R156 | CSL + NO3 ----> 0.2000\*ASOATJ + 0.3200\*CHO + 0.0800\*ADDC + 0.4000\*ADCN + 0.4000\*HNO3 | 1.0600E-12 | 1.0600E-12 | | R158 | MCT + NO3 ----> MCTO + HNO3 | 2.0100E-10 | 2.0100E-10 | | R159 | MPAN + NO3 ----> MACP + NO2 | 2.20E-14e -500.00/T | 4.1125E-15 | | TRP11 | PINALP ----> HOM | 2.9000E-02 | 2.9000E-02 | | TRP12 | LIMALP ----> HOM | 2.4000E-02 | 2.4000E-02 | | R166 | ACO3 + NO2 ----> PAN | ko= 9.70E-29e 0.0/T(T/300) -5.60
ki = 9.30E-12e 0.0/T(T/300) -1.50
n= 1.00;F= 0.60 | 8.6800E-12 | | R167 | PAN ----> ACO3 + NO2 | 1.11E+28e-14000.00/T \*R166 | 3.9034E-048| | R168 | RCO3 + NO2 ----> PPN | ko= 9.70E-29e 0.0/T(T/300) -5.60
ki = 9.30E-12e 0.0/T(T/300) -1.50
n= 1.00;F= 0.60 | 8.6800E-12 | | R169 | PPN ----> RCO3 + NO2 | 1.11E+28e-14000.00/T \*R168 | 3.9034E-048| | R170 | MACP + NO2 ----> MPAN | 2.80E-12e 181.00/T | 5.1382E-12 | | R171 | MPAN ----> MACP + NO2 | 1.60E+16e-13486.00/T | 3.6308E-04 | | R172 | MO2 + NO ----> HO2 + NO2 + HCHO | 2.80E-12e 300.00/T | 7.6586E-12 | | R173 | ETHP + NO ----> HO2 + NO2 + ACD | 2.60E-12e 365.00/T | 8.8439E-12 | | R174 | HC3P + NO ----> 0.6600\*HO2 + 0.1310\*MO2 + 0.0480\*ETHP + 0.0890\*XO2 + 0.9350\*NO2 + 0.5040\*ACD + 0.1320\*ALD + 0.1650\*ACT + 0.0420\*MEK + 0.0650\*ONIT | 4.0000E-12 | 4.0000E-12 | | R175 | HC5P + NO ----> 0.2000\*HO2 + 0.0510\*MO2 + 0.2310\*ETHP + 0.2350\*XO2 + 0.8640\*NO2 + 0.0180\*HCHO + 0.0450\*ACD + 0.2030\*ALD + 0.0330\*MEK + 0.2170\*ACT + 0.0330\*KET + 0.2720\*HKET + 0.1360\*ONIT | 4.0000E-12 | 4.0000E-12 | | R177 | ETEP + NO ----> HO2 + NO2 + 1.6000\*HCHO + 0.2000\*ALD | 9.0000E-12 | 9.0000E-12 | | R178 | OLTP + NO ----> 0.7800\*HO2 + 0.9700\*NO2 + 0.7800\*HCHO + 0.0120\*ACD + 0.4400\*ALD + 0.0600\*ACT + 0.1300\*MEK + 0.0300\*ONIT | 4.0000E-12 | 4.0000E-12 | | R179 | OLIP + NO ----> 0.8300\*HO2 + 0.9500\*NO2 + 0.8100\*ACD + 0.6800\*ALD + 0.2000\*ACT + 0.0900\*KET + 0.0200\*HKET + 0.0500\*ONIT | 4.0000E-12 | 4.0000E-12 | | ROCARO33 | BENP + NO ----> 0.0000\*ONIT + 0.0012\*VROCP4OXY2 + 0.0008\*VROCN1OXY6 + 0.9980\*NO2 + 0.9980\*HO2 + 0.0000\*BALD + 0.9980\*GLY + 0.4990\*FURANONE + 0.2495\*DCB2 + 0.2495\*DCB3 | 2.70E-12e 360.00/T | 9.0313E-12 | | ROCARO43 | TOLP + NO ----> 0.0002\*ONIT + 0.0013\*VROCP4OXY2 + 0.0006\*VROCN1OXY6 + 0.9980\*NO2 + 0.9980\*HO2 + 0.0852\*BALD + 0.5477\*GLY + 0.3651\*MGLY + 0.3651\*FURANONE + 0.5477\*DCB1 | 2.70E-12e 360.00/T | 9.0313E-12 | | ROCARO53 | XYLP + NO ----> 0.0001\*ONIT + 0.0013\*VROCP3OXY2 + 0.0006\*VROCP0OXY4 + 0.9980\*NO2 + 0.9980\*HO2 + 0.0481\*BALD + 0.7029\*GLY + 0.2470\*MGLY + 0.3515\*FURANONE + 0.5984\*DCB2 | 2.70E-12e 360.00/T | 9.0313E-12 | | ROCARO63 | EBZP + NO ----> 0.0002\*ONIT + 0.0013\*VROCP3OXY2 + 0.0006\*VROCP0OXY4 + 0.9980\*NO2 + 0.9980\*HO2 + 0.0852\*BALD + 0.5477\*GLY + 0.3651\*MGLY + 0.4564\*FURANONE + 0.4564\*DCB2 | 2.70E-12e 360.00/T | 9.0313E-12 | | R189 | APIP1 + NO ----> 0.2370\*TRPN + 0.7630\*HO2 + 0.7630\*NO2 + 0.1950\*PINAL + 0.2840\*ALD + 0.0865\*ACT + 0.1285\*LIMAL + 0.3080\*HCHO + 0.0715\*OPB + 0.0840\*KET | 2.70E-12e 360.00/T | 9.0313E-12 | | TRP13 | APIP2 + NO ----> 0.8200\*HO + 0.8200\*NO2 + HOM | 4.0000E-12 | 4.0000E-12 | | TRP14 | APINP1 + NO ----> 1.6955\*NO2 + 0.2345\*TRPN + 0.0700\*ONIT + 0.6045\*PINAL + 0.1540\*ALD + 0.0070\*KET + 0.0070\*HCHO + 0.1645\*HO2 | 2.70E-12e 360.00/T | 9.0313E-12 | | TRP15 | APINP2 + NO ----> 0.8200\*NO2 + 0.8200\*HO + HOM | 4.0000E-12 | 4.0000E-12 | | R190 | LIMP1 + NO ----> 0.2300\*TRPN + 0.7700\*NO2 + 0.7700\*LIMAL + 0.7700\*HO2 + 0.4300\*HCHO | 2.70E-12e 360.00/T | 9.0313E-12 | | TRP16 | LIMP2 + NO ----> 0.7700\*HO + 0.7700\*NO2 + HOM | 4.0000E-12 | 4.0000E-12 | | TRP17 | LIMNP1 + NO ----> 0.5700\*TRPN + 0.0700\*ONIT + 1.3600\*NO2 + 0.4300\*LIMAL + 0.5000\*HO2 | 2.70E-12e 360.00/T | 9.0313E-12 | | TRP18 | LIMNP2 + NO ----> 0.7700\*NO2 + 0.7700\*HO + HOM | 4.0000E-12 | 4.0000E-12 | | TRP19 | PINALP + NO ----> 0.3600\*TRPN + 0.6400\*HOM + 0.6400\*NO2 | 2.70E-12e 360.00/T | 9.0313E-12 | | TRP20 | LIMALP + NO ----> 0.6400\*TRPN + 0.3600\*NO2 + 0.3600\*HO2 + 0.3600\*HCHO + 0.3600\*PAA | 2.70E-12e 360.00/T | 9.0313E-12 | | R191 | ACO3 + NO ----> MO2 + NO2 | 8.10E-12e 270.00/T | 2.0034E-11 | | R192 | RCO3 + NO ----> ETHP + NO2 | 8.10E-12e 270.00/T | 2.0034E-11 | | R193 | ACTP + NO ----> ACO3 + NO2 + HCHO | 2.90E-12e 300.00/T | 7.9321E-12 | | R194 | MEKP + NO ----> 0.6700\*HO2 + NO2 + 0.3300\*HCHO + 0.6700\*DCB1 | 4.0000E-12 | 4.0000E-12 | | R195 | KETP + NO ----> 0.7700\*HO2 + 0.2300\*ACO3 + 0.1600\*XO2 + NO2 + 0.4600\*ALD + 0.5400\*MGLY | 4.0000E-12 | 4.0000E-12 | | R196 | MACP + NO ----> 0.6500\*MO2 + 0.3500\*ACO3 + NO2 + 0.6500\*CO + 0.6500\*HCHO | 2.54E-12e 360.00/T | 8.4961E-12 | | R197 | MCP + NO ----> NO2 + 0.5000\*HO2 + 0.5000\*HCHO + HKET | 2.54E-12e 360.00/T | 8.4961E-12 | | R198 | MVKP + NO ----> 0.3000\*HO2 + 0.7000\*ACO3 + 0.7000\*XO2 + NO2 + 0.3000\*HCHO + 0.7000\*ALD + 0.3000\*MGLY | 2.54E-12e 360.00/T | 8.4961E-12 | | R199 | UALP + NO ----> HO2 + NO2 + 0.6100\*CO + 0.0300\*HCHO + 0.2700\*ALD + 0.1800\*GLY + 0.7000\*KET + 0.2100\*MGLY | 2.54E-12e 360.00/T | 8.4961E-12 | | R200 | BALP + NO ----> BAL1 + NO2 | 4.0000E-12 | 4.0000E-12 | | R201 | BAL1 + NO ----> BAL2 + NO2 | 4.0000E-12 | 4.0000E-12 | | R202 | ADDC + NO ----> HO2 + NO2 + 0.3200\*HKET + 0.6800\*GLY + 0.6800\*OP2 | 2.70E-12e 360.00/T | 9.0313E-12 | | R203 | MCTP + NO ----> MCTO + NO2 | 2.70E-12e 360.00/T | 9.0313E-12 | | R204 | ORAP + NO ----> NO2 + GLY + HO2 | 4.0000E-12 | 4.0000E-12 | | R205 | OLNN + NO ----> NO2 + HO2 + ONIT | 4.0000E-12 | 4.0000E-12 | | R206 | OLND + NO ----> 2.0000\*NO2 + 0.2870\*HCHO + 1.2400\*ALD + 0.4640\*KET | 4.0000E-12 | 4.0000E-12 | | R207 | ADCN + NO ----> 2.0000\*NO2 + GLY + OP2 | 2.70E-12e 360.00/T | 9.0313E-12 | | R208 | XO2 + NO ----> NO2 | 4.0000E-12 | 4.0000E-12 | | R209 | BAL2 + NO2 ----> ONIT | 2.0000E-11 | 2.0000E-11 | | R210 | CHO + NO2 ----> ONIT | 2.0000E-11 | 2.0000E-11 | | R211 | MCTO + NO2 ----> ONIT | 2.0800E-12 | 2.0800E-12 | | R212 | MO2 + HO2 ----> OP1 | 4.10E-13e 750.00/T | 5.0729E-12 | | R213 | ETHP + HO2 ----> OP2 | 7.50E-13e 700.00/T | 7.8470E-12 | | R214 | HC3P + HO2 ----> OP2 | 1.66E-13e 1300.00/T | 1.2994E-11 | | R215 | HC5P + HO2 ----> OP2 | 1.66E-13e 1300.00/T | 1.2994E-11 | | R217 | ETEP + HO2 ----> OP2 | 1.90E-13e 1300.00/T | 1.4872E-11 | | R218 | OLTP + HO2 ----> OP2 | 1.66E-13e 1300.00/T | 1.2994E-11 | | R219 | OLIP + HO2 ----> OP2 | 1.66E-13e 1300.00/T | 1.2994E-11 | | ROCARO32 | BENP + HO2 ----> 0.6021\*OP2 + 0.3979\*VROCN1OXY6 | 2.91E-13e 1300.00/T | 2.2778E-11 | | ROCARO42 | TOLP + HO2 ----> 0.7195\*OP2 + 0.2805\*VROCN1OXY6 | 2.91E-13e 1300.00/T | 2.2778E-11 | | ROCARO52 | XYLP + HO2 ----> 0.0482\*OP2 + 0.6747\*OP3 + 0.2771\*VROCP0OXY4 | 2.91E-13e 1300.00/T | 2.2778E-11 | | ROCARO62 | EBZP + HO2 ----> 0.0854\*OP2 + 0.6341\*OP3 + 0.2805\*VROCP0OXY4 | 2.91E-13e 1300.00/T | 2.2778E-11 | | R229 | APIP1 + HO2 ----> 0.0390\*ACT + 0.0390\*LIMAL + 0.0625\*HCHO + 0.7620\*OPB + 0.3225\*HO2 + 0.1885\*PINAL + 0.2380\*HO + 0.0105\*KET | 2.60E-13e 1300.00/T | 2.0351E-11 | | TRP21 | APIP2 + HO2 ----> HOM | 1.5000E-11 | 1.5000E-11 | | TRP22 | APINP1 + HO2 ----> 0.4610\*TRPN + 0.4550\*PINAL + 0.5390\*NO2 + 0.6195\*HO + 0.0770\*ALD + 0.0070\*KET + 0.0070\*HCHO | 2.71E-13e 1300.00/T | 2.1212E-11 | | TRP23 | APINP2 + HO2 ----> HOM | 1.5000E-11 | 1.5000E-11 | | R230 | LIMP1 + HO2 ----> 0.9000\*OPB + 0.1000\*LIMAL + 0.1000\*HO + 0.1000\*HO2 + 0.0600\*HCHO | 2.60E-13e 1300.00/T | 2.0351E-11 | | TRP24 | LIMP2 + HO2 ----> HOM | 1.5000E-11 | 1.5000E-11 | | TRP25 | LIMNP1 + HO2 ----> 0.7700\*TRPN + 0.5000\*HO + 0.2300\*LIMAL + 0.2300\*NO2 + 0.2700\*HO2 | 2.71E-13e 1300.00/T | 2.1212E-11 | | TRP26 | LIMNP2 + HO2 ----> HOM | 1.5000E-11 | 1.5000E-11 | | TRP27 | PINALP + HO2 ----> 0.7500\*OPB + 0.2500\*HO + 0.2500\*HOM | 2.71E-13e 1300.00/T | 2.1212E-11 | | TRP28 | LIMALP + HO2 ----> 0.9000\*OPB + 0.1000\*HO + 0.1000\*HO2 + 0.1000\*HCHO + 0.1000\*PAA | 2.73E-13e 1300.00/T | 2.1369E-11 | | R231 | ACO3 + HO2 ----> 0.4400\*HO + 0.4400\*MO2 + 0.1500\*ORA2 + 0.4100\*PAA | 4.30E-13e 1040.00/T | 1.4072E-11 | | R232 | RCO3 + HO2 ----> 0.4400\*HO + 0.4400\*ETHP + 0.1500\*ORA2 + 0.4100\*PAA | 4.30E-13e 1040.00/T | 1.4072E-11 | | R233 | ACTP + HO2 ----> 0.1500\*HO + 0.1500\*ACO3 + 0.1500\*HCHO + 0.8500\*OP2 | 1.15E-13e 1300.00/T | 9.0016E-12 | | R234 | MEKP + HO2 ----> OP2 | 1.15E-13e 1300.00/T | 9.0016E-12 | | R235 | KETP + HO2 ----> OP2 | 1.15E-13e 1300.00/T | 9.0016E-12 | | R236 | MACP + HO2 ----> MAHP | 1.82E-13e 1300.00/T | 1.4246E-11 | | R237 | MCP + HO2 ----> MAHP | 1.82E-13e 1300.00/T | 1.4246E-11 | | R238 | MVKP + HO2 ----> OP2 | 2.91E-13e 1300.00/T | 2.2778E-11 | | R239 | UALP + HO2 ----> OP2 | 2.91E-13e 1300.00/T | 2.2778E-11 | | R240 | ADDC + HO2 ----> OP2 | 3.75E-13e 980.00/T | 1.0035E-11 | | R241 | CHO + HO2 ----> CSL | 1.0000E-11 | 1.0000E-11 | | R242 | MCTP + HO2 ----> OP2 | 3.75E-13e 980.00/T | 1.0035E-11 | | R243 | ORAP + HO2 ----> OP2 | 1.15E-13e 1300.00/T | 9.0016E-12 | | R244 | OLNN + HO2 ----> ONIT | 1.66E-13e 1300.00/T | 1.2994E-11 | | R245 | OLND + HO2 ----> ONIT | 1.66E-13e 1300.00/T | 1.2994E-11 | | R246 | ADCN + HO2 ----> OP2 | 3.75E-13e 980.00/T | 1.0035E-11 | | R247 | XO2 + HO2 ----> OP2 | 1.66E-13e 1300.00/T | 1.2994E-11 | | R248 | MO2 + MO2 ----> 0.7400\*HO2 + 1.3700\*HCHO + 0.6300\*MOH | 9.50E-14e 390.00/T | 3.5141E-13 | | R249 | ETHP + MO2 ----> HO2 + 0.7500\*HCHO + 0.7500\*ACD + 0.2500\*MOH + 0.2500\*EOH | 1.18E-13e 158.00/T | 2.0046E-13 | | R250 | HC3P + MO2 ----> 0.8940\*HO2 + 0.0800\*MO2 + 0.0260\*ETHP + 0.0260\*XO2 + 0.8270\*HCHO + 0.1980\*ALD + 0.4970\*KET + 0.0500\*GLY + 0.2500\*MOH + 0.2500\*ROH | 9.46E-14e 431.00/T | 4.0151E-13 | | R251 | HC5P + MO2 ----> 0.8420\*HO2 + 0.0180\*MO2 + 0.1400\*ETHP + 0.1910\*XO2 + 0.7770\*HCHO + 0.2510\*ALD + 0.6180\*KET + 0.2500\*MOH + 0.2500\*ROH | 1.00E-13e 467.00/T | 4.7890E-13 | | R253 | ETEP + MO2 ----> HO2 + 1.9500\*HCHO + 0.1500\*ALD + 0.2500\*MOH + 0.2500\*ETEG | 1.71E-13e 708.00/T | 1.8378E-12 | | R254 | OLTP + MO2 ----> HO2 + 1.5000\*HCHO + 0.7050\*ALD + 0.0450\*KET + 0.2500\*MOH + 0.2500\*ROH | 1.46E-13e 708.00/T | 1.5691E-12 | | R255 | OLIP + MO2 ----> HO2 + 0.7500\*HCHO + 1.2800\*ALD + 0.2180\*KET + 0.2500\*MOH + 0.2500\*ROH | 9.18E-14e 708.00/T | 9.8659E-13 | | ROCARO35 | BENP + MO2 ----> 0.6800\*HCHO + 1.3700\*HO2 + 0.3200\*MOH + 0.0000\*BALD + GLY + 0.5000\*FURANONE + 0.2500\*DCB2 + 0.2500\*DCB3 | 3.56E-14e 708.00/T | 3.8260E-13 | | ROCARO45 | TOLP + MO2 ----> 0.6800\*HCHO + 1.2846\*HO2 + 0.3200\*MOH + 0.0854\*BALD + 0.5488\*GLY + 0.3659\*MGLY + 0.3659\*FURANONE + 0.5488\*DCB1 | 3.56E-14e 708.00/T | 3.8260E-13 | | ROCARO55 | XYLP + MO2 ----> 0.6800\*HCHO + 1.3218\*HO2 + 0.3200\*MOH + 0.0482\*BALD + 0.7043\*GLY + 0.2475\*MGLY + 0.3522\*FURANONE + 0.5996\*DCB2 | 3.56E-14e 708.00/T | 3.8260E-13 | | ROCARO65 | EBZP + MO2 ----> 0.6800\*HCHO + 1.2846\*HO2 + 0.3200\*MOH + 0.0854\*BALD + 0.5488\*GLY + 0.3659\*MGLY + 0.4573\*FURANONE + 0.4573\*DCB2 | 3.56E-14e 708.00/T | 3.8260E-13 | | R264 | ISOP + MO2 ----> HO2 + 1.3100\*HCHO + 0.1590\*MACR + 0.2500\*MVK + 0.2500\*MOH + 0.2500\*ROH + 0.0230\*ALD + 0.0180\*GLY + 0.0160\*HKET | 3.40E-14e 221.00/T | 7.1350E-14 | | R265 | APIP1 + MO2 ----> 1.0295\*HCHO + 0.2205\*LIMAL + 0.2730\*PINAL + 0.2385\*ALD + 0.0845\*OPB + 0.1105\*MOH + 0.1835\*KET + 0.0670\*ACT + 1.2790\*HO2 | 2.0000E-12 | 2.0000E-12 | | TRP29 | APIP2 + MO2 ----> HO2 + 0.7500\*HCHO + 0.2500\*MOH + HOM | 1.0000E-10 | 1.0000E-10 | | TRP30 | APINP1 + MO2 ----> 0.3410\*TRPN + 0.9640\*HCHO + 0.0430\*MOH + 0.9180\*HO2 + 0.6590\*NO2 + 0.5330\*PINAL + 0.0070\*KET + 0.1190\*ALD | 2.0000E-12 | 2.0000E-12 | | TRP31 | APINP2 + MO2 ----> 0.7500\*HO2 + 0.7500\*NO2 + 0.2500\*MOH + 0.7500\*HCHO + HOM | 1.0000E-10 | 1.0000E-10 | | R266 | LIMP1 + MO2 ----> 0.2500\*MOH + LIMAL + 1.0300\*HCHO + HO2 | 2.0000E-12 | 2.0000E-12 | | TRP32 | LIMP2 + MO2 ----> HO2 + 0.7500\*HCHO + 0.2500\*MOH + HOM | 1.0000E-10 | 1.0000E-10 | | TRP33 | LIMNP1 + MO2 ----> 0.6900\*TRPN + 0.9100\*HCHO + 0.0900\*MOH + 1.0100\*HO2 + 0.3100\*LIMAL + 0.3100\*NO2 | 2.0000E-12 | 2.0000E-12 | | TRP34 | LIMNP2 + MO2 ----> 0.7500\*HO2 + 0.7500\*HCHO + 0.7500\*NO2 + 0.2500\*MOH + HOM | 1.0000E-10 | 1.0000E-10 | | R267 | ACO3 + MO2 ----> 0.9000\*HO2 + 0.9000\*MO2 + HCHO + 0.1000\*ORA2 | 2.00E-11e 500.00/T | 1.0699E-10 | | R268 | RCO3 + MO2 ----> 0.9000\*HO2 + 0.9000\*MO2 + HCHO + 0.1000\*ORA2 | 2.00E-11e 500.00/T | 1.0699E-10 | | R269 | ACTP + MO2 ----> 0.5000\*HO2 + 0.5000\*ACO3 + 1.5000\*HCHO + 0.2500\*MOH + 0.2500\*ROH + 0.1250\*ORA2 | 7.50E-13e 500.00/T | 4.0121E-12 | | R270 | MEKP + MO2 ----> 0.8340\*HO2 + HCHO + 0.3340\*DCB1 + 0.2500\*MOH + 0.2500\*ROH | 6.91E-13e 508.00/T | 3.7971E-12 | | R271 | KETP + MO2 ----> HO2 + 0.7500\*HCHO + 0.5000\*DCB1 + 0.2500\*MOH + 0.2500\*ROH | 6.91E-13e 508.00/T | 3.7971E-12 | | R272 | MACP + MO2 ----> 0.5000\*HO2 + 0.2690\*ACO3 + 0.5000\*CO + 1.6600\*HCHO + 0.0670\*ORA2 + 0.2500\*MO2 + 0.2500\*MOH + 0.2500\*ROH | 3.40E-14e 221.00/T | 7.1350E-14 | | R273 | MCP + MO2 ----> NO2 + HO2 + 1.5000\*HCHO + 0.5000\*HKET + 0.2500\*MOH + 0.2500\*ROH | 3.40E-14e 221.00/T | 7.1350E-14 | | R274 | MVKP + MO2 ----> HO2 + 1.1600\*ACO3 + 1.1600\*XO2 + 1.5000\*HCHO + 1.7500\*ALD + 0.5000\*MGLY + 0.2500\*MOH + 0.2500\*ROH + 0.2920\*ORA2 | 8.3700E-14 | 8.3700E-14 | | R275 | UALP + MO2 ----> HO2 + 0.3050\*CO + 0.7730\*HCHO + 0.2030\*ALD + 0.5250\*KET + 0.1350\*GLY + 0.1050\*MGLY + 0.2500\*MOH + 0.2500\*ROH | 3.40E-14e 221.00/T | 7.1350E-14 | | R276 | BALP + MO2 ----> HO2 + BAL1 + HCHO | 3.56E-14e 708.00/T | 3.8260E-13 | | R277 | BAL1 + MO2 ----> HO2 + BAL2 + HCHO | 3.56E-14e 708.00/T | 3.8260E-13 | | R278 | ADDC + MO2 ----> 2.0000\*HO2 + HCHO + 0.3200\*HKET + 0.6800\*GLY + 0.6800\*OP2 | 3.56E-14e 708.00/T | 3.8260E-13 | | R279 | MCTP + MO2 ----> HO2 + MCTO + HCHO | 3.56E-14e 708.00/T | 3.8260E-13 | | R280 | ORAP + MO2 ----> HCHO + HO2 + GLY | 7.50E-13e 500.00/T | 4.0121E-12 | | R281 | OLNN + MO2 ----> 2.0000\*HO2 + HCHO + ONIT | 1.60E-13e 708.00/T | 1.7195E-12 | | R282 | OLND + MO2 ----> 0.5000\*HO2 + 0.5000\*NO2 + 0.9650\*HCHO + 0.9300\*ALD + 0.3480\*KET + 0.2500\*MOH + 0.2500\*ROH + 0.5000\*ONIT | 9.68E-14e 708.00/T | 1.0403E-12 | | R283 | ADCN + MO2 ----> HO2 + 0.7000\*NO2 + HCHO + 0.7000\*GLY + 0.7000\*OP2 + 0.3000\*ONIT | 3.5600E-14 | 3.5600E-14 | | R284 | XO2 + MO2 ----> HO2 + HCHO | 5.99E-15e 1510.00/T | 9.4829E-13 | | R285 | ETHP + ACO3 ----> 0.5000\*HO2 + 0.5000\*MO2 + ACD + 0.5000\*ORA2 | 1.03E-12e 211.00/T | 2.0902E-12 | | R286 | HC3P + ACO3 ----> 0.3940\*HO2 + 0.5800\*MO2 + 0.0260\*ETHP + 0.0260\*XO2 + 0.1300\*HCHO + 0.2730\*ALD + 0.6620\*KET + 0.0670\*GLY + 0.5000\*ORA2 | 6.90E-13e 460.00/T | 3.2277E-12 | | R287 | HC5P + ACO3 ----> 0.3420\*HO2 + 0.5180\*MO2 + 0.1400\*ETHP + 0.1910\*XO2 + 0.0420\*HCHO + 0.3810\*ALD + 0.8240\*KET + 0.5000\*ORA2 | 5.59E-13e 522.00/T | 3.2194E-12 | | R289 | ETEP + ACO3 ----> 0.5000\*HO2 + 0.5000\*MO2 + 1.6000\*HCHO + 0.2000\*ALD + 0.5000\*ORA2 | 9.48E-13e 765.00/T | 1.2335E-11 | | R290 | OLTP + ACO3 ----> 0.5000\*HO2 + 0.5000\*MO2 + HCHO + 0.9400\*ALD + 0.0600\*KET + 0.5000\*ORA2 | 8.11E-13e 765.00/T | 1.0552E-11 | | R291 | OLIP + ACO3 ----> 0.5000\*HO2 + 0.5000\*MO2 + 1.7100\*ALD + 0.2900\*KET + 0.5000\*ORA2 | 5.09E-13e 765.00/T | 6.6228E-12 | | ROCARO36 | BENP + ACO3 ----> 0.7000\*MO2 + HO2 + 0.3000\*ORA2 + 0.0000\*BALD + GLY + 0.5000\*FURANONE + 0.2500\*DCB2 + 0.2500\*DCB3 | 7.40E-13e 765.00/T | 9.6284E-12 | | ROCARO46 | TOLP + ACO3 ----> 0.7000\*MO2 + 0.9146\*HO2 + 0.3000\*ORA2 + 0.0854\*BALD + 0.5488\*GLY + 0.3659\*MGLY + 0.3659\*FURANONE + 0.5488\*DCB1 | 7.40E-13e 765.00/T | 9.6284E-12 | | ROCARO56 | XYLP + ACO3 ----> 0.7000\*MO2 + 0.9518\*HO2 + 0.3000\*ORA2 + 0.0482\*BALD + 0.7043\*GLY + 0.2475\*MGLY + 0.3522\*FURANONE + 0.5996\*DCB2 | 7.40E-13e 765.00/T | 9.6284E-12 | | ROCARO66 | EBZP + ACO3 ----> 0.7000\*MO2 + 0.9146\*HO2 + 0.3000\*ORA2 + 0.0854\*BALD + 0.5488\*GLY + 0.3659\*MGLY + 0.4573\*FURANONE + 0.4573\*DCB2 | 7.40E-13e 765.00/T | 9.6284E-12 | | R300 | ISOP + ACO3 ----> 0.5000\*HO2 + 0.5000\*MO2 + 1.0480\*HCHO + 0.2190\*MACR + 0.3050\*MVK + 0.5000\*ORA2 | 8.40E-14e 221.00/T | 1.7628E-13 | | R301 | APIP1 + ACO3 ----> 0.2535\*PINAL + 0.3710\*ALD + 0.0910\*OPB + 0.1165\*ACT + 0.1725\*LIMAL + 0.4030\*HCHO + HO2 + MO2 + 0.1120\*KET | 2.00E-12e 500.00/T | 1.0699E-11 | | TRP35 | APIP2 + ACO3 ----> 0.5000\*HO + 0.5000\*MO2 + 0.5000\*ORA2 + HOM | 1.0000E-10 | 1.0000E-10 | | TRP36 | APINP1 + ACO3 ----> 0.8250\*NO2 + 0.6500\*PINAL + MO2 + 0.1750\*TRPN + 0.1680\*ALD + 0.0070\*KET + 0.0070\*HCHO + 0.1750\*HO2 | 2.00E-12e 500.00/T | 1.0699E-11 | | TRP37 | APINP2 + ACO3 ----> 0.5000\*NO2 + 0.5000\*MO2 + 0.5000\*ORA2 + HOM | 1.0000E-10 | 1.0000E-10 | | R302 | LIMP1 + ACO3 ----> LIMAL + 0.5600\*HCHO + HO2 + MO2 | 2.00E-12e 500.00/T | 1.0699E-11 | | TRP38 | LIMP2 + ACO3 ----> 0.5000\*HO + 0.5000\*MO2 + 0.5000\*ORA2 + HOM | 1.0000E-10 | 1.0000E-10 | | TRP39 | LIMNP1 + ACO3 ----> MO2 + 0.4600\*NO2 + 0.4600\*LIMAL + 0.5400\*TRPN + 0.5400\*HO2 | 2.00E-12e 500.00/T | 1.0699E-11 | | TRP40 | LIMNP2 + ACO3 ----> 0.5000\*MO2 + 0.5000\*NO2 + 0.5000\*ORA2 + HOM | 1.0000E-10 | 1.0000E-10 | | R303 | ACO3 + ACO3 ----> 2.0000\*MO2 | 2.50E-12e 500.00/T | 1.3374E-11 | | R304 | RCO3 + ACO3 ----> MO2 + ETHP | 2.50E-12e 500.00/T | 1.3374E-11 | | R305 | ACTP + ACO3 ----> 0.5000\*MO2 + 0.5000\*ACO3 + HCHO + 0.7500\*ORA2 | 7.51E-13e 565.00/T | 4.9962E-12 | | R306 | MEKP + ACO3 ----> 0.3300\*HO2 + 0.5000\*MO2 + 0.3300\*HCHO + 0.3340\*DCB1 + 0.5000\*ORA2 | 7.51E-13e 565.00/T | 4.9962E-12 | | R307 | KETP + ACO3 ----> 0.5000\*HO2 + 0.5000\*MO2 + 0.5000\*DCB1 + 0.5000\*ORA2 | 7.51E-13e 565.00/T | 4.9962E-12 | | R308 | MACP + ACO3 ----> 0.6350\*ORA2 + 0.5000\*MO2 + 0.2690\*ACO3 + 0.5000\*CO + HCHO | 8.40E-14e 221.00/T | 1.7628E-13 | | R309 | MCP + ACO3 ----> NO2 + 0.5000\*HO2 + HCHO + 0.5000\*HKET + 0.5000\*MO2 + 0.5000\*ORA2 | 8.40E-14e 221.00/T | 1.7628E-13 | | R310 | MVKP + ACO3 ----> 0.5000\*HO2 + 0.5000\*MO2 + 1.1600\*ACO3 + 1.1600\*XO2 + HCHO + 2.3000\*ALD + 0.5000\*MGLY + 1.0830\*ORA2 | 1.68E-12e 500.00/T | 8.9872E-12 | | R311 | UALP + ACO3 ----> 0.5000\*HO2 + 0.5000\*MO2 + 0.5000\*CO + 0.0300\*HCHO + 0.2700\*ALD + 0.7000\*KET + 0.1800\*GLY + 0.1050\*MGLY + 0.5000\*ORA2 | 1.68E-12e 500.00/T | 8.9872E-12 | | R312 | BALP + ACO3 ----> MO2 + BAL1 | 7.40E-13e 765.00/T | 9.6284E-12 | | R313 | BAL1 + ACO3 ----> MO2 + BAL2 | 7.40E-13e 765.00/T | 9.6284E-12 | | R314 | ADDC + ACO3 ----> 2.0000\*HO2 + MO2 + 0.3200\*HKET + 0.6800\*GLY + 0.6800\*OP2 | 7.40E-13e 708.00/T | 7.9529E-12 | | R315 | MCTP + ACO3 ----> HO2 + MO2 + MCTO | 7.40E-13e 708.00/T | 7.9529E-12 | | R316 | ORAP + ACO3 ----> MO2 + GLY | 7.51E-13e 565.00/T | 4.9962E-12 | | R317 | OLNN + ACO3 ----> HO2 + MO2 + ONIT | 8.85E-13e 765.00/T | 1.1515E-11 | | R318 | OLND + ACO3 ----> 0.5000\*MO2 + NO2 + 0.2870\*HCHO + 1.2400\*ALD + 0.4640\*KET + 0.5000\*ORA2 | 5.37E-13e 765.00/T | 6.9871E-12 | | R319 | ADCN + ACO3 ----> HO2 + MO2 + 0.7000\*NO2 + 0.7000\*GLY + 0.7000\*OP2 + 0.3000\*ONIT | 7.40E-13e 708.00/T | 7.9529E-12 | | R320 | XO2 + ACO3 ----> MO2 | 3.40E-14e 1560.00/T | 6.3654E-12 | | R321 | RCO3 + RCO3 ----> 2.0000\*ETHP | 2.50E-12e 500.00/T | 1.3374E-11 | | R322 | MO2 + NO3 ----> HO2 + HCHO + NO2 | 1.2000E-12 | 1.2000E-12 | | R323 | ETHP + NO3 ----> HO2 + NO2 + ACD | 1.2000E-12 | 1.2000E-12 | | R324 | HC3P + NO3 ----> 0.2540\*HO2 + 0.1400\*MO2 + 0.0920\*XO2 + 0.5030\*ETHP + NO2 + 0.5190\*ACD + 0.1470\*ALD + 0.0750\*MEK + 0.0950\*ACT | 1.2000E-12 | 1.2000E-12 | | R325 | HC5P + NO3 ----> 0.4880\*HO2 + 0.0550\*MO2 + 0.2800\*ETHP + 0.4850\*XO2 + NO2 + 0.0240\*HCHO + 0.2410\*ALD + 0.0600\*KET + 0.0630\*MEK + 0.2470\*ACT + 0.0480\*ACD + 0.2750\*HKET | 1.2000E-12 | 1.2000E-12 | | R327 | ETEP + NO3 ----> HO2 + NO2 + 1.6000\*HCHO + 0.2000\*ALD | 1.2000E-12 | 1.2000E-12 | | R328 | OLTP + NO3 ----> 0.4700\*ALD + 0.7900\*HCHO + 0.7900\*HO2 + NO2 + 0.1800\*MEK + 0.0200\*ACD + 0.0900\*ACT | 1.2000E-12 | 1.2000E-12 | | R329 | OLIP + NO3 ----> 0.8600\*HO2 + 0.7200\*ALD + 0.1100\*KET + NO2 + 0.2000\*ACT + 0.8500\*ACD + 0.0400\*HKET | 1.2000E-12 | 1.2000E-12 | | ROCARO34 | BENP + NO3 ----> NO2 + HO2 + 0.0000\*BALD + GLY + 0.5000\*FURANONE + 0.2500\*DCB2 + 0.2500\*DCB3 | 2.3000E-12 | 2.3000E-12 | | ROCARO44 | TOLP + NO3 ----> NO2 + 0.9146\*HO2 + 0.0854\*BALD + 0.5488\*GLY + 0.3659\*MGLY + 0.3659\*FURANONE + 0.5488\*DCB1 | 2.3000E-12 | 2.3000E-12 | | ROCARO54 | XYLP + NO3 ----> NO2 + 0.9518\*HO2 + 0.0482\*BALD + 0.7043\*GLY + 0.2475\*MGLY + 0.3522\*FURANONE + 0.5996\*DCB2 | 2.3000E-12 | 2.3000E-12 | | ROCARO64 | EBZP + NO3 ----> NO2 + 0.9146\*HO2 + 0.0854\*BALD + 0.5488\*GLY + 0.3659\*MGLY + 0.4573\*FURANONE + 0.4573\*DCB2 | 2.3000E-12 | 2.3000E-12 | | R338 | ISOP + NO3 ----> HO2 + NO2 + 0.7500\*HCHO + 0.3180\*MACR + 0.5000\*MVK + 0.0240\*GLY + 0.0330\*HKET + 0.0310\*ALD | 1.2000E-12 | 1.2000E-12 | | R339 | APIP1 + NO3 ----> NO2 + HO2 + 0.2535\*PINAL + 0.3710\*ALD + 0.1165\*ACT + 0.1725\*LIMAL + 0.4030\*HCHO + 0.0910\*OPB + 0.1120\*KET | 2.3000E-12 | 2.3000E-12 | | R340 | LIMP1 + NO3 ----> HO2 + NO2 + LIMAL + 0.5600\*HCHO | 2.3000E-12 | 2.3000E-12 | | TRP53 | APINP1 + NO3 ----> 1.8250\*NO2 + 0.6500\*PINAL + 0.1750\*TRPN + 0.1680\*ALD + 0.0070\*KET + 0.0070\*HCHO + 0.1750\*HO2 | 2.3000E-12 | 2.3000E-12 | | TRP54 | LIMNP1 + NO3 ----> 1.4600\*NO2 + 0.4600\*LIMAL + 0.5400\*TRPN + 0.5400\*HO2 | 2.3000E-12 | 2.3000E-12 | | R341 | ACO3 + NO3 ----> MO2 + NO2 | 4.0000E-12 | 4.0000E-12 | | R342 | RCO3 + NO3 ----> ETHP + NO2 | 4.0000E-12 | 4.0000E-12 | | R343 | ACTP + NO3 ----> ACO3 + NO2 + HCHO | 1.2000E-12 | 1.2000E-12 | | R344 | MEKP + NO3 ----> 0.6700\*HO2 + NO2 + 0.3300\*HCHO + 0.6700\*DCB1 | 1.2000E-12 | 1.2000E-12 | | R345 | KETP + NO3 ----> HO2 + NO2 + DCB1 | 1.2000E-12 | 1.2000E-12 | | R346 | MACP + NO3 ----> HCHO + 0.5380\*ACO3 + CO + NO2 | 1.2000E-12 | 1.2000E-12 | | R347 | MCP + NO3 ----> NO2 + HO2 + HCHO + HKET | 1.2000E-12 | 1.2000E-12 | | R348 | MVKP + NO3 ----> 0.3000\*HO2 + 0.7000\*ACO3 + 0.7000\*XO2 + NO2 + 0.3000\*HCHO + 0.7000\*ALD + 0.3000\*MGLY | 2.5000E-12 | 2.5000E-12 | | R349 | UALP + NO3 ----> HO2 + NO2 + 0.6100\*CO + 0.0300\*HCHO + 0.2700\*ALD + 0.7000\*KET + 0.1800\*GLY + 0.2100\*MGLY | 2.5000E-12 | 2.5000E-12 | | R350 | BALP + NO3 ----> BAL1 + NO2 | 2.5000E-12 | 2.5000E-12 | | R351 | BAL1 + NO3 ----> BAL2 + NO2 | 2.5000E-12 | 2.5000E-12 | | R352 | ADDC + NO3 ----> HO2 + NO2 + 0.3200\*HKET + 0.6800\*GLY + 0.6800\*OP2 | 1.2000E-12 | 1.2000E-12 | | R353 | MCTP + NO3 ----> NO2 + MCTO | 1.2000E-12 | 1.2000E-12 | | R354 | ORAP + NO3 ----> NO2 + GLY + HO2 | 1.2000E-12 | 1.2000E-12 | | R355 | OLNN + NO3 ----> HO2 + NO2 + ONIT | 1.2000E-12 | 1.2000E-12 | | R356 | OLND + NO3 ----> 2.0000\*NO2 + 0.2870\*HCHO + 1.2400\*ALD + 0.4640\*KET | 1.2000E-12 | 1.2000E-12 | | R357 | ADCN + NO3 ----> 2.0000\*NO2 + GLY + OP2 | 1.2000E-12 | 1.2000E-12 | | R358 | OLNN + OLNN ----> HO2 + 2.0000\*ONIT | 7.00E-14e 1000.00/T | 2.0032E-12 | | R359 | OLNN + OLND ----> 0.5000\*HO2 + 0.5000\*NO2 + 0.2020\*HCHO + 0.6400\*ALD + 0.1490\*KET + 1.5000\*ONIT | 4.25E-14e 1000.00/T | 1.2162E-12 | | R360 | OLND + OLND ----> NO2 + 0.5040\*HCHO + 1.2100\*ALD + 0.2850\*KET + ONIT | 2.96E-14e 1000.00/T | 8.4708E-13 | | R361 | XO2 + NO3 ----> NO2 | 1.2000E-12 | 1.2000E-12 | | R362 | XO2 + RCO3 ----> ETHP | 2.50E-12e 500.00/T | 1.3374E-11 | | R363 | XO2 + XO2 ----> | 7.13E-17e 2950.00/T | 1.4130E-12 | | TRP41 | APIP2 + APIP1 ----> 0.9600\*HOM + 0.4800\*ROH + 0.4800\*PINAL + 0.4800\*HO + 0.4800\*HO2 + 0.0400\*ELHOM | 1.0000E-10 | 1.0000E-10 | | TRP42 | APIP2 + LIMP1 ----> 0.9600\*HOM + 0.4800\*ROH + 0.4800\*LIMAL + 0.4800\*HO + 0.4800\*HO2 + 0.0400\*ELHOM | 1.0000E-10 | 1.0000E-10 | | TRP43 | APIP2 + ISOP ----> 0.9600\*HOM + 0.4800\*ROH + 0.4800\*HCHO + 0.4800\*MVK + 0.4800\*HO + 0.4800\*HO2 + 0.0400\*ELHOM | 1.0000E-10 | 1.0000E-10 | | TRP44 | LIMP2 + APIP1 ----> 0.9600\*HOM + 0.4800\*ROH + 0.4800\*PINAL + 0.4800\*HO + 0.4800\*HO2 + 0.0400\*ELHOM | 1.0000E-10 | 1.0000E-10 | | TRP45 | LIMP2 + LIMP1 ----> 0.9600\*HOM + 0.4800\*ROH + 0.4800\*LIMAL + 0.4800\*HO + 0.4800\*HO2 + 0.0400\*ELHOM | 1.0000E-10 | 1.0000E-10 | | TRP46 | LIMP2 + ISOP ----> 0.9600\*HOM + 0.4800\*ROH + 0.4800\*HCHO + 0.4800\*MVK + 0.4800\*HO + 0.4800\*HO2 + 0.0400\*ELHOM | 1.0000E-10 | 1.0000E-10 | | TRP47 | APINP2 + APIP1 ----> 0.9600\*HOM + 0.4800\*ROH + 0.4800\*PINAL + 0.4800\*NO2 + 0.4800\*HO2 + 0.0400\*ELHOM | 1.0000E-10 | 1.0000E-10 | | TRP48 | APINP2 + LIMP1 ----> 0.9600\*HOM + 0.4800\*ROH + 0.4800\*LIMAL + 0.4800\*NO2 + 0.4800\*HO2 + 0.0400\*ELHOM | 1.0000E-10 | 1.0000E-10 | | TRP49 | APINP2 + ISOP ----> 0.9600\*HOM + 0.4800\*ROH + 0.4800\*HCHO + 0.4800\*MVK + 0.4800\*NO2 + 0.4800\*HO2 + 0.0400\*ELHOM | 1.0000E-10 | 1.0000E-10 | | TRP50 | LIMNP2 + APIP1 ----> 0.9600\*HOM + 0.4800\*ROH + 0.4800\*PINAL + 0.4800\*NO2 + 0.4800\*HO2 + 0.0400\*ELHOM | 1.0000E-10 | 1.0000E-10 | | TRP51 | LIMNP2 + LIMP1 ----> 0.9600\*HOM + 0.4800\*ROH + 0.4800\*LIMAL + 0.4800\*NO2 + 0.4800\*HO2 + 0.0400\*ELHOM | 1.0000E-10 | 1.0000E-10 | | TRP52 | LIMNP2 + ISOP ----> 0.9600\*HOM + 0.4800\*ROH + 0.4800\*HCHO + 0.4800\*MVK + 0.4800\*NO2 + 0.4800\*HO2 + 0.0400\*ELHOM | 1.0000E-10 | 1.0000E-10 | | RAM17 | IEPOX + HO ----> HO | 5.78E-11e -400.00/T | 1.5110E-11 | | R001c | VROCIOXY + HO ----> 0.8520\*ETHP + 0.1490\*ASOATJ | 6.8900E-12 | 6.8900E-12 | | R002c | SLOWROC + HO ----> ETHP + 0.0010\*ASOATJ | 6.5500E-14 | 6.5500E-14 | | T17 | ACRO + HO ----> 0.5700\*MACP + 0.4300\*MCP | 8.00E-12e 380.00/T | 2.8616E-11 | | T18 | ACRO + O3 ----> 0.8400\*CO + 0.5600\*HO2 + 0.2800\*HO + 0.7200\*HCHO + 0.6200\*GLY | 2.9000E-19 | 2.9000E-19 | | T19 | ACRO + NO3 ----> 0.6800\*HCHO + 0.3200\*MACP + 0.6800\*XO2 + 0.6800\*MGLY + 0.3200\*HNO3 + 0.6800\*NO2 | 3.4000E-15 | 3.4000E-15 | | T20 | ACRO ----> CO + 0.4770\*HO2 + 0.2500\*ETE + 0.3540\*ACO3 + 0.2040\*HO + 0.1500\*HCHO + 0.0270\*MO2 | ACRO_09 | Not Available1 | | T10 | BDE13 + HO ----> 0.6670\*BDE13P + 0.3330\*UALD + 0.3330\*HO2 | 1.48E-11e 448.00/T | 6.6502E-11 | | T10a | BDE13P + NO ----> 0.9680\*HO2 + 0.9680\*NO2 + 0.8950\*ACRO + 0.8950\*HCHO + 0.0720\*FURAN + 0.0320\*ONIT | 9.0500E-12 | 9.0500E-12 | | T10b | BDE13P + NO3 ----> HO2 + NO2 + 0.9250\*ACRO + 0.9250\*HCHO + 0.0750\*FURAN | 2.3000E-12 | 2.3000E-12 | | T10c | BDE13P + HO2 ----> OP2 | 1.6100E-11 | 1.6100E-11 | | T10d | BDE13P + MO2 ----> 0.3200\*MOH + 1.1430\*HCHO + 0.8700\*HO2 + 0.4630\*ACRO + 0.2500\*OLT + 0.2310\*MVK + 0.0370\*FURAN + 0.0190\*UALD | 2.3900E-12 | 2.3900E-12 | | T10e | BDE13P + ACO3 ----> 0.7000\*MO2 + 0.3000\*ORA2 + 0.8000\*HO2 + 0.7400\*ACRO + 0.7400\*HCHO + 0.1850\*MVK + 0.0600\*FURAN + 0.0150\*UALD | 1.3700E-11 | 1.3700E-11 | | T11 | BDE13 + O3 ----> 0.6200\*ACRO + 0.6300\*CO + 0.4200\*HO2 + 0.0800\*HO + 0.8300\*HCHO + 0.1700\*ETE | 1.34E-14e -2283.00/T | 6.3331E-18 | | T12 | BDE13 + NO3 ----> 0.9000\*OLNN + 0.1000\*OLND + 0.9000\*ACRO | 1.0000E-13 | 1.0000E-13 | | R003c | FURAN + HO ----> 0.4900\*DCB1 + 0.4900\*HO2 + 0.5100\*FURANO2 | 5.0100E-11 | 5.0100E-11 | | R004c | FURANO2 + NO ----> 0.0800\*ONIT + 0.9200\*NO2 + 0.9200\*FURANONE + 0.7500\*HO2 + 0.1700\*MO2 | 2.70E-12e 360.00/T | 9.0313E-12 | | R005c | FURANO2 + HO2 ----> 0.6000\*OP2 + 0.4000\*FURANONE + 0.4000\*HO + 0.3200\*HO2 + 0.0800\*MO2 | 3.75E-13e 980.00/T | 1.0035E-11 | | R006c | FURANONE + HO ----> 0.6500\*KET + 0.3100\*GLY + 0.6600\*HO2 + 0.3400\*MO2 + 0.4300\*CO + 0.0400\*ASOATJ | 4.4000E-11 | 4.4000E-11 | | R007c | FURAN + O3 ----> 0.0200\*HO + ALD | 3.4300E-17 | 3.4300E-17 | | R008c | FURAN + NO3 ----> NO2 + 0.8000\*DCB1 + 0.2000\*DCB3 | 8.9900E-12 | 8.9900E-12 | | R010c | PROG + HO ----> 0.6130\*HKET + 0.3870\*ALD + HO2 | 1.2000E-11 | 1.2000E-11 | | R011c | SESQ + NO3 ----> SESQNRO2 | 1.9000E-11 | 1.9000E-11 | | R012c | SESQNRO2 + HO2 ----> VROCP0OXY4 | 2.84E-13e 1300.00/T | 2.2230E-11 | | R013c | SESQNRO2 + NO ----> VROCP3OXY2 + 2.0000\*NO2 | 2.70E-12e 360.00/T | 9.0313E-12 | | R014c | SESQNRO2 + NO3 ----> VROCP3OXY2 + 2.0000\*NO2 | 2.3000E-12 | 2.3000E-12 | | R015c | SESQ + O3 ----> 0.9820\*VROCP3OXY2 + 0.0180\*VROCN2OXY2 | 1.2000E-14 | 1.2000E-14 | | R016c | SESQ + HO ----> SESQRO2 | 1.9700E-10 | 1.9700E-10 | | R017c | SESQRO2 + HO2 ----> VROCP0OXY2 | 2.84E-13e 1300.00/T | 2.2230E-11 | | R019c | SESQRO2 + NO3 ----> VROCP3OXY2 | 2.3000E-12 | 2.3000E-12 | | R020c | SESQRO2 + NO ----> 0.2470\*VROCP1OXY3 + 0.7530\*VROCP3OXY2 + 0.7530\*NO2 | 2.70E-12e 360.00/T | 9.0313E-12 | | HET_GLY | GLY ----> AGLYJ | HETERO_GLY | Not Available2 | | HET_MGLY | MGLY ----> AGLYJ | HETERO_MGLY | Not Available2 | | HET_N2O5 | N2O5 ----> 2.0000\*HNO3 | HETERO_N2O5IJ | Not Available2 | | HET_NO2 | NO2 ----> 0.5000\*HONO + 0.5000\*HNO3 | HETERO_NO2 | Not Available2 | | HET_HO2 | HO2 ----> | HETERO_HO2 | Not Available2 | | HET_NO3 | NO3 ----> HNO3 | HETERO_NO3 | Not Available2 | | HAL_Ozone | O3 ----> | SEAWATER*min( 6.701E-11e 1.074E+01P+ 3.415E-08e-6.713E-01P,
2.000E-06) | 2.0000E-064| | HET_IEPOX | IEPOX ----> IEPOXP | HETERO_IEPOX | Not Available2 | | HET_ISO3TET | IEPOXP ----> AISO3NOSJ | HETERO_ISO3NOSJ | Not Available2 | | HET_IEPOXOS | IEPOXP + ASO4J ----> AISO3OSJ | HETERO_ISO3OSJ | Not Available2 | | HET_IPX | IPX ----> AISO4J | 2.0000E+00\*HETERO_IEPOX | Not Available2 | | HET_INALD | INALD ----> AISO5J + HNO3 | 5.0000E-01\*HETERO_IEPOX | Not Available2 | | ROCALK1c | VROCP6ALK + HO ----> VROCP6ALKP | 1.5300E-11 | 1.5300E-11 | | ROCALK2c | VROCP5ALK + HO ----> VROCP5ALKP | 1.6800E-11 | 1.6800E-11 | | ROCALK3c | VROCP4ALK + HO ----> VROCP4ALKP | 2.2400E-11 | 2.2400E-11 | | ROCALK4c | VROCP3ALK + HO ----> VROCP3ALKP | 2.6700E-11 | 2.6700E-11 | | ROCALK5c | VROCP2ALK + HO ----> VROCP2ALKP | 3.0900E-11 | 3.0900E-11 | | ROCALK6c | VROCP1ALK + HO ----> VROCP1ALKP | 3.3800E-11 | 3.3800E-11 | | HC1001 | HC10 + HO ----> HC10P | 1.1000E-11 | 1.1000E-11 | | ROCALK7c | VROCP6ALKP + NO ----> 0.7200\*VROCP6ALKP2 + 0.2800\*VROCP4OXY2 + 0.7200\*NO2 | 2.70E-12e 360.00/T | 9.0313E-12 | | ROCALK8c | VROCP5ALKP + NO ----> 0.7200\*VROCP5ALKP2 + 0.2800\*VROCP3OXY2 + 0.7200\*NO2 | 2.70E-12e 360.00/T | 9.0313E-12 | | ROCALK9c | VROCP4ALKP + NO ----> 0.7200\*VROCP4ALKP2 + 0.2800\*VROCP2OXY2 + 0.7200\*NO2 | 2.70E-12e 360.00/T | 9.0313E-12 | | ROCALK10c | VROCP3ALKP + NO ----> 0.7200\*VROCP3ALKP2 + 0.2800\*VROCP1OXY1 + 0.7200\*NO2 | 2.70E-12e 360.00/T | 9.0313E-12 | | ROCALK11c | VROCP2ALKP + NO ----> 0.7200\*VROCP2ALKP2 + 0.2800\*VROCP0OXY2 + 0.7200\*NO2 | 2.70E-12e 360.00/T | 9.0313E-12 | | ROCALK12c | VROCP1ALKP + NO ----> 0.7200\*VROCP1ALKP2 + 0.2800\*VROCN1OXY1 + 0.7200\*NO2 | 2.70E-12e 360.00/T | 9.0313E-12 | | HC1002 | HC10P + NO ----> 0.7400\*HC10P2 + 0.2600\*ONIT + 0.7400\*NO2 | 2.70E-12e 360.00/T | 9.0313E-12 | | ROCALK13c | VROCP6ALKP + NO3 ----> VROCP6ALKP2 + NO2 | 2.3000E-12 | 2.3000E-12 | | ROCALK14c | VROCP5ALKP + NO3 ----> VROCP5ALKP2 + NO2 | 2.3000E-12 | 2.3000E-12 | | ROCALK15c | VROCP4ALKP + NO3 ----> VROCP4ALKP2 + NO2 | 2.3000E-12 | 2.3000E-12 | | ROCALK16c | VROCP3ALKP + NO3 ----> VROCP3ALKP2 + NO2 | 2.3000E-12 | 2.3000E-12 | | ROCALK17c | VROCP2ALKP + NO3 ----> VROCP2ALKP2 + NO2 | 2.3000E-12 | 2.3000E-12 | | ROCALK18c | VROCP1ALKP + NO3 ----> VROCP1ALKP2 + NO2 | 2.3000E-12 | 2.3000E-12 | | HC1003 | HC10P + NO3 ----> HC10P2 + NO2 | 2.3000E-12 | 2.3000E-12 | | ROCALK19c | VROCP6ALKP + HO2 ----> VROCP3OXY2 | 2.1700E-11 | 2.1700E-11 | | ROCALK20c | VROCP5ALKP + HO2 ----> VROCP2OXY2 | 2.2000E-11 | 2.2000E-11 | | ROCALK21c | VROCP4ALKP + HO2 ----> VROCP1OXY1 | 2.2500E-11 | 2.2500E-11 | | ROCALK22c | VROCP3ALKP + HO2 ----> VROCP0OXY2 | 2.2600E-11 | 2.2600E-11 | | ROCALK23c | VROCP2ALKP + HO2 ----> VROCN1OXY1 | 2.2700E-11 | 2.2700E-11 | | ROCALK24c | VROCP1ALKP + HO2 ----> VROCN2OXY2 | 2.2700E-11 | 2.2700E-11 | | HC1004 | HC10P + HO2 ----> OP2 | 2.66E-13e 1300.00/T | 2.0821E-11 | | ROCALK25c | VROCP6ALKP2 ----> HO2 + VROCP3OXY2 | 1.8800E-01 | 1.8800E-01 | | ROCALK26c | VROCP5ALKP2 ----> HO2 + VROCP2OXY2 | 1.8800E-01 | 1.8800E-01 | | ROCALK27c | VROCP4ALKP2 ----> HO2 + VROCP1OXY1 | 1.8800E-01 | 1.8800E-01 | | ROCALK28c | VROCP3ALKP2 ----> HO2 + VROCP0OXY2 | 1.8800E-01 | 1.8800E-01 | | ROCALK29c | VROCP2ALKP2 ----> HO2 + VROCN1OXY1 | 1.8800E-01 | 1.8800E-01 | | ROCALK30c | VROCP1ALKP2 ----> HO2 + VROCN2OXY2 | 1.8800E-01 | 1.8800E-01 | | HC1005 | HC10P2 ----> HO2 + VROCP4OXY2 | 1.8800E-01 | 1.8800E-01 | | ROCALK31c | VROCP6ALKP2 + NO ----> 0.1400\*VROCP2OXY2 + 0.8600\*NO2 + 0.8600\*VROCP3OXY2 + 0.8600\*HO2 | 2.70E-12e 360.00/T | 9.0313E-12 | | ROCALK32c | VROCP5ALKP2 + NO ----> 0.1400\*VROCP1OXY3 + 0.8600\*NO2 + 0.8600\*VROCP2OXY2 + 0.8600\*HO2 | 2.70E-12e 360.00/T | 9.0313E-12 | | ROCALK33c | VROCP4ALKP2 + NO ----> 0.1400\*VROCP0OXY2 + 0.8600\*NO2 + 0.8600\*VROCP1OXY1 + 0.8600\*HO2 | 2.70E-12e 360.00/T | 9.0313E-12 | | ROCALK34c | VROCP3ALKP2 + NO ----> 0.1400\*VROCN1OXY1 + 0.8600\*NO2 + 0.8600\*VROCP0OXY2 + 0.8600\*HO2 | 2.70E-12e 360.00/T | 9.0313E-12 | | ROCALK35c | VROCP2ALKP2 + NO ----> 0.1400\*VROCN2OXY2 + 0.8600\*NO2 + 0.8600\*VROCN1OXY1 + 0.8600\*HO2 | 2.70E-12e 360.00/T | 9.0313E-12 | | ROCALK36c | VROCP1ALKP2 + NO ----> VROCN2OXY2 + 0.8600\*NO2 + 0.8600\*HO2 | 2.70E-12e 360.00/T | 9.0313E-12 | | HC1006 | HC10P2 + NO ----> 0.1200\*ONIT + 0.8800\*NO2 + 0.8800\*KET + 0.8800\*HO2 | 2.70E-12e 360.00/T | 9.0313E-12 | | ROCALK37c | VROCP6ALKP2 + NO3 ----> NO2 + VROCP3OXY2 + HO2 | 2.3000E-12 | 2.3000E-12 | | ROCALK38c | VROCP5ALKP2 + NO3 ----> NO2 + VROCP2OXY2 + HO2 | 2.3000E-12 | 2.3000E-12 | | ROCALK39c | VROCP4ALKP2 + NO3 ----> NO2 + VROCP1OXY1 + HO2 | 2.3000E-12 | 2.3000E-12 | | ROCALK40c | VROCP3ALKP2 + NO3 ----> NO2 + VROCP0OXY2 + HO2 | 2.3000E-12 | 2.3000E-12 | | ROCALK41c | VROCP2ALKP2 + NO3 ----> NO2 + VROCN1OXY1 + HO2 | 2.3000E-12 | 2.3000E-12 | | ROCALK42c | VROCP1ALKP2 + NO3 ----> NO2 + VROCN2OXY2 + HO2 | 2.3000E-12 | 2.3000E-12 | | HC1007 | HC10P2 + NO3 ----> NO2 + KET + HO2 | 2.3000E-12 | 2.3000E-12 | | ROCALK43c | VROCP6ALKP2 + HO2 ----> VROCP1OXY3 | 2.1700E-11 | 2.1700E-11 | | ROCALK44c | VROCP5ALKP2 + HO2 ----> VROCP0OXY2 | 2.2000E-11 | 2.2000E-11 | | ROCALK45c | VROCP4ALKP2 + HO2 ----> VROCN1OXY1 | 2.2500E-11 | 2.2500E-11 | | ROCALK46c | VROCP3ALKP2 + HO2 ----> VROCN2OXY2 | 2.2600E-11 | 2.2600E-11 | | ROCALK47c | VROCP2ALKP2 + HO2 ----> VROCN2OXY2 | 2.2700E-11 | 2.2700E-11 | | ROCALK48c | VROCP1ALKP2 + HO2 ----> VROCN2OXY2 | 2.2700E-11 | 2.2700E-11 | | HC1008 | HC10P2 + HO2 ----> VROCP2OXY2 | 2.66E-13e 1300.00/T | 2.0821E-11 | | ROCARO01 | VROCP6ARO + HO ----> 0.8400\*VROCP6AROP + 0.1600\*HO2 + 0.1600\*VROCP4OXY2 | 1.8100E-11 | 1.8100E-11 | | ROCARO02 | VROCP6AROP + HO2 ----> 0.0595\*VROCP4OXY2 + 0.9048\*VROCP1OXY3 + 0.0357\*VROCN2OXY4 | 2.91E-13e 1300.00/T | 2.2778E-11 | | ROCARO03 | VROCP6AROP + NO ----> 0.0001\*VROCP4OXY2 + 0.0018\*VROCP2OXY2 + 0.0001\*VROCN1OXY3 + 0.9980\*NO2 + 0.9980\*HO2 + 0.0594\*BALD + 0.4693\*GLY + 0.4693\*MGLY + 0.4693\*FURANONE + 0.4693\*DCB2 | 2.70E-12e 360.00/T | 9.0313E-12 | | ROCARO04 | VROCP6AROP + NO3 ----> NO2 + 0.9405\*HO2 + 0.0595\*BALD + 0.4702\*GLY + 0.4702\*MGLY + 0.4702\*FURANONE + 0.4702\*DCB2 | 2.3000E-12 | 2.3000E-12 | | ROCARO05 | VROCP6AROP + MO2 ----> 0.6800\*HCHO + 1.3105\*HO2 + 0.3200\*MOH + 0.0595\*BALD + 0.4702\*GLY + 0.4702\*MGLY + 0.4702\*FURANONE + 0.4702\*DCB2 | 3.56E-14e 708.00/T | 3.8260E-13 | | ROCARO06 | VROCP6AROP + ACO3 ----> 0.7000\*MO2 + 0.9405\*HO2 + 0.3000\*ORA2 + 0.0595\*BALD + 0.4702\*GLY + 0.4702\*MGLY + 0.4702\*FURANONE + 0.4702\*DCB2 | 7.40E-13e 765.00/T | 9.6284E-12 | | ROCARO11 | VROCP5ARO + HO ----> 0.8400\*VROCP5AROP + 0.1600\*HO2 + 0.1600\*VROCP3OXY2 | 1.8100E-11 | 1.8100E-11 | | ROCARO12 | VROCP5AROP + HO2 ----> 0.0595\*VROCP3OXY2 + 0.9048\*VROCP0OXY2 + 0.0357\*VROCN2OXY4 | 2.91E-13e 1300.00/T | 2.2778E-11 | | ROCARO13 | VROCP5AROP + NO ----> 0.0001\*VROCP3OXY2 + 0.0018\*VROCP1OXY3 + 0.0001\*VROCN2OXY4 + 0.9980\*NO2 + 0.9980\*HO2 + 0.0594\*VROCP4OXY2 + 0.4693\*GLY + 0.4693\*MGLY + 0.4693\*FURANONE + 0.4693\*DCB2 | 2.70E-12e 360.00/T | 9.0313E-12 | | ROCARO14 | VROCP5AROP + NO3 ----> NO2 + 0.9405\*HO2 + 0.0595\*VROCP4OXY2 + 0.4702\*GLY + 0.4702\*MGLY + 0.4702\*FURANONE + 0.4702\*DCB2 | 2.3000E-12 | 2.3000E-12 | | ROCARO15 | VROCP5AROP + MO2 ----> 0.6800\*HCHO + 1.3105\*HO2 + 0.3200\*MOH + 0.0595\*VROCP4OXY2 + 0.4702\*GLY + 0.4702\*MGLY + 0.4702\*FURANONE + 0.4702\*DCB2 | 3.56E-14e 708.00/T | 3.8260E-13 | | ROCARO16 | VROCP5AROP + ACO3 ----> 0.7000\*MO2 + 0.9405\*HO2 + 0.3000\*ORA2 + 0.0595\*VROCP4OXY2 + 0.4702\*GLY + 0.4702\*MGLY + 0.4702\*FURANONE + 0.4702\*DCB2 | 7.40E-13e 765.00/T | 9.6284E-12 | | ROCARO21 | NAPH + HO ----> 0.8400\*NAPHP + 0.1600\*HO2 + 0.1600\*VROCP3OXY2 | 2.3100E-11 | 2.3100E-11 | | ROCARO22 | NAPHP + HO2 ----> 0.0595\*VROCP3OXY2 + 0.9048\*VROCP1OXY3 + 0.0357\*VROCN2OXY8 | 2.91E-13e 1300.00/T | 2.2778E-11 | | ROCARO23 | NAPHP + NO ----> 0.0595\*VROCP4OXY2 + 0.0018\*VROCP2OXY2 + 0.0001\*VROCN2OXY8 + 0.9980\*NO2 + 0.9980\*HO2 + 0.4693\*GLY + 0.4693\*MGLY + 0.4693\*FURANONE + 0.4693\*DCB2 | 2.70E-12e 360.00/T | 9.0313E-12 | | ROCARO24 | NAPHP + NO3 ----> NO2 + 0.9405\*HO2 + 0.0595\*VROCP4OXY2 + 0.4702\*GLY + 0.4702\*MGLY + 0.4702\*FURANONE + 0.4702\*DCB2 | 2.3000E-12 | 2.3000E-12 | | ROCARO25 | NAPHP + MO2 ----> 0.6800\*HCHO + 1.3105\*HO2 + 0.3200\*MOH + 0.0595\*VROCP4OXY2 + 0.4702\*GLY + 0.4702\*MGLY + 0.4702\*FURANONE + 0.4702\*DCB2 | 3.56E-14e 708.00/T | 3.8260E-13 | | ROCARO26 | NAPHP + ACO3 ----> 0.7000\*MO2 + 0.9405\*HO2 + 0.3000\*ORA2 + 0.0595\*VROCP4OXY2 + 0.4702\*GLY + 0.4702\*MGLY + 0.4702\*FURANONE + 0.4702\*DCB2 | 7.40E-13e 765.00/T | 9.6284E-12 | | ROCOXY1c | VROCN2OXY8 + HO ----> HO + 0.0854\*VROCN2OXY8 + 0.2581\*DCB1 + 0.2581\*MEK + 0.2581\*ACD + 0.2581\*ALD + 0.2581\*MO2 + 0.2581\*ETHP + 0.2581\*HC3P + 0.2581\*MEKP | 5.9000E-11 | 5.9000E-11 | | ROCOXY2c | VROCN2OXY4 + HO ----> HO + 0.4640\*VROCN2OXY8 + 0.1977\*VROCN2OXY4 + 0.0121\*VROCN1OXY6 + 0.0152\*VROCN1OXY3 + 0.0624\*VROCP0OXY4 + 0.0388\*VROCP1OXY3 + 0.0491\*VROCP2OXY2 + 0.0398\*VROCP3OXY2 + 0.0183\*VROCP4OXY2 + 0.0308\*OP3 + 0.0040\*OP2 + 0.0794\*DCB1 + 0.0794\*MEK + 0.0794\*KET + 0.0794\*ACD + 0.0794\*ALD + 0.0794\*MO2 + 0.0794\*ETHP + 0.0794\*HC3P + 0.0794\*MEKP + 0.0794\*HC5P + 0.0794\*KETP | 6.0700E-11 | 6.0700E-11 | | ROCOXY3c | VROCN2OXY2 + HO ----> HO + 0.1041\*VROCN2OXY8 + 0.5638\*VROCN2OXY4 + 0.2141\*VROCN2OXY2 + 0.0153\*VROCN1OXY6 + 0.0298\*VROCN1OXY3 + 0.0096\*VROCN1OXY1 + 0.0189\*VROCP0OXY4 + 0.0456\*VROCP0OXY2 + 0.0314\*VROCP1OXY3 + 0.0199\*VROCP1OXY1 + 0.0459\*VROCP2OXY2 + 0.0452\*VROCP3OXY2 + 0.0455\*VROCP4OXY2 + 0.0325\*VROCP5OXY1 + 0.0369\*VROCP6OXY1 + 0.0026\*OP3 + 0.0390\*DCB1 + 0.0390\*HKET + 0.0390\*MEK + 0.0390\*ACD + 0.0390\*ALD + 0.0390\*MO2 + 0.0390\*ETHP + 0.0390\*HC3P + 0.0390\*MEKP + 0.0925\*HC5P | 5.5400E-11 | 5.5400E-11 | | ROCOXY4c | VROCN1OXY6 + HO ----> HO + 0.2036\*VROCN2OXY8 + 0.0071\*VROCN2OXY4 + 0.1840\*DCB1 + 0.1840\*MEK + 0.1840\*KET + 0.1840\*ACD + 0.1840\*ALD + 0.1840\*MO2 + 0.1840\*ETHP + 0.1840\*HC3P + 0.1840\*MEKP + 0.1840\*HC5P | 5.6300E-11 | 5.6300E-11 | | ROCOXY5c | VROCN1OXY3 + HO ----> HO + 0.2792\*VROCN2OXY8 + 0.4025\*VROCN2OXY4 + 0.0088\*VROCN2OXY2 + 0.0319\*VROCN1OXY6 + 0.0076\*VROCN1OXY3 + 0.0194\*VROCP0OXY4 + 0.0104\*VROCP0OXY2 + 0.0510\*VROCP1OXY3 + 0.0075\*VROCP1OXY1 + 0.0512\*VROCP2OXY2 + 0.0462\*VROCP3OXY2 + 0.0512\*VROCP4OXY2 + 0.0138\*VROCP5OXY1 + 0.0135\*OP2 + 0.0646\*DCB1 + 0.0646\*HKET + 0.0646\*MEK + 0.0646\*ACD + 0.0646\*ALD + 0.0646\*MO2 + 0.0646\*ETHP + 0.0646\*HC3P + 0.0646\*MEKP + 0.1753\*HC5P | 5.4600E-11 | 5.4600E-11 | | ROCOXY6c | VROCN1OXY1 + HO ----> HO + 0.0074\*VROCN2OXY8 + 0.1190\*VROCN2OXY4 + 0.7261\*VROCN2OXY2 + 0.0122\*VROCN1OXY6 + 0.0305\*VROCN1OXY3 + 0.0070\*VROCN1OXY1 + 0.0291\*VROCP0OXY4 + 0.0454\*VROCP0OXY2 + 0.0234\*VROCP1OXY3 + 0.0352\*VROCP1OXY1 + 0.0624\*VROCP2OXY2 + 0.0518\*VROCP3OXY2 + 0.0509\*VROCP4OXY2 + 0.0347\*VROCP5OXY1 + 0.0748\*VROCP6OXY1 + 0.0163\*OP3 + 0.0062\*OP2 + 0.0244\*DCB1 + 0.0244\*HKET + 0.0244\*MEK + 0.0244\*ACD + 0.0244\*ALD + 0.0244\*MO2 + 0.0244\*ETHP + 0.0244\*HC3P + 0.0244\*MEKP + 0.0537\*HC5P | 4.5000E-11 | 4.5000E-11 | | ROCOXY7c | VROCP0OXY4 + HO ----> HO + 0.2822\*VROCN2OXY8 + 0.1165\*VROCN2OXY4 + 0.0320\*VROCN1OXY6 + 0.0183\*VROCN1OXY3 + 0.0011\*VROCP0OXY4 + 0.0660\*VROCP2OXY2 + 0.0535\*VROCP3OXY2 + 0.0246\*VROCP4OXY2 + 0.0054\*OP2 + 0.1068\*DCB1 + 0.1068\*MEK + 0.1068\*KET + 0.1068\*ACD + 0.1068\*ALD + 0.1068\*MO2 + 0.1068\*ETHP + 0.1068\*HC3P + 0.1068\*MEKP + 0.1068\*HC5P + 0.1068\*KETP | 5.1700E-11 | 5.1700E-11 | | ROCOXY8c | VROCP0OXY2 + HO ----> HO + 0.0659\*VROCN2OXY8 + 0.4579\*VROCN2OXY4 + 0.1156\*VROCN2OXY2 + 0.0325\*VROCN1OXY6 + 0.0657\*VROCN1OXY3 + 0.0046\*VROCN1OXY1 + 0.0307\*VROCP0OXY4 + 0.0024\*VROCP0OXY2 + 0.0395\*VROCP1OXY3 + 0.0215\*VROCP1OXY1 + 0.0539\*VROCP2OXY2 + 0.0516\*VROCP3OXY2 + 0.0519\*VROCP4OXY2 + 0.0371\*VROCP5OXY1 + 0.0421\*VROCP6OXY1 + 0.0105\*OP3 + 0.0445\*DCB1 + 0.0445\*HKET + 0.0445\*MEK + 0.0445\*ACD + 0.0445\*ALD + 0.0445\*MO2 + 0.0445\*ETHP + 0.0445\*HC3P + 0.0445\*MEKP + 0.1055\*HC5P | 4.7300E-11 | 4.7300E-11 | | ROCOXY9c | VROCP1OXY3 + HO ----> HO + 0.1778\*VROCN2OXY8 + 0.1924\*VROCN2OXY4 + 0.0004\*VROCN2OXY2 + 0.0740\*VROCN1OXY6 + 0.0452\*VROCN1OXY3 + 0.0631\*VROCP0OXY4 + 0.0007\*VROCP0OXY2 + 0.0006\*VROCP1OXY3 + 0.0227\*VROCP2OXY2 + 0.0585\*VROCP3OXY2 + 0.0649\*VROCP4OXY2 + 0.0174\*VROCP5OXY1 + 0.0154\*OP3 + 0.0170\*OP2 + 0.0818\*DCB1 + 0.0818\*HKET + 0.0818\*MEK + 0.0818\*ACD + 0.0818\*ALD + 0.0818\*MO2 + 0.0818\*ETHP + 0.0818\*HC3P + 0.0818\*MEKP + 0.2220\*HC5P | 4.6000E-11 | 4.6000E-11 | | ROCOXY10c | VROCP1OXY1 + HO ----> HO + 0.0023\*VROCN2OXY8 + 0.1340\*VROCN2OXY4 + 0.3349\*VROCN2OXY2 + 0.0080\*VROCN1OXY6 + 0.1193\*VROCN1OXY3 + 0.0758\*VROCN1OXY1 + 0.0292\*VROCP0OXY4 + 0.0766\*VROCP0OXY2 + 0.0277\*VROCP1OXY3 + 0.0118\*VROCP1OXY1 + 0.0651\*VROCP2OXY2 + 0.0709\*VROCP3OXY2 + 0.0668\*VROCP4OXY2 + 0.0423\*VROCP5OXY1 + 0.0911\*VROCP6OXY1 + 0.0066\*OP3 + 0.0025\*OP2 + 0.0297\*DCB1 + 0.0297\*HKET + 0.0297\*MEK + 0.0297\*ACD + 0.0297\*ALD + 0.0297\*MO2 + 0.0297\*ETHP + 0.0297\*HC3P + 0.0297\*MEKP + 0.0654\*HC5P | 3.8000E-11 | 3.8000E-11 | | ROCOXY11c | VROCP2OXY2 + HO ----> HO + 0.0445\*VROCN2OXY8 + 0.1726\*VROCN2OXY4 + 0.0104\*VROCN2OXY2 + 0.0513\*VROCN1OXY6 + 0.1118\*VROCN1OXY3 + 0.0013\*VROCN1OXY1 + 0.1337\*VROCP0OXY4 + 0.0403\*VROCP0OXY2 + 0.0511\*VROCP1OXY3 + 0.0068\*VROCP1OXY1 + 0.0236\*VROCP2OXY2 + 0.0293\*VROCP3OXY2 + 0.0733\*VROCP4OXY2 + 0.0523\*VROCP5OXY1 + 0.0595\*VROCP6OXY1 + 0.0041\*OP3 + 0.0023\*OP2 + 0.0628\*DCB1 + 0.0628\*HKET + 0.0628\*MEK + 0.0628\*ACD + 0.0628\*ALD + 0.0628\*MO2 + 0.0628\*ETHP + 0.0628\*HC3P + 0.0628\*MEKP + 0.1489\*HC5P | 3.9300E-11 | 3.9300E-11 | | ROCOXY12c | VROCP3OXY2 + HO ----> HO + 0.0317\*VROCN2OXY8 + 0.0765\*VROCN2OXY4 + 0.0009\*VROCN2OXY2 + 0.0526\*VROCN1OXY6 + 0.0489\*VROCN1OXY3 + 0.1550\*VROCP0OXY4 + 0.0155\*VROCP0OXY2 + 0.1051\*VROCP1OXY3 + 0.0013\*VROCP1OXY1 + 0.0535\*VROCP2OXY2 + 0.0086\*VROCP3OXY2 + 0.0426\*VROCP4OXY2 + 0.0582\*VROCP5OXY1 + 0.0661\*VROCP6OXY1 + 0.0506\*OP3 + 0.0114\*OP2 + 0.0698\*DCB1 + 0.0698\*HKET + 0.0698\*MEK + 0.0698\*ACD + 0.0698\*ALD + 0.0698\*MO2 + 0.0698\*ETHP + 0.0698\*HC3P + 0.0698\*MEKP + 0.1656\*HC5P | 3.5200E-11 | 3.5200E-11 | | ROCOXY13c | VROCP4OXY2 + HO ----> HO + 0.0117\*VROCN2OXY8 + 0.0167\*VROCN2OXY4 + 0.0480\*VROCN1OXY6 + 0.0246\*VROCN1OXY3 + 0.0881\*VROCP0OXY4 + 0.0916\*VROCP1OXY3 + 0.0073\*VROCP1OXY1 + 0.0972\*VROCP2OXY2 + 0.0456\*VROCP3OXY2 + 0.0024\*VROCP4OXY2 + 0.0479\*VROCP5OXY1 + 0.0745\*VROCP6OXY1 + 0.0607\*OP3 + 0.0155\*OP2 + 0.0786\*DCB1 + 0.0786\*HKET + 0.0786\*MEK + 0.0786\*ACD + 0.0786\*ALD + 0.0786\*MO2 + 0.0786\*ETHP + 0.0786\*HC3P + 0.0786\*MEKP + 0.1730\*HC5P | 3.1200E-11 | 3.1200E-11 | | ROCOXY14c | VROCP5OXY1 + HO ----> HO + 0.0103\*VROCN2OXY4 + 0.0006\*VROCN2OXY2 + 0.0090\*VROCN1OXY6 + 0.0146\*VROCN1OXY3 + 0.0702\*VROCP0OXY4 + 0.0153\*VROCP0OXY2 + 0.1038\*VROCP1OXY3 + 0.0031\*VROCP1OXY1 + 0.1650\*VROCP2OXY2 + 0.1566\*VROCP3OXY2 + 0.0724\*VROCP4OXY2 + 0.0062\*VROCP5OXY1 + 0.1398\*VROCP6OXY1 + 0.0216\*OP3 + 0.0384\*OP2 + 0.0526\*DCB1 + 0.0526\*HKET + 0.0526\*MEK + 0.0526\*ACD + 0.0526\*ALD + 0.0526\*MO2 + 0.0526\*ETHP + 0.0526\*HC3P + 0.0526\*MEKP + 0.1280\*HC5P | 2.4000E-11 | 2.4000E-11 | | ROCOXY15c | VROCP6OXY1 + HO ----> HO + 0.0061\*VROCN1OXY6 + 0.0049\*VROCN1OXY3 + 0.0224\*VROCP0OXY4 + 0.0503\*VROCP1OXY3 + 0.0022\*VROCP1OXY1 + 0.0879\*VROCP2OXY2 + 0.1384\*VROCP3OXY2 + 0.1463\*VROCP4OXY2 + 0.0432\*VROCP5OXY1 + 0.0957\*VROCP6OXY1 + 0.0316\*OP3 + 0.0585\*OP2 + 0.0571\*DCB1 + 0.0571\*HKET + 0.0571\*MEK + 0.0571\*ACD + 0.0571\*ALD + 0.0571\*MO2 + 0.0571\*ETHP + 0.0571\*HC3P + 0.0571\*MEKP + 0.1544\*HC5P | 2.0500E-11 | 2.0500E-11 | | ROCOXY16c | OP3 + HO ----> HO + 0.1188\*VROCN2OXY8 + 0.0008\*VROCN2OXY4 + 0.0390\*VROCN1OXY6 + 0.0114\*VROCP0OXY4 + 0.2266\*DCB1 + 0.2266\*MEK + 0.2266\*ACD + 0.2266\*ALD + 0.2266\*MO2 + 0.2266\*ETHP + 0.2266\*HC3P + 0.2266\*MEKP | 4.6900E-11 | 4.6900E-11 | | R364 | ECH4 + HO ----> MO2 | 2.45E-12e -1775.00/T | 6.3628E-15 | | TRP58 | ATRPNJ ----> AHOMJ + HNO3 | 9.2600E-05 | 9.2600E-05 | | TRP59 | AHONITJ ----> AHOMJ + HNO3 | 9.2600E-05 | 9.2600E-05 | | ROCARO71 | STY + HO ----> STYP | 5.8000E-11 | 5.8000E-11 | | ROCARO72 | STYP + HO2 ----> VROCP3OXY2 | 2.91E-12e 1300.00/T | 2.2778E-10 | | ROCARO73 | STYP + NO ----> NO2 + HO2 + HCHO + BALD | 2.70E-12e 360.00/T | 9.0313E-12 | | ROCARO74 | STYP + NO3 ----> NO2 + HO2 + HCHO + BALD | 2.3000E-12 | 2.3000E-12 | | ROCARO75 | STYP + MO2 ----> 1.3700\*HO2 + 1.6800\*HCHO + BALD + 0.3200\*MOH | 2.5000E-13 | 2.5000E-13 | | ROCARO76 | STYP + ACO3 ----> HO2 + HCHO + BALD + 0.7000\*MO2 + 0.3000\*ORA2 | 2.5000E-13 | 2.5000E-13 | 0Units molecules/(sec*cm3); Value at 298.15 K; 2.4615E+19 molecules/cm3; 1.00 Atm. 1Photolysis Reaction;depends on radiation and predicted concentrations 2Heterogeneous Reaction; depends on predicted concentrations 4Set to zero if sun is below the horizon. SEAWATER equals fraction of ocean plus surf zones not covered by seaice. P equals air pressure in atmospheres. 8Rate constant scaled as reverse equilibrium to constant for listed reaction ================================================ FILE: CCTM/src/MECHS/mechanism_information/racm2_ae6_aq/AE6_species_table.md ================================================ **The AE namelist for racm2_ae6_aq has the following aerosol species.** | **Model Species** | **Name** | **Molecular Weight** | **Explicit or Lumped** | |-----------|-----------------------------------------------------|--------------------| ----------------------| | AAL | Aluminum | 27 | E | | AALK1 | Semivolaitle SOA Product from Alkane VOCs | 225.0 | L | | AALK2 | Semivolatile SOA Product from Alkane VOCs | 205.1 | L | | ABNZ1 | Semivolatile High-NOx SOA Product from Benzene | 161.0 | L | | ABNZ2 | Semivolatile High-NOx SOA Product from Benzene | 134.0 | L | | ABNZ3 | Low-Volatility Low-NOx SOA Product from Benzene | 180.0 | L | | ACA | Calcium | 40.1 | E | | ACL | Chloride | 35.5 | E | | ACORS | Anthropogenic Coarse-mode particle mass | 100.0 | L | | AEC | Elemental Carbon | 12 | E | | AFE | Iron | 55.8 | E | | AH2O | Water | 18 | E | | AH3OP | Hydronium Ion | 19 | E | | AISO1 | Semivolatile SOA Product from Isoprene | 132.0 | L | | AISO2 | High-Volatility SOA Product from Isoprene | 133.0 | L | | AISO3 | Acid-Catalyzed Isoprene SOA compounds | 168.2 | L | | AIVPO1 | Intermediate Volatility Primary Organic Compounds | 266 | L | | AK | Potassium | 39.1 | E | | ALVOO1 | Low Volatility Oxidized Combustion Organic Compounds | 136 | L | | ALVOO2 | Low Volatility Oxidized Combustion Organic Compounds | 136 | L | | ALVPO1 | Low Volatility Primary Organic Compounds | 218 | L | | AMG | Magnesium | 24.3 | E | | AMN | Manganese | 54.9 | E | | ANA | Sodium | 23 | E | | ANH4 | Ammonium | 18 | E | | ANO3 | Nitrate | 62 | E | | AOLGA | Oligomer products of anthropogenic SOA compounds | 206.0 | L | | AOLGB | Oligomer products of biogenic SOA compounds | 248.0 | L | | AORGC | Glyoxal and Methylglyoxal SOA | 177.0 | L | | AOTHR | Other Particulate Mass | 200 | L | | APAH1 | Semivolatile High-NOx SOA Product from PAHs | 195.6 | L | | APAH2 | Semivolatile High-NOx SOA Product from PAHs | 178.7 | L | | APAH3 | Low-Volatility Low-NOx SOA Product from PAHs | 212.2 | L | | APCSO | Potential Combustion SOA | 170 | L | | APNCOM | Non-Carbon Organic Matter associated with APOC | 220.0 | L | | APOC | Primary Organic Carbon | 220.0 | L | | ASEACAT | Sea spray cations | 23.75 | L | | ASI | Silicon | 28.1 | E | | ASO4 | Sulfate | 96 | E | | ASOIL | Lumped crustal species | 100.0 | L | | ASQT | Semivolatile SOA Product from Sesquiterpenes | 273.0 | L | | ASVOO1 | Semivolatile Oxidized Combustion Organic Compounds | 135 | L | | ASVOO2 | Semivolatile Oxidized Combustion Organic Compounds | 135 | L | | ASVOO3 | Semivolatile Oxidized Combustion Organic Compounds | 134 | L | | ASVPO1 | Semivolatile Primary Organic Compounds | 230 | L | | ASVPO2 | Semivolatile Primary Organic Compounds | 241 | L | | ASVPO3 | Semivolatile Primary Organic Compounds | 253 | L | | ATI | Titanium | 47.9 | E | | ATOL1 | Semivolatile High-NOx SOA Product from Toluene | 163.0 | L | | ATOL2 | Semivolaitle High-NOx SOA Product from Toluene | 175.0 | L | | ATOL3 | Low-Volatility Low-NOx SOA Product from Toluene | 194.0 | L | | ATRP1 | Semivolatile SOA Product from Monoterpenes | 177.0 | L | | ATRP2 | High-Volatility SOA Product from Monoterpenes | 198.0 | L | | AXYL1 | Semivolatile High-NOx SOA Product from Xylene | 174.0 | L | | AXYL2 | Semivolaitle High-NOx SOA Product from Xylene | 185.0 | L | | AXYL3 | Low-Volatility Low-NOx SOA Product from Xylene | 218.0 | L | | NUMACC | Accum. Mode Number Conc | NA | NA | | NUMAIT | Aitken Mode Number Conc | NA | NA | | NUMCOR | Coarse Mode Number Conc | NA | NA | | SRFACC | Accum. Mode Surface Area Conc | NA | NA | | SRFAIT | Aitken Mode Surface Area Conc | NA | NA | | SRFCOR | Coarse Mode Surface Area Conc | NA | NA | Note that for each aerosol mass species, a letter will be appended to the names below in order to designate the size, or mode, of the aerosol being represented: I = Aitken mode, J = Accumulation mode, K = Coarse mode. ================================================ FILE: CCTM/src/MECHS/mechanism_information/racm2_ae6_aq/NR_species_table.md ================================================ **The NR namelist for racm2_ae6_aq has the following gas phase species.** | **Model Species** | **Name** | **Molecular Weight** | **Explicit or Lumped** | | ----------------- | ---------------------------------------------------- | -------------------- | ---------------------- | | LVPCSOG | surrogate SOA precursor gas for combustion/anthropogenic sources | 170.0 | L | | NH3 | ammonia | 17.0 | E | | SVALK1 | vapors of secondary aerosol material from alkane VOCs | 225.0 | L | | SVALK2 | vapors of secondary aerosol material from alkane VOCs | 205.1 | L | | SVXYL1 | vapors of secondary aerosol material from xylenes | 174.0 | L | | SVXYL2 | vapors of secondary aerosol material from xylenes | 185.0 | L | | SVTOL1 | vapors of secondary aerosol material from toluene | 163.0 | L | | SVTOL2 | vapors of secondary aerosol material from toluene | 175.0 | L | | SVBNZ1 | vapors of secondary aerosol material from benzene | 161.0 | L | | SVBNZ2 | vapors of secondary aerosol material from benzene | 134.0 | L | | SVPAH1 | vapors of secondary aerosol material from PAHs | 195.6 | L | | SVPAH2 | vapors of secondary aerosol material from PAHs | 178.7 | L | | SVTRP1 | vapors of secondary aerosol material from monoterpenes | 177.0 | L | | SVTRP2 | vapors of secondary aerosol material from monoterpenes | 198.0 | L | | SVISO1 | vapors of secondary aerosol material from isoprene | 132.0 | L | | SVISO2 | vapors of secondary aerosol material from isoprene | 133.0 | L | | SVSQT | vapors of secondary aerosol material from sesquiterpenes | 273.0 | L | ================================================ FILE: CCTM/src/MECHS/mechanism_information/racm2_ae6_aq/mech_racm2_ae6_aq.md ================================================ Information is based on the mech.def file. * Fall-off or pressure dependent reaction rate constants (M equals air number density): * For rate constants with ko, ki, n, F values: k = [ koM/(1+koM/ki)]FG, where G=(1+(log10(koM/ki)/n)2))-1 * For rate constants with k1, k2: k = k1 + k2M * For rate constants with k0, k2, k3: k = k0 + k3M/(1+k3M/k2) * For rate constants with k1, k2, k3: k = k1 + k2M + k3 * For rate constants with the form A<_Reference_>, k equals A times a reference that represents photolysis rate, a heteorogeneous rate constant, rate constant for the given reaction or an operator. A equals one if not given. * In the mechanism definition file, the rate is formatted as * A~<_HETEOROGENEOUS_> * A*K<_REACTION_> * A/<_PHOTOLYSIS_> * A?<_OPERATOR_> |Label|Reaction |Rate Constant Formula| Value
molecules/(sec*cm3)| |:---|:-------------------|:--------------------|:----:| | R001 | O3 ----> O3P | O3O3P_NASA06 | Not Available1 | | R002 | O3 ----> O1D | O3O1D_NASA06 | Not Available1 | | R003 | H2O2 ----> 2.000\*HO | H2O2_RACM2 | Not Available1 | | R004 | NO2 ----> O3P + NO | NO2_RACM2 | Not Available1 | | R005 | NO3 ----> NO | NO3NO_RACM2 | Not Available1 | | R006 | NO3 ----> O3P + NO2 | NO3NO2_RACM2 | Not Available1 | | R007 | HONO ----> HO + NO | HONO_RACM2 | Not Available1 | | R008 | HNO3 ----> HO + NO2 | HNO3_RACM2 | Not Available1 | | R009 | HNO4 ----> 0.200\*HO + 0.800\*HO2 + 0.800\*NO2 + 0.200\*NO3 | HNO4_RACM2 | Not Available1 | | R010 | HCHO ----> CO | HCHO_MOL_JPL19 | Not Available1 | | R011 | HCHO ----> 2.000\*HO2 + CO | HCHO_RAD_JPL19 | Not Available1 | | R012 | ACD ----> HO2 + MO2 + CO | CH3CHO_RACM2 | Not Available1 | | R013 | ALD ----> HO2 + ETHP + CO | ALD_RACM2 | Not Available1 | | R014 | ACT ----> MO2 + ACO3 | CH3COCH3_RACM2 | Not Available1 | | R015 | UALD ----> 1.220\*HO2 + 0.784\*ACO3 + 1.220\*CO + 0.350\*HCHO + 0.434\*ALD + 0.216\*KET | UALD_RACM2 | Not Available1 | | R016 | MEK ----> 0.500\*MO2 + 0.500\*ETHP + ACO3 | MEK_RACM2 | Not Available1 | | R017 | KET ----> ETHP + ACO3 | KET_RACM2 | Not Available1 | | R018 | HKET ----> HO2 + ACO3 + HCHO | HKET_RACM2 | Not Available1 | | R019 | MACR ----> 0.340\*HO + 0.660\*HO2 + 0.670\*ACO3 + 0.330\*MACP + 0.340\*XO2 + 0.670\*CO + 0.670\*HCHO | MACR_RACM2 | Not Available1 | | R020 | MVK ----> 0.300\*MO2 + 0.300\*MACP + 0.700\*CO + 0.700\*UALD | MVK_RACM2 | Not Available1 | | R021 | GLY ----> 2.000\*CO | GLYH2_RACM2 | Not Available1 | | R022 | GLY ----> HCHO + CO | GLYF_RACM2 | Not Available1 | | R023 | GLY ----> 2.000\*HO2 + 2.000\*CO | GLYHX_RACM2 | Not Available1 | | R024 | MGLY ----> HO2 + ACO3 + CO | MGLY_RACM2 | Not Available1 | | R025 | DCB1 ----> 1.500\*HO2 + 0.250\*ACO3 + 0.200\*XO2 + CO + 0.500\*GLY + 0.500\*MGLY | MGLY_RACM2 | Not Available1 | | R026 | DCB2 ----> 1.500\*HO2 + 0.250\*ACO3 + 0.200\*XO2 + CO + 0.500\*GLY + 0.500\*MGLY | MGLY_RACM2 | Not Available1 | | R027 | BALD ----> CHO + HO2 + CO | BALD_RACM2 | Not Available1 | | R028 | OP1 ----> HO + HO2 + HCHO | OP1_RACM2 | Not Available1 | | R029 | OP2 ----> HO + HO2 + ALD | OP1_RACM2 | Not Available1 | | R030 | PAA ----> HO + MO2 | PAA_RACM2 | Not Available1 | | R031 | ONIT ----> HO2 + NO2 + 0.200\*ALD + 0.800\*KET | ONIT_RACM2 | Not Available1 | | R032 | PAN ----> ACO3 + NO2 | PAN1_RACM2 | Not Available1 | | R033 | PAN ----> MO2 + NO3 | PAN2_RACM2 | Not Available1 | | R034 | O3 + HO ----> HO2 | 1.70E-12e -940.00/T | 7.2647E-14 | | R035 | O3 + HO2 ----> HO | 1.00E-14e -490.00/T | 1.9331E-15 | | R036 | O3 + NO ----> NO2 | 1.40E-12e -1310.00/T | 1.7296E-14 | | R037 | O3 + NO2 ----> NO3 | 1.40E-13e -2470.00/T | 3.5339E-17 | | R038 | O3P + O2 + M ----> O3 | 5.74E-34(T/300) -2.60 | 5.8331E-34 | | R039 | O3P + O3 ----> | 8.00E-12e -2060.00/T | 7.9879E-15 | | R040 | O1D + O2 ----> O3P | 3.30E-11e 67.00/T | 4.1315E-11 | | R041 | O1D + N2 ----> O3P | 2.00E-11e 130.00/T | 3.0931E-11 | | R042 | O1D + H2O ----> 2.000\*HO | 2.1400E-10 | 2.1400E-10 | | R043 | HO + H2 ----> HO2 | 7.70E-12e -2100.00/T | 6.7230E-15 | | R044 | HO + HO2 ----> | 4.80E-11e 250.00/T | 1.1102E-10 | | R045 | HO2 + HO2 ----> H2O2 | k0= 2.20E-13e 600.0/T
k1= 1.90E-33e 980.0/T | 2.8975E-12 | | R046 | HO2 + HO2 + H2O ----> H2O2 | k0= 3.08E-34e 2800.0/T
k1= 2.59E-54e 3180.0/T | 6.4234E-30 | | R047 | H2O2 + HO ----> HO2 | 2.90E-12e -160.00/T | 1.6957E-12 | | R048 | NO + O3P ----> NO2 | ko= 9.00E-32e 0.0/T(T/300) -1.50
ki = 3.00E-11e 0.0/T(T/300) 0.00
n= 1.00;F= 0.60 | 1.6618E-12 | | R049 | NO + HO ----> HONO | ko= 7.00E-31e 0.0/T(T/300) -2.60
ki = 3.60E-11e 0.0/T(T/300) -0.10
n= 1.00;F= 0.60 | 7.3998E-12 | | R050 | NO + HO2 ----> NO2 + HO | 3.45E-12e 270.00/T | 8.5332E-12 | | R051 | NO + HO2 ----> HNO3 | k0= 6.0950E-14e 270.0/T(T/300) -1.00
k2= 6.8570E-34e 270.0/T(T/300) 1.00
k3= -5.9680E-14e 270.00/T | 4.5566E-14 | | R052 | NO + NO + O2 ----> 2.000\*NO2 | 3.30E-39e 530.00/T | 1.9522E-38 | | R053 | HONO + HO ----> NO2 | 2.50E-12e 260.00/T | 5.9795E-12 | | R054 | NO2 + O3P ----> NO | 5.50E-12e 188.00/T | 1.0333E-11 | | R055 | NO2 + O3P ----> NO3 | ko= 2.50E-31e 0.0/T(T/300) -1.80
ki = 2.20E-11e 0.0/T(T/300) -0.70
n= 1.00;F= 0.60 | 3.2805E-12 | | R056 | NO2 + HO ----> HNO3 | ko= 1.51E-30e 0.0/T(T/300) -3.00
ki = 2.58E-11e 0.0/T(T/300) 0.00
n= 1.00;F= 0.60 | 9.3347E-12 | | R057 | HNO3 + HO ----> NO3 | k0= 2.40E-14e 460.0/T
k1= 2.70E-17e 2199.0/T
k3= 6.50E-34e 1335.0/T | 1.5409E-13 | | R058 | NO3 + HO ----> HO2 + NO2 | 2.0000E-11 | 2.0000E-11 | | R059 | NO3 + HO2 ----> 0.700\*HO + 0.700\*NO2 + 0.300\*HNO3 | 4.0000E-12 | 4.0000E-12 | | R060 | NO3 + NO ----> 2.000\*NO2 | 1.80E-11e 110.00/T | 2.6032E-11 | | R061 | NO3 + NO2 ----> NO + NO2 | 4.50E-14e -1260.00/T | 6.5744E-16 | | R062 | NO3 + NO3 ----> 2.000\*NO2 | 8.50E-13e -2450.00/T | 2.2944E-16 | | R063 | NO3 + NO2 ----> N2O5 | ko= 2.00E-30e 0.0/T(T/300) -4.40
ki = 1.40E-12e 0.0/T(T/300) -0.70
n= 1.00;F= 0.60 | 1.1783E-12 | | R064 | N2O5 ----> NO2 + NO3 | 3.70E+26e-11000.00/T \*R063 | 4.1396E-028| | R065 | N2O5 + H2O ----> 2.000\*HNO3 | 1.0000E-22 | 1.0000E-22 | | R066 | NO2 + HO2 ----> HNO4 | ko= 2.00E-31e 0.0/T(T/300) -3.40
ki = 2.90E-12e 0.0/T(T/300) -1.10
n= 1.00;F= 0.60 | 1.1385E-12 | | R067 | HNO4 ----> HO2 + NO2 | 4.76E+26e-10900.00/T \*R066 | 7.1920E-028| | R068 | HNO4 + HO ----> NO2 | 1.30E-12e 380.00/T | 4.6501E-12 | | R069 | SO2 + HO ----> HO2 + SULF + SULRXN | ko= 3.30E-31e 0.0/T(T/300) -4.30
ki = 1.60E-12e 0.0/T(T/300) 0.00
n= 1.00;F= 0.60 | 9.5810E-13 | | R070 | CO + HO ----> HO2 | k0= 1.44E-13e 0.0/T
k1= 2.88E-33e 0.0/T | 2.1489E-13 | | R071 | HO + CH4 ----> MO2 | 1.85E-12e -1690.00/T | 6.3895E-15 | | R072 | ETH + HO ----> ETHP | 6.90E-12e -1000.00/T | 2.4111E-13 | | R073 | HC3 + HO ----> HC3P | 7.68E-12e -370.00/T | 2.2203E-12 | | R074 | HC5 + HO ----> HC5P | 1.01E-11e -245.00/T | 4.4407E-12 | | R075 | HC8 + HO ----> 0.049\*HO2 + 0.951\*HC8P + 0.025\*ALD + 0.024\*HKET | 2.82E-11e -273.00/T | 1.1287E-11 | | R076 | ETE + HO ----> ETEP | ko= 1.00E-28e 0.0/T(T/300) -4.50
ki = 8.80E-12e 0.0/T(T/300) -0.85
n= 1.00;F= 0.60 | 8.1981E-12 | | R077 | OLT + HO ----> OLTP | 5.72E-12e 500.00/T | 3.0599E-11 | | R078 | OLI + HO ----> OLIP | 1.33E-11e 500.00/T | 7.1149E-11 | | R079 | DIEN + HO ----> OLIP | 1.48E-11e 448.00/T | 6.6502E-11 | | R080 | ACE + HO ----> 0.650\*HO + 0.350\*HO2 + 0.350\*CO + 0.650\*GLY + 0.350\*ORA1 | ko= 5.50E-30e 0.0/T(T/300) 0.00
ki = 8.30E-13e 0.0/T(T/300) 2.00
n= 1.00;F= 0.60 | 7.4748E-13 | | R081 | BENZENE + HO ----> 0.648\*HO2 + 0.352\*BENP + 0.118\*EPX + 0.530\*PHEN + BENZRO2 | 2.33E-12e -193.00/T | 1.2196E-12 | | R082 | TOL + HO ----> 0.177\*HO2 + 0.763\*TR2 + 0.060\*TLP1 + 0.177\*CSL + TOLRO2 | 1.81E-12e 354.00/T | 5.9337E-12 | | R083 | XYM + HO ----> 0.177\*HO2 + 0.763\*XY2 + 0.060\*XYL1 + 0.177\*CSL + 0.980\*XYLRO2 | 2.3100E-11 | 2.3100E-11 | | R084 | XYP + HO ----> 0.177\*HO2 + 0.763\*XY2 + 0.060\*XYL1 + 0.177\*CSL + XYLRO2 | 1.4300E-11 | 1.4300E-11 | | R085 | XYO + HO ----> 0.177\*HO2 + 0.763\*XYO2 + 0.060\*XYL1 + 0.177\*CSL + XYLRO2 | 1.3600E-11 | 1.3600E-11 | | R086 | ISO + HO ----> ISOP + ISOPRXN | 2.70E-11e 390.00/T | 9.9873E-11 | | R087 | API + HO ----> APIP + TRPRXN | 1.21E-11e 440.00/T | 5.2930E-11 | | R088 | LIM + HO ----> LIMP + TRPRXN | 4.20E-11e 401.00/T | 1.6120E-10 | | R089 | HCHO + HO ----> HO2 + CO | 5.50E-12e 125.00/T | 8.3645E-12 | | R090 | ACD + HO ----> ACO3 | 4.70E-12e 345.00/T | 1.4950E-11 | | R091 | ALD + HO ----> RCO3 | 4.90E-12e 405.00/T | 1.9060E-11 | | R092 | ACT + HO ----> ACTP | 4.56E-14e -427.00/T(T/300) 3.65 | 1.0646E-14 | | R093 | MEK + HO ----> MEKP | 1.50E-12e -90.00/T | 1.1092E-12 | | R094 | KET + HO ----> KETP | 2.80E-12e 10.00/T | 2.8955E-12 | | R095 | HKET + HO ----> HO2 + MGLY | 3.0000E-12 | 3.0000E-12 | | R096 | MACR + HO ----> 0.570\*MACP + 0.430\*MCP | 8.00E-12e 380.00/T | 2.8616E-11 | | R097 | MVK + HO ----> MVKP | 2.60E-12e 610.00/T | 2.0115E-11 | | R098 | UALD + HO ----> 0.313\*ACO3 + 0.687\*UALP | 5.77E-12e 533.00/T | 3.4479E-11 | | R099 | GLY + HO ----> HO2 + 2.000\*CO | 1.1000E-11 | 1.1000E-11 | | R100 | MGLY + HO ----> ACO3 + CO | 9.26E-13e 830.00/T | 1.4984E-11 | | R101 | DCB1 + HO ----> 0.520\*HO2 + 0.330\*CO + 0.400\*ALD + 0.780\*KET + 0.100\*GLY + 0.010\*MGLY | 2.80E-11e 175.00/T | 5.0358E-11 | | R102 | DCB2 + HO ----> 0.520\*HO2 + 0.330\*CO + 0.130\*MEK + 0.100\*GLY + 0.010\*MGLY + 0.780\*OP2 | 2.80E-11e 175.00/T | 5.0358E-11 | | R103 | DCB3 + HO ----> 0.560\*HO2 + 0.210\*MACP + 0.110\*CO + 0.270\*GLY + 0.010\*MGLY + 0.790\*OP2 | 1.0000E-11 | 1.0000E-11 | | R104 | BALD + HO ----> BALP | 5.32E-12e 243.00/T | 1.2019E-11 | | R105 | PHEN + HO ----> 0.730\*HO2 + 0.200\*ADDC + 0.070\*CHO + 0.730\*MCT | 6.75E-12e 405.00/T | 2.6257E-11 | | R106 | CSL + HO ----> 0.730\*HO2 + 0.200\*ADDC + 0.070\*CHO + 0.730\*MCT | 4.65E-11e 0.00/T | 4.6500E-11 | | R107 | EPX + HO ----> HO2 + XO2 + CO + ALD | 2.80E-11e 175.00/T | 5.0358E-11 | | R108 | MCT + HO ----> MCTO | 2.05E-10e 0.00/T | 2.0500E-10 | | R109 | MOH + HO ----> HO2 + HCHO | 2.85E-12e -345.00/T | 8.9600E-13 | | R110 | EOH + HO ----> HO2 + ACD | 3.00E-12e 20.00/T | 3.2081E-12 | | R111 | ROH + HO ----> HO2 + 0.719\*ALD + 0.184\*ACD | 2.60E-12e 200.00/T | 5.0851E-12 | | R112 | ETEG + HO ----> HO2 + ALD | 1.4700E-11 | 1.4700E-11 | | R113 | OP1 + HO ----> 0.350\*HO + 0.650\*MO2 + 0.350\*HCHO | 2.90E-12e 190.00/T | 5.4848E-12 | | R114 | OP2 + HO ----> 0.010\*HO + 0.440\*HC3P + 0.070\*XO2 + 0.080\*ALD + 0.410\*KET | 3.40E-12e 190.00/T | 6.4304E-12 | | R115 | ISHP + HO ----> HO + MACR + 0.904\*IEPOX | 1.0000E-10 | 1.0000E-10 | | R116 | MAHP + HO ----> MACP | 3.0000E-11 | 3.0000E-11 | | R117 | ORA1 + HO ----> HO2 | 4.5000E-13 | 4.5000E-13 | | R118 | ORA2 + HO ----> 0.640\*MO2 + 0.360\*ORAP | 4.00E-14e 850.00/T | 6.9214E-13 | | R119 | PAA + HO ----> 0.350\*HO + 0.650\*ACO3 + 0.350\*XO2 + 0.350\*HCHO | 2.93E-12e 190.00/T | 5.5415E-12 | | R120 | PAN + HO ----> XO2 + NO3 + HCHO | 4.0000E-14 | 4.0000E-14 | | R121 | PPN + HO ----> XO2 + NO3 + HCHO | 4.0000E-14 | 4.0000E-14 | | R122 | MPAN + HO ----> NO2 + HKET | 3.2000E-11 | 3.2000E-11 | | R123 | ONIT + HO ----> HC3P + NO2 | 5.31E-12e -260.00/T | 2.2201E-12 | | R124 | NALD + HO ----> NO2 + XO2 + HKET | 5.60E-12e 270.00/T | 1.3851E-11 | | R125 | ISON + HO ----> NALD + 0.070\*HKET + 0.070\*HCHO | 1.3000E-11 | 1.3000E-11 | | R126 | ETE + O3 ----> 0.080\*HO + 0.150\*HO2 + 0.430\*CO + HCHO + 0.370\*ORA1 | 9.14E-15e -2580.00/T | 1.5953E-18 | | R127 | OLT + O3 ----> 0.220\*HO + 0.320\*HO2 + 0.080\*MO2 + 0.060\*ETHP + 0.040\*HC3P + 0.020\*HC5P + 0.068\*H2O2 + 0.430\*CO + 0.020\*ETH + 0.015\*HC3 + 0.006\*HC5 + 0.032\*BENZENE + 0.560\*HCHO + 0.010\*ACD + 0.440\*ALD + 0.030\*ACT + 0.020\*BALD + 0.060\*MEK + 0.010\*HKET + 0.030\*ORA1 + 0.060\*ORA2 | 4.33E-15e -1800.00/T | 1.0341E-17 | | R128 | OLI + O3 ----> 0.460\*HO + 0.070\*HO2 + 0.320\*MO2 + 0.070\*ETHP + 0.040\*HC3P + 0.090\*ACO3 + 0.370\*CO + 0.026\*H2O2 + 0.010\*ETH + 0.010\*HC3 + 0.090\*HCHO + 0.457\*ACD + 0.730\*ALD + 0.110\*ACT + 0.017\*KET + 0.044\*HKET + 0.017\*ORA2 | 4.40E-15e -845.00/T | 2.5858E-16 | | R129 | DIEN + O3 ----> 0.090\*O3P + 0.280\*HO + 0.300\*HO2 + 0.030\*MO2 + 0.150\*ACO3 + 0.020\*KETP + 0.130\*XO2 + 0.001\*H2O2 + 0.360\*CO + 0.350\*OLT + 0.900\*HCHO + 0.390\*MACR + 0.150\*ORA1 | 1.34E-14e -2283.00/T | 6.3331E-18 | | R130 | ISO + O3 ----> 0.250\*HO + 0.250\*HO2 + 0.080\*MO2 + 0.100\*ACO3 + 0.100\*MACP + 0.090\*H2O2 + 0.140\*CO + 0.580\*HCHO + 0.461\*MACR + 0.189\*MVK + 0.280\*ORA1 + 0.153\*OLT | 7.86E-15e -1913.00/T | 1.2850E-17 | | R131 | API + O3 ----> 0.850\*HO + 0.100\*HO2 + 0.200\*ETHP + 0.420\*KETP + 0.020\*H2O2 + 0.140\*CO + 0.650\*ALD + 0.530\*KET + TRPRXN | 5.00E-16e -530.00/T | 8.4519E-17 | | R132 | LIM + O3 ----> 0.850\*HO + 0.100\*HO2 + 0.160\*ETHP + 0.420\*KETP + 0.020\*H2O2 + 0.140\*CO + 0.460\*OLT + 0.040\*HCHO + 0.790\*MACR + 0.010\*ORA1 + 0.070\*ORA2 + TRPRXN | 2.95E-15e -783.00/T | 2.1344E-16 | | R133 | MACR + O3 ----> 0.190\*HO + 0.140\*HO2 + 0.100\*ACO3 + 0.220\*CO + 0.500\*MGLY + 0.450\*ORA1 | 1.36E-15e -2112.00/T | 1.1406E-18 | | R134 | MVK + O3 ----> 0.160\*HO + 0.110\*HO2 + 0.280\*ACO3 + 0.010\*XO2 + 0.560\*CO + 0.100\*HCHO + 0.540\*MGLY + 0.070\*ORA1 + 0.070\*ORA2 + 0.100\*ALD | 8.50E-16e -1520.00/T | 5.1921E-18 | | R135 | UALD + O3 ----> 0.100\*HO + 0.072\*HO2 + 0.008\*MO2 + 0.002\*ACO3 + 0.100\*XO2 + 0.243\*CO + 0.080\*HCHO + 0.420\*ACD + 0.028\*KET + 0.491\*GLY + 0.003\*MGLY + 0.044\*ORA1 | 1.6600E-18 | 1.6600E-18 | | R136 | DCB1 + O3 ----> 0.050\*HO + HO2 + 0.600\*RCO3 + 0.600\*XO2 + 1.500\*CO + 0.050\*HCHO + 0.050\*GLY + 0.080\*MGLY + 0.650\*OP2 | 2.0000E-16 | 2.0000E-16 | | R137 | DCB2 + O3 ----> 0.050\*HO + HO2 + 0.600\*RCO3 + 0.600\*XO2 + 1.500\*CO + 0.050\*HCHO + 0.050\*GLY + 0.080\*MGLY + 0.700\*DCB1 + 0.650\*OP2 | 2.0000E-16 | 2.0000E-16 | | R138 | DCB3 + O3 ----> 0.050\*HO + HO2 + 1.500\*CO + 0.480\*GLY + 0.700\*DCB1 + 0.250\*ORA1 + 0.250\*ORA2 + 0.110\*PAA | 9.0000E-17 | 9.0000E-17 | | R139 | EPX + O3 ----> 0.050\*HO + 1.500\*HO2 + 1.500\*CO + 0.850\*BALD + GLY | 5.0000E-16 | 5.0000E-16 | | R140 | MCTO + O3 ----> MCTP | 2.8600E-13 | 2.8600E-13 | | R141 | ETE + NO3 ----> 0.800\*OLNN + 0.200\*OLND | 4.39E-13e -2282.00/T(T/300) 2.00 | 2.0571E-16 | | R142 | OLT + NO3 ----> 0.430\*OLNN + 0.570\*OLND | 1.79E-13e -450.00/T | 3.9570E-14 | | R143 | OLI + NO3 ----> 0.110\*OLNN + 0.890\*OLND | 8.64E-13e 450.00/T | 3.9084E-12 | | R144 | DIEN + NO3 ----> 0.900\*OLNN + 0.100\*OLND + 0.900\*MACR | 1.0000E-13 | 1.0000E-13 | | R145 | ISO + NO3 ----> ISON + ISOPRXN | 3.03E-12e -446.00/T | 6.7887E-13 | | R146 | API + NO3 ----> 0.100\*OLNN + 0.900\*OLND + TRPRXN | 1.19E-12e 490.00/T | 6.1560E-12 | | R147 | LIM + NO3 ----> 0.710\*OLNN + 0.290\*OLND + TRPRXN | 1.2200E-11 | 1.2200E-11 | | R148 | HCHO + NO3 ----> HO2 + CO + HNO3 | 2.00E-12e -2440.00/T | 5.5828E-16 | | R149 | ACD + NO3 ----> ACO3 + HNO3 | 1.40E-12e -1900.00/T | 2.3907E-15 | | R150 | ALD + NO3 ----> RCO3 + HNO3 | 3.76E-12e -1900.00/T | 6.4208E-15 | | R151 | MACR + NO3 ----> 0.680\*HCHO + 0.320\*MACP + 0.680\*XO2 + 0.680\*MGLY + 0.320\*HNO3 + 0.680\*NO2 | 3.4000E-15 | 3.4000E-15 | | R152 | UALD + NO3 ----> HO2 + XO2 + 0.668\*CO + 0.332\*HCHO + 0.332\*ALD + ONIT | 5.02E-13e -1076.00/T | 1.3595E-14 | | R153 | GLY + NO3 ----> HO2 + 2.000\*CO + HNO3 | 2.90E-12e -1900.00/T | 4.9522E-15 | | R154 | MGLY + NO3 ----> ACO3 + CO + HNO3 | 3.76E-12e -1900.00/T | 6.4208E-15 | | R155 | PHEN + NO3 ----> 0.400\*CHO + 0.100\*ADDC + 0.500\*ADCN + 0.500\*HNO3 | 3.7800E-12 | 3.7800E-12 | | R156 | CSL + NO3 ----> 0.400\*CHO + 0.100\*ADDC + 0.500\*ADCN + 0.500\*HNO3 | 1.0600E-12 | 1.0600E-12 | | R157 | EPX + NO3 ----> 0.500\*HO + 1.500\*HO2 + 1.500\*CO + GLY + 0.500\*NO2 + 0.500\*HNO3 | 2.87E-13e -1000.00/T | 1.0029E-14 | | R158 | MCT + NO3 ----> MCTO + HNO3 | 2.0100E-10 | 2.0100E-10 | | R159 | MPAN + NO3 ----> MACP + NO2 | 2.20E-14e -500.00/T | 4.1125E-15 | | R160 | TR2 ----> 0.280\*HO + 0.290\*HO2 + 0.280\*TOLP + 0.150\*PER1 + 0.280\*DCB2 + 0.010\*CSL + 0.280\*EPX | 1.0000E+03 | 1.0000E+03 | | R161 | TOLP ----> 0.490\*HO + 0.010\*HO2 + 0.500\*PER1 + 0.490\*DCB2 + 0.010\*CSL | 1.0000E+03 | 1.0000E+03 | | R162 | XY2 ----> 0.158\*HO + 0.308\*HO2 + 0.250\*RCO3 + 0.308\*XYLP + 0.150\*PER2 + 0.224\*DCB2 + 0.010\*CSL + 0.840\*EPX | 1.0000E+03 | 1.0000E+03 | | R163 | XYLP ----> 0.390\*HO + 0.010\*HO2 + 0.300\*PER2 + 0.490\*DCB2 + 0.010\*CSL | 1.0000E+03 | 1.0000E+03 | | R164 | XYO2 ----> 0.158\*HO + 0.308\*HO2 + 0.250\*RCO3 + 0.150\*PER2 + 0.308\*XYOP + 0.224\*DCB2 + 0.010\*CSL + 0.840\*EPX | 1.0000E+03 | 1.0000E+03 | | R165 | XYOP ----> 0.390\*HO + 0.010\*HO2 + 0.500\*PER2 + 0.490\*DCB2 + 0.010\*CSL | 1.0000E+03 | 1.0000E+03 | | R166 | ACO3 + NO2 ----> PAN | ko= 9.70E-29e 0.0/T(T/300) -5.60
ki = 9.30E-12e 0.0/T(T/300) -1.50
n= 1.00;F= 0.60 | 8.6800E-12 | | R167 | PAN ----> ACO3 + NO2 | 1.11E+28e-14000.00/T \*R166 | 3.9034E-048| | R168 | RCO3 + NO2 ----> PPN | ko= 9.70E-29e 0.0/T(T/300) -5.60
ki = 9.30E-12e 0.0/T(T/300) -1.50
n= 1.00;F= 0.60 | 8.6800E-12 | | R169 | PPN ----> RCO3 + NO2 | 1.11E+28e-14000.00/T \*R168 | 3.9034E-048| | R170 | MACP + NO2 ----> MPAN | 2.80E-12e 181.00/T | 5.1382E-12 | | R171 | MPAN ----> MACP + NO2 | 1.60E+16e-13486.00/T | 3.6308E-04 | | R172 | MO2 + NO ----> HO2 + NO2 + HCHO | 2.80E-12e 300.00/T | 7.6586E-12 | | R173 | ETHP + NO ----> HO2 + NO2 + ACD | 2.60E-12e 365.00/T | 8.8439E-12 | | R174 | HC3P + NO ----> 0.660\*HO2 + 0.131\*MO2 + 0.048\*ETHP + 0.089\*XO2 + 0.935\*NO2 + 0.504\*ACD + 0.132\*ALD + 0.165\*ACT + 0.042\*MEK + 0.065\*ONIT | 4.0000E-12 | 4.0000E-12 | | R175 | HC5P + NO ----> 0.200\*HO2 + 0.051\*MO2 + 0.231\*ETHP + 0.235\*XO2 + 0.864\*NO2 + 0.018\*HCHO + 0.045\*ACD + 0.203\*ALD + 0.033\*MEK + 0.217\*ACT + 0.033\*KET + 0.272\*HKET + 0.136\*ONIT | 4.0000E-12 | 4.0000E-12 | | R176 | HC8P + NO ----> 0.606\*HO2 + 0.133\*ETHP + 0.416\*XO2 + 0.739\*NO2 + 0.150\*ALD + 0.642\*KET + 0.261\*ONIT | 4.0000E-12 | 4.0000E-12 | | R177 | ETEP + NO ----> HO2 + NO2 + 1.600\*HCHO + 0.200\*ALD | 9.0000E-12 | 9.0000E-12 | | R178 | OLTP + NO ----> 0.780\*HO2 + 0.970\*NO2 + 0.780\*HCHO + 0.012\*ACD + 0.440\*ALD + 0.060\*ACT + 0.130\*MEK + 0.030\*ONIT | 4.0000E-12 | 4.0000E-12 | | R179 | OLIP + NO ----> 0.830\*HO2 + 0.950\*NO2 + 0.810\*ACD + 0.680\*ALD + 0.200\*ACT + 0.090\*KET + 0.020\*HKET + 0.050\*ONIT | 4.0000E-12 | 4.0000E-12 | | R180 | BENP + NO ----> 0.918\*HO2 + 0.918\*NO2 + 0.459\*DCB2 + 0.459\*DCB3 + 0.918\*GLY + 0.082\*ONIT | 2.54E-12e 360.00/T | 8.4961E-12 | | R181 | TLP1 + NO ----> NO2 + BALD | 4.0000E-12 | 4.0000E-12 | | R182 | TOLP + NO ----> 0.950\*HO2 + 0.950\*NO2 + 0.950\*DCB2 + 0.050\*ONIT | 2.70E-12e 360.00/T | 9.0313E-12 | | R183 | PER1 + NO ----> 0.500\*HO2 + 0.950\*NO2 + 0.500\*BALD + 0.500\*MGLY + 0.500\*DCB1 + 0.050\*ONIT | 2.70E-12e 360.00/T | 9.0313E-12 | | R184 | XYL1 + NO ----> NO2 + BALD | 4.0000E-12 | 4.0000E-12 | | R185 | XYLP + NO ----> 0.950\*HO2 + 0.950\*NO2 + 0.950\*DCB3 + 0.050\*ONIT | 2.70E-12e 360.00/T | 9.0313E-12 | | R186 | PER2 + NO ----> 0.950\*HO2 + 0.950\*NO2 + 0.950\*MGLY + 0.950\*DCB1 + 1.050\*DCB3 + 0.050\*ONIT | 2.70E-12e 360.00/T | 9.0313E-12 | | R187 | XYOP + NO ----> 0.950\*HO2 + 0.950\*NO2 + 0.350\*GLY + 0.600\*MGLY + 0.700\*DCB1 + 0.073\*DCB2 + 0.177\*DCB3 + 0.050\*ONIT | 2.70E-12e 360.00/T | 9.0313E-12 | | R188 | ISOP + NO ----> 0.880\*HO2 + 0.880\*NO2 + 0.200\*HCHO + 0.280\*MACR + 0.440\*MVK + 0.120\*ISON + 0.021\*GLY + 0.029\*HKET + 0.027\*ALD | 2.43E-12e 360.00/T | 8.1282E-12 | | R189 | APIP + NO ----> 0.820\*HO2 + 0.820\*NO2 + 0.230\*HCHO + 0.430\*ALD + 0.110\*ACT + 0.440\*KET + 0.070\*ORA1 + 0.180\*ONIT | 4.0000E-12 | 4.0000E-12 | | R190 | LIMP + NO ----> HO2 + 0.680\*UALD + 0.430\*HCHO + 0.070\*ORA1 + NO2 + 0.050\*OLI | 4.0000E-12 | 4.0000E-12 | | R191 | ACO3 + NO ----> MO2 + NO2 | 8.10E-12e 270.00/T | 2.0034E-11 | | R192 | RCO3 + NO ----> ETHP + NO2 | 8.10E-12e 270.00/T | 2.0034E-11 | | R193 | ACTP + NO ----> ACO3 + NO2 + HCHO | 2.90E-12e 300.00/T | 7.9321E-12 | | R194 | MEKP + NO ----> 0.670\*HO2 + NO2 + 0.330\*HCHO + 0.670\*DCB1 | 4.0000E-12 | 4.0000E-12 | | R195 | KETP + NO ----> 0.770\*HO2 + 0.230\*ACO3 + 0.160\*XO2 + NO2 + 0.460\*ALD + 0.540\*MGLY | 4.0000E-12 | 4.0000E-12 | | R196 | MACP + NO ----> 0.650\*MO2 + 0.350\*ACO3 + NO2 + 0.650\*CO + 0.650\*HCHO | 2.54E-12e 360.00/T | 8.4961E-12 | | R197 | MCP + NO ----> NO2 + 0.500\*HO2 + 0.500\*HCHO + HKET | 2.54E-12e 360.00/T | 8.4961E-12 | | R198 | MVKP + NO ----> 0.300\*HO2 + 0.700\*ACO3 + 0.700\*XO2 + NO2 + 0.300\*HCHO + 0.700\*ALD + 0.300\*MGLY | 2.54E-12e 360.00/T | 8.4961E-12 | | R199 | UALP + NO ----> HO2 + NO2 + 0.610\*CO + 0.030\*HCHO + 0.270\*ALD + 0.180\*GLY + 0.700\*KET + 0.210\*MGLY | 2.54E-12e 360.00/T | 8.4961E-12 | | R200 | BALP + NO ----> BAL1 + NO2 | 4.0000E-12 | 4.0000E-12 | | R201 | BAL1 + NO ----> BAL2 + NO2 | 4.0000E-12 | 4.0000E-12 | | R202 | ADDC + NO ----> HO2 + NO2 + 0.320\*HKET + 0.680\*GLY + 0.680\*OP2 | 2.70E-12e 360.00/T | 9.0313E-12 | | R203 | MCTP + NO ----> MCTO + NO2 | 2.70E-12e 360.00/T | 9.0313E-12 | | R204 | ORAP + NO ----> NO2 + GLY + HO2 | 4.0000E-12 | 4.0000E-12 | | R205 | OLNN + NO ----> NO2 + HO2 + ONIT | 4.0000E-12 | 4.0000E-12 | | R206 | OLND + NO ----> 2.000\*NO2 + 0.287\*HCHO + 1.240\*ALD + 0.464\*KET | 4.0000E-12 | 4.0000E-12 | | R207 | ADCN + NO ----> 2.000\*NO2 + GLY + OP2 | 2.70E-12e 360.00/T | 9.0313E-12 | | R208 | XO2 + NO ----> NO2 | 4.0000E-12 | 4.0000E-12 | | R209 | BAL2 + NO2 ----> ONIT | 2.0000E-11 | 2.0000E-11 | | R210 | CHO + NO2 ----> ONIT | 2.0000E-11 | 2.0000E-11 | | R211 | MCTO + NO2 ----> ONIT | 2.0800E-12 | 2.0800E-12 | | R212 | MO2 + HO2 ----> OP1 | 4.10E-13e 750.00/T | 5.0729E-12 | | R213 | ETHP + HO2 ----> OP2 | 7.50E-13e 700.00/T | 7.8470E-12 | | R214 | HC3P + HO2 ----> OP2 | 1.66E-13e 1300.00/T | 1.2994E-11 | | R215 | HC5P + HO2 ----> OP2 | 1.66E-13e 1300.00/T | 1.2994E-11 | | R216 | HC8P + HO2 ----> OP2 | 1.66E-13e 1300.00/T | 1.2994E-11 | | R217 | ETEP + HO2 ----> OP2 | 1.90E-13e 1300.00/T | 1.4872E-11 | | R218 | OLTP + HO2 ----> OP2 | 1.66E-13e 1300.00/T | 1.2994E-11 | | R219 | OLIP + HO2 ----> OP2 | 1.66E-13e 1300.00/T | 1.2994E-11 | | R220 | BENP + HO2 ----> OP2 | 2.91E-13e 1300.00/T | 2.2778E-11 | | R221 | TLP1 + HO2 ----> OP2 | 3.75E-13e 980.00/T | 1.0035E-11 | | R222 | TOLP + HO2 ----> OP2 | 3.75E-13e 980.00/T | 1.0035E-11 | | R223 | PER1 + HO2 ----> OP2 | 3.75E-13e 980.00/T | 1.0035E-11 | | R224 | XYL1 + HO2 ----> OP2 | 3.75E-13e 980.00/T | 1.0035E-11 | | R225 | XYLP + HO2 ----> OP2 | 3.75E-13e 980.00/T | 1.0035E-11 | | R226 | PER2 + HO2 ----> OP2 | 3.75E-13e 980.00/T | 1.0035E-11 | | R227 | XYOP + HO2 ----> OP2 | 3.75E-13e 980.00/T | 1.0035E-11 | | R228 | ISOP + HO2 ----> ISHP | 2.05E-13e 1300.00/T | 1.6046E-11 | | R229 | APIP + HO2 ----> OP2 | 1.5000E-11 | 1.5000E-11 | | R230 | LIMP + HO2 ----> OP2 | 1.5000E-11 | 1.5000E-11 | | R231 | ACO3 + HO2 ----> 0.440\*HO + 0.440\*MO2 + 0.150\*ORA2 + 0.410\*PAA | 4.30E-13e 1040.00/T | 1.4072E-11 | | R232 | RCO3 + HO2 ----> 0.440\*HO + 0.440\*ETHP + 0.150\*ORA2 + 0.410\*PAA | 4.30E-13e 1040.00/T | 1.4072E-11 | | R233 | ACTP + HO2 ----> 0.150\*HO + 0.150\*ACO3 + 0.150\*HCHO + 0.850\*OP2 | 1.15E-13e 1300.00/T | 9.0016E-12 | | R234 | MEKP + HO2 ----> OP2 | 1.15E-13e 1300.00/T | 9.0016E-12 | | R235 | KETP + HO2 ----> OP2 | 1.15E-13e 1300.00/T | 9.0016E-12 | | R236 | MACP + HO2 ----> MAHP | 1.82E-13e 1300.00/T | 1.4246E-11 | | R237 | MCP + HO2 ----> MAHP | 1.82E-13e 1300.00/T | 1.4246E-11 | | R238 | MVKP + HO2 ----> OP2 | 2.91E-13e 1300.00/T | 2.2778E-11 | | R239 | UALP + HO2 ----> OP2 | 2.91E-13e 1300.00/T | 2.2778E-11 | | R240 | ADDC + HO2 ----> OP2 | 3.75E-13e 980.00/T | 1.0035E-11 | | R241 | CHO + HO2 ----> CSL | 1.0000E-11 | 1.0000E-11 | | R242 | MCTP + HO2 ----> OP2 | 3.75E-13e 980.00/T | 1.0035E-11 | | R243 | ORAP + HO2 ----> OP2 | 1.15E-13e 1300.00/T | 9.0016E-12 | | R244 | OLNN + HO2 ----> ONIT | 1.66E-13e 1300.00/T | 1.2994E-11 | | R245 | OLND + HO2 ----> ONIT | 1.66E-13e 1300.00/T | 1.2994E-11 | | R246 | ADCN + HO2 ----> OP2 | 3.75E-13e 980.00/T | 1.0035E-11 | | R247 | XO2 + HO2 ----> OP2 | 1.66E-13e 1300.00/T | 1.2994E-11 | | R248 | MO2 + MO2 ----> 0.740\*HO2 + 1.370\*HCHO + 0.630\*MOH | 9.50E-14e 390.00/T | 3.5141E-13 | | R249 | ETHP + MO2 ----> HO2 + 0.750\*HCHO + 0.750\*ACD + 0.250\*MOH + 0.250\*EOH | 1.18E-13e 158.00/T | 2.0046E-13 | | R250 | HC3P + MO2 ----> 0.894\*HO2 + 0.080\*MO2 + 0.026\*ETHP + 0.026\*XO2 + 0.827\*HCHO + 0.198\*ALD + 0.497\*KET + 0.050\*GLY + 0.250\*MOH + 0.250\*ROH | 9.46E-14e 431.00/T | 4.0151E-13 | | R251 | HC5P + MO2 ----> 0.842\*HO2 + 0.018\*MO2 + 0.140\*ETHP + 0.191\*XO2 + 0.777\*HCHO + 0.251\*ALD + 0.618\*KET + 0.250\*MOH + 0.250\*ROH | 1.00E-13e 467.00/T | 4.7890E-13 | | R252 | HC8P + MO2 ----> 0.910\*HO2 + 0.090\*ETHP + 0.281\*XO2 + 0.750\*HCHO + 0.197\*ALD + 0.652\*KET + 0.250\*MOH + 0.250\*ROH | 4.34E-14e 633.00/T | 3.6269E-13 | | R253 | ETEP + MO2 ----> HO2 + 1.950\*HCHO + 0.150\*ALD + 0.250\*MOH + 0.250\*ETEG | 1.71E-13e 708.00/T | 1.8378E-12 | | R254 | OLTP + MO2 ----> HO2 + 1.500\*HCHO + 0.705\*ALD + 0.045\*KET + 0.250\*MOH + 0.250\*ROH | 1.46E-13e 708.00/T | 1.5691E-12 | | R255 | OLIP + MO2 ----> HO2 + 0.750\*HCHO + 1.280\*ALD + 0.218\*KET + 0.250\*MOH + 0.250\*ROH | 9.18E-14e 708.00/T | 9.8659E-13 | | R256 | BENP + MO2 ----> 1.600\*HO2 + 0.459\*DCB3 + HCHO + 0.459\*DCB2 + 0.600\*GLY | 3.56E-14e 708.00/T | 3.8260E-13 | | R257 | TLP1 + MO2 ----> HO2 + HCHO + BALD | 3.56E-14e 708.00/T | 3.8260E-13 | | R258 | TOLP + MO2 ----> 2.000\*HO2 + HCHO + 0.271\*GLY + DCB2 | 3.56E-14e 708.00/T | 3.8260E-13 | | R259 | PER1 + MO2 ----> 2.000\*HO2 + HCHO + MGLY + DCB1 | 3.56E-14e 708.00/T | 3.8260E-13 | | R260 | XYL1 + MO2 ----> HO2 + HCHO + BALD | 3.56E-14e 708.00/T | 3.8260E-13 | | R261 | XYLP + MO2 ----> 2.000\*HO2 + HCHO + DCB2 | 3.56E-14e 708.00/T | 3.8260E-13 | | R262 | PER2 + MO2 ----> 2.000\*HO2 + HCHO + MGLY + DCB1 + 1.050\*DCB3 | 3.56E-14e 708.00/T | 3.8260E-13 | | R263 | XYOP + MO2 ----> 2.000\*HO2 + HCHO + 0.368\*GLY + 0.632\*MGLY + 0.737\*DCB1 + 0.077\*DCB2 + 0.186\*DCB3 | 3.56E-14e 708.00/T | 3.8260E-13 | | R264 | ISOP + MO2 ----> HO2 + 1.310\*HCHO + 0.159\*MACR + 0.250\*MVK + 0.250\*MOH + 0.250\*ROH + 0.023\*ALD + 0.018\*GLY + 0.016\*HKET | 3.40E-14e 221.00/T | 7.1350E-14 | | R265 | APIP + MO2 ----> HO2 + 0.750\*HCHO + 0.750\*ALD + 0.750\*KET + 0.250\*MOH + 0.250\*ROH | 3.56E-14e 708.00/T | 3.8260E-13 | | R266 | LIMP + MO2 ----> HO2 + 1.040\*HCHO + 0.192\*OLI + 0.308\*MACR + 0.250\*MOH + 0.250\*ROH | 3.56E-14e 708.00/T | 3.8260E-13 | | R267 | ACO3 + MO2 ----> 0.900\*HO2 + 0.900\*MO2 + HCHO + 0.100\*ORA2 | 2.00E-11e 500.00/T | 1.0699E-10 | | R268 | RCO3 + MO2 ----> 0.900\*HO2 + 0.900\*MO2 + HCHO + 0.100\*ORA2 | 2.00E-11e 500.00/T | 1.0699E-10 | | R269 | ACTP + MO2 ----> 0.500\*HO2 + 0.500\*ACO3 + 1.500\*HCHO + 0.250\*MOH + 0.250\*ROH + 0.125\*ORA2 | 7.50E-13e 500.00/T | 4.0121E-12 | | R270 | MEKP + MO2 ----> 0.834\*HO2 + HCHO + 0.334\*DCB1 + 0.250\*MOH + 0.250\*ROH | 6.91E-13e 508.00/T | 3.7971E-12 | | R271 | KETP + MO2 ----> HO2 + 0.750\*HCHO + 0.500\*DCB1 + 0.250\*MOH + 0.250\*ROH | 6.91E-13e 508.00/T | 3.7971E-12 | | R272 | MACP + MO2 ----> 0.500\*HO2 + 0.269\*ACO3 + 0.500\*CO + 1.660\*HCHO + 0.067\*ORA2 + 0.250\*MO2 + 0.250\*MOH + 0.250\*ROH | 3.40E-14e 221.00/T | 7.1350E-14 | | R273 | MCP + MO2 ----> NO2 + HO2 + 1.500\*HCHO + 0.500\*HKET + 0.250\*MOH + 0.250\*ROH | 3.40E-14e 221.00/T | 7.1350E-14 | | R274 | MVKP + MO2 ----> HO2 + 1.160\*ACO3 + 1.160\*XO2 + 1.500\*HCHO + 1.750\*ALD + 0.500\*MGLY + 0.250\*MOH + 0.250\*ROH + 0.292\*ORA2 | 8.3700E-14 | 8.3700E-14 | | R275 | UALP + MO2 ----> HO2 + 0.305\*CO + 0.773\*HCHO + 0.203\*ALD + 0.525\*KET + 0.135\*GLY + 0.105\*MGLY + 0.250\*MOH + 0.250\*ROH | 3.40E-14e 221.00/T | 7.1350E-14 | | R276 | BALP + MO2 ----> HO2 + BAL1 + HCHO | 3.56E-14e 708.00/T | 3.8260E-13 | | R277 | BAL1 + MO2 ----> HO2 + BAL2 + HCHO | 3.56E-14e 708.00/T | 3.8260E-13 | | R278 | ADDC + MO2 ----> 2.000\*HO2 + HCHO + 0.320\*HKET + 0.680\*GLY + 0.680\*OP2 | 3.56E-14e 708.00/T | 3.8260E-13 | | R279 | MCTP + MO2 ----> HO2 + MCTO + HCHO | 3.56E-14e 708.00/T | 3.8260E-13 | | R280 | ORAP + MO2 ----> HCHO + HO2 + GLY | 7.50E-13e 500.00/T | 4.0121E-12 | | R281 | OLNN + MO2 ----> 2.000\*HO2 + HCHO + ONIT | 1.60E-13e 708.00/T | 1.7195E-12 | | R282 | OLND + MO2 ----> 0.500\*HO2 + 0.500\*NO2 + 0.965\*HCHO + 0.930\*ALD + 0.348\*KET + 0.250\*MOH + 0.250\*ROH + 0.500\*ONIT | 9.68E-14e 708.00/T | 1.0403E-12 | | R283 | ADCN + MO2 ----> HO2 + 0.700\*NO2 + HCHO + 0.700\*GLY + 0.700\*OP2 + 0.300\*ONIT | 3.5600E-14 | 3.5600E-14 | | R284 | XO2 + MO2 ----> HO2 + HCHO | 5.99E-15e 1510.00/T | 9.4829E-13 | | R285 | ETHP + ACO3 ----> 0.500\*HO2 + 0.500\*MO2 + ACD + 0.500\*ORA2 | 1.03E-12e 211.00/T | 2.0902E-12 | | R286 | HC3P + ACO3 ----> 0.394\*HO2 + 0.580\*MO2 + 0.026\*ETHP + 0.026\*XO2 + 0.130\*HCHO + 0.273\*ALD + 0.662\*KET + 0.067\*GLY + 0.500\*ORA2 | 6.90E-13e 460.00/T | 3.2277E-12 | | R287 | HC5P + ACO3 ----> 0.342\*HO2 + 0.518\*MO2 + 0.140\*ETHP + 0.191\*XO2 + 0.042\*HCHO + 0.381\*ALD + 0.824\*KET + 0.500\*ORA2 | 5.59E-13e 522.00/T | 3.2194E-12 | | R288 | HC8P + ACO3 ----> 0.303\*HO2 + 0.500\*MO2 + 0.067\*ETHP + 0.208\*XO2 + 0.217\*ALD + 0.642\*KET + 0.495\*ORA2 | 2.47E-13e 683.00/T | 2.4410E-12 | | R289 | ETEP + ACO3 ----> 0.500\*HO2 + 0.500\*MO2 + 1.600\*HCHO + 0.200\*ALD + 0.500\*ORA2 | 9.48E-13e 765.00/T | 1.2335E-11 | | R290 | OLTP + ACO3 ----> 0.500\*HO2 + 0.500\*MO2 + HCHO + 0.940\*ALD + 0.060\*KET + 0.500\*ORA2 | 8.11E-13e 765.00/T | 1.0552E-11 | | R291 | OLIP + ACO3 ----> 0.500\*HO2 + 0.500\*MO2 + 1.710\*ALD + 0.290\*KET + 0.500\*ORA2 | 5.09E-13e 765.00/T | 6.6228E-12 | | R292 | BENP + ACO3 ----> 0.600\*HO2 + MO2 + 0.459\*DCB2 + 0.458\*DCB3 + 0.600\*GLY | 7.40E-13e 765.00/T | 9.6284E-12 | | R293 | TLP1 + ACO3 ----> MO2 + BALD | 7.40E-13e 765.00/T | 9.6284E-12 | | R294 | TOLP + ACO3 ----> HO2 + MO2 + DCB2 | 7.40E-13e 765.00/T | 9.6284E-12 | | R295 | PER1 + ACO3 ----> HO2 + MO2 + MGLY + DCB1 | 7.40E-13e 765.00/T | 9.6284E-12 | | R296 | XYL1 + ACO3 ----> MO2 + BALD | 7.40E-13e 765.00/T | 9.6284E-12 | | R297 | XYLP + ACO3 ----> HO2 + MO2 + DCB2 | 7.40E-13e 765.00/T | 9.6284E-12 | | R298 | PER2 + ACO3 ----> HO2 + MO2 + MGLY + DCB1 + 1.050\*DCB3 | 7.40E-13e 765.00/T | 9.6284E-12 | | R299 | XYOP + ACO3 ----> HO2 + MO2 + 0.368\*GLY + 0.632\*MGLY + 0.737\*DCB1 + 0.077\*DCB2 + 0.186\*DCB3 | 7.40E-13e 765.00/T | 9.6284E-12 | | R300 | ISOP + ACO3 ----> 0.500\*HO2 + 0.500\*MO2 + 1.048\*HCHO + 0.219\*MACR + 0.305\*MVK + 0.500\*ORA2 | 8.40E-14e 221.00/T | 1.7628E-13 | | R301 | APIP + ACO3 ----> 0.500\*HO2 + 0.500\*MO2 + ALD + KET + ORA2 | 7.40E-13e 765.00/T | 9.6284E-12 | | R302 | LIMP + ACO3 ----> 0.500\*HO2 + 0.500\*MO2 + 0.192\*OLI + 0.385\*HCHO + 0.308\*MACR + 0.500\*ORA2 | 7.40E-13e 765.00/T | 9.6284E-12 | | R303 | ACO3 + ACO3 ----> 2.000\*MO2 | 2.50E-12e 500.00/T | 1.3374E-11 | | R304 | RCO3 + ACO3 ----> MO2 + ETHP | 2.50E-12e 500.00/T | 1.3374E-11 | | R305 | ACTP + ACO3 ----> 0.500\*MO2 + 0.500\*ACO3 + HCHO + 0.750\*ORA2 | 7.51E-13e 565.00/T | 4.9962E-12 | | R306 | MEKP + ACO3 ----> 0.330\*HO2 + 0.500\*MO2 + 0.330\*HCHO + 0.334\*DCB1 + 0.500\*ORA2 | 7.51E-13e 565.00/T | 4.9962E-12 | | R307 | KETP + ACO3 ----> 0.500\*HO2 + 0.500\*MO2 + 0.500\*DCB1 + 0.500\*ORA2 | 7.51E-13e 565.00/T | 4.9962E-12 | | R308 | MACP + ACO3 ----> 0.635\*ORA2 + 0.500\*MO2 + 0.269\*ACO3 + 0.500\*CO + HCHO | 8.40E-14e 221.00/T | 1.7628E-13 | | R309 | MCP + ACO3 ----> NO2 + 0.500\*HO2 + HCHO + 0.500\*HKET + 0.500\*MO2 + 0.500\*ORA2 | 8.40E-14e 221.00/T | 1.7628E-13 | | R310 | MVKP + ACO3 ----> 0.500\*HO2 + 0.500\*MO2 + 1.160\*ACO3 + 1.160\*XO2 + HCHO + 2.300\*ALD + 0.500\*MGLY + 1.083\*ORA2 | 1.68E-12e 500.00/T | 8.9872E-12 | | R311 | UALP + ACO3 ----> 0.500\*HO2 + 0.500\*MO2 + 0.500\*CO + 0.030\*HCHO + 0.270\*ALD + 0.700\*KET + 0.180\*GLY + 0.105\*MGLY + 0.500\*ORA2 | 1.68E-12e 500.00/T | 8.9872E-12 | | R312 | BALP + ACO3 ----> MO2 + BAL1 | 7.40E-13e 765.00/T | 9.6284E-12 | | R313 | BAL1 + ACO3 ----> MO2 + BAL2 | 7.40E-13e 765.00/T | 9.6284E-12 | | R314 | ADDC + ACO3 ----> 2.000\*HO2 + MO2 + 0.320\*HKET + 0.680\*GLY + 0.680\*OP2 | 7.40E-13e 708.00/T | 7.9529E-12 | | R315 | MCTP + ACO3 ----> HO2 + MO2 + MCTO | 7.40E-13e 708.00/T | 7.9529E-12 | | R316 | ORAP + ACO3 ----> MO2 + GLY | 7.51E-13e 565.00/T | 4.9962E-12 | | R317 | OLNN + ACO3 ----> HO2 + MO2 + ONIT | 8.85E-13e 765.00/T | 1.1515E-11 | | R318 | OLND + ACO3 ----> 0.500\*MO2 + NO2 + 0.287\*HCHO + 1.240\*ALD + 0.464\*KET + 0.500\*ORA2 | 5.37E-13e 765.00/T | 6.9871E-12 | | R319 | ADCN + ACO3 ----> HO2 + MO2 + 0.700\*NO2 + 0.700\*GLY + 0.700\*OP2 + 0.300\*ONIT | 7.40E-13e 708.00/T | 7.9529E-12 | | R320 | XO2 + ACO3 ----> MO2 | 3.40E-14e 1560.00/T | 6.3654E-12 | | R321 | RCO3 + RCO3 ----> 2.000\*ETHP | 2.50E-12e 500.00/T | 1.3374E-11 | | R322 | MO2 + NO3 ----> HO2 + HCHO + NO2 | 1.2000E-12 | 1.2000E-12 | | R323 | ETHP + NO3 ----> HO2 + NO2 + ACD | 1.2000E-12 | 1.2000E-12 | | R324 | HC3P + NO3 ----> 0.254\*HO2 + 0.140\*MO2 + 0.092\*XO2 + 0.503\*ETHP + NO2 + 0.519\*ACD + 0.147\*ALD + 0.075\*MEK + 0.095\*ACT | 1.2000E-12 | 1.2000E-12 | | R325 | HC5P + NO3 ----> 0.488\*HO2 + 0.055\*MO2 + 0.280\*ETHP + 0.485\*XO2 + NO2 + 0.024\*HCHO + 0.241\*ALD + 0.060\*KET + 0.063\*MEK + 0.247\*ACT + 0.048\*ACD + 0.275\*HKET | 1.2000E-12 | 1.2000E-12 | | R326 | HC8P + NO3 ----> 0.820\*HO2 + 0.180\*ETHP + 0.563\*XO2 + NO2 + 0.203\*ALD + 0.869\*KET | 1.2000E-12 | 1.2000E-12 | | R327 | ETEP + NO3 ----> HO2 + NO2 + 1.600\*HCHO + 0.200\*ALD | 1.2000E-12 | 1.2000E-12 | | R328 | OLTP + NO3 ----> 0.470\*ALD + 0.790\*HCHO + 0.790\*HO2 + NO2 + 0.180\*MEK + 0.020\*ACD + 0.090\*ACT | 1.2000E-12 | 1.2000E-12 | | R329 | OLIP + NO3 ----> 0.860\*HO2 + 0.720\*ALD + 0.110\*KET + NO2 + 0.200\*ACT + 0.850\*ACD + 0.040\*HKET | 1.2000E-12 | 1.2000E-12 | | R330 | BENP + NO3 ----> HO2 + NO2 + 0.500\*DCB2 + 0.500\*DCB3 + GLY | 1.2000E-12 | 1.2000E-12 | | R331 | TLP1 + NO3 ----> NO2 + BALD | 1.2000E-12 | 1.2000E-12 | | R332 | TOLP + NO3 ----> HO2 + NO2 + DCB2 | 1.2000E-12 | 1.2000E-12 | | R333 | PER1 + NO3 ----> 0.500\*HO2 + NO2 + 0.500\*MGLY + 0.500\*DCB1 + 0.500\*BALD | 1.2000E-12 | 1.2000E-12 | | R334 | XYL1 + NO3 ----> NO2 + BALD | 1.2000E-12 | 1.2000E-12 | | R335 | XYLP + NO3 ----> HO2 + NO2 + DCB3 | 1.2000E-12 | 1.2000E-12 | | R336 | PER2 + NO3 ----> HO2 + NO2 + MGLY + DCB1 + 1.050\*DCB3 | 1.2000E-12 | 1.2000E-12 | | R337 | XYOP + NO3 ----> HO2 + NO2 + 0.368\*GLY + 0.632\*MGLY + 0.737\*DCB1 + 0.077\*DCB2 + 0.186\*DCB3 | 1.2000E-12 | 1.2000E-12 | | R338 | ISOP + NO3 ----> HO2 + NO2 + 0.750\*HCHO + 0.318\*MACR + 0.500\*MVK + 0.024\*GLY + 0.033\*HKET + 0.031\*ALD | 1.2000E-12 | 1.2000E-12 | | R339 | APIP + NO3 ----> HO2 + NO2 + ALD + KET | 1.2000E-12 | 1.2000E-12 | | R340 | LIMP + NO3 ----> HO2 + NO2 + 0.385\*OLI + 0.385\*HCHO + 0.615\*MACR | 1.2000E-12 | 1.2000E-12 | | R341 | ACO3 + NO3 ----> MO2 + NO2 | 4.0000E-12 | 4.0000E-12 | | R342 | RCO3 + NO3 ----> ETHP + NO2 | 4.0000E-12 | 4.0000E-12 | | R343 | ACTP + NO3 ----> ACO3 + NO2 + HCHO | 1.2000E-12 | 1.2000E-12 | | R344 | MEKP + NO3 ----> 0.670\*HO2 + NO2 + 0.330\*HCHO + 0.670\*DCB1 | 1.2000E-12 | 1.2000E-12 | | R345 | KETP + NO3 ----> HO2 + NO2 + DCB1 | 1.2000E-12 | 1.2000E-12 | | R346 | MACP + NO3 ----> HCHO + 0.538\*ACO3 + CO + NO2 | 1.2000E-12 | 1.2000E-12 | | R347 | MCP + NO3 ----> NO2 + HO2 + HCHO + HKET | 1.2000E-12 | 1.2000E-12 | | R348 | MVKP + NO3 ----> 0.300\*HO2 + 0.700\*ACO3 + 0.700\*XO2 + NO2 + 0.300\*HCHO + 0.700\*ALD + 0.300\*MGLY | 2.5000E-12 | 2.5000E-12 | | R349 | UALP + NO3 ----> HO2 + NO2 + 0.610\*CO + 0.030\*HCHO + 0.270\*ALD + 0.700\*KET + 0.180\*GLY + 0.210\*MGLY | 2.5000E-12 | 2.5000E-12 | | R350 | BALP + NO3 ----> BAL1 + NO2 | 2.5000E-12 | 2.5000E-12 | | R351 | BAL1 + NO3 ----> BAL2 + NO2 | 2.5000E-12 | 2.5000E-12 | | R352 | ADDC + NO3 ----> HO2 + NO2 + 0.320\*HKET + 0.680\*GLY + 0.680\*OP2 | 1.2000E-12 | 1.2000E-12 | | R353 | MCTP + NO3 ----> NO2 + MCTO | 1.2000E-12 | 1.2000E-12 | | R354 | ORAP + NO3 ----> NO2 + GLY + HO2 | 1.2000E-12 | 1.2000E-12 | | R355 | OLNN + NO3 ----> HO2 + NO2 + ONIT | 1.2000E-12 | 1.2000E-12 | | R356 | OLND + NO3 ----> 2.000\*NO2 + 0.287\*HCHO + 1.240\*ALD + 0.464\*KET | 1.2000E-12 | 1.2000E-12 | | R357 | ADCN + NO3 ----> 2.000\*NO2 + GLY + OP2 | 1.2000E-12 | 1.2000E-12 | | R358 | OLNN + OLNN ----> HO2 + 2.000\*ONIT | 7.00E-14e 1000.00/T | 2.0032E-12 | | R359 | OLNN + OLND ----> 0.500\*HO2 + 0.500\*NO2 + 0.202\*HCHO + 0.640\*ALD + 0.149\*KET + 1.500\*ONIT | 4.25E-14e 1000.00/T | 1.2162E-12 | | R360 | OLND + OLND ----> NO2 + 0.504\*HCHO + 1.210\*ALD + 0.285\*KET + ONIT | 2.96E-14e 1000.00/T | 8.4708E-13 | | R361 | XO2 + NO3 ----> NO2 | 1.2000E-12 | 1.2000E-12 | | R362 | XO2 + RCO3 ----> ETHP | 2.50E-12e 500.00/T | 1.3374E-11 | | R363 | XO2 + XO2 ----> | 7.13E-17e 2950.00/T | 1.4130E-12 | | SA01 | TOLRO2 + NO ----> NO + TOLNRXN | 2.70E-12e 360.00/T | 9.0313E-12 | | SA02 | TOLRO2 + HO2 ----> HO2 + TOLHRXN | 1.90E-13e 1300.00/T | 1.4872E-11 | | SA03 | XYLRO2 + NO ----> NO + XYLNRXN | 2.70E-12e 360.00/T | 9.0313E-12 | | SA04 | XYLRO2 + HO2 ----> HO2 + XYLHRXN | 1.90E-13e 1300.00/T | 1.4872E-11 | | SA05 | BENZRO2 + NO ----> NO + BNZNRXN | 2.70E-12e 360.00/T | 9.0313E-12 | | SA06 | BENZRO2 + HO2 ----> HO2 + BNZHRXN | 1.90E-13e 1300.00/T | 1.4872E-11 | | SA07 | SESQ + O3 ----> O3 + SESQRXN | 1.1600E-14 | 1.1600E-14 | | SA08 | SESQ + HO ----> HO + SESQRXN | 1.9700E-10 | 1.9700E-10 | | SA09 | SESQ + NO3 ----> NO3 + SESQRXN | 1.9000E-11 | 1.9000E-11 | | SA10 | NAPH + HO ----> HO + PAHRO2 | 2.3100E-11 | 2.3100E-11 | | SA11 | PAHRO2 + NO ----> NO + PAHNRXN | 2.70E-12e 360.00/T | 9.0313E-12 | | SA12 | PAHRO2 + HO2 ----> HO2 + PAHHRXN | 1.90E-13e 1300.00/T | 1.4872E-11 | | SA13 | SOAALK + HO ----> HO + 0.470\*ALKRXN | 2.70E-12e 374.00/T | 9.4655E-12 | | SA14 | IEPOX + HO ----> HO | 5.78E-11e -400.00/T | 1.5110E-11 | | HET_N2O5 | N2O5 ----> 2.000\*HNO3 | HETERO_N2O5IJ | Not Available2 | | HET_N02 | NO2 ----> 0.500\*HONO + 0.500\*HNO3 | HETERO_NO2 | Not Available2 | | HAL_Ozone | O3 ----> | SEAWATER*min( 6.701E-11e 1.074E+01P+ 3.415E-08e-6.713E-01P,
2.000E-06) | 2.0000E-064| | HET_IEPOX | IEPOX ----> AISO3J | HETERO_IEPOX | Not Available2 | | OLIG_XYLENE1 | AXYL1J ----> 0.857\*AOLGAJ | 9.4882E-06 | 9.4882E-06 | | OLIG_XYLENE2 | AXYL2J ----> 1.143\*AOLGAJ | 9.4882E-06 | 9.4882E-06 | | OLIG_TOLUENE1 | ATOL1J ----> 0.857\*AOLGAJ | 9.4882E-06 | 9.4882E-06 | | OLIG_TOLUENE2 | ATOL2J ----> 1.143\*AOLGAJ | 9.4882E-06 | 9.4882E-06 | | OLIG_BENZENE1 | ABNZ1J ----> 0.714\*AOLGAJ | 9.4882E-06 | 9.4882E-06 | | OLIG_BENZENE2 | ABNZ2J ----> 0.714\*AOLGAJ | 9.4882E-06 | 9.4882E-06 | | OLIG_TERPENE1 | ATRP1J ----> 0.800\*AOLGBJ | 9.4882E-06 | 9.4882E-06 | | OLIG_TERPENE2 | ATRP2J ----> 0.900\*AOLGBJ | 9.4882E-06 | 9.4882E-06 | | OLIG_ISOPRENE1 | AISO1J ----> 0.500\*AOLGBJ | 9.4882E-06 | 9.4882E-06 | | OLIG_ISOPRENE2 | AISO2J ----> 0.500\*AOLGBJ | 9.4882E-06 | 9.4882E-06 | | OLIG_SESQT1 | ASQTJ ----> 1.500\*AOLGBJ | 9.4882E-06 | 9.4882E-06 | | OLIG_PAH1 | APAH1J ----> 1.429\*AOLGAJ | 9.4882E-06 | 9.4882E-06 | | OLIG_PAH2 | APAH2J ----> 1.429\*AOLGAJ | 9.4882E-06 | 9.4882E-06 | | OLIG_ALK1 | AALK1J ----> 1.714\*AOLGAJ | 9.4882E-06 | 9.4882E-06 | | OLIG_ALK2 | AALK2J ----> 1.714\*AOLGAJ | 9.4882E-06 | 9.4882E-06 | | RPOAGEPI | APOCI + HO ----> 1.250\*APNCOMI + APOCI + HO | 2.5000E-12 | 2.5000E-12 | | RPOAGELI | APNCOMI + HO ----> HO | HETERO_PNCOMLI | Not Available2 | | RPOAGEPJ | APOCJ + HO ----> 1.250\*APNCOMJ + APOCJ + HO | 2.5000E-12 | 2.5000E-12 | | RPOAGELJ | APNCOMJ + HO ----> HO | HETERO_PNCOMLJ | Not Available2 | | PCSOA | PCVOC + HO ----> HO + PCSOARXN | 1.2500E-11 | 1.2500E-11 | | POA_AGE1 | VLVPO1 + HO ----> HO + 0.486\*VLVPO1 + 0.006\*VSVPO1 + 0.003\*VSVPO2 + 0.003\*VSVPO3 + 0.002\*VIVPO1 + 0.294\*VLVOO1 + 0.202\*VLVOO2 + 0.002\*VSVOO2 + 0.002\*VSVOO3 | 4.0000E-11 | 4.0000E-11 | | POA_AGE2 | VSVPO1 + HO ----> HO + 0.300\*VLVPO1 + 0.286\*VSVPO1 + 0.004\*VSVPO2 + 0.004\*VSVPO3 + 0.224\*VLVOO1 + 0.182\*VLVOO2 | 4.0000E-11 | 4.0000E-11 | | POA_AGE3 | VSVPO2 + HO ----> HO + 0.386\*VLVPO1 + 0.095\*VSVPO1 + 0.137\*VSVPO2 + 0.001\*VSVPO3 + 0.205\*VLVOO1 + 0.176\*VLVOO2 | 4.0000E-11 | 4.0000E-11 | | POA_AGE4 | VSVPO3 + HO ----> HO + 0.218\*VLVPO1 + 0.306\*VSVPO1 + 0.015\*VSVPO2 + 0.104\*VSVPO3 + 0.189\*VLVOO1 + 0.167\*VLVOO2 | 4.0000E-11 | 4.0000E-11 | | POA_AGE5 | VIVPO1 + HO ----> HO + 0.241\*VLVPO1 + 0.209\*VSVPO1 + 0.300\*VSVPO2 + 0.203\*VLVOO1 + 0.047\*VLVOO2 | 4.0000E-11 | 4.0000E-11 | | POA_AGE6 | VLVOO1 + HO ----> HO + 0.666\*VLVOO1 + 0.014\*VLVOO2 + 0.012\*VSVOO1 + 0.124\*VSVOO2 + 0.183\*VSVOO3 | 4.0000E-11 | 4.0000E-11 | | POA_AGE7 | VLVOO2 + HO ----> HO + 0.286\*VLVOO1 + 0.393\*VLVOO2 + 0.014\*VSVOO1 + 0.103\*VSVOO2 + 0.204\*VSVOO3 | 4.0000E-11 | 4.0000E-11 | | POA_AGE8 | VSVOO1 + HO ----> HO + 0.330\*VLVOO1 + 0.227\*VLVOO2 + 0.261\*VSVOO1 + 0.070\*VSVOO2 + 0.112\*VSVOO3 | 4.0000E-11 | 4.0000E-11 | | POA_AGE9 | VSVOO2 + HO ----> HO + 0.344\*VLVOO1 + 0.275\*VLVOO2 + 0.049\*VSVOO1 + 0.258\*VSVOO2 + 0.074\*VSVOO3 | 4.0000E-11 | 4.0000E-11 | | POA_AGE10 | VSVOO3 + HO ----> HO + 0.389\*VLVOO1 + 0.242\*VLVOO2 + 0.064\*VSVOO1 + 0.038\*VSVOO2 + 0.267\*VSVOO3 | 4.0000E-11 | 4.0000E-11 | 0Units molecules/(sec*cm3); Value at 298.15 K; 2.4615E+19 molcules/cm3; 1.00 Atm. 1Photolysis Reaction;depends on radiation and predicted concentrations 2Heteorogeneous Reaction;Depends predicted concentrations 4Set to zero if sun is below the horizon. SEAWATER equals surface fraction covered by ice free open ocean plus surf zones. P equals air pressure in atmospheres. 8Rate constant scaled as reverse equilibrium to constant for listed reaction ================================================ FILE: CCTM/src/MECHS/mechanism_information/racm2_ae6_aq/racm2_ae6_aq_species_table.md ================================================ **The GC namelist for racm2_ae6_aq has the following gas phase species.** | **Model Species** | **Definition** | **Explicit or Lumped** | **Molecular Weight** | | ----------------- | -------------------------------------------------------------------------------------------------------- | ---------------------- | -------------------- | | ACD | Acetaldehyde | E | 44 | | ACE | Acetylene | E | 26 | | ACO3 | Acetyl peroxy radicals | E | 75 | | ACT | acetone | E | 58 | | ACTP | Peroxy radicals formed from ACT | E | 89 | | ADCN | Aromatic-NO3 adduct from PHEN | L | 156 | | ADDC | Aromatic-HO adduct from CSL | L | 125 | | ALD | C3 and higher aldehydes | L | 58 | | ALKRXN | Precursor of Terpene Aerosol Material | L | 112 | | API | Alpha-pinenes and other cyclic terpenes with one double bond | L | 136 | | APIP | Peroxy radicals formed from API | L | 185 | | BAL1 | Peroxy radicals formed from BALD | L | 121 | | BAL2 | Peroxy radicals formed from BALD | L | 105 | | BALD | Benzaldehyde and other aromatic aldehydes | L | 106 | | BALP | Peroxy radicals formed from BALD | L | 137 | | BENP | Peroxy radicals formed from BEN | L | 127 | | BENZENE | Peroxy radicals formed from BEN | L | 78 | | BENZRO2 | hydroxyperoxy radical tracker from BENZENE and OH reaction;an aerosol precursor | L | 127 | | BNZHRXN | Precursor of Hydro-Benzene Aerosol Material | L | 127 | | BNZNRXN | Precursor of Nitro-Benzene Aerosol Material | L | 127 | | CHO | Phenoxy radical formed from CSL | L | 139 | | CO | Carbon monoxide | E | 28 | | CSL | Cresol and other hydroxy substituted aromatics | L | 108 | | DCB1 | Unsaturated dicarbonyls | L | 91 | | DCB2 | Unsaturated dicarbonyls | L | 110 | | DCB3 | Unsaturated dicarbonyls | L | 84 | | DIEN | Butadiene and other anthropogenic dienes | L | 54 | | EOH | Ethanol | E | 46 | | EPX | Epoxide formed in TOL, XYL and XYO reactions | L | 122.5 | | ETE | ethene | E | 28 | | ETEG | Ethylene glycol | E | 62 | | ETEP | Peroxy radicals formed from ETE | L | 77 | | ETH | ethane | E | 30 | | ETHP | Peroxy radicals formed from ETH | L | 61 | | GLY | Glyoxal | E | 58 | | H2O2 | Hydrogen peroxide | E | 34 | | HC3 | Alkanes, esters and alkynes with HO rate constant (298 K, 1 atm) less than 3.4x10-12 cm3 s-1 | L | 44 | | HC3P | Peroxy radicals formed from HC3 | L | 75 | | HC5 | Alkanes, esters and alkynes with HO rate constant (298 K, 1 atm) between 3.4x10-12 and 6.8x10-12 cm3 s-1 | L | 72 | | HC5P | Peroxy radicals formed from HC5 | L | 103 | | HC8 | Alkanes, esters and alkynes with HO rate constant (298 K, 1 atm) greater than 6.8x10-12 cm3 s-1 | L | 114 | | HC8P | Peroxy radicals formed from HC8 | L | 145 | | HCHO | Formaldehyde | E | 30 | | HKET | Hydroxy ketone | E | 74 | | HNO3 | Nitric acid | E | 63 | | HNO4 | Pernitric acid | E | 79 | | HO | Hydroxy radical | E | 17 | | HO2 | Hydroperoxy radical | E | 33 | | HONO | Nitrous acid | E | 47 | | IEPOX | isoprene epoxydiol | E | 118.1 | | ISHP | Beta-hydroxy hydroperoxides from ISOP+HO2 | L | 118 | | ISO | Isoprene | E | 68 | | ISON | Beta-hydroxyalkylnitrates from ISOP+NO alkylnitrates from ISO+NO3 | L | 147 | | ISOP | Peroxy radicals formed from ISO+HO | L | 117 | | ISOPRXN | Peroxy radicals formed from ISO+HO | L | 68 | | KET | ketones | E | 86 | | KETP | Peroxy radicals formed from KET | L | 117 | | LIM | d-limonene and other cyclic diene-terpenes | L | 136 | | LIMP | Peroxy radicals formed from LIM | L | 185 | | MACP | Peroxy radicals formed from MACR+HO | L | 101 | | MACR | methacrolein | E | 70 | | MAHP | Hydroperoxides from MACP+HO2 | L | 102 | | MCP | Peroxy radical formed from MACR + HO which does not form MPAN | L | 119 | | MCT | Methyl catechol | E | 124 | | MCTO | Alkoxy radical formed from MCT+HO and MCT+NO3 | L | 123 | | MCTP | Radical formed fro MCT+O3 reaction | L | 172 | | MEK | Methyl ethyl ketone | E | 72 | | MEKP | Peroxy radicals formed from MEK | L | 103 | | MGLY | Methylglyoxal and other alpha-carbonyl aldehydes | L | 72 | | MO2 | Methyl peroxy radical | E | 47 | | MOH | methanol | E | 32 | | MPAN | Peroxymethacryloylnitrate and other higher peroxyacylnitrates from isoprene oxidation | L | 148 | | MVK | Methyl vinyl ketone | E | 70 | | MVKP | Peroxy radicals formed from MVK | L | 119 | | N2O5 | Dinitrogen pentoxide | E | 108 | | NALD | nitrooxyacetaldehyde | E | 105 | | NAPH | naphthalene | E | 128.2 | | NO | Nitric oxide | E | 30 | | NO2 | Nitrogen dioxide | E | 46 | | NO3 | Nitrogen trioxide | E | 62 | | O1D | Excited state oxygen atom, O(1D) | E | 16 | | O3 | Ozone | E | 48 | | O3P | Ground state oxygen atom, O(3P) | E | 16 | | OLI | Internal alkenes | E | 68 | | OLIP | Peroxy radicals formed from OLI | E | 117 | | OLND | NO3-alkene adduct reacting via decomposition | E | 136 | | OLNN | NO3-alkene adduct reacting to form carbonitrates + HO2 | E | 136 | | OLT | Terminal alkenes | L | 42 | | OLTP | Peroxy radicals formed from OLT | L | 91 | | ONIT | Organic nitrate | E | 119 | | OP1 | Methyl hydrogen peroxide | E | 48 | | OP2 | Higher organic peroxides | L | 62 | | ORA1 | Formic acid | E | 46 | | ORA2 | Acetic acid and higher acids | L | 60 | | ORAP | Peroxy radical formed from ORA2 + HO reaction | L | 109 | | PAA | Peroxyacetic acids and higher analogs | L | 76 | | PAHHRXN | Precursor of Hydro-Naphthalene Aerosol Material | L | 187.2 | | PAHNRXN | Precursor of Nitro-Naphthalene Aerosol Material | L | 187.2 | | PAHRO2 | Naphthalene hydroxyperoxy radical tracker from naphthalene and OH reaction; an aerosol precursor | L | 187.2 | | PAN | Peroxyacetyl nitrate and higher saturated PANs | L | 121 | | PER1 | Peroxy intermediate formed from TOL | E | 141 | | PER2 | Peroxy intermediate formed from TOL | E | 157 | | PHEN | phenol | E | 94 | | PPN | Peroxypropionyl nitrate | E | 135 | | RCO3 | Higher saturated acyl peroxy radicals | L | 90 | | ROH | C3 and higher alcohols | L | 60 | | SESQ | Sesquiterpenes | E | 204 | | SESQRXN | Precursor of Sesquiterpenes Aerosol Material | L | 204 | | SO2 | Sulfur dioxide | E | 64 | | SOAALK | Alkanes that produce aerosol material | L | 112 | | SULF | Sulfuric acid | E | 98 | | SULRXN | Precursor of Aerosol Sulfate | L | 98 | | TLP1 | Peroxy radicals formed from TOL | L | 91 | | TOL | Toluene and less reactive aromatics | L | 92 | | TOLHRXN | Precursor of Hydro-Toulene Aerosol Material | L | 141 | | TOLNRXN | Precursor of Nitro-Toulene Aerosol Material | L | 141 | | TOLP | Peroxy radicals formed from TOL | L | 141 | | TOLRO2 | Peroxy Radical tracer from TOL with OH reaction; an aerosol precursor | L | 141 | | TR2 | Peroxy radicals formed from TOL | L | 109 | | TRPRXN | Precursor of Terpene Aerosol Material | L | 136 | | UALD | Unsaturated aldehydes | L | 84 | | UALP | Peroxy radicals formed from UALD | L | 133 | | XO2 | Accounts for addition NO to NO2 conversions | L | 1 | | XY2 | Peroxy radicals formed from XYL | L | 124 | | XYL1 | Peroxy radicals formed from XYL | L | 156 | | XYLHRXN | Precursor of Hydro-Xylene Aerosol Material | L | 155 | | XYLNRXN | Precursor of Nitro-Xylene Aerosol Material | L | 155 | | XYLP | Peroxy radicals formed from XYL | L | 155 | | XYLRO2 | Xylene hydroxyperoxy radical tracker from xylene isomer and OH reactions;an aerosol precursor | L | 155 | | XYM | M-xylene | E | 106 | | XYO | o-xylene | E | 106 | | XYO2 | Peroxy radicals formed from XYO | L | 155 | | XYOP | Peroxy radicals formed from XYO | L | 155 | | XYP | P-xylene | E | 106 | | | **The AE namelist for racm2_ae6_aq has the following aerosol species.** | **Model Species** | **Definition** | **Molecular Weight** | **Explicit or Lumped** | |-----------|-----------------------------------------------------|--------------------| ----------------------| | AAL | Aluminum | 27 | E | | AALK1 | Semivolaitle SOA Product from Alkane VOCs | 225.0 | L | | AALK2 | Semivolatile SOA Product from Alkane VOCs | 205.1 | L | | ABNZ1 | Semivolatile High-NOx SOA Product from Benzene | 161.0 | L | | ABNZ2 | Semivolatile High-NOx SOA Product from Benzene | 134.0 | L | | ABNZ3 | Low-Volatility Low-NOx SOA Product from Benzene | 180.0 | L | | ACA | Calcium | 40.1 | E | | ACL | Chloride | 35.5 | E | | ACORS | Anthropogenic Coarse-mode particle mass | 100.0 | L | | AEC | Elemental Carbon | 12 | E | | AFE | Iron | 55.8 | E | | AH2O | Water | 18 | E | | AH3OP | Hydronium Ion | 19 | E | | AISO1 | Semivolatile SOA Product from Isoprene | 132.0 | L | | AISO2 | High-Volatility SOA Product from Isoprene | 133.0 | L | | AISO3 | Acid-catalyzed Isoprene Epoxydiol SOA | 168.2 | L | | AIVPO1 | Intermediate Volatility Primary Organic Compounds | 266 | L | | AK | Potassium | 39.1 | E | | ALVOO1 | Low Volatility Oxidized Combustion Organic Compounds | 136 | L | | ALVOO2 | Low Volatility Oxidized Combustion Organic Compounds | 136 | L | | ALVPO1 | Low Volatility Primary Organic Compounds | 218 | L | | AMG | Magnesium | 24.3 | E | | AMN | Manganese | 54.9 | E | | ANA | Sodium | 23 | E | | ANH4 | Ammonium | 18 | E | | ANO3 | Nitrate | 62 | E | | AOLGA | Oligomer products of anthropogenic SOA compounds | 206.0 | L | | AOLGB | Oligomer products of biogenic SOA compounds | 248.0 | L | | AORGC | Glyoxal and methylglyoxal SOA produced in cloud water | 177.0 | L | | AOTHR | Other Particulate Mass | 200 | L | | APAH1 | Semivolatile High-NOx SOA Product from PAHs | 195.6 | L | | APAH2 | Semivolatile High-NOx SOA Product from PAHs | 178.7 | L | | APAH3 | Low-Volatility Low-NOx SOA Product from PAHs | 212.2 | L | | APCSO | Potential Combustion SOA | 170 | L | | APNCOM | Non-Carbon Organic Matter associated with APOC | 220.0 | L | | APOC | Primary Organic Carbon | 220.0 | L | | ASEACAT | Sea spray cations | 23.75 | L | | ASI | Silicon | 28.1 | E | | ASO4 | Sulfate | 96 | E | | ASOIL | Lumped crustal species | 100.0 | L | | ASQT | Semivolatile SOA Product from Sesquiterpenes | 273.0 | L | | ASVOO1 | Semivolatile Oxidized Combustion Organic Compounds | 135 | L | | ASVOO2 | Semivolatile Oxidized Combustion Organic Compounds | 135 | L | | ASVOO3 | Semivolatile Oxidized Combustion Organic Compounds | 134 | L | | ASVPO1 | Semivolatile Primary Organic Compounds | 230 | L | | ASVPO2 | Semivolatile Primary Organic Compounds | 241 | L | | ASVPO3 | Semivolatile Primary Organic Compounds | 253 | L | | ATI | Titanium | 47.9 | E | | ATOL1 | Semivolatile High-NOx SOA Product from Toluene | 163.0 | L | | ATOL2 | Semivolaitle High-NOx SOA Product from Toluene | 175.0 | L | | ATOL3 | Low-Volatility Low-NOx SOA Product from Toluene | 194.0 | L | | ATRP1 | Semivolatile SOA Product from Monoterpenes | 177.0 | L | | ATRP2 | High-Volatility SOA Product from Monoterpenes | 198.0 | L | | AXYL1 | Semivolatile High-NOx SOA Product from Xylene | 174.0 | L | | AXYL2 | Semivolaitle High-NOx SOA Product from Xylene | 185.0 | L | | AXYL3 | Low-Volatility Low-NOx SOA Product from Xylene | 218.0 | L | | NUMACC | Accum. Mode Number Conc | NA | NA | | NUMAIT | Aitken Mode Number Conc | NA | NA | | NUMCOR | Coarse Mode Number Conc | NA | NA | | SRFACC | Accum. Mode Surface Area Conc | NA | NA | | SRFAIT | Aitken Mode Surface Area Conc | NA | NA | | SRFCOR | Coarse Mode Surface Area Conc | NA | NA | Note that for each aerosol mass species, a letter will be appended to the names below in order to designate the size, or mode, of the aerosol being represented: I = Aitken mode, J = Accumulation mode, K = Coarse mode. **The NR namelist for racm2_ae6_aq has the following gas phase species.** | **Model Species** | **Definition** | **Molecular Weight** | **Explicit or Lumped** | | ----------------- | ---------------------------------------------------- | -------------------- | ---------------------- | | LVPCSOG | surrogate SOA precursor gas for combustion/anthropogenic sources | 170.0 | L | | NH3 | ammonia | 17.0 | E | | SVALK1 | vapors of secondary aerosol material from alkane VOCs | 225.0 | L | | SVALK2 | vapors of secondary aerosol material from alkane VOCs | 205.1 | L | | SVXYL1 | vapors of secondary aerosol material from xylenes | 174.0 | L | | SVXYL2 | vapors of secondary aerosol material from xylenes | 185.0 | L | | SVTOL1 | vapors of secondary aerosol material from toluene | 163.0 | L | | SVTOL2 | vapors of secondary aerosol material from toluene | 175.0 | L | | SVBNZ1 | vapors of secondary aerosol material from benzene | 161.0 | L | | SVBNZ2 | vapors of secondary aerosol material from benzene | 134.0 | L | | SVPAH1 | vapors of secondary aerosol material from PAHs | 195.6 | L | | SVPAH2 | vapors of secondary aerosol material from PAHs | 178.7 | L | | SVTRP1 | vapors of secondary aerosol material from monoterpenes | 177.0 | L | | SVTRP2 | vapors of secondary aerosol material from monoterpenes | 198.0 | L | | SVISO1 | vapors of secondary aerosol material from isoprene | 132.0 | L | | SVISO2 | vapors of secondary aerosol material from isoprene | 133.0 | L | | SVSQT | vapors of secondary aerosol material from sesquiterpenes | 273.0 | L | ================================================ FILE: CCTM/src/MECHS/mechanism_information/racm2_ae6_aq/racm2_ae6_aq_species_table_aerosol.md ================================================ | **Model Species** | **Definition** | **Explicit or Lumped** | **Molecular Weight** | | ----------------- | -------------------------------------------------------------------------------------------------------- | ---------------------- | -------------------- | |AALK1J |Accumulation Mode Alkane Product 1|Aerosol|168 | |AALK2J |Accumulation Mode Alkane Product 2|Aerosol|168 | |ABNZ1J |Accumulation Mode Benzene Product 1|Aerosol|144 | |ABNZ2J |Accumulation Mode Benzene Product 2|Aerosol|144 | |AISO1J |Accumulation Mode Isoprene Product 1|Aerosol|96 | |AISO2J |Accumulation Mode Isoprene Product 2|Aerosol|96 | |AISO3J |Accumulation Mode Isoprene Product 3|Aerosol|168.2 | |ALKRXN |Precursor of Terpene Aerosol Material|Gas|112 | |AOLGAJ |Accumulation Mode Oligomerized Anthropogenic Material|Aerosol|176.4 | |AOLGBJ |Accumulation Mode Oligomerized Biogenic Material|Aerosol|252 | |APAH1J |Accumulation Mode PAH Product 1|Aerosol|243 | |APAH2J |Accumulation Mode PAH Product 2|Aerosol|243 | |APNCOMI |non-carbon organic matter (H, O, etc.) attached to POC in aitken mode|Aerosol|220 | |APNCOMJ |non-carbon organic matter (H, O, etc.) attached to POC in accumulation mode|Aerosol|220 | |APOCI |primary organic carbon in aitken mode|Aerosol|220 | |APOCJ |primary organic carbon in accumulation mode|Aerosol|220 | |ASQTJ |Accumulation Mode Sesquiterpene Aerosol|Aerosol|378 | |ATOL1J |Accumulation Mode Toulene Product 1|Aerosol|168 | |ATOL2J |Accumulation Mode Toulene Product 2|Aerosol|168 | |ATRP1J |Accumulation Mode Terpene Product 1|Aerosol|168 | |ATRP2J |Accumulation Mode Terpene Product 2|Aerosol|168 | |AXYL1J |Accumulation Mode Xylene Product 1|Aerosol|192 | |AXYL2J |Accumulation Mode Xylene Product 2|Aerosol|192 | |BNZHRXN |Precursor of Hydro-Benzene Aerosol Material|Gas|127 | |BNZNRXN |Precursor of Nitro-Benzene Aerosol Material|Gas|127 | |PAHHRXN |Precursor of Hydro-Naphthalene Aerosol Material|Gas|187.2 | |PAHNRXN |Precursor of Nitro-Naphthalene Aerosol Material|Gas|187.2 | |SESQRXN |Precursor of Sesquiterpenes Aerosol Material|Gas|204 | |SULRXN |Precursor of Aerosol Sulfate|Gas|98 | |TOLHRXN |Precursor of Hydro-Toulene Aerosol Material|Gas|141 | |TOLNRXN |Precursor of Nitro-Toulene Aerosol Material|Gas|141 | |TRPRXN |Precursor of Terpene Aerosol Material|Gas|136 | |XYLHRXN |Precursor of Hydro-Xylene Aerosol Material|Gas|155 | |XYLNRXN |Precursor of Nitro-Xylene Aerosol Material|Gas|155 | ================================================ FILE: CCTM/src/MECHS/mechanism_information/saprc07tc_ae6_aq/AE6_species_table.md ================================================ **The AE namelist for saprc07tc_ae6_aq has the following aerosol species.** | **Model Species** | **Name** | **Molecular Weight** | **Explicit or Lumped** | | ----------------- | ---------------------------------------------------- | -------------------- | ---------------------- | | AAL | Aluminum | 27 | E | | AALK1 | Semivolaitle SOA Product from Alkane VOCs | 225.0 | L | | AALK2 | Semivolatile SOA Product from Alkane VOCs | 205.1 | L | | ABNZ1 | Semivolatile High-NOx SOA Product from Benzene | 161.0 | L | | ABNZ2 | Semivolatile High-NOx SOA Product from Benzene | 134.0 | L | | ABNZ3 | Low-Volatility Low-NOx SOA Product from Benzene | 180.0 | L | | ACA | Calcium | 40.1 | E | | ACL | Chloride | 35.5 | E | | ACORS | Anthropogenic Coarse-mode particle mass | 100.0 | L | | AEC | Elemental Carbon | 12 | E | | AFE | Iron | 55.8 | E | | AH2O | Water | 18 | E | | AH3OP | Hydronium Ion | 19 | E | | AISO1 | Semivolatile SOA Product from Isoprene | 132.0 | L | | AISO2 | High-Volatility SOA Product from Isoprene | 133.0 | L | | AISO3 | Acid-Catalyzed Isoprene SOA compounds | 168.2 | L | | AIVPO1 | Intermediate Volatility Primary Organic Compounds | 266 | L | | AK | Potassium | 39.1 | E | | ALVOO1 | Low Volatility Oxidized Combustion Organic Compounds | 136 | L | | ALVOO2 | Low Volatility Oxidized Combustion Organic Compounds | 136 | L | | ALVPO1 | Low Volatility Primary Organic Compounds | 218 | L | | AMG | Magnesium | 24.3 | E | | AMN | Manganese | 54.9 | E | | ANA | Sodium | 23 | E | | ANH4 | Ammonium | 18 | E | | ANO3 | Nitrate | 62 | E | | AOLGA | Oligomer products of anthropogenic SOA compounds | 206.0 | L | | AOLGB | Oligomer products of biogenic SOA compounds | 248.0 | L | | AORGC | Glyoxal and Methylglyoxal SOA | 177.0 | L | | AOTHR | Other Particulate Mass | 200 | L | | APAH1 | Semivolatile High-NOx SOA Product from PAHs | 195.6 | L | | APAH2 | Semivolatile High-NOx SOA Product from PAHs | 178.7 | L | | APAH3 | Low-Volatility Low-NOx SOA Product from PAHs | 212.2 | L | | APCSO | Potential Combustion SOA | 170 | L | | APNCOM | Non-Carbon Organic Matter associated with APOC | 220.0 | L | | APOC | Primary Organic Carbon | 220.0 | L | | ASEACAT | Sea spray cations | 23.75 | L | | ASI | Silicon | 28.1 | E | | ASO4 | Sulfate | 96 | E | | ASOIL | Lumped crustal species | 100.0 | L | | ASQT | Semivolatile SOA Product from Sesquiterpenes | 273.0 | L | | ASVOO1 | Semivolatile Oxidized Combustion Organic Compounds | 135 | L | | ASVOO2 | Semivolatile Oxidized Combustion Organic Compounds | 135 | L | | ASVOO3 | Semivolatile Oxidized Combustion Organic Compounds | 134 | L | | ASVPO1 | Semivolatile Primary Organic Compounds | 230 | L | | ASVPO2 | Semivolatile Primary Organic Compounds | 241 | L | | ASVPO3 | Semivolatile Primary Organic Compounds | 253 | L | | ATI | Titanium | 47.9 | E | | ATOL1 | Semivolatile High-NOx SOA Product from Toluene | 163.0 | L | | ATOL2 | Semivolaitle High-NOx SOA Product from Toluene | 175.0 | L | | ATOL3 | Low-Volatility Low-NOx SOA Product from Toluene | 194.0 | L | | ATRP1 | Semivolatile SOA Product from Monoterpenes | 177.0 | L | | ATRP2 | High-Volatility SOA Product from Monoterpenes | 198.0 | L | | AXYL1 | Semivolatile High-NOx SOA Product from Xylene | 174.0 | L | | AXYL2 | Semivolaitle High-NOx SOA Product from Xylene | 185.0 | L | | AXYL3 | Low-Volatility Low-NOx SOA Product from Xylene | 218.0 | L | | NUMACC | Accum. Mode Number Conc | NA | NA | | NUMAIT | Aitken Mode Number Conc | NA | NA | | NUMCOR | Coarse Mode Number Conc | NA | NA | | SRFACC | Accum. Mode Surface Area Conc | NA | NA | | SRFAIT | Aitken Mode Surface Area Conc | NA | NA | | SRFCOR | Coarse Mode Surface Area Conc | NA | NA | Note that for each aerosol mass species, a letter will be appended to the names below in order to designate the size, or mode, of the aerosol being represented: I = Aitken mode, J = Accumulation mode, K = Coarse mode. ================================================ FILE: CCTM/src/MECHS/mechanism_information/saprc07tc_ae6_aq/NR_species_table.md ================================================ **The NR namelist for sapr07tc_ae6_aq has the following gas phase species.** | **Model Species** | **Name** | **Molecular Weight** | **Explicit or Lumped** | | ----------------- | ---------------------------------------------------- | -------------------- | ---------------------- | | LVPCSOG | surrogate SOA precursor gas for combustion/anthropogenic sources | 170.0 | L | | NH3 | ammonia | 17.0 | E | | SVALK1 | vapors of secondary aerosol material from alkane VOCs | 225.0 | L | | SVALK2 | vapors of secondary aerosol material from alkane VOCs | 205.1 | L | | SVXYL1 | vapors of secondary aerosol material from xylenes | 174.0 | L | | SVXYL2 | vapors of secondary aerosol material from xylenes | 185.0 | L | | SVTOL1 | vapors of secondary aerosol material from toluene | 163.0 | L | | SVTOL2 | vapors of secondary aerosol material from toluene | 175.0 | L | | SVBNZ1 | vapors of secondary aerosol material from benzene | 161.0 | L | | SVBNZ2 | vapors of secondary aerosol material from benzene | 134.0 | L | | SVPAH1 | vapors of secondary aerosol material from PAHs | 195.6 | L | | SVPAH2 | vapors of secondary aerosol material from PAHs | 178.7 | L | | SVTRP1 | vapors of secondary aerosol material from monoterpenes | 177.0 | L | | SVTRP2 | vapors of secondary aerosol material from monoterpenes | 198.0 | L | | SVISO1 | vapors of secondary aerosol material from isoprene | 132.0 | L | | SVISO2 | vapors of secondary aerosol material from isoprene | 133.0 | L | | SVSQT | vapors of secondary aerosol material from sesquiterpenes | 273.0 | L | ================================================ FILE: CCTM/src/MECHS/mechanism_information/saprc07tc_ae6_aq/mech_saprc07tc_ae6_aq.md ================================================ Information is based on the mech.def file. * Fall-off or pressure dependent reaction rate constants (M equals air number density): * For rate constants with ko, ki, n, F values: k = [ koM/(1+koM/ki)]FG, where G=(1+(log10(koM/ki)/n)2))-1 * For rate constants with k1, k2: k = k1 + k2M * For rate constants with k0, k2, k3: k = k0 + k3M/(1+k3M/k2) * For rate constants with k1, k2, k3: k = k1 + k2M + k3 * For rate constants with the form A<_Reference_>, k equals A times a reference that represents photolysis rate, a heteorogeneous rate constant, rate constant for the given reaction or an operator. A equals one if not given. * In the mechanism definition file, the rate is formatted as * A~<_HETEOROGENEOUS_> * A*K<_REACTION_> * A/<_PHOTOLYSIS_> * A?<_OPERATOR_> |Label|Reaction |Rate Constant Formula| Value
molecules/(sec*cm3)| |:---|:-------------------|:--------------------|:----:| | 1 | NO2 ----> NO + O3P | NO2_06 | Not Available1 | | 2 | O3P + O2 + M ----> O3 | 5.68E-34(T/300) -2.60 | 5.7721E-34 | | 3 | O3P + O3 ----> | 8.00E-12e -2060.00/T | 7.9879E-15 | | 4 | O3P + NO ----> NO2 | ko= 9.00E-32e 0.0/T(T/300) -1.50
ki = 3.00E-11e 0.0/T(T/300) 0.00
n= 1.00;F= 0.60 | 1.6618E-12 | | 5 | O3P + NO2 ----> NO | 5.50E-12e 188.00/T | 1.0333E-11 | | 6 | O3P + NO2 ----> NO3 | ko= 2.50E-31e 0.0/T(T/300) -1.80
ki = 2.20E-11e 0.0/T(T/300) -0.70
n= 1.00;F= 0.60 | 3.2805E-12 | | 7 | O3 + NO ----> NO2 | 3.00E-12e -1500.00/T | 1.9596E-14 | | 8 | O3 + NO2 ----> NO3 | 1.40E-13e -2470.00/T | 3.5339E-17 | | 9 | NO + NO3 ----> 2.000\*NO2 | 1.80E-11e 110.00/T | 2.6032E-11 | | 10 | NO + NO + O2 ----> 2.000\*NO2 | 3.30E-39e 530.00/T | 1.9522E-38 | | 11 | NO2 + NO3 ----> N2O5 | ko= 3.60E-30e 0.0/T(T/300) -4.10
ki = 1.90E-12e 0.0/T(T/300) 0.20
n= 1.33;F= 0.35 | 1.2406E-12 | | 12 | N2O5 ----> NO2 + NO3 | ko= 1.30E-03e-11000.0/T(T/300) -3.50
ki = 9.70E+14e-11080.0/T(T/300) 0.10
n= 1.33;F= 0.35 | 4.5396E-02 | | 13 | N2O5 + H2O ----> 2.000\*HNO3 | 1.0000E-22 | 1.0000E-22 | | 14 | N2O5 + H2O + H2O ----> 2.000\*HNO3 | 0.0000E+00 | 0.0000E+00 | | 15 | NO2 + NO3 ----> NO + NO2 | 4.50E-14e -1260.00/T | 6.5744E-16 | | 16 | NO3 ----> NO | NO3NO_06 | Not Available1 | | 17 | NO3 ----> NO2 + O3P | NO3NO2_6 | Not Available1 | | 18 | O3 ----> O1D | O3O1D_06 | Not Available1 | | 19 | O3 ----> O3P | O3O3P_06 | Not Available1 | | 20 | O1D + H2O ----> 2.000\*OH | 1.63E-10e 60.00/T | 1.9934E-10 | | 21 | O1D + M ----> O3P | 2.38E-11e 96.00/T | 3.2841E-11 | | 22 | OH + NO ----> HONO | ko= 7.00E-31e 0.0/T(T/300) -2.60
ki = 3.60E-11e 0.0/T(T/300) -0.10
n= 1.00;F= 0.60 | 7.3998E-12 | | 23 | HONO ----> OH + NO | HONO_06 | Not Available1 | | 24 | OH + HONO ----> NO2 | 2.50E-12e 260.00/T | 5.9795E-12 | | 25 | OH + NO2 ----> HNO3 | ko= 3.20E-30e 0.0/T(T/300) -4.50
ki = 3.00E-11e 0.0/T(T/300) 0.00
n= 1.24;F= 0.41 | 9.8821E-12 | | 26 | OH + NO3 ----> HO2 + NO2 | 2.0000E-11 | 2.0000E-11 | | 27 | OH + HNO3 ----> NO3 | k0= 2.40E-14e 460.0/T
k1= 2.70E-17e 2199.0/T
k3= 6.50E-34e 1335.0/T | 1.5409E-13 | | 28 | HNO3 ----> OH + NO2 | HNO3 | Not Available1 | | 29 | OH + CO ----> HO2 + CO2 | k0= 1.44E-13e 0.0/T
k1= 3.43E-33e 0.0/T | 2.2843E-13 | | 30 | OH + O3 ----> HO2 | 1.70E-12e -940.00/T | 7.2647E-14 | | 31 | HO2 + NO ----> OH + NO2 | 3.60E-12e 270.00/T | 8.9042E-12 | | 32 | HO2 + NO2 ----> HNO4 | ko= 2.00E-31e 0.0/T(T/300) -3.40
ki = 2.90E-12e 0.0/T(T/300) -1.10
n= 1.00;F= 0.60 | 1.1385E-12 | | 33 | HNO4 ----> HO2 + NO2 | ko= 3.72E-05e-10650.0/T(T/300) -2.40
ki = 5.42E+15e-11170.0/T(T/300) -2.30
n= 1.00;F= 0.60 | 8.6986E-02 | | 34 | HNO4 ----> 0.610\*HO2 + 0.610\*NO2 + 0.390\*OH + 0.390\*NO3 | HNO4_06 | Not Available1 | | 35 | HNO4 + OH ----> NO2 | 1.30E-12e 380.00/T | 4.6501E-12 | | 36 | HO2 + O3 ----> OH | 2.03E-16e 693.00/T(T/300) 4.57 | 2.0168E-15 | | 37 | HO2 + HO2 ----> HO2H | k0= 2.20E-13e 600.0/T
k1= 1.90E-33e 980.0/T | 2.8975E-12 | | 38 | HO2 + HO2 + H2O ----> HO2H | k0= 3.08E-34e 2800.0/T
k1= 2.66E-54e 3180.0/T | 6.4973E-30 | | 39 | NO3 + HO2 ----> 0.800\*OH + 0.800\*NO2 + 0.200\*HNO3 | 4.0000E-12 | 4.0000E-12 | | 40 | NO3 + NO3 ----> 2.000\*NO2 | 8.50E-13e -2450.00/T | 2.2944E-16 | | 41 | HO2H ----> 2.000\*OH | H2O2 | Not Available1 | | 42 | HO2H + OH ----> HO2 | 1.8000E-12 | 1.8000E-12 | | 43 | OH + HO2 ----> | 4.80E-11e 250.00/T | 1.1102E-10 | | 44 | OH + SO2 ----> HO2 + SULF + SULRXN | ko= 3.30E-31e 0.0/T(T/300) -4.30
ki = 1.60E-12e 0.0/T(T/300) 0.00
n= 1.00;F= 0.60 | 9.5810E-13 | | 45 | OH + H2 ----> HO2 | 7.70E-12e -2100.00/T | 6.7230E-15 | | BR01 | MEO2 + NO ----> NO2 + HCHO + HO2 | 2.30E-12e 360.00/T | 7.6933E-12 | | BR02 | MEO2 + HO2 ----> COOH | 3.46E-13e 780.00/T(T/300) 0.36 | 4.7237E-12 | | BR03 | MEO2 + HO2 ----> HCHO | 3.34E-14e 780.00/T(T/300) -3.53 | 4.6709E-13 | | BR04 | MEO2 + NO3 ----> HCHO + HO2 + NO2 | 1.3000E-12 | 1.3000E-12 | | BR05 | MEO2 + MEO2 ----> MEOH + HCHO | 6.39E-14e 365.00/T(T/300) -1.80 | 2.1979E-13 | | BR06 | MEO2 + MEO2 ----> 2.000\*HCHO + 2.000\*HO2 | 7.40E-13e -520.00/T | 1.2936E-13 | | BR07 | RO2C + NO ----> NO2 | 2.60E-12e 380.00/T | 9.3002E-12 | | BR08 | RO2C + HO2 ----> | 3.80E-13e 900.00/T | 7.7759E-12 | | BR09 | RO2C + NO3 ----> NO2 | 2.3000E-12 | 2.3000E-12 | | BR10 | RO2C + MEO2 ----> 0.500\*HO2 + 0.750\*HCHO + 0.250\*MEOH | 2.0000E-13 | 2.0000E-13 | | BR11 | RO2C + RO2C ----> | 3.5000E-14 | 3.5000E-14 | | BR12 | RO2XC + NO ----> | BR07 | 9.3002E-127| | BR13 | RO2XC + HO2 ----> | BR08 | 7.7759E-127| | BR14 | RO2XC + NO3 ----> NO2 | BR09 | 2.3000E-127| | BR15 | RO2XC + MEO2 ----> 0.500\*HO2 + 0.750\*HCHO + 0.250\*MEOH | BR10 | 2.0000E-137| | BR16 | RO2XC + RO2C ----> | BR11 | 3.5000E-147| | BR17 | RO2XC + RO2XC ----> | BR11 | 3.5000E-147| | BR18 | MECO3 + NO2 ----> PAN | ko= 2.70E-28e 0.0/T(T/300) -7.10
ki = 1.21E-11e 0.0/T(T/300) -0.90
n= 1.41;F= 0.30 | 9.4624E-12 | | BR19 | PAN ----> MECO3 + NO2 | ko= 4.90E-03e-12100.0/T(T/300) 0.00
ki = 4.00E+16e-13600.0/T(T/300) 0.00
n= 1.41;F= 0.30 | 4.7483E-04 | | BR20 | PAN ----> 0.600\*MECO3 + 0.600\*NO2 + 0.400\*MEO2 + 0.400\*CO2 + 0.400\*NO3 | PAN | Not Available1 | | BR21 | MECO3 + NO ----> MEO2 + CO2 + NO2 | 7.50E-12e 290.00/T | 1.9837E-11 | | BR22 | MECO3 + HO2 ----> 0.105\*CCOOOH + 0.045\*CCOOH + 0.150\*O3 + 0.440\*OH + 0.440\*MEO2 + 0.440\*CO2 | 5.20E-13e 980.00/T | 1.3916E-11 | | BR23 | MECO3 + NO3 ----> MEO2 + CO2 + NO2 | BR09 | 2.3000E-127| | BR24 | MECO3 + MEO2 ----> 0.100\*CCOOH + HCHO + 0.900\*HO2 + 0.900\*MEO2 + 0.900\*CO2 | 2.00E-12e 500.00/T | 1.0699E-11 | | BR25 | MECO3 + RO2C ----> MEO2 + CO2 | 4.40E-13e 1070.00/T | 1.5924E-11 | | BR26 | MECO3 + RO2XC ----> MEO2 + CO2 | BR25 | 1.5924E-117| | BR27 | MECO3 + MECO3 ----> 2.000\*MEO2 + 2.000\*CO2 | 2.90E-12e 500.00/T | 1.5514E-11 | | BR28 | RCO3 + NO2 ----> PAN2 | 1.21E-11e 0.00/T(T/300) -1.07 | 1.2180E-11 | | BR29 | PAN2 ----> RCO3 + NO2 | 8.30E+16e-13940.00/T | 4.1081E-04 | | BR30 | PAN2 ----> 0.600\*RCO3 + 0.600\*NO2 + 0.400\*RO2C + 0.400\*xHO2 + 0.400\*yROOH + 0.400\*xCCHO + 0.400\*CO2 + 0.400\*NO3 | PAN | Not Available1 | | BR31 | RCO3 + NO ----> NO2 + RO2C + xHO2 + yROOH + xCCHO + CO2 | 6.70E-12e 340.00/T | 2.0957E-11 | | BR32 | RCO3 + HO2 ----> 0.307\*RCOOOH + 0.102\*RCOOH + 0.150\*O3 + 0.440\*OH + 0.440\*xHO2 + 0.440\*RO2C + 0.440\*CO2 + 0.440\*xCCHO + 0.440\*yROOH | BR22 | 1.3916E-117| | BR33 | RCO3 + NO3 ----> NO2 + RO2C + xHO2 + yROOH + xCCHO + CO2 | BR09 | 2.3000E-127| | BR34 | RCO3 + MEO2 ----> HCHO + HO2 + RO2C + xHO2 + xCCHO + yROOH + CO2 | BR24 | 1.0699E-117| | BR35 | RCO3 + RO2C ----> RO2C + xHO2 + xCCHO + yROOH + CO2 | BR25 | 1.5924E-117| | BR36 | RCO3 + RO2XC ----> RO2C + xHO2 + xCCHO + yROOH + CO2 | BR25 | 1.5924E-117| | BR37 | RCO3 + MECO3 ----> 2.000\*CO2 + MEO2 + RO2C + xHO2 + yROOH + xCCHO | BR27 | 1.5514E-117| | BR38 | RCO3 + RCO3 ----> 2.000\*RO2C + 2.000\*xHO2 + 2.000\*xCCHO + 2.000\*yROOH + 2.000\*CO2 | BR27 | 1.5514E-117| | BR39 | BZCO3 + NO2 ----> PBZN | 1.3700E-11 | 1.3700E-11 | | BR40 | PBZN ----> BZCO3 + NO2 | 7.90E+16e-14000.00/T | 3.1974E-04 | | BR41 | PBZN ----> 0.600\*BZCO3 + 0.600\*NO2 + 0.400\*CO2 + 0.400\*BZO + 0.400\*RO2C + 0.400\*NO3 | PAN | Not Available1 | | BR42 | BZCO3 + NO ----> NO2 + CO2 + BZO + RO2C | BR31 | 2.0957E-117| | BR43 | BZCO3 + HO2 ----> 0.307\*RCOOOH + 0.102\*RCOOH + 0.150\*O3 + 0.440\*OH + 0.440\*BZO + 0.440\*RO2C + 0.440\*CO2 | BR22 | 1.3916E-117| | BR44 | BZCO3 + NO3 ----> NO2 + CO2 + BZO + RO2C | BR09 | 2.3000E-127| | BR45 | BZCO3 + MEO2 ----> HCHO + HO2 + RO2C + BZO + CO2 | BR24 | 1.0699E-117| | BR46 | BZCO3 + RO2C ----> RO2C + BZO + CO2 | BR25 | 1.5924E-117| | BR47 | BZCO3 + RO2XC ----> RO2C + BZO + CO2 | BR25 | 1.5924E-117| | BR48 | BZCO3 + MECO3 ----> 2.000\*CO2 + MEO2 + BZO + RO2C | BR27 | 1.5514E-117| | BR49 | BZCO3 + RCO3 ----> 2.000\*CO2 + 2.000\*RO2C + xHO2 + yROOH + xCCHO + BZO | BR27 | 1.5514E-117| | BR50 | BZCO3 + BZCO3 ----> 2.000\*BZO + 2.000\*RO2C + 2.000\*CO2 | BR27 | 1.5514E-117| | BR51 | MACO3 + NO2 ----> MAPAN | BR28 | 1.2180E-117| | BR52 | MAPAN ----> MACO3 + NO2 | 1.60E+16e-13486.00/T | 3.6308E-04 | | BR53 | MAPAN ----> 0.600\*MACO3 + 0.600\*NO2 + 0.400\*CO2 + 0.400\*HCHO + 0.400\*MECO3 + 0.400\*NO3 | PAN | Not Available1 | | BR54 | MACO3 + NO ----> NO2 + CO2 + HCHO + MECO3 | BR31 | 2.0957E-117| | BR55 | MACO3 + HO2 ----> 0.307\*RCOOOH + 0.102\*RCOOH + 0.150\*O3 + 0.440\*OH + 0.440\*HCHO + 0.440\*MECO3 + 0.440\*CO2 | BR22 | 1.3916E-117| | BR56 | MACO3 + NO3 ----> NO2 + CO2 + HCHO + MECO3 | BR09 | 2.3000E-127| | BR57 | MACO3 + MEO2 ----> 2.000\*HCHO + HO2 + CO2 + MECO3 | BR24 | 1.0699E-117| | BR58 | MACO3 + RO2C ----> CO2 + HCHO + MECO3 | BR25 | 1.5924E-117| | BR59 | MACO3 + RO2XC ----> CO2 + HCHO + MECO3 | BR25 | 1.5924E-117| | BR60 | MACO3 + MECO3 ----> 2.000\*CO2 + MEO2 + HCHO + MECO3 | BR27 | 1.5514E-117| | BR61 | MACO3 + RCO3 ----> HCHO + MECO3 + RO2C + xHO2 + yROOH + xCCHO + 2.000\*CO2 | BR27 | 1.5514E-117| | BR62 | MACO3 + BZCO3 ----> HCHO + MECO3 + BZO + RO2C + 2.000\*CO2 | BR27 | 1.5514E-117| | BR63 | MACO3 + MACO3 ----> 2.000\*HCHO + 2.000\*MECO3 + 2.000\*CO2 | BR27 | 1.5514E-117| | BR64 | TBUO + NO2 ----> RNO3 | 2.4000E-11 | 2.4000E-11 | | BR65 | TBUO ----> ACETONE + MEO2 | 7.50E+14e -8152.00/T | 1.0014E+03 | | BR66 | BZO + NO2 ----> NPHE | 2.30E-11e 150.00/T | 3.8038E-11 | | BR67 | BZO + HO2 ----> CRES | BR08 | 7.7759E-127| | BR68 | BZO ----> CRES + RO2C + xHO2 | 1.0000E-03 | 1.0000E-03 | | R019 | xHO2 + NO ----> NO + HO2 | BR07 | 9.3002E-127| | R020 | xHO2 + HO2 ----> HO2 | BR08 | 7.7759E-127| | R021 | xHO2 + NO3 ----> NO3 + HO2 | BR09 | 2.3000E-127| | R022 | xHO2 + MEO2 ----> MEO2 + 0.500\*HO2 | BR10 | 2.0000E-137| | R023 | xHO2 + RO2C ----> RO2C + 0.500\*HO2 | BR11 | 3.5000E-147| | R024 | xHO2 + RO2XC ----> RO2XC + 0.500\*HO2 | BR11 | 3.5000E-147| | R025 | xHO2 + MECO3 ----> MECO3 + HO2 | BR25 | 1.5924E-117| | R026 | xHO2 + RCO3 ----> RCO3 + HO2 | BR25 | 1.5924E-117| | R027 | xHO2 + BZCO3 ----> BZCO3 + HO2 | BR25 | 1.5924E-117| | R028 | xHO2 + MACO3 ----> MACO3 + HO2 | BR25 | 1.5924E-117| | R029 | xOH + NO ----> NO + OH | BR07 | 9.3002E-127| | R030 | xOH + HO2 ----> HO2 | BR08 | 7.7759E-127| | R031 | xOH + NO3 ----> NO3 + OH | BR09 | 2.3000E-127| | R032 | xOH + MEO2 ----> MEO2 + 0.500\*OH | BR10 | 2.0000E-137| | R033 | xOH + RO2C ----> RO2C + 0.500\*OH | BR11 | 3.5000E-147| | R034 | xOH + RO2XC ----> RO2XC + 0.500\*OH | BR11 | 3.5000E-147| | R035 | xOH + MECO3 ----> MECO3 + OH | BR25 | 1.5924E-117| | R036 | xOH + RCO3 ----> RCO3 + OH | BR25 | 1.5924E-117| | R037 | xOH + BZCO3 ----> BZCO3 + OH | BR25 | 1.5924E-117| | R038 | xOH + MACO3 ----> MACO3 + OH | BR25 | 1.5924E-117| | R039 | xNO2 + NO ----> NO + NO2 | BR07 | 9.3002E-127| | R040 | xNO2 + HO2 ----> HO2 | BR08 | 7.7759E-127| | R041 | xNO2 + NO3 ----> NO3 + NO2 | BR09 | 2.3000E-127| | R042 | xNO2 + MEO2 ----> MEO2 + 0.500\*NO2 | BR10 | 2.0000E-137| | R043 | xNO2 + RO2C ----> RO2C + 0.500\*NO2 | BR11 | 3.5000E-147| | R044 | xNO2 + RO2XC ----> RO2XC + 0.500\*NO2 | BR11 | 3.5000E-147| | R045 | xNO2 + MECO3 ----> MECO3 + NO2 | BR25 | 1.5924E-117| | R046 | xNO2 + RCO3 ----> RCO3 + NO2 | BR25 | 1.5924E-117| | R047 | xNO2 + BZCO3 ----> BZCO3 + NO2 | BR25 | 1.5924E-117| | R048 | xNO2 + MACO3 ----> MACO3 + NO2 | BR25 | 1.5924E-117| | R049 | xMEO2 + NO ----> NO + MEO2 | BR07 | 9.3002E-127| | R050 | xMEO2 + HO2 ----> HO2 | BR08 | 7.7759E-127| | R051 | xMEO2 + NO3 ----> NO3 + MEO2 | BR09 | 2.3000E-127| | R052 | xMEO2 + MEO2 ----> 1.500\*MEO2 | BR10 | 2.0000E-137| | R053 | xMEO2 + RO2C ----> RO2C + 0.500\*MEO2 | BR11 | 3.5000E-147| | R054 | xMEO2 + RO2XC ----> RO2XC + 0.500\*MEO2 | BR11 | 3.5000E-147| | R055 | xMEO2 + MECO3 ----> MECO3 + MEO2 | BR25 | 1.5924E-117| | R056 | xMEO2 + RCO3 ----> RCO3 + MEO2 | BR25 | 1.5924E-117| | R057 | xMEO2 + BZCO3 ----> BZCO3 + MEO2 | BR25 | 1.5924E-117| | R058 | xMEO2 + MACO3 ----> MACO3 + MEO2 | BR25 | 1.5924E-117| | R059 | xMECO3 + NO ----> NO + MECO3 | BR07 | 9.3002E-127| | R060 | xMECO3 + HO2 ----> HO2 | BR08 | 7.7759E-127| | R061 | xMECO3 + NO3 ----> NO3 + MECO3 | BR09 | 2.3000E-127| | R062 | xMECO3 + MEO2 ----> MEO2 + 0.500\*MECO3 | BR10 | 2.0000E-137| | R063 | xMECO3 + RO2C ----> RO2C + 0.500\*MECO3 | BR11 | 3.5000E-147| | R064 | xMECO3 + RO2XC ----> RO2XC + 0.500\*MECO3 | BR11 | 3.5000E-147| | R065 | xMECO3 + MECO3 ----> 2.000\*MECO3 | BR25 | 1.5924E-117| | R066 | xMECO3 + RCO3 ----> RCO3 + MECO3 | BR25 | 1.5924E-117| | R067 | xMECO3 + BZCO3 ----> BZCO3 + MECO3 | BR25 | 1.5924E-117| | R068 | xMECO3 + MACO3 ----> MACO3 + MECO3 | BR25 | 1.5924E-117| | R069 | xRCO3 + NO ----> NO + RCO3 | BR07 | 9.3002E-127| | R070 | xRCO3 + HO2 ----> HO2 | BR08 | 7.7759E-127| | R071 | xRCO3 + NO3 ----> NO3 + RCO3 | BR09 | 2.3000E-127| | R072 | xRCO3 + MEO2 ----> MEO2 + 0.500\*RCO3 | BR10 | 2.0000E-137| | R073 | xRCO3 + RO2C ----> RO2C + 0.500\*RCO3 | BR11 | 3.5000E-147| | R074 | xRCO3 + RO2XC ----> RO2XC + 0.500\*RCO3 | BR11 | 3.5000E-147| | R075 | xRCO3 + MECO3 ----> MECO3 + RCO3 | BR25 | 1.5924E-117| | R076 | xRCO3 + RCO3 ----> 2.000\*RCO3 | BR25 | 1.5924E-117| | R077 | xRCO3 + BZCO3 ----> BZCO3 + RCO3 | BR25 | 1.5924E-117| | R078 | xRCO3 + MACO3 ----> MACO3 + RCO3 | BR25 | 1.5924E-117| | R079 | xMACO3 + NO ----> NO + MACO3 | BR07 | 9.3002E-127| | R080 | xMACO3 + HO2 ----> HO2 | BR08 | 7.7759E-127| | R081 | xMACO3 + NO3 ----> NO3 + MACO3 | BR09 | 2.3000E-127| | R082 | xMACO3 + MEO2 ----> MEO2 + 0.500\*MACO3 | BR10 | 2.0000E-137| | R083 | xMACO3 + RO2C ----> RO2C + 0.500\*MACO3 | BR11 | 3.5000E-147| | R084 | xMACO3 + RO2XC ----> RO2XC + 0.500\*MACO3 | BR11 | 3.5000E-147| | R085 | xMACO3 + MECO3 ----> MECO3 + MACO3 | BR25 | 1.5924E-117| | R086 | xMACO3 + RCO3 ----> RCO3 + MACO3 | BR25 | 1.5924E-117| | R087 | xMACO3 + BZCO3 ----> BZCO3 + MACO3 | BR25 | 1.5924E-117| | R088 | xMACO3 + MACO3 ----> 2.000\*MACO3 | BR25 | 1.5924E-117| | R089 | xTBUO + NO ----> NO + TBUO | BR07 | 9.3002E-127| | R090 | xTBUO + HO2 ----> HO2 | BR08 | 7.7759E-127| | R091 | xTBUO + NO3 ----> NO3 + TBUO | BR09 | 2.3000E-127| | R092 | xTBUO + MEO2 ----> MEO2 + 0.500\*TBUO | BR10 | 2.0000E-137| | R093 | xTBUO + RO2C ----> RO2C + 0.500\*TBUO | BR11 | 3.5000E-147| | R094 | xTBUO + RO2XC ----> RO2XC + 0.500\*TBUO | BR11 | 3.5000E-147| | R095 | xTBUO + MECO3 ----> MECO3 + TBUO | BR25 | 1.5924E-117| | R096 | xTBUO + RCO3 ----> RCO3 + TBUO | BR25 | 1.5924E-117| | R097 | xTBUO + BZCO3 ----> BZCO3 + TBUO | BR25 | 1.5924E-117| | R098 | xTBUO + MACO3 ----> MACO3 + TBUO | BR25 | 1.5924E-117| | R099 | xCO + NO ----> NO + CO | BR07 | 9.3002E-127| | R100 | xCO + HO2 ----> HO2 | BR08 | 7.7759E-127| | R101 | xCO + NO3 ----> NO3 + CO | BR09 | 2.3000E-127| | R102 | xCO + MEO2 ----> MEO2 + 0.500\*CO | BR10 | 2.0000E-137| | R103 | xCO + RO2C ----> RO2C + 0.500\*CO | BR11 | 3.5000E-147| | R104 | xCO + RO2XC ----> RO2XC + 0.500\*CO | BR11 | 3.5000E-147| | R105 | xCO + MECO3 ----> MECO3 + CO | BR25 | 1.5924E-117| | R106 | xCO + RCO3 ----> RCO3 + CO | BR25 | 1.5924E-117| | R107 | xCO + BZCO3 ----> BZCO3 + CO | BR25 | 1.5924E-117| | R108 | xCO + MACO3 ----> MACO3 + CO | BR25 | 1.5924E-117| | BP01 | HCHO ----> 2.000\*HO2 + CO | HCHOR_06 | Not Available1 | | BP02 | HCHO ----> CO | HCHOM_06 | Not Available1 | | BP03 | HCHO + OH ----> HO2 + CO | 5.40E-12e 135.00/T | 8.4926E-12 | | BP07 | HCHO + NO3 ----> HNO3 + HO2 + CO | 2.00E-12e -2431.00/T | 5.7539E-16 | | BP08 | CCHO + OH ----> MECO3 | 4.40E-12e 365.00/T | 1.4967E-11 | | BP09 | CCHO ----> CO + HO2 + MEO2 | CCHO_R | Not Available1 | | BP10 | CCHO + NO3 ----> HNO3 + MECO3 | 1.40E-12e -1860.00/T | 2.7340E-15 | | BP11 | RCHO + OH ----> 0.965\*RCO3 + 0.035\*RO2C + 0.035\*xHO2 + 0.035\*xCO + 0.035\*xCCHO + 0.035\*yROOH | 5.10E-12e 405.00/T | 1.9838E-11 | | BP12 | RCHO ----> RO2C + xHO2 + yROOH + xCCHO + CO + HO2 | C2CHO | Not Available1 | | BP13 | RCHO + NO3 ----> HNO3 + RCO3 | 1.40E-12e -1601.00/T | 6.5172E-15 | | BP14 | ACETONE + OH ----> RO2C + xMECO3 + xHCHO + yROOH | 4.56E-14e 429.00/T(T/300) 3.65 | 1.8796E-13 | | BP15 | ACETONE ----> 0.620\*MECO3 + 1.380\*MEO2 + 0.380\*CO | 5.0000E-01\*ACET_06 | Not Available1 | | BP16 | MEK + OH ----> 0.967\*RO2C + 0.039\*RO2XC + 0.039\*zRNO3 + 0.376\*xHO2 + 0.510\*xMECO3 + 0.074\*xRCO3 + 0.088\*xHCHO + 0.504\*xCCHO + 0.376\*xRCHO + yROOH | 1.30E-12e -25.00/T(T/300) 2.00 | 1.1807E-12 | | BP17 | MEK ----> MECO3 + RO2C + xHO2 + xCCHO + yROOH | 1.7500E-01\*MEK_06 | Not Available1 | | BP18 | MEOH + OH ----> HCHO + HO2 | 2.85E-12e -345.00/T | 8.9600E-13 | | BP19 | HCOOH + OH ----> HO2 + CO2 | 4.5000E-13 | 4.5000E-13 | | BP20 | CCOOH + OH ----> 0.509\*MEO2 + 0.491\*RO2C + 0.509\*CO2 + 0.491\*xHO2 + 0.491\*xMGLY + 0.491\*yROOH | 4.20E-14e 855.00/T | 7.3904E-13 | | BP21 | RCOOH + OH ----> RO2C + xHO2 + 0.143\*CO2 + 0.142\*xCCHO + 0.400\*xRCHO + 0.457\*xBACL + yROOH | 1.2000E-12 | 1.2000E-12 | | BP22 | COOH + OH ----> 0.300\*HCHO + 0.300\*OH + 0.700\*MEO2 | 3.80E-12e 200.00/T | 7.4321E-12 | | BP23 | COOH ----> HCHO + HO2 + OH | COOH | Not Available1 | | BP24 | ROOH + OH ----> 0.744\*OH + 0.251\*RO2C + 0.004\*RO2XC + 0.004\*zRNO3 + 0.744\*RCHO + 0.239\*xHO2 + 0.012\*xOH + 0.012\*xHCHO + 0.012\*xCCHO + 0.205\*xRCHO + 0.034\*xPROD2 + 0.256\*yROOH | 2.5000E-11 | 2.5000E-11 | | BP25 | ROOH ----> RCHO + HO2 + OH | COOH | Not Available1 | | BP26 | R6OOH + OH ----> 0.840\*OH + 0.222\*RO2C + 0.029\*RO2XC + 0.029\*zRNO3 + 0.840\*PRD2 + 0.090\*xHO2 + 0.041\*xOH + 0.020\*xCCHO + 0.075\*xRCHO + 0.084\*xPROD2 + 0.160\*yROOH | 5.6000E-11 | 5.6000E-11 | | BP27 | R6OOH ----> OH + 0.142\*HO2 + 0.782\*RO2C + 0.077\*RO2XC + 0.077\*zRNO3 + 0.085\*RCHO + 0.142\*PRD2 + 0.782\*xHO2 + 0.026\*xCCHO + 0.058\*xRCHO + 0.698\*xPROD2 + 0.858\*yR6OOH | COOH | Not Available1 | | BP28 | RAOOH + OH ----> 0.139\*OH + 0.148\*HO2 + 0.589\*RO2C + 0.124\*RO2XC + 0.124\*zRNO3 + 0.074\*PRD2 + 0.147\*MGLY + 0.139\*IPRD + 0.565\*xHO2 + 0.024\*xOH + 0.448\*xRCHO + 0.026\*xGLY + 0.030\*xMEK + 0.252\*xMGLY + 0.073\*xAFG1 + 0.073\*xAFG2 + 0.713\*yR6OOH | 1.4100E-10 | 1.4100E-10 | | BP29 | RAOOH ----> OH + HO2 + 0.500\*GLY + 0.500\*MGLY + 0.500\*AFG1 + 0.500\*AFG2 | COOH | Not Available1 | | BP30 | GLY ----> 2.000\*CO + 2.000\*HO2 | GLY_07R | Not Available1 | | BP31 | GLY ----> HCHO + CO | GLY_07M | Not Available1 | | BP32 | GLY + OH ----> 0.700\*HO2 + 1.400\*CO + 0.300\*HCOCO3 | 3.10E-12e 342.20/T | 9.7683E-12 | | BP33 | GLY + NO3 ----> HNO3 + 0.700\*HO2 + 1.400\*CO + 0.300\*HCOCO3 | 2.80E-12e -2390.00/T | 9.2429E-16 | | BP34 | MGLY ----> HO2 + CO + MECO3 | MGLY_06 | Not Available1 | | BP35 | MGLY + OH ----> CO + MECO3 | 1.5000E-11 | 1.5000E-11 | | BP36 | MGLY + NO3 ----> HNO3 + CO + MECO3 | 1.40E-12e -1895.00/T | 2.4312E-15 | | BP37 | BACL ----> 2.000\*MECO3 | BACL_07 | Not Available1 | | BP38 | CRES + OH ----> 0.200\*BZO + 0.800\*RO2C + 0.800\*xHO2 + 0.800\*yR6OOH + 0.250\*xMGLY | 1.70E-12e 950.00/T | 4.1138E-11 | | BP39 | CRES + NO3 ----> HNO3 + BZO | 1.4000E-11 | 1.4000E-11 | | BP40 | NPHE + OH ----> BZO | 3.5000E-12 | 3.5000E-12 | | BP41 | NPHE ----> HONO | 1.5000E-03\*NO2_06 | Not Available1 | | BP42 | NPHE ----> | 1.5000E-02\*NO2_06 | Not Available1 | | BP43 | BALD + OH ----> BZCO3 | 1.2000E-11 | 1.2000E-11 | | BP44 | BALD ----> | 6.0000E-02\*BALD_06 | Not Available1 | | BP45 | BALD + NO3 ----> HNO3 + BZCO3 | 1.34E-12e -1860.00/T | 2.6168E-15 | | BP46 | AFG1 + OH ----> 0.217\*MACO3 + 0.723\*RO2C + 0.060\*RO2XC + 0.060\*zRNO3 + 0.521\*xHO2 + 0.201\*xMECO3 + 0.334\*xCO + 0.407\*xRCHO + 0.129\*xMEK + 0.107\*xGLY + 0.267\*xMGLY + 0.783\*yR6OOH | 7.4000E-11 | 7.4000E-11 | | BP47 | AFG1 + O3 ----> 0.826\*OH + 0.522\*HO2 + 0.652\*RO2C + 0.522\*CO + 0.174\*CO2 + 0.432\*GLY + 0.568\*MGLY + 0.652\*xRCO3 + 0.652\*xHCHO + 0.652\*yR6OOH | 9.6600E-18 | 9.6600E-18 | | BP48 | AFG1 ----> 1.023\*HO2 + 0.173\*MEO2 + 0.305\*MECO3 + 0.500\*MACO3 + 0.695\*CO + 0.195\*GLY + 0.305\*MGLY | AFG1 | Not Available1 | | BP49 | AFG2 + OH ----> 0.217\*MACO3 + 0.723\*RO2C + 0.060\*RO2XC + 0.060\*zRNO3 + 0.521\*xHO2 + 0.201\*xMECO3 + 0.334\*xCO + 0.407\*xRCHO + 0.129\*xMEK + 0.107\*xGLY + 0.267\*xMGLY + 0.783\*yR6OOH | 7.4000E-11 | 7.4000E-11 | | BP50 | AFG2 + O3 ----> 0.826\*OH + 0.522\*HO2 + 0.652\*RO2C + 0.522\*CO + 0.174\*CO2 + 0.432\*GLY + 0.568\*MGLY + 0.652\*xRCO3 + 0.652\*xHCHO + 0.652\*yR6OOH | 9.6600E-18 | 9.6600E-18 | | BP51 | AFG2 ----> PRD2 | AFG1 | Not Available1 | | BP52 | AFG3 + OH ----> 0.206\*MACO3 + 0.733\*RO2C + 0.117\*RO2XC + 0.117\*zRNO3 + 0.561\*xHO2 + 0.117\*xMECO3 + 0.114\*xCO + 0.274\*xGLY + 0.153\*xMGLY + 0.019\*xBACL + 0.195\*xAFG1 + 0.195\*xAFG2 + 0.231\*xIPRD + 0.794\*yR6OOH | 9.3500E-11 | 9.3500E-11 | | BP53 | AFG3 + O3 ----> 0.471\*OH + 0.554\*HO2 + 0.013\*MECO3 + 0.258\*RO2C + 0.007\*RO2XC + 0.007\*zRNO3 + 0.580\*CO + 0.190\*CO2 + 0.366\*GLY + 0.184\*MGLY + 0.350\*AFG1 + 0.350\*AFG2 + 0.139\*AFG3 + 0.003\*MACR + 0.004\*MVK + 0.003\*IPRD + 0.095\*xHO2 + 0.163\*xRCO3 + 0.163\*xHCHO + 0.095\*xMGLY + 0.264\*yR6OOH | 1.4300E-17 | 1.4300E-17 | | BP54 | MACR + OH ----> 0.500\*MACO3 + 0.500\*RO2C + 0.500\*xHO2 + 0.416\*xCO + 0.084\*xHCHO + 0.416\*xMEK + 0.084\*xMGLY + 0.500\*yROOH | 8.00E-12e 380.00/T | 2.8616E-11 | | BP55 | MACR + O3 ----> 0.208\*OH + 0.108\*HO2 + 0.100\*RO2C + 0.450\*CO + 0.117\*CO2 + 0.100\*HCHO + 0.900\*MGLY + 0.333\*HCOOH + 0.100\*xRCO3 + 0.100\*xHCHO + 0.100\*yROOH | 1.40E-15e -2100.00/T | 1.2224E-18 | | BP56 | MACR + NO3 ----> 0.500\*MACO3 + 0.500\*RO2C + 0.500\*HNO3 + 0.500\*xHO2 + 0.500\*xCO + 0.500\*yROOH | 1.50E-12e -1815.00/T | 3.4065E-15 | | BP57 | MACR + O3P ----> RCHO | 6.3400E-12 | 6.3400E-12 | | BP58 | MACR ----> 0.330\*OH + 0.670\*HO2 + 0.340\*MECO3 + 0.330\*MACO3 + 0.330\*RO2C + 0.670\*CO + 0.340\*HCHO + 0.330\*xMECO3 + 0.330\*xHCHO + 0.330\*yROOH | MACR_06 | Not Available1 | | BP59 | MVK + OH ----> 0.975\*RO2C + 0.025\*RO2XC + 0.025\*zRNO3 + 0.300\*xHO2 + 0.675\*xMECO3 + 0.300\*xHCHO + 0.675\*xHOCCHO + 0.300\*xMGLY + yROOH | 2.60E-12e 610.00/T | 2.0115E-11 | | BP60 | MVK + O3 ----> 0.164\*OH + 0.064\*HO2 + 0.050\*RO2C + 0.050\*xHO2 + 0.475\*CO + 0.124\*CO2 + 0.050\*HCHO + 0.950\*MGLY + 0.351\*HCOOH + 0.050\*xRCO3 + 0.050\*xHCHO + 0.050\*yROOH | 8.50E-16e -1520.00/T | 5.1921E-18 | | BP62 | MVK + O3P ----> 0.450\*RCHO + 0.550\*MEK | 4.3200E-12 | 4.3200E-12 | | BP63 | MVK ----> 0.400\*MEO2 + 0.600\*CO + 0.600\*PRD2 + 0.400\*MACO3 | MVK_06 | Not Available1 | | BP64 | IPRD + OH ----> 0.289\*MACO3 + 0.670\*RO2C + 0.670\*xHO2 + 0.041\*RO2XC + 0.041\*zRNO3 + 0.336\*xCO + 0.055\*xHCHO + 0.129\*xHOCCHO + 0.013\*xRCHO + 0.150\*xMEK + 0.332\*xPROD2 + 0.150\*xGLY + 0.174\*xMGLY + 0.711\*yR6OOH | 6.1900E-11 | 6.1900E-11 | | BP65 | IPRD + O3 ----> 0.285\*OH + 0.400\*HO2 + 0.048\*RO2C + 0.048\*xRCO3 + 0.498\*CO + 0.140\*CO2 + 0.124\*HCHO + 0.210\*MEK + 0.023\*GLY + 0.742\*MGLY + 0.100\*HCOOH + 0.372\*RCOOH + 0.047\*xHOCCHO + 0.001\*xHCHO + 0.048\*yR6OOH | 4.1800E-18 | 4.1800E-18 | | BP66 | IPRD + NO3 ----> 0.150\*MACO3 + 0.150\*HNO3 + 0.799\*RO2C + 0.799\*xHO2 + 0.051\*RO2XC + 0.051\*zRNO3 + 0.572\*xCO + 0.227\*xHCHO + 0.218\*xRCHO + 0.008\*xMGLY + 0.572\*xRNO3 + 0.850\*yR6OOH | 1.0000E-13 | 1.0000E-13 | | BP67 | IPRD ----> 1.233\*HO2 + 0.467\*MECO3 + 0.300\*RCO3 + 1.233\*CO + 0.300\*HCHO + 0.467\*HOCCHO + 0.233\*MEK | MACR_06 | Not Available1 | | BP68 | PRD2 + OH ----> 0.472\*HO2 + 0.379\*xHO2 + 0.029\*xMECO3 + 0.049\*xRCO3 + 0.473\*RO2C + 0.071\*RO2XC + 0.071\*zRNO3 + 0.002\*HCHO + 0.211\*xHCHO + 0.001\*CCHO + 0.083\*xCCHO + 0.143\*RCHO + 0.402\*xRCHO + 0.115\*xMEK + 0.329\*PRD2 + 0.007\*xPROD2 + 0.528\*yR6OOH | 1.5500E-11 | 1.5500E-11 | | BP69 | PRD2 ----> 0.913\*xHO2 + 0.400\*MECO3 + 0.600\*RCO3 + 1.590\*RO2C + 0.087\*RO2XC + 0.087\*zRNO3 + 0.303\*xHCHO + 0.163\*xCCHO + 0.780\*xRCHO + yR6OOH | 4.8600E-03\*MEK_06 | Not Available1 | | BP70 | RNO3 + OH ----> 0.189\*HO2 + 0.305\*xHO2 + 0.019\*NO2 + 0.313\*xNO2 + 0.976\*RO2C + 0.175\*RO2XC + 0.175\*zRNO3 + 0.011\*xHCHO + 0.429\*xCCHO + 0.001\*RCHO + 0.036\*xRCHO + 0.004\*xACETONE + 0.010\*MEK + 0.170\*xMEK + 0.008\*PRD2 + 0.031\*xPROD2 + 0.189\*RNO3 + 0.305\*xRNO3 + 0.157\*yROOH + 0.636\*yR6OOH | 7.2000E-12 | 7.2000E-12 | | BP71 | RNO3 ----> 0.344\*HO2 + 0.554\*xHO2 + NO2 + 0.721\*RO2C + 0.102\*RO2XC + 0.102\*zRNO3 + 0.074\*HCHO + 0.061\*xHCHO + 0.214\*CCHO + 0.230\*xCCHO + 0.074\*RCHO + 0.063\*xRCHO + 0.008\*xACETONE + 0.124\*MEK + 0.083\*xMEK + 0.190\*PRD2 + 0.261\*xPROD2 + 0.066\*yROOH + 0.591\*yR6OOH | IC3ONO2 | Not Available1 | | BP72 | HOCCHO + OH ----> MECO3 | BP08 | 1.4967E-117| | BP73 | HOCCHO ----> CO + 2.000\*HO2 + HCHO | HOCCHO_IUPAC | Not Available1 | | BP74 | HOCCHO + NO3 ----> HNO3 + MECO3 | BP10 | 2.7340E-157| | BP75 | ACROLEIN + OH ----> 0.250\*xHO2 + 0.750\*MACO3 + 0.250\*RO2C + 0.167\*xCO + 0.083\*xHCHO + 0.167\*xCCHO + 0.083\*xGLY + 0.250\*yROOH | 1.9900E-11 | 1.9900E-11 | | BP76 | ACROLEIN + O3 ----> 0.830\*HO2 + 0.330\*OH + 1.005\*CO + 0.310\*CO2 + 0.500\*HCHO + 0.185\*HCOOH + 0.500\*GLY | 1.40E-15e -2528.00/T | 2.9091E-19 | | BP77 | ACROLEIN + NO3 ----> 0.031\*xHO2 + 0.967\*MACO3 + 0.031\*RO2C + 0.002\*RO2XC + 0.002\*zRNO3 + 0.967\*HNO3 + 0.031\*xCO + 0.031\*xRNO3 + 0.033\*yROOH | 1.1800E-15 | 1.1800E-15 | | BP78 | ACROLEIN + O3P ----> RCHO | 2.3700E-12 | 2.3700E-12 | | BP79 | ACROLEIN ----> 1.066\*HO2 + 0.178\*OH + 0.234\*MEO2 + 0.330\*MACO3 + 1.188\*CO + 0.102\*CO2 + 0.340\*HCHO + 0.050\*CCOOH | ACRO_09 | Not Available1 | | BP80 | CCOOOH + OH ----> 0.980\*MECO3 + 0.020\*RO2C + 0.020\*CO2 + 0.020\*xOH + 0.020\*xHCHO + 0.020\*yROOH | 5.2800E-12 | 5.2800E-12 | | BP81 | CCOOOH ----> MEO2 + CO2 + OH | PAA | Not Available1 | | BP82 | RCOOOH + OH ----> 0.806\*RCO3 + 0.194\*RO2C + 0.194\*yROOH + 0.110\*CO2 + 0.110\*xOH + 0.110\*xCCHO + 0.084\*xHO2 + 0.084\*xRCHO | 6.4200E-12 | 6.4200E-12 | | BP83 | RCOOOH ----> xHO2 + xCCHO + yROOH + CO2 + OH | PAA | Not Available1 | | BP84 | HCOCO3 + NO ----> HO2 + CO + CO2 + NO2 | BR31 | 2.0957E-117| | BP85 | HCOCO3 + NO2 ----> HO2 + CO + CO2 + NO3 | BR28 | 1.2180E-117| | BP86 | HCOCO3 + HO2 ----> 0.440\*OH + 0.440\*HO2 + 0.440\*CO + 0.440\*CO2 + 0.560\*GLY + 0.150\*O3 | BR22 | 1.3916E-117| | P001 | xHCHO + NO ----> NO + HCHO | BR07 | 9.3002E-127| | P002 | xHCHO + HO2 ----> HO2 | BR08 | 7.7759E-127| | P003 | xHCHO + NO3 ----> NO3 + HCHO | BR09 | 2.3000E-127| | P004 | xHCHO + MEO2 ----> MEO2 + 0.500\*HCHO | BR10 | 2.0000E-137| | P005 | xHCHO + RO2C ----> RO2C + 0.500\*HCHO | BR11 | 3.5000E-147| | P006 | xHCHO + RO2XC ----> RO2XC + 0.500\*HCHO | BR11 | 3.5000E-147| | P007 | xHCHO + MECO3 ----> MECO3 + HCHO | BR25 | 1.5924E-117| | P008 | xHCHO + RCO3 ----> RCO3 + HCHO | BR25 | 1.5924E-117| | P009 | xHCHO + BZCO3 ----> BZCO3 + HCHO | BR25 | 1.5924E-117| | P010 | xHCHO + MACO3 ----> MACO3 + HCHO | BR25 | 1.5924E-117| | P011 | xCCHO + NO ----> NO + CCHO | BR07 | 9.3002E-127| | P012 | xCCHO + HO2 ----> HO2 | BR08 | 7.7759E-127| | P013 | xCCHO + NO3 ----> NO3 + CCHO | BR09 | 2.3000E-127| | P014 | xCCHO + MEO2 ----> MEO2 + 0.500\*CCHO | BR10 | 2.0000E-137| | P015 | xCCHO + RO2C ----> RO2C + 0.500\*CCHO | BR11 | 3.5000E-147| | P016 | xCCHO + RO2XC ----> RO2XC + 0.500\*CCHO | BR11 | 3.5000E-147| | P017 | xCCHO + MECO3 ----> MECO3 + CCHO | BR25 | 1.5924E-117| | P018 | xCCHO + RCO3 ----> RCO3 + CCHO | BR25 | 1.5924E-117| | P019 | xCCHO + BZCO3 ----> BZCO3 + CCHO | BR25 | 1.5924E-117| | P020 | xCCHO + MACO3 ----> MACO3 + CCHO | BR25 | 1.5924E-117| | P021 | xRCHO + NO ----> NO + RCHO | BR07 | 9.3002E-127| | P022 | xRCHO + HO2 ----> HO2 | BR08 | 7.7759E-127| | P023 | xRCHO + NO3 ----> NO3 + RCHO | BR09 | 2.3000E-127| | P024 | xRCHO + MEO2 ----> MEO2 + 0.500\*RCHO | BR10 | 2.0000E-137| | P025 | xRCHO + RO2C ----> RO2C + 0.500\*RCHO | BR11 | 3.5000E-147| | P026 | xRCHO + RO2XC ----> RO2XC + 0.500\*RCHO | BR11 | 3.5000E-147| | P027 | xRCHO + MECO3 ----> MECO3 + RCHO | BR25 | 1.5924E-117| | P028 | xRCHO + RCO3 ----> RCO3 + RCHO | BR25 | 1.5924E-117| | P029 | xRCHO + BZCO3 ----> BZCO3 + RCHO | BR25 | 1.5924E-117| | P030 | xRCHO + MACO3 ----> MACO3 + RCHO | BR25 | 1.5924E-117| | P031 | xACETONE + NO ----> NO + ACETONE | BR07 | 9.3002E-127| | P032 | xACETONE + HO2 ----> HO2 | BR08 | 7.7759E-127| | P033 | xACETONE + NO3 ----> NO3 + ACETONE | BR09 | 2.3000E-127| | P034 | xACETONE + MEO2 ----> MEO2 + 0.500\*ACETONE | BR10 | 2.0000E-137| | P035 | xACETONE + RO2C ----> RO2C + 0.500\*ACETONE | BR11 | 3.5000E-147| | P036 | xACETONE + RO2XC ----> RO2XC + 0.500\*ACETONE | BR11 | 3.5000E-147| | P037 | xACETONE + MECO3 ----> MECO3 + ACETONE | BR25 | 1.5924E-117| | P038 | xACETONE + RCO3 ----> RCO3 + ACETONE | BR25 | 1.5924E-117| | P039 | xACETONE + BZCO3 ----> BZCO3 + ACETONE | BR25 | 1.5924E-117| | P040 | xACETONE + MACO3 ----> MACO3 + ACETONE | BR25 | 1.5924E-117| | P041 | xMEK + NO ----> NO + MEK | BR07 | 9.3002E-127| | P042 | xMEK + HO2 ----> HO2 | BR08 | 7.7759E-127| | P043 | xMEK + NO3 ----> NO3 + MEK | BR09 | 2.3000E-127| | P044 | xMEK + MEO2 ----> MEO2 + 0.500\*MEK | BR10 | 2.0000E-137| | P045 | xMEK + RO2C ----> RO2C + 0.500\*MEK | BR11 | 3.5000E-147| | P046 | xMEK + RO2XC ----> RO2XC + 0.500\*MEK | BR11 | 3.5000E-147| | P047 | xMEK + MECO3 ----> MECO3 + MEK | BR25 | 1.5924E-117| | P048 | xMEK + RCO3 ----> RCO3 + MEK | BR25 | 1.5924E-117| | P049 | xMEK + BZCO3 ----> BZCO3 + MEK | BR25 | 1.5924E-117| | P050 | xMEK + MACO3 ----> MACO3 + MEK | BR25 | 1.5924E-117| | P051 | xPROD2 + NO ----> NO + PRD2 | BR07 | 9.3002E-127| | P052 | xPROD2 + HO2 ----> HO2 | BR08 | 7.7759E-127| | P053 | xPROD2 + NO3 ----> NO3 + PRD2 | BR09 | 2.3000E-127| | P054 | xPROD2 + MEO2 ----> MEO2 + 0.500\*PRD2 | BR10 | 2.0000E-137| | P055 | xPROD2 + RO2C ----> RO2C + 0.500\*PRD2 | BR11 | 3.5000E-147| | P056 | xPROD2 + RO2XC ----> RO2XC + 0.500\*PRD2 | BR11 | 3.5000E-147| | P057 | xPROD2 + MECO3 ----> MECO3 + PRD2 | BR25 | 1.5924E-117| | P058 | xPROD2 + RCO3 ----> RCO3 + PRD2 | BR25 | 1.5924E-117| | P059 | xPROD2 + BZCO3 ----> BZCO3 + PRD2 | BR25 | 1.5924E-117| | P060 | xPROD2 + MACO3 ----> MACO3 + PRD2 | BR25 | 1.5924E-117| | P061 | xGLY + NO ----> NO + GLY | BR07 | 9.3002E-127| | P062 | xGLY + HO2 ----> HO2 | BR08 | 7.7759E-127| | P063 | xGLY + NO3 ----> NO3 + GLY | BR09 | 2.3000E-127| | P064 | xGLY + MEO2 ----> MEO2 + 0.500\*GLY | BR10 | 2.0000E-137| | P065 | xGLY + RO2C ----> RO2C + 0.500\*GLY | BR11 | 3.5000E-147| | P066 | xGLY + RO2XC ----> RO2XC + 0.500\*GLY | BR11 | 3.5000E-147| | P067 | xGLY + MECO3 ----> MECO3 + GLY | BR25 | 1.5924E-117| | P068 | xGLY + RCO3 ----> RCO3 + GLY | BR25 | 1.5924E-117| | P069 | xGLY + BZCO3 ----> BZCO3 + GLY | BR25 | 1.5924E-117| | P070 | xGLY + MACO3 ----> MACO3 + GLY | BR25 | 1.5924E-117| | P071 | xMGLY + NO ----> NO + MGLY | BR07 | 9.3002E-127| | P072 | xMGLY + HO2 ----> HO2 | BR08 | 7.7759E-127| | P073 | xMGLY + NO3 ----> NO3 + MGLY | BR09 | 2.3000E-127| | P074 | xMGLY + MEO2 ----> MEO2 + 0.500\*MGLY | BR10 | 2.0000E-137| | P075 | xMGLY + RO2C ----> RO2C + 0.500\*MGLY | BR11 | 3.5000E-147| | P076 | xMGLY + RO2XC ----> RO2XC + 0.500\*MGLY | BR11 | 3.5000E-147| | P077 | xMGLY + MECO3 ----> MECO3 + MGLY | BR25 | 1.5924E-117| | P078 | xMGLY + RCO3 ----> RCO3 + MGLY | BR25 | 1.5924E-117| | P079 | xMGLY + BZCO3 ----> BZCO3 + MGLY | BR25 | 1.5924E-117| | P080 | xMGLY + MACO3 ----> MACO3 + MGLY | BR25 | 1.5924E-117| | P081 | xBACL + NO ----> NO + BACL | BR07 | 9.3002E-127| | P082 | xBACL + HO2 ----> HO2 | BR08 | 7.7759E-127| | P083 | xBACL + NO3 ----> NO3 + BACL | BR09 | 2.3000E-127| | P084 | xBACL + MEO2 ----> MEO2 + 0.500\*BACL | BR10 | 2.0000E-137| | P085 | xBACL + RO2C ----> RO2C + 0.500\*BACL | BR11 | 3.5000E-147| | P086 | xBACL + RO2XC ----> RO2XC + 0.500\*BACL | BR11 | 3.5000E-147| | P087 | xBACL + MECO3 ----> MECO3 + BACL | BR25 | 1.5924E-117| | P088 | xBACL + RCO3 ----> RCO3 + BACL | BR25 | 1.5924E-117| | P089 | xBACL + BZCO3 ----> BZCO3 + BACL | BR25 | 1.5924E-117| | P090 | xBACL + MACO3 ----> MACO3 + BACL | BR25 | 1.5924E-117| | P091 | xBALD + NO ----> NO + BALD | BR07 | 9.3002E-127| | P092 | xBALD + HO2 ----> HO2 | BR08 | 7.7759E-127| | P093 | xBALD + NO3 ----> NO3 + BALD | BR09 | 2.3000E-127| | P094 | xBALD + MEO2 ----> MEO2 + 0.500\*BALD | BR10 | 2.0000E-137| | P095 | xBALD + RO2C ----> RO2C + 0.500\*BALD | BR11 | 3.5000E-147| | P096 | xBALD + RO2XC ----> RO2XC + 0.500\*BALD | BR11 | 3.5000E-147| | P097 | xBALD + MECO3 ----> MECO3 + BALD | BR25 | 1.5924E-117| | P098 | xBALD + RCO3 ----> RCO3 + BALD | BR25 | 1.5924E-117| | P099 | xBALD + BZCO3 ----> BZCO3 + BALD | BR25 | 1.5924E-117| | P100 | xBALD + MACO3 ----> MACO3 + BALD | BR25 | 1.5924E-117| | P101 | xAFG1 + NO ----> NO + AFG1 | BR07 | 9.3002E-127| | P102 | xAFG1 + HO2 ----> HO2 | BR08 | 7.7759E-127| | P103 | xAFG1 + NO3 ----> NO3 + AFG1 | BR09 | 2.3000E-127| | P104 | xAFG1 + MEO2 ----> MEO2 + 0.500\*AFG1 | BR10 | 2.0000E-137| | P105 | xAFG1 + RO2C ----> RO2C + 0.500\*AFG1 | BR11 | 3.5000E-147| | P106 | xAFG1 + RO2XC ----> RO2XC + 0.500\*AFG1 | BR11 | 3.5000E-147| | P107 | xAFG1 + MECO3 ----> MECO3 + AFG1 | BR25 | 1.5924E-117| | P108 | xAFG1 + RCO3 ----> RCO3 + AFG1 | BR25 | 1.5924E-117| | P109 | xAFG1 + BZCO3 ----> BZCO3 + AFG1 | BR25 | 1.5924E-117| | P110 | xAFG1 + MACO3 ----> MACO3 + AFG1 | BR25 | 1.5924E-117| | P111 | xAFG2 + NO ----> NO + AFG2 | BR07 | 9.3002E-127| | P112 | xAFG2 + HO2 ----> HO2 | BR08 | 7.7759E-127| | P113 | xAFG2 + NO3 ----> NO3 + AFG2 | BR09 | 2.3000E-127| | P114 | xAFG2 + MEO2 ----> MEO2 + 0.500\*AFG2 | BR10 | 2.0000E-137| | P115 | xAFG2 + RO2C ----> RO2C + 0.500\*AFG2 | BR11 | 3.5000E-147| | P116 | xAFG2 + RO2XC ----> RO2XC + 0.500\*AFG2 | BR11 | 3.5000E-147| | P117 | xAFG2 + MECO3 ----> MECO3 + AFG2 | BR25 | 1.5924E-117| | P118 | xAFG2 + RCO3 ----> RCO3 + AFG2 | BR25 | 1.5924E-117| | P119 | xAFG2 + BZCO3 ----> BZCO3 + AFG2 | BR25 | 1.5924E-117| | P120 | xAFG2 + MACO3 ----> MACO3 + AFG2 | BR25 | 1.5924E-117| | P121 | xAFG3 + NO ----> NO + AFG3 | BR07 | 9.3002E-127| | P122 | xAFG3 + HO2 ----> HO2 | BR08 | 7.7759E-127| | P123 | xAFG3 + NO3 ----> NO3 + AFG3 | BR09 | 2.3000E-127| | P124 | xAFG3 + MEO2 ----> MEO2 + 0.500\*AFG3 | BR10 | 2.0000E-137| | P125 | xAFG3 + RO2C ----> RO2C + 0.500\*AFG3 | BR11 | 3.5000E-147| | P126 | xAFG3 + RO2XC ----> RO2XC + 0.500\*AFG3 | BR11 | 3.5000E-147| | P127 | xAFG3 + MECO3 ----> MECO3 + AFG3 | BR25 | 1.5924E-117| | P128 | xAFG3 + RCO3 ----> RCO3 + AFG3 | BR25 | 1.5924E-117| | P129 | xAFG3 + BZCO3 ----> BZCO3 + AFG3 | BR25 | 1.5924E-117| | P130 | xAFG3 + MACO3 ----> MACO3 + AFG3 | BR25 | 1.5924E-117| | P131 | xMACR + NO ----> NO + MACR | BR07 | 9.3002E-127| | P132 | xMACR + HO2 ----> HO2 | BR08 | 7.7759E-127| | P133 | xMACR + NO3 ----> NO3 + MACR | BR09 | 2.3000E-127| | P134 | xMACR + MEO2 ----> MEO2 + 0.500\*MACR | BR10 | 2.0000E-137| | P135 | xMACR + RO2C ----> RO2C + 0.500\*MACR | BR11 | 3.5000E-147| | P136 | xMACR + RO2XC ----> RO2XC + 0.500\*MACR | BR11 | 3.5000E-147| | P137 | xMACR + MECO3 ----> MECO3 + MACR | BR25 | 1.5924E-117| | P138 | xMACR + RCO3 ----> RCO3 + MACR | BR25 | 1.5924E-117| | P139 | xMACR + BZCO3 ----> BZCO3 + MACR | BR25 | 1.5924E-117| | P140 | xMACR + MACO3 ----> MACO3 + MACR | BR25 | 1.5924E-117| | P141 | xMVK + NO ----> NO + MVK | BR07 | 9.3002E-127| | P142 | xMVK + HO2 ----> HO2 | BR08 | 7.7759E-127| | P143 | xMVK + NO3 ----> NO3 + MVK | BR09 | 2.3000E-127| | P144 | xMVK + MEO2 ----> MEO2 + 0.500\*MVK | BR10 | 2.0000E-137| | P145 | xMVK + RO2C ----> RO2C + 0.500\*MVK | BR11 | 3.5000E-147| | P146 | xMVK + RO2XC ----> RO2XC + 0.500\*MVK | BR11 | 3.5000E-147| | P147 | xMVK + MECO3 ----> MECO3 + MVK | BR25 | 1.5924E-117| | P148 | xMVK + RCO3 ----> RCO3 + MVK | BR25 | 1.5924E-117| | P149 | xMVK + BZCO3 ----> BZCO3 + MVK | BR25 | 1.5924E-117| | P150 | xMVK + MACO3 ----> MACO3 + MVK | BR25 | 1.5924E-117| | P151 | xIPRD + NO ----> NO + IPRD | BR07 | 9.3002E-127| | P152 | xIPRD + HO2 ----> HO2 | BR08 | 7.7759E-127| | P153 | xIPRD + NO3 ----> NO3 + IPRD | BR09 | 2.3000E-127| | P154 | xIPRD + MEO2 ----> MEO2 + 0.500\*IPRD | BR10 | 2.0000E-137| | P155 | xIPRD + RO2C ----> RO2C + 0.500\*IPRD | BR11 | 3.5000E-147| | P156 | xIPRD + RO2XC ----> RO2XC + 0.500\*IPRD | BR11 | 3.5000E-147| | P157 | xIPRD + MECO3 ----> MECO3 + IPRD | BR25 | 1.5924E-117| | P158 | xIPRD + RCO3 ----> RCO3 + IPRD | BR25 | 1.5924E-117| | P159 | xIPRD + BZCO3 ----> BZCO3 + IPRD | BR25 | 1.5924E-117| | P160 | xIPRD + MACO3 ----> MACO3 + IPRD | BR25 | 1.5924E-117| | P161 | xRNO3 + NO ----> NO + RNO3 | BR07 | 9.3002E-127| | P162 | xRNO3 + HO2 ----> HO2 | BR08 | 7.7759E-127| | P163 | xRNO3 + NO3 ----> NO3 + RNO3 | BR09 | 2.3000E-127| | P164 | xRNO3 + MEO2 ----> MEO2 + 0.500\*RNO3 | BR10 | 2.0000E-137| | P165 | xRNO3 + RO2C ----> RO2C + 0.500\*RNO3 | BR11 | 3.5000E-147| | P166 | xRNO3 + RO2XC ----> RO2XC + 0.500\*RNO3 | BR11 | 3.5000E-147| | P167 | xRNO3 + MECO3 ----> MECO3 + RNO3 | BR25 | 1.5924E-117| | P168 | xRNO3 + RCO3 ----> RCO3 + RNO3 | BR25 | 1.5924E-117| | P169 | xRNO3 + BZCO3 ----> BZCO3 + RNO3 | BR25 | 1.5924E-117| | P170 | xRNO3 + MACO3 ----> MACO3 + RNO3 | BR25 | 1.5924E-117| | P171 | yROOH + NO ----> NO | BR07 | 9.3002E-127| | P172 | yROOH + HO2 ----> HO2 + ROOH | BR08 | 7.7759E-127| | P173 | yROOH + NO3 ----> NO3 | BR09 | 2.3000E-127| | P174 | yROOH + MEO2 ----> MEO2 + 0.500\*MEK | BR10 | 2.0000E-137| | P175 | yROOH + RO2C ----> RO2C + 0.500\*MEK | BR11 | 3.5000E-147| | P176 | yROOH + RO2XC ----> RO2XC + 0.500\*MEK | BR11 | 3.5000E-147| | P177 | yROOH + MECO3 ----> MECO3 | BR25 | 1.5924E-117| | P178 | yROOH + RCO3 ----> RCO3 | BR25 | 1.5924E-117| | P179 | yROOH + BZCO3 ----> BZCO3 | BR25 | 1.5924E-117| | P180 | yROOH + MACO3 ----> MACO3 | BR25 | 1.5924E-117| | P181 | yR6OOH + NO ----> NO | BR07 | 9.3002E-127| | P182 | yR6OOH + HO2 ----> HO2 + R6OOH | BR08 | 7.7759E-127| | P183 | yR6OOH + NO3 ----> NO3 | BR09 | 2.3000E-127| | P184 | yR6OOH + MEO2 ----> MEO2 + 0.500\*PRD2 | BR10 | 2.0000E-137| | P185 | yR6OOH + RO2C ----> RO2C + 0.500\*PRD2 | BR11 | 3.5000E-147| | P186 | yR6OOH + RO2XC ----> RO2XC + 0.500\*PRD2 | BR11 | 3.5000E-147| | P187 | yR6OOH + MECO3 ----> MECO3 | BR25 | 1.5924E-117| | P188 | yR6OOH + RCO3 ----> RCO3 | BR25 | 1.5924E-117| | P189 | yR6OOH + BZCO3 ----> BZCO3 | BR25 | 1.5924E-117| | P190 | yR6OOH + MACO3 ----> MACO3 | BR25 | 1.5924E-117| | P181a | yISOPOOH + NO ----> NO | BR07 | 9.3002E-127| | P182a | yISOPOOH + HO2 ----> HO2 + ISOPOOH | BR08 | 7.7759E-127| | P183a | yISOPOOH + NO3 ----> NO3 | BR09 | 2.3000E-127| | P184a | yISOPOOH + MEO2 ----> MEO2 + 0.500\*PRD2 | BR10 | 2.0000E-137| | P185a | yISOPOOH + RO2C ----> RO2C + 0.500\*PRD2 | BR11 | 3.5000E-147| | P186a | yISOPOOH + RO2XC ----> RO2XC + 0.500\*PRD2 | BR11 | 3.5000E-147| | P187a | yISOPOOH + MECO3 ----> MECO3 | BR25 | 1.5924E-117| | P188a | yISOPOOH + RCO3 ----> RCO3 | BR25 | 1.5924E-117| | P189a | yISOPOOH + BZCO3 ----> BZCO3 | BR25 | 1.5924E-117| | P190a | yISOPOOH + MACO3 ----> MACO3 | BR25 | 1.5924E-117| | P191 | yRAOOH + NO ----> NO | BR07 | 9.3002E-127| | P192 | yRAOOH + HO2 ----> HO2 + RAOOH | BR08 | 7.7759E-127| | P193 | yRAOOH + NO3 ----> NO3 | BR09 | 2.3000E-127| | P194 | yRAOOH + MEO2 ----> MEO2 + 0.500\*PRD2 | BR10 | 2.0000E-137| | P195 | yRAOOH + RO2C ----> RO2C + 0.500\*PRD2 | BR11 | 3.5000E-147| | P196 | yRAOOH + RO2XC ----> RO2XC + 0.500\*PRD2 | BR11 | 3.5000E-147| | P197 | yRAOOH + MECO3 ----> MECO3 | BR25 | 1.5924E-117| | P198 | yRAOOH + RCO3 ----> RCO3 | BR25 | 1.5924E-117| | P199 | yRAOOH + BZCO3 ----> BZCO3 | BR25 | 1.5924E-117| | P200 | yRAOOH + MACO3 ----> MACO3 | BR25 | 1.5924E-117| | P201 | zRNO3 + NO ----> NO + RNO3 | BR07 | 9.3002E-127| | P202 | zRNO3 + HO2 ----> HO2 | BR08 | 7.7759E-127| | P203 | zRNO3 + NO3 ----> NO3 + PRD2 + HO2 | BR09 | 2.3000E-127| | P204 | zRNO3 + MEO2 ----> MEO2 + 0.500\*PRD2 + 0.500\*HO2 | BR10 | 2.0000E-137| | P205 | zRNO3 + RO2C ----> RO2C + 0.500\*PRD2 + 0.500\*HO2 | BR11 | 3.5000E-147| | P206 | zRNO3 + RO2XC ----> RO2XC + 0.500\*PRD2 + 0.500\*HO2 | BR11 | 3.5000E-147| | P207 | zRNO3 + MECO3 ----> MECO3 + PRD2 + HO2 | BR25 | 1.5924E-117| | P208 | zRNO3 + RCO3 ----> RCO3 + PRD2 + HO2 | BR25 | 1.5924E-117| | P209 | zRNO3 + BZCO3 ----> BZCO3 + PRD2 + HO2 | BR25 | 1.5924E-117| | P210 | zRNO3 + MACO3 ----> MACO3 + PRD2 + HO2 | BR25 | 1.5924E-117| | P211 | xHOCCHO + NO ----> NO + HOCCHO | BR07 | 9.3002E-127| | P212 | xHOCCHO + HO2 ----> HO2 | BR08 | 7.7759E-127| | P213 | xHOCCHO + NO3 ----> NO3 + HOCCHO | BR09 | 2.3000E-127| | P214 | xHOCCHO + MEO2 ----> MEO2 + 0.500\*HOCCHO | BR10 | 2.0000E-137| | P215 | xHOCCHO + RO2C ----> RO2C + 0.500\*HOCCHO | BR11 | 3.5000E-147| | P216 | xHOCCHO + RO2XC ----> RO2XC + 0.500\*HOCCHO | BR11 | 3.5000E-147| | P217 | xHOCCHO + MECO3 ----> MECO3 + HOCCHO | BR25 | 1.5924E-117| | P218 | xHOCCHO + RCO3 ----> RCO3 + HOCCHO | BR25 | 1.5924E-117| | P219 | xHOCCHO + BZCO3 ----> BZCO3 + HOCCHO | BR25 | 1.5924E-117| | P220 | xHOCCHO + MACO3 ----> MACO3 + HOCCHO | BR25 | 1.5924E-117| | P221 | xACROLEIN + NO ----> NO + ACROLEIN | BR07 | 9.3002E-127| | P222 | xACROLEIN + HO2 ----> HO2 | BR08 | 7.7759E-127| | P223 | xACROLEIN + NO3 ----> NO3 + ACROLEIN | BR09 | 2.3000E-127| | P224 | xACROLEIN + MEO2 ----> MEO2 + 0.500\*ACROLEIN | BR10 | 2.0000E-137| | P225 | xACROLEIN + RO2C ----> RO2C + 0.500\*ACROLEIN | BR11 | 3.5000E-147| | P226 | xACROLEIN + RO2XC ----> RO2XC + 0.500\*ACROLEIN | BR11 | 3.5000E-147| | P227 | xACROLEIN + MECO3 ----> MECO3 + ACROLEIN | BR25 | 1.5924E-117| | P228 | xACROLEIN + RCO3 ----> RCO3 + ACROLEIN | BR25 | 1.5924E-117| | P229 | xACROLEIN + BZCO3 ----> BZCO3 + ACROLEIN | BR25 | 1.5924E-117| | P230 | xACROLEIN + MACO3 ----> MACO3 + ACROLEIN | BR25 | 1.5924E-117| | BE01 | OH + CH4 ----> MEO2 | 1.85E-12e -1690.00/T | 6.3895E-15 | | BE02 | ETHENE + OH ----> xHO2 + RO2C + 1.610\*xHCHO + 0.195\*xHOCCHO + yROOH | ko= 1.00E-28e 0.0/T(T/300) -4.50
ki = 8.80E-12e 0.0/T(T/300) -0.85
n= 1.00;F= 0.60 | 8.1981E-12 | | BE03 | ETHENE + O3 ----> 0.160\*HO2 + 0.160\*OH + 0.510\*CO + 0.120\*CO2 + HCHO + 0.370\*HCOOH | 9.14E-15e -2580.00/T | 1.5953E-18 | | BE04 | ETHENE + NO3 ----> xHO2 + RO2C + xRCHO + yROOH | 3.30E-12e -2880.00/T | 2.1058E-16 | | BE05 | ETHENE + O3P ----> 0.800\*HO2 + 0.290\*xHO2 + 0.510\*MEO2 + 0.290\*RO2C + 0.510\*CO + 0.278\*xCO + 0.278\*xHCHO + 0.100\*CCHO + 0.012\*xGLY + 0.290\*yROOH | 1.07E-11e -800.00/T | 7.3127E-13 | | BT01 | PROPENE + OH ----> 0.984\*xHO2 + 0.984\*RO2C + 0.016\*RO2XC + 0.016\*zRNO3 + 0.984\*xHCHO + 0.984\*xCCHO + yROOH | 4.85E-12e 504.00/T | 2.6296E-11 | | BT02 | PROPENE + O3 ----> 0.165\*HO2 + 0.350\*OH + 0.355\*MEO2 + 0.525\*CO + 0.215\*CO2 + 0.500\*HCHO + 0.500\*CCHO + 0.185\*HCOOH + 0.075\*CCOOH | 5.51E-15e -1878.00/T | 1.0130E-17 | | BT03 | PROPENE + NO3 ----> 0.949\*xHO2 + 0.949\*RO2C + 0.051\*RO2XC + 0.051\*zRNO3 + yROOH | 4.59E-13e -1156.00/T | 9.5049E-15 | | BT04 | PROPENE + O3P ----> 0.450\*RCHO + 0.550\*MEK | 1.02E-11e -280.00/T | 3.9879E-12 | | BT05 | BUTADIENE13 + OH ----> 0.951\*xHO2 + 1.189\*RO2C + 0.049\*RO2XC + 0.049\*zRNO3 + 0.708\*xHCHO + 0.480\*xACROLEIN + 0.471\*xIPRD + yROOH | 1.48E-11e 448.00/T | 6.6502E-11 | | BT06 | BUTADIENE13 + O3 ----> 0.080\*HO2 + 0.080\*OH + 0.255\*CO + 0.185\*CO2 + 0.500\*HCHO + 0.185\*HCOOH + 0.500\*ACROLEIN + 0.375\*MVK + 0.125\*PRD2 | 1.34E-14e -2283.00/T | 6.3331E-18 | | BT07 | BUTADIENE13 + NO3 ----> 0.815\*xHO2 + 0.120\*xNO2 + 1.055\*RO2C + 0.065\*RO2XC + 0.065\*zRNO3 + 0.115\*xHCHO + 0.460\*xMVK + 0.120\*xIPRD + 0.355\*xRNO3 + yROOH | 1.0000E-13 | 1.0000E-13 | | BT08 | BUTADIENE13 + O3P ----> 0.250\*HO2 + 0.117\*xHO2 + 0.118\*xMACO3 + 0.235\*RO2C + 0.015\*RO2XC + 0.015\*zRNO3 + 0.115\*xCO + 0.115\*xACROLEIN + 0.001\*xAFG1 + 0.001\*xAFG2 + 0.750\*PRD2 + 0.250\*yROOH | 2.26E-11e -40.00/T | 1.9763E-11 | | BE06 | ISOPRENE + OH ----> 0.907\*xHO2 + 0.986\*RO2C + 0.093\*RO2XC + 0.093\*zRNO3 + 0.624\*xHCHO + 0.230\*xMACR + 0.320\*xMVK + 0.357\*xIPRD + yISOPOOH + ISOPRXN | 2.54E-11e 410.00/T | 1.0047E-10 | | BE07 | ISOPRENE + O3 ----> 0.066\*HO2 + 0.266\*OH + 0.192\*xMACO3 + 0.192\*RO2C + 0.008\*RO2XC + 0.008\*zRNO3 + 0.275\*CO + 0.122\*CO2 + 0.400\*HCHO + 0.192\*xHCHO + 0.204\*HCOOH + 0.390\*MACR + 0.160\*MVK + 0.150\*IPRD + 0.100\*PRD2 + 0.200\*yR6OOH | 7.86E-15e -1912.00/T | 1.2893E-17 | | BE08 | ISOPRENE + NO3 ----> 0.749\*xHO2 + 0.187\*xNO2 + 0.936\*RO2C + 0.064\*RO2XC + 0.064\*zRNO3 + 0.936\*xIPRD + yR6OOH + ISOPRXN | 3.03E-12e -448.00/T | 6.7433E-13 | | BE09 | ISOPRENE + O3P ----> 0.250\*MEO2 + 0.240\*xMACO3 + 0.240\*RO2C + 0.010\*RO2XC + 0.010\*zRNO3 + 0.240\*xHCHO + 0.750\*PRD2 + 0.250\*yR6OOH | 3.5000E-11 | 3.5000E-11 | | IS88 | ISOPOOH + OH ----> IEPOX + OH | 1.90E-11e 390.00/T | 7.0281E-11 | | IS89 | ISOPOOH + OH ----> 0.160\*xMVK + 0.100\*xMACR + 0.350\*RO2C + 0.050\*xRNO3 + 0.260\*xHCHO + 0.040\*xRCHO + 0.310\*xHO2 + 0.020\*ARO2MN + 0.387\*yISOPOOH + 0.610\*RCHO + 0.610\*OH | 4.75E-12e 200.00/T | 9.2901E-12 | | IS92 | ISOPOOH ----> OH + 0.910\*HO2 + 0.750\*HCHO + 0.450\*MVK + 0.290\*MACR + 0.090\*RO2C + 0.110\*RCHO + 0.050\*ARO2MN | COOH | Not Available1 | | IS90 | IEPOX + OH ----> IEPOXOO | 5.78E-11e -400.00/T | 1.5110E-11 | | IS91 | IEPOXOO + HO2 ----> 0.725\*MEK + 0.275\*HOCCHO + 0.275\*GLY + 0.275\*MGLY + 1.125\*OH + 0.825\*HO2 + 0.200\*CO2 + 0.375\*HCHO + 0.074\*HCOOH + 0.251\*CO | 2.06E-13e 1300.00/T | 1.6125E-11 | | IS96 | IEPOXOO + NO ----> 0.725\*MEK + 0.275\*HOCCHO + 0.275\*GLY + 0.275\*MGLY + 0.125\*OH + 0.825\*HO2 + 0.200\*CO2 + 0.375\*HCHO + 0.074\*HCOOH + 0.251\*CO + NO2 | 2.60E-12e 380.00/T | 9.3002E-12 | | IS112 | IEPOXOO + MEO2 ----> 0.363\*MEK + 0.138\*HOCCHO + 0.138\*GLY + 0.138\*MGLY + 0.063\*OH + 0.913\*HO2 + 0.100\*CO2 + 0.938\*HCHO + 0.037\*HCOOH + 0.126\*CO + 0.500\*PRD2 + 0.250\*MEOH | 2.0000E-13 | 2.0000E-13 | | IS113 | IEPOXOO + RO2C ----> 0.363\*MEK + 0.138\*HOCCHO + 0.138\*GLY + 0.138\*MGLY + 0.063\*OH + 0.413\*HO2 + 0.100\*CO2 + 0.188\*HCHO + 0.037\*HCOOH + 0.126\*CO + 0.500\*PRD2 | 3.5000E-14 | 3.5000E-14 | | IS114 | IEPOXOO + MECO3 ----> 0.725\*MEK + 0.275\*HOCCHO + 0.275\*GLY + 0.275\*MGLY + 0.125\*OH + 0.825\*HO2 + 1.200\*CO2 + 0.375\*HCHO + 0.074\*HCOOH + 0.251\*CO + MEO2 | 4.40E-13e 1070.00/T | 1.5924E-11 | | BT09 | APIN + OH ----> 0.799\*xHO2 + 0.004\*xRCO3 + 1.042\*RO2C + 0.197\*RO2XC + 0.197\*zRNO3 + 0.002\*xCO + 0.022\*xHCHO + 0.776\*xRCHO + 0.034\*xACETONE + 0.020\*xMGLY + 0.023\*xBACL + yR6OOH + TRPRXN | 1.21E-11e 436.00/T | 5.2225E-11 | | BT10 | APIN + O3 ----> 0.009\*HO2 + 0.102\*xHO2 + 0.728\*OH + 0.001\*xMECO3 + 0.297\*xRCO3 + 1.511\*RO2C + 0.337\*RO2XC + 0.337\*zRNO3 + 0.029\*CO + 0.051\*xCO + 0.017\*CO2 + 0.344\*xHCHO + 0.240\*xRCHO + 0.345\*xACETONE + 0.008\*MEK + 0.002\*xGLY + 0.081\*xBACL + 0.255\*PRD2 + 0.737\*yR6OOH + TRPRXN | 5.00E-16e -530.00/T | 8.4519E-17 | | BT11 | APIN + NO3 ----> 0.056\*xHO2 + 0.643\*xNO2 + 0.007\*xRCO3 + 1.050\*RO2C + 0.293\*RO2XC + 0.293\*zRNO3 + 0.005\*xCO + 0.007\*xHCHO + 0.684\*xRCHO + 0.069\*xACETONE + 0.002\*xMGLY + 0.056\*xRNO3 + yR6OOH + TRPRXN | 1.19E-12e 490.00/T | 6.1560E-12 | | BT12 | APIN + O3P ----> PRD2 + TRPRXN | 3.2000E-11 | 3.2000E-11 | | BE10 | ACETYLENE + OH ----> 0.300\*HO2 + 0.700\*OH + 0.300\*CO + 0.300\*HCOOH + 0.700\*GLY | ko= 5.50E-30e 0.0/T(T/300) 0.00
ki = 8.30E-13e 0.0/T(T/300) -2.00
n= 1.00;F= 0.60 | 7.6556E-13 | | BE11 | ACETYLENE + O3 ----> 1.500\*HO2 + 0.500\*OH + 1.500\*CO + 0.500\*CO2 | 1.00E-14e -4100.00/T | 1.0661E-20 | | BE12 | BENZENE + OH ----> 0.570\*HO2 + 0.290\*xHO2 + 0.116\*OH + 0.290\*RO2C + 0.024\*RO2XC + 0.024\*zRNO3 + 0.290\*xGLY + 0.570\*CRES + 0.029\*xAFG1 + 0.261\*xAFG2 + 0.116\*AFG3 + 0.314\*yRAOOH + BENZRO2 | 2.33E-12e -193.00/T | 1.2196E-12 | | BT13 | TOLUENE + OH ----> 0.181\*HO2 + 0.454\*xHO2 + 0.312\*OH + 0.454\*RO2C + 0.054\*RO2XC + 0.054\*zRNO3 + 0.238\*xGLY + 0.151\*xMGLY + 0.181\*CRES + 0.065\*xBALD + 0.195\*xAFG1 + 0.195\*xAFG2 + 0.312\*AFG3 + 0.073\*yR6OOH + 0.435\*yRAOOH + TOLRO2 | 1.81E-12e 338.00/T | 5.6237E-12 | | BT14 | MXYL + OH ----> 0.159\*HO2 + 0.520\*xHO2 + 0.239\*OH + 0.520\*RO2C + 0.082\*RO2XC + 0.082\*zRNO3 + 0.100\*xGLY + 0.380\*xMGLY + 0.159\*CRES + 0.041\*xBALD + 0.336\*xAFG1 + 0.144\*xAFG2 + 0.239\*AFG3 + 0.047\*yR6OOH + 0.555\*yRAOOH + XYLRO2 | 2.3100E-11 | 2.3100E-11 | | BT15 | OXYL + OH ----> 0.161\*HO2 + 0.554\*xHO2 + 0.198\*OH + 0.554\*RO2C + 0.087\*RO2XC + 0.087\*zRNO3 + 0.084\*xGLY + 0.238\*xMGLY + 0.185\*xBACL + 0.161\*CRES + 0.047\*xBALD + 0.253\*xAFG1 + 0.253\*xAFG2 + 0.198\*AFG3 + 0.055\*yR6OOH + 0.586\*yRAOOH + XYLRO2 | 1.3600E-11 | 1.3600E-11 | | BT16 | PXYL + OH ----> 0.159\*HO2 + 0.487\*xHO2 + 0.278\*OH + 0.487\*RO2C + 0.076\*RO2XC + 0.076\*zRNO3 + 0.286\*xGLY + 0.112\*xMGLY + 0.159\*CRES + 0.088\*xBALD + 0.045\*xAFG1 + 0.067\*xAFG2 + 0.278\*AFG3 + 0.286\*xAFG3 + 0.102\*yR6OOH + 0.461\*yRAOOH + XYLRO2 | 1.4300E-11 | 1.4300E-11 | | BT17 | TMBENZ124 + OH ----> 0.022\*HO2 + 0.627\*xHO2 + 0.230\*OH + 0.627\*RO2C + 0.121\*RO2XC + 0.121\*zRNO3 + 0.074\*xGLY + 0.405\*xMGLY + 0.112\*xBACL + 0.022\*CRES + 0.036\*xBALD + 0.088\*xAFG1 + 0.352\*xAFG2 + 0.230\*AFG3 + 0.151\*xAFG3 + 0.043\*yR6OOH + 0.705\*yRAOOH + XYLRO2 | 3.2500E-11 | 3.2500E-11 | | BT18 | ETOH + OH ----> 0.950\*HO2 + 0.050\*xHO2 + 0.050\*RO2C + 0.081\*xHCHO + 0.950\*CCHO + 0.010\*xHOCCHO + 0.050\*yROOH | 5.49E-13e 530.00/T(T/300) 2.00 | 3.2078E-12 | | BL01 | ALK1 + OH ----> xHO2 + RO2C + xCCHO + yROOH | 1.34E-12e -499.00/T(T/300) 2.00 | 2.4824E-13 | | BL02 | ALK2 + OH ----> 0.965\*xHO2 + 0.965\*RO2C + 0.035\*RO2XC + 0.035\*zRNO3 + 0.261\*xRCHO + 0.704\*xACETONE + yROOH | 1.49E-12e -87.00/T(T/300) 2.00 | 1.0992E-12 | | BL03 | ALK3 + OH ----> 0.695\*xHO2 + 0.236\*xTBUO + 1.253\*RO2C + 0.070\*RO2XC + 0.070\*zRNO3 + 0.026\*xHCHO + 0.445\*xCCHO + 0.122\*xRCHO + 0.024\*xACETONE + 0.332\*xMEK + 0.983\*yROOH + 0.017\*yR6OOH | 1.51E-12e 126.00/T | 2.3042E-12 | | BL04 | ALK4 + OH ----> 0.830\*xHO2 + 0.010\*xMEO2 + 0.011\*xMECO3 + 1.763\*RO2C + 0.149\*RO2XC + 0.149\*zRNO3 + 0.002\*xCO + 0.029\*xHCHO + 0.438\*xCCHO + 0.236\*xRCHO + 0.426\*xACETONE + 0.106\*xMEK + 0.146\*xPROD2 + yR6OOH | 3.75E-12e 44.00/T | 4.3463E-12 | | BL05 | ALK5 + OH ----> 0.647\*xHO2 + 1.605\*RO2C + 0.353\*RO2XC + 0.353\*zRNO3 + 0.040\*xHCHO + 0.106\*xCCHO + 0.209\*xRCHO + 0.071\*xACETONE + 0.086\*xMEK + 0.407\*xPROD2 + yR6OOH | 2.70E-12e 374.00/T | 9.4655E-12 | | AALK | SOAALK + OH ----> OH + 0.470\*ALKRXN | 2.70E-12e 374.00/T | 9.4655E-12 | | BL06 | OLE1 + OH ----> 0.871\*xHO2 + 0.001\*xMEO2 + 1.202\*RO2C + 0.128\*RO2XC + 0.128\*zRNO3 + 0.582\*xHCHO + 0.010\*xCCHO + 0.007\*xHOCCHO + 0.666\*xRCHO + 0.007\*xACETONE + 0.036\*xACROLEIN + 0.001\*xMACR + 0.012\*xMVK + 0.009\*xIPRD + 0.168\*xPROD2 + 0.169\*yROOH + 0.831\*yR6OOH | 6.72E-12e 501.00/T | 3.6070E-11 | | BL07 | OLE1 + O3 ----> 0.095\*HO2 + 0.057\*xHO2 + 0.128\*OH + 0.090\*RO2C + 0.005\*RO2XC + 0.005\*zRNO3 + 0.303\*CO + 0.088\*CO2 + 0.500\*HCHO + 0.011\*xCCHO + 0.500\*RCHO + 0.044\*xRCHO + 0.003\*xACETONE + 0.009\*MEK + 0.185\*HCOOH + 0.159\*RCOOH + 0.268\*PRD2 + 0.011\*yROOH + 0.052\*yR6OOH | 3.19E-15e -1701.00/T | 1.0618E-17 | | BL08 | OLE1 + NO3 ----> 0.772\*xHO2 + 1.463\*RO2C + 0.228\*RO2XC + 0.228\*zRNO3 + 0.013\*xCCHO + 0.003\*xRCHO + 0.034\*xACETONE + 0.774\*xRNO3 + 0.169\*yROOH + 0.831\*yR6OOH | 5.37E-13e -1047.00/T | 1.6028E-14 | | BL09 | OLE1 + O3P ----> 0.450\*RCHO + 0.390\*MEK + 0.160\*PRD2 | 1.61E-11e -326.00/T | 5.3947E-12 | | BL10 | OLE2 + OH ----> 0.912\*xHO2 + 0.953\*RO2C + 0.088\*RO2XC + 0.088\*zRNO3 + 0.179\*xHCHO + 0.835\*xCCHO + 0.510\*xRCHO + 0.144\*xACETONE + 0.080\*xMEK + 0.002\*xMVK + 0.012\*xIPRD + 0.023\*xPROD2 + 0.319\*yROOH + 0.681\*yR6OOH | 1.26E-11e 488.00/T | 6.4745E-11 | | BL11 | OLE2 + O3 ----> 0.094\*HO2 + 0.041\*xHO2 + 0.443\*OH + 0.307\*MEO2 + 0.156\*xMECO3 + 0.008\*xRCO3 + 0.212\*RO2C + 0.003\*RO2XC + 0.003\*zRNO3 + 0.299\*CO + 0.161\*CO2 + 0.131\*HCHO + 0.114\*xHCHO + 0.453\*CCHO + 0.071\*xCCHO + 0.333\*RCHO + 0.019\*xRCHO + 0.051\*ACETONE + 0.033\*MEK + 0.001\*xMEK + 0.024\*HCOOH + 0.065\*CCOOH + 0.235\*RCOOH + 0.037\*PRD2 + 0.073\*yROOH + 0.136\*yR6OOH | 8.59E-15e -1255.00/T | 1.2762E-16 | | BL12 | OLE2 + NO3 ----> 0.400\*xHO2 + 0.426\*xNO2 + 0.035\*xMEO2 + 1.193\*RO2C + 0.140\*RO2XC + 0.140\*zRNO3 + 0.072\*xHCHO + 0.579\*xCCHO + 0.163\*xRCHO + 0.116\*xACETONE + 0.002\*xMEK + 0.320\*xRNO3 + 0.319\*yROOH + 0.681\*yR6OOH | 2.31E-13e 382.00/T | 8.3185E-13 | | BL13 | OLE2 + O3P ----> 0.079\*RCHO + 0.751\*MEK + 0.170\*PRD2 | 1.43E-11e 111.00/T | 2.0750E-11 | | BL14 | ARO1 + OH ----> 0.123\*HO2 + 0.566\*xHO2 + 0.202\*OH + 0.566\*RO2C + 0.110\*RO2XC + 0.110\*zRNO3 + 0.158\*xGLY + 0.100\*xMGLY + 0.123\*CRES + 0.072\*xAFG1 + 0.185\*xAFG2 + 0.202\*AFG3 + 0.309\*xPROD2 + 0.369\*yR6OOH + TOLRO2 | 7.8400E-12 | 7.8400E-12 | | BL15 | ARO2MN + OH ----> 0.077\*HO2 + 0.617\*xHO2 + 0.178\*OH + 0.617\*RO2C + 0.128\*RO2XC + 0.128\*zRNO3 + 0.088\*xGLY + 0.312\*xMGLY + 0.134\*xBACL + 0.077\*CRES + 0.026\*xBALD + 0.221\*xAFG1 + 0.247\*xAFG2 + 0.178\*AFG3 + 0.068\*xAFG3 + 0.057\*xPROD2 + 0.101\*yR6OOH + XYLRO2 | 3.0900E-11 | 3.0900E-11 | | BL15b | NAPHTHAL + OH ----> 0.077\*HO2 + 0.617\*xHO2 + 0.178\*OH + 0.617\*RO2C + 0.128\*RO2XC + 0.128\*zRNO3 + 0.088\*xGLY + 0.312\*xMGLY + 0.134\*xBACL + 0.077\*CRES + 0.026\*xBALD + 0.221\*xAFG1 + 0.247\*xAFG2 + 0.178\*AFG3 + 0.068\*xAFG3 + 0.057\*xPROD2 + 0.101\*yR6OOH + PAHRO2 | 3.0900E-11 | 3.0900E-11 | | BL16 | TERP + OH ----> 0.734\*xHO2 + 0.064\*xRCO3 + 1.211\*RO2C + 0.201\*RO2XC + 0.201\*zRNO3 + 0.001\*xCO + 0.411\*xHCHO + 0.385\*xRCHO + 0.037\*xACETONE + 0.007\*xMEK + 0.003\*xMGLY + 0.009\*xBACL + 0.003\*xMVK + 0.002\*xIPRD + 0.409\*xPROD2 + yR6OOH + TRPRXN | 2.27E-11e 435.00/T | 9.7647E-11 | | BL17 | TERP + O3 ----> 0.078\*HO2 + 0.046\*xHO2 + 0.499\*OH + 0.202\*xMECO3 + 0.059\*xRCO3 + 0.490\*RO2C + 0.121\*RO2XC + 0.121\*zRNO3 + 0.249\*CO + 0.063\*CO2 + 0.127\*HCHO + 0.033\*xHCHO + 0.208\*xRCHO + 0.057\*xACETONE + 0.002\*MEK + 0.172\*HCOOH + 0.068\*RCOOH + 0.003\*xMGLY + 0.039\*xBACL + 0.002\*xMACR + 0.001\*xIPRD + 0.502\*PRD2 + 0.428\*yR6OOH + TRPRXN | 8.28E-16e -785.00/T | 5.9508E-17 | | BL18 | TERP + NO3 ----> 0.227\*xHO2 + 0.287\*xNO2 + 0.026\*xRCO3 + 1.786\*RO2C + 0.460\*RO2XC + 0.460\*zRNO3 + 0.012\*xCO + 0.023\*xHCHO + 0.002\*xHOCCHO + 0.403\*xRCHO + 0.239\*xACETONE + 0.005\*xMACR + 0.001\*xMVK + 0.004\*xIPRD + 0.228\*xRNO3 + yR6OOH + TRPRXN | 1.33E-12e 490.00/T | 6.8802E-12 | | BL19 | TERP + O3P ----> 0.237\*RCHO + 0.763\*PRD2 + TRPRXN | 4.0200E-11 | 4.0200E-11 | | BT19 | SESQ + OH ----> 0.734\*xHO2 + 0.064\*xRCO3 + 1.211\*RO2C + 0.201\*RO2XC + 0.201\*zRNO3 + 0.001\*xCO + 0.411\*xHCHO + 0.385\*xRCHO + 0.037\*xACETONE + 0.007\*xMEK + 0.003\*xMGLY + 0.009\*xBACL + 0.003\*xMVK + 0.002\*xIPRD + 0.409\*xPROD2 + yR6OOH + SESQRXN | BL16 | 9.7647E-117| | BT20 | SESQ + O3 ----> 0.078\*HO2 + 0.046\*xHO2 + 0.499\*OH + 0.202\*xMECO3 + 0.059\*xRCO3 + 0.490\*RO2C + 0.121\*RO2XC + 0.121\*zRNO3 + 0.249\*CO + 0.063\*CO2 + 0.127\*HCHO + 0.033\*xHCHO + 0.208\*xRCHO + 0.057\*xACETONE + 0.002\*MEK + 0.172\*HCOOH + 0.068\*RCOOH + 0.003\*xMGLY + 0.039\*xBACL + 0.002\*xMACR + 0.001\*xIPRD + 0.502\*PRD2 + 0.428\*yR6OOH + SESQRXN | BL17 | 5.9508E-177| | BT21 | SESQ + NO3 ----> 0.227\*xHO2 + 0.287\*xNO2 + 0.026\*xRCO3 + 1.786\*RO2C + 0.460\*RO2XC + 0.460\*zRNO3 + 0.012\*xCO + 0.023\*xHCHO + 0.002\*xCCHO + 0.403\*xRCHO + 0.239\*xACETONE + 0.005\*xMACR + 0.001\*xMVK + 0.004\*xIPRD + 0.228\*xRNO3 + yR6OOH + SESQRXN | BL18 | 6.8802E-127| | BT22 | SESQ + O3P ----> 0.237\*RCHO + 0.763\*PRD2 + SESQRXN | BL19 | 4.0200E-117| | CI01 | CL2 ----> 2.000\*CL | CL2 | Not Available1 | | CI02 | CL + NO + M ----> CLNO | 7.60E-32(T/300) -1.80 | 7.6851E-32 | | CI03 | CLNO ----> CL + NO | CLNO_06 | Not Available1 | | CI04 | CL + NO2 ----> CLONO | ko= 1.30E-30e 0.0/T(T/300) -2.00
ki = 1.00E-10e 0.0/T(T/300) -1.00
n= 1.00;F= 0.60 | 1.6244E-11 | | CI05 | CL + NO2 ----> CLNO2 | ko= 1.80E-31e 0.0/T(T/300) -2.00
ki = 1.00E-10e 0.0/T(T/300) -1.00
n= 1.00;F= 0.60 | 3.5840E-12 | | CI06 | CLONO ----> CL + NO2 | CLONO | Not Available1 | | CI07 | CLNO2 ----> CL + NO2 | CLNO2 | Not Available1 | | CI08 | CL + HO2 ----> HCL | 3.44E-11(T/300) -0.56 | 3.4519E-11 | | CI09 | CL + HO2 ----> CLO + OH | 9.41E-12(T/300) 2.10 | 9.2886E-12 | | CI10 | CL + O3 ----> CLO | 2.80E-11e -250.00/T | 1.2106E-11 | | CI11 | CL + NO3 ----> CLO + NO2 | 2.4000E-11 | 2.4000E-11 | | CI12 | CLO + NO ----> CL + NO2 | 6.20E-12e 295.00/T | 1.6676E-11 | | CI13 | CLO + NO2 ----> CLONO2 | ko= 1.80E-31e 0.0/T(T/300) -3.40
ki = 1.50E-11e 0.0/T(T/300) -1.90
n= 1.00;F= 0.60 | 2.3359E-12 | | CI14 | CLONO2 ----> CLO + NO2 | CLONO2_1 | Not Available1 | | CI15 | CLONO2 ----> CL + NO3 | CLONO2_2 | Not Available1 | | CI16 | CLONO2 ----> CLO + NO2 | ko= 4.48E-05e-12530.0/T(T/300) -1.00
ki = 3.71E+15e-12530.0/T(T/300) 3.50
n= 1.00;F= 0.60 | 3.1797E-04 | | CI17 | CL + CLONO2 ----> CL2 + NO3 | 6.20E-12e 145.00/T | 1.0083E-11 | | CI18 | CLO + HO2 ----> HOCL | 2.20E-12e 340.00/T | 6.8814E-12 | | CI19 | HOCL ----> OH + CL | HOCL_06 | Not Available1 | | CI20 | CLO + CLO ----> 0.290\*CL2 + 1.420\*CL | 1.25E-11e -1960.00/T | 1.7455E-14 | | CI21 | OH + HCL ----> CL | 1.70E-12e -230.00/T | 7.8600E-13 | | CI22 | CL + H2 ----> HCL + HO2 | 3.90E-11e -2310.00/T | 1.6836E-14 | | CP01 | HCHO + CL ----> HCL + HO2 + CO | 8.10E-11e -30.00/T | 7.3246E-11 | | CP02 | CCHO + CL ----> HCL + MECO3 | 8.0000E-11 | 8.0000E-11 | | CP03 | MEOH + CL ----> HCL + HCHO + HO2 | 5.5000E-11 | 5.5000E-11 | | CP04 | RCHO + CL ----> HCL + 0.900\*RCO3 + 0.100\*RO2C + 0.100\*xCCHO + 0.100\*xCO + 0.100\*xHO2 + 0.100\*yROOH | 1.2300E-10 | 1.2300E-10 | | CP05 | ACETONE + CL ----> HCL + RO2C + xHCHO + xMECO3 + yROOH | 7.70E-11e -1000.00/T | 2.6907E-12 | | CP06 | MEK + CL ----> HCL + 0.975\*RO2C + 0.039\*RO2XC + 0.039\*zRNO3 + 0.840\*xHO2 + 0.085\*xMECO3 + 0.036\*xRCO3 + 0.065\*xHCHO + 0.070\*xCCHO + 0.840\*xRCHO + yROOH | 3.6000E-11 | 3.6000E-11 | | CP07 | RNO3 + CL ----> HCL + 0.038\*NO2 + 0.055\*HO2 + 1.282\*RO2C + 0.202\*RO2XC + 0.202\*zRNO3 + 0.009\*RCHO + 0.018\*MEK + 0.012\*PRD2 + 0.055\*RNO3 + 0.159\*xNO2 + 0.547\*xHO2 + 0.045\*xHCHO + 0.300\*xCCHO + 0.020\*xRCHO + 0.003\*xACETONE + 0.041\*xMEK + 0.046\*xPROD2 + 0.547\*xRNO3 + 0.908\*yR6OOH | 1.9200E-10 | 1.9200E-10 | | CP08 | PRD2 + CL ----> HCL + 0.314\*HO2 + 0.680\*RO2C + 0.116\*RO2XC + 0.116\*zRNO3 + 0.198\*RCHO + 0.116\*PRD2 + 0.541\*xHO2 + 0.007\*xMECO3 + 0.022\*xRCO3 + 0.237\*xHCHO + 0.109\*xCCHO + 0.591\*xRCHO + 0.051\*xMEK + 0.040\*xPROD2 + 0.686\*yR6OOH | 2.0000E-10 | 2.0000E-10 | | CP09 | GLY + CL ----> HCL + 0.630\*HO2 + 1.260\*CO + 0.370\*RCO3 | 8.10E-11e -30.00/T | 7.3246E-11 | | CP10 | MGLY + CL ----> HCL + CO + MECO3 | 8.0000E-11 | 8.0000E-11 | | CP11 | CRES + CL ----> HCL + xHO2 + xBALD + yR6OOH | 6.2000E-11 | 6.2000E-11 | | CP12 | BALD + CL ----> HCL + BZCO3 | 8.0000E-11 | 8.0000E-11 | | CP13 | ROOH + CL ----> HCL + 0.414\*OH + 0.588\*RO2C + 0.414\*RCHO + 0.104\*xOH + 0.482\*xHO2 + 0.106\*xHCHO + 0.104\*xCCHO + 0.197\*xRCHO + 0.285\*xMEK + 0.586\*yROOH | 1.6600E-10 | 1.6600E-10 | | CP14 | R6OOH + CL ----> HCL + 0.145\*OH + 1.078\*RO2C + 0.117\*RO2XC + 0.117\*zRNO3 + 0.145\*PRD2 + 0.502\*xOH + 0.237\*xHO2 + 0.186\*xCCHO + 0.676\*xRCHO + 0.280\*xPROD2 + 0.855\*yR6OOH | 3.0000E-10 | 3.0000E-10 | | CP15 | RAOOH + CL ----> 0.404\*HCL + 0.139\*OH + 0.148\*HO2 + 0.589\*RO2C + 0.124\*RO2XC + 0.124\*zRNO3 + 0.074\*PRD2 + 0.147\*MGLY + 0.139\*IPRD + 0.565\*xHO2 + 0.024\*xOH + 0.448\*xRCHO + 0.026\*xGLY + 0.030\*xMEK + 0.252\*xMGLY + 0.073\*xAFG1 + 0.073\*xAFG2 + 0.713\*yR6OOH | 4.2900E-10 | 4.2900E-10 | | TP01 | ACROLEIN + CL ----> 0.484\*xHO2 + 0.274\*xCL + 0.216\*MACO3 + 1.032\*RO2C + 0.026\*RO2XC + 0.026\*zRNO3 + 0.216\*HCL + 0.484\*xCO + 0.274\*xHCHO + 0.274\*xGLY + 0.484\*xCLCCHO + 0.784\*yROOH | 2.9400E-10 | 2.9400E-10 | | CP16 | MACR + CL ----> 0.250\*HCL + 0.165\*MACO3 + 0.802\*RO2C + 0.033\*RO2XC + 0.033\*zRNO3 + 0.802\*xHO2 + 0.541\*xCO + 0.082\*xIPRD + 0.180\*xCLCCHO + 0.541\*xCLACET + 0.835\*yROOH | 3.8500E-10 | 3.8500E-10 | | CP17 | MVK + CL ----> 1.283\*RO2C + 0.053\*RO2XC + 0.053\*zRNO3 + 0.322\*xHO2 + 0.625\*xMECO3 + 0.947\*xCLCCHO + yROOH | 2.3200E-10 | 2.3200E-10 | | CP18 | IPRD + CL ----> 0.401\*HCL + 0.084\*HO2 + 0.154\*MACO3 + 0.730\*RO2C + 0.051\*RO2XC + 0.051\*zRNO3 + 0.042\*AFG1 + 0.042\*AFG2 + 0.712\*xHO2 + 0.498\*xCO + 0.195\*xHCHO + 0.017\*xMGLY + 0.009\*xAFG1 + 0.009\*xAFG2 + 0.115\*xIPRD + 0.140\*xCLCCHO + 0.420\*xCLACET + 0.762\*yR6OOH | 4.1200E-10 | 4.1200E-10 | | CP19 | CLCCHO ----> HO2 + CO + RO2C + xCL + xHCHO + yROOH | CLCCHO | Not Available1 | | CP20 | CLCCHO + OH ----> RCO3 | 3.1000E-12 | 3.1000E-12 | | CP21 | CLCCHO + CL ----> HCL + RCO3 | 1.2900E-11 | 1.2900E-11 | | CP22 | CLACET ----> MECO3 + RO2C + xCL + xHCHO + yROOH | 5.0000E-01\*CLACET | Not Available1 | | CP29 | xCL + NO ----> NO + CL | BR07 | 9.3002E-127| | CP30 | xCL + HO2 ----> HO2 | BR08 | 7.7759E-127| | CP31 | xCL + NO3 ----> NO3 + CL | BR09 | 2.3000E-127| | CP32 | xCL + MEO2 ----> MEO2 + 0.500\*CL | BR10 | 2.0000E-137| | CP33 | xCL + RO2C ----> RO2C + 0.500\*CL | BR11 | 3.5000E-147| | CP34 | xCL + RO2XC ----> RO2XC + 0.500\*CL | BR11 | 3.5000E-147| | CP35 | xCL + MECO3 ----> MECO3 + CL | BR25 | 1.5924E-117| | CP36 | xCL + RCO3 ----> RCO3 + CL | BR25 | 1.5924E-117| | CP37 | xCL + BZCO3 ----> BZCO3 + CL | BR25 | 1.5924E-117| | CP38 | xCL + MACO3 ----> MACO3 + CL | BR25 | 1.5924E-117| | CP39 | xCLCCHO + NO ----> NO + CLCCHO | BR07 | 9.3002E-127| | CP40 | xCLCCHO + HO2 ----> HO2 | BR08 | 7.7759E-127| | CP41 | xCLCCHO + NO3 ----> NO3 + CLCCHO | BR09 | 2.3000E-127| | CP42 | xCLCCHO + MEO2 ----> MEO2 + 0.500\*CLCCHO | BR10 | 2.0000E-137| | CP43 | xCLCCHO + RO2C ----> RO2C + 0.500\*CLCCHO | BR11 | 3.5000E-147| | CP44 | xCLCCHO + RO2XC ----> RO2XC + 0.500\*CLCCHO | BR11 | 3.5000E-147| | CP45 | xCLCCHO + MECO3 ----> MECO3 + CLCCHO | BR25 | 1.5924E-117| | CP46 | xCLCCHO + RCO3 ----> RCO3 + CLCCHO | BR25 | 1.5924E-117| | CP47 | xCLCCHO + BZCO3 ----> BZCO3 + CLCCHO | BR25 | 1.5924E-117| | CP48 | xCLCCHO + MACO3 ----> MACO3 + CLCCHO | BR25 | 1.5924E-117| | CP49 | xCLACET + NO ----> NO + CLACET | BR07 | 9.3002E-127| | CP50 | xCLACET + HO2 ----> HO2 | BR08 | 7.7759E-127| | CP51 | xCLACET + NO3 ----> NO3 + CLACET | BR09 | 2.3000E-127| | CP52 | xCLACET + MEO2 ----> MEO2 + 0.500\*CLACET | BR10 | 2.0000E-137| | CP53 | xCLACET + RO2C ----> RO2C + 0.500\*CLACET | BR11 | 3.5000E-147| | CP54 | xCLACET + RO2XC ----> RO2XC + 0.500\*CLACET | BR11 | 3.5000E-147| | CP55 | xCLACET + MECO3 ----> MECO3 + CLACET | BR25 | 1.5924E-117| | CP56 | xCLACET + RCO3 ----> RCO3 + CLACET | BR25 | 1.5924E-117| | CP57 | xCLACET + BZCO3 ----> BZCO3 + CLACET | BR25 | 1.5924E-117| | CP58 | xCLACET + MACO3 ----> MACO3 + CLACET | BR25 | 1.5924E-117| | CE01 | CL + CH4 ----> HCL + MEO2 | 7.30E-12e -1280.00/T | 9.9732E-14 | | CE02 | ETHENE + CL ----> xHO2 + 2.000\*RO2C + xHCHO + CLCHO | ko= 1.60E-29e 0.0/T(T/300) -3.30
ki = 3.10E-10e 0.0/T(T/300) -1.00
n= 1.00;F= 0.60 | 1.0603E-10 | | TE01 | PROPENE + CL ----> 0.124\*HCL + 0.971\*xHO2 + 0.971\*RO2C + 0.029\*RO2XC + 0.029\*zRNO3 + 0.124\*xACROLEIN + 0.306\*xCLCCHO + 0.540\*xCLACET + yROOH | 2.6700E-10 | 2.6700E-10 | | TE02 | BUTADIENE13 + CL ----> 0.390\*xHO2 + 0.541\*xCL + 1.884\*RO2C + 0.069\*RO2XC + 0.069\*zRNO3 + 0.863\*xHCHO + 0.457\*xACROLEIN + 0.473\*xIPRD + yROOH | 4.9000E-10 | 4.9000E-10 | | CE03 | ISOPRENE + CL ----> 0.150\*HCL + 0.738\*xHO2 + 0.177\*xCL + 1.168\*RO2C + 0.085\*RO2XC + 0.085\*zRNO3 + 0.275\*xHCHO + 0.177\*xMVK + 0.671\*xIPRD + 0.067\*xCLCCHO + yR6OOH | 4.8000E-10 | 4.8000E-10 | | TE03 | APIN + CL ----> 0.548\*HCL + 0.252\*xHO2 + 0.068\*xCL + 0.034\*xMECO3 + 0.050\*xRCO3 + 0.016\*xMACO3 + 2.258\*RO2C + 0.582\*RO2XC + 0.582\*zRNO3 + 0.035\*xCO + 0.158\*xHCHO + 0.185\*xRCHO + 0.274\*xACETONE + 0.007\*xGLY + 0.003\*xBACL + 0.003\*xMVK + 0.158\*xIPRD + 0.006\*xAFG1 + 0.006\*xAFG2 + 0.001\*xAFG3 + 0.109\*xCLCCHO + yR6OOH | 5.4600E-10 | 5.4600E-10 | | CE04 | ACETYLENE + CL ----> HO2 + CO | ko= 5.20E-30e 0.0/T(T/300) -2.40
ki = 2.20E-10e 0.0/T(T/300) 0.00
n= 1.00;F= 0.60 | 5.0269E-11 | | TE04 | TOLUENE + CL ----> 0.894\*xHO2 + 0.894\*RO2C + 0.106\*RO2XC + 0.106\*zRNO3 + 0.894\*xBALD | 6.2000E-11 | 6.2000E-11 | | TE05 | MXYL + CL ----> 0.864\*xHO2 + 0.864\*RO2C + 0.136\*RO2XC + 0.136\*zRNO3 + 0.864\*xBALD | 1.3500E-10 | 1.3500E-10 | | TE06 | OXYL + CL ----> 0.864\*xHO2 + 0.864\*RO2C + 0.136\*RO2XC + 0.136\*zRNO3 + 0.864\*xBALD | 1.4000E-10 | 1.4000E-10 | | TE07 | PXYL + CL ----> 0.864\*xHO2 + 0.864\*RO2C + 0.136\*RO2XC + 0.136\*zRNO3 + 0.864\*xBALD | 1.4400E-10 | 1.4400E-10 | | TE08 | TMBENZ124 + CL ----> 0.838\*xHO2 + 0.838\*RO2C + 0.162\*RO2XC + 0.162\*zRNO3 + 0.838\*xBALD | 2.4200E-10 | 2.4200E-10 | | TE09 | ETOH + CL ----> HCL + 0.688\*HO2 + 0.312\*xHO2 + 0.312\*RO2C + 0.503\*xHCHO + 0.688\*CCHO + 0.061\*xHOCCHO + 0.312\*yROOH | 8.60E-11e 45.00/T | 1.0001E-10 | | BC01 | ALK1 + CL ----> HCL + xHO2 + RO2C + xCCHO + yROOH | 8.30E-11e -100.00/T | 5.9349E-11 | | BC02 | ALK2 + CL ----> HCL + 0.970\*xHO2 + 0.970\*RO2C + 0.030\*RO2XC + 0.030\*zRNO3 + 0.482\*xRCHO + 0.488\*xACETONE + yROOH | 1.20E-10e 40.00/T | 1.3723E-10 | | BC03 | ALK3 + CL ----> HCL + 0.835\*xHO2 + 0.094\*xTBUO + 1.361\*RO2C + 0.070\*RO2XC + 0.070\*zRNO3 + 0.078\*xHCHO + 0.340\*xCCHO + 0.343\*xRCHO + 0.075\*xACETONE + 0.253\*xMEK + 0.983\*yROOH + 0.017\*yR6OOH | 1.8600E-10 | 1.8600E-10 | | BC04 | ALK4 + CL ----> HCL + 0.827\*xHO2 + 0.003\*xMEO2 + 0.004\*xMECO3 + 1.737\*RO2C + 0.165\*RO2XC + 0.165\*zRNO3 + 0.003\*xCO + 0.034\*xHCHO + 0.287\*xCCHO + 0.412\*xRCHO + 0.247\*xACETONE + 0.076\*xMEK + 0.130\*xPROD2 + yR6OOH | 2.6300E-10 | 2.6300E-10 | | BC05 | ALK5 + CL ----> HCL + 0.647\*xHO2 + 1.541\*RO2C + 0.352\*RO2XC + 0.352\*zRNO3 + 0.022\*xHCHO + 0.080\*xCCHO + 0.258\*xRCHO + 0.044\*xACETONE + 0.041\*xMEK + 0.378\*xPROD2 + yR6OOH | 4.2100E-10 | 4.2100E-10 | | BC06 | OLE1 + CL ----> 0.384\*HCL + 0.873\*xHO2 + 1.608\*RO2C + 0.127\*RO2XC + 0.127\*zRNO3 + 0.036\*xHCHO + 0.206\*xCCHO + 0.072\*xRCHO + 0.215\*xACROLEIN + 0.019\*xMVK + 0.038\*xIPRD + 0.192\*xCLCCHO + 0.337\*xCLACET + 0.169\*yROOH + 0.831\*yR6OOH | 3.9200E-10 | 3.9200E-10 | | BC07 | OLE2 + CL ----> 0.279\*HCL + 0.450\*xHO2 + 0.442\*xCL + 0.001\*xMEO2 + 1.492\*RO2C + 0.106\*RO2XC + 0.106\*zRNO3 + 0.190\*xHCHO + 0.383\*xCCHO + 0.317\*xRCHO + 0.086\*xACETONE + 0.042\*xMEK + 0.025\*xMACR + 0.058\*xMVK + 0.161\*xIPRD + 0.013\*xCLCCHO + 0.191\*xCLACET + 0.319\*yROOH + 0.681\*yR6OOH | 3.7700E-10 | 3.7700E-10 | | BC08 | ARO1 + CL ----> 0.840\*xHO2 + 0.840\*RO2C + 0.160\*RO2XC + 0.160\*zRNO3 + 0.840\*xPROD2 | 2.1600E-10 | 2.1600E-10 | | BC09 | ARO2MN + CL ----> 0.828\*xHO2 + 0.828\*RO2C + 0.172\*RO2XC + 0.172\*zRNO3 + 0.469\*xBALD + 0.359\*xPROD2 | 2.6600E-10 | 2.6600E-10 | | BC09b | NAPHTHAL + CL ----> 0.828\*xHO2 + 0.828\*RO2C + 0.172\*RO2XC + 0.172\*zRNO3 + 0.469\*xBALD + 0.359\*xPROD2 | 2.6600E-10 | 2.6600E-10 | | BC10 | TERP + CL ----> 0.548\*HCL + 0.252\*xHO2 + 0.068\*xCL + 0.034\*xMECO3 + 0.050\*xRCO3 + 0.016\*xMACO3 + 2.258\*RO2C + 0.582\*RO2XC + 0.582\*zRNO3 + 0.035\*xCO + 0.158\*xHCHO + 0.185\*xRCHO + 0.274\*xACETONE + 0.007\*xGLY + 0.003\*xBACL + 0.003\*xMVK + 0.158\*xIPRD + 0.006\*xAFG1 + 0.006\*xAFG2 + 0.001\*xAFG3 + 0.109\*xCLCCHO + yR6OOH | 5.4600E-10 | 5.4600E-10 | | BC11 | SESQ + CL ----> 0.252\*xHO2 + 0.068\*xCL + 0.034\*xMECO3 + 0.050\*xRCO3 + 0.016\*xMACO3 + 2.258\*RO2C + 0.582\*RO2XC + 0.582\*zRNO3 + 0.548\*HCL + 0.035\*xCO + 0.158\*xHCHO + 0.185\*xRCHO + 0.274\*xACETONE + 0.007\*xGLY + 0.003\*xBACL + 0.003\*xMVK + 0.158\*xIPRD + 0.006\*xAFG1 + 0.006\*xAFG2 + 0.001\*xAFG3 + 0.109\*xCLCCHO + yR6OOH | BC10 | 5.4600E-107| | AE51 | BENZRO2 + NO ----> NO + BNZNRXN | BR07 | 9.3002E-127| | AE52 | BENZRO2 + HO2 ----> HO2 + BNZHRXN | BR08 | 7.7759E-127| | AE53 | XYLRO2 + NO ----> NO + XYLNRXN | BR07 | 9.3002E-127| | AE54 | XYLRO2 + HO2 ----> HO2 + XYLHRXN | BR08 | 7.7759E-127| | AE55 | TOLRO2 + NO ----> NO + TOLNRXN | BR07 | 9.3002E-127| | AE56 | TOLRO2 + HO2 ----> HO2 + TOLHRXN | BR08 | 7.7759E-127| | AE55b | PAHRO2 + NO ----> NO + PAHNRXN | BR07 | 9.3002E-127| | AE56b | PAHRO2 + HO2 ----> HO2 + PAHHRXN | BR08 | 7.7759E-127| | TR01 | HCHO_PRIMARY ----> | HCHOR_06 | Not Available1 | | TR02 | HCHO_PRIMARY ----> | HCHOM_06 | Not Available1 | | TR03 | HCHO_PRIMARY + OH ----> OH | 5.40E-12e 135.00/T | 8.4926E-12 | | TR05 | HCHO_PRIMARY + NO3 ----> NO3 | 2.00E-12e -2431.00/T | 5.7539E-16 | | TR06 | HCHO_PRIMARY + CL ----> CL | 8.10E-11e -30.00/T | 7.3246E-11 | | TR07 | CCHO_PRIMARY + OH ----> OH | 4.40E-12e 365.00/T | 1.4967E-11 | | TR08 | CCHO_PRIMARY ----> | CCHO_R | Not Available1 | | TR09 | CCHO_PRIMARY + NO3 ----> NO3 | 1.40E-12e -1860.00/T | 2.7340E-15 | | TR10 | CCHO_PRIMARY + CL ----> CL | 8.0000E-11 | 8.0000E-11 | | TR11 | ACRO_PRIMARY + OH ----> OH | 1.9900E-11 | 1.9900E-11 | | TR12 | ACRO_PRIMARY + O3 ----> O3 | 1.40E-15e -2528.00/T | 2.9091E-19 | | TR13 | ACRO_PRIMARY + NO3 ----> NO3 | 1.1800E-15 | 1.1800E-15 | | TR14 | ACRO_PRIMARY + O3P ----> O3P | 2.3700E-12 | 2.3700E-12 | | TR15 | ACRO_PRIMARY ----> | ACRO_09 | Not Available1 | | TR16 | ACRO_PRIMARY + CL ----> CL | 2.9400E-10 | 2.9400E-10 | | HET_N02 | NO2 ----> 0.500\*HONO + 0.500\*HNO3 | HETERO_NO2 | Not Available2 | | HET_N2O5IJ | N2O5 ----> HNO3 + H2NO3PIJ | HETERO_N2O5IJ | Not Available2 | | HET_N2O5K | N2O5 ----> HNO3 + H2NO3PK | HETERO_N2O5K | Not Available2 | | HET_H2NO3PIJA | H2NO3PIJ ----> HNO3 | HETERO_H2NO3PAIJ | Not Available2 | | HET_H2NO3PKA | H2NO3PK ----> HNO3 | HETERO_H2NO3PAK | Not Available2 | | HET_H2NO3PIB | H2NO3PIJ + ACLI ----> CLNO2 | HETERO_H2NO3PBIJ | Not Available2 | | HET_H2NO3PJB | H2NO3PIJ + ACLJ ----> CLNO2 | HETERO_H2NO3PBIJ | Not Available2 | | HET_H2NO3PKB | H2NO3PK + ACLK ----> CLNO2 | HETERO_H2NO3PBK | Not Available2 | | HAL_Ozone | O3 ----> | SEAWATER*min( 6.701E-11e 1.074E+01P+ 3.415E-08e-6.713E-01P,
2.000E-06) | 2.0000E-064| | OLIG_XYLENE1 | AXYL1J ----> 0.857\*AOLGAJ | 9.4882E-06 | 9.4882E-06 | | OLIG_XYLENE2 | AXYL2J ----> 1.143\*AOLGAJ | 9.4882E-06 | 9.4882E-06 | | OLIG_TOLUENE1 | ATOL1J ----> 0.857\*AOLGAJ | 9.4882E-06 | 9.4882E-06 | | OLIG_TOLUENE2 | ATOL2J ----> 1.143\*AOLGAJ | 9.4882E-06 | 9.4882E-06 | | OLIG_BENZENE1 | ABNZ1J ----> 0.714\*AOLGAJ | 9.4882E-06 | 9.4882E-06 | | OLIG_BENZENE2 | ABNZ2J ----> 0.714\*AOLGAJ | 9.4882E-06 | 9.4882E-06 | | OLIG_TERPENE1 | ATRP1J ----> 0.800\*AOLGBJ | 9.4882E-06 | 9.4882E-06 | | OLIG_TERPENE2 | ATRP2J ----> 0.900\*AOLGBJ | 9.4882E-06 | 9.4882E-06 | | OLIG_ISOPRENE1 | AISO1J ----> 0.500\*AOLGBJ | 9.4882E-06 | 9.4882E-06 | | OLIG_ISOPRENE2 | AISO2J ----> 0.500\*AOLGBJ | 9.4882E-06 | 9.4882E-06 | | OLIG_SESQT1 | ASQTJ ----> 1.500\*AOLGBJ | 9.4882E-06 | 9.4882E-06 | | OLIG_PAH1 | APAH1J ----> 1.429\*AOLGAJ | 9.4882E-06 | 9.4882E-06 | | OLIG_PAH2 | APAH2J ----> 1.429\*AOLGAJ | 9.4882E-06 | 9.4882E-06 | | OLIG_ALK1 | AALK1J ----> 1.714\*AOLGAJ | 9.4882E-06 | 9.4882E-06 | | OLIG_ALK2 | AALK2J ----> 1.714\*AOLGAJ | 9.4882E-06 | 9.4882E-06 | | RPOAGEPI | APOCI + OH ----> 1.250\*APNCOMI + APOCI + OH | 2.5000E-12 | 2.5000E-12 | | RPOAGELI | APNCOMI + OH ----> OH | HETERO_PNCOMLI | Not Available2 | | RPOAGEPJ | APOCJ + OH ----> 1.250\*APNCOMJ + APOCJ + OH | 2.5000E-12 | 2.5000E-12 | | RPOAGELJ | APNCOMJ + OH ----> OH | HETERO_PNCOMLJ | Not Available2 | | PCSOA | PCVOC + OH ----> OH + PCSOARXN | 1.2500E-11 | 1.2500E-11 | | POA_AGE1 | VLVPO1 + OH ----> OH + 0.486\*VLVPO1 + 0.006\*VSVPO1 + 0.003\*VSVPO2 + 0.003\*VSVPO3 + 0.002\*VIVPO1 + 0.294\*VLVOO1 + 0.202\*VLVOO2 + 0.002\*VSVOO2 + 0.002\*VSVOO3 | 4.0000E-11 | 4.0000E-11 | | POA_AGE2 | VSVPO1 + OH ----> OH + 0.300\*VLVPO1 + 0.286\*VSVPO1 + 0.004\*VSVPO2 + 0.004\*VSVPO3 + 0.224\*VLVOO1 + 0.182\*VLVOO2 | 4.0000E-11 | 4.0000E-11 | | POA_AGE3 | VSVPO2 + OH ----> OH + 0.386\*VLVPO1 + 0.095\*VSVPO1 + 0.137\*VSVPO2 + 0.001\*VSVPO3 + 0.205\*VLVOO1 + 0.176\*VLVOO2 | 4.0000E-11 | 4.0000E-11 | | POA_AGE4 | VSVPO3 + OH ----> OH + 0.218\*VLVPO1 + 0.306\*VSVPO1 + 0.015\*VSVPO2 + 0.104\*VSVPO3 + 0.189\*VLVOO1 + 0.167\*VLVOO2 | 4.0000E-11 | 4.0000E-11 | | POA_AGE5 | VIVPO1 + OH ----> OH + 0.241\*VLVPO1 + 0.209\*VSVPO1 + 0.300\*VSVPO2 + 0.203\*VLVOO1 + 0.047\*VLVOO2 | 4.0000E-11 | 4.0000E-11 | | POA_AGE6 | VLVOO1 + OH ----> OH + 0.666\*VLVOO1 + 0.014\*VLVOO2 + 0.012\*VSVOO1 + 0.124\*VSVOO2 + 0.183\*VSVOO3 | 4.0000E-11 | 4.0000E-11 | | POA_AGE7 | VLVOO2 + OH ----> OH + 0.286\*VLVOO1 + 0.393\*VLVOO2 + 0.014\*VSVOO1 + 0.103\*VSVOO2 + 0.204\*VSVOO3 | 4.0000E-11 | 4.0000E-11 | | POA_AGE8 | VSVOO1 + OH ----> OH + 0.330\*VLVOO1 + 0.227\*VLVOO2 + 0.261\*VSVOO1 + 0.070\*VSVOO2 + 0.112\*VSVOO3 | 4.0000E-11 | 4.0000E-11 | | POA_AGE9 | VSVOO2 + OH ----> OH + 0.344\*VLVOO1 + 0.275\*VLVOO2 + 0.049\*VSVOO1 + 0.258\*VSVOO2 + 0.074\*VSVOO3 | 4.0000E-11 | 4.0000E-11 | | POA_AGE10 | VSVOO3 + OH ----> OH + 0.389\*VLVOO1 + 0.242\*VLVOO2 + 0.064\*VSVOO1 + 0.038\*VSVOO2 + 0.267\*VSVOO3 | 4.0000E-11 | 4.0000E-11 | | HET_IEPOX | IEPOX ----> AISO3J | HETERO_IEPOX | Not Available2 | 0Units molecules/(sec*cm3); Value at 298.15 K; 2.4615E+19 molcules/cm3; 1.00 Atm. 1Photolysis Reaction;depends on radiation and predicted concentrations 2Heteorogeneous Reaction;Depends predicted concentrations 4Set to zero if sun is below the horizon. SEAWATER equals surface fraction covered by ice free open ocean plus surf zones. P equals air pressure in atmospheres. 7Rate constant multiple of constant for listed reaction ================================================ FILE: CCTM/src/MECHS/mechanism_information/saprc07tc_ae6_aq/saprc07tc_ae6_aq_species_table.md ================================================ **The GC namelist for saprc07tc_ae6_aq has the following gas phase species.** | **Species Name** | **Defintion** | **Explicit or Lumped** | **Molecular Weight** | |-----------|--------------------------------------|-----------------|------------------| |ACETONE|Acetone|E|58.10 | |ACETYLENE|Acetylene|E|26.00 | |ACRO_PRIMARY|Acrolein emissions tracer|E|56.10 | |ACROLEIN|Acrolein|E|56.10 | |AFG1|Lumped photoreactive monounsaturated dicarbonyl aromatic fragmentation products that photolyze to form radicals|L|98.10 | |AFG2|Lumped photoreactive monounsaturated dicarbonyl aromatic fragmentation products that photolyze to form non-radical products|L|98.10 | |AFG3|Lumped diunsaturatred dicarbonyl aromatic fragmentation product.|L|124.10 | |ALK1|Alkanes and other non-aromatic compounds that react only with OH, and have kOH between 2 and 5 x 102 ppm-1 min-1. (Primarily ethane)|L|30.10 | |ALK2|Alkanes and other non-aromatic compounds that react only with OH, and have kOH between 5 x 102 and 2.5 x 103 ppm-1 min-1. (Primarily propane and acetylene)|L|36.70 | |ALK3|Alkanes and other non-aromatic compounds that react only with OH, and have kOH between 2.5 x 103 and 5 x 103 ppm-1 min-1.|L|58.60 | |ALK4|Alkanes and other non-aromatic compounds that react only with OH, and have kOH between 5 x 103 and 1 x 104 ppm-1 min-1.|L|77.60 | |ALK5|Alkanes and other non-aromatic compounds that react only with OH, and have kOH greater than 1 x 104 ppm-1 min-1.|L|118.90 | |ALKRXN|Precursor of Terpene Aerosol Material|L|112.00 | |APIN|a-pinene|E|136.20 | |ARO1|Aromatics with kOH < 2x104 ppm-1 min-1.|L|95.20 | |ARO2MN|ARO2 minus naphthalene|L|118.70 | |BACL|Biacetyl|E|86.10 | |BALD|Aromatic aldehydes (e.g., benzaldehyde)|L|106.10 | |BENZENE|Benzene|E|78.10 | |BENZRO2|Peroxy radical tracer from Benzene and OH reaction used to produce aerosol material|L|159.10 | |BNZHRXN|Precursor of Hydro-Benzene Aerosol Material|L|159.10 | |BNZNRXN|Precursor of Nitro-Benzene Aerosol Material|L|159.10 | |BUTADIENE13|1,3-butadiene|E|54.10 | |BZCO3|Peroxyacyl radical formed from Aromatic Aldehydes|L|137.10 | |BZO|Phenoxy Radicals|E|93.00 | |CCHO|Acetaldehyde|E|44.10 | |CCHO_PRIMARY|Acetaldehyde Emissions Tracer|E|44.10 | |CCOOH|Acetic Acid. Also used for peroxyacetic acid in Carter|E|60.10 | |CCOOOH|Proposed for Peroxyacetic Acid|E|76.00 | |CL|Chlorine atoms|E|35.50 | |CL2|Chlorine molecules|E|70.00 | |CLACET|Chloroacetone (and other alpha-chloro ketones that are assumed to be similarly photoreactive)|L|92.50 | |CLCCHO|Chloroacetaldehyde (and other alpha-chloro aldehydes that are assumed to be similarly photoreactive)|L|78.50 | |CLCHO|Formyl Chloride (assumed to be unreactive)|E|64.50 | |CLNO|Nitrosyl Chloride|E|65.50 | |CLNO2|Nitryl Chloride|E|81.50 | |CLO|Chlorine Monoxide Radicals|E|51.50 | |CLONO|Nitrous Hypochloride |E|81.50 | |CLONO2|Chlorine Nitrate|E|97.50 | |CO|Carbon Monoxide|E|28.00 | |CO2|Carbon Dioxide|E|44.00 | |COOH|Methyl Hydroperoxide|E|48.00 | |CRES|Phenols and Cresols|E|108.10 | |ETHENE|Ethene|E|28.10 | |ETOH|Ethanol|E|46.10 | |GLY|Glyoxal|E|58.00 | |H2NO3PIJ|Fine Mode Dissolved Nitric Acid|E|64.00 | |H2NO3PK|Coarse Mode Dissolved Nitric Acid|E|64.00 | |HCHO|Formaldehyde|E|30.00 | |HCHO_PRIMARY|Formaldehyde Emission Tracer|E|30.00 | |HCL|Hydrochloric acid|E|36.50 | |HCOCO3|acylperoxy radicals from glyoxal|E|89.00 | |HCOOH|Formic Acid|E|46.00 | |HNO3|Nitric Acid|E|63.00 | |HNO4|Peroxynitric Acid|E|79.00 | |HO2|Hydroperoxide Radicals|E|33.00 | |HO2H|Hydrogen Peroxide|E|34.00 | |HOCCHO|Glycolaldehyde|E|60.10 | |HOCL|Hypochlorous acid|E|52.50 | |HONO|Nitrous Acid|E|47.00 | |IEPOX|dihydroxyepoxides|E|118.13 | |IEPOXOO|peroxy radical from IEPOX|E|149.12 | |IPRD|Lumped isoprene product species|L|100.10 | |ISOPOOH|hydroxyhydroperoxides from ISOPO2|L|118.20 | |ISOPRENE|Isoprene|E|68.10 | |ISOPRXN|SOA precursor compounds from isoprene|E|68.00 | |MACO3|Peroxyacyl radicals formed from methacrolein and other acroleins.|L|101.10 | |MACR|Methacrolein|E|70.10 | |MAPAN|PAN analogue formed from Methacrolein|E|147.10 | |MECO3|Acetyl Peroxy Radicals|E|75.00 | |MEK|Ketones and other non-aldehyde oxygenated products which react with OH radicals faster than 5 x 10-13 but slower than 5 x 10-12 cm3 molec-2 sec-1. (Based on mechanism for methyl ethyl ketone).|L|72.10 | |MEO2|Methyl Peroxy Radicals|E|47.00 | |MEOH|Methanol|E|32.00 | |MGLY|Methyl Glyoxal|E|72.10 | |MVK|Methyl Vinyl Ketone|E|70.10 | |MXYL|m-xylene|E|106.20 | |N2O5|Nitrogen Pentoxide|E|108.00 | |NAPHTHAL|naphthalene|E|118.70 | |NO|Nitric Oxide|E|30.00 | |NO2|Nitrogen Dioxide|E|46.00 | |NO3|Nitrate Radical|E|62.00 | |NPHE|Nitrophenols|L|139.10 | |O1D|Excited Oxygen Atoms|E|16.00 | |O3|Ozone|E|48.00 | |O3P|Ground State Oxygen Atoms|E|16.00 | |OH|Hydroxyl Radicals|E|17.00 | |OLE1|Alkenes (other than ethene) with kOH < 7x104 ppm-1 min-1.|L|72.30 | |OLE2|Alkenes with kOH > 7x104 ppm-1 min-1.|L|75.80 | |OXYL|o-xylene|E|106.20 | |PAHHRXN|Precursor of Hydro-Naphthalene Aerosol Material|L|172.10 | |PAHNRXN|Precursor of Nitro-Naphthalene Aerosol Material|L|172.10 | |PAHRO2|Naphthalene hydroxyperoxy radical tracker from naphthalene and OH reaction; an aerosol precursor|L|187.20 | |PAN|Peroxy Acetyl Nitrate|E|121.10 | |PAN2|PPN and other higher alkyl PAN analogues|L|135.10 | |PBZN|PAN analogues formed from Aromatic Aldehydes|L|183.10 | |PRD2|Ketones and other non-aldehyde oxygenated products which react with OH radicals faster than 5 x 10-12 cm3 molec-2 sec-1.|L|116.20 | |PROPENE|propene|E|42.10 | |PXYL|p-xylene|E|106.20 | |R6OOH|Lumped organic hydroperoxides with 5 or more carbons (other than those formed following OH addition to aromatic rings, which is reprsented separately). Mechanism based on that estimated for 3-hexyl hydroperoxide.|L|118.20 | |RAOOH|Organic hydroperoxides formed following OH addition to aromatic rings, which is reprsented separately because of their probable role in SOA formation. Mechanism based on two isomers expected to be formed in the m-xylene system.|L|188.20 | |RCHO|Lumped C3+ Aldehydes (mechanism based on propionaldehyde)|L|58.10 | |RCO3|Peroxy Propionyl and higher peroxy acyl Radicals|L|89.10 | |RCOOH|Higher organic acids and, in Carter, peroxy acids (mechanism based on propionic acid).|L|74.10 | |RCOOOH|Proposed Higher organic peroxy acids|L|74.10 | |RNO3|Lumped Organic Nitrates|L|147.20 | |RO2C|Peroxy Radical Operator representing NO to NO2 and NO3 to NO2 conversions, and the effects of peroxy radical reactions on acyl peroxy and other peroxy radicals.|L|1.00 | |RO2XC|Peroxy Radical Operator representing NO consumption (used in conjunction with organic nitrate formation), and the effects of peroxy radical reactions on NO3, acyl peroxy radicals, and other peroxy radicals.|L|1.00 | |ROOH|Lumped organic hydroperoxides with 2-4 carbons. Mechanism based on that estimated for n-propyl hydroperoxide.|L|76.10 | |SESQ|Sesquiterpenes|L|204.40 | |SESQRXN|Precursor of Sesquiterpenes Aerosol Material|L|204.40 | |SO2|Sulfur Dioxide|E|64.10 | |SOAALK|Alkanes that produce aerosol material|L|112.00 | |SULF|Sulfates (SO3 or H2SO4)|L|98.10 | |SULRXN|Precursor of Aerosol Sulfate|E|98.10 | |TBUO|t-Butoxy Radicals|E|73.00 | |TERP|Terpenes|E|136.20 | |TMBENZ124|1,2,4-trimethyl benzene|E|120.20 | |TOLHRXN|Precursor of Hydro-Toulene Aerosol Material|L|172.10 | |TOLNRXN|Precursor of Nitro-Toulene Aerosol Material|L|172.10 | |TOLRO2|Peroxy Radical tracker from TOLUENE and ARO1 reactions with OH; an aerosol precursor|L|172.10 | |TOLUENE|toluene|E|92.10 | |TRPRXN|Precursor of Terpene Aerosol Material|E|136.20 | |xACETONE|ACETONE production operator via reaction with Peroxy, Acetyl Peroxy, their operators, NO or NO3 Radicals (yield vary based on radical)|L|58.10 | |xACROLEIN|ACROLEIN production operator via reaction with Peroxy, Acetyl Peroxy, their operators, NO or NO3 Radicals (yield vary based on radical)|L|56.10 | |xAFG1|AFG1 production operator via reaction with Peroxy, Acetyl Peroxy, their operators, NO or NO3 Radicals (yield vary based on radical)|L|98.10 | |xAFG2|AFG2 production operator via reaction with Peroxy, Acetyl Peroxy, their operators, NO or NO3 Radicals (yield vary based on radical)|L|98.10 | |xAFG3|AFG3 production operator via reaction with Peroxy, Acetyl Peroxy, their operators, NO or NO3 Radicals (yield vary based on radical)|L|124.70 | |xBACL|BACL production operator via reaction with Peroxy, Acetyl Peroxy, their operators, NO or NO3 Radicals (yield vary based on radical)|L|86.10 | |xBALD|BALD production operator via reaction with Peroxy, Acetyl Peroxy, their operators, NO or NO3 Radicals (yield vary based on radical)|L|106.10 | |xCCHO|CCHO production operator via reaction with Peroxy, Acetyl Peroxy, their operators, NO or NO3 Radicals (yield vary based on radical)|L|44.10 | |xCL|Cl production operator via reaction with Peroxy, Acetyl Peroxy, their operators, NO or NO3 Radicals (yield vary based on radical)|L|35.50 | |xCLACET|CLACET production operator via reaction with Peroxy, Acetyl Peroxy, their operators, NO or NO3 Radicals (yield vary based on radical)|L|92.50 | |xCLCCHO|CLCCHO production operator via reaction with Peroxy, Acetyl Peroxy, their operators, NO or NO3 Radicals (yield vary based on radical)|E|78.50 | |xCO|CO production operator via reaction with Peroxy, Acetyl Peroxy, their operators, NO or NO3 Radicals (yield vary based on radical)|E|28.00 | |xGLY|GLY production operator via reaction with Peroxy, Acetyl Peroxy, their operators, NO or NO3 Radicals (yield vary based on radical)|E|58.00 | |xHCHO|HCHO production operator via reaction with Peroxy, Acetyl Peroxy, their operators, NO or NO3 Radicals (yield vary based on radical)|E|30.00 | |xHO2|Formation of HO2 from alkoxy radicals formed in peroxy radical reactions with NO and NO3 (100% yields) and RO2 (50% yields)|E|33.00 | |xHOCCHO|HOCCHO production operator via reaction with Peroxy, Acetyl Peroxy, their operators, NO or NO3 Radicals (yield vary based on radical)|E|60.10 | |xIPRD|IPRD production operator via reaction with Peroxy, Acetyl Peroxy, their operators, NO or NO3 Radicals (yield vary based on radical)|E|100.10 | |xMACO3|MACO3 production operator via reaction with Peroxy, Acetyl Peroxy, their operators, NO or NO3 Radicals (yield vary based on radical)|E|101.10 | |xMACR|MACR production operator via reaction with Peroxy, Acetyl Peroxy, their operators, NO or NO3 Radicals (yield vary based on radical)|E|70.10 | |xMECO3|MECO3 production operator via reaction with Peroxy, Acetyl Peroxy, their operators, NO or NO3 Radicals (yield vary based on radical)|E|75.00 | |xMEK|MEK production operator via reaction with Peroxy, Acetyl Peroxy, their operators, NO or NO3 Radicals (yield vary based on radical)|E|72.10 | |xMEO2|MEO2 production operator via reaction with Peroxy, Acetyl Peroxy, their operators, NO or NO3 Radicals (yield vary based on radical)|E|47.00 | |xMGLY|MGLY production operator via reaction with Peroxy, Acetyl Peroxy, their operators, NO or NO3 Radicals (yield vary based on radical)|E|72.10 | |xMVK|MVK production operator via reaction with Peroxy, Acetyl Peroxy, their operators, NO or NO3 Radicals (yield vary based on radical)|E|70.10 | |xNO2|NO2 production operator via reaction with Peroxy, Acetyl Peroxy, their operators, NO or NO3 Radicals (yield vary based on radical)|E|46.00 | |xOH|OH production operator via reaction with Peroxy, Acetyl Peroxy, their operators, NO or NO3 Radicals (yield vary based on radical)|E|17.00 | |xPROD2|PROD2 production operator via reaction with Peroxy, Acetyl Peroxy, their operators, NO or NO3 Radicals (yield vary based on radical)|E|116.20 | |xRCHO|RCHO production operator via reaction with Peroxy, Acetyl Peroxy, their operators, NO or NO3 Radicals (yield vary based on radical)|E|58.10 | |xRCO3|RCO3 production operator via reaction with Peroxy, Acetyl Peroxy, their operators, NO or NO3 Radicals (yield vary based on radical)|E|89.10 | |xRNO3|RNO3 production operator via reaction with Peroxy, Acetyl Peroxy, their operators, NO or NO3 Radicals (yield vary based on radical)|E|147.20 | |xTBUO|TBUO production operator via reaction with Peroxy, Acetyl Peroxy, their operators, NO or NO3 Radicals (yield vary based on radical)|E|73.00 | |XYLHRXN|Precursor of Hydro-Xylene Aerosol Material|L|187.20 | |XYLNRXN|Precursor of Nitro-Xylene Aerosol Material|L|187.20 | |XYLRO2|Peroxy Radical tracker from xylene and ARO2 reactions with OH;an aerosol precursor|E|187.20 | |yISOPOOH|isoprene hydroperoxide production operator via reaction with Peroxy, Acetyl Peroxy, their operators, NO or NO3 Radicals (yield vary based on radical)|E|118.20 | |yR6OOH|R6OOH production operator via reaction with Peroxy, Acetyl Peroxy, their operators, NO or NO3 Radicals (yield vary based on radical)|L|118.20 | |yRAOOH|RAOOH production operator via reaction with Peroxy, Acetyl Peroxy, their operators, NO or NO3 Radicals (yield vary based on radical)|L|188.20 | |yROOH|ROOH production operator via reaction with Peroxy, Acetyl Peroxy, their operators, NO or NO3 Radicals (yield vary based on radical)|L|76.10 | |zRNO3|RNO3 production operator via reaction with Peroxy, Acetyl Peroxy, their operators, NO or NO3 Radicals (yield vary based on radical)|L|147.20 | **The AE namelist for saprc07tc_ae6_aq has the following aerosol species.** | **Model Species** | **Definition** | **Molecular Weight** | **Explicit or Lumped** | | ----------------- | ---------------------------------------------------- | -------------------- | ---------------------- | | AAL | Aluminum | 27 | E | | AALK1 | Semivolaitle SOA Product from Alkane VOCs | 225.0 | L | | AALK2 | Semivolatile SOA Product from Alkane VOCs | 205.1 | L | | ABNZ1 | Semivolatile High-NOx SOA Product from Benzene | 161.0 | L | | ABNZ2 | Semivolatile High-NOx SOA Product from Benzene | 134.0 | L | | ABNZ3 | Low-Volatility Low-NOx SOA Product from Benzene | 180.0 | L | | ACA | Calcium | 40.1 | E | | ACL | Chloride | 35.5 | E | | ACORS | Anthropogenic Coarse-mode particle mass | 100.0 | L | | AEC | Elemental Carbon | 12 | E | | AFE | Iron | 55.8 | E | | AH2O | Water | 18 | E | | AH3OP | Hydronium Ion | 19 | E | | AISO1 | Semivolatile SOA Product from Isoprene | 132.0 | L | | AISO2 | High-Volatility SOA Product from Isoprene | 133.0 | L | | AISO3 | Acid-catalyzed Isoprene Epoxydiol SOA | 168.2 | L | | AIVPO1 | Intermediate Volatility Primary Organic Compounds | 266 | L | | AK | Potassium | 39.1 | E | | ALVOO1 | Low Volatility Oxidized Combustion Organic Compounds | 136 | L | | ALVOO2 | Low Volatility Oxidized Combustion Organic Compounds | 136 | L | | ALVPO1 | Low Volatility Primary Organic Compounds | 218 | L | | AMG | Magnesium | 24.3 | E | | AMN | Manganese | 54.9 | E | | ANA | Sodium | 23 | E | | ANH4 | Ammonium | 18 | E | | ANO3 | Nitrate | 62 | E | | AOLGA | Oligomer products of anthropogenic SOA compounds | 206.0 | L | | AOLGB | Oligomer products of biogenic SOA compounds | 248.0 | L | | AORGC | Glyoxal and methylglyoxal SOA produced in cloud water | 177.0 | L | | AOTHR | Other Particulate Mass | 200 | L | | APAH1 | Semivolatile High-NOx SOA Product from PAHs | 195.6 | L | | APAH2 | Semivolatile High-NOx SOA Product from PAHs | 178.7 | L | | APAH3 | Low-Volatility Low-NOx SOA Product from PAHs | 212.2 | L | | APCSO | Potential Combustion SOA | 170 | L | | APNCOM | Non-Carbon Organic Matter associated with APOC | 220.0 | L | | APOC | Primary Organic Carbon | 220.0 | L | | ASEACAT | Sea spray cations | 23.75 | L | | ASI | Silicon | 28.1 | E | | ASO4 | Sulfate | 96 | E | | ASOIL | Lumped crustal species | 100.0 | L | | ASQT | Semivolatile SOA Product from Sesquiterpenes | 273.0 | L | | ASVOO1 | Semivolatile Oxidized Combustion Organic Compounds | 135 | L | | ASVOO2 | Semivolatile Oxidized Combustion Organic Compounds | 135 | L | | ASVOO3 | Semivolatile Oxidized Combustion Organic Compounds | 134 | L | | ASVPO1 | Semivolatile Primary Organic Compounds | 230 | L | | ASVPO2 | Semivolatile Primary Organic Compounds | 241 | L | | ASVPO3 | Semivolatile Primary Organic Compounds | 253 | L | | ATI | Titanium | 47.9 | E | | ATOL1 | Semivolatile High-NOx SOA Product from Toluene | 163.0 | L | | ATOL2 | Semivolaitle High-NOx SOA Product from Toluene | 175.0 | L | | ATOL3 | Low-Volatility Low-NOx SOA Product from Toluene | 194.0 | L | | ATRP1 | Semivolatile SOA Product from Monoterpenes | 177.0 | L | | ATRP2 | High-Volatility SOA Product from Monoterpenes | 198.0 | L | | AXYL1 | Semivolatile High-NOx SOA Product from Xylene | 174.0 | L | | AXYL2 | Semivolaitle High-NOx SOA Product from Xylene | 185.0 | L | | AXYL3 | Low-Volatility Low-NOx SOA Product from Xylene | 218.0 | L | | NUMACC | Accum. Mode Number Conc | NA | NA | | NUMAIT | Aitken Mode Number Conc | NA | NA | | NUMCOR | Coarse Mode Number Conc | NA | NA | | SRFACC | Accum. Mode Surface Area Conc | NA | NA | | SRFAIT | Aitken Mode Surface Area Conc | NA | NA | | SRFCOR | Coarse Mode Surface Area Conc | NA | NA | Note that for each aerosol mass species, a letter will be appended to the names below in order to designate the size, or mode, of the aerosol being represented: I = Aitken mode, J = Accumulation mode, K = Coarse mode. **The NR namelist for sapr07tc_ae6_aq has the following gas phase species.** | **Model Species** | **Definition** | **Molecular Weight** | **Explicit or Lumped** | | ----------------- | ---------------------------------------------------- | -------------------- | ---------------------- | | LVPCSOG | surrogate SOA precursor gas for combustion/anthropogenic sources | 170.0 | L | | NH3 | ammonia | 17.0 | E | | SVALK1 | vapors of secondary aerosol material from alkane VOCs | 225.0 | L | | SVALK2 | vapors of secondary aerosol material from alkane VOCs | 205.1 | L | | SVXYL1 | vapors of secondary aerosol material from xylenes | 174.0 | L | | SVXYL2 | vapors of secondary aerosol material from xylenes | 185.0 | L | | SVTOL1 | vapors of secondary aerosol material from toluene | 163.0 | L | | SVTOL2 | vapors of secondary aerosol material from toluene | 175.0 | L | | SVBNZ1 | vapors of secondary aerosol material from benzene | 161.0 | L | | SVBNZ2 | vapors of secondary aerosol material from benzene | 134.0 | L | | SVPAH1 | vapors of secondary aerosol material from PAHs | 195.6 | L | | SVPAH2 | vapors of secondary aerosol material from PAHs | 178.7 | L | | SVTRP1 | vapors of secondary aerosol material from monoterpenes | 177.0 | L | | SVTRP2 | vapors of secondary aerosol material from monoterpenes | 198.0 | L | | SVISO1 | vapors of secondary aerosol material from isoprene | 132.0 | L | | SVISO2 | vapors of secondary aerosol material from isoprene | 133.0 | L | | SVSQT | vapors of secondary aerosol material from sesquiterpenes | 273.0 | L | ================================================ FILE: CCTM/src/MECHS/mechanism_information/saprc07tc_ae6_aq/saprc07tc_ae6_aq_species_table_aerosol.md ================================================ | **Species Name** | **Defintion** | **Phase** | **Molecular Weight** | |-----------|--------------------------------------|-----------------|------------------| |AALK1J|Accumulation Mode Alkane Product 1|Aerosol|168.00 | |AALK2J|Accumulation Mode Alkane Product 2|Aerosol|168.00 | |ABNZ1J|Accumulation Mode Benzene Product 1|Aerosol|144.00 | |ABNZ2J|Accumulation Mode Benzene Product 2|Aerosol|144.00 | |ACLI|Aitken Mode Chlorine|Aerosol|35.50 | |ACLJ|Accumulation Mode Chlorine|Aerosol|35.50 | |ACLK|Coarse Mode Chlorine|Aerosol|35.50 | |AISO1J|Accumulation Mode Isoprene Product 1|Aerosol|96.00 | |AISO2J|Accumulation Mode Isoprene Product 2|Aerosol|96.00 | |AISO3J|Accumulation Mode Isoprene Product 3|Aerosol|168.20 | |ALKRXN|Precursor of Terpene Aerosol Material|Gas|112.00 | |AOLGAJ|Accumulation Mode Oligomerized Anthropogenic Material|Aerosol|176.40 | |AOLGBJ|Accumulation Mode Oligomerized Biogenic Material|Aerosol|252.00 | |APAH1J|Accumulation Mode PAH Product 1|Aerosol|243.00 | |APAH2J|Accumulation Mode PAH Product 2|Aerosol|243.00 | |APNCOMI|non-carbon organic matter (H, O, etc.) attached to POC in aitken mode|Aerosol|220.00 | |APNCOMJ|non-carbon organic matter (H, O, etc.) attached to POC in accumulation mode|Aerosol|220.00 | |APOCI|primary organic carbon in aitken mode|Aerosol|220.00 | |APOCJ|primary organic carbon in accumulation mode|Aerosol|220.00 | |ASQTJ|Accumulation Mode Sesquiterpene Aerosol|Aerosol|378.00 | |ATOL1J|Accumulation Mode Toulene Product 1|Aerosol|168.00 | |ATOL2J|Accumulation Mode Toulene Product 2|Aerosol|168.00 | |ATRP1J|Accumulation Mode Terpene Product 1|Aerosol|168.00 | |ATRP2J|Accumulation Mode Terpene Product 2|Aerosol|168.00 | |AXYL1J|Accumulation Mode Xylene Product 1|Aerosol|192.00 | |AXYL2J|Accumulation Mode Xylene Product 2|Aerosol|192.00 | |BNZHRXN|Precursor of Hydro-Benzene Aerosol Material|Gas|159.10 | |BNZNRXN|Precursor of Nitro-Benzene Aerosol Material|Gas|159.10 | |PAHHRXN|Precursor of Hydro-Naphthalene Aerosol Material|Gas|172.10 | |PAHNRXN|Precursor of Nitro-Naphthalene Aerosol Material|Gas|172.10 | |SESQRXN|Precursor of Sesquiterpenes Aerosol Material|Gas|204.40 | |SULRXN|Precursor of Aerosol Sulfate|Gas|98.10 | |TOLHRXN|Precursor of Hydro-Toulene Aerosol Material|Gas|172.10 | |TOLNRXN|Precursor of Nitro-Toulene Aerosol Material|Gas|172.10 | |TRPRXN|Precursor of Terpene Aerosol Material|Gas|136.20 | |XYLHRXN|Precursor of Hydro-Xylene Aerosol Material|Gas|187.20 | |XYLNRXN|Precursor of Nitro-Xylene Aerosol Material|Gas|187.20 | ================================================ FILE: CCTM/src/MECHS/mechanism_information/saprc07tic_ae7i_aq/AE7I_species_table.md ================================================ **The AE namelist for saprc07tic_ae7i_aq has the following aerosol species.** | **Model Species** | **Name** | **Molecular Weight** | **Explicit or Lumped** | | ----------------- | ---------------------------------------------------- | -------------------- | ---------------------- | | AAL | Aluminum | 27 | E | | AAVB1 | low volatility organic particulate matter from oxidation of anthropogenic VOCs | 198.0 | L | | AAVB2 | semivolailte organic particulate matter from oxidation of anthropogenic VOCs | 179.0 | L | | AAVB3 | semivolailte organic particulate matter from oxidation of anthropogenic VOCs | 169.0 | L | | AAVB4 | semivolailte organic particulate matter from oxidation of anthropogenic VOCs | 158.0 | L | | ACA | Calcium | 40.1 | E | | ACL | Chloride | 35.5 | E | | ACORS | Anthropogenic Coarse-mode particle mass | 100.0 | L | | AEC | Elemental Carbon | 12 | E | | AFE | Iron | 55.8 | E | | AGLY | Glyoxal and Methylglyoxal SOA | 66.4 | L | | AH2O | Water | 18 | E | | AH3OP | Hydronium Ion | 19 | E | | AIEOS | IEPOX-derived organosulfate | 216.20 | E | | AIETET | 2-methyltetrols from IEPOX uptake onto particles |136.15 | E | | ADIM | oligomers (dimers) from IEPOX uptake onto particles |248.23 | L | | AIMGA | 2-methylglyceric acid from MAE+HMMLL uptake onto particles | 120.10 | E | | AIMOS | organosulfate from MAE+HMML uptake onto particles |200.16 | E | | AISO1 | Semivolatile SOA Product from Isoprene | 132.0 | L | | AISO2 | High-Volatility SOA Product from Isoprene | 133.0 | L | | AISO3 | Acid-Catalyzed Isoprene SOA compounds | 168.2 | L | | AISOPNN | SOA from isoprene dinitrates (C*=8.9 ug/m3) |226 |L| | AIVPO1 | Intermediate Volatility Primary Organic Compounds | 266 | L | | AK | Potassium | 39.1 | E | | ALVOO1 | Low Volatility Oxidized Combustion Organic Compounds | 136 | L | | ALVOO2 | Low Volatility Oxidized Combustion Organic Compounds | 136 | L | | ALVPO1 | Low Volatility Primary Organic Compounds | 218 | L | | AMG | Magnesium | 24.3 | E | | AMN | Manganese | 54.9 | E | | AMT1 | low volatility particulate matter from monoterpene photoxidation, C*=0.01 ug/m3 | 200.0 | L | | AMT2 | low volatility particulate matter from monoterpene photoxidation, C*=0.1 ug/m3 | 300.0 | L | | AMT3 | semivolailte particulate matter from monoterpene photoxidation, C*=1 ug/m3 | 186.0 | L | | AMT4 | semivolatile particulate matter from monoterpene photoxidation, C*=10 ug/m3 | 184.0 | L | | AMT5 | semivolatile particulate matter from monoterpene photoxidation, C*=100 ug/m3 | 170.0 | L | | AMT6 | semivolatile particulate matter from monoterpene photoxidation, C*=1000 ug/m3 | 168.0 | L | | AMTNO3 | semivolatile organic nitrates from monoterpene oxidation | 231.0 | L | | AMTHYD | organic pseudo-hydrolysis accretion product from monoterpene organic nitrates (AMTNO3J) | 168.0| L | | ANA | Sodium | 23 | E | | ANH4 | Ammonium | 18 | E | | ANO3 | Nitrate | 62 | E | | AOLGA | Oligomer products of anthropogenic SOA compounds | 206.0 | L | | AOLGB | Oligomer products of biogenic SOA compounds | 248.0 | L | | AORGC | Glyoxal and Methylglyoxal SOA | 177.0 | L | | AORGH2O | Water associated with organic species of particulate matter | 18.0 | E | | AOTHR | Other Particulate Mass | 200 | L | | APCSO | Potential Combustion SOA | 170 | L | | APNCOM | Non-Carbon Organic Matter associated with APOC | 220.0 | L | | APOC | Primary Organic Carbon | 220.0 | L | | ASEACAT | Sea spray cations | 23.75 | L | | ASI | Silicon | 28.1 | E | | ASO4 | Sulfate | 96 | E | | ASOIL | Lumped crustal species | 100.0 | L | | ASQT | Semivolatile SOA Product from Sesquiterpenes | 273.0 | L | | ASVOO1 | Semivolatile Oxidized Combustion Organic Compounds | 135 | L | | ASVOO2 | Semivolatile Oxidized Combustion Organic Compounds | 135 | L | | ASVOO3 | Semivolatile Oxidized Combustion Organic Compounds | 134 | L | | ASVPO1 | Semivolatile Primary Organic Compounds | 230 | L | | ASVPO2 | Semivolatile Primary Organic Compounds | 241 | L | | ASVPO3 | Semivolatile Primary Organic Compounds | 253 | L | | ATI | Titanium | 47.9 | E | | NUMACC | Accum. Mode Number Conc | NA | NA | | NUMAIT | Aitken Mode Number Conc | NA | NA | | NUMCOR | Coarse Mode Number Conc | NA | NA | | SRFACC | Accum. Mode Surface Area Conc | NA | NA | | SRFAIT | Aitken Mode Surface Area Conc | NA | NA | | SRFCOR | Coarse Mode Surface Area Conc | NA | NA | Note that for each aerosol mass species, a letter will be appended to the names below in order to designate the size, or mode, of the aerosol being represented: I = Aitken mode, J = Accumulation mode, K = Coarse mode. ================================================ FILE: CCTM/src/MECHS/mechanism_information/saprc07tic_ae7i_aq/NR7_species_table.md ================================================ **The NR namelist for saprc07tic_ae7i_aq has the following gas phase species.** | **Model Species** | **Name** | **Molecular Weight** | **Explicit or Lumped** | | ----------------- | ---------------------------------------------------- | -------------------- | ---------------------- | | LVPCSOG | surrogate SOA precursor gas for combustion/anthropogenic sources | 170.0 | L | | NH3 | ammonia | 17.0 | E | | SVMT1 | low volatility gas from monoterpene photoxidation | 300.0 | L | | SVMT2 | low volatility gas from monoterpene photoxidation | 200.0 | L | | SVMT3 | semivolatile gas from monoterpene photoxidation | 186.0 | L | | SVMT4 | semivolatile gas from monoterpene photoxidation | 184.0 | L | | SVMT5 | semivolatile gas from monoterpene photoxidation | 170.0 | L | | SVMT6 | semivolatile gas from monoterpene photoxidation | 168.0 | L | | SVISO1 | semivolatile gas of secondary aerosol material from isoprene | 132.0 | L | | SVISO2 | semivolatile gas of secondary aerosol material from isoprene | 133.0 | L | | SVSQT | semivolatile gas of secondary aerosol material from sesquiterpenes | 273.0 | L | ================================================ FILE: CCTM/src/MECHS/mechanism_information/saprc07tic_ae7i_aq/mech_saprc07tic_ae7i_aq.md ================================================ Information is based on the mech.def file. * Fall-off or pressure dependent reaction rate constants (M equals air number density): * For rate constants with ko, ki, n, F values: k = [ koM/(1+koM/ki)]FG, where G=(1+(log10(koM/ki)/n)2))-1 * For rate constants with k1, k2: k = k1 + k2M * For rate constants with k0, k2, k3: k = k0 + k3M/(1+k3M/k2) * For rate constants with k1, k2, k3: k = k1 + k2M + k3 * For rate constants with the form A<_Reference_>, k equals A times a reference that represents photolysis rate, a heteorogeneous rate constant, rate constant for the given reaction or an operator. A equals one if not given. * In the mechanism definition file, the rate is formatted as * A~<_HETEOROGENEOUS_> * A*K<_REACTION_> * A/<_PHOTOLYSIS_> * A?<_OPERATOR_> |Label|Reaction |Rate Constant Formula| Value
molecules/(sec*cm3)| |:---|:-------------------|:--------------------|:----:| | 1 | NO2 ----> NO + O3P | NO2_06 | Not Available1 | | 2 | O3P + O2 + M ----> O3 | 5.68E-34(T/300) -2.60 | 5.7721E-34 | | 3 | O3P + O3 ----> | 8.00E-12e -2060.00/T | 7.9879E-15 | | 4 | O3P + NO ----> NO2 | ko= 9.00E-32e 0.0/T(T/300) -1.50
ki = 3.00E-11e 0.0/T(T/300) 0.00
n= 1.00;F= 0.60 | 1.6618E-12 | | 5 | O3P + NO2 ----> NO | 5.50E-12e 188.00/T | 1.0333E-11 | | 6 | O3P + NO2 ----> NO3 | ko= 2.50E-31e 0.0/T(T/300) -1.80
ki = 2.20E-11e 0.0/T(T/300) -0.70
n= 1.00;F= 0.60 | 3.2805E-12 | | 7 | O3 + NO ----> NO2 | 3.00E-12e -1500.00/T | 1.9596E-14 | | 8 | O3 + NO2 ----> NO3 | 1.40E-13e -2470.00/T | 3.5339E-17 | | 9 | NO + NO3 ----> 2.000\*NO2 | 1.80E-11e 110.00/T | 2.6032E-11 | | 10 | NO + NO + O2 ----> 2.000\*NO2 | 3.30E-39e 530.00/T | 1.9522E-38 | | 11 | NO2 + NO3 ----> N2O5 | ko= 3.60E-30e 0.0/T(T/300) -4.10
ki = 1.90E-12e 0.0/T(T/300) 0.20
n= 1.33;F= 0.35 | 1.2406E-12 | | 12 | N2O5 ----> NO2 + NO3 | ko= 1.30E-03e-11000.0/T(T/300) -3.50
ki = 9.70E+14e-11080.0/T(T/300) 0.10
n= 1.33;F= 0.35 | 4.5396E-02 | | 13 | N2O5 + H2O ----> 2.000\*HNO3 | 1.0000E-22 | 1.0000E-22 | | 14 | N2O5 + H2O + H2O ----> 2.000\*HNO3 | 0.0000E+00 | 0.0000E+00 | | 15 | NO2 + NO3 ----> NO + NO2 | 4.50E-14e -1260.00/T | 6.5744E-16 | | 16 | NO3 ----> NO | NO3NO_06 | Not Available1 | | 17 | NO3 ----> NO2 + O3P | NO3NO2_6 | Not Available1 | | 18 | O3 ----> O1D | O3O1D_06 | Not Available1 | | 19 | O3 ----> O3P | O3O3P_06 | Not Available1 | | 20 | O1D + H2O ----> 2.000\*OH | 1.63E-10e 60.00/T | 1.9934E-10 | | 21 | O1D + M ----> O3P | 2.38E-11e 96.00/T | 3.2841E-11 | | 22 | OH + NO ----> HONO | ko= 7.00E-31e 0.0/T(T/300) -2.60
ki = 3.60E-11e 0.0/T(T/300) -0.10
n= 1.00;F= 0.60 | 7.3998E-12 | | 23 | HONO ----> OH + NO | HONO_06 | Not Available1 | | 24 | OH + HONO ----> NO2 | 2.50E-12e 260.00/T | 5.9795E-12 | | 25 | OH + NO2 ----> HNO3 | ko= 3.20E-30e 0.0/T(T/300) -4.50
ki = 3.00E-11e 0.0/T(T/300) 0.00
n= 1.24;F= 0.41 | 9.8821E-12 | | 26 | OH + NO3 ----> HO2 + NO2 | 2.0000E-11 | 2.0000E-11 | | 27 | OH + HNO3 ----> NO3 | k0= 2.40E-14e 460.0/T
k1= 2.70E-17e 2199.0/T
k3= 6.50E-34e 1335.0/T | 1.5409E-13 | | 28 | HNO3 ----> OH + NO2 | HNO3 | Not Available1 | | 29 | OH + CO ----> HO2 + CO2 | k0= 1.44E-13e 0.0/T
k1= 3.43E-33e 0.0/T | 2.2843E-13 | | 30 | OH + O3 ----> HO2 | 1.70E-12e -940.00/T | 7.2647E-14 | | 31 | HO2 + NO ----> OH + NO2 | 3.60E-12e 270.00/T | 8.9042E-12 | | 32 | HO2 + NO2 ----> HNO4 | ko= 2.00E-31e 0.0/T(T/300) -3.40
ki = 2.90E-12e 0.0/T(T/300) -1.10
n= 1.00;F= 0.60 | 1.1385E-12 | | 33 | HNO4 ----> HO2 + NO2 | ko= 3.72E-05e-10650.0/T(T/300) -2.40
ki = 5.42E+15e-11170.0/T(T/300) -2.30
n= 1.00;F= 0.60 | 8.6986E-02 | | 34 | HNO4 ----> 0.610\*HO2 + 0.610\*NO2 + 0.390\*OH + 0.390\*NO3 | HNO4_06 | Not Available1 | | 35 | HNO4 + OH ----> NO2 | 1.30E-12e 380.00/T | 4.6501E-12 | | 36 | HO2 + O3 ----> OH | 2.03E-16e 693.00/T(T/300) 4.57 | 2.0168E-15 | | 37 | HO2 + HO2 ----> HO2H | k0= 2.20E-13e 600.0/T
k1= 1.90E-33e 980.0/T | 2.8975E-12 | | 38 | HO2 + HO2 + H2O ----> HO2H | k0= 3.08E-34e 2800.0/T
k1= 2.66E-54e 3180.0/T | 6.4973E-30 | | 39 | NO3 + HO2 ----> 0.800\*OH + 0.800\*NO2 + 0.200\*HNO3 | 4.0000E-12 | 4.0000E-12 | | 40 | NO3 + NO3 ----> 2.000\*NO2 | 8.50E-13e -2450.00/T | 2.2944E-16 | | 41 | HO2H ----> 2.000\*OH | H2O2 | Not Available1 | | 42 | HO2H + OH ----> HO2 | 1.8000E-12 | 1.8000E-12 | | 43 | OH + HO2 ----> | 4.80E-11e 250.00/T | 1.1102E-10 | | 44 | OH + SO2 ----> HO2 + SULF + SULRXN | ko= 3.30E-31e 0.0/T(T/300) -4.30
ki = 1.60E-12e 0.0/T(T/300) 0.00
n= 1.00;F= 0.60 | 9.5810E-13 | | 45 | OH + H2 ----> HO2 | 7.70E-12e -2100.00/T | 6.7230E-15 | | BR01 | MEO2 + NO ----> NO2 + HCHO + HO2 | 2.30E-12e 360.00/T | 7.6933E-12 | | BR02 | MEO2 + HO2 ----> COOH | 3.46E-13e 780.00/T(T/300) 0.36 | 4.7237E-12 | | BR03 | MEO2 + HO2 ----> HCHO | 3.34E-14e 780.00/T(T/300) -3.53 | 4.6709E-13 | | BR04 | MEO2 + NO3 ----> HCHO + HO2 + NO2 | 1.3000E-12 | 1.3000E-12 | | BR05 | MEO2 + MEO2 ----> MEOH + HCHO | 6.39E-14e 365.00/T(T/300) -1.80 | 2.1979E-13 | | BR06 | MEO2 + MEO2 ----> 2.000\*HCHO + 2.000\*HO2 | 7.40E-13e -520.00/T | 1.2936E-13 | | BR07 | RO2C + NO ----> NO2 | 2.60E-12e 380.00/T | 9.3002E-12 | | BR08 | RO2C + HO2 ----> | 3.80E-13e 900.00/T | 7.7759E-12 | | BR09 | RO2C + NO3 ----> NO2 | 2.3000E-12 | 2.3000E-12 | | BR10 | RO2C + MEO2 ----> 0.500\*HO2 + 0.750\*HCHO + 0.250\*MEOH | 2.0000E-13 | 2.0000E-13 | | BR11 | RO2C + RO2C ----> | 3.5000E-14 | 3.5000E-14 | | BR12 | RO2XC + NO ----> | BR07 | 9.3002E-127| | BR13 | RO2XC + HO2 ----> | BR08 | 7.7759E-127| | BR14 | RO2XC + NO3 ----> NO2 | BR09 | 2.3000E-127| | BR15 | RO2XC + MEO2 ----> 0.500\*HO2 + 0.750\*HCHO + 0.250\*MEOH | BR10 | 2.0000E-137| | BR16 | RO2XC + RO2C ----> | BR11 | 3.5000E-147| | BR17 | RO2XC + RO2XC ----> | BR11 | 3.5000E-147| | BR18 | MECO3 + NO2 ----> PAN | ko= 2.70E-28e 0.0/T(T/300) -7.10
ki = 1.21E-11e 0.0/T(T/300) -0.90
n= 1.41;F= 0.30 | 9.4624E-12 | | BR19 | PAN ----> MECO3 + NO2 | ko= 4.90E-03e-12100.0/T(T/300) 0.00
ki = 4.00E+16e-13600.0/T(T/300) 0.00
n= 1.41;F= 0.30 | 4.7483E-04 | | BR20 | PAN ----> 0.600\*MECO3 + 0.600\*NO2 + 0.400\*MEO2 + 0.400\*CO2 + 0.400\*NO3 | PAN | Not Available1 | | BR21 | MECO3 + NO ----> MEO2 + CO2 + NO2 | 7.50E-12e 290.00/T | 1.9837E-11 | | BR22 | MECO3 + HO2 ----> 0.105\*CCOOOH + 0.045\*CCOOH + 0.150\*O3 + 0.440\*OH + 0.440\*MEO2 + 0.440\*CO2 | 5.20E-13e 980.00/T | 1.3916E-11 | | BR23 | MECO3 + NO3 ----> MEO2 + CO2 + NO2 | BR09 | 2.3000E-127| | BR24 | MECO3 + MEO2 ----> 0.100\*CCOOH + HCHO + 0.900\*HO2 + 0.900\*MEO2 + 0.900\*CO2 | 2.00E-12e 500.00/T | 1.0699E-11 | | BR25 | MECO3 + RO2C ----> MEO2 + CO2 | 4.40E-13e 1070.00/T | 1.5924E-11 | | BR26 | MECO3 + RO2XC ----> MEO2 + CO2 | BR25 | 1.5924E-117| | BR27 | MECO3 + MECO3 ----> 2.000\*MEO2 + 2.000\*CO2 | 2.90E-12e 500.00/T | 1.5514E-11 | | BR28 | RCO3 + NO2 ----> PAN2 | 1.21E-11e 0.00/T(T/300) -1.07 | 1.2180E-11 | | BR29 | PAN2 ----> RCO3 + NO2 | 8.30E+16e-13940.00/T | 4.1081E-04 | | BR30 | PAN2 ----> 0.600\*RCO3 + 0.600\*NO2 + 0.400\*RO2C + 0.400\*xHO2 + 0.400\*yROOH + 0.400\*xCCHO + 0.400\*CO2 + 0.400\*NO3 | PAN | Not Available1 | | BR31 | RCO3 + NO ----> NO2 + RO2C + xHO2 + yROOH + xCCHO + CO2 | 6.70E-12e 340.00/T | 2.0957E-11 | | BR32 | RCO3 + HO2 ----> 0.307\*RCOOOH + 0.102\*RCOOH + 0.150\*O3 + 0.440\*OH + 0.440\*xHO2 + 0.440\*RO2C + 0.440\*CO2 + 0.440\*xCCHO + 0.440\*yROOH | BR22 | 1.3916E-117| | BR33 | RCO3 + NO3 ----> NO2 + RO2C + xHO2 + yROOH + xCCHO + CO2 | BR09 | 2.3000E-127| | BR34 | RCO3 + MEO2 ----> HCHO + HO2 + RO2C + xHO2 + xCCHO + yROOH + CO2 | BR24 | 1.0699E-117| | BR35 | RCO3 + RO2C ----> RO2C + xHO2 + xCCHO + yROOH + CO2 | BR25 | 1.5924E-117| | BR36 | RCO3 + RO2XC ----> RO2C + xHO2 + xCCHO + yROOH + CO2 | BR25 | 1.5924E-117| | BR37 | RCO3 + MECO3 ----> 2.000\*CO2 + MEO2 + RO2C + xHO2 + yROOH + xCCHO | BR27 | 1.5514E-117| | BR38 | RCO3 + RCO3 ----> 2.000\*RO2C + 2.000\*xHO2 + 2.000\*xCCHO + 2.000\*yROOH + 2.000\*CO2 | BR27 | 1.5514E-117| | BR39 | BZCO3 + NO2 ----> PBZN | 1.3700E-11 | 1.3700E-11 | | BR40 | PBZN ----> BZCO3 + NO2 | 7.90E+16e-14000.00/T | 3.1974E-04 | | BR41 | PBZN ----> 0.600\*BZCO3 + 0.600\*NO2 + 0.400\*CO2 + 0.400\*BZO + 0.400\*RO2C + 0.400\*NO3 | PAN | Not Available1 | | BR42 | BZCO3 + NO ----> NO2 + CO2 + BZO + RO2C | BR31 | 2.0957E-117| | BR43 | BZCO3 + HO2 ----> 0.307\*RCOOOH + 0.102\*RCOOH + 0.150\*O3 + 0.440\*OH + 0.440\*BZO + 0.440\*RO2C + 0.440\*CO2 | BR22 | 1.3916E-117| | BR44 | BZCO3 + NO3 ----> NO2 + CO2 + BZO + RO2C | BR09 | 2.3000E-127| | BR45 | BZCO3 + MEO2 ----> HCHO + HO2 + RO2C + BZO + CO2 | BR24 | 1.0699E-117| | BR46 | BZCO3 + RO2C ----> RO2C + BZO + CO2 | BR25 | 1.5924E-117| | BR47 | BZCO3 + RO2XC ----> RO2C + BZO + CO2 | BR25 | 1.5924E-117| | BR48 | BZCO3 + MECO3 ----> 2.000\*CO2 + MEO2 + BZO + RO2C | BR27 | 1.5514E-117| | BR49 | BZCO3 + RCO3 ----> 2.000\*CO2 + 2.000\*RO2C + xHO2 + yROOH + xCCHO + BZO | BR27 | 1.5514E-117| | BR50 | BZCO3 + BZCO3 ----> 2.000\*BZO + 2.000\*RO2C + 2.000\*CO2 | BR27 | 1.5514E-117| | BR51 | MACO3 + NO2 ----> MAPAN | BR28 | 1.2180E-117| | BR52 | MAPAN ----> MACO3 + NO2 | 1.60E+16e-13486.00/T | 3.6308E-04 | | BR53 | MAPAN ----> 0.600\*MACO3 + 0.600\*NO2 + 0.400\*CO2 + 0.400\*HCHO + 0.400\*MECO3 + 0.400\*NO3 | PAN | Not Available1 | | BR64 | TBUO + NO2 ----> RNO3 | 2.4000E-11 | 2.4000E-11 | | BR65 | TBUO ----> ACETONE + MEO2 | 7.50E+14e -8152.00/T | 1.0014E+03 | | BR66 | BZO + NO2 ----> NPHE | 2.30E-11e 150.00/T | 3.8038E-11 | | BR67 | BZO + HO2 ----> CRES | BR08 | 7.7759E-127| | BR68 | BZO ----> CRES + RO2C + xHO2 | 1.0000E-03 | 1.0000E-03 | | R019 | xHO2 + NO ----> NO + HO2 | BR07 | 9.3002E-127| | R020 | xHO2 + HO2 ----> HO2 | BR08 | 7.7759E-127| | R021 | xHO2 + NO3 ----> NO3 + HO2 | BR09 | 2.3000E-127| | R022 | xHO2 + MEO2 ----> MEO2 + 0.500\*HO2 | BR10 | 2.0000E-137| | R023 | xHO2 + RO2C ----> RO2C + 0.500\*HO2 | BR11 | 3.5000E-147| | R024 | xHO2 + RO2XC ----> RO2XC + 0.500\*HO2 | BR11 | 3.5000E-147| | R025 | xHO2 + MECO3 ----> MECO3 + HO2 | BR25 | 1.5924E-117| | R026 | xHO2 + RCO3 ----> RCO3 + HO2 | BR25 | 1.5924E-117| | R027 | xHO2 + BZCO3 ----> BZCO3 + HO2 | BR25 | 1.5924E-117| | R028 | xHO2 + MACO3 ----> MACO3 + HO2 | BR25 | 1.5924E-117| | R029 | xOH + NO ----> NO + OH | BR07 | 9.3002E-127| | R030 | xOH + HO2 ----> HO2 | BR08 | 7.7759E-127| | R031 | xOH + NO3 ----> NO3 + OH | BR09 | 2.3000E-127| | R032 | xOH + MEO2 ----> MEO2 + 0.500\*OH | BR10 | 2.0000E-137| | R033 | xOH + RO2C ----> RO2C + 0.500\*OH | BR11 | 3.5000E-147| | R034 | xOH + RO2XC ----> RO2XC + 0.500\*OH | BR11 | 3.5000E-147| | R035 | xOH + MECO3 ----> MECO3 + OH | BR25 | 1.5924E-117| | R036 | xOH + RCO3 ----> RCO3 + OH | BR25 | 1.5924E-117| | R037 | xOH + BZCO3 ----> BZCO3 + OH | BR25 | 1.5924E-117| | R038 | xOH + MACO3 ----> MACO3 + OH | BR25 | 1.5924E-117| | R039 | xNO2 + NO ----> NO + NO2 | BR07 | 9.3002E-127| | R040 | xNO2 + HO2 ----> HO2 | BR08 | 7.7759E-127| | R041 | xNO2 + NO3 ----> NO3 + NO2 | BR09 | 2.3000E-127| | R042 | xNO2 + MEO2 ----> MEO2 + 0.500\*NO2 | BR10 | 2.0000E-137| | R043 | xNO2 + RO2C ----> RO2C + 0.500\*NO2 | BR11 | 3.5000E-147| | R044 | xNO2 + RO2XC ----> RO2XC + 0.500\*NO2 | BR11 | 3.5000E-147| | R045 | xNO2 + MECO3 ----> MECO3 + NO2 | BR25 | 1.5924E-117| | R046 | xNO2 + RCO3 ----> RCO3 + NO2 | BR25 | 1.5924E-117| | R047 | xNO2 + BZCO3 ----> BZCO3 + NO2 | BR25 | 1.5924E-117| | R048 | xNO2 + MACO3 ----> MACO3 + NO2 | BR25 | 1.5924E-117| | R049 | xMEO2 + NO ----> NO + MEO2 | BR07 | 9.3002E-127| | R050 | xMEO2 + HO2 ----> HO2 | BR08 | 7.7759E-127| | R051 | xMEO2 + NO3 ----> NO3 + MEO2 | BR09 | 2.3000E-127| | R052 | xMEO2 + MEO2 ----> 1.500\*MEO2 | BR10 | 2.0000E-137| | R053 | xMEO2 + RO2C ----> RO2C + 0.500\*MEO2 | BR11 | 3.5000E-147| | R054 | xMEO2 + RO2XC ----> RO2XC + 0.500\*MEO2 | BR11 | 3.5000E-147| | R055 | xMEO2 + MECO3 ----> MECO3 + MEO2 | BR25 | 1.5924E-117| | R056 | xMEO2 + RCO3 ----> RCO3 + MEO2 | BR25 | 1.5924E-117| | R057 | xMEO2 + BZCO3 ----> BZCO3 + MEO2 | BR25 | 1.5924E-117| | R058 | xMEO2 + MACO3 ----> MACO3 + MEO2 | BR25 | 1.5924E-117| | R059 | xMECO3 + NO ----> NO + MECO3 | BR07 | 9.3002E-127| | R060 | xMECO3 + HO2 ----> HO2 | BR08 | 7.7759E-127| | R061 | xMECO3 + NO3 ----> NO3 + MECO3 | BR09 | 2.3000E-127| | R062 | xMECO3 + MEO2 ----> MEO2 + 0.500\*MECO3 | BR10 | 2.0000E-137| | R063 | xMECO3 + RO2C ----> RO2C + 0.500\*MECO3 | BR11 | 3.5000E-147| | R064 | xMECO3 + RO2XC ----> RO2XC + 0.500\*MECO3 | BR11 | 3.5000E-147| | R065 | xMECO3 + MECO3 ----> 2.000\*MECO3 | BR25 | 1.5924E-117| | R066 | xMECO3 + RCO3 ----> RCO3 + MECO3 | BR25 | 1.5924E-117| | R067 | xMECO3 + BZCO3 ----> BZCO3 + MECO3 | BR25 | 1.5924E-117| | R068 | xMECO3 + MACO3 ----> MACO3 + MECO3 | BR25 | 1.5924E-117| | R069 | xRCO3 + NO ----> NO + RCO3 | BR07 | 9.3002E-127| | R070 | xRCO3 + HO2 ----> HO2 | BR08 | 7.7759E-127| | R071 | xRCO3 + NO3 ----> NO3 + RCO3 | BR09 | 2.3000E-127| | R072 | xRCO3 + MEO2 ----> MEO2 + 0.500\*RCO3 | BR10 | 2.0000E-137| | R073 | xRCO3 + RO2C ----> RO2C + 0.500\*RCO3 | BR11 | 3.5000E-147| | R074 | xRCO3 + RO2XC ----> RO2XC + 0.500\*RCO3 | BR11 | 3.5000E-147| | R075 | xRCO3 + MECO3 ----> MECO3 + RCO3 | BR25 | 1.5924E-117| | R076 | xRCO3 + RCO3 ----> 2.000\*RCO3 | BR25 | 1.5924E-117| | R077 | xRCO3 + BZCO3 ----> BZCO3 + RCO3 | BR25 | 1.5924E-117| | R078 | xRCO3 + MACO3 ----> MACO3 + RCO3 | BR25 | 1.5924E-117| | R079 | xMACO3 + NO ----> NO + MACO3 | BR07 | 9.3002E-127| | R080 | xMACO3 + HO2 ----> HO2 | BR08 | 7.7759E-127| | R081 | xMACO3 + NO3 ----> NO3 + MACO3 | BR09 | 2.3000E-127| | R082 | xMACO3 + MEO2 ----> MEO2 + 0.500\*MACO3 | BR10 | 2.0000E-137| | R083 | xMACO3 + RO2C ----> RO2C + 0.500\*MACO3 | BR11 | 3.5000E-147| | R084 | xMACO3 + RO2XC ----> RO2XC + 0.500\*MACO3 | BR11 | 3.5000E-147| | R085 | xMACO3 + MECO3 ----> MECO3 + MACO3 | BR25 | 1.5924E-117| | R086 | xMACO3 + RCO3 ----> RCO3 + MACO3 | BR25 | 1.5924E-117| | R087 | xMACO3 + BZCO3 ----> BZCO3 + MACO3 | BR25 | 1.5924E-117| | R088 | xMACO3 + MACO3 ----> 2.000\*MACO3 | BR25 | 1.5924E-117| | R089 | xTBUO + NO ----> NO + TBUO | BR07 | 9.3002E-127| | R090 | xTBUO + HO2 ----> HO2 | BR08 | 7.7759E-127| | R091 | xTBUO + NO3 ----> NO3 + TBUO | BR09 | 2.3000E-127| | R092 | xTBUO + MEO2 ----> MEO2 + 0.500\*TBUO | BR10 | 2.0000E-137| | R093 | xTBUO + RO2C ----> RO2C + 0.500\*TBUO | BR11 | 3.5000E-147| | R094 | xTBUO + RO2XC ----> RO2XC + 0.500\*TBUO | BR11 | 3.5000E-147| | R095 | xTBUO + MECO3 ----> MECO3 + TBUO | BR25 | 1.5924E-117| | R096 | xTBUO + RCO3 ----> RCO3 + TBUO | BR25 | 1.5924E-117| | R097 | xTBUO + BZCO3 ----> BZCO3 + TBUO | BR25 | 1.5924E-117| | R098 | xTBUO + MACO3 ----> MACO3 + TBUO | BR25 | 1.5924E-117| | R099 | xCO + NO ----> NO + CO | BR07 | 9.3002E-127| | R100 | xCO + HO2 ----> HO2 | BR08 | 7.7759E-127| | R101 | xCO + NO3 ----> NO3 + CO | BR09 | 2.3000E-127| | R102 | xCO + MEO2 ----> MEO2 + 0.500\*CO | BR10 | 2.0000E-137| | R103 | xCO + RO2C ----> RO2C + 0.500\*CO | BR11 | 3.5000E-147| | R104 | xCO + RO2XC ----> RO2XC + 0.500\*CO | BR11 | 3.5000E-147| | R105 | xCO + MECO3 ----> MECO3 + CO | BR25 | 1.5924E-117| | R106 | xCO + RCO3 ----> RCO3 + CO | BR25 | 1.5924E-117| | R107 | xCO + BZCO3 ----> BZCO3 + CO | BR25 | 1.5924E-117| | R108 | xCO + MACO3 ----> MACO3 + CO | BR25 | 1.5924E-117| | BP01 | HCHO ----> 2.000\*HO2 + CO | HCHOR_06 | Not Available1 | | BP02 | HCHO ----> CO | HCHOM_06 | Not Available1 | | BP03 | HCHO + OH ----> HO2 + CO | 5.40E-12e 135.00/T | 8.4926E-12 | | BP07 | HCHO + NO3 ----> HNO3 + HO2 + CO | 2.00E-12e -2431.00/T | 5.7539E-16 | | BP08 | CCHO + OH ----> MECO3 | 4.40E-12e 365.00/T | 1.4967E-11 | | BP09 | CCHO ----> CO + HO2 + MEO2 | CCHO_R | Not Available1 | | BP10 | CCHO + NO3 ----> HNO3 + MECO3 | 1.40E-12e -1860.00/T | 2.7340E-15 | | BP11 | RCHO + OH ----> 0.965\*RCO3 + 0.035\*RO2C + 0.035\*xHO2 + 0.035\*xCO + 0.035\*xCCHO + 0.035\*yROOH | 5.10E-12e 405.00/T | 1.9838E-11 | | BP12 | RCHO ----> RO2C + xHO2 + yROOH + xCCHO + CO + HO2 | C2CHO | Not Available1 | | BP13 | RCHO + NO3 ----> HNO3 + RCO3 | 1.40E-12e -1601.00/T | 6.5172E-15 | | BP14 | ACETONE + OH ----> RO2C + xMECO3 + xHCHO + yROOH | 4.56E-14e 429.00/T(T/300) 3.65 | 1.8796E-13 | | BP15 | ACETONE ----> 0.620\*MECO3 + 1.380\*MEO2 + 0.380\*CO | 5.0000E-01\*ACET_06 | Not Available1 | | BP16 | MEK + OH ----> 0.967\*RO2C + 0.039\*RO2XC + 0.039\*zRNO3 + 0.376\*xHO2 + 0.510\*xMECO3 + 0.074\*xRCO3 + 0.088\*xHCHO + 0.504\*xCCHO + 0.376\*xRCHO + yROOH | 1.30E-12e -25.00/T(T/300) 2.00 | 1.1807E-12 | | BP17 | MEK ----> MECO3 + RO2C + xHO2 + xCCHO + yROOH | 1.7500E-01\*MEK_06 | Not Available1 | | BP18 | MEOH + OH ----> HCHO + HO2 | 2.85E-12e -345.00/T | 8.9600E-13 | | BP19 | HCOOH + OH ----> HO2 + CO2 | 4.5000E-13 | 4.5000E-13 | | BP20 | CCOOH + OH ----> 0.509\*MEO2 + 0.491\*RO2C + 0.509\*CO2 + 0.491\*xHO2 + 0.491\*xMGLY + 0.491\*yROOH | 4.20E-14e 855.00/T | 7.3904E-13 | | BP21 | RCOOH + OH ----> RO2C + xHO2 + 0.143\*CO2 + 0.142\*xCCHO + 0.400\*xRCHO + 0.457\*xBACL + yROOH | 1.2000E-12 | 1.2000E-12 | | BP22 | COOH + OH ----> 0.300\*HCHO + 0.300\*OH + 0.700\*MEO2 | 3.80E-12e 200.00/T | 7.4321E-12 | | BP23 | COOH ----> HCHO + HO2 + OH | COOH | Not Available1 | | BP24 | ROOH + OH ----> 0.744\*OH + 0.251\*RO2C + 0.004\*RO2XC + 0.004\*zRNO3 + 0.744\*RCHO + 0.239\*xHO2 + 0.012\*xOH + 0.012\*xHCHO + 0.012\*xCCHO + 0.205\*xRCHO + 0.034\*xPROD2 + 0.256\*yROOH | 2.5000E-11 | 2.5000E-11 | | BP25 | ROOH ----> RCHO + HO2 + OH | COOH | Not Available1 | | BP26 | R6OOH + OH ----> 0.840\*OH + 0.222\*RO2C + 0.029\*RO2XC + 0.029\*zRNO3 + 0.840\*PRD2 + 0.090\*xHO2 + 0.041\*xOH + 0.020\*xCCHO + 0.075\*xRCHO + 0.084\*xPROD2 + 0.160\*yROOH | 5.6000E-11 | 5.6000E-11 | | BP27 | R6OOH ----> OH + 0.142\*HO2 + 0.782\*RO2C + 0.077\*RO2XC + 0.077\*zRNO3 + 0.085\*RCHO + 0.142\*PRD2 + 0.782\*xHO2 + 0.026\*xCCHO + 0.058\*xRCHO + 0.698\*xPROD2 + 0.858\*yR6OOH | COOH | Not Available1 | | BP28 | RAOOH + OH ----> 0.139\*OH + 0.148\*HO2 + 0.589\*RO2C + 0.124\*RO2XC + 0.124\*zRNO3 + 0.074\*PRD2 + 0.147\*MGLY + 0.139\*IPRD + 0.565\*xHO2 + 0.024\*xOH + 0.448\*xRCHO + 0.026\*xGLY + 0.030\*xMEK + 0.252\*xMGLY + 0.073\*xAFG1 + 0.073\*xAFG2 + 0.713\*yR6OOH | 1.4100E-10 | 1.4100E-10 | | BP29 | RAOOH ----> OH + HO2 + 0.500\*GLY + 0.500\*MGLY + 0.500\*AFG1 + 0.500\*AFG2 | COOH | Not Available1 | | BP30 | GLY ----> 2.000\*CO + 2.000\*HO2 | GLY_07R | Not Available1 | | BP31 | GLY ----> HCHO + CO | GLY_07M | Not Available1 | | BP32 | GLY + OH ----> 0.700\*HO2 + 1.400\*CO + 0.300\*HCOCO3 | 3.10E-12e 342.20/T | 9.7683E-12 | | BP33 | GLY + NO3 ----> HNO3 + 0.700\*HO2 + 1.400\*CO + 0.300\*HCOCO3 | 2.80E-12e -2390.00/T | 9.2429E-16 | | BP34 | MGLY ----> HO2 + CO + MECO3 | MGLY_06 | Not Available1 | | BP35 | MGLY + OH ----> CO + MECO3 | 1.5000E-11 | 1.5000E-11 | | BP36 | MGLY + NO3 ----> HNO3 + CO + MECO3 | 1.40E-12e -1895.00/T | 2.4312E-15 | | BP37 | BACL ----> 2.000\*MECO3 | BACL_07 | Not Available1 | | BP38 | CRES + OH ----> 0.200\*BZO + 0.800\*RO2C + 0.800\*xHO2 + 0.800\*yR6OOH + 0.250\*xMGLY | 1.70E-12e 950.00/T | 4.1138E-11 | | BP39 | CRES + NO3 ----> HNO3 + BZO | 1.4000E-11 | 1.4000E-11 | | BP40 | NPHE + OH ----> BZO | 3.5000E-12 | 3.5000E-12 | | BP41 | NPHE ----> HONO | 1.5000E-03\*NO2_06 | Not Available1 | | BP42 | NPHE ----> | 1.5000E-02\*NO2_06 | Not Available1 | | BP43 | BALD + OH ----> BZCO3 | 1.2000E-11 | 1.2000E-11 | | BP44 | BALD ----> | 6.0000E-02\*BALD_06 | Not Available1 | | BP45 | BALD + NO3 ----> HNO3 + BZCO3 | 1.34E-12e -1860.00/T | 2.6168E-15 | | BP46 | AFG1 + OH ----> 0.217\*MACO3 + 0.723\*RO2C + 0.060\*RO2XC + 0.060\*zRNO3 + 0.521\*xHO2 + 0.201\*xMECO3 + 0.334\*xCO + 0.407\*xRCHO + 0.129\*xMEK + 0.107\*xGLY + 0.267\*xMGLY + 0.783\*yR6OOH | 7.4000E-11 | 7.4000E-11 | | BP47 | AFG1 + O3 ----> 0.826\*OH + 0.522\*HO2 + 0.652\*RO2C + 0.522\*CO + 0.174\*CO2 + 0.432\*GLY + 0.568\*MGLY + 0.652\*xRCO3 + 0.652\*xHCHO + 0.652\*yR6OOH | 9.6600E-18 | 9.6600E-18 | | BP48 | AFG1 ----> 1.023\*HO2 + 0.173\*MEO2 + 0.305\*MECO3 + 0.500\*MACO3 + 0.695\*CO + 0.195\*GLY + 0.305\*MGLY | AFG1 | Not Available1 | | BP49 | AFG2 + OH ----> 0.217\*MACO3 + 0.723\*RO2C + 0.060\*RO2XC + 0.060\*zRNO3 + 0.521\*xHO2 + 0.201\*xMECO3 + 0.334\*xCO + 0.407\*xRCHO + 0.129\*xMEK + 0.107\*xGLY + 0.267\*xMGLY + 0.783\*yR6OOH | 7.4000E-11 | 7.4000E-11 | | BP50 | AFG2 + O3 ----> 0.826\*OH + 0.522\*HO2 + 0.652\*RO2C + 0.522\*CO + 0.174\*CO2 + 0.432\*GLY + 0.568\*MGLY + 0.652\*xRCO3 + 0.652\*xHCHO + 0.652\*yR6OOH | 9.6600E-18 | 9.6600E-18 | | BP51 | AFG2 ----> PRD2 | AFG1 | Not Available1 | | BP52 | AFG3 + OH ----> 0.206\*MACO3 + 0.733\*RO2C + 0.117\*RO2XC + 0.117\*zRNO3 + 0.561\*xHO2 + 0.117\*xMECO3 + 0.114\*xCO + 0.274\*xGLY + 0.153\*xMGLY + 0.019\*xBACL + 0.195\*xAFG1 + 0.195\*xAFG2 + 0.231\*xIPRD + 0.794\*yR6OOH | 9.3500E-11 | 9.3500E-11 | | BP53 | AFG3 + O3 ----> 0.471\*OH + 0.554\*HO2 + 0.013\*MECO3 + 0.258\*RO2C + 0.007\*RO2XC + 0.007\*zRNO3 + 0.580\*CO + 0.190\*CO2 + 0.366\*GLY + 0.184\*MGLY + 0.350\*AFG1 + 0.350\*AFG2 + 0.139\*AFG3 + 0.003\*MACR + 0.004\*MVK + 0.003\*IPRD + 0.095\*xHO2 + 0.163\*xRCO3 + 0.163\*xHCHO + 0.095\*xMGLY + 0.264\*yR6OOH | 1.4300E-17 | 1.4300E-17 | | BP55 | MACR + O3 ----> 0.208\*OH + 0.108\*HO2 + 0.100\*RO2C + 0.450\*CO + 0.117\*CO2 + 0.100\*HCHO + 0.900\*MGLY + 0.333\*HCOOH + 0.100\*xRCO3 + 0.100\*xHCHO + 0.100\*yROOH | 1.40E-15e -2100.00/T | 1.2224E-18 | | BP57 | MACR + O3P ----> RCHO | 6.3400E-12 | 6.3400E-12 | | BP60 | MVK + O3 ----> 0.164\*OH + 0.064\*HO2 + 0.050\*RO2C + 0.050\*xHO2 + 0.475\*CO + 0.124\*CO2 + 0.050\*HCHO + 0.950\*MGLY + 0.351\*HCOOH + 0.050\*xRCO3 + 0.050\*xHCHO + 0.050\*yROOH | 8.50E-16e -1520.00/T | 5.1921E-18 | | BP62 | MVK + O3P ----> 0.450\*RCHO + 0.550\*MEK | 4.3200E-12 | 4.3200E-12 | | BP63 | MVK ----> 0.400\*MEO2 + 0.600\*CO + 0.600\*PRD2 + 0.400\*MACO3 | MVK_06 | Not Available1 | | BP64 | IPRD + OH ----> 0.289\*MACO3 + 0.670\*RO2C + 0.670\*xHO2 + 0.041\*RO2XC + 0.041\*zRNO3 + 0.336\*xCO + 0.055\*xHCHO + 0.129\*xHOCCHO + 0.013\*xRCHO + 0.150\*xMEK + 0.332\*xPROD2 + 0.150\*xGLY + 0.174\*xMGLY + 0.711\*yR6OOH | 6.1900E-11 | 6.1900E-11 | | BP65 | IPRD + O3 ----> 0.285\*OH + 0.400\*HO2 + 0.048\*RO2C + 0.048\*xRCO3 + 0.498\*CO + 0.140\*CO2 + 0.124\*HCHO + 0.210\*MEK + 0.023\*GLY + 0.742\*MGLY + 0.100\*HCOOH + 0.372\*RCOOH + 0.047\*xHOCCHO + 0.001\*xHCHO + 0.048\*yR6OOH | 4.1800E-18 | 4.1800E-18 | | BP66 | IPRD + NO3 ----> 0.150\*MACO3 + 0.150\*HNO3 + 0.799\*RO2C + 0.799\*xHO2 + 0.051\*RO2XC + 0.051\*zRNO3 + 0.572\*xCO + 0.227\*xHCHO + 0.218\*xRCHO + 0.008\*xMGLY + 0.572\*xRNO3 + 0.850\*yR6OOH | 1.0000E-13 | 1.0000E-13 | | BP67 | IPRD ----> 1.233\*HO2 + 0.467\*MECO3 + 0.300\*RCO3 + 1.233\*CO + 0.300\*HCHO + 0.467\*HOCCHO + 0.233\*MEK | MACR_06 | Not Available1 | | BP68 | PRD2 + OH ----> 0.472\*HO2 + 0.379\*xHO2 + 0.029\*xMECO3 + 0.049\*xRCO3 + 0.473\*RO2C + 0.071\*RO2XC + 0.071\*zRNO3 + 0.002\*HCHO + 0.211\*xHCHO + 0.001\*CCHO + 0.083\*xCCHO + 0.143\*RCHO + 0.402\*xRCHO + 0.115\*xMEK + 0.329\*PRD2 + 0.007\*xPROD2 + 0.528\*yR6OOH | 1.5500E-11 | 1.5500E-11 | | BP69 | PRD2 ----> 0.913\*xHO2 + 0.400\*MECO3 + 0.600\*RCO3 + 1.590\*RO2C + 0.087\*RO2XC + 0.087\*zRNO3 + 0.303\*xHCHO + 0.163\*xCCHO + 0.780\*xRCHO + yR6OOH | 4.8600E-03\*MEK_06 | Not Available1 | | BP70 | RNO3 + OH ----> 0.189\*HO2 + 0.305\*xHO2 + 0.019\*NO2 + 0.313\*xNO2 + 0.976\*RO2C + 0.175\*RO2XC + 0.175\*zRNO3 + 0.011\*xHCHO + 0.429\*xCCHO + 0.001\*RCHO + 0.036\*xRCHO + 0.004\*xACETONE + 0.010\*MEK + 0.170\*xMEK + 0.008\*PRD2 + 0.031\*xPROD2 + 0.189\*RNO3 + 0.305\*xRNO3 + 0.157\*yROOH + 0.636\*yR6OOH | 7.2000E-12 | 7.2000E-12 | | BP71 | RNO3 ----> 0.344\*HO2 + 0.554\*xHO2 + NO2 + 0.721\*RO2C + 0.102\*RO2XC + 0.102\*zRNO3 + 0.074\*HCHO + 0.061\*xHCHO + 0.214\*CCHO + 0.230\*xCCHO + 0.074\*RCHO + 0.063\*xRCHO + 0.008\*xACETONE + 0.124\*MEK + 0.083\*xMEK + 0.190\*PRD2 + 0.261\*xPROD2 + 0.066\*yROOH + 0.591\*yR6OOH | IC3ONO2 | Not Available1 | | BP73 | HOCCHO ----> CO + 2.000\*HO2 + HCHO | HOCCHO_IUPAC | Not Available1 | | BP74 | HOCCHO + NO3 ----> HNO3 + MECO3 | BP10 | 2.7340E-157| | BP75 | ACROLEIN + OH ----> 0.250\*xHO2 + 0.750\*MACO3 + 0.250\*RO2C + 0.167\*xCO + 0.083\*xHCHO + 0.167\*xCCHO + 0.083\*xGLY + 0.250\*yROOH | 1.9900E-11 | 1.9900E-11 | | BP76 | ACROLEIN + O3 ----> 0.830\*HO2 + 0.330\*OH + 1.005\*CO + 0.310\*CO2 + 0.500\*HCHO + 0.185\*HCOOH + 0.500\*GLY | 1.40E-15e -2528.00/T | 2.9091E-19 | | BP77 | ACROLEIN + NO3 ----> 0.031\*xHO2 + 0.967\*MACO3 + 0.031\*RO2C + 0.002\*RO2XC + 0.002\*zRNO3 + 0.967\*HNO3 + 0.031\*xCO + 0.031\*xRNO3 + 0.033\*yROOH | 1.1800E-15 | 1.1800E-15 | | BP78 | ACROLEIN + O3P ----> RCHO | 2.3700E-12 | 2.3700E-12 | | BP79 | ACROLEIN ----> 1.066\*HO2 + 0.178\*OH + 0.234\*MEO2 + 0.330\*MACO3 + 1.188\*CO + 0.102\*CO2 + 0.340\*HCHO + 0.050\*CCOOH | ACRO_09 | Not Available1 | | BP80 | CCOOOH + OH ----> 0.980\*MECO3 + 0.020\*RO2C + 0.020\*CO2 + 0.020\*xOH + 0.020\*xHCHO + 0.020\*yROOH | 5.2800E-12 | 5.2800E-12 | | BP81 | CCOOOH ----> MEO2 + CO2 + OH | PAA | Not Available1 | | BP82 | RCOOOH + OH ----> 0.806\*RCO3 + 0.194\*RO2C + 0.194\*yROOH + 0.110\*CO2 + 0.110\*xOH + 0.110\*xCCHO + 0.084\*xHO2 + 0.084\*xRCHO | 6.4200E-12 | 6.4200E-12 | | BP83 | RCOOOH ----> xHO2 + xCCHO + yROOH + CO2 + OH | PAA | Not Available1 | | BP84 | HCOCO3 + NO ----> HO2 + CO + CO2 + NO2 | BR31 | 2.0957E-117| | BP85 | HCOCO3 + NO2 ----> HO2 + CO + CO2 + NO3 | BR28 | 1.2180E-117| | BP86 | HCOCO3 + HO2 ----> 0.440\*OH + 0.440\*HO2 + 0.440\*CO + 0.440\*CO2 + 0.560\*GLY + 0.150\*O3 | BR22 | 1.3916E-117| | P001 | xHCHO + NO ----> NO + HCHO | BR07 | 9.3002E-127| | P002 | xHCHO + HO2 ----> HO2 | BR08 | 7.7759E-127| | P003 | xHCHO + NO3 ----> NO3 + HCHO | BR09 | 2.3000E-127| | P004 | xHCHO + MEO2 ----> MEO2 + 0.500\*HCHO | BR10 | 2.0000E-137| | P005 | xHCHO + RO2C ----> RO2C + 0.500\*HCHO | BR11 | 3.5000E-147| | P006 | xHCHO + RO2XC ----> RO2XC + 0.500\*HCHO | BR11 | 3.5000E-147| | P007 | xHCHO + MECO3 ----> MECO3 + HCHO | BR25 | 1.5924E-117| | P008 | xHCHO + RCO3 ----> RCO3 + HCHO | BR25 | 1.5924E-117| | P009 | xHCHO + BZCO3 ----> BZCO3 + HCHO | BR25 | 1.5924E-117| | P010 | xHCHO + MACO3 ----> MACO3 + HCHO | BR25 | 1.5924E-117| | P011 | xCCHO + NO ----> NO + CCHO | BR07 | 9.3002E-127| | P012 | xCCHO + HO2 ----> HO2 | BR08 | 7.7759E-127| | P013 | xCCHO + NO3 ----> NO3 + CCHO | BR09 | 2.3000E-127| | P014 | xCCHO + MEO2 ----> MEO2 + 0.500\*CCHO | BR10 | 2.0000E-137| | P015 | xCCHO + RO2C ----> RO2C + 0.500\*CCHO | BR11 | 3.5000E-147| | P016 | xCCHO + RO2XC ----> RO2XC + 0.500\*CCHO | BR11 | 3.5000E-147| | P017 | xCCHO + MECO3 ----> MECO3 + CCHO | BR25 | 1.5924E-117| | P018 | xCCHO + RCO3 ----> RCO3 + CCHO | BR25 | 1.5924E-117| | P019 | xCCHO + BZCO3 ----> BZCO3 + CCHO | BR25 | 1.5924E-117| | P020 | xCCHO + MACO3 ----> MACO3 + CCHO | BR25 | 1.5924E-117| | P021 | xRCHO + NO ----> NO + RCHO | BR07 | 9.3002E-127| | P022 | xRCHO + HO2 ----> HO2 | BR08 | 7.7759E-127| | P023 | xRCHO + NO3 ----> NO3 + RCHO | BR09 | 2.3000E-127| | P024 | xRCHO + MEO2 ----> MEO2 + 0.500\*RCHO | BR10 | 2.0000E-137| | P025 | xRCHO + RO2C ----> RO2C + 0.500\*RCHO | BR11 | 3.5000E-147| | P026 | xRCHO + RO2XC ----> RO2XC + 0.500\*RCHO | BR11 | 3.5000E-147| | P027 | xRCHO + MECO3 ----> MECO3 + RCHO | BR25 | 1.5924E-117| | P028 | xRCHO + RCO3 ----> RCO3 + RCHO | BR25 | 1.5924E-117| | P029 | xRCHO + BZCO3 ----> BZCO3 + RCHO | BR25 | 1.5924E-117| | P030 | xRCHO + MACO3 ----> MACO3 + RCHO | BR25 | 1.5924E-117| | P031 | xACETONE + NO ----> NO + ACETONE | BR07 | 9.3002E-127| | P032 | xACETONE + HO2 ----> HO2 | BR08 | 7.7759E-127| | P033 | xACETONE + NO3 ----> NO3 + ACETONE | BR09 | 2.3000E-127| | P034 | xACETONE + MEO2 ----> MEO2 + 0.500\*ACETONE | BR10 | 2.0000E-137| | P035 | xACETONE + RO2C ----> RO2C + 0.500\*ACETONE | BR11 | 3.5000E-147| | P036 | xACETONE + RO2XC ----> RO2XC + 0.500\*ACETONE | BR11 | 3.5000E-147| | P037 | xACETONE + MECO3 ----> MECO3 + ACETONE | BR25 | 1.5924E-117| | P038 | xACETONE + RCO3 ----> RCO3 + ACETONE | BR25 | 1.5924E-117| | P039 | xACETONE + BZCO3 ----> BZCO3 + ACETONE | BR25 | 1.5924E-117| | P040 | xACETONE + MACO3 ----> MACO3 + ACETONE | BR25 | 1.5924E-117| | P041 | xMEK + NO ----> NO + MEK | BR07 | 9.3002E-127| | P042 | xMEK + HO2 ----> HO2 | BR08 | 7.7759E-127| | P043 | xMEK + NO3 ----> NO3 + MEK | BR09 | 2.3000E-127| | P044 | xMEK + MEO2 ----> MEO2 + 0.500\*MEK | BR10 | 2.0000E-137| | P045 | xMEK + RO2C ----> RO2C + 0.500\*MEK | BR11 | 3.5000E-147| | P046 | xMEK + RO2XC ----> RO2XC + 0.500\*MEK | BR11 | 3.5000E-147| | P047 | xMEK + MECO3 ----> MECO3 + MEK | BR25 | 1.5924E-117| | P048 | xMEK + RCO3 ----> RCO3 + MEK | BR25 | 1.5924E-117| | P049 | xMEK + BZCO3 ----> BZCO3 + MEK | BR25 | 1.5924E-117| | P050 | xMEK + MACO3 ----> MACO3 + MEK | BR25 | 1.5924E-117| | P051 | xPROD2 + NO ----> NO + PRD2 | BR07 | 9.3002E-127| | P052 | xPROD2 + HO2 ----> HO2 | BR08 | 7.7759E-127| | P053 | xPROD2 + NO3 ----> NO3 + PRD2 | BR09 | 2.3000E-127| | P054 | xPROD2 + MEO2 ----> MEO2 + 0.500\*PRD2 | BR10 | 2.0000E-137| | P055 | xPROD2 + RO2C ----> RO2C + 0.500\*PRD2 | BR11 | 3.5000E-147| | P056 | xPROD2 + RO2XC ----> RO2XC + 0.500\*PRD2 | BR11 | 3.5000E-147| | P057 | xPROD2 + MECO3 ----> MECO3 + PRD2 | BR25 | 1.5924E-117| | P058 | xPROD2 + RCO3 ----> RCO3 + PRD2 | BR25 | 1.5924E-117| | P059 | xPROD2 + BZCO3 ----> BZCO3 + PRD2 | BR25 | 1.5924E-117| | P060 | xPROD2 + MACO3 ----> MACO3 + PRD2 | BR25 | 1.5924E-117| | P061 | xGLY + NO ----> NO + GLY | BR07 | 9.3002E-127| | P062 | xGLY + HO2 ----> HO2 | BR08 | 7.7759E-127| | P063 | xGLY + NO3 ----> NO3 + GLY | BR09 | 2.3000E-127| | P064 | xGLY + MEO2 ----> MEO2 + 0.500\*GLY | BR10 | 2.0000E-137| | P065 | xGLY + RO2C ----> RO2C + 0.500\*GLY | BR11 | 3.5000E-147| | P066 | xGLY + RO2XC ----> RO2XC + 0.500\*GLY | BR11 | 3.5000E-147| | P067 | xGLY + MECO3 ----> MECO3 + GLY | BR25 | 1.5924E-117| | P068 | xGLY + RCO3 ----> RCO3 + GLY | BR25 | 1.5924E-117| | P069 | xGLY + BZCO3 ----> BZCO3 + GLY | BR25 | 1.5924E-117| | P070 | xGLY + MACO3 ----> MACO3 + GLY | BR25 | 1.5924E-117| | P071 | xMGLY + NO ----> NO + MGLY | BR07 | 9.3002E-127| | P072 | xMGLY + HO2 ----> HO2 | BR08 | 7.7759E-127| | P073 | xMGLY + NO3 ----> NO3 + MGLY | BR09 | 2.3000E-127| | P074 | xMGLY + MEO2 ----> MEO2 + 0.500\*MGLY | BR10 | 2.0000E-137| | P075 | xMGLY + RO2C ----> RO2C + 0.500\*MGLY | BR11 | 3.5000E-147| | P076 | xMGLY + RO2XC ----> RO2XC + 0.500\*MGLY | BR11 | 3.5000E-147| | P077 | xMGLY + MECO3 ----> MECO3 + MGLY | BR25 | 1.5924E-117| | P078 | xMGLY + RCO3 ----> RCO3 + MGLY | BR25 | 1.5924E-117| | P079 | xMGLY + BZCO3 ----> BZCO3 + MGLY | BR25 | 1.5924E-117| | P080 | xMGLY + MACO3 ----> MACO3 + MGLY | BR25 | 1.5924E-117| | P081 | xBACL + NO ----> NO + BACL | BR07 | 9.3002E-127| | P082 | xBACL + HO2 ----> HO2 | BR08 | 7.7759E-127| | P083 | xBACL + NO3 ----> NO3 + BACL | BR09 | 2.3000E-127| | P084 | xBACL + MEO2 ----> MEO2 + 0.500\*BACL | BR10 | 2.0000E-137| | P085 | xBACL + RO2C ----> RO2C + 0.500\*BACL | BR11 | 3.5000E-147| | P086 | xBACL + RO2XC ----> RO2XC + 0.500\*BACL | BR11 | 3.5000E-147| | P087 | xBACL + MECO3 ----> MECO3 + BACL | BR25 | 1.5924E-117| | P088 | xBACL + RCO3 ----> RCO3 + BACL | BR25 | 1.5924E-117| | P089 | xBACL + BZCO3 ----> BZCO3 + BACL | BR25 | 1.5924E-117| | P090 | xBACL + MACO3 ----> MACO3 + BACL | BR25 | 1.5924E-117| | P091 | xBALD + NO ----> NO + BALD | BR07 | 9.3002E-127| | P092 | xBALD + HO2 ----> HO2 | BR08 | 7.7759E-127| | P093 | xBALD + NO3 ----> NO3 + BALD | BR09 | 2.3000E-127| | P094 | xBALD + MEO2 ----> MEO2 + 0.500\*BALD | BR10 | 2.0000E-137| | P095 | xBALD + RO2C ----> RO2C + 0.500\*BALD | BR11 | 3.5000E-147| | P096 | xBALD + RO2XC ----> RO2XC + 0.500\*BALD | BR11 | 3.5000E-147| | P097 | xBALD + MECO3 ----> MECO3 + BALD | BR25 | 1.5924E-117| | P098 | xBALD + RCO3 ----> RCO3 + BALD | BR25 | 1.5924E-117| | P099 | xBALD + BZCO3 ----> BZCO3 + BALD | BR25 | 1.5924E-117| | P100 | xBALD + MACO3 ----> MACO3 + BALD | BR25 | 1.5924E-117| | P101 | xAFG1 + NO ----> NO + AFG1 | BR07 | 9.3002E-127| | P102 | xAFG1 + HO2 ----> HO2 | BR08 | 7.7759E-127| | P103 | xAFG1 + NO3 ----> NO3 + AFG1 | BR09 | 2.3000E-127| | P104 | xAFG1 + MEO2 ----> MEO2 + 0.500\*AFG1 | BR10 | 2.0000E-137| | P105 | xAFG1 + RO2C ----> RO2C + 0.500\*AFG1 | BR11 | 3.5000E-147| | P106 | xAFG1 + RO2XC ----> RO2XC + 0.500\*AFG1 | BR11 | 3.5000E-147| | P107 | xAFG1 + MECO3 ----> MECO3 + AFG1 | BR25 | 1.5924E-117| | P108 | xAFG1 + RCO3 ----> RCO3 + AFG1 | BR25 | 1.5924E-117| | P109 | xAFG1 + BZCO3 ----> BZCO3 + AFG1 | BR25 | 1.5924E-117| | P110 | xAFG1 + MACO3 ----> MACO3 + AFG1 | BR25 | 1.5924E-117| | P111 | xAFG2 + NO ----> NO + AFG2 | BR07 | 9.3002E-127| | P112 | xAFG2 + HO2 ----> HO2 | BR08 | 7.7759E-127| | P113 | xAFG2 + NO3 ----> NO3 + AFG2 | BR09 | 2.3000E-127| | P114 | xAFG2 + MEO2 ----> MEO2 + 0.500\*AFG2 | BR10 | 2.0000E-137| | P115 | xAFG2 + RO2C ----> RO2C + 0.500\*AFG2 | BR11 | 3.5000E-147| | P116 | xAFG2 + RO2XC ----> RO2XC + 0.500\*AFG2 | BR11 | 3.5000E-147| | P117 | xAFG2 + MECO3 ----> MECO3 + AFG2 | BR25 | 1.5924E-117| | P118 | xAFG2 + RCO3 ----> RCO3 + AFG2 | BR25 | 1.5924E-117| | P119 | xAFG2 + BZCO3 ----> BZCO3 + AFG2 | BR25 | 1.5924E-117| | P120 | xAFG2 + MACO3 ----> MACO3 + AFG2 | BR25 | 1.5924E-117| | P121 | xAFG3 + NO ----> NO + AFG3 | BR07 | 9.3002E-127| | P122 | xAFG3 + HO2 ----> HO2 | BR08 | 7.7759E-127| | P123 | xAFG3 + NO3 ----> NO3 + AFG3 | BR09 | 2.3000E-127| | P124 | xAFG3 + MEO2 ----> MEO2 + 0.500\*AFG3 | BR10 | 2.0000E-137| | P125 | xAFG3 + RO2C ----> RO2C + 0.500\*AFG3 | BR11 | 3.5000E-147| | P126 | xAFG3 + RO2XC ----> RO2XC + 0.500\*AFG3 | BR11 | 3.5000E-147| | P127 | xAFG3 + MECO3 ----> MECO3 + AFG3 | BR25 | 1.5924E-117| | P128 | xAFG3 + RCO3 ----> RCO3 + AFG3 | BR25 | 1.5924E-117| | P129 | xAFG3 + BZCO3 ----> BZCO3 + AFG3 | BR25 | 1.5924E-117| | P130 | xAFG3 + MACO3 ----> MACO3 + AFG3 | BR25 | 1.5924E-117| | P131 | xMACR + NO ----> NO + MACR | BR07 | 9.3002E-127| | P132 | xMACR + HO2 ----> HO2 | BR08 | 7.7759E-127| | P133 | xMACR + NO3 ----> NO3 + MACR | BR09 | 2.3000E-127| | P134 | xMACR + MEO2 ----> MEO2 + 0.500\*MACR | BR10 | 2.0000E-137| | P135 | xMACR + RO2C ----> RO2C + 0.500\*MACR | BR11 | 3.5000E-147| | P136 | xMACR + RO2XC ----> RO2XC + 0.500\*MACR | BR11 | 3.5000E-147| | P137 | xMACR + MECO3 ----> MECO3 + MACR | BR25 | 1.5924E-117| | P138 | xMACR + RCO3 ----> RCO3 + MACR | BR25 | 1.5924E-117| | P139 | xMACR + BZCO3 ----> BZCO3 + MACR | BR25 | 1.5924E-117| | P140 | xMACR + MACO3 ----> MACO3 + MACR | BR25 | 1.5924E-117| | P141 | xMVK + NO ----> NO + MVK | BR07 | 9.3002E-127| | P142 | xMVK + HO2 ----> HO2 | BR08 | 7.7759E-127| | P143 | xMVK + NO3 ----> NO3 + MVK | BR09 | 2.3000E-127| | P144 | xMVK + MEO2 ----> MEO2 + 0.500\*MVK | BR10 | 2.0000E-137| | P145 | xMVK + RO2C ----> RO2C + 0.500\*MVK | BR11 | 3.5000E-147| | P146 | xMVK + RO2XC ----> RO2XC + 0.500\*MVK | BR11 | 3.5000E-147| | P147 | xMVK + MECO3 ----> MECO3 + MVK | BR25 | 1.5924E-117| | P148 | xMVK + RCO3 ----> RCO3 + MVK | BR25 | 1.5924E-117| | P149 | xMVK + BZCO3 ----> BZCO3 + MVK | BR25 | 1.5924E-117| | P150 | xMVK + MACO3 ----> MACO3 + MVK | BR25 | 1.5924E-117| | P151 | xIPRD + NO ----> NO + IPRD | BR07 | 9.3002E-127| | P152 | xIPRD + HO2 ----> HO2 | BR08 | 7.7759E-127| | P153 | xIPRD + NO3 ----> NO3 + IPRD | BR09 | 2.3000E-127| | P154 | xIPRD + MEO2 ----> MEO2 + 0.500\*IPRD | BR10 | 2.0000E-137| | P155 | xIPRD + RO2C ----> RO2C + 0.500\*IPRD | BR11 | 3.5000E-147| | P156 | xIPRD + RO2XC ----> RO2XC + 0.500\*IPRD | BR11 | 3.5000E-147| | P157 | xIPRD + MECO3 ----> MECO3 + IPRD | BR25 | 1.5924E-117| | P158 | xIPRD + RCO3 ----> RCO3 + IPRD | BR25 | 1.5924E-117| | P159 | xIPRD + BZCO3 ----> BZCO3 + IPRD | BR25 | 1.5924E-117| | P160 | xIPRD + MACO3 ----> MACO3 + IPRD | BR25 | 1.5924E-117| | P161 | xRNO3 + NO ----> NO + RNO3 | BR07 | 9.3002E-127| | P162 | xRNO3 + HO2 ----> HO2 | BR08 | 7.7759E-127| | P163 | xRNO3 + NO3 ----> NO3 + RNO3 | BR09 | 2.3000E-127| | P164 | xRNO3 + MEO2 ----> MEO2 + 0.500\*RNO3 | BR10 | 2.0000E-137| | P165 | xRNO3 + RO2C ----> RO2C + 0.500\*RNO3 | BR11 | 3.5000E-147| | P166 | xRNO3 + RO2XC ----> RO2XC + 0.500\*RNO3 | BR11 | 3.5000E-147| | P167 | xRNO3 + MECO3 ----> MECO3 + RNO3 | BR25 | 1.5924E-117| | P168 | xRNO3 + RCO3 ----> RCO3 + RNO3 | BR25 | 1.5924E-117| | P169 | xRNO3 + BZCO3 ----> BZCO3 + RNO3 | BR25 | 1.5924E-117| | P170 | xRNO3 + MACO3 ----> MACO3 + RNO3 | BR25 | 1.5924E-117| | PX161 | xMTNO3 + NO ----> NO + MTNO3 | BR07 | 9.3002E-127| | PX162 | xMTNO3 + HO2 ----> HO2 | 2.65E-13e 1300.00/T | 2.0743E-11 | | PX163 | xMTNO3 + NO3 ----> NO3 + MTNO3 | BR09 | 2.3000E-127| | PX164 | xMTNO3 + MEO2 ----> MEO2 + 0.500\*MTNO3 | BR10 | 2.0000E-137| | PX165 | xMTNO3 + RO2C ----> RO2C + 0.500\*MTNO3 | BR11 | 3.5000E-147| | PX166 | xMTNO3 + RO2XC ----> RO2XC + 0.500\*MTNO3 | BR11 | 3.5000E-147| | PX167 | xMTNO3 + MECO3 ----> MECO3 + MTNO3 | BR25 | 1.5924E-117| | PX168 | xMTNO3 + RCO3 ----> RCO3 + MTNO3 | BR25 | 1.5924E-117| | PX169 | xMTNO3 + BZCO3 ----> BZCO3 + MTNO3 | BR25 | 1.5924E-117| | PX170 | xMTNO3 + MACO3 ----> MACO3 + MTNO3 | BR25 | 1.5924E-117| | PX170b | xMTNO3 + IMACO3 ----> MACO3 + MTNO3 | BR25 | 1.5924E-117| | P171 | yROOH + NO ----> NO | BR07 | 9.3002E-127| | P172 | yROOH + HO2 ----> HO2 + ROOH | BR08 | 7.7759E-127| | P173 | yROOH + NO3 ----> NO3 | BR09 | 2.3000E-127| | P174 | yROOH + MEO2 ----> MEO2 + 0.500\*MEK | BR10 | 2.0000E-137| | P175 | yROOH + RO2C ----> RO2C + 0.500\*MEK | BR11 | 3.5000E-147| | P176 | yROOH + RO2XC ----> RO2XC + 0.500\*MEK | BR11 | 3.5000E-147| | P177 | yROOH + MECO3 ----> MECO3 | BR25 | 1.5924E-117| | P178 | yROOH + RCO3 ----> RCO3 | BR25 | 1.5924E-117| | P179 | yROOH + BZCO3 ----> BZCO3 | BR25 | 1.5924E-117| | P180 | yROOH + MACO3 ----> MACO3 | BR25 | 1.5924E-117| | P181 | yR6OOH + NO ----> NO | BR07 | 9.3002E-127| | P182 | yR6OOH + HO2 ----> HO2 + R6OOH | BR08 | 7.7759E-127| | P183 | yR6OOH + NO3 ----> NO3 | BR09 | 2.3000E-127| | P184 | yR6OOH + MEO2 ----> MEO2 + 0.500\*PRD2 | BR10 | 2.0000E-137| | P185 | yR6OOH + RO2C ----> RO2C + 0.500\*PRD2 | BR11 | 3.5000E-147| | P186 | yR6OOH + RO2XC ----> RO2XC + 0.500\*PRD2 | BR11 | 3.5000E-147| | P187 | yR6OOH + MECO3 ----> MECO3 | BR25 | 1.5924E-117| | P188 | yR6OOH + RCO3 ----> RCO3 | BR25 | 1.5924E-117| | P189 | yR6OOH + BZCO3 ----> BZCO3 | BR25 | 1.5924E-117| | P190 | yR6OOH + MACO3 ----> MACO3 | BR25 | 1.5924E-117| | P191 | yRAOOH + NO ----> NO | BR07 | 9.3002E-127| | P192 | yRAOOH + HO2 ----> HO2 + RAOOH | BR08 | 7.7759E-127| | P193 | yRAOOH + NO3 ----> NO3 | BR09 | 2.3000E-127| | P194 | yRAOOH + MEO2 ----> MEO2 + 0.500\*PRD2 | BR10 | 2.0000E-137| | P195 | yRAOOH + RO2C ----> RO2C + 0.500\*PRD2 | BR11 | 3.5000E-147| | P196 | yRAOOH + RO2XC ----> RO2XC + 0.500\*PRD2 | BR11 | 3.5000E-147| | P197 | yRAOOH + MECO3 ----> MECO3 | BR25 | 1.5924E-117| | P198 | yRAOOH + RCO3 ----> RCO3 | BR25 | 1.5924E-117| | P199 | yRAOOH + BZCO3 ----> BZCO3 | BR25 | 1.5924E-117| | P200 | yRAOOH + MACO3 ----> MACO3 | BR25 | 1.5924E-117| | P201 | zRNO3 + NO ----> NO + RNO3 | BR07 | 9.3002E-127| | P202 | zRNO3 + HO2 ----> HO2 | BR08 | 7.7759E-127| | P203 | zRNO3 + NO3 ----> NO3 + PRD2 + HO2 | BR09 | 2.3000E-127| | P204 | zRNO3 + MEO2 ----> MEO2 + 0.500\*PRD2 + 0.500\*HO2 | BR10 | 2.0000E-137| | P205 | zRNO3 + RO2C ----> RO2C + 0.500\*PRD2 + 0.500\*HO2 | BR11 | 3.5000E-147| | P206 | zRNO3 + RO2XC ----> RO2XC + 0.500\*PRD2 + 0.500\*HO2 | BR11 | 3.5000E-147| | P207 | zRNO3 + MECO3 ----> MECO3 + PRD2 + HO2 | BR25 | 1.5924E-117| | P208 | zRNO3 + RCO3 ----> RCO3 + PRD2 + HO2 | BR25 | 1.5924E-117| | P209 | zRNO3 + BZCO3 ----> BZCO3 + PRD2 + HO2 | BR25 | 1.5924E-117| | P210 | zRNO3 + MACO3 ----> MACO3 + PRD2 + HO2 | BR25 | 1.5924E-117| | PZ201 | zMTNO3 + NO ----> NO + MTNO3 | BR07 | 9.3002E-127| | PZ202 | zMTNO3 + HO2 ----> HO2 | 2.65E-13e 1300.00/T | 2.0743E-11 | | PZ203 | zMTNO3 + NO3 ----> NO3 + PRD2 + HO2 | BR09 | 2.3000E-127| | PZ204 | zMTNO3 + MEO2 ----> MEO2 + 0.500\*PRD2 + 0.500\*HO2 | BR10 | 2.0000E-137| | PZ205 | zMTNO3 + RO2C ----> RO2C + 0.500\*PRD2 + 0.500\*HO2 | BR11 | 3.5000E-147| | PZ206 | zMTNO3 + RO2XC ----> RO2XC + 0.500\*PRD2 + 0.500\*HO2 | BR11 | 3.5000E-147| | PZ207 | zMTNO3 + MECO3 ----> MECO3 + PRD2 + HO2 | BR25 | 1.5924E-117| | PZ208 | zMTNO3 + RCO3 ----> RCO3 + PRD2 + HO2 | BR25 | 1.5924E-117| | PZ209 | zMTNO3 + BZCO3 ----> BZCO3 + PRD2 + HO2 | BR25 | 1.5924E-117| | PZ210 | zMTNO3 + MACO3 ----> MACO3 + PRD2 + HO2 | BR25 | 1.5924E-117| | PZ210b | zMTNO3 + IMACO3 ----> IMACO3 + PRD2 + HO2 | BR25 | 1.5924E-117| | P211 | xHOCCHO + NO ----> NO + HOCCHO | BR07 | 9.3002E-127| | P212 | xHOCCHO + HO2 ----> HO2 | BR08 | 7.7759E-127| | P213 | xHOCCHO + NO3 ----> NO3 + HOCCHO | BR09 | 2.3000E-127| | P214 | xHOCCHO + MEO2 ----> MEO2 + 0.500\*HOCCHO | BR10 | 2.0000E-137| | P215 | xHOCCHO + RO2C ----> RO2C + 0.500\*HOCCHO | BR11 | 3.5000E-147| | P216 | xHOCCHO + RO2XC ----> RO2XC + 0.500\*HOCCHO | BR11 | 3.5000E-147| | P217 | xHOCCHO + MECO3 ----> MECO3 + HOCCHO | BR25 | 1.5924E-117| | P218 | xHOCCHO + RCO3 ----> RCO3 + HOCCHO | BR25 | 1.5924E-117| | P219 | xHOCCHO + BZCO3 ----> BZCO3 + HOCCHO | BR25 | 1.5924E-117| | P220 | xHOCCHO + MACO3 ----> MACO3 + HOCCHO | BR25 | 1.5924E-117| | P221 | xACROLEIN + NO ----> NO + ACROLEIN | BR07 | 9.3002E-127| | P222 | xACROLEIN + HO2 ----> HO2 | BR08 | 7.7759E-127| | P223 | xACROLEIN + NO3 ----> NO3 + ACROLEIN | BR09 | 2.3000E-127| | P224 | xACROLEIN + MEO2 ----> MEO2 + 0.500\*ACROLEIN | BR10 | 2.0000E-137| | P225 | xACROLEIN + RO2C ----> RO2C + 0.500\*ACROLEIN | BR11 | 3.5000E-147| | P226 | xACROLEIN + RO2XC ----> RO2XC + 0.500\*ACROLEIN | BR11 | 3.5000E-147| | P227 | xACROLEIN + MECO3 ----> MECO3 + ACROLEIN | BR25 | 1.5924E-117| | P228 | xACROLEIN + RCO3 ----> RCO3 + ACROLEIN | BR25 | 1.5924E-117| | P229 | xACROLEIN + BZCO3 ----> BZCO3 + ACROLEIN | BR25 | 1.5924E-117| | P230 | xACROLEIN + MACO3 ----> MACO3 + ACROLEIN | BR25 | 1.5924E-117| | BE01 | OH + CH4 ----> MEO2 | 1.85E-12e -1690.00/T | 6.3895E-15 | | BE02 | ETHENE + OH ----> xHO2 + RO2C + 1.610\*xHCHO + 0.195\*xHOCCHO + yROOH | ko= 1.00E-28e 0.0/T(T/300) -4.50
ki = 8.80E-12e 0.0/T(T/300) -0.85
n= 1.00;F= 0.60 | 8.1981E-12 | | BE03 | ETHENE + O3 ----> 0.160\*HO2 + 0.160\*OH + 0.510\*CO + 0.120\*CO2 + HCHO + 0.370\*HCOOH | 9.14E-15e -2580.00/T | 1.5953E-18 | | BE04 | ETHENE + NO3 ----> xHO2 + RO2C + xRCHO + yROOH | 3.30E-12e -2880.00/T | 2.1058E-16 | | BE05 | ETHENE + O3P ----> 0.800\*HO2 + 0.290\*xHO2 + 0.510\*MEO2 + 0.290\*RO2C + 0.510\*CO + 0.278\*xCO + 0.278\*xHCHO + 0.100\*CCHO + 0.012\*xGLY + 0.290\*yROOH | 1.07E-11e -800.00/T | 7.3127E-13 | | BT01 | PROPENE + OH ----> 0.984\*xHO2 + 0.984\*RO2C + 0.016\*RO2XC + 0.016\*zRNO3 + 0.984\*xHCHO + 0.984\*xCCHO + yROOH | 4.85E-12e 504.00/T | 2.6296E-11 | | BT02 | PROPENE + O3 ----> 0.165\*HO2 + 0.350\*OH + 0.355\*MEO2 + 0.525\*CO + 0.215\*CO2 + 0.500\*HCHO + 0.500\*CCHO + 0.185\*HCOOH + 0.075\*CCOOH | 5.51E-15e -1878.00/T | 1.0130E-17 | | BT03 | PROPENE + NO3 ----> 0.949\*xHO2 + 0.949\*RO2C + 0.051\*RO2XC + 0.051\*zRNO3 + yROOH | 4.59E-13e -1156.00/T | 9.5049E-15 | | BT04 | PROPENE + O3P ----> 0.450\*RCHO + 0.550\*MEK | 1.02E-11e -280.00/T | 3.9879E-12 | | BT05 | BUTADIENE13 + OH ----> 0.951\*xHO2 + 1.189\*RO2C + 0.049\*RO2XC + 0.049\*zRNO3 + 0.708\*xHCHO + 0.580\*xACROLEIN + 0.471\*xIPRD + yROOH | 1.48E-11e 448.00/T | 6.6502E-11 | | BT06 | BUTADIENE13 + O3 ----> 0.080\*HO2 + 0.080\*OH + 0.255\*CO + 0.185\*CO2 + 0.500\*HCHO + 0.185\*HCOOH + 0.500\*ACROLEIN + 0.375\*MVK + 0.125\*PRD2 | 1.34E-14e -2283.00/T | 6.3331E-18 | | BT07 | BUTADIENE13 + NO3 ----> 0.815\*xHO2 + 0.120\*xNO2 + 1.055\*RO2C + 0.065\*RO2XC + 0.065\*zRNO3 + 0.115\*xHCHO + 0.460\*xMVK + 0.120\*xIPRD + 0.355\*xRNO3 + yROOH | 1.0000E-13 | 1.0000E-13 | | BT08 | BUTADIENE13 + O3P ----> 0.250\*HO2 + 0.117\*xHO2 + 0.118\*xMACO3 + 0.235\*RO2C + 0.015\*RO2XC + 0.015\*zRNO3 + 0.115\*xCO + 0.115\*xACROLEIN + 0.001\*xAFG1 + 0.001\*xAFG2 + 0.750\*PRD2 + 0.250\*yROOH | 2.26E-11e -40.00/T | 1.9763E-11 | | BE07 | ISOPRENE + O3 ----> 0.066\*HO2 + 0.266\*OH + 0.192\*xMACO3 + 0.192\*RO2C + 0.008\*RO2XC + 0.008\*zRNO3 + 0.275\*CO + 0.122\*CO2 + 0.400\*HCHO + 0.192\*xHCHO + 0.204\*HCOOH + 0.390\*MACR + 0.160\*MVK + 0.150\*IPRD + 0.100\*PRD2 + 0.200\*yR6OOH | 7.86E-15e -1912.00/T | 1.2893E-17 | | BE09 | ISOPRENE + O3P ----> 0.250\*MEO2 + 0.240\*xMACO3 + 0.240\*RO2C + 0.010\*RO2XC + 0.010\*zRNO3 + 0.240\*xHCHO + 0.750\*PRD2 + 0.250\*yR6OOH | 3.5000E-11 | 3.5000E-11 | | BT09 | APIN + OH ----> 0.799\*xHO2 + 0.004\*xRCO3 + 1.042\*RO2C + 0.197\*RO2XC + 0.197\*zRNO3 + 0.002\*xCO + 0.022\*xHCHO + 0.776\*xRCHO + 0.034\*xACETONE + 0.020\*xMGLY + 0.023\*xBACL + yR6OOH + TRPRXN | 1.21E-11e 436.00/T | 5.2225E-11 | | BT10 | APIN + O3 ----> 0.009\*HO2 + 0.102\*xHO2 + 0.728\*OH + 0.001\*xMECO3 + 0.297\*xRCO3 + 1.511\*RO2C + 0.337\*RO2XC + 0.337\*zRNO3 + 0.029\*CO + 0.051\*xCO + 0.017\*CO2 + 0.344\*xHCHO + 0.240\*xRCHO + 0.345\*xACETONE + 0.008\*MEK + 0.002\*xGLY + 0.081\*xBACL + 0.255\*PRD2 + 0.737\*yR6OOH + TRPRXN | 5.00E-16e -530.00/T | 8.4519E-17 | | BT11 | APIN + NO3 ----> 0.056\*xHO2 + 0.643\*xNO2 + 0.007\*xRCO3 + 1.050\*RO2C + 0.293\*RO2XC + 0.293\*zRNO3 + 0.005\*xCO + 0.007\*xHCHO + 0.684\*xRCHO + 0.069\*xACETONE + 0.002\*xMGLY + 0.056\*xRNO3 + yR6OOH | 1.19E-12e 490.00/T | 6.1560E-12 | | BT12 | APIN + O3P ----> PRD2 + TRPRXN | 3.2000E-11 | 3.2000E-11 | | BE10 | ACETYLENE + OH ----> 0.300\*HO2 + 0.700\*OH + 0.300\*CO + 0.300\*HCOOH + 0.700\*GLY | ko= 5.50E-30e 0.0/T(T/300) 0.00
ki = 8.30E-13e 0.0/T(T/300) -2.00
n= 1.00;F= 0.60 | 7.6556E-13 | | BE11 | ACETYLENE + O3 ----> 1.500\*HO2 + 0.500\*OH + 1.500\*CO + 0.500\*CO2 | 1.00E-14e -4100.00/T | 1.0661E-20 | | BE12 | BENZENE + OH ----> 0.570\*HO2 + 0.290\*xHO2 + 0.116\*OH + 0.290\*RO2C + 0.024\*RO2XC + 0.024\*zRNO3 + 0.290\*xGLY + 0.570\*CRES + 0.029\*xAFG1 + 0.261\*xAFG2 + 0.116\*AFG3 + 0.314\*yRAOOH + BENZRO2 | 2.33E-12e -193.00/T | 1.2196E-12 | | BT13 | TOLUENE + OH ----> 0.181\*HO2 + 0.454\*xHO2 + 0.312\*OH + 0.454\*RO2C + 0.054\*RO2XC + 0.054\*zRNO3 + 0.238\*xGLY + 0.151\*xMGLY + 0.181\*CRES + 0.065\*xBALD + 0.195\*xAFG1 + 0.195\*xAFG2 + 0.312\*AFG3 + 0.073\*yR6OOH + 0.435\*yRAOOH + TOLRO2 | 1.81E-12e 338.00/T | 5.6237E-12 | | BT14 | MXYL + OH ----> 0.159\*HO2 + 0.520\*xHO2 + 0.239\*OH + 0.520\*RO2C + 0.082\*RO2XC + 0.082\*zRNO3 + 0.100\*xGLY + 0.380\*xMGLY + 0.159\*CRES + 0.041\*xBALD + 0.336\*xAFG1 + 0.144\*xAFG2 + 0.239\*AFG3 + 0.047\*yR6OOH + 0.555\*yRAOOH + XYLRO2 | 2.3100E-11 | 2.3100E-11 | | BT15 | OXYL + OH ----> 0.161\*HO2 + 0.554\*xHO2 + 0.198\*OH + 0.554\*RO2C + 0.087\*RO2XC + 0.087\*zRNO3 + 0.084\*xGLY + 0.238\*xMGLY + 0.185\*xBACL + 0.161\*CRES + 0.047\*xBALD + 0.253\*xAFG1 + 0.253\*xAFG2 + 0.198\*AFG3 + 0.055\*yR6OOH + 0.586\*yRAOOH + XYLRO2 | 1.3600E-11 | 1.3600E-11 | | BT16 | PXYL + OH ----> 0.159\*HO2 + 0.487\*xHO2 + 0.278\*OH + 0.487\*RO2C + 0.076\*RO2XC + 0.076\*zRNO3 + 0.286\*xGLY + 0.112\*xMGLY + 0.159\*CRES + 0.088\*xBALD + 0.045\*xAFG1 + 0.067\*xAFG2 + 0.278\*AFG3 + 0.286\*xAFG3 + 0.102\*yR6OOH + 0.461\*yRAOOH + XYLRO2 | 1.4300E-11 | 1.4300E-11 | | BT17 | TMBENZ124 + OH ----> 0.022\*HO2 + 0.627\*xHO2 + 0.230\*OH + 0.627\*RO2C + 0.121\*RO2XC + 0.121\*zRNO3 + 0.074\*xGLY + 0.405\*xMGLY + 0.112\*xBACL + 0.022\*CRES + 0.036\*xBALD + 0.088\*xAFG1 + 0.352\*xAFG2 + 0.230\*AFG3 + 0.151\*xAFG3 + 0.043\*yR6OOH + 0.705\*yRAOOH + XYLRO2 | 3.2500E-11 | 3.2500E-11 | | BT18 | ETOH + OH ----> 0.950\*HO2 + 0.050\*xHO2 + 0.050\*RO2C + 0.081\*xHCHO + 0.950\*CCHO + 0.010\*xHOCCHO + 0.050\*yROOH | 5.49E-13e 530.00/T(T/300) 2.00 | 3.2078E-12 | | BL01 | ALK1 + OH ----> xHO2 + RO2C + xCCHO + yROOH | 1.34E-12e -499.00/T(T/300) 2.00 | 2.4824E-13 | | BL02 | ALK2 + OH ----> 0.965\*xHO2 + 0.965\*RO2C + 0.035\*RO2XC + 0.035\*zRNO3 + 0.261\*xRCHO + 0.704\*xACETONE + yROOH | 1.49E-12e -87.00/T(T/300) 2.00 | 1.0992E-12 | | BL03 | ALK3 + OH ----> 0.695\*xHO2 + 0.236\*xTBUO + 1.253\*RO2C + 0.070\*RO2XC + 0.070\*zRNO3 + 0.026\*xHCHO + 0.445\*xCCHO + 0.122\*xRCHO + 0.024\*xACETONE + 0.332\*xMEK + 0.983\*yROOH + 0.017\*yR6OOH | 1.51E-12e 126.00/T | 2.3042E-12 | | BL04 | ALK4 + OH ----> 0.830\*xHO2 + 0.010\*xMEO2 + 0.011\*xMECO3 + 1.763\*RO2C + 0.149\*RO2XC + 0.149\*zRNO3 + 0.002\*xCO + 0.029\*xHCHO + 0.438\*xCCHO + 0.236\*xRCHO + 0.426\*xACETONE + 0.106\*xMEK + 0.146\*xPROD2 + yR6OOH | 3.75E-12e 44.00/T | 4.3463E-12 | | BL05 | ALK5 + OH ----> 0.647\*xHO2 + 1.605\*RO2C + 0.353\*RO2XC + 0.353\*zRNO3 + 0.040\*xHCHO + 0.106\*xCCHO + 0.209\*xRCHO + 0.071\*xACETONE + 0.086\*xMEK + 0.407\*xPROD2 + yR6OOH | 2.70E-12e 374.00/T | 9.4655E-12 | | AALK | SOAALK + OH ----> OH + 0.006\*SVAVB2 + 0.052\*SVAVB3 + 0.081\*SVAVB4 | 2.70E-12e 374.00/T | 9.4655E-12 | | BL06 | OLE1 + OH ----> 0.871\*xHO2 + 0.001\*xMEO2 + 1.202\*RO2C + 0.128\*RO2XC + 0.128\*zRNO3 + 0.582\*xHCHO + 0.010\*xCCHO + 0.007\*xHOCCHO + 0.666\*xRCHO + 0.007\*xACETONE + 0.036\*xACROLEIN + 0.001\*xMACR + 0.012\*xMVK + 0.009\*xIPRD + 0.168\*xPROD2 + 0.169\*yROOH + 0.831\*yR6OOH | 6.72E-12e 501.00/T | 3.6070E-11 | | BL07 | OLE1 + O3 ----> 0.095\*HO2 + 0.057\*xHO2 + 0.128\*OH + 0.090\*RO2C + 0.005\*RO2XC + 0.005\*zRNO3 + 0.303\*CO + 0.088\*CO2 + 0.500\*HCHO + 0.011\*xCCHO + 0.500\*RCHO + 0.044\*xRCHO + 0.003\*xACETONE + 0.009\*MEK + 0.185\*HCOOH + 0.159\*RCOOH + 0.268\*PRD2 + 0.011\*yROOH + 0.052\*yR6OOH | 3.19E-15e -1701.00/T | 1.0618E-17 | | BL08 | OLE1 + NO3 ----> 0.772\*xHO2 + 1.463\*RO2C + 0.228\*RO2XC + 0.228\*zRNO3 + 0.013\*xCCHO + 0.003\*xRCHO + 0.034\*xACETONE + 0.774\*xRNO3 + 0.169\*yROOH + 0.831\*yR6OOH | 5.37E-13e -1047.00/T | 1.6028E-14 | | BL09 | OLE1 + O3P ----> 0.450\*RCHO + 0.390\*MEK + 0.160\*PRD2 | 1.61E-11e -326.00/T | 5.3947E-12 | | BL10 | OLE2 + OH ----> 0.912\*xHO2 + 0.953\*RO2C + 0.088\*RO2XC + 0.088\*zRNO3 + 0.179\*xHCHO + 0.835\*xCCHO + 0.510\*xRCHO + 0.144\*xACETONE + 0.080\*xMEK + 0.002\*xMVK + 0.012\*xIPRD + 0.023\*xPROD2 + 0.319\*yROOH + 0.681\*yR6OOH | 1.26E-11e 488.00/T | 6.4745E-11 | | BL11 | OLE2 + O3 ----> 0.094\*HO2 + 0.041\*xHO2 + 0.443\*OH + 0.307\*MEO2 + 0.156\*xMECO3 + 0.008\*xRCO3 + 0.212\*RO2C + 0.003\*RO2XC + 0.003\*zRNO3 + 0.299\*CO + 0.161\*CO2 + 0.131\*HCHO + 0.114\*xHCHO + 0.453\*CCHO + 0.071\*xCCHO + 0.333\*RCHO + 0.019\*xRCHO + 0.051\*ACETONE + 0.033\*MEK + 0.001\*xMEK + 0.024\*HCOOH + 0.065\*CCOOH + 0.235\*RCOOH + 0.037\*PRD2 + 0.073\*yROOH + 0.136\*yR6OOH | 8.59E-15e -1255.00/T | 1.2762E-16 | | BL12 | OLE2 + NO3 ----> 0.400\*xHO2 + 0.426\*xNO2 + 0.035\*xMEO2 + 1.193\*RO2C + 0.140\*RO2XC + 0.140\*zRNO3 + 0.072\*xHCHO + 0.579\*xCCHO + 0.163\*xRCHO + 0.116\*xACETONE + 0.002\*xMEK + 0.320\*xRNO3 + 0.319\*yROOH + 0.681\*yR6OOH | 2.31E-13e 382.00/T | 8.3185E-13 | | BL13 | OLE2 + O3P ----> 0.079\*RCHO + 0.751\*MEK + 0.170\*PRD2 | 1.43E-11e 111.00/T | 2.0750E-11 | | BL14 | ARO1 + OH ----> 0.123\*HO2 + 0.566\*xHO2 + 0.202\*OH + 0.566\*RO2C + 0.110\*RO2XC + 0.110\*zRNO3 + 0.158\*xGLY + 0.100\*xMGLY + 0.123\*CRES + 0.072\*xAFG1 + 0.185\*xAFG2 + 0.202\*AFG3 + 0.309\*xPROD2 + 0.369\*yR6OOH + TOLRO2 | 7.8400E-12 | 7.8400E-12 | | BL15a | ARO2MN + OH ----> 0.077\*HO2 + 0.617\*xHO2 + 0.178\*OH + 0.617\*RO2C + 0.128\*RO2XC + 0.128\*zRNO3 + 0.088\*xGLY + 0.312\*xMGLY + 0.134\*xBACL + 0.077\*CRES + 0.026\*xBALD + 0.221\*xAFG1 + 0.247\*xAFG2 + 0.178\*AFG3 + 0.068\*xAFG3 + 0.057\*xPROD2 + 0.101\*yR6OOH + XYLRO2 | 3.0900E-11 | 3.0900E-11 | | BL15b | NAPHTHAL + OH ----> 0.077\*HO2 + 0.617\*xHO2 + 0.178\*OH + 0.617\*RO2C + 0.128\*RO2XC + 0.128\*zRNO3 + 0.088\*xGLY + 0.312\*xMGLY + 0.134\*xBACL + 0.077\*CRES + 0.026\*xBALD + 0.221\*xAFG1 + 0.247\*xAFG2 + 0.178\*AFG3 + 0.068\*xAFG3 + 0.057\*xPROD2 + 0.101\*yR6OOH + PAHRO2 | 3.0900E-11 | 3.0900E-11 | | BL16 | TERP + OH ----> 0.734\*xHO2 + 0.064\*xRCO3 + 1.211\*RO2C + 0.201\*RO2XC + 0.201\*zMTNO3 + 0.001\*xCO + 0.411\*xHCHO + 0.385\*xRCHO + 0.037\*xACETONE + 0.007\*xMEK + 0.003\*xMGLY + 0.009\*xBACL + 0.003\*xMVK + 0.002\*xIPRD + 0.409\*xPROD2 + yR6OOH + TRPRXN | 2.27E-11e 435.00/T | 9.7647E-11 | | BL17 | TERP + O3 ----> 0.078\*HO2 + 0.046\*xHO2 + 0.499\*OH + 0.202\*xMECO3 + 0.059\*xRCO3 + 0.490\*RO2C + 0.121\*RO2XC + 0.121\*zMTNO3 + 0.249\*CO + 0.063\*CO2 + 0.127\*HCHO + 0.033\*xHCHO + 0.208\*xRCHO + 0.057\*xACETONE + 0.002\*MEK + 0.172\*HCOOH + 0.068\*RCOOH + 0.003\*xMGLY + 0.039\*xBACL + 0.002\*xMACR + 0.001\*xIPRD + 0.502\*PRD2 + 0.428\*yR6OOH + TRPRXN | 8.28E-16e -785.00/T | 5.9508E-17 | | BL18 | TERP + NO3 ----> TERPNRO2 | 1.33E-12e 490.00/T | 6.8802E-12 | | BL18a | TERPNRO2 + NO ----> 0.827\*NO2 + 0.688\*MTNO3 + 0.424\*RO2C + 0.227\*HO2 + 0.026\*RCO3 + 0.012\*CO + 0.023\*HCHO + 0.002\*HOCCHO + 0.403\*RCHO + 0.239\*ACETONE + 0.005\*MACR + 0.001\*MVK + 0.004\*IPRD | BR07 | 9.3002E-127| | BL18b | TERPNRO2 + HO2 ----> MTNO3 | 2.65E-13e 1300.00/T | 2.0743E-11 | | BL18c | TERPNRO2 + NO3 ----> 1.531\*NO2 + 0.422\*MTNO3 + 0.786\*RO2C + 0.420\*HO2 + 0.048\*RCO3 + 0.022\*CO + 0.043\*HCHO + 0.004\*HOCCHO + 0.746\*RCHO + 0.443\*ACETONE + 0.009\*MACR + 0.002\*MVK + 0.007\*IPRD | BR09 | 2.3000E-127| | BL18d | TERPNRO2 + MEO2 ----> 0.266\*NO2 + 0.711\*MTNO3 + 0.393\*RO2C + 0.710\*HO2 + 0.024\*RCO3 + 0.011\*CO + 0.772\*HCHO + 0.002\*HOCCHO + 0.373\*RCHO + 0.222\*ACETONE + 0.005\*MACR + 0.001\*MVK + 0.004\*IPRD + 0.250\*MEOH | BR10 | 2.0000E-137| | BL18e | TERPNRO2 + RO2C ----> 0.266\*NO2 + 0.711\*MTNO3 + 0.393\*RO2C + 0.210\*HO2 + 0.024\*RCO3 + 0.011\*CO + 0.022\*HCHO + 0.002\*HOCCHO + 0.373\*RCHO + 0.222\*ACETONE + 0.005\*MACR + 0.001\*MVK + 0.004\*IPRD | BR11 | 3.5000E-147| | BL18f | TERPNRO2 + RO2XC ----> 0.266\*NO2 + 0.711\*MTNO3 + 0.393\*RO2C + 0.210\*HO2 + 0.024\*RCO3 + 0.011\*CO + 0.022\*HCHO + 0.002\*HOCCHO + 0.373\*RCHO + 0.222\*ACETONE + 0.005\*MACR + 0.001\*MVK + 0.004\*IPRD | BR11 | 3.5000E-147| | BL18g | TERPNRO2 + MECO3 ----> 0.531\*NO2 + 0.422\*MTNO3 + 0.786\*RO2C + 0.420\*HO2 + 0.048\*RCO3 + 0.022\*CO + 0.043\*HCHO + 0.004\*HOCCHO + 0.746\*RCHO + 0.443\*ACETONE + 0.009\*MACR + 0.002\*MVK + 0.007\*IPRD + MEO2 + CO2 | BR25 | 1.5924E-117| | BL18h | TERPNRO2 + RCO3 ----> 0.531\*NO2 + 0.422\*MTNO3 + 1.786\*RO2C + 0.420\*HO2 + 0.048\*RCO3 + 0.022\*CO + 0.043\*HCHO + 0.004\*HOCCHO + 0.746\*RCHO + 0.443\*ACETONE + 0.009\*MACR + 0.002\*MVK + 0.007\*IPRD + CO2 + xHO2 + xCCHO + yROOH | BR25 | 1.5924E-117| | BL18i | TERPNRO2 + BZCO3 ----> 0.531\*NO2 + 0.422\*MTNO3 + 1.786\*RO2C + 0.420\*HO2 + 0.048\*RCO3 + 0.022\*CO + 0.043\*HCHO + 0.004\*HOCCHO + 0.746\*RCHO + 0.443\*ACETONE + 0.009\*MACR + 0.002\*MVK + 0.007\*IPRD + CO2 + BZO | BR25 | 1.5924E-117| | BL19j | TERPNRO2 + MACO3 ----> CO2 + 1.043\*HCHO + MECO3 + 0.786\*RO2C + 0.420\*HO2 + 0.531\*NO2 + 0.048\*RCO3 + 0.022\*CO + 0.004\*HOCCHO + 0.746\*RCHO + 0.443\*ACETONE + 0.009\*MACR + 0.002\*MVK + 0.007\*IPRD + 0.422\*MTNO3 | BR25 | 1.5924E-117| | BL19k | TERPNRO2 + IMACO3 ----> CO2 + 1.043\*HCHO + MECO3 + 0.786\*RO2C + 0.420\*HO2 + 0.531\*NO2 + 0.048\*RCO3 + 0.022\*CO + 0.004\*HOCCHO + 0.746\*RCHO + 0.443\*ACETONE + 0.009\*MACR + 0.002\*MVK + 0.007\*IPRD + 0.422\*MTNO3 | BR25 | 1.5924E-117| | BL19 | TERP + O3P ----> 0.237\*RCHO + 0.763\*PRD2 + TRPRXN | 4.0200E-11 | 4.0200E-11 | | BT19 | SESQ + OH ----> 0.734\*xHO2 + 0.064\*xRCO3 + 1.211\*RO2C + 0.201\*RO2XC + 0.201\*zRNO3 + 0.001\*xCO + 0.411\*xHCHO + 0.385\*xRCHO + 0.037\*xACETONE + 0.007\*xMEK + 0.003\*xMGLY + 0.009\*xBACL + 0.003\*xMVK + 0.002\*xIPRD + 0.409\*xPROD2 + yR6OOH + SESQRXN | BL16 | 9.7647E-117| | BT20 | SESQ + O3 ----> 0.078\*HO2 + 0.046\*xHO2 + 0.499\*OH + 0.202\*xMECO3 + 0.059\*xRCO3 + 0.490\*RO2C + 0.121\*RO2XC + 0.121\*zRNO3 + 0.249\*CO + 0.063\*CO2 + 0.127\*HCHO + 0.033\*xHCHO + 0.208\*xRCHO + 0.057\*xACETONE + 0.002\*MEK + 0.172\*HCOOH + 0.068\*RCOOH + 0.003\*xMGLY + 0.039\*xBACL + 0.002\*xMACR + 0.001\*xIPRD + 0.502\*PRD2 + 0.428\*yR6OOH + SESQRXN | BL17 | 5.9508E-177| | BT21 | SESQ + NO3 ----> 0.227\*xHO2 + 0.287\*xNO2 + 0.026\*xRCO3 + 1.786\*RO2C + 0.460\*RO2XC + 0.460\*zRNO3 + 0.012\*xCO + 0.023\*xHCHO + 0.002\*xCCHO + 0.403\*xRCHO + 0.239\*xACETONE + 0.005\*xMACR + 0.001\*xMVK + 0.004\*xIPRD + 0.228\*xRNO3 + yR6OOH + SESQRXN | BL18 | 6.8802E-127| | BT22 | SESQ + O3P ----> 0.237\*RCHO + 0.763\*PRD2 + SESQRXN | BL19 | 4.0200E-117| | CI01 | CL2 ----> 2.000\*CL | CL2 | Not Available1 | | CI02 | CL + NO + M ----> CLNO | 7.60E-32(T/300) -1.80 | 7.6851E-32 | | CI03 | CLNO ----> CL + NO | CLNO_06 | Not Available1 | | CI04 | CL + NO2 ----> CLONO | ko= 1.30E-30e 0.0/T(T/300) -2.00
ki = 1.00E-10e 0.0/T(T/300) -1.00
n= 1.00;F= 0.60 | 1.6244E-11 | | CI05 | CL + NO2 ----> CLNO2 | ko= 1.80E-31e 0.0/T(T/300) -2.00
ki = 1.00E-10e 0.0/T(T/300) -1.00
n= 1.00;F= 0.60 | 3.5840E-12 | | CI06 | CLONO ----> CL + NO2 | CLONO | Not Available1 | | CI07 | CLNO2 ----> CL + NO2 | CLNO2 | Not Available1 | | CI08 | CL + HO2 ----> HCL | 3.44E-11(T/300) -0.56 | 3.4519E-11 | | CI09 | CL + HO2 ----> CLO + OH | 9.41E-12(T/300) 2.10 | 9.2886E-12 | | CI10 | CL + O3 ----> CLO | 2.80E-11e -250.00/T | 1.2106E-11 | | CI11 | CL + NO3 ----> CLO + NO2 | 2.4000E-11 | 2.4000E-11 | | CI12 | CLO + NO ----> CL + NO2 | 6.20E-12e 295.00/T | 1.6676E-11 | | CI13 | CLO + NO2 ----> CLONO2 | ko= 1.80E-31e 0.0/T(T/300) -3.40
ki = 1.50E-11e 0.0/T(T/300) -1.90
n= 1.00;F= 0.60 | 2.3359E-12 | | CI14 | CLONO2 ----> CLO + NO2 | CLONO2_1 | Not Available1 | | CI15 | CLONO2 ----> CL + NO3 | CLONO2_2 | Not Available1 | | CI16 | CLONO2 ----> CLO + NO2 | ko= 4.48E-05e-12530.0/T(T/300) -1.00
ki = 3.71E+15e-12530.0/T(T/300) 3.50
n= 1.00;F= 0.60 | 3.1797E-04 | | CI17 | CL + CLONO2 ----> CL2 + NO3 | 6.20E-12e 145.00/T | 1.0083E-11 | | CI18 | CLO + HO2 ----> HOCL | 2.20E-12e 340.00/T | 6.8814E-12 | | CI19 | HOCL ----> OH + CL | HOCL_06 | Not Available1 | | CI20 | CLO + CLO ----> 0.290\*CL2 + 1.420\*CL | 1.25E-11e -1960.00/T | 1.7455E-14 | | CI21 | OH + HCL ----> CL | 1.70E-12e -230.00/T | 7.8600E-13 | | CI22 | CL + H2 ----> HCL + HO2 | 3.90E-11e -2310.00/T | 1.6836E-14 | | CP01 | HCHO + CL ----> HCL + HO2 + CO | 8.10E-11e -30.00/T | 7.3246E-11 | | CP02 | CCHO + CL ----> HCL + MECO3 | 8.0000E-11 | 8.0000E-11 | | CP03 | MEOH + CL ----> HCL + HCHO + HO2 | 5.5000E-11 | 5.5000E-11 | | CP04 | RCHO + CL ----> HCL + 0.900\*RCO3 + 0.100\*RO2C + 0.100\*xCCHO + 0.100\*xCO + 0.100\*xHO2 + 0.100\*yROOH | 1.2300E-10 | 1.2300E-10 | | CP05 | ACETONE + CL ----> HCL + RO2C + xHCHO + xMECO3 + yROOH | 7.70E-11e -1000.00/T | 2.6907E-12 | | CP06 | MEK + CL ----> HCL + 0.975\*RO2C + 0.039\*RO2XC + 0.039\*zRNO3 + 0.840\*xHO2 + 0.085\*xMECO3 + 0.036\*xRCO3 + 0.065\*xHCHO + 0.070\*xCCHO + 0.840\*xRCHO + yROOH | 3.6000E-11 | 3.6000E-11 | | CP07 | RNO3 + CL ----> HCL + 0.038\*NO2 + 0.055\*HO2 + 1.282\*RO2C + 0.202\*RO2XC + 0.202\*zRNO3 + 0.009\*RCHO + 0.018\*MEK + 0.012\*PRD2 + 0.055\*RNO3 + 0.159\*xNO2 + 0.547\*xHO2 + 0.045\*xHCHO + 0.300\*xCCHO + 0.020\*xRCHO + 0.003\*xACETONE + 0.041\*xMEK + 0.046\*xPROD2 + 0.547\*xRNO3 + 0.908\*yR6OOH | 1.9200E-10 | 1.9200E-10 | | CP08 | PRD2 + CL ----> HCL + 0.314\*HO2 + 0.680\*RO2C + 0.116\*RO2XC + 0.116\*zRNO3 + 0.198\*RCHO + 0.116\*PRD2 + 0.541\*xHO2 + 0.007\*xMECO3 + 0.022\*xRCO3 + 0.237\*xHCHO + 0.109\*xCCHO + 0.591\*xRCHO + 0.051\*xMEK + 0.040\*xPROD2 + 0.686\*yR6OOH | 2.0000E-10 | 2.0000E-10 | | CP09 | GLY + CL ----> HCL + 0.630\*HO2 + 1.260\*CO + 0.370\*RCO3 | 8.10E-11e -30.00/T | 7.3246E-11 | | CP10 | MGLY + CL ----> HCL + CO + MECO3 | 8.0000E-11 | 8.0000E-11 | | CP11 | CRES + CL ----> HCL + xHO2 + xBALD + yR6OOH | 6.2000E-11 | 6.2000E-11 | | CP12 | BALD + CL ----> HCL + BZCO3 | 8.0000E-11 | 8.0000E-11 | | CP13 | ROOH + CL ----> HCL + 0.414\*OH + 0.588\*RO2C + 0.414\*RCHO + 0.104\*xOH + 0.482\*xHO2 + 0.106\*xHCHO + 0.104\*xCCHO + 0.197\*xRCHO + 0.285\*xMEK + 0.586\*yROOH | 1.6600E-10 | 1.6600E-10 | | CP14 | R6OOH + CL ----> HCL + 0.145\*OH + 1.078\*RO2C + 0.117\*RO2XC + 0.117\*zRNO3 + 0.145\*PRD2 + 0.502\*xOH + 0.237\*xHO2 + 0.186\*xCCHO + 0.676\*xRCHO + 0.280\*xPROD2 + 0.855\*yR6OOH | 3.0000E-10 | 3.0000E-10 | | CP15 | RAOOH + CL ----> 0.404\*HCL + 0.139\*OH + 0.148\*HO2 + 0.589\*RO2C + 0.124\*RO2XC + 0.124\*zRNO3 + 0.074\*PRD2 + 0.147\*MGLY + 0.139\*IPRD + 0.565\*xHO2 + 0.024\*xOH + 0.448\*xRCHO + 0.026\*xGLY + 0.030\*xMEK + 0.252\*xMGLY + 0.073\*xAFG1 + 0.073\*xAFG2 + 0.713\*yR6OOH | 4.2900E-10 | 4.2900E-10 | | TP01 | ACROLEIN + CL ----> 0.484\*xHO2 + 0.274\*xCL + 0.216\*MACO3 + 1.032\*RO2C + 0.026\*RO2XC + 0.026\*zRNO3 + 0.216\*HCL + 0.484\*xCO + 0.274\*xHCHO + 0.274\*xGLY + 0.484\*xCLCCHO + 0.784\*yROOH | 2.9400E-10 | 2.9400E-10 | | CP17 | MVK + CL ----> 1.283\*RO2C + 0.053\*RO2XC + 0.053\*zRNO3 + 0.322\*xHO2 + 0.625\*xMECO3 + 0.947\*xCLCCHO + yROOH | 2.3200E-10 | 2.3200E-10 | | CP18 | IPRD + CL ----> 0.401\*HCL + 0.084\*HO2 + 0.154\*MACO3 + 0.730\*RO2C + 0.051\*RO2XC + 0.051\*zRNO3 + 0.042\*AFG1 + 0.042\*AFG2 + 0.712\*xHO2 + 0.498\*xCO + 0.195\*xHCHO + 0.017\*xMGLY + 0.009\*xAFG1 + 0.009\*xAFG2 + 0.115\*xIPRD + 0.140\*xCLCCHO + 0.420\*xCLACET + 0.762\*yR6OOH | 4.1200E-10 | 4.1200E-10 | | CP19 | CLCCHO ----> HO2 + CO + RO2C + xCL + xHCHO + yROOH | CLCCHO | Not Available1 | | CP20 | CLCCHO + OH ----> RCO3 | 3.1000E-12 | 3.1000E-12 | | CP21 | CLCCHO + CL ----> HCL + RCO3 | 1.2900E-11 | 1.2900E-11 | | CP22 | CLACET ----> MECO3 + RO2C + xCL + xHCHO + yROOH | 5.0000E-01\*CLACET | Not Available1 | | CP29 | xCL + NO ----> NO + CL | BR07 | 9.3002E-127| | CP30 | xCL + HO2 ----> HO2 | BR08 | 7.7759E-127| | CP31 | xCL + NO3 ----> NO3 + CL | BR09 | 2.3000E-127| | CP32 | xCL + MEO2 ----> MEO2 + 0.500\*CL | BR10 | 2.0000E-137| | CP33 | xCL + RO2C ----> RO2C + 0.500\*CL | BR11 | 3.5000E-147| | CP34 | xCL + RO2XC ----> RO2XC + 0.500\*CL | BR11 | 3.5000E-147| | CP35 | xCL + MECO3 ----> MECO3 + CL | BR25 | 1.5924E-117| | CP36 | xCL + RCO3 ----> RCO3 + CL | BR25 | 1.5924E-117| | CP37 | xCL + BZCO3 ----> BZCO3 + CL | BR25 | 1.5924E-117| | CP38 | xCL + MACO3 ----> MACO3 + CL | BR25 | 1.5924E-117| | CP39 | xCLCCHO + NO ----> NO + CLCCHO | BR07 | 9.3002E-127| | CP40 | xCLCCHO + HO2 ----> HO2 | BR08 | 7.7759E-127| | CP41 | xCLCCHO + NO3 ----> NO3 + CLCCHO | BR09 | 2.3000E-127| | CP42 | xCLCCHO + MEO2 ----> MEO2 + 0.500\*CLCCHO | BR10 | 2.0000E-137| | CP43 | xCLCCHO + RO2C ----> RO2C + 0.500\*CLCCHO | BR11 | 3.5000E-147| | CP44 | xCLCCHO + RO2XC ----> RO2XC + 0.500\*CLCCHO | BR11 | 3.5000E-147| | CP45 | xCLCCHO + MECO3 ----> MECO3 + CLCCHO | BR25 | 1.5924E-117| | CP46 | xCLCCHO + RCO3 ----> RCO3 + CLCCHO | BR25 | 1.5924E-117| | CP47 | xCLCCHO + BZCO3 ----> BZCO3 + CLCCHO | BR25 | 1.5924E-117| | CP48 | xCLCCHO + MACO3 ----> MACO3 + CLCCHO | BR25 | 1.5924E-117| | CP49 | xCLACET + NO ----> NO + CLACET | BR07 | 9.3002E-127| | CP50 | xCLACET + HO2 ----> HO2 | BR08 | 7.7759E-127| | CP51 | xCLACET + NO3 ----> NO3 + CLACET | BR09 | 2.3000E-127| | CP52 | xCLACET + MEO2 ----> MEO2 + 0.500\*CLACET | BR10 | 2.0000E-137| | CP53 | xCLACET + RO2C ----> RO2C + 0.500\*CLACET | BR11 | 3.5000E-147| | CP54 | xCLACET + RO2XC ----> RO2XC + 0.500\*CLACET | BR11 | 3.5000E-147| | CP55 | xCLACET + MECO3 ----> MECO3 + CLACET | BR25 | 1.5924E-117| | CP56 | xCLACET + RCO3 ----> RCO3 + CLACET | BR25 | 1.5924E-117| | CP57 | xCLACET + BZCO3 ----> BZCO3 + CLACET | BR25 | 1.5924E-117| | CP58 | xCLACET + MACO3 ----> MACO3 + CLACET | BR25 | 1.5924E-117| | CE01 | CL + CH4 ----> HCL + MEO2 | 7.30E-12e -1280.00/T | 9.9732E-14 | | CE02 | ETHENE + CL ----> xHO2 + 2.000\*RO2C + xHCHO + CLCHO | ko= 1.60E-29e 0.0/T(T/300) -3.30
ki = 3.10E-10e 0.0/T(T/300) -1.00
n= 1.00;F= 0.60 | 1.0603E-10 | | TE01 | PROPENE + CL ----> 0.124\*HCL + 0.971\*xHO2 + 0.971\*RO2C + 0.029\*RO2XC + 0.029\*zRNO3 + 0.124\*xACROLEIN + 0.306\*xCLCCHO + 0.540\*xCLACET + yROOH | 2.6700E-10 | 2.6700E-10 | | TE02 | BUTADIENE13 + CL ----> 0.390\*xHO2 + 0.541\*xCL + 1.884\*RO2C + 0.069\*RO2XC + 0.069\*zRNO3 + 0.863\*xHCHO + 0.457\*xACROLEIN + 0.473\*xIPRD + yROOH | 4.9000E-10 | 4.9000E-10 | | CE03 | ISOPRENE + CL ----> 0.150\*HCL + 0.738\*xHO2 + 0.177\*xCL + 1.168\*RO2C + 0.085\*RO2XC + 0.085\*zRNO3 + 0.275\*xHCHO + 0.177\*xMVK + 0.671\*xIPRD + 0.067\*xCLCCHO + yR6OOH | 4.8000E-10 | 4.8000E-10 | | TE03 | APIN + CL ----> 0.548\*HCL + 0.252\*xHO2 + 0.068\*xCL + 0.034\*xMECO3 + 0.050\*xRCO3 + 0.016\*xMACO3 + 2.258\*RO2C + 0.582\*RO2XC + 0.582\*zRNO3 + 0.035\*xCO + 0.158\*xHCHO + 0.185\*xRCHO + 0.274\*xACETONE + 0.007\*xGLY + 0.003\*xBACL + 0.003\*xMVK + 0.158\*xIPRD + 0.006\*xAFG1 + 0.006\*xAFG2 + 0.001\*xAFG3 + 0.109\*xCLCCHO + yR6OOH | 5.4600E-10 | 5.4600E-10 | | CE04 | ACETYLENE + CL ----> HO2 + CO | ko= 5.20E-30e 0.0/T(T/300) -2.40
ki = 2.20E-10e 0.0/T(T/300) 0.00
n= 1.00;F= 0.60 | 5.0269E-11 | | TE04 | TOLUENE + CL ----> 0.894\*xHO2 + 0.894\*RO2C + 0.106\*RO2XC + 0.106\*zRNO3 + 0.894\*xBALD | 6.2000E-11 | 6.2000E-11 | | TE05 | MXYL + CL ----> 0.864\*xHO2 + 0.864\*RO2C + 0.136\*RO2XC + 0.136\*zRNO3 + 0.864\*xBALD | 1.3500E-10 | 1.3500E-10 | | TE06 | OXYL + CL ----> 0.864\*xHO2 + 0.864\*RO2C + 0.136\*RO2XC + 0.136\*zRNO3 + 0.864\*xBALD | 1.4000E-10 | 1.4000E-10 | | TE07 | PXYL + CL ----> 0.864\*xHO2 + 0.864\*RO2C + 0.136\*RO2XC + 0.136\*zRNO3 + 0.864\*xBALD | 1.4400E-10 | 1.4400E-10 | | TE08 | TMBENZ124 + CL ----> 0.838\*xHO2 + 0.838\*RO2C + 0.162\*RO2XC + 0.162\*zRNO3 + 0.838\*xBALD | 2.4200E-10 | 2.4200E-10 | | TE09 | ETOH + CL ----> HCL + 0.688\*HO2 + 0.312\*xHO2 + 0.312\*RO2C + 0.503\*xHCHO + 0.688\*CCHO + 0.061\*xHOCCHO + 0.312\*yROOH | 8.60E-11e 45.00/T | 1.0001E-10 | | BC01 | ALK1 + CL ----> HCL + xHO2 + RO2C + xCCHO + yROOH | 8.30E-11e -100.00/T | 5.9349E-11 | | BC02 | ALK2 + CL ----> HCL + 0.970\*xHO2 + 0.970\*RO2C + 0.030\*RO2XC + 0.030\*zRNO3 + 0.482\*xRCHO + 0.488\*xACETONE + yROOH | 1.20E-10e 40.00/T | 1.3723E-10 | | BC03 | ALK3 + CL ----> HCL + 0.835\*xHO2 + 0.094\*xTBUO + 1.361\*RO2C + 0.070\*RO2XC + 0.070\*zRNO3 + 0.078\*xHCHO + 0.340\*xCCHO + 0.343\*xRCHO + 0.075\*xACETONE + 0.253\*xMEK + 0.983\*yROOH + 0.017\*yR6OOH | 1.8600E-10 | 1.8600E-10 | | BC04 | ALK4 + CL ----> HCL + 0.827\*xHO2 + 0.003\*xMEO2 + 0.004\*xMECO3 + 1.737\*RO2C + 0.165\*RO2XC + 0.165\*zRNO3 + 0.003\*xCO + 0.034\*xHCHO + 0.287\*xCCHO + 0.412\*xRCHO + 0.247\*xACETONE + 0.076\*xMEK + 0.130\*xPROD2 + yR6OOH | 2.6300E-10 | 2.6300E-10 | | BC05 | ALK5 + CL ----> HCL + 0.647\*xHO2 + 1.541\*RO2C + 0.352\*RO2XC + 0.352\*zRNO3 + 0.022\*xHCHO + 0.080\*xCCHO + 0.258\*xRCHO + 0.044\*xACETONE + 0.041\*xMEK + 0.378\*xPROD2 + yR6OOH | 4.2100E-10 | 4.2100E-10 | | BC06 | OLE1 + CL ----> 0.384\*HCL + 0.873\*xHO2 + 1.608\*RO2C + 0.127\*RO2XC + 0.127\*zRNO3 + 0.036\*xHCHO + 0.206\*xCCHO + 0.072\*xRCHO + 0.215\*xACROLEIN + 0.019\*xMVK + 0.038\*xIPRD + 0.192\*xCLCCHO + 0.337\*xCLACET + 0.169\*yROOH + 0.831\*yR6OOH | 3.9200E-10 | 3.9200E-10 | | BC07 | OLE2 + CL ----> 0.279\*HCL + 0.450\*xHO2 + 0.442\*xCL + 0.001\*xMEO2 + 1.492\*RO2C + 0.106\*RO2XC + 0.106\*zRNO3 + 0.190\*xHCHO + 0.383\*xCCHO + 0.317\*xRCHO + 0.086\*xACETONE + 0.042\*xMEK + 0.025\*xMACR + 0.058\*xMVK + 0.161\*xIPRD + 0.013\*xCLCCHO + 0.191\*xCLACET + 0.319\*yROOH + 0.681\*yR6OOH | 3.7700E-10 | 3.7700E-10 | | BC08 | ARO1 + CL ----> 0.840\*xHO2 + 0.840\*RO2C + 0.160\*RO2XC + 0.160\*zRNO3 + 0.840\*xPROD2 | 2.1600E-10 | 2.1600E-10 | | BC09a | ARO2MN + CL ----> 0.828\*xHO2 + 0.828\*RO2C + 0.172\*RO2XC + 0.172\*zRNO3 + 0.469\*xBALD + 0.359\*xPROD2 | 2.6600E-10 | 2.6600E-10 | | BC09b | NAPHTHAL + CL ----> 0.828\*xHO2 + 0.828\*RO2C + 0.172\*RO2XC + 0.172\*zRNO3 + 0.469\*xBALD + 0.359\*xPROD2 | 2.6600E-10 | 2.6600E-10 | | BC10 | TERP + CL ----> 0.548\*HCL + 0.252\*xHO2 + 0.068\*xCL + 0.034\*xMECO3 + 0.050\*xRCO3 + 0.016\*xMACO3 + 2.258\*RO2C + 0.582\*RO2XC + 0.582\*zRNO3 + 0.035\*xCO + 0.158\*xHCHO + 0.185\*xRCHO + 0.274\*xACETONE + 0.007\*xGLY + 0.003\*xBACL + 0.003\*xMVK + 0.158\*xIPRD + 0.006\*xAFG1 + 0.006\*xAFG2 + 0.001\*xAFG3 + 0.109\*xCLCCHO + yR6OOH | 5.4600E-10 | 5.4600E-10 | | BC11 | SESQ + CL ----> 0.252\*xHO2 + 0.068\*xCL + 0.034\*xMECO3 + 0.050\*xRCO3 + 0.016\*xMACO3 + 2.258\*RO2C + 0.582\*RO2XC + 0.582\*zRNO3 + 0.548\*HCL + 0.035\*xCO + 0.158\*xHCHO + 0.185\*xRCHO + 0.274\*xACETONE + 0.007\*xGLY + 0.003\*xBACL + 0.003\*xMVK + 0.158\*xIPRD + 0.006\*xAFG1 + 0.006\*xAFG2 + 0.001\*xAFG3 + 0.109\*xCLCCHO + yR6OOH | BC10 | 5.4600E-107| | AE51 | BENZRO2 + NO ----> NO + 0.034\*SVAVB2 + 0.392\*SVAVB4 | BR07 | 9.3002E-127| | AE52 | BENZRO2 + HO2 ----> HO2 + 0.146\*SVAVB1 | BR08 | 7.7759E-127| | AE53 | XYLRO2 + NO ----> NO + 0.015\*SVAVB2 + 0.023\*SVAVB3 + 0.060\*SVAVB4 | BR07 | 9.3002E-127| | AE54 | XYLRO2 + HO2 ----> HO2 + 0.193\*SVAVB1 | BR08 | 7.7759E-127| | AE55 | TOLRO2 + NO ----> NO + 0.016\*SVAVB2 + 0.051\*SVAVB3 + 0.047\*SVAVB4 | BR07 | 9.3002E-127| | AE56 | TOLRO2 + HO2 ----> HO2 + 0.140\*SVAVB1 | BR08 | 7.7759E-127| | AE57 | PAHRO2 + NO ----> NO + 0.028\*SVAVB2 + 0.225\*SVAVB3 + 0.191\*SVAVB4 | BR07 | 9.3002E-127| | AE58 | PAHRO2 + HO2 ----> HO2 + 0.473\*SVAVB1 | BR08 | 7.7759E-127| | TR01 | HCHO_PRIMARY ----> | HCHOR_06 | Not Available1 | | TR02 | HCHO_PRIMARY ----> | HCHOM_06 | Not Available1 | | TR03 | HCHO_PRIMARY + OH ----> OH | 5.40E-12e 135.00/T | 8.4926E-12 | | TR05 | HCHO_PRIMARY + NO3 ----> NO3 | 2.00E-12e -2431.00/T | 5.7539E-16 | | TR06 | HCHO_PRIMARY + CL ----> CL | 8.10E-11e -30.00/T | 7.3246E-11 | | TR07 | CCHO_PRIMARY + OH ----> OH | 4.40E-12e 365.00/T | 1.4967E-11 | | TR08 | CCHO_PRIMARY ----> | CCHO_R | Not Available1 | | TR09 | CCHO_PRIMARY + NO3 ----> NO3 | 1.40E-12e -1860.00/T | 2.7340E-15 | | TR10 | CCHO_PRIMARY + CL ----> CL | 8.0000E-11 | 8.0000E-11 | | TR11 | ACRO_PRIMARY + OH ----> OH | 1.9900E-11 | 1.9900E-11 | | TR12 | ACRO_PRIMARY + O3 ----> O3 | 1.40E-15e -2528.00/T | 2.9091E-19 | | TR13 | ACRO_PRIMARY + NO3 ----> NO3 | 1.1800E-15 | 1.1800E-15 | | TR14 | ACRO_PRIMARY + O3P ----> O3P | 2.3700E-12 | 2.3700E-12 | | TR15 | ACRO_PRIMARY ----> | ACRO_09 | Not Available1 | | TR16 | ACRO_PRIMARY + CL ----> CL | 2.9400E-10 | 2.9400E-10 | | IS1 | ISOPRENE + OH ----> ISOPO2 + ISOPRXN | 2.54E-11e 410.00/T | 1.0047E-10 | | IS2 | ISOPO2 + NO ----> 0.400\*MVK + 0.260\*MACR + 0.883\*NO2 + 0.070\*ISOPND + 0.047\*ISOPNB + 0.660\*HCHO + 0.100\*HC5 + 0.043\*ARO2MN + 0.080\*DIBOO + 0.803\*HO2 | 2.60E-12e 380.00/T | 9.3002E-12 | | IS3 | ISOPO2 + HO2 ----> 0.880\*ISOPOOH + 0.120\*OH + 0.047\*MACR + 0.073\*MVK + 0.120\*HO2 + 0.120\*HCHO | 2.06E-13e 1300.00/T | 1.6125E-11 | | IS4 | ISOPO2 + MEO2 ----> 0.950\*HO2 + 1.120\*HCHO + 0.230\*MVK + 0.150\*MACR + 0.050\*DIBOO + 0.060\*HC5 + 0.020\*ARO2MN + 0.500\*PRD2 + 0.250\*MEOH | 1.8000E-12 | 1.8000E-12 | | IS5 | ISOPO2 + RO2C ----> 0.450\*HO2 + 0.370\*HCHO + 0.230\*MVK + 0.150\*MACR + 0.050\*DIBOO + 0.060\*HC5 + 0.020\*ARO2MN + 0.500\*PRD2 | 6.8000E-13 | 6.8000E-13 | | IS6 | ISOPO2 + ISOPO2 ----> 0.910\*HO2 + 0.750\*HCHO + 0.450\*MVK + 0.290\*MACR + 0.090\*DIBOO + 0.110\*HC5 + 0.050\*ARO2MN + PRD2 | 2.3000E-12 | 2.3000E-12 | | IS7 | ISOPO2 + MECO3 ----> MEO2 + CO2 + 0.910\*HO2 + 0.750\*HCHO + 0.450\*MVK + 0.290\*MACR + 0.090\*DIBOO + 0.110\*HC5 + 0.050\*ARO2MN | 4.40E-13e 1070.00/T | 1.5924E-11 | | IS107 | ISOPO2 ----> HO2 + HPALD | 4.07E+08e -7694.00/T | 2.5251E-03 | | IS137 | HPALD ----> OH + HO2 + 0.500\*HACET + 0.500\*MGLY + 0.250\*HOCCHO + 0.250\*GLY + HCHO | HPALD | Not Available1 | | IS138 | HPALD + OH ----> OH + PRD2 | 4.6000E-11 | 4.6000E-11 | | IS9 | ISOPRENE + NO3 ----> NISOPO2 | 3.03E-12e -448.00/T | 6.7433E-13 | | IS10 | NISOPO2 + NO3 ----> 0.700\*NIT1 + 0.035\*MVK + 0.035\*MACR + 1.300\*NO2 + 0.800\*HO2 + 0.070\*HCHO + 0.230\*HC5 | 2.3000E-12 | 2.3000E-12 | | IS11 | NISOPO2 + NO ----> 0.700\*NIT1 + 0.035\*MVK + 0.035\*MACR + 1.300\*NO2 + 0.800\*HO2 + 0.070\*HCHO + 0.230\*HC5 | 2.60E-12e 380.00/T | 9.3002E-12 | | IS12 | NISOPO2 + HO2 ----> NISOPOOH | 2.06E-13e 1300.00/T | 1.6125E-11 | | IS13 | NISOPO2 + MEO2 ----> 0.600\*NIT1 + 0.018\*MVK + 0.018\*MACR + 0.150\*NO2 + 0.900\*HO2 + 0.785\*HCHO + 0.115\*HC5 + 0.250\*ISOPND + 0.250\*MEOH | 1.3000E-12 | 1.3000E-12 | | IS14 | NISOPO2 + RO2C ----> 0.600\*NIT1 + 0.018\*MVK + 0.018\*MACR + 0.150\*NO2 + 0.400\*HO2 + 0.035\*HCHO + 0.115\*HC5 + 0.250\*ISOPND | 6.0400E-13 | 6.0400E-13 | | IS140 | NISOPO2 + NISOPO2 ----> 1.200\*NIT1 + 0.035\*MVK + 0.035\*MACR + 0.300\*NO2 + 0.800\*HO2 + 0.070\*HCHO + 0.230\*HC5 + 0.500\*ISOPND | 1.2000E-12 | 1.2000E-12 | | IS15 | NISOPO2 + MECO3 ----> MEO2 + CO2 + 0.700\*NIT1 + 0.035\*MVK + 0.035\*MACR + 0.300\*NO2 + 0.800\*HO2 + 0.070\*HCHO + 0.230\*HC5 | 4.40E-13e 1070.00/T | 1.5924E-11 | | IS17 | HC5 + OH ----> HC5OO | 1.42E-11e 610.00/T | 1.0986E-10 | | IS18 | HC5OO + NO ----> NO2 + 0.234\*HOCCHO + 0.234\*MGLY + 0.216\*GLY + 0.216\*HACET + 0.290\*DHMOB + 0.170\*RCOOH + 0.090\*PRD2 + 0.090\*CO + HO2 | 2.60E-12e 380.00/T | 9.3002E-12 | | IS19 | HC5OO + HO2 ----> R6OOH | 2.06E-13e 1300.00/T | 1.6125E-11 | | IS20 | HC5OO + MEO2 ----> 0.117\*HOCCHO + 0.117\*MGLY + 0.108\*GLY + 0.108\*HACET + 0.145\*DHMOB + 0.085\*RCOOH + 0.545\*PRD2 + 0.045\*CO + HO2 + 0.750\*HCHO + 0.250\*MEOH | 2.0000E-13 | 2.0000E-13 | | IS21 | HC5OO + RO2C ----> 0.117\*HOCCHO + 0.117\*MGLY + 0.108\*GLY + 0.108\*HACET + 0.145\*DHMOB + 0.085\*RCOOH + 0.545\*PRD2 + 0.045\*CO + 0.500\*HO2 | 3.5000E-14 | 3.5000E-14 | | IS22 | HC5OO + MECO3 ----> MEO2 + CO2 + 0.234\*HOCCHO + 0.234\*MGLY + 0.216\*GLY + 0.216\*HACET + 0.290\*DHMOB + 0.170\*RCOOH + 0.090\*PRD2 + 0.090\*CO + HO2 | 4.40E-13e 1070.00/T | 1.5924E-11 | | IS24 | HC5 + O3 ----> 0.500\*MGLY + 0.350\*GLY + 0.790\*OH + 0.020\*HCHO + 0.350\*HOCCHO + 0.590\*CO + 0.150\*HACET + 0.130\*RCOOH + 0.080\*CO2 + 0.600\*HO2 + 0.350\*MECO3 | 3.94E-15e -1520.00/T | 2.4067E-17 | | IS25 | ISOPND + OH ----> ISOPNOOD | 1.20E-11e 652.00/T | 1.0688E-10 | | IS26 | ISOPNOOD + NO ----> 0.340\*PRD2 + 0.150\*PROPNN + 0.440\*HACET + 0.070\*MVKN + 0.130\*ETHLN + 0.310\*HCOOH + 0.310\*NO3 + 0.720\*HCHO + 0.150\*HOCCHO + 1.340\*NO2 + 0.350\*HO2 | 2.40E-12e 360.00/T | 8.0278E-12 | | IS141 | ISOPNOOD + HO2 ----> RNO3I | 2.06E-13e 1300.00/T | 1.6125E-11 | | IS142 | ISOPNOOD + MEO2 ----> 0.170\*PRD2 + 0.075\*PROPNN + 0.220\*HACET + 0.035\*MVKN + 0.065\*ETHLN + 0.155\*HCOOH + 0.155\*NO3 + 1.110\*HCHO + 0.075\*HOCCHO + 0.170\*NO2 + 0.675\*HO2 + 0.500\*RNO3I + 0.250\*MEOH | 2.0000E-13 | 2.0000E-13 | | IS143 | ISOPNOOD + RO2C ----> 0.170\*PRD2 + 0.075\*PROPNN + 0.220\*HACET + 0.035\*MVKN + 0.065\*ETHLN + 0.155\*HCOOH + 0.155\*NO3 + 0.360\*HCHO + 0.075\*HOCCHO + 0.170\*NO2 + 0.175\*HO2 + 0.500\*RNO3I | 3.5000E-14 | 3.5000E-14 | | IS144 | ISOPNOOD + MECO3 ----> MEO2 + CO2 + 0.340\*PRD2 + 0.150\*PROPNN + 0.440\*HACET + 0.070\*MVKN + 0.130\*ETHLN + 0.310\*HCOOH + 0.310\*NO3 + 0.720\*HCHO + 0.150\*HOCCHO + 0.340\*NO2 + 0.350\*HO2 | 4.40E-13e 1070.00/T | 1.5924E-11 | | IS27 | ISOPND + O3 ----> 0.360\*ETHLN + 0.290\*PROPNN + 0.700\*MGLY + 0.120\*RCOOH + 0.390\*HO2 + 0.038\*HCHO + 0.029\*CO + 0.730\*OH + 0.017\*CO2 + 0.360\*NO2 + 0.160\*HACET + 0.340\*HOCCHO | 2.9000E-17 | 2.9000E-17 | | IS28 | ISOPNB + OH ----> ISOPNOOB | 2.40E-12e 745.00/T | 2.9201E-11 | | IS29 | ISOPNOOB + NO ----> 0.600\*HOCCHO + 0.600\*HACET + 0.400\*HCHO + 0.400\*HO2 + 0.260\*MACRN + 0.140\*MVKN + 1.600\*NO2 | 2.40E-12e 360.00/T | 8.0278E-12 | | IS145 | ISOPNOOB + HO2 ----> RNO3I | 2.06E-13e 1300.00/T | 1.6125E-11 | | IS146 | ISOPNOOB + MEO2 ----> 0.300\*HOCCHO + 0.300\*HACET + 0.950\*HCHO + 0.700\*HO2 + 0.130\*MACRN + 0.070\*MVKN + 0.300\*NO2 + 0.500\*RNO3I + 0.250\*MEOH | 2.0000E-13 | 2.0000E-13 | | IS147 | ISOPNOOB + RO2C ----> 0.300\*HOCCHO + 0.300\*HACET + 0.200\*HCHO + 0.200\*HO2 + 0.130\*MACRN + 0.070\*MVKN + 0.300\*NO2 + 0.500\*RNO3I | 3.5000E-14 | 3.5000E-14 | | IS148 | ISOPNOOB + MECO3 ----> MEO2 + CO2 + 0.600\*HOCCHO + 0.600\*HACET + 0.400\*HCHO + 0.400\*HO2 + 0.260\*MACRN + 0.140\*MVKN + 0.600\*NO2 | 4.40E-13e 1070.00/T | 1.5924E-11 | | IS30 | ISOPNB + O3 ----> 0.120\*MVKN + 0.320\*MACRN + 0.340\*OH + 0.080\*HO2 + 0.260\*CO + 0.070\*CO2 + 0.160\*HCOOH + 0.560\*HCHO + 0.280\*RNO3I + 0.040\*HACET + 0.280\*NO2 + 0.240\*BACL | 3.7000E-19 | 3.7000E-19 | | IS31 | NIT1 + NO3 ----> 0.600\*NIT1NO3OOA + 0.600\*HNO3 + 0.400\*NIT1NO3OOB | 3.15E-13e -448.00/T | 7.0104E-14 | | IS32 | NIT1NO3OOA + NO3 ----> NO2 + PROPNN + CO + CO2 + HO2 | 4.0000E-12 | 4.0000E-12 | | IS34 | NIT1NO3OOA + NO ----> NO2 + PROPNN + CO + CO2 + HO2 | BR31 | 2.0957E-117| | IS109 | NIT1NO3OOA + NO2 ----> MAPAN | BR28 | 1.2180E-117| | IS36 | NIT1NO3OOA + HO2 ----> 0.750\*RCOOOH + 0.250\*RCOOH + 0.250\*O3 | BR22 | 1.3916E-117| | IS38 | NIT1NO3OOA + RO2C ----> PROPNN + CO + CO2 + HO2 | BR25 | 1.5924E-117| | IS40 | NIT1NO3OOA + MEO2 ----> PROPNN + CO + CO2 + 2.000\*HO2 + HCHO | BR24 | 1.0699E-117| | IS41 | NIT1NO3OOA + MECO3 ----> MEO2 + 2.000\*CO2 + PROPNN + CO + HO2 | BR27 | 1.5514E-117| | IS33 | NIT1NO3OOB + NO3 ----> ISOPNN + GLY + NO2 | 2.3000E-12 | 2.3000E-12 | | IS35 | NIT1NO3OOB + NO ----> 0.940\*ISOPNN + 0.940\*GLY + 0.940\*NO2 + 0.060\*RNO3I | 2.60E-12e 380.00/T | 9.3002E-12 | | IS37 | NIT1NO3OOB + HO2 ----> RNO3I | 2.06E-13e 1300.00/T | 1.6125E-11 | | IS39 | NIT1NO3OOB + RO2C ----> 0.700\*ISOPNN + 0.700\*GLY + 0.300\*RNO3I | 3.5000E-14 | 3.5000E-14 | | IS43 | NIT1NO3OOB + MEO2 ----> 0.700\*ISOPNN + 0.700\*GLY + 0.300\*RNO3I + 0.750\*HCHO + 0.250\*MEOH + 0.500\*HO2 | 2.0000E-13 | 2.0000E-13 | | IS44 | NIT1NO3OOB + MECO3 ----> MEO2 + CO2 + ISOPNN + GLY | 4.40E-13e 1070.00/T | 1.5924E-11 | | IS46 | NIT1 + O3 ----> 0.300\*PROPNN + 0.450\*CO + 0.850\*OH + 0.450\*HO2 + 0.150\*CO2 + 0.700\*GLY + 0.700\*NO2 + 0.700\*MGLY | 4.15E-15e -1520.00/T | 2.5349E-17 | | IS47 | NIT1 + OH ----> 0.345\*NIT1NO3OOA + 0.655\*NIT1OHOO | 7.48E-12e 410.00/T | 2.9588E-11 | | IS48 | NIT1OHOO + NO ----> 0.919\*PROPNN + 0.919\*GLY + 0.015\*CO + 0.081\*RNO3I + 0.934\*NO2 + 0.934\*HO2 | 2.60E-12e 380.00/T | 9.3002E-12 | | IS50 | NIT1OHOO + HO2 ----> R6OOH | 2.06E-13e 1300.00/T | 1.6125E-11 | | IS51 | NIT1OHOO + RO2C ----> 0.689\*PROPNN + 0.689\*GLY + 0.011\*CO + 0.311\*RNO3I + 0.700\*HO2 | 3.5000E-14 | 3.5000E-14 | | IS52 | NIT1OHOO + MEO2 ----> 0.689\*PROPNN + 0.689\*GLY + 0.011\*CO + 0.311\*RNO3I + 1.200\*HO2 + 0.750\*HCHO + 0.250\*MEOH | 2.0000E-13 | 2.0000E-13 | | IS53 | NIT1OHOO + MECO3 ----> MEO2 + CO2 + 0.984\*PROPNN + 0.984\*GLY + 0.016\*CO + 0.016\*RNO3I + HO2 | 4.40E-13e 1070.00/T | 1.5924E-11 | | IS55 | DIBOO + NO ----> NO2 + HO2 + 0.520\*HOCCHO + 0.520\*MGLY + 0.480\*GLY + 0.480\*HACET | 2.60E-12e 380.00/T | 9.3002E-12 | | IS102 | DIBOO + HO2 ----> R6OOH | 2.06E-13e 1300.00/T | 1.6125E-11 | | IS103 | DIBOO + MEO2 ----> HO2 + 0.260\*HOCCHO + 0.260\*MGLY + 0.240\*GLY + 0.240\*HACET + 0.500\*PRD2 + 0.750\*HCHO + 0.250\*MEOH | 2.0000E-13 | 2.0000E-13 | | IS104 | DIBOO + RO2C ----> 0.500\*HO2 + 0.260\*HOCCHO + 0.260\*MGLY + 0.240\*GLY + 0.240\*HACET + 0.500\*PRD2 | 3.5000E-14 | 3.5000E-14 | | IS105 | DIBOO + MECO3 ----> HO2 + 0.520\*HOCCHO + 0.520\*MGLY + 0.480\*GLY + 0.480\*HACET + MEO2 + CO2 | 4.40E-13e 1070.00/T | 1.5924E-11 | | IS56 | MVK + OH ----> MVKOO | 2.60E-12e 610.00/T | 2.0115E-11 | | IS57 | MVKOO + NO ----> 0.625\*HOCCHO + 0.625\*MECO3 + 0.265\*MGLY + 0.265\*HCHO + 0.265\*HO2 + 0.110\*MVKN + 0.890\*NO2 | 2.60E-12e 380.00/T | 9.3002E-12 | | IS58 | MVKOO + HO2 ----> ROOH | 1.82E-13e 1300.00/T | 1.4246E-11 | | IS59 | MVKOO + MEO2 ----> 0.350\*HOCCHO + 0.350\*MECO3 + 0.150\*MGLY + 0.900\*HCHO + 0.650\*HO2 + 0.500\*MEK + 0.250\*MEOH | 2.0000E-13 | 2.0000E-13 | | IS60 | MVKOO + RO2C ----> 0.350\*HOCCHO + 0.350\*MECO3 + 0.150\*MGLY + 0.150\*HCHO + 0.150\*HO2 + 0.500\*MEK | 3.5000E-14 | 3.5000E-14 | | IS61 | MVKOO + MECO3 ----> MEO2 + CO2 + 0.700\*HOCCHO + 0.700\*MECO3 + 0.300\*MGLY + 0.300\*HCHO + 0.300\*HO2 | 4.40E-13e 1070.00/T | 1.5924E-11 | | IS63 | MACROO + NO ----> 0.850\*NO2 + 0.850\*HO2 + 0.720\*HACET + 0.720\*CO + 0.130\*HCHO + 0.130\*MGLY + 0.150\*MACRN | 2.60E-12e 380.00/T | 9.3002E-12 | | IS64 | MACROO + HO2 ----> ROOH | 1.82E-13e 1300.00/T | 1.4246E-11 | | IS65 | MACROO + MEO2 ----> HO2 + 0.424\*HACET + 0.424\*CO + 0.826\*HCHO + 0.076\*MGLY + 0.500\*PRD2 + 0.250\*MEOH | 2.0000E-13 | 2.0000E-13 | | IS66 | MACROO + RO2C ----> 0.500\*HO2 + 0.424\*HACET + 0.424\*CO + 0.076\*HCHO + 0.076\*MGLY + 0.500\*PRD2 | 3.5000E-14 | 3.5000E-14 | | IS67 | MACROO + MECO3 ----> MEO2 + CO2 + HO2 + 0.150\*MGLY + 0.850\*HACET + 0.850\*CO + 0.150\*HCHO | 4.40E-13e 1070.00/T | 1.5924E-11 | | IS69 | MACO3 + NO ----> NO2 + CO + CO2 + HCHO + MEO2 | 6.70E-12e 340.00/T | 2.0957E-11 | | IS70 | MACO3 + HO2 ----> 0.307\*RCOOOH + 0.102\*RCOOH + 0.150\*O3 + 0.440\*OH + 0.440\*HCHO + 0.440\*MECO3 + 0.440\*CO2 | BR22 | 1.3916E-117| | IS71 | MACO3 + NO3 ----> NO2 + CO + CO2 + HCHO + MEO2 | 4.0000E-12 | 4.0000E-12 | | IS72 | MACO3 + MEO2 ----> 2.000\*HCHO + HO2 + CO + CO2 + MEO2 | BR24 | 1.0699E-117| | IS73 | MACO3 + RO2C ----> CO + CO2 + HCHO + MEO2 | BR25 | 1.5924E-117| | IS74 | MACO3 + RO2XC ----> CO + CO2 + HCHO + MEO2 | BR25 | 1.5924E-117| | IS75 | MACO3 + MECO3 ----> 2.000\*CO2 + 2.000\*MEO2 + CO + HCHO | BR27 | 1.5514E-117| | IS76 | MACO3 + RCO3 ----> CO + 2.000\*CO2 + HCHO + MEO2 + RO2C + xHO2 + yROOH + xCCHO | BR27 | 1.5514E-117| | IS77 | MACO3 + BZCO3 ----> CO + 2.000\*CO2 + HCHO + MEO2 + BZO + RO2C | BR27 | 1.5514E-117| | IS78 | MACO3 + MACO3 ----> 2.000\*CO + 2.000\*CO2 + 2.000\*HCHO + 2.000\*MEO2 | BR27 | 1.5514E-117| | IS108 | MAPAN + OH ----> HACET + CO + NO2 | 2.9000E-11 | 2.9000E-11 | | IS79 | HOCCHO + OH ----> 0.750\*HO2 + 0.250\*OH + 0.130\*GLY + 0.520\*CO + 0.350\*CO2 + 0.160\*HCOOH + 0.710\*HCHO | 8.0000E-12 | 8.0000E-12 | | IS80 | HACET + OH ----> 0.750\*MGLY + 0.825\*HO2 + 0.125\*HCOOH + 0.100\*OH + 0.125\*MEO2 + 0.200\*CO2 + 0.050\*CO + 0.125\*CCOOH | 2.15E-12e 305.00/T | 5.9801E-12 | | IS81 | HACET ----> HO2 + MECO3 + HCHO | 1.7500E-01\*MEK_06 | Not Available1 | | IS82 | ETHLN + OH ----> HCHO + CO2 + NO2 | 2.94E-12e 365.00/T | 1.0000E-11 | | IS111 | ETHLN ----> NO2 + HCHO + HO2 + CO | NOA | Not Available1 | | IS83 | PROPNN + OH ----> MGLY + NO2 | 4.0000E-13 | 4.0000E-13 | | IS93 | ISOPNN + OH ----> PROPNN + NO2 | 4.0000E-13 | 4.0000E-13 | | IS97 | PROPNN ----> MECO3 + HCHO + NO2 | NOA | Not Available1 | | IS98 | ISOPNN ----> MECO3 + HCHO + 2.000\*NO2 | IC3ONO2 | Not Available1 | | IS84 | MVKN + OH ----> 0.650\*HCOOH + 0.650\*MGLY + 0.350\*HCHO + 0.350\*PYRUACD + NO3 | 3.50E-12e 140.00/T | 5.5975E-12 | | IS106 | MVKN ----> MECO3 + NO2 + HOCCHO | NOA | Not Available1 | | IS85 | MACRN + OH ----> 0.080\*CCOOH + 0.080\*HCHO + 0.150\*NO3 + 0.070\*HCOOH + 0.070\*MGLY + 0.850\*HACET + 0.850\*NO2 + 0.930\*CO2 | 1.28E-11e 405.00/T | 4.9790E-11 | | IS110 | MACRN ----> HACET + NO2 + CO + HO2 | C2CHO | Not Available1 | | IS86 | DHMOB + OH ----> 1.500\*CO + 0.500\*HO2 + 0.500\*HACET + 0.500\*PRD2 | 1.0000E-11 | 1.0000E-11 | | IS87 | PYRUACD ----> CCHO + CO2 | MGLY_06 | Not Available1 | | IS88 | ISOPOOH + OH ----> IEPOX + OH | 1.90E-11e 390.00/T | 7.0281E-11 | | IS89 | ISOPOOH + OH ----> 0.387\*ISOPO2 + 0.613\*HC5 + 0.613\*OH | 4.75E-12e 200.00/T | 9.2901E-12 | | IS90 | IEPOX + OH ----> IEPOXOO | 5.78E-11e -400.00/T | 1.5110E-11 | | IS91 | IEPOXOO + HO2 ----> 0.725\*HACET + 0.275\*HOCCHO + 0.275\*GLY + 0.275\*MGLY + 1.125\*OH + 0.825\*HO2 + 0.200\*CO2 + 0.375\*HCHO + 0.074\*HCOOH + 0.251\*CO | 2.06E-13e 1300.00/T | 1.6125E-11 | | IS96 | IEPOXOO + NO ----> 0.725\*HACET + 0.275\*HOCCHO + 0.275\*GLY + 0.275\*MGLY + 0.125\*OH + 0.825\*HO2 + 0.200\*CO2 + 0.375\*HCHO + 0.074\*HCOOH + 0.251\*CO + NO2 | 2.60E-12e 380.00/T | 9.3002E-12 | | IS112 | IEPOXOO + MEO2 ----> 0.363\*HACET + 0.138\*HOCCHO + 0.138\*GLY + 0.138\*MGLY + 0.063\*OH + 0.913\*HO2 + 0.100\*CO2 + 0.938\*HCHO + 0.037\*HCOOH + 0.126\*CO + 0.500\*PRD2 + 0.250\*MEOH | 2.0000E-13 | 2.0000E-13 | | IS113 | IEPOXOO + RO2C ----> 0.363\*HACET + 0.138\*HOCCHO + 0.138\*GLY + 0.138\*MGLY + 0.063\*OH + 0.413\*HO2 + 0.100\*CO2 + 0.188\*HCHO + 0.037\*HCOOH + 0.126\*CO + 0.500\*PRD2 | 3.5000E-14 | 3.5000E-14 | | IS114 | IEPOXOO + MECO3 ----> 0.725\*HACET + 0.275\*HOCCHO + 0.275\*GLY + 0.275\*MGLY + 0.125\*OH + 0.825\*HO2 + 1.200\*CO2 + 0.375\*HCHO + 0.074\*HCOOH + 0.251\*CO + MEO2 | 4.40E-13e 1070.00/T | 1.5924E-11 | | IS92 | ISOPOOH ----> OH + 0.910\*HO2 + 0.750\*HCHO + 0.450\*MVK + 0.290\*MACR + 0.090\*DIBOO + 0.110\*HC5 + 0.050\*ARO2MN | COOH | Not Available1 | | IS94 | RNO3I + OH ----> NO2 + HO2 + PRD2 | 8.0000E-12 | 8.0000E-12 | | IS99 | NISOPOOH + OH ----> RNO3I + OH | 5.0000E-11 | 5.0000E-11 | | IS139 | NISOPOOH + OH ----> 0.300\*NISOPO2 + 0.700\*OH + 0.700\*NIT1 | 3.80E-12e 200.00/T | 7.4321E-12 | | IS00 | MACR + OH ----> 0.530\*MACROO + 0.470\*IMACO3 | 8.00E-12e 380.00/T | 2.8616E-11 | | BP56 | MACR + NO3 ----> 0.500\*IMACO3 + 0.500\*RO2C + 0.500\*HNO3 + 0.500\*xHO2 + 0.500\*xCO + 0.500\*yROOH | 1.50E-12e -1815.00/T | 3.4065E-15 | | BP58 | MACR ----> 0.330\*OH + 0.670\*HO2 + 0.340\*MECO3 + 0.330\*IMACO3 + 0.330\*RO2C + 0.670\*CO + 0.340\*HCHO + 0.330\*xMECO3 + 0.330\*xHCHO + 0.330\*yROOH | MACR_06 | Not Available1 | | CP16 | MACR + CL ----> 0.250\*HCL + 0.165\*IMACO3 + 0.802\*RO2C + 0.033\*RO2XC + 0.033\*zRNO3 + 0.802\*xHO2 + 0.541\*xCO + 0.082\*xIPRD + 0.180\*xCLCCHO + 0.541\*xCLACET + 0.835\*yROOH | 3.8500E-10 | 3.8500E-10 | | IA69 | IMACO3 + NO ----> NO2 + CO + CO2 + HCHO + MEO2 | 6.70E-12e 340.00/T | 2.0957E-11 | | IA70 | IMACO3 + HO2 ----> 0.750\*IMPAA + 0.250\*RCOOH + 0.250\*O3 | BR22 | 1.3916E-117| | IA71 | IMACO3 + NO3 ----> NO2 + CO + CO2 + HCHO + MEO2 | 4.0000E-12 | 4.0000E-12 | | IA72 | IMACO3 + MEO2 ----> 2.000\*HCHO + HO2 + CO + CO2 + MEO2 | BR24 | 1.0699E-117| | IA73 | IMACO3 + RO2C ----> CO + CO2 + HCHO + MEO2 | BR25 | 1.5924E-117| | IA74 | IMACO3 + RO2XC ----> CO + CO2 + HCHO + MEO2 | BR25 | 1.5924E-117| | IA75 | IMACO3 + MECO3 ----> 2.000\*CO2 + 2.000\*MEO2 + CO + HCHO | BR27 | 1.5514E-117| | IA76 | IMACO3 + RCO3 ----> CO + 2.000\*CO2 + HCHO + MEO2 + RO2C + xHO2 + yROOH + xCCHO | BR27 | 1.5514E-117| | IA77 | IMACO3 + BZCO3 ----> CO + 2.000\*CO2 + HCHO + MEO2 + BZO + RO2C | BR27 | 1.5514E-117| | IA78 | IMACO3 + MACO3 ----> 2.000\*CO + 2.000\*CO2 + 2.000\*HCHO + 2.000\*MEO2 | BR27 | 1.5514E-117| | IA79 | IMACO3 + IMACO3 ----> 2.000\*CO + 2.000\*CO2 + 2.000\*HCHO + 2.000\*MEO2 | BR27 | 1.5514E-117| | IA80 | MACROO ----> HACET + CO + OH | 2.90E+07e -5297.00/T | 5.5799E-01 | | IA51 | IMACO3 + NO2 ----> IMAPAN | BR28 | 1.2180E-117| | IA52 | IMAPAN ----> IMACO3 + NO2 | 1.60E+16e-13486.00/T | 3.6308E-04 | | IA53 | IMAPAN ----> 0.600\*IMACO3 + 0.600\*NO2 + 0.400\*CO2 + 0.400\*HCHO + 0.400\*MECO3 + 0.400\*NO3 | PAN | Not Available1 | | IC01 | xCO + IMACO3 ----> IMACO3 + CO | BR25 | 1.5924E-117| | IC02 | xTBUO + IMACO3 ----> IMACO3 + TBUO | BR25 | 1.5924E-117| | IC03 | xMACO3 + IMACO3 ----> IMACO3 + MACO3 | BR25 | 1.5924E-117| | IC04 | xRCO3 + IMACO3 ----> IMACO3 + RCO3 | BR25 | 1.5924E-117| | IC05 | xMECO3 + IMACO3 ----> IMACO3 + MECO3 | BR25 | 1.5924E-117| | IC06 | xMEO2 + IMACO3 ----> IMACO3 + MEO2 | BR25 | 1.5924E-117| | IC07 | xNO2 + IMACO3 ----> IMACO3 + NO2 | BR25 | 1.5924E-117| | IC08 | xOH + IMACO3 ----> IMACO3 + OH | BR25 | 1.5924E-117| | IC09 | xHO2 + IMACO3 ----> IMACO3 + HO2 | BR25 | 1.5924E-117| | IC10 | xACROLEIN + IMACO3 ----> IMACO3 + ACROLEIN | BR25 | 1.5924E-117| | IC11 | xHOCCHO + IMACO3 ----> IMACO3 + HOCCHO | BR25 | 1.5924E-117| | IC12 | zRNO3 + IMACO3 ----> IMACO3 + PRD2 + HO2 | BR25 | 1.5924E-117| | IC13 | yRAOOH + IMACO3 ----> IMACO3 | BR25 | 1.5924E-117| | IC14 | yR6OOH + IMACO3 ----> IMACO3 | BR25 | 1.5924E-117| | IC15 | yROOH + IMACO3 ----> IMACO3 | BR25 | 1.5924E-117| | IC16 | xRNO3 + IMACO3 ----> IMACO3 + RNO3 | BR25 | 1.5924E-117| | IC17 | xIPRD + IMACO3 ----> IMACO3 + IPRD | BR25 | 1.5924E-117| | IC18 | xMVK + IMACO3 ----> IMACO3 + MVK | BR25 | 1.5924E-117| | IC19 | xMACR + IMACO3 ----> IMACO3 + MACR | BR25 | 1.5924E-117| | IC20 | xAFG3 + IMACO3 ----> IMACO3 + AFG3 | BR25 | 1.5924E-117| | IC21 | xAFG2 + IMACO3 ----> IMACO3 + AFG2 | BR25 | 1.5924E-117| | IC22 | xAFG1 + IMACO3 ----> IMACO3 + AFG1 | BR25 | 1.5924E-117| | IC23 | xBALD + IMACO3 ----> IMACO3 + BALD | BR25 | 1.5924E-117| | IC24 | xBACL + IMACO3 ----> IMACO3 + BACL | BR25 | 1.5924E-117| | IC25 | xMGLY + IMACO3 ----> IMACO3 + MGLY | BR25 | 1.5924E-117| | IC26 | xGLY + IMACO3 ----> IMACO3 + GLY | BR25 | 1.5924E-117| | IC27 | xPROD2 + IMACO3 ----> IMACO3 + PRD2 | BR25 | 1.5924E-117| | IC28 | xMEK + IMACO3 ----> IMACO3 + MEK | BR25 | 1.5924E-117| | IC29 | xACETONE + IMACO3 ----> IMACO3 + ACETONE | BR25 | 1.5924E-117| | IC30 | xRCHO + IMACO3 ----> IMACO3 + RCHO | BR25 | 1.5924E-117| | IC31 | xCCHO + IMACO3 ----> IMACO3 + CCHO | BR25 | 1.5924E-117| | IC32 | xHCHO + IMACO3 ----> IMACO3 + HCHO | BR25 | 1.5924E-117| | IC33 | xCL + IMACO3 ----> IMACO3 + CL | BR25 | 1.5924E-117| | IC34 | xCLACET + IMACO3 ----> IMACO3 + CLACET | BR25 | 1.5924E-117| | IC35 | xCLCCHO + IMACO3 ----> IMACO3 + CLCCHO | BR25 | 1.5924E-117| | IA108 | IMAPAN + OH ----> 0.030\*HACET + 0.030\*CO + 0.810\*NO3 + 0.210\*IMAE + 0.570\*IHMML + 0.190\*PAN + 0.190\*HCHO + 0.190\*HO2 | 3.0000E-11 | 3.0000E-11 | | IA90 | IMAE + OH ----> | 1.0000E-12 | 1.0000E-12 | | IA91 | IHMML + OH ----> | 4.4000E-12 | 4.4000E-12 | | IA92 | IMPAA + OH ----> 0.830\*IMACO3 + 0.170\*IHMML | 1.6600E-11 | 1.6600E-11 | | CP07mtp | MTNO3 + CL ----> HCL + 0.038\*NO2 + 0.055\*HO2 + 1.282\*RO2C + 0.202\*RO2XC + 0.202\*zMTNO3 + 0.009\*RCHO + 0.018\*MEK + 0.012\*PRD2 + 0.055\*MTNO3 + 0.159\*xNO2 + 0.547\*xHO2 + 0.045\*xHCHO + 0.300\*xCCHO + 0.020\*xRCHO + 0.003\*xACETONE + 0.041\*xMEK + 0.046\*xPROD2 + 0.547\*xMTNO3 + 0.908\*yR6OOH | 1.9200E-10 | 1.9200E-10 | | BP70mtp | MTNO3 + OH ----> 0.189\*HO2 + 0.305\*xHO2 + 0.019\*NO2 + 0.313\*xNO2 + 0.976\*RO2C + 0.175\*RO2XC + 0.175\*zMTNO3 + 0.011\*xHCHO + 0.429\*xCCHO + 0.001\*RCHO + 0.036\*xRCHO + 0.004\*xACETONE + 0.010\*MEK + 0.170\*xMEK + 0.008\*PRD2 + 0.031\*xPROD2 + 0.189\*MTNO3 + 0.305\*xMTNO3 + 0.157\*yROOH + 0.636\*yR6OOH | 7.2000E-12 | 7.2000E-12 | | BP71mtp | MTNO3 ----> 0.344\*HO2 + 0.554\*xHO2 + NO2 + 0.721\*RO2C + 0.102\*RO2XC + 0.102\*zMTNO3 + 0.074\*HCHO + 0.061\*xHCHO + 0.214\*CCHO + 0.230\*xCCHO + 0.074\*RCHO + 0.063\*xRCHO + 0.008\*xACETONE + 0.124\*MEK + 0.083\*xMEK + 0.190\*PRD2 + 0.261\*xPROD2 + 0.066\*yROOH + 0.591\*yR6OOH | IC3ONO2 | Not Available1 | | HET_N02 | NO2 ----> 0.500\*HONO + 0.500\*HNO3 | HETERO_NO2 | Not Available2 | | HET_N2O5IJ | N2O5 ----> HNO3 + H2NO3PIJ | HETERO_N2O5IJ | Not Available2 | | HET_N2O5K | N2O5 ----> HNO3 + H2NO3PK | HETERO_N2O5K | Not Available2 | | HET_H2NO3PIJA | H2NO3PIJ ----> HNO3 | HETERO_H2NO3PAIJ | Not Available2 | | HET_H2NO3PKA | H2NO3PK ----> HNO3 | HETERO_H2NO3PAK | Not Available2 | | HET_H2NO3PIB | H2NO3PIJ + ACLI ----> CLNO2 | HETERO_H2NO3PBIJ | Not Available2 | | HET_H2NO3PJB | H2NO3PIJ + ACLJ ----> CLNO2 | HETERO_H2NO3PBIJ | Not Available2 | | HET_H2NO3PKB | H2NO3PK + ACLK ----> CLNO2 | HETERO_H2NO3PBK | Not Available2 | | HAL_Ozone | O3 ----> | SEAWATER*min( 6.701E-11e 1.074E+01P+ 3.415E-08e-6.713E-01P,
2.000E-06) | 2.0000E-064| | HET_IEPOX | IEPOX ----> IEPOXP | HETERO_IEPOX | Not Available2 | | HET_IMAE | IMAE ----> IMAEP | HETERO_IMAE | Not Available2 | | HET_IHMML | IHMML ----> IHMMLP | HETERO_IMAE | Not Available2 | | HET_TETROL | IEPOXP ----> AIETETJ | HETERO_TETROL | Not Available2 | | HET_IEPOXOS | IEPOXP + ASO4J ----> AIEOSJ | HETERO_IEPOXOS | Not Available2 | | HET_DIM1 | IEPOXP + AIETETJ ----> ADIMJ | HETERO_TETROLDIM | Not Available2 | | HET_DIM2 | IEPOXP + AIEOSJ ----> ADIMJ | HETERO_IEPOXOSDI | Not Available2 | | HET_2MG1 | IMAEP ----> AIMGAJ | HETERO_2MG | Not Available2 | | HET_IMAEOS1 | IMAEP + ASO4J ----> AIMOSJ | HETERO_IMAEOS | Not Available2 | | HET_2MG2 | IHMMLP ----> AIMGAJ | HETERO_2MG | Not Available2 | | HET_IMAEOS2 | IHMMLP + ASO4J ----> AIMOSJ | HETERO_IMAEOS | Not Available2 | | HET_NO3 | NO3 ----> HNO3 | HETERO_NO3 | Not Available2 | | OLIG_ISOPRENE1 | AISO1J ----> 0.500\*AOLGBJ | 9.4882E-06 | 9.4882E-06 | | OLIG_ISOPRENE2 | AISO2J ----> 0.500\*AOLGBJ | 9.4882E-06 | 9.4882E-06 | | OLIG_SESQT1 | ASQTJ ----> 1.500\*AOLGBJ | 9.4882E-06 | 9.4882E-06 | | OLIG_AROMATIC1 | AAVB2J ----> 0.907\*AOLGAJ | 9.4882E-06 | 9.4882E-06 | | OLIG_AROMATIC2 | AAVB3J ----> 0.925\*AOLGAJ | 9.4882E-06 | 9.4882E-06 | | OLIG_AROMATIC3 | AAVB4J ----> 0.943\*AOLGAJ | 9.4882E-06 | 9.4882E-06 | | RPOAGEPI | APOCI + OH ----> 1.250\*APNCOMI + APOCI + OH | 2.5000E-12 | 2.5000E-12 | | RPOAGELI | APNCOMI + OH ----> OH | HETERO_PNCOMLI | Not Available2 | | RPOAGEPJ | APOCJ + OH ----> 1.250\*APNCOMJ + APOCJ + OH | 2.5000E-12 | 2.5000E-12 | | RPOAGELJ | APNCOMJ + OH ----> OH | HETERO_PNCOMLI | Not Available2 | | PCSOA | PCVOC + OH ----> OH + PCSOARXN | 1.2500E-11 | 1.2500E-11 | | POA_AGE1 | VLVPO1 + OH ----> OH + 0.486\*VLVPO1 + 0.006\*VSVPO1 + 0.003\*VSVPO2 + 0.003\*VSVPO3 + 0.002\*VIVPO1 + 0.294\*VLVOO1 + 0.202\*VLVOO2 + 0.002\*VSVOO2 + 0.002\*VSVOO3 | 4.0000E-11 | 4.0000E-11 | | POA_AGE2 | VSVPO1 + OH ----> OH + 0.300\*VLVPO1 + 0.286\*VSVPO1 + 0.004\*VSVPO2 + 0.004\*VSVPO3 + 0.224\*VLVOO1 + 0.182\*VLVOO2 | 4.0000E-11 | 4.0000E-11 | | POA_AGE3 | VSVPO2 + OH ----> OH + 0.386\*VLVPO1 + 0.095\*VSVPO1 + 0.137\*VSVPO2 + 0.001\*VSVPO3 + 0.205\*VLVOO1 + 0.176\*VLVOO2 | 4.0000E-11 | 4.0000E-11 | | POA_AGE4 | VSVPO3 + OH ----> OH + 0.218\*VLVPO1 + 0.306\*VSVPO1 + 0.015\*VSVPO2 + 0.104\*VSVPO3 + 0.189\*VLVOO1 + 0.167\*VLVOO2 | 4.0000E-11 | 4.0000E-11 | | POA_AGE5 | VIVPO1 + OH ----> OH + 0.241\*VLVPO1 + 0.209\*VSVPO1 + 0.300\*VSVPO2 + 0.203\*VLVOO1 + 0.047\*VLVOO2 | 4.0000E-11 | 4.0000E-11 | | POA_AGE6 | VLVOO1 + OH ----> OH + 0.666\*VLVOO1 + 0.014\*VLVOO2 + 0.012\*VSVOO1 + 0.124\*VSVOO2 + 0.183\*VSVOO3 | 4.0000E-11 | 4.0000E-11 | | POA_AGE7 | VLVOO2 + OH ----> OH + 0.286\*VLVOO1 + 0.393\*VLVOO2 + 0.014\*VSVOO1 + 0.103\*VSVOO2 + 0.204\*VSVOO3 | 4.0000E-11 | 4.0000E-11 | | POA_AGE8 | VSVOO1 + OH ----> OH + 0.330\*VLVOO1 + 0.227\*VLVOO2 + 0.261\*VSVOO1 + 0.070\*VSVOO2 + 0.112\*VSVOO3 | 4.0000E-11 | 4.0000E-11 | | POA_AGE9 | VSVOO2 + OH ----> OH + 0.344\*VLVOO1 + 0.275\*VLVOO2 + 0.049\*VSVOO1 + 0.258\*VSVOO2 + 0.074\*VSVOO3 | 4.0000E-11 | 4.0000E-11 | | POA_AGE10 | VSVOO3 + OH ----> OH + 0.389\*VLVOO1 + 0.242\*VLVOO2 + 0.064\*VSVOO1 + 0.038\*VSVOO2 + 0.267\*VSVOO3 | 4.0000E-11 | 4.0000E-11 | | HYD_MT | AMTNO3J ----> HNO3 + AMTHYDJ | 9.2590E-05 | 9.2590E-05 | | HYD_ISOP | AISOPNNJ ----> 2.000\*HNO3 + 0.500\*AMTHYDJ | 9.2590E-05 | 9.2590E-05 | | HET_GLY | GLY ----> AGLYJ | HETERO_PNCOMLI | Not Available2 | | HET_MGLY | MGLY ----> AGLYJ | HETERO_PNCOMLI | Not Available2 | 0Units molecules/(sec*cm3); Value at 298.15 K; 2.4615E+19 molcules/cm3; 1.00 Atm. 1Photolysis Reaction;depends on radiation and predicted concentrations 2Heteorogeneous Reaction;Depends predicted concentrations 4Set to zero if sun is below the horizon. SEAWATER equals surface fraction covered by ice free open ocean plus surf zones. P equals air pressure in atmospheres. 7Rate constant multiple of constant for listed reaction ================================================ FILE: CCTM/src/MECHS/mechanism_information/saprc07tic_ae7i_aq/saprc07tic_ae6i_aq_species_table_aerosol.md ================================================ |AALK1J|Accumulation Mode Alkane Product 1|Aerosol|168 | |AALK2J|Accumulation Mode Alkane Product 2|Aerosol|168 | |ABNZ1J|Accumulation Mode Benzene Product 1|Aerosol|144 | |ABNZ2J|Accumulation Mode Benzene Product 2|Aerosol|144 | |ACLI|Aitken Mode Chlorine|Aerosol|35.5 | |ACLJ|Accumulation Mode Chlorine|Aerosol|35.5 | |ACLK|Coarse Mode Chlorine|Aerosol|35.5 | |ADIMJ|IEPOX-derived organosulfate from IEPOX uptake onto particles|Aerosol|248.23 | |AGLYJ|glyoxal/methylglyoxal aerosol due to uptake on particles|Aerosol|66.4 | |AIEOSJ|2-methyltetrols from IEPOX uptake onto particles|Aerosol|216.2 | |AIETETJ|Hydroxymethyl-methyl-a-lactone|Aerosol|136.15 | |AIMGAJ|IEPOX-derived oligomers from IEPOX uptake onto particles|Aerosol|120.1 | |AIMOSJ|2-methylglyceric acid from MAE+HMML uptake onto particles|Aerosol|200.16 | |AISO1J|Accumulation Mode Isoprene Product 1|Aerosol|96 | |AISO2J|Accumulation Mode Isoprene Product 2|Aerosol|96 | |AISOPNNJ|SOA from isoprene dinitrates (C*=8.9 ug/m3)|Aerosol|226 | |ALKRXN|Precursor of Terpene Aerosol Material|Gas|112 | |AMTHYDJ|SOA from hydrolysis of particle-phase organic nitrates|Aerosol|185 | |AMTNO3J|SOA from monoterpene nitrates (C*=12 ug/m3)|Aerosol|231 | |AOLGAJ|Accumulation Mode Oligomerized Anthropogenic Material|Aerosol|176.4 | |AOLGBJ|Accumulation Mode Oligomerized Biogenic Material|Aerosol|252 | |APAH1J|Accumulation Mode PAH Product 1|Aerosol|243 | |APAH2J|Accumulation Mode PAH Product 2|Aerosol|243 | |APNCOMI|non-carbon organic matter (H, O, etc.) attached to POC in aitken mode|Aerosol|220 | |APNCOMJ|non-carbon organic matter (H, O, etc.) attached to POC in accumulation mode|Aerosol|220 | |APOCI|primary organic carbon in aitken mode|Aerosol|220 | |APOCJ|primary organic carbon in accumulation mode|Aerosol|220 | |ASQTJ|Accumulation Mode Sesquiterpene Aerosol|Aerosol|378 | |ATOL1J|Accumulation Mode Toulene Product 1|Aerosol|168 | |ATOL2J|Accumulation Mode Toulene Product 2|Aerosol|168 | |ATRP1J|Accumulation Mode Terpene Product 1|Aerosol|168 | |ATRP2J|Accumulation Mode Terpene Product 2|Aerosol|168 | |AXYL1J|Accumulation Mode Xylene Product 1|Aerosol|192 | |AXYL2J|Accumulation Mode Xylene Product 2|Aerosol|192 | |BNZHRXN|Precursor of Hydro-Benzene Aerosol Material|Gas|159.11 | |BNZNRXN|Precursor of Nitro-Benzene Aerosol Material|Gas|159.11 | |PAHHRXN|Precursor of Hydro-PAH Aerosol Material|Gas|187.2 | |PAHNRXN|Precursor of Nitro-PAH Aerosol Material|Gas|187.2 | |SESQRXN|Precursor of Sesquiterpenes Aerosol Material|Gas|204.35 | |SULRXN|Precursor of Aerosol Sulfate|Gas|98.08 | |TOLHRXN|Precursor of Hydro-Toulene Aerosol Material|Gas|172.14 | |TOLNRXN|Precursor of Nitro-Toulene Aerosol Material|Gas|172.14 | |TRPRXN|Precursor of Terpene Aerosol Material|Gas|136 | |XYLHRXN|Precursor of Hydro-Xylene Aerosol Material|Gas|187.17 | |XYLNRXN|Precursor of Nitro-Xylene Aerosol Material|Gas|187.17 | |H2NO3PIJ|Fine Mode Dissolved Nitric Acid||64 | |H2NO3PK|Coarse Mode Dissolved Nitric Acid||64 | ================================================ FILE: CCTM/src/MECHS/mechanism_information/saprc07tic_ae7i_aq/saprc07tic_ae7i_aq_species_table.md ================================================ **The GC namelist for saprc07tic_ae7i_aq has the following gas phase species.** | **Definition** | **Definition** | **Explicit or Lumped** | **Molecular Weight** | |----------|-------------------------------------|----------------|-----------------| |ACETONE|Acetone|E|58.08 | |ACETYLENE|Acetylene|E|26.04 | |ACRO_PRIMARY|Acrolein emissions tracer|E|56.06 | |ACROLEIN|Acrolein|E|56.06 | |AFG1|Lumped photoreactive monounsaturated dicarbonyl aromatic fragmentation products that photolyze to form radicals|L|98.1 | |AFG2|Lumped photoreactive monounsaturated dicarbonyl aromatic fragmentation products that photolyze to form non-radical products|L|98.1 | |AFG3|Lumped diunsaturatred dicarbonyl aromatic fragmentation product.|L|124.14 | |ALK1|Alkanes and other non-aromatic compounds that react only with OH, and have kOH between 2 and 5 x 102 ppm-1 min-1. (Primarily ethane)|L|30.07 | |ALK2|Alkanes and other non-aromatic compounds that react only with OH, and have kOH between 5 x 102 and 2.5 x 103 ppm-1 min-1. (Primarily propane and acetylene)|L|36.73 | |ALK3|Alkanes and other non-aromatic compounds that react only with OH, and have kOH between 2.5 x 103 and 5 x 103 ppm-1 min-1.|L|58.61 | |ALK4|Alkanes and other non-aromatic compounds that react only with OH, and have kOH between 5 x 103 and 1 x 104 ppm-1 min-1.|L|77.6 | |ALK5|Alkanes and other non-aromatic compounds that react only with OH, and have kOH greater than 1 x 104 ppm-1 min-1.|L|118.89 | |APIN|a-pinene|E|136.23 | |ARO1|Aromatics with kOH < 2x104 ppm-1 min-1.|L|95.16 | |ARO2MN|ARO2 minus naphthalene|L|118.72 | |BACL|Biacetyl|E|86.09 | |BALD|Aromatic aldehydes (e.g., benzaldehyde)|L|106.13 | |BENZENE|Benzene|E|78.11 | |BENZRO2|Peroxy radical tracer from Benzene and OH reaction used to produce aerosol material|E|159.11 | |BUTADIENE13|1,3-butadiene|E|54.09 | |BZCO3|Peroxyacyl radical formed from Aromatic Aldehydes|L|137.12 | |BZO|Phenoxy Radicals|L|93 | |CCHO_PRIMARY|Acetaldehyde Emissions Tracer|E|44.05 | |CCHO|Acetaldehyde|E|44.05 | |CCOOH|Acetic Acid. Also used for peroxyacetic acid in Carter|E|60.05 | |CCOOOH|Proposed for Peroxyacetic Acid|E|76 | |CL|Chlorine atoms|E|35.5 | |CL2|Chlorine molecules|E|70 | |CLACET|Chloroacetone (and other alpha-chloro ketones that are assumed to be similarly photoreactive)|L|92.5 | |CLCCHO|Chloroacetaldehyde (and other alpha-chloro aldehydes that are assumed to be similarly photoreactive)|L|78.5 | |CLCHO|Formyl Chloride (assumed to be unreactive)|E|64.5 | |CLNO|Nitrosyl Chloride|E|65.5 | |CLNO2|Nitryl Chloride|E|81.5 | |CLO|Chlorine Monoxide Radicals|E|51.5 | |CLONO|Nitrous Hypochloride |E|81.5 | |CLONO2|Chlorine Nitrate|E|97.45 | |CO|Carbon Monoxide|E|28.01 | |CO2|Carbon Dioxide|E|44.01 | |COOH|Methyl Hydroperoxide|E|48.04 | |CRES|Phenols and Cresols|L|108.14 | |DHMOB|dihydroxy carbonyl from HC5|L|132.1 | |DIBOO|peroxy radical from isoprene + OH|L|133.1 | |ETHENE|Ethene|E|28.05 | |ETHLN|ethanal nitrate|E|105 | |ETOH|Ethanol|E|46.07 | |GLY|Glyoxal|E|58.04 | |HACET|Hydroxyacetone|E|74.1 | |HC5|hydroxy carbonyl alkenes from isoprene|L|100.1 | |HC5OO|peroxy radical from HC5|L|149.1 | |HCHO_PRIMARY|Formaldehyde Emission Tracer|E|30.03 | |HCHO|Formaldehyde|E|30.03 | |HCL|Hydrochloric acid|E|36.5 | |HCOCO3|acylperoxy radicals from glyoxal|L|89 | |HCOOH|Formic Acid|E|46.03 | |HNO3|Nitric Acid|E|63.02 | |HNO4|Peroxynitric Acid|E|79.02 | |HO2|Hydroperoxide Radicals|E|33.01 | |HO2H|Hydrogen Peroxide|E|34.01 | |HOCCHO|Glycolaldehyde|E|60.05 | |HOCL|HOCl|E|52.5 | |HONO|Nitrous Acid|E|47.02 | |HPALD|hydroperoxymethyl-butenals|L|116.12 | |IEPOX|dihydroxyepoxides|L|118.13 | |IEPOXOO|peroxy radical from IEPOX|L|149.12 | |IEPOXP|peroxy radical from IEPOX|L|118.13 | |IHMML|Methacrylic acid epoxide|L|102 | |IHMMLP|Methacrylic acid epoxide|L|102 | |IMACO3|Peroxyacyl radicals formed from methacrolein + OH abstraction channel|L|101.08 | |IMAE|Methacryloyl peroxy nitrate|E|102 | |IMAEP|Methacryloyl peroxy nitrate|E|102 | |IMAPAN|Methacrylicperoxy acid|E|147.09 | |IMPAA|Peroxyacyl radicals formed from methacrolein + OH abstraction channel|L|102.08 | |IPRD|Lumped isoprene product species|L|100.12 | |ISOPNB|beta-hydroxy isoprene nitrates|L|147.1 | |ISOPND|delta-hydroxy isoprene nitrates|L|147.1 | |ISOPNN|second generation isoprene dinitrate from NO3 reaction|L|226 | |ISOPNOOB|peroxy radical from ISOPNB|L|196.1 | |ISOPNOOD|peroxy radical from ISOPND|L|196.1 | |ISOPO2|peroxy radical from isoprene + OH|L|117.1 | |ISOPOOH|hydroxyhydroperoxides from ISOPO2|L|118.1 | |ISOPRENE|Isoprene|E|68.12 | |ISOPRXN|SOA precursor compounds from isoprene|L|68 | |MACO3|Peroxyacyl radicals formed from methacrolein and other acroleins.|L|101.08 | |MACR|Methacrolein|E|70.09 | |MACRN|methacrolein nitrate|E|149.1 | |MACROO|peroxy radical from MACR|L|119.1 | |MAPAN|PAN analogue formed from Methacrolein|L|147.09 | |MECO3|Acetyl Peroxy Radicals|L|75.04 | |MEK|Ketones and other non-aldehyde oxygenated products which react with OH radicals faster than 5 x 10-13 but slower than 5 x 10-12 cm3 molec-2 sec-1. (Based on mechanism for methyl ethyl ketone).|L|72.11 | |MEO2|Methyl Peroxy Radicals|L|47.03 | |MEOH|Methanol|E|32.04 | |MGLY|Methyl Glyoxal|E|72.07 | |MTNO3|monoterpene(TERP)-derived organic nitrates (exluding alpha-pinene)|L|231 | |MVK|Methyl Vinyl Ketone|E|70.09 | |MVKN|methylvinylketone nitrate|E|149.1 | |MVKOO|peroxy radical from MVK|L|119.1 | |MXYL|m-xylene|E|106.17 | |N2O5|Nitrogen Pentoxide|E|108.02 | |NAPHTHAL|naphthalene|E|128.2 | |NISOPO2|peroxy radical from isoprene + NO3|E|162.1 | |NISOPOOH|hydroperoxide from NISOPO2|E|163.13 | |NIT1|C5 carbonyl nitrates|L|145.1 | |NIT1NO3OOA|acyl peroxy radical from NIT1 + NO3 (abstraction of aldehydic H)|L|176.1 | |NIT1NO3OOB|peroxy radical from NIT1 + NO3 (addition to double bond)|L|239.1 | |NIT1OHOO|peroxy radical from NIT1 + OH|L|194.12 | |NO|Nitric Oxide|E|30.01 | |NO2|Nitrogen Dioxide|E|46.01 | |NO3|Nitrate Radical|E|62.01 | |NPHE|Nitrophenols|E|139.11 | |O1D|Excited Oxygen Atoms|E|16 | |O3|Ozone|E|48 | |O3P|Ground State Oxygen Atoms|E|16 | |OH|Hydroxyl Radicals|E|17.01 | |OLE1|Alkenes (other than ethene) with kOH < 7x104 ppm-1 min-1.|L|72.34 | |OLE2|Alkenes with kOH > 7x104 ppm-1 min-1.|L|75.78 | |OXYL|o-xylene|E|106.17 | |PAHRO2|PAH hydroxyperoxy radicals|L|187.2 | |PAN|Peroxy Acetyl Nitrate|E|121.05 | |PAN2|PPN and other higher alkyl PAN analogues|L|135.08 | |PBZN|PAN analogues formed from Aromatic Aldehydes|L|183.13 | |PRD2|Ketones and other non-aldehyde oxygenated products which react with OH radicals faster than 5 x 10-12 cm3 molec-2 sec-1.||116.16 | |PROPENE|propene|L|42.08 | |PROPNN|propanone nitrate from isoprene + OH|L|119.1 | |PXYL|p-xylene|E|106.17 | |PYRUACD|Pyruvic Acid|E|88.1 | |R6OOH|Lumped organic hydroperoxides with 5 or more carbons (other than those formed following OH addition to aromatic rings, which is reprsented separately). Mechanism based on that estimated for 3-hexyl hydroperoxide.|L|118.17 | |RAOOH|Organic hydroperoxides formed following OH addition to aromatic rings, which is reprsented separately because of their probable role in SOA formation. Mechanism based on two isomers expected to be formed in the m-xylene system.|L|188.18 | |RCHO|Lumped C3+ Aldehydes (mechanism based on propionaldehyde)|L|58.08 | |RCO3|Peroxy Propionyl and higher peroxy acyl Radicals|L|89.07 | |RCOOH|Higher organic acids and, in Carter, peroxy acids (mechanism based on propionic acid).|L|74.08 | |RCOOOH|Proposed Higher organic peroxy acids|L|74.08 | |RNO3|Lumped Organic Nitrates|L|147.18 | |RNO3I|Lumped Organic Nitrates from isoprene|L|147.18 | |RO2C|Peroxy Radical Operator representing NO to NO2 and NO3 to NO2 conversions, and the effects of peroxy radical reactions on acyl peroxy and other peroxy radicals.|L|1 | |RO2XC|Peroxy Radical Operator representing NO consumption (used in conjunction with organic nitrate formation), and the effects of peroxy radical reactions on NO3, acyl peroxy radicals, and other peroxy radicals.|L|1 | |ROOH|Lumped organic hydroperoxides with 2-4 carbons. Mechanism based on that estimated for n-propyl hydroperoxide.||76.1 | |SESQ|Sesquiterpenes|L|204.35 | |SESQRXN|Precursor of Sesquiterpenes Aerosol Material|L|204.35 | |SO2|Sulfur Dioxide|E|64.06 | |SOAALK|Alkanes that produce aerosol material|L|112 | |SULF|Sulfates (SO3 or H2SO4)|L|98.08 | |SULRXN|Precursor of Aerosol Sulfate|L|98.08 | | SVAVB1 | low volatility organic gas from oxidation of anthropogenic VOCs | L |179.0 | | SVAVB2 | semivolatile organic gas from oxidation of anthropogenic VOCs | L | 169.0 | | SVAVB3 | semivolatile organic gas from oxidation of anthropogenic VOCs | L |158.0 | | SVAVB4 | semivolatile organic gas from oxidation of anthropogenic VOCs | L | 198.0 | |TBUO|t-Butoxy Radicals|L|73 | |TERP|Terpenes|L|136.24 | |TERPNRO2|TERP+NO3 peroxy radical|L|197 | |TMBENZ124|1,2,4-trimethyl benzene|E|120.19 | |TOLRO2|Peroxy Radical tracker from TOLUENE and ARO1 reactions with OH; an aerosol precursor|L|172.14 | |TOLUENE|toluene|E|92.14 | |TRPRXN|Precursor of Terpene Aerosol Material|E|136 | |xACETONE|ACETONE production operator via reaction with Peroxy, Acetyl Peroxy, their operators, NO or NO3 Radicals (yield vary based on radical)|L|58.08 | |xACROLEIN|ACROLEIN production operator via reaction with Peroxy, Acetyl Peroxy, their operators, NO or NO3 Radicals (yield vary based on radical)|L|56.06 | |xAFG1|AFG1 production operator via reaction with Peroxy, Acetyl Peroxy, their operators, NO or NO3 Radicals (yield vary based on radical)|L|98.1 | |xAFG2|AFG2 production operator via reaction with Peroxy, Acetyl Peroxy, their operators, NO or NO3 Radicals (yield vary based on radical)|L|98.1 | |xAFG3|AFG3 production operator via reaction with Peroxy, Acetyl Peroxy, their operators, NO or NO3 Radicals (yield vary based on radical)|L|124.74 | |xBACL|BACL production operator via reaction with Peroxy, Acetyl Peroxy, their operators, NO or NO3 Radicals (yield vary based on radical)|L|86.09 | |xBALD|BALD production operator via reaction with Peroxy, Acetyl Peroxy, their operators, NO or NO3 Radicals (yield vary based on radical)|L|106.13 | |xCCHO|CCHO production operator via reaction with Peroxy, Acetyl Peroxy, their operators, NO or NO3 Radicals (yield vary based on radical)|L|44.05 | |xCL|Cl production operator via reaction with Peroxy, Acetyl Peroxy, their operators, NO or NO3 Radicals (yield vary based on radical)|L|35.5 | |xCLACET|CLACET production operator via reaction with Peroxy, Acetyl Peroxy, their operators, NO or NO3 Radicals (yield vary based on radical)|L|92.5 | |xCLCCHO|CLCCHO production operator via reaction with Peroxy, Acetyl Peroxy, their operators, NO or NO3 Radicals (yield vary based on radical)|L|78.5 | |xCO|CO production operator via reaction with Peroxy, Acetyl Peroxy, their operators, NO or NO3 Radicals (yield vary based on radical)|L|28.01 | |xGLY|GLY production operator via reaction with Peroxy, Acetyl Peroxy, their operators, NO or NO3 Radicals (yield vary based on radical)||58.04 | |xHCHO|HCHO production operator via reaction with Peroxy, Acetyl Peroxy, their operators, NO or NO3 Radicals (yield vary based on radical)|L|30.03 | |xHO2|Formation of HO2 from alkoxy radicals formed in peroxy radical reactions with NO and NO3 (100% yields) and RO2 (50% yields)|L|33.01 | |xHOCCHO|HOCCHO production operator via reaction with Peroxy, Acetyl Peroxy, their operators, NO or NO3 Radicals (yield vary based on radical)|L|60.05 | |xIPRD|IPRD production operator via reaction with Peroxy, Acetyl Peroxy, their operators, NO or NO3 Radicals (yield vary based on radical)|L|100.12 | |xMACO3|MACO3 production operator via reaction with Peroxy, Acetyl Peroxy, their operators, NO or NO3 Radicals (yield vary based on radical)|L|101.08 | |xMACR|MACR production operator via reaction with Peroxy, Acetyl Peroxy, their operators, NO or NO3 Radicals (yield vary based on radical)|L|70.09 | |xMECO3|MECO3 production operator via reaction with Peroxy, Acetyl Peroxy, their operators, NO or NO3 Radicals (yield vary based on radical)|L|75.04 | |xMEK|MEK production operator via reaction with Peroxy, Acetyl Peroxy, their operators, NO or NO3 Radicals (yield vary based on radical)|L|72.11 | |xMEO2|MEO2 production operator via reaction with Peroxy, Acetyl Peroxy, their operators, NO or NO3 Radicals (yield vary based on radical)|L|47.03 | |xMGLY|MGLY production operator via reaction with Peroxy, Acetyl Peroxy, their operators, NO or NO3 Radicals (yield vary based on radical)|L|72.07 | |xMTNO3|MGLY production operator via reaction with Peroxy, Acetyl Peroxy, their operators, NO or NO3 Radicals (yield vary based on radical)|L|231 | |xMVK|MVK production operator via reaction with Peroxy, Acetyl Peroxy, their operators, NO or NO3 Radicals (yield vary based on radical)|L|70.09 | |xNO2|NO2 production operator via reaction with Peroxy, Acetyl Peroxy, their operators, NO or NO3 Radicals (yield vary based on radical)|L|46.01 | |xOH|OH production operator via reaction with Peroxy, Acetyl Peroxy, their operators, NO or NO3 Radicals (yield vary based on radical)|L|17.01 | |xPROD2|PROD2 production operator via reaction with Peroxy, Acetyl Peroxy, their operators, NO or NO3 Radicals (yield vary based on radical)|L|116.16 | |xRCHO|RCHO production operator via reaction with Peroxy, Acetyl Peroxy, their operators, NO or NO3 Radicals (yield vary based on radical)|L|58.08 | |xRCO3|RCO3 production operator via reaction with Peroxy, Acetyl Peroxy, their operators, NO or NO3 Radicals (yield vary based on radical)|L|89.07 | |xRNO3|RNO3 production operator via reaction with Peroxy, Acetyl Peroxy, their operators, NO or NO3 Radicals (yield vary based on radical)|L|147.18 | |xTBUO|TBUO production operator via reaction with Peroxy, Acetyl Peroxy, their operators, NO or NO3 Radicals (yield vary based on radical)|L|73 | |XYLRO2|Peroxy Radical tracker from xylene and ARO2 reactions with OH;an aerosol precursor|L|187.17 | |yR6OOH|R6OOH production operator via reaction with Peroxy, Acetyl Peroxy, their operators, NO or NO3 Radicals (yield vary based on radical)|L|118.17 | |yRAOOH|RAOOH production operator via reaction with Peroxy, Acetyl Peroxy, their operators, NO or NO3 Radicals (yield vary based on radical)|L|188.18 | |yROOH|ROOH production operator via reaction with Peroxy, Acetyl Peroxy, their operators, NO or NO3 Radicals (yield vary based on radical)|L|76.1 | |zMTNO3|ROOH production operator via reaction with Peroxy, Acetyl Peroxy, their operators, NO or NO3 Radicals (yield vary based on radical)|L|231 | |zRNO3|RNO3 production operator via reaction with Peroxy, Acetyl Peroxy, their operators, NO or NO3 Radicals (yield vary based on radical)|L|147.18 | **The AE namelist for saprc07tic_ae7i_aq has the following aerosol species.** | **Model Species** | **Definition** | **Molecular Weight** | **Explicit or Lumped** | | ----------------- | ---------------------------------------------------- | -------------------- | ---------------------- | | AAL | Aluminum | 27 | E | | AAVB1 | low volatility organic particulate matter from oxidation of anthropogenic VOCs | 198.0 | L | | AAVB2 | semivolailte organic particulate matter from oxidation of anthropogenic VOCs | 179.0 | L | | AAVB3 | semivolailte organic particulate matter from oxidation of anthropogenic VOCs | 169.0 | L | | AAVB4 | semivolailte organic particulate matter from oxidation of anthropogenic VOCs | 158.0 | L | | ACA | Calcium | 40.1 | E | | ACL | Chloride | 35.5 | E | |ADIM |IEPOX-derived organosulfate from IEPOX uptake onto particles|248.23 |L| | ACORS | Anthropogenic Coarse-mode particle mass | 100.0 | L | | AEC | Elemental Carbon | 12 | E | | AFE | Iron | 55.8 | E | | AGLY | Glyoxal and methylglyoxal SOA produced in aqueous aerosol material | 66.4 | L | | AH2O | Water | 18 | E | | AH3OP | Hydronium Ion | 19 | E | |AIEOS |2-methyltetrols from IEPOX uptake onto particles|216.2 |L| |AIETET |Hydroxymethyl-methyl-a-lactone|136.15 |E| |AIMGA |IEPOX-derived oligomers from IEPOX uptake onto particles|120.1 |L| |AIMOS |2-methylglyceric acid from MAE+HMML uptake onto particles|200.16 |E| | AISO1 | Semivolatile SOA Product from Isoprene | 132.0 | L | | AISO2 | High-Volatility SOA Product from Isoprene | 133.0 | L | | AISO3 | Acid-catalyzed Isoprene Epoxydiol SOA | 168.2 | L | |AISOPNN|SOA from isoprene dinitrates (C*=8.9 ug/m3)|226 |L| | AIVPO1 | Intermediate Volatility Primary Organic Compounds | 266 | L | | AK | Potassium | 39.1 | E | | ALVOO1 | Low Volatility Oxidized Combustion Organic Compounds | 136 | L | | ALVOO2 | Low Volatility Oxidized Combustion Organic Compounds | 136 | L | | ALVPO1 | Low Volatility Primary Organic Compounds | 218 | L | | AMG | Magnesium | 24.3 | E | | AMN | Manganese | 54.9 | E | | AMT1 | low volatility particulate matter from monoterpene photoxidation, C*=0.01 ug/m3 | 200.0 | L | | AMT2 | low volatility particulate matter from monoterpene photoxidation, C*=0.1 ug/m3 | 300.0 | L | | AMT3 | semivolailte particulate matter from monoterpene photoxidation, C*=1 ug/m3 | 186.0 | L | | AMT4 | semivolatile particulate matter from monoterpene photoxidation, C*=10 ug/m3 | 184.0 | L | | AMT5 | semivolatile particulate matter from monoterpene photoxidation, C*=100 ug/m3 | 170.0 | L | | AMT6 | semivolatile particulate matter from monoterpene photoxidation, C*=1000 ug/m3 | 168.0 | L | | AMTNO3 | semivolatile organic nitrates from monoterpene oxidation | 231.0 | L | | AMTHYD | organic pseudo-hydrolysis accretion product from monoterpene organic nitrates (AMTNO3J) | 168.0| L | | ANA | Sodium | 23 | E | | ANH4 | Ammonium | 18 | E | | ANO3 | Nitrate | 62 | E | | AOLGA | Oligomer products of anthropogenic SOA compounds | 206.0 | L | | AOLGB | Oligomer products of biogenic SOA compounds | 248.0 | L | | AORGC | Glyoxal and Methylglyoxal SOA | 177.0 | L | | AORGH2O | Water associated with organic species of particulate matter | 18.0 | E | | AOTHR | Other Particulate Mass | 200 | L | | APCSO | Potential Combustion SOA | 170 | L | | APNCOM | Non-Carbon Organic Matter associated with APOC | 220.0 | L | | APOC | Primary Organic Carbon | 220.0 | L | | ASEACAT | Sea spray cations | 23.75 | L | | ASI | Silicon | 28.1 | E | | ASO4 | Sulfate | 96 | E | | ASOIL | Lumped crustal species | 100.0 | L | | ASQT | Semivolatile SOA Product from Sesquiterpenes | 273.0 | L | | ASVOO1 | Semivolatile Oxidized Combustion Organic Compounds | 135 | L | | ASVOO2 | Semivolatile Oxidized Combustion Organic Compounds | 135 | L | | ASVOO3 | Semivolatile Oxidized Combustion Organic Compounds | 134 | L | | ASVPO1 | Semivolatile Primary Organic Compounds | 230 | L | | ASVPO2 | Semivolatile Primary Organic Compounds | 241 | L | | ASVPO3 | Semivolatile Primary Organic Compounds | 253 | L | | ATI | Titanium | 47.9 | E | | NUMACC | Accum. Mode Number Conc | NA | NA | | NUMAIT | Aitken Mode Number Conc | NA | NA | | NUMCOR | Coarse Mode Number Conc | NA | NA | | SRFACC | Accum. Mode Surface Area Conc | NA | NA | | SRFAIT | Aitken Mode Surface Area Conc | NA | NA | | SRFCOR | Coarse Mode Surface Area Conc | NA | NA | Note that for each aerosol mass species, a letter will be appended to the names below in order to designate the size, or mode, of the aerosol being represented: I = Aitken mode, J = Accumulation mode, K = Coarse mode. **The NR namelist for saprc07tic_ae7i_aq has the following gas phase species.** | **Model Species** | **Definition** | **Molecular Weight** | **Explicit or Lumped** | | ----------------- | ---------------------------------------------------- | -------------------- | ---------------------- | | LVPCSOG | surrogate SOA precursor gas for combustion/anthropogenic sources | 170.0 | L | | NH3 | ammonia | 17.0 | E | | SVMT1 | low volatility gas from monoterpene photoxidation | 300.0 | L | | SVMT2 | low volatility gas from monoterpene photoxidation | 200.0 | L | | SVMT3 | semivolatile gas from monoterpene photoxidation | 186.0 | L | | SVMT4 | semivolatile gas from monoterpene photoxidation | 184.0 | L | | SVMT5 | semivolatile gas from monoterpene photoxidation | 170.0 | L | | SVMT6 | semivolatile gas from monoterpene photoxidation | 168.0 | L | | SVISO1 | semivolatile gas of secondary aerosol material from isoprene | 132.0 | L | | SVISO2 | semivolatile gas of secondary aerosol material from isoprene | 133.0 | L | | SVSQT | semivolatile gas of secondary aerosol material from sesquiterpenes | 273.0 | L | ================================================ FILE: CCTM/src/MECHS/racm2_ae6_aq/AE_racm2_ae6_aq.nml ================================================ &AE_nml AE_SPECIES_DATA = !SPECIES ,MOLWT ,Aitken ,Accum ,Coarse ,OPTICS ,IC ,ICFAC ,BC ,BC_FAC ,DRYDEP SURR ,FAC ,WET-SCAV SURR ,FAC ,AE2AQ SURR ,TRNS ,DDEP ,WDEP ,CONC 'ASO4' , 96.00 ,T ,T ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'SO4' , 1 ,'SO4' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ANH4' , 18.00 ,T ,T ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'NH4' , 1 ,'NH4' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ANO3' , 62.00 ,T ,T ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'NO3' , 1 ,'NO3' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ANA' , 23.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'NA' , 1 ,'NA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ACL' , 35.50 ,T ,T ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'CL' , 1 ,'CL' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AALK1' ,225.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AALK2' ,205.10 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AXYL1' ,174.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AXYL2' ,185.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AXYL3' ,218.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ATOL1' ,163.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ATOL2' ,175.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ATOL3' ,194.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ABNZ1' ,161.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ABNZ2' ,134.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ABNZ3' ,180.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'APAH1' ,195.60 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'APAH2' ,178.70 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'APAH3' ,212.20 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ATRP1' ,177.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ATRP2' ,198.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AISO1' ,132.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AISO2' ,133.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ASQT' ,273.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AORGC' ,177.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'AORGC' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AEC' , 12.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'EC' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AOTHR' ,200.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'PRI' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AFE' , 55.80 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'FE' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AAL' , 27.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'PRI' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ASI' , 28.10 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'PRI' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ATI' , 47.90 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'PRI' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ACA' , 40.10 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'CA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AMG' , 24.30 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'MG' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AK' , 39.10 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'K' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AMN' , 54.90 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'MN' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ACORS' ,100.00 ,F ,F ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'ANTH' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ASOIL' ,100.00 ,F ,F ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'SOIL' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'NUM' , 1.00 ,T ,T ,T ,'' ,'' ,-1 ,'' ,-1 ,'VNUM' , 1 ,'NUM' , 1 ,'NUM' ,'Yes' ,'' ,'' ,'Yes', 'SRF' , 1.00 ,T ,T ,T ,'' ,'' ,-1 ,'' ,-1 ,'VSRF' , 1 ,'SRF' , 1 ,'SRF' ,'Yes' ,'' ,'' ,'Yes', 'AORGH2O' , 18.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'H2O' , 1 ,'H2O' ,'Yes' ,'' ,'' ,'Yes', 'AH2O' , 18.00 ,T ,T ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'H2O' , 1 ,'H2O' ,'Yes' ,'' ,'' ,'Yes', 'AH3OP' , 19.00 ,T ,T ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'' ,-1 ,'' ,'Yes' ,'' ,'' ,'Yes', 'ASEACAT' , 23.75 ,F ,F ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'SEAS' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AISO3' ,168.20 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AOLGA' ,206.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AOLGB' ,248.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'APOC' ,220.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'APNCOM' ,220.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'APCSO' ,170.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ALVPO1' ,218.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ASVPO1' ,230.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ASVPO2' ,241.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ASVPO3' ,253.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AIVPO1' ,266.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ALVOO1' ,136.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ALVOO2' ,136.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ASVOO1' ,135.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ASVOO2' ,135.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ASVOO3' ,134.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', / ================================================ FILE: CCTM/src/MECHS/racm2_ae6_aq/CMAQ_Control_DESID_racm2_ae6_aq.nml ================================================ !------------------------------------------------------------------------------! ! Emission Control Interface ! ! for the ! ! Detailed Emissions Scaling, Isolation, and Diagnostics (DESID) Module, ! ! part of the ! ! Community Multiscale Air Quality (CMAQ) Model ! ! developed and maintained by the ! ! Center for Environmental Measurement and Modeling (CEMM), ! ! Office of Research and Development (ORD) ! ! U.S. Environmental Protection Agency (USEPA) ! ! ! ! This namelist is consistent with CMAQv5.4 (Release AUGUST 2022) ! ! ! ! See CMAQ User's Guide Appendix B (https://github.com/USEPA/CMAQ/blob/main/ ! ! DOCS/Users_Guide/Appendix/CMAQ_UG_appendixB_emissions_control.md) ! ! and Murphy et al., Geoscientific Model Development, 14, 3407-3420, ! ! https://doi.org/10.5194/gmd-14-3407-2021, 2021. ! !------------------------------------------------------------------------------! !------------------------------------------------------------------------------! ! Emissions Scaling Rule Specification Component ! ! Each rule is presented as a row of inputs. The syntax of the ! ! emissions scaling rules is the following: ! ! EM_INSTR(I) = 'Region Label', 'Stream Label', 'Emission-Species', ! ! 'CMAQ-Species', 'Phase/Mode', 'Scale Factor', 'Basis', ! ! 'Operation' ! ! ! ! See the User's Guide for detailed definitions of each field. ! ! ! ! You may confirm the effect of the (default and custom) rules below by ! ! inspecting the processor-dependent log files ("CTM_LOG_XXX...") ! ! ! ! Note: If no rules are provided for a species, then there is no emission ! ! of that species. ! !------------------------------------------------------------------------------! &Desid_ScalingVars Desid_Max_Rules = 2000 / &Desid_Scaling Desid_Rules_nml = ! Region | Stream Label |Emission | CMAQ- |Phase/|Scale |Basis |Op ! Label | |Species | Species |Mode |Factor| | ! Gases 'EVERYWHERE', 'ALL' ,'NO2' ,'NO2' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'NO' ,'NO' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'HONO' ,'HONO' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'HCHO' ,'HCHO' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'CO' ,'CO' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'ACD' ,'ACD' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'ALD' ,'ALD' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'ACT' ,'ACT' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'UALD' ,'UALD' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'KET' ,'KET' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'MEK' ,'MEK' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'HKET' ,'HKET' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'MACR' ,'MACR' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'MVK' ,'MVK' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'GLY' ,'GLY' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'MGLY' ,'MGLY' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'BALD' ,'BALD' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'SO2' ,'SO2' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'SULF' ,'SULF' ,'GAS' ,0. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'ETH' ,'ETH' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'HC3' ,'HC3' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'HC5' ,'HC5' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'HC8' ,'HC8' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'ETE' ,'ETE' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'OLT' ,'OLT' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'OLI' ,'OLI' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'DIEN' ,'DIEN' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'ACE' ,'ACE' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'ORA1' ,'ORA1' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'BEN' ,'BENZENE' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PHEN' ,'PHEN' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'TOL' ,'TOL' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'CSL' ,'CSL' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'XYM' ,'XYM' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'XYP' ,'XYP' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'XYO' ,'XYO' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'ISO' ,'ISO' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'API' ,'API' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'LIM' ,'LIM' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'MOH' ,'MOH' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'EOH' ,'EOH' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'ROH' ,'ROH' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'ETEG' ,'ETEG' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'ORA2' ,'ORA2' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'SESQ' ,'SESQ' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'SOAALK' ,'SOAALK' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'NH3' ,'NH3' ,'GAS' ,1. ,'UNIT','a', ! Fine-Mode Aerosols 'EVERYWHERE', 'ALL' ,'SULF' ,'ASO4' ,'FINE' ,1. ,'MASS','a', 'EVERYWHERE', 'ALL' ,'PSO4' ,'ASO4' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PNH4' ,'ANH4' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PNO3' ,'ANO3' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PCL' ,'ACL' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PNA' ,'ANA' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PEC' ,'AEC' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMOTHR' ,'AOTHR' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PFE' ,'AFE' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PAL' ,'AAL' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PSI' ,'ASI' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PTI' ,'ATI' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PCA' ,'ACA' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMG' ,'AMG' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PK' ,'AK' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMN' ,'AMN' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PH2O' ,'AH2O' ,'FINE' ,1. ,'UNIT','a', ! Coarse-Mode Inorganic Ions Scaling 'EVERYWHERE', 'ALL' ,'PMC' ,'ACORS' ,'COARSE',0.99675,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMC' ,'ASO4' ,'COARSE',0.001 ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMC' ,'ANO3' ,'COARSE',0.00048,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMC' ,'ACL' ,'COARSE',0.00145,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMC' ,'AH2O' ,'COARSE',0.00032,'UNIT','a', ! Fine-Mode Primary Organic Aerosol Scaling ! --> Nonvolatile POA 'EVERYWHERE', 'ALL' ,'POC' ,'APOC' ,'FINE',0. ,'MASS','a', 'EVERYWHERE', 'ALL' ,'PNCOM' ,'APNCOM' ,'FINE',0. ,'MASS','a', ! --> Semivolatile POA (see CMAQ User's Guide Appendix B.2.2.1) 'EVERYWHERE', 'ALL' ,'POC' ,'VSVPO1' ,'GAS' ,0.045,'MASS','a', 'EVERYWHERE', 'ALL' ,'PNCOM' ,'VSVPO1' ,'GAS' ,0.045,'MASS','a', 'EVERYWHERE', 'ALL' ,'POC' ,'VSVPO2' ,'GAS' ,0.14 ,'MASS','a', 'EVERYWHERE', 'ALL' ,'PNCOM' ,'VSVPO2' ,'GAS' ,0.14 ,'MASS','a', 'EVERYWHERE', 'ALL' ,'POC' ,'VSVPO3' ,'GAS' ,0.18 ,'MASS','a', 'EVERYWHERE', 'ALL' ,'PNCOM' ,'VSVPO3' ,'GAS' ,0.18 ,'MASS','a', 'EVERYWHERE', 'ALL' ,'POC' ,'VIVPO1' ,'GAS' ,0.50 ,'MASS','a', 'EVERYWHERE', 'ALL' ,'PNCOM' ,'VIVPO1' ,'GAS' ,0.50 ,'MASS','a', 'EVERYWHERE', 'ALL' ,'POC' ,'ALVPO1' ,'FINE',0.09 ,'MASS','a', 'EVERYWHERE', 'ALL' ,'PNCOM' ,'ALVPO1' ,'FINE',0.09 ,'MASS','a', 'EVERYWHERE', 'ALL' ,'POC' ,'ASVPO1' ,'FINE',0.045,'MASS','a', 'EVERYWHERE', 'ALL' ,'PNCOM' ,'ASVPO1' ,'FINE',0.045,'MASS','a', ! pcSOA is a CMAQ species introduced to account for missing pathways for SOA ! formation from combustion sources. It accounts for IVOC oxidation as well as ! other phenomena (Murphy et al., ACP, 2017). It was parameterized based on data ! primarily from Los Angeles, where vehicle exhaust continues to dominate. 'EVERYWHERE', 'ALL' ,'POC' ,'PCVOC' ,'GAS' ,6.579,'MASS','a', 'EVERYWHERE', 'ALL' ,'PNCOM' ,'PCVOC' ,'GAS' ,6.579,'MASS','a', ! However, the added pcSOA is probably inappropriate for Fire sources, especially ! in its current configuration. This pathway should be zeroed out for all fire ! and wood-burning related sources. 'EVERYWHERE', 'PT_FIRES' ,'ALL' ,'PCVOC' ,'GAS' ,0.0 ,'MASS','o', 'EVERYWHERE', 'PT_RXFIRES' ,'ALL' ,'PCVOC' ,'GAS' ,0.0 ,'MASS','o', 'EVERYWHERE', 'PT_AGFIRES' ,'ALL' ,'PCVOC' ,'GAS' ,0.0 ,'MASS','o', 'EVERYWHERE', 'PT_OTHFIRES' ,'ALL' ,'PCVOC' ,'GAS' ,0.0 ,'MASS','o', 'EVERYWHERE', 'PT_FIRES_MXCA','ALL' ,'PCVOC' ,'GAS' ,0.0 ,'MASS','o', 'EVERYWHERE', 'GR_RES_FIRES' ,'ALL' ,'PCVOC' ,'GAS' ,0.0 ,'MASS','o', ! Wind-Blown Dust and Sea Spray Scaling ! Fine Components 'EVERYWHERE', 'ALL' ,'PMFINE_LVPO1','ALVPO1' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_LVOO1','ALVOO1' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_SO4' ,'ASO4' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_NO3' ,'ANO3' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_CL' ,'ACL' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_NH4' ,'ANH4' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_NA' ,'ANA' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_CA' ,'ACA' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_MG' ,'AMG' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_K' ,'AK' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_FE' ,'AFE' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_AL' ,'AAL' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_SI' ,'ASI' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_TI' ,'ATI' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_MN' ,'AMN' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_H2O' ,'AH2O' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_OTHR' ,'AOTHR' ,'FINE',1. ,'UNIT','a', ! Wind-Blown Dust and Sea Spray Scaling ! Coarse Components 'EVERYWHERE', 'ALL' ,'PMCOARSE_SO4','ASO4' ,'COARSE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMCOARSE_NO3','ANO3' ,'COARSE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMCOARSE_CL' ,'ACL' ,'COARSE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMCOARSE_H2O','AH2O' ,'COARSE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMCOARSE_SOIL','ASOIL' ,'COARSE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMCOARSE_SEACAT','ASEACAT' ,'COARSE',1. ,'UNIT','a', / ================================================ FILE: CCTM/src/MECHS/racm2_ae6_aq/CSQY_DATA_racm2_ae6_aq ================================================ Table for Mechanism = RACM2_AE6_AQ NPHOTAB = 30 !Individual rates listed below: O3O3P_NASA06 O3O1D_NASA06 H2O2_RACM2 NO2_RACM2 NO3NO_RACM2 NO3NO2_RACM2 HONO_RACM2 HNO3_RACM2 HNO4_RACM2 HCHO_MOL_JPL19 HCHO_RAD_JPL19 CH3CHO_RACM2 ALD_RACM2 CH3COCH3_RACM2 UALD_RACM2 MEK_RACM2 KET_RACM2 HKET_RACM2 MACR_RACM2 MVK_RACM2 GLYH2_RACM2 GLYF_RACM2 GLYHX_RACM2 MGLY_RACM2 BALD_RACM2 OP1_RACM2 PAA_RACM2 ONIT_RACM2 PAN1_RACM2 PAN2_RACM2 NTEMP = 6 ! I TEMP( I ) K 1 210.00 2 230.00 3 250.00 4 270.00 5 290.00 6 310.00 ! Wavelength and Photolysis Rate Parameters for CMAQ In-Line Photolysis ! calculation . The values are determined by averaging technique over the below ! number of wavelength bins. The technique employs an approach used by the FASTJX ! versions 6 and 7. !References: ! 1) Bian, H. S. and Prather, M. J.: Fast-J2: accurate simulation of stratospheric ! photolysis in global chemical models, J. Atmos. Chem., 41, 281-296 doi:10.1023/A:1014980619462, 2002. ! 2) Hsu, J. and Prather, M. J.: Stratospheric variability and tropospheric ozone, ! J. Geophys. Res., 114, D06102, doi:10.1029/2008JD010942, 2009. ! 3) Prather, M. J.: Fast-JX versions and utilities, available at: ! http://www.ess.uci.edu/researchgrp/prather/scholar_software/fast-jx ! (last accessed: 24 January 2014), 2014. ! Wave bands and Solar Flux ! N_INLINE_BAND = 7 ! I, START_WL_BIN(nm), EFFECT_WL_BIN_(nm), END_WL_BIN_(nm), photon_flux(cm-2*s-1), 1, 291.000, 294.590, 298.300, 5.8828E+14, 2, 298.300, 303.151, 307.500, 7.6354E+14, 3, 307.500, 310.007, 312.500, 5.0412E+14, 4, 312.500, 316.434, 320.300, 8.9628E+14, 5, 320.300, 333.076, 345.000, 3.8537E+15, 6, 345.000, 381.997, 412.500, 1.5457E+16, 7, 412.500, 607.723, 850.000, 2.1307E+17, !... CS = absorption cross sections averaged over UCI Solar Flux !... QY = quantum yields averaged over UCI Solar Flux !... EQY = eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model !PHOTAB QUANTITY TEMP WBIN( 1) WBIN( 2) WBIN( 3) WBIN( 4) WBIN( 5) WBIN( 6) WBIN( 7) O3O3P_NASA06 CS 210.000 7.688467E-19 2.422055E-19 8.920470E-20 3.650450E-20 4.746825E-21 6.139220E-23 1.666851E-21 O3O3P_NASA06 EQY 210.000 1.000000E-01 1.041791E-01 4.952917E-01 8.153871E-01 8.979595E-01 9.291306E-01 1.000000E+00 O3O3P_NASA06 CS 230.000 7.803585E-19 2.474376E-19 9.195177E-20 3.806528E-20 5.075878E-21 6.139220E-23 1.666851E-21 O3O3P_NASA06 EQY 230.000 1.000000E-01 1.041791E-01 4.902279E-01 8.178273E-01 8.979595E-01 9.291306E-01 1.000000E+00 O3O3P_NASA06 CS 250.000 7.995448E-19 2.561579E-19 9.653022E-20 4.066658E-20 5.624299E-21 6.139220E-23 1.666851E-21 O3O3P_NASA06 EQY 250.000 1.000000E-01 1.041791E-01 4.818958E-01 8.188244E-01 8.979595E-01 9.291306E-01 1.000000E+00 O3O3P_NASA06 CS 270.000 8.187311E-19 2.648782E-19 1.011087E-19 4.326788E-20 6.172721E-21 6.139220E-23 1.666851E-21 O3O3P_NASA06 EQY 270.000 1.000000E-01 1.041791E-01 4.677566E-01 8.131744E-01 8.979595E-01 9.291306E-01 1.000000E+00 O3O3P_NASA06 CS 290.000 8.379175E-19 2.735984E-19 1.056871E-19 4.586918E-20 6.721143E-21 6.139220E-23 1.666851E-21 O3O3P_NASA06 EQY 290.000 1.000000E-01 1.041791E-01 4.431264E-01 7.889175E-01 8.979595E-01 9.291306E-01 1.000000E+00 O3O3P_NASA06 CS 310.000 8.407954E-19 2.749065E-19 1.063739E-19 4.625938E-20 6.803406E-21 6.139220E-23 1.666851E-21 O3O3P_NASA06 EQY 310.000 1.000000E-01 1.041791E-01 3.989815E-01 7.203341E-01 8.979595E-01 9.291306E-01 1.000000E+00 O3O1D_NASA06 CS 210.000 7.808049E-19 2.423500E-19 8.920470E-20 3.650450E-20 4.604240E-21 5.459842E-23 0.000000E+00 O3O1D_NASA06 EQY 210.000 9.000000E-01 8.958209E-01 5.047083E-01 1.846129E-01 1.020405E-01 7.086939E-02 0.000000E+00 O3O1D_NASA06 CS 230.000 7.924958E-19 2.475853E-19 9.195177E-20 3.806528E-20 4.923409E-21 5.459842E-23 0.000000E+00 O3O1D_NASA06 EQY 230.000 9.000000E-01 8.958209E-01 5.097721E-01 1.821727E-01 1.020405E-01 7.086939E-02 0.000000E+00 O3O1D_NASA06 CS 250.000 8.119805E-19 2.563108E-19 9.653022E-20 4.066658E-20 5.455358E-21 5.459842E-23 0.000000E+00 O3O1D_NASA06 EQY 250.000 9.000000E-01 8.958209E-01 5.181042E-01 1.811756E-01 1.020405E-01 7.086939E-02 0.000000E+00 O3O1D_NASA06 CS 270.000 8.314653E-19 2.650363E-19 1.011087E-19 4.326788E-20 5.987306E-21 5.459842E-23 0.000000E+00 O3O1D_NASA06 EQY 270.000 9.000000E-01 8.958209E-01 5.322434E-01 1.868256E-01 1.020405E-01 7.086939E-02 0.000000E+00 O3O1D_NASA06 CS 290.000 8.509500E-19 2.737617E-19 1.056871E-19 4.586918E-20 6.519254E-21 5.459842E-23 0.000000E+00 O3O1D_NASA06 EQY 290.000 9.000000E-01 8.958209E-01 5.568736E-01 2.110825E-01 1.020405E-01 7.086939E-02 0.000000E+00 O3O1D_NASA06 CS 310.000 8.538727E-19 2.750705E-19 1.063739E-19 4.625938E-20 6.599046E-21 5.459842E-23 0.000000E+00 O3O1D_NASA06 EQY 310.000 9.000000E-01 8.958209E-01 6.010185E-01 2.796659E-01 1.020405E-01 7.086939E-02 0.000000E+00 H2O2_RACM2 CS 210.000 8.527608E-21 5.100901E-21 3.367998E-21 2.275936E-21 8.877982E-22 3.606306E-23 0.000000E+00 H2O2_RACM2 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 H2O2_RACM2 CS 230.000 8.650794E-21 5.196512E-21 3.446407E-21 2.339455E-21 9.231624E-22 3.606306E-23 0.000000E+00 H2O2_RACM2 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 H2O2_RACM2 CS 250.000 8.817123E-21 5.325610E-21 3.552278E-21 2.425221E-21 9.709122E-22 3.606306E-23 0.000000E+00 H2O2_RACM2 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 H2O2_RACM2 CS 270.000 9.028511E-21 5.489680E-21 3.686830E-21 2.534221E-21 1.031598E-21 3.606306E-23 0.000000E+00 H2O2_RACM2 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 H2O2_RACM2 CS 290.000 9.284830E-21 5.688624E-21 3.849979E-21 2.666389E-21 1.105182E-21 3.606306E-23 0.000000E+00 H2O2_RACM2 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 H2O2_RACM2 CS 310.000 9.584270E-21 5.921037E-21 4.040577E-21 2.820792E-21 1.191145E-21 3.606306E-23 0.000000E+00 H2O2_RACM2 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 NO2_RACM2 CS 210.000 1.058805E-19 1.460434E-19 1.905840E-19 2.362586E-19 3.715161E-19 5.867486E-19 1.088657E-19 NO2_RACM2 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 7.961922E-01 2.423882E-03 NO2_RACM2 CS 230.000 1.060328E-19 1.459734E-19 1.901860E-19 2.350003E-19 3.679235E-19 5.852241E-19 1.085850E-19 NO2_RACM2 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 7.961922E-01 2.423882E-03 NO2_RACM2 CS 250.000 1.063375E-19 1.458335E-19 1.893902E-19 2.324836E-19 3.607383E-19 5.821752E-19 1.080235E-19 NO2_RACM2 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 7.969987E-01 2.507727E-03 NO2_RACM2 CS 270.000 1.066422E-19 1.456936E-19 1.885943E-19 2.299669E-19 3.535530E-19 5.791262E-19 1.074620E-19 NO2_RACM2 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 8.050633E-01 3.346181E-03 NO2_RACM2 CS 290.000 1.069468E-19 1.455536E-19 1.877985E-19 2.274503E-19 3.463678E-19 5.760772E-19 1.069005E-19 NO2_RACM2 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 8.131279E-01 4.184634E-03 NO2_RACM2 CS 310.000 1.070078E-19 1.455256E-19 1.876393E-19 2.269469E-19 3.449308E-19 5.754674E-19 1.067882E-19 NO2_RACM2 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 8.163537E-01 4.520015E-03 NO3NO_RACM2 CS 210.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 5.348470E-21 1.872219E-18 NO3NO_RACM2 EQY 210.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 6.767835E-02 NO3NO_RACM2 CS 230.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 5.075907E-21 1.776809E-18 NO3NO_RACM2 EQY 230.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 6.699507E-02 NO3NO_RACM2 CS 250.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 4.791067E-21 1.677102E-18 NO3NO_RACM2 EQY 250.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 6.679738E-02 NO3NO_RACM2 CS 270.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 4.498338E-21 1.574633E-18 NO3NO_RACM2 EQY 270.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 6.659967E-02 NO3NO_RACM2 CS 290.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 4.201227E-21 1.470630E-18 NO3NO_RACM2 EQY 290.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 6.640198E-02 NO3NO_RACM2 CS 310.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 3.902507E-21 1.366063E-18 NO3NO_RACM2 EQY 310.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 6.632289E-02 NO3NO2_RACM2 CS 210.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 5.348470E-21 1.872219E-18 NO3NO2_RACM2 EQY 210.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.000000E+00 5.038201E-01 NO3NO2_RACM2 CS 230.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 5.075907E-21 1.776809E-18 NO3NO2_RACM2 EQY 230.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.000000E+00 5.129623E-01 NO3NO2_RACM2 CS 250.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 4.791067E-21 1.677102E-18 NO3NO2_RACM2 EQY 250.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.000000E+00 5.207280E-01 NO3NO2_RACM2 CS 270.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 4.498338E-21 1.574633E-18 NO3NO2_RACM2 EQY 270.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.000000E+00 5.284936E-01 NO3NO2_RACM2 CS 290.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 4.201227E-21 1.470630E-18 NO3NO2_RACM2 EQY 290.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.000000E+00 5.362592E-01 NO3NO2_RACM2 CS 310.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 3.902507E-21 1.366063E-18 NO3NO2_RACM2 EQY 310.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.000000E+00 5.393655E-01 HONO_RACM2 CS 210.000 5.628977E-21 9.694364E-21 1.881716E-20 2.969466E-20 7.453932E-20 6.563367E-20 0.000000E+00 HONO_RACM2 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HONO_RACM2 CS 230.000 5.628977E-21 9.694364E-21 1.881716E-20 2.969466E-20 7.453932E-20 6.563367E-20 0.000000E+00 HONO_RACM2 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HONO_RACM2 CS 250.000 5.628977E-21 9.694364E-21 1.881716E-20 2.969466E-20 7.453932E-20 6.563367E-20 0.000000E+00 HONO_RACM2 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HONO_RACM2 CS 270.000 5.628977E-21 9.694364E-21 1.881716E-20 2.969466E-20 7.453932E-20 6.563367E-20 0.000000E+00 HONO_RACM2 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HONO_RACM2 CS 290.000 5.628977E-21 9.694364E-21 1.881716E-20 2.969466E-20 7.453932E-20 6.563367E-20 0.000000E+00 HONO_RACM2 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HONO_RACM2 CS 310.000 5.628977E-21 9.694364E-21 1.881716E-20 2.969466E-20 7.453932E-20 6.563367E-20 0.000000E+00 HONO_RACM2 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HNO3_RACM2 CS 210.000 3.477740E-21 1.421362E-21 5.692533E-22 2.194328E-22 2.062589E-23 3.797806E-25 0.000000E+00 HNO3_RACM2 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HNO3_RACM2 CS 230.000 3.663356E-21 1.522325E-21 6.201572E-22 2.451096E-22 2.494077E-23 3.837348E-25 0.000000E+00 HNO3_RACM2 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HNO3_RACM2 CS 250.000 3.858879E-21 1.630460E-21 6.756130E-22 2.737909E-22 3.015831E-23 3.877301E-25 0.000000E+00 HNO3_RACM2 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HNO3_RACM2 CS 270.000 4.064837E-21 1.746275E-21 7.360279E-22 3.058283E-22 3.646735E-23 3.917671E-25 0.000000E+00 HNO3_RACM2 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HNO3_RACM2 CS 290.000 4.281789E-21 1.870318E-21 8.018451E-22 3.416145E-22 4.409623E-23 3.958460E-25 0.000000E+00 HNO3_RACM2 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HNO3_RACM2 CS 310.000 4.510320E-21 2.003171E-21 8.735479E-22 3.815883E-22 5.332105E-23 3.999674E-25 0.000000E+00 HNO3_RACM2 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HNO4_RACM2 CS 210.000 2.329949E-20 9.144530E-21 3.983048E-21 1.967534E-21 3.976035E-22 3.285247E-24 0.000000E+00 HNO4_RACM2 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HNO4_RACM2 CS 230.000 2.378244E-20 9.477436E-21 4.200296E-21 2.110804E-21 4.511061E-22 4.554065E-24 0.000000E+00 HNO4_RACM2 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HNO4_RACM2 CS 250.000 2.447801E-20 9.956912E-21 4.513192E-21 2.317151E-21 5.281641E-22 6.381496E-24 0.000000E+00 HNO4_RACM2 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HNO4_RACM2 CS 270.000 2.541218E-20 1.060086E-20 4.933421E-21 2.594282E-21 6.316551E-22 8.835790E-24 0.000000E+00 HNO4_RACM2 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HNO4_RACM2 CS 290.000 2.660059E-20 1.142006E-20 5.468013E-21 2.946832E-21 7.633113E-22 1.195802E-23 0.000000E+00 HNO4_RACM2 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HNO4_RACM2 CS 310.000 2.804907E-20 1.241853E-20 6.119599E-21 3.376538E-21 9.237795E-22 1.576353E-23 0.000000E+00 HNO4_RACM2 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HCHO_MOL_JPL19 CS 210.000 3.421879E-20 3.560449E-20 1.657337E-20 3.516176E-20 1.954326E-20 8.429568E-22 0.000000E+00 HCHO_MOL_JPL19 EQY 210.000 2.573368E-01 2.406493E-01 2.610733E-01 3.312798E-01 5.995203E-01 2.668753E-01 0.000000E+00 HCHO_MOL_JPL19 CS 230.000 3.421879E-20 3.560449E-20 1.657337E-20 3.516176E-20 1.954326E-20 8.429568E-22 0.000000E+00 HCHO_MOL_JPL19 EQY 230.000 2.573368E-01 2.406493E-01 2.610733E-01 3.312798E-01 5.995203E-01 2.668753E-01 0.000000E+00 HCHO_MOL_JPL19 CS 250.000 3.421879E-20 3.560449E-20 1.657337E-20 3.516176E-20 1.954326E-20 8.429568E-22 0.000000E+00 HCHO_MOL_JPL19 EQY 250.000 2.573368E-01 2.406493E-01 2.610733E-01 3.312798E-01 5.995203E-01 2.668753E-01 0.000000E+00 HCHO_MOL_JPL19 CS 270.000 3.421879E-20 3.560449E-20 1.657337E-20 3.516176E-20 1.954326E-20 8.429568E-22 0.000000E+00 HCHO_MOL_JPL19 EQY 270.000 2.573368E-01 2.406493E-01 2.610733E-01 3.312798E-01 5.995203E-01 2.668753E-01 0.000000E+00 HCHO_MOL_JPL19 CS 290.000 3.421879E-20 3.560449E-20 1.657337E-20 3.516176E-20 1.954326E-20 8.429568E-22 0.000000E+00 HCHO_MOL_JPL19 EQY 290.000 2.573368E-01 2.406493E-01 2.610733E-01 3.312798E-01 5.995203E-01 2.668753E-01 0.000000E+00 HCHO_MOL_JPL19 CS 310.000 3.421879E-20 3.560449E-20 1.657337E-20 3.516176E-20 1.954326E-20 8.429568E-22 0.000000E+00 HCHO_MOL_JPL19 EQY 310.000 2.573368E-01 2.406493E-01 2.610733E-01 3.312798E-01 5.995203E-01 2.668753E-01 0.000000E+00 HCHO_RAD_JPL19 CS 210.000 3.421879E-20 3.560449E-20 1.657337E-20 3.516176E-20 1.954326E-20 8.429568E-22 0.000000E+00 HCHO_RAD_JPL19 EQY 210.000 7.308307E-01 7.593507E-01 7.389267E-01 6.687202E-01 2.626862E-01 0.000000E+00 0.000000E+00 HCHO_RAD_JPL19 CS 230.000 3.421879E-20 3.560449E-20 1.657337E-20 3.516176E-20 1.954326E-20 8.429568E-22 0.000000E+00 HCHO_RAD_JPL19 EQY 230.000 7.308307E-01 7.593507E-01 7.389267E-01 6.687202E-01 2.626862E-01 0.000000E+00 0.000000E+00 HCHO_RAD_JPL19 CS 250.000 3.421879E-20 3.560449E-20 1.657337E-20 3.516176E-20 1.954326E-20 8.429568E-22 0.000000E+00 HCHO_RAD_JPL19 EQY 250.000 7.308307E-01 7.593507E-01 7.389267E-01 6.687202E-01 2.626862E-01 0.000000E+00 0.000000E+00 HCHO_RAD_JPL19 CS 270.000 3.421879E-20 3.560449E-20 1.657337E-20 3.516176E-20 1.954326E-20 8.429568E-22 0.000000E+00 HCHO_RAD_JPL19 EQY 270.000 7.308307E-01 7.593507E-01 7.389267E-01 6.687202E-01 2.626862E-01 0.000000E+00 0.000000E+00 HCHO_RAD_JPL19 CS 290.000 3.421879E-20 3.560449E-20 1.657337E-20 3.516176E-20 1.954326E-20 8.429568E-22 0.000000E+00 HCHO_RAD_JPL19 EQY 290.000 7.308307E-01 7.593507E-01 7.389267E-01 6.687202E-01 2.626862E-01 0.000000E+00 0.000000E+00 HCHO_RAD_JPL19 CS 310.000 3.421879E-20 3.560449E-20 1.657337E-20 3.516176E-20 1.954326E-20 8.429568E-22 0.000000E+00 HCHO_RAD_JPL19 EQY 310.000 7.308307E-01 7.593507E-01 7.389267E-01 6.687202E-01 2.626862E-01 0.000000E+00 0.000000E+00 CH3CHO_RACM2 CS 210.000 4.432880E-20 3.689178E-20 2.913527E-20 2.067145E-20 5.819010E-21 1.448852E-23 0.000000E+00 CH3CHO_RACM2 EQY 210.000 4.909960E-01 3.900005E-01 2.794830E-01 1.560880E-01 3.457768E-02 0.000000E+00 0.000000E+00 CH3CHO_RACM2 CS 230.000 4.432880E-20 3.689178E-20 2.913527E-20 2.067145E-20 5.819010E-21 1.448852E-23 0.000000E+00 CH3CHO_RACM2 EQY 230.000 4.909960E-01 3.900005E-01 2.794830E-01 1.560880E-01 3.457768E-02 0.000000E+00 0.000000E+00 CH3CHO_RACM2 CS 250.000 4.432880E-20 3.689178E-20 2.913527E-20 2.067145E-20 5.819010E-21 1.448852E-23 0.000000E+00 CH3CHO_RACM2 EQY 250.000 4.909960E-01 3.900005E-01 2.794830E-01 1.560880E-01 3.457768E-02 0.000000E+00 0.000000E+00 CH3CHO_RACM2 CS 270.000 4.432880E-20 3.689178E-20 2.913527E-20 2.067145E-20 5.819010E-21 1.448852E-23 0.000000E+00 CH3CHO_RACM2 EQY 270.000 4.909960E-01 3.900005E-01 2.794830E-01 1.560880E-01 3.457768E-02 0.000000E+00 0.000000E+00 CH3CHO_RACM2 CS 290.000 4.432880E-20 3.689178E-20 2.913527E-20 2.067145E-20 5.819010E-21 1.448852E-23 0.000000E+00 CH3CHO_RACM2 EQY 290.000 4.909960E-01 3.900005E-01 2.794830E-01 1.560880E-01 3.457768E-02 0.000000E+00 0.000000E+00 CH3CHO_RACM2 CS 310.000 4.432880E-20 3.689178E-20 2.913527E-20 2.067145E-20 5.819010E-21 1.448852E-23 0.000000E+00 CH3CHO_RACM2 EQY 310.000 4.909960E-01 3.900005E-01 2.794830E-01 1.560880E-01 3.457768E-02 0.000000E+00 0.000000E+00 ALD_RACM2 CS 210.000 5.538528E-20 4.640879E-20 3.579653E-20 2.484046E-20 5.903155E-21 1.354964E-23 0.000000E+00 ALD_RACM2 EQY 210.000 7.837766E-01 6.537235E-01 3.518922E-01 1.871543E-01 4.463136E-02 0.000000E+00 0.000000E+00 ALD_RACM2 CS 230.000 5.538528E-20 4.640879E-20 3.579653E-20 2.484046E-20 5.903155E-21 1.354964E-23 0.000000E+00 ALD_RACM2 EQY 230.000 7.837766E-01 6.537235E-01 3.518922E-01 1.871543E-01 4.463136E-02 0.000000E+00 0.000000E+00 ALD_RACM2 CS 250.000 5.538528E-20 4.640879E-20 3.579653E-20 2.484046E-20 5.903155E-21 1.354964E-23 0.000000E+00 ALD_RACM2 EQY 250.000 7.837766E-01 6.537235E-01 3.518922E-01 1.871543E-01 4.463136E-02 0.000000E+00 0.000000E+00 ALD_RACM2 CS 270.000 5.538528E-20 4.640879E-20 3.579653E-20 2.484046E-20 5.903155E-21 1.354964E-23 0.000000E+00 ALD_RACM2 EQY 270.000 7.837766E-01 6.537235E-01 3.518922E-01 1.871543E-01 4.463136E-02 0.000000E+00 0.000000E+00 ALD_RACM2 CS 290.000 5.538528E-20 4.640879E-20 3.579653E-20 2.484046E-20 5.903155E-21 1.354964E-23 0.000000E+00 ALD_RACM2 EQY 290.000 7.837766E-01 6.537235E-01 3.518922E-01 1.871543E-01 4.463136E-02 0.000000E+00 0.000000E+00 ALD_RACM2 CS 310.000 5.538528E-20 4.640879E-20 3.579653E-20 2.484046E-20 5.903155E-21 1.354964E-23 0.000000E+00 ALD_RACM2 EQY 310.000 7.837766E-01 6.537235E-01 3.518922E-01 1.871543E-01 4.463136E-02 0.000000E+00 0.000000E+00 CH3COCH3_RACM2 CS 210.000 3.470896E-20 2.266993E-20 1.367786E-20 7.413494E-21 9.284874E-22 8.095747E-25 0.000000E+00 CH3COCH3_RACM2 EQY 210.000 6.768508E-01 4.859926E-01 2.085669E-01 7.929024E-02 2.410316E-02 0.000000E+00 0.000000E+00 CH3COCH3_RACM2 CS 230.000 3.470896E-20 2.266993E-20 1.367786E-20 7.413494E-21 9.284874E-22 8.095747E-25 0.000000E+00 CH3COCH3_RACM2 EQY 230.000 6.768508E-01 4.859926E-01 2.085669E-01 7.929024E-02 2.410316E-02 0.000000E+00 0.000000E+00 CH3COCH3_RACM2 CS 250.000 3.470896E-20 2.266993E-20 1.367786E-20 7.413494E-21 9.284874E-22 8.095747E-25 0.000000E+00 CH3COCH3_RACM2 EQY 250.000 6.768508E-01 4.859926E-01 2.085669E-01 7.929024E-02 2.410316E-02 0.000000E+00 0.000000E+00 CH3COCH3_RACM2 CS 270.000 3.470896E-20 2.266993E-20 1.367786E-20 7.413494E-21 9.284874E-22 8.095747E-25 0.000000E+00 CH3COCH3_RACM2 EQY 270.000 6.768508E-01 4.859926E-01 2.085669E-01 7.929024E-02 2.410316E-02 0.000000E+00 0.000000E+00 CH3COCH3_RACM2 CS 290.000 3.470896E-20 2.266993E-20 1.367786E-20 7.413494E-21 9.284874E-22 8.095747E-25 0.000000E+00 CH3COCH3_RACM2 EQY 290.000 6.768508E-01 4.859926E-01 2.085669E-01 7.929024E-02 2.410316E-02 0.000000E+00 0.000000E+00 CH3COCH3_RACM2 CS 310.000 3.470896E-20 2.266993E-20 1.367786E-20 7.413494E-21 9.284874E-22 8.095747E-25 0.000000E+00 CH3COCH3_RACM2 EQY 310.000 6.768508E-01 4.859926E-01 2.085669E-01 7.929024E-02 2.410316E-02 0.000000E+00 0.000000E+00 UALD_RACM2 CS 210.000 2.726167E-20 3.900286E-20 4.799106E-20 5.560386E-20 5.993363E-20 1.199965E-20 0.000000E+00 UALD_RACM2 EQY 210.000 3.000000E-02 3.000000E-02 3.000000E-02 3.000000E-02 3.000000E-02 3.000000E-02 0.000000E+00 UALD_RACM2 CS 230.000 2.726167E-20 3.900286E-20 4.799106E-20 5.560386E-20 5.993363E-20 1.199965E-20 0.000000E+00 UALD_RACM2 EQY 230.000 3.000000E-02 3.000000E-02 3.000000E-02 3.000000E-02 3.000000E-02 3.000000E-02 0.000000E+00 UALD_RACM2 CS 250.000 2.726167E-20 3.900286E-20 4.799106E-20 5.560386E-20 5.993363E-20 1.199965E-20 0.000000E+00 UALD_RACM2 EQY 250.000 3.000000E-02 3.000000E-02 3.000000E-02 3.000000E-02 3.000000E-02 3.000000E-02 0.000000E+00 UALD_RACM2 CS 270.000 2.726167E-20 3.900286E-20 4.799106E-20 5.560386E-20 5.993363E-20 1.199965E-20 0.000000E+00 UALD_RACM2 EQY 270.000 3.000000E-02 3.000000E-02 3.000000E-02 3.000000E-02 3.000000E-02 3.000000E-02 0.000000E+00 UALD_RACM2 CS 290.000 2.726167E-20 3.900286E-20 4.799106E-20 5.560386E-20 5.993363E-20 1.199965E-20 0.000000E+00 UALD_RACM2 EQY 290.000 3.000000E-02 3.000000E-02 3.000000E-02 3.000000E-02 3.000000E-02 3.000000E-02 0.000000E+00 UALD_RACM2 CS 310.000 2.726167E-20 3.900286E-20 4.799106E-20 5.560386E-20 5.993363E-20 1.199965E-20 0.000000E+00 UALD_RACM2 EQY 310.000 3.000000E-02 3.000000E-02 3.000000E-02 3.000000E-02 3.000000E-02 3.000000E-02 0.000000E+00 MEK_RACM2 CS 210.000 4.152334E-20 2.674522E-20 1.566876E-20 7.717199E-21 7.863385E-22 0.000000E+00 0.000000E+00 MEK_RACM2 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 MEK_RACM2 CS 230.000 4.152334E-20 2.674522E-20 1.566876E-20 7.717199E-21 7.863385E-22 0.000000E+00 0.000000E+00 MEK_RACM2 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 MEK_RACM2 CS 250.000 4.152334E-20 2.674522E-20 1.566876E-20 7.717199E-21 7.863385E-22 0.000000E+00 0.000000E+00 MEK_RACM2 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 MEK_RACM2 CS 270.000 4.152334E-20 2.674522E-20 1.566876E-20 7.717199E-21 7.863385E-22 0.000000E+00 0.000000E+00 MEK_RACM2 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 MEK_RACM2 CS 290.000 4.152334E-20 2.674522E-20 1.566876E-20 7.717199E-21 7.863385E-22 0.000000E+00 0.000000E+00 MEK_RACM2 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 MEK_RACM2 CS 310.000 4.152334E-20 2.674522E-20 1.566876E-20 7.717199E-21 7.863385E-22 0.000000E+00 0.000000E+00 MEK_RACM2 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 KET_RACM2 CS 210.000 4.152334E-20 2.674522E-20 1.566876E-20 7.717199E-21 7.863385E-22 0.000000E+00 0.000000E+00 KET_RACM2 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 KET_RACM2 CS 230.000 4.152334E-20 2.674522E-20 1.566876E-20 7.717199E-21 7.863385E-22 0.000000E+00 0.000000E+00 KET_RACM2 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 KET_RACM2 CS 250.000 4.152334E-20 2.674522E-20 1.566876E-20 7.717199E-21 7.863385E-22 0.000000E+00 0.000000E+00 KET_RACM2 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 KET_RACM2 CS 270.000 4.152334E-20 2.674522E-20 1.566876E-20 7.717199E-21 7.863385E-22 0.000000E+00 0.000000E+00 KET_RACM2 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 KET_RACM2 CS 290.000 4.152334E-20 2.674522E-20 1.566876E-20 7.717199E-21 7.863385E-22 0.000000E+00 0.000000E+00 KET_RACM2 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 KET_RACM2 CS 310.000 4.152334E-20 2.674522E-20 1.566876E-20 7.717199E-21 7.863385E-22 0.000000E+00 0.000000E+00 KET_RACM2 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 HKET_RACM2 CS 210.000 1.992923E-20 7.535076E-21 2.932970E-21 1.413067E-21 3.523287E-22 0.000000E+00 0.000000E+00 HKET_RACM2 EQY 210.000 6.500000E-01 6.500000E-01 6.500000E-01 6.500000E-01 6.500000E-01 0.000000E+00 0.000000E+00 HKET_RACM2 CS 230.000 1.992923E-20 7.535076E-21 2.932970E-21 1.413067E-21 3.523287E-22 0.000000E+00 0.000000E+00 HKET_RACM2 EQY 230.000 6.500000E-01 6.500000E-01 6.500000E-01 6.500000E-01 6.500000E-01 0.000000E+00 0.000000E+00 HKET_RACM2 CS 250.000 1.992923E-20 7.535076E-21 2.932970E-21 1.413067E-21 3.523287E-22 0.000000E+00 0.000000E+00 HKET_RACM2 EQY 250.000 6.500000E-01 6.500000E-01 6.500000E-01 6.500000E-01 6.500000E-01 0.000000E+00 0.000000E+00 HKET_RACM2 CS 270.000 1.992923E-20 7.535076E-21 2.932970E-21 1.413067E-21 3.523287E-22 0.000000E+00 0.000000E+00 HKET_RACM2 EQY 270.000 6.500000E-01 6.500000E-01 6.500000E-01 6.500000E-01 6.500000E-01 0.000000E+00 0.000000E+00 HKET_RACM2 CS 290.000 1.992923E-20 7.535076E-21 2.932970E-21 1.413067E-21 3.523287E-22 0.000000E+00 0.000000E+00 HKET_RACM2 EQY 290.000 6.500000E-01 6.500000E-01 6.500000E-01 6.500000E-01 6.500000E-01 0.000000E+00 0.000000E+00 HKET_RACM2 CS 310.000 1.992923E-20 7.535076E-21 2.932970E-21 1.413067E-21 3.523287E-22 0.000000E+00 0.000000E+00 HKET_RACM2 EQY 310.000 6.500000E-01 6.500000E-01 6.500000E-01 6.500000E-01 6.500000E-01 0.000000E+00 0.000000E+00 MACR_RACM2 CS 210.000 2.653810E-20 3.941266E-20 4.989643E-20 5.893396E-20 6.529031E-20 1.389067E-20 0.000000E+00 MACR_RACM2 EQY 210.000 8.015506E-03 8.015506E-03 8.015506E-03 8.015506E-03 8.015506E-03 8.015506E-03 0.000000E+00 MACR_RACM2 CS 230.000 2.653810E-20 3.941266E-20 4.989643E-20 5.893396E-20 6.529031E-20 1.389067E-20 0.000000E+00 MACR_RACM2 EQY 230.000 8.015506E-03 8.015506E-03 8.015506E-03 8.015506E-03 8.015506E-03 8.015506E-03 0.000000E+00 MACR_RACM2 CS 250.000 2.653810E-20 3.941266E-20 4.989643E-20 5.893396E-20 6.529031E-20 1.389067E-20 0.000000E+00 MACR_RACM2 EQY 250.000 8.015506E-03 8.015506E-03 8.015506E-03 8.015506E-03 8.015506E-03 8.015506E-03 0.000000E+00 MACR_RACM2 CS 270.000 2.653810E-20 3.941266E-20 4.989643E-20 5.893396E-20 6.529031E-20 1.389067E-20 0.000000E+00 MACR_RACM2 EQY 270.000 8.015506E-03 8.015506E-03 8.015506E-03 8.015506E-03 8.015506E-03 8.015506E-03 0.000000E+00 MACR_RACM2 CS 290.000 2.653810E-20 3.941266E-20 4.989643E-20 5.893396E-20 6.529031E-20 1.389067E-20 0.000000E+00 MACR_RACM2 EQY 290.000 8.015506E-03 8.015506E-03 8.015506E-03 8.015506E-03 8.015506E-03 8.015506E-03 0.000000E+00 MACR_RACM2 CS 310.000 2.653810E-20 3.941266E-20 4.989643E-20 5.893396E-20 6.529031E-20 1.389067E-20 0.000000E+00 MACR_RACM2 EQY 310.000 8.015506E-03 8.015506E-03 8.015506E-03 8.015506E-03 8.015506E-03 8.015506E-03 0.000000E+00 MVK_RACM2 CS 210.000 3.026195E-20 4.372470E-20 5.436504E-20 6.304111E-20 6.815623E-20 1.494179E-20 0.000000E+00 MVK_RACM2 EQY 210.000 1.750145E-02 1.106229E-02 7.572843E-03 5.008090E-03 2.251655E-03 4.698719E-04 0.000000E+00 MVK_RACM2 CS 230.000 3.026195E-20 4.372470E-20 5.436504E-20 6.304111E-20 6.815623E-20 1.494179E-20 0.000000E+00 MVK_RACM2 EQY 230.000 1.750145E-02 1.106229E-02 7.572843E-03 5.008090E-03 2.251655E-03 4.698719E-04 0.000000E+00 MVK_RACM2 CS 250.000 3.026195E-20 4.372470E-20 5.436504E-20 6.304111E-20 6.815623E-20 1.494179E-20 0.000000E+00 MVK_RACM2 EQY 250.000 1.750145E-02 1.106229E-02 7.572843E-03 5.008090E-03 2.251655E-03 4.698719E-04 0.000000E+00 MVK_RACM2 CS 270.000 3.026195E-20 4.372470E-20 5.436504E-20 6.304111E-20 6.815623E-20 1.494179E-20 0.000000E+00 MVK_RACM2 EQY 270.000 1.750145E-02 1.106229E-02 7.572843E-03 5.008090E-03 2.251655E-03 4.698719E-04 0.000000E+00 MVK_RACM2 CS 290.000 3.026195E-20 4.372470E-20 5.436504E-20 6.304111E-20 6.815623E-20 1.494179E-20 0.000000E+00 MVK_RACM2 EQY 290.000 1.750145E-02 1.106229E-02 7.572843E-03 5.008090E-03 2.251655E-03 4.698719E-04 0.000000E+00 MVK_RACM2 CS 310.000 3.026195E-20 4.372470E-20 5.436504E-20 6.304111E-20 6.815623E-20 1.494179E-20 0.000000E+00 MVK_RACM2 EQY 310.000 1.750145E-02 1.106229E-02 7.572843E-03 5.008090E-03 2.251655E-03 4.698719E-04 0.000000E+00 GLYH2_RACM2 CS 210.000 3.772546E-20 3.537579E-20 3.193592E-20 2.608503E-20 1.125923E-20 2.667804E-20 1.453960E-20 GLYH2_RACM2 EQY 210.000 2.083945E-01 1.741676E-01 1.458094E-01 1.226219E-01 7.896682E-02 4.675626E-04 0.000000E+00 GLYH2_RACM2 CS 230.000 3.772546E-20 3.537579E-20 3.193592E-20 2.608503E-20 1.125923E-20 2.667804E-20 1.453960E-20 GLYH2_RACM2 EQY 230.000 2.083945E-01 1.741676E-01 1.458094E-01 1.226219E-01 7.896682E-02 4.675626E-04 0.000000E+00 GLYH2_RACM2 CS 250.000 3.772546E-20 3.537579E-20 3.193592E-20 2.608503E-20 1.125923E-20 2.667804E-20 1.453960E-20 GLYH2_RACM2 EQY 250.000 2.083945E-01 1.741676E-01 1.458094E-01 1.226219E-01 7.896682E-02 4.675626E-04 0.000000E+00 GLYH2_RACM2 CS 270.000 3.772546E-20 3.537579E-20 3.193592E-20 2.608503E-20 1.125923E-20 2.667804E-20 1.453960E-20 GLYH2_RACM2 EQY 270.000 2.083945E-01 1.741676E-01 1.458094E-01 1.226219E-01 7.896682E-02 4.675626E-04 0.000000E+00 GLYH2_RACM2 CS 290.000 3.772546E-20 3.537579E-20 3.193592E-20 2.608503E-20 1.125923E-20 2.667804E-20 1.453960E-20 GLYH2_RACM2 EQY 290.000 2.083945E-01 1.741676E-01 1.458094E-01 1.226219E-01 7.896682E-02 4.675626E-04 0.000000E+00 GLYH2_RACM2 CS 310.000 3.772546E-20 3.537579E-20 3.193592E-20 2.608503E-20 1.125923E-20 2.667804E-20 1.453960E-20 GLYH2_RACM2 EQY 310.000 2.083945E-01 1.741676E-01 1.458094E-01 1.226219E-01 7.896682E-02 4.675626E-04 0.000000E+00 GLYF_RACM2 CS 210.000 3.772546E-20 3.537579E-20 3.193592E-20 2.608503E-20 1.125923E-20 2.667804E-20 1.453960E-20 GLYF_RACM2 EQY 210.000 4.492523E-01 4.582704E-01 4.575158E-01 4.464855E-01 3.643574E-01 9.914810E-03 6.082142E-05 GLYF_RACM2 CS 230.000 3.772546E-20 3.537579E-20 3.193592E-20 2.608503E-20 1.125923E-20 2.667804E-20 1.453960E-20 GLYF_RACM2 EQY 230.000 4.492523E-01 4.582704E-01 4.575158E-01 4.464855E-01 3.643574E-01 9.914810E-03 6.082142E-05 GLYF_RACM2 CS 250.000 3.772546E-20 3.537579E-20 3.193592E-20 2.608503E-20 1.125923E-20 2.667804E-20 1.453960E-20 GLYF_RACM2 EQY 250.000 4.492523E-01 4.582704E-01 4.575158E-01 4.464855E-01 3.643574E-01 9.914810E-03 6.082142E-05 GLYF_RACM2 CS 270.000 3.772546E-20 3.537579E-20 3.193592E-20 2.608503E-20 1.125923E-20 2.667804E-20 1.453960E-20 GLYF_RACM2 EQY 270.000 4.492523E-01 4.582704E-01 4.575158E-01 4.464855E-01 3.643574E-01 9.914810E-03 6.082142E-05 GLYF_RACM2 CS 290.000 3.772546E-20 3.537579E-20 3.193592E-20 2.608503E-20 1.125923E-20 2.667804E-20 1.453960E-20 GLYF_RACM2 EQY 290.000 4.492523E-01 4.582704E-01 4.575158E-01 4.464855E-01 3.643574E-01 9.914810E-03 6.082142E-05 GLYF_RACM2 CS 310.000 3.772546E-20 3.537579E-20 3.193592E-20 2.608503E-20 1.125923E-20 2.667804E-20 1.453960E-20 GLYF_RACM2 EQY 310.000 4.492523E-01 4.582704E-01 4.575158E-01 4.464855E-01 3.643574E-01 9.914810E-03 6.082142E-05 GLYHX_RACM2 CS 210.000 3.772546E-20 3.537579E-20 3.193592E-20 2.608503E-20 1.125923E-20 2.667804E-20 1.453960E-20 GLYHX_RACM2 EQY 210.000 3.424615E-01 3.676233E-01 3.968463E-01 4.307733E-01 5.451978E-01 6.424549E-02 3.251833E-03 GLYHX_RACM2 CS 230.000 3.772546E-20 3.537579E-20 3.193592E-20 2.608503E-20 1.125923E-20 2.667804E-20 1.453960E-20 GLYHX_RACM2 EQY 230.000 3.424615E-01 3.676233E-01 3.968463E-01 4.307733E-01 5.451978E-01 6.424549E-02 3.251833E-03 GLYHX_RACM2 CS 250.000 3.772546E-20 3.537579E-20 3.193592E-20 2.608503E-20 1.125923E-20 2.667804E-20 1.453960E-20 GLYHX_RACM2 EQY 250.000 3.424615E-01 3.676233E-01 3.968463E-01 4.307733E-01 5.451978E-01 6.424549E-02 3.251833E-03 GLYHX_RACM2 CS 270.000 3.772546E-20 3.537579E-20 3.193592E-20 2.608503E-20 1.125923E-20 2.667804E-20 1.453960E-20 GLYHX_RACM2 EQY 270.000 3.424615E-01 3.676233E-01 3.968463E-01 4.307733E-01 5.451978E-01 6.424549E-02 3.251833E-03 GLYHX_RACM2 CS 290.000 3.772546E-20 3.537579E-20 3.193592E-20 2.608503E-20 1.125923E-20 2.667804E-20 1.453960E-20 GLYHX_RACM2 EQY 290.000 3.424615E-01 3.676233E-01 3.968463E-01 4.307733E-01 5.451978E-01 6.424549E-02 3.251833E-03 GLYHX_RACM2 CS 310.000 3.772546E-20 3.537579E-20 3.193592E-20 2.608503E-20 1.125923E-20 2.667804E-20 1.453960E-20 GLYHX_RACM2 EQY 310.000 3.424615E-01 3.676233E-01 3.968463E-01 4.307733E-01 5.451978E-01 6.424549E-02 3.251833E-03 MGLY_RACM2 CS 210.000 4.369065E-20 3.468163E-20 2.431083E-20 1.791723E-20 6.182988E-21 3.703444E-20 7.886681E-21 MGLY_RACM2 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 6.094060E-01 1.339466E-01 MGLY_RACM2 CS 230.000 4.369065E-20 3.468163E-20 2.431083E-20 1.791723E-20 6.182988E-21 3.703444E-20 7.886681E-21 MGLY_RACM2 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 6.094060E-01 1.339466E-01 MGLY_RACM2 CS 250.000 4.369065E-20 3.468163E-20 2.431083E-20 1.791723E-20 6.182988E-21 3.703444E-20 7.886681E-21 MGLY_RACM2 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 6.094060E-01 1.339466E-01 MGLY_RACM2 CS 270.000 4.369065E-20 3.468163E-20 2.431083E-20 1.791723E-20 6.182988E-21 3.703444E-20 7.886681E-21 MGLY_RACM2 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 6.094060E-01 1.339466E-01 MGLY_RACM2 CS 290.000 4.369065E-20 3.468163E-20 2.431083E-20 1.791723E-20 6.182988E-21 3.703444E-20 7.886681E-21 MGLY_RACM2 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 6.094060E-01 1.339466E-01 MGLY_RACM2 CS 310.000 4.369065E-20 3.468163E-20 2.431083E-20 1.791723E-20 6.182988E-21 3.703444E-20 7.886681E-21 MGLY_RACM2 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 6.094060E-01 1.339466E-01 BALD_RACM2 CS 210.000 4.785295E-19 7.446018E-20 7.090561E-20 8.511820E-20 9.190661E-20 1.652288E-20 0.000000E+00 BALD_RACM2 EQY 210.000 6.000000E-02 6.000000E-02 6.000000E-02 6.000000E-02 6.000000E-02 5.654883E-02 0.000000E+00 BALD_RACM2 CS 230.000 4.785295E-19 7.446018E-20 7.090561E-20 8.511820E-20 9.190661E-20 1.652288E-20 0.000000E+00 BALD_RACM2 EQY 230.000 6.000000E-02 6.000000E-02 6.000000E-02 6.000000E-02 6.000000E-02 5.654883E-02 0.000000E+00 BALD_RACM2 CS 250.000 4.785295E-19 7.446018E-20 7.090561E-20 8.511820E-20 9.190661E-20 1.652288E-20 0.000000E+00 BALD_RACM2 EQY 250.000 6.000000E-02 6.000000E-02 6.000000E-02 6.000000E-02 6.000000E-02 5.654883E-02 0.000000E+00 BALD_RACM2 CS 270.000 4.785295E-19 7.446018E-20 7.090561E-20 8.511820E-20 9.190661E-20 1.652288E-20 0.000000E+00 BALD_RACM2 EQY 270.000 6.000000E-02 6.000000E-02 6.000000E-02 6.000000E-02 6.000000E-02 5.654883E-02 0.000000E+00 BALD_RACM2 CS 290.000 4.785295E-19 7.446018E-20 7.090561E-20 8.511820E-20 9.190661E-20 1.652288E-20 0.000000E+00 BALD_RACM2 EQY 290.000 6.000000E-02 6.000000E-02 6.000000E-02 6.000000E-02 6.000000E-02 5.654883E-02 0.000000E+00 BALD_RACM2 CS 310.000 4.785295E-19 7.446018E-20 7.090561E-20 8.511820E-20 9.190661E-20 1.652288E-20 0.000000E+00 BALD_RACM2 EQY 310.000 6.000000E-02 6.000000E-02 6.000000E-02 6.000000E-02 6.000000E-02 5.654883E-02 0.000000E+00 OP1_RACM2 CS 210.000 5.502859E-21 3.521580E-21 2.407395E-21 1.698535E-21 7.264998E-22 4.583933E-23 0.000000E+00 OP1_RACM2 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 OP1_RACM2 CS 230.000 5.502859E-21 3.521580E-21 2.407395E-21 1.698535E-21 7.264998E-22 4.583933E-23 0.000000E+00 OP1_RACM2 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 OP1_RACM2 CS 250.000 5.502859E-21 3.521580E-21 2.407395E-21 1.698535E-21 7.264998E-22 4.583933E-23 0.000000E+00 OP1_RACM2 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 OP1_RACM2 CS 270.000 5.502859E-21 3.521580E-21 2.407395E-21 1.698535E-21 7.264998E-22 4.583933E-23 0.000000E+00 OP1_RACM2 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 OP1_RACM2 CS 290.000 5.502859E-21 3.521580E-21 2.407395E-21 1.698535E-21 7.264998E-22 4.583933E-23 0.000000E+00 OP1_RACM2 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 OP1_RACM2 CS 310.000 5.502859E-21 3.521580E-21 2.407395E-21 1.698535E-21 7.264998E-22 4.583933E-23 0.000000E+00 OP1_RACM2 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 PAA_RACM2 CS 210.000 1.925838E-21 1.009150E-21 5.907156E-22 3.670602E-22 1.041377E-22 0.000000E+00 0.000000E+00 PAA_RACM2 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 PAA_RACM2 CS 230.000 1.925838E-21 1.009150E-21 5.907156E-22 3.670602E-22 1.041377E-22 0.000000E+00 0.000000E+00 PAA_RACM2 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 PAA_RACM2 CS 250.000 1.925838E-21 1.009150E-21 5.907156E-22 3.670602E-22 1.041377E-22 0.000000E+00 0.000000E+00 PAA_RACM2 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 PAA_RACM2 CS 270.000 1.925838E-21 1.009150E-21 5.907156E-22 3.670602E-22 1.041377E-22 0.000000E+00 0.000000E+00 PAA_RACM2 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 PAA_RACM2 CS 290.000 1.925838E-21 1.009150E-21 5.907156E-22 3.670602E-22 1.041377E-22 0.000000E+00 0.000000E+00 PAA_RACM2 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 PAA_RACM2 CS 310.000 1.925838E-21 1.009150E-21 5.907156E-22 3.670602E-22 1.041377E-22 0.000000E+00 0.000000E+00 PAA_RACM2 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 ONIT_RACM2 CS 210.000 9.713560E-21 4.546408E-21 2.120818E-21 9.214405E-22 1.152105E-22 1.219897E-24 0.000000E+00 ONIT_RACM2 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 ONIT_RACM2 CS 230.000 9.713560E-21 4.546408E-21 2.120818E-21 9.214405E-22 1.152105E-22 1.219897E-24 0.000000E+00 ONIT_RACM2 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 ONIT_RACM2 CS 250.000 1.018927E-20 4.819206E-21 2.272045E-21 1.003918E-21 1.288490E-22 1.219897E-24 0.000000E+00 ONIT_RACM2 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 ONIT_RACM2 CS 270.000 1.121172E-20 5.414893E-21 2.607618E-21 1.191682E-21 1.611607E-22 1.219897E-24 0.000000E+00 ONIT_RACM2 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 ONIT_RACM2 CS 290.000 1.233676E-20 6.084210E-21 2.992754E-21 1.414564E-21 2.015753E-22 1.219897E-24 0.000000E+00 ONIT_RACM2 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 ONIT_RACM2 CS 310.000 1.357470E-20 6.836260E-21 3.434773E-21 1.679132E-21 2.521246E-22 1.219897E-24 0.000000E+00 ONIT_RACM2 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 PAN1_RACM2 CS 210.000 1.768018E-21 6.646887E-22 3.009928E-22 1.566195E-22 3.492933E-23 1.494937E-24 0.000000E+00 PAN1_RACM2 EQY 210.000 8.000000E-01 8.000000E-01 6.922216E-01 6.000000E-01 6.000000E-01 6.000000E-01 0.000000E+00 PAN1_RACM2 CS 230.000 2.071785E-21 7.907078E-22 3.614192E-22 1.899570E-22 4.384918E-23 1.511154E-24 0.000000E+00 PAN1_RACM2 EQY 230.000 8.000000E-01 8.000000E-01 6.922216E-01 6.000000E-01 6.000000E-01 6.000000E-01 0.000000E+00 PAN1_RACM2 CS 250.000 2.427744E-21 9.406189E-22 4.339766E-22 2.303907E-22 5.504689E-23 1.527546E-24 0.000000E+00 PAN1_RACM2 EQY 250.000 8.000000E-01 8.000000E-01 6.922216E-01 6.000000E-01 6.000000E-01 6.000000E-01 0.000000E+00 PAN1_RACM2 CS 270.000 2.844861E-21 1.118952E-21 5.211004E-22 2.794310E-22 6.910414E-23 1.544117E-24 0.000000E+00 PAN1_RACM2 EQY 270.000 8.000000E-01 8.000000E-01 6.922216E-01 6.000000E-01 6.000000E-01 6.000000E-01 0.000000E+00 PAN1_RACM2 CS 290.000 3.333644E-21 1.331095E-21 6.257149E-22 3.389099E-22 8.675118E-23 1.560867E-24 0.000000E+00 PAN1_RACM2 EQY 290.000 8.000000E-01 8.000000E-01 6.922216E-01 6.000000E-01 6.000000E-01 6.000000E-01 0.000000E+00 PAN1_RACM2 CS 310.000 3.906406E-21 1.583459E-21 7.513316E-22 4.110492E-22 1.089047E-22 1.577798E-24 0.000000E+00 PAN1_RACM2 EQY 310.000 8.000000E-01 8.000000E-01 6.922216E-01 6.000000E-01 6.000000E-01 6.000000E-01 0.000000E+00 PAN2_RACM2 CS 210.000 1.768018E-21 6.646887E-22 3.009928E-22 1.566195E-22 3.492933E-23 1.494937E-24 0.000000E+00 PAN2_RACM2 EQY 210.000 2.000000E-01 2.000000E-01 3.077784E-01 4.000000E-01 4.000000E-01 4.000000E-01 0.000000E+00 PAN2_RACM2 CS 230.000 2.071785E-21 7.907078E-22 3.614192E-22 1.899570E-22 4.384918E-23 1.511154E-24 0.000000E+00 PAN2_RACM2 EQY 230.000 2.000000E-01 2.000000E-01 3.077784E-01 4.000000E-01 4.000000E-01 4.000000E-01 0.000000E+00 PAN2_RACM2 CS 250.000 2.427744E-21 9.406189E-22 4.339766E-22 2.303907E-22 5.504689E-23 1.527546E-24 0.000000E+00 PAN2_RACM2 EQY 250.000 2.000000E-01 2.000000E-01 3.077784E-01 4.000000E-01 4.000000E-01 4.000000E-01 0.000000E+00 PAN2_RACM2 CS 270.000 2.844861E-21 1.118952E-21 5.211004E-22 2.794310E-22 6.910414E-23 1.544117E-24 0.000000E+00 PAN2_RACM2 EQY 270.000 2.000000E-01 2.000000E-01 3.077784E-01 4.000000E-01 4.000000E-01 4.000000E-01 0.000000E+00 PAN2_RACM2 CS 290.000 3.333644E-21 1.331095E-21 6.257149E-22 3.389099E-22 8.675118E-23 1.560867E-24 0.000000E+00 PAN2_RACM2 EQY 290.000 2.000000E-01 2.000000E-01 3.077784E-01 4.000000E-01 4.000000E-01 4.000000E-01 0.000000E+00 PAN2_RACM2 CS 310.000 3.906406E-21 1.583459E-21 7.513316E-22 4.110492E-22 1.089047E-22 1.577798E-24 0.000000E+00 PAN2_RACM2 EQY 310.000 2.000000E-01 2.000000E-01 3.077784E-01 4.000000E-01 4.000000E-01 4.000000E-01 0.000000E+00 ! Ozone Cross-Section for Stratospheric Opacity based on Table 4-5 in ! Chemical Kinetics and Photochemical Data for Use in Atmospheric ! Studies Evaluation Number 15. Sander et. al: NASA-JPL 2006 NTEMP_STRAT = 6 ! QUANTITY TEMP WBIN( 1) WBIN( 2) WBIN( 3) WBIN( 4) WBIN( 5) WBIN( 6) WBIN( 7) O3_STRAT CS 180.000 6.113743E-19 2.263004E-19 8.354117E-20 3.417408E-20 3.688351E-21 4.086261E-23 1.663175E-21 O3_STRAT CS 260.000 6.434133E-19 2.434104E-19 9.254548E-20 3.928807E-20 4.583227E-21 4.086261E-23 1.663175E-21 O3_STRAT CS 300.000 6.685868E-19 2.568540E-19 9.962031E-20 4.330621E-20 5.286344E-21 4.086261E-23 1.663175E-21 O3_STRAT CS 340.000 6.685868E-19 2.568540E-19 9.962031E-20 4.330621E-20 5.286344E-21 4.086261E-23 1.663175E-21 O3_STRAT CS 380.000 6.685868E-19 2.568540E-19 9.962031E-20 4.330621E-20 5.286344E-21 4.086261E-23 1.663175E-21 O3_STRAT CS 420.000 6.685868E-19 2.568540E-19 9.962031E-20 4.330621E-20 5.286344E-21 4.086261E-23 1.663175E-21 ================================================ FILE: CCTM/src/MECHS/racm2_ae6_aq/GC_racm2_ae6_aq.nml ================================================ &GC_nml GC_SPECIES_DATA = !SPECIES ,MOLWT ,IC ,IC_FAC ,BC ,BC_FAC ,DRYDEP SURR ,FAC ,WET-SCAV SURR ,FAC ,GC2AE SURR ,GC2AQ SURR,TRNS ,DDEP ,WDEP ,CONC 'O3' , 48.0 ,'' ,-1 ,'' ,-1 ,'VD_O3' , 1 ,'O3' , 1 ,'' ,'O3' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'O3P' , 16.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'O1D' , 16.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'H2O2' , 34.0 ,'' ,-1 ,'' ,-1 ,'VD_H2O2' , 1 ,'H2O2' , 1 ,'' ,'H2O2' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'HO' , 17.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'OH' ,'HO' ,'' ,'' ,'' ,'Yes', 'NO2' , 46.0 ,'' ,-1 ,'' ,-1 ,'VD_NO2' , 1 ,'NO2' , 1 ,'NO2' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'NO' , 30.0 ,'' ,-1 ,'' ,-1 ,'VD_NO' , 1 ,'NO' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'NO3' , 62.0 ,'' ,-1 ,'' ,-1 ,'VD_NO3' , 1 ,'NO3' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'HONO' , 47.0 ,'' ,-1 ,'' ,-1 ,'VD_HONO' , 1 ,'HNO2' , 1 ,'HONO' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'HNO3' , 63.0 ,'' ,-1 ,'' ,-1 ,'VD_HNO3' , 1 ,'HNO3' , 1 ,'HNO3' ,'HNO3' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'HNO4' , 79.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'HNO4' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'HO2' , 33.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'HCHO' , 30.0 ,'' ,-1 ,'' ,-1 ,'VD_HCHO' , 1 ,'FORMALDEHYDE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'CO' , 28.0 ,'' ,-1 ,'' ,-1 ,'VD_CO' , 1 ,'CO' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ACD' , 44.0 ,'' ,-1 ,'' ,-1 ,'VD_ALD' , 1 ,'ACETALDEHYDE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'MO2' , 47.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'ALD' , 58.0 ,'' ,-1 ,'' ,-1 ,'VD_GEN_ALD' , 1 ,'GENERIC_ALDEHYDE', 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ETHP' , 61.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'ACT' , 58.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'ACETONE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'ACO3' , 75.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'UALD' , 84.0 ,'' ,-1 ,'' ,-1 ,'VD_GEN_ALD' , 1 ,'GENERIC_ALDEHYDE', 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'KET' , 86.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'DIETHYLKETONE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'MEK' , 72.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'MEK' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'HKET' , 74.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'HYDROXY-ACETONE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'MACR' , 70.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'METHACROLEIN' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'MACP' ,101.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'XO2' , 1.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'MVK' , 70.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'MVK' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'GLY' , 58.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'GLYOXAL' , 1 ,'' ,'GLY' ,'Yes' ,'' ,'Yes' ,'Yes', 'MGLY' , 72.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'METHYL_GLYOXAL' , 1 ,'' ,'MGLY' ,'Yes' ,'' ,'Yes' ,'Yes', 'DCB1' , 91.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'METHACROLEIN' , 1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'DCB2' ,110.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'METHACROLEIN' , 1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'BALD' ,106.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'BENZALDEHYDE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'CHO' ,139.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'OP1' , 48.0 ,'' ,-1 ,'' ,-1 ,'VD_OP' , 1 ,'METHYLHYDROPEROX', 1 ,'' ,'MHP' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'OP2' , 62.0 ,'' ,-1 ,'' ,-1 ,'VD_OP' , 1 ,'METHYLHYDROPEROX', 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'PAA' , 76.0 ,'' ,-1 ,'' ,-1 ,'VD_PAA' , 1 ,'PEROXYACETIC_ACI', 1 ,'' ,'PAA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ONIT' ,119.0 ,'' ,-1 ,'' ,-1 ,'VD_PAN' , 1 ,'MPAN' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'PAN' ,121.0 ,'' ,-1 ,'' ,-1 ,'VD_PAN' , 1 ,'PAN' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'N2O5' ,108.0 ,'' ,-1 ,'' ,-1 ,'VD_N2O5' , 1 ,'N2O5' , 1 ,'N2O5' ,'N2O5' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SO2' , 64.0 ,'' ,-1 ,'' ,-1 ,'VD_SO2' , 1 ,'SO2' , 1 ,'' ,'SO2' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SULF' , 98.0 ,'' ,-1 ,'' ,-1 ,'VD_SULF' , 1 ,'H2SO4' , 1 ,'SULF' ,'H2SO4' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SULRXN' , 98.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'SULPRD' ,'' ,'' ,'' ,'' ,'' , 'ETH' , 30.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'ETHANE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'HC3' , 44.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'PROPANE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'HC3P' , 75.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'HC5' , 72.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'PENTANE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'HC5P' ,103.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'HC8' ,114.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'OCTANE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'HC8P' ,145.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'ETE' , 28.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'ETHENE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'ETEP' , 77.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'OLT' , 42.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'ETHENE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'OLTP' , 91.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'OLI' , 68.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'ETHENE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'OLIP' ,117.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'DIEN' , 54.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'13-BUTADIENE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'ACE' , 26.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'ACETYLENE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'ORA1' , 46.0 ,'' ,-1 ,'' ,-1 ,'VD_ORA' , 1 ,'FORMIC_ACID' , 1 ,'' ,'FOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'BENZENE' , 78.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'BENZENE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'BENP' ,127.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'EPX' ,122.5 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'MEK' , 1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'PHEN' , 94.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'PHENOL' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'BENZRO2' ,127.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'TOL' , 92.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'TOLUENE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'TR2' ,109.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'TLP1' , 91.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'CSL' ,108.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'2-CRESOL' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'TOLRO2' ,141.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'XYM' ,106.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'M-XYLENE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'XY2' ,124.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'XYL1' ,156.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'XYLRO2' ,155.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'XYP' ,106.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'P-XYLENE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'XYO' ,106.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'O-XYLENE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'XYO2' ,155.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'ISO' , 68.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'ISOPRENE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'ISOP' ,117.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'ISOPRXN' , 68.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'ISOPRXN' ,'' ,'' ,'' ,'' ,'' , 'API' ,136.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'PINENE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'APIP' ,185.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'TRPRXN' ,136.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'TRPRXN' ,'' ,'' ,'' ,'' ,'' , 'LIM' ,136.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'PINENE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'LIMP' ,185.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'RCO3' , 90.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'ACTP' , 89.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'MEKP' ,103.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'KETP' ,117.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'MCP' ,119.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'MVKP' ,119.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'UALP' ,133.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'DCB3' , 84.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'METHACROLEIN' , 1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'BALP' ,137.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'ADDC' ,125.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'MCT' ,124.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'PYROCATECHOL' , 1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'MCTO' ,123.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'MOH' , 32.0 ,'' ,-1 ,'' ,-1 ,'VD_METHANOL' , 1 ,'METHANOL' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'EOH' , 46.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'ETHANOL' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'ROH' , 60.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'N-PROPANOL' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'ETEG' , 62.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'ETHYLENEGLYCOL' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'ISHP' ,118.0 ,'' ,-1 ,'' ,-1 ,'VD_OP' , 1 ,'METHACROLEIN' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'IEPOX' ,118.1 ,'' ,-1 ,'' ,-1 ,'VD_OP' ,1.5 ,'HYDROXY_PEROXIDE', 1 ,'IEPOX' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'MAHP' ,102.0 ,'' ,-1 ,'' ,-1 ,'VD_OP' , 1 ,'METHACROLEIN' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ORA2' , 60.0 ,'' ,-1 ,'' ,-1 ,'VD_ORA' , 1 ,'ACETIC_ACID' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ORAP' ,109.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'PPN' ,135.0 ,'' ,-1 ,'' ,-1 ,'VD_PAN' , 1 ,'PPN' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'MPAN' ,148.0 ,'' ,-1 ,'' ,-1 ,'VD_PAN' , 1 ,'MPAN' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'NALD' ,105.0 ,'' ,-1 ,'' ,-1 ,'VD_PAN' , 1 ,'2NITRO_1BUTNL' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ISON' ,147.0 ,'' ,-1 ,'' ,-1 ,'VD_PAN' , 1 ,'2NITRO_1BUTNL' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'MCTP' ,172.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'OLNN' ,136.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'OLND' ,136.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'ADCN' ,156.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'TOLP' ,141.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'PER1' ,141.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'XYLP' ,155.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'PER2' ,157.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'XYOP' ,155.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'BAL1' ,121.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'BAL2' ,105.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'TOLNRXN' ,141.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'TOLNRXN' ,'' ,'' ,'' ,'' ,'' , 'TOLHRXN' ,141.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'TOLHRXN' ,'' ,'' ,'' ,'' ,'' , 'XYLNRXN' ,155.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'XYLNRXN' ,'' ,'' ,'' ,'' ,'' , 'XYLHRXN' ,155.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'XYLHRXN' ,'' ,'' ,'' ,'' ,'' , 'BNZNRXN' ,127.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'BNZNRXN' ,'' ,'' ,'' ,'' ,'' , 'BNZHRXN' ,127.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'BNZHRXN' ,'' ,'' ,'' ,'' ,'' , 'SESQ' ,204.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'PINENE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'SESQRXN' ,204.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'SESQRXN' ,'' ,'' ,'' ,'' ,'' , 'NAPH' ,128.2 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'O-XYLENE' , 1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'PAHRO2' ,187.2 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'PAHNRXN' ,187.2 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'PAHNRXN' ,'' ,'' ,'' ,'' ,'' , 'PAHHRXN' ,187.2 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'PAHHRXN' ,'' ,'' ,'' ,'' ,'' , 'SOAALK' ,112.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'DECANE' , 1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'ALKRXN' ,112.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'ALKRXN' ,'' ,'' ,'' ,'' ,'' , 'VLVPO1' ,218.0 ,'' ,-1 ,'' ,-1 ,'VD_ORA' , 1 ,'ADIPIC_ACID' , 1 ,'VLVPO1' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'VSVPO1' ,230.0 ,'' ,-1 ,'' ,-1 ,'VD_ORA' , 1 ,'ADIPIC_ACID' , 1 ,'VSVPO1' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'VSVPO2' ,241.0 ,'' ,-1 ,'' ,-1 ,'VD_ORA' , 1 ,'ADIPIC_ACID' , 1 ,'VSVPO2' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'VSVPO3' ,253.0 ,'' ,-1 ,'' ,-1 ,'VD_ORA' , 1 ,'ADIPIC_ACID' , 1 ,'VSVPO3' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'VIVPO1' ,266.0 ,'' ,-1 ,'' ,-1 ,'VD_ORA' , 1 ,'ADIPIC_ACID' , 1 ,'VIVPO1' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'VLVOO1' ,136.0 ,'' ,-1 ,'' ,-1 ,'VD_ORA' , 1 ,'ADIPIC_ACID' , 1 ,'VLVOO1' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'VLVOO2' ,136.0 ,'' ,-1 ,'' ,-1 ,'VD_ORA' , 1 ,'ADIPIC_ACID' , 1 ,'VLVOO2' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'VSVOO1' ,135.0 ,'' ,-1 ,'' ,-1 ,'VD_ORA' , 1 ,'ADIPIC_ACID' , 1 ,'VSVOO1' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'VSVOO2' ,135.0 ,'' ,-1 ,'' ,-1 ,'VD_ORA' , 1 ,'ADIPIC_ACID' , 1 ,'VSVOO2' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'VSVOO3' ,134.0 ,'' ,-1 ,'' ,-1 ,'VD_ORA' , 1 ,'ADIPIC_ACID' , 1 ,'VSVOO3' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'PCVOC' ,170.0 ,'' ,-1 ,'' ,-1 ,'VD_GEN_ALD' , 1 ,'GENERIC_ALDEHYDE', 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'PCSOARXN' ,170.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'PCSOARXN' ,'' ,'' ,'' ,'' ,'' , / ================================================ FILE: CCTM/src/MECHS/racm2_ae6_aq/NR_racm2_ae6_aq.nml ================================================ &NR_nml NR_SPECIES_DATA = !SPECIES ,MOLWT ,IC ,IC_FAC ,BC ,BC_FAC ,DRYDEP SURR ,FAC ,WET-SCAV SURR ,FAC ,NR2AE SURR ,NR2AQ SURR,TRNS ,DDEP ,WDEP ,CONC 'NH3' , 17.0 ,'' ,-1 ,'' ,-1 ,'VD_NH3' , 1 ,'NH3' , 1 ,'NH3' ,'NH3' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'HCL' , 36.0 ,'' ,-1 ,'' ,-1 ,'VD_HCL' , 1 ,'HCL' , 1 ,'HCL' ,'HCL' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SVALK1' ,225.0 ,'' ,-1 ,'' ,-1 ,'VD_SVALK1' , 1 ,'SVALK1' , 1 ,'SVALK1' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SVALK2' ,205.1 ,'' ,-1 ,'' ,-1 ,'VD_SVALK2' , 1 ,'SVALK2' , 1 ,'SVALK2' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SVXYL1' ,174.0 ,'' ,-1 ,'' ,-1 ,'VD_SVXYL1' , 1 ,'SVXYL1' , 1 ,'SVXYL1' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SVXYL2' ,185.0 ,'' ,-1 ,'' ,-1 ,'VD_SVXYL2' , 1 ,'SVXYL2' , 1 ,'SVXYL2' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SVTOL1' ,163.0 ,'' ,-1 ,'' ,-1 ,'VD_SVTOL1' , 1 ,'SVTOL1' , 1 ,'SVTOL1' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SVTOL2' ,175.0 ,'' ,-1 ,'' ,-1 ,'VD_SVTOL2' , 1 ,'SVTOL2' , 1 ,'SVTOL2' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SVBNZ1' ,161.0 ,'' ,-1 ,'' ,-1 ,'VD_SVBNZ1' , 1 ,'SVBNZ1' , 1 ,'SVBNZ1' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SVBNZ2' ,134.0 ,'' ,-1 ,'' ,-1 ,'VD_SVBNZ2' , 1 ,'SVBNZ2' , 1 ,'SVBNZ2' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SVPAH1' ,195.6 ,'' ,-1 ,'' ,-1 ,'VD_SVPAH1' , 1 ,'SVPAH1' , 1 ,'SVPAH1' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SVPAH2' ,178.7 ,'' ,-1 ,'' ,-1 ,'VD_SVPAH2' , 1 ,'SVPAH2' , 1 ,'SVPAH2' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SVTRP1' ,177.0 ,'' ,-1 ,'' ,-1 ,'VD_SVTRP1' , 1 ,'SVTRP1' , 1 ,'SVTRP1' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SVTRP2' ,198.0 ,'' ,-1 ,'' ,-1 ,'VD_SVTRP2' , 1 ,'SVTRP2' , 1 ,'SVTRP2' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SVISO1' ,132.0 ,'' ,-1 ,'' ,-1 ,'VD_SVISO1' , 1 ,'SVISO1' , 1 ,'SVISO1' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SVISO2' ,133.0 ,'' ,-1 ,'' ,-1 ,'VD_SVISO2' , 1 ,'SVISO2' , 1 ,'SVISO2' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SVSQT' ,273.0 ,'' ,-1 ,'' ,-1 ,'VD_SVSQT' , 1 ,'SVSQT' , 1 ,'SVSQT' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'LVPCSOG' ,170.0 ,'' ,-1 ,'' ,-1 ,'VD_LVPCSOG' , 1 ,'ADIPIC_ACID' , 1 ,'LVPCSOG' ,'' ,'Yes' ,'' ,'' ,'Yes', / ================================================ FILE: CCTM/src/MECHS/racm2_ae6_aq/RXNS_DATA_MODULE.F90 ================================================ MODULE RXNS_DATA IMPLICIT NONE ! --------- Photochemical Mechanism Reactions, Rates, etc. DAT --------- ! Source file: /home/bmurphy/cmaq_projects/bicicle_1.7/UTIL/chemmech/input/racm2_ae6_aq/mech_racm2_ae6_aq.def ! for Mechanism Name: RACM2_AE6_AQ ! This file is used to create mechanism data and functions ! The following are reserved symbols declared in this file: ! MECHNAME = Mechanism name ! N_GAS_CHEM_SPC = Total number of gas species in chemical mechanism ! NUMB_MECH_SPC = Total number of species in chemical mechanism ! N_ACT_SP = Number of active (determined by ODE solver) species in mechanism ! GAS_CHEM_SPC = Names of gas species in chemical mechanism ! CHEMISTRY_SPC = Names of species in chemical mechanism ! CGRID_INDEX = CGRID Index of species in chemical mechanism ! SPECIES_TYPE = Group or type of species ! SPECIES_MOLWT = Molecular Weight of species (gm/mole) ! NRXNS = Number of mechanism reactions ! ZERO_REACT_REACTIONS = number zero reactant reactions ! ONE_REACT_REACTIONS = number one reactant reactions ! TWO_REACT_REACTIONS = number second order reactions ! THREE_REACT_REACTIONS = number three reactant reactions ! NSUNLIGHT_RXNS = Number of mechanism reactions requiring sunlight ! NTHERMAL_RXNS = Number of mechanism reactions not requiring sunlight ! KUNITS = Units of mechanism reactions ! KTYPE = Reaction type ! IRXBITS = Bit test mask vector for selected reactions ! IORDER = Order of the reaction ! NTERMS_JACOB = Maximum number of nonzero terms in day/night Jacobian ! MSTEPS_JACOB = Maximum number of LU Decomposition steps to solve each Jacobian ! KTN1 = Number of type 1 reactions ! KRX1 = Reactions list pointer to type 1 reactions ! KTN2 = Number of type 2 reactions ! KRX2 = Reactions list pointer to type 2 reactions ! KTN3 = Number of type 3 reactions ! KRX3 = Reactions list pointer to type 3 reactions ! KTN4 = Number of type 4 reactions ! KRX4 = Reactions list pointer to type 4 reactions ! KTN5 = Number of type 5 reactions ! KRX5 = Reactions list pointer to type 5 reactions ! KTN6 = Number of type 6 reactions ! KRX6 = Reactions list pointer to type 6 reactions ! KTN7 = Number of type 7 reactions ! KRX7 = Reactions list pointer to type 7 reactions ! NWM = Number of air 3-body reactions ! NRXWM = Reactions list pointer to air 3-body reactions ! ATM_AIR = air 3-body reactions concentration ! NWW = Number of H2O 3-body reactions ! NRXWW = Reactions list pointer to H2O 3-body reactions ! NWO2 = Number of reactions with O2 ! NRXWO2 = Reactions list pointer to O2 reactions ! ATM_O2 = Oxygen reactions concentration ! NWN2 = Number of N2 3-body reactions ! NRXWN2 = Reactions list pointer to N2 3-body reactions ! ATM_N2 = Nitrogen 3-body reactions concentration ! NWCH4 = Number of reactions with CH4 ! NRXWCH4 = Reactions list pointer to CH4 reactions ! ATM_CH4 = Methane reactions concentration ! NWH2 = Number of reactions with H2 ! NRXWH2 = Reactions list pointer to H2 reactions ! ATM_H2 = Hydrogen reactions concentration ! MXPRD = Maximum number of mechanism reaction products ! IRR = Reactions list pointer to reactants and products ! RTDAT = Kinetic reaction rates expressions components ! NFALLOFFF = Number of falloff reactions ! IRRFALL = Reactions list pointer to falloff reactions ! RFDAT = Falloff reaction rates expressions components ! SC = Stoichiometric coefficients ! NREACT = Number of reactants in each mechanism reaction ! NPRDCT = Number of products in each mechanism reaction ! RXLABEL = Character label list for mechanism reactions ! NMPHOT = Number of mechanism photolytic reactions ! NPHOTAB = Number of photolytic reactions tables ! IPH = Reactions list pointer to photolytic reactions and tables ! MHETERO = Number of mechanism heteorogenous reactions ! NHETERO = Number of unique heteorogenous rate constants ! IHETERO = Reactions list pointer to heteorogenous reactions and tables CHARACTER( 32 ), PARAMETER :: MECHNAME = 'RACM2_AE6_AQ' INTEGER, PARAMETER :: N_GAS_CHEM_SPC = 146 INTEGER, PARAMETER :: NUMB_MECH_SPC = 168 CHARACTER( 16 ) :: GAS_CHEM_SPC( N_GAS_CHEM_SPC ) CHARACTER( 16 ) :: CHEMISTRY_SPC( NUMB_MECH_SPC ) CHARACTER( 16 ) :: SPECIES_TYPE( NUMB_MECH_SPC ) INTEGER :: CGRID_INDEX ( NUMB_MECH_SPC ) INTEGER :: TYPE_INDEX ( NUMB_MECH_SPC ) REAL( 8 ) :: SPECIES_MOLWT( NUMB_MECH_SPC ) LOGICAL :: CONVERT_CONC( NUMB_MECH_SPC ) ! The below character and integer arrays list the model species names used in the ! chemical mechanism. The gas species and their order should agree with ! the GC_SPC array for the gas phase chemistry to work correctly. ! If present, the CHEMISTRY_SPC names and species type should agree with the CGRID_SPCS module DATA GAS_CHEM_SPC( 1 ) / 'O3 ' / DATA GAS_CHEM_SPC( 2 ) / 'O3P ' / DATA GAS_CHEM_SPC( 3 ) / 'O1D ' / DATA GAS_CHEM_SPC( 4 ) / 'H2O2 ' / DATA GAS_CHEM_SPC( 5 ) / 'HO ' / DATA GAS_CHEM_SPC( 6 ) / 'NO2 ' / DATA GAS_CHEM_SPC( 7 ) / 'NO ' / DATA GAS_CHEM_SPC( 8 ) / 'NO3 ' / DATA GAS_CHEM_SPC( 9 ) / 'HONO ' / DATA GAS_CHEM_SPC( 10 ) / 'HNO3 ' / DATA GAS_CHEM_SPC( 11 ) / 'HNO4 ' / DATA GAS_CHEM_SPC( 12 ) / 'HO2 ' / DATA GAS_CHEM_SPC( 13 ) / 'HCHO ' / DATA GAS_CHEM_SPC( 14 ) / 'CO ' / DATA GAS_CHEM_SPC( 15 ) / 'ACD ' / DATA GAS_CHEM_SPC( 16 ) / 'MO2 ' / DATA GAS_CHEM_SPC( 17 ) / 'ALD ' / DATA GAS_CHEM_SPC( 18 ) / 'ETHP ' / DATA GAS_CHEM_SPC( 19 ) / 'ACT ' / DATA GAS_CHEM_SPC( 20 ) / 'ACO3 ' / DATA GAS_CHEM_SPC( 21 ) / 'UALD ' / DATA GAS_CHEM_SPC( 22 ) / 'KET ' / DATA GAS_CHEM_SPC( 23 ) / 'MEK ' / DATA GAS_CHEM_SPC( 24 ) / 'HKET ' / DATA GAS_CHEM_SPC( 25 ) / 'MACR ' / DATA GAS_CHEM_SPC( 26 ) / 'MACP ' / DATA GAS_CHEM_SPC( 27 ) / 'XO2 ' / DATA GAS_CHEM_SPC( 28 ) / 'MVK ' / DATA GAS_CHEM_SPC( 29 ) / 'GLY ' / DATA GAS_CHEM_SPC( 30 ) / 'MGLY ' / DATA GAS_CHEM_SPC( 31 ) / 'DCB1 ' / DATA GAS_CHEM_SPC( 32 ) / 'DCB2 ' / DATA GAS_CHEM_SPC( 33 ) / 'BALD ' / DATA GAS_CHEM_SPC( 34 ) / 'CHO ' / DATA GAS_CHEM_SPC( 35 ) / 'OP1 ' / DATA GAS_CHEM_SPC( 36 ) / 'OP2 ' / DATA GAS_CHEM_SPC( 37 ) / 'PAA ' / DATA GAS_CHEM_SPC( 38 ) / 'ONIT ' / DATA GAS_CHEM_SPC( 39 ) / 'PAN ' / DATA GAS_CHEM_SPC( 40 ) / 'N2O5 ' / DATA GAS_CHEM_SPC( 41 ) / 'SO2 ' / DATA GAS_CHEM_SPC( 42 ) / 'SULF ' / DATA GAS_CHEM_SPC( 43 ) / 'SULRXN ' / DATA GAS_CHEM_SPC( 44 ) / 'ETH ' / DATA GAS_CHEM_SPC( 45 ) / 'HC3 ' / DATA GAS_CHEM_SPC( 46 ) / 'HC3P ' / DATA GAS_CHEM_SPC( 47 ) / 'HC5 ' / DATA GAS_CHEM_SPC( 48 ) / 'HC5P ' / DATA GAS_CHEM_SPC( 49 ) / 'HC8 ' / DATA GAS_CHEM_SPC( 50 ) / 'HC8P ' / DATA GAS_CHEM_SPC( 51 ) / 'ETE ' / DATA GAS_CHEM_SPC( 52 ) / 'ETEP ' / DATA GAS_CHEM_SPC( 53 ) / 'OLT ' / DATA GAS_CHEM_SPC( 54 ) / 'OLTP ' / DATA GAS_CHEM_SPC( 55 ) / 'OLI ' / DATA GAS_CHEM_SPC( 56 ) / 'OLIP ' / DATA GAS_CHEM_SPC( 57 ) / 'DIEN ' / DATA GAS_CHEM_SPC( 58 ) / 'ACE ' / DATA GAS_CHEM_SPC( 59 ) / 'ORA1 ' / DATA GAS_CHEM_SPC( 60 ) / 'BENZENE ' / DATA GAS_CHEM_SPC( 61 ) / 'BENP ' / DATA GAS_CHEM_SPC( 62 ) / 'EPX ' / DATA GAS_CHEM_SPC( 63 ) / 'PHEN ' / DATA GAS_CHEM_SPC( 64 ) / 'BENZRO2 ' / DATA GAS_CHEM_SPC( 65 ) / 'TOL ' / DATA GAS_CHEM_SPC( 66 ) / 'TR2 ' / DATA GAS_CHEM_SPC( 67 ) / 'TLP1 ' / DATA GAS_CHEM_SPC( 68 ) / 'CSL ' / DATA GAS_CHEM_SPC( 69 ) / 'TOLRO2 ' / DATA GAS_CHEM_SPC( 70 ) / 'XYM ' / DATA GAS_CHEM_SPC( 71 ) / 'XY2 ' / DATA GAS_CHEM_SPC( 72 ) / 'XYL1 ' / DATA GAS_CHEM_SPC( 73 ) / 'XYLRO2 ' / DATA GAS_CHEM_SPC( 74 ) / 'XYP ' / DATA GAS_CHEM_SPC( 75 ) / 'XYO ' / DATA GAS_CHEM_SPC( 76 ) / 'XYO2 ' / DATA GAS_CHEM_SPC( 77 ) / 'ISO ' / DATA GAS_CHEM_SPC( 78 ) / 'ISOP ' / DATA GAS_CHEM_SPC( 79 ) / 'ISOPRXN ' / DATA GAS_CHEM_SPC( 80 ) / 'API ' / DATA GAS_CHEM_SPC( 81 ) / 'APIP ' / DATA GAS_CHEM_SPC( 82 ) / 'TRPRXN ' / DATA GAS_CHEM_SPC( 83 ) / 'LIM ' / DATA GAS_CHEM_SPC( 84 ) / 'LIMP ' / DATA GAS_CHEM_SPC( 85 ) / 'RCO3 ' / DATA GAS_CHEM_SPC( 86 ) / 'ACTP ' / DATA GAS_CHEM_SPC( 87 ) / 'MEKP ' / DATA GAS_CHEM_SPC( 88 ) / 'KETP ' / DATA GAS_CHEM_SPC( 89 ) / 'MCP ' / DATA GAS_CHEM_SPC( 90 ) / 'MVKP ' / DATA GAS_CHEM_SPC( 91 ) / 'UALP ' / DATA GAS_CHEM_SPC( 92 ) / 'DCB3 ' / DATA GAS_CHEM_SPC( 93 ) / 'BALP ' / DATA GAS_CHEM_SPC( 94 ) / 'ADDC ' / DATA GAS_CHEM_SPC( 95 ) / 'MCT ' / DATA GAS_CHEM_SPC( 96 ) / 'MCTO ' / DATA GAS_CHEM_SPC( 97 ) / 'MOH ' / DATA GAS_CHEM_SPC( 98 ) / 'EOH ' / DATA GAS_CHEM_SPC( 99 ) / 'ROH ' / DATA GAS_CHEM_SPC( 100 ) / 'ETEG ' / DATA GAS_CHEM_SPC( 101 ) / 'ISHP ' / DATA GAS_CHEM_SPC( 102 ) / 'IEPOX ' / DATA GAS_CHEM_SPC( 103 ) / 'MAHP ' / DATA GAS_CHEM_SPC( 104 ) / 'ORA2 ' / DATA GAS_CHEM_SPC( 105 ) / 'ORAP ' / DATA GAS_CHEM_SPC( 106 ) / 'PPN ' / DATA GAS_CHEM_SPC( 107 ) / 'MPAN ' / DATA GAS_CHEM_SPC( 108 ) / 'NALD ' / DATA GAS_CHEM_SPC( 109 ) / 'ISON ' / DATA GAS_CHEM_SPC( 110 ) / 'MCTP ' / DATA GAS_CHEM_SPC( 111 ) / 'OLNN ' / DATA GAS_CHEM_SPC( 112 ) / 'OLND ' / DATA GAS_CHEM_SPC( 113 ) / 'ADCN ' / DATA GAS_CHEM_SPC( 114 ) / 'TOLP ' / DATA GAS_CHEM_SPC( 115 ) / 'PER1 ' / DATA GAS_CHEM_SPC( 116 ) / 'XYLP ' / DATA GAS_CHEM_SPC( 117 ) / 'PER2 ' / DATA GAS_CHEM_SPC( 118 ) / 'XYOP ' / DATA GAS_CHEM_SPC( 119 ) / 'BAL1 ' / DATA GAS_CHEM_SPC( 120 ) / 'BAL2 ' / DATA GAS_CHEM_SPC( 121 ) / 'TOLNRXN ' / DATA GAS_CHEM_SPC( 122 ) / 'TOLHRXN ' / DATA GAS_CHEM_SPC( 123 ) / 'XYLNRXN ' / DATA GAS_CHEM_SPC( 124 ) / 'XYLHRXN ' / DATA GAS_CHEM_SPC( 125 ) / 'BNZNRXN ' / DATA GAS_CHEM_SPC( 126 ) / 'BNZHRXN ' / DATA GAS_CHEM_SPC( 127 ) / 'SESQ ' / DATA GAS_CHEM_SPC( 128 ) / 'SESQRXN ' / DATA GAS_CHEM_SPC( 129 ) / 'NAPH ' / DATA GAS_CHEM_SPC( 130 ) / 'PAHRO2 ' / DATA GAS_CHEM_SPC( 131 ) / 'PAHNRXN ' / DATA GAS_CHEM_SPC( 132 ) / 'PAHHRXN ' / DATA GAS_CHEM_SPC( 133 ) / 'SOAALK ' / DATA GAS_CHEM_SPC( 134 ) / 'ALKRXN ' / DATA GAS_CHEM_SPC( 135 ) / 'PCVOC ' / DATA GAS_CHEM_SPC( 136 ) / 'PCSOARXN ' / DATA GAS_CHEM_SPC( 137 ) / 'VLVPO1 ' / DATA GAS_CHEM_SPC( 138 ) / 'VSVPO1 ' / DATA GAS_CHEM_SPC( 139 ) / 'VSVPO2 ' / DATA GAS_CHEM_SPC( 140 ) / 'VSVPO3 ' / DATA GAS_CHEM_SPC( 141 ) / 'VIVPO1 ' / DATA GAS_CHEM_SPC( 142 ) / 'VLVOO1 ' / DATA GAS_CHEM_SPC( 143 ) / 'VLVOO2 ' / DATA GAS_CHEM_SPC( 144 ) / 'VSVOO2 ' / DATA GAS_CHEM_SPC( 145 ) / 'VSVOO3 ' / DATA GAS_CHEM_SPC( 146 ) / 'VSVOO1 ' / LOGICAL :: HALOGEN_PARAMETER = .TRUE. ! The below character and integer arrays list the model species names used in the ! chemical mechanism. The gas species and their order should agree with ! the GC_SPC array for the gas phase chemistry to work correctly. ! If present, the CHEMISTRY_SPC names and species type should agree with the CGRID_SPCS module ! MAPPED_TO_CGRID declares whether CMAQ namelists were used to determine ! the below values of CGRID_INDEX, SPECIES_TYPE, SPECIES_MOLWT, and CONVERT_CONC LOGICAL, PARAMETER, PRIVATE :: F = .FALSE. LOGICAL, PARAMETER, PRIVATE :: T = .TRUE. LOGICAL :: MAPPED_TO_CGRID = .FALSE. TYPE MEMBER CHARACTER( 16 ) :: CHEMISTRY_SPC INTEGER :: CGRID_INDEX CHARACTER( 2 ) :: SPECIES_TYPE REAL( 8 ) :: SPECIES_MOLWT LOGICAL :: CONVERT_CONC END TYPE MEMBER TYPE( MEMBER ) :: SPECIES_LIST( NUMB_MECH_SPC ) = (/ & & MEMBER("O3 ", 1, "GC", 48.00D0, F), & & MEMBER("O3P ", 2, "GC", 16.00D0, F), & & MEMBER("O1D ", 3, "GC", 16.00D0, F), & & MEMBER("H2O2 ", 4, "GC", 34.00D0, F), & & MEMBER("HO ", 5, "GC", 17.00D0, F), & & MEMBER("NO2 ", 6, "GC", 46.00D0, F), & & MEMBER("NO ", 7, "GC", 30.00D0, F), & & MEMBER("NO3 ", 8, "GC", 62.00D0, F), & & MEMBER("HONO ", 9, "GC", 47.00D0, F), & & MEMBER("HNO3 ", 10, "GC", 63.00D0, F), & & MEMBER("HNO4 ", 11, "GC", 79.00D0, F), & & MEMBER("HO2 ", 12, "GC", 33.00D0, F), & & MEMBER("HCHO ", 13, "GC", 30.00D0, F), & & MEMBER("CO ", 14, "GC", 28.00D0, F), & & MEMBER("ACD ", 15, "GC", 44.00D0, F), & & MEMBER("MO2 ", 16, "GC", 47.00D0, F), & & MEMBER("ALD ", 17, "GC", 58.00D0, F), & & MEMBER("ETHP ", 18, "GC", 61.00D0, F), & & MEMBER("ACT ", 19, "GC", 58.00D0, F), & & MEMBER("ACO3 ", 20, "GC", 75.00D0, F), & & MEMBER("UALD ", 21, "GC", 84.00D0, F), & & MEMBER("KET ", 22, "GC", 86.00D0, F), & & MEMBER("MEK ", 23, "GC", 72.00D0, F), & & MEMBER("HKET ", 24, "GC", 74.00D0, F), & & MEMBER("MACR ", 25, "GC", 70.00D0, F), & & MEMBER("MACP ", 26, "GC", 101.00D0, F), & & MEMBER("XO2 ", 27, "GC", 1.00D0, F), & & MEMBER("MVK ", 28, "GC", 70.00D0, F), & & MEMBER("GLY ", 29, "GC", 58.00D0, F), & & MEMBER("MGLY ", 30, "GC", 72.00D0, F), & & MEMBER("DCB1 ", 31, "GC", 91.00D0, F), & & MEMBER("DCB2 ", 32, "GC", 110.00D0, F), & & MEMBER("BALD ", 33, "GC", 106.00D0, F), & & MEMBER("CHO ", 34, "GC", 139.00D0, F), & & MEMBER("OP1 ", 35, "GC", 48.00D0, F), & & MEMBER("OP2 ", 36, "GC", 62.00D0, F), & & MEMBER("PAA ", 37, "GC", 76.00D0, F), & & MEMBER("ONIT ", 38, "GC", 119.00D0, F), & & MEMBER("PAN ", 39, "GC", 121.00D0, F), & & MEMBER("N2O5 ", 40, "GC", 108.00D0, F), & & MEMBER("SO2 ", 41, "GC", 64.00D0, F), & & MEMBER("SULF ", 42, "GC", 98.00D0, F), & & MEMBER("SULRXN ", 43, "GC", 98.00D0, F), & & MEMBER("ETH ", 44, "GC", 30.00D0, F), & & MEMBER("HC3 ", 45, "GC", 44.00D0, F), & & MEMBER("HC3P ", 46, "GC", 75.00D0, F), & & MEMBER("HC5 ", 47, "GC", 72.00D0, F), & & MEMBER("HC5P ", 48, "GC", 103.00D0, F), & & MEMBER("HC8 ", 49, "GC", 114.00D0, F), & & MEMBER("HC8P ", 50, "GC", 145.00D0, F), & & MEMBER("ETE ", 51, "GC", 28.00D0, F), & & MEMBER("ETEP ", 52, "GC", 77.00D0, F), & & MEMBER("OLT ", 53, "GC", 42.00D0, F), & & MEMBER("OLTP ", 54, "GC", 91.00D0, F), & & MEMBER("OLI ", 55, "GC", 68.00D0, F), & & MEMBER("OLIP ", 56, "GC", 117.00D0, F), & & MEMBER("DIEN ", 57, "GC", 54.00D0, F), & & MEMBER("ACE ", 58, "GC", 26.00D0, F), & & MEMBER("ORA1 ", 59, "GC", 46.00D0, F), & & MEMBER("BENZENE ", 60, "GC", 78.00D0, F), & & MEMBER("BENP ", 61, "GC", 127.00D0, F), & & MEMBER("EPX ", 62, "GC", 122.50D0, F), & & MEMBER("PHEN ", 63, "GC", 94.00D0, F), & & MEMBER("BENZRO2 ", 64, "GC", 127.00D0, F), & & MEMBER("TOL ", 65, "GC", 92.00D0, F), & & MEMBER("TR2 ", 66, "GC", 109.00D0, F), & & MEMBER("TLP1 ", 67, "GC", 91.00D0, F), & & MEMBER("CSL ", 68, "GC", 108.00D0, F), & & MEMBER("TOLRO2 ", 69, "GC", 141.00D0, F), & & MEMBER("XYM ", 70, "GC", 106.00D0, F), & & MEMBER("XY2 ", 71, "GC", 124.00D0, F), & & MEMBER("XYL1 ", 72, "GC", 156.00D0, F), & & MEMBER("XYLRO2 ", 73, "GC", 155.00D0, F), & & MEMBER("XYP ", 74, "GC", 106.00D0, F), & & MEMBER("XYO ", 75, "GC", 106.00D0, F), & & MEMBER("XYO2 ", 76, "GC", 155.00D0, F), & & MEMBER("ISO ", 77, "GC", 68.00D0, F), & & MEMBER("ISOP ", 78, "GC", 117.00D0, F), & & MEMBER("ISOPRXN ", 79, "GC", 68.00D0, F), & & MEMBER("API ", 80, "GC", 136.00D0, F), & & MEMBER("APIP ", 81, "GC", 185.00D0, F), & & MEMBER("TRPRXN ", 82, "GC", 136.00D0, F), & & MEMBER("LIM ", 83, "GC", 136.00D0, F), & & MEMBER("LIMP ", 84, "GC", 185.00D0, F), & & MEMBER("RCO3 ", 85, "GC", 90.00D0, F), & & MEMBER("ACTP ", 86, "GC", 89.00D0, F), & & MEMBER("MEKP ", 87, "GC", 103.00D0, F), & & MEMBER("KETP ", 88, "GC", 117.00D0, F), & & MEMBER("MCP ", 89, "GC", 119.00D0, F), & & MEMBER("MVKP ", 90, "GC", 119.00D0, F), & & MEMBER("UALP ", 91, "GC", 133.00D0, F), & & MEMBER("DCB3 ", 92, "GC", 84.00D0, F), & & MEMBER("BALP ", 93, "GC", 137.00D0, F), & & MEMBER("ADDC ", 94, "GC", 125.00D0, F), & & MEMBER("MCT ", 95, "GC", 124.00D0, F), & & MEMBER("MCTO ", 96, "GC", 123.00D0, F), & & MEMBER("MOH ", 97, "GC", 32.00D0, F), & & MEMBER("EOH ", 98, "GC", 46.00D0, F), & & MEMBER("ROH ", 99, "GC", 60.00D0, F), & & MEMBER("ETEG ", 100, "GC", 62.00D0, F), & & MEMBER("ISHP ", 101, "GC", 118.00D0, F), & & MEMBER("IEPOX ", 102, "GC", 118.10D0, F), & & MEMBER("MAHP ", 103, "GC", 102.00D0, F), & & MEMBER("ORA2 ", 104, "GC", 60.00D0, F), & & MEMBER("ORAP ", 105, "GC", 109.00D0, F), & & MEMBER("PPN ", 106, "GC", 135.00D0, F), & & MEMBER("MPAN ", 107, "GC", 148.00D0, F), & & MEMBER("NALD ", 108, "GC", 105.00D0, F), & & MEMBER("ISON ", 109, "GC", 147.00D0, F), & & MEMBER("MCTP ", 110, "GC", 172.00D0, F), & & MEMBER("OLNN ", 111, "GC", 136.00D0, F), & & MEMBER("OLND ", 112, "GC", 136.00D0, F), & & MEMBER("ADCN ", 113, "GC", 156.00D0, F), & & MEMBER("TOLP ", 114, "GC", 141.00D0, F), & & MEMBER("PER1 ", 115, "GC", 141.00D0, F), & & MEMBER("XYLP ", 116, "GC", 155.00D0, F), & & MEMBER("PER2 ", 117, "GC", 157.00D0, F), & & MEMBER("XYOP ", 118, "GC", 155.00D0, F), & & MEMBER("BAL1 ", 119, "GC", 121.00D0, F), & & MEMBER("BAL2 ", 120, "GC", 105.00D0, F), & & MEMBER("TOLNRXN ", 121, "GC", 141.00D0, F), & & MEMBER("TOLHRXN ", 122, "GC", 141.00D0, F), & & MEMBER("XYLNRXN ", 123, "GC", 155.00D0, F), & & MEMBER("XYLHRXN ", 124, "GC", 155.00D0, F), & & MEMBER("BNZNRXN ", 125, "GC", 127.00D0, F), & & MEMBER("BNZHRXN ", 126, "GC", 127.00D0, F), & & MEMBER("SESQ ", 127, "GC", 204.00D0, F), & & MEMBER("SESQRXN ", 128, "GC", 204.00D0, F), & & MEMBER("NAPH ", 129, "GC", 128.20D0, F), & & MEMBER("PAHRO2 ", 130, "GC", 187.20D0, F), & & MEMBER("PAHNRXN ", 131, "GC", 187.20D0, F), & & MEMBER("PAHHRXN ", 132, "GC", 187.20D0, F), & & MEMBER("SOAALK ", 133, "GC", 112.00D0, F), & & MEMBER("ALKRXN ", 134, "GC", 112.00D0, F), & & MEMBER("AISO3J ", 210, "AE", 168.20D0, T), & & MEMBER("AXYL1J ", 164, "AE", 174.00D0, T), & & MEMBER("AOLGAJ ", 211, "AE", 206.00D0, T), & & MEMBER("AXYL2J ", 165, "AE", 185.00D0, T), & & MEMBER("ATOL1J ", 167, "AE", 163.00D0, T), & & MEMBER("ATOL2J ", 168, "AE", 175.00D0, T), & & MEMBER("ABNZ1J ", 170, "AE", 161.00D0, T), & & MEMBER("ABNZ2J ", 171, "AE", 134.00D0, T), & & MEMBER("ATRP1J ", 176, "AE", 177.00D0, T), & & MEMBER("AOLGBJ ", 212, "AE", 248.00D0, T), & & MEMBER("ATRP2J ", 177, "AE", 198.00D0, T), & & MEMBER("AISO1J ", 178, "AE", 132.00D0, T), & & MEMBER("AISO2J ", 179, "AE", 133.00D0, T), & & MEMBER("ASQTJ ", 180, "AE", 273.00D0, T), & & MEMBER("APAH1J ", 173, "AE", 195.60D0, T), & & MEMBER("APAH2J ", 174, "AE", 178.70D0, T), & & MEMBER("AALK1J ", 162, "AE", 225.00D0, T), & & MEMBER("AALK2J ", 163, "AE", 205.10D0, T), & & MEMBER("APOCI ", 213, "AE", 220.00D0, T), & & MEMBER("APNCOMI ", 215, "AE", 220.00D0, T), & & MEMBER("APOCJ ", 214, "AE", 220.00D0, T), & & MEMBER("APNCOMJ ", 216, "AE", 220.00D0, T), & & MEMBER("PCVOC ", 145, "GC", 170.00D0, F), & & MEMBER("PCSOARXN ", 146, "GC", 170.00D0, F), & & MEMBER("VLVPO1 ", 135, "GC", 218.00D0, F), & & MEMBER("VSVPO1 ", 136, "GC", 230.00D0, F), & & MEMBER("VSVPO2 ", 137, "GC", 241.00D0, F), & & MEMBER("VSVPO3 ", 138, "GC", 253.00D0, F), & & MEMBER("VIVPO1 ", 139, "GC", 266.00D0, F), & & MEMBER("VLVOO1 ", 140, "GC", 136.00D0, F), & & MEMBER("VLVOO2 ", 141, "GC", 136.00D0, F), & & MEMBER("VSVOO2 ", 143, "GC", 135.00D0, F), & & MEMBER("VSVOO3 ", 144, "GC", 134.00D0, F), & & MEMBER("VSVOO1 ", 142, "GC", 135.00D0, F) /) DATA CHEMISTRY_SPC( 1 ), SPECIES_MOLWT( 1 ) / 'O3 ', 48.00D0 / DATA CHEMISTRY_SPC( 2 ), SPECIES_MOLWT( 2 ) / 'O3P ', 16.00D0 / DATA CHEMISTRY_SPC( 3 ), SPECIES_MOLWT( 3 ) / 'O1D ', 16.00D0 / DATA CHEMISTRY_SPC( 4 ), SPECIES_MOLWT( 4 ) / 'H2O2 ', 34.00D0 / DATA CHEMISTRY_SPC( 5 ), SPECIES_MOLWT( 5 ) / 'HO ', 17.00D0 / DATA CHEMISTRY_SPC( 6 ), SPECIES_MOLWT( 6 ) / 'NO2 ', 46.00D0 / DATA CHEMISTRY_SPC( 7 ), SPECIES_MOLWT( 7 ) / 'NO ', 30.00D0 / DATA CHEMISTRY_SPC( 8 ), SPECIES_MOLWT( 8 ) / 'NO3 ', 62.00D0 / DATA CHEMISTRY_SPC( 9 ), SPECIES_MOLWT( 9 ) / 'HONO ', 47.00D0 / DATA CHEMISTRY_SPC( 10 ), SPECIES_MOLWT( 10 ) / 'HNO3 ', 63.00D0 / DATA CHEMISTRY_SPC( 11 ), SPECIES_MOLWT( 11 ) / 'HNO4 ', 79.00D0 / DATA CHEMISTRY_SPC( 12 ), SPECIES_MOLWT( 12 ) / 'HO2 ', 33.00D0 / DATA CHEMISTRY_SPC( 13 ), SPECIES_MOLWT( 13 ) / 'HCHO ', 30.00D0 / DATA CHEMISTRY_SPC( 14 ), SPECIES_MOLWT( 14 ) / 'CO ', 28.00D0 / DATA CHEMISTRY_SPC( 15 ), SPECIES_MOLWT( 15 ) / 'ACD ', 44.00D0 / DATA CHEMISTRY_SPC( 16 ), SPECIES_MOLWT( 16 ) / 'MO2 ', 47.00D0 / DATA CHEMISTRY_SPC( 17 ), SPECIES_MOLWT( 17 ) / 'ALD ', 58.00D0 / DATA CHEMISTRY_SPC( 18 ), SPECIES_MOLWT( 18 ) / 'ETHP ', 61.00D0 / DATA CHEMISTRY_SPC( 19 ), SPECIES_MOLWT( 19 ) / 'ACT ', 58.00D0 / DATA CHEMISTRY_SPC( 20 ), SPECIES_MOLWT( 20 ) / 'ACO3 ', 75.00D0 / DATA CHEMISTRY_SPC( 21 ), SPECIES_MOLWT( 21 ) / 'UALD ', 84.00D0 / DATA CHEMISTRY_SPC( 22 ), SPECIES_MOLWT( 22 ) / 'KET ', 86.00D0 / DATA CHEMISTRY_SPC( 23 ), SPECIES_MOLWT( 23 ) / 'MEK ', 72.00D0 / DATA CHEMISTRY_SPC( 24 ), SPECIES_MOLWT( 24 ) / 'HKET ', 74.00D0 / DATA CHEMISTRY_SPC( 25 ), SPECIES_MOLWT( 25 ) / 'MACR ', 70.00D0 / DATA CHEMISTRY_SPC( 26 ), SPECIES_MOLWT( 26 ) / 'MACP ', 101.00D0 / DATA CHEMISTRY_SPC( 27 ), SPECIES_MOLWT( 27 ) / 'XO2 ', 1.00D0 / DATA CHEMISTRY_SPC( 28 ), SPECIES_MOLWT( 28 ) / 'MVK ', 70.00D0 / DATA CHEMISTRY_SPC( 29 ), SPECIES_MOLWT( 29 ) / 'GLY ', 58.00D0 / DATA CHEMISTRY_SPC( 30 ), SPECIES_MOLWT( 30 ) / 'MGLY ', 72.00D0 / DATA CHEMISTRY_SPC( 31 ), SPECIES_MOLWT( 31 ) / 'DCB1 ', 91.00D0 / DATA CHEMISTRY_SPC( 32 ), SPECIES_MOLWT( 32 ) / 'DCB2 ', 110.00D0 / DATA CHEMISTRY_SPC( 33 ), SPECIES_MOLWT( 33 ) / 'BALD ', 106.00D0 / DATA CHEMISTRY_SPC( 34 ), SPECIES_MOLWT( 34 ) / 'CHO ', 139.00D0 / DATA CHEMISTRY_SPC( 35 ), SPECIES_MOLWT( 35 ) / 'OP1 ', 48.00D0 / DATA CHEMISTRY_SPC( 36 ), SPECIES_MOLWT( 36 ) / 'OP2 ', 62.00D0 / DATA CHEMISTRY_SPC( 37 ), SPECIES_MOLWT( 37 ) / 'PAA ', 76.00D0 / DATA CHEMISTRY_SPC( 38 ), SPECIES_MOLWT( 38 ) / 'ONIT ', 119.00D0 / DATA CHEMISTRY_SPC( 39 ), SPECIES_MOLWT( 39 ) / 'PAN ', 121.00D0 / DATA CHEMISTRY_SPC( 40 ), SPECIES_MOLWT( 40 ) / 'N2O5 ', 108.00D0 / DATA CHEMISTRY_SPC( 41 ), SPECIES_MOLWT( 41 ) / 'SO2 ', 64.00D0 / DATA CHEMISTRY_SPC( 42 ), SPECIES_MOLWT( 42 ) / 'SULF ', 98.00D0 / DATA CHEMISTRY_SPC( 43 ), SPECIES_MOLWT( 43 ) / 'SULRXN ', 98.00D0 / DATA CHEMISTRY_SPC( 44 ), SPECIES_MOLWT( 44 ) / 'ETH ', 30.00D0 / DATA CHEMISTRY_SPC( 45 ), SPECIES_MOLWT( 45 ) / 'HC3 ', 44.00D0 / DATA CHEMISTRY_SPC( 46 ), SPECIES_MOLWT( 46 ) / 'HC3P ', 75.00D0 / DATA CHEMISTRY_SPC( 47 ), SPECIES_MOLWT( 47 ) / 'HC5 ', 72.00D0 / DATA CHEMISTRY_SPC( 48 ), SPECIES_MOLWT( 48 ) / 'HC5P ', 103.00D0 / DATA CHEMISTRY_SPC( 49 ), SPECIES_MOLWT( 49 ) / 'HC8 ', 114.00D0 / DATA CHEMISTRY_SPC( 50 ), SPECIES_MOLWT( 50 ) / 'HC8P ', 145.00D0 / DATA CHEMISTRY_SPC( 51 ), SPECIES_MOLWT( 51 ) / 'ETE ', 28.00D0 / DATA CHEMISTRY_SPC( 52 ), SPECIES_MOLWT( 52 ) / 'ETEP ', 77.00D0 / DATA CHEMISTRY_SPC( 53 ), SPECIES_MOLWT( 53 ) / 'OLT ', 42.00D0 / DATA CHEMISTRY_SPC( 54 ), SPECIES_MOLWT( 54 ) / 'OLTP ', 91.00D0 / DATA CHEMISTRY_SPC( 55 ), SPECIES_MOLWT( 55 ) / 'OLI ', 68.00D0 / DATA CHEMISTRY_SPC( 56 ), SPECIES_MOLWT( 56 ) / 'OLIP ', 117.00D0 / DATA CHEMISTRY_SPC( 57 ), SPECIES_MOLWT( 57 ) / 'DIEN ', 54.00D0 / DATA CHEMISTRY_SPC( 58 ), SPECIES_MOLWT( 58 ) / 'ACE ', 26.00D0 / DATA CHEMISTRY_SPC( 59 ), SPECIES_MOLWT( 59 ) / 'ORA1 ', 46.00D0 / DATA CHEMISTRY_SPC( 60 ), SPECIES_MOLWT( 60 ) / 'BENZENE ', 78.00D0 / DATA CHEMISTRY_SPC( 61 ), SPECIES_MOLWT( 61 ) / 'BENP ', 127.00D0 / DATA CHEMISTRY_SPC( 62 ), SPECIES_MOLWT( 62 ) / 'EPX ', 122.50D0 / DATA CHEMISTRY_SPC( 63 ), SPECIES_MOLWT( 63 ) / 'PHEN ', 94.00D0 / DATA CHEMISTRY_SPC( 64 ), SPECIES_MOLWT( 64 ) / 'BENZRO2 ', 127.00D0 / DATA CHEMISTRY_SPC( 65 ), SPECIES_MOLWT( 65 ) / 'TOL ', 92.00D0 / DATA CHEMISTRY_SPC( 66 ), SPECIES_MOLWT( 66 ) / 'TR2 ', 109.00D0 / DATA CHEMISTRY_SPC( 67 ), SPECIES_MOLWT( 67 ) / 'TLP1 ', 91.00D0 / DATA CHEMISTRY_SPC( 68 ), SPECIES_MOLWT( 68 ) / 'CSL ', 108.00D0 / DATA CHEMISTRY_SPC( 69 ), SPECIES_MOLWT( 69 ) / 'TOLRO2 ', 141.00D0 / DATA CHEMISTRY_SPC( 70 ), SPECIES_MOLWT( 70 ) / 'XYM ', 106.00D0 / DATA CHEMISTRY_SPC( 71 ), SPECIES_MOLWT( 71 ) / 'XY2 ', 124.00D0 / DATA CHEMISTRY_SPC( 72 ), SPECIES_MOLWT( 72 ) / 'XYL1 ', 156.00D0 / DATA CHEMISTRY_SPC( 73 ), SPECIES_MOLWT( 73 ) / 'XYLRO2 ', 155.00D0 / DATA CHEMISTRY_SPC( 74 ), SPECIES_MOLWT( 74 ) / 'XYP ', 106.00D0 / DATA CHEMISTRY_SPC( 75 ), SPECIES_MOLWT( 75 ) / 'XYO ', 106.00D0 / DATA CHEMISTRY_SPC( 76 ), SPECIES_MOLWT( 76 ) / 'XYO2 ', 155.00D0 / DATA CHEMISTRY_SPC( 77 ), SPECIES_MOLWT( 77 ) / 'ISO ', 68.00D0 / DATA CHEMISTRY_SPC( 78 ), SPECIES_MOLWT( 78 ) / 'ISOP ', 117.00D0 / DATA CHEMISTRY_SPC( 79 ), SPECIES_MOLWT( 79 ) / 'ISOPRXN ', 68.00D0 / DATA CHEMISTRY_SPC( 80 ), SPECIES_MOLWT( 80 ) / 'API ', 136.00D0 / DATA CHEMISTRY_SPC( 81 ), SPECIES_MOLWT( 81 ) / 'APIP ', 185.00D0 / DATA CHEMISTRY_SPC( 82 ), SPECIES_MOLWT( 82 ) / 'TRPRXN ', 136.00D0 / DATA CHEMISTRY_SPC( 83 ), SPECIES_MOLWT( 83 ) / 'LIM ', 136.00D0 / DATA CHEMISTRY_SPC( 84 ), SPECIES_MOLWT( 84 ) / 'LIMP ', 185.00D0 / DATA CHEMISTRY_SPC( 85 ), SPECIES_MOLWT( 85 ) / 'RCO3 ', 90.00D0 / DATA CHEMISTRY_SPC( 86 ), SPECIES_MOLWT( 86 ) / 'ACTP ', 89.00D0 / DATA CHEMISTRY_SPC( 87 ), SPECIES_MOLWT( 87 ) / 'MEKP ', 103.00D0 / DATA CHEMISTRY_SPC( 88 ), SPECIES_MOLWT( 88 ) / 'KETP ', 117.00D0 / DATA CHEMISTRY_SPC( 89 ), SPECIES_MOLWT( 89 ) / 'MCP ', 119.00D0 / DATA CHEMISTRY_SPC( 90 ), SPECIES_MOLWT( 90 ) / 'MVKP ', 119.00D0 / DATA CHEMISTRY_SPC( 91 ), SPECIES_MOLWT( 91 ) / 'UALP ', 133.00D0 / DATA CHEMISTRY_SPC( 92 ), SPECIES_MOLWT( 92 ) / 'DCB3 ', 84.00D0 / DATA CHEMISTRY_SPC( 93 ), SPECIES_MOLWT( 93 ) / 'BALP ', 137.00D0 / DATA CHEMISTRY_SPC( 94 ), SPECIES_MOLWT( 94 ) / 'ADDC ', 125.00D0 / DATA CHEMISTRY_SPC( 95 ), SPECIES_MOLWT( 95 ) / 'MCT ', 124.00D0 / DATA CHEMISTRY_SPC( 96 ), SPECIES_MOLWT( 96 ) / 'MCTO ', 123.00D0 / DATA CHEMISTRY_SPC( 97 ), SPECIES_MOLWT( 97 ) / 'MOH ', 32.00D0 / DATA CHEMISTRY_SPC( 98 ), SPECIES_MOLWT( 98 ) / 'EOH ', 46.00D0 / DATA CHEMISTRY_SPC( 99 ), SPECIES_MOLWT( 99 ) / 'ROH ', 60.00D0 / DATA CHEMISTRY_SPC( 100 ), SPECIES_MOLWT( 100 ) / 'ETEG ', 62.00D0 / DATA CHEMISTRY_SPC( 101 ), SPECIES_MOLWT( 101 ) / 'ISHP ', 118.00D0 / DATA CHEMISTRY_SPC( 102 ), SPECIES_MOLWT( 102 ) / 'IEPOX ', 118.10D0 / DATA CHEMISTRY_SPC( 103 ), SPECIES_MOLWT( 103 ) / 'MAHP ', 102.00D0 / DATA CHEMISTRY_SPC( 104 ), SPECIES_MOLWT( 104 ) / 'ORA2 ', 60.00D0 / DATA CHEMISTRY_SPC( 105 ), SPECIES_MOLWT( 105 ) / 'ORAP ', 109.00D0 / DATA CHEMISTRY_SPC( 106 ), SPECIES_MOLWT( 106 ) / 'PPN ', 135.00D0 / DATA CHEMISTRY_SPC( 107 ), SPECIES_MOLWT( 107 ) / 'MPAN ', 148.00D0 / DATA CHEMISTRY_SPC( 108 ), SPECIES_MOLWT( 108 ) / 'NALD ', 105.00D0 / DATA CHEMISTRY_SPC( 109 ), SPECIES_MOLWT( 109 ) / 'ISON ', 147.00D0 / DATA CHEMISTRY_SPC( 110 ), SPECIES_MOLWT( 110 ) / 'MCTP ', 172.00D0 / DATA CHEMISTRY_SPC( 111 ), SPECIES_MOLWT( 111 ) / 'OLNN ', 136.00D0 / DATA CHEMISTRY_SPC( 112 ), SPECIES_MOLWT( 112 ) / 'OLND ', 136.00D0 / DATA CHEMISTRY_SPC( 113 ), SPECIES_MOLWT( 113 ) / 'ADCN ', 156.00D0 / DATA CHEMISTRY_SPC( 114 ), SPECIES_MOLWT( 114 ) / 'TOLP ', 141.00D0 / DATA CHEMISTRY_SPC( 115 ), SPECIES_MOLWT( 115 ) / 'PER1 ', 141.00D0 / DATA CHEMISTRY_SPC( 116 ), SPECIES_MOLWT( 116 ) / 'XYLP ', 155.00D0 / DATA CHEMISTRY_SPC( 117 ), SPECIES_MOLWT( 117 ) / 'PER2 ', 157.00D0 / DATA CHEMISTRY_SPC( 118 ), SPECIES_MOLWT( 118 ) / 'XYOP ', 155.00D0 / DATA CHEMISTRY_SPC( 119 ), SPECIES_MOLWT( 119 ) / 'BAL1 ', 121.00D0 / DATA CHEMISTRY_SPC( 120 ), SPECIES_MOLWT( 120 ) / 'BAL2 ', 105.00D0 / DATA CHEMISTRY_SPC( 121 ), SPECIES_MOLWT( 121 ) / 'TOLNRXN ', 141.00D0 / DATA CHEMISTRY_SPC( 122 ), SPECIES_MOLWT( 122 ) / 'TOLHRXN ', 141.00D0 / DATA CHEMISTRY_SPC( 123 ), SPECIES_MOLWT( 123 ) / 'XYLNRXN ', 155.00D0 / DATA CHEMISTRY_SPC( 124 ), SPECIES_MOLWT( 124 ) / 'XYLHRXN ', 155.00D0 / DATA CHEMISTRY_SPC( 125 ), SPECIES_MOLWT( 125 ) / 'BNZNRXN ', 127.00D0 / DATA CHEMISTRY_SPC( 126 ), SPECIES_MOLWT( 126 ) / 'BNZHRXN ', 127.00D0 / DATA CHEMISTRY_SPC( 127 ), SPECIES_MOLWT( 127 ) / 'SESQ ', 204.00D0 / DATA CHEMISTRY_SPC( 128 ), SPECIES_MOLWT( 128 ) / 'SESQRXN ', 204.00D0 / DATA CHEMISTRY_SPC( 129 ), SPECIES_MOLWT( 129 ) / 'NAPH ', 128.20D0 / DATA CHEMISTRY_SPC( 130 ), SPECIES_MOLWT( 130 ) / 'PAHRO2 ', 187.20D0 / DATA CHEMISTRY_SPC( 131 ), SPECIES_MOLWT( 131 ) / 'PAHNRXN ', 187.20D0 / DATA CHEMISTRY_SPC( 132 ), SPECIES_MOLWT( 132 ) / 'PAHHRXN ', 187.20D0 / DATA CHEMISTRY_SPC( 133 ), SPECIES_MOLWT( 133 ) / 'SOAALK ', 112.00D0 / DATA CHEMISTRY_SPC( 134 ), SPECIES_MOLWT( 134 ) / 'ALKRXN ', 112.00D0 / DATA CHEMISTRY_SPC( 135 ), SPECIES_MOLWT( 135 ) / 'AISO3J ', 168.20D0 / DATA CHEMISTRY_SPC( 136 ), SPECIES_MOLWT( 136 ) / 'AXYL1J ', 174.00D0 / DATA CHEMISTRY_SPC( 137 ), SPECIES_MOLWT( 137 ) / 'AOLGAJ ', 206.00D0 / DATA CHEMISTRY_SPC( 138 ), SPECIES_MOLWT( 138 ) / 'AXYL2J ', 185.00D0 / DATA CHEMISTRY_SPC( 139 ), SPECIES_MOLWT( 139 ) / 'ATOL1J ', 163.00D0 / DATA CHEMISTRY_SPC( 140 ), SPECIES_MOLWT( 140 ) / 'ATOL2J ', 175.00D0 / DATA CHEMISTRY_SPC( 141 ), SPECIES_MOLWT( 141 ) / 'ABNZ1J ', 161.00D0 / DATA CHEMISTRY_SPC( 142 ), SPECIES_MOLWT( 142 ) / 'ABNZ2J ', 134.00D0 / DATA CHEMISTRY_SPC( 143 ), SPECIES_MOLWT( 143 ) / 'ATRP1J ', 177.00D0 / DATA CHEMISTRY_SPC( 144 ), SPECIES_MOLWT( 144 ) / 'AOLGBJ ', 248.00D0 / DATA CHEMISTRY_SPC( 145 ), SPECIES_MOLWT( 145 ) / 'ATRP2J ', 198.00D0 / DATA CHEMISTRY_SPC( 146 ), SPECIES_MOLWT( 146 ) / 'AISO1J ', 132.00D0 / DATA CHEMISTRY_SPC( 147 ), SPECIES_MOLWT( 147 ) / 'AISO2J ', 133.00D0 / DATA CHEMISTRY_SPC( 148 ), SPECIES_MOLWT( 148 ) / 'ASQTJ ', 273.00D0 / DATA CHEMISTRY_SPC( 149 ), SPECIES_MOLWT( 149 ) / 'APAH1J ', 195.60D0 / DATA CHEMISTRY_SPC( 150 ), SPECIES_MOLWT( 150 ) / 'APAH2J ', 178.70D0 / DATA CHEMISTRY_SPC( 151 ), SPECIES_MOLWT( 151 ) / 'AALK1J ', 225.00D0 / DATA CHEMISTRY_SPC( 152 ), SPECIES_MOLWT( 152 ) / 'AALK2J ', 205.10D0 / DATA CHEMISTRY_SPC( 153 ), SPECIES_MOLWT( 153 ) / 'APOCI ', 220.00D0 / DATA CHEMISTRY_SPC( 154 ), SPECIES_MOLWT( 154 ) / 'APNCOMI ', 220.00D0 / DATA CHEMISTRY_SPC( 155 ), SPECIES_MOLWT( 155 ) / 'APOCJ ', 220.00D0 / DATA CHEMISTRY_SPC( 156 ), SPECIES_MOLWT( 156 ) / 'APNCOMJ ', 220.00D0 / DATA CHEMISTRY_SPC( 157 ), SPECIES_MOLWT( 157 ) / 'PCVOC ', 170.00D0 / DATA CHEMISTRY_SPC( 158 ), SPECIES_MOLWT( 158 ) / 'PCSOARXN ', 170.00D0 / DATA CHEMISTRY_SPC( 159 ), SPECIES_MOLWT( 159 ) / 'VLVPO1 ', 218.00D0 / DATA CHEMISTRY_SPC( 160 ), SPECIES_MOLWT( 160 ) / 'VSVPO1 ', 230.00D0 / DATA CHEMISTRY_SPC( 161 ), SPECIES_MOLWT( 161 ) / 'VSVPO2 ', 241.00D0 / DATA CHEMISTRY_SPC( 162 ), SPECIES_MOLWT( 162 ) / 'VSVPO3 ', 253.00D0 / DATA CHEMISTRY_SPC( 163 ), SPECIES_MOLWT( 163 ) / 'VIVPO1 ', 266.00D0 / DATA CHEMISTRY_SPC( 164 ), SPECIES_MOLWT( 164 ) / 'VLVOO1 ', 136.00D0 / DATA CHEMISTRY_SPC( 165 ), SPECIES_MOLWT( 165 ) / 'VLVOO2 ', 136.00D0 / DATA CHEMISTRY_SPC( 166 ), SPECIES_MOLWT( 166 ) / 'VSVOO2 ', 135.00D0 / DATA CHEMISTRY_SPC( 167 ), SPECIES_MOLWT( 167 ) / 'VSVOO3 ', 134.00D0 / DATA CHEMISTRY_SPC( 168 ), SPECIES_MOLWT( 168 ) / 'VSVOO1 ', 135.00D0 / DATA CGRID_INDEX( 1 ), SPECIES_TYPE( 1 ), CONVERT_CONC( 1 ) / 1, 'GC', F / ! O3 DATA CGRID_INDEX( 2 ), SPECIES_TYPE( 2 ), CONVERT_CONC( 2 ) / 2, 'GC', F / ! O3P DATA CGRID_INDEX( 3 ), SPECIES_TYPE( 3 ), CONVERT_CONC( 3 ) / 3, 'GC', F / ! O1D DATA CGRID_INDEX( 4 ), SPECIES_TYPE( 4 ), CONVERT_CONC( 4 ) / 4, 'GC', F / ! H2O2 DATA CGRID_INDEX( 5 ), SPECIES_TYPE( 5 ), CONVERT_CONC( 5 ) / 5, 'GC', F / ! HO DATA CGRID_INDEX( 6 ), SPECIES_TYPE( 6 ), CONVERT_CONC( 6 ) / 6, 'GC', F / ! NO2 DATA CGRID_INDEX( 7 ), SPECIES_TYPE( 7 ), CONVERT_CONC( 7 ) / 7, 'GC', F / ! NO DATA CGRID_INDEX( 8 ), SPECIES_TYPE( 8 ), CONVERT_CONC( 8 ) / 8, 'GC', F / ! NO3 DATA CGRID_INDEX( 9 ), SPECIES_TYPE( 9 ), CONVERT_CONC( 9 ) / 9, 'GC', F / ! HONO DATA CGRID_INDEX( 10 ), SPECIES_TYPE( 10 ), CONVERT_CONC( 10 ) / 10, 'GC', F / ! HNO3 DATA CGRID_INDEX( 11 ), SPECIES_TYPE( 11 ), CONVERT_CONC( 11 ) / 11, 'GC', F / ! HNO4 DATA CGRID_INDEX( 12 ), SPECIES_TYPE( 12 ), CONVERT_CONC( 12 ) / 12, 'GC', F / ! HO2 DATA CGRID_INDEX( 13 ), SPECIES_TYPE( 13 ), CONVERT_CONC( 13 ) / 13, 'GC', F / ! HCHO DATA CGRID_INDEX( 14 ), SPECIES_TYPE( 14 ), CONVERT_CONC( 14 ) / 14, 'GC', F / ! CO DATA CGRID_INDEX( 15 ), SPECIES_TYPE( 15 ), CONVERT_CONC( 15 ) / 15, 'GC', F / ! ACD DATA CGRID_INDEX( 16 ), SPECIES_TYPE( 16 ), CONVERT_CONC( 16 ) / 16, 'GC', F / ! MO2 DATA CGRID_INDEX( 17 ), SPECIES_TYPE( 17 ), CONVERT_CONC( 17 ) / 17, 'GC', F / ! ALD DATA CGRID_INDEX( 18 ), SPECIES_TYPE( 18 ), CONVERT_CONC( 18 ) / 18, 'GC', F / ! ETHP DATA CGRID_INDEX( 19 ), SPECIES_TYPE( 19 ), CONVERT_CONC( 19 ) / 19, 'GC', F / ! ACT DATA CGRID_INDEX( 20 ), SPECIES_TYPE( 20 ), CONVERT_CONC( 20 ) / 20, 'GC', F / ! ACO3 DATA CGRID_INDEX( 21 ), SPECIES_TYPE( 21 ), CONVERT_CONC( 21 ) / 21, 'GC', F / ! UALD DATA CGRID_INDEX( 22 ), SPECIES_TYPE( 22 ), CONVERT_CONC( 22 ) / 22, 'GC', F / ! KET DATA CGRID_INDEX( 23 ), SPECIES_TYPE( 23 ), CONVERT_CONC( 23 ) / 23, 'GC', F / ! MEK DATA CGRID_INDEX( 24 ), SPECIES_TYPE( 24 ), CONVERT_CONC( 24 ) / 24, 'GC', F / ! HKET DATA CGRID_INDEX( 25 ), SPECIES_TYPE( 25 ), CONVERT_CONC( 25 ) / 25, 'GC', F / ! MACR DATA CGRID_INDEX( 26 ), SPECIES_TYPE( 26 ), CONVERT_CONC( 26 ) / 26, 'GC', F / ! MACP DATA CGRID_INDEX( 27 ), SPECIES_TYPE( 27 ), CONVERT_CONC( 27 ) / 27, 'GC', F / ! XO2 DATA CGRID_INDEX( 28 ), SPECIES_TYPE( 28 ), CONVERT_CONC( 28 ) / 28, 'GC', F / ! MVK DATA CGRID_INDEX( 29 ), SPECIES_TYPE( 29 ), CONVERT_CONC( 29 ) / 29, 'GC', F / ! GLY DATA CGRID_INDEX( 30 ), SPECIES_TYPE( 30 ), CONVERT_CONC( 30 ) / 30, 'GC', F / ! MGLY DATA CGRID_INDEX( 31 ), SPECIES_TYPE( 31 ), CONVERT_CONC( 31 ) / 31, 'GC', F / ! DCB1 DATA CGRID_INDEX( 32 ), SPECIES_TYPE( 32 ), CONVERT_CONC( 32 ) / 32, 'GC', F / ! DCB2 DATA CGRID_INDEX( 33 ), SPECIES_TYPE( 33 ), CONVERT_CONC( 33 ) / 33, 'GC', F / ! BALD DATA CGRID_INDEX( 34 ), SPECIES_TYPE( 34 ), CONVERT_CONC( 34 ) / 34, 'GC', F / ! CHO DATA CGRID_INDEX( 35 ), SPECIES_TYPE( 35 ), CONVERT_CONC( 35 ) / 35, 'GC', F / ! OP1 DATA CGRID_INDEX( 36 ), SPECIES_TYPE( 36 ), CONVERT_CONC( 36 ) / 36, 'GC', F / ! OP2 DATA CGRID_INDEX( 37 ), SPECIES_TYPE( 37 ), CONVERT_CONC( 37 ) / 37, 'GC', F / ! PAA DATA CGRID_INDEX( 38 ), SPECIES_TYPE( 38 ), CONVERT_CONC( 38 ) / 38, 'GC', F / ! ONIT DATA CGRID_INDEX( 39 ), SPECIES_TYPE( 39 ), CONVERT_CONC( 39 ) / 39, 'GC', F / ! PAN DATA CGRID_INDEX( 40 ), SPECIES_TYPE( 40 ), CONVERT_CONC( 40 ) / 40, 'GC', F / ! N2O5 DATA CGRID_INDEX( 41 ), SPECIES_TYPE( 41 ), CONVERT_CONC( 41 ) / 41, 'GC', F / ! SO2 DATA CGRID_INDEX( 42 ), SPECIES_TYPE( 42 ), CONVERT_CONC( 42 ) / 42, 'GC', F / ! SULF DATA CGRID_INDEX( 43 ), SPECIES_TYPE( 43 ), CONVERT_CONC( 43 ) / 43, 'GC', F / ! SULRXN DATA CGRID_INDEX( 44 ), SPECIES_TYPE( 44 ), CONVERT_CONC( 44 ) / 44, 'GC', F / ! ETH DATA CGRID_INDEX( 45 ), SPECIES_TYPE( 45 ), CONVERT_CONC( 45 ) / 45, 'GC', F / ! HC3 DATA CGRID_INDEX( 46 ), SPECIES_TYPE( 46 ), CONVERT_CONC( 46 ) / 46, 'GC', F / ! HC3P DATA CGRID_INDEX( 47 ), SPECIES_TYPE( 47 ), CONVERT_CONC( 47 ) / 47, 'GC', F / ! HC5 DATA CGRID_INDEX( 48 ), SPECIES_TYPE( 48 ), CONVERT_CONC( 48 ) / 48, 'GC', F / ! HC5P DATA CGRID_INDEX( 49 ), SPECIES_TYPE( 49 ), CONVERT_CONC( 49 ) / 49, 'GC', F / ! HC8 DATA CGRID_INDEX( 50 ), SPECIES_TYPE( 50 ), CONVERT_CONC( 50 ) / 50, 'GC', F / ! HC8P DATA CGRID_INDEX( 51 ), SPECIES_TYPE( 51 ), CONVERT_CONC( 51 ) / 51, 'GC', F / ! ETE DATA CGRID_INDEX( 52 ), SPECIES_TYPE( 52 ), CONVERT_CONC( 52 ) / 52, 'GC', F / ! ETEP DATA CGRID_INDEX( 53 ), SPECIES_TYPE( 53 ), CONVERT_CONC( 53 ) / 53, 'GC', F / ! OLT DATA CGRID_INDEX( 54 ), SPECIES_TYPE( 54 ), CONVERT_CONC( 54 ) / 54, 'GC', F / ! OLTP DATA CGRID_INDEX( 55 ), SPECIES_TYPE( 55 ), CONVERT_CONC( 55 ) / 55, 'GC', F / ! OLI DATA CGRID_INDEX( 56 ), SPECIES_TYPE( 56 ), CONVERT_CONC( 56 ) / 56, 'GC', F / ! OLIP DATA CGRID_INDEX( 57 ), SPECIES_TYPE( 57 ), CONVERT_CONC( 57 ) / 57, 'GC', F / ! DIEN DATA CGRID_INDEX( 58 ), SPECIES_TYPE( 58 ), CONVERT_CONC( 58 ) / 58, 'GC', F / ! ACE DATA CGRID_INDEX( 59 ), SPECIES_TYPE( 59 ), CONVERT_CONC( 59 ) / 59, 'GC', F / ! ORA1 DATA CGRID_INDEX( 60 ), SPECIES_TYPE( 60 ), CONVERT_CONC( 60 ) / 60, 'GC', F / ! BENZENE DATA CGRID_INDEX( 61 ), SPECIES_TYPE( 61 ), CONVERT_CONC( 61 ) / 61, 'GC', F / ! BENP DATA CGRID_INDEX( 62 ), SPECIES_TYPE( 62 ), CONVERT_CONC( 62 ) / 62, 'GC', F / ! EPX DATA CGRID_INDEX( 63 ), SPECIES_TYPE( 63 ), CONVERT_CONC( 63 ) / 63, 'GC', F / ! PHEN DATA CGRID_INDEX( 64 ), SPECIES_TYPE( 64 ), CONVERT_CONC( 64 ) / 64, 'GC', F / ! BENZRO2 DATA CGRID_INDEX( 65 ), SPECIES_TYPE( 65 ), CONVERT_CONC( 65 ) / 65, 'GC', F / ! TOL DATA CGRID_INDEX( 66 ), SPECIES_TYPE( 66 ), CONVERT_CONC( 66 ) / 66, 'GC', F / ! TR2 DATA CGRID_INDEX( 67 ), SPECIES_TYPE( 67 ), CONVERT_CONC( 67 ) / 67, 'GC', F / ! TLP1 DATA CGRID_INDEX( 68 ), SPECIES_TYPE( 68 ), CONVERT_CONC( 68 ) / 68, 'GC', F / ! CSL DATA CGRID_INDEX( 69 ), SPECIES_TYPE( 69 ), CONVERT_CONC( 69 ) / 69, 'GC', F / ! TOLRO2 DATA CGRID_INDEX( 70 ), SPECIES_TYPE( 70 ), CONVERT_CONC( 70 ) / 70, 'GC', F / ! XYM DATA CGRID_INDEX( 71 ), SPECIES_TYPE( 71 ), CONVERT_CONC( 71 ) / 71, 'GC', F / ! XY2 DATA CGRID_INDEX( 72 ), SPECIES_TYPE( 72 ), CONVERT_CONC( 72 ) / 72, 'GC', F / ! XYL1 DATA CGRID_INDEX( 73 ), SPECIES_TYPE( 73 ), CONVERT_CONC( 73 ) / 73, 'GC', F / ! XYLRO2 DATA CGRID_INDEX( 74 ), SPECIES_TYPE( 74 ), CONVERT_CONC( 74 ) / 74, 'GC', F / ! XYP DATA CGRID_INDEX( 75 ), SPECIES_TYPE( 75 ), CONVERT_CONC( 75 ) / 75, 'GC', F / ! XYO DATA CGRID_INDEX( 76 ), SPECIES_TYPE( 76 ), CONVERT_CONC( 76 ) / 76, 'GC', F / ! XYO2 DATA CGRID_INDEX( 77 ), SPECIES_TYPE( 77 ), CONVERT_CONC( 77 ) / 77, 'GC', F / ! ISO DATA CGRID_INDEX( 78 ), SPECIES_TYPE( 78 ), CONVERT_CONC( 78 ) / 78, 'GC', F / ! ISOP DATA CGRID_INDEX( 79 ), SPECIES_TYPE( 79 ), CONVERT_CONC( 79 ) / 79, 'GC', F / ! ISOPRXN DATA CGRID_INDEX( 80 ), SPECIES_TYPE( 80 ), CONVERT_CONC( 80 ) / 80, 'GC', F / ! API DATA CGRID_INDEX( 81 ), SPECIES_TYPE( 81 ), CONVERT_CONC( 81 ) / 81, 'GC', F / ! APIP DATA CGRID_INDEX( 82 ), SPECIES_TYPE( 82 ), CONVERT_CONC( 82 ) / 82, 'GC', F / ! TRPRXN DATA CGRID_INDEX( 83 ), SPECIES_TYPE( 83 ), CONVERT_CONC( 83 ) / 83, 'GC', F / ! LIM DATA CGRID_INDEX( 84 ), SPECIES_TYPE( 84 ), CONVERT_CONC( 84 ) / 84, 'GC', F / ! LIMP DATA CGRID_INDEX( 85 ), SPECIES_TYPE( 85 ), CONVERT_CONC( 85 ) / 85, 'GC', F / ! RCO3 DATA CGRID_INDEX( 86 ), SPECIES_TYPE( 86 ), CONVERT_CONC( 86 ) / 86, 'GC', F / ! ACTP DATA CGRID_INDEX( 87 ), SPECIES_TYPE( 87 ), CONVERT_CONC( 87 ) / 87, 'GC', F / ! MEKP DATA CGRID_INDEX( 88 ), SPECIES_TYPE( 88 ), CONVERT_CONC( 88 ) / 88, 'GC', F / ! KETP DATA CGRID_INDEX( 89 ), SPECIES_TYPE( 89 ), CONVERT_CONC( 89 ) / 89, 'GC', F / ! MCP DATA CGRID_INDEX( 90 ), SPECIES_TYPE( 90 ), CONVERT_CONC( 90 ) / 90, 'GC', F / ! MVKP DATA CGRID_INDEX( 91 ), SPECIES_TYPE( 91 ), CONVERT_CONC( 91 ) / 91, 'GC', F / ! UALP DATA CGRID_INDEX( 92 ), SPECIES_TYPE( 92 ), CONVERT_CONC( 92 ) / 92, 'GC', F / ! DCB3 DATA CGRID_INDEX( 93 ), SPECIES_TYPE( 93 ), CONVERT_CONC( 93 ) / 93, 'GC', F / ! BALP DATA CGRID_INDEX( 94 ), SPECIES_TYPE( 94 ), CONVERT_CONC( 94 ) / 94, 'GC', F / ! ADDC DATA CGRID_INDEX( 95 ), SPECIES_TYPE( 95 ), CONVERT_CONC( 95 ) / 95, 'GC', F / ! MCT DATA CGRID_INDEX( 96 ), SPECIES_TYPE( 96 ), CONVERT_CONC( 96 ) / 96, 'GC', F / ! MCTO DATA CGRID_INDEX( 97 ), SPECIES_TYPE( 97 ), CONVERT_CONC( 97 ) / 97, 'GC', F / ! MOH DATA CGRID_INDEX( 98 ), SPECIES_TYPE( 98 ), CONVERT_CONC( 98 ) / 98, 'GC', F / ! EOH DATA CGRID_INDEX( 99 ), SPECIES_TYPE( 99 ), CONVERT_CONC( 99 ) / 99, 'GC', F / ! ROH DATA CGRID_INDEX( 100 ), SPECIES_TYPE( 100 ), CONVERT_CONC( 100 ) / 100, 'GC', F / ! ETEG DATA CGRID_INDEX( 101 ), SPECIES_TYPE( 101 ), CONVERT_CONC( 101 ) / 101, 'GC', F / ! ISHP DATA CGRID_INDEX( 102 ), SPECIES_TYPE( 102 ), CONVERT_CONC( 102 ) / 102, 'GC', F / ! IEPOX DATA CGRID_INDEX( 103 ), SPECIES_TYPE( 103 ), CONVERT_CONC( 103 ) / 103, 'GC', F / ! MAHP DATA CGRID_INDEX( 104 ), SPECIES_TYPE( 104 ), CONVERT_CONC( 104 ) / 104, 'GC', F / ! ORA2 DATA CGRID_INDEX( 105 ), SPECIES_TYPE( 105 ), CONVERT_CONC( 105 ) / 105, 'GC', F / ! ORAP DATA CGRID_INDEX( 106 ), SPECIES_TYPE( 106 ), CONVERT_CONC( 106 ) / 106, 'GC', F / ! PPN DATA CGRID_INDEX( 107 ), SPECIES_TYPE( 107 ), CONVERT_CONC( 107 ) / 107, 'GC', F / ! MPAN DATA CGRID_INDEX( 108 ), SPECIES_TYPE( 108 ), CONVERT_CONC( 108 ) / 108, 'GC', F / ! NALD DATA CGRID_INDEX( 109 ), SPECIES_TYPE( 109 ), CONVERT_CONC( 109 ) / 109, 'GC', F / ! ISON DATA CGRID_INDEX( 110 ), SPECIES_TYPE( 110 ), CONVERT_CONC( 110 ) / 110, 'GC', F / ! MCTP DATA CGRID_INDEX( 111 ), SPECIES_TYPE( 111 ), CONVERT_CONC( 111 ) / 111, 'GC', F / ! OLNN DATA CGRID_INDEX( 112 ), SPECIES_TYPE( 112 ), CONVERT_CONC( 112 ) / 112, 'GC', F / ! OLND DATA CGRID_INDEX( 113 ), SPECIES_TYPE( 113 ), CONVERT_CONC( 113 ) / 113, 'GC', F / ! ADCN DATA CGRID_INDEX( 114 ), SPECIES_TYPE( 114 ), CONVERT_CONC( 114 ) / 114, 'GC', F / ! TOLP DATA CGRID_INDEX( 115 ), SPECIES_TYPE( 115 ), CONVERT_CONC( 115 ) / 115, 'GC', F / ! PER1 DATA CGRID_INDEX( 116 ), SPECIES_TYPE( 116 ), CONVERT_CONC( 116 ) / 116, 'GC', F / ! XYLP DATA CGRID_INDEX( 117 ), SPECIES_TYPE( 117 ), CONVERT_CONC( 117 ) / 117, 'GC', F / ! PER2 DATA CGRID_INDEX( 118 ), SPECIES_TYPE( 118 ), CONVERT_CONC( 118 ) / 118, 'GC', F / ! XYOP DATA CGRID_INDEX( 119 ), SPECIES_TYPE( 119 ), CONVERT_CONC( 119 ) / 119, 'GC', F / ! BAL1 DATA CGRID_INDEX( 120 ), SPECIES_TYPE( 120 ), CONVERT_CONC( 120 ) / 120, 'GC', F / ! BAL2 DATA CGRID_INDEX( 121 ), SPECIES_TYPE( 121 ), CONVERT_CONC( 121 ) / 121, 'GC', F / ! TOLNRXN DATA CGRID_INDEX( 122 ), SPECIES_TYPE( 122 ), CONVERT_CONC( 122 ) / 122, 'GC', F / ! TOLHRXN DATA CGRID_INDEX( 123 ), SPECIES_TYPE( 123 ), CONVERT_CONC( 123 ) / 123, 'GC', F / ! XYLNRXN DATA CGRID_INDEX( 124 ), SPECIES_TYPE( 124 ), CONVERT_CONC( 124 ) / 124, 'GC', F / ! XYLHRXN DATA CGRID_INDEX( 125 ), SPECIES_TYPE( 125 ), CONVERT_CONC( 125 ) / 125, 'GC', F / ! BNZNRXN DATA CGRID_INDEX( 126 ), SPECIES_TYPE( 126 ), CONVERT_CONC( 126 ) / 126, 'GC', F / ! BNZHRXN DATA CGRID_INDEX( 127 ), SPECIES_TYPE( 127 ), CONVERT_CONC( 127 ) / 127, 'GC', F / ! SESQ DATA CGRID_INDEX( 128 ), SPECIES_TYPE( 128 ), CONVERT_CONC( 128 ) / 128, 'GC', F / ! SESQRXN DATA CGRID_INDEX( 129 ), SPECIES_TYPE( 129 ), CONVERT_CONC( 129 ) / 129, 'GC', F / ! NAPH DATA CGRID_INDEX( 130 ), SPECIES_TYPE( 130 ), CONVERT_CONC( 130 ) / 130, 'GC', F / ! PAHRO2 DATA CGRID_INDEX( 131 ), SPECIES_TYPE( 131 ), CONVERT_CONC( 131 ) / 131, 'GC', F / ! PAHNRXN DATA CGRID_INDEX( 132 ), SPECIES_TYPE( 132 ), CONVERT_CONC( 132 ) / 132, 'GC', F / ! PAHHRXN DATA CGRID_INDEX( 133 ), SPECIES_TYPE( 133 ), CONVERT_CONC( 133 ) / 133, 'GC', F / ! SOAALK DATA CGRID_INDEX( 134 ), SPECIES_TYPE( 134 ), CONVERT_CONC( 134 ) / 134, 'GC', F / ! ALKRXN DATA CGRID_INDEX( 135 ), SPECIES_TYPE( 135 ), CONVERT_CONC( 135 ) / 210, 'AE', T / ! AISO3J DATA CGRID_INDEX( 136 ), SPECIES_TYPE( 136 ), CONVERT_CONC( 136 ) / 164, 'AE', T / ! AXYL1J DATA CGRID_INDEX( 137 ), SPECIES_TYPE( 137 ), CONVERT_CONC( 137 ) / 211, 'AE', T / ! AOLGAJ DATA CGRID_INDEX( 138 ), SPECIES_TYPE( 138 ), CONVERT_CONC( 138 ) / 165, 'AE', T / ! AXYL2J DATA CGRID_INDEX( 139 ), SPECIES_TYPE( 139 ), CONVERT_CONC( 139 ) / 167, 'AE', T / ! ATOL1J DATA CGRID_INDEX( 140 ), SPECIES_TYPE( 140 ), CONVERT_CONC( 140 ) / 168, 'AE', T / ! ATOL2J DATA CGRID_INDEX( 141 ), SPECIES_TYPE( 141 ), CONVERT_CONC( 141 ) / 170, 'AE', T / ! ABNZ1J DATA CGRID_INDEX( 142 ), SPECIES_TYPE( 142 ), CONVERT_CONC( 142 ) / 171, 'AE', T / ! ABNZ2J DATA CGRID_INDEX( 143 ), SPECIES_TYPE( 143 ), CONVERT_CONC( 143 ) / 176, 'AE', T / ! ATRP1J DATA CGRID_INDEX( 144 ), SPECIES_TYPE( 144 ), CONVERT_CONC( 144 ) / 212, 'AE', T / ! AOLGBJ DATA CGRID_INDEX( 145 ), SPECIES_TYPE( 145 ), CONVERT_CONC( 145 ) / 177, 'AE', T / ! ATRP2J DATA CGRID_INDEX( 146 ), SPECIES_TYPE( 146 ), CONVERT_CONC( 146 ) / 178, 'AE', T / ! AISO1J DATA CGRID_INDEX( 147 ), SPECIES_TYPE( 147 ), CONVERT_CONC( 147 ) / 179, 'AE', T / ! AISO2J DATA CGRID_INDEX( 148 ), SPECIES_TYPE( 148 ), CONVERT_CONC( 148 ) / 180, 'AE', T / ! ASQTJ DATA CGRID_INDEX( 149 ), SPECIES_TYPE( 149 ), CONVERT_CONC( 149 ) / 173, 'AE', T / ! APAH1J DATA CGRID_INDEX( 150 ), SPECIES_TYPE( 150 ), CONVERT_CONC( 150 ) / 174, 'AE', T / ! APAH2J DATA CGRID_INDEX( 151 ), SPECIES_TYPE( 151 ), CONVERT_CONC( 151 ) / 162, 'AE', T / ! AALK1J DATA CGRID_INDEX( 152 ), SPECIES_TYPE( 152 ), CONVERT_CONC( 152 ) / 163, 'AE', T / ! AALK2J DATA CGRID_INDEX( 153 ), SPECIES_TYPE( 153 ), CONVERT_CONC( 153 ) / 213, 'AE', T / ! APOCI DATA CGRID_INDEX( 154 ), SPECIES_TYPE( 154 ), CONVERT_CONC( 154 ) / 215, 'AE', T / ! APNCOMI DATA CGRID_INDEX( 155 ), SPECIES_TYPE( 155 ), CONVERT_CONC( 155 ) / 214, 'AE', T / ! APOCJ DATA CGRID_INDEX( 156 ), SPECIES_TYPE( 156 ), CONVERT_CONC( 156 ) / 216, 'AE', T / ! APNCOMJ DATA CGRID_INDEX( 157 ), SPECIES_TYPE( 157 ), CONVERT_CONC( 157 ) / 145, 'GC', F / ! PCVOC DATA CGRID_INDEX( 158 ), SPECIES_TYPE( 158 ), CONVERT_CONC( 158 ) / 146, 'GC', F / ! PCSOARXN DATA CGRID_INDEX( 159 ), SPECIES_TYPE( 159 ), CONVERT_CONC( 159 ) / 135, 'GC', F / ! VLVPO1 DATA CGRID_INDEX( 160 ), SPECIES_TYPE( 160 ), CONVERT_CONC( 160 ) / 136, 'GC', F / ! VSVPO1 DATA CGRID_INDEX( 161 ), SPECIES_TYPE( 161 ), CONVERT_CONC( 161 ) / 137, 'GC', F / ! VSVPO2 DATA CGRID_INDEX( 162 ), SPECIES_TYPE( 162 ), CONVERT_CONC( 162 ) / 138, 'GC', F / ! VSVPO3 DATA CGRID_INDEX( 163 ), SPECIES_TYPE( 163 ), CONVERT_CONC( 163 ) / 139, 'GC', F / ! VIVPO1 DATA CGRID_INDEX( 164 ), SPECIES_TYPE( 164 ), CONVERT_CONC( 164 ) / 140, 'GC', F / ! VLVOO1 DATA CGRID_INDEX( 165 ), SPECIES_TYPE( 165 ), CONVERT_CONC( 165 ) / 141, 'GC', F / ! VLVOO2 DATA CGRID_INDEX( 166 ), SPECIES_TYPE( 166 ), CONVERT_CONC( 166 ) / 143, 'GC', F / ! VSVOO2 DATA CGRID_INDEX( 167 ), SPECIES_TYPE( 167 ), CONVERT_CONC( 167 ) / 144, 'GC', F / ! VSVOO3 DATA CGRID_INDEX( 168 ), SPECIES_TYPE( 168 ), CONVERT_CONC( 168 ) / 142, 'GC', F / ! VSVOO1 ! The below integers define the locations of mechanism species in the solver ! concentration array. INTEGER :: INDEX_O3 = 1 INTEGER :: INDEX_O3P = 2 INTEGER :: INDEX_O1D = 3 INTEGER :: INDEX_H2O2 = 4 INTEGER :: INDEX_HO = 5 INTEGER :: INDEX_NO2 = 6 INTEGER :: INDEX_NO = 7 INTEGER :: INDEX_NO3 = 8 INTEGER :: INDEX_HONO = 9 INTEGER :: INDEX_HNO3 = 10 INTEGER :: INDEX_HNO4 = 11 INTEGER :: INDEX_HO2 = 12 INTEGER :: INDEX_HCHO = 13 INTEGER :: INDEX_CO = 14 INTEGER :: INDEX_ACD = 15 INTEGER :: INDEX_MO2 = 16 INTEGER :: INDEX_ALD = 17 INTEGER :: INDEX_ETHP = 18 INTEGER :: INDEX_ACT = 19 INTEGER :: INDEX_ACO3 = 20 INTEGER :: INDEX_UALD = 21 INTEGER :: INDEX_KET = 22 INTEGER :: INDEX_MEK = 23 INTEGER :: INDEX_HKET = 24 INTEGER :: INDEX_MACR = 25 INTEGER :: INDEX_MACP = 26 INTEGER :: INDEX_XO2 = 27 INTEGER :: INDEX_MVK = 28 INTEGER :: INDEX_GLY = 29 INTEGER :: INDEX_MGLY = 30 INTEGER :: INDEX_DCB1 = 31 INTEGER :: INDEX_DCB2 = 32 INTEGER :: INDEX_BALD = 33 INTEGER :: INDEX_CHO = 34 INTEGER :: INDEX_OP1 = 35 INTEGER :: INDEX_OP2 = 36 INTEGER :: INDEX_PAA = 37 INTEGER :: INDEX_ONIT = 38 INTEGER :: INDEX_PAN = 39 INTEGER :: INDEX_N2O5 = 40 INTEGER :: INDEX_SO2 = 41 INTEGER :: INDEX_SULF = 42 INTEGER :: INDEX_SULRXN = 43 INTEGER :: INDEX_ETH = 44 INTEGER :: INDEX_HC3 = 45 INTEGER :: INDEX_HC3P = 46 INTEGER :: INDEX_HC5 = 47 INTEGER :: INDEX_HC5P = 48 INTEGER :: INDEX_HC8 = 49 INTEGER :: INDEX_HC8P = 50 INTEGER :: INDEX_ETE = 51 INTEGER :: INDEX_ETEP = 52 INTEGER :: INDEX_OLT = 53 INTEGER :: INDEX_OLTP = 54 INTEGER :: INDEX_OLI = 55 INTEGER :: INDEX_OLIP = 56 INTEGER :: INDEX_DIEN = 57 INTEGER :: INDEX_ACE = 58 INTEGER :: INDEX_ORA1 = 59 INTEGER :: INDEX_BENZENE = 60 INTEGER :: INDEX_BENP = 61 INTEGER :: INDEX_EPX = 62 INTEGER :: INDEX_PHEN = 63 INTEGER :: INDEX_BENZRO2 = 64 INTEGER :: INDEX_TOL = 65 INTEGER :: INDEX_TR2 = 66 INTEGER :: INDEX_TLP1 = 67 INTEGER :: INDEX_CSL = 68 INTEGER :: INDEX_TOLRO2 = 69 INTEGER :: INDEX_XYM = 70 INTEGER :: INDEX_XY2 = 71 INTEGER :: INDEX_XYL1 = 72 INTEGER :: INDEX_XYLRO2 = 73 INTEGER :: INDEX_XYP = 74 INTEGER :: INDEX_XYO = 75 INTEGER :: INDEX_XYO2 = 76 INTEGER :: INDEX_ISO = 77 INTEGER :: INDEX_ISOP = 78 INTEGER :: INDEX_ISOPRXN = 79 INTEGER :: INDEX_API = 80 INTEGER :: INDEX_APIP = 81 INTEGER :: INDEX_TRPRXN = 82 INTEGER :: INDEX_LIM = 83 INTEGER :: INDEX_LIMP = 84 INTEGER :: INDEX_RCO3 = 85 INTEGER :: INDEX_ACTP = 86 INTEGER :: INDEX_MEKP = 87 INTEGER :: INDEX_KETP = 88 INTEGER :: INDEX_MCP = 89 INTEGER :: INDEX_MVKP = 90 INTEGER :: INDEX_UALP = 91 INTEGER :: INDEX_DCB3 = 92 INTEGER :: INDEX_BALP = 93 INTEGER :: INDEX_ADDC = 94 INTEGER :: INDEX_MCT = 95 INTEGER :: INDEX_MCTO = 96 INTEGER :: INDEX_MOH = 97 INTEGER :: INDEX_EOH = 98 INTEGER :: INDEX_ROH = 99 INTEGER :: INDEX_ETEG = 100 INTEGER :: INDEX_ISHP = 101 INTEGER :: INDEX_IEPOX = 102 INTEGER :: INDEX_MAHP = 103 INTEGER :: INDEX_ORA2 = 104 INTEGER :: INDEX_ORAP = 105 INTEGER :: INDEX_PPN = 106 INTEGER :: INDEX_MPAN = 107 INTEGER :: INDEX_NALD = 108 INTEGER :: INDEX_ISON = 109 INTEGER :: INDEX_MCTP = 110 INTEGER :: INDEX_OLNN = 111 INTEGER :: INDEX_OLND = 112 INTEGER :: INDEX_ADCN = 113 INTEGER :: INDEX_TOLP = 114 INTEGER :: INDEX_PER1 = 115 INTEGER :: INDEX_XYLP = 116 INTEGER :: INDEX_PER2 = 117 INTEGER :: INDEX_XYOP = 118 INTEGER :: INDEX_BAL1 = 119 INTEGER :: INDEX_BAL2 = 120 INTEGER :: INDEX_TOLNRXN = 121 INTEGER :: INDEX_TOLHRXN = 122 INTEGER :: INDEX_XYLNRXN = 123 INTEGER :: INDEX_XYLHRXN = 124 INTEGER :: INDEX_BNZNRXN = 125 INTEGER :: INDEX_BNZHRXN = 126 INTEGER :: INDEX_SESQ = 127 INTEGER :: INDEX_SESQRXN = 128 INTEGER :: INDEX_NAPH = 129 INTEGER :: INDEX_PAHRO2 = 130 INTEGER :: INDEX_PAHNRXN = 131 INTEGER :: INDEX_PAHHRXN = 132 INTEGER :: INDEX_SOAALK = 133 INTEGER :: INDEX_ALKRXN = 134 INTEGER :: INDEX_AISO3J = 135 INTEGER :: INDEX_AXYL1J = 136 INTEGER :: INDEX_AOLGAJ = 137 INTEGER :: INDEX_AXYL2J = 138 INTEGER :: INDEX_ATOL1J = 139 INTEGER :: INDEX_ATOL2J = 140 INTEGER :: INDEX_ABNZ1J = 141 INTEGER :: INDEX_ABNZ2J = 142 INTEGER :: INDEX_ATRP1J = 143 INTEGER :: INDEX_AOLGBJ = 144 INTEGER :: INDEX_ATRP2J = 145 INTEGER :: INDEX_AISO1J = 146 INTEGER :: INDEX_AISO2J = 147 INTEGER :: INDEX_ASQTJ = 148 INTEGER :: INDEX_APAH1J = 149 INTEGER :: INDEX_APAH2J = 150 INTEGER :: INDEX_AALK1J = 151 INTEGER :: INDEX_AALK2J = 152 INTEGER :: INDEX_APOCI = 153 INTEGER :: INDEX_APNCOMI = 154 INTEGER :: INDEX_APOCJ = 155 INTEGER :: INDEX_APNCOMJ = 156 INTEGER :: INDEX_PCVOC = 157 INTEGER :: INDEX_PCSOARXN = 158 INTEGER :: INDEX_VLVPO1 = 159 INTEGER :: INDEX_VSVPO1 = 160 INTEGER :: INDEX_VSVPO2 = 161 INTEGER :: INDEX_VSVPO3 = 162 INTEGER :: INDEX_VIVPO1 = 163 INTEGER :: INDEX_VLVOO1 = 164 INTEGER :: INDEX_VLVOO2 = 165 INTEGER :: INDEX_VSVOO2 = 166 INTEGER :: INDEX_VSVOO3 = 167 INTEGER :: INDEX_VSVOO1 = 168 INTEGER, PARAMETER :: N_ACT_SP = 168 INTEGER, PARAMETER :: NRXNS = 411 INTEGER, PARAMETER :: ONE_REACT_REACTIONS = 0 INTEGER, PARAMETER :: TWO_REACT_REACTIONS = 0 INTEGER, PARAMETER :: THREE_REACT_REACTIONS = 0 INTEGER, PARAMETER :: ZERO_REACT_REACTIONS = 0 LOGICAL, PARAMETER :: UNITARY_REACTIONS = .FALSE. INTEGER, PARAMETER :: ONE_REACT_START = 0 INTEGER, PARAMETER :: ONE_REACT_STOP = -1 LOGICAL, PARAMETER :: BINARY_REACTIONS = .FALSE. INTEGER, PARAMETER :: TWO_REACT_START = 0 INTEGER, PARAMETER :: TWO_REACT_STOP = -1 LOGICAL, PARAMETER :: TERNARY_REACTIONS = .FALSE. INTEGER, PARAMETER :: THREE_REACT_START = 0 INTEGER, PARAMETER :: THREE_REACT_STOP = -1 LOGICAL, PARAMETER :: NULL_REACTIONS = .FALSE. INTEGER, PARAMETER :: ZERO_REACT_START = 0 INTEGER, PARAMETER :: ZERO_REACT_STOP = -1 INTEGER, PARAMETER :: NSUNLIGHT_RXNS = 34 INTEGER, PARAMETER :: NTHERMAL_RXNS = 377 INTEGER, PARAMETER :: KUNITS = 2 INTEGER :: IRXXN INTEGER, PARAMETER :: NMPHOT = 33 INTEGER :: IPH( NMPHOT,3 ) DATA ( IPH( IRXXN,1 ), IRXXN = 1, NMPHOT ) / & & 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, & & 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, & & 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, & & 31, 32, 33/ DATA ( IPH( IRXXN,2 ), IRXXN = 1, NMPHOT ) / & & 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, & & 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, & & 21, 22, 23, 24, 24, 24, 25, 26, 26, 27, & & 28, 29, 30/ DATA ( IPH( IRXXN,3 ), IRXXN = 1, NMPHOT ) / & & 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, & & 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, & & 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, & & 31, 32, 33/ REAL( 8 ) :: RTDAT( 3,NRXNS ) INTEGER, PARAMETER :: NFALLOFF = 17 REAL( 8 ) :: RFDAT( 5,NFALLOFF ) INTEGER :: KTYPE( NRXNS ) DATA ( KTYPE( IRXXN ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 3, 3, 3, 3, 2, 3, 3, & ! 3 & 3, 1, 3, 3, 9, 9, 3, 10, 10, 3, & ! 4 & 9, 3, 3, 3, 10, 10, 8, 1, 1, 3, & ! 5 & 3, 3, 10, 5, 1, 10, 5, 3, 10, 9, & ! 6 & 3, 3, 3, 3, 3, 10, 3, 3, 3, 10, & ! 7 & 3, 3, 1, 1, 1, 3, 3, 3, 3, 3, & ! 8 & 3, 4, 3, 3, 1, 3, 3, 3, 1, 3, & ! 9 & 3, 3, 1, 3, 3, 3, 3, 3, 3, 3, & ! O & 3, 1, 3, 3, 1, 1, 1, 3, 3, 1, & ! 1 & 1, 1, 3, 3, 1, 3, 3, 3, 3, 3, & ! 2 & 3, 3, 3, 3, 1, 1, 1, 1, 1, 1, & ! 3 & 4, 3, 3, 1, 3, 3, 1, 3, 3, 3, & ! 4 & 1, 3, 3, 3, 1, 1, 3, 1, 3, 1, & ! 5 & 1, 1, 1, 1, 1, 10, 5, 10, 5, 3, & ! 6 & 3, 3, 3, 1, 1, 1, 1, 1, 1, 3, & ! 7 & 1, 3, 3, 1, 3, 3, 3, 3, 1, 1, & ! 8 & 3, 3, 3, 1, 1, 3, 3, 3, 3, 1, & ! 9 & 1, 3, 3, 1, 1, 1, 3, 1, 1, 1, & ! O & 1, 3, 3, 3, 3, 3, 3, 3, 3, 3, & ! 1 & 3, 3, 3, 3, 3, 3, 3, 3, 1, 1, & ! 2 & 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, & ! 3 & 1, 3, 3, 3, 3, 3, 3, 3, 3, 3, & ! 4 & 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, & ! 5 & 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, & ! 6 & 3, 3, 3, 1, 3, 3, 3, 3, 3, 3, & ! 7 & 3, 3, 1, 3, 3, 3, 3, 3, 3, 3, & ! 8 & 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, & ! 9 & 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, & ! O & 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, & ! 1 & 3, 1, 1, 1, 1, 1, 1, 1, 1, 1, & ! 2 & 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, & ! 3 & 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, & ! 4 & 1, 1, 1, 1, 1, 1, 1, 3, 3, 3, & ! 5 & 1, 3, 3, 3, 3, 3, 3, 3, 3, 1, & ! 6 & 1, 1, 1, 3, 3, 3, 3, -1, -1, 12, & ! 7 & -1, 1, 1, 1, 1, 1, 1, 1, 1, 1, & ! 8 & 1, 1, 1, 1, 1, 1, 1, -1, 1, -1, & ! 9 & 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, & ! O & 1/ ! 1 INTEGER :: IRXBITS( NRXNS ) DATA ( IRXBITS( IRXXN ), IRXXN = 1, NRXNS ) / & & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! O & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 1 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 2 & 2, 2, 2, 0, 0, 0, 0, 20, 0, 16, & ! 3 & 32, 8, 128, 0, 0, 8, 0, 1, 1, 0, & ! 4 & 0, 16, 0, 0, 1, 1, 0, 0, 0, 0, & ! 5 & 0, 0, 1, 0, 8, 1, 0, 0, 1, 0, & ! 6 & 64, 0, 0, 0, 0, 1, 0, 0, 0, 1, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 1, 1, 2, & ! 7 & 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 1, 0, 1, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0/ ! 1 INTEGER, PARAMETER :: NTERMS_JACOB = 28224 INTEGER, PARAMETER :: NSTEPS_JACOB = 822 INTEGER :: IORDER( NRXNS ) DATA ( IORDER( IRXXN ), IRXXN = 1, NRXNS ) / & & 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, & ! O & 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, & ! 1 & 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, & ! 2 & 1, 1, 1, 2, 2, 2, 2, 3, 2, 2, & ! 3 & 2, 2, 2, 2, 2, 3, 2, 2, 2, 2, & ! 4 & 2, 3, 2, 2, 2, 2, 2, 2, 2, 2, & ! 5 & 2, 2, 2, 1, 2, 2, 1, 2, 2, 2, & ! 6 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 7 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 8 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 9 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! O & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 1 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 2 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 3 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 4 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, & ! 5 & 1, 1, 1, 1, 1, 2, 1, 2, 1, 2, & ! 6 & 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 7 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 8 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 9 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! O & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 1 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 2 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 3 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 4 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 5 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 6 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 7 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 8 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 9 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! O & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 1 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 2 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 3 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 4 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 5 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 6 & 2, 2, 2, 2, 2, 2, 2, 1, 1, 1, & ! 7 & 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, & ! 8 & 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, & ! 9 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! O & 2/ ! 1 INTEGER, PARAMETER :: KTN1 = 131 INTEGER :: KRX1( KTN1 ) DATA ( KRX1( IRXXN ), IRXXN = 1, KTN1 ) / & & 42, 58, 59, 65, 83, 84, 85, 95, 99, 103, & ! O & 112, 115, 116, 117, 120, 121, 122, 125, 135, 136, & ! 1 & 137, 138, 139, 140, 144, 147, 151, 155, 156, 158, & ! 2 & 160, 161, 162, 163, 164, 165, 174, 175, 176, 177, & ! 3 & 178, 179, 181, 184, 189, 190, 194, 195, 200, 201, & ! 4 & 204, 205, 206, 208, 209, 210, 211, 229, 230, 241, & ! 5 & 274, 283, 322, 323, 324, 325, 326, 327, 328, 329, & ! 6 & 330, 331, 332, 333, 334, 335, 336, 337, 338, 339, & ! 7 & 340, 341, 342, 343, 344, 345, 346, 347, 348, 349, & ! 8 & 350, 351, 352, 353, 354, 355, 356, 357, 361, 370, & ! 9 & 371, 372, 373, 382, 383, 384, 385, 386, 387, 388, & ! O & 389, 390, 391, 392, 393, 394, 395, 396, 397, 399, & ! 1 & 401, 402, 403, 404, 405, 406, 407, 408, 409, 410, & ! 2 & 411/ ! 3 INTEGER, PARAMETER :: KTN2 = 1 INTEGER :: KRX2( KTN2 ) DATA ( KRX2( IRXXN ), IRXXN = 1, KTN2 ) / & & 38/ INTEGER, PARAMETER :: KTN3 = 218 INTEGER :: KRX3( KTN3 ) DATA ( KRX3( IRXXN ), IRXXN = 1, KTN3 ) / & & 34, 35, 36, 37, 39, 40, 41, 43, 44, 47, & ! O & 50, 52, 53, 54, 60, 61, 62, 68, 71, 72, & ! 1 & 73, 74, 75, 77, 78, 79, 81, 82, 86, 87, & ! 2 & 88, 89, 90, 91, 93, 94, 96, 97, 98, 100, & ! 3 & 101, 102, 104, 105, 106, 107, 108, 109, 110, 111, & ! 4 & 113, 114, 118, 119, 123, 124, 126, 127, 128, 129, & ! 5 & 130, 131, 132, 133, 134, 142, 143, 145, 146, 148, & ! 6 & 149, 150, 152, 153, 154, 157, 159, 170, 171, 172, & ! 7 & 173, 180, 182, 183, 185, 186, 187, 188, 191, 192, & ! 8 & 193, 196, 197, 198, 199, 202, 203, 207, 212, 213, & ! 9 & 214, 215, 216, 217, 218, 219, 220, 221, 222, 223, & ! O & 224, 225, 226, 227, 228, 231, 232, 233, 234, 235, & ! 1 & 236, 237, 238, 239, 240, 242, 243, 244, 245, 246, & ! 2 & 247, 248, 249, 250, 251, 252, 253, 254, 255, 256, & ! 3 & 257, 258, 259, 260, 261, 262, 263, 264, 265, 266, & ! 4 & 267, 268, 269, 270, 271, 272, 273, 275, 276, 277, & ! 5 & 278, 279, 280, 281, 282, 284, 285, 286, 287, 288, & ! 6 & 289, 290, 291, 292, 293, 294, 295, 296, 297, 298, & ! 7 & 299, 300, 301, 302, 303, 304, 305, 306, 307, 308, & ! 8 & 309, 310, 311, 312, 313, 314, 315, 316, 317, 318, & ! 9 & 319, 320, 321, 358, 359, 360, 362, 363, 364, 365, & ! O & 366, 367, 368, 369, 374, 375, 376, 377/ ! 1 INTEGER, PARAMETER :: KTN4 = 2 INTEGER :: KRX4( KTN4 ) DATA ( KRX4( IRXXN ), IRXXN = 1, KTN4 ) / & & 92, 141/ INTEGER, PARAMETER :: KTN5 = 4 INTEGER :: KRX5( KTN5 ) DATA ( KRX5( IRXXN ), IRXXN = 1, KTN5 ) / & & 64, 67, 167, 169/ INTEGER, PARAMETER :: KTN6 = 0 INTEGER :: KRX6( 1 ) DATA KRX6( 1 ) / 0 / INTEGER, PARAMETER :: KTN7 = 0 INTEGER :: KRX7( 1 ) DATA KRX7( 1 ) / 0 / INTEGER, PARAMETER :: NWM = 1 INTEGER :: NRXWM( NWM ) DATA ( NRXWM( IRXXN ), IRXXN = 1, NWM ) / & & 38/ REAL( 8 ), PARAMETER :: ATM_AIR = 1.00000D+06 INTEGER, PARAMETER :: NWW = 3 INTEGER :: NRXWW( NWW ) DATA ( NRXWW( IRXXN ), IRXXN = 1, NWW ) / & & 42, 46, 65/ INTEGER, PARAMETER :: NWO2 = 3 INTEGER :: NRXWO2( NWO2 ) DATA ( NRXWO2( IRXXN ), IRXXN = 1, NWO2 ) / & & 38, 40, 52/ REAL( 8 ), PARAMETER :: ATM_O2 = 2.09500D+05 INTEGER, PARAMETER :: NWN2 = 1 INTEGER :: NRXWN2( NWN2 ) DATA ( NRXWN2( IRXXN ), IRXXN = 1, NWN2 ) / & & 41/ REAL( 8 ), PARAMETER :: ATM_N2 = 7.80800D+05 INTEGER, PARAMETER :: NWCH4 = 1 INTEGER :: NRXWCH4( NWCH4 ) DATA ( NRXWCH4( IRXXN ), IRXXN = 1, NWCH4 ) / & & 71/ REAL( 8 ), PARAMETER :: ATM_CH4 = 1.85000D+00 INTEGER, PARAMETER :: NWH2 = 1 INTEGER :: NRXWH2( NWH2 ) DATA ( NRXWH2( IRXXN ), IRXXN = 1, NWH2 ) / & & 43/ REAL( 8 ), PARAMETER :: ATM_H2 = 5.60000D-01 INTEGER, PARAMETER :: MXPRD = 21 INTEGER :: IRR( NRXNS,MXPRD+3 ) DATA ( IRR( IRXXN, 1 ), IRXXN = 1, NRXNS ) / & & 1, 1, 4, 6, 8, 8, 9, 10, 11, 13, & ! O & 13, 15, 17, 19, 21, 23, 22, 24, 25, 28, & ! 1 & 29, 29, 29, 30, 31, 32, 33, 35, 36, 37, & ! 2 & 38, 39, 39, 1, 1, 1, 1, 2, 2, 3, & ! 3 & 3, 3, 5, 5, 12, 12, 4, 7, 7, 7, & ! 4 & 7, 7, 9, 6, 6, 6, 10, 8, 8, 8, & ! 5 & 8, 8, 8, 40, 40, 6, 11, 11, 41, 14, & ! 6 & 5, 44, 45, 47, 49, 51, 53, 55, 57, 58, & ! 7 & 60, 65, 70, 74, 75, 77, 80, 83, 13, 15, & ! 8 & 17, 19, 23, 22, 24, 25, 28, 21, 29, 30, & ! 9 & 31, 32, 92, 33, 63, 68, 62, 95, 97, 98, & ! O & 99, 100, 35, 36, 101, 103, 59, 104, 37, 39, & ! 1 & 106, 107, 38, 108, 109, 51, 53, 55, 57, 77, & ! 2 & 80, 83, 25, 28, 21, 31, 32, 92, 62, 96, & ! 3 & 51, 53, 55, 57, 77, 80, 83, 13, 15, 17, & ! 4 & 25, 21, 29, 30, 63, 68, 62, 95, 107, 66, & ! 5 & 114, 71, 116, 76, 118, 20, 39, 85, 106, 26, & ! 6 & 107, 16, 18, 46, 48, 50, 52, 54, 56, 61, & ! 7 & 67, 114, 115, 72, 116, 117, 118, 78, 81, 84, & ! 8 & 20, 85, 86, 87, 88, 26, 89, 90, 91, 93, & ! 9 & 119, 94, 110, 105, 111, 112, 113, 27, 120, 34, & ! O & 96, 16, 18, 46, 48, 50, 52, 54, 56, 61, & ! 1 & 67, 114, 115, 72, 116, 117, 118, 78, 81, 84, & ! 2 & 20, 85, 86, 87, 88, 26, 89, 90, 91, 94, & ! 3 & 34, 110, 105, 111, 112, 113, 27, 16, 18, 46, & ! 4 & 48, 50, 52, 54, 56, 61, 67, 114, 115, 72, & ! 5 & 116, 117, 118, 78, 81, 84, 20, 85, 86, 87, & ! 6 & 88, 26, 89, 90, 91, 93, 119, 94, 110, 105, & ! 7 & 111, 112, 113, 27, 18, 46, 48, 50, 52, 54, & ! 8 & 56, 61, 67, 114, 115, 72, 116, 117, 118, 78, & ! 9 & 81, 84, 20, 85, 86, 87, 88, 26, 89, 90, & ! O & 91, 93, 119, 94, 110, 105, 111, 112, 113, 27, & ! 1 & 85, 16, 18, 46, 48, 50, 52, 54, 56, 61, & ! 2 & 67, 114, 115, 72, 116, 117, 118, 78, 81, 84, & ! 3 & 20, 85, 86, 87, 88, 26, 89, 90, 91, 93, & ! 4 & 119, 94, 110, 105, 111, 112, 113, 111, 111, 112, & ! 5 & 27, 27, 27, 69, 69, 73, 73, 64, 64, 127, & ! 6 & 127, 127, 129, 130, 130, 133, 102, 40, 6, 1, & ! 7 & 102, 136, 138, 139, 140, 141, 142, 143, 145, 146, & ! 8 & 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, & ! 9 & 157, 159, 160, 161, 162, 163, 164, 165, 168, 166, & ! O & 167/ ! 1 DATA ( IRR( IRXXN, 2 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 5, 12, 7, 6, 0, 1, 0, & ! 3 & 0, 0, 0, 12, 12, 12, 5, 2, 5, 12, & ! 4 & 12, 7, 5, 2, 2, 5, 5, 5, 12, 7, & ! 5 & 6, 8, 6, 0, 0, 12, 0, 5, 5, 5, & ! 6 & 0, 5, 5, 5, 5, 5, 5, 5, 5, 5, & ! 7 & 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, & ! 8 & 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, & ! 9 & 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, & ! O & 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, & ! 1 & 5, 5, 5, 5, 5, 1, 1, 1, 1, 1, & ! 2 & 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, & ! 3 & 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, & ! 4 & 8, 8, 8, 8, 8, 8, 8, 8, 8, 0, & ! 5 & 0, 0, 0, 0, 0, 6, 0, 6, 0, 6, & ! 6 & 0, 7, 7, 7, 7, 7, 7, 7, 7, 7, & ! 7 & 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, & ! 8 & 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, & ! 9 & 7, 7, 7, 7, 7, 7, 7, 7, 6, 6, & ! O & 6, 12, 12, 12, 12, 12, 12, 12, 12, 12, & ! 1 & 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, & ! 2 & 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, & ! 3 & 12, 12, 12, 12, 12, 12, 12, 16, 16, 16, & ! 4 & 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, & ! 5 & 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, & ! 6 & 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, & ! 7 & 16, 16, 16, 16, 20, 20, 20, 20, 20, 20, & ! 8 & 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, & ! 9 & 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, & ! O & 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, & ! 1 & 85, 8, 8, 8, 8, 8, 8, 8, 8, 8, & ! 2 & 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, & ! 3 & 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, & ! 4 & 8, 8, 8, 8, 8, 8, 8, 111, 112, 112, & ! 5 & 8, 85, 27, 7, 12, 7, 12, 7, 12, 1, & ! 6 & 5, 8, 5, 7, 12, 5, 5, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 5, 5, 5, 5, & ! 9 & 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, & ! O & 5/ ! 1 DATA ( IRR( IRXXN, 3 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0/ ! 1 DATA ( IRR( IRXXN, 4 ), IRXXN = 1, NRXNS ) / & & 2, 3, 5, 2, 7, 2, 5, 5, 5, 14, & ! O & 12, 12, 12, 16, 12, 16, 18, 12, 5, 16, & ! 1 & 14, 13, 12, 12, 12, 12, 34, 5, 5, 5, & ! 2 & 12, 20, 16, 12, 5, 6, 8, 1, 0, 2, & ! 3 & 2, 5, 12, 0, 4, 4, 12, 6, 9, 6, & ! 4 & 10, 6, 6, 7, 8, 10, 8, 12, 5, 6, & ! 5 & 7, 6, 40, 6, 10, 11, 12, 6, 12, 12, & ! 6 & 16, 18, 46, 48, 12, 52, 54, 56, 56, 5, & ! 7 & 12, 12, 12, 12, 12, 78, 81, 84, 12, 20, & ! 8 & 85, 86, 87, 88, 12, 26, 90, 20, 12, 20, & ! 9 & 12, 12, 12, 93, 12, 12, 12, 96, 12, 12, & ! O & 12, 12, 5, 5, 5, 26, 12, 16, 5, 27, & ! 1 & 27, 6, 46, 6, 108, 5, 5, 5, 2, 5, & ! 2 & 5, 5, 5, 5, 5, 5, 5, 5, 5, 110, & ! 3 & 111, 111, 111, 111, 109, 111, 111, 12, 20, 85, & ! 4 & 13, 12, 12, 20, 34, 34, 5, 96, 26, 5, & ! 5 & 5, 5, 5, 5, 5, 39, 20, 106, 85, 107, & ! 6 & 26, 12, 12, 12, 12, 12, 12, 12, 12, 12, & ! 7 & 6, 12, 12, 6, 12, 12, 12, 12, 12, 12, & ! 8 & 16, 18, 20, 12, 12, 16, 6, 12, 12, 119, & ! 9 & 120, 12, 96, 6, 6, 6, 6, 6, 38, 38, & ! O & 38, 35, 36, 36, 36, 36, 36, 36, 36, 36, & ! 1 & 36, 36, 36, 36, 36, 36, 36, 101, 36, 36, & ! 2 & 5, 5, 5, 36, 36, 103, 103, 36, 36, 36, & ! 3 & 68, 36, 36, 38, 38, 36, 36, 12, 12, 12, & ! 4 & 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, & ! 5 & 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, & ! 6 & 12, 12, 6, 12, 12, 12, 12, 12, 12, 13, & ! 7 & 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, & ! 8 & 12, 12, 16, 12, 12, 16, 12, 12, 12, 12, & ! 9 & 12, 12, 16, 16, 16, 12, 12, 104, 6, 12, & ! O & 12, 16, 16, 12, 12, 16, 12, 16, 12, 16, & ! 1 & 18, 12, 12, 12, 12, 12, 12, 17, 12, 12, & ! 2 & 6, 12, 12, 6, 12, 12, 12, 12, 12, 12, & ! 3 & 16, 18, 20, 12, 12, 13, 6, 12, 12, 119, & ! 4 & 120, 12, 6, 6, 12, 6, 6, 12, 12, 6, & ! 5 & 6, 18, 0, 7, 12, 7, 12, 7, 12, 1, & ! 6 & 5, 8, 5, 7, 12, 5, 5, 10, 9, 0, & ! 7 & 135, 137, 137, 137, 137, 137, 137, 144, 144, 144, & ! 8 & 144, 144, 137, 137, 137, 137, 154, 5, 156, 5, & ! 9 & 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, & ! O & 5/ ! 1 DATA ( IRR( IRXXN, 5 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 7, 0, 6, 7, 6, 12, 0, & ! O & 14, 16, 18, 20, 20, 18, 20, 20, 12, 26, & ! 1 & 0, 14, 14, 20, 20, 20, 12, 12, 12, 16, & ! 2 & 6, 6, 8, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 5, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 6, 6, 0, & ! 5 & 6, 0, 0, 8, 0, 0, 6, 0, 42, 0, & ! 6 & 0, 0, 0, 0, 50, 0, 0, 0, 0, 12, & ! 7 & 61, 66, 71, 71, 76, 79, 82, 82, 14, 0, & ! 8 & 0, 0, 0, 0, 30, 89, 0, 91, 14, 14, & ! 9 & 14, 14, 26, 0, 94, 94, 27, 0, 13, 15, & ! O & 17, 17, 16, 46, 25, 0, 0, 105, 20, 8, & ! 1 & 8, 24, 6, 27, 24, 12, 12, 12, 5, 12, & ! 2 & 12, 12, 12, 12, 12, 12, 12, 12, 12, 0, & ! 3 & 112, 112, 112, 112, 79, 112, 112, 14, 10, 10, & ! 4 & 26, 27, 14, 14, 94, 94, 12, 10, 6, 12, & ! 5 & 12, 12, 12, 12, 12, 0, 6, 0, 6, 0, & ! 6 & 6, 6, 6, 16, 16, 18, 6, 6, 6, 6, & ! 7 & 33, 6, 6, 33, 6, 6, 6, 6, 6, 21, & ! 8 & 6, 6, 6, 6, 20, 20, 12, 20, 6, 6, & ! 9 & 6, 6, 6, 29, 12, 13, 29, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 16, 18, 20, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 13, 13, 16, & ! 4 & 16, 18, 13, 13, 13, 92, 13, 13, 13, 13, & ! 5 & 13, 13, 13, 13, 13, 13, 16, 16, 20, 13, & ! 6 & 13, 20, 12, 20, 14, 119, 120, 13, 96, 12, & ! 7 & 13, 6, 6, 13, 16, 16, 16, 16, 16, 16, & ! 8 & 16, 16, 33, 16, 16, 33, 16, 16, 16, 16, & ! 9 & 16, 16, 0, 18, 20, 16, 16, 16, 12, 16, & ! O & 16, 119, 120, 16, 16, 29, 16, 6, 16, 0, & ! 1 & 0, 13, 6, 16, 16, 18, 6, 13, 17, 6, & ! 2 & 33, 6, 6, 33, 6, 6, 6, 6, 6, 6, & ! 3 & 6, 6, 6, 6, 6, 20, 12, 20, 6, 6, & ! 4 & 6, 6, 96, 29, 6, 13, 29, 38, 6, 13, & ! 5 & 0, 0, 0, 121, 122, 123, 124, 125, 126, 128, & ! 6 & 128, 128, 130, 131, 132, 134, 0, 0, 10, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 153, 0, 155, 0, & ! 9 & 158, 159, 159, 159, 159, 159, 164, 164, 164, 164, & ! O & 164/ ! 1 DATA ( IRR( IRXXN, 6 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 6, 0, & ! O & 0, 14, 14, 0, 14, 20, 0, 13, 20, 14, & ! 1 & 0, 0, 0, 14, 27, 27, 14, 13, 17, 0, & ! 2 & 17, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 10, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 43, 0, & ! 6 & 0, 0, 0, 0, 17, 0, 0, 0, 0, 14, & ! 7 & 62, 67, 72, 72, 72, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 17, 23, 14, 0, 34, 34, 14, 0, 0, 0, & ! O & 15, 0, 13, 27, 102, 0, 0, 0, 27, 13, & ! 1 & 13, 0, 0, 24, 13, 14, 16, 16, 12, 16, & ! 2 & 18, 18, 20, 20, 16, 85, 85, 14, 14, 0, & ! 3 & 0, 0, 0, 25, 0, 82, 82, 10, 0, 0, & ! 4 & 27, 14, 10, 10, 113, 113, 14, 0, 0, 114, & ! 5 & 115, 85, 117, 85, 117, 0, 0, 0, 0, 0, & ! 6 & 0, 13, 15, 18, 18, 27, 13, 13, 15, 32, & ! 7 & 0, 32, 33, 0, 92, 30, 29, 13, 13, 13, & ! 8 & 0, 0, 13, 13, 27, 6, 13, 27, 14, 0, & ! 9 & 0, 24, 0, 12, 38, 17, 36, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 104, 104, 13, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 97, 15, 18, & ! 4 & 18, 27, 17, 17, 17, 13, 33, 29, 30, 33, & ! 5 & 32, 30, 29, 25, 17, 55, 13, 13, 13, 31, & ! 6 & 31, 14, 13, 27, 13, 13, 13, 24, 13, 29, & ! 7 & 38, 13, 13, 0, 15, 18, 18, 18, 13, 13, & ! 8 & 17, 32, 0, 32, 30, 0, 32, 30, 29, 13, & ! 9 & 17, 55, 0, 0, 13, 13, 31, 20, 13, 20, & ! O & 14, 0, 0, 24, 96, 0, 38, 13, 6, 0, & ! 1 & 0, 6, 15, 27, 18, 27, 13, 12, 22, 32, & ! 2 & 0, 32, 30, 0, 92, 30, 29, 13, 17, 55, & ! 3 & 0, 0, 13, 13, 31, 14, 13, 27, 14, 0, & ! 4 & 0, 24, 0, 12, 38, 17, 36, 0, 13, 17, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 5, 0, 5, 0, & ! 9 & 0, 160, 160, 160, 160, 160, 165, 165, 165, 165, & ! O & 165/ ! 1 DATA ( IRR( IRXXN, 7 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 8, 0, & ! O & 0, 0, 0, 0, 13, 0, 0, 0, 26, 21, & ! 1 & 0, 0, 0, 0, 14, 14, 0, 0, 0, 0, & ! 2 & 22, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 24, 0, 0, 0, 0, 29, & ! 7 & 63, 68, 68, 68, 68, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 22, 29, 29, 0, 95, 95, 17, 0, 0, 0, & ! O & 0, 0, 0, 17, 0, 0, 0, 0, 13, 0, & ! 1 & 0, 0, 0, 0, 0, 13, 18, 18, 16, 20, & ! 2 & 88, 88, 14, 27, 20, 27, 27, 29, 33, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 30, 13, 0, 0, 10, 10, 29, 0, 0, 115, & ! 5 & 32, 116, 32, 117, 32, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 27, 27, 6, 17, 15, 17, 92, & ! 7 & 0, 38, 30, 0, 38, 31, 30, 25, 17, 59, & ! 8 & 0, 0, 0, 31, 6, 14, 24, 6, 13, 0, & ! 9 & 0, 29, 0, 0, 0, 22, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 37, 37, 36, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 97, 27, & ! 4 & 27, 13, 97, 22, 22, 32, 0, 32, 31, 0, & ! 5 & 0, 31, 30, 28, 22, 25, 104, 104, 97, 97, & ! 6 & 97, 13, 24, 13, 17, 0, 0, 29, 0, 0, & ! 7 & 0, 17, 29, 0, 104, 27, 27, 27, 17, 17, & ! 8 & 22, 92, 0, 0, 31, 0, 0, 31, 30, 25, & ! 9 & 22, 13, 0, 0, 104, 31, 104, 14, 24, 27, & ! O & 13, 0, 0, 29, 0, 0, 0, 17, 29, 0, & ! 1 & 0, 0, 0, 18, 27, 6, 17, 6, 6, 92, & ! 2 & 0, 0, 31, 0, 0, 31, 30, 25, 22, 13, & ! 3 & 0, 0, 0, 31, 0, 6, 24, 6, 13, 0, & ! 4 & 0, 29, 0, 0, 0, 22, 0, 0, 17, 22, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 161, 161, 161, 161, 161, 168, 168, 168, 168, & ! O & 168/ ! 1 DATA ( IRR( IRXXN, 8 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 17, 0, 0, 0, 27, 0, & ! 1 & 0, 0, 0, 0, 29, 29, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 59, & ! 7 & 64, 69, 73, 73, 73, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 29, 30, 30, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 22, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 59, 46, 46, 20, 26, & ! 2 & 4, 4, 30, 14, 27, 14, 14, 31, 29, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 10, 17, 0, 0, 0, 0, 6, 0, 0, 32, & ! 5 & 68, 117, 68, 118, 68, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 6, 6, 17, 0, 17, 19, 29, & ! 7 & 0, 0, 31, 0, 0, 92, 31, 28, 19, 6, & ! 8 & 0, 0, 0, 0, 17, 13, 0, 13, 17, 0, & ! 9 & 0, 36, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 98, 13, & ! 4 & 13, 17, 100, 97, 97, 29, 0, 0, 0, 0, & ! 5 & 0, 92, 31, 97, 97, 97, 0, 0, 99, 99, & ! 6 & 99, 104, 97, 17, 22, 0, 0, 36, 0, 0, & ! 7 & 0, 22, 36, 0, 0, 13, 13, 17, 104, 22, & ! 8 & 104, 29, 0, 0, 0, 0, 0, 92, 31, 28, & ! 9 & 104, 25, 0, 0, 0, 104, 0, 13, 16, 13, & ! O & 17, 0, 0, 36, 0, 0, 0, 22, 36, 0, & ! 1 & 0, 0, 0, 6, 6, 17, 0, 23, 19, 29, & ! 2 & 0, 0, 33, 0, 0, 92, 31, 28, 0, 25, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 13, 17, 0, & ! 4 & 0, 36, 0, 0, 0, 0, 0, 0, 22, 38, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 162, 162, 162, 162, 164, 166, 166, 166, 166, & ! O & 166/ ! 1 DATA ( IRR( IRXXN, 9 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 22, 0, 0, 0, 14, 0, & ! 1 & 0, 0, 0, 0, 30, 30, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 30, 36, 36, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 48, 20, 88, 4, & ! 2 & 14, 14, 59, 13, 14, 13, 13, 59, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 6, 38, 0, 0, 0, 0, 10, 0, 0, 68, & ! 5 & 0, 32, 0, 32, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 15, 13, 22, 0, 19, 22, 38, & ! 7 & 0, 0, 38, 0, 0, 38, 32, 109, 22, 55, & ! 8 & 0, 0, 0, 0, 30, 0, 0, 17, 29, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 17, & ! 4 & 17, 22, 0, 99, 99, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 32, 99, 99, 99, 0, 0, 104, 0, & ! 6 & 0, 16, 99, 30, 29, 0, 0, 0, 0, 0, & ! 7 & 0, 97, 38, 0, 0, 17, 17, 22, 0, 104, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 32, 104, & ! 9 & 0, 104, 0, 0, 0, 0, 0, 0, 104, 17, & ! O & 22, 0, 0, 0, 0, 0, 0, 104, 38, 0, & ! 1 & 0, 0, 0, 15, 13, 22, 0, 15, 15, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 32, 29, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 17, 22, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 38, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 163, 164, 164, 164, 165, 167, 167, 167, 167, & ! O & 167/ ! 1 DATA ( IRR( IRXXN, 10 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 13, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 4, 14, 27, 14, & ! 2 & 17, 53, 0, 30, 13, 29, 29, 104, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 62, & ! 5 & 0, 68, 0, 68, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 17, 15, 38, 0, 23, 24, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 92, 29, 59, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 30, 22, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 22, & ! 4 & 22, 97, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 92, 17, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 97, 0, 97, 30, 0, 0, 0, 0, 0, & ! 7 & 0, 99, 0, 0, 0, 22, 22, 104, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 92, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 30, & ! O & 29, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 17, 17, 0, 0, 19, 24, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 92, 24, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 30, 29, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 164, 165, 165, 165, 0, 0, 0, 0, 0, & ! O & 0/ ! 1 DATA ( IRR( IRXXN, 11 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 14, 4, 4, 13, & ! 2 & 22, 13, 0, 59, 15, 30, 30, 37, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 62, 0, 62, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 19, 17, 0, 0, 38, 38, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 38, 24, 38, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 30, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 29, & ! 4 & 97, 99, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 29, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 99, 0, 99, 97, 0, 0, 0, 0, 0, & ! 7 & 0, 38, 0, 0, 0, 29, 104, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 104, & ! O & 30, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 23, 22, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 17, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 30, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 165, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0/ ! 1 DATA ( IRR( IRXXN, 12 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 44, 44, 14, 25, & ! 2 & 82, 25, 0, 104, 22, 36, 31, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 23, 23, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 17, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 97, & ! 4 & 99, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 24, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 104, 99, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 104, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 104, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 19, 23, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 166, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0/ ! 1 DATA ( IRR( IRXXN, 13 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 45, 45, 53, 28, & ! 2 & 0, 59, 0, 17, 29, 0, 36, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 38, 19, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 99, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 19, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 167, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0/ ! 1 DATA ( IRR( IRXXN, 14 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 47, 13, 13, 59, & ! 2 & 0, 104, 0, 0, 30, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 22, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 15, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0/ ! 1 DATA ( IRR( IRXXN, 15 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 60, 15, 25, 53, & ! 2 & 0, 82, 0, 0, 59, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 24, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 24, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0/ ! 1 DATA ( IRR( IRXXN, 16 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 13, 17, 59, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 38, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0/ ! 1 DATA ( IRR( IRXXN, 17 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 15, 19, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0/ ! 1 DATA ( IRR( IRXXN, 18 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 17, 22, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0/ ! 1 DATA ( IRR( IRXXN, 19 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 19, 24, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0/ ! 1 DATA ( IRR( IRXXN, 20 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 33, 104, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0/ ! 1 DATA ( IRR( IRXXN, 21 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 23, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0/ ! 1 DATA ( IRR( IRXXN, 22 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 24, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0/ ! 1 DATA ( IRR( IRXXN, 23 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 59, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0/ ! 1 DATA ( IRR( IRXXN, 24 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 104, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0/ ! 1 DATA ( RTDAT( 1,IRXXN ), IRXXN = 1, NRXNS ) / & & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! O & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 1 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 2 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.7000D-12, 1.0000D-14, & ! 3 & 1.4000D-12, 1.4000D-13, 5.7400D-34, 8.0000D-12, 3.3000D-11, & ! + & 2.0000D-11, 2.1400D-10, 7.7000D-12, 4.8000D-11, 2.2000D-13, & ! 4 & 3.0800D-34, 2.9000D-12, 9.0000D-32, 7.0000D-31, 3.4500D-12, & ! + & 6.0950D-14, 3.3000D-39, 2.5000D-12, 5.5000D-12, 2.5000D-31, & ! 5 & 1.5100D-30, 2.4000D-14, 2.0000D-11, 4.0000D-12, 1.8000D-11, & ! + & 4.5000D-14, 8.5000D-13, 2.0000D-30, 2.7000D-27, 1.0000D-22, & ! 6 & 2.0000D-31, 2.1000D-27, 1.3000D-12, 3.3000D-31, 1.4400D-13, & ! + & 1.8500D-12, 6.9000D-12, 7.6800D-12, 1.0100D-11, 2.8200D-11, & ! 7 & 1.0000D-28, 5.7200D-12, 1.3300D-11, 1.4800D-11, 5.5000D-30, & ! + & 2.3300D-12, 1.8100D-12, 2.3100D-11, 1.4300D-11, 1.3600D-11, & ! 8 & 2.7000D-11, 1.2100D-11, 4.2000D-11, 5.5000D-12, 4.7000D-12, & ! + & 4.9000D-12, 4.5600D-14, 1.5000D-12, 2.8000D-12, 3.0000D-12, & ! 9 & 8.0000D-12, 2.6000D-12, 5.7700D-12, 1.1000D-11, 9.2600D-13, & ! + & 2.8000D-11, 2.8000D-11, 1.0000D-11, 5.3200D-12, 6.7500D-12, & ! O & 4.6500D-11, 2.8000D-11, 2.0500D-10, 2.8500D-12, 3.0000D-12, & ! + & 2.6000D-12, 1.4700D-11, 2.9000D-12, 3.4000D-12, 1.0000D-10, & ! 1 & 3.0000D-11, 4.5000D-13, 4.0000D-14, 2.9300D-12, 4.0000D-14, & ! + & 4.0000D-14, 3.2000D-11, 5.3100D-12, 5.6000D-12, 1.3000D-11, & ! 2 & 9.1400D-15, 4.3300D-15, 4.4000D-15, 1.3400D-14, 7.8600D-15, & ! + & 5.0000D-16, 2.9500D-15, 1.3600D-15, 8.5000D-16, 1.6600D-18, & ! 3 & 2.0000D-16, 2.0000D-16, 9.0000D-17, 5.0000D-16, 2.8600D-13, & ! + & 4.3920D-13, 1.7900D-13, 8.6400D-13, 1.0000D-13, 3.0300D-12, & ! 4 & 1.1900D-12, 1.2200D-11, 2.0000D-12, 1.4000D-12, 3.7600D-12, & ! + & 3.4000D-15, 5.0200D-13, 2.9000D-12, 3.7600D-12, 3.7800D-12, & ! 5 & 1.0600D-12, 2.8700D-13, 2.0100D-10, 2.2000D-14, 1.0000D+03, & ! + & 1.0000D+03, 1.0000D+03, 1.0000D+03, 1.0000D+03, 1.0000D+03, & ! 6 & 9.7000D-29, 9.0000D-29, 9.7000D-29, 9.0000D-29, 2.8000D-12, & ! + & 1.6000D+16, 2.8000D-12, 2.6000D-12, 4.0000D-12, 4.0000D-12, & ! 7 & 4.0000D-12, 9.0000D-12, 4.0000D-12, 4.0000D-12, 2.5400D-12, & ! + & 4.0000D-12, 2.7000D-12, 2.7000D-12, 4.0000D-12, 2.7000D-12, & ! 8 & 2.7000D-12, 2.7000D-12, 2.4300D-12, 4.0000D-12, 4.0000D-12, & ! + & 8.1000D-12, 8.1000D-12, 2.9000D-12, 4.0000D-12, 4.0000D-12, & ! 9 & 2.5400D-12, 2.5400D-12, 2.5400D-12, 2.5400D-12, 4.0000D-12, & ! + & 4.0000D-12, 2.7000D-12, 2.7000D-12, 4.0000D-12, 4.0000D-12, & ! O & 4.0000D-12, 2.7000D-12, 4.0000D-12, 2.0000D-11, 2.0000D-11, & ! + & 2.0800D-12, 4.1000D-13, 7.5000D-13, 1.6600D-13, 1.6600D-13, & ! 1 & 1.6600D-13, 1.9000D-13, 1.6600D-13, 1.6600D-13, 2.9100D-13, & ! + & 3.7500D-13, 3.7500D-13, 3.7500D-13, 3.7500D-13, 3.7500D-13, & ! 2 & 3.7500D-13, 3.7500D-13, 2.0500D-13, 1.5000D-11, 1.5000D-11, & ! + & 4.3000D-13, 4.3000D-13, 1.1500D-13, 1.1500D-13, 1.1500D-13, & ! 3 & 1.8200D-13, 1.8200D-13, 2.9100D-13, 2.9100D-13, 3.7500D-13, & ! + & 1.0000D-11, 3.7500D-13, 1.1500D-13, 1.6600D-13, 1.6600D-13, & ! 4 & 3.7500D-13, 1.6600D-13, 9.5000D-14, 1.1800D-13, 9.4600D-14, & ! + & 1.0000D-13, 4.3400D-14, 1.7100D-13, 1.4600D-13, 9.1800D-14, & ! 5 & 3.5600D-14, 3.5600D-14, 3.5600D-14, 3.5600D-14, 3.5600D-14, & ! + & 3.5600D-14, 3.5600D-14, 3.5600D-14, 3.4000D-14, 3.5600D-14, & ! 6 & 3.5600D-14, 2.0000D-11, 2.0000D-11, 7.5000D-13, 6.9100D-13, & ! + & 6.9100D-13, 3.4000D-14, 3.4000D-14, 8.3700D-14, 3.4000D-14, & ! 7 & 3.5600D-14, 3.5600D-14, 3.5600D-14, 3.5600D-14, 7.5000D-13, & ! + & 1.6000D-13, 9.6800D-14, 3.5600D-14, 5.9900D-15, 1.0300D-12, & ! 8 & 6.9000D-13, 5.5900D-13, 2.4700D-13, 9.4800D-13, 8.1100D-13, & ! + & 5.0900D-13, 7.4000D-13, 7.4000D-13, 7.4000D-13, 7.4000D-13, & ! 9 & 7.4000D-13, 7.4000D-13, 7.4000D-13, 7.4000D-13, 8.4000D-14, & ! + & 7.4000D-13, 7.4000D-13, 2.5000D-12, 2.5000D-12, 7.5100D-13, & ! O & 7.5100D-13, 7.5100D-13, 8.4000D-14, 8.4000D-14, 1.6800D-12, & ! + & 1.6800D-12, 7.4000D-13, 7.4000D-13, 7.4000D-13, 7.4000D-13, & ! 1 & 7.5100D-13, 8.8500D-13, 5.3700D-13, 7.4000D-13, 3.4000D-14, & ! + & 2.5000D-12, 1.2000D-12, 1.2000D-12, 1.2000D-12, 1.2000D-12, & ! 2 & 1.2000D-12, 1.2000D-12, 1.2000D-12, 1.2000D-12, 1.2000D-12, & ! + & 1.2000D-12, 1.2000D-12, 1.2000D-12, 1.2000D-12, 1.2000D-12, & ! 3 & 1.2000D-12, 1.2000D-12, 1.2000D-12, 1.2000D-12, 1.2000D-12, & ! + & 4.0000D-12, 4.0000D-12, 1.2000D-12, 1.2000D-12, 1.2000D-12, & ! 4 & 1.2000D-12, 1.2000D-12, 2.5000D-12, 2.5000D-12, 2.5000D-12, & ! + & 2.5000D-12, 1.2000D-12, 1.2000D-12, 1.2000D-12, 1.2000D-12, & ! 5 & 1.2000D-12, 1.2000D-12, 7.0000D-14, 4.2500D-14, 2.9600D-14, & ! + & 1.2000D-12, 2.5000D-12, 7.1300D-17, 2.7000D-12, 1.9000D-13, & ! 6 & 2.7000D-12, 1.9000D-13, 2.7000D-12, 1.9000D-13, 1.1600D-14, & ! + & 1.9700D-10, 1.9000D-11, 2.3100D-11, 2.7000D-12, 1.9000D-13, & ! 7 & 2.7000D-12, 5.7800D-11, 1.0000D+00, 1.0000D+00, 6.7006D-11, & ! + & 1.0000D+00, 9.4882D-06, 9.4882D-06, 9.4882D-06, 9.4882D-06, & ! 8 & 9.4882D-06, 9.4882D-06, 9.4882D-06, 9.4882D-06, 9.4882D-06, & ! + & 9.4882D-06, 9.4882D-06, 9.4882D-06, 9.4882D-06, 9.4882D-06, & ! 9 & 9.4882D-06, 2.5000D-12, 1.0000D+00, 2.5000D-12, 1.0000D+00, & ! + & 1.2500D-11, 4.0000D-11, 4.0000D-11, 4.0000D-11, 4.0000D-11, & ! O & 4.0000D-11, 4.0000D-11, 4.0000D-11, 4.0000D-11, 4.0000D-11, & ! + & 4.0000D-11/ ! 1 DATA ( RTDAT( 2,IRXXN ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00,-2.6000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 6.0000D+02, & ! 4 & 2.8000D+03, 0.0000D+00,-1.5000D+00,-2.6000D+00, 0.0000D+00, & ! + & 2.7000D+02, 0.0000D+00, 0.0000D+00, 0.0000D+00,-1.8000D+00, & ! 5 & -3.0000D+00, 4.6000D+02, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00,-4.4000D+00, 1.1000D+04, 0.0000D+00, & ! 6 & -3.4000D+00, 1.0900D+04, 0.0000D+00,-4.3000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & -4.5000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 3.6500D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 2.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & -5.6000D+00, 1.4000D+04,-5.6000D+00, 1.4000D+04, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 3.4153D-08, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00/ ! 1 DATA ( RTDAT( 3,IRXXN ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00,-9.4000D+02,-4.9000D+02, & ! 3 & -1.3100D+03,-2.4700D+03, 0.0000D+00,-2.0600D+03, 6.7000D+01, & ! + & 1.3000D+02, 0.0000D+00,-2.1000D+03, 2.5000D+02, 1.9000D-33, & ! 4 & 2.5900D-54,-1.6000D+02, 0.0000D+00, 0.0000D+00, 2.7000D+02, & ! + & 6.8570D-34, 5.3000D+02, 2.6000D+02, 1.8800D+02, 0.0000D+00, & ! 5 & 0.0000D+00, 2.7000D-17, 0.0000D+00, 0.0000D+00, 1.1000D+02, & ! + & -1.2600D+03,-2.4500D+03, 0.0000D+00, 6.3000D+01, 0.0000D+00, & ! 6 & 0.0000D+00, 6.6000D+01, 3.8000D+02, 0.0000D+00, 2.8800D-33, & ! + & -1.6900D+03,-1.0000D+03,-3.7000D+02,-2.4500D+02,-2.7300D+02, & ! 7 & 0.0000D+00, 5.0000D+02, 5.0000D+02, 4.4800D+02, 0.0000D+00, & ! + & -1.9300D+02, 3.5400D+02, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 3.9000D+02, 4.4000D+02, 4.0100D+02, 1.2500D+02, 3.4500D+02, & ! + & 4.0500D+02,-4.2700D+02,-9.0000D+01, 1.0000D+01, 0.0000D+00, & ! 9 & 3.8000D+02, 6.1000D+02, 5.3300D+02, 0.0000D+00, 8.3000D+02, & ! + & 1.7500D+02, 1.7500D+02, 0.0000D+00, 2.4300D+02, 4.0500D+02, & ! O & 0.0000D+00, 1.7500D+02, 0.0000D+00,-3.4500D+02, 2.0000D+01, & ! + & 2.0000D+02, 0.0000D+00, 1.9000D+02, 1.9000D+02, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 8.5000D+02, 1.9000D+02, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00,-2.6000D+02, 2.7000D+02, 0.0000D+00, & ! 2 & -2.5800D+03,-1.8000D+03,-8.4500D+02,-2.2830D+03,-1.9130D+03, & ! + & -5.3000D+02,-7.8300D+02,-2.1120D+03,-1.5200D+03, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & -2.2820D+03,-4.5000D+02, 4.5000D+02, 0.0000D+00,-4.4600D+02, & ! 4 & 4.9000D+02, 0.0000D+00,-2.4400D+03,-1.9000D+03,-1.9000D+03, & ! + & 0.0000D+00,-1.0760D+03,-1.9000D+03,-1.9000D+03, 0.0000D+00, & ! 5 & 0.0000D+00,-1.0000D+03, 0.0000D+00,-5.0000D+02, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 1.6600D+02, 0.0000D+00, 1.6800D+02, 1.8100D+02, & ! + & -1.3486D+04, 3.0000D+02, 3.6500D+02, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 3.6000D+02, & ! + & 0.0000D+00, 3.6000D+02, 3.6000D+02, 0.0000D+00, 3.6000D+02, & ! 8 & 3.6000D+02, 3.6000D+02, 3.6000D+02, 0.0000D+00, 0.0000D+00, & ! + & 2.7000D+02, 2.7000D+02, 3.0000D+02, 0.0000D+00, 0.0000D+00, & ! 9 & 3.6000D+02, 3.6000D+02, 3.6000D+02, 3.6000D+02, 0.0000D+00, & ! + & 0.0000D+00, 3.6000D+02, 3.6000D+02, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 3.6000D+02, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 7.5000D+02, 7.0000D+02, 1.3000D+03, 1.3000D+03, & ! 1 & 1.3000D+03, 1.3000D+03, 1.3000D+03, 1.3000D+03, 1.3000D+03, & ! + & 9.8000D+02, 9.8000D+02, 9.8000D+02, 9.8000D+02, 9.8000D+02, & ! 2 & 9.8000D+02, 9.8000D+02, 1.3000D+03, 0.0000D+00, 0.0000D+00, & ! + & 1.0400D+03, 1.0400D+03, 1.3000D+03, 1.3000D+03, 1.3000D+03, & ! 3 & 1.3000D+03, 1.3000D+03, 1.3000D+03, 1.3000D+03, 9.8000D+02, & ! + & 0.0000D+00, 9.8000D+02, 1.3000D+03, 1.3000D+03, 1.3000D+03, & ! 4 & 9.8000D+02, 1.3000D+03, 3.9000D+02, 1.5800D+02, 4.3100D+02, & ! + & 4.6700D+02, 6.3300D+02, 7.0800D+02, 7.0800D+02, 7.0800D+02, & ! 5 & 7.0800D+02, 7.0800D+02, 7.0800D+02, 7.0800D+02, 7.0800D+02, & ! + & 7.0800D+02, 7.0800D+02, 7.0800D+02, 2.2100D+02, 7.0800D+02, & ! 6 & 7.0800D+02, 5.0000D+02, 5.0000D+02, 5.0000D+02, 5.0800D+02, & ! + & 5.0800D+02, 2.2100D+02, 2.2100D+02, 0.0000D+00, 2.2100D+02, & ! 7 & 7.0800D+02, 7.0800D+02, 7.0800D+02, 7.0800D+02, 5.0000D+02, & ! + & 7.0800D+02, 7.0800D+02, 0.0000D+00, 1.5100D+03, 2.1100D+02, & ! 8 & 4.6000D+02, 5.2200D+02, 6.8300D+02, 7.6500D+02, 7.6500D+02, & ! + & 7.6500D+02, 7.6500D+02, 7.6500D+02, 7.6500D+02, 7.6500D+02, & ! 9 & 7.6500D+02, 7.6500D+02, 7.6500D+02, 7.6500D+02, 2.2100D+02, & ! + & 7.6500D+02, 7.6500D+02, 5.0000D+02, 5.0000D+02, 5.6500D+02, & ! O & 5.6500D+02, 5.6500D+02, 2.2100D+02, 2.2100D+02, 5.0000D+02, & ! + & 5.0000D+02, 7.6500D+02, 7.6500D+02, 7.0800D+02, 7.0800D+02, & ! 1 & 5.6500D+02, 7.6500D+02, 7.6500D+02, 7.0800D+02, 1.5600D+03, & ! + & 5.0000D+02, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 1.0000D+03, 1.0000D+03, 1.0000D+03, & ! + & 0.0000D+00, 5.0000D+02, 2.9500D+03, 3.6000D+02, 1.3000D+03, & ! 6 & 3.6000D+02, 1.3000D+03, 3.6000D+02, 1.3000D+03, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 3.6000D+02, 1.3000D+03, & ! 7 & 3.7400D+02,-4.0000D+02, 0.0000D+00, 0.0000D+00, 2.0000D-06, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00/ ! 1 INTEGER :: IRRFALL( NFALLOFF ) DATA ( IRRFALL( IRXXN ), IRXXN = 1, NFALLOFF ) / & & 45, 46, 48, 49, 51, 55, 56, 57, 63, 66, & & 69, 70, 76, 80, 166, 168, 380/ DATA ( RFDAT( 1,IRXXN ), IRXXN = 1, NFALLOFF ) / & & 9.8000D+02, 3.1800D+03, 3.0000D-11, 3.6000D-11, 2.7000D+02, & & 2.2000D-11, 2.5800D-11, 2.1990D+03, 1.4000D-12, 2.9000D-12, & & 1.6000D-12, 0.0000D+00, 8.8000D-12, 8.3000D-13, 9.3000D-12, & & 9.3000D-12, 1.0743D+01/ DATA ( RFDAT( 2,IRXXN ), IRXXN = 1, NFALLOFF ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00,-1.0000D-01,-1.0000D+00, & & -7.0000D-01, 0.0000D+00, 6.5000D-34,-7.0000D-01,-1.1000D+00, & & 0.0000D+00, 0.0000D+00,-8.5000D-01, 2.0000D+00,-1.5000D+00, & & -1.5000D+00,-6.7130D-01/ DATA ( RFDAT( 3,IRXXN ), IRXXN = 1, NFALLOFF ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, & & 0.0000D+00, 0.0000D+00, 1.3350D+03, 0.0000D+00, 0.0000D+00, & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & & 0.0000D+00, 0.0000D+00/ DATA ( RFDAT( 4,IRXXN ), IRXXN = 1, NFALLOFF ) / & & 0.0000D+00, 0.0000D+00, 6.0000D-01, 6.0000D-01,-5.9680D-14, & & 6.0000D-01, 6.0000D-01, 0.0000D+00, 6.0000D-01, 6.0000D-01, & & 6.0000D-01, 0.0000D+00, 6.0000D-01, 6.0000D-01, 6.0000D-01, & & 6.0000D-01, 0.0000D+00/ DATA ( RFDAT( 5,IRXXN ), IRXXN = 1, NFALLOFF ) / & & 0.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, 2.7000D+02, & & 1.0000D+00, 1.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, & & 1.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & & 1.0000D+00, 0.0000D+00/ REAL( 8 ) :: SC( NRXNS,MXPRD ) DATA ( SC( IRXXN, 1 ), IRXXN = 1, NRXNS ) / & & 1.0000D+00, 1.0000D+00, 2.0000D+00, 1.0000D+00, 1.0000D+00, & ! O & 1.0000D+00, 1.0000D+00, 1.0000D+00, 2.0000D-01, 1.0000D+00, & ! + & 2.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.2200D+00, & ! 1 & 5.0000D-01, 1.0000D+00, 1.0000D+00, 3.4000D-01, 3.0000D-01, & ! + & 2.0000D+00, 1.0000D+00, 2.0000D+00, 1.0000D+00, 1.5000D+00, & ! 2 & 1.5000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 3 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 2.0000D+00, 1.0000D+00, 0.0000D+00, 1.0000D+00, & ! 4 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 2.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 5 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 7.0000D-01, 2.0000D+00, & ! + & 1.0000D+00, 2.0000D+00, 1.0000D+00, 1.0000D+00, 2.0000D+00, & ! 6 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 4.9000D-02, & ! 7 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 6.5000D-01, & ! + & 6.4800D-01, 1.7700D-01, 1.7700D-01, 1.7700D-01, 1.7700D-01, & ! 8 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 9 & 5.7000D-01, 1.0000D+00, 3.1300D-01, 1.0000D+00, 1.0000D+00, & ! + & 5.2000D-01, 5.2000D-01, 5.6000D-01, 1.0000D+00, 7.3000D-01, & ! O & 7.3000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 3.5000D-01, 1.0000D-02, 1.0000D+00, & ! 1 & 1.0000D+00, 1.0000D+00, 6.4000D-01, 3.5000D-01, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 2 & 8.0000D-02, 2.2000D-01, 4.6000D-01, 9.0000D-02, 2.5000D-01, & ! + & 8.5000D-01, 8.5000D-01, 1.9000D-01, 1.6000D-01, 1.0000D-01, & ! 3 & 5.0000D-02, 5.0000D-02, 5.0000D-02, 5.0000D-02, 1.0000D+00, & ! + & 8.0000D-01, 4.3000D-01, 1.1000D-01, 9.0000D-01, 1.0000D+00, & ! 4 & 1.0000D-01, 7.1000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 6.8000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 4.0000D-01, & ! 5 & 4.0000D-01, 5.0000D-01, 1.0000D+00, 1.0000D+00, 2.8000D-01, & ! + & 4.9000D-01, 1.5800D-01, 3.9000D-01, 1.5800D-01, 3.9000D-01, & ! 6 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 6.6000D-01, 2.0000D-01, & ! 7 & 6.0600D-01, 1.0000D+00, 7.8000D-01, 8.3000D-01, 9.1800D-01, & ! + & 1.0000D+00, 9.5000D-01, 5.0000D-01, 1.0000D+00, 9.5000D-01, & ! 8 & 9.5000D-01, 9.5000D-01, 8.8000D-01, 8.2000D-01, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 6.7000D-01, 7.7000D-01, & ! 9 & 6.5000D-01, 1.0000D+00, 3.0000D-01, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! O & 2.0000D+00, 2.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 1 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 2 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 4.4000D-01, 4.4000D-01, 1.5000D-01, 1.0000D+00, 1.0000D+00, & ! 3 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 4 & 1.0000D+00, 1.0000D+00, 7.4000D-01, 1.0000D+00, 8.9400D-01, & ! + & 8.4200D-01, 9.1000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 5 & 1.6000D+00, 1.0000D+00, 2.0000D+00, 2.0000D+00, 1.0000D+00, & ! + & 2.0000D+00, 2.0000D+00, 2.0000D+00, 1.0000D+00, 1.0000D+00, & ! 6 & 1.0000D+00, 9.0000D-01, 9.0000D-01, 5.0000D-01, 8.3400D-01, & ! + & 1.0000D+00, 5.0000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 7 & 1.0000D+00, 1.0000D+00, 2.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 2.0000D+00, 5.0000D-01, 1.0000D+00, 1.0000D+00, 5.0000D-01, & ! 8 & 3.9400D-01, 3.4200D-01, 3.0300D-01, 5.0000D-01, 5.0000D-01, & ! + & 5.0000D-01, 6.0000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 9 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 5.0000D-01, & ! + & 5.0000D-01, 5.0000D-01, 2.0000D+00, 1.0000D+00, 5.0000D-01, & ! O & 3.3000D-01, 5.0000D-01, 6.3500D-01, 1.0000D+00, 5.0000D-01, & ! + & 5.0000D-01, 1.0000D+00, 1.0000D+00, 2.0000D+00, 1.0000D+00, & ! 1 & 1.0000D+00, 1.0000D+00, 5.0000D-01, 1.0000D+00, 1.0000D+00, & ! + & 2.0000D+00, 1.0000D+00, 1.0000D+00, 2.5400D-01, 4.8800D-01, & ! 2 & 8.2000D-01, 1.0000D+00, 4.7000D-01, 8.6000D-01, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 5.0000D-01, 1.0000D+00, 1.0000D+00, & ! 3 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 6.7000D-01, 1.0000D+00, & ! 4 & 1.0000D+00, 1.0000D+00, 3.0000D-01, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 5 & 2.0000D+00, 2.0000D+00, 1.0000D+00, 5.0000D-01, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, & ! 6 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 7 & 1.0000D+00, 1.0000D+00, 2.0000D+00, 5.0000D-01, 0.0000D+00, & ! + & 1.0000D+00, 8.5710D-01, 1.1429D+00, 8.5710D-01, 1.1429D+00, & ! 8 & 7.1430D-01, 7.1430D-01, 8.0000D-01, 9.0000D-01, 5.0000D-01, & ! + & 5.0000D-01, 1.5000D+00, 1.4286D+00, 1.4286D+00, 1.7143D+00, & ! 9 & 1.7143D+00, 1.2500D+00, 1.0000D+00, 1.2500D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! O & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00/ ! 1 DATA ( SC( IRXXN, 2 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, & ! O & 1.0000D+00, 1.0000D+00, 1.0000D+00, 8.0000D-01, 0.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 7.8400D-01, & ! 1 & 5.0000D-01, 1.0000D+00, 1.0000D+00, 6.6000D-01, 3.0000D-01, & ! + & 0.0000D+00, 1.0000D+00, 2.0000D+00, 1.0000D+00, 2.5000D-01, & ! 2 & 2.5000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 1.0000D+00, 7.0000D-01, 0.0000D+00, & ! + & 1.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 1.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 9.5100D-01, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 3.5000D-01, & ! + & 3.5200D-01, 7.6300D-01, 7.6300D-01, 7.6300D-01, 7.6300D-01, & ! 8 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, & ! 9 & 4.3000D-01, 0.0000D+00, 6.8700D-01, 2.0000D+00, 1.0000D+00, & ! + & 3.3000D-01, 3.3000D-01, 2.1000D-01, 0.0000D+00, 2.0000D-01, & ! O & 2.0000D-01, 1.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 7.1900D-01, 1.0000D+00, 6.5000D-01, 4.4000D-01, 1.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 3.6000D-01, 6.5000D-01, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 7.0000D-02, & ! 2 & 1.5000D-01, 3.2000D-01, 7.0000D-02, 2.8000D-01, 2.5000D-01, & ! + & 1.0000D-01, 1.0000D-01, 1.4000D-01, 1.1000D-01, 7.2000D-02, & ! 3 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.5000D+00, 0.0000D+00, & ! + & 2.0000D-01, 5.7000D-01, 8.9000D-01, 1.0000D-01, 1.0000D+00, & ! 4 & 9.0000D-01, 2.9000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 3.2000D-01, 1.0000D+00, 2.0000D+00, 1.0000D+00, 1.0000D-01, & ! 5 & 1.0000D-01, 1.5000D+00, 1.0000D+00, 1.0000D+00, 2.9000D-01, & ! + & 1.0000D-02, 3.0800D-01, 1.0000D-02, 3.0800D-01, 1.0000D-02, & ! 6 & 0.0000D+00, 1.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.3100D-01, 5.1000D-02, & ! 7 & 1.3300D-01, 1.0000D+00, 9.7000D-01, 9.5000D-01, 9.1800D-01, & ! + & 1.0000D+00, 9.5000D-01, 9.5000D-01, 1.0000D+00, 9.5000D-01, & ! 8 & 9.5000D-01, 9.5000D-01, 8.8000D-01, 8.2000D-01, 6.8000D-01, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 2.3000D-01, & ! 9 & 3.5000D-01, 5.0000D-01, 7.0000D-01, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! O & 2.8700D-01, 1.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 4.4000D-01, 4.4000D-01, 1.5000D-01, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 1.3700D+00, 7.5000D-01, 8.0000D-02, & ! + & 1.8000D-02, 9.0000D-02, 1.9500D+00, 1.5000D+00, 7.5000D-01, & ! 5 & 4.5900D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.3100D+00, 7.5000D-01, & ! 6 & 1.0400D+00, 9.0000D-01, 9.0000D-01, 5.0000D-01, 1.0000D+00, & ! + & 7.5000D-01, 2.6900D-01, 1.0000D+00, 1.1600D+00, 3.0500D-01, & ! 7 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 5.0000D-01, 7.0000D-01, 1.0000D+00, 5.0000D-01, & ! 8 & 5.8000D-01, 5.1800D-01, 5.0000D-01, 5.0000D-01, 5.0000D-01, & ! + & 5.0000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 9 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 5.0000D-01, & ! + & 5.0000D-01, 5.0000D-01, 0.0000D+00, 1.0000D+00, 5.0000D-01, & ! O & 5.0000D-01, 5.0000D-01, 5.0000D-01, 5.0000D-01, 5.0000D-01, & ! + & 5.0000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 1 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 1.0000D+00, 1.0000D+00, 1.4000D-01, 5.5000D-02, & ! 2 & 1.8000D-01, 1.0000D+00, 7.9000D-01, 7.2000D-01, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 3 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 4 & 5.3800D-01, 1.0000D+00, 7.0000D-01, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 5 & 2.8700D-01, 1.0000D+00, 2.0000D+00, 5.0000D-01, 5.0400D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, & ! 6 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 7 & 4.7000D-01, 0.0000D+00, 0.0000D+00, 5.0000D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 1.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, & ! + & 1.0000D+00, 4.8570D-01, 3.0030D-01, 3.8560D-01, 2.1810D-01, & ! O & 2.4120D-01, 6.6640D-01, 2.8580D-01, 3.3030D-01, 3.4440D-01, & ! + & 3.8860D-01/ ! 1 DATA ( SC( IRXXN, 3 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 8.0000D-01, 0.0000D+00, & ! + & 0.0000D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00, 1.2200D+00, & ! 1 & 1.0000D+00, 0.0000D+00, 1.0000D+00, 6.7000D-01, 7.0000D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, 2.0000D-01, & ! 2 & 2.0000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00, & ! + & 2.0000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 3.0000D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.5000D-02, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 3.5000D-01, & ! + & 1.1800D-01, 6.0000D-02, 6.0000D-02, 6.0000D-02, 6.0000D-02, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 4.0000D-01, 1.3000D-01, 1.1000D-01, 0.0000D+00, 7.0000D-02, & ! O & 7.0000D-02, 1.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 1.8400D-01, 0.0000D+00, 3.5000D-01, 7.0000D-02, 9.0400D-01, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 3.5000D-01, 1.0000D+00, & ! + & 1.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, 7.0000D-02, & ! 2 & 4.3000D-01, 8.0000D-02, 3.2000D-01, 3.0000D-01, 8.0000D-02, & ! + & 2.0000D-01, 1.6000D-01, 1.0000D-01, 2.8000D-01, 8.0000D-03, & ! 3 & 6.0000D-01, 6.0000D-01, 1.5000D+00, 1.5000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 9.0000D-01, 0.0000D+00, & ! 4 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 6.8000D-01, 6.6800D-01, 1.0000D+00, 1.0000D+00, 5.0000D-01, & ! 5 & 5.0000D-01, 1.5000D+00, 0.0000D+00, 0.0000D+00, 2.8000D-01, & ! + & 5.0000D-01, 2.5000D-01, 3.0000D-01, 2.5000D-01, 5.0000D-01, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 1.0000D+00, 1.0000D+00, 4.8000D-02, 2.3100D-01, & ! 7 & 4.1600D-01, 1.6000D+00, 7.8000D-01, 8.1000D-01, 4.5900D-01, & ! + & 0.0000D+00, 9.5000D-01, 5.0000D-01, 0.0000D+00, 9.5000D-01, & ! 8 & 9.5000D-01, 3.5000D-01, 2.0000D-01, 2.3000D-01, 4.3000D-01, & ! + & 0.0000D+00, 0.0000D+00, 1.0000D+00, 3.3000D-01, 1.6000D-01, & ! 9 & 1.0000D+00, 5.0000D-01, 7.0000D-01, 6.1000D-01, 0.0000D+00, & ! + & 0.0000D+00, 3.2000D-01, 0.0000D+00, 1.0000D+00, 1.0000D+00, & ! O & 1.2400D+00, 1.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 1.5000D-01, 1.5000D-01, 1.5000D-01, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 6.3000D-01, 7.5000D-01, 2.6000D-02, & ! + & 1.4000D-01, 2.8100D-01, 1.5000D-01, 7.0500D-01, 1.2800D+00, & ! 5 & 1.0000D+00, 1.0000D+00, 2.7100D-01, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 3.6800D-01, 1.5900D-01, 7.5000D-01, & ! 6 & 1.9200D-01, 1.0000D+00, 1.0000D+00, 1.5000D+00, 3.3400D-01, & ! + & 5.0000D-01, 5.0000D-01, 1.5000D+00, 1.1600D+00, 7.7300D-01, & ! 7 & 1.0000D+00, 1.0000D+00, 3.2000D-01, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 9.6500D-01, 1.0000D+00, 0.0000D+00, 1.0000D+00, & ! 8 & 2.6000D-02, 1.4000D-01, 6.7000D-02, 1.6000D+00, 1.0000D+00, & ! + & 1.7100D+00, 4.5900D-01, 0.0000D+00, 1.0000D+00, 1.0000D+00, & ! 9 & 0.0000D+00, 1.0000D+00, 1.0000D+00, 3.6800D-01, 1.0480D+00, & ! + & 1.0000D+00, 1.9200D-01, 0.0000D+00, 0.0000D+00, 1.0000D+00, & ! O & 3.3000D-01, 5.0000D-01, 2.6900D-01, 1.0000D+00, 1.1600D+00, & ! + & 5.0000D-01, 0.0000D+00, 0.0000D+00, 3.2000D-01, 1.0000D+00, & ! 1 & 0.0000D+00, 1.0000D+00, 2.8700D-01, 7.0000D-01, 0.0000D+00, & ! + & 0.0000D+00, 1.0000D+00, 1.0000D+00, 9.2000D-02, 2.8000D-01, & ! 2 & 5.6300D-01, 1.6000D+00, 7.9000D-01, 1.1000D-01, 5.0000D-01, & ! + & 0.0000D+00, 1.0000D+00, 5.0000D-01, 0.0000D+00, 1.0000D+00, & ! 3 & 1.0000D+00, 3.6800D-01, 7.5000D-01, 1.0000D+00, 3.8500D-01, & ! + & 0.0000D+00, 0.0000D+00, 1.0000D+00, 3.3000D-01, 1.0000D+00, & ! 4 & 1.0000D+00, 1.0000D+00, 7.0000D-01, 6.1000D-01, 0.0000D+00, & ! + & 0.0000D+00, 3.2000D-01, 0.0000D+00, 1.0000D+00, 1.0000D+00, & ! 5 & 1.2400D+00, 1.0000D+00, 0.0000D+00, 2.0200D-01, 1.2100D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 1.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 6.2000D-03, 2.8620D-01, 9.5000D-02, 3.0630D-01, & ! O & 2.0890D-01, 1.4300D-02, 3.9310D-01, 2.2720D-01, 2.7490D-01, & ! + & 2.4210D-01/ ! 1 DATA ( SC( IRXXN, 4 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.0000D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 3.5000D-01, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 3.3000D-01, 7.0000D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, & ! 2 & 1.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 8.0000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.4000D-02, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 6.5000D-01, & ! + & 5.3000D-01, 1.7700D-01, 1.7700D-01, 1.7700D-01, 1.7700D-01, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 7.8000D-01, 1.0000D-01, 2.7000D-01, 0.0000D+00, 7.3000D-01, & ! O & 7.3000D-01, 1.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 8.0000D-02, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 3.5000D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 1.0000D+00, 6.0000D-02, 7.0000D-02, 3.0000D-02, 1.0000D-01, & ! + & 4.2000D-01, 4.2000D-01, 2.2000D-01, 1.0000D-02, 2.0000D-03, & ! 3 & 6.0000D-01, 6.0000D-01, 4.8000D-01, 8.5000D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 6.8000D-01, 3.3200D-01, 0.0000D+00, 0.0000D+00, 5.0000D-01, & ! 5 & 5.0000D-01, 1.0000D+00, 0.0000D+00, 0.0000D+00, 1.5000D-01, & ! + & 4.9000D-01, 3.0800D-01, 4.9000D-01, 1.5000D-01, 4.9000D-01, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 8.9000D-02, 2.3500D-01, & ! 7 & 7.3900D-01, 2.0000D-01, 1.2000D-02, 6.8000D-01, 4.5900D-01, & ! + & 0.0000D+00, 5.0000D-02, 5.0000D-01, 0.0000D+00, 5.0000D-02, & ! 8 & 9.5000D-01, 6.0000D-01, 2.8000D-01, 4.3000D-01, 7.0000D-02, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 6.7000D-01, 1.0000D+00, & ! 9 & 6.5000D-01, 1.0000D+00, 1.0000D+00, 3.0000D-02, 0.0000D+00, & ! + & 0.0000D+00, 6.8000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 4.6400D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 4.1000D-01, 4.1000D-01, 8.5000D-01, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.5000D-01, 2.6000D-02, & ! + & 1.9100D-01, 7.5000D-01, 2.5000D-01, 4.5000D-02, 2.1800D-01, & ! 5 & 4.5900D-01, 0.0000D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 1.0000D+00, 6.3200D-01, 2.5000D-01, 7.5000D-01, & ! 6 & 3.0800D-01, 1.0000D-01, 1.0000D-01, 2.5000D-01, 2.5000D-01, & ! + & 2.5000D-01, 1.6600D+00, 5.0000D-01, 1.5000D+00, 2.0300D-01, & ! 7 & 0.0000D+00, 0.0000D+00, 6.8000D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 9.3000D-01, 7.0000D-01, 0.0000D+00, 5.0000D-01, & ! 8 & 2.6000D-02, 1.9100D-01, 2.0800D-01, 2.0000D-01, 9.4000D-01, & ! + & 2.9000D-01, 4.5800D-01, 0.0000D+00, 0.0000D+00, 1.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 1.0000D+00, 6.3200D-01, 2.1900D-01, & ! + & 1.0000D+00, 3.8500D-01, 0.0000D+00, 0.0000D+00, 7.5000D-01, & ! O & 3.3400D-01, 5.0000D-01, 5.0000D-01, 5.0000D-01, 1.1600D+00, & ! + & 3.0000D-02, 0.0000D+00, 0.0000D+00, 6.8000D-01, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 1.2400D+00, 7.0000D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 5.0300D-01, 4.8500D-01, & ! 2 & 1.0000D+00, 2.0000D-01, 1.0000D+00, 1.0000D+00, 5.0000D-01, & ! + & 0.0000D+00, 0.0000D+00, 5.0000D-01, 0.0000D+00, 0.0000D+00, & ! 3 & 1.0000D+00, 6.3200D-01, 3.1800D-01, 1.0000D+00, 3.8500D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 6.7000D-01, 0.0000D+00, & ! 4 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 3.0000D-02, 0.0000D+00, & ! + & 0.0000D+00, 6.8000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 4.6400D-01, 0.0000D+00, 0.0000D+00, 6.4000D-01, 2.8500D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 2.5000D-03, 4.1000D-03, 1.3730D-01, 1.5300D-02, & ! O & 3.0000D-01, 1.2300D-02, 1.3900D-02, 2.6070D-01, 4.9100D-02, & ! + & 6.4000D-02/ ! 1 DATA ( SC( IRXXN, 5 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 4.3400D-01, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 3.4000D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 5.0000D-01, & ! 2 & 5.0000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 3.5000D-01, & ! + & 1.0000D+00, 1.0000D+00, 9.8000D-01, 1.0000D+00, 1.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 1.0000D-01, 1.0000D-02, 1.0000D-02, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 4.1000D-01, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 3.7000D-01, 4.0000D-02, 4.0000D-02, 1.5000D-01, 1.0000D-01, & ! + & 2.0000D-02, 2.0000D-02, 5.0000D-01, 5.6000D-01, 1.0000D-01, & ! 3 & 1.5000D+00, 1.5000D+00, 7.0000D-01, 1.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 3.2000D-01, 3.3200D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 5.0000D-01, 0.0000D+00, 0.0000D+00, 2.8000D-01, & ! + & 1.0000D-02, 1.5000D-01, 1.0000D-02, 3.0800D-01, 1.0000D-02, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 9.3500D-01, 8.6400D-01, & ! 7 & 1.5000D-01, 0.0000D+00, 4.4000D-01, 2.0000D-01, 9.1800D-01, & ! + & 0.0000D+00, 0.0000D+00, 5.0000D-01, 0.0000D+00, 0.0000D+00, & ! 8 & 1.0500D+00, 7.0000D-01, 4.4000D-01, 1.1000D-01, 1.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 4.6000D-01, & ! 9 & 6.5000D-01, 0.0000D+00, 3.0000D-01, 2.7000D-01, 0.0000D+00, & ! + & 0.0000D+00, 6.8000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.5000D-01, 8.2700D-01, & ! + & 7.7700D-01, 1.9700D-01, 2.5000D-01, 2.5000D-01, 2.5000D-01, & ! 5 & 6.0000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 1.0500D+00, 7.3700D-01, 2.5000D-01, 2.5000D-01, & ! 6 & 2.5000D-01, 0.0000D+00, 0.0000D+00, 2.5000D-01, 2.5000D-01, & ! + & 2.5000D-01, 6.7000D-02, 2.5000D-01, 1.7500D+00, 5.2500D-01, & ! 7 & 0.0000D+00, 0.0000D+00, 6.8000D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 3.4800D-01, 7.0000D-01, 0.0000D+00, 0.0000D+00, & ! 8 & 1.3000D-01, 4.2000D-02, 2.1700D-01, 5.0000D-01, 6.0000D-02, & ! + & 5.0000D-01, 6.0000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 1.0500D+00, 7.3700D-01, 3.0500D-01, & ! + & 1.0000D+00, 3.0800D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 5.0000D-01, 0.0000D+00, 1.0000D+00, 5.0000D-01, 1.0000D+00, & ! + & 2.7000D-01, 0.0000D+00, 0.0000D+00, 6.8000D-01, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 4.6400D-01, 7.0000D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, & ! 2 & 2.0300D-01, 0.0000D+00, 1.8000D-01, 2.0000D-01, 1.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 5.0000D-01, 0.0000D+00, 0.0000D+00, & ! 3 & 1.0500D+00, 7.3700D-01, 5.0000D-01, 0.0000D+00, 6.1500D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 3.0000D-01, 2.7000D-01, 0.0000D+00, & ! + & 0.0000D+00, 6.8000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.4900D-01, 1.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 2.6000D-03, 3.5000D-03, 5.0000D-04, 1.0430D-01, & ! O & 2.0280D-01, 1.2390D-01, 1.0270D-01, 7.0200D-02, 2.5770D-01, & ! + & 3.8500D-02/ ! 1 DATA ( SC( IRXXN, 6 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.1600D-01, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 6.7000D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 5.0000D-01, & ! 2 & 5.0000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 1.0000D-02, 7.8000D-01, 7.9000D-01, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 2.0000D-02, 9.0000D-02, 2.0000D-02, 9.0000D-02, & ! + & 1.4000D-01, 1.4000D-01, 4.5000D-01, 1.0000D-01, 2.4300D-01, & ! 3 & 5.0000D-02, 5.0000D-02, 2.5000D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 6.8000D-01, 1.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 5.0000D-01, 0.0000D+00, 0.0000D+00, 1.0000D-02, & ! + & 0.0000D+00, 2.2400D-01, 0.0000D+00, 2.2400D-01, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 5.0400D-01, 1.8000D-02, & ! 7 & 6.4200D-01, 0.0000D+00, 6.0000D-02, 9.0000D-02, 8.2000D-02, & ! + & 0.0000D+00, 0.0000D+00, 5.0000D-02, 0.0000D+00, 0.0000D+00, & ! 8 & 5.0000D-02, 7.3000D-02, 1.2000D-01, 4.4000D-01, 5.0000D-02, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 5.4000D-01, & ! 9 & 0.0000D+00, 0.0000D+00, 7.0000D-01, 1.8000D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.9800D-01, & ! + & 2.5100D-01, 6.5200D-01, 0.0000D+00, 2.5000D-01, 2.5000D-01, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 7.7000D-02, 2.5000D-01, 2.5000D-01, & ! 6 & 2.5000D-01, 0.0000D+00, 0.0000D+00, 1.2500D-01, 0.0000D+00, & ! + & 0.0000D+00, 2.5000D-01, 2.5000D-01, 5.0000D-01, 1.3500D-01, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 2.5000D-01, 3.0000D-01, 0.0000D+00, 0.0000D+00, & ! 8 & 2.7300D-01, 3.8100D-01, 6.4200D-01, 0.0000D+00, 5.0000D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 7.7000D-02, 5.0000D-01, & ! + & 0.0000D+00, 5.0000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 5.0000D-01, 2.3000D+00, & ! + & 7.0000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 5.0000D-01, 3.0000D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 5.1900D-01, 2.4000D-02, & ! 2 & 8.6900D-01, 0.0000D+00, 2.0000D-02, 8.5000D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 7.7000D-02, 2.4000D-02, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 7.0000D-01, 7.0000D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.5000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 2.3000D-03, 2.2390D-01, 2.0510D-01, 1.8930D-01, & ! O & 4.7100D-02, 1.8310D-01, 2.0450D-01, 1.1160D-01, 7.3900D-02, & ! + & 2.6670D-01/ ! 1 DATA ( SC( IRXXN, 7 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 6.7000D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 6.8000D-02, 3.7000D-01, 1.3000D-01, 1.4000D-01, & ! + & 6.5000D-01, 4.6000D-01, 0.0000D+00, 5.4000D-01, 8.0000D-02, & ! 3 & 5.0000D-02, 5.0000D-02, 2.5000D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.8000D-01, & ! + & 0.0000D+00, 1.0000D-02, 0.0000D+00, 1.0000D-02, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.3200D-01, 4.5000D-02, & ! 7 & 2.6100D-01, 0.0000D+00, 1.3000D-01, 2.0000D-02, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 1.7700D-01, 2.1000D-02, 7.0000D-02, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 3.0000D-01, 7.0000D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 4.9700D-01, & ! + & 6.1800D-01, 2.5000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 1.8600D-01, 2.3000D-02, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 2.5000D-01, 0.0000D+00, 2.5000D-01, 1.0500D-01, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 2.5000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 6.6200D-01, 8.2400D-01, 4.9500D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.8600D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 5.0000D-01, & ! + & 1.8000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.4700D-01, 2.4100D-01, & ! 2 & 0.0000D+00, 0.0000D+00, 9.0000D-02, 4.0000D-02, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 1.8600D-01, 3.3000D-02, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 3.0000D-01, 1.8000D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 2.9440D-01, 1.8200D-01, 1.7640D-01, 1.6680D-01, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00/ ! 1 DATA ( SC( IRXXN, 8 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 4.3000D-01, 2.6000D-02, 1.0000D-03, 5.8000D-01, & ! + & 5.3000D-01, 4.0000D-02, 0.0000D+00, 7.0000D-02, 4.2000D-01, & ! 3 & 8.0000D-02, 8.0000D-02, 1.1000D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 8.4000D-01, 0.0000D+00, 8.4000D-01, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.6500D-01, 2.0300D-01, & ! 7 & 0.0000D+00, 0.0000D+00, 3.0000D-02, 5.0000D-02, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 5.0000D-02, 2.9000D-02, 1.8000D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.1000D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 5.0000D-02, & ! + & 2.5000D-01, 2.5000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.8000D-02, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 2.5000D-01, 0.0000D+00, 2.5000D-01, 2.5000D-01, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 5.0000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 6.7000D-02, 5.0000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0830D+00, & ! + & 1.0500D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 7.5000D-02, 6.0000D-02, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 3.1000D-02, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.1000D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 2.0210D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00/ ! 1 DATA ( SC( IRXXN, 9 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 2.0000D-02, 1.0000D-02, 3.6000D-01, 4.6100D-01, & ! + & 1.0000D+00, 7.9000D-01, 0.0000D+00, 7.0000D-02, 2.8000D-02, & ! 3 & 6.5000D-01, 7.0000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 4.2000D-02, 3.3000D-02, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 2.7000D-02, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.5000D-01, & ! + & 2.5000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.6000D-02, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.9200D-01, 2.5000D-01, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 5.0000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 5.0000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 9.5000D-02, 6.3000D-02, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 1.9000D-03, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00/ ! 1 DATA ( SC( IRXXN, 10 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 1.5000D-02, 1.0000D-02, 3.5000D-01, 1.8900D-01, & ! + & 0.0000D+00, 1.0000D-02, 0.0000D+00, 1.0000D-01, 4.9100D-01, & ! 3 & 0.0000D+00, 6.5000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 6.5000D-02, 2.1700D-01, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.5000D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.4700D-01, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 2.3000D-03, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00/ ! 1 DATA ( SC( IRXXN, 11 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 6.0000D-03, 9.0000D-02, 9.0000D-01, 2.8000D-01, & ! + & 0.0000D+00, 7.0000D-02, 0.0000D+00, 0.0000D+00, 3.0000D-03, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 3.3000D-02, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 4.8000D-02, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00/ ! 1 DATA ( SC( IRXXN, 12 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 3.2000D-02, 4.5700D-01, 3.9000D-01, 1.5300D-01, & ! + & 0.0000D+00, 1.0000D+00, 0.0000D+00, 0.0000D+00, 4.4000D-02, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.7200D-01, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.7500D-01, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00/ ! 1 DATA ( SC( IRXXN, 13 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 5.6000D-01, 7.3000D-01, 1.5000D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.3600D-01, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00/ ! 1 DATA ( SC( IRXXN, 14 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 1.0000D-02, 1.1000D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00/ ! 1 DATA ( SC( IRXXN, 15 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 4.4000D-01, 1.7000D-02, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00/ ! 1 DATA ( SC( IRXXN, 16 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 3.0000D-02, 4.4000D-02, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00/ ! 1 DATA ( SC( IRXXN, 17 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 2.0000D-02, 1.7000D-02, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00/ ! 1 DATA ( SC( IRXXN, 18 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 6.0000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00/ ! 1 DATA ( SC( IRXXN, 19 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 1.0000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00/ ! 1 DATA ( SC( IRXXN, 20 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 3.0000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00/ ! 1 DATA ( SC( IRXXN, 21 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 6.0000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00/ ! 1 INTEGER :: NREACT( NRXNS ) DATA ( NREACT( IRXXN ), IRXXN = 1, NRXNS ) / & & 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, & ! O & 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, & ! 1 & 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, & ! 2 & 1, 1, 1, 2, 2, 2, 2, 1, 2, 1, & ! 3 & 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, & ! 4 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 5 & 2, 2, 2, 1, 1, 2, 1, 2, 2, 2, & ! 6 & 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 7 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 8 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 9 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! O & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 1 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 2 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 3 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 4 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, & ! 5 & 1, 1, 1, 1, 1, 2, 1, 2, 1, 2, & ! 6 & 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 7 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 8 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 9 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! O & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 1 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 2 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 3 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 4 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 5 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 6 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 7 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 8 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 9 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! O & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 1 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 2 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 3 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 4 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 5 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 6 & 2, 2, 2, 2, 2, 2, 2, 1, 1, 1, & ! 7 & 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, & ! 8 & 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, & ! 9 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! O & 2/ ! 1 INTEGER :: NPRDCT( NRXNS ) DATA ( NPRDCT( IRXXN ), IRXXN = 1, NRXNS ) / & & 1, 1, 1, 2, 1, 2, 2, 2, 4, 1, & ! O & 2, 3, 3, 2, 6, 3, 2, 3, 7, 4, & ! 1 & 1, 2, 2, 3, 6, 6, 3, 3, 3, 2, & ! 2 & 4, 2, 2, 1, 1, 1, 1, 1, 0, 1, & ! 3 & 1, 1, 1, 0, 1, 1, 1, 1, 1, 2, & ! 4 & 1, 1, 1, 1, 1, 1, 1, 2, 3, 1, & ! 5 & 2, 1, 1, 2, 1, 1, 2, 1, 3, 1, & ! 6 & 1, 1, 1, 1, 4, 1, 1, 1, 1, 5, & ! 7 & 5, 5, 5, 5, 5, 2, 2, 2, 2, 1, & ! 8 & 1, 1, 1, 1, 2, 2, 1, 2, 2, 2, & ! 9 & 6, 6, 6, 1, 4, 4, 4, 1, 2, 2, & ! O & 3, 2, 3, 5, 3, 1, 1, 2, 4, 3, & ! 1 & 3, 2, 2, 3, 3, 5, 21, 17, 13, 12, & ! 2 & 9, 12, 6, 10, 12, 9, 10, 8, 5, 1, & ! 3 & 2, 2, 2, 3, 2, 3, 3, 3, 2, 2, & ! 4 & 6, 6, 3, 3, 4, 4, 6, 2, 2, 7, & ! 5 & 5, 8, 5, 8, 5, 1, 2, 1, 2, 1, & ! 6 & 2, 3, 3, 10, 13, 7, 4, 8, 8, 6, & ! 7 & 2, 4, 6, 2, 4, 6, 8, 9, 8, 6, & ! 8 & 2, 2, 3, 4, 6, 5, 4, 7, 8, 2, & ! 9 & 2, 5, 2, 3, 3, 4, 3, 1, 1, 1, & ! O & 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, & ! 1 & 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, & ! 2 & 4, 4, 4, 1, 1, 1, 1, 1, 1, 1, & ! 3 & 1, 1, 1, 1, 1, 1, 1, 3, 5, 10, & ! 4 & 9, 8, 5, 6, 6, 5, 3, 4, 4, 3, & ! 5 & 3, 5, 7, 9, 6, 6, 4, 4, 6, 5, & ! 6 & 5, 8, 6, 9, 9, 3, 3, 5, 3, 3, & ! 7 & 3, 8, 6, 2, 4, 9, 8, 7, 5, 6, & ! 8 & 5, 5, 2, 3, 4, 2, 3, 5, 7, 6, & ! 9 & 5, 6, 1, 2, 4, 5, 4, 5, 6, 8, & ! O & 9, 2, 2, 5, 3, 2, 3, 6, 6, 1, & ! 1 & 1, 3, 3, 9, 12, 6, 4, 7, 7, 5, & ! 2 & 2, 3, 5, 2, 3, 5, 7, 8, 4, 5, & ! 3 & 2, 2, 3, 4, 3, 4, 4, 7, 8, 2, & ! 4 & 2, 5, 2, 3, 3, 4, 3, 2, 6, 5, & ! 5 & 1, 1, 0, 2, 2, 2, 2, 2, 2, 2, & ! 6 & 2, 2, 2, 2, 2, 2, 1, 1, 2, 0, & ! 7 & 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, & ! 8 & 1, 1, 1, 1, 1, 1, 3, 1, 3, 1, & ! 9 & 2, 10, 7, 7, 7, 6, 6, 6, 6, 6, & ! O & 6/ ! 1 INTEGER, PARAMETER :: MHETERO = 5 INTEGER :: IHETERO( MHETERO,2 ) DATA ( IHETERO( IRXXN,1 ), IRXXN = 1, MHETERO ) / & & 378, 379, 381, 398, 400/ DATA ( IHETERO( IRXXN,2 ), IRXXN = 1, MHETERO ) / & & 1, 2, 3, 4, 5/ INTEGER, PARAMETER :: NPHOTAB = 30 CHARACTER( 16 ) :: PHOTAB( NPHOTAB ) DATA ( PHOTAB( IRXXN ), IRXXN = 1, NPHOTAB ) / & & 'O3O3P_NASA06 ', 'O3O1D_NASA06 ', 'H2O2_RACM2 ', & & 'NO2_RACM2 ', 'NO3NO_RACM2 ', 'NO3NO2_RACM2 ', & & 'HONO_RACM2 ', 'HNO3_RACM2 ', 'HNO4_RACM2 ', & & 'HCHO_MOL_JPL19 ', 'HCHO_RAD_JPL19 ', 'CH3CHO_RACM2 ', & & 'ALD_RACM2 ', 'CH3COCH3_RACM2 ', 'UALD_RACM2 ', & & 'MEK_RACM2 ', 'KET_RACM2 ', 'HKET_RACM2 ', & & 'MACR_RACM2 ', 'MVK_RACM2 ', 'GLYH2_RACM2 ', & & 'GLYF_RACM2 ', 'GLYHX_RACM2 ', 'MGLY_RACM2 ', & & 'BALD_RACM2 ', 'OP1_RACM2 ', 'PAA_RACM2 ', & & 'ONIT_RACM2 ', 'PAN1_RACM2 ', 'PAN2_RACM2 '/ INTEGER, PARAMETER :: NHETERO = 5 CHARACTER( 16 ) :: HETERO( NHETERO ) DATA ( HETERO( IRXXN ), IRXXN = 1, NHETERO ) / & & 'HETERO_N2O5IJ ', 'HETERO_NO2 ', 'HETERO_IEPOX ', & & 'HETERO_PNCOMLI ', 'HETERO_PNCOMLJ '/ CHARACTER( 16 ) :: RXLABEL( NRXNS ) DATA ( RXLABEL( IRXXN ), IRXXN = 1, NRXNS ) / & & 'R001 ', 'R002 ', 'R003 ', & ! 0 & 'R004 ', 'R005 ', 'R006 ', & ! 1 & 'R007 ', 'R008 ', 'R009 ', & ! 2 & 'R010 ', 'R011 ', 'R012 ', & ! 3 & 'R013 ', 'R014 ', 'R015 ', & ! 4 & 'R016 ', 'R017 ', 'R018 ', & ! 5 & 'R019 ', 'R020 ', 'R021 ', & ! 6 & 'R022 ', 'R023 ', 'R024 ', & ! 7 & 'R025 ', 'R026 ', 'R027 ', & ! 8 & 'R028 ', 'R029 ', 'R030 ', & ! 9 & 'R031 ', 'R032 ', 'R033 ', & ! 0 & 'R034 ', 'R035 ', 'R036 ', & ! 1 & 'R037 ', 'R038 ', 'R039 ', & ! 2 & 'R040 ', 'R041 ', 'R042 ', & ! 3 & 'R043 ', 'R044 ', 'R045 ', & ! 4 & 'R046 ', 'R047 ', 'R048 ', & ! 5 & 'R049 ', 'R050 ', 'R051 ', & ! 6 & 'R052 ', 'R053 ', 'R054 ', & ! 7 & 'R055 ', 'R056 ', 'R057 ', & ! 8 & 'R058 ', 'R059 ', 'R060 ', & ! 9 & 'R061 ', 'R062 ', 'R063 ', & ! 0 & 'R064 ', 'R065 ', 'R066 ', & ! 1 & 'R067 ', 'R068 ', 'R069 ', & ! 2 & 'R070 ', 'R071 ', 'R072 ', & ! 3 & 'R073 ', 'R074 ', 'R075 ', & ! 4 & 'R076 ', 'R077 ', 'R078 ', & ! 5 & 'R079 ', 'R080 ', 'R081 ', & ! 6 & 'R082 ', 'R083 ', 'R084 ', & ! 7 & 'R085 ', 'R086 ', 'R087 ', & ! 8 & 'R088 ', 'R089 ', 'R090 ', & ! 9 & 'R091 ', 'R092 ', 'R093 ', & ! 0 & 'R094 ', 'R095 ', 'R096 ', & ! 1 & 'R097 ', 'R098 ', 'R099 ', & ! 2 & 'R100 ', 'R101 ', 'R102 ', & ! 3 & 'R103 ', 'R104 ', 'R105 ', & ! 4 & 'R106 ', 'R107 ', 'R108 ', & ! 5 & 'R109 ', 'R110 ', 'R111 ', & ! 6 & 'R112 ', 'R113 ', 'R114 ', & ! 7 & 'R115 ', 'R116 ', 'R117 ', & ! 8 & 'R118 ', 'R119 ', 'R120 ', & ! 9 & 'R121 ', 'R122 ', 'R123 ', & ! 0 & 'R124 ', 'R125 ', 'R126 ', & ! 1 & 'R127 ', 'R128 ', 'R129 ', & ! 2 & 'R130 ', 'R131 ', 'R132 ', & ! 3 & 'R133 ', 'R134 ', 'R135 ', & ! 4 & 'R136 ', 'R137 ', 'R138 ', & ! 5 & 'R139 ', 'R140 ', 'R141 ', & ! 6 & 'R142 ', 'R143 ', 'R144 ', & ! 7 & 'R145 ', 'R146 ', 'R147 ', & ! 8 & 'R148 ', 'R149 ', 'R150 ', & ! 9 & 'R151 ', 'R152 ', 'R153 ', & ! 0 & 'R154 ', 'R155 ', 'R156 ', & ! 1 & 'R157 ', 'R158 ', 'R159 ', & ! 2 & 'R160 ', 'R161 ', 'R162 ', & ! 3 & 'R163 ', 'R164 ', 'R165 ', & ! 4 & 'R166 ', 'R167 ', 'R168 ', & ! 5 & 'R169 ', 'R170 ', 'R171 ', & ! 6 & 'R172 ', 'R173 ', 'R174 ', & ! 7 & 'R175 ', 'R176 ', 'R177 ', & ! 8 & 'R178 ', 'R179 ', 'R180 ', & ! 9 & 'R181 ', 'R182 ', 'R183 ', & ! 0 & 'R184 ', 'R185 ', 'R186 ', & ! 1 & 'R187 ', 'R188 ', 'R189 ', & ! 2 & 'R190 ', 'R191 ', 'R192 ', & ! 3 & 'R193 ', 'R194 ', 'R195 ', & ! 4 & 'R196 ', 'R197 ', 'R198 ', & ! 5 & 'R199 ', 'R200 ', 'R201 ', & ! 6 & 'R202 ', 'R203 ', 'R204 ', & ! 7 & 'R205 ', 'R206 ', 'R207 ', & ! 8 & 'R208 ', 'R209 ', 'R210 ', & ! 9 & 'R211 ', 'R212 ', 'R213 ', & ! 0 & 'R214 ', 'R215 ', 'R216 ', & ! 1 & 'R217 ', 'R218 ', 'R219 ', & ! 2 & 'R220 ', 'R221 ', 'R222 ', & ! 3 & 'R223 ', 'R224 ', 'R225 ', & ! 4 & 'R226 ', 'R227 ', 'R228 ', & ! 5 & 'R229 ', 'R230 ', 'R231 ', & ! 6 & 'R232 ', 'R233 ', 'R234 ', & ! 7 & 'R235 ', 'R236 ', 'R237 ', & ! 8 & 'R238 ', 'R239 ', 'R240 ', & ! 9 & 'R241 ', 'R242 ', 'R243 ', & ! 0 & 'R244 ', 'R245 ', 'R246 ', & ! 1 & 'R247 ', 'R248 ', 'R249 ', & ! 2 & 'R250 ', 'R251 ', 'R252 ', & ! 3 & 'R253 ', 'R254 ', 'R255 ', & ! 4 & 'R256 ', 'R257 ', 'R258 ', & ! 5 & 'R259 ', 'R260 ', 'R261 ', & ! 6 & 'R262 ', 'R263 ', 'R264 ', & ! 7 & 'R265 ', 'R266 ', 'R267 ', & ! 8 & 'R268 ', 'R269 ', 'R270 ', & ! 9 & 'R271 ', 'R272 ', 'R273 ', & ! 0 & 'R274 ', 'R275 ', 'R276 ', & ! 1 & 'R277 ', 'R278 ', 'R279 ', & ! 2 & 'R280 ', 'R281 ', 'R282 ', & ! 3 & 'R283 ', 'R284 ', 'R285 ', & ! 4 & 'R286 ', 'R287 ', 'R288 ', & ! 5 & 'R289 ', 'R290 ', 'R291 ', & ! 6 & 'R292 ', 'R293 ', 'R294 ', & ! 7 & 'R295 ', 'R296 ', 'R297 ', & ! 8 & 'R298 ', 'R299 ', 'R300 ', & ! 9 & 'R301 ', 'R302 ', 'R303 ', & ! 0 & 'R304 ', 'R305 ', 'R306 ', & ! 1 & 'R307 ', 'R308 ', 'R309 ', & ! 2 & 'R310 ', 'R311 ', 'R312 ', & ! 3 & 'R313 ', 'R314 ', 'R315 ', & ! 4 & 'R316 ', 'R317 ', 'R318 ', & ! 5 & 'R319 ', 'R320 ', 'R321 ', & ! 6 & 'R322 ', 'R323 ', 'R324 ', & ! 7 & 'R325 ', 'R326 ', 'R327 ', & ! 8 & 'R328 ', 'R329 ', 'R330 ', & ! 9 & 'R331 ', 'R332 ', 'R333 ', & ! 0 & 'R334 ', 'R335 ', 'R336 ', & ! 1 & 'R337 ', 'R338 ', 'R339 ', & ! 2 & 'R340 ', 'R341 ', 'R342 ', & ! 3 & 'R343 ', 'R344 ', 'R345 ', & ! 4 & 'R346 ', 'R347 ', 'R348 ', & ! 5 & 'R349 ', 'R350 ', 'R351 ', & ! 6 & 'R352 ', 'R353 ', 'R354 ', & ! 7 & 'R355 ', 'R356 ', 'R357 ', & ! 8 & 'R358 ', 'R359 ', 'R360 ', & ! 9 & 'R361 ', 'R362 ', 'R363 ', & ! 0 & 'SA01 ', 'SA02 ', 'SA03 ', & ! 1 & 'SA04 ', 'SA05 ', 'SA06 ', & ! 2 & 'SA07 ', 'SA08 ', 'SA09 ', & ! 3 & 'SA10 ', 'SA11 ', 'SA12 ', & ! 4 & 'SA13 ', 'SA14 ', 'HET_N2O5 ', & ! 5 & 'HET_N02 ', 'HAL_Ozone ', 'HET_IEPOX ', & ! 6 & 'OLIG_XYLENE1 ', 'OLIG_XYLENE2 ', 'OLIG_TOLUENE1 ', & ! 7 & 'OLIG_TOLUENE2 ', 'OLIG_BENZENE1 ', 'OLIG_BENZENE2 ', & ! 8 & 'OLIG_TERPENE1 ', 'OLIG_TERPENE2 ', 'OLIG_ISOPRENE1 ', & ! 9 & 'OLIG_ISOPRENE2 ', 'OLIG_SESQT1 ', 'OLIG_PAH1 ', & ! 0 & 'OLIG_PAH2 ', 'OLIG_ALK1 ', 'OLIG_ALK2 ', & ! 1 & 'RPOAGEPI ', 'RPOAGELI ', 'RPOAGEPJ ', & ! 2 & 'RPOAGELJ ', 'PCSOA ', 'POA_AGE1 ', & ! 3 & 'POA_AGE2 ', 'POA_AGE3 ', 'POA_AGE4 ', & ! 4 & 'POA_AGE5 ', 'POA_AGE6 ', 'POA_AGE7 ', & ! 5 & 'POA_AGE8 ', 'POA_AGE9 ', 'POA_AGE10 '/! 6 ! NSPECIAL = Number of special rate coefficients ! SPECIAL = Names of special rate coefficients ! NSPECIAL_RXN = Number of reactions with special rates ! ISPECIAL = Pointers to reactions using special rates and their special rate coefficients ! MAXSPECTERMS = Max Number of terms type used by special rate coefficients ! KC_COEFFS = Coefficients of standard rate coefficients times concentration terms ! INDEX_KTERMS = Pointers to standard rate coefficients in special rate coefficients ! INDEX_CTERMS = Pointers to species concentrations in special rate coefficients ! OPERATOR_COEFFS = Coefficients of preceeding special rate coefficients used in special coefficient ! OPERATORS = Pointers to preceeding special rate coefficients used in special coefficient ! Special Rate information not available .. INTEGER, PARAMETER :: NSPECIAL_RXN = 0 INTEGER :: ISPECIAL( 1, 2 ) ! Special Rate information not available ... INTEGER, PARAMETER :: NSPECIAL = 0 ! Special Rate information not available ... CHARACTER( 16 ) :: SPECIAL( 1 ) INTEGER, PARAMETER :: MAXSPECTERMS = 1 REAL( 8 ) :: KC_COEFFS( NSPECIAL + 1, MAXSPECTERMS) INTEGER :: INDEX_KTERMS( NSPECIAL + 1, MAXSPECTERMS) INTEGER :: INDEX_CTERMS( NSPECIAL + 1, MAXSPECTERMS) REAL( 8 ) :: OPERATOR_COEFFS( NSPECIAL + 1, MAXSPECTERMS) INTEGER :: OPERATORS( NSPECIAL + 1, MAXSPECTERMS) ! Steady-state species section ! N_SS_SPC = Number of species assumed to be in steady-state ! SS_SPC_DIM = Dimension paramete for steady-state species ! SS_SPC = Names of species assumed to be in steady-state ! MAX_SS_LOSS = Max no. of SS loss rxns for any SS species ! MAX_SS_PROD = Max no. of SS prod rxns for any SS species ! N_LOSS_RXNS = No. of SS loss rxns for each SS species ! N_PROD_RXNS = No. of SS prod rxns for each SS species ! SS_LOSS_RXNS = List of SS loss rxns for each SS species ! SS_PROD_RXNS = List of SS prod rxns for each SS species ! SS_PROD_COEF = List of SS prod yields for each SS species ! SS_RCT_IND = SS species index if it is a rxn reactant INTEGER, PARAMETER :: N_SS_SPC = 0 INTEGER, PARAMETER :: SS_SPC_DIM = 1 INTEGER, PARAMETER :: MAX_SS_LOSS = 0 INTEGER, PARAMETER :: MAX_SS_PROD = 0 CHARACTER( 16 ) :: SS_SPC( 1 ) INTEGER :: N_LOSS_RXNS( 1 ) INTEGER :: N_PROD_RXNS( 1 ) INTEGER :: SS_LOSS_RXNS( 1, 1 ) INTEGER :: SS_PROD_RXNS( 1, 1 ) INTEGER :: SS_RCT_IND( 1 ) REAL :: SS_PROD_COEF( 1,1 ) LOGICAL, PARAMETER :: USE_SPECIAL_RATES = .FALSE. ! pointers and names to specific photolysis rates INTEGER, PARAMETER :: IJ_O3O3P_NASA06 = 1 INTEGER, PARAMETER :: IJ_O3O1D_NASA06 = 2 INTEGER, PARAMETER :: IJ_H2O2_RACM2 = 3 INTEGER, PARAMETER :: IJ_NO2_RACM2 = 4 INTEGER, PARAMETER :: IJ_NO3NO_RACM2 = 5 INTEGER, PARAMETER :: IJ_NO3NO2_RACM2 = 6 INTEGER, PARAMETER :: IJ_HONO_RACM2 = 7 INTEGER, PARAMETER :: IJ_HNO3_RACM2 = 8 INTEGER, PARAMETER :: IJ_HNO4_RACM2 = 9 INTEGER, PARAMETER :: IJ_HCHO_MOL_JPL19 = 10 INTEGER, PARAMETER :: IJ_HCHO_RAD_JPL19 = 11 INTEGER, PARAMETER :: IJ_CH3CHO_RACM2 = 12 INTEGER, PARAMETER :: IJ_ALD_RACM2 = 13 INTEGER, PARAMETER :: IJ_CH3COCH3_RACM2 = 14 INTEGER, PARAMETER :: IJ_UALD_RACM2 = 15 INTEGER, PARAMETER :: IJ_MEK_RACM2 = 16 INTEGER, PARAMETER :: IJ_KET_RACM2 = 17 INTEGER, PARAMETER :: IJ_HKET_RACM2 = 18 INTEGER, PARAMETER :: IJ_MACR_RACM2 = 19 INTEGER, PARAMETER :: IJ_MVK_RACM2 = 20 INTEGER, PARAMETER :: IJ_GLYH2_RACM2 = 21 INTEGER, PARAMETER :: IJ_GLYF_RACM2 = 22 INTEGER, PARAMETER :: IJ_GLYHX_RACM2 = 23 INTEGER, PARAMETER :: IJ_MGLY_RACM2 = 24 INTEGER, PARAMETER :: IJ_BALD_RACM2 = 25 INTEGER, PARAMETER :: IJ_OP1_RACM2 = 26 INTEGER, PARAMETER :: IJ_PAA_RACM2 = 27 INTEGER, PARAMETER :: IJ_ONIT_RACM2 = 28 INTEGER, PARAMETER :: IJ_PAN1_RACM2 = 29 INTEGER, PARAMETER :: IJ_PAN2_RACM2 = 30 INTEGER, PARAMETER :: IK_HETERO_N2O5IJ = 1 INTEGER, PARAMETER :: IK_HETERO_NO2 = 2 INTEGER, PARAMETER :: IK_HETERO_IEPOX = 3 INTEGER, PARAMETER :: IK_HETERO_PNCOMLI = 4 INTEGER, PARAMETER :: IK_HETERO_PNCOMLJ = 5 END MODULE RXNS_DATA ================================================ FILE: CCTM/src/MECHS/racm2_ae6_aq/RXNS_FUNC_MODULE.F90 ================================================ MODULE RXNS_FUNCTION IMPLICIT NONE ! Name of Mechanism RACM2_AE6_AQ PUBLIC :: CALC_RCONST, SPECIAL_RATES, MAP_CHEMISTRY_SPECIES CONTAINS REAL( 8 ) FUNCTION POWER_T02( TEMPOT300,A0,B0 ) IMPLICIT NONE ! rate constant for CMAQ Arrhenuis reaction type 2 ! Arguements: REAL( 8 ), INTENT( IN ) :: TEMPOT300 REAL( 8 ), INTENT( IN ) :: A0 REAL( 8 ), INTENT( IN ) :: B0 ! Local: None POWER_T02 = A0 * TEMPOT300**B0 RETURN END FUNCTION POWER_T02 REAL( 8 ) FUNCTION ARRHENUIS_T04( INV_TEMP,TEMPOT300,A0,B0,C0 ) IMPLICIT NONE ! rate constant for CMAQ Arrhenuis reaction type 4 ! Arguements: REAL( 8 ), INTENT( IN ) :: INV_TEMP REAL( 8 ), INTENT( IN ) :: TEMPOT300 REAL( 8 ), INTENT( IN ) :: A0 REAL( 8 ), INTENT( IN ) :: B0 REAL( 8 ), INTENT( IN ) :: C0 ! Local: INTRINSIC DEXP ARRHENUIS_T04 = A0 * DEXP( B0 * INV_TEMP ) * TEMPOT300**C0 RETURN END FUNCTION ARRHENUIS_T04 REAL( 8 ) FUNCTION ARRHENUIS_T03( INV_TEMP,A0,B0 ) ! rate constant for CMAQ Arrhenuis reaction type 3 IMPLICIT NONE ! Arguements: REAL( 8 ), INTENT( IN ) :: INV_TEMP REAL( 8 ), INTENT(IN) :: A0 REAL( 8 ), INTENT(IN) :: B0 ! Local: INTRINSIC DEXP ARRHENUIS_T03 = A0 * DEXP( B0 * INV_TEMP ) RETURN END FUNCTION ARRHENUIS_T03 REAL( 8 ) FUNCTION FALLOFF_T08(INV_TEMP,CAIR,A0,C0,A2,C2,A3,C3) ! rate constant for CMAQ fall off reaction type 8 IMPLICIT NONE ! Arguements: REAL( 8 ), INTENT( IN ) :: INV_TEMP REAL( 8 ), INTENT( IN ) :: CAIR REAL( 8 ), INTENT( IN ) :: A0 REAL( 8 ), INTENT( IN ) :: C0 REAL( 8 ), INTENT( IN ) :: A2 REAL( 8 ), INTENT( IN ) :: C2 REAL( 8 ), INTENT( IN ) :: A3 REAL( 8 ), INTENT( IN ) :: C3 ! Local: REAL( 8 ) K0 REAL( 8 ) K2 REAL( 8 ) K3 INTRINSIC DEXP K0 = A0 * DEXP( C0 * INV_TEMP ) K2 = A2 * DEXP( C2 * INV_TEMP ) K3 = A3 * DEXP( C3 * INV_TEMP ) K3 = K3 * CAIR FALLOFF_T08 = K0 + K3/( 1.0D0 + K3/K2 ) RETURN END FUNCTION FALLOFF_T08 REAL( 8 ) FUNCTION FALLOFF_T09(INV_TEMP,CAIR,A1,C1,A2,C2) ! rate constant for CMAQ fall off reaction type 9 IMPLICIT NONE ! Arguements: REAL( 8 ), INTENT( IN ) :: INV_TEMP REAL( 8 ), INTENT( IN ) :: CAIR REAL( 8 ), INTENT( IN ) :: A1 REAL( 8 ), INTENT( IN ) :: C1 REAL( 8 ), INTENT( IN ) :: A2 REAL( 8 ), INTENT( IN ) :: C2 ! Local: REAL( 8 ) K1 REAL( 8 ) K2 INTRINSIC DEXP K1 = A1 * DEXP( C1 * INV_TEMP ) K2 = A2 * DEXP( C2 * INV_TEMP ) FALLOFF_T09 = K1 + K2 * CAIR RETURN END FUNCTION FALLOFF_T09 REAL( 8 ) FUNCTION FALLOFF_T10(INV_TEMP,TEMPOT300,CAIR,A0,B0,C0,A1,B1,C1,CE,CF) IMPLICIT NONE ! rate constant for CMAQ fall off reaction type 10 ! Arguements: REAL( 8 ), INTENT( IN ) :: INV_TEMP REAL( 8 ), INTENT( IN ) :: TEMPOT300 REAL( 8 ), INTENT( IN ) :: CAIR REAL( 8 ), INTENT( IN ) :: A0 REAL( 8 ), INTENT( IN ) :: B0 REAL( 8 ), INTENT( IN ) :: C0 REAL( 8 ), INTENT( IN ) :: A1 REAL( 8 ), INTENT( IN ) :: B1 REAL( 8 ), INTENT( IN ) :: C1 REAL( 8 ), INTENT( IN ) :: CE REAL( 8 ), INTENT( IN ) :: CF ! Local: REAL( 8 ) K0 REAL( 8 ) K1 REAL( 8 ) KEND K0 = A0 * CAIR * DEXP(B0*INV_TEMP)* TEMPOT300**C0 K1 = A1 * DEXP(B1*INV_TEMP) * TEMPOT300**C1 KEND = ( ( 1.0D0 + ( ( 1.0D0 / CE ) * DLOG10( K0 / K1 ) ) ** 2.0D0 ) ) KEND = 1.0D0 / KEND FALLOFF_T10 = ( K0 / ( 1.0D0 + K0/K1 ) ) * CF ** KEND RETURN END FUNCTION FALLOFF_T10 REAL( 8 ) FUNCTION FALLOFF_T11(INV_TEMP,TEMPOT300,CAIR,A1,B1,C1,A2, B2, C2, D1, D2) ! rate constant for CMAQ fall off reaction type 11 ! actually expanded form of type 9 IMPLICIT NONE ! Arguements: REAL( 8 ), INTENT( IN ) :: INV_TEMP REAL( 8 ), INTENT( IN ) :: TEMPOT300 REAL( 8 ), INTENT( IN ) :: CAIR REAL( 8 ), INTENT( IN ) :: A1 REAL( 8 ), INTENT( IN ) :: B1 REAL( 8 ), INTENT( IN ) :: C1 REAL( 8 ), INTENT( IN ) :: A2 REAL( 8 ), INTENT( IN ) :: B2 REAL( 8 ), INTENT( IN ) :: C2 REAL( 8 ), INTENT( IN ) :: D1 REAL( 8 ), INTENT( IN ) :: D2 ! Local: REAL( 8 ) K1 REAL( 8 ) K2 REAL( 8 ) K3 INTRINSIC DEXP K1 = A1 * DEXP( C1 * INV_TEMP ) * TEMPOT300**B1 K2 = A2 * DEXP( C2 * INV_TEMP ) * TEMPOT300**B2 K3 = D1 * DEXP( D2 * INV_TEMP ) FALLOFF_T11 = K1 + K2 * CAIR + K3 RETURN END FUNCTION FALLOFF_T11 REAL( 8 ) FUNCTION HALOGEN_FALLOFF(PRESS,A1,B1,A2,B2,A3) IMPLICIT NONE REAL( 8 ), INTENT( IN ) :: PRESS REAL( 8 ), INTENT( IN ) :: A1 REAL( 8 ), INTENT( IN ) :: B1 REAL( 8 ), INTENT( IN ) :: A2 REAL( 8 ), INTENT( IN ) :: B2 REAL( 8 ), INTENT( IN ) :: A3 ! Maximum loss rate (1/sec) INTRINSIC DEXP HALOGEN_FALLOFF = A1 * DEXP( B1 * PRESS ) + A2 * DEXP( B2 * PRESS ) HALOGEN_FALLOFF = DMIN1 (A3, HALOGEN_FALLOFF ) RETURN END FUNCTION HALOGEN_FALLOFF SUBROUTINE SPECIAL_RATES( NUMCELLS, Y, TEMP, DENS, RKI ) ! Purpose: calculate special rate operators and update ! appropriate rate constants USE RXNS_DATA IMPLICIT NONE ! Arguments: INTEGER, INTENT( IN ) :: NUMCELLS ! Number of cells in block REAL( 8 ), INTENT( IN ) :: Y( :, : ) ! species concs REAL( 8 ), INTENT( IN ) :: TEMP( : ) ! air temperature, K REAL( 8 ), INTENT( IN ) :: DENS( : ) ! air density, Kg/m3 REAL( 8 ), INTENT( INOUT ) :: RKI( :, : ) ! reaction rate constant, ppm/min ! Local: REAL( 8 ), PARAMETER :: DENSITY_TO_NUMBER = 2.07930D+19 ! Kg/m3 to molecules/cm3 INTEGER :: NCELL REAL( 8 ) :: INV_TEMP REAL( 8 ) :: CAIR REAL( 8 ) :: CFACT ! scales operator if not multiplied by RKI, cm^3/(molecule) to 1/(ppm) REAL( 8 ) :: CFACT_SQU ! scales operator if not multiplied by RKI, cm^6/(molec^2) to 1/(ppm^2) ! special rate operators listed below DO NCELL = 1, NUMCELLS INV_TEMP = 1.0D0 / TEMP( NCELL ) CAIR = DENSITY_TO_NUMBER * DENS( NCELL ) CFACT = 1.0D-06 * CAIR CFACT_SQU = 1.0D-12 * CAIR * CAIR ! define special rate operators ! define rate constants in terms of special rate operators END DO RETURN END SUBROUTINE SPECIAL_RATES SUBROUTINE CALC_RCONST( BLKTEMP, BLKPRES, BLKH2O, RJBLK, BLKHET, LSUNLIGHT, SEAWATER, RKI, NUMCELLS ) !********************************************************************** ! Function: To compute thermal and photolytic reaction rate ! coefficients for each reaction. ! Preconditions: Photolysis rates for individual species must have ! been calculated and stored in RJPHOT. Expects ! temperature in deg K, pressure in atm., water ! vapor in ppmV, and J-values in /min. ! Key Subroutines/Functions Called: POWER_02, ARRHRENUIS_T0*, FALLOFF_T*, HALOGEN_FALLOFF !*********************************************************************** USE RXNS_DATA IMPLICIT NONE ! Arguements: None REAL( 8 ), INTENT( IN ) :: BLKTEMP( : ) ! temperature, deg K REAL( 8 ), INTENT( IN ) :: BLKPRES( : ) ! pressure, Atm REAL( 8 ), INTENT( IN ) :: BLKH2O ( : ) ! water mixing ratio, ppm REAL( 8 ), INTENT( IN ) :: RJBLK ( :, : ) ! photolysis rates, 1/min REAL( 8 ), INTENT( IN ) :: BLKHET ( :, : ) ! heterogeneous rate constants, ???/min INTEGER, INTENT( IN ) :: NUMCELLS ! Number of cells in block LOGICAL, INTENT( IN ) :: LSUNLIGHT ! Is there sunlight? REAL( 8 ), INTENT( IN ) :: SEAWATER( : ) ! fractional area of OPEN+SURF REAL( 8 ), INTENT( OUT ) :: RKI ( :, : ) ! reaction rate constant, ppm/min !..Parameters: REAL( 8 ), PARAMETER :: COEF1 = 7.33981D+15 ! Molec/cc to ppm conv factor REAL( 8 ), PARAMETER :: CONSTC = 0.6D+0 ! Constant for reaction type 7 REAL( 8 ), PARAMETER :: TI300 = 1.0D+0/300.0D+0 ! reciprocal of 300 deg K REAL( 8 ), PARAMETER :: SFACT = 60.D+0 ! seconds per minute !..External Functions: None !..Local Variables: INTEGER :: NRT ! Loop index for reaction types INTEGER :: IRXN ! Reaction number INTEGER :: JNUM ! J-value species # from PHOT) INTEGER :: KNUM ! Reaction # for a relative rate coeff. INTEGER :: N ! Loop index for reactions INTEGER :: NCELL ! Loop index for # of cells in the block REAL( 8 ) :: CAIR ! air number density (wet) [molec/cm^3] REAL( 8 ) :: CFACT ! Convertor cm^3/(molec*sec) to 1/(ppm*min) REAL( 8 ) :: CFACT_SQU ! Convertor cm^6/(molec^2*sec) to 1/(ppm^2*min) REAL( 8 ) :: INV_CFACT ! ppm/min to molec/(cm^3*sec) REAL( 8 ) :: TEMPOT300 ! temperature divided by 300 K, dimensionaless REAL( 8 ) :: INV_TEMP ! reciprocal of air temperature, K-1 REAL( 8 ) :: INV_CAIR ! reciprocal of air number density (wet), [cm^3/molec] REAL( 8 ) :: TEMP ! air temperature, K REAL( 8 ) :: PRESS ! pressure [Atm] REAL( 8 ) :: INV_RFACT ! ppm/min to molec/(cm^3*min) REAL( 8 ) :: RFACT_SQU ! cm^6/(molec^2*min) to 1/(ppm^2*min) REAL( 8 ) :: RFACT ! cm^3/(molec*min) to 1/(ppm*min) REAL( 8 ) :: H2O ! concentration, [molec/cm^3] RKI = 0.0D0 ! All rate constants converted from molec/cm3 to ppm ! and 1/sec to 1/min IF( LSUNLIGHT )THEN DO NCELL = 1, NUMCELLS ! Reaction Label R001 RKI( NCELL, 1) = RJBLK( NCELL, IJ_O3O3P_NASA06 ) ! Reaction Label R002 RKI( NCELL, 2) = RJBLK( NCELL, IJ_O3O1D_NASA06 ) ! Reaction Label R003 RKI( NCELL, 3) = RJBLK( NCELL, IJ_H2O2_RACM2 ) ! Reaction Label R004 RKI( NCELL, 4) = RJBLK( NCELL, IJ_NO2_RACM2 ) ! Reaction Label R005 RKI( NCELL, 5) = RJBLK( NCELL, IJ_NO3NO_RACM2 ) ! Reaction Label R006 RKI( NCELL, 6) = RJBLK( NCELL, IJ_NO3NO2_RACM2 ) ! Reaction Label R007 RKI( NCELL, 7) = RJBLK( NCELL, IJ_HONO_RACM2 ) ! Reaction Label R008 RKI( NCELL, 8) = RJBLK( NCELL, IJ_HNO3_RACM2 ) ! Reaction Label R009 RKI( NCELL, 9) = RJBLK( NCELL, IJ_HNO4_RACM2 ) ! Reaction Label R010 RKI( NCELL, 10) = RJBLK( NCELL, IJ_HCHO_MOL_JPL19 ) ! Reaction Label R011 RKI( NCELL, 11) = RJBLK( NCELL, IJ_HCHO_RAD_JPL19 ) ! Reaction Label R012 RKI( NCELL, 12) = RJBLK( NCELL, IJ_CH3CHO_RACM2 ) ! Reaction Label R013 RKI( NCELL, 13) = RJBLK( NCELL, IJ_ALD_RACM2 ) ! Reaction Label R014 RKI( NCELL, 14) = RJBLK( NCELL, IJ_CH3COCH3_RACM2 ) ! Reaction Label R015 RKI( NCELL, 15) = RJBLK( NCELL, IJ_UALD_RACM2 ) ! Reaction Label R016 RKI( NCELL, 16) = RJBLK( NCELL, IJ_MEK_RACM2 ) ! Reaction Label R017 RKI( NCELL, 17) = RJBLK( NCELL, IJ_KET_RACM2 ) ! Reaction Label R018 RKI( NCELL, 18) = RJBLK( NCELL, IJ_HKET_RACM2 ) ! Reaction Label R019 RKI( NCELL, 19) = RJBLK( NCELL, IJ_MACR_RACM2 ) ! Reaction Label R020 RKI( NCELL, 20) = RJBLK( NCELL, IJ_MVK_RACM2 ) ! Reaction Label R021 RKI( NCELL, 21) = RJBLK( NCELL, IJ_GLYH2_RACM2 ) ! Reaction Label R022 RKI( NCELL, 22) = RJBLK( NCELL, IJ_GLYF_RACM2 ) ! Reaction Label R023 RKI( NCELL, 23) = RJBLK( NCELL, IJ_GLYHX_RACM2 ) ! Reaction Label R024 RKI( NCELL, 24) = RJBLK( NCELL, IJ_MGLY_RACM2 ) ! Reaction Label R025 RKI( NCELL, 25) = RJBLK( NCELL, IJ_MGLY_RACM2 ) ! Reaction Label R026 RKI( NCELL, 26) = RJBLK( NCELL, IJ_MGLY_RACM2 ) ! Reaction Label R027 RKI( NCELL, 27) = RJBLK( NCELL, IJ_BALD_RACM2 ) ! Reaction Label R028 RKI( NCELL, 28) = RJBLK( NCELL, IJ_OP1_RACM2 ) ! Reaction Label R029 RKI( NCELL, 29) = RJBLK( NCELL, IJ_OP1_RACM2 ) ! Reaction Label R030 RKI( NCELL, 30) = RJBLK( NCELL, IJ_PAA_RACM2 ) ! Reaction Label R031 RKI( NCELL, 31) = RJBLK( NCELL, IJ_ONIT_RACM2 ) ! Reaction Label R032 RKI( NCELL, 32) = RJBLK( NCELL, IJ_PAN1_RACM2 ) ! Reaction Label R033 RKI( NCELL, 33) = RJBLK( NCELL, IJ_PAN2_RACM2 ) IF ( SEAWATER (NCELL) .GT. 0.001D0 ) THEN ! Reaction Label HAL_Ozone RKI( NCELL, 380) = SEAWATER (NCELL) * SFACT * HALOGEN_FALLOFF( BLKPRES( NCELL ), 6.7006D-11, 1.0743D+01, & & 3.4153D-08, -6.7130D-01, 2.0000D-06 ) ELSE RKI( NCELL, 380) = 0.0D0 END IF END DO END IF DO NCELL = 1, NUMCELLS ! Set-up conversion factors INV_TEMP = 1.0D+00 / BLKTEMP( NCELL ) CAIR = 1.0D+06 * COEF1 * BLKPRES( NCELL ) * INV_TEMP CFACT = 6.0D-05 * CAIR CFACT_SQU = 6.0D-11 * CAIR * CAIR INV_CAIR = 1.0D0 / CAIR INV_CFACT = 6.0D+07 * INV_CAIR TEMP = BLKTEMP( NCELL ) TEMPOT300 = BLKTEMP( NCELL ) * TI300 RFACT = 1.0D+06 * INV_CAIR RFACT_SQU = 1.0D+12 * INV_CAIR * INV_CAIR ! Reaction Label R034 RKI( NCELL, 34) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.7000D-12, -9.4000D+02 ) ! Reaction Label R035 RKI( NCELL, 35) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.0000D-14, -4.9000D+02 ) ! Reaction Label R036 RKI( NCELL, 36) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.4000D-12, -1.3100D+03 ) ! Reaction Label R037 RKI( NCELL, 37) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.4000D-13, -2.4700D+03 ) ! Reaction Label R038 RKI( NCELL, 38) = CFACT_SQU * POWER_T02( TEMPOT300, 5.7400D-34, -2.6000D+00 ) ! Reaction Label R039 RKI( NCELL, 39) = CFACT * ARRHENUIS_T03( INV_TEMP, 8.0000D-12, -2.0600D+03 ) ! Reaction Label R040 RKI( NCELL, 40) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.3000D-11, 6.7000D+01 ) ! Reaction Label R041 RKI( NCELL, 41) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.0000D-11, 1.3000D+02 ) ! Reaction Label R042 RKI( NCELL, 42) = 2.1400D-10 * CFACT ! Reaction Label R043 RKI( NCELL, 43) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.7000D-12, -2.1000D+03 ) ! Reaction Label R044 RKI( NCELL, 44) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.8000D-11, 2.5000D+02 ) ! Reaction Label R045 RKI( NCELL, 45) = CFACT * FALLOFF_T09( INV_TEMP, CAIR, & & 2.2000D-13, 6.0000D+02, 1.9000D-33, & & 9.8000D+02 ) ! Reaction Label R046 RKI( NCELL, 46) = CFACT_SQU * FALLOFF_T09( INV_TEMP, CAIR, & & 3.0800D-34, 2.8000D+03, 2.5900D-54, & & 3.1800D+03 ) ! Reaction Label R047 RKI( NCELL, 47) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.9000D-12, -1.6000D+02 ) ! Reaction Label R048 RKI( NCELL, 48) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 9.0000D-32, 0.0000D+00, -1.5000D+00, & & 3.0000D-11, 0.0000D+00, 0.0000D+00, & & 1.0000D+00, 6.0000D-01 ) ! Reaction Label R049 RKI( NCELL, 49) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 7.0000D-31, 0.0000D+00, -2.6000D+00, & & 3.6000D-11, 0.0000D+00, -1.0000D-01, & & 1.0000D+00, 6.0000D-01 ) ! Reaction Label R050 RKI( NCELL, 50) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.4500D-12, 2.7000D+02 ) ! Reaction Label R051 RKI( NCELL, 51) = CFACT * FALLOFF_T11( INV_TEMP,TEMPOT300,CAIR, & & 6.0950D-14, -1.0000D+00, 2.7000D+02, & & 6.8570D-34, 1.0000D+00, 2.7000D+02, & & -5.9680D-14, 2.7000D+02 ) ! Reaction Label R052 RKI( NCELL, 52) = CFACT_SQU * ARRHENUIS_T03( INV_TEMP, 3.3000D-39, 5.3000D+02 ) ! Reaction Label R053 RKI( NCELL, 53) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.5000D-12, 2.6000D+02 ) ! Reaction Label R054 RKI( NCELL, 54) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.5000D-12, 1.8800D+02 ) ! Reaction Label R055 RKI( NCELL, 55) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 2.5000D-31, 0.0000D+00, -1.8000D+00, & & 2.2000D-11, 0.0000D+00, -7.0000D-01, & & 1.0000D+00, 6.0000D-01 ) ! Reaction Label R056 RKI( NCELL, 56) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 1.5100D-30, 0.0000D+00, -3.0000D+00, & & 2.5800D-11, 0.0000D+00, 0.0000D+00, & & 1.0000D+00, 6.0000D-01 ) ! Reaction Label R057 RKI( NCELL, 57) = CFACT * FALLOFF_T08( INV_TEMP, CAIR, & & 2.4000D-14, 4.6000D+02, 2.7000D-17, & & 2.1990D+03, 6.5000D-34, 1.3350D+03 ) ! Reaction Label R058 RKI( NCELL, 58) = 2.0000D-11 * CFACT ! Reaction Label R059 RKI( NCELL, 59) = 4.0000D-12 * CFACT ! Reaction Label R060 RKI( NCELL, 60) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.8000D-11, 1.1000D+02 ) ! Reaction Label R061 RKI( NCELL, 61) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.5000D-14, -1.2600D+03 ) ! Reaction Label R062 RKI( NCELL, 62) = CFACT * ARRHENUIS_T03( INV_TEMP, 8.5000D-13, -2.4500D+03 ) ! Reaction Label R063 RKI( NCELL, 63) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 2.0000D-30, 0.0000D+00, -4.4000D+00, & & 1.4000D-12, 0.0000D+00, -7.0000D-01, & & 1.0000D+00, 6.0000D-01 ) ! Reaction Label R064 RKI( NCELL, 64) = RFACT * RKI( NCELL, 63 ) & & * ( 3.7037D+26 * DEXP( -1.1000D+04 * INV_TEMP) ) ! Reaction Label R065 RKI( NCELL, 65) = 1.0000D-22 * CFACT ! Reaction Label R066 RKI( NCELL, 66) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 2.0000D-31, 0.0000D+00, -3.4000D+00, & & 2.9000D-12, 0.0000D+00, -1.1000D+00, & & 1.0000D+00, 6.0000D-01 ) ! Reaction Label R067 RKI( NCELL, 67) = RFACT * RKI( NCELL, 66 ) & & * ( 4.7619D+26 * DEXP( -1.0900D+04 * INV_TEMP) ) ! Reaction Label R068 RKI( NCELL, 68) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.3000D-12, 3.8000D+02 ) ! Reaction Label R069 RKI( NCELL, 69) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 3.3000D-31, 0.0000D+00, -4.3000D+00, & & 1.6000D-12, 0.0000D+00, 0.0000D+00, & & 1.0000D+00, 6.0000D-01 ) ! Reaction Label R070 RKI( NCELL, 70) = CFACT * FALLOFF_T09( INV_TEMP, CAIR, & & 1.4400D-13, 0.0000D+00, 2.8800D-33, & & 0.0000D+00 ) ! Reaction Label R071 RKI( NCELL, 71) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.8500D-12, -1.6900D+03 ) ! Reaction Label R072 RKI( NCELL, 72) = CFACT * ARRHENUIS_T03( INV_TEMP, 6.9000D-12, -1.0000D+03 ) ! Reaction Label R073 RKI( NCELL, 73) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.6800D-12, -3.7000D+02 ) ! Reaction Label R074 RKI( NCELL, 74) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.0100D-11, -2.4500D+02 ) ! Reaction Label R075 RKI( NCELL, 75) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.8200D-11, -2.7300D+02 ) ! Reaction Label R076 RKI( NCELL, 76) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 1.0000D-28, 0.0000D+00, -4.5000D+00, & & 8.8000D-12, 0.0000D+00, -8.5000D-01, & & 1.0000D+00, 6.0000D-01 ) ! Reaction Label R077 RKI( NCELL, 77) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.7200D-12, 5.0000D+02 ) ! Reaction Label R078 RKI( NCELL, 78) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.3300D-11, 5.0000D+02 ) ! Reaction Label R079 RKI( NCELL, 79) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.4800D-11, 4.4800D+02 ) ! Reaction Label R080 RKI( NCELL, 80) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 5.5000D-30, 0.0000D+00, 0.0000D+00, & & 8.3000D-13, 0.0000D+00, 2.0000D+00, & & 1.0000D+00, 6.0000D-01 ) ! Reaction Label R081 RKI( NCELL, 81) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.3300D-12, -1.9300D+02 ) ! Reaction Label R082 RKI( NCELL, 82) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.8100D-12, 3.5400D+02 ) ! Reaction Label R083 RKI( NCELL, 83) = 2.3100D-11 * CFACT ! Reaction Label R084 RKI( NCELL, 84) = 1.4300D-11 * CFACT ! Reaction Label R085 RKI( NCELL, 85) = 1.3600D-11 * CFACT ! Reaction Label R086 RKI( NCELL, 86) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-11, 3.9000D+02 ) ! Reaction Label R087 RKI( NCELL, 87) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.2100D-11, 4.4000D+02 ) ! Reaction Label R088 RKI( NCELL, 88) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.2000D-11, 4.0100D+02 ) ! Reaction Label R089 RKI( NCELL, 89) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.5000D-12, 1.2500D+02 ) ! Reaction Label R090 RKI( NCELL, 90) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.7000D-12, 3.4500D+02 ) ! Reaction Label R091 RKI( NCELL, 91) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.9000D-12, 4.0500D+02 ) ! Reaction Label R092 RKI( NCELL, 92) = CFACT * ARRHENUIS_T04( INV_TEMP, TEMPOT300, & & 4.5600D-14, -4.2700D+02, 3.6500D+00 ) ! Reaction Label R093 RKI( NCELL, 93) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.5000D-12, -9.0000D+01 ) ! Reaction Label R094 RKI( NCELL, 94) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.8000D-12, 1.0000D+01 ) ! Reaction Label R095 RKI( NCELL, 95) = 3.0000D-12 * CFACT ! Reaction Label R096 RKI( NCELL, 96) = CFACT * ARRHENUIS_T03( INV_TEMP, 8.0000D-12, 3.8000D+02 ) ! Reaction Label R097 RKI( NCELL, 97) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.6000D-12, 6.1000D+02 ) ! Reaction Label R098 RKI( NCELL, 98) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.7700D-12, 5.3300D+02 ) ! Reaction Label R099 RKI( NCELL, 99) = 1.1000D-11 * CFACT ! Reaction Label R100 RKI( NCELL, 100) = CFACT * ARRHENUIS_T03( INV_TEMP, 9.2600D-13, 8.3000D+02 ) ! Reaction Label R101 RKI( NCELL, 101) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.8000D-11, 1.7500D+02 ) ! Reaction Label R102 RKI( NCELL, 102) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.8000D-11, 1.7500D+02 ) ! Reaction Label R103 RKI( NCELL, 103) = 1.0000D-11 * CFACT ! Reaction Label R104 RKI( NCELL, 104) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.3200D-12, 2.4300D+02 ) ! Reaction Label R105 RKI( NCELL, 105) = CFACT * ARRHENUIS_T03( INV_TEMP, 6.7500D-12, 4.0500D+02 ) ! Reaction Label R106 RKI( NCELL, 106) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.6500D-11, 0.0000D+00 ) ! Reaction Label R107 RKI( NCELL, 107) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.8000D-11, 1.7500D+02 ) ! Reaction Label R108 RKI( NCELL, 108) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.0500D-10, 0.0000D+00 ) ! Reaction Label R109 RKI( NCELL, 109) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.8500D-12, -3.4500D+02 ) ! Reaction Label R110 RKI( NCELL, 110) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.0000D-12, 2.0000D+01 ) ! Reaction Label R111 RKI( NCELL, 111) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.6000D-12, 2.0000D+02 ) ! Reaction Label R112 RKI( NCELL, 112) = 1.4700D-11 * CFACT ! Reaction Label R113 RKI( NCELL, 113) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.9000D-12, 1.9000D+02 ) ! Reaction Label R114 RKI( NCELL, 114) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.4000D-12, 1.9000D+02 ) ! Reaction Label R115 RKI( NCELL, 115) = 1.0000D-10 * CFACT ! Reaction Label R116 RKI( NCELL, 116) = 3.0000D-11 * CFACT ! Reaction Label R117 RKI( NCELL, 117) = 4.5000D-13 * CFACT ! Reaction Label R118 RKI( NCELL, 118) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.0000D-14, 8.5000D+02 ) ! Reaction Label R119 RKI( NCELL, 119) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.9300D-12, 1.9000D+02 ) ! Reaction Label R120 RKI( NCELL, 120) = 4.0000D-14 * CFACT ! Reaction Label R121 RKI( NCELL, 121) = 4.0000D-14 * CFACT ! Reaction Label R122 RKI( NCELL, 122) = 3.2000D-11 * CFACT ! Reaction Label R123 RKI( NCELL, 123) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.3100D-12, -2.6000D+02 ) ! Reaction Label R124 RKI( NCELL, 124) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.6000D-12, 2.7000D+02 ) ! Reaction Label R125 RKI( NCELL, 125) = 1.3000D-11 * CFACT ! Reaction Label R126 RKI( NCELL, 126) = CFACT * ARRHENUIS_T03( INV_TEMP, 9.1400D-15, -2.5800D+03 ) ! Reaction Label R127 RKI( NCELL, 127) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.3300D-15, -1.8000D+03 ) ! Reaction Label R128 RKI( NCELL, 128) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.4000D-15, -8.4500D+02 ) ! Reaction Label R129 RKI( NCELL, 129) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.3400D-14, -2.2830D+03 ) ! Reaction Label R130 RKI( NCELL, 130) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.8600D-15, -1.9130D+03 ) ! Reaction Label R131 RKI( NCELL, 131) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.0000D-16, -5.3000D+02 ) ! Reaction Label R132 RKI( NCELL, 132) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.9500D-15, -7.8300D+02 ) ! Reaction Label R133 RKI( NCELL, 133) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.3600D-15, -2.1120D+03 ) ! Reaction Label R134 RKI( NCELL, 134) = CFACT * ARRHENUIS_T03( INV_TEMP, 8.5000D-16, -1.5200D+03 ) ! Reaction Label R135 RKI( NCELL, 135) = 1.6600D-18 * CFACT ! Reaction Label R136 RKI( NCELL, 136) = 2.0000D-16 * CFACT ! Reaction Label R137 RKI( NCELL, 137) = 2.0000D-16 * CFACT ! Reaction Label R138 RKI( NCELL, 138) = 9.0000D-17 * CFACT ! Reaction Label R139 RKI( NCELL, 139) = 5.0000D-16 * CFACT ! Reaction Label R140 RKI( NCELL, 140) = 2.8600D-13 * CFACT ! Reaction Label R141 RKI( NCELL, 141) = CFACT * ARRHENUIS_T04( INV_TEMP, TEMPOT300, & & 4.3920D-13, -2.2820D+03, 2.0000D+00 ) ! Reaction Label R142 RKI( NCELL, 142) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.7900D-13, -4.5000D+02 ) ! Reaction Label R143 RKI( NCELL, 143) = CFACT * ARRHENUIS_T03( INV_TEMP, 8.6400D-13, 4.5000D+02 ) ! Reaction Label R144 RKI( NCELL, 144) = 1.0000D-13 * CFACT ! Reaction Label R145 RKI( NCELL, 145) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.0300D-12, -4.4600D+02 ) ! Reaction Label R146 RKI( NCELL, 146) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.1900D-12, 4.9000D+02 ) ! Reaction Label R147 RKI( NCELL, 147) = 1.2200D-11 * CFACT ! Reaction Label R148 RKI( NCELL, 148) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.0000D-12, -2.4400D+03 ) ! Reaction Label R149 RKI( NCELL, 149) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.4000D-12, -1.9000D+03 ) ! Reaction Label R150 RKI( NCELL, 150) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.7600D-12, -1.9000D+03 ) ! Reaction Label R151 RKI( NCELL, 151) = 3.4000D-15 * CFACT ! Reaction Label R152 RKI( NCELL, 152) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.0200D-13, -1.0760D+03 ) ! Reaction Label R153 RKI( NCELL, 153) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.9000D-12, -1.9000D+03 ) ! Reaction Label R154 RKI( NCELL, 154) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.7600D-12, -1.9000D+03 ) ! Reaction Label R155 RKI( NCELL, 155) = 3.7800D-12 * CFACT ! Reaction Label R156 RKI( NCELL, 156) = 1.0600D-12 * CFACT ! Reaction Label R157 RKI( NCELL, 157) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.8700D-13, -1.0000D+03 ) ! Reaction Label R158 RKI( NCELL, 158) = 2.0100D-10 * CFACT ! Reaction Label R159 RKI( NCELL, 159) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.2000D-14, -5.0000D+02 ) ! Reaction Label R160 RKI( NCELL, 160) = 1.0000D+03 * SFACT ! Reaction Label R161 RKI( NCELL, 161) = 1.0000D+03 * SFACT ! Reaction Label R162 RKI( NCELL, 162) = 1.0000D+03 * SFACT ! Reaction Label R163 RKI( NCELL, 163) = 1.0000D+03 * SFACT ! Reaction Label R164 RKI( NCELL, 164) = 1.0000D+03 * SFACT ! Reaction Label R165 RKI( NCELL, 165) = 1.0000D+03 * SFACT ! Reaction Label R166 RKI( NCELL, 166) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 9.7000D-29, 0.0000D+00, -5.6000D+00, & & 9.3000D-12, 0.0000D+00, -1.5000D+00, & & 1.0000D+00, 6.0000D-01 ) ! Reaction Label R167 RKI( NCELL, 167) = RFACT * RKI( NCELL, 166 ) & & * ( 1.1111D+28 * DEXP( -1.4000D+04 * INV_TEMP) ) ! Reaction Label R168 RKI( NCELL, 168) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 9.7000D-29, 0.0000D+00, -5.6000D+00, & & 9.3000D-12, 0.0000D+00, -1.5000D+00, & & 1.0000D+00, 6.0000D-01 ) ! Reaction Label R169 RKI( NCELL, 169) = RFACT * RKI( NCELL, 168 ) & & * ( 1.1111D+28 * DEXP( -1.4000D+04 * INV_TEMP) ) ! Reaction Label R170 RKI( NCELL, 170) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.8000D-12, 1.8100D+02 ) ! Reaction Label R171 RKI( NCELL, 171) = SFACT * ARRHENUIS_T03( INV_TEMP, 1.6000D+16, -1.3486D+04 ) ! Reaction Label R172 RKI( NCELL, 172) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.8000D-12, 3.0000D+02 ) ! Reaction Label R173 RKI( NCELL, 173) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.6000D-12, 3.6500D+02 ) ! Reaction Label R174 RKI( NCELL, 174) = 4.0000D-12 * CFACT ! Reaction Label R175 RKI( NCELL, 175) = 4.0000D-12 * CFACT ! Reaction Label R176 RKI( NCELL, 176) = 4.0000D-12 * CFACT ! Reaction Label R177 RKI( NCELL, 177) = 9.0000D-12 * CFACT ! Reaction Label R178 RKI( NCELL, 178) = 4.0000D-12 * CFACT ! Reaction Label R179 RKI( NCELL, 179) = 4.0000D-12 * CFACT ! Reaction Label R180 RKI( NCELL, 180) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.5400D-12, 3.6000D+02 ) ! Reaction Label R181 RKI( NCELL, 181) = 4.0000D-12 * CFACT ! Reaction Label R182 RKI( NCELL, 182) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label R183 RKI( NCELL, 183) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label R184 RKI( NCELL, 184) = 4.0000D-12 * CFACT ! Reaction Label R185 RKI( NCELL, 185) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label R186 RKI( NCELL, 186) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label R187 RKI( NCELL, 187) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label R188 RKI( NCELL, 188) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.4300D-12, 3.6000D+02 ) ! Reaction Label R189 RKI( NCELL, 189) = 4.0000D-12 * CFACT ! Reaction Label R190 RKI( NCELL, 190) = 4.0000D-12 * CFACT ! Reaction Label R191 RKI( NCELL, 191) = CFACT * ARRHENUIS_T03( INV_TEMP, 8.1000D-12, 2.7000D+02 ) ! Reaction Label R192 RKI( NCELL, 192) = CFACT * ARRHENUIS_T03( INV_TEMP, 8.1000D-12, 2.7000D+02 ) ! Reaction Label R193 RKI( NCELL, 193) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.9000D-12, 3.0000D+02 ) ! Reaction Label R194 RKI( NCELL, 194) = 4.0000D-12 * CFACT ! Reaction Label R195 RKI( NCELL, 195) = 4.0000D-12 * CFACT ! Reaction Label R196 RKI( NCELL, 196) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.5400D-12, 3.6000D+02 ) ! Reaction Label R197 RKI( NCELL, 197) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.5400D-12, 3.6000D+02 ) ! Reaction Label R198 RKI( NCELL, 198) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.5400D-12, 3.6000D+02 ) ! Reaction Label R199 RKI( NCELL, 199) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.5400D-12, 3.6000D+02 ) ! Reaction Label R200 RKI( NCELL, 200) = 4.0000D-12 * CFACT ! Reaction Label R201 RKI( NCELL, 201) = 4.0000D-12 * CFACT ! Reaction Label R202 RKI( NCELL, 202) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label R203 RKI( NCELL, 203) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label R204 RKI( NCELL, 204) = 4.0000D-12 * CFACT ! Reaction Label R205 RKI( NCELL, 205) = 4.0000D-12 * CFACT ! Reaction Label R206 RKI( NCELL, 206) = 4.0000D-12 * CFACT ! Reaction Label R207 RKI( NCELL, 207) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label R208 RKI( NCELL, 208) = 4.0000D-12 * CFACT ! Reaction Label R209 RKI( NCELL, 209) = 2.0000D-11 * CFACT ! Reaction Label R210 RKI( NCELL, 210) = 2.0000D-11 * CFACT ! Reaction Label R211 RKI( NCELL, 211) = 2.0800D-12 * CFACT ! Reaction Label R212 RKI( NCELL, 212) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.1000D-13, 7.5000D+02 ) ! Reaction Label R213 RKI( NCELL, 213) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.5000D-13, 7.0000D+02 ) ! Reaction Label R214 RKI( NCELL, 214) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.6600D-13, 1.3000D+03 ) ! Reaction Label R215 RKI( NCELL, 215) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.6600D-13, 1.3000D+03 ) ! Reaction Label R216 RKI( NCELL, 216) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.6600D-13, 1.3000D+03 ) ! Reaction Label R217 RKI( NCELL, 217) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.9000D-13, 1.3000D+03 ) ! Reaction Label R218 RKI( NCELL, 218) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.6600D-13, 1.3000D+03 ) ! Reaction Label R219 RKI( NCELL, 219) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.6600D-13, 1.3000D+03 ) ! Reaction Label R220 RKI( NCELL, 220) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.9100D-13, 1.3000D+03 ) ! Reaction Label R221 RKI( NCELL, 221) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.7500D-13, 9.8000D+02 ) ! Reaction Label R222 RKI( NCELL, 222) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.7500D-13, 9.8000D+02 ) ! Reaction Label R223 RKI( NCELL, 223) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.7500D-13, 9.8000D+02 ) ! Reaction Label R224 RKI( NCELL, 224) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.7500D-13, 9.8000D+02 ) ! Reaction Label R225 RKI( NCELL, 225) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.7500D-13, 9.8000D+02 ) ! Reaction Label R226 RKI( NCELL, 226) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.7500D-13, 9.8000D+02 ) ! Reaction Label R227 RKI( NCELL, 227) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.7500D-13, 9.8000D+02 ) ! Reaction Label R228 RKI( NCELL, 228) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.0500D-13, 1.3000D+03 ) ! Reaction Label R229 RKI( NCELL, 229) = 1.5000D-11 * CFACT ! Reaction Label R230 RKI( NCELL, 230) = 1.5000D-11 * CFACT ! Reaction Label R231 RKI( NCELL, 231) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.3000D-13, 1.0400D+03 ) ! Reaction Label R232 RKI( NCELL, 232) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.3000D-13, 1.0400D+03 ) ! Reaction Label R233 RKI( NCELL, 233) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.1500D-13, 1.3000D+03 ) ! Reaction Label R234 RKI( NCELL, 234) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.1500D-13, 1.3000D+03 ) ! Reaction Label R235 RKI( NCELL, 235) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.1500D-13, 1.3000D+03 ) ! Reaction Label R236 RKI( NCELL, 236) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.8200D-13, 1.3000D+03 ) ! Reaction Label R237 RKI( NCELL, 237) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.8200D-13, 1.3000D+03 ) ! Reaction Label R238 RKI( NCELL, 238) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.9100D-13, 1.3000D+03 ) ! Reaction Label R239 RKI( NCELL, 239) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.9100D-13, 1.3000D+03 ) ! Reaction Label R240 RKI( NCELL, 240) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.7500D-13, 9.8000D+02 ) ! Reaction Label R241 RKI( NCELL, 241) = 1.0000D-11 * CFACT ! Reaction Label R242 RKI( NCELL, 242) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.7500D-13, 9.8000D+02 ) ! Reaction Label R243 RKI( NCELL, 243) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.1500D-13, 1.3000D+03 ) ! Reaction Label R244 RKI( NCELL, 244) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.6600D-13, 1.3000D+03 ) ! Reaction Label R245 RKI( NCELL, 245) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.6600D-13, 1.3000D+03 ) ! Reaction Label R246 RKI( NCELL, 246) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.7500D-13, 9.8000D+02 ) ! Reaction Label R247 RKI( NCELL, 247) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.6600D-13, 1.3000D+03 ) ! Reaction Label R248 RKI( NCELL, 248) = CFACT * ARRHENUIS_T03( INV_TEMP, 9.5000D-14, 3.9000D+02 ) ! Reaction Label R249 RKI( NCELL, 249) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.1800D-13, 1.5800D+02 ) ! Reaction Label R250 RKI( NCELL, 250) = CFACT * ARRHENUIS_T03( INV_TEMP, 9.4600D-14, 4.3100D+02 ) ! Reaction Label R251 RKI( NCELL, 251) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.0000D-13, 4.6700D+02 ) ! Reaction Label R252 RKI( NCELL, 252) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.3400D-14, 6.3300D+02 ) ! Reaction Label R253 RKI( NCELL, 253) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.7100D-13, 7.0800D+02 ) ! Reaction Label R254 RKI( NCELL, 254) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.4600D-13, 7.0800D+02 ) ! Reaction Label R255 RKI( NCELL, 255) = CFACT * ARRHENUIS_T03( INV_TEMP, 9.1800D-14, 7.0800D+02 ) ! Reaction Label R256 RKI( NCELL, 256) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.5600D-14, 7.0800D+02 ) ! Reaction Label R257 RKI( NCELL, 257) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.5600D-14, 7.0800D+02 ) ! Reaction Label R258 RKI( NCELL, 258) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.5600D-14, 7.0800D+02 ) ! Reaction Label R259 RKI( NCELL, 259) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.5600D-14, 7.0800D+02 ) ! Reaction Label R260 RKI( NCELL, 260) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.5600D-14, 7.0800D+02 ) ! Reaction Label R261 RKI( NCELL, 261) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.5600D-14, 7.0800D+02 ) ! Reaction Label R262 RKI( NCELL, 262) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.5600D-14, 7.0800D+02 ) ! Reaction Label R263 RKI( NCELL, 263) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.5600D-14, 7.0800D+02 ) ! Reaction Label R264 RKI( NCELL, 264) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.4000D-14, 2.2100D+02 ) ! Reaction Label R265 RKI( NCELL, 265) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.5600D-14, 7.0800D+02 ) ! Reaction Label R266 RKI( NCELL, 266) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.5600D-14, 7.0800D+02 ) ! Reaction Label R267 RKI( NCELL, 267) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.0000D-11, 5.0000D+02 ) ! Reaction Label R268 RKI( NCELL, 268) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.0000D-11, 5.0000D+02 ) ! Reaction Label R269 RKI( NCELL, 269) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.5000D-13, 5.0000D+02 ) ! Reaction Label R270 RKI( NCELL, 270) = CFACT * ARRHENUIS_T03( INV_TEMP, 6.9100D-13, 5.0800D+02 ) ! Reaction Label R271 RKI( NCELL, 271) = CFACT * ARRHENUIS_T03( INV_TEMP, 6.9100D-13, 5.0800D+02 ) ! Reaction Label R272 RKI( NCELL, 272) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.4000D-14, 2.2100D+02 ) ! Reaction Label R273 RKI( NCELL, 273) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.4000D-14, 2.2100D+02 ) ! Reaction Label R274 RKI( NCELL, 274) = 8.3700D-14 * CFACT ! Reaction Label R275 RKI( NCELL, 275) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.4000D-14, 2.2100D+02 ) ! Reaction Label R276 RKI( NCELL, 276) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.5600D-14, 7.0800D+02 ) ! Reaction Label R277 RKI( NCELL, 277) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.5600D-14, 7.0800D+02 ) ! Reaction Label R278 RKI( NCELL, 278) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.5600D-14, 7.0800D+02 ) ! Reaction Label R279 RKI( NCELL, 279) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.5600D-14, 7.0800D+02 ) ! Reaction Label R280 RKI( NCELL, 280) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.5000D-13, 5.0000D+02 ) ! Reaction Label R281 RKI( NCELL, 281) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.6000D-13, 7.0800D+02 ) ! Reaction Label R282 RKI( NCELL, 282) = CFACT * ARRHENUIS_T03( INV_TEMP, 9.6800D-14, 7.0800D+02 ) ! Reaction Label R283 RKI( NCELL, 283) = 3.5600D-14 * CFACT ! Reaction Label R284 RKI( NCELL, 284) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.9900D-15, 1.5100D+03 ) ! Reaction Label R285 RKI( NCELL, 285) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.0300D-12, 2.1100D+02 ) ! Reaction Label R286 RKI( NCELL, 286) = CFACT * ARRHENUIS_T03( INV_TEMP, 6.9000D-13, 4.6000D+02 ) ! Reaction Label R287 RKI( NCELL, 287) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.5900D-13, 5.2200D+02 ) ! Reaction Label R288 RKI( NCELL, 288) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.4700D-13, 6.8300D+02 ) ! Reaction Label R289 RKI( NCELL, 289) = CFACT * ARRHENUIS_T03( INV_TEMP, 9.4800D-13, 7.6500D+02 ) ! Reaction Label R290 RKI( NCELL, 290) = CFACT * ARRHENUIS_T03( INV_TEMP, 8.1100D-13, 7.6500D+02 ) ! Reaction Label R291 RKI( NCELL, 291) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.0900D-13, 7.6500D+02 ) ! Reaction Label R292 RKI( NCELL, 292) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.4000D-13, 7.6500D+02 ) ! Reaction Label R293 RKI( NCELL, 293) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.4000D-13, 7.6500D+02 ) ! Reaction Label R294 RKI( NCELL, 294) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.4000D-13, 7.6500D+02 ) ! Reaction Label R295 RKI( NCELL, 295) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.4000D-13, 7.6500D+02 ) ! Reaction Label R296 RKI( NCELL, 296) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.4000D-13, 7.6500D+02 ) ! Reaction Label R297 RKI( NCELL, 297) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.4000D-13, 7.6500D+02 ) ! Reaction Label R298 RKI( NCELL, 298) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.4000D-13, 7.6500D+02 ) ! Reaction Label R299 RKI( NCELL, 299) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.4000D-13, 7.6500D+02 ) ! Reaction Label R300 RKI( NCELL, 300) = CFACT * ARRHENUIS_T03( INV_TEMP, 8.4000D-14, 2.2100D+02 ) ! Reaction Label R301 RKI( NCELL, 301) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.4000D-13, 7.6500D+02 ) ! Reaction Label R302 RKI( NCELL, 302) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.4000D-13, 7.6500D+02 ) ! Reaction Label R303 RKI( NCELL, 303) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.5000D-12, 5.0000D+02 ) ! Reaction Label R304 RKI( NCELL, 304) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.5000D-12, 5.0000D+02 ) ! Reaction Label R305 RKI( NCELL, 305) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.5100D-13, 5.6500D+02 ) ! Reaction Label R306 RKI( NCELL, 306) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.5100D-13, 5.6500D+02 ) ! Reaction Label R307 RKI( NCELL, 307) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.5100D-13, 5.6500D+02 ) ! Reaction Label R308 RKI( NCELL, 308) = CFACT * ARRHENUIS_T03( INV_TEMP, 8.4000D-14, 2.2100D+02 ) ! Reaction Label R309 RKI( NCELL, 309) = CFACT * ARRHENUIS_T03( INV_TEMP, 8.4000D-14, 2.2100D+02 ) ! Reaction Label R310 RKI( NCELL, 310) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.6800D-12, 5.0000D+02 ) ! Reaction Label R311 RKI( NCELL, 311) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.6800D-12, 5.0000D+02 ) ! Reaction Label R312 RKI( NCELL, 312) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.4000D-13, 7.6500D+02 ) ! Reaction Label R313 RKI( NCELL, 313) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.4000D-13, 7.6500D+02 ) ! Reaction Label R314 RKI( NCELL, 314) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.4000D-13, 7.0800D+02 ) ! Reaction Label R315 RKI( NCELL, 315) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.4000D-13, 7.0800D+02 ) ! Reaction Label R316 RKI( NCELL, 316) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.5100D-13, 5.6500D+02 ) ! Reaction Label R317 RKI( NCELL, 317) = CFACT * ARRHENUIS_T03( INV_TEMP, 8.8500D-13, 7.6500D+02 ) ! Reaction Label R318 RKI( NCELL, 318) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.3700D-13, 7.6500D+02 ) ! Reaction Label R319 RKI( NCELL, 319) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.4000D-13, 7.0800D+02 ) ! Reaction Label R320 RKI( NCELL, 320) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.4000D-14, 1.5600D+03 ) ! Reaction Label R321 RKI( NCELL, 321) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.5000D-12, 5.0000D+02 ) ! Reaction Label R322 RKI( NCELL, 322) = 1.2000D-12 * CFACT ! Reaction Label R323 RKI( NCELL, 323) = 1.2000D-12 * CFACT ! Reaction Label R324 RKI( NCELL, 324) = 1.2000D-12 * CFACT ! Reaction Label R325 RKI( NCELL, 325) = 1.2000D-12 * CFACT ! Reaction Label R326 RKI( NCELL, 326) = 1.2000D-12 * CFACT ! Reaction Label R327 RKI( NCELL, 327) = 1.2000D-12 * CFACT ! Reaction Label R328 RKI( NCELL, 328) = 1.2000D-12 * CFACT ! Reaction Label R329 RKI( NCELL, 329) = 1.2000D-12 * CFACT ! Reaction Label R330 RKI( NCELL, 330) = 1.2000D-12 * CFACT ! Reaction Label R331 RKI( NCELL, 331) = 1.2000D-12 * CFACT ! Reaction Label R332 RKI( NCELL, 332) = 1.2000D-12 * CFACT ! Reaction Label R333 RKI( NCELL, 333) = 1.2000D-12 * CFACT ! Reaction Label R334 RKI( NCELL, 334) = 1.2000D-12 * CFACT ! Reaction Label R335 RKI( NCELL, 335) = 1.2000D-12 * CFACT ! Reaction Label R336 RKI( NCELL, 336) = 1.2000D-12 * CFACT ! Reaction Label R337 RKI( NCELL, 337) = 1.2000D-12 * CFACT ! Reaction Label R338 RKI( NCELL, 338) = 1.2000D-12 * CFACT ! Reaction Label R339 RKI( NCELL, 339) = 1.2000D-12 * CFACT ! Reaction Label R340 RKI( NCELL, 340) = 1.2000D-12 * CFACT ! Reaction Label R341 RKI( NCELL, 341) = 4.0000D-12 * CFACT ! Reaction Label R342 RKI( NCELL, 342) = 4.0000D-12 * CFACT ! Reaction Label R343 RKI( NCELL, 343) = 1.2000D-12 * CFACT ! Reaction Label R344 RKI( NCELL, 344) = 1.2000D-12 * CFACT ! Reaction Label R345 RKI( NCELL, 345) = 1.2000D-12 * CFACT ! Reaction Label R346 RKI( NCELL, 346) = 1.2000D-12 * CFACT ! Reaction Label R347 RKI( NCELL, 347) = 1.2000D-12 * CFACT ! Reaction Label R348 RKI( NCELL, 348) = 2.5000D-12 * CFACT ! Reaction Label R349 RKI( NCELL, 349) = 2.5000D-12 * CFACT ! Reaction Label R350 RKI( NCELL, 350) = 2.5000D-12 * CFACT ! Reaction Label R351 RKI( NCELL, 351) = 2.5000D-12 * CFACT ! Reaction Label R352 RKI( NCELL, 352) = 1.2000D-12 * CFACT ! Reaction Label R353 RKI( NCELL, 353) = 1.2000D-12 * CFACT ! Reaction Label R354 RKI( NCELL, 354) = 1.2000D-12 * CFACT ! Reaction Label R355 RKI( NCELL, 355) = 1.2000D-12 * CFACT ! Reaction Label R356 RKI( NCELL, 356) = 1.2000D-12 * CFACT ! Reaction Label R357 RKI( NCELL, 357) = 1.2000D-12 * CFACT ! Reaction Label R358 RKI( NCELL, 358) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.0000D-14, 1.0000D+03 ) ! Reaction Label R359 RKI( NCELL, 359) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.2500D-14, 1.0000D+03 ) ! Reaction Label R360 RKI( NCELL, 360) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.9600D-14, 1.0000D+03 ) ! Reaction Label R361 RKI( NCELL, 361) = 1.2000D-12 * CFACT ! Reaction Label R362 RKI( NCELL, 362) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.5000D-12, 5.0000D+02 ) ! Reaction Label R363 RKI( NCELL, 363) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.1300D-17, 2.9500D+03 ) ! Reaction Label SA01 RKI( NCELL, 364) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label SA02 RKI( NCELL, 365) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.9000D-13, 1.3000D+03 ) ! Reaction Label SA03 RKI( NCELL, 366) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label SA04 RKI( NCELL, 367) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.9000D-13, 1.3000D+03 ) ! Reaction Label SA05 RKI( NCELL, 368) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label SA06 RKI( NCELL, 369) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.9000D-13, 1.3000D+03 ) ! Reaction Label SA07 RKI( NCELL, 370) = 1.1600D-14 * CFACT ! Reaction Label SA08 RKI( NCELL, 371) = 1.9700D-10 * CFACT ! Reaction Label SA09 RKI( NCELL, 372) = 1.9000D-11 * CFACT ! Reaction Label SA10 RKI( NCELL, 373) = 2.3100D-11 * CFACT ! Reaction Label SA11 RKI( NCELL, 374) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.6000D+02 ) ! Reaction Label SA12 RKI( NCELL, 375) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.9000D-13, 1.3000D+03 ) ! Reaction Label SA13 RKI( NCELL, 376) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.7400D+02 ) ! Reaction Label SA14 RKI( NCELL, 377) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.7800D-11, -4.0000D+02 ) ! Reaction Label HET_N2O5 RKI( NCELL, 378) = BLKHET( NCELL, IK_HETERO_N2O5IJ ) ! Reaction Label HET_N02 RKI( NCELL, 379) = BLKHET( NCELL, IK_HETERO_NO2 ) ! Reaction Label HET_IEPOX RKI( NCELL, 381) = BLKHET( NCELL, IK_HETERO_IEPOX ) ! Reaction Label OLIG_XYLENE1 RKI( NCELL, 382) = 9.4882D-06 * SFACT ! Reaction Label OLIG_XYLENE2 RKI( NCELL, 383) = 9.4882D-06 * SFACT ! Reaction Label OLIG_TOLUENE1 RKI( NCELL, 384) = 9.4882D-06 * SFACT ! Reaction Label OLIG_TOLUENE2 RKI( NCELL, 385) = 9.4882D-06 * SFACT ! Reaction Label OLIG_BENZENE1 RKI( NCELL, 386) = 9.4882D-06 * SFACT ! Reaction Label OLIG_BENZENE2 RKI( NCELL, 387) = 9.4882D-06 * SFACT ! Reaction Label OLIG_TERPENE1 RKI( NCELL, 388) = 9.4882D-06 * SFACT ! Reaction Label OLIG_TERPENE2 RKI( NCELL, 389) = 9.4882D-06 * SFACT ! Reaction Label OLIG_ISOPRENE1 RKI( NCELL, 390) = 9.4882D-06 * SFACT ! Reaction Label OLIG_ISOPRENE2 RKI( NCELL, 391) = 9.4882D-06 * SFACT ! Reaction Label OLIG_SESQT1 RKI( NCELL, 392) = 9.4882D-06 * SFACT ! Reaction Label OLIG_PAH1 RKI( NCELL, 393) = 9.4882D-06 * SFACT ! Reaction Label OLIG_PAH2 RKI( NCELL, 394) = 9.4882D-06 * SFACT ! Reaction Label OLIG_ALK1 RKI( NCELL, 395) = 9.4882D-06 * SFACT ! Reaction Label OLIG_ALK2 RKI( NCELL, 396) = 9.4882D-06 * SFACT ! Reaction Label RPOAGEPI RKI( NCELL, 397) = 2.5000D-12 * CFACT ! Reaction Label RPOAGELI RKI( NCELL, 398) = BLKHET( NCELL, IK_HETERO_PNCOMLI ) ! Reaction Label RPOAGEPJ RKI( NCELL, 399) = 2.5000D-12 * CFACT ! Reaction Label RPOAGELJ RKI( NCELL, 400) = BLKHET( NCELL, IK_HETERO_PNCOMLJ ) ! Reaction Label PCSOA RKI( NCELL, 401) = 1.2500D-11 * CFACT ! Reaction Label POA_AGE1 RKI( NCELL, 402) = 4.0000D-11 * CFACT ! Reaction Label POA_AGE2 RKI( NCELL, 403) = 4.0000D-11 * CFACT ! Reaction Label POA_AGE3 RKI( NCELL, 404) = 4.0000D-11 * CFACT ! Reaction Label POA_AGE4 RKI( NCELL, 405) = 4.0000D-11 * CFACT ! Reaction Label POA_AGE5 RKI( NCELL, 406) = 4.0000D-11 * CFACT ! Reaction Label POA_AGE6 RKI( NCELL, 407) = 4.0000D-11 * CFACT ! Reaction Label POA_AGE7 RKI( NCELL, 408) = 4.0000D-11 * CFACT ! Reaction Label POA_AGE8 RKI( NCELL, 409) = 4.0000D-11 * CFACT ! Reaction Label POA_AGE9 RKI( NCELL, 410) = 4.0000D-11 * CFACT ! Reaction Label POA_AGE10 RKI( NCELL, 411) = 4.0000D-11 * CFACT END DO ! Multiply rate constants by [M], [O2], [N2], [H2O], [H2], or [CH4] ! where needed and return IF ( NWM .GT. 0 ) THEN DO NRT = 1, NWM IRXN = NRXWM( NRT ) DO NCELL = 1, NUMCELLS RKI( NCELL,IRXN ) = RKI( NCELL,IRXN ) * ATM_AIR END DO END DO END IF IF ( NWO2 .GT. 0 ) THEN DO NRT = 1, NWO2 IRXN = NRXWO2( NRT ) DO NCELL = 1, NUMCELLS RKI( NCELL,IRXN ) = RKI( NCELL,IRXN ) * ATM_O2 END DO END DO END IF IF ( NWN2 .GT. 0 ) THEN DO NRT = 1, NWN2 IRXN = NRXWN2( NRT ) DO NCELL = 1, NUMCELLS RKI( NCELL,IRXN ) = RKI( NCELL,IRXN ) * ATM_N2 END DO END DO END IF IF ( NWW .GT. 0 ) THEN DO NRT = 1, NWW IRXN = NRXWW( NRT ) DO NCELL = 1, NUMCELLS RKI( NCELL,IRXN ) = RKI( NCELL,IRXN ) * BLKH2O( NCELL ) END DO END DO END IF IF ( NWH2 .GT. 0 ) THEN DO NRT = 1, NWH2 IRXN = NRXWH2( NRT ) DO NCELL = 1, NUMCELLS RKI( NCELL,IRXN ) = RKI( NCELL,IRXN ) * ATM_H2 END DO END DO END IF IF ( NWCH4 .GT. 0 ) THEN DO NRT = 1, NWCH4 IRXN = NRXWCH4( NRT ) DO NCELL = 1, NUMCELLS RKI( NCELL,IRXN ) = RKI( NCELL,IRXN ) * ATM_CH4 END DO END DO END IF RETURN END SUBROUTINE CALC_RCONST FUNCTION MAP_CHEMISTRY_SPECIES() RESULT ( SUCCESS ) ! Purpose find or test the CGRID Index, Species Type, and Conversion Factor ! for the Mechanism against the CMAQ namelists USE UTILIO_DEFN USE CGRID_SPCS USE RXNS_DATA IMPLICIT NONE !Parameters: CHARACTER( 1 ), PARAMETER :: BL = ' ' INTEGER, PARAMETER :: SPC_DIM = 200 !Local: LOGICAL SUCCESS INTEGER I, IOS, J INTEGER I1, I2, I3, I4 ! SURROGATE TYPE 1 COUNTERS INTEGER J1, J2 ! SURROGATE TYPE 2 COUNTERS INTEGER K1, K2, K3, K4, K5 ! CONTROL TYPE COUNTERS INTEGER ICALL LOGICAL :: ORDER = .TRUE. LOGICAL :: FOUND = .TRUE. CHARACTER( 120 ) :: XMSG CHARACTER( 16 ), ALLOCATABLE :: CGRID_SPC ( : ) CHARACTER( 16 ), ALLOCATABLE :: NML_SPC ( : ) CHARACTER( 2 ), ALLOCATABLE :: NML_TYPE ( : ) INTEGER, ALLOCATABLE :: NML_INDEX ( : ) LOGICAL, ALLOCATABLE :: NML_CONVERT( : ) REAL, ALLOCATABLE :: NML_MOLWT ( : ) REAL :: DELTA ! fractional difference LOGICAL, SAVE :: INITIALIZED = .FALSE. IF( INITIALIZED )RETURN INITIALIZED = .TRUE. SUCCESS = .TRUE. ALLOCATE ( CGRID_SPC( NSPCSD - 1 ), & & NML_SPC ( NSPCSD - 1 ), & & NML_INDEX( NSPCSD - 1 ), & & NML_TYPE( NSPCSD - 1 ), & & NML_CONVERT( NSPCSD - 1 ), & & NML_MOLWT( NSPCSD - 1 ), & & STAT = IOS ) J = 0 NML_INDEX = -1 TYPE_INDEX = -1 NML_TYPE = '??' NML_CONVERT = .FALSE. DO I = 1, N_GC_SPC ! load gc names and indices J = J + 1 CGRID_SPC( I ) = GC_SPC( I ) NML_INDEX( J ) = I + GC_STRT -1 NML_TYPE( J ) = 'GC' NML_MOLWT( J ) = GC_MOLWT( I ) END DO DO I = 1, N_AE_SPC ! load ae names and indices J = J + 1 CGRID_SPC( J ) = AE_SPC( I ) NML_INDEX( J ) = I + AE_STRT - 1 NML_TYPE( J ) = 'AE' NML_CONVERT( J ) = .TRUE. NML_MOLWT( J ) = AE_MOLWT( I ) END DO DO I = 1, N_NR_SPC ! load nr names and indices J = J + 1 CGRID_SPC( J ) = NR_SPC( I ) NML_INDEX( J ) = I + NR_STRT - 1 NML_TYPE( J ) = 'NR' NML_MOLWT( J ) = NR_MOLWT( I ) END DO DO I = 1, N_TR_SPC ! load tr names and indices J = J + 1 CGRID_SPC( J ) = TR_SPC( I ) NML_INDEX( J ) = I + TR_STRT - 1 NML_TYPE( J ) = 'TR' NML_MOLWT( J ) = TR_MOLWT( I ) END DO NML_SPC( 1:(NSPCSD-1) ) = CGRID_SPC( 1:(NSPCSD-1) ) ! determine if mechanism species are in cgrid species DO I = 1, NUMB_MECH_SPC ! set species informations arrays using SPECIES_LIST array before mapping CHEMISTRY_SPC( I ) = SPECIES_LIST( I )%CHEMISTRY_SPC CGRID_INDEX ( I ) = SPECIES_LIST( I )%CGRID_INDEX SPECIES_TYPE ( I ) = SPECIES_LIST( I )%SPECIES_TYPE CONVERT_CONC ( I ) = SPECIES_LIST( I )%CONVERT_CONC SPECIES_MOLWT( I ) = SPECIES_LIST( I )%SPECIES_MOLWT I1 = INDEX1R( CHEMISTRY_SPC( I ), (NSPCSD-1), CGRID_SPC ) IF ( I1 .LT. 1 ) THEN FOUND = .FALSE. ELSE FOUND = .TRUE. IF( .NOT. MAPPED_TO_CGRID )THEN CGRID_INDEX( I ) = NML_INDEX( I1 ) SPECIES_TYPE( I ) = NML_TYPE ( I1 ) SPECIES_MOLWT( I ) = NML_MOLWT( I1 ) CONVERT_CONC( I ) = NML_CONVERT( I1 ) ELSE IF(CGRID_INDEX( I ) .NE. NML_INDEX( I1 ))THEN SUCCESS = .FALSE. XMSG = '*** For Species ' // TRIM( CHEMISTRY_SPC( I ) ) & & // ' cgrid index does not match mechanism value.' WRITE( LOGDEV,'( /5X, A )' ) TRIM( XMSG ) WRITE( XMSG,'(A,I3,1X,I3)')'CGRID Indices: Mechanism and NML Values are ', & & CGRID_INDEX( I ),NML_INDEX( I1 ) WRITE( LOGDEV,'( 5X, A )' )XMSG END IF IF(CONVERT_CONC( I ) .NEQV. NML_CONVERT( I1 ))THEN SUCCESS = .FALSE. XMSG = '*** For Species ' // TRIM( CHEMISTRY_SPC( I ) ) & & // ' species unit conversion flag does not match mechanism value.' WRITE( LOGDEV,'( /5X, A )' ) TRIM( XMSG ) WRITE( XMSG,'(A,1X,L21X,L2)')'CONVERSION FLAGS: Mechanism and NML Values are ', & & CONVERT_CONC( I ),NML_CONVERT( I1 ) WRITE( LOGDEV,'( 5X, A )' )XMSG WRITE( XMSG,'(A,1X,A3,1X,A3)')'SPECIES TYPE: Mechanism and NML Values are ', & & SPECIES_TYPE( I ),NML_TYPE( I1 ) WRITE( LOGDEV,'( 5X, A )' )XMSG END IF DELTA = ( SPECIES_MOLWT( I ) - NML_MOLWT( I1 ) )/MAX(NML_MOLWT( I1 ),1.0E-20) IF( ABS( DELTA ) .GE. 0.05 )THEN IF( CONVERT_CONC( I ) )SUCCESS = .FALSE. XMSG = '*** For Species ' // TRIM( CHEMISTRY_SPC( I ) ) & & // ' species molecular weight does not match mechanism value.' WRITE( LOGDEV,'( /5X, A )' ) TRIM( XMSG ) WRITE( XMSG,'(A,2(ES12.4,1X))')'Molecular Weight: Mechanism and NML Values are ', & & SPECIES_MOLWT( I ), NML_MOLWT( I1 ) WRITE( LOGDEV,'( 5X, A )' )XMSG END IF END IF END IF IF( INDEX( CHEMISTRY_SPC( I ), 'SRF') .GT. 0 )THEN SUCCESS = .FALSE. XMSG = '*** reactions cannot use modal aerosol surface area as species' WRITE( LOGDEV,'( /5X, A )' ) TRIM( XMSG ) XMSG = TRIM( CHEMISTRY_SPC( I ) ) WRITE( LOGDEV,'( 2X, A )' ) TRIM( XMSG ) END IF IF( INDEX( CHEMISTRY_SPC( I ), 'NUM') .GT. 0 )THEN SUCCESS = .FALSE. XMSG = '*** reactions cannot use modal aerosol number density as species' WRITE( LOGDEV,'( /5X, A )' ) TRIM( XMSG ) XMSG = TRIM( CHEMISTRY_SPC( I ) ) WRITE( LOGDEV,'( 2X, A )' ) TRIM( XMSG ) END IF IF ( .NOT. FOUND ) THEN XMSG = 'Fatal error: Mechanism Species found not in species namelist:' WRITE( LOGDEV,'( /5X, A )', ADVANCE = 'NO' ) TRIM( XMSG ) XMSG = TRIM( CHEMISTRY_SPC( I ) ) WRITE( LOGDEV,'( 2X, A )' ) TRIM( XMSG ) SUCCESS = .FALSE. END IF END DO IF( SUCCESS )RETURN WRITE(LOGDEV,99901)TRIM( MECHNAME ) XMSG = 'The FATAL errors found in namelist used. Check ' & & // 'the log of exiting processor if more details are needed.' CALL M3WARN('MAP_CHEMISTRY_SPECIES',0,0,XMSG) 99901 FORMAT( / 'FATAL error(s) found in the namelists used. Check that ' & & / 'these namelists contain the above data as the respective files ' & & / 'in the respository version of the mechanism: ' , A ) RETURN END FUNCTION MAP_CHEMISTRY_SPECIES !---------------------------------------------------------------------------------------- INTEGER FUNCTION INDEX1R ( NAME, N, NLIST ) IMPLICIT NONE CHARACTER( * ) NAME ! character string being searched for INTEGER N ! length of array to be searched CHARACTER( * ) NLIST( : ) ! array to be searched INTEGER I DO I = 1, N IF ( NAME .EQ. NLIST( I ) ) THEN INDEX1R = I RETURN END IF END DO INDEX1R = 0 RETURN END FUNCTION INDEX1R SUBROUTINE RESET_SPECIES_POINTERS( IOLD2NEW ) USE RXNS_DATA IMPLICIT NONE INTEGER, INTENT( IN ) :: IOLD2NEW( :,: ) INDEX_O3 = IOLD2NEW( INDEX_O3 , 1 ) INDEX_O3P = IOLD2NEW( INDEX_O3P , 1 ) INDEX_O1D = IOLD2NEW( INDEX_O1D , 1 ) INDEX_H2O2 = IOLD2NEW( INDEX_H2O2 , 1 ) INDEX_HO = IOLD2NEW( INDEX_HO , 1 ) INDEX_NO2 = IOLD2NEW( INDEX_NO2 , 1 ) INDEX_NO = IOLD2NEW( INDEX_NO , 1 ) INDEX_NO3 = IOLD2NEW( INDEX_NO3 , 1 ) INDEX_HONO = IOLD2NEW( INDEX_HONO , 1 ) INDEX_HNO3 = IOLD2NEW( INDEX_HNO3 , 1 ) INDEX_HNO4 = IOLD2NEW( INDEX_HNO4 , 1 ) INDEX_HO2 = IOLD2NEW( INDEX_HO2 , 1 ) INDEX_HCHO = IOLD2NEW( INDEX_HCHO , 1 ) INDEX_CO = IOLD2NEW( INDEX_CO , 1 ) INDEX_ACD = IOLD2NEW( INDEX_ACD , 1 ) INDEX_MO2 = IOLD2NEW( INDEX_MO2 , 1 ) INDEX_ALD = IOLD2NEW( INDEX_ALD , 1 ) INDEX_ETHP = IOLD2NEW( INDEX_ETHP , 1 ) INDEX_ACT = IOLD2NEW( INDEX_ACT , 1 ) INDEX_ACO3 = IOLD2NEW( INDEX_ACO3 , 1 ) INDEX_UALD = IOLD2NEW( INDEX_UALD , 1 ) INDEX_KET = IOLD2NEW( INDEX_KET , 1 ) INDEX_MEK = IOLD2NEW( INDEX_MEK , 1 ) INDEX_HKET = IOLD2NEW( INDEX_HKET , 1 ) INDEX_MACR = IOLD2NEW( INDEX_MACR , 1 ) INDEX_MACP = IOLD2NEW( INDEX_MACP , 1 ) INDEX_XO2 = IOLD2NEW( INDEX_XO2 , 1 ) INDEX_MVK = IOLD2NEW( INDEX_MVK , 1 ) INDEX_GLY = IOLD2NEW( INDEX_GLY , 1 ) INDEX_MGLY = IOLD2NEW( INDEX_MGLY , 1 ) INDEX_DCB1 = IOLD2NEW( INDEX_DCB1 , 1 ) INDEX_DCB2 = IOLD2NEW( INDEX_DCB2 , 1 ) INDEX_BALD = IOLD2NEW( INDEX_BALD , 1 ) INDEX_CHO = IOLD2NEW( INDEX_CHO , 1 ) INDEX_OP1 = IOLD2NEW( INDEX_OP1 , 1 ) INDEX_OP2 = IOLD2NEW( INDEX_OP2 , 1 ) INDEX_PAA = IOLD2NEW( INDEX_PAA , 1 ) INDEX_ONIT = IOLD2NEW( INDEX_ONIT , 1 ) INDEX_PAN = IOLD2NEW( INDEX_PAN , 1 ) INDEX_N2O5 = IOLD2NEW( INDEX_N2O5 , 1 ) INDEX_SO2 = IOLD2NEW( INDEX_SO2 , 1 ) INDEX_SULF = IOLD2NEW( INDEX_SULF , 1 ) INDEX_SULRXN = IOLD2NEW( INDEX_SULRXN , 1 ) INDEX_ETH = IOLD2NEW( INDEX_ETH , 1 ) INDEX_HC3 = IOLD2NEW( INDEX_HC3 , 1 ) INDEX_HC3P = IOLD2NEW( INDEX_HC3P , 1 ) INDEX_HC5 = IOLD2NEW( INDEX_HC5 , 1 ) INDEX_HC5P = IOLD2NEW( INDEX_HC5P , 1 ) INDEX_HC8 = IOLD2NEW( INDEX_HC8 , 1 ) INDEX_HC8P = IOLD2NEW( INDEX_HC8P , 1 ) INDEX_ETE = IOLD2NEW( INDEX_ETE , 1 ) INDEX_ETEP = IOLD2NEW( INDEX_ETEP , 1 ) INDEX_OLT = IOLD2NEW( INDEX_OLT , 1 ) INDEX_OLTP = IOLD2NEW( INDEX_OLTP , 1 ) INDEX_OLI = IOLD2NEW( INDEX_OLI , 1 ) INDEX_OLIP = IOLD2NEW( INDEX_OLIP , 1 ) INDEX_DIEN = IOLD2NEW( INDEX_DIEN , 1 ) INDEX_ACE = IOLD2NEW( INDEX_ACE , 1 ) INDEX_ORA1 = IOLD2NEW( INDEX_ORA1 , 1 ) INDEX_BENZENE = IOLD2NEW( INDEX_BENZENE , 1 ) INDEX_BENP = IOLD2NEW( INDEX_BENP , 1 ) INDEX_EPX = IOLD2NEW( INDEX_EPX , 1 ) INDEX_PHEN = IOLD2NEW( INDEX_PHEN , 1 ) INDEX_BENZRO2 = IOLD2NEW( INDEX_BENZRO2 , 1 ) INDEX_TOL = IOLD2NEW( INDEX_TOL , 1 ) INDEX_TR2 = IOLD2NEW( INDEX_TR2 , 1 ) INDEX_TLP1 = IOLD2NEW( INDEX_TLP1 , 1 ) INDEX_CSL = IOLD2NEW( INDEX_CSL , 1 ) INDEX_TOLRO2 = IOLD2NEW( INDEX_TOLRO2 , 1 ) INDEX_XYM = IOLD2NEW( INDEX_XYM , 1 ) INDEX_XY2 = IOLD2NEW( INDEX_XY2 , 1 ) INDEX_XYL1 = IOLD2NEW( INDEX_XYL1 , 1 ) INDEX_XYLRO2 = IOLD2NEW( INDEX_XYLRO2 , 1 ) INDEX_XYP = IOLD2NEW( INDEX_XYP , 1 ) INDEX_XYO = IOLD2NEW( INDEX_XYO , 1 ) INDEX_XYO2 = IOLD2NEW( INDEX_XYO2 , 1 ) INDEX_ISO = IOLD2NEW( INDEX_ISO , 1 ) INDEX_ISOP = IOLD2NEW( INDEX_ISOP , 1 ) INDEX_ISOPRXN = IOLD2NEW( INDEX_ISOPRXN , 1 ) INDEX_API = IOLD2NEW( INDEX_API , 1 ) INDEX_APIP = IOLD2NEW( INDEX_APIP , 1 ) INDEX_TRPRXN = IOLD2NEW( INDEX_TRPRXN , 1 ) INDEX_LIM = IOLD2NEW( INDEX_LIM , 1 ) INDEX_LIMP = IOLD2NEW( INDEX_LIMP , 1 ) INDEX_RCO3 = IOLD2NEW( INDEX_RCO3 , 1 ) INDEX_ACTP = IOLD2NEW( INDEX_ACTP , 1 ) INDEX_MEKP = IOLD2NEW( INDEX_MEKP , 1 ) INDEX_KETP = IOLD2NEW( INDEX_KETP , 1 ) INDEX_MCP = IOLD2NEW( INDEX_MCP , 1 ) INDEX_MVKP = IOLD2NEW( INDEX_MVKP , 1 ) INDEX_UALP = IOLD2NEW( INDEX_UALP , 1 ) INDEX_DCB3 = IOLD2NEW( INDEX_DCB3 , 1 ) INDEX_BALP = IOLD2NEW( INDEX_BALP , 1 ) INDEX_ADDC = IOLD2NEW( INDEX_ADDC , 1 ) INDEX_MCT = IOLD2NEW( INDEX_MCT , 1 ) INDEX_MCTO = IOLD2NEW( INDEX_MCTO , 1 ) INDEX_MOH = IOLD2NEW( INDEX_MOH , 1 ) INDEX_EOH = IOLD2NEW( INDEX_EOH , 1 ) INDEX_ROH = IOLD2NEW( INDEX_ROH , 1 ) INDEX_ETEG = IOLD2NEW( INDEX_ETEG , 1 ) INDEX_ISHP = IOLD2NEW( INDEX_ISHP , 1 ) INDEX_IEPOX = IOLD2NEW( INDEX_IEPOX , 1 ) INDEX_MAHP = IOLD2NEW( INDEX_MAHP , 1 ) INDEX_ORA2 = IOLD2NEW( INDEX_ORA2 , 1 ) INDEX_ORAP = IOLD2NEW( INDEX_ORAP , 1 ) INDEX_PPN = IOLD2NEW( INDEX_PPN , 1 ) INDEX_MPAN = IOLD2NEW( INDEX_MPAN , 1 ) INDEX_NALD = IOLD2NEW( INDEX_NALD , 1 ) INDEX_ISON = IOLD2NEW( INDEX_ISON , 1 ) INDEX_MCTP = IOLD2NEW( INDEX_MCTP , 1 ) INDEX_OLNN = IOLD2NEW( INDEX_OLNN , 1 ) INDEX_OLND = IOLD2NEW( INDEX_OLND , 1 ) INDEX_ADCN = IOLD2NEW( INDEX_ADCN , 1 ) INDEX_TOLP = IOLD2NEW( INDEX_TOLP , 1 ) INDEX_PER1 = IOLD2NEW( INDEX_PER1 , 1 ) INDEX_XYLP = IOLD2NEW( INDEX_XYLP , 1 ) INDEX_PER2 = IOLD2NEW( INDEX_PER2 , 1 ) INDEX_XYOP = IOLD2NEW( INDEX_XYOP , 1 ) INDEX_BAL1 = IOLD2NEW( INDEX_BAL1 , 1 ) INDEX_BAL2 = IOLD2NEW( INDEX_BAL2 , 1 ) INDEX_TOLNRXN = IOLD2NEW( INDEX_TOLNRXN , 1 ) INDEX_TOLHRXN = IOLD2NEW( INDEX_TOLHRXN , 1 ) INDEX_XYLNRXN = IOLD2NEW( INDEX_XYLNRXN , 1 ) INDEX_XYLHRXN = IOLD2NEW( INDEX_XYLHRXN , 1 ) INDEX_BNZNRXN = IOLD2NEW( INDEX_BNZNRXN , 1 ) INDEX_BNZHRXN = IOLD2NEW( INDEX_BNZHRXN , 1 ) INDEX_SESQ = IOLD2NEW( INDEX_SESQ , 1 ) INDEX_SESQRXN = IOLD2NEW( INDEX_SESQRXN , 1 ) INDEX_NAPH = IOLD2NEW( INDEX_NAPH , 1 ) INDEX_PAHRO2 = IOLD2NEW( INDEX_PAHRO2 , 1 ) INDEX_PAHNRXN = IOLD2NEW( INDEX_PAHNRXN , 1 ) INDEX_PAHHRXN = IOLD2NEW( INDEX_PAHHRXN , 1 ) INDEX_SOAALK = IOLD2NEW( INDEX_SOAALK , 1 ) INDEX_ALKRXN = IOLD2NEW( INDEX_ALKRXN , 1 ) INDEX_AISO3J = IOLD2NEW( INDEX_AISO3J , 1 ) INDEX_AXYL1J = IOLD2NEW( INDEX_AXYL1J , 1 ) INDEX_AOLGAJ = IOLD2NEW( INDEX_AOLGAJ , 1 ) INDEX_AXYL2J = IOLD2NEW( INDEX_AXYL2J , 1 ) INDEX_ATOL1J = IOLD2NEW( INDEX_ATOL1J , 1 ) INDEX_ATOL2J = IOLD2NEW( INDEX_ATOL2J , 1 ) INDEX_ABNZ1J = IOLD2NEW( INDEX_ABNZ1J , 1 ) INDEX_ABNZ2J = IOLD2NEW( INDEX_ABNZ2J , 1 ) INDEX_ATRP1J = IOLD2NEW( INDEX_ATRP1J , 1 ) INDEX_AOLGBJ = IOLD2NEW( INDEX_AOLGBJ , 1 ) INDEX_ATRP2J = IOLD2NEW( INDEX_ATRP2J , 1 ) INDEX_AISO1J = IOLD2NEW( INDEX_AISO1J , 1 ) INDEX_AISO2J = IOLD2NEW( INDEX_AISO2J , 1 ) INDEX_ASQTJ = IOLD2NEW( INDEX_ASQTJ , 1 ) INDEX_APAH1J = IOLD2NEW( INDEX_APAH1J , 1 ) INDEX_APAH2J = IOLD2NEW( INDEX_APAH2J , 1 ) INDEX_AALK1J = IOLD2NEW( INDEX_AALK1J , 1 ) INDEX_AALK2J = IOLD2NEW( INDEX_AALK2J , 1 ) INDEX_APOCI = IOLD2NEW( INDEX_APOCI , 1 ) INDEX_APNCOMI = IOLD2NEW( INDEX_APNCOMI , 1 ) INDEX_APOCJ = IOLD2NEW( INDEX_APOCJ , 1 ) INDEX_APNCOMJ = IOLD2NEW( INDEX_APNCOMJ , 1 ) INDEX_PCVOC = IOLD2NEW( INDEX_PCVOC , 1 ) INDEX_PCSOARXN = IOLD2NEW( INDEX_PCSOARXN, 1 ) INDEX_VLVPO1 = IOLD2NEW( INDEX_VLVPO1 , 1 ) INDEX_VSVPO1 = IOLD2NEW( INDEX_VSVPO1 , 1 ) INDEX_VSVPO2 = IOLD2NEW( INDEX_VSVPO2 , 1 ) INDEX_VSVPO3 = IOLD2NEW( INDEX_VSVPO3 , 1 ) INDEX_VIVPO1 = IOLD2NEW( INDEX_VIVPO1 , 1 ) INDEX_VLVOO1 = IOLD2NEW( INDEX_VLVOO1 , 1 ) INDEX_VLVOO2 = IOLD2NEW( INDEX_VLVOO2 , 1 ) INDEX_VSVOO2 = IOLD2NEW( INDEX_VSVOO2 , 1 ) INDEX_VSVOO3 = IOLD2NEW( INDEX_VSVOO3 , 1 ) INDEX_VSVOO1 = IOLD2NEW( INDEX_VSVOO1 , 1 ) END SUBROUTINE RESET_SPECIES_POINTERS END MODULE RXNS_FUNCTION ================================================ FILE: CCTM/src/MECHS/racm2_ae6_aq/SpecDef_Dep_racm2_ae6_aq.txt ================================================ !#start YYYYJJJ !#end YYYYJJJ #layer 1 / File [1]: DRYDEP / File [2]: WETDEP / File [3]: METCRO2D / /new species ,units ,expression RT ,cm ,RC[3]>=0 ? RN[3]+RC[3] : RN[3] !---------------------------------------------------! !--------------- Gas Deposition --------------------! !---------------------------------------------------! DDEP_NO2 ,kg ha-1 ,NO2[1] WDEP_NO2 ,kg ha-1 ,NO2[2] DDEP_NO ,kg ha-1 ,NO[1] WDEP_NO ,kg ha-1 ,NO[2] DDEP_NO3 ,kg ha-1 ,NO3[1] WDEP_NO3 ,kg ha-1 ,NO3[2] DDEP_FORM ,kg ha-1 ,HCHO[1] ! formaldehyde is HCHO RACM2 WDEP_FORM ,kg ha-1 ,HCHO[2] ! formaldehyde is HCHO RACM2 DDEP_H2O2 ,kg ha-1 ,H2O2[1] WDEP_H2O2 ,kg ha-1 ,H2O2[2] DDEP_N2O5 ,kg ha-1 ,N2O5[1] WDEP_N2O5 ,kg ha-1 ,N2O5[2] DDEP_HONO ,kg ha-1 ,HONO[1] WDEP_HONO ,kg ha-1 ,HONO[2] DDEP_HNO3 ,kg ha-1 ,HNO3[1] WDEP_HNO3 ,kg ha-1 ,HNO3[2] DDEP_NTR ,kg ha-1 ,ONIT[1]+ISON[1]+NALD[1] WDEP_NTR ,kg ha-1 ,ONIT[2]+ISON[2]+NALD[2] DDEP_PANT ,kg ha-1 ,PAN[1]+PPN[1]+MPAN[1] WDEP_PANT ,kg ha-1 ,PAN[2]+PPN[2]+MPAN[2] DDEP_NH3 ,kg ha-1 ,NH3[1] WDEP_NH3 ,kg ha-1 ,NH3[2] DDEP_SO2 ,kg ha-1 ,SO2[1] DDEP_O3 ,kg ha-1 ,O3[1] WDEP_O3 ,kg ha-1 ,O3[2] WDEP_PNA ,kg ha-1 ,PNA[2] ! Peroxy-Nitric Acid !---------------------------------------------------! !------------- Aerosol Deposition ------------------! !---------------------------------------------------! DDEP_ANO3IJ ,kg ha-1 ,ANO3I[1] + ANO3J[1] DDEP_ANO3K ,kg ha-1 ,ANO3K[1] WDEP_ANO3IJK ,kg ha-1 ,ANO3I[2] + ANO3J[2] + ANO3K[2] DDEP_TNO3 ,kg ha-1 ,ANO3I[1] + ANO3J[1] + ANO3K[1] + 0.984*HNO3[1] + NO3[1] WDEP_TNO3 ,kg ha-1 ,ANO3I[2] + ANO3J[2] + ANO3K[2] + 0.984*HNO3[2] + NO3[2] DDEP_ANH4IJ ,kg ha-1 ,ANH4I[1] + ANH4J[1] DDEP_ANH4K ,kg ha-1 ,ANH4K[1] WDEP_ANH4IJK ,kg ha-1 ,ANH4I[2] + ANH4J[2] + ANH4K[2] DDEP_ASO4IJ ,kg ha-1 ,ASO4I[1] + ASO4J[1] DDEP_ASO4K ,kg ha-1 ,ASO4K[1] WDEP_ASO4IJK ,kg ha-1 ,ASO4I[2] + ASO4J[2] + ASO4K[2] DDEP_AECIJ ,kg ha-1 ,AECI[1] +AECJ[1] DDEP_AOCIJ ,kgC ha-1 ,ALVPO1I[1]/1.39 + ASVPO1I[1]/1.32 + ASVPO2I[1]/1.26 \ +ALVPO1J[1]/1.39 + ASVPO1J[1]/1.32 + ASVPO2J[1]/1.26 \ +ASVPO3J[1]/1.21 + AIVPO1J[1]/1.17 \ +ALVOO1I[1]/2.27 + ALVOO2I[1]/2.06 \ +ASVOO1I[1]/1.88 + ASVOO2I[1]/1.73 \ +AXYL1J[1]/2.42 + AXYL2J[1]/1.93 + AXYL3J[1]/2.30 \ +ATOL1J[1]/2.26 + ATOL2J[1]/1.82 + ATOL3J[1]/2.70 \ +ABNZ1J[1]/2.68 + ABNZ2J[1]/2.23 + ABNZ3J[1]/3.00 \ +AISO1J[1]/2.20 + AISO2J[1]/2.23 + AISO3J[1]/2.80 \ +ATRP1J[1]/1.84 + ATRP2J[1]/1.83 + ASQTJ[1]/1.52 \ +AALK1J[1]/1.56 + AALK2J[1]/1.42 \ +AORGCJ[1]/2.00 + AOLGBJ[1]/2.10 + AOLGAJ[1]/2.50 \ +APAH1J[1]/1.63 + APAH2J[1]/1.49 + APAH3J[1]/1.77 \ +ALVOO1J[1]/2.27+ ALVOO2J[1]/2.06+ ASVOO1J[1]/1.88 \ +ASVOO2J[1]/1.73+ ASVOO3J[1]/1.60 \ +APCSOJ[1] /2.00 !DDEP_SSSO4J ,kg ha-1 ,0.2514*ANAJ[1] !DDEP_SSSO4K ,kg ha-1 ,0.2514*DDEP_ANAK[0] !WDEP_SSSO4JK ,kg ha-1 ,0.2514*ANAJ[2] + 0.2514*WDEP_ANAK[0] !-----------------------------------------------------! !-------- Total (Gas + Aerosol) Deposition -----------! !-----------------------------------------------------! DDEP_NHX ,kg ha-1 ,ANH4I[1] + ANH4J[1] + ANH4K[1] + 1.059*NH3[1] WDEP_NHX ,kg ha-1 ,ANH4I[2] + ANH4J[2] + ANH4K[2] + 1.059*NH3[2] WDEP_TSO4 ,kg ha-1 ,ASO4I[2] + ASO4J[2] + ASO4K[2] + 1.5*SO2[2] !! Sodium DDEP_ANAJ ,kg ha-1 ,ANAJ[1] DDEP_ANAK ,kg ha-1 ,0.8373*ASEACAT[1]+0.0626*ASOIL[1]+0.0023*ACORS[1] DDEP_ANAJK ,kg ha-1 ,DDEP_ANAJ[0] + DDEP_ANAK[0] WDEP_ANAK ,kg ha-1 ,0.8373*ASEACAT[2]+0.0626*ASOIL[2]+0.0023*ACORS[2] WDEP_ANAJK ,kg ha-1 ,ANAJ[2] + WDEP_ANAK[0] TDEP_ANAJK ,kg ha-1 ,DDEP_ANAJK[0] + WDEP_ANAJK[0] !! Chloride DDEP_ACLJ ,kg ha-1 ,ACLJ[1] DDEP_ACLK ,kg ha-1 ,ACLK[1] DDEP_ACLJK ,kg ha-1 ,ACLJ[1] + ACLK[1] WDEP_TCL ,kg ha-1 ,0.972*HCL[2]+0.435*CLNO2[2] + ACLJ[2] + ACLK[2] TDEP_CL ,kg ha-1 ,DDEP_ACLJK[0] + WDEP_TCL[0] !! Calcium DDEP_CAJ ,kg ha-1 ,ACAJ[1] WDEP_CAJ ,kg ha-1 ,ACAJ[2] DDEP_CAK ,kg ha-1 ,0.0320*ASEACAT[1]+0.0838*ASOIL[1]+0.0562*ACORS[1] WDEP_CAK ,kg ha-1 ,0.0320*ASEACAT[2]+0.0838*ASOIL[2]+0.0562*ACORS[2] DDEP_CAJK ,kg ha-1 ,ACAJ[1]+DDEP_CAK[0] WDEP_CAJK ,kg ha-1 ,ACAJ[2]+WDEP_CAK[0] !! Iron DDEP_FEJ ,kg ha-1 ,AFEJ[1] WDEP_FEJ ,kg ha-1 ,AFEJ[2] !! Aluminum DDEP_ALJ ,kg ha-1 ,AALJ[1] WDEP_ALJ ,kg ha-1 ,AALJ[2] !! Silicon DDEP_SIJ ,kg ha-1 ,ASIJ[1] WDEP_SIJ ,kg ha-1 ,ASIJ[2] !! Titanium DDEP_TIJ ,kg ha-1 ,ATIJ[1] WDEP_TIJ ,kg ha-1 ,ATIJ[2] !! Magnesium DDEP_MGJ ,kg ha-1 ,AMGJ[1] WDEP_MGJ ,kg ha-1 ,AMGJ[2] DDEP_MGK ,kg ha-1 ,0.0997*ASEACAT[1]+0.0170*ASOIL[1]+0.0032*ACORS[1] WDEP_MGK ,kg ha-1 ,0.0997*ASEACAT[2]+0.0170*ASOIL[2]+0.0032*ACORS[2] DDEP_MGJK ,kg ha-1 ,AMGJ[1]+DDEP_MGK[0] WDEP_MGJK ,kg ha-1 ,AMGJ[2]+WDEP_MGK[0] !! Potassium DDEP_KJ ,kg ha-1 ,AKJ[1] WDEP_KJ ,kg ha-1 ,AKJ[2] DDEP_KK ,kg ha-1 ,0.0310*ASEACAT[1]+0.0242*ASOIL[1]+0.0176*ACORS[1] WDEP_KK ,kg ha-1 ,0.0310*ASEACAT[2]+0.0242*ASOIL[2]+0.0176*ACORS[2] DDEP_KJK ,kg ha-1 ,AKJ[1]+DDEP_KK[0] WDEP_KJK ,kg ha-1 ,AKJ[2]+WDEP_KK[0] !! Manganese DDEP_MNJ ,kg ha-1 ,AMNJ[1] WDEP_MNJ ,kg ha-1 ,AMNJ[2] !---------------------------------------------------! !------------- Nitrogen Deposition -----------------! !---------------------------------------------------! DD_OXN_NOX ,kgN ha-1 ,0.30435*NO2[1] + 0.46667*NO[1] WD_OXN_NOX ,kgN ha-1 ,0.30435*NO2[2] + 0.46667*NO[2] DD_OXN_TNO3 ,kgN ha-1 ,0.22222*HNO3[1] + 0.22581*ANO3I[1] + 0.22581*ANO3J[1] + 0.22581*ANO3K[1] WD_OXN_TNO3 ,kgN ha-1 ,0.22581*WDEP_TNO3[0] DD_OXN_PANT ,kgN ha-1 ,0.11570*PAN[1] + 0.11570*PPN[1] + 0.11570*MPAN[1] WD_OXN_PANT ,kgN ha-1 ,0.11570*PAN[2] + 0.11570*PPN[2] + 0.11570*MPAN[2] DD_OXN_ORGN ,kgN ha-1 ,0.10770*(ONIT[1]+ISON[1]+NALD[1]) WD_OXN_ORGN ,kgN ha-1 ,0.10770*(ONIT[2]+ISON[2]+NALD[2]) DD_OXN_OTHR ,kgN ha-1 ,0.25926*N2O5[1] + 0.29787*HONO[1]+0.17720*PNA[1]+0.1717*CLNO2[1] WD_OXN_OTHR ,kgN ha-1 ,0.25926*N2O5[2] + 0.29787*HONO[2]+0.17720*PNA[2]+0.1717*CLNO2[2] DD_OXN_TOT ,kgN ha-1 ,DD_OXN_NOX[0] + DD_OXN_TNO3[0] + DD_OXN_PANT[0] + DD_OXN_ORGN[0] + DD_OXN_OTHR[0] WD_OXN_TOT ,kgN ha-1 ,WD_OXN_NOX[0] + WD_OXN_TNO3[0] + WD_OXN_PANT[0] + WD_OXN_ORGN[0] + WD_OXN_OTHR[0] TD_OXN_TOT ,kgN ha-1 ,DD_OXN_TOT[0] + WD_OXN_TOT[0] DD_REDN_TOT ,kgN ha-1 ,0.7777*DDEP_NHX[0] WD_REDN_TOT ,kgN ha-1 ,0.7777*WDEP_NHX[0] TD_REDN_TOT ,kgN ha-1 ,DD_REDN_TOT[0] + WD_REDN_TOT[0] DD_N_TOT ,kgN ha-1 ,DD_OXN_TOT[0] + DD_REDN_TOT[0] WD_N_TOT ,kgN ha-1 ,WD_OXN_TOT[0] + WD_REDN_TOT[0] TD_N_TOT ,kgN ha-1 ,DD_N_TOT[0] + WD_N_TOT[0] !! Nitrogen Deposition in milliequivalents Nitrogen !DD_OXN_TOTMEQ ,meqN m-2 ,7.14*DD_OXN_TOT[0] !WD_OXN_TOTMEQ ,meqN m-2 ,7.14*WD_OXN_TOT[0] !TD_OXN_TOTMEQ ,meqN m-2 ,DD_OXN_TOTMEQ[0] + WD_OXN_TOTMEQ[0] !DD_REDN_TOTMEQ ,meqN m-2 ,7.14*DD_REDN_TOT[0] !WD_REDN_TOTMEQ ,meqN m-2 ,7.14*WD_REDN_TOT[0] !TD_REDN_TOTMEQ ,meqN m-2 ,DD_REDN_TOTMEQ[0] + WD_REDN_TOTMEQ[0] !DD_N_TOTMEQ ,meqN m-2 ,DD_OXN_TOTMEQ[0] + DD_REDN_TOTMEQ[0] !WD_N_TOTMEQ ,meqN m-2 ,WD_OXN_TOTMEQ[0] + WD_REDN_TOTMEQ[0] !TD_N_TOTMEQ ,meqN m-2 ,DD_N_TOTMEQ[0] + WD_N_TOTMEQ[0] !-------------------------------------------------! !------------- Sulfur Deposition -----------------! !-------------------------------------------------! DD_S_TOT ,kgS ha-1 ,0.5*SO2[1] + 0.33333*ASO4I[1] + 0.33333*ASO4J[1] + 0.33333*ASO4K[1] WD_S_TOT ,kgS ha-1 ,0.33333*WDEP_TSO4[0] TD_S_TOT ,kgS ha-1 ,DD_S_TOT[0] + WD_S_TOT[0] !DD_S_SeaS ,kgS ha-1 ,0.33333*DDEP_SSSO4J[0] + 0.33333*DDEP_SSSO4K[0] !WD_S_SeaS ,kgS ha-1 ,0.33333*WDEP_SSSO4JK[0] !TD_S_SeaS ,kgS ha-1 ,DD_S_SeaS[0] + WD_S_SeaS[0] !! Sulfur Deposition in milliequivalents Sulfur !DD_S_TOTMEQ ,meqS m-2 ,6.24*DD_S_TOT[0] !WD_S_TOTMEQ ,meqS m-2 ,6.24*WD_S_TOT[0] !TD_S_TOTMEQ ,meqS m-2 ,DD_S_TOTMEQ[0] + WD_S_TOTMEQ[0] !DD_S_SeaSMEQ ,meqS m-2 ,6.24*DD_S_SeaS[0] !WD_S_SeaSMEQ ,meqS m-2 ,6.24*WD_S_SeaS[0] !TD_S_SeaSMEQ ,meqS m-2 ,DD_S_SeaSMEQ[0] + WD_S_SeaSMEQ[0] ================================================ FILE: CCTM/src/MECHS/racm2_ae6_aq/SpecDef_racm2_ae6_aq.txt ================================================ !#start YYYYJJJ 010000 !#end YYYYJJJ 000000 #layer 1 / ! This Species Definition File is for Use with the COMBINE tool built for ! post-processing CMAQ output. It is compatible with CMAQv5.2. ! Date: May 12 2017 ! Output variables that begin with 'PM' represent those in which a size cut was ! applied based on modeled aerosol mode parameters. For example, PM25_NA is all ! sodium that falls below 2.5 um diameter. These 'PM' variables are used for ! comparisons at IMPROVE and CSN sites. ! Output variables that begin with 'PMAMS' represent the mass that would have ! been detected by an Aerosol Mass Spectrometer. ! Output variables beginning with 'A' (aside from AIR_DENS) represent a ! combination of aerosol species in which no size cut was applied. For example, ! ASO4IJ is the sum of i-mode and j-mode sulfate. These 'A' variables are used ! for comparisons at CASTNet sites. ! Output variables beginning with 'PMC' refer to the coarse fraction of total PM, ! computed by summing all modes and subtracting the PM2.5 fraction. These 'PMC' ! variables are used for comparisons at SEARCH sites. ! This Species Definition File is just for use with the uncoupled, offline CMAQ, ! model. If you are processing WRF-CMAQ results, a different Species Definition ! file is required. / File [1]: CMAQ conc/aconc file / File [2]: METCRO3D file / File [3]: ELMO/AELMO file / File [4]: METCRO2D file / /new species ,units ,expression !-------------------------------------------! !------------- Meteorology -----------------! !-------------------------------------------! AIR_DENS ,kg m-3 ,DENS[2] RH ,% ,100.00*RH[3] SFC_TMP ,C ,(TEMP2[4]-273.15) PBLH ,m ,PBL[4] SOL_RAD ,W m-2 ,RGRND[4] precip ,cm ,RC[4]>=0 ? RN[4]+RC[4] : RN[4] WSPD10 ,m s-1 ,WSPD10[4] WDIR10 ,deg ,WDIR10[4] !-------------------------------------------! !--------------- Gases ---------------------! !-------------------------------------------! ALD2 ,ppbV ,1000.0*ACD[1], acetaldehyde is ACD in RACM2 BENZENE ,ppbV ,1000.0*BENZENE[1] CO ,ppbV ,1000.0*CO[1] ETH ,ppbV ,1000.0*ETE[1], ethene is ETE in RACM2 ETHA ,ppbV ,1000.0*ETH[1], ethane is ETH in RACM2 FORM ,ppbV ,1000.0*HCHO[1], formaldehyde is HCHO RACM2 H2O2 ,ppbV ,1000.0*H2O2[1] HNO3 ,ppbV ,1000.0*HNO3[1] HNO3_UGM3 ,ug m-3 ,1000.0*(HNO3[1]*2.1756*DENS[2]) HONO ,ppbV ,1000.0*HONO[1] HOX ,ppbV ,1000.0*(HO[1]+HO2[1]) OH ,ppbV ,1000.0*HO[1] ISOP ,ppbV ,1000.0*ISO[1], isoprene is ISO in RACM2 N2O5 ,ppbV ,1000.0*N2O5[1] NH3 ,ppbV ,1000.0*NH3[1] NH3_UGM3 ,ug m-3 ,1000.0*(NH3[1]*0.5880*DENS[2]) NHX ,ug m-3 ,1000.0*(NH3[1]*0.5880*DENS[2])+ANH4I[1]+ANH4J[1]+ANH4K[1] NO ,ppbV ,1000.0*NO[1] NO2 ,ppbV ,1000.0*NO2[1] NOX ,ppbV ,1000.0*(NO[1] + NO2[1]) ANO3_PPB ,ppbV ,(ANO3I[1]+ANO3J[1]+ANO3K[1])/(DENS[2]*(62.0/28.97)) NTR ,ppbV ,1000.0*(ONIT[1]+ISON[1]+NALD[1]), organic nitrates in RACM2 PANS ,ppbV ,1000.0*(PAN[1]+PPN[1]+MPAN[1]) NOY ,ppbV ,1000.0*(NO[1]+NO2[1]+NO3[1]+2*N2O5[1]+HONO[1] \ +HNO3[1]+HNO4[1]+PAN[1]+PPN[1]+MPAN[1] \ +ISON[1]+ONIT[1]+NALD[1])+ANO3_PPB[0] O3 ,ppbV ,1000.0*O3[1] SO2 ,ppbV ,1000.0*SO2[1] SO2_UGM3 ,ug m-3 ,1000.0*(SO2[1]*2.2118*DENS[2]) TERP ,ppbV ,1000.0*(API[1]+LIM[1]), a-pinene and limonene monoterpenes in RACM2 TOL ,ppbV ,1000.0*TOL[1] XYL ,ppbV ,1000.0*(XYO[1]+XYM[1]+XYP[1]) !! Unused Gases. Presented Here for illustration. Users can uncomment !! them if they choose. !ALDX ,ppbV ,1000.0*ALD[1], C3 and higher aldehydes is ALD in RACM2 !IOLE ,ppbV ,1000.0*OLI[1], internal olefin is OLI in RACM2 !NOZ ,ppbV ,NOY[0]-NOX[0] !OLE ,ppbV ,1000.0*OLT[1], terminal olefines is OLT in RACM2 !SULF ,ppbV ,1000.0*SULF[1] !VOC ,ppbC ,1000.0*(1.0*HCHO[1]+2.0*ACD[1]+3.0*ALD[1]+2.0*ETH[1] \ ! +3.6*HC3[1]+5.6*HC5[1]+7.9*HC8[1]+2.0*ETE[1] \ ! +5.0*OLI[1]+3.8*OLT[1]+2.0*ACE[1]+3.0*ACT[1] \ ! +5.0*ISO[1]+10.0*API[1]+10.0*LIM[1] \ ! +6.0*BENZENE[1]+7.1*TOL[1]+8.9*XYL[0] \ ! +7.0*BALD[1]+1.0*MOH[1]+2.0*EOH[1] \ ! +3.0*ROH[1]+7.0*CSL[1]+3.0*MGLY[1]+4.0*MEK[1] \ ! +5.0*KET[1]+3.0*HKET[1]+2.0*GLY[1]+6.0*PHEN[1]\ ! +4.0*MVK[1]+4.0*MACR[1]+7.0*MCT[1]+2.0*NALD[1]\ ! +5.0*UALD[1]+4.0*DIEN[1]+7.75*EPX[1]+2.0*ETEG[1]) !-------------------------------------------! !--------------- Particles -----------------! !-------------------------------------------! !! Crustal Elements AFEJ ,ug m-3 ,PMF_FE[3] AALJ ,ug m-3 ,PMF_AL[3] ASIJ ,ug m-3 ,PMF_SI[3] ATIJ ,ug m-3 ,PMF_TI[3] ACAJ ,ug m-3 ,PMF_CA[3] AMGJ ,ug m-3 ,PMF_MG[3] AKJ ,ug m-3 ,PMF_K[3] AMNJ ,ug m-3 ,PMF_MN[3] ASOILJ ,ug m-3 ,PMF_SOILIMPV[3] !! Non-Crustal Inorganic Particle Species AHPLUSIJ ,ug m-3 ,PMF_HP[3] ANAK ,ug m-3 ,PMC_NA[3] AMGK ,ug m-3 ,PMC_MG[3] AKK ,ug m-3 ,PMC_K[3] ACAK ,ug m-3 ,PMC_CA[3] ACLIJ ,ug m-3 ,PMF_CL[3] AECIJ ,ug m-3 ,PMF_EC[3] ANAIJ ,ug m-3 ,PMF_NA[3] ANO3IJ ,ug m-3 ,PMF_NO3[3] ANO3K ,ug m-3 ,PMC_NO3[3] ANH4IJ ,ug m-3 ,PMF_NH4[3] ANH4K ,ug m-3 ,PMC_NH4[3] ASO4IJ ,ug m-3 ,PMF_SO4[3] ASO4K ,ug m-3 ,PMC_SO4[3] !! Organic Particle Species APOCIJ ,ugC m-3 ,PMF_POC[3] APOMIJ ,ug m-3 ,PMF_POA[3] ASOCIJ ,ugC m-3 ,PMF_SOC[3] ASOMIJ ,ug m-3 ,PMF_SOA[3] AOCIJ ,ugC m-3 ,PMF_OC[3] AOMIJ ,ug m-3 ,PMF_OA[3] !!! Anthropogenic-VOC Derived Organic Aerosol AORGAJ ,ug m-3 ,PMF_ASOA[3] !!! Biogenic-VOC Derived Organic Aerosol AORGBJ ,ug m-3 ,PMF_BSOA[3] !!! Cloud-Processed SOA AORGCJ ,ug m-3 ,AORGCJ[1] !!! OM/OC ratios AOMOCRAT_TOT , ,PMF_OMOC[3] !! Total PM Aggregates ATOTI ,ug m-3 ,PMAIT_MASS[3] ATOTJ ,ug m-3 ,PMACC_MASS[3] ATOTK ,ug m-3 ,PMC_MASS[3] ATOTIJ ,ug m-3 ,PMF_MASS[3] ATOTIJK ,ug m-3 ,PM_MASS[3] !! Unspeciated PM including non-carbon organic mass AUNSPEC1IJ ,ug m-3 ,PMF_UN_IMPV1[3] !! Non-Carbon Organic Mass ANCOMIJ ,ug m-3 ,PMF_NCOM[3] !! Unspeciated PM excluding non-carbon organic mass AUNSPEC2IJ ,ug m-3 ,PMF_UN_IMPV2[3] !! AMS Projection of Output Concentrations PMAMS_CL ,ug m-3 ,PMAMS_CL[3] PMAMS_NH4 ,ug m-3 ,PMAMS_NH4[3] PMAMS_NO3 ,ug m-3 ,PMAMS_NO3[3] PMAMS_OA ,ug m-3 ,PMAMS_OA[3] PMAMS_SO4 ,ug m-3 ,PMAMS_SO4[3] !! PM1 Cutoff Output PM1_TOT ,ug m-3 ,PM1[3] !! Unused PM1 Species. Included Here for demonstration !PM1_EC ,ug m-3 ,PM1_EC[3] !PM1_OC ,ugC m-3 ,PM1_OC[3] !PM1_OM ,ug m-3 ,PM1_OA[3] !PM1_SO4 ,ug m-3 ,PM1_SO4[3] !PM1_CL ,ug m-3 ,PM1_CL[3] !PM1_NA ,ug m-3 ,PM1_NA[3] !PM1_MG ,ug m-3 ,PM1_MG[3] !PM1_K ,ug m-3 ,PM1_K[3] !PM1_CA ,ug m-3 ,PM1_CA[3] !PM1_NH4 ,ug m-3 ,PM1_NH4[3] !PM1_NO3 ,ug m-3 ,PM1_NO3[3] !PM1_SOIL ,ug m-3 ,PM1_SOIL[3] !PM1_UNSPEC1 ,ug m-3 ,PM1_UNSP1[3] !PM1_UNSPCRS ,ug m-3 ,PM1_UNSPCRS[3] !! PM2.5 species computed using modeled size distribution PM25_HP ,ug m-3 ,PM25_HP[3] PM25_CL ,ug m-3 ,PM25_CL[3] PM25_EC ,ug m-3 ,PM25_EC[3] PM25_NA ,ug m-3 ,PM25_NA[3] PM25_MG ,ug m-3 ,PM25_MG[3] PM25_K ,ug m-3 ,PM25_K[3] PM25_CA ,ug m-3 ,PM25_CA[3] PM25_NH4 ,ug m-3 ,PM25_NH4[3] PM25_NO3 ,ug m-3 ,PM25_NO3[3] PM25_OC ,ugC m-3 ,PM25_OC[3] PM25_OM ,ug m-3 ,PM25_OA[3] PM25_SOIL ,ug m-3 ,PM25_SOIL[3] PM25_SO4 ,ug m-3 ,PM25_SO4[3] PM25_TOT ,ug m-3 ,PM25[3] PM25_UNSPEC1 ,ug m-3 ,PM25_UNSP1[3] PM25_UNSPCRS ,ug m-3 ,PM25_UNSPCRS[3] !! PM10.0 and Coarse-Sized Species PM10 ,ug m-3 ,PM10[3] PMC_CL ,ug m-3 ,PM25TO10_CL[3] PMC_NA ,ug m-3 ,PM25TO10_NA[3] PMC_NH4 ,ug m-3 ,PM25TO10_NH4[3] PMC_NO3 ,ug m-3 ,PM25TO10_NO3[3] PMC_SO4 ,ug m-3 ,PM25TO10_SO4[3] PMC_TOT ,ug m-3 ,PM25TO10[3] !! FRM PM Equivalent Calculation PMIJ_FRM ,ug m-3 ,PMF_FRM[3] PM25_FRM ,ug m-3 ,PM25_FRM[3] ================================================ FILE: CCTM/src/MECHS/racm2_ae6_aq/mech_racm2_ae6_aq.def ================================================ !! ********************************************************************** !! FILE: RACM2.5M4.mch - update MACR scheme with geos-chem !! DATE: Sept 4, 2012 - update MVK + O3 rxn !! VERSION: Final Frozen Version - all updates from reviewers !! ID: RACM Version 2.5M1 - updates from IUPAC JAN 2008 !! LAST UPDATE: Sept 4, 2012 !! -------------------------------------------------------------------- !! Based on REGIONAL ATMOSPHERIC CHEMISTRY MECHANISM (RACM) Version 1.3 !! Reference: W.R. Stockwell, F. Kirchner, M. Kuhn, and S. Seefeld, "A !! New Mechanism for Regional Atmospheric Chemistry Modeling", J. of !! Geophys. Res., 1997. !! -------------------------------------------------------------------- !! FOR MORE INFORMATION REGARDING THIS MECHANISM CONTACT: !! Wendy S. Goliff !! CE-CERT !! UC Riverside !! 1084 Columbia Ave !! Riverside, CA 92507 !! E-MAIL: wendyg@cert.ucr.edu !! Telephone: (951) 781-5665 !! FAX: !! OR !! William R. Stockwell !! Department of Chemistry, Room 120 !! Howard University !! 525 College Street, NW !! Washington DC 20059 !! E-MAIL: William.R.Stockwell@gmail.com !! Telephone: (202) 806-6913 !! FAX: (202) 806-5442 ! ********************************************************************** ! The RACM2 mechanism is based upon the earlier Regional Atmospheric ! Chemistry Mechanism (RACM) mechanism. It is intended to be valid for ! conditions ranging from remote to polluted and from the Earth's ! surface through the upper troposphere. The RACM2 mechanism includes ! 356 reactions and 117 total species: 17 stable inorganic species, 4 ! inorganic intermediates, 54 stable organic species (4 of these are ! primarily of biogenic origin) and 42 organic intermediates. ! ********************************************************************** ! ********************************************************************** ! Reformatted by Golam Sarwar in September 2012 for making it compatible with CMAQ ! Following species have been removed from the product list since these are used as constants in CMAQ - CH4, H2, O2 ! Following species have been removed from the product list since these are used as input to CMAQ - H2O ! Following species have been removed from the product list since since CMAQ does not track these species - CO2 ! ! ! Modified for incorporating secondary sulfate and SOA mechanism ! Added SULRXN - counter species for aerosol from SO2 + OH reaction ! Added ISOPRXN - counter species for aerosol from ISO + OH reaction ! Added TRPRXN - counter species for aerosol from API and LIM ! Added TOLRO2, XYLRO2, BENZRO2 - first generation products from TOL, XYL and BEN that further react with NO and NO2 to produce SVOC ! Added two reactions for TOLRO2, added TOLNRXN, TOLHRXN - counter species for aerosol from TOL ! Added two reactions for XYLRO2, added XYLNRXN, XYLHRXN - counter species for aerosol from XYL and XYO ! Added two reactions for BENZRO2 added BNZNRXN, BNZHRXN - counter species for aerosol from BEN ! Added three reactions for SESQ from sesquiterpene, added SESQRXN - counter species for aerosol from SESQ ! BEN is changed to BENZENE since SOA module is expecting BENZENE, not BEN ! ADDED ALK5 FOR SOA PRODUCTION from HC8 ! ! Rate constant for R051 has a special expression ! ! Revised the rate constant of R65 based on IUPAC2010 ! ! Wendy Goliff corrected type errors in R110 and R111 ! ! B.Hutzell 07/10/14 ! added inorganic heterogeneous reactions for N2O5 and NO2, oligomerization reactions for ! SOA species and aging reactions for primary organic carbon and non-carbon aerosol species ! B.Hutzell 11/3/14 ! -changed ALK5RXN yield in reaction from 1.0 to 0.47 based on SOA updates ! suggested by H.Pye's for cb05e51_ae6_aq ! -Modified by splitting oligomerization into two reactions: one for each ! Alkene SOA species. The new species were introduced in cb05e51_ae6_aq ! Golam Sarwar 12/02/14 ! -Added a simple halogen chemistry over sea-water ! Golam Sarwar 6/25/15 ! -Revised the simple halogen chemistry over sea-water using results of two-way CMAQ model and detailed halogen chemistry ! Golam Sarwar 6/29/15 ! - Updated SOA formation; sse CB05 changes done by Havala Pye for details ! - Added ISOPRXN counter to ISO + NO3 reaction to add SOA formation ! - Added SOAALK + OH reaction for SOA production and removed ALK5RXN from R075 ! - Added Napthlane reaction for SOA ! - Added heterogeneous uptake of IEPOX on acidic aerosol ! - Yield of XYLRO2 in R083 is reduced to 0.98 to prevent double counting of SOA production from XYM since napthlanene is also included in XYM ! - 0.98 is the emission ratio of (XYM-NAPTH)/XYM for July 2011 ! 05-25-17 B.Hutzell ! 1. updated the oligomerization reactions to be consistent with the ! saprc07tic_ae6_aq mechanism. ! 03-04-21 G.Sarwar ! updated ! 11-19-2021 G. Sarwar ! updated k for R40 (bug fix) and photolysis rate coefficients for HCHO (R010 and R011) !------------------------------------------------------------------------------ RACM2_AE6_AQ REACTIONS[CM] = O3 = O3P # 1.0/; O3 = O1D # 1.0/; H2O2 = 2.0*HO # 1.0/; NO2 = O3P + NO # 1.0/; NO3 = NO # 1.0/; NO3 = O3P + NO2 # 1.0/; HONO = HO + NO # 1.0/; HNO3 = HO + NO2 # 1.0/; HNO4 = 0.20*HO + 0.80*HO2 + 0.80*NO2 + 0.20*NO3 # 1.0/; HCHO = CO # 1.0/; HCHO = HO2 + HO2 + CO # 1.0/; ACD = HO2 + MO2 + CO # 1.0/; ALD = HO2 + ETHP + CO # 1.0/; ACT = MO2 + ACO3 # 1.0/; UALD = 1.22*HO2 + 0.784*ACO3 + 1.22*CO + 0.35*HCHO + 0.434*ALD + 0.216*KET # 1.0/; MEK = 0.50*MO2 + 0.50*ETHP + ACO3 # 1.0/; KET = ETHP + ACO3 # 1.0/; HKET = HO2 + ACO3 + HCHO # 1.0/; MACR = 0.34*HO + 0.66*HO2 + 0.67*ACO3 + 0.33*MACP + 0.34*XO2 + 0.67*CO + 0.67*HCHO # 1.0/; MVK = 0.3*MO2 + 0.3*MACP + 0.7*CO + 0.7*UALD # 1.0/; GLY = 2*CO # 1.0/; GLY = HCHO + CO # 1.0/; GLY = 2*HO2 + 2*CO # 1.0/; MGLY = HO2 + ACO3 + CO # 1.0/; DCB1 = 1.5*HO2 + 0.25*ACO3 + 0.2*XO2 + CO + 0.5*GLY + 0.5*MGLY # 1.0/; DCB2 = 1.5*HO2 + 0.25*ACO3 + 0.2*XO2 + CO + 0.5*GLY + 0.5*MGLY # 1.0/; BALD = CHO + HO2 + CO # 1.0/; OP1 = HO + HO2 + HCHO # 1.0/; OP2 = HO + HO2 + ALD # 1.0/; PAA = HO + MO2 # 1.0/; ONIT = HO2 + NO2 + 0.20*ALD + 0.80*KET # 1.0/; PAN = ACO3 + NO2 # 1.0/; PAN = MO2 + NO3 # 1.0/; O3 + HO = HO2 # 1.7E-12 @ 940.; O3 + HO2 = HO # 1.0E-14 @ 490.; O3 + NO = NO2 # 1.4E-12 @ 1310.; O3 + NO2 = NO3 # 1.4E-13 @ 2470.; O3P + O2 + M = O3 # 5.74E-34 ^ -2.6; O3P + O3 = # 8.0E-12 @ 2060.; O1D + O2 = O3P # 3.3E-11 @ -67.; O1D + N2 = O3P # 2.0E-11 @ -130.; O1D + H2O = 2.0*HO # 2.14E-10; H2 + HO = HO2 # 7.70E-12 @ 2100.; HO + HO2 = # 4.8E-11 @ -250.; HO2 + HO2 = H2O2 %3 # 2.2E-13 @ -600. & 1.9E-33 @ -980.; HO2 + HO2 + H2O = H2O2 %3 # 3.08E-34 @ -2800. & 2.59E-54 @ -3180.; H2O2 + HO = HO2 # 2.9E-12 @ 160.; NO + O3P = NO2 # 9.0E-32 ^ -1.5 & 3.0E-11 ^ 0.0 ; NO + HO = HONO # 7.0E-31 ^ -2.6 & 3.6E-11 ^ -0.1; NO + HO2 = NO2 + HO # 3.45E-12 @ -270.; NO + HO2 = HNO3 %3 # 6.095e-14^-1.0@-270.0& 6.857e-34^1.0@-270.0& -5.968e-14@-270.0; NO + NO + O2 = 2.0*NO2 # 3.3E-39 @ -530.; HONO + HO = NO2 # 2.5E-12 @ -260.; NO2 + O3P = NO # 5.5E-12 @ -188.; NO2 + O3P = NO3 # 2.5E-31 ^ -1.8 & 2.2E-11 ^ -0.7; NO2 + HO = HNO3 # 1.51E-30 ^ -3.0 & 2.58E-11 ^ 0.0; HNO3 + HO = NO3 %2 # 2.4E-14 @ -460 & 2.7E-17 @ -2199 & 6.5E-34 @ -1335; NO3 + HO = HO2 + NO2 # 2.0E-11; NO3 + HO2 = 0.7*HO + 0.7*NO2 + 0.3*HNO3 # 4.0E-12; NO3 + NO = 2.0*NO2 # 1.8E-11 @ -110.; NO3 + NO2 = NO + NO2 # 4.5E-14 @ 1260.; NO3 + NO3 = 2.0*NO2 # 8.5E-13 @ 2450.; NO3 + NO2 = N2O5 # 2.0E-30 ^ -4.4 & 1.4E-12 ^ -0.7; N2O5 = NO2 + NO3 # 2.70E-27 @ -11000.0 *E; N2O5 + H2O = 2.0*HNO3 # 1.0E-22; NO2 + HO2 = HNO4 # 2.0E-31 ^ -3.4 & 2.9E-12 ^ -1.1; HNO4 = HO2 + NO2 # 2.10E-27 @ -10900.0 *E; HNO4 + HO = NO2 # 1.3E-12 @ -380.; SO2 + HO = HO2 + SULF + SULRXN # 3.3E-31 ^ -4.3 & 1.6E-12 ^ 0.0; CO + HO = HO2 %3 # 1.44E-13 @ 0.0 & 2.88E-33 @ 0.0; CH4 + HO = MO2 # 1.85E-12 @ 1690.; ETH + HO = ETHP # 6.90E-12 @ 1000.; HC3 + HO = HC3P # 7.68E-12 @ 370.; HC5 + HO = HC5P # 1.01E-11 @ 245.; HC8 + HO = 0.049*HO2 + 0.951*HC8P + 0.025*ALD + 0.024*HKET # 2.82E-11 @ 273.; ETE + HO = ETEP # 1.0E-28 ^ -4.5 & 8.8E-12 ^ -0.85; OLT + HO = OLTP # 5.72E-12 @ -500.; OLI + HO = OLIP # 1.33E-11 @ -500.; DIEN + HO = OLIP # 1.48E-11 @ -448.; ACE + HO = 0.650*HO + 0.350*HO2 + 0.350*CO + 0.650*GLY + 0.350*ORA1 # 5.5E-30 ^ 0.0 & 8.3E-13 ^ 2.0; BENZENE + HO = 0.648*HO2 + 0.352*BENP + 0.118*EPX + 0.530*PHEN + 1.0*BENZRO2 # 2.33E-12 @ 193.; TOL + HO = 0.177*HO2 + 0.763*TR2 + 0.060*TLP1 + 0.177*CSL + 1.0*TOLRO2 # 1.81E-12 @ -354.; XYM + HO = 0.177*HO2 + 0.763*XY2 + 0.060*XYL1 + 0.177*CSL + 0.98*XYLRO2 # 2.31E-11; XYP + HO = 0.177*HO2 + 0.763*XY2 + 0.060*XYL1 + 0.177*CSL + 1.0*XYLRO2 # 1.43E-11; XYO + HO = 0.177*HO2 + 0.763*XYO2 + 0.060*XYL1 + 0.177*CSL + 1.0*XYLRO2 # 1.36E-11; ISO + HO = ISOP + ISOPRXN # 2.70E-11 @ -390.; API + HO = APIP + TRPRXN # 1.21E-11 @ -440.; LIM + HO = LIMP + TRPRXN # 4.20E-11 @ -401.; HCHO + HO = HO2 + CO # 5.50E-12 @ -125.; ACD + HO = ACO3 # 4.70E-12 @ -345.; ALD + HO = RCO3 # 4.90E-12 @ -405.; ACT + HO = ACTP # 4.56E-14 ^ 3.65 @ 427; MEK + HO = MEKP # 1.5E-12 @ 90.; KET + HO = KETP # 2.8E-12 @ -10.; HKET + HO = HO2 + MGLY # 3.0E-12; MACR + HO = 0.57*MACP + 0.43*MCP # 8.00E-12 @ -380.; MVK + HO = MVKP # 2.60E-12 @ -610.; UALD + HO = 0.313*ACO3 + 0.687*UALP # 5.77E-12 @ -533.; GLY + HO = HO2 + 2.0*CO # 1.1E-11; MGLY + HO = ACO3 + CO # 9.26E-13 @ -830.; DCB1 + HO = 0.52*HO2 + 0.33*CO + 0.40*ALD + 0.78*KET + 0.10*GLY + 0.01*MGLY # 2.8E-11 @ -175.; DCB2 + HO = 0.52*HO2 + 0.33*CO + 0.13*MEK + 0.10*GLY + 0.01*MGLY + 0.78*OP2 # 2.8E-11 @ -175.; DCB3 + HO = 0.56*HO2 + 0.21*MACP + 0.11*CO + 0.27*GLY + 0.01*MGLY + 0.79*OP2 # 1.00E-11; BALD + HO = BALP # 5.32E-12 @ -243.; PHEN + HO = 0.73*HO2 + 0.20*ADDC + 0.07*CHO + 0.73*MCT # 6.75E-12 @ -405.; CSL + HO = 0.73*HO2 + 0.20*ADDC + 0.07*CHO + 0.73*MCT # 4.65E-11 @ 0.0; EPX + HO = HO2 + XO2 + CO + ALD # 2.8E-11 @ -175.; MCT + HO = MCTO # 2.05E-10 @ 0.0; MOH + HO = HO2 + HCHO # 2.85E-12 @ 345.; EOH + HO = HO2 + ACD # 3.0E-12 @ -20.; ROH + HO = HO2 + 0.719*ALD + 0.184*ACD # 2.6E-12 @ -200.; ETEG + HO = HO2 + ALD # 1.47E-11; OP1 + HO = 0.35*HO + 0.65*MO2 + 0.35*HCHO # 2.9E-12 @ -190.; OP2 + HO = 0.01*HO + 0.44*HC3P + 0.07*XO2 + 0.08*ALD + 0.41*KET # 3.40E-12 @ -190.0; ISHP + HO = HO + MACR + 0.904*IEPOX # 1.0E-10; MAHP + HO = MACP # 3.0E-11; ORA1 + HO = HO2 # 4.5E-13; ORA2 + HO = 0.64*MO2 + 0.36*ORAP # 4.0E-14 @ -850.; PAA + HO = 0.35*HO + 0.65*ACO3 + 0.35*XO2 + 0.35*HCHO # 2.93E-12 @ -190.; PAN + HO = XO2 + NO3 + HCHO # 4.0E-14; PPN + HO = XO2 + NO3 + HCHO # 4.0E-14; MPAN + HO = NO2 + HKET # 3.2E-11; ONIT + HO = HC3P + NO2 # 5.31E-12 @ 260.; NALD + HO = NO2 + XO2 + HKET # 5.6E-12 @ -270.; ISON + HO = NALD + 0.07*HKET + 0.07*HCHO # 1.3E-11; ETE + O3 = 0.08*HO + 0.15*HO2 + 0.43*CO + HCHO + 0.37*ORA1 # 9.14E-15 @ 2580.; OLT + O3 = 0.22*HO + 0.32*HO2 + 0.08*MO2 + 0.06*ETHP + 0.04*HC3P + 0.02*HC5P + 0.068*H2O2 + 0.43*CO + 0.02*ETH + 0.015*HC3 + 0.006*HC5 + 0.032*BENZENE + 0.56*HCHO + 0.01*ACD + 0.44*ALD + 0.03*ACT + 0.02*BALD + 0.06*MEK + 0.01*HKET + 0.03*ORA1 + 0.06*ORA2 # 4.33E-15 @ 1800.0; OLI + O3 = 0.46*HO + 0.07*HO2 + 0.32*MO2 + 0.07*ETHP + 0.04*HC3P + 0.09*ACO3 + 0.37*CO + 0.026*H2O2 + 0.01*ETH + 0.01*HC3 + 0.09*HCHO + 0.457*ACD + 0.73*ALD + 0.11*ACT + 0.017*KET + 0.044*HKET + 0.017*ORA2 # 4.40E-15 @ 845.0; DIEN + O3 = 0.09*O3P + 0.28*HO + 0.30*HO2 + 0.03*MO2 + 0.15*ACO3 + 0.02*KETP + 0.13*XO2 + 0.001*H2O2 + 0.36*CO + 0.35*OLT + 0.90*HCHO + 0.39*MACR + 0.15*ORA1 # 1.34E-14 @ 2283.0; ISO + O3 = 0.25*HO + 0.25*HO2 + 0.08*MO2 + 0.1*ACO3 + 0.1*MACP + 0.09*H2O2 + 0.14*CO + 0.58*HCHO + 0.461*MACR + 0.189*MVK + 0.28*ORA1 + 0.153*OLT # 7.86E-15 @ 1913.; API + O3 = 0.85*HO + 0.10*HO2 + 0.20*ETHP + 0.42*KETP + 0.02*H2O2 + 0.14*CO + 0.65*ALD + 0.53*KET + 1.0*TRPRXN # 5.0E-16 @ 530.; LIM + O3 = 0.85*HO + 0.10*HO2 + 0.16*ETHP + 0.42*KETP + 0.02*H2O2 + 0.14*CO + 0.46*OLT + 0.04*HCHO + 0.79*MACR + 0.01*ORA1 + 0.07*ORA2 + 1.0*TRPRXN # 2.95E-15 @ 783.; MACR + O3 = 0.19*HO + 0.14*HO2 + 0.10*ACO3 + 0.22*CO + 0.50*MGLY + 0.45*ORA1 # 1.36E-15 @ 2112.; MVK + O3 = 0.16*HO + 0.11*HO2 + 0.28*ACO3 + 0.01*XO2 + 0.56*CO + 0.10*HCHO + 0.54*MGLY + 0.07*ORA1 + 0.07*ORA2 + 0.10*ALD # 8.50E-16 @ 1520.; UALD + O3 = 0.100*HO + 0.072*HO2 + 0.008*MO2 + 0.002*ACO3 + 0.10*XO2 + 0.243*CO + 0.080*HCHO + 0.420*ACD + 0.028*KET + 0.491*GLY + 0.003*MGLY + 0.044*ORA1 # 1.66E-18; DCB1 + O3 = 0.05*HO + HO2 + 0.60*RCO3 + 0.60*XO2 + 1.50*CO + 0.05*HCHO + 0.05*GLY + 0.08*MGLY + 0.65*OP2 # 2.0E-16; DCB2 + O3 = 0.05*HO + HO2 + 0.60*RCO3 + 0.60*XO2 + 1.50*CO + 0.05*HCHO + 0.05*GLY + 0.08*MGLY + 0.70*DCB1 + 0.65*OP2 # 2.0E-16; DCB3 + O3 = 0.05*HO + HO2 + 1.50*CO + 0.48*GLY + 0.70*DCB1 + 0.25*ORA1 + 0.25*ORA2 + 0.11*PAA # 9.0E-17; EPX + O3 = 0.05*HO + 1.5*HO2 + 1.5*CO + 0.85*BALD + GLY # 5.0E-16; MCTO + O3 = MCTP # 2.86E-13; ETE + NO3 = 0.80*OLNN + 0.20*OLND # 4.392E-13^2.0@2282.0; OLT + NO3 = 0.43*OLNN + 0.57*OLND # 1.79E-13 @ 450.; OLI + NO3 = 0.11*OLNN + 0.89*OLND # 8.64E-13 @ -450.; DIEN + NO3 = 0.90*OLNN + 0.10*OLND + 0.90*MACR # 1.0E-13; ISO + NO3 = ISON + ISOPRXN # 3.03E-12 @ 446.; API + NO3 = 0.10*OLNN + 0.90*OLND + 1.0*TRPRXN # 1.19E-12 @ -490.; LIM + NO3 = 0.71*OLNN + 0.29*OLND + 1.0*TRPRXN # 1.22E-11; HCHO + NO3 = HO2 + CO + HNO3 # 2.0E-12 @ 2440.; ACD + NO3 = ACO3 + HNO3 # 1.4E-12 @ 1900.; ALD + NO3 = RCO3 + HNO3 # 3.76E-12 @ 1900.; MACR + NO3 = 0.68*HCHO + 0.32*MACP + 0.68*XO2 + 0.68*MGLY + 0.32*HNO3 + 0.68*NO2 # 3.40E-15; UALD + NO3 = HO2 + XO2 + 0.668*CO + 0.332*HCHO + 0.332*ALD + ONIT # 5.02E-13 @ 1076.; GLY + NO3 = HO2 + 2.0*CO + HNO3 # 2.90E-12 @ 1900.; MGLY + NO3 = ACO3 + CO + HNO3 # 3.76E-12 @ 1900.; PHEN + NO3 = 0.4*CHO + 0.1*ADDC + 0.5*ADCN + 0.5*HNO3 # 3.78E-12; CSL + NO3 = 0.4*CHO + 0.1*ADDC + 0.5*ADCN + 0.5*HNO3 # 1.06E-12; EPX + NO3 = 0.50*HO + 1.50*HO2 + 1.50*CO + GLY + 0.50*NO2 + 0.50*HNO3 # 2.87E-13 @ 1000.; MCT + NO3 = MCTO + HNO3 # 2.01E-10; MPAN + NO3 = MACP + NO2 # 2.2E-14 @ 500.; TR2 = 0.28*HO + 0.29*HO2 + 0.28*TOLP + 0.15*PER1 + 0.28*DCB2 + 0.01*CSL + 0.28*EPX # 1.0E+03; TOLP = 0.49*HO + 0.01*HO2 + 0.50*PER1 + 0.49*DCB2 + 0.01*CSL # 1.0E+03; XY2 = 0.158*HO + 0.308*HO2 + 0.250*RCO3 + 0.308*XYLP + 0.150*PER2 + 0.224*DCB2 + 0.010*CSL + 0.840*EPX # 1.00E+03; XYLP = 0.390*HO + 0.010*HO2 + 0.300*PER2 + 0.490*DCB2 + 0.010*CSL # 1.0E+03; XYO2 = 0.158*HO + 0.308*HO2 + 0.250*RCO3 + 0.150*PER2 + 0.308*XYOP + 0.224*DCB2 + 0.010*CSL + 0.840*EPX # 1.0E+03; XYOP = 0.390*HO + 0.010*HO2 + 0.500*PER2 + 0.490*DCB2 + 0.010*CSL # 1.0E+03; ACO3 + NO2 = PAN # 9.7E-29 ^ -5.6 & 9.3E-12 ^ -1.5; PAN = ACO3 + NO2 # 9.00E-29 @ -14000.0 *E; RCO3 + NO2 = PPN # 9.7E-29 ^ -5.6 & 9.3E-12 ^ -1.5; PPN = RCO3 + NO2 # 9.00E-29 @ -14000.0 *E; MACP + NO2 = MPAN # 2.80E-12 @ -181.; MPAN = MACP + NO2 # 1.60E+16 @ 13486.; MO2 + NO = HO2 + NO2 + HCHO # 2.80E-12 @ -300.; ETHP + NO = HO2 + NO2 + ACD # 2.6E-12 @ -365.; HC3P + NO = 0.660*HO2 + 0.131*MO2 + 0.048*ETHP + 0.089*XO2 + 0.935*NO2 + 0.504*ACD + 0.132*ALD + 0.165*ACT + 0.042*MEK + 0.065*ONIT # 4.0E-12; HC5P + NO = 0.200*HO2 + 0.051*MO2 + 0.231*ETHP + 0.235*XO2 + 0.864*NO2 + 0.018*HCHO + 0.045*ACD + 0.203*ALD + 0.033*MEK + 0.217*ACT + 0.033*KET + 0.272*HKET + 0.136*ONIT # 4.0E-12; HC8P + NO = 0.606*HO2 + 0.133*ETHP + 0.416*XO2 + 0.739*NO2 + 0.150*ALD + 0.642*KET + 0.261*ONIT # 4.00E-12; ETEP + NO = HO2 + NO2 + 1.6*HCHO + 0.2*ALD # 9.0E-12; OLTP + NO = 0.78*HO2 + 0.97*NO2 + 0.78*HCHO + 0.012*ACD + 0.44*ALD + 0.06*ACT + 0.13*MEK + 0.03*ONIT # 4.00E-12; OLIP + NO = 0.83*HO2 + 0.95*NO2 + 0.81*ACD + 0.68*ALD + 0.20*ACT + 0.09*KET + 0.02*HKET + 0.05*ONIT # 4.00E-12; BENP + NO = 0.918*HO2 + 0.918*NO2 + 0.459*DCB2 + 0.459*DCB3 + 0.918*GLY + 0.082*ONIT # 2.54E-12 @ -360.; TLP1 + NO = NO2 + BALD # 4.0E-12; TOLP + NO = 0.95*HO2 + 0.95*NO2 + 0.95*DCB2 + 0.05*ONIT # 2.7E-12 @ -360.; PER1 + NO = 0.50*HO2 + 0.95*NO2 + 0.50*BALD + 0.50*MGLY + 0.50*DCB1 + 0.05*ONIT # 2.70E-12 @ -360.; XYL1 + NO = NO2 + BALD # 4.0E-12; XYLP + NO = 0.95*HO2 + 0.95*NO2 + 0.95*DCB3 + 0.05*ONIT # 2.7E-12 @ -360.; PER2 + NO = 0.95*HO2 + 0.95*NO2 + 0.95*MGLY + 0.95*DCB1 + 1.05*DCB3 + 0.05*ONIT # 2.70E-12 @ -360.; XYOP + NO = 0.95*HO2 + 0.95*NO2 + 0.350*GLY + 0.600*MGLY + 0.700*DCB1 + 0.073*DCB2 + 0.177*DCB3 + 0.05*ONIT # 2.7E-12 @ -360.; ISOP + NO = 0.880*HO2 + 0.880*NO2 + 0.200*HCHO + 0.280*MACR + 0.440*MVK + 0.120*ISON + 0.021*GLY + 0.029*HKET + 0.027*ALD # 2.43E-12 @ -360.; APIP + NO = 0.82*HO2 + 0.82*NO2 + 0.23*HCHO + 0.43*ALD + 0.11*ACT + 0.44*KET + 0.07*ORA1 + 0.18*ONIT # 4.0E-12; LIMP + NO = 1.00*HO2 + 0.68*UALD + 0.43*HCHO + 0.07*ORA1 + 1.00*NO2 + 0.05*OLI # 4.0E-12; ACO3 + NO = MO2 + NO2 # 8.1E-12 @ -270.; RCO3 + NO = ETHP + NO2 # 8.1E-12 @ -270.; ACTP + NO = ACO3 + NO2 + HCHO # 2.9E-12 @ -300.; MEKP + NO = 0.67*HO2 + NO2 + 0.33*HCHO + 0.67*DCB1 # 4.0E-12; KETP + NO = 0.77*HO2 + 0.23*ACO3 + 0.16*XO2 + NO2 + 0.46*ALD + 0.54*MGLY # 4.0E-12; MACP + NO = 0.65*MO2 + 0.35*ACO3 + NO2 + 0.65*CO + 0.65*HCHO # 2.54E-12 @ -360.; MCP + NO = NO2 + 0.50*HO2 + 0.50*HCHO + HKET # 2.54E-12 @ -360.; MVKP + NO = 0.3*HO2 + 0.7*ACO3 + 0.7*XO2 + NO2 + 0.3*HCHO + 0.7*ALD + 0.3*MGLY # 2.54E-12 @ -360.; UALP + NO = HO2 + NO2 + 0.61*CO + 0.03*HCHO + 0.27*ALD + 0.18*GLY + 0.7*KET + 0.21*MGLY # 2.54E-12 @ -360.; BALP + NO = BAL1 + NO2 # 4.0E-12; BAL1 + NO = BAL2 + NO2 # 4.0E-12; ADDC + NO = HO2 + NO2 + 0.32*HKET + 0.68*GLY + 0.68*OP2 # 2.7E-12 @ -360.; MCTP + NO = MCTO + NO2 # 2.7E-12 @ -360.; ORAP + NO = NO2 + GLY + HO2 # 4.0E-12; OLNN + NO = NO2 + HO2 + ONIT # 4.0E-12; OLND + NO = 2.00*NO2 + 0.287*HCHO + 1.24*ALD + 0.464*KET # 4.0E-12; ADCN + NO = 2.0*NO2 + GLY + OP2 # 2.7E-12 @ -360.; XO2 + NO = NO2 # 4.0E-12; BAL2 + NO2 = ONIT # 2.0E-11; CHO + NO2 = ONIT # 2.0E-11; MCTO + NO2 = ONIT # 2.08E-12; MO2 + HO2 = OP1 # 4.1E-13 @ -750.; ETHP + HO2 = OP2 # 7.5E-13 @ -700.; HC3P + HO2 = OP2 # 1.66E-13 @ -1300.; HC5P + HO2 = OP2 # 1.66E-13 @ -1300.; HC8P + HO2 = OP2 # 1.66E-13 @ -1300.; ETEP + HO2 = OP2 # 1.90E-13 @ -1300.; OLTP + HO2 = OP2 # 1.66E-13 @ -1300.; OLIP + HO2 = OP2 # 1.66E-13 @ -1300.; BENP + HO2 = OP2 # 2.91E-13 @ -1300.; TLP1 + HO2 = OP2 # 3.75E-13 @ -980.; TOLP + HO2 = OP2 # 3.75E-13 @ -980.; PER1 + HO2 = OP2 # 3.75E-13 @ -980.; XYL1 + HO2 = OP2 # 3.75E-13 @ -980.; XYLP + HO2 = OP2 # 3.75E-13 @ -980.; PER2 + HO2 = OP2 # 3.75E-13 @ -980.; XYOP + HO2 = OP2 # 3.75E-13 @ -980.; ISOP + HO2 = ISHP # 2.05E-13 @ -1300.; APIP + HO2 = OP2 # 1.5E-11; LIMP + HO2 = OP2 # 1.5E-11; ACO3 + HO2 = 0.44*HO + 0.44*MO2 + 0.15*ORA2 + 0.41*PAA # 4.3E-13 @ -1040.; RCO3 + HO2 = 0.44*HO + 0.44*ETHP + 0.15*ORA2 + 0.41*PAA # 4.3E-13 @ -1040.; ACTP + HO2 = 0.150*HO + 0.150*ACO3 + 0.150*HCHO + 0.850*OP2 # 1.15E-13 @ -1300.; MEKP + HO2 = OP2 # 1.15E-13 @ -1300.; KETP + HO2 = OP2 # 1.15E-13 @ -1300.; MACP + HO2 = MAHP # 1.82E-13 @ -1300.; MCP + HO2 = MAHP # 1.82E-13 @ -1300.; MVKP + HO2 = OP2 # 2.91E-13 @ -1300.; UALP + HO2 = OP2 # 2.91E-13 @ -1300.; ADDC + HO2 = OP2 # 3.75E-13 @ -980.; CHO + HO2 = CSL # 1.00E-11; MCTP + HO2 = OP2 # 3.75E-13 @ -980.; ORAP + HO2 = OP2 # 1.15E-13 @ -1300.; OLNN + HO2 = ONIT # 1.66E-13 @ -1300.; OLND + HO2 = ONIT # 1.66E-13 @ -1300.; ADCN + HO2 = OP2 # 3.75E-13 @ -980.; XO2 + HO2 = OP2 # 1.66E-13 @ -1300.; MO2 + MO2 = 0.74*HO2 + 1.37*HCHO + 0.63*MOH # 9.5E-14 @ -390.; ETHP + MO2 = HO2 + 0.75*HCHO + 0.75*ACD + 0.250*MOH + 0.250*EOH # 1.18E-13 @ -158.; HC3P + MO2 = 0.894*HO2 + 0.080*MO2 + 0.026*ETHP + 0.026*XO2 + 0.827*HCHO + 0.198*ALD + 0.497*KET + 0.050*GLY + 0.250*MOH + 0.250*ROH # 9.46E-14 @ -431.; HC5P + MO2 = 0.842*HO2 + 0.018*MO2 + 0.140*ETHP + 0.191*XO2 + 0.777*HCHO + 0.251*ALD + 0.618*KET + 0.250*MOH + 0.250*ROH # 1.0E-13 @ -467.; HC8P + MO2 = 0.910*HO2 + 0.090*ETHP + 0.281*XO2 + 0.750*HCHO + 0.197*ALD + 0.652*KET + 0.250*MOH + 0.250*ROH # 4.34E-14 @ -633.; ETEP + MO2 = HO2 + 1.95*HCHO + 0.15*ALD + 0.250*MOH + 0.250*ETEG # 1.71E-13 @ -708.; OLTP + MO2 = HO2 + 1.50*HCHO + 0.705*ALD + 0.045*KET + 0.250*MOH + 0.250*ROH # 1.46E-13 @ -708.; OLIP + MO2 = HO2 + 0.750*HCHO + 1.28*ALD + 0.218*KET + 0.250*MOH + 0.250*ROH # 9.18E-14 @ -708.; BENP + MO2 = 1.60*HO2 + 0.459*DCB3 + HCHO + 0.459*DCB2 + 0.600*GLY # 3.56E-14 @ -708.; TLP1 + MO2 = HO2 + HCHO + BALD # 3.56E-14 @ -708.; TOLP + MO2 = 2.0*HO2 + HCHO + 0.271*GLY + DCB2 # 3.56E-14 @ -708.; PER1 + MO2 = 2.0*HO2 + HCHO + MGLY + DCB1 # 3.56E-14 @ -708.; XYL1 + MO2 = HO2 + HCHO + BALD # 3.56E-14 @ -708.; XYLP + MO2 = 2.0*HO2 + HCHO + DCB2 # 3.56E-14 @ -708.; PER2 + MO2 = 2.0*HO2 + HCHO + MGLY + DCB1 + 1.05*DCB3 # 3.56E-14 @ -708.; XYOP + MO2 = 2.0*HO2 + HCHO + 0.368*GLY + 0.632*MGLY + 0.737*DCB1 + 0.077*DCB2 + 0.186*DCB3 # 3.56E-14 @ -708.; ISOP + MO2 = HO2 + 1.31*HCHO + 0.159*MACR + 0.250*MVK + 0.250*MOH + 0.250*ROH + 0.023*ALD + 0.018*GLY + 0.016*HKET # 3.4E-14 @ -221.; APIP + MO2 = HO2 + 0.750*HCHO + 0.750*ALD + 0.750*KET + 0.250*MOH + 0.250*ROH # 3.56E-14 @ -708.; LIMP + MO2 = HO2 + 1.04*HCHO + 0.192*OLI + 0.308*MACR + 0.250*MOH + 0.250*ROH # 3.56E-14 @ -708.; ACO3 + MO2 = 0.9*HO2 + 0.9*MO2 + HCHO + 0.1*ORA2 # 2.0E-11 @ -500.; RCO3 + MO2 = 0.9*HO2 + 0.9*MO2 + HCHO + 0.1*ORA2 # 2.0E-11 @ -500.; ACTP + MO2 = 0.50*HO2 + 0.50*ACO3 + 1.50*HCHO + 0.25*MOH + 0.25*ROH + 0.125*ORA2 # 7.5E-13 @ -500.; MEKP + MO2 = 0.834*HO2 + HCHO + 0.334*DCB1 + 0.25*MOH + 0.25*ROH # 6.91E-13 @ -508.; KETP + MO2 = HO2 + 0.75*HCHO + 0.50*DCB1 + 0.25*MOH + 0.25*ROH # 6.91E-13 @ -508.; MACP + MO2 = 0.50*HO2 + 0.269*ACO3 + 0.500*CO + 1.66*HCHO + 0.067*ORA2 + 0.250*MO2 + 0.250*MOH + 0.250*ROH # 3.4E-14 @ -221.; MCP + MO2 = NO2 + HO2 + 1.50*HCHO + 0.50*HKET + 0.250*MOH + 0.250*ROH # 3.4E-14 @ -221.; MVKP + MO2 = HO2 + 1.16*ACO3 + 1.16*XO2 + 1.5*HCHO + 1.75*ALD + 0.500*MGLY + 0.250*MOH + 0.250*ROH + 0.292*ORA2 # 8.37E-14; UALP + MO2 = HO2 + 0.305*CO + 0.773*HCHO + 0.203*ALD + 0.525*KET + 0.135*GLY + 0.105*MGLY + 0.250*MOH + 0.250*ROH # 3.4E-14 @ -221.; BALP + MO2 = HO2 + BAL1 + HCHO # 3.56E-14 @ -708.; BAL1 + MO2 = HO2 + BAL2 + HCHO # 3.56E-14 @ -708.; ADDC + MO2 = 2.0*HO2 + HCHO + 0.32*HKET + 0.68*GLY + 0.68*OP2 # 3.56E-14 @ -708.; MCTP + MO2 = HO2 + MCTO + HCHO # 3.56E-14 @ -708.; ORAP + MO2 = HCHO + HO2 + GLY # 7.50E-13 @ -500.; OLNN + MO2 = 2.00*HO2 + HCHO + ONIT # 1.6E-13 @ -708.; OLND + MO2 = 0.500*HO2 + 0.500*NO2 + 0.965*HCHO + 0.930*ALD + 0.348*KET + 0.250*MOH + 0.250*ROH + 0.500*ONIT # 9.68E-14 @ -708.; ADCN + MO2 = HO2 + 0.7*NO2 + HCHO + 0.7*GLY + 0.7*OP2 + 0.3*ONIT # 3.56E-14; XO2 + MO2 = HO2 + HCHO # 5.99E-15 @ -1510.; ETHP + ACO3 = 0.500*HO2 + 0.5*MO2 + ACD + 0.5*ORA2 # 1.03E-12 @ -211.; HC3P + ACO3 = 0.394*HO2 + 0.580*MO2 + 0.026*ETHP + 0.026*XO2 + 0.130*HCHO + 0.273*ALD + 0.662*KET + 0.067*GLY + 0.500*ORA2 # 6.9E-13 @ -460.; HC5P + ACO3 = 0.342*HO2 + 0.518*MO2 + 0.140*ETHP + 0.191*XO2 + 0.042*HCHO + 0.381*ALD + 0.824*KET + 0.500*ORA2 # 5.59E-13 @ -522.; HC8P + ACO3 = 0.303*HO2 + 0.500*MO2 + 0.067*ETHP + 0.208*XO2 + 0.217*ALD + 0.642*KET + 0.495*ORA2 # 2.47E-13 @ -683.; ETEP + ACO3 = 0.5*HO2 + 0.5*MO2 + 1.6*HCHO + 0.2*ALD + 0.5*ORA2 # 9.48E-13 @ -765.; OLTP + ACO3 = 0.500*HO2 + 0.500*MO2 + HCHO + 0.940*ALD + 0.060*KET + 0.500*ORA2 # 8.11E-13 @ -765.; OLIP + ACO3 = 0.500*HO2 + 0.500*MO2 + 1.71*ALD + 0.290*KET + 0.500*ORA2 # 5.09E-13 @ -765.; BENP + ACO3 = 0.60*HO2 + MO2 + 0.459*DCB2 + 0.458*DCB3 + 0.600*GLY # 7.4E-13 @ -765.; TLP1 + ACO3 = MO2 + BALD # 7.4E-13 @ -765.; TOLP + ACO3 = HO2 + MO2 + DCB2 # 7.4E-13 @ -765.; PER1 + ACO3 = HO2 + MO2 + MGLY + DCB1 # 7.4E-13 @ -765.; XYL1 + ACO3 = MO2 + BALD # 7.4E-13 @ -765.; XYLP + ACO3 = HO2 + MO2 + DCB2 # 7.4E-13 @ -765.; PER2 + ACO3 = HO2 + MO2 + MGLY + DCB1 + 1.05*DCB3 # 7.4E-13 @ -765.; XYOP + ACO3 = HO2 + MO2 + 0.368*GLY + 0.632*MGLY + 0.737*DCB1 + 0.077*DCB2 + 0.186*DCB3 # 7.4E-13 @ -765.; ISOP + ACO3 = 0.5*HO2 + 0.5*MO2 + 1.048*HCHO + 0.219*MACR + 0.305*MVK + 0.5*ORA2 # 8.4E-14 @ -221.; APIP + ACO3 = 0.5*HO2 + 0.5*MO2 + ALD + KET + ORA2 # 7.4E-13 @ -765.; LIMP + ACO3 = 0.5*HO2 + 0.5*MO2 + 0.192*OLI + 0.385*HCHO + 0.308*MACR + 0.5*ORA2 # 7.4E-13 @ -765.; ACO3 + ACO3 = 2.0*MO2 # 2.5E-12 @ -500.; RCO3 + ACO3 = MO2 + ETHP # 2.5E-12 @ -500.; ACTP + ACO3 = 0.50*MO2 + 0.50*ACO3 + HCHO + 0.75*ORA2 # 7.51E-13 @ -565.; MEKP + ACO3 = 0.33*HO2 + 0.50*MO2 + 0.33*HCHO + 0.334*DCB1 + 0.50*ORA2 # 7.51E-13 @ -565.; KETP + ACO3 = 0.50*HO2 + 0.50*MO2 + 0.50*DCB1 + 0.50*ORA2 # 7.51E-13 @ -565.; MACP + ACO3 = 0.635*ORA2 + 0.50*MO2 + 0.269*ACO3 + 0.500*CO + HCHO # 8.4E-14 @ -221.; MCP + ACO3 = NO2 + 0.50*HO2 + HCHO + 0.5*HKET + 0.5*MO2 + 0.5*ORA2 # 8.4E-14 @ -221.; MVKP + ACO3 = 0.5*HO2 + 0.5*MO2 + 1.16*ACO3 + 1.16*XO2 + HCHO + 2.3*ALD + 0.5*MGLY + 1.083*ORA2 # 1.68E-12 @ -500.; UALP + ACO3 = 0.5*HO2 + 0.5*MO2 + 0.5*CO + 0.030*HCHO + 0.27*ALD + 0.7*KET + 0.18*GLY + 0.105*MGLY + 0.5*ORA2 # 1.68E-12 @ -500.; BALP + ACO3 = MO2 + BAL1 # 7.4E-13 @ -765.; BAL1 + ACO3 = MO2 + BAL2 # 7.4E-13 @ -765.; ADDC + ACO3 = 2.00*HO2 + MO2 + 0.32*HKET + 0.68*GLY + 0.68*OP2 # 7.4E-13 @ -708.; MCTP + ACO3 = HO2 + MO2 + MCTO # 7.4E-13 @ -708.; ORAP + ACO3 = MO2 + GLY # 7.51E-13 @ -565.; OLNN + ACO3 = HO2 + MO2 + ONIT # 8.85E-13 @ -765.; OLND + ACO3 = 0.500*MO2 + NO2 + 0.287*HCHO + 1.24*ALD + 0.464*KET + 0.500*ORA2 # 5.37E-13 @ -765.; ADCN + ACO3 = HO2 + MO2 + 0.7*NO2 + 0.7*GLY + 0.7*OP2 + 0.3*ONIT # 7.4E-13 @ -708.; XO2 + ACO3 = MO2 # 3.4E-14 @ -1560.; RCO3 + RCO3 = 2.0*ETHP # 2.50E-12 @ -500.0; MO2 + NO3 = HO2 + HCHO + NO2 # 1.20E-12; ETHP + NO3 = HO2 + NO2 + ACD # 1.2E-12; HC3P + NO3 = 0.254*HO2 + 0.140*MO2 + 0.092*XO2 + 0.503*ETHP + NO2 + 0.519*ACD + 0.147*ALD + 0.075*MEK + 0.095*ACT # 1.20E-12; HC5P + NO3 = 0.488*HO2 + 0.055*MO2 + 0.280*ETHP + 0.485*XO2 + NO2 + 0.024*HCHO + 0.241*ALD + 0.060*KET + 0.063*MEK + 0.247*ACT + 0.048*ACD + 0.275*HKET # 1.20E-12; HC8P + NO3 = 0.820*HO2 + 0.180*ETHP + 0.563*XO2 + NO2 + 0.203*ALD + 0.869*KET # 1.2E-12; ETEP + NO3 = HO2 + NO2 + 1.6*HCHO + 0.2*ALD # 1.2E-12; OLTP + NO3 = 0.47*ALD + 0.79*HCHO + 0.79*HO2 + NO2 + 0.18*MEK + 0.02*ACD + 0.09*ACT # 1.20E-12; OLIP + NO3 = 0.86*HO2 + 0.72*ALD + 0.11*KET + NO2 + 0.20*ACT + 0.85*ACD + 0.04*HKET # 1.20E-12; BENP + NO3 = HO2 + NO2 + 0.50*DCB2 + 0.50*DCB3 + GLY # 1.20E-12; TLP1 + NO3 = NO2 + BALD # 1.2E-12; TOLP + NO3 = HO2 + NO2 + DCB2 # 1.2E-12; PER1 + NO3 = 0.50*HO2 + NO2 + 0.50*MGLY + 0.50*DCB1 + 0.50*BALD # 1.2E-12; XYL1 + NO3 = NO2 + BALD # 1.2E-12; XYLP + NO3 = HO2 + NO2 + DCB3 # 1.2E-12; PER2 + NO3 = HO2 + NO2 + MGLY + DCB1 + 1.05*DCB3 # 1.2E-12; XYOP + NO3 = HO2 + NO2 + 0.368*GLY + 0.632*MGLY + 0.737*DCB1 + 0.077*DCB2 + 0.186*DCB3 # 1.2E-12; ISOP + NO3 = HO2 + NO2 + 0.75*HCHO + 0.318*MACR + 0.500*MVK + 0.024*GLY + 0.033*HKET + 0.031*ALD # 1.2E-12; APIP + NO3 = HO2 + NO2 + ALD + KET # 1.2E-12; LIMP + NO3 = HO2 + NO2 + 0.385*OLI + 0.385*HCHO + 0.615*MACR # 1.2E-12; ACO3 + NO3 = MO2 + NO2 # 4.0E-12; RCO3 + NO3 = ETHP + NO2 # 4.0E-12; ACTP + NO3 = ACO3 + NO2 + HCHO # 1.2E-12; MEKP + NO3 = 0.67*HO2 + NO2 + 0.33*HCHO + 0.67*DCB1 # 1.2E-12; KETP + NO3 = HO2 + NO2 + DCB1 # 1.2E-12; MACP + NO3 = HCHO + 0.538*ACO3 + CO + NO2 # 1.2E-12; MCP + NO3 = NO2 + HO2 + HCHO + HKET # 1.2E-12; MVKP + NO3 = 0.30*HO2 + 0.70*ACO3 + 0.70*XO2 + NO2 + 0.30*HCHO + 0.70*ALD + 0.30*MGLY # 2.5E-12; UALP + NO3 = HO2 + NO2 + 0.61*CO + 0.03*HCHO + 0.27*ALD + 0.7*KET + 0.18*GLY + 0.21*MGLY # 2.5E-12; BALP + NO3 = BAL1 + NO2 # 2.5E-12; BAL1 + NO3 = BAL2 + NO2 # 2.5E-12; ADDC + NO3 = HO2 + NO2 + 0.32*HKET + 0.68*GLY + 0.68*OP2 # 1.2E-12; MCTP + NO3 = NO2 + MCTO # 1.2E-12; ORAP + NO3 = NO2 + GLY + HO2 # 1.2E-12; OLNN + NO3 = HO2 + NO2 + ONIT # 1.2E-12; OLND + NO3 = 2.00*NO2 + 0.287*HCHO + 1.24*ALD + 0.464*KET # 1.2E-12; ADCN + NO3 = 2.0*NO2 + GLY + OP2 # 1.2E-12; OLNN + OLNN = HO2 + 2.00*ONIT # 7.0E-14 @ -1000.; OLNN + OLND = 0.500*HO2 + 0.500*NO2 + 0.202*HCHO + 0.640*ALD + 0.149*KET + 1.50*ONIT # 4.25E-14 @ -1000.; OLND + OLND = NO2 + 0.504*HCHO + 1.21*ALD + 0.285*KET + ONIT # 2.96E-14 @ -1000.; XO2 + NO3 = NO2 # 1.2E-12; XO2 + RCO3 = ETHP # 2.5E-12 @ -500.; XO2 + XO2 = # 7.13E-17 @ -2950.; ! ! SOA related reactions TOLRO2 + NO = NO + TOLNRXN # 2.70e-12@-360; TOLRO2 + HO2 = HO2 + TOLHRXN # 1.90e-13@-1300; XYLRO2 + NO = NO + XYLNRXN # 2.70e-12@-360; XYLRO2 + HO2 = HO2 + XYLHRXN # 1.90e-13@-1300; BENZRO2 + NO = NO + BNZNRXN # 2.70e-12@-360; BENZRO2 + HO2 = HO2 + BNZHRXN # 1.90e-13@-1300; SESQ + O3 = O3 + SESQRXN # 1.16E-14; SESQ + HO = HO + SESQRXN # 1.97E-10; SESQ + NO3 = NO3 + SESQRXN # 1.90E-11; NAPH + HO = HO + PAHRO2 # 2.31E-11; PAHRO2 + NO = NO + PAHNRXN # 2.70e-12@-360; PAHRO2 + HO2 = HO2 + PAHHRXN # 1.90e-13@-1300; SOAALK + HO = HO + 0.47*ALKRXN # 2.70e-12@-374; IEPOX + HO = HO # 5.78E-11@400; ! heteorogeneous reactions from hetchem and poaaging routines version 5.0.2 N2O5 = 2.0*HNO3 # 1.0~; NO2 = 0.5*HONO + 0.5*HNO3 # 1.0~; ! Simplified ozone loss from oceanic halogens excluding chlorine O3 = %H # 6.7006E-11@-10.7435 & 3.4153E-08@0.6713 & 2.0E-6; IEPOX = AISO3J # 1.0~; ! oligomerization reaction for secondary organic aerosols AXYL1J = 0.8571*AOLGAJ # 9.48816E-6; AXYL2J = 1.1429*AOLGAJ # 9.48816E-6; ATOL1J = 0.8571*AOLGAJ # 9.48816E-6; ATOL2J = 1.1429*AOLGAJ # 9.48816E-6; ABNZ1J = 0.7143*AOLGAJ # 9.48816E-6; ABNZ2J = 0.7143*AOLGAJ # 9.48816E-6; ATRP1J = 0.8*AOLGBJ # 9.48816E-6; ATRP2J = 0.9*AOLGBJ # 9.48816E-6; AISO1J = 0.50*AOLGBJ # 9.48816E-6; AISO2J = 0.50*AOLGBJ # 9.48816E-6; ASQTJ = 1.50*AOLGBJ # 9.48816E-6; APAH1J = 1.4286*AOLGAJ # 9.48816E-6; APAH2J = 1.4286*AOLGAJ # 9.48816E-6; AALK1J = 1.7143*AOLGAJ # 9.48816E-6; AALK2J = 1.7143*AOLGAJ # 9.48816E-6; !aging reactions for primary organic carbon APOCI + HO = 1.25*APNCOMI + APOCI + HO # 2.5E-12; APNCOMI + HO = HO # 1.0~; APOCJ + HO = 1.25*APNCOMJ + APOCJ + HO # 2.5E-12; APNCOMJ + HO = HO # 1.0~; ! Formation of Potential Combustion SOA (pcSOA) PCVOC + HO = HO + PCSOARXN # 1.25E-11; ! Aging with Func. and Frag. (Donahue et al. 2012) VLVPO1 + HO = HO + 0.4857 * VLVPO1 + 0.0062 * VSVPO1 + 0.0025 * VSVPO2 + 0.0026 * VSVPO3 + 0.0023 * VIVPO1 + 0.2944 * VLVOO1 + 0.2021 * VLVOO2 + 0.0019 * VSVOO2 + 0.0023 * VSVOO3 #4.0e-11; VSVPO1 + HO = HO + 0.3003 * VLVPO1 + 0.2862 * VSVPO1 + 0.0041 * VSVPO2 + 0.0035 * VSVPO3 + 0.2239 * VLVOO1 + 0.1820 * VLVOO2 #4.0e-11; VSVPO2 + HO = HO + 0.3856 * VLVPO1 + 0.0950 * VSVPO1 + 0.1373 * VSVPO2 + 0.0005 * VSVPO3 + 0.2051 * VLVOO1 + 0.1764 * VLVOO2 #4.0e-11; VSVPO3 + HO = HO + 0.2181 * VLVPO1 + 0.3063 * VSVPO1 + 0.0153 * VSVPO2 + 0.1043 * VSVPO3 + 0.1893 * VLVOO1 + 0.1668 * VLVOO2 #4.0e-11; VIVPO1 + HO = HO + 0.2412 * VLVPO1 + 0.2089 * VSVPO1 + 0.3000 * VSVPO2 + 0.2028 * VLVOO1 + 0.0471 * VLVOO2 #4.0e-11; VLVOO1 + HO = HO + 0.6664 * VLVOO1 + 0.0143 * VLVOO2 + 0.0123 * VSVOO1 + 0.1239 * VSVOO2 + 0.1831 * VSVOO3 #4.0e-11; VLVOO2 + HO = HO + 0.2858 * VLVOO1 + 0.3931 * VLVOO2 + 0.0139 * VSVOO1 + 0.1027 * VSVOO2 + 0.2045 * VSVOO3 #4.0e-11; VSVOO1 + HO = HO + 0.3303 * VLVOO1 + 0.2272 * VLVOO2 + 0.2607 * VSVOO1 + 0.0702 * VSVOO2 + 0.1116 * VSVOO3 #4.0e-11; VSVOO2 + HO = HO + 0.3444 * VLVOO1 + 0.2749 * VLVOO2 + 0.0491 * VSVOO1 + 0.2577 * VSVOO2 + 0.0739 * VSVOO3 #4.0e-11; VSVOO3 + HO = HO + 0.3886 * VLVOO1 + 0.2421 * VLVOO2 + 0.0640 * VSVOO1 + 0.0385 * VSVOO2 + 0.2667 * VSVOO3 #4.0e-11; END MECH CONSTANTS ATM_AIR = 1.0E+06 ATM_H2 = 0.56 ATM_N2 = 0.7808E+06 ATM_O2 = 0.2095E+06 ATM_CH4 = 1.85 END CONSTANTS ================================================ FILE: CCTM/src/MECHS/racm2_ae6_aq/pa_racm2_ae6_aq.ctl ================================================ ! for racm2_ae6_aq ! !======================================================================= ! IPR_OUTPUTS !======================================================================= IPR_OUTPUT O3 = CHEM+DDEP+CLDS+AERO+TRNM; IPR_OUTPUT HNO3 = CHEM+DDEP+CLDS+AERO; IPR_OUTPUT PAN = CHEM+DDEP+CLDS+AERO+TRNM; IPR_OUTPUT N2O5 = CHEM+DDEP+CLDS+AERO; DEFINE FAMILY EC = AECI + AECJ; IPR_OUTPUT EC = COAG + EMIS + HADV; IPR_OUTPUT ASO4J = COND + COAG + EMIS + CHEM + VDIF + CLDS; IPR_OUTPUT ASO4I = NPF + COND + COAG + EMIS + CHEM + VDIF +CLDS; IPR_OUTPUT NUMATKN; !IPR_OUTPUT NUMACC; !IPR_OUTPUT NUMCOR; ! ENDPA; ================================================ FILE: CCTM/src/MECHS/saprc07tc_ae6_aq/AE_saprc07tc_ae6_aq.nml ================================================ &AE_nml AE_SPECIES_DATA = !SPECIES ,MOLWT ,Aitken ,Accum ,Coarse ,OPTICS ,IC ,ICFAC ,BC ,BC_FAC ,DRYDEP SURR ,FAC ,WET-SCAV SURR ,FAC ,AE2AQ SURR ,TRNS ,DDEP ,WDEP ,CONC 'ASO4' , 96.00 ,T ,T ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'SO4' , 1 ,'SO4' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ANH4' , 18.00 ,T ,T ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'NH4' , 1 ,'NH4' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ANO3' , 62.00 ,T ,T ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'NO3' , 1 ,'NO3' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ANA' , 23.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'NA' , 1 ,'NA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ACL' , 35.50 ,T ,T ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'CL' , 1 ,'CL' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AALK1' ,225.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AALK2' ,205.10 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AXYL1' ,174.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AXYL2' ,185.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AXYL3' ,218.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ATOL1' ,163.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ATOL2' ,175.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ATOL3' ,194.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ABNZ1' ,161.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ABNZ2' ,134.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ABNZ3' ,180.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'APAH1' ,195.60 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'APAH2' ,178.70 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'APAH3' ,212.20 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ATRP1' ,177.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ATRP2' ,198.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AISO1' ,132.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AISO2' ,133.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ASQT' ,273.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AORGC' ,177.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'AORGC' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AEC' , 12.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'EC' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AOTHR' ,200.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'PRI' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AFE' , 55.80 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'FE' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AAL' , 27.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'PRI' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ASI' , 28.10 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'PRI' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ATI' , 47.90 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'PRI' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ACA' , 40.10 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'CA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AMG' , 24.30 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'MG' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AK' , 39.10 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'K' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AMN' , 54.90 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'MN' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ACORS' ,100.00 ,F ,F ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'ANTH' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ASOIL' ,100.00 ,F ,F ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'SOIL' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'NUM' , 1.00 ,T ,T ,T ,'' ,'' ,-1 ,'' ,-1 ,'VNUM' , 1 ,'NUM' , 1 ,'NUM' ,'Yes' ,'' ,'' ,'Yes', 'SRF' , 1.00 ,T ,T ,T ,'' ,'' ,-1 ,'' ,-1 ,'VSRF' , 1 ,'SRF' , 1 ,'SRF' ,'Yes' ,'' ,'' ,'Yes', 'AORGH2O' , 18.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'H2O' , 1 ,'H2O' ,'Yes' ,'' ,'' ,'Yes', 'AH2O' , 18.00 ,T ,T ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'H2O' , 1 ,'H2O' ,'Yes' ,'' ,'' ,'Yes', 'AH3OP' , 19.00 ,T ,T ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'' ,-1 ,'' ,'Yes' ,'' ,'' ,'Yes', 'ASEACAT' , 23.75 ,F ,F ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'SEAS' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AISO3' ,168.20 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AOLGA' ,206.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AOLGB' ,248.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'APOC' ,220.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'APNCOM' ,220.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'APCSO' ,170.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ALVPO1' ,218.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ASVPO1' ,230.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ASVPO2' ,241.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ASVPO3' ,253.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AIVPO1' ,266.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ALVOO1' ,136.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ALVOO2' ,136.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ASVOO1' ,135.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ASVOO2' ,135.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ASVOO3' ,134.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', / ================================================ FILE: CCTM/src/MECHS/saprc07tc_ae6_aq/CMAQ_Control_DESID_saprc07tc_ae6_aq.nml ================================================ !------------------------------------------------------------------------------! ! Emission Control Interface ! ! for the ! ! Detailed Emissions Scaling, Isolation, and Diagnostics (DESID) Module, ! ! part of the ! ! Community Multiscale Air Quality (CMAQ) Model ! ! developed and maintained by the ! ! Center for Environmental Measurement and Modeling (CEMM), ! ! Office of Research and Development (ORD) ! ! U.S. Environmental Protection Agency (USEPA) ! ! ! ! This namelist is consistent with CMAQv5.4 (Release AUGUST 2022) ! ! ! ! See CMAQ User's Guide Appendix B (https://github.com/USEPA/CMAQ/blob/main/ ! ! DOCS/Users_Guide/Appendix/CMAQ_UG_appendixB_emissions_control.md) ! ! and Murphy et al., Geoscientific Model Development, 14, 3407-3420, ! ! https://doi.org/10.5194/gmd-14-3407-2021, 2021. ! !------------------------------------------------------------------------------! !------------------------------------------------------------------------------! ! Emissions Scaling Rule Specification Component ! ! Each rule is presented as a row of inputs. The syntax of the ! ! emissions scaling rules is the following: ! ! EM_INSTR(I) = 'Region Label', 'Stream Label', 'Emission-Species', ! ! 'CMAQ-Species', 'Phase/Mode', 'Scale Factor', 'Basis', ! ! 'Operation' ! ! ! ! See the User's Guide for detailed definitions of each field. ! ! ! ! You may confirm the effect of the (default and custom) rules below by ! ! inspecting the processor-dependent log files ("CTM_LOG_XXX...") ! ! ! ! Note: If no rules are provided for a species, then there is no emission ! ! of that species. ! !------------------------------------------------------------------------------! &Desid_ScalingVars Desid_Max_Rules = 2000 / &Desid_Scaling Desid_Rules_nml = ! Region | Stream Label |Emission | CMAQ- |Phase/|Scale |Basis |Op ! Label | |Species | Species |Mode |Factor| | ! Gases 'EVERYWHERE', 'ALL' ,'NO2' ,'NO2' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'NO' ,'NO' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'HONO' ,'HONO' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'CO' ,'CO' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'SO2' ,'SO2' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'NH3' ,'NH3' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'HCHO' ,'HCHO' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'MEOH' ,'MEOH' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'AACD' ,'CCOOH' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'CCOOH' ,'CCOOH' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PACD' ,'RCOOH' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'RNO3' ,'RNO3' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'ACET' ,'ACETONE' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'ACETONE' ,'ACETONE' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'CRES' ,'CRES' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'CCHO' ,'CCHO' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'RCHO' ,'RCHO' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'MEK' ,'MEK' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'FACD' ,'HCOOH' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'HCOOH' ,'HCOOH' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PRD2' ,'PRD2' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'MGLY' ,'MGLY' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'IPRD' ,'IPRD' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'GLY' ,'GLY' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'BACL' ,'BACL' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'BALD' ,'BALD' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'MACR' ,'MACR' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'MVK' ,'MVK' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'ACRO' ,'ACROLEIN' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'ACROLEIN' ,'ACROLEIN' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'ETHE' ,'ETHENE' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'ETHENE' ,'ETHENE' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PRPE' ,'PROPENE' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PROPENE' ,'PROPENE' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'BDE13' ,'BUTADIENE13' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'ISOP' ,'ISOPRENE' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'ISOPRENE' ,'ISOPRENE' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'APIN' ,'APIN' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'ACYE' ,'ACETYLENE' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'BENZ' ,'BENZENE' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'TOLU' ,'TOLUENE' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'MXYL' ,'MXYL' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'OXYL' ,'OXYL' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PXYL' ,'PXYL' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'B124' ,'TMBENZ124' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'ETOH' ,'ETOH' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'ALK1' ,'ALK1' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'ALK2' ,'ALK2' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'ALK3' ,'ALK3' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'ALK4' ,'ALK4' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'ALK5' ,'ALK5' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'SOAALK' ,'SOAALK' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'OLE1' ,'OLE1' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'OLE2' ,'OLE2' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'ARO1' ,'ARO1' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'ARO2MN' ,'ARO2MN' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'NAPHTHALENE','NAPHTHAL' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'TERP' ,'TERP' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'SESQ' ,'SESQ' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'CL2' ,'CL2' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'HCL' ,'HCL' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'HCHO' ,'HCHO_PRIMARY','GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'CCHO' ,'CCHO_PRIMARY','GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'ACRO' ,'ACRO_PRIMARY','GAS' ,1. ,'UNIT','a', ! Fine-Mode Aerosols 'EVERYWHERE', 'ALL' ,'SULF' ,'ASO4' ,'FINE' ,1. ,'MASS','a', 'EVERYWHERE', 'ALL' ,'PSO4' ,'ASO4' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PNH4' ,'ANH4' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PNO3' ,'ANO3' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PCL' ,'ACL' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PNA' ,'ANA' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PEC' ,'AEC' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMOTHR' ,'AOTHR' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PFE' ,'AFE' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PAL' ,'AAL' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PSI' ,'ASI' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PTI' ,'ATI' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PCA' ,'ACA' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMG' ,'AMG' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PK' ,'AK' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMN' ,'AMN' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PH2O' ,'AH2O' ,'FINE' ,1. ,'UNIT','a', ! Coarse-Mode Inorganic Ions Scaling 'EVERYWHERE', 'ALL' ,'PMC' ,'ACORS' ,'COARSE',0.99675,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMC' ,'ASO4' ,'COARSE',0.001 ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMC' ,'ANO3' ,'COARSE',0.00048,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMC' ,'ACL' ,'COARSE',0.00145,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMC' ,'AH2O' ,'COARSE',0.00032,'UNIT','a', ! Fine-Mode Primary Organic Aerosol Scaling ! --> Nonvolatile POA 'EVERYWHERE', 'ALL' ,'POC' ,'APOC' ,'FINE',0. ,'MASS','a', 'EVERYWHERE', 'ALL' ,'PNCOM' ,'APNCOM' ,'FINE',0. ,'MASS','a', ! --> Semivolatile POA (see CMAQ User's Guide Appendix B.2.2.1) 'EVERYWHERE', 'ALL' ,'POC' ,'VSVPO1' ,'GAS' ,0.045,'MASS','a', 'EVERYWHERE', 'ALL' ,'PNCOM' ,'VSVPO1' ,'GAS' ,0.045,'MASS','a', 'EVERYWHERE', 'ALL' ,'POC' ,'VSVPO2' ,'GAS' ,0.14 ,'MASS','a', 'EVERYWHERE', 'ALL' ,'PNCOM' ,'VSVPO2' ,'GAS' ,0.14 ,'MASS','a', 'EVERYWHERE', 'ALL' ,'POC' ,'VSVPO3' ,'GAS' ,0.18 ,'MASS','a', 'EVERYWHERE', 'ALL' ,'PNCOM' ,'VSVPO3' ,'GAS' ,0.18 ,'MASS','a', 'EVERYWHERE', 'ALL' ,'POC' ,'VIVPO1' ,'GAS' ,0.50 ,'MASS','a', 'EVERYWHERE', 'ALL' ,'PNCOM' ,'VIVPO1' ,'GAS' ,0.50 ,'MASS','a', 'EVERYWHERE', 'ALL' ,'POC' ,'ALVPO1' ,'FINE',0.09 ,'MASS','a', 'EVERYWHERE', 'ALL' ,'PNCOM' ,'ALVPO1' ,'FINE',0.09 ,'MASS','a', 'EVERYWHERE', 'ALL' ,'POC' ,'ASVPO1' ,'FINE',0.045,'MASS','a', 'EVERYWHERE', 'ALL' ,'PNCOM' ,'ASVPO1' ,'FINE',0.045,'MASS','a', ! pcSOA is a CMAQ species introduced to account for missing pathways for SOA ! formation from combustion sources. It accounts for IVOC oxidation as well as ! other phenomena (Murphy et al., ACP, 2017). It was parameterized based on data ! primarily from Los Angeles, where vehicle exhaust continues to dominate. 'EVERYWHERE', 'ALL' ,'POC' ,'PCVOC' ,'GAS' ,6.579,'MASS','a', 'EVERYWHERE', 'ALL' ,'PNCOM' ,'PCVOC' ,'GAS' ,6.579,'MASS','a', ! However, the added pcSOA is probably inappropriate for Fire sources, especially ! in its current configuration. This pathway should be zeroed out for all fire ! and wood-burning related sources. 'EVERYWHERE', 'PT_FIRES' ,'ALL' ,'PCVOC' ,'GAS' ,0.0 ,'MASS','o', 'EVERYWHERE', 'PT_RXFIRES' ,'ALL' ,'PCVOC' ,'GAS' ,0.0 ,'MASS','o', 'EVERYWHERE', 'PT_AGFIRES' ,'ALL' ,'PCVOC' ,'GAS' ,0.0 ,'MASS','o', 'EVERYWHERE', 'PT_OTHFIRES' ,'ALL' ,'PCVOC' ,'GAS' ,0.0 ,'MASS','o', 'EVERYWHERE', 'PT_FIRES_MXCA','ALL' ,'PCVOC' ,'GAS' ,0.0 ,'MASS','o', 'EVERYWHERE', 'GR_RES_FIRES' ,'ALL' ,'PCVOC' ,'GAS' ,0.0 ,'MASS','o', ! Wind-Blown Dust and Sea Spray Scaling ! Fine Components 'EVERYWHERE', 'ALL' ,'PMFINE_LVPO1','ALVPO1' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_LVOO1','ALVOO1' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_SO4' ,'ASO4' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_NO3' ,'ANO3' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_CL' ,'ACL' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_NH4' ,'ANH4' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_NA' ,'ANA' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_CA' ,'ACA' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_MG' ,'AMG' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_K' ,'AK' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_FE' ,'AFE' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_AL' ,'AAL' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_SI' ,'ASI' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_TI' ,'ATI' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_MN' ,'AMN' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_H2O' ,'AH2O' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_OTHR' ,'AOTHR' ,'FINE',1. ,'UNIT','a', ! Wind-Blown Dust and Sea Spray Scaling ! Coarse Components 'EVERYWHERE', 'ALL' ,'PMCOARSE_SO4','ASO4' ,'COARSE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMCOARSE_NO3','ANO3' ,'COARSE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMCOARSE_CL' ,'ACL' ,'COARSE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMCOARSE_H2O','AH2O' ,'COARSE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMCOARSE_SOIL','ASOIL' ,'COARSE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMCOARSE_SEACAT','ASEACAT' ,'COARSE',1. ,'UNIT','a', / ================================================ FILE: CCTM/src/MECHS/saprc07tc_ae6_aq/CSQY_DATA_saprc07tc_ae6_aq ================================================ Table for Mechanism = SAPRC07TC_AE6_AQ NPHOTAB = 38 !Individual rates listed below: NO2_06 NO3NO_06 NO3NO2_6 O3O1D_06 O3O3P_06 HONO_06 HNO3 HNO4_06 H2O2 PAN HCHOR_06 HCHOM_06 CCHO_R C2CHO ACET_06 MEK_06 COOH GLY_07R GLY_07M MGLY_06 BACL_07 BALD_06 AFG1 MACR_06 MVK_06 IC3ONO2 HOCCHO_IUPAC ACRO_09 PAA CL2 CLNO_06 CLONO CLNO2 CLONO2_1 CLONO2_2 HOCL_06 CLCCHO CLACET NTEMP = 6 ! I TEMP( I ) K 1 210.00 2 230.00 3 250.00 4 270.00 5 290.00 6 310.00 ! Wavelength and Photolysis Rate Parameters for CMAQ In-Line Photolysis ! calculation . The values are determined by averaging technique over the below ! number of wavelength bins. The technique employs an approach used by the FASTJX ! versions 6 and 7. !References: ! 1) Bian, H. S. and Prather, M. J.: Fast-J2: accurate simulation of stratospheric ! photolysis in global chemical models, J. Atmos. Chem., 41, 281-296 doi:10.1023/A:1014980619462, 2002. ! 2) Hsu, J. and Prather, M. J.: Stratospheric variability and tropospheric ozone, ! J. Geophys. Res., 114, D06102, doi:10.1029/2008JD010942, 2009. ! 3) Prather, M. J.: Fast-JX versions and utilities, available at: ! http://www.ess.uci.edu/researchgrp/prather/scholar_software/fast-jx ! (last accessed: 24 January 2014), 2014. ! Wave bands and Solar Flux ! N_INLINE_BAND = 7 ! I, START_WL_BIN(nm), EFFECT_WL_BIN_(nm), END_WL_BIN_(nm), photon_flux(cm-2*s-1), 1, 291.000, 294.590, 298.300, 5.8828E+14, 2, 298.300, 303.151, 307.500, 7.6354E+14, 3, 307.500, 310.007, 312.500, 5.0412E+14, 4, 312.500, 316.434, 320.300, 8.9628E+14, 5, 320.300, 333.076, 345.000, 3.8537E+15, 6, 345.000, 381.997, 412.500, 1.5457E+16, 7, 412.500, 607.723, 850.000, 2.1307E+17, !... CS = absorption cross sections averaged over UCI Solar Flux !... QY = quantum yields averaged over UCI Solar Flux !... EQY = eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model !PHOTAB QUANTITY TEMP WBIN( 1) WBIN( 2) WBIN( 3) WBIN( 4) WBIN( 5) WBIN( 6) WBIN( 7) NO2_06 CS 210.000 1.063921E-19 1.489476E-19 1.911589E-19 2.368089E-19 3.715161E-19 5.867486E-19 1.216142E-20 NO2_06 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 7.871307E-01 2.012091E-02 NO2_06 CS 230.000 1.065452E-19 1.488762E-19 1.907597E-19 2.355477E-19 3.679235E-19 5.852241E-19 1.213006E-20 NO2_06 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 7.871307E-01 2.012091E-02 NO2_06 CS 250.000 1.068513E-19 1.487335E-19 1.899615E-19 2.330251E-19 3.607383E-19 5.821752E-19 1.206733E-20 NO2_06 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 7.879280E-01 2.081692E-02 NO2_06 CS 270.000 1.071574E-19 1.485908E-19 1.891632E-19 2.305026E-19 3.535530E-19 5.791262E-19 1.200460E-20 NO2_06 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 7.959008E-01 2.777702E-02 NO2_06 CS 290.000 1.074636E-19 1.484480E-19 1.883650E-19 2.279800E-19 3.463678E-19 5.760772E-19 1.194188E-20 NO2_06 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 8.038736E-01 3.473711E-02 NO2_06 CS 310.000 1.075248E-19 1.484195E-19 1.882053E-19 2.274755E-19 3.449308E-19 5.754674E-19 1.192933E-20 NO2_06 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 8.070627E-01 3.752115E-02 NO3NO_06 CS 210.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 5.262113E-21 1.613590E-18 NO3NO_06 EQY 210.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 8.130509E-02 NO3NO_06 CS 230.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 4.993950E-21 1.531360E-18 NO3NO_06 EQY 230.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 8.048424E-02 NO3NO_06 CS 250.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 4.713711E-21 1.445427E-18 NO3NO_06 EQY 250.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 8.024673E-02 NO3NO_06 CS 270.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 4.425707E-21 1.357113E-18 NO3NO_06 EQY 270.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 8.000923E-02 NO3NO_06 CS 290.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 4.133394E-21 1.267477E-18 NO3NO_06 EQY 290.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 7.977173E-02 NO3NO_06 CS 310.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 3.839497E-21 1.177355E-18 NO3NO_06 EQY 310.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 7.967671E-02 NO3NO2_6 CS 210.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 5.262113E-21 1.613590E-18 NO3NO2_6 EQY 210.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.000000E+00 5.942736E-01 NO3NO2_6 CS 230.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 4.993950E-21 1.531360E-18 NO3NO2_6 EQY 230.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.000000E+00 6.050572E-01 NO3NO2_6 CS 250.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 4.713711E-21 1.445427E-18 NO3NO2_6 EQY 250.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.000000E+00 6.142171E-01 NO3NO2_6 CS 270.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 4.425707E-21 1.357113E-18 NO3NO2_6 EQY 270.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.000000E+00 6.233770E-01 NO3NO2_6 CS 290.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 4.133394E-21 1.267477E-18 NO3NO2_6 EQY 290.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.000000E+00 6.325368E-01 NO3NO2_6 CS 310.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 3.839497E-21 1.177355E-18 NO3NO2_6 EQY 310.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.000000E+00 6.362008E-01 O3O1D_06 CS 210.000 7.688467E-19 2.422055E-19 8.920470E-20 3.650450E-20 4.746825E-21 6.139220E-23 1.666851E-21 O3O1D_06 EQY 210.000 9.000000E-01 8.958209E-01 5.714505E-01 2.310225E-01 1.023619E-01 7.086942E-02 0.000000E+00 O3O1D_06 CS 230.000 7.803585E-19 2.474376E-19 9.195177E-20 3.806528E-20 5.075878E-21 6.139220E-23 1.666851E-21 O3O1D_06 EQY 230.000 9.000000E-01 8.958209E-01 5.714505E-01 2.310225E-01 1.023619E-01 7.086942E-02 0.000000E+00 O3O1D_06 CS 250.000 7.995448E-19 2.561579E-19 9.653022E-20 4.066658E-20 5.624299E-21 6.139220E-23 1.666851E-21 O3O1D_06 EQY 250.000 9.000000E-01 8.958209E-01 5.714505E-01 2.310225E-01 1.023619E-01 7.086942E-02 0.000000E+00 O3O1D_06 CS 270.000 8.187311E-19 2.648782E-19 1.011087E-19 4.326788E-20 6.172721E-21 6.139220E-23 1.666851E-21 O3O1D_06 EQY 270.000 9.000000E-01 8.958209E-01 5.714505E-01 2.310225E-01 1.023619E-01 7.086942E-02 0.000000E+00 O3O1D_06 CS 290.000 8.379175E-19 2.735984E-19 1.056871E-19 4.586918E-20 6.721143E-21 6.139220E-23 1.666851E-21 O3O1D_06 EQY 290.000 9.000000E-01 8.958209E-01 5.714505E-01 2.310225E-01 1.023619E-01 7.086942E-02 0.000000E+00 O3O1D_06 CS 310.000 8.407954E-19 2.749065E-19 1.063739E-19 4.625938E-20 6.803406E-21 6.139220E-23 1.666851E-21 O3O1D_06 EQY 310.000 9.000000E-01 8.958209E-01 5.714505E-01 2.310225E-01 1.023619E-01 7.086942E-02 0.000000E+00 O3O3P_06 CS 210.000 7.688467E-19 2.422055E-19 8.920470E-20 3.650450E-20 4.746825E-21 6.139220E-23 1.666851E-21 O3O3P_06 EQY 210.000 1.000000E-01 1.041791E-01 4.285495E-01 7.689775E-01 8.976381E-01 9.291306E-01 1.000000E+00 O3O3P_06 CS 230.000 7.803585E-19 2.474376E-19 9.195177E-20 3.806528E-20 5.075878E-21 6.139220E-23 1.666851E-21 O3O3P_06 EQY 230.000 1.000000E-01 1.041791E-01 4.285495E-01 7.689775E-01 8.976381E-01 9.291306E-01 1.000000E+00 O3O3P_06 CS 250.000 7.995448E-19 2.561579E-19 9.653022E-20 4.066658E-20 5.624299E-21 6.139220E-23 1.666851E-21 O3O3P_06 EQY 250.000 1.000000E-01 1.041791E-01 4.285495E-01 7.689775E-01 8.976381E-01 9.291306E-01 1.000000E+00 O3O3P_06 CS 270.000 8.187311E-19 2.648782E-19 1.011087E-19 4.326788E-20 6.172721E-21 6.139220E-23 1.666851E-21 O3O3P_06 EQY 270.000 1.000000E-01 1.041791E-01 4.285495E-01 7.689775E-01 8.976381E-01 9.291306E-01 1.000000E+00 O3O3P_06 CS 290.000 8.379175E-19 2.735984E-19 1.056871E-19 4.586918E-20 6.721143E-21 6.139220E-23 1.666851E-21 O3O3P_06 EQY 290.000 1.000000E-01 1.041791E-01 4.285495E-01 7.689775E-01 8.976381E-01 9.291306E-01 1.000000E+00 O3O3P_06 CS 310.000 8.407954E-19 2.749065E-19 1.063739E-19 4.625938E-20 6.803406E-21 6.139220E-23 1.666851E-21 O3O3P_06 EQY 310.000 1.000000E-01 1.041791E-01 4.285495E-01 7.689775E-01 8.976381E-01 9.291306E-01 1.000000E+00 HONO_06 CS 210.000 5.486960E-21 9.335561E-21 1.881716E-20 3.188688E-20 9.007190E-20 6.903974E-20 0.000000E+00 HONO_06 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HONO_06 CS 230.000 5.486960E-21 9.335561E-21 1.881716E-20 3.188688E-20 9.007190E-20 6.903974E-20 0.000000E+00 HONO_06 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HONO_06 CS 250.000 5.486960E-21 9.335561E-21 1.881716E-20 3.188688E-20 9.007190E-20 6.903974E-20 0.000000E+00 HONO_06 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HONO_06 CS 270.000 5.486960E-21 9.335561E-21 1.881716E-20 3.188688E-20 9.007190E-20 6.903974E-20 0.000000E+00 HONO_06 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HONO_06 CS 290.000 5.486960E-21 9.335561E-21 1.881716E-20 3.188688E-20 9.007190E-20 6.903974E-20 0.000000E+00 HONO_06 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HONO_06 CS 310.000 5.486960E-21 9.335561E-21 1.881716E-20 3.188688E-20 9.007190E-20 6.903974E-20 0.000000E+00 HONO_06 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HNO3 CS 210.000 3.467455E-21 1.445160E-21 5.805415E-22 2.242891E-22 2.067990E-23 3.702586E-25 0.000000E+00 HNO3 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HNO3 CS 230.000 3.652523E-21 1.547813E-21 6.324548E-22 2.505341E-22 2.500608E-23 3.741136E-25 0.000000E+00 HNO3 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HNO3 CS 250.000 3.847468E-21 1.657759E-21 6.890104E-22 2.798501E-22 3.023729E-23 3.780088E-25 0.000000E+00 HNO3 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HNO3 CS 270.000 4.052817E-21 1.775513E-21 7.506232E-22 3.125965E-22 3.656285E-23 3.819445E-25 0.000000E+00 HNO3 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HNO3 CS 290.000 4.269127E-21 1.901633E-21 8.177456E-22 3.491748E-22 4.421170E-23 3.859212E-25 0.000000E+00 HNO3 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HNO3 CS 310.000 4.496982E-21 2.036711E-21 8.908702E-22 3.900332E-22 5.346067E-23 3.899393E-25 0.000000E+00 HNO3 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HNO4_06 CS 210.000 2.304384E-20 9.096075E-21 3.982238E-21 1.967965E-21 3.989911E-22 2.966497E-24 0.000000E+00 HNO4_06 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.707375E-01 0.000000E+00 HNO4_06 CS 230.000 2.352148E-20 9.427218E-21 4.199442E-21 2.111267E-21 4.526804E-22 4.112208E-24 0.000000E+00 HNO4_06 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.707375E-01 0.000000E+00 HNO4_06 CS 250.000 2.420943E-20 9.904153E-21 4.512274E-21 2.317659E-21 5.300073E-22 5.762332E-24 0.000000E+00 HNO4_06 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.707375E-01 0.000000E+00 HNO4_06 CS 270.000 2.513335E-20 1.054469E-20 4.932417E-21 2.594850E-21 6.338596E-22 7.978499E-24 0.000000E+00 HNO4_06 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.707375E-01 0.000000E+00 HNO4_06 CS 290.000 2.630871E-20 1.135955E-20 5.466901E-21 2.947478E-21 7.659752E-22 1.079779E-23 0.000000E+00 HNO4_06 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.707375E-01 0.000000E+00 HNO4_06 CS 310.000 2.774130E-20 1.235273E-20 6.118354E-21 3.377277E-21 9.270035E-22 1.423407E-23 0.000000E+00 HNO4_06 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.707375E-01 0.000000E+00 H2O2 CS 210.000 8.485594E-21 5.095013E-21 3.367998E-21 2.272897E-21 8.877982E-22 3.606273E-23 0.000000E+00 H2O2 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 H2O2 CS 230.000 8.608173E-21 5.190514E-21 3.446407E-21 2.336332E-21 9.231624E-22 3.606273E-23 0.000000E+00 H2O2 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 H2O2 CS 250.000 8.773683E-21 5.319463E-21 3.552278E-21 2.421983E-21 9.709122E-22 3.606273E-23 0.000000E+00 H2O2 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 H2O2 CS 270.000 8.984030E-21 5.483344E-21 3.686830E-21 2.530838E-21 1.031598E-21 3.606273E-23 0.000000E+00 H2O2 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 H2O2 CS 290.000 9.239086E-21 5.682058E-21 3.849979E-21 2.662829E-21 1.105182E-21 3.606273E-23 0.000000E+00 H2O2 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 H2O2 CS 310.000 9.537050E-21 5.914203E-21 4.040577E-21 2.817027E-21 1.191145E-21 3.606273E-23 0.000000E+00 H2O2 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 PAN CS 210.000 1.757257E-21 6.605769E-22 3.009928E-22 1.557563E-22 3.361570E-23 1.523437E-24 0.000000E+00 PAN EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 PAN CS 230.000 2.059176E-21 7.858164E-22 3.614192E-22 1.889101E-22 4.220009E-23 1.539962E-24 0.000000E+00 PAN EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 PAN CS 250.000 2.412968E-21 9.348001E-22 4.339766E-22 2.291210E-22 5.297667E-23 1.556667E-24 0.000000E+00 PAN EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 PAN CS 270.000 2.827546E-21 1.112030E-21 5.211004E-22 2.778910E-22 6.650525E-23 1.573554E-24 0.000000E+00 PAN EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 PAN CS 290.000 3.313354E-21 1.322861E-21 6.257149E-22 3.370421E-22 8.348861E-23 1.590623E-24 0.000000E+00 PAN EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 PAN CS 310.000 3.882630E-21 1.573663E-21 7.513316E-22 4.087839E-22 1.048090E-22 1.607877E-24 0.000000E+00 PAN EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HCHOR_06 CS 210.000 3.183384E-20 3.299331E-20 1.538393E-20 3.249087E-20 1.802330E-20 7.437772E-22 0.000000E+00 HCHOR_06 EQY 210.000 6.832129E-01 7.261769E-01 7.198996E-01 6.861672E-01 3.074194E-01 0.000000E+00 0.000000E+00 HCHOR_06 CS 230.000 3.180369E-20 3.299110E-20 1.537530E-20 3.251407E-20 1.803360E-20 7.432948E-22 0.000000E+00 HCHOR_06 EQY 230.000 6.832129E-01 7.261769E-01 7.198996E-01 6.861672E-01 3.074194E-01 0.000000E+00 0.000000E+00 HCHOR_06 CS 250.000 3.177353E-20 3.298890E-20 1.536667E-20 3.253727E-20 1.804389E-20 7.428123E-22 0.000000E+00 HCHOR_06 EQY 250.000 6.832129E-01 7.261769E-01 7.198996E-01 6.861672E-01 3.074194E-01 0.000000E+00 0.000000E+00 HCHOR_06 CS 270.000 3.174337E-20 3.298670E-20 1.535803E-20 3.256047E-20 1.805418E-20 7.423299E-22 0.000000E+00 HCHOR_06 EQY 270.000 6.832129E-01 7.261769E-01 7.198996E-01 6.861672E-01 3.074194E-01 0.000000E+00 0.000000E+00 HCHOR_06 CS 290.000 3.171321E-20 3.298450E-20 1.534940E-20 3.258367E-20 1.806448E-20 7.418475E-22 0.000000E+00 HCHOR_06 EQY 290.000 6.832129E-01 7.261769E-01 7.198996E-01 6.861672E-01 3.074194E-01 0.000000E+00 0.000000E+00 HCHOR_06 CS 310.000 3.169813E-20 3.298339E-20 1.534508E-20 3.259527E-20 1.806962E-20 7.416062E-22 0.000000E+00 HCHOR_06 EQY 310.000 6.832129E-01 7.261769E-01 7.198996E-01 6.861672E-01 3.074194E-01 0.000000E+00 0.000000E+00 HCHOM_06 CS 210.000 3.183384E-20 3.299331E-20 1.538393E-20 3.249087E-20 1.802330E-20 7.437772E-22 0.000000E+00 HCHOM_06 EQY 210.000 2.982965E-01 2.727711E-01 2.802895E-01 3.142615E-01 5.277740E-01 2.118139E-01 0.000000E+00 HCHOM_06 CS 230.000 3.180369E-20 3.299110E-20 1.537530E-20 3.251407E-20 1.803360E-20 7.432948E-22 0.000000E+00 HCHOM_06 EQY 230.000 2.982965E-01 2.727711E-01 2.802895E-01 3.142615E-01 5.237901E-01 2.035690E-01 0.000000E+00 HCHOM_06 CS 250.000 3.177353E-20 3.298890E-20 1.536667E-20 3.253727E-20 1.804389E-20 7.428123E-22 0.000000E+00 HCHOM_06 EQY 250.000 2.982965E-01 2.727711E-01 2.802895E-01 3.142615E-01 5.155541E-01 1.885748E-01 0.000000E+00 HCHOM_06 CS 270.000 3.174337E-20 3.298670E-20 1.535803E-20 3.256047E-20 1.805418E-20 7.423299E-22 0.000000E+00 HCHOM_06 EQY 270.000 2.982965E-01 2.727711E-01 2.802895E-01 3.142615E-01 5.071009E-01 1.754809E-01 0.000000E+00 HCHOM_06 CS 290.000 3.171321E-20 3.298450E-20 1.534940E-20 3.258367E-20 1.806448E-20 7.418475E-22 0.000000E+00 HCHOM_06 EQY 290.000 2.982965E-01 2.727711E-01 2.802895E-01 3.142615E-01 4.984759E-01 1.639830E-01 0.000000E+00 HCHOM_06 CS 310.000 3.169813E-20 3.298339E-20 1.534508E-20 3.259527E-20 1.806962E-20 7.416062E-22 0.000000E+00 HCHOM_06 EQY 310.000 2.982965E-01 2.727711E-01 2.802895E-01 3.142615E-01 4.940919E-01 1.587278E-01 0.000000E+00 CCHO_R CS 210.000 4.432586E-20 3.717937E-20 2.933103E-20 2.104728E-20 3.707365E-21 0.000000E+00 0.000000E+00 CCHO_R EQY 210.000 4.849672E-01 3.934509E-01 2.877448E-01 1.584966E-01 4.676821E-02 0.000000E+00 0.000000E+00 CCHO_R CS 230.000 4.432586E-20 3.717937E-20 2.933103E-20 2.104728E-20 3.707365E-21 0.000000E+00 0.000000E+00 CCHO_R EQY 230.000 4.849672E-01 3.934509E-01 2.877448E-01 1.584966E-01 4.676821E-02 0.000000E+00 0.000000E+00 CCHO_R CS 250.000 4.432586E-20 3.717937E-20 2.933103E-20 2.104728E-20 3.707365E-21 0.000000E+00 0.000000E+00 CCHO_R EQY 250.000 4.849672E-01 3.934509E-01 2.877448E-01 1.584966E-01 4.676821E-02 0.000000E+00 0.000000E+00 CCHO_R CS 270.000 4.432586E-20 3.717937E-20 2.933103E-20 2.104728E-20 3.707365E-21 0.000000E+00 0.000000E+00 CCHO_R EQY 270.000 4.849672E-01 3.934509E-01 2.877448E-01 1.584966E-01 4.676821E-02 0.000000E+00 0.000000E+00 CCHO_R CS 290.000 4.432586E-20 3.717937E-20 2.933103E-20 2.104728E-20 3.707365E-21 0.000000E+00 0.000000E+00 CCHO_R EQY 290.000 4.849672E-01 3.934509E-01 2.877448E-01 1.584966E-01 4.676821E-02 0.000000E+00 0.000000E+00 CCHO_R CS 310.000 4.432586E-20 3.717937E-20 2.933103E-20 2.104728E-20 3.707365E-21 0.000000E+00 0.000000E+00 CCHO_R EQY 310.000 4.849672E-01 3.934509E-01 2.877448E-01 1.584966E-01 4.676821E-02 0.000000E+00 0.000000E+00 C2CHO CS 210.000 3.094719E-20 4.634689E-20 3.579653E-20 2.441742E-20 5.808274E-21 0.000000E+00 0.000000E+00 C2CHO EQY 210.000 7.737634E-01 6.423488E-01 3.555753E-01 1.949012E-01 5.686011E-02 0.000000E+00 0.000000E+00 C2CHO CS 230.000 3.094719E-20 4.634689E-20 3.579653E-20 2.441742E-20 5.808274E-21 0.000000E+00 0.000000E+00 C2CHO EQY 230.000 7.737634E-01 6.423488E-01 3.555753E-01 1.949012E-01 5.686011E-02 0.000000E+00 0.000000E+00 C2CHO CS 250.000 3.094719E-20 4.634689E-20 3.579653E-20 2.441742E-20 5.808274E-21 0.000000E+00 0.000000E+00 C2CHO EQY 250.000 7.737634E-01 6.423488E-01 3.555753E-01 1.949012E-01 5.686011E-02 0.000000E+00 0.000000E+00 C2CHO CS 270.000 3.094719E-20 4.634689E-20 3.579653E-20 2.441742E-20 5.808274E-21 0.000000E+00 0.000000E+00 C2CHO EQY 270.000 7.737634E-01 6.423488E-01 3.555753E-01 1.949012E-01 5.686011E-02 0.000000E+00 0.000000E+00 C2CHO CS 290.000 3.094719E-20 4.634689E-20 3.579653E-20 2.441742E-20 5.808274E-21 0.000000E+00 0.000000E+00 C2CHO EQY 290.000 7.737634E-01 6.423488E-01 3.555753E-01 1.949012E-01 5.686011E-02 0.000000E+00 0.000000E+00 C2CHO CS 310.000 3.094719E-20 4.634689E-20 3.579653E-20 2.441742E-20 5.808274E-21 0.000000E+00 0.000000E+00 C2CHO EQY 310.000 7.737634E-01 6.423488E-01 3.555753E-01 1.949012E-01 5.686011E-02 0.000000E+00 0.000000E+00 ACET_06 CS 210.000 3.093982E-20 1.932871E-20 1.074082E-20 5.401566E-21 4.431040E-22 8.028801E-25 0.000000E+00 ACET_06 EQY 210.000 3.078033E-01 9.119325E-02 1.255849E-02 1.979718E-03 4.580005E-05 2.815926E-03 0.000000E+00 ACET_06 CS 230.000 3.149499E-20 2.006286E-20 1.149978E-20 5.882838E-21 4.841855E-22 8.025005E-25 0.000000E+00 ACET_06 EQY 230.000 2.833035E-01 9.860657E-02 1.763791E-02 3.588362E-03 1.595251E-04 2.815926E-03 0.000000E+00 ACET_06 CS 250.000 3.221698E-20 2.085074E-20 1.224359E-20 6.367100E-21 5.569519E-22 8.040178E-25 0.000000E+00 ACET_06 EQY 250.000 2.809512E-01 1.160307E-01 2.647062E-02 6.960636E-03 6.743219E-04 2.815926E-03 0.000000E+00 ACET_06 CS 270.000 3.310749E-20 2.165984E-20 1.292394E-20 6.826211E-21 6.654463E-22 8.078511E-25 0.000000E+00 ACET_06 EQY 270.000 2.968808E-01 1.462965E-01 4.266421E-02 1.463851E-02 2.890122E-03 2.815926E-03 0.000000E+00 ACET_06 CS 290.000 3.416823E-20 2.245764E-20 1.349254E-20 7.232033E-21 8.137126E-22 8.144196E-25 0.000000E+00 ACET_06 EQY 290.000 3.304489E-01 1.933462E-01 7.158442E-02 3.118674E-02 1.028313E-02 2.815926E-03 0.000000E+00 ACET_06 CS 310.000 3.540091E-20 2.321163E-20 1.390108E-20 7.556429E-21 1.005795E-21 8.241424E-25 0.000000E+00 ACET_06 EQY 310.000 3.799048E-01 2.592952E-01 1.186578E-01 6.243775E-02 2.927807E-02 2.815926E-03 0.000000E+00 MEK_06 CS 210.000 4.166522E-20 2.686872E-20 1.573254E-20 7.723365E-21 8.066992E-22 1.609625E-25 0.000000E+00 MEK_06 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 MEK_06 CS 230.000 4.166522E-20 2.686872E-20 1.573254E-20 7.723365E-21 8.066992E-22 1.609625E-25 0.000000E+00 MEK_06 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 MEK_06 CS 250.000 4.166522E-20 2.686872E-20 1.573254E-20 7.723365E-21 8.066992E-22 1.609625E-25 0.000000E+00 MEK_06 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 MEK_06 CS 270.000 4.166522E-20 2.686872E-20 1.573254E-20 7.723365E-21 8.066992E-22 1.609625E-25 0.000000E+00 MEK_06 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 MEK_06 CS 290.000 4.166522E-20 2.686872E-20 1.573254E-20 7.723365E-21 8.066992E-22 1.609625E-25 0.000000E+00 MEK_06 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 MEK_06 CS 310.000 4.166522E-20 2.686872E-20 1.573254E-20 7.723365E-21 8.066992E-22 1.609625E-25 0.000000E+00 MEK_06 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 COOH CS 210.000 5.623467E-21 3.524633E-21 2.410330E-21 1.699588E-21 7.230005E-22 5.395084E-23 0.000000E+00 COOH EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 COOH CS 230.000 5.623467E-21 3.524633E-21 2.410330E-21 1.699588E-21 7.230005E-22 5.395084E-23 0.000000E+00 COOH EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 COOH CS 250.000 5.623467E-21 3.524633E-21 2.410330E-21 1.699588E-21 7.230005E-22 5.395084E-23 0.000000E+00 COOH EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 COOH CS 270.000 5.623467E-21 3.524633E-21 2.410330E-21 1.699588E-21 7.230005E-22 5.395084E-23 0.000000E+00 COOH EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 COOH CS 290.000 5.623467E-21 3.524633E-21 2.410330E-21 1.699588E-21 7.230005E-22 5.395084E-23 0.000000E+00 COOH EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 COOH CS 310.000 5.623467E-21 3.524633E-21 2.410330E-21 1.699588E-21 7.230005E-22 5.395084E-23 0.000000E+00 COOH EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 GLY_07R CS 210.000 3.792117E-20 3.572108E-20 3.194423E-20 2.574261E-20 1.106789E-20 2.757124E-20 1.054177E-20 GLY_07R EQY 210.000 3.322493E-01 3.432416E-01 3.692827E-01 4.243520E-01 5.564435E-01 1.128644E-01 1.290435E-02 GLY_07R CS 230.000 3.792117E-20 3.572108E-20 3.194423E-20 2.574261E-20 1.106789E-20 2.757124E-20 1.054177E-20 GLY_07R EQY 230.000 3.322493E-01 3.432416E-01 3.692827E-01 4.243520E-01 5.564435E-01 1.128644E-01 1.290435E-02 GLY_07R CS 250.000 3.792117E-20 3.572108E-20 3.194423E-20 2.574261E-20 1.106789E-20 2.757124E-20 1.054177E-20 GLY_07R EQY 250.000 3.322493E-01 3.432416E-01 3.692827E-01 4.243520E-01 5.564435E-01 1.128644E-01 1.290435E-02 GLY_07R CS 270.000 3.792117E-20 3.572108E-20 3.194423E-20 2.574261E-20 1.106789E-20 2.757124E-20 1.054177E-20 GLY_07R EQY 270.000 3.322493E-01 3.432416E-01 3.692827E-01 4.243520E-01 5.564435E-01 1.128644E-01 1.290435E-02 GLY_07R CS 290.000 3.792117E-20 3.572108E-20 3.194423E-20 2.574261E-20 1.106789E-20 2.757124E-20 1.054177E-20 GLY_07R EQY 290.000 3.322493E-01 3.432416E-01 3.692827E-01 4.243520E-01 5.564435E-01 1.128644E-01 1.290435E-02 GLY_07R CS 310.000 3.792117E-20 3.572108E-20 3.194423E-20 2.574261E-20 1.106789E-20 2.757124E-20 1.054177E-20 GLY_07R EQY 310.000 3.322493E-01 3.432416E-01 3.692827E-01 4.243520E-01 5.564435E-01 1.128644E-01 1.290435E-02 GLY_07M CS 210.000 3.792117E-20 3.572108E-20 3.194423E-20 2.574261E-20 1.106789E-20 2.757124E-20 1.054177E-20 GLY_07M EQY 210.000 6.677508E-01 6.567584E-01 6.307371E-01 5.757954E-01 4.436239E-01 1.921121E-02 4.356914E-04 GLY_07M CS 230.000 3.792117E-20 3.572108E-20 3.194423E-20 2.574261E-20 1.106789E-20 2.757124E-20 1.054177E-20 GLY_07M EQY 230.000 6.677508E-01 6.567584E-01 6.307371E-01 5.757954E-01 4.436239E-01 1.921121E-02 4.356914E-04 GLY_07M CS 250.000 3.792117E-20 3.572108E-20 3.194423E-20 2.574261E-20 1.106789E-20 2.757124E-20 1.054177E-20 GLY_07M EQY 250.000 6.677508E-01 6.567584E-01 6.307371E-01 5.757954E-01 4.436239E-01 1.921121E-02 4.356914E-04 GLY_07M CS 270.000 3.792117E-20 3.572108E-20 3.194423E-20 2.574261E-20 1.106789E-20 2.757124E-20 1.054177E-20 GLY_07M EQY 270.000 6.677508E-01 6.567584E-01 6.307371E-01 5.757954E-01 4.436239E-01 1.921121E-02 4.356914E-04 GLY_07M CS 290.000 3.792117E-20 3.572108E-20 3.194423E-20 2.574261E-20 1.106789E-20 2.757124E-20 1.054177E-20 GLY_07M EQY 290.000 6.677508E-01 6.567584E-01 6.307371E-01 5.757954E-01 4.436239E-01 1.921121E-02 4.356914E-04 GLY_07M CS 310.000 3.792117E-20 3.572108E-20 3.194423E-20 2.574261E-20 1.106789E-20 2.757124E-20 1.054177E-20 GLY_07M EQY 310.000 6.677508E-01 6.567584E-01 6.307371E-01 5.757954E-01 4.436239E-01 1.921121E-02 4.356914E-04 MGLY_06 CS 210.000 4.380391E-20 3.467071E-20 2.430916E-20 1.788232E-20 6.183676E-21 3.700269E-20 7.910759E-21 MGLY_06 EQY 210.000 9.568916E-01 9.293678E-01 8.972124E-01 8.583242E-01 7.397596E-01 1.441366E-01 4.043944E-02 MGLY_06 CS 230.000 4.380391E-20 3.467071E-20 2.430916E-20 1.788232E-20 6.183676E-21 3.700269E-20 7.910759E-21 MGLY_06 EQY 230.000 9.569005E-01 9.293821E-01 8.972324E-01 8.583509E-01 7.398077E-01 1.441526E-01 4.043944E-02 MGLY_06 CS 250.000 4.380391E-20 3.467071E-20 2.430916E-20 1.788232E-20 6.183676E-21 3.700269E-20 7.910759E-21 MGLY_06 EQY 250.000 9.569092E-01 9.293964E-01 8.972526E-01 8.583775E-01 7.398561E-01 1.441687E-01 4.043944E-02 MGLY_06 CS 270.000 4.380391E-20 3.467071E-20 2.430916E-20 1.788232E-20 6.183676E-21 3.700269E-20 7.910759E-21 MGLY_06 EQY 270.000 9.569181E-01 9.294107E-01 8.972727E-01 8.584042E-01 7.399043E-01 1.441847E-01 4.043944E-02 MGLY_06 CS 290.000 4.380391E-20 3.467071E-20 2.430916E-20 1.788232E-20 6.183676E-21 3.700269E-20 7.910759E-21 MGLY_06 EQY 290.000 9.569269E-01 9.294251E-01 8.972929E-01 8.584309E-01 7.399526E-01 1.442007E-01 4.043944E-02 MGLY_06 CS 310.000 4.380391E-20 3.467071E-20 2.430916E-20 1.788232E-20 6.183676E-21 3.700269E-20 7.910759E-21 MGLY_06 EQY 310.000 9.569357E-01 9.294394E-01 8.973130E-01 8.584574E-01 7.400008E-01 1.442167E-01 4.043944E-02 BACL_07 CS 210.000 2.658386E-20 1.613232E-20 9.254814E-21 6.071191E-21 4.661714E-21 3.201369E-20 4.709774E-21 BACL_07 EQY 210.000 9.897234E-01 9.822789E-01 9.734015E-01 9.617480E-01 9.039215E-01 3.719448E-01 1.041750E-01 BACL_07 CS 230.000 2.658386E-20 1.613232E-20 9.254814E-21 6.071191E-21 4.661714E-21 3.201369E-20 4.709774E-21 BACL_07 EQY 230.000 9.897328E-01 9.822950E-01 9.734252E-01 9.617816E-01 9.039935E-01 3.720514E-01 1.041750E-01 BACL_07 CS 250.000 2.658386E-20 1.613232E-20 9.254814E-21 6.071191E-21 4.661714E-21 3.201369E-20 4.709774E-21 BACL_07 EQY 250.000 9.897422E-01 9.823109E-01 9.734489E-01 9.618149E-01 9.040656E-01 3.721582E-01 1.041750E-01 BACL_07 CS 270.000 2.658386E-20 1.613232E-20 9.254814E-21 6.071191E-21 4.661714E-21 3.201369E-20 4.709774E-21 BACL_07 EQY 270.000 9.897517E-01 9.823268E-01 9.734727E-01 9.618486E-01 9.041377E-01 3.722649E-01 1.041750E-01 BACL_07 CS 290.000 2.658386E-20 1.613232E-20 9.254814E-21 6.071191E-21 4.661714E-21 3.201369E-20 4.709774E-21 BACL_07 EQY 290.000 9.897612E-01 9.823428E-01 9.734963E-01 9.618820E-01 9.042099E-01 3.723717E-01 1.041750E-01 BACL_07 CS 310.000 2.658386E-20 1.613232E-20 9.254814E-21 6.071191E-21 4.661714E-21 3.201369E-20 4.709774E-21 BACL_07 EQY 310.000 9.897707E-01 9.823589E-01 9.735200E-01 9.619155E-01 9.042819E-01 3.724787E-01 1.041750E-01 BALD_06 CS 210.000 4.451981E-19 7.297634E-20 7.090561E-20 8.592461E-20 9.197932E-20 1.679403E-20 0.000000E+00 BALD_06 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 BALD_06 CS 230.000 4.451981E-19 7.297634E-20 7.090561E-20 8.592461E-20 9.197932E-20 1.679403E-20 0.000000E+00 BALD_06 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 BALD_06 CS 250.000 4.451981E-19 7.297634E-20 7.090561E-20 8.592461E-20 9.197932E-20 1.679403E-20 0.000000E+00 BALD_06 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 BALD_06 CS 270.000 4.451981E-19 7.297634E-20 7.090561E-20 8.592461E-20 9.197932E-20 1.679403E-20 0.000000E+00 BALD_06 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 BALD_06 CS 290.000 4.451981E-19 7.297634E-20 7.090561E-20 8.592461E-20 9.197932E-20 1.679403E-20 0.000000E+00 BALD_06 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 BALD_06 CS 310.000 4.451981E-19 7.297634E-20 7.090561E-20 8.592461E-20 9.197932E-20 1.679403E-20 0.000000E+00 BALD_06 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 AFG1 CS 210.000 1.731773E-18 1.412652E-18 1.107261E-18 8.915003E-19 5.026284E-19 1.273166E-19 1.232364E-21 AFG1 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 AFG1 CS 230.000 1.731773E-18 1.412652E-18 1.107261E-18 8.915003E-19 5.026284E-19 1.273166E-19 1.232364E-21 AFG1 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 AFG1 CS 250.000 1.731773E-18 1.412652E-18 1.107261E-18 8.915003E-19 5.026284E-19 1.273166E-19 1.232364E-21 AFG1 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 AFG1 CS 270.000 1.731773E-18 1.412652E-18 1.107261E-18 8.915003E-19 5.026284E-19 1.273166E-19 1.232364E-21 AFG1 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 AFG1 CS 290.000 1.731773E-18 1.412652E-18 1.107261E-18 8.915003E-19 5.026284E-19 1.273166E-19 1.232364E-21 AFG1 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 AFG1 CS 310.000 1.731773E-18 1.412652E-18 1.107261E-18 8.915003E-19 5.026284E-19 1.273166E-19 1.232364E-21 AFG1 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 MACR_06 CS 210.000 2.639069E-20 3.936243E-20 4.989643E-20 5.926228E-20 6.528440E-20 1.326810E-20 0.000000E+00 MACR_06 EQY 210.000 4.845909E-02 3.034989E-02 2.098906E-02 1.472279E-02 6.294584E-03 1.553480E-03 0.000000E+00 MACR_06 CS 230.000 2.639069E-20 3.936243E-20 4.989643E-20 5.926228E-20 6.528440E-20 1.326810E-20 0.000000E+00 MACR_06 EQY 230.000 4.845909E-02 3.034989E-02 2.098906E-02 1.472279E-02 6.294584E-03 1.553480E-03 0.000000E+00 MACR_06 CS 250.000 2.639069E-20 3.936243E-20 4.989643E-20 5.926228E-20 6.528440E-20 1.326810E-20 0.000000E+00 MACR_06 EQY 250.000 4.845909E-02 3.034989E-02 2.098906E-02 1.472279E-02 6.294584E-03 1.553480E-03 0.000000E+00 MACR_06 CS 270.000 2.639069E-20 3.936243E-20 4.989643E-20 5.926228E-20 6.528440E-20 1.326810E-20 0.000000E+00 MACR_06 EQY 270.000 4.845909E-02 3.034989E-02 2.098906E-02 1.472279E-02 6.294584E-03 1.553480E-03 0.000000E+00 MACR_06 CS 290.000 2.639069E-20 3.936243E-20 4.989643E-20 5.926228E-20 6.528440E-20 1.326810E-20 0.000000E+00 MACR_06 EQY 290.000 4.845909E-02 3.034989E-02 2.098906E-02 1.472279E-02 6.294584E-03 1.553480E-03 0.000000E+00 MACR_06 CS 310.000 2.639069E-20 3.936243E-20 4.989643E-20 5.926228E-20 6.528440E-20 1.326810E-20 0.000000E+00 MACR_06 EQY 310.000 4.845909E-02 3.034989E-02 2.098906E-02 1.472279E-02 6.294584E-03 1.553480E-03 0.000000E+00 MVK_06 CS 210.000 3.041510E-20 4.373022E-20 5.436504E-20 6.318700E-20 6.828638E-20 8.056523E-21 0.000000E+00 MVK_06 EQY 210.000 1.734264E-02 1.099765E-02 7.572843E-03 5.269792E-03 2.269807E-03 9.735132E-04 0.000000E+00 MVK_06 CS 230.000 3.041510E-20 4.373022E-20 5.436504E-20 6.318700E-20 6.828638E-20 8.056523E-21 0.000000E+00 MVK_06 EQY 230.000 1.734264E-02 1.099765E-02 7.572843E-03 5.269792E-03 2.269807E-03 9.735132E-04 0.000000E+00 MVK_06 CS 250.000 3.041510E-20 4.373022E-20 5.436504E-20 6.318700E-20 6.828638E-20 8.056523E-21 0.000000E+00 MVK_06 EQY 250.000 1.734264E-02 1.099765E-02 7.572843E-03 5.269792E-03 2.269807E-03 9.735132E-04 0.000000E+00 MVK_06 CS 270.000 3.041510E-20 4.373022E-20 5.436504E-20 6.318700E-20 6.828638E-20 8.056523E-21 0.000000E+00 MVK_06 EQY 270.000 1.734264E-02 1.099765E-02 7.572843E-03 5.269792E-03 2.269807E-03 9.735132E-04 0.000000E+00 MVK_06 CS 290.000 3.041510E-20 4.373022E-20 5.436504E-20 6.318700E-20 6.828638E-20 8.056523E-21 0.000000E+00 MVK_06 EQY 290.000 1.734264E-02 1.099765E-02 7.572843E-03 5.269792E-03 2.269807E-03 9.735132E-04 0.000000E+00 MVK_06 CS 310.000 3.041510E-20 4.373022E-20 5.436504E-20 6.318700E-20 6.828638E-20 8.056523E-21 0.000000E+00 MVK_06 EQY 310.000 1.734264E-02 1.099765E-02 7.572843E-03 5.269792E-03 2.269807E-03 9.735132E-04 0.000000E+00 IC3ONO2 CS 210.000 9.514298E-21 4.530419E-21 2.204171E-21 1.039935E-21 1.393909E-22 0.000000E+00 0.000000E+00 IC3ONO2 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 IC3ONO2 CS 230.000 9.514298E-21 4.530419E-21 2.204171E-21 1.039935E-21 1.393909E-22 0.000000E+00 0.000000E+00 IC3ONO2 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 IC3ONO2 CS 250.000 9.980248E-21 4.802258E-21 2.361341E-21 1.133020E-21 1.558919E-22 0.000000E+00 0.000000E+00 IC3ONO2 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 IC3ONO2 CS 270.000 1.098172E-20 5.395850E-21 2.710103E-21 1.344930E-21 1.949851E-22 0.000000E+00 0.000000E+00 IC3ONO2 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 IC3ONO2 CS 290.000 1.208369E-20 6.062813E-21 3.110376E-21 1.596473E-21 2.438819E-22 0.000000E+00 0.000000E+00 IC3ONO2 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 IC3ONO2 CS 310.000 1.329624E-20 6.812218E-21 3.569767E-21 1.895064E-21 3.050405E-22 0.000000E+00 0.000000E+00 IC3ONO2 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 HOCCHO_IUPAC CS 210.000 3.704782E-20 2.277373E-20 1.257586E-20 5.852344E-21 6.507965E-22 0.000000E+00 0.000000E+00 HOCCHO_IUPAC EQY 210.000 7.500000E-01 7.500000E-01 7.500000E-01 7.500000E-01 7.500000E-01 0.000000E+00 0.000000E+00 HOCCHO_IUPAC CS 230.000 3.704782E-20 2.277373E-20 1.257586E-20 5.852344E-21 6.507965E-22 0.000000E+00 0.000000E+00 HOCCHO_IUPAC EQY 230.000 7.500000E-01 7.500000E-01 7.500000E-01 7.500000E-01 7.500000E-01 0.000000E+00 0.000000E+00 HOCCHO_IUPAC CS 250.000 3.704782E-20 2.277373E-20 1.257586E-20 5.852344E-21 6.507965E-22 0.000000E+00 0.000000E+00 HOCCHO_IUPAC EQY 250.000 7.500000E-01 7.500000E-01 7.500000E-01 7.500000E-01 7.500000E-01 0.000000E+00 0.000000E+00 HOCCHO_IUPAC CS 270.000 3.704782E-20 2.277373E-20 1.257586E-20 5.852344E-21 6.507965E-22 0.000000E+00 0.000000E+00 HOCCHO_IUPAC EQY 270.000 7.500000E-01 7.500000E-01 7.500000E-01 7.500000E-01 7.500000E-01 0.000000E+00 0.000000E+00 HOCCHO_IUPAC CS 290.000 3.704782E-20 2.277373E-20 1.257586E-20 5.852344E-21 6.507965E-22 0.000000E+00 0.000000E+00 HOCCHO_IUPAC EQY 290.000 7.500000E-01 7.500000E-01 7.500000E-01 7.500000E-01 7.500000E-01 0.000000E+00 0.000000E+00 HOCCHO_IUPAC CS 310.000 3.704782E-20 2.277373E-20 1.257586E-20 5.852344E-21 6.507965E-22 0.000000E+00 0.000000E+00 HOCCHO_IUPAC EQY 310.000 7.500000E-01 7.500000E-01 7.500000E-01 7.500000E-01 7.500000E-01 0.000000E+00 0.000000E+00 ACRO_09 CS 210.000 1.856128E-20 2.787986E-20 3.602616E-20 4.321518E-20 5.371941E-20 1.543856E-20 0.000000E+00 ACRO_09 EQY 210.000 5.269045E-02 3.293790E-02 2.264026E-02 1.595375E-02 6.767500E-03 1.624741E-03 0.000000E+00 ACRO_09 CS 230.000 1.856128E-20 2.787986E-20 3.602616E-20 4.321518E-20 5.371941E-20 1.543856E-20 0.000000E+00 ACRO_09 EQY 230.000 5.269045E-02 3.293790E-02 2.264026E-02 1.595375E-02 6.767500E-03 1.624741E-03 0.000000E+00 ACRO_09 CS 250.000 1.856128E-20 2.787986E-20 3.602616E-20 4.321518E-20 5.371941E-20 1.543856E-20 0.000000E+00 ACRO_09 EQY 250.000 5.269045E-02 3.293790E-02 2.264026E-02 1.595375E-02 6.767500E-03 1.624741E-03 0.000000E+00 ACRO_09 CS 270.000 1.856128E-20 2.787986E-20 3.602616E-20 4.321518E-20 5.371941E-20 1.543856E-20 0.000000E+00 ACRO_09 EQY 270.000 5.269045E-02 3.293790E-02 2.264026E-02 1.595375E-02 6.767500E-03 1.624741E-03 0.000000E+00 ACRO_09 CS 290.000 1.856128E-20 2.787986E-20 3.602616E-20 4.321518E-20 5.371941E-20 1.543856E-20 0.000000E+00 ACRO_09 EQY 290.000 5.269045E-02 3.293790E-02 2.264026E-02 1.595375E-02 6.767500E-03 1.624741E-03 0.000000E+00 ACRO_09 CS 310.000 1.856128E-20 2.787986E-20 3.602616E-20 4.321518E-20 5.371941E-20 1.543856E-20 0.000000E+00 ACRO_09 EQY 310.000 5.269045E-02 3.293790E-02 2.264026E-02 1.595375E-02 6.767500E-03 1.624741E-03 0.000000E+00 PAA CS 210.000 1.880973E-21 9.984294E-22 5.884834E-22 3.735140E-22 1.059114E-22 0.000000E+00 0.000000E+00 PAA EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 PAA CS 230.000 1.880973E-21 9.984294E-22 5.884834E-22 3.735140E-22 1.059114E-22 0.000000E+00 0.000000E+00 PAA EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 PAA CS 250.000 1.880973E-21 9.984294E-22 5.884834E-22 3.735140E-22 1.059114E-22 0.000000E+00 0.000000E+00 PAA EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 PAA CS 270.000 1.880973E-21 9.984294E-22 5.884834E-22 3.735140E-22 1.059114E-22 0.000000E+00 0.000000E+00 PAA EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 PAA CS 290.000 1.880973E-21 9.984294E-22 5.884834E-22 3.735140E-22 1.059114E-22 0.000000E+00 0.000000E+00 PAA EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 PAA CS 310.000 1.880973E-21 9.984294E-22 5.884834E-22 3.735140E-22 1.059114E-22 0.000000E+00 0.000000E+00 PAA EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 CL2 CS 210.000 8.459998E-20 1.387449E-19 1.859079E-19 2.232772E-19 2.484952E-19 6.038539E-20 6.311131E-22 CL2 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 CL2 CS 230.000 8.524757E-20 1.389977E-19 1.856245E-19 2.224567E-19 2.471989E-19 6.124574E-20 6.311131E-22 CL2 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 CL2 CS 250.000 8.601563E-20 1.392877E-19 1.852748E-19 2.214706E-19 2.456518E-19 6.228141E-20 6.311131E-22 CL2 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 CL2 CS 270.000 8.688803E-20 1.396037E-19 1.848591E-19 2.203326E-19 2.438807E-19 6.347855E-20 6.311131E-22 CL2 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 CL2 CS 290.000 8.784630E-20 1.399339E-19 1.843792E-19 2.190595E-19 2.419169E-19 6.481979E-20 6.311131E-22 CL2 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 CL2 CS 310.000 8.835163E-20 1.401007E-19 1.841159E-19 2.183779E-19 2.408728E-19 6.553857E-20 6.311131E-22 CL2 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 CLNO_06 CS 210.000 9.713532E-20 1.043432E-19 1.150344E-19 1.267321E-19 1.479858E-19 8.438991E-20 4.594130E-21 CLNO_06 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 CLNO_06 CS 230.000 9.713532E-20 1.043432E-19 1.150344E-19 1.267321E-19 1.479858E-19 8.438991E-20 4.594130E-21 CLNO_06 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 CLNO_06 CS 250.000 9.713532E-20 1.043432E-19 1.150344E-19 1.267321E-19 1.479858E-19 8.438991E-20 4.594130E-21 CLNO_06 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 CLNO_06 CS 270.000 9.713532E-20 1.043432E-19 1.150344E-19 1.267321E-19 1.479858E-19 8.438991E-20 4.594130E-21 CLNO_06 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 CLNO_06 CS 290.000 9.713532E-20 1.043432E-19 1.150344E-19 1.267321E-19 1.479858E-19 8.438991E-20 4.594130E-21 CLNO_06 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 CLNO_06 CS 310.000 9.713532E-20 1.043432E-19 1.150344E-19 1.267321E-19 1.479858E-19 8.438991E-20 4.594130E-21 CLNO_06 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 CLONO CS 210.000 1.405580E-18 1.198578E-18 1.052515E-18 9.205324E-19 5.728580E-19 7.394594E-20 0.000000E+00 CLONO EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 CLONO CS 230.000 1.405580E-18 1.198578E-18 1.052515E-18 9.205324E-19 5.728580E-19 7.394594E-20 0.000000E+00 CLONO EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 CLONO CS 250.000 1.405580E-18 1.198578E-18 1.052515E-18 9.205324E-19 5.728580E-19 7.394594E-20 0.000000E+00 CLONO EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 CLONO CS 270.000 1.405580E-18 1.198578E-18 1.052515E-18 9.205324E-19 5.728580E-19 7.394594E-20 0.000000E+00 CLONO EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 CLONO CS 290.000 1.405580E-18 1.198578E-18 1.052515E-18 9.205324E-19 5.728580E-19 7.394594E-20 0.000000E+00 CLONO EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 CLONO CS 310.000 1.405580E-18 1.198578E-18 1.052515E-18 9.205324E-19 5.728580E-19 7.394594E-20 0.000000E+00 CLONO EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 CLNO2 CS 210.000 1.656203E-19 1.407781E-19 1.170052E-19 9.257619E-20 4.108944E-20 2.105267E-21 0.000000E+00 CLNO2 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 CLNO2 CS 230.000 1.625310E-19 1.390370E-19 1.166682E-19 9.343169E-20 4.323496E-20 2.532648E-21 0.000000E+00 CLNO2 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 CLNO2 CS 250.000 1.607963E-19 1.382499E-19 1.170532E-19 9.483844E-20 4.569999E-20 3.083953E-21 0.000000E+00 CLNO2 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 CLNO2 CS 270.000 1.604163E-19 1.384168E-19 1.181603E-19 9.679644E-20 4.848453E-20 3.759182E-21 0.000000E+00 CLNO2 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 CLNO2 CS 290.000 1.613911E-19 1.395376E-19 1.199895E-19 9.930572E-20 5.158858E-20 4.558336E-21 0.000000E+00 CLNO2 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 CLNO2 CS 310.000 1.619476E-19 1.400598E-19 1.206790E-19 1.001660E-19 5.258209E-20 4.822247E-21 0.000000E+00 CLNO2 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 CLONO2_1 CS 210.000 3.530556E-20 1.872070E-20 1.123545E-20 7.141706E-21 3.111550E-21 9.743237E-22 9.489116E-24 CLONO2_1 EQY 210.000 4.000000E-01 3.992096E-01 3.837866E-01 3.420477E-01 2.361424E-01 2.718547E-02 0.000000E+00 CLONO2_1 CS 230.000 3.756278E-20 2.004876E-20 1.210488E-20 7.706714E-21 3.240199E-21 1.038511E-21 9.491610E-24 CLONO2_1 EQY 230.000 4.000000E-01 3.992096E-01 3.837866E-01 3.420477E-01 2.361424E-01 2.718547E-02 0.000000E+00 CLONO2_1 CS 250.000 3.999382E-20 2.155965E-20 1.312916E-20 8.405717E-21 3.464433E-21 1.097813E-21 9.504681E-24 CLONO2_1 EQY 250.000 4.000000E-01 3.992096E-01 3.837866E-01 3.420477E-01 2.361424E-01 2.718547E-02 0.000000E+00 CLONO2_1 CS 270.000 4.259870E-20 2.325335E-20 1.430828E-20 9.238715E-21 3.784253E-21 1.152229E-21 9.528331E-24 CLONO2_1 EQY 270.000 4.000000E-01 3.992096E-01 3.837866E-01 3.420477E-01 2.361424E-01 2.718547E-02 0.000000E+00 CLONO2_1 CS 290.000 4.537742E-20 2.512988E-20 1.564224E-20 1.020571E-20 4.199657E-21 1.201758E-21 9.562558E-24 CLONO2_1 EQY 290.000 4.000000E-01 3.992096E-01 3.837866E-01 3.420477E-01 2.361424E-01 2.718547E-02 0.000000E+00 CLONO2_1 CS 310.000 4.832995E-20 2.718922E-20 1.713105E-20 1.130669E-20 4.710647E-21 1.246402E-21 9.607363E-24 CLONO2_1 EQY 310.000 4.000000E-01 3.992096E-01 3.837866E-01 3.420477E-01 2.361424E-01 2.718547E-02 0.000000E+00 CLONO2_2 CS 210.000 3.530556E-20 1.872070E-20 1.123545E-20 7.141706E-21 3.111550E-21 9.743237E-22 9.489116E-24 CLONO2_2 EQY 210.000 6.000000E-01 6.007904E-01 6.162134E-01 6.579523E-01 7.638576E-01 9.728145E-01 1.000000E+00 CLONO2_2 CS 230.000 3.756278E-20 2.004876E-20 1.210488E-20 7.706714E-21 3.240199E-21 1.038511E-21 9.491610E-24 CLONO2_2 EQY 230.000 6.000000E-01 6.007904E-01 6.162134E-01 6.579523E-01 7.638576E-01 9.728145E-01 1.000000E+00 CLONO2_2 CS 250.000 3.999382E-20 2.155965E-20 1.312916E-20 8.405717E-21 3.464433E-21 1.097813E-21 9.504681E-24 CLONO2_2 EQY 250.000 6.000000E-01 6.007904E-01 6.162134E-01 6.579523E-01 7.638576E-01 9.728145E-01 1.000000E+00 CLONO2_2 CS 270.000 4.259870E-20 2.325335E-20 1.430828E-20 9.238715E-21 3.784253E-21 1.152229E-21 9.528331E-24 CLONO2_2 EQY 270.000 6.000000E-01 6.007904E-01 6.162134E-01 6.579523E-01 7.638576E-01 9.728145E-01 1.000000E+00 CLONO2_2 CS 290.000 4.537742E-20 2.512988E-20 1.564224E-20 1.020571E-20 4.199657E-21 1.201758E-21 9.562558E-24 CLONO2_2 EQY 290.000 6.000000E-01 6.007904E-01 6.162134E-01 6.579523E-01 7.638576E-01 9.728145E-01 1.000000E+00 CLONO2_2 CS 310.000 4.832995E-20 2.718922E-20 1.713105E-20 1.130669E-20 4.710647E-21 1.246402E-21 9.607363E-24 CLONO2_2 EQY 310.000 6.000000E-01 6.007904E-01 6.162134E-01 6.579523E-01 7.638576E-01 9.728145E-01 1.000000E+00 HOCL_06 CS 210.000 5.570117E-20 6.066935E-20 5.958161E-20 5.377945E-20 3.120855E-20 6.545254E-21 1.283755E-23 HOCL_06 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 HOCL_06 CS 230.000 5.570117E-20 6.066935E-20 5.958161E-20 5.377945E-20 3.120855E-20 6.545254E-21 1.283755E-23 HOCL_06 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 HOCL_06 CS 250.000 5.570117E-20 6.066935E-20 5.958161E-20 5.377945E-20 3.120855E-20 6.545254E-21 1.283755E-23 HOCL_06 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 HOCL_06 CS 270.000 5.570117E-20 6.066935E-20 5.958161E-20 5.377945E-20 3.120855E-20 6.545254E-21 1.283755E-23 HOCL_06 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 HOCL_06 CS 290.000 5.570117E-20 6.066935E-20 5.958161E-20 5.377945E-20 3.120855E-20 6.545254E-21 1.283755E-23 HOCL_06 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 HOCL_06 CS 310.000 5.570117E-20 6.066935E-20 5.958161E-20 5.377945E-20 3.120855E-20 6.545254E-21 1.283755E-23 HOCL_06 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 CLCCHO CS 210.000 5.379352E-20 5.300264E-20 4.849378E-20 3.861017E-20 1.286108E-20 9.228975E-23 0.000000E+00 CLCCHO EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 CLCCHO CS 230.000 5.379352E-20 5.300264E-20 4.849378E-20 3.861017E-20 1.286108E-20 9.228975E-23 0.000000E+00 CLCCHO EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 CLCCHO CS 250.000 5.379352E-20 5.300264E-20 4.849378E-20 3.861017E-20 1.286108E-20 9.228975E-23 0.000000E+00 CLCCHO EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 CLCCHO CS 270.000 5.379352E-20 5.300264E-20 4.849378E-20 3.861017E-20 1.286108E-20 9.228975E-23 0.000000E+00 CLCCHO EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 CLCCHO CS 290.000 5.379352E-20 5.300264E-20 4.849378E-20 3.861017E-20 1.286108E-20 9.228975E-23 0.000000E+00 CLCCHO EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 CLCCHO CS 310.000 5.379352E-20 5.300264E-20 4.849378E-20 3.861017E-20 1.286108E-20 9.228975E-23 0.000000E+00 CLCCHO EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 CLACET CS 210.000 1.000121E-19 8.662045E-20 6.774627E-20 4.765676E-20 1.132983E-20 6.893265E-23 0.000000E+00 CLACET EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 CLACET CS 230.000 1.000121E-19 8.662045E-20 6.774627E-20 4.765676E-20 1.132983E-20 6.893265E-23 0.000000E+00 CLACET EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 CLACET CS 250.000 1.000121E-19 8.662045E-20 6.774627E-20 4.765676E-20 1.132983E-20 6.893265E-23 0.000000E+00 CLACET EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 CLACET CS 270.000 1.000121E-19 8.662045E-20 6.774627E-20 4.765676E-20 1.132983E-20 6.893265E-23 0.000000E+00 CLACET EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 CLACET CS 290.000 1.000121E-19 8.662045E-20 6.774627E-20 4.765676E-20 1.132983E-20 6.893265E-23 0.000000E+00 CLACET EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 CLACET CS 310.000 1.000121E-19 8.662045E-20 6.774627E-20 4.765676E-20 1.132983E-20 6.893265E-23 0.000000E+00 CLACET EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 ! Ozone Cross-Section for Stratospheric Opacity based on Table 4-5 in ! Chemical Kinetics and Photochemical Data for Use in Atmospheric ! Studies Evaluation Number 15. Sander et. al: NASA-JPL 2006 NTEMP_STRAT = 6 ! QUANTITY TEMP WBIN( 1) WBIN( 2) WBIN( 3) WBIN( 4) WBIN( 5) WBIN( 6) WBIN( 7) O3_STRAT CS 180.000 6.113743E-19 2.263004E-19 8.354117E-20 3.417408E-20 3.688351E-21 4.086261E-23 1.663175E-21 O3_STRAT CS 260.000 6.434133E-19 2.434104E-19 9.254548E-20 3.928807E-20 4.583227E-21 4.086261E-23 1.663175E-21 O3_STRAT CS 300.000 6.685868E-19 2.568540E-19 9.962031E-20 4.330621E-20 5.286344E-21 4.086261E-23 1.663175E-21 O3_STRAT CS 340.000 6.685868E-19 2.568540E-19 9.962031E-20 4.330621E-20 5.286344E-21 4.086261E-23 1.663175E-21 O3_STRAT CS 380.000 6.685868E-19 2.568540E-19 9.962031E-20 4.330621E-20 5.286344E-21 4.086261E-23 1.663175E-21 O3_STRAT CS 420.000 6.685868E-19 2.568540E-19 9.962031E-20 4.330621E-20 5.286344E-21 4.086261E-23 1.663175E-21 ================================================ FILE: CCTM/src/MECHS/saprc07tc_ae6_aq/GC_saprc07tc_ae6_aq.nml ================================================ &GC_nml GC_SPECIES_DATA = !SPECIES ,MOLWT ,IC ,IC_FAC ,BC ,BC_FAC ,DRYDEP SURR ,FAC ,WET-SCAV SURR ,FAC ,GC2AE SURR ,GC2AQ SURR,TRNS ,DDEP ,WDEP ,CONC 'NO2' , 46.0 ,'' ,-1 ,'' ,-1 ,'VD_NO2' , 1 ,'NO2' , 1 ,'NO2' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'NO' , 30.0 ,'' ,-1 ,'' ,-1 ,'VD_NO' , 1 ,'NO' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'O3P' , 16.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'O3' , 48.0 ,'' ,-1 ,'' ,-1 ,'VD_O3' , 1 ,'O3' , 1 ,'' ,'O3' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'NO3' , 62.0 ,'' ,-1 ,'' ,-1 ,'VD_NO3' , 1 ,'NO3' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'N2O5' ,108.0 ,'' ,-1 ,'' ,-1 ,'VD_N2O5' , 1 ,'N2O5' , 1 ,'N2O5' ,'N2O5' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'HNO3' , 63.0 ,'' ,-1 ,'' ,-1 ,'VD_HNO3' , 1 ,'HNO3' , 1 ,'HNO3' ,'HNO3' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'O1D' , 16.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'OH' , 17.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'OH' , 1 ,'OH' ,'HO' ,'' ,'' ,'Yes' ,'Yes', 'HONO' , 47.0 ,'' ,-1 ,'' ,-1 ,'VD_HONO' , 1 ,'HNO2' , 1 ,'HONO' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'HO2' , 33.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'HO2' , 1 ,'' ,'HO2' ,'' ,'' ,'Yes' ,'Yes', 'CO' , 28.0 ,'' ,-1 ,'' ,-1 ,'VD_CO' , 1 ,'CO' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'CO2' , 44.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'CO2' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'HNO4' , 79.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'HNO4' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'HO2H' , 34.0 ,'' ,-1 ,'' ,-1 ,'VD_H2O2' , 1 ,'H2O2' , 1 ,'' ,'H2O2' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SO2' , 64.1 ,'' ,-1 ,'' ,-1 ,'VD_SO2' , 1 ,'SO2' , 1 ,'' ,'SO2' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SULF' , 98.1 ,'' ,-1 ,'' ,-1 ,'VD_SULF' , 1 ,'H2SO4' , 1 ,'SULF' ,'H2SO4' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SULRXN' , 98.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'SULPRD' ,'' ,'' ,'' ,'' ,'' , 'MEO2' , 47.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'HCHO' , 30.0 ,'' ,-1 ,'' ,-1 ,'VD_HCHO' , 1 ,'FORMALDEHYDE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'COOH' , 48.0 ,'' ,-1 ,'' ,-1 ,'VD_OP' , 1 ,'METHYLHYDROPEROX', 1 ,'' ,'MHP' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'MEOH' , 32.0 ,'' ,-1 ,'' ,-1 ,'VD_METHANOL' , 1 ,'METHANOL' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'RO2C' , 1.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'RO2XC' , 1.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'MECO3' , 75.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'PAN' ,121.1 ,'' ,-1 ,'' ,-1 ,'VD_PAN' , 1 ,'PAN' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'CCOOOH' , 76.0 ,'' ,-1 ,'' ,-1 ,'VD_PAA' , 1 ,'PEROXYACETIC_ACI', 1 ,'' ,'PAA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'CCOOH' , 60.1 ,'' ,-1 ,'' ,-1 ,'VD_ORA' , 1 ,'ACETIC_ACID' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'RCO3' , 89.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'PAN2' ,135.1 ,'' ,-1 ,'' ,-1 ,'VD_PAN' , 1 ,'PPN' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'xHO2' , 33.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'yROOH' , 76.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'xCCHO' , 44.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'RCOOOH' , 74.1 ,'' ,-1 ,'' ,-1 ,'VD_PAA' , 1 ,'PEROXYACETIC_ACI', 1 ,'' ,'PAA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'RCOOH' , 74.1 ,'' ,-1 ,'' ,-1 ,'VD_ORA' , 1 ,'PROPANOIC_ACID' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'BZCO3' ,137.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'PBZN' ,183.1 ,'' ,-1 ,'' ,-1 ,'VD_PAN' , 1 ,'PAN' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'BZO' , 93.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'MACO3' ,101.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'MAPAN' ,147.1 ,'' ,-1 ,'' ,-1 ,'VD_PAN' , 1 ,'MPAN' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'TBUO' , 73.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'RNO3' ,147.2 ,'' ,-1 ,'' ,-1 ,'VD_PAN' , 1 ,'MPAN' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ACETONE' , 58.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'ACETONE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'NPHE' ,139.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'2-NITROPHENOL' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'CRES' ,108.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'2-CRESOL' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'xOH' , 17.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'xNO2' , 46.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'xMEO2' , 47.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'xMECO3' , 75.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'xRCO3' , 89.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'xMACO3' ,101.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'xTBUO' , 73.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'xCO' , 28.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'CCHO' , 44.1 ,'' ,-1 ,'' ,-1 ,'VD_ALD' , 1 ,'ACETALDEHYDE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'RCHO' , 58.1 ,'' ,-1 ,'' ,-1 ,'VD_GEN_ALD' , 1 ,'GENERIC_ALDEHYDE', 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'xHCHO' , 30.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'MEK' , 72.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'MEK' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'zRNO3' ,147.2 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'xRCHO' , 58.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'HCOOH' , 46.0 ,'' ,-1 ,'' ,-1 ,'VD_ORA' , 1 ,'FORMIC_ACID' , 1 ,'' ,'FOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'xMGLY' , 72.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'xBACL' , 86.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'ROOH' , 76.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'METHYLHYDROPEROX', 1 ,'' ,'MHP' ,'Yes' ,'' ,'Yes' ,'Yes', 'xPROD2' ,116.2 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'R6OOH' ,118.2 ,'' ,-1 ,'' ,-1 ,'VD_OP' , 1 ,'HEXYL_HYDROPEROX', 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ISOPOOH' ,118.2 ,'' ,-1 ,'' ,-1 ,'VD_OP' , 1 ,'HEXYL_HYDROPEROX', 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'IEPOX' ,118.1 ,'' ,-1 ,'' ,-1 ,'VD_OP' ,1.5 ,'IEPOX' , 1 ,'IEPOX' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'IEPOXOO' ,149.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'PRD2' ,116.2 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'MEK' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'yR6OOH' ,118.2 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'yISOPOOH' ,118.2 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'RAOOH' ,188.2 ,'' ,-1 ,'' ,-1 ,'VD_OP' , 1 ,'HEXYL_HYDROPEROX', 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'MGLY' , 72.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'METHYL_GLYOXAL' , 1 ,'' ,'MGLY' ,'Yes' ,'' ,'Yes' ,'Yes', 'IPRD' ,100.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'xGLY' , 58.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'xMEK' , 72.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'xAFG1' , 98.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'xAFG2' , 98.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'GLY' , 58.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'GLYOXAL' , 1 ,'' ,'GLY' ,'Yes' ,'' ,'Yes' ,'Yes', 'AFG1' , 98.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'AFG2' , 98.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'HCOCO3' , 89.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'BACL' , 86.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'BIACETYL' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'BALD' ,106.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'BENZALDEHYDE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'AFG3' ,124.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'xIPRD' ,100.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'MACR' , 70.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'METHACROLEIN' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'MVK' , 70.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'MVK' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'xHOCCHO' , 60.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'xRNO3' ,147.2 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'HOCCHO' , 60.1 ,'' ,-1 ,'' ,-1 ,'VD_GEN_ALD' , 1 ,'GENERIC_ALDEHYDE', 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'xACETONE' , 58.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'ACROLEIN' , 56.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'ACROLEIN' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'xBALD' ,106.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'xAFG3' ,124.7 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'xMACR' , 70.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'xMVK' , 70.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'yRAOOH' ,188.2 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'xACROLEIN' , 56.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'ETHENE' , 28.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'ETHENE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'PROPENE' , 42.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'PROPENE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'BUTADIENE13' , 54.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'13-BUTADIENE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'ISOPRENE' , 68.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'ISOPRENE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'ISOPRXN' , 68.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'ISOPRXN' ,'' ,'' ,'' ,'' ,'' , 'APIN' ,136.2 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'PINENE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'TRPRXN' ,136.2 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'TRPRXN' ,'' ,'' ,'' ,'' ,'' , 'ACETYLENE' , 26.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'ACETYLENE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'BENZENE' , 78.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'BENZENE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'BENZRO2' ,159.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'TOLUENE' , 92.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'TOLUENE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'TOLRO2' ,172.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'MXYL' ,106.2 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'M-XYLENE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'XYLRO2' ,187.2 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'OXYL' ,106.2 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'O-XYLENE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'PXYL' ,106.2 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'P-XYLENE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'TMBENZ124' ,120.2 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'124TRIMETH_BENZE', 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'ETOH' , 46.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'ETHANOL' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'ALK1' , 30.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'ETHANE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'ALK2' , 36.7 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'PROPANE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'ALK3' , 58.6 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'BUTANE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'ALK4' , 77.6 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'BUTANE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'ALK5' ,118.9 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'DECANE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'SOAALK' ,112.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'DECANE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'ALKRXN' ,112.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'ALKRXN' ,'' ,'' ,'' ,'' ,'' , 'OLE1' , 72.3 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'ETHENE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'OLE2' , 75.8 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'ETHENE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'ARO1' , 95.2 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'TOLUENE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'ARO2MN' ,118.7 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'O-XYLENE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'NAPHTHAL' ,118.7 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'O-XYLENE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'PAHRO2' ,187.2 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'TERP' ,136.2 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'PINENE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'SESQ' ,204.4 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'PINENE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'SESQRXN' ,204.4 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'SESQRXN' ,'' ,'' ,'' ,'' ,'' , 'CL2' , 70.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'CL2' , 1 ,'' ,'CL2' ,'Yes' ,'' ,'Yes' ,'Yes', 'CL' , 35.5 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'CLNO' , 65.5 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'NITROSYL_CHLORID', 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'CLONO' , 81.5 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'CLNO2' , 81.5 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'NITRYL_CHLORIDE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'HCL' , 36.5 ,'' ,-1 ,'' ,-1 ,'VD_HCL' , 1 ,'HCL' , 1 ,'HCL' ,'HCL' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'CLO' , 51.5 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'CLONO2' , 97.5 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'HOCL' , 52.5 ,'' ,-1 ,'' ,-1 ,'VD_HOCL' , 1 ,'HOCL' , 1 ,'' ,'HOCL' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'xCL' , 35.5 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'xCLCCHO' , 78.5 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'xCLACET' , 92.5 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'CLCCHO' , 78.5 ,'' ,-1 ,'' ,-1 ,'VD_ALD' , 1 ,'CHLOROACETALDEHY', 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'CLACET' , 92.5 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'CHLOROACETONE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'CLCHO' , 64.5 ,'' ,-1 ,'' ,-1 ,'VD_FMCL' , 1 ,'FMCL' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'BNZNRXN' ,159.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'BNZNRXN' ,'' ,'' ,'' ,'' ,'' , 'BNZHRXN' ,159.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'BNZHRXN' ,'' ,'' ,'' ,'' ,'' , 'XYLNRXN' ,187.2 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'XYLNRXN' ,'' ,'' ,'' ,'' ,'' , 'XYLHRXN' ,187.2 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'XYLHRXN' ,'' ,'' ,'' ,'' ,'' , 'TOLNRXN' ,172.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'TOLNRXN' ,'' ,'' ,'' ,'' ,'' , 'TOLHRXN' ,172.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'TOLHRXN' ,'' ,'' ,'' ,'' ,'' , 'PAHNRXN' ,172.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'PAHNRXN' ,'' ,'' ,'' ,'' ,'' , 'PAHHRXN' ,172.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'PAHHRXN' ,'' ,'' ,'' ,'' ,'' , 'HCHO_PRIMARY' , 30.0 ,'' ,-1 ,'' ,-1 ,'VD_HCHO' , 1 ,'FORMALDEHYDE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'CCHO_PRIMARY' , 44.1 ,'' ,-1 ,'' ,-1 ,'VD_ALD' , 1 ,'ACETALDEHYDE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ACRO_PRIMARY' , 56.1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'ACROLEIN' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'H2NO3PIJ' , 64.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'H2NO3PK' , 64.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'VLVPO1' ,218.0 ,'' ,-1 ,'' ,-1 ,'VD_ORA' , 1 ,'ADIPIC_ACID' , 1 ,'VLVPO1' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'VSVPO1' ,230.0 ,'' ,-1 ,'' ,-1 ,'VD_ORA' , 1 ,'ADIPIC_ACID' , 1 ,'VSVPO1' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'VSVPO2' ,241.0 ,'' ,-1 ,'' ,-1 ,'VD_ORA' , 1 ,'ADIPIC_ACID' , 1 ,'VSVPO2' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'VSVPO3' ,253.0 ,'' ,-1 ,'' ,-1 ,'VD_ORA' , 1 ,'ADIPIC_ACID' , 1 ,'VSVPO3' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'VIVPO1' ,266.0 ,'' ,-1 ,'' ,-1 ,'VD_ORA' , 1 ,'ADIPIC_ACID' , 1 ,'VIVPO1' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'VLVOO1' ,136.0 ,'' ,-1 ,'' ,-1 ,'VD_ORA' , 1 ,'ADIPIC_ACID' , 1 ,'VLVOO1' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'VLVOO2' ,136.0 ,'' ,-1 ,'' ,-1 ,'VD_ORA' , 1 ,'ADIPIC_ACID' , 1 ,'VLVOO2' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'VSVOO1' ,135.0 ,'' ,-1 ,'' ,-1 ,'VD_ORA' , 1 ,'ADIPIC_ACID' , 1 ,'VSVOO1' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'VSVOO2' ,135.0 ,'' ,-1 ,'' ,-1 ,'VD_ORA' , 1 ,'ADIPIC_ACID' , 1 ,'VSVOO2' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'VSVOO3' ,134.0 ,'' ,-1 ,'' ,-1 ,'VD_ORA' , 1 ,'ADIPIC_ACID' , 1 ,'VSVOO3' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'PCVOC' ,170.0 ,'' ,-1 ,'' ,-1 ,'VD_GEN_ALD' , 1 ,'GENERIC_ALDEHYDE', 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'PCSOARXN' ,170.0 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'PCSOARXN' ,'' ,'' ,'' ,'' ,'' , / ================================================ FILE: CCTM/src/MECHS/saprc07tc_ae6_aq/NR_saprc07tc_ae6_aq.nml ================================================ &NR_nml NR_SPECIES_DATA = !SPECIES ,MOLWT ,IC ,IC_FAC ,BC ,BC_FAC ,DRYDEP SURR ,FAC ,WET-SCAV SURR ,FAC ,NR2AE SURR ,NR2AQ SURR,TRNS ,DDEP ,WDEP ,CONC 'NH3' , 17.0 ,'' ,-1 ,'' ,-1 ,'VD_NH3' , 1 ,'NH3' , 1 ,'NH3' ,'NH3' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SVALK1' ,225.0 ,'' ,-1 ,'' ,-1 ,'VD_SVALK1' , 1 ,'SVALK1' , 1 ,'SVALK1' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SVALK2' ,205.1 ,'' ,-1 ,'' ,-1 ,'VD_SVALK2' , 1 ,'SVALK2' , 1 ,'SVALK2' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SVXYL1' ,174.0 ,'' ,-1 ,'' ,-1 ,'VD_SVXYL1' , 1 ,'SVXYL1' , 1 ,'SVXYL1' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SVXYL2' ,185.0 ,'' ,-1 ,'' ,-1 ,'VD_SVXYL2' , 1 ,'SVXYL2' , 1 ,'SVXYL2' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SVTOL1' ,163.0 ,'' ,-1 ,'' ,-1 ,'VD_SVTOL1' , 1 ,'SVTOL1' , 1 ,'SVTOL1' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SVTOL2' ,175.0 ,'' ,-1 ,'' ,-1 ,'VD_SVTOL2' , 1 ,'SVTOL2' , 1 ,'SVTOL2' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SVBNZ1' ,161.0 ,'' ,-1 ,'' ,-1 ,'VD_SVBNZ1' , 1 ,'SVBNZ1' , 1 ,'SVBNZ1' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SVBNZ2' ,134.0 ,'' ,-1 ,'' ,-1 ,'VD_SVBNZ2' , 1 ,'SVBNZ2' , 1 ,'SVBNZ2' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SVPAH1' ,195.6 ,'' ,-1 ,'' ,-1 ,'VD_SVPAH1' , 1 ,'SVPAH1' , 1 ,'SVPAH1' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SVPAH2' ,178.7 ,'' ,-1 ,'' ,-1 ,'VD_SVPAH2' , 1 ,'SVPAH2' , 1 ,'SVPAH2' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SVTRP1' ,177.0 ,'' ,-1 ,'' ,-1 ,'VD_SVTRP1' , 1 ,'SVTRP1' , 1 ,'SVTRP1' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SVTRP2' ,198.0 ,'' ,-1 ,'' ,-1 ,'VD_SVTRP2' , 1 ,'SVTRP2' , 1 ,'SVTRP2' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SVISO1' ,132.0 ,'' ,-1 ,'' ,-1 ,'VD_SVISO1' , 1 ,'SVISO1' , 1 ,'SVISO1' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SVISO2' ,133.0 ,'' ,-1 ,'' ,-1 ,'VD_SVISO2' , 1 ,'SVISO2' , 1 ,'SVISO2' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SVSQT' ,273.0 ,'' ,-1 ,'' ,-1 ,'VD_SVSQT' , 1 ,'SVSQT' , 1 ,'SVSQT' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'LVPCSOG' ,170.0 ,'' ,-1 ,'' ,-1 ,'VD_LVPCSOG' , 1 ,'ADIPIC_ACID' , 1 ,'LVPCSOG' ,'' ,'Yes' ,'' ,'' ,'Yes', / ================================================ FILE: CCTM/src/MECHS/saprc07tc_ae6_aq/RXNS_DATA_MODULE.F90 ================================================ MODULE RXNS_DATA IMPLICIT NONE ! --------- Photochemical Mechanism Reactions, Rates, etc. DAT --------- ! Source file: /home/bmurphy/cmaq_projects/bicicle_1.7/UTIL/chemmech/input/saprc07tc_ae6_aq/mech_saprc07tc_ae6_aq.def ! for Mechanism Name: SAPRC07TC_AE6_AQ ! This file is used to create mechanism data and functions ! The following are reserved symbols declared in this file: ! MECHNAME = Mechanism name ! N_GAS_CHEM_SPC = Total number of gas species in chemical mechanism ! NUMB_MECH_SPC = Total number of species in chemical mechanism ! N_ACT_SP = Number of active (determined by ODE solver) species in mechanism ! GAS_CHEM_SPC = Names of gas species in chemical mechanism ! CHEMISTRY_SPC = Names of species in chemical mechanism ! CGRID_INDEX = CGRID Index of species in chemical mechanism ! SPECIES_TYPE = Group or type of species ! SPECIES_MOLWT = Molecular Weight of species (gm/mole) ! NRXNS = Number of mechanism reactions ! ZERO_REACT_REACTIONS = number zero reactant reactions ! ONE_REACT_REACTIONS = number one reactant reactions ! TWO_REACT_REACTIONS = number second order reactions ! THREE_REACT_REACTIONS = number three reactant reactions ! NSUNLIGHT_RXNS = Number of mechanism reactions requiring sunlight ! NTHERMAL_RXNS = Number of mechanism reactions not requiring sunlight ! KUNITS = Units of mechanism reactions ! KTYPE = Reaction type ! IRXBITS = Bit test mask vector for selected reactions ! IORDER = Order of the reaction ! NTERMS_JACOB = Maximum number of nonzero terms in day/night Jacobian ! MSTEPS_JACOB = Maximum number of LU Decomposition steps to solve each Jacobian ! KTN1 = Number of type 1 reactions ! KRX1 = Reactions list pointer to type 1 reactions ! KTN2 = Number of type 2 reactions ! KRX2 = Reactions list pointer to type 2 reactions ! KTN3 = Number of type 3 reactions ! KRX3 = Reactions list pointer to type 3 reactions ! KTN4 = Number of type 4 reactions ! KRX4 = Reactions list pointer to type 4 reactions ! KTN5 = Number of type 5 reactions ! KRX5 = Reactions list pointer to type 5 reactions ! KTN6 = Number of type 6 reactions ! KRX6 = Reactions list pointer to type 6 reactions ! KTN7 = Number of type 7 reactions ! KRX7 = Reactions list pointer to type 7 reactions ! NWM = Number of air 3-body reactions ! NRXWM = Reactions list pointer to air 3-body reactions ! ATM_AIR = air 3-body reactions concentration ! NWW = Number of H2O 3-body reactions ! NRXWW = Reactions list pointer to H2O 3-body reactions ! NWO2 = Number of reactions with O2 ! NRXWO2 = Reactions list pointer to O2 reactions ! ATM_O2 = Oxygen reactions concentration ! NWN2 = Number of N2 3-body reactions ! NRXWN2 = Reactions list pointer to N2 3-body reactions ! ATM_N2 = Nitrogen 3-body reactions concentration ! NWCH4 = Number of reactions with CH4 ! NRXWCH4 = Reactions list pointer to CH4 reactions ! ATM_CH4 = Methane reactions concentration ! NWH2 = Number of reactions with H2 ! NRXWH2 = Reactions list pointer to H2 reactions ! ATM_H2 = Hydrogen reactions concentration ! MXPRD = Maximum number of mechanism reaction products ! IRR = Reactions list pointer to reactants and products ! RTDAT = Kinetic reaction rates expressions components ! NFALLOFFF = Number of falloff reactions ! IRRFALL = Reactions list pointer to falloff reactions ! RFDAT = Falloff reaction rates expressions components ! SC = Stoichiometric coefficients ! NREACT = Number of reactants in each mechanism reaction ! NPRDCT = Number of products in each mechanism reaction ! RXLABEL = Character label list for mechanism reactions ! NMPHOT = Number of mechanism photolytic reactions ! NPHOTAB = Number of photolytic reactions tables ! IPH = Reactions list pointer to photolytic reactions and tables ! MHETERO = Number of mechanism heteorogenous reactions ! NHETERO = Number of unique heteorogenous rate constants ! IHETERO = Reactions list pointer to heteorogenous reactions and tables CHARACTER( 32 ), PARAMETER :: MECHNAME = 'SAPRC07TC_AE6_AQ' INTEGER, PARAMETER :: N_GAS_CHEM_SPC = 173 INTEGER, PARAMETER :: NUMB_MECH_SPC = 198 CHARACTER( 16 ) :: GAS_CHEM_SPC( N_GAS_CHEM_SPC ) CHARACTER( 16 ) :: CHEMISTRY_SPC( NUMB_MECH_SPC ) CHARACTER( 16 ) :: SPECIES_TYPE( NUMB_MECH_SPC ) INTEGER :: CGRID_INDEX ( NUMB_MECH_SPC ) INTEGER :: TYPE_INDEX ( NUMB_MECH_SPC ) REAL( 8 ) :: SPECIES_MOLWT( NUMB_MECH_SPC ) LOGICAL :: CONVERT_CONC( NUMB_MECH_SPC ) ! The below character and integer arrays list the model species names used in the ! chemical mechanism. The gas species and their order should agree with ! the GC_SPC array for the gas phase chemistry to work correctly. ! If present, the CHEMISTRY_SPC names and species type should agree with the CGRID_SPCS module DATA GAS_CHEM_SPC( 1 ) / 'NO2 ' / DATA GAS_CHEM_SPC( 2 ) / 'NO ' / DATA GAS_CHEM_SPC( 3 ) / 'O3P ' / DATA GAS_CHEM_SPC( 4 ) / 'O3 ' / DATA GAS_CHEM_SPC( 5 ) / 'NO3 ' / DATA GAS_CHEM_SPC( 6 ) / 'N2O5 ' / DATA GAS_CHEM_SPC( 7 ) / 'HNO3 ' / DATA GAS_CHEM_SPC( 8 ) / 'O1D ' / DATA GAS_CHEM_SPC( 9 ) / 'OH ' / DATA GAS_CHEM_SPC( 10 ) / 'HONO ' / DATA GAS_CHEM_SPC( 11 ) / 'HO2 ' / DATA GAS_CHEM_SPC( 12 ) / 'CO ' / DATA GAS_CHEM_SPC( 13 ) / 'CO2 ' / DATA GAS_CHEM_SPC( 14 ) / 'HNO4 ' / DATA GAS_CHEM_SPC( 15 ) / 'HO2H ' / DATA GAS_CHEM_SPC( 16 ) / 'SO2 ' / DATA GAS_CHEM_SPC( 17 ) / 'SULF ' / DATA GAS_CHEM_SPC( 18 ) / 'SULRXN ' / DATA GAS_CHEM_SPC( 19 ) / 'MEO2 ' / DATA GAS_CHEM_SPC( 20 ) / 'HCHO ' / DATA GAS_CHEM_SPC( 21 ) / 'COOH ' / DATA GAS_CHEM_SPC( 22 ) / 'MEOH ' / DATA GAS_CHEM_SPC( 23 ) / 'RO2C ' / DATA GAS_CHEM_SPC( 24 ) / 'RO2XC ' / DATA GAS_CHEM_SPC( 25 ) / 'MECO3 ' / DATA GAS_CHEM_SPC( 26 ) / 'PAN ' / DATA GAS_CHEM_SPC( 27 ) / 'CCOOOH ' / DATA GAS_CHEM_SPC( 28 ) / 'CCOOH ' / DATA GAS_CHEM_SPC( 29 ) / 'RCO3 ' / DATA GAS_CHEM_SPC( 30 ) / 'PAN2 ' / DATA GAS_CHEM_SPC( 31 ) / 'xHO2 ' / DATA GAS_CHEM_SPC( 32 ) / 'yROOH ' / DATA GAS_CHEM_SPC( 33 ) / 'xCCHO ' / DATA GAS_CHEM_SPC( 34 ) / 'RCOOOH ' / DATA GAS_CHEM_SPC( 35 ) / 'RCOOH ' / DATA GAS_CHEM_SPC( 36 ) / 'BZCO3 ' / DATA GAS_CHEM_SPC( 37 ) / 'PBZN ' / DATA GAS_CHEM_SPC( 38 ) / 'BZO ' / DATA GAS_CHEM_SPC( 39 ) / 'MACO3 ' / DATA GAS_CHEM_SPC( 40 ) / 'MAPAN ' / DATA GAS_CHEM_SPC( 41 ) / 'TBUO ' / DATA GAS_CHEM_SPC( 42 ) / 'RNO3 ' / DATA GAS_CHEM_SPC( 43 ) / 'ACETONE ' / DATA GAS_CHEM_SPC( 44 ) / 'NPHE ' / DATA GAS_CHEM_SPC( 45 ) / 'CRES ' / DATA GAS_CHEM_SPC( 46 ) / 'xOH ' / DATA GAS_CHEM_SPC( 47 ) / 'xNO2 ' / DATA GAS_CHEM_SPC( 48 ) / 'xMEO2 ' / DATA GAS_CHEM_SPC( 49 ) / 'xMECO3 ' / DATA GAS_CHEM_SPC( 50 ) / 'xRCO3 ' / DATA GAS_CHEM_SPC( 51 ) / 'xMACO3 ' / DATA GAS_CHEM_SPC( 52 ) / 'xTBUO ' / DATA GAS_CHEM_SPC( 53 ) / 'xCO ' / DATA GAS_CHEM_SPC( 54 ) / 'CCHO ' / DATA GAS_CHEM_SPC( 55 ) / 'RCHO ' / DATA GAS_CHEM_SPC( 56 ) / 'xHCHO ' / DATA GAS_CHEM_SPC( 57 ) / 'MEK ' / DATA GAS_CHEM_SPC( 58 ) / 'zRNO3 ' / DATA GAS_CHEM_SPC( 59 ) / 'xRCHO ' / DATA GAS_CHEM_SPC( 60 ) / 'HCOOH ' / DATA GAS_CHEM_SPC( 61 ) / 'xMGLY ' / DATA GAS_CHEM_SPC( 62 ) / 'xBACL ' / DATA GAS_CHEM_SPC( 63 ) / 'ROOH ' / DATA GAS_CHEM_SPC( 64 ) / 'xPROD2 ' / DATA GAS_CHEM_SPC( 65 ) / 'R6OOH ' / DATA GAS_CHEM_SPC( 66 ) / 'PRD2 ' / DATA GAS_CHEM_SPC( 67 ) / 'yR6OOH ' / DATA GAS_CHEM_SPC( 68 ) / 'RAOOH ' / DATA GAS_CHEM_SPC( 69 ) / 'MGLY ' / DATA GAS_CHEM_SPC( 70 ) / 'IPRD ' / DATA GAS_CHEM_SPC( 71 ) / 'xGLY ' / DATA GAS_CHEM_SPC( 72 ) / 'xMEK ' / DATA GAS_CHEM_SPC( 73 ) / 'xAFG1 ' / DATA GAS_CHEM_SPC( 74 ) / 'xAFG2 ' / DATA GAS_CHEM_SPC( 75 ) / 'GLY ' / DATA GAS_CHEM_SPC( 76 ) / 'AFG1 ' / DATA GAS_CHEM_SPC( 77 ) / 'AFG2 ' / DATA GAS_CHEM_SPC( 78 ) / 'HCOCO3 ' / DATA GAS_CHEM_SPC( 79 ) / 'BACL ' / DATA GAS_CHEM_SPC( 80 ) / 'BALD ' / DATA GAS_CHEM_SPC( 81 ) / 'AFG3 ' / DATA GAS_CHEM_SPC( 82 ) / 'xIPRD ' / DATA GAS_CHEM_SPC( 83 ) / 'MACR ' / DATA GAS_CHEM_SPC( 84 ) / 'MVK ' / DATA GAS_CHEM_SPC( 85 ) / 'xHOCCHO ' / DATA GAS_CHEM_SPC( 86 ) / 'xRNO3 ' / DATA GAS_CHEM_SPC( 87 ) / 'HOCCHO ' / DATA GAS_CHEM_SPC( 88 ) / 'xACETONE ' / DATA GAS_CHEM_SPC( 89 ) / 'ACROLEIN ' / DATA GAS_CHEM_SPC( 90 ) / 'xBALD ' / DATA GAS_CHEM_SPC( 91 ) / 'xAFG3 ' / DATA GAS_CHEM_SPC( 92 ) / 'xMACR ' / DATA GAS_CHEM_SPC( 93 ) / 'xMVK ' / DATA GAS_CHEM_SPC( 94 ) / 'yISOPOOH ' / DATA GAS_CHEM_SPC( 95 ) / 'ISOPOOH ' / DATA GAS_CHEM_SPC( 96 ) / 'yRAOOH ' / DATA GAS_CHEM_SPC( 97 ) / 'xACROLEIN ' / DATA GAS_CHEM_SPC( 98 ) / 'ETHENE ' / DATA GAS_CHEM_SPC( 99 ) / 'PROPENE ' / DATA GAS_CHEM_SPC( 100 ) / 'BUTADIENE13 ' / DATA GAS_CHEM_SPC( 101 ) / 'ISOPRENE ' / DATA GAS_CHEM_SPC( 102 ) / 'ISOPRXN ' / DATA GAS_CHEM_SPC( 103 ) / 'IEPOX ' / DATA GAS_CHEM_SPC( 104 ) / 'ARO2MN ' / DATA GAS_CHEM_SPC( 105 ) / 'IEPOXOO ' / DATA GAS_CHEM_SPC( 106 ) / 'APIN ' / DATA GAS_CHEM_SPC( 107 ) / 'TRPRXN ' / DATA GAS_CHEM_SPC( 108 ) / 'ACETYLENE ' / DATA GAS_CHEM_SPC( 109 ) / 'BENZENE ' / DATA GAS_CHEM_SPC( 110 ) / 'BENZRO2 ' / DATA GAS_CHEM_SPC( 111 ) / 'TOLUENE ' / DATA GAS_CHEM_SPC( 112 ) / 'TOLRO2 ' / DATA GAS_CHEM_SPC( 113 ) / 'MXYL ' / DATA GAS_CHEM_SPC( 114 ) / 'XYLRO2 ' / DATA GAS_CHEM_SPC( 115 ) / 'OXYL ' / DATA GAS_CHEM_SPC( 116 ) / 'PXYL ' / DATA GAS_CHEM_SPC( 117 ) / 'TMBENZ124 ' / DATA GAS_CHEM_SPC( 118 ) / 'ETOH ' / DATA GAS_CHEM_SPC( 119 ) / 'ALK1 ' / DATA GAS_CHEM_SPC( 120 ) / 'ALK2 ' / DATA GAS_CHEM_SPC( 121 ) / 'ALK3 ' / DATA GAS_CHEM_SPC( 122 ) / 'ALK4 ' / DATA GAS_CHEM_SPC( 123 ) / 'ALK5 ' / DATA GAS_CHEM_SPC( 124 ) / 'SOAALK ' / DATA GAS_CHEM_SPC( 125 ) / 'ALKRXN ' / DATA GAS_CHEM_SPC( 126 ) / 'OLE1 ' / DATA GAS_CHEM_SPC( 127 ) / 'OLE2 ' / DATA GAS_CHEM_SPC( 128 ) / 'ARO1 ' / DATA GAS_CHEM_SPC( 129 ) / 'NAPHTHAL ' / DATA GAS_CHEM_SPC( 130 ) / 'PAHRO2 ' / DATA GAS_CHEM_SPC( 131 ) / 'TERP ' / DATA GAS_CHEM_SPC( 132 ) / 'SESQ ' / DATA GAS_CHEM_SPC( 133 ) / 'SESQRXN ' / DATA GAS_CHEM_SPC( 134 ) / 'CL2 ' / DATA GAS_CHEM_SPC( 135 ) / 'CL ' / DATA GAS_CHEM_SPC( 136 ) / 'CLNO ' / DATA GAS_CHEM_SPC( 137 ) / 'CLONO ' / DATA GAS_CHEM_SPC( 138 ) / 'CLNO2 ' / DATA GAS_CHEM_SPC( 139 ) / 'HCL ' / DATA GAS_CHEM_SPC( 140 ) / 'CLO ' / DATA GAS_CHEM_SPC( 141 ) / 'CLONO2 ' / DATA GAS_CHEM_SPC( 142 ) / 'HOCL ' / DATA GAS_CHEM_SPC( 143 ) / 'xCL ' / DATA GAS_CHEM_SPC( 144 ) / 'xCLCCHO ' / DATA GAS_CHEM_SPC( 145 ) / 'xCLACET ' / DATA GAS_CHEM_SPC( 146 ) / 'CLCCHO ' / DATA GAS_CHEM_SPC( 147 ) / 'CLACET ' / DATA GAS_CHEM_SPC( 148 ) / 'CLCHO ' / DATA GAS_CHEM_SPC( 149 ) / 'BNZNRXN ' / DATA GAS_CHEM_SPC( 150 ) / 'BNZHRXN ' / DATA GAS_CHEM_SPC( 151 ) / 'XYLNRXN ' / DATA GAS_CHEM_SPC( 152 ) / 'XYLHRXN ' / DATA GAS_CHEM_SPC( 153 ) / 'TOLNRXN ' / DATA GAS_CHEM_SPC( 154 ) / 'TOLHRXN ' / DATA GAS_CHEM_SPC( 155 ) / 'PAHNRXN ' / DATA GAS_CHEM_SPC( 156 ) / 'PAHHRXN ' / DATA GAS_CHEM_SPC( 157 ) / 'HCHO_PRIMARY ' / DATA GAS_CHEM_SPC( 158 ) / 'CCHO_PRIMARY ' / DATA GAS_CHEM_SPC( 159 ) / 'ACRO_PRIMARY ' / DATA GAS_CHEM_SPC( 160 ) / 'H2NO3PIJ ' / DATA GAS_CHEM_SPC( 161 ) / 'H2NO3PK ' / DATA GAS_CHEM_SPC( 162 ) / 'PCVOC ' / DATA GAS_CHEM_SPC( 163 ) / 'PCSOARXN ' / DATA GAS_CHEM_SPC( 164 ) / 'VLVPO1 ' / DATA GAS_CHEM_SPC( 165 ) / 'VSVPO1 ' / DATA GAS_CHEM_SPC( 166 ) / 'VSVPO2 ' / DATA GAS_CHEM_SPC( 167 ) / 'VSVPO3 ' / DATA GAS_CHEM_SPC( 168 ) / 'VIVPO1 ' / DATA GAS_CHEM_SPC( 169 ) / 'VLVOO1 ' / DATA GAS_CHEM_SPC( 170 ) / 'VLVOO2 ' / DATA GAS_CHEM_SPC( 171 ) / 'VSVOO2 ' / DATA GAS_CHEM_SPC( 172 ) / 'VSVOO3 ' / DATA GAS_CHEM_SPC( 173 ) / 'VSVOO1 ' / LOGICAL :: HALOGEN_PARAMETER = .TRUE. ! The below character and integer arrays list the model species names used in the ! chemical mechanism. The gas species and their order should agree with ! the GC_SPC array for the gas phase chemistry to work correctly. ! If present, the CHEMISTRY_SPC names and species type should agree with the CGRID_SPCS module ! MAPPED_TO_CGRID declares whether CMAQ namelists were used to determine ! the below values of CGRID_INDEX, SPECIES_TYPE, SPECIES_MOLWT, and CONVERT_CONC LOGICAL, PARAMETER, PRIVATE :: F = .FALSE. LOGICAL, PARAMETER, PRIVATE :: T = .TRUE. LOGICAL :: MAPPED_TO_CGRID = .FALSE. TYPE MEMBER CHARACTER( 16 ) :: CHEMISTRY_SPC INTEGER :: CGRID_INDEX CHARACTER( 2 ) :: SPECIES_TYPE REAL( 8 ) :: SPECIES_MOLWT LOGICAL :: CONVERT_CONC END TYPE MEMBER TYPE( MEMBER ) :: SPECIES_LIST( NUMB_MECH_SPC ) = (/ & & MEMBER("NO2 ", 1, "GC", 46.00D0, F), & & MEMBER("NO ", 2, "GC", 30.00D0, F), & & MEMBER("O3P ", 3, "GC", 16.00D0, F), & & MEMBER("O3 ", 4, "GC", 48.00D0, F), & & MEMBER("NO3 ", 5, "GC", 62.00D0, F), & & MEMBER("N2O5 ", 6, "GC", 108.00D0, F), & & MEMBER("HNO3 ", 7, "GC", 63.00D0, F), & & MEMBER("O1D ", 8, "GC", 16.00D0, F), & & MEMBER("OH ", 9, "GC", 17.00D0, F), & & MEMBER("HONO ", 10, "GC", 47.00D0, F), & & MEMBER("HO2 ", 11, "GC", 33.00D0, F), & & MEMBER("CO ", 12, "GC", 28.00D0, F), & & MEMBER("CO2 ", 13, "GC", 44.00D0, F), & & MEMBER("HNO4 ", 14, "GC", 79.00D0, F), & & MEMBER("HO2H ", 15, "GC", 34.00D0, F), & & MEMBER("SO2 ", 16, "GC", 64.10D0, F), & & MEMBER("SULF ", 17, "GC", 98.10D0, F), & & MEMBER("SULRXN ", 18, "GC", 98.10D0, F), & & MEMBER("MEO2 ", 19, "GC", 47.00D0, F), & & MEMBER("HCHO ", 20, "GC", 30.00D0, F), & & MEMBER("COOH ", 21, "GC", 48.00D0, F), & & MEMBER("MEOH ", 22, "GC", 32.00D0, F), & & MEMBER("RO2C ", 23, "GC", 1.00D0, F), & & MEMBER("RO2XC ", 24, "GC", 1.00D0, F), & & MEMBER("MECO3 ", 25, "GC", 75.00D0, F), & & MEMBER("PAN ", 26, "GC", 121.10D0, F), & & MEMBER("CCOOOH ", 27, "GC", 76.00D0, F), & & MEMBER("CCOOH ", 28, "GC", 60.10D0, F), & & MEMBER("RCO3 ", 29, "GC", 89.10D0, F), & & MEMBER("PAN2 ", 30, "GC", 135.10D0, F), & & MEMBER("xHO2 ", 31, "GC", 33.00D0, F), & & MEMBER("yROOH ", 32, "GC", 76.10D0, F), & & MEMBER("xCCHO ", 33, "GC", 44.10D0, F), & & MEMBER("RCOOOH ", 34, "GC", 74.10D0, F), & & MEMBER("RCOOH ", 35, "GC", 74.10D0, F), & & MEMBER("BZCO3 ", 36, "GC", 137.10D0, F), & & MEMBER("PBZN ", 37, "GC", 183.10D0, F), & & MEMBER("BZO ", 38, "GC", 93.00D0, F), & & MEMBER("MACO3 ", 39, "GC", 101.10D0, F), & & MEMBER("MAPAN ", 40, "GC", 147.10D0, F), & & MEMBER("TBUO ", 41, "GC", 73.00D0, F), & & MEMBER("RNO3 ", 42, "GC", 147.20D0, F), & & MEMBER("ACETONE ", 43, "GC", 58.10D0, F), & & MEMBER("NPHE ", 44, "GC", 139.10D0, F), & & MEMBER("CRES ", 45, "GC", 108.10D0, F), & & MEMBER("xOH ", 46, "GC", 17.00D0, F), & & MEMBER("xNO2 ", 47, "GC", 46.00D0, F), & & MEMBER("xMEO2 ", 48, "GC", 47.00D0, F), & & MEMBER("xMECO3 ", 49, "GC", 75.00D0, F), & & MEMBER("xRCO3 ", 50, "GC", 89.10D0, F), & & MEMBER("xMACO3 ", 51, "GC", 101.10D0, F), & & MEMBER("xTBUO ", 52, "GC", 73.00D0, F), & & MEMBER("xCO ", 53, "GC", 28.00D0, F), & & MEMBER("CCHO ", 54, "GC", 44.10D0, F), & & MEMBER("RCHO ", 55, "GC", 58.10D0, F), & & MEMBER("xHCHO ", 56, "GC", 30.00D0, F), & & MEMBER("MEK ", 57, "GC", 72.10D0, F), & & MEMBER("zRNO3 ", 58, "GC", 147.20D0, F), & & MEMBER("xRCHO ", 59, "GC", 58.10D0, F), & & MEMBER("HCOOH ", 60, "GC", 46.00D0, F), & & MEMBER("xMGLY ", 61, "GC", 72.10D0, F), & & MEMBER("xBACL ", 62, "GC", 86.10D0, F), & & MEMBER("ROOH ", 63, "GC", 76.10D0, F), & & MEMBER("xPROD2 ", 64, "GC", 116.20D0, F), & & MEMBER("R6OOH ", 65, "GC", 118.20D0, F), & & MEMBER("PRD2 ", 69, "GC", 116.20D0, F), & & MEMBER("yR6OOH ", 70, "GC", 118.20D0, F), & & MEMBER("RAOOH ", 72, "GC", 188.20D0, F), & & MEMBER("MGLY ", 73, "GC", 72.10D0, F), & & MEMBER("IPRD ", 74, "GC", 100.10D0, F), & & MEMBER("xGLY ", 75, "GC", 58.00D0, F), & & MEMBER("xMEK ", 76, "GC", 72.10D0, F), & & MEMBER("xAFG1 ", 77, "GC", 98.10D0, F), & & MEMBER("xAFG2 ", 78, "GC", 98.10D0, F), & & MEMBER("GLY ", 79, "GC", 58.00D0, F), & & MEMBER("AFG1 ", 80, "GC", 98.10D0, F), & & MEMBER("AFG2 ", 81, "GC", 98.10D0, F), & & MEMBER("HCOCO3 ", 82, "GC", 89.00D0, F), & & MEMBER("BACL ", 83, "GC", 86.10D0, F), & & MEMBER("BALD ", 84, "GC", 106.10D0, F), & & MEMBER("AFG3 ", 85, "GC", 124.10D0, F), & & MEMBER("xIPRD ", 86, "GC", 100.10D0, F), & & MEMBER("MACR ", 87, "GC", 70.10D0, F), & & MEMBER("MVK ", 88, "GC", 70.10D0, F), & & MEMBER("xHOCCHO ", 89, "GC", 60.10D0, F), & & MEMBER("xRNO3 ", 90, "GC", 147.20D0, F), & & MEMBER("HOCCHO ", 91, "GC", 60.10D0, F), & & MEMBER("xACETONE ", 92, "GC", 58.10D0, F), & & MEMBER("ACROLEIN ", 93, "GC", 56.10D0, F), & & MEMBER("xBALD ", 94, "GC", 106.10D0, F), & & MEMBER("xAFG3 ", 95, "GC", 124.70D0, F), & & MEMBER("xMACR ", 96, "GC", 70.10D0, F), & & MEMBER("xMVK ", 97, "GC", 70.10D0, F), & & MEMBER("yISOPOOH ", 71, "GC", 118.20D0, F), & & MEMBER("ISOPOOH ", 66, "GC", 118.20D0, F), & & MEMBER("yRAOOH ", 98, "GC", 188.20D0, F), & & MEMBER("xACROLEIN ", 99, "GC", 56.10D0, F), & & MEMBER("ETHENE ", 100, "GC", 28.10D0, F), & & MEMBER("PROPENE ", 101, "GC", 42.10D0, F), & & MEMBER("BUTADIENE13 ", 102, "GC", 54.10D0, F), & & MEMBER("ISOPRENE ", 103, "GC", 68.10D0, F), & & MEMBER("ISOPRXN ", 104, "GC", 68.00D0, F), & & MEMBER("IEPOX ", 67, "GC", 118.10D0, F), & & MEMBER("ARO2MN ", 128, "GC", 118.70D0, F), & & MEMBER("IEPOXOO ", 68, "GC", 149.10D0, F), & & MEMBER("APIN ", 105, "GC", 136.20D0, F), & & MEMBER("TRPRXN ", 106, "GC", 136.20D0, F), & & MEMBER("ACETYLENE ", 107, "GC", 26.00D0, F), & & MEMBER("BENZENE ", 108, "GC", 78.10D0, F), & & MEMBER("BENZRO2 ", 109, "GC", 159.10D0, F), & & MEMBER("TOLUENE ", 110, "GC", 92.10D0, F), & & MEMBER("TOLRO2 ", 111, "GC", 172.10D0, F), & & MEMBER("MXYL ", 112, "GC", 106.20D0, F), & & MEMBER("XYLRO2 ", 113, "GC", 187.20D0, F), & & MEMBER("OXYL ", 114, "GC", 106.20D0, F), & & MEMBER("PXYL ", 115, "GC", 106.20D0, F), & & MEMBER("TMBENZ124 ", 116, "GC", 120.20D0, F), & & MEMBER("ETOH ", 117, "GC", 46.10D0, F), & & MEMBER("ALK1 ", 118, "GC", 30.10D0, F), & & MEMBER("ALK2 ", 119, "GC", 36.70D0, F), & & MEMBER("ALK3 ", 120, "GC", 58.60D0, F), & & MEMBER("ALK4 ", 121, "GC", 77.60D0, F), & & MEMBER("ALK5 ", 122, "GC", 118.90D0, F), & & MEMBER("SOAALK ", 123, "GC", 112.00D0, F), & & MEMBER("ALKRXN ", 124, "GC", 112.00D0, F), & & MEMBER("OLE1 ", 125, "GC", 72.30D0, F), & & MEMBER("OLE2 ", 126, "GC", 75.80D0, F), & & MEMBER("ARO1 ", 127, "GC", 95.20D0, F), & & MEMBER("NAPHTHAL ", 129, "GC", 118.70D0, F), & & MEMBER("PAHRO2 ", 130, "GC", 187.20D0, F), & & MEMBER("TERP ", 131, "GC", 136.20D0, F), & & MEMBER("SESQ ", 132, "GC", 204.40D0, F), & & MEMBER("SESQRXN ", 133, "GC", 204.40D0, F), & & MEMBER("CL2 ", 134, "GC", 70.00D0, F), & & MEMBER("CL ", 135, "GC", 35.50D0, F), & & MEMBER("CLNO ", 136, "GC", 65.50D0, F), & & MEMBER("CLONO ", 137, "GC", 81.50D0, F), & & MEMBER("CLNO2 ", 138, "GC", 81.50D0, F), & & MEMBER("HCL ", 139, "GC", 36.50D0, F), & & MEMBER("CLO ", 140, "GC", 51.50D0, F), & & MEMBER("CLONO2 ", 141, "GC", 97.50D0, F), & & MEMBER("HOCL ", 142, "GC", 52.50D0, F), & & MEMBER("xCL ", 143, "GC", 35.50D0, F), & & MEMBER("xCLCCHO ", 144, "GC", 78.50D0, F), & & MEMBER("xCLACET ", 145, "GC", 92.50D0, F), & & MEMBER("CLCCHO ", 146, "GC", 78.50D0, F), & & MEMBER("CLACET ", 147, "GC", 92.50D0, F), & & MEMBER("CLCHO ", 148, "GC", 64.50D0, F), & & MEMBER("BNZNRXN ", 149, "GC", 159.10D0, F), & & MEMBER("BNZHRXN ", 150, "GC", 159.10D0, F), & & MEMBER("XYLNRXN ", 151, "GC", 187.20D0, F), & & MEMBER("XYLHRXN ", 152, "GC", 187.20D0, F), & & MEMBER("TOLNRXN ", 153, "GC", 172.10D0, F), & & MEMBER("TOLHRXN ", 154, "GC", 172.10D0, F), & & MEMBER("PAHNRXN ", 155, "GC", 172.10D0, F), & & MEMBER("PAHHRXN ", 156, "GC", 172.10D0, F), & & MEMBER("HCHO_PRIMARY ", 157, "GC", 30.00D0, F), & & MEMBER("CCHO_PRIMARY ", 158, "GC", 44.10D0, F), & & MEMBER("ACRO_PRIMARY ", 159, "GC", 56.10D0, F), & & MEMBER("H2NO3PIJ ", 160, "GC", 64.00D0, F), & & MEMBER("H2NO3PK ", 161, "GC", 64.00D0, F), & & MEMBER("ACLI ", 186, "AE", 35.50D0, T), & & MEMBER("ACLJ ", 187, "AE", 35.50D0, T), & & MEMBER("ACLK ", 188, "AE", 35.50D0, T), & & MEMBER("AXYL1J ", 191, "AE", 174.00D0, T), & & MEMBER("AOLGAJ ", 238, "AE", 206.00D0, T), & & MEMBER("AXYL2J ", 192, "AE", 185.00D0, T), & & MEMBER("ATOL1J ", 194, "AE", 163.00D0, T), & & MEMBER("ATOL2J ", 195, "AE", 175.00D0, T), & & MEMBER("ABNZ1J ", 197, "AE", 161.00D0, T), & & MEMBER("ABNZ2J ", 198, "AE", 134.00D0, T), & & MEMBER("ATRP1J ", 203, "AE", 177.00D0, T), & & MEMBER("AOLGBJ ", 239, "AE", 248.00D0, T), & & MEMBER("ATRP2J ", 204, "AE", 198.00D0, T), & & MEMBER("AISO1J ", 205, "AE", 132.00D0, T), & & MEMBER("AISO2J ", 206, "AE", 133.00D0, T), & & MEMBER("ASQTJ ", 207, "AE", 273.00D0, T), & & MEMBER("APAH1J ", 200, "AE", 195.60D0, T), & & MEMBER("APAH2J ", 201, "AE", 178.70D0, T), & & MEMBER("AALK1J ", 189, "AE", 225.00D0, T), & & MEMBER("AALK2J ", 190, "AE", 205.10D0, T), & & MEMBER("APOCI ", 240, "AE", 220.00D0, T), & & MEMBER("APNCOMI ", 242, "AE", 220.00D0, T), & & MEMBER("APOCJ ", 241, "AE", 220.00D0, T), & & MEMBER("APNCOMJ ", 243, "AE", 220.00D0, T), & & MEMBER("PCVOC ", 172, "GC", 170.00D0, F), & & MEMBER("PCSOARXN ", 173, "GC", 170.00D0, F), & & MEMBER("VLVPO1 ", 162, "GC", 218.00D0, F), & & MEMBER("VSVPO1 ", 163, "GC", 230.00D0, F), & & MEMBER("VSVPO2 ", 164, "GC", 241.00D0, F), & & MEMBER("VSVPO3 ", 165, "GC", 253.00D0, F), & & MEMBER("VIVPO1 ", 166, "GC", 266.00D0, F), & & MEMBER("VLVOO1 ", 167, "GC", 136.00D0, F), & & MEMBER("VLVOO2 ", 168, "GC", 136.00D0, F), & & MEMBER("VSVOO2 ", 170, "GC", 135.00D0, F), & & MEMBER("VSVOO3 ", 171, "GC", 134.00D0, F), & & MEMBER("VSVOO1 ", 169, "GC", 135.00D0, F), & & MEMBER("AISO3J ", 237, "AE", 168.20D0, T) /) DATA CHEMISTRY_SPC( 1 ), SPECIES_MOLWT( 1 ) / 'NO2 ', 46.00D0 / DATA CHEMISTRY_SPC( 2 ), SPECIES_MOLWT( 2 ) / 'NO ', 30.00D0 / DATA CHEMISTRY_SPC( 3 ), SPECIES_MOLWT( 3 ) / 'O3P ', 16.00D0 / DATA CHEMISTRY_SPC( 4 ), SPECIES_MOLWT( 4 ) / 'O3 ', 48.00D0 / DATA CHEMISTRY_SPC( 5 ), SPECIES_MOLWT( 5 ) / 'NO3 ', 62.00D0 / DATA CHEMISTRY_SPC( 6 ), SPECIES_MOLWT( 6 ) / 'N2O5 ', 108.00D0 / DATA CHEMISTRY_SPC( 7 ), SPECIES_MOLWT( 7 ) / 'HNO3 ', 63.00D0 / DATA CHEMISTRY_SPC( 8 ), SPECIES_MOLWT( 8 ) / 'O1D ', 16.00D0 / DATA CHEMISTRY_SPC( 9 ), SPECIES_MOLWT( 9 ) / 'OH ', 17.00D0 / DATA CHEMISTRY_SPC( 10 ), SPECIES_MOLWT( 10 ) / 'HONO ', 47.00D0 / DATA CHEMISTRY_SPC( 11 ), SPECIES_MOLWT( 11 ) / 'HO2 ', 33.00D0 / DATA CHEMISTRY_SPC( 12 ), SPECIES_MOLWT( 12 ) / 'CO ', 28.00D0 / DATA CHEMISTRY_SPC( 13 ), SPECIES_MOLWT( 13 ) / 'CO2 ', 44.00D0 / DATA CHEMISTRY_SPC( 14 ), SPECIES_MOLWT( 14 ) / 'HNO4 ', 79.00D0 / DATA CHEMISTRY_SPC( 15 ), SPECIES_MOLWT( 15 ) / 'HO2H ', 34.00D0 / DATA CHEMISTRY_SPC( 16 ), SPECIES_MOLWT( 16 ) / 'SO2 ', 64.10D0 / DATA CHEMISTRY_SPC( 17 ), SPECIES_MOLWT( 17 ) / 'SULF ', 98.10D0 / DATA CHEMISTRY_SPC( 18 ), SPECIES_MOLWT( 18 ) / 'SULRXN ', 98.10D0 / DATA CHEMISTRY_SPC( 19 ), SPECIES_MOLWT( 19 ) / 'MEO2 ', 47.00D0 / DATA CHEMISTRY_SPC( 20 ), SPECIES_MOLWT( 20 ) / 'HCHO ', 30.00D0 / DATA CHEMISTRY_SPC( 21 ), SPECIES_MOLWT( 21 ) / 'COOH ', 48.00D0 / DATA CHEMISTRY_SPC( 22 ), SPECIES_MOLWT( 22 ) / 'MEOH ', 32.00D0 / DATA CHEMISTRY_SPC( 23 ), SPECIES_MOLWT( 23 ) / 'RO2C ', 1.00D0 / DATA CHEMISTRY_SPC( 24 ), SPECIES_MOLWT( 24 ) / 'RO2XC ', 1.00D0 / DATA CHEMISTRY_SPC( 25 ), SPECIES_MOLWT( 25 ) / 'MECO3 ', 75.00D0 / DATA CHEMISTRY_SPC( 26 ), SPECIES_MOLWT( 26 ) / 'PAN ', 121.10D0 / DATA CHEMISTRY_SPC( 27 ), SPECIES_MOLWT( 27 ) / 'CCOOOH ', 76.00D0 / DATA CHEMISTRY_SPC( 28 ), SPECIES_MOLWT( 28 ) / 'CCOOH ', 60.10D0 / DATA CHEMISTRY_SPC( 29 ), SPECIES_MOLWT( 29 ) / 'RCO3 ', 89.10D0 / DATA CHEMISTRY_SPC( 30 ), SPECIES_MOLWT( 30 ) / 'PAN2 ', 135.10D0 / DATA CHEMISTRY_SPC( 31 ), SPECIES_MOLWT( 31 ) / 'xHO2 ', 33.00D0 / DATA CHEMISTRY_SPC( 32 ), SPECIES_MOLWT( 32 ) / 'yROOH ', 76.10D0 / DATA CHEMISTRY_SPC( 33 ), SPECIES_MOLWT( 33 ) / 'xCCHO ', 44.10D0 / DATA CHEMISTRY_SPC( 34 ), SPECIES_MOLWT( 34 ) / 'RCOOOH ', 74.10D0 / DATA CHEMISTRY_SPC( 35 ), SPECIES_MOLWT( 35 ) / 'RCOOH ', 74.10D0 / DATA CHEMISTRY_SPC( 36 ), SPECIES_MOLWT( 36 ) / 'BZCO3 ', 137.10D0 / DATA CHEMISTRY_SPC( 37 ), SPECIES_MOLWT( 37 ) / 'PBZN ', 183.10D0 / DATA CHEMISTRY_SPC( 38 ), SPECIES_MOLWT( 38 ) / 'BZO ', 93.00D0 / DATA CHEMISTRY_SPC( 39 ), SPECIES_MOLWT( 39 ) / 'MACO3 ', 101.10D0 / DATA CHEMISTRY_SPC( 40 ), SPECIES_MOLWT( 40 ) / 'MAPAN ', 147.10D0 / DATA CHEMISTRY_SPC( 41 ), SPECIES_MOLWT( 41 ) / 'TBUO ', 73.00D0 / DATA CHEMISTRY_SPC( 42 ), SPECIES_MOLWT( 42 ) / 'RNO3 ', 147.20D0 / DATA CHEMISTRY_SPC( 43 ), SPECIES_MOLWT( 43 ) / 'ACETONE ', 58.10D0 / DATA CHEMISTRY_SPC( 44 ), SPECIES_MOLWT( 44 ) / 'NPHE ', 139.10D0 / DATA CHEMISTRY_SPC( 45 ), SPECIES_MOLWT( 45 ) / 'CRES ', 108.10D0 / DATA CHEMISTRY_SPC( 46 ), SPECIES_MOLWT( 46 ) / 'xOH ', 17.00D0 / DATA CHEMISTRY_SPC( 47 ), SPECIES_MOLWT( 47 ) / 'xNO2 ', 46.00D0 / DATA CHEMISTRY_SPC( 48 ), SPECIES_MOLWT( 48 ) / 'xMEO2 ', 47.00D0 / DATA CHEMISTRY_SPC( 49 ), SPECIES_MOLWT( 49 ) / 'xMECO3 ', 75.00D0 / DATA CHEMISTRY_SPC( 50 ), SPECIES_MOLWT( 50 ) / 'xRCO3 ', 89.10D0 / DATA CHEMISTRY_SPC( 51 ), SPECIES_MOLWT( 51 ) / 'xMACO3 ', 101.10D0 / DATA CHEMISTRY_SPC( 52 ), SPECIES_MOLWT( 52 ) / 'xTBUO ', 73.00D0 / DATA CHEMISTRY_SPC( 53 ), SPECIES_MOLWT( 53 ) / 'xCO ', 28.00D0 / DATA CHEMISTRY_SPC( 54 ), SPECIES_MOLWT( 54 ) / 'CCHO ', 44.10D0 / DATA CHEMISTRY_SPC( 55 ), SPECIES_MOLWT( 55 ) / 'RCHO ', 58.10D0 / DATA CHEMISTRY_SPC( 56 ), SPECIES_MOLWT( 56 ) / 'xHCHO ', 30.00D0 / DATA CHEMISTRY_SPC( 57 ), SPECIES_MOLWT( 57 ) / 'MEK ', 72.10D0 / DATA CHEMISTRY_SPC( 58 ), SPECIES_MOLWT( 58 ) / 'zRNO3 ', 147.20D0 / DATA CHEMISTRY_SPC( 59 ), SPECIES_MOLWT( 59 ) / 'xRCHO ', 58.10D0 / DATA CHEMISTRY_SPC( 60 ), SPECIES_MOLWT( 60 ) / 'HCOOH ', 46.00D0 / DATA CHEMISTRY_SPC( 61 ), SPECIES_MOLWT( 61 ) / 'xMGLY ', 72.10D0 / DATA CHEMISTRY_SPC( 62 ), SPECIES_MOLWT( 62 ) / 'xBACL ', 86.10D0 / DATA CHEMISTRY_SPC( 63 ), SPECIES_MOLWT( 63 ) / 'ROOH ', 76.10D0 / DATA CHEMISTRY_SPC( 64 ), SPECIES_MOLWT( 64 ) / 'xPROD2 ', 116.20D0 / DATA CHEMISTRY_SPC( 65 ), SPECIES_MOLWT( 65 ) / 'R6OOH ', 118.20D0 / DATA CHEMISTRY_SPC( 66 ), SPECIES_MOLWT( 66 ) / 'PRD2 ', 116.20D0 / DATA CHEMISTRY_SPC( 67 ), SPECIES_MOLWT( 67 ) / 'yR6OOH ', 118.20D0 / DATA CHEMISTRY_SPC( 68 ), SPECIES_MOLWT( 68 ) / 'RAOOH ', 188.20D0 / DATA CHEMISTRY_SPC( 69 ), SPECIES_MOLWT( 69 ) / 'MGLY ', 72.10D0 / DATA CHEMISTRY_SPC( 70 ), SPECIES_MOLWT( 70 ) / 'IPRD ', 100.10D0 / DATA CHEMISTRY_SPC( 71 ), SPECIES_MOLWT( 71 ) / 'xGLY ', 58.00D0 / DATA CHEMISTRY_SPC( 72 ), SPECIES_MOLWT( 72 ) / 'xMEK ', 72.10D0 / DATA CHEMISTRY_SPC( 73 ), SPECIES_MOLWT( 73 ) / 'xAFG1 ', 98.10D0 / DATA CHEMISTRY_SPC( 74 ), SPECIES_MOLWT( 74 ) / 'xAFG2 ', 98.10D0 / DATA CHEMISTRY_SPC( 75 ), SPECIES_MOLWT( 75 ) / 'GLY ', 58.00D0 / DATA CHEMISTRY_SPC( 76 ), SPECIES_MOLWT( 76 ) / 'AFG1 ', 98.10D0 / DATA CHEMISTRY_SPC( 77 ), SPECIES_MOLWT( 77 ) / 'AFG2 ', 98.10D0 / DATA CHEMISTRY_SPC( 78 ), SPECIES_MOLWT( 78 ) / 'HCOCO3 ', 89.00D0 / DATA CHEMISTRY_SPC( 79 ), SPECIES_MOLWT( 79 ) / 'BACL ', 86.10D0 / DATA CHEMISTRY_SPC( 80 ), SPECIES_MOLWT( 80 ) / 'BALD ', 106.10D0 / DATA CHEMISTRY_SPC( 81 ), SPECIES_MOLWT( 81 ) / 'AFG3 ', 124.10D0 / DATA CHEMISTRY_SPC( 82 ), SPECIES_MOLWT( 82 ) / 'xIPRD ', 100.10D0 / DATA CHEMISTRY_SPC( 83 ), SPECIES_MOLWT( 83 ) / 'MACR ', 70.10D0 / DATA CHEMISTRY_SPC( 84 ), SPECIES_MOLWT( 84 ) / 'MVK ', 70.10D0 / DATA CHEMISTRY_SPC( 85 ), SPECIES_MOLWT( 85 ) / 'xHOCCHO ', 60.10D0 / DATA CHEMISTRY_SPC( 86 ), SPECIES_MOLWT( 86 ) / 'xRNO3 ', 147.20D0 / DATA CHEMISTRY_SPC( 87 ), SPECIES_MOLWT( 87 ) / 'HOCCHO ', 60.10D0 / DATA CHEMISTRY_SPC( 88 ), SPECIES_MOLWT( 88 ) / 'xACETONE ', 58.10D0 / DATA CHEMISTRY_SPC( 89 ), SPECIES_MOLWT( 89 ) / 'ACROLEIN ', 56.10D0 / DATA CHEMISTRY_SPC( 90 ), SPECIES_MOLWT( 90 ) / 'xBALD ', 106.10D0 / DATA CHEMISTRY_SPC( 91 ), SPECIES_MOLWT( 91 ) / 'xAFG3 ', 124.70D0 / DATA CHEMISTRY_SPC( 92 ), SPECIES_MOLWT( 92 ) / 'xMACR ', 70.10D0 / DATA CHEMISTRY_SPC( 93 ), SPECIES_MOLWT( 93 ) / 'xMVK ', 70.10D0 / DATA CHEMISTRY_SPC( 94 ), SPECIES_MOLWT( 94 ) / 'yISOPOOH ', 118.20D0 / DATA CHEMISTRY_SPC( 95 ), SPECIES_MOLWT( 95 ) / 'ISOPOOH ', 118.20D0 / DATA CHEMISTRY_SPC( 96 ), SPECIES_MOLWT( 96 ) / 'yRAOOH ', 188.20D0 / DATA CHEMISTRY_SPC( 97 ), SPECIES_MOLWT( 97 ) / 'xACROLEIN ', 56.10D0 / DATA CHEMISTRY_SPC( 98 ), SPECIES_MOLWT( 98 ) / 'ETHENE ', 28.10D0 / DATA CHEMISTRY_SPC( 99 ), SPECIES_MOLWT( 99 ) / 'PROPENE ', 42.10D0 / DATA CHEMISTRY_SPC( 100 ), SPECIES_MOLWT( 100 ) / 'BUTADIENE13 ', 54.10D0 / DATA CHEMISTRY_SPC( 101 ), SPECIES_MOLWT( 101 ) / 'ISOPRENE ', 68.10D0 / DATA CHEMISTRY_SPC( 102 ), SPECIES_MOLWT( 102 ) / 'ISOPRXN ', 68.00D0 / DATA CHEMISTRY_SPC( 103 ), SPECIES_MOLWT( 103 ) / 'IEPOX ', 118.10D0 / DATA CHEMISTRY_SPC( 104 ), SPECIES_MOLWT( 104 ) / 'ARO2MN ', 118.70D0 / DATA CHEMISTRY_SPC( 105 ), SPECIES_MOLWT( 105 ) / 'IEPOXOO ', 149.10D0 / DATA CHEMISTRY_SPC( 106 ), SPECIES_MOLWT( 106 ) / 'APIN ', 136.20D0 / DATA CHEMISTRY_SPC( 107 ), SPECIES_MOLWT( 107 ) / 'TRPRXN ', 136.20D0 / DATA CHEMISTRY_SPC( 108 ), SPECIES_MOLWT( 108 ) / 'ACETYLENE ', 26.00D0 / DATA CHEMISTRY_SPC( 109 ), SPECIES_MOLWT( 109 ) / 'BENZENE ', 78.10D0 / DATA CHEMISTRY_SPC( 110 ), SPECIES_MOLWT( 110 ) / 'BENZRO2 ', 159.10D0 / DATA CHEMISTRY_SPC( 111 ), SPECIES_MOLWT( 111 ) / 'TOLUENE ', 92.10D0 / DATA CHEMISTRY_SPC( 112 ), SPECIES_MOLWT( 112 ) / 'TOLRO2 ', 172.10D0 / DATA CHEMISTRY_SPC( 113 ), SPECIES_MOLWT( 113 ) / 'MXYL ', 106.20D0 / DATA CHEMISTRY_SPC( 114 ), SPECIES_MOLWT( 114 ) / 'XYLRO2 ', 187.20D0 / DATA CHEMISTRY_SPC( 115 ), SPECIES_MOLWT( 115 ) / 'OXYL ', 106.20D0 / DATA CHEMISTRY_SPC( 116 ), SPECIES_MOLWT( 116 ) / 'PXYL ', 106.20D0 / DATA CHEMISTRY_SPC( 117 ), SPECIES_MOLWT( 117 ) / 'TMBENZ124 ', 120.20D0 / DATA CHEMISTRY_SPC( 118 ), SPECIES_MOLWT( 118 ) / 'ETOH ', 46.10D0 / DATA CHEMISTRY_SPC( 119 ), SPECIES_MOLWT( 119 ) / 'ALK1 ', 30.10D0 / DATA CHEMISTRY_SPC( 120 ), SPECIES_MOLWT( 120 ) / 'ALK2 ', 36.70D0 / DATA CHEMISTRY_SPC( 121 ), SPECIES_MOLWT( 121 ) / 'ALK3 ', 58.60D0 / DATA CHEMISTRY_SPC( 122 ), SPECIES_MOLWT( 122 ) / 'ALK4 ', 77.60D0 / DATA CHEMISTRY_SPC( 123 ), SPECIES_MOLWT( 123 ) / 'ALK5 ', 118.90D0 / DATA CHEMISTRY_SPC( 124 ), SPECIES_MOLWT( 124 ) / 'SOAALK ', 112.00D0 / DATA CHEMISTRY_SPC( 125 ), SPECIES_MOLWT( 125 ) / 'ALKRXN ', 112.00D0 / DATA CHEMISTRY_SPC( 126 ), SPECIES_MOLWT( 126 ) / 'OLE1 ', 72.30D0 / DATA CHEMISTRY_SPC( 127 ), SPECIES_MOLWT( 127 ) / 'OLE2 ', 75.80D0 / DATA CHEMISTRY_SPC( 128 ), SPECIES_MOLWT( 128 ) / 'ARO1 ', 95.20D0 / DATA CHEMISTRY_SPC( 129 ), SPECIES_MOLWT( 129 ) / 'NAPHTHAL ', 118.70D0 / DATA CHEMISTRY_SPC( 130 ), SPECIES_MOLWT( 130 ) / 'PAHRO2 ', 187.20D0 / DATA CHEMISTRY_SPC( 131 ), SPECIES_MOLWT( 131 ) / 'TERP ', 136.20D0 / DATA CHEMISTRY_SPC( 132 ), SPECIES_MOLWT( 132 ) / 'SESQ ', 204.40D0 / DATA CHEMISTRY_SPC( 133 ), SPECIES_MOLWT( 133 ) / 'SESQRXN ', 204.40D0 / DATA CHEMISTRY_SPC( 134 ), SPECIES_MOLWT( 134 ) / 'CL2 ', 70.00D0 / DATA CHEMISTRY_SPC( 135 ), SPECIES_MOLWT( 135 ) / 'CL ', 35.50D0 / DATA CHEMISTRY_SPC( 136 ), SPECIES_MOLWT( 136 ) / 'CLNO ', 65.50D0 / DATA CHEMISTRY_SPC( 137 ), SPECIES_MOLWT( 137 ) / 'CLONO ', 81.50D0 / DATA CHEMISTRY_SPC( 138 ), SPECIES_MOLWT( 138 ) / 'CLNO2 ', 81.50D0 / DATA CHEMISTRY_SPC( 139 ), SPECIES_MOLWT( 139 ) / 'HCL ', 36.50D0 / DATA CHEMISTRY_SPC( 140 ), SPECIES_MOLWT( 140 ) / 'CLO ', 51.50D0 / DATA CHEMISTRY_SPC( 141 ), SPECIES_MOLWT( 141 ) / 'CLONO2 ', 97.50D0 / DATA CHEMISTRY_SPC( 142 ), SPECIES_MOLWT( 142 ) / 'HOCL ', 52.50D0 / DATA CHEMISTRY_SPC( 143 ), SPECIES_MOLWT( 143 ) / 'xCL ', 35.50D0 / DATA CHEMISTRY_SPC( 144 ), SPECIES_MOLWT( 144 ) / 'xCLCCHO ', 78.50D0 / DATA CHEMISTRY_SPC( 145 ), SPECIES_MOLWT( 145 ) / 'xCLACET ', 92.50D0 / DATA CHEMISTRY_SPC( 146 ), SPECIES_MOLWT( 146 ) / 'CLCCHO ', 78.50D0 / DATA CHEMISTRY_SPC( 147 ), SPECIES_MOLWT( 147 ) / 'CLACET ', 92.50D0 / DATA CHEMISTRY_SPC( 148 ), SPECIES_MOLWT( 148 ) / 'CLCHO ', 64.50D0 / DATA CHEMISTRY_SPC( 149 ), SPECIES_MOLWT( 149 ) / 'BNZNRXN ', 159.10D0 / DATA CHEMISTRY_SPC( 150 ), SPECIES_MOLWT( 150 ) / 'BNZHRXN ', 159.10D0 / DATA CHEMISTRY_SPC( 151 ), SPECIES_MOLWT( 151 ) / 'XYLNRXN ', 187.20D0 / DATA CHEMISTRY_SPC( 152 ), SPECIES_MOLWT( 152 ) / 'XYLHRXN ', 187.20D0 / DATA CHEMISTRY_SPC( 153 ), SPECIES_MOLWT( 153 ) / 'TOLNRXN ', 172.10D0 / DATA CHEMISTRY_SPC( 154 ), SPECIES_MOLWT( 154 ) / 'TOLHRXN ', 172.10D0 / DATA CHEMISTRY_SPC( 155 ), SPECIES_MOLWT( 155 ) / 'PAHNRXN ', 172.10D0 / DATA CHEMISTRY_SPC( 156 ), SPECIES_MOLWT( 156 ) / 'PAHHRXN ', 172.10D0 / DATA CHEMISTRY_SPC( 157 ), SPECIES_MOLWT( 157 ) / 'HCHO_PRIMARY ', 30.00D0 / DATA CHEMISTRY_SPC( 158 ), SPECIES_MOLWT( 158 ) / 'CCHO_PRIMARY ', 44.10D0 / DATA CHEMISTRY_SPC( 159 ), SPECIES_MOLWT( 159 ) / 'ACRO_PRIMARY ', 56.10D0 / DATA CHEMISTRY_SPC( 160 ), SPECIES_MOLWT( 160 ) / 'H2NO3PIJ ', 64.00D0 / DATA CHEMISTRY_SPC( 161 ), SPECIES_MOLWT( 161 ) / 'H2NO3PK ', 64.00D0 / DATA CHEMISTRY_SPC( 162 ), SPECIES_MOLWT( 162 ) / 'ACLI ', 35.50D0 / DATA CHEMISTRY_SPC( 163 ), SPECIES_MOLWT( 163 ) / 'ACLJ ', 35.50D0 / DATA CHEMISTRY_SPC( 164 ), SPECIES_MOLWT( 164 ) / 'ACLK ', 35.50D0 / DATA CHEMISTRY_SPC( 165 ), SPECIES_MOLWT( 165 ) / 'AXYL1J ', 174.00D0 / DATA CHEMISTRY_SPC( 166 ), SPECIES_MOLWT( 166 ) / 'AOLGAJ ', 206.00D0 / DATA CHEMISTRY_SPC( 167 ), SPECIES_MOLWT( 167 ) / 'AXYL2J ', 185.00D0 / DATA CHEMISTRY_SPC( 168 ), SPECIES_MOLWT( 168 ) / 'ATOL1J ', 163.00D0 / DATA CHEMISTRY_SPC( 169 ), SPECIES_MOLWT( 169 ) / 'ATOL2J ', 175.00D0 / DATA CHEMISTRY_SPC( 170 ), SPECIES_MOLWT( 170 ) / 'ABNZ1J ', 161.00D0 / DATA CHEMISTRY_SPC( 171 ), SPECIES_MOLWT( 171 ) / 'ABNZ2J ', 134.00D0 / DATA CHEMISTRY_SPC( 172 ), SPECIES_MOLWT( 172 ) / 'ATRP1J ', 177.00D0 / DATA CHEMISTRY_SPC( 173 ), SPECIES_MOLWT( 173 ) / 'AOLGBJ ', 248.00D0 / DATA CHEMISTRY_SPC( 174 ), SPECIES_MOLWT( 174 ) / 'ATRP2J ', 198.00D0 / DATA CHEMISTRY_SPC( 175 ), SPECIES_MOLWT( 175 ) / 'AISO1J ', 132.00D0 / DATA CHEMISTRY_SPC( 176 ), SPECIES_MOLWT( 176 ) / 'AISO2J ', 133.00D0 / DATA CHEMISTRY_SPC( 177 ), SPECIES_MOLWT( 177 ) / 'ASQTJ ', 273.00D0 / DATA CHEMISTRY_SPC( 178 ), SPECIES_MOLWT( 178 ) / 'APAH1J ', 195.60D0 / DATA CHEMISTRY_SPC( 179 ), SPECIES_MOLWT( 179 ) / 'APAH2J ', 178.70D0 / DATA CHEMISTRY_SPC( 180 ), SPECIES_MOLWT( 180 ) / 'AALK1J ', 225.00D0 / DATA CHEMISTRY_SPC( 181 ), SPECIES_MOLWT( 181 ) / 'AALK2J ', 205.10D0 / DATA CHEMISTRY_SPC( 182 ), SPECIES_MOLWT( 182 ) / 'APOCI ', 220.00D0 / DATA CHEMISTRY_SPC( 183 ), SPECIES_MOLWT( 183 ) / 'APNCOMI ', 220.00D0 / DATA CHEMISTRY_SPC( 184 ), SPECIES_MOLWT( 184 ) / 'APOCJ ', 220.00D0 / DATA CHEMISTRY_SPC( 185 ), SPECIES_MOLWT( 185 ) / 'APNCOMJ ', 220.00D0 / DATA CHEMISTRY_SPC( 186 ), SPECIES_MOLWT( 186 ) / 'PCVOC ', 170.00D0 / DATA CHEMISTRY_SPC( 187 ), SPECIES_MOLWT( 187 ) / 'PCSOARXN ', 170.00D0 / DATA CHEMISTRY_SPC( 188 ), SPECIES_MOLWT( 188 ) / 'VLVPO1 ', 218.00D0 / DATA CHEMISTRY_SPC( 189 ), SPECIES_MOLWT( 189 ) / 'VSVPO1 ', 230.00D0 / DATA CHEMISTRY_SPC( 190 ), SPECIES_MOLWT( 190 ) / 'VSVPO2 ', 241.00D0 / DATA CHEMISTRY_SPC( 191 ), SPECIES_MOLWT( 191 ) / 'VSVPO3 ', 253.00D0 / DATA CHEMISTRY_SPC( 192 ), SPECIES_MOLWT( 192 ) / 'VIVPO1 ', 266.00D0 / DATA CHEMISTRY_SPC( 193 ), SPECIES_MOLWT( 193 ) / 'VLVOO1 ', 136.00D0 / DATA CHEMISTRY_SPC( 194 ), SPECIES_MOLWT( 194 ) / 'VLVOO2 ', 136.00D0 / DATA CHEMISTRY_SPC( 195 ), SPECIES_MOLWT( 195 ) / 'VSVOO2 ', 135.00D0 / DATA CHEMISTRY_SPC( 196 ), SPECIES_MOLWT( 196 ) / 'VSVOO3 ', 134.00D0 / DATA CHEMISTRY_SPC( 197 ), SPECIES_MOLWT( 197 ) / 'VSVOO1 ', 135.00D0 / DATA CHEMISTRY_SPC( 198 ), SPECIES_MOLWT( 198 ) / 'AISO3J ', 168.20D0 / DATA CGRID_INDEX( 1 ), SPECIES_TYPE( 1 ), CONVERT_CONC( 1 ) / 1, 'GC', F / ! NO2 DATA CGRID_INDEX( 2 ), SPECIES_TYPE( 2 ), CONVERT_CONC( 2 ) / 2, 'GC', F / ! NO DATA CGRID_INDEX( 3 ), SPECIES_TYPE( 3 ), CONVERT_CONC( 3 ) / 3, 'GC', F / ! O3P DATA CGRID_INDEX( 4 ), SPECIES_TYPE( 4 ), CONVERT_CONC( 4 ) / 4, 'GC', F / ! O3 DATA CGRID_INDEX( 5 ), SPECIES_TYPE( 5 ), CONVERT_CONC( 5 ) / 5, 'GC', F / ! NO3 DATA CGRID_INDEX( 6 ), SPECIES_TYPE( 6 ), CONVERT_CONC( 6 ) / 6, 'GC', F / ! N2O5 DATA CGRID_INDEX( 7 ), SPECIES_TYPE( 7 ), CONVERT_CONC( 7 ) / 7, 'GC', F / ! HNO3 DATA CGRID_INDEX( 8 ), SPECIES_TYPE( 8 ), CONVERT_CONC( 8 ) / 8, 'GC', F / ! O1D DATA CGRID_INDEX( 9 ), SPECIES_TYPE( 9 ), CONVERT_CONC( 9 ) / 9, 'GC', F / ! OH DATA CGRID_INDEX( 10 ), SPECIES_TYPE( 10 ), CONVERT_CONC( 10 ) / 10, 'GC', F / ! HONO DATA CGRID_INDEX( 11 ), SPECIES_TYPE( 11 ), CONVERT_CONC( 11 ) / 11, 'GC', F / ! HO2 DATA CGRID_INDEX( 12 ), SPECIES_TYPE( 12 ), CONVERT_CONC( 12 ) / 12, 'GC', F / ! CO DATA CGRID_INDEX( 13 ), SPECIES_TYPE( 13 ), CONVERT_CONC( 13 ) / 13, 'GC', F / ! CO2 DATA CGRID_INDEX( 14 ), SPECIES_TYPE( 14 ), CONVERT_CONC( 14 ) / 14, 'GC', F / ! HNO4 DATA CGRID_INDEX( 15 ), SPECIES_TYPE( 15 ), CONVERT_CONC( 15 ) / 15, 'GC', F / ! HO2H DATA CGRID_INDEX( 16 ), SPECIES_TYPE( 16 ), CONVERT_CONC( 16 ) / 16, 'GC', F / ! SO2 DATA CGRID_INDEX( 17 ), SPECIES_TYPE( 17 ), CONVERT_CONC( 17 ) / 17, 'GC', F / ! SULF DATA CGRID_INDEX( 18 ), SPECIES_TYPE( 18 ), CONVERT_CONC( 18 ) / 18, 'GC', F / ! SULRXN DATA CGRID_INDEX( 19 ), SPECIES_TYPE( 19 ), CONVERT_CONC( 19 ) / 19, 'GC', F / ! MEO2 DATA CGRID_INDEX( 20 ), SPECIES_TYPE( 20 ), CONVERT_CONC( 20 ) / 20, 'GC', F / ! HCHO DATA CGRID_INDEX( 21 ), SPECIES_TYPE( 21 ), CONVERT_CONC( 21 ) / 21, 'GC', F / ! COOH DATA CGRID_INDEX( 22 ), SPECIES_TYPE( 22 ), CONVERT_CONC( 22 ) / 22, 'GC', F / ! MEOH DATA CGRID_INDEX( 23 ), SPECIES_TYPE( 23 ), CONVERT_CONC( 23 ) / 23, 'GC', F / ! RO2C DATA CGRID_INDEX( 24 ), SPECIES_TYPE( 24 ), CONVERT_CONC( 24 ) / 24, 'GC', F / ! RO2XC DATA CGRID_INDEX( 25 ), SPECIES_TYPE( 25 ), CONVERT_CONC( 25 ) / 25, 'GC', F / ! MECO3 DATA CGRID_INDEX( 26 ), SPECIES_TYPE( 26 ), CONVERT_CONC( 26 ) / 26, 'GC', F / ! PAN DATA CGRID_INDEX( 27 ), SPECIES_TYPE( 27 ), CONVERT_CONC( 27 ) / 27, 'GC', F / ! CCOOOH DATA CGRID_INDEX( 28 ), SPECIES_TYPE( 28 ), CONVERT_CONC( 28 ) / 28, 'GC', F / ! CCOOH DATA CGRID_INDEX( 29 ), SPECIES_TYPE( 29 ), CONVERT_CONC( 29 ) / 29, 'GC', F / ! RCO3 DATA CGRID_INDEX( 30 ), SPECIES_TYPE( 30 ), CONVERT_CONC( 30 ) / 30, 'GC', F / ! PAN2 DATA CGRID_INDEX( 31 ), SPECIES_TYPE( 31 ), CONVERT_CONC( 31 ) / 31, 'GC', F / ! xHO2 DATA CGRID_INDEX( 32 ), SPECIES_TYPE( 32 ), CONVERT_CONC( 32 ) / 32, 'GC', F / ! yROOH DATA CGRID_INDEX( 33 ), SPECIES_TYPE( 33 ), CONVERT_CONC( 33 ) / 33, 'GC', F / ! xCCHO DATA CGRID_INDEX( 34 ), SPECIES_TYPE( 34 ), CONVERT_CONC( 34 ) / 34, 'GC', F / ! RCOOOH DATA CGRID_INDEX( 35 ), SPECIES_TYPE( 35 ), CONVERT_CONC( 35 ) / 35, 'GC', F / ! RCOOH DATA CGRID_INDEX( 36 ), SPECIES_TYPE( 36 ), CONVERT_CONC( 36 ) / 36, 'GC', F / ! BZCO3 DATA CGRID_INDEX( 37 ), SPECIES_TYPE( 37 ), CONVERT_CONC( 37 ) / 37, 'GC', F / ! PBZN DATA CGRID_INDEX( 38 ), SPECIES_TYPE( 38 ), CONVERT_CONC( 38 ) / 38, 'GC', F / ! BZO DATA CGRID_INDEX( 39 ), SPECIES_TYPE( 39 ), CONVERT_CONC( 39 ) / 39, 'GC', F / ! MACO3 DATA CGRID_INDEX( 40 ), SPECIES_TYPE( 40 ), CONVERT_CONC( 40 ) / 40, 'GC', F / ! MAPAN DATA CGRID_INDEX( 41 ), SPECIES_TYPE( 41 ), CONVERT_CONC( 41 ) / 41, 'GC', F / ! TBUO DATA CGRID_INDEX( 42 ), SPECIES_TYPE( 42 ), CONVERT_CONC( 42 ) / 42, 'GC', F / ! RNO3 DATA CGRID_INDEX( 43 ), SPECIES_TYPE( 43 ), CONVERT_CONC( 43 ) / 43, 'GC', F / ! ACETONE DATA CGRID_INDEX( 44 ), SPECIES_TYPE( 44 ), CONVERT_CONC( 44 ) / 44, 'GC', F / ! NPHE DATA CGRID_INDEX( 45 ), SPECIES_TYPE( 45 ), CONVERT_CONC( 45 ) / 45, 'GC', F / ! CRES DATA CGRID_INDEX( 46 ), SPECIES_TYPE( 46 ), CONVERT_CONC( 46 ) / 46, 'GC', F / ! xOH DATA CGRID_INDEX( 47 ), SPECIES_TYPE( 47 ), CONVERT_CONC( 47 ) / 47, 'GC', F / ! xNO2 DATA CGRID_INDEX( 48 ), SPECIES_TYPE( 48 ), CONVERT_CONC( 48 ) / 48, 'GC', F / ! xMEO2 DATA CGRID_INDEX( 49 ), SPECIES_TYPE( 49 ), CONVERT_CONC( 49 ) / 49, 'GC', F / ! xMECO3 DATA CGRID_INDEX( 50 ), SPECIES_TYPE( 50 ), CONVERT_CONC( 50 ) / 50, 'GC', F / ! xRCO3 DATA CGRID_INDEX( 51 ), SPECIES_TYPE( 51 ), CONVERT_CONC( 51 ) / 51, 'GC', F / ! xMACO3 DATA CGRID_INDEX( 52 ), SPECIES_TYPE( 52 ), CONVERT_CONC( 52 ) / 52, 'GC', F / ! xTBUO DATA CGRID_INDEX( 53 ), SPECIES_TYPE( 53 ), CONVERT_CONC( 53 ) / 53, 'GC', F / ! xCO DATA CGRID_INDEX( 54 ), SPECIES_TYPE( 54 ), CONVERT_CONC( 54 ) / 54, 'GC', F / ! CCHO DATA CGRID_INDEX( 55 ), SPECIES_TYPE( 55 ), CONVERT_CONC( 55 ) / 55, 'GC', F / ! RCHO DATA CGRID_INDEX( 56 ), SPECIES_TYPE( 56 ), CONVERT_CONC( 56 ) / 56, 'GC', F / ! xHCHO DATA CGRID_INDEX( 57 ), SPECIES_TYPE( 57 ), CONVERT_CONC( 57 ) / 57, 'GC', F / ! MEK DATA CGRID_INDEX( 58 ), SPECIES_TYPE( 58 ), CONVERT_CONC( 58 ) / 58, 'GC', F / ! zRNO3 DATA CGRID_INDEX( 59 ), SPECIES_TYPE( 59 ), CONVERT_CONC( 59 ) / 59, 'GC', F / ! xRCHO DATA CGRID_INDEX( 60 ), SPECIES_TYPE( 60 ), CONVERT_CONC( 60 ) / 60, 'GC', F / ! HCOOH DATA CGRID_INDEX( 61 ), SPECIES_TYPE( 61 ), CONVERT_CONC( 61 ) / 61, 'GC', F / ! xMGLY DATA CGRID_INDEX( 62 ), SPECIES_TYPE( 62 ), CONVERT_CONC( 62 ) / 62, 'GC', F / ! xBACL DATA CGRID_INDEX( 63 ), SPECIES_TYPE( 63 ), CONVERT_CONC( 63 ) / 63, 'GC', F / ! ROOH DATA CGRID_INDEX( 64 ), SPECIES_TYPE( 64 ), CONVERT_CONC( 64 ) / 64, 'GC', F / ! xPROD2 DATA CGRID_INDEX( 65 ), SPECIES_TYPE( 65 ), CONVERT_CONC( 65 ) / 65, 'GC', F / ! R6OOH DATA CGRID_INDEX( 66 ), SPECIES_TYPE( 66 ), CONVERT_CONC( 66 ) / 69, 'GC', F / ! PRD2 DATA CGRID_INDEX( 67 ), SPECIES_TYPE( 67 ), CONVERT_CONC( 67 ) / 70, 'GC', F / ! yR6OOH DATA CGRID_INDEX( 68 ), SPECIES_TYPE( 68 ), CONVERT_CONC( 68 ) / 72, 'GC', F / ! RAOOH DATA CGRID_INDEX( 69 ), SPECIES_TYPE( 69 ), CONVERT_CONC( 69 ) / 73, 'GC', F / ! MGLY DATA CGRID_INDEX( 70 ), SPECIES_TYPE( 70 ), CONVERT_CONC( 70 ) / 74, 'GC', F / ! IPRD DATA CGRID_INDEX( 71 ), SPECIES_TYPE( 71 ), CONVERT_CONC( 71 ) / 75, 'GC', F / ! xGLY DATA CGRID_INDEX( 72 ), SPECIES_TYPE( 72 ), CONVERT_CONC( 72 ) / 76, 'GC', F / ! xMEK DATA CGRID_INDEX( 73 ), SPECIES_TYPE( 73 ), CONVERT_CONC( 73 ) / 77, 'GC', F / ! xAFG1 DATA CGRID_INDEX( 74 ), SPECIES_TYPE( 74 ), CONVERT_CONC( 74 ) / 78, 'GC', F / ! xAFG2 DATA CGRID_INDEX( 75 ), SPECIES_TYPE( 75 ), CONVERT_CONC( 75 ) / 79, 'GC', F / ! GLY DATA CGRID_INDEX( 76 ), SPECIES_TYPE( 76 ), CONVERT_CONC( 76 ) / 80, 'GC', F / ! AFG1 DATA CGRID_INDEX( 77 ), SPECIES_TYPE( 77 ), CONVERT_CONC( 77 ) / 81, 'GC', F / ! AFG2 DATA CGRID_INDEX( 78 ), SPECIES_TYPE( 78 ), CONVERT_CONC( 78 ) / 82, 'GC', F / ! HCOCO3 DATA CGRID_INDEX( 79 ), SPECIES_TYPE( 79 ), CONVERT_CONC( 79 ) / 83, 'GC', F / ! BACL DATA CGRID_INDEX( 80 ), SPECIES_TYPE( 80 ), CONVERT_CONC( 80 ) / 84, 'GC', F / ! BALD DATA CGRID_INDEX( 81 ), SPECIES_TYPE( 81 ), CONVERT_CONC( 81 ) / 85, 'GC', F / ! AFG3 DATA CGRID_INDEX( 82 ), SPECIES_TYPE( 82 ), CONVERT_CONC( 82 ) / 86, 'GC', F / ! xIPRD DATA CGRID_INDEX( 83 ), SPECIES_TYPE( 83 ), CONVERT_CONC( 83 ) / 87, 'GC', F / ! MACR DATA CGRID_INDEX( 84 ), SPECIES_TYPE( 84 ), CONVERT_CONC( 84 ) / 88, 'GC', F / ! MVK DATA CGRID_INDEX( 85 ), SPECIES_TYPE( 85 ), CONVERT_CONC( 85 ) / 89, 'GC', F / ! xHOCCHO DATA CGRID_INDEX( 86 ), SPECIES_TYPE( 86 ), CONVERT_CONC( 86 ) / 90, 'GC', F / ! xRNO3 DATA CGRID_INDEX( 87 ), SPECIES_TYPE( 87 ), CONVERT_CONC( 87 ) / 91, 'GC', F / ! HOCCHO DATA CGRID_INDEX( 88 ), SPECIES_TYPE( 88 ), CONVERT_CONC( 88 ) / 92, 'GC', F / ! xACETONE DATA CGRID_INDEX( 89 ), SPECIES_TYPE( 89 ), CONVERT_CONC( 89 ) / 93, 'GC', F / ! ACROLEIN DATA CGRID_INDEX( 90 ), SPECIES_TYPE( 90 ), CONVERT_CONC( 90 ) / 94, 'GC', F / ! xBALD DATA CGRID_INDEX( 91 ), SPECIES_TYPE( 91 ), CONVERT_CONC( 91 ) / 95, 'GC', F / ! xAFG3 DATA CGRID_INDEX( 92 ), SPECIES_TYPE( 92 ), CONVERT_CONC( 92 ) / 96, 'GC', F / ! xMACR DATA CGRID_INDEX( 93 ), SPECIES_TYPE( 93 ), CONVERT_CONC( 93 ) / 97, 'GC', F / ! xMVK DATA CGRID_INDEX( 94 ), SPECIES_TYPE( 94 ), CONVERT_CONC( 94 ) / 71, 'GC', F / ! yISOPOOH DATA CGRID_INDEX( 95 ), SPECIES_TYPE( 95 ), CONVERT_CONC( 95 ) / 66, 'GC', F / ! ISOPOOH DATA CGRID_INDEX( 96 ), SPECIES_TYPE( 96 ), CONVERT_CONC( 96 ) / 98, 'GC', F / ! yRAOOH DATA CGRID_INDEX( 97 ), SPECIES_TYPE( 97 ), CONVERT_CONC( 97 ) / 99, 'GC', F / ! xACROLEIN DATA CGRID_INDEX( 98 ), SPECIES_TYPE( 98 ), CONVERT_CONC( 98 ) / 100, 'GC', F / ! ETHENE DATA CGRID_INDEX( 99 ), SPECIES_TYPE( 99 ), CONVERT_CONC( 99 ) / 101, 'GC', F / ! PROPENE DATA CGRID_INDEX( 100 ), SPECIES_TYPE( 100 ), CONVERT_CONC( 100 ) / 102, 'GC', F / ! BUTADIENE13 DATA CGRID_INDEX( 101 ), SPECIES_TYPE( 101 ), CONVERT_CONC( 101 ) / 103, 'GC', F / ! ISOPRENE DATA CGRID_INDEX( 102 ), SPECIES_TYPE( 102 ), CONVERT_CONC( 102 ) / 104, 'GC', F / ! ISOPRXN DATA CGRID_INDEX( 103 ), SPECIES_TYPE( 103 ), CONVERT_CONC( 103 ) / 67, 'GC', F / ! IEPOX DATA CGRID_INDEX( 104 ), SPECIES_TYPE( 104 ), CONVERT_CONC( 104 ) / 128, 'GC', F / ! ARO2MN DATA CGRID_INDEX( 105 ), SPECIES_TYPE( 105 ), CONVERT_CONC( 105 ) / 68, 'GC', F / ! IEPOXOO DATA CGRID_INDEX( 106 ), SPECIES_TYPE( 106 ), CONVERT_CONC( 106 ) / 105, 'GC', F / ! APIN DATA CGRID_INDEX( 107 ), SPECIES_TYPE( 107 ), CONVERT_CONC( 107 ) / 106, 'GC', F / ! TRPRXN DATA CGRID_INDEX( 108 ), SPECIES_TYPE( 108 ), CONVERT_CONC( 108 ) / 107, 'GC', F / ! ACETYLENE DATA CGRID_INDEX( 109 ), SPECIES_TYPE( 109 ), CONVERT_CONC( 109 ) / 108, 'GC', F / ! BENZENE DATA CGRID_INDEX( 110 ), SPECIES_TYPE( 110 ), CONVERT_CONC( 110 ) / 109, 'GC', F / ! BENZRO2 DATA CGRID_INDEX( 111 ), SPECIES_TYPE( 111 ), CONVERT_CONC( 111 ) / 110, 'GC', F / ! TOLUENE DATA CGRID_INDEX( 112 ), SPECIES_TYPE( 112 ), CONVERT_CONC( 112 ) / 111, 'GC', F / ! TOLRO2 DATA CGRID_INDEX( 113 ), SPECIES_TYPE( 113 ), CONVERT_CONC( 113 ) / 112, 'GC', F / ! MXYL DATA CGRID_INDEX( 114 ), SPECIES_TYPE( 114 ), CONVERT_CONC( 114 ) / 113, 'GC', F / ! XYLRO2 DATA CGRID_INDEX( 115 ), SPECIES_TYPE( 115 ), CONVERT_CONC( 115 ) / 114, 'GC', F / ! OXYL DATA CGRID_INDEX( 116 ), SPECIES_TYPE( 116 ), CONVERT_CONC( 116 ) / 115, 'GC', F / ! PXYL DATA CGRID_INDEX( 117 ), SPECIES_TYPE( 117 ), CONVERT_CONC( 117 ) / 116, 'GC', F / ! TMBENZ124 DATA CGRID_INDEX( 118 ), SPECIES_TYPE( 118 ), CONVERT_CONC( 118 ) / 117, 'GC', F / ! ETOH DATA CGRID_INDEX( 119 ), SPECIES_TYPE( 119 ), CONVERT_CONC( 119 ) / 118, 'GC', F / ! ALK1 DATA CGRID_INDEX( 120 ), SPECIES_TYPE( 120 ), CONVERT_CONC( 120 ) / 119, 'GC', F / ! ALK2 DATA CGRID_INDEX( 121 ), SPECIES_TYPE( 121 ), CONVERT_CONC( 121 ) / 120, 'GC', F / ! ALK3 DATA CGRID_INDEX( 122 ), SPECIES_TYPE( 122 ), CONVERT_CONC( 122 ) / 121, 'GC', F / ! ALK4 DATA CGRID_INDEX( 123 ), SPECIES_TYPE( 123 ), CONVERT_CONC( 123 ) / 122, 'GC', F / ! ALK5 DATA CGRID_INDEX( 124 ), SPECIES_TYPE( 124 ), CONVERT_CONC( 124 ) / 123, 'GC', F / ! SOAALK DATA CGRID_INDEX( 125 ), SPECIES_TYPE( 125 ), CONVERT_CONC( 125 ) / 124, 'GC', F / ! ALKRXN DATA CGRID_INDEX( 126 ), SPECIES_TYPE( 126 ), CONVERT_CONC( 126 ) / 125, 'GC', F / ! OLE1 DATA CGRID_INDEX( 127 ), SPECIES_TYPE( 127 ), CONVERT_CONC( 127 ) / 126, 'GC', F / ! OLE2 DATA CGRID_INDEX( 128 ), SPECIES_TYPE( 128 ), CONVERT_CONC( 128 ) / 127, 'GC', F / ! ARO1 DATA CGRID_INDEX( 129 ), SPECIES_TYPE( 129 ), CONVERT_CONC( 129 ) / 129, 'GC', F / ! NAPHTHAL DATA CGRID_INDEX( 130 ), SPECIES_TYPE( 130 ), CONVERT_CONC( 130 ) / 130, 'GC', F / ! PAHRO2 DATA CGRID_INDEX( 131 ), SPECIES_TYPE( 131 ), CONVERT_CONC( 131 ) / 131, 'GC', F / ! TERP DATA CGRID_INDEX( 132 ), SPECIES_TYPE( 132 ), CONVERT_CONC( 132 ) / 132, 'GC', F / ! SESQ DATA CGRID_INDEX( 133 ), SPECIES_TYPE( 133 ), CONVERT_CONC( 133 ) / 133, 'GC', F / ! SESQRXN DATA CGRID_INDEX( 134 ), SPECIES_TYPE( 134 ), CONVERT_CONC( 134 ) / 134, 'GC', F / ! CL2 DATA CGRID_INDEX( 135 ), SPECIES_TYPE( 135 ), CONVERT_CONC( 135 ) / 135, 'GC', F / ! CL DATA CGRID_INDEX( 136 ), SPECIES_TYPE( 136 ), CONVERT_CONC( 136 ) / 136, 'GC', F / ! CLNO DATA CGRID_INDEX( 137 ), SPECIES_TYPE( 137 ), CONVERT_CONC( 137 ) / 137, 'GC', F / ! CLONO DATA CGRID_INDEX( 138 ), SPECIES_TYPE( 138 ), CONVERT_CONC( 138 ) / 138, 'GC', F / ! CLNO2 DATA CGRID_INDEX( 139 ), SPECIES_TYPE( 139 ), CONVERT_CONC( 139 ) / 139, 'GC', F / ! HCL DATA CGRID_INDEX( 140 ), SPECIES_TYPE( 140 ), CONVERT_CONC( 140 ) / 140, 'GC', F / ! CLO DATA CGRID_INDEX( 141 ), SPECIES_TYPE( 141 ), CONVERT_CONC( 141 ) / 141, 'GC', F / ! CLONO2 DATA CGRID_INDEX( 142 ), SPECIES_TYPE( 142 ), CONVERT_CONC( 142 ) / 142, 'GC', F / ! HOCL DATA CGRID_INDEX( 143 ), SPECIES_TYPE( 143 ), CONVERT_CONC( 143 ) / 143, 'GC', F / ! xCL DATA CGRID_INDEX( 144 ), SPECIES_TYPE( 144 ), CONVERT_CONC( 144 ) / 144, 'GC', F / ! xCLCCHO DATA CGRID_INDEX( 145 ), SPECIES_TYPE( 145 ), CONVERT_CONC( 145 ) / 145, 'GC', F / ! xCLACET DATA CGRID_INDEX( 146 ), SPECIES_TYPE( 146 ), CONVERT_CONC( 146 ) / 146, 'GC', F / ! CLCCHO DATA CGRID_INDEX( 147 ), SPECIES_TYPE( 147 ), CONVERT_CONC( 147 ) / 147, 'GC', F / ! CLACET DATA CGRID_INDEX( 148 ), SPECIES_TYPE( 148 ), CONVERT_CONC( 148 ) / 148, 'GC', F / ! CLCHO DATA CGRID_INDEX( 149 ), SPECIES_TYPE( 149 ), CONVERT_CONC( 149 ) / 149, 'GC', F / ! BNZNRXN DATA CGRID_INDEX( 150 ), SPECIES_TYPE( 150 ), CONVERT_CONC( 150 ) / 150, 'GC', F / ! BNZHRXN DATA CGRID_INDEX( 151 ), SPECIES_TYPE( 151 ), CONVERT_CONC( 151 ) / 151, 'GC', F / ! XYLNRXN DATA CGRID_INDEX( 152 ), SPECIES_TYPE( 152 ), CONVERT_CONC( 152 ) / 152, 'GC', F / ! XYLHRXN DATA CGRID_INDEX( 153 ), SPECIES_TYPE( 153 ), CONVERT_CONC( 153 ) / 153, 'GC', F / ! TOLNRXN DATA CGRID_INDEX( 154 ), SPECIES_TYPE( 154 ), CONVERT_CONC( 154 ) / 154, 'GC', F / ! TOLHRXN DATA CGRID_INDEX( 155 ), SPECIES_TYPE( 155 ), CONVERT_CONC( 155 ) / 155, 'GC', F / ! PAHNRXN DATA CGRID_INDEX( 156 ), SPECIES_TYPE( 156 ), CONVERT_CONC( 156 ) / 156, 'GC', F / ! PAHHRXN DATA CGRID_INDEX( 157 ), SPECIES_TYPE( 157 ), CONVERT_CONC( 157 ) / 157, 'GC', F / ! HCHO_PRIMARY DATA CGRID_INDEX( 158 ), SPECIES_TYPE( 158 ), CONVERT_CONC( 158 ) / 158, 'GC', F / ! CCHO_PRIMARY DATA CGRID_INDEX( 159 ), SPECIES_TYPE( 159 ), CONVERT_CONC( 159 ) / 159, 'GC', F / ! ACRO_PRIMARY DATA CGRID_INDEX( 160 ), SPECIES_TYPE( 160 ), CONVERT_CONC( 160 ) / 160, 'GC', F / ! H2NO3PIJ DATA CGRID_INDEX( 161 ), SPECIES_TYPE( 161 ), CONVERT_CONC( 161 ) / 161, 'GC', F / ! H2NO3PK DATA CGRID_INDEX( 162 ), SPECIES_TYPE( 162 ), CONVERT_CONC( 162 ) / 186, 'AE', T / ! ACLI DATA CGRID_INDEX( 163 ), SPECIES_TYPE( 163 ), CONVERT_CONC( 163 ) / 187, 'AE', T / ! ACLJ DATA CGRID_INDEX( 164 ), SPECIES_TYPE( 164 ), CONVERT_CONC( 164 ) / 188, 'AE', T / ! ACLK DATA CGRID_INDEX( 165 ), SPECIES_TYPE( 165 ), CONVERT_CONC( 165 ) / 191, 'AE', T / ! AXYL1J DATA CGRID_INDEX( 166 ), SPECIES_TYPE( 166 ), CONVERT_CONC( 166 ) / 238, 'AE', T / ! AOLGAJ DATA CGRID_INDEX( 167 ), SPECIES_TYPE( 167 ), CONVERT_CONC( 167 ) / 192, 'AE', T / ! AXYL2J DATA CGRID_INDEX( 168 ), SPECIES_TYPE( 168 ), CONVERT_CONC( 168 ) / 194, 'AE', T / ! ATOL1J DATA CGRID_INDEX( 169 ), SPECIES_TYPE( 169 ), CONVERT_CONC( 169 ) / 195, 'AE', T / ! ATOL2J DATA CGRID_INDEX( 170 ), SPECIES_TYPE( 170 ), CONVERT_CONC( 170 ) / 197, 'AE', T / ! ABNZ1J DATA CGRID_INDEX( 171 ), SPECIES_TYPE( 171 ), CONVERT_CONC( 171 ) / 198, 'AE', T / ! ABNZ2J DATA CGRID_INDEX( 172 ), SPECIES_TYPE( 172 ), CONVERT_CONC( 172 ) / 203, 'AE', T / ! ATRP1J DATA CGRID_INDEX( 173 ), SPECIES_TYPE( 173 ), CONVERT_CONC( 173 ) / 239, 'AE', T / ! AOLGBJ DATA CGRID_INDEX( 174 ), SPECIES_TYPE( 174 ), CONVERT_CONC( 174 ) / 204, 'AE', T / ! ATRP2J DATA CGRID_INDEX( 175 ), SPECIES_TYPE( 175 ), CONVERT_CONC( 175 ) / 205, 'AE', T / ! AISO1J DATA CGRID_INDEX( 176 ), SPECIES_TYPE( 176 ), CONVERT_CONC( 176 ) / 206, 'AE', T / ! AISO2J DATA CGRID_INDEX( 177 ), SPECIES_TYPE( 177 ), CONVERT_CONC( 177 ) / 207, 'AE', T / ! ASQTJ DATA CGRID_INDEX( 178 ), SPECIES_TYPE( 178 ), CONVERT_CONC( 178 ) / 200, 'AE', T / ! APAH1J DATA CGRID_INDEX( 179 ), SPECIES_TYPE( 179 ), CONVERT_CONC( 179 ) / 201, 'AE', T / ! APAH2J DATA CGRID_INDEX( 180 ), SPECIES_TYPE( 180 ), CONVERT_CONC( 180 ) / 189, 'AE', T / ! AALK1J DATA CGRID_INDEX( 181 ), SPECIES_TYPE( 181 ), CONVERT_CONC( 181 ) / 190, 'AE', T / ! AALK2J DATA CGRID_INDEX( 182 ), SPECIES_TYPE( 182 ), CONVERT_CONC( 182 ) / 240, 'AE', T / ! APOCI DATA CGRID_INDEX( 183 ), SPECIES_TYPE( 183 ), CONVERT_CONC( 183 ) / 242, 'AE', T / ! APNCOMI DATA CGRID_INDEX( 184 ), SPECIES_TYPE( 184 ), CONVERT_CONC( 184 ) / 241, 'AE', T / ! APOCJ DATA CGRID_INDEX( 185 ), SPECIES_TYPE( 185 ), CONVERT_CONC( 185 ) / 243, 'AE', T / ! APNCOMJ DATA CGRID_INDEX( 186 ), SPECIES_TYPE( 186 ), CONVERT_CONC( 186 ) / 172, 'GC', F / ! PCVOC DATA CGRID_INDEX( 187 ), SPECIES_TYPE( 187 ), CONVERT_CONC( 187 ) / 173, 'GC', F / ! PCSOARXN DATA CGRID_INDEX( 188 ), SPECIES_TYPE( 188 ), CONVERT_CONC( 188 ) / 162, 'GC', F / ! VLVPO1 DATA CGRID_INDEX( 189 ), SPECIES_TYPE( 189 ), CONVERT_CONC( 189 ) / 163, 'GC', F / ! VSVPO1 DATA CGRID_INDEX( 190 ), SPECIES_TYPE( 190 ), CONVERT_CONC( 190 ) / 164, 'GC', F / ! VSVPO2 DATA CGRID_INDEX( 191 ), SPECIES_TYPE( 191 ), CONVERT_CONC( 191 ) / 165, 'GC', F / ! VSVPO3 DATA CGRID_INDEX( 192 ), SPECIES_TYPE( 192 ), CONVERT_CONC( 192 ) / 166, 'GC', F / ! VIVPO1 DATA CGRID_INDEX( 193 ), SPECIES_TYPE( 193 ), CONVERT_CONC( 193 ) / 167, 'GC', F / ! VLVOO1 DATA CGRID_INDEX( 194 ), SPECIES_TYPE( 194 ), CONVERT_CONC( 194 ) / 168, 'GC', F / ! VLVOO2 DATA CGRID_INDEX( 195 ), SPECIES_TYPE( 195 ), CONVERT_CONC( 195 ) / 170, 'GC', F / ! VSVOO2 DATA CGRID_INDEX( 196 ), SPECIES_TYPE( 196 ), CONVERT_CONC( 196 ) / 171, 'GC', F / ! VSVOO3 DATA CGRID_INDEX( 197 ), SPECIES_TYPE( 197 ), CONVERT_CONC( 197 ) / 169, 'GC', F / ! VSVOO1 DATA CGRID_INDEX( 198 ), SPECIES_TYPE( 198 ), CONVERT_CONC( 198 ) / 237, 'AE', T / ! AISO3J ! The below integers define the locations of mechanism species in the solver ! concentration array. INTEGER :: INDEX_NO2 = 1 INTEGER :: INDEX_NO = 2 INTEGER :: INDEX_O3P = 3 INTEGER :: INDEX_O3 = 4 INTEGER :: INDEX_NO3 = 5 INTEGER :: INDEX_N2O5 = 6 INTEGER :: INDEX_HNO3 = 7 INTEGER :: INDEX_O1D = 8 INTEGER :: INDEX_OH = 9 INTEGER :: INDEX_HONO = 10 INTEGER :: INDEX_HO2 = 11 INTEGER :: INDEX_CO = 12 INTEGER :: INDEX_CO2 = 13 INTEGER :: INDEX_HNO4 = 14 INTEGER :: INDEX_HO2H = 15 INTEGER :: INDEX_SO2 = 16 INTEGER :: INDEX_SULF = 17 INTEGER :: INDEX_SULRXN = 18 INTEGER :: INDEX_MEO2 = 19 INTEGER :: INDEX_HCHO = 20 INTEGER :: INDEX_COOH = 21 INTEGER :: INDEX_MEOH = 22 INTEGER :: INDEX_RO2C = 23 INTEGER :: INDEX_RO2XC = 24 INTEGER :: INDEX_MECO3 = 25 INTEGER :: INDEX_PAN = 26 INTEGER :: INDEX_CCOOOH = 27 INTEGER :: INDEX_CCOOH = 28 INTEGER :: INDEX_RCO3 = 29 INTEGER :: INDEX_PAN2 = 30 INTEGER :: INDEX_xHO2 = 31 INTEGER :: INDEX_yROOH = 32 INTEGER :: INDEX_xCCHO = 33 INTEGER :: INDEX_RCOOOH = 34 INTEGER :: INDEX_RCOOH = 35 INTEGER :: INDEX_BZCO3 = 36 INTEGER :: INDEX_PBZN = 37 INTEGER :: INDEX_BZO = 38 INTEGER :: INDEX_MACO3 = 39 INTEGER :: INDEX_MAPAN = 40 INTEGER :: INDEX_TBUO = 41 INTEGER :: INDEX_RNO3 = 42 INTEGER :: INDEX_ACETONE = 43 INTEGER :: INDEX_NPHE = 44 INTEGER :: INDEX_CRES = 45 INTEGER :: INDEX_xOH = 46 INTEGER :: INDEX_xNO2 = 47 INTEGER :: INDEX_xMEO2 = 48 INTEGER :: INDEX_xMECO3 = 49 INTEGER :: INDEX_xRCO3 = 50 INTEGER :: INDEX_xMACO3 = 51 INTEGER :: INDEX_xTBUO = 52 INTEGER :: INDEX_xCO = 53 INTEGER :: INDEX_CCHO = 54 INTEGER :: INDEX_RCHO = 55 INTEGER :: INDEX_xHCHO = 56 INTEGER :: INDEX_MEK = 57 INTEGER :: INDEX_zRNO3 = 58 INTEGER :: INDEX_xRCHO = 59 INTEGER :: INDEX_HCOOH = 60 INTEGER :: INDEX_xMGLY = 61 INTEGER :: INDEX_xBACL = 62 INTEGER :: INDEX_ROOH = 63 INTEGER :: INDEX_xPROD2 = 64 INTEGER :: INDEX_R6OOH = 65 INTEGER :: INDEX_PRD2 = 66 INTEGER :: INDEX_yR6OOH = 67 INTEGER :: INDEX_RAOOH = 68 INTEGER :: INDEX_MGLY = 69 INTEGER :: INDEX_IPRD = 70 INTEGER :: INDEX_xGLY = 71 INTEGER :: INDEX_xMEK = 72 INTEGER :: INDEX_xAFG1 = 73 INTEGER :: INDEX_xAFG2 = 74 INTEGER :: INDEX_GLY = 75 INTEGER :: INDEX_AFG1 = 76 INTEGER :: INDEX_AFG2 = 77 INTEGER :: INDEX_HCOCO3 = 78 INTEGER :: INDEX_BACL = 79 INTEGER :: INDEX_BALD = 80 INTEGER :: INDEX_AFG3 = 81 INTEGER :: INDEX_xIPRD = 82 INTEGER :: INDEX_MACR = 83 INTEGER :: INDEX_MVK = 84 INTEGER :: INDEX_xHOCCHO = 85 INTEGER :: INDEX_xRNO3 = 86 INTEGER :: INDEX_HOCCHO = 87 INTEGER :: INDEX_xACETONE = 88 INTEGER :: INDEX_ACROLEIN = 89 INTEGER :: INDEX_xBALD = 90 INTEGER :: INDEX_xAFG3 = 91 INTEGER :: INDEX_xMACR = 92 INTEGER :: INDEX_xMVK = 93 INTEGER :: INDEX_yISOPOOH = 94 INTEGER :: INDEX_ISOPOOH = 95 INTEGER :: INDEX_yRAOOH = 96 INTEGER :: INDEX_xACROLEIN = 97 INTEGER :: INDEX_ETHENE = 98 INTEGER :: INDEX_PROPENE = 99 INTEGER :: INDEX_BUTADIENE13 = 100 INTEGER :: INDEX_ISOPRENE = 101 INTEGER :: INDEX_ISOPRXN = 102 INTEGER :: INDEX_IEPOX = 103 INTEGER :: INDEX_ARO2MN = 104 INTEGER :: INDEX_IEPOXOO = 105 INTEGER :: INDEX_APIN = 106 INTEGER :: INDEX_TRPRXN = 107 INTEGER :: INDEX_ACETYLENE = 108 INTEGER :: INDEX_BENZENE = 109 INTEGER :: INDEX_BENZRO2 = 110 INTEGER :: INDEX_TOLUENE = 111 INTEGER :: INDEX_TOLRO2 = 112 INTEGER :: INDEX_MXYL = 113 INTEGER :: INDEX_XYLRO2 = 114 INTEGER :: INDEX_OXYL = 115 INTEGER :: INDEX_PXYL = 116 INTEGER :: INDEX_TMBENZ124 = 117 INTEGER :: INDEX_ETOH = 118 INTEGER :: INDEX_ALK1 = 119 INTEGER :: INDEX_ALK2 = 120 INTEGER :: INDEX_ALK3 = 121 INTEGER :: INDEX_ALK4 = 122 INTEGER :: INDEX_ALK5 = 123 INTEGER :: INDEX_SOAALK = 124 INTEGER :: INDEX_ALKRXN = 125 INTEGER :: INDEX_OLE1 = 126 INTEGER :: INDEX_OLE2 = 127 INTEGER :: INDEX_ARO1 = 128 INTEGER :: INDEX_NAPHTHAL = 129 INTEGER :: INDEX_PAHRO2 = 130 INTEGER :: INDEX_TERP = 131 INTEGER :: INDEX_SESQ = 132 INTEGER :: INDEX_SESQRXN = 133 INTEGER :: INDEX_CL2 = 134 INTEGER :: INDEX_CL = 135 INTEGER :: INDEX_CLNO = 136 INTEGER :: INDEX_CLONO = 137 INTEGER :: INDEX_CLNO2 = 138 INTEGER :: INDEX_HCL = 139 INTEGER :: INDEX_CLO = 140 INTEGER :: INDEX_CLONO2 = 141 INTEGER :: INDEX_HOCL = 142 INTEGER :: INDEX_xCL = 143 INTEGER :: INDEX_xCLCCHO = 144 INTEGER :: INDEX_xCLACET = 145 INTEGER :: INDEX_CLCCHO = 146 INTEGER :: INDEX_CLACET = 147 INTEGER :: INDEX_CLCHO = 148 INTEGER :: INDEX_BNZNRXN = 149 INTEGER :: INDEX_BNZHRXN = 150 INTEGER :: INDEX_XYLNRXN = 151 INTEGER :: INDEX_XYLHRXN = 152 INTEGER :: INDEX_TOLNRXN = 153 INTEGER :: INDEX_TOLHRXN = 154 INTEGER :: INDEX_PAHNRXN = 155 INTEGER :: INDEX_PAHHRXN = 156 INTEGER :: INDEX_HCHO_PRIMARY = 157 INTEGER :: INDEX_CCHO_PRIMARY = 158 INTEGER :: INDEX_ACRO_PRIMARY = 159 INTEGER :: INDEX_H2NO3PIJ = 160 INTEGER :: INDEX_H2NO3PK = 161 INTEGER :: INDEX_ACLI = 162 INTEGER :: INDEX_ACLJ = 163 INTEGER :: INDEX_ACLK = 164 INTEGER :: INDEX_AXYL1J = 165 INTEGER :: INDEX_AOLGAJ = 166 INTEGER :: INDEX_AXYL2J = 167 INTEGER :: INDEX_ATOL1J = 168 INTEGER :: INDEX_ATOL2J = 169 INTEGER :: INDEX_ABNZ1J = 170 INTEGER :: INDEX_ABNZ2J = 171 INTEGER :: INDEX_ATRP1J = 172 INTEGER :: INDEX_AOLGBJ = 173 INTEGER :: INDEX_ATRP2J = 174 INTEGER :: INDEX_AISO1J = 175 INTEGER :: INDEX_AISO2J = 176 INTEGER :: INDEX_ASQTJ = 177 INTEGER :: INDEX_APAH1J = 178 INTEGER :: INDEX_APAH2J = 179 INTEGER :: INDEX_AALK1J = 180 INTEGER :: INDEX_AALK2J = 181 INTEGER :: INDEX_APOCI = 182 INTEGER :: INDEX_APNCOMI = 183 INTEGER :: INDEX_APOCJ = 184 INTEGER :: INDEX_APNCOMJ = 185 INTEGER :: INDEX_PCVOC = 186 INTEGER :: INDEX_PCSOARXN = 187 INTEGER :: INDEX_VLVPO1 = 188 INTEGER :: INDEX_VSVPO1 = 189 INTEGER :: INDEX_VSVPO2 = 190 INTEGER :: INDEX_VSVPO3 = 191 INTEGER :: INDEX_VIVPO1 = 192 INTEGER :: INDEX_VLVOO1 = 193 INTEGER :: INDEX_VLVOO2 = 194 INTEGER :: INDEX_VSVOO2 = 195 INTEGER :: INDEX_VSVOO3 = 196 INTEGER :: INDEX_VSVOO1 = 197 INTEGER :: INDEX_AISO3J = 198 INTEGER, PARAMETER :: N_ACT_SP = 198 INTEGER, PARAMETER :: NRXNS = 752 INTEGER, PARAMETER :: ONE_REACT_REACTIONS = 0 INTEGER, PARAMETER :: TWO_REACT_REACTIONS = 0 INTEGER, PARAMETER :: THREE_REACT_REACTIONS = 0 INTEGER, PARAMETER :: ZERO_REACT_REACTIONS = 0 LOGICAL, PARAMETER :: UNITARY_REACTIONS = .FALSE. INTEGER, PARAMETER :: ONE_REACT_START = 0 INTEGER, PARAMETER :: ONE_REACT_STOP = -1 LOGICAL, PARAMETER :: BINARY_REACTIONS = .FALSE. INTEGER, PARAMETER :: TWO_REACT_START = 0 INTEGER, PARAMETER :: TWO_REACT_STOP = -1 LOGICAL, PARAMETER :: TERNARY_REACTIONS = .FALSE. INTEGER, PARAMETER :: THREE_REACT_START = 0 INTEGER, PARAMETER :: THREE_REACT_STOP = -1 LOGICAL, PARAMETER :: NULL_REACTIONS = .FALSE. INTEGER, PARAMETER :: ZERO_REACT_START = 0 INTEGER, PARAMETER :: ZERO_REACT_STOP = -1 INTEGER, PARAMETER :: NSUNLIGHT_RXNS = 56 INTEGER, PARAMETER :: NTHERMAL_RXNS = 696 INTEGER, PARAMETER :: KUNITS = 2 INTEGER :: IRXXN INTEGER, PARAMETER :: NMPHOT = 55 INTEGER :: IPH( NMPHOT,3 ) DATA ( IPH( IRXXN,1 ), IRXXN = 1, NMPHOT ) / & & 1, 16, 17, 18, 19, 23, 28, 34, 41, 65, & & 75, 86, 98, 204, 205, 209, 212, 215, 217, 223, & & 225, 227, 229, 230, 231, 234, 237, 241, 242, 244, & & 248, 251, 258, 262, 266, 268, 270, 272, 278, 280, & & 282, 545, 590, 592, 595, 596, 603, 604, 608, 631, & & 634, 698, 699, 704, 711/ DATA ( IPH( IRXXN,2 ), IRXXN = 1, NMPHOT ) / & & 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, & & 10, 10, 10, 11, 12, 13, 14, 15, 16, 17, & & 17, 17, 17, 18, 19, 20, 21, 1, 1, 22, & & 23, 23, 24, 25, 24, 16, 26, 27, 28, 29, & & 29, 17, 30, 31, 32, 33, 34, 35, 36, 37, & & 38, 11, 12, 13, 28/ DATA ( IPH( IRXXN,3 ), IRXXN = 1, NMPHOT ) / & & 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, & & 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, & & 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, & & 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, & & 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, & & 51, 52, 53, 54, 55/ REAL( 8 ) :: RTDAT( 3,NRXNS ) INTEGER, PARAMETER :: NFALLOFF = 24 REAL( 8 ) :: RFDAT( 5,NFALLOFF ) INTEGER :: KTYPE( NRXNS ) DATA ( KTYPE( IRXXN ), IRXXN = 1, NRXNS ) / & & 0, 2, 3, 10, 3, 10, 3, 3, 3, 3, & ! O & 10, 10, 1, 1, 3, 0, 0, 0, 0, 3, & ! 1 & 3, 10, 0, 3, 10, 1, 8, 0, 9, 3, & ! 2 & 3, 10, 10, 0, 3, 4, 9, 9, 1, 3, & ! 3 & 0, 1, 3, 10, 3, 3, 4, 4, 1, 4, & ! 4 & 3, 3, 3, 1, 1, 1, 6, 6, 6, 6, & ! 5 & 6, 6, 10, 10, 0, 3, 3, 6, 3, 3, & ! 6 & 6, 3, 4, 3, 0, 3, 6, 6, 6, 6, & ! 7 & 6, 6, 6, 1, 3, 0, 6, 6, 6, 6, & ! 8 & 6, 6, 6, 6, 6, 6, 3, 0, 6, 6, & ! 9 & 6, 6, 6, 6, 6, 6, 6, 6, 1, 3, & ! O & 3, 6, 1, 6, 6, 6, 6, 6, 6, 6, & ! 1 & 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, & ! 2 & 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, & ! 3 & 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, & ! 4 & 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, & ! 5 & 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, & ! 6 & 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, & ! 7 & 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, & ! 8 & 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, & ! 9 & 6, 6, 6, 0, 0, 3, 3, 3, 0, 3, & ! O & 3, 0, 3, 4, 0, 4, 0, 3, 1, 3, & ! 1 & 1, 3, 0, 1, 0, 1, 0, 1, 0, 0, & ! 2 & 0, 3, 3, 0, 1, 3, 0, 3, 1, 1, & ! 3 & 0, 0, 1, 0, 3, 1, 1, 0, 1, 1, & ! 4 & 0, 1, 1, 3, 3, 3, 1, 0, 3, 3, & ! 5 & 1, 0, 1, 1, 1, 0, 1, 0, 1, 0, & ! 6 & 6, 0, 6, 1, 3, 1, 1, 0, 1, 0, & ! 7 & 1, 0, 6, 6, 6, 6, 6, 6, 6, 6, & ! 8 & 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, & ! 9 & 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, & ! O & 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, & ! 1 & 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, & ! 2 & 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, & ! 3 & 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, & ! 4 & 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, & ! 5 & 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, & ! 6 & 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, & ! 7 & 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, & ! 8 & 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, & ! 9 & 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, & ! O & 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, & ! 1 & 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, & ! 2 & 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, & ! 3 & 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, & ! 4 & 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, & ! 5 & 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, & ! 6 & 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, & ! 7 & 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, & ! 8 & 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, & ! 9 & 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, & ! O & 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, & ! 1 & 6, 6, 6, 6, 6, 3, 10, 3, 3, 3, & ! 2 & 3, 3, 3, 3, 3, 3, 1, 3, 3, 3, & ! 3 & 3, 1, 3, 3, 0, 3, 3, 3, 1, 1, & ! 4 & 3, 3, 3, 3, 1, 10, 3, 3, 3, 1, & ! 5 & 1, 1, 1, 4, 4, 4, 3, 3, 3, 3, & ! 6 & 3, 3, 3, 3, 3, 3, 3, 3, 1, 1, & ! 7 & 1, 3, 3, 3, 1, 6, 6, 6, 6, 0, & ! 8 & 2, 0, 10, 10, 0, 0, 2, 2, 3, 1, & ! 9 & 3, 10, 0, 0, 10, 3, 3, 0, 3, 3, & ! O & 3, 3, 1, 1, 1, 3, 1, 1, 1, 3, & ! 1 & 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, & ! 2 & 0, 1, 1, 0, 6, 6, 6, 6, 6, 6, & ! 3 & 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, & ! 4 & 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, & ! 5 & 6, 6, 6, 6, 3, 10, 1, 1, 1, 1, & ! 6 & 10, 1, 1, 1, 1, 1, 3, 3, 3, 1, & ! 7 & 1, 1, 1, 1, 1, 1, 1, 1, 6, 6, & ! 8 & 6, 6, 6, 6, 6, 6, 6, 0, 0, 3, & ! 9 & 3, 3, 3, 0, 3, 1, 1, 3, 1, 1, & ! O & 0, 1, -1, -1, -1, -1, -1, -1, -1, -1, & ! 1 & 12, 1, 1, 1, 1, 1, 1, 1, 1, 1, & ! 2 & 1, 1, 1, 1, 1, 1, 1, -1, 1, -1, & ! 3 & 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, & ! 4 & 1, -1/ ! 5 INTEGER :: IRXBITS( NRXNS ) DATA ( IRXBITS( IRXXN ), IRXXN = 1, NRXNS ) / & & 2, 20, 0, 1, 0, 1, 0, 0, 0, 16, & ! O & 1, 1, 8, 8, 0, 2, 2, 2, 2, 8, & ! 1 & 4, 1, 2, 0, 1, 0, 0, 2, 0, 0, & ! 2 & 0, 1, 1, 2, 0, 0, 0, 8, 0, 0, & ! 3 & 2, 0, 0, 1, 128, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 1, 1, 2, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 2, 2, 0, 0, 0, 2, 0, & ! O & 0, 2, 0, 0, 2, 0, 2, 0, 0, 0, & ! 1 & 0, 0, 2, 0, 2, 0, 2, 0, 2, 2, & ! 2 & 2, 0, 0, 2, 0, 0, 2, 0, 0, 0, & ! 3 & 2, 2, 0, 2, 0, 0, 0, 2, 0, 0, & ! 4 & 2, 0, 0, 0, 0, 0, 0, 2, 0, 0, & ! 5 & 0, 2, 0, 0, 0, 2, 0, 2, 0, 2, & ! 6 & 0, 2, 0, 0, 0, 0, 0, 2, 0, 2, & ! 7 & 0, 2, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 64, 1, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, & ! 8 & 4, 2, 1, 1, 2, 2, 0, 0, 0, 0, & ! 9 & 0, 1, 2, 2, 1, 0, 0, 2, 0, 0, & ! O & 128, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 2, 0, 0, 2, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 64, 1, 0, 0, 0, 0, & ! 6 & 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 2, 2, 0, & ! 9 & 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, & ! O & 2, 0, 1, 1, 1, 1, 1, 1, 1, 1, & ! 1 & 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 1, 0, 1, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 1/ ! 5 INTEGER, PARAMETER :: NTERMS_JACOB = 39204 INTEGER, PARAMETER :: NSTEPS_JACOB = 1504 INTEGER :: IORDER( NRXNS ) DATA ( IORDER( IRXXN ), IRXXN = 1, NRXNS ) / & & 1, 3, 2, 2, 2, 2, 2, 2, 2, 3, & ! O & 2, 1, 2, 3, 2, 1, 1, 1, 1, 2, & ! 1 & 2, 2, 1, 2, 2, 2, 2, 1, 2, 2, & ! 2 & 2, 2, 1, 1, 2, 2, 2, 3, 2, 2, & ! 3 & 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 4 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 5 & 2, 2, 2, 1, 1, 2, 2, 2, 2, 2, & ! 6 & 2, 2, 2, 1, 1, 2, 2, 2, 2, 2, & ! 7 & 2, 2, 2, 2, 1, 1, 2, 2, 2, 2, & ! 8 & 2, 2, 2, 2, 2, 2, 1, 1, 2, 2, & ! 9 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, & ! O & 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, & ! 1 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 2 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 3 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 4 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 5 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 6 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 7 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 8 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 9 & 2, 2, 2, 1, 1, 2, 2, 2, 1, 2, & ! O & 2, 1, 2, 2, 1, 2, 1, 2, 2, 2, & ! 1 & 2, 2, 1, 2, 1, 2, 1, 2, 1, 1, & ! 2 & 1, 2, 2, 1, 2, 2, 1, 2, 2, 2, & ! 3 & 1, 1, 2, 1, 2, 2, 2, 1, 2, 2, & ! 4 & 1, 2, 2, 2, 2, 2, 2, 1, 2, 2, & ! 5 & 2, 1, 2, 2, 2, 1, 2, 1, 2, 1, & ! 6 & 2, 1, 2, 2, 2, 2, 2, 1, 2, 1, & ! 7 & 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, & ! 8 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 9 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! O & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 1 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 2 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 3 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 4 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 5 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 6 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 7 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 8 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 9 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! O & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 1 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 2 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 3 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 4 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 5 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 6 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 7 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 8 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 9 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! O & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 1 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 2 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 3 & 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, & ! 4 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 5 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 6 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 7 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, & ! 8 & 3, 1, 2, 2, 1, 1, 2, 2, 2, 2, & ! 9 & 2, 2, 1, 1, 1, 2, 2, 1, 2, 2, & ! O & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 1 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 2 & 1, 2, 2, 1, 2, 2, 2, 2, 2, 2, & ! 3 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 4 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 5 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 6 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 7 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 8 & 2, 2, 2, 2, 2, 2, 2, 1, 1, 2, & ! 9 & 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, & ! O & 1, 2, 1, 1, 1, 1, 1, 2, 2, 2, & ! 1 & 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, & ! 2 & 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, & ! 3 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 4 & 2, 1/ ! 5 INTEGER, PARAMETER :: KTN1 = 122 INTEGER :: KRX1( KTN1 ) DATA ( KRX1( IRXXN ), IRXXN = 1, KTN1 ) / & & 13, 14, 26, 39, 42, 49, 54, 55, 56, 84, & ! O & 109, 113, 219, 221, 224, 226, 228, 235, 239, 240, & ! 1 & 243, 246, 247, 249, 250, 252, 253, 257, 261, 263, & ! 2 & 264, 265, 267, 269, 274, 276, 277, 279, 281, 537, & ! 3 & 542, 549, 550, 555, 560, 561, 562, 563, 579, 580, & ! 4 & 581, 585, 600, 613, 614, 615, 617, 618, 619, 621, & ! 5 & 622, 623, 624, 625, 626, 627, 628, 629, 630, 632, & ! 6 & 633, 667, 668, 669, 670, 672, 673, 674, 675, 676, & ! 7 & 680, 681, 682, 683, 684, 685, 686, 687, 688, 706, & ! 8 & 707, 709, 710, 712, 722, 723, 724, 725, 726, 727, & ! 9 & 728, 729, 730, 731, 732, 733, 734, 735, 736, 737, & ! O & 739, 741, 742, 743, 744, 745, 746, 747, 748, 749, & ! 1 & 750, 751/ ! 2 INTEGER, PARAMETER :: KTN2 = 4 INTEGER :: KRX2( KTN2 ) DATA ( KRX2( IRXXN ), IRXXN = 1, KTN2 ) / & & 2, 591, 597, 598/ INTEGER, PARAMETER :: KTN3 = 112 INTEGER :: KRX3( KTN3 ) DATA ( KRX3( IRXXN ), IRXXN = 1, KTN3 ) / & & 3, 5, 7, 8, 9, 10, 15, 20, 21, 24, & ! O & 30, 31, 35, 40, 43, 45, 46, 51, 52, 53, & ! 1 & 66, 67, 69, 70, 72, 74, 76, 85, 97, 110, & ! 2 & 111, 206, 207, 208, 210, 211, 213, 218, 220, 222, & ! 3 & 232, 233, 236, 238, 245, 254, 255, 256, 259, 260, & ! 4 & 275, 526, 528, 529, 530, 531, 532, 533, 534, 535, & ! 5 & 536, 538, 539, 540, 541, 543, 544, 546, 547, 548, & ! 6 & 551, 552, 553, 554, 557, 558, 559, 567, 568, 569, & ! 7 & 570, 571, 572, 573, 574, 575, 576, 577, 578, 582, & ! 8 & 583, 584, 599, 601, 606, 607, 609, 610, 611, 612, & ! 9 & 616, 620, 665, 677, 678, 679, 700, 701, 702, 703, & ! O & 705, 708/ ! 1 INTEGER, PARAMETER :: KTN4 = 10 INTEGER :: KRX4( KTN4 ) DATA ( KRX4( IRXXN ), IRXXN = 1, KTN4 ) / & & 36, 47, 48, 50, 73, 214, 216, 564, 565, 566/ INTEGER, PARAMETER :: KTN5 = 0 INTEGER :: KRX5( 1 ) DATA KRX5( 1 ) / 0 / INTEGER, PARAMETER :: KTN6 = 414 INTEGER :: KRX6( KTN6 ) DATA ( KRX6( IRXXN ), IRXXN = 1, KTN6 ) / & & 57, 58, 59, 60, 61, 62, 68, 71, 77, 78, & ! O & 79, 80, 81, 82, 83, 87, 88, 89, 90, 91, & ! 1 & 92, 93, 94, 95, 96, 99, 100, 101, 102, 103, & ! 2 & 104, 105, 106, 107, 108, 112, 114, 115, 116, 117, & ! 3 & 118, 119, 120, 121, 122, 123, 124, 125, 126, 127, & ! 4 & 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, & ! 5 & 138, 139, 140, 141, 142, 143, 144, 145, 146, 147, & ! 6 & 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, & ! 7 & 158, 159, 160, 161, 162, 163, 164, 165, 166, 167, & ! 8 & 168, 169, 170, 171, 172, 173, 174, 175, 176, 177, & ! 9 & 178, 179, 180, 181, 182, 183, 184, 185, 186, 187, & ! O & 188, 189, 190, 191, 192, 193, 194, 195, 196, 197, & ! 1 & 198, 199, 200, 201, 202, 203, 271, 273, 283, 284, & ! 2 & 285, 286, 287, 288, 289, 290, 291, 292, 293, 294, & ! 3 & 295, 296, 297, 298, 299, 300, 301, 302, 303, 304, & ! 4 & 305, 306, 307, 308, 309, 310, 311, 312, 313, 314, & ! 5 & 315, 316, 317, 318, 319, 320, 321, 322, 323, 324, & ! 6 & 325, 326, 327, 328, 329, 330, 331, 332, 333, 334, & ! 7 & 335, 336, 337, 338, 339, 340, 341, 342, 343, 344, & ! 8 & 345, 346, 347, 348, 349, 350, 351, 352, 353, 354, & ! 9 & 355, 356, 357, 358, 359, 360, 361, 362, 363, 364, & ! O & 365, 366, 367, 368, 369, 370, 371, 372, 373, 374, & ! 1 & 375, 376, 377, 378, 379, 380, 381, 382, 383, 384, & ! 2 & 385, 386, 387, 388, 389, 390, 391, 392, 393, 394, & ! 3 & 395, 396, 397, 398, 399, 400, 401, 402, 403, 404, & ! 4 & 405, 406, 407, 408, 409, 410, 411, 412, 413, 414, & ! 5 & 415, 416, 417, 418, 419, 420, 421, 422, 423, 424, & ! 6 & 425, 426, 427, 428, 429, 430, 431, 432, 433, 434, & ! 7 & 435, 436, 437, 438, 439, 440, 441, 442, 443, 444, & ! 8 & 445, 446, 447, 448, 449, 450, 451, 452, 453, 454, & ! 9 & 455, 456, 457, 458, 459, 460, 461, 462, 463, 464, & ! O & 465, 466, 467, 468, 469, 470, 471, 472, 473, 474, & ! 1 & 475, 476, 477, 478, 479, 480, 481, 482, 483, 484, & ! 2 & 485, 486, 487, 488, 489, 490, 491, 492, 493, 494, & ! 3 & 495, 496, 497, 498, 499, 500, 501, 502, 503, 504, & ! 4 & 505, 506, 507, 508, 509, 510, 511, 512, 513, 514, & ! 5 & 515, 516, 517, 518, 519, 520, 521, 522, 523, 524, & ! 6 & 525, 586, 587, 588, 589, 635, 636, 637, 638, 639, & ! 7 & 640, 641, 642, 643, 644, 645, 646, 647, 648, 649, & ! 8 & 650, 651, 652, 653, 654, 655, 656, 657, 658, 659, & ! 9 & 660, 661, 662, 663, 664, 689, 690, 691, 692, 693, & ! O & 694, 695, 696, 697/ ! 1 INTEGER, PARAMETER :: KTN7 = 0 INTEGER :: KRX7( 1 ) DATA KRX7( 1 ) / 0 / INTEGER, PARAMETER :: NWM = 3 INTEGER :: NRXWM( NWM ) DATA ( NRXWM( IRXXN ), IRXXN = 1, NWM ) / & & 2, 21, 591/ REAL( 8 ), PARAMETER :: ATM_AIR = 1.00000D+06 INTEGER, PARAMETER :: NWW = 5 INTEGER :: NRXWW( NWW ) DATA ( NRXWW( IRXXN ), IRXXN = 1, NWW ) / & & 13, 14, 14, 20, 38/ INTEGER, PARAMETER :: NWO2 = 2 INTEGER :: NRXWO2( NWO2 ) DATA ( NRXWO2( IRXXN ), IRXXN = 1, NWO2 ) / & & 2, 10/ REAL( 8 ), PARAMETER :: ATM_O2 = 2.09500D+05 INTEGER, PARAMETER :: NWN2 = 0 INTEGER :: NRXWN2( 1 ) DATA NRXWN2( 1 ) / 0 / REAL( 8 ), PARAMETER :: ATM_N2 = 7.80800D+05 INTEGER, PARAMETER :: NWCH4 = 2 INTEGER :: NRXWCH4( NWCH4 ) DATA ( NRXWCH4( IRXXN ), IRXXN = 1, NWCH4 ) / & & 526, 665/ REAL( 8 ), PARAMETER :: ATM_CH4 = 1.85000D+00 INTEGER, PARAMETER :: NWH2 = 2 INTEGER :: NRXWH2( NWH2 ) DATA ( NRXWH2( IRXXN ), IRXXN = 1, NWH2 ) / & & 45, 611/ REAL( 8 ), PARAMETER :: ATM_H2 = 5.60000D-01 INTEGER, PARAMETER :: MXPRD = 26 INTEGER :: IRR( NRXNS,MXPRD+3 ) DATA ( IRR( IRXXN, 1 ), IRXXN = 1, NRXNS ) / & & 1, 3, 3, 3, 3, 3, 4, 4, 2, 2, & ! O & 1, 6, 6, 6, 1, 5, 5, 4, 4, 8, & ! 1 & 8, 9, 10, 9, 9, 9, 9, 7, 9, 9, & ! 2 & 11, 11, 14, 14, 14, 11, 11, 11, 5, 5, & ! 3 & 15, 15, 9, 9, 9, 19, 19, 19, 19, 19, & ! 4 & 19, 23, 23, 23, 23, 23, 24, 24, 24, 24, & ! 5 & 24, 24, 25, 26, 26, 25, 25, 25, 25, 25, & ! 6 & 25, 25, 29, 30, 30, 29, 29, 29, 29, 29, & ! 7 & 29, 29, 29, 36, 37, 37, 36, 36, 36, 36, & ! 8 & 36, 36, 36, 36, 36, 39, 40, 40, 39, 39, & ! 9 & 39, 39, 39, 39, 39, 39, 39, 39, 41, 41, & ! O & 38, 38, 38, 31, 31, 31, 31, 31, 31, 31, & ! 1 & 31, 31, 31, 46, 46, 46, 46, 46, 46, 46, & ! 2 & 46, 46, 46, 47, 47, 47, 47, 47, 47, 47, & ! 3 & 47, 47, 47, 48, 48, 48, 48, 48, 48, 48, & ! 4 & 48, 48, 48, 49, 49, 49, 49, 49, 49, 49, & ! 5 & 49, 49, 49, 50, 50, 50, 50, 50, 50, 50, & ! 6 & 50, 50, 50, 51, 51, 51, 51, 51, 51, 51, & ! 7 & 51, 51, 51, 52, 52, 52, 52, 52, 52, 52, & ! 8 & 52, 52, 52, 53, 53, 53, 53, 53, 53, 53, & ! 9 & 53, 53, 53, 20, 20, 20, 20, 54, 54, 54, & ! O & 55, 55, 55, 43, 43, 57, 57, 22, 60, 28, & ! 1 & 35, 21, 21, 63, 63, 65, 65, 68, 68, 75, & ! 2 & 75, 75, 75, 69, 69, 69, 79, 45, 45, 44, & ! 3 & 44, 44, 80, 80, 80, 76, 76, 76, 77, 77, & ! 4 & 77, 81, 81, 83, 83, 83, 83, 83, 84, 84, & ! 5 & 84, 84, 70, 70, 70, 70, 66, 66, 42, 42, & ! 6 & 87, 87, 87, 89, 89, 89, 89, 89, 27, 27, & ! 7 & 34, 34, 78, 78, 78, 56, 56, 56, 56, 56, & ! 8 & 56, 56, 56, 56, 56, 33, 33, 33, 33, 33, & ! 9 & 33, 33, 33, 33, 33, 59, 59, 59, 59, 59, & ! O & 59, 59, 59, 59, 59, 88, 88, 88, 88, 88, & ! 1 & 88, 88, 88, 88, 88, 72, 72, 72, 72, 72, & ! 2 & 72, 72, 72, 72, 72, 64, 64, 64, 64, 64, & ! 3 & 64, 64, 64, 64, 64, 71, 71, 71, 71, 71, & ! 4 & 71, 71, 71, 71, 71, 61, 61, 61, 61, 61, & ! 5 & 61, 61, 61, 61, 61, 62, 62, 62, 62, 62, & ! 6 & 62, 62, 62, 62, 62, 90, 90, 90, 90, 90, & ! 7 & 90, 90, 90, 90, 90, 73, 73, 73, 73, 73, & ! 8 & 73, 73, 73, 73, 73, 74, 74, 74, 74, 74, & ! 9 & 74, 74, 74, 74, 74, 91, 91, 91, 91, 91, & ! O & 91, 91, 91, 91, 91, 92, 92, 92, 92, 92, & ! 1 & 92, 92, 92, 92, 92, 93, 93, 93, 93, 93, & ! 2 & 93, 93, 93, 93, 93, 82, 82, 82, 82, 82, & ! 3 & 82, 82, 82, 82, 82, 86, 86, 86, 86, 86, & ! 4 & 86, 86, 86, 86, 86, 32, 32, 32, 32, 32, & ! 5 & 32, 32, 32, 32, 32, 67, 67, 67, 67, 67, & ! 6 & 67, 67, 67, 67, 67, 94, 94, 94, 94, 94, & ! 7 & 94, 94, 94, 94, 94, 96, 96, 96, 96, 96, & ! 8 & 96, 96, 96, 96, 96, 58, 58, 58, 58, 58, & ! 9 & 58, 58, 58, 58, 58, 85, 85, 85, 85, 85, & ! O & 85, 85, 85, 85, 85, 97, 97, 97, 97, 97, & ! 1 & 97, 97, 97, 97, 97, 9, 98, 98, 98, 98, & ! 2 & 99, 99, 99, 99, 100, 100, 100, 100, 101, 101, & ! 3 & 101, 101, 95, 95, 95, 103, 105, 105, 105, 105, & ! 4 & 105, 106, 106, 106, 106, 108, 108, 109, 111, 113, & ! 5 & 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, & ! 6 & 126, 126, 126, 126, 127, 127, 127, 127, 128, 104, & ! 7 & 129, 131, 131, 131, 131, 132, 132, 132, 132, 134, & ! 8 & 135, 136, 135, 135, 137, 138, 135, 135, 135, 135, & ! 9 & 140, 140, 141, 141, 141, 135, 140, 142, 140, 9, & ! O & 135, 20, 54, 22, 55, 43, 57, 42, 66, 75, & ! 1 & 69, 45, 80, 63, 65, 68, 89, 83, 84, 70, & ! 2 & 146, 146, 146, 147, 143, 143, 143, 143, 143, 143, & ! 3 & 143, 143, 143, 143, 144, 144, 144, 144, 144, 144, & ! 4 & 144, 144, 144, 144, 145, 145, 145, 145, 145, 145, & ! 5 & 145, 145, 145, 145, 135, 98, 99, 100, 101, 106, & ! 6 & 108, 111, 113, 115, 116, 117, 118, 119, 120, 121, & ! 7 & 122, 123, 126, 127, 128, 104, 129, 131, 132, 110, & ! 8 & 110, 114, 114, 112, 112, 130, 130, 157, 157, 157, & ! 9 & 157, 157, 158, 158, 158, 158, 159, 159, 159, 159, & ! O & 159, 159, 1, 6, 6, 160, 161, 160, 160, 161, & ! 1 & 4, 165, 167, 168, 169, 170, 171, 172, 174, 175, & ! 2 & 176, 177, 178, 179, 180, 181, 182, 183, 184, 185, & ! 3 & 186, 188, 189, 190, 191, 192, 193, 194, 197, 195, & ! 4 & 196, 103/ ! 5 DATA ( IRR( IRXXN, 2 ), IRXXN = 1, NRXNS ) / & & 0, 0, 4, 2, 1, 1, 2, 1, 5, 2, & ! O & 5, 0, 0, 0, 5, 0, 0, 0, 0, 0, & ! 1 & 0, 2, 0, 10, 1, 5, 7, 0, 12, 4, & ! 2 & 2, 1, 0, 0, 9, 4, 11, 11, 11, 5, & ! 3 & 0, 9, 11, 16, 0, 2, 11, 11, 5, 19, & ! 4 & 19, 2, 11, 5, 19, 23, 2, 11, 5, 19, & ! 5 & 23, 24, 1, 0, 0, 2, 11, 5, 19, 23, & ! 6 & 24, 25, 1, 0, 0, 2, 11, 5, 19, 23, & ! 7 & 24, 25, 29, 1, 0, 0, 2, 11, 5, 19, & ! 8 & 23, 24, 25, 29, 36, 1, 0, 0, 2, 11, & ! 9 & 5, 19, 23, 24, 25, 29, 36, 39, 1, 0, & ! O & 1, 11, 0, 2, 11, 5, 19, 23, 24, 25, & ! 1 & 29, 36, 39, 2, 11, 5, 19, 23, 24, 25, & ! 2 & 29, 36, 39, 2, 11, 5, 19, 23, 24, 25, & ! 3 & 29, 36, 39, 2, 11, 5, 19, 23, 24, 25, & ! 4 & 29, 36, 39, 2, 11, 5, 19, 23, 24, 25, & ! 5 & 29, 36, 39, 2, 11, 5, 19, 23, 24, 25, & ! 6 & 29, 36, 39, 2, 11, 5, 19, 23, 24, 25, & ! 7 & 29, 36, 39, 2, 11, 5, 19, 23, 24, 25, & ! 8 & 29, 36, 39, 2, 11, 5, 19, 23, 24, 25, & ! 9 & 29, 36, 39, 0, 0, 9, 5, 9, 0, 5, & ! O & 9, 0, 5, 9, 0, 9, 0, 9, 9, 9, & ! 1 & 9, 9, 0, 9, 0, 9, 0, 9, 0, 0, & ! 2 & 0, 9, 5, 0, 9, 5, 0, 9, 5, 9, & ! 3 & 0, 0, 9, 0, 5, 9, 4, 0, 9, 4, & ! 4 & 0, 9, 4, 9, 4, 5, 3, 0, 9, 4, & ! 5 & 3, 0, 9, 4, 5, 0, 9, 0, 9, 0, & ! 6 & 9, 0, 5, 9, 4, 5, 3, 0, 9, 0, & ! 7 & 9, 0, 2, 1, 11, 2, 11, 5, 19, 23, & ! 8 & 24, 25, 29, 36, 39, 2, 11, 5, 19, 23, & ! 9 & 24, 25, 29, 36, 39, 2, 11, 5, 19, 23, & ! O & 24, 25, 29, 36, 39, 2, 11, 5, 19, 23, & ! 1 & 24, 25, 29, 36, 39, 2, 11, 5, 19, 23, & ! 2 & 24, 25, 29, 36, 39, 2, 11, 5, 19, 23, & ! 3 & 24, 25, 29, 36, 39, 2, 11, 5, 19, 23, & ! 4 & 24, 25, 29, 36, 39, 2, 11, 5, 19, 23, & ! 5 & 24, 25, 29, 36, 39, 2, 11, 5, 19, 23, & ! 6 & 24, 25, 29, 36, 39, 2, 11, 5, 19, 23, & ! 7 & 24, 25, 29, 36, 39, 2, 11, 5, 19, 23, & ! 8 & 24, 25, 29, 36, 39, 2, 11, 5, 19, 23, & ! 9 & 24, 25, 29, 36, 39, 2, 11, 5, 19, 23, & ! O & 24, 25, 29, 36, 39, 2, 11, 5, 19, 23, & ! 1 & 24, 25, 29, 36, 39, 2, 11, 5, 19, 23, & ! 2 & 24, 25, 29, 36, 39, 2, 11, 5, 19, 23, & ! 3 & 24, 25, 29, 36, 39, 2, 11, 5, 19, 23, & ! 4 & 24, 25, 29, 36, 39, 2, 11, 5, 19, 23, & ! 5 & 24, 25, 29, 36, 39, 2, 11, 5, 19, 23, & ! 6 & 24, 25, 29, 36, 39, 2, 11, 5, 19, 23, & ! 7 & 24, 25, 29, 36, 39, 2, 11, 5, 19, 23, & ! 8 & 24, 25, 29, 36, 39, 2, 11, 5, 19, 23, & ! 9 & 24, 25, 29, 36, 39, 2, 11, 5, 19, 23, & ! O & 24, 25, 29, 36, 39, 2, 11, 5, 19, 23, & ! 1 & 24, 25, 29, 36, 39, 0, 9, 4, 5, 3, & ! 2 & 9, 4, 5, 3, 9, 4, 5, 3, 9, 4, & ! 3 & 5, 3, 9, 9, 0, 9, 11, 2, 19, 23, & ! 4 & 25, 9, 4, 5, 3, 9, 4, 9, 9, 9, & ! 5 & 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, & ! 6 & 9, 4, 5, 3, 9, 4, 5, 3, 9, 9, & ! 7 & 9, 9, 4, 5, 3, 9, 4, 5, 3, 0, & ! 8 & 2, 0, 1, 1, 0, 0, 11, 11, 4, 5, & ! 9 & 2, 1, 0, 0, 0, 141, 11, 0, 140, 139, & ! O & 0, 135, 135, 135, 135, 135, 135, 135, 135, 135, & ! 1 & 135, 135, 135, 135, 135, 135, 135, 135, 135, 135, & ! 2 & 0, 9, 135, 0, 2, 11, 5, 19, 23, 24, & ! 3 & 25, 29, 36, 39, 2, 11, 5, 19, 23, 24, & ! 4 & 25, 29, 36, 39, 2, 11, 5, 19, 23, 24, & ! 5 & 25, 29, 36, 39, 0, 135, 135, 135, 135, 135, & ! 6 & 135, 135, 135, 135, 135, 135, 135, 135, 135, 135, & ! 7 & 135, 135, 135, 135, 135, 135, 135, 135, 135, 2, & ! 8 & 11, 2, 11, 2, 11, 2, 11, 0, 0, 9, & ! 9 & 5, 135, 9, 0, 5, 135, 9, 4, 5, 3, & ! O & 0, 135, 0, 0, 0, 0, 0, 162, 163, 164, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 9, 9, 9, 9, & ! 3 & 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, & ! 4 & 9, 0/ ! 5 DATA ( IRR( IRXXN, 3 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0/ ! 5 DATA ( IRR( IRXXN, 4 ), IRXXN = 1, NRXNS ) / & & 2, 4, 0, 1, 2, 5, 1, 5, 1, 1, & ! O & 6, 1, 7, 7, 2, 2, 1, 8, 3, 9, & ! 1 & 3, 10, 9, 1, 7, 11, 5, 9, 11, 11, & ! 2 & 9, 14, 11, 11, 1, 9, 15, 15, 9, 1, & ! 3 & 9, 11, 0, 11, 11, 1, 21, 20, 20, 22, & ! 4 & 20, 1, 0, 1, 11, 0, 0, 0, 1, 11, & ! 5 & 0, 0, 26, 25, 25, 19, 27, 19, 28, 19, & ! 6 & 19, 19, 30, 29, 29, 1, 34, 1, 20, 23, & ! 7 & 23, 13, 23, 37, 36, 36, 1, 34, 1, 20, & ! 8 & 23, 23, 13, 13, 38, 40, 39, 39, 1, 34, & ! 9 & 1, 20, 13, 13, 13, 20, 20, 20, 42, 43, & ! O & 44, 45, 45, 2, 11, 5, 19, 23, 24, 25, & ! 1 & 29, 36, 39, 2, 11, 5, 19, 23, 24, 25, & ! 2 & 29, 36, 39, 2, 11, 5, 19, 23, 24, 25, & ! 3 & 29, 36, 39, 2, 11, 5, 19, 23, 24, 25, & ! 4 & 29, 36, 39, 2, 11, 5, 19, 23, 24, 25, & ! 5 & 29, 36, 39, 2, 11, 5, 19, 23, 24, 25, & ! 6 & 29, 36, 39, 2, 11, 5, 19, 23, 24, 25, & ! 7 & 29, 36, 39, 2, 11, 5, 19, 23, 24, 25, & ! 8 & 29, 36, 39, 2, 11, 5, 19, 23, 24, 25, & ! 9 & 29, 36, 39, 11, 12, 11, 7, 25, 12, 7, & ! O & 29, 23, 7, 23, 25, 23, 25, 20, 11, 19, & ! 1 & 23, 20, 20, 9, 55, 9, 9, 9, 9, 12, & ! 2 & 20, 11, 7, 11, 12, 7, 25, 38, 7, 38, & ! 3 & 10, 0, 36, 0, 7, 39, 9, 11, 39, 9, & ! 4 & 66, 39, 9, 39, 9, 39, 55, 9, 23, 9, & ! 5 & 55, 19, 39, 9, 39, 11, 11, 31, 11, 11, & ! 6 & 25, 12, 7, 31, 11, 31, 55, 11, 25, 19, & ! 7 & 29, 31, 11, 11, 9, 2, 11, 5, 19, 23, & ! 8 & 24, 25, 29, 36, 39, 2, 11, 5, 19, 23, & ! 9 & 24, 25, 29, 36, 39, 2, 11, 5, 19, 23, & ! O & 24, 25, 29, 36, 39, 2, 11, 5, 19, 23, & ! 1 & 24, 25, 29, 36, 39, 2, 11, 5, 19, 23, & ! 2 & 24, 25, 29, 36, 39, 2, 11, 5, 19, 23, & ! 3 & 24, 25, 29, 36, 39, 2, 11, 5, 19, 23, & ! 4 & 24, 25, 29, 36, 39, 2, 11, 5, 19, 23, & ! 5 & 24, 25, 29, 36, 39, 2, 11, 5, 19, 23, & ! 6 & 24, 25, 29, 36, 39, 2, 11, 5, 19, 23, & ! 7 & 24, 25, 29, 36, 39, 2, 11, 5, 19, 23, & ! 8 & 24, 25, 29, 36, 39, 2, 11, 5, 19, 23, & ! 9 & 24, 25, 29, 36, 39, 2, 11, 5, 19, 23, & ! O & 24, 25, 29, 36, 39, 2, 11, 5, 19, 23, & ! 1 & 24, 25, 29, 36, 39, 2, 11, 5, 19, 23, & ! 2 & 24, 25, 29, 36, 39, 2, 11, 5, 19, 23, & ! 3 & 24, 25, 29, 36, 39, 2, 11, 5, 19, 23, & ! 4 & 24, 25, 29, 36, 39, 2, 11, 5, 19, 23, & ! 5 & 24, 25, 29, 36, 39, 2, 11, 5, 19, 23, & ! 6 & 24, 25, 29, 36, 39, 2, 11, 5, 19, 23, & ! 7 & 24, 25, 29, 36, 39, 2, 11, 5, 19, 23, & ! 8 & 24, 25, 29, 36, 39, 2, 11, 5, 19, 23, & ! 9 & 24, 25, 29, 36, 39, 2, 11, 5, 19, 23, & ! O & 24, 25, 29, 36, 39, 2, 11, 5, 19, 23, & ! 1 & 24, 25, 29, 36, 39, 19, 31, 11, 31, 11, & ! 2 & 31, 11, 31, 55, 31, 11, 31, 11, 31, 11, & ! 3 & 31, 19, 103, 93, 9, 105, 57, 57, 57, 57, & ! 4 & 57, 31, 11, 31, 66, 11, 11, 11, 11, 11, & ! 5 & 11, 11, 11, 11, 31, 31, 31, 31, 31, 9, & ! 6 & 31, 11, 31, 55, 31, 11, 31, 55, 11, 11, & ! 7 & 11, 31, 11, 31, 55, 31, 11, 31, 55, 135, & ! 8 & 136, 135, 137, 138, 135, 135, 139, 140, 140, 140, & ! 9 & 135, 141, 140, 135, 140, 134, 142, 9, 134, 135, & ! O & 139, 139, 139, 139, 139, 139, 139, 139, 139, 139, & ! 1 & 139, 139, 139, 139, 139, 139, 31, 139, 23, 139, & ! 2 & 11, 29, 139, 25, 2, 11, 5, 19, 23, 24, & ! 3 & 25, 29, 36, 39, 2, 11, 5, 19, 23, 24, & ! 4 & 25, 29, 36, 39, 2, 11, 5, 19, 23, 24, & ! 5 & 25, 29, 36, 39, 139, 31, 139, 31, 139, 139, & ! 6 & 11, 31, 31, 31, 31, 31, 139, 139, 139, 139, & ! 7 & 139, 139, 139, 139, 31, 31, 31, 139, 31, 2, & ! 8 & 11, 2, 11, 2, 11, 2, 11, 0, 0, 9, & ! 9 & 5, 135, 9, 0, 5, 135, 9, 4, 5, 3, & ! O & 0, 135, 10, 7, 7, 7, 7, 138, 138, 138, & ! 1 & 0, 166, 166, 166, 166, 166, 166, 173, 173, 173, & ! 2 & 173, 173, 166, 166, 166, 166, 183, 9, 185, 9, & ! 3 & 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, & ! 4 & 9, 198/ ! 5 DATA ( IRR( IRXXN, 5 ), IRXXN = 1, NRXNS ) / & & 3, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 5, 0, 0, 1, 0, 3, 0, 0, 0, & ! 1 & 0, 0, 2, 0, 0, 1, 0, 1, 13, 0, & ! 2 & 1, 0, 1, 1, 0, 0, 0, 0, 1, 0, & ! 3 & 0, 0, 0, 17, 0, 20, 0, 0, 11, 20, & ! 4 & 11, 0, 0, 0, 20, 0, 0, 0, 0, 20, & ! 5 & 0, 0, 0, 1, 1, 13, 28, 13, 20, 13, & ! 6 & 13, 13, 0, 1, 1, 23, 35, 23, 11, 31, & ! 7 & 31, 19, 31, 0, 1, 1, 13, 35, 13, 11, & ! 8 & 38, 38, 19, 23, 23, 0, 1, 1, 13, 35, & ! 9 & 13, 11, 20, 20, 19, 25, 25, 25, 0, 19, & ! O & 0, 0, 23, 11, 0, 11, 11, 11, 11, 11, & ! 1 & 11, 11, 11, 9, 0, 9, 9, 9, 9, 9, & ! 2 & 9, 9, 9, 1, 0, 1, 1, 1, 1, 1, & ! 3 & 1, 1, 1, 19, 0, 19, 0, 19, 19, 19, & ! 4 & 19, 19, 19, 25, 0, 25, 25, 25, 25, 0, & ! 5 & 25, 25, 25, 29, 0, 29, 29, 29, 29, 29, & ! 6 & 0, 29, 29, 39, 0, 39, 39, 39, 39, 39, & ! 7 & 39, 39, 0, 41, 0, 41, 41, 41, 41, 41, & ! 8 & 41, 41, 41, 12, 0, 12, 12, 12, 12, 12, & ! 9 & 12, 12, 12, 12, 0, 12, 11, 0, 11, 25, & ! O & 23, 31, 29, 49, 19, 24, 23, 11, 13, 23, & ! 1 & 31, 9, 11, 23, 11, 23, 11, 11, 11, 11, & ! 2 & 12, 12, 11, 12, 25, 12, 0, 23, 38, 0, & ! 3 & 0, 0, 0, 0, 36, 23, 11, 19, 23, 11, & ! 4 & 0, 23, 11, 23, 11, 23, 0, 11, 24, 11, & ! 5 & 57, 12, 23, 11, 7, 25, 31, 25, 31, 31, & ! 6 & 0, 11, 25, 39, 9, 39, 0, 9, 23, 13, & ! 7 & 23, 33, 12, 12, 11, 20, 0, 20, 20, 20, & ! 8 & 20, 20, 20, 20, 20, 54, 0, 54, 54, 54, & ! 9 & 54, 54, 54, 54, 54, 55, 0, 55, 55, 55, & ! O & 55, 55, 55, 55, 55, 43, 0, 43, 43, 43, & ! 1 & 43, 43, 43, 43, 43, 57, 0, 57, 57, 57, & ! 2 & 57, 57, 57, 57, 57, 66, 0, 66, 66, 66, & ! 3 & 66, 66, 66, 66, 66, 75, 0, 75, 75, 75, & ! 4 & 75, 75, 75, 75, 75, 69, 0, 69, 69, 69, & ! 5 & 69, 69, 69, 69, 69, 79, 0, 79, 79, 79, & ! 6 & 79, 79, 79, 79, 79, 80, 0, 80, 80, 80, & ! 7 & 80, 80, 80, 80, 80, 76, 0, 76, 76, 76, & ! 8 & 76, 76, 76, 76, 76, 77, 0, 77, 77, 77, & ! 9 & 77, 77, 77, 77, 77, 81, 0, 81, 81, 81, & ! O & 81, 81, 81, 81, 81, 83, 0, 83, 83, 83, & ! 1 & 83, 83, 83, 83, 83, 84, 0, 84, 84, 84, & ! 2 & 84, 84, 84, 84, 84, 70, 0, 70, 70, 70, & ! 3 & 70, 70, 70, 70, 70, 42, 0, 42, 42, 42, & ! 4 & 42, 42, 42, 42, 42, 0, 63, 0, 57, 57, & ! 5 & 57, 0, 0, 0, 0, 0, 65, 0, 66, 66, & ! 6 & 66, 0, 0, 0, 0, 0, 95, 0, 66, 66, & ! 7 & 66, 0, 0, 0, 0, 0, 68, 0, 66, 66, & ! 8 & 66, 0, 0, 0, 0, 42, 0, 66, 66, 66, & ! 9 & 66, 66, 66, 66, 66, 87, 0, 87, 87, 87, & ! O & 87, 87, 87, 87, 87, 89, 0, 89, 89, 89, & ! 1 & 89, 89, 89, 89, 89, 0, 23, 9, 23, 31, & ! 2 & 23, 9, 23, 57, 23, 9, 47, 31, 23, 9, & ! 3 & 47, 51, 9, 92, 11, 0, 87, 87, 87, 87, & ! 4 & 87, 50, 31, 47, 107, 9, 9, 31, 31, 31, & ! 5 & 31, 31, 31, 31, 23, 23, 52, 48, 23, 125, & ! 6 & 48, 31, 23, 57, 23, 31, 47, 57, 31, 31, & ! 7 & 31, 50, 31, 47, 66, 50, 31, 47, 66, 0, & ! 8 & 0, 2, 0, 0, 1, 1, 0, 9, 0, 1, & ! 9 & 1, 0, 1, 5, 1, 5, 0, 135, 135, 0, & ! O & 11, 11, 25, 20, 29, 23, 23, 1, 11, 11, & ! 1 & 12, 31, 36, 9, 9, 9, 143, 39, 24, 11, & ! 2 & 12, 0, 29, 23, 135, 0, 135, 135, 135, 135, & ! 3 & 135, 135, 135, 135, 146, 0, 146, 146, 146, 146, & ! 4 & 146, 146, 146, 146, 147, 0, 147, 147, 147, 147, & ! 5 & 147, 147, 147, 147, 19, 23, 31, 143, 31, 31, & ! 6 & 12, 23, 23, 23, 23, 23, 11, 31, 31, 31, & ! 7 & 31, 31, 31, 31, 23, 23, 23, 31, 143, 149, & ! 8 & 150, 151, 152, 153, 154, 155, 156, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 7, 160, 161, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 182, 0, 184, 0, & ! 3 & 187, 188, 188, 188, 188, 188, 193, 193, 193, 193, & ! 4 & 193, 0/ ! 5 DATA ( IRR( IRXXN, 6 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 9, 0, 0, 0, 0, 7, 0, & ! 3 & 0, 0, 0, 18, 0, 11, 0, 0, 1, 0, & ! 4 & 0, 0, 0, 0, 22, 0, 0, 0, 0, 22, & ! 5 & 0, 0, 0, 0, 19, 1, 4, 1, 11, 0, & ! 6 & 0, 0, 0, 0, 23, 31, 4, 31, 23, 33, & ! 7 & 33, 23, 33, 0, 0, 13, 38, 4, 38, 23, & ! 8 & 13, 13, 38, 31, 13, 0, 0, 13, 20, 4, & ! 9 & 20, 13, 25, 25, 20, 23, 38, 13, 0, 0, & ! O & 0, 0, 31, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 12, 0, 19, 0, & ! O & 31, 32, 0, 56, 12, 58, 31, 0, 0, 13, & ! 1 & 13, 19, 9, 24, 9, 24, 23, 23, 75, 0, & ! 2 & 0, 78, 12, 25, 0, 25, 0, 31, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 24, 23, 25, 24, 23, & ! 4 & 0, 24, 25, 31, 23, 7, 0, 25, 58, 23, & ! 5 & 0, 66, 31, 23, 23, 29, 49, 29, 1, 1, & ! 6 & 0, 20, 0, 23, 12, 23, 0, 19, 13, 9, & ! 7 & 32, 32, 13, 13, 12, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 11, 11, 11, & ! 9 & 11, 11, 11, 11, 11, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 56, 12, 59, 19, & ! 2 & 24, 19, 24, 0, 24, 12, 23, 51, 24, 51, & ! 3 & 23, 23, 0, 23, 20, 0, 75, 75, 75, 75, & ! 4 & 75, 23, 9, 50, 0, 12, 12, 9, 9, 9, & ! 5 & 9, 9, 9, 23, 33, 24, 23, 49, 24, 0, & ! 6 & 23, 9, 24, 66, 24, 9, 48, 66, 9, 9, & ! 7 & 9, 23, 9, 50, 107, 23, 9, 50, 133, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 12, 0, 11, 23, 56, 24, 11, 23, 12, & ! 1 & 25, 90, 0, 23, 23, 11, 39, 23, 58, 39, & ! 2 & 23, 0, 0, 143, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 56, 23, 23, 143, 143, & ! 6 & 0, 24, 24, 24, 24, 24, 31, 23, 23, 52, & ! 7 & 48, 23, 23, 143, 24, 24, 24, 143, 49, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 9, 0, 9, 0, & ! 3 & 0, 189, 189, 189, 189, 189, 194, 194, 194, 194, & ! 4 & 194, 0/ ! 5 DATA ( IRR( IRXXN, 7 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 5, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 13, 0, 9, 0, 19, 0, & ! 6 & 0, 0, 0, 0, 31, 32, 9, 32, 31, 32, & ! 7 & 32, 31, 32, 0, 0, 38, 23, 9, 23, 38, & ! 8 & 0, 0, 23, 32, 0, 0, 0, 20, 25, 9, & ! 9 & 25, 25, 0, 0, 25, 31, 23, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 53, 33, 0, 32, 0, 31, 33, 0, 0, 31, & ! 1 & 33, 0, 0, 58, 0, 58, 24, 24, 69, 0, & ! 2 & 0, 0, 78, 0, 0, 0, 0, 67, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 58, 12, 39, 58, 12, & ! 4 & 0, 58, 23, 53, 12, 31, 0, 39, 31, 31, & ! 5 & 0, 39, 24, 50, 31, 12, 50, 23, 47, 23, & ! 6 & 0, 0, 0, 53, 13, 24, 0, 39, 46, 0, & ! 7 & 13, 13, 1, 5, 13, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 85, 13, 32, 23, & ! 2 & 58, 12, 58, 0, 58, 13, 24, 23, 58, 23, & ! 3 & 24, 24, 0, 86, 84, 0, 69, 69, 69, 69, & ! 4 & 69, 24, 49, 23, 0, 60, 13, 23, 23, 23, & ! 5 & 23, 23, 23, 56, 32, 58, 24, 23, 58, 0, & ! 6 & 24, 23, 58, 0, 58, 19, 23, 0, 23, 23, & ! 7 & 23, 24, 49, 23, 0, 24, 49, 23, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 33, 49, 58, 23, 24, 29, & ! 1 & 0, 67, 0, 55, 24, 23, 23, 24, 31, 23, & ! 2 & 143, 0, 0, 56, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 148, 24, 24, 23, 49, & ! 6 & 0, 58, 58, 58, 58, 58, 23, 33, 24, 23, & ! 7 & 49, 24, 24, 48, 58, 58, 58, 49, 50, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 190, 190, 190, 190, 190, 197, 197, 197, 197, & ! 4 & 197, 0/ ! 5 DATA ( IRR( IRXXN, 8 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 5, 0, 19, 0, 13, 0, & ! 6 & 0, 0, 0, 0, 32, 33, 31, 33, 33, 13, & ! 7 & 13, 32, 13, 0, 0, 23, 0, 38, 0, 13, & ! 8 & 0, 0, 0, 33, 0, 0, 0, 25, 0, 20, & ! 9 & 0, 0, 0, 0, 0, 32, 13, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 33, 12, 0, 0, 0, 49, 32, 0, 0, 61, & ! 1 & 59, 0, 0, 55, 0, 66, 58, 58, 76, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 61, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 31, 13, 12, 31, 13, & ! 4 & 0, 31, 24, 56, 13, 53, 0, 23, 49, 12, & ! 5 & 0, 0, 58, 12, 24, 20, 23, 24, 23, 24, & ! 6 & 0, 0, 0, 56, 20, 58, 0, 12, 56, 0, & ! 7 & 46, 9, 0, 0, 75, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 32, 20, 0, 12, & ! 2 & 56, 13, 32, 0, 56, 20, 58, 24, 56, 24, & ! 3 & 58, 58, 0, 56, 83, 0, 9, 9, 9, 9, & ! 4 & 9, 58, 50, 24, 0, 75, 0, 24, 24, 24, & ! 5 & 24, 24, 24, 54, 0, 59, 58, 24, 56, 0, & ! 6 & 58, 24, 33, 0, 56, 49, 24, 0, 24, 24, & ! 7 & 24, 58, 50, 24, 0, 58, 50, 24, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 53, 32, 31, 24, 58, 0, & ! 1 & 0, 0, 0, 46, 58, 24, 24, 58, 49, 24, & ! 2 & 56, 0, 0, 32, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 58, 58, 24, 50, & ! 6 & 0, 90, 90, 90, 90, 90, 56, 32, 58, 24, & ! 7 & 23, 58, 58, 23, 64, 90, 90, 50, 51, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 191, 191, 191, 191, 193, 195, 195, 195, 195, & ! 4 & 195, 0/ ! 5 DATA ( IRR( IRXXN, 9 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 13, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 33, 13, 23, 13, 32, 0, & ! 7 & 0, 33, 0, 0, 0, 5, 0, 23, 0, 0, & ! 8 & 0, 0, 0, 38, 0, 0, 0, 5, 0, 25, & ! 9 & 0, 0, 0, 0, 0, 33, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 32, 11, 0, 0, 0, 50, 0, 0, 0, 32, & ! 1 & 62, 0, 0, 31, 0, 31, 55, 66, 77, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 49, 75, 75, 49, 75, & ! 4 & 0, 49, 58, 72, 20, 32, 0, 12, 56, 13, & ! 5 & 0, 0, 53, 13, 58, 87, 24, 58, 24, 58, & ! 6 & 0, 0, 0, 33, 60, 7, 0, 13, 32, 0, & ! 7 & 33, 0, 0, 0, 4, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 60, 0, 53, & ! 2 & 33, 20, 0, 0, 97, 60, 56, 58, 92, 58, & ! 3 & 82, 56, 0, 59, 23, 0, 11, 11, 11, 11, & ! 4 & 11, 53, 23, 58, 0, 0, 0, 58, 58, 58, & ! 5 & 58, 58, 58, 85, 0, 88, 56, 58, 33, 0, & ! 6 & 56, 58, 59, 0, 33, 50, 58, 0, 58, 58, & ! 7 & 58, 53, 23, 58, 0, 53, 23, 58, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 31, 0, 49, 58, 55, 0, & ! 1 & 0, 0, 0, 31, 66, 58, 58, 31, 144, 58, & ! 2 & 32, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 97, 56, 58, 51, & ! 6 & 0, 0, 0, 0, 0, 0, 54, 0, 59, 58, & ! 7 & 24, 56, 56, 24, 0, 64, 64, 51, 23, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 192, 193, 193, 193, 194, 196, 196, 196, 196, & ! 4 & 196, 0/ ! 5 DATA ( IRR( IRXXN, 10 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 13, 0, 13, 0, 13, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 13, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 13, & ! 9 & 0, 0, 0, 0, 0, 13, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 56, 0, 0, 0, 0, & ! 1 & 32, 0, 0, 46, 0, 46, 66, 69, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 53, 69, 69, 53, 69, & ! 4 & 0, 53, 12, 61, 69, 0, 0, 20, 85, 20, & ! 5 & 0, 0, 56, 20, 53, 57, 58, 56, 58, 20, & ! 6 & 0, 0, 0, 71, 75, 53, 0, 20, 0, 0, & ! 7 & 31, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 56, & ! 2 & 32, 54, 0, 0, 82, 89, 93, 53, 93, 12, & ! 3 & 67, 66, 0, 31, 55, 0, 13, 13, 13, 13, & ! 4 & 13, 56, 24, 53, 0, 0, 0, 71, 71, 71, & ! 5 & 71, 71, 71, 32, 0, 32, 33, 53, 59, 0, & ! 6 & 33, 12, 88, 0, 59, 23, 56, 0, 71, 71, & ! 7 & 71, 56, 24, 53, 0, 56, 24, 53, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 32, 0, 50, 55, 66, 0, & ! 1 & 0, 0, 0, 56, 46, 66, 139, 53, 32, 76, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 144, 97, 56, 23, & ! 6 & 0, 0, 0, 0, 0, 0, 85, 0, 88, 56, & ! 7 & 58, 33, 33, 58, 0, 0, 0, 23, 24, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 193, 194, 194, 194, 0, 0, 0, 0, 0, & ! 4 & 0, 0/ ! 5 DATA ( IRR( IRXXN, 11 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 5, 0, 33, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 33, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 56, 0, 33, 31, 70, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 59, 50, 0, 59, 50, & ! 4 & 0, 71, 13, 32, 60, 0, 0, 49, 61, 69, & ! 5 & 0, 0, 85, 57, 56, 0, 20, 33, 56, 56, & ! 6 & 0, 0, 0, 32, 0, 86, 0, 28, 0, 0, & ! 7 & 59, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 54, & ! 2 & 0, 60, 0, 0, 32, 84, 82, 97, 82, 13, & ! 3 & 102, 67, 0, 104, 104, 0, 20, 20, 20, 20, & ! 4 & 20, 59, 58, 56, 0, 0, 0, 45, 61, 61, & ! 5 & 61, 61, 61, 0, 0, 0, 59, 56, 88, 0, & ! 6 & 85, 13, 86, 0, 88, 24, 33, 0, 61, 61, & ! 7 & 61, 59, 58, 56, 0, 59, 58, 56, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 56, 57, 31, 0, & ! 1 & 0, 0, 0, 33, 31, 69, 53, 82, 0, 77, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 145, 82, 93, 24, & ! 6 & 0, 0, 0, 0, 0, 0, 32, 0, 32, 33, & ! 7 & 53, 59, 59, 56, 0, 0, 0, 24, 58, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 194, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0/ ! 5 DATA ( IRR( IRXXN, 12 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 32, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 59, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 33, 0, 59, 33, 31, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 72, 56, 0, 72, 56, & ! 4 & 0, 61, 75, 0, 50, 0, 0, 56, 32, 60, & ! 5 & 0, 0, 59, 75, 59, 0, 56, 59, 33, 54, & ! 6 & 0, 0, 0, 0, 0, 32, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 71, & ! 2 & 0, 28, 0, 0, 0, 66, 86, 73, 94, 20, & ! 3 & 0, 0, 0, 94, 0, 0, 60, 60, 60, 60, & ! 4 & 60, 88, 12, 59, 0, 0, 0, 73, 45, 45, & ! 5 & 62, 45, 62, 0, 0, 0, 88, 33, 72, 0, & ! 6 & 59, 20, 32, 0, 72, 58, 59, 0, 45, 62, & ! 7 & 62, 88, 12, 85, 0, 88, 12, 33, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 33, 66, 49, 0, & ! 1 & 0, 0, 0, 59, 33, 70, 56, 144, 0, 31, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 32, 32, 82, 58, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 59, & ! 7 & 56, 88, 97, 33, 0, 0, 0, 58, 139, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 195, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0/ ! 5 DATA ( IRR( IRXXN, 13 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 32, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 59, 0, 64, 59, 46, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 71, 67, 0, 71, 67, & ! 4 & 0, 62, 69, 0, 56, 0, 0, 32, 0, 50, & ! 5 & 0, 0, 72, 69, 61, 0, 54, 67, 55, 33, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 32, & ! 2 & 0, 0, 0, 0, 0, 0, 32, 74, 102, 56, & ! 3 & 0, 0, 0, 55, 0, 0, 12, 12, 12, 12, & ! 4 & 12, 61, 53, 88, 0, 0, 0, 74, 90, 90, & ! 5 & 45, 90, 45, 0, 0, 0, 72, 59, 64, 0, & ! 6 & 88, 33, 67, 0, 93, 12, 88, 0, 73, 45, & ! 7 & 45, 72, 13, 59, 0, 72, 13, 59, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 59, 42, 50, 0, & ! 1 & 0, 0, 0, 72, 59, 31, 71, 145, 0, 53, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 144, 53, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 88, & ! 7 & 33, 72, 93, 59, 0, 0, 0, 53, 53, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 196, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0/ ! 5 DATA ( IRR( IRXXN, 14 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 64, 0, 32, 64, 59, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 61, 0, 0, 61, 0, & ! 4 & 0, 73, 76, 0, 32, 0, 0, 0, 0, 56, & ! 5 & 0, 0, 64, 60, 86, 0, 33, 0, 59, 55, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 66, 0, 60, & ! 3 & 0, 0, 0, 9, 0, 0, 0, 1, 66, 66, & ! 4 & 19, 62, 13, 61, 0, 0, 0, 81, 73, 73, & ! 5 & 90, 73, 90, 0, 0, 0, 32, 88, 67, 0, & ! 6 & 97, 55, 0, 0, 82, 13, 72, 0, 74, 90, & ! 7 & 90, 61, 20, 88, 0, 61, 20, 88, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 32, 47, 56, 0, & ! 1 & 0, 0, 0, 32, 64, 46, 144, 32, 0, 56, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 67, 56, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 72, & ! 7 & 59, 64, 82, 88, 0, 0, 0, 56, 56, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0/ ! 5 DATA ( IRR( IRXXN, 15 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 32, 0, 0, 67, 71, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 67, 0, 0, 67, 0, & ! 4 & 0, 74, 77, 0, 0, 0, 0, 0, 0, 32, & ! 5 & 0, 0, 71, 35, 67, 0, 55, 0, 88, 59, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 32, 0, 83, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 22, 0, & ! 4 & 0, 67, 56, 86, 0, 0, 0, 96, 74, 74, & ! 5 & 73, 74, 73, 0, 0, 0, 67, 72, 0, 0, & ! 6 & 92, 59, 0, 0, 64, 20, 86, 0, 81, 73, & ! 7 & 73, 62, 56, 92, 0, 62, 56, 92, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 31, 33, 0, & ! 1 & 0, 0, 0, 0, 67, 59, 32, 0, 0, 61, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 59, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 32, & ! 7 & 88, 67, 144, 72, 0, 0, 0, 59, 59, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0/ ! 5 DATA ( IRR( IRXXN, 16 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 72, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 82, 81, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 61, 85, 0, 0, 59, 0, 57, 88, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 84, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 107, 59, 67, 0, 0, 0, 110, 81, 81, & ! 5 & 74, 81, 74, 0, 0, 0, 0, 64, 0, 0, & ! 6 & 93, 88, 0, 0, 32, 56, 32, 0, 64, 74, & ! 7 & 74, 93, 59, 93, 0, 93, 59, 93, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 56, 59, 0, & ! 1 & 0, 0, 0, 0, 0, 71, 0, 0, 0, 73, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 88, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 67, & ! 7 & 72, 0, 145, 92, 0, 0, 0, 88, 88, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0/ ! 5 DATA ( IRR( IRXXN, 17 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 61, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 67, 83, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 67, 56, 0, 0, 72, 0, 72, 57, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 70, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 88, 107, 0, 0, 0, 0, 67, 67, & ! 5 & 81, 91, 81, 0, 0, 0, 0, 67, 0, 0, & ! 6 & 82, 57, 0, 0, 67, 54, 67, 0, 67, 81, & ! 7 & 81, 82, 88, 82, 0, 82, 88, 82, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 33, 72, 0, & ! 1 & 0, 0, 0, 0, 0, 72, 0, 0, 0, 74, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 71, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 64, 0, 32, 93, 0, 0, 0, 71, 71, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0/ ! 5 DATA ( IRR( IRXXN, 18 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 73, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 84, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 67, 0, 0, 66, 0, 66, 72, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 66, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 57, 0, 0, 0, 0, 0, 96, 96, & ! 5 & 67, 67, 91, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 64, 60, 0, 0, 0, 33, 0, 0, 112, 91, & ! 7 & 91, 64, 57, 86, 0, 64, 57, 86, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 59, 64, 0, & ! 1 & 0, 0, 0, 0, 0, 61, 0, 0, 0, 82, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 62, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 67, 0, 67, 82, 0, 0, 0, 62, 62, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0/ ! 5 DATA ( IRR( IRXXN, 19 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 74, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 70, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 64, 0, 64, 66, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 67, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 71, 0, 0, 0, 0, 0, 112, 114, & ! 5 & 96, 96, 67, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 32, 35, 0, 0, 0, 55, 0, 0, 0, 64, & ! 7 & 64, 67, 60, 67, 0, 67, 60, 67, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 88, 67, 0, & ! 1 & 0, 0, 0, 0, 0, 73, 0, 0, 0, 144, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 93, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 144, 0, 0, 0, 93, 93, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0/ ! 5 DATA ( IRR( IRXXN, 20 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 67, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 31, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 67, 0, 42, 64, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 62, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 114, 114, 96, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 67, 66, 0, 0, 0, 59, 0, 0, 0, 67, & ! 7 & 67, 107, 35, 107, 0, 133, 35, 133, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 72, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 74, 0, 0, 0, 145, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 82, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 145, 0, 0, 0, 82, 82, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0/ ! 5 DATA ( IRR( IRXXN, 21 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 50, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 86, 32, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 66, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 114, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 32, 0, 0, 0, 43, 0, 0, 0, 114, & ! 7 & 130, 0, 61, 0, 0, 0, 61, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 64, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 67, 0, 0, 0, 67, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 73, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 32, 0, 0, 0, 73, 73, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0/ ! 5 DATA ( IRR( IRXXN, 22 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 56, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 32, 67, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 67, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 67, 0, 0, 0, 57, 0, 0, 0, 0, & ! 7 & 0, 0, 62, 0, 0, 0, 62, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 86, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 74, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 67, 0, 0, 0, 74, 74, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0/ ! 5 DATA ( IRR( IRXXN, 23 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 61, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 67, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 107, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 72, 0, 0, 0, 0, & ! 7 & 0, 0, 92, 0, 0, 0, 92, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 67, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 91, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 91, 91, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0/ ! 5 DATA ( IRR( IRXXN, 24 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 67, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 60, 0, 0, 0, 0, & ! 7 & 0, 0, 82, 0, 0, 0, 82, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 144, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 144, 144, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0/ ! 5 DATA ( IRR( IRXXN, 25 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 28, 0, 0, 0, 0, & ! 7 & 0, 0, 66, 0, 0, 0, 66, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 67, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 67, 67, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0/ ! 5 DATA ( IRR( IRXXN, 26 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 35, 0, 0, 0, 0, & ! 7 & 0, 0, 67, 0, 0, 0, 67, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0/ ! 5 DATA ( IRR( IRXXN, 27 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 66, 0, 0, 0, 0, & ! 7 & 0, 0, 107, 0, 0, 0, 133, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0/ ! 5 DATA ( IRR( IRXXN, 28 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 32, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0/ ! 5 DATA ( IRR( IRXXN, 29 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 67, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0/ ! 5 DATA ( RTDAT( 1,IRXXN ), IRXXN = 1, NRXNS ) / & & 1.0000D+00, 5.6800D-34, 8.0000D-12, 9.0000D-32, 5.5000D-12, & ! O & 2.5000D-31, 3.0000D-12, 1.4000D-13, 1.8000D-11, 3.3000D-39, & ! + & 3.6000D-30, 1.3000D-03, 1.0000D-22, 0.0000D+00, 4.5000D-14, & ! 1 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.6300D-10, & ! + & 2.3800D-11, 7.0000D-31, 1.0000D+00, 2.5000D-12, 3.2000D-30, & ! 2 & 2.0000D-11, 2.4000D-14, 1.0000D+00, 1.4400D-13, 1.7000D-12, & ! + & 3.6000D-12, 2.0000D-31, 3.7200D-05, 1.0000D+00, 1.3000D-12, & ! 3 & 2.0300D-16, 2.2000D-13, 3.0800D-34, 4.0000D-12, 8.5000D-13, & ! + & 1.0000D+00, 1.8000D-12, 4.8000D-11, 3.3000D-31, 7.7000D-12, & ! 4 & 2.3000D-12, 3.4600D-13, 3.3400D-14, 1.3000D-12, 6.3900D-14, & ! + & 7.4000D-13, 2.6000D-12, 3.8000D-13, 2.3000D-12, 2.0000D-13, & ! 5 & 3.5000D-14, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 2.7000D-28, 4.9000D-03, 1.0000D+00, & ! 6 & 7.5000D-12, 5.2000D-13, 1.0000D+00, 2.0000D-12, 4.4000D-13, & ! + & 1.0000D+00, 2.9000D-12, 1.2100D-11, 8.3000D+16, 1.0000D+00, & ! 7 & 6.7000D-12, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.3700D-11, 7.9000D+16, & ! 8 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 9 & 1.0000D+00, 1.6000D+16, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! O & 1.0000D+00, 1.0000D+00, 1.0000D+00, 2.4000D-11, 7.5000D+14, & ! + & 2.3000D-11, 1.0000D+00, 1.0000D-03, 1.0000D+00, 1.0000D+00, & ! 1 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 2 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 3 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 4 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 5 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 6 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 7 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 8 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 9 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! O & 5.4000D-12, 2.0000D-12, 4.4000D-12, 1.0000D+00, 1.4000D-12, & ! + & 5.1000D-12, 1.0000D+00, 1.4000D-12, 4.5600D-14, 5.0000D-01, & ! 1 & 1.3000D-12, 1.7500D-01, 2.8500D-12, 4.5000D-13, 4.2000D-14, & ! + & 1.2000D-12, 3.8000D-12, 1.0000D+00, 2.5000D-11, 1.0000D+00, & ! 2 & 5.6000D-11, 1.0000D+00, 1.4100D-10, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 3.1000D-12, 2.8000D-12, 1.0000D+00, 1.5000D-11, & ! 3 & 1.4000D-12, 1.0000D+00, 1.7000D-12, 1.4000D-11, 3.5000D-12, & ! + & 1.5000D-03, 1.5000D-02, 1.2000D-11, 6.0000D-02, 1.3400D-12, & ! 4 & 7.4000D-11, 9.6600D-18, 1.0000D+00, 7.4000D-11, 9.6600D-18, & ! + & 1.0000D+00, 9.3500D-11, 1.4300D-17, 8.0000D-12, 1.4000D-15, & ! 5 & 1.5000D-12, 6.3400D-12, 1.0000D+00, 2.6000D-12, 8.5000D-16, & ! + & 4.3200D-12, 1.0000D+00, 6.1900D-11, 4.1800D-18, 1.0000D-13, & ! 6 & 1.0000D+00, 1.5500D-11, 4.8600D-03, 7.2000D-12, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.9900D-11, 1.4000D-15, & ! 7 & 1.1800D-15, 2.3700D-12, 1.0000D+00, 5.2800D-12, 1.0000D+00, & ! + & 6.4200D-12, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 8 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 9 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! O & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 1 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 2 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 3 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 4 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 5 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 6 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 7 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 8 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 9 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! O & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 1 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 2 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 3 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 4 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 5 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 6 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 7 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 8 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 9 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! O & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 1 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 2 & 1.8500D-12, 1.0000D-28, 9.1400D-15, 3.3000D-12, 1.0700D-11, & ! + & 4.8500D-12, 5.5100D-15, 4.5900D-13, 1.0200D-11, 1.4800D-11, & ! 3 & 1.3400D-14, 1.0000D-13, 2.2600D-11, 2.5400D-11, 7.8600D-15, & ! + & 3.0300D-12, 3.5000D-11, 1.9000D-11, 4.7500D-12, 1.0000D+00, & ! 4 & 5.7800D-11, 2.0600D-13, 2.6000D-12, 2.0000D-13, 3.5000D-14, & ! + & 4.4000D-13, 1.2100D-11, 5.0000D-16, 1.1900D-12, 3.2000D-11, & ! 5 & 5.5000D-30, 1.0000D-14, 2.3300D-12, 1.8100D-12, 2.3100D-11, & ! + & 1.3600D-11, 1.4300D-11, 3.2500D-11, 5.4900D-13, 1.3400D-12, & ! 6 & 1.4900D-12, 1.5100D-12, 3.7500D-12, 2.7000D-12, 2.7000D-12, & ! + & 6.7200D-12, 3.1900D-15, 5.3700D-13, 1.6100D-11, 1.2600D-11, & ! 7 & 8.5900D-15, 2.3100D-13, 1.4300D-11, 7.8400D-12, 3.0900D-11, & ! + & 3.0900D-11, 2.2700D-11, 8.2800D-16, 1.3300D-12, 4.0200D-11, & ! 8 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 7.6000D-32, 1.0000D+00, 1.3000D-30, 1.8000D-31, 1.0000D+00, & ! 9 & 1.0000D+00, 3.4400D-11, 9.4100D-12, 2.8000D-11, 2.4000D-11, & ! + & 6.2000D-12, 1.8000D-31, 1.0000D+00, 1.0000D+00, 4.4800D-05, & ! O & 6.2000D-12, 2.2000D-12, 1.0000D+00, 1.2500D-11, 1.7000D-12, & ! + & 3.9000D-11, 8.1000D-11, 8.0000D-11, 5.5000D-11, 1.2300D-10, & ! 1 & 7.7000D-11, 3.6000D-11, 1.9200D-10, 2.0000D-10, 8.1000D-11, & ! + & 8.0000D-11, 6.2000D-11, 8.0000D-11, 1.6600D-10, 3.0000D-10, & ! 2 & 4.2900D-10, 2.9400D-10, 3.8500D-10, 2.3200D-10, 4.1200D-10, & ! + & 1.0000D+00, 3.1000D-12, 1.2900D-11, 5.0000D-01, 1.0000D+00, & ! 3 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 4 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 5 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 7.3000D-12, & ! 6 & 1.6000D-29, 2.6700D-10, 4.9000D-10, 4.8000D-10, 5.4600D-10, & ! + & 5.2000D-30, 6.2000D-11, 1.3500D-10, 1.4000D-10, 1.4400D-10, & ! 7 & 2.4200D-10, 8.6000D-11, 8.3000D-11, 1.2000D-10, 1.8600D-10, & ! + & 2.6300D-10, 4.2100D-10, 3.9200D-10, 3.7700D-10, 2.1600D-10, & ! 8 & 2.6600D-10, 2.6600D-10, 5.4600D-10, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 9 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 5.4000D-12, & ! + & 2.0000D-12, 8.1000D-11, 4.4000D-12, 1.0000D+00, 1.4000D-12, & ! O & 8.0000D-11, 1.9900D-11, 1.4000D-15, 1.1800D-15, 2.3700D-12, & ! + & 1.0000D+00, 2.9400D-10, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 1 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 6.7006D-11, 9.4882D-06, 9.4882D-06, 9.4882D-06, 9.4882D-06, & ! 2 & 9.4882D-06, 9.4882D-06, 9.4882D-06, 9.4882D-06, 9.4882D-06, & ! + & 9.4882D-06, 9.4882D-06, 9.4882D-06, 9.4882D-06, 9.4882D-06, & ! 3 & 9.4882D-06, 2.5000D-12, 1.0000D+00, 2.5000D-12, 1.0000D+00, & ! + & 1.2500D-11, 4.0000D-11, 4.0000D-11, 4.0000D-11, 4.0000D-11, & ! 4 & 4.0000D-11, 4.0000D-11, 4.0000D-11, 4.0000D-11, 4.0000D-11, & ! + & 4.0000D-11, 1.0000D+00/ ! 5 DATA ( RTDAT( 2,IRXXN ), IRXXN = 1, NRXNS ) / & & 0.0000D+00,-2.6000D+00, 0.0000D+00,-1.5000D+00, 0.0000D+00, & ! O & -1.8000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & -4.1000D+00,-3.5000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00,-2.6000D+00, 0.0000D+00, 0.0000D+00,-4.5000D+00, & ! 2 & 0.0000D+00, 4.6000D+02, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00,-3.4000D+00,-2.4000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 4.5700D+00, 6.0000D+02, 2.8000D+03, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00,-4.3000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 3.6000D-01,-3.5300D+00, 0.0000D+00,-1.8000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 5.2000D+01, 5.3000D+01, 5.4000D+01, 5.5000D+01, & ! + & 5.6000D+01, 5.6000D+01,-7.1000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 5.4000D+01, 0.0000D+00, 0.0000D+00, & ! + & 7.0000D+01, 0.0000D+00,-1.0700D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 6.7000D+01, 5.4000D+01, 6.9000D+01, 7.0000D+01, & ! + & 7.0000D+01, 7.2000D+01, 7.2000D+01, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 7.6000D+01, 6.7000D+01, 5.4000D+01, 6.9000D+01, & ! + & 7.0000D+01, 7.0000D+01, 7.2000D+01, 7.2000D+01, 7.2000D+01, & ! 9 & 7.3000D+01, 0.0000D+00, 0.0000D+00, 7.6000D+01, 6.7000D+01, & ! + & 5.4000D+01, 6.9000D+01, 7.0000D+01, 7.0000D+01, 7.2000D+01, & ! O & 7.2000D+01, 7.2000D+01, 7.2000D+01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 5.3000D+01, 0.0000D+00, 5.2000D+01, 5.3000D+01, & ! 1 & 5.4000D+01, 5.5000D+01, 5.6000D+01, 5.6000D+01, 7.0000D+01, & ! + & 7.0000D+01, 7.0000D+01, 7.0000D+01, 5.2000D+01, 5.3000D+01, & ! 2 & 5.4000D+01, 5.5000D+01, 5.6000D+01, 5.6000D+01, 7.0000D+01, & ! + & 7.0000D+01, 7.0000D+01, 7.0000D+01, 5.2000D+01, 5.3000D+01, & ! 3 & 5.4000D+01, 5.5000D+01, 5.6000D+01, 5.6000D+01, 7.0000D+01, & ! + & 7.0000D+01, 7.0000D+01, 7.0000D+01, 5.2000D+01, 5.3000D+01, & ! 4 & 5.4000D+01, 5.5000D+01, 5.6000D+01, 5.6000D+01, 7.0000D+01, & ! + & 7.0000D+01, 7.0000D+01, 7.0000D+01, 5.2000D+01, 5.3000D+01, & ! 5 & 5.4000D+01, 5.5000D+01, 5.6000D+01, 5.6000D+01, 7.0000D+01, & ! + & 7.0000D+01, 7.0000D+01, 7.0000D+01, 5.2000D+01, 5.3000D+01, & ! 6 & 5.4000D+01, 5.5000D+01, 5.6000D+01, 5.6000D+01, 7.0000D+01, & ! + & 7.0000D+01, 7.0000D+01, 7.0000D+01, 5.2000D+01, 5.3000D+01, & ! 7 & 5.4000D+01, 5.5000D+01, 5.6000D+01, 5.6000D+01, 7.0000D+01, & ! + & 7.0000D+01, 7.0000D+01, 7.0000D+01, 5.2000D+01, 5.3000D+01, & ! 8 & 5.4000D+01, 5.5000D+01, 5.6000D+01, 5.6000D+01, 7.0000D+01, & ! + & 7.0000D+01, 7.0000D+01, 7.0000D+01, 5.2000D+01, 5.3000D+01, & ! 9 & 5.4000D+01, 5.5000D+01, 5.6000D+01, 5.6000D+01, 7.0000D+01, & ! + & 7.0000D+01, 7.0000D+01, 7.0000D+01, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 3.6500D+00, 0.0000D+00, & ! 1 & 2.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 2.0800D+02, 0.0000D+00, 2.1000D+02, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 7.6000D+01, 7.3000D+01, 6.7000D+01, & ! 8 & 5.2000D+01, 5.3000D+01, 5.4000D+01, 5.5000D+01, 5.6000D+01, & ! + & 5.6000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, & ! 9 & 5.2000D+01, 5.3000D+01, 5.4000D+01, 5.5000D+01, 5.6000D+01, & ! + & 5.6000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, & ! O & 5.2000D+01, 5.3000D+01, 5.4000D+01, 5.5000D+01, 5.6000D+01, & ! + & 5.6000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, & ! 1 & 5.2000D+01, 5.3000D+01, 5.4000D+01, 5.5000D+01, 5.6000D+01, & ! + & 5.6000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, & ! 2 & 5.2000D+01, 5.3000D+01, 5.4000D+01, 5.5000D+01, 5.6000D+01, & ! + & 5.6000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, & ! 3 & 5.2000D+01, 5.3000D+01, 5.4000D+01, 5.5000D+01, 5.6000D+01, & ! + & 5.6000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, & ! 4 & 5.2000D+01, 5.3000D+01, 5.4000D+01, 5.5000D+01, 5.6000D+01, & ! + & 5.6000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, & ! 5 & 5.2000D+01, 5.3000D+01, 5.4000D+01, 5.5000D+01, 5.6000D+01, & ! + & 5.6000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, & ! 6 & 5.2000D+01, 5.3000D+01, 5.4000D+01, 5.5000D+01, 5.6000D+01, & ! + & 5.6000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, & ! 7 & 5.2000D+01, 5.3000D+01, 5.4000D+01, 5.5000D+01, 5.6000D+01, & ! + & 5.6000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, & ! 8 & 5.2000D+01, 5.3000D+01, 5.4000D+01, 5.5000D+01, 5.6000D+01, & ! + & 5.6000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, & ! 9 & 5.2000D+01, 5.3000D+01, 5.4000D+01, 5.5000D+01, 5.6000D+01, & ! + & 5.6000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, & ! O & 5.2000D+01, 5.3000D+01, 5.4000D+01, 5.5000D+01, 5.6000D+01, & ! + & 5.6000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, & ! 1 & 5.2000D+01, 5.3000D+01, 5.4000D+01, 5.5000D+01, 5.6000D+01, & ! + & 5.6000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, & ! 2 & 5.2000D+01, 5.3000D+01, 5.4000D+01, 5.5000D+01, 5.6000D+01, & ! + & 5.6000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, & ! 3 & 5.2000D+01, 5.3000D+01, 5.4000D+01, 5.5000D+01, 5.6000D+01, & ! + & 5.6000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, & ! 4 & 5.2000D+01, 5.3000D+01, 5.4000D+01, 5.5000D+01, 5.6000D+01, & ! + & 5.6000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, & ! 5 & 5.2000D+01, 5.3000D+01, 5.4000D+01, 5.5000D+01, 5.6000D+01, & ! + & 5.6000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, & ! 6 & 5.2000D+01, 5.3000D+01, 5.4000D+01, 5.5000D+01, 5.6000D+01, & ! + & 5.6000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, & ! 7 & 5.2000D+01, 5.3000D+01, 5.4000D+01, 5.5000D+01, 5.6000D+01, & ! + & 5.6000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, & ! 8 & 5.2000D+01, 5.3000D+01, 5.4000D+01, 5.5000D+01, 5.6000D+01, & ! + & 5.6000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, & ! 9 & 5.2000D+01, 5.3000D+01, 5.4000D+01, 5.5000D+01, 5.6000D+01, & ! + & 5.6000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, & ! O & 5.2000D+01, 5.3000D+01, 5.4000D+01, 5.5000D+01, 5.6000D+01, & ! + & 5.6000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, & ! 1 & 5.2000D+01, 5.3000D+01, 5.4000D+01, 5.5000D+01, 5.6000D+01, & ! + & 5.6000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, & ! 2 & 0.0000D+00,-4.5000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.0000D+00, 2.0000D+00, & ! 6 & 2.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 5.8200D+02, 5.8300D+02, 5.8400D+02, 5.8500D+02, 0.0000D+00, & ! + & -1.8000D+00, 0.0000D+00,-2.0000D+00,-2.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00,-5.6000D-01, 2.1000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00,-3.4000D+00, 0.0000D+00, 0.0000D+00,-1.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 5.2000D+01, & ! 3 & 5.3000D+01, 5.4000D+01, 5.5000D+01, 5.6000D+01, 5.6000D+01, & ! + & 7.0000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, 5.2000D+01, & ! 4 & 5.3000D+01, 5.4000D+01, 5.5000D+01, 5.6000D+01, 5.6000D+01, & ! + & 7.0000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, 5.2000D+01, & ! 5 & 5.3000D+01, 5.4000D+01, 5.5000D+01, 5.6000D+01, 5.6000D+01, & ! + & 7.0000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, 0.0000D+00, & ! 6 & -3.3000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & -2.4000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 6.8800D+02, 5.2000D+01, & ! + & 5.3000D+01, 5.2000D+01, 5.3000D+01, 5.2000D+01, 5.3000D+01, & ! 9 & 5.2000D+01, 5.3000D+01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 3.4153D-08, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00/ ! 5 DATA ( RTDAT( 3,IRXXN ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00,-2.0600D+03, 0.0000D+00, 1.8800D+02, & ! O & 0.0000D+00,-1.5000D+03,-2.4700D+03, 1.1000D+02, 5.3000D+02, & ! + & 0.0000D+00,-1.1000D+04, 0.0000D+00, 0.0000D+00,-1.2600D+03, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 6.0000D+01, & ! + & 9.6000D+01, 0.0000D+00, 0.0000D+00, 2.6000D+02, 0.0000D+00, & ! 2 & 0.0000D+00, 2.7000D-17, 0.0000D+00, 3.4300D-33,-9.4000D+02, & ! + & 2.7000D+02, 0.0000D+00,-1.0650D+04, 0.0000D+00, 3.8000D+02, & ! 3 & 6.9300D+02, 1.9000D-33, 2.6600D-54, 0.0000D+00,-2.4500D+03, & ! + & 0.0000D+00, 0.0000D+00, 2.5000D+02, 0.0000D+00,-2.1000D+03, & ! 4 & 3.6000D+02, 7.8000D+02, 7.8000D+02, 0.0000D+00, 3.6500D+02, & ! + & -5.2000D+02, 3.8000D+02, 9.0000D+02, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00,-1.2100D+04, 0.0000D+00, & ! 6 & 2.9000D+02, 9.8000D+02, 0.0000D+00, 5.0000D+02, 1.0700D+03, & ! + & 0.0000D+00, 5.0000D+02, 0.0000D+00,-1.3940D+04, 0.0000D+00, & ! 7 & 3.4000D+02, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00,-1.4000D+04, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00,-1.3486D+04, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00,-8.1520D+03, & ! + & 1.5000D+02, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 1.3500D+02,-2.4310D+03, 3.6500D+02, 0.0000D+00,-1.8600D+03, & ! + & 4.0500D+02, 0.0000D+00,-1.6010D+03, 4.2900D+02, 0.0000D+00, & ! 1 & -2.5000D+01, 0.0000D+00,-3.4500D+02, 0.0000D+00, 8.5500D+02, & ! + & 0.0000D+00, 2.0000D+02, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 3.4220D+02,-2.3900D+03, 0.0000D+00, 0.0000D+00, & ! 3 & -1.8950D+03, 0.0000D+00, 9.5000D+02, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00,-1.8600D+03, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 3.8000D+02,-2.1000D+03, & ! 5 & -1.8150D+03, 0.0000D+00, 0.0000D+00, 6.1000D+02,-1.5200D+03, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00,-2.5280D+03, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & -1.6900D+03, 0.0000D+00,-2.5800D+03,-2.8800D+03,-8.0000D+02, & ! + & 5.0400D+02,-1.8780D+03,-1.1560D+03,-2.8000D+02, 4.4800D+02, & ! 3 & -2.2830D+03, 0.0000D+00,-4.0000D+01, 4.1000D+02,-1.9120D+03, & ! + & -4.4800D+02, 0.0000D+00, 3.9000D+02, 2.0000D+02, 0.0000D+00, & ! 4 & -4.0000D+02, 1.3000D+03, 3.8000D+02, 0.0000D+00, 0.0000D+00, & ! + & 1.0700D+03, 4.3600D+02,-5.3000D+02, 4.9000D+02, 0.0000D+00, & ! 5 & 0.0000D+00,-4.1000D+03,-1.9300D+02, 3.3800D+02, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 5.3000D+02,-4.9900D+02, & ! 6 & -8.7000D+01, 1.2600D+02, 4.4000D+01, 3.7400D+02, 3.7400D+02, & ! + & 5.0100D+02,-1.7010D+03,-1.0470D+03,-3.2600D+02, 4.8800D+02, & ! 7 & -1.2550D+03, 3.8200D+02, 1.1100D+02, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 4.3500D+02,-7.8500D+02, 4.9000D+02, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00,-2.5000D+02, 0.0000D+00, & ! + & 2.9500D+02, 0.0000D+00, 0.0000D+00, 0.0000D+00,-1.2530D+04, & ! O & 1.4500D+02, 3.4000D+02, 0.0000D+00,-1.9600D+03,-2.3000D+02, & ! + & -2.3100D+03,-3.0000D+01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & -1.0000D+03, 0.0000D+00, 0.0000D+00, 0.0000D+00,-3.0000D+01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00,-1.2800D+03, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 4.5000D+01,-1.0000D+02, 4.0000D+01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.3500D+02, & ! + & -2.4310D+03,-3.0000D+01, 3.6500D+02, 0.0000D+00,-1.8600D+03, & ! O & 0.0000D+00, 0.0000D+00,-2.5280D+03, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 2.0000D-06, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00/ ! 5 INTEGER :: IRRFALL( NFALLOFF ) DATA ( IRRFALL( IRXXN ), IRXXN = 1, NFALLOFF ) / & & 4, 6, 11, 12, 22, 25, 27, 29, 32, 33, & & 37, 38, 44, 63, 64, 527, 556, 593, 594, 602, & & 605, 666, 671, 721/ DATA ( RFDAT( 1,IRXXN ), IRXXN = 1, NFALLOFF ) / & & 3.0000D-11, 2.2000D-11, 1.9000D-12, 9.7000D+14, 3.6000D-11, & & 3.0000D-11, 2.1990D+03, 0.0000D+00, 2.9000D-12, 5.4200D+15, & & 9.8000D+02, 3.1800D+03, 1.6000D-12, 1.2100D-11, 4.0000D+16, & & 8.8000D-12, 8.3000D-13, 1.0000D-10, 1.0000D-10, 1.5000D-11, & & 3.7100D+15, 3.1000D-10, 2.2000D-10, 1.0743D+01/ DATA ( RFDAT( 2,IRXXN ), IRXXN = 1, NFALLOFF ) / & & 0.0000D+00,-7.0000D-01, 2.0000D-01, 1.0000D-01,-1.0000D-01, & & 0.0000D+00, 6.5000D-34, 0.0000D+00,-1.1000D+00,-2.3000D+00, & & 0.0000D+00, 0.0000D+00, 0.0000D+00,-9.0000D-01, 0.0000D+00, & & -8.5000D-01,-2.0000D+00,-1.0000D+00,-1.0000D+00,-1.9000D+00, & & 3.5000D+00,-1.0000D+00, 0.0000D+00,-6.7130D-01/ DATA ( RFDAT( 3,IRXXN ), IRXXN = 1, NFALLOFF ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00,-1.1080D+04, 0.0000D+00, & & 0.0000D+00, 1.3350D+03, 0.0000D+00, 0.0000D+00,-1.1170D+04, & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00,-1.3600D+04, & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & & -1.2530D+04, 0.0000D+00, 0.0000D+00, 0.0000D+00/ DATA ( RFDAT( 4,IRXXN ), IRXXN = 1, NFALLOFF ) / & & 6.0000D-01, 6.0000D-01, 3.5000D-01, 3.5000D-01, 6.0000D-01, & & 4.1000D-01, 0.0000D+00, 0.0000D+00, 6.0000D-01, 6.0000D-01, & & 0.0000D+00, 0.0000D+00, 6.0000D-01, 3.0000D-01, 3.0000D-01, & & 6.0000D-01, 6.0000D-01, 6.0000D-01, 6.0000D-01, 6.0000D-01, & & 6.0000D-01, 6.0000D-01, 6.0000D-01, 0.0000D+00/ DATA ( RFDAT( 5,IRXXN ), IRXXN = 1, NFALLOFF ) / & & 1.0000D+00, 1.0000D+00, 1.3300D+00, 1.3300D+00, 1.0000D+00, & & 1.2400D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, & & 0.0000D+00, 0.0000D+00, 1.0000D+00, 1.4100D+00, 1.4100D+00, & & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & & 1.0000D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00/ REAL( 8 ) :: SC( NRXNS,MXPRD ) DATA ( SC( IRXXN, 1 ), IRXXN = 1, NRXNS ) / & & 1.0000D+00, 1.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, & ! O & 1.0000D+00, 1.0000D+00, 1.0000D+00, 2.0000D+00, 2.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 2.0000D+00, 2.0000D+00, 1.0000D+00, & ! 1 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 2.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 2 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 6.1000D-01, 1.0000D+00, & ! 3 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 8.0000D-01, 2.0000D+00, & ! + & 2.0000D+00, 1.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, & ! 4 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 2.0000D+00, 1.0000D+00, 0.0000D+00, 1.0000D+00, 5.0000D-01, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, 5.0000D-01, & ! + & 0.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, 6.0000D-01, & ! 6 & 1.0000D+00, 1.0500D-01, 1.0000D+00, 1.0000D-01, 1.0000D+00, & ! + & 1.0000D+00, 2.0000D+00, 1.0000D+00, 1.0000D+00, 6.0000D-01, & ! 7 & 1.0000D+00, 3.0750D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 2.0000D+00, 2.0000D+00, 1.0000D+00, 1.0000D+00, & ! 8 & 6.0000D-01, 1.0000D+00, 3.0750D-01, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 2.0000D+00, 2.0000D+00, 2.0000D+00, & ! 9 & 1.0000D+00, 1.0000D+00, 6.0000D-01, 1.0000D+00, 3.0750D-01, & ! + & 1.0000D+00, 2.0000D+00, 1.0000D+00, 1.0000D+00, 2.0000D+00, & ! O & 1.0000D+00, 1.0000D+00, 2.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 1 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 2 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 3 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 4 & 1.0000D+00, 1.5000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 5 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 2.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 6 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 2.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 7 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 2.0000D+00, 1.0000D+00, 1.0000D+00, & ! 8 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 9 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 2.0000D+00, 1.0000D+00, & ! O & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 9.6500D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 6.2000D-01, & ! 1 & 9.6700D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 5.0900D-01, & ! + & 1.0000D+00, 3.0000D-01, 1.0000D+00, 7.4400D-01, 1.0000D+00, & ! 2 & 8.4000D-01, 1.0000D+00, 1.3900D-01, 1.0000D+00, 2.0000D+00, & ! + & 1.0000D+00, 7.0000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 3 & 1.0000D+00, 2.0000D+00, 2.0000D-01, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, 1.0000D+00, & ! 4 & 2.1700D-01, 8.2600D-01, 1.0230D+00, 2.1700D-01, 8.2600D-01, & ! + & 1.0000D+00, 2.0600D-01, 4.7100D-01, 5.0000D-01, 2.0800D-01, & ! 5 & 5.0000D-01, 1.0000D+00, 3.3000D-01, 9.7500D-01, 1.6400D-01, & ! + & 4.5000D-01, 4.0000D-01, 2.8900D-01, 2.8500D-01, 1.5000D-01, & ! 6 & 1.2330D+00, 4.7200D-01, 9.1300D-01, 1.8900D-01, 3.4400D-01, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 2.5000D-01, 8.3000D-01, & ! 7 & 3.1000D-02, 1.0000D+00, 1.0660D+00, 9.8000D-01, 1.0000D+00, & ! + & 8.0600D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 4.4000D-01, & ! 8 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 9 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! O & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 1 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 2 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 3 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 4 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 5 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 6 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 7 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 8 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 9 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! O & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 1 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 2 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 3 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 4 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 5 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 6 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 7 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 8 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 9 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! O & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 1 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 2 & 1.0000D+00, 1.0000D+00, 1.6000D-01, 1.0000D+00, 8.0000D-01, & ! + & 9.8400D-01, 1.6500D-01, 9.4900D-01, 4.5000D-01, 9.5100D-01, & ! 3 & 8.0000D-02, 8.1500D-01, 2.5000D-01, 9.0700D-01, 6.6000D-02, & ! + & 7.4900D-01, 2.5000D-01, 1.0000D+00, 1.6000D-01, 1.0000D+00, & ! 4 & 1.0000D+00, 7.2500D-01, 7.2500D-01, 3.6300D-01, 3.6300D-01, & ! + & 7.2500D-01, 7.9900D-01, 9.0000D-03, 5.6000D-02, 1.0000D+00, & ! 5 & 3.0000D-01, 1.5000D+00, 5.7000D-01, 1.8100D-01, 1.5900D-01, & ! + & 1.6100D-01, 1.5900D-01, 2.2000D-02, 9.5000D-01, 1.0000D+00, & ! 6 & 9.6500D-01, 6.9500D-01, 8.3000D-01, 6.4700D-01, 1.0000D+00, & ! + & 8.7100D-01, 9.5000D-02, 7.7200D-01, 4.5000D-01, 9.1200D-01, & ! 7 & 9.4000D-02, 4.0000D-01, 7.9000D-02, 1.2300D-01, 7.7000D-02, & ! + & 7.7000D-02, 7.3400D-01, 7.8000D-02, 2.2700D-01, 2.3700D-01, & ! 8 & 7.3400D-01, 7.8000D-02, 2.2700D-01, 2.3700D-01, 2.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 9 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! O & 1.0000D+00, 1.0000D+00, 1.0000D+00, 2.9000D-01, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 1 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 2 & 4.0400D-01, 4.8400D-01, 2.5000D-01, 1.2830D+00, 4.0100D-01, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 3 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 4 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 5 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 6 & 1.0000D+00, 1.2400D-01, 3.9000D-01, 1.5000D-01, 5.4800D-01, & ! + & 1.0000D+00, 8.9400D-01, 8.6400D-01, 8.6400D-01, 8.6400D-01, & ! 7 & 8.3800D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 3.8400D-01, 2.7900D-01, 8.4000D-01, & ! 8 & 8.2800D-01, 8.2800D-01, 5.4800D-01, 2.5200D-01, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 9 & 1.0000D+00, 1.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00, 1.0000D+00, & ! O & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 0.0000D+00, 1.0000D+00, 5.0000D-01, 1.0000D+00, 1.0000D+00, & ! 1 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 0.0000D+00, 8.5710D-01, 1.1429D+00, 8.5710D-01, 1.1429D+00, & ! 2 & 7.1430D-01, 7.1430D-01, 8.0000D-01, 9.0000D-01, 5.0000D-01, & ! + & 5.0000D-01, 1.5000D+00, 1.4286D+00, 1.4286D+00, 1.7143D+00, & ! 3 & 1.7143D+00, 1.2500D+00, 1.0000D+00, 1.2500D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 4 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00/ ! 5 DATA ( SC( IRXXN, 2 ), IRXXN = 1, NRXNS ) / & & 1.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 1.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, & ! 1 & 0.0000D+00, 1.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 1.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00, & ! + & 1.0000D+00, 0.0000D+00, 1.0000D+00, 6.1000D-01, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 8.0000D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, & ! 4 & 1.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 2.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 7.5000D-01, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 7.5000D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, 6.0000D-01, & ! 6 & 1.0000D+00, 4.5000D-02, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 2.0000D+00, 0.0000D+00, 1.0000D+00, 6.0000D-01, & ! 7 & 1.0000D+00, 1.0250D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 2.0000D+00, 0.0000D+00, 1.0000D+00, & ! 8 & 6.0000D-01, 1.0000D+00, 1.0250D-01, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 2.0000D+00, 2.0000D+00, & ! 9 & 0.0000D+00, 1.0000D+00, 6.0000D-01, 1.0000D+00, 1.0250D-01, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! O & 1.0000D+00, 1.0000D+00, 2.0000D+00, 0.0000D+00, 1.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00, & ! 1 & 1.0000D+00, 5.0000D-01, 5.0000D-01, 5.0000D-01, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00, & ! 2 & 1.0000D+00, 5.0000D-01, 5.0000D-01, 5.0000D-01, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00, & ! 3 & 1.0000D+00, 5.0000D-01, 5.0000D-01, 5.0000D-01, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00, & ! 4 & 1.0000D+00, 0.0000D+00, 5.0000D-01, 5.0000D-01, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00, & ! 5 & 1.0000D+00, 5.0000D-01, 5.0000D-01, 5.0000D-01, 0.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00, & ! 6 & 1.0000D+00, 5.0000D-01, 5.0000D-01, 5.0000D-01, 1.0000D+00, & ! + & 0.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00, & ! 7 & 1.0000D+00, 5.0000D-01, 5.0000D-01, 5.0000D-01, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, & ! 8 & 1.0000D+00, 5.0000D-01, 5.0000D-01, 5.0000D-01, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00, & ! 9 & 1.0000D+00, 5.0000D-01, 5.0000D-01, 5.0000D-01, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00, & ! O & 1.0000D+00, 1.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 3.5000D-02, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.3800D+00, & ! 1 & 3.9000D-02, 1.0000D+00, 1.0000D+00, 1.0000D+00, 4.9100D-01, & ! + & 1.0000D+00, 3.0000D-01, 1.0000D+00, 2.5100D-01, 1.0000D+00, & ! 2 & 2.2200D-01, 1.4200D-01, 1.4800D-01, 1.0000D+00, 2.0000D+00, & ! + & 1.0000D+00, 1.4000D+00, 7.0000D-01, 1.0000D+00, 1.0000D+00, & ! 3 & 1.0000D+00, 0.0000D+00, 8.0000D-01, 1.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, & ! 4 & 7.2300D-01, 5.2200D-01, 1.7300D-01, 7.2300D-01, 5.2200D-01, & ! + & 0.0000D+00, 7.3300D-01, 5.5400D-01, 5.0000D-01, 1.0800D-01, & ! 5 & 5.0000D-01, 0.0000D+00, 6.7000D-01, 2.5000D-02, 6.4000D-02, & ! + & 5.5000D-01, 6.0000D-01, 6.7000D-01, 4.0000D-01, 1.5000D-01, & ! 6 & 4.6700D-01, 3.7900D-01, 4.0000D-01, 3.0500D-01, 5.5400D-01, & ! + & 0.0000D+00, 2.0000D+00, 1.0000D+00, 7.5000D-01, 3.3000D-01, & ! 7 & 9.6700D-01, 0.0000D+00, 1.7800D-01, 2.0000D-02, 1.0000D+00, & ! + & 1.9400D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 4.4000D-01, & ! 8 & 1.0000D+00, 0.0000D+00, 1.0000D+00, 5.0000D-01, 5.0000D-01, & ! + & 5.0000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 9 & 1.0000D+00, 0.0000D+00, 1.0000D+00, 5.0000D-01, 5.0000D-01, & ! + & 5.0000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! O & 1.0000D+00, 0.0000D+00, 1.0000D+00, 5.0000D-01, 5.0000D-01, & ! + & 5.0000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 1 & 1.0000D+00, 0.0000D+00, 1.0000D+00, 5.0000D-01, 5.0000D-01, & ! + & 5.0000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 2 & 1.0000D+00, 0.0000D+00, 1.0000D+00, 5.0000D-01, 5.0000D-01, & ! + & 5.0000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 3 & 1.0000D+00, 0.0000D+00, 1.0000D+00, 5.0000D-01, 5.0000D-01, & ! + & 5.0000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 4 & 1.0000D+00, 0.0000D+00, 1.0000D+00, 5.0000D-01, 5.0000D-01, & ! + & 5.0000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 5 & 1.0000D+00, 0.0000D+00, 1.0000D+00, 5.0000D-01, 5.0000D-01, & ! + & 5.0000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 6 & 1.0000D+00, 0.0000D+00, 1.0000D+00, 5.0000D-01, 5.0000D-01, & ! + & 5.0000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 7 & 1.0000D+00, 0.0000D+00, 1.0000D+00, 5.0000D-01, 5.0000D-01, & ! + & 5.0000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 8 & 1.0000D+00, 0.0000D+00, 1.0000D+00, 5.0000D-01, 5.0000D-01, & ! + & 5.0000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 9 & 1.0000D+00, 0.0000D+00, 1.0000D+00, 5.0000D-01, 5.0000D-01, & ! + & 5.0000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! O & 1.0000D+00, 0.0000D+00, 1.0000D+00, 5.0000D-01, 5.0000D-01, & ! + & 5.0000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 1 & 1.0000D+00, 0.0000D+00, 1.0000D+00, 5.0000D-01, 5.0000D-01, & ! + & 5.0000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 2 & 1.0000D+00, 0.0000D+00, 1.0000D+00, 5.0000D-01, 5.0000D-01, & ! + & 5.0000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 3 & 1.0000D+00, 0.0000D+00, 1.0000D+00, 5.0000D-01, 5.0000D-01, & ! + & 5.0000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 4 & 1.0000D+00, 0.0000D+00, 1.0000D+00, 5.0000D-01, 5.0000D-01, & ! + & 5.0000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 5 & 0.0000D+00, 1.0000D+00, 0.0000D+00, 5.0000D-01, 5.0000D-01, & ! + & 5.0000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 1.0000D+00, 0.0000D+00, 5.0000D-01, 5.0000D-01, & ! + & 5.0000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 1.0000D+00, 0.0000D+00, 5.0000D-01, 5.0000D-01, & ! + & 5.0000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 1.0000D+00, 0.0000D+00, 5.0000D-01, 5.0000D-01, & ! + & 5.0000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 1.0000D+00, 0.0000D+00, 1.0000D+00, 5.0000D-01, 5.0000D-01, & ! + & 5.0000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! O & 1.0000D+00, 0.0000D+00, 1.0000D+00, 5.0000D-01, 5.0000D-01, & ! + & 5.0000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 1 & 1.0000D+00, 0.0000D+00, 1.0000D+00, 5.0000D-01, 5.0000D-01, & ! + & 5.0000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 2 & 0.0000D+00, 1.0000D+00, 1.6000D-01, 1.0000D+00, 2.9000D-01, & ! + & 9.8400D-01, 3.5000D-01, 9.4900D-01, 5.5000D-01, 1.1890D+00, & ! 3 & 8.0000D-02, 1.2000D-01, 1.1700D-01, 9.8600D-01, 2.6600D-01, & ! + & 1.8700D-01, 2.4000D-01, 1.0000D+00, 1.0000D-01, 9.1000D-01, & ! 4 & 0.0000D+00, 2.7500D-01, 2.7500D-01, 1.3800D-01, 1.3800D-01, & ! + & 2.7500D-01, 4.0000D-03, 1.0200D-01, 6.4300D-01, 1.0000D+00, & ! 5 & 7.0000D-01, 5.0000D-01, 2.9000D-01, 4.5400D-01, 5.2000D-01, & ! + & 5.5400D-01, 4.8700D-01, 6.2700D-01, 5.0000D-02, 1.0000D+00, & ! 6 & 9.6500D-01, 2.3600D-01, 1.0000D-02, 1.6050D+00, 4.7000D-01, & ! + & 1.0000D-03, 5.7000D-02, 1.4630D+00, 3.9000D-01, 9.5300D-01, & ! 7 & 4.1000D-02, 4.2600D-01, 7.5100D-01, 5.6600D-01, 6.1700D-01, & ! + & 6.1700D-01, 6.4000D-02, 4.6000D-02, 2.8700D-01, 7.6300D-01, & ! 8 & 6.4000D-02, 4.6000D-02, 2.8700D-01, 7.6300D-01, 0.0000D+00, & ! + & 0.0000D+00, 1.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, & ! 9 & 1.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! O & 1.0000D+00, 0.0000D+00, 1.0000D+00, 1.4200D+00, 0.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 9.0000D-01, & ! 1 & 1.0000D+00, 9.7500D-01, 3.8000D-02, 3.1400D-01, 6.3000D-01, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 4.1400D-01, 1.4500D-01, & ! 2 & 1.3900D-01, 2.7400D-01, 1.6500D-01, 5.3000D-02, 8.4000D-02, & ! + & 1.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 3 & 0.0000D+00, 1.0000D+00, 5.0000D-01, 5.0000D-01, 5.0000D-01, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 4 & 0.0000D+00, 1.0000D+00, 5.0000D-01, 5.0000D-01, 5.0000D-01, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 5 & 0.0000D+00, 1.0000D+00, 5.0000D-01, 5.0000D-01, 5.0000D-01, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 6 & 2.0000D+00, 9.7100D-01, 5.4100D-01, 7.3800D-01, 2.5200D-01, & ! + & 1.0000D+00, 8.9400D-01, 8.6400D-01, 8.6400D-01, 8.6400D-01, & ! 7 & 8.3800D-01, 6.8800D-01, 1.0000D+00, 9.7000D-01, 8.3500D-01, & ! + & 8.2700D-01, 6.4700D-01, 8.7300D-01, 4.5000D-01, 8.4000D-01, & ! 8 & 8.2800D-01, 8.2800D-01, 2.5200D-01, 6.8000D-02, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 9 & 1.0000D+00, 1.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 5.0000D-01, 1.0000D+00, 1.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 1.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, & ! + & 1.0000D+00, 4.8570D-01, 3.0030D-01, 3.8560D-01, 2.1810D-01, & ! 4 & 2.4120D-01, 6.6640D-01, 2.8580D-01, 3.3030D-01, 3.4440D-01, & ! + & 3.8860D-01, 0.0000D+00/ ! 5 DATA ( SC( IRXXN, 3 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 3.9000D-01, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.0000D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, & ! 4 & 1.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.5000D-01, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.5000D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 4.0000D-01, & ! 6 & 1.0000D+00, 1.5000D-01, 1.0000D+00, 9.0000D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 4.0000D-01, & ! 7 & 1.0000D+00, 1.5000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 2.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 4.0000D-01, 1.0000D+00, 1.5000D-01, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 2.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 4.0000D-01, 1.0000D+00, 1.5000D-01, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! O & 1.0000D+00, 1.0000D+00, 2.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 1.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, & ! + & 3.5000D-02, 1.0000D+00, 0.0000D+00, 1.0000D+00, 3.8000D-01, & ! 1 & 3.9000D-02, 1.0000D+00, 0.0000D+00, 0.0000D+00, 5.0900D-01, & ! + & 1.4300D-01, 7.0000D-01, 1.0000D+00, 4.0000D-03, 1.0000D+00, & ! 2 & 2.9000D-02, 7.8200D-01, 5.8900D-01, 5.0000D-01, 0.0000D+00, & ! + & 0.0000D+00, 3.0000D-01, 1.4000D+00, 1.0000D+00, 0.0000D+00, & ! 3 & 1.0000D+00, 0.0000D+00, 8.0000D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 6.0000D-02, 6.5200D-01, 3.0500D-01, 6.0000D-02, 6.5200D-01, & ! + & 0.0000D+00, 1.1700D-01, 1.3000D-02, 5.0000D-01, 1.0000D-01, & ! 5 & 5.0000D-01, 0.0000D+00, 3.4000D-01, 2.5000D-02, 5.0000D-02, & ! + & 0.0000D+00, 6.0000D-01, 6.7000D-01, 4.8000D-02, 7.9900D-01, & ! 6 & 3.0000D-01, 2.9000D-02, 6.0000D-01, 1.9000D-02, 1.0000D+00, & ! + & 0.0000D+00, 1.0000D+00, 0.0000D+00, 2.5000D-01, 1.0050D+00, & ! 7 & 3.1000D-02, 0.0000D+00, 2.3400D-01, 2.0000D-02, 1.0000D+00, & ! + & 1.9400D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 4.4000D-01, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 1.0000D+00, 5.0000D-01, 5.0000D-01, & ! + & 5.0000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 1.6100D+00, 5.1000D-01, 1.0000D+00, 5.1000D-01, & ! + & 1.6000D-02, 3.5500D-01, 5.1000D-02, 0.0000D+00, 4.9000D-02, & ! 3 & 2.5500D-01, 1.0550D+00, 1.1800D-01, 9.3000D-02, 1.9200D-01, & ! + & 9.3600D-01, 2.4000D-01, 0.0000D+00, 3.5000D-01, 7.5000D-01, & ! 4 & 0.0000D+00, 2.7500D-01, 2.7500D-01, 1.3800D-01, 1.3800D-01, & ! + & 2.7500D-01, 1.0420D+00, 7.2800D-01, 7.0000D-03, 0.0000D+00, & ! 5 & 3.0000D-01, 1.5000D+00, 1.1600D-01, 3.1200D-01, 2.3900D-01, & ! + & 1.9800D-01, 2.7800D-01, 2.3000D-01, 5.0000D-02, 1.0000D+00, & ! 6 & 3.5000D-02, 1.2530D+00, 1.1000D-02, 3.5300D-01, 0.0000D+00, & ! + & 1.2020D+00, 1.2800D-01, 2.2800D-01, 1.6000D-01, 8.8000D-02, & ! 7 & 4.4300D-01, 3.5000D-02, 1.7000D-01, 2.0200D-01, 1.7800D-01, & ! + & 1.7800D-01, 1.2110D+00, 4.9900D-01, 2.6000D-02, 1.0000D+00, & ! 8 & 1.2110D+00, 4.9900D-01, 2.6000D-02, 1.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 1.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D-01, & ! 1 & 1.0000D+00, 3.9000D-02, 5.5000D-02, 6.8000D-01, 1.2600D+00, & ! + & 1.0000D+00, 1.0000D+00, 0.0000D+00, 5.8800D-01, 1.0780D+00, & ! 2 & 1.4800D-01, 2.1600D-01, 8.0200D-01, 5.3000D-02, 1.5400D-01, & ! + & 1.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 1.0000D+00, 9.7100D-01, 1.8840D+00, 1.7700D-01, 6.8000D-02, & ! + & 0.0000D+00, 1.0600D-01, 1.3600D-01, 1.3600D-01, 1.3600D-01, & ! 7 & 1.6200D-01, 3.1200D-01, 1.0000D+00, 9.7000D-01, 9.4000D-02, & ! + & 3.0000D-03, 1.5410D+00, 1.6080D+00, 4.4200D-01, 1.6000D-01, & ! 8 & 1.7200D-01, 1.7200D-01, 6.8000D-02, 3.4000D-02, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 1.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 6.2000D-03, 2.8620D-01, 9.5000D-02, 3.0630D-01, & ! 4 & 2.0890D-01, 1.4300D-02, 3.9310D-01, 2.2720D-01, 2.7490D-01, & ! + & 2.4210D-01, 0.0000D+00/ ! 5 DATA ( SC( IRXXN, 4 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 3.9000D-01, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 4.0000D-01, & ! 6 & 0.0000D+00, 4.4000D-01, 0.0000D+00, 9.0000D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 4.0000D-01, & ! 7 & 1.0000D+00, 4.4000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 2.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 4.0000D-01, 1.0000D+00, 4.4000D-01, 1.0000D+00, 1.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 4.0000D-01, 1.0000D+00, 4.4000D-01, & ! + & 1.0000D+00, 1.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, & ! O & 1.0000D+00, 1.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 3.5000D-02, 1.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, & ! 1 & 3.7600D-01, 1.0000D+00, 0.0000D+00, 0.0000D+00, 4.9100D-01, & ! + & 1.4200D-01, 0.0000D+00, 0.0000D+00, 4.0000D-03, 0.0000D+00, & ! 2 & 2.9000D-02, 7.7000D-02, 1.2400D-01, 5.0000D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 3.0000D-01, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 8.0000D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 6.0000D-02, 5.2200D-01, 5.0000D-01, 6.0000D-02, 5.2200D-01, & ! + & 0.0000D+00, 1.1700D-01, 2.5800D-01, 4.1600D-01, 4.5000D-01, & ! 5 & 5.0000D-01, 0.0000D+00, 3.3000D-01, 3.0000D-01, 5.0000D-02, & ! + & 0.0000D+00, 4.0000D-01, 4.1000D-02, 4.8000D-02, 7.9900D-01, & ! 6 & 1.2330D+00, 4.9000D-02, 1.5900D+00, 3.1300D-01, 7.2100D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.6700D-01, 3.1000D-01, & ! 7 & 2.0000D-03, 0.0000D+00, 3.3000D-01, 2.0000D-02, 0.0000D+00, & ! + & 1.1000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 4.4000D-01, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 1.9500D-01, 1.2000D-01, 1.0000D+00, 2.9000D-01, & ! + & 1.6000D-02, 5.2500D-01, 5.1000D-02, 0.0000D+00, 4.9000D-02, & ! 3 & 1.8500D-01, 6.5000D-02, 2.3500D-01, 9.3000D-02, 1.9200D-01, & ! + & 6.4000D-02, 1.0000D-02, 0.0000D+00, 5.0000D-02, 4.5000D-01, & ! 4 & 0.0000D+00, 2.7500D-01, 2.7500D-01, 1.3800D-01, 1.3800D-01, & ! + & 2.7500D-01, 1.9700D-01, 1.0000D-03, 1.0500D+00, 0.0000D+00, & ! 5 & 3.0000D-01, 5.0000D-01, 2.9000D-01, 4.5400D-01, 5.2000D-01, & ! + & 5.5400D-01, 4.8700D-01, 6.2700D-01, 8.1000D-02, 1.0000D+00, & ! 6 & 3.5000D-02, 7.0000D-02, 1.7630D+00, 3.5300D-01, 0.0000D+00, & ! + & 1.2800D-01, 9.0000D-02, 2.2800D-01, 0.0000D+00, 8.8000D-02, & ! 7 & 3.0700D-01, 1.1930D+00, 0.0000D+00, 5.6600D-01, 6.1700D-01, & ! + & 6.1700D-01, 2.0100D-01, 2.0200D-01, 1.7860D+00, 0.0000D+00, & ! 8 & 2.0100D-01, 2.0200D-01, 1.7860D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D-01, & ! 1 & 1.0000D+00, 3.9000D-02, 1.2820D+00, 1.1600D-01, 3.7000D-01, & ! + & 0.0000D+00, 1.0000D+00, 0.0000D+00, 4.1400D-01, 1.1700D-01, & ! 2 & 5.8900D-01, 1.0320D+00, 3.3000D-02, 3.2200D-01, 7.3000D-01, & ! + & 1.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 1.0000D+00, 2.9000D-02, 6.9000D-02, 1.1680D+00, 3.4000D-02, & ! + & 0.0000D+00, 1.0600D-01, 1.3600D-01, 1.3600D-01, 1.3600D-01, & ! 7 & 1.6200D-01, 3.1200D-01, 1.0000D+00, 3.0000D-02, 1.3610D+00, & ! + & 4.0000D-03, 3.5200D-01, 1.2700D-01, 1.0000D-03, 1.6000D-01, & ! 8 & 1.7200D-01, 1.7200D-01, 3.4000D-02, 5.0000D-02, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 2.5000D-03, 4.1000D-03, 1.3730D-01, 1.5300D-02, & ! 4 & 3.0000D-01, 1.2300D-02, 1.3900D-02, 2.6070D-01, 4.9100D-02, & ! + & 6.4000D-02, 0.0000D+00/ ! 5 DATA ( SC( IRXXN, 5 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 4.0000D-01, & ! 6 & 0.0000D+00, 4.4000D-01, 0.0000D+00, 9.0000D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 4.0000D-01, & ! 7 & 1.0000D+00, 4.4000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 2.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 4.0000D-01, 0.0000D+00, 4.4000D-01, 0.0000D+00, 1.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 4.0000D-01, 0.0000D+00, 4.4000D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 1.0000D+00, 2.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 3.5000D-02, 1.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 5.1000D-01, 1.0000D+00, 0.0000D+00, 0.0000D+00, 4.9100D-01, & ! + & 4.0000D-01, 0.0000D+00, 0.0000D+00, 7.4400D-01, 0.0000D+00, & ! 2 & 8.4000D-01, 7.7000D-02, 1.2400D-01, 5.0000D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 2.5000D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 5.2100D-01, 1.7400D-01, 6.9500D-01, 5.2100D-01, 1.7400D-01, & ! + & 0.0000D+00, 5.6100D-01, 7.0000D-03, 8.4000D-02, 1.1700D-01, & ! 5 & 5.0000D-01, 0.0000D+00, 3.3000D-01, 6.7500D-01, 4.7500D-01, & ! + & 0.0000D+00, 0.0000D+00, 4.1000D-02, 4.9800D-01, 5.1000D-02, & ! 6 & 3.0000D-01, 4.7300D-01, 8.7000D-02, 9.7600D-01, 1.0200D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 8.3000D-02, 5.0000D-01, & ! 7 & 2.0000D-03, 0.0000D+00, 1.1880D+00, 2.0000D-02, 0.0000D+00, & ! + & 1.1000D-01, 1.0000D+00, 0.0000D+00, 0.0000D+00, 5.6000D-01, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00, 5.1000D-01, & ! + & 9.8400D-01, 2.1500D-01, 1.0000D+00, 0.0000D+00, 7.0800D-01, & ! 3 & 5.0000D-01, 6.5000D-02, 1.5000D-02, 6.2400D-01, 8.0000D-03, & ! + & 6.4000D-02, 1.0000D-02, 0.0000D+00, 2.6000D-01, 2.9000D-01, & ! 4 & 0.0000D+00, 1.1250D+00, 1.2500D-01, 6.3000D-02, 6.3000D-02, & ! + & 1.2500D-01, 1.9700D-01, 2.9700D-01, 2.9300D-01, 0.0000D+00, & ! 5 & 7.0000D-01, 0.0000D+00, 2.4000D-02, 5.4000D-02, 8.2000D-02, & ! + & 8.7000D-02, 7.6000D-02, 1.2100D-01, 9.5000D-01, 0.0000D+00, & ! 6 & 2.6100D-01, 7.0000D-02, 1.4900D-01, 4.0000D-02, 0.0000D+00, & ! + & 1.2800D-01, 5.0000D-03, 1.3000D-02, 0.0000D+00, 1.7900D-01, & ! 7 & 1.5600D-01, 1.4000D-01, 0.0000D+00, 1.1000D-01, 1.2800D-01, & ! + & 1.2800D-01, 2.0100D-01, 5.9000D-02, 4.6000D-01, 0.0000D+00, & ! 8 & 2.0100D-01, 5.9000D-02, 4.6000D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D-01, & ! 1 & 1.0000D+00, 8.4000D-01, 2.0200D-01, 1.1600D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0400D-01, 1.1700D-01, & ! 2 & 1.2400D-01, 2.6000D-02, 3.3000D-02, 6.2500D-01, 5.1000D-02, & ! + & 1.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 2.9000D-02, 6.9000D-02, 8.5000D-02, 5.0000D-02, & ! + & 0.0000D+00, 8.9400D-01, 8.6400D-01, 8.6400D-01, 8.6400D-01, & ! 7 & 8.3800D-01, 5.0300D-01, 1.0000D+00, 3.0000D-02, 7.0000D-02, & ! + & 1.7370D+00, 3.5200D-01, 1.2700D-01, 1.4920D+00, 8.4000D-01, & ! 8 & 4.6900D-01, 4.6900D-01, 5.0000D-02, 1.6000D-02, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 2.6000D-03, 3.5000D-03, 5.0000D-04, 1.0430D-01, & ! 4 & 2.0280D-01, 1.2390D-01, 1.0270D-01, 7.0200D-02, 2.5770D-01, & ! + & 3.8500D-02, 0.0000D+00/ ! 5 DATA ( SC( IRXXN, 6 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 4.4000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 4.0000D-01, & ! 7 & 1.0000D+00, 4.4000D-01, 1.0000D+00, 1.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 1.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 4.0000D-01, 0.0000D+00, 4.4000D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 4.0000D-01, 0.0000D+00, 4.4000D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 1.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 3.5000D-02, 1.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 7.4000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, 4.9100D-01, & ! + & 4.5700D-01, 0.0000D+00, 0.0000D+00, 2.3900D-01, 0.0000D+00, & ! 2 & 9.0000D-02, 8.5000D-02, 7.4000D-02, 5.0000D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 2.0100D-01, 4.3200D-01, 1.9500D-01, 2.0100D-01, 4.3200D-01, & ! + & 0.0000D+00, 1.1700D-01, 7.0000D-03, 4.1600D-01, 1.0000D-01, & ! 5 & 5.0000D-01, 0.0000D+00, 6.7000D-01, 3.0000D-01, 1.2400D-01, & ! + & 0.0000D+00, 0.0000D+00, 3.3600D-01, 1.4000D-01, 5.1000D-02, & ! 6 & 4.6700D-01, 7.1000D-02, 8.7000D-02, 1.7500D-01, 1.0200D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.6700D-01, 1.8500D-01, & ! 7 & 9.6700D-01, 0.0000D+00, 1.0200D-01, 2.0000D-02, 0.0000D+00, & ! + & 1.1000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.5000D-01, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 3.7000D-01, 0.0000D+00, 2.7800D-01, & ! + & 9.8400D-01, 5.0000D-01, 0.0000D+00, 0.0000D+00, 4.8000D-01, & ! 3 & 1.8500D-01, 1.1500D-01, 1.5000D-02, 2.3000D-01, 8.0000D-03, & ! + & 9.3600D-01, 2.4000D-01, 0.0000D+00, 4.0000D-02, 9.0000D-02, & ! 4 & 0.0000D+00, 8.2500D-01, 8.2500D-01, 9.1300D-01, 4.1300D-01, & ! + & 8.2500D-01, 2.0000D-03, 1.5110D+00, 2.9300D-01, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 2.4000D-02, 5.4000D-02, 8.2000D-02, & ! + & 8.7000D-02, 7.6000D-02, 1.2100D-01, 1.0000D-02, 0.0000D+00, & ! 6 & 7.0400D-01, 2.6000D-02, 1.4900D-01, 1.0600D-01, 0.0000D+00, & ! + & 5.8200D-01, 5.0000D-03, 3.0000D-03, 0.0000D+00, 8.3500D-01, & ! 7 & 8.0000D-03, 1.4000D-01, 0.0000D+00, 1.1000D-01, 1.2800D-01, & ! + & 1.2800D-01, 1.0000D-03, 4.9000D-01, 4.6000D-01, 0.0000D+00, & ! 8 & 1.0000D-03, 4.9000D-01, 4.6000D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D-01, & ! 1 & 0.0000D+00, 8.5000D-02, 2.0200D-01, 1.9800D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 4.8200D-01, 1.4500D-01, & ! 2 & 1.2400D-01, 2.6000D-02, 8.0200D-01, 9.4700D-01, 5.1000D-02, & ! + & 1.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 1.2400D-01, 8.6300D-01, 8.5000D-02, 1.6000D-02, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 6.8800D-01, 0.0000D+00, 4.8200D-01, 7.0000D-02, & ! + & 1.6500D-01, 2.2000D-02, 3.6000D-02, 1.0600D-01, 0.0000D+00, & ! 8 & 3.5900D-01, 3.5900D-01, 1.6000D-02, 2.2580D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 2.3000D-03, 2.2390D-01, 2.0510D-01, 1.8930D-01, & ! 4 & 4.7100D-02, 1.8310D-01, 2.0450D-01, 1.1160D-01, 7.3900D-02, & ! + & 2.6670D-01, 0.0000D+00/ ! 5 DATA ( SC( IRXXN, 7 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 4.0000D-01, & ! 7 & 0.0000D+00, 4.4000D-01, 0.0000D+00, 1.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 4.4000D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 4.4000D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 2.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 8.8000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 1.0000D+00, 0.0000D+00, 0.0000D+00, 1.2000D-02, 0.0000D+00, & ! 2 & 4.1000D-02, 1.4200D-01, 1.4700D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 3.3400D-01, 5.6800D-01, 3.0500D-01, 3.3400D-01, 5.6800D-01, & ! + & 0.0000D+00, 1.1400D-01, 5.8000D-01, 8.4000D-02, 9.0000D-01, & ! 5 & 0.0000D+00, 0.0000D+00, 3.4000D-01, 6.7500D-01, 5.0000D-02, & ! + & 0.0000D+00, 0.0000D+00, 5.5000D-02, 1.2400D-01, 5.7200D-01, & ! 6 & 2.3300D-01, 7.1000D-02, 3.0300D-01, 1.7500D-01, 7.4000D-02, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 8.3000D-02, 5.0000D-01, & ! 7 & 3.1000D-02, 0.0000D+00, 3.4000D-01, 0.0000D+00, 0.0000D+00, & ! + & 8.4000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.7800D-01, & ! + & 1.0000D+00, 5.0000D-01, 0.0000D+00, 0.0000D+00, 4.7100D-01, & ! 3 & 5.0000D-01, 4.6000D-01, 1.1500D-01, 3.2000D-01, 2.7500D-01, & ! + & 1.0000D+00, 7.5000D-01, 0.0000D+00, 3.1000D-01, 1.1000D-01, & ! 4 & 0.0000D+00, 2.0000D-01, 2.0000D-01, 1.0000D-01, 1.0000D-01, & ! + & 1.2000D+00, 2.2000D-02, 3.3700D-01, 5.0000D-03, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 2.9000D-01, 2.3800D-01, 1.0000D-01, & ! + & 8.4000D-02, 2.8600D-01, 7.4000D-02, 5.0000D-02, 0.0000D+00, & ! 6 & 1.0000D+00, 4.4500D-01, 2.0000D-03, 2.0900D-01, 0.0000D+00, & ! + & 1.0000D-02, 3.0300D-01, 3.4000D-02, 0.0000D+00, 5.1000D-01, & ! 7 & 2.1200D-01, 7.2000D-02, 0.0000D+00, 1.5800D-01, 8.8000D-02, & ! + & 8.8000D-02, 4.1100D-01, 1.2100D-01, 1.2000D-02, 0.0000D+00, & ! 8 & 4.1100D-01, 1.2100D-01, 1.2000D-02, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D-01, & ! 1 & 0.0000D+00, 3.6000D-02, 9.0000D-03, 1.1600D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0600D-01, 5.0200D-01, & ! 2 & 7.4000D-02, 2.1600D-01, 5.4100D-01, 1.0000D+00, 4.2000D-02, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 3.0600D-01, 4.5700D-01, 2.7500D-01, 2.2580D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 6.1000D-02, 0.0000D+00, 4.8800D-01, 7.8000D-02, & ! + & 1.6500D-01, 8.0000D-02, 2.0600D-01, 1.0600D-01, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 2.2580D+00, 5.8200D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 2.9440D-01, 1.8200D-01, 1.7640D-01, 1.6680D-01, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00/ ! 5 DATA ( SC( IRXXN, 8 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 4.0000D-01, & ! 7 & 0.0000D+00, 4.4000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 5.0400D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.2000D-02, 0.0000D+00, & ! 2 & 2.0000D-02, 7.8200D-01, 1.3900D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 4.0700D-01, 6.5200D-01, 0.0000D+00, 4.0700D-01, 6.5200D-01, & ! + & 0.0000D+00, 2.7400D-01, 1.9000D-01, 5.0000D-01, 3.3300D-01, & ! 5 & 0.0000D+00, 0.0000D+00, 3.3000D-01, 3.0000D-01, 9.5000D-01, & ! + & 0.0000D+00, 0.0000D+00, 1.2900D-01, 2.1000D-01, 2.2700D-01, & ! 6 & 0.0000D+00, 2.0000D-03, 1.6300D-01, 1.1000D-02, 6.1000D-02, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.5000D-01, 0.0000D+00, & ! 7 & 3.1000D-02, 0.0000D+00, 5.0000D-02, 0.0000D+00, 0.0000D+00, & ! + & 8.4000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D-01, & ! + & 0.0000D+00, 1.8500D-01, 0.0000D+00, 0.0000D+00, 1.0000D+00, & ! 3 & 3.7500D-01, 1.2000D-01, 1.1500D-01, 3.5700D-01, 1.2200D-01, & ! + & 1.0000D+00, 2.5000D-01, 0.0000D+00, 2.0000D-02, 5.0000D-02, & ! 4 & 0.0000D+00, 3.7500D-01, 3.7500D-01, 9.3800D-01, 1.8800D-01, & ! + & 3.7500D-01, 7.7600D-01, 3.3700D-01, 7.0000D-03, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 5.7000D-01, 1.5100D-01, 3.8000D-01, & ! + & 2.3800D-01, 1.1200D-01, 4.0500D-01, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 1.2200D-01, 2.9000D-02, 7.1000D-02, 0.0000D+00, & ! + & 7.0000D-03, 8.8000D-02, 7.7400D-01, 0.0000D+00, 1.4400D-01, & ! 7 & 3.0000D-03, 5.7900D-01, 0.0000D+00, 1.0000D-01, 3.1200D-01, & ! + & 3.1200D-01, 3.8500D-01, 1.2100D-01, 2.3000D-02, 0.0000D+00, & ! 8 & 3.8500D-01, 1.2100D-01, 2.3000D-02, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 6.5000D-02, 1.8000D-02, 5.4100D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0400D-01, 2.3700D-01, & ! 2 & 1.4700D-01, 4.8400D-01, 8.2000D-02, 0.0000D+00, 4.2000D-02, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 5.4000D-01, 4.7300D-01, 1.7700D-01, 5.8200D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 3.1200D-01, 0.0000D+00, 1.0000D+00, 3.4000D-01, & ! + & 3.0000D-03, 2.5800D-01, 7.2000D-02, 1.9000D-01, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 5.8200D-01, 5.8200D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 2.0210D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00/ ! 5 DATA ( SC( IRXXN, 9 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 4.4000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 3.7600D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.2000D-02, 0.0000D+00, & ! 2 & 7.5000D-02, 2.6000D-02, 5.6500D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 1.2900D-01, 6.5200D-01, 0.0000D+00, 1.2900D-01, 6.5200D-01, & ! + & 0.0000D+00, 1.5300D-01, 3.6600D-01, 0.0000D+00, 1.0000D-01, & ! 5 & 0.0000D+00, 0.0000D+00, 3.3000D-01, 1.0000D+00, 3.5100D-01, & ! + & 0.0000D+00, 0.0000D+00, 1.3000D-02, 2.3000D-02, 2.1800D-01, & ! 6 & 0.0000D+00, 2.1100D-01, 7.8000D-01, 4.2900D-01, 2.1400D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 3.3000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.2000D-02, & ! + & 0.0000D+00, 7.5000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 1.2500D-01, 3.5500D-01, 1.0000D-03, 1.0000D+00, 4.0000D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 3.8700D-01, 0.0000D+00, & ! 4 & 0.0000D+00, 7.4000D-02, 7.4000D-02, 3.7000D-02, 3.7000D-02, & ! + & 7.4000D-02, 3.4000D-02, 2.9000D-02, 6.8400D-01, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 2.9000D-02, 1.8100D-01, 1.5900D-01, & ! + & 1.8500D-01, 1.5900D-01, 1.1200D-01, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 2.4000D-02, 4.3800D-01, 8.6000D-02, 0.0000D+00, & ! + & 6.6600D-01, 5.0000D-01, 1.6900D-01, 0.0000D+00, 8.0000D-02, & ! 7 & 3.0000D-03, 1.6300D-01, 0.0000D+00, 1.2300D-01, 1.3400D-01, & ! + & 1.3400D-01, 3.7000D-02, 2.4900D-01, 2.0000D-03, 0.0000D+00, & ! 8 & 3.7000D-02, 2.4900D-01, 2.0000D-03, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 7.0000D-02, 1.2000D-02, 7.0000D-03, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.9700D-01, 1.8600D-01, & ! 2 & 1.3900D-01, 2.7400D-01, 1.8000D-01, 0.0000D+00, 7.1200D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 1.0000D+00, 1.0000D+00, 6.7100D-01, 5.8200D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 3.4300D-01, & ! + & 3.4000D-02, 4.4000D-02, 2.1500D-01, 3.8300D-01, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 5.8200D-01, 5.4800D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 1.9000D-03, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00/ ! 5 DATA ( SC( IRXXN, 10 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 1.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.0500D-01, 0.0000D+00, & ! 2 & 8.4000D-02, 5.8000D-02, 2.4000D-02, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 1.0700D-01, 6.5200D-01, 0.0000D+00, 1.0700D-01, 6.5200D-01, & ! + & 0.0000D+00, 1.9000D-02, 1.8400D-01, 0.0000D+00, 1.0000D-01, & ! 5 & 0.0000D+00, 0.0000D+00, 3.3000D-01, 0.0000D+00, 5.0000D-02, & ! + & 0.0000D+00, 0.0000D+00, 1.5000D-01, 7.4200D-01, 8.0000D-03, & ! 6 & 0.0000D+00, 1.0000D-03, 1.0000D+00, 1.0000D-03, 2.3000D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.9000D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 1.0000D+00, 1.0000D-03, 1.0000D+00, 1.9200D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 6.1000D-01, 0.0000D+00, & ! 4 & 0.0000D+00, 2.5100D-01, 2.5100D-01, 1.2600D-01, 1.2600D-01, & ! + & 2.5100D-01, 2.0000D-02, 5.1000D-02, 6.9000D-02, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 2.6100D-01, 6.5000D-02, 4.1000D-02, & ! + & 1.6100D-01, 8.8000D-02, 2.2000D-02, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 3.3200D-01, 2.3600D-01, 4.0700D-01, 0.0000D+00, & ! + & 7.0000D-03, 1.1000D-02, 8.3100D-01, 0.0000D+00, 2.0000D-03, & ! 7 & 2.9900D-01, 1.1600D-01, 0.0000D+00, 7.2000D-02, 7.7000D-02, & ! + & 7.7000D-02, 7.0000D-03, 6.3000D-02, 4.0300D-01, 0.0000D+00, & ! 8 & 7.0000D-03, 6.3000D-02, 4.0300D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 8.4000D-01, 5.5000D-02, 2.2000D-02, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.8500D-01, 6.7600D-01, & ! 2 & 5.6500D-01, 2.7400D-01, 5.4100D-01, 0.0000D+00, 4.9800D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 6.7000D-02, 3.5000D-02, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 7.5000D-02, & ! + & 2.8700D-01, 4.1000D-02, 1.9000D-02, 3.1700D-01, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 3.5000D-02, 3.5000D-02, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 2.3000D-03, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00/ ! 5 DATA ( SC( IRXXN, 11 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 3.4000D-02, 0.0000D+00, & ! 2 & 1.6000D-01, 6.9800D-01, 4.4800D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 2.6700D-01, 0.0000D+00, 0.0000D+00, 2.6700D-01, 0.0000D+00, & ! + & 0.0000D+00, 1.9500D-01, 3.5000D-01, 0.0000D+00, 1.0000D-01, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 5.0000D-02, & ! + & 0.0000D+00, 0.0000D+00, 3.3200D-01, 1.0000D-01, 5.7200D-01, & ! 6 & 0.0000D+00, 8.3000D-02, 0.0000D+00, 3.6000D-02, 7.4000D-02, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 7.5000D-01, 0.0000D+00, 2.0400D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 6.1000D-01, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 1.0000D+00, 5.0000D-01, 5.0000D-01, & ! + & 1.0000D+00, 2.3000D-02, 1.7000D-02, 2.0000D-03, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 1.1600D-01, 1.9500D-01, 3.3600D-01, & ! + & 4.7000D-02, 4.5000D-02, 3.6000D-02, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 9.8300D-01, 4.2600D-01, 1.0000D+00, 0.0000D+00, & ! + & 3.6000D-02, 5.0000D-01, 0.0000D+00, 0.0000D+00, 1.2000D-02, & ! 7 & 1.6100D-01, 2.0000D-03, 0.0000D+00, 1.8500D-01, 2.6000D-02, & ! + & 2.6000D-02, 3.0000D-03, 1.2700D-01, 2.3900D-01, 0.0000D+00, & ! 8 & 3.0000D-03, 1.2700D-01, 2.3900D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 1.0000D+00, 1.5900D-01, 2.3700D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 5.8600D-01, 2.8000D-01, & ! 2 & 2.4000D-02, 4.8400D-01, 8.3500D-01, 0.0000D+00, 1.9500D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, 1.5800D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.5300D-01, & ! + & 4.1200D-01, 3.7800D-01, 3.8000D-02, 8.6000D-02, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 1.5800D-01, 1.5800D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00/ ! 5 DATA ( SC( IRXXN, 12 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.5600D-01, 0.0000D+00, & ! 2 & 0.0000D+00, 8.5800D-01, 2.6000D-02, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 7.8300D-01, 0.0000D+00, 0.0000D+00, 7.8300D-01, 0.0000D+00, & ! + & 0.0000D+00, 1.9500D-01, 3.5000D-01, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 5.0000D-02, & ! + & 0.0000D+00, 0.0000D+00, 1.5000D-01, 3.7200D-01, 8.5000D-01, & ! 6 & 0.0000D+00, 1.4300D-01, 0.0000D+00, 4.0000D-03, 6.3000D-02, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 2.5000D-01, 0.0000D+00, 3.9000D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.5000D-01, 0.0000D+00, & ! + & 0.0000D+00, 1.0000D+00, 3.4400D-01, 5.6000D-02, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 3.1400D-01, 1.9500D-01, 1.4400D-01, & ! + & 2.5300D-01, 6.7000D-02, 8.8000D-02, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 1.7000D-02, 1.0600D-01, 0.0000D+00, 0.0000D+00, & ! + & 1.0000D-03, 4.4000D-02, 0.0000D+00, 0.0000D+00, 2.3000D-02, & ! 7 & 1.3100D-01, 3.2000D-01, 0.0000D+00, 2.0200D-01, 2.2100D-01, & ! + & 2.2100D-01, 9.0000D-03, 3.3000D-02, 5.0000D-03, 0.0000D+00, & ! 8 & 9.0000D-03, 3.3000D-02, 5.0000D-03, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 5.4700D-01, 1.0900D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 8.5500D-01, & ! 2 & 4.4800D-01, 7.8400D-01, 0.0000D+00, 0.0000D+00, 1.7000D-02, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.8500D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 9.8300D-01, & ! + & 2.4700D-01, 1.0000D+00, 1.9200D-01, 4.2000D-02, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 1.8500D-01, 1.8500D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00/ ! 5 DATA ( SC( IRXXN, 13 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 3.0000D-02, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 2.3100D-01, 1.3900D-01, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 1.7400D-01, 4.7000D-02, 0.0000D+00, & ! 6 & 0.0000D+00, 4.0200D-01, 0.0000D+00, 1.0000D-02, 8.0000D-03, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.6000D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 1.0000D+00, 2.4000D-01, 1.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 1.0000D+00, 3.1200D-01, 2.3900D-01, & ! + & 2.5300D-01, 2.7800D-01, 3.5200D-01, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 1.4600D-01, 0.0000D+00, 0.0000D+00, & ! + & 1.2000D-02, 3.0000D-03, 0.0000D+00, 0.0000D+00, 3.1900D-01, & ! 7 & 1.1400D-01, 3.1900D-01, 0.0000D+00, 3.0900D-01, 2.4700D-01, & ! + & 2.4700D-01, 3.0000D-03, 2.0800D-01, 1.0000D-03, 0.0000D+00, & ! 8 & 3.0000D-03, 2.0800D-01, 1.0000D-03, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 4.5000D-02, 5.9100D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 2.6000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, 9.0000D-03, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.7400D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.7000D-02, & ! + & 7.6000D-02, 0.0000D+00, 3.3700D-01, 2.5000D-02, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 2.7400D-01, 2.7400D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00/ ! 5 DATA ( SC( IRXXN, 14 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 2.5200D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 7.9400D-01, 3.0000D-03, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 7.1100D-01, 1.0000D-03, 0.0000D+00, & ! 6 & 0.0000D+00, 1.1500D-01, 0.0000D+00, 1.7000D-01, 1.2400D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.5000D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 3.4500D-01, 1.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 7.3000D-02, 4.7000D-02, & ! + & 1.9800D-01, 2.8600D-01, 2.3000D-01, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 9.0000D-03, 9.0000D-03, 0.0000D+00, 0.0000D+00, 6.8100D-01, & ! 7 & 4.5300D-01, 6.8100D-01, 0.0000D+00, 3.6900D-01, 1.7800D-01, & ! + & 1.7800D-01, 2.0000D-03, 5.7000D-02, 4.0000D-03, 0.0000D+00, & ! 8 & 2.0000D-03, 5.7000D-02, 4.0000D-03, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 3.0000D-01, 5.1000D-02, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 3.0000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, 9.0000D-03, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 7.0000D-03, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 1.3000D-01, 0.0000D+00, 1.6900D-01, 5.8000D-02, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 7.0000D-03, 7.0000D-03, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00/ ! 5 DATA ( SC( IRXXN, 15 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 7.3000D-02, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 4.0000D-03, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 4.8000D-02, 0.0000D+00, & ! 6 & 0.0000D+00, 3.2900D-01, 0.0000D+00, 8.0000D-03, 8.3000D-02, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 8.0000D-03, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 4.3500D-01, 5.5500D-01, & ! + & 5.5000D-02, 1.0200D-01, 1.5100D-01, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 1.6800D-01, 1.8500D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 7.1000D-02, 0.0000D+00, 0.0000D+00, 1.0000D+00, 6.8000D-02, & ! + & 6.8000D-02, 4.0900D-01, 2.0000D-03, 2.2800D-01, 0.0000D+00, & ! 8 & 4.0900D-01, 2.0000D-03, 2.2800D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 2.0000D-02, 4.0000D-02, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 2.5200D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.1500D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 3.0000D-03, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 1.0000D+00, 0.0000D+00, 8.3100D-01, 1.6100D-01, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 3.0000D-03, 3.0000D-03, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00/ ! 5 DATA ( SC( IRXXN, 16 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 7.3000D-02, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 3.0000D-03, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 7.0000D-03, 0.0000D+00, 3.1000D-02, 1.9000D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.0000D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 2.0000D-03, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 5.8600D-01, 4.6100D-01, 4.3000D-02, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 1.6900D-01, 1.5900D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 3.3300D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 5.7000D-02, & ! + & 5.7000D-02, 1.0000D+00, 1.7200D-01, 1.0000D+00, 0.0000D+00, & ! 8 & 1.0000D+00, 1.7200D-01, 1.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 3.0000D-03, 6.8600D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 7.3000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.4000D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 3.0000D-03, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.3000D-02, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 3.0000D-03, 3.0000D-03, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00/ ! 5 DATA ( SC( IRXXN, 17 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 7.1300D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 9.5000D-02, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 5.2800D-01, 0.0000D+00, 1.8900D-01, 2.6100D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 8.1000D-02, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 7.0500D-01, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 8.3100D-01, 2.6800D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 1.9000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0100D-01, & ! + & 1.0100D-01, 1.0000D+00, 6.8000D-02, 1.0000D+00, 0.0000D+00, & ! 8 & 1.0000D+00, 6.8000D-02, 1.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 4.1000D-02, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 7.3000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, 4.2000D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.5800D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.9100D-01, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 1.5800D-01, 1.5800D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00/ ! 5 DATA ( SC( IRXXN, 18 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 1.6300D-01, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 3.0500D-01, 6.6000D-02, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 2.5500D-01, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 1.1000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 5.1000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 0.0000D+00, 3.0000D-03, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 3.0000D-03, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 4.6000D-02, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 7.1300D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 7.6200D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 6.0000D-03, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 3.1900D-01, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 6.0000D-03, 6.0000D-03, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00/ ! 5 DATA ( SC( IRXXN, 19 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 1.6300D-01, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.5700D-01, 5.9100D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 7.3700D-01, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 5.2000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 3.3000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 3.9000D-02, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 3.9000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 5.4700D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 6.0000D-03, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 6.8100D-01, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 6.0000D-03, 6.0000D-03, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00/ ! 5 DATA ( SC( IRXXN, 20 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 9.5000D-02, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 6.3600D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 1.0000D-03, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 2.0000D-03, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 2.0000D-03, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 9.0800D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D-03, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 1.0000D-03, 1.0000D-03, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00/ ! 5 DATA ( SC( IRXXN, 21 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 2.6400D-01, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 2.4000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 1.0000D-03, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 1.0000D-03, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0900D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 1.0900D-01, 1.0900D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00/ ! 5 DATA ( SC( IRXXN, 22 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 6.5000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 5.0200D-01, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 5.0200D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00/ ! 5 DATA ( SC( IRXXN, 23 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 2.3500D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 4.2800D-01, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 4.2800D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00/ ! 5 DATA ( SC( IRXXN, 24 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 3.7000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 1.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00/ ! 5 DATA ( SC( IRXXN, 25 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 7.3000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00/ ! 5 DATA ( SC( IRXXN, 26 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 1.3600D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00/ ! 5 INTEGER :: NREACT( NRXNS ) DATA ( NREACT( IRXXN ), IRXXN = 1, NRXNS ) / & & 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, & ! O & 2, 1, 1, 1, 2, 1, 1, 1, 1, 1, & ! 1 & 1, 2, 1, 2, 2, 2, 2, 1, 2, 2, & ! 2 & 2, 2, 1, 1, 2, 2, 2, 2, 2, 2, & ! 3 & 1, 2, 2, 2, 1, 2, 2, 2, 2, 2, & ! 4 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 5 & 2, 2, 2, 1, 1, 2, 2, 2, 2, 2, & ! 6 & 2, 2, 2, 1, 1, 2, 2, 2, 2, 2, & ! 7 & 2, 2, 2, 2, 1, 1, 2, 2, 2, 2, & ! 8 & 2, 2, 2, 2, 2, 2, 1, 1, 2, 2, & ! 9 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, & ! O & 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, & ! 1 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 2 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 3 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 4 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 5 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 6 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 7 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 8 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 9 & 2, 2, 2, 1, 1, 2, 2, 2, 1, 2, & ! O & 2, 1, 2, 2, 1, 2, 1, 2, 2, 2, & ! 1 & 2, 2, 1, 2, 1, 2, 1, 2, 1, 1, & ! 2 & 1, 2, 2, 1, 2, 2, 1, 2, 2, 2, & ! 3 & 1, 1, 2, 1, 2, 2, 2, 1, 2, 2, & ! 4 & 1, 2, 2, 2, 2, 2, 2, 1, 2, 2, & ! 5 & 2, 1, 2, 2, 2, 1, 2, 1, 2, 1, & ! 6 & 2, 1, 2, 2, 2, 2, 2, 1, 2, 1, & ! 7 & 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, & ! 8 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 9 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! O & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 1 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 2 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 3 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 4 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 5 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 6 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 7 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 8 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 9 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! O & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 1 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 2 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 3 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 4 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 5 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 6 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 7 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 8 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 9 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! O & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 1 & 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, & ! 2 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 3 & 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, & ! 4 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 5 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 6 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 7 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, & ! 8 & 2, 1, 2, 2, 1, 1, 2, 2, 2, 2, & ! 9 & 2, 2, 1, 1, 1, 2, 2, 1, 2, 2, & ! O & 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 1 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 2 & 1, 2, 2, 1, 2, 2, 2, 2, 2, 2, & ! 3 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 4 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 5 & 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, & ! 6 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 7 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 8 & 2, 2, 2, 2, 2, 2, 2, 1, 1, 2, & ! 9 & 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, & ! O & 1, 2, 1, 1, 1, 1, 1, 2, 2, 2, & ! 1 & 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, & ! 2 & 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, & ! 3 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 4 & 2, 1/ ! 5 INTEGER :: NPRDCT( NRXNS ) DATA ( NPRDCT( IRXXN ), IRXXN = 1, NRXNS ) / & & 2, 1, 0, 1, 1, 1, 1, 1, 1, 1, & ! O & 1, 2, 1, 1, 2, 1, 2, 1, 1, 1, & ! 1 & 1, 1, 2, 1, 1, 2, 1, 2, 2, 1, & ! 2 & 2, 1, 2, 4, 1, 1, 1, 1, 3, 1, & ! 3 & 1, 1, 0, 3, 1, 3, 1, 1, 3, 2, & ! 4 & 2, 1, 0, 1, 3, 0, 0, 0, 1, 3, & ! 5 & 0, 0, 1, 2, 5, 3, 6, 3, 5, 2, & ! 6 & 2, 2, 1, 2, 8, 6, 9, 6, 7, 5, & ! 7 & 5, 6, 5, 1, 2, 6, 4, 7, 4, 5, & ! 8 & 3, 3, 4, 6, 3, 1, 2, 6, 4, 7, & ! 9 & 4, 4, 3, 3, 4, 7, 5, 3, 1, 2, & ! O & 1, 1, 3, 2, 1, 2, 2, 2, 2, 2, & ! 1 & 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, & ! 2 & 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, & ! 3 & 2, 2, 2, 2, 1, 2, 1, 2, 2, 2, & ! 4 & 2, 2, 2, 2, 1, 2, 2, 2, 2, 1, & ! 5 & 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, & ! 6 & 1, 2, 2, 2, 1, 2, 2, 2, 2, 2, & ! 7 & 2, 2, 1, 2, 1, 2, 2, 2, 2, 2, & ! 8 & 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, & ! 9 & 2, 2, 2, 2, 1, 2, 3, 1, 3, 2, & ! O & 6, 6, 2, 4, 3, 10, 5, 2, 2, 6, & ! 1 & 7, 3, 3, 12, 3, 11, 12, 17, 6, 2, & ! 2 & 2, 3, 4, 3, 2, 3, 1, 5, 2, 1, & ! 3 & 1, 0, 1, 0, 2, 12, 10, 7, 12, 10, & ! 4 & 1, 14, 21, 8, 11, 6, 1, 10, 9, 12, & ! 5 & 2, 4, 14, 15, 12, 7, 17, 10, 20, 19, & ! 6 & 1, 3, 2, 8, 7, 9, 1, 8, 6, 3, & ! 7 & 8, 5, 4, 4, 6, 2, 1, 2, 2, 2, & ! 8 & 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, & ! 9 & 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, & ! O & 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, & ! 1 & 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, & ! 2 & 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, & ! 3 & 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, & ! 4 & 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, & ! 5 & 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, & ! 6 & 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, & ! 7 & 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, & ! 8 & 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, & ! 9 & 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, & ! O & 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, & ! 1 & 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, & ! 2 & 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, & ! 3 & 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, & ! 4 & 2, 2, 2, 2, 2, 1, 2, 1, 2, 2, & ! 5 & 2, 1, 1, 1, 1, 1, 2, 1, 2, 2, & ! 6 & 2, 1, 1, 1, 1, 1, 2, 1, 2, 2, & ! 7 & 2, 1, 1, 1, 1, 1, 2, 1, 2, 2, & ! 8 & 2, 1, 1, 1, 1, 2, 1, 3, 3, 3, & ! 9 & 3, 3, 3, 3, 3, 2, 1, 2, 2, 2, & ! O & 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, & ! 1 & 2, 2, 2, 2, 2, 1, 5, 6, 4, 10, & ! 2 & 7, 9, 5, 2, 8, 9, 10, 12, 10, 16, & ! 3 & 8, 8, 2, 11, 8, 1, 10, 11, 12, 11, & ! 4 & 11, 13, 20, 14, 2, 5, 4, 13, 16, 16, & ! 5 & 17, 17, 18, 7, 4, 7, 12, 14, 11, 2, & ! 6 & 17, 19, 10, 3, 14, 26, 14, 3, 15, 18, & ! 7 & 18, 17, 24, 17, 3, 17, 24, 17, 3, 1, & ! 8 & 1, 2, 1, 1, 2, 2, 1, 2, 1, 2, & ! 9 & 2, 1, 2, 2, 2, 2, 1, 2, 2, 1, & ! O & 2, 3, 2, 3, 7, 5, 11, 20, 16, 4, & ! 1 & 3, 4, 2, 11, 12, 18, 12, 11, 7, 18, & ! 2 & 6, 1, 2, 5, 2, 1, 2, 2, 2, 2, & ! 3 & 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, & ! 4 & 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, & ! 5 & 2, 2, 2, 2, 2, 4, 9, 9, 11, 22, & ! 6 & 2, 5, 5, 5, 5, 5, 8, 5, 8, 13, & ! 7 & 15, 12, 15, 19, 5, 6, 6, 22, 22, 2, & ! 8 & 2, 2, 2, 2, 2, 2, 2, 0, 0, 1, & ! 9 & 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, & ! O & 0, 1, 2, 2, 2, 1, 1, 1, 1, 1, & ! 1 & 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, & ! 2 & 1, 1, 1, 1, 1, 1, 3, 1, 3, 1, & ! 3 & 2, 10, 7, 7, 7, 6, 6, 6, 6, 6, & ! 4 & 6, 1/ ! 5 INTEGER, PARAMETER :: MHETERO = 11 INTEGER :: IHETERO( MHETERO,2 ) DATA ( IHETERO( IRXXN,1 ), IRXXN = 1, MHETERO ) / & & 713, 714, 715, 716, 717, 718, 719, 720, 738, 740, & & 752/ DATA ( IHETERO( IRXXN,2 ), IRXXN = 1, MHETERO ) / & & 1, 2, 3, 4, 5, 6, 6, 7, 8, 9, & & 10/ INTEGER, PARAMETER :: NPHOTAB = 38 CHARACTER( 16 ) :: PHOTAB( NPHOTAB ) DATA ( PHOTAB( IRXXN ), IRXXN = 1, NPHOTAB ) / & & 'NO2_06 ', 'NO3NO_06 ', 'NO3NO2_6 ', & & 'O3O1D_06 ', 'O3O3P_06 ', 'HONO_06 ', & & 'HNO3 ', 'HNO4_06 ', 'H2O2 ', & & 'PAN ', 'HCHOR_06 ', 'HCHOM_06 ', & & 'CCHO_R ', 'C2CHO ', 'ACET_06 ', & & 'MEK_06 ', 'COOH ', 'GLY_07R ', & & 'GLY_07M ', 'MGLY_06 ', 'BACL_07 ', & & 'BALD_06 ', 'AFG1 ', 'MACR_06 ', & & 'MVK_06 ', 'IC3ONO2 ', 'HOCCHO_IUPAC ', & & 'ACRO_09 ', 'PAA ', 'CL2 ', & & 'CLNO_06 ', 'CLONO ', 'CLNO2 ', & & 'CLONO2_1 ', 'CLONO2_2 ', 'HOCL_06 ', & & 'CLCCHO ', 'CLACET '/ INTEGER, PARAMETER :: NHETERO = 10 CHARACTER( 16 ) :: HETERO( NHETERO ) DATA ( HETERO( IRXXN ), IRXXN = 1, NHETERO ) / & & 'HETERO_NO2 ', 'HETERO_N2O5IJ ', 'HETERO_N2O5K ', & & 'HETERO_H2NO3PAIJ', 'HETERO_H2NO3PAK ', 'HETERO_H2NO3PBIJ', & & 'HETERO_H2NO3PBK ', 'HETERO_PNCOMLI ', 'HETERO_PNCOMLJ ', & & 'HETERO_IEPOX '/ CHARACTER( 16 ) :: RXLABEL( NRXNS ) DATA ( RXLABEL( IRXXN ), IRXXN = 1, NRXNS ) / & & '1 ', '2 ', '3 ', & ! 0 & '4 ', '5 ', '6 ', & ! 1 & '7 ', '8 ', '9 ', & ! 2 & '10 ', '11 ', '12 ', & ! 3 & '13 ', '14 ', '15 ', & ! 4 & '16 ', '17 ', '18 ', & ! 5 & '19 ', '20 ', '21 ', & ! 6 & '22 ', '23 ', '24 ', & ! 7 & '25 ', '26 ', '27 ', & ! 8 & '28 ', '29 ', '30 ', & ! 9 & '31 ', '32 ', '33 ', & ! 0 & '34 ', '35 ', '36 ', & ! 1 & '37 ', '38 ', '39 ', & ! 2 & '40 ', '41 ', '42 ', & ! 3 & '43 ', '44 ', '45 ', & ! 4 & 'BR01 ', 'BR02 ', 'BR03 ', & ! 5 & 'BR04 ', 'BR05 ', 'BR06 ', & ! 6 & 'BR07 ', 'BR08 ', 'BR09 ', & ! 7 & 'BR10 ', 'BR11 ', 'BR12 ', & ! 8 & 'BR13 ', 'BR14 ', 'BR15 ', & ! 9 & 'BR16 ', 'BR17 ', 'BR18 ', & ! 0 & 'BR19 ', 'BR20 ', 'BR21 ', & ! 1 & 'BR22 ', 'BR23 ', 'BR24 ', & ! 2 & 'BR25 ', 'BR26 ', 'BR27 ', & ! 3 & 'BR28 ', 'BR29 ', 'BR30 ', & ! 4 & 'BR31 ', 'BR32 ', 'BR33 ', & ! 5 & 'BR34 ', 'BR35 ', 'BR36 ', & ! 6 & 'BR37 ', 'BR38 ', 'BR39 ', & ! 7 & 'BR40 ', 'BR41 ', 'BR42 ', & ! 8 & 'BR43 ', 'BR44 ', 'BR45 ', & ! 9 & 'BR46 ', 'BR47 ', 'BR48 ', & ! 0 & 'BR49 ', 'BR50 ', 'BR51 ', & ! 1 & 'BR52 ', 'BR53 ', 'BR54 ', & ! 2 & 'BR55 ', 'BR56 ', 'BR57 ', & ! 3 & 'BR58 ', 'BR59 ', 'BR60 ', & ! 4 & 'BR61 ', 'BR62 ', 'BR63 ', & ! 5 & 'BR64 ', 'BR65 ', 'BR66 ', & ! 6 & 'BR67 ', 'BR68 ', 'R019 ', & ! 7 & 'R020 ', 'R021 ', 'R022 ', & ! 8 & 'R023 ', 'R024 ', 'R025 ', & ! 9 & 'R026 ', 'R027 ', 'R028 ', & ! 0 & 'R029 ', 'R030 ', 'R031 ', & ! 1 & 'R032 ', 'R033 ', 'R034 ', & ! 2 & 'R035 ', 'R036 ', 'R037 ', & ! 3 & 'R038 ', 'R039 ', 'R040 ', & ! 4 & 'R041 ', 'R042 ', 'R043 ', & ! 5 & 'R044 ', 'R045 ', 'R046 ', & ! 6 & 'R047 ', 'R048 ', 'R049 ', & ! 7 & 'R050 ', 'R051 ', 'R052 ', & ! 8 & 'R053 ', 'R054 ', 'R055 ', & ! 9 & 'R056 ', 'R057 ', 'R058 ', & ! 0 & 'R059 ', 'R060 ', 'R061 ', & ! 1 & 'R062 ', 'R063 ', 'R064 ', & ! 2 & 'R065 ', 'R066 ', 'R067 ', & ! 3 & 'R068 ', 'R069 ', 'R070 ', & ! 4 & 'R071 ', 'R072 ', 'R073 ', & ! 5 & 'R074 ', 'R075 ', 'R076 ', & ! 6 & 'R077 ', 'R078 ', 'R079 ', & ! 7 & 'R080 ', 'R081 ', 'R082 ', & ! 8 & 'R083 ', 'R084 ', 'R085 ', & ! 9 & 'R086 ', 'R087 ', 'R088 ', & ! 0 & 'R089 ', 'R090 ', 'R091 ', & ! 1 & 'R092 ', 'R093 ', 'R094 ', & ! 2 & 'R095 ', 'R096 ', 'R097 ', & ! 3 & 'R098 ', 'R099 ', 'R100 ', & ! 4 & 'R101 ', 'R102 ', 'R103 ', & ! 5 & 'R104 ', 'R105 ', 'R106 ', & ! 6 & 'R107 ', 'R108 ', 'BP01 ', & ! 7 & 'BP02 ', 'BP03 ', 'BP07 ', & ! 8 & 'BP08 ', 'BP09 ', 'BP10 ', & ! 9 & 'BP11 ', 'BP12 ', 'BP13 ', & ! 0 & 'BP14 ', 'BP15 ', 'BP16 ', & ! 1 & 'BP17 ', 'BP18 ', 'BP19 ', & ! 2 & 'BP20 ', 'BP21 ', 'BP22 ', & ! 3 & 'BP23 ', 'BP24 ', 'BP25 ', & ! 4 & 'BP26 ', 'BP27 ', 'BP28 ', & ! 5 & 'BP29 ', 'BP30 ', 'BP31 ', & ! 6 & 'BP32 ', 'BP33 ', 'BP34 ', & ! 7 & 'BP35 ', 'BP36 ', 'BP37 ', & ! 8 & 'BP38 ', 'BP39 ', 'BP40 ', & ! 9 & 'BP41 ', 'BP42 ', 'BP43 ', & ! 0 & 'BP44 ', 'BP45 ', 'BP46 ', & ! 1 & 'BP47 ', 'BP48 ', 'BP49 ', & ! 2 & 'BP50 ', 'BP51 ', 'BP52 ', & ! 3 & 'BP53 ', 'BP54 ', 'BP55 ', & ! 4 & 'BP56 ', 'BP57 ', 'BP58 ', & ! 5 & 'BP59 ', 'BP60 ', 'BP62 ', & ! 6 & 'BP63 ', 'BP64 ', 'BP65 ', & ! 7 & 'BP66 ', 'BP67 ', 'BP68 ', & ! 8 & 'BP69 ', 'BP70 ', 'BP71 ', & ! 9 & 'BP72 ', 'BP73 ', 'BP74 ', & ! 0 & 'BP75 ', 'BP76 ', 'BP77 ', & ! 1 & 'BP78 ', 'BP79 ', 'BP80 ', & ! 2 & 'BP81 ', 'BP82 ', 'BP83 ', & ! 3 & 'BP84 ', 'BP85 ', 'BP86 ', & ! 4 & 'P001 ', 'P002 ', 'P003 ', & ! 5 & 'P004 ', 'P005 ', 'P006 ', & ! 6 & 'P007 ', 'P008 ', 'P009 ', & ! 7 & 'P010 ', 'P011 ', 'P012 ', & ! 8 & 'P013 ', 'P014 ', 'P015 ', & ! 9 & 'P016 ', 'P017 ', 'P018 ', & ! 0 & 'P019 ', 'P020 ', 'P021 ', & ! 1 & 'P022 ', 'P023 ', 'P024 ', & ! 2 & 'P025 ', 'P026 ', 'P027 ', & ! 3 & 'P028 ', 'P029 ', 'P030 ', & ! 4 & 'P031 ', 'P032 ', 'P033 ', & ! 5 & 'P034 ', 'P035 ', 'P036 ', & ! 6 & 'P037 ', 'P038 ', 'P039 ', & ! 7 & 'P040 ', 'P041 ', 'P042 ', & ! 8 & 'P043 ', 'P044 ', 'P045 ', & ! 9 & 'P046 ', 'P047 ', 'P048 ', & ! 0 & 'P049 ', 'P050 ', 'P051 ', & ! 1 & 'P052 ', 'P053 ', 'P054 ', & ! 2 & 'P055 ', 'P056 ', 'P057 ', & ! 3 & 'P058 ', 'P059 ', 'P060 ', & ! 4 & 'P061 ', 'P062 ', 'P063 ', & ! 5 & 'P064 ', 'P065 ', 'P066 ', & ! 6 & 'P067 ', 'P068 ', 'P069 ', & ! 7 & 'P070 ', 'P071 ', 'P072 ', & ! 8 & 'P073 ', 'P074 ', 'P075 ', & ! 9 & 'P076 ', 'P077 ', 'P078 ', & ! 0 & 'P079 ', 'P080 ', 'P081 ', & ! 1 & 'P082 ', 'P083 ', 'P084 ', & ! 2 & 'P085 ', 'P086 ', 'P087 ', & ! 3 & 'P088 ', 'P089 ', 'P090 ', & ! 4 & 'P091 ', 'P092 ', 'P093 ', & ! 5 & 'P094 ', 'P095 ', 'P096 ', & ! 6 & 'P097 ', 'P098 ', 'P099 ', & ! 7 & 'P100 ', 'P101 ', 'P102 ', & ! 8 & 'P103 ', 'P104 ', 'P105 ', & ! 9 & 'P106 ', 'P107 ', 'P108 ', & ! 0 & 'P109 ', 'P110 ', 'P111 ', & ! 1 & 'P112 ', 'P113 ', 'P114 ', & ! 2 & 'P115 ', 'P116 ', 'P117 ', & ! 3 & 'P118 ', 'P119 ', 'P120 ', & ! 4 & 'P121 ', 'P122 ', 'P123 ', & ! 5 & 'P124 ', 'P125 ', 'P126 ', & ! 6 & 'P127 ', 'P128 ', 'P129 ', & ! 7 & 'P130 ', 'P131 ', 'P132 ', & ! 8 & 'P133 ', 'P134 ', 'P135 ', & ! 9 & 'P136 ', 'P137 ', 'P138 ', & ! 0 & 'P139 ', 'P140 ', 'P141 ', & ! 1 & 'P142 ', 'P143 ', 'P144 ', & ! 2 & 'P145 ', 'P146 ', 'P147 ', & ! 3 & 'P148 ', 'P149 ', 'P150 ', & ! 4 & 'P151 ', 'P152 ', 'P153 ', & ! 5 & 'P154 ', 'P155 ', 'P156 ', & ! 6 & 'P157 ', 'P158 ', 'P159 ', & ! 7 & 'P160 ', 'P161 ', 'P162 ', & ! 8 & 'P163 ', 'P164 ', 'P165 ', & ! 9 & 'P166 ', 'P167 ', 'P168 ', & ! 0 & 'P169 ', 'P170 ', 'P171 ', & ! 1 & 'P172 ', 'P173 ', 'P174 ', & ! 2 & 'P175 ', 'P176 ', 'P177 ', & ! 3 & 'P178 ', 'P179 ', 'P180 ', & ! 4 & 'P181 ', 'P182 ', 'P183 ', & ! 5 & 'P184 ', 'P185 ', 'P186 ', & ! 6 & 'P187 ', 'P188 ', 'P189 ', & ! 7 & 'P190 ', 'P181a ', 'P182a ', & ! 8 & 'P183a ', 'P184a ', 'P185a ', & ! 9 & 'P186a ', 'P187a ', 'P188a ', & ! 0 & 'P189a ', 'P190a ', 'P191 ', & ! 1 & 'P192 ', 'P193 ', 'P194 ', & ! 2 & 'P195 ', 'P196 ', 'P197 ', & ! 3 & 'P198 ', 'P199 ', 'P200 ', & ! 4 & 'P201 ', 'P202 ', 'P203 ', & ! 5 & 'P204 ', 'P205 ', 'P206 ', & ! 6 & 'P207 ', 'P208 ', 'P209 ', & ! 7 & 'P210 ', 'P211 ', 'P212 ', & ! 8 & 'P213 ', 'P214 ', 'P215 ', & ! 9 & 'P216 ', 'P217 ', 'P218 ', & ! 0 & 'P219 ', 'P220 ', 'P221 ', & ! 1 & 'P222 ', 'P223 ', 'P224 ', & ! 2 & 'P225 ', 'P226 ', 'P227 ', & ! 3 & 'P228 ', 'P229 ', 'P230 ', & ! 4 & 'BE01 ', 'BE02 ', 'BE03 ', & ! 5 & 'BE04 ', 'BE05 ', 'BT01 ', & ! 6 & 'BT02 ', 'BT03 ', 'BT04 ', & ! 7 & 'BT05 ', 'BT06 ', 'BT07 ', & ! 8 & 'BT08 ', 'BE06 ', 'BE07 ', & ! 9 & 'BE08 ', 'BE09 ', 'IS88 ', & ! 0 & 'IS89 ', 'IS92 ', 'IS90 ', & ! 1 & 'IS91 ', 'IS96 ', 'IS112 ', & ! 2 & 'IS113 ', 'IS114 ', 'BT09 ', & ! 3 & 'BT10 ', 'BT11 ', 'BT12 ', & ! 4 & 'BE10 ', 'BE11 ', 'BE12 ', & ! 5 & 'BT13 ', 'BT14 ', 'BT15 ', & ! 6 & 'BT16 ', 'BT17 ', 'BT18 ', & ! 7 & 'BL01 ', 'BL02 ', 'BL03 ', & ! 8 & 'BL04 ', 'BL05 ', 'AALK ', & ! 9 & 'BL06 ', 'BL07 ', 'BL08 ', & ! 0 & 'BL09 ', 'BL10 ', 'BL11 ', & ! 1 & 'BL12 ', 'BL13 ', 'BL14 ', & ! 2 & 'BL15 ', 'BL15b ', 'BL16 ', & ! 3 & 'BL17 ', 'BL18 ', 'BL19 ', & ! 4 & 'BT19 ', 'BT20 ', 'BT21 ', & ! 5 & 'BT22 ', 'CI01 ', 'CI02 ', & ! 6 & 'CI03 ', 'CI04 ', 'CI05 ', & ! 7 & 'CI06 ', 'CI07 ', 'CI08 ', & ! 8 & 'CI09 ', 'CI10 ', 'CI11 ', & ! 9 & 'CI12 ', 'CI13 ', 'CI14 ', & ! 0 & 'CI15 ', 'CI16 ', 'CI17 ', & ! 1 & 'CI18 ', 'CI19 ', 'CI20 ', & ! 2 & 'CI21 ', 'CI22 ', 'CP01 ', & ! 3 & 'CP02 ', 'CP03 ', 'CP04 ', & ! 4 & 'CP05 ', 'CP06 ', 'CP07 ', & ! 5 & 'CP08 ', 'CP09 ', 'CP10 ', & ! 6 & 'CP11 ', 'CP12 ', 'CP13 ', & ! 7 & 'CP14 ', 'CP15 ', 'TP01 ', & ! 8 & 'CP16 ', 'CP17 ', 'CP18 ', & ! 9 & 'CP19 ', 'CP20 ', 'CP21 ', & ! 0 & 'CP22 ', 'CP29 ', 'CP30 ', & ! 1 & 'CP31 ', 'CP32 ', 'CP33 ', & ! 2 & 'CP34 ', 'CP35 ', 'CP36 ', & ! 3 & 'CP37 ', 'CP38 ', 'CP39 ', & ! 4 & 'CP40 ', 'CP41 ', 'CP42 ', & ! 5 & 'CP43 ', 'CP44 ', 'CP45 ', & ! 6 & 'CP46 ', 'CP47 ', 'CP48 ', & ! 7 & 'CP49 ', 'CP50 ', 'CP51 ', & ! 8 & 'CP52 ', 'CP53 ', 'CP54 ', & ! 9 & 'CP55 ', 'CP56 ', 'CP57 ', & ! 0 & 'CP58 ', 'CE01 ', 'CE02 ', & ! 1 & 'TE01 ', 'TE02 ', 'CE03 ', & ! 2 & 'TE03 ', 'CE04 ', 'TE04 ', & ! 3 & 'TE05 ', 'TE06 ', 'TE07 ', & ! 4 & 'TE08 ', 'TE09 ', 'BC01 ', & ! 5 & 'BC02 ', 'BC03 ', 'BC04 ', & ! 6 & 'BC05 ', 'BC06 ', 'BC07 ', & ! 7 & 'BC08 ', 'BC09 ', 'BC09b ', & ! 8 & 'BC10 ', 'BC11 ', 'AE51 ', & ! 9 & 'AE52 ', 'AE53 ', 'AE54 ', & ! 0 & 'AE55 ', 'AE56 ', 'AE55b ', & ! 1 & 'AE56b ', 'TR01 ', 'TR02 ', & ! 2 & 'TR03 ', 'TR05 ', 'TR06 ', & ! 3 & 'TR07 ', 'TR08 ', 'TR09 ', & ! 4 & 'TR10 ', 'TR11 ', 'TR12 ', & ! 5 & 'TR13 ', 'TR14 ', 'TR15 ', & ! 6 & 'TR16 ', 'HET_N02 ', 'HET_N2O5IJ ', & ! 7 & 'HET_N2O5K ', 'HET_H2NO3PIJA ', 'HET_H2NO3PKA ', & ! 8 & 'HET_H2NO3PIB ', 'HET_H2NO3PJB ', 'HET_H2NO3PKB ', & ! 9 & 'HAL_Ozone ', 'OLIG_XYLENE1 ', 'OLIG_XYLENE2 ', & ! 0 & 'OLIG_TOLUENE1 ', 'OLIG_TOLUENE2 ', 'OLIG_BENZENE1 ', & ! 1 & 'OLIG_BENZENE2 ', 'OLIG_TERPENE1 ', 'OLIG_TERPENE2 ', & ! 2 & 'OLIG_ISOPRENE1 ', 'OLIG_ISOPRENE2 ', 'OLIG_SESQT1 ', & ! 3 & 'OLIG_PAH1 ', 'OLIG_PAH2 ', 'OLIG_ALK1 ', & ! 4 & 'OLIG_ALK2 ', 'RPOAGEPI ', 'RPOAGELI ', & ! 5 & 'RPOAGEPJ ', 'RPOAGELJ ', 'PCSOA ', & ! 6 & 'POA_AGE1 ', 'POA_AGE2 ', 'POA_AGE3 ', & ! 7 & 'POA_AGE4 ', 'POA_AGE5 ', 'POA_AGE6 ', & ! 8 & 'POA_AGE7 ', 'POA_AGE8 ', 'POA_AGE9 ', & ! 9 & 'POA_AGE10 ', 'HET_IEPOX '/ ! 0 ! NSPECIAL = Number of special rate coefficients ! SPECIAL = Names of special rate coefficients ! NSPECIAL_RXN = Number of reactions with special rates ! ISPECIAL = Pointers to reactions using special rates and their special rate coefficients ! MAXSPECTERMS = Max Number of terms type used by special rate coefficients ! KC_COEFFS = Coefficients of standard rate coefficients times concentration terms ! INDEX_KTERMS = Pointers to standard rate coefficients in special rate coefficients ! INDEX_CTERMS = Pointers to species concentrations in special rate coefficients ! OPERATOR_COEFFS = Coefficients of preceeding special rate coefficients used in special coefficient ! OPERATORS = Pointers to preceeding special rate coefficients used in special coefficient ! Special Rate information not available .. INTEGER, PARAMETER :: NSPECIAL_RXN = 0 INTEGER :: ISPECIAL( 1, 2 ) ! Special Rate information not available ... INTEGER, PARAMETER :: NSPECIAL = 0 ! Special Rate information not available ... CHARACTER( 16 ) :: SPECIAL( 1 ) INTEGER, PARAMETER :: MAXSPECTERMS = 1 REAL( 8 ) :: KC_COEFFS( NSPECIAL + 1, MAXSPECTERMS) INTEGER :: INDEX_KTERMS( NSPECIAL + 1, MAXSPECTERMS) INTEGER :: INDEX_CTERMS( NSPECIAL + 1, MAXSPECTERMS) REAL( 8 ) :: OPERATOR_COEFFS( NSPECIAL + 1, MAXSPECTERMS) INTEGER :: OPERATORS( NSPECIAL + 1, MAXSPECTERMS) ! Steady-state species section ! N_SS_SPC = Number of species assumed to be in steady-state ! SS_SPC_DIM = Dimension paramete for steady-state species ! SS_SPC = Names of species assumed to be in steady-state ! MAX_SS_LOSS = Max no. of SS loss rxns for any SS species ! MAX_SS_PROD = Max no. of SS prod rxns for any SS species ! N_LOSS_RXNS = No. of SS loss rxns for each SS species ! N_PROD_RXNS = No. of SS prod rxns for each SS species ! SS_LOSS_RXNS = List of SS loss rxns for each SS species ! SS_PROD_RXNS = List of SS prod rxns for each SS species ! SS_PROD_COEF = List of SS prod yields for each SS species ! SS_RCT_IND = SS species index if it is a rxn reactant INTEGER, PARAMETER :: N_SS_SPC = 0 INTEGER, PARAMETER :: SS_SPC_DIM = 1 INTEGER, PARAMETER :: MAX_SS_LOSS = 0 INTEGER, PARAMETER :: MAX_SS_PROD = 0 CHARACTER( 16 ) :: SS_SPC( 1 ) INTEGER :: N_LOSS_RXNS( 1 ) INTEGER :: N_PROD_RXNS( 1 ) INTEGER :: SS_LOSS_RXNS( 1, 1 ) INTEGER :: SS_PROD_RXNS( 1, 1 ) INTEGER :: SS_RCT_IND( 1 ) REAL :: SS_PROD_COEF( 1,1 ) LOGICAL, PARAMETER :: USE_SPECIAL_RATES = .FALSE. ! pointers and names to specific photolysis rates INTEGER, PARAMETER :: IJ_NO2_06 = 1 INTEGER, PARAMETER :: IJ_NO3NO_06 = 2 INTEGER, PARAMETER :: IJ_NO3NO2_6 = 3 INTEGER, PARAMETER :: IJ_O3O1D_06 = 4 INTEGER, PARAMETER :: IJ_O3O3P_06 = 5 INTEGER, PARAMETER :: IJ_HONO_06 = 6 INTEGER, PARAMETER :: IJ_HNO3 = 7 INTEGER, PARAMETER :: IJ_HNO4_06 = 8 INTEGER, PARAMETER :: IJ_H2O2 = 9 INTEGER, PARAMETER :: IJ_PAN = 10 INTEGER, PARAMETER :: IJ_HCHOR_06 = 11 INTEGER, PARAMETER :: IJ_HCHOM_06 = 12 INTEGER, PARAMETER :: IJ_CCHO_R = 13 INTEGER, PARAMETER :: IJ_C2CHO = 14 INTEGER, PARAMETER :: IJ_ACET_06 = 15 INTEGER, PARAMETER :: IJ_MEK_06 = 16 INTEGER, PARAMETER :: IJ_COOH = 17 INTEGER, PARAMETER :: IJ_GLY_07R = 18 INTEGER, PARAMETER :: IJ_GLY_07M = 19 INTEGER, PARAMETER :: IJ_MGLY_06 = 20 INTEGER, PARAMETER :: IJ_BACL_07 = 21 INTEGER, PARAMETER :: IJ_BALD_06 = 22 INTEGER, PARAMETER :: IJ_AFG1 = 23 INTEGER, PARAMETER :: IJ_MACR_06 = 24 INTEGER, PARAMETER :: IJ_MVK_06 = 25 INTEGER, PARAMETER :: IJ_IC3ONO2 = 26 INTEGER, PARAMETER :: IJ_HOCCHO_IUPAC = 27 INTEGER, PARAMETER :: IJ_ACRO_09 = 28 INTEGER, PARAMETER :: IJ_PAA = 29 INTEGER, PARAMETER :: IJ_CL2 = 30 INTEGER, PARAMETER :: IJ_CLNO_06 = 31 INTEGER, PARAMETER :: IJ_CLONO = 32 INTEGER, PARAMETER :: IJ_CLNO2 = 33 INTEGER, PARAMETER :: IJ_CLONO2_1 = 34 INTEGER, PARAMETER :: IJ_CLONO2_2 = 35 INTEGER, PARAMETER :: IJ_HOCL_06 = 36 INTEGER, PARAMETER :: IJ_CLCCHO = 37 INTEGER, PARAMETER :: IJ_CLACET = 38 INTEGER, PARAMETER :: IK_HETERO_NO2 = 1 INTEGER, PARAMETER :: IK_HETERO_N2O5IJ = 2 INTEGER, PARAMETER :: IK_HETERO_N2O5K = 3 INTEGER, PARAMETER :: IK_HETERO_H2NO3PAIJ = 4 INTEGER, PARAMETER :: IK_HETERO_H2NO3PAK = 5 INTEGER, PARAMETER :: IK_HETERO_H2NO3PBIJ = 6 INTEGER, PARAMETER :: IK_HETERO_H2NO3PBK = 7 INTEGER, PARAMETER :: IK_HETERO_PNCOMLI = 8 INTEGER, PARAMETER :: IK_HETERO_PNCOMLJ = 9 INTEGER, PARAMETER :: IK_HETERO_IEPOX = 10 END MODULE RXNS_DATA ================================================ FILE: CCTM/src/MECHS/saprc07tc_ae6_aq/RXNS_FUNC_MODULE.F90 ================================================ MODULE RXNS_FUNCTION IMPLICIT NONE ! Name of Mechanism SAPRC07TC_AE6_AQ PUBLIC :: CALC_RCONST, SPECIAL_RATES, MAP_CHEMISTRY_SPECIES CONTAINS REAL( 8 ) FUNCTION POWER_T02( TEMPOT300,A0,B0 ) IMPLICIT NONE ! rate constant for CMAQ Arrhenuis reaction type 2 ! Arguements: REAL( 8 ), INTENT( IN ) :: TEMPOT300 REAL( 8 ), INTENT( IN ) :: A0 REAL( 8 ), INTENT( IN ) :: B0 ! Local: None POWER_T02 = A0 * TEMPOT300**B0 RETURN END FUNCTION POWER_T02 REAL( 8 ) FUNCTION ARRHENUIS_T04( INV_TEMP,TEMPOT300,A0,B0,C0 ) IMPLICIT NONE ! rate constant for CMAQ Arrhenuis reaction type 4 ! Arguements: REAL( 8 ), INTENT( IN ) :: INV_TEMP REAL( 8 ), INTENT( IN ) :: TEMPOT300 REAL( 8 ), INTENT( IN ) :: A0 REAL( 8 ), INTENT( IN ) :: B0 REAL( 8 ), INTENT( IN ) :: C0 ! Local: INTRINSIC DEXP ARRHENUIS_T04 = A0 * DEXP( B0 * INV_TEMP ) * TEMPOT300**C0 RETURN END FUNCTION ARRHENUIS_T04 REAL( 8 ) FUNCTION ARRHENUIS_T03( INV_TEMP,A0,B0 ) ! rate constant for CMAQ Arrhenuis reaction type 3 IMPLICIT NONE ! Arguements: REAL( 8 ), INTENT( IN ) :: INV_TEMP REAL( 8 ), INTENT(IN) :: A0 REAL( 8 ), INTENT(IN) :: B0 ! Local: INTRINSIC DEXP ARRHENUIS_T03 = A0 * DEXP( B0 * INV_TEMP ) RETURN END FUNCTION ARRHENUIS_T03 REAL( 8 ) FUNCTION FALLOFF_T08(INV_TEMP,CAIR,A0,C0,A2,C2,A3,C3) ! rate constant for CMAQ fall off reaction type 8 IMPLICIT NONE ! Arguements: REAL( 8 ), INTENT( IN ) :: INV_TEMP REAL( 8 ), INTENT( IN ) :: CAIR REAL( 8 ), INTENT( IN ) :: A0 REAL( 8 ), INTENT( IN ) :: C0 REAL( 8 ), INTENT( IN ) :: A2 REAL( 8 ), INTENT( IN ) :: C2 REAL( 8 ), INTENT( IN ) :: A3 REAL( 8 ), INTENT( IN ) :: C3 ! Local: REAL( 8 ) K0 REAL( 8 ) K2 REAL( 8 ) K3 INTRINSIC DEXP K0 = A0 * DEXP( C0 * INV_TEMP ) K2 = A2 * DEXP( C2 * INV_TEMP ) K3 = A3 * DEXP( C3 * INV_TEMP ) K3 = K3 * CAIR FALLOFF_T08 = K0 + K3/( 1.0D0 + K3/K2 ) RETURN END FUNCTION FALLOFF_T08 REAL( 8 ) FUNCTION FALLOFF_T09(INV_TEMP,CAIR,A1,C1,A2,C2) ! rate constant for CMAQ fall off reaction type 9 IMPLICIT NONE ! Arguements: REAL( 8 ), INTENT( IN ) :: INV_TEMP REAL( 8 ), INTENT( IN ) :: CAIR REAL( 8 ), INTENT( IN ) :: A1 REAL( 8 ), INTENT( IN ) :: C1 REAL( 8 ), INTENT( IN ) :: A2 REAL( 8 ), INTENT( IN ) :: C2 ! Local: REAL( 8 ) K1 REAL( 8 ) K2 INTRINSIC DEXP K1 = A1 * DEXP( C1 * INV_TEMP ) K2 = A2 * DEXP( C2 * INV_TEMP ) FALLOFF_T09 = K1 + K2 * CAIR RETURN END FUNCTION FALLOFF_T09 REAL( 8 ) FUNCTION FALLOFF_T10(INV_TEMP,TEMPOT300,CAIR,A0,B0,C0,A1,B1,C1,CE,CF) IMPLICIT NONE ! rate constant for CMAQ fall off reaction type 10 ! Arguements: REAL( 8 ), INTENT( IN ) :: INV_TEMP REAL( 8 ), INTENT( IN ) :: TEMPOT300 REAL( 8 ), INTENT( IN ) :: CAIR REAL( 8 ), INTENT( IN ) :: A0 REAL( 8 ), INTENT( IN ) :: B0 REAL( 8 ), INTENT( IN ) :: C0 REAL( 8 ), INTENT( IN ) :: A1 REAL( 8 ), INTENT( IN ) :: B1 REAL( 8 ), INTENT( IN ) :: C1 REAL( 8 ), INTENT( IN ) :: CE REAL( 8 ), INTENT( IN ) :: CF ! Local: REAL( 8 ) K0 REAL( 8 ) K1 REAL( 8 ) KEND K0 = A0 * CAIR * DEXP(B0*INV_TEMP)* TEMPOT300**C0 K1 = A1 * DEXP(B1*INV_TEMP) * TEMPOT300**C1 KEND = ( ( 1.0D0 + ( ( 1.0D0 / CE ) * DLOG10( K0 / K1 ) ) ** 2.0D0 ) ) KEND = 1.0D0 / KEND FALLOFF_T10 = ( K0 / ( 1.0D0 + K0/K1 ) ) * CF ** KEND RETURN END FUNCTION FALLOFF_T10 REAL( 8 ) FUNCTION FALLOFF_T11(INV_TEMP,TEMPOT300,CAIR,A1,B1,C1,A2, B2, C2, D1, D2) ! rate constant for CMAQ fall off reaction type 11 ! actually expanded form of type 9 IMPLICIT NONE ! Arguements: REAL( 8 ), INTENT( IN ) :: INV_TEMP REAL( 8 ), INTENT( IN ) :: TEMPOT300 REAL( 8 ), INTENT( IN ) :: CAIR REAL( 8 ), INTENT( IN ) :: A1 REAL( 8 ), INTENT( IN ) :: B1 REAL( 8 ), INTENT( IN ) :: C1 REAL( 8 ), INTENT( IN ) :: A2 REAL( 8 ), INTENT( IN ) :: B2 REAL( 8 ), INTENT( IN ) :: C2 REAL( 8 ), INTENT( IN ) :: D1 REAL( 8 ), INTENT( IN ) :: D2 ! Local: REAL( 8 ) K1 REAL( 8 ) K2 REAL( 8 ) K3 INTRINSIC DEXP K1 = A1 * DEXP( C1 * INV_TEMP ) * TEMPOT300**B1 K2 = A2 * DEXP( C2 * INV_TEMP ) * TEMPOT300**B2 K3 = D1 * DEXP( D2 * INV_TEMP ) FALLOFF_T11 = K1 + K2 * CAIR + K3 RETURN END FUNCTION FALLOFF_T11 REAL( 8 ) FUNCTION HALOGEN_FALLOFF(PRESS,A1,B1,A2,B2,A3) IMPLICIT NONE REAL( 8 ), INTENT( IN ) :: PRESS REAL( 8 ), INTENT( IN ) :: A1 REAL( 8 ), INTENT( IN ) :: B1 REAL( 8 ), INTENT( IN ) :: A2 REAL( 8 ), INTENT( IN ) :: B2 REAL( 8 ), INTENT( IN ) :: A3 ! Maximum loss rate (1/sec) INTRINSIC DEXP HALOGEN_FALLOFF = A1 * DEXP( B1 * PRESS ) + A2 * DEXP( B2 * PRESS ) HALOGEN_FALLOFF = DMIN1 (A3, HALOGEN_FALLOFF ) RETURN END FUNCTION HALOGEN_FALLOFF SUBROUTINE SPECIAL_RATES( NUMCELLS, Y, TEMP, DENS, RKI ) ! Purpose: calculate special rate operators and update ! appropriate rate constants USE RXNS_DATA IMPLICIT NONE ! Arguments: INTEGER, INTENT( IN ) :: NUMCELLS ! Number of cells in block REAL( 8 ), INTENT( IN ) :: Y( :, : ) ! species concs REAL( 8 ), INTENT( IN ) :: TEMP( : ) ! air temperature, K REAL( 8 ), INTENT( IN ) :: DENS( : ) ! air density, Kg/m3 REAL( 8 ), INTENT( INOUT ) :: RKI( :, : ) ! reaction rate constant, ppm/min ! Local: REAL( 8 ), PARAMETER :: DENSITY_TO_NUMBER = 2.07930D+19 ! Kg/m3 to molecules/cm3 INTEGER :: NCELL REAL( 8 ) :: INV_TEMP REAL( 8 ) :: CAIR REAL( 8 ) :: CFACT ! scales operator if not multiplied by RKI, cm^3/(molecule) to 1/(ppm) REAL( 8 ) :: CFACT_SQU ! scales operator if not multiplied by RKI, cm^6/(molec^2) to 1/(ppm^2) ! special rate operators listed below DO NCELL = 1, NUMCELLS INV_TEMP = 1.0D0 / TEMP( NCELL ) CAIR = DENSITY_TO_NUMBER * DENS( NCELL ) CFACT = 1.0D-06 * CAIR CFACT_SQU = 1.0D-12 * CAIR * CAIR ! define special rate operators ! define rate constants in terms of special rate operators END DO RETURN END SUBROUTINE SPECIAL_RATES SUBROUTINE CALC_RCONST( BLKTEMP, BLKPRES, BLKH2O, RJBLK, BLKHET, LSUNLIGHT, SEAWATER, RKI, NUMCELLS ) !********************************************************************** ! Function: To compute thermal and photolytic reaction rate ! coefficients for each reaction. ! Preconditions: Photolysis rates for individual species must have ! been calculated and stored in RJPHOT. Expects ! temperature in deg K, pressure in atm., water ! vapor in ppmV, and J-values in /min. ! Key Subroutines/Functions Called: POWER_02, ARRHRENUIS_T0*, FALLOFF_T*, HALOGEN_FALLOFF !*********************************************************************** USE RXNS_DATA IMPLICIT NONE ! Arguements: None REAL( 8 ), INTENT( IN ) :: BLKTEMP( : ) ! temperature, deg K REAL( 8 ), INTENT( IN ) :: BLKPRES( : ) ! pressure, Atm REAL( 8 ), INTENT( IN ) :: BLKH2O ( : ) ! water mixing ratio, ppm REAL( 8 ), INTENT( IN ) :: RJBLK ( :, : ) ! photolysis rates, 1/min REAL( 8 ), INTENT( IN ) :: BLKHET ( :, : ) ! heterogeneous rate constants, ???/min INTEGER, INTENT( IN ) :: NUMCELLS ! Number of cells in block LOGICAL, INTENT( IN ) :: LSUNLIGHT ! Is there sunlight? REAL( 8 ), INTENT( IN ) :: SEAWATER( : ) ! fractional area of OPEN+SURF REAL( 8 ), INTENT( OUT ) :: RKI ( :, : ) ! reaction rate constant, ppm/min !..Parameters: REAL( 8 ), PARAMETER :: COEF1 = 7.33981D+15 ! Molec/cc to ppm conv factor REAL( 8 ), PARAMETER :: CONSTC = 0.6D+0 ! Constant for reaction type 7 REAL( 8 ), PARAMETER :: TI300 = 1.0D+0/300.0D+0 ! reciprocal of 300 deg K REAL( 8 ), PARAMETER :: SFACT = 60.D+0 ! seconds per minute !..External Functions: None !..Local Variables: INTEGER :: NRT ! Loop index for reaction types INTEGER :: IRXN ! Reaction number INTEGER :: JNUM ! J-value species # from PHOT) INTEGER :: KNUM ! Reaction # for a relative rate coeff. INTEGER :: N ! Loop index for reactions INTEGER :: NCELL ! Loop index for # of cells in the block REAL( 8 ) :: CAIR ! air number density (wet) [molec/cm^3] REAL( 8 ) :: CFACT ! Convertor cm^3/(molec*sec) to 1/(ppm*min) REAL( 8 ) :: CFACT_SQU ! Convertor cm^6/(molec^2*sec) to 1/(ppm^2*min) REAL( 8 ) :: INV_CFACT ! ppm/min to molec/(cm^3*sec) REAL( 8 ) :: TEMPOT300 ! temperature divided by 300 K, dimensionaless REAL( 8 ) :: INV_TEMP ! reciprocal of air temperature, K-1 REAL( 8 ) :: INV_CAIR ! reciprocal of air number density (wet), [cm^3/molec] REAL( 8 ) :: TEMP ! air temperature, K REAL( 8 ) :: PRESS ! pressure [Atm] REAL( 8 ) :: INV_RFACT ! ppm/min to molec/(cm^3*min) REAL( 8 ) :: RFACT_SQU ! cm^6/(molec^2*min) to 1/(ppm^2*min) REAL( 8 ) :: RFACT ! cm^3/(molec*min) to 1/(ppm*min) REAL( 8 ) :: H2O ! concentration, [molec/cm^3] RKI = 0.0D0 ! All rate constants converted from molec/cm3 to ppm ! and 1/sec to 1/min IF( LSUNLIGHT )THEN DO NCELL = 1, NUMCELLS ! Reaction Label 1 RKI( NCELL, 1) = RJBLK( NCELL, IJ_NO2_06 ) ! Reaction Label 16 RKI( NCELL, 16) = RJBLK( NCELL, IJ_NO3NO_06 ) ! Reaction Label 17 RKI( NCELL, 17) = RJBLK( NCELL, IJ_NO3NO2_6 ) ! Reaction Label 18 RKI( NCELL, 18) = RJBLK( NCELL, IJ_O3O1D_06 ) ! Reaction Label 19 RKI( NCELL, 19) = RJBLK( NCELL, IJ_O3O3P_06 ) ! Reaction Label 23 RKI( NCELL, 23) = RJBLK( NCELL, IJ_HONO_06 ) ! Reaction Label 28 RKI( NCELL, 28) = RJBLK( NCELL, IJ_HNO3 ) ! Reaction Label 34 RKI( NCELL, 34) = RJBLK( NCELL, IJ_HNO4_06 ) ! Reaction Label 41 RKI( NCELL, 41) = RJBLK( NCELL, IJ_H2O2 ) ! Reaction Label BR20 RKI( NCELL, 65) = RJBLK( NCELL, IJ_PAN ) ! Reaction Label BR30 RKI( NCELL, 75) = RJBLK( NCELL, IJ_PAN ) ! Reaction Label BR41 RKI( NCELL, 86) = RJBLK( NCELL, IJ_PAN ) ! Reaction Label BR53 RKI( NCELL, 98) = RJBLK( NCELL, IJ_PAN ) ! Reaction Label BP01 RKI( NCELL, 204) = RJBLK( NCELL, IJ_HCHOR_06 ) ! Reaction Label BP02 RKI( NCELL, 205) = RJBLK( NCELL, IJ_HCHOM_06 ) ! Reaction Label BP09 RKI( NCELL, 209) = RJBLK( NCELL, IJ_CCHO_R ) ! Reaction Label BP12 RKI( NCELL, 212) = RJBLK( NCELL, IJ_C2CHO ) ! Reaction Label BP15 RKI( NCELL, 215) = 5.0000D-01 * RJBLK( NCELL, IJ_ACET_06 ) ! Reaction Label BP17 RKI( NCELL, 217) = 1.7500D-01 * RJBLK( NCELL, IJ_MEK_06 ) ! Reaction Label BP23 RKI( NCELL, 223) = RJBLK( NCELL, IJ_COOH ) ! Reaction Label BP25 RKI( NCELL, 225) = RJBLK( NCELL, IJ_COOH ) ! Reaction Label BP27 RKI( NCELL, 227) = RJBLK( NCELL, IJ_COOH ) ! Reaction Label BP29 RKI( NCELL, 229) = RJBLK( NCELL, IJ_COOH ) ! Reaction Label BP30 RKI( NCELL, 230) = RJBLK( NCELL, IJ_GLY_07R ) ! Reaction Label BP31 RKI( NCELL, 231) = RJBLK( NCELL, IJ_GLY_07M ) ! Reaction Label BP34 RKI( NCELL, 234) = RJBLK( NCELL, IJ_MGLY_06 ) ! Reaction Label BP37 RKI( NCELL, 237) = RJBLK( NCELL, IJ_BACL_07 ) ! Reaction Label BP41 RKI( NCELL, 241) = 1.5000D-03 * RJBLK( NCELL, IJ_NO2_06 ) ! Reaction Label BP42 RKI( NCELL, 242) = 1.5000D-02 * RJBLK( NCELL, IJ_NO2_06 ) ! Reaction Label BP44 RKI( NCELL, 244) = 6.0000D-02 * RJBLK( NCELL, IJ_BALD_06 ) ! Reaction Label BP48 RKI( NCELL, 248) = RJBLK( NCELL, IJ_AFG1 ) ! Reaction Label BP51 RKI( NCELL, 251) = RJBLK( NCELL, IJ_AFG1 ) ! Reaction Label BP58 RKI( NCELL, 258) = RJBLK( NCELL, IJ_MACR_06 ) ! Reaction Label BP63 RKI( NCELL, 262) = RJBLK( NCELL, IJ_MVK_06 ) ! Reaction Label BP67 RKI( NCELL, 266) = RJBLK( NCELL, IJ_MACR_06 ) ! Reaction Label BP69 RKI( NCELL, 268) = 4.8600D-03 * RJBLK( NCELL, IJ_MEK_06 ) ! Reaction Label BP71 RKI( NCELL, 270) = RJBLK( NCELL, IJ_IC3ONO2 ) ! Reaction Label BP73 RKI( NCELL, 272) = RJBLK( NCELL, IJ_HOCCHO_IUPAC ) ! Reaction Label BP79 RKI( NCELL, 278) = RJBLK( NCELL, IJ_ACRO_09 ) ! Reaction Label BP81 RKI( NCELL, 280) = RJBLK( NCELL, IJ_PAA ) ! Reaction Label BP83 RKI( NCELL, 282) = RJBLK( NCELL, IJ_PAA ) ! Reaction Label IS92 RKI( NCELL, 545) = RJBLK( NCELL, IJ_COOH ) ! Reaction Label CI01 RKI( NCELL, 590) = RJBLK( NCELL, IJ_CL2 ) ! Reaction Label CI03 RKI( NCELL, 592) = RJBLK( NCELL, IJ_CLNO_06 ) ! Reaction Label CI06 RKI( NCELL, 595) = RJBLK( NCELL, IJ_CLONO ) ! Reaction Label CI07 RKI( NCELL, 596) = RJBLK( NCELL, IJ_CLNO2 ) ! Reaction Label CI14 RKI( NCELL, 603) = RJBLK( NCELL, IJ_CLONO2_1 ) ! Reaction Label CI15 RKI( NCELL, 604) = RJBLK( NCELL, IJ_CLONO2_2 ) ! Reaction Label CI19 RKI( NCELL, 608) = RJBLK( NCELL, IJ_HOCL_06 ) ! Reaction Label CP19 RKI( NCELL, 631) = RJBLK( NCELL, IJ_CLCCHO ) ! Reaction Label CP22 RKI( NCELL, 634) = 5.0000D-01 * RJBLK( NCELL, IJ_CLACET ) ! Reaction Label TR01 RKI( NCELL, 698) = RJBLK( NCELL, IJ_HCHOR_06 ) ! Reaction Label TR02 RKI( NCELL, 699) = RJBLK( NCELL, IJ_HCHOM_06 ) ! Reaction Label TR08 RKI( NCELL, 704) = RJBLK( NCELL, IJ_CCHO_R ) ! Reaction Label TR15 RKI( NCELL, 711) = RJBLK( NCELL, IJ_ACRO_09 ) IF ( SEAWATER (NCELL) .GT. 0.001D0 ) THEN ! Reaction Label HAL_Ozone RKI( NCELL, 721) = SEAWATER (NCELL) * SFACT * HALOGEN_FALLOFF( BLKPRES( NCELL ), 6.7006D-11, 1.0743D+01, & & 3.4153D-08, -6.7130D-01, 2.0000D-06 ) ELSE RKI( NCELL, 721) = 0.0D0 END IF END DO END IF DO NCELL = 1, NUMCELLS ! Set-up conversion factors INV_TEMP = 1.0D+00 / BLKTEMP( NCELL ) CAIR = 1.0D+06 * COEF1 * BLKPRES( NCELL ) * INV_TEMP CFACT = 6.0D-05 * CAIR CFACT_SQU = 6.0D-11 * CAIR * CAIR INV_CAIR = 1.0D0 / CAIR INV_CFACT = 6.0D+07 * INV_CAIR TEMP = BLKTEMP( NCELL ) TEMPOT300 = BLKTEMP( NCELL ) * TI300 RFACT = 1.0D+06 * INV_CAIR RFACT_SQU = 1.0D+12 * INV_CAIR * INV_CAIR ! Reaction Label 2 RKI( NCELL, 2) = CFACT_SQU * POWER_T02( TEMPOT300, 5.6800D-34, -2.6000D+00 ) ! Reaction Label 3 RKI( NCELL, 3) = CFACT * ARRHENUIS_T03( INV_TEMP, 8.0000D-12, -2.0600D+03 ) ! Reaction Label 4 RKI( NCELL, 4) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 9.0000D-32, 0.0000D+00, -1.5000D+00, & & 3.0000D-11, 0.0000D+00, 0.0000D+00, & & 1.0000D+00, 6.0000D-01 ) ! Reaction Label 5 RKI( NCELL, 5) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.5000D-12, 1.8800D+02 ) ! Reaction Label 6 RKI( NCELL, 6) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 2.5000D-31, 0.0000D+00, -1.8000D+00, & & 2.2000D-11, 0.0000D+00, -7.0000D-01, & & 1.0000D+00, 6.0000D-01 ) ! Reaction Label 7 RKI( NCELL, 7) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.0000D-12, -1.5000D+03 ) ! Reaction Label 8 RKI( NCELL, 8) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.4000D-13, -2.4700D+03 ) ! Reaction Label 9 RKI( NCELL, 9) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.8000D-11, 1.1000D+02 ) ! Reaction Label 10 RKI( NCELL, 10) = CFACT_SQU * ARRHENUIS_T03( INV_TEMP, 3.3000D-39, 5.3000D+02 ) ! Reaction Label 11 RKI( NCELL, 11) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 3.6000D-30, 0.0000D+00, -4.1000D+00, & & 1.9000D-12, 0.0000D+00, 2.0000D-01, & & 1.3300D+00, 3.5000D-01 ) ! Reaction Label 12 RKI( NCELL, 12) = SFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 1.3000D-03, -1.1000D+04, -3.5000D+00, & & 9.7000D+14, -1.1080D+04, 1.0000D-01, & & 1.3300D+00, 3.5000D-01 ) ! Reaction Label 13 RKI( NCELL, 13) = 1.0000D-22 * CFACT ! Reaction Label 14 RKI( NCELL, 14) = 0.0000D+00 * CFACT_SQU ! Reaction Label 15 RKI( NCELL, 15) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.5000D-14, -1.2600D+03 ) ! Reaction Label 20 RKI( NCELL, 20) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.6300D-10, 6.0000D+01 ) ! Reaction Label 21 RKI( NCELL, 21) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.3800D-11, 9.6000D+01 ) ! Reaction Label 22 RKI( NCELL, 22) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 7.0000D-31, 0.0000D+00, -2.6000D+00, & & 3.6000D-11, 0.0000D+00, -1.0000D-01, & & 1.0000D+00, 6.0000D-01 ) ! Reaction Label 24 RKI( NCELL, 24) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.5000D-12, 2.6000D+02 ) ! Reaction Label 25 RKI( NCELL, 25) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 3.2000D-30, 0.0000D+00, -4.5000D+00, & & 3.0000D-11, 0.0000D+00, 0.0000D+00, & & 1.2400D+00, 4.1000D-01 ) ! Reaction Label 26 RKI( NCELL, 26) = 2.0000D-11 * CFACT ! Reaction Label 27 RKI( NCELL, 27) = CFACT * FALLOFF_T08( INV_TEMP, CAIR, & & 2.4000D-14, 4.6000D+02, 2.7000D-17, & & 2.1990D+03, 6.5000D-34, 1.3350D+03 ) ! Reaction Label 29 RKI( NCELL, 29) = CFACT * FALLOFF_T09( INV_TEMP, CAIR, & & 1.4400D-13, 0.0000D+00, 3.4300D-33, & & 0.0000D+00 ) ! Reaction Label 30 RKI( NCELL, 30) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.7000D-12, -9.4000D+02 ) ! Reaction Label 31 RKI( NCELL, 31) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.6000D-12, 2.7000D+02 ) ! Reaction Label 32 RKI( NCELL, 32) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 2.0000D-31, 0.0000D+00, -3.4000D+00, & & 2.9000D-12, 0.0000D+00, -1.1000D+00, & & 1.0000D+00, 6.0000D-01 ) ! Reaction Label 33 RKI( NCELL, 33) = SFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 3.7200D-05, -1.0650D+04, -2.4000D+00, & & 5.4200D+15, -1.1170D+04, -2.3000D+00, & & 1.0000D+00, 6.0000D-01 ) ! Reaction Label 35 RKI( NCELL, 35) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.3000D-12, 3.8000D+02 ) ! Reaction Label 36 RKI( NCELL, 36) = CFACT * ARRHENUIS_T04( INV_TEMP, TEMPOT300, & & 2.0300D-16, 6.9300D+02, 4.5700D+00 ) ! Reaction Label 37 RKI( NCELL, 37) = CFACT * FALLOFF_T09( INV_TEMP, CAIR, & & 2.2000D-13, 6.0000D+02, 1.9000D-33, & & 9.8000D+02 ) ! Reaction Label 38 RKI( NCELL, 38) = CFACT_SQU * FALLOFF_T09( INV_TEMP, CAIR, & & 3.0800D-34, 2.8000D+03, 2.6600D-54, & & 3.1800D+03 ) ! Reaction Label 39 RKI( NCELL, 39) = 4.0000D-12 * CFACT ! Reaction Label 40 RKI( NCELL, 40) = CFACT * ARRHENUIS_T03( INV_TEMP, 8.5000D-13, -2.4500D+03 ) ! Reaction Label 42 RKI( NCELL, 42) = 1.8000D-12 * CFACT ! Reaction Label 43 RKI( NCELL, 43) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.8000D-11, 2.5000D+02 ) ! Reaction Label 44 RKI( NCELL, 44) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 3.3000D-31, 0.0000D+00, -4.3000D+00, & & 1.6000D-12, 0.0000D+00, 0.0000D+00, & & 1.0000D+00, 6.0000D-01 ) ! Reaction Label 45 RKI( NCELL, 45) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.7000D-12, -2.1000D+03 ) ! Reaction Label BR01 RKI( NCELL, 46) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.3000D-12, 3.6000D+02 ) ! Reaction Label BR02 RKI( NCELL, 47) = CFACT * ARRHENUIS_T04( INV_TEMP, TEMPOT300, & & 3.4600D-13, 7.8000D+02, 3.6000D-01 ) ! Reaction Label BR03 RKI( NCELL, 48) = CFACT * ARRHENUIS_T04( INV_TEMP, TEMPOT300, & & 3.3400D-14, 7.8000D+02, -3.5300D+00 ) ! Reaction Label BR04 RKI( NCELL, 49) = 1.3000D-12 * CFACT ! Reaction Label BR05 RKI( NCELL, 50) = CFACT * ARRHENUIS_T04( INV_TEMP, TEMPOT300, & & 6.3900D-14, 3.6500D+02, -1.8000D+00 ) ! Reaction Label BR06 RKI( NCELL, 51) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.4000D-13, -5.2000D+02 ) ! Reaction Label BR07 RKI( NCELL, 52) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.6000D-12, 3.8000D+02 ) ! Reaction Label BR08 RKI( NCELL, 53) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.8000D-13, 9.0000D+02 ) ! Reaction Label BR09 RKI( NCELL, 54) = 2.3000D-12 * CFACT ! Reaction Label BR10 RKI( NCELL, 55) = 2.0000D-13 * CFACT ! Reaction Label BR11 RKI( NCELL, 56) = 3.5000D-14 * CFACT ! Reaction Label BR12 RKI( NCELL, 57) = RKI( NCELL, 52 ) ! Reaction Label BR13 RKI( NCELL, 58) = RKI( NCELL, 53 ) ! Reaction Label BR14 RKI( NCELL, 59) = RKI( NCELL, 54 ) ! Reaction Label BR15 RKI( NCELL, 60) = RKI( NCELL, 55 ) ! Reaction Label BR16 RKI( NCELL, 61) = RKI( NCELL, 56 ) ! Reaction Label BR17 RKI( NCELL, 62) = RKI( NCELL, 56 ) ! Reaction Label BR18 RKI( NCELL, 63) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 2.7000D-28, 0.0000D+00, -7.1000D+00, & & 1.2100D-11, 0.0000D+00, -9.0000D-01, & & 1.4100D+00, 3.0000D-01 ) ! Reaction Label BR19 RKI( NCELL, 64) = SFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 4.9000D-03, -1.2100D+04, 0.0000D+00, & & 4.0000D+16, -1.3600D+04, 0.0000D+00, & & 1.4100D+00, 3.0000D-01 ) ! Reaction Label BR21 RKI( NCELL, 66) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.5000D-12, 2.9000D+02 ) ! Reaction Label BR22 RKI( NCELL, 67) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.2000D-13, 9.8000D+02 ) ! Reaction Label BR23 RKI( NCELL, 68) = RKI( NCELL, 54 ) ! Reaction Label BR24 RKI( NCELL, 69) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.0000D-12, 5.0000D+02 ) ! Reaction Label BR25 RKI( NCELL, 70) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.4000D-13, 1.0700D+03 ) ! Reaction Label BR26 RKI( NCELL, 71) = RKI( NCELL, 70 ) ! Reaction Label BR27 RKI( NCELL, 72) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.9000D-12, 5.0000D+02 ) ! Reaction Label BR28 RKI( NCELL, 73) = CFACT * ARRHENUIS_T04( INV_TEMP, TEMPOT300, & & 1.2100D-11, 0.0000D+00, -1.0700D+00 ) ! Reaction Label BR29 RKI( NCELL, 74) = SFACT * ARRHENUIS_T03( INV_TEMP, 8.3000D+16, -1.3940D+04 ) ! Reaction Label BR31 RKI( NCELL, 76) = CFACT * ARRHENUIS_T03( INV_TEMP, 6.7000D-12, 3.4000D+02 ) ! Reaction Label BR32 RKI( NCELL, 77) = RKI( NCELL, 67 ) ! Reaction Label BR33 RKI( NCELL, 78) = RKI( NCELL, 54 ) ! Reaction Label BR34 RKI( NCELL, 79) = RKI( NCELL, 69 ) ! Reaction Label BR35 RKI( NCELL, 80) = RKI( NCELL, 70 ) ! Reaction Label BR36 RKI( NCELL, 81) = RKI( NCELL, 70 ) ! Reaction Label BR37 RKI( NCELL, 82) = RKI( NCELL, 72 ) ! Reaction Label BR38 RKI( NCELL, 83) = RKI( NCELL, 72 ) ! Reaction Label BR39 RKI( NCELL, 84) = 1.3700D-11 * CFACT ! Reaction Label BR40 RKI( NCELL, 85) = SFACT * ARRHENUIS_T03( INV_TEMP, 7.9000D+16, -1.4000D+04 ) ! Reaction Label BR42 RKI( NCELL, 87) = RKI( NCELL, 76 ) ! Reaction Label BR43 RKI( NCELL, 88) = RKI( NCELL, 67 ) ! Reaction Label BR44 RKI( NCELL, 89) = RKI( NCELL, 54 ) ! Reaction Label BR45 RKI( NCELL, 90) = RKI( NCELL, 69 ) ! Reaction Label BR46 RKI( NCELL, 91) = RKI( NCELL, 70 ) ! Reaction Label BR47 RKI( NCELL, 92) = RKI( NCELL, 70 ) ! Reaction Label BR48 RKI( NCELL, 93) = RKI( NCELL, 72 ) ! Reaction Label BR49 RKI( NCELL, 94) = RKI( NCELL, 72 ) ! Reaction Label BR50 RKI( NCELL, 95) = RKI( NCELL, 72 ) ! Reaction Label BR51 RKI( NCELL, 96) = RKI( NCELL, 73 ) ! Reaction Label BR52 RKI( NCELL, 97) = SFACT * ARRHENUIS_T03( INV_TEMP, 1.6000D+16, -1.3486D+04 ) ! Reaction Label BR54 RKI( NCELL, 99) = RKI( NCELL, 76 ) ! Reaction Label BR55 RKI( NCELL, 100) = RKI( NCELL, 67 ) ! Reaction Label BR56 RKI( NCELL, 101) = RKI( NCELL, 54 ) ! Reaction Label BR57 RKI( NCELL, 102) = RKI( NCELL, 69 ) ! Reaction Label BR58 RKI( NCELL, 103) = RKI( NCELL, 70 ) ! Reaction Label BR59 RKI( NCELL, 104) = RKI( NCELL, 70 ) ! Reaction Label BR60 RKI( NCELL, 105) = RKI( NCELL, 72 ) ! Reaction Label BR61 RKI( NCELL, 106) = RKI( NCELL, 72 ) ! Reaction Label BR62 RKI( NCELL, 107) = RKI( NCELL, 72 ) ! Reaction Label BR63 RKI( NCELL, 108) = RKI( NCELL, 72 ) ! Reaction Label BR64 RKI( NCELL, 109) = 2.4000D-11 * CFACT ! Reaction Label BR65 RKI( NCELL, 110) = SFACT * ARRHENUIS_T03( INV_TEMP, 7.5000D+14, -8.1520D+03 ) ! Reaction Label BR66 RKI( NCELL, 111) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.3000D-11, 1.5000D+02 ) ! Reaction Label BR67 RKI( NCELL, 112) = RKI( NCELL, 53 ) ! Reaction Label BR68 RKI( NCELL, 113) = 1.0000D-03 * SFACT ! Reaction Label R019 RKI( NCELL, 114) = RKI( NCELL, 52 ) ! Reaction Label R020 RKI( NCELL, 115) = RKI( NCELL, 53 ) ! Reaction Label R021 RKI( NCELL, 116) = RKI( NCELL, 54 ) ! Reaction Label R022 RKI( NCELL, 117) = RKI( NCELL, 55 ) ! Reaction Label R023 RKI( NCELL, 118) = RKI( NCELL, 56 ) ! Reaction Label R024 RKI( NCELL, 119) = RKI( NCELL, 56 ) ! Reaction Label R025 RKI( NCELL, 120) = RKI( NCELL, 70 ) ! Reaction Label R026 RKI( NCELL, 121) = RKI( NCELL, 70 ) ! Reaction Label R027 RKI( NCELL, 122) = RKI( NCELL, 70 ) ! Reaction Label R028 RKI( NCELL, 123) = RKI( NCELL, 70 ) ! Reaction Label R029 RKI( NCELL, 124) = RKI( NCELL, 52 ) ! Reaction Label R030 RKI( NCELL, 125) = RKI( NCELL, 53 ) ! Reaction Label R031 RKI( NCELL, 126) = RKI( NCELL, 54 ) ! Reaction Label R032 RKI( NCELL, 127) = RKI( NCELL, 55 ) ! Reaction Label R033 RKI( NCELL, 128) = RKI( NCELL, 56 ) ! Reaction Label R034 RKI( NCELL, 129) = RKI( NCELL, 56 ) ! Reaction Label R035 RKI( NCELL, 130) = RKI( NCELL, 70 ) ! Reaction Label R036 RKI( NCELL, 131) = RKI( NCELL, 70 ) ! Reaction Label R037 RKI( NCELL, 132) = RKI( NCELL, 70 ) ! Reaction Label R038 RKI( NCELL, 133) = RKI( NCELL, 70 ) ! Reaction Label R039 RKI( NCELL, 134) = RKI( NCELL, 52 ) ! Reaction Label R040 RKI( NCELL, 135) = RKI( NCELL, 53 ) ! Reaction Label R041 RKI( NCELL, 136) = RKI( NCELL, 54 ) ! Reaction Label R042 RKI( NCELL, 137) = RKI( NCELL, 55 ) ! Reaction Label R043 RKI( NCELL, 138) = RKI( NCELL, 56 ) ! Reaction Label R044 RKI( NCELL, 139) = RKI( NCELL, 56 ) ! Reaction Label R045 RKI( NCELL, 140) = RKI( NCELL, 70 ) ! Reaction Label R046 RKI( NCELL, 141) = RKI( NCELL, 70 ) ! Reaction Label R047 RKI( NCELL, 142) = RKI( NCELL, 70 ) ! Reaction Label R048 RKI( NCELL, 143) = RKI( NCELL, 70 ) ! Reaction Label R049 RKI( NCELL, 144) = RKI( NCELL, 52 ) ! Reaction Label R050 RKI( NCELL, 145) = RKI( NCELL, 53 ) ! Reaction Label R051 RKI( NCELL, 146) = RKI( NCELL, 54 ) ! Reaction Label R052 RKI( NCELL, 147) = RKI( NCELL, 55 ) ! Reaction Label R053 RKI( NCELL, 148) = RKI( NCELL, 56 ) ! Reaction Label R054 RKI( NCELL, 149) = RKI( NCELL, 56 ) ! Reaction Label R055 RKI( NCELL, 150) = RKI( NCELL, 70 ) ! Reaction Label R056 RKI( NCELL, 151) = RKI( NCELL, 70 ) ! Reaction Label R057 RKI( NCELL, 152) = RKI( NCELL, 70 ) ! Reaction Label R058 RKI( NCELL, 153) = RKI( NCELL, 70 ) ! Reaction Label R059 RKI( NCELL, 154) = RKI( NCELL, 52 ) ! Reaction Label R060 RKI( NCELL, 155) = RKI( NCELL, 53 ) ! Reaction Label R061 RKI( NCELL, 156) = RKI( NCELL, 54 ) ! Reaction Label R062 RKI( NCELL, 157) = RKI( NCELL, 55 ) ! Reaction Label R063 RKI( NCELL, 158) = RKI( NCELL, 56 ) ! Reaction Label R064 RKI( NCELL, 159) = RKI( NCELL, 56 ) ! Reaction Label R065 RKI( NCELL, 160) = RKI( NCELL, 70 ) ! Reaction Label R066 RKI( NCELL, 161) = RKI( NCELL, 70 ) ! Reaction Label R067 RKI( NCELL, 162) = RKI( NCELL, 70 ) ! Reaction Label R068 RKI( NCELL, 163) = RKI( NCELL, 70 ) ! Reaction Label R069 RKI( NCELL, 164) = RKI( NCELL, 52 ) ! Reaction Label R070 RKI( NCELL, 165) = RKI( NCELL, 53 ) ! Reaction Label R071 RKI( NCELL, 166) = RKI( NCELL, 54 ) ! Reaction Label R072 RKI( NCELL, 167) = RKI( NCELL, 55 ) ! Reaction Label R073 RKI( NCELL, 168) = RKI( NCELL, 56 ) ! Reaction Label R074 RKI( NCELL, 169) = RKI( NCELL, 56 ) ! Reaction Label R075 RKI( NCELL, 170) = RKI( NCELL, 70 ) ! Reaction Label R076 RKI( NCELL, 171) = RKI( NCELL, 70 ) ! Reaction Label R077 RKI( NCELL, 172) = RKI( NCELL, 70 ) ! Reaction Label R078 RKI( NCELL, 173) = RKI( NCELL, 70 ) ! Reaction Label R079 RKI( NCELL, 174) = RKI( NCELL, 52 ) ! Reaction Label R080 RKI( NCELL, 175) = RKI( NCELL, 53 ) ! Reaction Label R081 RKI( NCELL, 176) = RKI( NCELL, 54 ) ! Reaction Label R082 RKI( NCELL, 177) = RKI( NCELL, 55 ) ! Reaction Label R083 RKI( NCELL, 178) = RKI( NCELL, 56 ) ! Reaction Label R084 RKI( NCELL, 179) = RKI( NCELL, 56 ) ! Reaction Label R085 RKI( NCELL, 180) = RKI( NCELL, 70 ) ! Reaction Label R086 RKI( NCELL, 181) = RKI( NCELL, 70 ) ! Reaction Label R087 RKI( NCELL, 182) = RKI( NCELL, 70 ) ! Reaction Label R088 RKI( NCELL, 183) = RKI( NCELL, 70 ) ! Reaction Label R089 RKI( NCELL, 184) = RKI( NCELL, 52 ) ! Reaction Label R090 RKI( NCELL, 185) = RKI( NCELL, 53 ) ! Reaction Label R091 RKI( NCELL, 186) = RKI( NCELL, 54 ) ! Reaction Label R092 RKI( NCELL, 187) = RKI( NCELL, 55 ) ! Reaction Label R093 RKI( NCELL, 188) = RKI( NCELL, 56 ) ! Reaction Label R094 RKI( NCELL, 189) = RKI( NCELL, 56 ) ! Reaction Label R095 RKI( NCELL, 190) = RKI( NCELL, 70 ) ! Reaction Label R096 RKI( NCELL, 191) = RKI( NCELL, 70 ) ! Reaction Label R097 RKI( NCELL, 192) = RKI( NCELL, 70 ) ! Reaction Label R098 RKI( NCELL, 193) = RKI( NCELL, 70 ) ! Reaction Label R099 RKI( NCELL, 194) = RKI( NCELL, 52 ) ! Reaction Label R100 RKI( NCELL, 195) = RKI( NCELL, 53 ) ! Reaction Label R101 RKI( NCELL, 196) = RKI( NCELL, 54 ) ! Reaction Label R102 RKI( NCELL, 197) = RKI( NCELL, 55 ) ! Reaction Label R103 RKI( NCELL, 198) = RKI( NCELL, 56 ) ! Reaction Label R104 RKI( NCELL, 199) = RKI( NCELL, 56 ) ! Reaction Label R105 RKI( NCELL, 200) = RKI( NCELL, 70 ) ! Reaction Label R106 RKI( NCELL, 201) = RKI( NCELL, 70 ) ! Reaction Label R107 RKI( NCELL, 202) = RKI( NCELL, 70 ) ! Reaction Label R108 RKI( NCELL, 203) = RKI( NCELL, 70 ) ! Reaction Label BP03 RKI( NCELL, 206) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.4000D-12, 1.3500D+02 ) ! Reaction Label BP07 RKI( NCELL, 207) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.0000D-12, -2.4310D+03 ) ! Reaction Label BP08 RKI( NCELL, 208) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.4000D-12, 3.6500D+02 ) ! Reaction Label BP10 RKI( NCELL, 210) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.4000D-12, -1.8600D+03 ) ! Reaction Label BP11 RKI( NCELL, 211) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.1000D-12, 4.0500D+02 ) ! Reaction Label BP13 RKI( NCELL, 213) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.4000D-12, -1.6010D+03 ) ! Reaction Label BP14 RKI( NCELL, 214) = CFACT * ARRHENUIS_T04( INV_TEMP, TEMPOT300, & & 4.5600D-14, 4.2900D+02, 3.6500D+00 ) ! Reaction Label BP16 RKI( NCELL, 216) = CFACT * ARRHENUIS_T04( INV_TEMP, TEMPOT300, & & 1.3000D-12, -2.5000D+01, 2.0000D+00 ) ! Reaction Label BP18 RKI( NCELL, 218) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.8500D-12, -3.4500D+02 ) ! Reaction Label BP19 RKI( NCELL, 219) = 4.5000D-13 * CFACT ! Reaction Label BP20 RKI( NCELL, 220) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.2000D-14, 8.5500D+02 ) ! Reaction Label BP21 RKI( NCELL, 221) = 1.2000D-12 * CFACT ! Reaction Label BP22 RKI( NCELL, 222) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.8000D-12, 2.0000D+02 ) ! Reaction Label BP24 RKI( NCELL, 224) = 2.5000D-11 * CFACT ! Reaction Label BP26 RKI( NCELL, 226) = 5.6000D-11 * CFACT ! Reaction Label BP28 RKI( NCELL, 228) = 1.4100D-10 * CFACT ! Reaction Label BP32 RKI( NCELL, 232) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.1000D-12, 3.4220D+02 ) ! Reaction Label BP33 RKI( NCELL, 233) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.8000D-12, -2.3900D+03 ) ! Reaction Label BP35 RKI( NCELL, 235) = 1.5000D-11 * CFACT ! Reaction Label BP36 RKI( NCELL, 236) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.4000D-12, -1.8950D+03 ) ! Reaction Label BP38 RKI( NCELL, 238) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.7000D-12, 9.5000D+02 ) ! Reaction Label BP39 RKI( NCELL, 239) = 1.4000D-11 * CFACT ! Reaction Label BP40 RKI( NCELL, 240) = 3.5000D-12 * CFACT ! Reaction Label BP43 RKI( NCELL, 243) = 1.2000D-11 * CFACT ! Reaction Label BP45 RKI( NCELL, 245) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.3400D-12, -1.8600D+03 ) ! Reaction Label BP46 RKI( NCELL, 246) = 7.4000D-11 * CFACT ! Reaction Label BP47 RKI( NCELL, 247) = 9.6600D-18 * CFACT ! Reaction Label BP49 RKI( NCELL, 249) = 7.4000D-11 * CFACT ! Reaction Label BP50 RKI( NCELL, 250) = 9.6600D-18 * CFACT ! Reaction Label BP52 RKI( NCELL, 252) = 9.3500D-11 * CFACT ! Reaction Label BP53 RKI( NCELL, 253) = 1.4300D-17 * CFACT ! Reaction Label BP54 RKI( NCELL, 254) = CFACT * ARRHENUIS_T03( INV_TEMP, 8.0000D-12, 3.8000D+02 ) ! Reaction Label BP55 RKI( NCELL, 255) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.4000D-15, -2.1000D+03 ) ! Reaction Label BP56 RKI( NCELL, 256) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.5000D-12, -1.8150D+03 ) ! Reaction Label BP57 RKI( NCELL, 257) = 6.3400D-12 * CFACT ! Reaction Label BP59 RKI( NCELL, 259) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.6000D-12, 6.1000D+02 ) ! Reaction Label BP60 RKI( NCELL, 260) = CFACT * ARRHENUIS_T03( INV_TEMP, 8.5000D-16, -1.5200D+03 ) ! Reaction Label BP62 RKI( NCELL, 261) = 4.3200D-12 * CFACT ! Reaction Label BP64 RKI( NCELL, 263) = 6.1900D-11 * CFACT ! Reaction Label BP65 RKI( NCELL, 264) = 4.1800D-18 * CFACT ! Reaction Label BP66 RKI( NCELL, 265) = 1.0000D-13 * CFACT ! Reaction Label BP68 RKI( NCELL, 267) = 1.5500D-11 * CFACT ! Reaction Label BP70 RKI( NCELL, 269) = 7.2000D-12 * CFACT ! Reaction Label BP72 RKI( NCELL, 271) = RKI( NCELL, 208 ) ! Reaction Label BP74 RKI( NCELL, 273) = RKI( NCELL, 210 ) ! Reaction Label BP75 RKI( NCELL, 274) = 1.9900D-11 * CFACT ! Reaction Label BP76 RKI( NCELL, 275) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.4000D-15, -2.5280D+03 ) ! Reaction Label BP77 RKI( NCELL, 276) = 1.1800D-15 * CFACT ! Reaction Label BP78 RKI( NCELL, 277) = 2.3700D-12 * CFACT ! Reaction Label BP80 RKI( NCELL, 279) = 5.2800D-12 * CFACT ! Reaction Label BP82 RKI( NCELL, 281) = 6.4200D-12 * CFACT ! Reaction Label BP84 RKI( NCELL, 283) = RKI( NCELL, 76 ) ! Reaction Label BP85 RKI( NCELL, 284) = RKI( NCELL, 73 ) ! Reaction Label BP86 RKI( NCELL, 285) = RKI( NCELL, 67 ) ! Reaction Label P001 RKI( NCELL, 286) = RKI( NCELL, 52 ) ! Reaction Label P002 RKI( NCELL, 287) = RKI( NCELL, 53 ) ! Reaction Label P003 RKI( NCELL, 288) = RKI( NCELL, 54 ) ! Reaction Label P004 RKI( NCELL, 289) = RKI( NCELL, 55 ) ! Reaction Label P005 RKI( NCELL, 290) = RKI( NCELL, 56 ) ! Reaction Label P006 RKI( NCELL, 291) = RKI( NCELL, 56 ) ! Reaction Label P007 RKI( NCELL, 292) = RKI( NCELL, 70 ) ! Reaction Label P008 RKI( NCELL, 293) = RKI( NCELL, 70 ) ! Reaction Label P009 RKI( NCELL, 294) = RKI( NCELL, 70 ) ! Reaction Label P010 RKI( NCELL, 295) = RKI( NCELL, 70 ) ! Reaction Label P011 RKI( NCELL, 296) = RKI( NCELL, 52 ) ! Reaction Label P012 RKI( NCELL, 297) = RKI( NCELL, 53 ) ! Reaction Label P013 RKI( NCELL, 298) = RKI( NCELL, 54 ) ! Reaction Label P014 RKI( NCELL, 299) = RKI( NCELL, 55 ) ! Reaction Label P015 RKI( NCELL, 300) = RKI( NCELL, 56 ) ! Reaction Label P016 RKI( NCELL, 301) = RKI( NCELL, 56 ) ! Reaction Label P017 RKI( NCELL, 302) = RKI( NCELL, 70 ) ! Reaction Label P018 RKI( NCELL, 303) = RKI( NCELL, 70 ) ! Reaction Label P019 RKI( NCELL, 304) = RKI( NCELL, 70 ) ! Reaction Label P020 RKI( NCELL, 305) = RKI( NCELL, 70 ) ! Reaction Label P021 RKI( NCELL, 306) = RKI( NCELL, 52 ) ! Reaction Label P022 RKI( NCELL, 307) = RKI( NCELL, 53 ) ! Reaction Label P023 RKI( NCELL, 308) = RKI( NCELL, 54 ) ! Reaction Label P024 RKI( NCELL, 309) = RKI( NCELL, 55 ) ! Reaction Label P025 RKI( NCELL, 310) = RKI( NCELL, 56 ) ! Reaction Label P026 RKI( NCELL, 311) = RKI( NCELL, 56 ) ! Reaction Label P027 RKI( NCELL, 312) = RKI( NCELL, 70 ) ! Reaction Label P028 RKI( NCELL, 313) = RKI( NCELL, 70 ) ! Reaction Label P029 RKI( NCELL, 314) = RKI( NCELL, 70 ) ! Reaction Label P030 RKI( NCELL, 315) = RKI( NCELL, 70 ) ! Reaction Label P031 RKI( NCELL, 316) = RKI( NCELL, 52 ) ! Reaction Label P032 RKI( NCELL, 317) = RKI( NCELL, 53 ) ! Reaction Label P033 RKI( NCELL, 318) = RKI( NCELL, 54 ) ! Reaction Label P034 RKI( NCELL, 319) = RKI( NCELL, 55 ) ! Reaction Label P035 RKI( NCELL, 320) = RKI( NCELL, 56 ) ! Reaction Label P036 RKI( NCELL, 321) = RKI( NCELL, 56 ) ! Reaction Label P037 RKI( NCELL, 322) = RKI( NCELL, 70 ) ! Reaction Label P038 RKI( NCELL, 323) = RKI( NCELL, 70 ) ! Reaction Label P039 RKI( NCELL, 324) = RKI( NCELL, 70 ) ! Reaction Label P040 RKI( NCELL, 325) = RKI( NCELL, 70 ) ! Reaction Label P041 RKI( NCELL, 326) = RKI( NCELL, 52 ) ! Reaction Label P042 RKI( NCELL, 327) = RKI( NCELL, 53 ) ! Reaction Label P043 RKI( NCELL, 328) = RKI( NCELL, 54 ) ! Reaction Label P044 RKI( NCELL, 329) = RKI( NCELL, 55 ) ! Reaction Label P045 RKI( NCELL, 330) = RKI( NCELL, 56 ) ! Reaction Label P046 RKI( NCELL, 331) = RKI( NCELL, 56 ) ! Reaction Label P047 RKI( NCELL, 332) = RKI( NCELL, 70 ) ! Reaction Label P048 RKI( NCELL, 333) = RKI( NCELL, 70 ) ! Reaction Label P049 RKI( NCELL, 334) = RKI( NCELL, 70 ) ! Reaction Label P050 RKI( NCELL, 335) = RKI( NCELL, 70 ) ! Reaction Label P051 RKI( NCELL, 336) = RKI( NCELL, 52 ) ! Reaction Label P052 RKI( NCELL, 337) = RKI( NCELL, 53 ) ! Reaction Label P053 RKI( NCELL, 338) = RKI( NCELL, 54 ) ! Reaction Label P054 RKI( NCELL, 339) = RKI( NCELL, 55 ) ! Reaction Label P055 RKI( NCELL, 340) = RKI( NCELL, 56 ) ! Reaction Label P056 RKI( NCELL, 341) = RKI( NCELL, 56 ) ! Reaction Label P057 RKI( NCELL, 342) = RKI( NCELL, 70 ) ! Reaction Label P058 RKI( NCELL, 343) = RKI( NCELL, 70 ) ! Reaction Label P059 RKI( NCELL, 344) = RKI( NCELL, 70 ) ! Reaction Label P060 RKI( NCELL, 345) = RKI( NCELL, 70 ) ! Reaction Label P061 RKI( NCELL, 346) = RKI( NCELL, 52 ) ! Reaction Label P062 RKI( NCELL, 347) = RKI( NCELL, 53 ) ! Reaction Label P063 RKI( NCELL, 348) = RKI( NCELL, 54 ) ! Reaction Label P064 RKI( NCELL, 349) = RKI( NCELL, 55 ) ! Reaction Label P065 RKI( NCELL, 350) = RKI( NCELL, 56 ) ! Reaction Label P066 RKI( NCELL, 351) = RKI( NCELL, 56 ) ! Reaction Label P067 RKI( NCELL, 352) = RKI( NCELL, 70 ) ! Reaction Label P068 RKI( NCELL, 353) = RKI( NCELL, 70 ) ! Reaction Label P069 RKI( NCELL, 354) = RKI( NCELL, 70 ) ! Reaction Label P070 RKI( NCELL, 355) = RKI( NCELL, 70 ) ! Reaction Label P071 RKI( NCELL, 356) = RKI( NCELL, 52 ) ! Reaction Label P072 RKI( NCELL, 357) = RKI( NCELL, 53 ) ! Reaction Label P073 RKI( NCELL, 358) = RKI( NCELL, 54 ) ! Reaction Label P074 RKI( NCELL, 359) = RKI( NCELL, 55 ) ! Reaction Label P075 RKI( NCELL, 360) = RKI( NCELL, 56 ) ! Reaction Label P076 RKI( NCELL, 361) = RKI( NCELL, 56 ) ! Reaction Label P077 RKI( NCELL, 362) = RKI( NCELL, 70 ) ! Reaction Label P078 RKI( NCELL, 363) = RKI( NCELL, 70 ) ! Reaction Label P079 RKI( NCELL, 364) = RKI( NCELL, 70 ) ! Reaction Label P080 RKI( NCELL, 365) = RKI( NCELL, 70 ) ! Reaction Label P081 RKI( NCELL, 366) = RKI( NCELL, 52 ) ! Reaction Label P082 RKI( NCELL, 367) = RKI( NCELL, 53 ) ! Reaction Label P083 RKI( NCELL, 368) = RKI( NCELL, 54 ) ! Reaction Label P084 RKI( NCELL, 369) = RKI( NCELL, 55 ) ! Reaction Label P085 RKI( NCELL, 370) = RKI( NCELL, 56 ) ! Reaction Label P086 RKI( NCELL, 371) = RKI( NCELL, 56 ) ! Reaction Label P087 RKI( NCELL, 372) = RKI( NCELL, 70 ) ! Reaction Label P088 RKI( NCELL, 373) = RKI( NCELL, 70 ) ! Reaction Label P089 RKI( NCELL, 374) = RKI( NCELL, 70 ) ! Reaction Label P090 RKI( NCELL, 375) = RKI( NCELL, 70 ) ! Reaction Label P091 RKI( NCELL, 376) = RKI( NCELL, 52 ) ! Reaction Label P092 RKI( NCELL, 377) = RKI( NCELL, 53 ) ! Reaction Label P093 RKI( NCELL, 378) = RKI( NCELL, 54 ) ! Reaction Label P094 RKI( NCELL, 379) = RKI( NCELL, 55 ) ! Reaction Label P095 RKI( NCELL, 380) = RKI( NCELL, 56 ) ! Reaction Label P096 RKI( NCELL, 381) = RKI( NCELL, 56 ) ! Reaction Label P097 RKI( NCELL, 382) = RKI( NCELL, 70 ) ! Reaction Label P098 RKI( NCELL, 383) = RKI( NCELL, 70 ) ! Reaction Label P099 RKI( NCELL, 384) = RKI( NCELL, 70 ) ! Reaction Label P100 RKI( NCELL, 385) = RKI( NCELL, 70 ) ! Reaction Label P101 RKI( NCELL, 386) = RKI( NCELL, 52 ) ! Reaction Label P102 RKI( NCELL, 387) = RKI( NCELL, 53 ) ! Reaction Label P103 RKI( NCELL, 388) = RKI( NCELL, 54 ) ! Reaction Label P104 RKI( NCELL, 389) = RKI( NCELL, 55 ) ! Reaction Label P105 RKI( NCELL, 390) = RKI( NCELL, 56 ) ! Reaction Label P106 RKI( NCELL, 391) = RKI( NCELL, 56 ) ! Reaction Label P107 RKI( NCELL, 392) = RKI( NCELL, 70 ) ! Reaction Label P108 RKI( NCELL, 393) = RKI( NCELL, 70 ) ! Reaction Label P109 RKI( NCELL, 394) = RKI( NCELL, 70 ) ! Reaction Label P110 RKI( NCELL, 395) = RKI( NCELL, 70 ) ! Reaction Label P111 RKI( NCELL, 396) = RKI( NCELL, 52 ) ! Reaction Label P112 RKI( NCELL, 397) = RKI( NCELL, 53 ) ! Reaction Label P113 RKI( NCELL, 398) = RKI( NCELL, 54 ) ! Reaction Label P114 RKI( NCELL, 399) = RKI( NCELL, 55 ) ! Reaction Label P115 RKI( NCELL, 400) = RKI( NCELL, 56 ) ! Reaction Label P116 RKI( NCELL, 401) = RKI( NCELL, 56 ) ! Reaction Label P117 RKI( NCELL, 402) = RKI( NCELL, 70 ) ! Reaction Label P118 RKI( NCELL, 403) = RKI( NCELL, 70 ) ! Reaction Label P119 RKI( NCELL, 404) = RKI( NCELL, 70 ) ! Reaction Label P120 RKI( NCELL, 405) = RKI( NCELL, 70 ) ! Reaction Label P121 RKI( NCELL, 406) = RKI( NCELL, 52 ) ! Reaction Label P122 RKI( NCELL, 407) = RKI( NCELL, 53 ) ! Reaction Label P123 RKI( NCELL, 408) = RKI( NCELL, 54 ) ! Reaction Label P124 RKI( NCELL, 409) = RKI( NCELL, 55 ) ! Reaction Label P125 RKI( NCELL, 410) = RKI( NCELL, 56 ) ! Reaction Label P126 RKI( NCELL, 411) = RKI( NCELL, 56 ) ! Reaction Label P127 RKI( NCELL, 412) = RKI( NCELL, 70 ) ! Reaction Label P128 RKI( NCELL, 413) = RKI( NCELL, 70 ) ! Reaction Label P129 RKI( NCELL, 414) = RKI( NCELL, 70 ) ! Reaction Label P130 RKI( NCELL, 415) = RKI( NCELL, 70 ) ! Reaction Label P131 RKI( NCELL, 416) = RKI( NCELL, 52 ) ! Reaction Label P132 RKI( NCELL, 417) = RKI( NCELL, 53 ) ! Reaction Label P133 RKI( NCELL, 418) = RKI( NCELL, 54 ) ! Reaction Label P134 RKI( NCELL, 419) = RKI( NCELL, 55 ) ! Reaction Label P135 RKI( NCELL, 420) = RKI( NCELL, 56 ) ! Reaction Label P136 RKI( NCELL, 421) = RKI( NCELL, 56 ) ! Reaction Label P137 RKI( NCELL, 422) = RKI( NCELL, 70 ) ! Reaction Label P138 RKI( NCELL, 423) = RKI( NCELL, 70 ) ! Reaction Label P139 RKI( NCELL, 424) = RKI( NCELL, 70 ) ! Reaction Label P140 RKI( NCELL, 425) = RKI( NCELL, 70 ) ! Reaction Label P141 RKI( NCELL, 426) = RKI( NCELL, 52 ) ! Reaction Label P142 RKI( NCELL, 427) = RKI( NCELL, 53 ) ! Reaction Label P143 RKI( NCELL, 428) = RKI( NCELL, 54 ) ! Reaction Label P144 RKI( NCELL, 429) = RKI( NCELL, 55 ) ! Reaction Label P145 RKI( NCELL, 430) = RKI( NCELL, 56 ) ! Reaction Label P146 RKI( NCELL, 431) = RKI( NCELL, 56 ) ! Reaction Label P147 RKI( NCELL, 432) = RKI( NCELL, 70 ) ! Reaction Label P148 RKI( NCELL, 433) = RKI( NCELL, 70 ) ! Reaction Label P149 RKI( NCELL, 434) = RKI( NCELL, 70 ) ! Reaction Label P150 RKI( NCELL, 435) = RKI( NCELL, 70 ) ! Reaction Label P151 RKI( NCELL, 436) = RKI( NCELL, 52 ) ! Reaction Label P152 RKI( NCELL, 437) = RKI( NCELL, 53 ) ! Reaction Label P153 RKI( NCELL, 438) = RKI( NCELL, 54 ) ! Reaction Label P154 RKI( NCELL, 439) = RKI( NCELL, 55 ) ! Reaction Label P155 RKI( NCELL, 440) = RKI( NCELL, 56 ) ! Reaction Label P156 RKI( NCELL, 441) = RKI( NCELL, 56 ) ! Reaction Label P157 RKI( NCELL, 442) = RKI( NCELL, 70 ) ! Reaction Label P158 RKI( NCELL, 443) = RKI( NCELL, 70 ) ! Reaction Label P159 RKI( NCELL, 444) = RKI( NCELL, 70 ) ! Reaction Label P160 RKI( NCELL, 445) = RKI( NCELL, 70 ) ! Reaction Label P161 RKI( NCELL, 446) = RKI( NCELL, 52 ) ! Reaction Label P162 RKI( NCELL, 447) = RKI( NCELL, 53 ) ! Reaction Label P163 RKI( NCELL, 448) = RKI( NCELL, 54 ) ! Reaction Label P164 RKI( NCELL, 449) = RKI( NCELL, 55 ) ! Reaction Label P165 RKI( NCELL, 450) = RKI( NCELL, 56 ) ! Reaction Label P166 RKI( NCELL, 451) = RKI( NCELL, 56 ) ! Reaction Label P167 RKI( NCELL, 452) = RKI( NCELL, 70 ) ! Reaction Label P168 RKI( NCELL, 453) = RKI( NCELL, 70 ) ! Reaction Label P169 RKI( NCELL, 454) = RKI( NCELL, 70 ) ! Reaction Label P170 RKI( NCELL, 455) = RKI( NCELL, 70 ) ! Reaction Label P171 RKI( NCELL, 456) = RKI( NCELL, 52 ) ! Reaction Label P172 RKI( NCELL, 457) = RKI( NCELL, 53 ) ! Reaction Label P173 RKI( NCELL, 458) = RKI( NCELL, 54 ) ! Reaction Label P174 RKI( NCELL, 459) = RKI( NCELL, 55 ) ! Reaction Label P175 RKI( NCELL, 460) = RKI( NCELL, 56 ) ! Reaction Label P176 RKI( NCELL, 461) = RKI( NCELL, 56 ) ! Reaction Label P177 RKI( NCELL, 462) = RKI( NCELL, 70 ) ! Reaction Label P178 RKI( NCELL, 463) = RKI( NCELL, 70 ) ! Reaction Label P179 RKI( NCELL, 464) = RKI( NCELL, 70 ) ! Reaction Label P180 RKI( NCELL, 465) = RKI( NCELL, 70 ) ! Reaction Label P181 RKI( NCELL, 466) = RKI( NCELL, 52 ) ! Reaction Label P182 RKI( NCELL, 467) = RKI( NCELL, 53 ) ! Reaction Label P183 RKI( NCELL, 468) = RKI( NCELL, 54 ) ! Reaction Label P184 RKI( NCELL, 469) = RKI( NCELL, 55 ) ! Reaction Label P185 RKI( NCELL, 470) = RKI( NCELL, 56 ) ! Reaction Label P186 RKI( NCELL, 471) = RKI( NCELL, 56 ) ! Reaction Label P187 RKI( NCELL, 472) = RKI( NCELL, 70 ) ! Reaction Label P188 RKI( NCELL, 473) = RKI( NCELL, 70 ) ! Reaction Label P189 RKI( NCELL, 474) = RKI( NCELL, 70 ) ! Reaction Label P190 RKI( NCELL, 475) = RKI( NCELL, 70 ) ! Reaction Label P181a RKI( NCELL, 476) = RKI( NCELL, 52 ) ! Reaction Label P182a RKI( NCELL, 477) = RKI( NCELL, 53 ) ! Reaction Label P183a RKI( NCELL, 478) = RKI( NCELL, 54 ) ! Reaction Label P184a RKI( NCELL, 479) = RKI( NCELL, 55 ) ! Reaction Label P185a RKI( NCELL, 480) = RKI( NCELL, 56 ) ! Reaction Label P186a RKI( NCELL, 481) = RKI( NCELL, 56 ) ! Reaction Label P187a RKI( NCELL, 482) = RKI( NCELL, 70 ) ! Reaction Label P188a RKI( NCELL, 483) = RKI( NCELL, 70 ) ! Reaction Label P189a RKI( NCELL, 484) = RKI( NCELL, 70 ) ! Reaction Label P190a RKI( NCELL, 485) = RKI( NCELL, 70 ) ! Reaction Label P191 RKI( NCELL, 486) = RKI( NCELL, 52 ) ! Reaction Label P192 RKI( NCELL, 487) = RKI( NCELL, 53 ) ! Reaction Label P193 RKI( NCELL, 488) = RKI( NCELL, 54 ) ! Reaction Label P194 RKI( NCELL, 489) = RKI( NCELL, 55 ) ! Reaction Label P195 RKI( NCELL, 490) = RKI( NCELL, 56 ) ! Reaction Label P196 RKI( NCELL, 491) = RKI( NCELL, 56 ) ! Reaction Label P197 RKI( NCELL, 492) = RKI( NCELL, 70 ) ! Reaction Label P198 RKI( NCELL, 493) = RKI( NCELL, 70 ) ! Reaction Label P199 RKI( NCELL, 494) = RKI( NCELL, 70 ) ! Reaction Label P200 RKI( NCELL, 495) = RKI( NCELL, 70 ) ! Reaction Label P201 RKI( NCELL, 496) = RKI( NCELL, 52 ) ! Reaction Label P202 RKI( NCELL, 497) = RKI( NCELL, 53 ) ! Reaction Label P203 RKI( NCELL, 498) = RKI( NCELL, 54 ) ! Reaction Label P204 RKI( NCELL, 499) = RKI( NCELL, 55 ) ! Reaction Label P205 RKI( NCELL, 500) = RKI( NCELL, 56 ) ! Reaction Label P206 RKI( NCELL, 501) = RKI( NCELL, 56 ) ! Reaction Label P207 RKI( NCELL, 502) = RKI( NCELL, 70 ) ! Reaction Label P208 RKI( NCELL, 503) = RKI( NCELL, 70 ) ! Reaction Label P209 RKI( NCELL, 504) = RKI( NCELL, 70 ) ! Reaction Label P210 RKI( NCELL, 505) = RKI( NCELL, 70 ) ! Reaction Label P211 RKI( NCELL, 506) = RKI( NCELL, 52 ) ! Reaction Label P212 RKI( NCELL, 507) = RKI( NCELL, 53 ) ! Reaction Label P213 RKI( NCELL, 508) = RKI( NCELL, 54 ) ! Reaction Label P214 RKI( NCELL, 509) = RKI( NCELL, 55 ) ! Reaction Label P215 RKI( NCELL, 510) = RKI( NCELL, 56 ) ! Reaction Label P216 RKI( NCELL, 511) = RKI( NCELL, 56 ) ! Reaction Label P217 RKI( NCELL, 512) = RKI( NCELL, 70 ) ! Reaction Label P218 RKI( NCELL, 513) = RKI( NCELL, 70 ) ! Reaction Label P219 RKI( NCELL, 514) = RKI( NCELL, 70 ) ! Reaction Label P220 RKI( NCELL, 515) = RKI( NCELL, 70 ) ! Reaction Label P221 RKI( NCELL, 516) = RKI( NCELL, 52 ) ! Reaction Label P222 RKI( NCELL, 517) = RKI( NCELL, 53 ) ! Reaction Label P223 RKI( NCELL, 518) = RKI( NCELL, 54 ) ! Reaction Label P224 RKI( NCELL, 519) = RKI( NCELL, 55 ) ! Reaction Label P225 RKI( NCELL, 520) = RKI( NCELL, 56 ) ! Reaction Label P226 RKI( NCELL, 521) = RKI( NCELL, 56 ) ! Reaction Label P227 RKI( NCELL, 522) = RKI( NCELL, 70 ) ! Reaction Label P228 RKI( NCELL, 523) = RKI( NCELL, 70 ) ! Reaction Label P229 RKI( NCELL, 524) = RKI( NCELL, 70 ) ! Reaction Label P230 RKI( NCELL, 525) = RKI( NCELL, 70 ) ! Reaction Label BE01 RKI( NCELL, 526) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.8500D-12, -1.6900D+03 ) ! Reaction Label BE02 RKI( NCELL, 527) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 1.0000D-28, 0.0000D+00, -4.5000D+00, & & 8.8000D-12, 0.0000D+00, -8.5000D-01, & & 1.0000D+00, 6.0000D-01 ) ! Reaction Label BE03 RKI( NCELL, 528) = CFACT * ARRHENUIS_T03( INV_TEMP, 9.1400D-15, -2.5800D+03 ) ! Reaction Label BE04 RKI( NCELL, 529) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.3000D-12, -2.8800D+03 ) ! Reaction Label BE05 RKI( NCELL, 530) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.0700D-11, -8.0000D+02 ) ! Reaction Label BT01 RKI( NCELL, 531) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.8500D-12, 5.0400D+02 ) ! Reaction Label BT02 RKI( NCELL, 532) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.5100D-15, -1.8780D+03 ) ! Reaction Label BT03 RKI( NCELL, 533) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.5900D-13, -1.1560D+03 ) ! Reaction Label BT04 RKI( NCELL, 534) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.0200D-11, -2.8000D+02 ) ! Reaction Label BT05 RKI( NCELL, 535) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.4800D-11, 4.4800D+02 ) ! Reaction Label BT06 RKI( NCELL, 536) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.3400D-14, -2.2830D+03 ) ! Reaction Label BT07 RKI( NCELL, 537) = 1.0000D-13 * CFACT ! Reaction Label BT08 RKI( NCELL, 538) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.2600D-11, -4.0000D+01 ) ! Reaction Label BE06 RKI( NCELL, 539) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.5400D-11, 4.1000D+02 ) ! Reaction Label BE07 RKI( NCELL, 540) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.8600D-15, -1.9120D+03 ) ! Reaction Label BE08 RKI( NCELL, 541) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.0300D-12, -4.4800D+02 ) ! Reaction Label BE09 RKI( NCELL, 542) = 3.5000D-11 * CFACT ! Reaction Label IS88 RKI( NCELL, 543) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.9000D-11, 3.9000D+02 ) ! Reaction Label IS89 RKI( NCELL, 544) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.7500D-12, 2.0000D+02 ) ! Reaction Label IS90 RKI( NCELL, 546) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.7800D-11, -4.0000D+02 ) ! Reaction Label IS91 RKI( NCELL, 547) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.0600D-13, 1.3000D+03 ) ! Reaction Label IS96 RKI( NCELL, 548) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.6000D-12, 3.8000D+02 ) ! Reaction Label IS112 RKI( NCELL, 549) = 2.0000D-13 * CFACT ! Reaction Label IS113 RKI( NCELL, 550) = 3.5000D-14 * CFACT ! Reaction Label IS114 RKI( NCELL, 551) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.4000D-13, 1.0700D+03 ) ! Reaction Label BT09 RKI( NCELL, 552) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.2100D-11, 4.3600D+02 ) ! Reaction Label BT10 RKI( NCELL, 553) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.0000D-16, -5.3000D+02 ) ! Reaction Label BT11 RKI( NCELL, 554) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.1900D-12, 4.9000D+02 ) ! Reaction Label BT12 RKI( NCELL, 555) = 3.2000D-11 * CFACT ! Reaction Label BE10 RKI( NCELL, 556) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 5.5000D-30, 0.0000D+00, 0.0000D+00, & & 8.3000D-13, 0.0000D+00, -2.0000D+00, & & 1.0000D+00, 6.0000D-01 ) ! Reaction Label BE11 RKI( NCELL, 557) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.0000D-14, -4.1000D+03 ) ! Reaction Label BE12 RKI( NCELL, 558) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.3300D-12, -1.9300D+02 ) ! Reaction Label BT13 RKI( NCELL, 559) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.8100D-12, 3.3800D+02 ) ! Reaction Label BT14 RKI( NCELL, 560) = 2.3100D-11 * CFACT ! Reaction Label BT15 RKI( NCELL, 561) = 1.3600D-11 * CFACT ! Reaction Label BT16 RKI( NCELL, 562) = 1.4300D-11 * CFACT ! Reaction Label BT17 RKI( NCELL, 563) = 3.2500D-11 * CFACT ! Reaction Label BT18 RKI( NCELL, 564) = CFACT * ARRHENUIS_T04( INV_TEMP, TEMPOT300, & & 5.4900D-13, 5.3000D+02, 2.0000D+00 ) ! Reaction Label BL01 RKI( NCELL, 565) = CFACT * ARRHENUIS_T04( INV_TEMP, TEMPOT300, & & 1.3400D-12, -4.9900D+02, 2.0000D+00 ) ! Reaction Label BL02 RKI( NCELL, 566) = CFACT * ARRHENUIS_T04( INV_TEMP, TEMPOT300, & & 1.4900D-12, -8.7000D+01, 2.0000D+00 ) ! Reaction Label BL03 RKI( NCELL, 567) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.5100D-12, 1.2600D+02 ) ! Reaction Label BL04 RKI( NCELL, 568) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.7500D-12, 4.4000D+01 ) ! Reaction Label BL05 RKI( NCELL, 569) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.7400D+02 ) ! Reaction Label AALK RKI( NCELL, 570) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.7400D+02 ) ! Reaction Label BL06 RKI( NCELL, 571) = CFACT * ARRHENUIS_T03( INV_TEMP, 6.7200D-12, 5.0100D+02 ) ! Reaction Label BL07 RKI( NCELL, 572) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.1900D-15, -1.7010D+03 ) ! Reaction Label BL08 RKI( NCELL, 573) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.3700D-13, -1.0470D+03 ) ! Reaction Label BL09 RKI( NCELL, 574) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.6100D-11, -3.2600D+02 ) ! Reaction Label BL10 RKI( NCELL, 575) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.2600D-11, 4.8800D+02 ) ! Reaction Label BL11 RKI( NCELL, 576) = CFACT * ARRHENUIS_T03( INV_TEMP, 8.5900D-15, -1.2550D+03 ) ! Reaction Label BL12 RKI( NCELL, 577) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.3100D-13, 3.8200D+02 ) ! Reaction Label BL13 RKI( NCELL, 578) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.4300D-11, 1.1100D+02 ) ! Reaction Label BL14 RKI( NCELL, 579) = 7.8400D-12 * CFACT ! Reaction Label BL15 RKI( NCELL, 580) = 3.0900D-11 * CFACT ! Reaction Label BL15b RKI( NCELL, 581) = 3.0900D-11 * CFACT ! Reaction Label BL16 RKI( NCELL, 582) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.2700D-11, 4.3500D+02 ) ! Reaction Label BL17 RKI( NCELL, 583) = CFACT * ARRHENUIS_T03( INV_TEMP, 8.2800D-16, -7.8500D+02 ) ! Reaction Label BL18 RKI( NCELL, 584) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.3300D-12, 4.9000D+02 ) ! Reaction Label BL19 RKI( NCELL, 585) = 4.0200D-11 * CFACT ! Reaction Label BT19 RKI( NCELL, 586) = RKI( NCELL, 582 ) ! Reaction Label BT20 RKI( NCELL, 587) = RKI( NCELL, 583 ) ! Reaction Label BT21 RKI( NCELL, 588) = RKI( NCELL, 584 ) ! Reaction Label BT22 RKI( NCELL, 589) = RKI( NCELL, 585 ) ! Reaction Label CI02 RKI( NCELL, 591) = CFACT_SQU * POWER_T02( TEMPOT300, 7.6000D-32, -1.8000D+00 ) ! Reaction Label CI04 RKI( NCELL, 593) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 1.3000D-30, 0.0000D+00, -2.0000D+00, & & 1.0000D-10, 0.0000D+00, -1.0000D+00, & & 1.0000D+00, 6.0000D-01 ) ! Reaction Label CI05 RKI( NCELL, 594) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 1.8000D-31, 0.0000D+00, -2.0000D+00, & & 1.0000D-10, 0.0000D+00, -1.0000D+00, & & 1.0000D+00, 6.0000D-01 ) ! Reaction Label CI08 RKI( NCELL, 597) = CFACT * POWER_T02( TEMPOT300, 3.4400D-11, -5.6000D-01 ) ! Reaction Label CI09 RKI( NCELL, 598) = CFACT * POWER_T02( TEMPOT300, 9.4100D-12, 2.1000D+00 ) ! Reaction Label CI10 RKI( NCELL, 599) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.8000D-11, -2.5000D+02 ) ! Reaction Label CI11 RKI( NCELL, 600) = 2.4000D-11 * CFACT ! Reaction Label CI12 RKI( NCELL, 601) = CFACT * ARRHENUIS_T03( INV_TEMP, 6.2000D-12, 2.9500D+02 ) ! Reaction Label CI13 RKI( NCELL, 602) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 1.8000D-31, 0.0000D+00, -3.4000D+00, & & 1.5000D-11, 0.0000D+00, -1.9000D+00, & & 1.0000D+00, 6.0000D-01 ) ! Reaction Label CI16 RKI( NCELL, 605) = SFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 4.4800D-05, -1.2530D+04, -1.0000D+00, & & 3.7100D+15, -1.2530D+04, 3.5000D+00, & & 1.0000D+00, 6.0000D-01 ) ! Reaction Label CI17 RKI( NCELL, 606) = CFACT * ARRHENUIS_T03( INV_TEMP, 6.2000D-12, 1.4500D+02 ) ! Reaction Label CI18 RKI( NCELL, 607) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.2000D-12, 3.4000D+02 ) ! Reaction Label CI20 RKI( NCELL, 609) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.2500D-11, -1.9600D+03 ) ! Reaction Label CI21 RKI( NCELL, 610) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.7000D-12, -2.3000D+02 ) ! Reaction Label CI22 RKI( NCELL, 611) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.9000D-11, -2.3100D+03 ) ! Reaction Label CP01 RKI( NCELL, 612) = CFACT * ARRHENUIS_T03( INV_TEMP, 8.1000D-11, -3.0000D+01 ) ! Reaction Label CP02 RKI( NCELL, 613) = 8.0000D-11 * CFACT ! Reaction Label CP03 RKI( NCELL, 614) = 5.5000D-11 * CFACT ! Reaction Label CP04 RKI( NCELL, 615) = 1.2300D-10 * CFACT ! Reaction Label CP05 RKI( NCELL, 616) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.7000D-11, -1.0000D+03 ) ! Reaction Label CP06 RKI( NCELL, 617) = 3.6000D-11 * CFACT ! Reaction Label CP07 RKI( NCELL, 618) = 1.9200D-10 * CFACT ! Reaction Label CP08 RKI( NCELL, 619) = 2.0000D-10 * CFACT ! Reaction Label CP09 RKI( NCELL, 620) = CFACT * ARRHENUIS_T03( INV_TEMP, 8.1000D-11, -3.0000D+01 ) ! Reaction Label CP10 RKI( NCELL, 621) = 8.0000D-11 * CFACT ! Reaction Label CP11 RKI( NCELL, 622) = 6.2000D-11 * CFACT ! Reaction Label CP12 RKI( NCELL, 623) = 8.0000D-11 * CFACT ! Reaction Label CP13 RKI( NCELL, 624) = 1.6600D-10 * CFACT ! Reaction Label CP14 RKI( NCELL, 625) = 3.0000D-10 * CFACT ! Reaction Label CP15 RKI( NCELL, 626) = 4.2900D-10 * CFACT ! Reaction Label TP01 RKI( NCELL, 627) = 2.9400D-10 * CFACT ! Reaction Label CP16 RKI( NCELL, 628) = 3.8500D-10 * CFACT ! Reaction Label CP17 RKI( NCELL, 629) = 2.3200D-10 * CFACT ! Reaction Label CP18 RKI( NCELL, 630) = 4.1200D-10 * CFACT ! Reaction Label CP20 RKI( NCELL, 632) = 3.1000D-12 * CFACT ! Reaction Label CP21 RKI( NCELL, 633) = 1.2900D-11 * CFACT ! Reaction Label CP29 RKI( NCELL, 635) = RKI( NCELL, 52 ) ! Reaction Label CP30 RKI( NCELL, 636) = RKI( NCELL, 53 ) ! Reaction Label CP31 RKI( NCELL, 637) = RKI( NCELL, 54 ) ! Reaction Label CP32 RKI( NCELL, 638) = RKI( NCELL, 55 ) ! Reaction Label CP33 RKI( NCELL, 639) = RKI( NCELL, 56 ) ! Reaction Label CP34 RKI( NCELL, 640) = RKI( NCELL, 56 ) ! Reaction Label CP35 RKI( NCELL, 641) = RKI( NCELL, 70 ) ! Reaction Label CP36 RKI( NCELL, 642) = RKI( NCELL, 70 ) ! Reaction Label CP37 RKI( NCELL, 643) = RKI( NCELL, 70 ) ! Reaction Label CP38 RKI( NCELL, 644) = RKI( NCELL, 70 ) ! Reaction Label CP39 RKI( NCELL, 645) = RKI( NCELL, 52 ) ! Reaction Label CP40 RKI( NCELL, 646) = RKI( NCELL, 53 ) ! Reaction Label CP41 RKI( NCELL, 647) = RKI( NCELL, 54 ) ! Reaction Label CP42 RKI( NCELL, 648) = RKI( NCELL, 55 ) ! Reaction Label CP43 RKI( NCELL, 649) = RKI( NCELL, 56 ) ! Reaction Label CP44 RKI( NCELL, 650) = RKI( NCELL, 56 ) ! Reaction Label CP45 RKI( NCELL, 651) = RKI( NCELL, 70 ) ! Reaction Label CP46 RKI( NCELL, 652) = RKI( NCELL, 70 ) ! Reaction Label CP47 RKI( NCELL, 653) = RKI( NCELL, 70 ) ! Reaction Label CP48 RKI( NCELL, 654) = RKI( NCELL, 70 ) ! Reaction Label CP49 RKI( NCELL, 655) = RKI( NCELL, 52 ) ! Reaction Label CP50 RKI( NCELL, 656) = RKI( NCELL, 53 ) ! Reaction Label CP51 RKI( NCELL, 657) = RKI( NCELL, 54 ) ! Reaction Label CP52 RKI( NCELL, 658) = RKI( NCELL, 55 ) ! Reaction Label CP53 RKI( NCELL, 659) = RKI( NCELL, 56 ) ! Reaction Label CP54 RKI( NCELL, 660) = RKI( NCELL, 56 ) ! Reaction Label CP55 RKI( NCELL, 661) = RKI( NCELL, 70 ) ! Reaction Label CP56 RKI( NCELL, 662) = RKI( NCELL, 70 ) ! Reaction Label CP57 RKI( NCELL, 663) = RKI( NCELL, 70 ) ! Reaction Label CP58 RKI( NCELL, 664) = RKI( NCELL, 70 ) ! Reaction Label CE01 RKI( NCELL, 665) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.3000D-12, -1.2800D+03 ) ! Reaction Label CE02 RKI( NCELL, 666) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 1.6000D-29, 0.0000D+00, -3.3000D+00, & & 3.1000D-10, 0.0000D+00, -1.0000D+00, & & 1.0000D+00, 6.0000D-01 ) ! Reaction Label TE01 RKI( NCELL, 667) = 2.6700D-10 * CFACT ! Reaction Label TE02 RKI( NCELL, 668) = 4.9000D-10 * CFACT ! Reaction Label CE03 RKI( NCELL, 669) = 4.8000D-10 * CFACT ! Reaction Label TE03 RKI( NCELL, 670) = 5.4600D-10 * CFACT ! Reaction Label CE04 RKI( NCELL, 671) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 5.2000D-30, 0.0000D+00, -2.4000D+00, & & 2.2000D-10, 0.0000D+00, 0.0000D+00, & & 1.0000D+00, 6.0000D-01 ) ! Reaction Label TE04 RKI( NCELL, 672) = 6.2000D-11 * CFACT ! Reaction Label TE05 RKI( NCELL, 673) = 1.3500D-10 * CFACT ! Reaction Label TE06 RKI( NCELL, 674) = 1.4000D-10 * CFACT ! Reaction Label TE07 RKI( NCELL, 675) = 1.4400D-10 * CFACT ! Reaction Label TE08 RKI( NCELL, 676) = 2.4200D-10 * CFACT ! Reaction Label TE09 RKI( NCELL, 677) = CFACT * ARRHENUIS_T03( INV_TEMP, 8.6000D-11, 4.5000D+01 ) ! Reaction Label BC01 RKI( NCELL, 678) = CFACT * ARRHENUIS_T03( INV_TEMP, 8.3000D-11, -1.0000D+02 ) ! Reaction Label BC02 RKI( NCELL, 679) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.2000D-10, 4.0000D+01 ) ! Reaction Label BC03 RKI( NCELL, 680) = 1.8600D-10 * CFACT ! Reaction Label BC04 RKI( NCELL, 681) = 2.6300D-10 * CFACT ! Reaction Label BC05 RKI( NCELL, 682) = 4.2100D-10 * CFACT ! Reaction Label BC06 RKI( NCELL, 683) = 3.9200D-10 * CFACT ! Reaction Label BC07 RKI( NCELL, 684) = 3.7700D-10 * CFACT ! Reaction Label BC08 RKI( NCELL, 685) = 2.1600D-10 * CFACT ! Reaction Label BC09 RKI( NCELL, 686) = 2.6600D-10 * CFACT ! Reaction Label BC09b RKI( NCELL, 687) = 2.6600D-10 * CFACT ! Reaction Label BC10 RKI( NCELL, 688) = 5.4600D-10 * CFACT ! Reaction Label BC11 RKI( NCELL, 689) = RKI( NCELL, 688 ) ! Reaction Label AE51 RKI( NCELL, 690) = RKI( NCELL, 52 ) ! Reaction Label AE52 RKI( NCELL, 691) = RKI( NCELL, 53 ) ! Reaction Label AE53 RKI( NCELL, 692) = RKI( NCELL, 52 ) ! Reaction Label AE54 RKI( NCELL, 693) = RKI( NCELL, 53 ) ! Reaction Label AE55 RKI( NCELL, 694) = RKI( NCELL, 52 ) ! Reaction Label AE56 RKI( NCELL, 695) = RKI( NCELL, 53 ) ! Reaction Label AE55b RKI( NCELL, 696) = RKI( NCELL, 52 ) ! Reaction Label AE56b RKI( NCELL, 697) = RKI( NCELL, 53 ) ! Reaction Label TR03 RKI( NCELL, 700) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.4000D-12, 1.3500D+02 ) ! Reaction Label TR05 RKI( NCELL, 701) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.0000D-12, -2.4310D+03 ) ! Reaction Label TR06 RKI( NCELL, 702) = CFACT * ARRHENUIS_T03( INV_TEMP, 8.1000D-11, -3.0000D+01 ) ! Reaction Label TR07 RKI( NCELL, 703) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.4000D-12, 3.6500D+02 ) ! Reaction Label TR09 RKI( NCELL, 705) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.4000D-12, -1.8600D+03 ) ! Reaction Label TR10 RKI( NCELL, 706) = 8.0000D-11 * CFACT ! Reaction Label TR11 RKI( NCELL, 707) = 1.9900D-11 * CFACT ! Reaction Label TR12 RKI( NCELL, 708) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.4000D-15, -2.5280D+03 ) ! Reaction Label TR13 RKI( NCELL, 709) = 1.1800D-15 * CFACT ! Reaction Label TR14 RKI( NCELL, 710) = 2.3700D-12 * CFACT ! Reaction Label TR16 RKI( NCELL, 712) = 2.9400D-10 * CFACT ! Reaction Label HET_N02 RKI( NCELL, 713) = BLKHET( NCELL, IK_HETERO_NO2 ) ! Reaction Label HET_N2O5IJ RKI( NCELL, 714) = BLKHET( NCELL, IK_HETERO_N2O5IJ ) ! Reaction Label HET_N2O5K RKI( NCELL, 715) = BLKHET( NCELL, IK_HETERO_N2O5K ) ! Reaction Label HET_H2NO3PIJA RKI( NCELL, 716) = BLKHET( NCELL, IK_HETERO_H2NO3PAIJ ) ! Reaction Label HET_H2NO3PKA RKI( NCELL, 717) = BLKHET( NCELL, IK_HETERO_H2NO3PAK ) ! Reaction Label HET_H2NO3PIB RKI( NCELL, 718) = BLKHET( NCELL, IK_HETERO_H2NO3PBIJ ) ! Reaction Label HET_H2NO3PJB RKI( NCELL, 719) = BLKHET( NCELL, IK_HETERO_H2NO3PBIJ ) ! Reaction Label HET_H2NO3PKB RKI( NCELL, 720) = BLKHET( NCELL, IK_HETERO_H2NO3PBK ) ! Reaction Label OLIG_XYLENE1 RKI( NCELL, 722) = 9.4882D-06 * SFACT ! Reaction Label OLIG_XYLENE2 RKI( NCELL, 723) = 9.4882D-06 * SFACT ! Reaction Label OLIG_TOLUENE1 RKI( NCELL, 724) = 9.4882D-06 * SFACT ! Reaction Label OLIG_TOLUENE2 RKI( NCELL, 725) = 9.4882D-06 * SFACT ! Reaction Label OLIG_BENZENE1 RKI( NCELL, 726) = 9.4882D-06 * SFACT ! Reaction Label OLIG_BENZENE2 RKI( NCELL, 727) = 9.4882D-06 * SFACT ! Reaction Label OLIG_TERPENE1 RKI( NCELL, 728) = 9.4882D-06 * SFACT ! Reaction Label OLIG_TERPENE2 RKI( NCELL, 729) = 9.4882D-06 * SFACT ! Reaction Label OLIG_ISOPRENE1 RKI( NCELL, 730) = 9.4882D-06 * SFACT ! Reaction Label OLIG_ISOPRENE2 RKI( NCELL, 731) = 9.4882D-06 * SFACT ! Reaction Label OLIG_SESQT1 RKI( NCELL, 732) = 9.4882D-06 * SFACT ! Reaction Label OLIG_PAH1 RKI( NCELL, 733) = 9.4882D-06 * SFACT ! Reaction Label OLIG_PAH2 RKI( NCELL, 734) = 9.4882D-06 * SFACT ! Reaction Label OLIG_ALK1 RKI( NCELL, 735) = 9.4882D-06 * SFACT ! Reaction Label OLIG_ALK2 RKI( NCELL, 736) = 9.4882D-06 * SFACT ! Reaction Label RPOAGEPI RKI( NCELL, 737) = 2.5000D-12 * CFACT ! Reaction Label RPOAGELI RKI( NCELL, 738) = BLKHET( NCELL, IK_HETERO_PNCOMLI ) ! Reaction Label RPOAGEPJ RKI( NCELL, 739) = 2.5000D-12 * CFACT ! Reaction Label RPOAGELJ RKI( NCELL, 740) = BLKHET( NCELL, IK_HETERO_PNCOMLJ ) ! Reaction Label PCSOA RKI( NCELL, 741) = 1.2500D-11 * CFACT ! Reaction Label POA_AGE1 RKI( NCELL, 742) = 4.0000D-11 * CFACT ! Reaction Label POA_AGE2 RKI( NCELL, 743) = 4.0000D-11 * CFACT ! Reaction Label POA_AGE3 RKI( NCELL, 744) = 4.0000D-11 * CFACT ! Reaction Label POA_AGE4 RKI( NCELL, 745) = 4.0000D-11 * CFACT ! Reaction Label POA_AGE5 RKI( NCELL, 746) = 4.0000D-11 * CFACT ! Reaction Label POA_AGE6 RKI( NCELL, 747) = 4.0000D-11 * CFACT ! Reaction Label POA_AGE7 RKI( NCELL, 748) = 4.0000D-11 * CFACT ! Reaction Label POA_AGE8 RKI( NCELL, 749) = 4.0000D-11 * CFACT ! Reaction Label POA_AGE9 RKI( NCELL, 750) = 4.0000D-11 * CFACT ! Reaction Label POA_AGE10 RKI( NCELL, 751) = 4.0000D-11 * CFACT ! Reaction Label HET_IEPOX RKI( NCELL, 752) = BLKHET( NCELL, IK_HETERO_IEPOX ) END DO ! Multiply rate constants by [M], [O2], [N2], [H2O], [H2], or [CH4] ! where needed and return IF ( NWM .GT. 0 ) THEN DO NRT = 1, NWM IRXN = NRXWM( NRT ) DO NCELL = 1, NUMCELLS RKI( NCELL,IRXN ) = RKI( NCELL,IRXN ) * ATM_AIR END DO END DO END IF IF ( NWO2 .GT. 0 ) THEN DO NRT = 1, NWO2 IRXN = NRXWO2( NRT ) DO NCELL = 1, NUMCELLS RKI( NCELL,IRXN ) = RKI( NCELL,IRXN ) * ATM_O2 END DO END DO END IF IF ( NWN2 .GT. 0 ) THEN DO NRT = 1, NWN2 IRXN = NRXWN2( NRT ) DO NCELL = 1, NUMCELLS RKI( NCELL,IRXN ) = RKI( NCELL,IRXN ) * ATM_N2 END DO END DO END IF IF ( NWW .GT. 0 ) THEN DO NRT = 1, NWW IRXN = NRXWW( NRT ) DO NCELL = 1, NUMCELLS RKI( NCELL,IRXN ) = RKI( NCELL,IRXN ) * BLKH2O( NCELL ) END DO END DO END IF IF ( NWH2 .GT. 0 ) THEN DO NRT = 1, NWH2 IRXN = NRXWH2( NRT ) DO NCELL = 1, NUMCELLS RKI( NCELL,IRXN ) = RKI( NCELL,IRXN ) * ATM_H2 END DO END DO END IF IF ( NWCH4 .GT. 0 ) THEN DO NRT = 1, NWCH4 IRXN = NRXWCH4( NRT ) DO NCELL = 1, NUMCELLS RKI( NCELL,IRXN ) = RKI( NCELL,IRXN ) * ATM_CH4 END DO END DO END IF RETURN END SUBROUTINE CALC_RCONST FUNCTION MAP_CHEMISTRY_SPECIES() RESULT ( SUCCESS ) ! Purpose find or test the CGRID Index, Species Type, and Conversion Factor ! for the Mechanism against the CMAQ namelists USE UTILIO_DEFN USE CGRID_SPCS USE RXNS_DATA IMPLICIT NONE !Parameters: CHARACTER( 1 ), PARAMETER :: BL = ' ' INTEGER, PARAMETER :: SPC_DIM = 200 !Local: LOGICAL SUCCESS INTEGER I, IOS, J INTEGER I1, I2, I3, I4 ! SURROGATE TYPE 1 COUNTERS INTEGER J1, J2 ! SURROGATE TYPE 2 COUNTERS INTEGER K1, K2, K3, K4, K5 ! CONTROL TYPE COUNTERS INTEGER ICALL LOGICAL :: ORDER = .TRUE. LOGICAL :: FOUND = .TRUE. CHARACTER( 120 ) :: XMSG CHARACTER( 16 ), ALLOCATABLE :: CGRID_SPC ( : ) CHARACTER( 16 ), ALLOCATABLE :: NML_SPC ( : ) CHARACTER( 2 ), ALLOCATABLE :: NML_TYPE ( : ) INTEGER, ALLOCATABLE :: NML_INDEX ( : ) LOGICAL, ALLOCATABLE :: NML_CONVERT( : ) REAL, ALLOCATABLE :: NML_MOLWT ( : ) REAL :: DELTA ! fractional difference LOGICAL, SAVE :: INITIALIZED = .FALSE. IF( INITIALIZED )RETURN INITIALIZED = .TRUE. SUCCESS = .TRUE. ALLOCATE ( CGRID_SPC( NSPCSD - 1 ), & & NML_SPC ( NSPCSD - 1 ), & & NML_INDEX( NSPCSD - 1 ), & & NML_TYPE( NSPCSD - 1 ), & & NML_CONVERT( NSPCSD - 1 ), & & NML_MOLWT( NSPCSD - 1 ), & & STAT = IOS ) J = 0 NML_INDEX = -1 TYPE_INDEX = -1 NML_TYPE = '??' NML_CONVERT = .FALSE. DO I = 1, N_GC_SPC ! load gc names and indices J = J + 1 CGRID_SPC( I ) = GC_SPC( I ) NML_INDEX( J ) = I + GC_STRT -1 NML_TYPE( J ) = 'GC' NML_MOLWT( J ) = GC_MOLWT( I ) END DO DO I = 1, N_AE_SPC ! load ae names and indices J = J + 1 CGRID_SPC( J ) = AE_SPC( I ) NML_INDEX( J ) = I + AE_STRT - 1 NML_TYPE( J ) = 'AE' NML_CONVERT( J ) = .TRUE. NML_MOLWT( J ) = AE_MOLWT( I ) END DO DO I = 1, N_NR_SPC ! load nr names and indices J = J + 1 CGRID_SPC( J ) = NR_SPC( I ) NML_INDEX( J ) = I + NR_STRT - 1 NML_TYPE( J ) = 'NR' NML_MOLWT( J ) = NR_MOLWT( I ) END DO DO I = 1, N_TR_SPC ! load tr names and indices J = J + 1 CGRID_SPC( J ) = TR_SPC( I ) NML_INDEX( J ) = I + TR_STRT - 1 NML_TYPE( J ) = 'TR' NML_MOLWT( J ) = TR_MOLWT( I ) END DO NML_SPC( 1:(NSPCSD-1) ) = CGRID_SPC( 1:(NSPCSD-1) ) ! determine if mechanism species are in cgrid species DO I = 1, NUMB_MECH_SPC ! set species informations arrays using SPECIES_LIST array before mapping CHEMISTRY_SPC( I ) = SPECIES_LIST( I )%CHEMISTRY_SPC CGRID_INDEX ( I ) = SPECIES_LIST( I )%CGRID_INDEX SPECIES_TYPE ( I ) = SPECIES_LIST( I )%SPECIES_TYPE CONVERT_CONC ( I ) = SPECIES_LIST( I )%CONVERT_CONC SPECIES_MOLWT( I ) = SPECIES_LIST( I )%SPECIES_MOLWT I1 = INDEX1R( CHEMISTRY_SPC( I ), (NSPCSD-1), CGRID_SPC ) IF ( I1 .LT. 1 ) THEN FOUND = .FALSE. ELSE FOUND = .TRUE. IF( .NOT. MAPPED_TO_CGRID )THEN CGRID_INDEX( I ) = NML_INDEX( I1 ) SPECIES_TYPE( I ) = NML_TYPE ( I1 ) SPECIES_MOLWT( I ) = NML_MOLWT( I1 ) CONVERT_CONC( I ) = NML_CONVERT( I1 ) ELSE IF(CGRID_INDEX( I ) .NE. NML_INDEX( I1 ))THEN SUCCESS = .FALSE. XMSG = '*** For Species ' // TRIM( CHEMISTRY_SPC( I ) ) & & // ' cgrid index does not match mechanism value.' WRITE( LOGDEV,'( /5X, A )' ) TRIM( XMSG ) WRITE( XMSG,'(A,I3,1X,I3)')'CGRID Indices: Mechanism and NML Values are ', & & CGRID_INDEX( I ),NML_INDEX( I1 ) WRITE( LOGDEV,'( 5X, A )' )XMSG END IF IF(CONVERT_CONC( I ) .NEQV. NML_CONVERT( I1 ))THEN SUCCESS = .FALSE. XMSG = '*** For Species ' // TRIM( CHEMISTRY_SPC( I ) ) & & // ' species unit conversion flag does not match mechanism value.' WRITE( LOGDEV,'( /5X, A )' ) TRIM( XMSG ) WRITE( XMSG,'(A,1X,L21X,L2)')'CONVERSION FLAGS: Mechanism and NML Values are ', & & CONVERT_CONC( I ),NML_CONVERT( I1 ) WRITE( LOGDEV,'( 5X, A )' )XMSG WRITE( XMSG,'(A,1X,A3,1X,A3)')'SPECIES TYPE: Mechanism and NML Values are ', & & SPECIES_TYPE( I ),NML_TYPE( I1 ) WRITE( LOGDEV,'( 5X, A )' )XMSG END IF DELTA = ( SPECIES_MOLWT( I ) - NML_MOLWT( I1 ) )/MAX(NML_MOLWT( I1 ),1.0E-20) IF( ABS( DELTA ) .GE. 0.05 )THEN IF( CONVERT_CONC( I ) )SUCCESS = .FALSE. XMSG = '*** For Species ' // TRIM( CHEMISTRY_SPC( I ) ) & & // ' species molecular weight does not match mechanism value.' WRITE( LOGDEV,'( /5X, A )' ) TRIM( XMSG ) WRITE( XMSG,'(A,2(ES12.4,1X))')'Molecular Weight: Mechanism and NML Values are ', & & SPECIES_MOLWT( I ), NML_MOLWT( I1 ) WRITE( LOGDEV,'( 5X, A )' )XMSG END IF END IF END IF IF( INDEX( CHEMISTRY_SPC( I ), 'SRF') .GT. 0 )THEN SUCCESS = .FALSE. XMSG = '*** reactions cannot use modal aerosol surface area as species' WRITE( LOGDEV,'( /5X, A )' ) TRIM( XMSG ) XMSG = TRIM( CHEMISTRY_SPC( I ) ) WRITE( LOGDEV,'( 2X, A )' ) TRIM( XMSG ) END IF IF( INDEX( CHEMISTRY_SPC( I ), 'NUM') .GT. 0 )THEN SUCCESS = .FALSE. XMSG = '*** reactions cannot use modal aerosol number density as species' WRITE( LOGDEV,'( /5X, A )' ) TRIM( XMSG ) XMSG = TRIM( CHEMISTRY_SPC( I ) ) WRITE( LOGDEV,'( 2X, A )' ) TRIM( XMSG ) END IF IF ( .NOT. FOUND ) THEN XMSG = 'Fatal error: Mechanism Species found not in species namelist:' WRITE( LOGDEV,'( /5X, A )', ADVANCE = 'NO' ) TRIM( XMSG ) XMSG = TRIM( CHEMISTRY_SPC( I ) ) WRITE( LOGDEV,'( 2X, A )' ) TRIM( XMSG ) SUCCESS = .FALSE. END IF END DO IF( SUCCESS )RETURN WRITE(LOGDEV,99901)TRIM( MECHNAME ) XMSG = 'The FATAL errors found in namelist used. Check ' & & // 'the log of exiting processor if more details are needed.' CALL M3WARN('MAP_CHEMISTRY_SPECIES',0,0,XMSG) 99901 FORMAT( / 'FATAL error(s) found in the namelists used. Check that ' & & / 'these namelists contain the above data as the respective files ' & & / 'in the respository version of the mechanism: ' , A ) RETURN END FUNCTION MAP_CHEMISTRY_SPECIES !---------------------------------------------------------------------------------------- INTEGER FUNCTION INDEX1R ( NAME, N, NLIST ) IMPLICIT NONE CHARACTER( * ) NAME ! character string being searched for INTEGER N ! length of array to be searched CHARACTER( * ) NLIST( : ) ! array to be searched INTEGER I DO I = 1, N IF ( NAME .EQ. NLIST( I ) ) THEN INDEX1R = I RETURN END IF END DO INDEX1R = 0 RETURN END FUNCTION INDEX1R SUBROUTINE RESET_SPECIES_POINTERS( IOLD2NEW ) USE RXNS_DATA IMPLICIT NONE INTEGER, INTENT( IN ) :: IOLD2NEW( :,: ) INDEX_NO2 = IOLD2NEW( INDEX_NO2 , 1 ) INDEX_NO = IOLD2NEW( INDEX_NO , 1 ) INDEX_O3P = IOLD2NEW( INDEX_O3P , 1 ) INDEX_O3 = IOLD2NEW( INDEX_O3 , 1 ) INDEX_NO3 = IOLD2NEW( INDEX_NO3 , 1 ) INDEX_N2O5 = IOLD2NEW( INDEX_N2O5 , 1 ) INDEX_HNO3 = IOLD2NEW( INDEX_HNO3 , 1 ) INDEX_O1D = IOLD2NEW( INDEX_O1D , 1 ) INDEX_OH = IOLD2NEW( INDEX_OH , 1 ) INDEX_HONO = IOLD2NEW( INDEX_HONO , 1 ) INDEX_HO2 = IOLD2NEW( INDEX_HO2 , 1 ) INDEX_CO = IOLD2NEW( INDEX_CO , 1 ) INDEX_CO2 = IOLD2NEW( INDEX_CO2 , 1 ) INDEX_HNO4 = IOLD2NEW( INDEX_HNO4 , 1 ) INDEX_HO2H = IOLD2NEW( INDEX_HO2H , 1 ) INDEX_SO2 = IOLD2NEW( INDEX_SO2 , 1 ) INDEX_SULF = IOLD2NEW( INDEX_SULF , 1 ) INDEX_SULRXN = IOLD2NEW( INDEX_SULRXN , 1 ) INDEX_MEO2 = IOLD2NEW( INDEX_MEO2 , 1 ) INDEX_HCHO = IOLD2NEW( INDEX_HCHO , 1 ) INDEX_COOH = IOLD2NEW( INDEX_COOH , 1 ) INDEX_MEOH = IOLD2NEW( INDEX_MEOH , 1 ) INDEX_RO2C = IOLD2NEW( INDEX_RO2C , 1 ) INDEX_RO2XC = IOLD2NEW( INDEX_RO2XC , 1 ) INDEX_MECO3 = IOLD2NEW( INDEX_MECO3 , 1 ) INDEX_PAN = IOLD2NEW( INDEX_PAN , 1 ) INDEX_CCOOOH = IOLD2NEW( INDEX_CCOOOH , 1 ) INDEX_CCOOH = IOLD2NEW( INDEX_CCOOH , 1 ) INDEX_RCO3 = IOLD2NEW( INDEX_RCO3 , 1 ) INDEX_PAN2 = IOLD2NEW( INDEX_PAN2 , 1 ) INDEX_xHO2 = IOLD2NEW( INDEX_xHO2 , 1 ) INDEX_yROOH = IOLD2NEW( INDEX_yROOH , 1 ) INDEX_xCCHO = IOLD2NEW( INDEX_xCCHO , 1 ) INDEX_RCOOOH = IOLD2NEW( INDEX_RCOOOH , 1 ) INDEX_RCOOH = IOLD2NEW( INDEX_RCOOH , 1 ) INDEX_BZCO3 = IOLD2NEW( INDEX_BZCO3 , 1 ) INDEX_PBZN = IOLD2NEW( INDEX_PBZN , 1 ) INDEX_BZO = IOLD2NEW( INDEX_BZO , 1 ) INDEX_MACO3 = IOLD2NEW( INDEX_MACO3 , 1 ) INDEX_MAPAN = IOLD2NEW( INDEX_MAPAN , 1 ) INDEX_TBUO = IOLD2NEW( INDEX_TBUO , 1 ) INDEX_RNO3 = IOLD2NEW( INDEX_RNO3 , 1 ) INDEX_ACETONE = IOLD2NEW( INDEX_ACETONE , 1 ) INDEX_NPHE = IOLD2NEW( INDEX_NPHE , 1 ) INDEX_CRES = IOLD2NEW( INDEX_CRES , 1 ) INDEX_xOH = IOLD2NEW( INDEX_xOH , 1 ) INDEX_xNO2 = IOLD2NEW( INDEX_xNO2 , 1 ) INDEX_xMEO2 = IOLD2NEW( INDEX_xMEO2 , 1 ) INDEX_xMECO3 = IOLD2NEW( INDEX_xMECO3 , 1 ) INDEX_xRCO3 = IOLD2NEW( INDEX_xRCO3 , 1 ) INDEX_xMACO3 = IOLD2NEW( INDEX_xMACO3 , 1 ) INDEX_xTBUO = IOLD2NEW( INDEX_xTBUO , 1 ) INDEX_xCO = IOLD2NEW( INDEX_xCO , 1 ) INDEX_CCHO = IOLD2NEW( INDEX_CCHO , 1 ) INDEX_RCHO = IOLD2NEW( INDEX_RCHO , 1 ) INDEX_xHCHO = IOLD2NEW( INDEX_xHCHO , 1 ) INDEX_MEK = IOLD2NEW( INDEX_MEK , 1 ) INDEX_zRNO3 = IOLD2NEW( INDEX_zRNO3 , 1 ) INDEX_xRCHO = IOLD2NEW( INDEX_xRCHO , 1 ) INDEX_HCOOH = IOLD2NEW( INDEX_HCOOH , 1 ) INDEX_xMGLY = IOLD2NEW( INDEX_xMGLY , 1 ) INDEX_xBACL = IOLD2NEW( INDEX_xBACL , 1 ) INDEX_ROOH = IOLD2NEW( INDEX_ROOH , 1 ) INDEX_xPROD2 = IOLD2NEW( INDEX_xPROD2 , 1 ) INDEX_R6OOH = IOLD2NEW( INDEX_R6OOH , 1 ) INDEX_PRD2 = IOLD2NEW( INDEX_PRD2 , 1 ) INDEX_yR6OOH = IOLD2NEW( INDEX_yR6OOH , 1 ) INDEX_RAOOH = IOLD2NEW( INDEX_RAOOH , 1 ) INDEX_MGLY = IOLD2NEW( INDEX_MGLY , 1 ) INDEX_IPRD = IOLD2NEW( INDEX_IPRD , 1 ) INDEX_xGLY = IOLD2NEW( INDEX_xGLY , 1 ) INDEX_xMEK = IOLD2NEW( INDEX_xMEK , 1 ) INDEX_xAFG1 = IOLD2NEW( INDEX_xAFG1 , 1 ) INDEX_xAFG2 = IOLD2NEW( INDEX_xAFG2 , 1 ) INDEX_GLY = IOLD2NEW( INDEX_GLY , 1 ) INDEX_AFG1 = IOLD2NEW( INDEX_AFG1 , 1 ) INDEX_AFG2 = IOLD2NEW( INDEX_AFG2 , 1 ) INDEX_HCOCO3 = IOLD2NEW( INDEX_HCOCO3 , 1 ) INDEX_BACL = IOLD2NEW( INDEX_BACL , 1 ) INDEX_BALD = IOLD2NEW( INDEX_BALD , 1 ) INDEX_AFG3 = IOLD2NEW( INDEX_AFG3 , 1 ) INDEX_xIPRD = IOLD2NEW( INDEX_xIPRD , 1 ) INDEX_MACR = IOLD2NEW( INDEX_MACR , 1 ) INDEX_MVK = IOLD2NEW( INDEX_MVK , 1 ) INDEX_xHOCCHO = IOLD2NEW( INDEX_xHOCCHO , 1 ) INDEX_xRNO3 = IOLD2NEW( INDEX_xRNO3 , 1 ) INDEX_HOCCHO = IOLD2NEW( INDEX_HOCCHO , 1 ) INDEX_xACETONE = IOLD2NEW( INDEX_xACETONE , 1 ) INDEX_ACROLEIN = IOLD2NEW( INDEX_ACROLEIN , 1 ) INDEX_xBALD = IOLD2NEW( INDEX_xBALD , 1 ) INDEX_xAFG3 = IOLD2NEW( INDEX_xAFG3 , 1 ) INDEX_xMACR = IOLD2NEW( INDEX_xMACR , 1 ) INDEX_xMVK = IOLD2NEW( INDEX_xMVK , 1 ) INDEX_yISOPOOH = IOLD2NEW( INDEX_yISOPOOH , 1 ) INDEX_ISOPOOH = IOLD2NEW( INDEX_ISOPOOH , 1 ) INDEX_yRAOOH = IOLD2NEW( INDEX_yRAOOH , 1 ) INDEX_xACROLEIN = IOLD2NEW( INDEX_xACROLEIN , 1 ) INDEX_ETHENE = IOLD2NEW( INDEX_ETHENE , 1 ) INDEX_PROPENE = IOLD2NEW( INDEX_PROPENE , 1 ) INDEX_BUTADIENE13 = IOLD2NEW( INDEX_BUTADIENE13 , 1 ) INDEX_ISOPRENE = IOLD2NEW( INDEX_ISOPRENE , 1 ) INDEX_ISOPRXN = IOLD2NEW( INDEX_ISOPRXN , 1 ) INDEX_IEPOX = IOLD2NEW( INDEX_IEPOX , 1 ) INDEX_ARO2MN = IOLD2NEW( INDEX_ARO2MN , 1 ) INDEX_IEPOXOO = IOLD2NEW( INDEX_IEPOXOO , 1 ) INDEX_APIN = IOLD2NEW( INDEX_APIN , 1 ) INDEX_TRPRXN = IOLD2NEW( INDEX_TRPRXN , 1 ) INDEX_ACETYLENE = IOLD2NEW( INDEX_ACETYLENE , 1 ) INDEX_BENZENE = IOLD2NEW( INDEX_BENZENE , 1 ) INDEX_BENZRO2 = IOLD2NEW( INDEX_BENZRO2 , 1 ) INDEX_TOLUENE = IOLD2NEW( INDEX_TOLUENE , 1 ) INDEX_TOLRO2 = IOLD2NEW( INDEX_TOLRO2 , 1 ) INDEX_MXYL = IOLD2NEW( INDEX_MXYL , 1 ) INDEX_XYLRO2 = IOLD2NEW( INDEX_XYLRO2 , 1 ) INDEX_OXYL = IOLD2NEW( INDEX_OXYL , 1 ) INDEX_PXYL = IOLD2NEW( INDEX_PXYL , 1 ) INDEX_TMBENZ124 = IOLD2NEW( INDEX_TMBENZ124 , 1 ) INDEX_ETOH = IOLD2NEW( INDEX_ETOH , 1 ) INDEX_ALK1 = IOLD2NEW( INDEX_ALK1 , 1 ) INDEX_ALK2 = IOLD2NEW( INDEX_ALK2 , 1 ) INDEX_ALK3 = IOLD2NEW( INDEX_ALK3 , 1 ) INDEX_ALK4 = IOLD2NEW( INDEX_ALK4 , 1 ) INDEX_ALK5 = IOLD2NEW( INDEX_ALK5 , 1 ) INDEX_SOAALK = IOLD2NEW( INDEX_SOAALK , 1 ) INDEX_ALKRXN = IOLD2NEW( INDEX_ALKRXN , 1 ) INDEX_OLE1 = IOLD2NEW( INDEX_OLE1 , 1 ) INDEX_OLE2 = IOLD2NEW( INDEX_OLE2 , 1 ) INDEX_ARO1 = IOLD2NEW( INDEX_ARO1 , 1 ) INDEX_NAPHTHAL = IOLD2NEW( INDEX_NAPHTHAL , 1 ) INDEX_PAHRO2 = IOLD2NEW( INDEX_PAHRO2 , 1 ) INDEX_TERP = IOLD2NEW( INDEX_TERP , 1 ) INDEX_SESQ = IOLD2NEW( INDEX_SESQ , 1 ) INDEX_SESQRXN = IOLD2NEW( INDEX_SESQRXN , 1 ) INDEX_CL2 = IOLD2NEW( INDEX_CL2 , 1 ) INDEX_CL = IOLD2NEW( INDEX_CL , 1 ) INDEX_CLNO = IOLD2NEW( INDEX_CLNO , 1 ) INDEX_CLONO = IOLD2NEW( INDEX_CLONO , 1 ) INDEX_CLNO2 = IOLD2NEW( INDEX_CLNO2 , 1 ) INDEX_HCL = IOLD2NEW( INDEX_HCL , 1 ) INDEX_CLO = IOLD2NEW( INDEX_CLO , 1 ) INDEX_CLONO2 = IOLD2NEW( INDEX_CLONO2 , 1 ) INDEX_HOCL = IOLD2NEW( INDEX_HOCL , 1 ) INDEX_xCL = IOLD2NEW( INDEX_xCL , 1 ) INDEX_xCLCCHO = IOLD2NEW( INDEX_xCLCCHO , 1 ) INDEX_xCLACET = IOLD2NEW( INDEX_xCLACET , 1 ) INDEX_CLCCHO = IOLD2NEW( INDEX_CLCCHO , 1 ) INDEX_CLACET = IOLD2NEW( INDEX_CLACET , 1 ) INDEX_CLCHO = IOLD2NEW( INDEX_CLCHO , 1 ) INDEX_BNZNRXN = IOLD2NEW( INDEX_BNZNRXN , 1 ) INDEX_BNZHRXN = IOLD2NEW( INDEX_BNZHRXN , 1 ) INDEX_XYLNRXN = IOLD2NEW( INDEX_XYLNRXN , 1 ) INDEX_XYLHRXN = IOLD2NEW( INDEX_XYLHRXN , 1 ) INDEX_TOLNRXN = IOLD2NEW( INDEX_TOLNRXN , 1 ) INDEX_TOLHRXN = IOLD2NEW( INDEX_TOLHRXN , 1 ) INDEX_PAHNRXN = IOLD2NEW( INDEX_PAHNRXN , 1 ) INDEX_PAHHRXN = IOLD2NEW( INDEX_PAHHRXN , 1 ) INDEX_HCHO_PRIMARY = IOLD2NEW( INDEX_HCHO_PRIMARY, 1 ) INDEX_CCHO_PRIMARY = IOLD2NEW( INDEX_CCHO_PRIMARY, 1 ) INDEX_ACRO_PRIMARY = IOLD2NEW( INDEX_ACRO_PRIMARY, 1 ) INDEX_H2NO3PIJ = IOLD2NEW( INDEX_H2NO3PIJ , 1 ) INDEX_H2NO3PK = IOLD2NEW( INDEX_H2NO3PK , 1 ) INDEX_ACLI = IOLD2NEW( INDEX_ACLI , 1 ) INDEX_ACLJ = IOLD2NEW( INDEX_ACLJ , 1 ) INDEX_ACLK = IOLD2NEW( INDEX_ACLK , 1 ) INDEX_AXYL1J = IOLD2NEW( INDEX_AXYL1J , 1 ) INDEX_AOLGAJ = IOLD2NEW( INDEX_AOLGAJ , 1 ) INDEX_AXYL2J = IOLD2NEW( INDEX_AXYL2J , 1 ) INDEX_ATOL1J = IOLD2NEW( INDEX_ATOL1J , 1 ) INDEX_ATOL2J = IOLD2NEW( INDEX_ATOL2J , 1 ) INDEX_ABNZ1J = IOLD2NEW( INDEX_ABNZ1J , 1 ) INDEX_ABNZ2J = IOLD2NEW( INDEX_ABNZ2J , 1 ) INDEX_ATRP1J = IOLD2NEW( INDEX_ATRP1J , 1 ) INDEX_AOLGBJ = IOLD2NEW( INDEX_AOLGBJ , 1 ) INDEX_ATRP2J = IOLD2NEW( INDEX_ATRP2J , 1 ) INDEX_AISO1J = IOLD2NEW( INDEX_AISO1J , 1 ) INDEX_AISO2J = IOLD2NEW( INDEX_AISO2J , 1 ) INDEX_ASQTJ = IOLD2NEW( INDEX_ASQTJ , 1 ) INDEX_APAH1J = IOLD2NEW( INDEX_APAH1J , 1 ) INDEX_APAH2J = IOLD2NEW( INDEX_APAH2J , 1 ) INDEX_AALK1J = IOLD2NEW( INDEX_AALK1J , 1 ) INDEX_AALK2J = IOLD2NEW( INDEX_AALK2J , 1 ) INDEX_APOCI = IOLD2NEW( INDEX_APOCI , 1 ) INDEX_APNCOMI = IOLD2NEW( INDEX_APNCOMI , 1 ) INDEX_APOCJ = IOLD2NEW( INDEX_APOCJ , 1 ) INDEX_APNCOMJ = IOLD2NEW( INDEX_APNCOMJ , 1 ) INDEX_PCVOC = IOLD2NEW( INDEX_PCVOC , 1 ) INDEX_PCSOARXN = IOLD2NEW( INDEX_PCSOARXN , 1 ) INDEX_VLVPO1 = IOLD2NEW( INDEX_VLVPO1 , 1 ) INDEX_VSVPO1 = IOLD2NEW( INDEX_VSVPO1 , 1 ) INDEX_VSVPO2 = IOLD2NEW( INDEX_VSVPO2 , 1 ) INDEX_VSVPO3 = IOLD2NEW( INDEX_VSVPO3 , 1 ) INDEX_VIVPO1 = IOLD2NEW( INDEX_VIVPO1 , 1 ) INDEX_VLVOO1 = IOLD2NEW( INDEX_VLVOO1 , 1 ) INDEX_VLVOO2 = IOLD2NEW( INDEX_VLVOO2 , 1 ) INDEX_VSVOO2 = IOLD2NEW( INDEX_VSVOO2 , 1 ) INDEX_VSVOO3 = IOLD2NEW( INDEX_VSVOO3 , 1 ) INDEX_VSVOO1 = IOLD2NEW( INDEX_VSVOO1 , 1 ) INDEX_AISO3J = IOLD2NEW( INDEX_AISO3J , 1 ) END SUBROUTINE RESET_SPECIES_POINTERS END MODULE RXNS_FUNCTION ================================================ FILE: CCTM/src/MECHS/saprc07tc_ae6_aq/SpecDef_Dep_saprc07tc_ae6_aq.txt ================================================ !#start YYYYJJJ !#end YYYYJJJ #layer 1 / File [1]: DRYDEP / File [2]: WETDEP / File [3]: METCRO2D / /new species ,units ,expression RT ,cm ,RC[3]>=0 ? RN[3]+RC[3] : RN[3] !---------------------------------------------------! !--------------- Gas Deposition --------------------! !---------------------------------------------------! DDEP_NO2 ,kg ha-1 ,NO2[1] WDEP_NO2 ,kg ha-1 ,NO2[2] DDEP_NO ,kg ha-1 ,NO[1] WDEP_NO ,kg ha-1 ,NO[2] DDEP_NO3 ,kg ha-1 ,NO3[1] WDEP_NO3 ,kg ha-1 ,NO3[2] DDEP_FORM ,kg ha-1 ,HCHO[1] WDEP_FORM ,kg ha-1 ,HCHO[2] DDEP_H2O2 ,kg ha-1 ,HO2H[1] WDEP_H2O2 ,kg ha-1 ,HO2H[2] DDEP_N2O5 ,kg ha-1 ,N2O5[1] WDEP_N2O5 ,kg ha-1 ,N2O5[2] DDEP_HONO ,kg ha-1 ,HONO[1] WDEP_HONO ,kg ha-1 ,HONO[2] DDEP_HNO3 ,kg ha-1 ,HNO3[1] WDEP_HNO3 ,kg ha-1 ,HNO3[2] DDEP_NTR ,kg ha-1 ,RNO3[1] WDEP_NTR ,kg ha-1 ,RNO3[2] DDEP_PANT ,kg ha-1 ,PAN[1]+PAN2[1]+PBZN[1]+MAPAN[1] WDEP_PANT ,kg ha-1 ,PAN[2]+PAN2[2]+PBZN[2]+MAPAN[2] DDEP_NH3 ,kg ha-1 ,NH3[1] WDEP_NH3 ,kg ha-1 ,NH3[2] DDEP_SO2 ,kg ha-1 ,SO2[1] DDEP_O3 ,kg ha-1 ,O3[1] WDEP_O3 ,kg ha-1 ,O3[2] DDEP_PNA ,kg ha-1 ,HNO4[1] WDEP_PNA ,kg ha-1 ,HNO4[2] !---------------------------------------------------! !------------- Aerosol Deposition ------------------! !---------------------------------------------------! DDEP_ANO3IJ ,kg ha-1 ,ANO3I[1] + ANO3J[1] DDEP_ANO3K ,kg ha-1 ,ANO3K[1] WDEP_ANO3IJK ,kg ha-1 ,ANO3I[2] + ANO3J[2] + ANO3K[2] DDEP_TNO3 ,kg ha-1 ,ANO3I[1] + ANO3J[1] + ANO3K[1] + 0.984*HNO3[1] + NO3[1] WDEP_TNO3 ,kg ha-1 ,ANO3I[2] + ANO3J[2] + ANO3K[2] + 0.984*HNO3[2] + NO3[2] DDEP_ANH4IJ ,kg ha-1 ,ANH4I[1] + ANH4J[1] DDEP_ANH4K ,kg ha-1 ,ANH4K[1] WDEP_ANH4IJK ,kg ha-1 ,ANH4I[2] + ANH4J[2] + ANH4K[2] DDEP_ASO4IJ ,kg ha-1 ,ASO4I[1] + ASO4J[1] DDEP_ASO4K ,kg ha-1 ,ASO4K[1] WDEP_ASO4IJK ,kg ha-1 ,ASO4I[2] + ASO4J[2] + ASO4K[2] DDEP_AECIJ ,kg ha-1 ,AECI[1] +AECJ[1] DDEP_AOCIJ ,kgC ha-1 ,ALVPO1I[1]/1.39 + ASVPO1I[1]/1.32 + ASVPO2I[1]/1.26 \ +ALVPO1J[1]/1.39 + ASVPO1J[1]/1.32 + ASVPO2J[1]/1.26 \ +ASVPO3J[1]/1.21 + AIVPO1J[1]/1.17 \ +ALVOO1I[1]/2.27 + ALVOO2I[1]/2.06 \ +ASVOO1I[1]/1.88 + ASVOO2I[1]/1.73 \ +AXYL1J[1]/2.42 + AXYL2J[1]/1.93 + AXYL3J[1]/2.30 \ +ATOL1J[1]/2.26 + ATOL2J[1]/1.82 + ATOL3J[1]/2.70 \ +ABNZ1J[1]/2.68 + ABNZ2J[1]/2.23 + ABNZ3J[1]/3.00 \ +AISO1J[1]/2.20 + AISO2J[1]/2.23 + AISO3J[1]/2.80 \ +ATRP1J[1]/1.84 + ATRP2J[1]/1.83 + ASQTJ[1]/1.52 \ +AALK1J[1]/1.56 + AALK2J[1]/1.42 \ +AORGCJ[1]/2.00 + AOLGBJ[1]/2.10 + AOLGAJ[1]/2.50 \ +APAH1J[1]/1.63 + APAH2J[1]/1.49 + APAH3J[1]/1.77 \ +ALVOO1J[1]/2.27+ ALVOO2J[1]/2.06+ ASVOO1J[1]/1.88 \ +ASVOO2J[1]/1.73+ ASVOO3J[1]/1.60 \ +APCSOJ[1] /2.00 !DDEP_SSSO4J ,kg ha-1 ,0.2514*ANAJ[1] !DDEP_SSSO4K ,kg ha-1 ,0.2514*DDEP_ANAK[0] !WDEP_SSSO4JK ,kg ha-1 ,0.2514*ANAJ[2] + 0.2514*WDEP_ANAK[0] !-----------------------------------------------------! !-------- Total (Gas + Aerosol) Deposition -----------! !-----------------------------------------------------! DDEP_NHX ,kg ha-1 ,ANH4I[1] + ANH4J[1] + ANH4K[1] + 1.059*NH3[1] WDEP_NHX ,kg ha-1 ,ANH4I[2] + ANH4J[2] + ANH4K[2] + 1.059*NH3[2] WDEP_TSO4 ,kg ha-1 ,ASO4I[2] + ASO4J[2] + ASO4K[2] + 1.5*SO2[2] !! Sodium DDEP_ANAJ ,kg ha-1 ,ANAJ[1] DDEP_ANAK ,kg ha-1 ,0.8373*ASEACAT[1]+0.0626*ASOIL[1]+0.0023*ACORS[1] DDEP_ANAJK ,kg ha-1 ,DDEP_ANAJ[0] + DDEP_ANAK[0] WDEP_ANAK ,kg ha-1 ,0.8373*ASEACAT[2]+0.0626*ASOIL[2]+0.0023*ACORS[2] WDEP_ANAJK ,kg ha-1 ,ANAJ[2] + WDEP_ANAK[0] TDEP_ANAJK ,kg ha-1 ,DDEP_ANAJK[0] + WDEP_ANAJK[0] !! Chloride DDEP_ACLJ ,kg ha-1 ,ACLJ[1] DDEP_ACLK ,kg ha-1 ,ACLK[1] DDEP_ACLJK ,kg ha-1 ,ACLJ[1] + ACLK[1] WDEP_TCL ,kg ha-1 ,0.972*HCL[2]+0.435*CLNO2[2] + ACLJ[2] + ACLK[2] TDEP_CL ,kg ha-1 ,DDEP_ACLJK[0] + WDEP_TCL[0] !! Calcium DDEP_CAJ ,kg ha-1 ,ACAJ[1] WDEP_CAJ ,kg ha-1 ,ACAJ[2] DDEP_CAK ,kg ha-1 ,0.0320*ASEACAT[1]+0.0838*ASOIL[1]+0.0562*ACORS[1] WDEP_CAK ,kg ha-1 ,0.0320*ASEACAT[2]+0.0838*ASOIL[2]+0.0562*ACORS[2] DDEP_CAJK ,kg ha-1 ,ACAJ[1]+DDEP_CAK[0] WDEP_CAJK ,kg ha-1 ,ACAJ[2]+WDEP_CAK[0] !! Iron DDEP_FEJ ,kg ha-1 ,AFEJ[1] WDEP_FEJ ,kg ha-1 ,AFEJ[2] !! Aluminum DDEP_ALJ ,kg ha-1 ,AALJ[1] WDEP_ALJ ,kg ha-1 ,AALJ[2] !! Silicon DDEP_SIJ ,kg ha-1 ,ASIJ[1] WDEP_SIJ ,kg ha-1 ,ASIJ[2] !! Titanium DDEP_TIJ ,kg ha-1 ,ATIJ[1] WDEP_TIJ ,kg ha-1 ,ATIJ[2] !! Magnesium DDEP_MGJ ,kg ha-1 ,AMGJ[1] WDEP_MGJ ,kg ha-1 ,AMGJ[2] DDEP_MGK ,kg ha-1 ,0.0997*ASEACAT[1]+0.0170*ASOIL[1]+0.0032*ACORS[1] WDEP_MGK ,kg ha-1 ,0.0997*ASEACAT[2]+0.0170*ASOIL[2]+0.0032*ACORS[2] DDEP_MGJK ,kg ha-1 ,AMGJ[1]+DDEP_MGK[0] WDEP_MGJK ,kg ha-1 ,AMGJ[2]+WDEP_MGK[0] !! Potassium DDEP_KJ ,kg ha-1 ,AKJ[1] WDEP_KJ ,kg ha-1 ,AKJ[2] DDEP_KK ,kg ha-1 ,0.0310*ASEACAT[1]+0.0242*ASOIL[1]+0.0176*ACORS[1] WDEP_KK ,kg ha-1 ,0.0310*ASEACAT[2]+0.0242*ASOIL[2]+0.0176*ACORS[2] DDEP_KJK ,kg ha-1 ,AKJ[1]+DDEP_KK[0] WDEP_KJK ,kg ha-1 ,AKJ[2]+WDEP_KK[0] !! Manganese DDEP_MNJ ,kg ha-1 ,AMNJ[1] WDEP_MNJ ,kg ha-1 ,AMNJ[2] !---------------------------------------------------! !------------- Nitrogen Deposition -----------------! !---------------------------------------------------! DD_OXN_NOX ,kgN ha-1 ,0.30435*NO2[1] + 0.46667*NO[1] WD_OXN_NOX ,kgN ha-1 ,0.30435*NO2[2] + 0.46667*NO[2] DD_OXN_TNO3 ,kgN ha-1 ,0.22581*DDEP_TNO3[0] WD_OXN_TNO3 ,kgN ha-1 ,0.22581*WDEP_TNO3[0] DD_OXN_PANT ,kgN ha-1 ,0.11570*DDEP_PANT[0] WD_OXN_PANT ,kgN ha-1 ,0.11570*WDEP_PANT[0] DD_OXN_ORGN ,kgN ha-1 ,0.10770*(DDEP_NTR[0]) WD_OXN_ORGN ,kgN ha-1 ,0.10770*(WDEP_NTR[0]) DD_OXN_OTHR ,kgN ha-1 ,0.25926*N2O5[1] + 0.29787*HONO[1]+0.17720*HNO4[1]+0.1717*CLNO2[1] WD_OXN_OTHR ,kgN ha-1 ,0.25926*N2O5[2] + 0.29787*HONO[2]+0.17720*HNO4[2]+0.1717*CLNO2[2] DD_OXN_TOT ,kgN ha-1 ,DD_OXN_NOX[0] + DD_OXN_TNO3[0] + DD_OXN_PANT[0] + DD_OXN_ORGN[0] + DD_OXN_OTHR[0] WD_OXN_TOT ,kgN ha-1 ,WD_OXN_NOX[0] + WD_OXN_TNO3[0] + WD_OXN_PANT[0] + WD_OXN_ORGN[0] + WD_OXN_OTHR[0] TD_OXN_TOT ,kgN ha-1 ,DD_OXN_TOT[0] + WD_OXN_TOT[0] DD_REDN_TOT ,kgN ha-1 ,0.7777*DDEP_NHX[0] WD_REDN_TOT ,kgN ha-1 ,0.7777*WDEP_NHX[0] TD_REDN_TOT ,kgN ha-1 ,DD_REDN_TOT[0] + WD_REDN_TOT[0] DD_N_TOT ,kgN ha-1 ,DD_OXN_TOT[0] + DD_REDN_TOT[0] WD_N_TOT ,kgN ha-1 ,WD_OXN_TOT[0] + WD_REDN_TOT[0] TD_N_TOT ,kgN ha-1 ,DD_N_TOT[0] + WD_N_TOT[0] !! Nitrogen Deposition in milliequivalents Nitrogen !DD_OXN_TOTMEQ ,meqN m-2 ,7.14*DD_OXN_TOT[0] !WD_OXN_TOTMEQ ,meqN m-2 ,7.14*WD_OXN_TOT[0] !TD_OXN_TOTMEQ ,meqN m-2 ,DD_OXN_TOTMEQ[0] + WD_OXN_TOTMEQ[0] !DD_REDN_TOTMEQ ,meqN m-2 ,7.14*DD_REDN_TOT[0] !WD_REDN_TOTMEQ ,meqN m-2 ,7.14*WD_REDN_TOT[0] !TD_REDN_TOTMEQ ,meqN m-2 ,DD_REDN_TOTMEQ[0] + WD_REDN_TOTMEQ[0] !DD_N_TOTMEQ ,meqN m-2 ,DD_OXN_TOTMEQ[0] + DD_REDN_TOTMEQ[0] !WD_N_TOTMEQ ,meqN m-2 ,WD_OXN_TOTMEQ[0] + WD_REDN_TOTMEQ[0] !TD_N_TOTMEQ ,meqN m-2 ,DD_N_TOTMEQ[0] + WD_N_TOTMEQ[0] !-------------------------------------------------! !------------- Sulfur Deposition -----------------! !-------------------------------------------------! DD_S_TOT ,kgS ha-1 ,0.5*SO2[1] + 0.33333*ASO4I[1] + 0.33333*ASO4J[1] + 0.33333*ASO4K[1] WD_S_TOT ,kgS ha-1 ,0.33333*WDEP_TSO4[0] TD_S_TOT ,kgS ha-1 ,DD_S_TOT[0] + WD_S_TOT[0] !DD_S_SeaS ,kgS ha-1 ,0.33333*DDEP_SSSO4J[0] + 0.33333*DDEP_SSSO4K[0] !WD_S_SeaS ,kgS ha-1 ,0.33333*WDEP_SSSO4JK[0] !TD_S_SeaS ,kgS ha-1 ,DD_S_SeaS[0] + WD_S_SeaS[0] !! Sulfur Deposition in milliequivalents Sulfur !DD_S_TOTMEQ ,meqS m-2 ,6.24*DD_S_TOT[0] !WD_S_TOTMEQ ,meqS m-2 ,6.24*WD_S_TOT[0] !TD_S_TOTMEQ ,meqS m-2 ,DD_S_TOTMEQ[0] + WD_S_TOTMEQ[0] !DD_S_SeaSMEQ ,meqS m-2 ,6.24*DD_S_SeaS[0] !WD_S_SeaSMEQ ,meqS m-2 ,6.24*WD_S_SeaS[0] !TD_S_SeaSMEQ ,meqS m-2 ,DD_S_SeaSMEQ[0] + WD_S_SeaSMEQ[0] ================================================ FILE: CCTM/src/MECHS/saprc07tc_ae6_aq/SpecDef_saprc07tc_ae6_aq.txt ================================================ !#start YYYYJJJ 010000 !#end YYYYJJJ 000000 #layer 1 / ! This Species Definition File is for Use with the COMBINE tool built for ! post-processing CMAQ output. It is compatible with CMAQv5.2. ! Date: May 12 2017 ! Output variables that begin with 'PM' represent those in which a size cut was ! applied based on modeled aerosol mode parameters. For example, PM25_NA is all ! sodium that falls below 2.5 um diameter. These 'PM' variables are used for ! comparisons at IMPROVE and CSN sites. ! Output variables that begin with 'PMAMS' represent the mass that would have ! been detected by an Aerosol Mass Spectrometer. ! Output variables beginning with 'A' (aside from AIR_DENS) represent a ! combination of aerosol species in which no size cut was applied. For example, ! ASO4IJ is the sum of i-mode and j-mode sulfate. These 'A' variables are used ! for comparisons at CASTNet sites. ! Output variables beginning with 'PMC' refer to the coarse fraction of total PM, ! computed by summing all modes and subtracting the PM2.5 fraction. These 'PMC' ! variables are used for comparisons at SEARCH sites. ! This Species Definition File is just for use with the uncoupled, offline CMAQ, ! model. If you are processing WRF-CMAQ results, a different Species Definition ! file is required. / File [1]: CMAQ conc/aconc file / File [2]: METCRO3D file / File [3]: ELMO/AELMO file / File [4]: METCRO2D file / /new species ,units ,expression !-------------------------------------------! !------------- Meteorology -----------------! !-------------------------------------------! AIR_DENS ,kg m-3 ,DENS[2] RH ,1 ,100.00*RH[3] SFC_TMP ,C ,(TEMP2[4]-273.15) PBLH ,m ,PBL[4] SOL_RAD ,W m-2 ,RGRND[4] precip ,cm ,RC[4]>=0 ? RN[4]+RC[4] : RN[4] WSPD10 ,m s-1 ,WSPD10[4] WDIR10 ,deg ,WDIR10[4] !-------------------------------------------! !--------------- Gases ---------------------! !-------------------------------------------! ALD2 ,ppbV ,1000.0*CCHO[1] BENZENE ,ppbV ,1000.0*BENZENE[1] CO ,ppbV ,1000.0*CO[1] ETH ,ppbV ,1000.0*ETHENE[1] ETHA ,ppbV ,1000.0*ALK1[1] FORM ,ppbV ,1000.0*HCHO[1] H2O2 ,ppbV ,1000.0*HO2H[1] HNO3 ,ppbV ,1000.0*HNO3[1] HNO3_UGM3 ,ug m-3 ,1000.0*(HNO3[1]*2.1756*DENS[2]) HONO ,ppbV ,1000.0*HONO[1] HOX ,ppbV ,1000.0*(OH[1]+HO2[1]) OH ,ppbV ,1000.0*(OH[1]) ISOP ,ppbV ,1000.0*ISOPRENE[1] N2O5 ,ppbV ,1000.0*N2O5[1] NH3 ,ppbV ,1000.0*NH3[1] NH3_UGM3 ,ug m-3 ,1000.0*(NH3[1]*0.5880*DENS[2]) NHX ,ug m-3 ,1000.0*(NH3[1]*0.5880*DENS[2])+ANH4I[1]+ANH4J[1]+ANH4K[1] NO ,ppbV ,1000.0*NO[1] NO2 ,ppbV ,1000.0*NO2[1] NOX ,ppbV ,1000.0*(NO[1]+NO2[1]) ANO3_PPB ,ppbV ,(ANO3I[1]+ANO3J[1]+ANO3K[1])/(DENS[2]*(62.0/28.97)) NTR ,ppbV ,1000.0*RNO3[1] PANs ,ppbV ,1000.0*(PAN[1]+PAN2[1]+PBZN[1]+MAPAN[1]) CLNTOT ,ppbv ,1000.0*(CLNO[1]+CLONO[1]+CLNO2[1]+CLONO2[1]) NOY ,ppbV ,1000.0*(NO2[1]+NO[1]+NO3[1]+ 2.0*N2O5[1]+HONO[1]+HNO3[1]+ \ HNO4[1]+RNO3[1]+NPHE[1])+PANs[0]+CLNTOT[0]+ANO3_PPB[0] O3 ,ppbV ,1000.0*O3[1] SO2 ,ppbV ,1000.0*SO2[1] SO2_UGM3 ,ug m-3 ,1000.0*(SO2[1]*2.2118*DENS[2]) TERPTOT ,ppbV ,1000.0*(TERP[1]+APIN[1]) APIN ,ppbV ,1000.0*APIN[1] TOL ,ppbV ,1000.0*TOLUENE[1] XYL ,ppbV ,1000.0*(MXYL[1]+OXYL[1]+PXYL[1]) ALK ,ppbC ,1000.*(2.*ALK1[1]+3.*ALK2[1]+4.*ALK3[1]+5.*ALK4[1]+8.*ALK5[1]) !! Unused Gases. Presented Here for illustration. Users can uncomment !! them if they choose. !ALDX ,ppbV ,1000.0*ALDX[1] !HCHO ,ppbV ,1000.0*HCHO[1] !CLNO2 ,ppbV ,1000.0*CLNO2[1] !CLNTOT ,ppbv ,1000.0*(CLNO[1]+CLONO[1]+CLNO2[1]+CLONO2[1]) !PAN ,ppbV ,1000.0*PAN[1] !PANX ,ppbV ,1000.0*PAN2[1] !PANTOT ,ppbV ,1000.0*(PAN[1]+PAN2[1]+PBZN[1]+MAPAN[1]) !SULF ,ppbV ,1000.0*SULF[1] !ACIDS ,ppbC ,1000.*(3.*RCOOH[1]+2.*CCOOH[1]+HCOOH[1]) !VOC ,ppbC ,1000.*(3.*ACETONE[1]+2.*ACETYLENE[1]+3.*ACROLEIN[1]+ \ ! 4.*BACL[1]+4.*BUTADIENE13[1]+2.*CCHO[1]+7.*CRES[1]+ \ ! 2.*ETHENE[1]+2.*ETOH[1]+2*GLY[1]+HCHO[1]+4.*MEK[1]+ \ ! MEOH[1]+3.*MGLY[1]+4.*MVK[1]+5.*OLE1[1]+5.*OLE2[1]+ \ ! 6.*PRD2[1]+3.*PROPENE[1]+3.*RCHO[1]+6.0*RNO3[1])+ \ ! BIOG[0]+AROM[0]+ALK[0]+ACIDS[0] !-------------------------------------------! !--------------- Particles -----------------! !-------------------------------------------! !! Crustal Elements AFEJ ,ug m-3 ,AFEJ[1] AALJ ,ug m-3 ,AALJ[1] ASIJ ,ug m-3 ,ASIJ[1] ATIJ ,ug m-3 ,ATIJ[1] ACAJ ,ug m-3 ,ACAJ[1] AMGJ ,ug m-3 ,AMGJ[1] AKJ ,ug m-3 ,AKJ[1] AMNJ ,ug m-3 ,AMNJ[1] ASOILJ ,ug m-3 ,2.20*AALJ[1]+2.49*ASIJ[1]+1.63*ACAJ[1]+2.42*AFEJ[1]+1.94*ATIJ[1] !! Non-Crustal Inorganic Particle Species AHPLUSIJ ,ug m-3 ,PMF_HP[3] ANAK ,ug m-3 ,PMC_NA[3] AMGK ,ug m-3 ,PMC_MG[3] AKK ,ug m-3 ,PMC_K[3] ACAK ,ug m-3 ,PMC_CA[3] ACLIJ ,ug m-3 ,PMF_CL[3] AECIJ ,ug m-3 ,PMF_EC[3] ANAIJ ,ug m-3 ,PMF_NA[3] ANO3IJ ,ug m-3 ,PMF_NO3[3] ANO3K ,ug m-3 ,PMC_NO3[3] TNO3 ,ug m-3 ,TNO3[3] ANH4IJ ,ug m-3 ,PMF_NH4[3] ANH4K ,ug m-3 ,PMC_NH4[3] ASO4IJ ,ug m-3 ,PMF_SO4[3] ASO4K ,ug m-3 ,PMC_SO4[3] !! Organic Particle Species APOCIJ ,ugC m-3 ,PMF_POC[3] APOMIJ ,ug m-3 ,PMF_POA[3] ASOCIJ ,ugC m-3 ,PMF_SOC[3] ASOMIJ ,ug m-3 ,PMF_SOA[3] AOCIJ ,ugC m-3 ,PMF_OC[3] AOMIJ ,ug m-3 ,PMF_OA[3] !!! Anthropogenic-VOC Derived Organic Aerosol AORGAJ ,ug m-3 ,PMF_ASOA[3] !!! Biogenic-VOC Derived Organic Aerosol AORGBJ ,ug m-3 ,PMF_BSOA[3] !!! Cloud-Processed SOA AORGCJ ,ug m-3 ,AORGCJ[1] !!! OM/OC ratios AOMOCRAT_TOT , ,PMF_OMOC[3] !! Total PM Aggregates ATOTI ,ug m-3 ,PMAIT_MASS[3] ATOTJ ,ug m-3 ,PMACC_MASS[3] ATOTK ,ug m-3 ,PMC_MASS[3] ATOTIJ ,ug m-3 ,PMF_MASS[3] ATOTIJK ,ug m-3 ,PM_MASS[3] !! Unspeciated PM including non-carbon organic mass AUNSPEC1IJ ,ug m-3 ,PMF_UN_IMPV1[3] !! Non-Carbon Organic Mass ANCOMIJ ,ug m-3 ,PMF_NCOM[3] !! Unspeciated PM excluding non-carbon organic mass AUNSPEC2IJ ,ug m-3 ,PMF_UN_IMPV2[3] !! AMS Projection of Output Concentrations PMAMS_CL ,ug m-3 ,PMAMS_CL[3] PMAMS_NH4 ,ug m-3 ,PMAMS_NH4[3] PMAMS_NO3 ,ug m-3 ,PMAMS_NO3[3] PMAMS_OA ,ug m-3 ,PMAMS_OA[3] PMAMS_SO4 ,ug m-3 ,PMAMS_SO4[3] !! PM1 Cutoff Output PM1_TOT ,ug m-3 ,PM1[3] !! Unused PM1 Species. Included Here for demonstration !PM1_EC ,ug m-3 ,PM1_EC[3] !PM1_OC ,ugC m-3 ,PM1_OC[3] !PM1_OM ,ug m-3 ,PM1_OA[3] !PM1_SO4 ,ug m-3 ,PM1_SO4[3] !PM1_CL ,ug m-3 ,PM1_CL[3] !PM1_NA ,ug m-3 ,PM1_NA[3] !PM1_MG ,ug m-3 ,PM1_MG[3] !PM1_K ,ug m-3 ,PM1_K[3] !PM1_CA ,ug m-3 ,PM1_CA[3] !PM1_NH4 ,ug m-3 ,PM1_NH4[3] !PM1_NO3 ,ug m-3 ,PM1_NO3[3] !PM1_SOIL ,ug m-3 ,PM1_SOIL[3] !PM1_UNSPEC1 ,ug m-3 ,PM1_UNSP1[3] !PM1_UNSPCRS ,ug m-3 ,PM1_UNSPCRS[3] !! PM2.5 species computed using modeled size distribution PM25_HP ,ug m-3 ,PM25_HP[3] PM25_CL ,ug m-3 ,PM25_CL[3] PM25_EC ,ug m-3 ,PM25_EC[3] PM25_NA ,ug m-3 ,PM25_NA[3] PM25_MG ,ug m-3 ,PM25_MG[3] PM25_K ,ug m-3 ,PM25_K[3] PM25_CA ,ug m-3 ,PM25_CA[3] PM25_NH4 ,ug m-3 ,PM25_NH4[3] PM25_NO3 ,ug m-3 ,PM25_NO3[3] PM25_OC ,ugC m-3 ,PM25_OC[3] PM25_OM ,ug m-3 ,PM25_OA[3] PM25_SOIL ,ug m-3 ,PM25_SOIL[3] PM25_SO4 ,ug m-3 ,PM25_SO4[3] PM25_TOT ,ug m-3 ,PM25[3] PM25_UNSPEC1 ,ug m-3 ,PM25_UNSP1[3] PM25_UNSPCRS ,ug m-3 ,PM25_UNSPCRS[3] !! PM10.0 and Coarse-Sized Species PM10 ,ug m-3 ,PM10[3] PMC_CL ,ug m-3 ,PM25TO10_CL[3] PMC_NA ,ug m-3 ,PM25TO10_NA[3] PMC_NH4 ,ug m-3 ,PM25TO10_NH4[3] PMC_NO3 ,ug m-3 ,PM25TO10_NO3[3] PMC_SO4 ,ug m-3 ,PM25TO10_SO4[3] PMC_TOT ,ug m-3 ,PM25TO10[3] !! FRM PM Equivalent Calculation PMIJ_FRM ,ug m-3 ,PMF_FRM[3] PM25_FRM ,ug m-3 ,PM25_FRM[3] ================================================ FILE: CCTM/src/MECHS/saprc07tc_ae6_aq/mech_saprc07tc_ae6_aq.def ================================================ ! RCS file, release, date & time of last delta, author, state, [and locker] ! $Header: /project/yoj/arc/MECHS/src/saprc07tc_ae6_aq/mech.def,v 1.1 2011/04/06 16:38:07 sjr Exp $ ! what(1) key, module and SID; SCCS file; date and time of last delta: ! %W% %P% %G% %U% ! 01/20/2010: B. Hutzell created based on SAPRC07T Mechanism, version "C" ! from William Carter dated 12-Jan-2010 09:56. The version from ! Carter incoporates comments from CARB peer review and corrects ! errors explained in Appendix E of the SAPRC07 report. ! 1) Added species and reactions for secondary organic aerosol ! production as represented in the CMAQ AERO5 alogrithm. ! 2) Added reactive tracers for HCHO, CCHO, and ACROLEIN emissions ! 01/26/2010 B. Hutzell corrected rate constants for reactions 11, 12, 20, BR18 ! and BR19 noticed by Sharon Shearer at UC Berkeley on Jan 22, 2010 ! For reactions 11 and 12, the fall off parameter changed from &1.0 ! to &1.33. For reaction 20, the rate constant went from 1.63e-10 to ! 1.63e-10@-60. For reactions BR18 and BR19, the fall off parameter ! changed from &1.0 to &1.41. ! 03/04/2010 B. Hutzell changed the rate constant for N2O5 and H2O termmolecular ! reactions to zero and cut the bimolecular rate constant for N2O5 and H2O ! to 1.0e-22 from 2.2e-22 based on preferences in IUPAC 2010 data sheet ! 05/30/2012 B. Hutzell corrected Reaction TR10 so product is CL not HCL ! 05/31/2012 B. Hutzell changed OH + NO2 rate constant to recommndations given ! in supplementary material for Mollner et al. (2010), Science 330, 646. ! 07/15/14 B.Hutzell Added inorganic heterogeneous reactions for N2O5 and NO2, ! oligomerization reactions for SOA species and aging reactions for primary ! organic carbon and non-carbon aerosol species ! B.Hutzell 11/3/14 ! -changed ALK5RXN yield in reaction from 1.0 to 0.47 based on SOA updates ! suggested by H.Pye for cb05e51_ae6_aq ! -Modified by splitting oligomerization into two reactions: one for each ! Alkene SOA species. The new species were introduced in cb05e51_ae6_aq ! Golam Sarwar 12/02/14 ! -Added ozone loss representing a simplification halogen reactions chemistry over sea-water ! B.Hutzell 01/27/15 ! 1) implemented the nonaromatic changes found in the supplementary material for the paper: ! Carter and Gookyoung (2013), Development of revised SAPRC aromatics mechanisms, Atm. Env., ! vol. 77, pp 404-414, http://dx.doi.org/10.1016/j.atmosenv.2013.05.021. ! (http://www.sciencedirect.com/science/article/pii/S1352231013003646) ! a) modified reaction BR22, BR32, BR43, and BR55, the MECO3, RCO3, BZCO3, and MACO3 reactions ! with HO2 based on IUPAC (2009) recommendations for HO2 + acyl radical reactions: ! http://iupac.pole-ether.fr/htdocs/datasheets/pdf/HOx_VOC54_HO2_CH3CO3.pdf (last accessed Jan. 2015). ! b) corrected reaction BE10, ACETYLENE + NO3, by setting the temperature power for k0 to zero ! and setting temperature for kinf to -2 ! c) corrected reaction BE04, ETHENE + NO3, by setting the temperature power to zero ! d) revised GLY reactions with OH and NO3 based IUPAC (2008) recomendation that introduces a new ! peroxy radical species HCOCO3: ! http://iupac.pole-ether.fr/htdocs/datasheets/pdf/HOx_VOC16_HO_(CHO)2.pdf (last accessed Jan. 2015). ! 2) revised N2O5 + H2O heterogeneous reaction to yield HNO3 and CLNO2 mechanism based on Sarwar et al. (2014) ! Importance of tropospheric ClNO2 chemistry across the Northern Hemisphere, GRL. vol. 41, pp. 4050-4058. ! 3) changed the OH + NO2 reaction based on the recommendation of the IUPAC datasheet: ! http://iupac.pole-ether.fr/htdocs/datasheets/pdf/NOx13_HO_NO2.pdf (last accessed Jan. 2015). ! 4) removed species NO2EX, excited NO2, and its reactions ! ! changes added DJL ! 20-August-2015: Luecken implementing Pye changes to alkane and PAH SOA ! 1. added reaction SOAALK + OH = OH + ALKRXN # 2.70e-12@-374; ! (removed ALK5RXN from BL05, now treated by ALKRXN in ) ! 2. changed BL15 to (ARO2MN+OH) and added BL15b (NAPHTHAL+OH) to separate ! napthalene (which now makes PAHRO2) from ARO2 (which makes XYLRO2) ! (removed ARO2 and added ARO2MN. Added NAPHTHAL and PAHRO2.) ! 3. changed to (ARO2MN+CL) and (NAPHTHAL+CL) ! 4. added reactions PAHRO2 + NO and PAHRO2 + HO2 to make ! PAHNRXN and PAHHRXN. (Added PAHNRXN and PAHHRXN). ! shortened some species names to 12 characters ! 1. TRIMETH_BENZ124 changed to TMBENZ124 ! 2. ACROLEIN_PRIMARY changed to ACRO_PRIMARY ! changes to produce isoprene hydroperoxide and epoxy diol (for SOA) ! 1. represent peroxy radical reaction with HO2 separately (change yR6OOH to ! yISOPOOH in BE06) ! --> added species yISOPOOH ! 2. added reactions to form ISOPOOH from yISOPOOH - copy reactions P181-P190 ! to P181a-P190a (makes ISOPOOH instead of R6OOH and removes yISOPOOH if ! does not react with HO2) ! --> added species ISOPOOH. ! 3. added reactions of ISOPOOH to make IEPOX - copy reactions IS88, IS89, ! and IS92 from saprc07tic here with the following changes to make species ! compatible: ! - change HC5 to RCHO ! - change HACET to MEK ! - change ISOPO2 (rxn IS89) to the products that of ISOPO2 (from Xie ! mechanism, which are xMVK, xMACR, RO2C, xRNO3, xHCHO, xRCHO, xHO2, ! yISOPOOH and ARO2MN (not a good way to represent just NO reaction) ! - made 100% ISOPOOH from reaction of ISOPO2+HO2 (no acyl peroxy radical) ! 4. added reactions of IEPOX from saprc07tic (IS90, IS91, IS96, IS112-IS114) ! - left reactions unchanged except to substitute HACET with MEK ! - added species IEPOXOO ! added ISOPRXN to represent SOA formation from isoprene+NO3 (rxn BE08) ! 5. added heterogeneous reaction that produces SOA as species AISO3 from ! IEPOX ! ! 08/27/15 B.Hutzell update coefficients for ozone loss based on a parameterization ! of marine halogen chemistry. Their changes recommended by G. Sarwar on 06/25/15 ! 05-25-17 B.Hutzell ! 1. updated the oligomerization reactions to be consistent with the ! saprc07tic_ae6_aq mechanism. ! 03-04-21 G.Sarwar ! updated SAPRC07TC_AE6_AQ ELIMINATE = XN; XC; END ELIMINATE REACTIONS [CM] = <1> NO2 = NO + O3P # 1.0/; <2> O3P + O2 + M = O3 # 5.68e-34^-2.60; <3> O3P + O3 = # 8.00e-12@2060; <4> O3P + NO = NO2 # 9.00e-32^-1.50&3.00e-11&0.60&1.0; <5> O3P + NO2 = NO # 5.50e-12@-188; <6> O3P + NO2 = NO3 # 2.50e-31^-1.80&2.20e-11^-0.70&0.60&1.0; <7> O3 + NO = NO2 # 3.00e-12@1500; <8> O3 + NO2 = NO3 # 1.40e-13@2470; <9> NO + NO3 = 2*NO2 # 1.80e-11@-110; <10> NO + NO + O2 = 2*NO2 # 3.30e-39@-530; <11> NO2 + NO3 = N2O5 # 3.60e-30^-4.10&1.90e-12^0.20&0.35&1.33; <12> N2O5 = NO2 + NO3 # 1.30e-03^-3.50@11000&9.70e+14^0.10@11080&0.35&1.33; <13> N2O5 + H2O = 2*HNO3 # 1.00e-22; <14> N2O5 + H2O + H2O = 2*HNO3 # 0.0e+00; !<14> N2O5 + H2O + H2O = 2*HNO3 # 1.80e-39; <15> NO2 + NO3 = NO + NO2 # 4.50e-14@1260; <16> NO3 = NO # 1.0/; <17> NO3 = NO2 + O3P # 1.0/; <18> O3 = O1D # 1.0/; <19> O3 = O3P # 1.0/; <20> O1D + H2O = 2*OH # 1.63e-10@-60; <21> O1D + M = O3P # 2.38e-11@-96; <22> OH + NO = HONO # 7.00e-31^-2.60&3.60e-11^-0.10&0.60&1.0; <23> HONO = OH + NO # 1.0/; <24> OH + HONO = NO2 # 2.50e-12@-260; <25> OH + NO2 = HNO3 # 3.2e-30^-4.50&3.0e-11&0.41&1.24; <26> OH + NO3 = HO2 + NO2 # 2.00e-11; <27> OH + HNO3 = NO3 %2 # 2.40e-14@-460&2.70e-17@-2199&6.50e-34@-1335; <28> HNO3 = OH + NO2 # 1.0/; <29> OH + CO = HO2 + CO2 %3 # 1.44e-13@0&3.43e-33@0; <30> OH + O3 = HO2 # 1.70e-12@940; <31> HO2 + NO = OH + NO2 # 3.60e-12@-270; <32> HO2 + NO2 = HNO4 # 2.00e-31^-3.40&2.90e-12^-1.10&0.60&1.0; <33> HNO4 = HO2 + NO2 # 3.72e-05^-2.40@10650&5.42e+15^-2.30@11170&0.60&1.0; <34> HNO4 = 0.61*HO2 + 0.61*NO2 + 0.39*OH + 0.39*NO3 # 1.0/; <35> HNO4 + OH = NO2 # 1.30e-12@-380; <36> HO2 + O3 = OH # 2.03e-16^4.57@-693; <37> HO2 + HO2 = HO2H %3 # 2.20e-13@-600&1.90e-33@-980; <38> HO2 + HO2 + H2O = HO2H %3 # 3.08e-34@-2800&2.66e-54@-3180; <39> NO3 + HO2 = 0.8*OH + 0.8*NO2 + 0.2*HNO3 # 4.00e-12; <40> NO3 + NO3 = 2*NO2 # 8.50e-13@2450; <41> HO2H = 2*OH # 1.0/; <42> HO2H + OH = HO2 # 1.80e-12; <43> OH + HO2 = # 4.80e-11@-250; <44> OH + SO2 = HO2 + SULF + SULRXN # 3.30e-31^-4.30&1.60e-12&0.60&1.0; <45> OH + H2 = HO2 # 7.70e-12@2100; MEO2 + NO = NO2 + HCHO + HO2 # 2.30e-12@-360; MEO2 + HO2 = COOH # 3.46e-13^0.36@-780; MEO2 + HO2 = HCHO # 3.34e-14^-3.53@-780; MEO2 + NO3 = HCHO + HO2 + NO2 # 1.30e-12; MEO2 + MEO2 = MEOH + HCHO # 6.39e-14^-1.80@-365; MEO2 + MEO2 = 2*HCHO + 2*HO2 # 7.40e-13@520; RO2C + NO = NO2 # 2.60e-12@-380; RO2C + HO2 = # 3.80e-13@-900; RO2C + NO3 = NO2 # 2.30e-12; RO2C + MEO2 = 0.5*HO2 + 0.75*HCHO + 0.25*MEOH # 2.00e-13; RO2C + RO2C = # 3.50e-14; RO2XC + NO = XN # 1.0*K; RO2XC + HO2 = # 1.0*K; RO2XC + NO3 = NO2 # 1.0*K; RO2XC + MEO2 = 0.5*HO2 + 0.75*HCHO + 0.25*MEOH # 1.0*K; RO2XC + RO2C = # 1.0*K; RO2XC + RO2XC = # 1.0*K; MECO3 + NO2 = PAN # 2.70e-28^-7.10&1.21e-11^-0.90&0.30&1.41; PAN = MECO3 + NO2 # 4.90e-03@12100&4.00e+16@13600&0.30&1.41; PAN = 0.6*MECO3 + 0.6*NO2 + 0.4*MEO2 + 0.4*CO2 + 0.4*NO3 # 1.0/; MECO3 + NO = MEO2 + CO2 + NO2 # 7.50e-12@-290; !revised acyl peroxy reaction with HO2 but splitting organic acid into two parts MECO3 + HO2 = 0.105*CCOOOH + 0.045*CCOOH + 0.15*O3 + 0.44*OH + 0.44*MEO2 + 0.44*CO2 # 5.20e-13@-980; MECO3 + NO3 = MEO2 + CO2 + NO2 # 1.0*K; MECO3 + MEO2 = 0.1*CCOOH + 0.1*HCHO + 0.9*HCHO + 0.9*HO2 + 0.9*MEO2 + 0.9*CO2 # 2.00e-12@-500; MECO3 + RO2C = MEO2 + CO2 # 4.40e-13@-1070; MECO3 + RO2XC = MEO2 + CO2 # 1.0*K; MECO3 + MECO3 = 2*MEO2 + 2*CO2 # 2.90e-12@-500; RCO3 + NO2 = PAN2 # 1.21e-11^-1.07@0; PAN2 = RCO3 + NO2 # 8.30e+16@13940; PAN2 = 0.6*RCO3 + 0.6*NO2 + 0.4*RO2C + 0.4*xHO2 + 0.4*yROOH + 0.4*xCCHO + 0.4*CO2 + 0.4*NO3 # 1.0/; RCO3 + NO = NO2 + RO2C + xHO2 + yROOH + xCCHO + CO2 # 6.70e-12@-340; !revised acyl peroxy reaction with HO2 but splitting organic acid into two parts RCO3 + HO2 = 0.3075*RCOOOH + .1025*RCOOH + 0.15*O3 + 0.44*OH + 0.44*xHO2 + 0.44*RO2C + 0.44*CO2 + 0.44*xCCHO + 0.44*yROOH # 1.0*K; RCO3 + NO3 = NO2 + RO2C + xHO2 + yROOH + xCCHO + CO2 # 1.0*K; RCO3 + MEO2 = HCHO + HO2 + RO2C + xHO2 + xCCHO + yROOH + CO2 # 1.0*K; RCO3 + RO2C = RO2C + xHO2 + xCCHO + yROOH + CO2 # 1.0*K; RCO3 + RO2XC = RO2C + xHO2 + xCCHO + yROOH + CO2 # 1.0*K; RCO3 + MECO3 = 2*CO2 + MEO2 + RO2C + xHO2 + yROOH + xCCHO # 1.0*K; RCO3 + RCO3 = 2*RO2C + 2*xHO2 + 2*xCCHO + 2*yROOH + 2*CO2 # 1.0*K; BZCO3 + NO2 = PBZN # 1.37e-11; PBZN = BZCO3 + NO2 # 7.90e+16@14000; PBZN = 0.6*BZCO3 + 0.6*NO2 + 0.4*CO2 + 0.4*BZO + 0.4*RO2C + 0.4*NO3 # 1.0/; BZCO3 + NO = NO2 + CO2 + BZO + RO2C # 1.0*K; !revised acyl peroxy reaction with HO2 but splitting organic acid into two parts BZCO3 + HO2 = .3075*RCOOOH + 0.1025*RCOOH + 0.15*O3 + 0.44*OH + 0.44*BZO + 0.44*RO2C + 0.44*CO2 # 1.0*K; BZCO3 + NO3 = NO2 + CO2 + BZO + RO2C # 1.0*K; BZCO3 + MEO2 = HCHO + HO2 + RO2C + BZO + CO2 # 1.0*K; BZCO3 + RO2C = RO2C + BZO + CO2 # 1.0*K; BZCO3 + RO2XC = RO2C + BZO + CO2 # 1.0*K; BZCO3 + MECO3 = 2*CO2 + MEO2 + BZO + RO2C # 1.0*K; BZCO3 + RCO3 = 2*CO2 + RO2C + xHO2 + yROOH + xCCHO + BZO + RO2C # 1.0*K; BZCO3 + BZCO3 = 2*BZO + 2*RO2C + 2*CO2 # 1.0*K; MACO3 + NO2 = MAPAN # 1.0*K; MAPAN = MACO3 + NO2 # 1.60e+16@13486; MAPAN = 0.6*MACO3 + 0.6*NO2 + 0.4*CO2 + 0.4*HCHO + 0.4*MECO3 + 0.4*NO3 # 1.0/; MACO3 + NO = NO2 + CO2 + HCHO + MECO3 # 1.0*K; !revised acyl peroxy reaction with HO2 but splitting organic acid into two parts MACO3 + HO2 = 0.3075*RCOOOH + 0.1025*RCOOH + 0.15*O3 + 0.44*OH + 0.44*HCHO + 0.44*MECO3 + 0.44*CO2 # 1.0*K; MACO3 + NO3 = NO2 + CO2 + HCHO + MECO3 # 1.0*K; MACO3 + MEO2 = 2*HCHO + HO2 + CO2 + MECO3 # 1.0*K; MACO3 + RO2C = CO2 + HCHO + MECO3 # 1.0*K; MACO3 + RO2XC = CO2 + HCHO + MECO3 # 1.0*K; MACO3 + MECO3 = 2*CO2 + MEO2 + HCHO + MECO3 # 1.0*K; MACO3 + RCO3 = HCHO + MECO3 + RO2C + xHO2 + yROOH + xCCHO + 2*CO2 # 1.0*K; MACO3 + BZCO3 = HCHO + MECO3 + BZO + RO2C + 2*CO2 # 1.0*K; MACO3 + MACO3 = 2*HCHO + 2*MECO3 + 2*CO2 # 1.0*K; TBUO + NO2 = RNO3 - 2*XC # 2.40e-11; TBUO = ACETONE + MEO2 # 7.50e+14@8152; BZO + NO2 = NPHE # 2.30e-11@-150; BZO + HO2 = CRES - 1*XC # 1.0*K; BZO = CRES + RO2C + xHO2 - 1*XC # 1.00e-03; xHO2 + NO = NO + HO2 # 1.0*K; xHO2 + HO2 = HO2 # 1.0*K; xHO2 + NO3 = NO3 + HO2 # 1.0*K; xHO2 + MEO2 = MEO2 + 0.5*HO2 # 1.0*K; xHO2 + RO2C = RO2C + 0.5*HO2 # 1.0*K; xHO2 + RO2XC = RO2XC + 0.5*HO2 # 1.0*K; xHO2 + MECO3 = MECO3 + HO2 # 1.0*K; xHO2 + RCO3 = RCO3 + HO2 # 1.0*K; xHO2 + BZCO3 = BZCO3 + HO2 # 1.0*K; xHO2 + MACO3 = MACO3 + HO2 # 1.0*K; xOH + NO = NO + OH # 1.0*K; xOH + HO2 = HO2 # 1.0*K; xOH + NO3 = NO3 + OH # 1.0*K; xOH + MEO2 = MEO2 + 0.5*OH # 1.0*K; xOH + RO2C = RO2C + 0.5*OH # 1.0*K; xOH + RO2XC = RO2XC + 0.5*OH # 1.0*K; xOH + MECO3 = MECO3 + OH # 1.0*K; xOH + RCO3 = RCO3 + OH # 1.0*K; xOH + BZCO3 = BZCO3 + OH # 1.0*K; xOH + MACO3 = MACO3 + OH # 1.0*K; xNO2 + NO = NO + NO2 # 1.0*K; xNO2 + HO2 = HO2 + XN # 1.0*K; xNO2 + NO3 = NO3 + NO2 # 1.0*K; xNO2 + MEO2 = MEO2 + 0.5*NO2 + 0.5*XN # 1.0*K; xNO2 + RO2C = RO2C + 0.5*NO2 + 0.5*XN # 1.0*K; xNO2 + RO2XC = RO2XC + 0.5*NO2 + 0.5*XN # 1.0*K; xNO2 + MECO3 = MECO3 + NO2 # 1.0*K; xNO2 + RCO3 = RCO3 + NO2 # 1.0*K; xNO2 + BZCO3 = BZCO3 + NO2 # 1.0*K; xNO2 + MACO3 = MACO3 + NO2 # 1.0*K; xMEO2 + NO = NO + MEO2 # 1.0*K; xMEO2 + HO2 = HO2 + XC # 1.0*K; xMEO2 + NO3 = NO3 + MEO2 # 1.0*K; xMEO2 + MEO2 = MEO2 + 0.5*MEO2 + 0.5*XC # 1.0*K; xMEO2 + RO2C = RO2C + 0.5*MEO2 + 0.5*XC # 1.0*K; xMEO2 + RO2XC = RO2XC + 0.5*MEO2 + 0.5*XC # 1.0*K; xMEO2 + MECO3 = MECO3 + MEO2 # 1.0*K; xMEO2 + RCO3 = RCO3 + MEO2 # 1.0*K; xMEO2 + BZCO3 = BZCO3 + MEO2 # 1.0*K; xMEO2 + MACO3 = MACO3 + MEO2 # 1.0*K; xMECO3 + NO = NO + MECO3 # 1.0*K; xMECO3 + HO2 = HO2 + 2*XC # 1.0*K; xMECO3 + NO3 = NO3 + MECO3 # 1.0*K; xMECO3 + MEO2 = MEO2 + 0.5*MECO3 + XC # 1.0*K; xMECO3 + RO2C = RO2C + 0.5*MECO3 + XC # 1.0*K; xMECO3 + RO2XC = RO2XC + 0.5*MECO3 + XC # 1.0*K; xMECO3 + MECO3 = MECO3 + MECO3 # 1.0*K; xMECO3 + RCO3 = RCO3 + MECO3 # 1.0*K; xMECO3 + BZCO3 = BZCO3 + MECO3 # 1.0*K; xMECO3 + MACO3 = MACO3 + MECO3 # 1.0*K; xRCO3 + NO = NO + RCO3 # 1.0*K; xRCO3 + HO2 = HO2 + 3*XC # 1.0*K; xRCO3 + NO3 = NO3 + RCO3 # 1.0*K; xRCO3 + MEO2 = MEO2 + 0.5*RCO3 + 1.5*XC # 1.0*K; xRCO3 + RO2C = RO2C + 0.5*RCO3 + 1.5*XC # 1.0*K; xRCO3 + RO2XC = RO2XC + 0.5*RCO3 + 1.5*XC # 1.0*K; xRCO3 + MECO3 = MECO3 + RCO3 # 1.0*K; xRCO3 + RCO3 = RCO3 + RCO3 # 1.0*K; xRCO3 + BZCO3 = BZCO3 + RCO3 # 1.0*K; xRCO3 + MACO3 = MACO3 + RCO3 # 1.0*K; xMACO3 + NO = NO + MACO3 # 1.0*K; xMACO3 + HO2 = HO2 + 4*XC # 1.0*K; xMACO3 + NO3 = NO3 + MACO3 # 1.0*K; xMACO3 + MEO2 = MEO2 + 0.5*MACO3 + 2*XC # 1.0*K; xMACO3 + RO2C = RO2C + 0.5*MACO3 + 2*XC # 1.0*K; xMACO3 + RO2XC = RO2XC + 0.5*MACO3 + 2*XC # 1.0*K; xMACO3 + MECO3 = MECO3 + MACO3 # 1.0*K; xMACO3 + RCO3 = RCO3 + MACO3 # 1.0*K; xMACO3 + BZCO3 = BZCO3 + MACO3 # 1.0*K; xMACO3 + MACO3 = MACO3 + MACO3 # 1.0*K; xTBUO + NO = NO + TBUO # 1.0*K; xTBUO + HO2 = HO2 + 4*XC # 1.0*K; xTBUO + NO3 = NO3 + TBUO # 1.0*K; xTBUO + MEO2 = MEO2 + 0.5*TBUO + 2*XC # 1.0*K; xTBUO + RO2C = RO2C + 0.5*TBUO + 2*XC # 1.0*K; xTBUO + RO2XC = RO2XC + 0.5*TBUO + 2*XC # 1.0*K; xTBUO + MECO3 = MECO3 + TBUO # 1.0*K; xTBUO + RCO3 = RCO3 + TBUO # 1.0*K; xTBUO + BZCO3 = BZCO3 + TBUO # 1.0*K; xTBUO + MACO3 = MACO3 + TBUO # 1.0*K; xCO + NO = NO + CO # 1.0*K; xCO + HO2 = HO2 + XC # 1.0*K; xCO + NO3 = NO3 + CO # 1.0*K; xCO + MEO2 = MEO2 + 0.5*CO + 0.5*XC # 1.0*K; xCO + RO2C = RO2C + 0.5*CO + 0.5*XC # 1.0*K; xCO + RO2XC = RO2XC + 0.5*CO + 0.5*XC # 1.0*K; xCO + MECO3 = MECO3 + CO # 1.0*K; xCO + RCO3 = RCO3 + CO # 1.0*K; xCO + BZCO3 = BZCO3 + CO # 1.0*K; xCO + MACO3 = MACO3 + CO # 1.0*K; HCHO = 2*HO2 + CO # 1.0/; HCHO = CO # 1.0/; HCHO + OH = HO2 + CO # 5.40e-12@-135; HCHO + NO3 = HNO3 + HO2 + CO # 2.00e-12@2431; CCHO + OH = MECO3 # 4.40e-12@-365; CCHO = CO + HO2 + MEO2 # 1.0/; CCHO + NO3 = HNO3 + MECO3 # 1.40e-12@1860; RCHO + OH = 0.965*RCO3 + 0.035*RO2C + 0.035*xHO2 + 0.035*xCO + 0.035*xCCHO + 0.035*yROOH # 5.10e-12@-405; RCHO = RO2C + xHO2 + yROOH + xCCHO + CO + HO2 # 1.0/; RCHO + NO3 = HNO3 + RCO3 # 1.40e-12@1601; ACETONE + OH = RO2C + xMECO3 + xHCHO + yROOH # 4.56e-14^3.65@-429; ACETONE = 0.62*MECO3 + 1.38*MEO2 + 0.38*CO # 5.00e-1/; MEK + OH = 0.967*RO2C + 0.039*RO2XC + 0.039*zRNO3 + 0.376*xHO2 + 0.51*xMECO3 + 0.074*xRCO3 + 0.088*xHCHO + 0.504*xCCHO + 0.376*xRCHO + yROOH + 0.3*XC # 1.30e-12^2.00@25; MEK = MECO3 + RO2C + xHO2 + xCCHO + yROOH # 1.75e-1/; MEOH + OH = HCHO + HO2 # 2.85e-12@345; HCOOH + OH = HO2 + CO2 # 4.50e-13; CCOOH + OH = 0.509*MEO2 + 0.491*RO2C + 0.509*CO2 + 0.491*xHO2 + 0.491*xMGLY + 0.491*yROOH - 0.491*XC # 4.20e-14@-855; RCOOH + OH = RO2C + xHO2 + 0.143*CO2 + 0.142*xCCHO + 0.4*xRCHO + 0.457*xBACL + yROOH - 0.455*XC # 1.20e-12; COOH + OH = 0.3*HCHO + 0.3*OH + 0.7*MEO2 # 3.80e-12@-200; COOH = HCHO + HO2 + OH # 1.0/; ROOH + OH = 0.744*OH + 0.251*RO2C + 0.004*RO2XC + 0.004*zRNO3 + 0.744*RCHO + 0.239*xHO2 + 0.012*xOH + 0.012*xHCHO + 0.012*xCCHO + 0.205*xRCHO + 0.034*xPROD2 + 0.256*yROOH - 0.115*XC # 2.50e-11; ROOH = RCHO + HO2 + OH # 1.0/; R6OOH + OH = 0.84*OH + 0.222*RO2C + 0.029*RO2XC + 0.029*zRNO3 + 0.84*PRD2 + 0.09*xHO2 + 0.041*xOH + 0.02*xCCHO + 0.075*xRCHO + 0.084*xPROD2 + 0.16*yROOH + 0.02*XC # 5.60e-11; R6OOH = OH + 0.142*HO2 + 0.782*RO2C + 0.077*RO2XC + 0.077*zRNO3 + 0.085*RCHO + 0.142*PRD2 + 0.782*xHO2 + 0.026*xCCHO + 0.058*xRCHO + 0.698*xPROD2 + 0.858*yR6OOH + 0.017*XC # 1.0/; RAOOH + OH = 0.139*OH + 0.148*HO2 + 0.589*RO2C + 0.124*RO2XC + 0.124*zRNO3 + 0.074*PRD2 + 0.147*MGLY + 0.139*IPRD + 0.565*xHO2 + 0.024*xOH + 0.448*xRCHO + 0.026*xGLY + 0.03*xMEK + 0.252*xMGLY + 0.073*xAFG1 + 0.073*xAFG2 + 0.713*yR6OOH + 2.674*XC # 1.41e-10; RAOOH = OH + HO2 + 0.5*GLY + 0.5*MGLY + 0.5*AFG1 + 0.5*AFG2 + 0.5*XC # 1.0/; GLY = 2*CO + 2*HO2 # 1.0/; GLY = HCHO + CO # 1.0/; ! changed GLY reactions with OH and NO3 GLY + OH = 0.70*HO2 + 1.40*CO + 0.3*HCOCO3 # 3.10e-12@-342.2; GLY + NO3 = HNO3 + 0.70*HO2 + 1.40*CO + 0.3*HCOCO3 # 2.80e-12@2390; MGLY = HO2 + CO + MECO3 # 1.0/; MGLY + OH = CO + MECO3 # 1.50e-11; MGLY + NO3 = HNO3 + CO + MECO3 # 1.40e-12@1895; BACL = 2*MECO3 # 1.0/; CRES + OH = 0.2*BZO + 0.8*RO2C + 0.8*xHO2 + 0.8*yR6OOH + 0.25*xMGLY + 5.05*XC # 1.70e-12@-950; CRES + NO3 = HNO3 + BZO + XC # 1.40e-11; NPHE + OH = BZO + XN # 3.50e-12; NPHE = HONO + 6*XC # 1.50e-3/; NPHE = 6*XC + XN # 1.50e-2/; BALD + OH = BZCO3 # 1.20e-11; BALD = 7*XC # 6.00e-2/; BALD + NO3 = HNO3 + BZCO3 # 1.34e-12@1860; AFG1 + OH = 0.217*MACO3 + 0.723*RO2C + 0.06*RO2XC + 0.06*zRNO3 + 0.521*xHO2 + 0.201*xMECO3 + 0.334*xCO + 0.407*xRCHO + 0.129*xMEK + 0.107*xGLY + 0.267*xMGLY + 0.783*yR6OOH + 0.284*XC # 7.40e-11; AFG1 + O3 = 0.826*OH + 0.522*HO2 + 0.652*RO2C + 0.522*CO + 0.174*CO2 + 0.432*GLY + 0.568*MGLY + 0.652*xRCO3 + 0.652*xHCHO + 0.652*yR6OOH - 0.872*XC # 9.66e-18; AFG1 = 1.023*HO2 + 0.173*MEO2 + 0.305*MECO3 + 0.5*MACO3 + 0.695*CO + 0.195*GLY + 0.305*MGLY + 0.217*XC # 1.0/; AFG2 + OH = 0.217*MACO3 + 0.723*RO2C + 0.06*RO2XC + 0.06*zRNO3 + 0.521*xHO2 + 0.201*xMECO3 + 0.334*xCO + 0.407*xRCHO + 0.129*xMEK + 0.107*xGLY + 0.267*xMGLY + 0.783*yR6OOH + 0.284*XC # 7.40e-11; AFG2 + O3 = 0.826*OH + 0.522*HO2 + 0.652*RO2C + 0.522*CO + 0.174*CO2 + 0.432*GLY + 0.568*MGLY + 0.652*xRCO3 + 0.652*xHCHO + 0.652*yR6OOH - 0.872*XC # 9.66e-18; AFG2 = PRD2 - 1*XC # 1.0/; AFG3 + OH = 0.206*MACO3 + 0.733*RO2C + 0.117*RO2XC + 0.117*zRNO3 + 0.561*xHO2 + 0.117*xMECO3 + 0.114*xCO + 0.274*xGLY + 0.153*xMGLY + 0.019*xBACL + 0.195*xAFG1 + 0.195*xAFG2 + 0.231*xIPRD + 0.794*yR6OOH + 0.938*XC # 9.35e-11; AFG3 + O3 = 0.471*OH + 0.554*HO2 + 0.013*MECO3 + 0.258*RO2C + 0.007*RO2XC + 0.007*zRNO3 + 0.58*CO + 0.19*CO2 + 0.366*GLY + 0.184*MGLY + 0.35*AFG1 + 0.35*AFG2 + 0.139*AFG3 + 0.003*MACR + 0.004*MVK + 0.003*IPRD + 0.095*xHO2 + 0.163*xRCO3 + 0.163*xHCHO + 0.095*xMGLY + 0.264*yR6OOH - 0.575*XC # 1.43e-17; MACR + OH = 0.5*MACO3 + 0.5*RO2C + 0.5*xHO2 + 0.416*xCO + 0.084*xHCHO + 0.416*xMEK + 0.084*xMGLY + 0.5*yROOH - 0.416*XC # 8.00e-12@-380; MACR + O3 = 0.208*OH + 0.108*HO2 + 0.1*RO2C + 0.45*CO + 0.117*CO2 + 0.1*HCHO + 0.9*MGLY + 0.333*HCOOH + 0.1*xRCO3 + 0.1*xHCHO + 0.1*yROOH - 0.1*XC # 1.40e-15@2100; MACR + NO3 = 0.5*MACO3 + 0.5*RO2C + 0.5*HNO3 + 0.5*xHO2 + 0.5*xCO + 0.5*yROOH + 1.5*XC + 0.5*XN # 1.50e-12@1815; MACR + O3P = RCHO + XC # 6.34e-12; MACR = 0.33*OH + 0.67*HO2 + 0.34*MECO3 + 0.33*MACO3 + 0.33*RO2C + 0.67*CO + 0.34*HCHO + 0.33*xMECO3 + 0.33*xHCHO + 0.33*yROOH # 1.0/; MVK + OH = 0.975*RO2C + 0.025*RO2XC + 0.025*zRNO3 + 0.3*xHO2 + 0.675*xMECO3 + 0.3*xHCHO + 0.675*xHOCCHO + 0.3*xMGLY + yROOH - 0.05*XC # 2.60e-12@-610; MVK + O3 = 0.164*OH + 0.064*HO2 + 0.05*RO2C + 0.05*xHO2 + 0.475*CO + 0.124*CO2 + 0.05*HCHO + 0.95*MGLY + 0.351*HCOOH + 0.05*xRCO3 + 0.05*xHCHO + 0.05*yROOH - 0.05*XC # 8.50e-16@1520; MVK + O3P = 0.45*RCHO + 0.55*MEK + 0.45*XC # 4.32e-12; MVK = 0.4*MEO2 + 0.6*CO + 0.6*PRD2 + 0.4*MACO3 - 2.2*XC # 1.0/; IPRD + OH = 0.289*MACO3 + 0.67*RO2C + 0.67*xHO2 + 0.041*RO2XC + 0.041*zRNO3 + 0.336*xCO + 0.055*xHCHO + 0.129*xHOCCHO + 0.013*xRCHO + 0.15*xMEK + 0.332*xPROD2 + 0.15*xGLY + 0.174*xMGLY - 0.504*XC + 0.711*yR6OOH # 6.19e-11; IPRD + O3 = 0.285*OH + 0.4*HO2 + 0.048*RO2C + 0.048*xRCO3 + 0.498*CO + 0.14*CO2 + 0.124*HCHO + 0.21*MEK + 0.023*GLY + 0.742*MGLY + 0.1*HCOOH + 0.372*RCOOH + 0.047*xHOCCHO + 0.001*xHCHO + 0.048*yR6OOH - 0.329*XC # 4.18e-18; IPRD + NO3 = 0.15*MACO3 + 0.15*HNO3 + 0.799*RO2C + 0.799*xHO2 + 0.051*RO2XC + 0.051*zRNO3 + 0.572*xCO + 0.227*xHCHO + 0.218*xRCHO + 0.008*xMGLY + 0.572*xRNO3 + 0.85*yR6OOH + 0.278*XN - 0.815*XC # 1.00e-13; IPRD = 1.233*HO2 + 0.467*MECO3 + 0.3*RCO3 + 1.233*CO + 0.3*HCHO + 0.467*HOCCHO + 0.233*MEK - 0.233*XC # 1.0/; PRD2 + OH = 0.472*HO2 + 0.379*xHO2 + 0.029*xMECO3 + 0.049*xRCO3 + 0.473*RO2C + 0.071*RO2XC + 0.071*zRNO3 + 0.002*HCHO + 0.211*xHCHO + 0.001*CCHO + 0.083*xCCHO + 0.143*RCHO + 0.402*xRCHO + 0.115*xMEK + 0.329*PRD2 + 0.007*xPROD2 + 0.528*yR6OOH + 0.877*XC # 1.55e-11; PRD2 = 0.913*xHO2 + 0.4*MECO3 + 0.6*RCO3 + 1.59*RO2C + 0.087*RO2XC + 0.087*zRNO3 + 0.303*xHCHO + 0.163*xCCHO + 0.78*xRCHO + yR6OOH - 0.091*XC # 4.86e-3/; RNO3 + OH = 0.189*HO2 + 0.305*xHO2 + 0.019*NO2 + 0.313*xNO2 + 0.976*RO2C + 0.175*RO2XC + 0.175*zRNO3 + 0.011*xHCHO + 0.429*xCCHO + 0.001*RCHO + 0.036*xRCHO + 0.004*xACETONE + 0.01*MEK + 0.17*xMEK + 0.008*PRD2 + 0.031*xPROD2 + 0.189*RNO3 + 0.305*xRNO3 + 0.157*yROOH + 0.636*yR6OOH + 0.174*XN + 0.04*XC # 7.20e-12; RNO3 = 0.344*HO2 + 0.554*xHO2 + NO2 + 0.721*RO2C + 0.102*RO2XC + 0.102*zRNO3 + 0.074*HCHO + 0.061*xHCHO + 0.214*CCHO + 0.23*xCCHO + 0.074*RCHO + 0.063*xRCHO + 0.008*xACETONE + 0.124*MEK + 0.083*xMEK + 0.19*PRD2 + 0.261*xPROD2 + 0.066*yROOH + 0.591*yR6OOH + 0.396*XC # 1.0/; HOCCHO + OH = MECO3 # 1.0*K; HOCCHO = CO + 2*HO2 + HCHO # 1.0/; HOCCHO + NO3 = HNO3 + MECO3 # 1.0*K; ACROLEIN + OH = 0.25*xHO2 + 0.75*MACO3 + 0.25*RO2C + 0.167*xCO + 0.083*xHCHO + 0.167*xCCHO + 0.083*xGLY + 0.25*yROOH - 0.75*XC # 1.99e-11; ACROLEIN + O3 = 0.83*HO2 + 0.33*OH + 1.005*CO + 0.31*CO2 + 0.5*HCHO + 0.185*HCOOH + 0.5*GLY # 1.40e-15@2528; ACROLEIN + NO3 = 0.031*xHO2 + 0.967*MACO3 + 0.031*RO2C + 0.002*RO2XC + 0.002*zRNO3 + 0.967*HNO3 + 0.031*xCO + 0.031*xRNO3 + 0.033*yROOH + 0.002*XN - 1.097*XC # 1.18e-15; ACROLEIN + O3P = RCHO # 2.37e-12; ACROLEIN = 1.066*HO2 + 0.178*OH + 0.234*MEO2 + 0.33*MACO3 + 1.188*CO + 0.102*CO2 + 0.34*HCHO + 0.05*CCOOH - 0.284*XC # 1.0/; CCOOOH + OH = 0.98*MECO3 + 0.02*RO2C + 0.02*CO2 + 0.02*xOH + 0.02*xHCHO + 0.02*yROOH # 5.28e-12; CCOOOH = MEO2 + CO2 + OH # 1.0/; RCOOOH + OH = 0.806*RCO3 + 0.194*RO2C + 0.194*yROOH + 0.11*CO2 + 0.11*xOH + 0.11*xCCHO + 0.084*xHO2 + 0.084*xRCHO # 6.42e-12; RCOOOH = xHO2 + xCCHO + yROOH + CO2 + OH # 1.0/; !added reactions for HCOCO3, the Peroxy radical from H-abstraction of glyoxal, GLY HCOCO3 + NO = HO2 + CO + CO2 + NO2 # 1.0*K; HCOCO3 + NO2 = HO2 + CO + CO2 + NO3 # 1.0*K; HCOCO3 + HO2 = 0.44*OH + 0.44*HO2 + 0.44*CO + 0.44*CO2 + 0.56*GLY + 0.15*O3 # 1.0*K; xHCHO + NO = NO + HCHO # 1.0*K; xHCHO + HO2 = HO2 + XC # 1.0*K; xHCHO + NO3 = NO3 + HCHO # 1.0*K; xHCHO + MEO2 = MEO2 + 0.5*HCHO + 0.5*XC # 1.0*K; xHCHO + RO2C = RO2C + 0.5*HCHO + 0.5*XC # 1.0*K; xHCHO + RO2XC = RO2XC + 0.5*HCHO + 0.5*XC # 1.0*K; xHCHO + MECO3 = MECO3 + HCHO # 1.0*K; xHCHO + RCO3 = RCO3 + HCHO # 1.0*K; xHCHO + BZCO3 = BZCO3 + HCHO # 1.0*K; xHCHO + MACO3 = MACO3 + HCHO # 1.0*K; xCCHO + NO = NO + CCHO # 1.0*K; xCCHO + HO2 = HO2 + 2*XC # 1.0*K; xCCHO + NO3 = NO3 + CCHO # 1.0*K; xCCHO + MEO2 = MEO2 + 0.5*CCHO + XC # 1.0*K; xCCHO + RO2C = RO2C + 0.5*CCHO + XC # 1.0*K; xCCHO + RO2XC = RO2XC + 0.5*CCHO + XC # 1.0*K; xCCHO + MECO3 = MECO3 + CCHO # 1.0*K; xCCHO + RCO3 = RCO3 + CCHO # 1.0*K; xCCHO + BZCO3 = BZCO3 + CCHO # 1.0*K; xCCHO + MACO3 = MACO3 + CCHO # 1.0*K; xRCHO + NO = NO + RCHO # 1.0*K; xRCHO + HO2 = HO2 + 3*XC # 1.0*K; xRCHO + NO3 = NO3 + RCHO # 1.0*K; xRCHO + MEO2 = MEO2 + 0.5*RCHO + 1.5*XC # 1.0*K; xRCHO + RO2C = RO2C + 0.5*RCHO + 1.5*XC # 1.0*K; xRCHO + RO2XC = RO2XC + 0.5*RCHO + 1.5*XC # 1.0*K; xRCHO + MECO3 = MECO3 + RCHO # 1.0*K; xRCHO + RCO3 = RCO3 + RCHO # 1.0*K; xRCHO + BZCO3 = BZCO3 + RCHO # 1.0*K; xRCHO + MACO3 = MACO3 + RCHO # 1.0*K; xACETONE + NO = NO + ACETONE # 1.0*K; xACETONE + HO2 = HO2 + 3*XC # 1.0*K; xACETONE + NO3 = NO3 + ACETONE # 1.0*K; xACETONE + MEO2 = MEO2 + 0.5*ACETONE + 1.5*XC # 1.0*K; xACETONE + RO2C = RO2C + 0.5*ACETONE + 1.5*XC # 1.0*K; xACETONE + RO2XC = RO2XC + 0.5*ACETONE + 1.5*XC # 1.0*K; xACETONE + MECO3 = MECO3 + ACETONE # 1.0*K; xACETONE + RCO3 = RCO3 + ACETONE # 1.0*K; xACETONE + BZCO3 = BZCO3 + ACETONE # 1.0*K; xACETONE + MACO3 = MACO3 + ACETONE # 1.0*K; xMEK + NO = NO + MEK # 1.0*K; xMEK + HO2 = HO2 + 4*XC # 1.0*K; xMEK + NO3 = NO3 + MEK # 1.0*K; xMEK + MEO2 = MEO2 + 0.5*MEK + 2*XC # 1.0*K; xMEK + RO2C = RO2C + 0.5*MEK + 2*XC # 1.0*K; xMEK + RO2XC = RO2XC + 0.5*MEK + 2*XC # 1.0*K; xMEK + MECO3 = MECO3 + MEK # 1.0*K; xMEK + RCO3 = RCO3 + MEK # 1.0*K; xMEK + BZCO3 = BZCO3 + MEK # 1.0*K; xMEK + MACO3 = MACO3 + MEK # 1.0*K; xPROD2 + NO = NO + PRD2 # 1.0*K; xPROD2 + HO2 = HO2 + 6*XC # 1.0*K; xPROD2 + NO3 = NO3 + PRD2 # 1.0*K; xPROD2 + MEO2 = MEO2 + 0.5*PRD2 + 3*XC # 1.0*K; xPROD2 + RO2C = RO2C + 0.5*PRD2 + 3*XC # 1.0*K; xPROD2 + RO2XC = RO2XC + 0.5*PRD2 + 3*XC # 1.0*K; xPROD2 + MECO3 = MECO3 + PRD2 # 1.0*K; xPROD2 + RCO3 = RCO3 + PRD2 # 1.0*K; xPROD2 + BZCO3 = BZCO3 + PRD2 # 1.0*K; xPROD2 + MACO3 = MACO3 + PRD2 # 1.0*K; xGLY + NO = NO + GLY # 1.0*K; xGLY + HO2 = HO2 + 2*XC # 1.0*K; xGLY + NO3 = NO3 + GLY # 1.0*K; xGLY + MEO2 = MEO2 + 0.5*GLY + XC # 1.0*K; xGLY + RO2C = RO2C + 0.5*GLY + XC # 1.0*K; xGLY + RO2XC = RO2XC + 0.5*GLY + XC # 1.0*K; xGLY + MECO3 = MECO3 + GLY # 1.0*K; xGLY + RCO3 = RCO3 + GLY # 1.0*K; xGLY + BZCO3 = BZCO3 + GLY # 1.0*K; xGLY + MACO3 = MACO3 + GLY # 1.0*K; xMGLY + NO = NO + MGLY # 1.0*K; xMGLY + HO2 = HO2 + 3*XC # 1.0*K; xMGLY + NO3 = NO3 + MGLY # 1.0*K; xMGLY + MEO2 = MEO2 + 0.5*MGLY + 1.5*XC # 1.0*K; xMGLY + RO2C = RO2C + 0.5*MGLY + 1.5*XC # 1.0*K; xMGLY + RO2XC = RO2XC + 0.5*MGLY + 1.5*XC # 1.0*K; xMGLY + MECO3 = MECO3 + MGLY # 1.0*K; xMGLY + RCO3 = RCO3 + MGLY # 1.0*K; xMGLY + BZCO3 = BZCO3 + MGLY # 1.0*K; xMGLY + MACO3 = MACO3 + MGLY # 1.0*K; xBACL + NO = NO + BACL # 1.0*K; xBACL + HO2 = HO2 + 4*XC # 1.0*K; xBACL + NO3 = NO3 + BACL # 1.0*K; xBACL + MEO2 = MEO2 + 0.5*BACL + 2*XC # 1.0*K; xBACL + RO2C = RO2C + 0.5*BACL + 2*XC # 1.0*K; xBACL + RO2XC = RO2XC + 0.5*BACL + 2*XC # 1.0*K; xBACL + MECO3 = MECO3 + BACL # 1.0*K; xBACL + RCO3 = RCO3 + BACL # 1.0*K; xBACL + BZCO3 = BZCO3 + BACL # 1.0*K; xBACL + MACO3 = MACO3 + BACL # 1.0*K; xBALD + NO = NO + BALD # 1.0*K; xBALD + HO2 = HO2 + 7*XC # 1.0*K; xBALD + NO3 = NO3 + BALD # 1.0*K; xBALD + MEO2 = MEO2 + 0.5*BALD + 3.5*XC # 1.0*K; xBALD + RO2C = RO2C + 0.5*BALD + 3.5*XC # 1.0*K; xBALD + RO2XC = RO2XC + 0.5*BALD + 3.5*XC # 1.0*K; xBALD + MECO3 = MECO3 + BALD # 1.0*K; xBALD + RCO3 = RCO3 + BALD # 1.0*K; xBALD + BZCO3 = BZCO3 + BALD # 1.0*K; xBALD + MACO3 = MACO3 + BALD # 1.0*K; xAFG1 + NO = NO + AFG1 # 1.0*K; xAFG1 + HO2 = HO2 + 5*XC # 1.0*K; xAFG1 + NO3 = NO3 + AFG1 # 1.0*K; xAFG1 + MEO2 = MEO2 + 0.5*AFG1 + 2.5*XC # 1.0*K; xAFG1 + RO2C = RO2C + 0.5*AFG1 + 2.5*XC # 1.0*K; xAFG1 + RO2XC = RO2XC + 0.5*AFG1 + 2.5*XC # 1.0*K; xAFG1 + MECO3 = MECO3 + AFG1 # 1.0*K; xAFG1 + RCO3 = RCO3 + AFG1 # 1.0*K; xAFG1 + BZCO3 = BZCO3 + AFG1 # 1.0*K; xAFG1 + MACO3 = MACO3 + AFG1 # 1.0*K; xAFG2 + NO = NO + AFG2 # 1.0*K; xAFG2 + HO2 = HO2 + 5*XC # 1.0*K; xAFG2 + NO3 = NO3 + AFG2 # 1.0*K; xAFG2 + MEO2 = MEO2 + 0.5*AFG2 + 2.5*XC # 1.0*K; xAFG2 + RO2C = RO2C + 0.5*AFG2 + 2.5*XC # 1.0*K; xAFG2 + RO2XC = RO2XC + 0.5*AFG2 + 2.5*XC # 1.0*K; xAFG2 + MECO3 = MECO3 + AFG2 # 1.0*K; xAFG2 + RCO3 = RCO3 + AFG2 # 1.0*K; xAFG2 + BZCO3 = BZCO3 + AFG2 # 1.0*K; xAFG2 + MACO3 = MACO3 + AFG2 # 1.0*K; xAFG3 + NO = NO + AFG3 # 1.0*K; xAFG3 + HO2 = HO2 + 7*XC # 1.0*K; xAFG3 + NO3 = NO3 + AFG3 # 1.0*K; xAFG3 + MEO2 = MEO2 + 0.5*AFG3 + 3.5*XC # 1.0*K; xAFG3 + RO2C = RO2C + 0.5*AFG3 + 3.5*XC # 1.0*K; xAFG3 + RO2XC = RO2XC + 0.5*AFG3 + 3.5*XC # 1.0*K; xAFG3 + MECO3 = MECO3 + AFG3 # 1.0*K; xAFG3 + RCO3 = RCO3 + AFG3 # 1.0*K; xAFG3 + BZCO3 = BZCO3 + AFG3 # 1.0*K; xAFG3 + MACO3 = MACO3 + AFG3 # 1.0*K; xMACR + NO = NO + MACR # 1.0*K; xMACR + HO2 = HO2 + 4*XC # 1.0*K; xMACR + NO3 = NO3 + MACR # 1.0*K; xMACR + MEO2 = MEO2 + 0.5*MACR + 2*XC # 1.0*K; xMACR + RO2C = RO2C + 0.5*MACR + 2*XC # 1.0*K; xMACR + RO2XC = RO2XC + 0.5*MACR + 2*XC # 1.0*K; xMACR + MECO3 = MECO3 + MACR # 1.0*K; xMACR + RCO3 = RCO3 + MACR # 1.0*K; xMACR + BZCO3 = BZCO3 + MACR # 1.0*K; xMACR + MACO3 = MACO3 + MACR # 1.0*K; xMVK + NO = NO + MVK # 1.0*K; xMVK + HO2 = HO2 + 4*XC # 1.0*K; xMVK + NO3 = NO3 + MVK # 1.0*K; xMVK + MEO2 = MEO2 + 0.5*MVK + 2*XC # 1.0*K; xMVK + RO2C = RO2C + 0.5*MVK + 2*XC # 1.0*K; xMVK + RO2XC = RO2XC + 0.5*MVK + 2*XC # 1.0*K; xMVK + MECO3 = MECO3 + MVK # 1.0*K; xMVK + RCO3 = RCO3 + MVK # 1.0*K; xMVK + BZCO3 = BZCO3 + MVK # 1.0*K; xMVK + MACO3 = MACO3 + MVK # 1.0*K; xIPRD + NO = NO + IPRD # 1.0*K; xIPRD + HO2 = HO2 + 5*XC # 1.0*K; xIPRD + NO3 = NO3 + IPRD # 1.0*K; xIPRD + MEO2 = MEO2 + 0.5*IPRD + 2.5*XC # 1.0*K; xIPRD + RO2C = RO2C + 0.5*IPRD + 2.5*XC # 1.0*K; xIPRD + RO2XC = RO2XC + 0.5*IPRD + 2.5*XC # 1.0*K; xIPRD + MECO3 = MECO3 + IPRD # 1.0*K; xIPRD + RCO3 = RCO3 + IPRD # 1.0*K; xIPRD + BZCO3 = BZCO3 + IPRD # 1.0*K; xIPRD + MACO3 = MACO3 + IPRD # 1.0*K; xRNO3 + NO = NO + RNO3 # 1.0*K; xRNO3 + HO2 = HO2 + 6*XC + XN # 1.0*K; xRNO3 + NO3 = NO3 + RNO3 # 1.0*K; xRNO3 + MEO2 = MEO2 + 0.5*RNO3 + 0.5*XN + 3*XC # 1.0*K; xRNO3 + RO2C = RO2C + 0.5*RNO3 + 0.5*XN + 3*XC # 1.0*K; xRNO3 + RO2XC = RO2XC + 0.5*RNO3 + 0.5*XN + 3*XC # 1.0*K; xRNO3 + MECO3 = MECO3 + RNO3 # 1.0*K; xRNO3 + RCO3 = RCO3 + RNO3 # 1.0*K; xRNO3 + BZCO3 = BZCO3 + RNO3 # 1.0*K; xRNO3 + MACO3 = MACO3 + RNO3 # 1.0*K; yROOH + NO = NO # 1.0*K; yROOH + HO2 = HO2 + ROOH - 3*XC # 1.0*K; yROOH + NO3 = NO3 # 1.0*K; yROOH + MEO2 = MEO2 + 0.5*MEK - 2*XC # 1.0*K; yROOH + RO2C = RO2C + 0.5*MEK - 2*XC # 1.0*K; yROOH + RO2XC = RO2XC + 0.5*MEK - 2*XC # 1.0*K; yROOH + MECO3 = MECO3 # 1.0*K; yROOH + RCO3 = RCO3 # 1.0*K; yROOH + BZCO3 = BZCO3 # 1.0*K; yROOH + MACO3 = MACO3 # 1.0*K; yR6OOH + NO = NO # 1.0*K; yR6OOH + HO2 = HO2 + R6OOH - 6*XC # 1.0*K; yR6OOH + NO3 = NO3 # 1.0*K; yR6OOH + MEO2 = MEO2 + 0.5*PRD2 - 3*XC # 1.0*K; yR6OOH + RO2C = RO2C + 0.5*PRD2 - 3*XC # 1.0*K; yR6OOH + RO2XC = RO2XC + 0.5*PRD2 - 3*XC # 1.0*K; yR6OOH + MECO3 = MECO3 # 1.0*K; yR6OOH + RCO3 = RCO3 # 1.0*K; yR6OOH + BZCO3 = BZCO3 # 1.0*K; yR6OOH + MACO3 = MACO3 # 1.0*K; yISOPOOH + NO = NO # 1.0*K; yISOPOOH + HO2 = HO2 + ISOPOOH - 6*XC # 1.0*K; yISOPOOH + NO3 = NO3 # 1.0*K; yISOPOOH + MEO2 = MEO2 + 0.5*PRD2 - 3*XC # 1.0*K; yISOPOOH + RO2C = RO2C + 0.5*PRD2 - 3*XC # 1.0*K; yISOPOOH + RO2XC = RO2XC + 0.5*PRD2 - 3*XC # 1.0*K; yISOPOOH + MECO3 = MECO3 # 1.0*K; yISOPOOH + RCO3 = RCO3 # 1.0*K; yISOPOOH + BZCO3 = BZCO3 # 1.0*K; yISOPOOH + MACO3 = MACO3 # 1.0*K; yRAOOH + NO = NO # 1.0*K; yRAOOH + HO2 = HO2 + RAOOH - 8*XC # 1.0*K; yRAOOH + NO3 = NO3 # 1.0*K; yRAOOH + MEO2 = MEO2 + 0.5*PRD2 - 3*XC # 1.0*K; yRAOOH + RO2C = RO2C + 0.5*PRD2 - 3*XC # 1.0*K; yRAOOH + RO2XC = RO2XC + 0.5*PRD2 - 3*XC # 1.0*K; yRAOOH + MECO3 = MECO3 # 1.0*K; yRAOOH + RCO3 = RCO3 # 1.0*K; yRAOOH + BZCO3 = BZCO3 # 1.0*K; yRAOOH + MACO3 = MACO3 # 1.0*K; zRNO3 + NO = NO + RNO3 - 1*XN # 1.0*K; zRNO3 + HO2 = HO2 + 6*XC # 1.0*K; zRNO3 + NO3 = NO3 + PRD2 + HO2 # 1.0*K; zRNO3 + MEO2 = MEO2 + 0.5*PRD2 + 0.5*HO2 + 3*XC # 1.0*K; zRNO3 + RO2C = RO2C + 0.5*PRD2 + 0.5*HO2 + 3*XC # 1.0*K; zRNO3 + RO2XC = RO2XC + 0.5*PRD2 + 0.5*HO2 + 3*XC # 1.0*K; zRNO3 + MECO3 = MECO3 + PRD2 + HO2 # 1.0*K; zRNO3 + RCO3 = RCO3 + PRD2 + HO2 # 1.0*K; zRNO3 + BZCO3 = BZCO3 + PRD2 + HO2 # 1.0*K; zRNO3 + MACO3 = MACO3 + PRD2 + HO2 # 1.0*K; xHOCCHO + NO = NO + HOCCHO # 1.0*K; xHOCCHO + HO2 = HO2 + 2*XC # 1.0*K; xHOCCHO + NO3 = NO3 + HOCCHO # 1.0*K; xHOCCHO + MEO2 = MEO2 + 0.5*HOCCHO + XC # 1.0*K; xHOCCHO + RO2C = RO2C + 0.5*HOCCHO + XC # 1.0*K; xHOCCHO + RO2XC = RO2XC + 0.5*HOCCHO + XC # 1.0*K; xHOCCHO + MECO3 = MECO3 + HOCCHO # 1.0*K; xHOCCHO + RCO3 = RCO3 + HOCCHO # 1.0*K; xHOCCHO + BZCO3 = BZCO3 + HOCCHO # 1.0*K; xHOCCHO + MACO3 = MACO3 + HOCCHO # 1.0*K; xACROLEIN + NO = NO + ACROLEIN # 1.0*K; xACROLEIN + HO2 = HO2 + 3*XC # 1.0*K; xACROLEIN + NO3 = NO3 + ACROLEIN # 1.0*K; xACROLEIN + MEO2 = MEO2 + 0.5*ACROLEIN + 1.5*XC # 1.0*K; xACROLEIN + RO2C = RO2C + 0.5*ACROLEIN + 1.5*XC # 1.0*K; xACROLEIN + RO2XC = RO2XC + 0.5*ACROLEIN + 1.5*XC # 1.0*K; xACROLEIN + MECO3 = MECO3 + ACROLEIN # 1.0*K; xACROLEIN + RCO3 = RCO3 + ACROLEIN # 1.0*K; xACROLEIN + BZCO3 = BZCO3 + ACROLEIN # 1.0*K; xACROLEIN + MACO3 = MACO3 + ACROLEIN # 1.0*K; CH4 + OH = MEO2 # 1.85e-12@1690; ETHENE + OH = xHO2 + RO2C + 1.61*xHCHO + 0.195*xHOCCHO + yROOH # 1.00e-28^-4.50&8.80e-12^-0.85&0.60&1.0; ETHENE + O3 = 0.16*HO2 + 0.16*OH + 0.51*CO + 0.12*CO2 + HCHO + 0.37*HCOOH # 9.14e-15@2580; !corrected temperature power ETHENE + NO3 = xHO2 + RO2C + xRCHO + yROOH + XN - 1*XC # 3.30e-12@2880; ETHENE + O3P = 0.8*HO2 + 0.29*xHO2 + 0.51*MEO2 + 0.29*RO2C + 0.51*CO + 0.278*xCO + 0.278*xHCHO + 0.1*CCHO + 0.012*xGLY + 0.29*yROOH + 0.2*XC # 1.07e-11@800; PROPENE + OH = 0.984*xHO2 + 0.984*RO2C + 0.016*RO2XC + 0.016*zRNO3 + 0.984*xHCHO + 0.984*xCCHO + yROOH - 0.048*XC # 4.85e-12@-504; PROPENE + O3 = 0.165*HO2 + 0.35*OH + 0.355*MEO2 + 0.525*CO + 0.215*CO2 + 0.5*HCHO + 0.5*CCHO + 0.185*HCOOH + 0.075*CCOOH + 0.07*XC # 5.51e-15@1878; PROPENE + NO3 = 0.949*xHO2 + 0.949*RO2C + 0.051*RO2XC + 0.051*zRNO3 + yROOH + XN + 2.694*XC # 4.59e-13@1156; PROPENE + O3P = 0.45*RCHO + 0.55*MEK - 0.55*XC # 1.02e-11@280; BUTADIENE13 + OH = 0.951*xHO2 + 1.189*RO2C + 0.049*RO2XC + 0.049*zRNO3 + 0.708*xHCHO + 0.48*xACROLEIN + 0.471*xIPRD + yROOH - 0.797*XC # 1.48e-11@-448; BUTADIENE13 + O3 = 0.08*HO2 + 0.08*OH + 0.255*CO + 0.185*CO2 + 0.5*HCHO + 0.185*HCOOH + 0.5*ACROLEIN + 0.375*MVK + 0.125*PRD2 - 0.875*XC # 1.34e-14@2283; BUTADIENE13 + NO3 = 0.815*xHO2 + 0.12*xNO2 + 1.055*RO2C + 0.065*RO2XC + 0.065*zRNO3 + 0.115*xHCHO + 0.46*xMVK + 0.12*xIPRD + 0.355*xRNO3 + yROOH + 0.525*XN - 1.075*XC # 1.00e-13; BUTADIENE13 + O3P = 0.25*HO2 + 0.117*xHO2 + 0.118*xMACO3 + 0.235*RO2C + 0.015*RO2XC + 0.015*zRNO3 + 0.115*xCO + 0.115*xACROLEIN + 0.001*xAFG1 + 0.001*xAFG2 + 0.75*PRD2 + 0.25*yROOH - 1.532*XC # 2.26e-11@40; ISOPRENE + OH = 0.907*xHO2 + 0.986*RO2C + 0.093*RO2XC + 0.093*zRNO3 + 0.624*xHCHO + 0.23*xMACR + 0.32*xMVK + 0.357*xIPRD + yISOPOOH + ISOPRXN - 0.167*XC # 2.54e-11@-410; ISOPRENE + O3 = 0.066*HO2 + 0.266*OH + 0.192*xMACO3 + 0.192*RO2C + 0.008*RO2XC + 0.008*zRNO3 + 0.275*CO + 0.122*CO2 + 0.4*HCHO + 0.192*xHCHO + 0.204*HCOOH + 0.39*MACR + 0.16*MVK + 0.15*IPRD + 0.1*PRD2 + 0.2*yR6OOH - 0.559*XC # 7.86e-15@1912; ISOPRENE + NO3 = 0.749*xHO2 + 0.187*xNO2 + 0.936*RO2C + 0.064*RO2XC + 0.064*zRNO3 + 0.936*xIPRD + yR6OOH + 0.813*XN - 0.064*XC + ISOPRXN # 3.03e-12@448; ISOPRENE + O3P = 0.25*MEO2 + 0.24*xMACO3 + 0.24*RO2C + 0.01*RO2XC + 0.01*zRNO3 + 0.24*xHCHO + 0.75*PRD2 + 0.25*yR6OOH - 1.01*XC # 3.50e-11; ISOPOOH + OH = IEPOX + OH # 1.9e-11@-390; ISOPOOH + OH = 0.16*xMVK + .10*xMACR + 0.35*RO2C + 0.05*xRNO3 + 0.26*xHCHO + .04*xRCHO + 0.31*xHO2 + 0.02*ARO2MN +0.387*yISOPOOH + 0.61*RCHO + 0.61*OH #4.75e-12@-200; ISOPOOH = OH + 0.91*HO2 + 0.75*HCHO + 0.45*MVK + 0.29*MACR + 0.09*RO2C + 0.11*RCHO + 0.05*ARO2MN - 0.16*XC # 1.0/; IEPOX + OH = IEPOXOO # 5.78e-11@400; IEPOXOO + HO2 = 0.725*MEK + 0.275*HOCCHO + 0.275*GLY + 0.275*MGLY + 1.125*OH + 0.825*HO2 + 0.200*CO2 + 0.375*HCHO + 0.074*HCOOH + 0.251*CO # 2.06e-13@-1300; IEPOXOO + NO = 0.725*MEK + 0.275*HOCCHO + 0.275*GLY + 0.275*MGLY + 0.125*OH + 0.825*HO2 + 0.200*CO2 + 0.375*HCHO + 0.074*HCOOH + 0.251*CO + NO2 # 2.60e-12@-380; IEPOXOO + MEO2 = 0.363*MEK + 0.138*HOCCHO + 0.138*GLY + 0.138*MGLY + 0.063*OH + 0.413*HO2 + 0.100*CO2 + 0.188*HCHO + 0.037*HCOOH + 0.126*CO + 0.5*PRD2 + 0.5*HCHO + 0.5*HO2 + 0.25*HCHO + 0.25*MEOH - 0.5*XC # 2.00e-13; IEPOXOO + RO2C = 0.363*MEK + 0.138*HOCCHO + 0.138*GLY + 0.138*MGLY + 0.063*OH + 0.413*HO2 + 0.100*CO2 + 0.188*HCHO + 0.037*HCOOH + 0.126*CO + 0.5*PRD2 - 0.5*XC # 3.50e-14; IEPOXOO + MECO3 = 0.725*MEK + 0.275*HOCCHO + 0.275*GLY + 0.275*MGLY + 0.125*OH + 0.825*HO2 + 0.200*CO2 + 0.375*HCHO + 0.074*HCOOH + 0.251*CO + MEO2 + CO2 # 4.40e-13@-1070; APIN + OH = 0.799*xHO2 + 0.004*xRCO3 + 1.042*RO2C + 0.197*RO2XC + 0.197*zRNO3 + 0.002*xCO + 0.022*xHCHO + 0.776*xRCHO + 0.034*xACETONE + 0.02*xMGLY + 0.023*xBACL + yR6OOH + TRPRXN + 6.2*XC # 1.21e-11@-436; APIN + O3 = 0.009*HO2 + 0.102*xHO2 + 0.728*OH + 0.001*xMECO3 + 0.297*xRCO3 + 1.511*RO2C + 0.337*RO2XC + 0.337*zRNO3 + 0.029*CO + 0.051*xCO + 0.017*CO2 + 0.344*xHCHO + 0.24*xRCHO + 0.345*xACETONE + 0.008*MEK + 0.002*xGLY + 0.081*xBACL + 0.255*PRD2 + 0.737*yR6OOH + TRPRXN + 2.999*XC # 5.00e-16@530; APIN + NO3 = 0.056*xHO2 + 0.643*xNO2 + 0.007*xRCO3 + 1.05*RO2C + 0.293*RO2XC + 0.293*zRNO3 + 0.005*xCO + 0.007*xHCHO + 0.684*xRCHO + 0.069*xACETONE + 0.002*xMGLY + 0.056*xRNO3 + yR6OOH + 0.301*XN + TRPRXN + 5.608*XC # 1.19e-12@-490; APIN + O3P = PRD2 + TRPRXN + 4*XC # 3.20e-11; ! correct the below B10 rate constant so infinity rate has temperature depedence ACETYLENE + OH = 0.3*HO2 + 0.7*OH + 0.3*CO + 0.3*HCOOH + 0.7*GLY # 5.50e-30&8.30e-13^-2.00&0.60&1.0; ACETYLENE + O3 = 1.5*HO2 + 0.5*OH + 1.5*CO + 0.5*CO2 # 1.00e-14@4100; BENZENE + OH = 0.57*HO2 + 0.29*xHO2 + 0.116*OH + 0.29*RO2C + 0.024*RO2XC + 0.024*zRNO3 + 0.29*xGLY + 0.57*CRES + 0.029*xAFG1 + 0.261*xAFG2 + 0.116*AFG3 + 0.314*yRAOOH + BENZRO2 - 0.976*XC # 2.33e-12@193; TOLUENE + OH = 0.181*HO2 + 0.454*xHO2 + 0.312*OH + 0.454*RO2C + 0.054*RO2XC + 0.054*zRNO3 + 0.238*xGLY + 0.151*xMGLY + 0.181*CRES + 0.065*xBALD + 0.195*xAFG1 + 0.195*xAFG2 + 0.312*AFG3 + 0.073*yR6OOH + 0.435*yRAOOH + TOLRO2 - 0.109*XC # 1.81e-12@-338; MXYL + OH = 0.159*HO2 + 0.52*xHO2 + 0.239*OH + 0.52*RO2C + 0.082*RO2XC + 0.082*zRNO3 + 0.1*xGLY + 0.38*xMGLY + 0.159*CRES + 0.041*xBALD + 0.336*xAFG1 + 0.144*xAFG2 + 0.239*AFG3 + 0.047*yR6OOH + 0.555*yRAOOH + XYLRO2 + 0.695*XC # 2.31e-11; OXYL + OH = 0.161*HO2 + 0.554*xHO2 + 0.198*OH + 0.554*RO2C + 0.087*RO2XC + 0.087*zRNO3 + 0.084*xGLY + 0.238*xMGLY + 0.185*xBACL + 0.161*CRES + 0.047*xBALD + 0.253*xAFG1 + 0.253*xAFG2 + 0.198*AFG3 + 0.055*yR6OOH + 0.586*yRAOOH + XYLRO2 + 0.484*XC # 1.36e-11; PXYL + OH = 0.159*HO2 + 0.487*xHO2 + 0.278*OH + 0.487*RO2C + 0.076*RO2XC + 0.076*zRNO3 + 0.286*xGLY + 0.112*xMGLY + 0.159*CRES + 0.088*xBALD + 0.045*xAFG1 + 0.067*xAFG2 + 0.278*AFG3 + 0.286*xAFG3 + 0.102*yR6OOH + 0.461*yRAOOH + XYLRO2 + 0.399*XC # 1.43e-11; TMBENZ124 + OH = 0.022*HO2 + 0.627*xHO2 + 0.23*OH + 0.627*RO2C + 0.121*RO2XC + 0.121*zRNO3 + 0.074*xGLY + 0.405*xMGLY + 0.112*xBACL + 0.022*CRES + 0.036*xBALD + 0.088*xAFG1 + 0.352*xAFG2 + 0.23*AFG3 + 0.151*xAFG3 + 0.043*yR6OOH + 0.705*yRAOOH + XYLRO2 + 1.19*XC # 3.25e-11; ETOH + OH = 0.95*HO2 + 0.05*xHO2 + 0.05*RO2C + 0.081*xHCHO + 0.95*CCHO + 0.01*xHOCCHO + 0.05*yROOH - 0.001*XC # 5.49e-13^2.00@-530; ALK1 + OH = xHO2 + RO2C + xCCHO + yROOH # 1.34e-12^2.00@499; ALK2 + OH = 0.965*xHO2 + 0.965*RO2C + 0.035*RO2XC + 0.035*zRNO3 + 0.261*xRCHO + 0.704*xACETONE + yROOH - 0.105*XC # 1.49e-12^2.00@87; ALK3 + OH = 0.695*xHO2 + 0.236*xTBUO + 1.253*RO2C + 0.07*RO2XC + 0.07*zRNO3 + 0.026*xHCHO + 0.445*xCCHO + 0.122*xRCHO + 0.024*xACETONE + 0.332*xMEK + 0.983*yROOH + 0.017*yR6OOH - 0.046*XC # 1.51e-12@-126; ALK4 + OH = 0.83*xHO2 + 0.01*xMEO2 + 0.011*xMECO3 + 1.763*RO2C + 0.149*RO2XC + 0.149*zRNO3 + 0.002*xCO + 0.029*xHCHO + 0.438*xCCHO + 0.236*xRCHO + 0.426*xACETONE + 0.106*xMEK + 0.146*xPROD2 + yR6OOH - 0.119*XC # 3.75e-12@-44; ALK5 + OH = 0.647*xHO2 + 1.605*RO2C + 0.353*RO2XC + 0.353*zRNO3 + 0.04*xHCHO + 0.106*xCCHO + 0.209*xRCHO + 0.071*xACETONE + 0.086*xMEK + 0.407*xPROD2 + yR6OOH + 2.004*XC # 2.70e-12@-374; SOAALK + OH = OH + 0.47*ALKRXN # 2.70e-12@-374; OLE1 + OH = 0.871*xHO2 + 0.001*xMEO2 + 1.202*RO2C + 0.128*RO2XC + 0.128*zRNO3 + 0.582*xHCHO + 0.01*xCCHO + 0.007*xHOCCHO + 0.666*xRCHO + 0.007*xACETONE + 0.036*xACROLEIN + 0.001*xMACR + 0.012*xMVK + 0.009*xIPRD + 0.168*xPROD2 + 0.169*yROOH + 0.831*yR6OOH + 0.383*XC # 6.72e-12@-501; OLE1 + O3 = 0.095*HO2 + 0.057*xHO2 + 0.128*OH + 0.09*RO2C + 0.005*RO2XC + 0.005*zRNO3 + 0.303*CO + 0.088*CO2 + 0.5*HCHO + 0.011*xCCHO + 0.5*RCHO + 0.044*xRCHO + 0.003*xACETONE + 0.009*MEK + 0.185*HCOOH + 0.159*RCOOH + 0.268*PRD2 + 0.011*yROOH + 0.052*yR6OOH + 0.11*XC # 3.19e-15@1701; OLE1 + NO3 = 0.772*xHO2 + 1.463*RO2C + 0.228*RO2XC + 0.228*zRNO3 + 0.013*xCCHO + 0.003*xRCHO + 0.034*xACETONE + 0.774*xRNO3 + 0.169*yROOH + 0.831*yR6OOH + 0.226*XN - 1.149*XC # 5.37e-13@1047; OLE1 + O3P = 0.45*RCHO + 0.39*MEK + 0.16*PRD2 + 1.13*XC # 1.61e-11@326; OLE2 + OH = 0.912*xHO2 + 0.953*RO2C + 0.088*RO2XC + 0.088*zRNO3 + 0.179*xHCHO + 0.835*xCCHO + 0.51*xRCHO + 0.144*xACETONE + 0.08*xMEK + 0.002*xMVK + 0.012*xIPRD + 0.023*xPROD2 + 0.319*yROOH + 0.681*yR6OOH + 0.135*XC # 1.26e-11@-488; OLE2 + O3 = 0.094*HO2 + 0.041*xHO2 + 0.443*OH + 0.307*MEO2 + 0.156*xMECO3 + 0.008*xRCO3 + 0.212*RO2C + 0.003*RO2XC + 0.003*zRNO3 + 0.299*CO + 0.161*CO2 + 0.131*HCHO + 0.114*xHCHO + 0.453*CCHO + 0.071*xCCHO + 0.333*RCHO + 0.019*xRCHO + 0.051*ACETONE + 0.033*MEK + 0.001*xMEK + 0.024*HCOOH + 0.065*CCOOH + 0.235*RCOOH + 0.037*PRD2 + 0.073*yROOH + 0.136*yR6OOH + 0.16*XC # 8.59e-15@1255; OLE2 + NO3 = 0.4*xHO2 + 0.426*xNO2 + 0.035*xMEO2 + 1.193*RO2C + 0.14*RO2XC + 0.14*zRNO3 + 0.072*xHCHO + 0.579*xCCHO + 0.163*xRCHO + 0.116*xACETONE + 0.002*xMEK + 0.32*xRNO3 + 0.319*yROOH + 0.681*yR6OOH + 0.254*XN + 0.13*XC # 2.31e-13@-382; OLE2 + O3P = 0.079*RCHO + 0.751*MEK + 0.17*PRD2 + 0.739*XC # 1.43e-11@-111; ARO1 + OH = 0.123*HO2 + 0.566*xHO2 + 0.202*OH + 0.566*RO2C + 0.11*RO2XC + 0.11*zRNO3 + 0.158*xGLY + 0.1*xMGLY + 0.123*CRES + 0.072*xAFG1 + 0.185*xAFG2 + 0.202*AFG3 + 0.309*xPROD2 + 0.369*yR6OOH + TOLRO2 + 0.31*XC # 7.84e-12; ARO2MN + OH = 0.077*HO2 + 0.617*xHO2 + 0.178*OH + 0.617*RO2C + 0.128*RO2XC + 0.128*zRNO3 + 0.088*xGLY + 0.312*xMGLY + 0.134*xBACL + 0.077*CRES + 0.026*xBALD + 0.221*xAFG1 + 0.247*xAFG2 + 0.178*AFG3 + 0.068*xAFG3 + 0.057*xPROD2 + 0.101*yR6OOH + XYLRO2 + 1.459*XC # 3.09e-11; NAPHTHAL + OH = 0.077*HO2 + 0.617*xHO2 + 0.178*OH + 0.617*RO2C + 0.128*RO2XC + 0.128*zRNO3 + 0.088*xGLY + 0.312*xMGLY + 0.134*xBACL + 0.077*CRES + 0.026*xBALD + 0.221*xAFG1 + 0.247*xAFG2 + 0.178*AFG3 + 0.068*xAFG3 + 0.057*xPROD2 + 0.101*yR6OOH + PAHRO2 + 1.459*XC # 3.09e-11; TERP + OH = 0.734*xHO2 + 0.064*xRCO3 + 1.211*RO2C + 0.201*RO2XC + 0.201*zRNO3 + 0.001*xCO + 0.411*xHCHO + 0.385*xRCHO + 0.037*xACETONE + 0.007*xMEK + 0.003*xMGLY + 0.009*xBACL + 0.003*xMVK + 0.002*xIPRD + 0.409*xPROD2 + yR6OOH + TRPRXN + 4.375*XC # 2.27e-11@-435; TERP + O3 = 0.078*HO2 + 0.046*xHO2 + 0.499*OH + 0.202*xMECO3 + 0.059*xRCO3 + 0.49*RO2C + 0.121*RO2XC + 0.121*zRNO3 + 0.249*CO + 0.063*CO2 + 0.127*HCHO + 0.033*xHCHO + 0.208*xRCHO + 0.057*xACETONE + 0.002*MEK + 0.172*HCOOH + 0.068*RCOOH + 0.003*xMGLY + 0.039*xBACL + 0.002*xMACR + 0.001*xIPRD + 0.502*PRD2 + 0.428*yR6OOH + TRPRXN + 3.852*XC # 8.28e-16@785; TERP + NO3 = 0.227*xHO2 + 0.287*xNO2 + 0.026*xRCO3 + 1.786*RO2C + 0.46*RO2XC + 0.46*zRNO3 + 0.012*xCO + 0.023*xHCHO + 0.002*xHOCCHO + 0.403*xRCHO + 0.239*xACETONE + 0.005*xMACR + 0.001*xMVK + 0.004*xIPRD + 0.228*xRNO3 + yR6OOH + TRPRXN + 0.485*XN + 3.785*XC # 1.33e-12@-490; TERP + O3P = 0.237*RCHO + 0.763*PRD2 + TRPRXN + 4.711*XC # 4.02e-11; SESQ + OH = 0.734*xHO2 + 0.064*xRCO3 + 1.211*RO2C + 0.201*RO2XC + 0.201*zRNO3 + 0.001*xCO + 0.411*xHCHO + 0.385*xRCHO + 0.037*xACETONE + 0.007*xMEK + 0.003*xMGLY + 0.009*xBACL + 0.003*xMVK + 0.002*xIPRD + 0.409*xPROD2 + yR6OOH + SESQRXN + 9.375*XC # 1.0*K; SESQ + O3 = 0.078*HO2 + 0.046*xHO2 + 0.499*OH + 0.202*xMECO3 + 0.059*xRCO3 + 0.49*RO2C + 0.121*RO2XC + 0.121*zRNO3 + 0.249*CO + 0.063*CO2 + 0.127*HCHO + 0.033*xHCHO + 0.208*xRCHO + 0.057*xACETONE + 0.002*MEK + 0.172*HCOOH + 0.068*RCOOH + 0.003*xMGLY + 0.039*xBACL + 0.002*xMACR + 0.001*xIPRD + 0.502*PRD2 + 0.428*yR6OOH + SESQRXN + 8.852*XC # 1.0*K; SESQ + NO3 = 0.227*xHO2 + 0.287*xNO2 + 0.026*xRCO3 + 1.786*RO2C + 0.46*RO2XC + 0.46*zRNO3 + 0.012*xCO + 0.023*xHCHO + 0.002*xCCHO + 0.403*xRCHO + 0.239*xACETONE + 0.005*xMACR + 0.001*xMVK + 0.004*xIPRD + 0.228*xRNO3 + yR6OOH + SESQRXN + 0.485*XN + 8.785*XC # 1.0*K; SESQ + O3P = 0.237*RCHO + 0.763*PRD2 + SESQRXN + 9.711*XC # 1.0*K; CL2 = 2*CL # 1.0/; CL + NO + M = CLNO # 7.60e-32^-1.80; CLNO = CL + NO # 1.0/; CL + NO2 = CLONO # 1.30e-30^-2.00&1.00e-10^-1.00&0.60&1.0; CL + NO2 = CLNO2 # 1.80e-31^-2.00&1.00e-10^-1.00&0.60&1.0; CLONO = CL + NO2 # 1.0/; CLNO2 = CL + NO2 # 1.0/; CL + HO2 = HCL # 3.44e-11^-0.56; CL + HO2 = CLO + OH # 9.41e-12^2.10; CL + O3 = CLO # 2.80e-11@250; CL + NO3 = CLO + NO2 # 2.40e-11; CLO + NO = CL + NO2 # 6.20e-12@-295; CLO + NO2 = CLONO2 # 1.80e-31^-3.40&1.50e-11^-1.90&0.60&1.0; CLONO2 = CLO + NO2 # 1.0/; CLONO2 = CL + NO3 # 1.0/; CLONO2 = CLO + NO2 # 4.48e-05^-1.00@12530&3.71e+15^3.50@12530&0.60&1.0; CL + CLONO2 = CL2 + NO3 # 6.20e-12@-145; CLO + HO2 = HOCL # 2.20e-12@-340; HOCL = OH + CL # 1.0/; CLO + CLO = 0.29*CL2 + 1.42*CL # 1.25e-11@1960; OH + HCL = CL # 1.70e-12@230; CL + H2 = HCL + HO2 # 3.90e-11@2310; HCHO + CL = HCL + HO2 + CO # 8.10e-11@30; CCHO + CL = HCL + MECO3 # 8.00e-11; MEOH + CL = HCL + HCHO + HO2 # 5.50e-11; RCHO + CL = HCL + 0.9*RCO3 + 0.1*RO2C + 0.1*xCCHO + 0.1*xCO + 0.1*xHO2 + 0.1*yROOH # 1.23e-10; ACETONE + CL = HCL + RO2C + xHCHO + xMECO3 + yROOH # 7.70e-11@1000; MEK + CL = HCL + 0.975*RO2C + 0.039*RO2XC + 0.039*zRNO3 + 0.84*xHO2 + 0.085*xMECO3 + 0.036*xRCO3 + 0.065*xHCHO + 0.07*xCCHO + 0.84*xRCHO + yROOH + 0.763*XC # 3.60e-11; RNO3 + CL = HCL + 0.038*NO2 + 0.055*HO2 + 1.282*RO2C + 0.202*RO2XC + 0.202*zRNO3 + 0.009*RCHO + 0.018*MEK + 0.012*PRD2 + 0.055*RNO3 + 0.159*xNO2 + 0.547*xHO2 + 0.045*xHCHO + 0.3*xCCHO + 0.02*xRCHO + 0.003*xACETONE + 0.041*xMEK + 0.046*xPROD2 + 0.547*xRNO3 + 0.908*yR6OOH + 0.201*XN - 0.149*XC # 1.92e-10; PRD2 + CL = HCL + 0.314*HO2 + 0.68*RO2C + 0.116*RO2XC + 0.116*zRNO3 + 0.198*RCHO + 0.116*PRD2 + 0.541*xHO2 + 0.007*xMECO3 + 0.022*xRCO3 + 0.237*xHCHO + 0.109*xCCHO + 0.591*xRCHO + 0.051*xMEK + 0.04*xPROD2 + 0.686*yR6OOH + 1.262*XC # 2.00e-10; GLY + CL = HCL + 0.63*HO2 + 1.26*CO + 0.37*RCO3 - 0.37*XC # 8.10e-11@30; MGLY + CL = HCL + CO + MECO3 # 8.00e-11; CRES + CL = HCL + xHO2 + xBALD + yR6OOH # 6.20e-11; BALD + CL = HCL + BZCO3 # 8.00e-11; ROOH + CL = HCL + 0.414*OH + 0.588*RO2C + 0.414*RCHO + 0.104*xOH + 0.482*xHO2 + 0.106*xHCHO + 0.104*xCCHO + 0.197*xRCHO + 0.285*xMEK + 0.586*yROOH - 0.287*XC # 1.66e-10; R6OOH + CL = HCL + 0.145*OH + 1.078*RO2C + 0.117*RO2XC + 0.117*zRNO3 + 0.145*PRD2 + 0.502*xOH + 0.237*xHO2 + 0.186*xCCHO + 0.676*xRCHO + 0.28*xPROD2 + 0.855*yR6OOH + 0.348*XC # 3.00e-10; RAOOH + CL = 0.404*HCL + 0.139*OH + 0.148*HO2 + 0.589*RO2C + 0.124*RO2XC + 0.124*zRNO3 + 0.074*PRD2 + 0.147*MGLY + 0.139*IPRD + 0.565*xHO2 + 0.024*xOH + 0.448*xRCHO + 0.026*xGLY + 0.03*xMEK + 0.252*xMGLY + 0.073*xAFG1 + 0.073*xAFG2 + 0.713*yR6OOH + 2.674*XC # 4.29e-10; ACROLEIN + CL = 0.484*xHO2 + 0.274*xCL + 0.216*MACO3 + 1.032*RO2C + 0.026*RO2XC + 0.026*zRNO3 + 0.216*HCL + 0.484*xCO + 0.274*xHCHO + 0.274*xGLY + 0.484*xCLCCHO + 0.784*yROOH - 0.294*XC # 2.94e-10; MACR + CL = 0.25*HCL + 0.165*MACO3 + 0.802*RO2C + 0.033*RO2XC + 0.033*zRNO3 + 0.802*xHO2 + 0.541*xCO + 0.082*xIPRD + 0.18*xCLCCHO + 0.541*xCLACET + 0.835*yROOH + 0.208*XC # 3.85e-10; MVK + CL = 1.283*RO2C + 0.053*RO2XC + 0.053*zRNO3 + 0.322*xHO2 + 0.625*xMECO3 + 0.947*xCLCCHO + yROOH + 0.538*XC # 2.32e-10; IPRD + CL = 0.401*HCL + 0.084*HO2 + 0.154*MACO3 + 0.73*RO2C + 0.051*RO2XC + 0.051*zRNO3 + 0.042*AFG1 + 0.042*AFG2 + 0.712*xHO2 + 0.498*xCO + 0.195*xHCHO + 0.017*xMGLY + 0.009*xAFG1 + 0.009*xAFG2 + 0.115*xIPRD + 0.14*xCLCCHO + 0.42*xCLACET + 0.762*yR6OOH + 0.709*XC # 4.12e-10; CLCCHO = HO2 + CO + RO2C + xCL + xHCHO + yROOH # 1.0/; CLCCHO + OH = RCO3 - 1*XC # 3.10e-12; CLCCHO + CL = HCL + RCO3 - 1*XC # 1.29e-11; CLACET = MECO3 + RO2C + xCL + xHCHO + yROOH # 5.00e-1/; xCL + NO = NO + CL # 1.0*K; xCL + HO2 = HO2 # 1.0*K; xCL + NO3 = NO3 + CL # 1.0*K; xCL + MEO2 = MEO2 + 0.5*CL # 1.0*K; xCL + RO2C = RO2C + 0.5*CL # 1.0*K; xCL + RO2XC = RO2XC + 0.5*CL # 1.0*K; xCL + MECO3 = MECO3 + CL # 1.0*K; xCL + RCO3 = RCO3 + CL # 1.0*K; xCL + BZCO3 = BZCO3 + CL # 1.0*K; xCL + MACO3 = MACO3 + CL # 1.0*K; xCLCCHO + NO = NO + CLCCHO # 1.0*K; xCLCCHO + HO2 = HO2 + 2*XC # 1.0*K; xCLCCHO + NO3 = NO3 + CLCCHO # 1.0*K; xCLCCHO + MEO2 = MEO2 + 0.5*CLCCHO + XC # 1.0*K; xCLCCHO + RO2C = RO2C + 0.5*CLCCHO + XC # 1.0*K; xCLCCHO + RO2XC = RO2XC + 0.5*CLCCHO + XC # 1.0*K; xCLCCHO + MECO3 = MECO3 + CLCCHO # 1.0*K; xCLCCHO + RCO3 = RCO3 + CLCCHO # 1.0*K; xCLCCHO + BZCO3 = BZCO3 + CLCCHO # 1.0*K; xCLCCHO + MACO3 = MACO3 + CLCCHO # 1.0*K; xCLACET + NO = NO + CLACET # 1.0*K; xCLACET + HO2 = HO2 + 3*XC # 1.0*K; xCLACET + NO3 = NO3 + CLACET # 1.0*K; xCLACET + MEO2 = MEO2 + 0.5*CLACET + 1.5*XC # 1.0*K; xCLACET + RO2C = RO2C + 0.5*CLACET + 1.5*XC # 1.0*K; xCLACET + RO2XC = RO2XC + 0.5*CLACET + 1.5*XC # 1.0*K; xCLACET + MECO3 = MECO3 + CLACET # 1.0*K; xCLACET + RCO3 = RCO3 + CLACET # 1.0*K; xCLACET + BZCO3 = BZCO3 + CLACET # 1.0*K; xCLACET + MACO3 = MACO3 + CLACET # 1.0*K; CH4 + CL = HCL + MEO2 # 7.30e-12@1280; ETHENE + CL = xHO2 + 2*RO2C + xHCHO + CLCHO # 1.60e-29^-3.30&3.10e-10^-1.00&0.60&1.0; PROPENE + CL = 0.124*HCL + 0.971*xHO2 + 0.971*RO2C + 0.029*RO2XC + 0.029*zRNO3 + 0.124*xACROLEIN + 0.306*xCLCCHO + 0.54*xCLACET + yROOH + 0.222*XC # 2.67e-10; BUTADIENE13 + CL = 0.39*xHO2 + 0.541*xCL + 1.884*RO2C + 0.069*RO2XC + 0.069*zRNO3 + 0.863*xHCHO + 0.457*xACROLEIN + 0.473*xIPRD + yROOH - 1.013*XC # 4.90e-10; ISOPRENE + CL = 0.15*HCL + 0.738*xHO2 + 0.177*xCL + 1.168*RO2C + 0.085*RO2XC + 0.085*zRNO3 + 0.275*xHCHO + 0.177*xMVK + 0.671*xIPRD + 0.067*xCLCCHO + yR6OOH + 0.018*XC # 4.80e-10; APIN + CL = 0.548*HCL + 0.252*xHO2 + 0.068*xCL + 0.034*xMECO3 + 0.05*xRCO3 + 0.016*xMACO3 + 2.258*RO2C + 0.582*RO2XC + 0.582*zRNO3 + 0.035*xCO + 0.158*xHCHO + 0.185*xRCHO + 0.274*xACETONE + 0.007*xGLY + 0.003*xBACL + 0.003*xMVK + 0.158*xIPRD + 0.006*xAFG1 + 0.006*xAFG2 + 0.001*xAFG3 + 0.109*xCLCCHO + yR6OOH + 3.543*XC # 5.46e-10; ACETYLENE + CL = HO2 + CO + XC # 5.20e-30^-2.40&2.20e-10&0.60&1.0; TOLUENE + CL = 0.894*xHO2 + 0.894*RO2C + 0.106*RO2XC + 0.106*zRNO3 + 0.894*xBALD + 0.106*XC # 6.20e-11; MXYL + CL = 0.864*xHO2 + 0.864*RO2C + 0.136*RO2XC + 0.136*zRNO3 + 0.864*xBALD + 1.136*XC # 1.35e-10; OXYL + CL = 0.864*xHO2 + 0.864*RO2C + 0.136*RO2XC + 0.136*zRNO3 + 0.864*xBALD + 1.136*XC # 1.40e-10; PXYL + CL = 0.864*xHO2 + 0.864*RO2C + 0.136*RO2XC + 0.136*zRNO3 + 0.864*xBALD + 1.136*XC # 1.44e-10; TMBENZ124 + CL = 0.838*xHO2 + 0.838*RO2C + 0.162*RO2XC + 0.162*zRNO3 + 0.838*xBALD + 2.162*XC # 2.42e-10; ETOH + CL = HCL + 0.688*HO2 + 0.312*xHO2 + 0.312*RO2C + 0.503*xHCHO + 0.688*CCHO + 0.061*xHOCCHO + 0.312*yROOH - 0.001*XC # 8.60e-11@-45; ALK1 + CL = HCL + xHO2 + RO2C + xCCHO + yROOH # 8.30e-11@100; ALK2 + CL = HCL + 0.97*xHO2 + 0.97*RO2C + 0.03*RO2XC + 0.03*zRNO3 + 0.482*xRCHO + 0.488*xACETONE + yROOH - 0.09*XC # 1.20e-10@-40; ALK3 + CL = HCL + 0.835*xHO2 + 0.094*xTBUO + 1.361*RO2C + 0.07*RO2XC + 0.07*zRNO3 + 0.078*xHCHO + 0.34*xCCHO + 0.343*xRCHO + 0.075*xACETONE + 0.253*xMEK + 0.983*yROOH + 0.017*yR6OOH + 0.18*XC # 1.86e-10; ALK4 + CL = HCL + 0.827*xHO2 + 0.003*xMEO2 + 0.004*xMECO3 + 1.737*RO2C + 0.165*RO2XC + 0.165*zRNO3 + 0.003*xCO + 0.034*xHCHO + 0.287*xCCHO + 0.412*xRCHO + 0.247*xACETONE + 0.076*xMEK + 0.13*xPROD2 + yR6OOH + 0.327*XC # 2.63e-10; ALK5 + CL = HCL + 0.647*xHO2 + 1.541*RO2C + 0.352*RO2XC + 0.352*zRNO3 + 0.022*xHCHO + 0.08*xCCHO + 0.258*xRCHO + 0.044*xACETONE + 0.041*xMEK + 0.378*xPROD2 + yR6OOH + 2.368*XC # 4.21e-10; OLE1 + CL = 0.384*HCL + 0.873*xHO2 + 1.608*RO2C + 0.127*RO2XC + 0.127*zRNO3 + 0.036*xHCHO + 0.206*xCCHO + 0.072*xRCHO + 0.215*xACROLEIN + 0.019*xMVK + 0.038*xIPRD + 0.192*xCLCCHO + 0.337*xCLACET + 0.169*yROOH + 0.831*yR6OOH + 1.268*XC # 3.92e-10; OLE2 + CL = 0.279*HCL + 0.45*xHO2 + 0.442*xCL + 0.001*xMEO2 + 1.492*RO2C + 0.106*RO2XC + 0.106*zRNO3 + 0.19*xHCHO + 0.383*xCCHO + 0.317*xRCHO + 0.086*xACETONE + 0.042*xMEK + 0.025*xMACR + 0.058*xMVK + 0.161*xIPRD + 0.013*xCLCCHO + 0.191*xCLACET + 0.319*yROOH + 0.681*yR6OOH + 0.294*XC # 3.77e-10; ARO1 + CL = 0.84*xHO2 + 0.84*RO2C + 0.16*RO2XC + 0.16*zRNO3 + 0.84*xPROD2 + XC # 2.16e-10; ARO2MN + CL = 0.828*xHO2 + 0.828*RO2C + 0.172*RO2XC + 0.172*zRNO3 + 0.469*xBALD + 0.359*xPROD2 + 2.531*XC # 2.66e-10; NAPHTHAL + CL = 0.828*xHO2 + 0.828*RO2C + 0.172*RO2XC + 0.172*zRNO3 + 0.469*xBALD + 0.359*xPROD2 + 2.531*XC # 2.66e-10; TERP + CL = 0.548*HCL + 0.252*xHO2 + 0.068*xCL + 0.034*xMECO3 + 0.05*xRCO3 + 0.016*xMACO3 + 2.258*RO2C + 0.582*RO2XC + 0.582*zRNO3 + 0.035*xCO + 0.158*xHCHO + 0.185*xRCHO + 0.274*xACETONE + 0.007*xGLY + 0.003*xBACL + 0.003*xMVK + 0.158*xIPRD + 0.006*xAFG1 + 0.006*xAFG2 + 0.001*xAFG3 + 0.109*xCLCCHO + yR6OOH + 3.543*XC # 5.46e-10; SESQ + CL = 0.252*xHO2 + 0.068*xCL + 0.034*xMECO3 + 0.05*xRCO3 + 0.016*xMACO3 + 2.258*RO2C + 0.582*RO2XC + 0.582*zRNO3 + 0.548*HCL + 0.035*xCO + 0.158*xHCHO + 0.185*xRCHO + 0.274*xACETONE + 0.007*xGLY + 0.003*xBACL + 0.003*xMVK + 0.158*xIPRD + 0.006*xAFG1 + 0.006*xAFG2 + 0.001*xAFG3 + 0.109*xCLCCHO + yR6OOH + 8.543*XC # 1.0*K; ! Reactions for aerosol precursors from benzene, xylenes, and toluene BENZRO2 + NO = NO +BNZNRXN # 1.0*K; BENZRO2 + HO2 = HO2 + BNZHRXN # 1.0*K; XYLRO2 + NO = NO +XYLNRXN # 1.0*K; XYLRO2 + HO2 = HO2 + XYLHRXN # 1.0*K; TOLRO2 + NO = NO +TOLNRXN # 1.0*K; TOLRO2 + HO2 = HO2 + TOLHRXN # 1.0*K; PAHRO2 + NO = NO +PAHNRXN # 1.0*K; PAHRO2 + HO2 = HO2 + PAHHRXN # 1.0*K; ! Reactive Tracers for formaldehyde, acetaldehyde and acrolein HCHO_PRIMARY = # 1.0/; HCHO_PRIMARY = # 1.0/; HCHO_PRIMARY + OH = OH # 5.40e-12@-135; ! Removed based on comment from peer reviews ! HCHO_PRIMARY + HO2 = HO2 # 9.70e-15@-625; ! HCHO_PRIMARY + NO3 = NO3 # 2.00e-12@2431; HCHO_PRIMARY + CL = CL # 8.10e-11@30; CCHO_PRIMARY + OH = OH # 4.40e-12@-365; CCHO_PRIMARY = # 1.0/; CCHO_PRIMARY + NO3 = NO3 # 1.40e-12@1860; CCHO_PRIMARY + CL = CL # 8.00e-11; ACRO_PRIMARY + OH = OH # 1.99e-11; ACRO_PRIMARY + O3 = O3 # 1.40e-15@2528; ACRO_PRIMARY + NO3 = NO3 # 1.18e-15; ACRO_PRIMARY + O3P = O3P # 2.37e-12; ACRO_PRIMARY = # 1.0/; ACRO_PRIMARY + CL = CL # 2.94e-10; ! iorganic heteorogeneous NO2 reaction from hetchem version 5.0.2 NO2 = 0.5*HONO + 0.5*HNO3 # 1.0~; ! version 5.1 heterogenous N2O5 reactions leading to HNO3 and CLNO2 N2O5 = HNO3 + H2NO3PIJ # 1.0~; N2O5 = HNO3 + H2NO3PK # 1.0~; H2NO3PIJ = HNO3 # 1.0~; H2NO3PK = HNO3 # 1.0~; H2NO3PIJ + ACLI = CLNO2 # 1.0~; H2NO3PIJ + ACLJ = CLNO2 # 1.0~; H2NO3PK + ACLK = CLNO2 # 1.0~; ! Simplified ozone loss from oceanic halogens excluding chlorine O3 = %H # 6.7006E-11@-10.7435 & 3.4153E-08@0.6713 & 2.0E-6; ! oligomerization reaction for secondary organic aerosols AXYL1J = 0.8571*AOLGAJ # 9.48816E-6; AXYL2J = 1.1429*AOLGAJ # 9.48816E-6; ATOL1J = 0.8571*AOLGAJ # 9.48816E-6; ATOL2J = 1.1429*AOLGAJ # 9.48816E-6; ABNZ1J = 0.7143*AOLGAJ # 9.48816E-6; ABNZ2J = 0.7143*AOLGAJ # 9.48816E-6; ATRP1J = 0.8*AOLGBJ # 9.48816E-6; ATRP2J = 0.9*AOLGBJ # 9.48816E-6; AISO1J = 0.50*AOLGBJ # 9.48816E-6; AISO2J = 0.50*AOLGBJ # 9.48816E-6; ASQTJ = 1.50*AOLGBJ # 9.48816E-6; APAH1J = 1.4286*AOLGAJ # 9.48816E-6; APAH2J = 1.4286*AOLGAJ # 9.48816E-6; AALK1J = 1.7143*AOLGAJ # 9.48816E-6; AALK2J = 1.7143*AOLGAJ # 9.48816E-6; !aging reactions for primary organic carbon APOCI + OH = 1.25*APNCOMI + APOCI + OH # 2.5E-12; APNCOMI + OH = OH # 1.0~; APOCJ + OH = 1.25*APNCOMJ + APOCJ + OH # 2.5E-12; APNCOMJ + OH = OH # 1.0~; ! Formation of Potential Combustion SOA (pcSOA) PCVOC + OH = OH + PCSOARXN # 1.25E-11; ! Aging with Func. and Frag. (Donahue et al. 2012) VLVPO1 + OH = OH + 0.4857 * VLVPO1 + 0.0062 * VSVPO1 + 0.0025 * VSVPO2 + 0.0026 * VSVPO3 + 0.0023 * VIVPO1 + 0.2944 * VLVOO1 + 0.2021 * VLVOO2 + 0.0019 * VSVOO2 + 0.0023 * VSVOO3 #4.0e-11; VSVPO1 + OH = OH + 0.3003 * VLVPO1 + 0.2862 * VSVPO1 + 0.0041 * VSVPO2 + 0.0035 * VSVPO3 + 0.2239 * VLVOO1 + 0.1820 * VLVOO2 #4.0e-11; VSVPO2 + OH = OH + 0.3856 * VLVPO1 + 0.0950 * VSVPO1 + 0.1373 * VSVPO2 + 0.0005 * VSVPO3 + 0.2051 * VLVOO1 + 0.1764 * VLVOO2 #4.0e-11; VSVPO3 + OH = OH + 0.2181 * VLVPO1 + 0.3063 * VSVPO1 + 0.0153 * VSVPO2 + 0.1043 * VSVPO3 + 0.1893 * VLVOO1 + 0.1668 * VLVOO2 #4.0e-11; VIVPO1 + OH = OH + 0.2412 * VLVPO1 + 0.2089 * VSVPO1 + 0.3000 * VSVPO2 + 0.2028 * VLVOO1 + 0.0471 * VLVOO2 #4.0e-11; VLVOO1 + OH = OH + 0.6664 * VLVOO1 + 0.0143 * VLVOO2 + 0.0123 * VSVOO1 + 0.1239 * VSVOO2 + 0.1831 * VSVOO3 #4.0e-11; VLVOO2 + OH = OH + 0.2858 * VLVOO1 + 0.3931 * VLVOO2 + 0.0139 * VSVOO1 + 0.1027 * VSVOO2 + 0.2045 * VSVOO3 #4.0e-11; VSVOO1 + OH = OH + 0.3303 * VLVOO1 + 0.2272 * VLVOO2 + 0.2607 * VSVOO1 + 0.0702 * VSVOO2 + 0.1116 * VSVOO3 #4.0e-11; VSVOO2 + OH = OH + 0.3444 * VLVOO1 + 0.2749 * VLVOO2 + 0.0491 * VSVOO1 + 0.2577 * VSVOO2 + 0.0739 * VSVOO3 #4.0e-11; VSVOO3 + OH = OH + 0.3886 * VLVOO1 + 0.2421 * VLVOO2 + 0.0640 * VSVOO1 + 0.0385 * VSVOO2 + 0.2667 * VSVOO3 #4.0e-11; ! organic heterogeneous reactions IEPOX = AISO3J # 1.0~; endmech constants < C1> ATM_AIR = 1.0E+06 < C2> ATM_H2 = 0.56 < C3> ATM_N2 = 0.7808E+06 < C4> ATM_O2 = 0.2095E+06 < C5> ATM_CH4 = 1.85 end constants ================================================ FILE: CCTM/src/MECHS/saprc07tc_ae6_aq/pa_saprc07tc_ae6_aq.ctl ================================================ ! for saprc07tc_ae6_aq ! !======================================================================= ! IPR_OUTPUTS !======================================================================= IPR_OUTPUT O3 = CHEM+DDEP+CLDS+AERO+TRNM; IPR_OUTPUT HNO3 = CHEM+DDEP+CLDS+AERO; IPR_OUTPUT PAN = CHEM+DDEP+CLDS+AERO+TRNM; IPR_OUTPUT N2O5 = CHEM+DDEP+CLDS+AERO; DEFINE FAMILY EC = AECI + AECJ; IPR_OUTPUT EC = COAG + EMIS + HADV; IPR_OUTPUT ASO4J = COND + COAG + EMIS + CHEM + VDIF + CLDS; IPR_OUTPUT ASO4I = NPF + COND + COAG + EMIS + CHEM + VDIF +CLDS; IPR_OUTPUT NUMATKN; !IPR_OUTPUT NUMACC; !IPR_OUTPUT NUMCOR; ! ENDPA; ================================================ FILE: CCTM/src/MECHS/saprc07tic_ae7i_aq/AE_saprc07tic_ae7i_aq.nml ================================================ &AE_nml AE_SPECIES_DATA = !SPECIES ,MOLWT ,Aitken ,Accum ,Coarse ,OPTICS ,IC ,ICFAC ,BC ,BC_FAC ,DRYDEP SURR ,FAC ,WET-SCAV SURR ,FAC ,AE2AQ SURR ,TRNS ,DDEP ,WDEP ,CONC 'ASO4' , 96.00 ,T ,T ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'SO4' , 1 ,'SO4' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ANH4' , 18.00 ,T ,T ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'NH4' , 1 ,'NH4' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ANO3' , 62.00 ,T ,T ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'NO3' , 1 ,'NO3' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ANA' , 23.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'NA' , 1 ,'NA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ACL' , 35.50 ,T ,T ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'CL' , 1 ,'CL' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AISO1' ,132.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AISO2' ,133.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ASQT' ,273.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AORGC' ,177.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'AORGC' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AEC' , 12.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'EC' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AOTHR' ,200.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'PRI' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AFE' , 55.80 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'FE' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AAL' , 27.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'PRI' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ASI' , 28.10 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'PRI' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ATI' , 47.90 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'PRI' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ACA' , 40.10 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'CA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AMG' , 24.30 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'MG' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AK' , 39.10 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'K' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AMN' , 54.90 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'MN' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ACORS' ,100.00 ,F ,F ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'ANTH' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ASOIL' ,100.00 ,F ,F ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'SOIL' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'NUM' , 1.00 ,T ,T ,T ,'' ,'' ,-1 ,'' ,-1 ,'VNUM' , 1 ,'NUM' , 1 ,'NUM' ,'Yes' ,'' ,'' ,'Yes', 'SRF' , 1.00 ,T ,T ,T ,'' ,'' ,-1 ,'' ,-1 ,'VSRF' , 1 ,'SRF' , 1 ,'SRF' ,'Yes' ,'' ,'' ,'Yes', 'AORGH2O' , 18.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'H2O' , 1 ,'H2O' ,'Yes' ,'' ,'' ,'Yes', 'AH2O' , 18.00 ,T ,T ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'H2O' , 1 ,'H2O' ,'Yes' ,'' ,'' ,'Yes', 'AH3OP' , 19.00 ,T ,T ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'' ,-1 ,'' ,'Yes' ,'' ,'' ,'Yes', 'ASEACAT' , 23.75 ,F ,F ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'SEAS' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AISO3' ,168.20 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AOLGA' ,206.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AOLGB' ,248.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AGLY' , 66.40 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AMTNO3' ,231.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AISOPNN' ,226.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AMTHYD' ,186.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AIETET' ,136.15 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AIEOS' ,216.20 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ADIM' ,248.23 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AIMGA' ,120.10 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AIMOS' ,200.16 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'APOC' ,220.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'APNCOM' ,220.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'APCSO' ,170.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ALVPO1' ,218.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ASVPO1' ,230.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ASVPO2' ,241.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ASVPO3' ,253.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AIVPO1' ,266.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ALVOO1' ,136.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ALVOO2' ,136.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ASVOO1' ,135.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ASVOO2' ,135.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ASVOO3' ,134.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AAVB1' ,198.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AAVB2' ,179.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AAVB3' ,169.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AAVB4' ,158.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AMT1' ,300.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AMT2' ,200.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AMT3' ,186.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AMT4' ,184.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AMT5' ,170.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AMT6' ,168.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', / ================================================ FILE: CCTM/src/MECHS/saprc07tic_ae7i_aq/CMAQ_Control_DESID_saprc07tic_ae7i_aq.nml ================================================ !------------------------------------------------------------------------------! ! Emission Control Interface ! ! for the ! ! Detailed Emissions Scaling, Isolation, and Diagnostics (DESID) Module, ! ! part of the ! ! Community Multiscale Air Quality (CMAQ) Model ! ! developed and maintained by the ! ! Center for Environmental Measurement and Modeling (CEMM), ! ! Office of Research and Development (ORD) ! ! U.S. Environmental Protection Agency (USEPA) ! ! ! ! This namelist is consistent with CMAQv5.4 (Release AUGUST 2022) ! ! ! ! See CMAQ User's Guide Appendix B (https://github.com/USEPA/CMAQ/blob/main/ ! ! DOCS/Users_Guide/Appendix/CMAQ_UG_appendixB_emissions_control.md) ! ! and Murphy et al., Geoscientific Model Development, 14, 3407-3420, ! ! https://doi.org/10.5194/gmd-14-3407-2021, 2021. ! !------------------------------------------------------------------------------! !------------------------------------------------------------------------------! ! Emissions Scaling Rule Specification Component ! ! Each rule is presented as a row of inputs. The syntax of the ! ! emissions scaling rules is the following: ! ! EM_INSTR(I) = 'Region Label', 'Stream Label', 'Emission-Species', ! ! 'CMAQ-Species', 'Phase/Mode', 'Scale Factor', 'Basis', ! ! 'Operation' ! ! ! ! See the User's Guide for detailed definitions of each field. ! ! ! ! You may confirm the effect of the (default and custom) rules below by ! ! inspecting the processor-dependent log files ("CTM_LOG_XXX...") ! ! ! ! Note: If no rules are provided for a species, then there is no emission ! ! of that species. ! !------------------------------------------------------------------------------! &Desid_ScalingVars Desid_Max_Rules = 2000 / &Desid_Scaling Desid_Rules_nml = ! Region | Stream Label |Emission | CMAQ- |Phase/|Scale |Basis |Op ! Label | |Species | Species |Mode |Factor| | ! Gases 'EVERYWHERE', 'ALL' ,'NO2' ,'NO2' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'NO' ,'NO' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'HONO' ,'HONO' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'CO' ,'CO' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'SO2' ,'SO2' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'NH3' ,'NH3' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'HCHO' ,'HCHO' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'MEOH' ,'MEOH' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'AACD' ,'CCOOH' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'CCOOH' ,'CCOOH' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PACD' ,'RCOOH' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'RNO3' ,'RNO3' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'ACET' ,'ACETONE' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'ACETONE' ,'ACETONE' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'CRES' ,'CRES' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'CCHO' ,'CCHO' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'RCHO' ,'RCHO' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'MEK' ,'MEK' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'FACD' ,'HCOOH' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'HCOOH' ,'HCOOH' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PRD2' ,'PRD2' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'MGLY' ,'MGLY' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'IPRD' ,'IPRD' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'GLY' ,'GLY' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'BACL' ,'BACL' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'BALD' ,'BALD' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'MACR' ,'MACR' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'MVK' ,'MVK' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'ACRO' ,'ACROLEIN' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'ACROLEIN' ,'ACROLEIN' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'ETHE' ,'ETHENE' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'ETHENE' ,'ETHENE' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PRPE' ,'PROPENE' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PROPENE' ,'PROPENE' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'BDE13' ,'BUTADIENE13' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'ISOP' ,'ISOPRENE' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'ISOPRENE' ,'ISOPRENE' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'APIN' ,'APIN' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'ACYE' ,'ACETYLENE' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'BENZ' ,'BENZENE' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'TOLU' ,'TOLUENE' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'MXYL' ,'MXYL' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'OXYL' ,'OXYL' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PXYL' ,'PXYL' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'B124' ,'TMBENZ124' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'ETOH' ,'ETOH' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'ALK1' ,'ALK1' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'ALK2' ,'ALK2' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'ALK3' ,'ALK3' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'ALK4' ,'ALK4' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'ALK5' ,'ALK5' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'SOAALK' ,'SOAALK' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'OLE1' ,'OLE1' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'OLE2' ,'OLE2' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'ARO1' ,'ARO1' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'ARO2MN' ,'ARO2MN' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'NAPHTHALENE','NAPHTHAL' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'TERP' ,'TERP' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'SESQ' ,'SESQ' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'CL2' ,'CL2' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'HCL' ,'HCL' ,'GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'HCHO' ,'HCHO_PRIMARY','GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'CCHO' ,'CCHO_PRIMARY','GAS' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'ACRO' ,'ACRO_PRIMARY','GAS' ,1. ,'UNIT','a', ! Fine-Mode Aerosols 'EVERYWHERE', 'ALL' ,'SULF' ,'ASO4' ,'FINE' ,1. ,'MASS','a', 'EVERYWHERE', 'ALL' ,'PSO4' ,'ASO4' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PNH4' ,'ANH4' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PNO3' ,'ANO3' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PCL' ,'ACL' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PNA' ,'ANA' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PEC' ,'AEC' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMOTHR' ,'AOTHR' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PFE' ,'AFE' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PAL' ,'AAL' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PSI' ,'ASI' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PTI' ,'ATI' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PCA' ,'ACA' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMG' ,'AMG' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PK' ,'AK' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMN' ,'AMN' ,'FINE' ,1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PH2O' ,'AH2O' ,'FINE' ,1. ,'UNIT','a', ! Coarse-Mode Inorganic Ions Scaling 'EVERYWHERE', 'ALL' ,'PMC' ,'ACORS' ,'COARSE',0.99675,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMC' ,'ASO4' ,'COARSE',0.001 ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMC' ,'ANO3' ,'COARSE',0.00048,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMC' ,'ACL' ,'COARSE',0.00145,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMC' ,'AH2O' ,'COARSE',0.00032,'UNIT','a', ! Fine-Mode Primary Organic Aerosol Scaling ! --> Nonvolatile POA 'EVERYWHERE', 'ALL' ,'POC' ,'APOC' ,'FINE',0. ,'MASS','a', 'EVERYWHERE', 'ALL' ,'PNCOM' ,'APNCOM' ,'FINE',0. ,'MASS','a', ! --> Semivolatile POA (see CMAQ User's Guide Appendix B.2.2.1) 'EVERYWHERE', 'ALL' ,'POC' ,'VSVPO1' ,'GAS' ,0.045,'MASS','a', 'EVERYWHERE', 'ALL' ,'PNCOM' ,'VSVPO1' ,'GAS' ,0.045,'MASS','a', 'EVERYWHERE', 'ALL' ,'POC' ,'VSVPO2' ,'GAS' ,0.14 ,'MASS','a', 'EVERYWHERE', 'ALL' ,'PNCOM' ,'VSVPO2' ,'GAS' ,0.14 ,'MASS','a', 'EVERYWHERE', 'ALL' ,'POC' ,'VSVPO3' ,'GAS' ,0.18 ,'MASS','a', 'EVERYWHERE', 'ALL' ,'PNCOM' ,'VSVPO3' ,'GAS' ,0.18 ,'MASS','a', 'EVERYWHERE', 'ALL' ,'POC' ,'VIVPO1' ,'GAS' ,0.50 ,'MASS','a', 'EVERYWHERE', 'ALL' ,'PNCOM' ,'VIVPO1' ,'GAS' ,0.50 ,'MASS','a', 'EVERYWHERE', 'ALL' ,'POC' ,'ALVPO1' ,'FINE',0.09 ,'MASS','a', 'EVERYWHERE', 'ALL' ,'PNCOM' ,'ALVPO1' ,'FINE',0.09 ,'MASS','a', 'EVERYWHERE', 'ALL' ,'POC' ,'ASVPO1' ,'FINE',0.045,'MASS','a', 'EVERYWHERE', 'ALL' ,'PNCOM' ,'ASVPO1' ,'FINE',0.045,'MASS','a', ! pcSOA is a CMAQ species introduced to account for missing pathways for SOA ! formation from combustion sources. It accounts for IVOC oxidation as well as ! other phenomena (Murphy et al., ACP, 2017). It was parameterized based on data ! primarily from Los Angeles, where vehicle exhaust continues to dominate. 'EVERYWHERE', 'ALL' ,'POC' ,'PCVOC' ,'GAS' ,6.579,'MASS','a', 'EVERYWHERE', 'ALL' ,'PNCOM' ,'PCVOC' ,'GAS' ,6.579,'MASS','a', ! However, the added pcSOA is probably inappropriate for Fire sources, especially ! in its current configuration. This pathway should be zeroed out for all fire ! and wood-burning related sources. 'EVERYWHERE', 'PT_FIRES' ,'ALL' ,'PCVOC' ,'GAS' ,0.0 ,'MASS','o', 'EVERYWHERE', 'PT_RXFIRES' ,'ALL' ,'PCVOC' ,'GAS' ,0.0 ,'MASS','o', 'EVERYWHERE', 'PT_AGFIRES' ,'ALL' ,'PCVOC' ,'GAS' ,0.0 ,'MASS','o', 'EVERYWHERE', 'PT_OTHFIRES' ,'ALL' ,'PCVOC' ,'GAS' ,0.0 ,'MASS','o', 'EVERYWHERE', 'PT_FIRES_MXCA','ALL' ,'PCVOC' ,'GAS' ,0.0 ,'MASS','o', 'EVERYWHERE', 'GR_RES_FIRES' ,'ALL' ,'PCVOC' ,'GAS' ,0.0 ,'MASS','o', ! Wind-Blown Dust and Sea Spray Scaling ! Fine Components 'EVERYWHERE', 'ALL' ,'PMFINE_LVPO1','ALVPO1' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_LVOO1','ALVOO1' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_SO4' ,'ASO4' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_NO3' ,'ANO3' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_CL' ,'ACL' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_NH4' ,'ANH4' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_NA' ,'ANA' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_CA' ,'ACA' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_MG' ,'AMG' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_K' ,'AK' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_FE' ,'AFE' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_AL' ,'AAL' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_SI' ,'ASI' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_TI' ,'ATI' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_MN' ,'AMN' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_H2O' ,'AH2O' ,'FINE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMFINE_OTHR' ,'AOTHR' ,'FINE',1. ,'UNIT','a', ! Wind-Blown Dust and Sea Spray Scaling ! Coarse Components 'EVERYWHERE', 'ALL' ,'PMCOARSE_SO4','ASO4' ,'COARSE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMCOARSE_NO3','ANO3' ,'COARSE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMCOARSE_CL' ,'ACL' ,'COARSE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMCOARSE_H2O','AH2O' ,'COARSE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMCOARSE_SOIL','ASOIL' ,'COARSE',1. ,'UNIT','a', 'EVERYWHERE', 'ALL' ,'PMCOARSE_SEACAT','ASEACAT' ,'COARSE',1. ,'UNIT','a', / ================================================ FILE: CCTM/src/MECHS/saprc07tic_ae7i_aq/CSQY_DATA_saprc07tic_ae7i_aq ================================================ Table for Mechanism = SAPRC07TIC_AE7I_AQ NPHOTAB = 40 !Individual rates listed below: NO2_06 NO3NO_06 NO3NO2_6 O3O1D_06 O3O3P_06 HONO_06 HNO3 HNO4_06 H2O2 PAN HCHOR_06 HCHOM_06 CCHO_R C2CHO ACET_06 MEK_06 COOH GLY_07R GLY_07M MGLY_06 BACL_07 BALD_06 AFG1 MVK_06 MACR_06 IC3ONO2 HOCCHO_IUPAC ACRO_09 PAA CL2 CLNO_06 CLONO CLNO2 CLONO2_1 CLONO2_2 HOCL_06 CLCCHO CLACET HPALD NOA NTEMP = 6 ! I TEMP( I ) K 1 210.00 2 230.00 3 250.00 4 270.00 5 290.00 6 310.00 ! Wavelength and Photolysis Rate Parameters for CMAQ In-Line Photolysis ! calculation . The values are determined by averaging technique over the below ! number of wavelength bins. The technique employs an approach used by the FASTJX ! versions 6 and 7. !References: ! 1) Bian, H. S. and Prather, M. J.: Fast-J2: accurate simulation of stratospheric ! photolysis in global chemical models, J. Atmos. Chem., 41, 281-296 doi:10.1023/A:1014980619462, 2002. ! 2) Hsu, J. and Prather, M. J.: Stratospheric variability and tropospheric ozone, ! J. Geophys. Res., 114, D06102, doi:10.1029/2008JD010942, 2009. ! 3) Prather, M. J.: Fast-JX versions and utilities, available at: ! http://www.ess.uci.edu/researchgrp/prather/scholar_software/fast-jx ! (last accessed: 24 January 2014), 2014. ! Wave bands and Solar Flux ! N_INLINE_BAND = 7 ! I, START_WL_BIN(nm), EFFECT_WL_BIN_(nm), END_WL_BIN_(nm), photon_flux(cm-2*s-1), 1, 291.000, 294.590, 298.300, 5.8828E+14, 2, 298.300, 303.151, 307.500, 7.6354E+14, 3, 307.500, 310.007, 312.500, 5.0412E+14, 4, 312.500, 316.434, 320.300, 8.9628E+14, 5, 320.300, 333.076, 345.000, 3.8537E+15, 6, 345.000, 381.997, 412.500, 1.5457E+16, 7, 412.500, 607.723, 850.000, 2.1307E+17, !... CS = absorption cross sections averaged over UCI Solar Flux !... QY = quantum yields averaged over UCI Solar Flux !... EQY = eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model !PHOTAB QUANTITY TEMP WBIN( 1) WBIN( 2) WBIN( 3) WBIN( 4) WBIN( 5) WBIN( 6) WBIN( 7) NO2_06 CS 210.000 1.063921E-19 1.489476E-19 1.911589E-19 2.368089E-19 3.715161E-19 5.867486E-19 1.216142E-20 NO2_06 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 7.871307E-01 2.012091E-02 NO2_06 CS 230.000 1.065452E-19 1.488762E-19 1.907597E-19 2.355477E-19 3.679235E-19 5.852241E-19 1.213006E-20 NO2_06 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 7.871307E-01 2.012091E-02 NO2_06 CS 250.000 1.068513E-19 1.487335E-19 1.899615E-19 2.330251E-19 3.607383E-19 5.821752E-19 1.206733E-20 NO2_06 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 7.879280E-01 2.081692E-02 NO2_06 CS 270.000 1.071574E-19 1.485908E-19 1.891632E-19 2.305026E-19 3.535530E-19 5.791262E-19 1.200460E-20 NO2_06 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 7.959008E-01 2.777702E-02 NO2_06 CS 290.000 1.074636E-19 1.484480E-19 1.883650E-19 2.279800E-19 3.463678E-19 5.760772E-19 1.194188E-20 NO2_06 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 8.038736E-01 3.473711E-02 NO2_06 CS 310.000 1.075248E-19 1.484195E-19 1.882053E-19 2.274755E-19 3.449308E-19 5.754674E-19 1.192933E-20 NO2_06 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 8.070627E-01 3.752115E-02 NO3NO_06 CS 210.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 5.262113E-21 1.613590E-18 NO3NO_06 EQY 210.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 8.130509E-02 NO3NO_06 CS 230.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 4.993950E-21 1.531360E-18 NO3NO_06 EQY 230.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 8.048424E-02 NO3NO_06 CS 250.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 4.713711E-21 1.445427E-18 NO3NO_06 EQY 250.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 8.024673E-02 NO3NO_06 CS 270.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 4.425707E-21 1.357113E-18 NO3NO_06 EQY 270.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 8.000923E-02 NO3NO_06 CS 290.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 4.133394E-21 1.267477E-18 NO3NO_06 EQY 290.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 7.977173E-02 NO3NO_06 CS 310.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 3.839497E-21 1.177355E-18 NO3NO_06 EQY 310.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 7.967671E-02 NO3NO2_6 CS 210.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 5.262113E-21 1.613590E-18 NO3NO2_6 EQY 210.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.000000E+00 5.942736E-01 NO3NO2_6 CS 230.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 4.993950E-21 1.531360E-18 NO3NO2_6 EQY 230.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.000000E+00 6.050572E-01 NO3NO2_6 CS 250.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 4.713711E-21 1.445427E-18 NO3NO2_6 EQY 250.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.000000E+00 6.142171E-01 NO3NO2_6 CS 270.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 4.425707E-21 1.357113E-18 NO3NO2_6 EQY 270.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.000000E+00 6.233770E-01 NO3NO2_6 CS 290.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 4.133394E-21 1.267477E-18 NO3NO2_6 EQY 290.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.000000E+00 6.325368E-01 NO3NO2_6 CS 310.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 3.839497E-21 1.177355E-18 NO3NO2_6 EQY 310.000 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 0.000000E+00 1.000000E+00 6.362008E-01 O3O1D_06 CS 210.000 7.688467E-19 2.422055E-19 8.920470E-20 3.650450E-20 4.746825E-21 6.139220E-23 1.666851E-21 O3O1D_06 EQY 210.000 9.000000E-01 8.958209E-01 5.714505E-01 2.310225E-01 1.023619E-01 7.086942E-02 0.000000E+00 O3O1D_06 CS 230.000 7.803585E-19 2.474376E-19 9.195177E-20 3.806528E-20 5.075878E-21 6.139220E-23 1.666851E-21 O3O1D_06 EQY 230.000 9.000000E-01 8.958209E-01 5.714505E-01 2.310225E-01 1.023619E-01 7.086942E-02 0.000000E+00 O3O1D_06 CS 250.000 7.995448E-19 2.561579E-19 9.653022E-20 4.066658E-20 5.624299E-21 6.139220E-23 1.666851E-21 O3O1D_06 EQY 250.000 9.000000E-01 8.958209E-01 5.714505E-01 2.310225E-01 1.023619E-01 7.086942E-02 0.000000E+00 O3O1D_06 CS 270.000 8.187311E-19 2.648782E-19 1.011087E-19 4.326788E-20 6.172721E-21 6.139220E-23 1.666851E-21 O3O1D_06 EQY 270.000 9.000000E-01 8.958209E-01 5.714505E-01 2.310225E-01 1.023619E-01 7.086942E-02 0.000000E+00 O3O1D_06 CS 290.000 8.379175E-19 2.735984E-19 1.056871E-19 4.586918E-20 6.721143E-21 6.139220E-23 1.666851E-21 O3O1D_06 EQY 290.000 9.000000E-01 8.958209E-01 5.714505E-01 2.310225E-01 1.023619E-01 7.086942E-02 0.000000E+00 O3O1D_06 CS 310.000 8.407954E-19 2.749065E-19 1.063739E-19 4.625938E-20 6.803406E-21 6.139220E-23 1.666851E-21 O3O1D_06 EQY 310.000 9.000000E-01 8.958209E-01 5.714505E-01 2.310225E-01 1.023619E-01 7.086942E-02 0.000000E+00 O3O3P_06 CS 210.000 7.688467E-19 2.422055E-19 8.920470E-20 3.650450E-20 4.746825E-21 6.139220E-23 1.666851E-21 O3O3P_06 EQY 210.000 1.000000E-01 1.041791E-01 4.285495E-01 7.689775E-01 8.976381E-01 9.291306E-01 1.000000E+00 O3O3P_06 CS 230.000 7.803585E-19 2.474376E-19 9.195177E-20 3.806528E-20 5.075878E-21 6.139220E-23 1.666851E-21 O3O3P_06 EQY 230.000 1.000000E-01 1.041791E-01 4.285495E-01 7.689775E-01 8.976381E-01 9.291306E-01 1.000000E+00 O3O3P_06 CS 250.000 7.995448E-19 2.561579E-19 9.653022E-20 4.066658E-20 5.624299E-21 6.139220E-23 1.666851E-21 O3O3P_06 EQY 250.000 1.000000E-01 1.041791E-01 4.285495E-01 7.689775E-01 8.976381E-01 9.291306E-01 1.000000E+00 O3O3P_06 CS 270.000 8.187311E-19 2.648782E-19 1.011087E-19 4.326788E-20 6.172721E-21 6.139220E-23 1.666851E-21 O3O3P_06 EQY 270.000 1.000000E-01 1.041791E-01 4.285495E-01 7.689775E-01 8.976381E-01 9.291306E-01 1.000000E+00 O3O3P_06 CS 290.000 8.379175E-19 2.735984E-19 1.056871E-19 4.586918E-20 6.721143E-21 6.139220E-23 1.666851E-21 O3O3P_06 EQY 290.000 1.000000E-01 1.041791E-01 4.285495E-01 7.689775E-01 8.976381E-01 9.291306E-01 1.000000E+00 O3O3P_06 CS 310.000 8.407954E-19 2.749065E-19 1.063739E-19 4.625938E-20 6.803406E-21 6.139220E-23 1.666851E-21 O3O3P_06 EQY 310.000 1.000000E-01 1.041791E-01 4.285495E-01 7.689775E-01 8.976381E-01 9.291306E-01 1.000000E+00 HONO_06 CS 210.000 5.486960E-21 9.335561E-21 1.881716E-20 3.188688E-20 9.007190E-20 6.903974E-20 0.000000E+00 HONO_06 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HONO_06 CS 230.000 5.486960E-21 9.335561E-21 1.881716E-20 3.188688E-20 9.007190E-20 6.903974E-20 0.000000E+00 HONO_06 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HONO_06 CS 250.000 5.486960E-21 9.335561E-21 1.881716E-20 3.188688E-20 9.007190E-20 6.903974E-20 0.000000E+00 HONO_06 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HONO_06 CS 270.000 5.486960E-21 9.335561E-21 1.881716E-20 3.188688E-20 9.007190E-20 6.903974E-20 0.000000E+00 HONO_06 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HONO_06 CS 290.000 5.486960E-21 9.335561E-21 1.881716E-20 3.188688E-20 9.007190E-20 6.903974E-20 0.000000E+00 HONO_06 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HONO_06 CS 310.000 5.486960E-21 9.335561E-21 1.881716E-20 3.188688E-20 9.007190E-20 6.903974E-20 0.000000E+00 HONO_06 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HNO3 CS 210.000 3.467455E-21 1.445160E-21 5.805415E-22 2.242891E-22 2.067990E-23 3.702586E-25 0.000000E+00 HNO3 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HNO3 CS 230.000 3.652523E-21 1.547813E-21 6.324548E-22 2.505341E-22 2.500608E-23 3.741136E-25 0.000000E+00 HNO3 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HNO3 CS 250.000 3.847468E-21 1.657759E-21 6.890104E-22 2.798501E-22 3.023729E-23 3.780088E-25 0.000000E+00 HNO3 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HNO3 CS 270.000 4.052817E-21 1.775513E-21 7.506232E-22 3.125965E-22 3.656285E-23 3.819445E-25 0.000000E+00 HNO3 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HNO3 CS 290.000 4.269127E-21 1.901633E-21 8.177456E-22 3.491748E-22 4.421170E-23 3.859212E-25 0.000000E+00 HNO3 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HNO3 CS 310.000 4.496982E-21 2.036711E-21 8.908702E-22 3.900332E-22 5.346067E-23 3.899393E-25 0.000000E+00 HNO3 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HNO4_06 CS 210.000 2.304384E-20 9.096075E-21 3.982238E-21 1.967965E-21 3.989911E-22 2.966497E-24 0.000000E+00 HNO4_06 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.707375E-01 0.000000E+00 HNO4_06 CS 230.000 2.352148E-20 9.427218E-21 4.199442E-21 2.111267E-21 4.526804E-22 4.112208E-24 0.000000E+00 HNO4_06 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.707375E-01 0.000000E+00 HNO4_06 CS 250.000 2.420943E-20 9.904153E-21 4.512274E-21 2.317659E-21 5.300073E-22 5.762332E-24 0.000000E+00 HNO4_06 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.707375E-01 0.000000E+00 HNO4_06 CS 270.000 2.513335E-20 1.054469E-20 4.932417E-21 2.594850E-21 6.338596E-22 7.978499E-24 0.000000E+00 HNO4_06 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.707375E-01 0.000000E+00 HNO4_06 CS 290.000 2.630871E-20 1.135955E-20 5.466901E-21 2.947478E-21 7.659752E-22 1.079779E-23 0.000000E+00 HNO4_06 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.707375E-01 0.000000E+00 HNO4_06 CS 310.000 2.774130E-20 1.235273E-20 6.118354E-21 3.377277E-21 9.270035E-22 1.423407E-23 0.000000E+00 HNO4_06 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 9.707375E-01 0.000000E+00 H2O2 CS 210.000 8.485594E-21 5.095013E-21 3.367998E-21 2.272897E-21 8.877982E-22 3.606273E-23 0.000000E+00 H2O2 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 H2O2 CS 230.000 8.608173E-21 5.190514E-21 3.446407E-21 2.336332E-21 9.231624E-22 3.606273E-23 0.000000E+00 H2O2 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 H2O2 CS 250.000 8.773683E-21 5.319463E-21 3.552278E-21 2.421983E-21 9.709122E-22 3.606273E-23 0.000000E+00 H2O2 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 H2O2 CS 270.000 8.984030E-21 5.483344E-21 3.686830E-21 2.530838E-21 1.031598E-21 3.606273E-23 0.000000E+00 H2O2 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 H2O2 CS 290.000 9.239086E-21 5.682058E-21 3.849979E-21 2.662829E-21 1.105182E-21 3.606273E-23 0.000000E+00 H2O2 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 H2O2 CS 310.000 9.537050E-21 5.914203E-21 4.040577E-21 2.817027E-21 1.191145E-21 3.606273E-23 0.000000E+00 H2O2 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 PAN CS 210.000 1.757257E-21 6.605769E-22 3.009928E-22 1.557563E-22 3.361570E-23 1.523437E-24 0.000000E+00 PAN EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 PAN CS 230.000 2.059176E-21 7.858164E-22 3.614192E-22 1.889101E-22 4.220009E-23 1.539962E-24 0.000000E+00 PAN EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 PAN CS 250.000 2.412968E-21 9.348001E-22 4.339766E-22 2.291210E-22 5.297667E-23 1.556667E-24 0.000000E+00 PAN EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 PAN CS 270.000 2.827546E-21 1.112030E-21 5.211004E-22 2.778910E-22 6.650525E-23 1.573554E-24 0.000000E+00 PAN EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 PAN CS 290.000 3.313354E-21 1.322861E-21 6.257149E-22 3.370421E-22 8.348861E-23 1.590623E-24 0.000000E+00 PAN EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 PAN CS 310.000 3.882630E-21 1.573663E-21 7.513316E-22 4.087839E-22 1.048090E-22 1.607877E-24 0.000000E+00 PAN EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HCHOR_06 CS 210.000 3.183384E-20 3.299331E-20 1.538393E-20 3.249087E-20 1.802330E-20 7.437772E-22 0.000000E+00 HCHOR_06 EQY 210.000 6.832129E-01 7.261769E-01 7.198996E-01 6.861672E-01 3.074194E-01 0.000000E+00 0.000000E+00 HCHOR_06 CS 230.000 3.180369E-20 3.299110E-20 1.537530E-20 3.251407E-20 1.803360E-20 7.432948E-22 0.000000E+00 HCHOR_06 EQY 230.000 6.832129E-01 7.261769E-01 7.198996E-01 6.861672E-01 3.074194E-01 0.000000E+00 0.000000E+00 HCHOR_06 CS 250.000 3.177353E-20 3.298890E-20 1.536667E-20 3.253727E-20 1.804389E-20 7.428123E-22 0.000000E+00 HCHOR_06 EQY 250.000 6.832129E-01 7.261769E-01 7.198996E-01 6.861672E-01 3.074194E-01 0.000000E+00 0.000000E+00 HCHOR_06 CS 270.000 3.174337E-20 3.298670E-20 1.535803E-20 3.256047E-20 1.805418E-20 7.423299E-22 0.000000E+00 HCHOR_06 EQY 270.000 6.832129E-01 7.261769E-01 7.198996E-01 6.861672E-01 3.074194E-01 0.000000E+00 0.000000E+00 HCHOR_06 CS 290.000 3.171321E-20 3.298450E-20 1.534940E-20 3.258367E-20 1.806448E-20 7.418475E-22 0.000000E+00 HCHOR_06 EQY 290.000 6.832129E-01 7.261769E-01 7.198996E-01 6.861672E-01 3.074194E-01 0.000000E+00 0.000000E+00 HCHOR_06 CS 310.000 3.169813E-20 3.298339E-20 1.534508E-20 3.259527E-20 1.806962E-20 7.416062E-22 0.000000E+00 HCHOR_06 EQY 310.000 6.832129E-01 7.261769E-01 7.198996E-01 6.861672E-01 3.074194E-01 0.000000E+00 0.000000E+00 HCHOM_06 CS 210.000 3.183384E-20 3.299331E-20 1.538393E-20 3.249087E-20 1.802330E-20 7.437772E-22 0.000000E+00 HCHOM_06 EQY 210.000 2.982965E-01 2.727711E-01 2.802895E-01 3.142615E-01 5.277740E-01 2.118139E-01 0.000000E+00 HCHOM_06 CS 230.000 3.180369E-20 3.299110E-20 1.537530E-20 3.251407E-20 1.803360E-20 7.432948E-22 0.000000E+00 HCHOM_06 EQY 230.000 2.982965E-01 2.727711E-01 2.802895E-01 3.142615E-01 5.237901E-01 2.035690E-01 0.000000E+00 HCHOM_06 CS 250.000 3.177353E-20 3.298890E-20 1.536667E-20 3.253727E-20 1.804389E-20 7.428123E-22 0.000000E+00 HCHOM_06 EQY 250.000 2.982965E-01 2.727711E-01 2.802895E-01 3.142615E-01 5.155541E-01 1.885748E-01 0.000000E+00 HCHOM_06 CS 270.000 3.174337E-20 3.298670E-20 1.535803E-20 3.256047E-20 1.805418E-20 7.423299E-22 0.000000E+00 HCHOM_06 EQY 270.000 2.982965E-01 2.727711E-01 2.802895E-01 3.142615E-01 5.071009E-01 1.754809E-01 0.000000E+00 HCHOM_06 CS 290.000 3.171321E-20 3.298450E-20 1.534940E-20 3.258367E-20 1.806448E-20 7.418475E-22 0.000000E+00 HCHOM_06 EQY 290.000 2.982965E-01 2.727711E-01 2.802895E-01 3.142615E-01 4.984759E-01 1.639830E-01 0.000000E+00 HCHOM_06 CS 310.000 3.169813E-20 3.298339E-20 1.534508E-20 3.259527E-20 1.806962E-20 7.416062E-22 0.000000E+00 HCHOM_06 EQY 310.000 2.982965E-01 2.727711E-01 2.802895E-01 3.142615E-01 4.940919E-01 1.587278E-01 0.000000E+00 CCHO_R CS 210.000 4.432586E-20 3.717937E-20 2.933103E-20 2.104728E-20 3.707365E-21 0.000000E+00 0.000000E+00 CCHO_R EQY 210.000 4.849672E-01 3.934509E-01 2.877448E-01 1.584966E-01 4.676821E-02 0.000000E+00 0.000000E+00 CCHO_R CS 230.000 4.432586E-20 3.717937E-20 2.933103E-20 2.104728E-20 3.707365E-21 0.000000E+00 0.000000E+00 CCHO_R EQY 230.000 4.849672E-01 3.934509E-01 2.877448E-01 1.584966E-01 4.676821E-02 0.000000E+00 0.000000E+00 CCHO_R CS 250.000 4.432586E-20 3.717937E-20 2.933103E-20 2.104728E-20 3.707365E-21 0.000000E+00 0.000000E+00 CCHO_R EQY 250.000 4.849672E-01 3.934509E-01 2.877448E-01 1.584966E-01 4.676821E-02 0.000000E+00 0.000000E+00 CCHO_R CS 270.000 4.432586E-20 3.717937E-20 2.933103E-20 2.104728E-20 3.707365E-21 0.000000E+00 0.000000E+00 CCHO_R EQY 270.000 4.849672E-01 3.934509E-01 2.877448E-01 1.584966E-01 4.676821E-02 0.000000E+00 0.000000E+00 CCHO_R CS 290.000 4.432586E-20 3.717937E-20 2.933103E-20 2.104728E-20 3.707365E-21 0.000000E+00 0.000000E+00 CCHO_R EQY 290.000 4.849672E-01 3.934509E-01 2.877448E-01 1.584966E-01 4.676821E-02 0.000000E+00 0.000000E+00 CCHO_R CS 310.000 4.432586E-20 3.717937E-20 2.933103E-20 2.104728E-20 3.707365E-21 0.000000E+00 0.000000E+00 CCHO_R EQY 310.000 4.849672E-01 3.934509E-01 2.877448E-01 1.584966E-01 4.676821E-02 0.000000E+00 0.000000E+00 C2CHO CS 210.000 3.094719E-20 4.634689E-20 3.579653E-20 2.441742E-20 5.808274E-21 0.000000E+00 0.000000E+00 C2CHO EQY 210.000 7.737634E-01 6.423488E-01 3.555753E-01 1.949012E-01 5.686011E-02 0.000000E+00 0.000000E+00 C2CHO CS 230.000 3.094719E-20 4.634689E-20 3.579653E-20 2.441742E-20 5.808274E-21 0.000000E+00 0.000000E+00 C2CHO EQY 230.000 7.737634E-01 6.423488E-01 3.555753E-01 1.949012E-01 5.686011E-02 0.000000E+00 0.000000E+00 C2CHO CS 250.000 3.094719E-20 4.634689E-20 3.579653E-20 2.441742E-20 5.808274E-21 0.000000E+00 0.000000E+00 C2CHO EQY 250.000 7.737634E-01 6.423488E-01 3.555753E-01 1.949012E-01 5.686011E-02 0.000000E+00 0.000000E+00 C2CHO CS 270.000 3.094719E-20 4.634689E-20 3.579653E-20 2.441742E-20 5.808274E-21 0.000000E+00 0.000000E+00 C2CHO EQY 270.000 7.737634E-01 6.423488E-01 3.555753E-01 1.949012E-01 5.686011E-02 0.000000E+00 0.000000E+00 C2CHO CS 290.000 3.094719E-20 4.634689E-20 3.579653E-20 2.441742E-20 5.808274E-21 0.000000E+00 0.000000E+00 C2CHO EQY 290.000 7.737634E-01 6.423488E-01 3.555753E-01 1.949012E-01 5.686011E-02 0.000000E+00 0.000000E+00 C2CHO CS 310.000 3.094719E-20 4.634689E-20 3.579653E-20 2.441742E-20 5.808274E-21 0.000000E+00 0.000000E+00 C2CHO EQY 310.000 7.737634E-01 6.423488E-01 3.555753E-01 1.949012E-01 5.686011E-02 0.000000E+00 0.000000E+00 ACET_06 CS 210.000 3.093982E-20 1.932871E-20 1.074082E-20 5.401566E-21 4.431040E-22 8.028801E-25 0.000000E+00 ACET_06 EQY 210.000 3.078033E-01 9.119325E-02 1.255849E-02 1.979718E-03 4.580005E-05 2.815926E-03 0.000000E+00 ACET_06 CS 230.000 3.149499E-20 2.006286E-20 1.149978E-20 5.882838E-21 4.841855E-22 8.025005E-25 0.000000E+00 ACET_06 EQY 230.000 2.833035E-01 9.860657E-02 1.763791E-02 3.588362E-03 1.595251E-04 2.815926E-03 0.000000E+00 ACET_06 CS 250.000 3.221698E-20 2.085074E-20 1.224359E-20 6.367100E-21 5.569519E-22 8.040178E-25 0.000000E+00 ACET_06 EQY 250.000 2.809512E-01 1.160307E-01 2.647062E-02 6.960636E-03 6.743219E-04 2.815926E-03 0.000000E+00 ACET_06 CS 270.000 3.310749E-20 2.165984E-20 1.292394E-20 6.826211E-21 6.654463E-22 8.078511E-25 0.000000E+00 ACET_06 EQY 270.000 2.968808E-01 1.462965E-01 4.266421E-02 1.463851E-02 2.890122E-03 2.815926E-03 0.000000E+00 ACET_06 CS 290.000 3.416823E-20 2.245764E-20 1.349254E-20 7.232033E-21 8.137126E-22 8.144196E-25 0.000000E+00 ACET_06 EQY 290.000 3.304489E-01 1.933462E-01 7.158442E-02 3.118674E-02 1.028313E-02 2.815926E-03 0.000000E+00 ACET_06 CS 310.000 3.540091E-20 2.321163E-20 1.390108E-20 7.556429E-21 1.005795E-21 8.241424E-25 0.000000E+00 ACET_06 EQY 310.000 3.799048E-01 2.592952E-01 1.186578E-01 6.243775E-02 2.927807E-02 2.815926E-03 0.000000E+00 MEK_06 CS 210.000 4.166522E-20 2.686872E-20 1.573254E-20 7.723365E-21 8.066992E-22 1.609625E-25 0.000000E+00 MEK_06 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 MEK_06 CS 230.000 4.166522E-20 2.686872E-20 1.573254E-20 7.723365E-21 8.066992E-22 1.609625E-25 0.000000E+00 MEK_06 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 MEK_06 CS 250.000 4.166522E-20 2.686872E-20 1.573254E-20 7.723365E-21 8.066992E-22 1.609625E-25 0.000000E+00 MEK_06 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 MEK_06 CS 270.000 4.166522E-20 2.686872E-20 1.573254E-20 7.723365E-21 8.066992E-22 1.609625E-25 0.000000E+00 MEK_06 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 MEK_06 CS 290.000 4.166522E-20 2.686872E-20 1.573254E-20 7.723365E-21 8.066992E-22 1.609625E-25 0.000000E+00 MEK_06 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 MEK_06 CS 310.000 4.166522E-20 2.686872E-20 1.573254E-20 7.723365E-21 8.066992E-22 1.609625E-25 0.000000E+00 MEK_06 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 COOH CS 210.000 5.623467E-21 3.524633E-21 2.410330E-21 1.699588E-21 7.230005E-22 5.395084E-23 0.000000E+00 COOH EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 COOH CS 230.000 5.623467E-21 3.524633E-21 2.410330E-21 1.699588E-21 7.230005E-22 5.395084E-23 0.000000E+00 COOH EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 COOH CS 250.000 5.623467E-21 3.524633E-21 2.410330E-21 1.699588E-21 7.230005E-22 5.395084E-23 0.000000E+00 COOH EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 COOH CS 270.000 5.623467E-21 3.524633E-21 2.410330E-21 1.699588E-21 7.230005E-22 5.395084E-23 0.000000E+00 COOH EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 COOH CS 290.000 5.623467E-21 3.524633E-21 2.410330E-21 1.699588E-21 7.230005E-22 5.395084E-23 0.000000E+00 COOH EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 COOH CS 310.000 5.623467E-21 3.524633E-21 2.410330E-21 1.699588E-21 7.230005E-22 5.395084E-23 0.000000E+00 COOH EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 GLY_07R CS 210.000 3.792117E-20 3.572108E-20 3.194423E-20 2.574261E-20 1.106789E-20 2.757124E-20 1.054177E-20 GLY_07R EQY 210.000 3.322493E-01 3.432416E-01 3.692827E-01 4.243520E-01 5.564435E-01 1.128644E-01 1.290435E-02 GLY_07R CS 230.000 3.792117E-20 3.572108E-20 3.194423E-20 2.574261E-20 1.106789E-20 2.757124E-20 1.054177E-20 GLY_07R EQY 230.000 3.322493E-01 3.432416E-01 3.692827E-01 4.243520E-01 5.564435E-01 1.128644E-01 1.290435E-02 GLY_07R CS 250.000 3.792117E-20 3.572108E-20 3.194423E-20 2.574261E-20 1.106789E-20 2.757124E-20 1.054177E-20 GLY_07R EQY 250.000 3.322493E-01 3.432416E-01 3.692827E-01 4.243520E-01 5.564435E-01 1.128644E-01 1.290435E-02 GLY_07R CS 270.000 3.792117E-20 3.572108E-20 3.194423E-20 2.574261E-20 1.106789E-20 2.757124E-20 1.054177E-20 GLY_07R EQY 270.000 3.322493E-01 3.432416E-01 3.692827E-01 4.243520E-01 5.564435E-01 1.128644E-01 1.290435E-02 GLY_07R CS 290.000 3.792117E-20 3.572108E-20 3.194423E-20 2.574261E-20 1.106789E-20 2.757124E-20 1.054177E-20 GLY_07R EQY 290.000 3.322493E-01 3.432416E-01 3.692827E-01 4.243520E-01 5.564435E-01 1.128644E-01 1.290435E-02 GLY_07R CS 310.000 3.792117E-20 3.572108E-20 3.194423E-20 2.574261E-20 1.106789E-20 2.757124E-20 1.054177E-20 GLY_07R EQY 310.000 3.322493E-01 3.432416E-01 3.692827E-01 4.243520E-01 5.564435E-01 1.128644E-01 1.290435E-02 GLY_07M CS 210.000 3.792117E-20 3.572108E-20 3.194423E-20 2.574261E-20 1.106789E-20 2.757124E-20 1.054177E-20 GLY_07M EQY 210.000 6.677508E-01 6.567584E-01 6.307371E-01 5.757954E-01 4.436239E-01 1.921121E-02 4.356914E-04 GLY_07M CS 230.000 3.792117E-20 3.572108E-20 3.194423E-20 2.574261E-20 1.106789E-20 2.757124E-20 1.054177E-20 GLY_07M EQY 230.000 6.677508E-01 6.567584E-01 6.307371E-01 5.757954E-01 4.436239E-01 1.921121E-02 4.356914E-04 GLY_07M CS 250.000 3.792117E-20 3.572108E-20 3.194423E-20 2.574261E-20 1.106789E-20 2.757124E-20 1.054177E-20 GLY_07M EQY 250.000 6.677508E-01 6.567584E-01 6.307371E-01 5.757954E-01 4.436239E-01 1.921121E-02 4.356914E-04 GLY_07M CS 270.000 3.792117E-20 3.572108E-20 3.194423E-20 2.574261E-20 1.106789E-20 2.757124E-20 1.054177E-20 GLY_07M EQY 270.000 6.677508E-01 6.567584E-01 6.307371E-01 5.757954E-01 4.436239E-01 1.921121E-02 4.356914E-04 GLY_07M CS 290.000 3.792117E-20 3.572108E-20 3.194423E-20 2.574261E-20 1.106789E-20 2.757124E-20 1.054177E-20 GLY_07M EQY 290.000 6.677508E-01 6.567584E-01 6.307371E-01 5.757954E-01 4.436239E-01 1.921121E-02 4.356914E-04 GLY_07M CS 310.000 3.792117E-20 3.572108E-20 3.194423E-20 2.574261E-20 1.106789E-20 2.757124E-20 1.054177E-20 GLY_07M EQY 310.000 6.677508E-01 6.567584E-01 6.307371E-01 5.757954E-01 4.436239E-01 1.921121E-02 4.356914E-04 MGLY_06 CS 210.000 4.380391E-20 3.467071E-20 2.430916E-20 1.788232E-20 6.183676E-21 3.700269E-20 7.910759E-21 MGLY_06 EQY 210.000 9.568916E-01 9.293678E-01 8.972124E-01 8.583242E-01 7.397596E-01 1.441366E-01 4.043944E-02 MGLY_06 CS 230.000 4.380391E-20 3.467071E-20 2.430916E-20 1.788232E-20 6.183676E-21 3.700269E-20 7.910759E-21 MGLY_06 EQY 230.000 9.569005E-01 9.293821E-01 8.972324E-01 8.583509E-01 7.398077E-01 1.441526E-01 4.043944E-02 MGLY_06 CS 250.000 4.380391E-20 3.467071E-20 2.430916E-20 1.788232E-20 6.183676E-21 3.700269E-20 7.910759E-21 MGLY_06 EQY 250.000 9.569092E-01 9.293964E-01 8.972526E-01 8.583775E-01 7.398561E-01 1.441687E-01 4.043944E-02 MGLY_06 CS 270.000 4.380391E-20 3.467071E-20 2.430916E-20 1.788232E-20 6.183676E-21 3.700269E-20 7.910759E-21 MGLY_06 EQY 270.000 9.569181E-01 9.294107E-01 8.972727E-01 8.584042E-01 7.399043E-01 1.441847E-01 4.043944E-02 MGLY_06 CS 290.000 4.380391E-20 3.467071E-20 2.430916E-20 1.788232E-20 6.183676E-21 3.700269E-20 7.910759E-21 MGLY_06 EQY 290.000 9.569269E-01 9.294251E-01 8.972929E-01 8.584309E-01 7.399526E-01 1.442007E-01 4.043944E-02 MGLY_06 CS 310.000 4.380391E-20 3.467071E-20 2.430916E-20 1.788232E-20 6.183676E-21 3.700269E-20 7.910759E-21 MGLY_06 EQY 310.000 9.569357E-01 9.294394E-01 8.973130E-01 8.584574E-01 7.400008E-01 1.442167E-01 4.043944E-02 BACL_07 CS 210.000 2.658386E-20 1.613232E-20 9.254814E-21 6.071191E-21 4.661714E-21 3.201369E-20 4.709774E-21 BACL_07 EQY 210.000 9.897234E-01 9.822789E-01 9.734015E-01 9.617480E-01 9.039215E-01 3.719448E-01 1.041750E-01 BACL_07 CS 230.000 2.658386E-20 1.613232E-20 9.254814E-21 6.071191E-21 4.661714E-21 3.201369E-20 4.709774E-21 BACL_07 EQY 230.000 9.897328E-01 9.822950E-01 9.734252E-01 9.617816E-01 9.039935E-01 3.720514E-01 1.041750E-01 BACL_07 CS 250.000 2.658386E-20 1.613232E-20 9.254814E-21 6.071191E-21 4.661714E-21 3.201369E-20 4.709774E-21 BACL_07 EQY 250.000 9.897422E-01 9.823109E-01 9.734489E-01 9.618149E-01 9.040656E-01 3.721582E-01 1.041750E-01 BACL_07 CS 270.000 2.658386E-20 1.613232E-20 9.254814E-21 6.071191E-21 4.661714E-21 3.201369E-20 4.709774E-21 BACL_07 EQY 270.000 9.897517E-01 9.823268E-01 9.734727E-01 9.618486E-01 9.041377E-01 3.722649E-01 1.041750E-01 BACL_07 CS 290.000 2.658386E-20 1.613232E-20 9.254814E-21 6.071191E-21 4.661714E-21 3.201369E-20 4.709774E-21 BACL_07 EQY 290.000 9.897612E-01 9.823428E-01 9.734963E-01 9.618820E-01 9.042099E-01 3.723717E-01 1.041750E-01 BACL_07 CS 310.000 2.658386E-20 1.613232E-20 9.254814E-21 6.071191E-21 4.661714E-21 3.201369E-20 4.709774E-21 BACL_07 EQY 310.000 9.897707E-01 9.823589E-01 9.735200E-01 9.619155E-01 9.042819E-01 3.724787E-01 1.041750E-01 BALD_06 CS 210.000 4.451981E-19 7.297634E-20 7.090561E-20 8.592461E-20 9.197932E-20 1.679403E-20 0.000000E+00 BALD_06 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 BALD_06 CS 230.000 4.451981E-19 7.297634E-20 7.090561E-20 8.592461E-20 9.197932E-20 1.679403E-20 0.000000E+00 BALD_06 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 BALD_06 CS 250.000 4.451981E-19 7.297634E-20 7.090561E-20 8.592461E-20 9.197932E-20 1.679403E-20 0.000000E+00 BALD_06 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 BALD_06 CS 270.000 4.451981E-19 7.297634E-20 7.090561E-20 8.592461E-20 9.197932E-20 1.679403E-20 0.000000E+00 BALD_06 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 BALD_06 CS 290.000 4.451981E-19 7.297634E-20 7.090561E-20 8.592461E-20 9.197932E-20 1.679403E-20 0.000000E+00 BALD_06 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 BALD_06 CS 310.000 4.451981E-19 7.297634E-20 7.090561E-20 8.592461E-20 9.197932E-20 1.679403E-20 0.000000E+00 BALD_06 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 AFG1 CS 210.000 1.731773E-18 1.412652E-18 1.107261E-18 8.915003E-19 5.026284E-19 1.273166E-19 1.232364E-21 AFG1 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 AFG1 CS 230.000 1.731773E-18 1.412652E-18 1.107261E-18 8.915003E-19 5.026284E-19 1.273166E-19 1.232364E-21 AFG1 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 AFG1 CS 250.000 1.731773E-18 1.412652E-18 1.107261E-18 8.915003E-19 5.026284E-19 1.273166E-19 1.232364E-21 AFG1 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 AFG1 CS 270.000 1.731773E-18 1.412652E-18 1.107261E-18 8.915003E-19 5.026284E-19 1.273166E-19 1.232364E-21 AFG1 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 AFG1 CS 290.000 1.731773E-18 1.412652E-18 1.107261E-18 8.915003E-19 5.026284E-19 1.273166E-19 1.232364E-21 AFG1 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 AFG1 CS 310.000 1.731773E-18 1.412652E-18 1.107261E-18 8.915003E-19 5.026284E-19 1.273166E-19 1.232364E-21 AFG1 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 MVK_06 CS 210.000 3.041510E-20 4.373022E-20 5.436504E-20 6.318700E-20 6.828638E-20 8.056523E-21 0.000000E+00 MVK_06 EQY 210.000 1.734264E-02 1.099765E-02 7.572843E-03 5.269792E-03 2.269807E-03 9.735132E-04 0.000000E+00 MVK_06 CS 230.000 3.041510E-20 4.373022E-20 5.436504E-20 6.318700E-20 6.828638E-20 8.056523E-21 0.000000E+00 MVK_06 EQY 230.000 1.734264E-02 1.099765E-02 7.572843E-03 5.269792E-03 2.269807E-03 9.735132E-04 0.000000E+00 MVK_06 CS 250.000 3.041510E-20 4.373022E-20 5.436504E-20 6.318700E-20 6.828638E-20 8.056523E-21 0.000000E+00 MVK_06 EQY 250.000 1.734264E-02 1.099765E-02 7.572843E-03 5.269792E-03 2.269807E-03 9.735132E-04 0.000000E+00 MVK_06 CS 270.000 3.041510E-20 4.373022E-20 5.436504E-20 6.318700E-20 6.828638E-20 8.056523E-21 0.000000E+00 MVK_06 EQY 270.000 1.734264E-02 1.099765E-02 7.572843E-03 5.269792E-03 2.269807E-03 9.735132E-04 0.000000E+00 MVK_06 CS 290.000 3.041510E-20 4.373022E-20 5.436504E-20 6.318700E-20 6.828638E-20 8.056523E-21 0.000000E+00 MVK_06 EQY 290.000 1.734264E-02 1.099765E-02 7.572843E-03 5.269792E-03 2.269807E-03 9.735132E-04 0.000000E+00 MVK_06 CS 310.000 3.041510E-20 4.373022E-20 5.436504E-20 6.318700E-20 6.828638E-20 8.056523E-21 0.000000E+00 MVK_06 EQY 310.000 1.734264E-02 1.099765E-02 7.572843E-03 5.269792E-03 2.269807E-03 9.735132E-04 0.000000E+00 MACR_06 CS 210.000 2.639069E-20 3.936243E-20 4.989643E-20 5.926228E-20 6.528440E-20 1.326810E-20 0.000000E+00 MACR_06 EQY 210.000 4.845909E-02 3.034989E-02 2.098906E-02 1.472279E-02 6.294584E-03 1.553480E-03 0.000000E+00 MACR_06 CS 230.000 2.639069E-20 3.936243E-20 4.989643E-20 5.926228E-20 6.528440E-20 1.326810E-20 0.000000E+00 MACR_06 EQY 230.000 4.845909E-02 3.034989E-02 2.098906E-02 1.472279E-02 6.294584E-03 1.553480E-03 0.000000E+00 MACR_06 CS 250.000 2.639069E-20 3.936243E-20 4.989643E-20 5.926228E-20 6.528440E-20 1.326810E-20 0.000000E+00 MACR_06 EQY 250.000 4.845909E-02 3.034989E-02 2.098906E-02 1.472279E-02 6.294584E-03 1.553480E-03 0.000000E+00 MACR_06 CS 270.000 2.639069E-20 3.936243E-20 4.989643E-20 5.926228E-20 6.528440E-20 1.326810E-20 0.000000E+00 MACR_06 EQY 270.000 4.845909E-02 3.034989E-02 2.098906E-02 1.472279E-02 6.294584E-03 1.553480E-03 0.000000E+00 MACR_06 CS 290.000 2.639069E-20 3.936243E-20 4.989643E-20 5.926228E-20 6.528440E-20 1.326810E-20 0.000000E+00 MACR_06 EQY 290.000 4.845909E-02 3.034989E-02 2.098906E-02 1.472279E-02 6.294584E-03 1.553480E-03 0.000000E+00 MACR_06 CS 310.000 2.639069E-20 3.936243E-20 4.989643E-20 5.926228E-20 6.528440E-20 1.326810E-20 0.000000E+00 MACR_06 EQY 310.000 4.845909E-02 3.034989E-02 2.098906E-02 1.472279E-02 6.294584E-03 1.553480E-03 0.000000E+00 IC3ONO2 CS 210.000 9.514298E-21 4.530419E-21 2.204171E-21 1.039935E-21 1.393909E-22 0.000000E+00 0.000000E+00 IC3ONO2 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 IC3ONO2 CS 230.000 9.514298E-21 4.530419E-21 2.204171E-21 1.039935E-21 1.393909E-22 0.000000E+00 0.000000E+00 IC3ONO2 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 IC3ONO2 CS 250.000 9.980248E-21 4.802258E-21 2.361341E-21 1.133020E-21 1.558919E-22 0.000000E+00 0.000000E+00 IC3ONO2 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 IC3ONO2 CS 270.000 1.098172E-20 5.395850E-21 2.710103E-21 1.344930E-21 1.949851E-22 0.000000E+00 0.000000E+00 IC3ONO2 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 IC3ONO2 CS 290.000 1.208369E-20 6.062813E-21 3.110376E-21 1.596473E-21 2.438819E-22 0.000000E+00 0.000000E+00 IC3ONO2 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 IC3ONO2 CS 310.000 1.329624E-20 6.812218E-21 3.569767E-21 1.895064E-21 3.050405E-22 0.000000E+00 0.000000E+00 IC3ONO2 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 HOCCHO_IUPAC CS 210.000 3.704782E-20 2.277373E-20 1.257586E-20 5.852344E-21 6.507965E-22 0.000000E+00 0.000000E+00 HOCCHO_IUPAC EQY 210.000 7.500000E-01 7.500000E-01 7.500000E-01 7.500000E-01 7.500000E-01 0.000000E+00 0.000000E+00 HOCCHO_IUPAC CS 230.000 3.704782E-20 2.277373E-20 1.257586E-20 5.852344E-21 6.507965E-22 0.000000E+00 0.000000E+00 HOCCHO_IUPAC EQY 230.000 7.500000E-01 7.500000E-01 7.500000E-01 7.500000E-01 7.500000E-01 0.000000E+00 0.000000E+00 HOCCHO_IUPAC CS 250.000 3.704782E-20 2.277373E-20 1.257586E-20 5.852344E-21 6.507965E-22 0.000000E+00 0.000000E+00 HOCCHO_IUPAC EQY 250.000 7.500000E-01 7.500000E-01 7.500000E-01 7.500000E-01 7.500000E-01 0.000000E+00 0.000000E+00 HOCCHO_IUPAC CS 270.000 3.704782E-20 2.277373E-20 1.257586E-20 5.852344E-21 6.507965E-22 0.000000E+00 0.000000E+00 HOCCHO_IUPAC EQY 270.000 7.500000E-01 7.500000E-01 7.500000E-01 7.500000E-01 7.500000E-01 0.000000E+00 0.000000E+00 HOCCHO_IUPAC CS 290.000 3.704782E-20 2.277373E-20 1.257586E-20 5.852344E-21 6.507965E-22 0.000000E+00 0.000000E+00 HOCCHO_IUPAC EQY 290.000 7.500000E-01 7.500000E-01 7.500000E-01 7.500000E-01 7.500000E-01 0.000000E+00 0.000000E+00 HOCCHO_IUPAC CS 310.000 3.704782E-20 2.277373E-20 1.257586E-20 5.852344E-21 6.507965E-22 0.000000E+00 0.000000E+00 HOCCHO_IUPAC EQY 310.000 7.500000E-01 7.500000E-01 7.500000E-01 7.500000E-01 7.500000E-01 0.000000E+00 0.000000E+00 ACRO_09 CS 210.000 1.856128E-20 2.787986E-20 3.602616E-20 4.321518E-20 5.371941E-20 1.543856E-20 0.000000E+00 ACRO_09 EQY 210.000 5.269045E-02 3.293790E-02 2.264026E-02 1.595375E-02 6.767500E-03 1.624741E-03 0.000000E+00 ACRO_09 CS 230.000 1.856128E-20 2.787986E-20 3.602616E-20 4.321518E-20 5.371941E-20 1.543856E-20 0.000000E+00 ACRO_09 EQY 230.000 5.269045E-02 3.293790E-02 2.264026E-02 1.595375E-02 6.767500E-03 1.624741E-03 0.000000E+00 ACRO_09 CS 250.000 1.856128E-20 2.787986E-20 3.602616E-20 4.321518E-20 5.371941E-20 1.543856E-20 0.000000E+00 ACRO_09 EQY 250.000 5.269045E-02 3.293790E-02 2.264026E-02 1.595375E-02 6.767500E-03 1.624741E-03 0.000000E+00 ACRO_09 CS 270.000 1.856128E-20 2.787986E-20 3.602616E-20 4.321518E-20 5.371941E-20 1.543856E-20 0.000000E+00 ACRO_09 EQY 270.000 5.269045E-02 3.293790E-02 2.264026E-02 1.595375E-02 6.767500E-03 1.624741E-03 0.000000E+00 ACRO_09 CS 290.000 1.856128E-20 2.787986E-20 3.602616E-20 4.321518E-20 5.371941E-20 1.543856E-20 0.000000E+00 ACRO_09 EQY 290.000 5.269045E-02 3.293790E-02 2.264026E-02 1.595375E-02 6.767500E-03 1.624741E-03 0.000000E+00 ACRO_09 CS 310.000 1.856128E-20 2.787986E-20 3.602616E-20 4.321518E-20 5.371941E-20 1.543856E-20 0.000000E+00 ACRO_09 EQY 310.000 5.269045E-02 3.293790E-02 2.264026E-02 1.595375E-02 6.767500E-03 1.624741E-03 0.000000E+00 PAA CS 210.000 1.880973E-21 9.984294E-22 5.884834E-22 3.735140E-22 1.059114E-22 0.000000E+00 0.000000E+00 PAA EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 PAA CS 230.000 1.880973E-21 9.984294E-22 5.884834E-22 3.735140E-22 1.059114E-22 0.000000E+00 0.000000E+00 PAA EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 PAA CS 250.000 1.880973E-21 9.984294E-22 5.884834E-22 3.735140E-22 1.059114E-22 0.000000E+00 0.000000E+00 PAA EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 PAA CS 270.000 1.880973E-21 9.984294E-22 5.884834E-22 3.735140E-22 1.059114E-22 0.000000E+00 0.000000E+00 PAA EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 PAA CS 290.000 1.880973E-21 9.984294E-22 5.884834E-22 3.735140E-22 1.059114E-22 0.000000E+00 0.000000E+00 PAA EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 PAA CS 310.000 1.880973E-21 9.984294E-22 5.884834E-22 3.735140E-22 1.059114E-22 0.000000E+00 0.000000E+00 PAA EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 0.000000E+00 CL2 CS 210.000 8.459998E-20 1.387449E-19 1.859079E-19 2.232772E-19 2.484952E-19 6.038539E-20 6.311131E-22 CL2 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 CL2 CS 230.000 8.524757E-20 1.389977E-19 1.856245E-19 2.224567E-19 2.471989E-19 6.124574E-20 6.311131E-22 CL2 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 CL2 CS 250.000 8.601563E-20 1.392877E-19 1.852748E-19 2.214706E-19 2.456518E-19 6.228141E-20 6.311131E-22 CL2 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 CL2 CS 270.000 8.688803E-20 1.396037E-19 1.848591E-19 2.203326E-19 2.438807E-19 6.347855E-20 6.311131E-22 CL2 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 CL2 CS 290.000 8.784630E-20 1.399339E-19 1.843792E-19 2.190595E-19 2.419169E-19 6.481979E-20 6.311131E-22 CL2 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 CL2 CS 310.000 8.835163E-20 1.401007E-19 1.841159E-19 2.183779E-19 2.408728E-19 6.553857E-20 6.311131E-22 CL2 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 CLNO_06 CS 210.000 9.713532E-20 1.043432E-19 1.150344E-19 1.267321E-19 1.479858E-19 8.438991E-20 4.594130E-21 CLNO_06 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 CLNO_06 CS 230.000 9.713532E-20 1.043432E-19 1.150344E-19 1.267321E-19 1.479858E-19 8.438991E-20 4.594130E-21 CLNO_06 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 CLNO_06 CS 250.000 9.713532E-20 1.043432E-19 1.150344E-19 1.267321E-19 1.479858E-19 8.438991E-20 4.594130E-21 CLNO_06 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 CLNO_06 CS 270.000 9.713532E-20 1.043432E-19 1.150344E-19 1.267321E-19 1.479858E-19 8.438991E-20 4.594130E-21 CLNO_06 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 CLNO_06 CS 290.000 9.713532E-20 1.043432E-19 1.150344E-19 1.267321E-19 1.479858E-19 8.438991E-20 4.594130E-21 CLNO_06 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 CLNO_06 CS 310.000 9.713532E-20 1.043432E-19 1.150344E-19 1.267321E-19 1.479858E-19 8.438991E-20 4.594130E-21 CLNO_06 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 CLONO CS 210.000 1.405580E-18 1.198578E-18 1.052515E-18 9.205324E-19 5.728580E-19 7.394594E-20 0.000000E+00 CLONO EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 CLONO CS 230.000 1.405580E-18 1.198578E-18 1.052515E-18 9.205324E-19 5.728580E-19 7.394594E-20 0.000000E+00 CLONO EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 CLONO CS 250.000 1.405580E-18 1.198578E-18 1.052515E-18 9.205324E-19 5.728580E-19 7.394594E-20 0.000000E+00 CLONO EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 CLONO CS 270.000 1.405580E-18 1.198578E-18 1.052515E-18 9.205324E-19 5.728580E-19 7.394594E-20 0.000000E+00 CLONO EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 CLONO CS 290.000 1.405580E-18 1.198578E-18 1.052515E-18 9.205324E-19 5.728580E-19 7.394594E-20 0.000000E+00 CLONO EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 CLONO CS 310.000 1.405580E-18 1.198578E-18 1.052515E-18 9.205324E-19 5.728580E-19 7.394594E-20 0.000000E+00 CLONO EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 CLNO2 CS 210.000 1.656203E-19 1.407781E-19 1.170052E-19 9.257619E-20 4.108944E-20 2.105267E-21 0.000000E+00 CLNO2 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 CLNO2 CS 230.000 1.625310E-19 1.390370E-19 1.166682E-19 9.343169E-20 4.323496E-20 2.532648E-21 0.000000E+00 CLNO2 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 CLNO2 CS 250.000 1.607963E-19 1.382499E-19 1.170532E-19 9.483844E-20 4.569999E-20 3.083953E-21 0.000000E+00 CLNO2 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 CLNO2 CS 270.000 1.604163E-19 1.384168E-19 1.181603E-19 9.679644E-20 4.848453E-20 3.759182E-21 0.000000E+00 CLNO2 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 CLNO2 CS 290.000 1.613911E-19 1.395376E-19 1.199895E-19 9.930572E-20 5.158858E-20 4.558336E-21 0.000000E+00 CLNO2 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 CLNO2 CS 310.000 1.619476E-19 1.400598E-19 1.206790E-19 1.001660E-19 5.258209E-20 4.822247E-21 0.000000E+00 CLNO2 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 CLONO2_1 CS 210.000 3.530556E-20 1.872070E-20 1.123545E-20 7.141706E-21 3.111550E-21 9.743237E-22 9.489116E-24 CLONO2_1 EQY 210.000 4.000000E-01 3.992096E-01 3.837866E-01 3.420477E-01 2.361424E-01 2.718547E-02 0.000000E+00 CLONO2_1 CS 230.000 3.756278E-20 2.004876E-20 1.210488E-20 7.706714E-21 3.240199E-21 1.038511E-21 9.491610E-24 CLONO2_1 EQY 230.000 4.000000E-01 3.992096E-01 3.837866E-01 3.420477E-01 2.361424E-01 2.718547E-02 0.000000E+00 CLONO2_1 CS 250.000 3.999382E-20 2.155965E-20 1.312916E-20 8.405717E-21 3.464433E-21 1.097813E-21 9.504681E-24 CLONO2_1 EQY 250.000 4.000000E-01 3.992096E-01 3.837866E-01 3.420477E-01 2.361424E-01 2.718547E-02 0.000000E+00 CLONO2_1 CS 270.000 4.259870E-20 2.325335E-20 1.430828E-20 9.238715E-21 3.784253E-21 1.152229E-21 9.528331E-24 CLONO2_1 EQY 270.000 4.000000E-01 3.992096E-01 3.837866E-01 3.420477E-01 2.361424E-01 2.718547E-02 0.000000E+00 CLONO2_1 CS 290.000 4.537742E-20 2.512988E-20 1.564224E-20 1.020571E-20 4.199657E-21 1.201758E-21 9.562558E-24 CLONO2_1 EQY 290.000 4.000000E-01 3.992096E-01 3.837866E-01 3.420477E-01 2.361424E-01 2.718547E-02 0.000000E+00 CLONO2_1 CS 310.000 4.832995E-20 2.718922E-20 1.713105E-20 1.130669E-20 4.710647E-21 1.246402E-21 9.607363E-24 CLONO2_1 EQY 310.000 4.000000E-01 3.992096E-01 3.837866E-01 3.420477E-01 2.361424E-01 2.718547E-02 0.000000E+00 CLONO2_2 CS 210.000 3.530556E-20 1.872070E-20 1.123545E-20 7.141706E-21 3.111550E-21 9.743237E-22 9.489116E-24 CLONO2_2 EQY 210.000 6.000000E-01 6.007904E-01 6.162134E-01 6.579523E-01 7.638576E-01 9.728145E-01 1.000000E+00 CLONO2_2 CS 230.000 3.756278E-20 2.004876E-20 1.210488E-20 7.706714E-21 3.240199E-21 1.038511E-21 9.491610E-24 CLONO2_2 EQY 230.000 6.000000E-01 6.007904E-01 6.162134E-01 6.579523E-01 7.638576E-01 9.728145E-01 1.000000E+00 CLONO2_2 CS 250.000 3.999382E-20 2.155965E-20 1.312916E-20 8.405717E-21 3.464433E-21 1.097813E-21 9.504681E-24 CLONO2_2 EQY 250.000 6.000000E-01 6.007904E-01 6.162134E-01 6.579523E-01 7.638576E-01 9.728145E-01 1.000000E+00 CLONO2_2 CS 270.000 4.259870E-20 2.325335E-20 1.430828E-20 9.238715E-21 3.784253E-21 1.152229E-21 9.528331E-24 CLONO2_2 EQY 270.000 6.000000E-01 6.007904E-01 6.162134E-01 6.579523E-01 7.638576E-01 9.728145E-01 1.000000E+00 CLONO2_2 CS 290.000 4.537742E-20 2.512988E-20 1.564224E-20 1.020571E-20 4.199657E-21 1.201758E-21 9.562558E-24 CLONO2_2 EQY 290.000 6.000000E-01 6.007904E-01 6.162134E-01 6.579523E-01 7.638576E-01 9.728145E-01 1.000000E+00 CLONO2_2 CS 310.000 4.832995E-20 2.718922E-20 1.713105E-20 1.130669E-20 4.710647E-21 1.246402E-21 9.607363E-24 CLONO2_2 EQY 310.000 6.000000E-01 6.007904E-01 6.162134E-01 6.579523E-01 7.638576E-01 9.728145E-01 1.000000E+00 HOCL_06 CS 210.000 5.570117E-20 6.066935E-20 5.958161E-20 5.377945E-20 3.120855E-20 6.545254E-21 1.283755E-23 HOCL_06 EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 HOCL_06 CS 230.000 5.570117E-20 6.066935E-20 5.958161E-20 5.377945E-20 3.120855E-20 6.545254E-21 1.283755E-23 HOCL_06 EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 HOCL_06 CS 250.000 5.570117E-20 6.066935E-20 5.958161E-20 5.377945E-20 3.120855E-20 6.545254E-21 1.283755E-23 HOCL_06 EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 HOCL_06 CS 270.000 5.570117E-20 6.066935E-20 5.958161E-20 5.377945E-20 3.120855E-20 6.545254E-21 1.283755E-23 HOCL_06 EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 HOCL_06 CS 290.000 5.570117E-20 6.066935E-20 5.958161E-20 5.377945E-20 3.120855E-20 6.545254E-21 1.283755E-23 HOCL_06 EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 HOCL_06 CS 310.000 5.570117E-20 6.066935E-20 5.958161E-20 5.377945E-20 3.120855E-20 6.545254E-21 1.283755E-23 HOCL_06 EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 CLCCHO CS 210.000 5.379352E-20 5.300264E-20 4.849378E-20 3.861017E-20 1.286108E-20 9.228975E-23 0.000000E+00 CLCCHO EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 CLCCHO CS 230.000 5.379352E-20 5.300264E-20 4.849378E-20 3.861017E-20 1.286108E-20 9.228975E-23 0.000000E+00 CLCCHO EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 CLCCHO CS 250.000 5.379352E-20 5.300264E-20 4.849378E-20 3.861017E-20 1.286108E-20 9.228975E-23 0.000000E+00 CLCCHO EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 CLCCHO CS 270.000 5.379352E-20 5.300264E-20 4.849378E-20 3.861017E-20 1.286108E-20 9.228975E-23 0.000000E+00 CLCCHO EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 CLCCHO CS 290.000 5.379352E-20 5.300264E-20 4.849378E-20 3.861017E-20 1.286108E-20 9.228975E-23 0.000000E+00 CLCCHO EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 CLCCHO CS 310.000 5.379352E-20 5.300264E-20 4.849378E-20 3.861017E-20 1.286108E-20 9.228975E-23 0.000000E+00 CLCCHO EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 CLACET CS 210.000 1.000121E-19 8.662045E-20 6.774627E-20 4.765676E-20 1.132983E-20 6.893265E-23 0.000000E+00 CLACET EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 CLACET CS 230.000 1.000121E-19 8.662045E-20 6.774627E-20 4.765676E-20 1.132983E-20 6.893265E-23 0.000000E+00 CLACET EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 CLACET CS 250.000 1.000121E-19 8.662045E-20 6.774627E-20 4.765676E-20 1.132983E-20 6.893265E-23 0.000000E+00 CLACET EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 CLACET CS 270.000 1.000121E-19 8.662045E-20 6.774627E-20 4.765676E-20 1.132983E-20 6.893265E-23 0.000000E+00 CLACET EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 CLACET CS 290.000 1.000121E-19 8.662045E-20 6.774627E-20 4.765676E-20 1.132983E-20 6.893265E-23 0.000000E+00 CLACET EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 CLACET CS 310.000 1.000121E-19 8.662045E-20 6.774627E-20 4.765676E-20 1.132983E-20 6.893265E-23 0.000000E+00 CLACET EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HPALD CS 210.000 2.639069E-20 3.936243E-20 4.989643E-20 5.926228E-20 6.528440E-20 1.326810E-20 0.000000E+00 HPALD EQY 210.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HPALD CS 230.000 2.639069E-20 3.936243E-20 4.989643E-20 5.926228E-20 6.528440E-20 1.326810E-20 0.000000E+00 HPALD EQY 230.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HPALD CS 250.000 2.639069E-20 3.936243E-20 4.989643E-20 5.926228E-20 6.528440E-20 1.326810E-20 0.000000E+00 HPALD EQY 250.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HPALD CS 270.000 2.639069E-20 3.936243E-20 4.989643E-20 5.926228E-20 6.528440E-20 1.326810E-20 0.000000E+00 HPALD EQY 270.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HPALD CS 290.000 2.639069E-20 3.936243E-20 4.989643E-20 5.926228E-20 6.528440E-20 1.326810E-20 0.000000E+00 HPALD EQY 290.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 HPALD CS 310.000 2.639069E-20 3.936243E-20 4.989643E-20 5.926228E-20 6.528440E-20 1.326810E-20 0.000000E+00 HPALD EQY 310.000 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 1.000000E+00 0.000000E+00 NOA CS 210.000 5.224059E-20 3.919563E-20 2.699318E-20 1.723670E-20 3.945736E-21 0.000000E+00 0.000000E+00 NOA EQY 210.000 5.691649E-01 4.249612E-01 3.232058E-01 2.461660E-01 1.547306E-01 0.000000E+00 0.000000E+00 NOA CS 230.000 5.224059E-20 3.919563E-20 2.699318E-20 1.723670E-20 3.945736E-21 0.000000E+00 0.000000E+00 NOA EQY 230.000 5.691649E-01 4.249612E-01 3.232058E-01 2.461660E-01 1.547306E-01 0.000000E+00 0.000000E+00 NOA CS 250.000 5.224059E-20 3.919563E-20 2.699318E-20 1.723670E-20 3.945736E-21 0.000000E+00 0.000000E+00 NOA EQY 250.000 5.691649E-01 4.249612E-01 3.232058E-01 2.461660E-01 1.547306E-01 0.000000E+00 0.000000E+00 NOA CS 270.000 5.224059E-20 3.919563E-20 2.699318E-20 1.723670E-20 3.945736E-21 0.000000E+00 0.000000E+00 NOA EQY 270.000 5.691649E-01 4.249612E-01 3.232058E-01 2.461660E-01 1.547306E-01 0.000000E+00 0.000000E+00 NOA CS 290.000 5.224059E-20 3.919563E-20 2.699318E-20 1.723670E-20 3.945736E-21 0.000000E+00 0.000000E+00 NOA EQY 290.000 5.691649E-01 4.249612E-01 3.232058E-01 2.461660E-01 1.547306E-01 0.000000E+00 0.000000E+00 NOA CS 310.000 5.224059E-20 3.919563E-20 2.699318E-20 1.723670E-20 3.945736E-21 0.000000E+00 0.000000E+00 NOA EQY 310.000 5.691649E-01 4.249612E-01 3.232058E-01 2.461660E-01 1.547306E-01 0.000000E+00 0.000000E+00 ! Ozone Cross-Section for Stratospheric Opacity based on Table 4-5 in ! Chemical Kinetics and Photochemical Data for Use in Atmospheric ! Studies Evaluation Number 15. Sander et. al: NASA-JPL 2006 NTEMP_STRAT = 6 ! QUANTITY TEMP WBIN( 1) WBIN( 2) WBIN( 3) WBIN( 4) WBIN( 5) WBIN( 6) WBIN( 7) O3_STRAT CS 180.000 6.113743E-19 2.263004E-19 8.354117E-20 3.417408E-20 3.688351E-21 4.086261E-23 1.663175E-21 O3_STRAT CS 260.000 6.434133E-19 2.434104E-19 9.254548E-20 3.928807E-20 4.583227E-21 4.086261E-23 1.663175E-21 O3_STRAT CS 300.000 6.685868E-19 2.568540E-19 9.962031E-20 4.330621E-20 5.286344E-21 4.086261E-23 1.663175E-21 O3_STRAT CS 340.000 6.685868E-19 2.568540E-19 9.962031E-20 4.330621E-20 5.286344E-21 4.086261E-23 1.663175E-21 O3_STRAT CS 380.000 6.685868E-19 2.568540E-19 9.962031E-20 4.330621E-20 5.286344E-21 4.086261E-23 1.663175E-21 O3_STRAT CS 420.000 6.685868E-19 2.568540E-19 9.962031E-20 4.330621E-20 5.286344E-21 4.086261E-23 1.663175E-21 ================================================ FILE: CCTM/src/MECHS/saprc07tic_ae7i_aq/GC_saprc07tic_ae7i_aq.nml ================================================ &GC_nml GC_SPECIES_DATA = !SPECIES ,MOLWT ,IC ,IC_FAC ,BC ,BC_FAC ,DRYDEP SURR ,FAC ,WET-SCAV SURR ,FAC ,GC2AE SURR ,GC2AQ SURR,TRNS ,DDEP ,WDEP ,CONC 'NO2' , 46.01 ,'' ,-1 ,'' ,-1 ,'VD_NO2' , 1 ,'NO2' , 1 ,'NO2' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'NO' , 30.01 ,'' ,-1 ,'' ,-1 ,'VD_NO' , 1 ,'NO' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'O3P' , 16.00 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'O3' , 48.00 ,'' ,-1 ,'' ,-1 ,'VD_O3' , 1 ,'O3' , 1 ,'' ,'O3' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'NO3' , 62.01 ,'' ,-1 ,'' ,-1 ,'VD_NO3' , 1 ,'NO3' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'N2O5' ,108.02 ,'' ,-1 ,'' ,-1 ,'VD_N2O5' , 1 ,'N2O5' , 1 ,'N2O5' ,'N2O5' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'HNO3' , 63.02 ,'' ,-1 ,'' ,-1 ,'VD_HNO3' , 1 ,'HNO3' , 1 ,'HNO3' ,'HNO3' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'O1D' , 16.00 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'OH' , 17.01 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'OH' , 1 ,'OH' ,'HO' ,'Yes' ,'' ,'Yes' ,'Yes', 'HONO' , 47.02 ,'' ,-1 ,'' ,-1 ,'VD_HONO' , 1 ,'HNO2' , 1 ,'HONO' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'HO2' , 33.01 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'HO2' , 1 ,'' ,'HO2' ,'Yes' ,'' ,'Yes' ,'Yes', 'CO' , 28.01 ,'' ,-1 ,'' ,-1 ,'VD_CO' , 1 ,'CO' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'CO2' , 44.01 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'CO2' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'HNO4' , 79.02 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'HNO4' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'HO2H' , 34.01 ,'' ,-1 ,'' ,-1 ,'VD_H2O2' , 1 ,'H2O2' , 1 ,'' ,'H2O2' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SO2' , 64.06 ,'' ,-1 ,'' ,-1 ,'VD_SO2' , 1 ,'SO2' , 1 ,'' ,'SO2' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SULF' , 98.08 ,'' ,-1 ,'' ,-1 ,'VD_SULF' , 1 ,'H2SO4' , 1 ,'SULF' ,'H2SO4' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SULRXN' , 98.08 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'SULPRD' ,'' ,'' ,'' ,'' ,'' , 'MEO2' , 47.03 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'HCHO' , 30.03 ,'' ,-1 ,'' ,-1 ,'VD_HCHO' ,0.7 ,'FORMALDEHYDE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'COOH' , 48.04 ,'' ,-1 ,'' ,-1 ,'VD_OP' , 1 ,'METHYLHYDROPEROX', 1 ,'' ,'MHP' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'MEOH' , 32.04 ,'' ,-1 ,'' ,-1 ,'VD_METHANOL' , 1 ,'METHANOL' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'RO2C' , 1.00 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'RO2XC' , 1.00 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'MECO3' , 75.04 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'PAN' ,121.05 ,'' ,-1 ,'' ,-1 ,'VD_PAN' , 1 ,'PAN' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'CCOOOH' , 76.00 ,'' ,-1 ,'' ,-1 ,'VD_PAA' , 1 ,'PEROXYACETIC_ACI', 1 ,'' ,'PAA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'CCOOH' , 60.05 ,'' ,-1 ,'' ,-1 ,'VD_ORA' , 1 ,'ACETIC_ACID' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'RCO3' , 89.07 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'PAN2' ,135.08 ,'' ,-1 ,'' ,-1 ,'VD_PAN' , 1 ,'PPN' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'xHO2' , 33.01 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'yROOH' , 76.10 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'xCCHO' , 44.05 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'RCOOOH' , 74.08 ,'' ,-1 ,'' ,-1 ,'VD_PAA' , 1 ,'PEROXYACETIC_ACI', 1 ,'' ,'PAA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'RCOOH' , 74.08 ,'' ,-1 ,'' ,-1 ,'VD_ORA' , 1 ,'PROPANOIC_ACID' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'BZCO3' ,137.12 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'PBZN' ,183.13 ,'' ,-1 ,'' ,-1 ,'VD_PAN' , 1 ,'PAN' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'BZO' , 93.00 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'MACO3' ,101.08 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'MAPAN' ,147.09 ,'' ,-1 ,'' ,-1 ,'VD_PAN' , 1 ,'MPAN' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'TBUO' , 73.00 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'RNO3' ,147.18 ,'' ,-1 ,'' ,-1 ,'VD_NTROH' , 1 ,'NTR_OH' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'MTNO3' ,231.00 ,'' ,-1 ,'' ,-1 ,'VD_MTNO3' , 1 ,'MTNO3' , 1 ,'MTNO3' ,'MTNO3' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ACETONE' , 58.08 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'ACETONE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'NPHE' ,139.11 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'2-NITROPHENOL' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'CRES' ,108.14 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'2-CRESOL' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'xOH' , 17.01 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'xNO2' , 46.01 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'xMEO2' , 47.03 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'xMECO3' , 75.04 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'xRCO3' , 89.07 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'xMACO3' ,101.08 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'xTBUO' , 73.00 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'xCO' , 28.01 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'CCHO' , 44.05 ,'' ,-1 ,'' ,-1 ,'VD_ALD' , 1 ,'ACETALDEHYDE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'RCHO' , 58.08 ,'' ,-1 ,'' ,-1 ,'VD_GEN_ALD' , 1 ,'GENERIC_ALDEHYDE', 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'xHCHO' , 30.03 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'MEK' , 72.11 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'MEK' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'zRNO3' ,147.18 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'xRCHO' , 58.08 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'HCOOH' , 46.03 ,'' ,-1 ,'' ,-1 ,'VD_ORA' , 1 ,'FORMIC_ACID' , 1 ,'' ,'FOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'xMGLY' , 72.07 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'xBACL' , 86.09 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'ROOH' , 76.10 ,'' ,-1 ,'' ,-1 ,'VD_OP' , 1 ,'METHYLHYDROPEROX', 1 ,'' ,'MHP' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'xPROD2' ,116.16 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'R6OOH' ,118.17 ,'' ,-1 ,'' ,-1 ,'VD_OP' , 1 ,'HEXYL_HYDROPEROX', 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'PRD2' ,116.16 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'MEK' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'yR6OOH' ,118.17 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'zMTNO3' ,231.00 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'xMTNO3' ,231.00 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'RAOOH' ,188.18 ,'' ,-1 ,'' ,-1 ,'VD_OP' , 1 ,'HEXYL_HYDROPEROX', 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'MGLY' , 72.07 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'METHYL_GLYOXAL' , 1 ,'' ,'MGLY' ,'Yes' ,'' ,'Yes' ,'Yes', 'IPRD' ,100.12 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'xGLY' , 58.04 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'xMEK' , 72.11 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'xAFG1' , 98.10 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'xAFG2' , 98.10 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'GLY' , 58.04 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'GLYOXAL' , 1 ,'' ,'GLY' ,'Yes' ,'' ,'Yes' ,'Yes', 'AFG1' , 98.10 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'AFG2' , 98.10 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'HCOCO3' , 89.00 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'BACL' , 86.09 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'BIACETYL' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'BALD' ,106.13 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'BENZALDEHYDE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'AFG3' ,124.14 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'xIPRD' ,100.12 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'MACR' , 70.09 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'METHACROLEIN' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'MVK' , 70.09 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'MVK' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'xHOCCHO' , 60.05 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'xRNO3' ,147.18 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'HOCCHO' , 60.05 ,'' ,-1 ,'' ,-1 ,'VD_GEN_ALD' , 1 ,'GENERIC_ALDEHYDE', 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'xACETONE' , 58.08 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'ACROLEIN' , 56.06 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'ACROLEIN' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'xBALD' ,106.13 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'xAFG3' ,124.74 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'xMACR' , 70.09 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'xMVK' , 70.09 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'yRAOOH' ,188.18 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'xACROLEIN' , 56.06 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'ETHENE' , 28.05 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'ETHENE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'PROPENE' , 42.08 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'PROPENE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'BUTADIENE13' , 54.09 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'13-BUTADIENE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'ISOPRENE' , 68.12 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'ISOPRENE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'APIN' ,136.23 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'PINENE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'TRPRXN' ,136.00 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'TRPRXN' ,'' ,'' ,'' ,'' ,'' , 'ACETYLENE' , 26.04 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'ACETYLENE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'BENZENE' , 78.11 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'BENZENE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'BENZRO2' ,159.11 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'TOLUENE' , 92.14 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'TOLUENE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'TOLRO2' ,172.14 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'MXYL' ,106.17 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'M-XYLENE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'XYLRO2' ,187.17 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'OXYL' ,106.17 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'O-XYLENE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'PXYL' ,106.17 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'P-XYLENE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'TMBENZ124' ,120.19 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'124TRIMETH_BENZE', 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'ETOH' , 46.07 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'ETHANOL' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'ALK1' , 30.07 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'ETHANE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'ALK2' , 36.73 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'PROPANE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'ALK3' , 58.61 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'BUTANE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'ALK4' , 77.60 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'BUTANE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'ALK5' ,118.89 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'DECANE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'SOAALK' ,112.00 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'DECANE' , 1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'OLE1' , 72.34 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'ETHENE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'OLE2' , 75.78 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'ETHENE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'ARO1' , 95.16 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'TOLUENE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'ARO2MN' ,118.72 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'O-XYLENE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'NAPHTHAL' ,128.20 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'O-XYLENE' , 1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'PAHRO2' ,187.20 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'TERP' ,136.24 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'PINENE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'TERPNRO2' ,197.00 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'SESQ' ,204.35 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'PINENE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'SESQRXN' ,204.35 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'SESQRXN' ,'' ,'' ,'' ,'' ,'' , 'CL2' , 70.00 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'CL2' , 1 ,'' ,'CL2' ,'Yes' ,'' ,'Yes' ,'Yes', 'CL' , 35.50 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'CLNO' , 65.50 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'NITROSYL_CHLORID', 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'CLONO' , 81.50 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'CLNO2' , 81.50 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'NITRYL_CHLORIDE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'HCL' , 36.50 ,'' ,-1 ,'' ,-1 ,'VD_HCL' , 1 ,'HCL' , 1 ,'HCL' ,'HCL' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'CLO' , 51.50 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'CLONO2' , 97.45 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'HOCL' , 52.50 ,'' ,-1 ,'' ,-1 ,'VD_HOCL' , 1 ,'HOCL' , 1 ,'' ,'HOCL' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'xCL' , 35.50 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'xCLCCHO' , 78.50 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'xCLACET' , 92.50 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'CLCCHO' , 78.50 ,'' ,-1 ,'' ,-1 ,'VD_ALD' , 1 ,'CHLOROACETALDEHY', 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'CLACET' , 92.50 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'CHLOROACETONE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'CLCHO' , 64.50 ,'' ,-1 ,'' ,-1 ,'VD_FMCL' , 1 ,'FMCL' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'HCHO_PRIMARY' , 30.03 ,'' ,-1 ,'' ,-1 ,'VD_HCHO' ,0.7 ,'FORMALDEHYDE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'CCHO_PRIMARY' , 44.05 ,'' ,-1 ,'' ,-1 ,'VD_ALD' , 1 ,'ACETALDEHYDE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ACRO_PRIMARY' , 56.06 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'ACROLEIN' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'ISOPO2' ,117.10 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'Yes' ,'.' ,'' ,'Yes', 'ISOPRXN' , 68.00 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'ISOPRXN' ,'' ,'' ,'' ,'' ,'' , 'ISOPND' ,147.10 ,'' ,-1 ,'' ,-1 ,'VD_NTRM' , 1 ,'HYDROXY_NITRATES', 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ISOPNB' ,147.10 ,'' ,-1 ,'' ,-1 ,'VD_NTRM' , 1 ,'HYDROXY_NITRATES', 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'HC5' ,100.10 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'DIBOO' ,133.10 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'ISOPOOH' ,118.10 ,'' ,-1 ,'' ,-1 ,'VD_IEPOX' ,1.5 ,'HYDROXY_PEROXIDE', 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'HPALD' ,116.12 ,'' ,-1 ,'' ,-1 ,'VD_OP' , 1 ,'HYDROXY_PEROXIDE', 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'HACET' , 74.10 ,'' ,-1 ,'' ,-1 ,'VD_HACET' , 1 ,'HACET' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'NISOPO2' ,162.10 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'NIT1' ,145.10 ,'' ,-1 ,'' ,-1 ,'VD_NTRM' , 1 ,'HYDROXY_NITRATES', 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'NISOPOOH' ,163.13 ,'' ,-1 ,'' ,-1 ,'VD_NTRM' , 1 ,'HYDROXY_NITRATES', 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'HC5OO' ,149.10 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'DHMOB' ,132.10 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'ISOPNOOD' ,196.10 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'PROPNN' ,119.10 ,'' ,-1 ,'' ,-1 ,'VD_PROPNN' , 1 ,'PROPNN' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'MVKN' ,149.10 ,'' ,-1 ,'' ,-1 ,'VD_NTRM' , 1 ,'HYDROXY_NITRATES', 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ETHLN' ,105.00 ,'' ,-1 ,'' ,-1 ,'VD_PROPNN' , 1 ,'PROPNN' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'RNO3I' ,147.18 ,'' ,-1 ,'' ,-1 ,'VD_NTRM' , 1 ,'HYDROXY_NITRATES', 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ISOPNOOB' ,196.10 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'MACRN' ,149.10 ,'' ,-1 ,'' ,-1 ,'VD_NTRM' , 1 ,'HYDROXY_NITRATES', 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'NIT1NO3OOA' ,176.10 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'NIT1NO3OOB' ,239.10 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'ISOPNN' ,226.00 ,'' ,-1 ,'' ,-1 ,'VD_ISOPNN' , 1 ,'ISOPNN' , 1 ,'ISOPNN' ,'ISOPNN' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'NIT1OHOO' ,194.12 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'MVKOO' ,119.10 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'MACROO' ,119.10 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'PYRUACD' , 88.10 ,'' ,-1 ,'' ,-1 ,'VD_HNO3' , 1 ,'PYRUVIC_ACID' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'IEPOX' ,118.13 ,'' ,-1 ,'' ,-1 ,'VD_IEPOX' ,1.5 ,'IEPOX' , 1 ,'IEPOX' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'IEPOXOO' ,149.12 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'IMACO3' ,101.08 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'IMPAA' ,102.08 ,'' ,-1 ,'' ,-1 ,'VD_PAA' , 1 ,'PEROXYACETIC_ACI', 1 ,'' ,'PAA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'IMAPAN' ,147.09 ,'' ,-1 ,'' ,-1 ,'VD_PAN' , 1 ,'MPAN' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'IMAE' ,102.00 ,'' ,-1 ,'' ,-1 ,'VD_ORA' , 1 ,'IMAE' , 1 ,'IMAE' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'IHMML' ,102.00 ,'' ,-1 ,'' ,-1 ,'VD_ORA' , 1 ,'PROPANOIC_ACID' , 1 ,'IHMML' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'H2NO3PIJ' , 64.00 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'H2NO3PK' , 64.00 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'IEPOXP' ,118.13 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'IMAEP' ,102.00 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'IHMMLP' ,102.00 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'VLVPO1' ,218.00 ,'' ,-1 ,'' ,-1 ,'VD_ORA' , 1 ,'ADIPIC_ACID' , 1 ,'VLVPO1' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'VSVPO1' ,230.00 ,'' ,-1 ,'' ,-1 ,'VD_ORA' , 1 ,'ADIPIC_ACID' , 1 ,'VSVPO1' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'VSVPO2' ,241.00 ,'' ,-1 ,'' ,-1 ,'VD_ORA' , 1 ,'ADIPIC_ACID' , 1 ,'VSVPO2' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'VSVPO3' ,253.00 ,'' ,-1 ,'' ,-1 ,'VD_ORA' , 1 ,'ADIPIC_ACID' , 1 ,'VSVPO3' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'VIVPO1' ,266.00 ,'' ,-1 ,'' ,-1 ,'VD_ORA' , 1 ,'ADIPIC_ACID' , 1 ,'VIVPO1' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'VLVOO1' ,136.00 ,'' ,-1 ,'' ,-1 ,'VD_ORA' , 1 ,'ADIPIC_ACID' , 1 ,'VLVOO1' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'VLVOO2' ,136.00 ,'' ,-1 ,'' ,-1 ,'VD_ORA' , 1 ,'ADIPIC_ACID' , 1 ,'VLVOO2' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'VSVOO1' ,135.00 ,'' ,-1 ,'' ,-1 ,'VD_ORA' , 1 ,'ADIPIC_ACID' , 1 ,'VSVOO1' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'VSVOO2' ,135.00 ,'' ,-1 ,'' ,-1 ,'VD_ORA' , 1 ,'ADIPIC_ACID' , 1 ,'VSVOO2' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'VSVOO3' ,134.00 ,'' ,-1 ,'' ,-1 ,'VD_ORA' , 1 ,'ADIPIC_ACID' , 1 ,'VSVOO3' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'PCVOC' ,170.00 ,'' ,-1 ,'' ,-1 ,'VD_GEN_ALD' , 1 ,'GENERIC_ALDEHYDE', 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'PCSOARXN' ,170.00 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'PCSOARXN' ,'' ,'' ,'' ,'' ,'' , 'SVAVB1' ,198.00 ,'' ,-1 ,'' ,-1 ,'VD_SVAVB1' , 1 ,'SVAVB1' , 1 ,'SVAVB1' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SVAVB2' ,179.00 ,'' ,-1 ,'' ,-1 ,'VD_SVAVB2' , 1 ,'SVAVB2' , 1 ,'SVAVB2' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SVAVB3' ,169.00 ,'' ,-1 ,'' ,-1 ,'VD_SVAVB3' , 1 ,'SVAVB3' , 1 ,'SVAVB3' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SVAVB4' ,158.00 ,'' ,-1 ,'' ,-1 ,'VD_SVAVB4' , 1 ,'SVAVB4' , 1 ,'SVAVB4' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', / ================================================ FILE: CCTM/src/MECHS/saprc07tic_ae7i_aq/NR_saprc07tic_ae7i_aq.nml ================================================ &NR_nml NR_SPECIES_DATA = !SPECIES ,MOLWT ,IC ,IC_FAC ,BC ,BC_FAC ,DRYDEP SURR ,FAC ,WET-SCAV SURR ,FAC ,NR2AE SURR ,NR2AQ SURR,TRNS ,DDEP ,WDEP ,CONC 'NH3' , 17.0 ,'' ,-1 ,'' ,-1 ,'VD_NH3' , 1 ,'NH3' , 1 ,'NH3' ,'NH3' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SVISO1' ,132.0 ,'' ,-1 ,'' ,-1 ,'VD_SVISO1' , 1 ,'SVISO1' , 1 ,'SVISO1' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SVISO2' ,133.0 ,'' ,-1 ,'' ,-1 ,'VD_SVISO2' , 1 ,'SVISO2' , 1 ,'SVISO2' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SVSQT' ,273.0 ,'' ,-1 ,'' ,-1 ,'VD_SVSQT' , 1 ,'SVSQT' , 1 ,'SVSQT' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'LVPCSOG' ,170.0 ,'' ,-1 ,'' ,-1 ,'VD_LVPCSOG' , 1 ,'ADIPIC_ACID' , 1 ,'LVPCSOG' ,'' ,'Yes' ,'' ,'' ,'Yes', 'SVMT1' ,300.0 ,'' ,-1 ,'' ,-1 ,'VD_SVMT1' , 1 ,'SVMT1' , 1 ,'SVMT1' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SVMT2' ,200.0 ,'' ,-1 ,'' ,-1 ,'VD_SVMT2' , 1 ,'SVMT2' , 1 ,'SVMT2' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SVMT3' ,186.0 ,'' ,-1 ,'' ,-1 ,'VD_SVMT3' , 1 ,'SVMT3' , 1 ,'SVMT3' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SVMT4' ,184.0 ,'' ,-1 ,'' ,-1 ,'VD_SVMT4' , 1 ,'SVMT4' , 1 ,'SVMT4' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SVMT5' ,170.0 ,'' ,-1 ,'' ,-1 ,'VD_SVMT5' , 1 ,'SVMT5' , 1 ,'SVMT5' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SVMT6' ,168.0 ,'' ,-1 ,'' ,-1 ,'VD_SVMT6' , 1 ,'SVMT6' , 1 ,'SVMT6' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', / ================================================ FILE: CCTM/src/MECHS/saprc07tic_ae7i_aq/RXNS_DATA_MODULE.F90 ================================================ MODULE RXNS_DATA IMPLICIT NONE ! --------- Photochemical Mechanism Reactions, Rates, etc. DAT --------- ! Source file: /home/bmurphy/cmaq_projects/bicicle_1.7/UTIL/chemmech/input/saprc07tic_ae7i_aq/mech_saprc07tic_ae7i_aq.def ! for Mechanism Name: SAPRC07TIC_AE7I_AQ ! This file is used to create mechanism data and functions ! The following are reserved symbols declared in this file: ! MECHNAME = Mechanism name ! N_GAS_CHEM_SPC = Total number of gas species in chemical mechanism ! NUMB_MECH_SPC = Total number of species in chemical mechanism ! N_ACT_SP = Number of active (determined by ODE solver) species in mechanism ! GAS_CHEM_SPC = Names of gas species in chemical mechanism ! CHEMISTRY_SPC = Names of species in chemical mechanism ! CGRID_INDEX = CGRID Index of species in chemical mechanism ! SPECIES_TYPE = Group or type of species ! SPECIES_MOLWT = Molecular Weight of species (gm/mole) ! NRXNS = Number of mechanism reactions ! ZERO_REACT_REACTIONS = number zero reactant reactions ! ONE_REACT_REACTIONS = number one reactant reactions ! TWO_REACT_REACTIONS = number second order reactions ! THREE_REACT_REACTIONS = number three reactant reactions ! NSUNLIGHT_RXNS = Number of mechanism reactions requiring sunlight ! NTHERMAL_RXNS = Number of mechanism reactions not requiring sunlight ! KUNITS = Units of mechanism reactions ! KTYPE = Reaction type ! IRXBITS = Bit test mask vector for selected reactions ! IORDER = Order of the reaction ! NTERMS_JACOB = Maximum number of nonzero terms in day/night Jacobian ! MSTEPS_JACOB = Maximum number of LU Decomposition steps to solve each Jacobian ! KTN1 = Number of type 1 reactions ! KRX1 = Reactions list pointer to type 1 reactions ! KTN2 = Number of type 2 reactions ! KRX2 = Reactions list pointer to type 2 reactions ! KTN3 = Number of type 3 reactions ! KRX3 = Reactions list pointer to type 3 reactions ! KTN4 = Number of type 4 reactions ! KRX4 = Reactions list pointer to type 4 reactions ! KTN5 = Number of type 5 reactions ! KRX5 = Reactions list pointer to type 5 reactions ! KTN6 = Number of type 6 reactions ! KRX6 = Reactions list pointer to type 6 reactions ! KTN7 = Number of type 7 reactions ! KRX7 = Reactions list pointer to type 7 reactions ! NWM = Number of air 3-body reactions ! NRXWM = Reactions list pointer to air 3-body reactions ! ATM_AIR = air 3-body reactions concentration ! NWW = Number of H2O 3-body reactions ! NRXWW = Reactions list pointer to H2O 3-body reactions ! NWO2 = Number of reactions with O2 ! NRXWO2 = Reactions list pointer to O2 reactions ! ATM_O2 = Oxygen reactions concentration ! NWN2 = Number of N2 3-body reactions ! NRXWN2 = Reactions list pointer to N2 3-body reactions ! ATM_N2 = Nitrogen 3-body reactions concentration ! NWCH4 = Number of reactions with CH4 ! NRXWCH4 = Reactions list pointer to CH4 reactions ! ATM_CH4 = Methane reactions concentration ! NWH2 = Number of reactions with H2 ! NRXWH2 = Reactions list pointer to H2 reactions ! ATM_H2 = Hydrogen reactions concentration ! MXPRD = Maximum number of mechanism reaction products ! IRR = Reactions list pointer to reactants and products ! RTDAT = Kinetic reaction rates expressions components ! NFALLOFFF = Number of falloff reactions ! IRRFALL = Reactions list pointer to falloff reactions ! RFDAT = Falloff reaction rates expressions components ! SC = Stoichiometric coefficients ! NREACT = Number of reactants in each mechanism reaction ! NPRDCT = Number of products in each mechanism reaction ! RXLABEL = Character label list for mechanism reactions ! NMPHOT = Number of mechanism photolytic reactions ! NPHOTAB = Number of photolytic reactions tables ! IPH = Reactions list pointer to photolytic reactions and tables ! MHETERO = Number of mechanism heteorogenous reactions ! NHETERO = Number of unique heteorogenous rate constants ! IHETERO = Reactions list pointer to heteorogenous reactions and tables CHARACTER( 32 ), PARAMETER :: MECHNAME = 'SAPRC07TIC_AE7I_AQ' INTEGER, PARAMETER :: N_GAS_CHEM_SPC = 205 INTEGER, PARAMETER :: NUMB_MECH_SPC = 230 CHARACTER( 16 ) :: GAS_CHEM_SPC( N_GAS_CHEM_SPC ) CHARACTER( 16 ) :: CHEMISTRY_SPC( NUMB_MECH_SPC ) CHARACTER( 16 ) :: SPECIES_TYPE( NUMB_MECH_SPC ) INTEGER :: CGRID_INDEX ( NUMB_MECH_SPC ) INTEGER :: TYPE_INDEX ( NUMB_MECH_SPC ) REAL( 8 ) :: SPECIES_MOLWT( NUMB_MECH_SPC ) LOGICAL :: CONVERT_CONC( NUMB_MECH_SPC ) ! The below character and integer arrays list the model species names used in the ! chemical mechanism. The gas species and their order should agree with ! the GC_SPC array for the gas phase chemistry to work correctly. ! If present, the CHEMISTRY_SPC names and species type should agree with the CGRID_SPCS module DATA GAS_CHEM_SPC( 1 ) / 'NO2 ' / DATA GAS_CHEM_SPC( 2 ) / 'NO ' / DATA GAS_CHEM_SPC( 3 ) / 'O3P ' / DATA GAS_CHEM_SPC( 4 ) / 'O3 ' / DATA GAS_CHEM_SPC( 5 ) / 'NO3 ' / DATA GAS_CHEM_SPC( 6 ) / 'N2O5 ' / DATA GAS_CHEM_SPC( 7 ) / 'HNO3 ' / DATA GAS_CHEM_SPC( 8 ) / 'O1D ' / DATA GAS_CHEM_SPC( 9 ) / 'OH ' / DATA GAS_CHEM_SPC( 10 ) / 'HONO ' / DATA GAS_CHEM_SPC( 11 ) / 'HO2 ' / DATA GAS_CHEM_SPC( 12 ) / 'CO ' / DATA GAS_CHEM_SPC( 13 ) / 'CO2 ' / DATA GAS_CHEM_SPC( 14 ) / 'HNO4 ' / DATA GAS_CHEM_SPC( 15 ) / 'HO2H ' / DATA GAS_CHEM_SPC( 16 ) / 'SO2 ' / DATA GAS_CHEM_SPC( 17 ) / 'SULF ' / DATA GAS_CHEM_SPC( 18 ) / 'SULRXN ' / DATA GAS_CHEM_SPC( 19 ) / 'MEO2 ' / DATA GAS_CHEM_SPC( 20 ) / 'HCHO ' / DATA GAS_CHEM_SPC( 21 ) / 'COOH ' / DATA GAS_CHEM_SPC( 22 ) / 'MEOH ' / DATA GAS_CHEM_SPC( 23 ) / 'RO2C ' / DATA GAS_CHEM_SPC( 24 ) / 'RO2XC ' / DATA GAS_CHEM_SPC( 25 ) / 'MECO3 ' / DATA GAS_CHEM_SPC( 26 ) / 'PAN ' / DATA GAS_CHEM_SPC( 27 ) / 'CCOOOH ' / DATA GAS_CHEM_SPC( 28 ) / 'CCOOH ' / DATA GAS_CHEM_SPC( 29 ) / 'RCO3 ' / DATA GAS_CHEM_SPC( 30 ) / 'PAN2 ' / DATA GAS_CHEM_SPC( 31 ) / 'xHO2 ' / DATA GAS_CHEM_SPC( 32 ) / 'yROOH ' / DATA GAS_CHEM_SPC( 33 ) / 'xCCHO ' / DATA GAS_CHEM_SPC( 34 ) / 'RCOOOH ' / DATA GAS_CHEM_SPC( 35 ) / 'RCOOH ' / DATA GAS_CHEM_SPC( 36 ) / 'BZCO3 ' / DATA GAS_CHEM_SPC( 37 ) / 'PBZN ' / DATA GAS_CHEM_SPC( 38 ) / 'BZO ' / DATA GAS_CHEM_SPC( 39 ) / 'MACO3 ' / DATA GAS_CHEM_SPC( 40 ) / 'MAPAN ' / DATA GAS_CHEM_SPC( 41 ) / 'TBUO ' / DATA GAS_CHEM_SPC( 42 ) / 'RNO3 ' / DATA GAS_CHEM_SPC( 43 ) / 'ACETONE ' / DATA GAS_CHEM_SPC( 44 ) / 'NPHE ' / DATA GAS_CHEM_SPC( 45 ) / 'CRES ' / DATA GAS_CHEM_SPC( 46 ) / 'xOH ' / DATA GAS_CHEM_SPC( 47 ) / 'xNO2 ' / DATA GAS_CHEM_SPC( 48 ) / 'xMEO2 ' / DATA GAS_CHEM_SPC( 49 ) / 'xMECO3 ' / DATA GAS_CHEM_SPC( 50 ) / 'xRCO3 ' / DATA GAS_CHEM_SPC( 51 ) / 'xMACO3 ' / DATA GAS_CHEM_SPC( 52 ) / 'xTBUO ' / DATA GAS_CHEM_SPC( 53 ) / 'xCO ' / DATA GAS_CHEM_SPC( 54 ) / 'CCHO ' / DATA GAS_CHEM_SPC( 55 ) / 'RCHO ' / DATA GAS_CHEM_SPC( 56 ) / 'xHCHO ' / DATA GAS_CHEM_SPC( 57 ) / 'MEK ' / DATA GAS_CHEM_SPC( 58 ) / 'zRNO3 ' / DATA GAS_CHEM_SPC( 59 ) / 'xRCHO ' / DATA GAS_CHEM_SPC( 60 ) / 'HCOOH ' / DATA GAS_CHEM_SPC( 61 ) / 'xMGLY ' / DATA GAS_CHEM_SPC( 62 ) / 'xBACL ' / DATA GAS_CHEM_SPC( 63 ) / 'ROOH ' / DATA GAS_CHEM_SPC( 64 ) / 'xPROD2 ' / DATA GAS_CHEM_SPC( 65 ) / 'R6OOH ' / DATA GAS_CHEM_SPC( 66 ) / 'PRD2 ' / DATA GAS_CHEM_SPC( 67 ) / 'yR6OOH ' / DATA GAS_CHEM_SPC( 68 ) / 'RAOOH ' / DATA GAS_CHEM_SPC( 69 ) / 'MGLY ' / DATA GAS_CHEM_SPC( 70 ) / 'IPRD ' / DATA GAS_CHEM_SPC( 71 ) / 'xGLY ' / DATA GAS_CHEM_SPC( 72 ) / 'xMEK ' / DATA GAS_CHEM_SPC( 73 ) / 'xAFG1 ' / DATA GAS_CHEM_SPC( 74 ) / 'xAFG2 ' / DATA GAS_CHEM_SPC( 75 ) / 'GLY ' / DATA GAS_CHEM_SPC( 76 ) / 'AFG1 ' / DATA GAS_CHEM_SPC( 77 ) / 'AFG2 ' / DATA GAS_CHEM_SPC( 78 ) / 'HCOCO3 ' / DATA GAS_CHEM_SPC( 79 ) / 'BACL ' / DATA GAS_CHEM_SPC( 80 ) / 'BALD ' / DATA GAS_CHEM_SPC( 81 ) / 'AFG3 ' / DATA GAS_CHEM_SPC( 82 ) / 'xIPRD ' / DATA GAS_CHEM_SPC( 83 ) / 'MACR ' / DATA GAS_CHEM_SPC( 84 ) / 'MVK ' / DATA GAS_CHEM_SPC( 85 ) / 'xHOCCHO ' / DATA GAS_CHEM_SPC( 86 ) / 'xRNO3 ' / DATA GAS_CHEM_SPC( 87 ) / 'HOCCHO ' / DATA GAS_CHEM_SPC( 88 ) / 'xACETONE ' / DATA GAS_CHEM_SPC( 89 ) / 'ACROLEIN ' / DATA GAS_CHEM_SPC( 90 ) / 'xBALD ' / DATA GAS_CHEM_SPC( 91 ) / 'xAFG3 ' / DATA GAS_CHEM_SPC( 92 ) / 'xMACR ' / DATA GAS_CHEM_SPC( 93 ) / 'xMVK ' / DATA GAS_CHEM_SPC( 94 ) / 'xMTNO3 ' / DATA GAS_CHEM_SPC( 95 ) / 'MTNO3 ' / DATA GAS_CHEM_SPC( 96 ) / 'IMACO3 ' / DATA GAS_CHEM_SPC( 97 ) / 'yRAOOH ' / DATA GAS_CHEM_SPC( 98 ) / 'zMTNO3 ' / DATA GAS_CHEM_SPC( 99 ) / 'xACROLEIN ' / DATA GAS_CHEM_SPC( 100 ) / 'ETHENE ' / DATA GAS_CHEM_SPC( 101 ) / 'PROPENE ' / DATA GAS_CHEM_SPC( 102 ) / 'BUTADIENE13 ' / DATA GAS_CHEM_SPC( 103 ) / 'ISOPRENE ' / DATA GAS_CHEM_SPC( 104 ) / 'APIN ' / DATA GAS_CHEM_SPC( 105 ) / 'TRPRXN ' / DATA GAS_CHEM_SPC( 106 ) / 'ACETYLENE ' / DATA GAS_CHEM_SPC( 107 ) / 'BENZENE ' / DATA GAS_CHEM_SPC( 108 ) / 'BENZRO2 ' / DATA GAS_CHEM_SPC( 109 ) / 'TOLUENE ' / DATA GAS_CHEM_SPC( 110 ) / 'TOLRO2 ' / DATA GAS_CHEM_SPC( 111 ) / 'MXYL ' / DATA GAS_CHEM_SPC( 112 ) / 'XYLRO2 ' / DATA GAS_CHEM_SPC( 113 ) / 'OXYL ' / DATA GAS_CHEM_SPC( 114 ) / 'PXYL ' / DATA GAS_CHEM_SPC( 115 ) / 'TMBENZ124 ' / DATA GAS_CHEM_SPC( 116 ) / 'ETOH ' / DATA GAS_CHEM_SPC( 117 ) / 'ALK1 ' / DATA GAS_CHEM_SPC( 118 ) / 'ALK2 ' / DATA GAS_CHEM_SPC( 119 ) / 'ALK3 ' / DATA GAS_CHEM_SPC( 120 ) / 'ALK4 ' / DATA GAS_CHEM_SPC( 121 ) / 'ALK5 ' / DATA GAS_CHEM_SPC( 122 ) / 'SOAALK ' / DATA GAS_CHEM_SPC( 123 ) / 'SVAVB2 ' / DATA GAS_CHEM_SPC( 124 ) / 'SVAVB3 ' / DATA GAS_CHEM_SPC( 125 ) / 'SVAVB4 ' / DATA GAS_CHEM_SPC( 126 ) / 'OLE1 ' / DATA GAS_CHEM_SPC( 127 ) / 'OLE2 ' / DATA GAS_CHEM_SPC( 128 ) / 'ARO1 ' / DATA GAS_CHEM_SPC( 129 ) / 'ARO2MN ' / DATA GAS_CHEM_SPC( 130 ) / 'NAPHTHAL ' / DATA GAS_CHEM_SPC( 131 ) / 'PAHRO2 ' / DATA GAS_CHEM_SPC( 132 ) / 'TERP ' / DATA GAS_CHEM_SPC( 133 ) / 'TERPNRO2 ' / DATA GAS_CHEM_SPC( 134 ) / 'SESQ ' / DATA GAS_CHEM_SPC( 135 ) / 'SESQRXN ' / DATA GAS_CHEM_SPC( 136 ) / 'CL2 ' / DATA GAS_CHEM_SPC( 137 ) / 'CL ' / DATA GAS_CHEM_SPC( 138 ) / 'CLNO ' / DATA GAS_CHEM_SPC( 139 ) / 'CLONO ' / DATA GAS_CHEM_SPC( 140 ) / 'CLNO2 ' / DATA GAS_CHEM_SPC( 141 ) / 'HCL ' / DATA GAS_CHEM_SPC( 142 ) / 'CLO ' / DATA GAS_CHEM_SPC( 143 ) / 'CLONO2 ' / DATA GAS_CHEM_SPC( 144 ) / 'HOCL ' / DATA GAS_CHEM_SPC( 145 ) / 'xCL ' / DATA GAS_CHEM_SPC( 146 ) / 'xCLCCHO ' / DATA GAS_CHEM_SPC( 147 ) / 'xCLACET ' / DATA GAS_CHEM_SPC( 148 ) / 'CLCCHO ' / DATA GAS_CHEM_SPC( 149 ) / 'CLACET ' / DATA GAS_CHEM_SPC( 150 ) / 'CLCHO ' / DATA GAS_CHEM_SPC( 151 ) / 'SVAVB1 ' / DATA GAS_CHEM_SPC( 152 ) / 'HCHO_PRIMARY ' / DATA GAS_CHEM_SPC( 153 ) / 'CCHO_PRIMARY ' / DATA GAS_CHEM_SPC( 154 ) / 'ACRO_PRIMARY ' / DATA GAS_CHEM_SPC( 155 ) / 'ISOPO2 ' / DATA GAS_CHEM_SPC( 156 ) / 'ISOPRXN ' / DATA GAS_CHEM_SPC( 157 ) / 'ISOPND ' / DATA GAS_CHEM_SPC( 158 ) / 'ISOPNB ' / DATA GAS_CHEM_SPC( 159 ) / 'HC5 ' / DATA GAS_CHEM_SPC( 160 ) / 'DIBOO ' / DATA GAS_CHEM_SPC( 161 ) / 'ISOPOOH ' / DATA GAS_CHEM_SPC( 162 ) / 'HPALD ' / DATA GAS_CHEM_SPC( 163 ) / 'HACET ' / DATA GAS_CHEM_SPC( 164 ) / 'NISOPO2 ' / DATA GAS_CHEM_SPC( 165 ) / 'NIT1 ' / DATA GAS_CHEM_SPC( 166 ) / 'NISOPOOH ' / DATA GAS_CHEM_SPC( 167 ) / 'HC5OO ' / DATA GAS_CHEM_SPC( 168 ) / 'DHMOB ' / DATA GAS_CHEM_SPC( 169 ) / 'ISOPNOOD ' / DATA GAS_CHEM_SPC( 170 ) / 'PROPNN ' / DATA GAS_CHEM_SPC( 171 ) / 'MVKN ' / DATA GAS_CHEM_SPC( 172 ) / 'ETHLN ' / DATA GAS_CHEM_SPC( 173 ) / 'RNO3I ' / DATA GAS_CHEM_SPC( 174 ) / 'ISOPNOOB ' / DATA GAS_CHEM_SPC( 175 ) / 'MACRN ' / DATA GAS_CHEM_SPC( 176 ) / 'NIT1NO3OOA ' / DATA GAS_CHEM_SPC( 177 ) / 'NIT1NO3OOB ' / DATA GAS_CHEM_SPC( 178 ) / 'ISOPNN ' / DATA GAS_CHEM_SPC( 179 ) / 'NIT1OHOO ' / DATA GAS_CHEM_SPC( 180 ) / 'MVKOO ' / DATA GAS_CHEM_SPC( 181 ) / 'MACROO ' / DATA GAS_CHEM_SPC( 182 ) / 'PYRUACD ' / DATA GAS_CHEM_SPC( 183 ) / 'IEPOX ' / DATA GAS_CHEM_SPC( 184 ) / 'IEPOXOO ' / DATA GAS_CHEM_SPC( 185 ) / 'IMPAA ' / DATA GAS_CHEM_SPC( 186 ) / 'IMAPAN ' / DATA GAS_CHEM_SPC( 187 ) / 'IMAE ' / DATA GAS_CHEM_SPC( 188 ) / 'IHMML ' / DATA GAS_CHEM_SPC( 189 ) / 'H2NO3PIJ ' / DATA GAS_CHEM_SPC( 190 ) / 'H2NO3PK ' / DATA GAS_CHEM_SPC( 191 ) / 'IEPOXP ' / DATA GAS_CHEM_SPC( 192 ) / 'IMAEP ' / DATA GAS_CHEM_SPC( 193 ) / 'IHMMLP ' / DATA GAS_CHEM_SPC( 194 ) / 'PCVOC ' / DATA GAS_CHEM_SPC( 195 ) / 'PCSOARXN ' / DATA GAS_CHEM_SPC( 196 ) / 'VLVPO1 ' / DATA GAS_CHEM_SPC( 197 ) / 'VSVPO1 ' / DATA GAS_CHEM_SPC( 198 ) / 'VSVPO2 ' / DATA GAS_CHEM_SPC( 199 ) / 'VSVPO3 ' / DATA GAS_CHEM_SPC( 200 ) / 'VIVPO1 ' / DATA GAS_CHEM_SPC( 201 ) / 'VLVOO1 ' / DATA GAS_CHEM_SPC( 202 ) / 'VLVOO2 ' / DATA GAS_CHEM_SPC( 203 ) / 'VSVOO2 ' / DATA GAS_CHEM_SPC( 204 ) / 'VSVOO3 ' / DATA GAS_CHEM_SPC( 205 ) / 'VSVOO1 ' / LOGICAL :: HALOGEN_PARAMETER = .TRUE. ! The below character and integer arrays list the model species names used in the ! chemical mechanism. The gas species and their order should agree with ! the GC_SPC array for the gas phase chemistry to work correctly. ! If present, the CHEMISTRY_SPC names and species type should agree with the CGRID_SPCS module ! MAPPED_TO_CGRID declares whether CMAQ namelists were used to determine ! the below values of CGRID_INDEX, SPECIES_TYPE, SPECIES_MOLWT, and CONVERT_CONC LOGICAL, PARAMETER, PRIVATE :: F = .FALSE. LOGICAL, PARAMETER, PRIVATE :: T = .TRUE. LOGICAL :: MAPPED_TO_CGRID = .FALSE. TYPE MEMBER CHARACTER( 16 ) :: CHEMISTRY_SPC INTEGER :: CGRID_INDEX CHARACTER( 2 ) :: SPECIES_TYPE REAL( 8 ) :: SPECIES_MOLWT LOGICAL :: CONVERT_CONC END TYPE MEMBER TYPE( MEMBER ) :: SPECIES_LIST( NUMB_MECH_SPC ) = (/ & & MEMBER("NO2 ", 1, "GC", 46.01D0, F), & & MEMBER("NO ", 2, "GC", 30.01D0, F), & & MEMBER("O3P ", 3, "GC", 16.00D0, F), & & MEMBER("O3 ", 4, "GC", 48.00D0, F), & & MEMBER("NO3 ", 5, "GC", 62.01D0, F), & & MEMBER("N2O5 ", 6, "GC", 108.02D0, F), & & MEMBER("HNO3 ", 7, "GC", 63.02D0, F), & & MEMBER("O1D ", 8, "GC", 16.00D0, F), & & MEMBER("OH ", 9, "GC", 17.01D0, F), & & MEMBER("HONO ", 10, "GC", 47.02D0, F), & & MEMBER("HO2 ", 11, "GC", 33.01D0, F), & & MEMBER("CO ", 12, "GC", 28.01D0, F), & & MEMBER("CO2 ", 13, "GC", 44.01D0, F), & & MEMBER("HNO4 ", 14, "GC", 79.02D0, F), & & MEMBER("HO2H ", 15, "GC", 34.01D0, F), & & MEMBER("SO2 ", 16, "GC", 64.06D0, F), & & MEMBER("SULF ", 17, "GC", 98.08D0, F), & & MEMBER("SULRXN ", 18, "GC", 98.08D0, F), & & MEMBER("MEO2 ", 19, "GC", 47.03D0, F), & & MEMBER("HCHO ", 20, "GC", 30.03D0, F), & & MEMBER("COOH ", 21, "GC", 48.04D0, F), & & MEMBER("MEOH ", 22, "GC", 32.04D0, F), & & MEMBER("RO2C ", 23, "GC", 1.00D0, F), & & MEMBER("RO2XC ", 24, "GC", 1.00D0, F), & & MEMBER("MECO3 ", 25, "GC", 75.04D0, F), & & MEMBER("PAN ", 26, "GC", 121.05D0, F), & & MEMBER("CCOOOH ", 27, "GC", 76.00D0, F), & & MEMBER("CCOOH ", 28, "GC", 60.05D0, F), & & MEMBER("RCO3 ", 29, "GC", 89.07D0, F), & & MEMBER("PAN2 ", 30, "GC", 135.08D0, F), & & MEMBER("xHO2 ", 31, "GC", 33.01D0, F), & & MEMBER("yROOH ", 32, "GC", 76.10D0, F), & & MEMBER("xCCHO ", 33, "GC", 44.05D0, F), & & MEMBER("RCOOOH ", 34, "GC", 74.08D0, F), & & MEMBER("RCOOH ", 35, "GC", 74.08D0, F), & & MEMBER("BZCO3 ", 36, "GC", 137.12D0, F), & & MEMBER("PBZN ", 37, "GC", 183.13D0, F), & & MEMBER("BZO ", 38, "GC", 93.00D0, F), & & MEMBER("MACO3 ", 39, "GC", 101.08D0, F), & & MEMBER("MAPAN ", 40, "GC", 147.09D0, F), & & MEMBER("TBUO ", 41, "GC", 73.00D0, F), & & MEMBER("RNO3 ", 42, "GC", 147.18D0, F), & & MEMBER("ACETONE ", 44, "GC", 58.08D0, F), & & MEMBER("NPHE ", 45, "GC", 139.11D0, F), & & MEMBER("CRES ", 46, "GC", 108.14D0, F), & & MEMBER("xOH ", 47, "GC", 17.01D0, F), & & MEMBER("xNO2 ", 48, "GC", 46.01D0, F), & & MEMBER("xMEO2 ", 49, "GC", 47.03D0, F), & & MEMBER("xMECO3 ", 50, "GC", 75.04D0, F), & & MEMBER("xRCO3 ", 51, "GC", 89.07D0, F), & & MEMBER("xMACO3 ", 52, "GC", 101.08D0, F), & & MEMBER("xTBUO ", 53, "GC", 73.00D0, F), & & MEMBER("xCO ", 54, "GC", 28.01D0, F), & & MEMBER("CCHO ", 55, "GC", 44.05D0, F), & & MEMBER("RCHO ", 56, "GC", 58.08D0, F), & & MEMBER("xHCHO ", 57, "GC", 30.03D0, F), & & MEMBER("MEK ", 58, "GC", 72.11D0, F), & & MEMBER("zRNO3 ", 59, "GC", 147.18D0, F), & & MEMBER("xRCHO ", 60, "GC", 58.08D0, F), & & MEMBER("HCOOH ", 61, "GC", 46.03D0, F), & & MEMBER("xMGLY ", 62, "GC", 72.07D0, F), & & MEMBER("xBACL ", 63, "GC", 86.09D0, F), & & MEMBER("ROOH ", 64, "GC", 76.10D0, F), & & MEMBER("xPROD2 ", 65, "GC", 116.16D0, F), & & MEMBER("R6OOH ", 66, "GC", 118.17D0, F), & & MEMBER("PRD2 ", 67, "GC", 116.16D0, F), & & MEMBER("yR6OOH ", 68, "GC", 118.17D0, F), & & MEMBER("RAOOH ", 71, "GC", 188.18D0, F), & & MEMBER("MGLY ", 72, "GC", 72.07D0, F), & & MEMBER("IPRD ", 73, "GC", 100.12D0, F), & & MEMBER("xGLY ", 74, "GC", 58.04D0, F), & & MEMBER("xMEK ", 75, "GC", 72.11D0, F), & & MEMBER("xAFG1 ", 76, "GC", 98.10D0, F), & & MEMBER("xAFG2 ", 77, "GC", 98.10D0, F), & & MEMBER("GLY ", 78, "GC", 58.04D0, F), & & MEMBER("AFG1 ", 79, "GC", 98.10D0, F), & & MEMBER("AFG2 ", 80, "GC", 98.10D0, F), & & MEMBER("HCOCO3 ", 81, "GC", 89.00D0, F), & & MEMBER("BACL ", 82, "GC", 86.09D0, F), & & MEMBER("BALD ", 83, "GC", 106.13D0, F), & & MEMBER("AFG3 ", 84, "GC", 124.14D0, F), & & MEMBER("xIPRD ", 85, "GC", 100.12D0, F), & & MEMBER("MACR ", 86, "GC", 70.09D0, F), & & MEMBER("MVK ", 87, "GC", 70.09D0, F), & & MEMBER("xHOCCHO ", 88, "GC", 60.05D0, F), & & MEMBER("xRNO3 ", 89, "GC", 147.18D0, F), & & MEMBER("HOCCHO ", 90, "GC", 60.05D0, F), & & MEMBER("xACETONE ", 91, "GC", 58.08D0, F), & & MEMBER("ACROLEIN ", 92, "GC", 56.06D0, F), & & MEMBER("xBALD ", 93, "GC", 106.13D0, F), & & MEMBER("xAFG3 ", 94, "GC", 124.74D0, F), & & MEMBER("xMACR ", 95, "GC", 70.09D0, F), & & MEMBER("xMVK ", 96, "GC", 70.09D0, F), & & MEMBER("xMTNO3 ", 70, "GC", 231.00D0, F), & & MEMBER("MTNO3 ", 43, "GC", 231.00D0, F), & & MEMBER("IMACO3 ", 180, "GC", 101.08D0, F), & & MEMBER("yRAOOH ", 97, "GC", 188.18D0, F), & & MEMBER("zMTNO3 ", 69, "GC", 231.00D0, F), & & MEMBER("xACROLEIN ", 98, "GC", 56.06D0, F), & & MEMBER("ETHENE ", 99, "GC", 28.05D0, F), & & MEMBER("PROPENE ", 100, "GC", 42.08D0, F), & & MEMBER("BUTADIENE13 ", 101, "GC", 54.09D0, F), & & MEMBER("ISOPRENE ", 102, "GC", 68.12D0, F), & & MEMBER("APIN ", 103, "GC", 136.23D0, F), & & MEMBER("TRPRXN ", 104, "GC", 136.00D0, F), & & MEMBER("ACETYLENE ", 105, "GC", 26.04D0, F), & & MEMBER("BENZENE ", 106, "GC", 78.11D0, F), & & MEMBER("BENZRO2 ", 107, "GC", 159.11D0, F), & & MEMBER("TOLUENE ", 108, "GC", 92.14D0, F), & & MEMBER("TOLRO2 ", 109, "GC", 172.14D0, F), & & MEMBER("MXYL ", 110, "GC", 106.17D0, F), & & MEMBER("XYLRO2 ", 111, "GC", 187.17D0, F), & & MEMBER("OXYL ", 112, "GC", 106.17D0, F), & & MEMBER("PXYL ", 113, "GC", 106.17D0, F), & & MEMBER("TMBENZ124 ", 114, "GC", 120.19D0, F), & & MEMBER("ETOH ", 115, "GC", 46.07D0, F), & & MEMBER("ALK1 ", 116, "GC", 30.07D0, F), & & MEMBER("ALK2 ", 117, "GC", 36.73D0, F), & & MEMBER("ALK3 ", 118, "GC", 58.61D0, F), & & MEMBER("ALK4 ", 119, "GC", 77.60D0, F), & & MEMBER("ALK5 ", 120, "GC", 118.89D0, F), & & MEMBER("SOAALK ", 121, "GC", 112.00D0, F), & & MEMBER("SVAVB2 ", 203, "GC", 179.00D0, F), & & MEMBER("SVAVB3 ", 204, "GC", 169.00D0, F), & & MEMBER("SVAVB4 ", 205, "GC", 158.00D0, F), & & MEMBER("OLE1 ", 122, "GC", 72.34D0, F), & & MEMBER("OLE2 ", 123, "GC", 75.78D0, F), & & MEMBER("ARO1 ", 124, "GC", 95.16D0, F), & & MEMBER("ARO2MN ", 125, "GC", 118.72D0, F), & & MEMBER("NAPHTHAL ", 126, "GC", 128.20D0, F), & & MEMBER("PAHRO2 ", 127, "GC", 187.20D0, F), & & MEMBER("TERP ", 128, "GC", 136.24D0, F), & & MEMBER("TERPNRO2 ", 129, "GC", 197.00D0, F), & & MEMBER("SESQ ", 130, "GC", 204.35D0, F), & & MEMBER("SESQRXN ", 131, "GC", 204.35D0, F), & & MEMBER("CL2 ", 132, "GC", 70.00D0, F), & & MEMBER("CL ", 133, "GC", 35.50D0, F), & & MEMBER("CLNO ", 134, "GC", 65.50D0, F), & & MEMBER("CLONO ", 135, "GC", 81.50D0, F), & & MEMBER("CLNO2 ", 136, "GC", 81.50D0, F), & & MEMBER("HCL ", 137, "GC", 36.50D0, F), & & MEMBER("CLO ", 138, "GC", 51.50D0, F), & & MEMBER("CLONO2 ", 139, "GC", 97.45D0, F), & & MEMBER("HOCL ", 140, "GC", 52.50D0, F), & & MEMBER("xCL ", 141, "GC", 35.50D0, F), & & MEMBER("xCLCCHO ", 142, "GC", 78.50D0, F), & & MEMBER("xCLACET ", 143, "GC", 92.50D0, F), & & MEMBER("CLCCHO ", 144, "GC", 78.50D0, F), & & MEMBER("CLACET ", 145, "GC", 92.50D0, F), & & MEMBER("CLCHO ", 146, "GC", 64.50D0, F), & & MEMBER("SVAVB1 ", 202, "GC", 198.00D0, F), & & MEMBER("HCHO_PRIMARY ", 147, "GC", 30.03D0, F), & & MEMBER("CCHO_PRIMARY ", 148, "GC", 44.05D0, F), & & MEMBER("ACRO_PRIMARY ", 149, "GC", 56.06D0, F), & & MEMBER("ISOPO2 ", 150, "GC", 117.10D0, F), & & MEMBER("ISOPRXN ", 151, "GC", 68.00D0, F), & & MEMBER("ISOPND ", 152, "GC", 147.10D0, F), & & MEMBER("ISOPNB ", 153, "GC", 147.10D0, F), & & MEMBER("HC5 ", 154, "GC", 100.10D0, F), & & MEMBER("DIBOO ", 155, "GC", 133.10D0, F), & & MEMBER("ISOPOOH ", 156, "GC", 118.10D0, F), & & MEMBER("HPALD ", 157, "GC", 116.12D0, F), & & MEMBER("HACET ", 158, "GC", 74.10D0, F), & & MEMBER("NISOPO2 ", 159, "GC", 162.10D0, F), & & MEMBER("NIT1 ", 160, "GC", 145.10D0, F), & & MEMBER("NISOPOOH ", 161, "GC", 163.13D0, F), & & MEMBER("HC5OO ", 162, "GC", 149.10D0, F), & & MEMBER("DHMOB ", 163, "GC", 132.10D0, F), & & MEMBER("ISOPNOOD ", 164, "GC", 196.10D0, F), & & MEMBER("PROPNN ", 165, "GC", 119.10D0, F), & & MEMBER("MVKN ", 166, "GC", 149.10D0, F), & & MEMBER("ETHLN ", 167, "GC", 105.00D0, F), & & MEMBER("RNO3I ", 168, "GC", 147.18D0, F), & & MEMBER("ISOPNOOB ", 169, "GC", 196.10D0, F), & & MEMBER("MACRN ", 170, "GC", 149.10D0, F), & & MEMBER("NIT1NO3OOA ", 171, "GC", 176.10D0, F), & & MEMBER("NIT1NO3OOB ", 172, "GC", 239.10D0, F), & & MEMBER("ISOPNN ", 173, "GC", 226.00D0, F), & & MEMBER("NIT1OHOO ", 174, "GC", 194.12D0, F), & & MEMBER("MVKOO ", 175, "GC", 119.10D0, F), & & MEMBER("MACROO ", 176, "GC", 119.10D0, F), & & MEMBER("PYRUACD ", 177, "GC", 88.10D0, F), & & MEMBER("IEPOX ", 178, "GC", 118.13D0, F), & & MEMBER("IEPOXOO ", 179, "GC", 149.12D0, F), & & MEMBER("IMPAA ", 181, "GC", 102.08D0, F), & & MEMBER("IMAPAN ", 182, "GC", 147.09D0, F), & & MEMBER("IMAE ", 183, "GC", 102.00D0, F), & & MEMBER("IHMML ", 184, "GC", 102.00D0, F), & & MEMBER("H2NO3PIJ ", 185, "GC", 64.00D0, F), & & MEMBER("H2NO3PK ", 186, "GC", 64.00D0, F), & & MEMBER("ACLI ", 218, "AE", 35.50D0, T), & & MEMBER("ACLJ ", 219, "AE", 35.50D0, T), & & MEMBER("ACLK ", 220, "AE", 35.50D0, T), & & MEMBER("IEPOXP ", 187, "GC", 118.13D0, F), & & MEMBER("IMAEP ", 188, "GC", 102.00D0, F), & & MEMBER("IHMMLP ", 189, "GC", 102.00D0, F), & & MEMBER("AIETETJ ", 260, "AE", 136.15D0, T), & & MEMBER("ASO4J ", 208, "AE", 96.00D0, T), & & MEMBER("AIEOSJ ", 261, "AE", 216.20D0, T), & & MEMBER("ADIMJ ", 262, "AE", 248.23D0, T), & & MEMBER("AIMGAJ ", 263, "AE", 120.10D0, T), & & MEMBER("AIMOSJ ", 264, "AE", 200.16D0, T), & & MEMBER("AISO1J ", 221, "AE", 132.00D0, T), & & MEMBER("AOLGBJ ", 255, "AE", 248.00D0, T), & & MEMBER("AISO2J ", 222, "AE", 133.00D0, T), & & MEMBER("ASQTJ ", 223, "AE", 273.00D0, T), & & MEMBER("AAVB2J ", 288, "AE", 179.00D0, T), & & MEMBER("AOLGAJ ", 254, "AE", 206.00D0, T), & & MEMBER("AAVB3J ", 289, "AE", 169.00D0, T), & & MEMBER("AAVB4J ", 290, "AE", 158.00D0, T), & & MEMBER("APOCI ", 265, "AE", 220.00D0, T), & & MEMBER("APNCOMI ", 267, "AE", 220.00D0, T), & & MEMBER("APOCJ ", 266, "AE", 220.00D0, T), & & MEMBER("APNCOMJ ", 268, "AE", 220.00D0, T), & & MEMBER("PCVOC ", 200, "GC", 170.00D0, F), & & MEMBER("PCSOARXN ", 201, "GC", 170.00D0, F), & & MEMBER("VLVPO1 ", 190, "GC", 218.00D0, F), & & MEMBER("VSVPO1 ", 191, "GC", 230.00D0, F), & & MEMBER("VSVPO2 ", 192, "GC", 241.00D0, F), & & MEMBER("VSVPO3 ", 193, "GC", 253.00D0, F), & & MEMBER("VIVPO1 ", 194, "GC", 266.00D0, F), & & MEMBER("VLVOO1 ", 195, "GC", 136.00D0, F), & & MEMBER("VLVOO2 ", 196, "GC", 136.00D0, F), & & MEMBER("VSVOO2 ", 198, "GC", 135.00D0, F), & & MEMBER("VSVOO3 ", 199, "GC", 134.00D0, F), & & MEMBER("VSVOO1 ", 197, "GC", 135.00D0, F), & & MEMBER("AMTNO3J ", 257, "AE", 231.00D0, T), & & MEMBER("AMTHYDJ ", 259, "AE", 186.00D0, T), & & MEMBER("AISOPNNJ ", 258, "AE", 226.00D0, T), & & MEMBER("AGLYJ ", 256, "AE", 66.40D0, T) /) DATA CHEMISTRY_SPC( 1 ), SPECIES_MOLWT( 1 ) / 'NO2 ', 46.01D0 / DATA CHEMISTRY_SPC( 2 ), SPECIES_MOLWT( 2 ) / 'NO ', 30.01D0 / DATA CHEMISTRY_SPC( 3 ), SPECIES_MOLWT( 3 ) / 'O3P ', 16.00D0 / DATA CHEMISTRY_SPC( 4 ), SPECIES_MOLWT( 4 ) / 'O3 ', 48.00D0 / DATA CHEMISTRY_SPC( 5 ), SPECIES_MOLWT( 5 ) / 'NO3 ', 62.01D0 / DATA CHEMISTRY_SPC( 6 ), SPECIES_MOLWT( 6 ) / 'N2O5 ', 108.02D0 / DATA CHEMISTRY_SPC( 7 ), SPECIES_MOLWT( 7 ) / 'HNO3 ', 63.02D0 / DATA CHEMISTRY_SPC( 8 ), SPECIES_MOLWT( 8 ) / 'O1D ', 16.00D0 / DATA CHEMISTRY_SPC( 9 ), SPECIES_MOLWT( 9 ) / 'OH ', 17.01D0 / DATA CHEMISTRY_SPC( 10 ), SPECIES_MOLWT( 10 ) / 'HONO ', 47.02D0 / DATA CHEMISTRY_SPC( 11 ), SPECIES_MOLWT( 11 ) / 'HO2 ', 33.01D0 / DATA CHEMISTRY_SPC( 12 ), SPECIES_MOLWT( 12 ) / 'CO ', 28.01D0 / DATA CHEMISTRY_SPC( 13 ), SPECIES_MOLWT( 13 ) / 'CO2 ', 44.01D0 / DATA CHEMISTRY_SPC( 14 ), SPECIES_MOLWT( 14 ) / 'HNO4 ', 79.02D0 / DATA CHEMISTRY_SPC( 15 ), SPECIES_MOLWT( 15 ) / 'HO2H ', 34.01D0 / DATA CHEMISTRY_SPC( 16 ), SPECIES_MOLWT( 16 ) / 'SO2 ', 64.06D0 / DATA CHEMISTRY_SPC( 17 ), SPECIES_MOLWT( 17 ) / 'SULF ', 98.08D0 / DATA CHEMISTRY_SPC( 18 ), SPECIES_MOLWT( 18 ) / 'SULRXN ', 98.08D0 / DATA CHEMISTRY_SPC( 19 ), SPECIES_MOLWT( 19 ) / 'MEO2 ', 47.03D0 / DATA CHEMISTRY_SPC( 20 ), SPECIES_MOLWT( 20 ) / 'HCHO ', 30.03D0 / DATA CHEMISTRY_SPC( 21 ), SPECIES_MOLWT( 21 ) / 'COOH ', 48.04D0 / DATA CHEMISTRY_SPC( 22 ), SPECIES_MOLWT( 22 ) / 'MEOH ', 32.04D0 / DATA CHEMISTRY_SPC( 23 ), SPECIES_MOLWT( 23 ) / 'RO2C ', 1.00D0 / DATA CHEMISTRY_SPC( 24 ), SPECIES_MOLWT( 24 ) / 'RO2XC ', 1.00D0 / DATA CHEMISTRY_SPC( 25 ), SPECIES_MOLWT( 25 ) / 'MECO3 ', 75.04D0 / DATA CHEMISTRY_SPC( 26 ), SPECIES_MOLWT( 26 ) / 'PAN ', 121.05D0 / DATA CHEMISTRY_SPC( 27 ), SPECIES_MOLWT( 27 ) / 'CCOOOH ', 76.00D0 / DATA CHEMISTRY_SPC( 28 ), SPECIES_MOLWT( 28 ) / 'CCOOH ', 60.05D0 / DATA CHEMISTRY_SPC( 29 ), SPECIES_MOLWT( 29 ) / 'RCO3 ', 89.07D0 / DATA CHEMISTRY_SPC( 30 ), SPECIES_MOLWT( 30 ) / 'PAN2 ', 135.08D0 / DATA CHEMISTRY_SPC( 31 ), SPECIES_MOLWT( 31 ) / 'xHO2 ', 33.01D0 / DATA CHEMISTRY_SPC( 32 ), SPECIES_MOLWT( 32 ) / 'yROOH ', 76.10D0 / DATA CHEMISTRY_SPC( 33 ), SPECIES_MOLWT( 33 ) / 'xCCHO ', 44.05D0 / DATA CHEMISTRY_SPC( 34 ), SPECIES_MOLWT( 34 ) / 'RCOOOH ', 74.08D0 / DATA CHEMISTRY_SPC( 35 ), SPECIES_MOLWT( 35 ) / 'RCOOH ', 74.08D0 / DATA CHEMISTRY_SPC( 36 ), SPECIES_MOLWT( 36 ) / 'BZCO3 ', 137.12D0 / DATA CHEMISTRY_SPC( 37 ), SPECIES_MOLWT( 37 ) / 'PBZN ', 183.13D0 / DATA CHEMISTRY_SPC( 38 ), SPECIES_MOLWT( 38 ) / 'BZO ', 93.00D0 / DATA CHEMISTRY_SPC( 39 ), SPECIES_MOLWT( 39 ) / 'MACO3 ', 101.08D0 / DATA CHEMISTRY_SPC( 40 ), SPECIES_MOLWT( 40 ) / 'MAPAN ', 147.09D0 / DATA CHEMISTRY_SPC( 41 ), SPECIES_MOLWT( 41 ) / 'TBUO ', 73.00D0 / DATA CHEMISTRY_SPC( 42 ), SPECIES_MOLWT( 42 ) / 'RNO3 ', 147.18D0 / DATA CHEMISTRY_SPC( 43 ), SPECIES_MOLWT( 43 ) / 'ACETONE ', 58.08D0 / DATA CHEMISTRY_SPC( 44 ), SPECIES_MOLWT( 44 ) / 'NPHE ', 139.11D0 / DATA CHEMISTRY_SPC( 45 ), SPECIES_MOLWT( 45 ) / 'CRES ', 108.14D0 / DATA CHEMISTRY_SPC( 46 ), SPECIES_MOLWT( 46 ) / 'xOH ', 17.01D0 / DATA CHEMISTRY_SPC( 47 ), SPECIES_MOLWT( 47 ) / 'xNO2 ', 46.01D0 / DATA CHEMISTRY_SPC( 48 ), SPECIES_MOLWT( 48 ) / 'xMEO2 ', 47.03D0 / DATA CHEMISTRY_SPC( 49 ), SPECIES_MOLWT( 49 ) / 'xMECO3 ', 75.04D0 / DATA CHEMISTRY_SPC( 50 ), SPECIES_MOLWT( 50 ) / 'xRCO3 ', 89.07D0 / DATA CHEMISTRY_SPC( 51 ), SPECIES_MOLWT( 51 ) / 'xMACO3 ', 101.08D0 / DATA CHEMISTRY_SPC( 52 ), SPECIES_MOLWT( 52 ) / 'xTBUO ', 73.00D0 / DATA CHEMISTRY_SPC( 53 ), SPECIES_MOLWT( 53 ) / 'xCO ', 28.01D0 / DATA CHEMISTRY_SPC( 54 ), SPECIES_MOLWT( 54 ) / 'CCHO ', 44.05D0 / DATA CHEMISTRY_SPC( 55 ), SPECIES_MOLWT( 55 ) / 'RCHO ', 58.08D0 / DATA CHEMISTRY_SPC( 56 ), SPECIES_MOLWT( 56 ) / 'xHCHO ', 30.03D0 / DATA CHEMISTRY_SPC( 57 ), SPECIES_MOLWT( 57 ) / 'MEK ', 72.11D0 / DATA CHEMISTRY_SPC( 58 ), SPECIES_MOLWT( 58 ) / 'zRNO3 ', 147.18D0 / DATA CHEMISTRY_SPC( 59 ), SPECIES_MOLWT( 59 ) / 'xRCHO ', 58.08D0 / DATA CHEMISTRY_SPC( 60 ), SPECIES_MOLWT( 60 ) / 'HCOOH ', 46.03D0 / DATA CHEMISTRY_SPC( 61 ), SPECIES_MOLWT( 61 ) / 'xMGLY ', 72.07D0 / DATA CHEMISTRY_SPC( 62 ), SPECIES_MOLWT( 62 ) / 'xBACL ', 86.09D0 / DATA CHEMISTRY_SPC( 63 ), SPECIES_MOLWT( 63 ) / 'ROOH ', 76.10D0 / DATA CHEMISTRY_SPC( 64 ), SPECIES_MOLWT( 64 ) / 'xPROD2 ', 116.16D0 / DATA CHEMISTRY_SPC( 65 ), SPECIES_MOLWT( 65 ) / 'R6OOH ', 118.17D0 / DATA CHEMISTRY_SPC( 66 ), SPECIES_MOLWT( 66 ) / 'PRD2 ', 116.16D0 / DATA CHEMISTRY_SPC( 67 ), SPECIES_MOLWT( 67 ) / 'yR6OOH ', 118.17D0 / DATA CHEMISTRY_SPC( 68 ), SPECIES_MOLWT( 68 ) / 'RAOOH ', 188.18D0 / DATA CHEMISTRY_SPC( 69 ), SPECIES_MOLWT( 69 ) / 'MGLY ', 72.07D0 / DATA CHEMISTRY_SPC( 70 ), SPECIES_MOLWT( 70 ) / 'IPRD ', 100.12D0 / DATA CHEMISTRY_SPC( 71 ), SPECIES_MOLWT( 71 ) / 'xGLY ', 58.04D0 / DATA CHEMISTRY_SPC( 72 ), SPECIES_MOLWT( 72 ) / 'xMEK ', 72.11D0 / DATA CHEMISTRY_SPC( 73 ), SPECIES_MOLWT( 73 ) / 'xAFG1 ', 98.10D0 / DATA CHEMISTRY_SPC( 74 ), SPECIES_MOLWT( 74 ) / 'xAFG2 ', 98.10D0 / DATA CHEMISTRY_SPC( 75 ), SPECIES_MOLWT( 75 ) / 'GLY ', 58.04D0 / DATA CHEMISTRY_SPC( 76 ), SPECIES_MOLWT( 76 ) / 'AFG1 ', 98.10D0 / DATA CHEMISTRY_SPC( 77 ), SPECIES_MOLWT( 77 ) / 'AFG2 ', 98.10D0 / DATA CHEMISTRY_SPC( 78 ), SPECIES_MOLWT( 78 ) / 'HCOCO3 ', 89.00D0 / DATA CHEMISTRY_SPC( 79 ), SPECIES_MOLWT( 79 ) / 'BACL ', 86.09D0 / DATA CHEMISTRY_SPC( 80 ), SPECIES_MOLWT( 80 ) / 'BALD ', 106.13D0 / DATA CHEMISTRY_SPC( 81 ), SPECIES_MOLWT( 81 ) / 'AFG3 ', 124.14D0 / DATA CHEMISTRY_SPC( 82 ), SPECIES_MOLWT( 82 ) / 'xIPRD ', 100.12D0 / DATA CHEMISTRY_SPC( 83 ), SPECIES_MOLWT( 83 ) / 'MACR ', 70.09D0 / DATA CHEMISTRY_SPC( 84 ), SPECIES_MOLWT( 84 ) / 'MVK ', 70.09D0 / DATA CHEMISTRY_SPC( 85 ), SPECIES_MOLWT( 85 ) / 'xHOCCHO ', 60.05D0 / DATA CHEMISTRY_SPC( 86 ), SPECIES_MOLWT( 86 ) / 'xRNO3 ', 147.18D0 / DATA CHEMISTRY_SPC( 87 ), SPECIES_MOLWT( 87 ) / 'HOCCHO ', 60.05D0 / DATA CHEMISTRY_SPC( 88 ), SPECIES_MOLWT( 88 ) / 'xACETONE ', 58.08D0 / DATA CHEMISTRY_SPC( 89 ), SPECIES_MOLWT( 89 ) / 'ACROLEIN ', 56.06D0 / DATA CHEMISTRY_SPC( 90 ), SPECIES_MOLWT( 90 ) / 'xBALD ', 106.13D0 / DATA CHEMISTRY_SPC( 91 ), SPECIES_MOLWT( 91 ) / 'xAFG3 ', 124.74D0 / DATA CHEMISTRY_SPC( 92 ), SPECIES_MOLWT( 92 ) / 'xMACR ', 70.09D0 / DATA CHEMISTRY_SPC( 93 ), SPECIES_MOLWT( 93 ) / 'xMVK ', 70.09D0 / DATA CHEMISTRY_SPC( 94 ), SPECIES_MOLWT( 94 ) / 'xMTNO3 ', 231.00D0 / DATA CHEMISTRY_SPC( 95 ), SPECIES_MOLWT( 95 ) / 'MTNO3 ', 231.00D0 / DATA CHEMISTRY_SPC( 96 ), SPECIES_MOLWT( 96 ) / 'IMACO3 ', 101.08D0 / DATA CHEMISTRY_SPC( 97 ), SPECIES_MOLWT( 97 ) / 'yRAOOH ', 188.18D0 / DATA CHEMISTRY_SPC( 98 ), SPECIES_MOLWT( 98 ) / 'zMTNO3 ', 231.00D0 / DATA CHEMISTRY_SPC( 99 ), SPECIES_MOLWT( 99 ) / 'xACROLEIN ', 56.06D0 / DATA CHEMISTRY_SPC( 100 ), SPECIES_MOLWT( 100 ) / 'ETHENE ', 28.05D0 / DATA CHEMISTRY_SPC( 101 ), SPECIES_MOLWT( 101 ) / 'PROPENE ', 42.08D0 / DATA CHEMISTRY_SPC( 102 ), SPECIES_MOLWT( 102 ) / 'BUTADIENE13 ', 54.09D0 / DATA CHEMISTRY_SPC( 103 ), SPECIES_MOLWT( 103 ) / 'ISOPRENE ', 68.12D0 / DATA CHEMISTRY_SPC( 104 ), SPECIES_MOLWT( 104 ) / 'APIN ', 136.23D0 / DATA CHEMISTRY_SPC( 105 ), SPECIES_MOLWT( 105 ) / 'TRPRXN ', 136.00D0 / DATA CHEMISTRY_SPC( 106 ), SPECIES_MOLWT( 106 ) / 'ACETYLENE ', 26.04D0 / DATA CHEMISTRY_SPC( 107 ), SPECIES_MOLWT( 107 ) / 'BENZENE ', 78.11D0 / DATA CHEMISTRY_SPC( 108 ), SPECIES_MOLWT( 108 ) / 'BENZRO2 ', 159.11D0 / DATA CHEMISTRY_SPC( 109 ), SPECIES_MOLWT( 109 ) / 'TOLUENE ', 92.14D0 / DATA CHEMISTRY_SPC( 110 ), SPECIES_MOLWT( 110 ) / 'TOLRO2 ', 172.14D0 / DATA CHEMISTRY_SPC( 111 ), SPECIES_MOLWT( 111 ) / 'MXYL ', 106.17D0 / DATA CHEMISTRY_SPC( 112 ), SPECIES_MOLWT( 112 ) / 'XYLRO2 ', 187.17D0 / DATA CHEMISTRY_SPC( 113 ), SPECIES_MOLWT( 113 ) / 'OXYL ', 106.17D0 / DATA CHEMISTRY_SPC( 114 ), SPECIES_MOLWT( 114 ) / 'PXYL ', 106.17D0 / DATA CHEMISTRY_SPC( 115 ), SPECIES_MOLWT( 115 ) / 'TMBENZ124 ', 120.19D0 / DATA CHEMISTRY_SPC( 116 ), SPECIES_MOLWT( 116 ) / 'ETOH ', 46.07D0 / DATA CHEMISTRY_SPC( 117 ), SPECIES_MOLWT( 117 ) / 'ALK1 ', 30.07D0 / DATA CHEMISTRY_SPC( 118 ), SPECIES_MOLWT( 118 ) / 'ALK2 ', 36.73D0 / DATA CHEMISTRY_SPC( 119 ), SPECIES_MOLWT( 119 ) / 'ALK3 ', 58.61D0 / DATA CHEMISTRY_SPC( 120 ), SPECIES_MOLWT( 120 ) / 'ALK4 ', 77.60D0 / DATA CHEMISTRY_SPC( 121 ), SPECIES_MOLWT( 121 ) / 'ALK5 ', 118.89D0 / DATA CHEMISTRY_SPC( 122 ), SPECIES_MOLWT( 122 ) / 'SOAALK ', 112.00D0 / DATA CHEMISTRY_SPC( 123 ), SPECIES_MOLWT( 123 ) / 'SVAVB2 ', 179.00D0 / DATA CHEMISTRY_SPC( 124 ), SPECIES_MOLWT( 124 ) / 'SVAVB3 ', 169.00D0 / DATA CHEMISTRY_SPC( 125 ), SPECIES_MOLWT( 125 ) / 'SVAVB4 ', 158.00D0 / DATA CHEMISTRY_SPC( 126 ), SPECIES_MOLWT( 126 ) / 'OLE1 ', 72.34D0 / DATA CHEMISTRY_SPC( 127 ), SPECIES_MOLWT( 127 ) / 'OLE2 ', 75.78D0 / DATA CHEMISTRY_SPC( 128 ), SPECIES_MOLWT( 128 ) / 'ARO1 ', 95.16D0 / DATA CHEMISTRY_SPC( 129 ), SPECIES_MOLWT( 129 ) / 'ARO2MN ', 118.72D0 / DATA CHEMISTRY_SPC( 130 ), SPECIES_MOLWT( 130 ) / 'NAPHTHAL ', 128.20D0 / DATA CHEMISTRY_SPC( 131 ), SPECIES_MOLWT( 131 ) / 'PAHRO2 ', 187.20D0 / DATA CHEMISTRY_SPC( 132 ), SPECIES_MOLWT( 132 ) / 'TERP ', 136.24D0 / DATA CHEMISTRY_SPC( 133 ), SPECIES_MOLWT( 133 ) / 'TERPNRO2 ', 197.00D0 / DATA CHEMISTRY_SPC( 134 ), SPECIES_MOLWT( 134 ) / 'SESQ ', 204.35D0 / DATA CHEMISTRY_SPC( 135 ), SPECIES_MOLWT( 135 ) / 'SESQRXN ', 204.35D0 / DATA CHEMISTRY_SPC( 136 ), SPECIES_MOLWT( 136 ) / 'CL2 ', 70.00D0 / DATA CHEMISTRY_SPC( 137 ), SPECIES_MOLWT( 137 ) / 'CL ', 35.50D0 / DATA CHEMISTRY_SPC( 138 ), SPECIES_MOLWT( 138 ) / 'CLNO ', 65.50D0 / DATA CHEMISTRY_SPC( 139 ), SPECIES_MOLWT( 139 ) / 'CLONO ', 81.50D0 / DATA CHEMISTRY_SPC( 140 ), SPECIES_MOLWT( 140 ) / 'CLNO2 ', 81.50D0 / DATA CHEMISTRY_SPC( 141 ), SPECIES_MOLWT( 141 ) / 'HCL ', 36.50D0 / DATA CHEMISTRY_SPC( 142 ), SPECIES_MOLWT( 142 ) / 'CLO ', 51.50D0 / DATA CHEMISTRY_SPC( 143 ), SPECIES_MOLWT( 143 ) / 'CLONO2 ', 97.45D0 / DATA CHEMISTRY_SPC( 144 ), SPECIES_MOLWT( 144 ) / 'HOCL ', 52.50D0 / DATA CHEMISTRY_SPC( 145 ), SPECIES_MOLWT( 145 ) / 'xCL ', 35.50D0 / DATA CHEMISTRY_SPC( 146 ), SPECIES_MOLWT( 146 ) / 'xCLCCHO ', 78.50D0 / DATA CHEMISTRY_SPC( 147 ), SPECIES_MOLWT( 147 ) / 'xCLACET ', 92.50D0 / DATA CHEMISTRY_SPC( 148 ), SPECIES_MOLWT( 148 ) / 'CLCCHO ', 78.50D0 / DATA CHEMISTRY_SPC( 149 ), SPECIES_MOLWT( 149 ) / 'CLACET ', 92.50D0 / DATA CHEMISTRY_SPC( 150 ), SPECIES_MOLWT( 150 ) / 'CLCHO ', 64.50D0 / DATA CHEMISTRY_SPC( 151 ), SPECIES_MOLWT( 151 ) / 'SVAVB1 ', 198.00D0 / DATA CHEMISTRY_SPC( 152 ), SPECIES_MOLWT( 152 ) / 'HCHO_PRIMARY ', 30.03D0 / DATA CHEMISTRY_SPC( 153 ), SPECIES_MOLWT( 153 ) / 'CCHO_PRIMARY ', 44.05D0 / DATA CHEMISTRY_SPC( 154 ), SPECIES_MOLWT( 154 ) / 'ACRO_PRIMARY ', 56.06D0 / DATA CHEMISTRY_SPC( 155 ), SPECIES_MOLWT( 155 ) / 'ISOPO2 ', 117.10D0 / DATA CHEMISTRY_SPC( 156 ), SPECIES_MOLWT( 156 ) / 'ISOPRXN ', 68.00D0 / DATA CHEMISTRY_SPC( 157 ), SPECIES_MOLWT( 157 ) / 'ISOPND ', 147.10D0 / DATA CHEMISTRY_SPC( 158 ), SPECIES_MOLWT( 158 ) / 'ISOPNB ', 147.10D0 / DATA CHEMISTRY_SPC( 159 ), SPECIES_MOLWT( 159 ) / 'HC5 ', 100.10D0 / DATA CHEMISTRY_SPC( 160 ), SPECIES_MOLWT( 160 ) / 'DIBOO ', 133.10D0 / DATA CHEMISTRY_SPC( 161 ), SPECIES_MOLWT( 161 ) / 'ISOPOOH ', 118.10D0 / DATA CHEMISTRY_SPC( 162 ), SPECIES_MOLWT( 162 ) / 'HPALD ', 116.12D0 / DATA CHEMISTRY_SPC( 163 ), SPECIES_MOLWT( 163 ) / 'HACET ', 74.10D0 / DATA CHEMISTRY_SPC( 164 ), SPECIES_MOLWT( 164 ) / 'NISOPO2 ', 162.10D0 / DATA CHEMISTRY_SPC( 165 ), SPECIES_MOLWT( 165 ) / 'NIT1 ', 145.10D0 / DATA CHEMISTRY_SPC( 166 ), SPECIES_MOLWT( 166 ) / 'NISOPOOH ', 163.13D0 / DATA CHEMISTRY_SPC( 167 ), SPECIES_MOLWT( 167 ) / 'HC5OO ', 149.10D0 / DATA CHEMISTRY_SPC( 168 ), SPECIES_MOLWT( 168 ) / 'DHMOB ', 132.10D0 / DATA CHEMISTRY_SPC( 169 ), SPECIES_MOLWT( 169 ) / 'ISOPNOOD ', 196.10D0 / DATA CHEMISTRY_SPC( 170 ), SPECIES_MOLWT( 170 ) / 'PROPNN ', 119.10D0 / DATA CHEMISTRY_SPC( 171 ), SPECIES_MOLWT( 171 ) / 'MVKN ', 149.10D0 / DATA CHEMISTRY_SPC( 172 ), SPECIES_MOLWT( 172 ) / 'ETHLN ', 105.00D0 / DATA CHEMISTRY_SPC( 173 ), SPECIES_MOLWT( 173 ) / 'RNO3I ', 147.18D0 / DATA CHEMISTRY_SPC( 174 ), SPECIES_MOLWT( 174 ) / 'ISOPNOOB ', 196.10D0 / DATA CHEMISTRY_SPC( 175 ), SPECIES_MOLWT( 175 ) / 'MACRN ', 149.10D0 / DATA CHEMISTRY_SPC( 176 ), SPECIES_MOLWT( 176 ) / 'NIT1NO3OOA ', 176.10D0 / DATA CHEMISTRY_SPC( 177 ), SPECIES_MOLWT( 177 ) / 'NIT1NO3OOB ', 239.10D0 / DATA CHEMISTRY_SPC( 178 ), SPECIES_MOLWT( 178 ) / 'ISOPNN ', 226.00D0 / DATA CHEMISTRY_SPC( 179 ), SPECIES_MOLWT( 179 ) / 'NIT1OHOO ', 194.12D0 / DATA CHEMISTRY_SPC( 180 ), SPECIES_MOLWT( 180 ) / 'MVKOO ', 119.10D0 / DATA CHEMISTRY_SPC( 181 ), SPECIES_MOLWT( 181 ) / 'MACROO ', 119.10D0 / DATA CHEMISTRY_SPC( 182 ), SPECIES_MOLWT( 182 ) / 'PYRUACD ', 88.10D0 / DATA CHEMISTRY_SPC( 183 ), SPECIES_MOLWT( 183 ) / 'IEPOX ', 118.13D0 / DATA CHEMISTRY_SPC( 184 ), SPECIES_MOLWT( 184 ) / 'IEPOXOO ', 149.12D0 / DATA CHEMISTRY_SPC( 185 ), SPECIES_MOLWT( 185 ) / 'IMPAA ', 102.08D0 / DATA CHEMISTRY_SPC( 186 ), SPECIES_MOLWT( 186 ) / 'IMAPAN ', 147.09D0 / DATA CHEMISTRY_SPC( 187 ), SPECIES_MOLWT( 187 ) / 'IMAE ', 102.00D0 / DATA CHEMISTRY_SPC( 188 ), SPECIES_MOLWT( 188 ) / 'IHMML ', 102.00D0 / DATA CHEMISTRY_SPC( 189 ), SPECIES_MOLWT( 189 ) / 'H2NO3PIJ ', 64.00D0 / DATA CHEMISTRY_SPC( 190 ), SPECIES_MOLWT( 190 ) / 'H2NO3PK ', 64.00D0 / DATA CHEMISTRY_SPC( 191 ), SPECIES_MOLWT( 191 ) / 'ACLI ', 35.50D0 / DATA CHEMISTRY_SPC( 192 ), SPECIES_MOLWT( 192 ) / 'ACLJ ', 35.50D0 / DATA CHEMISTRY_SPC( 193 ), SPECIES_MOLWT( 193 ) / 'ACLK ', 35.50D0 / DATA CHEMISTRY_SPC( 194 ), SPECIES_MOLWT( 194 ) / 'IEPOXP ', 118.13D0 / DATA CHEMISTRY_SPC( 195 ), SPECIES_MOLWT( 195 ) / 'IMAEP ', 102.00D0 / DATA CHEMISTRY_SPC( 196 ), SPECIES_MOLWT( 196 ) / 'IHMMLP ', 102.00D0 / DATA CHEMISTRY_SPC( 197 ), SPECIES_MOLWT( 197 ) / 'AIETETJ ', 136.15D0 / DATA CHEMISTRY_SPC( 198 ), SPECIES_MOLWT( 198 ) / 'ASO4J ', 96.00D0 / DATA CHEMISTRY_SPC( 199 ), SPECIES_MOLWT( 199 ) / 'AIEOSJ ', 216.20D0 / DATA CHEMISTRY_SPC( 200 ), SPECIES_MOLWT( 200 ) / 'ADIMJ ', 248.23D0 / DATA CHEMISTRY_SPC( 201 ), SPECIES_MOLWT( 201 ) / 'AIMGAJ ', 120.10D0 / DATA CHEMISTRY_SPC( 202 ), SPECIES_MOLWT( 202 ) / 'AIMOSJ ', 200.16D0 / DATA CHEMISTRY_SPC( 203 ), SPECIES_MOLWT( 203 ) / 'AISO1J ', 132.00D0 / DATA CHEMISTRY_SPC( 204 ), SPECIES_MOLWT( 204 ) / 'AOLGBJ ', 248.00D0 / DATA CHEMISTRY_SPC( 205 ), SPECIES_MOLWT( 205 ) / 'AISO2J ', 133.00D0 / DATA CHEMISTRY_SPC( 206 ), SPECIES_MOLWT( 206 ) / 'ASQTJ ', 273.00D0 / DATA CHEMISTRY_SPC( 207 ), SPECIES_MOLWT( 207 ) / 'AAVB2J ', 179.00D0 / DATA CHEMISTRY_SPC( 208 ), SPECIES_MOLWT( 208 ) / 'AOLGAJ ', 206.00D0 / DATA CHEMISTRY_SPC( 209 ), SPECIES_MOLWT( 209 ) / 'AAVB3J ', 169.00D0 / DATA CHEMISTRY_SPC( 210 ), SPECIES_MOLWT( 210 ) / 'AAVB4J ', 158.00D0 / DATA CHEMISTRY_SPC( 211 ), SPECIES_MOLWT( 211 ) / 'APOCI ', 220.00D0 / DATA CHEMISTRY_SPC( 212 ), SPECIES_MOLWT( 212 ) / 'APNCOMI ', 220.00D0 / DATA CHEMISTRY_SPC( 213 ), SPECIES_MOLWT( 213 ) / 'APOCJ ', 220.00D0 / DATA CHEMISTRY_SPC( 214 ), SPECIES_MOLWT( 214 ) / 'APNCOMJ ', 220.00D0 / DATA CHEMISTRY_SPC( 215 ), SPECIES_MOLWT( 215 ) / 'PCVOC ', 170.00D0 / DATA CHEMISTRY_SPC( 216 ), SPECIES_MOLWT( 216 ) / 'PCSOARXN ', 170.00D0 / DATA CHEMISTRY_SPC( 217 ), SPECIES_MOLWT( 217 ) / 'VLVPO1 ', 218.00D0 / DATA CHEMISTRY_SPC( 218 ), SPECIES_MOLWT( 218 ) / 'VSVPO1 ', 230.00D0 / DATA CHEMISTRY_SPC( 219 ), SPECIES_MOLWT( 219 ) / 'VSVPO2 ', 241.00D0 / DATA CHEMISTRY_SPC( 220 ), SPECIES_MOLWT( 220 ) / 'VSVPO3 ', 253.00D0 / DATA CHEMISTRY_SPC( 221 ), SPECIES_MOLWT( 221 ) / 'VIVPO1 ', 266.00D0 / DATA CHEMISTRY_SPC( 222 ), SPECIES_MOLWT( 222 ) / 'VLVOO1 ', 136.00D0 / DATA CHEMISTRY_SPC( 223 ), SPECIES_MOLWT( 223 ) / 'VLVOO2 ', 136.00D0 / DATA CHEMISTRY_SPC( 224 ), SPECIES_MOLWT( 224 ) / 'VSVOO2 ', 135.00D0 / DATA CHEMISTRY_SPC( 225 ), SPECIES_MOLWT( 225 ) / 'VSVOO3 ', 134.00D0 / DATA CHEMISTRY_SPC( 226 ), SPECIES_MOLWT( 226 ) / 'VSVOO1 ', 135.00D0 / DATA CHEMISTRY_SPC( 227 ), SPECIES_MOLWT( 227 ) / 'AMTNO3J ', 231.00D0 / DATA CHEMISTRY_SPC( 228 ), SPECIES_MOLWT( 228 ) / 'AMTHYDJ ', 186.00D0 / DATA CHEMISTRY_SPC( 229 ), SPECIES_MOLWT( 229 ) / 'AISOPNNJ ', 226.00D0 / DATA CHEMISTRY_SPC( 230 ), SPECIES_MOLWT( 230 ) / 'AGLYJ ', 66.40D0 / DATA CGRID_INDEX( 1 ), SPECIES_TYPE( 1 ), CONVERT_CONC( 1 ) / 1, 'GC', F / ! NO2 DATA CGRID_INDEX( 2 ), SPECIES_TYPE( 2 ), CONVERT_CONC( 2 ) / 2, 'GC', F / ! NO DATA CGRID_INDEX( 3 ), SPECIES_TYPE( 3 ), CONVERT_CONC( 3 ) / 3, 'GC', F / ! O3P DATA CGRID_INDEX( 4 ), SPECIES_TYPE( 4 ), CONVERT_CONC( 4 ) / 4, 'GC', F / ! O3 DATA CGRID_INDEX( 5 ), SPECIES_TYPE( 5 ), CONVERT_CONC( 5 ) / 5, 'GC', F / ! NO3 DATA CGRID_INDEX( 6 ), SPECIES_TYPE( 6 ), CONVERT_CONC( 6 ) / 6, 'GC', F / ! N2O5 DATA CGRID_INDEX( 7 ), SPECIES_TYPE( 7 ), CONVERT_CONC( 7 ) / 7, 'GC', F / ! HNO3 DATA CGRID_INDEX( 8 ), SPECIES_TYPE( 8 ), CONVERT_CONC( 8 ) / 8, 'GC', F / ! O1D DATA CGRID_INDEX( 9 ), SPECIES_TYPE( 9 ), CONVERT_CONC( 9 ) / 9, 'GC', F / ! OH DATA CGRID_INDEX( 10 ), SPECIES_TYPE( 10 ), CONVERT_CONC( 10 ) / 10, 'GC', F / ! HONO DATA CGRID_INDEX( 11 ), SPECIES_TYPE( 11 ), CONVERT_CONC( 11 ) / 11, 'GC', F / ! HO2 DATA CGRID_INDEX( 12 ), SPECIES_TYPE( 12 ), CONVERT_CONC( 12 ) / 12, 'GC', F / ! CO DATA CGRID_INDEX( 13 ), SPECIES_TYPE( 13 ), CONVERT_CONC( 13 ) / 13, 'GC', F / ! CO2 DATA CGRID_INDEX( 14 ), SPECIES_TYPE( 14 ), CONVERT_CONC( 14 ) / 14, 'GC', F / ! HNO4 DATA CGRID_INDEX( 15 ), SPECIES_TYPE( 15 ), CONVERT_CONC( 15 ) / 15, 'GC', F / ! HO2H DATA CGRID_INDEX( 16 ), SPECIES_TYPE( 16 ), CONVERT_CONC( 16 ) / 16, 'GC', F / ! SO2 DATA CGRID_INDEX( 17 ), SPECIES_TYPE( 17 ), CONVERT_CONC( 17 ) / 17, 'GC', F / ! SULF DATA CGRID_INDEX( 18 ), SPECIES_TYPE( 18 ), CONVERT_CONC( 18 ) / 18, 'GC', F / ! SULRXN DATA CGRID_INDEX( 19 ), SPECIES_TYPE( 19 ), CONVERT_CONC( 19 ) / 19, 'GC', F / ! MEO2 DATA CGRID_INDEX( 20 ), SPECIES_TYPE( 20 ), CONVERT_CONC( 20 ) / 20, 'GC', F / ! HCHO DATA CGRID_INDEX( 21 ), SPECIES_TYPE( 21 ), CONVERT_CONC( 21 ) / 21, 'GC', F / ! COOH DATA CGRID_INDEX( 22 ), SPECIES_TYPE( 22 ), CONVERT_CONC( 22 ) / 22, 'GC', F / ! MEOH DATA CGRID_INDEX( 23 ), SPECIES_TYPE( 23 ), CONVERT_CONC( 23 ) / 23, 'GC', F / ! RO2C DATA CGRID_INDEX( 24 ), SPECIES_TYPE( 24 ), CONVERT_CONC( 24 ) / 24, 'GC', F / ! RO2XC DATA CGRID_INDEX( 25 ), SPECIES_TYPE( 25 ), CONVERT_CONC( 25 ) / 25, 'GC', F / ! MECO3 DATA CGRID_INDEX( 26 ), SPECIES_TYPE( 26 ), CONVERT_CONC( 26 ) / 26, 'GC', F / ! PAN DATA CGRID_INDEX( 27 ), SPECIES_TYPE( 27 ), CONVERT_CONC( 27 ) / 27, 'GC', F / ! CCOOOH DATA CGRID_INDEX( 28 ), SPECIES_TYPE( 28 ), CONVERT_CONC( 28 ) / 28, 'GC', F / ! CCOOH DATA CGRID_INDEX( 29 ), SPECIES_TYPE( 29 ), CONVERT_CONC( 29 ) / 29, 'GC', F / ! RCO3 DATA CGRID_INDEX( 30 ), SPECIES_TYPE( 30 ), CONVERT_CONC( 30 ) / 30, 'GC', F / ! PAN2 DATA CGRID_INDEX( 31 ), SPECIES_TYPE( 31 ), CONVERT_CONC( 31 ) / 31, 'GC', F / ! xHO2 DATA CGRID_INDEX( 32 ), SPECIES_TYPE( 32 ), CONVERT_CONC( 32 ) / 32, 'GC', F / ! yROOH DATA CGRID_INDEX( 33 ), SPECIES_TYPE( 33 ), CONVERT_CONC( 33 ) / 33, 'GC', F / ! xCCHO DATA CGRID_INDEX( 34 ), SPECIES_TYPE( 34 ), CONVERT_CONC( 34 ) / 34, 'GC', F / ! RCOOOH DATA CGRID_INDEX( 35 ), SPECIES_TYPE( 35 ), CONVERT_CONC( 35 ) / 35, 'GC', F / ! RCOOH DATA CGRID_INDEX( 36 ), SPECIES_TYPE( 36 ), CONVERT_CONC( 36 ) / 36, 'GC', F / ! BZCO3 DATA CGRID_INDEX( 37 ), SPECIES_TYPE( 37 ), CONVERT_CONC( 37 ) / 37, 'GC', F / ! PBZN DATA CGRID_INDEX( 38 ), SPECIES_TYPE( 38 ), CONVERT_CONC( 38 ) / 38, 'GC', F / ! BZO DATA CGRID_INDEX( 39 ), SPECIES_TYPE( 39 ), CONVERT_CONC( 39 ) / 39, 'GC', F / ! MACO3 DATA CGRID_INDEX( 40 ), SPECIES_TYPE( 40 ), CONVERT_CONC( 40 ) / 40, 'GC', F / ! MAPAN DATA CGRID_INDEX( 41 ), SPECIES_TYPE( 41 ), CONVERT_CONC( 41 ) / 41, 'GC', F / ! TBUO DATA CGRID_INDEX( 42 ), SPECIES_TYPE( 42 ), CONVERT_CONC( 42 ) / 42, 'GC', F / ! RNO3 DATA CGRID_INDEX( 43 ), SPECIES_TYPE( 43 ), CONVERT_CONC( 43 ) / 44, 'GC', F / ! ACETONE DATA CGRID_INDEX( 44 ), SPECIES_TYPE( 44 ), CONVERT_CONC( 44 ) / 45, 'GC', F / ! NPHE DATA CGRID_INDEX( 45 ), SPECIES_TYPE( 45 ), CONVERT_CONC( 45 ) / 46, 'GC', F / ! CRES DATA CGRID_INDEX( 46 ), SPECIES_TYPE( 46 ), CONVERT_CONC( 46 ) / 47, 'GC', F / ! xOH DATA CGRID_INDEX( 47 ), SPECIES_TYPE( 47 ), CONVERT_CONC( 47 ) / 48, 'GC', F / ! xNO2 DATA CGRID_INDEX( 48 ), SPECIES_TYPE( 48 ), CONVERT_CONC( 48 ) / 49, 'GC', F / ! xMEO2 DATA CGRID_INDEX( 49 ), SPECIES_TYPE( 49 ), CONVERT_CONC( 49 ) / 50, 'GC', F / ! xMECO3 DATA CGRID_INDEX( 50 ), SPECIES_TYPE( 50 ), CONVERT_CONC( 50 ) / 51, 'GC', F / ! xRCO3 DATA CGRID_INDEX( 51 ), SPECIES_TYPE( 51 ), CONVERT_CONC( 51 ) / 52, 'GC', F / ! xMACO3 DATA CGRID_INDEX( 52 ), SPECIES_TYPE( 52 ), CONVERT_CONC( 52 ) / 53, 'GC', F / ! xTBUO DATA CGRID_INDEX( 53 ), SPECIES_TYPE( 53 ), CONVERT_CONC( 53 ) / 54, 'GC', F / ! xCO DATA CGRID_INDEX( 54 ), SPECIES_TYPE( 54 ), CONVERT_CONC( 54 ) / 55, 'GC', F / ! CCHO DATA CGRID_INDEX( 55 ), SPECIES_TYPE( 55 ), CONVERT_CONC( 55 ) / 56, 'GC', F / ! RCHO DATA CGRID_INDEX( 56 ), SPECIES_TYPE( 56 ), CONVERT_CONC( 56 ) / 57, 'GC', F / ! xHCHO DATA CGRID_INDEX( 57 ), SPECIES_TYPE( 57 ), CONVERT_CONC( 57 ) / 58, 'GC', F / ! MEK DATA CGRID_INDEX( 58 ), SPECIES_TYPE( 58 ), CONVERT_CONC( 58 ) / 59, 'GC', F / ! zRNO3 DATA CGRID_INDEX( 59 ), SPECIES_TYPE( 59 ), CONVERT_CONC( 59 ) / 60, 'GC', F / ! xRCHO DATA CGRID_INDEX( 60 ), SPECIES_TYPE( 60 ), CONVERT_CONC( 60 ) / 61, 'GC', F / ! HCOOH DATA CGRID_INDEX( 61 ), SPECIES_TYPE( 61 ), CONVERT_CONC( 61 ) / 62, 'GC', F / ! xMGLY DATA CGRID_INDEX( 62 ), SPECIES_TYPE( 62 ), CONVERT_CONC( 62 ) / 63, 'GC', F / ! xBACL DATA CGRID_INDEX( 63 ), SPECIES_TYPE( 63 ), CONVERT_CONC( 63 ) / 64, 'GC', F / ! ROOH DATA CGRID_INDEX( 64 ), SPECIES_TYPE( 64 ), CONVERT_CONC( 64 ) / 65, 'GC', F / ! xPROD2 DATA CGRID_INDEX( 65 ), SPECIES_TYPE( 65 ), CONVERT_CONC( 65 ) / 66, 'GC', F / ! R6OOH DATA CGRID_INDEX( 66 ), SPECIES_TYPE( 66 ), CONVERT_CONC( 66 ) / 67, 'GC', F / ! PRD2 DATA CGRID_INDEX( 67 ), SPECIES_TYPE( 67 ), CONVERT_CONC( 67 ) / 68, 'GC', F / ! yR6OOH DATA CGRID_INDEX( 68 ), SPECIES_TYPE( 68 ), CONVERT_CONC( 68 ) / 71, 'GC', F / ! RAOOH DATA CGRID_INDEX( 69 ), SPECIES_TYPE( 69 ), CONVERT_CONC( 69 ) / 72, 'GC', F / ! MGLY DATA CGRID_INDEX( 70 ), SPECIES_TYPE( 70 ), CONVERT_CONC( 70 ) / 73, 'GC', F / ! IPRD DATA CGRID_INDEX( 71 ), SPECIES_TYPE( 71 ), CONVERT_CONC( 71 ) / 74, 'GC', F / ! xGLY DATA CGRID_INDEX( 72 ), SPECIES_TYPE( 72 ), CONVERT_CONC( 72 ) / 75, 'GC', F / ! xMEK DATA CGRID_INDEX( 73 ), SPECIES_TYPE( 73 ), CONVERT_CONC( 73 ) / 76, 'GC', F / ! xAFG1 DATA CGRID_INDEX( 74 ), SPECIES_TYPE( 74 ), CONVERT_CONC( 74 ) / 77, 'GC', F / ! xAFG2 DATA CGRID_INDEX( 75 ), SPECIES_TYPE( 75 ), CONVERT_CONC( 75 ) / 78, 'GC', F / ! GLY DATA CGRID_INDEX( 76 ), SPECIES_TYPE( 76 ), CONVERT_CONC( 76 ) / 79, 'GC', F / ! AFG1 DATA CGRID_INDEX( 77 ), SPECIES_TYPE( 77 ), CONVERT_CONC( 77 ) / 80, 'GC', F / ! AFG2 DATA CGRID_INDEX( 78 ), SPECIES_TYPE( 78 ), CONVERT_CONC( 78 ) / 81, 'GC', F / ! HCOCO3 DATA CGRID_INDEX( 79 ), SPECIES_TYPE( 79 ), CONVERT_CONC( 79 ) / 82, 'GC', F / ! BACL DATA CGRID_INDEX( 80 ), SPECIES_TYPE( 80 ), CONVERT_CONC( 80 ) / 83, 'GC', F / ! BALD DATA CGRID_INDEX( 81 ), SPECIES_TYPE( 81 ), CONVERT_CONC( 81 ) / 84, 'GC', F / ! AFG3 DATA CGRID_INDEX( 82 ), SPECIES_TYPE( 82 ), CONVERT_CONC( 82 ) / 85, 'GC', F / ! xIPRD DATA CGRID_INDEX( 83 ), SPECIES_TYPE( 83 ), CONVERT_CONC( 83 ) / 86, 'GC', F / ! MACR DATA CGRID_INDEX( 84 ), SPECIES_TYPE( 84 ), CONVERT_CONC( 84 ) / 87, 'GC', F / ! MVK DATA CGRID_INDEX( 85 ), SPECIES_TYPE( 85 ), CONVERT_CONC( 85 ) / 88, 'GC', F / ! xHOCCHO DATA CGRID_INDEX( 86 ), SPECIES_TYPE( 86 ), CONVERT_CONC( 86 ) / 89, 'GC', F / ! xRNO3 DATA CGRID_INDEX( 87 ), SPECIES_TYPE( 87 ), CONVERT_CONC( 87 ) / 90, 'GC', F / ! HOCCHO DATA CGRID_INDEX( 88 ), SPECIES_TYPE( 88 ), CONVERT_CONC( 88 ) / 91, 'GC', F / ! xACETONE DATA CGRID_INDEX( 89 ), SPECIES_TYPE( 89 ), CONVERT_CONC( 89 ) / 92, 'GC', F / ! ACROLEIN DATA CGRID_INDEX( 90 ), SPECIES_TYPE( 90 ), CONVERT_CONC( 90 ) / 93, 'GC', F / ! xBALD DATA CGRID_INDEX( 91 ), SPECIES_TYPE( 91 ), CONVERT_CONC( 91 ) / 94, 'GC', F / ! xAFG3 DATA CGRID_INDEX( 92 ), SPECIES_TYPE( 92 ), CONVERT_CONC( 92 ) / 95, 'GC', F / ! xMACR DATA CGRID_INDEX( 93 ), SPECIES_TYPE( 93 ), CONVERT_CONC( 93 ) / 96, 'GC', F / ! xMVK DATA CGRID_INDEX( 94 ), SPECIES_TYPE( 94 ), CONVERT_CONC( 94 ) / 70, 'GC', F / ! xMTNO3 DATA CGRID_INDEX( 95 ), SPECIES_TYPE( 95 ), CONVERT_CONC( 95 ) / 43, 'GC', F / ! MTNO3 DATA CGRID_INDEX( 96 ), SPECIES_TYPE( 96 ), CONVERT_CONC( 96 ) / 180, 'GC', F / ! IMACO3 DATA CGRID_INDEX( 97 ), SPECIES_TYPE( 97 ), CONVERT_CONC( 97 ) / 97, 'GC', F / ! yRAOOH DATA CGRID_INDEX( 98 ), SPECIES_TYPE( 98 ), CONVERT_CONC( 98 ) / 69, 'GC', F / ! zMTNO3 DATA CGRID_INDEX( 99 ), SPECIES_TYPE( 99 ), CONVERT_CONC( 99 ) / 98, 'GC', F / ! xACROLEIN DATA CGRID_INDEX( 100 ), SPECIES_TYPE( 100 ), CONVERT_CONC( 100 ) / 99, 'GC', F / ! ETHENE DATA CGRID_INDEX( 101 ), SPECIES_TYPE( 101 ), CONVERT_CONC( 101 ) / 100, 'GC', F / ! PROPENE DATA CGRID_INDEX( 102 ), SPECIES_TYPE( 102 ), CONVERT_CONC( 102 ) / 101, 'GC', F / ! BUTADIENE13 DATA CGRID_INDEX( 103 ), SPECIES_TYPE( 103 ), CONVERT_CONC( 103 ) / 102, 'GC', F / ! ISOPRENE DATA CGRID_INDEX( 104 ), SPECIES_TYPE( 104 ), CONVERT_CONC( 104 ) / 103, 'GC', F / ! APIN DATA CGRID_INDEX( 105 ), SPECIES_TYPE( 105 ), CONVERT_CONC( 105 ) / 104, 'GC', F / ! TRPRXN DATA CGRID_INDEX( 106 ), SPECIES_TYPE( 106 ), CONVERT_CONC( 106 ) / 105, 'GC', F / ! ACETYLENE DATA CGRID_INDEX( 107 ), SPECIES_TYPE( 107 ), CONVERT_CONC( 107 ) / 106, 'GC', F / ! BENZENE DATA CGRID_INDEX( 108 ), SPECIES_TYPE( 108 ), CONVERT_CONC( 108 ) / 107, 'GC', F / ! BENZRO2 DATA CGRID_INDEX( 109 ), SPECIES_TYPE( 109 ), CONVERT_CONC( 109 ) / 108, 'GC', F / ! TOLUENE DATA CGRID_INDEX( 110 ), SPECIES_TYPE( 110 ), CONVERT_CONC( 110 ) / 109, 'GC', F / ! TOLRO2 DATA CGRID_INDEX( 111 ), SPECIES_TYPE( 111 ), CONVERT_CONC( 111 ) / 110, 'GC', F / ! MXYL DATA CGRID_INDEX( 112 ), SPECIES_TYPE( 112 ), CONVERT_CONC( 112 ) / 111, 'GC', F / ! XYLRO2 DATA CGRID_INDEX( 113 ), SPECIES_TYPE( 113 ), CONVERT_CONC( 113 ) / 112, 'GC', F / ! OXYL DATA CGRID_INDEX( 114 ), SPECIES_TYPE( 114 ), CONVERT_CONC( 114 ) / 113, 'GC', F / ! PXYL DATA CGRID_INDEX( 115 ), SPECIES_TYPE( 115 ), CONVERT_CONC( 115 ) / 114, 'GC', F / ! TMBENZ124 DATA CGRID_INDEX( 116 ), SPECIES_TYPE( 116 ), CONVERT_CONC( 116 ) / 115, 'GC', F / ! ETOH DATA CGRID_INDEX( 117 ), SPECIES_TYPE( 117 ), CONVERT_CONC( 117 ) / 116, 'GC', F / ! ALK1 DATA CGRID_INDEX( 118 ), SPECIES_TYPE( 118 ), CONVERT_CONC( 118 ) / 117, 'GC', F / ! ALK2 DATA CGRID_INDEX( 119 ), SPECIES_TYPE( 119 ), CONVERT_CONC( 119 ) / 118, 'GC', F / ! ALK3 DATA CGRID_INDEX( 120 ), SPECIES_TYPE( 120 ), CONVERT_CONC( 120 ) / 119, 'GC', F / ! ALK4 DATA CGRID_INDEX( 121 ), SPECIES_TYPE( 121 ), CONVERT_CONC( 121 ) / 120, 'GC', F / ! ALK5 DATA CGRID_INDEX( 122 ), SPECIES_TYPE( 122 ), CONVERT_CONC( 122 ) / 121, 'GC', F / ! SOAALK DATA CGRID_INDEX( 123 ), SPECIES_TYPE( 123 ), CONVERT_CONC( 123 ) / 203, 'GC', F / ! SVAVB2 DATA CGRID_INDEX( 124 ), SPECIES_TYPE( 124 ), CONVERT_CONC( 124 ) / 204, 'GC', F / ! SVAVB3 DATA CGRID_INDEX( 125 ), SPECIES_TYPE( 125 ), CONVERT_CONC( 125 ) / 205, 'GC', F / ! SVAVB4 DATA CGRID_INDEX( 126 ), SPECIES_TYPE( 126 ), CONVERT_CONC( 126 ) / 122, 'GC', F / ! OLE1 DATA CGRID_INDEX( 127 ), SPECIES_TYPE( 127 ), CONVERT_CONC( 127 ) / 123, 'GC', F / ! OLE2 DATA CGRID_INDEX( 128 ), SPECIES_TYPE( 128 ), CONVERT_CONC( 128 ) / 124, 'GC', F / ! ARO1 DATA CGRID_INDEX( 129 ), SPECIES_TYPE( 129 ), CONVERT_CONC( 129 ) / 125, 'GC', F / ! ARO2MN DATA CGRID_INDEX( 130 ), SPECIES_TYPE( 130 ), CONVERT_CONC( 130 ) / 126, 'GC', F / ! NAPHTHAL DATA CGRID_INDEX( 131 ), SPECIES_TYPE( 131 ), CONVERT_CONC( 131 ) / 127, 'GC', F / ! PAHRO2 DATA CGRID_INDEX( 132 ), SPECIES_TYPE( 132 ), CONVERT_CONC( 132 ) / 128, 'GC', F / ! TERP DATA CGRID_INDEX( 133 ), SPECIES_TYPE( 133 ), CONVERT_CONC( 133 ) / 129, 'GC', F / ! TERPNRO2 DATA CGRID_INDEX( 134 ), SPECIES_TYPE( 134 ), CONVERT_CONC( 134 ) / 130, 'GC', F / ! SESQ DATA CGRID_INDEX( 135 ), SPECIES_TYPE( 135 ), CONVERT_CONC( 135 ) / 131, 'GC', F / ! SESQRXN DATA CGRID_INDEX( 136 ), SPECIES_TYPE( 136 ), CONVERT_CONC( 136 ) / 132, 'GC', F / ! CL2 DATA CGRID_INDEX( 137 ), SPECIES_TYPE( 137 ), CONVERT_CONC( 137 ) / 133, 'GC', F / ! CL DATA CGRID_INDEX( 138 ), SPECIES_TYPE( 138 ), CONVERT_CONC( 138 ) / 134, 'GC', F / ! CLNO DATA CGRID_INDEX( 139 ), SPECIES_TYPE( 139 ), CONVERT_CONC( 139 ) / 135, 'GC', F / ! CLONO DATA CGRID_INDEX( 140 ), SPECIES_TYPE( 140 ), CONVERT_CONC( 140 ) / 136, 'GC', F / ! CLNO2 DATA CGRID_INDEX( 141 ), SPECIES_TYPE( 141 ), CONVERT_CONC( 141 ) / 137, 'GC', F / ! HCL DATA CGRID_INDEX( 142 ), SPECIES_TYPE( 142 ), CONVERT_CONC( 142 ) / 138, 'GC', F / ! CLO DATA CGRID_INDEX( 143 ), SPECIES_TYPE( 143 ), CONVERT_CONC( 143 ) / 139, 'GC', F / ! CLONO2 DATA CGRID_INDEX( 144 ), SPECIES_TYPE( 144 ), CONVERT_CONC( 144 ) / 140, 'GC', F / ! HOCL DATA CGRID_INDEX( 145 ), SPECIES_TYPE( 145 ), CONVERT_CONC( 145 ) / 141, 'GC', F / ! xCL DATA CGRID_INDEX( 146 ), SPECIES_TYPE( 146 ), CONVERT_CONC( 146 ) / 142, 'GC', F / ! xCLCCHO DATA CGRID_INDEX( 147 ), SPECIES_TYPE( 147 ), CONVERT_CONC( 147 ) / 143, 'GC', F / ! xCLACET DATA CGRID_INDEX( 148 ), SPECIES_TYPE( 148 ), CONVERT_CONC( 148 ) / 144, 'GC', F / ! CLCCHO DATA CGRID_INDEX( 149 ), SPECIES_TYPE( 149 ), CONVERT_CONC( 149 ) / 145, 'GC', F / ! CLACET DATA CGRID_INDEX( 150 ), SPECIES_TYPE( 150 ), CONVERT_CONC( 150 ) / 146, 'GC', F / ! CLCHO DATA CGRID_INDEX( 151 ), SPECIES_TYPE( 151 ), CONVERT_CONC( 151 ) / 202, 'GC', F / ! SVAVB1 DATA CGRID_INDEX( 152 ), SPECIES_TYPE( 152 ), CONVERT_CONC( 152 ) / 147, 'GC', F / ! HCHO_PRIMARY DATA CGRID_INDEX( 153 ), SPECIES_TYPE( 153 ), CONVERT_CONC( 153 ) / 148, 'GC', F / ! CCHO_PRIMARY DATA CGRID_INDEX( 154 ), SPECIES_TYPE( 154 ), CONVERT_CONC( 154 ) / 149, 'GC', F / ! ACRO_PRIMARY DATA CGRID_INDEX( 155 ), SPECIES_TYPE( 155 ), CONVERT_CONC( 155 ) / 150, 'GC', F / ! ISOPO2 DATA CGRID_INDEX( 156 ), SPECIES_TYPE( 156 ), CONVERT_CONC( 156 ) / 151, 'GC', F / ! ISOPRXN DATA CGRID_INDEX( 157 ), SPECIES_TYPE( 157 ), CONVERT_CONC( 157 ) / 152, 'GC', F / ! ISOPND DATA CGRID_INDEX( 158 ), SPECIES_TYPE( 158 ), CONVERT_CONC( 158 ) / 153, 'GC', F / ! ISOPNB DATA CGRID_INDEX( 159 ), SPECIES_TYPE( 159 ), CONVERT_CONC( 159 ) / 154, 'GC', F / ! HC5 DATA CGRID_INDEX( 160 ), SPECIES_TYPE( 160 ), CONVERT_CONC( 160 ) / 155, 'GC', F / ! DIBOO DATA CGRID_INDEX( 161 ), SPECIES_TYPE( 161 ), CONVERT_CONC( 161 ) / 156, 'GC', F / ! ISOPOOH DATA CGRID_INDEX( 162 ), SPECIES_TYPE( 162 ), CONVERT_CONC( 162 ) / 157, 'GC', F / ! HPALD DATA CGRID_INDEX( 163 ), SPECIES_TYPE( 163 ), CONVERT_CONC( 163 ) / 158, 'GC', F / ! HACET DATA CGRID_INDEX( 164 ), SPECIES_TYPE( 164 ), CONVERT_CONC( 164 ) / 159, 'GC', F / ! NISOPO2 DATA CGRID_INDEX( 165 ), SPECIES_TYPE( 165 ), CONVERT_CONC( 165 ) / 160, 'GC', F / ! NIT1 DATA CGRID_INDEX( 166 ), SPECIES_TYPE( 166 ), CONVERT_CONC( 166 ) / 161, 'GC', F / ! NISOPOOH DATA CGRID_INDEX( 167 ), SPECIES_TYPE( 167 ), CONVERT_CONC( 167 ) / 162, 'GC', F / ! HC5OO DATA CGRID_INDEX( 168 ), SPECIES_TYPE( 168 ), CONVERT_CONC( 168 ) / 163, 'GC', F / ! DHMOB DATA CGRID_INDEX( 169 ), SPECIES_TYPE( 169 ), CONVERT_CONC( 169 ) / 164, 'GC', F / ! ISOPNOOD DATA CGRID_INDEX( 170 ), SPECIES_TYPE( 170 ), CONVERT_CONC( 170 ) / 165, 'GC', F / ! PROPNN DATA CGRID_INDEX( 171 ), SPECIES_TYPE( 171 ), CONVERT_CONC( 171 ) / 166, 'GC', F / ! MVKN DATA CGRID_INDEX( 172 ), SPECIES_TYPE( 172 ), CONVERT_CONC( 172 ) / 167, 'GC', F / ! ETHLN DATA CGRID_INDEX( 173 ), SPECIES_TYPE( 173 ), CONVERT_CONC( 173 ) / 168, 'GC', F / ! RNO3I DATA CGRID_INDEX( 174 ), SPECIES_TYPE( 174 ), CONVERT_CONC( 174 ) / 169, 'GC', F / ! ISOPNOOB DATA CGRID_INDEX( 175 ), SPECIES_TYPE( 175 ), CONVERT_CONC( 175 ) / 170, 'GC', F / ! MACRN DATA CGRID_INDEX( 176 ), SPECIES_TYPE( 176 ), CONVERT_CONC( 176 ) / 171, 'GC', F / ! NIT1NO3OOA DATA CGRID_INDEX( 177 ), SPECIES_TYPE( 177 ), CONVERT_CONC( 177 ) / 172, 'GC', F / ! NIT1NO3OOB DATA CGRID_INDEX( 178 ), SPECIES_TYPE( 178 ), CONVERT_CONC( 178 ) / 173, 'GC', F / ! ISOPNN DATA CGRID_INDEX( 179 ), SPECIES_TYPE( 179 ), CONVERT_CONC( 179 ) / 174, 'GC', F / ! NIT1OHOO DATA CGRID_INDEX( 180 ), SPECIES_TYPE( 180 ), CONVERT_CONC( 180 ) / 175, 'GC', F / ! MVKOO DATA CGRID_INDEX( 181 ), SPECIES_TYPE( 181 ), CONVERT_CONC( 181 ) / 176, 'GC', F / ! MACROO DATA CGRID_INDEX( 182 ), SPECIES_TYPE( 182 ), CONVERT_CONC( 182 ) / 177, 'GC', F / ! PYRUACD DATA CGRID_INDEX( 183 ), SPECIES_TYPE( 183 ), CONVERT_CONC( 183 ) / 178, 'GC', F / ! IEPOX DATA CGRID_INDEX( 184 ), SPECIES_TYPE( 184 ), CONVERT_CONC( 184 ) / 179, 'GC', F / ! IEPOXOO DATA CGRID_INDEX( 185 ), SPECIES_TYPE( 185 ), CONVERT_CONC( 185 ) / 181, 'GC', F / ! IMPAA DATA CGRID_INDEX( 186 ), SPECIES_TYPE( 186 ), CONVERT_CONC( 186 ) / 182, 'GC', F / ! IMAPAN DATA CGRID_INDEX( 187 ), SPECIES_TYPE( 187 ), CONVERT_CONC( 187 ) / 183, 'GC', F / ! IMAE DATA CGRID_INDEX( 188 ), SPECIES_TYPE( 188 ), CONVERT_CONC( 188 ) / 184, 'GC', F / ! IHMML DATA CGRID_INDEX( 189 ), SPECIES_TYPE( 189 ), CONVERT_CONC( 189 ) / 185, 'GC', F / ! H2NO3PIJ DATA CGRID_INDEX( 190 ), SPECIES_TYPE( 190 ), CONVERT_CONC( 190 ) / 186, 'GC', F / ! H2NO3PK DATA CGRID_INDEX( 191 ), SPECIES_TYPE( 191 ), CONVERT_CONC( 191 ) / 218, 'AE', T / ! ACLI DATA CGRID_INDEX( 192 ), SPECIES_TYPE( 192 ), CONVERT_CONC( 192 ) / 219, 'AE', T / ! ACLJ DATA CGRID_INDEX( 193 ), SPECIES_TYPE( 193 ), CONVERT_CONC( 193 ) / 220, 'AE', T / ! ACLK DATA CGRID_INDEX( 194 ), SPECIES_TYPE( 194 ), CONVERT_CONC( 194 ) / 187, 'GC', F / ! IEPOXP DATA CGRID_INDEX( 195 ), SPECIES_TYPE( 195 ), CONVERT_CONC( 195 ) / 188, 'GC', F / ! IMAEP DATA CGRID_INDEX( 196 ), SPECIES_TYPE( 196 ), CONVERT_CONC( 196 ) / 189, 'GC', F / ! IHMMLP DATA CGRID_INDEX( 197 ), SPECIES_TYPE( 197 ), CONVERT_CONC( 197 ) / 260, 'AE', T / ! AIETETJ DATA CGRID_INDEX( 198 ), SPECIES_TYPE( 198 ), CONVERT_CONC( 198 ) / 208, 'AE', T / ! ASO4J DATA CGRID_INDEX( 199 ), SPECIES_TYPE( 199 ), CONVERT_CONC( 199 ) / 261, 'AE', T / ! AIEOSJ DATA CGRID_INDEX( 200 ), SPECIES_TYPE( 200 ), CONVERT_CONC( 200 ) / 262, 'AE', T / ! ADIMJ DATA CGRID_INDEX( 201 ), SPECIES_TYPE( 201 ), CONVERT_CONC( 201 ) / 263, 'AE', T / ! AIMGAJ DATA CGRID_INDEX( 202 ), SPECIES_TYPE( 202 ), CONVERT_CONC( 202 ) / 264, 'AE', T / ! AIMOSJ DATA CGRID_INDEX( 203 ), SPECIES_TYPE( 203 ), CONVERT_CONC( 203 ) / 221, 'AE', T / ! AISO1J DATA CGRID_INDEX( 204 ), SPECIES_TYPE( 204 ), CONVERT_CONC( 204 ) / 255, 'AE', T / ! AOLGBJ DATA CGRID_INDEX( 205 ), SPECIES_TYPE( 205 ), CONVERT_CONC( 205 ) / 222, 'AE', T / ! AISO2J DATA CGRID_INDEX( 206 ), SPECIES_TYPE( 206 ), CONVERT_CONC( 206 ) / 223, 'AE', T / ! ASQTJ DATA CGRID_INDEX( 207 ), SPECIES_TYPE( 207 ), CONVERT_CONC( 207 ) / 288, 'AE', T / ! AAVB2J DATA CGRID_INDEX( 208 ), SPECIES_TYPE( 208 ), CONVERT_CONC( 208 ) / 254, 'AE', T / ! AOLGAJ DATA CGRID_INDEX( 209 ), SPECIES_TYPE( 209 ), CONVERT_CONC( 209 ) / 289, 'AE', T / ! AAVB3J DATA CGRID_INDEX( 210 ), SPECIES_TYPE( 210 ), CONVERT_CONC( 210 ) / 290, 'AE', T / ! AAVB4J DATA CGRID_INDEX( 211 ), SPECIES_TYPE( 211 ), CONVERT_CONC( 211 ) / 265, 'AE', T / ! APOCI DATA CGRID_INDEX( 212 ), SPECIES_TYPE( 212 ), CONVERT_CONC( 212 ) / 267, 'AE', T / ! APNCOMI DATA CGRID_INDEX( 213 ), SPECIES_TYPE( 213 ), CONVERT_CONC( 213 ) / 266, 'AE', T / ! APOCJ DATA CGRID_INDEX( 214 ), SPECIES_TYPE( 214 ), CONVERT_CONC( 214 ) / 268, 'AE', T / ! APNCOMJ DATA CGRID_INDEX( 215 ), SPECIES_TYPE( 215 ), CONVERT_CONC( 215 ) / 200, 'GC', F / ! PCVOC DATA CGRID_INDEX( 216 ), SPECIES_TYPE( 216 ), CONVERT_CONC( 216 ) / 201, 'GC', F / ! PCSOARXN DATA CGRID_INDEX( 217 ), SPECIES_TYPE( 217 ), CONVERT_CONC( 217 ) / 190, 'GC', F / ! VLVPO1 DATA CGRID_INDEX( 218 ), SPECIES_TYPE( 218 ), CONVERT_CONC( 218 ) / 191, 'GC', F / ! VSVPO1 DATA CGRID_INDEX( 219 ), SPECIES_TYPE( 219 ), CONVERT_CONC( 219 ) / 192, 'GC', F / ! VSVPO2 DATA CGRID_INDEX( 220 ), SPECIES_TYPE( 220 ), CONVERT_CONC( 220 ) / 193, 'GC', F / ! VSVPO3 DATA CGRID_INDEX( 221 ), SPECIES_TYPE( 221 ), CONVERT_CONC( 221 ) / 194, 'GC', F / ! VIVPO1 DATA CGRID_INDEX( 222 ), SPECIES_TYPE( 222 ), CONVERT_CONC( 222 ) / 195, 'GC', F / ! VLVOO1 DATA CGRID_INDEX( 223 ), SPECIES_TYPE( 223 ), CONVERT_CONC( 223 ) / 196, 'GC', F / ! VLVOO2 DATA CGRID_INDEX( 224 ), SPECIES_TYPE( 224 ), CONVERT_CONC( 224 ) / 198, 'GC', F / ! VSVOO2 DATA CGRID_INDEX( 225 ), SPECIES_TYPE( 225 ), CONVERT_CONC( 225 ) / 199, 'GC', F / ! VSVOO3 DATA CGRID_INDEX( 226 ), SPECIES_TYPE( 226 ), CONVERT_CONC( 226 ) / 197, 'GC', F / ! VSVOO1 DATA CGRID_INDEX( 227 ), SPECIES_TYPE( 227 ), CONVERT_CONC( 227 ) / 257, 'AE', T / ! AMTNO3J DATA CGRID_INDEX( 228 ), SPECIES_TYPE( 228 ), CONVERT_CONC( 228 ) / 259, 'AE', T / ! AMTHYDJ DATA CGRID_INDEX( 229 ), SPECIES_TYPE( 229 ), CONVERT_CONC( 229 ) / 258, 'AE', T / ! AISOPNNJ DATA CGRID_INDEX( 230 ), SPECIES_TYPE( 230 ), CONVERT_CONC( 230 ) / 256, 'AE', T / ! AGLYJ ! The below integers define the locations of mechanism species in the solver ! concentration array. INTEGER :: INDEX_NO2 = 1 INTEGER :: INDEX_NO = 2 INTEGER :: INDEX_O3P = 3 INTEGER :: INDEX_O3 = 4 INTEGER :: INDEX_NO3 = 5 INTEGER :: INDEX_N2O5 = 6 INTEGER :: INDEX_HNO3 = 7 INTEGER :: INDEX_O1D = 8 INTEGER :: INDEX_OH = 9 INTEGER :: INDEX_HONO = 10 INTEGER :: INDEX_HO2 = 11 INTEGER :: INDEX_CO = 12 INTEGER :: INDEX_CO2 = 13 INTEGER :: INDEX_HNO4 = 14 INTEGER :: INDEX_HO2H = 15 INTEGER :: INDEX_SO2 = 16 INTEGER :: INDEX_SULF = 17 INTEGER :: INDEX_SULRXN = 18 INTEGER :: INDEX_MEO2 = 19 INTEGER :: INDEX_HCHO = 20 INTEGER :: INDEX_COOH = 21 INTEGER :: INDEX_MEOH = 22 INTEGER :: INDEX_RO2C = 23 INTEGER :: INDEX_RO2XC = 24 INTEGER :: INDEX_MECO3 = 25 INTEGER :: INDEX_PAN = 26 INTEGER :: INDEX_CCOOOH = 27 INTEGER :: INDEX_CCOOH = 28 INTEGER :: INDEX_RCO3 = 29 INTEGER :: INDEX_PAN2 = 30 INTEGER :: INDEX_xHO2 = 31 INTEGER :: INDEX_yROOH = 32 INTEGER :: INDEX_xCCHO = 33 INTEGER :: INDEX_RCOOOH = 34 INTEGER :: INDEX_RCOOH = 35 INTEGER :: INDEX_BZCO3 = 36 INTEGER :: INDEX_PBZN = 37 INTEGER :: INDEX_BZO = 38 INTEGER :: INDEX_MACO3 = 39 INTEGER :: INDEX_MAPAN = 40 INTEGER :: INDEX_TBUO = 41 INTEGER :: INDEX_RNO3 = 42 INTEGER :: INDEX_ACETONE = 43 INTEGER :: INDEX_NPHE = 44 INTEGER :: INDEX_CRES = 45 INTEGER :: INDEX_xOH = 46 INTEGER :: INDEX_xNO2 = 47 INTEGER :: INDEX_xMEO2 = 48 INTEGER :: INDEX_xMECO3 = 49 INTEGER :: INDEX_xRCO3 = 50 INTEGER :: INDEX_xMACO3 = 51 INTEGER :: INDEX_xTBUO = 52 INTEGER :: INDEX_xCO = 53 INTEGER :: INDEX_CCHO = 54 INTEGER :: INDEX_RCHO = 55 INTEGER :: INDEX_xHCHO = 56 INTEGER :: INDEX_MEK = 57 INTEGER :: INDEX_zRNO3 = 58 INTEGER :: INDEX_xRCHO = 59 INTEGER :: INDEX_HCOOH = 60 INTEGER :: INDEX_xMGLY = 61 INTEGER :: INDEX_xBACL = 62 INTEGER :: INDEX_ROOH = 63 INTEGER :: INDEX_xPROD2 = 64 INTEGER :: INDEX_R6OOH = 65 INTEGER :: INDEX_PRD2 = 66 INTEGER :: INDEX_yR6OOH = 67 INTEGER :: INDEX_RAOOH = 68 INTEGER :: INDEX_MGLY = 69 INTEGER :: INDEX_IPRD = 70 INTEGER :: INDEX_xGLY = 71 INTEGER :: INDEX_xMEK = 72 INTEGER :: INDEX_xAFG1 = 73 INTEGER :: INDEX_xAFG2 = 74 INTEGER :: INDEX_GLY = 75 INTEGER :: INDEX_AFG1 = 76 INTEGER :: INDEX_AFG2 = 77 INTEGER :: INDEX_HCOCO3 = 78 INTEGER :: INDEX_BACL = 79 INTEGER :: INDEX_BALD = 80 INTEGER :: INDEX_AFG3 = 81 INTEGER :: INDEX_xIPRD = 82 INTEGER :: INDEX_MACR = 83 INTEGER :: INDEX_MVK = 84 INTEGER :: INDEX_xHOCCHO = 85 INTEGER :: INDEX_xRNO3 = 86 INTEGER :: INDEX_HOCCHO = 87 INTEGER :: INDEX_xACETONE = 88 INTEGER :: INDEX_ACROLEIN = 89 INTEGER :: INDEX_xBALD = 90 INTEGER :: INDEX_xAFG3 = 91 INTEGER :: INDEX_xMACR = 92 INTEGER :: INDEX_xMVK = 93 INTEGER :: INDEX_xMTNO3 = 94 INTEGER :: INDEX_MTNO3 = 95 INTEGER :: INDEX_IMACO3 = 96 INTEGER :: INDEX_yRAOOH = 97 INTEGER :: INDEX_zMTNO3 = 98 INTEGER :: INDEX_xACROLEIN = 99 INTEGER :: INDEX_ETHENE = 100 INTEGER :: INDEX_PROPENE = 101 INTEGER :: INDEX_BUTADIENE13 = 102 INTEGER :: INDEX_ISOPRENE = 103 INTEGER :: INDEX_APIN = 104 INTEGER :: INDEX_TRPRXN = 105 INTEGER :: INDEX_ACETYLENE = 106 INTEGER :: INDEX_BENZENE = 107 INTEGER :: INDEX_BENZRO2 = 108 INTEGER :: INDEX_TOLUENE = 109 INTEGER :: INDEX_TOLRO2 = 110 INTEGER :: INDEX_MXYL = 111 INTEGER :: INDEX_XYLRO2 = 112 INTEGER :: INDEX_OXYL = 113 INTEGER :: INDEX_PXYL = 114 INTEGER :: INDEX_TMBENZ124 = 115 INTEGER :: INDEX_ETOH = 116 INTEGER :: INDEX_ALK1 = 117 INTEGER :: INDEX_ALK2 = 118 INTEGER :: INDEX_ALK3 = 119 INTEGER :: INDEX_ALK4 = 120 INTEGER :: INDEX_ALK5 = 121 INTEGER :: INDEX_SOAALK = 122 INTEGER :: INDEX_SVAVB2 = 123 INTEGER :: INDEX_SVAVB3 = 124 INTEGER :: INDEX_SVAVB4 = 125 INTEGER :: INDEX_OLE1 = 126 INTEGER :: INDEX_OLE2 = 127 INTEGER :: INDEX_ARO1 = 128 INTEGER :: INDEX_ARO2MN = 129 INTEGER :: INDEX_NAPHTHAL = 130 INTEGER :: INDEX_PAHRO2 = 131 INTEGER :: INDEX_TERP = 132 INTEGER :: INDEX_TERPNRO2 = 133 INTEGER :: INDEX_SESQ = 134 INTEGER :: INDEX_SESQRXN = 135 INTEGER :: INDEX_CL2 = 136 INTEGER :: INDEX_CL = 137 INTEGER :: INDEX_CLNO = 138 INTEGER :: INDEX_CLONO = 139 INTEGER :: INDEX_CLNO2 = 140 INTEGER :: INDEX_HCL = 141 INTEGER :: INDEX_CLO = 142 INTEGER :: INDEX_CLONO2 = 143 INTEGER :: INDEX_HOCL = 144 INTEGER :: INDEX_xCL = 145 INTEGER :: INDEX_xCLCCHO = 146 INTEGER :: INDEX_xCLACET = 147 INTEGER :: INDEX_CLCCHO = 148 INTEGER :: INDEX_CLACET = 149 INTEGER :: INDEX_CLCHO = 150 INTEGER :: INDEX_SVAVB1 = 151 INTEGER :: INDEX_HCHO_PRIMARY = 152 INTEGER :: INDEX_CCHO_PRIMARY = 153 INTEGER :: INDEX_ACRO_PRIMARY = 154 INTEGER :: INDEX_ISOPO2 = 155 INTEGER :: INDEX_ISOPRXN = 156 INTEGER :: INDEX_ISOPND = 157 INTEGER :: INDEX_ISOPNB = 158 INTEGER :: INDEX_HC5 = 159 INTEGER :: INDEX_DIBOO = 160 INTEGER :: INDEX_ISOPOOH = 161 INTEGER :: INDEX_HPALD = 162 INTEGER :: INDEX_HACET = 163 INTEGER :: INDEX_NISOPO2 = 164 INTEGER :: INDEX_NIT1 = 165 INTEGER :: INDEX_NISOPOOH = 166 INTEGER :: INDEX_HC5OO = 167 INTEGER :: INDEX_DHMOB = 168 INTEGER :: INDEX_ISOPNOOD = 169 INTEGER :: INDEX_PROPNN = 170 INTEGER :: INDEX_MVKN = 171 INTEGER :: INDEX_ETHLN = 172 INTEGER :: INDEX_RNO3I = 173 INTEGER :: INDEX_ISOPNOOB = 174 INTEGER :: INDEX_MACRN = 175 INTEGER :: INDEX_NIT1NO3OOA = 176 INTEGER :: INDEX_NIT1NO3OOB = 177 INTEGER :: INDEX_ISOPNN = 178 INTEGER :: INDEX_NIT1OHOO = 179 INTEGER :: INDEX_MVKOO = 180 INTEGER :: INDEX_MACROO = 181 INTEGER :: INDEX_PYRUACD = 182 INTEGER :: INDEX_IEPOX = 183 INTEGER :: INDEX_IEPOXOO = 184 INTEGER :: INDEX_IMPAA = 185 INTEGER :: INDEX_IMAPAN = 186 INTEGER :: INDEX_IMAE = 187 INTEGER :: INDEX_IHMML = 188 INTEGER :: INDEX_H2NO3PIJ = 189 INTEGER :: INDEX_H2NO3PK = 190 INTEGER :: INDEX_ACLI = 191 INTEGER :: INDEX_ACLJ = 192 INTEGER :: INDEX_ACLK = 193 INTEGER :: INDEX_IEPOXP = 194 INTEGER :: INDEX_IMAEP = 195 INTEGER :: INDEX_IHMMLP = 196 INTEGER :: INDEX_AIETETJ = 197 INTEGER :: INDEX_ASO4J = 198 INTEGER :: INDEX_AIEOSJ = 199 INTEGER :: INDEX_ADIMJ = 200 INTEGER :: INDEX_AIMGAJ = 201 INTEGER :: INDEX_AIMOSJ = 202 INTEGER :: INDEX_AISO1J = 203 INTEGER :: INDEX_AOLGBJ = 204 INTEGER :: INDEX_AISO2J = 205 INTEGER :: INDEX_ASQTJ = 206 INTEGER :: INDEX_AAVB2J = 207 INTEGER :: INDEX_AOLGAJ = 208 INTEGER :: INDEX_AAVB3J = 209 INTEGER :: INDEX_AAVB4J = 210 INTEGER :: INDEX_APOCI = 211 INTEGER :: INDEX_APNCOMI = 212 INTEGER :: INDEX_APOCJ = 213 INTEGER :: INDEX_APNCOMJ = 214 INTEGER :: INDEX_PCVOC = 215 INTEGER :: INDEX_PCSOARXN = 216 INTEGER :: INDEX_VLVPO1 = 217 INTEGER :: INDEX_VSVPO1 = 218 INTEGER :: INDEX_VSVPO2 = 219 INTEGER :: INDEX_VSVPO3 = 220 INTEGER :: INDEX_VIVPO1 = 221 INTEGER :: INDEX_VLVOO1 = 222 INTEGER :: INDEX_VLVOO2 = 223 INTEGER :: INDEX_VSVOO2 = 224 INTEGER :: INDEX_VSVOO3 = 225 INTEGER :: INDEX_VSVOO1 = 226 INTEGER :: INDEX_AMTNO3J = 227 INTEGER :: INDEX_AMTHYDJ = 228 INTEGER :: INDEX_AISOPNNJ = 229 INTEGER :: INDEX_AGLYJ = 230 INTEGER, PARAMETER :: N_ACT_SP = 230 INTEGER, PARAMETER :: NRXNS = 929 INTEGER, PARAMETER :: ONE_REACT_REACTIONS = 0 INTEGER, PARAMETER :: TWO_REACT_REACTIONS = 0 INTEGER, PARAMETER :: THREE_REACT_REACTIONS = 0 INTEGER, PARAMETER :: ZERO_REACT_REACTIONS = 0 LOGICAL, PARAMETER :: UNITARY_REACTIONS = .FALSE. INTEGER, PARAMETER :: ONE_REACT_START = 0 INTEGER, PARAMETER :: ONE_REACT_STOP = -1 LOGICAL, PARAMETER :: BINARY_REACTIONS = .FALSE. INTEGER, PARAMETER :: TWO_REACT_START = 0 INTEGER, PARAMETER :: TWO_REACT_STOP = -1 LOGICAL, PARAMETER :: TERNARY_REACTIONS = .FALSE. INTEGER, PARAMETER :: THREE_REACT_START = 0 INTEGER, PARAMETER :: THREE_REACT_STOP = -1 LOGICAL, PARAMETER :: NULL_REACTIONS = .FALSE. INTEGER, PARAMETER :: ZERO_REACT_START = 0 INTEGER, PARAMETER :: ZERO_REACT_STOP = -1 INTEGER, PARAMETER :: NSUNLIGHT_RXNS = 66 INTEGER, PARAMETER :: NTHERMAL_RXNS = 863 INTEGER, PARAMETER :: KUNITS = 2 INTEGER :: IRXXN INTEGER, PARAMETER :: NMPHOT = 65 INTEGER :: IPH( NMPHOT,3 ) DATA ( IPH( IRXXN,1 ), IRXXN = 1, NMPHOT ) / & & 1, 16, 17, 18, 19, 23, 28, 34, 41, 65, & ! O & 75, 86, 98, 194, 195, 199, 202, 205, 207, 213, & ! 1 & 215, 217, 219, 220, 221, 224, 227, 231, 232, 234, & ! 2 & 238, 241, 248, 252, 254, 256, 257, 263, 265, 267, & ! 3 & 587, 589, 592, 593, 600, 601, 605, 627, 630, 694, & ! 4 & 695, 700, 707, 717, 798, 800, 803, 804, 806, 808, & ! 5 & 810, 819, 825, 841, 883/ ! 6 DATA ( IPH( IRXXN,2 ), IRXXN = 1, NMPHOT ) / & & 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, & ! O & 10, 10, 10, 11, 12, 13, 14, 15, 16, 17, & ! 1 & 17, 17, 17, 18, 19, 20, 21, 1, 1, 22, & ! 2 & 23, 23, 24, 25, 16, 26, 27, 28, 29, 29, & ! 3 & 30, 31, 32, 33, 34, 35, 36, 37, 38, 11, & ! 4 & 12, 13, 28, 39, 16, 40, 40, 26, 40, 14, & ! 5 & 20, 17, 25, 10, 26/ ! 6 DATA ( IPH( IRXXN,3 ), IRXXN = 1, NMPHOT ) / & & 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, & ! O & 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, & ! 1 & 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, & ! 2 & 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, & ! 3 & 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, & ! 4 & 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, & ! 5 & 61, 62, 63, 64, 65/ ! 6 REAL( 8 ) :: RTDAT( 3,NRXNS ) INTEGER, PARAMETER :: NFALLOFF = 24 REAL( 8 ) :: RFDAT( 5,NFALLOFF ) INTEGER :: KTYPE( NRXNS ) DATA ( KTYPE( IRXXN ), IRXXN = 1, NRXNS ) / & & 0, 2, 3, 10, 3, 10, 3, 3, 3, 3, & ! O & 10, 10, 1, 1, 3, 0, 0, 0, 0, 3, & ! 1 & 3, 10, 0, 3, 10, 1, 8, 0, 9, 3, & ! 2 & 3, 10, 10, 0, 3, 4, 9, 9, 1, 3, & ! 3 & 0, 1, 3, 10, 3, 3, 4, 4, 1, 4, & ! 4 & 3, 3, 3, 1, 1, 1, 6, 6, 6, 6, & ! 5 & 6, 6, 10, 10, 0, 3, 3, 6, 3, 3, & ! 6 & 6, 3, 4, 3, 0, 3, 6, 6, 6, 6, & ! 7 & 6, 6, 6, 1, 3, 0, 6, 6, 6, 6, & ! 8 & 6, 6, 6, 6, 6, 6, 3, 0, 1, 3, & ! 9 & 3, 6, 1, 6, 6, 6, 6, 6, 6, 6, & ! O & 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, & ! 1 & 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, & ! 2 & 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, & ! 3 & 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, & ! 4 & 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, & ! 5 & 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, & ! 6 & 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, & ! 7 & 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, & ! 8 & 6, 6, 6, 0, 0, 3, 3, 3, 0, 3, & ! 9 & 3, 0, 3, 4, 0, 4, 0, 3, 1, 3, & ! O & 1, 3, 0, 1, 0, 1, 0, 1, 0, 0, & ! 1 & 0, 3, 3, 0, 1, 3, 0, 3, 1, 1, & ! 2 & 0, 0, 1, 0, 3, 1, 1, 0, 1, 1, & ! 3 & 0, 1, 1, 3, 1, 3, 1, 0, 1, 1, & ! 4 & 1, 0, 1, 0, 1, 0, 0, 6, 1, 3, & ! 5 & 1, 1, 0, 1, 0, 1, 0, 6, 6, 6, & ! 6 & 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, & ! 7 & 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, & ! 8 & 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, & ! 9 & 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, & ! O & 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, & ! 1 & 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, & ! 2 & 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, & ! 3 & 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, & ! 4 & 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, & ! 5 & 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, & ! 6 & 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, & ! 7 & 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, & ! 8 & 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, & ! 9 & 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, & ! O & 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, & ! 1 & 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, & ! 2 & 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, & ! 3 & 6, 3, 6, 6, 6, 6, 6, 6, 6, 6, & ! 4 & 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, & ! 5 & 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, & ! 6 & 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, & ! 7 & 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, & ! 8 & 6, 6, 3, 6, 6, 6, 6, 6, 6, 6, & ! 9 & 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, & ! O & 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, & ! 1 & 6, 6, 3, 10, 3, 3, 3, 3, 3, 3, & ! 2 & 3, 3, 3, 1, 3, 3, 1, 3, 3, 3, & ! 3 & 1, 10, 3, 3, 3, 1, 1, 1, 1, 4, & ! 4 & 4, 4, 3, 3, 3, 3, 3, 3, 3, 3, & ! 5 & 3, 3, 3, 3, 1, 1, 1, 3, 3, 3, & ! 6 & 6, 3, 6, 6, 6, 6, 6, 6, 6, 6, & ! 7 & 6, 1, 6, 6, 6, 6, 0, 2, 0, 10, & ! 8 & 10, 0, 0, 2, 2, 3, 1, 3, 10, 0, & ! 9 & 0, 10, 3, 3, 0, 3, 3, 3, 3, 1, & ! O & 1, 1, 3, 1, 1, 1, 3, 1, 1, 1, & ! 1 & 1, 1, 1, 1, 1, 1, 0, 1, 1, 0, & ! 2 & 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, & ! 3 & 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, & ! 4 & 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, & ! 5 & 3, 10, 1, 1, 1, 1, 10, 1, 1, 1, & ! 6 & 1, 1, 3, 3, 3, 1, 1, 1, 1, 1, & ! 7 & 1, 1, 1, 1, 6, 6, 6, 6, 6, 6, & ! 8 & 6, 6, 6, 0, 0, 3, 3, 3, 3, 0, & ! 9 & 3, 1, 1, 3, 1, 1, 0, 1, 3, 3, & ! O & 3, 1, 1, 1, 3, 3, 0, 1, 3, 1, & ! 1 & 3, 3, 1, 1, 1, 3, 3, 3, 3, 1, & ! 2 & 1, 3, 3, 3, 3, 3, 1, 1, 3, 1, & ! 3 & 3, 3, 3, 1, 1, 3, 1, 3, 1, 6, & ! 4 & 6, 6, 6, 6, 6, 1, 3, 3, 1, 1, & ! 5 & 3, 3, 3, 3, 3, 1, 1, 3, 3, 3, & ! 6 & 1, 1, 3, 3, 3, 3, 1, 1, 3, 3, & ! 7 & 3, 1, 1, 3, 3, 6, 1, 6, 6, 6, & ! 8 & 6, 6, 6, 6, 1, 1, 3, 0, 3, 0, & ! 9 & 1, 1, 0, 0, 3, 0, 3, 0, 1, 0, & ! O & 3, 3, 3, 3, 3, 1, 1, 3, 0, 1, & ! 1 & 1, 3, 3, 3, 0, 1, 3, 6, 1, 6, & ! 2 & 6, 6, 6, 6, 6, 6, 6, 3, 6, 3, & ! 3 & 0, 6, 6, 6, 6, 6, 6, 6, 6, 6, & ! 4 & 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, & ! 5 & 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, & ! 6 & 6, 6, 6, 6, 6, 6, 1, 1, 1, 1, & ! 7 & 1, 1, 0, -1, -1, -1, -1, -1, -1, -1, & ! 8 & -1, 12, -1, -1, -1, -1, -1, -1, -1, -1, & ! 9 & -1, -1, -1, -1, 1, 1, 1, 1, 1, 1, & ! O & 1, -1, 1, -1, 1, 1, 1, 1, 1, 1, & ! 1 & 1, 1, 1, 1, 1, 1, 1, -1, -1/ !2 INTEGER :: IRXBITS( NRXNS ) DATA ( IRXBITS( IRXXN ), IRXXN = 1, NRXNS ) / & & 2, 20, 0, 1, 0, 1, 0, 0, 0, 16, & ! O & 1, 1, 8, 8, 0, 2, 2, 2, 2, 8, & ! 1 & 4, 1, 2, 0, 1, 0, 0, 2, 0, 0, & ! 2 & 0, 1, 1, 2, 0, 0, 0, 8, 0, 0, & ! 3 & 2, 0, 0, 1, 128, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 1, 1, 2, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 2, 2, 0, 0, 0, 2, 0, & ! 9 & 0, 2, 0, 0, 2, 0, 2, 0, 0, 0, & ! O & 0, 0, 2, 0, 2, 0, 2, 0, 2, 2, & ! 1 & 2, 0, 0, 2, 0, 0, 2, 0, 0, 0, & ! 2 & 2, 2, 0, 2, 0, 0, 0, 2, 0, 0, & ! 3 & 2, 0, 0, 0, 0, 0, 0, 2, 0, 0, & ! 4 & 0, 2, 0, 2, 0, 2, 2, 0, 0, 0, & ! 5 & 0, 0, 2, 0, 2, 0, 2, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 64, 1, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 2, 4, 2, 1, & ! 8 & 1, 2, 2, 0, 0, 0, 0, 0, 1, 2, & ! 9 & 2, 1, 0, 0, 2, 0, 0, 128, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 2, 0, 0, 2, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 64, 1, 0, 0, 0, 0, 1, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 2, 2, 0, 0, 0, 0, 2, & ! 9 & 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 2, 0, 2, & ! 9 & 0, 0, 2, 2, 0, 2, 0, 2, 0, 2, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 2, 0, & ! 1 & 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 2, 1, 1, 1, 1, 1, 1, 1, & ! 8 & 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, & ! 9 & 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, & ! O & 0, 1, 0, 1, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 1, 1/ !2 INTEGER, PARAMETER :: NTERMS_JACOB = 52900 INTEGER, PARAMETER :: NSTEPS_JACOB = 1858 INTEGER :: IORDER( NRXNS ) DATA ( IORDER( IRXXN ), IRXXN = 1, NRXNS ) / & & 1, 3, 2, 2, 2, 2, 2, 2, 2, 3, & ! O & 2, 1, 2, 3, 2, 1, 1, 1, 1, 2, & ! 1 & 2, 2, 1, 2, 2, 2, 2, 1, 2, 2, & ! 2 & 2, 2, 1, 1, 2, 2, 2, 3, 2, 2, & ! 3 & 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 4 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 5 & 2, 2, 2, 1, 1, 2, 2, 2, 2, 2, & ! 6 & 2, 2, 2, 1, 1, 2, 2, 2, 2, 2, & ! 7 & 2, 2, 2, 2, 1, 1, 2, 2, 2, 2, & ! 8 & 2, 2, 2, 2, 2, 2, 1, 1, 2, 1, & ! 9 & 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, & ! O & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 1 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 2 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 3 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 4 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 5 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 6 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 7 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 8 & 2, 2, 2, 1, 1, 2, 2, 2, 1, 2, & ! 9 & 2, 1, 2, 2, 1, 2, 1, 2, 2, 2, & ! O & 2, 2, 1, 2, 1, 2, 1, 2, 1, 1, & ! 1 & 1, 2, 2, 1, 2, 2, 1, 2, 2, 2, & ! 2 & 1, 1, 2, 1, 2, 2, 2, 1, 2, 2, & ! 3 & 1, 2, 2, 2, 2, 2, 2, 1, 2, 2, & ! 4 & 2, 1, 2, 1, 2, 1, 1, 2, 2, 2, & ! 5 & 2, 2, 1, 2, 1, 2, 1, 2, 2, 2, & ! 6 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 7 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 8 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 9 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! O & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 1 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 2 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 3 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 4 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 5 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 6 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 7 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 8 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 9 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! O & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 1 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 2 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 3 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 4 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 5 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 6 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 7 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 8 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 9 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! O & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 1 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 2 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 3 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 4 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 5 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 6 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 7 & 2, 2, 2, 2, 2, 2, 1, 3, 1, 2, & ! 8 & 2, 1, 1, 2, 2, 2, 2, 2, 2, 1, & ! 9 & 1, 1, 2, 2, 1, 2, 2, 2, 2, 2, & ! O & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 1 & 2, 2, 2, 2, 2, 2, 1, 2, 2, 1, & ! 2 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 3 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 4 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 5 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 6 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 7 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 8 & 2, 2, 2, 1, 1, 2, 2, 2, 2, 1, & ! 9 & 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, & ! O & 2, 2, 2, 2, 2, 1, 1, 2, 2, 2, & ! 1 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 2 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 3 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 4 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 5 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 6 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 7 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 8 & 2, 2, 2, 2, 2, 2, 2, 1, 2, 1, & ! 9 & 2, 2, 1, 1, 2, 1, 2, 1, 2, 1, & ! O & 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, & ! 1 & 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, & ! 2 & 2, 2, 2, 2, 2, 2, 2, 1, 2, 1, & ! 3 & 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 4 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 5 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 6 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 7 & 2, 2, 1, 1, 1, 1, 1, 1, 2, 2, & ! 8 & 2, 1, 1, 1, 1, 1, 2, 2, 2, 1, & ! 9 & 2, 1, 2, 1, 1, 1, 1, 1, 1, 1, & ! O & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 1 & 2, 2, 2, 2, 2, 1, 1, 1, 1/ !2 INTEGER, PARAMETER :: KTN1 = 158 INTEGER :: KRX1( KTN1 ) DATA ( KRX1( IRXXN ), IRXXN = 1, KTN1 ) / & & 13, 14, 26, 39, 42, 49, 54, 55, 56, 84, & ! O & 99, 103, 209, 211, 214, 216, 218, 225, 229, 230, & ! 1 & 233, 236, 237, 239, 240, 242, 243, 245, 247, 249, & ! 2 & 250, 251, 253, 255, 259, 261, 262, 264, 266, 534, & ! 3 & 537, 541, 546, 547, 548, 549, 565, 566, 567, 582, & ! 4 & 597, 610, 611, 612, 614, 615, 616, 618, 619, 620, & ! 5 & 621, 622, 623, 624, 625, 626, 628, 629, 663, 664, & ! 6 & 665, 666, 668, 669, 670, 671, 672, 676, 677, 678, & ! 7 & 679, 680, 681, 682, 683, 684, 702, 703, 705, 706, & ! 8 & 708, 712, 713, 714, 718, 720, 723, 724, 725, 730, & ! 9 & 731, 737, 738, 740, 744, 745, 747, 749, 756, 759, & ! O & 760, 766, 767, 771, 772, 777, 778, 782, 783, 787, & ! 1 & 795, 796, 801, 802, 809, 816, 817, 820, 821, 826, & ! 2 & 829, 877, 878, 879, 880, 881, 882, 905, 906, 907, & ! 3 & 908, 909, 910, 911, 913, 915, 916, 917, 918, 919, & ! 4 & 920, 921, 922, 923, 924, 925, 926, 927/ ! 5 INTEGER, PARAMETER :: KTN2 = 4 INTEGER :: KRX2( KTN2 ) DATA ( KRX2( IRXXN ), IRXXN = 1, KTN2 ) / & & 2, 588, 594, 595/ INTEGER, PARAMETER :: KTN3 = 162 INTEGER :: KRX3( KTN3 ) DATA ( KRX3( IRXXN ), IRXXN = 1, KTN3 ) / & & 3, 5, 7, 8, 9, 10, 15, 20, 21, 24, & ! O & 30, 31, 35, 40, 43, 45, 46, 51, 52, 53, & ! 1 & 66, 67, 69, 70, 72, 74, 76, 85, 97, 100, & ! 2 & 101, 196, 197, 198, 200, 201, 203, 208, 210, 212, & ! 3 & 222, 223, 226, 228, 235, 244, 246, 260, 442, 493, & ! 4 & 523, 525, 526, 527, 528, 529, 530, 531, 532, 533, & ! 5 & 535, 536, 538, 539, 540, 543, 544, 545, 553, 554, & ! 6 & 555, 556, 557, 558, 559, 560, 561, 562, 563, 564, & ! 7 & 568, 569, 570, 572, 596, 598, 603, 604, 606, 607, & ! 8 & 608, 609, 613, 617, 661, 673, 674, 675, 696, 697, & ! 9 & 698, 699, 701, 704, 709, 710, 711, 715, 716, 719, & ! O & 721, 722, 726, 727, 728, 729, 732, 733, 734, 735, & ! 1 & 736, 739, 741, 742, 743, 746, 748, 757, 758, 761, & ! 2 & 762, 763, 764, 765, 768, 769, 770, 773, 774, 775, & ! 3 & 776, 779, 780, 781, 784, 785, 797, 799, 805, 807, & ! 4 & 811, 812, 813, 814, 815, 818, 822, 823, 824, 827, & ! 5 & 838, 840/ ! 6 INTEGER, PARAMETER :: KTN4 = 10 INTEGER :: KRX4( KTN4 ) DATA ( KRX4( IRXXN ), IRXXN = 1, KTN4 ) / & & 36, 47, 48, 50, 73, 204, 206, 550, 551, 552/ INTEGER, PARAMETER :: KTN5 = 0 INTEGER :: KRX5( 1 ) DATA KRX5( 1 ) / 0 / INTEGER, PARAMETER :: KTN6 = 482 INTEGER :: KRX6( KTN6 ) DATA ( KRX6( IRXXN ), IRXXN = 1, KTN6 ) / & & 57, 58, 59, 60, 61, 62, 68, 71, 77, 78, & ! O & 79, 80, 81, 82, 83, 87, 88, 89, 90, 91, & ! 1 & 92, 93, 94, 95, 96, 102, 104, 105, 106, 107, & ! 2 & 108, 109, 110, 111, 112, 113, 114, 115, 116, 117, & ! 3 & 118, 119, 120, 121, 122, 123, 124, 125, 126, 127, & ! 4 & 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, & ! 5 & 138, 139, 140, 141, 142, 143, 144, 145, 146, 147, & ! 6 & 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, & ! 7 & 158, 159, 160, 161, 162, 163, 164, 165, 166, 167, & ! 8 & 168, 169, 170, 171, 172, 173, 174, 175, 176, 177, & ! 9 & 178, 179, 180, 181, 182, 183, 184, 185, 186, 187, & ! O & 188, 189, 190, 191, 192, 193, 258, 268, 269, 270, & ! 1 & 271, 272, 273, 274, 275, 276, 277, 278, 279, 280, & ! 2 & 281, 282, 283, 284, 285, 286, 287, 288, 289, 290, & ! 3 & 291, 292, 293, 294, 295, 296, 297, 298, 299, 300, & ! 4 & 301, 302, 303, 304, 305, 306, 307, 308, 309, 310, & ! 5 & 311, 312, 313, 314, 315, 316, 317, 318, 319, 320, & ! 6 & 321, 322, 323, 324, 325, 326, 327, 328, 329, 330, & ! 7 & 331, 332, 333, 334, 335, 336, 337, 338, 339, 340, & ! 8 & 341, 342, 343, 344, 345, 346, 347, 348, 349, 350, & ! 9 & 351, 352, 353, 354, 355, 356, 357, 358, 359, 360, & ! O & 361, 362, 363, 364, 365, 366, 367, 368, 369, 370, & ! 1 & 371, 372, 373, 374, 375, 376, 377, 378, 379, 380, & ! 2 & 381, 382, 383, 384, 385, 386, 387, 388, 389, 390, & ! 3 & 391, 392, 393, 394, 395, 396, 397, 398, 399, 400, & ! 4 & 401, 402, 403, 404, 405, 406, 407, 408, 409, 410, & ! 5 & 411, 412, 413, 414, 415, 416, 417, 418, 419, 420, & ! 6 & 421, 422, 423, 424, 425, 426, 427, 428, 429, 430, & ! 7 & 431, 432, 433, 434, 435, 436, 437, 438, 439, 440, & ! 8 & 441, 443, 444, 445, 446, 447, 448, 449, 450, 451, & ! 9 & 452, 453, 454, 455, 456, 457, 458, 459, 460, 461, & ! O & 462, 463, 464, 465, 466, 467, 468, 469, 470, 471, & ! 1 & 472, 473, 474, 475, 476, 477, 478, 479, 480, 481, & ! 2 & 482, 483, 484, 485, 486, 487, 488, 489, 490, 491, & ! 3 & 492, 494, 495, 496, 497, 498, 499, 500, 501, 502, & ! 4 & 503, 504, 505, 506, 507, 508, 509, 510, 511, 512, & ! 5 & 513, 514, 515, 516, 517, 518, 519, 520, 521, 522, & ! 6 & 571, 573, 574, 575, 576, 577, 578, 579, 580, 581, & ! 7 & 583, 584, 585, 586, 631, 632, 633, 634, 635, 636, & ! 8 & 637, 638, 639, 640, 641, 642, 643, 644, 645, 646, & ! 9 & 647, 648, 649, 650, 651, 652, 653, 654, 655, 656, & ! O & 657, 658, 659, 660, 685, 686, 687, 688, 689, 690, & ! 1 & 691, 692, 693, 750, 751, 752, 753, 754, 755, 786, & ! 2 & 788, 789, 790, 791, 792, 793, 794, 828, 830, 831, & ! 3 & 832, 833, 834, 835, 836, 837, 839, 842, 843, 844, & ! 4 & 845, 846, 847, 848, 849, 850, 851, 852, 853, 854, & ! 5 & 855, 856, 857, 858, 859, 860, 861, 862, 863, 864, & ! 6 & 865, 866, 867, 868, 869, 870, 871, 872, 873, 874, & ! 7 & 875, 876/ ! 8 INTEGER, PARAMETER :: KTN7 = 0 INTEGER :: KRX7( 1 ) DATA KRX7( 1 ) / 0 / INTEGER, PARAMETER :: NWM = 3 INTEGER :: NRXWM( NWM ) DATA ( NRXWM( IRXXN ), IRXXN = 1, NWM ) / & & 2, 21, 588/ REAL( 8 ), PARAMETER :: ATM_AIR = 1.00000D+06 INTEGER, PARAMETER :: NWW = 5 INTEGER :: NRXWW( NWW ) DATA ( NRXWW( IRXXN ), IRXXN = 1, NWW ) / & & 13, 14, 14, 20, 38/ INTEGER, PARAMETER :: NWO2 = 2 INTEGER :: NRXWO2( NWO2 ) DATA ( NRXWO2( IRXXN ), IRXXN = 1, NWO2 ) / & & 2, 10/ REAL( 8 ), PARAMETER :: ATM_O2 = 2.09500D+05 INTEGER, PARAMETER :: NWN2 = 0 INTEGER :: NRXWN2( 1 ) DATA NRXWN2( 1 ) / 0 / REAL( 8 ), PARAMETER :: ATM_N2 = 7.80800D+05 INTEGER, PARAMETER :: NWCH4 = 2 INTEGER :: NRXWCH4( NWCH4 ) DATA ( NRXWCH4( IRXXN ), IRXXN = 1, NWCH4 ) / & & 523, 661/ REAL( 8 ), PARAMETER :: ATM_CH4 = 1.85000D+00 INTEGER, PARAMETER :: NWH2 = 2 INTEGER :: NRXWH2( NWH2 ) DATA ( NRXWH2( IRXXN ), IRXXN = 1, NWH2 ) / & & 45, 608/ REAL( 8 ), PARAMETER :: ATM_H2 = 5.60000D-01 INTEGER, PARAMETER :: MXPRD = 26 INTEGER :: IRR( NRXNS,MXPRD+3 ) DATA ( IRR( IRXXN, 1 ), IRXXN = 1, NRXNS ) / & & 1, 3, 3, 3, 3, 3, 4, 4, 2, 2, & ! O & 1, 6, 6, 6, 1, 5, 5, 4, 4, 8, & ! 1 & 8, 9, 10, 9, 9, 9, 9, 7, 9, 9, & ! 2 & 11, 11, 14, 14, 14, 11, 11, 11, 5, 5, & ! 3 & 15, 15, 9, 9, 9, 19, 19, 19, 19, 19, & ! 4 & 19, 23, 23, 23, 23, 23, 24, 24, 24, 24, & ! 5 & 24, 24, 25, 26, 26, 25, 25, 25, 25, 25, & ! 6 & 25, 25, 29, 30, 30, 29, 29, 29, 29, 29, & ! 7 & 29, 29, 29, 36, 37, 37, 36, 36, 36, 36, & ! 8 & 36, 36, 36, 36, 36, 39, 40, 40, 41, 41, & ! 9 & 38, 38, 38, 31, 31, 31, 31, 31, 31, 31, & ! O & 31, 31, 31, 46, 46, 46, 46, 46, 46, 46, & ! 1 & 46, 46, 46, 47, 47, 47, 47, 47, 47, 47, & ! 2 & 47, 47, 47, 48, 48, 48, 48, 48, 48, 48, & ! 3 & 48, 48, 48, 49, 49, 49, 49, 49, 49, 49, & ! 4 & 49, 49, 49, 50, 50, 50, 50, 50, 50, 50, & ! 5 & 50, 50, 50, 51, 51, 51, 51, 51, 51, 51, & ! 6 & 51, 51, 51, 52, 52, 52, 52, 52, 52, 52, & ! 7 & 52, 52, 52, 53, 53, 53, 53, 53, 53, 53, & ! 8 & 53, 53, 53, 20, 20, 20, 20, 54, 54, 54, & ! 9 & 55, 55, 55, 43, 43, 57, 57, 22, 60, 28, & ! O & 35, 21, 21, 63, 63, 65, 65, 68, 68, 75, & ! 1 & 75, 75, 75, 69, 69, 69, 79, 45, 45, 44, & ! 2 & 44, 44, 80, 80, 80, 76, 76, 76, 77, 77, & ! 3 & 77, 81, 81, 83, 83, 84, 84, 84, 70, 70, & ! 4 & 70, 70, 66, 66, 42, 42, 87, 87, 89, 89, & ! 5 & 89, 89, 89, 27, 27, 34, 34, 78, 78, 78, & ! 6 & 56, 56, 56, 56, 56, 56, 56, 56, 56, 56, & ! 7 & 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, & ! 8 & 59, 59, 59, 59, 59, 59, 59, 59, 59, 59, & ! 9 & 88, 88, 88, 88, 88, 88, 88, 88, 88, 88, & ! O & 72, 72, 72, 72, 72, 72, 72, 72, 72, 72, & ! 1 & 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, & ! 2 & 71, 71, 71, 71, 71, 71, 71, 71, 71, 71, & ! 3 & 61, 61, 61, 61, 61, 61, 61, 61, 61, 61, & ! 4 & 62, 62, 62, 62, 62, 62, 62, 62, 62, 62, & ! 5 & 90, 90, 90, 90, 90, 90, 90, 90, 90, 90, & ! 6 & 73, 73, 73, 73, 73, 73, 73, 73, 73, 73, & ! 7 & 74, 74, 74, 74, 74, 74, 74, 74, 74, 74, & ! 8 & 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, & ! 9 & 92, 92, 92, 92, 92, 92, 92, 92, 92, 92, & ! O & 93, 93, 93, 93, 93, 93, 93, 93, 93, 93, & ! 1 & 82, 82, 82, 82, 82, 82, 82, 82, 82, 82, & ! 2 & 86, 86, 86, 86, 86, 86, 86, 86, 86, 86, & ! 3 & 94, 94, 94, 94, 94, 94, 94, 94, 94, 94, & ! 4 & 94, 32, 32, 32, 32, 32, 32, 32, 32, 32, & ! 5 & 32, 67, 67, 67, 67, 67, 67, 67, 67, 67, & ! 6 & 67, 97, 97, 97, 97, 97, 97, 97, 97, 97, & ! 7 & 97, 58, 58, 58, 58, 58, 58, 58, 58, 58, & ! 8 & 58, 98, 98, 98, 98, 98, 98, 98, 98, 98, & ! 9 & 98, 98, 85, 85, 85, 85, 85, 85, 85, 85, & ! O & 85, 85, 99, 99, 99, 99, 99, 99, 99, 99, & ! 1 & 99, 99, 9, 100, 100, 100, 100, 101, 101, 101, & ! 2 & 101, 102, 102, 102, 102, 103, 103, 104, 104, 104, & ! 3 & 104, 106, 106, 107, 109, 111, 113, 114, 115, 116, & ! 4 & 117, 118, 119, 120, 121, 122, 126, 126, 126, 126, & ! 5 & 127, 127, 127, 127, 128, 129, 130, 132, 132, 132, & ! 6 & 133, 133, 133, 133, 133, 133, 133, 133, 133, 133, & ! 7 & 133, 132, 134, 134, 134, 134, 136, 137, 138, 137, & ! 8 & 137, 139, 140, 137, 137, 137, 137, 142, 142, 143, & ! 9 & 143, 143, 137, 142, 144, 142, 9, 137, 20, 54, & ! O & 22, 55, 43, 57, 42, 66, 75, 69, 45, 80, & ! 1 & 63, 65, 68, 89, 84, 70, 148, 148, 148, 149, & ! 2 & 145, 145, 145, 145, 145, 145, 145, 145, 145, 145, & ! 3 & 146, 146, 146, 146, 146, 146, 146, 146, 146, 146, & ! 4 & 147, 147, 147, 147, 147, 147, 147, 147, 147, 147, & ! 5 & 137, 100, 101, 102, 103, 104, 106, 109, 111, 113, & ! 6 & 114, 115, 116, 117, 118, 119, 120, 121, 126, 127, & ! 7 & 128, 129, 130, 132, 134, 108, 108, 112, 112, 110, & ! 8 & 110, 131, 131, 152, 152, 152, 152, 152, 153, 153, & ! 9 & 153, 153, 154, 154, 154, 154, 154, 154, 103, 155, & ! O & 155, 155, 155, 155, 155, 155, 162, 162, 103, 164, & ! 1 & 164, 164, 164, 164, 164, 164, 159, 167, 167, 167, & ! 2 & 167, 167, 159, 157, 169, 169, 169, 169, 169, 157, & ! 3 & 158, 174, 174, 174, 174, 174, 158, 165, 176, 176, & ! 4 & 176, 176, 176, 176, 176, 177, 177, 177, 177, 177, & ! 5 & 177, 165, 165, 179, 179, 179, 179, 179, 160, 160, & ! 6 & 160, 160, 160, 84, 180, 180, 180, 180, 180, 181, & ! 7 & 181, 181, 181, 181, 39, 39, 39, 39, 39, 39, & ! 8 & 39, 39, 39, 39, 40, 87, 163, 163, 172, 172, & ! 9 & 170, 178, 170, 178, 171, 171, 175, 175, 168, 182, & ! O & 161, 161, 183, 184, 184, 184, 184, 184, 161, 173, & ! 1 & 166, 166, 83, 83, 83, 83, 96, 96, 96, 96, & ! 2 & 96, 96, 96, 96, 96, 96, 96, 181, 96, 186, & ! 3 & 186, 53, 52, 51, 50, 49, 48, 47, 46, 31, & ! 4 & 99, 85, 58, 97, 67, 32, 86, 82, 93, 92, & ! 5 & 91, 74, 73, 90, 62, 61, 71, 64, 72, 88, & ! 6 & 59, 33, 56, 145, 147, 146, 186, 187, 188, 185, & ! 7 & 95, 95, 95, 1, 6, 6, 189, 190, 189, 189, & ! 8 & 190, 4, 183, 187, 188, 194, 194, 194, 194, 195, & ! 9 & 195, 196, 196, 5, 203, 205, 206, 207, 209, 210, & ! O & 211, 212, 213, 214, 215, 217, 218, 219, 220, 221, & ! 1 & 222, 223, 226, 224, 225, 227, 229, 75, 69/ !2 DATA ( IRR( IRXXN, 2 ), IRXXN = 1, NRXNS ) / & & 0, 0, 4, 2, 1, 1, 2, 1, 5, 2, & ! O & 5, 0, 0, 0, 5, 0, 0, 0, 0, 0, & ! 1 & 0, 2, 0, 10, 1, 5, 7, 0, 12, 4, & ! 2 & 2, 1, 0, 0, 9, 4, 11, 11, 11, 5, & ! 3 & 0, 9, 11, 16, 0, 2, 11, 11, 5, 19, & ! 4 & 19, 2, 11, 5, 19, 23, 2, 11, 5, 19, & ! 5 & 23, 24, 1, 0, 0, 2, 11, 5, 19, 23, & ! 6 & 24, 25, 1, 0, 0, 2, 11, 5, 19, 23, & ! 7 & 24, 25, 29, 1, 0, 0, 2, 11, 5, 19, & ! 8 & 23, 24, 25, 29, 36, 1, 0, 0, 1, 0, & ! 9 & 1, 11, 0, 2, 11, 5, 19, 23, 24, 25, & ! O & 29, 36, 39, 2, 11, 5, 19, 23, 24, 25, & ! 1 & 29, 36, 39, 2, 11, 5, 19, 23, 24, 25, & ! 2 & 29, 36, 39, 2, 11, 5, 19, 23, 24, 25, & ! 3 & 29, 36, 39, 2, 11, 5, 19, 23, 24, 25, & ! 4 & 29, 36, 39, 2, 11, 5, 19, 23, 24, 25, & ! 5 & 29, 36, 39, 2, 11, 5, 19, 23, 24, 25, & ! 6 & 29, 36, 39, 2, 11, 5, 19, 23, 24, 25, & ! 7 & 29, 36, 39, 2, 11, 5, 19, 23, 24, 25, & ! 8 & 29, 36, 39, 0, 0, 9, 5, 9, 0, 5, & ! 9 & 9, 0, 5, 9, 0, 9, 0, 9, 9, 9, & ! O & 9, 9, 0, 9, 0, 9, 0, 9, 0, 0, & ! 1 & 0, 9, 5, 0, 9, 5, 0, 9, 5, 9, & ! 2 & 0, 0, 9, 0, 5, 9, 4, 0, 9, 4, & ! 3 & 0, 9, 4, 4, 3, 4, 3, 0, 9, 4, & ! 4 & 5, 0, 9, 0, 9, 0, 0, 5, 9, 4, & ! 5 & 5, 3, 0, 9, 0, 9, 0, 2, 1, 11, & ! 6 & 2, 11, 5, 19, 23, 24, 25, 29, 36, 39, & ! 7 & 2, 11, 5, 19, 23, 24, 25, 29, 36, 39, & ! 8 & 2, 11, 5, 19, 23, 24, 25, 29, 36, 39, & ! 9 & 2, 11, 5, 19, 23, 24, 25, 29, 36, 39, & ! O & 2, 11, 5, 19, 23, 24, 25, 29, 36, 39, & ! 1 & 2, 11, 5, 19, 23, 24, 25, 29, 36, 39, & ! 2 & 2, 11, 5, 19, 23, 24, 25, 29, 36, 39, & ! 3 & 2, 11, 5, 19, 23, 24, 25, 29, 36, 39, & ! 4 & 2, 11, 5, 19, 23, 24, 25, 29, 36, 39, & ! 5 & 2, 11, 5, 19, 23, 24, 25, 29, 36, 39, & ! 6 & 2, 11, 5, 19, 23, 24, 25, 29, 36, 39, & ! 7 & 2, 11, 5, 19, 23, 24, 25, 29, 36, 39, & ! 8 & 2, 11, 5, 19, 23, 24, 25, 29, 36, 39, & ! 9 & 2, 11, 5, 19, 23, 24, 25, 29, 36, 39, & ! O & 2, 11, 5, 19, 23, 24, 25, 29, 36, 39, & ! 1 & 2, 11, 5, 19, 23, 24, 25, 29, 36, 39, & ! 2 & 2, 11, 5, 19, 23, 24, 25, 29, 36, 39, & ! 3 & 2, 11, 5, 19, 23, 24, 25, 29, 36, 39, & ! 4 & 96, 2, 11, 5, 19, 23, 24, 25, 29, 36, & ! 5 & 39, 2, 11, 5, 19, 23, 24, 25, 29, 36, & ! 6 & 39, 2, 11, 5, 19, 23, 24, 25, 29, 36, & ! 7 & 39, 2, 11, 5, 19, 23, 24, 25, 29, 36, & ! 8 & 39, 2, 11, 5, 19, 23, 24, 25, 29, 36, & ! 9 & 39, 96, 2, 11, 5, 19, 23, 24, 25, 29, & ! O & 36, 39, 2, 11, 5, 19, 23, 24, 25, 29, & ! 1 & 36, 39, 0, 9, 4, 5, 3, 9, 4, 5, & ! 2 & 3, 9, 4, 5, 3, 4, 3, 9, 4, 5, & ! 3 & 3, 9, 4, 9, 9, 9, 9, 9, 9, 9, & ! 4 & 9, 9, 9, 9, 9, 9, 9, 4, 5, 3, & ! 5 & 9, 4, 5, 3, 9, 9, 9, 9, 4, 5, & ! 6 & 2, 11, 5, 19, 23, 24, 25, 29, 36, 39, & ! 7 & 96, 3, 9, 4, 5, 3, 0, 2, 0, 1, & ! 8 & 1, 0, 0, 11, 11, 4, 5, 2, 1, 0, & ! 9 & 0, 0, 143, 11, 0, 142, 141, 0, 137, 137, & ! O & 137, 137, 137, 137, 137, 137, 137, 137, 137, 137, & ! 1 & 137, 137, 137, 137, 137, 137, 0, 9, 137, 0, & ! 2 & 2, 11, 5, 19, 23, 24, 25, 29, 36, 39, & ! 3 & 2, 11, 5, 19, 23, 24, 25, 29, 36, 39, & ! 4 & 2, 11, 5, 19, 23, 24, 25, 29, 36, 39, & ! 5 & 0, 137, 137, 137, 137, 137, 137, 137, 137, 137, & ! 6 & 137, 137, 137, 137, 137, 137, 137, 137, 137, 137, & ! 7 & 137, 137, 137, 137, 137, 2, 11, 2, 11, 2, & ! 8 & 11, 2, 11, 0, 0, 9, 5, 137, 9, 0, & ! 9 & 5, 137, 9, 4, 5, 3, 0, 137, 9, 2, & ! O & 11, 19, 23, 155, 25, 0, 0, 9, 5, 5, & ! 1 & 2, 11, 19, 23, 164, 25, 9, 2, 11, 19, & ! 2 & 23, 25, 4, 9, 2, 11, 19, 23, 25, 4, & ! 3 & 9, 2, 11, 19, 23, 25, 4, 5, 5, 2, & ! 4 & 1, 11, 23, 19, 25, 5, 2, 11, 23, 19, & ! 5 & 25, 4, 9, 2, 11, 23, 19, 25, 2, 11, & ! 6 & 19, 23, 25, 9, 2, 11, 19, 23, 25, 2, & ! 7 & 11, 19, 23, 25, 2, 11, 5, 19, 23, 24, & ! 8 & 25, 29, 36, 39, 9, 9, 9, 0, 9, 0, & ! 9 & 9, 9, 0, 0, 9, 0, 9, 0, 9, 0, & ! O & 9, 9, 9, 11, 2, 19, 23, 25, 0, 9, & ! 1 & 9, 9, 9, 5, 0, 137, 2, 11, 5, 19, & ! 2 & 23, 24, 25, 29, 36, 39, 96, 0, 1, 0, & ! 3 & 0, 96, 96, 96, 96, 96, 96, 96, 96, 96, & ! 4 & 96, 96, 96, 96, 96, 96, 96, 96, 96, 96, & ! 5 & 96, 96, 96, 96, 96, 96, 96, 96, 96, 96, & ! 6 & 96, 96, 96, 96, 96, 96, 9, 9, 9, 9, & ! 7 & 137, 9, 0, 0, 0, 0, 0, 0, 191, 192, & ! 8 & 193, 0, 0, 0, 0, 0, 198, 197, 199, 0, & ! 9 & 198, 0, 198, 0, 0, 0, 0, 0, 0, 0, & ! O & 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, & ! 1 & 9, 9, 9, 9, 9, 0, 0, 0, 0/ !2 DATA ( IRR( IRXXN, 3 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0/ !2 DATA ( IRR( IRXXN, 4 ), IRXXN = 1, NRXNS ) / & & 2, 4, 0, 1, 2, 5, 1, 5, 1, 1, & ! O & 6, 1, 7, 7, 2, 2, 1, 8, 3, 9, & ! 1 & 3, 10, 9, 1, 7, 11, 5, 9, 11, 11, & ! 2 & 9, 14, 11, 11, 1, 9, 15, 15, 9, 1, & ! 3 & 9, 11, 0, 11, 11, 1, 21, 20, 20, 22, & ! 4 & 20, 1, 0, 1, 11, 0, 0, 0, 1, 11, & ! 5 & 0, 0, 26, 25, 25, 19, 27, 19, 28, 19, & ! 6 & 19, 19, 30, 29, 29, 1, 34, 1, 20, 23, & ! 7 & 23, 13, 23, 37, 36, 36, 1, 34, 1, 20, & ! 8 & 23, 23, 13, 13, 38, 40, 39, 39, 42, 43, & ! 9 & 44, 45, 45, 2, 11, 5, 19, 23, 24, 25, & ! O & 29, 36, 39, 2, 11, 5, 19, 23, 24, 25, & ! 1 & 29, 36, 39, 2, 11, 5, 19, 23, 24, 25, & ! 2 & 29, 36, 39, 2, 11, 5, 19, 23, 24, 25, & ! 3 & 29, 36, 39, 2, 11, 5, 19, 23, 24, 25, & ! 4 & 29, 36, 39, 2, 11, 5, 19, 23, 24, 25, & ! 5 & 29, 36, 39, 2, 11, 5, 19, 23, 24, 25, & ! 6 & 29, 36, 39, 2, 11, 5, 19, 23, 24, 25, & ! 7 & 29, 36, 39, 2, 11, 5, 19, 23, 24, 25, & ! 8 & 29, 36, 39, 11, 12, 11, 7, 25, 12, 7, & ! 9 & 29, 23, 7, 23, 25, 23, 25, 20, 11, 19, & ! O & 23, 20, 20, 9, 55, 9, 9, 9, 9, 12, & ! 1 & 20, 11, 7, 11, 12, 7, 25, 38, 7, 38, & ! 2 & 10, 0, 36, 0, 7, 39, 9, 11, 39, 9, & ! 3 & 66, 39, 9, 9, 55, 9, 55, 19, 39, 9, & ! 4 & 39, 11, 11, 31, 11, 11, 12, 7, 31, 11, & ! 5 & 31, 55, 11, 25, 19, 29, 31, 11, 11, 9, & ! 6 & 2, 11, 5, 19, 23, 24, 25, 29, 36, 39, & ! 7 & 2, 11, 5, 19, 23, 24, 25, 29, 36, 39, & ! 8 & 2, 11, 5, 19, 23, 24, 25, 29, 36, 39, & ! 9 & 2, 11, 5, 19, 23, 24, 25, 29, 36, 39, & ! O & 2, 11, 5, 19, 23, 24, 25, 29, 36, 39, & ! 1 & 2, 11, 5, 19, 23, 24, 25, 29, 36, 39, & ! 2 & 2, 11, 5, 19, 23, 24, 25, 29, 36, 39, & ! 3 & 2, 11, 5, 19, 23, 24, 25, 29, 36, 39, & ! 4 & 2, 11, 5, 19, 23, 24, 25, 29, 36, 39, & ! 5 & 2, 11, 5, 19, 23, 24, 25, 29, 36, 39, & ! 6 & 2, 11, 5, 19, 23, 24, 25, 29, 36, 39, & ! 7 & 2, 11, 5, 19, 23, 24, 25, 29, 36, 39, & ! 8 & 2, 11, 5, 19, 23, 24, 25, 29, 36, 39, & ! 9 & 2, 11, 5, 19, 23, 24, 25, 29, 36, 39, & ! O & 2, 11, 5, 19, 23, 24, 25, 29, 36, 39, & ! 1 & 2, 11, 5, 19, 23, 24, 25, 29, 36, 39, & ! 2 & 2, 11, 5, 19, 23, 24, 25, 29, 36, 39, & ! 3 & 2, 11, 5, 19, 23, 24, 25, 29, 36, 39, & ! 4 & 39, 2, 11, 5, 19, 23, 24, 25, 29, 36, & ! 5 & 39, 2, 11, 5, 19, 23, 24, 25, 29, 36, & ! 6 & 39, 2, 11, 5, 19, 23, 24, 25, 29, 36, & ! 7 & 39, 2, 11, 5, 19, 23, 24, 25, 29, 36, & ! 8 & 39, 2, 11, 5, 19, 23, 24, 25, 29, 36, & ! 9 & 39, 96, 2, 11, 5, 19, 23, 24, 25, 29, & ! O & 36, 39, 2, 11, 5, 19, 23, 24, 25, 29, & ! 1 & 36, 39, 19, 31, 11, 31, 11, 31, 11, 31, & ! 2 & 55, 31, 11, 31, 11, 11, 19, 31, 11, 31, & ! 3 & 66, 11, 11, 11, 11, 11, 11, 11, 11, 11, & ! 4 & 31, 31, 31, 31, 31, 9, 31, 11, 31, 55, & ! 5 & 31, 11, 31, 55, 11, 11, 11, 31, 11, 133, & ! 6 & 1, 95, 1, 1, 1, 1, 1, 1, 1, 13, & ! 7 & 13, 55, 31, 11, 31, 55, 137, 138, 137, 139, & ! 8 & 140, 137, 137, 141, 142, 142, 142, 137, 143, 142, & ! 9 & 137, 142, 136, 144, 9, 136, 137, 141, 141, 141, & ! O & 141, 141, 141, 141, 141, 141, 141, 141, 141, 141, & ! 1 & 141, 141, 141, 31, 23, 141, 11, 29, 141, 25, & ! 2 & 2, 11, 5, 19, 23, 24, 25, 29, 36, 39, & ! 3 & 2, 11, 5, 19, 23, 24, 25, 29, 36, 39, & ! 4 & 2, 11, 5, 19, 23, 24, 25, 29, 36, 39, & ! 5 & 141, 31, 141, 31, 141, 141, 11, 31, 31, 31, & ! 6 & 31, 31, 141, 141, 141, 141, 141, 141, 141, 141, & ! 7 & 31, 31, 31, 141, 31, 2, 11, 2, 11, 2, & ! 8 & 11, 2, 11, 0, 0, 9, 5, 137, 9, 0, & ! 9 & 5, 137, 9, 4, 5, 3, 0, 137, 155, 84, & ! O & 161, 11, 11, 11, 19, 11, 9, 9, 164, 165, & ! 1 & 165, 166, 165, 165, 165, 19, 167, 1, 65, 87, & ! 2 & 87, 19, 69, 169, 66, 173, 66, 66, 19, 172, & ! 3 & 174, 87, 173, 87, 87, 19, 171, 176, 1, 1, & ! 4 & 40, 34, 170, 170, 19, 178, 178, 173, 178, 178, & ! 5 & 19, 170, 176, 170, 65, 170, 170, 19, 1, 65, & ! 6 & 11, 11, 11, 180, 87, 63, 87, 87, 19, 1, & ! 7 & 63, 11, 11, 19, 1, 34, 1, 20, 12, 12, & ! 8 & 13, 12, 12, 12, 163, 11, 69, 11, 20, 1, & ! 9 & 69, 170, 25, 25, 60, 25, 28, 163, 12, 54, & ! O & 183, 155, 184, 163, 163, 163, 163, 163, 9, 1, & ! 1 & 173, 164, 181, 96, 9, 141, 1, 185, 1, 20, & ! 2 & 12, 12, 13, 12, 12, 12, 12, 163, 186, 96, & ! 3 & 96, 96, 96, 96, 96, 96, 96, 96, 96, 96, & ! 4 & 96, 96, 96, 96, 96, 96, 96, 96, 96, 96, & ! 5 & 96, 96, 96, 96, 96, 96, 96, 96, 96, 96, & ! 6 & 96, 96, 96, 96, 96, 96, 163, 0, 0, 96, & ! 7 & 141, 11, 11, 10, 7, 7, 7, 7, 140, 140, & ! 8 & 140, 0, 194, 195, 196, 197, 199, 200, 200, 201, & ! 9 & 202, 201, 202, 7, 204, 204, 204, 208, 208, 208, & ! O & 212, 9, 214, 9, 9, 9, 9, 9, 9, 9, & ! 1 & 9, 9, 9, 9, 9, 7, 7, 230, 230/ !2 DATA ( IRR( IRXXN, 5 ), IRXXN = 1, NRXNS ) / & & 3, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 5, 0, 0, 1, 0, 3, 0, 0, 0, & ! 1 & 0, 0, 2, 0, 0, 1, 0, 1, 13, 0, & ! 2 & 1, 0, 1, 1, 0, 0, 0, 0, 1, 0, & ! 3 & 0, 0, 0, 17, 0, 20, 0, 0, 11, 20, & ! 4 & 11, 0, 0, 0, 20, 0, 0, 0, 0, 20, & ! 5 & 0, 0, 0, 1, 1, 13, 28, 13, 20, 13, & ! 6 & 13, 13, 0, 1, 1, 23, 35, 23, 11, 31, & ! 7 & 31, 19, 31, 0, 1, 1, 13, 35, 13, 11, & ! 8 & 38, 38, 19, 23, 23, 0, 1, 1, 0, 19, & ! 9 & 0, 0, 23, 11, 0, 11, 11, 11, 11, 11, & ! O & 11, 11, 11, 9, 0, 9, 9, 9, 9, 9, & ! 1 & 9, 9, 9, 1, 0, 1, 1, 1, 1, 1, & ! 2 & 1, 1, 1, 19, 0, 19, 0, 19, 19, 19, & ! 3 & 19, 19, 19, 25, 0, 25, 25, 25, 25, 0, & ! 4 & 25, 25, 25, 29, 0, 29, 29, 29, 29, 29, & ! 5 & 0, 29, 29, 39, 0, 39, 39, 39, 39, 39, & ! 6 & 39, 39, 0, 41, 0, 41, 41, 41, 41, 41, & ! 7 & 41, 41, 41, 12, 0, 12, 12, 12, 12, 12, & ! 8 & 12, 12, 12, 12, 0, 12, 11, 0, 11, 25, & ! 9 & 23, 31, 29, 49, 19, 24, 23, 11, 13, 23, & ! O & 31, 9, 11, 23, 11, 23, 11, 11, 11, 11, & ! 1 & 12, 12, 11, 12, 25, 12, 0, 23, 38, 0, & ! 2 & 0, 0, 0, 0, 36, 23, 11, 19, 23, 11, & ! 3 & 0, 23, 11, 11, 0, 11, 57, 12, 23, 11, & ! 4 & 7, 25, 31, 25, 31, 31, 11, 25, 39, 9, & ! 5 & 39, 0, 9, 23, 13, 23, 33, 12, 12, 11, & ! 6 & 20, 0, 20, 20, 20, 20, 20, 20, 20, 20, & ! 7 & 54, 0, 54, 54, 54, 54, 54, 54, 54, 54, & ! 8 & 55, 0, 55, 55, 55, 55, 55, 55, 55, 55, & ! 9 & 43, 0, 43, 43, 43, 43, 43, 43, 43, 43, & ! O & 57, 0, 57, 57, 57, 57, 57, 57, 57, 57, & ! 1 & 66, 0, 66, 66, 66, 66, 66, 66, 66, 66, & ! 2 & 75, 0, 75, 75, 75, 75, 75, 75, 75, 75, & ! 3 & 69, 0, 69, 69, 69, 69, 69, 69, 69, 69, & ! 4 & 79, 0, 79, 79, 79, 79, 79, 79, 79, 79, & ! 5 & 80, 0, 80, 80, 80, 80, 80, 80, 80, 80, & ! 6 & 76, 0, 76, 76, 76, 76, 76, 76, 76, 76, & ! 7 & 77, 0, 77, 77, 77, 77, 77, 77, 77, 77, & ! 8 & 81, 0, 81, 81, 81, 81, 81, 81, 81, 81, & ! 9 & 83, 0, 83, 83, 83, 83, 83, 83, 83, 83, & ! O & 84, 0, 84, 84, 84, 84, 84, 84, 84, 84, & ! 1 & 70, 0, 70, 70, 70, 70, 70, 70, 70, 70, & ! 2 & 42, 0, 42, 42, 42, 42, 42, 42, 42, 42, & ! 3 & 95, 0, 95, 95, 95, 95, 95, 95, 95, 95, & ! 4 & 95, 0, 63, 0, 57, 57, 57, 0, 0, 0, & ! 5 & 0, 0, 65, 0, 66, 66, 66, 0, 0, 0, & ! 6 & 0, 0, 68, 0, 66, 66, 66, 0, 0, 0, & ! 7 & 0, 42, 0, 66, 66, 66, 66, 66, 66, 66, & ! 8 & 66, 95, 0, 66, 66, 66, 66, 66, 66, 66, & ! 9 & 66, 66, 87, 0, 87, 87, 87, 87, 87, 87, & ! O & 87, 87, 89, 0, 89, 89, 89, 89, 89, 89, & ! 1 & 89, 89, 0, 23, 9, 23, 31, 23, 9, 23, & ! 2 & 57, 23, 9, 47, 31, 9, 51, 50, 31, 47, & ! 3 & 105, 9, 9, 31, 31, 31, 31, 31, 31, 31, & ! 4 & 23, 23, 52, 48, 23, 123, 48, 31, 23, 57, & ! 5 & 23, 31, 47, 57, 31, 31, 31, 50, 31, 0, & ! 6 & 95, 0, 95, 95, 95, 95, 95, 95, 95, 20, & ! 7 & 20, 66, 50, 31, 47, 66, 0, 0, 2, 0, & ! 8 & 0, 1, 1, 0, 9, 0, 1, 1, 0, 1, & ! 9 & 5, 1, 5, 0, 137, 137, 0, 11, 11, 25, & ! O & 20, 29, 23, 23, 1, 11, 11, 12, 31, 36, & ! 1 & 9, 9, 9, 145, 24, 11, 12, 0, 29, 23, & ! 2 & 137, 0, 137, 137, 137, 137, 137, 137, 137, 137, & ! 3 & 148, 0, 148, 148, 148, 148, 148, 148, 148, 148, & ! 4 & 149, 0, 149, 149, 149, 149, 149, 149, 149, 149, & ! 5 & 19, 23, 31, 145, 31, 31, 12, 23, 23, 23, & ! 6 & 23, 23, 11, 31, 31, 31, 31, 31, 31, 31, & ! 7 & 23, 23, 23, 31, 145, 123, 151, 123, 151, 123, & ! 8 & 151, 123, 151, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 156, 83, & ! O & 9, 20, 20, 20, 13, 162, 11, 66, 0, 84, & ! 1 & 84, 0, 84, 84, 84, 13, 0, 87, 0, 69, & ! 2 & 69, 13, 75, 0, 170, 0, 170, 170, 13, 170, & ! 3 & 0, 163, 0, 163, 163, 13, 175, 7, 170, 170, & ! 4 & 0, 35, 12, 12, 13, 75, 75, 0, 75, 75, & ! 5 & 13, 12, 179, 75, 0, 75, 75, 13, 11, 0, & ! 6 & 87, 87, 87, 0, 25, 0, 25, 25, 13, 11, & ! 7 & 0, 163, 163, 13, 12, 35, 12, 11, 13, 13, & ! 8 & 19, 13, 13, 13, 12, 9, 11, 25, 13, 20, & ! 9 & 1, 1, 20, 20, 69, 1, 20, 1, 11, 13, & ! O & 9, 159, 0, 87, 87, 87, 87, 87, 11, 11, & ! 1 & 9, 9, 96, 23, 11, 96, 12, 35, 12, 11, & ! 2 & 13, 13, 19, 13, 13, 13, 13, 12, 0, 1, & ! 3 & 1, 12, 41, 39, 29, 25, 19, 1, 9, 11, & ! 4 & 89, 87, 66, 0, 0, 0, 42, 70, 84, 83, & ! 5 & 81, 77, 76, 80, 79, 69, 75, 66, 57, 43, & ! 6 & 55, 54, 20, 137, 149, 148, 12, 0, 0, 188, & ! 7 & 1, 31, 31, 7, 189, 190, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 211, 0, 213, 0, 216, 217, 217, 217, 217, 217, & ! 1 & 222, 222, 222, 222, 222, 228, 228, 0, 0/ !2 DATA ( IRR( IRXXN, 6 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 9, 0, 0, 0, 0, 7, 0, & ! 3 & 0, 0, 0, 18, 0, 11, 0, 0, 1, 0, & ! 4 & 0, 0, 0, 0, 22, 0, 0, 0, 0, 22, & ! 5 & 0, 0, 0, 0, 19, 1, 4, 1, 11, 0, & ! 6 & 0, 0, 0, 0, 23, 31, 4, 31, 23, 33, & ! 7 & 33, 23, 33, 0, 0, 13, 38, 4, 38, 23, & ! 8 & 13, 13, 38, 31, 13, 0, 0, 13, 0, 0, & ! 9 & 0, 0, 31, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 12, 0, 19, 0, & ! 9 & 31, 32, 0, 56, 12, 58, 31, 0, 0, 13, & ! O & 13, 19, 9, 24, 9, 24, 23, 23, 75, 0, & ! 1 & 0, 78, 12, 25, 0, 25, 0, 31, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 24, 23, 25, 24, 23, & ! 3 & 0, 24, 25, 23, 0, 23, 0, 66, 31, 23, & ! 4 & 23, 29, 49, 29, 1, 1, 20, 0, 23, 12, & ! 5 & 23, 0, 19, 13, 9, 32, 32, 13, 13, 12, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 11, 11, 11, 11, 11, 11, 11, & ! 8 & 11, 0, 0, 11, 11, 11, 11, 11, 11, 11, & ! 9 & 11, 11, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 56, 12, 59, 19, 24, 19, 24, & ! 2 & 0, 24, 12, 23, 51, 51, 23, 23, 9, 50, & ! 3 & 0, 12, 12, 9, 9, 9, 9, 9, 9, 23, & ! 4 & 33, 24, 23, 49, 24, 124, 23, 9, 24, 66, & ! 5 & 24, 9, 48, 66, 9, 9, 9, 23, 9, 0, & ! 6 & 23, 0, 23, 23, 23, 23, 23, 23, 23, 25, & ! 7 & 25, 105, 23, 9, 50, 135, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 12, 0, & ! O & 11, 23, 56, 24, 11, 23, 12, 25, 90, 0, & ! 1 & 23, 23, 11, 39, 58, 39, 23, 0, 0, 145, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 56, 23, 23, 145, 145, 0, 24, 24, 24, & ! 6 & 24, 24, 31, 23, 23, 52, 48, 23, 23, 145, & ! 7 & 24, 24, 24, 145, 49, 125, 0, 124, 0, 124, & ! 8 & 0, 124, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, & ! O & 83, 84, 84, 84, 11, 0, 163, 0, 0, 83, & ! 1 & 83, 0, 83, 83, 83, 165, 0, 69, 0, 75, & ! 2 & 75, 87, 9, 0, 163, 0, 163, 163, 66, 69, & ! 3 & 0, 20, 0, 20, 20, 87, 9, 177, 12, 12, & ! 4 & 0, 4, 13, 13, 170, 1, 1, 0, 173, 173, & ! 5 & 178, 9, 0, 12, 0, 12, 12, 170, 87, 0, & ! 6 & 69, 69, 69, 0, 69, 0, 69, 69, 87, 163, & ! 7 & 0, 12, 12, 11, 13, 4, 13, 12, 20, 20, & ! 8 & 12, 20, 20, 20, 1, 75, 60, 20, 1, 11, & ! 9 & 0, 0, 1, 1, 20, 87, 5, 12, 163, 0, & ! O & 0, 9, 0, 75, 75, 75, 75, 75, 20, 66, & ! 1 & 0, 165, 0, 7, 25, 23, 13, 4, 13, 12, & ! 2 & 20, 20, 12, 20, 20, 20, 20, 9, 0, 0, & ! 3 & 13, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 11, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 5, 0, 0, 0, & ! 7 & 11, 1, 1, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 9, 0, 9, 0, 0, 218, 218, 218, 218, 218, & ! 1 & 223, 223, 223, 223, 223, 0, 0, 0, 0/ !2 DATA ( IRR( IRXXN, 7 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 5, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 13, 0, 9, 0, 19, 0, & ! 6 & 0, 0, 0, 0, 31, 32, 9, 32, 31, 32, & ! 7 & 32, 31, 32, 0, 0, 38, 23, 9, 23, 38, & ! 8 & 0, 0, 23, 32, 0, 0, 0, 20, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 53, 33, 0, 32, 0, 31, 33, 0, 0, 31, & ! O & 33, 0, 0, 58, 0, 58, 24, 24, 69, 0, & ! 1 & 0, 0, 78, 0, 0, 0, 0, 67, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 58, 12, 39, 58, 12, & ! 3 & 0, 58, 23, 12, 0, 31, 0, 39, 24, 50, & ! 4 & 31, 12, 50, 23, 47, 23, 0, 0, 53, 13, & ! 5 & 24, 0, 39, 46, 0, 13, 13, 1, 5, 13, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 85, 13, 32, 23, 58, 12, 58, & ! 2 & 0, 58, 13, 24, 23, 23, 24, 24, 49, 23, & ! 3 & 0, 60, 13, 23, 23, 23, 23, 23, 23, 56, & ! 4 & 32, 58, 24, 23, 58, 125, 24, 23, 58, 0, & ! 5 & 58, 19, 23, 0, 23, 23, 23, 24, 49, 0, & ! 6 & 11, 0, 11, 11, 11, 11, 11, 11, 11, 23, & ! 7 & 23, 0, 24, 49, 23, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 33, 49, 58, 23, 24, 29, 0, 67, 0, & ! 1 & 55, 24, 23, 23, 31, 23, 145, 0, 0, 56, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 150, 24, 24, 23, 49, 0, 58, 58, 58, & ! 6 & 58, 58, 23, 33, 24, 23, 49, 24, 24, 48, & ! 7 & 58, 58, 58, 49, 50, 0, 0, 125, 0, 125, & ! 8 & 0, 125, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 157, & ! O & 84, 83, 83, 83, 20, 0, 69, 0, 0, 1, & ! 1 & 1, 0, 1, 1, 1, 84, 0, 75, 0, 163, & ! 2 & 163, 69, 20, 0, 171, 0, 171, 171, 170, 35, & ! 3 & 0, 11, 0, 11, 11, 163, 11, 0, 13, 13, & ! 4 & 0, 0, 11, 11, 12, 0, 173, 0, 0, 20, & ! 5 & 75, 11, 0, 173, 0, 173, 173, 75, 69, 0, & ! 6 & 75, 75, 75, 0, 20, 0, 20, 20, 25, 12, & ! 7 & 0, 20, 20, 69, 20, 9, 20, 13, 19, 19, & ! 8 & 20, 19, 19, 19, 0, 12, 9, 0, 0, 12, & ! 9 & 0, 0, 0, 0, 182, 0, 60, 11, 66, 0, & ! O & 0, 0, 0, 69, 69, 69, 69, 69, 84, 0, & ! 1 & 0, 0, 0, 31, 96, 24, 20, 0, 20, 13, & ! 2 & 19, 19, 20, 19, 19, 19, 19, 0, 0, 0, & ! 3 & 20, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 187, 0, 0, 0, & ! 7 & 23, 47, 23, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 219, 219, 219, 219, 219, & ! 1 & 226, 226, 226, 226, 226, 0, 0, 0, 0/ !2 DATA ( IRR( IRXXN, 8 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 5, 0, 19, 0, 13, 0, & ! 6 & 0, 0, 0, 0, 32, 33, 31, 33, 33, 13, & ! 7 & 13, 32, 13, 0, 0, 23, 0, 38, 0, 13, & ! 8 & 0, 0, 0, 33, 0, 0, 0, 25, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 33, 12, 0, 0, 0, 49, 32, 0, 0, 61, & ! O & 59, 0, 0, 55, 0, 66, 58, 58, 76, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 61, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 31, 13, 12, 31, 13, & ! 3 & 0, 31, 24, 13, 0, 12, 0, 0, 58, 12, & ! 4 & 24, 20, 23, 24, 23, 24, 0, 0, 56, 20, & ! 5 & 58, 0, 12, 56, 0, 46, 9, 0, 0, 75, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 32, 20, 0, 12, 56, 13, 32, & ! 2 & 0, 56, 20, 58, 24, 24, 58, 58, 50, 24, & ! 3 & 0, 75, 0, 24, 24, 24, 24, 24, 24, 54, & ! 4 & 0, 59, 58, 24, 56, 0, 58, 24, 33, 0, & ! 5 & 56, 49, 24, 0, 24, 24, 24, 98, 50, 0, & ! 6 & 29, 0, 29, 29, 29, 29, 29, 29, 29, 11, & ! 7 & 11, 0, 58, 50, 24, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 53, 32, 31, 24, 58, 0, 0, 0, 0, & ! 1 & 46, 58, 24, 24, 49, 24, 56, 0, 0, 32, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 58, 58, 24, 50, 0, 90, 90, 90, & ! 6 & 90, 90, 56, 32, 58, 24, 23, 58, 58, 23, & ! 7 & 64, 90, 90, 50, 51, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 158, & ! O & 11, 160, 160, 160, 84, 0, 87, 0, 0, 11, & ! 1 & 11, 0, 11, 11, 11, 83, 0, 163, 0, 168, & ! 2 & 168, 75, 87, 0, 172, 0, 172, 172, 163, 11, & ! 3 & 0, 175, 0, 175, 175, 20, 12, 0, 11, 11, & ! 4 & 0, 0, 0, 20, 11, 0, 0, 0, 0, 22, & ! 5 & 0, 13, 0, 1, 0, 11, 11, 12, 75, 0, & ! 6 & 163, 163, 163, 0, 11, 0, 11, 11, 69, 20, & ! 7 & 0, 69, 69, 163, 19, 20, 19, 19, 0, 0, & ! 8 & 0, 23, 38, 0, 0, 13, 19, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 5, 0, 69, 0, 0, 0, & ! O & 0, 0, 0, 9, 9, 9, 9, 9, 83, 0, & ! 1 & 0, 0, 0, 53, 23, 58, 19, 0, 19, 19, & ! 2 & 0, 0, 0, 23, 38, 0, 0, 0, 0, 0, & ! 3 & 25, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 188, 0, 0, 0, & ! 7 & 24, 23, 24, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 220, 220, 220, 220, 222, & ! 1 & 224, 224, 224, 224, 224, 0, 0, 0, 0/ !2 DATA ( IRR( IRXXN, 9 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 13, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 33, 13, 23, 13, 32, 0, & ! 7 & 0, 33, 0, 0, 0, 5, 0, 23, 0, 0, & ! 8 & 0, 0, 0, 38, 0, 0, 0, 5, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 32, 11, 0, 0, 0, 50, 0, 0, 0, 32, & ! O & 62, 0, 0, 31, 0, 31, 55, 66, 77, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 49, 75, 75, 49, 75, & ! 3 & 0, 49, 58, 20, 0, 13, 0, 0, 53, 13, & ! 4 & 58, 87, 24, 58, 24, 58, 0, 0, 33, 60, & ! 5 & 7, 0, 13, 32, 0, 33, 0, 0, 0, 4, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 60, 0, 53, 33, 20, 0, & ! 2 & 0, 99, 60, 56, 58, 58, 56, 53, 23, 58, & ! 3 & 0, 0, 0, 58, 58, 58, 58, 58, 58, 85, & ! 4 & 0, 88, 56, 58, 33, 0, 56, 58, 59, 0, & ! 5 & 33, 50, 58, 0, 58, 58, 58, 53, 23, 0, & ! 6 & 12, 0, 12, 12, 12, 12, 12, 12, 12, 1, & ! 7 & 1, 0, 53, 23, 58, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 31, 0, 49, 58, 55, 0, 0, 0, 0, & ! 1 & 31, 66, 58, 58, 146, 58, 32, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 99, 56, 58, 51, 0, 0, 0, 0, & ! 6 & 0, 0, 54, 0, 59, 58, 24, 56, 56, 24, & ! 7 & 0, 64, 64, 51, 23, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 20, & ! O & 20, 159, 159, 159, 83, 0, 75, 0, 0, 20, & ! 1 & 20, 0, 20, 20, 20, 1, 0, 168, 0, 35, & ! 2 & 35, 163, 12, 0, 60, 0, 60, 60, 171, 20, & ! 3 & 0, 171, 0, 171, 171, 11, 13, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 11, & ! 5 & 0, 75, 0, 11, 0, 0, 20, 173, 163, 0, & ! 6 & 66, 66, 19, 0, 171, 0, 57, 57, 20, 69, & ! 7 & 0, 66, 66, 12, 0, 25, 0, 0, 0, 0, & ! 8 & 0, 31, 23, 0, 0, 60, 13, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 163, 0, 0, 0, & ! O & 0, 0, 0, 11, 11, 11, 11, 11, 160, 0, & ! 1 & 0, 0, 0, 32, 12, 31, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 31, 23, 0, 0, 0, 0, 0, & ! 3 & 5, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 26, 0, 0, 0, & ! 7 & 98, 24, 98, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 221, 222, 222, 222, 223, & ! 1 & 225, 225, 225, 225, 225, 0, 0, 0, 0/ !2 DATA ( IRR( IRXXN, 10 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 13, 0, 13, 0, 13, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 13, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 56, 0, 0, 0, 0, & ! O & 32, 0, 0, 46, 0, 46, 66, 69, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 53, 69, 69, 53, 69, & ! 3 & 0, 53, 12, 69, 0, 20, 0, 0, 56, 20, & ! 4 & 53, 57, 58, 56, 58, 20, 0, 0, 71, 75, & ! 5 & 53, 0, 20, 0, 0, 31, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 56, 32, 54, 0, & ! 2 & 0, 82, 89, 93, 53, 12, 66, 56, 24, 53, & ! 3 & 0, 0, 0, 71, 71, 71, 71, 71, 71, 32, & ! 4 & 0, 32, 33, 53, 59, 0, 33, 12, 88, 0, & ! 5 & 59, 23, 56, 0, 71, 71, 71, 56, 24, 0, & ! 6 & 20, 0, 20, 20, 20, 20, 20, 20, 20, 29, & ! 7 & 29, 0, 56, 24, 53, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 32, 0, 50, 55, 66, 0, 0, 0, 0, & ! 1 & 56, 46, 66, 141, 32, 76, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 146, 99, 56, 23, 0, 0, 0, 0, & ! 6 & 0, 0, 85, 0, 88, 56, 58, 33, 33, 58, & ! 7 & 0, 0, 0, 23, 24, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 159, & ! O & 0, 129, 129, 129, 160, 0, 20, 0, 0, 159, & ! 1 & 159, 0, 159, 159, 159, 11, 0, 35, 0, 66, & ! 2 & 66, 168, 163, 0, 5, 0, 5, 5, 172, 12, & ! 3 & 0, 1, 0, 1, 1, 175, 60, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 1, 0, 0, 0, 0, 22, 11, 0, 0, & ! 6 & 20, 0, 13, 0, 1, 0, 22, 0, 11, 175, & ! 7 & 0, 22, 0, 20, 0, 13, 0, 0, 0, 0, & ! 8 & 0, 32, 0, 0, 0, 20, 12, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, & ! O & 0, 0, 0, 13, 13, 13, 13, 13, 159, 0, & ! 1 & 0, 0, 0, 0, 20, 53, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 32, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 20, 0, 0, 0, & ! 7 & 55, 98, 20, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 222, 223, 223, 223, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0/ !2 DATA ( IRR( IRXXN, 11 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 5, 0, 33, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 33, 0, 0, 0, 0, & ! O & 0, 0, 0, 56, 0, 33, 31, 70, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 59, 50, 0, 59, 50, & ! 3 & 0, 71, 13, 60, 0, 69, 0, 0, 85, 57, & ! 4 & 56, 0, 20, 33, 56, 56, 0, 0, 32, 0, & ! 5 & 86, 0, 28, 0, 0, 59, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 54, 0, 60, 0, & ! 2 & 0, 32, 84, 82, 99, 13, 67, 59, 58, 56, & ! 3 & 0, 0, 0, 45, 61, 61, 61, 61, 61, 0, & ! 4 & 0, 0, 59, 56, 88, 0, 85, 13, 86, 0, & ! 5 & 88, 24, 33, 0, 61, 61, 61, 59, 98, 0, & ! 6 & 87, 0, 87, 87, 87, 87, 87, 87, 87, 12, & ! 7 & 12, 0, 59, 58, 56, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 56, 57, 31, 0, 0, 0, 0, & ! 1 & 33, 31, 69, 53, 0, 77, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 147, 82, 93, 24, 0, 0, 0, 0, & ! 6 & 0, 0, 32, 0, 32, 33, 53, 59, 59, 56, & ! 7 & 0, 0, 0, 24, 58, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 129, & ! O & 0, 66, 66, 66, 159, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 157, 157, 157, 20, 0, 66, 0, 12, & ! 2 & 12, 35, 35, 0, 20, 0, 20, 20, 60, 9, & ! 3 & 0, 0, 0, 173, 173, 171, 20, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 69, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 22, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 33, 0, 0, 0, 0, 28, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 13, 0, 0, 0, & ! O & 0, 0, 0, 20, 20, 20, 20, 20, 129, 0, & ! 1 & 0, 0, 0, 0, 49, 82, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 33, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 11, 0, 0, 0, & ! 7 & 57, 56, 56, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 223, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0/ !2 DATA ( IRR( IRXXN, 12 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 32, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 59, 0, 0, 0, 0, & ! O & 0, 0, 0, 33, 0, 59, 33, 31, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 72, 56, 0, 72, 56, & ! 3 & 0, 61, 75, 50, 0, 60, 0, 0, 59, 75, & ! 4 & 59, 0, 56, 59, 33, 54, 0, 0, 0, 0, & ! 5 & 32, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 71, 0, 28, 0, & ! 2 & 0, 0, 66, 86, 73, 20, 0, 88, 12, 59, & ! 3 & 0, 0, 0, 73, 45, 45, 62, 45, 62, 0, & ! 4 & 0, 0, 88, 33, 72, 0, 59, 20, 32, 0, & ! 5 & 72, 58, 59, 0, 45, 62, 62, 88, 12, 0, & ! 6 & 55, 0, 55, 55, 55, 55, 55, 55, 55, 87, & ! 7 & 87, 0, 88, 12, 33, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 33, 66, 49, 0, 0, 0, 0, & ! 1 & 59, 33, 70, 56, 0, 31, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 32, 32, 82, 58, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 59, 56, 88, 99, 33, & ! 7 & 0, 0, 0, 58, 141, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 160, & ! O & 0, 22, 0, 0, 129, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 22, 0, 0, 159, 0, 12, 0, 11, & ! 2 & 11, 66, 13, 0, 87, 0, 87, 87, 5, 13, & ! 3 & 0, 0, 0, 22, 0, 1, 173, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 60, 60, 60, 60, 60, 0, 0, & ! 1 & 0, 0, 0, 0, 56, 146, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 66, 33, 54, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 224, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0/ !2 DATA ( IRR( IRXXN, 13 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 32, 0, 0, 0, 0, & ! O & 0, 0, 0, 59, 0, 64, 59, 46, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 71, 67, 0, 71, 67, & ! 3 & 0, 62, 69, 56, 0, 50, 0, 0, 72, 69, & ! 4 & 61, 0, 54, 67, 55, 33, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 32, 0, 0, 0, & ! 2 & 0, 0, 0, 32, 74, 56, 0, 61, 53, 88, & ! 3 & 0, 0, 0, 74, 90, 90, 45, 90, 45, 0, & ! 4 & 0, 0, 72, 59, 64, 0, 88, 33, 67, 0, & ! 5 & 93, 12, 88, 0, 73, 45, 45, 72, 13, 0, & ! 6 & 43, 0, 43, 43, 43, 43, 43, 43, 43, 55, & ! 7 & 55, 0, 72, 13, 59, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 59, 42, 50, 0, 0, 0, 0, & ! 1 & 72, 59, 31, 71, 0, 53, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 146, 53, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 88, 33, 72, 93, 59, & ! 7 & 0, 0, 0, 53, 53, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 11, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 11, 0, 20, & ! 2 & 0, 12, 11, 0, 1, 0, 1, 1, 20, 1, & ! 3 & 0, 0, 0, 0, 0, 0, 163, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 12, 12, 12, 12, 12, 0, 0, & ! 1 & 0, 0, 0, 0, 32, 147, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 95, 55, 33, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 225, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0/ !2 DATA ( IRR( IRXXN, 14 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 64, 0, 32, 64, 59, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 61, 0, 0, 61, 0, & ! 3 & 0, 73, 76, 32, 0, 56, 0, 0, 64, 60, & ! 4 & 86, 0, 33, 0, 59, 55, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 66, 60, 0, 62, 13, 61, & ! 3 & 0, 0, 0, 81, 73, 73, 90, 73, 90, 0, & ! 4 & 0, 0, 32, 88, 67, 0, 99, 55, 0, 0, & ! 5 & 82, 13, 72, 0, 74, 90, 90, 61, 20, 0, & ! 6 & 83, 0, 83, 83, 83, 83, 83, 83, 83, 43, & ! 7 & 43, 0, 61, 20, 88, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 32, 47, 56, 0, 0, 0, 0, & ! 1 & 32, 64, 46, 146, 0, 56, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 67, 56, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 72, 59, 64, 82, 88, & ! 7 & 0, 0, 0, 56, 56, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 22, & ! 2 & 0, 11, 25, 0, 11, 0, 11, 11, 87, 163, & ! 3 & 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 1, 66, 66, 19, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 32, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 47, 59, 55, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0/ !2 DATA ( IRR( IRXXN, 15 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 32, 0, 0, 67, 71, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 67, 0, 0, 67, 0, & ! 3 & 0, 74, 77, 0, 0, 32, 0, 0, 71, 35, & ! 4 & 67, 0, 55, 0, 88, 59, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 32, 83, 0, 67, 56, 86, & ! 3 & 0, 0, 0, 97, 74, 74, 73, 74, 73, 0, & ! 4 & 0, 0, 67, 72, 0, 0, 92, 59, 0, 0, & ! 5 & 64, 20, 86, 0, 81, 73, 73, 62, 56, 0, & ! 6 & 84, 0, 84, 84, 84, 84, 84, 84, 84, 83, & ! 7 & 83, 0, 62, 56, 92, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 31, 33, 0, 0, 0, 0, & ! 1 & 0, 67, 59, 32, 0, 61, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 59, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 32, 88, 67, 146, 72, & ! 7 & 0, 0, 0, 59, 59, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 173, 173, 1, 87, & ! 3 & 0, 0, 0, 0, 0, 0, 79, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 22, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 31, 88, 59, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0/ !2 DATA ( IRR( IRXXN, 16 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 72, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 82, 81, 0, 0, 0, 0, 0, 61, 85, & ! 4 & 0, 0, 59, 0, 57, 88, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 84, 0, 105, 59, 67, & ! 3 & 0, 0, 0, 108, 81, 81, 74, 81, 74, 0, & ! 4 & 0, 0, 0, 64, 0, 0, 93, 88, 0, 0, & ! 5 & 32, 56, 32, 0, 64, 74, 74, 93, 59, 0, & ! 6 & 70, 0, 70, 70, 70, 70, 70, 70, 70, 84, & ! 7 & 84, 0, 93, 59, 93, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 56, 59, 0, 0, 0, 0, & ! 1 & 0, 0, 71, 0, 0, 73, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 88, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 67, 72, 0, 147, 92, & ! 7 & 0, 0, 0, 88, 88, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 22, 0, 11, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 56, 57, 88, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0/ !2 DATA ( IRR( IRXXN, 17 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 61, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 67, 83, 0, 0, 0, 0, 0, 67, 56, & ! 4 & 0, 0, 72, 0, 72, 57, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 70, 0, 0, 88, 0, & ! 3 & 0, 0, 0, 0, 67, 67, 81, 91, 81, 0, & ! 4 & 0, 0, 0, 67, 0, 0, 82, 57, 0, 0, & ! 5 & 67, 54, 67, 0, 67, 81, 81, 82, 88, 0, & ! 6 & 0, 0, 0, 22, 0, 0, 19, 13, 13, 70, & ! 7 & 70, 0, 82, 88, 82, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 33, 72, 0, 0, 0, 0, & ! 1 & 0, 0, 72, 0, 0, 74, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 71, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 64, 0, 32, 93, & ! 7 & 0, 0, 0, 71, 71, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 33, 72, 57, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0/ !2 DATA ( IRR( IRXXN, 18 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 73, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 84, 0, 0, 0, 0, 0, 0, 67, & ! 4 & 0, 0, 66, 0, 66, 72, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 66, 0, 0, 57, 0, & ! 3 & 0, 0, 0, 0, 97, 97, 67, 67, 91, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 64, 60, 0, 0, & ! 5 & 0, 33, 0, 0, 110, 91, 91, 64, 57, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 13, 31, 38, 95, & ! 7 & 95, 0, 64, 57, 86, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 59, 64, 0, 0, 0, 0, & ! 1 & 0, 0, 61, 0, 0, 82, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 62, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 67, 0, 67, 82, & ! 7 & 0, 0, 0, 62, 62, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 59, 66, 72, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0/ !2 DATA ( IRR( IRXXN, 19 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 74, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 70, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 64, 0, 64, 66, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 67, 0, 0, 71, 0, & ! 3 & 0, 0, 0, 0, 110, 112, 97, 97, 67, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 32, 35, 0, 0, & ! 5 & 0, 55, 0, 0, 0, 64, 64, 67, 60, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 33, 0, 0, & ! 7 & 0, 0, 67, 60, 67, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 88, 67, 0, 0, 0, 0, & ! 1 & 0, 0, 73, 0, 0, 146, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 93, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 146, & ! 7 & 0, 0, 0, 93, 93, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 88, 64, 66, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0/ !2 DATA ( IRR( IRXXN, 20 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 67, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 31, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 67, 0, 42, 64, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 62, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 112, 112, 97, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 67, 66, 0, 0, & ! 5 & 0, 59, 0, 0, 0, 67, 67, 105, 35, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 32, 0, 0, & ! 7 & 0, 0, 135, 35, 135, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 72, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 74, 0, 0, 147, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 82, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 147, & ! 7 & 0, 0, 0, 82, 82, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 72, 95, 64, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0/ !2 DATA ( IRR( IRXXN, 21 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 50, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 86, 32, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 66, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 112, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 32, 0, 0, & ! 5 & 0, 43, 0, 0, 0, 112, 131, 0, 61, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 61, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 64, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 67, 0, 0, 67, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 73, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 32, & ! 7 & 0, 0, 0, 73, 73, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 64, 94, 32, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0/ !2 DATA ( IRR( IRXXN, 22 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 56, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 32, 67, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 67, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 67, 0, 0, & ! 5 & 0, 57, 0, 0, 0, 0, 0, 0, 62, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 62, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 86, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 74, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 67, & ! 7 & 0, 0, 0, 74, 74, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 94, 32, 67, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0/ !2 DATA ( IRR( IRXXN, 23 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 61, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 67, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 105, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 72, 0, 0, 0, 0, 0, 0, 92, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 92, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 67, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 91, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 91, 91, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 67, 67, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0/ !2 DATA ( IRR( IRXXN, 24 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 67, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 60, 0, 0, 0, 0, 0, 0, 82, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 82, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 146, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 146, 146, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0/ !2 DATA ( IRR( IRXXN, 25 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 28, 0, 0, 0, 0, 0, 0, 66, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 66, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 67, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 67, 67, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0/ !2 DATA ( IRR( IRXXN, 26 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 35, 0, 0, 0, 0, 0, 0, 67, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 67, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0/ !2 DATA ( IRR( IRXXN, 27 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 66, 0, 0, 0, 0, 0, 0, 105, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 135, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0/ !2 DATA ( IRR( IRXXN, 28 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 32, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0/ !2 DATA ( IRR( IRXXN, 29 ), IRXXN = 1, NRXNS ) / & & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 67, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 2 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 3 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 4 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 5 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 6 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 7 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 8 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 9 & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! O & 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, & ! 1 & 0, 0, 0, 0, 0, 0, 0, 0, 0/ !2 DATA ( RTDAT( 1,IRXXN ), IRXXN = 1, NRXNS ) / & & 1.0000D+00, 5.6800D-34, 8.0000D-12, 9.0000D-32, 5.5000D-12, & ! O & 2.5000D-31, 3.0000D-12, 1.4000D-13, 1.8000D-11, 3.3000D-39, & ! + & 3.6000D-30, 1.3000D-03, 1.0000D-22, 0.0000D+00, 4.5000D-14, & ! 1 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.6300D-10, & ! + & 2.3800D-11, 7.0000D-31, 1.0000D+00, 2.5000D-12, 3.2000D-30, & ! 2 & 2.0000D-11, 2.4000D-14, 1.0000D+00, 1.4400D-13, 1.7000D-12, & ! + & 3.6000D-12, 2.0000D-31, 3.7200D-05, 1.0000D+00, 1.3000D-12, & ! 3 & 2.0300D-16, 2.2000D-13, 3.0800D-34, 4.0000D-12, 8.5000D-13, & ! + & 1.0000D+00, 1.8000D-12, 4.8000D-11, 3.3000D-31, 7.7000D-12, & ! 4 & 2.3000D-12, 3.4600D-13, 3.3400D-14, 1.3000D-12, 6.3900D-14, & ! + & 7.4000D-13, 2.6000D-12, 3.8000D-13, 2.3000D-12, 2.0000D-13, & ! 5 & 3.5000D-14, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 2.7000D-28, 4.9000D-03, 1.0000D+00, & ! 6 & 7.5000D-12, 5.2000D-13, 1.0000D+00, 2.0000D-12, 4.4000D-13, & ! + & 1.0000D+00, 2.9000D-12, 1.2100D-11, 8.3000D+16, 1.0000D+00, & ! 7 & 6.7000D-12, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.3700D-11, 7.9000D+16, & ! 8 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 9 & 1.0000D+00, 1.6000D+16, 1.0000D+00, 2.4000D-11, 7.5000D+14, & ! + & 2.3000D-11, 1.0000D+00, 1.0000D-03, 1.0000D+00, 1.0000D+00, & ! O & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 1 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 2 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 3 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 4 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 5 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 6 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 7 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 8 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 9 & 5.4000D-12, 2.0000D-12, 4.4000D-12, 1.0000D+00, 1.4000D-12, & ! + & 5.1000D-12, 1.0000D+00, 1.4000D-12, 4.5600D-14, 5.0000D-01, & ! O & 1.3000D-12, 1.7500D-01, 2.8500D-12, 4.5000D-13, 4.2000D-14, & ! + & 1.2000D-12, 3.8000D-12, 1.0000D+00, 2.5000D-11, 1.0000D+00, & ! 1 & 5.6000D-11, 1.0000D+00, 1.4100D-10, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 3.1000D-12, 2.8000D-12, 1.0000D+00, 1.5000D-11, & ! 2 & 1.4000D-12, 1.0000D+00, 1.7000D-12, 1.4000D-11, 3.5000D-12, & ! + & 1.5000D-03, 1.5000D-02, 1.2000D-11, 6.0000D-02, 1.3400D-12, & ! 3 & 7.4000D-11, 9.6600D-18, 1.0000D+00, 7.4000D-11, 9.6600D-18, & ! + & 1.0000D+00, 9.3500D-11, 1.4300D-17, 1.4000D-15, 6.3400D-12, & ! 4 & 8.5000D-16, 4.3200D-12, 1.0000D+00, 6.1900D-11, 4.1800D-18, & ! + & 1.0000D-13, 1.0000D+00, 1.5500D-11, 4.8600D-03, 7.2000D-12, & ! 5 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.9900D-11, 1.4000D-15, & ! + & 1.1800D-15, 2.3700D-12, 1.0000D+00, 5.2800D-12, 1.0000D+00, & ! 6 & 6.4200D-12, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 7 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 8 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 9 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! O & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 1 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 2 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 3 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 4 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 5 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 6 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 7 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 8 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 9 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! O & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 1 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 2 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 3 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 2.6500D-13, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 4 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 5 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 6 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 7 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 8 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 2.6500D-13, 1.0000D+00, 1.0000D+00, & ! 9 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! O & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 1 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.8500D-12, 1.0000D-28, 9.1400D-15, & ! 2 & 3.3000D-12, 1.0700D-11, 4.8500D-12, 5.5100D-15, 4.5900D-13, & ! + & 1.0200D-11, 1.4800D-11, 1.3400D-14, 1.0000D-13, 2.2600D-11, & ! 3 & 7.8600D-15, 3.5000D-11, 1.2100D-11, 5.0000D-16, 1.1900D-12, & ! + & 3.2000D-11, 5.5000D-30, 1.0000D-14, 2.3300D-12, 1.8100D-12, & ! 4 & 2.3100D-11, 1.3600D-11, 1.4300D-11, 3.2500D-11, 5.4900D-13, & ! + & 1.3400D-12, 1.4900D-12, 1.5100D-12, 3.7500D-12, 2.7000D-12, & ! 5 & 2.7000D-12, 6.7200D-12, 3.1900D-15, 5.3700D-13, 1.6100D-11, & ! + & 1.2600D-11, 8.5900D-15, 2.3100D-13, 1.4300D-11, 7.8400D-12, & ! 6 & 3.0900D-11, 3.0900D-11, 2.2700D-11, 8.2800D-16, 1.3300D-12, & ! + & 1.0000D+00, 2.6500D-13, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 7 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 4.0200D-11, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 8 & 1.0000D+00, 1.0000D+00, 7.6000D-32, 1.0000D+00, 1.3000D-30, & ! + & 1.8000D-31, 1.0000D+00, 1.0000D+00, 3.4400D-11, 9.4100D-12, & ! 9 & 2.8000D-11, 2.4000D-11, 6.2000D-12, 1.8000D-31, 1.0000D+00, & ! + & 1.0000D+00, 4.4800D-05, 6.2000D-12, 2.2000D-12, 1.0000D+00, & ! O & 1.2500D-11, 1.7000D-12, 3.9000D-11, 8.1000D-11, 8.0000D-11, & ! + & 5.5000D-11, 1.2300D-10, 7.7000D-11, 3.6000D-11, 1.9200D-10, & ! 1 & 2.0000D-10, 8.1000D-11, 8.0000D-11, 6.2000D-11, 8.0000D-11, & ! + & 1.6600D-10, 3.0000D-10, 4.2900D-10, 2.9400D-10, 2.3200D-10, & ! 2 & 4.1200D-10, 1.0000D+00, 3.1000D-12, 1.2900D-11, 5.0000D-01, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 3 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 4 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 5 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 7.3000D-12, 1.6000D-29, 2.6700D-10, 4.9000D-10, 4.8000D-10, & ! 6 & 5.4600D-10, 5.2000D-30, 6.2000D-11, 1.3500D-10, 1.4000D-10, & ! + & 1.4400D-10, 2.4200D-10, 8.6000D-11, 8.3000D-11, 1.2000D-10, & ! 7 & 1.8600D-10, 2.6300D-10, 4.2100D-10, 3.9200D-10, 3.7700D-10, & ! + & 2.1600D-10, 2.6600D-10, 2.6600D-10, 5.4600D-10, 1.0000D+00, & ! 8 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 9 & 5.4000D-12, 2.0000D-12, 8.1000D-11, 4.4000D-12, 1.0000D+00, & ! + & 1.4000D-12, 8.0000D-11, 1.9900D-11, 1.4000D-15, 1.1800D-15, & ! O & 2.3700D-12, 1.0000D+00, 2.9400D-10, 2.5400D-11, 2.6000D-12, & ! + & 2.0600D-13, 1.8000D-12, 6.8000D-13, 2.3000D-12, 4.4000D-13, & ! 1 & 4.0700D+08, 1.0000D+00, 4.6000D-11, 3.0300D-12, 2.3000D-12, & ! + & 2.6000D-12, 2.0600D-13, 1.3000D-12, 6.0400D-13, 1.2000D-12, & ! 2 & 4.4000D-13, 1.4200D-11, 2.6000D-12, 2.0600D-13, 2.0000D-13, & ! + & 3.5000D-14, 4.4000D-13, 3.9400D-15, 1.2000D-11, 2.4000D-12, & ! 3 & 2.0600D-13, 2.0000D-13, 3.5000D-14, 4.4000D-13, 2.9000D-17, & ! + & 2.4000D-12, 2.4000D-12, 2.0600D-13, 2.0000D-13, 3.5000D-14, & ! 4 & 4.4000D-13, 3.7000D-19, 3.1500D-13, 4.0000D-12, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 5 & 2.3000D-12, 2.6000D-12, 2.0600D-13, 3.5000D-14, 2.0000D-13, & ! + & 4.4000D-13, 4.1500D-15, 7.4800D-12, 2.6000D-12, 2.0600D-13, & ! 6 & 3.5000D-14, 2.0000D-13, 4.4000D-13, 2.6000D-12, 2.0600D-13, & ! + & 2.0000D-13, 3.5000D-14, 4.4000D-13, 2.6000D-12, 2.6000D-12, & ! 7 & 1.8200D-13, 2.0000D-13, 3.5000D-14, 4.4000D-13, 2.6000D-12, & ! + & 1.8200D-13, 2.0000D-13, 3.5000D-14, 4.4000D-13, 6.7000D-12, & ! 8 & 1.0000D+00, 4.0000D-12, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 2.9000D-11, & ! 9 & 8.0000D-12, 2.1500D-12, 1.7500D-01, 2.9400D-12, 1.0000D+00, & ! + & 4.0000D-13, 4.0000D-13, 1.0000D+00, 1.0000D+00, 3.5000D-12, & ! O & 1.0000D+00, 1.2800D-11, 1.0000D+00, 1.0000D-11, 1.0000D+00, & ! + & 1.9000D-11, 4.7500D-12, 5.7800D-11, 2.0600D-13, 2.6000D-12, & ! 1 & 2.0000D-13, 3.5000D-14, 4.4000D-13, 1.0000D+00, 8.0000D-12, & ! + & 5.0000D-11, 3.8000D-12, 8.0000D-12, 1.5000D-12, 1.0000D+00, & ! 2 & 3.8500D-10, 6.7000D-12, 1.0000D+00, 4.0000D-12, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 3 & 1.0000D+00, 1.0000D+00, 2.9000D+07, 1.0000D+00, 1.6000D+16, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 4 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 5 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 6 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 7 & 1.0000D+00, 3.0000D-11, 1.0000D-12, 4.4000D-12, 1.6600D-11, & ! + & 1.9200D-10, 7.2000D-12, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 8 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 6.7006D-11, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 9 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 9.4882D-06, & ! O & 9.4882D-06, 9.4882D-06, 9.4882D-06, 9.4882D-06, 9.4882D-06, & ! + & 2.5000D-12, 1.0000D+00, 2.5000D-12, 1.0000D+00, 1.2500D-11, & ! 1 & 4.0000D-11, 4.0000D-11, 4.0000D-11, 4.0000D-11, 4.0000D-11, & ! + & 4.0000D-11, 4.0000D-11, 4.0000D-11, 4.0000D-11, 4.0000D-11, & ! 2 & 9.2590D-05, 9.2590D-05, 1.0000D+00, 1.0000D+00/ !+ DATA ( RTDAT( 2,IRXXN ), IRXXN = 1, NRXNS ) / & & 0.0000D+00,-2.6000D+00, 0.0000D+00,-1.5000D+00, 0.0000D+00, & ! O & -1.8000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & -4.1000D+00,-3.5000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00,-2.6000D+00, 0.0000D+00, 0.0000D+00,-4.5000D+00, & ! 2 & 0.0000D+00, 4.6000D+02, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00,-3.4000D+00,-2.4000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 4.5700D+00, 6.0000D+02, 2.8000D+03, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00,-4.3000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 3.6000D-01,-3.5300D+00, 0.0000D+00,-1.8000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 5.2000D+01, 5.3000D+01, 5.4000D+01, 5.5000D+01, & ! + & 5.6000D+01, 5.6000D+01,-7.1000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 5.4000D+01, 0.0000D+00, 0.0000D+00, & ! + & 7.0000D+01, 0.0000D+00,-1.0700D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 6.7000D+01, 5.4000D+01, 6.9000D+01, 7.0000D+01, & ! + & 7.0000D+01, 7.2000D+01, 7.2000D+01, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 7.6000D+01, 6.7000D+01, 5.4000D+01, 6.9000D+01, & ! + & 7.0000D+01, 7.0000D+01, 7.2000D+01, 7.2000D+01, 7.2000D+01, & ! 9 & 7.3000D+01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 5.3000D+01, 0.0000D+00, 5.2000D+01, 5.3000D+01, & ! O & 5.4000D+01, 5.5000D+01, 5.6000D+01, 5.6000D+01, 7.0000D+01, & ! + & 7.0000D+01, 7.0000D+01, 7.0000D+01, 5.2000D+01, 5.3000D+01, & ! 1 & 5.4000D+01, 5.5000D+01, 5.6000D+01, 5.6000D+01, 7.0000D+01, & ! + & 7.0000D+01, 7.0000D+01, 7.0000D+01, 5.2000D+01, 5.3000D+01, & ! 2 & 5.4000D+01, 5.5000D+01, 5.6000D+01, 5.6000D+01, 7.0000D+01, & ! + & 7.0000D+01, 7.0000D+01, 7.0000D+01, 5.2000D+01, 5.3000D+01, & ! 3 & 5.4000D+01, 5.5000D+01, 5.6000D+01, 5.6000D+01, 7.0000D+01, & ! + & 7.0000D+01, 7.0000D+01, 7.0000D+01, 5.2000D+01, 5.3000D+01, & ! 4 & 5.4000D+01, 5.5000D+01, 5.6000D+01, 5.6000D+01, 7.0000D+01, & ! + & 7.0000D+01, 7.0000D+01, 7.0000D+01, 5.2000D+01, 5.3000D+01, & ! 5 & 5.4000D+01, 5.5000D+01, 5.6000D+01, 5.6000D+01, 7.0000D+01, & ! + & 7.0000D+01, 7.0000D+01, 7.0000D+01, 5.2000D+01, 5.3000D+01, & ! 6 & 5.4000D+01, 5.5000D+01, 5.6000D+01, 5.6000D+01, 7.0000D+01, & ! + & 7.0000D+01, 7.0000D+01, 7.0000D+01, 5.2000D+01, 5.3000D+01, & ! 7 & 5.4000D+01, 5.5000D+01, 5.6000D+01, 5.6000D+01, 7.0000D+01, & ! + & 7.0000D+01, 7.0000D+01, 7.0000D+01, 5.2000D+01, 5.3000D+01, & ! 8 & 5.4000D+01, 5.5000D+01, 5.6000D+01, 5.6000D+01, 7.0000D+01, & ! + & 7.0000D+01, 7.0000D+01, 7.0000D+01, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 3.6500D+00, 0.0000D+00, & ! O & 2.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 2.0000D+02, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 7.6000D+01, 7.3000D+01, 6.7000D+01, & ! + & 5.2000D+01, 5.3000D+01, 5.4000D+01, 5.5000D+01, 5.6000D+01, & ! 7 & 5.6000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, & ! + & 5.2000D+01, 5.3000D+01, 5.4000D+01, 5.5000D+01, 5.6000D+01, & ! 8 & 5.6000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, & ! + & 5.2000D+01, 5.3000D+01, 5.4000D+01, 5.5000D+01, 5.6000D+01, & ! 9 & 5.6000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, & ! + & 5.2000D+01, 5.3000D+01, 5.4000D+01, 5.5000D+01, 5.6000D+01, & ! O & 5.6000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, & ! + & 5.2000D+01, 5.3000D+01, 5.4000D+01, 5.5000D+01, 5.6000D+01, & ! 1 & 5.6000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, & ! + & 5.2000D+01, 5.3000D+01, 5.4000D+01, 5.5000D+01, 5.6000D+01, & ! 2 & 5.6000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, & ! + & 5.2000D+01, 5.3000D+01, 5.4000D+01, 5.5000D+01, 5.6000D+01, & ! 3 & 5.6000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, & ! + & 5.2000D+01, 5.3000D+01, 5.4000D+01, 5.5000D+01, 5.6000D+01, & ! 4 & 5.6000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, & ! + & 5.2000D+01, 5.3000D+01, 5.4000D+01, 5.5000D+01, 5.6000D+01, & ! 5 & 5.6000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, & ! + & 5.2000D+01, 5.3000D+01, 5.4000D+01, 5.5000D+01, 5.6000D+01, & ! 6 & 5.6000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, & ! + & 5.2000D+01, 5.3000D+01, 5.4000D+01, 5.5000D+01, 5.6000D+01, & ! 7 & 5.6000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, & ! + & 5.2000D+01, 5.3000D+01, 5.4000D+01, 5.5000D+01, 5.6000D+01, & ! 8 & 5.6000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, & ! + & 5.2000D+01, 5.3000D+01, 5.4000D+01, 5.5000D+01, 5.6000D+01, & ! 9 & 5.6000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, & ! + & 5.2000D+01, 5.3000D+01, 5.4000D+01, 5.5000D+01, 5.6000D+01, & ! O & 5.6000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, & ! + & 5.2000D+01, 5.3000D+01, 5.4000D+01, 5.5000D+01, 5.6000D+01, & ! 1 & 5.6000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, & ! + & 5.2000D+01, 5.3000D+01, 5.4000D+01, 5.5000D+01, 5.6000D+01, & ! 2 & 5.6000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, & ! + & 5.2000D+01, 5.3000D+01, 5.4000D+01, 5.5000D+01, 5.6000D+01, & ! 3 & 5.6000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, & ! + & 5.2000D+01, 0.0000D+00, 5.4000D+01, 5.5000D+01, 5.6000D+01, & ! 4 & 5.6000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, & ! + & 7.0000D+01, 5.2000D+01, 5.3000D+01, 5.4000D+01, 5.5000D+01, & ! 5 & 5.6000D+01, 5.6000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, & ! + & 7.0000D+01, 5.2000D+01, 5.3000D+01, 5.4000D+01, 5.5000D+01, & ! 6 & 5.6000D+01, 5.6000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, & ! + & 7.0000D+01, 5.2000D+01, 5.3000D+01, 5.4000D+01, 5.5000D+01, & ! 7 & 5.6000D+01, 5.6000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, & ! + & 7.0000D+01, 5.2000D+01, 5.3000D+01, 5.4000D+01, 5.5000D+01, & ! 8 & 5.6000D+01, 5.6000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, & ! + & 7.0000D+01, 5.2000D+01, 0.0000D+00, 5.4000D+01, 5.5000D+01, & ! 9 & 5.6000D+01, 5.6000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, & ! + & 7.0000D+01, 7.0000D+01, 5.2000D+01, 5.3000D+01, 5.4000D+01, & ! O & 5.5000D+01, 5.6000D+01, 5.6000D+01, 7.0000D+01, 7.0000D+01, & ! + & 7.0000D+01, 7.0000D+01, 5.2000D+01, 5.3000D+01, 5.4000D+01, & ! 1 & 5.5000D+01, 5.6000D+01, 5.6000D+01, 7.0000D+01, 7.0000D+01, & ! + & 7.0000D+01, 7.0000D+01, 0.0000D+00,-4.5000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.0000D+00, & ! + & 2.0000D+00, 2.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 5.2000D+01, 0.0000D+00, 5.4000D+01, 5.5000D+01, 5.6000D+01, & ! 7 & 5.6000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, & ! + & 7.0000D+01, 0.0000D+00, 5.6800D+02, 5.6900D+02, 5.7000D+02, & ! 8 & 5.8200D+02, 0.0000D+00,-1.8000D+00, 0.0000D+00,-2.0000D+00, & ! + & -2.0000D+00, 0.0000D+00, 0.0000D+00,-5.6000D-01, 2.1000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00,-3.4000D+00, 0.0000D+00, & ! + & 0.0000D+00,-1.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 5.2000D+01, 5.3000D+01, 5.4000D+01, 5.5000D+01, 5.6000D+01, & ! 3 & 5.6000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, & ! + & 5.2000D+01, 5.3000D+01, 5.4000D+01, 5.5000D+01, 5.6000D+01, & ! 4 & 5.6000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, & ! + & 5.2000D+01, 5.3000D+01, 5.4000D+01, 5.5000D+01, 5.6000D+01, & ! 5 & 5.6000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, & ! + & 0.0000D+00,-3.3000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00,-2.4000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 6.8400D+02, & ! 8 & 5.2000D+01, 5.3000D+01, 5.2000D+01, 5.3000D+01, 5.2000D+01, & ! + & 5.3000D+01, 5.2000D+01, 5.3000D+01, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 7.6000D+01, & ! + & 7.3000D+01, 6.7000D+01, 7.0000D+01, 6.9000D+01, 7.2000D+01, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 6.7000D+01, 0.0000D+00, 6.9000D+01, 7.0000D+01, 7.0000D+01, & ! + & 7.2000D+01, 7.2000D+01, 7.2000D+01, 7.2000D+01, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 6.7000D+01, 0.0000D+00, 6.9000D+01, & ! + & 7.0000D+01, 7.0000D+01, 7.2000D+01, 7.2000D+01, 7.2000D+01, & ! 3 & 7.2000D+01, 7.2000D+01, 0.0000D+00, 7.3000D+01, 0.0000D+00, & ! + & 0.0000D+00, 7.0000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, & ! 4 & 7.0000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, & ! + & 7.0000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, & ! 5 & 7.0000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, & ! + & 7.0000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, & ! 6 & 7.0000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, & ! + & 7.0000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, 7.0000D+01, & ! 7 & 7.0000D+01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 3.4153D-08, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00/ !+ DATA ( RTDAT( 3,IRXXN ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00,-2.0600D+03, 0.0000D+00, 1.8800D+02, & ! O & 0.0000D+00,-1.5000D+03,-2.4700D+03, 1.1000D+02, 5.3000D+02, & ! + & 0.0000D+00,-1.1000D+04, 0.0000D+00, 0.0000D+00,-1.2600D+03, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 6.0000D+01, & ! + & 9.6000D+01, 0.0000D+00, 0.0000D+00, 2.6000D+02, 0.0000D+00, & ! 2 & 0.0000D+00, 2.7000D-17, 0.0000D+00, 3.4300D-33,-9.4000D+02, & ! + & 2.7000D+02, 0.0000D+00,-1.0650D+04, 0.0000D+00, 3.8000D+02, & ! 3 & 6.9300D+02, 1.9000D-33, 2.6600D-54, 0.0000D+00,-2.4500D+03, & ! + & 0.0000D+00, 0.0000D+00, 2.5000D+02, 0.0000D+00,-2.1000D+03, & ! 4 & 3.6000D+02, 7.8000D+02, 7.8000D+02, 0.0000D+00, 3.6500D+02, & ! + & -5.2000D+02, 3.8000D+02, 9.0000D+02, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00,-1.2100D+04, 0.0000D+00, & ! 6 & 2.9000D+02, 9.8000D+02, 0.0000D+00, 5.0000D+02, 1.0700D+03, & ! + & 0.0000D+00, 5.0000D+02, 0.0000D+00,-1.3940D+04, 0.0000D+00, & ! 7 & 3.4000D+02, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00,-1.4000D+04, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00,-1.3486D+04, 0.0000D+00, 0.0000D+00,-8.1520D+03, & ! + & 1.5000D+02, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 1.3500D+02,-2.4310D+03, 3.6500D+02, 0.0000D+00,-1.8600D+03, & ! + & 4.0500D+02, 0.0000D+00,-1.6010D+03, 4.2900D+02, 0.0000D+00, & ! O & -2.5000D+01, 0.0000D+00,-3.4500D+02, 0.0000D+00, 8.5500D+02, & ! + & 0.0000D+00, 2.0000D+02, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 3.4220D+02,-2.3900D+03, 0.0000D+00, 0.0000D+00, & ! 2 & -1.8950D+03, 0.0000D+00, 9.5000D+02, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00,-1.8600D+03, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00,-2.1000D+03, 0.0000D+00, & ! 4 & -1.5200D+03, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00,-2.5280D+03, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 1.3000D+03, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 1.3000D+03, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00,-1.6900D+03, 0.0000D+00,-2.5800D+03, & ! 2 & -2.8800D+03,-8.0000D+02, 5.0400D+02,-1.8780D+03,-1.1560D+03, & ! + & -2.8000D+02, 4.4800D+02,-2.2830D+03, 0.0000D+00,-4.0000D+01, & ! 3 & -1.9120D+03, 0.0000D+00, 4.3600D+02,-5.3000D+02, 4.9000D+02, & ! + & 0.0000D+00, 0.0000D+00,-4.1000D+03,-1.9300D+02, 3.3800D+02, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 5.3000D+02, & ! + & -4.9900D+02,-8.7000D+01, 1.2600D+02, 4.4000D+01, 3.7400D+02, & ! 5 & 3.7400D+02, 5.0100D+02,-1.7010D+03,-1.0470D+03,-3.2600D+02, & ! + & 4.8800D+02,-1.2550D+03, 3.8200D+02, 1.1100D+02, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 4.3500D+02,-7.8500D+02, 4.9000D+02, & ! + & 0.0000D+00, 1.3000D+03, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & -2.5000D+02, 0.0000D+00, 2.9500D+02, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00,-1.2530D+04, 1.4500D+02, 3.4000D+02, 0.0000D+00, & ! O & -1.9600D+03,-2.3000D+02,-2.3100D+03,-3.0000D+01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00,-1.0000D+03, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00,-3.0000D+01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & -1.2800D+03, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 4.5000D+01,-1.0000D+02, 4.0000D+01, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 1.3500D+02,-2.4310D+03,-3.0000D+01, 3.6500D+02, 0.0000D+00, & ! + & -1.8600D+03, 0.0000D+00, 0.0000D+00,-2.5280D+03, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 4.1000D+02, 3.8000D+02, & ! + & 1.3000D+03, 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0700D+03, & ! 1 & -7.6940D+03, 0.0000D+00, 0.0000D+00,-4.4800D+02, 0.0000D+00, & ! + & 3.8000D+02, 1.3000D+03, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 1.0700D+03, 6.1000D+02, 3.8000D+02, 1.3000D+03, 0.0000D+00, & ! + & 0.0000D+00, 1.0700D+03,-1.5200D+03, 6.5200D+02, 3.6000D+02, & ! 3 & 1.3000D+03, 0.0000D+00, 0.0000D+00, 1.0700D+03, 0.0000D+00, & ! + & 7.4500D+02, 3.6000D+02, 1.3000D+03, 0.0000D+00, 0.0000D+00, & ! 4 & 1.0700D+03, 0.0000D+00,-4.4800D+02, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 3.8000D+02, 1.3000D+03, 0.0000D+00, 0.0000D+00, & ! + & 1.0700D+03,-1.5200D+03, 4.1000D+02, 3.8000D+02, 1.3000D+03, & ! 6 & 0.0000D+00, 0.0000D+00, 1.0700D+03, 3.8000D+02, 1.3000D+03, & ! + & 0.0000D+00, 0.0000D+00, 1.0700D+03, 6.1000D+02, 3.8000D+02, & ! 7 & 1.3000D+03, 0.0000D+00, 0.0000D+00, 1.0700D+03, 3.8000D+02, & ! + & 1.3000D+03, 0.0000D+00, 0.0000D+00, 1.0700D+03, 3.4000D+02, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 3.0500D+02, 0.0000D+00, 3.6500D+02, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.4000D+02, & ! O & 0.0000D+00, 4.0500D+02, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 3.9000D+02, 2.0000D+02,-4.0000D+02, 1.3000D+03, 3.8000D+02, & ! 1 & 0.0000D+00, 0.0000D+00, 1.0700D+03, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 2.0000D+02, 3.8000D+02,-1.8150D+03, 0.0000D+00, & ! 2 & 0.0000D+00, 3.4000D+02, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00,-5.2970D+03, 0.0000D+00,-1.3486D+04, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 2.0000D-06, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00/ !+ INTEGER :: IRRFALL( NFALLOFF ) DATA ( IRRFALL( IRXXN ), IRXXN = 1, NFALLOFF ) / & & 4, 6, 11, 12, 22, 25, 27, 29, 32, 33, & & 37, 38, 44, 63, 64, 524, 542, 590, 591, 599, & & 602, 662, 667, 892/ DATA ( RFDAT( 1,IRXXN ), IRXXN = 1, NFALLOFF ) / & & 3.0000D-11, 2.2000D-11, 1.9000D-12, 9.7000D+14, 3.6000D-11, & & 3.0000D-11, 2.1990D+03, 0.0000D+00, 2.9000D-12, 5.4200D+15, & & 9.8000D+02, 3.1800D+03, 1.6000D-12, 1.2100D-11, 4.0000D+16, & & 8.8000D-12, 8.3000D-13, 1.0000D-10, 1.0000D-10, 1.5000D-11, & & 3.7100D+15, 3.1000D-10, 2.2000D-10, 1.0743D+01/ DATA ( RFDAT( 2,IRXXN ), IRXXN = 1, NFALLOFF ) / & & 0.0000D+00,-7.0000D-01, 2.0000D-01, 1.0000D-01,-1.0000D-01, & & 0.0000D+00, 6.5000D-34, 0.0000D+00,-1.1000D+00,-2.3000D+00, & & 0.0000D+00, 0.0000D+00, 0.0000D+00,-9.0000D-01, 0.0000D+00, & & -8.5000D-01,-2.0000D+00,-1.0000D+00,-1.0000D+00,-1.9000D+00, & & 3.5000D+00,-1.0000D+00, 0.0000D+00,-6.7130D-01/ DATA ( RFDAT( 3,IRXXN ), IRXXN = 1, NFALLOFF ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00,-1.1080D+04, 0.0000D+00, & & 0.0000D+00, 1.3350D+03, 0.0000D+00, 0.0000D+00,-1.1170D+04, & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00,-1.3600D+04, & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & & -1.2530D+04, 0.0000D+00, 0.0000D+00, 0.0000D+00/ DATA ( RFDAT( 4,IRXXN ), IRXXN = 1, NFALLOFF ) / & & 6.0000D-01, 6.0000D-01, 3.5000D-01, 3.5000D-01, 6.0000D-01, & & 4.1000D-01, 0.0000D+00, 0.0000D+00, 6.0000D-01, 6.0000D-01, & & 0.0000D+00, 0.0000D+00, 6.0000D-01, 3.0000D-01, 3.0000D-01, & & 6.0000D-01, 6.0000D-01, 6.0000D-01, 6.0000D-01, 6.0000D-01, & & 6.0000D-01, 6.0000D-01, 6.0000D-01, 0.0000D+00/ DATA ( RFDAT( 5,IRXXN ), IRXXN = 1, NFALLOFF ) / & & 1.0000D+00, 1.0000D+00, 1.3300D+00, 1.3300D+00, 1.0000D+00, & & 1.2400D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, & & 0.0000D+00, 0.0000D+00, 1.0000D+00, 1.4100D+00, 1.4100D+00, & & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & & 1.0000D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00/ REAL( 8 ) :: SC( NRXNS,MXPRD ) DATA ( SC( IRXXN, 1 ), IRXXN = 1, NRXNS ) / & & 1.0000D+00, 1.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, & ! O & 1.0000D+00, 1.0000D+00, 1.0000D+00, 2.0000D+00, 2.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 2.0000D+00, 2.0000D+00, 1.0000D+00, & ! 1 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 2.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 2 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 6.1000D-01, 1.0000D+00, & ! 3 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 8.0000D-01, 2.0000D+00, & ! + & 2.0000D+00, 1.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, & ! 4 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 2.0000D+00, 1.0000D+00, 0.0000D+00, 1.0000D+00, 5.0000D-01, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, 5.0000D-01, & ! + & 0.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, 6.0000D-01, & ! 6 & 1.0000D+00, 1.0500D-01, 1.0000D+00, 1.0000D-01, 1.0000D+00, & ! + & 1.0000D+00, 2.0000D+00, 1.0000D+00, 1.0000D+00, 6.0000D-01, & ! 7 & 1.0000D+00, 3.0750D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 2.0000D+00, 2.0000D+00, 1.0000D+00, 1.0000D+00, & ! 8 & 6.0000D-01, 1.0000D+00, 3.0750D-01, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 2.0000D+00, 2.0000D+00, 2.0000D+00, & ! 9 & 1.0000D+00, 1.0000D+00, 6.0000D-01, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! O & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 1 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 2 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 3 & 1.0000D+00, 1.5000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 4 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 2.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 5 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 2.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 6 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 2.0000D+00, 1.0000D+00, 1.0000D+00, & ! 7 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 8 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 2.0000D+00, 1.0000D+00, & ! 9 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 9.6500D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 6.2000D-01, & ! O & 9.6700D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 5.0900D-01, & ! + & 1.0000D+00, 3.0000D-01, 1.0000D+00, 7.4400D-01, 1.0000D+00, & ! 1 & 8.4000D-01, 1.0000D+00, 1.3900D-01, 1.0000D+00, 2.0000D+00, & ! + & 1.0000D+00, 7.0000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 2 & 1.0000D+00, 2.0000D+00, 2.0000D-01, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, 1.0000D+00, & ! 3 & 2.1700D-01, 8.2600D-01, 1.0230D+00, 2.1700D-01, 8.2600D-01, & ! + & 1.0000D+00, 2.0600D-01, 4.7100D-01, 2.0800D-01, 1.0000D+00, & ! 4 & 1.6400D-01, 4.5000D-01, 4.0000D-01, 2.8900D-01, 2.8500D-01, & ! + & 1.5000D-01, 1.2330D+00, 4.7200D-01, 9.1300D-01, 1.8900D-01, & ! 5 & 3.4400D-01, 1.0000D+00, 1.0000D+00, 2.5000D-01, 8.3000D-01, & ! + & 3.1000D-02, 1.0000D+00, 1.0660D+00, 9.8000D-01, 1.0000D+00, & ! 6 & 8.0600D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 4.4000D-01, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 7 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 8 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 9 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! O & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 1 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 2 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 3 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 4 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 5 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 6 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 7 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 8 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 9 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! O & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 1 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 2 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 3 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 4 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 5 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 6 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 7 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 8 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 9 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! O & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 1 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.6000D-01, & ! 2 & 1.0000D+00, 8.0000D-01, 9.8400D-01, 1.6500D-01, 9.4900D-01, & ! + & 4.5000D-01, 9.5100D-01, 8.0000D-02, 8.1500D-01, 2.5000D-01, & ! 3 & 6.6000D-02, 2.5000D-01, 7.9900D-01, 9.0000D-03, 5.6000D-02, & ! + & 1.0000D+00, 3.0000D-01, 1.5000D+00, 5.7000D-01, 1.8100D-01, & ! 4 & 1.5900D-01, 1.6100D-01, 1.5900D-01, 2.2000D-02, 9.5000D-01, & ! + & 1.0000D+00, 9.6500D-01, 6.9500D-01, 8.3000D-01, 6.4700D-01, & ! 5 & 1.0000D+00, 8.7100D-01, 9.5000D-02, 7.7200D-01, 4.5000D-01, & ! + & 9.1200D-01, 9.4000D-02, 4.0000D-01, 7.9000D-02, 1.2300D-01, & ! 6 & 7.7000D-02, 7.7000D-02, 7.3400D-01, 7.8000D-02, 1.0000D+00, & ! + & 8.2700D-01, 1.0000D+00, 1.5310D+00, 2.6600D-01, 2.6600D-01, & ! 7 & 2.6600D-01, 5.3100D-01, 5.3100D-01, 5.3100D-01, 1.0000D+00, & ! + & 1.0000D+00, 2.3700D-01, 7.3400D-01, 7.8000D-02, 2.2700D-01, & ! 8 & 2.3700D-01, 2.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 9 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! O & 2.9000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 1 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 4.0400D-01, 4.8400D-01, 1.2830D+00, & ! 2 & 4.0100D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 3 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 4 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 5 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.2400D-01, 3.9000D-01, 1.5000D-01, & ! 6 & 5.4800D-01, 1.0000D+00, 8.9400D-01, 8.6400D-01, 8.6400D-01, & ! + & 8.6400D-01, 8.3800D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 7 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 3.8400D-01, 2.7900D-01, & ! + & 8.4000D-01, 8.2800D-01, 8.2800D-01, 5.4800D-01, 2.5200D-01, & ! 8 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! O & 1.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, 4.0000D-01, & ! + & 8.8000D-01, 9.5000D-01, 4.5000D-01, 9.1000D-01, 1.0000D+00, & ! 1 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 7.0000D-01, & ! + & 7.0000D-01, 1.0000D+00, 6.0000D-01, 6.0000D-01, 1.2000D+00, & ! 2 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.1700D-01, & ! + & 1.1700D-01, 1.0000D+00, 5.0000D-01, 1.0000D+00, 3.4000D-01, & ! 3 & 1.0000D+00, 1.7000D-01, 1.7000D-01, 1.0000D+00, 3.6000D-01, & ! + & 1.0000D+00, 6.0000D-01, 1.0000D+00, 3.0000D-01, 3.0000D-01, & ! 4 & 1.0000D+00, 1.2000D-01, 6.0000D-01, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 7.5000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 5 & 1.0000D+00, 9.4000D-01, 1.0000D+00, 7.0000D-01, 7.0000D-01, & ! + & 1.0000D+00, 3.0000D-01, 3.4500D-01, 9.1900D-01, 1.0000D+00, & ! 6 & 6.8900D-01, 6.8900D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 5.0000D-01, 1.0000D+00, 1.0000D+00, 6.2500D-01, & ! 7 & 1.0000D+00, 3.5000D-01, 3.5000D-01, 1.0000D+00, 8.5000D-01, & ! + & 1.0000D+00, 1.0000D+00, 5.0000D-01, 1.0000D+00, 1.0000D+00, & ! 8 & 3.0750D-01, 1.0000D+00, 2.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 2.0000D+00, 1.0000D+00, 1.0000D+00, 2.0000D+00, 1.0000D+00, & ! 9 & 7.5000D-01, 7.5000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 6.5000D-01, & ! O & 1.0000D+00, 8.0000D-02, 1.0000D+00, 1.5000D+00, 1.0000D+00, & ! + & 1.0000D+00, 3.8700D-01, 1.0000D+00, 7.2500D-01, 7.2500D-01, & ! 1 & 3.6300D-01, 3.6300D-01, 7.2500D-01, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 3.0000D-01, 5.3000D-01, 5.0000D-01, 3.3000D-01, & ! 2 & 2.5000D-01, 1.0000D+00, 7.5000D-01, 1.0000D+00, 2.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 2.0000D+00, 1.0000D+00, 1.0000D+00, & ! 3 & 2.0000D+00, 2.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 6.0000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 4 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 5 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 6 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 7 & 1.0000D+00, 3.0000D-02, 0.0000D+00, 0.0000D+00, 8.3000D-01, & ! + & 1.0000D+00, 1.8900D-01, 3.4400D-01, 5.0000D-01, 1.0000D+00, & ! 8 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 9 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 5.0000D-01, & ! O & 5.0000D-01, 1.5000D+00, 9.0700D-01, 9.2500D-01, 9.4300D-01, & ! + & 1.2500D+00, 1.0000D+00, 1.2500D+00, 1.0000D+00, 1.0000D+00, & ! 1 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 2 & 1.0000D+00, 2.0000D+00, 1.0000D+00, 1.0000D+00/ !+ DATA ( SC( IRXXN, 2 ), IRXXN = 1, NRXNS ) / & & 1.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 1.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, & ! 1 & 0.0000D+00, 1.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 1.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00, & ! + & 1.0000D+00, 0.0000D+00, 1.0000D+00, 6.1000D-01, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 8.0000D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, & ! 4 & 1.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 2.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 7.5000D-01, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 7.5000D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, 6.0000D-01, & ! 6 & 1.0000D+00, 4.5000D-02, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 2.0000D+00, 0.0000D+00, 1.0000D+00, 6.0000D-01, & ! 7 & 1.0000D+00, 1.0250D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 2.0000D+00, 0.0000D+00, 1.0000D+00, & ! 8 & 6.0000D-01, 1.0000D+00, 1.0250D-01, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 2.0000D+00, 2.0000D+00, & ! 9 & 0.0000D+00, 1.0000D+00, 6.0000D-01, 0.0000D+00, 1.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00, & ! O & 1.0000D+00, 5.0000D-01, 5.0000D-01, 5.0000D-01, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00, & ! 1 & 1.0000D+00, 5.0000D-01, 5.0000D-01, 5.0000D-01, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00, & ! 2 & 1.0000D+00, 5.0000D-01, 5.0000D-01, 5.0000D-01, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00, & ! 3 & 1.0000D+00, 0.0000D+00, 5.0000D-01, 5.0000D-01, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00, & ! 4 & 1.0000D+00, 5.0000D-01, 5.0000D-01, 5.0000D-01, 0.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00, & ! 5 & 1.0000D+00, 5.0000D-01, 5.0000D-01, 5.0000D-01, 1.0000D+00, & ! + & 0.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00, & ! 6 & 1.0000D+00, 5.0000D-01, 5.0000D-01, 5.0000D-01, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, & ! 7 & 1.0000D+00, 5.0000D-01, 5.0000D-01, 5.0000D-01, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00, & ! 8 & 1.0000D+00, 5.0000D-01, 5.0000D-01, 5.0000D-01, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00, & ! 9 & 1.0000D+00, 1.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 3.5000D-02, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.3800D+00, & ! O & 3.9000D-02, 1.0000D+00, 1.0000D+00, 1.0000D+00, 4.9100D-01, & ! + & 1.0000D+00, 3.0000D-01, 1.0000D+00, 2.5100D-01, 1.0000D+00, & ! 1 & 2.2200D-01, 1.4200D-01, 1.4800D-01, 1.0000D+00, 2.0000D+00, & ! + & 1.0000D+00, 1.4000D+00, 7.0000D-01, 1.0000D+00, 1.0000D+00, & ! 2 & 1.0000D+00, 0.0000D+00, 8.0000D-01, 1.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, & ! 3 & 7.2300D-01, 5.2200D-01, 1.7300D-01, 7.2300D-01, 5.2200D-01, & ! + & 0.0000D+00, 7.3300D-01, 5.5400D-01, 1.0800D-01, 0.0000D+00, & ! 4 & 6.4000D-02, 5.5000D-01, 6.0000D-01, 6.7000D-01, 4.0000D-01, & ! + & 1.5000D-01, 4.6700D-01, 3.7900D-01, 4.0000D-01, 3.0500D-01, & ! 5 & 5.5400D-01, 2.0000D+00, 1.0000D+00, 7.5000D-01, 3.3000D-01, & ! + & 9.6700D-01, 0.0000D+00, 1.7800D-01, 2.0000D-02, 1.0000D+00, & ! 6 & 1.9400D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 4.4000D-01, & ! + & 1.0000D+00, 0.0000D+00, 1.0000D+00, 5.0000D-01, 5.0000D-01, & ! 7 & 5.0000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 0.0000D+00, 1.0000D+00, 5.0000D-01, 5.0000D-01, & ! 8 & 5.0000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 0.0000D+00, 1.0000D+00, 5.0000D-01, 5.0000D-01, & ! 9 & 5.0000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 0.0000D+00, 1.0000D+00, 5.0000D-01, 5.0000D-01, & ! O & 5.0000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 0.0000D+00, 1.0000D+00, 5.0000D-01, 5.0000D-01, & ! 1 & 5.0000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 0.0000D+00, 1.0000D+00, 5.0000D-01, 5.0000D-01, & ! 2 & 5.0000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 0.0000D+00, 1.0000D+00, 5.0000D-01, 5.0000D-01, & ! 3 & 5.0000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 0.0000D+00, 1.0000D+00, 5.0000D-01, 5.0000D-01, & ! 4 & 5.0000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 0.0000D+00, 1.0000D+00, 5.0000D-01, 5.0000D-01, & ! 5 & 5.0000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 0.0000D+00, 1.0000D+00, 5.0000D-01, 5.0000D-01, & ! 6 & 5.0000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 0.0000D+00, 1.0000D+00, 5.0000D-01, 5.0000D-01, & ! 7 & 5.0000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 0.0000D+00, 1.0000D+00, 5.0000D-01, 5.0000D-01, & ! 8 & 5.0000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 0.0000D+00, 1.0000D+00, 5.0000D-01, 5.0000D-01, & ! 9 & 5.0000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 0.0000D+00, 1.0000D+00, 5.0000D-01, 5.0000D-01, & ! O & 5.0000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 0.0000D+00, 1.0000D+00, 5.0000D-01, 5.0000D-01, & ! 1 & 5.0000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 0.0000D+00, 1.0000D+00, 5.0000D-01, 5.0000D-01, & ! 2 & 5.0000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 0.0000D+00, 1.0000D+00, 5.0000D-01, 5.0000D-01, & ! 3 & 5.0000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 0.0000D+00, 1.0000D+00, 5.0000D-01, 5.0000D-01, & ! 4 & 5.0000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, 5.0000D-01, & ! 5 & 5.0000D-01, 5.0000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, 5.0000D-01, & ! 6 & 5.0000D-01, 5.0000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, 5.0000D-01, & ! 7 & 5.0000D-01, 5.0000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 1.0000D+00, 0.0000D+00, 1.0000D+00, 5.0000D-01, & ! 8 & 5.0000D-01, 5.0000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 0.0000D+00, 1.0000D+00, 5.0000D-01, & ! 9 & 5.0000D-01, 5.0000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00, 1.0000D+00, & ! O & 5.0000D-01, 5.0000D-01, 5.0000D-01, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00, 1.0000D+00, & ! 1 & 5.0000D-01, 5.0000D-01, 5.0000D-01, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 0.0000D+00, 1.0000D+00, 1.6000D-01, & ! 2 & 1.0000D+00, 2.9000D-01, 9.8400D-01, 3.5000D-01, 9.4900D-01, & ! + & 5.5000D-01, 1.1890D+00, 8.0000D-02, 1.2000D-01, 1.1700D-01, & ! 3 & 2.6600D-01, 2.4000D-01, 4.0000D-03, 1.0200D-01, 6.4300D-01, & ! + & 1.0000D+00, 7.0000D-01, 5.0000D-01, 2.9000D-01, 4.5400D-01, & ! 4 & 5.2000D-01, 5.5400D-01, 4.8700D-01, 6.2700D-01, 5.0000D-02, & ! + & 1.0000D+00, 9.6500D-01, 2.3600D-01, 1.0000D-02, 1.6050D+00, & ! 5 & 6.0000D-03, 1.0000D-03, 5.7000D-02, 1.4630D+00, 3.9000D-01, & ! + & 9.5300D-01, 4.1000D-02, 4.2600D-01, 7.5100D-01, 5.6600D-01, & ! 6 & 6.1700D-01, 6.1700D-01, 6.4000D-02, 4.6000D-02, 0.0000D+00, & ! + & 6.8800D-01, 0.0000D+00, 4.2200D-01, 7.1100D-01, 7.1100D-01, & ! 7 & 7.1100D-01, 4.2200D-01, 4.2200D-01, 4.2200D-01, 1.0430D+00, & ! + & 1.0430D+00, 7.6300D-01, 6.4000D-02, 4.6000D-02, 2.8700D-01, & ! 8 & 7.6300D-01, 0.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00, 1.0000D+00, & ! 9 & 0.0000D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00, 1.0000D+00, & ! O & 1.4200D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 9.0000D-01, 1.0000D+00, 9.7500D-01, 3.8000D-02, & ! 1 & 3.1400D-01, 6.3000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 4.1400D-01, 1.4500D-01, 1.3900D-01, 2.7400D-01, 5.3000D-02, & ! 2 & 8.4000D-02, 1.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 0.0000D+00, 1.0000D+00, 5.0000D-01, 5.0000D-01, & ! 3 & 5.0000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 0.0000D+00, 1.0000D+00, 5.0000D-01, 5.0000D-01, & ! 4 & 5.0000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 0.0000D+00, 1.0000D+00, 5.0000D-01, 5.0000D-01, & ! 5 & 5.0000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 2.0000D+00, 9.7100D-01, 5.4100D-01, 7.3800D-01, & ! 6 & 2.5200D-01, 1.0000D+00, 8.9400D-01, 8.6400D-01, 8.6400D-01, & ! + & 8.6400D-01, 8.3800D-01, 6.8800D-01, 1.0000D+00, 9.7000D-01, & ! 7 & 8.3500D-01, 8.2700D-01, 6.4700D-01, 8.7300D-01, 4.5000D-01, & ! + & 8.4000D-01, 8.2800D-01, 8.2800D-01, 2.5200D-01, 6.8000D-02, & ! 8 & 3.4000D-02, 1.4600D-01, 1.5000D-02, 1.9300D-01, 1.6000D-02, & ! + & 1.4000D-01, 2.8000D-02, 4.7300D-01, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, 2.6000D-01, & ! + & 1.2000D-01, 1.1200D+00, 3.7000D-01, 7.5000D-01, 1.0000D+00, & ! 1 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00, 3.5000D-02, & ! + & 3.5000D-02, 0.0000D+00, 1.7500D-02, 1.7500D-02, 3.5000D-02, & ! 2 & 1.0000D+00, 0.0000D+00, 2.3400D-01, 0.0000D+00, 1.1700D-01, & ! + & 1.1700D-01, 1.0000D+00, 3.5000D-01, 0.0000D+00, 1.5000D-01, & ! 3 & 0.0000D+00, 7.5000D-02, 7.5000D-02, 1.0000D+00, 2.9000D-01, & ! + & 0.0000D+00, 6.0000D-01, 0.0000D+00, 3.0000D-01, 3.0000D-01, & ! 4 & 1.0000D+00, 3.2000D-01, 6.0000D-01, 1.0000D+00, 1.0000D+00, & ! + & 0.0000D+00, 2.5000D-01, 1.0000D+00, 1.0000D+00, 2.0000D+00, & ! 5 & 1.0000D+00, 9.4000D-01, 0.0000D+00, 7.0000D-01, 7.0000D-01, & ! + & 1.0000D+00, 4.5000D-01, 6.5500D-01, 9.1900D-01, 0.0000D+00, & ! 6 & 6.8900D-01, 6.8900D-01, 1.0000D+00, 1.0000D+00, 0.0000D+00, & ! + & 2.6000D-01, 2.6000D-01, 5.2000D-01, 0.0000D+00, 6.2500D-01, & ! 7 & 0.0000D+00, 3.5000D-01, 3.5000D-01, 1.0000D+00, 8.5000D-01, & ! + & 0.0000D+00, 4.2400D-01, 4.2400D-01, 1.0000D+00, 1.0000D+00, & ! 8 & 1.0250D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 2.0000D+00, 2.0000D+00, 2.0000D+00, 2.0000D+00, 1.0000D+00, & ! 9 & 2.5000D-01, 8.2500D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 6.5000D-01, & ! O & 1.0000D+00, 8.0000D-02, 1.0000D+00, 5.0000D-01, 1.0000D+00, & ! + & 1.0000D+00, 6.1300D-01, 0.0000D+00, 2.7500D-01, 2.7500D-01, & ! 1 & 1.3800D-01, 1.3800D-01, 2.7500D-01, 9.1000D-01, 1.0000D+00, & ! + & 1.0000D+00, 7.0000D-01, 4.7000D-01, 5.0000D-01, 6.7000D-01, & ! 2 & 1.6500D-01, 1.0000D+00, 2.5000D-01, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 2.0000D+00, 2.0000D+00, 2.0000D+00, & ! 3 & 2.0000D+00, 2.0000D+00, 1.0000D+00, 0.0000D+00, 1.0000D+00, & ! + & 6.0000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 4 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 6 & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 7 & 1.0000D+00, 3.0000D-02, 0.0000D+00, 0.0000D+00, 1.7000D-01, & ! + & 3.8000D-02, 3.0500D-01, 5.5400D-01, 5.0000D-01, 1.0000D+00, & ! 8 & 1.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 1.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, 1.0000D+00, & ! 1 & 4.8570D-01, 3.0030D-01, 3.8560D-01, 2.1810D-01, 2.4120D-01, & ! + & 6.6640D-01, 2.8580D-01, 3.3030D-01, 3.4440D-01, 3.8860D-01, & ! 2 & 1.0000D+00, 5.0000D-01, 0.0000D+00, 0.0000D+00/ !+ DATA ( SC( IRXXN, 3 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 3.9000D-01, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.0000D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, & ! 4 & 1.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.5000D-01, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.5000D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 4.0000D-01, & ! 6 & 1.0000D+00, 1.5000D-01, 1.0000D+00, 9.0000D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 4.0000D-01, & ! 7 & 1.0000D+00, 1.5000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 2.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 4.0000D-01, 1.0000D+00, 1.5000D-01, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 2.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 4.0000D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 1.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, & ! + & 3.5000D-02, 1.0000D+00, 0.0000D+00, 1.0000D+00, 3.8000D-01, & ! O & 3.9000D-02, 1.0000D+00, 0.0000D+00, 0.0000D+00, 5.0900D-01, & ! + & 1.4300D-01, 7.0000D-01, 1.0000D+00, 4.0000D-03, 1.0000D+00, & ! 1 & 2.9000D-02, 7.8200D-01, 5.8900D-01, 5.0000D-01, 0.0000D+00, & ! + & 0.0000D+00, 3.0000D-01, 1.4000D+00, 1.0000D+00, 0.0000D+00, & ! 2 & 1.0000D+00, 0.0000D+00, 8.0000D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 6.0000D-02, 6.5200D-01, 3.0500D-01, 6.0000D-02, 6.5200D-01, & ! + & 0.0000D+00, 1.1700D-01, 1.3000D-02, 1.0000D-01, 0.0000D+00, & ! 4 & 5.0000D-02, 0.0000D+00, 6.0000D-01, 6.7000D-01, 4.8000D-02, & ! + & 7.9900D-01, 3.0000D-01, 2.9000D-02, 6.0000D-01, 1.9000D-02, & ! 5 & 1.0000D+00, 1.0000D+00, 0.0000D+00, 2.5000D-01, 1.0050D+00, & ! + & 3.1000D-02, 0.0000D+00, 2.3400D-01, 2.0000D-02, 1.0000D+00, & ! 6 & 1.9400D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 4.4000D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, 5.0000D-01, & ! 8 & 5.0000D-01, 5.0000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, 5.0000D-01, & ! 9 & 5.0000D-01, 5.0000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.6100D+00, 5.1000D-01, & ! 2 & 1.0000D+00, 5.1000D-01, 1.6000D-02, 3.5500D-01, 5.1000D-02, & ! + & 0.0000D+00, 4.9000D-02, 2.5500D-01, 1.0550D+00, 1.1800D-01, & ! 3 & 1.9200D-01, 2.4000D-01, 1.0420D+00, 7.2800D-01, 7.0000D-03, & ! + & 0.0000D+00, 3.0000D-01, 1.5000D+00, 1.1600D-01, 3.1200D-01, & ! 4 & 2.3900D-01, 1.9800D-01, 2.7800D-01, 2.3000D-01, 5.0000D-02, & ! + & 1.0000D+00, 3.5000D-02, 1.2530D+00, 1.1000D-02, 3.5300D-01, & ! 5 & 5.2000D-02, 1.2020D+00, 1.2800D-01, 2.2800D-01, 1.6000D-01, & ! + & 8.8000D-02, 4.4300D-01, 3.5000D-02, 1.7000D-01, 2.0200D-01, & ! 6 & 1.7800D-01, 1.7800D-01, 1.2110D+00, 4.9900D-01, 0.0000D+00, & ! + & 4.2400D-01, 0.0000D+00, 7.8600D-01, 3.9300D-01, 3.9300D-01, & ! 7 & 3.9300D-01, 7.8600D-01, 1.7860D+00, 1.7860D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.2110D+00, 4.9900D-01, 2.6000D-02, & ! 8 & 1.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, & ! + & 1.0000D+00, 1.0000D-01, 1.0000D+00, 3.9000D-02, 5.5000D-02, & ! 1 & 6.8000D-01, 1.2600D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00, & ! + & 5.8800D-01, 1.0780D+00, 1.4800D-01, 2.1600D-01, 5.3000D-02, & ! 2 & 1.5400D-01, 1.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 1.0000D+00, 9.7100D-01, 1.8840D+00, 1.7700D-01, & ! 6 & 6.8000D-02, 0.0000D+00, 1.0600D-01, 1.3600D-01, 1.3600D-01, & ! + & 1.3600D-01, 1.6200D-01, 3.1200D-01, 1.0000D+00, 9.7000D-01, & ! 7 & 9.4000D-02, 3.0000D-03, 1.5410D+00, 1.6080D+00, 4.4200D-01, & ! + & 1.6000D-01, 1.7200D-01, 1.7200D-01, 6.8000D-02, 3.4000D-02, & ! 8 & 3.9200D-01, 0.0000D+00, 2.3000D-02, 0.0000D+00, 5.1000D-02, & ! + & 0.0000D+00, 2.2500D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 8.8300D-01, & ! + & 4.7000D-02, 2.3000D-01, 2.3000D-01, 4.5000D-01, 9.1000D-01, & ! 1 & 0.0000D+00, 5.0000D-01, 0.0000D+00, 0.0000D+00, 3.5000D-02, & ! + & 3.5000D-02, 0.0000D+00, 1.7500D-02, 1.7500D-02, 3.5000D-02, & ! 2 & 7.0000D-01, 0.0000D+00, 2.3400D-01, 0.0000D+00, 1.0800D-01, & ! + & 1.0800D-01, 2.3400D-01, 7.9000D-01, 0.0000D+00, 4.4000D-01, & ! 3 & 0.0000D+00, 2.2000D-01, 2.2000D-01, 3.4000D-01, 7.0000D-01, & ! + & 0.0000D+00, 4.0000D-01, 0.0000D+00, 9.5000D-01, 2.0000D-01, & ! 4 & 6.0000D-01, 3.4000D-01, 4.0000D-01, 1.0000D+00, 1.0000D+00, & ! + & 0.0000D+00, 2.5000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 5 & 1.0000D+00, 9.4000D-01, 0.0000D+00, 3.0000D-01, 3.0000D-01, & ! + & 1.0000D+00, 8.5000D-01, 0.0000D+00, 1.5000D-02, 0.0000D+00, & ! 6 & 1.1000D-02, 1.1000D-02, 9.8400D-01, 5.2000D-01, 0.0000D+00, & ! + & 2.6000D-01, 2.6000D-01, 5.2000D-01, 0.0000D+00, 2.6500D-01, & ! 7 & 0.0000D+00, 1.5000D-01, 1.5000D-01, 7.0000D-01, 7.2000D-01, & ! + & 0.0000D+00, 4.2400D-01, 4.2400D-01, 1.0000D+00, 1.0000D+00, & ! 8 & 1.5000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 2.0000D+00, 1.0000D+00, & ! 9 & 1.3000D-01, 1.2500D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 1.0000D+00, 2.0000D+00, 3.5000D-01, & ! O & 1.0000D+00, 1.5000D-01, 1.0000D+00, 5.0000D-01, 0.0000D+00, & ! + & 0.0000D+00, 6.1300D-01, 0.0000D+00, 2.7500D-01, 2.7500D-01, & ! 1 & 1.3800D-01, 1.3800D-01, 2.7500D-01, 7.5000D-01, 1.0000D+00, & ! + & 0.0000D+00, 7.0000D-01, 0.0000D+00, 5.0000D-01, 3.4000D-01, & ! 2 & 8.0200D-01, 1.0000D+00, 2.5000D-01, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 3 & 2.0000D+00, 2.0000D+00, 1.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 4.0000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 8.1000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 5.5000D-02, 1.9000D-02, 1.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 1.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 6.2000D-03, 2.8620D-01, 9.5000D-02, 3.0630D-01, 2.0890D-01, & ! + & 1.4300D-02, 3.9310D-01, 2.2720D-01, 2.7490D-01, 2.4210D-01, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00/ !+ DATA ( SC( IRXXN, 4 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 3.9000D-01, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 4.0000D-01, & ! 6 & 0.0000D+00, 4.4000D-01, 0.0000D+00, 9.0000D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 4.0000D-01, & ! 7 & 1.0000D+00, 4.4000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 2.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 4.0000D-01, 1.0000D+00, 4.4000D-01, 1.0000D+00, 1.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 4.0000D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 3.5000D-02, 1.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, & ! O & 3.7600D-01, 1.0000D+00, 0.0000D+00, 0.0000D+00, 4.9100D-01, & ! + & 1.4200D-01, 0.0000D+00, 0.0000D+00, 4.0000D-03, 0.0000D+00, & ! 1 & 2.9000D-02, 7.7000D-02, 1.2400D-01, 5.0000D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 3.0000D-01, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 8.0000D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 6.0000D-02, 5.2200D-01, 5.0000D-01, 6.0000D-02, 5.2200D-01, & ! + & 0.0000D+00, 1.1700D-01, 2.5800D-01, 4.5000D-01, 0.0000D+00, & ! 4 & 5.0000D-02, 0.0000D+00, 4.0000D-01, 4.1000D-02, 4.8000D-02, & ! + & 7.9900D-01, 1.2330D+00, 4.9000D-02, 1.5900D+00, 3.1300D-01, & ! 5 & 7.2100D-01, 0.0000D+00, 0.0000D+00, 1.6700D-01, 3.1000D-01, & ! + & 2.0000D-03, 0.0000D+00, 3.3000D-01, 2.0000D-02, 0.0000D+00, & ! 6 & 1.1000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 4.4000D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.9500D-01, 1.2000D-01, & ! 2 & 1.0000D+00, 2.9000D-01, 1.6000D-02, 5.2500D-01, 5.1000D-02, & ! + & 0.0000D+00, 4.9000D-02, 1.8500D-01, 6.5000D-02, 2.3500D-01, & ! 3 & 1.9200D-01, 1.0000D-02, 1.9700D-01, 1.0000D-03, 1.0500D+00, & ! + & 0.0000D+00, 3.0000D-01, 5.0000D-01, 2.9000D-01, 4.5400D-01, & ! 4 & 5.2000D-01, 5.5400D-01, 4.8700D-01, 6.2700D-01, 8.1000D-02, & ! + & 1.0000D+00, 3.5000D-02, 7.0000D-02, 1.7630D+00, 3.5300D-01, & ! 5 & 8.1000D-02, 1.2800D-01, 9.0000D-02, 2.2800D-01, 0.0000D+00, & ! + & 8.8000D-02, 3.0700D-01, 1.1930D+00, 0.0000D+00, 5.6600D-01, & ! 6 & 6.1700D-01, 6.1700D-01, 2.0100D-01, 2.0200D-01, 0.0000D+00, & ! + & 2.2700D-01, 0.0000D+00, 4.2000D-01, 7.1000D-01, 2.1000D-01, & ! 7 & 2.1000D-01, 4.2000D-01, 4.2000D-01, 4.2000D-01, 7.8600D-01, & ! + & 7.8600D-01, 0.0000D+00, 2.0100D-01, 2.0200D-01, 1.7860D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 1.0000D-01, 1.0000D+00, 3.9000D-02, 1.2820D+00, & ! 1 & 1.1600D-01, 3.7000D-01, 0.0000D+00, 1.0000D+00, 0.0000D+00, & ! + & 4.1400D-01, 1.1700D-01, 5.8900D-01, 1.0320D+00, 3.2200D-01, & ! 2 & 7.3000D-01, 1.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 1.0000D+00, 2.9000D-02, 6.9000D-02, 1.1680D+00, & ! 6 & 3.4000D-02, 0.0000D+00, 1.0600D-01, 1.3600D-01, 1.3600D-01, & ! + & 1.3600D-01, 1.6200D-01, 3.1200D-01, 1.0000D+00, 3.0000D-02, & ! 7 & 1.3610D+00, 4.0000D-03, 3.5200D-01, 1.2700D-01, 1.0000D-03, & ! + & 1.6000D-01, 1.7200D-01, 1.7200D-01, 3.4000D-02, 5.0000D-02, & ! 8 & 0.0000D+00, 0.0000D+00, 6.0000D-02, 0.0000D+00, 4.7000D-02, & ! + & 0.0000D+00, 1.9100D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 7.0000D-02, & ! + & 7.3000D-02, 1.5000D-01, 1.5000D-01, 2.9000D-01, 7.5000D-01, & ! 1 & 0.0000D+00, 5.0000D-01, 0.0000D+00, 0.0000D+00, 1.3000D+00, & ! + & 1.3000D+00, 0.0000D+00, 1.5000D-01, 1.5000D-01, 3.0000D-01, & ! 2 & 3.5000D-02, 0.0000D+00, 2.1600D-01, 0.0000D+00, 1.0800D-01, & ! + & 1.0800D-01, 2.3400D-01, 2.0000D-02, 0.0000D+00, 7.0000D-02, & ! 3 & 0.0000D+00, 3.5000D-02, 3.5000D-02, 1.5000D-01, 1.2000D-01, & ! + & 0.0000D+00, 4.0000D-01, 0.0000D+00, 7.0000D-01, 2.0000D-01, & ! 4 & 6.0000D-01, 8.0000D-02, 0.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 1.0000D+00, 2.0000D+00, 1.0000D+00, & ! 5 & 0.0000D+00, 6.0000D-02, 0.0000D+00, 0.0000D+00, 7.5000D-01, & ! + & 1.0000D+00, 4.5000D-01, 0.0000D+00, 8.1000D-02, 0.0000D+00, & ! 6 & 3.1100D-01, 3.1100D-01, 9.8400D-01, 5.2000D-01, 0.0000D+00, & ! + & 2.4000D-01, 2.4000D-01, 4.8000D-01, 0.0000D+00, 2.6500D-01, & ! 7 & 0.0000D+00, 9.0000D-01, 1.5000D-01, 7.0000D-01, 7.2000D-01, & ! + & 0.0000D+00, 8.2600D-01, 7.6000D-02, 1.5000D-01, 1.0000D+00, & ! 8 & 4.4000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 2.0000D+00, 0.0000D+00, & ! 9 & 5.2000D-01, 1.0000D-01, 0.0000D+00, 0.0000D+00, 1.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 3.5000D-01, & ! O & 0.0000D+00, 7.0000D-02, 1.0000D+00, 5.0000D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.7500D-01, 2.7500D-01, & ! 1 & 1.3800D-01, 1.3800D-01, 2.7500D-01, 4.5000D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 5.0000D-01, 3.3000D-01, & ! 2 & 3.3000D-02, 1.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! 3 & 2.0000D+00, 2.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 4.0000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 2.1000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 1.2820D+00, 3.1300D-01, 7.2100D-01, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 2.5000D-03, 4.1000D-03, 1.3730D-01, 1.5300D-02, 3.0000D-01, & ! + & 1.2300D-02, 1.3900D-02, 2.6070D-01, 4.9100D-02, 6.4000D-02, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00/ !+ DATA ( SC( IRXXN, 5 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 4.0000D-01, & ! 6 & 0.0000D+00, 4.4000D-01, 0.0000D+00, 9.0000D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 4.0000D-01, & ! 7 & 1.0000D+00, 4.4000D-01, 1.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 1.0000D+00, 1.0000D+00, 2.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 4.0000D-01, 0.0000D+00, 4.4000D-01, 0.0000D+00, 1.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 4.0000D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 3.5000D-02, 1.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 5.1000D-01, 1.0000D+00, 0.0000D+00, 0.0000D+00, 4.9100D-01, & ! + & 4.0000D-01, 0.0000D+00, 0.0000D+00, 7.4400D-01, 0.0000D+00, & ! 1 & 8.4000D-01, 7.7000D-02, 1.2400D-01, 5.0000D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 2.5000D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 5.2100D-01, 1.7400D-01, 6.9500D-01, 5.2100D-01, 1.7400D-01, & ! + & 0.0000D+00, 5.6100D-01, 7.0000D-03, 1.1700D-01, 0.0000D+00, & ! 4 & 4.7500D-01, 0.0000D+00, 0.0000D+00, 4.1000D-02, 4.9800D-01, & ! + & 5.1000D-02, 3.0000D-01, 4.7300D-01, 8.7000D-02, 9.7600D-01, & ! 5 & 1.0200D-01, 0.0000D+00, 0.0000D+00, 8.3000D-02, 5.0000D-01, & ! + & 2.0000D-03, 0.0000D+00, 1.1880D+00, 2.0000D-02, 0.0000D+00, & ! 6 & 1.1000D-01, 1.0000D+00, 0.0000D+00, 0.0000D+00, 5.6000D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, & ! 2 & 0.0000D+00, 5.1000D-01, 9.8400D-01, 2.1500D-01, 1.0000D+00, & ! + & 0.0000D+00, 7.0800D-01, 5.0000D-01, 6.5000D-02, 1.5000D-02, & ! 3 & 8.0000D-03, 1.0000D-02, 1.9700D-01, 2.9700D-01, 2.9300D-01, & ! + & 0.0000D+00, 7.0000D-01, 0.0000D+00, 2.4000D-02, 5.4000D-02, & ! 4 & 8.2000D-02, 8.7000D-02, 7.6000D-02, 1.2100D-01, 9.5000D-01, & ! + & 0.0000D+00, 2.6100D-01, 7.0000D-02, 1.4900D-01, 4.0000D-02, & ! 5 & 0.0000D+00, 1.2800D-01, 5.0000D-03, 1.3000D-02, 0.0000D+00, & ! + & 1.7900D-01, 1.5600D-01, 1.4000D-01, 0.0000D+00, 1.1000D-01, & ! 6 & 1.2800D-01, 1.2800D-01, 2.0100D-01, 5.9000D-02, 0.0000D+00, & ! + & 2.6000D-02, 0.0000D+00, 4.8000D-02, 2.4000D-02, 2.4000D-02, & ! 7 & 2.4000D-02, 4.8000D-02, 4.8000D-02, 4.8000D-02, 4.2000D-01, & ! + & 4.2000D-01, 0.0000D+00, 2.0100D-01, 5.9000D-02, 4.6000D-01, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 1.0000D-01, 1.0000D+00, 8.4000D-01, 2.0200D-01, & ! 1 & 1.1600D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 1.0400D-01, 1.1700D-01, 1.2400D-01, 2.6000D-02, 6.2500D-01, & ! 2 & 5.1000D-02, 1.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 2.9000D-02, 6.9000D-02, 8.5000D-02, & ! 6 & 5.0000D-02, 0.0000D+00, 8.9400D-01, 8.6400D-01, 8.6400D-01, & ! + & 8.6400D-01, 8.3800D-01, 5.0300D-01, 1.0000D+00, 3.0000D-02, & ! 7 & 7.0000D-02, 1.7370D+00, 3.5200D-01, 1.2700D-01, 1.4920D+00, & ! + & 8.4000D-01, 4.6900D-01, 4.6900D-01, 5.0000D-02, 1.6000D-02, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 4.7000D-02, & ! + & 1.2000D-01, 5.0000D-02, 5.0000D-02, 9.0000D-02, 4.5000D-01, & ! 1 & 0.0000D+00, 2.5000D-01, 0.0000D+00, 0.0000D+00, 8.0000D-01, & ! + & 8.0000D-01, 0.0000D+00, 9.0000D-01, 4.0000D-01, 8.0000D-01, & ! 2 & 3.5000D-02, 0.0000D+00, 2.1600D-01, 0.0000D+00, 1.4500D-01, & ! + & 1.4500D-01, 2.1600D-01, 3.5000D-01, 0.0000D+00, 1.3000D-01, & ! 3 & 0.0000D+00, 6.5000D-02, 6.5000D-02, 4.4000D-01, 3.9000D-01, & ! + & 0.0000D+00, 2.6000D-01, 0.0000D+00, 1.3000D-01, 1.3000D-01, & ! 4 & 4.0000D-01, 2.6000D-01, 0.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.5000D-01, & ! + & 0.0000D+00, 1.5000D-01, 0.0000D+00, 9.3400D-01, 0.0000D+00, & ! 6 & 7.0000D-01, 1.2000D+00, 1.6000D-02, 4.8000D-01, 0.0000D+00, & ! + & 2.4000D-01, 2.4000D-01, 4.8000D-01, 0.0000D+00, 2.6500D-01, & ! 7 & 0.0000D+00, 6.5000D-01, 1.5000D-01, 3.0000D-01, 1.3000D-01, & ! + & 0.0000D+00, 7.6000D-02, 7.6000D-02, 8.5000D-01, 1.0000D+00, & ! 8 & 4.4000D-01, 1.0000D+00, 1.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 3.5000D-01, 1.2500D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, & ! O & 0.0000D+00, 7.0000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.1250D+00, 1.2500D-01, & ! 1 & 6.3000D-02, 6.3000D-02, 1.2500D-01, 2.9000D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 5.0000D-01, 3.3000D-01, & ! 2 & 3.3000D-02, 1.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 4.0000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 5.7000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 2.0200D-01, 9.7600D-01, 1.0200D-01, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 2.6000D-03, 3.5000D-03, 5.0000D-04, 1.0430D-01, 2.0280D-01, & ! + & 1.2390D-01, 1.0270D-01, 7.0200D-02, 2.5770D-01, 3.8500D-02, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00/ !+ DATA ( SC( IRXXN, 6 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 4.4000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 4.0000D-01, & ! 7 & 1.0000D+00, 4.4000D-01, 1.0000D+00, 1.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 1.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 4.0000D-01, 0.0000D+00, 4.4000D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 4.0000D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 3.5000D-02, 1.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 7.4000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, 4.9100D-01, & ! + & 4.5700D-01, 0.0000D+00, 0.0000D+00, 2.3900D-01, 0.0000D+00, & ! 1 & 9.0000D-02, 8.5000D-02, 7.4000D-02, 5.0000D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 2.0100D-01, 4.3200D-01, 1.9500D-01, 2.0100D-01, 4.3200D-01, & ! + & 0.0000D+00, 1.1700D-01, 7.0000D-03, 1.0000D-01, 0.0000D+00, & ! 4 & 1.2400D-01, 0.0000D+00, 0.0000D+00, 3.3600D-01, 1.4000D-01, & ! + & 5.1000D-02, 4.6700D-01, 7.1000D-02, 8.7000D-02, 1.7500D-01, & ! 5 & 1.0200D-01, 0.0000D+00, 0.0000D+00, 1.6700D-01, 1.8500D-01, & ! + & 9.6700D-01, 0.0000D+00, 1.0200D-01, 2.0000D-02, 0.0000D+00, & ! 6 & 1.1000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.5000D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 3.7000D-01, & ! 2 & 0.0000D+00, 2.7800D-01, 9.8400D-01, 5.0000D-01, 0.0000D+00, & ! + & 0.0000D+00, 5.8000D-01, 1.8500D-01, 1.1500D-01, 1.5000D-02, & ! 3 & 8.0000D-03, 2.4000D-01, 2.0000D-03, 1.5110D+00, 2.9300D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.4000D-02, 5.4000D-02, & ! 4 & 8.2000D-02, 8.7000D-02, 7.6000D-02, 1.2100D-01, 1.0000D-02, & ! + & 0.0000D+00, 7.0400D-01, 2.6000D-02, 1.4900D-01, 1.0600D-01, & ! 5 & 0.0000D+00, 5.8200D-01, 5.0000D-03, 3.0000D-03, 0.0000D+00, & ! + & 8.3500D-01, 8.0000D-03, 1.4000D-01, 0.0000D+00, 1.1000D-01, & ! 6 & 1.2800D-01, 1.2800D-01, 1.0000D-03, 4.9000D-01, 0.0000D+00, & ! + & 1.2000D-02, 0.0000D+00, 2.2000D-02, 1.1000D-02, 1.1000D-02, & ! 7 & 1.1000D-02, 2.2000D-02, 2.2000D-02, 2.2000D-02, 5.3100D-01, & ! + & 5.3100D-01, 0.0000D+00, 1.0000D-03, 4.9000D-01, 4.6000D-01, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 1.0000D-01, 0.0000D+00, 8.5000D-02, 2.0200D-01, & ! 1 & 1.9800D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 4.8200D-01, 1.4500D-01, 1.2400D-01, 2.6000D-02, 9.4700D-01, & ! 2 & 5.1000D-02, 1.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 1.2400D-01, 8.6300D-01, 8.5000D-02, & ! 6 & 1.6000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 6.8800D-01, 0.0000D+00, 4.8200D-01, & ! 7 & 7.0000D-02, 1.6500D-01, 2.2000D-02, 3.6000D-02, 1.0600D-01, & ! + & 0.0000D+00, 3.5900D-01, 3.5900D-01, 1.6000D-02, 2.2580D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 6.6000D-01, & ! + & 1.2000D-01, 6.0000D-02, 6.0000D-02, 1.1000D-01, 2.9000D-01, & ! 1 & 0.0000D+00, 2.5000D-01, 0.0000D+00, 0.0000D+00, 7.0000D-02, & ! + & 7.0000D-02, 0.0000D+00, 7.8500D-01, 3.5000D-02, 7.0000D-02, & ! 2 & 3.0000D-01, 0.0000D+00, 2.9000D-01, 0.0000D+00, 8.5000D-02, & ! + & 8.5000D-02, 2.1600D-01, 5.9000D-01, 0.0000D+00, 3.1000D-01, & ! 3 & 0.0000D+00, 1.5500D-01, 1.5500D-01, 7.0000D-02, 3.8000D-02, & ! + & 0.0000D+00, 1.4000D-01, 0.0000D+00, 7.0000D-02, 7.0000D-02, & ! 4 & 4.0000D-01, 7.0000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 5.0000D-01, & ! + & 0.0000D+00, 7.0000D-01, 0.0000D+00, 9.3400D-01, 0.0000D+00, & ! 6 & 0.0000D+00, 7.5000D-01, 1.6000D-02, 4.8000D-01, 0.0000D+00, & ! + & 5.0000D-01, 5.0000D-01, 1.0000D+00, 0.0000D+00, 1.1000D-01, & ! 7 & 0.0000D+00, 5.0000D-01, 5.0000D-01, 3.0000D-01, 1.3000D-01, & ! + & 0.0000D+00, 5.0000D-01, 5.0000D-01, 8.5000D-01, 0.0000D+00, & ! 8 & 4.4000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 1.0000D+00, 1.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 1.6000D-01, 2.0000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 8.5000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 8.2500D-01, 8.2500D-01, & ! 1 & 9.1300D-01, 4.1300D-01, 8.2500D-01, 9.0000D-02, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 5.0000D-01, 6.7000D-01, & ! 2 & 8.0200D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 4.0000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 1.9000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 2.0200D-01, 1.7500D-01, 1.0200D-01, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 2.3000D-03, 2.2390D-01, 2.0510D-01, 1.8930D-01, 4.7100D-02, & ! + & 1.8310D-01, 2.0450D-01, 1.1160D-01, 7.3900D-02, 2.6670D-01, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00/ !+ DATA ( SC( IRXXN, 7 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 4.0000D-01, & ! 7 & 0.0000D+00, 4.4000D-01, 0.0000D+00, 1.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 4.4000D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 8.8000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 1.0000D+00, 0.0000D+00, 0.0000D+00, 1.2000D-02, 0.0000D+00, & ! 1 & 4.1000D-02, 1.4200D-01, 1.4700D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 3.3400D-01, 5.6800D-01, 3.0500D-01, 3.3400D-01, 5.6800D-01, & ! + & 0.0000D+00, 1.1400D-01, 5.8000D-01, 9.0000D-01, 0.0000D+00, & ! 4 & 5.0000D-02, 0.0000D+00, 0.0000D+00, 5.5000D-02, 1.2400D-01, & ! + & 5.7200D-01, 2.3300D-01, 7.1000D-02, 3.0300D-01, 1.7500D-01, & ! 5 & 7.4000D-02, 0.0000D+00, 0.0000D+00, 8.3000D-02, 5.0000D-01, & ! + & 3.1000D-02, 0.0000D+00, 3.4000D-01, 0.0000D+00, 0.0000D+00, & ! 6 & 8.4000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 2.7800D-01, 1.0000D+00, 5.0000D-01, 0.0000D+00, & ! + & 0.0000D+00, 4.7100D-01, 5.0000D-01, 4.6000D-01, 1.1500D-01, & ! 3 & 2.7500D-01, 7.5000D-01, 2.2000D-02, 3.3700D-01, 5.0000D-03, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.9000D-01, 2.3800D-01, & ! 4 & 1.0000D-01, 8.4000D-02, 2.8600D-01, 7.4000D-02, 5.0000D-02, & ! + & 0.0000D+00, 1.0000D+00, 4.4500D-01, 2.0000D-03, 2.0900D-01, & ! 5 & 0.0000D+00, 1.0000D-02, 3.0300D-01, 3.4000D-02, 0.0000D+00, & ! + & 5.1000D-01, 2.1200D-01, 7.2000D-02, 0.0000D+00, 1.5800D-01, & ! 6 & 8.8000D-02, 8.8000D-02, 4.1100D-01, 1.2100D-01, 0.0000D+00, & ! + & 2.3000D-02, 0.0000D+00, 4.3000D-02, 7.7200D-01, 2.2000D-02, & ! 7 & 2.2000D-02, 4.3000D-02, 4.3000D-02, 4.3000D-02, 4.8000D-02, & ! + & 4.8000D-02, 0.0000D+00, 4.1100D-01, 1.2100D-01, 1.2000D-02, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 1.0000D-01, 0.0000D+00, 3.6000D-02, 9.0000D-03, & ! 1 & 1.1600D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 1.0600D-01, 5.0200D-01, 7.4000D-02, 2.1600D-01, 1.0000D+00, & ! 2 & 4.2000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 3.0600D-01, 4.5700D-01, 2.7500D-01, & ! 6 & 2.2580D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 6.1000D-02, 0.0000D+00, 4.8800D-01, & ! 7 & 7.8000D-02, 1.6500D-01, 8.0000D-02, 2.0600D-01, 1.0600D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.2580D+00, 5.8200D-01, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D-01, & ! + & 0.0000D+00, 2.0000D-02, 2.0000D-02, 5.0000D-02, 9.0000D-02, & ! 1 & 0.0000D+00, 1.0000D+00, 0.0000D+00, 0.0000D+00, 2.3000D-01, & ! + & 2.3000D-01, 0.0000D+00, 1.1500D-01, 1.1500D-01, 2.3000D-01, & ! 2 & 8.0000D-01, 0.0000D+00, 1.7000D-01, 0.0000D+00, 5.4500D-01, & ! + & 5.4500D-01, 2.9000D-01, 1.5000D-01, 0.0000D+00, 3.1000D-01, & ! 3 & 0.0000D+00, 1.5500D-01, 1.5500D-01, 1.3000D-01, 2.9000D-02, & ! + & 0.0000D+00, 1.6000D+00, 0.0000D+00, 3.0000D-01, 3.0000D-01, & ! 4 & 2.6000D-01, 1.6000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 7.0000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 2.5000D-01, 1.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 7.5000D-01, 0.0000D+00, 1.0000D+00, 0.0000D+00, 8.9000D-01, & ! 7 & 0.0000D+00, 2.5000D-01, 0.0000D+00, 3.0000D-01, 1.5000D-01, & ! + & 0.0000D+00, 2.5000D-01, 0.0000D+00, 1.5000D-01, 0.0000D+00, & ! 8 & 4.4000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 1.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 7.1000D-01, 5.0000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 8.5000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.0000D-01, 2.0000D-01, & ! 1 & 1.0000D-01, 1.0000D-01, 1.2000D+00, 1.1000D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 3.4000D-01, & ! 2 & 5.4100D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 1.9000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 9.0000D-03, 1.7500D-01, 7.4000D-02, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 2.9440D-01, 1.8200D-01, 1.7640D-01, 1.6680D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00/ !+ DATA ( SC( IRXXN, 8 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 4.0000D-01, & ! 7 & 0.0000D+00, 4.4000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 5.0400D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.2000D-02, 0.0000D+00, & ! 1 & 2.0000D-02, 7.8200D-01, 1.3900D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 4.0700D-01, 6.5200D-01, 0.0000D+00, 4.0700D-01, 6.5200D-01, & ! + & 0.0000D+00, 2.7400D-01, 1.9000D-01, 3.3300D-01, 0.0000D+00, & ! 4 & 9.5000D-01, 0.0000D+00, 0.0000D+00, 1.2900D-01, 2.1000D-01, & ! + & 2.2700D-01, 0.0000D+00, 2.0000D-03, 1.6300D-01, 1.1000D-02, & ! 5 & 6.1000D-02, 0.0000D+00, 0.0000D+00, 2.5000D-01, 0.0000D+00, & ! + & 3.1000D-02, 0.0000D+00, 5.0000D-02, 0.0000D+00, 0.0000D+00, & ! 6 & 8.4000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 1.0000D-01, 0.0000D+00, 1.8500D-01, 0.0000D+00, & ! + & 0.0000D+00, 1.0000D+00, 3.7500D-01, 1.2000D-01, 1.1500D-01, & ! 3 & 1.2200D-01, 2.5000D-01, 7.7600D-01, 3.3700D-01, 7.0000D-03, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 5.7000D-01, 1.5100D-01, & ! 4 & 3.8000D-01, 2.3800D-01, 1.1200D-01, 4.0500D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 1.2200D-01, 2.9000D-02, 7.1000D-02, & ! 5 & 0.0000D+00, 7.0000D-03, 8.8000D-02, 7.7400D-01, 0.0000D+00, & ! + & 1.4400D-01, 3.0000D-03, 5.7900D-01, 0.0000D+00, 1.0000D-01, & ! 6 & 3.1200D-01, 3.1200D-01, 3.8500D-01, 1.2100D-01, 0.0000D+00, & ! + & 2.0000D-03, 0.0000D+00, 4.0000D-03, 2.0000D-03, 2.0000D-03, & ! 7 & 2.0000D-03, 4.0000D-03, 4.0000D-03, 4.0000D-03, 2.2000D-02, & ! + & 2.2000D-02, 0.0000D+00, 3.8500D-01, 1.2100D-01, 2.3000D-02, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 6.5000D-02, 1.8000D-02, & ! 1 & 5.4100D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 1.0400D-01, 2.3700D-01, 1.4700D-01, 4.8400D-01, 0.0000D+00, & ! 2 & 4.2000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 5.4000D-01, 4.7300D-01, 1.7700D-01, & ! 6 & 5.8200D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 3.1200D-01, 0.0000D+00, 1.0000D+00, & ! 7 & 3.4000D-01, 3.0000D-03, 2.5800D-01, 7.2000D-02, 1.9000D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 5.8200D-01, 5.8200D-01, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 4.3000D-02, & ! + & 0.0000D+00, 5.0000D-01, 5.0000D-01, 1.0000D+00, 1.1000D-01, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 2.5000D-01, 2.5000D-01, 5.0000D-01, & ! 2 & 7.0000D-02, 0.0000D+00, 9.0000D-02, 0.0000D+00, 4.5000D-02, & ! + & 4.5000D-02, 1.7000D-01, 1.3000D-01, 0.0000D+00, 7.2000D-01, & ! 3 & 0.0000D+00, 1.1100D+00, 3.6000D-01, 3.1000D-01, 7.3000D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 5.0000D-01, 5.0000D-01, & ! 4 & 1.4000D-01, 5.6000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 7.0000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 2.5000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 1.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 1.2500D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 9.3000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 3.7500D-01, 3.7500D-01, & ! 1 & 9.3800D-01, 1.8800D-01, 3.7500D-01, 5.0000D-02, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 3.3000D-01, & ! 2 & 8.2000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 1.9000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 1.8000D-02, 1.1000D-02, 6.1000D-02, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 2.0210D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00/ !+ DATA ( SC( IRXXN, 9 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 4.4000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 3.7600D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.2000D-02, 0.0000D+00, & ! 1 & 7.5000D-02, 2.6000D-02, 5.6500D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 1.2900D-01, 6.5200D-01, 0.0000D+00, 1.2900D-01, 6.5200D-01, & ! + & 0.0000D+00, 1.5300D-01, 3.6600D-01, 1.0000D-01, 0.0000D+00, & ! 4 & 3.5100D-01, 0.0000D+00, 0.0000D+00, 1.3000D-02, 2.3000D-02, & ! + & 2.1800D-01, 0.0000D+00, 2.1100D-01, 7.8000D-01, 4.2900D-01, & ! 5 & 2.1400D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 3.3000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 1.2000D-02, 0.0000D+00, 7.5000D-02, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 1.2500D-01, 3.5500D-01, 1.0000D-03, & ! 3 & 4.0000D-01, 0.0000D+00, 3.4000D-02, 2.9000D-02, 6.8400D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.9000D-02, 1.8100D-01, & ! 4 & 1.5900D-01, 1.8500D-01, 1.5900D-01, 1.1200D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 2.4000D-02, 4.3800D-01, 8.6000D-02, & ! 5 & 0.0000D+00, 6.6600D-01, 5.0000D-01, 1.6900D-01, 0.0000D+00, & ! + & 8.0000D-02, 3.0000D-03, 1.6300D-01, 0.0000D+00, 1.2300D-01, & ! 6 & 1.3400D-01, 1.3400D-01, 3.7000D-02, 2.4900D-01, 0.0000D+00, & ! + & 4.0300D-01, 0.0000D+00, 7.4600D-01, 3.7300D-01, 3.7300D-01, & ! 7 & 3.7300D-01, 7.4600D-01, 7.4600D-01, 7.4600D-01, 4.0000D-03, & ! + & 4.0000D-03, 0.0000D+00, 3.7000D-02, 2.4900D-01, 2.0000D-03, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 7.0000D-02, 1.2000D-02, & ! 1 & 7.0000D-03, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 1.9700D-01, 1.8600D-01, 1.3900D-01, 2.7400D-01, 0.0000D+00, & ! 2 & 7.1200D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, 6.7100D-01, & ! 6 & 5.8200D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 3.4300D-01, 3.4000D-02, 4.4000D-02, 2.1500D-01, 3.8300D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 5.8200D-01, 5.4800D-01, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 8.0000D-02, & ! + & 0.0000D+00, 2.5000D-01, 0.0000D+00, 0.0000D+00, 5.0000D-02, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 2.5000D-01, 0.0000D+00, 0.0000D+00, & ! 2 & 2.3000D-01, 0.0000D+00, 9.0000D-02, 0.0000D+00, 1.0000D+00, & ! + & 5.0000D-01, 9.0000D-02, 8.0000D-02, 0.0000D+00, 1.5000D-01, & ! 3 & 0.0000D+00, 7.5000D-02, 7.5000D-02, 3.1000D-01, 1.7000D-02, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.5000D-01, 0.0000D+00, & ! 4 & 6.0000D-01, 2.8000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 7.4000D-02, 7.4000D-02, & ! 1 & 3.7000D-02, 3.7000D-02, 7.4000D-02, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 3.3000D-01, & ! 2 & 1.8000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 1.2000D-02, 4.2900D-01, 2.1400D-01, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 1.9000D-03, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00/ !+ DATA ( SC( IRXXN, 10 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 1.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.0500D-01, 0.0000D+00, & ! 1 & 8.4000D-02, 5.8000D-02, 2.4000D-02, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 1.0700D-01, 6.5200D-01, 0.0000D+00, 1.0700D-01, 6.5200D-01, & ! + & 0.0000D+00, 1.9000D-02, 1.8400D-01, 1.0000D-01, 0.0000D+00, & ! 4 & 5.0000D-02, 0.0000D+00, 0.0000D+00, 1.5000D-01, 7.4200D-01, & ! + & 8.0000D-03, 0.0000D+00, 1.0000D-03, 1.0000D+00, 1.0000D-03, & ! 5 & 2.3000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 2.9000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D-03, & ! 3 & 1.9200D-01, 0.0000D+00, 2.0000D-02, 5.1000D-02, 6.9000D-02, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.6100D-01, 6.5000D-02, & ! 4 & 4.1000D-02, 1.6100D-01, 8.8000D-02, 2.2000D-02, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 3.3200D-01, 2.3600D-01, 4.0700D-01, & ! 5 & 0.0000D+00, 7.0000D-03, 1.1000D-02, 8.3100D-01, 0.0000D+00, & ! + & 2.0000D-03, 2.9900D-01, 1.1600D-01, 0.0000D+00, 7.2000D-02, & ! 6 & 7.7000D-02, 7.7000D-02, 7.0000D-03, 6.3000D-02, 0.0000D+00, & ! + & 2.3900D-01, 0.0000D+00, 4.4300D-01, 2.2200D-01, 2.2200D-01, & ! 7 & 2.2200D-01, 4.4300D-01, 4.4300D-01, 4.4300D-01, 7.4600D-01, & ! + & 7.4600D-01, 0.0000D+00, 7.0000D-03, 6.3000D-02, 4.0300D-01, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 8.4000D-01, 5.5000D-02, & ! 1 & 2.2000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 2.8500D-01, 6.7600D-01, 5.6500D-01, 2.7400D-01, 0.0000D+00, & ! 2 & 4.9800D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 6.7000D-02, & ! 6 & 3.5000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 7.5000D-02, 2.8700D-01, 4.1000D-02, 1.9000D-02, 3.1700D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 3.5000D-02, 3.5000D-02, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 8.0300D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, 7.5000D-01, & ! + & 0.0000D+00, 9.0000D-02, 6.0000D-01, 0.0000D+00, 1.3400D+00, & ! 3 & 0.0000D+00, 1.7000D-01, 1.7000D-01, 7.2000D-01, 3.6000D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 4.0000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.5100D-01, 2.5100D-01, & ! 1 & 1.2600D-01, 1.2600D-01, 2.5100D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 3.3000D-01, & ! 2 & 5.4100D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 5.5000D-02, 1.0000D-03, 2.3000D-01, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 2.3000D-03, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00/ !+ DATA ( SC( IRXXN, 11 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 3.4000D-02, 0.0000D+00, & ! 1 & 1.6000D-01, 6.9800D-01, 4.4800D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 2.6700D-01, 0.0000D+00, 0.0000D+00, 2.6700D-01, 0.0000D+00, & ! + & 0.0000D+00, 1.9500D-01, 3.5000D-01, 1.0000D-01, 0.0000D+00, & ! 4 & 5.0000D-02, 0.0000D+00, 0.0000D+00, 3.3200D-01, 1.0000D-01, & ! + & 5.7200D-01, 0.0000D+00, 8.3000D-02, 0.0000D+00, 3.6000D-02, & ! 5 & 7.4000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 7.5000D-01, & ! 3 & 2.0400D-01, 0.0000D+00, 2.3000D-02, 1.7000D-02, 2.0000D-03, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.1600D-01, 1.9500D-01, & ! 4 & 3.3600D-01, 4.7000D-02, 4.5000D-02, 3.6000D-02, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 9.8300D-01, 4.2600D-01, 1.0000D+00, & ! 5 & 0.0000D+00, 3.6000D-02, 5.0000D-01, 0.0000D+00, 0.0000D+00, & ! + & 1.2000D-02, 1.6100D-01, 2.0000D-03, 0.0000D+00, 1.8500D-01, & ! 6 & 2.6000D-02, 2.6000D-02, 3.0000D-03, 1.2700D-01, 0.0000D+00, & ! + & 5.0000D-03, 0.0000D+00, 9.0000D-03, 5.0000D-03, 5.0000D-03, & ! 7 & 5.0000D-03, 9.0000D-03, 9.0000D-03, 9.0000D-03, 4.4300D-01, & ! + & 4.4300D-01, 0.0000D+00, 3.0000D-03, 1.2700D-01, 2.3900D-01, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, 1.5900D-01, & ! 1 & 2.3700D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 5.8600D-01, 2.8000D-01, 2.4000D-02, 4.8400D-01, 0.0000D+00, & ! 2 & 1.9500D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, & ! 6 & 1.5800D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 2.5300D-01, 4.1200D-01, 3.7800D-01, 3.8000D-02, 8.6000D-02, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.5800D-01, 1.5800D-01, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.5000D-01, & ! + & 0.0000D+00, 1.0000D+00, 3.5000D-01, 0.0000D+00, 3.5000D-01, & ! 3 & 0.0000D+00, 6.7500D-01, 1.7500D-01, 1.5000D-01, 1.6000D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 2.8000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, & ! 1 & 5.0000D-01, 5.0000D-01, 1.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 8.3500D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 1.5900D-01, 3.6000D-02, 7.4000D-02, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00/ !+ DATA ( SC( IRXXN, 12 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.5600D-01, 0.0000D+00, & ! 1 & 0.0000D+00, 8.5800D-01, 2.6000D-02, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 7.8300D-01, 0.0000D+00, 0.0000D+00, 7.8300D-01, 0.0000D+00, & ! + & 0.0000D+00, 1.9500D-01, 3.5000D-01, 0.0000D+00, 0.0000D+00, & ! 4 & 5.0000D-02, 0.0000D+00, 0.0000D+00, 1.5000D-01, 3.7200D-01, & ! + & 8.5000D-01, 0.0000D+00, 1.4300D-01, 0.0000D+00, 4.0000D-03, & ! 5 & 6.3000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.5000D-01, & ! 3 & 3.9000D-01, 0.0000D+00, 1.0000D+00, 3.4400D-01, 5.6000D-02, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 3.1400D-01, 1.9500D-01, & ! 4 & 1.4400D-01, 2.5300D-01, 6.7000D-02, 8.8000D-02, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 1.7000D-02, 1.0600D-01, 0.0000D+00, & ! 5 & 0.0000D+00, 1.0000D-03, 4.4000D-02, 0.0000D+00, 0.0000D+00, & ! + & 2.3000D-02, 1.3100D-01, 3.2000D-01, 0.0000D+00, 2.0200D-01, & ! 6 & 2.2100D-01, 2.2100D-01, 9.0000D-03, 3.3000D-02, 0.0000D+00, & ! + & 1.0000D-03, 0.0000D+00, 2.0000D-03, 1.0000D-03, 1.0000D-03, & ! 7 & 1.0000D-03, 2.0000D-03, 2.0000D-03, 2.0000D-03, 9.0000D-03, & ! + & 9.0000D-03, 0.0000D+00, 9.0000D-03, 3.3000D-02, 5.0000D-03, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 5.4700D-01, & ! 1 & 1.0900D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 8.5500D-01, 4.4800D-01, 7.8400D-01, 0.0000D+00, & ! 2 & 1.7000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 1.8500D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 9.8300D-01, 2.4700D-01, 1.0000D+00, 1.9200D-01, 4.2000D-02, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.8500D-01, 1.8500D-01, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 5.0000D-01, 5.0000D-01, 3.4000D-01, 3.4000D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 2.4000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 2.5000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 5.4700D-01, 4.0000D-03, 6.3000D-02, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00/ !+ DATA ( SC( IRXXN, 13 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 3.0000D-02, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 2.3100D-01, 1.3900D-01, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.7400D-01, 4.7000D-02, & ! + & 0.0000D+00, 0.0000D+00, 4.0200D-01, 0.0000D+00, 1.0000D-02, & ! 5 & 8.0000D-03, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 1.6000D-01, 0.0000D+00, 1.0000D+00, 2.4000D-01, 1.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, 3.1200D-01, & ! 4 & 2.3900D-01, 2.5300D-01, 2.7800D-01, 3.5200D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.4600D-01, 0.0000D+00, & ! 5 & 0.0000D+00, 1.2000D-02, 3.0000D-03, 0.0000D+00, 0.0000D+00, & ! + & 3.1900D-01, 1.1400D-01, 3.1900D-01, 0.0000D+00, 3.0900D-01, & ! 6 & 2.4700D-01, 2.4700D-01, 3.0000D-03, 2.0800D-01, 0.0000D+00, & ! + & 4.0000D-03, 0.0000D+00, 7.0000D-03, 4.0000D-03, 4.0000D-03, & ! 7 & 4.0000D-03, 7.0000D-03, 7.0000D-03, 7.0000D-03, 2.0000D-03, & ! + & 2.0000D-03, 0.0000D+00, 3.0000D-03, 2.0800D-01, 1.0000D-03, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 4.5000D-02, & ! 1 & 5.9100D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 2.6000D-02, 0.0000D+00, 0.0000D+00, & ! 2 & 9.0000D-03, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 2.7400D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 1.7000D-02, 7.6000D-02, 0.0000D+00, 3.3700D-01, 2.5000D-02, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.7400D-01, 2.7400D-01, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 2.5000D-01, 0.0000D+00, 3.5000D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 4.5000D-02, 1.0000D-02, 8.0000D-03, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00/ !+ DATA ( SC( IRXXN, 14 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 2.5200D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 7.9400D-01, 3.0000D-03, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 7.1100D-01, 1.0000D-03, & ! + & 0.0000D+00, 0.0000D+00, 1.1500D-01, 0.0000D+00, 1.7000D-01, & ! 5 & 1.2400D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 1.5000D-01, 0.0000D+00, 0.0000D+00, 3.4500D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 7.3000D-02, & ! 4 & 4.7000D-02, 1.9800D-01, 2.8600D-01, 2.3000D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 9.0000D-03, 9.0000D-03, 0.0000D+00, 0.0000D+00, & ! + & 6.8100D-01, 4.5300D-01, 6.8100D-01, 0.0000D+00, 3.6900D-01, & ! 6 & 1.7800D-01, 1.7800D-01, 2.0000D-03, 5.7000D-02, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.5000D-01, 0.0000D+00, & ! 7 & 0.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 7.0000D-03, & ! + & 7.0000D-03, 0.0000D+00, 2.0000D-03, 5.7000D-02, 4.0000D-03, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 3.0000D-01, & ! 1 & 5.1000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 3.0000D-02, 0.0000D+00, 0.0000D+00, & ! 2 & 9.0000D-03, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 7.0000D-03, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 1.3000D-01, 0.0000D+00, 1.6900D-01, 5.8000D-02, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 7.0000D-03, 7.0000D-03, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 3.0000D-01, 1.7000D-01, 1.2400D-01, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00/ !+ DATA ( SC( IRXXN, 15 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 7.3000D-02, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 4.0000D-03, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 4.8000D-02, & ! + & 0.0000D+00, 0.0000D+00, 3.2900D-01, 0.0000D+00, 8.0000D-03, & ! 5 & 8.3000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 1.0000D-01, 0.0000D+00, 0.0000D+00, 8.0000D-03, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 4.3500D-01, & ! 4 & 5.5500D-01, 5.5000D-02, 1.0200D-01, 1.5100D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 1.6800D-01, 1.8500D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 7.1000D-02, 0.0000D+00, 0.0000D+00, 1.0000D+00, & ! 6 & 6.8000D-02, 6.8000D-02, 4.0900D-01, 2.0000D-03, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 1.0000D+00, 1.0000D+00, 1.0000D+00, 4.2200D-01, & ! + & 4.2200D-01, 0.0000D+00, 4.0900D-01, 2.0000D-03, 2.2800D-01, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.0000D-02, & ! 1 & 4.0000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 2.5200D-01, 0.0000D+00, 0.0000D+00, & ! 2 & 1.1500D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 3.0000D-03, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 1.0000D+00, 0.0000D+00, 8.3100D-01, 1.6100D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 3.0000D-03, 3.0000D-03, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 2.0000D-02, 8.0000D-03, 8.3000D-02, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00/ !+ DATA ( SC( IRXXN, 16 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 7.3000D-02, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 3.0000D-03, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 7.0000D-03, 0.0000D+00, 3.1000D-02, & ! 5 & 1.9000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 2.0000D-01, 0.0000D+00, 0.0000D+00, 2.0000D-03, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, & ! 4 & 1.0000D+00, 5.8600D-01, 4.6100D-01, 4.3000D-02, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 1.6900D-01, 1.5900D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 3.3300D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 5.7000D-02, 5.7000D-02, 1.0000D+00, 1.7200D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 1.0000D+00, 1.7200D-01, 1.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 3.0000D-03, & ! 1 & 6.8600D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 7.3000D-02, 0.0000D+00, 0.0000D+00, & ! 2 & 1.4000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 3.0000D-03, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.3000D-02, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 3.0000D-03, 3.0000D-03, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 3.0000D-03, 3.1000D-02, 1.9000D-01, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00/ !+ DATA ( SC( IRXXN, 17 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 7.1300D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 9.5000D-02, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 5.2800D-01, 0.0000D+00, 1.8900D-01, & ! 5 & 2.6100D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 8.1000D-02, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 1.0000D+00, 1.0000D+00, 7.0500D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 8.3100D-01, 2.6800D-01, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 1.9000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 1.0100D-01, 1.0100D-01, 1.0000D+00, 6.8000D-02, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 1.0000D+00, 6.8000D-02, 1.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 4.1000D-02, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 7.3000D-02, 0.0000D+00, 0.0000D+00, & ! 2 & 4.2000D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 1.5800D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.9100D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.5800D-01, 1.5800D-01, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 4.1000D-02, 1.8900D-01, 2.6100D-01, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00/ !+ DATA ( SC( IRXXN, 18 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 1.6300D-01, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 3.0500D-01, & ! 5 & 6.6000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.5500D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 1.1000D-02, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 5.1000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 1.0000D+00, 1.0000D+00, 0.0000D+00, 3.0000D-03, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 3.0000D-03, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 4.6000D-02, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 7.1300D-01, 0.0000D+00, 0.0000D+00, & ! 2 & 7.6200D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 6.0000D-03, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 3.1900D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 6.0000D-03, 6.0000D-03, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 4.6000D-02, 3.0500D-01, 6.6000D-02, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00/ !+ DATA ( SC( IRXXN, 19 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 1.6300D-01, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.5700D-01, & ! 5 & 5.9100D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 7.3700D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 5.2000D-02, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 3.3000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 3.9000D-02, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 3.9000D-02, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 5.4700D-01, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 6.0000D-03, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 6.8100D-01, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 6.0000D-03, 6.0000D-03, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 5.4700D-01, 1.5700D-01, 5.9100D-01, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00/ !+ DATA ( SC( IRXXN, 20 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 9.5000D-02, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 6.3600D-01, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 1.0000D-03, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.0000D-03, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 2.0000D-03, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 9.0800D-01, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 1.0000D-03, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D-03, 1.0000D-03, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 9.0800D-01, 6.3600D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00/ !+ DATA ( SC( IRXXN, 21 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 2.6400D-01, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 2.4000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D-03, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D-03, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 1.0900D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0900D-01, 1.0900D-01, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00/ !+ DATA ( SC( IRXXN, 22 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 6.5000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 5.0200D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 5.0200D-01, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 1.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, 1.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00/ !+ DATA ( SC( IRXXN, 23 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 2.3500D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 4.2800D-01, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 4.2800D-01, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00/ !+ DATA ( SC( IRXXN, 24 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 3.7000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 1.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00/ !+ DATA ( SC( IRXXN, 25 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 7.3000D-02, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00/ !+ DATA ( SC( IRXXN, 26 ), IRXXN = 1, NRXNS ) / & & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 1.3600D-01, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 3 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 4 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 5 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 6 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 7 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 8 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 9 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! O & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 1 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! + & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00, & ! 2 & 0.0000D+00, 0.0000D+00, 0.0000D+00, 0.0000D+00/ !+ INTEGER :: NREACT( NRXNS ) DATA ( NREACT( IRXXN ), IRXXN = 1, NRXNS ) / & & 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, & ! O & 2, 1, 1, 1, 2, 1, 1, 1, 1, 1, & ! 1 & 1, 2, 1, 2, 2, 2, 2, 1, 2, 2, & ! 2 & 2, 2, 1, 1, 2, 2, 2, 2, 2, 2, & ! 3 & 1, 2, 2, 2, 1, 2, 2, 2, 2, 2, & ! 4 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 5 & 2, 2, 2, 1, 1, 2, 2, 2, 2, 2, & ! 6 & 2, 2, 2, 1, 1, 2, 2, 2, 2, 2, & ! 7 & 2, 2, 2, 2, 1, 1, 2, 2, 2, 2, & ! 8 & 2, 2, 2, 2, 2, 2, 1, 1, 2, 1, & ! 9 & 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, & ! O & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 1 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 2 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 3 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 4 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 5 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 6 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 7 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 8 & 2, 2, 2, 1, 1, 2, 2, 2, 1, 2, & ! 9 & 2, 1, 2, 2, 1, 2, 1, 2, 2, 2, & ! O & 2, 2, 1, 2, 1, 2, 1, 2, 1, 1, & ! 1 & 1, 2, 2, 1, 2, 2, 1, 2, 2, 2, & ! 2 & 1, 1, 2, 1, 2, 2, 2, 1, 2, 2, & ! 3 & 1, 2, 2, 2, 2, 2, 2, 1, 2, 2, & ! 4 & 2, 1, 2, 1, 2, 1, 1, 2, 2, 2, & ! 5 & 2, 2, 1, 2, 1, 2, 1, 2, 2, 2, & ! 6 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 7 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 8 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 9 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! O & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 1 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 2 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 3 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 4 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 5 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 6 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 7 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 8 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 9 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! O & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 1 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 2 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 3 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 4 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 5 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 6 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 7 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 8 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 9 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! O & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 1 & 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, & ! 2 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 3 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 4 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 5 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 6 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 7 & 2, 2, 2, 2, 2, 2, 1, 2, 1, 2, & ! 8 & 2, 1, 1, 2, 2, 2, 2, 2, 2, 1, & ! 9 & 1, 1, 2, 2, 1, 2, 2, 1, 2, 2, & ! O & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 1 & 2, 2, 2, 2, 2, 2, 1, 2, 2, 1, & ! 2 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 3 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 4 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 5 & 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 6 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 7 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 8 & 2, 2, 2, 1, 1, 2, 2, 2, 2, 1, & ! 9 & 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, & ! O & 2, 2, 2, 2, 2, 1, 1, 2, 2, 2, & ! 1 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 2 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 3 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 4 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 5 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 6 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 7 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 8 & 2, 2, 2, 2, 2, 2, 2, 1, 2, 1, & ! 9 & 2, 2, 1, 1, 2, 1, 2, 1, 2, 1, & ! O & 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, & ! 1 & 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, & ! 2 & 2, 2, 2, 2, 2, 2, 2, 1, 2, 1, & ! 3 & 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 4 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 5 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 6 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 7 & 2, 2, 1, 1, 1, 1, 1, 1, 2, 2, & ! 8 & 2, 1, 1, 1, 1, 1, 2, 2, 2, 1, & ! 9 & 2, 1, 2, 1, 1, 1, 1, 1, 1, 1, & ! O & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 1 & 2, 2, 2, 2, 2, 1, 1, 1, 1/ !2 INTEGER :: NPRDCT( NRXNS ) DATA ( NPRDCT( IRXXN ), IRXXN = 1, NRXNS ) / & & 2, 1, 0, 1, 1, 1, 1, 1, 1, 1, & ! O & 1, 2, 1, 1, 2, 1, 2, 1, 1, 1, & ! 1 & 1, 1, 2, 1, 1, 2, 1, 2, 2, 1, & ! 2 & 2, 1, 2, 4, 1, 1, 1, 1, 3, 1, & ! 3 & 1, 1, 0, 3, 1, 3, 1, 1, 3, 2, & ! 4 & 2, 1, 0, 1, 3, 0, 0, 0, 1, 3, & ! 5 & 0, 0, 1, 2, 5, 3, 6, 3, 5, 2, & ! 6 & 2, 2, 1, 2, 8, 6, 9, 6, 7, 5, & ! 7 & 5, 6, 5, 1, 2, 6, 4, 7, 4, 5, & ! 8 & 3, 3, 4, 6, 3, 1, 2, 6, 1, 2, & ! 9 & 1, 1, 3, 2, 1, 2, 2, 2, 2, 2, & ! O & 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, & ! 1 & 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, & ! 2 & 2, 2, 2, 2, 1, 2, 1, 2, 2, 2, & ! 3 & 2, 2, 2, 2, 1, 2, 2, 2, 2, 1, & ! 4 & 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, & ! 5 & 1, 2, 2, 2, 1, 2, 2, 2, 2, 2, & ! 6 & 2, 2, 1, 2, 1, 2, 2, 2, 2, 2, & ! 7 & 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, & ! 8 & 2, 2, 2, 2, 1, 2, 3, 1, 3, 2, & ! 9 & 6, 6, 2, 4, 3, 10, 5, 2, 2, 6, & ! O & 7, 3, 3, 12, 3, 11, 12, 17, 6, 2, & ! 1 & 2, 3, 4, 3, 2, 3, 1, 5, 2, 1, & ! 2 & 1, 0, 1, 0, 2, 12, 10, 7, 12, 10, & ! 3 & 1, 14, 21, 11, 1, 12, 2, 4, 14, 15, & ! 4 & 12, 7, 17, 10, 20, 19, 3, 2, 8, 7, & ! 5 & 9, 1, 8, 6, 3, 8, 5, 4, 4, 6, & ! 6 & 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, & ! 7 & 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, & ! 8 & 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, & ! 9 & 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, & ! O & 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, & ! 1 & 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, & ! 2 & 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, & ! 3 & 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, & ! 4 & 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, & ! 5 & 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, & ! 6 & 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, & ! 7 & 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, & ! 8 & 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, & ! 9 & 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, & ! O & 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, & ! 1 & 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, & ! 2 & 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, & ! 3 & 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, & ! 4 & 2, 1, 2, 1, 2, 2, 2, 1, 1, 1, & ! 5 & 1, 1, 2, 1, 2, 2, 2, 1, 1, 1, & ! 6 & 1, 1, 2, 1, 2, 2, 2, 1, 1, 1, & ! 7 & 1, 2, 1, 3, 3, 3, 3, 3, 3, 3, & ! 8 & 3, 2, 1, 3, 3, 3, 3, 3, 3, 3, & ! 9 & 3, 3, 2, 1, 2, 2, 2, 2, 2, 2, & ! O & 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, & ! 1 & 2, 2, 1, 5, 6, 4, 10, 7, 9, 5, & ! 2 & 2, 8, 9, 10, 12, 16, 8, 13, 20, 13, & ! 3 & 2, 5, 4, 13, 16, 16, 17, 17, 18, 7, & ! 4 & 4, 7, 12, 14, 11, 4, 17, 19, 10, 3, & ! 5 & 14, 26, 14, 3, 15, 18, 18, 17, 24, 1, & ! 6 & 13, 1, 13, 14, 13, 13, 15, 17, 15, 15, & ! 7 & 15, 3, 17, 24, 17, 3, 1, 1, 2, 1, & ! 8 & 1, 2, 2, 1, 2, 1, 2, 2, 1, 2, & ! 9 & 2, 2, 2, 1, 2, 2, 1, 2, 3, 2, & ! O & 3, 7, 5, 11, 20, 16, 4, 3, 4, 2, & ! 1 & 11, 12, 18, 12, 7, 18, 6, 1, 2, 5, & ! 2 & 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, & ! 3 & 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, & ! 4 & 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, & ! 5 & 2, 4, 9, 9, 11, 22, 2, 5, 5, 5, & ! 6 & 5, 5, 8, 5, 8, 13, 15, 12, 15, 19, & ! 7 & 5, 6, 6, 22, 22, 3, 2, 4, 2, 4, & ! 8 & 2, 4, 2, 0, 0, 1, 1, 1, 1, 0, & ! 9 & 1, 1, 1, 1, 1, 1, 0, 1, 2, 10, & ! O & 6, 9, 8, 8, 9, 2, 7, 2, 1, 7, & ! 1 & 7, 1, 9, 8, 8, 9, 1, 10, 1, 11, & ! 2 & 9, 11, 11, 1, 11, 1, 13, 12, 13, 12, & ! 3 & 1, 7, 1, 9, 8, 9, 12, 3, 5, 5, & ! 4 & 1, 3, 4, 5, 5, 3, 4, 1, 3, 6, & ! 5 & 4, 8, 2, 6, 1, 5, 7, 7, 6, 1, & ! 6 & 8, 6, 7, 1, 7, 1, 7, 6, 7, 7, & ! 7 & 1, 7, 6, 7, 5, 7, 5, 5, 4, 4, & ! 8 & 4, 8, 6, 4, 3, 7, 8, 3, 3, 4, & ! 9 & 2, 2, 3, 3, 5, 3, 8, 4, 4, 2, & ! O & 2, 3, 1, 10, 11, 12, 11, 11, 8, 3, & ! 1 & 2, 3, 2, 6, 10, 11, 5, 3, 5, 5, & ! 2 & 4, 4, 4, 8, 6, 4, 4, 3, 1, 2, & ! 3 & 6, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 4 & 2, 2, 3, 1, 1, 1, 2, 2, 2, 2, & ! 5 & 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, & ! 6 & 2, 2, 2, 2, 2, 2, 8, 0, 0, 2, & ! 7 & 20, 20, 19, 2, 2, 2, 1, 1, 1, 1, & ! 8 & 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, & ! 9 & 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, & ! O & 3, 1, 3, 1, 2, 10, 7, 7, 7, 6, & ! 1 & 6, 6, 6, 6, 6, 2, 2, 1, 1/ !2 INTEGER, PARAMETER :: MHETERO = 24 INTEGER :: IHETERO( MHETERO,2 ) DATA ( IHETERO( IRXXN,1 ), IRXXN = 1, MHETERO ) / & & 884, 885, 886, 887, 888, 889, 890, 891, 893, 894, & & 895, 896, 897, 898, 899, 900, 901, 902, 903, 904, & & 912, 914, 928, 929/ DATA ( IHETERO( IRXXN,2 ), IRXXN = 1, MHETERO ) / & & 1, 2, 3, 4, 5, 6, 6, 7, 8, 9, & & 9, 10, 11, 12, 13, 14, 15, 14, 15, 16, & & 17, 18, 19, 20/ INTEGER, PARAMETER :: NPHOTAB = 40 CHARACTER( 16 ) :: PHOTAB( NPHOTAB ) DATA ( PHOTAB( IRXXN ), IRXXN = 1, NPHOTAB ) / & & 'NO2_06 ', 'NO3NO_06 ', 'NO3NO2_6 ', & & 'O3O1D_06 ', 'O3O3P_06 ', 'HONO_06 ', & & 'HNO3 ', 'HNO4_06 ', 'H2O2 ', & & 'PAN ', 'HCHOR_06 ', 'HCHOM_06 ', & & 'CCHO_R ', 'C2CHO ', 'ACET_06 ', & & 'MEK_06 ', 'COOH ', 'GLY_07R ', & & 'GLY_07M ', 'MGLY_06 ', 'BACL_07 ', & & 'BALD_06 ', 'AFG1 ', 'MVK_06 ', & & 'MACR_06 ', 'IC3ONO2 ', 'HOCCHO_IUPAC ', & & 'ACRO_09 ', 'PAA ', 'CL2 ', & & 'CLNO_06 ', 'CLONO ', 'CLNO2 ', & & 'CLONO2_1 ', 'CLONO2_2 ', 'HOCL_06 ', & & 'CLCCHO ', 'CLACET ', 'HPALD ', & & 'NOA '/ INTEGER, PARAMETER :: NHETERO = 20 CHARACTER( 16 ) :: HETERO( NHETERO ) DATA ( HETERO( IRXXN ), IRXXN = 1, NHETERO ) / & & 'HETERO_NO2 ', 'HETERO_N2O5IJ ', 'HETERO_N2O5K ', & & 'HETERO_H2NO3PAIJ', 'HETERO_H2NO3PAK ', 'HETERO_H2NO3PBIJ', & & 'HETERO_H2NO3PBK ', 'HETERO_IEPOX ', 'HETERO_IMAE ', & & 'HETERO_TETROL ', 'HETERO_IEPOXOS ', 'HETERO_TETROLDIM', & & 'HETERO_IEPOXOSDI', 'HETERO_2MG ', 'HETERO_IMAEOS ', & & 'HETERO_NO3 ', 'HETERO_PNCOMLI ', 'HETERO_PNCOMLJ ', & & 'HETERO_GLY ', 'HETERO_MGLY '/ CHARACTER( 16 ) :: RXLABEL( NRXNS ) DATA ( RXLABEL( IRXXN ), IRXXN = 1, NRXNS ) / & & '1 ', '2 ', '3 ', & ! 0 & '4 ', '5 ', '6 ', & ! 1 & '7 ', '8 ', '9 ', & ! 2 & '10 ', '11 ', '12 ', & ! 3 & '13 ', '14 ', '15 ', & ! 4 & '16 ', '17 ', '18 ', & ! 5 & '19 ', '20 ', '21 ', & ! 6 & '22 ', '23 ', '24 ', & ! 7 & '25 ', '26 ', '27 ', & ! 8 & '28 ', '29 ', '30 ', & ! 9 & '31 ', '32 ', '33 ', & ! 0 & '34 ', '35 ', '36 ', & ! 1 & '37 ', '38 ', '39 ', & ! 2 & '40 ', '41 ', '42 ', & ! 3 & '43 ', '44 ', '45 ', & ! 4 & 'BR01 ', 'BR02 ', 'BR03 ', & ! 5 & 'BR04 ', 'BR05 ', 'BR06 ', & ! 6 & 'BR07 ', 'BR08 ', 'BR09 ', & ! 7 & 'BR10 ', 'BR11 ', 'BR12 ', & ! 8 & 'BR13 ', 'BR14 ', 'BR15 ', & ! 9 & 'BR16 ', 'BR17 ', 'BR18 ', & ! 0 & 'BR19 ', 'BR20 ', 'BR21 ', & ! 1 & 'BR22 ', 'BR23 ', 'BR24 ', & ! 2 & 'BR25 ', 'BR26 ', 'BR27 ', & ! 3 & 'BR28 ', 'BR29 ', 'BR30 ', & ! 4 & 'BR31 ', 'BR32 ', 'BR33 ', & ! 5 & 'BR34 ', 'BR35 ', 'BR36 ', & ! 6 & 'BR37 ', 'BR38 ', 'BR39 ', & ! 7 & 'BR40 ', 'BR41 ', 'BR42 ', & ! 8 & 'BR43 ', 'BR44 ', 'BR45 ', & ! 9 & 'BR46 ', 'BR47 ', 'BR48 ', & ! 0 & 'BR49 ', 'BR50 ', 'BR51 ', & ! 1 & 'BR52 ', 'BR53 ', 'BR64 ', & ! 2 & 'BR65 ', 'BR66 ', 'BR67 ', & ! 3 & 'BR68 ', 'R019 ', 'R020 ', & ! 4 & 'R021 ', 'R022 ', 'R023 ', & ! 5 & 'R024 ', 'R025 ', 'R026 ', & ! 6 & 'R027 ', 'R028 ', 'R029 ', & ! 7 & 'R030 ', 'R031 ', 'R032 ', & ! 8 & 'R033 ', 'R034 ', 'R035 ', & ! 9 & 'R036 ', 'R037 ', 'R038 ', & ! 0 & 'R039 ', 'R040 ', 'R041 ', & ! 1 & 'R042 ', 'R043 ', 'R044 ', & ! 2 & 'R045 ', 'R046 ', 'R047 ', & ! 3 & 'R048 ', 'R049 ', 'R050 ', & ! 4 & 'R051 ', 'R052 ', 'R053 ', & ! 5 & 'R054 ', 'R055 ', 'R056 ', & ! 6 & 'R057 ', 'R058 ', 'R059 ', & ! 7 & 'R060 ', 'R061 ', 'R062 ', & ! 8 & 'R063 ', 'R064 ', 'R065 ', & ! 9 & 'R066 ', 'R067 ', 'R068 ', & ! 0 & 'R069 ', 'R070 ', 'R071 ', & ! 1 & 'R072 ', 'R073 ', 'R074 ', & ! 2 & 'R075 ', 'R076 ', 'R077 ', & ! 3 & 'R078 ', 'R079 ', 'R080 ', & ! 4 & 'R081 ', 'R082 ', 'R083 ', & ! 5 & 'R084 ', 'R085 ', 'R086 ', & ! 6 & 'R087 ', 'R088 ', 'R089 ', & ! 7 & 'R090 ', 'R091 ', 'R092 ', & ! 8 & 'R093 ', 'R094 ', 'R095 ', & ! 9 & 'R096 ', 'R097 ', 'R098 ', & ! 0 & 'R099 ', 'R100 ', 'R101 ', & ! 1 & 'R102 ', 'R103 ', 'R104 ', & ! 2 & 'R105 ', 'R106 ', 'R107 ', & ! 3 & 'R108 ', 'BP01 ', 'BP02 ', & ! 4 & 'BP03 ', 'BP07 ', 'BP08 ', & ! 5 & 'BP09 ', 'BP10 ', 'BP11 ', & ! 6 & 'BP12 ', 'BP13 ', 'BP14 ', & ! 7 & 'BP15 ', 'BP16 ', 'BP17 ', & ! 8 & 'BP18 ', 'BP19 ', 'BP20 ', & ! 9 & 'BP21 ', 'BP22 ', 'BP23 ', & ! 0 & 'BP24 ', 'BP25 ', 'BP26 ', & ! 1 & 'BP27 ', 'BP28 ', 'BP29 ', & ! 2 & 'BP30 ', 'BP31 ', 'BP32 ', & ! 3 & 'BP33 ', 'BP34 ', 'BP35 ', & ! 4 & 'BP36 ', 'BP37 ', 'BP38 ', & ! 5 & 'BP39 ', 'BP40 ', 'BP41 ', & ! 6 & 'BP42 ', 'BP43 ', 'BP44 ', & ! 7 & 'BP45 ', 'BP46 ', 'BP47 ', & ! 8 & 'BP48 ', 'BP49 ', 'BP50 ', & ! 9 & 'BP51 ', 'BP52 ', 'BP53 ', & ! 0 & 'BP55 ', 'BP57 ', 'BP60 ', & ! 1 & 'BP62 ', 'BP63 ', 'BP64 ', & ! 2 & 'BP65 ', 'BP66 ', 'BP67 ', & ! 3 & 'BP68 ', 'BP69 ', 'BP70 ', & ! 4 & 'BP71 ', 'BP73 ', 'BP74 ', & ! 5 & 'BP75 ', 'BP76 ', 'BP77 ', & ! 6 & 'BP78 ', 'BP79 ', 'BP80 ', & ! 7 & 'BP81 ', 'BP82 ', 'BP83 ', & ! 8 & 'BP84 ', 'BP85 ', 'BP86 ', & ! 9 & 'P001 ', 'P002 ', 'P003 ', & ! 0 & 'P004 ', 'P005 ', 'P006 ', & ! 1 & 'P007 ', 'P008 ', 'P009 ', & ! 2 & 'P010 ', 'P011 ', 'P012 ', & ! 3 & 'P013 ', 'P014 ', 'P015 ', & ! 4 & 'P016 ', 'P017 ', 'P018 ', & ! 5 & 'P019 ', 'P020 ', 'P021 ', & ! 6 & 'P022 ', 'P023 ', 'P024 ', & ! 7 & 'P025 ', 'P026 ', 'P027 ', & ! 8 & 'P028 ', 'P029 ', 'P030 ', & ! 9 & 'P031 ', 'P032 ', 'P033 ', & ! 0 & 'P034 ', 'P035 ', 'P036 ', & ! 1 & 'P037 ', 'P038 ', 'P039 ', & ! 2 & 'P040 ', 'P041 ', 'P042 ', & ! 3 & 'P043 ', 'P044 ', 'P045 ', & ! 4 & 'P046 ', 'P047 ', 'P048 ', & ! 5 & 'P049 ', 'P050 ', 'P051 ', & ! 6 & 'P052 ', 'P053 ', 'P054 ', & ! 7 & 'P055 ', 'P056 ', 'P057 ', & ! 8 & 'P058 ', 'P059 ', 'P060 ', & ! 9 & 'P061 ', 'P062 ', 'P063 ', & ! 0 & 'P064 ', 'P065 ', 'P066 ', & ! 1 & 'P067 ', 'P068 ', 'P069 ', & ! 2 & 'P070 ', 'P071 ', 'P072 ', & ! 3 & 'P073 ', 'P074 ', 'P075 ', & ! 4 & 'P076 ', 'P077 ', 'P078 ', & ! 5 & 'P079 ', 'P080 ', 'P081 ', & ! 6 & 'P082 ', 'P083 ', 'P084 ', & ! 7 & 'P085 ', 'P086 ', 'P087 ', & ! 8 & 'P088 ', 'P089 ', 'P090 ', & ! 9 & 'P091 ', 'P092 ', 'P093 ', & ! 0 & 'P094 ', 'P095 ', 'P096 ', & ! 1 & 'P097 ', 'P098 ', 'P099 ', & ! 2 & 'P100 ', 'P101 ', 'P102 ', & ! 3 & 'P103 ', 'P104 ', 'P105 ', & ! 4 & 'P106 ', 'P107 ', 'P108 ', & ! 5 & 'P109 ', 'P110 ', 'P111 ', & ! 6 & 'P112 ', 'P113 ', 'P114 ', & ! 7 & 'P115 ', 'P116 ', 'P117 ', & ! 8 & 'P118 ', 'P119 ', 'P120 ', & ! 9 & 'P121 ', 'P122 ', 'P123 ', & ! 0 & 'P124 ', 'P125 ', 'P126 ', & ! 1 & 'P127 ', 'P128 ', 'P129 ', & ! 2 & 'P130 ', 'P131 ', 'P132 ', & ! 3 & 'P133 ', 'P134 ', 'P135 ', & ! 4 & 'P136 ', 'P137 ', 'P138 ', & ! 5 & 'P139 ', 'P140 ', 'P141 ', & ! 6 & 'P142 ', 'P143 ', 'P144 ', & ! 7 & 'P145 ', 'P146 ', 'P147 ', & ! 8 & 'P148 ', 'P149 ', 'P150 ', & ! 9 & 'P151 ', 'P152 ', 'P153 ', & ! 0 & 'P154 ', 'P155 ', 'P156 ', & ! 1 & 'P157 ', 'P158 ', 'P159 ', & ! 2 & 'P160 ', 'P161 ', 'P162 ', & ! 3 & 'P163 ', 'P164 ', 'P165 ', & ! 4 & 'P166 ', 'P167 ', 'P168 ', & ! 5 & 'P169 ', 'P170 ', 'PX161 ', & ! 6 & 'PX162 ', 'PX163 ', 'PX164 ', & ! 7 & 'PX165 ', 'PX166 ', 'PX167 ', & ! 8 & 'PX168 ', 'PX169 ', 'PX170 ', & ! 9 & 'PX170b ', 'P171 ', 'P172 ', & ! 0 & 'P173 ', 'P174 ', 'P175 ', & ! 1 & 'P176 ', 'P177 ', 'P178 ', & ! 2 & 'P179 ', 'P180 ', 'P181 ', & ! 3 & 'P182 ', 'P183 ', 'P184 ', & ! 4 & 'P185 ', 'P186 ', 'P187 ', & ! 5 & 'P188 ', 'P189 ', 'P190 ', & ! 6 & 'P191 ', 'P192 ', 'P193 ', & ! 7 & 'P194 ', 'P195 ', 'P196 ', & ! 8 & 'P197 ', 'P198 ', 'P199 ', & ! 9 & 'P200 ', 'P201 ', 'P202 ', & ! 0 & 'P203 ', 'P204 ', 'P205 ', & ! 1 & 'P206 ', 'P207 ', 'P208 ', & ! 2 & 'P209 ', 'P210 ', 'PZ201 ', & ! 3 & 'PZ202 ', 'PZ203 ', 'PZ204 ', & ! 4 & 'PZ205 ', 'PZ206 ', 'PZ207 ', & ! 5 & 'PZ208 ', 'PZ209 ', 'PZ210 ', & ! 6 & 'PZ210b ', 'P211 ', 'P212 ', & ! 7 & 'P213 ', 'P214 ', 'P215 ', & ! 8 & 'P216 ', 'P217 ', 'P218 ', & ! 9 & 'P219 ', 'P220 ', 'P221 ', & ! 0 & 'P222 ', 'P223 ', 'P224 ', & ! 1 & 'P225 ', 'P226 ', 'P227 ', & ! 2 & 'P228 ', 'P229 ', 'P230 ', & ! 3 & 'BE01 ', 'BE02 ', 'BE03 ', & ! 4 & 'BE04 ', 'BE05 ', 'BT01 ', & ! 5 & 'BT02 ', 'BT03 ', 'BT04 ', & ! 6 & 'BT05 ', 'BT06 ', 'BT07 ', & ! 7 & 'BT08 ', 'BE07 ', 'BE09 ', & ! 8 & 'BT09 ', 'BT10 ', 'BT11 ', & ! 9 & 'BT12 ', 'BE10 ', 'BE11 ', & ! 0 & 'BE12 ', 'BT13 ', 'BT14 ', & ! 1 & 'BT15 ', 'BT16 ', 'BT17 ', & ! 2 & 'BT18 ', 'BL01 ', 'BL02 ', & ! 3 & 'BL03 ', 'BL04 ', 'BL05 ', & ! 4 & 'AALK ', 'BL06 ', 'BL07 ', & ! 5 & 'BL08 ', 'BL09 ', 'BL10 ', & ! 6 & 'BL11 ', 'BL12 ', 'BL13 ', & ! 7 & 'BL14 ', 'BL15a ', 'BL15b ', & ! 8 & 'BL16 ', 'BL17 ', 'BL18 ', & ! 9 & 'BL18a ', 'BL18b ', 'BL18c ', & ! 0 & 'BL18d ', 'BL18e ', 'BL18f ', & ! 1 & 'BL18g ', 'BL18h ', 'BL18i ', & ! 2 & 'BL19j ', 'BL19k ', 'BL19 ', & ! 3 & 'BT19 ', 'BT20 ', 'BT21 ', & ! 4 & 'BT22 ', 'CI01 ', 'CI02 ', & ! 5 & 'CI03 ', 'CI04 ', 'CI05 ', & ! 6 & 'CI06 ', 'CI07 ', 'CI08 ', & ! 7 & 'CI09 ', 'CI10 ', 'CI11 ', & ! 8 & 'CI12 ', 'CI13 ', 'CI14 ', & ! 9 & 'CI15 ', 'CI16 ', 'CI17 ', & ! 0 & 'CI18 ', 'CI19 ', 'CI20 ', & ! 1 & 'CI21 ', 'CI22 ', 'CP01 ', & ! 2 & 'CP02 ', 'CP03 ', 'CP04 ', & ! 3 & 'CP05 ', 'CP06 ', 'CP07 ', & ! 4 & 'CP08 ', 'CP09 ', 'CP10 ', & ! 5 & 'CP11 ', 'CP12 ', 'CP13 ', & ! 6 & 'CP14 ', 'CP15 ', 'TP01 ', & ! 7 & 'CP17 ', 'CP18 ', 'CP19 ', & ! 8 & 'CP20 ', 'CP21 ', 'CP22 ', & ! 9 & 'CP29 ', 'CP30 ', 'CP31 ', & ! 0 & 'CP32 ', 'CP33 ', 'CP34 ', & ! 1 & 'CP35 ', 'CP36 ', 'CP37 ', & ! 2 & 'CP38 ', 'CP39 ', 'CP40 ', & ! 3 & 'CP41 ', 'CP42 ', 'CP43 ', & ! 4 & 'CP44 ', 'CP45 ', 'CP46 ', & ! 5 & 'CP47 ', 'CP48 ', 'CP49 ', & ! 6 & 'CP50 ', 'CP51 ', 'CP52 ', & ! 7 & 'CP53 ', 'CP54 ', 'CP55 ', & ! 8 & 'CP56 ', 'CP57 ', 'CP58 ', & ! 9 & 'CE01 ', 'CE02 ', 'TE01 ', & ! 0 & 'TE02 ', 'CE03 ', 'TE03 ', & ! 1 & 'CE04 ', 'TE04 ', 'TE05 ', & ! 2 & 'TE06 ', 'TE07 ', 'TE08 ', & ! 3 & 'TE09 ', 'BC01 ', 'BC02 ', & ! 4 & 'BC03 ', 'BC04 ', 'BC05 ', & ! 5 & 'BC06 ', 'BC07 ', 'BC08 ', & ! 6 & 'BC09a ', 'BC09b ', 'BC10 ', & ! 7 & 'BC11 ', 'AE51 ', 'AE52 ', & ! 8 & 'AE53 ', 'AE54 ', 'AE55 ', & ! 9 & 'AE56 ', 'AE57 ', 'AE58 ', & ! 0 & 'TR01 ', 'TR02 ', 'TR03 ', & ! 1 & 'TR05 ', 'TR06 ', 'TR07 ', & ! 2 & 'TR08 ', 'TR09 ', 'TR10 ', & ! 3 & 'TR11 ', 'TR12 ', 'TR13 ', & ! 4 & 'TR14 ', 'TR15 ', 'TR16 ', & ! 5 & 'IS1 ', 'IS2 ', 'IS3 ', & ! 6 & 'IS4 ', 'IS5 ', 'IS6 ', & ! 7 & 'IS7 ', 'IS107 ', 'IS137 ', & ! 8 & 'IS138 ', 'IS9 ', 'IS10 ', & ! 9 & 'IS11 ', 'IS12 ', 'IS13 ', & ! 0 & 'IS14 ', 'IS140 ', 'IS15 ', & ! 1 & 'IS17 ', 'IS18 ', 'IS19 ', & ! 2 & 'IS20 ', 'IS21 ', 'IS22 ', & ! 3 & 'IS24 ', 'IS25 ', 'IS26 ', & ! 4 & 'IS141 ', 'IS142 ', 'IS143 ', & ! 5 & 'IS144 ', 'IS27 ', 'IS28 ', & ! 6 & 'IS29 ', 'IS145 ', 'IS146 ', & ! 7 & 'IS147 ', 'IS148 ', 'IS30 ', & ! 8 & 'IS31 ', 'IS32 ', 'IS34 ', & ! 9 & 'IS109 ', 'IS36 ', 'IS38 ', & ! 0 & 'IS40 ', 'IS41 ', 'IS33 ', & ! 1 & 'IS35 ', 'IS37 ', 'IS39 ', & ! 2 & 'IS43 ', 'IS44 ', 'IS46 ', & ! 3 & 'IS47 ', 'IS48 ', 'IS50 ', & ! 4 & 'IS51 ', 'IS52 ', 'IS53 ', & ! 5 & 'IS55 ', 'IS102 ', 'IS103 ', & ! 6 & 'IS104 ', 'IS105 ', 'IS56 ', & ! 7 & 'IS57 ', 'IS58 ', 'IS59 ', & ! 8 & 'IS60 ', 'IS61 ', 'IS63 ', & ! 9 & 'IS64 ', 'IS65 ', 'IS66 ', & ! 0 & 'IS67 ', 'IS69 ', 'IS70 ', & ! 1 & 'IS71 ', 'IS72 ', 'IS73 ', & ! 2 & 'IS74 ', 'IS75 ', 'IS76 ', & ! 3 & 'IS77 ', 'IS78 ', 'IS108 ', & ! 4 & 'IS79 ', 'IS80 ', 'IS81 ', & ! 5 & 'IS82 ', 'IS111 ', 'IS83 ', & ! 6 & 'IS93 ', 'IS97 ', 'IS98 ', & ! 7 & 'IS84 ', 'IS106 ', 'IS85 ', & ! 8 & 'IS110 ', 'IS86 ', 'IS87 ', & ! 9 & 'IS88 ', 'IS89 ', 'IS90 ', & ! 0 & 'IS91 ', 'IS96 ', 'IS112 ', & ! 1 & 'IS113 ', 'IS114 ', 'IS92 ', & ! 2 & 'IS94 ', 'IS99 ', 'IS139 ', & ! 3 & 'IS00 ', 'BP56 ', 'BP58 ', & ! 4 & 'CP16 ', 'IA69 ', 'IA70 ', & ! 5 & 'IA71 ', 'IA72 ', 'IA73 ', & ! 6 & 'IA74 ', 'IA75 ', 'IA76 ', & ! 7 & 'IA77 ', 'IA78 ', 'IA79 ', & ! 8 & 'IA80 ', 'IA51 ', 'IA52 ', & ! 9 & 'IA53 ', 'IC01 ', 'IC02 ', & ! 0 & 'IC03 ', 'IC04 ', 'IC05 ', & ! 1 & 'IC06 ', 'IC07 ', 'IC08 ', & ! 2 & 'IC09 ', 'IC10 ', 'IC11 ', & ! 3 & 'IC12 ', 'IC13 ', 'IC14 ', & ! 4 & 'IC15 ', 'IC16 ', 'IC17 ', & ! 5 & 'IC18 ', 'IC19 ', 'IC20 ', & ! 6 & 'IC21 ', 'IC22 ', 'IC23 ', & ! 7 & 'IC24 ', 'IC25 ', 'IC26 ', & ! 8 & 'IC27 ', 'IC28 ', 'IC29 ', & ! 9 & 'IC30 ', 'IC31 ', 'IC32 ', & ! 0 & 'IC33 ', 'IC34 ', 'IC35 ', & ! 1 & 'IA108 ', 'IA90 ', 'IA91 ', & ! 2 & 'IA92 ', 'CP07mtp ', 'BP70mtp ', & ! 3 & 'BP71mtp ', 'HET_N02 ', 'HET_N2O5IJ ', & ! 4 & 'HET_N2O5K ', 'HET_H2NO3PIJA ', 'HET_H2NO3PKA ', & ! 5 & 'HET_H2NO3PIB ', 'HET_H2NO3PJB ', 'HET_H2NO3PKB ', & ! 6 & 'HAL_Ozone ', 'HET_IEPOX ', 'HET_IMAE ', & ! 7 & 'HET_IHMML ', 'HET_TETROL ', 'HET_IEPOXOS ', & ! 8 & 'HET_DIM1 ', 'HET_DIM2 ', 'HET_2MG1 ', & ! 9 & 'HET_IMAEOS1 ', 'HET_2MG2 ', 'HET_IMAEOS2 ', & ! 0 & 'HET_NO3 ', 'OLIG_ISOPRENE1 ', 'OLIG_ISOPRENE2 ', & ! 1 & 'OLIG_SESQT1 ', 'OLIG_AROMATIC1 ', 'OLIG_AROMATIC2 ', & ! 2 & 'OLIG_AROMATIC3 ', 'RPOAGEPI ', 'RPOAGELI ', & ! 3 & 'RPOAGEPJ ', 'RPOAGELJ ', 'PCSOA ', & ! 4 & 'POA_AGE1 ', 'POA_AGE2 ', 'POA_AGE3 ', & ! 5 & 'POA_AGE4 ', 'POA_AGE5 ', 'POA_AGE6 ', & ! 6 & 'POA_AGE7 ', 'POA_AGE8 ', 'POA_AGE9 ', & ! 7 & 'POA_AGE10 ', 'HYD_MT ', 'HYD_ISOP ', & ! 8 & 'HET_GLY ', 'HET_MGLY '/ ! ! NSPECIAL = Number of special rate coefficients ! SPECIAL = Names of special rate coefficients ! NSPECIAL_RXN = Number of reactions with special rates ! ISPECIAL = Pointers to reactions using special rates and their special rate coefficients ! MAXSPECTERMS = Max Number of terms type used by special rate coefficients ! KC_COEFFS = Coefficients of standard rate coefficients times concentration terms ! INDEX_KTERMS = Pointers to standard rate coefficients in special rate coefficients ! INDEX_CTERMS = Pointers to species concentrations in special rate coefficients ! OPERATOR_COEFFS = Coefficients of preceeding special rate coefficients used in special coefficient ! OPERATORS = Pointers to preceeding special rate coefficients used in special coefficient ! Special Rate information not available .. INTEGER, PARAMETER :: NSPECIAL_RXN = 0 INTEGER :: ISPECIAL( 1, 2 ) ! Special Rate information not available ... INTEGER, PARAMETER :: NSPECIAL = 0 ! Special Rate information not available ... CHARACTER( 16 ) :: SPECIAL( 1 ) INTEGER, PARAMETER :: MAXSPECTERMS = 1 REAL( 8 ) :: KC_COEFFS( NSPECIAL + 1, MAXSPECTERMS) INTEGER :: INDEX_KTERMS( NSPECIAL + 1, MAXSPECTERMS) INTEGER :: INDEX_CTERMS( NSPECIAL + 1, MAXSPECTERMS) REAL( 8 ) :: OPERATOR_COEFFS( NSPECIAL + 1, MAXSPECTERMS) INTEGER :: OPERATORS( NSPECIAL + 1, MAXSPECTERMS) ! Steady-state species section ! N_SS_SPC = Number of species assumed to be in steady-state ! SS_SPC_DIM = Dimension paramete for steady-state species ! SS_SPC = Names of species assumed to be in steady-state ! MAX_SS_LOSS = Max no. of SS loss rxns for any SS species ! MAX_SS_PROD = Max no. of SS prod rxns for any SS species ! N_LOSS_RXNS = No. of SS loss rxns for each SS species ! N_PROD_RXNS = No. of SS prod rxns for each SS species ! SS_LOSS_RXNS = List of SS loss rxns for each SS species ! SS_PROD_RXNS = List of SS prod rxns for each SS species ! SS_PROD_COEF = List of SS prod yields for each SS species ! SS_RCT_IND = SS species index if it is a rxn reactant INTEGER, PARAMETER :: N_SS_SPC = 0 INTEGER, PARAMETER :: SS_SPC_DIM = 1 INTEGER, PARAMETER :: MAX_SS_LOSS = 0 INTEGER, PARAMETER :: MAX_SS_PROD = 0 CHARACTER( 16 ) :: SS_SPC( 1 ) INTEGER :: N_LOSS_RXNS( 1 ) INTEGER :: N_PROD_RXNS( 1 ) INTEGER :: SS_LOSS_RXNS( 1, 1 ) INTEGER :: SS_PROD_RXNS( 1, 1 ) INTEGER :: SS_RCT_IND( 1 ) REAL :: SS_PROD_COEF( 1,1 ) LOGICAL, PARAMETER :: USE_SPECIAL_RATES = .FALSE. ! pointers and names to specific photolysis rates INTEGER, PARAMETER :: IJ_NO2_06 = 1 INTEGER, PARAMETER :: IJ_NO3NO_06 = 2 INTEGER, PARAMETER :: IJ_NO3NO2_6 = 3 INTEGER, PARAMETER :: IJ_O3O1D_06 = 4 INTEGER, PARAMETER :: IJ_O3O3P_06 = 5 INTEGER, PARAMETER :: IJ_HONO_06 = 6 INTEGER, PARAMETER :: IJ_HNO3 = 7 INTEGER, PARAMETER :: IJ_HNO4_06 = 8 INTEGER, PARAMETER :: IJ_H2O2 = 9 INTEGER, PARAMETER :: IJ_PAN = 10 INTEGER, PARAMETER :: IJ_HCHOR_06 = 11 INTEGER, PARAMETER :: IJ_HCHOM_06 = 12 INTEGER, PARAMETER :: IJ_CCHO_R = 13 INTEGER, PARAMETER :: IJ_C2CHO = 14 INTEGER, PARAMETER :: IJ_ACET_06 = 15 INTEGER, PARAMETER :: IJ_MEK_06 = 16 INTEGER, PARAMETER :: IJ_COOH = 17 INTEGER, PARAMETER :: IJ_GLY_07R = 18 INTEGER, PARAMETER :: IJ_GLY_07M = 19 INTEGER, PARAMETER :: IJ_MGLY_06 = 20 INTEGER, PARAMETER :: IJ_BACL_07 = 21 INTEGER, PARAMETER :: IJ_BALD_06 = 22 INTEGER, PARAMETER :: IJ_AFG1 = 23 INTEGER, PARAMETER :: IJ_MVK_06 = 24 INTEGER, PARAMETER :: IJ_MACR_06 = 25 INTEGER, PARAMETER :: IJ_IC3ONO2 = 26 INTEGER, PARAMETER :: IJ_HOCCHO_IUPAC = 27 INTEGER, PARAMETER :: IJ_ACRO_09 = 28 INTEGER, PARAMETER :: IJ_PAA = 29 INTEGER, PARAMETER :: IJ_CL2 = 30 INTEGER, PARAMETER :: IJ_CLNO_06 = 31 INTEGER, PARAMETER :: IJ_CLONO = 32 INTEGER, PARAMETER :: IJ_CLNO2 = 33 INTEGER, PARAMETER :: IJ_CLONO2_1 = 34 INTEGER, PARAMETER :: IJ_CLONO2_2 = 35 INTEGER, PARAMETER :: IJ_HOCL_06 = 36 INTEGER, PARAMETER :: IJ_CLCCHO = 37 INTEGER, PARAMETER :: IJ_CLACET = 38 INTEGER, PARAMETER :: IJ_HPALD = 39 INTEGER, PARAMETER :: IJ_NOA = 40 INTEGER, PARAMETER :: IK_HETERO_NO2 = 1 INTEGER, PARAMETER :: IK_HETERO_N2O5IJ = 2 INTEGER, PARAMETER :: IK_HETERO_N2O5K = 3 INTEGER, PARAMETER :: IK_HETERO_H2NO3PAIJ = 4 INTEGER, PARAMETER :: IK_HETERO_H2NO3PAK = 5 INTEGER, PARAMETER :: IK_HETERO_H2NO3PBIJ = 6 INTEGER, PARAMETER :: IK_HETERO_H2NO3PBK = 7 INTEGER, PARAMETER :: IK_HETERO_IEPOX = 8 INTEGER, PARAMETER :: IK_HETERO_IMAE = 9 INTEGER, PARAMETER :: IK_HETERO_TETROL = 10 INTEGER, PARAMETER :: IK_HETERO_IEPOXOS = 11 INTEGER, PARAMETER :: IK_HETERO_TETROLDIM = 12 INTEGER, PARAMETER :: IK_HETERO_IEPOXOSDI = 13 INTEGER, PARAMETER :: IK_HETERO_2MG = 14 INTEGER, PARAMETER :: IK_HETERO_IMAEOS = 15 INTEGER, PARAMETER :: IK_HETERO_NO3 = 16 INTEGER, PARAMETER :: IK_HETERO_PNCOMLI = 17 INTEGER, PARAMETER :: IK_HETERO_PNCOMLJ = 18 INTEGER, PARAMETER :: IK_HETERO_GLY = 19 INTEGER, PARAMETER :: IK_HETERO_MGLY = 20 END MODULE RXNS_DATA ================================================ FILE: CCTM/src/MECHS/saprc07tic_ae7i_aq/RXNS_FUNC_MODULE.F90 ================================================ MODULE RXNS_FUNCTION IMPLICIT NONE ! Name of Mechanism SAPRC07TIC_AE7I_AQ PUBLIC :: CALC_RCONST, SPECIAL_RATES, MAP_CHEMISTRY_SPECIES CONTAINS REAL( 8 ) FUNCTION POWER_T02( TEMPOT300,A0,B0 ) IMPLICIT NONE ! rate constant for CMAQ Arrhenuis reaction type 2 ! Arguements: REAL( 8 ), INTENT( IN ) :: TEMPOT300 REAL( 8 ), INTENT( IN ) :: A0 REAL( 8 ), INTENT( IN ) :: B0 ! Local: None POWER_T02 = A0 * TEMPOT300**B0 RETURN END FUNCTION POWER_T02 REAL( 8 ) FUNCTION ARRHENUIS_T04( INV_TEMP,TEMPOT300,A0,B0,C0 ) IMPLICIT NONE ! rate constant for CMAQ Arrhenuis reaction type 4 ! Arguements: REAL( 8 ), INTENT( IN ) :: INV_TEMP REAL( 8 ), INTENT( IN ) :: TEMPOT300 REAL( 8 ), INTENT( IN ) :: A0 REAL( 8 ), INTENT( IN ) :: B0 REAL( 8 ), INTENT( IN ) :: C0 ! Local: INTRINSIC DEXP ARRHENUIS_T04 = A0 * DEXP( B0 * INV_TEMP ) * TEMPOT300**C0 RETURN END FUNCTION ARRHENUIS_T04 REAL( 8 ) FUNCTION ARRHENUIS_T03( INV_TEMP,A0,B0 ) ! rate constant for CMAQ Arrhenuis reaction type 3 IMPLICIT NONE ! Arguements: REAL( 8 ), INTENT( IN ) :: INV_TEMP REAL( 8 ), INTENT(IN) :: A0 REAL( 8 ), INTENT(IN) :: B0 ! Local: INTRINSIC DEXP ARRHENUIS_T03 = A0 * DEXP( B0 * INV_TEMP ) RETURN END FUNCTION ARRHENUIS_T03 REAL( 8 ) FUNCTION FALLOFF_T08(INV_TEMP,CAIR,A0,C0,A2,C2,A3,C3) ! rate constant for CMAQ fall off reaction type 8 IMPLICIT NONE ! Arguements: REAL( 8 ), INTENT( IN ) :: INV_TEMP REAL( 8 ), INTENT( IN ) :: CAIR REAL( 8 ), INTENT( IN ) :: A0 REAL( 8 ), INTENT( IN ) :: C0 REAL( 8 ), INTENT( IN ) :: A2 REAL( 8 ), INTENT( IN ) :: C2 REAL( 8 ), INTENT( IN ) :: A3 REAL( 8 ), INTENT( IN ) :: C3 ! Local: REAL( 8 ) K0 REAL( 8 ) K2 REAL( 8 ) K3 INTRINSIC DEXP K0 = A0 * DEXP( C0 * INV_TEMP ) K2 = A2 * DEXP( C2 * INV_TEMP ) K3 = A3 * DEXP( C3 * INV_TEMP ) K3 = K3 * CAIR FALLOFF_T08 = K0 + K3/( 1.0D0 + K3/K2 ) RETURN END FUNCTION FALLOFF_T08 REAL( 8 ) FUNCTION FALLOFF_T09(INV_TEMP,CAIR,A1,C1,A2,C2) ! rate constant for CMAQ fall off reaction type 9 IMPLICIT NONE ! Arguements: REAL( 8 ), INTENT( IN ) :: INV_TEMP REAL( 8 ), INTENT( IN ) :: CAIR REAL( 8 ), INTENT( IN ) :: A1 REAL( 8 ), INTENT( IN ) :: C1 REAL( 8 ), INTENT( IN ) :: A2 REAL( 8 ), INTENT( IN ) :: C2 ! Local: REAL( 8 ) K1 REAL( 8 ) K2 INTRINSIC DEXP K1 = A1 * DEXP( C1 * INV_TEMP ) K2 = A2 * DEXP( C2 * INV_TEMP ) FALLOFF_T09 = K1 + K2 * CAIR RETURN END FUNCTION FALLOFF_T09 REAL( 8 ) FUNCTION FALLOFF_T10(INV_TEMP,TEMPOT300,CAIR,A0,B0,C0,A1,B1,C1,CE,CF) IMPLICIT NONE ! rate constant for CMAQ fall off reaction type 10 ! Arguements: REAL( 8 ), INTENT( IN ) :: INV_TEMP REAL( 8 ), INTENT( IN ) :: TEMPOT300 REAL( 8 ), INTENT( IN ) :: CAIR REAL( 8 ), INTENT( IN ) :: A0 REAL( 8 ), INTENT( IN ) :: B0 REAL( 8 ), INTENT( IN ) :: C0 REAL( 8 ), INTENT( IN ) :: A1 REAL( 8 ), INTENT( IN ) :: B1 REAL( 8 ), INTENT( IN ) :: C1 REAL( 8 ), INTENT( IN ) :: CE REAL( 8 ), INTENT( IN ) :: CF ! Local: REAL( 8 ) K0 REAL( 8 ) K1 REAL( 8 ) KEND K0 = A0 * CAIR * DEXP(B0*INV_TEMP)* TEMPOT300**C0 K1 = A1 * DEXP(B1*INV_TEMP) * TEMPOT300**C1 KEND = ( ( 1.0D0 + ( ( 1.0D0 / CE ) * DLOG10( K0 / K1 ) ) ** 2.0D0 ) ) KEND = 1.0D0 / KEND FALLOFF_T10 = ( K0 / ( 1.0D0 + K0/K1 ) ) * CF ** KEND RETURN END FUNCTION FALLOFF_T10 REAL( 8 ) FUNCTION FALLOFF_T11(INV_TEMP,TEMPOT300,CAIR,A1,B1,C1,A2, B2, C2, D1, D2) ! rate constant for CMAQ fall off reaction type 11 ! actually expanded form of type 9 IMPLICIT NONE ! Arguements: REAL( 8 ), INTENT( IN ) :: INV_TEMP REAL( 8 ), INTENT( IN ) :: TEMPOT300 REAL( 8 ), INTENT( IN ) :: CAIR REAL( 8 ), INTENT( IN ) :: A1 REAL( 8 ), INTENT( IN ) :: B1 REAL( 8 ), INTENT( IN ) :: C1 REAL( 8 ), INTENT( IN ) :: A2 REAL( 8 ), INTENT( IN ) :: B2 REAL( 8 ), INTENT( IN ) :: C2 REAL( 8 ), INTENT( IN ) :: D1 REAL( 8 ), INTENT( IN ) :: D2 ! Local: REAL( 8 ) K1 REAL( 8 ) K2 REAL( 8 ) K3 INTRINSIC DEXP K1 = A1 * DEXP( C1 * INV_TEMP ) * TEMPOT300**B1 K2 = A2 * DEXP( C2 * INV_TEMP ) * TEMPOT300**B2 K3 = D1 * DEXP( D2 * INV_TEMP ) FALLOFF_T11 = K1 + K2 * CAIR + K3 RETURN END FUNCTION FALLOFF_T11 REAL( 8 ) FUNCTION HALOGEN_FALLOFF(PRESS,A1,B1,A2,B2,A3) IMPLICIT NONE REAL( 8 ), INTENT( IN ) :: PRESS REAL( 8 ), INTENT( IN ) :: A1 REAL( 8 ), INTENT( IN ) :: B1 REAL( 8 ), INTENT( IN ) :: A2 REAL( 8 ), INTENT( IN ) :: B2 REAL( 8 ), INTENT( IN ) :: A3 ! Maximum loss rate (1/sec) INTRINSIC DEXP HALOGEN_FALLOFF = A1 * DEXP( B1 * PRESS ) + A2 * DEXP( B2 * PRESS ) HALOGEN_FALLOFF = DMIN1 (A3, HALOGEN_FALLOFF ) RETURN END FUNCTION HALOGEN_FALLOFF SUBROUTINE SPECIAL_RATES( NUMCELLS, Y, TEMP, DENS, RKI ) ! Purpose: calculate special rate operators and update ! appropriate rate constants USE RXNS_DATA IMPLICIT NONE ! Arguments: INTEGER, INTENT( IN ) :: NUMCELLS ! Number of cells in block REAL( 8 ), INTENT( IN ) :: Y( :, : ) ! species concs REAL( 8 ), INTENT( IN ) :: TEMP( : ) ! air temperature, K REAL( 8 ), INTENT( IN ) :: DENS( : ) ! air density, Kg/m3 REAL( 8 ), INTENT( INOUT ) :: RKI( :, : ) ! reaction rate constant, ppm/min ! Local: REAL( 8 ), PARAMETER :: DENSITY_TO_NUMBER = 2.07930D+19 ! Kg/m3 to molecules/cm3 INTEGER :: NCELL REAL( 8 ) :: INV_TEMP REAL( 8 ) :: CAIR REAL( 8 ) :: CFACT ! scales operator if not multiplied by RKI, cm^3/(molecule) to 1/(ppm) REAL( 8 ) :: CFACT_SQU ! scales operator if not multiplied by RKI, cm^6/(molec^2) to 1/(ppm^2) ! special rate operators listed below DO NCELL = 1, NUMCELLS INV_TEMP = 1.0D0 / TEMP( NCELL ) CAIR = DENSITY_TO_NUMBER * DENS( NCELL ) CFACT = 1.0D-06 * CAIR CFACT_SQU = 1.0D-12 * CAIR * CAIR ! define special rate operators ! define rate constants in terms of special rate operators END DO RETURN END SUBROUTINE SPECIAL_RATES SUBROUTINE CALC_RCONST( BLKTEMP, BLKPRES, BLKH2O, RJBLK, BLKHET, LSUNLIGHT, SEAWATER, RKI, NUMCELLS ) !********************************************************************** ! Function: To compute thermal and photolytic reaction rate ! coefficients for each reaction. ! Preconditions: Photolysis rates for individual species must have ! been calculated and stored in RJPHOT. Expects ! temperature in deg K, pressure in atm., water ! vapor in ppmV, and J-values in /min. ! Key Subroutines/Functions Called: POWER_02, ARRHRENUIS_T0*, FALLOFF_T*, HALOGEN_FALLOFF !*********************************************************************** USE RXNS_DATA IMPLICIT NONE ! Arguements: None REAL( 8 ), INTENT( IN ) :: BLKTEMP( : ) ! temperature, deg K REAL( 8 ), INTENT( IN ) :: BLKPRES( : ) ! pressure, Atm REAL( 8 ), INTENT( IN ) :: BLKH2O ( : ) ! water mixing ratio, ppm REAL( 8 ), INTENT( IN ) :: RJBLK ( :, : ) ! photolysis rates, 1/min REAL( 8 ), INTENT( IN ) :: BLKHET ( :, : ) ! heterogeneous rate constants, ???/min INTEGER, INTENT( IN ) :: NUMCELLS ! Number of cells in block LOGICAL, INTENT( IN ) :: LSUNLIGHT ! Is there sunlight? REAL( 8 ), INTENT( IN ) :: SEAWATER( : ) ! fractional area of OPEN+SURF REAL( 8 ), INTENT( OUT ) :: RKI ( :, : ) ! reaction rate constant, ppm/min !..Parameters: REAL( 8 ), PARAMETER :: COEF1 = 7.33981D+15 ! Molec/cc to ppm conv factor REAL( 8 ), PARAMETER :: CONSTC = 0.6D+0 ! Constant for reaction type 7 REAL( 8 ), PARAMETER :: TI300 = 1.0D+0/300.0D+0 ! reciprocal of 300 deg K REAL( 8 ), PARAMETER :: SFACT = 60.D+0 ! seconds per minute !..External Functions: None !..Local Variables: INTEGER :: NRT ! Loop index for reaction types INTEGER :: IRXN ! Reaction number INTEGER :: JNUM ! J-value species # from PHOT) INTEGER :: KNUM ! Reaction # for a relative rate coeff. INTEGER :: N ! Loop index for reactions INTEGER :: NCELL ! Loop index for # of cells in the block REAL( 8 ) :: CAIR ! air number density (wet) [molec/cm^3] REAL( 8 ) :: CFACT ! Convertor cm^3/(molec*sec) to 1/(ppm*min) REAL( 8 ) :: CFACT_SQU ! Convertor cm^6/(molec^2*sec) to 1/(ppm^2*min) REAL( 8 ) :: INV_CFACT ! ppm/min to molec/(cm^3*sec) REAL( 8 ) :: TEMPOT300 ! temperature divided by 300 K, dimensionaless REAL( 8 ) :: INV_TEMP ! reciprocal of air temperature, K-1 REAL( 8 ) :: INV_CAIR ! reciprocal of air number density (wet), [cm^3/molec] REAL( 8 ) :: TEMP ! air temperature, K REAL( 8 ) :: PRESS ! pressure [Atm] REAL( 8 ) :: INV_RFACT ! ppm/min to molec/(cm^3*min) REAL( 8 ) :: RFACT_SQU ! cm^6/(molec^2*min) to 1/(ppm^2*min) REAL( 8 ) :: RFACT ! cm^3/(molec*min) to 1/(ppm*min) REAL( 8 ) :: H2O ! concentration, [molec/cm^3] RKI = 0.0D0 ! All rate constants converted from molec/cm3 to ppm ! and 1/sec to 1/min IF( LSUNLIGHT )THEN DO NCELL = 1, NUMCELLS ! Reaction Label 1 RKI( NCELL, 1) = RJBLK( NCELL, IJ_NO2_06 ) ! Reaction Label 16 RKI( NCELL, 16) = RJBLK( NCELL, IJ_NO3NO_06 ) ! Reaction Label 17 RKI( NCELL, 17) = RJBLK( NCELL, IJ_NO3NO2_6 ) ! Reaction Label 18 RKI( NCELL, 18) = RJBLK( NCELL, IJ_O3O1D_06 ) ! Reaction Label 19 RKI( NCELL, 19) = RJBLK( NCELL, IJ_O3O3P_06 ) ! Reaction Label 23 RKI( NCELL, 23) = RJBLK( NCELL, IJ_HONO_06 ) ! Reaction Label 28 RKI( NCELL, 28) = RJBLK( NCELL, IJ_HNO3 ) ! Reaction Label 34 RKI( NCELL, 34) = RJBLK( NCELL, IJ_HNO4_06 ) ! Reaction Label 41 RKI( NCELL, 41) = RJBLK( NCELL, IJ_H2O2 ) ! Reaction Label BR20 RKI( NCELL, 65) = RJBLK( NCELL, IJ_PAN ) ! Reaction Label BR30 RKI( NCELL, 75) = RJBLK( NCELL, IJ_PAN ) ! Reaction Label BR41 RKI( NCELL, 86) = RJBLK( NCELL, IJ_PAN ) ! Reaction Label BR53 RKI( NCELL, 98) = RJBLK( NCELL, IJ_PAN ) ! Reaction Label BP01 RKI( NCELL, 194) = RJBLK( NCELL, IJ_HCHOR_06 ) ! Reaction Label BP02 RKI( NCELL, 195) = RJBLK( NCELL, IJ_HCHOM_06 ) ! Reaction Label BP09 RKI( NCELL, 199) = RJBLK( NCELL, IJ_CCHO_R ) ! Reaction Label BP12 RKI( NCELL, 202) = RJBLK( NCELL, IJ_C2CHO ) ! Reaction Label BP15 RKI( NCELL, 205) = 5.0000D-01 * RJBLK( NCELL, IJ_ACET_06 ) ! Reaction Label BP17 RKI( NCELL, 207) = 1.7500D-01 * RJBLK( NCELL, IJ_MEK_06 ) ! Reaction Label BP23 RKI( NCELL, 213) = RJBLK( NCELL, IJ_COOH ) ! Reaction Label BP25 RKI( NCELL, 215) = RJBLK( NCELL, IJ_COOH ) ! Reaction Label BP27 RKI( NCELL, 217) = RJBLK( NCELL, IJ_COOH ) ! Reaction Label BP29 RKI( NCELL, 219) = RJBLK( NCELL, IJ_COOH ) ! Reaction Label BP30 RKI( NCELL, 220) = RJBLK( NCELL, IJ_GLY_07R ) ! Reaction Label BP31 RKI( NCELL, 221) = RJBLK( NCELL, IJ_GLY_07M ) ! Reaction Label BP34 RKI( NCELL, 224) = RJBLK( NCELL, IJ_MGLY_06 ) ! Reaction Label BP37 RKI( NCELL, 227) = RJBLK( NCELL, IJ_BACL_07 ) ! Reaction Label BP41 RKI( NCELL, 231) = 1.5000D-03 * RJBLK( NCELL, IJ_NO2_06 ) ! Reaction Label BP42 RKI( NCELL, 232) = 1.5000D-02 * RJBLK( NCELL, IJ_NO2_06 ) ! Reaction Label BP44 RKI( NCELL, 234) = 6.0000D-02 * RJBLK( NCELL, IJ_BALD_06 ) ! Reaction Label BP48 RKI( NCELL, 238) = RJBLK( NCELL, IJ_AFG1 ) ! Reaction Label BP51 RKI( NCELL, 241) = RJBLK( NCELL, IJ_AFG1 ) ! Reaction Label BP63 RKI( NCELL, 248) = RJBLK( NCELL, IJ_MVK_06 ) ! Reaction Label BP67 RKI( NCELL, 252) = RJBLK( NCELL, IJ_MACR_06 ) ! Reaction Label BP69 RKI( NCELL, 254) = 4.8600D-03 * RJBLK( NCELL, IJ_MEK_06 ) ! Reaction Label BP71 RKI( NCELL, 256) = RJBLK( NCELL, IJ_IC3ONO2 ) ! Reaction Label BP73 RKI( NCELL, 257) = RJBLK( NCELL, IJ_HOCCHO_IUPAC ) ! Reaction Label BP79 RKI( NCELL, 263) = RJBLK( NCELL, IJ_ACRO_09 ) ! Reaction Label BP81 RKI( NCELL, 265) = RJBLK( NCELL, IJ_PAA ) ! Reaction Label BP83 RKI( NCELL, 267) = RJBLK( NCELL, IJ_PAA ) ! Reaction Label CI01 RKI( NCELL, 587) = RJBLK( NCELL, IJ_CL2 ) ! Reaction Label CI03 RKI( NCELL, 589) = RJBLK( NCELL, IJ_CLNO_06 ) ! Reaction Label CI06 RKI( NCELL, 592) = RJBLK( NCELL, IJ_CLONO ) ! Reaction Label CI07 RKI( NCELL, 593) = RJBLK( NCELL, IJ_CLNO2 ) ! Reaction Label CI14 RKI( NCELL, 600) = RJBLK( NCELL, IJ_CLONO2_1 ) ! Reaction Label CI15 RKI( NCELL, 601) = RJBLK( NCELL, IJ_CLONO2_2 ) ! Reaction Label CI19 RKI( NCELL, 605) = RJBLK( NCELL, IJ_HOCL_06 ) ! Reaction Label CP19 RKI( NCELL, 627) = RJBLK( NCELL, IJ_CLCCHO ) ! Reaction Label CP22 RKI( NCELL, 630) = 5.0000D-01 * RJBLK( NCELL, IJ_CLACET ) ! Reaction Label TR01 RKI( NCELL, 694) = RJBLK( NCELL, IJ_HCHOR_06 ) ! Reaction Label TR02 RKI( NCELL, 695) = RJBLK( NCELL, IJ_HCHOM_06 ) ! Reaction Label TR08 RKI( NCELL, 700) = RJBLK( NCELL, IJ_CCHO_R ) ! Reaction Label TR15 RKI( NCELL, 707) = RJBLK( NCELL, IJ_ACRO_09 ) ! Reaction Label IS137 RKI( NCELL, 717) = RJBLK( NCELL, IJ_HPALD ) ! Reaction Label IS81 RKI( NCELL, 798) = 1.7500D-01 * RJBLK( NCELL, IJ_MEK_06 ) ! Reaction Label IS111 RKI( NCELL, 800) = RJBLK( NCELL, IJ_NOA ) ! Reaction Label IS97 RKI( NCELL, 803) = RJBLK( NCELL, IJ_NOA ) ! Reaction Label IS98 RKI( NCELL, 804) = RJBLK( NCELL, IJ_IC3ONO2 ) ! Reaction Label IS106 RKI( NCELL, 806) = RJBLK( NCELL, IJ_NOA ) ! Reaction Label IS110 RKI( NCELL, 808) = RJBLK( NCELL, IJ_C2CHO ) ! Reaction Label IS87 RKI( NCELL, 810) = RJBLK( NCELL, IJ_MGLY_06 ) ! Reaction Label IS92 RKI( NCELL, 819) = RJBLK( NCELL, IJ_COOH ) ! Reaction Label BP58 RKI( NCELL, 825) = RJBLK( NCELL, IJ_MACR_06 ) ! Reaction Label IA53 RKI( NCELL, 841) = RJBLK( NCELL, IJ_PAN ) ! Reaction Label BP71mtp RKI( NCELL, 883) = RJBLK( NCELL, IJ_IC3ONO2 ) IF ( SEAWATER (NCELL) .GT. 0.001D0 ) THEN ! Reaction Label HAL_Ozone RKI( NCELL, 892) = SEAWATER (NCELL) * SFACT * HALOGEN_FALLOFF( BLKPRES( NCELL ), 6.7006D-11, 1.0743D+01, & & 3.4153D-08, -6.7130D-01, 2.0000D-06 ) ELSE RKI( NCELL, 892) = 0.0D0 END IF END DO END IF DO NCELL = 1, NUMCELLS ! Set-up conversion factors INV_TEMP = 1.0D+00 / BLKTEMP( NCELL ) CAIR = 1.0D+06 * COEF1 * BLKPRES( NCELL ) * INV_TEMP CFACT = 6.0D-05 * CAIR CFACT_SQU = 6.0D-11 * CAIR * CAIR INV_CAIR = 1.0D0 / CAIR INV_CFACT = 6.0D+07 * INV_CAIR TEMP = BLKTEMP( NCELL ) TEMPOT300 = BLKTEMP( NCELL ) * TI300 RFACT = 1.0D+06 * INV_CAIR RFACT_SQU = 1.0D+12 * INV_CAIR * INV_CAIR ! Reaction Label 2 RKI( NCELL, 2) = CFACT_SQU * POWER_T02( TEMPOT300, 5.6800D-34, -2.6000D+00 ) ! Reaction Label 3 RKI( NCELL, 3) = CFACT * ARRHENUIS_T03( INV_TEMP, 8.0000D-12, -2.0600D+03 ) ! Reaction Label 4 RKI( NCELL, 4) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 9.0000D-32, 0.0000D+00, -1.5000D+00, & & 3.0000D-11, 0.0000D+00, 0.0000D+00, & & 1.0000D+00, 6.0000D-01 ) ! Reaction Label 5 RKI( NCELL, 5) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.5000D-12, 1.8800D+02 ) ! Reaction Label 6 RKI( NCELL, 6) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 2.5000D-31, 0.0000D+00, -1.8000D+00, & & 2.2000D-11, 0.0000D+00, -7.0000D-01, & & 1.0000D+00, 6.0000D-01 ) ! Reaction Label 7 RKI( NCELL, 7) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.0000D-12, -1.5000D+03 ) ! Reaction Label 8 RKI( NCELL, 8) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.4000D-13, -2.4700D+03 ) ! Reaction Label 9 RKI( NCELL, 9) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.8000D-11, 1.1000D+02 ) ! Reaction Label 10 RKI( NCELL, 10) = CFACT_SQU * ARRHENUIS_T03( INV_TEMP, 3.3000D-39, 5.3000D+02 ) ! Reaction Label 11 RKI( NCELL, 11) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 3.6000D-30, 0.0000D+00, -4.1000D+00, & & 1.9000D-12, 0.0000D+00, 2.0000D-01, & & 1.3300D+00, 3.5000D-01 ) ! Reaction Label 12 RKI( NCELL, 12) = SFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 1.3000D-03, -1.1000D+04, -3.5000D+00, & & 9.7000D+14, -1.1080D+04, 1.0000D-01, & & 1.3300D+00, 3.5000D-01 ) ! Reaction Label 13 RKI( NCELL, 13) = 1.0000D-22 * CFACT ! Reaction Label 14 RKI( NCELL, 14) = 0.0000D+00 * CFACT_SQU ! Reaction Label 15 RKI( NCELL, 15) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.5000D-14, -1.2600D+03 ) ! Reaction Label 20 RKI( NCELL, 20) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.6300D-10, 6.0000D+01 ) ! Reaction Label 21 RKI( NCELL, 21) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.3800D-11, 9.6000D+01 ) ! Reaction Label 22 RKI( NCELL, 22) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 7.0000D-31, 0.0000D+00, -2.6000D+00, & & 3.6000D-11, 0.0000D+00, -1.0000D-01, & & 1.0000D+00, 6.0000D-01 ) ! Reaction Label 24 RKI( NCELL, 24) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.5000D-12, 2.6000D+02 ) ! Reaction Label 25 RKI( NCELL, 25) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 3.2000D-30, 0.0000D+00, -4.5000D+00, & & 3.0000D-11, 0.0000D+00, 0.0000D+00, & & 1.2400D+00, 4.1000D-01 ) ! Reaction Label 26 RKI( NCELL, 26) = 2.0000D-11 * CFACT ! Reaction Label 27 RKI( NCELL, 27) = CFACT * FALLOFF_T08( INV_TEMP, CAIR, & & 2.4000D-14, 4.6000D+02, 2.7000D-17, & & 2.1990D+03, 6.5000D-34, 1.3350D+03 ) ! Reaction Label 29 RKI( NCELL, 29) = CFACT * FALLOFF_T09( INV_TEMP, CAIR, & & 1.4400D-13, 0.0000D+00, 3.4300D-33, & & 0.0000D+00 ) ! Reaction Label 30 RKI( NCELL, 30) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.7000D-12, -9.4000D+02 ) ! Reaction Label 31 RKI( NCELL, 31) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.6000D-12, 2.7000D+02 ) ! Reaction Label 32 RKI( NCELL, 32) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 2.0000D-31, 0.0000D+00, -3.4000D+00, & & 2.9000D-12, 0.0000D+00, -1.1000D+00, & & 1.0000D+00, 6.0000D-01 ) ! Reaction Label 33 RKI( NCELL, 33) = SFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 3.7200D-05, -1.0650D+04, -2.4000D+00, & & 5.4200D+15, -1.1170D+04, -2.3000D+00, & & 1.0000D+00, 6.0000D-01 ) ! Reaction Label 35 RKI( NCELL, 35) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.3000D-12, 3.8000D+02 ) ! Reaction Label 36 RKI( NCELL, 36) = CFACT * ARRHENUIS_T04( INV_TEMP, TEMPOT300, & & 2.0300D-16, 6.9300D+02, 4.5700D+00 ) ! Reaction Label 37 RKI( NCELL, 37) = CFACT * FALLOFF_T09( INV_TEMP, CAIR, & & 2.2000D-13, 6.0000D+02, 1.9000D-33, & & 9.8000D+02 ) ! Reaction Label 38 RKI( NCELL, 38) = CFACT_SQU * FALLOFF_T09( INV_TEMP, CAIR, & & 3.0800D-34, 2.8000D+03, 2.6600D-54, & & 3.1800D+03 ) ! Reaction Label 39 RKI( NCELL, 39) = 4.0000D-12 * CFACT ! Reaction Label 40 RKI( NCELL, 40) = CFACT * ARRHENUIS_T03( INV_TEMP, 8.5000D-13, -2.4500D+03 ) ! Reaction Label 42 RKI( NCELL, 42) = 1.8000D-12 * CFACT ! Reaction Label 43 RKI( NCELL, 43) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.8000D-11, 2.5000D+02 ) ! Reaction Label 44 RKI( NCELL, 44) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 3.3000D-31, 0.0000D+00, -4.3000D+00, & & 1.6000D-12, 0.0000D+00, 0.0000D+00, & & 1.0000D+00, 6.0000D-01 ) ! Reaction Label 45 RKI( NCELL, 45) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.7000D-12, -2.1000D+03 ) ! Reaction Label BR01 RKI( NCELL, 46) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.3000D-12, 3.6000D+02 ) ! Reaction Label BR02 RKI( NCELL, 47) = CFACT * ARRHENUIS_T04( INV_TEMP, TEMPOT300, & & 3.4600D-13, 7.8000D+02, 3.6000D-01 ) ! Reaction Label BR03 RKI( NCELL, 48) = CFACT * ARRHENUIS_T04( INV_TEMP, TEMPOT300, & & 3.3400D-14, 7.8000D+02, -3.5300D+00 ) ! Reaction Label BR04 RKI( NCELL, 49) = 1.3000D-12 * CFACT ! Reaction Label BR05 RKI( NCELL, 50) = CFACT * ARRHENUIS_T04( INV_TEMP, TEMPOT300, & & 6.3900D-14, 3.6500D+02, -1.8000D+00 ) ! Reaction Label BR06 RKI( NCELL, 51) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.4000D-13, -5.2000D+02 ) ! Reaction Label BR07 RKI( NCELL, 52) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.6000D-12, 3.8000D+02 ) ! Reaction Label BR08 RKI( NCELL, 53) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.8000D-13, 9.0000D+02 ) ! Reaction Label BR09 RKI( NCELL, 54) = 2.3000D-12 * CFACT ! Reaction Label BR10 RKI( NCELL, 55) = 2.0000D-13 * CFACT ! Reaction Label BR11 RKI( NCELL, 56) = 3.5000D-14 * CFACT ! Reaction Label BR12 RKI( NCELL, 57) = RKI( NCELL, 52 ) ! Reaction Label BR13 RKI( NCELL, 58) = RKI( NCELL, 53 ) ! Reaction Label BR14 RKI( NCELL, 59) = RKI( NCELL, 54 ) ! Reaction Label BR15 RKI( NCELL, 60) = RKI( NCELL, 55 ) ! Reaction Label BR16 RKI( NCELL, 61) = RKI( NCELL, 56 ) ! Reaction Label BR17 RKI( NCELL, 62) = RKI( NCELL, 56 ) ! Reaction Label BR18 RKI( NCELL, 63) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 2.7000D-28, 0.0000D+00, -7.1000D+00, & & 1.2100D-11, 0.0000D+00, -9.0000D-01, & & 1.4100D+00, 3.0000D-01 ) ! Reaction Label BR19 RKI( NCELL, 64) = SFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 4.9000D-03, -1.2100D+04, 0.0000D+00, & & 4.0000D+16, -1.3600D+04, 0.0000D+00, & & 1.4100D+00, 3.0000D-01 ) ! Reaction Label BR21 RKI( NCELL, 66) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.5000D-12, 2.9000D+02 ) ! Reaction Label BR22 RKI( NCELL, 67) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.2000D-13, 9.8000D+02 ) ! Reaction Label BR23 RKI( NCELL, 68) = RKI( NCELL, 54 ) ! Reaction Label BR24 RKI( NCELL, 69) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.0000D-12, 5.0000D+02 ) ! Reaction Label BR25 RKI( NCELL, 70) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.4000D-13, 1.0700D+03 ) ! Reaction Label BR26 RKI( NCELL, 71) = RKI( NCELL, 70 ) ! Reaction Label BR27 RKI( NCELL, 72) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.9000D-12, 5.0000D+02 ) ! Reaction Label BR28 RKI( NCELL, 73) = CFACT * ARRHENUIS_T04( INV_TEMP, TEMPOT300, & & 1.2100D-11, 0.0000D+00, -1.0700D+00 ) ! Reaction Label BR29 RKI( NCELL, 74) = SFACT * ARRHENUIS_T03( INV_TEMP, 8.3000D+16, -1.3940D+04 ) ! Reaction Label BR31 RKI( NCELL, 76) = CFACT * ARRHENUIS_T03( INV_TEMP, 6.7000D-12, 3.4000D+02 ) ! Reaction Label BR32 RKI( NCELL, 77) = RKI( NCELL, 67 ) ! Reaction Label BR33 RKI( NCELL, 78) = RKI( NCELL, 54 ) ! Reaction Label BR34 RKI( NCELL, 79) = RKI( NCELL, 69 ) ! Reaction Label BR35 RKI( NCELL, 80) = RKI( NCELL, 70 ) ! Reaction Label BR36 RKI( NCELL, 81) = RKI( NCELL, 70 ) ! Reaction Label BR37 RKI( NCELL, 82) = RKI( NCELL, 72 ) ! Reaction Label BR38 RKI( NCELL, 83) = RKI( NCELL, 72 ) ! Reaction Label BR39 RKI( NCELL, 84) = 1.3700D-11 * CFACT ! Reaction Label BR40 RKI( NCELL, 85) = SFACT * ARRHENUIS_T03( INV_TEMP, 7.9000D+16, -1.4000D+04 ) ! Reaction Label BR42 RKI( NCELL, 87) = RKI( NCELL, 76 ) ! Reaction Label BR43 RKI( NCELL, 88) = RKI( NCELL, 67 ) ! Reaction Label BR44 RKI( NCELL, 89) = RKI( NCELL, 54 ) ! Reaction Label BR45 RKI( NCELL, 90) = RKI( NCELL, 69 ) ! Reaction Label BR46 RKI( NCELL, 91) = RKI( NCELL, 70 ) ! Reaction Label BR47 RKI( NCELL, 92) = RKI( NCELL, 70 ) ! Reaction Label BR48 RKI( NCELL, 93) = RKI( NCELL, 72 ) ! Reaction Label BR49 RKI( NCELL, 94) = RKI( NCELL, 72 ) ! Reaction Label BR50 RKI( NCELL, 95) = RKI( NCELL, 72 ) ! Reaction Label BR51 RKI( NCELL, 96) = RKI( NCELL, 73 ) ! Reaction Label BR52 RKI( NCELL, 97) = SFACT * ARRHENUIS_T03( INV_TEMP, 1.6000D+16, -1.3486D+04 ) ! Reaction Label BR64 RKI( NCELL, 99) = 2.4000D-11 * CFACT ! Reaction Label BR65 RKI( NCELL, 100) = SFACT * ARRHENUIS_T03( INV_TEMP, 7.5000D+14, -8.1520D+03 ) ! Reaction Label BR66 RKI( NCELL, 101) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.3000D-11, 1.5000D+02 ) ! Reaction Label BR67 RKI( NCELL, 102) = RKI( NCELL, 53 ) ! Reaction Label BR68 RKI( NCELL, 103) = 1.0000D-03 * SFACT ! Reaction Label R019 RKI( NCELL, 104) = RKI( NCELL, 52 ) ! Reaction Label R020 RKI( NCELL, 105) = RKI( NCELL, 53 ) ! Reaction Label R021 RKI( NCELL, 106) = RKI( NCELL, 54 ) ! Reaction Label R022 RKI( NCELL, 107) = RKI( NCELL, 55 ) ! Reaction Label R023 RKI( NCELL, 108) = RKI( NCELL, 56 ) ! Reaction Label R024 RKI( NCELL, 109) = RKI( NCELL, 56 ) ! Reaction Label R025 RKI( NCELL, 110) = RKI( NCELL, 70 ) ! Reaction Label R026 RKI( NCELL, 111) = RKI( NCELL, 70 ) ! Reaction Label R027 RKI( NCELL, 112) = RKI( NCELL, 70 ) ! Reaction Label R028 RKI( NCELL, 113) = RKI( NCELL, 70 ) ! Reaction Label R029 RKI( NCELL, 114) = RKI( NCELL, 52 ) ! Reaction Label R030 RKI( NCELL, 115) = RKI( NCELL, 53 ) ! Reaction Label R031 RKI( NCELL, 116) = RKI( NCELL, 54 ) ! Reaction Label R032 RKI( NCELL, 117) = RKI( NCELL, 55 ) ! Reaction Label R033 RKI( NCELL, 118) = RKI( NCELL, 56 ) ! Reaction Label R034 RKI( NCELL, 119) = RKI( NCELL, 56 ) ! Reaction Label R035 RKI( NCELL, 120) = RKI( NCELL, 70 ) ! Reaction Label R036 RKI( NCELL, 121) = RKI( NCELL, 70 ) ! Reaction Label R037 RKI( NCELL, 122) = RKI( NCELL, 70 ) ! Reaction Label R038 RKI( NCELL, 123) = RKI( NCELL, 70 ) ! Reaction Label R039 RKI( NCELL, 124) = RKI( NCELL, 52 ) ! Reaction Label R040 RKI( NCELL, 125) = RKI( NCELL, 53 ) ! Reaction Label R041 RKI( NCELL, 126) = RKI( NCELL, 54 ) ! Reaction Label R042 RKI( NCELL, 127) = RKI( NCELL, 55 ) ! Reaction Label R043 RKI( NCELL, 128) = RKI( NCELL, 56 ) ! Reaction Label R044 RKI( NCELL, 129) = RKI( NCELL, 56 ) ! Reaction Label R045 RKI( NCELL, 130) = RKI( NCELL, 70 ) ! Reaction Label R046 RKI( NCELL, 131) = RKI( NCELL, 70 ) ! Reaction Label R047 RKI( NCELL, 132) = RKI( NCELL, 70 ) ! Reaction Label R048 RKI( NCELL, 133) = RKI( NCELL, 70 ) ! Reaction Label R049 RKI( NCELL, 134) = RKI( NCELL, 52 ) ! Reaction Label R050 RKI( NCELL, 135) = RKI( NCELL, 53 ) ! Reaction Label R051 RKI( NCELL, 136) = RKI( NCELL, 54 ) ! Reaction Label R052 RKI( NCELL, 137) = RKI( NCELL, 55 ) ! Reaction Label R053 RKI( NCELL, 138) = RKI( NCELL, 56 ) ! Reaction Label R054 RKI( NCELL, 139) = RKI( NCELL, 56 ) ! Reaction Label R055 RKI( NCELL, 140) = RKI( NCELL, 70 ) ! Reaction Label R056 RKI( NCELL, 141) = RKI( NCELL, 70 ) ! Reaction Label R057 RKI( NCELL, 142) = RKI( NCELL, 70 ) ! Reaction Label R058 RKI( NCELL, 143) = RKI( NCELL, 70 ) ! Reaction Label R059 RKI( NCELL, 144) = RKI( NCELL, 52 ) ! Reaction Label R060 RKI( NCELL, 145) = RKI( NCELL, 53 ) ! Reaction Label R061 RKI( NCELL, 146) = RKI( NCELL, 54 ) ! Reaction Label R062 RKI( NCELL, 147) = RKI( NCELL, 55 ) ! Reaction Label R063 RKI( NCELL, 148) = RKI( NCELL, 56 ) ! Reaction Label R064 RKI( NCELL, 149) = RKI( NCELL, 56 ) ! Reaction Label R065 RKI( NCELL, 150) = RKI( NCELL, 70 ) ! Reaction Label R066 RKI( NCELL, 151) = RKI( NCELL, 70 ) ! Reaction Label R067 RKI( NCELL, 152) = RKI( NCELL, 70 ) ! Reaction Label R068 RKI( NCELL, 153) = RKI( NCELL, 70 ) ! Reaction Label R069 RKI( NCELL, 154) = RKI( NCELL, 52 ) ! Reaction Label R070 RKI( NCELL, 155) = RKI( NCELL, 53 ) ! Reaction Label R071 RKI( NCELL, 156) = RKI( NCELL, 54 ) ! Reaction Label R072 RKI( NCELL, 157) = RKI( NCELL, 55 ) ! Reaction Label R073 RKI( NCELL, 158) = RKI( NCELL, 56 ) ! Reaction Label R074 RKI( NCELL, 159) = RKI( NCELL, 56 ) ! Reaction Label R075 RKI( NCELL, 160) = RKI( NCELL, 70 ) ! Reaction Label R076 RKI( NCELL, 161) = RKI( NCELL, 70 ) ! Reaction Label R077 RKI( NCELL, 162) = RKI( NCELL, 70 ) ! Reaction Label R078 RKI( NCELL, 163) = RKI( NCELL, 70 ) ! Reaction Label R079 RKI( NCELL, 164) = RKI( NCELL, 52 ) ! Reaction Label R080 RKI( NCELL, 165) = RKI( NCELL, 53 ) ! Reaction Label R081 RKI( NCELL, 166) = RKI( NCELL, 54 ) ! Reaction Label R082 RKI( NCELL, 167) = RKI( NCELL, 55 ) ! Reaction Label R083 RKI( NCELL, 168) = RKI( NCELL, 56 ) ! Reaction Label R084 RKI( NCELL, 169) = RKI( NCELL, 56 ) ! Reaction Label R085 RKI( NCELL, 170) = RKI( NCELL, 70 ) ! Reaction Label R086 RKI( NCELL, 171) = RKI( NCELL, 70 ) ! Reaction Label R087 RKI( NCELL, 172) = RKI( NCELL, 70 ) ! Reaction Label R088 RKI( NCELL, 173) = RKI( NCELL, 70 ) ! Reaction Label R089 RKI( NCELL, 174) = RKI( NCELL, 52 ) ! Reaction Label R090 RKI( NCELL, 175) = RKI( NCELL, 53 ) ! Reaction Label R091 RKI( NCELL, 176) = RKI( NCELL, 54 ) ! Reaction Label R092 RKI( NCELL, 177) = RKI( NCELL, 55 ) ! Reaction Label R093 RKI( NCELL, 178) = RKI( NCELL, 56 ) ! Reaction Label R094 RKI( NCELL, 179) = RKI( NCELL, 56 ) ! Reaction Label R095 RKI( NCELL, 180) = RKI( NCELL, 70 ) ! Reaction Label R096 RKI( NCELL, 181) = RKI( NCELL, 70 ) ! Reaction Label R097 RKI( NCELL, 182) = RKI( NCELL, 70 ) ! Reaction Label R098 RKI( NCELL, 183) = RKI( NCELL, 70 ) ! Reaction Label R099 RKI( NCELL, 184) = RKI( NCELL, 52 ) ! Reaction Label R100 RKI( NCELL, 185) = RKI( NCELL, 53 ) ! Reaction Label R101 RKI( NCELL, 186) = RKI( NCELL, 54 ) ! Reaction Label R102 RKI( NCELL, 187) = RKI( NCELL, 55 ) ! Reaction Label R103 RKI( NCELL, 188) = RKI( NCELL, 56 ) ! Reaction Label R104 RKI( NCELL, 189) = RKI( NCELL, 56 ) ! Reaction Label R105 RKI( NCELL, 190) = RKI( NCELL, 70 ) ! Reaction Label R106 RKI( NCELL, 191) = RKI( NCELL, 70 ) ! Reaction Label R107 RKI( NCELL, 192) = RKI( NCELL, 70 ) ! Reaction Label R108 RKI( NCELL, 193) = RKI( NCELL, 70 ) ! Reaction Label BP03 RKI( NCELL, 196) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.4000D-12, 1.3500D+02 ) ! Reaction Label BP07 RKI( NCELL, 197) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.0000D-12, -2.4310D+03 ) ! Reaction Label BP08 RKI( NCELL, 198) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.4000D-12, 3.6500D+02 ) ! Reaction Label BP10 RKI( NCELL, 200) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.4000D-12, -1.8600D+03 ) ! Reaction Label BP11 RKI( NCELL, 201) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.1000D-12, 4.0500D+02 ) ! Reaction Label BP13 RKI( NCELL, 203) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.4000D-12, -1.6010D+03 ) ! Reaction Label BP14 RKI( NCELL, 204) = CFACT * ARRHENUIS_T04( INV_TEMP, TEMPOT300, & & 4.5600D-14, 4.2900D+02, 3.6500D+00 ) ! Reaction Label BP16 RKI( NCELL, 206) = CFACT * ARRHENUIS_T04( INV_TEMP, TEMPOT300, & & 1.3000D-12, -2.5000D+01, 2.0000D+00 ) ! Reaction Label BP18 RKI( NCELL, 208) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.8500D-12, -3.4500D+02 ) ! Reaction Label BP19 RKI( NCELL, 209) = 4.5000D-13 * CFACT ! Reaction Label BP20 RKI( NCELL, 210) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.2000D-14, 8.5500D+02 ) ! Reaction Label BP21 RKI( NCELL, 211) = 1.2000D-12 * CFACT ! Reaction Label BP22 RKI( NCELL, 212) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.8000D-12, 2.0000D+02 ) ! Reaction Label BP24 RKI( NCELL, 214) = 2.5000D-11 * CFACT ! Reaction Label BP26 RKI( NCELL, 216) = 5.6000D-11 * CFACT ! Reaction Label BP28 RKI( NCELL, 218) = 1.4100D-10 * CFACT ! Reaction Label BP32 RKI( NCELL, 222) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.1000D-12, 3.4220D+02 ) ! Reaction Label BP33 RKI( NCELL, 223) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.8000D-12, -2.3900D+03 ) ! Reaction Label BP35 RKI( NCELL, 225) = 1.5000D-11 * CFACT ! Reaction Label BP36 RKI( NCELL, 226) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.4000D-12, -1.8950D+03 ) ! Reaction Label BP38 RKI( NCELL, 228) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.7000D-12, 9.5000D+02 ) ! Reaction Label BP39 RKI( NCELL, 229) = 1.4000D-11 * CFACT ! Reaction Label BP40 RKI( NCELL, 230) = 3.5000D-12 * CFACT ! Reaction Label BP43 RKI( NCELL, 233) = 1.2000D-11 * CFACT ! Reaction Label BP45 RKI( NCELL, 235) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.3400D-12, -1.8600D+03 ) ! Reaction Label BP46 RKI( NCELL, 236) = 7.4000D-11 * CFACT ! Reaction Label BP47 RKI( NCELL, 237) = 9.6600D-18 * CFACT ! Reaction Label BP49 RKI( NCELL, 239) = 7.4000D-11 * CFACT ! Reaction Label BP50 RKI( NCELL, 240) = 9.6600D-18 * CFACT ! Reaction Label BP52 RKI( NCELL, 242) = 9.3500D-11 * CFACT ! Reaction Label BP53 RKI( NCELL, 243) = 1.4300D-17 * CFACT ! Reaction Label BP55 RKI( NCELL, 244) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.4000D-15, -2.1000D+03 ) ! Reaction Label BP57 RKI( NCELL, 245) = 6.3400D-12 * CFACT ! Reaction Label BP60 RKI( NCELL, 246) = CFACT * ARRHENUIS_T03( INV_TEMP, 8.5000D-16, -1.5200D+03 ) ! Reaction Label BP62 RKI( NCELL, 247) = 4.3200D-12 * CFACT ! Reaction Label BP64 RKI( NCELL, 249) = 6.1900D-11 * CFACT ! Reaction Label BP65 RKI( NCELL, 250) = 4.1800D-18 * CFACT ! Reaction Label BP66 RKI( NCELL, 251) = 1.0000D-13 * CFACT ! Reaction Label BP68 RKI( NCELL, 253) = 1.5500D-11 * CFACT ! Reaction Label BP70 RKI( NCELL, 255) = 7.2000D-12 * CFACT ! Reaction Label BP74 RKI( NCELL, 258) = RKI( NCELL, 200 ) ! Reaction Label BP75 RKI( NCELL, 259) = 1.9900D-11 * CFACT ! Reaction Label BP76 RKI( NCELL, 260) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.4000D-15, -2.5280D+03 ) ! Reaction Label BP77 RKI( NCELL, 261) = 1.1800D-15 * CFACT ! Reaction Label BP78 RKI( NCELL, 262) = 2.3700D-12 * CFACT ! Reaction Label BP80 RKI( NCELL, 264) = 5.2800D-12 * CFACT ! Reaction Label BP82 RKI( NCELL, 266) = 6.4200D-12 * CFACT ! Reaction Label BP84 RKI( NCELL, 268) = RKI( NCELL, 76 ) ! Reaction Label BP85 RKI( NCELL, 269) = RKI( NCELL, 73 ) ! Reaction Label BP86 RKI( NCELL, 270) = RKI( NCELL, 67 ) ! Reaction Label P001 RKI( NCELL, 271) = RKI( NCELL, 52 ) ! Reaction Label P002 RKI( NCELL, 272) = RKI( NCELL, 53 ) ! Reaction Label P003 RKI( NCELL, 273) = RKI( NCELL, 54 ) ! Reaction Label P004 RKI( NCELL, 274) = RKI( NCELL, 55 ) ! Reaction Label P005 RKI( NCELL, 275) = RKI( NCELL, 56 ) ! Reaction Label P006 RKI( NCELL, 276) = RKI( NCELL, 56 ) ! Reaction Label P007 RKI( NCELL, 277) = RKI( NCELL, 70 ) ! Reaction Label P008 RKI( NCELL, 278) = RKI( NCELL, 70 ) ! Reaction Label P009 RKI( NCELL, 279) = RKI( NCELL, 70 ) ! Reaction Label P010 RKI( NCELL, 280) = RKI( NCELL, 70 ) ! Reaction Label P011 RKI( NCELL, 281) = RKI( NCELL, 52 ) ! Reaction Label P012 RKI( NCELL, 282) = RKI( NCELL, 53 ) ! Reaction Label P013 RKI( NCELL, 283) = RKI( NCELL, 54 ) ! Reaction Label P014 RKI( NCELL, 284) = RKI( NCELL, 55 ) ! Reaction Label P015 RKI( NCELL, 285) = RKI( NCELL, 56 ) ! Reaction Label P016 RKI( NCELL, 286) = RKI( NCELL, 56 ) ! Reaction Label P017 RKI( NCELL, 287) = RKI( NCELL, 70 ) ! Reaction Label P018 RKI( NCELL, 288) = RKI( NCELL, 70 ) ! Reaction Label P019 RKI( NCELL, 289) = RKI( NCELL, 70 ) ! Reaction Label P020 RKI( NCELL, 290) = RKI( NCELL, 70 ) ! Reaction Label P021 RKI( NCELL, 291) = RKI( NCELL, 52 ) ! Reaction Label P022 RKI( NCELL, 292) = RKI( NCELL, 53 ) ! Reaction Label P023 RKI( NCELL, 293) = RKI( NCELL, 54 ) ! Reaction Label P024 RKI( NCELL, 294) = RKI( NCELL, 55 ) ! Reaction Label P025 RKI( NCELL, 295) = RKI( NCELL, 56 ) ! Reaction Label P026 RKI( NCELL, 296) = RKI( NCELL, 56 ) ! Reaction Label P027 RKI( NCELL, 297) = RKI( NCELL, 70 ) ! Reaction Label P028 RKI( NCELL, 298) = RKI( NCELL, 70 ) ! Reaction Label P029 RKI( NCELL, 299) = RKI( NCELL, 70 ) ! Reaction Label P030 RKI( NCELL, 300) = RKI( NCELL, 70 ) ! Reaction Label P031 RKI( NCELL, 301) = RKI( NCELL, 52 ) ! Reaction Label P032 RKI( NCELL, 302) = RKI( NCELL, 53 ) ! Reaction Label P033 RKI( NCELL, 303) = RKI( NCELL, 54 ) ! Reaction Label P034 RKI( NCELL, 304) = RKI( NCELL, 55 ) ! Reaction Label P035 RKI( NCELL, 305) = RKI( NCELL, 56 ) ! Reaction Label P036 RKI( NCELL, 306) = RKI( NCELL, 56 ) ! Reaction Label P037 RKI( NCELL, 307) = RKI( NCELL, 70 ) ! Reaction Label P038 RKI( NCELL, 308) = RKI( NCELL, 70 ) ! Reaction Label P039 RKI( NCELL, 309) = RKI( NCELL, 70 ) ! Reaction Label P040 RKI( NCELL, 310) = RKI( NCELL, 70 ) ! Reaction Label P041 RKI( NCELL, 311) = RKI( NCELL, 52 ) ! Reaction Label P042 RKI( NCELL, 312) = RKI( NCELL, 53 ) ! Reaction Label P043 RKI( NCELL, 313) = RKI( NCELL, 54 ) ! Reaction Label P044 RKI( NCELL, 314) = RKI( NCELL, 55 ) ! Reaction Label P045 RKI( NCELL, 315) = RKI( NCELL, 56 ) ! Reaction Label P046 RKI( NCELL, 316) = RKI( NCELL, 56 ) ! Reaction Label P047 RKI( NCELL, 317) = RKI( NCELL, 70 ) ! Reaction Label P048 RKI( NCELL, 318) = RKI( NCELL, 70 ) ! Reaction Label P049 RKI( NCELL, 319) = RKI( NCELL, 70 ) ! Reaction Label P050 RKI( NCELL, 320) = RKI( NCELL, 70 ) ! Reaction Label P051 RKI( NCELL, 321) = RKI( NCELL, 52 ) ! Reaction Label P052 RKI( NCELL, 322) = RKI( NCELL, 53 ) ! Reaction Label P053 RKI( NCELL, 323) = RKI( NCELL, 54 ) ! Reaction Label P054 RKI( NCELL, 324) = RKI( NCELL, 55 ) ! Reaction Label P055 RKI( NCELL, 325) = RKI( NCELL, 56 ) ! Reaction Label P056 RKI( NCELL, 326) = RKI( NCELL, 56 ) ! Reaction Label P057 RKI( NCELL, 327) = RKI( NCELL, 70 ) ! Reaction Label P058 RKI( NCELL, 328) = RKI( NCELL, 70 ) ! Reaction Label P059 RKI( NCELL, 329) = RKI( NCELL, 70 ) ! Reaction Label P060 RKI( NCELL, 330) = RKI( NCELL, 70 ) ! Reaction Label P061 RKI( NCELL, 331) = RKI( NCELL, 52 ) ! Reaction Label P062 RKI( NCELL, 332) = RKI( NCELL, 53 ) ! Reaction Label P063 RKI( NCELL, 333) = RKI( NCELL, 54 ) ! Reaction Label P064 RKI( NCELL, 334) = RKI( NCELL, 55 ) ! Reaction Label P065 RKI( NCELL, 335) = RKI( NCELL, 56 ) ! Reaction Label P066 RKI( NCELL, 336) = RKI( NCELL, 56 ) ! Reaction Label P067 RKI( NCELL, 337) = RKI( NCELL, 70 ) ! Reaction Label P068 RKI( NCELL, 338) = RKI( NCELL, 70 ) ! Reaction Label P069 RKI( NCELL, 339) = RKI( NCELL, 70 ) ! Reaction Label P070 RKI( NCELL, 340) = RKI( NCELL, 70 ) ! Reaction Label P071 RKI( NCELL, 341) = RKI( NCELL, 52 ) ! Reaction Label P072 RKI( NCELL, 342) = RKI( NCELL, 53 ) ! Reaction Label P073 RKI( NCELL, 343) = RKI( NCELL, 54 ) ! Reaction Label P074 RKI( NCELL, 344) = RKI( NCELL, 55 ) ! Reaction Label P075 RKI( NCELL, 345) = RKI( NCELL, 56 ) ! Reaction Label P076 RKI( NCELL, 346) = RKI( NCELL, 56 ) ! Reaction Label P077 RKI( NCELL, 347) = RKI( NCELL, 70 ) ! Reaction Label P078 RKI( NCELL, 348) = RKI( NCELL, 70 ) ! Reaction Label P079 RKI( NCELL, 349) = RKI( NCELL, 70 ) ! Reaction Label P080 RKI( NCELL, 350) = RKI( NCELL, 70 ) ! Reaction Label P081 RKI( NCELL, 351) = RKI( NCELL, 52 ) ! Reaction Label P082 RKI( NCELL, 352) = RKI( NCELL, 53 ) ! Reaction Label P083 RKI( NCELL, 353) = RKI( NCELL, 54 ) ! Reaction Label P084 RKI( NCELL, 354) = RKI( NCELL, 55 ) ! Reaction Label P085 RKI( NCELL, 355) = RKI( NCELL, 56 ) ! Reaction Label P086 RKI( NCELL, 356) = RKI( NCELL, 56 ) ! Reaction Label P087 RKI( NCELL, 357) = RKI( NCELL, 70 ) ! Reaction Label P088 RKI( NCELL, 358) = RKI( NCELL, 70 ) ! Reaction Label P089 RKI( NCELL, 359) = RKI( NCELL, 70 ) ! Reaction Label P090 RKI( NCELL, 360) = RKI( NCELL, 70 ) ! Reaction Label P091 RKI( NCELL, 361) = RKI( NCELL, 52 ) ! Reaction Label P092 RKI( NCELL, 362) = RKI( NCELL, 53 ) ! Reaction Label P093 RKI( NCELL, 363) = RKI( NCELL, 54 ) ! Reaction Label P094 RKI( NCELL, 364) = RKI( NCELL, 55 ) ! Reaction Label P095 RKI( NCELL, 365) = RKI( NCELL, 56 ) ! Reaction Label P096 RKI( NCELL, 366) = RKI( NCELL, 56 ) ! Reaction Label P097 RKI( NCELL, 367) = RKI( NCELL, 70 ) ! Reaction Label P098 RKI( NCELL, 368) = RKI( NCELL, 70 ) ! Reaction Label P099 RKI( NCELL, 369) = RKI( NCELL, 70 ) ! Reaction Label P100 RKI( NCELL, 370) = RKI( NCELL, 70 ) ! Reaction Label P101 RKI( NCELL, 371) = RKI( NCELL, 52 ) ! Reaction Label P102 RKI( NCELL, 372) = RKI( NCELL, 53 ) ! Reaction Label P103 RKI( NCELL, 373) = RKI( NCELL, 54 ) ! Reaction Label P104 RKI( NCELL, 374) = RKI( NCELL, 55 ) ! Reaction Label P105 RKI( NCELL, 375) = RKI( NCELL, 56 ) ! Reaction Label P106 RKI( NCELL, 376) = RKI( NCELL, 56 ) ! Reaction Label P107 RKI( NCELL, 377) = RKI( NCELL, 70 ) ! Reaction Label P108 RKI( NCELL, 378) = RKI( NCELL, 70 ) ! Reaction Label P109 RKI( NCELL, 379) = RKI( NCELL, 70 ) ! Reaction Label P110 RKI( NCELL, 380) = RKI( NCELL, 70 ) ! Reaction Label P111 RKI( NCELL, 381) = RKI( NCELL, 52 ) ! Reaction Label P112 RKI( NCELL, 382) = RKI( NCELL, 53 ) ! Reaction Label P113 RKI( NCELL, 383) = RKI( NCELL, 54 ) ! Reaction Label P114 RKI( NCELL, 384) = RKI( NCELL, 55 ) ! Reaction Label P115 RKI( NCELL, 385) = RKI( NCELL, 56 ) ! Reaction Label P116 RKI( NCELL, 386) = RKI( NCELL, 56 ) ! Reaction Label P117 RKI( NCELL, 387) = RKI( NCELL, 70 ) ! Reaction Label P118 RKI( NCELL, 388) = RKI( NCELL, 70 ) ! Reaction Label P119 RKI( NCELL, 389) = RKI( NCELL, 70 ) ! Reaction Label P120 RKI( NCELL, 390) = RKI( NCELL, 70 ) ! Reaction Label P121 RKI( NCELL, 391) = RKI( NCELL, 52 ) ! Reaction Label P122 RKI( NCELL, 392) = RKI( NCELL, 53 ) ! Reaction Label P123 RKI( NCELL, 393) = RKI( NCELL, 54 ) ! Reaction Label P124 RKI( NCELL, 394) = RKI( NCELL, 55 ) ! Reaction Label P125 RKI( NCELL, 395) = RKI( NCELL, 56 ) ! Reaction Label P126 RKI( NCELL, 396) = RKI( NCELL, 56 ) ! Reaction Label P127 RKI( NCELL, 397) = RKI( NCELL, 70 ) ! Reaction Label P128 RKI( NCELL, 398) = RKI( NCELL, 70 ) ! Reaction Label P129 RKI( NCELL, 399) = RKI( NCELL, 70 ) ! Reaction Label P130 RKI( NCELL, 400) = RKI( NCELL, 70 ) ! Reaction Label P131 RKI( NCELL, 401) = RKI( NCELL, 52 ) ! Reaction Label P132 RKI( NCELL, 402) = RKI( NCELL, 53 ) ! Reaction Label P133 RKI( NCELL, 403) = RKI( NCELL, 54 ) ! Reaction Label P134 RKI( NCELL, 404) = RKI( NCELL, 55 ) ! Reaction Label P135 RKI( NCELL, 405) = RKI( NCELL, 56 ) ! Reaction Label P136 RKI( NCELL, 406) = RKI( NCELL, 56 ) ! Reaction Label P137 RKI( NCELL, 407) = RKI( NCELL, 70 ) ! Reaction Label P138 RKI( NCELL, 408) = RKI( NCELL, 70 ) ! Reaction Label P139 RKI( NCELL, 409) = RKI( NCELL, 70 ) ! Reaction Label P140 RKI( NCELL, 410) = RKI( NCELL, 70 ) ! Reaction Label P141 RKI( NCELL, 411) = RKI( NCELL, 52 ) ! Reaction Label P142 RKI( NCELL, 412) = RKI( NCELL, 53 ) ! Reaction Label P143 RKI( NCELL, 413) = RKI( NCELL, 54 ) ! Reaction Label P144 RKI( NCELL, 414) = RKI( NCELL, 55 ) ! Reaction Label P145 RKI( NCELL, 415) = RKI( NCELL, 56 ) ! Reaction Label P146 RKI( NCELL, 416) = RKI( NCELL, 56 ) ! Reaction Label P147 RKI( NCELL, 417) = RKI( NCELL, 70 ) ! Reaction Label P148 RKI( NCELL, 418) = RKI( NCELL, 70 ) ! Reaction Label P149 RKI( NCELL, 419) = RKI( NCELL, 70 ) ! Reaction Label P150 RKI( NCELL, 420) = RKI( NCELL, 70 ) ! Reaction Label P151 RKI( NCELL, 421) = RKI( NCELL, 52 ) ! Reaction Label P152 RKI( NCELL, 422) = RKI( NCELL, 53 ) ! Reaction Label P153 RKI( NCELL, 423) = RKI( NCELL, 54 ) ! Reaction Label P154 RKI( NCELL, 424) = RKI( NCELL, 55 ) ! Reaction Label P155 RKI( NCELL, 425) = RKI( NCELL, 56 ) ! Reaction Label P156 RKI( NCELL, 426) = RKI( NCELL, 56 ) ! Reaction Label P157 RKI( NCELL, 427) = RKI( NCELL, 70 ) ! Reaction Label P158 RKI( NCELL, 428) = RKI( NCELL, 70 ) ! Reaction Label P159 RKI( NCELL, 429) = RKI( NCELL, 70 ) ! Reaction Label P160 RKI( NCELL, 430) = RKI( NCELL, 70 ) ! Reaction Label P161 RKI( NCELL, 431) = RKI( NCELL, 52 ) ! Reaction Label P162 RKI( NCELL, 432) = RKI( NCELL, 53 ) ! Reaction Label P163 RKI( NCELL, 433) = RKI( NCELL, 54 ) ! Reaction Label P164 RKI( NCELL, 434) = RKI( NCELL, 55 ) ! Reaction Label P165 RKI( NCELL, 435) = RKI( NCELL, 56 ) ! Reaction Label P166 RKI( NCELL, 436) = RKI( NCELL, 56 ) ! Reaction Label P167 RKI( NCELL, 437) = RKI( NCELL, 70 ) ! Reaction Label P168 RKI( NCELL, 438) = RKI( NCELL, 70 ) ! Reaction Label P169 RKI( NCELL, 439) = RKI( NCELL, 70 ) ! Reaction Label P170 RKI( NCELL, 440) = RKI( NCELL, 70 ) ! Reaction Label PX161 RKI( NCELL, 441) = RKI( NCELL, 52 ) ! Reaction Label PX162 RKI( NCELL, 442) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.6500D-13, 1.3000D+03 ) ! Reaction Label PX163 RKI( NCELL, 443) = RKI( NCELL, 54 ) ! Reaction Label PX164 RKI( NCELL, 444) = RKI( NCELL, 55 ) ! Reaction Label PX165 RKI( NCELL, 445) = RKI( NCELL, 56 ) ! Reaction Label PX166 RKI( NCELL, 446) = RKI( NCELL, 56 ) ! Reaction Label PX167 RKI( NCELL, 447) = RKI( NCELL, 70 ) ! Reaction Label PX168 RKI( NCELL, 448) = RKI( NCELL, 70 ) ! Reaction Label PX169 RKI( NCELL, 449) = RKI( NCELL, 70 ) ! Reaction Label PX170 RKI( NCELL, 450) = RKI( NCELL, 70 ) ! Reaction Label PX170b RKI( NCELL, 451) = RKI( NCELL, 70 ) ! Reaction Label P171 RKI( NCELL, 452) = RKI( NCELL, 52 ) ! Reaction Label P172 RKI( NCELL, 453) = RKI( NCELL, 53 ) ! Reaction Label P173 RKI( NCELL, 454) = RKI( NCELL, 54 ) ! Reaction Label P174 RKI( NCELL, 455) = RKI( NCELL, 55 ) ! Reaction Label P175 RKI( NCELL, 456) = RKI( NCELL, 56 ) ! Reaction Label P176 RKI( NCELL, 457) = RKI( NCELL, 56 ) ! Reaction Label P177 RKI( NCELL, 458) = RKI( NCELL, 70 ) ! Reaction Label P178 RKI( NCELL, 459) = RKI( NCELL, 70 ) ! Reaction Label P179 RKI( NCELL, 460) = RKI( NCELL, 70 ) ! Reaction Label P180 RKI( NCELL, 461) = RKI( NCELL, 70 ) ! Reaction Label P181 RKI( NCELL, 462) = RKI( NCELL, 52 ) ! Reaction Label P182 RKI( NCELL, 463) = RKI( NCELL, 53 ) ! Reaction Label P183 RKI( NCELL, 464) = RKI( NCELL, 54 ) ! Reaction Label P184 RKI( NCELL, 465) = RKI( NCELL, 55 ) ! Reaction Label P185 RKI( NCELL, 466) = RKI( NCELL, 56 ) ! Reaction Label P186 RKI( NCELL, 467) = RKI( NCELL, 56 ) ! Reaction Label P187 RKI( NCELL, 468) = RKI( NCELL, 70 ) ! Reaction Label P188 RKI( NCELL, 469) = RKI( NCELL, 70 ) ! Reaction Label P189 RKI( NCELL, 470) = RKI( NCELL, 70 ) ! Reaction Label P190 RKI( NCELL, 471) = RKI( NCELL, 70 ) ! Reaction Label P191 RKI( NCELL, 472) = RKI( NCELL, 52 ) ! Reaction Label P192 RKI( NCELL, 473) = RKI( NCELL, 53 ) ! Reaction Label P193 RKI( NCELL, 474) = RKI( NCELL, 54 ) ! Reaction Label P194 RKI( NCELL, 475) = RKI( NCELL, 55 ) ! Reaction Label P195 RKI( NCELL, 476) = RKI( NCELL, 56 ) ! Reaction Label P196 RKI( NCELL, 477) = RKI( NCELL, 56 ) ! Reaction Label P197 RKI( NCELL, 478) = RKI( NCELL, 70 ) ! Reaction Label P198 RKI( NCELL, 479) = RKI( NCELL, 70 ) ! Reaction Label P199 RKI( NCELL, 480) = RKI( NCELL, 70 ) ! Reaction Label P200 RKI( NCELL, 481) = RKI( NCELL, 70 ) ! Reaction Label P201 RKI( NCELL, 482) = RKI( NCELL, 52 ) ! Reaction Label P202 RKI( NCELL, 483) = RKI( NCELL, 53 ) ! Reaction Label P203 RKI( NCELL, 484) = RKI( NCELL, 54 ) ! Reaction Label P204 RKI( NCELL, 485) = RKI( NCELL, 55 ) ! Reaction Label P205 RKI( NCELL, 486) = RKI( NCELL, 56 ) ! Reaction Label P206 RKI( NCELL, 487) = RKI( NCELL, 56 ) ! Reaction Label P207 RKI( NCELL, 488) = RKI( NCELL, 70 ) ! Reaction Label P208 RKI( NCELL, 489) = RKI( NCELL, 70 ) ! Reaction Label P209 RKI( NCELL, 490) = RKI( NCELL, 70 ) ! Reaction Label P210 RKI( NCELL, 491) = RKI( NCELL, 70 ) ! Reaction Label PZ201 RKI( NCELL, 492) = RKI( NCELL, 52 ) ! Reaction Label PZ202 RKI( NCELL, 493) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.6500D-13, 1.3000D+03 ) ! Reaction Label PZ203 RKI( NCELL, 494) = RKI( NCELL, 54 ) ! Reaction Label PZ204 RKI( NCELL, 495) = RKI( NCELL, 55 ) ! Reaction Label PZ205 RKI( NCELL, 496) = RKI( NCELL, 56 ) ! Reaction Label PZ206 RKI( NCELL, 497) = RKI( NCELL, 56 ) ! Reaction Label PZ207 RKI( NCELL, 498) = RKI( NCELL, 70 ) ! Reaction Label PZ208 RKI( NCELL, 499) = RKI( NCELL, 70 ) ! Reaction Label PZ209 RKI( NCELL, 500) = RKI( NCELL, 70 ) ! Reaction Label PZ210 RKI( NCELL, 501) = RKI( NCELL, 70 ) ! Reaction Label PZ210b RKI( NCELL, 502) = RKI( NCELL, 70 ) ! Reaction Label P211 RKI( NCELL, 503) = RKI( NCELL, 52 ) ! Reaction Label P212 RKI( NCELL, 504) = RKI( NCELL, 53 ) ! Reaction Label P213 RKI( NCELL, 505) = RKI( NCELL, 54 ) ! Reaction Label P214 RKI( NCELL, 506) = RKI( NCELL, 55 ) ! Reaction Label P215 RKI( NCELL, 507) = RKI( NCELL, 56 ) ! Reaction Label P216 RKI( NCELL, 508) = RKI( NCELL, 56 ) ! Reaction Label P217 RKI( NCELL, 509) = RKI( NCELL, 70 ) ! Reaction Label P218 RKI( NCELL, 510) = RKI( NCELL, 70 ) ! Reaction Label P219 RKI( NCELL, 511) = RKI( NCELL, 70 ) ! Reaction Label P220 RKI( NCELL, 512) = RKI( NCELL, 70 ) ! Reaction Label P221 RKI( NCELL, 513) = RKI( NCELL, 52 ) ! Reaction Label P222 RKI( NCELL, 514) = RKI( NCELL, 53 ) ! Reaction Label P223 RKI( NCELL, 515) = RKI( NCELL, 54 ) ! Reaction Label P224 RKI( NCELL, 516) = RKI( NCELL, 55 ) ! Reaction Label P225 RKI( NCELL, 517) = RKI( NCELL, 56 ) ! Reaction Label P226 RKI( NCELL, 518) = RKI( NCELL, 56 ) ! Reaction Label P227 RKI( NCELL, 519) = RKI( NCELL, 70 ) ! Reaction Label P228 RKI( NCELL, 520) = RKI( NCELL, 70 ) ! Reaction Label P229 RKI( NCELL, 521) = RKI( NCELL, 70 ) ! Reaction Label P230 RKI( NCELL, 522) = RKI( NCELL, 70 ) ! Reaction Label BE01 RKI( NCELL, 523) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.8500D-12, -1.6900D+03 ) ! Reaction Label BE02 RKI( NCELL, 524) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 1.0000D-28, 0.0000D+00, -4.5000D+00, & & 8.8000D-12, 0.0000D+00, -8.5000D-01, & & 1.0000D+00, 6.0000D-01 ) ! Reaction Label BE03 RKI( NCELL, 525) = CFACT * ARRHENUIS_T03( INV_TEMP, 9.1400D-15, -2.5800D+03 ) ! Reaction Label BE04 RKI( NCELL, 526) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.3000D-12, -2.8800D+03 ) ! Reaction Label BE05 RKI( NCELL, 527) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.0700D-11, -8.0000D+02 ) ! Reaction Label BT01 RKI( NCELL, 528) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.8500D-12, 5.0400D+02 ) ! Reaction Label BT02 RKI( NCELL, 529) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.5100D-15, -1.8780D+03 ) ! Reaction Label BT03 RKI( NCELL, 530) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.5900D-13, -1.1560D+03 ) ! Reaction Label BT04 RKI( NCELL, 531) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.0200D-11, -2.8000D+02 ) ! Reaction Label BT05 RKI( NCELL, 532) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.4800D-11, 4.4800D+02 ) ! Reaction Label BT06 RKI( NCELL, 533) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.3400D-14, -2.2830D+03 ) ! Reaction Label BT07 RKI( NCELL, 534) = 1.0000D-13 * CFACT ! Reaction Label BT08 RKI( NCELL, 535) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.2600D-11, -4.0000D+01 ) ! Reaction Label BE07 RKI( NCELL, 536) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.8600D-15, -1.9120D+03 ) ! Reaction Label BE09 RKI( NCELL, 537) = 3.5000D-11 * CFACT ! Reaction Label BT09 RKI( NCELL, 538) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.2100D-11, 4.3600D+02 ) ! Reaction Label BT10 RKI( NCELL, 539) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.0000D-16, -5.3000D+02 ) ! Reaction Label BT11 RKI( NCELL, 540) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.1900D-12, 4.9000D+02 ) ! Reaction Label BT12 RKI( NCELL, 541) = 3.2000D-11 * CFACT ! Reaction Label BE10 RKI( NCELL, 542) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 5.5000D-30, 0.0000D+00, 0.0000D+00, & & 8.3000D-13, 0.0000D+00, -2.0000D+00, & & 1.0000D+00, 6.0000D-01 ) ! Reaction Label BE11 RKI( NCELL, 543) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.0000D-14, -4.1000D+03 ) ! Reaction Label BE12 RKI( NCELL, 544) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.3300D-12, -1.9300D+02 ) ! Reaction Label BT13 RKI( NCELL, 545) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.8100D-12, 3.3800D+02 ) ! Reaction Label BT14 RKI( NCELL, 546) = 2.3100D-11 * CFACT ! Reaction Label BT15 RKI( NCELL, 547) = 1.3600D-11 * CFACT ! Reaction Label BT16 RKI( NCELL, 548) = 1.4300D-11 * CFACT ! Reaction Label BT17 RKI( NCELL, 549) = 3.2500D-11 * CFACT ! Reaction Label BT18 RKI( NCELL, 550) = CFACT * ARRHENUIS_T04( INV_TEMP, TEMPOT300, & & 5.4900D-13, 5.3000D+02, 2.0000D+00 ) ! Reaction Label BL01 RKI( NCELL, 551) = CFACT * ARRHENUIS_T04( INV_TEMP, TEMPOT300, & & 1.3400D-12, -4.9900D+02, 2.0000D+00 ) ! Reaction Label BL02 RKI( NCELL, 552) = CFACT * ARRHENUIS_T04( INV_TEMP, TEMPOT300, & & 1.4900D-12, -8.7000D+01, 2.0000D+00 ) ! Reaction Label BL03 RKI( NCELL, 553) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.5100D-12, 1.2600D+02 ) ! Reaction Label BL04 RKI( NCELL, 554) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.7500D-12, 4.4000D+01 ) ! Reaction Label BL05 RKI( NCELL, 555) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.7400D+02 ) ! Reaction Label AALK RKI( NCELL, 556) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.7000D-12, 3.7400D+02 ) ! Reaction Label BL06 RKI( NCELL, 557) = CFACT * ARRHENUIS_T03( INV_TEMP, 6.7200D-12, 5.0100D+02 ) ! Reaction Label BL07 RKI( NCELL, 558) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.1900D-15, -1.7010D+03 ) ! Reaction Label BL08 RKI( NCELL, 559) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.3700D-13, -1.0470D+03 ) ! Reaction Label BL09 RKI( NCELL, 560) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.6100D-11, -3.2600D+02 ) ! Reaction Label BL10 RKI( NCELL, 561) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.2600D-11, 4.8800D+02 ) ! Reaction Label BL11 RKI( NCELL, 562) = CFACT * ARRHENUIS_T03( INV_TEMP, 8.5900D-15, -1.2550D+03 ) ! Reaction Label BL12 RKI( NCELL, 563) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.3100D-13, 3.8200D+02 ) ! Reaction Label BL13 RKI( NCELL, 564) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.4300D-11, 1.1100D+02 ) ! Reaction Label BL14 RKI( NCELL, 565) = 7.8400D-12 * CFACT ! Reaction Label BL15a RKI( NCELL, 566) = 3.0900D-11 * CFACT ! Reaction Label BL15b RKI( NCELL, 567) = 3.0900D-11 * CFACT ! Reaction Label BL16 RKI( NCELL, 568) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.2700D-11, 4.3500D+02 ) ! Reaction Label BL17 RKI( NCELL, 569) = CFACT * ARRHENUIS_T03( INV_TEMP, 8.2800D-16, -7.8500D+02 ) ! Reaction Label BL18 RKI( NCELL, 570) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.3300D-12, 4.9000D+02 ) ! Reaction Label BL18a RKI( NCELL, 571) = RKI( NCELL, 52 ) ! Reaction Label BL18b RKI( NCELL, 572) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.6500D-13, 1.3000D+03 ) ! Reaction Label BL18c RKI( NCELL, 573) = RKI( NCELL, 54 ) ! Reaction Label BL18d RKI( NCELL, 574) = RKI( NCELL, 55 ) ! Reaction Label BL18e RKI( NCELL, 575) = RKI( NCELL, 56 ) ! Reaction Label BL18f RKI( NCELL, 576) = RKI( NCELL, 56 ) ! Reaction Label BL18g RKI( NCELL, 577) = RKI( NCELL, 70 ) ! Reaction Label BL18h RKI( NCELL, 578) = RKI( NCELL, 70 ) ! Reaction Label BL18i RKI( NCELL, 579) = RKI( NCELL, 70 ) ! Reaction Label BL19j RKI( NCELL, 580) = RKI( NCELL, 70 ) ! Reaction Label BL19k RKI( NCELL, 581) = RKI( NCELL, 70 ) ! Reaction Label BL19 RKI( NCELL, 582) = 4.0200D-11 * CFACT ! Reaction Label BT19 RKI( NCELL, 583) = RKI( NCELL, 568 ) ! Reaction Label BT20 RKI( NCELL, 584) = RKI( NCELL, 569 ) ! Reaction Label BT21 RKI( NCELL, 585) = RKI( NCELL, 570 ) ! Reaction Label BT22 RKI( NCELL, 586) = RKI( NCELL, 582 ) ! Reaction Label CI02 RKI( NCELL, 588) = CFACT_SQU * POWER_T02( TEMPOT300, 7.6000D-32, -1.8000D+00 ) ! Reaction Label CI04 RKI( NCELL, 590) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 1.3000D-30, 0.0000D+00, -2.0000D+00, & & 1.0000D-10, 0.0000D+00, -1.0000D+00, & & 1.0000D+00, 6.0000D-01 ) ! Reaction Label CI05 RKI( NCELL, 591) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 1.8000D-31, 0.0000D+00, -2.0000D+00, & & 1.0000D-10, 0.0000D+00, -1.0000D+00, & & 1.0000D+00, 6.0000D-01 ) ! Reaction Label CI08 RKI( NCELL, 594) = CFACT * POWER_T02( TEMPOT300, 3.4400D-11, -5.6000D-01 ) ! Reaction Label CI09 RKI( NCELL, 595) = CFACT * POWER_T02( TEMPOT300, 9.4100D-12, 2.1000D+00 ) ! Reaction Label CI10 RKI( NCELL, 596) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.8000D-11, -2.5000D+02 ) ! Reaction Label CI11 RKI( NCELL, 597) = 2.4000D-11 * CFACT ! Reaction Label CI12 RKI( NCELL, 598) = CFACT * ARRHENUIS_T03( INV_TEMP, 6.2000D-12, 2.9500D+02 ) ! Reaction Label CI13 RKI( NCELL, 599) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 1.8000D-31, 0.0000D+00, -3.4000D+00, & & 1.5000D-11, 0.0000D+00, -1.9000D+00, & & 1.0000D+00, 6.0000D-01 ) ! Reaction Label CI16 RKI( NCELL, 602) = SFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 4.4800D-05, -1.2530D+04, -1.0000D+00, & & 3.7100D+15, -1.2530D+04, 3.5000D+00, & & 1.0000D+00, 6.0000D-01 ) ! Reaction Label CI17 RKI( NCELL, 603) = CFACT * ARRHENUIS_T03( INV_TEMP, 6.2000D-12, 1.4500D+02 ) ! Reaction Label CI18 RKI( NCELL, 604) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.2000D-12, 3.4000D+02 ) ! Reaction Label CI20 RKI( NCELL, 606) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.2500D-11, -1.9600D+03 ) ! Reaction Label CI21 RKI( NCELL, 607) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.7000D-12, -2.3000D+02 ) ! Reaction Label CI22 RKI( NCELL, 608) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.9000D-11, -2.3100D+03 ) ! Reaction Label CP01 RKI( NCELL, 609) = CFACT * ARRHENUIS_T03( INV_TEMP, 8.1000D-11, -3.0000D+01 ) ! Reaction Label CP02 RKI( NCELL, 610) = 8.0000D-11 * CFACT ! Reaction Label CP03 RKI( NCELL, 611) = 5.5000D-11 * CFACT ! Reaction Label CP04 RKI( NCELL, 612) = 1.2300D-10 * CFACT ! Reaction Label CP05 RKI( NCELL, 613) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.7000D-11, -1.0000D+03 ) ! Reaction Label CP06 RKI( NCELL, 614) = 3.6000D-11 * CFACT ! Reaction Label CP07 RKI( NCELL, 615) = 1.9200D-10 * CFACT ! Reaction Label CP08 RKI( NCELL, 616) = 2.0000D-10 * CFACT ! Reaction Label CP09 RKI( NCELL, 617) = CFACT * ARRHENUIS_T03( INV_TEMP, 8.1000D-11, -3.0000D+01 ) ! Reaction Label CP10 RKI( NCELL, 618) = 8.0000D-11 * CFACT ! Reaction Label CP11 RKI( NCELL, 619) = 6.2000D-11 * CFACT ! Reaction Label CP12 RKI( NCELL, 620) = 8.0000D-11 * CFACT ! Reaction Label CP13 RKI( NCELL, 621) = 1.6600D-10 * CFACT ! Reaction Label CP14 RKI( NCELL, 622) = 3.0000D-10 * CFACT ! Reaction Label CP15 RKI( NCELL, 623) = 4.2900D-10 * CFACT ! Reaction Label TP01 RKI( NCELL, 624) = 2.9400D-10 * CFACT ! Reaction Label CP17 RKI( NCELL, 625) = 2.3200D-10 * CFACT ! Reaction Label CP18 RKI( NCELL, 626) = 4.1200D-10 * CFACT ! Reaction Label CP20 RKI( NCELL, 628) = 3.1000D-12 * CFACT ! Reaction Label CP21 RKI( NCELL, 629) = 1.2900D-11 * CFACT ! Reaction Label CP29 RKI( NCELL, 631) = RKI( NCELL, 52 ) ! Reaction Label CP30 RKI( NCELL, 632) = RKI( NCELL, 53 ) ! Reaction Label CP31 RKI( NCELL, 633) = RKI( NCELL, 54 ) ! Reaction Label CP32 RKI( NCELL, 634) = RKI( NCELL, 55 ) ! Reaction Label CP33 RKI( NCELL, 635) = RKI( NCELL, 56 ) ! Reaction Label CP34 RKI( NCELL, 636) = RKI( NCELL, 56 ) ! Reaction Label CP35 RKI( NCELL, 637) = RKI( NCELL, 70 ) ! Reaction Label CP36 RKI( NCELL, 638) = RKI( NCELL, 70 ) ! Reaction Label CP37 RKI( NCELL, 639) = RKI( NCELL, 70 ) ! Reaction Label CP38 RKI( NCELL, 640) = RKI( NCELL, 70 ) ! Reaction Label CP39 RKI( NCELL, 641) = RKI( NCELL, 52 ) ! Reaction Label CP40 RKI( NCELL, 642) = RKI( NCELL, 53 ) ! Reaction Label CP41 RKI( NCELL, 643) = RKI( NCELL, 54 ) ! Reaction Label CP42 RKI( NCELL, 644) = RKI( NCELL, 55 ) ! Reaction Label CP43 RKI( NCELL, 645) = RKI( NCELL, 56 ) ! Reaction Label CP44 RKI( NCELL, 646) = RKI( NCELL, 56 ) ! Reaction Label CP45 RKI( NCELL, 647) = RKI( NCELL, 70 ) ! Reaction Label CP46 RKI( NCELL, 648) = RKI( NCELL, 70 ) ! Reaction Label CP47 RKI( NCELL, 649) = RKI( NCELL, 70 ) ! Reaction Label CP48 RKI( NCELL, 650) = RKI( NCELL, 70 ) ! Reaction Label CP49 RKI( NCELL, 651) = RKI( NCELL, 52 ) ! Reaction Label CP50 RKI( NCELL, 652) = RKI( NCELL, 53 ) ! Reaction Label CP51 RKI( NCELL, 653) = RKI( NCELL, 54 ) ! Reaction Label CP52 RKI( NCELL, 654) = RKI( NCELL, 55 ) ! Reaction Label CP53 RKI( NCELL, 655) = RKI( NCELL, 56 ) ! Reaction Label CP54 RKI( NCELL, 656) = RKI( NCELL, 56 ) ! Reaction Label CP55 RKI( NCELL, 657) = RKI( NCELL, 70 ) ! Reaction Label CP56 RKI( NCELL, 658) = RKI( NCELL, 70 ) ! Reaction Label CP57 RKI( NCELL, 659) = RKI( NCELL, 70 ) ! Reaction Label CP58 RKI( NCELL, 660) = RKI( NCELL, 70 ) ! Reaction Label CE01 RKI( NCELL, 661) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.3000D-12, -1.2800D+03 ) ! Reaction Label CE02 RKI( NCELL, 662) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 1.6000D-29, 0.0000D+00, -3.3000D+00, & & 3.1000D-10, 0.0000D+00, -1.0000D+00, & & 1.0000D+00, 6.0000D-01 ) ! Reaction Label TE01 RKI( NCELL, 663) = 2.6700D-10 * CFACT ! Reaction Label TE02 RKI( NCELL, 664) = 4.9000D-10 * CFACT ! Reaction Label CE03 RKI( NCELL, 665) = 4.8000D-10 * CFACT ! Reaction Label TE03 RKI( NCELL, 666) = 5.4600D-10 * CFACT ! Reaction Label CE04 RKI( NCELL, 667) = CFACT * FALLOFF_T10( INV_TEMP, TEMPOT300, CAIR, & & 5.2000D-30, 0.0000D+00, -2.4000D+00, & & 2.2000D-10, 0.0000D+00, 0.0000D+00, & & 1.0000D+00, 6.0000D-01 ) ! Reaction Label TE04 RKI( NCELL, 668) = 6.2000D-11 * CFACT ! Reaction Label TE05 RKI( NCELL, 669) = 1.3500D-10 * CFACT ! Reaction Label TE06 RKI( NCELL, 670) = 1.4000D-10 * CFACT ! Reaction Label TE07 RKI( NCELL, 671) = 1.4400D-10 * CFACT ! Reaction Label TE08 RKI( NCELL, 672) = 2.4200D-10 * CFACT ! Reaction Label TE09 RKI( NCELL, 673) = CFACT * ARRHENUIS_T03( INV_TEMP, 8.6000D-11, 4.5000D+01 ) ! Reaction Label BC01 RKI( NCELL, 674) = CFACT * ARRHENUIS_T03( INV_TEMP, 8.3000D-11, -1.0000D+02 ) ! Reaction Label BC02 RKI( NCELL, 675) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.2000D-10, 4.0000D+01 ) ! Reaction Label BC03 RKI( NCELL, 676) = 1.8600D-10 * CFACT ! Reaction Label BC04 RKI( NCELL, 677) = 2.6300D-10 * CFACT ! Reaction Label BC05 RKI( NCELL, 678) = 4.2100D-10 * CFACT ! Reaction Label BC06 RKI( NCELL, 679) = 3.9200D-10 * CFACT ! Reaction Label BC07 RKI( NCELL, 680) = 3.7700D-10 * CFACT ! Reaction Label BC08 RKI( NCELL, 681) = 2.1600D-10 * CFACT ! Reaction Label BC09a RKI( NCELL, 682) = 2.6600D-10 * CFACT ! Reaction Label BC09b RKI( NCELL, 683) = 2.6600D-10 * CFACT ! Reaction Label BC10 RKI( NCELL, 684) = 5.4600D-10 * CFACT ! Reaction Label BC11 RKI( NCELL, 685) = RKI( NCELL, 684 ) ! Reaction Label AE51 RKI( NCELL, 686) = RKI( NCELL, 52 ) ! Reaction Label AE52 RKI( NCELL, 687) = RKI( NCELL, 53 ) ! Reaction Label AE53 RKI( NCELL, 688) = RKI( NCELL, 52 ) ! Reaction Label AE54 RKI( NCELL, 689) = RKI( NCELL, 53 ) ! Reaction Label AE55 RKI( NCELL, 690) = RKI( NCELL, 52 ) ! Reaction Label AE56 RKI( NCELL, 691) = RKI( NCELL, 53 ) ! Reaction Label AE57 RKI( NCELL, 692) = RKI( NCELL, 52 ) ! Reaction Label AE58 RKI( NCELL, 693) = RKI( NCELL, 53 ) ! Reaction Label TR03 RKI( NCELL, 696) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.4000D-12, 1.3500D+02 ) ! Reaction Label TR05 RKI( NCELL, 697) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.0000D-12, -2.4310D+03 ) ! Reaction Label TR06 RKI( NCELL, 698) = CFACT * ARRHENUIS_T03( INV_TEMP, 8.1000D-11, -3.0000D+01 ) ! Reaction Label TR07 RKI( NCELL, 699) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.4000D-12, 3.6500D+02 ) ! Reaction Label TR09 RKI( NCELL, 701) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.4000D-12, -1.8600D+03 ) ! Reaction Label TR10 RKI( NCELL, 702) = 8.0000D-11 * CFACT ! Reaction Label TR11 RKI( NCELL, 703) = 1.9900D-11 * CFACT ! Reaction Label TR12 RKI( NCELL, 704) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.4000D-15, -2.5280D+03 ) ! Reaction Label TR13 RKI( NCELL, 705) = 1.1800D-15 * CFACT ! Reaction Label TR14 RKI( NCELL, 706) = 2.3700D-12 * CFACT ! Reaction Label TR16 RKI( NCELL, 708) = 2.9400D-10 * CFACT ! Reaction Label IS1 RKI( NCELL, 709) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.5400D-11, 4.1000D+02 ) ! Reaction Label IS2 RKI( NCELL, 710) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.6000D-12, 3.8000D+02 ) ! Reaction Label IS3 RKI( NCELL, 711) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.0600D-13, 1.3000D+03 ) ! Reaction Label IS4 RKI( NCELL, 712) = 1.8000D-12 * CFACT ! Reaction Label IS5 RKI( NCELL, 713) = 6.8000D-13 * CFACT ! Reaction Label IS6 RKI( NCELL, 714) = 2.3000D-12 * CFACT ! Reaction Label IS7 RKI( NCELL, 715) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.4000D-13, 1.0700D+03 ) ! Reaction Label IS107 RKI( NCELL, 716) = SFACT * ARRHENUIS_T03( INV_TEMP, 4.0700D+08, -7.6940D+03 ) ! Reaction Label IS138 RKI( NCELL, 718) = 4.6000D-11 * CFACT ! Reaction Label IS9 RKI( NCELL, 719) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.0300D-12, -4.4800D+02 ) ! Reaction Label IS10 RKI( NCELL, 720) = 2.3000D-12 * CFACT ! Reaction Label IS11 RKI( NCELL, 721) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.6000D-12, 3.8000D+02 ) ! Reaction Label IS12 RKI( NCELL, 722) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.0600D-13, 1.3000D+03 ) ! Reaction Label IS13 RKI( NCELL, 723) = 1.3000D-12 * CFACT ! Reaction Label IS14 RKI( NCELL, 724) = 6.0400D-13 * CFACT ! Reaction Label IS140 RKI( NCELL, 725) = 1.2000D-12 * CFACT ! Reaction Label IS15 RKI( NCELL, 726) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.4000D-13, 1.0700D+03 ) ! Reaction Label IS17 RKI( NCELL, 727) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.4200D-11, 6.1000D+02 ) ! Reaction Label IS18 RKI( NCELL, 728) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.6000D-12, 3.8000D+02 ) ! Reaction Label IS19 RKI( NCELL, 729) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.0600D-13, 1.3000D+03 ) ! Reaction Label IS20 RKI( NCELL, 730) = 2.0000D-13 * CFACT ! Reaction Label IS21 RKI( NCELL, 731) = 3.5000D-14 * CFACT ! Reaction Label IS22 RKI( NCELL, 732) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.4000D-13, 1.0700D+03 ) ! Reaction Label IS24 RKI( NCELL, 733) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.9400D-15, -1.5200D+03 ) ! Reaction Label IS25 RKI( NCELL, 734) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.2000D-11, 6.5200D+02 ) ! Reaction Label IS26 RKI( NCELL, 735) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.4000D-12, 3.6000D+02 ) ! Reaction Label IS141 RKI( NCELL, 736) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.0600D-13, 1.3000D+03 ) ! Reaction Label IS142 RKI( NCELL, 737) = 2.0000D-13 * CFACT ! Reaction Label IS143 RKI( NCELL, 738) = 3.5000D-14 * CFACT ! Reaction Label IS144 RKI( NCELL, 739) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.4000D-13, 1.0700D+03 ) ! Reaction Label IS27 RKI( NCELL, 740) = 2.9000D-17 * CFACT ! Reaction Label IS28 RKI( NCELL, 741) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.4000D-12, 7.4500D+02 ) ! Reaction Label IS29 RKI( NCELL, 742) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.4000D-12, 3.6000D+02 ) ! Reaction Label IS145 RKI( NCELL, 743) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.0600D-13, 1.3000D+03 ) ! Reaction Label IS146 RKI( NCELL, 744) = 2.0000D-13 * CFACT ! Reaction Label IS147 RKI( NCELL, 745) = 3.5000D-14 * CFACT ! Reaction Label IS148 RKI( NCELL, 746) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.4000D-13, 1.0700D+03 ) ! Reaction Label IS30 RKI( NCELL, 747) = 3.7000D-19 * CFACT ! Reaction Label IS31 RKI( NCELL, 748) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.1500D-13, -4.4800D+02 ) ! Reaction Label IS32 RKI( NCELL, 749) = 4.0000D-12 * CFACT ! Reaction Label IS34 RKI( NCELL, 750) = RKI( NCELL, 76 ) ! Reaction Label IS109 RKI( NCELL, 751) = RKI( NCELL, 73 ) ! Reaction Label IS36 RKI( NCELL, 752) = RKI( NCELL, 67 ) ! Reaction Label IS38 RKI( NCELL, 753) = RKI( NCELL, 70 ) ! Reaction Label IS40 RKI( NCELL, 754) = RKI( NCELL, 69 ) ! Reaction Label IS41 RKI( NCELL, 755) = RKI( NCELL, 72 ) ! Reaction Label IS33 RKI( NCELL, 756) = 2.3000D-12 * CFACT ! Reaction Label IS35 RKI( NCELL, 757) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.6000D-12, 3.8000D+02 ) ! Reaction Label IS37 RKI( NCELL, 758) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.0600D-13, 1.3000D+03 ) ! Reaction Label IS39 RKI( NCELL, 759) = 3.5000D-14 * CFACT ! Reaction Label IS43 RKI( NCELL, 760) = 2.0000D-13 * CFACT ! Reaction Label IS44 RKI( NCELL, 761) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.4000D-13, 1.0700D+03 ) ! Reaction Label IS46 RKI( NCELL, 762) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.1500D-15, -1.5200D+03 ) ! Reaction Label IS47 RKI( NCELL, 763) = CFACT * ARRHENUIS_T03( INV_TEMP, 7.4800D-12, 4.1000D+02 ) ! Reaction Label IS48 RKI( NCELL, 764) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.6000D-12, 3.8000D+02 ) ! Reaction Label IS50 RKI( NCELL, 765) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.0600D-13, 1.3000D+03 ) ! Reaction Label IS51 RKI( NCELL, 766) = 3.5000D-14 * CFACT ! Reaction Label IS52 RKI( NCELL, 767) = 2.0000D-13 * CFACT ! Reaction Label IS53 RKI( NCELL, 768) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.4000D-13, 1.0700D+03 ) ! Reaction Label IS55 RKI( NCELL, 769) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.6000D-12, 3.8000D+02 ) ! Reaction Label IS102 RKI( NCELL, 770) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.0600D-13, 1.3000D+03 ) ! Reaction Label IS103 RKI( NCELL, 771) = 2.0000D-13 * CFACT ! Reaction Label IS104 RKI( NCELL, 772) = 3.5000D-14 * CFACT ! Reaction Label IS105 RKI( NCELL, 773) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.4000D-13, 1.0700D+03 ) ! Reaction Label IS56 RKI( NCELL, 774) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.6000D-12, 6.1000D+02 ) ! Reaction Label IS57 RKI( NCELL, 775) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.6000D-12, 3.8000D+02 ) ! Reaction Label IS58 RKI( NCELL, 776) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.8200D-13, 1.3000D+03 ) ! Reaction Label IS59 RKI( NCELL, 777) = 2.0000D-13 * CFACT ! Reaction Label IS60 RKI( NCELL, 778) = 3.5000D-14 * CFACT ! Reaction Label IS61 RKI( NCELL, 779) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.4000D-13, 1.0700D+03 ) ! Reaction Label IS63 RKI( NCELL, 780) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.6000D-12, 3.8000D+02 ) ! Reaction Label IS64 RKI( NCELL, 781) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.8200D-13, 1.3000D+03 ) ! Reaction Label IS65 RKI( NCELL, 782) = 2.0000D-13 * CFACT ! Reaction Label IS66 RKI( NCELL, 783) = 3.5000D-14 * CFACT ! Reaction Label IS67 RKI( NCELL, 784) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.4000D-13, 1.0700D+03 ) ! Reaction Label IS69 RKI( NCELL, 785) = CFACT * ARRHENUIS_T03( INV_TEMP, 6.7000D-12, 3.4000D+02 ) ! Reaction Label IS70 RKI( NCELL, 786) = RKI( NCELL, 67 ) ! Reaction Label IS71 RKI( NCELL, 787) = 4.0000D-12 * CFACT ! Reaction Label IS72 RKI( NCELL, 788) = RKI( NCELL, 69 ) ! Reaction Label IS73 RKI( NCELL, 789) = RKI( NCELL, 70 ) ! Reaction Label IS74 RKI( NCELL, 790) = RKI( NCELL, 70 ) ! Reaction Label IS75 RKI( NCELL, 791) = RKI( NCELL, 72 ) ! Reaction Label IS76 RKI( NCELL, 792) = RKI( NCELL, 72 ) ! Reaction Label IS77 RKI( NCELL, 793) = RKI( NCELL, 72 ) ! Reaction Label IS78 RKI( NCELL, 794) = RKI( NCELL, 72 ) ! Reaction Label IS108 RKI( NCELL, 795) = 2.9000D-11 * CFACT ! Reaction Label IS79 RKI( NCELL, 796) = 8.0000D-12 * CFACT ! Reaction Label IS80 RKI( NCELL, 797) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.1500D-12, 3.0500D+02 ) ! Reaction Label IS82 RKI( NCELL, 799) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.9400D-12, 3.6500D+02 ) ! Reaction Label IS83 RKI( NCELL, 801) = 4.0000D-13 * CFACT ! Reaction Label IS93 RKI( NCELL, 802) = 4.0000D-13 * CFACT ! Reaction Label IS84 RKI( NCELL, 805) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.5000D-12, 1.4000D+02 ) ! Reaction Label IS85 RKI( NCELL, 807) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.2800D-11, 4.0500D+02 ) ! Reaction Label IS86 RKI( NCELL, 809) = 1.0000D-11 * CFACT ! Reaction Label IS88 RKI( NCELL, 811) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.9000D-11, 3.9000D+02 ) ! Reaction Label IS89 RKI( NCELL, 812) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.7500D-12, 2.0000D+02 ) ! Reaction Label IS90 RKI( NCELL, 813) = CFACT * ARRHENUIS_T03( INV_TEMP, 5.7800D-11, -4.0000D+02 ) ! Reaction Label IS91 RKI( NCELL, 814) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.0600D-13, 1.3000D+03 ) ! Reaction Label IS96 RKI( NCELL, 815) = CFACT * ARRHENUIS_T03( INV_TEMP, 2.6000D-12, 3.8000D+02 ) ! Reaction Label IS112 RKI( NCELL, 816) = 2.0000D-13 * CFACT ! Reaction Label IS113 RKI( NCELL, 817) = 3.5000D-14 * CFACT ! Reaction Label IS114 RKI( NCELL, 818) = CFACT * ARRHENUIS_T03( INV_TEMP, 4.4000D-13, 1.0700D+03 ) ! Reaction Label IS94 RKI( NCELL, 820) = 8.0000D-12 * CFACT ! Reaction Label IS99 RKI( NCELL, 821) = 5.0000D-11 * CFACT ! Reaction Label IS139 RKI( NCELL, 822) = CFACT * ARRHENUIS_T03( INV_TEMP, 3.8000D-12, 2.0000D+02 ) ! Reaction Label IS00 RKI( NCELL, 823) = CFACT * ARRHENUIS_T03( INV_TEMP, 8.0000D-12, 3.8000D+02 ) ! Reaction Label BP56 RKI( NCELL, 824) = CFACT * ARRHENUIS_T03( INV_TEMP, 1.5000D-12, -1.8150D+03 ) ! Reaction Label CP16 RKI( NCELL, 826) = 3.8500D-10 * CFACT ! Reaction Label IA69 RKI( NCELL, 827) = CFACT * ARRHENUIS_T03( INV_TEMP, 6.7000D-12, 3.4000D+02 ) ! Reaction Label IA70 RKI( NCELL, 828) = RKI( NCELL, 67 ) ! Reaction Label IA71 RKI( NCELL, 829) = 4.0000D-12 * CFACT ! Reaction Label IA72 RKI( NCELL, 830) = RKI( NCELL, 69 ) ! Reaction Label IA73 RKI( NCELL, 831) = RKI( NCELL, 70 ) ! Reaction Label IA74 RKI( NCELL, 832) = RKI( NCELL, 70 ) ! Reaction Label IA75 RKI( NCELL, 833) = RKI( NCELL, 72 ) ! Reaction Label IA76 RKI( NCELL, 834) = RKI( NCELL, 72 ) ! Reaction Label IA77 RKI( NCELL, 835) = RKI( NCELL, 72 ) ! Reaction Label IA78 RKI( NCELL, 836) = RKI( NCELL, 72 ) ! Reaction Label IA79 RKI( NCELL, 837) = RKI( NCELL, 72 ) ! Reaction Label IA80 RKI( NCELL, 838) = SFACT * ARRHENUIS_T03( INV_TEMP, 2.9000D+07, -5.2970D+03 ) ! Reaction Label IA51 RKI( NCELL, 839) = RKI( NCELL, 73 ) ! Reaction Label IA52 RKI( NCELL, 840) = SFACT * ARRHENUIS_T03( INV_TEMP, 1.6000D+16, -1.3486D+04 ) ! Reaction Label IC01 RKI( NCELL, 842) = RKI( NCELL, 70 ) ! Reaction Label IC02 RKI( NCELL, 843) = RKI( NCELL, 70 ) ! Reaction Label IC03 RKI( NCELL, 844) = RKI( NCELL, 70 ) ! Reaction Label IC04 RKI( NCELL, 845) = RKI( NCELL, 70 ) ! Reaction Label IC05 RKI( NCELL, 846) = RKI( NCELL, 70 ) ! Reaction Label IC06 RKI( NCELL, 847) = RKI( NCELL, 70 ) ! Reaction Label IC07 RKI( NCELL, 848) = RKI( NCELL, 70 ) ! Reaction Label IC08 RKI( NCELL, 849) = RKI( NCELL, 70 ) ! Reaction Label IC09 RKI( NCELL, 850) = RKI( NCELL, 70 ) ! Reaction Label IC10 RKI( NCELL, 851) = RKI( NCELL, 70 ) ! Reaction Label IC11 RKI( NCELL, 852) = RKI( NCELL, 70 ) ! Reaction Label IC12 RKI( NCELL, 853) = RKI( NCELL, 70 ) ! Reaction Label IC13 RKI( NCELL, 854) = RKI( NCELL, 70 ) ! Reaction Label IC14 RKI( NCELL, 855) = RKI( NCELL, 70 ) ! Reaction Label IC15 RKI( NCELL, 856) = RKI( NCELL, 70 ) ! Reaction Label IC16 RKI( NCELL, 857) = RKI( NCELL, 70 ) ! Reaction Label IC17 RKI( NCELL, 858) = RKI( NCELL, 70 ) ! Reaction Label IC18 RKI( NCELL, 859) = RKI( NCELL, 70 ) ! Reaction Label IC19 RKI( NCELL, 860) = RKI( NCELL, 70 ) ! Reaction Label IC20 RKI( NCELL, 861) = RKI( NCELL, 70 ) ! Reaction Label IC21 RKI( NCELL, 862) = RKI( NCELL, 70 ) ! Reaction Label IC22 RKI( NCELL, 863) = RKI( NCELL, 70 ) ! Reaction Label IC23 RKI( NCELL, 864) = RKI( NCELL, 70 ) ! Reaction Label IC24 RKI( NCELL, 865) = RKI( NCELL, 70 ) ! Reaction Label IC25 RKI( NCELL, 866) = RKI( NCELL, 70 ) ! Reaction Label IC26 RKI( NCELL, 867) = RKI( NCELL, 70 ) ! Reaction Label IC27 RKI( NCELL, 868) = RKI( NCELL, 70 ) ! Reaction Label IC28 RKI( NCELL, 869) = RKI( NCELL, 70 ) ! Reaction Label IC29 RKI( NCELL, 870) = RKI( NCELL, 70 ) ! Reaction Label IC30 RKI( NCELL, 871) = RKI( NCELL, 70 ) ! Reaction Label IC31 RKI( NCELL, 872) = RKI( NCELL, 70 ) ! Reaction Label IC32 RKI( NCELL, 873) = RKI( NCELL, 70 ) ! Reaction Label IC33 RKI( NCELL, 874) = RKI( NCELL, 70 ) ! Reaction Label IC34 RKI( NCELL, 875) = RKI( NCELL, 70 ) ! Reaction Label IC35 RKI( NCELL, 876) = RKI( NCELL, 70 ) ! Reaction Label IA108 RKI( NCELL, 877) = 3.0000D-11 * CFACT ! Reaction Label IA90 RKI( NCELL, 878) = 1.0000D-12 * CFACT ! Reaction Label IA91 RKI( NCELL, 879) = 4.4000D-12 * CFACT ! Reaction Label IA92 RKI( NCELL, 880) = 1.6600D-11 * CFACT ! Reaction Label CP07mtp RKI( NCELL, 881) = 1.9200D-10 * CFACT ! Reaction Label BP70mtp RKI( NCELL, 882) = 7.2000D-12 * CFACT ! Reaction Label HET_N02 RKI( NCELL, 884) = BLKHET( NCELL, IK_HETERO_NO2 ) ! Reaction Label HET_N2O5IJ RKI( NCELL, 885) = BLKHET( NCELL, IK_HETERO_N2O5IJ ) ! Reaction Label HET_N2O5K RKI( NCELL, 886) = BLKHET( NCELL, IK_HETERO_N2O5K ) ! Reaction Label HET_H2NO3PIJA RKI( NCELL, 887) = BLKHET( NCELL, IK_HETERO_H2NO3PAIJ ) ! Reaction Label HET_H2NO3PKA RKI( NCELL, 888) = BLKHET( NCELL, IK_HETERO_H2NO3PAK ) ! Reaction Label HET_H2NO3PIB RKI( NCELL, 889) = BLKHET( NCELL, IK_HETERO_H2NO3PBIJ ) ! Reaction Label HET_H2NO3PJB RKI( NCELL, 890) = BLKHET( NCELL, IK_HETERO_H2NO3PBIJ ) ! Reaction Label HET_H2NO3PKB RKI( NCELL, 891) = BLKHET( NCELL, IK_HETERO_H2NO3PBK ) ! Reaction Label HET_IEPOX RKI( NCELL, 893) = BLKHET( NCELL, IK_HETERO_IEPOX ) ! Reaction Label HET_IMAE RKI( NCELL, 894) = BLKHET( NCELL, IK_HETERO_IMAE ) ! Reaction Label HET_IHMML RKI( NCELL, 895) = BLKHET( NCELL, IK_HETERO_IMAE ) ! Reaction Label HET_TETROL RKI( NCELL, 896) = BLKHET( NCELL, IK_HETERO_TETROL ) ! Reaction Label HET_IEPOXOS RKI( NCELL, 897) = BLKHET( NCELL, IK_HETERO_IEPOXOS ) ! Reaction Label HET_DIM1 RKI( NCELL, 898) = BLKHET( NCELL, IK_HETERO_TETROLDIM ) ! Reaction Label HET_DIM2 RKI( NCELL, 899) = BLKHET( NCELL, IK_HETERO_IEPOXOSDI ) ! Reaction Label HET_2MG1 RKI( NCELL, 900) = BLKHET( NCELL, IK_HETERO_2MG ) ! Reaction Label HET_IMAEOS1 RKI( NCELL, 901) = BLKHET( NCELL, IK_HETERO_IMAEOS ) ! Reaction Label HET_2MG2 RKI( NCELL, 902) = BLKHET( NCELL, IK_HETERO_2MG ) ! Reaction Label HET_IMAEOS2 RKI( NCELL, 903) = BLKHET( NCELL, IK_HETERO_IMAEOS ) ! Reaction Label HET_NO3 RKI( NCELL, 904) = BLKHET( NCELL, IK_HETERO_NO3 ) ! Reaction Label OLIG_ISOPRENE1 RKI( NCELL, 905) = 9.4882D-06 * SFACT ! Reaction Label OLIG_ISOPRENE2 RKI( NCELL, 906) = 9.4882D-06 * SFACT ! Reaction Label OLIG_SESQT1 RKI( NCELL, 907) = 9.4882D-06 * SFACT ! Reaction Label OLIG_AROMATIC1 RKI( NCELL, 908) = 9.4882D-06 * SFACT ! Reaction Label OLIG_AROMATIC2 RKI( NCELL, 909) = 9.4882D-06 * SFACT ! Reaction Label OLIG_AROMATIC3 RKI( NCELL, 910) = 9.4882D-06 * SFACT ! Reaction Label RPOAGEPI RKI( NCELL, 911) = 2.5000D-12 * CFACT ! Reaction Label RPOAGELI RKI( NCELL, 912) = BLKHET( NCELL, IK_HETERO_PNCOMLI ) ! Reaction Label RPOAGEPJ RKI( NCELL, 913) = 2.5000D-12 * CFACT ! Reaction Label RPOAGELJ RKI( NCELL, 914) = BLKHET( NCELL, IK_HETERO_PNCOMLJ ) ! Reaction Label PCSOA RKI( NCELL, 915) = 1.2500D-11 * CFACT ! Reaction Label POA_AGE1 RKI( NCELL, 916) = 4.0000D-11 * CFACT ! Reaction Label POA_AGE2 RKI( NCELL, 917) = 4.0000D-11 * CFACT ! Reaction Label POA_AGE3 RKI( NCELL, 918) = 4.0000D-11 * CFACT ! Reaction Label POA_AGE4 RKI( NCELL, 919) = 4.0000D-11 * CFACT ! Reaction Label POA_AGE5 RKI( NCELL, 920) = 4.0000D-11 * CFACT ! Reaction Label POA_AGE6 RKI( NCELL, 921) = 4.0000D-11 * CFACT ! Reaction Label POA_AGE7 RKI( NCELL, 922) = 4.0000D-11 * CFACT ! Reaction Label POA_AGE8 RKI( NCELL, 923) = 4.0000D-11 * CFACT ! Reaction Label POA_AGE9 RKI( NCELL, 924) = 4.0000D-11 * CFACT ! Reaction Label POA_AGE10 RKI( NCELL, 925) = 4.0000D-11 * CFACT ! Reaction Label HYD_MT RKI( NCELL, 926) = 9.2590D-05 * SFACT ! Reaction Label HYD_ISOP RKI( NCELL, 927) = 9.2590D-05 * SFACT ! Reaction Label HET_GLY RKI( NCELL, 928) = BLKHET( NCELL, IK_HETERO_GLY ) ! Reaction Label HET_MGLY RKI( NCELL, 929) = BLKHET( NCELL, IK_HETERO_MGLY ) END DO ! Multiply rate constants by [M], [O2], [N2], [H2O], [H2], or [CH4] ! where needed and return IF ( NWM .GT. 0 ) THEN DO NRT = 1, NWM IRXN = NRXWM( NRT ) DO NCELL = 1, NUMCELLS RKI( NCELL,IRXN ) = RKI( NCELL,IRXN ) * ATM_AIR END DO END DO END IF IF ( NWO2 .GT. 0 ) THEN DO NRT = 1, NWO2 IRXN = NRXWO2( NRT ) DO NCELL = 1, NUMCELLS RKI( NCELL,IRXN ) = RKI( NCELL,IRXN ) * ATM_O2 END DO END DO END IF IF ( NWN2 .GT. 0 ) THEN DO NRT = 1, NWN2 IRXN = NRXWN2( NRT ) DO NCELL = 1, NUMCELLS RKI( NCELL,IRXN ) = RKI( NCELL,IRXN ) * ATM_N2 END DO END DO END IF IF ( NWW .GT. 0 ) THEN DO NRT = 1, NWW IRXN = NRXWW( NRT ) DO NCELL = 1, NUMCELLS RKI( NCELL,IRXN ) = RKI( NCELL,IRXN ) * BLKH2O( NCELL ) END DO END DO END IF IF ( NWH2 .GT. 0 ) THEN DO NRT = 1, NWH2 IRXN = NRXWH2( NRT ) DO NCELL = 1, NUMCELLS RKI( NCELL,IRXN ) = RKI( NCELL,IRXN ) * ATM_H2 END DO END DO END IF IF ( NWCH4 .GT. 0 ) THEN DO NRT = 1, NWCH4 IRXN = NRXWCH4( NRT ) DO NCELL = 1, NUMCELLS RKI( NCELL,IRXN ) = RKI( NCELL,IRXN ) * ATM_CH4 END DO END DO END IF RETURN END SUBROUTINE CALC_RCONST FUNCTION MAP_CHEMISTRY_SPECIES() RESULT ( SUCCESS ) ! Purpose find or test the CGRID Index, Species Type, and Conversion Factor ! for the Mechanism against the CMAQ namelists USE UTILIO_DEFN USE CGRID_SPCS USE RXNS_DATA IMPLICIT NONE !Parameters: CHARACTER( 1 ), PARAMETER :: BL = ' ' INTEGER, PARAMETER :: SPC_DIM = 200 !Local: LOGICAL SUCCESS INTEGER I, IOS, J INTEGER I1, I2, I3, I4 ! SURROGATE TYPE 1 COUNTERS INTEGER J1, J2 ! SURROGATE TYPE 2 COUNTERS INTEGER K1, K2, K3, K4, K5 ! CONTROL TYPE COUNTERS INTEGER ICALL LOGICAL :: ORDER = .TRUE. LOGICAL :: FOUND = .TRUE. CHARACTER( 120 ) :: XMSG CHARACTER( 16 ), ALLOCATABLE :: CGRID_SPC ( : ) CHARACTER( 16 ), ALLOCATABLE :: NML_SPC ( : ) CHARACTER( 2 ), ALLOCATABLE :: NML_TYPE ( : ) INTEGER, ALLOCATABLE :: NML_INDEX ( : ) LOGICAL, ALLOCATABLE :: NML_CONVERT( : ) REAL, ALLOCATABLE :: NML_MOLWT ( : ) REAL :: DELTA ! fractional difference LOGICAL, SAVE :: INITIALIZED = .FALSE. IF( INITIALIZED )RETURN INITIALIZED = .TRUE. SUCCESS = .TRUE. ALLOCATE ( CGRID_SPC( NSPCSD - 1 ), & & NML_SPC ( NSPCSD - 1 ), & & NML_INDEX( NSPCSD - 1 ), & & NML_TYPE( NSPCSD - 1 ), & & NML_CONVERT( NSPCSD - 1 ), & & NML_MOLWT( NSPCSD - 1 ), & & STAT = IOS ) J = 0 NML_INDEX = -1 TYPE_INDEX = -1 NML_TYPE = '??' NML_CONVERT = .FALSE. DO I = 1, N_GC_SPC ! load gc names and indices J = J + 1 CGRID_SPC( I ) = GC_SPC( I ) NML_INDEX( J ) = I + GC_STRT -1 NML_TYPE( J ) = 'GC' NML_MOLWT( J ) = GC_MOLWT( I ) END DO DO I = 1, N_AE_SPC ! load ae names and indices J = J + 1 CGRID_SPC( J ) = AE_SPC( I ) NML_INDEX( J ) = I + AE_STRT - 1 NML_TYPE( J ) = 'AE' NML_CONVERT( J ) = .TRUE. NML_MOLWT( J ) = AE_MOLWT( I ) END DO DO I = 1, N_NR_SPC ! load nr names and indices J = J + 1 CGRID_SPC( J ) = NR_SPC( I ) NML_INDEX( J ) = I + NR_STRT - 1 NML_TYPE( J ) = 'NR' NML_MOLWT( J ) = NR_MOLWT( I ) END DO DO I = 1, N_TR_SPC ! load tr names and indices J = J + 1 CGRID_SPC( J ) = TR_SPC( I ) NML_INDEX( J ) = I + TR_STRT - 1 NML_TYPE( J ) = 'TR' NML_MOLWT( J ) = TR_MOLWT( I ) END DO NML_SPC( 1:(NSPCSD-1) ) = CGRID_SPC( 1:(NSPCSD-1) ) ! determine if mechanism species are in cgrid species DO I = 1, NUMB_MECH_SPC ! set species informations arrays using SPECIES_LIST array before mapping CHEMISTRY_SPC( I ) = SPECIES_LIST( I )%CHEMISTRY_SPC CGRID_INDEX ( I ) = SPECIES_LIST( I )%CGRID_INDEX SPECIES_TYPE ( I ) = SPECIES_LIST( I )%SPECIES_TYPE CONVERT_CONC ( I ) = SPECIES_LIST( I )%CONVERT_CONC SPECIES_MOLWT( I ) = SPECIES_LIST( I )%SPECIES_MOLWT I1 = INDEX1R( CHEMISTRY_SPC( I ), (NSPCSD-1), CGRID_SPC ) IF ( I1 .LT. 1 ) THEN FOUND = .FALSE. ELSE FOUND = .TRUE. IF( .NOT. MAPPED_TO_CGRID )THEN CGRID_INDEX( I ) = NML_INDEX( I1 ) SPECIES_TYPE( I ) = NML_TYPE ( I1 ) SPECIES_MOLWT( I ) = NML_MOLWT( I1 ) CONVERT_CONC( I ) = NML_CONVERT( I1 ) ELSE IF(CGRID_INDEX( I ) .NE. NML_INDEX( I1 ))THEN SUCCESS = .FALSE. XMSG = '*** For Species ' // TRIM( CHEMISTRY_SPC( I ) ) & & // ' cgrid index does not match mechanism value.' WRITE( LOGDEV,'( /5X, A )' ) TRIM( XMSG ) WRITE( XMSG,'(A,I3,1X,I3)')'CGRID Indices: Mechanism and NML Values are ', & & CGRID_INDEX( I ),NML_INDEX( I1 ) WRITE( LOGDEV,'( 5X, A )' )XMSG END IF IF(CONVERT_CONC( I ) .NEQV. NML_CONVERT( I1 ))THEN SUCCESS = .FALSE. XMSG = '*** For Species ' // TRIM( CHEMISTRY_SPC( I ) ) & & // ' species unit conversion flag does not match mechanism value.' WRITE( LOGDEV,'( /5X, A )' ) TRIM( XMSG ) WRITE( XMSG,'(A,1X,L21X,L2)')'CONVERSION FLAGS: Mechanism and NML Values are ', & & CONVERT_CONC( I ),NML_CONVERT( I1 ) WRITE( LOGDEV,'( 5X, A )' )XMSG WRITE( XMSG,'(A,1X,A3,1X,A3)')'SPECIES TYPE: Mechanism and NML Values are ', & & SPECIES_TYPE( I ),NML_TYPE( I1 ) WRITE( LOGDEV,'( 5X, A )' )XMSG END IF DELTA = ( SPECIES_MOLWT( I ) - NML_MOLWT( I1 ) )/MAX(NML_MOLWT( I1 ),1.0E-20) IF( ABS( DELTA ) .GE. 0.05 )THEN IF( CONVERT_CONC( I ) )SUCCESS = .FALSE. XMSG = '*** For Species ' // TRIM( CHEMISTRY_SPC( I ) ) & & // ' species molecular weight does not match mechanism value.' WRITE( LOGDEV,'( /5X, A )' ) TRIM( XMSG ) WRITE( XMSG,'(A,2(ES12.4,1X))')'Molecular Weight: Mechanism and NML Values are ', & & SPECIES_MOLWT( I ), NML_MOLWT( I1 ) WRITE( LOGDEV,'( 5X, A )' )XMSG END IF END IF END IF IF( INDEX( CHEMISTRY_SPC( I ), 'SRF') .GT. 0 )THEN SUCCESS = .FALSE. XMSG = '*** reactions cannot use modal aerosol surface area as species' WRITE( LOGDEV,'( /5X, A )' ) TRIM( XMSG ) XMSG = TRIM( CHEMISTRY_SPC( I ) ) WRITE( LOGDEV,'( 2X, A )' ) TRIM( XMSG ) END IF IF( INDEX( CHEMISTRY_SPC( I ), 'NUM') .GT. 0 )THEN SUCCESS = .FALSE. XMSG = '*** reactions cannot use modal aerosol number density as species' WRITE( LOGDEV,'( /5X, A )' ) TRIM( XMSG ) XMSG = TRIM( CHEMISTRY_SPC( I ) ) WRITE( LOGDEV,'( 2X, A )' ) TRIM( XMSG ) END IF IF ( .NOT. FOUND ) THEN XMSG = 'Fatal error: Mechanism Species found not in species namelist:' WRITE( LOGDEV,'( /5X, A )', ADVANCE = 'NO' ) TRIM( XMSG ) XMSG = TRIM( CHEMISTRY_SPC( I ) ) WRITE( LOGDEV,'( 2X, A )' ) TRIM( XMSG ) SUCCESS = .FALSE. END IF END DO IF( SUCCESS )RETURN WRITE(LOGDEV,99901)TRIM( MECHNAME ) XMSG = 'The FATAL errors found in namelist used. Check ' & & // 'the log of exiting processor if more details are needed.' CALL M3WARN('MAP_CHEMISTRY_SPECIES',0,0,XMSG) 99901 FORMAT( / 'FATAL error(s) found in the namelists used. Check that ' & & / 'these namelists contain the above data as the respective files ' & & / 'in the respository version of the mechanism: ' , A ) RETURN END FUNCTION MAP_CHEMISTRY_SPECIES !---------------------------------------------------------------------------------------- INTEGER FUNCTION INDEX1R ( NAME, N, NLIST ) IMPLICIT NONE CHARACTER( * ) NAME ! character string being searched for INTEGER N ! length of array to be searched CHARACTER( * ) NLIST( : ) ! array to be searched INTEGER I DO I = 1, N IF ( NAME .EQ. NLIST( I ) ) THEN INDEX1R = I RETURN END IF END DO INDEX1R = 0 RETURN END FUNCTION INDEX1R SUBROUTINE RESET_SPECIES_POINTERS( IOLD2NEW ) USE RXNS_DATA IMPLICIT NONE INTEGER, INTENT( IN ) :: IOLD2NEW( :,: ) INDEX_NO2 = IOLD2NEW( INDEX_NO2 , 1 ) INDEX_NO = IOLD2NEW( INDEX_NO , 1 ) INDEX_O3P = IOLD2NEW( INDEX_O3P , 1 ) INDEX_O3 = IOLD2NEW( INDEX_O3 , 1 ) INDEX_NO3 = IOLD2NEW( INDEX_NO3 , 1 ) INDEX_N2O5 = IOLD2NEW( INDEX_N2O5 , 1 ) INDEX_HNO3 = IOLD2NEW( INDEX_HNO3 , 1 ) INDEX_O1D = IOLD2NEW( INDEX_O1D , 1 ) INDEX_OH = IOLD2NEW( INDEX_OH , 1 ) INDEX_HONO = IOLD2NEW( INDEX_HONO , 1 ) INDEX_HO2 = IOLD2NEW( INDEX_HO2 , 1 ) INDEX_CO = IOLD2NEW( INDEX_CO , 1 ) INDEX_CO2 = IOLD2NEW( INDEX_CO2 , 1 ) INDEX_HNO4 = IOLD2NEW( INDEX_HNO4 , 1 ) INDEX_HO2H = IOLD2NEW( INDEX_HO2H , 1 ) INDEX_SO2 = IOLD2NEW( INDEX_SO2 , 1 ) INDEX_SULF = IOLD2NEW( INDEX_SULF , 1 ) INDEX_SULRXN = IOLD2NEW( INDEX_SULRXN , 1 ) INDEX_MEO2 = IOLD2NEW( INDEX_MEO2 , 1 ) INDEX_HCHO = IOLD2NEW( INDEX_HCHO , 1 ) INDEX_COOH = IOLD2NEW( INDEX_COOH , 1 ) INDEX_MEOH = IOLD2NEW( INDEX_MEOH , 1 ) INDEX_RO2C = IOLD2NEW( INDEX_RO2C , 1 ) INDEX_RO2XC = IOLD2NEW( INDEX_RO2XC , 1 ) INDEX_MECO3 = IOLD2NEW( INDEX_MECO3 , 1 ) INDEX_PAN = IOLD2NEW( INDEX_PAN , 1 ) INDEX_CCOOOH = IOLD2NEW( INDEX_CCOOOH , 1 ) INDEX_CCOOH = IOLD2NEW( INDEX_CCOOH , 1 ) INDEX_RCO3 = IOLD2NEW( INDEX_RCO3 , 1 ) INDEX_PAN2 = IOLD2NEW( INDEX_PAN2 , 1 ) INDEX_xHO2 = IOLD2NEW( INDEX_xHO2 , 1 ) INDEX_yROOH = IOLD2NEW( INDEX_yROOH , 1 ) INDEX_xCCHO = IOLD2NEW( INDEX_xCCHO , 1 ) INDEX_RCOOOH = IOLD2NEW( INDEX_RCOOOH , 1 ) INDEX_RCOOH = IOLD2NEW( INDEX_RCOOH , 1 ) INDEX_BZCO3 = IOLD2NEW( INDEX_BZCO3 , 1 ) INDEX_PBZN = IOLD2NEW( INDEX_PBZN , 1 ) INDEX_BZO = IOLD2NEW( INDEX_BZO , 1 ) INDEX_MACO3 = IOLD2NEW( INDEX_MACO3 , 1 ) INDEX_MAPAN = IOLD2NEW( INDEX_MAPAN , 1 ) INDEX_TBUO = IOLD2NEW( INDEX_TBUO , 1 ) INDEX_RNO3 = IOLD2NEW( INDEX_RNO3 , 1 ) INDEX_ACETONE = IOLD2NEW( INDEX_ACETONE , 1 ) INDEX_NPHE = IOLD2NEW( INDEX_NPHE , 1 ) INDEX_CRES = IOLD2NEW( INDEX_CRES , 1 ) INDEX_xOH = IOLD2NEW( INDEX_xOH , 1 ) INDEX_xNO2 = IOLD2NEW( INDEX_xNO2 , 1 ) INDEX_xMEO2 = IOLD2NEW( INDEX_xMEO2 , 1 ) INDEX_xMECO3 = IOLD2NEW( INDEX_xMECO3 , 1 ) INDEX_xRCO3 = IOLD2NEW( INDEX_xRCO3 , 1 ) INDEX_xMACO3 = IOLD2NEW( INDEX_xMACO3 , 1 ) INDEX_xTBUO = IOLD2NEW( INDEX_xTBUO , 1 ) INDEX_xCO = IOLD2NEW( INDEX_xCO , 1 ) INDEX_CCHO = IOLD2NEW( INDEX_CCHO , 1 ) INDEX_RCHO = IOLD2NEW( INDEX_RCHO , 1 ) INDEX_xHCHO = IOLD2NEW( INDEX_xHCHO , 1 ) INDEX_MEK = IOLD2NEW( INDEX_MEK , 1 ) INDEX_zRNO3 = IOLD2NEW( INDEX_zRNO3 , 1 ) INDEX_xRCHO = IOLD2NEW( INDEX_xRCHO , 1 ) INDEX_HCOOH = IOLD2NEW( INDEX_HCOOH , 1 ) INDEX_xMGLY = IOLD2NEW( INDEX_xMGLY , 1 ) INDEX_xBACL = IOLD2NEW( INDEX_xBACL , 1 ) INDEX_ROOH = IOLD2NEW( INDEX_ROOH , 1 ) INDEX_xPROD2 = IOLD2NEW( INDEX_xPROD2 , 1 ) INDEX_R6OOH = IOLD2NEW( INDEX_R6OOH , 1 ) INDEX_PRD2 = IOLD2NEW( INDEX_PRD2 , 1 ) INDEX_yR6OOH = IOLD2NEW( INDEX_yR6OOH , 1 ) INDEX_RAOOH = IOLD2NEW( INDEX_RAOOH , 1 ) INDEX_MGLY = IOLD2NEW( INDEX_MGLY , 1 ) INDEX_IPRD = IOLD2NEW( INDEX_IPRD , 1 ) INDEX_xGLY = IOLD2NEW( INDEX_xGLY , 1 ) INDEX_xMEK = IOLD2NEW( INDEX_xMEK , 1 ) INDEX_xAFG1 = IOLD2NEW( INDEX_xAFG1 , 1 ) INDEX_xAFG2 = IOLD2NEW( INDEX_xAFG2 , 1 ) INDEX_GLY = IOLD2NEW( INDEX_GLY , 1 ) INDEX_AFG1 = IOLD2NEW( INDEX_AFG1 , 1 ) INDEX_AFG2 = IOLD2NEW( INDEX_AFG2 , 1 ) INDEX_HCOCO3 = IOLD2NEW( INDEX_HCOCO3 , 1 ) INDEX_BACL = IOLD2NEW( INDEX_BACL , 1 ) INDEX_BALD = IOLD2NEW( INDEX_BALD , 1 ) INDEX_AFG3 = IOLD2NEW( INDEX_AFG3 , 1 ) INDEX_xIPRD = IOLD2NEW( INDEX_xIPRD , 1 ) INDEX_MACR = IOLD2NEW( INDEX_MACR , 1 ) INDEX_MVK = IOLD2NEW( INDEX_MVK , 1 ) INDEX_xHOCCHO = IOLD2NEW( INDEX_xHOCCHO , 1 ) INDEX_xRNO3 = IOLD2NEW( INDEX_xRNO3 , 1 ) INDEX_HOCCHO = IOLD2NEW( INDEX_HOCCHO , 1 ) INDEX_xACETONE = IOLD2NEW( INDEX_xACETONE , 1 ) INDEX_ACROLEIN = IOLD2NEW( INDEX_ACROLEIN , 1 ) INDEX_xBALD = IOLD2NEW( INDEX_xBALD , 1 ) INDEX_xAFG3 = IOLD2NEW( INDEX_xAFG3 , 1 ) INDEX_xMACR = IOLD2NEW( INDEX_xMACR , 1 ) INDEX_xMVK = IOLD2NEW( INDEX_xMVK , 1 ) INDEX_xMTNO3 = IOLD2NEW( INDEX_xMTNO3 , 1 ) INDEX_MTNO3 = IOLD2NEW( INDEX_MTNO3 , 1 ) INDEX_IMACO3 = IOLD2NEW( INDEX_IMACO3 , 1 ) INDEX_yRAOOH = IOLD2NEW( INDEX_yRAOOH , 1 ) INDEX_zMTNO3 = IOLD2NEW( INDEX_zMTNO3 , 1 ) INDEX_xACROLEIN = IOLD2NEW( INDEX_xACROLEIN , 1 ) INDEX_ETHENE = IOLD2NEW( INDEX_ETHENE , 1 ) INDEX_PROPENE = IOLD2NEW( INDEX_PROPENE , 1 ) INDEX_BUTADIENE13 = IOLD2NEW( INDEX_BUTADIENE13 , 1 ) INDEX_ISOPRENE = IOLD2NEW( INDEX_ISOPRENE , 1 ) INDEX_APIN = IOLD2NEW( INDEX_APIN , 1 ) INDEX_TRPRXN = IOLD2NEW( INDEX_TRPRXN , 1 ) INDEX_ACETYLENE = IOLD2NEW( INDEX_ACETYLENE , 1 ) INDEX_BENZENE = IOLD2NEW( INDEX_BENZENE , 1 ) INDEX_BENZRO2 = IOLD2NEW( INDEX_BENZRO2 , 1 ) INDEX_TOLUENE = IOLD2NEW( INDEX_TOLUENE , 1 ) INDEX_TOLRO2 = IOLD2NEW( INDEX_TOLRO2 , 1 ) INDEX_MXYL = IOLD2NEW( INDEX_MXYL , 1 ) INDEX_XYLRO2 = IOLD2NEW( INDEX_XYLRO2 , 1 ) INDEX_OXYL = IOLD2NEW( INDEX_OXYL , 1 ) INDEX_PXYL = IOLD2NEW( INDEX_PXYL , 1 ) INDEX_TMBENZ124 = IOLD2NEW( INDEX_TMBENZ124 , 1 ) INDEX_ETOH = IOLD2NEW( INDEX_ETOH , 1 ) INDEX_ALK1 = IOLD2NEW( INDEX_ALK1 , 1 ) INDEX_ALK2 = IOLD2NEW( INDEX_ALK2 , 1 ) INDEX_ALK3 = IOLD2NEW( INDEX_ALK3 , 1 ) INDEX_ALK4 = IOLD2NEW( INDEX_ALK4 , 1 ) INDEX_ALK5 = IOLD2NEW( INDEX_ALK5 , 1 ) INDEX_SOAALK = IOLD2NEW( INDEX_SOAALK , 1 ) INDEX_SVAVB2 = IOLD2NEW( INDEX_SVAVB2 , 1 ) INDEX_SVAVB3 = IOLD2NEW( INDEX_SVAVB3 , 1 ) INDEX_SVAVB4 = IOLD2NEW( INDEX_SVAVB4 , 1 ) INDEX_OLE1 = IOLD2NEW( INDEX_OLE1 , 1 ) INDEX_OLE2 = IOLD2NEW( INDEX_OLE2 , 1 ) INDEX_ARO1 = IOLD2NEW( INDEX_ARO1 , 1 ) INDEX_ARO2MN = IOLD2NEW( INDEX_ARO2MN , 1 ) INDEX_NAPHTHAL = IOLD2NEW( INDEX_NAPHTHAL , 1 ) INDEX_PAHRO2 = IOLD2NEW( INDEX_PAHRO2 , 1 ) INDEX_TERP = IOLD2NEW( INDEX_TERP , 1 ) INDEX_TERPNRO2 = IOLD2NEW( INDEX_TERPNRO2 , 1 ) INDEX_SESQ = IOLD2NEW( INDEX_SESQ , 1 ) INDEX_SESQRXN = IOLD2NEW( INDEX_SESQRXN , 1 ) INDEX_CL2 = IOLD2NEW( INDEX_CL2 , 1 ) INDEX_CL = IOLD2NEW( INDEX_CL , 1 ) INDEX_CLNO = IOLD2NEW( INDEX_CLNO , 1 ) INDEX_CLONO = IOLD2NEW( INDEX_CLONO , 1 ) INDEX_CLNO2 = IOLD2NEW( INDEX_CLNO2 , 1 ) INDEX_HCL = IOLD2NEW( INDEX_HCL , 1 ) INDEX_CLO = IOLD2NEW( INDEX_CLO , 1 ) INDEX_CLONO2 = IOLD2NEW( INDEX_CLONO2 , 1 ) INDEX_HOCL = IOLD2NEW( INDEX_HOCL , 1 ) INDEX_xCL = IOLD2NEW( INDEX_xCL , 1 ) INDEX_xCLCCHO = IOLD2NEW( INDEX_xCLCCHO , 1 ) INDEX_xCLACET = IOLD2NEW( INDEX_xCLACET , 1 ) INDEX_CLCCHO = IOLD2NEW( INDEX_CLCCHO , 1 ) INDEX_CLACET = IOLD2NEW( INDEX_CLACET , 1 ) INDEX_CLCHO = IOLD2NEW( INDEX_CLCHO , 1 ) INDEX_SVAVB1 = IOLD2NEW( INDEX_SVAVB1 , 1 ) INDEX_HCHO_PRIMARY = IOLD2NEW( INDEX_HCHO_PRIMARY, 1 ) INDEX_CCHO_PRIMARY = IOLD2NEW( INDEX_CCHO_PRIMARY, 1 ) INDEX_ACRO_PRIMARY = IOLD2NEW( INDEX_ACRO_PRIMARY, 1 ) INDEX_ISOPO2 = IOLD2NEW( INDEX_ISOPO2 , 1 ) INDEX_ISOPRXN = IOLD2NEW( INDEX_ISOPRXN , 1 ) INDEX_ISOPND = IOLD2NEW( INDEX_ISOPND , 1 ) INDEX_ISOPNB = IOLD2NEW( INDEX_ISOPNB , 1 ) INDEX_HC5 = IOLD2NEW( INDEX_HC5 , 1 ) INDEX_DIBOO = IOLD2NEW( INDEX_DIBOO , 1 ) INDEX_ISOPOOH = IOLD2NEW( INDEX_ISOPOOH , 1 ) INDEX_HPALD = IOLD2NEW( INDEX_HPALD , 1 ) INDEX_HACET = IOLD2NEW( INDEX_HACET , 1 ) INDEX_NISOPO2 = IOLD2NEW( INDEX_NISOPO2 , 1 ) INDEX_NIT1 = IOLD2NEW( INDEX_NIT1 , 1 ) INDEX_NISOPOOH = IOLD2NEW( INDEX_NISOPOOH , 1 ) INDEX_HC5OO = IOLD2NEW( INDEX_HC5OO , 1 ) INDEX_DHMOB = IOLD2NEW( INDEX_DHMOB , 1 ) INDEX_ISOPNOOD = IOLD2NEW( INDEX_ISOPNOOD , 1 ) INDEX_PROPNN = IOLD2NEW( INDEX_PROPNN , 1 ) INDEX_MVKN = IOLD2NEW( INDEX_MVKN , 1 ) INDEX_ETHLN = IOLD2NEW( INDEX_ETHLN , 1 ) INDEX_RNO3I = IOLD2NEW( INDEX_RNO3I , 1 ) INDEX_ISOPNOOB = IOLD2NEW( INDEX_ISOPNOOB , 1 ) INDEX_MACRN = IOLD2NEW( INDEX_MACRN , 1 ) INDEX_NIT1NO3OOA = IOLD2NEW( INDEX_NIT1NO3OOA , 1 ) INDEX_NIT1NO3OOB = IOLD2NEW( INDEX_NIT1NO3OOB , 1 ) INDEX_ISOPNN = IOLD2NEW( INDEX_ISOPNN , 1 ) INDEX_NIT1OHOO = IOLD2NEW( INDEX_NIT1OHOO , 1 ) INDEX_MVKOO = IOLD2NEW( INDEX_MVKOO , 1 ) INDEX_MACROO = IOLD2NEW( INDEX_MACROO , 1 ) INDEX_PYRUACD = IOLD2NEW( INDEX_PYRUACD , 1 ) INDEX_IEPOX = IOLD2NEW( INDEX_IEPOX , 1 ) INDEX_IEPOXOO = IOLD2NEW( INDEX_IEPOXOO , 1 ) INDEX_IMPAA = IOLD2NEW( INDEX_IMPAA , 1 ) INDEX_IMAPAN = IOLD2NEW( INDEX_IMAPAN , 1 ) INDEX_IMAE = IOLD2NEW( INDEX_IMAE , 1 ) INDEX_IHMML = IOLD2NEW( INDEX_IHMML , 1 ) INDEX_H2NO3PIJ = IOLD2NEW( INDEX_H2NO3PIJ , 1 ) INDEX_H2NO3PK = IOLD2NEW( INDEX_H2NO3PK , 1 ) INDEX_ACLI = IOLD2NEW( INDEX_ACLI , 1 ) INDEX_ACLJ = IOLD2NEW( INDEX_ACLJ , 1 ) INDEX_ACLK = IOLD2NEW( INDEX_ACLK , 1 ) INDEX_IEPOXP = IOLD2NEW( INDEX_IEPOXP , 1 ) INDEX_IMAEP = IOLD2NEW( INDEX_IMAEP , 1 ) INDEX_IHMMLP = IOLD2NEW( INDEX_IHMMLP , 1 ) INDEX_AIETETJ = IOLD2NEW( INDEX_AIETETJ , 1 ) INDEX_ASO4J = IOLD2NEW( INDEX_ASO4J , 1 ) INDEX_AIEOSJ = IOLD2NEW( INDEX_AIEOSJ , 1 ) INDEX_ADIMJ = IOLD2NEW( INDEX_ADIMJ , 1 ) INDEX_AIMGAJ = IOLD2NEW( INDEX_AIMGAJ , 1 ) INDEX_AIMOSJ = IOLD2NEW( INDEX_AIMOSJ , 1 ) INDEX_AISO1J = IOLD2NEW( INDEX_AISO1J , 1 ) INDEX_AOLGBJ = IOLD2NEW( INDEX_AOLGBJ , 1 ) INDEX_AISO2J = IOLD2NEW( INDEX_AISO2J , 1 ) INDEX_ASQTJ = IOLD2NEW( INDEX_ASQTJ , 1 ) INDEX_AAVB2J = IOLD2NEW( INDEX_AAVB2J , 1 ) INDEX_AOLGAJ = IOLD2NEW( INDEX_AOLGAJ , 1 ) INDEX_AAVB3J = IOLD2NEW( INDEX_AAVB3J , 1 ) INDEX_AAVB4J = IOLD2NEW( INDEX_AAVB4J , 1 ) INDEX_APOCI = IOLD2NEW( INDEX_APOCI , 1 ) INDEX_APNCOMI = IOLD2NEW( INDEX_APNCOMI , 1 ) INDEX_APOCJ = IOLD2NEW( INDEX_APOCJ , 1 ) INDEX_APNCOMJ = IOLD2NEW( INDEX_APNCOMJ , 1 ) INDEX_PCVOC = IOLD2NEW( INDEX_PCVOC , 1 ) INDEX_PCSOARXN = IOLD2NEW( INDEX_PCSOARXN , 1 ) INDEX_VLVPO1 = IOLD2NEW( INDEX_VLVPO1 , 1 ) INDEX_VSVPO1 = IOLD2NEW( INDEX_VSVPO1 , 1 ) INDEX_VSVPO2 = IOLD2NEW( INDEX_VSVPO2 , 1 ) INDEX_VSVPO3 = IOLD2NEW( INDEX_VSVPO3 , 1 ) INDEX_VIVPO1 = IOLD2NEW( INDEX_VIVPO1 , 1 ) INDEX_VLVOO1 = IOLD2NEW( INDEX_VLVOO1 , 1 ) INDEX_VLVOO2 = IOLD2NEW( INDEX_VLVOO2 , 1 ) INDEX_VSVOO2 = IOLD2NEW( INDEX_VSVOO2 , 1 ) INDEX_VSVOO3 = IOLD2NEW( INDEX_VSVOO3 , 1 ) INDEX_VSVOO1 = IOLD2NEW( INDEX_VSVOO1 , 1 ) INDEX_AMTNO3J = IOLD2NEW( INDEX_AMTNO3J , 1 ) INDEX_AMTHYDJ = IOLD2NEW( INDEX_AMTHYDJ , 1 ) INDEX_AISOPNNJ = IOLD2NEW( INDEX_AISOPNNJ , 1 ) INDEX_AGLYJ = IOLD2NEW( INDEX_AGLYJ , 1 ) END SUBROUTINE RESET_SPECIES_POINTERS END MODULE RXNS_FUNCTION ================================================ FILE: CCTM/src/MECHS/saprc07tic_ae7i_aq/SpecDef_Dep_saprc07tic_ae7i_aq.txt ================================================ !#start 2005001 !#end 2005032 #layer 1 / File [1]: DRYDEP / File [2]: WETDEP / File [3]: METCRO2D / /new species ,units ,expression !! Gas Deposition DDEP_NO2 ,kg ha-1 ,NO2[1] WDEP_NO2 ,kg ha-1 ,NO2[2] DDEP_NO ,kg ha-1 ,NO[1] WDEP_NO ,kg ha-1 ,NO[2] DDEP_NO3 ,kg ha-1 ,NO3[1] WDEP_NO3 ,kg ha-1 ,NO3[2] DDEP_FORM ,kg ha-1 ,HCHO[1] WDEP_FORM ,kg ha-1 ,HCHO[2] DDEP_H2O2 ,kg ha-1 ,HO2H[1] WDEP_H2O2 ,kg ha-1 ,HO2H[2] DDEP_N2O5 ,kg ha-1 ,N2O5[1] WDEP_N2O5 ,kg ha-1 ,N2O5[2] DDEP_HONO ,kg ha-1 ,HONO[1] WDEP_HONO ,kg ha-1 ,HONO[2] DDEP_HNO3 ,kg ha-1 ,HNO3[1] WDEP_HNO3 ,kg ha-1 ,HNO3[2] DDEP_NTR ,kg ha-1 ,ISOPND[1]+ISOPNB[1]+NIT1[1]+NISOPOOH[1]+MVKN[1] \ +MACRN[1]+ETHLN[1]+RNO3I[1]+PROPNN[1]+ISOPNN[1] \ +RNO3[1]+MTNO3[1] WDEP_NTR ,kg ha-1 ,ISOPND[2]+ISOPNB[2]+NIT1[2]+NISOPOOH[2]+MVKN[2] \ +MACRN[2]+ETHLN[2]+RNO3I[2]+PROPNN[2]+ISOPNN[2] \ +RNO3[2]+MTNO3[2] DDEP_PANT ,kg ha-1 ,PAN[1]+PAN2[1]+PBZN[1]+MAPAN[1]+IMAPAN[1] WDEP_PANT ,kg ha-1 ,PAN[2]+PAN2[2]+PBZN[2]+MAPAN[2]+IMAPAN[2] DDEP_NH3 ,kg ha-1 ,NH3[1] WDEP_NH3 ,kg ha-1 ,NH3[2] DDEP_SO2 ,kg ha-1 ,SO2[1] DDEP_O3 ,kg ha-1 ,O3[1] WDEP_O3 ,kg ha-1 ,O3[2] !! Aerosol Deposition DDEP_ANO3IJ ,kg ha-1 ,ANO3I[1] + ANO3J[1] DDEP_ANO3K ,kg ha-1 ,ANO3K[1] WDEP_ANO3IJK ,kg ha-1 ,ANO3I[2] + ANO3J[2] + ANO3K[2] DDEP_TNO3 ,kg ha-1 ,ANO3I[1] + ANO3J[1] + ANO3K[1] + 0.984*HNO3[1] + NO3[1] WDEP_TNO3 ,kg ha-1 ,ANO3I[2] + ANO3J[2] + ANO3K[2] + 0.984*HNO3[2] + NO3[2] DDEP_ANH4IJ ,kg ha-1 ,ANH4I[1] + ANH4J[1] DDEP_ANH4K ,kg ha-1 ,ANH4K[1] WDEP_ANH4IJK ,kg ha-1 ,ANH4I[2] + ANH4J[2] + ANH4K[2] DDEP_ASO4IJ ,kg ha-1 ,ASO4I[1] + ASO4J[1] DDEP_ASO4K ,kg ha-1 ,ASO4K[1] WDEP_ASO4IJK ,kg ha-1 ,ASO4I[2] + ASO4J[2] + ASO4K[2] DDEP_AECIJ ,kg ha-1 ,AECI[1] +AECJ[1] DDEP_POCIJ ,kgC ha-1 , ALVPO1I[1]/1.39 + ASVPO1I[1]/1.32 + ASVPO2I[1]/1.26 \ +ALVPO1J[1]/1.39 + ASVPO1J[1]/1.32 + ASVPO2J[1]/1.26 \ +ASVPO3J[1]/1.21 + AIVPO1J[1]/1.17 DDEP_SOCIJ ,kgC ha-1 ,ALVOO1I[1]/2.27 + ALVOO2I[1]/2.06 \ +ASVOO1I[1]/1.88 + ASVOO2I[1]/1.73 \ +AISO1J[1]/2.20 + AISO2J[1]/2.23 + AISO3J[1]/2.80 \ +ASQTJ[1]/1.52 + AORGCJ[1]/2.00 \ +AOLGBJ[1]/2.10 + AOLGAJ[1]/2.50 \ +ALVOO1J[1]/2.27+ ALVOO2J[1]/2.06+ ASVOO1J[1]/1.88 \ +ASVOO2J[1]/1.73+ ASVOO3J[1]/1.60 \ +AAVB1J[1]/2.70 + AAVB2J[1]/2.35 + AAVB3J[1]/2.17 \ +AAVB4J[1]/1.99 + APCSOJ[1] /2.00 \ +AIETETJ[1]/2.27 + AIEOSJ[1]/3.6 + ADIMJ[1]/2.07 \ +AIMGAJ[1]/2.5 + AIMOSJ[1]/4.17 \ +AMT1J[1]/1.67 + AMT2J[1]/1.67 + AMT3J[1]/1.72 \ +AMT4J[1]/1.53 + AMT5J[1]/1.57 + AMT6J[1]/1.40 \ +AMTNO3J[1]/1.9 + AISOPNNJ[1]/3.8 + AMTHYDJ[1]/1.54 \ +AGLYJ[1]/2.13 DDEP_AOCIJ ,kgC ha-1 , DDEP_APOCIJ[0]+DDEP_SOCIJ[0] ! Sodium DDEP_ANAJ ,kg ha-1 ,ANAJ[1] DDEP_ANAK ,kg ha-1 ,0.8373*ASEACAT[1]+0.0626*ASOIL[1]+0.0023*ACORS[1] DDEP_ANAJK ,kg ha-1 ,DDEP_ANAJ[0] + DDEP_ANAK[0] WDEP_ANAK ,kg ha-1 ,0.8373*ASEACAT[2]+0.0626*ASOIL[2]+0.0023*ACORS[2] WDEP_ANAJK ,kg ha-1 ,ANAJ[2] + WDEP_ANAK[0] TDEP_ANAJK ,kg ha-1 ,DDEP_ANAJK[0] + WDEP_ANAJK[0] DDEP_SSSO4J ,kg ha-1 ,0.2514*ANAJ[1] DDEP_SSSO4K ,kg ha-1 ,0.2514*DDEP_ANAK[0] WDEP_SSSO4JK ,kg ha-1 ,0.2514*ANAJ[2] + 0.2514*WDEP_ANAK[0] !! Gas + Aerosol Deposition DDEP_NHX ,kg ha-1 ,ANH4I[1] + ANH4J[1] + ANH4K[1] + 1.059*NH3[1] WDEP_NHX ,kg ha-1 ,ANH4I[2] + ANH4J[2] + ANH4K[2] + 1.059*NH3[2] WDEP_TSO4 ,kg ha-1 ,ASO4I[2] + ASO4J[2] + ASO4K[2] + 1.5*SO2[2] !Chloride DDEP_ACLJ ,kg ha-1 ,ACLJ[1] DDEP_ACLK ,kg ha-1 ,ACLK[1] DDEP_ACLJK ,kg ha-1 ,ACLJ[1] + ACLK[1] WDEP_TCL ,kg ha-1 ,0.972*HCL[2]+0.435*CLNO2[2] + ACLJ[2] + ACLK[2] TDEP_CL ,kg ha-1 ,DDEP_ACLJK[0] + WDEP_TCL[0] ! Calcium DDEP_CAJ ,kg ha-1 ,ACAJ[1] WDEP_CAJ ,kg ha-1 ,ACAJ[2] DDEP_CAK ,kg ha-1 ,0.0320*ASEACAT[1]+0.0838*ASOIL[1]+0.0562*ACORS[1] WDEP_CAK ,kg ha-1 ,0.0320*ASEACAT[2]+0.0838*ASOIL[2]+0.0562*ACORS[2] DDEP_CAJK ,kg ha-1 ,ACAJ[1]+DDEP_CAK[0] WDEP_CAJK ,kg ha-1 ,ACAJ[2]+WDEP_CAK[0] ! Iron DDEP_FEJ ,kg ha-1 ,AFEJ[1] WDEP_FEJ ,kg ha-1 ,AFEJ[2] ! Aluminum DDEP_ALJ ,kg ha-1 ,AALJ[1] WDEP_ALJ ,kg ha-1 ,AALJ[2] ! Silicon DDEP_SIJ ,kg ha-1 ,ASIJ[1] WDEP_SIJ ,kg ha-1 ,ASIJ[2] ! Titanium DDEP_TIJ ,kg ha-1 ,ATIJ[1] WDEP_TIJ ,kg ha-1 ,ATIJ[2] ! Magnesium DDEP_MGJ ,kg ha-1 ,AMGJ[1] WDEP_MGJ ,kg ha-1 ,AMGJ[2] DDEP_MGK ,kg ha-1 ,0.0997*ASEACAT[1]+0.0170*ASOIL[1]+0.0032*ACORS[1] WDEP_MGK ,kg ha-1 ,0.0997*ASEACAT[2]+0.0170*ASOIL[2]+0.0032*ACORS[2] DDEP_MGJK ,kg ha-1 ,AMGJ[1]+DDEP_MGK[0] WDEP_MGJK ,kg ha-1 ,AMGJ[2]+WDEP_MGK[0] ! Potassium DDEP_KJ ,kg ha-1 ,AKJ[1] WDEP_KJ ,kg ha-1 ,AKJ[2] DDEP_AKK ,kg ha-1 ,0.0310*ASEACAT[1]+0.0242*ASOIL[1]+0.0176*ACORS[1] WDEP_AKK ,kg ha-1 ,0.0310*ASEACAT[2]+0.0242*ASOIL[2]+0.0176*ACORS[2] DDEP_KJK ,kg ha-1 ,AKJ[1]+DDEP_AKK[0] WDEP_KJK ,kg ha-1 ,AKJ[2]+WDEP_AKK[0] ! Manganese DDEP_MNJ ,kg ha-1 ,AMNJ[1] WDEP_MNJ ,kg ha-1 ,AMNJ[2] WDEP_PNA ,kg ha-1 ,HNO4[2] DDEP_PNA ,kg ha-1 ,HNO4[1] RT ,cm ,RC[3]>=0 ? RN[3]+RC[3] : RN[3] ! Nitrogen Deposition DD_OXN_NOX ,kgN ha-1 ,0.30435*NO2[1] + 0.46667*NO[1] WD_OXN_NOX ,kgN ha-1 ,0.30435*NO2[2] + 0.46667*NO[2] DD_OXN_TNO3 ,kgN ha-1 ,0.22581*DDEP_TNO3[0] WD_OXN_TNO3 ,kgN ha-1 ,0.22581*WDEP_TNO3[0] DD_OXN_PANT ,kgN ha-1 ,0.11570*DDEP_PANT[0] WD_OXN_PANT ,kgN ha-1 ,0.11570*WDEP_PANT[0] DD_OXN_ORGN ,kgN ha-1 ,0.10770*(DDEP_NTR[0])+0.10770*ISOPNN[1] + DD_OXN_PANT[0] WD_OXN_ORGN ,kgN ha-1 ,0.10770*(WDEP_NTR[0])+0.10770*ISOPNN[2] + WD_OXN_PANT[0] DD_OXN_OTHR ,kgN ha-1 ,0.25926*N2O5[1] + 0.29787*HONO[1]+0.17720*HNO4[2]+0.1717*CLNO2[2] WD_OXN_OTHR ,kgN ha-1 ,0.25926*N2O5[2] + 0.29787*HONO[2]+0.17720*HNO4[2]+0.1717*CLNO2[2] DD_OXN_TOT ,kgN ha-1 ,DD_OXN_NOX[0] + DD_OXN_TNO3[0] + DD_OXN_ORGN[0] + DD_OXN_OTHR[0] WD_OXN_TOT ,kgN ha-1 ,WD_OXN_NOX[0] + WD_OXN_TNO3[0] + WD_OXN_ORGN[0] + WD_OXN_OTHR[0] TD_OXN_TOT ,kgN ha-1 ,DD_OXN_TOT[0] + WD_OXN_TOT[0] DD_OXN_TOTMEQ ,meqN m-2 ,7.14*DD_OXN_TOT[0] WD_OXN_TOTMEQ ,meqN m-2 ,7.14*WD_OXN_TOT[0] TD_OXN_TOTMEQ ,meqN m-2 ,DD_OXN_TOTMEQ[0] + WD_OXN_TOTMEQ[0] DD_REDN_TOT ,kgN ha-1 ,0.7777*DDEP_NHX[0] WD_REDN_TOT ,kgN ha-1 ,0.7777*WDEP_NHX[0] TD_REDN_TOT ,kgN ha-1 ,DD_REDN_TOT[0] + WD_REDN_TOT[0] DD_REDN_TOTMEQ ,meqN m-2 ,7.14*DD_REDN_TOT[0] WD_REDN_TOTMEQ ,meqN m-2 ,7.14*WD_REDN_TOT[0] TD_REDN_TOTMEQ ,meqN m-2 ,DD_REDN_TOTMEQ[0] + WD_REDN_TOTMEQ[0] DD_N_TOT ,kgN ha-1 ,DD_OXN_TOT[0] + DD_REDN_TOT[0] WD_N_TOT ,kgN ha-1 ,WD_OXN_TOT[0] + WD_REDN_TOT[0] TD_N_TOT ,kgN ha-1 ,DD_N_TOT[0] + WD_N_TOT[0] DD_N_TOTMEQ ,meqN m-2 ,DD_OXN_TOTMEQ[0] + DD_REDN_TOTMEQ[0] WD_N_TOTMEQ ,meqN m-2 ,WD_OXN_TOTMEQ[0] + WD_REDN_TOTMEQ[0] TD_N_TOTMEQ ,meqN m-2 ,DD_N_TOTMEQ[0] + WD_N_TOTMEQ[0] ! Sulfur Deposition DD_S_TOT ,kgS ha-1 ,0.5*SO2[1] + 0.33333*ASO4I[1] + 0.33333*ASO4J[1] + 0.33333*ASO4K[1] WD_S_TOT ,kgS ha-1 ,0.33333*WDEP_TSO4[0] TD_S_TOT ,kgS ha-1 ,DD_S_TOT[0] + WD_S_TOT[0] DD_S_TOTMEQ ,meqS m-2 ,6.24*DD_S_TOT[0] WD_S_TOTMEQ ,meqS m-2 ,6.24*WD_S_TOT[0] TD_S_TOTMEQ ,meqS m-2 ,DD_S_TOTMEQ[0] + WD_S_TOTMEQ[0] DD_S_SeaS ,kgS ha-1 ,0.33333*DDEP_SSSO4J[0] + 0.33333*DDEP_SSSO4K[0] WD_S_SeaS ,kgS ha-1 ,0.33333*WDEP_SSSO4JK[0] TD_S_SeaS ,kgS ha-1 ,DD_S_SeaS[0] + WD_S_SeaS[0] DD_S_SeaSMEQ ,meqS m-2 ,6.24*DD_S_SeaS[0] WD_S_SeaSMEQ ,meqS m-2 ,6.24*WD_S_SeaS[0] TD_S_SeaSMEQ ,meqS m-2 ,DD_S_SeaSMEQ[0] + WD_S_SeaSMEQ[0] ================================================ FILE: CCTM/src/MECHS/saprc07tic_ae7i_aq/SpecDef_saprc07tic_ae7i_aq.txt ================================================ !#start YYYYJJJ 010000 !#end YYYYJJJ 000000 #layer 1 / ! This Species Definition File is for Use with the COMBINE tool built for ! post-processing CMAQ output. It is compatible with CMAQv5.2. ! Date: May 12 2017 ! Output variables that begin with 'PM' represent those in which a size cut was ! applied based on modeled aerosol mode parameters. For example, PM25_NA is all ! sodium that falls below 2.5 um diameter. These 'PM' variables are used for ! comparisons at IMPROVE and CSN sites. ! Output variables that begin with 'PMAMS' represent the mass that would have ! been detected by an Aerosol Mass Spectrometer. ! Output variables beginning with 'A' (aside from AIR_DENS) represent a ! combination of aerosol species in which no size cut was applied. For example, ! ASO4IJ is the sum of i-mode and j-mode sulfate. These 'A' variables are used ! for comparisons at CASTNet sites. ! Output variables beginning with 'PMC' refer to the coarse fraction of total PM, ! computed by summing all modes and subtracting the PM2.5 fraction. These 'PMC' ! variables are used for comparisons at SEARCH sites. ! This Species Definition File is just for use with the uncoupled, offline CMAQ, ! model. If you are processing WRF-CMAQ results, a different Species Definition ! file is required. / File [1]: CMAQ conc/aconc file / File [2]: METCRO3D file / File [3]: ELMO/AELMO file / File [4]: METCRO2D file / /new species ,units ,expression !-------------------------------------------! !------------- Meteorology -----------------! !-------------------------------------------! AIR_DENS ,kg m-3 ,DENS[2] RH ,% ,100.00*RH[3] SFC_TMP ,C ,(TEMP2[4]-273.15) PBLH ,m ,PBL[4] SOL_RAD ,W m-2 ,RGRND[4] precip ,cm ,RC[4]>=0 ? RN[4]+RC[4] : RN[4] WSPD10 ,m s-1 ,WSPD10[4] WDIR10 ,deg ,WDIR10[4] !-------------------------------------------! !--------------- Gases ---------------------! !-------------------------------------------! BENZENE ,ppbV ,1000.0*BENZENE[1] CO ,ppbV ,1000.0*CO[1] ETH ,ppbV ,1000.0*ETHENE[1] ETHA ,ppbV ,1000.0*ALK1[1] FORM ,ppbV ,1000.0*HCHO[1] H2O2 ,ppbV ,1000.0*HO2H[1] HNO3 ,ppbV ,1000.0*HNO3[1] HNO3_UGM3 ,ug m-3 ,1000.0*(HNO3[1]*2.1756*DENS[2]) HONO ,ppbV ,1000.0*HONO[1] HOX ,ppbV ,1000.0*(OH[1]+HO2[1]) OH ,ppbV ,1000.0*(OH[1]) ISOP ,ppbV ,1000.0*ISOPRENE[1] N2O5 ,ppbV ,1000.0*N2O5[1] NH3 ,ppbV ,1000.0*NH3[1] NH3_UGM3 ,ug m-3 ,1000.0*(NH3[1]*0.5880*DENS[2]) NHX ,ug m-3 ,1000.0*(NH3[1]*0.5880*DENS[2])+ANH4I[1]+ANH4J[1]+ANH4K[1] NO ,ppbV ,1000.0*NO[1] NO2 ,ppbV ,1000.0*NO2[1] NOX ,ppbV ,1000.0*(NO[1]+NO2[1]) ANO3INORG_PPB ,ppbV ,(ANO3I[1]+ANO3J[1]+ANO3K[1])/(DENS[2]*(62.0/28.97)) AORGNO3_PPB ,ppbV ,(AMTNO3J[1]/231.0+AISOPNNJ[1]*2.0/226.0)/(DENS[2]/28.97) ANO3_PPB ,ppbV ,ANO3INORG_PPB[0]+AORGNO3_PPB[0] ISOPNTOT ,ppbV ,1000.0*(ISOPND[1]+ISOPNB[1]+NIT1[1]+NISOPOOH[1]+MVKN[1] \ +MACRN[1]+ETHLN[1]+RNO3I[1]+PROPNN[1]+2.0*ISOPNN[1]) ANTOT ,ppbv ,ISOPNTOT[0]+(RNO3[1]+MTNO3[1])*1000.0 NTR ,ppbV ,ISOPNTOT[0]+1000.0*(RNO3[1]+MTNO3[1]) CLNTOT ,ppbv ,1000.0*(CLNO[1]+CLONO[1]+CLNO2[1]+CLONO2[1]) PANTOT ,ppbV ,1000.0*(PAN[1]+PAN2[1]+PBZN[1]+MAPAN[1]+IMAPAN[1]) NOY_NOPM ,ppbV ,1000.0*(NO[1]+NO2[1]+NO3[1]+2*N2O5[1]+HONO[1]+HNO3[1]+HNO4[1])+ANTOT[0]+PANTOT[0]+CLNTOT[0] NOY ,ppbV ,NOY_NOPM[0]+ANO3_PPB[0] O3 ,ppbV ,1000.0*O3[1] SO2 ,ppbV ,1000.0*SO2[1] SO2_UGM3 ,ug m-3 ,1000.0*(SO2[1]*2.2118*DENS[2]) TERPTOT ,ppbV ,1000.0*(TERP[1]+APIN[1]) APIN ,ppbV ,1000.0*APIN[1] TOL ,ppbV ,1000.0*TOLUENE[1] XYL ,ppbV ,1000.0*(MXYL[1]+OXYL[1]+PXYL[1]) ALK ,ppbC ,1000.*(2.*ALK1[1]+3.*ALK2[1]+4.*ALK3[1]+5.*ALK4[1]+8.*ALK5[1]) !! Unused Gases. Presented Here for illustration. Users can uncomment !! them if they choose. !ALDX ,ppbV ,1000.0*ALDX[1] !HCHO ,ppbV ,1000.0*HCHO[1] !CLNO2 ,ppbV ,1000.0*CLNO2[1] !CLNTOT ,ppbv ,1000.0*(CLNO[1]+CLONO[1]+CLNO2[1]+CLONO2[1]) !PAN ,ppbV ,1000.0*PAN[1] !PANX ,ppbV ,1000.0*PAN2[1] !PANTOT ,ppbV ,1000.0*(PAN[1]+PAN2[1]+PBZN[1]+MAPAN[1]+IMAPAN[1]) !SULF ,ppbV ,1000.0*SULF[1] !ACIDS ,ppbC ,1000.*(3.*RCOOH[1]+2.*CCOOH[1]+HCOOH[1]) !VOC ,ppbC ,1000.*(3.*ACETONE[1]+2.*ACETYLENE[1]+3.*ACROLEIN[1]+ \ ! 4.*BACL[1]+4.*BUTADIENE13[1]+2.*CCHO[1]+7.*CRES[1]+ \ ! 2.*ETHENE[1]+2.*ETOH[1]+2*GLY[1]+HCHO[1]+4.*MEK[1]+ \ ! MEOH[1]+3.*MGLY[1]+4.*MVK[1]+5.*OLE1[1]+5.*OLE2[1]+ \ ! 6.*PRD2[1]+3.*PROPENE[1]+3.*RCHO[1]+6.0*RNO3[1])+ \ ! BIOG[0]+AROM[0]+ALK[0]+ACIDS[0] !-------------------------------------------! !--------------- Particles -----------------! !-------------------------------------------! !! Crustal Elements AFEJ ,ug m-3 ,AFEJ[1] AALJ ,ug m-3 ,AALJ[1] ASIJ ,ug m-3 ,ASIJ[1] ATIJ ,ug m-3 ,ATIJ[1] ACAJ ,ug m-3 ,ACAJ[1] AMGJ ,ug m-3 ,AMGJ[1] AKJ ,ug m-3 ,AKJ[1] AMNJ ,ug m-3 ,AMNJ[1] ASOILJ ,ug m-3 ,2.20*AALJ[1]+2.49*ASIJ[1]+1.63*ACAJ[1]+2.42*AFEJ[1]+1.94*ATIJ[1] !! Non-Crustal Inorganic Particle Species AHPLUSIJ ,umol m-3 ,PMF_HP[3] ANAK ,ug m-3 ,PMC_NA[3] AMGK ,ug m-3 ,PMC_MG[3] AKK ,ug m-3 ,PMC_K[3] ACAK ,ug m-3 ,PMC_CA[3] ACLIJ ,ug m-3 ,PMF_CL[3] AECIJ ,ug m-3 ,PMF_EC[3] ANAIJ ,ug m-3 ,PMF_NA[3] ANO3IJ ,ug m-3 ,PMF_NO3[3] ANO3K ,ug m-3 ,PMC_NO3[3] ANH4IJ ,ug m-3 ,PMF_NH4[3] ANH4K ,ug m-3 ,PMC_NH4[3] ASO4IJ ,ug m-3 ,PMF_SO4[3] ASO4K ,ug m-3 ,PMC_SO4[3] TNO3INORG ,ug m-3 ,TNO3[3] TNO3TOT ,ug m-3 ,TNO3TOT[3] !! Organic Particle Species APOCIJ ,ugC m-3 ,PMF_POC[3] APOMIJ ,ug m-3 ,PMF_POA[3] ASOCIJ ,ugC m-3 ,PMF_SOC[3] ASOMIJ ,ug m-3 ,PMF_SOA[3] AOCIJ ,ugC m-3 ,PMF_OC[3] AOMIJ ,ug m-3 ,PMF_OA[3] !!! Anthropogenic-VOC Derived Organic Aerosol AORGAJ ,ug m-3 ,PMF_ASOA[3] !!! Biogenic-VOC Derived Organic Aerosol AORGBJ ,ug m-3 ,PMF_BSOA[3] !Note to User: AGLY is assigned here to the Biogenic OA category. This will be true in ! isoprene dominated areas, but in urban areas, glyoxal emissions are likely ! anthropogenic. !!! Cloud-Processed SOA AORGCJ ,ug m-3 ,AORGCJ[1] !!! OM/OC ratios AOMOCRAT_TOT , ,PMF_OMOC[3] !! Total PM Aggregates ATOTI ,ug m-3 ,PMAIT_MASS[3] ATOTJ ,ug m-3 ,PMACC_MASS[3] ATOTK ,ug m-3 ,PMC_MASS[3] ATOTIJ ,ug m-3 ,PMF_MASS[3] ATOTIJK ,ug m-3 ,PM_MASS[3] !! Unspeciated PM including non-carbon organic mass AUNSPEC1IJ ,ug m-3 ,PMF_UN_IMPV1[3] !! Non-Carbon Organic Mass ANCOMIJ ,ug m-3 ,PMF_NCOM[3] !! Unspeciated PM excluding non-carbon organic mass AUNSPEC2IJ ,ug m-3 ,PMF_UN_IMPV2[3] !! AMS Projection of Output Concentrations PMAMS_CL ,ug m-3 ,PMAMS_CL[3] PMAMS_NH4 ,ug m-3 ,PMAMS_NH4[3] PMAMS_NO3 ,ug m-3 ,PMAMS_NO3[3] PMAMS_OA ,ug m-3 ,PMAMS_OA[3] PMAMS_SO4 ,ug m-3 ,PMAMS_SO4[3] !! PM1 Cutoff Output PM1_TOT ,ug m-3 ,PM1[3] !! Unused PM1 Species. Included Here for demonstration !PM1_EC ,ug m-3 ,PM1_EC[3] !PM1_OC ,ugC m-3 ,PM1_OC[3] !PM1_OM ,ug m-3 ,PM1_OA[3] !PM1_SO4 ,ug m-3 ,PM1_SO4[3] !PM1_CL ,ug m-3 ,PM1_CL[3] !PM1_NA ,ug m-3 ,PM1_NA[3] !PM1_MG ,ug m-3 ,PM1_MG[3] !PM1_K ,ug m-3 ,PM1_K[3] !PM1_CA ,ug m-3 ,PM1_CA[3] !PM1_NH4 ,ug m-3 ,PM1_NH4[3] !PM1_NO3 ,ug m-3 ,PM1_NO3[3] !PM1_SOIL ,ug m-3 ,PM1_SOIL[3] !PM1_UNSPEC1 ,ug m-3 ,PM1_UNSP1[3] !PM1_UNSPCRS ,ug m-3 ,PM1_UNSPCRS[3] !! PM2.5 species computed using modeled size distribution PM25_HP ,ug m-3 ,PM25_HP[3] PM25_CL ,ug m-3 ,PM25_CL[3] PM25_EC ,ug m-3 ,PM25_EC[3] PM25_NA ,ug m-3 ,PM25_NA[3] PM25_MG ,ug m-3 ,PM25_MG[3] PM25_K ,ug m-3 ,PM25_K[3] PM25_CA ,ug m-3 ,PM25_CA[3] PM25_NH4 ,ug m-3 ,PM25_NH4[3] PM25_NO3 ,ug m-3 ,PM25_NO3[3] PM25_OC ,ugC m-3 ,PM25_OC[3] PM25_OM ,ug m-3 ,PM25_OA[3] PM25_SOIL ,ug m-3 ,PM25_SOIL[3] PM25_SO4 ,ug m-3 ,PM25_SO4[3] PM25_TOT ,ug m-3 ,PM25[3] PM25_UNSPEC1 ,ug m-3 ,PM25_UNSP1[3] PM25_UNSPCRS ,ug m-3 ,PM25_UNSPCRS[3] !! Fine particle acidity (pH). pH is undefined if there is no aerosol water. !Do not trust predictions when hourly water is <0.01 ug m-3. FINEPHF will !have large negative value (-9.999E36) when pH is not to be trusted. !AH2OIJ ,ug m-3 ,AH2OI[1]+AH2OJ[1] !HPMOLAL ,mol kg-1 ,AHPLUSIJ[0]/AH2OIJ[0]*1000.0 !ACIDITYTEMP , ,-1*LOG10(HPMOLAL[0]) !FINEPHF , ,AH2OIJ[0]>0.01 ? ACIDITYTEMP[0] : -9.999E36 !! PM10.0 and Coarse-Sized Species PM10 ,ug m-3 ,PM10[3] PMC_CL ,ug m-3 ,PM25TO10_CL[3] PMC_NA ,ug m-3 ,PM25TO10_NA[3] PMC_NH4 ,ug m-3 ,PM25TO10_NH4[3] PMC_NO3 ,ug m-3 ,PM25TO10_NO3[3] PMC_SO4 ,ug m-3 ,PM25TO10_SO4[3] PMC_TOT ,ug m-3 ,PM25TO10[3] !! FRM PM Equivalent Calculation PMIJ_FRM ,ug m-3 ,PMF_FRM[3] PM25_FRM ,ug m-3 ,PM25_FRM[3] ================================================ FILE: CCTM/src/MECHS/saprc07tic_ae7i_aq/mech_saprc07tic_ae7i_aq.def ================================================ ! 01/20/2010: B. Hutzell created based on SAPRC07T Mechanism, version "C" ! from William Carter dated 12-Jan-2010 09:56. The version from Carter ! incoporates comments from CARB peer review and corrects errors ! explained in Appendix E of the SAPRC07 report. ! 1) Added species and reactions for secondary organic aerosol ! production as represented in the CMAQ AERO5 alogrithm. ! 2) Added reactive tracers for HCHO, CCHO, and ACROLEIN emissions ! 01/26/2010 B. Hutzell corrected rate constants for reactions 11, 12, 20, BR18 ! and BR19 noticed by Sharon Shearer at UC Berkeley on Jan 22, 2010 ! For reactions 11 and 12, the fall off parameter changed from &1.0 ! to &1.33. For reaction 20, the rate constant went from 1.63e-10 to ! 1.63e-10@-60. For reactions BR18 and BR19, the fall off parameter ! changed from &1.0 to &1.41. ! 11/09/2011 Y. Xie added updated isprene oxidation (OH, NO3) scheme ! 02/10/2012 B. Hutzell changed the rate constant for N2O5 and H2O termmolecular ! reactions to zero and cut the bimolecular rate constant for N2O5 and H2O ! to 1.0e-22 from 2.2e-22 based on preferences in IUPAC 2010 data sheet ! 06/07/2012 B. Hutzell corrected Reaction TR10 so product is CL not HCL ! 06/07/2012 B. Hutzell changed OH + NO2 rate constant to recommndations given ! in supplementary material for Mollner et al. (2010), Science 330, 646. ! 08/21/2012 B. Hutzell turned off NO2EX cycle to setting EX1 rate constant to zero ! Note that EXOH originally used rate constant of zero by insert a blank ! in the appropriate space. A zero has replaced the blank to remove ! ambiguities. ! 12/20/2012 H. Pye Added later generation isoprene products formed under high NOx ! conditions. Includes separation of some previously lumped species (MACO3, ! MAPAN) and inclusion of new species such as MAE and HMML. For MAE and HMML ! formation, see Kjaergaard et al. (2012), J Phys Chem A and Lin et al. ! (2012) submitted to PNAS. ! B.Hutzell 07/10/14 ! added 1) inorganic heterogeneous reactions for N2O5 and NO2, 2) oligomerization reactions for ! SOA species, excluding species derived from isoprene and 3) aging reactions for primary ! organic carbon and non-carbon aerosol species ! Golam Sarwar 12/02/14 ! -Added ozone loss representing a simplification halogen reactions chemistry over sea-water ! B.Hutzell 01/27/15 ! 1) implemented the nonaromatic changes found in the supplementary material for the paper: ! Carter and Gookyoung (2013), Development of revised SAPRC aromatics mechanisms, Atm. Env., ! vol. 77, pp 404-414, http://dx.doi.org/10.1016/j.atmosenv.2013.05.021. ! (http://www.sciencedirect.com/science/article/pii/S1352231013003646) ! a) modified reaction BR22, BR32, BR43, and IS70, the MECO3, RCO3, BZCO3, and MACO3 reactions ! with HO2 based on IUPAC (2009) recommendations for HO2 + acyl radical reactions: ! http://iupac.pole-ether.fr/htdocs/datasheets/pdf/HOx_VOC54_HO2_CH3CO3.pdf (last accessed Jan. 2015). ! b) corrected reaction BE10, ACETYLENE + NO3, by setting the temperature power for k0 to zero ! and setting temperature for kinf to -2 ! c) corrected reaction BE04, ETHENE + NO3, by setting the temperature power to zero ! d) revised GLY reactions with OH and NO3 based IUPAC (2008) recomendation that introduces a new ! peroxy radical species HCOCO3: ! http://iupac.pole-ether.fr/htdocs/datasheets/pdf/HOx_VOC16_HO_(CHO)2.pdf (last accessed Jan. 2015). ! 2) revised N2O5 + H2O heterogeneous reaction to yield HNO3 and CLNO2 mechanism based on Sarwar et al. (2014) ! Importance of tropospheric ClNO2 chemistry across the Northern Hemisphere, GRL. vol. 41, pp. 4050-4058. ! 3) changed the OH + NO2 reaction based on the recommendation of the IUPAC datasheet: ! http://iupac.pole-ether.fr/htdocs/datasheets/pdf/NOx13_HO_NO2.pdf (last accessed Jan. 2015). ! 4) removed species NO2EX, excited NO2, and its reactions ! 01/29/2015 H. Pye ! 1) updated isoprene nitrate reaction rates with OH, NO, O3 following ! Lee et al. J. Phys. Chem. A (2014) dx.doi.org/10.1021/jp4107603. ! 2) Added isomerization of MACR+OH peroxy radical (addition channel) following ! Crounse et al. J. Phys. Chem. A. (2012) http://pubs.acs.org/doi/abs/10.1021/jp211560u. ! 3) Minor update to MACR+OH peroxy radical product yields following Crounse et al. ! -MACROO (product from addition channel): ~43-48% of MACR oxidation is addition ! to external olefinic carbon, ~0-9% is addition to internal olefinic carbon ! -IMACO3 (product from abstraction channel leading to MPAN): ~45-50% of MACR oxidation ! 04-06/2015 H. Pye Retained TERP (monoterpene) nitrate species identity ! by renaming RNO3, zRNO3 to MTNO3, zMTNO3 in ! monoterpene reaction. APIN does not form SOA, so its RNO3 was not renamed. ! Reclassified ROOH from TERP+NO3+HO2 as MTNO3 (it has both -OOH and -ONO2) ! MTNO3 is semivolatile and forms SOA via partitioning ! 04/21/2015 H. Pye Updated chemistry to track isoprene nitrate aerosol precursors: ! 1) Renamed PROPNNB from NIT1NO3OOA (from ISOPRENE+NO3+NO3 ) ! to PROPNN where PROPNN refers to isoprene nitrates with only ONE nitrate functional group ! 2) PROPNNB from ISOPRENE+NO3,+NO3 leading to dinitrates renamed ISOPNN (C5O9N2H10, MW=226 g/mol). ! 3) PROPNNB from ISOPRENE+NO3,+OH with one nitrate and one OH named PROPNN ! 4) Nitrate from ISOPRENE+NO3,+O3 is relabeled PROPNN ! 5) ISOPNN is semivolatile and forms SOA via partitioning ! See Rollins et al. 2009 ACP for info on second generation isoprene nitrates. ! 04-06/2015 H. Pye Added hydrolysis of particle-phase nitrates (AMTNO3, AISOPNN) with 3 hour lifetime. ! 06/2015 H. Pye Added uptake of GLY and MGLY to particles to form SOA ! 07/2015 H. Pye Corrected NO2, XC, and XN in MTNO3 forming reactions. See Pye et al. 2015 in prep. ! 07/2015 H. Pye All updates for saprc07tic-ae6i v5.1 documented ! in Pye et al. in prep for ES&T 2015 ! 10/19/15 B.Hutzell: Renamed ACROLEIN_PRIMARY and TRIMETH_BENZ124 to ACRO_PRIMARY and TMBENZ124 for ! DDM compliance ! ! 09/15/2017 G. Sarwar: Removed the duplicate heterogeneous reaction of N2O5: ! ! 07/16/2018 H Pye created saprc07tic_ae7i from saprc07tic_ae6i ! ! 03-04-21 G.Sarwar: updated SAPRC07TIC_AE7I_AQ ELIMINATE = XN; XC; END ELIMINATE REACTIONS [CM] = <1> NO2 = NO + O3P # 1.0/; <2> O3P + O2 + M = O3 # 5.68e-34^-2.60; <3> O3P + O3 = # 8.00e-12@2060; <4> O3P + NO = NO2 # 9.00e-32^-1.50&3.00e-11&0.60&1.0; <5> O3P + NO2 = NO # 5.50e-12@-188; <6> O3P + NO2 = NO3 # 2.50e-31^-1.80&2.20e-11^-0.70&0.60&1.0; <7> O3 + NO = NO2 # 3.00e-12@1500; <8> O3 + NO2 = NO3 # 1.40e-13@2470; <9> NO + NO3 = 2*NO2 # 1.80e-11@-110; <10> NO + NO + O2 = 2*NO2 # 3.30e-39@-530; <11> NO2 + NO3 = N2O5 # 3.60e-30^-4.10&1.90e-12^0.20&0.35&1.33; <12> N2O5 = NO2 + NO3 # 1.30e-03^-3.50@11000&9.70e+14^0.10@11080&0.35&1.33; <13> N2O5 + H2O = 2*HNO3 # 1.00e-22; <14> N2O5 + H2O + H2O = 2*HNO3 # 0.00e+00; !<14> N2O5 + H2O + H2O = 2*HNO3 # 1.80e-39; <15> NO2 + NO3 = NO + NO2 # 4.50e-14@1260; <16> NO3 = NO # 1.0/; <17> NO3 = NO2 + O3P # 1.0/; <18> O3 = O1D # 1.0/; <19> O3 = O3P # 1.0/; <20> O1D + H2O = 2*OH # 1.63e-10@-60; <21> O1D + M = O3P # 2.38e-11@-96; <22> OH + NO = HONO # 7.00e-31^-2.60&3.60e-11^-0.10&0.60&1.0; <23> HONO = OH + NO # 1.0/; <24> OH + HONO = NO2 # 2.50e-12@-260; <25> OH + NO2 = HNO3 # 3.2e-30^-4.50&3.0e-11&0.41&1.24; <26> OH + NO3 = HO2 + NO2 # 2.00e-11; <27> OH + HNO3 = NO3 %2 # 2.40e-14@-460&2.70e-17@-2199&6.50e-34@-1335; <28> HNO3 = OH + NO2 # 1.0/; <29> OH + CO = HO2 + CO2 %3 # 1.44e-13@0&3.43e-33@0; <30> OH + O3 = HO2 # 1.70e-12@940; <31> HO2 + NO = OH + NO2 # 3.60e-12@-270; <32> HO2 + NO2 = HNO4 # 2.00e-31^-3.40&2.90e-12^-1.10&0.60&1.0; <33> HNO4 = HO2 + NO2 # 3.72e-05^-2.40@10650&5.42e+15^-2.30@11170&0.60&1.0; <34> HNO4 = 0.61*HO2 + 0.61*NO2 + 0.39*OH + 0.39*NO3 # 1.0/; <35> HNO4 + OH = NO2 # 1.30e-12@-380; <36> HO2 + O3 = OH # 2.03e-16^4.57@-693; <37> HO2 + HO2 = HO2H %3 # 2.20e-13@-600&1.90e-33@-980; <38> HO2 + HO2 + H2O = HO2H %3 # 3.08e-34@-2800&2.66e-54@-3180; <39> NO3 + HO2 = 0.8*OH + 0.8*NO2 + 0.2*HNO3 # 4.00e-12; <40> NO3 + NO3 = 2*NO2 # 8.50e-13@2450; <41> HO2H = 2*OH # 1.0/; <42> HO2H + OH = HO2 # 1.80e-12; <43> OH + HO2 = # 4.80e-11@-250; <44> OH + SO2 = HO2 + SULF + SULRXN # 3.30e-31^-4.30&1.60e-12&0.60&1.0; <45> OH + H2 = HO2 # 7.70e-12@2100; MEO2 + NO = NO2 + HCHO + HO2 # 2.30e-12@-360; MEO2 + HO2 = COOH # 3.46e-13^0.36@-780; MEO2 + HO2 = HCHO # 3.34e-14^-3.53@-780; MEO2 + NO3 = HCHO + HO2 + NO2 # 1.30e-12; MEO2 + MEO2 = MEOH + HCHO # 6.39e-14^-1.80@-365; MEO2 + MEO2 = 2*HCHO + 2*HO2 # 7.40e-13@520; RO2C + NO = NO2 # 2.60e-12@-380; RO2C + HO2 = # 3.80e-13@-900; RO2C + NO3 = NO2 # 2.30e-12; RO2C + MEO2 = 0.5*HO2 + 0.75*HCHO + 0.25*MEOH # 2.00e-13; RO2C + RO2C = # 3.50e-14; RO2XC + NO = XN # 1.0*K; RO2XC + HO2 = # 1.0*K; RO2XC + NO3 = NO2 # 1.0*K; RO2XC + MEO2 = 0.5*HO2 + 0.75*HCHO + 0.25*MEOH # 1.0*K; RO2XC + RO2C = # 1.0*K; RO2XC + RO2XC = # 1.0*K; MECO3 + NO2 = PAN # 2.70e-28^-7.10&1.21e-11^-0.90&0.30&1.41; PAN = MECO3 + NO2 # 4.90e-03@12100&4.00e+16@13600&0.30&1.41; PAN = 0.6*MECO3 + 0.6*NO2 + 0.4*MEO2 + 0.4*CO2 + 0.4*NO3 # 1.0/; MECO3 + NO = MEO2 + CO2 + NO2 # 7.50e-12@-290; !revised acyl peroxy reaction with HO2 but splitting organic acid into two parts MECO3 + HO2 = 0.105*CCOOOH + 0.045*CCOOH + 0.15*O3 + 0.44*OH + 0.44*MEO2 + 0.44*CO2 # 5.20e-13@-980; MECO3 + NO3 = MEO2 + CO2 + NO2 # 1.0*K; MECO3 + MEO2 = 0.1*CCOOH + 0.1*HCHO + 0.9*HCHO + 0.9*HO2 + 0.9*MEO2 + 0.9*CO2 # 2.00e-12@-500; MECO3 + RO2C = MEO2 + CO2 # 4.40e-13@-1070; MECO3 + RO2XC = MEO2 + CO2 # 1.0*K; MECO3 + MECO3 = 2*MEO2 + 2*CO2 # 2.90e-12@-500; RCO3 + NO2 = PAN2 # 1.21e-11^-1.07@0; PAN2 = RCO3 + NO2 # 8.30e+16@13940; PAN2 = 0.6*RCO3 + 0.6*NO2 + 0.4*RO2C + 0.4*xHO2 + 0.4*yROOH + 0.4*xCCHO + 0.4*CO2 + 0.4*NO3 # 1.0/; RCO3 + NO = NO2 + RO2C + xHO2 + yROOH + xCCHO + CO2 # 6.70e-12@-340; !revised acyl peroxy reaction with HO2 but splitting organic acid into two parts RCO3 + HO2 = 0.3075*RCOOOH + .1025*RCOOH + 0.15*O3 + 0.44*OH + 0.44*xHO2 + 0.44*RO2C + 0.44*CO2 + 0.44*xCCHO + 0.44*yROOH # 1.0*K; RCO3 + NO3 = NO2 + RO2C + xHO2 + yROOH + xCCHO + CO2 # 1.0*K; RCO3 + MEO2 = HCHO + HO2 + RO2C + xHO2 + xCCHO + yROOH + CO2 # 1.0*K; RCO3 + RO2C = RO2C + xHO2 + xCCHO + yROOH + CO2 # 1.0*K; RCO3 + RO2XC = RO2C + xHO2 + xCCHO + yROOH + CO2 # 1.0*K; RCO3 + MECO3 = 2*CO2 + MEO2 + RO2C + xHO2 + yROOH + xCCHO # 1.0*K; RCO3 + RCO3 = 2*RO2C + 2*xHO2 + 2*xCCHO + 2*yROOH + 2*CO2 # 1.0*K; BZCO3 + NO2 = PBZN # 1.37e-11; PBZN = BZCO3 + NO2 # 7.90e+16@14000; PBZN = 0.6*BZCO3 + 0.6*NO2 + 0.4*CO2 + 0.4*BZO + 0.4*RO2C + 0.4*NO3 # 1.0/; BZCO3 + NO = NO2 + CO2 + BZO + RO2C # 1.0*K; !revised acyl peroxy reaction with HO2 but splitting organic acid into two parts BZCO3 + HO2 = .3075*RCOOOH + 0.1025*RCOOH + 0.15*O3 + 0.44*OH + 0.44*BZO + 0.44*RO2C + 0.44*CO2 # 1.0*K; BZCO3 + NO3 = NO2 + CO2 + BZO + RO2C # 1.0*K; BZCO3 + MEO2 = HCHO + HO2 + RO2C + BZO + CO2 # 1.0*K; BZCO3 + RO2C = RO2C + BZO + CO2 # 1.0*K; BZCO3 + RO2XC = RO2C + BZO + CO2 # 1.0*K; BZCO3 + MECO3 = 2*CO2 + MEO2 + BZO + RO2C # 1.0*K; BZCO3 + RCO3 = 2*CO2 + RO2C + xHO2 + yROOH + xCCHO + BZO + RO2C # 1.0*K; BZCO3 + BZCO3 = 2*BZO + 2*RO2C + 2*CO2 # 1.0*K; MACO3 + NO2 = MAPAN # 1.0*K; MAPAN = MACO3 + NO2 # 1.60e+16@13486; MAPAN = 0.6*MACO3 + 0.6*NO2 + 0.4*CO2 + 0.4*HCHO + 0.4*MECO3 + 0.4*NO3 # 1.0/; TBUO + NO2 = RNO3 - 2*XC # 2.40e-11; TBUO = ACETONE + MEO2 # 7.50e+14@8152; BZO + NO2 = NPHE # 2.30e-11@-150; BZO + HO2 = CRES - 1*XC # 1.0*K; BZO = CRES + RO2C + xHO2 - 1*XC # 1.00e-03; xHO2 + NO = NO + HO2 # 1.0*K; xHO2 + HO2 = HO2 # 1.0*K; xHO2 + NO3 = NO3 + HO2 # 1.0*K; xHO2 + MEO2 = MEO2 + 0.5*HO2 # 1.0*K; xHO2 + RO2C = RO2C + 0.5*HO2 # 1.0*K; xHO2 + RO2XC = RO2XC + 0.5*HO2 # 1.0*K; xHO2 + MECO3 = MECO3 + HO2 # 1.0*K; xHO2 + RCO3 = RCO3 + HO2 # 1.0*K; xHO2 + BZCO3 = BZCO3 + HO2 # 1.0*K; xHO2 + MACO3 = MACO3 + HO2 # 1.0*K; xOH + NO = NO + OH # 1.0*K; xOH + HO2 = HO2 # 1.0*K; xOH + NO3 = NO3 + OH # 1.0*K; xOH + MEO2 = MEO2 + 0.5*OH # 1.0*K; xOH + RO2C = RO2C + 0.5*OH # 1.0*K; xOH + RO2XC = RO2XC + 0.5*OH # 1.0*K; xOH + MECO3 = MECO3 + OH # 1.0*K; xOH + RCO3 = RCO3 + OH # 1.0*K; xOH + BZCO3 = BZCO3 + OH # 1.0*K; xOH + MACO3 = MACO3 + OH # 1.0*K; xNO2 + NO = NO + NO2 # 1.0*K; xNO2 + HO2 = HO2 + XN # 1.0*K; xNO2 + NO3 = NO3 + NO2 # 1.0*K; xNO2 + MEO2 = MEO2 + 0.5*NO2 + 0.5*XN # 1.0*K; xNO2 + RO2C = RO2C + 0.5*NO2 + 0.5*XN # 1.0*K; xNO2 + RO2XC = RO2XC + 0.5*NO2 + 0.5*XN # 1.0*K; xNO2 + MECO3 = MECO3 + NO2 # 1.0*K; xNO2 + RCO3 = RCO3 + NO2 # 1.0*K; xNO2 + BZCO3 = BZCO3 + NO2 # 1.0*K; xNO2 + MACO3 = MACO3 + NO2 # 1.0*K; xMEO2 + NO = NO + MEO2 # 1.0*K; xMEO2 + HO2 = HO2 + XC # 1.0*K; xMEO2 + NO3 = NO3 + MEO2 # 1.0*K; xMEO2 + MEO2 = MEO2 + 0.5*MEO2 + 0.5*XC # 1.0*K; xMEO2 + RO2C = RO2C + 0.5*MEO2 + 0.5*XC # 1.0*K; xMEO2 + RO2XC = RO2XC + 0.5*MEO2 + 0.5*XC # 1.0*K; xMEO2 + MECO3 = MECO3 + MEO2 # 1.0*K; xMEO2 + RCO3 = RCO3 + MEO2 # 1.0*K; xMEO2 + BZCO3 = BZCO3 + MEO2 # 1.0*K; xMEO2 + MACO3 = MACO3 + MEO2 # 1.0*K; xMECO3 + NO = NO + MECO3 # 1.0*K; xMECO3 + HO2 = HO2 + 2*XC # 1.0*K; xMECO3 + NO3 = NO3 + MECO3 # 1.0*K; xMECO3 + MEO2 = MEO2 + 0.5*MECO3 + XC # 1.0*K; xMECO3 + RO2C = RO2C + 0.5*MECO3 + XC # 1.0*K; xMECO3 + RO2XC = RO2XC + 0.5*MECO3 + XC # 1.0*K; xMECO3 + MECO3 = MECO3 + MECO3 # 1.0*K; xMECO3 + RCO3 = RCO3 + MECO3 # 1.0*K; xMECO3 + BZCO3 = BZCO3 + MECO3 # 1.0*K; xMECO3 + MACO3 = MACO3 + MECO3 # 1.0*K; xRCO3 + NO = NO + RCO3 # 1.0*K; xRCO3 + HO2 = HO2 + 3*XC # 1.0*K; xRCO3 + NO3 = NO3 + RCO3 # 1.0*K; xRCO3 + MEO2 = MEO2 + 0.5*RCO3 + 1.5*XC # 1.0*K; xRCO3 + RO2C = RO2C + 0.5*RCO3 + 1.5*XC # 1.0*K; xRCO3 + RO2XC = RO2XC + 0.5*RCO3 + 1.5*XC # 1.0*K; xRCO3 + MECO3 = MECO3 + RCO3 # 1.0*K; xRCO3 + RCO3 = RCO3 + RCO3 # 1.0*K; xRCO3 + BZCO3 = BZCO3 + RCO3 # 1.0*K; xRCO3 + MACO3 = MACO3 + RCO3 # 1.0*K; xMACO3 + NO = NO + MACO3 # 1.0*K; xMACO3 + HO2 = HO2 + 4*XC # 1.0*K; xMACO3 + NO3 = NO3 + MACO3 # 1.0*K; xMACO3 + MEO2 = MEO2 + 0.5*MACO3 + 2*XC # 1.0*K; xMACO3 + RO2C = RO2C + 0.5*MACO3 + 2*XC # 1.0*K; xMACO3 + RO2XC = RO2XC + 0.5*MACO3 + 2*XC # 1.0*K; xMACO3 + MECO3 = MECO3 + MACO3 # 1.0*K; xMACO3 + RCO3 = RCO3 + MACO3 # 1.0*K; xMACO3 + BZCO3 = BZCO3 + MACO3 # 1.0*K; xMACO3 + MACO3 = MACO3 + MACO3 # 1.0*K; xTBUO + NO = NO + TBUO # 1.0*K; xTBUO + HO2 = HO2 + 4*XC # 1.0*K; xTBUO + NO3 = NO3 + TBUO # 1.0*K; xTBUO + MEO2 = MEO2 + 0.5*TBUO + 2*XC # 1.0*K; xTBUO + RO2C = RO2C + 0.5*TBUO + 2*XC # 1.0*K; xTBUO + RO2XC = RO2XC + 0.5*TBUO + 2*XC # 1.0*K; xTBUO + MECO3 = MECO3 + TBUO # 1.0*K; xTBUO + RCO3 = RCO3 + TBUO # 1.0*K; xTBUO + BZCO3 = BZCO3 + TBUO # 1.0*K; xTBUO + MACO3 = MACO3 + TBUO # 1.0*K; xCO + NO = NO + CO # 1.0*K; xCO + HO2 = HO2 + XC # 1.0*K; xCO + NO3 = NO3 + CO # 1.0*K; xCO + MEO2 = MEO2 + 0.5*CO + 0.5*XC # 1.0*K; xCO + RO2C = RO2C + 0.5*CO + 0.5*XC # 1.0*K; xCO + RO2XC = RO2XC + 0.5*CO + 0.5*XC # 1.0*K; xCO + MECO3 = MECO3 + CO # 1.0*K; xCO + RCO3 = RCO3 + CO # 1.0*K; xCO + BZCO3 = BZCO3 + CO # 1.0*K; xCO + MACO3 = MACO3 + CO # 1.0*K; HCHO = 2*HO2 + CO # 1.0/; HCHO = CO # 1.0/; HCHO + OH = HO2 + CO # 5.40e-12@-135; HCHO + NO3 = HNO3 + HO2 + CO # 2.00e-12@2431; CCHO + OH = MECO3 # 4.40e-12@-365; CCHO = CO + HO2 + MEO2 # 1.0/; CCHO + NO3 = HNO3 + MECO3 # 1.40e-12@1860; RCHO + OH = 0.965*RCO3 + 0.035*RO2C + 0.035*xHO2 + 0.035*xCO + 0.035*xCCHO + 0.035*yROOH # 5.10e-12@-405; RCHO = RO2C + xHO2 + yROOH + xCCHO + CO + HO2 # 1.0/; RCHO + NO3 = HNO3 + RCO3 # 1.40e-12@1601; ACETONE + OH = RO2C + xMECO3 + xHCHO + yROOH # 4.56e-14^3.65@-429; ACETONE = 0.62*MECO3 + 1.38*MEO2 + 0.38*CO # 5.00e-1/; MEK + OH = 0.967*RO2C + 0.039*RO2XC + 0.039*zRNO3 + 0.376*xHO2 + 0.51*xMECO3 + 0.074*xRCO3 + 0.088*xHCHO + 0.504*xCCHO + 0.376*xRCHO + yROOH + 0.3*XC # 1.30e-12^2.00@25; MEK = MECO3 + RO2C + xHO2 + xCCHO + yROOH # 1.75e-1/; MEOH + OH = HCHO + HO2 # 2.85e-12@345; HCOOH + OH = HO2 + CO2 # 4.50e-13; CCOOH + OH = 0.509*MEO2 + 0.491*RO2C + 0.509*CO2 + 0.491*xHO2 + 0.491*xMGLY + 0.491*yROOH - 0.491*XC # 4.20e-14@-855; RCOOH + OH = RO2C + xHO2 + 0.143*CO2 + 0.142*xCCHO + 0.4*xRCHO + 0.457*xBACL + yROOH - 0.455*XC # 1.20e-12; COOH + OH = 0.3*HCHO + 0.3*OH + 0.7*MEO2 # 3.80e-12@-200; COOH = HCHO + HO2 + OH # 1.0/; ROOH + OH = 0.744*OH + 0.251*RO2C + 0.004*RO2XC + 0.004*zRNO3 + 0.744*RCHO + 0.239*xHO2 + 0.012*xOH + 0.012*xHCHO + 0.012*xCCHO + 0.205*xRCHO + 0.034*xPROD2 + 0.256*yROOH - 0.115*XC # 2.50e-11; ROOH = RCHO + HO2 + OH # 1.0/; R6OOH + OH = 0.84*OH + 0.222*RO2C + 0.029*RO2XC + 0.029*zRNO3 + 0.84*PRD2 + 0.09*xHO2 + 0.041*xOH + 0.02*xCCHO + 0.075*xRCHO + 0.084*xPROD2 + 0.16*yROOH + 0.02*XC # 5.60e-11; R6OOH = OH + 0.142*HO2 + 0.782*RO2C + 0.077*RO2XC + 0.077*zRNO3 + 0.085*RCHO + 0.142*PRD2 + 0.782*xHO2 + 0.026*xCCHO + 0.058*xRCHO + 0.698*xPROD2 + 0.858*yR6OOH + 0.017*XC # 1.0/; RAOOH + OH = 0.139*OH + 0.148*HO2 + 0.589*RO2C + 0.124*RO2XC + 0.124*zRNO3 + 0.074*PRD2 + 0.147*MGLY + 0.139*IPRD + 0.565*xHO2 + 0.024*xOH + 0.448*xRCHO + 0.026*xGLY + 0.03*xMEK + 0.252*xMGLY + 0.073*xAFG1 + 0.073*xAFG2 + 0.713*yR6OOH + 2.674*XC # 1.41e-10; RAOOH = OH + HO2 + 0.5*GLY + 0.5*MGLY + 0.5*AFG1 + 0.5*AFG2 + 0.5*XC # 1.0/; GLY = 2*CO + 2*HO2 # 1.0/; GLY = HCHO + CO # 1.0/; ! changed GLY reactions with OH and NO3 GLY + OH = 0.70*HO2 + 1.40*CO + 0.3*HCOCO3 # 3.10e-12@-342.2; GLY + NO3 = HNO3 + 0.70*HO2 + 1.40*CO + 0.3*HCOCO3 # 2.80e-12@2390; MGLY = HO2 + CO + MECO3 # 1.0/; MGLY + OH = CO + MECO3 # 1.50e-11; MGLY + NO3 = HNO3 + CO + MECO3 # 1.40e-12@1895; BACL = 2*MECO3 # 1.0/; CRES + OH = 0.2*BZO + 0.8*RO2C + 0.8*xHO2 + 0.8*yR6OOH + 0.25*xMGLY + 5.05*XC # 1.70e-12@-950; CRES + NO3 = HNO3 + BZO + XC # 1.40e-11; NPHE + OH = BZO + XN # 3.50e-12; NPHE = HONO + 6*XC # 1.50e-3/; NPHE = 6*XC + XN # 1.50e-2/; BALD + OH = BZCO3 # 1.20e-11; BALD = 7*XC # 6.00e-2/; BALD + NO3 = HNO3 + BZCO3 # 1.34e-12@1860; AFG1 + OH = 0.217*MACO3 + 0.723*RO2C + 0.06*RO2XC + 0.06*zRNO3 + 0.521*xHO2 + 0.201*xMECO3 + 0.334*xCO + 0.407*xRCHO + 0.129*xMEK + 0.107*xGLY + 0.267*xMGLY + 0.783*yR6OOH + 0.284*XC # 7.40e-11; AFG1 + O3 = 0.826*OH + 0.522*HO2 + 0.652*RO2C + 0.522*CO + 0.174*CO2 + 0.432*GLY + 0.568*MGLY + 0.652*xRCO3 + 0.652*xHCHO + 0.652*yR6OOH - 0.872*XC # 9.66e-18; AFG1 = 1.023*HO2 + 0.173*MEO2 + 0.305*MECO3 + 0.5*MACO3 + 0.695*CO + 0.195*GLY + 0.305*MGLY + 0.217*XC # 1.0/; AFG2 + OH = 0.217*MACO3 + 0.723*RO2C + 0.06*RO2XC + 0.06*zRNO3 + 0.521*xHO2 + 0.201*xMECO3 + 0.334*xCO + 0.407*xRCHO + 0.129*xMEK + 0.107*xGLY + 0.267*xMGLY + 0.783*yR6OOH + 0.284*XC # 7.40e-11; AFG2 + O3 = 0.826*OH + 0.522*HO2 + 0.652*RO2C + 0.522*CO + 0.174*CO2 + 0.432*GLY + 0.568*MGLY + 0.652*xRCO3 + 0.652*xHCHO + 0.652*yR6OOH - 0.872*XC # 9.66e-18; AFG2 = PRD2 - 1*XC # 1.0/; AFG3 + OH = 0.206*MACO3 + 0.733*RO2C + 0.117*RO2XC + 0.117*zRNO3 + 0.561*xHO2 + 0.117*xMECO3 + 0.114*xCO + 0.274*xGLY + 0.153*xMGLY + 0.019*xBACL + 0.195*xAFG1 + 0.195*xAFG2 + 0.231*xIPRD + 0.794*yR6OOH + 0.938*XC # 9.35e-11; AFG3 + O3 = 0.471*OH + 0.554*HO2 + 0.013*MECO3 + 0.258*RO2C + 0.007*RO2XC + 0.007*zRNO3 + 0.58*CO + 0.19*CO2 + 0.366*GLY + 0.184*MGLY + 0.35*AFG1 + 0.35*AFG2 + 0.139*AFG3 + 0.003*MACR + 0.004*MVK + 0.003*IPRD + 0.095*xHO2 + 0.163*xRCO3 + 0.163*xHCHO + 0.095*xMGLY + 0.264*yR6OOH - 0.575*XC # 1.43e-17; MACR + O3 = 0.208*OH + 0.108*HO2 + 0.1*RO2C + 0.45*CO + 0.117*CO2 + 0.1*HCHO + 0.9*MGLY + 0.333*HCOOH + 0.1*xRCO3 + 0.1*xHCHO + 0.1*yROOH - 0.1*XC # 1.40e-15@2100; MACR + O3P = RCHO + XC # 6.34e-12; MVK + O3 = 0.164*OH + 0.064*HO2 + 0.05*RO2C + 0.05*xHO2 + 0.475*CO + 0.124*CO2 + 0.05*HCHO + 0.95*MGLY + 0.351*HCOOH + 0.05*xRCO3 + 0.05*xHCHO + 0.05*yROOH - 0.05*XC # 8.50e-16@1520; MVK + O3P = 0.45*RCHO + 0.55*MEK + 0.45*XC # 4.32e-12; MVK = 0.4*MEO2 + 0.6*CO + 0.6*PRD2 + 0.4*MACO3 - 2.2*XC # 1.0/; IPRD + OH = 0.289*MACO3 + 0.67*RO2C + 0.67*xHO2 + 0.041*RO2XC + 0.041*zRNO3 + 0.336*xCO + 0.055*xHCHO + 0.129*xHOCCHO + 0.013*xRCHO + 0.15*xMEK + 0.332*xPROD2 + 0.15*xGLY + 0.174*xMGLY + 0.711*yR6OOH - 0.504*XC # 6.19e-11; IPRD + O3 = 0.285*OH + 0.4*HO2 + 0.048*RO2C + 0.048*xRCO3 + 0.498*CO + 0.14*CO2 + 0.124*HCHO + 0.21*MEK + 0.023*GLY + 0.742*MGLY + 0.1*HCOOH + 0.372*RCOOH + 0.047*xHOCCHO + 0.001*xHCHO + 0.048*yR6OOH - 0.329*XC # 4.18e-18; IPRD + NO3 = 0.15*MACO3 + 0.15*HNO3 + 0.799*RO2C + 0.799*xHO2 + 0.051*RO2XC + 0.051*zRNO3 + 0.572*xCO + 0.227*xHCHO + 0.218*xRCHO + 0.008*xMGLY + 0.572*xRNO3 + 0.85*yR6OOH + 0.278*XN - 0.815*XC # 1.00e-13; IPRD = 1.233*HO2 + 0.467*MECO3 + 0.3*RCO3 + 1.233*CO + 0.3*HCHO + 0.467*HOCCHO + 0.233*MEK - 0.233*XC # 1.0/; PRD2 + OH = 0.472*HO2 + 0.379*xHO2 + 0.029*xMECO3 + 0.049*xRCO3 + 0.473*RO2C + 0.071*RO2XC + 0.071*zRNO3 + 0.002*HCHO + 0.211*xHCHO + 0.001*CCHO + 0.083*xCCHO + 0.143*RCHO + 0.402*xRCHO + 0.115*xMEK + 0.329*PRD2 + 0.007*xPROD2 + 0.528*yR6OOH + 0.877*XC # 1.55e-11; PRD2 = 0.913*xHO2 + 0.4*MECO3 + 0.6*RCO3 + 1.59*RO2C + 0.087*RO2XC + 0.087*zRNO3 + 0.303*xHCHO + 0.163*xCCHO + 0.78*xRCHO + yR6OOH - 0.091*XC # 4.86e-3/; RNO3 + OH = 0.189*HO2 + 0.305*xHO2 + 0.019*NO2 + 0.313*xNO2 + 0.976*RO2C + 0.175*RO2XC + 0.175*zRNO3 + 0.011*xHCHO + 0.429*xCCHO + 0.001*RCHO + 0.036*xRCHO + 0.004*xACETONE + 0.01*MEK + 0.17*xMEK + 0.008*PRD2 + 0.031*xPROD2 + 0.189*RNO3 + 0.305*xRNO3 + 0.157*yROOH + 0.636*yR6OOH + 0.174*XN + 0.04*XC # 7.20e-12; RNO3 = 0.344*HO2 + 0.554*xHO2 + NO2 + 0.721*RO2C + 0.102*RO2XC + 0.102*zRNO3 + 0.074*HCHO + 0.061*xHCHO + 0.214*CCHO + 0.23*xCCHO + 0.074*RCHO + 0.063*xRCHO + 0.008*xACETONE + 0.124*MEK + 0.083*xMEK + 0.19*PRD2 + 0.261*xPROD2 + 0.066*yROOH + 0.591*yR6OOH + 0.396*XC # 1.0/; HOCCHO = CO + 2*HO2 + HCHO # 1.0/; HOCCHO + NO3 = HNO3 + MECO3 # 1.0*K; ACROLEIN + OH = 0.25*xHO2 + 0.75*MACO3 + 0.25*RO2C + 0.167*xCO + 0.083*xHCHO + 0.167*xCCHO + 0.083*xGLY + 0.25*yROOH - 0.75*XC # 1.99e-11; ACROLEIN + O3 = 0.83*HO2 + 0.33*OH + 1.005*CO + 0.31*CO2 + 0.5*HCHO + 0.185*HCOOH + 0.5*GLY # 1.40e-15@2528; ACROLEIN + NO3 = 0.031*xHO2 + 0.967*MACO3 + 0.031*RO2C + 0.002*RO2XC + 0.002*zRNO3 + 0.967*HNO3 + 0.031*xCO + 0.031*xRNO3 + 0.033*yROOH + 0.002*XN - 1.097*XC # 1.18e-15; ACROLEIN + O3P = RCHO # 2.37e-12; ACROLEIN = 1.066*HO2 + 0.178*OH + 0.234*MEO2 + 0.33*MACO3 + 1.188*CO + 0.102*CO2 + 0.34*HCHO + 0.05*CCOOH - 0.284*XC # 1.0/; CCOOOH + OH = 0.98*MECO3 + 0.02*RO2C + 0.02*CO2 + 0.02*xOH + 0.02*xHCHO + 0.02*yROOH # 5.28e-12; CCOOOH = MEO2 + CO2 + OH # 1.0/; RCOOOH + OH = 0.806*RCO3 + 0.194*RO2C + 0.194*yROOH + 0.11*CO2 + 0.11*xOH + 0.11*xCCHO + 0.084*xHO2 + 0.084*xRCHO # 6.42e-12; RCOOOH = xHO2 + xCCHO + yROOH + CO2 + OH # 1.0/; !added reactions for HCOCO3, the Peroxy radical from H-abstraction of glyoxal, GLY HCOCO3 + NO = HO2 + CO + CO2 + NO2 # 1.0*K; HCOCO3 + NO2 = HO2 + CO + CO2 + NO3 # 1.0*K; HCOCO3 + HO2 = 0.44*OH + 0.44*HO2 + 0.44*CO + 0.44*CO2 + 0.56*GLY + 0.15*O3 # 1.0*K; xHCHO + NO = NO + HCHO # 1.0*K; xHCHO + HO2 = HO2 + XC # 1.0*K; xHCHO + NO3 = NO3 + HCHO # 1.0*K; xHCHO + MEO2 = MEO2 + 0.5*HCHO + 0.5*XC # 1.0*K; xHCHO + RO2C = RO2C + 0.5*HCHO + 0.5*XC # 1.0*K; xHCHO + RO2XC = RO2XC + 0.5*HCHO + 0.5*XC # 1.0*K; xHCHO + MECO3 = MECO3 + HCHO # 1.0*K; xHCHO + RCO3 = RCO3 + HCHO # 1.0*K; xHCHO + BZCO3 = BZCO3 + HCHO # 1.0*K; xHCHO + MACO3 = MACO3 + HCHO # 1.0*K; xCCHO + NO = NO + CCHO # 1.0*K; xCCHO + HO2 = HO2 + 2*XC # 1.0*K; xCCHO + NO3 = NO3 + CCHO # 1.0*K; xCCHO + MEO2 = MEO2 + 0.5*CCHO + XC # 1.0*K; xCCHO + RO2C = RO2C + 0.5*CCHO + XC # 1.0*K; xCCHO + RO2XC = RO2XC + 0.5*CCHO + XC # 1.0*K; xCCHO + MECO3 = MECO3 + CCHO # 1.0*K; xCCHO + RCO3 = RCO3 + CCHO # 1.0*K; xCCHO + BZCO3 = BZCO3 + CCHO # 1.0*K; xCCHO + MACO3 = MACO3 + CCHO # 1.0*K; xRCHO + NO = NO + RCHO # 1.0*K; xRCHO + HO2 = HO2 + 3*XC # 1.0*K; xRCHO + NO3 = NO3 + RCHO # 1.0*K; xRCHO + MEO2 = MEO2 + 0.5*RCHO + 1.5*XC # 1.0*K; xRCHO + RO2C = RO2C + 0.5*RCHO + 1.5*XC # 1.0*K; xRCHO + RO2XC = RO2XC + 0.5*RCHO + 1.5*XC # 1.0*K; xRCHO + MECO3 = MECO3 + RCHO # 1.0*K; xRCHO + RCO3 = RCO3 + RCHO # 1.0*K; xRCHO + BZCO3 = BZCO3 + RCHO # 1.0*K; xRCHO + MACO3 = MACO3 + RCHO # 1.0*K; xACETONE + NO = NO + ACETONE # 1.0*K; xACETONE + HO2 = HO2 + 3*XC # 1.0*K; xACETONE + NO3 = NO3 + ACETONE # 1.0*K; xACETONE + MEO2 = MEO2 + 0.5*ACETONE + 1.5*XC # 1.0*K; xACETONE + RO2C = RO2C + 0.5*ACETONE + 1.5*XC # 1.0*K; xACETONE + RO2XC = RO2XC + 0.5*ACETONE + 1.5*XC # 1.0*K; xACETONE + MECO3 = MECO3 + ACETONE # 1.0*K; xACETONE + RCO3 = RCO3 + ACETONE # 1.0*K; xACETONE + BZCO3 = BZCO3 + ACETONE # 1.0*K; xACETONE + MACO3 = MACO3 + ACETONE # 1.0*K; xMEK + NO = NO + MEK # 1.0*K; xMEK + HO2 = HO2 + 4*XC # 1.0*K; xMEK + NO3 = NO3 + MEK # 1.0*K; xMEK + MEO2 = MEO2 + 0.5*MEK + 2*XC # 1.0*K; xMEK + RO2C = RO2C + 0.5*MEK + 2*XC # 1.0*K; xMEK + RO2XC = RO2XC + 0.5*MEK + 2*XC # 1.0*K; xMEK + MECO3 = MECO3 + MEK # 1.0*K; xMEK + RCO3 = RCO3 + MEK # 1.0*K; xMEK + BZCO3 = BZCO3 + MEK # 1.0*K; xMEK + MACO3 = MACO3 + MEK # 1.0*K; xPROD2 + NO = NO + PRD2 # 1.0*K; xPROD2 + HO2 = HO2 + 6*XC # 1.0*K; xPROD2 + NO3 = NO3 + PRD2 # 1.0*K; xPROD2 + MEO2 = MEO2 + 0.5*PRD2 + 3*XC # 1.0*K; xPROD2 + RO2C = RO2C + 0.5*PRD2 + 3*XC # 1.0*K; xPROD2 + RO2XC = RO2XC + 0.5*PRD2 + 3*XC # 1.0*K; xPROD2 + MECO3 = MECO3 + PRD2 # 1.0*K; xPROD2 + RCO3 = RCO3 + PRD2 # 1.0*K; xPROD2 + BZCO3 = BZCO3 + PRD2 # 1.0*K; xPROD2 + MACO3 = MACO3 + PRD2 # 1.0*K; xGLY + NO = NO + GLY # 1.0*K; xGLY + HO2 = HO2 + 2*XC # 1.0*K; xGLY + NO3 = NO3 + GLY # 1.0*K; xGLY + MEO2 = MEO2 + 0.5*GLY + XC # 1.0*K; xGLY + RO2C = RO2C + 0.5*GLY + XC # 1.0*K; xGLY + RO2XC = RO2XC + 0.5*GLY + XC # 1.0*K; xGLY + MECO3 = MECO3 + GLY # 1.0*K; xGLY + RCO3 = RCO3 + GLY # 1.0*K; xGLY + BZCO3 = BZCO3 + GLY # 1.0*K; xGLY + MACO3 = MACO3 + GLY # 1.0*K; xMGLY + NO = NO + MGLY # 1.0*K; xMGLY + HO2 = HO2 + 3*XC # 1.0*K; xMGLY + NO3 = NO3 + MGLY # 1.0*K; xMGLY + MEO2 = MEO2 + 0.5*MGLY + 1.5*XC # 1.0*K; xMGLY + RO2C = RO2C + 0.5*MGLY + 1.5*XC # 1.0*K; xMGLY + RO2XC = RO2XC + 0.5*MGLY + 1.5*XC # 1.0*K; xMGLY + MECO3 = MECO3 + MGLY # 1.0*K; xMGLY + RCO3 = RCO3 + MGLY # 1.0*K; xMGLY + BZCO3 = BZCO3 + MGLY # 1.0*K; xMGLY + MACO3 = MACO3 + MGLY # 1.0*K; xBACL + NO = NO + BACL # 1.0*K; xBACL + HO2 = HO2 + 4*XC # 1.0*K; xBACL + NO3 = NO3 + BACL # 1.0*K; xBACL + MEO2 = MEO2 + 0.5*BACL + 2*XC # 1.0*K; xBACL + RO2C = RO2C + 0.5*BACL + 2*XC # 1.0*K; xBACL + RO2XC = RO2XC + 0.5*BACL + 2*XC # 1.0*K; xBACL + MECO3 = MECO3 + BACL # 1.0*K; xBACL + RCO3 = RCO3 + BACL # 1.0*K; xBACL + BZCO3 = BZCO3 + BACL # 1.0*K; xBACL + MACO3 = MACO3 + BACL # 1.0*K; xBALD + NO = NO + BALD # 1.0*K; xBALD + HO2 = HO2 + 7*XC # 1.0*K; xBALD + NO3 = NO3 + BALD # 1.0*K; xBALD + MEO2 = MEO2 + 0.5*BALD + 3.5*XC # 1.0*K; xBALD + RO2C = RO2C + 0.5*BALD + 3.5*XC # 1.0*K; xBALD + RO2XC = RO2XC + 0.5*BALD + 3.5*XC # 1.0*K; xBALD + MECO3 = MECO3 + BALD # 1.0*K; xBALD + RCO3 = RCO3 + BALD # 1.0*K; xBALD + BZCO3 = BZCO3 + BALD # 1.0*K; xBALD + MACO3 = MACO3 + BALD # 1.0*K; xAFG1 + NO = NO + AFG1 # 1.0*K; xAFG1 + HO2 = HO2 + 5*XC # 1.0*K; xAFG1 + NO3 = NO3 + AFG1 # 1.0*K; xAFG1 + MEO2 = MEO2 + 0.5*AFG1 + 2.5*XC # 1.0*K; xAFG1 + RO2C = RO2C + 0.5*AFG1 + 2.5*XC # 1.0*K; xAFG1 + RO2XC = RO2XC + 0.5*AFG1 + 2.5*XC # 1.0*K; xAFG1 + MECO3 = MECO3 + AFG1 # 1.0*K; xAFG1 + RCO3 = RCO3 + AFG1 # 1.0*K; xAFG1 + BZCO3 = BZCO3 + AFG1 # 1.0*K; xAFG1 + MACO3 = MACO3 + AFG1 # 1.0*K; xAFG2 + NO = NO + AFG2 # 1.0*K; xAFG2 + HO2 = HO2 + 5*XC # 1.0*K; xAFG2 + NO3 = NO3 + AFG2 # 1.0*K; xAFG2 + MEO2 = MEO2 + 0.5*AFG2 + 2.5*XC # 1.0*K; xAFG2 + RO2C = RO2C + 0.5*AFG2 + 2.5*XC # 1.0*K; xAFG2 + RO2XC = RO2XC + 0.5*AFG2 + 2.5*XC # 1.0*K; xAFG2 + MECO3 = MECO3 + AFG2 # 1.0*K; xAFG2 + RCO3 = RCO3 + AFG2 # 1.0*K; xAFG2 + BZCO3 = BZCO3 + AFG2 # 1.0*K; xAFG2 + MACO3 = MACO3 + AFG2 # 1.0*K; xAFG3 + NO = NO + AFG3 # 1.0*K; xAFG3 + HO2 = HO2 + 7*XC # 1.0*K; xAFG3 + NO3 = NO3 + AFG3 # 1.0*K; xAFG3 + MEO2 = MEO2 + 0.5*AFG3 + 3.5*XC # 1.0*K; xAFG3 + RO2C = RO2C + 0.5*AFG3 + 3.5*XC # 1.0*K; xAFG3 + RO2XC = RO2XC + 0.5*AFG3 + 3.5*XC # 1.0*K; xAFG3 + MECO3 = MECO3 + AFG3 # 1.0*K; xAFG3 + RCO3 = RCO3 + AFG3 # 1.0*K; xAFG3 + BZCO3 = BZCO3 + AFG3 # 1.0*K; xAFG3 + MACO3 = MACO3 + AFG3 # 1.0*K; xMACR + NO = NO + MACR # 1.0*K; xMACR + HO2 = HO2 + 4*XC # 1.0*K; xMACR + NO3 = NO3 + MACR # 1.0*K; xMACR + MEO2 = MEO2 + 0.5*MACR + 2*XC # 1.0*K; xMACR + RO2C = RO2C + 0.5*MACR + 2*XC # 1.0*K; xMACR + RO2XC = RO2XC + 0.5*MACR + 2*XC # 1.0*K; xMACR + MECO3 = MECO3 + MACR # 1.0*K; xMACR + RCO3 = RCO3 + MACR # 1.0*K; xMACR + BZCO3 = BZCO3 + MACR # 1.0*K; xMACR + MACO3 = MACO3 + MACR # 1.0*K; xMVK + NO = NO + MVK # 1.0*K; xMVK + HO2 = HO2 + 4*XC # 1.0*K; xMVK + NO3 = NO3 + MVK # 1.0*K; xMVK + MEO2 = MEO2 + 0.5*MVK + 2*XC # 1.0*K; xMVK + RO2C = RO2C + 0.5*MVK + 2*XC # 1.0*K; xMVK + RO2XC = RO2XC + 0.5*MVK + 2*XC # 1.0*K; xMVK + MECO3 = MECO3 + MVK # 1.0*K; xMVK + RCO3 = RCO3 + MVK # 1.0*K; xMVK + BZCO3 = BZCO3 + MVK # 1.0*K; xMVK + MACO3 = MACO3 + MVK # 1.0*K; xIPRD + NO = NO + IPRD # 1.0*K; xIPRD + HO2 = HO2 + 5*XC # 1.0*K; xIPRD + NO3 = NO3 + IPRD # 1.0*K; xIPRD + MEO2 = MEO2 + 0.5*IPRD + 2.5*XC # 1.0*K; xIPRD + RO2C = RO2C + 0.5*IPRD + 2.5*XC # 1.0*K; xIPRD + RO2XC = RO2XC + 0.5*IPRD + 2.5*XC # 1.0*K; xIPRD + MECO3 = MECO3 + IPRD # 1.0*K; xIPRD + RCO3 = RCO3 + IPRD # 1.0*K; xIPRD + BZCO3 = BZCO3 + IPRD # 1.0*K; xIPRD + MACO3 = MACO3 + IPRD # 1.0*K; xRNO3 + NO = NO + RNO3 # 1.0*K; xRNO3 + HO2 = HO2 + 6*XC + XN # 1.0*K; xRNO3 + NO3 = NO3 + RNO3 # 1.0*K; xRNO3 + MEO2 = MEO2 + 0.5*RNO3 + 0.5*XN + 3*XC # 1.0*K; xRNO3 + RO2C = RO2C + 0.5*RNO3 + 0.5*XN + 3*XC # 1.0*K; xRNO3 + RO2XC = RO2XC + 0.5*RNO3 + 0.5*XN + 3*XC # 1.0*K; xRNO3 + MECO3 = MECO3 + RNO3 # 1.0*K; xRNO3 + RCO3 = RCO3 + RNO3 # 1.0*K; xRNO3 + BZCO3 = BZCO3 + RNO3 # 1.0*K; xRNO3 + MACO3 = MACO3 + RNO3 # 1.0*K; xMTNO3 + NO = NO + MTNO3 # 1.0*K; xMTNO3 + HO2 = HO2 + 6*XC + XN # 2.65e-13@-1300; xMTNO3 + NO3 = NO3 + MTNO3 # 1.0*K; xMTNO3 + MEO2 = MEO2 + 0.5*MTNO3 + 0.5*XN + 3*XC # 1.0*K; xMTNO3 + RO2C = RO2C + 0.5*MTNO3 + 0.5*XN + 3*XC # 1.0*K; xMTNO3 + RO2XC = RO2XC + 0.5*MTNO3 + 0.5*XN + 3*XC # 1.0*K; xMTNO3 + MECO3 = MECO3 + MTNO3 # 1.0*K; xMTNO3 + RCO3 = RCO3 + MTNO3 # 1.0*K; xMTNO3 + BZCO3 = BZCO3 + MTNO3 # 1.0*K; xMTNO3 + MACO3 = MACO3 + MTNO3 # 1.0*K; xMTNO3 + IMACO3 = MACO3 + MTNO3 # 1.0*K; yROOH + NO = NO # 1.0*K; yROOH + HO2 = HO2 + ROOH - 3*XC # 1.0*K; yROOH + NO3 = NO3 # 1.0*K; yROOH + MEO2 = MEO2 + 0.5*MEK - 2*XC # 1.0*K; yROOH + RO2C = RO2C + 0.5*MEK - 2*XC # 1.0*K; yROOH + RO2XC = RO2XC + 0.5*MEK - 2*XC # 1.0*K; yROOH + MECO3 = MECO3 # 1.0*K; yROOH + RCO3 = RCO3 # 1.0*K; yROOH + BZCO3 = BZCO3 # 1.0*K; yROOH + MACO3 = MACO3 # 1.0*K; yR6OOH + NO = NO # 1.0*K; yR6OOH + HO2 = HO2 + R6OOH - 6*XC # 1.0*K; yR6OOH + NO3 = NO3 # 1.0*K; yR6OOH + MEO2 = MEO2 + 0.5*PRD2 - 3*XC # 1.0*K; yR6OOH + RO2C = RO2C + 0.5*PRD2 - 3*XC # 1.0*K; yR6OOH + RO2XC = RO2XC + 0.5*PRD2 - 3*XC # 1.0*K; yR6OOH + MECO3 = MECO3 # 1.0*K; yR6OOH + RCO3 = RCO3 # 1.0*K; yR6OOH + BZCO3 = BZCO3 # 1.0*K; yR6OOH + MACO3 = MACO3 # 1.0*K; yRAOOH + NO = NO # 1.0*K; yRAOOH + HO2 = HO2 + RAOOH - 8*XC # 1.0*K; yRAOOH + NO3 = NO3 # 1.0*K; yRAOOH + MEO2 = MEO2 + 0.5*PRD2 - 3*XC # 1.0*K; yRAOOH + RO2C = RO2C + 0.5*PRD2 - 3*XC # 1.0*K; yRAOOH + RO2XC = RO2XC + 0.5*PRD2 - 3*XC # 1.0*K; yRAOOH + MECO3 = MECO3 # 1.0*K; yRAOOH + RCO3 = RCO3 # 1.0*K; yRAOOH + BZCO3 = BZCO3 # 1.0*K; yRAOOH + MACO3 = MACO3 # 1.0*K; zRNO3 + NO = NO + RNO3 - 1*XN # 1.0*K; zRNO3 + HO2 = HO2 + 6*XC # 1.0*K; zRNO3 + NO3 = NO3 + PRD2 + HO2 # 1.0*K; zRNO3 + MEO2 = MEO2 + 0.5*PRD2 + 0.5*HO2 + 3*XC # 1.0*K; zRNO3 + RO2C = RO2C + 0.5*PRD2 + 0.5*HO2 + 3*XC # 1.0*K; zRNO3 + RO2XC = RO2XC + 0.5*PRD2 + 0.5*HO2 + 3*XC # 1.0*K; zRNO3 + MECO3 = MECO3 + PRD2 + HO2 # 1.0*K; zRNO3 + RCO3 = RCO3 + PRD2 + HO2 # 1.0*K; zRNO3 + BZCO3 = BZCO3 + PRD2 + HO2 # 1.0*K; zRNO3 + MACO3 = MACO3 + PRD2 + HO2 # 1.0*K; zMTNO3 + NO = NO + MTNO3 - 1*XN # 1.0*K; zMTNO3 + HO2 = HO2 + 6*XC # 2.65e-13@-1300; zMTNO3 + NO3 = NO3 + PRD2 + HO2 # 1.0*K; zMTNO3 + MEO2 = MEO2 + 0.5*PRD2 + 0.5*HO2 + 3*XC # 1.0*K; zMTNO3 + RO2C = RO2C + 0.5*PRD2 + 0.5*HO2 + 3*XC # 1.0*K; zMTNO3 + RO2XC = RO2XC + 0.5*PRD2 + 0.5*HO2 + 3*XC # 1.0*K; zMTNO3 + MECO3 = MECO3 + PRD2 + HO2 # 1.0*K; zMTNO3 + RCO3 = RCO3 + PRD2 + HO2 # 1.0*K; zMTNO3 + BZCO3 = BZCO3 + PRD2 + HO2 # 1.0*K; zMTNO3 + MACO3 = MACO3 + PRD2 + HO2 # 1.0*K; zMTNO3 + IMACO3 = IMACO3 + PRD2 + HO2 # 1.0*K; xHOCCHO + NO = NO + HOCCHO # 1.0*K; xHOCCHO + HO2 = HO2 + 2*XC # 1.0*K; xHOCCHO + NO3 = NO3 + HOCCHO # 1.0*K; xHOCCHO + MEO2 = MEO2 + 0.5*HOCCHO + XC # 1.0*K; xHOCCHO + RO2C = RO2C + 0.5*HOCCHO + XC # 1.0*K; xHOCCHO + RO2XC = RO2XC + 0.5*HOCCHO + XC # 1.0*K; xHOCCHO + MECO3 = MECO3 + HOCCHO # 1.0*K; xHOCCHO + RCO3 = RCO3 + HOCCHO # 1.0*K; xHOCCHO + BZCO3 = BZCO3 + HOCCHO # 1.0*K; xHOCCHO + MACO3 = MACO3 + HOCCHO # 1.0*K; xACROLEIN + NO = NO + ACROLEIN # 1.0*K; xACROLEIN + HO2 = HO2 + 3*XC # 1.0*K; xACROLEIN + NO3 = NO3 + ACROLEIN # 1.0*K; xACROLEIN + MEO2 = MEO2 + 0.5*ACROLEIN + 1.5*XC # 1.0*K; xACROLEIN + RO2C = RO2C + 0.5*ACROLEIN + 1.5*XC # 1.0*K; xACROLEIN + RO2XC = RO2XC + 0.5*ACROLEIN + 1.5*XC # 1.0*K; xACROLEIN + MECO3 = MECO3 + ACROLEIN # 1.0*K; xACROLEIN + RCO3 = RCO3 + ACROLEIN # 1.0*K; xACROLEIN + BZCO3 = BZCO3 + ACROLEIN # 1.0*K; xACROLEIN + MACO3 = MACO3 + ACROLEIN # 1.0*K; CH4 + OH = MEO2 # 1.85e-12@1690; ETHENE + OH = xHO2 + RO2C + 1.61*xHCHO + 0.195*xHOCCHO + yROOH # 1.00e-28^-4.50&8.80e-12^-0.85&0.60&1.0; ETHENE + O3 = 0.16*HO2 + 0.16*OH + 0.51*CO + 0.12*CO2 + HCHO + 0.37*HCOOH # 9.14e-15@2580; !corrected temperature power ETHENE + NO3 = xHO2 + RO2C + xRCHO + yROOH + XN - 1*XC # 3.30e-12@2880; ETHENE + O3P = 0.8*HO2 + 0.29*xHO2 + 0.51*MEO2 + 0.29*RO2C + 0.51*CO + 0.278*xCO + 0.278*xHCHO + 0.1*CCHO + 0.012*xGLY + 0.29*yROOH + 0.2*XC # 1.07e-11@800; PROPENE + OH = 0.984*xHO2 + 0.984*RO2C + 0.016*RO2XC + 0.016*zRNO3 + 0.984*xHCHO + 0.984*xCCHO + yROOH - 0.048*XC # 4.85e-12@-504; PROPENE + O3 = 0.165*HO2 + 0.35*OH + 0.355*MEO2 + 0.525*CO + 0.215*CO2 + 0.5*HCHO + 0.5*CCHO + 0.185*HCOOH + 0.075*CCOOH + 0.07*XC # 5.51e-15@1878; PROPENE + NO3 = 0.949*xHO2 + 0.949*RO2C + 0.051*RO2XC + 0.051*zRNO3 + yROOH + XN + 2.694*XC # 4.59e-13@1156; PROPENE + O3P = 0.45*RCHO + 0.55*MEK - 0.55*XC # 1.02e-11@280; BUTADIENE13 + OH = 0.951*xHO2 + 1.189*RO2C + 0.049*RO2XC + 0.049*zRNO3 + 0.708*xHCHO + 0.58*xACROLEIN + 0.471*xIPRD + yROOH - 0.797*XC # 1.48e-11@-448; BUTADIENE13 + O3 = 0.08*HO2 + 0.08*OH + 0.255*CO + 0.185*CO2 + 0.5*HCHO + 0.185*HCOOH + 0.5*ACROLEIN + 0.375*MVK + 0.125*PRD2 - 0.875*XC # 1.34e-14@2283; BUTADIENE13 + NO3 = 0.815*xHO2 + 0.12*xNO2 + 1.055*RO2C + 0.065*RO2XC + 0.065*zRNO3 + 0.115*xHCHO + 0.46*xMVK + 0.12*xIPRD + 0.355*xRNO3 + yROOH + 0.525*XN - 1.075*XC # 1.00e-13; BUTADIENE13 + O3P = 0.25*HO2 + 0.117*xHO2 + 0.118*xMACO3 + 0.235*RO2C + 0.015*RO2XC + 0.015*zRNO3 + 0.115*xCO + 0.115*xACROLEIN + 0.001*xAFG1 + 0.001*xAFG2 + 0.75*PRD2 + 0.25*yROOH - 1.532*XC # 2.26e-11@40; ISOPRENE + O3 = 0.066*HO2 + 0.266*OH + 0.192*xMACO3 + 0.192*RO2C + 0.008*RO2XC + 0.008*zRNO3 + 0.275*CO + 0.122*CO2 + 0.4*HCHO + 0.192*xHCHO + 0.204*HCOOH + 0.39*MACR + 0.16*MVK + 0.15*IPRD + 0.1*PRD2 + 0.2*yR6OOH - 0.559*XC # 7.86e-15@1912; ISOPRENE + O3P = 0.25*MEO2 + 0.24*xMACO3 + 0.24*RO2C + 0.01*RO2XC + 0.01*zRNO3 + 0.24*xHCHO + 0.75*PRD2 + 0.25*yR6OOH - 1.01*XC # 3.50e-11; APIN + OH = 0.799*xHO2 + 0.004*xRCO3 + 1.042*RO2C + 0.197*RO2XC + 0.197*zRNO3 + 0.002*xCO + 0.022*xHCHO + 0.776*xRCHO + 0.034*xACETONE + 0.02*xMGLY + 0.023*xBACL + yR6OOH + TRPRXN + 6.2*XC # 1.21e-11@-436; APIN + O3 = 0.009*HO2 + 0.102*xHO2 + 0.728*OH + 0.001*xMECO3 + 0.297*xRCO3 + 1.511*RO2C + 0.337*RO2XC + 0.337*zRNO3 + 0.029*CO + 0.051*xCO + 0.017*CO2 + 0.344*xHCHO + 0.24*xRCHO + 0.345*xACETONE + 0.008*MEK + 0.002*xGLY + 0.081*xBACL + 0.255*PRD2 + 0.737*yR6OOH + TRPRXN + 2.999*XC # 5.00e-16@530; APIN + NO3 = 0.056*xHO2 + 0.643*xNO2 + 0.007*xRCO3 + 1.05*RO2C + 0.293*RO2XC + 0.293*zRNO3 + 0.005*xCO + 0.007*xHCHO + 0.684*xRCHO + 0.069*xACETONE + 0.002*xMGLY + 0.056*xRNO3 + yR6OOH + 0.301*XN + 5.608*XC # 1.19e-12@-490; APIN + O3P = PRD2 + TRPRXN + 4*XC # 3.20e-11; ! correct the below B10 rate constant so infinity rate has temperature depedence ACETYLENE + OH = 0.3*HO2 + 0.7*OH + 0.3*CO + 0.3*HCOOH + 0.7*GLY # 5.50e-30&8.30e-13^-2.00&0.60&1.0; ACETYLENE + O3 = 1.5*HO2 + 0.5*OH + 1.5*CO + 0.5*CO2 # 1.00e-14@4100; BENZENE + OH = 0.57*HO2 + 0.29*xHO2 + 0.116*OH + 0.29*RO2C + 0.024*RO2XC + 0.024*zRNO3 + 0.29*xGLY + 0.57*CRES + 0.029*xAFG1 + 0.261*xAFG2 + 0.116*AFG3 + 0.314*yRAOOH + BENZRO2 - 0.976*XC # 2.33e-12@193; TOLUENE + OH = 0.181*HO2 + 0.454*xHO2 + 0.312*OH + 0.454*RO2C + 0.054*RO2XC + 0.054*zRNO3 + 0.238*xGLY + 0.151*xMGLY + 0.181*CRES + 0.065*xBALD + 0.195*xAFG1 + 0.195*xAFG2 + 0.312*AFG3 + 0.073*yR6OOH + 0.435*yRAOOH + TOLRO2 - 0.109*XC # 1.81e-12@-338; MXYL + OH = 0.159*HO2 + 0.52*xHO2 + 0.239*OH + 0.52*RO2C + 0.082*RO2XC + 0.082*zRNO3 + 0.1*xGLY + 0.38*xMGLY + 0.159*CRES + 0.041*xBALD + 0.336*xAFG1 + 0.144*xAFG2 + 0.239*AFG3 + 0.047*yR6OOH + 0.555*yRAOOH + XYLRO2 + 0.695*XC # 2.31e-11; OXYL + OH = 0.161*HO2 + 0.554*xHO2 + 0.198*OH + 0.554*RO2C + 0.087*RO2XC + 0.087*zRNO3 + 0.084*xGLY + 0.238*xMGLY + 0.185*xBACL + 0.161*CRES + 0.047*xBALD + 0.253*xAFG1 + 0.253*xAFG2 + 0.198*AFG3 + 0.055*yR6OOH + 0.586*yRAOOH + XYLRO2 + 0.484*XC # 1.36e-11; PXYL + OH = 0.159*HO2 + 0.487*xHO2 + 0.278*OH + 0.487*RO2C + 0.076*RO2XC + 0.076*zRNO3 + 0.286*xGLY + 0.112*xMGLY + 0.159*CRES + 0.088*xBALD + 0.045*xAFG1 + 0.067*xAFG2 + 0.278*AFG3 + 0.286*xAFG3 + 0.102*yR6OOH + 0.461*yRAOOH + XYLRO2 + 0.399*XC # 1.43e-11; TMBENZ124 + OH = 0.022*HO2 + 0.627*xHO2 + 0.23*OH + 0.627*RO2C + 0.121*RO2XC + 0.121*zRNO3 + 0.074*xGLY + 0.405*xMGLY + 0.112*xBACL + 0.022*CRES + 0.036*xBALD + 0.088*xAFG1 + 0.352*xAFG2 + 0.23*AFG3 + 0.151*xAFG3 + 0.043*yR6OOH + 0.705*yRAOOH + XYLRO2 + 1.19*XC # 3.25e-11; ETOH + OH = 0.95*HO2 + 0.05*xHO2 + 0.05*RO2C + 0.081*xHCHO + 0.95*CCHO + 0.01*xHOCCHO + 0.05*yROOH - 0.001*XC # 5.49e-13^2.00@-530; ALK1 + OH = xHO2 + RO2C + xCCHO + yROOH # 1.34e-12^2.00@499; ALK2 + OH = 0.965*xHO2 + 0.965*RO2C + 0.035*RO2XC + 0.035*zRNO3 + 0.261*xRCHO + 0.704*xACETONE + yROOH - 0.105*XC # 1.49e-12^2.00@87; ALK3 + OH = 0.695*xHO2 + 0.236*xTBUO + 1.253*RO2C + 0.07*RO2XC + 0.07*zRNO3 + 0.026*xHCHO + 0.445*xCCHO + 0.122*xRCHO + 0.024*xACETONE + 0.332*xMEK + 0.983*yROOH + 0.017*yR6OOH - 0.046*XC # 1.51e-12@-126; ALK4 + OH = 0.83*xHO2 + 0.01*xMEO2 + 0.011*xMECO3 + 1.763*RO2C + 0.149*RO2XC + 0.149*zRNO3 + 0.002*xCO + 0.029*xHCHO + 0.438*xCCHO + 0.236*xRCHO + 0.426*xACETONE + 0.106*xMEK + 0.146*xPROD2 + yR6OOH - 0.119*XC # 3.75e-12@-44; ALK5 + OH = 0.647*xHO2 + 1.605*RO2C + 0.353*RO2XC + 0.353*zRNO3 + 0.04*xHCHO + 0.106*xCCHO + 0.209*xRCHO + 0.071*xACETONE + 0.086*xMEK + 0.407*xPROD2 + yR6OOH + 2.004*XC # 2.70e-12@-374; SOAALK + OH = OH + 0.006*SVAVB2 + 0.052*SVAVB3 + 0.081*SVAVB4 # 2.70e-12@-374; OLE1 + OH = 0.871*xHO2 + 0.001*xMEO2 + 1.202*RO2C + 0.128*RO2XC + 0.128*zRNO3 + 0.582*xHCHO + 0.01*xCCHO + 0.007*xHOCCHO + 0.666*xRCHO + 0.007*xACETONE + 0.036*xACROLEIN + 0.001*xMACR + 0.012*xMVK + 0.009*xIPRD + 0.168*xPROD2 + 0.169*yROOH + 0.831*yR6OOH + 0.383*XC # 6.72e-12@-501; OLE1 + O3 = 0.095*HO2 + 0.057*xHO2 + 0.128*OH + 0.09*RO2C + 0.005*RO2XC + 0.005*zRNO3 + 0.303*CO + 0.088*CO2 + 0.5*HCHO + 0.011*xCCHO + 0.5*RCHO + 0.044*xRCHO + 0.003*xACETONE + 0.009*MEK + 0.185*HCOOH + 0.159*RCOOH + 0.268*PRD2 + 0.011*yROOH + 0.052*yR6OOH + 0.11*XC # 3.19e-15@1701; OLE1 + NO3 = 0.772*xHO2 + 1.463*RO2C + 0.228*RO2XC + 0.228*zRNO3 + 0.013*xCCHO + 0.003*xRCHO + 0.034*xACETONE + 0.774*xRNO3 + 0.169*yROOH + 0.831*yR6OOH + 0.226*XN - 1.149*XC # 5.37e-13@1047; OLE1 + O3P = 0.45*RCHO + 0.39*MEK + 0.16*PRD2 + 1.13*XC # 1.61e-11@326; OLE2 + OH = 0.912*xHO2 + 0.953*RO2C + 0.088*RO2XC + 0.088*zRNO3 + 0.179*xHCHO + 0.835*xCCHO + 0.51*xRCHO + 0.144*xACETONE + 0.08*xMEK + 0.002*xMVK + 0.012*xIPRD + 0.023*xPROD2 + 0.319*yROOH + 0.681*yR6OOH + 0.135*XC # 1.26e-11@-488; OLE2 + O3 = 0.094*HO2 + 0.041*xHO2 + 0.443*OH + 0.307*MEO2 + 0.156*xMECO3 + 0.008*xRCO3 + 0.212*RO2C + 0.003*RO2XC + 0.003*zRNO3 + 0.299*CO + 0.161*CO2 + 0.131*HCHO + 0.114*xHCHO + 0.453*CCHO + 0.071*xCCHO + 0.333*RCHO + 0.019*xRCHO + 0.051*ACETONE + 0.033*MEK + 0.001*xMEK + 0.024*HCOOH + 0.065*CCOOH + 0.235*RCOOH + 0.037*PRD2 + 0.073*yROOH + 0.136*yR6OOH + 0.16*XC # 8.59e-15@1255; OLE2 + NO3 = 0.4*xHO2 + 0.426*xNO2 + 0.035*xMEO2 + 1.193*RO2C + 0.14*RO2XC + 0.14*zRNO3 + 0.072*xHCHO + 0.579*xCCHO + 0.163*xRCHO + 0.116*xACETONE + 0.002*xMEK + 0.32*xRNO3 + 0.319*yROOH + 0.681*yR6OOH + 0.254*XN + 0.13*XC # 2.31e-13@-382; OLE2 + O3P = 0.079*RCHO + 0.751*MEK + 0.17*PRD2 + 0.739*XC # 1.43e-11@-111; ARO1 + OH = 0.123*HO2 + 0.566*xHO2 + 0.202*OH + 0.566*RO2C + 0.11*RO2XC + 0.11*zRNO3 + 0.158*xGLY + 0.1*xMGLY + 0.123*CRES + 0.072*xAFG1 + 0.185*xAFG2 + 0.202*AFG3 + 0.309*xPROD2 + 0.369*yR6OOH + TOLRO2 + 0.31*XC # 7.84e-12; ARO2MN + OH = 0.077*HO2 + 0.617*xHO2 + 0.178*OH + 0.617*RO2C + 0.128*RO2XC + 0.128*zRNO3 + 0.088*xGLY + 0.312*xMGLY + 0.134*xBACL + 0.077*CRES + 0.026*xBALD + 0.221*xAFG1 + 0.247*xAFG2 + 0.178*AFG3 + 0.068*xAFG3 + 0.057*xPROD2 + 0.101*yR6OOH + XYLRO2 + 1.459*XC # 3.09e-11; NAPHTHAL + OH = 0.077*HO2 + 0.617*xHO2 + 0.178*OH + 0.617*RO2C + 0.128*RO2XC + 0.128*zRNO3 + 0.088*xGLY + 0.312*xMGLY + 0.134*xBACL + 0.077*CRES + 0.026*xBALD + 0.221*xAFG1 + 0.247*xAFG2 + 0.178*AFG3 + 0.068*xAFG3 + 0.057*xPROD2 + 0.101*yR6OOH + PAHRO2 + 1.459*XC # 3.09e-11; TERP + OH = 0.734*xHO2 + 0.064*xRCO3 + 1.211*RO2C + 0.201*RO2XC + 0.201*zMTNO3 + 0.001*xCO + 0.411*xHCHO + 0.385*xRCHO + 0.037*xACETONE + 0.007*xMEK + 0.003*xMGLY + 0.009*xBACL + 0.003*xMVK + 0.002*xIPRD + 0.409*xPROD2 + yR6OOH + TRPRXN + 4.375*XC # 2.27e-11@-435; TERP + O3 = 0.078*HO2 + 0.046*xHO2 + 0.499*OH + 0.202*xMECO3 + 0.059*xRCO3 + 0.49*RO2C + 0.121*RO2XC + 0.121*zMTNO3 + 0.249*CO + 0.063*CO2 + 0.127*HCHO + 0.033*xHCHO + 0.208*xRCHO + 0.057*xACETONE + 0.002*MEK + 0.172*HCOOH + 0.068*RCOOH + 0.003*xMGLY + 0.039*xBACL + 0.002*xMACR + 0.001*xIPRD + 0.502*PRD2 + 0.428*yR6OOH + TRPRXN + 3.852*XC # 8.28e-16@785; TERP + NO3 = TERPNRO2 # 1.33e-12@-490; TERPNRO2 + NO = 0.827*NO2 + 0.688*MTNO3 + 0.424*RO2C + 0.227*HO2 + 0.026*RCO3 + 0.012*CO + 0.023*HCHO + 0.002*HOCCHO + 0.403*RCHO + 0.239*ACETONE + 0.005*MACR + 0.001*MVK + 0.004*IPRD + 0.485*XN + 1.035*XC # 1.0*K; TERPNRO2 + HO2 = 1.0*MTNO3 # 2.65e-13@-1300; TERPNRO2 + NO3 = 1.531*NO2 + 0.422*MTNO3 + 0.786*RO2C + 0.420*HO2 + 0.048*RCO3 + 0.022*CO + 0.043*HCHO + 0.004*HOCCHO + 0.746*RCHO + 0.443*ACETONE + 0.009*MACR + 0.002*MVK + 0.007*IPRD + 0.047*XN + 1.917*XC # 1.0*K; TERPNRO2 + MEO2 = 0.266*NO2 + 0.711*MTNO3 + 0.393*RO2C + 0.710*HO2 + 0.024*RCO3 + 0.011*CO + 0.772*HCHO + 0.002*HOCCHO + 0.373*RCHO + 0.222*ACETONE + 0.005*MACR + 0.001*MVK + 0.004*IPRD + 0.024*XN + 0.959*XC + 0.250*MEOH # 1.0*K; TERPNRO2 + RO2C = 0.266*NO2 + 0.711*MTNO3 + 0.393*RO2C + 0.210*HO2 + 0.024*RCO3 + 0.011*CO + 0.022*HCHO + 0.002*HOCCHO + 0.373*RCHO + 0.222*ACETONE + 0.005*MACR + 0.001*MVK + 0.004*IPRD + 0.024*XN + 0.959*XC # 1.0*K; TERPNRO2 + RO2XC = 0.266*NO2 + 0.711*MTNO3 + 0.393*RO2C + 0.210*HO2 + 0.024*RCO3 + 0.011*CO + 0.022*HCHO + 0.002*HOCCHO + 0.373*RCHO + 0.222*ACETONE + 0.005*MACR + 0.001*MVK + 0.004*IPRD + 0.024*XN + 0.959*XC # 1.0*K; TERPNRO2 + MECO3 = 0.531*NO2 + 0.422*MTNO3 + 0.786*RO2C + 0.420*HO2 + 0.048*RCO3 + 0.022*CO + 0.043*HCHO + 0.004*HOCCHO + 0.746*RCHO + 0.443*ACETONE + 0.009*MACR + 0.002*MVK + 0.007*IPRD + 0.047*XN + 1.917*XC + MEO2 + CO2 # 1.0*K; TERPNRO2 + RCO3 = 0.531*NO2 + 0.422*MTNO3 + 1.786*RO2C + 0.420*HO2 + 0.048*RCO3 + 0.022*CO + 0.043*HCHO + 0.004*HOCCHO + 0.746*RCHO + 0.443*ACETONE + 0.009*MACR + 0.002*MVK + 0.007*IPRD + 0.047*XN + 1.917*XC + CO2 + xHO2 + xCCHO + yROOH # 1.0*K; TERPNRO2 + BZCO3 = 0.531*NO2 + 0.422*MTNO3 + 1.786*RO2C + 0.420*HO2 + 0.048*RCO3 + 0.022*CO + 0.043*HCHO + 0.004*HOCCHO + 0.746*RCHO + 0.443*ACETONE + 0.009*MACR + 0.002*MVK + 0.007*IPRD + 0.047*XN + 1.917*XC + CO2 + BZO # 1.0*K; TERPNRO2 + MACO3 = 1.0*CO2 + 1.0*HCHO + 1.0*MECO3 + 0.786*RO2C + 0.420*HO2 + 0.531*NO2 + 0.048*RCO3 + 0.022*CO + 0.043*HCHO + 0.004*HOCCHO + 0.746*RCHO + 0.443*ACETONE + 0.009*MACR + 0.002*MVK + 0.007*IPRD + 0.422*MTNO3 + 0.047*XN + 1.917*XC # 1.0*K; TERPNRO2 + IMACO3 = 1.0*CO2 + 1.0*HCHO + 1.0*MECO3 + 0.786*RO2C + 0.420*HO2 + 0.531*NO2 + 0.048*RCO3 + 0.022*CO + 0.043*HCHO + 0.004*HOCCHO + 0.746*RCHO + 0.443*ACETONE + 0.009*MACR + 0.002*MVK + 0.007*IPRD + 0.422*MTNO3 + 0.047*XN + 1.917*XC # 1.0*K; TERP + O3P = 0.237*RCHO + 0.763*PRD2 + TRPRXN + 4.711*XC # 4.02e-11; SESQ + OH = 0.734*xHO2 + 0.064*xRCO3 + 1.211*RO2C + 0.201*RO2XC + 0.201*zRNO3 + 0.001*xCO + 0.411*xHCHO + 0.385*xRCHO + 0.037*xACETONE + 0.007*xMEK + 0.003*xMGLY + 0.009*xBACL + 0.003*xMVK + 0.002*xIPRD + 0.409*xPROD2 + yR6OOH + SESQRXN + 9.375*XC # 1.0*K; SESQ + O3 = 0.078*HO2 + 0.046*xHO2 + 0.499*OH + 0.202*xMECO3 + 0.059*xRCO3 + 0.49*RO2C + 0.121*RO2XC + 0.121*zRNO3 + 0.249*CO + 0.063*CO2 + 0.127*HCHO + 0.033*xHCHO + 0.208*xRCHO + 0.057*xACETONE + 0.002*MEK + 0.172*HCOOH + 0.068*RCOOH + 0.003*xMGLY + 0.039*xBACL + 0.002*xMACR + 0.001*xIPRD + 0.502*PRD2 + 0.428*yR6OOH + SESQRXN + 8.852*XC # 1.0*K; SESQ + NO3 = 0.227*xHO2 + 0.287*xNO2 + 0.026*xRCO3 + 1.786*RO2C + 0.46*RO2XC + 0.46*zRNO3 + 0.012*xCO + 0.023*xHCHO + 0.002*xCCHO + 0.403*xRCHO + 0.239*xACETONE + 0.005*xMACR + 0.001*xMVK + 0.004*xIPRD + 0.228*xRNO3 + yR6OOH + SESQRXN + 0.485*XN + 8.785*XC # 1.0*K; SESQ + O3P = 0.237*RCHO + 0.763*PRD2 + SESQRXN + 9.711*XC # 1.0*K; CL2 = 2*CL # 1.0/; CL + NO + M = CLNO # 7.60e-32^-1.80; CLNO = CL + NO # 1.0/; CL + NO2 = CLONO # 1.30e-30^-2.00&1.00e-10^-1.00&0.60&1.0; CL + NO2 = CLNO2 # 1.80e-31^-2.00&1.00e-10^-1.00&0.60&1.0; CLONO = CL + NO2 # 1.0/; CLNO2 = CL + NO2 # 1.0/; CL + HO2 = HCL # 3.44e-11^-0.56; CL + HO2 = CLO + OH # 9.41e-12^2.10; CL + O3 = CLO # 2.80e-11@250; CL + NO3 = CLO + NO2 # 2.40e-11; CLO + NO = CL + NO2 # 6.20e-12@-295; CLO + NO2 = CLONO2 # 1.80e-31^-3.40&1.50e-11^-1.90&0.60&1.0; CLONO2 = CLO + NO2 # 1.0/; CLONO2 = CL + NO3 # 1.0/; CLONO2 = CLO + NO2 # 4.48e-05^-1.00@12530&3.71e+15^3.50@12530&0.60&1.0; CL + CLONO2 = CL2 + NO3 # 6.20e-12@-145; CLO + HO2 = HOCL # 2.20e-12@-340; HOCL = OH + CL # 1.0/; CLO + CLO = 0.29*CL2 + 1.42*CL # 1.25e-11@1960; OH + HCL = CL # 1.70e-12@230; CL + H2 = HCL + HO2 # 3.90e-11@2310; HCHO + CL = HCL + HO2 + CO # 8.10e-11@30; CCHO + CL = HCL + MECO3 # 8.00e-11; MEOH + CL = HCL + HCHO + HO2 # 5.50e-11; RCHO + CL = HCL + 0.9*RCO3 + 0.1*RO2C + 0.1*xCCHO + 0.1*xCO + 0.1*xHO2 + 0.1*yROOH # 1.23e-10; ACETONE + CL = HCL + RO2C + xHCHO + xMECO3 + yROOH # 7.70e-11@1000; MEK + CL = HCL + 0.975*RO2C + 0.039*RO2XC + 0.039*zRNO3 + 0.84*xHO2 + 0.085*xMECO3 + 0.036*xRCO3 + 0.065*xHCHO + 0.07*xCCHO + 0.84*xRCHO + yROOH + 0.763*XC # 3.60e-11; RNO3 + CL = HCL + 0.038*NO2 + 0.055*HO2 + 1.282*RO2C + 0.202*RO2XC + 0.202*zRNO3 + 0.009*RCHO + 0.018*MEK + 0.012*PRD2 + 0.055*RNO3 + 0.159*xNO2 + 0.547*xHO2 + 0.045*xHCHO + 0.3*xCCHO + 0.02*xRCHO + 0.003*xACETONE + 0.041*xMEK + 0.046*xPROD2 + 0.547*xRNO3 + 0.908*yR6OOH + 0.201*XN - 0.149*XC # 1.92e-10; PRD2 + CL = HCL + 0.314*HO2 + 0.68*RO2C + 0.116*RO2XC + 0.116*zRNO3 + 0.198*RCHO + 0.116*PRD2 + 0.541*xHO2 + 0.007*xMECO3 + 0.022*xRCO3 + 0.237*xHCHO + 0.109*xCCHO + 0.591*xRCHO + 0.051*xMEK + 0.04*xPROD2 + 0.686*yR6OOH + 1.262*XC # 2.00e-10; GLY + CL = HCL + 0.63*HO2 + 1.26*CO + 0.37*RCO3 - 0.37*XC # 8.10e-11@30; MGLY + CL = HCL + CO + MECO3 # 8.00e-11; CRES + CL = HCL + xHO2 + xBALD + yR6OOH # 6.20e-11; BALD + CL = HCL + BZCO3 # 8.00e-11; ROOH + CL = HCL + 0.414*OH + 0.588*RO2C + 0.414*RCHO + 0.104*xOH + 0.482*xHO2 + 0.106*xHCHO + 0.104*xCCHO + 0.197*xRCHO + 0.285*xMEK + 0.586*yROOH - 0.287*XC # 1.66e-10; R6OOH + CL = HCL + 0.145*OH + 1.078*RO2C + 0.117*RO2XC + 0.117*zRNO3 + 0.145*PRD2 + 0.502*xOH + 0.237*xHO2 + 0.186*xCCHO + 0.676*xRCHO + 0.28*xPROD2 + 0.855*yR6OOH + 0.348*XC # 3.00e-10; RAOOH + CL = 0.404*HCL + 0.139*OH + 0.148*HO2 + 0.589*RO2C + 0.124*RO2XC + 0.124*zRNO3 + 0.074*PRD2 + 0.147*MGLY + 0.139*IPRD + 0.565*xHO2 + 0.024*xOH + 0.448*xRCHO + 0.026*xGLY + 0.03*xMEK + 0.252*xMGLY + 0.073*xAFG1 + 0.073*xAFG2 + 0.713*yR6OOH + 2.674*XC # 4.29e-10; ACROLEIN + CL = 0.484*xHO2 + 0.274*xCL + 0.216*MACO3 + 1.032*RO2C + 0.026*RO2XC + 0.026*zRNO3 + 0.216*HCL + 0.484*xCO + 0.274*xHCHO + 0.274*xGLY + 0.484*xCLCCHO + 0.784*yROOH - 0.294*XC # 2.94e-10; MVK + CL = 1.283*RO2C + 0.053*RO2XC + 0.053*zRNO3 + 0.322*xHO2 + 0.625*xMECO3 + 0.947*xCLCCHO + yROOH + 0.538*XC # 2.32e-10; IPRD + CL = 0.401*HCL + 0.084*HO2 + 0.154*MACO3 + 0.73*RO2C + 0.051*RO2XC + 0.051*zRNO3 + 0.042*AFG1 + 0.042*AFG2 + 0.712*xHO2 + 0.498*xCO + 0.195*xHCHO + 0.017*xMGLY + 0.009*xAFG1 + 0.009*xAFG2 + 0.115*xIPRD + 0.14*xCLCCHO + 0.42*xCLACET + 0.762*yR6OOH + 0.709*XC # 4.12e-10; CLCCHO = HO2 + CO + RO2C + xCL + xHCHO + yROOH # 1.0/; CLCCHO + OH = RCO3 - 1*XC # 3.10e-12; CLCCHO + CL = HCL + RCO3 - 1*XC # 1.29e-11; CLACET = MECO3 + RO2C + xCL + xHCHO + yROOH # 5.00e-1/; xCL + NO = NO + CL # 1.0*K; xCL + HO2 = HO2 # 1.0*K; xCL + NO3 = NO3 + CL # 1.0*K; xCL + MEO2 = MEO2 + 0.5*CL # 1.0*K; xCL + RO2C = RO2C + 0.5*CL # 1.0*K; xCL + RO2XC = RO2XC + 0.5*CL # 1.0*K; xCL + MECO3 = MECO3 + CL # 1.0*K; xCL + RCO3 = RCO3 + CL # 1.0*K; xCL + BZCO3 = BZCO3 + CL # 1.0*K; xCL + MACO3 = MACO3 + CL # 1.0*K; xCLCCHO + NO = NO + CLCCHO # 1.0*K; xCLCCHO + HO2 = HO2 + 2*XC # 1.0*K; xCLCCHO + NO3 = NO3 + CLCCHO # 1.0*K; xCLCCHO + MEO2 = MEO2 + 0.5*CLCCHO + XC # 1.0*K; xCLCCHO + RO2C = RO2C + 0.5*CLCCHO + XC # 1.0*K; xCLCCHO + RO2XC = RO2XC + 0.5*CLCCHO + XC # 1.0*K; xCLCCHO + MECO3 = MECO3 + CLCCHO # 1.0*K; xCLCCHO + RCO3 = RCO3 + CLCCHO # 1.0*K; xCLCCHO + BZCO3 = BZCO3 + CLCCHO # 1.0*K; xCLCCHO + MACO3 = MACO3 + CLCCHO # 1.0*K; xCLACET + NO = NO + CLACET # 1.0*K; xCLACET + HO2 = HO2 + 3*XC # 1.0*K; xCLACET + NO3 = NO3 + CLACET # 1.0*K; xCLACET + MEO2 = MEO2 + 0.5*CLACET + 1.5*XC # 1.0*K; xCLACET + RO2C = RO2C + 0.5*CLACET + 1.5*XC # 1.0*K; xCLACET + RO2XC = RO2XC + 0.5*CLACET + 1.5*XC # 1.0*K; xCLACET + MECO3 = MECO3 + CLACET # 1.0*K; xCLACET + RCO3 = RCO3 + CLACET # 1.0*K; xCLACET + BZCO3 = BZCO3 + CLACET # 1.0*K; xCLACET + MACO3 = MACO3 + CLACET # 1.0*K; CH4 + CL = HCL + MEO2 # 7.30e-12@1280; ETHENE + CL = xHO2 + 2*RO2C + xHCHO + CLCHO # 1.60e-29^-3.30&3.10e-10^-1.00&0.60&1.0; PROPENE + CL = 0.124*HCL + 0.971*xHO2 + 0.971*RO2C + 0.029*RO2XC + 0.029*zRNO3 + 0.124*xACROLEIN + 0.306*xCLCCHO + 0.54*xCLACET + yROOH + 0.222*XC # 2.67e-10; BUTADIENE13 + CL = 0.39*xHO2 + 0.541*xCL + 1.884*RO2C + 0.069*RO2XC + 0.069*zRNO3 + 0.863*xHCHO + 0.457*xACROLEIN + 0.473*xIPRD + yROOH - 1.013*XC # 4.90e-10; ISOPRENE + CL = 0.15*HCL + 0.738*xHO2 + 0.177*xCL + 1.168*RO2C + 0.085*RO2XC + 0.085*zRNO3 + 0.275*xHCHO + 0.177*xMVK + 0.671*xIPRD + 0.067*xCLCCHO + yR6OOH + 0.018*XC # 4.80e-10; APIN + CL = 0.548*HCL + 0.252*xHO2 + 0.068*xCL + 0.034*xMECO3 + 0.05*xRCO3 + 0.016*xMACO3 + 2.258*RO2C + 0.582*RO2XC + 0.582*zRNO3 + 0.035*xCO + 0.158*xHCHO + 0.185*xRCHO + 0.274*xACETONE + 0.007*xGLY + 0.003*xBACL + 0.003*xMVK + 0.158*xIPRD + 0.006*xAFG1 + 0.006*xAFG2 + 0.001*xAFG3 + 0.109*xCLCCHO + yR6OOH + 3.543*XC # 5.46e-10; ACETYLENE + CL = HO2 + CO + XC # 5.20e-30^-2.40&2.20e-10&0.60&1.0; TOLUENE + CL = 0.894*xHO2 + 0.894*RO2C + 0.106*RO2XC + 0.106*zRNO3 + 0.894*xBALD + 0.106*XC # 6.20e-11; MXYL + CL = 0.864*xHO2 + 0.864*RO2C + 0.136*RO2XC + 0.136*zRNO3 + 0.864*xBALD + 1.136*XC # 1.35e-10; OXYL + CL = 0.864*xHO2 + 0.864*RO2C + 0.136*RO2XC + 0.136*zRNO3 + 0.864*xBALD + 1.136*XC # 1.40e-10; PXYL + CL = 0.864*xHO2 + 0.864*RO2C + 0.136*RO2XC + 0.136*zRNO3 + 0.864*xBALD + 1.136*XC # 1.44e-10; TMBENZ124 + CL = 0.838*xHO2 + 0.838*RO2C + 0.162*RO2XC + 0.162*zRNO3 + 0.838*xBALD + 2.162*XC # 2.42e-10; ETOH + CL = HCL + 0.688*HO2 + 0.312*xHO2 + 0.312*RO2C + 0.503*xHCHO + 0.688*CCHO + 0.061*xHOCCHO + 0.312*yROOH - 0.001*XC # 8.60e-11@-45; ALK1 + CL = HCL + xHO2 + RO2C + xCCHO + yROOH # 8.30e-11@100; ALK2 + CL = HCL + 0.97*xHO2 + 0.97*RO2C + 0.03*RO2XC + 0.03*zRNO3 + 0.482*xRCHO + 0.488*xACETONE + yROOH - 0.09*XC # 1.20e-10@-40; ALK3 + CL = HCL + 0.835*xHO2 + 0.094*xTBUO + 1.361*RO2C + 0.07*RO2XC + 0.07*zRNO3 + 0.078*xHCHO + 0.34*xCCHO + 0.343*xRCHO + 0.075*xACETONE + 0.253*xMEK + 0.983*yROOH + 0.017*yR6OOH + 0.18*XC # 1.86e-10; ALK4 + CL = HCL + 0.827*xHO2 + 0.003*xMEO2 + 0.004*xMECO3 + 1.737*RO2C + 0.165*RO2XC + 0.165*zRNO3 + 0.003*xCO + 0.034*xHCHO + 0.287*xCCHO + 0.412*xRCHO + 0.247*xACETONE + 0.076*xMEK + 0.13*xPROD2 + yR6OOH + 0.327*XC # 2.63e-10; ALK5 + CL = HCL + 0.647*xHO2 + 1.541*RO2C + 0.352*RO2XC + 0.352*zRNO3 + 0.022*xHCHO + 0.08*xCCHO + 0.258*xRCHO + 0.044*xACETONE + 0.041*xMEK + 0.378*xPROD2 + yR6OOH + 2.368*XC # 4.21e-10; OLE1 + CL = 0.384*HCL + 0.873*xHO2 + 1.608*RO2C + 0.127*RO2XC + 0.127*zRNO3 + 0.036*xHCHO + 0.206*xCCHO + 0.072*xRCHO + 0.215*xACROLEIN + 0.019*xMVK + 0.038*xIPRD + 0.192*xCLCCHO + 0.337*xCLACET + 0.169*yROOH + 0.831*yR6OOH + 1.268*XC # 3.92e-10; OLE2 + CL = 0.279*HCL + 0.45*xHO2 + 0.442*xCL + 0.001*xMEO2 + 1.492*RO2C + 0.106*RO2XC + 0.106*zRNO3 + 0.19*xHCHO + 0.383*xCCHO + 0.317*xRCHO + 0.086*xACETONE + 0.042*xMEK + 0.025*xMACR + 0.058*xMVK + 0.161*xIPRD + 0.013*xCLCCHO + 0.191*xCLACET + 0.319*yROOH + 0.681*yR6OOH + 0.294*XC # 3.77e-10; ARO1 + CL = 0.84*xHO2 + 0.84*RO2C + 0.16*RO2XC + 0.16*zRNO3 + 0.84*xPROD2 + XC # 2.16e-10; ARO2MN + CL = 0.828*xHO2 + 0.828*RO2C + 0.172*RO2XC + 0.172*zRNO3 + 0.469*xBALD + 0.359*xPROD2 + 2.531*XC # 2.66e-10; NAPHTHAL + CL = 0.828*xHO2 + 0.828*RO2C + 0.172*RO2XC + 0.172*zRNO3 + 0.469*xBALD + 0.359*xPROD2 + 2.531*XC # 2.66e-10; TERP + CL = 0.548*HCL + 0.252*xHO2 + 0.068*xCL + 0.034*xMECO3 + 0.05*xRCO3 + 0.016*xMACO3 + 2.258*RO2C + 0.582*RO2XC + 0.582*zRNO3 + 0.035*xCO + 0.158*xHCHO + 0.185*xRCHO + 0.274*xACETONE + 0.007*xGLY + 0.003*xBACL + 0.003*xMVK + 0.158*xIPRD + 0.006*xAFG1 + 0.006*xAFG2 + 0.001*xAFG3 + 0.109*xCLCCHO + yR6OOH + 3.543*XC # 5.46e-10; SESQ + CL = 0.252*xHO2 + 0.068*xCL + 0.034*xMECO3 + 0.05*xRCO3 + 0.016*xMACO3 + 2.258*RO2C + 0.582*RO2XC + 0.582*zRNO3 + 0.548*HCL + 0.035*xCO + 0.158*xHCHO + 0.185*xRCHO + 0.274*xACETONE + 0.007*xGLY + 0.003*xBACL + 0.003*xMVK + 0.158*xIPRD + 0.006*xAFG1 + 0.006*xAFG2 + 0.001*xAFG3 + 0.109*xCLCCHO + yR6OOH + 8.543*XC # 1.0*K; ! Reactions for aerosol precursors from benzene, xylenes, and toluene BENZRO2 + NO = NO + 0.034*SVAVB2 + 0.392*SVAVB4 # 1.0*K; BENZRO2 + HO2 = HO2 + 0.146*SVAVB1 # 1.0*K; XYLRO2 + NO = NO + 0.015*SVAVB2 + 0.023*SVAVB3 + 0.06*SVAVB4 # 1.0*K; XYLRO2 + HO2 = HO2 + 0.193*SVAVB1 # 1.0*K; TOLRO2 + NO = NO + 0.016*SVAVB2 + 0.051*SVAVB3 + 0.047*SVAVB4 # 1.0*K; TOLRO2 + HO2 = HO2 + 0.14*SVAVB1 # 1.0*K; PAHRO2 + NO = NO + 0.028*SVAVB2 + 0.225*SVAVB3 + 0.191*SVAVB4 # 1.0*K; PAHRO2 + HO2 = HO2 + 0.473*SVAVB1 # 1.0*K; ! Reactive Tracers for formaldehyde, acetaldehyde and acrolein HCHO_PRIMARY = # 1.0/; HCHO_PRIMARY = # 1.0/; HCHO_PRIMARY + OH = OH # 5.40e-12@-135; ! Removed based on comment from peer reviews ! HCHO_PRIMARY + HO2 = HO2 # 9.70e-15@-625; ! HCHO_PRIMARY + NO3 = NO3 # 2.00e-12@2431; HCHO_PRIMARY + CL = CL # 8.10e-11@30; CCHO_PRIMARY + OH = OH # 4.40e-12@-365; CCHO_PRIMARY = # 1.0/; CCHO_PRIMARY + NO3 = NO3 # 1.40e-12@1860; CCHO_PRIMARY + CL = CL # 8.00e-11; ACRO_PRIMARY + OH = OH # 1.99e-11; ACRO_PRIMARY + O3 = O3 # 1.40e-15@2528; ACRO_PRIMARY + NO3 = NO3 # 1.18e-15; ACRO_PRIMARY + O3P = O3P # 2.37e-12; ACRO_PRIMARY = # 1.0/; ACRO_PRIMARY + CL = CL # 2.94e-10; !******* starting of new isoprene mechanism****** ! ISOPRENE + OH reactions ISOPRENE + OH = ISOPO2 + ISOPRXN # 2.54e-11@-410; ISOPO2 + NO = 0.40*MVK + 0.26*MACR + 0.883*NO2 + 0.07*ISOPND + 0.047*ISOPNB + 0.66*HCHO + 0.10*HC5 + 0.043*ARO2MN + 0.08*DIBOO + 0.803*HO2 # 2.60e-12@-380; ISOPO2 + HO2 = 0.880*ISOPOOH + 0.120*OH + 0.047*MACR + 0.073*MVK + 0.120*HO2 + 0.120*HCHO # 2.06e-13@-1300; ISOPO2 + MEO2 = 0.45*HO2 + 0.37*HCHO + 0.23*MVK + 0.15*MACR + 0.05*DIBOO + 0.06*HC5 + 0.02*ARO2MN + 0.5*PRD2 + 0.5*HCHO + 0.5*HO2 + 0.25*HCHO + 0.25*MEOH - 0.62*XC # 1.80e-12; ISOPO2 + RO2C = 0.45*HO2 + 0.37*HCHO + 0.23*MVK + 0.15*MACR + 0.05*DIBOO + 0.06*HC5 + 0.02*ARO2MN + 0.5*PRD2 - 0.62*XC # 6.80e-13; ISOPO2 + ISOPO2 = 0.91*HO2 + 0.75*HCHO + 0.45*MVK + 0.29*MACR + 0.09*DIBOO + 0.11*HC5 + 0.05*ARO2MN + PRD2 - 1.24*XC # 2.30e-12; ISOPO2 + MECO3 = MEO2 + CO2 + 0.91*HO2 + 0.75*HCHO + 0.45*MVK + 0.29*MACR + 0.09*DIBOO + 0.11*HC5 + 0.05*ARO2MN - 0.16*XC # 4.40e-13@-1070; ISOPO2 = HO2 + HPALD # 4.07e8@7694; HPALD = OH + HO2 + 0.5*HACET + 0.5*MGLY + 0.25*HOCCHO + 0.25*GLY + HCHO # 1.0/; HPALD + OH = OH + PRD2 - XC # 4.60e-11; ! ISOPRENE + NO3 reactions ISOPRENE + NO3 = NISOPO2 # 3.03e-12@448; NISOPO2 + NO3 = 0.70*NIT1 + 0.035*MVK + 0.035*MACR + 1.3*NO2 + 0.80*HO2 + 0.070*HCHO + 0.23*HC5 # 2.30e-12; NISOPO2 + NO = 0.70*NIT1 + 0.035*MVK + 0.035*MACR + 1.3*NO2 + 0.80*HO2 + 0.070*HCHO + 0.23*HC5 # 2.60e-12@-380; NISOPO2 + HO2 = NISOPOOH # 2.06e-13@-1300; NISOPO2 + MEO2 = 0.35*NIT1 + 0.0175*MVK + 0.0175*MACR + 0.15*NO2 + 0.40*HO2 + 0.035*HCHO + 0.115*HC5 + 0.25*NIT1 + 0.25*ISOPND + 0.5*HCHO + 0.5*HO2 + 0.25*HCHO + 0.25*MEOH # 1.30e-12; NISOPO2 + RO2C = 0.35*NIT1 + 0.0175*MVK + 0.0175*MACR + 0.15*NO2 + 0.40*HO2 + 0.035*HCHO + 0.115*HC5 + 0.25*NIT1 + 0.25*ISOPND # 6.04e-13; NISOPO2 + NISOPO2 = 0.70*NIT1 + 0.035*MVK + 0.035*MACR + 0.3*NO2 + 0.80*HO2 + 0.070*HCHO + 0.23*HC5 + 0.5*NIT1 + 0.5*ISOPND # 1.20e-12; NISOPO2 + MECO3 = MEO2 + CO2 + 0.70*NIT1 + 0.035*MVK + 0.035*MACR + 0.3*NO2 + 0.80*HO2 + 0.070*HCHO + 0.23*HC5 # 4.40e-13@-1070; ! HC5 HC5 + OH = HC5OO # 1.42e-11@-610; HC5OO + NO = NO2 + 0.234*HOCCHO + 0.234*MGLY + 0.216*GLY + 0.216*HACET + 0.29*DHMOB + 0.17*RCOOH + 0.09*PRD2 + 0.09*CO + HO2 + 0.16*XC # 2.60e-12@-380; HC5OO + HO2 = R6OOH - XC # 2.06e-13@-1300; HC5OO + MEO2 = 0.117*HOCCHO + 0.117*MGLY + 0.108*GLY + 0.108*HACET + 0.145*DHMOB + 0.085*RCOOH + 0.045*PRD2 + 0.045*CO + 0.5*HO2 + 0.5*PRD2 + 0.25*HCHO + 0.25*MEOH + 0.5*HO2 + 0.5*HCHO - 0.42*XC # 2.00e-13; HC5OO + RO2C = 0.117*HOCCHO + 0.117*MGLY + 0.108*GLY + 0.108*HACET + 0.145*DHMOB + 0.085*RCOOH + 0.045*PRD2 + 0.045*CO + 0.5*HO2 + 0.5*PRD2 - 0.42*XC # 3.50e-14; HC5OO + MECO3 = MEO2 + CO2 + 0.234*HOCCHO + 0.234*MGLY + 0.216*GLY + 0.216*HACET + 0.29*DHMOB + 0.17*RCOOH + 0.09*PRD2 + 0.09*CO + HO2 + 0.16*XC # 4.40e-13@-1070; HC5 + O3 = 0.50*MGLY + 0.35*GLY + 0.79*OH + 0.02*HCHO + 0.35*HOCCHO + 0.59*CO + 0.15*HACET + 0.13*RCOOH + 0.08*CO2 + 0.6*HO2 + 0.35*MECO3 - 0.13*XC # 3.94-15@1520; !ISOPN formed from OH oxidation ISOPND + OH = ISOPNOOD # 1.20e-11@-652; ISOPNOOD + NO = 0.34*PRD2 + 0.15*PROPNN + 0.44*HACET + 0.07*MVKN + 0.13*ETHLN + 0.31*HCOOH + 0.31*NO3 + 0.72*HCHO + 0.15*HOCCHO + 1.34*NO2 + 0.35*HO2 - 0.68*XC # 2.40e-12@-360; ISOPNOOD + HO2 = RNO3I - XC # 2.06e-13@-1300; ISOPNOOD + MEO2 = 0.17*PRD2 + 0.075*PROPNN + 0.22*HACET + 0.035*MVKN + 0.065*ETHLN + 0.155*HCOOH + 0.155*NO3 + 0.36*HCHO + 0.075*HOCCHO + 0.17*NO2 + 0.175*HO2 + 0.5*RNO3I + 0.25*HCHO + 0.25*MEOH + 0.5*HO2 + 0.5*HCHO - 0.84*XC # 2.00e-13; ISOPNOOD + RO2C = 0.17*PRD2 + 0.075*PROPNN + 0.22*HACET + 0.035*MVKN + 0.065*ETHLN + 0.155*HCOOH + 0.155*NO3 + 0.36*HCHO + 0.075*HOCCHO + 0.17*NO2 + 0.175*HO2 + 0.5*RNO3I - 0.84*XC # 3.50e-14; ISOPNOOD + MECO3 = MEO2 + CO2 + 0.34*PRD2 + 0.15*PROPNN + 0.44*HACET + 0.07*MVKN + 0.13*ETHLN + 0.31*HCOOH + 0.31*NO3 + 0.72*HCHO + 0.15*HOCCHO + 0.34*NO2 + 0.35*HO2 - 0.68*XC # 4.40e-13@-1070; ISOPND + O3 = 0.36*ETHLN + 0.29*PROPNN + 0.70*MGLY + 0.12*RCOOH + 0.39*HO2 + 0.038*HCHO + 0.029*CO + 0.73*OH + 0.017*CO2 + 0.36*NO2 + 0.16*HACET + 0.34*HOCCHO - 0.26*XC # 2.90e-17; ISOPNB + OH = ISOPNOOB # 2.4e-12@-745; ISOPNOOB + NO = 0.6*HOCCHO + 0.6*HACET + 0.4*HCHO + 0.4*HO2 + 0.26*MACRN + 0.14*MVKN + 1.6*NO2 # 2.40e-12@-360; ISOPNOOB + HO2 = RNO3I - XC # 2.06e-13@-1300; ISOPNOOB + MEO2 = 0.3*HOCCHO + 0.3*HACET + 0.2*HCHO + 0.2*HO2 + 0.13*MACRN + 0.07*MVKN + 0.3*NO2 + 0.5*RNO3I + 0.25*HCHO + 0.25*MEOH + 0.5*HO2 + 0.5*HCHO - 0.5*XC # 2.00e-13; ISOPNOOB + RO2C = 0.3*HOCCHO + 0.3*HACET + 0.2*HCHO + 0.2*HO2 + 0.13*MACRN + 0.07*MVKN + 0.3*NO2 + 0.5*RNO3I - 0.5*XC # 3.50e-14; ISOPNOOB + MECO3 = MEO2 + CO2 + 0.6*HOCCHO + 0.6*HACET + 0.4*HCHO + 0.4*HO2 + 0.26*MACRN + 0.14*MVKN + 0.6*NO2 # 4.40e-13@-1070; ISOPNB + O3 = 0.12*MVKN + 0.32*MACRN + 0.34*OH + 0.08*HO2 + 0.26*CO + 0.07*CO2 + 0.16*HCOOH + 0.56*HCHO + 0.28*RNO3I + 0.04*HACET + 0.28*NO2 + 0.24*BACL - 0.57*XC # 3.7e-19; !ISOPN formed from NO3 oxidation NIT1 + NO3 = 0.6*NIT1NO3OOA + 0.6*HNO3 + 0.4*NIT1NO3OOB # 3.15e-13@448; NIT1NO3OOA + NO3 = NO2 + PROPNN + CO + CO2 + HO2 # 4.00e-12; NIT1NO3OOA + NO = NO2 + PROPNN + CO + CO2 + HO2 # 1.0*K; NIT1NO3OOA + NO2 = MAPAN + XN + XC # 1.0*K; NIT1NO3OOA + HO2 = 0.75*RCOOOH + 0.25*RCOOH + 0.25*O3 + XN + 2*XC # 1.0*K; NIT1NO3OOA + RO2C = PROPNN + CO + CO2 + HO2 # 1.0*K; NIT1NO3OOA + MEO2 = PROPNN + CO + CO2 + HO2 + HCHO + HO2 # 1.0*K; NIT1NO3OOA + MECO3 = MEO2 + CO2 + PROPNN + CO + CO2 + HO2 # 1.0*K; NIT1NO3OOB + NO3 = ISOPNN + GLY + NO2 # 2.30e-12; NIT1NO3OOB + NO = 0.94*ISOPNN + 0.94*GLY + 0.94*NO2 + 0.06*RNO3I - 0.06*XC + 0.13*XN # 2.60e-12@-380; NIT1NO3OOB + HO2 = RNO3I - XC + XN # 2.06e-13@-1300; NIT1NO3OOB + RO2C = 0.7*ISOPNN + 0.7*GLY + 0.3*RNO3I - 0.3*XC + 0.3*XN # 3.50e-14; NIT1NO3OOB + MEO2 = 0.7*ISOPNN + 0.7*GLY + 0.3*RNO3I + 0.25*HCHO + 0.25*MEOH + 0.5*HO2 + 0.5*HCHO - 0.3*XC + 0.3*XN # 2.00e-13; NIT1NO3OOB + MECO3 = MEO2 + CO2 + ISOPNN + GLY # 4.40e-13@-1070; NIT1 + O3 = 0.3*PROPNN + 0.45*CO + 0.15*OH + 0.45*HO2 + 0.15*CO2 + 0.7*GLY + 0.7*OH + 0.7*NO2 + 0.7*MGLY # 4.15e-15@1520; NIT1 + OH = 0.345*NIT1NO3OOA + 0.655*NIT1OHOO # 7.48e-12@-410; NIT1OHOO + NO = 0.919*PROPNN + 0.919*GLY + 0.015*CO + 0.015*RNO3I + 0.934*NO2 + 0.934*HO2 + 0.066*RNO3I - 0.096*XC + 0.066*XN # 2.60e-12@-380; NIT1OHOO + HO2 = R6OOH + XN - XC # 2.06e-13@-1300; NIT1OHOO + RO2C = 0.689*PROPNN + 0.689*GLY + 0.011*CO + 0.011*RNO3I + 0.7*HO2 + 0.3*RNO3I - 0.323*XC # 3.50e-14; NIT1OHOO + MEO2 = 0.689*PROPNN + 0.689*GLY + 0.011*CO + 0.011*RNO3I + 0.7*HO2 + 0.3*RNO3I + 0.25*HCHO + 0.25*MEOH + 0.50*HCHO + 0.50*HO2 - 0.323*XC # 2.00e-13; NIT1OHOO + MECO3 = MEO2 + CO2 + 0.984*PROPNN + 0.984*GLY + 0.016*CO + 0.016*RNO3I + HO2 - 0.033*XC # 4.40e-13@-1070; !DIBOO DIBOO + NO = NO2 + HO2 + 0.52*HOCCHO + 0.52*MGLY + 0.48*GLY + 0.48*HACET # 2.60e-12@-380; DIBOO + HO2 = R6OOH - XC # 2.06e-13@-1300; DIBOO + MEO2 = 0.5*HO2 + 0.26*HOCCHO + 0.26*MGLY + 0.24*GLY + 0.24*HACET + 0.5*PRD2 + 0.25*HCHO + 0.25*MEOH + 0.5*HCHO + 0.50*HO2 - 0.5*XC # 2.00e-13; DIBOO + RO2C = 0.5*HO2 + 0.26*HOCCHO + 0.26*MGLY + 0.24*GLY + 0.24*HACET + 0.5*PRD2 - 0.5*XC # 3.50e-14; DIBOO + MECO3 = HO2 + 0.52*HOCCHO + 0.52*MGLY + 0.48*GLY + 0.48*HACET + MEO2 + CO2 # 4.40e-13@-1070; !MVK MVK + OH = MVKOO # 2.60e-12@-610; MVKOO + NO = 0.625*HOCCHO + 0.625*MECO3 + 0.265*MGLY + 0.265*HCHO + 0.265*HO2 + 0.11*MVKN + 0.89*NO2 # 2.60e-12@-380; MVKOO + HO2 = ROOH + XC # 1.82e-13@-1300; MVKOO + MEO2 = 0.35*HOCCHO + 0.35*MECO3 + 0.15*MGLY + 0.15*HCHO + 0.15*HO2 + 0.5*MEK + 0.25*HCHO + 0.25*MEOH + 0.5*HCHO + 0.50*HO2 # 2.00e-13; MVKOO + RO2C = 0.35*HOCCHO + 0.35*MECO3 + 0.15*MGLY + 0.15*HCHO + 0.15*HO2 + 0.5*MEK # 3.50e-14; MVKOO + MECO3 = MEO2 + CO2 + 0.7*HOCCHO + 0.7*MECO3 + 0.3*MGLY + 0.3*HCHO + 0.3*HO2 # 4.40e-13@-1070; !MACR MACROO + NO = 0.85*NO2 + 0.85*HO2 + 0.72*HACET + 0.72*CO + 0.13*HCHO + 0.13*MGLY + 0.15*MACRN # 2.60e-12@-380; MACROO + HO2 = ROOH + XC # 1.82e-13@-1300; MACROO + MEO2 = 0.50*HO2 + 0.424*HACET + 0.424*CO + 0.076*HCHO + 0.076*MGLY + 0.5*PRD2 + 0.25*HCHO + 0.25*MEOH + 0.5*HCHO + 0.5*HO2 - XC # 2.00e-13; MACROO + RO2C = 0.50*HO2 + 0.424*HACET + 0.424*CO + 0.076*HCHO + 0.076*MGLY + 0.5*PRD2 - XC # 3.50e-14; MACROO + MECO3 = MEO2 + CO2 + HO2 + 0.15*MGLY + 0.85*HACET + 0.85*CO + 0.15*HCHO # 4.40e-13@-1070; !MACO3 MACO3 + NO = NO2 + CO + CO2 + HCHO + MEO2 # 6.70e-12@-340; !revised acyl peroxy reaction with HO2 but splitting organic acid into two parts MACO3 + HO2 = 0.3075*RCOOOH + 0.1025*RCOOH + 0.15*O3 + 0.44*OH + 0.44*HCHO + 0.44*MECO3 + 0.44*CO2 # 1.0*K; MACO3 + NO3 = NO2 + CO + CO2 + HCHO + MEO2 # 4.00e-12; MACO3 + MEO2 = HCHO + HO2 + CO + CO2 + HCHO + MEO2 # 1.0*K; MACO3 + RO2C = CO + CO2 + HCHO + MEO2 # 1.0*K; MACO3 + RO2XC = CO + CO2 + HCHO + MEO2 # 1.0*K; MACO3 + MECO3 = CO2 + MEO2 + CO + CO2 + HCHO + MEO2 # 1.0*K; MACO3 + RCO3 = CO + CO2 + HCHO + MEO2 + RO2C + xHO2 + yROOH + xCCHO + CO2 # 1.0*K; MACO3 + BZCO3 = CO + CO2 + HCHO + MEO2 + BZO + RO2C + CO2 # 1.0*K; MACO3 + MACO3 = 2*CO + 2*CO2 + 2*HCHO + 2*MEO2 # 1.0*K; MAPAN + OH = HACET + CO + NO2 # 2.90e-11; !HOCCHO HOCCHO + OH = 0.75*HO2 + 0.25*OH + 0.13*GLY + 0.52*CO + 0.35*CO2 + 0.16*HCOOH + 0.71*HCHO # 0.8e-11; !HACET HACET + OH = 0.75*MGLY + 0.825*HO2 + 0.125*HCOOH + 0.1*OH + 0.125*MEO2 + 0.20*CO2 + 0.05*CO + 0.125*CCOOH # 2.15e-12@-305; HACET = HO2 + MECO3 + HCHO # 1.75e-1/; !ETHLN ETHLN + OH = HCHO + CO2 + NO2 # 2.94e-12@-365; ETHLN = NO2 + HCHO + HO2 + CO # 1.0/; !PROPNN PROPNN + OH = MGLY + NO2 # 4.0e-13; ISOPNN + OH = PROPNN + NO2 # 4.0e-13; PROPNN = MECO3 + HCHO + NO2 # 1.0/; ISOPNN = MECO3 + HCHO + 2*NO2 # 1.0/; !MVKN MVKN + OH = 0.65*HCOOH + 0.65*MGLY + 0.35*HCHO + 0.35*PYRUACD + NO3 # 3.50e-12@-140; MVKN = MECO3 + NO2 + HOCCHO # 1.0/; !MACRN MACRN + OH = 0.08*CCOOH + 0.08*HCHO + 0.08*NO3 + 0.07*HCOOH + 0.07*NO3 + 0.07*MGLY + 0.85*HACET + 0.85*NO2 + 0.93*CO2 # 1.28e-11@-405; MACRN = HACET + NO2 + CO + HO2 # 1.0/; !DHMOB DHMOB + OH = 1.5*CO + 0.5*HO2 + 0.5*HACET + 0.5*PRD2 - XC # 1.00e-11; !CH3C(O)C(O)OH PYRUACD = CCHO + CO2 # 1.0/; !Peroxides from reactions with OH ISOPOOH + OH = IEPOX + OH # 1.9e-11@-390; ISOPOOH + OH = 0.387*ISOPO2 + 0.613*HC5 + 0.613*OH # 4.75e-12@-200; IEPOX + OH = IEPOXOO # 5.78e-11@400; IEPOXOO + HO2 = 0.725*HACET + 0.275*HOCCHO + 0.275*GLY + 0.275*MGLY + 1.125*OH + 0.825*HO2 + 0.200*CO2 + 0.375*HCHO + 0.074*HCOOH + 0.251*CO # 2.06e-13@-1300; IEPOXOO + NO = 0.725*HACET + 0.275*HOCCHO + 0.275*GLY + 0.275*MGLY + 0.125*OH + 0.825*HO2 + 0.200*CO2 + 0.375*HCHO + 0.074*HCOOH + 0.251*CO + NO2 # 2.60e-12@-380; IEPOXOO + MEO2 = 0.363*HACET + 0.138*HOCCHO + 0.138*GLY + 0.138*MGLY + 0.063*OH + 0.413*HO2 + 0.100*CO2 + 0.188*HCHO + 0.037*HCOOH + 0.126*CO + 0.5*PRD2 + 0.5*HCHO + 0.5*HO2 + 0.25*HCHO + 0.25*MEOH - 0.5*XC # 2.00e-13; IEPOXOO + RO2C = 0.363*HACET + 0.138*HOCCHO + 0.138*GLY + 0.138*MGLY + 0.063*OH + 0.413*HO2 + 0.100*CO2 + 0.188*HCHO + 0.037*HCOOH + 0.126*CO + 0.5*PRD2 - 0.5*XC # 3.50e-14; IEPOXOO + MECO3 = 0.725*HACET + 0.275*HOCCHO + 0.275*GLY + 0.275*MGLY + 0.125*OH + 0.825*HO2 + 0.200*CO2 + 0.375*HCHO + 0.074*HCOOH + 0.251*CO + MEO2 + CO2 # 4.40e-13@-1070; ISOPOOH = OH + 0.91*HO2 + 0.75*HCHO + 0.45*MVK + 0.29*MACR + 0.09*DIBOO + 0.11*HC5 + 0.05*ARO2MN - 0.16*XC # 1.0/; ! RNO3 from isoprene RNO3I + OH = NO2 + HO2 + PRD2 # 8.00e-12; ! Peroxides from reactions with NO3 NISOPOOH + OH = RNO3I + OH # 5.00e-11; NISOPOOH + OH = 0.3*NISOPO2 + 0.7*OH + 0.7*NIT1 # 0.38e-11@-200; !******* end of new isoprene mechanism****** ! make IMACO3 instead of MACO3 MACR + OH = 0.53*MACROO + 0.47*IMACO3 # 8.00e-12@-380; MACR + NO3 = 0.5*IMACO3 + 0.5*RO2C + 0.5*HNO3 + 0.5*xHO2 + 0.5*xCO + 0.5*yROOH + 1.5*XC + 0.5*XN # 1.50e-12@1815; MACR = 0.33*OH + 0.67*HO2 + 0.34*MECO3 + 0.33*IMACO3 + 0.33*RO2C + 0.67*CO + 0.34*HCHO + 0.33*xMECO3 + 0.33*xHCHO + 0.33*yROOH # 1.0/; MACR + CL = 0.25*HCL + 0.165*IMACO3 + 0.802*RO2C + 0.033*RO2XC + 0.033*zRNO3 + 0.802*xHO2 + 0.541*xCO + 0.082*xIPRD + 0.18*xCLCCHO + 0.541*xCLACET + 0.835*yROOH + 0.208*XC # 3.85e-10; IMACO3 + NO = NO2 + CO + CO2 + HCHO + MEO2 # 6.70e-12@-340; ! production of MPAA from MACO3 + HO2 as per Kjaergaard paper IMACO3 + HO2 = 0.75*IMPAA + 0.25*RCOOH + 0.25*O3 + XC # 1.0*K; IMACO3 + NO3 = NO2 + CO + CO2 + HCHO + MEO2 # 4.00e-12; IMACO3 + MEO2 = HCHO + HO2 + CO + CO2 + HCHO + MEO2 # 1.0*K; IMACO3 + RO2C = CO + CO2 + HCHO + MEO2 # 1.0*K; IMACO3 + RO2XC = CO + CO2 + HCHO + MEO2 # 1.0*K; IMACO3 + MECO3 = CO2 + MEO2 + CO + CO2 + HCHO + MEO2 # 1.0*K; IMACO3 + RCO3 = CO +CO2 + HCHO + MEO2 + RO2C + xHO2 + yROOH + xCCHO + CO2 # 1.0*K; IMACO3 + BZCO3 = CO + CO2 + HCHO + MEO2 + BZO + RO2C + CO2 # 1.0*K; IMACO3 + MACO3 = 2*CO + 2*CO2 + 2*HCHO + 2*MEO2 # 1.0*K; IMACO3 + IMACO3 = 2*CO + 2*CO2 + 2*HCHO + 2*MEO2 # 1.0*K; ! Add isomerization of MACR+OH-H addition --> MACROO MACROO = HACET + CO + OH #2.9e7@5297; IMACO3 + NO2 = IMAPAN # 1.0*K; IMAPAN = IMACO3 + NO2 # 1.60e+16@13486; IMAPAN = 0.6*IMACO3 + 0.6*NO2 + 0.4*CO2 + 0.4*HCHO + 0.4*MECO3 + 0.4*NO3 # 1.0/; ! new cross reactions xCO + IMACO3 = IMACO3 + CO # 1.0*K; xTBUO + IMACO3 = IMACO3 + TBUO # 1.0*K; xMACO3 + IMACO3 = IMACO3 + MACO3 # 1.0*K; xRCO3 + IMACO3 = IMACO3 + RCO3 # 1.0*K; xMECO3 + IMACO3 = IMACO3 + MECO3 # 1.0*K; xMEO2 + IMACO3 = IMACO3 + MEO2 # 1.0*K; xNO2 + IMACO3 = IMACO3 + NO2 # 1.0*K; xOH + IMACO3 = IMACO3 + OH # 1.0*K; xHO2 + IMACO3 = IMACO3 + HO2 # 1.0*K; xACROLEIN + IMACO3 = IMACO3 + ACROLEIN # 1.0*K; xHOCCHO + IMACO3 = IMACO3 + HOCCHO # 1.0*K; zRNO3 + IMACO3 = IMACO3 + PRD2 + HO2 # 1.0*K; yRAOOH + IMACO3 = IMACO3 # 1.0*K; yR6OOH + IMACO3 = IMACO3 # 1.0*K; yROOH + IMACO3 = IMACO3 # 1.0*K; xRNO3 + IMACO3 = IMACO3 + RNO3 # 1.0*K; xIPRD + IMACO3 = IMACO3 + IPRD # 1.0*K; xMVK + IMACO3 = IMACO3 + MVK # 1.0*K; xMACR + IMACO3 = IMACO3 + MACR # 1.0*K; xAFG3 + IMACO3 = IMACO3 + AFG3 # 1.0*K; xAFG2 + IMACO3 = IMACO3 + AFG2 # 1.0*K; xAFG1 + IMACO3 = IMACO3 + AFG1 # 1.0*K; xBALD + IMACO3 = IMACO3 + BALD # 1.0*K; xBACL + IMACO3 = IMACO3 + BACL # 1.0*K; xMGLY + IMACO3 = IMACO3 + MGLY # 1.0*K; xGLY + IMACO3 = IMACO3 + GLY # 1.0*K; xPROD2 + IMACO3 = IMACO3 + PRD2 # 1.0*K; xMEK + IMACO3 = IMACO3 + MEK # 1.0*K; xACETONE + IMACO3 = IMACO3 + ACETONE # 1.0*K; xRCHO + IMACO3 = IMACO3 + RCHO # 1.0*K; xCCHO + IMACO3 = IMACO3 + CCHO # 1.0*K; xHCHO + IMACO3 = IMACO3 + HCHO # 1.0*K; xCL + IMACO3 = IMACO3 + CL # 1.0*K; xCLACET + IMACO3 = IMACO3 + CLACET # 1.0*K; xCLCCHO + IMACO3 = IMACO3 + CLCCHO # 1.0*K; ! get yields from Edney/Bartolotti calculations ! or maybe assume same overall yield of CalTech paper (61%) but split it ! up between MAE and HMML IMAPAN + OH = 0.03*HACET + 0.03*CO + 0.81*NO3 + 0.21*IMAE + 0.57*IHMML + 0.19*PAN + 0.19*HCHO + 0.19*HO2 # 3.00e-11; ! need to decay MAE and HMML - use same rate as IEPOX decay ? Or ! use rate calculated from structure-activity relationships (Kwok, 1995) IMAE + OH = # 1.E-12; IHMML + OH = # 4.4E-12; ! formation of HMML from MPAA - use rate from MCM species MACO3H and ! 17% yield of HMML from from CalTech paper IMPAA + OH = 0.83*IMACO3 + 0.17*IHMML # 1.66E-11; ! MTNO3 reactions MTNO3 + CL = HCL + 0.038*NO2 + 0.055*HO2 + 1.282*RO2C + 0.202*RO2XC + 0.202*zMTNO3 + 0.009*RCHO + 0.018*MEK + 0.012*PRD2 + 0.055*MTNO3 + 0.159*xNO2 + 0.547*xHO2 + 0.045*xHCHO + 0.3*xCCHO + 0.02*xRCHO + 0.003*xACETONE + 0.041*xMEK + 0.046*xPROD2 + 0.547*xMTNO3 + 0.908*yR6OOH + 0.201*XN - 0.149*XC # 1.92e-10; MTNO3 + OH = 0.189*HO2 + 0.305*xHO2 + 0.019*NO2 + 0.313*xNO2 + 0.976*RO2C + 0.175*RO2XC + 0.175*zMTNO3 + 0.011*xHCHO + 0.429*xCCHO + 0.001*RCHO + 0.036*xRCHO + 0.004*xACETONE + 0.01*MEK + 0.17*xMEK + 0.008*PRD2 + 0.031*xPROD2 + 0.189*MTNO3 + 0.305*xMTNO3 + 0.157*yROOH + 0.636*yR6OOH + 0.174*XN + 0.04*XC # 7.20e-12; MTNO3 = 0.344*HO2 + 0.554*xHO2 + NO2 + 0.721*RO2C + 0.102*RO2XC + 0.102*zMTNO3 + 0.074*HCHO + 0.061*xHCHO + 0.214*CCHO + 0.23*xCCHO + 0.074*RCHO + 0.063*xRCHO + 0.008*xACETONE + 0.124*MEK + 0.083*xMEK + 0.19*PRD2 + 0.261*xPROD2 + 0.066*yROOH + 0.591*yR6OOH + 0.396*XC # 1.0/; ! iorganic heteorogeneous reactions from hetchem version 5.0.2 NO2 = 0.5*HONO + 0.5*HNO3 # 1.0~; ! version 5.1 heterogenous N2O5 reactions leading to HNO3 and CLNO2 N2O5 = HNO3 + H2NO3PIJ # 1.0~; N2O5 = HNO3 + H2NO3PK # 1.0~; H2NO3PIJ = HNO3 # 1.0~; H2NO3PK = HNO3 # 1.0~; H2NO3PIJ + ACLI = CLNO2 # 1.0~; H2NO3PIJ + ACLJ = CLNO2 # 1.0~; H2NO3PK + ACLK = CLNO2 # 1.0~; ! Simplified ozone loss from oceanic halogens excluding chlorine O3 = %H # 6.7006E-11@-10.7435 & 3.4153E-08@0.6713 & 2.0E-6; ! Isoprene epoxide uptake reactions, uptake followed by speciation IEPOX = IEPOXP # 1.0~; IMAE = IMAEP # 1.0~; IHMML = IHMMLP # 1.0~; IEPOXP = AIETETJ # 1.0~; IEPOXP + ASO4J = AIEOSJ # 1.0~; IEPOXP + AIETETJ = ADIMJ # 1.0~; IEPOXP + AIEOSJ = ADIMJ # 1.0~; IMAEP = AIMGAJ # 1.0~; IMAEP + ASO4J = AIMOSJ # 1.0~; IHMMLP = AIMGAJ # 1.0~; IHMMLP + ASO4J = AIMOSJ # 1.0~; ! Uptake of NO3 (Mao et al. 2013 JGR) NO3 = HNO3 # 1.0~; ! oligomerization reaction for secondary organic aerosols AISO1J = 0.50*AOLGBJ # 9.48816E-6; AISO2J = 0.50*AOLGBJ # 9.48816E-6; ASQTJ = 1.50*AOLGBJ # 9.48816E-6; ! oligomerization reaction for aromatic secondary organic aerosols AAVB2J = 0.907*AOLGAJ # 9.48816E-6; AAVB3J = 0.925*AOLGAJ # 9.48816E-6; AAVB4J = 0.943*AOLGAJ # 9.48816E-6; !aging reactions for primary organic carbon APOCI + OH = 1.25*APNCOMI + APOCI + OH # 2.5E-12; APNCOMI + OH = OH # 1.0~; APOCJ + OH = 1.25*APNCOMJ + APOCJ + OH # 2.5E-12; APNCOMJ + OH = OH # 1.0~; ! Formation of Potential Combustion SOA (pcSOA) PCVOC + OH = OH + PCSOARXN # 1.25E-11; ! Aging with Func. and Frag. (Donahue et al. 2012) VLVPO1 + OH = OH + 0.4857 * VLVPO1 + 0.0062 * VSVPO1 + 0.0025 * VSVPO2 + 0.0026 * VSVPO3 + 0.0023 * VIVPO1 + 0.2944 * VLVOO1 + 0.2021 * VLVOO2 + 0.0019 * VSVOO2 + 0.0023 * VSVOO3 #4.0e-11; VSVPO1 + OH = OH + 0.3003 * VLVPO1 + 0.2862 * VSVPO1 + 0.0041 * VSVPO2 + 0.0035 * VSVPO3 + 0.2239 * VLVOO1 + 0.1820 * VLVOO2 #4.0e-11; VSVPO2 + OH = OH + 0.3856 * VLVPO1 + 0.0950 * VSVPO1 + 0.1373 * VSVPO2 + 0.0005 * VSVPO3 + 0.2051 * VLVOO1 + 0.1764 * VLVOO2 #4.0e-11; VSVPO3 + OH = OH + 0.2181 * VLVPO1 + 0.3063 * VSVPO1 + 0.0153 * VSVPO2 + 0.1043 * VSVPO3 + 0.1893 * VLVOO1 + 0.1668 * VLVOO2 #4.0e-11; VIVPO1 + OH = OH + 0.2412 * VLVPO1 + 0.2089 * VSVPO1 + 0.3000 * VSVPO2 + 0.2028 * VLVOO1 + 0.0471 * VLVOO2 #4.0e-11; VLVOO1 + OH = OH + 0.6664 * VLVOO1 + 0.0143 * VLVOO2 + 0.0123 * VSVOO1 + 0.1239 * VSVOO2 + 0.1831 * VSVOO3 #4.0e-11; VLVOO2 + OH = OH + 0.2858 * VLVOO1 + 0.3931 * VLVOO2 + 0.0139 * VSVOO1 + 0.1027 * VSVOO2 + 0.2045 * VSVOO3 #4.0e-11; VSVOO1 + OH = OH + 0.3303 * VLVOO1 + 0.2272 * VLVOO2 + 0.2607 * VSVOO1 + 0.0702 * VSVOO2 + 0.1116 * VSVOO3 #4.0e-11; VSVOO2 + OH = OH + 0.3444 * VLVOO1 + 0.2749 * VLVOO2 + 0.0491 * VSVOO1 + 0.2577 * VSVOO2 + 0.0739 * VSVOO3 #4.0e-11; VSVOO3 + OH = OH + 0.3886 * VLVOO1 + 0.2421 * VLVOO2 + 0.0640 * VSVOO1 + 0.0385 * VSVOO2 + 0.2667 * VSVOO3 #4.0e-11; ! Hydrolysis of particle-phase nitrates AMTNO3J = HNO3 + 1.00*AMTHYDJ #9.259E-5; AISOPNNJ = 2.0*HNO3 + 0.5*AMTHYDJ #9.259E-5; ! GLY and MGLY uptake GLY = AGLYJ # 1.0~; MGLY = AGLYJ # 1.0~; endmech constants < C1> ATM_AIR = 1.0E+06 < C2> ATM_H2 = 0.56 < C3> ATM_N2 = 0.7808E+06 < C4> ATM_O2 = 0.2095E+06 < C5> ATM_CH4 = 1.85 end constants ================================================ FILE: CCTM/src/MECHS/saprc07tic_ae7i_aq/pa_saprc07tic_ae7i_aq.ctl ================================================ ! for saprc07tic_ae7i_aq ! !======================================================================= ! IPR_OUTPUTS !======================================================================= IPR_OUTPUT O3 = CHEM+DDEP+CLDS+AERO+TRNM; IPR_OUTPUT HNO3 = CHEM+DDEP+CLDS+AERO; IPR_OUTPUT PAN = CHEM+DDEP+CLDS+AERO+TRNM; IPR_OUTPUT N2O5 = CHEM+DDEP+CLDS+AERO; DEFINE FAMILY EC = AECI + AECJ; IPR_OUTPUT EC = COAG + EMIS + HADV; IPR_OUTPUT ASO4J = COND + COAG + EMIS + CHEM + VDIF + CLDS; IPR_OUTPUT ASO4I = NPF + COND + COAG + EMIS + CHEM + VDIF +CLDS; IPR_OUTPUT NUMATKN; !IPR_OUTPUT NUMACC; !IPR_OUTPUT NUMCOR; ! ENDPA; ================================================ FILE: CCTM/src/MECHS/saprc07tic_ae7i_aqkmt2/AE_saprc07tic_ae7i_aq.nml ================================================ &AE_nml AE_SPECIES_DATA = !SPECIES ,MOLWT ,Aitken ,Accum ,Coarse ,OPTICS ,IC ,ICFAC ,BC ,BC_FAC ,DRYDEP SURR ,FAC ,WET-SCAV SURR ,FAC ,AE2AQ SURR ,TRNS ,DDEP ,WDEP ,CONC 'ASO4' , 96.00 ,T ,T ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'SO4' , 1 ,'SO4' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ANH4' , 18.00 ,T ,T ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'NH4' , 1 ,'NH4' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ANO3' , 62.00 ,T ,T ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'NO3' , 1 ,'NO3' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ANA' , 23.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'NA' , 1 ,'NA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ACL' , 35.50 ,T ,T ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'CL' , 1 ,'CL' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AISO1' ,132.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AISO2' ,133.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ASQT' ,273.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AORGC' ,177.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'AORGC' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AEC' , 12.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'EC' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AOTHR' ,200.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'PRI' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AFE' , 55.80 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'FE' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AAL' , 27.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'PRI' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ASI' , 28.10 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'PRI' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ATI' , 47.90 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'PRI' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ACA' , 40.10 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'CA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AMG' , 24.30 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'MG' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AK' , 39.10 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'K' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AMN' , 54.90 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'MN' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ACORS' ,100.00 ,F ,F ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'ANTH' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ASOIL' ,100.00 ,F ,F ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'SOIL' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'NUM' , 1.00 ,T ,T ,T ,'' ,'' ,-1 ,'' ,-1 ,'VNUM' , 1 ,'NUM' , 1 ,'NUM' ,'Yes' ,'' ,'' ,'Yes', 'SRF' , 1.00 ,T ,T ,T ,'' ,'' ,-1 ,'' ,-1 ,'VSRF' , 1 ,'SRF' , 1 ,'SRF' ,'Yes' ,'' ,'' ,'Yes', 'AORGH2O' , 18.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'H2O' , 1 ,'H2O' ,'Yes' ,'' ,'' ,'Yes', 'AH2O' , 18.00 ,T ,T ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'H2O' , 1 ,'H2O' ,'Yes' ,'' ,'' ,'Yes', 'AH3OP' , 19.00 ,T ,T ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'' ,-1 ,'' ,'Yes' ,'' ,'' ,'Yes', 'ASEACAT' , 23.75 ,F ,F ,T ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'PRI' , 1 ,'SEAS' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AISO3' ,168.20 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AOLGA' ,206.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AOLGB' ,248.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AGLY' , 66.40 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AMTNO3' ,231.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AISOPNN' ,226.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AMTHYD' ,186.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AIETET' ,136.15 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'IETET' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AIEOS' ,216.20 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'IEOS' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ADIM' ,248.23 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'DIMER' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AIMGA' ,120.10 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'IMGA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AIMOS' ,200.16 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'IMOS' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'APOC' ,220.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'APNCOM' ,220.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'APCSO' ,170.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ALVPO1' ,218.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ASVPO1' ,230.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ASVPO2' ,241.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ASVPO3' ,253.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AIVPO1' ,266.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ALVOO1' ,136.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ALVOO2' ,136.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ASVOO1' ,135.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ASVOO2' ,135.00 ,T ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ASVOO3' ,134.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'POA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AAVB1' ,198.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AAVB2' ,179.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AAVB3' ,169.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AAVB4' ,158.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AMT1' ,300.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AMT2' ,200.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AMT3' ,186.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AMT4' ,184.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AMT5' ,170.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'AMT6' ,168.00 ,F ,T ,F ,'' ,'' ,-1 ,'' ,-1 ,'VMASS' , 1 ,'ORG' , 1 ,'SOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', / ================================================ FILE: CCTM/src/MECHS/saprc07tic_ae7i_aqkmt2/GC_saprc07tic_ae7i_aq.nml ================================================ &GC_nml GC_SPECIES_DATA = !SPECIES ,MOLWT ,IC ,IC_FAC ,BC ,BC_FAC ,DRYDEP SURR ,FAC ,WET-SCAV SURR ,FAC ,GC2AE SURR ,GC2AQ SURR,TRNS ,DDEP ,WDEP ,CONC 'NO2' , 46.01 ,'' ,-1 ,'' ,-1 ,'VD_NO2' , 1 ,'NO2' , 1 ,'NO2' ,'NO2' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'NO' , 30.01 ,'' ,-1 ,'' ,-1 ,'VD_NO' , 1 ,'NO' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'O3P' , 16.00 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'O3' , 48.00 ,'' ,-1 ,'' ,-1 ,'VD_O3' , 1 ,'O3' , 1 ,'' ,'O3' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'NO3' , 62.01 ,'' ,-1 ,'' ,-1 ,'VD_NO3' , 1 ,'NO3' , 1 ,'' ,'NO3RAD' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'N2O5' ,108.02 ,'' ,-1 ,'' ,-1 ,'VD_N2O5' , 1 ,'N2O5' , 1 ,'N2O5' ,'N2O5' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'HNO3' , 63.02 ,'' ,-1 ,'' ,-1 ,'VD_HNO3' , 1 ,'HNO3' , 1 ,'HNO3' ,'HNO3' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'O1D' , 16.00 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'OH' , 17.01 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'OH' , 1 ,'OH' ,'HO' ,'Yes' ,'' ,'Yes' ,'Yes', 'HONO' , 47.02 ,'' ,-1 ,'' ,-1 ,'VD_HONO' , 1 ,'HNO2' , 1 ,'HONO' ,'HONO' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'HO2' , 33.01 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'HO2' , 1 ,'' ,'HO2' ,'Yes' ,'' ,'Yes' ,'Yes', 'CO' , 28.01 ,'' ,-1 ,'' ,-1 ,'VD_CO' , 1 ,'CO' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'CO2' , 44.01 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'CO2' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'HNO4' , 79.02 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'HNO4' , 1 ,'' ,'HNO4' ,'Yes' ,'' ,'Yes' ,'Yes', 'HO2H' , 34.01 ,'' ,-1 ,'' ,-1 ,'VD_H2O2' , 1 ,'H2O2' , 1 ,'' ,'H2O2' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SO2' , 64.06 ,'' ,-1 ,'' ,-1 ,'VD_SO2' , 1 ,'SO2' , 1 ,'' ,'SO2' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SULF' , 98.08 ,'' ,-1 ,'' ,-1 ,'VD_SULF' , 1 ,'H2SO4' , 1 ,'SULF' ,'H2SO4' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SULRXN' , 98.08 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'SULPRD' ,'' ,'' ,'' ,'' ,'' , 'MEO2' , 47.03 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'CH3O2' ,'Yes' ,'' ,'' ,'Yes', 'HCHO' , 30.03 ,'' ,-1 ,'' ,-1 ,'VD_HCHO' ,0.7 ,'FORMALDEHYDE' , 1 ,'' ,'HCHO' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'COOH' , 48.04 ,'' ,-1 ,'' ,-1 ,'VD_OP' , 1 ,'METHYLHYDROPEROX', 1 ,'' ,'MHP' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'MEOH' , 32.04 ,'' ,-1 ,'' ,-1 ,'VD_METHANOL' , 1 ,'METHANOL' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'RO2C' , 1.00 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'RO2XC' , 1.00 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'MECO3' , 75.04 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'PAN' ,121.05 ,'' ,-1 ,'' ,-1 ,'VD_PAN' , 1 ,'PAN' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'CCOOOH' , 76.00 ,'' ,-1 ,'' ,-1 ,'VD_PAA' , 1 ,'PEROXYACETIC_ACI', 1 ,'' ,'PAA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'CCOOH' , 60.05 ,'' ,-1 ,'' ,-1 ,'VD_ORA' , 1 ,'ACETIC_ACID' , 1 ,'' ,'CCOOH' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'RCO3' , 89.07 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'PAN2' ,135.08 ,'' ,-1 ,'' ,-1 ,'VD_PAN' , 1 ,'PPN' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'xHO2' , 33.01 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'yROOH' , 76.10 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'xCCHO' , 44.05 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'RCOOOH' , 74.08 ,'' ,-1 ,'' ,-1 ,'VD_PAA' , 1 ,'PEROXYACETIC_ACI', 1 ,'' ,'PAA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'RCOOH' , 74.08 ,'' ,-1 ,'' ,-1 ,'VD_ORA' , 1 ,'PROPANOIC_ACID' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'BZCO3' ,137.12 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'PBZN' ,183.13 ,'' ,-1 ,'' ,-1 ,'VD_PAN' , 1 ,'PAN' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'BZO' , 93.00 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'MACO3' ,101.08 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'MAPAN' ,147.09 ,'' ,-1 ,'' ,-1 ,'VD_PAN' , 1 ,'MPAN' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'TBUO' , 73.00 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'RNO3' ,147.18 ,'' ,-1 ,'' ,-1 ,'VD_NTROH' , 1 ,'NTR_OH' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'MTNO3' ,231.00 ,'' ,-1 ,'' ,-1 ,'VD_MTNO3' , 1 ,'MTNO3' , 1 ,'MTNO3' ,'MTNO3' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ACETONE' , 58.08 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'ACETONE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'NPHE' ,139.11 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'2-NITROPHENOL' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'CRES' ,108.14 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'2-CRESOL' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'xOH' , 17.01 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'xNO2' , 46.01 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'xMEO2' , 47.03 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'xMECO3' , 75.04 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'xRCO3' , 89.07 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'xMACO3' ,101.08 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'xTBUO' , 73.00 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'xCO' , 28.01 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'CCHO' , 44.05 ,'' ,-1 ,'' ,-1 ,'VD_ALD' , 1 ,'ACETALDEHYDE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'RCHO' , 58.08 ,'' ,-1 ,'' ,-1 ,'VD_GEN_ALD' , 1 ,'GENERIC_ALDEHYDE', 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'xHCHO' , 30.03 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'MEK' , 72.11 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'MEK' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'zRNO3' ,147.18 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'xRCHO' , 58.08 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'HCOOH' , 46.03 ,'' ,-1 ,'' ,-1 ,'VD_ORA' , 1 ,'FORMIC_ACID' , 1 ,'' ,'FOA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'xMGLY' , 72.07 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'xBACL' , 86.09 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'ROOH' , 76.10 ,'' ,-1 ,'' ,-1 ,'VD_OP' , 1 ,'METHYLHYDROPEROX', 1 ,'' ,'MHP' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'xPROD2' ,116.16 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'R6OOH' ,118.17 ,'' ,-1 ,'' ,-1 ,'VD_OP' , 1 ,'HEXYL_HYDROPEROX', 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'PRD2' ,116.16 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'MEK' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'yR6OOH' ,118.17 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'zMTNO3' ,231.00 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'xMTNO3' ,231.00 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'RAOOH' ,188.18 ,'' ,-1 ,'' ,-1 ,'VD_OP' , 1 ,'HEXYL_HYDROPEROX', 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'MGLY' , 72.07 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'METHYL_GLYOXAL' , 1 ,'' ,'MGLY' ,'Yes' ,'' ,'Yes' ,'Yes', 'IPRD' ,100.12 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'xGLY' , 58.04 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'xMEK' , 72.11 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'xAFG1' , 98.10 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'xAFG2' , 98.10 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'GLY' , 58.04 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'GLYOXAL' , 1 ,'' ,'GLY' ,'Yes' ,'' ,'Yes' ,'Yes', 'AFG1' , 98.10 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'AFG2' , 98.10 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'HCOCO3' , 89.00 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'BACL' , 86.09 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'BIACETYL' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'BALD' ,106.13 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'BENZALDEHYDE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'AFG3' ,124.14 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'xIPRD' ,100.12 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'MACR' , 70.09 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'METHACROLEIN' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'MVK' , 70.09 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'MVK' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'xHOCCHO' , 60.05 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'xRNO3' ,147.18 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'HOCCHO' , 60.05 ,'' ,-1 ,'' ,-1 ,'VD_GEN_ALD' , 1 ,'GENERIC_ALDEHYDE', 1 ,'' ,'GCOL' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'xACETONE' , 58.08 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'ACROLEIN' , 56.06 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'ACROLEIN' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'xBALD' ,106.13 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'xAFG3' ,124.74 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'xMACR' , 70.09 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'xMVK' , 70.09 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'yRAOOH' ,188.18 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'xACROLEIN' , 56.06 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'ETHENE' , 28.05 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'ETHENE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'PROPENE' , 42.08 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'PROPENE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'BUTADIENE13' , 54.09 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'13-BUTADIENE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'ISOPRENE' , 68.12 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'ISOPRENE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'APIN' ,136.23 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'PINENE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'TRPRXN' ,136.00 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'TRPRXN' ,'' ,'' ,'' ,'' ,'' , 'ACETYLENE' , 26.04 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'ACETYLENE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'BENZENE' , 78.11 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'BENZENE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'BENZRO2' ,159.11 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'TOLUENE' , 92.14 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'TOLUENE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'TOLRO2' ,172.14 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'MXYL' ,106.17 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'M-XYLENE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'XYLRO2' ,187.17 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'OXYL' ,106.17 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'O-XYLENE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'PXYL' ,106.17 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'P-XYLENE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'TMBENZ124' ,120.19 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'124TRIMETH_BENZE', 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'ETOH' , 46.07 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'ETHANOL' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'ALK1' , 30.07 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'ETHANE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'ALK2' , 36.73 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'PROPANE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'ALK3' , 58.61 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'BUTANE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'ALK4' , 77.60 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'BUTANE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'ALK5' ,118.89 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'DECANE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'SOAALK' ,112.00 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'DECANE' , 1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'OLE1' , 72.34 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'ETHENE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'OLE2' , 75.78 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'ETHENE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'ARO1' , 95.16 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'TOLUENE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'ARO2MN' ,118.72 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'O-XYLENE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'NAPHTHAL' ,128.20 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'O-XYLENE' , 1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'PAHRO2' ,187.20 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'TERP' ,136.24 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'PINENE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'TERPNRO2' ,197.00 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'SESQ' ,204.35 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'PINENE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'SESQRXN' ,204.35 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'SESQRXN' ,'' ,'' ,'' ,'' ,'' , 'CL2' , 70.00 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'CL2' , 1 ,'' ,'CL2' ,'Yes' ,'' ,'Yes' ,'Yes', 'CL' , 35.50 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'CLNO' , 65.50 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'NITROSYL_CHLORID', 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'CLONO' , 81.50 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'CLNO2' , 81.50 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'NITRYL_CHLORIDE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'HCL' , 36.50 ,'' ,-1 ,'' ,-1 ,'VD_HCL' , 1 ,'HCL' , 1 ,'HCL' ,'HCL' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'CLO' , 51.50 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'CLONO2' , 97.45 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'HOCL' , 52.50 ,'' ,-1 ,'' ,-1 ,'VD_HOCL' , 1 ,'HOCL' , 1 ,'' ,'HOCL' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'xCL' , 35.50 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'xCLCCHO' , 78.50 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'xCLACET' , 92.50 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'' , 'CLCCHO' , 78.50 ,'' ,-1 ,'' ,-1 ,'VD_ALD' , 1 ,'CHLOROACETALDEHY', 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'CLACET' , 92.50 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'CHLOROACETONE' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'CLCHO' , 64.50 ,'' ,-1 ,'' ,-1 ,'VD_FMCL' , 1 ,'FMCL' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'HCHO_PRIMARY' , 30.03 ,'' ,-1 ,'' ,-1 ,'VD_HCHO' ,0.7 ,'FORMALDEHYDE' , 1 ,'' ,'HCHOP' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'CCHO_PRIMARY' , 44.05 ,'' ,-1 ,'' ,-1 ,'VD_ALD' , 1 ,'ACETALDEHYDE' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ACRO_PRIMARY' , 56.06 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'ACROLEIN' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'ISOPO2' ,117.10 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'Yes' ,'.' ,'' ,'Yes', 'ISOPRXN' , 68.00 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'ISOPRXN' ,'' ,'' ,'' ,'' ,'' , 'ISOPND' ,147.10 ,'' ,-1 ,'' ,-1 ,'VD_NTRM' , 1 ,'HYDROXY_NITRATES', 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ISOPNB' ,147.10 ,'' ,-1 ,'' ,-1 ,'VD_NTRM' , 1 ,'HYDROXY_NITRATES', 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'HC5' ,100.10 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'DIBOO' ,133.10 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'ISOPOOH' ,118.10 ,'' ,-1 ,'' ,-1 ,'VD_IEPOX' ,1.5 ,'HYDROXY_PEROXIDE', 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'HPALD' ,116.12 ,'' ,-1 ,'' ,-1 ,'VD_OP' , 1 ,'HYDROXY_PEROXIDE', 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'HACET' , 74.10 ,'' ,-1 ,'' ,-1 ,'VD_HACET' , 1 ,'HACET' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'NISOPO2' ,162.10 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'NIT1' ,145.10 ,'' ,-1 ,'' ,-1 ,'VD_NTRM' , 1 ,'HYDROXY_NITRATES', 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'NISOPOOH' ,163.13 ,'' ,-1 ,'' ,-1 ,'VD_NTRM' , 1 ,'HYDROXY_NITRATES', 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'HC5OO' ,149.10 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'DHMOB' ,132.10 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'ISOPNOOD' ,196.10 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'PROPNN' ,119.10 ,'' ,-1 ,'' ,-1 ,'VD_PROPNN' , 1 ,'PROPNN' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'MVKN' ,149.10 ,'' ,-1 ,'' ,-1 ,'VD_NTRM' , 1 ,'HYDROXY_NITRATES', 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ETHLN' ,105.00 ,'' ,-1 ,'' ,-1 ,'VD_PROPNN' , 1 ,'PROPNN' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'RNO3I' ,147.18 ,'' ,-1 ,'' ,-1 ,'VD_NTRM' , 1 ,'HYDROXY_NITRATES', 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ISOPNOOB' ,196.10 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'MACRN' ,149.10 ,'' ,-1 ,'' ,-1 ,'VD_NTRM' , 1 ,'HYDROXY_NITRATES', 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'NIT1NO3OOA' ,176.10 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'NIT1NO3OOB' ,239.10 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'ISOPNN' ,226.00 ,'' ,-1 ,'' ,-1 ,'VD_ISOPNN' , 1 ,'ISOPNN' , 1 ,'ISOPNN' ,'ISOPNN' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'NIT1OHOO' ,194.12 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'MVKOO' ,119.10 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'MACROO' ,119.10 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'PYRUACD' , 88.10 ,'' ,-1 ,'' ,-1 ,'VD_HNO3' , 1 ,'PYRUVIC_ACID' , 1 ,'' ,'PYRUV' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'IEPOX' ,118.13 ,'' ,-1 ,'' ,-1 ,'VD_IEPOX' ,1.5 ,'IEPOX' , 1 ,'IEPOX' ,'IEPOX' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'IEPOXOO' ,149.12 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'IMACO3' ,101.08 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'Yes' ,'' ,'' ,'Yes', 'IMPAA' ,102.08 ,'' ,-1 ,'' ,-1 ,'VD_PAA' , 1 ,'PEROXYACETIC_ACI', 1 ,'' ,'PAA' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'IMAPAN' ,147.09 ,'' ,-1 ,'' ,-1 ,'VD_PAN' , 1 ,'MPAN' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'IMAE' ,102.00 ,'' ,-1 ,'' ,-1 ,'VD_ORA' , 1 ,'IMAE' , 1 ,'IMAE' ,'IMAE' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'IHMML' ,102.00 ,'' ,-1 ,'' ,-1 ,'VD_ORA' , 1 ,'PROPANOIC_ACID' , 1 ,'IHMML' ,'IHMML' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'H2NO3PIJ' , 64.00 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'H2NO3PK' , 64.00 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'IEPOXP' ,118.13 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'IMAEP' ,102.00 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'IHMMLP' ,102.00 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,'' ,'' ,'' ,'' ,'Yes', 'VLVPO1' ,218.00 ,'' ,-1 ,'' ,-1 ,'VD_ORA' , 1 ,'ADIPIC_ACID' , 1 ,'VLVPO1' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'VSVPO1' ,230.00 ,'' ,-1 ,'' ,-1 ,'VD_ORA' , 1 ,'ADIPIC_ACID' , 1 ,'VSVPO1' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'VSVPO2' ,241.00 ,'' ,-1 ,'' ,-1 ,'VD_ORA' , 1 ,'ADIPIC_ACID' , 1 ,'VSVPO2' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'VSVPO3' ,253.00 ,'' ,-1 ,'' ,-1 ,'VD_ORA' , 1 ,'ADIPIC_ACID' , 1 ,'VSVPO3' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'VIVPO1' ,266.00 ,'' ,-1 ,'' ,-1 ,'VD_ORA' , 1 ,'ADIPIC_ACID' , 1 ,'VIVPO1' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'VLVOO1' ,136.00 ,'' ,-1 ,'' ,-1 ,'VD_ORA' , 1 ,'ADIPIC_ACID' , 1 ,'VLVOO1' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'VLVOO2' ,136.00 ,'' ,-1 ,'' ,-1 ,'VD_ORA' , 1 ,'ADIPIC_ACID' , 1 ,'VLVOO2' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'VSVOO1' ,135.00 ,'' ,-1 ,'' ,-1 ,'VD_ORA' , 1 ,'ADIPIC_ACID' , 1 ,'VSVOO1' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'VSVOO2' ,135.00 ,'' ,-1 ,'' ,-1 ,'VD_ORA' , 1 ,'ADIPIC_ACID' , 1 ,'VSVOO2' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'VSVOO3' ,134.00 ,'' ,-1 ,'' ,-1 ,'VD_ORA' , 1 ,'ADIPIC_ACID' , 1 ,'VSVOO3' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'PCVOC' ,170.00 ,'' ,-1 ,'' ,-1 ,'VD_GEN_ALD' , 1 ,'GENERIC_ALDEHYDE', 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'PCSOARXN' ,170.00 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'PCSOARXN' ,'' ,'' ,'' ,'' ,'' , 'SVAVB1' ,198.00 ,'' ,-1 ,'' ,-1 ,'VD_SVAVB1' , 1 ,'SVAVB1' , 1 ,'SVAVB1' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SVAVB2' ,179.00 ,'' ,-1 ,'' ,-1 ,'VD_SVAVB2' , 1 ,'SVAVB2' , 1 ,'SVAVB2' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SVAVB3' ,169.00 ,'' ,-1 ,'' ,-1 ,'VD_SVAVB3' , 1 ,'SVAVB3' , 1 ,'SVAVB3' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SVAVB4' ,158.00 ,'' ,-1 ,'' ,-1 ,'VD_SVAVB4' , 1 ,'SVAVB4' , 1 ,'SVAVB4' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', / ================================================ FILE: CCTM/src/MECHS/trac0/Species_Table_TR_0.nml ================================================ &TR_nml TR_SPECIES_DATA = / ================================================ FILE: CCTM/src/MECHS/trac1/Species_Table_TR_1.nml ================================================ &TR_nml TR_SPECIES_DATA = !SPECIES ,MOLWT ,IC ,IC_FAC ,BC ,BC_FAC ,DRYDEP SURR,FAC ,WET-SCAV SURR ,FAC ,TR2AE SURR,TR2AQ SURR,ADVC ,DIFF ,DDEP ,WDEP ,CONC 'ADV_25' ,1.0 ,'' ,-1 ,'' ,-1 , , , , ,'NA' ,'NA' ,'Yes' , , , ,'Yes', 'ADV_26' ,1.0 ,'' ,-1 ,'' ,-1 , , , , ,'NA' ,'NA' ,'Yes' , , , ,'Yes', 'ADV_27' ,1.0 ,'' ,-1 ,'' ,-1 , , , , ,'NA' ,'NA' ,'Yes' , , , ,'Yes', 'ADV_28' ,1.0 ,'' ,-1 ,'' ,-1 , , , , ,'NA' ,'NA' ,'Yes' , , , ,'Yes', 'ADV_29' ,1.0 ,'' ,-1 ,'' ,-1 , , , , ,'NA' ,'NA' ,'Yes' , , , ,'Yes', 'ADV_30' ,1.0 ,'' ,-1 ,'' ,-1 , , , , ,'NA' ,'NA' ,'Yes' , , , ,'Yes', 'ADV_31' ,1.0 ,'' ,-1 ,'' ,-1 , , , , ,'NA' ,'NA' ,'Yes' , , , ,'Yes', 'ADV_32' ,1.0 ,'' ,-1 ,'' ,-1 , , , , ,'NA' ,'NA' ,'Yes' , , , ,'Yes', 'ADV_33' ,1.0 ,'' ,-1 ,'' ,-1 , , , , ,'NA' ,'NA' ,'Yes' , , , ,'Yes', 'ADV_34' ,1.0 ,'' ,-1 ,'' ,-1 , , , , ,'NA' ,'NA' ,'Yes' , , , ,'Yes', 'TRN_25' ,1.0 ,'' ,-1 ,'' ,-1 ,'VD_O3' ,1 ,'O3' ,1 ,'NA' ,'NA' ,'Yes' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'TRN_26' ,1.0 ,'' ,-1 ,'' ,-1 ,'VD_O3' ,1 ,'O3' ,1 ,'NA' ,'NA' ,'Yes' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'TRN_27' ,1.0 ,'' ,-1 ,'' ,-1 ,'VD_O3' ,1 ,'O3' ,1 ,'NA' ,'NA' ,'Yes' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'TRN_28' ,1.0 ,'' ,-1 ,'' ,-1 ,'VD_O3' ,1 ,'O3' ,1 ,'NA' ,'NA' ,'Yes' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'TRN_29' ,1.0 ,'' ,-1 ,'' ,-1 ,'VD_O3' ,1 ,'O3' ,1 ,'NA' ,'NA' ,'Yes' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'TRN_30' ,1.0 ,'' ,-1 ,'' ,-1 ,'VD_O3' ,1 ,'O3' ,1 ,'NA' ,'NA' ,'Yes' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'TRN_31' ,1.0 ,'' ,-1 ,'' ,-1 ,'VD_O3' ,1 ,'O3' ,1 ,'NA' ,'NA' ,'Yes' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'TRN_32' ,1.0 ,'' ,-1 ,'' ,-1 ,'VD_O3' ,1 ,'O3' ,1 ,'NA' ,'NA' ,'Yes' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'TRN_33' ,1.0 ,'' ,-1 ,'' ,-1 ,'VD_O3' ,1 ,'O3' ,1 ,'NA' ,'NA' ,'Yes' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'TRN_34' ,1.0 ,'' ,-1 ,'' ,-1 ,'VD_O3' ,1 ,'O3' ,1 ,'NA' ,'NA' ,'Yes' ,'Yes' ,'Yes' ,'Yes' ,'Yes' / ================================================ FILE: CCTM/src/PARIO/PIOGRID.EXT ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/work/rep/PARIO/src/PIOGRID.EXT,v 1.1.1.1 1998/12/18 12:51:29 yoj Exp $ C.................................................................... C INCLUDE FILE PIOGRID.EXT C C CONTAINS: Grid-related variables for parallel Models-3 I/O C library routines. C C C DEPENDENT UPON: none C C REVISION HISTORY: C Original version 7/98 by Al Bourgeois (AJB). C Modified 08/28/98 by AJB to add BTHICK, MY_NROWS, MY_NCOLS, C and MAXCELLS. C.................................................................... C Variables Description C --------- ----------- INTEGER NPROWD ! Number of processors across grid rows. INTEGER NPCOLD ! Number of processors across grid columns. INTEGER GNROWS ! Number of rows in global grid. INTEGER GNCOLS ! Number of columns in global grid. INTEGER GNLAYS ! Number of layers in global grid. INTEGER BTHICK ! Cell thickness of grid boundary. INTEGER NUMROWS ! Row dimension of local-processor arrays. INTEGER NUMCOLS ! Column dimension of local-processor arrays. INTEGER MY_NROWS ! Local number of grid rows actually used. INTEGER MY_NCOLS ! Local number of grid columns actually used. INTEGER MAXCELLS ! Maximum subdomain size (# cells) over PEs. INTEGER NGB_PE(8) ! PE neighborhood, first north then clockwise: ! 8 1 2 ! 7 3 ! 6 5 4 COMMON / PIOGRID / ! type & NPROWD, ! INTEGER & NPCOLD, ! INTEGER & GNROWS, ! INTEGER & GNCOLS, ! INTEGER & GNLAYS, ! INTEGER & BTHICK, ! INTEGER & NUMROWS, ! INTEGER & NUMCOLS, ! INTEGER & MY_NROWS, ! INTEGER & MY_NCOLS, ! INTEGER & MAXCELLS, ! INTEGER & NGB_PE ! INTEGER ================================================ FILE: CCTM/src/PARIO/PIOVARS.EXT ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/work/rep/PARIO/src/PIOVARS.EXT,v 1.2 2002/06/25 14:26:59 yoj Exp $ C.................................................................... C INCLUDE FILE PIOVARS.EXT C CONTAINS: Variables for parallel Models-3 I/O C library routines. C DEPENDENT UPON: none C REVISION HISTORY: C Original version 2/96 by Al Bourgeois (AJB). C Modified 6/98 by AJB for PAR_IO library. Removed species dim. C Modified 07/08/1998 by AJB to add NPROW, NPCOL, IO_GRP, MY_IO_PE. C Modified 07/29/1998 by AJB to move grid variables to another file. C Modified 08/28/1998 by AJB to remove MY_NROWS, MY_NCOLS, MAXCELLS. C 12 Apr 2001, J. Young - eliminate I/O group idea C.................................................................... C Variables Description C --------- ----------- INTEGER MY_PE ! Local processor id. INTEGER IO_PE ! Id of primary processor used for log file COMMON / PIOVARS / & MY_PE, & IO_PE ================================================ FILE: CCTM/src/PARIO/alloc_data_mod.f ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/work/rep/PARIO/src/alloc_data_mod.f,v 1.2 2006/06/05 17:36:42 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% C.................................................................... C CONTAINS: Allocated variables used by pwrgrdd C REVISION HISTORY: C Original version 01/10/05 by David Wong C.................................................................... MODULE ALLOC_DATA_MODULE REAL, ALLOCATABLE, SAVE :: WRITBUF( :,:,: ) REAL, ALLOCATABLE, SAVE :: RECVBUF( : ) END MODULE ALLOC_DATA_MODULE ================================================ FILE: CCTM/src/PARIO/get_write_map.f ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/work/rep/PARIO/src/get_write_map.f,v 1.6 2011/10/20 22:49:57 sjr Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% SUBROUTINE GET_WRITE_MAP( NP, NPC, NPR, NCOLS3D, NROWS3D, NLAYS3D ) C..................................................................... C PURPOSE: Determine the processor-to-grid map for the grid C to be written. C REVISION HISTORY: C Original version 1/1999 by Al Bourgeois, to allow pwrite3 to C write output on a subgrid. C Modified 08/06/1999 by Al Bourgeois to make this a subroutine C instead of a function. C Modified 10/08/01 by David Wong C -- added a missing variable IERR in the SUBDMAP calling arguments C Modified 12/31/02 by David Wong C -- extended to handle dot file C 6 May 06 J.Young C 24 Aug 11 David Wong: extended the implementation to handle window C MET_CRO_3D file C ARGUMENT LIST DESCRIPTION: C E1 in PIOGRID.EXT C M2 in PIOMAPS_MODULE C IN: C INTEGER NP ! Number of processors C INTEGER NPC ! Number of processors across grid cols C INTEGER NPR ! Number of processors across grid rows C INTEGER GNCOLS E1 ! Column dimension of global domain C INTEGER GNROWS E1 ! Row dimension of global domain C INTEGER NCOLS3D ! Column dimension of file variables C INTEGER NROWS3D ! Row dimension of file variables C INTEGER NLAYS3D ! Layer dimension of file variable C INTEGER NCOLS_PE(NP) M2 ! Number columns in each processor C INTEGER NROWS_PE(NP) M2 ! Number rows in each processor C INTEGER COLSX_PE(2,NP) M2 ! Column range for each PE C INTEGER ROWSX_PE(2,NP) M2 ! Row range for each PE C OUT: C INTEGER WR_NCOLS_PE(NP) M2 ! No. cols of each PE subgrid to write C INTEGER WR_NROWS_PE(NP) M2 ! No. rows of each PE subgrid to write C INTEGER WR_COLSX_PE(2,NP) M2 ! Col range of each PE subgrid to write C INTEGER WR_ROWSX_PE(2,NP) M2 ! Row range of each PE subgrid to write C CALLS: SUBDMAP C........................................................................ USE PIOMAPS_MODULE IMPLICIT NONE INCLUDE 'PIOGRID.EXT' C Arguments: INTEGER NP ! Number of processors INTEGER NPR ! Number of processors across grid rows INTEGER NPC ! Number of processors across grid cols INTEGER NCOLS3D ! Column dimension of file variables INTEGER NROWS3D ! Row dimension of file variables INTEGER NLAYS3D ! Layer dimension of file variable C Local Variables: INTEGER I ! Loop index INTEGER IDUMMY ! Dummy argument to SUBDMAP, not used INTEGER IERR ! Return Error code C........................................................................ C Determine the processor-to-subdomain mapping for the grid to C be written. If the file variables to be written are defined on C the entire (global) domain, load the previously defined C decomposition map. Otherwise, get the new mapping on the subgrid. IF (( NCOLS3D .EQ. GNCOLS) .AND. ( NROWS3D .EQ. GNROWS )) THEN C Set the full-grid processor-to-subdomain mapping DO I = 1, NP WR_NCOLS_PE( I ) = NCOLS_PE( I ) WR_NROWS_PE( I ) = NROWS_PE( I ) WR_COLSX_PE( 1,I ) = COLSX_PE( 1,I ) WR_COLSX_PE( 2,I ) = COLSX_PE( 2,I ) WR_ROWSX_PE( 2,I ) = ROWSX_PE( 2,I ) WR_ROWSX_PE( 1,I ) = ROWSX_PE( 1,I ) END DO ELSE IF (( NCOLS3D .EQ. GNCOLS+1) .AND. ( NROWS3D .EQ. GNROWS+1 )) THEN C Set the dot full-grid processor-to-subdomain mapping DO I = 1, NP WR_NCOLS_PE( I ) = NCOLS_PE( I ) WR_NROWS_PE( I ) = NROWS_PE( I ) WR_COLSX_PE( 1,I ) = COLSX_PE( 1,I ) WR_COLSX_PE( 2,I ) = COLSX_PE( 2,I ) WR_ROWSX_PE( 2,I ) = ROWSX_PE( 2,I ) WR_ROWSX_PE( 1,I ) = ROWSX_PE( 1,I ) END DO DO I = NPC, NP, NPC WR_NCOLS_PE( I ) = NCOLS_PE( I ) + 1 WR_COLSX_PE( 2,I ) = COLSX_PE( 2,I ) + 1 END DO DO I = NP, NP-NPC+1, -1 WR_NROWS_PE( I ) = NROWS_PE( I ) + 1 WR_ROWSX_PE( 2,I ) = ROWSX_PE( 2,I ) + 1 END DO ELSE IF (( NCOLS3D .EQ. GNCOLS+2) .AND. ( NROWS3D .EQ. GNROWS+2 )) THEN C Set the extended cross full-grid processor-to-subdomain mapping DO I = 1, NP WR_NCOLS_PE( I ) = NCOLS_PE( I ) WR_NROWS_PE( I ) = NROWS_PE( I ) WR_COLSX_PE( 1,I ) = COLSX_PE( 1,I ) + 1 WR_COLSX_PE( 2,I ) = COLSX_PE( 2,I ) + 1 WR_ROWSX_PE( 2,I ) = ROWSX_PE( 2,I ) + 1 WR_ROWSX_PE( 1,I ) = ROWSX_PE( 1,I ) + 1 END DO DO I = 1, NPC ! south WR_NROWS_PE( I ) = NROWS_PE( I ) + 1 WR_ROWSX_PE( 1,I ) = WR_ROWSX_PE( 1,I ) - 1 END DO DO I = 1, NP, NPC ! west WR_NCOLS_PE( I ) = NCOLS_PE( I ) + 1 WR_COLSX_PE( 1,I ) = WR_COLSX_PE( 1,I ) - 1 END DO DO I = NPC, NP, NPC ! east WR_NCOLS_PE( I ) = NCOLS_PE( I ) + 1 WR_COLSX_PE( 2,I ) = WR_COLSX_PE( 2,I ) + 1 END DO DO I = NP, NP-NPC+1, -1 ! north WR_NROWS_PE( I ) = NROWS_PE( I ) + 1 WR_ROWSX_PE( 2,I ) = WR_ROWSX_PE( 2,I ) + 1 END DO ELSE C Get the subgrid processor-to_subdomain mapping CALL SUBDMAP( NP, NCOLS3D, NROWS3D, NLAYS3D, NPC, NPR, & NCOLS_PE, NROWS_PE, COLSX_PE, ROWSX_PE, & IDUMMY, IERR ) END IF RETURN END ================================================ FILE: CCTM/src/PARIO/parutilio.f ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/work/rep/PARIO/src/parutilio.f,v 1.2 2012/04/11 13:47:45 sjr Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% C.................................................................... C CONTAINS: Interface for PAR I/O procedures C C REVISION HISTORY: C Original version 02/11 by Shawn Roselle C Modified 12/09/2015 by David Wong C -- Added an optional argument in PIO_RE_INIT routine C Modified 01/26/2016 by Jeff Young C -- Change WFLG to an optional argument, eliminate PIO_RE_INIT, and make C PIO_INIT the only routine with a new optional IO_PE_INCLUSIVE argument; C replace WRSUBMAP with the new WRSUBDMAP C Modified 02/01/2019 by David Wong C removed unnecessary function declaration C.................................................................... MODULE PARUTILIO IMPLICIT NONE C...Declare PWRITE3 outside the interface block: with check interface C... option, compilers complained about type mismatches for buffer C... array passed to function PWRITE3 (when included in interface). LOGICAL, EXTERNAL :: PWRITE3 C...Interface INTERFACE ! SUBROUTINE BOUNDARY ( GNBNDY, NBNDY, NLAYS, BTHICK, NEIGHBOR, ! & MY_COL1, MY_ROW1, NCOL, NROW, ! & GNCOLS, GNROWS, GARRAY, LARRAY ) ! INTEGER :: NLAYS ! INTEGER :: NBNDY ! INTEGER :: GNBNDY ! INTEGER :: BTHICK ! INTEGER :: NEIGHBOR(8) ! INTEGER :: MY_COL1 ! INTEGER :: MY_ROW1 ! INTEGER :: NCOL ! INTEGER :: NROW ! INTEGER :: GNCOLS ! INTEGER :: GNROWS ! REAL :: GARRAY( GNBNDY,NLAYS ) ! REAL :: LARRAY( NBNDY,NLAYS ) ! END SUBROUTINE BOUNDARY SUBROUTINE GET_WRITE_MAP ( NP, NPC, NPR, NCOLS3D, NROWS3D, NLAYS3D ) INTEGER :: NP INTEGER :: NPC INTEGER :: NPR INTEGER :: NCOLS3D INTEGER :: NROWS3D INTEGER :: NLAYS3D END SUBROUTINE GET_WRITE_MAP ! LOGICAL FUNCTION GROWBUF( PTR_ARRAY, END ) ! USE PINTERPB_MODULE ! TYPE (MEM_TYPE) :: PTR_ARRAY ! INTEGER, INTENT(IN) :: END ! END FUNCTION GROWBUF LOGICAL FUNCTION GTNDXHDV( FILE, VAR, JDATE, JTIME, VARSIZE, NBVS, & ENDBUF, VX, NEWVAR ) CHARACTER(16) :: FILE CHARACTER(16) :: VAR INTEGER :: JDATE INTEGER :: JTIME INTEGER :: VARSIZE INTEGER :: NBVS INTEGER :: ENDBUF INTEGER :: VX LOGICAL :: NEWVAR END FUNCTION GTNDXHDV LOGICAL FUNCTION INTERPOL( DATE, TIME, DATE1, TIME1, DATE2, TIME2, & NUMVALS, VALSIN1, VALSIN2, VALSOUT, S_IND, E_IND ) INTEGER, INTENT(IN) :: NUMVALS INTEGER, INTENT(IN) :: DATE INTEGER, INTENT(IN) :: TIME INTEGER, INTENT(IN) :: DATE1 INTEGER, INTENT(IN) :: TIME1 INTEGER, INTENT(IN) :: DATE2 INTEGER, INTENT(IN) :: TIME2 REAL, INTENT(IN) :: VALSIN1( NUMVALS ) REAL, INTENT(IN) :: VALSIN2( NUMVALS ) REAL, INTENT(OUT) :: VALSOUT( NUMVALS ) INTEGER, INTENT(IN), OPTIONAL :: S_IND, E_IND END FUNCTION INTERPOL ! LOGICAL FUNCTION PINTERPB( FILNAME, VARNAME, CALLER, JDATE, JTIME, ! & VSIZE, VARRAY, LVL ) ! INTEGER, INTENT(IN) :: VSIZE ! CHARACTER(16), INTENT(IN) :: FILNAME ! CHARACTER(*), INTENT(IN) :: VARNAME ! CHARACTER(*), INTENT(IN) :: CALLER ! INTEGER, INTENT(IN) :: JDATE ! INTEGER, INTENT(IN) :: JTIME ! REAL, INTENT(OUT) :: VARRAY( VSIZE ) ! INTEGER, INTENT(IN), OPTIONAL :: LVL ! END FUNCTION PINTERPB LOGICAL FUNCTION PIO_INIT( colrow, gl_ncols, gl_nrows, nlays, & nthik, ncols, nrows, npcol, nprow, & nprocs, mype, wflg, io_pe_inclusive ) CHARACTER(2), INTENT(INOUT) :: colrow INTEGER, INTENT(IN) :: gl_ncols INTEGER, INTENT(IN) :: gl_nrows INTEGER, INTENT(IN) :: nlays INTEGER, INTENT(IN) :: nthik INTEGER, INTENT(IN) :: ncols INTEGER, INTENT(IN) :: nrows INTEGER, INTENT(IN) :: npcol INTEGER, INTENT(IN) :: nprow INTEGER, INTENT(IN) :: nprocs INTEGER, INTENT(IN) :: mype LOGICAL, INTENT(IN), OPTIONAL :: wflg LOGICAL, INTENT(IN), OPTIONAL :: io_pe_inclusive END FUNCTION PIO_INIT C Note: more than one optional argument requires that the caller calls by name SUBROUTINE PM3ERR ( CALLER, JDATE, JTIME, ERRTXT, FATAL ) CHARACTER(*) :: CALLER INTEGER :: JDATE INTEGER :: JTIME CHARACTER(*) :: ERRTXT LOGICAL :: FATAL END SUBROUTINE PM3ERR SUBROUTINE PM3EXIT ( CALLER, JDATE, JTIME, MSGTXT, EXITSTAT ) CHARACTER(*) :: CALLER INTEGER :: JDATE INTEGER :: JTIME CHARACTER(*) :: MSGTXT INTEGER :: EXITSTAT END SUBROUTINE PM3EXIT SUBROUTINE PM3WARN ( CALLER, JDATE, JTIME, ERRTXT ) CHARACTER(*) :: CALLER INTEGER :: JDATE INTEGER :: JTIME CHARACTER(*) :: ERRTXT END SUBROUTINE PM3WARN LOGICAL FUNCTION PSHUT3 () END FUNCTION PSHUT3 LOGICAL FUNCTION PTRWRITE3( FNAME, VNAME, JDATE, JTIME, BUFFER ) CHARACTER(*) :: FNAME CHARACTER(*) :: VNAME INTEGER :: JDATE INTEGER :: JTIME REAL, POINTER :: BUFFER( :,:,:,: ) END FUNCTION PTRWRITE3 LOGICAL FUNCTION PWRGRDD( FILNAME, VARNAME, DATE, TIME, BUFFER, & NCOLS3D, NROWS3D, NLAYS3D, NCOLS, NROWS, & NP ) INTEGER :: NROWS INTEGER :: NCOLS INTEGER :: NLAYS3D CHARACTER(*) :: FILNAME CHARACTER(*) :: VARNAME INTEGER :: DATE INTEGER :: TIME REAL :: BUFFER( NCOLS,NROWS,NLAYS3D ) INTEGER :: NCOLS3D INTEGER :: NROWS3D INTEGER :: NP END FUNCTION PWRGRDD LOGICAL FUNCTION READBNDY( FILNAME, VARNAME, VX, NBNDY, NLAYS, & DATE, TIME, RFLAG, FLIP ) CHARACTER(16) :: FILNAME CHARACTER(16) :: VARNAME INTEGER :: VX INTEGER :: NBNDY INTEGER :: NLAYS INTEGER :: DATE(2) INTEGER :: TIME(2) INTEGER :: RFLAG INTEGER :: FLIP END FUNCTION READBNDY SUBROUTINE SUBDMAP ( NUMPROCS, NCOLS, NROWS, NLAYS, NPCOL, NPROW, & NCOLS_PE, NROWS_PE, COLSX_PE, ROWSX_PE, & MAXCELLS, IERR ) INTEGER :: NUMPROCS INTEGER :: NCOLS INTEGER :: NROWS INTEGER :: NLAYS INTEGER :: NPCOL INTEGER :: NPROW INTEGER :: NCOLS_PE( NUMPROCS ) INTEGER :: NROWS_PE( NUMPROCS ) INTEGER :: COLSX_PE( 2,NUMPROCS ) INTEGER :: ROWSX_PE( 2,NUMPROCS ) INTEGER :: MAXCELLS INTEGER :: IERR END SUBROUTINE SUBDMAP SUBROUTINE WRSUBDMAP ( NUMPROCS, NCOLS_PE, NROWS_PE, COLSX_PE, & ROWSX_PE ) INTEGER :: NUMPROCS INTEGER :: NCOLS_PE(*) INTEGER :: NROWS_PE(*) INTEGER :: COLSX_PE(2,*) INTEGER :: ROWSX_PE(2,*) END SUBROUTINE WRSUBDMAP END INTERFACE END MODULE PARUTILIO ================================================ FILE: CCTM/src/PARIO/pio_init.f ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/work/rep/PARIO/src/pio_re_init.f,v 1.6 2011/03/30 18:13:02 sjr Exp $ LOGICAL FUNCTION PIO_INIT ( COLROW, GL_NCOLS, GL_NROWS, NLAYS, & NTHIK, NCOLS, NROWS, NPCOL, NPROW, & NPROCS, MYPE, WFLG, IO_PE_INCLUSIVE ) C .................................................................... C PURPOSE: Initialize parallel Models-3 I/O API library routines. C This includes starting up the I/O API and calculating C processor-to-subdomain maps. C RETURN VALUE: The function as written always returns a value of TRUE. C (i.e., this could have been written as a subroutine, but is C written as a FUNCTION in the anticipation that failure conditions C will be added.) If subroutine ALLOINT a non-zero error code, C M3WARN is called and execution is terminated. Subroutine C SUBDMAP will also terminate program execution if an error is C detected during memory allocation. C REVISION HISTORY: C Original version 2/96 by Al Bourgeois for parallel implementation C Modified 6/98 by AJB for PAR_IO library, added error code C Modified 07/08/1998 by AJB to set IO_GRP and MY_IO_PE C Modified 07/29/1998 by AJB to allow setting of NPROW, NPCOL outside C Also added synchronization of return code across processors C Modified 08/25/1998 to remove MPI initialization, and to pass in C grid decomposition variables through the argument list C Modified 12/07/1998 by Al Bourgeois to add EXTERNAL declarations C Modified 01/26/1999 by Al Bourgeois to allocate memory for write maps C Modified 06/16/1999 by Al Bourgeois to remove interprocessor C synchronization. This removes the guarantee that all processors C return the same error code, and a "hang" state can occur if C PM3EXIT is not called on the condition that this function fails C Modified 08/06/1999 by Al Bourgeois to simplify error handling C 12 Apr 2001 by J. Young to eliminate I/O processors C Modified 02/06/2004 by David Wong C -- uses f90 syntax to allocate memory to avoid using DYNMEM C library C Modified 08/26/2004 by David Wong C -- added a statement to check whether allocated memory is already C exist C 01/07/2006 Jeff Young, add arg list flag to optionally print C decomposition map C Modified 02/23/2011 by Shawn Roselle C -- Replaced I/O API include files with M3UTILIO C Modified 12/05/2015 by David Wong C -- Initialized PIO_GL_NCOLS and PIO_GL_NROWS C Modified 12/09/2015 by David Wong C -- Added an optional argument in PIO_RE_INIT routine C Modified 01/26/2016 by Jeff Young C -- Change WFLG to an optional argument and make PIO_RE_INIT the only C PIO_INIT routine C ARGUMENT LIST DESCRIPTION: C IN: C CHARACTER( 2 ) :: COLROW ! Columns/Rows orientation check C INTEGER GL_NCOLS ! Number of columns in entire grid C INTEGER GL_NROWS ! Number of rows in entire grid C INTEGER NLAYS ! Number of layers in entire grid C INTEGER NTHIK ! Cell thickness of grid boundary C INTEGER NPCOL ! Number of processors across grid columns C INTEGER NPROW ! Number of processors across grid rows C INTEGER NCOLS ! Column dimension of local-processor arrays C INTEGER NROWS ! Row dimension of local-processor arrays C INTEGER NPROCS ! Number of processors C INTEGER MYPE ! Local processor id C LOGICAL WFLG ! If present print out decompostion map C LOGICAL IO_PE_INCLUSIVE ! If present C OUT: C COMMON BLOCK PIOGRID: C INTEGER NPCOLD ! Number of processors across grid columns C INTEGER NPROWD ! Number of processors across grid rows C INTEGER GNCOLS ! Number of columns in global grid C INTEGER GNROWS ! Number of rows in global grid C INTEGER BTHICK ! Cell thickness of grid boundary C INTEGER NUMCOLS ! Column dimension of local-processor arrays C INTEGER NUMROWS ! Row dimension of local-processor arrays C INTEGER MY_NCOLS ! Local number of grid columns C INTEGER MY_NROWS ! Local number of grid rows C INTEGER MAXCELLS ! Maximum subdomain size over PEs C INTEGER NGB_PE(8) ! PE neighborhood, first north then clockwise C COMMON BLOCK PIOVARS: C INTEGER MY_PE ! Local processor id C INTEGER IO_PE ! Id of processor used for file I/O C COMMON BLOCK PIOMAPS: C INTEGER NUMPROCS ! Number of processors C INTEGER NCOLS_PE(NUMPROCS) ! Number columns in each processor C INTEGER NROWS_PE(NUMPROCS) ! Number rows in each processor C INTEGER COLSX_PE(2,NUMPROCS) ! Column range for each PE C INTEGER ROWSX_PE(2,NUMPROCS) ! Row range for each PE C LOCAL VARIABLE DESCRIPTION: see below C CALLS: SUBDMAP, WRSUBDMAP, ALLOINT, SETINT, M3WARN C NOTES: Uses dynamic memory allocation for processor-to-subdomain C maps NROWS_PE, ROWSX_PE, NCOLS_PE, and COLSX_PE C To hide parallelism, domain decomposition information is maintained C via COMMON blocks instead of subroutine arguments. C The group-I/O flag, IO_GRP, determines if a processor will partici- C pate in file reading operations. This depends on the arrangement C of processors distributed across grid rows (NPROW). The following C diagram shows the situation for an example subdomain layout. In the C example, IO_GRP would be set to 1 on PE 0 and PE 4, and set to 0 on C all other PEs. C NPCOL C Example subdomain layout _____________________________________ C for 8 processors with | | | | | C NPROW=2, NPCOL=4 | I/O | | | | C | 4 | 5 | 6 | 7 | C PE 0 will read | | | | | C for PEs 0,1,2,3 NPROW |_________|_________|________|________| C | | | | | C PE 4 will read | I/O | | | | C for PEs 4,5,6,7 | 0 | 1 | 2 | 3 | C | | | | | C | | | | | C |_________|_________|________|________| C ....................................................................... USE PIOMAPS_MODULE USE M3UTILIO ! i/o api IMPLICIT NONE C INCLUDE FILES INCLUDE 'PIOGRID.EXT' ! Parallel grid dimensions INCLUDE 'PIOVARS.EXT' ! Parameters for parallel implementation ! INCLUDE 'PIOMAPS.EXT' ! Parallel processor-to-subdomain maps C ARGUMENTS: CHARACTER( 2 ), INTENT( INOUT ) :: COLROW ! Columns/Rows orientation check INTEGER, INTENT( IN ) :: GL_NCOLS ! Number of columns in entire grid INTEGER, INTENT( IN ) :: GL_NROWS ! Number of rows in entire grid INTEGER, INTENT( IN ) :: NLAYS ! Number of layers in entire grid INTEGER, INTENT( IN ) :: NTHIK ! Cell thickness of grid boundary INTEGER, INTENT( IN ) :: NPCOL ! Number of processors across grid cols INTEGER, INTENT( IN ) :: NPROW ! Number of processors across grid rows INTEGER, INTENT( IN ) :: NCOLS ! Col dimension of local-processor arrays INTEGER, INTENT( IN ) :: NROWS ! Row dimension of local-processor arrays INTEGER, INTENT( IN ) :: NPROCS ! Number of processors INTEGER, INTENT( IN ) :: MYPE ! Local processor id LOGICAL, INTENT( IN ), OPTIONAL :: WFLG ! If present print out decomposition map LOGICAL, INTENT( IN ), OPTIONAL :: IO_PE_INCLUSIVE C EXTERNAL FUNCTIONS: EXTERNAL SUBDMAP, WRSUBDMAP ! Parallel M3IO library C LOCAL VARIABLES: INTEGER I ! Loop index INTEGER J ! Loop index INTEGER LOCI ! Row index of MYPE in Cartesian coordinate INTEGER LOCJ ! Col. index of MYPE in Cartesian coordinate INTEGER POS ! Index into neighborhood conversion table INTEGER CONV( 8 ) ! Processor neighborhood conversion table INTEGER IERROR ! Error code INTEGER LOGDEV ! FORTRAN unit number for log file CHARACTER( 80 ) :: MSG ! For message issued from M3WARN CHARACTER( 16 ), SAVE :: PNAME = 'PIO_INIT' LOGICAL, SAVE :: FIRST_TIME = .TRUE. C Equivalence of the conversion table: C C (LOCI+1, LOCJ-1) (LOCI+1, LOCJ) (LOCI+1, LOCJ+1) 8 1 2 C ( LOCI, LOCJ-1) ( LOCI, LOCJ) ( LOCI, LOCJ+1) equivalent to 7 3 C (LOCI-1, LOCJ-1) (LOCI-1, LOCJ) (LOCI-1, LOCJ+1) 6 5 4 DATA CONV / 8, 1, 2, 7, 3, 6, 5, 4 / C ....................................................................... C Initialize return value and error code CALL UPCASE ( COLROW ) IF ( COLROW .eq. 'CR' ) THEN PIO_INIT = .TRUE. ELSE MSG = 'Argument list must have cols/rows orientation.' CALL M3WARN( PNAME, 0, 0, MSG ) PIO_INIT = .FALSE.; RETURN END IF IERROR = 0 C Set COMMON block variables. NUMPROCS = NPROCS ! Number of processors A MY_PE = MYPE ! Local processor id B IO_PE = 0 ! I/O processor id B NPCOLD = NPCOL ! Number of processors across grid columns C NPROWD = NPROW ! Number of processors across grid rows C GNCOLS = GL_NCOLS ! Number of columns in global grid C GNROWS = GL_NROWS ! Number of rows in global grid C GNLAYS = NLAYS ! Number of layers in global grid C BTHICK = NTHIK ! Cell thickness of grid boundary C NUMCOLS = NCOLS ! Number of columns in local subgrid C NUMROWS = NROWS ! Number of rows in local subgrid C PIO_GL_NCOLS = GL_NCOLS ! Number of columns in global grid C PIO_GL_NROWS = GL_NROWS ! Number of rows in global grid C C A - PIOMAPS_MODULE C B - PIOVARS.EXT C C - PIOGRID.EXT C set flag in PIOMAPS_MODULE for PSHUT3 IF ( PRESENT( IO_PE_INCLUSIVE ) ) THEN PARIO_IO_PE_INCLUSIVE = IO_PE_INCLUSIVE END IF C Compute processor neighborhood LOCI = MY_PE / NPCOL LOCJ = MOD ( MY_PE, NPCOL ) POS = 0 DO I = LOCI+1, LOCI-1, -1 DO J = LOCJ-1, LOCJ+1 IF ( ( I .NE. LOCI ) .OR. ( J .NE. LOCJ ) ) THEN POS = POS + 1 IF ( ( I .GE. 0 ) .AND. & ( I .LT. NPROW ) .AND. & ( J .GE. 0 ) .AND. & ( J .LT. NPCOL ) ) THEN NGB_PE( CONV( POS ) ) = I * NPCOL + J ELSE NGB_PE( CONV( POS ) ) = -1 END IF END IF END DO END DO C Allocate memory for processor-to-subdomain maps IF ( .NOT. ALLOCATED ( NCOLS_PE ) ) THEN ALLOCATE ( NCOLS_PE( NUMPROCS ), STAT = IERROR ) IF ( IERROR .NE. 0 ) THEN MSG = 'Error allocating NCOLS_PE.' CALL M3WARN( PNAME, 0, 0, MSG ) PIO_INIT = .FALSE.; RETURN END IF ALLOCATE ( NROWS_PE( NUMPROCS ), STAT = IERROR ) IF ( IERROR .NE. 0 ) THEN MSG = 'Error allocating NROWS_PE.' CALL M3WARN( PNAME, 0, 0, MSG ) PIO_INIT = .FALSE.; RETURN END IF ALLOCATE ( COLSX_PE( 2,NUMPROCS ), STAT = IERROR ) IF ( IERROR .NE. 0 ) THEN MSG = 'Error allocating COLSX_PE.' CALL M3WARN( PNAME, 0, 0, MSG ) PIO_INIT = .FALSE.; RETURN END IF ALLOCATE ( ROWSX_PE( 2,NUMPROCS ), STAT = IERROR ) IF ( IERROR .NE. 0 ) THEN MSG = 'Error allocating ROWSX_PE.' CALL M3WARN( PNAME, 0, 0, MSG ) PIO_INIT = .FALSE.; RETURN END IF C Allocate memory for processor-to-subdomain write maps ALLOCATE ( WR_NCOLS_PE( NUMPROCS ), STAT = IERROR ) IF ( IERROR .NE. 0 ) THEN MSG = 'Error allocating WR_NCOLS_PE.' CALL M3WARN( PNAME, 0, 0, MSG ) PIO_INIT = .FALSE.; RETURN END IF ALLOCATE ( WR_NROWS_PE( NUMPROCS ), STAT = IERROR ) IF ( IERROR .NE. 0 ) THEN MSG = 'Error allocating WR_NROWS_PE.' CALL M3WARN( PNAME, 0, 0, MSG ) PIO_INIT = .FALSE.; RETURN END IF ALLOCATE ( WR_COLSX_PE( 2,NUMPROCS ), STAT = IERROR ) IF ( IERROR .NE. 0 ) THEN MSG = 'Error allocating WR_COLSX_PE.' CALL M3WARN( PNAME, 0, 0, MSG ) PIO_INIT = .FALSE.; RETURN END IF ALLOCATE ( WR_ROWSX_PE( 2,NUMPROCS ), STAT = IERROR ) IF ( IERROR .NE. 0 ) THEN MSG = 'Error allocating WR_ROWSX_PE.' CALL M3WARN( PNAME, 0, 0, MSG ) PIO_INIT = .FALSE.; RETURN END IF END IF C Calculate processor-to-subdomain maps CALL SUBDMAP ( NUMPROCS, GL_NCOLS, GL_NROWS, NLAYS, NPCOL, NPROW, & NCOLS_PE, NROWS_PE, COLSX_PE, ROWSX_PE, & MAXCELLS, IERROR ) IF ( IERROR .NE. 0 ) THEN MSG = 'Error in SUBDMAP' CALL M3WARN( PNAME, 0, 0, MSG ) PIO_INIT = .FALSE.; RETURN END IF C Write out processor-to-subdomain map IF ( MY_PE .EQ. IO_PE ) THEN IF ( PRESENT( WFLG ) .AND. FIRST_TIME ) THEN FIRST_TIME = .FALSE. CALL WRSUBDMAP ( NUMPROCS, NCOLS_PE, NROWS_PE, COLSX_PE, ROWSX_PE ) END IF END IF C Set number of rows and columns for (this) local processor MY_NCOLS = NCOLS_PE( MY_PE+1 ) ! COMMON block MY_NROWS = NROWS_PE( MY_PE+1 ) ! COMMON block RETURN END FUNCTION PIO_INIT ================================================ FILE: CCTM/src/PARIO/piomaps_mod.f ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/work/rep/PARIO/src/piomaps_mod.f,v 1.2 2006/06/05 17:36:43 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% C.................................................................... C CONTAINS: Processor-to-subdomain maps for parallel Models-3 C I/O routines. C DEPENDENT UPON: none C REVISION HISTORY: C Original version 02/04 by David Wong C Modified 12/05/2015 by David Wong C -- Added two new varaible PIO_GL_NCOLS and PIO_GL_NROWS C Modified 12/09/2015 by David Wong C -- Introduced a new variable PARIO_IO_PE_INCLUSIVE to determine C which procesor involves in file closing process C NOTES: The mapping assumes 2-dimensional subdomain decomposition, C over grid rows and columns. C.................................................................... C ---------------------------------------------------- C The arrays below are allocated by function PIO_INIT. C ---------------------------------------------------- C INTEGER NUMPROCS Number of processors. C INTEGER NCOLS_PE( NUMPROCS ) Number grid columns in the processor C INTEGER NROWS_PE( NUMPROCS ) Number grid rows in the processor C INTEGER COLSX_PE( 2,NUMPROCS ) Processor column range: C COLSX_PE(1,*) = start column index C COLSX_PE(2,*) = end column index C INTEGER ROWSX_PE( 2,NUMPROCS ) Processor row range: C ROWSX_PE(1,*) = start row index C ROWSX_PE(2,*) = end row index C INTEGER WR_NCOLS_PE( NUMPROCS ) Number of columns in the processor C subgrid to write C INTEGER WR_NROWS_PE( NUMPROCS ) Number of rows in the processor C subgrid to write C ROWSX_PE(2,*) = end row index C INTEGER WR_COLSX_PE( 2,NUMPROCS ) Column range of the processor subgrid C to write C COLSX_PE(1,*) = start column index C COLSX_PE(2,*) = end column index C INTEGER WR_ROWSX_PE( 2,NUMPROCS ) Row range of the processor subgrid C to write C ROWSX_PE(1,*) = start row index C.................................................................... MODULE PIOMAPS_MODULE INTEGER NUMPROCS INTEGER, ALLOCATABLE :: NCOLS_PE( : ) INTEGER, ALLOCATABLE :: COLSX_PE( :,: ) INTEGER, ALLOCATABLE :: NROWS_PE( : ) INTEGER, ALLOCATABLE :: ROWSX_PE( :,: ) INTEGER, ALLOCATABLE :: WR_NCOLS_PE( : ) INTEGER, ALLOCATABLE :: WR_COLSX_PE( :,: ) INTEGER, ALLOCATABLE :: WR_NROWS_PE( : ) INTEGER, ALLOCATABLE :: WR_ROWSX_PE( :,: ) integer :: pio_gl_ncols integer :: pio_gl_nrows LOGICAL :: PARIO_IO_PE_INCLUSIVE END MODULE PIOMAPS_MODULE ================================================ FILE: CCTM/src/PARIO/pm3err.f ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE PM3ERR( CALLER, JDATE, JTIME, ERRTXT, FATAL ) C..................................................................... C C PURPOSE: Provides M3ERR functionality in a parallel environment. C The processor-id suffix is appended to the name of the C caller. Generate simple error messages for Models-3, and C terminate program execution via MPI_ABORT iff FATAL. C C C PRECONDITIONS REQUIRED: Same as for M3EXIT. C C C REVISION HISTORY: C Original version 07/1999 by Al Bourgeois to provide proper C program exiting in parallel environment. C Modified 02/23/2011 by Shawn Roselle C -- Replaced I/O API include files with M3UTILIO; removed C deprecated TRIMLEN C C C ARGUMENT LIST DESCRIPTION: C IN: C CHARACTER*(*) CALLER ! Name of the caller. C INTEGER JDATE ! Model date for the error. C INTEGER JTIME ! Model time for the error. C CHARACTER*(*) ERRTXT ! Error message. C LOGICAL FATAL ! Terminate program iff TRUE. C C COMMON BLOCK PIOVARS: C INTEGER MY_PE ! Local processor id. C C OUT: none C C SUBROUTINES AND FUNCTIONS CALLS: INIT3, SHUT3, MPI_ABORT, INQUIRE. C C*********************************************************************** USE M3UTILIO ! i/o api USE RUNTIME_VARS IMPLICIT NONE C........... INCLUDES: INCLUDE 'mpif.h' ! MPI definitions and parameters. INCLUDE 'PIOVARS.EXT' ! Parameters for parallel implementation. C........... ARGUMENTS and their descriptions: CHARACTER*(*) CALLER ! Name of the caller. INTEGER JDATE ! Model date for the error. INTEGER JTIME ! Model time for the error. CHARACTER*(*) ERRTXT ! Error message. LOGICAL FATAL ! Terminate program iff TRUE. C........... LOCAL VARIABLES INTEGER LENSTR ! String length of CALLER. INTEGER IDEV ! Loop counter over FORTRAN unit numbers. INTEGER ERRCODE ! Error code from abort attempt. INTEGER IERROR ! Error from MPI_ABORT routine. LOGICAL OFLAG ! Flag for indicating file open. CHARACTER*24 DTBUF ! Scratch area for date string. CHARACTER*7 PE_STR ! String suffix to go with processor ID. CHARACTER*16 CALL16 ! First 16 characters of CALLER. CHARACTER*26 PCALLER ! New caller string with PE information. C............................................................................. C begin subroutine PM3ERR errcode = 1 ! arbitrary C....... Construct new CALLER string. WRITE (PE_STR,'(A7)') ' on PE ' C....... Construct new CALLER string. LENSTR = MIN( 16, LEN_TRIM( CALLER ) ) CALL16 = CALLER( 1: LENSTR ) PCALLER = CALL16(1:LENSTR)//PE_STR//CMYPE C....... Do M3ERR tasks. IF ( FATAL ) THEN ! Print error messages and exit. WRITE( LOGDEV,91010 ) PCALLER, TRIM( ERRTXT ) IF ( JDATE .GT. 0 .OR. JTIME .GT. 0 ) THEN DTBUF = DT2STR( JDATE, JTIME ) WRITE( LOGDEV,* ) 'PM3ERR: DTBUF ', DTBUF WRITE( LOGDEV,91011 ) DTBUF, JDATE, JTIME ELSE WRITE( LOGDEV,* ) 'PM3ERR: date&time specified as 0' WRITE( LOGDEV,91012 ) 'Date&time specified as 0' END IF IF ( .NOT. SHUT3() ) THEN WRITE( LOGDEV,91000 ) & 'Could not shut down I/ O API files correctly', & ' ', ' ' END IF DO 11 IDEV = 10, 99 INQUIRE( UNIT = IDEV, OPENED = OFLAG ) IF ( OFLAG ) CLOSE( IDEV ) 11 CONTINUE C....... Abort all parallel tasks. CALL MPI_ABORT( MPI_COMM_WORLD, ERRCODE, IERROR ) ELSE ! Print error message but do not exit. WRITE( LOGDEV,91020 ) PCALLER, TRIM( ERRTXT ) IF ( JDATE .GT. 0 .OR. JTIME .GT. 0 ) THEN WRITE( LOGDEV,91011 ) & DT2STR( JDATE, JTIME ), JDATE, JTIME END IF RETURN END IF C****************** FORMAT STATEMENTS ****************************** C........... Error and warning message formats..... 91xxx 91000 FORMAT ( //5X , '*** ERROR ABORT in subroutine PM3ERR ***', & /5X , A , // ) 91010 FORMAT ( //5X , '*** ERROR ABORT in subroutine ', A, & /5X , A ) 91011 FORMAT ( 5X , 'Date and time ', A, :, & ' (', I7, ':', I6.6, ')' ) 91012 FORMAT ( 5X , A ) 91020 FORMAT ( /5X , '>>--->> WARNING in subroutine ', A, & /5X , A ) END ================================================ FILE: CCTM/src/PARIO/pm3exit.f ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE PM3EXIT( CALLER, JDATE, JTIME, MSGTXT, EXITSTAT ) C..................................................................... C C PURPOSE: Provides M3EXIT functionality in a parallel environment. C The processor-id suffix is appended to the name of the C caller. Generate simple error messages for Models-3. C Program execution is terminated via exit(0) if exitstat C is zero and by MPI_ABORT otherwise. C C C PRECONDITIONS REQUIRED: Same as for M3EXIT. C C C REVISION HISTORY: C Original version 07/1998 by Al Bourgeois. C Modified 12/07/1998 by Al Bourgeois to add EXTERNAL declarations. C Modified 06/11/1999 by Al Bourgeois to cause all processors to exit. C Modified 02/23/2011 by Shawn Roselle C -- Replaced I/O API include files with M3UTILIO; removed C deprecated TRIMLEN C Modified 09/19/2011 by David Wong C -- Replaced MPI_FINALIZE with MPI_ABORT to avoid hanging situation C C C ARGUMENT LIST DESCRIPTION: C IN: C CHARACTER*(*) CALLER ! Name of the caller. C INTEGER JDATE ! Model date for the error. C INTEGER JTIME ! Model time for the error. C CHARACTER*(*) MSGTXT ! Error message. C INTEGER EXITSTAT ! Exit status for program. C C COMMON BLOCK PIOVARS: C INTEGER MY_PE ! Local processor id. C C OUT: none C C SUBROUTINES AND FUNCTIONS CALLS: INIT3, SHUT3, MPI_ABORT, INQUIRE. C C*********************************************************************** USE M3UTILIO ! i/o api USE RUNTIME_VARS IMPLICIT NONE C........... INCLUDES: INCLUDE 'mpif.h' ! MPI definitions and parameters. INCLUDE 'PIOVARS.EXT' ! Parameters for parallel implementation. C........... ARGUMENTS and their descriptions: CHARACTER*(*) CALLER ! Name of the caller. INTEGER JDATE ! Model date for the error. INTEGER JTIME ! Model time for the error. CHARACTER*(*) MSGTXT ! Error message. INTEGER EXITSTAT ! Exit status for program. C........... LOCAL VARIABLES INTEGER LENSTR ! String length of CALLER. INTEGER IDEV ! Loop counter over FORTRAN unit numbers. INTEGER ERRCODE ! Error code from abort attempt. INTEGER IERROR ! Error from MPI_ABORT routine. LOGICAL OFLAG ! Flag for indicating file open. CHARACTER*24 DTBUF ! Scratch area for date string. CHARACTER*7 PE_STR ! String suffix to go with processor ID. CHARACTER*16 CALL16 ! First 16 characters of CALLER. CHARACTER*26 PCALLER ! New caller string with PE information. C............................................................................. C begin subroutine PM3EXIT errcode = 1 ! arbitrary C....... Construct new CALLER string. WRITE (PE_STR,'(A7)') ' on PE ' C....... Construct new CALLER string. LENSTR = MIN( 16, LEN_TRIM(CALLER) ) CALL16 = CALLER( 1: LENSTR ) PCALLER = CALL16(1:LENSTR)//PE_STR//CMYPE C....... Do M3EXIT tasks. IF ( EXITSTAT .NE. 0 ) THEN ! Print messages for abnormal abort. WRITE( OUTDEV,91010 ) PCALLER, TRIM( MSGTXT ) WRITE( LOGDEV,91010 ) PCALLER, TRIM( MSGTXT ) FLUSH( LOGDEV ) IF ( JDATE .GT. 0 .OR. JTIME .GT. 0 ) THEN DTBUF = DT2STR( JDATE, JTIME ) IF ( LOGDEV .NE. 6 ) & WRITE( LOGDEV,* ) 'PM3EXIT: DTBUF ', DTBUF WRITE( LOGDEV,92020 ) DTBUF, JDATE, JTIME ELSE IF ( LOGDEV .NE. 6 ) & WRITE( LOGDEV,* ) 'PM3EXIT: date&time specified as 0' WRITE( LOGDEV,92000 ) & 'Date&time specified as 0', ' ', ' ' END IF ELSE ! Print message for normal completion. WRITE( LOGDEV,92010 ) PCALLER, TRIM( MSGTXT ) IF ( JDATE .GT. 0 .OR. JTIME .GT. 0 ) THEN WRITE( LOGDEV,92020 ) & DT2STR( JDATE, JTIME ), JDATE, JTIME END IF END IF C....... Shut down the I/O API. IF ( .NOT. SHUT3() ) THEN WRITE( LOGDEV,91000 ) & 'Could not shut down I/O API files correctly' END IF C....... Close all files. DO IDEV = 10, 99 INQUIRE( UNIT = IDEV, OPENED = OFLAG ) IF ( OFLAG ) CLOSE( IDEV ) END DO IF ( EXITSTAT .NE. 0 ) THEN ! Abnormal abort. C....... Abort all parallel tasks. CALL MPI_ABORT( MPI_COMM_WORLD, ERRCODE, IERROR ) ! CALL MPI_FINALIZE( IERROR ) STOP ELSE ! exitstat = 0: successful completion. CALL EXIT( EXITSTAT ) ENDIF C****************** FORMAT STATEMENTS ****************************** C........... Error and warning message formats..... 91xxx 91000 FORMAT ( //5X , '*** ERROR ABORT in subroutine PM3EXIT ***', & /5X , A , // ) 91010 FORMAT ( //5X , '*** ERROR ABORT in subroutine ', A, & /5X , A ) C........... Informational (LOG) message formats... 92xxx 92000 FORMAT ( 5X , A ) 92010 FORMAT ( //5X , '--->> Normal Completion of program ', A, & /5X , A ) 92020 FORMAT ( 5X , 'Date and time ', A, :, & ' (', I7, ':', I6.6, ')' ) END ================================================ FILE: CCTM/src/PARIO/pm3warn.f ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE PM3WARN( CALLER, JDATE, JTIME, ERRTXT ) C..................................................................... C C PURPOSE: Wrapper for M3WARN in parallel environment, to C add the processor-id suffix to the name of the C caller. C C C PRECONDITIONS REQUIRED: Same as for M3WARN. C C C REVISION HISTORY: C Original version 07/1998 by Al Bourgeois. C Modified 12/07/1998 by Al Bourgeois to add EXTERNAL declarations. C Modified 02/23/2011 by Shawn Roselle C -- Replaced I/O API include files with M3UTILIO; removed C deprecated TRIMLEN C C C ARGUMENT LIST DESCRIPTION: C IN: C CHARACTER*(*) CALLER ! Name of the caller. C INTEGER JDATE ! Model date for the error. C INTEGER JTIME ! Model time for the error. C CHARACTER*(*) ERRTXT ! Error message. C C COMMON BLOCK PIOVARS: C INTEGER MY_PE ! Local processor id. C C C SUBROUTINES AND FUNCTIONS CALLED: M3WARN. C C*********************************************************************** USE M3UTILIO ! i/o api IMPLICIT NONE C........... INCLUDES: INCLUDE 'PIOVARS.EXT' ! Parameters for parallel implementation. C........... ARGUMENTS and their descriptions: CHARACTER*(*) CALLER ! Name of the caller. INTEGER JDATE ! Model date for the error. INTEGER JTIME ! Model time for the error. CHARACTER*(*) ERRTXT ! Error message. C........... LOCAL VARIABLES INTEGER LENSTR ! String length of CALLER. CHARACTER*3 CMYPE ! Processor ID string. CHARACTER*7 PE_STR ! String suffix to go with processor ID. CHARACTER*16 CALL16 ! First 16 characters of CALLER. CHARACTER*26 PCALLER ! New caller string with PE information. C............................................................................. C begin subroutine PM3WARN C....... Create strings to append to CALLER. WRITE (PE_STR,'(A7)') ' on PE ' WRITE(CMYPE,'(I3.3)') MY_PE C....... Construct new CALLER string. LENSTR = MIN( 16, LEN_TRIM(CALLER) ) CALL16 = CALLER( 1: LENSTR ) PCALLER = CALL16(1:LENSTR)//PE_STR//CMYPE C....... Pass the new sting to M3WARN. CALL M3WARN( PCALLER, JDATE, JTIME, ERRTXT ) RETURN END ================================================ FILE: CCTM/src/PARIO/pshut3.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/work/rep/PARIO/src/pshut3.f,v 1.2 2011/03/30 18:13:05 sjr Exp $ LOGICAL FUNCTION PSHUT3 ( ) C*********************************************************************** C FUNCTION: Flushes and closes down all Models-3 files currently open by C PE 0 only. C C RETURN VALUE: TRUE iff it succeeds. C C PRECONDITIONS: none C C SUBROUTINES AND FUNCTIONS CALLED: C C REVISION HISTORY: C prototype 09/02 by David Wong C Modified 02/23/2011 by Shawn Roselle C -- Replaced I/O API include files with M3UTILIO C Modified 09/10/2014 by David Wong C -- Removed redundant INCLUDE NETCDF.EXT statement C Modified 12/09/2015 by David Wong C -- Introduced a new variable PARIO_IO_PE_INCLUSIVE to determine C which procesor involves in file closing process C*********************************************************************** USE M3UTILIO ! i/o api USE PIOMAPS_MODULE IMPLICIT NONE C........... INCLUDES: INCLUDE 'STATE3.EXT' INCLUDE 'PIOVARS.EXT' INCLUDE "mpif.h" C........... SCRATCH LOCAL VARIABLES and their descriptions: INTEGER FILE ! loop counter over files INTEGER V ! loop counter over vbles INTEGER IERR ! netCDF error status return INTEGER ERROR ! MPI error status return INTEGER FID INTEGER LOC_MPIGRD3 INTEGER, EXTERNAL :: NF_CLOSE INTEGER, EXTERNAL :: NFMPI_CLOSE C*********************************************************************** PSHUT3 = .TRUE. IF (.NOT. FINIT3) THEN RETURN END IF #ifdef parallel_io LOC_MPIGRD3 = MPIGRD3 #else LOC_MPIGRD3 = IMISS3 #endif DO FILE = 1, COUNT3 FID = CDFID3(FILE) IF ((FID .GE. 0) .AND. (FLIST3(FILE) .NE. CMISS3)) THEN ! IF (MY_PE .EQ. 0) THEN ! CALL NCCLOS( CDFID3( FILE ), IERR ) ! IF (IERR .NE. 0) THEN ! WRITE (LOGDEV,91010) ! & 'Error closing netCDF file ', ! & 'File name: ' // FLIST3( FILE ) , ! & 'netCDF error number', IERR ! PSHUT3 = .FALSE. ! END IF ! END IF IF( FTYPE3( FILE ) .EQ. LOC_MPIGRD3 ) THEN #ifdef parallel_io IF( PARIO_IO_PE_INCLUSIVE ) THEN IERR = NFMPI_CLOSE( FID ) IF ( IERR .NE. 0 ) THEN WRITE( LOGDEV,91010 ) & 'Error closing PnetCDF file ', & 'File name: ' // FLIST3( FILE ) , & 'PnetCDF error number', IERR PSHUT3 = .FALSE. END IF END IF #endif ELSE IF( FTYPE3( FILE ) .GE. 0 ) THEN IERR = NF_CLOSE( FID ) IF ( IERR .NE. 0 ) THEN WRITE( LOGDEV,91010 ) & 'Error closing netCDF file ', & 'File name: ' // FLIST3( FILE ) , & 'netCDF error number', IERR PSHUT3 = .FALSE. END IF END IF END IF CALL BUFDEL3 (FILE) FLIST3(FILE) = CMISS3 DO V = 1, NVARS3( FILE ) ILAST3(V,FILE) = IMISS3 LDATE3(V,FILE) = IMISS3 LTIME3(V,FILE) = IMISS3 NDATE3(V,FILE) = IMISS3 NTIME3(V,FILE) = IMISS3 END DO END DO ! end loop on files COUNT3 = IMISS3 FINIT3 = .FALSE. CALL MPI_BCAST (PSHUT3, 1, MPI_LOGICAL, 0 ,MPI_COMM_WORLD, ERROR) RETURN C****************** FORMAT STATEMENTS ****************************** C........... Error and warning message formats..... 91xxx 91010 FORMAT ( //5X , '>>> WARNING in subroutine SHUT3 <<<', & 3 ( /5X , A , : ) , I5, // ) END FUNCTION PSHUT3 ================================================ FILE: CCTM/src/PARIO/ptrwrite3.f ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/work/rep/PARIO/src/ptrwrite3.f,v 1.2 2011/03/30 18:13:05 sjr Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% LOGICAL FUNCTION PTRWRITE3( FNAME, VNAME, JDATE, JTIME, BUFFER ) C----------------------------------------------------------------------- C Function: Writes grided data BUFFER to the Models-3 data file with logical C name FNAME by collecting from each PE. C Return Value: TRUE iff the operation succeeds C Preconditions: FNAME is a Models-3 data file already opened for write C access by OPEN3() or by CREATE3() C Postconditions: Subsequent call to SHUT3() to flush the file to disk C Revision History: C prototype 08/01 by David Wong, Lockheed Martin C 10/01 by David Wong C -- expanded functionality to handle PING file C -- adjusted SIZE according to VID C -- modified the routine to accommodate writing sub-grid data C 12/02 by David Wong C -- exteneded to write dot file C 01/03 by David Wong C -- inserted WRTFLAG function to output time step info C 02/04 by David Wong C -- collect all subdomain data and call WRITE3 once C 12 May 06 J.Young: rank 4 F90 pointer capablity for BUFFER C 23 Feb 11 S.Roselle: replaced I/O API include files with M3UTILIO; removed C deprecated TRIMLEN C 10 Sep 14 D. Wong: Removed redundant INCLUDE NETCDF.EXT statement C----------------------------------------------------------------------- USE M3UTILIO ! i/o api USE RUNTIME_VARS, ONLY : PWRTFLAG USE PIOMAPS_MODULE IMPLICIT NONE C Includes: INCLUDE 'STATE3.EXT' INCLUDE 'PIOVARS.EXT' ! Parameters for parallel implementation. INCLUDE 'PIOGRID.EXT' ! Parallel grid dimensions. ! INCLUDE 'PIOMAPS.EXT' ! Parallel processor-to-subdomain maps. INCLUDE 'mpif.h' C Arguments: CHARACTER( * ) :: FNAME ! logical file name CHARACTER( * ) :: VNAME ! logical file name INTEGER JDATE ! date, formatted YYYYDDD INTEGER JTIME ! time, formatted HHMMSS REAL, POINTER :: BUFFER( :,:,:,: ) ! output buffer array C Local Variables: INTEGER IDUM ! holds return value for INIT3() INTEGER FID ! file-subscript for STATE3 arrays INTEGER STEP ! time step record number INTEGER STEP2 ! 1 or 2, according to step mod 2 INTEGER TFLAG( 2 ) ! ( JDATE=yyyyddd, JTIME=hhmmss ) INTEGER IERR ! netCDF error status return CHARACTER( 16 ) :: FIL16 ! scratch file-name buffer CHARACTER( 16 ) :: VAR16 ! scratch variable-name buffer C Static Variables: LOGICAL FLCHANGE ! File-changed indicator. C File written to on previous call to pwrite3. CHARACTER( 16 ), SAVE :: PREVFILE = '????????????????' CHARACTER( 80 ) :: MSG ! Buffer for building error messages. INTEGER ERROR INTEGER NVARS ! Number of file variables to read. INTEGER IV ! Loop counter over file variables. INTEGER PACKAGE( 4 ) ! MPI broadcast data CHARACTER( 16 ) :: VNAM16 ! Scratch area for variable name. LOGICAL, EXTERNAL :: PWRGRDD ! Parallel write for gridded data files. C----------------------------------------------------------------------- C Check that Models-3 I/O has been initialized: PTRWRITE3 = .TRUE. IF ( .NOT. FINIT3 ) THEN IDUM = INIT3() WRITE( LOGDEV,91010 ) 'WRITE3(): I/O API not yet initialized.' PTRWRITE3 = .FALSE.; RETURN END IF C Find netCDF index for the file, and check time step availability: IF ( LEN( FNAME ) .GT. 16 ) THEN WRITE( LOGDEV,91001 ) & 'File "', FNAME, '"', & 'Max file name length 16; actual:', LEN( FNAME ) PTRWRITE3 = .FALSE.; RETURN END IF IF ( LEN( VNAME ) .GT. 16 ) THEN WRITE( LOGDEV,91002 ) & 'File "', FNAME, '"', & 'Variable "', VNAME, '"', & 'Max variable name length 16; actual:', LEN( VNAME ) PTRWRITE3 = .FALSE.; RETURN END IF VAR16 = VNAME ! fixed-length-16 scratch copy of name FIL16 = FNAME ! fixed-length-16 scratch copy of name FID = INDEX1 ( FIL16, COUNT3, FLIST3 ) IF ( FNAME .EQ. PREVFILE ) THEN FLCHANGE = .FALSE. ELSE FLCHANGE = .TRUE. PREVFILE = FNAME END IF IF ( MY_PE .EQ. IO_PE ) THEN STEP = JSTEP3 ( JDATE, JTIME, SDATE3( FID ), STIME3( FID ), & ABS( TSTEP3( FID ) ) ) END IF CALL MPI_BCAST ( STEP, 1, MPI_INTEGER, 0, MPI_COMM_WORLD, ERROR ) IF ( STEP .LT. 0 ) THEN WRITE( LOGDEV,91020 ) & 'Time step error writing file: ' // FIL16 , & 'Requested date & time: ', JDATE, JTIME , & 'File starting date & time:', & SDATE3( FID ), STIME3( FID ), & 'File time step: ', TSTEP3( FID ) PTRWRITE3 = .FALSE.; RETURN END IF IF ( MY_PE .EQ. IO_PE ) THEN IF ( TSTEP3( FID ) .LT. 0 ) THEN STEP2 = 1 + MOD ( STEP-1, 2 ) TFLAG( 1 ) = JDATE TFLAG( 2 ) = JTIME ELSE IF ( TSTEP3( FID ) .EQ. 0 ) THEN STEP2 = STEP TFLAG( 1 ) = 0 TFLAG( 2 ) = 0 ELSE STEP2 = STEP TFLAG( 1 ) = JDATE TFLAG( 2 ) = JTIME END IF C Get file description. IF ( .NOT. DESC3( FNAME ) ) THEN MSG = 'Could not get '// TRIM( FNAME ) & // ' file description' CALL M3WARN( 'PTRWRITE3', JDATE, JTIME, MSG ) END IF END IF CALL MPI_BCAST ( UPNAM3D, 16, MPI_CHARACTER, 0, MPI_COMM_WORLD, ERROR ) CALL MPI_BCAST ( FTYPE3D, 1, MPI_INTEGER, 0, MPI_COMM_WORLD, ERROR ) C Operation valid only for gridded files. IF ( FTYPE3D .EQ. GRDDED3 ) THEN IF ( UPNAM3D .EQ. 'PDM' .OR. & UPNAM3D .EQ. 'READ_PTX2'.OR. & UPNAM3D .EQ. 'FAKE_GRIDDED' ) THEN IF ( MY_PE .EQ. IO_PE ) THEN IF ( .NOT. WRITE3 ( FNAME, VNAME, JDATE, JTIME, BUFFER ) ) THEN MSG = 'WRITE3 failed writing variable ' & // TRIM( VNAME ) & // ' to file '// TRIM( FNAME ) CALL M3WARN( 'PTRWRITE3', JDATE, JTIME, MSG ) PTRWRITE3 = .FALSE. END IF END IF ELSE IF ( MY_PE .EQ. IO_PE ) THEN PACKAGE( 1 ) = NCOLS3D PACKAGE( 2 ) = NROWS3D PACKAGE( 3 ) = NLAYS3D PACKAGE( 4 ) = NVARS3D END IF CALL MPI_BCAST ( PACKAGE, 4, MPI_INTEGER, 0, MPI_COMM_WORLD, ERROR ) IF ( MY_PE .NE. IO_PE ) THEN NCOLS3D = PACKAGE( 1 ) NROWS3D = PACKAGE( 2 ) NLAYS3D = PACKAGE( 3 ) NVARS3D = PACKAGE( 4 ) END IF IF ( VAR16 .EQ. ALLVAR3 ) THEN NVARS = NVARS3D ELSE NVARS = 1 END IF IF ( FLCHANGE ) THEN CALL GET_WRITE_MAP ( NUMPROCS, NPCOLD, NPROWD, & NCOLS3D, NROWS3D, NLAYS3D ) END IF C Loop over file variables. DO IV = 1, NVARS IF ( VAR16 .EQ. ALLVAR3 ) THEN VNAM16 = VNAME3D( IV ) ELSE VNAM16 = VAR16 END IF IF ( .NOT. PWRGRDD( FIL16, VNAM16, JDATE, JTIME, & BUFFER( :,:,:,IV ), & NCOLS3D, NROWS3D, NLAYS3D, & NUMCOLS, NUMROWS, NUMPROCS ) ) THEN MSG = 'PWRGRDD failed writing variable ' & // TRIM( VNAM16 ) // & ' to file '// TRIM( FIL16 ) CALL PM3WARN( 'PTRWRITE3', JDATE, JTIME, MSG ) PTRWRITE3 = .FALSE.; RETURN END IF END DO END IF ! fake-gridded ELSE ! This is not a gridded file. MSG = 'PTRWRITE3 can not handle this type of data.' CALL PM3WARN( 'PTRWRITE3', JDATE, JTIME, MSG ) PTRWRITE3 = .FALSE.; RETURN END IF ! gridded file CALL MPI_BCAST ( PTRWRITE3, 1, MPI_LOGICAL, 0, MPI_COMM_WORLD, ERROR ) IF ( .NOT. PTRWRITE3 ) THEN ! failure IF ( MY_PE .EQ. IO_PE ) THEN IF ( TSTEP3( FID ) .EQ. 0 ) THEN WRITE( LOGDEV, 92030 ) 'Error writing', VNAME, 'to', FNAME ELSE WRITE( LOGDEV, 92030 ) & 'Error writing', VNAME, 'to', FNAME, 'for', JDATE, JTIME END IF END IF RETURN END IF ! if failure IF ( MY_PE .EQ. IO_PE ) THEN MXREC3( FID ) = MAX( MXREC3( FID ), ABS( STEP ) ) IF ( PWRTFLAG ) THEN ! log successful writes IF ( VAR16 .NE. ALLVAR3 ) THEN ! single variable written IF ( TSTEP3( FID ) .EQ. 0 ) THEN WRITE( LOGDEV,92020 ) VNAME, 'written to', FNAME ELSE WRITE( LOGDEV, 92020 ) & VNAME, 'written to', FNAME, 'for', JDATE, JTIME END IF ELSE ! vid <= 0: entire timestamp written IF ( TSTEP3( FID ) .EQ. 0 ) THEN WRITE( LOGDEV,92010 ) 'Record written to', FNAME ELSE WRITE( LOGDEV,92010 ) 'Timestep written to', FNAME, & 'for date and time', JDATE, JTIME END IF END IF ! if single variable write, or timestamp write END IF ! if PWRTFLAG END IF RETURN C----------------------------------------------------------------------- C Error and warning message formats... 91xxx 91001 FORMAT ( //5X , '>>> WARNING in subroutine WRITE3 <<<', & /5X , 3A, /5X , A , I5, // ) 91002 FORMAT ( //5X , '>>> WARNING in subroutine WRITE3 <<<', & /5X , 3A, /5X , 3A, /5X , A , I5, // ) 91010 FORMAT ( //5X , '>>> WARNING in subroutine WRITE3 <<<', & 3 ( /5X , A , : ) , I5, // ) 91020 FORMAT ( //5X , '>>> WARNING in subroutine WRITE3 <<<', & /5X , A , 2 ( /5X , A , :, I9, :, ':' , I6.6 ), & /5X , A , 10X, I6.6, // ) 91030 FORMAT ( //5X , '>>> WARNING in subroutine WRITE3 <<<', & /5X , A , I5 , : , /5X , A ) C Log message formats... 91xxx 92010 FORMAT ( /5X, 3( A, :, 1X ), I8, ':', I6.6 ) 92020 FORMAT ( /5X, 4( A, :, 1X ), I8, ':', I6.6 ) 92030 FORMAT ( /5X, 5( A, :, 1X ), I8, ':', I6.6 ) END ================================================ FILE: CCTM/src/PARIO/pwrgrdd.f ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/work/rep/PARIO/src/pwrgrdd.f,v 1.11 2012/01/26 20:14:28 sjr Exp $ LOGICAL FUNCTION PWRGRDD( FILNAME, VARNAME, DATE, TIME, BUFFER, & NCOLS3D, NROWS3D, NLAYS3D, & NCOLS, NROWS, NP ) C..................................................................... C PURPOSE: Perform Models-3 file-write operation in a parallel C environment. Values of variable VARNAME on each processor C subdomain region are collected, via MPI calls, by the C primary I/O processor and the full grid of values are C written to file. C RETURN VALUE: The function fails if M3IO routine WRITE3 fails. If C an MPI error occurs, the program is aborted with a call to C PM3EXIT. C REVISION HISTORY: C 07/1998 Original version by Al Bourgeois for parallel implementation. C Renamed 10/07/1998 by AJB from PWRITE3 to PRDGRDD, to be called C by PWRITE3. C Modified 11/09/1998 by AJB to save RBUFSIZ. C Modified 12/04/1998 by Al Bourgeois to add EXTERNAL declarations. C Modified 01/26/1999 by Al Bourgeois to allow writing to a subgrid. C Modified 06/22/1999 by Al Bourgeois to synchronize I/O processors C with their target (non-I/O) processors. If the I/O processor fails C on WRITE3, all processors will return a value of FALSE. This C routine now calls pm3exit if an MPI error occurs. C Modified 02/05/2004 by David Wong C -- use f90 allocatable structure, collect all and write once C Modified 09/08/2005 by David Wong C -- re-allocate WRITBUF when the size is changed so a subgrid data C can be output correctly C 6 May 06 J.Young C Modified 02/23/2011 by Shawn Roselle C -- Replaced I/O API include files with M3UTILIO; removed C deprecated TRIMLEN C Modified 01/24/2012 by David Wong C -- Only let IO PE to allocate WRITBUF and RECVBUF to reduce overall C memory requirement C Modified 12/05/2015 by David Wong C -- Fixed bug so the code handle dot file correctly C ARGUMENT LIST DESCRIPTION: C M1 in PIOMAPS_MODULE C M2 in ALLOC_DATA_MODULE C E3 in PIOVARS.EXT C IN: C CHARACTER*(*) FILNAME ! Name of file containing variable VARNAME C CHARACTER*(*) VARNAME ! Name of file variable to write C INTEGER DATE ! Date, formatted YYYYDDD C INTEGER TIME ! Time, formatted HHMMSS C REAL BUFFER(NCOLS, NROWS, NLAYS3D) C ! Buffer holding (local) array to be written C INTEGER NCOLS3D ! Column dimension of file variables C INTEGER NROWS3D ! Row dimension of file variables C INTEGER NLAYS3D ! Layer dimension of file variables C INTEGER NCOLS ! Column dimension of local-processor arrays C INTEGER NROWS ! Row dimension of local-processor arrays C INTEGER NP ! Number of processors C x INTEGER WR_NCOLS_PE(NP) M1 ! No. cols of each PE subgrid to write C x INTEGER WR_NROWS_PE(NP) M1 ! No. rows of each PE subgrid to write C x INTEGER WR_COLSX_PE(2,NP) M1 ! Col range of each PE subgrid to write C x INTEGER WR_ROWSX_PE(2,NP) M1 ! Row range of each PE subgrid to write C C x REAL WRITBUF(NCOLS3D, NROWS3D, NLAYS3D) M2 C ! Buffer for writing an array. C C x REAL RECVBUF(NCOLS, NROWS, NLAYS3D) M2 C ! Buffer for message passing an array. C C x INTEGER MY_PE E3 ! Local processor id, ranging 0 to NP-1. C x INTEGER IO_PE E3 ! Id of primary processor used for file I/O. C OUT: none C LOCAL VARIABLE DESCRIPTION: see below C CALLS: WRITE3, PM3WARN, PM3EXIT, TRIMLEN, MPI_SEND, MPI_RECV, MPI_BCAST C NOTES: (1) Only the primary I/O processor does the file writing. Input C arguments FILNAME, VARNAME, DATE, and TIME are meaningful C only to the I/O processor. C (2) This routine handles only gridded variables. The BUFFER is C assumed to be declared as BUFFER( NCOLS, NROWS, NLAYS3D ), C where NCOLS and NROWS are the local PE grid subdomain C dimensions and NLAYS3D is the file variable layer dimension. C BUFFER is assumed to be filled as BUFFER(1:C,1:R,1:NLAYS3D), C where C = WR_COLSX_PE(2,MY_PE+1), R = WR_ROWSX_PE(2,MY_PE+1). C----------------------------------------------------------------------- USE PIOMAPS_MODULE USE ALLOC_DATA_MODULE USE M3UTILIO, ONLY : WRITE3 ! i/o api IMPLICIT NONE C Include Files INCLUDE 'mpif.h' ! MPI definitions and parameters INCLUDE 'PIOVARS.EXT' C Arguments CHARACTER( * ) :: FILNAME ! Name of file containing variable VARNAME CHARACTER( * ) :: VARNAME ! Name of file variable to write INTEGER DATE ! Date, formatted YYYYDDD INTEGER TIME ! Time, formatted HHMMSS INTEGER NCOLS3D ! Column dimension of file variables INTEGER NROWS3D ! Row dimension of file variables INTEGER NLAYS3D ! Layer dimension of file variables INTEGER NCOLS ! Column dimension of local-processor arrays INTEGER NROWS ! Row dimension of local-processor arrays INTEGER NP ! Number of processors REAL BUFFER( NCOLS,NROWS,NLAYS3D ) ! Buffer holding (local) array ! to be written INTEGER, SAVE :: WRITBUF_SIZE = 0 INTEGER, SAVE :: RECVBUF_SIZE = 0 INTEGER :: WSIZE, RSIZE C External Functions: EXTERNAL PM3WARN ! Parallel M3IO library C Local Variables: INTEGER MSGSIZE ! Message size of subgrid to receive INTEGER IPE ! For loop over processors INTEGER WHO ! For identifying sending processor INTEGER STATUS( MPI_STATUS_SIZE ) ! MPI status code INTEGER IERROR ! MPI error code LOGICAL LERROR ! LOCAL ERROR LOGICAL RERROR ! LOCAL MPI ALLREDUCE ERROR INTEGER IR ! Loop counter over grid rows INTEGER IC ! Loop counter over grid columns INTEGER IL ! Loop counter over grid layers INTEGER C0 ! First column in global grid INTEGER R0 ! First row in global grid INTEGER NC ! Number of columns in local grid INTEGER NR ! Number of rows in local grid CHARACTER( 16 ) :: FIL16 ! Scratch area for file-name CHARACTER( 16 ) :: VAR16 ! Scratch area for vble-name CHARACTER( 80 ) :: MSG ! Message issued from PM3WARN routine INTEGER, PARAMETER :: TAG1 = 901 ! MPI message tag for processor ID INTEGER, PARAMETER :: TAG2 = 902 ! MPI message tag for data array. INTEGER LOC LOGICAL :: DOT_FILE INTEGER :: DOT C........................................................................ C Initialize return value and error code PWRGRDD = .TRUE. LERROR = .FALSE. IERROR = 0 IF ( ( NCOLS3D - PIO_GL_NCOLS .EQ. 1 ) .AND. & ( NROWS3D - PIO_GL_NROWS .EQ. 1 ) ) THEN DOT_FILE = .TRUE. DOT = 1 ELSE DOT_FILE = .FALSE. DOT = 0 END IF IF ( MY_PE .EQ. IO_PE ) THEN ! I/O processor collects and writes data WSIZE = NCOLS3D * NROWS3D * NLAYS3D RSIZE = ( NCOLS + DOT ) * ( NROWS + DOT ) * NLAYS3D IF ( WRITBUF_SIZE .NE. WSIZE ) THEN IF ( ALLOCATED ( WRITBUF ) ) DEALLOCATE ( WRITBUF ) ALLOCATE ( WRITBUF ( NCOLS3D, NROWS3D, NLAYS3D ), STAT = IERROR ) IF ( IERROR .NE. 0 ) THEN MSG = 'Failure allocating WRITBUF ' CALL M3EXIT( 'PWRGRDD', DATE, TIME, MSG, 1 ) END IF WRITBUF_SIZE = WSIZE END IF IF ( RECVBUF_SIZE .LT. RSIZE ) THEN IF ( ALLOCATED ( RECVBUF ) ) DEALLOCATE ( RECVBUF ) ALLOCATE ( RECVBUF ( RSIZE ), STAT = IERROR ) IF ( IERROR .NE. 0 ) THEN MSG = 'Failure allocating RECVBUF ' CALL M3EXIT( 'PWRGRDD', DATE, TIME, MSG, 1 ) END IF RECVBUF_SIZE = RSIZE END IF C Gather the array and write it to file. ! IF ( MY_PE .EQ. IO_PE ) THEN ! I/O processor collects and writes data C I/O PE copies its own local array into output buffer C0 = WR_COLSX_PE( 1,IO_PE+1 ) R0 = WR_ROWSX_PE( 1,IO_PE+1 ) NC = WR_NCOLS_PE( IO_PE+1 ) NR = WR_NROWS_PE( IO_PE+1 ) DO IL = 1, NLAYS3D DO IR = 1, NR DO IC = 1, NC WRITBUF( C0+IC-1,R0+IR-1,IL ) = BUFFER( IC,IR,IL ) END DO END DO END DO C I/O PE receives array from all other processors and copies it to the output C buffer. Arrays are received in a first-come-first-serve order. DO IPE = 1, NP - 1 CALL MPI_RECV( WHO, 1, MPI_INTEGER, MPI_ANY_SOURCE, & TAG1, MPI_COMM_WORLD, STATUS, IERROR ) IF ( IERROR .NE. 0 ) THEN MSG = 'MPI error receiving processor id WHO.' CALL PM3WARN( 'PWRGRDD', DATE, TIME, MSG ) LERROR = .TRUE. END IF C0 = WR_COLSX_PE( 1,WHO+1 ) R0 = WR_ROWSX_PE( 1,WHO+1 ) NC = WR_NCOLS_PE( WHO+1 ) NR = WR_NROWS_PE( WHO+1 ) MSGSIZE = NC * NR * NLAYS3D CALL MPI_RECV( RECVBUF, MSGSIZE, MPI_REAL, WHO, & TAG2, MPI_COMM_WORLD, STATUS, IERROR ) IF ( IERROR .NE. 0 ) THEN MSG = 'MPI error receiving data array RECVBUF.' CALL PM3WARN( 'PWRGRDD', DATE, TIME, MSG ) LERROR = .TRUE. END IF LOC = 0 DO IL = 1, NLAYS3D DO IR = 1, NR DO IC = 1, NC LOC = LOC + 1 WRITBUF( C0+IC-1,R0+IR-1,IL ) = RECVBUF( LOC ) END DO END DO END DO END DO C Write the accumulated array to file FIL16 = FILNAME VAR16 = VARNAME IF ( .NOT. WRITE3( FIL16, VAR16, DATE, TIME, WRITBUF ) ) THEN MSG = 'Could not write ' & // TRIM( VARNAME ) // & ' to file '// TRIM( FIL16 ) CALL PM3WARN( 'PWRGRDD', DATE, TIME, MSG ) LERROR = .TRUE. END IF ELSE ! Non-I/O processors send data C Each processor, except for the I/O processor, sends its local array to C the I/O processor. WHO = MY_PE MSGSIZE = NCOLS * NROWS * NLAYS3D CALL MPI_SEND( WHO, 1, MPI_INTEGER, IO_PE, TAG1, & MPI_COMM_WORLD, IERROR ) IF ( IERROR .NE. 0 ) THEN MSG = 'MPI error sending processor id WHO.' CALL PM3WARN( 'PWRGRDD', DATE, TIME, MSG ) LERROR = .TRUE. END IF CALL MPI_SEND( BUFFER, MSGSIZE, MPI_REAL, IO_PE, TAG2, & MPI_COMM_WORLD, IERROR ) IF ( IERROR .NE. 0 ) THEN MSG = 'MPI error sending data array BUFFER.' CALL PM3WARN( 'PWRGRDD', DATE, TIME, MSG ) LERROR = .TRUE. END IF END IF ! if( my_pe .eq. io_pe ) C Notify non-I/O processors of failure CALL MPI_ALLREDUCE( LERROR, RERROR, 1, MPI_LOGICAL, MPI_LAND, & MPI_COMM_WORLD, IERROR ) IF ( IERROR .NE. 0 ) THEN MSG = 'MPI Allreduce error.' CALL PM3WARN( 'PWRGRDD', DATE, TIME, MSG ) LERROR = .TRUE. END IF IF ( RERROR ) THEN MSG = 'Failed to write ' & // TRIM( VARNAME ) // & ' from file '// TRIM( FILNAME ) CALL PM3WARN( 'PWRGRDD', DATE, TIME, MSG ) PWRGRDD = .FALSE. RETURN ! Write failed, so return. END IF RETURN END ================================================ FILE: CCTM/src/PARIO/pwrite3.f ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! LOGICAL FUNCTION PWRITE3( FNAME, VNAME, JDATE, JTIME, BUFFER ) C----------------------------------------------------------------------- C Function: Writes grided data BUFFER to the Models-3 data file with logical C name FNAME by collecting from each PE. C Return Value: TRUE iff the operation succeeds C Preconditions: FNAME is a Models-3 data file already opened for write C access by OPEN3() or by CREATE3() C Postconditions: Subsequent call to SHUT3() to flush the file to disk C Revision History: C prototype 08/01 by David Wong, Lockheed Martin C 10/01 by David Wong C -- expanded functionality to handle PING file C -- adjusted SIZE according to VID C -- modified the routine to accommodate writing sub-grid data C 12/02 by David Wong C -- exteneded to write dot file C 01/03 by David Wong C -- inserted WRTFLAG function to output time step info C 02/04 by David Wong C -- collect all subdomain data and call WRITE3 once C 02/11 by Shawn Roselle C -- Replaced I/O API include files with M3UTILIO; removed C deprecated TRIMLEN C 08/11 by David Wong C -- extended to handle window met_cro_3d file C 09/14 by David Wong C -- Removed redundant INCLUDE NETCDF.EXT statement C----------------------------------------------------------------------- USE PIOMAPS_MODULE USE M3UTILIO ! i/o api USE RUNTIME_VARS , ONLY : PWRTFLAG IMPLICIT NONE C Includes: INCLUDE 'STATE3.EXT' INCLUDE 'PIOVARS.EXT' ! Parameters for parallel implementation. INCLUDE 'PIOGRID.EXT' ! Parallel grid dimensions. ! INCLUDE 'PIOMAPS.EXT' ! Parallel processor-to-subdomain maps. INCLUDE 'mpif.h' C Arguments: CHARACTER( * ) :: FNAME ! logical file name CHARACTER( * ) :: VNAME ! logical file name INTEGER JDATE ! date, formatted YYYYDDD INTEGER JTIME ! time, formatted HHMMSS REAL BUFFER( * ) ! output buffer array C Local Variables: INTEGER IDUM ! holds return value for INIT3() INTEGER FID ! file-subscript for STATE3 arrays INTEGER STEP ! time step record number INTEGER STEP2 ! 1 or 2, according to step mod 2 INTEGER TFLAG( 2 ) ! ( JDATE=yyyyddd, JTIME=hhmmss ) INTEGER IERR ! netCDF error status return CHARACTER( 16 ) :: FIL16 ! scratch file-name buffer CHARACTER( 16 ) :: VAR16 ! scratch variable-name buffer C Static Variables: LOGICAL FLCHANGE ! File-changed indicator. C File written to on previous call to pwrite3. CHARACTER( 16 ), SAVE :: PREVFILE = '????????????????' CHARACTER( 80 ) :: MSG ! Buffer for building error messages. INTEGER ERROR INTEGER NVARS ! Number of file variables to read. INTEGER IV ! Loop counter over file variables. INTEGER BUFSTEP ! Buffer stride length. INTEGER BP ! Position in buffer for specific variable. INTEGER PACKAGE( 4 ) ! MPI broadcast data CHARACTER( 16 ) :: VNAM16 ! Scratch area for variable name. LOGICAL, EXTERNAL :: PWRGRDD ! Parallel write for gridded data files. C----------------------------------------------------------------------- C Check that Models-3 I/O has been initialized: PWRITE3 = .TRUE. IF ( .NOT. FINIT3 ) THEN IDUM = INIT3() WRITE( LOGDEV,91010 ) 'WRITE3(): I/O API not yet initialized.' PWRITE3 = .FALSE. RETURN END IF C Find netCDF index for the file, and check time step availability: IF ( LEN( FNAME ) .GT. 16 ) THEN WRITE( LOGDEV,91001 ) & 'File "', FNAME, '"', & 'Max file name length 16; actual:', LEN( FNAME ) PWRITE3 = .FALSE. RETURN END IF IF ( LEN( VNAME ) .GT. 16 ) THEN WRITE( LOGDEV,91002 ) & 'File "', FNAME, '"', & 'Variable "', VNAME, '"', & 'Max variable name length 16; actual:', LEN( VNAME ) PWRITE3 = .FALSE. RETURN END IF VAR16 = VNAME ! fixed-length-16 scratch copy of name FIL16 = FNAME ! fixed-length-16 scratch copy of name FID = INDEX1 ( FIL16, COUNT3, FLIST3 ) IF ( FNAME .EQ. PREVFILE ) THEN FLCHANGE = .FALSE. ELSE FLCHANGE = .TRUE. PREVFILE = FNAME END IF IF ( MY_PE .EQ. IO_PE ) THEN STEP = JSTEP3 ( JDATE, JTIME, SDATE3( FID ), STIME3( FID ), & ABS( TSTEP3( FID ) ) ) END IF CALL MPI_BCAST ( STEP, 1, MPI_INTEGER, 0, MPI_COMM_WORLD, ERROR ) IF ( STEP .LT. 0 ) THEN WRITE( LOGDEV,91020 ) & 'Time step error writing file: ' // FIL16 , & 'Requested date & time: ', JDATE, JTIME , & 'File starting date & time:', & SDATE3( FID ), STIME3( FID ), & 'File time step: ', TSTEP3( FID ) PWRITE3 = .FALSE. RETURN END IF IF ( MY_PE .EQ. IO_PE ) THEN IF ( TSTEP3( FID ) .LT. 0 ) THEN STEP2 = 1 + MOD ( STEP-1, 2 ) TFLAG( 1 ) = JDATE TFLAG( 2 ) = JTIME ELSE IF ( TSTEP3( FID ) .EQ. 0 ) THEN STEP2 = STEP TFLAG( 1 ) = 0 TFLAG( 2 ) = 0 ELSE STEP2 = STEP TFLAG( 1 ) = JDATE TFLAG( 2 ) = JTIME END IF C Get file description. IF ( .NOT. DESC3( FNAME ) ) THEN MSG = 'Could not get '// TRIM( FNAME ) & // ' file description' CALL M3WARN( 'PWRITE3', JDATE, JTIME, MSG ) END IF END IF CALL MPI_BCAST ( UPNAM3D, 16, MPI_CHARACTER, 0, MPI_COMM_WORLD, ERROR ) CALL MPI_BCAST ( FTYPE3D, 1, MPI_INTEGER, 0, MPI_COMM_WORLD, ERROR ) C Operation valid only for gridded files. IF ( FTYPE3D .EQ. GRDDED3 ) THEN IF ( UPNAM3D .EQ. 'PDM' .OR. & UPNAM3D .EQ. 'READ_PTX2'.OR. & UPNAM3D .EQ. 'FAKE_GRIDDED' ) THEN IF ( MY_PE .EQ. IO_PE ) THEN IF ( .NOT. WRITE3 ( FNAME, VNAME, JDATE, JTIME, BUFFER ) ) THEN MSG = 'WRITE3 failed writing variable ' & // TRIM( VNAME ) & // ' to file '// TRIM( FNAME ) CALL M3WARN( 'PWRITE3', JDATE, JTIME, MSG ) PWRITE3 = .FALSE. END IF END IF ELSE IF ( MY_PE .EQ. IO_PE ) THEN PACKAGE( 1 ) = NCOLS3D PACKAGE( 2 ) = NROWS3D PACKAGE( 3 ) = NLAYS3D PACKAGE( 4 ) = NVARS3D END IF CALL MPI_BCAST ( PACKAGE, 4, MPI_INTEGER, 0, MPI_COMM_WORLD, ERROR ) IF ( MY_PE .NE. IO_PE ) THEN NCOLS3D = PACKAGE( 1 ) NROWS3D = PACKAGE( 2 ) NLAYS3D = PACKAGE( 3 ) NVARS3D = PACKAGE( 4 ) END IF IF ( VAR16 .EQ. ALLVAR3 ) THEN NVARS = NVARS3D ELSE NVARS = 1 END IF IF ( FLCHANGE ) THEN CALL GET_WRITE_MAP ( NUMPROCS, NPCOLD, NPROWD, & NCOLS3D, NROWS3D, NLAYS3D ) END IF C Calculate buffer stride. ! BUFSTEP = NUMCOLS * NUMROWS * NLAYS3D BUFSTEP = WR_NCOLS_PE( MY_PE+1 ) * WR_NROWS_PE( MY_PE+1 ) * NLAYS3D C Loop over file variables. DO IV = 1, NVARS IF ( VAR16 .EQ. ALLVAR3 ) THEN VNAM16 = VNAME3D( IV ) ELSE VNAM16 = VAR16 END IF C Calculate buffer position. BP = BUFSTEP * ( IV-1 ) + 1 IF ( .NOT. PWRGRDD( FIL16, VNAM16, JDATE, JTIME, BUFFER( BP ), & NCOLS3D, NROWS3D, NLAYS3D, & WR_NCOLS_PE( MY_PE+1 ), & WR_NROWS_PE( MY_PE+1 ), NUMPROCS ) ) THEN ! & NUMCOLS, NUMROWS, NUMPROCS ) ) THEN MSG = 'PWRGRDD failed writing variable ' & // TRIM( VNAM16 ) // & ' to file '// TRIM( FIL16 ) CALL PM3WARN( 'PWRITE3', JDATE, JTIME, MSG ) PWRITE3 = .FALSE. RETURN END IF END DO END IF ! fake-gridded ELSE ! This is not a gridded file. MSG = 'PWRITE3 can not handle this type of data.' CALL PM3WARN( 'PWRITE3', JDATE, JTIME, MSG ) PWRITE3 = .FALSE. RETURN END IF ! gridded file CALL MPI_BCAST ( PWRITE3, 1, MPI_LOGICAL, 0, MPI_COMM_WORLD, ERROR ) IF ( .NOT. PWRITE3 ) THEN ! failure IF ( MY_PE .EQ. IO_PE ) THEN IF ( TSTEP3( FID ) .EQ. 0 ) THEN WRITE( LOGDEV, 92030 ) 'Error writing', VNAME, 'to', FNAME ELSE WRITE( LOGDEV, 92030 ) & 'Error writing', VNAME, 'to', FNAME, 'for', JDATE, JTIME END IF END IF RETURN END IF ! if failure IF ( MY_PE .EQ. IO_PE ) THEN MXREC3( FID ) = MAX( MXREC3( FID ), ABS( STEP ) ) IF ( PWRTFLAG ) THEN ! log successful writes IF ( VAR16 .NE. ALLVAR3 ) THEN ! single variable written IF ( TSTEP3( FID ) .EQ. 0 ) THEN WRITE( LOGDEV,92020 ) VNAME, 'written to', FNAME ELSE WRITE( LOGDEV, 92020 ) & VNAME, 'written to', FNAME, 'for', JDATE, JTIME END IF ELSE ! vid <= 0: entire timestamp written IF ( TSTEP3( FID ) .EQ. 0 ) THEN WRITE( LOGDEV,92010 ) 'Record written to', FNAME ELSE WRITE( LOGDEV,92010 ) 'Timestep written to', FNAME, & 'for date and time', JDATE, JTIME END IF END IF ! if single variable write, or timestamp write END IF ! if PWRTFLAG END IF RETURN C----------------------------------------------------------------------- C Error and warning message formats... 91xxx 91001 FORMAT ( //5X , '>>> WARNING in subroutine WRITE3 <<<', & /5X , 3A, /5X , A , I5, // ) 91002 FORMAT ( //5X , '>>> WARNING in subroutine WRITE3 <<<', & /5X , 3A, /5X , 3A, /5X , A , I5, // ) 91010 FORMAT ( //5X , '>>> WARNING in subroutine WRITE3 <<<', & 3 ( /5X , A , : ) , I5, // ) 91020 FORMAT ( //5X , '>>> WARNING in subroutine WRITE3 <<<', & /5X , A , 2 ( /5X , A , :, I9, :, ':' , I6.6 ), & /5X , A , 10X, I6.6, // ) 91030 FORMAT ( //5X , '>>> WARNING in subroutine WRITE3 <<<', & /5X , A , I5 , : , /5X , A ) C Log message formats... 91xxx 92010 FORMAT ( /5X, 3( A, :, 1X ), I8, ':', I6.6 ) 92020 FORMAT ( /5X, 4( A, :, 1X ), I8, ':', I6.6 ) 92030 FORMAT ( /5X, 5( A, :, 1X ), I8, ':', I6.6 ) END ================================================ FILE: CCTM/src/PARIO/subdmap.f ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/work/rep/PARIO/src/subdmap.f,v 1.8 2011/03/30 18:13:07 sjr Exp $ SUBROUTINE SUBDMAP ( NUMPROCS, NCOLS, NROWS, NLAYS, NPCOL, NPROW, & NCOLS_PE, NROWS_PE, COLSX_PE, ROWSX_PE, & MAXCELLS, IERR ) C .................................................................... C PURPOSE: Subroutine to construct the horizontal C processor-to-subdomain map. C REVISION HISTORY: C Original version 3/96 by Al Bourgeois for parallel implementation. C Modified 6/98 by AJB to improve error detection. C Modified 07/08/1998 by AJB to add NPCOL and NPROW to argument list. C Modified 07/29/1998 by AJB to use M3WARN instead of EXTMSG. C Modified 08/31/1998 by AJB to remove MYCELLS, MAXBNDRY from arg. list. C Modified 09/03/1998 by AJB to remove call to WRSUBMAP, and remove C arguments IO_PE and MY_PE. C Modified 09/12/1998 by AJB to increase MAXCELLS for DOT grid. C Modified 12/07/1998 by Al Bourgeois to add EXTERNAL declarations. C Modified 08/06/1999 by Al Bourgeois to remove error flag from argument C list and to exit with PM3EXIT on allocation errors. C Modified 02/02/2004 by David Wong C -- uses f90 syntax to allocate memory rather than using DYNMEM library C Modified 02/23/2011 by Shawn Roselle C -- Replaced I/O API include files with M3UTILIO C ARGUMENT LIST DESCRIPTION: C M1 = PIOMAPS_MODULE C IN: C INTEGER NUMPROCS ! Number of processors C INTEGER NCOLS ! Total number of columns in grid C INTEGER NROWS ! Total number of rows in grid C INTEGER NLAYS ! Total number of layers in grid C INTEGER NPCOL ! Number of PEs across grid cols C INTEGER NPROW ! Number of PEs across grid rows C OUT: C INTEGER NCOLS_PE( NUMPROCS ) M1 ! Number of columns for each PE C INTEGER NROWS_PE( NUMPROCS ) M1 ! Number of rows for each PE C INTEGER COLSX_PE( 2,NUMPROCS ) M1 ! Column index range for each PE C INTEGER ROWSX_PE( 2,NUMPROCS ) M1 ! Row index range for each PE C INTEGER MAXCELLS ! Maximum subdomain size over PEs C INTEGER IERR C LOCAL VARIABLE DESCRIPTION: see below C NOTES: Uses dynamic memory allocation for NCOLS_WE and NROWS_SN C ....................................................................... ! USE PIOMAPS_MODULE USE M3UTILIO ! i/o api IMPLICIT NONE C ARGUMENTS: INTEGER NUMPROCS ! Number of processors INTEGER NCOLS ! Total number of columns in grid INTEGER NROWS ! Total number of rows in grid INTEGER NLAYS ! Total number of layers in grid INTEGER NPCOL ! Number of PEs across grid columns INTEGER NPROW ! Number of PEs across grid rows INTEGER NCOLS_PE( NUMPROCS ) ! Number of columns for each PE INTEGER NROWS_PE( NUMPROCS ) ! Number of rows for each PE INTEGER COLSX_PE( 2,NUMPROCS ) ! Column index range for each PE INTEGER ROWSX_PE( 2,NUMPROCS ) ! Row index range for each PE INTEGER MAXCELLS ! Maximum subdomain size over PEs INTEGER IERR ! return error code C EXTERNAL FUNCTIONS: C LOCAL VARIABLES: INTEGER I ! Loop counter. INTEGER NDX ! Temporary index for processors row, column. INTEGER NCOLX ! Used for computing columns per domain. INTEGER NROWX ! Used for computing rows per domain. INTEGER ICELLS ! Temporary variable for computing MAXCELLS. INTEGER DOT ! For allocation of dot-grid variables. CHARACTER( 80 ) :: MSG ! Message issued from M3WARN routine. C Dynamic arrays. INTEGER, ALLOCATABLE :: NCOLS_WE( : ) ! Number columns in west-to-east subdomains. INTEGER, ALLOCATABLE :: NROWS_SN( : ) ! Number rows in south-to-north subdomains. C ....................................................................... C Initialize. DOT = 1 C Allocate arrays. ALLOCATE ( NCOLS_WE( NPCOL ), STAT=IERR ) IF ( IERR .NE. 0 ) THEN MSG = 'Error allocating NCOLS_WE.' CALL M3WARN ( 'SUBDMAP', 0, 0, MSG ) RETURN END IF ALLOCATE ( NROWS_SN( NPROW ), STAT=IERR ) IF ( IERR .NE. 0 ) THEN MSG = 'Error allocating NCOLS_SN.' CALL M3WARN ( 'SUBDMAP', 0, 0, MSG ) RETURN END IF C Construct the processor-to-subdomain map. NCOLX = NCOLS / NPCOL NROWX = NROWS / NPROW DO I = 1 , NPCOL NCOLS_WE( I ) = NCOLX END DO DO I = 1 , NPROW NROWS_SN( I ) = NROWX END DO DO I = 1, NCOLS - NPCOL*NCOLX ! Spread out remaining columns NCOLS_WE( I ) = NCOLS_WE( I ) + 1 END DO DO I = 1, NROWS - NPROW*NROWX NROWS_SN( I ) = NROWS_SN( I ) + 1 ! Spread out remaining rows END DO C Assign the number of rows and columns for each PE subdomain, C and calculate the index range into the global domain. C NPCOL C Example subdomain layout _____________________________________ C for 8 processors with | | | | | C NPCOL=4, NPROW=2. | | | | | C | 5 | 6 | 7 | 8 | C | | | | | C NPROW |_________|_________|________|________| C | | | | | C | | | | | C | 1 | 2 | 3 | 4 | C | | | | | C | | | | | C |_________|_________|________|________| DO I = 1, NUMPROCS C Set NDX to the subdomain column index for processor I. NDX = MOD ( I,NPCOL ) IF ( NDX .EQ. 0 ) NDX = NPCOL C Assign the number of columns in this PE. NCOLS_PE( I ) = NCOLS_WE( NDX ) C Calculate column range of this PE in the global domain. IF ( NDX .EQ. 1 ) THEN COLSX_PE( 1,I ) = 1 COLSX_PE( 2,I ) = NCOLS_PE( I ) ELSE COLSX_PE( 1,I ) = COLSX_PE( 2,I-1 ) + 1 COLSX_PE( 2,I ) = COLSX_PE( 2,I-1 ) + NCOLS_PE( I ) END IF C Set NDX to the subdomain row number for processor I. NDX = ( I - 1 ) / NPCOL + 1 C Calculate number of rows in this PE. NROWS_PE( I ) = NROWS_SN( NDX ) C Calculate row range of this PE in the global domain. IF ( I .LE. NPCOL ) THEN ROWSX_PE( 1,I ) = 1 ROWSX_PE( 2,I ) = NROWS_PE( I ) ELSE ROWSX_PE( 1,I ) = ROWSX_PE( 2,I-NPCOL ) + 1 ROWSX_PE( 2,I ) = ROWSX_PE( 2,I-NPCOL ) + NROWS_PE( I ) END IF END DO C Compute the largest subdomain and the largest boundary. MAXCELLS = 0 DO I = 1, NUMPROCS ICELLS = ( DOT + NCOLS_PE( I ) ) * ( DOT + NROWS_PE( I ) ) IF ( MAXCELLS .LT. ICELLS ) MAXCELLS = ICELLS END DO MAXCELLS = MAXCELLS * NLAYS C Free memory allocated for dynamic arrays. DEALLOCATE ( NCOLS_WE, STAT=IERR ) IF ( IERR .NE. 0 ) THEN MSG = 'Error deallocating NCOLS_WE.' CALL M3WARN ( 'SUBDMAP', 0, 0, MSG ) END IF DEALLOCATE ( NROWS_SN, STAT=IERR ) IF ( IERR .NE. 0 ) THEN MSG = 'Error deallocating NROWS_SN.' CALL M3WARN ( 'SUBDMAP', 0, 0, MSG ) END IF RETURN END ================================================ FILE: CCTM/src/PARIO/wrsubdmap.f ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! !::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: subroutine wrsubdmap ( nprocs, ncols_pe, nrows_pe, colsx_pe, rowsx_pe ) implicit none !> layout parallel decomp subdomains given processor decomp and grid dimensions integer, intent( in ) :: nprocs ! npcol*nprow integer, intent( in ) :: ncols_pe( nprocs ) ! No. of 1st dimension elements per PE integer, intent( in ) :: nrows_pe( nprocs ) ! No. of 2nd dimension elements per PE integer, intent( in ) :: colsx_pe( 2,nprocs ) ! 1st dimension index range per PE integer, intent( in ) :: rowsx_pe( 2,nprocs ) ! 2nd dimension index range per PE character( 49 ) :: colrow = ' PE #Cols Col_Range #Rows Row_Range' character( 49 ) :: title integer i ! loop counter. title = colrow write( *,* ) write( *,* ) ' -=- MPP Processor-to-Subdomain Map -=-' write( *,'(A,I3)' ) ' Number of Processors = ',nprocs write( *,* ) ' ____________________________________________________' write( *,* ) ' | |' write( *,* ) ' |' // title // ' |' write( *,* ) ' |__________________________________________________|' write( *,* ) ' | |' do i = 1, nprocs write( *,1003 ) i-1, ncols_pe(i), colsx_pe(1,i), colsx_pe(2,i), & nrows_pe(i), rowsx_pe(1,i), rowsx_pe(2,i) end do write( *,* ) ' |__________________________________________________|' write( *,* ) 1003 format(' |', i3, 5x, i4, 3x, i4, ':', i4, & 7x, i4, 3x, i4, ':', i4, ' |') end subroutine wrsubdmap ================================================ FILE: CCTM/src/STENEX/noop/noop_comm_module.f ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C -------------------------------------------------------------------------- C Purpose: C C use F90 interface feature to achieve "faked" polymorphism for noop pe C communication routine C C Revision history: C C Orginal version: 11/05/99 by David Wong C -------------------------------------------------------------------------- module noop_comm_module implicit none interface noop_comm module procedure noop_pe_comm1, & noop_pe_comm2, noop_pe_comm2e, & noop_pe_comm3, noop_pe_comm3e, noop_pe_comm3s, & noop_pe_comm4 end interface contains C -------------------------------------------------------------------------- C Purpose: C C to provide a no-op noop_comm1.f counter part for serial code C C Revision history: C C Orginal version: 10/6/98 by David Wong C 11/05/99 by David Wong C -- recode using F90 syntax C -------------------------------------------------------------------------- subroutine noop_pe_comm1 (data, dispstr, dirstr, str) implicit none real, intent(in) :: data(:) character (len = 16), intent(in) :: dirstr character (len = 12), intent(in) :: dispstr character (len = *), optional, intent(in) :: str end subroutine noop_pe_comm1 C -------------------------------------------------------------------------- C Purpose: C C to provide a no-op noop_comm2.f counter part for serial code C C Revision history: C C Orginal version: 10/6/98 by David Wong C 11/05/99 by David Wong C -- recode using F90 syntax C -------------------------------------------------------------------------- subroutine noop_pe_comm2 (data, dispstr, dirstr, str) implicit none real, intent(in) :: data(:, :) character (len = 16), intent(in) :: dirstr character (len = 12), intent(in) :: dispstr character (len = *), optional, intent(in) :: str end subroutine noop_pe_comm2 C -------------------------------------------------------------------------- C Purpose: C C to provide a no-op noop_comm2e.f counter part for serial code C C Revision history: C C Orginal version: 10/6/98 by David Wong C 11/05/99 by David Wong C -- recode using F90 syntax C -------------------------------------------------------------------------- subroutine noop_pe_comm2e (data, dispstr, dirstr, flag, str) implicit none real, intent(in) :: data(:, :) character (len = 16), intent(in) :: dirstr character (len = 12), intent(in) :: dispstr integer, intent(in) :: flag character (len = *), optional, intent(in) :: str end subroutine noop_pe_comm2e C -------------------------------------------------------------------------- C Purpose: C C to provide a no-op noop_comm3.f counter part for serial code C C Revision history: C C Orginal version: 10/6/98 by David Wong C 11/05/99 by David Wong C -- recode using F90 syntax C -------------------------------------------------------------------------- subroutine noop_pe_comm3 (data, dispstr, dirstr, str) implicit none real, intent(in) :: data(:, :, :) character (len = 16), intent(in) :: dirstr character (len = 12), intent(in) :: dispstr character (len = *), optional, intent(in) :: str end subroutine noop_pe_comm3 C -------------------------------------------------------------------------- C Purpose: C C to provide a no-op noop_comm3e.f counter part for serial code C C Revision history: C C Orginal version: 10/6/98 by David Wong C 11/05/99 by David Wong C -- recode using F90 syntax C -------------------------------------------------------------------------- subroutine noop_pe_comm3e (data, dispstr, dirstr, flag, str) implicit none real, intent(in) :: data(:, :, :) character (len = 16), intent(in) :: dirstr character (len = 12), intent(in) :: dispstr integer, intent(in) :: flag character (len = *), optional, intent(in) :: str end subroutine noop_pe_comm3e subroutine noop_pe_comm3s (sdata, ddata, dispstr, dirstr, str) C -------------------------------------------------------------------------- C Purpose: C C to provide a no-op noop_comm3s counter part for serial code C C Revision history: C C Original version: Oct 01, 2018 C -------------------------------------------------------------------------- implicit none real, intent(in) :: sdata(:,:,:) real, intent(in) :: ddata(:,:,:) character (len = 16), intent(in) :: dirstr character (len = 12), intent(in) :: dispstr character (len = *), optional, intent(in) :: str end subroutine noop_pe_comm3s C -------------------------------------------------------------------------- C Purpose: C C to provide a no-op noop_comm4.f counter part for serial code C C Revision history: C C Orginal version: 10/6/98 by David Wong C 11/05/99 by David Wong C -- recode using F90 syntax C -------------------------------------------------------------------------- subroutine noop_pe_comm4 (data, dispstr, dirstr, str) implicit none real, intent(in) :: data(:, :, :, :) character (len = 16), intent(in) :: dirstr character (len = 12), intent(in) :: dispstr character (len = *), optional, intent(in) :: str end subroutine noop_pe_comm4 end module noop_comm_module ================================================ FILE: CCTM/src/STENEX/noop/noop_data_copy_module.f ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/work/rep/STENEX/src/noop_f90/noop_data_copy_module.f,v 1.3 2002/02/28 15:25:45 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% C -------------------------------------------------------------------------- C Purpose: C C use F90 interface feature to achieve "faked" polymorphism for noop data C copy routine C C Revision history: C C Orginal version: 11/05/99 by David Wong C -------------------------------------------------------------------------- module noop_data_copy_module implicit none interface noop_data_copy module procedure noop_2d_data_copy, noop_2de_data_copy, & noop_3d_data_copy, noop_3de_data_copy, & noop_4d_data_copy, noop_4de_data_copy end interface contains C -------------------------------------------------------------------------- C Purpose: C C to provide a no-op 2-D noop_data_copy.f counter part for serial code C C Revision history: C C Orginal version: 02/15/99 by David Wong C 11/05/99 by David Wong C -- recode using F90 syntax C -------------------------------------------------------------------------- subroutine noop_2d_data_copy (data1, data2) implicit none real, intent(in) :: data1(:, :) real, intent(out) :: data2(:, :) end subroutine noop_2d_data_copy C -------------------------------------------------------------------------- C Purpose: C C to provide a no-op 2-D noop_data_copy.f counter part for serial code C C Revision history: C C Orginal version: 02/15/99 by David Wong C 11/05/99 by David Wong C -- recode using F90 syntax C 05/11/01 by David Wong C -- fixed data1 declaration bug C -------------------------------------------------------------------------- subroutine noop_2de_data_copy (data1, data2, spc) implicit none real, intent(in) :: data1(:, :, :) real, intent(out) :: data2(:, :) integer, intent(in) :: spc end subroutine noop_2de_data_copy C -------------------------------------------------------------------------- C Purpose: C C to provide a no-op 3-D noop_data_copy.f counter part for serial code C C Revision history: C C Orginal version: 02/15/99 by David Wong C 11/05/99 by David Wong C -- recode using F90 syntax C -------------------------------------------------------------------------- subroutine noop_3d_data_copy (data1, data2) implicit none real, intent(in) :: data1(:, :, :) real, intent(out) :: data2(:, :, :) end subroutine noop_3d_data_copy C -------------------------------------------------------------------------- C Purpose: C C to provide a no-op 3-D noop_data_copy.f counter part for serial code C C Revision history: C C Orginal version: 02/15/99 by David Wong C 11/05/99 by David Wong C -- recode using F90 syntax C 05/11/01 by David Wong C -- fixed data1 declaration bug C -------------------------------------------------------------------------- subroutine noop_3de_data_copy (data1, data2, spc) implicit none real, intent(in) :: data1(:, :, :, :) real, intent(out) :: data2(:, :, :) integer, intent(in) :: spc end subroutine noop_3de_data_copy C -------------------------------------------------------------------------- subroutine noop_4d_data_copy (data1, data2) implicit none real, intent(in) :: data1(:, :, :, :) real, intent(out) :: data2(:, :, :, :) end subroutine noop_4d_data_copy C -------------------------------------------------------------------------- C Purpose: C C to provide a no-op 4-D noop_data_copy.f counter part for serial code C C Revision history: C C Orginal version: 02/15/99 by David Wong C 11/05/99 by David Wong C -- recode using F90 syntax C -------------------------------------------------------------------------- subroutine noop_4de_data_copy (data1, data2, spc, des) implicit none real, intent(in) :: data1(:, :, :, :) real, intent(out) :: data2(:, :, :, :) integer, intent(in) :: spc, des end subroutine noop_4de_data_copy end module noop_data_copy_module ================================================ FILE: CCTM/src/STENEX/noop/noop_gather_module.f ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/work/rep/STENEX/src/noop_f90/noop_gather_module.f,v 1.2 2000/12/22 18:38:22 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% C -------------------------------------------------------------------------- C Purpose: C C use F90 module feature to include all routines to perform data gather C function in one module and use F90 interface feature to achieve "faked" C polymorphism for data gather routine C C Revision history: C C Orginal version: 11/05/99 by David Wong C Add integer data 12/16/00 by Jeff Young C -------------------------------------------------------------------------- module noop_gather_module implicit none interface noop_gather module procedure noop_gather1i, noop_gather1r, & noop_gather2i, noop_gather2r, & noop_gather3i, noop_gather3r, & noop_gather4i, noop_gather4r end interface contains C -------------------------------------------------------------------------- C Purpose: C C to provide a no-op noop_gather1.f counter part for serial code C C Revision history: C C Orginal version: 7/14/98 by David Wong C 11/05/99 by David Wong C -- recode the code using F90 syntax C -------------------------------------------------------------------------- subroutine noop_gather1r (data, pec, ptr, n, sdim) implicit none integer, intent(in) :: n, sdim, pec(:), ptr(:) real, intent(in) :: data(:) end subroutine noop_gather1r C -------------------------------------------------------------------------- C Purpose: C C to provide a no-op noop_gather2.f counter part for serial code C C Revision history: C C Orginal version: 7/14/98 by David Wong C 11/05/99 by David Wong C -- recode the code using F90 syntax C -------------------------------------------------------------------------- subroutine noop_gather2r (data, pec, ptr, n, sdim) implicit none integer, intent(in) :: n, sdim, pec(:), ptr(:) real, intent(in) :: data(:, :) end subroutine noop_gather2r C -------------------------------------------------------------------------- C Purpose: C C to provide a no-op noop_gather3.f counter part for serial code C C Revision history: C C Orginal version: 6/23/98 by David Wong C 11/05/99 by David Wong C -- recode the code using F90 syntax C -------------------------------------------------------------------------- subroutine noop_gather3r (data, pec, ptr, n, sdim) implicit none integer, intent(in) :: n, sdim, pec(:), ptr(:) real, intent(in) :: data(:, :, :) end subroutine noop_gather3r C -------------------------------------------------------------------------- C Purpose: C C to provide a no-op noop_gather4.f counter part for serial code C C Revision history: C C Orginal version: 7/14/98 by David Wong C 11/05/99 by David Wong C -- recode the code using F90 syntax C -------------------------------------------------------------------------- subroutine noop_gather4r (data, pec, ptr, n, sdim) implicit none integer, intent(in) :: n, sdim, pec(:), ptr(:) real, intent(in) :: data(:, :, :, :) end subroutine noop_gather4r C -------------------------------------------------------------------------- subroutine noop_gather1i (data, pec, ptr, n, sdim) implicit none integer, intent(in) :: n, sdim, pec(:), ptr(:) integer, intent(in) :: data(:) end subroutine noop_gather1i C -------------------------------------------------------------------------- subroutine noop_gather2i (data, pec, ptr, n, sdim) implicit none integer, intent(in) :: n, sdim, pec(:), ptr(:) integer, intent(in) :: data(:, :) end subroutine noop_gather2i C -------------------------------------------------------------------------- subroutine noop_gather3i (data, pec, ptr, n, sdim) implicit none integer, intent(in) :: n, sdim, pec(:), ptr(:) integer, intent(in) :: data(:, :, :) end subroutine noop_gather3i C -------------------------------------------------------------------------- subroutine noop_gather4i (data, pec, ptr, n, sdim) implicit none integer, intent(in) :: n, sdim, pec(:), ptr(:) integer, intent(in) :: data(:, :, :, :) end subroutine noop_gather4i end module noop_gather_module ================================================ FILE: CCTM/src/STENEX/noop/noop_global_max_module.f ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/work/rep/STENEX/src/noop_f90/noop_global_max_module.f,v 1.1.1.1 2000/04/12 17:40:55 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% C -------------------------------------------------------------------------- C Purpose: C C use F90 interface feature to achieve "faked" polymorphism for noop global C max routine C C Revision history: C C Orginal version: 11/05/99 by David Wong C ----------------------------------------------------------------------------- module noop_global_max_module implicit none interface noop_global_max module procedure noop_global_imax, noop_global_rmax end interface contains C ----------------------------------------------------------------------------- C Purpose: C C to provide a no-op counter part for serial code se_global_imax.f C C Revision history: C C Orginal version: 6/9/99 by David Wong C 11/05/99 by David Wong C -- recode using F90 syntax C C Parameter List: C C In: var -- input variable C ----------------------------------------------------------------------------- function noop_global_imax (var) result (noop_global_imax_result) implicit none integer, intent(in) :: var integer :: noop_global_imax_result noop_global_imax_result = var end function noop_global_imax C ----------------------------------------------------------------------------- C Purpose: C C to provide a no-op counter part for serial code se_global_rmax.f C C Revision history: C C Orginal version: 6/9/99 by David Wong C 11/05/99 by David Wong C -- recode using F90 syntax C C Parameter List: C C In: var -- input variable C ----------------------------------------------------------------------------- function noop_global_rmax (var) result (noop_global_rmax_result) implicit none real, intent(in) :: var real :: noop_global_rmax_result noop_global_rmax_result = var end function noop_global_rmax end module noop_global_max_module ================================================ FILE: CCTM/src/STENEX/noop/noop_global_min_module.f ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/work/rep/STENEX/src/noop_f90/noop_global_min_module.f,v 1.1.1.1 2000/04/12 17:40:55 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% C -------------------------------------------------------------------------- C Purpose: C C use F90 interface feature to achieve "faked" polymorphism for noop global C min routine C C Revision history: C C Orginal version: 11/05/99 by David Wong C ----------------------------------------------------------------------------- module noop_global_min_module implicit none interface noop_global_min module procedure noop_global_imin, noop_global_rmin end interface contains C ----------------------------------------------------------------------------- C Purpose: C C to provide a no-op counter part for serial code se_global_imin.f C C Revision history: C C Orginal version: 6/9/99 by David Wong C 11/05/99 by David Wong C -- recode using F90 syntax C C Parameter List: C C In: var -- input variable C ----------------------------------------------------------------------------- function noop_global_imin (var) result (noop_global_imin_result) implicit none integer, intent(in) :: var integer :: noop_global_imin_result noop_global_imin_result = var end function noop_global_imin C ----------------------------------------------------------------------------- C Purpose: C C to provide a no-op counter part for serial code se_global_rmin.f C C Revision history: C C Orginal version: 6/9/99 by David Wong C 11/05/99 by David Wong C -- recode using F90 syntax C C Parameter List: C C In: var -- input variable C ----------------------------------------------------------------------------- function noop_global_rmin (var) result (noop_global_rmin_result) real none real, intent(in) :: var real :: noop_global_rmin_result noop_global_rmin_result = var end function noop_global_rmin end module noop_global_min_module ================================================ FILE: CCTM/src/STENEX/noop/noop_global_sum_module.f ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/work/rep/STENEX/src/noop_f90/noop_global_sum_module.f,v 1.1.1.1 2000/04/12 17:40:55 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% C -------------------------------------------------------------------------- C Purpose: C C use F90 interface feature to achieve "faked" polymorphism for noop global C sum routine C C Revision history: C C Orginal version: 11/05/99 by David Wong C ----------------------------------------------------------------------------- module noop_global_sum_module implicit none interface noop_global_sum module procedure noop_global_isum, noop_global_rsum end interface contains C ----------------------------------------------------------------------------- C Purpose: a noop counter part of se_global_isum which determine the global C integer sum C C Revision history: C C Orginal version: 11/16/98 by David Wong C 11/05/99 by David Wong C -- recode using F90 syntax C C Parameter List: C C In: var -- sum variable C ----------------------------------------------------------------------------- function noop_global_isum (var) result (noop_global_isum_result) implicit none integer, intent(in) :: var integer :: noop_global_isum_result noop_global_isum_result = var end function noop_global_isum C ----------------------------------------------------------------------------- C Purpose: a noop counter part of se_global_rsum which determine the global C real sum C C Revision history: C C Orginal version: 11/16/98 by David Wong C 11/05/99 by David Wong C -- recode using F90 syntax C C Parameter List: C C In: var -- sum variable C ----------------------------------------------------------------------------- function noop_global_rsum (var) result (noop_global_rsum_result) implicit none real, intent(in) :: var real :: noop_global_rsum_result noop_global_rsum_result = var end function noop_global_rsum end module noop_global_sum_module ================================================ FILE: CCTM/src/STENEX/noop/noop_init_module.f ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/work/rep/STENEX/src/noop_f90/noop_init_module.f,v 1.1.1.1 2000/04/12 17:40:55 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% C -------------------------------------------------------------------------- C Purpose: C C use F90 module feature to capture noop_init routine C C Revision history: C C Orginal version: 11/05/99 by David Wong C -------------------------------------------------------------------------- module noop_init_module implicit none contains C ----------------------------------------------------------------------------- C Purpose: C C to provide a no-op noop_init.f counter part for serial code C C Revision history: C C Orginal version: 10/6/98 by David Wong C 11/05/99 by David Wong C -- recode using F90 syntax C ----------------------------------------------------------------------------- subroutine noop_init (numprocs, nprow, npcol, gl_nrows, $ gl_ncols, gl_nlays, gl_nspcs, my_pe, $ mndis, medis, msdis, mwdis, data_ori, geo_ori) implicit none integer, intent(in) :: numprocs, nprow, npcol integer, intent(in) :: gl_nrows, gl_ncols, gl_nlays, gl_nspcs integer, intent(in) :: my_pe integer, intent(in) :: mndis, medis, msdis, mwdis character (len = 2), optional, intent(in) :: data_ori integer, optional, intent(in) :: geo_ori end subroutine noop_init end module noop_init_module ================================================ FILE: CCTM/src/STENEX/noop/noop_modules.f ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/work/rep/STENEX/src/noop_f90/noop_modules.f,v 1.3 2002/02/28 15:20:36 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% C -------------------------------------------------------------------------- C Purpose: C C to provide an interface between the noop stencil exchange library and the C application code C C Revision history: C C Orginal version: 11/05/99 by David Wong C 02/27/01 by David Wong C -- to include a new statement: use noop_term_module C 11/27/01 by David Wong C -- include a new module: noop_bndy_copy_module C -------------------------------------------------------------------------- module noop_modules use noop_init_module use noop_term_module use noop_util_module use noop_comm_module use noop_slice_module use noop_data_copy_module use noop_gather_module use noop_global_max_module use noop_global_min_module use noop_global_sum_module end module noop_modules ================================================ FILE: CCTM/src/STENEX/noop/noop_slice_module.f ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/work/rep/STENEX/src/noop_f90/noop_slice_module.f,v 1.2 2000/12/22 18:37:12 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% C -------------------------------------------------------------------------- C Purpose: C C use F90 interface feature to achieve "faked" polymorphism for data C slicing routine C C Revision history: C C Orginal version: 11/05/99 by David Wong C Add integer data 12/20/00 by Jeff Young C -------------------------------------------------------------------------- module noop_slice_module implicit none interface noop_slice module procedure noop_slice1i, noop_slice1r, & noop_slice2i, noop_slice2r, & noop_slice3i, noop_slice3r, & noop_slice4i, noop_slice4r end interface contains C -------------------------------------------------------------------------- C Purpose: C C to provide a no-op noop_slice1i.f counter part for serial code C C Revision history: C C Orginal version: 5/26/98 by David Wong C 11/05/99 by David Wong C -- recode using F90 syntax C -------------------------------------------------------------------------- subroutine noop_slice1i (data, sourcepe, destpe, dim, from, to) implicit none integer, intent(in) :: sourcepe, destpe, dim, from, to integer, intent(in) :: data(:) end subroutine noop_slice1i C -------------------------------------------------------------------------- C Purpose: C C to provide a no-op noop_slice1r.f counter part for serial code C C Revision history: C C Orginal version: 5/26/98 by David Wong C 11/05/99 by David Wong C -- recode using F90 syntax C -------------------------------------------------------------------------- subroutine noop_slice1r (data, sourcepe, destpe, dim, from, to) implicit none integer, intent(in) :: sourcepe, destpe, dim, from, to real, intent(in) :: data(:) end subroutine noop_slice1r C -------------------------------------------------------------------------- C Purpose: C C to provide a no-op noop_slice2i.f counter part for serial code C C Revision history: C C Orginal version: 5/26/98 by David Wong C 11/05/99 by David Wong C -- recode using F90 syntax C -------------------------------------------------------------------------- subroutine noop_slice2i (data, sourcepe, destpe, dim, from, to) implicit none integer, intent(in) :: sourcepe, destpe, dim, from, to integer, intent(in) :: data(:, :) end subroutine noop_slice2i C -------------------------------------------------------------------------- C Purpose: C C to provide a no-op noop_slice2r.f counter part for serial code C C Revision history: C C Orginal version: 5/26/98 by David Wong C 11/05/99 by David Wong C -- recode using F90 syntax C -------------------------------------------------------------------------- subroutine noop_slice2r (data, sourcepe, destpe, dim, from, to) implicit none integer, intent(in) :: sourcepe, destpe, dim, from, to real, intent(in) :: data(:, :) end subroutine noop_slice2r C -------------------------------------------------------------------------- C Purpose: C C to provide a no-op noop_slice3i.f counter part for serial code C C Revision history: C C Orginal version: 5/26/98 by David Wong C 11/05/99 by David Wong C -- recode using F90 syntax C -------------------------------------------------------------------------- subroutine noop_slice3i (data, sourcepe, destpe, dim, from, to) implicit none integer, intent(in) :: sourcepe, destpe, dim, from, to integer, intent(in) :: data(:, :, :) end subroutine noop_slice3i C -------------------------------------------------------------------------- C Purpose: C C to provide a no-op noop_slice3r.f counter part for serial code C C Revision history: C C Orginal version: 5/26/98 by David Wong C 11/05/99 by David Wong C -- recode using F90 syntax C -------------------------------------------------------------------------- subroutine noop_slice3r (data, sourcepe, destpe, dim, from, to) implicit none integer, intent(in) :: sourcepe, destpe, dim, from, to real, intent(in) :: data(:, :, :) end subroutine noop_slice3r C -------------------------------------------------------------------------- C Purpose: C C to provide a no-op noop_slice4i.f counter part for serial code C C Revision history: C C Orginal version: 5/26/98 by David Wong C 11/05/99 by David Wong C -- recode using F90 syntax C -------------------------------------------------------------------------- subroutine noop_slice4i (data, sourcepe, destpe, dim, from, to) implicit none integer, intent(in) :: sourcepe, destpe, dim, from, to integer, intent(in) :: data(:, :, :, :) end subroutine noop_slice4i C -------------------------------------------------------------------------- C Purpose: C C to provide a no-op noop_slice4r.f counter part for serial code C C Revision history: C C Orginal version: 5/26/98 by David Wong C 11/05/99 by David Wong C -- recode using F90 syntax C -------------------------------------------------------------------------- subroutine noop_slice4r (data, sourcepe, destpe, dim, from, to) implicit none integer, intent(in) :: sourcepe, destpe, dim, from, to real, intent(in) :: data(:, :, :, :) end subroutine noop_slice4r end module noop_slice_module ================================================ FILE: CCTM/src/STENEX/noop/noop_term_module.f ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/work/rep/STENEX/src/noop_f90/noop_term_module.f,v 1.1 2002/02/28 16:27:28 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% C -------------------------------------------------------------------------- C Purpose: C C to terminate stenex library C C Revision history: C C Orginal version: 11/30/00 by David Wong C -------------------------------------------------------------------------- module noop_term_module implicit none contains subroutine noop_term implicit none return end subroutine noop_term end module noop_term_module ================================================ FILE: CCTM/src/STENEX/noop/noop_util_module.f ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/work/rep/STENEX/src/noop_f90/noop_util_module.f,v 1.5 2002/02/28 15:22:46 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% C -------------------------------------------------------------------------- C Purpose: C C use F90 interface feature to achieve "faked" polymorphism for noop data C initialization routine and use F90 module feature to collect a set of C noop utility routines which consists of: C C noop_init_array.f C noop_hi_lo_bnd_pe.f C noop_loop_index.f C noop_barrier.f C noop_global_min_data.f C noop_global_to_local_coord.f C noop_subgrid_index.f C noop_sum_chk.f C noop_my_region.f C noop_global_logical.f C noop_in_syn C C that are used directly from the application C C Revision history: C C Orginal version: 11/05/99 by David Wong C 04/24/00 by David Wong C -- include a new module, se_global_logical.f C ----------------------------------------------------------------------------- module noop_util_module implicit none interface noop_init_array module procedure noop_init_iarray, noop_init_rarray end interface interface noop_sum_chk module procedure noop_isum_chk, noop_rsum_chk end interface interface noop_subgrid_index module procedure noop_subgrid_index_2, noop_subgrid_index_3, & noop_subgrid_index_n2, noop_subgrid_index_n3 end interface contains C ----------------------------------------------------------------------------- C Purpose: C C to provide a no-op noop_init_iarray.f counter part for serial code C C Revision history: C C Orginal version: 5/20/99 by David Wong C 11/05/99 by David Wong C -- recode using F90 syntax C ----------------------------------------------------------------------------- subroutine noop_init_iarray ( wpe, val ) implicit none integer, intent(out) :: wpe(:) integer, intent(in) :: val integer i do i = 1, size(wpe,1) wpe(i) = val end do end subroutine noop_init_iarray C ----------------------------------------------------------------------------- C Purpose: C C to provide a no-op noop_init_rarray.f counter part for serial code C C Revision history: C C Orginal version: 10/05/00 by David Wong C ----------------------------------------------------------------------------- subroutine noop_init_rarray ( wpe, val ) implicit none real, intent(out) :: wpe(:) real, intent(in) :: val integer i do i = 1, size(wpe,1) wpe(i) = val end do end subroutine noop_init_rarray C ----------------------------------------------------------------------------- C Purpose: C C to provide a no-op hi_lo_bnd_pe.f counter part for serial code C C Revision history: C C Orginal version: 1/19/99 by David Wong C 11/05/99 by David Wong C -- recode using F90 syntax C ----------------------------------------------------------------------------- subroutine noop_hi_lo_bnd_pe (ori, low_index, high_index) implicit none character, intent(in) :: ori logical, intent(out) :: low_index, high_index low_index = .true. high_index = .true. end subroutine noop_hi_lo_bnd_pe C ----------------------------------------------------------------------------- C Purpose: C C to provide a no-op loop_index.f counter part for serial code C C Revision history: C C Orginal version: 10/06/98 by David Wong C 01/19/99 by David Wong C removed the top_pe and bot_pe logical part which is C computed in a seperate subroutine noop_hi_lo_bnd_pe.f C 11/05/99 by David Wong C -- recode using F90 syntax C ----------------------------------------------------------------------------- subroutine noop_loop_index (ori, gstart, gend, dif, my_nn, start, end) implicit none character, intent(in) :: ori integer, intent(in) :: gstart, gend, dif integer, intent(out) :: my_nn, start, end start = gstart end = gend + dif my_nn = gend end subroutine noop_loop_index C -------------------------------------------------------------------------- C Purpose: C C to provide a no-op noop_barrier.f counter part for serial code C C Revision history: C C Orginal version: 10/6/98 by David Wong C 11/05/99 by David Wong C -- recode using F90 syntax C -------------------------------------------------------------------------- subroutine noop_barrier implicit none end subroutine noop_barrier C ----------------------------------------------------------------------------- C Purpose: C C to provide a no-op noop_global_min_data.f counter part for serial code C C Revision history: C C Orginal version: 2/15/98 by David Wong C 11/05/99 by David Wong C -- recode using F90 syntax C ----------------------------------------------------------------------------- subroutine noop_global_min_data (var, col, row, lvl, meddyv, never, & mtrop, ftrop, mth1, mth2, mrib, mws) implicit none real, intent(in) :: var real, intent(inout) :: meddyv, mth1, mth2, mrib, mws integer, intent(inout) :: col, row, lvl, mtrop logical, intent(inout) :: never, ftrop end subroutine noop_global_min_data C ----------------------------------------------------------------------------- C Purpose: C C to provide a no-op noop_global_to_local_coord.f counter part for serial code C C Revision history: C C Orginal version: 6/18/99 by David Wong C 11/05/99 by David Wong C -- recode using F90 syntax C ----------------------------------------------------------------------------- subroutine noop_global_to_local_coord (x, y, my_x, my_y, nthick) implicit none integer, intent(in) :: x, y, nthick integer, intent(inout) :: my_x, my_y my_x = x my_y = y end subroutine noop_global_to_local_coord C ----------------------------------------------------------------------------- subroutine noop_subgrid_index_2 (begrow, endrow, begcol, endcol, & my_begrow, my_endrow, & my_begcol, my_endcol, & my_subgrid_rows, my_subgrid_cols, & nrows_in, ncols_in) implicit none integer, intent(in) :: begrow, endrow, begcol, endcol integer, intent(out) :: my_begrow, my_endrow, my_begcol, my_endcol integer, intent(out) :: my_subgrid_rows, my_subgrid_cols integer, optional, intent(in) :: nrows_in, ncols_in my_begrow = begrow my_endrow = endrow my_begcol = begcol my_endcol = endcol my_subgrid_rows = endrow - begrow + 1 my_subgrid_cols = endcol - begcol + 1 end subroutine noop_subgrid_index_2 C Revision history: C C Orginal version: 10/26/00 by David Wong C 12/18/00 by Jeff Young C -- remove my_subgrid_levs to make backwardly compatible w/ C CCTM code - can't decompose in this dimension now. C C ----------------------------------------------------------------------------- subroutine noop_subgrid_index_3 & ( begrow, endrow, begcol, endcol, beglev, endlev, & my_begrow, my_endrow, my_begcol, my_endcol, my_beglev, my_endlev, ! & my_subgrid_rows, my_subgrid_cols, my_subgrid_levs, & my_subgrid_rows, my_subgrid_cols, & nrows_in, ncols_in, nlevs_in ) implicit none integer, intent(in) :: begrow, endrow, begcol, endcol, beglev, endlev integer, intent(out) :: my_begrow, my_endrow, my_begcol, my_endcol integer, intent(out) :: my_beglev, my_endlev integer, intent(out) :: my_subgrid_rows, my_subgrid_cols ! & my_subgrid_levs integer, optional, intent(in) :: nrows_in, ncols_in, nlevs_in my_begrow = begrow my_endrow = endrow my_begcol = begcol my_endcol = endcol my_beglev = beglev my_endlev = endlev my_subgrid_rows = endrow - begrow + 1 my_subgrid_cols = endcol - begcol + 1 ! my_subgrid_levs = endlev - beglev + 1 end subroutine noop_subgrid_index_3 C ----------------------------------------------------------------------------- subroutine noop_subgrid_index_n2 (begrow, endrow, begcol, endcol, & my_begrow, my_endrow, & my_begcol, my_endcol, flag) implicit none integer, intent(in) :: begrow, endrow, begcol, endcol integer, intent(out) :: my_begrow, my_endrow, my_begcol, my_endcol character, intent(in) :: flag my_begrow = begrow my_endrow = endrow my_begcol = begcol my_endcol = endcol end subroutine noop_subgrid_index_n2 C ----------------------------------------------------------------------------- subroutine noop_subgrid_index_n3 (begrow, endrow, begcol, endcol, & beglev, endlev, & my_begrow, my_endrow, & my_begcol, my_endcol, & my_beglev, my_endlev, flag) implicit none integer, intent(in) :: begrow, endrow, begcol, endcol, beglev, endlev integer, intent(out) :: my_begrow, my_endrow, my_begcol, & my_endcol, my_beglev, my_endlev character, intent(in) :: flag my_begrow = begrow my_endrow = endrow my_begcol = begcol my_endcol = endcol my_beglev = beglev my_endlev = endlev end subroutine noop_subgrid_index_n3 C -- Fortran functions C ----------------------------------------------------------------------------- C Purpose: C C to provide a no-op noop_isum_ck.f counter part for serial code C C Revision history: C C Orginal version: 10/6/98 by David Wong C 11/05/99 by David Wong C -- recode using F90 syntax C -------------------------------------------------------------------------- function noop_isum_chk (var1, op, var2) result (noop_isum_chk_result) implicit none logical :: noop_isum_chk_result integer, intent(in) :: var1, var2 character (len = 2), intent(in) :: op logical :: lnoop_isum_chk lnoop_isum_chk = .false. if (op .eq. 'EQ') then if (var1 .eq. var2) then lnoop_isum_chk = .true. end if else if (op .eq. 'GT') then if (var1 .gt. var2) then lnoop_isum_chk = .true. end if else if (op .eq. 'GE') then if (var1 .ge. var2) then lnoop_isum_chk = .true. end if else if (op .eq. 'LT') then if (var1 .lt. var2) then lnoop_isum_chk = .true. end if else if (var1 .le. var2) then lnoop_isum_chk = .true. end if end if noop_isum_chk_result = lnoop_isum_chk end function noop_isum_chk C ----------------------------------------------------------------------------- C Purpose: C C to provide a no-op noop_rsum_ck.f counter part for serial code C C Revision history: C C Orginal version: 10/6/98 by David Wong C 11/05/99 by David Wong C -- recode using F90 syntax C -------------------------------------------------------------------------- function noop_rsum_chk (var1, op, var2) result (noop_rsum_chk_result) implicit none logical :: noop_rsum_chk_result real, intent(in) :: var1, var2 character (len = 2), intent(in) :: op logical :: lnoop_rsum_chk lnoop_rsum_chk = .false. if (op .eq. 'EQ') then if (var1 .eq. var2) then lnoop_rsum_chk = .true. end if else if (op .eq. 'GT') then if (var1 .gt. var2) then lnoop_rsum_chk = .true. end if else if (op .eq. 'GE') then if (var1 .ge. var2) then lnoop_rsum_chk = .true. end if else if (op .eq. 'LT') then if (var1 .lt. var2) then lnoop_rsum_chk = .true. end if else if (var1 .le. var2) then lnoop_rsum_chk = .true. end if end if noop_rsum_chk_result = lnoop_rsum_chk end function noop_rsum_chk C ----------------------------------------------------------------------------- C Purpose: C C to provide a no-op noop_my_region.f counter part for serial code C C Revision history: C C Orginal version: 5/19/99 by David Wong C 11/05/99 by David Wong C -- recode using F90 syntax C ----------------------------------------------------------------------------- function noop_my_region (x, y, wpe) & result (noop_my_region_result) implicit none integer, intent(in) :: x, y integer, intent(out) :: wpe logical :: noop_my_region_result noop_my_region_result = .true. wpe = 0 end function noop_my_region C ----------------------------------------------------------------------------- C Purpose: C C to provide a no-op counter part for serial code se_global_logical.f C C Revision history: C C Orginal version: 04/24/00 by David Wong C C Parameter List: C C InOut: var -- input variable C In : operator -- operator type C C ----------------------------------------------------------------------------- subroutine noop_global_logical (var, operator) implicit none logical var character*3 operator return end subroutine noop_global_logical C ----------------------------------------------------------------------------- C Purpose: C C to provide a no-op counter part for serial code se_in_syn C C Revision history: C C Orginal version: 12/04/01 by David Wong C C Parameter List: C C InOut: var -- input variable C In : pe -- PE number C C ----------------------------------------------------------------------------- subroutine noop_in_syn (var, pe) implicit none logical, intent(inout) :: var integer, intent(in) :: pe return end subroutine noop_in_syn end module noop_util_module ================================================ FILE: CCTM/src/STENEX/se/se_bndy_copy_info_ext.f ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/work/rep/STENEX/src/se_snl/se_bndy_copy_info_ext.f,v 1.1 2004/03/26 16:16:47 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% C -------------------------------------------------------------------------- C se_bngb_pe -- neighbouring PE in the boundary exchange communication C pattern C -------------------------------------------------------------------------- module se_bndy_copy_info_ext integer :: se_bngb_pe(8) end module se_bndy_copy_info_ext ================================================ FILE: CCTM/src/STENEX/se/se_bndy_copy_module.f ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/work/rep/STENEX/src/se_snl/se_bndy_copy_module.f,v 1.2 2006/02/15 14:41:56 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% C -------------------------------------------------------------------------- C Purpose: C C use F90 interface feature to achieve "faked" polymorphism for pe boundary C exchange routine and use F90 module feature to modulize pe boundary exchange C functionality of the stencil exchange library. Shallow Water Model is the C target application. C C Note: C C Currently only 2-D case is implemented. C C Revision history: C C Orginal version: 11/28/01 by David Wong C Modified: 08/24/11 by David Wong C -- eliminated data and geo orientation C -------------------------------------------------------------------------- module se_bndy_copy_module implicit none interface se_bndy_copy module procedure se_bndy_copy2 end interface contains C -------------------------------------------------------------------------- C Purpose: C C determine the set of boundary exchange "neighbouring" processor(s) that C my own processor needs to communicate with. C C Revision history: C C Orginal version: 11/28/01 by David Wong C 08/24/11 by David Wong C -- removed se_ori_ext to eliminate data and geo orientation C C Subroutine parameter description: C C In: dirstr -- indicator of communication direction C 0 (without communication), 1 (with communication) C C Out: send_to -- processor number which data needs to be sent to C recv_from -- processor number which data is recvd from C C Local variable description: C C rdirection -- input communication direction for receiveing C sdirection -- communication direction for sending C i, j -- loop indexes C k -- location indicator C -------------------------------------------------------------------------- subroutine se_bndy_copy_pat (dirstr, send_to, recv_from) use se_bndy_copy_info_ext ! use se_ori_ext use se_internal_util_module implicit none character (len = 16), intent(in) :: dirstr integer, intent(out) :: send_to (8), recv_from (8) integer :: i, j, k integer :: rdirection (8), sdirection(8) C -- extract inform from input strings read (dirstr, 10) (sdirection(i), i=1, 8) 10 format (8i2) C -- figuring out send direction pattern do i = 1, 8 rdirection(i) = sdirection(mod(i+3,8)+1) end do C -- determine where data is receiving from C -- first: N, E, S, and W do i = 1, 7, 2 if ((rdirection (i) .gt. 0) .and. & (se_bngb_pe(i) .ge. 0)) then recv_from(i) = se_bngb_pe(i) else recv_from(i) = -1 end if end do C -- second: NE, SE, SW, NW, and their immediate neighbours C -- for instance, NE's immediate neighbours are N, and E do i = 2, 8, 2 if (rdirection(i) .gt. 0) then do j = i-1, i+1 k = j if (k .eq. 9) then k = 1 end if if (se_bngb_pe(k) .ge. 0) then recv_from(k) = se_bngb_pe(k) else recv_from(k) = -1 end if end do else recv_from(i) = -1 end if end do C -- determine where data is sending to C -- first: N, E, S, and W do i = 1, 7, 2 if ((sdirection (i) .gt. 0) .and. & (se_bngb_pe(i) .ge. 0)) then send_to(i) = se_bngb_pe(i) else send_to(i) = -1 end if end do C -- second: NE, SE, SW, NW, and their immediate neighbours C -- for instance, NE's immediate neighbours are N, and E do i = 2, 8, 2 if (sdirection(i) .gt. 0) then do j = i-1, i+1 k = j if (k .eq. 9) then k = 1 end if if (se_bngb_pe(k) .ge. 0) then send_to(k) = se_bngb_pe(k) else send_to(k) = -1 end if end do else send_to(i) = -1 end if end do return end subroutine se_bndy_copy_pat C -------------------------------------------------------------------------- C Purpose: C C perform boundary exchange communication in the global scenario C C Example: C C Give a global data, A (10, 20) C C various exchange examples: C C -- copying data from A(1, 1:19) to A(10, 1:19) C -- copying data from (10,20) to A(1,1) C C Revision history: C C Orginal version: 11/28/01 by David Wong C 03/06/02 David Wong C -- use blocking communication scheme C -- use array copy mechanism when communicates to itself C 12/04/02 by David Wong C -- modified the routine to accommodate worker and C I/O processors partition scheme C C Subroutine parameter description: C C In: data -- original data C dispstr -- displacement string C dirstr -- indicator of communication direction C 0 (without communication), 1 (with communication) C str -- an optional argument to indicate the starting index of C certain dimension C C Out: data -- original data after communication C C Local variable description: C C send_to -- processor number which data needs to be sent to C send_to_ptr -- a F90 pointer (alias) of send_to C recv_from -- processor number which data is recvd from C recv_from_ptr -- a F90 pointer (alias) of recv_from C sdir, rdir -- loop indexes which indicate send to or recvd from C sind -- store low and high index of each dimension for sending C process C sind_ptr -- a F90 pointer (alias) of sind C rind -- store low and high index of each dimension for receiving C process C rind_ptr -- a F90 pointer (alias) of rind C shift -- an array to hold the amount of index shifting due to C starting index is 1 in a subroutine C num_shift -- number of shifting C loc_str -- a local copy of str C request -- MPI sending request status C status -- MPI waiting status C error -- MPI call return error code C -------------------------------------------------------------------------- subroutine se_bndy_copy2 (data, dispstr, dirstr, str) use se_data_send_module use se_data_recv_module use se_internal_util_module use se_pe_info_ext implicit none include "mpif.h" real, intent(inout) :: data(:,:) character (len = 16), intent(in) :: dirstr character (len = 12), intent(in) :: dispstr character (len = *), optional, intent(in) :: str integer, target :: send_to(8), recv_from(8) integer, pointer :: send_to_ptr(:), recv_from_ptr(:) integer, target :: sind(2,2,8), rind(2,2,8) integer, pointer :: sind_ptr(:,:,:), rind_ptr(:,:,:) integer :: sdir, rdir integer :: shift(4), num_shift character (len = 80) :: loc_str integer :: request, status(MPI_STATUS_SIZE), error if (present(str)) then loc_str = str shift(2:4:2) = 1 call se_string_to_integer (loc_str, shift, num_shift) else num_shift = 0 end if call se_bndy_copy_pat (dirstr, send_to, recv_from) call se_bndy_up_low2 (dispstr, sind, rind, shift, num_shift) send_to_ptr => send_to recv_from_ptr => recv_from sind_ptr => sind rind_ptr => rind do sdir = 1, 8 rdir = mod((sdir + 3), 8) + 1 if (send_to(sdir) .eq. se_myworker_pe) then data(rind(1,1,rdir):rind(2,1,rdir), $ rind(1,2,rdir):rind(2,2,rdir)) $ = $ data(sind(1,1,sdir):sind(2,1,sdir), $ sind(1,2,sdir):sind(2,2,sdir)) else if (send_to(sdir) .ge. 0) then call se_data_send (data, sind_ptr, send_to_ptr, sdir, sdir, $ request) end if if ((recv_from(rdir) .ge. 0) .and. $ (recv_from(rdir) .ne. se_myworker_pe)) then call se_data_recv (data, rind_ptr, recv_from_ptr, rdir, sdir) end if c if (send_to(sdir) .ge. 0) then c call mpi_wait (request, status, error) c end if end if end do return end subroutine se_bndy_copy2 C -------------------------------------------------------------------------- C Purpose: C C initialize variables sind and rind C C Revision history: C C Orginal version: 11/27/01 by David Wong C 08/24/11 by David Wong C -- removed se_ori_ext to eliminate data and geo orientation C C Subroutine parameter description: C C In: dispstr -- displacement string C shift -- an array to hold the amount of index shifting due to C starting index is 1 in a subroutine C num_shift -- number of shifting C C Out: sind -- store low and high index of each dimension for sending C process C rind -- store low and high index of each dimension for receiving C process C C Local variable description: C C ndis -- North displacement C edis -- East displacement C sdis -- South displacement C wdis -- West displacement C i -- loop index C loc_shift -- local adjustment of dummy argument shift C -------------------------------------------------------------------------- subroutine se_bndy_up_low2 (dispstr, sind, rind, shift, num_shift) use se_domain_info_ext ! use se_ori_ext use se_internal_util_module implicit none integer, intent(inout) :: sind(2,2,8), rind(2,2,8) character (len = 12), intent(in) :: dispstr integer, intent(in) :: shift(4), num_shift integer :: ndis, edis, sdis, wdis, loc_shift(2), i if (num_shift .gt. 0) then ! if ((se_data_ori .eq. "cr") .or. (se_data_ori .eq. "CR")) then if (shift(1) .eq. 1) then loc_shift(1) = 1 - shift(4) loc_shift(2) = 1 - shift(2) else loc_shift(1) = 1 - shift(2) loc_shift(2) = 1 - shift(4) end if ! else ! if (shift(1) .eq. 1) then ! loc_shift(1) = 1 - shift(2) ! loc_shift(2) = 1 - shift(4) ! else ! loc_shift(1) = 1 - shift(4) ! loc_shift(2) = 1 - shift(2) ! end if ! end if else loc_shift(1) = 0 loc_shift(2) = 0 end if ! if (se_geo_ori .eq. 0) then read (dispstr, *) sdis, edis, ndis, wdis ! else ! read (dispstr, *) ndis, edis, sdis, wdis ! end if C -- ( sending ) determine ghost cells indexes configuration call store2 (sind, 1, se_my_nrows-sdis+1+loc_shift(1), & se_my_nrows+loc_shift(1), 1+loc_shift(2), & se_my_ncols+loc_shift(2)) call store2 (sind, 2, se_my_nrows-sdis+1+loc_shift(1), & se_my_nrows+loc_shift(1), 1+loc_shift(2), & wdis+loc_shift(2)) call store2 (sind, 3, 1+loc_shift(1), se_my_nrows+loc_shift(1), & 1+loc_shift(2), wdis+loc_shift(2)) call store2 (sind, 4, 1+loc_shift(1), ndis+loc_shift(1), & 1+loc_shift(2), wdis+loc_shift(2)) call store2 (sind, 5, 1+loc_shift(1), ndis+loc_shift(1), & 1+loc_shift(2), se_my_ncols+loc_shift(2)) call store2 (sind, 6, 1+loc_shift(1), ndis+loc_shift(1), & se_my_ncols-edis+1+loc_shift(2), se_my_ncols+loc_shift(2)) call store2 (sind, 7, 1+loc_shift(1), se_my_nrows+loc_shift(1), & se_my_ncols-edis+1+loc_shift(2), se_my_ncols+loc_shift(2)) call store2 (sind, 8, se_my_nrows-sdis+1+loc_shift(1), & se_my_nrows+loc_shift(1), se_my_ncols-edis+1+loc_shift(2), & se_my_ncols+loc_shift(2)) C -- ( receiving ) determine ghost cells indexes configuration call store2 (rind, 5, 1+loc_shift(1), sdis+loc_shift(1), & 1+loc_shift(2), se_my_ncols+loc_shift(2)) call store2 (rind, 6, 1+loc_shift(1), sdis+loc_shift(1), & se_my_ncols-wdis+1+loc_shift(2), se_my_ncols+loc_shift(2)) call store2 (rind, 7, 1+loc_shift(1), se_my_nrows+loc_shift(1), & se_my_ncols-wdis+1+loc_shift(2), se_my_ncols+loc_shift(2)) call store2 (rind, 8, se_my_nrows-ndis+1+loc_shift(1), & se_my_nrows+loc_shift(1), & se_my_ncols-wdis+1+loc_shift(2), se_my_ncols+loc_shift(2)) call store2 (rind, 1, se_my_nrows-ndis+1+loc_shift(1), & se_my_nrows+loc_shift(1), 1+loc_shift(2), & se_my_ncols+loc_shift(2)) call store2 (rind, 2, se_my_nrows-ndis+1+loc_shift(1), & se_my_nrows+loc_shift(1), 1+loc_shift(2), & edis+loc_shift(2)) call store2 (rind, 3, 1+loc_shift(1), se_my_nrows+loc_shift(1), & 1+loc_shift(2), edis+loc_shift(2)) call store2 (rind, 4, 1+loc_shift(1), sdis+loc_shift(1), & 1+loc_shift(2), edis+loc_shift(2)) ! if ((se_data_ori .eq. "cr") .or. (se_data_ori .eq. "CR")) then do i = 1, 8 call swap (sind(1,1,i), sind(1,2,i)) call swap (sind(2,1,i), sind(2,2,i)) call swap (rind(1,1,i), rind(1,2,i)) call swap (rind(2,1,i), rind(2,2,i)) end do ! end if return end subroutine se_bndy_up_low2 C -------------------------------------------------------------------------- C Purpose: C C to store low and high array indexes (same as in se_comm_module.f) C C Revision history: C C Orginal version: 7/28/98 by David Wong C C Subroutine parameter description: C C In: direction -- communication direction C i1 -- low index of I dimension C i2 -- high index of I dimension C j1 -- low index of J dimension C j2 -- high index of J dimension C C Out: array -- array with low and high indexes of each dimension C -------------------------------------------------------------------------- subroutine store2 (array, direction, i1, i2, j1, j2) integer, intent(out) :: array (2,2,8) integer, intent(in) :: direction, i1, i2, j1, j2 array(1,1,direction) = i1 array(2,1,direction) = i2 array(1,2,direction) = j1 array(2,2,direction) = j2 return end subroutine store2 end module se_bndy_copy_module ================================================ FILE: CCTM/src/STENEX/se/se_comm_info_ext.f ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/work/rep/STENEX/src/se_snl/se_comm_info_ext.f,v 1.1 2004/03/26 16:16:47 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% C -------------------------------------------------------------------------- C Note: all these variables with prefix se_ are for stencil exchange library C only C C to define communication info variables: C C se_ngb_pe -- an array to indicate a communication with a certain C processor is required base upon near-neighbour C communication pattern: -1 denotes no communication is C needed, and a non -1 number denotes processor number with C which communication is formed C se_numdim -- dimensionality of a data structure which requires C communication C se_decompstr -- indicator of which dimenion(s) of data is/are decomposed, C 0 (not decomposed), 1 (decomposed) C -------------------------------------------------------------------------- module se_comm_info_ext integer :: se_ngb_pe(8) integer :: se_numdim character (len=10) :: se_decompstr integer :: se_twoway_npcol, se_twoway_nprow end module se_comm_info_ext ================================================ FILE: CCTM/src/STENEX/se/se_comm_module.f ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! ! RCS file, release, date & time of last delta, author, state, [and locker] ! $Header: /project/work/rep/STENEX/src/se_snl/se_comm_module.f,v 1.1 2004/03/26 16:16:47 yoj Exp $ ! what(1) key, module and SID; SCCS file; date and time of last delta: ! %W% %P% %G% %U% ! -------------------------------------------------------------------------- ! Purpose: ! ! use F90 interface feature to achieve "faked" polymorphism for pe ! communication routine and use F90 module feature to modulize pe communication ! functionality of the stencil exchange library ! ! Revision history: ! ! Orginal version: 11/05/99 by David Wong ! Modified: 08/24/11 by David Wong ! -- elminated data and geo orientation ! Modified: 10/04/12 by David Wong ! -- extended to five dimensional array and made the third, ! and fourth dimension more flexible and only limited to ! layer and species ! Modified: 11/01/18 by David Wong ! -- remove TAB character ! -------------------------------------------------------------------------- module se_comm_module implicit none interface se_comm module procedure se_pe_comm1, & se_pe_comm2, se_pe_comm2e, & se_pe_comm3, se_pe_comm3e, se_pe_comm3s, & se_pe_comm4, & se_pe_comm5 end interface contains ! ----------------------------------------------------------------------------- ! Purpose: ! ! determine the set of neighbouring processor(s) that my own processor needs ! to communicate with, base upon the input data dependency. ! ! Revision history: ! ! Orginal version: 7/29/98 by David Wong ! ! 11/05/99 by David Wong ! -- recode the code using F90 syntax ! 02/06/02 by David Wong ! -- adjust the communication direction if it is NE, SE, ! SW, or NW ! 08/24/11 by David Wong ! -- removed se_ori_ext to eliminate data and geo orientation ! ! Subroutine parameter description: ! ! In: dirstr -- indicator of communication direction associated with ! the data dependency: 0 (without communication), ! 1 (with communication) ! send_to -- processor number which data needs to be sent to ! recv_from -- processor number which data is received from ! ! Local variable description: ! ! rdirection -- input communication direction for receiveing ! sdirection -- communication direction for sending ! i, j, k -- loop indexes ! ! Include file: ! ! se_comm_info_ext ! ! se_ngb_pe -- an array to indicate a communication with a certain ! processor is required base upon near-neighbour communication ! pattern: -1 denotes no communication is needed, and a non ! -1 number denotes processor number with which communication ! is formed ! ! se_ori_ext ! se_internal_util_module ! ----------------------------------------------------------------------------- subroutine se_comm_pat (dirstr, send_to, recv_from) use se_comm_info_ext ! use se_ori_ext use se_internal_util_module implicit none character (len = 16), intent(in) :: dirstr integer, intent(out) :: send_to (8), recv_from (8) integer :: i, j, k integer :: rdirection (8), sdirection(8) ! -- extract inform from input strings read (dirstr, 10) (rdirection(i), i=1, 8) 10 format (8i2) ! -- make adjustment if communication direction is: NE, SE, SW, or NW do i = 2, 8, 2 if (rdirection(i) .eq. 1) then rdirection(mod(i-1,8)) = 1 rdirection(mod(i+1,8)) = 1 end if end do ! if (se_geo_ori .eq. 0) then call swap (rdirection(1), rdirection(5)) call swap (rdirection(2), rdirection(4)) call swap (rdirection(8), rdirection(6)) ! end if ! -- figuring out send direction pattern do i = 1, 8 sdirection(i) = rdirection(mod(i+3,8)+1) end do ! -- determine where data is receiving from ! -- first: N, E, S, and W do i = 1, 7, 2 if ((rdirection (i) .gt. 0) .and. & (se_ngb_pe(i) .ge. 0)) then recv_from(i) = se_ngb_pe(i) else recv_from(i) = -1 end if end do ! -- second: NE, SE, SW, NW, and their immediate neighbours ! -- for instance, NE's immediate neighbours are N, and E do i = 2, 8, 2 if (rdirection(i) .gt. 0) then do j = i-1, i+1 k = j if (k .eq. 9) then k = 1 end if if (se_ngb_pe(k) .ge. 0) then recv_from(k) = se_ngb_pe(k) else recv_from(k) = -1 end if end do else recv_from(i) = -1 end if end do ! -- determine where data is sending to ! -- first: N, E, S, and W do i = 1, 7, 2 if ((sdirection (i) .gt. 0) .and. & (se_ngb_pe(i) .ge. 0)) then send_to(i) = se_ngb_pe(i) else send_to(i) = -1 end if end do ! -- second: NE, SE, SW, NW, and their immediate neighbours ! -- for instance, NE's immediate neighbours are N, and E do i = 2, 8, 2 if (sdirection(i) .gt. 0) then do j = i-1, i+1 k = j if (k .eq. 9) then k = 1 end if if (se_ngb_pe(k) .ge. 0) then send_to(k) = se_ngb_pe(k) else send_to(k) = -1 end if end do else send_to(i) = -1 end if end do return end subroutine se_comm_pat ! -------------------------------------------------------------------------- ! Purpose: ! ! program se_pe_comm[n][e] performs near-neighbour communication for a ! n-dimensional data structure ! ! Revision history: ! ! Orginal version: 9/15/98 by David Wong ! 11/05/99 by David Wong ! -- recode the code using F90 syntax ! 07/23/01 by David Wong ! -- redesign the message sending and receiving algorithm ! 03/06/02 David Wong ! -- use blocking communication scheme ! -- use array copy mechanism when communicates to itself ! ! Subroutine parameter description: ! ! In: data -- original data ! dispstr -- displacement string ! dirstr -- indicator of communication direction ! 0 (without communication), 1 (with communication) ! str -- an optional argument to indicate the starting index of ! certain dimension ! flag -- to indicate se_pe_comm[n]e is used ! ! Out: data -- original data after communication ! ! Local variable description: ! ! send_to -- processor number which data needs to be sent to ! send_to_ptr -- a F90 pointer (alias) of send_to ! recv_from -- processor number which data is recvd from ! recv_from_ptr -- a F90 pointer (alias) of recv_from ! sdir, rdir -- loop indexes which indicate send to or recvd from ! sind -- store low and high index of each dimension for sending ! process ! sind_ptr -- a F90 pointer (alias) of sind ! rind -- store low and high index of each dimension for receiving ! process ! rind_ptr -- a F90 pointer (alias) of rind ! shift -- an array to hold the amount of index shifting due to ! starting index is 1 in a subroutine ! num_shift -- number of shifting ! loc_str -- a local copy of str ! ! Include file: ! ! se_data_send_module ! se_data_recv_module ! se_internal_util_module ! ! Subroutine/Function call: ! ! se_comm_pat ! se_up_low[1] ! ! -------------------------------------------------------------------------- subroutine se_pe_comm1 (data, dispstr, dirstr, str) use se_data_send_module use se_data_recv_module use se_internal_util_module use se_pe_info_ext implicit none include "mpif.h" real, intent(inout) :: data(:) character (len = 16), intent(in) :: dirstr character (len = 12), intent(in) :: dispstr character (len = *), optional, intent(in) :: str integer, target :: sind(2,8), rind(2,8) integer, pointer :: sind_ptr(:,:), rind_ptr(:,:) integer, target :: send_to(8), recv_from(8) integer, pointer :: send_to_ptr(:), recv_from_ptr(:) integer :: sdir, rdir integer :: shift(2), num_shift character (len = 80) :: loc_str integer :: request, status(MPI_STATUS_SIZE), error if (present(str)) then loc_str = str call se_string_to_integer (loc_str, shift, num_shift) else num_shift = 0 end if call se_comm_pat (dirstr, send_to, recv_from) call se_up_low1 (dispstr, sind, rind, shift, num_shift) send_to_ptr => send_to recv_from_ptr => recv_from sind_ptr => sind rind_ptr => rind do sdir = 1, 8, 2 rdir = mod((sdir + 3), 8) + 1 if (send_to(sdir) .eq. se_my_pe) then data(rind(1,rdir):rind(2,rdir)) = data(sind(1,sdir):sind(2,sdir)) else if (send_to(sdir) .ge. 0) then call se_data_send (data, sind_ptr, send_to_ptr, sdir, sdir, $ request) end if if ((recv_from(rdir) .ge. 0) .and. $ (recv_from(rdir) .ne. se_my_pe)) then call se_data_recv (data, rind_ptr, recv_from_ptr, rdir, sdir) end if ! if (send_to(sdir) .ge. 0) then ! call mpi_wait (request, status, error) ! end if end if end do return end subroutine se_pe_comm1 ! -------------------------------------------------------------------------- ! Purpose: ! ! perform near-neighbour communication for a 2-D data structure with 2-D ! decomposition (se_pe_comm2) or 1-D decomposition (se_pe_comm2e) ! ! Revision history: ! ! Orginal version: 8/3/98 by David Wong ! 11/05/99 by David Wong ! -- recode the code using F90 syntax ! 07/23/01 by David Wong ! -- redesign the message sending and receiving algorithm ! 03/06/02 David Wong ! -- use blocking communication scheme ! -- use array copy mechanism when communicates to itself ! ! Subroutine parameter description: ! ! In: data -- original data ! dispstr -- displacement string ! dirstr -- indicator of communication direction ! 0 (without communication), 1 (with communication) ! flag -- to indicate se_pe_comm2e is used ! str -- an optional argument to indicate the starting index of ! certain dimension ! ! Out: data -- original data after communication ! ! Local variable description: ! ! send_to -- processor number which data needs to be sent to ! send_to_ptr -- a F90 pointer (alias) of send_to ! recv_from -- processor number which data is recvd from ! recv_from_ptr -- a F90 pointer (alias) of recv_from ! sdir, rdir -- loop indexes which indicate send to or recvd from ! sind -- store low and high index of each dimension for sending ! process ! sind_ptr -- a F90 pointer (alias) of sind ! rind -- store low and high index of each dimension for receiving ! process ! rind_ptr -- a F90 pointer (alias) of rind ! shift -- an array to hold the amount of index shifting due to ! starting index is 1 in a subroutine ! num_shift -- number of shifting ! loc_str -- a local copy of str ! ! Include file: ! ! se_data_send_module ! se_data_recv_module ! ! Subroutine/Function call: ! ! se_comm_pat ! se_up_low2 ! ! -------------------------------------------------------------------------- subroutine se_pe_comm2 (data, dispstr, dirstr, str) use se_data_send_module use se_data_recv_module use se_internal_util_module use se_pe_info_ext implicit none include "mpif.h" real, intent(inout) :: data(:,:) character (len = 16), intent(in) :: dirstr character (len = 12), intent(in) :: dispstr character (len = *), optional, intent(in) :: str integer, target :: send_to(8), recv_from(8) integer, pointer :: send_to_ptr(:), recv_from_ptr(:) integer, target :: sind(2,2,8), rind(2,2,8) integer, pointer :: sind_ptr(:,:,:), rind_ptr(:,:,:) integer :: sdir, rdir integer :: shift(4), num_shift character (len = 80) :: loc_str integer :: request, status(MPI_STATUS_SIZE), error if (present(str)) then loc_str = str shift(2:4:2) = 1 call se_string_to_integer (loc_str, shift, num_shift) else num_shift = 0 end if call se_comm_pat (dirstr, send_to, recv_from) send_to_ptr => send_to recv_from_ptr => recv_from call se_up_low2 (dispstr, sind, rind, shift, num_shift) sind_ptr => sind rind_ptr => rind do sdir = 1, 8 rdir = mod((sdir + 3), 8) + 1 if (send_to(sdir) .eq. se_my_pe) then data(rind(1,1,rdir):rind(2,1,rdir),rind(1,2,rdir):rind(2,2,rdir)) $ = $ data(sind(1,1,sdir):sind(2,1,sdir),sind(1,2,sdir):sind(2,2,sdir)) else if (send_to(sdir) .ge. 0) then call se_data_send (data, sind_ptr, send_to_ptr, sdir, sdir, $ request) end if if ((recv_from(rdir) .ge. 0) .and. $ (recv_from(rdir) .ne. se_my_pe)) then call se_data_recv (data, rind_ptr, recv_from_ptr, rdir, sdir) end if ! if (send_to(sdir) .ge. 0) then ! call mpi_wait (request, status, error) ! end if end if end do return end subroutine se_pe_comm2 ! ----------------------------------------------------------------------------- subroutine se_pe_comm2e (data, dispstr, dirstr, flag, str) use se_data_send_module use se_data_recv_module use se_internal_util_module use se_pe_info_ext implicit none include "mpif.h" real, intent(inout) :: data(:,:) character (len = 16), intent(in) :: dirstr character (len = 12), intent(in) :: dispstr integer, intent(in) :: flag character (len = *), optional, intent(in) :: str integer, target :: send_to(8), recv_from(8) integer, pointer :: send_to_ptr(:), recv_from_ptr(:) integer, target :: sind(2,8), rind(2,8) integer, pointer :: sind_ptr(:,:), rind_ptr(:,:) integer :: sdir, rdir integer :: shift(4), num_shift character (len = 80) :: loc_str integer :: request, status(MPI_STATUS_SIZE), error if (present(str)) then loc_str = str shift(2:4:2) = 1 call se_string_to_integer (loc_str, shift, num_shift) else num_shift = 0 end if call se_comm_pat (dirstr, send_to, recv_from) send_to_ptr => send_to recv_from_ptr => recv_from call se_up_low1 (dispstr, sind, rind, shift, num_shift) sind_ptr => sind rind_ptr => rind do sdir = 1, 8, 2 rdir = mod((sdir + 3), 8) + 1 if (send_to(sdir) .eq. se_my_pe) then data(rind(1,rdir):rind(2,rdir),:) $ = $ data(sind(1,sdir):sind(2,sdir),:) else if (send_to(sdir) .ge. 0) then call se_data_send (data, sind_ptr, send_to_ptr, sdir, sdir, $ request) end if if ((recv_from(rdir) .ge. 0) .and. $ (recv_from(rdir) .ne. se_my_pe)) then call se_data_recv (data, rind_ptr, recv_from_ptr, rdir, sdir) end if ! if (send_to(sdir) .ge. 0) then ! call mpi_wait (request, status, error) ! end if end if end do return end subroutine se_pe_comm2e ! -------------------------------------------------------------------------- ! Purpose: ! ! perform near-neighbour communication for a 3-D data structure with 2-D ! decomposition (se_pe_comm3) or 1-D decomposition (se_pe_comm3e) ! ! Revision history: ! ! Orginal version: 7/29/98 by David Wong ! 11/05/99 by David Wong ! -- recode the code using F90 syntax ! 07/23/01 by David Wong ! -- redesign the message sending and receiving algorithm ! 03/06/02 David Wong ! -- use blocking communication scheme ! -- use array copy mechanism when communicates to itself ! ! Subroutine parameter description: ! ! In: data -- original data ! dispstr -- displacement string ! dirstr -- indicator of communication direction ! 0 (without communication), 1 (with communication) ! flag -- to indicate se_pe_comm2e is used ! str -- an optional argument to indicate the starting index of ! certain dimension ! ! Out: data -- original data after communication ! ! Local variable description: ! ! send_to -- processor number which data needs to be sent to ! send_to_ptr -- a F90 pointer (alias) of send_to ! recv_from -- processor number which data is recvd from ! recv_from_ptr -- a F90 pointer (alias) of recv_from ! sdir, rdir -- loop indexes which indicate send to or recvd from ! rdirection -- input communication direction for receiveing ! sdirection -- communication direction for sending ! ldecomp -- domain decomposition indicator ! sind -- store low and high index of each dimension for sending ! process ! sind_ptr -- a F90 pointer (alias) of sind ! rind -- store low and high index of each dimension for receiving ! process ! rind_ptr -- a F90 pointer (alias) of rind ! shift -- an array to hold the amount of index shifting due to ! starting index is 1 in a subroutine ! num_shift -- number of shifting ! loc_str -- a local copy of str ! ! Include file: ! ! se_data_send_module ! se_data_recv_module ! ! Subroutine/Function call: ! ! se_comm_pat ! se_up_low3 ! ! -------------------------------------------------------------------------- subroutine se_pe_comm3 (data, dispstr, dirstr, str) use se_data_send_module use se_data_recv_module use se_internal_util_module use se_pe_info_ext implicit none include "mpif.h" real, intent(inout) :: data(:,:,:) character (len = 16), intent(in) :: dirstr character (len = 12), intent(in) :: dispstr character (len = *), optional, intent(in) :: str integer, target :: send_to(8), recv_from(8) integer, pointer :: send_to_ptr(:), recv_from_ptr(:) integer, target :: sind(2,3,8), rind(2,3,8) integer, pointer :: sind_ptr(:,:,:), rind_ptr(:,:,:) integer :: sdir, rdir integer :: shift(6), num_shift character (len = 80) :: loc_str integer :: request, status(MPI_STATUS_SIZE), error if (present(str)) then loc_str = str shift(2:6:2) = 1 call se_string_to_integer (loc_str, shift, num_shift) else num_shift = 0 end if call se_comm_pat (dirstr, send_to, recv_from) send_to_ptr => send_to recv_from_ptr => recv_from call se_up_low3 (dispstr, sind, rind, shift, num_shift, size(data,3)) sind_ptr => sind rind_ptr => rind do sdir = 1, 8 rdir = mod((sdir + 3), 8) + 1 if (send_to(sdir) .eq. se_my_pe) then data(rind(1,1,rdir):rind(2,1,rdir), $ rind(1,2,rdir):rind(2,2,rdir), $ rind(1,3,rdir):rind(2,3,rdir)) $ = $ data(sind(1,1,sdir):sind(2,1,sdir), $ sind(1,2,sdir):sind(2,2,sdir), $ sind(1,3,sdir):sind(2,3,sdir)) else if (send_to(sdir) .ge. 0) then call se_data_send (data, sind_ptr, send_to_ptr, sdir, sdir, $ request) end if if ((recv_from(rdir) .ge. 0) .and. $ (recv_from(rdir) .ne. se_my_pe)) then call se_data_recv (data, rind_ptr, recv_from_ptr, rdir, sdir) end if ! if (send_to(sdir) .ge. 0) then ! call mpi_wait (request, status, error) ! end if end if end do return end subroutine se_pe_comm3 ! -------------------------------------------------------------------------- subroutine se_pe_comm3e (data, dispstr, dirstr, flag, str) use se_data_send_module use se_data_recv_module use se_internal_util_module use se_pe_info_ext implicit none include "mpif.h" real, intent(inout) :: data(:,:,:) character (len = 16), intent(in) :: dirstr character (len = 12), intent(in) :: dispstr integer, intent(in) :: flag character (len = *), optional, intent(in) :: str integer, target :: send_to(8), recv_from(8) integer, pointer :: send_to_ptr(:), recv_from_ptr(:) integer, target :: sind(2,8), rind(2,8) integer, pointer :: sind_ptr(:,:), rind_ptr(:,:) integer :: sdir, rdir integer :: shift(6), num_shift character (len = 80) :: loc_str integer :: request, status(MPI_STATUS_SIZE), error if (present(str)) then loc_str = str shift(2:6:2) = 1 call se_string_to_integer (loc_str, shift, num_shift) else num_shift = 0 end if call se_comm_pat (dirstr, send_to, recv_from) send_to_ptr => send_to recv_from_ptr => recv_from call se_up_low1 (dispstr, sind, rind, shift, num_shift) sind_ptr => sind rind_ptr => rind do sdir = 1, 8, 2 rdir = mod((sdir + 3), 8) + 1 if (send_to(sdir) .eq. se_my_pe) then data(rind(1,rdir):rind(2,rdir),:,:) $ = $ data(sind(1,sdir):sind(2,sdir),:,:) else if (send_to(sdir) .ge. 0) then call se_data_send (data, sind_ptr, send_to_ptr, sdir, sdir, $ request) end if if ((recv_from(rdir) .ge. 0) .and. $ (recv_from(rdir) .ne. se_my_pe)) then call se_data_recv (data, rind_ptr, recv_from_ptr, rdir, sdir) end if ! if (send_to(sdir) .ge. 0) then ! call mpi_wait (request, status, error) ! end if end if end do return end subroutine se_pe_comm3e ! -------------------------------------------------------------------------- ! Purpose: ! ! perform near-neighbour communication for transfer data between two 3-D arrays ! ! Revision history: ! ! Orginal version: 10/29/17 by David Wong ! ! Subroutine parameter description: ! ! In: sdata -- input data ! dispstr -- displacement string ! dirstr -- indicator of communication direction ! 0 (without communication), 1 (with communication) ! str -- an optional argument to indicate the starting index of ! certain dimension ! ! Out: ddata -- output data after communication ! ! Local variable description: ! ! send_to -- processor number which data needs to be sent to ! send_to_ptr -- a F90 pointer (alias) of send_to ! recv_from -- processor number which data is recvd from ! recv_from_ptr -- a F90 pointer (alias) of recv_from ! sdir, rdir -- loop indexes which indicate send to or recvd from ! sind -- store low and high index of each dimension for sending ! process ! sind_ptr -- a F90 pointer (alias) of sind ! rind -- store low and high index of each dimension for receiving ! process ! rind_ptr -- a F90 pointer (alias) of rind ! shift -- an array to hold the amount of index shifting due to ! starting index is 1 in a subroutine ! num_shift -- number of shifting ! loc_str -- a local copy of str ! ! Include file: ! ! se_data_send_module ! se_data_recv_module ! ! Subroutine/Function call: ! ! se_comm_pat ! se_up_low3 ! ! -------------------------------------------------------------------------- subroutine se_pe_comm3s (sdata, ddata, dispstr, dirstr, str) use se_data_send_module use se_data_recv_module use se_internal_util_module use se_pe_info_ext implicit none include "mpif.h" real, intent(in) :: sdata(:,:,:) real, intent(out) :: ddata(:,:,:) character (len = 16), intent(in) :: dirstr character (len = 12), intent(in) :: dispstr character (len = *), optional, intent(in) :: str integer, target :: send_to(8), recv_from(8) integer, pointer :: send_to_ptr(:), recv_from_ptr(:) integer, target :: sind(2,8), rind(2,8) integer, pointer :: sind_ptr(:,:), rind_ptr(:,:) integer :: sdir, rdir integer :: shift(6), num_shift character (len = 80) :: loc_str integer :: request, status(MPI_STATUS_SIZE), error, dsize if (present(str)) then loc_str = str shift(2:6:2) = 1 call se_string_to_integer (loc_str, shift, num_shift) else num_shift = 0 end if call se_comm_pat (dirstr, send_to, recv_from) send_to_ptr => send_to recv_from_ptr => recv_from call se_up_low1 (dispstr, sind, rind, shift, num_shift) sind_ptr => sind rind_ptr => rind dsize = size(sdata) do sdir = 1, 8, 2 rdir = mod((sdir + 3), 8) + 1 if (send_to(sdir) .eq. se_my_pe) then ddata = sdata else if (send_to(sdir) .ge. 0) then call mpi_send (sdata, dsize, mpi_real, send_to_ptr(sdir), $ sdir, se_worker_comm, error) end if if ((recv_from(rdir) .ge. 0) .and. $ (recv_from(rdir) .ne. se_my_pe)) then call mpi_recv (ddata, dsize, mpi_real, recv_from_ptr(rdir), sdir, & se_worker_comm, status, error) end if ! if (send_to(sdir) .ge. 0) then ! call mpi_wait (request, status, error) ! end if end if end do end subroutine se_pe_comm3s ! -------------------------------------------------------------------------- ! Purpose: ! ! perform near-neighbour communication for a 4-D data structure with 2-D ! decomposition ! ! Revision history: ! ! Orginal version: 7/31/98 by David Wong ! 11/05/99 by David Wong ! -- recode the code using F90 syntax ! 07/23/01 by David Wong ! -- redesign the message sending and receiving algorithm ! 03/06/02 David Wong ! -- use blocking communication scheme ! -- use array copy mechanism when communicates to itself ! ! Subroutine parameter description: ! ! In: data -- original data ! dispstr -- displacement string ! dirstr -- indicator of communication direction ! 0 (without communication), 1 (with communication) ! str -- an optional argument to indicate the starting index of ! certain dimension ! ! Out: data -- original data after communication ! ! Local variable description: ! ! send_to -- processor number which data needs to be sent to ! send_to_ptr -- a F90 pointer (alias) of send_to ! recv_from -- processor number which data is recvd from ! recv_from_ptr -- a F90 pointer (alias) of recv_from ! sdir, rdir -- loop indexes which indicate send to or recvd from ! sind -- store low and high index of each dimension for sending ! process ! sind_ptr -- a F90 pointer (alias) of sind ! rind -- store low and high index of each dimension for receiving ! process ! rind_ptr -- a F90 pointer (alias) of rind ! shift -- an array to hold the amount of index shifting due to ! starting index is 1 in a subroutine ! num_shift -- number of shifting ! loc_str -- a local copy of str ! ! Include file: ! ! se_data_send_module ! se_data_recv_module ! ! Subroutine/Function call: ! ! se_comm_pat ! se_up_low4 ! ! -------------------------------------------------------------------------- subroutine se_pe_comm4 (data, dispstr, dirstr, str) use se_data_send_module use se_data_recv_module use se_internal_util_module use se_pe_info_ext implicit none include "mpif.h" real, intent(inout) :: data(:,:,:,:) character (len = 16), intent(in) :: dirstr character (len = 12), intent(in) :: dispstr character (len = *), optional, intent(in) :: str integer, target :: send_to(8), recv_from(8) integer, pointer :: send_to_ptr(:), recv_from_ptr(:) integer, target :: sind(2,4,8), rind(2,4,8) integer, pointer :: sind_ptr(:,:,:), rind_ptr(:,:,:) integer :: sdir, rdir integer :: shift(8), num_shift character (len = 80) :: loc_str integer :: request, status(MPI_STATUS_SIZE), error if (present(str)) then loc_str = str shift(2:8:2) = 1 call se_string_to_integer (loc_str, shift, num_shift) else num_shift = 0 end if call se_comm_pat (dirstr, send_to, recv_from) call se_up_low4 (dispstr, sind, rind, shift, num_shift, size(data,3), size(data,4)) send_to_ptr => send_to recv_from_ptr => recv_from sind_ptr => sind rind_ptr => rind do sdir = 1, 8 rdir = mod((sdir + 3), 8) + 1 if (send_to(sdir) .eq. se_my_pe) then data(rind(1,1,rdir):rind(2,1,rdir), $ rind(1,2,rdir):rind(2,2,rdir), $ rind(1,3,rdir):rind(2,3,rdir), $ rind(1,4,rdir):rind(2,4,rdir)) $ = $ data(sind(1,1,sdir):sind(2,1,sdir), $ sind(1,2,sdir):sind(2,2,sdir), $ sind(1,3,sdir):sind(2,3,sdir), $ sind(1,4,sdir):sind(2,4,sdir)) else if (send_to(sdir) .ge. 0) then call se_data_send (data, sind_ptr, send_to_ptr, sdir, sdir, $ request) end if if ((recv_from(rdir) .ge. 0) .and. $ (recv_from(rdir) .ne. se_my_pe)) then call se_data_recv (data, rind_ptr, recv_from_ptr, rdir, sdir) end if ! if (send_to(sdir) .ge. 0) then ! call mpi_wait (request, status, error) ! end if end if end do return end subroutine se_pe_comm4 ! -------------------------------------------------------------------------- subroutine se_pe_comm4e (data, dispstr, dirstr, flag, str) use se_data_send_module use se_data_recv_module use se_internal_util_module use se_pe_info_ext implicit none include "mpif.h" real, intent(inout) :: data(:,:,:,:) character (len = 16), intent(in) :: dirstr character (len = 12), intent(in) :: dispstr integer, intent(in) :: flag character (len = *), optional, intent(in) :: str integer, target :: send_to(8), recv_from(8) integer, pointer :: send_to_ptr(:), recv_from_ptr(:) integer, target :: sind(2,8), rind(2,8) integer, pointer :: sind_ptr(:,:), rind_ptr(:,:) integer :: sdir, rdir integer :: shift(8), num_shift character (len = 80) :: loc_str integer :: request, status(MPI_STATUS_SIZE), error if (present(str)) then loc_str = str shift(2:8:2) = 1 call se_string_to_integer (loc_str, shift, num_shift) else num_shift = 0 end if call se_comm_pat (dirstr, send_to, recv_from) send_to_ptr => send_to recv_from_ptr => recv_from call se_up_low1 (dispstr, sind, rind, shift, num_shift) sind_ptr => sind rind_ptr => rind do sdir = 1, 8, 2 rdir = mod((sdir + 3), 8) + 1 if (send_to(sdir) .eq. se_my_pe) then data(rind(1,rdir):rind(2,rdir),:,:,:) $ = $ data(sind(1,sdir):sind(2,sdir),:,:,:) else if (send_to(sdir) .ge. 0) then call se_data_send (data, sind_ptr, send_to_ptr, sdir, sdir, $ request) end if if ((recv_from(rdir) .ge. 0) .and. $ (recv_from(rdir) .ne. se_my_pe)) then call se_data_recv (data, rind_ptr, recv_from_ptr, rdir, sdir) end if ! if (send_to(sdir) .ge. 0) then ! call mpi_wait (request, status, error) ! end if end if end do return end subroutine se_pe_comm4e ! -------------------------------------------------------------------------- subroutine se_pe_comm5 (data, dispstr, dirstr, str) use se_data_send_module use se_data_recv_module use se_internal_util_module use se_pe_info_ext implicit none include "mpif.h" real, intent(inout) :: data(:,:,:,:,:) character (len = 16), intent(in) :: dirstr character (len = 12), intent(in) :: dispstr character (len = *), optional, intent(in) :: str integer, target :: send_to(8), recv_from(8) integer, pointer :: send_to_ptr(:), recv_from_ptr(:) integer, target :: sind(2,5,8), rind(2,5,8) integer, pointer :: sind_ptr(:,:,:), rind_ptr(:,:,:) integer :: sdir, rdir integer :: shift(10), num_shift character (len = 80) :: loc_str integer :: request, status(MPI_STATUS_SIZE), error if (present(str)) then loc_str = str shift(2:10:2) = 1 call se_string_to_integer (loc_str, shift, num_shift) else num_shift = 0 end if call se_comm_pat (dirstr, send_to, recv_from) call se_up_low5 (dispstr, sind, rind, shift, num_shift, size(data,3), size(data,4), size(data,5)) send_to_ptr => send_to recv_from_ptr => recv_from sind_ptr => sind rind_ptr => rind do sdir = 1, 8 rdir = mod((sdir + 3), 8) + 1 if (send_to(sdir) .eq. se_my_pe) then data(rind(1,1,rdir):rind(2,1,rdir), $ rind(1,2,rdir):rind(2,2,rdir), $ rind(1,3,rdir):rind(2,3,rdir), $ rind(1,4,rdir):rind(2,4,rdir), $ rind(1,5,rdir):rind(2,5,rdir)) $ = $ data(sind(1,1,sdir):sind(2,1,sdir), $ sind(1,2,sdir):sind(2,2,sdir), $ sind(1,3,sdir):sind(2,3,sdir), $ sind(1,4,sdir):sind(2,4,sdir), $ sind(1,5,sdir):sind(2,5,sdir)) else if (send_to(sdir) .ge. 0) then call se_data_send (data, sind_ptr, send_to_ptr, sdir, sdir, $ request) end if if ((recv_from(rdir) .ge. 0) .and. $ (recv_from(rdir) .ne. se_my_pe)) then call se_data_recv (data, rind_ptr, recv_from_ptr, rdir, sdir) end if ! if (send_to(sdir) .ge. 0) then ! call mpi_wait (request, status, error) ! end if end if end do end subroutine se_pe_comm5 ! -------------------------------------------------------------------------- ! Purpose: ! ! initialize the lower and upper index of each dimension of a local ! 1-D array ! ! Revision history: ! ! Orginal version: 9/9/98 by David Wong ! 11/05/99 by David Wong ! -- recode the code using F90 syntax ! 08/24/11 by David Wong ! -- removed se_ori_ext to eliminate data and geo orientation ! ! Subroutine parameter description: ! ! In: dispstr -- displacement string ! shift -- an array to hold the amount of index shifting due to ! starting index is 1 in a subroutine ! num_shift -- number of shifting ! ! Out: sind -- store low and high index of each dimension for sending ! process ! rind -- store low and high index of each dimension for receiving ! process ! ! Local variable description: ! ! ndis -- North displacement ! edis -- East displacement ! sdis -- South displacement ! wdis -- West displacement ! loc_shift -- local adjustment of dummy argument shift ! ! Include file: ! ! se_domain_info_ext ! se_ori_ext ! ! Subroutine/Function call: ! ! store1 ! ! -------------------------------------------------------------------------- subroutine se_up_low1 (dispstr, sind, rind, shift, num_shift) use se_domain_info_ext ! use se_ori_ext implicit none integer, intent(out) :: sind(2,8), rind(2,8) character (len = 12), intent(in) :: dispstr integer, intent(in) :: shift(2), num_shift integer :: ndis, edis, sdis, wdis, loc_shift if (num_shift .gt. 0) then loc_shift = 1 - shift(2) else loc_shift = 0 end if ! if (se_geo_ori .eq. 0) then read (dispstr, 20) sdis, edis, ndis, wdis ! else ! read (dispstr, 20) ndis, edis, sdis, wdis ! end if 20 format (4i3) ! -- ( sending ) determine ghost cells indexes configuration if (sdis .gt. 0) then call store1 (sind, 1, 1+loc_shift, sdis+loc_shift) end if if (ndis .gt. 0) then call store1 (sind, 5, se_my_nrows-ndis+1+loc_shift, & se_my_nrows+loc_shift) end if if (wdis .gt. 0) then call store1 (sind, 3, se_my_ncols-wdis+1+loc_shift, & se_my_ncols+loc_shift) end if if (edis .gt. 0) then call store1 (sind, 7, 1+loc_shift, edis+loc_shift) end if ! -- ( receiving ) determine ghost cells indexes configuration if (ndis .gt. 0) then call store1 (rind, 1, 1-ndis+loc_shift, loc_shift) end if if (sdis .gt. 0) then call store1 (rind, 5, se_my_nrows+1+loc_shift, & se_my_nrows+sdis+loc_shift) end if if (edis .gt. 0) then call store1 (rind, 3, se_my_ncols+1+loc_shift, & se_my_ncols+edis+loc_shift) end if if (wdis .gt. 0) then call store1 (rind, 7, 1-wdis+loc_shift, loc_shift) end if return end subroutine se_up_low1 ! -------------------------------------------------------------------------- ! Purpose: ! ! to store low and high array indexes of a given domain with ghost cells ! ! Revision history: ! ! Orginal version: 9/9/98 by David Wong ! 11/05/99 by David Wong ! -- recode the code using F90 syntax ! ! Subroutine parameter description: ! ! In: direction -- communication direction ! i1 -- low index of I dimension ! i2 -- high index of I dimension ! ! Out: array -- array with low and high indexes of each dimension ! -------------------------------------------------------------------------- subroutine store1 (array, direction, i1, i2) integer, intent(out) :: array (2,8) integer, intent(in) :: direction, i1, i2 array(1,direction) = i1 array(2,direction) = i2 return end subroutine store1 ! -------------------------------------------------------------------------- ! Purpose: ! ! initialize the lower and upper index of each dimension of a local ! 2-D array ! ! Revision history: ! ! Orginal version: 8/3/98 by David Wong ! 11/05/99 by David Wong ! -- recode the code using F90 syntax ! 1/17/01 by David Wong ! -- use a new function se_corner_adjust to adjust stencil ! in the NE, SE, SW, and NW direction of the boundary ! processors. The adjustment is applied to the store ! function which determine the sending and receiving ! indices. ! 11/28/01 by David Wong ! -- make calculation of loc_shift more general to suit ! RC orientation. ! 08/24/11 by David Wong ! -- removed se_ori_ext to eliminate data and geo orientation ! ! Subroutine parameter description: ! ! In: dispstr -- displacement string ! shift -- an array to hold the amount of index shifting due to ! starting index is 1 in a subroutine ! num_shift -- number of shifting ! ! Out: sind -- store low and high index of each dimension for sending ! process ! rind -- store low and high index of each dimension for receiving ! process ! ! Local variable description: ! ! ndis -- North displacement ! edis -- East displacement ! sdis -- South displacement ! wdis -- West displacement ! i -- loop index ! loc_shift -- local adjustment of dummy argument shift ! ! Include file: ! ! se_domain_info_ext ! se_ori_ext ! ! Subroutine/Function call: ! ! store2 ! ! -------------------------------------------------------------------------- subroutine se_up_low2 (dispstr, sind, rind, shift, num_shift) use se_domain_info_ext ! use se_ori_ext use se_internal_util_module implicit none integer, intent(inout) :: sind(2,2,8), rind(2,2,8) character (len = 12), intent(in) :: dispstr integer, intent(in) :: shift(4), num_shift integer :: ndis, edis, sdis, wdis, loc_shift(2), i integer :: n_adj, e_adj, s_adj, w_adj if (num_shift .gt. 0) then ! if ((se_data_ori .eq. "cr") .or. (se_data_ori .eq. "CR")) then if (shift(1) .eq. 1) then loc_shift(1) = 1 - shift(4) loc_shift(2) = 1 - shift(2) else loc_shift(1) = 1 - shift(2) loc_shift(2) = 1 - shift(4) end if ! else ! if (shift(1) .eq. 1) then ! loc_shift(1) = 1 - shift(2) ! loc_shift(2) = 1 - shift(4) ! else ! loc_shift(1) = 1 - shift(4) ! loc_shift(2) = 1 - shift(2) ! end if ! end if else loc_shift(1) = 0 loc_shift(2) = 0 end if ! if (se_geo_ori .eq. 0) then read (dispstr, 20) sdis, edis, ndis, wdis ! else ! read (dispstr, 20) ndis, edis, sdis, wdis ! end if 20 format (4i3) call se_corner_adjust (ndis, edis, sdis, wdis, 1, & n_adj, e_adj, s_adj, w_adj) ! -- ( sending ) determine ghost cells indexes configuration call store2 (sind, 1, 1+loc_shift(1), sdis+loc_shift(1), & 1+loc_shift(2)-w_adj, se_my_ncols+loc_shift(2)+e_adj) call store2 (sind, 2, 1+loc_shift(1), sdis+loc_shift(1), & se_my_ncols-wdis+1+loc_shift(2), se_my_ncols+loc_shift(2)) call store2 (sind, 3, 1+loc_shift(1)-n_adj, & se_my_nrows+loc_shift(1)+s_adj, & se_my_ncols-wdis+1+loc_shift(2), se_my_ncols+loc_shift(2)) call store2 (sind, 4, se_my_nrows-ndis+1+loc_shift(1), & se_my_nrows+loc_shift(1), se_my_ncols-wdis+1+loc_shift(2), & se_my_ncols+loc_shift(2)) call store2 (sind, 5, se_my_nrows-ndis+1+loc_shift(1), & se_my_nrows+loc_shift(1), 1+loc_shift(2)-w_adj, & se_my_ncols+loc_shift(2)+e_adj) call store2 (sind, 6, se_my_nrows-ndis+1+loc_shift(1), & se_my_nrows+loc_shift(1), 1+loc_shift(2), & edis+loc_shift(2)) call store2 (sind, 7, 1+loc_shift(1)-n_adj, & se_my_nrows+loc_shift(1)+s_adj, & 1+loc_shift(2), edis+loc_shift(2)) call store2 (sind, 8, 1+loc_shift(1), sdis+loc_shift(1), & 1+loc_shift(2), edis+loc_shift(2)) call se_corner_adjust (ndis, edis, sdis, wdis, 2, & n_adj, e_adj, s_adj, w_adj) ! -- ( receiving ) determine ghost cells indexes configuration call store2 (rind, 1, 1-ndis+loc_shift(1), loc_shift(1), & 1+loc_shift(2)-w_adj, se_my_ncols+loc_shift(2)+e_adj) call store2 (rind, 2, 1-ndis+loc_shift(1), loc_shift(1), & se_my_ncols+1+loc_shift(2), se_my_ncols+edis+loc_shift(2)) call store2 (rind, 3, 1+loc_shift(1)-n_adj, & se_my_nrows+loc_shift(1)+s_adj, se_my_ncols+1+loc_shift(2), & se_my_ncols+edis+loc_shift(2)) call store2 (rind, 4, se_my_nrows+1+loc_shift(1), & se_my_nrows+sdis+loc_shift(1), & se_my_ncols+1+loc_shift(2), se_my_ncols+edis+loc_shift(2)) call store2 (rind, 5, se_my_nrows+1+loc_shift(1), & se_my_nrows+sdis+loc_shift(1), 1+loc_shift(2)-w_adj, & se_my_ncols+loc_shift(2)+e_adj) call store2 (rind, 6, se_my_nrows+1+loc_shift(1), & se_my_nrows+sdis+loc_shift(1), 1-wdis+loc_shift(2), & loc_shift(2)) call store2 (rind, 7, 1+loc_shift(1)-n_adj, & se_my_nrows+loc_shift(1)+s_adj, & 1-wdis+loc_shift(2), loc_shift(2)) call store2 (rind, 8, 1-ndis+loc_shift(1), loc_shift(1), & 1-wdis+loc_shift(2), loc_shift(2)) ! if ((se_data_ori .eq. "cr") .or. (se_data_ori .eq. "CR")) then do i = 1, 8 call swap (sind(1,1,i), sind(1,2,i)) call swap (sind(2,1,i), sind(2,2,i)) call swap (rind(1,1,i), rind(1,2,i)) call swap (rind(2,1,i), rind(2,2,i)) end do ! end if return end subroutine se_up_low2 ! -------------------------------------------------------------------------- ! Purpose: ! ! to store low and high array indexes of a given domain with ghost cells ! ! Revision history: ! ! Orginal version: 7/28/98 by David Wong ! 11/05/99 by David Wong ! -- recode the code using F90 syntax ! ! Subroutine parameter description: ! ! In: direction -- communication direction ! i1 -- low index of I dimension ! i2 -- high index of I dimension ! j1 -- low index of J dimension ! j2 -- high index of J dimension ! ! Out: array -- array with low and high indexes of each dimension ! -------------------------------------------------------------------------- subroutine store2 (array, direction, i1, i2, j1, j2) integer, intent(out) :: array (2,2,8) integer, intent(in) :: direction, i1, i2, j1, j2 array(1,1,direction) = i1 array(2,1,direction) = i2 array(1,2,direction) = j1 array(2,2,direction) = j2 return end subroutine store2 ! -------------------------------------------------------------------------- ! Purpose: ! ! initialize the lower and upper index of each dimension of a local ! 3-D array ! ! Revision history: ! ! Orginal version: 8/2/98 by David Wong ! 11/05/99 by David Wong ! -- recode the code using F90 syntax ! 1/17/01 by David Wong ! -- use a new function se_corner_adjust to adjust stencil ! in the NE, SE, SW, and NW direction of the boundary ! processors. The adjustment is applied to the store ! function which determine the sending and receiving ! indices. ! 11/28/01 by David Wong ! -- make calculation of loc_shift more general to suit ! RC orientation. ! 08/24/11 by David Wong ! -- removed se_ori_ext to eliminate data and geo orientation ! ! Subroutine parameter description: ! ! In: dispstr -- displacement string ! shift -- an array to hold the amount of index shifting due to ! starting index is 1 in a subroutine ! num_shift -- number of shifting ! ! Out: sind -- store low and high index of each dimension for sending ! process ! rind -- store low and high index of each dimension for receiving ! process ! ! Local variable description: ! ! ndis -- North displacement ! edis -- East displacement ! sdis -- South displacement ! wdis -- West displacement ! i -- loop index ! loc_shift -- local adjustment of dummy argument shift ! ldecomp -- hold the values of decompstr ! ! Include file: ! ! se_domain_info_ext ! se_ori_ext ! ! se_comm_info_ext ! ! decompstr -- indicator of which dimenion(s) of data is/are decomposed, ! 0 (not decomposed), 1 (decomposed) ! ! Subroutine/Function call: ! ! store3 ! ! -------------------------------------------------------------------------- subroutine se_up_low3 (dispstr, sind, rind, shift, num_shift, s3) use se_domain_info_ext use se_comm_info_ext ! use se_ori_ext use se_internal_util_module implicit none integer, intent(inout) :: sind(2,3,8), rind(2,3,8) character (len = 12), intent(in) :: dispstr integer, intent(in) :: shift(6), num_shift, s3 integer :: ndis, edis, sdis, wdis, loc_shift(3), i integer :: ldecomp(4) integer :: n_adj, e_adj, s_adj, w_adj read (se_decompstr, 15) (ldecomp(i), i=1, 4) 15 format (8i2) if (num_shift .gt. 0) then ! if ((se_data_ori .eq. "cr") .or. (se_data_ori .eq. "CR")) then if (shift(1) .eq. 1) then loc_shift(1) = 1 - shift(4) loc_shift(2) = 1 - shift(2) else loc_shift(1) = 1 - shift(2) loc_shift(2) = 1 - shift(4) end if ! else ! if (shift(1) .eq. 1) then ! loc_shift(1) = 1 - shift(2) ! loc_shift(2) = 1 - shift(4) ! else ! loc_shift(1) = 1 - shift(4) ! loc_shift(2) = 1 - shift(2) ! end if ! end if loc_shift(3) = 1 - shift(6) else loc_shift(1:3) = 0 end if ! if (se_geo_ori .eq. 0) then read (dispstr, 20) sdis, edis, ndis, wdis ! else ! read (dispstr, 20) ndis, edis, sdis, wdis ! end if 20 format (4i3) call se_corner_adjust (ndis, edis, sdis, wdis, 1, & n_adj, e_adj, s_adj, w_adj) ! -- ( sending ) determine ghost cells indexes configuration which ! -- depends on spatial decomposition type 1, 2, and 3, respectively if ((ldecomp(1) + ldecomp(3) .eq. 1) .and. & (ldecomp(1) .eq. 1)) then call store3 (sind, 1, 1+loc_shift(1), sdis+loc_shift(1), & 1+loc_shift(2)-w_adj, se_my_ncols+loc_shift(2)+e_adj, & 1+loc_shift(3), s3+loc_shift(3)) call store3 (sind, 2, 1+loc_shift(1), sdis+loc_shift(1), & se_my_ncols-wdis+1+loc_shift(2), & se_my_ncols+loc_shift(2), 1+loc_shift(3), & s3+loc_shift(3)) call store3 (sind, 3, 1+loc_shift(1)-n_adj, & se_my_nrows+loc_shift(1)+s_adj, & se_my_ncols-wdis+1+loc_shift(2), & se_my_ncols+loc_shift(2), 1+loc_shift(3), & s3+loc_shift(3)) call store3 (sind, 4, se_my_nrows-ndis+1+loc_shift(1), & se_my_nrows+loc_shift(1), & se_my_ncols-wdis+1+loc_shift(2), & se_my_ncols+loc_shift(2), 1+loc_shift(3), & s3+loc_shift(3)) call store3 (sind, 5, se_my_nrows-ndis+1+loc_shift(1), & se_my_nrows+loc_shift(1), 1+loc_shift(2)-w_adj, & se_my_ncols+loc_shift(2)+e_adj, 1+loc_shift(3), & s3+loc_shift(3)) call store3 (sind, 6, se_my_nrows-ndis+1+loc_shift(1), & se_my_nrows+loc_shift(1), 1+loc_shift(2), & edis+loc_shift(2), 1+loc_shift(3), & s3+loc_shift(3)) call store3 (sind, 7, 1+loc_shift(1)-n_adj, & se_my_nrows+loc_shift(1)+s_adj, & 1+loc_shift(2), edis+loc_shift(2), 1+loc_shift(3), & s3+loc_shift(3)) call store3 (sind, 8, 1+loc_shift(1), sdis+loc_shift(1), & 1+loc_shift(2), edis+loc_shift(2), & 1+loc_shift(3), s3+loc_shift(3)) else if ((ldecomp(1) + ldecomp(2) .eq. 1) .and. & (ldecomp(2) .eq. 1)) then call store3 (sind, 1, 1+loc_shift(1), se_my_nrows+loc_shift(1), & 1+loc_shift(2), sdis+loc_shift(2), 1+loc_shift(3)-w_adj, & s3+loc_shift(3)+e_adj) call store3 (sind, 2, 1+loc_shift(1), se_my_nrows+loc_shift(1), & 1+loc_shift(2), sdis+loc_shift(2), & s3-wdis+1+loc_shift(3), & s3+loc_shift(3)) call store3 (sind, 3, 1+loc_shift(1), se_my_nrows+loc_shift(1), & 1+loc_shift(2)-n_adj, se_my_ncols+loc_shift(2)+s_adj, & s3-wdis+1+loc_shift(3), & s3+loc_shift(3)) call store3 (sind, 4, 1+loc_shift(1), se_my_nrows+loc_shift(1), & se_my_ncols-ndis+1+loc_shift(2), & se_my_ncols+loc_shift(2), & s3-wdis+1+loc_shift(3), & s3+loc_shift(3)) call store3 (sind, 5, 1+loc_shift(1), se_my_nrows+loc_shift(1), & se_my_ncols-ndis+1+loc_shift(2), & se_my_ncols+loc_shift(2), 1+loc_shift(3)-w_adj, & s3+loc_shift(3)+e_adj) call store3 (sind, 6, 1+loc_shift(1), se_my_nrows+loc_shift(1), & se_my_ncols-ndis+1+loc_shift(2), & se_my_ncols+loc_shift(2), 1+loc_shift(3), & edis+loc_shift(3)) call store3 (sind, 7, 1+loc_shift(1), se_my_nrows+loc_shift(1), & 1+loc_shift(2)-n_adj, se_my_ncols+loc_shift(2)+s_adj, & 1+loc_shift(3), edis+loc_shift(3)) call store3 (sind, 8, 1+loc_shift(1), se_my_nrows+loc_shift(1), & 1+loc_shift(2), sdis+loc_shift(2), 1+loc_shift(3), & edis+loc_shift(3)) else call store3 (sind, 1, 1+loc_shift(1)-w_adj, & se_my_nrows+loc_shift(1)+e_adj, & 1+loc_shift(2), se_my_ncols+loc_shift(2), & 1+loc_shift(3), sdis+loc_shift(3)) call store3 (sind, 2, se_my_nrows-wdis+1+loc_shift(1), & se_my_nrows+loc_shift(1), 1+loc_shift(2), & se_my_ncols+loc_shift(2), 1+loc_shift(3), & sdis+loc_shift(3)) call store3 (sind, 3, se_my_nrows-wdis+1+loc_shift(1), & se_my_nrows+loc_shift(1), 1+loc_shift(2), & se_my_ncols+loc_shift(2), 1+loc_shift(3)-n_adj, & s3+loc_shift(3)+s_adj) call store3 (sind, 4, se_my_nrows-wdis+1+loc_shift(1), & se_my_nrows+loc_shift(1), 1+loc_shift(2), & se_my_ncols+loc_shift(2), & s3-ndis+1+loc_shift(3), & s3+loc_shift(3)) call store3 (sind, 5, 1+loc_shift(1)-w_adj, & se_my_nrows+loc_shift(1)+e_adj, & 1+loc_shift(2), se_my_ncols+loc_shift(2), & s3-ndis+1+loc_shift(3), & s3+loc_shift(3)) call store3 (sind, 6, 1+loc_shift(1), edis+loc_shift(1), & 1+loc_shift(2), se_my_ncols+loc_shift(2), & s3-ndis+1+loc_shift(3), & s3+loc_shift(3)) call store3 (sind, 7, 1+loc_shift(1), edis+loc_shift(1), & 1+loc_shift(2), se_my_ncols+loc_shift(2), & 1+loc_shift(3)-n_adj, s3+loc_shift(3)+s_adj) call store3 (sind, 8, 1+loc_shift(1), edis+loc_shift(1), & 1+loc_shift(2), se_my_ncols+loc_shift(2), & 1+loc_shift(3), sdis+loc_shift(3)) end if call se_corner_adjust (ndis, edis, sdis, wdis, 2, & n_adj, e_adj, s_adj, w_adj) ! -- ( receiving ) determine ghost cells indexes configuration which ! -- depends on spatial decomposition, type 1, 2, and 3, respectively if ((ldecomp(1) + ldecomp(3) .eq. 1) .and. & (ldecomp(1) .eq. 1)) then call store3 (rind, 1, 1-ndis+loc_shift(1), loc_shift(1), & 1+loc_shift(2)-w_adj, se_my_ncols+loc_shift(2)+e_adj, & 1+loc_shift(3), s3+loc_shift(3)) call store3 (rind, 2, 1-ndis+loc_shift(1), loc_shift(1), & se_my_ncols+1+loc_shift(2), & se_my_ncols+edis+loc_shift(2), 1+loc_shift(3), & s3+loc_shift(3)) call store3 (rind, 3, 1+loc_shift(1)-n_adj, & se_my_nrows+loc_shift(1)+s_adj, & se_my_ncols+1+loc_shift(2), & se_my_ncols+edis+loc_shift(2), 1+loc_shift(3), & s3+loc_shift(3)) call store3 (rind, 4, se_my_nrows+1+loc_shift(1), & se_my_nrows+sdis+loc_shift(1), & se_my_ncols+1+loc_shift(2), & se_my_ncols+edis+loc_shift(2), 1+loc_shift(3), & s3+loc_shift(3)) call store3 (rind, 5, se_my_nrows+1+loc_shift(1), & se_my_nrows+sdis+loc_shift(1), 1+loc_shift(2)-w_adj, & se_my_ncols+loc_shift(2)+e_adj, 1+loc_shift(3), & s3+loc_shift(3)) call store3 (rind, 6, se_my_nrows+1+loc_shift(1), & se_my_nrows+sdis+loc_shift(1), 1-wdis+loc_shift(2), & loc_shift(2), 1+loc_shift(3), s3+loc_shift(3)) call store3 (rind, 7, 1+loc_shift(1)-n_adj, & se_my_nrows+loc_shift(1)+s_adj, & 1-wdis+loc_shift(2), loc_shift(2), 1+loc_shift(3), & s3+loc_shift(3)) call store3 (rind, 8, 1-ndis+loc_shift(1), loc_shift(1), & 1-wdis+loc_shift(2), loc_shift(2), 1+loc_shift(3), & s3+loc_shift(3)) else if ((ldecomp(1) + ldecomp(2) .eq. 1) .and. & (ldecomp(2) .eq. 1)) then call store3 (rind, 1, 1+loc_shift(1), se_my_nrows+loc_shift(1), & 1-ndis+loc_shift(2), loc_shift(2), 1+loc_shift(3)-w_adj, & s3+loc_shift(3)+e_adj) call store3 (rind, 2, 1+loc_shift(1), se_my_nrows+loc_shift(1), & 1-ndis+loc_shift(2), loc_shift(2), & s3+1+loc_shift(3), & s3+edis+loc_shift(3)) call store3 (rind, 3, 1+loc_shift(1), se_my_nrows+loc_shift(1), & 1+loc_shift(2)-n_adj, se_my_ncols+loc_shift(2)+s_adj, & s3+1+loc_shift(3), & s3+edis+loc_shift(3)) call store3 (rind, 4, 1+loc_shift(1), se_my_nrows+loc_shift(1), & se_my_ncols+1+loc_shift(2), & se_my_ncols+sdis+loc_shift(2), & s3+1+loc_shift(3), & s3+edis+loc_shift(3)) call store3 (rind, 5, 1+loc_shift(1), se_my_nrows+loc_shift(1), & se_my_ncols+1+loc_shift(2), & se_my_ncols+sdis+loc_shift(2), 1+loc_shift(3)-w_adj, & s3+loc_shift(3)+e_adj) call store3 (rind, 6, 1+loc_shift(1), se_my_nrows+loc_shift(1), & se_my_ncols+1+loc_shift(2), & se_my_ncols+sdis+loc_shift(2), 1-wdis+loc_shift(3), & loc_shift(3)) call store3 (rind, 7, 1+loc_shift(1), se_my_nrows+loc_shift(1), & 1+loc_shift(2)-n_adj, se_my_ncols+loc_shift(2)+s_adj, & 1-wdis+loc_shift(3), loc_shift(3)) call store3 (rind, 8, 1+loc_shift(1), se_my_nrows+loc_shift(1), & 1-ndis+loc_shift(2), loc_shift(2), 1-wdis+loc_shift(3), & loc_shift(3)) else call store3 (rind, 1, 1+loc_shift(1)-w_adj, & se_my_nrows+loc_shift(1)+e_adj, 1+loc_shift(2), & se_my_ncols+loc_shift(2), 1-ndis+loc_shift(3), & loc_shift(3)) call store3 (rind, 2, se_my_nrows+1+loc_shift(1), & se_my_nrows+edis+loc_shift(1), 1+loc_shift(2), & se_my_ncols+loc_shift(2), 1-ndis+loc_shift(3), & loc_shift(3)) call store3 (rind, 3, se_my_nrows+1+loc_shift(1), & se_my_nrows+edis+loc_shift(1), 1+loc_shift(2), & se_my_ncols+loc_shift(2), 1+loc_shift(3)-n_adj, & s3+loc_shift(3)+s_adj) call store3 (rind, 4, se_my_nrows+1+loc_shift(1), & se_my_nrows+edis+loc_shift(1), 1+loc_shift(2), & se_my_ncols+loc_shift(2), s3+1+loc_shift(3), & s3+sdis+loc_shift(3)) call store3 (rind, 5, 1+loc_shift(1)-w_adj, & se_my_nrows+loc_shift(1)+e_adj, 1+loc_shift(2), & se_my_ncols+loc_shift(2), s3+1+loc_shift(3), & s3+sdis+loc_shift(3)) call store3 (rind, 6, 1-wdis+loc_shift(1), loc_shift(1), & 1+loc_shift(2), se_my_ncols+loc_shift(2), & s3+1+loc_shift(3), & s3+sdis+loc_shift(3)) call store3 (rind, 7, 1-wdis+loc_shift(1), loc_shift(1), & 1+loc_shift(2), se_my_ncols+loc_shift(2), & 1+loc_shift(3)-n_adj, s3+loc_shift(3)+s_adj) call store3 (rind, 8, 1-wdis+loc_shift(1), loc_shift(1), & 1+loc_shift(2), se_my_ncols+loc_shift(2), & 1-ndis+loc_shift(3), loc_shift(3)) end if ! if ((se_data_ori .eq. "cr") .or. (se_data_ori .eq. "CR")) then do i = 1, 8 call swap (sind(1,1,i), sind(1,2,i)) call swap (sind(2,1,i), sind(2,2,i)) call swap (rind(1,1,i), rind(1,2,i)) call swap (rind(2,1,i), rind(2,2,i)) end do ! end if return end subroutine se_up_low3 ! -------------------------------------------------------------------------- ! Purpose: ! ! to store low and high array indexes of a given domain with ghost cells ! ! Revision history: ! ! Orginal version: 7/28/98 by David Wong ! 11/05/99 by David Wong ! -- recode the code using F90 syntax ! ! Subroutine parameter description: ! ! In: direction -- communication direction ! i1 -- low index of I dimension ! i2 -- high index of I dimension ! j1 -- low index of J dimension ! j2 -- high index of J dimension ! k1 -- low index of K dimension ! k2 -- high index of K dimension ! ! Out: array -- array with low and high indexes of each dimension ! -------------------------------------------------------------------------- subroutine store3 (array, direction, i1, i2, j1, j2, k1, k2) integer, intent(out) :: array (2,3,8) integer, intent(in) :: direction, i1, i2, j1, j2, k1, k2 array(1,1,direction) = i1 array(2,1,direction) = i2 array(1,2,direction) = j1 array(2,2,direction) = j2 array(1,3,direction) = k1 array(2,3,direction) = k2 return end subroutine store3 ! -------------------------------------------------------------------------- ! Purpose: ! ! initialize the lower and upper index of each dimension of a local ! 4-D array ! ! Revision history: ! ! Orginal version: 8/3/98 by David Wong ! 11/05/99 by David Wong ! -- recode the code using F90 syntax ! 1/17/01 by David Wong ! -- use a new function se_corner_adjust to adjust stencil ! in the NE, SE, SW, and NW direction of the boundary ! processors. The adjustment is applied to the store ! function which determine the sending and receiving ! indices. ! 11/28/01 by David Wong ! -- make calculation of loc_shift more general to suit ! RC orientation. ! 08/24/11 by David Wong ! -- removed se_ori_ext to eliminate data and geo orientation ! ! Subroutine parameter description: ! ! In: dispstr -- displacement string ! shift -- an array to hold the amount of index shifting due to ! starting index is 1 in a subroutine ! num_shift -- number of shifting ! ! Out: sind -- store low and high index of each dimension for sending ! process ! rind -- store low and high index of each dimension for receiving ! process ! ! Local variable description: ! ! ndis -- North displacement ! edis -- East displacement ! sdis -- South displacement ! wdis -- West displacement ! i -- loop index ! loc_shift -- local adjustment of dummy argument shift ! ldecomp -- hold the values of decompstr ! ! Include file: ! ! se_domain_info_ext ! se_ori_ext ! ! se_comm_info.ext ! ! decompstr -- indicator of which dimenion(s) of data is/are decomposed, ! 0 (not decomposed), 1 (decomposed) ! ! Subroutine/Function call: ! ! store4 ! ! -------------------------------------------------------------------------- subroutine se_up_low4 (dispstr, sind, rind, shift, num_shift, s3, s4) use se_domain_info_ext use se_comm_info_ext ! use se_ori_ext use se_internal_util_module implicit none integer, intent(inout) :: sind(2,4,8), rind(2,4,8) character (len = 12), intent(in) :: dispstr integer, intent(in) :: shift(8), num_shift, s3, s4 integer :: ndis, edis, sdis, wdis, loc_shift(4), i integer :: ldecomp(4) integer :: n_adj, e_adj, s_adj, w_adj if (num_shift .gt. 0) then ! if ((se_data_ori .eq. "cr") .or. (se_data_ori .eq. "CR")) then if (shift(1) .eq. 1) then loc_shift(1) = 1 - shift(4) loc_shift(2) = 1 - shift(2) else loc_shift(1) = 1 - shift(2) loc_shift(2) = 1 - shift(4) end if ! else ! if (shift(1) .eq. 1) then ! loc_shift(1) = 1 - shift(2) ! loc_shift(2) = 1 - shift(4) ! else ! loc_shift(1) = 1 - shift(4) ! loc_shift(2) = 1 - shift(2) ! end if ! end if loc_shift(3) = 1 - shift(6) loc_shift(4) = 1 - shift(8) else loc_shift(1:4) = 0 end if read (se_decompstr, 15) (ldecomp(i), i=1, 4) 15 format (8i2) ! if (se_geo_ori .eq. 0) then read (dispstr, 20) sdis, edis, ndis, wdis ! else ! read (dispstr, 20) ndis, edis, sdis, wdis ! end if 20 format (4i3) call se_corner_adjust (ndis, edis, sdis, wdis, 1, & n_adj, e_adj, s_adj, w_adj) ! -- ( sending ) determine ghost cells indexes configuration which ! -- depends on spatial decomposition type 1, 2, 3, 4, 5, and 6, respectively if ((ldecomp(1) + ldecomp(3) .eq. 1) .and. & (ldecomp(1) .eq. 1) .and. (ldecomp(4) .eq. 0)) then call store4 (sind, 1, 1+loc_shift(1), sdis+loc_shift(1), & 1+loc_shift(2)-w_adj, se_my_ncols+loc_shift(2)+e_adj, & 1+loc_shift(3), s3+loc_shift(3), & 1+loc_shift(4), s4+loc_shift(4)) call store4 (sind, 2, 1+loc_shift(1), sdis+loc_shift(1), & se_my_ncols-wdis+1+loc_shift(2), & se_my_ncols+loc_shift(2), 1+loc_shift(3), & s3+loc_shift(3), 1+loc_shift(4), & s4+loc_shift(4)) call store4 (sind, 3, 1+loc_shift(1)-n_adj, & se_my_nrows+loc_shift(1)+s_adj, & se_my_ncols-wdis+1+loc_shift(2), & se_my_ncols+loc_shift(2), 1+loc_shift(3), & s3+loc_shift(3), 1+loc_shift(4), & s4+loc_shift(4)) call store4 (sind, 4, se_my_nrows-ndis+1+loc_shift(1), & se_my_nrows+loc_shift(1), & se_my_ncols-wdis+1+loc_shift(2), & se_my_ncols+loc_shift(2), 1+loc_shift(3), & s3+loc_shift(3), 1+loc_shift(4), & s4+loc_shift(4)) call store4 (sind, 5, se_my_nrows-ndis+1+loc_shift(1), & se_my_nrows+loc_shift(1), 1+loc_shift(2)-w_adj, & se_my_ncols+loc_shift(2)+e_adj, 1+loc_shift(3), & s3+loc_shift(3), 1+loc_shift(4), & s4+loc_shift(4)) call store4 (sind, 6, se_my_nrows-ndis+1+loc_shift(1), & se_my_nrows+loc_shift(1), 1+loc_shift(2), & edis+loc_shift(2), 1+loc_shift(3), & s3+loc_shift(3), 1+loc_shift(4), & s4+loc_shift(4)) call store4 (sind, 7, 1+loc_shift(1)-n_adj, & se_my_nrows+loc_shift(1)+s_adj, & 1+loc_shift(2), edis+loc_shift(2), 1+loc_shift(3), & s3+loc_shift(3), 1+loc_shift(4), & s4+loc_shift(4)) call store4 (sind, 8, 1+loc_shift(1), sdis+loc_shift(1), & 1+loc_shift(2), edis+loc_shift(2), 1+loc_shift(3), & s3+loc_shift(3), 1+loc_shift(4), & s4+loc_shift(4)) else if ((ldecomp(2) + ldecomp(4) .eq. 1) .and. & (ldecomp(2) .eq. 1) .and. (ldecomp(1) .eq. 0)) then call store4 (sind, 1, 1+loc_shift(1), se_my_nrows+loc_shift(1), & 1+loc_shift(2), sdis+loc_shift(2), 1+loc_shift(3)-w_adj, & s3+loc_shift(3)+e_adj, 1+loc_shift(4), & s4+loc_shift(4)) call store4 (sind, 2, 1+loc_shift(1), se_my_nrows+loc_shift(1), & 1+loc_shift(2), sdis+loc_shift(2), & s3-wdis+1+loc_shift(3), & s3+loc_shift(3), 1+loc_shift(4), & s4+loc_shift(4)) call store4 (sind, 3, 1+loc_shift(1), se_my_nrows+loc_shift(1), & 1+loc_shift(2)-n_adj, se_my_ncols+loc_shift(2)+s_adj, & s3-wdis+1+loc_shift(3), & s3+loc_shift(3), 1+loc_shift(4), & s4+loc_shift(4)) call store4 (sind, 4, 1+loc_shift(1), se_my_nrows+loc_shift(1), & se_my_ncols-ndis+1+loc_shift(2), & se_my_ncols+loc_shift(2), & s3-wdis+1+loc_shift(3), & s3+loc_shift(3), 1+loc_shift(4), & s4+loc_shift(4)) call store4 (sind, 5, 1+loc_shift(1), se_my_nrows+loc_shift(1), & se_my_ncols-ndis+1+loc_shift(2), & se_my_ncols+loc_shift(2), 1+loc_shift(3)-w_adj, & s3+loc_shift(3)+e_adj, 1+loc_shift(4), & s4+loc_shift(4)) call store4 (sind, 6, 1+loc_shift(1), se_my_nrows+loc_shift(1), & se_my_ncols-ndis+1+loc_shift(2), & se_my_ncols+loc_shift(2), 1+loc_shift(3), & edis+loc_shift(3), 1+loc_shift(4), & s4+loc_shift(4)) call store4 (sind, 7, 1+loc_shift(1), se_my_nrows+loc_shift(1), & 1+loc_shift(2)-n_adj, se_my_ncols+loc_shift(2)+s_adj, & 1+loc_shift(3), edis+loc_shift(3), 1+loc_shift(4), & s4+loc_shift(4)) call store4 (sind, 8, 1+loc_shift(1), se_my_nrows+loc_shift(1), & 1+loc_shift(2), sdis+loc_shift(2), 1+loc_shift(3), & edis+loc_shift(3), 1+loc_shift(4), & s4+loc_shift(4)) else if ((ldecomp(3) + ldecomp(4) .eq. 1) .and. & (ldecomp(3) .eq. 1) .and. (ldecomp(2) .eq. 0)) then call store4 (sind, 1, 1+loc_shift(1)-w_adj, & se_my_nrows+loc_shift(1)+e_adj, 1+loc_shift(2), & se_my_ncols+loc_shift(2), 1+loc_shift(3), & sdis+loc_shift(3), 1+loc_shift(4), & s4+loc_shift(4)) call store4 (sind, 2, se_my_nrows-wdis+1+loc_shift(1), & se_my_nrows+loc_shift(1), 1+loc_shift(2), & se_my_ncols+loc_shift(2), 1+loc_shift(3), & sdis+loc_shift(3), 1+loc_shift(4), & s4+loc_shift(4)) call store4 (sind, 3, se_my_nrows-wdis+1+loc_shift(1), & se_my_nrows+loc_shift(1), 1+loc_shift(2), & se_my_ncols+loc_shift(2), 1+loc_shift(3)-n_adj, & s3+loc_shift(3)+s_adj, 1+loc_shift(4), & s4+loc_shift(4)) call store4 (sind, 4, se_my_nrows-wdis+1+loc_shift(1), & se_my_nrows+loc_shift(1), 1+loc_shift(2), & se_my_ncols+loc_shift(2), & s3-ndis+1+loc_shift(3), & s3+loc_shift(3), 1+loc_shift(4), & s4+loc_shift(4)) call store4 (sind, 5, 1+loc_shift(1)-w_adj, & se_my_nrows+loc_shift(1)+e_adj, 1+loc_shift(2), & se_my_ncols+loc_shift(2), & s3-ndis+1+loc_shift(3), & s3+loc_shift(3), 1+loc_shift(4), & s4+loc_shift(4)) call store4 (sind, 6, 1+loc_shift(1), edis+loc_shift(1), & 1+loc_shift(2), se_my_ncols+loc_shift(2), & s3-ndis+1+loc_shift(3), & s3+loc_shift(3), 1+loc_shift(4), & s4+loc_shift(4)) call store4 (sind, 7, 1+loc_shift(1), edis+loc_shift(1), & 1+loc_shift(2), se_my_ncols+loc_shift(2), & 1+loc_shift(3)-n_adj, s3+loc_shift(3)+s_adj, & 1+loc_shift(4), s4+loc_shift(4)) call store4 (sind, 8, 1+loc_shift(1), edis+loc_shift(1), & 1+loc_shift(2), se_my_ncols+loc_shift(2), & 1+loc_shift(3), sdis+loc_shift(3), 1+loc_shift(4), & s4+loc_shift(4)) else if ((ldecomp(1) + ldecomp(4) .eq. 1) .and. & (ldecomp(4) .eq. 1) .and. (ldecomp(2) .eq. 0)) then call store4 (sind, 1, 1+loc_shift(1), se_my_nrows+loc_shift(1), & 1+loc_shift(2), se_my_ncols+loc_shift(2), & 1+loc_shift(3)-w_adj, s3+loc_shift(3)+e_adj, & 1+loc_shift(4), sdis+loc_shift(4)) call store4 (sind, 2, 1+loc_shift(1), se_my_nrows+loc_shift(1), & 1+loc_shift(2), se_my_ncols+loc_shift(2), & s3-wdis+1+loc_shift(3), & s3+loc_shift(3), 1+loc_shift(4), & sdis+loc_shift(4)) call store4 (sind, 3, 1+loc_shift(1), se_my_nrows+loc_shift(1), & 1+loc_shift(2), se_my_ncols+loc_shift(2), & s3-wdis+1+loc_shift(3), & s3+loc_shift(3), 1+loc_shift(4)-n_adj, & s4+loc_shift(4)+s_adj) call store4 (sind, 4, 1+loc_shift(1), se_my_nrows+loc_shift(1), & 1+loc_shift(2), se_my_ncols+loc_shift(2), & s3-wdis+1+loc_shift(3), & s3+loc_shift(3), & s4-ndis+1+loc_shift(4), & s4+loc_shift(4)) call store4 (sind, 5, 1+loc_shift(1), se_my_nrows+loc_shift(1), & 1+loc_shift(2), se_my_ncols+loc_shift(2), & 1+loc_shift(3)-w_adj, s3+loc_shift(3)+e_adj, & s4-ndis+1+loc_shift(4), & s4+loc_shift(4)) call store4 (sind, 6, 1+loc_shift(1), se_my_nrows+loc_shift(1), & 1+loc_shift(2), se_my_ncols+loc_shift(2), & 1+loc_shift(3), edis+loc_shift(3), & s4-ndis+1+loc_shift(4), & s4+loc_shift(4)) call store4 (sind, 7, 1+loc_shift(1), se_my_nrows+loc_shift(1), & 1+loc_shift(2), se_my_ncols+loc_shift(2), & 1+loc_shift(3), edis+loc_shift(3), 1+loc_shift(4)-n_adj, & s4+loc_shift(4)+s_adj) call store4 (sind, 8, 1+loc_shift(1), se_my_nrows+loc_shift(1), & 1+loc_shift(2), se_my_ncols+loc_shift(2), & 1+loc_shift(3), edis+loc_shift(3), 1+loc_shift(4), & sdis+loc_shift(4)) else if ((ldecomp(2) + ldecomp(4) .eq. 1) .and. & (ldecomp(4) .eq. 1) .and. (ldecomp(3) .eq. 0)) then call store4 (sind, 1, 1+loc_shift(1), sdis+loc_shift(1), & 1+loc_shift(2), se_my_ncols+loc_shift(2), & 1+loc_shift(3), s3+loc_shift(3), & 1+loc_shift(4)-w_adj, s4+loc_shift(4)+e_adj) call store4 (sind, 2, 1+loc_shift(1), sdis+loc_shift(1), & 1+loc_shift(2), se_my_ncols+loc_shift(2), & 1+loc_shift(3), s3+loc_shift(3), & s4-wdis+1+loc_shift(4), & s4+loc_shift(4)) call store4 (sind, 3, 1+loc_shift(1)-n_adj, & se_my_nrows+loc_shift(1)+s_adj, & 1+loc_shift(2), se_my_ncols+loc_shift(2), & 1+loc_shift(3), s3+loc_shift(3), & s4-wdis+1+loc_shift(4), & s4+loc_shift(4)) call store4 (sind, 4, se_my_nrows-ndis+1+loc_shift(1), & se_my_nrows+loc_shift(1), 1+loc_shift(2), & se_my_ncols+loc_shift(2), 1+loc_shift(3), & s3+loc_shift(3), & s4-wdis+1+loc_shift(4), & s4+loc_shift(4)) call store4 (sind, 5, se_my_nrows-ndis+1+loc_shift(1), & se_my_nrows+loc_shift(1), 1+loc_shift(2), & se_my_ncols+loc_shift(2), 1+loc_shift(3)-w_adj, & s3+loc_shift(3)+e_adj, 1+loc_shift(4), & s4+loc_shift(4)) call store4 (sind, 6, se_my_nrows-ndis+1+loc_shift(1), & se_my_nrows+loc_shift(1), 1+loc_shift(2), & se_my_ncols+loc_shift(2), 1+loc_shift(3), & s3+loc_shift(3), 1+loc_shift(4), & edis+loc_shift(4)) call store4 (sind, 7, 1+loc_shift(1)-n_adj, & se_my_nrows+loc_shift(1)+s_adj, & 1+loc_shift(2), se_my_ncols+loc_shift(2), & 1+loc_shift(3), s3+loc_shift(3), & 1+loc_shift(4), edis+loc_shift(4)) call store4 (sind, 8, 1+loc_shift(1), sdis+loc_shift(1), & 1+loc_shift(2), se_my_ncols+loc_shift(2), & 1+loc_shift(3), s3+loc_shift(3), & 1+loc_shift(4), edis+loc_shift(4)) else call store4 (sind, 1, 1+loc_shift(1), se_my_nrows+loc_shift(1), & 1+loc_shift(2), sdis+loc_shift(2), 1+loc_shift(3), & s3+loc_shift(3), 1+loc_shift(4)-w_adj, & s4+loc_shift(4)+e_adj) call store4 (sind, 2, 1+loc_shift(1), se_my_nrows+loc_shift(1), & 1+loc_shift(2), sdis+loc_shift(2), 1+loc_shift(3), & s3+loc_shift(3), & s4-wdis+1+loc_shift(4), & s4+loc_shift(4)) call store4 (sind, 3, 1+loc_shift(1), se_my_nrows+loc_shift(1), & 1+loc_shift(2)-n_adj, se_my_ncols+loc_shift(2)+s_adj, & 1+loc_shift(3), s3+loc_shift(3), & s4-wdis+1+loc_shift(4), & s4+loc_shift(4)) call store4 (sind, 4, 1+loc_shift(1), se_my_nrows+loc_shift(1), & se_my_ncols-ndis+1+loc_shift(2), & se_my_ncols+loc_shift(2), 1+loc_shift(3), & s3+loc_shift(3), & s4-wdis+1+loc_shift(4), & s4+loc_shift(4)) call store4 (sind, 5, 1+loc_shift(1), se_my_nrows+loc_shift(1), & se_my_ncols-ndis+1+loc_shift(2), & se_my_ncols+loc_shift(2), 1+loc_shift(3), & s3+loc_shift(3), 1+loc_shift(4)-w_adj, & s4+loc_shift(4)+e_adj) call store4 (sind, 6, 1+loc_shift(1), se_my_nrows+loc_shift(1), & se_my_ncols-ndis+1+loc_shift(2), & se_my_ncols+loc_shift(2), 1+loc_shift(3), & s3+loc_shift(3), 1+loc_shift(4), & edis+loc_shift(4)) call store4 (sind, 7, 1+loc_shift(1), se_my_nrows+loc_shift(1), & 1+loc_shift(2)-n_adj, se_my_ncols+loc_shift(2)+s_adj, & 1+loc_shift(3), s3+loc_shift(3), & 1+loc_shift(4), edis+loc_shift(4)) call store4 (sind, 8, 1+loc_shift(1), se_my_nrows+loc_shift(1), & 1+loc_shift(2), sdis+loc_shift(2), 1+loc_shift(3), & s3+loc_shift(3), 1+loc_shift(4), & edis+loc_shift(4)) end if call se_corner_adjust (ndis, edis, sdis, wdis, 2, & n_adj, e_adj, s_adj, w_adj) ! -- ( receiving ) determine ghost cells indexes configuration which ! -- depends on spatial decomposition, type 1, 2, and 3, respectively if ((ldecomp(1) + ldecomp(3) .eq. 1) .and. & (ldecomp(1) .eq. 1) .and. (ldecomp(4) .eq. 0)) then call store4 (rind, 1, 1-ndis+loc_shift(1), loc_shift(1), & 1+loc_shift(2)-w_adj, se_my_ncols+loc_shift(2)+e_adj, & 1+loc_shift(3), s3+loc_shift(3), & 1+loc_shift(4), s4+loc_shift(4)) call store4 (rind, 2, 1-ndis+loc_shift(1), loc_shift(1), & se_my_ncols+1+loc_shift(2), & se_my_ncols+edis+loc_shift(2), 1+loc_shift(3), & s3+loc_shift(3), 1+loc_shift(4), & s4+loc_shift(4)) call store4 (rind, 3, 1+loc_shift(1)-n_adj, & se_my_nrows+loc_shift(1)+s_adj, & se_my_ncols+1+loc_shift(2), & se_my_ncols+edis+loc_shift(2), 1+loc_shift(3), & s3+loc_shift(3), 1+loc_shift(4), & s4+loc_shift(4)) call store4 (rind, 4, se_my_nrows+1+loc_shift(1), & se_my_nrows+sdis+loc_shift(1), & se_my_ncols+1+loc_shift(2), & se_my_ncols+edis+loc_shift(2), 1+loc_shift(3), & s3+loc_shift(3), 1+loc_shift(4), & s4+loc_shift(4)) call store4 (rind, 5, se_my_nrows+1+loc_shift(1), & se_my_nrows+sdis+loc_shift(1), 1+loc_shift(2)-w_adj, & se_my_ncols+loc_shift(2)+e_adj, 1+loc_shift(3), & s3+loc_shift(3), 1+loc_shift(4), & s4+loc_shift(4)) call store4 (rind, 6, se_my_nrows+1+loc_shift(1), & se_my_nrows+sdis+loc_shift(1), 1-wdis+loc_shift(2), & loc_shift(2), 1+loc_shift(3), s3+loc_shift(3), & 1+loc_shift(4), s4+loc_shift(4)) call store4 (rind, 7, 1+loc_shift(1)-n_adj, & se_my_nrows+loc_shift(1)+s_adj, & 1-wdis+loc_shift(2), loc_shift(2), 1+loc_shift(3), & s3+loc_shift(3), 1+loc_shift(4), & s4+loc_shift(4)) call store4 (rind, 8, 1-ndis+loc_shift(1), loc_shift(1), & 1-wdis+loc_shift(2), loc_shift(2), 1+loc_shift(3), & s3+loc_shift(3), 1+loc_shift(4), & s4+loc_shift(4)) else if ((ldecomp(2) + ldecomp(4) .eq. 1) .and. & (ldecomp(2) .eq. 1) .and. (ldecomp(1) .eq. 0)) then call store4 (rind, 1, 1+loc_shift(1), se_my_nrows+loc_shift(1), & 1-ndis+loc_shift(2), loc_shift(2), 1+loc_shift(3)-w_adj, & s3+loc_shift(3)+e_adj, 1+loc_shift(4), & s4+loc_shift(4)) call store4 (rind, 2, 1+loc_shift(1), se_my_nrows+loc_shift(1), & 1-ndis+loc_shift(2), loc_shift(2), & s3+1+loc_shift(3), & s3+edis+loc_shift(3), 1+loc_shift(4), & s4+loc_shift(4)) call store4 (rind, 3, 1+loc_shift(1), se_my_nrows+loc_shift(1), & 1+loc_shift(2)-n_adj, se_my_ncols+loc_shift(2)+s_adj, & s3+1+loc_shift(3), & s3+edis+loc_shift(3), 1+loc_shift(4), & s4+loc_shift(4)) call store4 (rind, 4, 1+loc_shift(1), se_my_nrows+loc_shift(1), & se_my_ncols+1+loc_shift(2), & se_my_ncols+sdis+loc_shift(2), & s3+1+loc_shift(3), & s3+edis+loc_shift(3), 1+loc_shift(4), & s4+loc_shift(4)) call store4 (rind, 5, 1+loc_shift(1), se_my_nrows+loc_shift(1), & se_my_ncols+1+loc_shift(2), & se_my_ncols+sdis+loc_shift(2), 1+loc_shift(3)-w_adj, & s3+loc_shift(3)+e_adj, 1+loc_shift(4), & s4+loc_shift(4)) call store4 (rind, 6, 1+loc_shift(1), se_my_nrows+loc_shift(1), & se_my_ncols+1+loc_shift(2), & se_my_ncols+sdis+loc_shift(2), 1-wdis+loc_shift(3), & loc_shift(3), 1+loc_shift(4), s4+loc_shift(4)) call store4 (rind, 7, 1+loc_shift(1), se_my_nrows+loc_shift(1), & 1+loc_shift(2)-n_adj, se_my_ncols+loc_shift(2)+s_adj, & 1-wdis+loc_shift(3), loc_shift(3), 1+loc_shift(4), & s4+loc_shift(4)) call store4 (rind, 8, 1+loc_shift(1), se_my_nrows+loc_shift(1), & 1-ndis+loc_shift(2), loc_shift(2), 1-wdis+loc_shift(3), & loc_shift(3), 1+loc_shift(4), s4+loc_shift(4)) else if ((ldecomp(3) + ldecomp(4) .eq. 1) .and. & (ldecomp(3) .eq. 1) .and. (ldecomp(2) .eq. 0)) then call store4 (rind, 1, 1+loc_shift(1)-w_adj, & se_my_nrows+loc_shift(1)+e_adj, & 1+loc_shift(2), se_my_ncols+loc_shift(2), & 1-ndis+loc_shift(3), loc_shift(3), 1+loc_shift(4), & s4+loc_shift(4)) call store4 (rind, 2, se_my_nrows+1+loc_shift(1), & se_my_nrows+edis+loc_shift(1), 1+loc_shift(2), & se_my_ncols+loc_shift(2), 1-ndis+loc_shift(3), & loc_shift(3), 1+loc_shift(4), s4+loc_shift(4)) call store4 (rind, 3, se_my_nrows+1+loc_shift(1), & se_my_nrows+edis+loc_shift(1), 1+loc_shift(2), & se_my_ncols+loc_shift(2), 1+loc_shift(3)-n_adj, & s3+loc_shift(3)+s_adj, 1+loc_shift(4), & s4+loc_shift(4)) call store4 (rind, 4, se_my_nrows+1+loc_shift(1), & se_my_nrows+edis+loc_shift(1), 1+loc_shift(2), & se_my_ncols+loc_shift(2), s3+1+loc_shift(3), & s3+sdis+loc_shift(3), 1+loc_shift(4), & s4+loc_shift(4)) call store4 (rind, 5, 1+loc_shift(1)-w_adj, & se_my_nrows+loc_shift(1)+e_adj, & 1+loc_shift(2), se_my_ncols+loc_shift(2), & s3+1+loc_shift(3), & s3+sdis+loc_shift(3), 1+loc_shift(4), & s4+loc_shift(4)) call store4 (rind, 6, 1-wdis+loc_shift(1), loc_shift(1), & 1+loc_shift(2), se_my_ncols+loc_shift(2), & s3+1+loc_shift(3), & s3+sdis+loc_shift(3), 1+loc_shift(4), & s4+loc_shift(4)) call store4 (rind, 7, 1-wdis+loc_shift(1), loc_shift(1), & 1+loc_shift(2), se_my_ncols+loc_shift(2), & 1+loc_shift(3)-n_adj, s3+loc_shift(3)+s_adj, & 1+loc_shift(4), s4+loc_shift(4)) call store4 (rind, 8, 1-wdis+loc_shift(1), loc_shift(1), & 1+loc_shift(2), se_my_ncols+loc_shift(2), & 1-ndis+loc_shift(3), loc_shift(3), 1+loc_shift(4), & s4+loc_shift(4)) else if ((ldecomp(1) + ldecomp(4) .eq. 1) .and. & (ldecomp(4) .eq. 1) .and. (ldecomp(2) .eq. 0)) then call store4 (rind, 1, 1+loc_shift(1), se_my_nrows+loc_shift(1), & 1+loc_shift(2), se_my_ncols+loc_shift(2), & 1+loc_shift(3)-w_adj, s3+loc_shift(3)+e_adj, & 1-ndis+loc_shift(4), loc_shift(4)) call store4 (rind, 2, 1+loc_shift(1), se_my_nrows+loc_shift(1), & 1+loc_shift(2), se_my_ncols+loc_shift(2), & s3+1+loc_shift(3), & s3+edis+loc_shift(3), 1-ndis+loc_shift(4), & loc_shift(4)) call store4 (rind, 3, 1+loc_shift(1), se_my_nrows+loc_shift(1), & 1+loc_shift(2), se_my_ncols+loc_shift(2), & s3+1+loc_shift(3), & s3+edis+loc_shift(3), 1+loc_shift(4)-n_adj, & s4+loc_shift(4)+s_adj) call store4 (rind, 4, 1+loc_shift(1), se_my_nrows+loc_shift(1), & 1+loc_shift(2), se_my_ncols+loc_shift(2), & s3+1+loc_shift(3), & s3+edis+loc_shift(3), & s4+1+loc_shift(4), & s4+sdis+loc_shift(4)) call store4 (rind, 5, 1+loc_shift(1), se_my_nrows+loc_shift(1), & 1+loc_shift(2), se_my_ncols+loc_shift(2), & 1+loc_shift(3)-w_adj, s3+loc_shift(3)+e_adj, & s4+1+loc_shift(4), & s4+sdis+loc_shift(4)) call store4 (rind, 6, 1+loc_shift(1), se_my_nrows+loc_shift(1), & 1+loc_shift(2), se_my_ncols+loc_shift(2), & 1-wdis+loc_shift(3), loc_shift(3), & s4+1+loc_shift(4), & s4+sdis+loc_shift(4)) call store4 (rind, 7, 1+loc_shift(1), se_my_nrows+loc_shift(1), & 1+loc_shift(2), se_my_ncols+loc_shift(2), & 1-wdis+loc_shift(3), loc_shift(3), 1+loc_shift(4)-n_adj, & s4+loc_shift(4)+s_adj) call store4 (rind, 8, 1+loc_shift(1), se_my_nrows+loc_shift(1), & 1+loc_shift(2), se_my_ncols+loc_shift(2), & 1-wdis+loc_shift(3), loc_shift(3), 1-ndis+loc_shift(4), & loc_shift(4)) else if ((ldecomp(2) + ldecomp(4) .eq. 1) .and. & (ldecomp(4) .eq. 1) .and. (ldecomp(3) .eq. 0)) then call store4 (rind, 1, 1-ndis+loc_shift(1), loc_shift(1), & 1+loc_shift(2), se_my_ncols+loc_shift(2), & 1+loc_shift(3), s3+loc_shift(3), & 1+loc_shift(4)-w_adj, s4+loc_shift(4)+e_adj) call store4 (rind, 2, 1-ndis+loc_shift(1), loc_shift(1), & 1+loc_shift(2), se_my_ncols+loc_shift(2), & 1+loc_shift(3), s3+loc_shift(3), & s4+1+loc_shift(4), & s4+edis+loc_shift(4)) call store4 (rind, 3, 1+loc_shift(1)-n_adj, & se_my_nrows+loc_shift(1)+s_adj, & 1+loc_shift(2), se_my_ncols+loc_shift(2), & 1+loc_shift(3), s3+loc_shift(3), & s4+1+loc_shift(4), & s4+edis+loc_shift(4)) call store4 (rind, 4, se_my_nrows+1+loc_shift(1), & se_my_nrows+sdis+loc_shift(1), 1+loc_shift(2), & se_my_ncols+loc_shift(2), 1+loc_shift(3), & s3+loc_shift(3), s4+1+loc_shift(4), & s4+edis+loc_shift(4)) call store4 (rind, 5, se_my_nrows+1+loc_shift(1), & se_my_nrows+sdis+loc_shift(1), 1+loc_shift(2), & se_my_ncols+loc_shift(2), 1+loc_shift(3), & s3+loc_shift(3), 1+loc_shift(4)-w_adj, & s4+loc_shift(4)+e_adj) call store4 (rind, 6, se_my_nrows+1+loc_shift(1), & se_my_nrows+sdis+loc_shift(1), 1+loc_shift(2), & se_my_ncols+loc_shift(2), 1+loc_shift(3), & s3+loc_shift(3), 1-wdis+loc_shift(4), & loc_shift(4)) call store4 (rind, 7, 1+loc_shift(1)-n_adj, & se_my_nrows+loc_shift(1)+s_adj, & 1+loc_shift(2), se_my_ncols+loc_shift(2), & 1+loc_shift(3), s3+loc_shift(3), & 1-wdis+loc_shift(4), loc_shift(4)) call store4 (rind, 8, 1-ndis+loc_shift(1), loc_shift(1), & 1+loc_shift(2), se_my_ncols+loc_shift(2), & 1+loc_shift(3), s3+loc_shift(3), & 1-wdis+loc_shift(4), loc_shift(4)) else call store4 (rind, 1, 1+loc_shift(1), se_my_nrows+loc_shift(1), & 1-ndis+loc_shift(2), loc_shift(2), 1+loc_shift(3), & s3+loc_shift(3), 1+loc_shift(4)-w_adj, & s4+loc_shift(4)+e_adj) call store4 (rind, 2, 1+loc_shift(1), se_my_nrows+loc_shift(1), & 1-ndis+loc_shift(2), loc_shift(2), 1+loc_shift(3), & s3+loc_shift(3), s4+1+loc_shift(4), & s4+edis+loc_shift(4)) call store4 (rind, 3, 1+loc_shift(1), se_my_nrows+loc_shift(1), & 1+loc_shift(2)-n_adj, se_my_ncols+loc_shift(2)+s_adj, & 1+loc_shift(3), s3+loc_shift(3), & s4+1+loc_shift(4), & s4+edis+loc_shift(4)) call store4 (rind, 4, 1+loc_shift(1), se_my_nrows+loc_shift(1), & se_my_ncols+1+loc_shift(2), & se_my_ncols+sdis+loc_shift(2), 1+loc_shift(3), & s3+loc_shift(3), s4+1+loc_shift(4), & s4+edis+loc_shift(4)) call store4 (rind, 5, 1+loc_shift(1), se_my_nrows+loc_shift(1), & se_my_ncols+1+loc_shift(2), & se_my_ncols+sdis+loc_shift(2), 1+loc_shift(3), & s3+loc_shift(3), 1+loc_shift(4)-w_adj, & s4+loc_shift(4)+e_adj) call store4 (rind, 6, 1+loc_shift(1), se_my_nrows+loc_shift(1), & se_my_ncols+1+loc_shift(2), & se_my_ncols+sdis+loc_shift(2), 1+loc_shift(3), & s3+loc_shift(3), 1-wdis+loc_shift(4), & loc_shift(4)) call store4 (rind, 7, 1+loc_shift(1), se_my_nrows+loc_shift(1), & 1+loc_shift(2)-n_adj, se_my_ncols+loc_shift(2)+s_adj, & 1+loc_shift(3), s3+loc_shift(3), & 1-wdis+loc_shift(4), loc_shift(4)) call store4 (rind, 8, 1+loc_shift(1), se_my_nrows+loc_shift(1), & 1-ndis+loc_shift(2), loc_shift(2), 1+loc_shift(3), & s3+loc_shift(3), 1-wdis+loc_shift(4), & loc_shift(4)) end if ! if ((se_data_ori .eq. "cr") .or. (se_data_ori .eq. "CR")) then do i = 1, 8 call swap (sind(1,1,i), sind(1,2,i)) call swap (sind(2,1,i), sind(2,2,i)) call swap (rind(1,1,i), rind(1,2,i)) call swap (rind(2,1,i), rind(2,2,i)) end do ! end if return end subroutine se_up_low4 ! -------------------------------------------------------------------------- ! Purpose: ! ! to store low and high array indexes of a given domain with ghost cells ! ! Revision history: ! ! Orginal version: 7/28/98 by David Wong ! 11/05/99 by David Wong ! -- recode the code using F90 syntax ! ! Subroutine parameter description: ! ! In: direction -- communication direction ! i1 -- low index of I dimension ! i2 -- high index of I dimension ! j1 -- low index of J dimension ! j2 -- high index of J dimension ! k1 -- low index of K dimension ! k2 -- high index of K dimension ! l1 -- low index of L dimension ! l2 -- high index of L dimension ! ! Out: array -- array with low and high indexes of each dimension ! -------------------------------------------------------------------------- subroutine store4 (array, dir, i1, i2, j1, j2, k1, k2, l1, l2) integer, intent(out) :: array (2,4,8) integer, intent(in) :: dir, i1, i2, j1, j2, k1, k2, l1, l2 array(1,1,dir) = i1 array(2,1,dir) = i2 array(1,2,dir) = j1 array(2,2,dir) = j2 array(1,3,dir) = k1 array(2,3,dir) = k2 array(1,4,dir) = l1 array(2,4,dir) = l2 return end subroutine store4 ! -------------------------------------------------------------------------- subroutine se_up_low5 (dispstr, sind, rind, shift, num_shift, s1, s2, s3) use se_domain_info_ext use se_comm_info_ext ! use se_ori_ext use se_internal_util_module use se_pe_info_ext implicit none integer, intent(inout) :: sind(2,5,8), rind(2,5,8) character (len = 12), intent(in) :: dispstr integer, intent(in) :: shift(10), num_shift, s1, s2, s3 integer :: ndis, edis, sdis, wdis, loc_shift(5), i integer :: ldecomp(4) integer :: n_adj, e_adj, s_adj, w_adj if (num_shift .gt. 0) then if (shift(1) .eq. 1) then loc_shift(1) = 1 - shift(4) loc_shift(2) = 1 - shift(2) else loc_shift(1) = 1 - shift(2) loc_shift(2) = 1 - shift(4) end if loc_shift(3) = 1 - shift(6) loc_shift(4) = 1 - shift(8) loc_shift(5) = 1 - shift(10) else loc_shift(1:5) = 0 end if read (se_decompstr, 15) (ldecomp(i), i=1, 4) 15 format (8i2) read (dispstr, 20) sdis, edis, ndis, wdis 20 format (4i3) call se_corner_adjust (ndis, edis, sdis, wdis, 1, & n_adj, e_adj, s_adj, w_adj) ! -- ( sending ) determine ghost cells indexes configuration which ! -- depends on spatial decomposition type 1, 2, 3, 4, 5, and 6, respectively if ((ldecomp(1) + ldecomp(3) .eq. 1) .and. & (ldecomp(1) .eq. 1) .and. (ldecomp(4) .eq. 0)) then call store5 (sind, 1, 1+loc_shift(1), sdis+loc_shift(1), & 1+loc_shift(2)-w_adj, se_my_ncols+loc_shift(2)+e_adj, & 1+loc_shift(3), s1+loc_shift(3), & 1+loc_shift(4), s2+loc_shift(4), & 1+loc_shift(5), s3+loc_shift(5)) call store5 (sind, 2, 1+loc_shift(1), sdis+loc_shift(1), & se_my_ncols-wdis+1+loc_shift(2), & se_my_ncols+loc_shift(2), 1+loc_shift(3), & s1+loc_shift(3), 1+loc_shift(4), & s2+loc_shift(4), 1+loc_shift(5), & s3+loc_shift(5)) call store5 (sind, 3, 1+loc_shift(1)-n_adj, & se_my_nrows+loc_shift(1)+s_adj, & se_my_ncols-wdis+1+loc_shift(2), & se_my_ncols+loc_shift(2), 1+loc_shift(3), & s1+loc_shift(3), 1+loc_shift(4), & s2+loc_shift(4), 1+loc_shift(5), & s3+loc_shift(5)) call store5 (sind, 4, se_my_nrows-ndis+1+loc_shift(1), & se_my_nrows+loc_shift(1), & se_my_ncols-wdis+1+loc_shift(2), & se_my_ncols+loc_shift(2), 1+loc_shift(3), & s1+loc_shift(3), 1+loc_shift(4), & s2+loc_shift(4), 1+loc_shift(5), & s3+loc_shift(5)) call store5 (sind, 5, se_my_nrows-ndis+1+loc_shift(1), & se_my_nrows+loc_shift(1), 1+loc_shift(2)-w_adj, & se_my_ncols+loc_shift(2)+e_adj, 1+loc_shift(3), & s1+loc_shift(3), 1+loc_shift(4), & s2+loc_shift(4), 1+loc_shift(5), & s3+loc_shift(5)) call store5 (sind, 6, se_my_nrows-ndis+1+loc_shift(1), & se_my_nrows+loc_shift(1), 1+loc_shift(2), & edis+loc_shift(2), 1+loc_shift(3), & s1+loc_shift(3), 1+loc_shift(4), & s2+loc_shift(4), 1+loc_shift(5), & s3+loc_shift(5)) call store5 (sind, 7, 1+loc_shift(1)-n_adj, & se_my_nrows+loc_shift(1)+s_adj, & 1+loc_shift(2), edis+loc_shift(2), 1+loc_shift(3), & s1+loc_shift(3), 1+loc_shift(4), & s2+loc_shift(4), 1+loc_shift(5), & s3+loc_shift(5)) call store5 (sind, 8, 1+loc_shift(1), sdis+loc_shift(1), & 1+loc_shift(2), edis+loc_shift(2), 1+loc_shift(3), & s1+loc_shift(3), 1+loc_shift(4), & s2+loc_shift(4), 1+loc_shift(5), & s3+loc_shift(5)) else print *, ' ==d== comm5 unknown pattern ' stop end if call se_corner_adjust (ndis, edis, sdis, wdis, 2, & n_adj, e_adj, s_adj, w_adj) ! -- ( receiving ) determine ghost cells indexes configuration which ! -- depends on spatial decomposition, type 1, 2, and 3, respectively if ((ldecomp(1) + ldecomp(3) .eq. 1) .and. & (ldecomp(1) .eq. 1) .and. (ldecomp(4) .eq. 0)) then call store5 (rind, 1, 1-ndis+loc_shift(1), loc_shift(1), & 1+loc_shift(2)-w_adj, se_my_ncols+loc_shift(2)+e_adj, & 1+loc_shift(3), s1+loc_shift(3), & 1+loc_shift(4), s2+loc_shift(4), & 1+loc_shift(5), s3+loc_shift(5)) call store5 (rind, 2, 1-ndis+loc_shift(1), loc_shift(1), & se_my_ncols+1+loc_shift(2), & se_my_ncols+edis+loc_shift(2), 1+loc_shift(3), & s1+loc_shift(3), 1+loc_shift(4), & s2+loc_shift(4), 1+loc_shift(5), & s3+loc_shift(5)) call store5 (rind, 3, 1+loc_shift(1)-n_adj, & se_my_nrows+loc_shift(1)+s_adj, & se_my_ncols+1+loc_shift(2), & se_my_ncols+edis+loc_shift(2), 1+loc_shift(3), & s1+loc_shift(3), 1+loc_shift(4), & s2+loc_shift(4), 1+loc_shift(5), & s3+loc_shift(5)) call store5 (rind, 4, se_my_nrows+1+loc_shift(1), & se_my_nrows+sdis+loc_shift(1), & se_my_ncols+1+loc_shift(2), & se_my_ncols+edis+loc_shift(2), 1+loc_shift(3), & s1+loc_shift(3), 1+loc_shift(4), & s2+loc_shift(4), 1+loc_shift(5), & s3+loc_shift(5)) call store5 (rind, 5, se_my_nrows+1+loc_shift(1), & se_my_nrows+sdis+loc_shift(1), 1+loc_shift(2)-w_adj, & se_my_ncols+loc_shift(2)+e_adj, 1+loc_shift(3), & s1+loc_shift(3), 1+loc_shift(4), & s2+loc_shift(4), 1+loc_shift(5), & s3+loc_shift(5)) call store5 (rind, 6, se_my_nrows+1+loc_shift(1), & se_my_nrows+sdis+loc_shift(1), 1-wdis+loc_shift(2), & loc_shift(2), 1+loc_shift(3), s1+loc_shift(3), & 1+loc_shift(4), s2+loc_shift(4), & 1+loc_shift(5), s3+loc_shift(5)) call store5 (rind, 7, 1+loc_shift(1)-n_adj, & se_my_nrows+loc_shift(1)+s_adj, & 1-wdis+loc_shift(2), loc_shift(2), 1+loc_shift(3), & s1+loc_shift(3), 1+loc_shift(4), & s2+loc_shift(4), 1+loc_shift(5), & s3+loc_shift(5)) call store5 (rind, 8, 1-ndis+loc_shift(1), loc_shift(1), & 1-wdis+loc_shift(2), loc_shift(2), 1+loc_shift(3), & s1+loc_shift(3), 1+loc_shift(4), & s2+loc_shift(4), 1+loc_shift(5), & s3+loc_shift(5)) else print *, ' ==d== comm5 unknown pattern ' stop end if do i = 1, 8 call swap (sind(1,1,i), sind(1,2,i)) call swap (sind(2,1,i), sind(2,2,i)) call swap (rind(1,1,i), rind(1,2,i)) call swap (rind(2,1,i), rind(2,2,i)) end do end subroutine se_up_low5 ! -------------------------------------------------------------------------- subroutine store5 (array, dir, i1, i2, j1, j2, k1, k2, l1, l2, m1, m2) integer, intent(out) :: array (2,5,8) integer, intent(in) :: dir, i1, i2, j1, j2, k1, k2, l1, l2, m1, m2 array(1,1,dir) = i1 array(2,1,dir) = i2 array(1,2,dir) = j1 array(2,2,dir) = j2 array(1,3,dir) = k1 array(2,3,dir) = k2 array(1,4,dir) = l1 array(2,4,dir) = l2 array(1,5,dir) = m1 array(2,5,dir) = m2 end subroutine store5 end module se_comm_module ================================================ FILE: CCTM/src/STENEX/se/se_data_copy_module.f ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/work/rep/STENEX/src/se_snl/se_data_copy_module.f,v 1.2 2006/02/15 14:41:56 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% C -------------------------------------------------------------------------- C Purpose: C C use F90 interface feature to achieve "faked" polymorphism for data C copy routine which performs interior sub-grid data communication (data C re-distribution) C C Revision history: C C Orginal version: 11/05/99 by David Wong C C 10/09/00 by David Wong C -- unified fsg and csg data structures into one, C subgrid C C 07/23/01 by David Wong C -- redesign the message sending and receiving algorithm C C 03/06/02 David Wong C -- use blocking communication scheme C -- use array copy mechanism when communicates to itself C C 12/04/02 by David Wong C -- modified the routine to accommodate worker and C I/O processors partition scheme C C 01/04/23 by David Wong C -- modified routines to handle any level range setting C defined by PA_BLEV PA_ELEV in the run script properly C C 01/17/24 by David Wong C -- fixed a bug that IRR/IPR process alllows a subset of C level, a..b, where 1 <= a <= b <= NLAYS C C Note: C C se_[n]d[e]_data_copy where [n] denotes the dimensionality of the data C and [e] is optional, indicates the first two dimensions are both decomposed C or not C C Subroutine parameter description: C C In: data1 -- original data C spc -- (use as needed) a specific species in the original data C des -- (use as needed) species number in the recipient data C grid_type -- optional input, to indicate the data is from coarse C grid 'c', 'C' or not C C Out: data2 -- recipient of original data C C Local variable description: C C sdir, rdir -- loop indexes which indicate send to or recvd from C tag -- message tag C i -- local loop index C C Include file: C C se_pe_info_ext C se_data_send_module C se_data_recv_module C C -------------------------------------------------------------------------- module se_data_copy_module implicit none interface se_data_copy module procedure se_2d_data_copy, se_2de_data_copy, & se_3d_data_copy, se_3de_data_copy, & se_4d_data_copy, se_4de_data_copy end interface contains C -------------------------------------------------------------------------- subroutine se_2d_data_copy (data1, data2) use se_subgrid_info_ext use se_pe_info_ext use se_data_send_module use se_data_recv_module implicit none include "mpif.h" real, intent(in) :: data1(:, :) real, intent(out) :: data2(:, :) integer :: sdir, rdir, tag integer :: request, status(MPI_STATUS_SIZE), error do sdir = 0, se_numworkers-1 if (se_subgrid_send(sdir) .eq. se_myworker_pe) then data2(se_subgrid_recv_ind(1,1,sdir):se_subgrid_recv_ind(2,1,sdir), $ se_subgrid_recv_ind(1,2,sdir):se_subgrid_recv_ind(2,2,sdir)) $ = $ data1(se_subgrid_send_ind(1,1,sdir):se_subgrid_send_ind(2,1,sdir), $ se_subgrid_send_ind(1,2,sdir):se_subgrid_send_ind(2,2,sdir)) else if (se_subgrid_send(sdir) .ge. 0) then tag = sdir+se_myworker_pe call se_data_send (data1, se_subgrid_send_ind_ptr, & se_subgrid_send_ptr, sdir, tag, request) end if if ((se_subgrid_recv(sdir) .ge. 0) .and. & (se_subgrid_recv(sdir) .ne. se_myworker_pe)) then tag = sdir+se_myworker_pe call se_data_recv (data2, se_subgrid_recv_ind_ptr, & se_subgrid_recv_ptr, sdir, tag) end if c if (se_subgrid_send(sdir) .ge. 0) then c call mpi_wait (request, status, error) c end if end if end do return end subroutine se_2d_data_copy C -------------------------------------------------------------------------- subroutine se_2de_data_copy (data1, data2, spc) use se_subgrid_info_ext use se_pe_info_ext use se_data_send_module use se_data_recv_module implicit none include "mpif.h" real, intent(in) :: data1(:, :, :) real, intent(out) :: data2(:, :) integer, intent(in) :: spc integer :: i, sdir, rdir, tag integer :: request, status(MPI_STATUS_SIZE), error do i = 0, se_numworkers-1 se_subgrid_send_ind(1,3,i) = spc se_subgrid_send_ind(2,3,i) = spc end do do sdir = 0, se_numworkers-1 if (se_subgrid_send(sdir) .eq. se_myworker_pe) then data2(se_subgrid_recv_ind(1,1,sdir):se_subgrid_recv_ind(2,1,sdir), $ se_subgrid_recv_ind(1,2,sdir):se_subgrid_recv_ind(2,2,sdir)) $ = $ data1(se_subgrid_send_ind(1,1,sdir):se_subgrid_send_ind(2,1,sdir), $ se_subgrid_send_ind(1,2,sdir):se_subgrid_send_ind(2,2,sdir), $ se_subgrid_send_ind(1,3,sdir)) else if (se_subgrid_send(sdir) .ge. 0) then tag = sdir+se_myworker_pe call se_data_send (data1, se_subgrid_send_ind_ptr, & se_subgrid_send_ptr, sdir, tag, request) end if if ((se_subgrid_recv(sdir) .ge. 0) .and. & (se_subgrid_recv(sdir) .ne. se_myworker_pe)) then tag = sdir+se_myworker_pe call se_data_recv (data2, se_subgrid_recv_ind_ptr, & se_subgrid_recv_ptr, sdir, tag) end if c if (se_subgrid_send(sdir) .ge. 0) then c call mpi_wait (request, status, error) c end if end if end do return end subroutine se_2de_data_copy C -------------------------------------------------------------------------- subroutine se_3d_data_copy (data1, data2) use se_subgrid_info_ext use se_domain_info_ext use se_pe_info_ext use se_data_send_module use se_data_recv_module implicit none include "mpif.h" real, intent(in) :: data1(:, :, :) real, intent(out) :: data2(:, :, :) integer :: i, sdir, rdir, tag integer :: request, status(MPI_STATUS_SIZE), error do i = 0, se_numworkers-1 se_subgrid_send_ind(1,3,i) = se_my_subgrid_beglev se_subgrid_send_ind(2,3,i) = se_my_subgrid_endlev se_subgrid_recv_ind(1,3,i) = 1 se_subgrid_recv_ind(2,3,i) = se_my_subgrid_endlev - se_my_subgrid_beglev + 1 end do do sdir = 0, se_numworkers-1 if (se_subgrid_send(sdir) .eq. se_myworker_pe) then data2(se_subgrid_recv_ind(1,1,sdir):se_subgrid_recv_ind(2,1,sdir), & se_subgrid_recv_ind(1,2,sdir):se_subgrid_recv_ind(2,2,sdir), & se_subgrid_recv_ind(1,3,sdir):se_subgrid_recv_ind(2,3,sdir)) & = & data1(se_subgrid_send_ind(1,1,sdir):se_subgrid_send_ind(2,1,sdir), & se_subgrid_send_ind(1,2,sdir):se_subgrid_send_ind(2,2,sdir), & se_subgrid_send_ind(1,3,sdir):se_subgrid_send_ind(2,3,sdir)) else if (se_subgrid_send(sdir) .ge. 0) then tag = sdir+se_myworker_pe call se_data_send (data1, se_subgrid_send_ind_ptr, & se_subgrid_send_ptr, sdir, tag, request) end if if ((se_subgrid_recv(sdir) .ge. 0) .and. & (se_subgrid_recv(sdir) .ne. se_myworker_pe)) then tag = sdir+se_myworker_pe call se_data_recv (data2, se_subgrid_recv_ind_ptr, & se_subgrid_recv_ptr, sdir, tag) end if c if (se_subgrid_send(sdir) .ge. 0) then c call mpi_wait (request, status, error) c end if end if end do return end subroutine se_3d_data_copy C -------------------------------------------------------------------------- subroutine se_3de_data_copy (data1, data2, spc, flag) use se_subgrid_info_ext use se_pe_info_ext use se_data_send_module use se_data_recv_module implicit none include "mpif.h" real, intent(in) :: data1(:, :, :, :) real, intent(out) :: data2(:, :, :) integer, intent(in) :: spc integer, intent(in), optional :: flag integer :: i, sdir, rdir, tag, loc_beglev, loc_endlev integer :: request, status(MPI_STATUS_SIZE), error if (present(flag)) then ! this indicates data1 is in subset level configuration and ! indiex starting from 1 loc_beglev = 1 loc_endlev = se_my_subgrid_endlev - se_my_subgrid_beglev + 1 else loc_beglev = se_my_subgrid_beglev loc_endlev = se_my_subgrid_endlev end if do i = 0, se_numworkers-1 se_subgrid_send_ind(1,3,i) = loc_beglev se_subgrid_send_ind(2,3,i) = loc_endlev se_subgrid_send_ind(1,4,i) = spc se_subgrid_send_ind(2,4,i) = spc se_subgrid_recv_ind(1,3,i) = 1 se_subgrid_recv_ind(2,3,i) = se_my_subgrid_endlev - se_my_subgrid_beglev + 1 end do do sdir = 0, se_numworkers-1 if (se_subgrid_send(sdir) .eq. se_myworker_pe) then data2(se_subgrid_recv_ind(1,1,sdir):se_subgrid_recv_ind(2,1,sdir), & se_subgrid_recv_ind(1,2,sdir):se_subgrid_recv_ind(2,2,sdir), & se_subgrid_recv_ind(1,3,sdir):se_subgrid_recv_ind(2,3,sdir)) & = & data1(se_subgrid_send_ind(1,1,sdir):se_subgrid_send_ind(2,1,sdir), & se_subgrid_send_ind(1,2,sdir):se_subgrid_send_ind(2,2,sdir), & se_subgrid_send_ind(1,3,sdir):se_subgrid_send_ind(2,3,sdir), & se_subgrid_send_ind(1,4,sdir)) else if (se_subgrid_send(sdir) .ge. 0) then tag = sdir+se_myworker_pe call se_data_send (data1, se_subgrid_send_ind_ptr, & se_subgrid_send_ptr, sdir, tag, request) end if if ((se_subgrid_recv(sdir) .ge. 0) .and. & (se_subgrid_recv(sdir) .ne. se_myworker_pe)) then tag = sdir+se_myworker_pe call se_data_recv (data2, se_subgrid_recv_ind_ptr, & se_subgrid_recv_ptr, sdir, tag) end if c if (se_subgrid_send(sdir) .ge. 0) then c call mpi_wait (request, status, error) c end if end if end do return end subroutine se_3de_data_copy C -------------------------------------------------------------------------- subroutine se_4d_data_copy (data1, data2) use se_subgrid_info_ext use se_pe_info_ext use se_domain_info_ext use se_data_send_module use se_data_recv_module implicit none include "mpif.h" real, intent(in) :: data1(:, :, :, :) real, intent(out) :: data2(:, :, :, :) integer :: i, sdir, rdir, tag integer :: request, status(MPI_STATUS_SIZE), error do i = 0, se_numworkers-1 se_subgrid_send_ind(1,3,i) = 1 se_subgrid_send_ind(2,3,i) = se_my_nlays se_subgrid_send_ind(1,4,i) = 1 se_subgrid_send_ind(2,4,i) = se_my_nspcs se_subgrid_recv_ind(1,3,i) = 1 se_subgrid_recv_ind(2,3,i) = se_my_nlays se_subgrid_recv_ind(1,4,i) = 1 se_subgrid_recv_ind(2,4,i) = se_my_nspcs end do do sdir = 0, se_numworkers-1 if (se_subgrid_send(sdir) .eq. se_myworker_pe) then data2(se_subgrid_recv_ind(1,1,sdir):se_subgrid_recv_ind(2,1,sdir), & se_subgrid_recv_ind(1,2,sdir):se_subgrid_recv_ind(2,2,sdir), & se_subgrid_recv_ind(1,3,sdir):se_subgrid_recv_ind(2,3,sdir), & se_subgrid_recv_ind(1,4,sdir):se_subgrid_recv_ind(2,4,sdir)) & = & data1(se_subgrid_send_ind(1,1,sdir):se_subgrid_send_ind(2,1,sdir), & se_subgrid_send_ind(1,2,sdir):se_subgrid_send_ind(2,2,sdir), & se_subgrid_send_ind(1,3,sdir):se_subgrid_send_ind(2,3,sdir), & se_subgrid_send_ind(1,4,sdir):se_subgrid_send_ind(2,4,sdir)) else if (se_subgrid_send(sdir) .ge. 0) then tag = sdir+se_myworker_pe call se_data_send (data1, se_subgrid_send_ind_ptr, & se_subgrid_send_ptr, sdir, tag, request) end if if ((se_subgrid_recv(sdir) .ge. 0) .and. & (se_subgrid_recv(sdir) .ne. se_myworker_pe)) then tag = sdir+se_myworker_pe call se_data_recv (data2, se_subgrid_recv_ind_ptr, & se_subgrid_recv_ptr, sdir, tag) end if c if (se_subgrid_send .ge. 0) then c call mpi_wait (request, status, error) c end if end if end do return end subroutine se_4d_data_copy C -------------------------------------------------------------------------- subroutine se_4de_data_copy (data1, data2, spc, des) use se_subgrid_info_ext use se_pe_info_ext use se_data_send_module use se_data_recv_module implicit none include "mpif.h" real, intent(in) :: data1(:, :, :, :) real, intent(out) :: data2(:, :, :, :) integer, intent(in) :: spc, des integer :: i, sdir, rdir, tag integer :: request, status(MPI_STATUS_SIZE), error do i = 0, se_numworkers-1 se_subgrid_send_ind(1,3,i) = se_my_subgrid_beglev se_subgrid_send_ind(2,3,i) = se_my_subgrid_endlev se_subgrid_send_ind(1,4,i) = spc se_subgrid_send_ind(2,4,i) = spc se_subgrid_recv_ind(1,3,i) = 1 se_subgrid_recv_ind(2,3,i) = se_my_subgrid_endlev - se_my_subgrid_beglev + 1 se_subgrid_recv_ind(1,4,i) = des se_subgrid_recv_ind(2,4,i) = des end do do sdir = 0, se_numworkers-1 if (se_subgrid_send(sdir) .eq. se_myworker_pe) then data2(se_subgrid_recv_ind(1,1,sdir):se_subgrid_recv_ind(2,1,sdir), & se_subgrid_recv_ind(1,2,sdir):se_subgrid_recv_ind(2,2,sdir), & se_subgrid_recv_ind(1,3,sdir):se_subgrid_recv_ind(2,3,sdir), & se_subgrid_recv_ind(1,4,sdir)) & = & data1(se_subgrid_send_ind(1,1,sdir):se_subgrid_send_ind(2,1,sdir), & se_subgrid_send_ind(1,2,sdir):se_subgrid_send_ind(2,2,sdir), & se_subgrid_send_ind(1,3,sdir):se_subgrid_send_ind(2,3,sdir), & se_subgrid_send_ind(1,4,sdir)) else if (se_subgrid_send(sdir) .ge. 0) then tag = sdir+se_myworker_pe call se_data_send (data1, se_subgrid_send_ind_ptr, & se_subgrid_send_ptr, sdir, tag, request) end if if ((se_subgrid_recv(sdir) .ge. 0) .and. & (se_subgrid_recv(sdir) .ne. se_myworker_pe)) then tag = sdir+se_myworker_pe call se_data_recv (data2, se_subgrid_recv_ind_ptr, & se_subgrid_recv_ptr, sdir, tag) end if c if (se_subgrid_send(sdir) .ge. 0) then c call mpi_wait (request, status, error) c end if end if end do return end subroutine se_4de_data_copy end module se_data_copy_module ================================================ FILE: CCTM/src/STENEX/se/se_data_recv_module.f ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! ! RCS file, release, date & time of last delta, author, state, [and locker] ! $Header: /project/work/rep/STENEX/src/se_snl/se_data_recv_module.f,v 1.2 2006/02/15 14:41:56 yoj Exp $ ! what(1) key, module and SID; SCCS file; date and time of last delta: ! %W% %P% %G% %U% ! -------------------------------------------------------------------------- ! Purpose: ! ! use F90 interface feature to achieve "faked" polymorphism for data ! receiving routine ! ! Revision history: ! ! Orginal version: 11/05/99 by David Wong ! ! 12/04/02 by David Wong ! -- modified the routine to accommodate worker and ! I/O processors partition scheme ! 10/01/12 by David Wong ! -- reduced memory usage ! -- extended to five dimensional array ! ! Note: ! ! se_[n]d[e]_data_recv where [n] denotes the dimensionality of the data ! and [e] is optional, indicates the first two dimensions are not both ! decomposed ! ! Subroutine parameter description: ! ! In: rind -- stores low and high index of each dimension for ! receiving process ! recv_from -- stores processor number which data is received from ! dir_ind -- one of those eight major communication directions ! tag -- message tag ! ! InOut: data -- variable that receives data from other processors ! -------------------------------------------------------------------------- module se_data_recv_module use se_pe_info_ext implicit none interface se_data_recv module procedure se_1d_data_recv, & se_2d_data_recv, se_2de_data_recv, & se_3d_data_recv, se_3de_data_recv, & se_4d_data_recv, se_4de_data_recv, & se_5d_data_recv end interface contains ! ----------------------------------------------------------------------------- subroutine se_1d_data_recv (data, rind, recv_from, dir_ind, tag) implicit none include "mpif.h" real, intent(inout) :: data(:) integer, pointer :: rind(:, :), recv_from(:) integer, intent(in) :: dir_ind, tag integer :: i, rcount, error integer :: status(MPI_STATUS_SIZE) ! real :: rarray(size(data)) real, allocatable :: rarray(:) ! -- receive data from corresponding processor rcount = rind(2,dir_ind) - rind(1,dir_ind) + 1 allocate (rarray(rcount), stat=error) call mpi_recv (rarray, rcount, mpi_real, recv_from(dir_ind), & tag, se_worker_comm, status, error) ! -- unpack received data rcount = 0 do i = rind(1,dir_ind), rind(2,dir_ind) rcount = rcount + 1 data(i) = rarray(rcount) end do deallocate (rarray) end subroutine se_1d_data_recv ! ----------------------------------------------------------------------------- subroutine se_2d_data_recv (data, rind, recv_from, dir_ind, tag) implicit none include "mpif.h" real, intent(inout) :: data(:,:) integer, pointer :: rind(:, :, :), recv_from(:) integer, intent(in) :: dir_ind, tag integer :: i, j, rcount, error integer :: status(MPI_STATUS_SIZE) ! real :: rarray(size(data)) real, allocatable :: rarray(:) rcount = (rind(2,1,dir_ind) - rind(1,1,dir_ind) + 1) * & (rind(2,2,dir_ind) - rind(1,2,dir_ind) + 1) allocate (rarray(rcount), stat=error) call mpi_recv (rarray, rcount, mpi_real, recv_from(dir_ind), & tag, se_worker_comm, status, error) ! -- unpack received data rcount = 0 do j = rind(1,2,dir_ind), rind(2,2,dir_ind) do i = rind(1,1,dir_ind), rind(2,1,dir_ind) rcount = rcount + 1 data(i,j) = rarray(rcount) end do end do deallocate (rarray) end subroutine se_2d_data_recv ! ----------------------------------------------------------------------------- subroutine se_2de_data_recv (data, rind, recv_from, dir_ind, tag) implicit none include "mpif.h" real, intent(inout) :: data(:,:) integer, pointer :: rind(:, :), recv_from(:) integer, intent(in) :: dir_ind, tag integer :: i, j, rcount, error integer :: status(MPI_STATUS_SIZE) ! real :: rarray(size(data)) real, allocatable :: rarray(:) rcount = (rind(2,dir_ind) - rind(1,dir_ind) + 1) * & (ubound(data,2) - lbound(data,2) + 1) allocate (rarray(rcount), stat=error) call mpi_recv (rarray, rcount, mpi_real, recv_from(dir_ind), & tag, se_worker_comm, status, error) ! -- unpack received data rcount = 0 do j = lbound(data,2), ubound(data,2) do i = rind(1,dir_ind), rind(2,dir_ind) rcount = rcount + 1 data(i,j) = rarray(rcount) end do end do deallocate (rarray) end subroutine se_2de_data_recv ! ----------------------------------------------------------------------------- subroutine se_3d_data_recv (data, rind, recv_from, dir_ind, tag) implicit none include "mpif.h" real, intent(inout) :: data(:,:,:) integer, pointer :: rind(:, :, :), recv_from(:) integer, intent(in) :: dir_ind, tag integer :: i, j, k, rcount, error integer :: status(MPI_STATUS_SIZE) ! real :: rarray(size(data)) real, allocatable :: rarray(:) rcount = (rind(2,1,dir_ind) - rind(1,1,dir_ind) + 1) * & (rind(2,2,dir_ind) - rind(1,2,dir_ind) + 1) * & (rind(2,3,dir_ind) - rind(1,3,dir_ind) + 1) allocate (rarray(rcount), stat=error) call mpi_recv (rarray, rcount, mpi_real, recv_from(dir_ind), & tag, se_worker_comm, status, error) ! -- unpack received data rcount = 0 do k = rind(1,3,dir_ind), rind(2,3,dir_ind) do j = rind(1,2,dir_ind), rind(2,2,dir_ind) do i = rind(1,1,dir_ind), rind(2,1,dir_ind) rcount = rcount + 1 data(i,j,k) = rarray(rcount) end do end do end do deallocate (rarray) end subroutine se_3d_data_recv ! ----------------------------------------------------------------------------- subroutine se_3de_data_recv (data, rind, recv_from, dir_ind, tag) implicit none include "mpif.h" real, intent(inout) :: data(:,:,:) integer, pointer :: rind(:, :), recv_from(:) integer, intent(in) :: dir_ind, tag integer :: i, j, k, rcount, error integer :: status(MPI_STATUS_SIZE) ! real :: rarray(size(data)) real, allocatable :: rarray(:) rcount = (rind(2,dir_ind) - rind(1,dir_ind) + 1) * & (ubound(data,2) - lbound(data,2) + 1) * & (ubound(data,3) - lbound(data,3) + 1) allocate (rarray(rcount), stat=error) call mpi_recv (rarray, rcount, mpi_real, recv_from(dir_ind), & tag, se_worker_comm, status, error) ! -- unpack received data rcount = 0 do k = lbound(data,3), ubound(data,3) do j = lbound(data,2), ubound(data,2) do i = rind(1,dir_ind), rind(2,dir_ind) rcount = rcount + 1 data(i,j,k) = rarray(rcount) end do end do end do deallocate (rarray) end subroutine se_3de_data_recv ! ----------------------------------------------------------------------------- subroutine se_4d_data_recv (data, rind, recv_from, dir_ind, tag) implicit none include "mpif.h" real, intent(inout) :: data(:,:,:,:) integer, pointer :: rind(:, :, :), recv_from(:) integer, intent(in) :: dir_ind, tag integer :: i, j, k, l, rcount, error integer :: status(MPI_STATUS_SIZE) ! real :: rarray(size(data)) real, allocatable :: rarray(:) rcount = (rind(2,1,dir_ind) - rind(1,1,dir_ind) + 1) * & (rind(2,2,dir_ind) - rind(1,2,dir_ind) + 1) * & (rind(2,3,dir_ind) - rind(1,3,dir_ind) + 1) * & (rind(2,4,dir_ind) - rind(1,4,dir_ind) + 1) allocate (rarray(rcount), stat=error) call mpi_recv (rarray, rcount, mpi_real, recv_from(dir_ind), & tag, se_worker_comm, status, error) ! -- unpack received data rcount = 0 do l = rind(1,4,dir_ind), rind(2,4,dir_ind) do k = rind(1,3,dir_ind), rind(2,3,dir_ind) do j = rind(1,2,dir_ind), rind(2,2,dir_ind) do i = rind(1,1,dir_ind), rind(2,1,dir_ind) rcount = rcount + 1 data(i,j,k,l) = rarray(rcount) end do end do end do end do deallocate (rarray) end subroutine se_4d_data_recv ! ----------------------------------------------------------------------------- subroutine se_4de_data_recv (data, rind, recv_from, dir_ind, tag) implicit none include "mpif.h" real, intent(inout) :: data(:,:,:,:) integer, pointer :: rind(:, :), recv_from(:) integer, intent(in) :: dir_ind, tag integer :: i, j, k, s, rcount, error integer :: status(MPI_STATUS_SIZE) ! real :: rarray(size(data)) real, allocatable :: rarray(:) rcount = (rind(2,dir_ind) - rind(1,dir_ind) + 1) * & (ubound(data,2) - lbound(data,2) + 1) * & (ubound(data,3) - lbound(data,3) + 1) * & (ubound(data,4) - lbound(data,4) + 1) allocate (rarray(rcount), stat=error) call mpi_recv (rarray, rcount, mpi_real, recv_from(dir_ind), & tag, se_worker_comm, status, error) ! -- unpack received data rcount = 0 do s = lbound(data,4), ubound(data,4) do k = lbound(data,3), ubound(data,3) do j = lbound(data,2), ubound(data,2) do i = rind(1,dir_ind), rind(2,dir_ind) rcount = rcount + 1 data(i,j,k,s) = rarray(rcount) end do end do end do end do deallocate (rarray) end subroutine se_4de_data_recv ! ----------------------------------------------------------------------------- subroutine se_5d_data_recv (data, rind, recv_from, dir_ind, tag) implicit none include "mpif.h" real, intent(inout) :: data(:,:,:,:,:) integer, pointer :: rind(:, :, :), recv_from(:) integer, intent(in) :: dir_ind, tag integer :: i, j, k, l, m, rcount, error integer :: status(MPI_STATUS_SIZE) ! real :: rarray(size(data)) real, allocatable :: rarray(:) rcount = (rind(2,1,dir_ind) - rind(1,1,dir_ind) + 1) * & (rind(2,2,dir_ind) - rind(1,2,dir_ind) + 1) * & (rind(2,3,dir_ind) - rind(1,3,dir_ind) + 1) * & (rind(2,4,dir_ind) - rind(1,4,dir_ind) + 1) * & (rind(2,5,dir_ind) - rind(1,5,dir_ind) + 1) allocate (rarray(rcount), stat=error) call mpi_recv (rarray, rcount, mpi_real, recv_from(dir_ind), & tag, se_worker_comm, status, error) ! -- unpack received data rcount = 0 do m = rind(1,5,dir_ind), rind(2,5,dir_ind) do l = rind(1,4,dir_ind), rind(2,4,dir_ind) do k = rind(1,3,dir_ind), rind(2,3,dir_ind) do j = rind(1,2,dir_ind), rind(2,2,dir_ind) do i = rind(1,1,dir_ind), rind(2,1,dir_ind) rcount = rcount + 1 data(i,j,k,l,m) = rarray(rcount) end do end do end do end do end do deallocate (rarray) end subroutine se_5d_data_recv end module se_data_recv_module ================================================ FILE: CCTM/src/STENEX/se/se_data_send_module.f ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! ! RCS file, release, date & time of last delta, author, state, [and locker] ! $Header: /project/work/rep/STENEX/src/se_snl/se_data_send_module.f,v 1.2 2006/02/15 14:41:56 yoj Exp $ ! what(1) key, module and SID; SCCS file; date and time of last delta: ! %W% %P% %G% %U% ! -------------------------------------------------------------------------- ! Purpose: ! ! use F90 interface feature to achieve "faked" polymorphism for data ! sending routine ! ! Revision history: ! ! Orginal version: 11/05/99 by David Wong ! 07/23/01 by David Wong ! -- use mpi_isend rather than mpi_send to send messages ! 03/06/02 David Wong ! -- use blocking communication scheme due to non-blocking ! timing problems on IBM SP ! 12/04/02 by David Wong ! -- modified the routine to accommodate worker and ! I/O processors partition scheme ! 10/01/12 by David Wong ! -- reduced memory usage ! -- extended to five dimensional array ! -- used block sending mechanism ! ! Note: ! ! se_[n]d[e]_data_send where [n] denotes the dimensionality of the data ! and [e] is optional, indicates the first two dimensions are not both ! decomposed ! ! Subroutine parameter description: ! ! In: sind -- stores low and high index of each dimension for ! sending process ! send_to -- stores processor number which data is sent to ! dir_ind -- one of those eight major communication directions ! tag -- message tag ! data -- variable that sends data to other processors ! -------------------------------------------------------------------------- module se_data_send_module use se_pe_info_ext implicit none interface se_data_send module procedure se_1d_data_send, & se_2d_data_send, se_2de_data_send, & se_3d_data_send, se_3de_data_send, & se_4d_data_send, se_4de_data_send, & se_5d_data_send end interface contains ! -------------------------------------------------------------------------- subroutine se_1d_data_send (data, sind, send_to, dir_ind, tag, request) implicit none include "mpif.h" real, intent(in) :: data(:) integer, pointer :: sind(:, :), send_to(:) integer, intent(in) :: dir_ind, tag integer, intent(out) :: request integer :: i, scount, error ! real :: sarray(size(data)) real, allocatable :: sarray(:) allocate (sarray(sind(2,dir_ind) - sind(1,dir_ind) + 1), stat=error) ! -- pack data for sending scount = 0 do i = sind(1,dir_ind), sind(2,dir_ind) scount = scount + 1 sarray(scount) = data(i) end do ! call mpi_isend (sarray, scount, mpi_real, send_to(dir_ind), ! & tag, se_worker_comm, request, error) call mpi_send (sarray, scount, mpi_real, send_to(dir_ind), & tag, se_worker_comm, error) deallocate (sarray) end subroutine se_1d_data_send ! ----------------------------------------------------------------------------- subroutine se_2d_data_send (data, sind, send_to, dir_ind, tag, request) implicit none include "mpif.h" real, intent(in) :: data(:,:) integer, pointer :: sind(:, :, :), send_to(:) integer, intent(in) :: dir_ind, tag integer, intent(out) :: request integer :: i, j, scount, error ! real :: sarray(size(data)) real, allocatable :: sarray(:) allocate (sarray( (sind(2,1,dir_ind) - sind(1,1,dir_ind) + 1) * $ (sind(2,2,dir_ind) - sind(1,2,dir_ind) + 1)), stat=error) scount = 0 ! -- pack data for sending do j = sind(1,2,dir_ind), sind(2,2,dir_ind) do i = sind(1,1,dir_ind), sind(2,1,dir_ind) scount = scount + 1 sarray(scount) = data(i,j) end do end do ! call mpi_isend (sarray, scount, mpi_real, send_to(dir_ind), ! & tag, se_worker_comm, request, error) call mpi_send (sarray, scount, mpi_real, send_to(dir_ind), & tag, se_worker_comm, error) deallocate (sarray) end subroutine se_2d_data_send ! ----------------------------------------------------------------------------- subroutine se_2de_data_send (data, sind, send_to, dir_ind, tag, request) implicit none include "mpif.h" real, intent(in) :: data(:,:) integer, pointer :: sind(:, :), send_to(:) integer, intent(in) :: dir_ind, tag integer, intent(out) :: request integer :: i, j, scount, error ! real :: sarray(size(data)) real, allocatable :: sarray(:) allocate (sarray( (sind(2,dir_ind) - sind(1,dir_ind) + 1) * $ size(data, 2)), stat=error) scount = 0 ! -- pack data for sending do j = lbound(data,2), ubound(data,2) do i = sind(1,dir_ind), sind(2,dir_ind) scount = scount + 1 sarray(scount) = data(i,j) end do end do ! call mpi_isend (sarray, scount, mpi_real, send_to(dir_ind), ! & tag, se_worker_comm, request, error) call mpi_send (sarray, scount, mpi_real, send_to(dir_ind), & tag, se_worker_comm, error) deallocate (sarray) end subroutine se_2de_data_send ! ----------------------------------------------------------------------------- subroutine se_3d_data_send (data, sind, send_to, dir_ind, tag, request) implicit none include "mpif.h" real, intent(in) :: data(:,:,:) integer, pointer :: sind(:, :, :), send_to(:) integer, intent(in) :: dir_ind, tag integer, intent(out) :: request integer :: i, j, k, scount, error ! real :: sarray(size(data)) real, allocatable :: sarray(:) allocate (sarray( (sind(2,1,dir_ind) - sind(1,1,dir_ind) + 1) * $ (sind(2,2,dir_ind) - sind(1,2,dir_ind) + 1) * $ (sind(2,3,dir_ind) - sind(1,3,dir_ind) + 1)), stat=error) scount = 0 ! -- pack data for sending do k = sind(1,3,dir_ind), sind(2,3,dir_ind) do j = sind(1,2,dir_ind), sind(2,2,dir_ind) do i = sind(1,1,dir_ind), sind(2,1,dir_ind) scount = scount + 1 sarray(scount) = data(i,j,k) end do end do end do ! call mpi_isend (sarray, scount, mpi_real, send_to(dir_ind), ! & tag, se_worker_comm, request, error) call mpi_send (sarray, scount, mpi_real, send_to(dir_ind), & tag, se_worker_comm, error) deallocate (sarray) end subroutine se_3d_data_send ! ----------------------------------------------------------------------------- subroutine se_3de_data_send (data, sind, send_to, dir_ind, tag, request) implicit none include "mpif.h" real, intent(in) :: data(:,:,:) integer, pointer :: sind(:, :), send_to(:) integer, intent(in) :: dir_ind, tag integer, intent(out) :: request integer :: i, j, k, scount, error ! real :: sarray(size(data)) real, allocatable :: sarray(:) allocate (sarray( (sind(2,dir_ind) - sind(1,dir_ind) + 1) * $ size(data,2) * size(data,3)), stat=error) scount = 0 ! -- pack data for sending do k = lbound(data,3), ubound(data,3) do j = lbound(data,2), ubound(data,2) do i = sind(1,dir_ind), sind(2,dir_ind) scount = scount + 1 sarray(scount) = data(i,j,k) end do end do end do ! call mpi_isend (sarray, scount, mpi_real, send_to(dir_ind), ! & tag, se_worker_comm, request, error) call mpi_send (sarray, scount, mpi_real, send_to(dir_ind), & tag, se_worker_comm, error) deallocate (sarray) end subroutine se_3de_data_send ! ----------------------------------------------------------------------------- subroutine se_4d_data_send (data, sind, send_to, dir_ind, tag, request) implicit none include "mpif.h" real, intent(in) :: data(:,:,:,:) integer, pointer :: sind(:, :, :), send_to(:) integer, intent(in) :: dir_ind, tag integer, intent(out) :: request integer :: i, j, k, l, scount, error ! real :: sarray(size(data)) real, allocatable :: sarray(:) scount = 0 allocate (sarray( (sind(2,1,dir_ind) - sind(1,1,dir_ind) + 1) * $ (sind(2,2,dir_ind) - sind(1,2,dir_ind) + 1) * $ (sind(2,3,dir_ind) - sind(1,3,dir_ind) + 1) * $ (sind(2,4,dir_ind) - sind(1,4,dir_ind) + 1)), stat=error) ! -- pack data for sending do l = sind(1,4,dir_ind), sind(2,4,dir_ind) do k = sind(1,3,dir_ind), sind(2,3,dir_ind) do j = sind(1,2,dir_ind), sind(2,2,dir_ind) do i = sind(1,1,dir_ind), sind(2,1,dir_ind) scount = scount + 1 sarray(scount) = data(i,j,k,l) end do end do end do end do ! call mpi_isend (sarray, scount, mpi_real, send_to(dir_ind), ! & tag, se_worker_comm, request, error) call mpi_send (sarray, scount, mpi_real, send_to(dir_ind), & tag, se_worker_comm, error) deallocate (sarray) end subroutine se_4d_data_send ! ----------------------------------------------------------------------------- subroutine se_4de_data_send (data, sind, send_to, dir_ind, tag, request) implicit none include "mpif.h" real, intent(in) :: data(:,:,:,:) integer, pointer :: sind(:, :), send_to(:) integer, intent(in) :: dir_ind, tag integer, intent(out) :: request integer :: i, j, k, s, scount, error ! real :: sarray(size(data)) real, allocatable :: sarray(:) allocate (sarray( (sind(2,dir_ind) - sind(1,dir_ind) + 1) * $ size(data,2) * size(data,3) * size(data,4)), stat=error) scount = 0 ! -- pack data for sending do s = lbound(data,4), ubound(data,4) do k = lbound(data,3), ubound(data,3) do j = lbound(data,2), ubound(data,2) do i = sind(1,dir_ind), sind(2,dir_ind) scount = scount + 1 sarray(scount) = data(i,j,k,s) end do end do end do end do ! call mpi_isend (sarray, scount, mpi_real, send_to(dir_ind), ! & tag, se_worker_comm, request, error) call mpi_send (sarray, scount, mpi_real, send_to(dir_ind), & tag, se_worker_comm, error) deallocate (sarray) end subroutine se_4de_data_send ! ----------------------------------------------------------------------------- subroutine se_5d_data_send (data, sind, send_to, dir_ind, tag, request) implicit none include "mpif.h" real, intent(in) :: data(:,:,:,:,:) integer, pointer :: sind(:, :, :), send_to(:) integer, intent(in) :: dir_ind, tag integer, intent(out) :: request integer :: i, j, k, l, m, scount, error ! real :: sarray(size(data)) real, allocatable :: sarray(:) allocate (sarray( (sind(2,1,dir_ind) - sind(1,1,dir_ind) + 1) * $ (sind(2,2,dir_ind) - sind(1,2,dir_ind) + 1) * $ (sind(2,3,dir_ind) - sind(1,3,dir_ind) + 1) * $ (sind(2,4,dir_ind) - sind(1,4,dir_ind) + 1) * $ (sind(2,5,dir_ind) - sind(1,5,dir_ind) + 1)), stat=error) scount = 0 ! -- pack data for sending do m = sind(1,5,dir_ind), sind(2,5,dir_ind) do l = sind(1,4,dir_ind), sind(2,4,dir_ind) do k = sind(1,3,dir_ind), sind(2,3,dir_ind) do j = sind(1,2,dir_ind), sind(2,2,dir_ind) do i = sind(1,1,dir_ind), sind(2,1,dir_ind) scount = scount + 1 sarray(scount) = data(i,j,k,l,m) end do end do end do end do end do ! call mpi_isend (sarray, scount, mpi_real, send_to(dir_ind), ! & tag, se_worker_comm, request, error) call mpi_send (sarray, scount, mpi_real, send_to(dir_ind), & tag, se_worker_comm, error) deallocate (sarray) end subroutine se_5d_data_send end module se_data_send_module ================================================ FILE: CCTM/src/STENEX/se/se_disp_info_ext.f ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/work/rep/STENEX/src/se_snl/se_disp_info_ext.f,v 1.1 2004/03/26 16:16:47 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% C -------------------------------------------------------------------------- C Note: all these variables with prefix se_ are for stencil exchange library C only C C to define maximum displacement variables: C C se_mndis -- maximun displacement in the north direction C se_medis -- maximun displacement in the east direction C se_msdis -- maximun displacement in the south direction C se_mwdis -- maximun displacement in the west direction C -------------------------------------------------------------------------- module se_disp_info_ext integer :: se_mndis, se_medis, se_msdis, se_mwdis end module se_disp_info_ext ================================================ FILE: CCTM/src/STENEX/se/se_domain_info_ext.f ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/work/rep/STENEX/src/se_snl/se_domain_info_ext.f,v 1.1 2004/03/26 16:16:47 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% C -------------------------------------------------------------------------- C Note: all these variables with prefix se_ are for stencil exchange library C only C C to define domain decomposition info variables: C C -- global values C C se_gl_ncols -- number of columns in the physical domain C se_gl_nrows -- number of rows in the physical domain C se_gl_nlays -- number of layers in the physical domain C se_gl_nspcs -- number of species in the physical domain C se_gl_ind -- global fine domain to processor map: the first two entries C are the beginning and ending row number, the second two C entries are the beginning and ending column number, second C dimension corresponding to the processor number C C -- local dimension values C C se_ncols -- max. number of columns in a processor for data declaration C se_nrows -- max. number of rows in a processor for data declaration C se_nlays -- max. number of layers in a processor for data declaration C se_nspcs -- max. number of species in a processor for data declaration C C -- local processor data dimension values C C se_my_ncols -- number of columns a processor is responsible for C se_my_nrows -- number of rows a processor is responsible for C se_my_nlays -- number of layers a processor is responsible for C se_my_nspcs -- number of species a processor is responsible for C C -- local processor data dimension values plus one C C se_my_ncolsp1 -- number of columns a processor is responsible for plus one C se_my_nrowsp1 -- number of rows a processor is responsible for plus one C se_my_nlaysp1 -- number of layers a processor is responsible for plus one C se_my_nspcsp1 -- number of species a processor is responsible for plus one C C eg. given eight processors, four processors are assigned to column C dimension and 2 are assigned to row dimension (note: vertical axis C denotes the column dimension and horizontal axis denotes row dimension), C and a 2-D domain of size 17 by 11 C C ie. numprocs = 8 PE map: 0 1 C npcol = 4 2 3 C nprow = 2 4 5 C gl_ncols = 17 6 7 C gl_nrows = 11 C C in each PE, ncols by nrows = 5 x 6 C se_my_ncols by se_my_nrows = 5 x 6 for PE 0 C se_my_ncols by se_my_nrows = 5 x 5 for PE 1 C se_my_ncols by se_my_nrows = 4 x 6 for PE 2, 4, and 6 C se_my_ncols by se_my_nrows = 4 x 5 for PE 3, 5, and 7 C -------------------------------------------------------------------------- module se_domain_info_ext integer :: se_gl_ncols integer :: se_gl_nrows integer :: se_gl_nlays integer :: se_gl_nspcs integer, allocatable, save, target :: se_gl_ind(:, :, :) integer, pointer :: se_gl_ind_ptr (:, :, :) integer :: se_ncols integer :: se_nrows integer :: se_nlays integer :: se_nspcs integer :: se_my_ncols integer :: se_my_nrows integer :: se_my_nlays integer :: se_my_nspcs integer :: se_my_ncolsp1 integer :: se_my_nrowsp1 integer :: se_my_nlaysp1 integer :: se_my_nspcsp1 end module se_domain_info_ext ================================================ FILE: CCTM/src/STENEX/se/se_gather_module.f ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/work/rep/STENEX/src/se_snl/se_gather_module.f,v 1.2 2006/02/15 14:41:56 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% C -------------------------------------------------------------------------- C Purpose: C C use F90 module feature to include all routines to perform data gather C function in one module and use F90 interface feature to achieve "faked" C polymorphism for data gather routine C C there are two major routines: se_setup_gather and se_gather[n] where [n] C denotes the dimensionality of the data C C se_setup_gather: C -- to setup source PE of communication for I/O PE, namely PE 0 C C details description is provided with the routine C C se_gather[n]: C -- to gather n-dimensional array data from all PEs who hold information C that need to be output, and store in the I/O PE namely PE 0 C C Subroutine parameter description: C C In: data -- original data C pec -- indicator of where data is locator in C ptr -- address of data that need to be gathered C n -- number of data need to be gethered in a processor C sdim -- slicing data dimension, i.e. the dimenison of the data C that are located in various processor C C Out: data -- original data after communication C C Local variable description: C C locpec -- local copy of pec C locptr -- local copy of ptr C i, j -- loop indexes C gn -- global n C locn -- local copy of n C C Example: C C given four PEs, a 3D data array A(m, n, 6) where m and n are integers, and C the last dimension was distributed: PE 0 has 5, PE 1 has 1, 2, 3, 4, PE 2 C has 6, and PE 3 has nothing. Let data 1, 3, 6 be the ones that need output. C So PEC will be 0 1 1 1 1 2; PRT for PE 1 and PE 2 are 1, 2 and 6, C respectively, PE 0 and PE 3's PRT will be all -1; N for PE 0 to 3 are 0, 2, C 1, and 0, respectively. In this example, sdim is 3. Overall picture is, C PE 0 will collect data from PE 1 and 2 in this example. C C Include file: C C se_pe_info_ext C se_slice_module C se_global_sum_module C C Subroutine/Function call: C C se_global_isum C se_slice[n] C setup_info C C Revision history: C C Orginal version: 11/05/99 by David Wong C Add integer data 12/16/00 by Jeff Young C 12/04/02 by David Wong C -- modified the routine to accommodate worker and C I/O processors partition scheme C -------------------------------------------------------------------------- module se_gather_module implicit none private :: se_setup_gather interface se_gather module procedure se_gather1i, se_gather1r, & se_gather2i, se_gather2r, & se_gather3i, se_gather3r, & se_gather4i, se_gather4r end interface contains C -------------------------------------------------------------------------- C Purpose: C C to setup source PE of communication for I/O PE, namely PE 0 C C Revision history: C C Orginal version: 7/14/99 by David Wong C C 11/05/99 by David Wong C -- redesign the code using OO-Based approach in F90 C C 12/04/02 by David Wong C -- modified the routine to accommodate worker and C I/O processors partition scheme C C Subroutine parameter description: C C In: ptr -- address of data that need to be gathered C pec -- indicator of where data is locator in C n -- number of data point in a processor C gn -- total number of data point among all processors C C Out: locptr -- local ptr C locpec -- local pec C locn -- local n C C Local variable description: C C bufptr -- buffer to hold ptr from all PEs C locnarray -- an array to hold n from all PEs C i, k -- loop index C j -- position of locptr in PE 0 during compact process C low, high -- starting and ending point in bufptr for each PE C error -- error code for mpi call C C Example: Given 4 PEs, and only PE 1 and 2 have two and one data point, C respectively. Let prt in each PE are: C C 0: 0 0 0 0 ... C 1: 1 3 0 0 ... C 2: 6 0 0 0 ... C 3: 0 0 0 0 ... C C Then bufptr in PE 0 will be: C C 0: 0 0 0 1 3 0 6 0 0 0 0 0 ... C C Subroutine/Function call: C C mpi_gather C C -------------------------------------------------------------------------- subroutine se_setup_gather (ptr, locptr, pec, locpec, gn, n, locn) use se_pe_info_ext integer, intent(in) :: ptr(:), pec(:), gn, n integer, intent(out) :: locptr(:), locpec(:), locn include "mpif.h" integer, allocatable :: bufptr(:), locnarray(:) integer :: i, j, k, low, high, error, allocate_status C -- allocate data allocate (bufptr(gn*se_numworkers), stat=allocate_status) if (allocate_status .ne. 0) then print *, ' Subroutine SE_SETUP_GATHER: ', & ' allocation error in bufptr' stop end if C -- allocate data allocate (locnarray(0:se_numworkers-1), stat=allocate_status) if (allocate_status .ne. 0) then print *, ' Subroutine SE_SETUP_GATHER: ', & ' allocation error in locnarray' stop end if C -- PE 0 colloect ptr information from each PE call mpi_gather (ptr, gn, mpi_integer, bufptr, gn, & mpi_integer, 0, se_worker_comm, error) C -- PE 0 colloect n from each PE call mpi_gather (n, 1, mpi_integer, locnarray(se_myworker_pe), 1, & mpi_integer, 0, se_worker_comm, error) if (se_myworker_pe .eq. 0) then C -- PE 0 filters and compacts PEC and PTR array data. j = 0 do i = 0, se_numworkers-1 low = i * gn + 1 high = low + locnarray(i) - 1 do k = low, high j = j + 1 locptr(j) = bufptr(k) locpec(j) = i end do end do locn = gn else do i = 1, gn if (i .le. n) then locptr(i) = ptr(i) locpec(i) = pec(ptr(i)) else locptr(i) = -1 locpec(i) = -1 end if end do locn = n end if deallocate (bufptr) deallocate (locnarray) return end subroutine se_setup_gather C -------------------------------------------------------------------------- subroutine se_gather1r (data, pec, ptr, n, sdim) use se_pe_info_ext use se_slice_module use se_global_sum_module implicit none real, intent(inout) :: data(:) integer, intent(in) :: pec(:), ptr(:), n, sdim integer :: locpec(size(pec)) integer :: locptr(size(ptr)) integer :: i, j, gn, locn gn = se_global_sum(n) call se_setup_gather (ptr, locptr, pec, locpec, gn, n, locn) C -- gathering data by using se_slice function do j = 1, locn i = locptr(j) if ((locpec(j) .ge. 0) .or. (se_myworker_pe .eq. 0)) then call se_slice (data, locpec(j), 0, sdim, i, i) end if end do return end subroutine se_gather1r C -------------------------------------------------------------------------- subroutine se_gather2r (data, pec, ptr, n, sdim) use se_pe_info_ext use se_slice_module use se_global_sum_module implicit none real, intent(inout) :: data(:,:) integer, intent(in) :: pec(:), ptr(:), n, sdim integer :: locpec(size(pec)) integer :: locptr(size(ptr)) integer :: i, j, gn, locn gn = se_global_sum(n) call se_setup_gather (ptr, locptr, pec, locpec, gn, n, locn) C -- gathering data by using se_slice function do j = 1, locn i = locptr(j) if ((locpec(j) .ge. 0) .or. (se_myworker_pe .eq. 0)) then call se_slice (data, locpec(j), 0, sdim, i, i) end if end do return end subroutine se_gather2r C -------------------------------------------------------------------------- subroutine se_gather3r (data, pec, ptr, n, sdim) use se_pe_info_ext use se_slice_module use se_global_sum_module implicit none real, intent(inout) :: data(:,:,:) integer, intent(in) :: pec(:), ptr(:), n, sdim integer :: locpec(size(pec)) integer :: locptr(size(ptr)) integer :: i, j, gn, locn gn = se_global_sum(n) call se_setup_gather (ptr, locptr, pec, locpec, gn, n, locn) C -- gathering data by using se_slice function do j = 1, locn i = locptr(j) if ((locpec(j) .ge. 0) .or. (se_myworker_pe .eq. 0)) then call se_slice (data, locpec(j), 0, sdim, i, i) end if end do return end subroutine se_gather3r C -------------------------------------------------------------------------- subroutine se_gather4r (data, pec, ptr, n, sdim) use se_pe_info_ext use se_slice_module use se_global_sum_module implicit none real, intent(inout) :: data(:,:,:,:) integer, intent(in) :: pec(:), ptr(:), n, sdim integer :: locpec(size(pec)) integer :: locptr(size(ptr)) integer :: i, j, gn, locn gn = se_global_sum(n) call se_setup_gather (ptr, locptr, pec, locpec, gn, n, locn) C -- gathering data by using se_slice function do j = 1, locn i = locptr(j) if ((locpec(j) .ge. 0) .or. (se_myworker_pe .eq. 0)) then call se_slice (data, locpec(j), 0, sdim, i, i) end if end do return end subroutine se_gather4r C -------------------------------------------------------------------------- subroutine se_gather1i (data, pec, ptr, n, sdim) use se_pe_info_ext use se_slice_module use se_global_sum_module implicit none integer, intent(inout) :: data(:) integer, intent(in) :: pec(:), ptr(:), n, sdim integer :: locpec(size(pec)) integer :: locptr(size(ptr)) integer :: i, j, gn, locn gn = se_global_sum(n) call se_setup_gather (ptr, locptr, pec, locpec, gn, n, locn) C -- gathering data by using se_slice function do j = 1, locn i = locptr(j) if ((locpec(j) .ge. 0) .or. (se_myworker_pe .eq. 0)) then call se_slice (data, locpec(j), 0, sdim, i, i) end if end do return end subroutine se_gather1i C -------------------------------------------------------------------------- subroutine se_gather2i (data, pec, ptr, n, sdim) use se_pe_info_ext use se_slice_module use se_global_sum_module implicit none integer, intent(inout) :: data(:,:) integer, intent(in) :: pec(:), ptr(:), n, sdim integer :: locpec(size(pec)) integer :: locptr(size(ptr)) integer :: i, j, gn, locn gn = se_global_sum(n) call se_setup_gather (ptr, locptr, pec, locpec, gn, n, locn) C -- gathering data by using se_slice function do j = 1, locn i = locptr(j) if ((locpec(j) .ge. 0) .or. (se_myworker_pe .eq. 0)) then call se_slice (data, locpec(j), 0, sdim, i, i) end if end do return end subroutine se_gather2i C -------------------------------------------------------------------------- subroutine se_gather3i (data, pec, ptr, n, sdim) use se_pe_info_ext use se_slice_module use se_global_sum_module implicit none integer, intent(inout) :: data(:,:,:) integer, intent(in) :: pec(:), ptr(:), n, sdim integer :: locpec(size(pec)) integer :: locptr(size(ptr)) integer :: i, j, gn, locn gn = se_global_sum(n) call se_setup_gather (ptr, locptr, pec, locpec, gn, n, locn) C -- gathering data by using se_slice function do j = 1, locn i = locptr(j) if ((locpec(j) .ge. 0) .or. (se_myworker_pe .eq. 0)) then call se_slice (data, locpec(j), 0, sdim, i, i) end if end do return end subroutine se_gather3i C -------------------------------------------------------------------------- subroutine se_gather4i (data, pec, ptr, n, sdim) use se_pe_info_ext use se_slice_module use se_global_sum_module implicit none integer, intent(inout) :: data(:,:,:,:) integer, intent(in) :: pec(:), ptr(:), n, sdim integer :: locpec(size(pec)) integer :: locptr(size(ptr)) integer :: i, j, gn, locn gn = se_global_sum(n) call se_setup_gather (ptr, locptr, pec, locpec, gn, n, locn) C -- gathering data by using se_slice function do j = 1, locn i = locptr(j) if ((locpec(j) .ge. 0) .or. (se_myworker_pe .eq. 0)) then call se_slice (data, locpec(j), 0, sdim, i, i) end if end do return end subroutine se_gather4i end module se_gather_module ================================================ FILE: CCTM/src/STENEX/se/se_global_bcast_module.f ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! ! what(1) key, module and SID; SCCS file; date and time of last delta: ! %W% %P% %G% %U% ! -------------------------------------------------------------------------- ! Purpose: ! ! use F90 interface feature to achieve "faked" polymorphism for global broadcast ! operation from PE 0 ! ! Revision history: ! ! Orginal version: 12/14/21 by David Wong ! ! Parameter List: ! ! Local Variable: ! ! Include Files: ! ! mpif.h C ----------------------------------------------------------------------------- module se_global_bcast_module use se_pe_info_ext, only : se_worker_comm, se_myworker_pe, se_numworkers use se_domain_info_ext, only : se_gl_ind implicit none interface se_global_bcast module procedure se_global_bcast_2d_r, $ se_global_bcast_2d_i, $ se_global_bcast_2d_l end interface contains ! ----------------------------------------------------------------------------- subroutine se_global_bcast_2d_r (indata) real, intent(in) :: indata(:,:) include "mpif.h" integer :: data_size, error data_size = size(indata,1) * size(indata,2) call mpi_bcast (indata, data_size, mpi_real, 0, se_worker_comm, error) end subroutine se_global_bcast_2d_r ! ----------------------------------------------------------------------------- subroutine se_global_bcast_2d_i (indata) integer, intent(in) :: indata(:,:) include "mpif.h" integer :: data_size, error data_size = size(indata,1) * size(indata,2) call mpi_bcast (indata, data_size, mpi_integer, 0, se_worker_comm, error) end subroutine se_global_bcast_2d_i ! ----------------------------------------------------------------------------- subroutine se_global_bcast_2d_l (indata) logical, intent(in) :: indata(:,:) include "mpif.h" integer :: data_size, error data_size = size(indata,1) * size(indata,2) call mpi_bcast (indata, data_size, mpi_logical, 0, se_worker_comm, error) end subroutine se_global_bcast_2d_l end module se_global_bcast_module ================================================ FILE: CCTM/src/STENEX/se/se_global_gather_module.f ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! ! what(1) key, module and SID; SCCS file; date and time of last delta: ! %W% %P% %G% %U% ! -------------------------------------------------------------------------- ! Purpose: ! ! use F90 interface feature to achieve "faked" polymorphism for global gather ! operation for PE 0 ! ! Revision history: ! ! Orginal version: 12/14/21 by David Wong ! ! Parameter List: ! ! In: var -- distributed variable which needs be determined the max value ! among all processors ! ! Local Variable: ! ! max -- maximum value among all processors ! error -- error code of mpi call ! ! Include Files: ! ! mpif.h C ----------------------------------------------------------------------------- module se_global_gather_module use se_pe_info_ext, only : se_worker_comm, se_myworker_pe, se_numworkers use se_domain_info_ext, only : se_gl_ind implicit none integer :: sc, ec, sr, er, nc, nr logical :: called_setup = .false. interface se_global_gather module procedure se_global_gather_2d_r, $ se_global_gather_3d_r, $ se_global_gather_2d_i, $ se_global_gather_3d_i, $ se_global_gather_2d_l, $ se_global_gather_3d_l end interface contains ! ----------------------------------------------------------------------------- subroutine se_global_gather_setup sc = se_gl_ind (1,1,se_myworker_pe) ec = se_gl_ind (2,1,se_myworker_pe) sr = se_gl_ind (1,2,se_myworker_pe) er = se_gl_ind (2,2,se_myworker_pe) nc = ec - sc + 1 nr = er - sr + 1 end subroutine se_global_gather_setup ! ----------------------------------------------------------------------------- subroutine se_global_gather_2d_r (indata, outdata) real, intent(in) :: indata(:,:) real, intent(out) :: outdata(:,:) include "mpif.h" integer :: data_size, error, pe, lsc, lec, lsr, ler, $ lnc, lnr, status(MPI_STATUS_SIZE) real, allocatable :: buf(:,:) if (.not. called_setup) then call se_global_gather_setup called_setup = .true. end if if (se_myworker_pe == 0) then outdata(sc:ec, sr:er) = indata do pe = 1, se_numworkers-1 lsc = se_gl_ind (1,1,pe) lec = se_gl_ind (2,1,pe) lsr = se_gl_ind (1,2,pe) ler = se_gl_ind (2,2,pe) lnc = lec - lsc + 1 lnr = ler - lsr + 1 data_size = lnc * lnr allocate (buf(lnc, lnr), stat=error) call mpi_recv (buf, data_size, mpi_real, pe, pe+100, & se_worker_comm, status, error) if (error .ne. 0) then write (6, *) ' Abort: Error occurred while performing global 2d' write (6, *) ' real gather in receiving data from PE ', pe stop end if outdata(lsc:lec, lsr:ler) = buf deallocate (buf) end do else data_size = nc * nr call mpi_send (indata, data_size, mpi_real, 0, $ se_myworker_pe+100, se_worker_comm, error) if (error .ne. 0) then write (6, *) ' Abort: Error occurred while performing global 2d' write (6, *) ' real gather in sending data from PE ', pe stop end if end if end subroutine se_global_gather_2d_r ! ----------------------------------------------------------------------------- subroutine se_global_gather_3d_r (indata, outdata) real, intent(in) :: indata(:,:,:) real, intent(out) :: outdata(:,:,:) include "mpif.h" integer :: data_size, error, pe, lsc, lec, lsr, ler, $ lnc, lnr, status(MPI_STATUS_SIZE) real, allocatable :: buf(:,:,:) if (.not. called_setup) then call se_global_gather_setup called_setup = .true. end if if (se_myworker_pe == 0) then outdata(sc:ec, sr:er, :) = indata do pe = 1, se_numworkers-1 lsc = se_gl_ind (1,1,pe) lec = se_gl_ind (2,1,pe) lsr = se_gl_ind (1,2,pe) ler = se_gl_ind (2,2,pe) lnc = lec - lsc + 1 lnr = ler - lsr + 1 data_size = lnc * lnr * size(indata,3) allocate (buf(lnc, lnr, size(indata,3)), stat=error) call mpi_recv (buf, data_size, mpi_real, pe, pe+100, & se_worker_comm, status, error) if (error .ne. 0) then write (6, *) ' Abort: Error occurred while performing global 3d' write (6, *) ' real gather in receiving data from PE ', pe stop end if outdata(lsc:lec, lsr:ler, :) = buf deallocate (buf) end do else data_size = nc * nr * size(indata, 3) call mpi_send (indata, data_size, mpi_real, 0, $ se_myworker_pe+100, se_worker_comm, error) if (error .ne. 0) then write (6, *) ' Abort: Error occurred while performing global 3d' write (6, *) ' real gather in sending data from PE ', pe stop end if end if end subroutine se_global_gather_3d_r ! ----------------------------------------------------------------------------- subroutine se_global_gather_2d_i (indata, outdata) integer, intent(in) :: indata(:,:) integer, intent(out) :: outdata(:,:) include "mpif.h" integer :: data_size, error, pe, lsc, lec, lsr, ler, $ lnc, lnr, status(MPI_STATUS_SIZE) integer, allocatable :: buf(:,:) if (.not. called_setup) then call se_global_gather_setup called_setup = .true. end if if (se_myworker_pe == 0) then outdata(sc:ec, sr:er) = indata do pe = 1, se_numworkers-1 lsc = se_gl_ind (1,1,pe) lec = se_gl_ind (2,1,pe) lsr = se_gl_ind (1,2,pe) ler = se_gl_ind (2,2,pe) lnc = lec - lsc + 1 lnr = ler - lsr + 1 data_size = lnc * lnr allocate (buf(lnc, lnr), stat=error) call mpi_recv (buf, data_size, mpi_int, pe, pe+100, & se_worker_comm, status, error) if (error .ne. 0) then write (6, *) ' Abort: Error occurred while performing global 2d' write (6, *) ' integer gather in receiving data from PE ', pe stop end if outdata(lsc:lec, lsr:ler) = buf deallocate (buf) end do else data_size = nc * nr call mpi_send (indata, data_size, mpi_int, 0, $ se_myworker_pe+100, se_worker_comm, error) if (error .ne. 0) then write (6, *) ' Abort: Error occurred while performing global 2d' write (6, *) ' integer gather in sending data from PE ', pe stop end if end if end subroutine se_global_gather_2d_i ! ----------------------------------------------------------------------------- subroutine se_global_gather_3d_i (indata, outdata) integer, intent(in) :: indata(:,:,:) integer, intent(out) :: outdata(:,:,:) include "mpif.h" integer :: data_size, error, pe, lsc, lec, lsr, ler, $ lnc, lnr, status(MPI_STATUS_SIZE) integer, allocatable :: buf(:,:,:) if (.not. called_setup) then call se_global_gather_setup called_setup = .true. end if if (se_myworker_pe == 0) then outdata(sc:ec, sr:er, :) = indata do pe = 1, se_numworkers-1 lsc = se_gl_ind (1,1,pe) lec = se_gl_ind (2,1,pe) lsr = se_gl_ind (1,2,pe) ler = se_gl_ind (2,2,pe) lnc = lec - lsc + 1 lnr = ler - lsr + 1 data_size = lnc * lnr * size(indata,3) allocate (buf(lnc, lnr, size(indata,3)), stat=error) call mpi_recv (buf, data_size, mpi_int, pe, pe+100, & se_worker_comm, status, error) if (error .ne. 0) then write (6, *) ' Abort: Error occurred while performing global 3d' write (6, *) ' integer gather in receiving data from PE ', pe stop end if outdata(lsc:lec, lsr:ler, :) = buf deallocate (buf) end do else data_size = nc * nr * size(indata, 3) call mpi_send (indata, data_size, mpi_int, 0, $ se_myworker_pe+100, se_worker_comm, error) if (error .ne. 0) then write (6, *) ' Abort: Error occurred while performing global 3d' write (6, *) ' integer gather in sending data from PE ', pe stop end if end if end subroutine se_global_gather_3d_i ! ----------------------------------------------------------------------------- subroutine se_global_gather_2d_l (indata, outdata) logical, intent(in) :: indata(:,:) logical, intent(out) :: outdata(:,:) include "mpif.h" integer :: data_size, error, pe, lsc, lec, lsr, ler, $ lnc, lnr, status(MPI_STATUS_SIZE) logical, allocatable :: buf(:,:) if (.not. called_setup) then call se_global_gather_setup called_setup = .true. end if if (se_myworker_pe == 0) then outdata(sc:ec, sr:er) = indata do pe = 1, se_numworkers-1 lsc = se_gl_ind (1,1,pe) lec = se_gl_ind (2,1,pe) lsr = se_gl_ind (1,2,pe) ler = se_gl_ind (2,2,pe) lnc = lec - lsc + 1 lnr = ler - lsr + 1 data_size = lnc * lnr allocate (buf(lnc, lnr), stat=error) call mpi_recv (buf, data_size, mpi_logical, pe, pe+100, & se_worker_comm, status, error) if (error .ne. 0) then write (6, *) ' Abort: Error occurred while performing global 2d' write (6, *) ' logical gather in receiving data from PE ', pe stop end if outdata(lsc:lec, lsr:ler) = buf deallocate (buf) end do else data_size = nc * nr call mpi_send (indata, data_size, mpi_logical, 0, $ se_myworker_pe+100, se_worker_comm, error) if (error .ne. 0) then write (6, *) ' Abort: Error occurred while performing global 2d' write (6, *) ' logical gather in sending data from PE ', pe stop end if end if end subroutine se_global_gather_2d_l ! ----------------------------------------------------------------------------- subroutine se_global_gather_3d_l (indata, outdata) logical, intent(in) :: indata(:,:,:) logical, intent(out) :: outdata(:,:,:) include "mpif.h" integer :: data_size, error, pe, lsc, lec, lsr, ler, $ lnc, lnr, status(MPI_STATUS_SIZE) logical, allocatable :: buf(:,:,:) if (.not. called_setup) then call se_global_gather_setup called_setup = .true. end if if (se_myworker_pe == 0) then outdata(sc:ec, sr:er, :) = indata do pe = 1, se_numworkers-1 lsc = se_gl_ind (1,1,pe) lec = se_gl_ind (2,1,pe) lsr = se_gl_ind (1,2,pe) ler = se_gl_ind (2,2,pe) lnc = lec - lsc + 1 lnr = ler - lsr + 1 data_size = lnc * lnr * size(indata,3) allocate (buf(lnc, lnr, size(indata,3)), stat=error) call mpi_recv (buf, data_size, mpi_logical, pe, pe+100, & se_worker_comm, status, error) if (error .ne. 0) then write (6, *) ' Abort: Error occurred while performing global 3d' write (6, *) ' logical gather in receiving data from PE ', pe stop end if outdata(lsc:lec, lsr:ler, :) = buf deallocate (buf) end do else data_size = nc * nr * size(indata, 3) call mpi_send (indata, data_size, mpi_logical, 0, $ se_myworker_pe+100, se_worker_comm, error) if (error .ne. 0) then write (6, *) ' Abort: Error occurred while performing global 3d' write (6, *) ' logical gather in sending data from PE ', pe stop end if end if end subroutine se_global_gather_3d_l end module se_global_gather_module ================================================ FILE: CCTM/src/STENEX/se/se_global_max_module.f ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/work/rep/STENEX/src/se_snl/se_global_max_module.f,v 1.2 2006/02/15 14:41:56 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% C -------------------------------------------------------------------------- C Purpose: C C use F90 interface feature to achieve "faked" polymorphism for global max C determining routine C C Revision history: C C Orginal version: 11/05/99 by David Wong C C 12/04/02 by David Wong C -- modified the routine to accommodate worker and C I/O processors partition scheme C C Parameter List: C C In: var -- distributed variable which needs be determined the max value C among all processors C C Local Variable: C C max -- maximum value among all processors C error -- error code of mpi call C C Include Files: C C mpif.h C ----------------------------------------------------------------------------- module se_global_max_module use se_pe_info_ext implicit none interface se_global_max module procedure se_global_imax, se_global_rmax end interface contains C ----------------------------------------------------------------------------- function se_global_imax (var) result (se_global_imax_result) implicit none integer :: se_global_imax_result integer, intent(in) :: var include "mpif.h" integer :: max, error call mpi_reduce (var, max, 1, mpi_integer, MPI_MAX, 0, & se_worker_comm, error) call mpi_bcast (max, 1, mpi_integer, 0, se_worker_comm, error) se_global_imax_result = max return end function se_global_imax C ----------------------------------------------------------------------------- function se_global_rmax (var) result (se_global_rmax_result) implicit none real :: se_global_rmax_result real, intent(in) :: var include "mpif.h" real :: max integer :: error call mpi_reduce (var, max, 1, mpi_real, MPI_MAX, 0, & se_worker_comm, error) call mpi_bcast (max, 1, mpi_real, 0, se_worker_comm, error) se_global_rmax_result = max return end function se_global_rmax end module se_global_max_module ================================================ FILE: CCTM/src/STENEX/se/se_global_min_module.f ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/work/rep/STENEX/src/se_snl/se_global_min_module.f,v 1.2 2006/02/15 14:41:56 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% C -------------------------------------------------------------------------- C Purpose: C C use F90 interface feature to achieve "faked" polymorphism for global min C determining routine C C Revision history: C C Orginal version: 11/05/99 by David Wong C C 12/04/02 by David Wong C -- modified the routine to accommodate worker and C I/O processors partition scheme C C Parameter List: C C In: var -- distributed variable which needs be determined the min value C among all processors C C Local Variable: C C min -- minimum value among all processors C error -- error code of mpi call C C Include Files: C C mpif.h C ----------------------------------------------------------------------------- module se_global_min_module use se_pe_info_ext implicit none interface se_global_min module procedure se_global_imin, se_global_rmin end interface contains C ----------------------------------------------------------------------------- function se_global_imin (var) result (se_global_imin_result) implicit none integer :: se_global_imin_result integer, intent(in) :: var include "mpif.h" integer min integer error call mpi_reduce (var, min, 1, mpi_integer, MPI_MIN, 0, & se_worker_comm, error) call mpi_bcast (min, 1, mpi_integer, 0, se_worker_comm, error) se_global_imin_result = min return end function se_global_imin C ----------------------------------------------------------------------------- function se_global_rmin (var) result (se_global_rmin_result) implicit none real :: se_global_rmin_result real, intent(in) :: var include "mpif.h" real min integer error call mpi_reduce (var, min, 1, mpi_real, MPI_MIN, 0, & se_worker_comm, error) call mpi_bcast (min, 1, mpi_real, 0, se_worker_comm, error) se_global_rmin_result = min return end function se_global_rmin end module se_global_min_module ================================================ FILE: CCTM/src/STENEX/se/se_global_sum_module.f ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/work/rep/STENEX/src/se_snl/se_global_sum_module.f,v 1.2 2006/02/15 14:41:56 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% C -------------------------------------------------------------------------- C Purpose: C C use F90 interface feature to achieve "faked" polymorphism for global sum C routine C C Revision history: C C Orginal version: 11/05/99 by David Wong C C 12/04/02 by David Wong C -- modified the routine to accommodate worker and C I/O processors partition scheme C C Parameter List: C C In: var -- sum variable C C Local Variable: C C sum -- local variable for computing global sum C error -- error code for mpi call C C Include Files: C C mpif.h C se_pe_info_ext: C ----------------------------------------------------------------------------- module se_global_sum_module implicit none interface se_global_sum module procedure se_global_isum, se_global_rsum, & se_global_iasum, se_global_rasum end interface contains C ----------------------------------------------------------------------------- function se_global_isum (var) result (se_global_isum_result) use se_pe_info_ext implicit none integer :: se_global_isum_result integer, intent(in) :: var include "mpif.h" integer :: sum, error call mpi_reduce (var, sum, 1, mpi_integer, mpi_sum, 0, & se_worker_comm, error) if (se_myworker_pe .eq. 0) then se_global_isum_result = sum end if call mpi_bcast (se_global_isum_result, 1, mpi_integer, 0, & se_worker_comm, error) return end function se_global_isum C ----------------------------------------------------------------------------- function se_global_rsum (var) result (se_global_rsum_result) use se_pe_info_ext implicit none real :: se_global_rsum_result real, intent(in) :: var include "mpif.h" real sum integer error call mpi_reduce (var, sum, 1, mpi_real, mpi_sum, 0, & se_worker_comm, error) if (se_myworker_pe .eq. 0) then se_global_rsum_result = sum end if call mpi_bcast (se_global_rsum_result, 1, mpi_real, 0, & se_worker_comm, error) return end function se_global_rsum C ----------------------------------------------------------------------------- function se_global_iasum (var) result (se_global_iasum_result) use se_pe_info_ext implicit none integer, intent(in) :: var(:) integer :: se_global_iasum_result(size(var)) include "mpif.h" integer :: sum(size(var)), error, n n = size(var) call mpi_reduce (var, sum, n, mpi_integer, mpi_sum, 0, & se_worker_comm, error) if (se_myworker_pe .eq. 0) then se_global_iasum_result = sum end if call mpi_bcast (se_global_iasum_result, n, mpi_integer, 0, & se_worker_comm, error) return end function se_global_iasum C ----------------------------------------------------------------------------- function se_global_rasum (var) result (se_global_rasum_result) use se_pe_info_ext implicit none real, intent(in) :: var(:) real :: se_global_rasum_result(size(var)) include "mpif.h" real sum(size(var)) integer error, n n = size(var) call mpi_reduce (var, sum, n, mpi_real, mpi_sum, 0, & se_worker_comm, error) if (se_myworker_pe .eq. 0) then se_global_rasum_result = sum end if call mpi_bcast (se_global_rasum_result, n, mpi_real, 0, & se_worker_comm, error) return end function se_global_rasum end module se_global_sum_module ================================================ FILE: CCTM/src/STENEX/se/se_init_module.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/work/rep/STENEX/src/se_snl/se_init_module.F,v 1.1 2006/02/15 14:56:48 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% C----------------------------------------------------------------------- module se_init_module implicit none private :: se_dim_init private :: cal_size contains C----------------------------------------------------------------------- C Purpose: C initialize variables for stencil exchange library C Revision history: C Orginal version: 7/10/98 by David Wong C 2/15/99 by David Wong C -- add se_global_map call to determine processor C configuration and global domain map C 11/05/99 by David Wong C -- recode the code using F90 syntax C 10/13/00 by David Wong C -- rename row with dimi and col with dimj and use C data_ori to determine the order of column and C row input C 12/12/00 by David Wong C -- use f90 function ALLOCATED to determine an array has C been allocated or not rather than a logical variable. C 12/04/00 by David Wong C -- modified the routine to accommodate: 1. the C worker and I/O processors partition scheme and 2. C data structure reordering C 12/29/05 by Jeff Young C -- annotate C 08/24/11 by David Wong C -- eliminated data and geo orientation C Local variable description: C i, j -- loop index C leng -- length of the character string, decompstr C decompstr -- a character string indicateing which dimension(s) is/are C decomposed C loci -- Cartesian coordinate of mype x-axis C locj -- Cartesian coordinate of mype y-axis C pos -- position in the conversion table C conv -- a conversion table C conversion table layout C (loci-1, locj-1) (loci-1, locj) (loci-1, locj+1) 8 1 2 C ( loci, locj-1) ( loci, locj) ( loci, locj+1) equivalent to 7 3 C (loci+1, locj-1) (loci+1, locj) (loci+1, locj+1) 6 5 4 C Include files: C se_domain_info.ext C se_pe_info.ext C se_comm_info.ext C se_disp_info_ext C Subroutine/Function call: C se_dim_init C----------------------------------------------------------------------- ! #ifdef slcr ! subroutine se_init (numprocs, npdimi, npdimj, gl_ndimks, gl_ndimls, ! & gl_ndimis, gl_ndimjs, my_pe, ! & mndis, medis, msdis, mwdis, data_ori, geo_ori) ! #else subroutine se_init (numprocs, npdimi, npdimj, gl_ndimis, gl_ndimjs, & gl_ndimks, gl_ndimls, my_pe, & mndis, medis, msdis, mwdis, data_ori, geo_ori) ! #endif use se_pe_info_ext use se_domain_info_ext use se_comm_info_ext use se_disp_info_ext use se_bndy_copy_info_ext ! use se_ori_ext use se_internal_util_module implicit none include 'mpif.h' integer, intent( in ) :: numprocs, npdimi, npdimj integer, intent( in ) :: gl_ndimis, gl_ndimjs, gl_ndimks, gl_ndimls integer, intent( in ) :: my_pe integer, intent( in ) :: mndis, medis, msdis, mwdis character( 2 ), optional, intent( in ) :: data_ori integer, optional, intent( in ) :: geo_ori integer :: i, j, leng character( 10 ) :: decompstr integer :: loci, locj, pos, allocate_status integer :: conv( 8 ) integer :: se_world_group, se_io_group, se_worker_group, error c integer, allocatable :: ranks(:) data conv / 8, 1, 2, 7, 3, 6, 5, 4 / C 1 = initialize data in module se_pe_info_ext C 2 = initialize data in module se_domain_info_ext.f C 3 = initialize data in module se_comm_info_ext.f C 4 = initialize data in module se_disp_info_ext C 5 = initialize data in module se_bndy_copy_info_ext C 6 = initialize data in module se_ori_ext ! if (present(data_ori)) then ! if ((data_ori .eq. "cr") .or. (data_ori .eq. "CR")) then ! se_npcol = npdimi ! 1 ! se_nprow = npdimj ! 1 ! se_gl_ncols = gl_ndimis ! 2 ! se_gl_nrows = gl_ndimjs ! 2 ! else ! se_npcol = npdimj ! 1 ! se_nprow = npdimi ! 1 ! se_gl_ncols = gl_ndimjs ! 2 ! se_gl_nrows = gl_ndimis ! 2 ! end if ! else se_npcol = npdimi ! 1 se_nprow = npdimj ! 1 se_gl_ncols = gl_ndimis ! 2 se_gl_nrows = gl_ndimjs ! 2 ! end if se_numworkers = se_npcol * se_nprow ! 1 se_numiopes = numprocs - se_numworkers ! 1 se_my_pe = my_pe ! 1 if ( se_numiopes .gt. 0 ) then se_partition_mode = 2 ! 1 if ( my_pe .lt. se_numiopes ) then se_myworker_pe = -1 ! 1 se_myio_pe = my_pe ! 1 else se_myworker_pe = my_pe - se_numiopes ! 1 se_myio_pe = -1 ! 1 end if else se_partition_mode = 1 ! 1 se_myworker_pe = my_pe ! 1 se_myio_pe = -1 ! 1 end if call mpi_comm_dup ( mpi_comm_world, se_world_comm, error ) ! 1 if ( se_partition_mode .eq. 2 ) then call mpi_comm_group ( mpi_comm_world, se_world_group, error ) allocate ( ranks( se_numiopes ), stat=allocate_status ) do i = 1, se_numiopes ranks( i ) = i - 1 ! 1 end do call mpi_group_incl ( se_world_group, se_numiopes, ranks, & se_io_group, error ) call mpi_group_excl ( se_world_group, se_numiopes, ranks, & se_worker_group, error ) call mpi_comm_create ( mpi_comm_world, se_io_group, & se_io_comm, error ) ! 1 call mpi_comm_create ( mpi_comm_world, se_worker_group, & se_worker_comm, error ) ! 1 else call mpi_comm_dup ( mpi_comm_world, se_worker_comm, error ) ! 1 end if se_gl_nlays = gl_ndimks ! 2 se_gl_nspcs = gl_ndimls ! 2 se_mndis = mndis ! 4 se_medis = medis ! 4 se_msdis = msdis ! 4 se_mwdis = mwdis ! 4 C call pxfgetenv ('decompstr', 0, decompstr, leng, 0) decompstr = ' 1 1 0 0' ! horizontal decomp (cols X rows) leng = 8 se_numprocs = numprocs ! 1 se_numdim = leng / 2 ! 3 se_decompstr = decompstr ! 3 ! if (present(data_ori)) then ! se_data_ori = data_ori ! 6 ! else ! se_data_ori = 'CR' ! 6 ! end if ! if (present(geo_ori)) then ! se_geo_ori = geo_ori ! 6 ! else ! se_geo_ori = 0 ! 6 ! end if C -- initialize ngb_pe se_ngb_pe = -1 ! 3 if ( ( se_myworker_pe .eq. my_pe ) .or. ( se_myio_pe .eq. -1 ) ) then loci = se_myworker_pe / se_npcol locj = mod ( se_myworker_pe, se_npcol ) pos = 0 do i = loci-1, loci+1 do j = locj-1, locj+1 if ( ( i .ne. loci ) .or. ( j .ne. locj ) ) then pos = pos + 1 if ( ( i .ge. 0 ) .and. ( i .lt. se_nprow ) .and. & ( j .ge. 0 ) .and. ( j .lt. se_npcol ) ) then se_ngb_pe( conv( pos ) ) = i * se_npcol + j ! 3 else se_ngb_pe( conv( pos ) ) = -1 ! 3 end if end if end do end do C -- initialize boundary ngb_pe se_bngb_pe = -1 ! 5 if ( se_myworker_pe .lt. se_npcol ) then se_bngb_pe( 5 ) = (se_nprow - 1) * se_npcol + se_myworker_pe ! 5 end if if ( se_myworker_pe .ge. (se_nprow - 1) * se_npcol ) then se_bngb_pe( 1 ) = mod(se_myworker_pe, se_npcol) ! 5 end if if ( mod(se_myworker_pe, se_npcol) .eq. 0 ) then se_bngb_pe( 3 ) = se_myworker_pe + se_npcol - 1 ! 5 end if if ( mod(se_myworker_pe, se_npcol) .eq. (se_npcol - 1) ) then se_bngb_pe( 7 ) = se_myworker_pe / se_npcol * se_npcol ! 5 end if if ( se_myworker_pe .eq. 0 ) then se_bngb_pe( 4 ) = se_npcol * se_nprow - 1 ! 5 end if if ( se_myworker_pe .eq. se_npcol - 1 ) then se_bngb_pe( 6 ) = se_npcol * (se_nprow - 1) ! 5 end if if ( se_myworker_pe .eq. (se_nprow - 1) * se_npcol ) then se_bngb_pe( 2 ) = se_npcol - 1 ! 5 end if if ( se_myworker_pe .eq. se_npcol * se_nprow - 1 ) then se_bngb_pe( 8 ) = 0 ! 5 end if end if call se_dim_init C -- figure out the low and high column and row index of the C original grid, respectively if ( .not. allocated( se_gl_ind ) ) then C -- allocate data allocate (se_gl_ind(2, 2, 0:se_numworkers-1), stat=allocate_status) if ( allocate_status .ne. 0 ) then print *, ' Allocation error in subroutine SE_INIT' stop end if end if se_gl_ind_ptr => se_gl_ind call se_generate_map ( 1, se_gl_nrows, 1, se_gl_ncols, & se_nprow, se_npcol, se_gl_ind_ptr ) ! 2 return end subroutine se_init C----------------------------------------------------------------------- C Purpose: C 1. determine which dimension(s) is/are distributed C 2. determine local PE work load of a distributed array C Revision history: C Orginal version: 8/10/98 by David Wong C 11/05/99 by David Wong C -- recode the code using F90 syntax C Local variable description: C i -- loop index C ldecomp -- an array indicating which dimension(s) is/are distributed C ldim -- an array holding the global dimension C pos1 -- first distributed dimension C pos2 -- second distributed dimension C first -- a boolean variable C Include files: C se_pe_info.ext C se_domain_info.ext C se_comm_info.ext C Subroutine/Function call: C cal_size C----------------------------------------------------------------------- subroutine se_dim_init use se_domain_info_ext use se_pe_info_ext use se_comm_info_ext implicit none integer :: i integer :: ldecomp( 4 ), ldim( 4 ) integer :: pos1, pos2 logical :: first first = .true. ldim( 1 ) = se_gl_nrows ldim( 2 ) = se_gl_ncols ldim( 3 ) = se_gl_nlays ldim( 4 ) = se_gl_nspcs pos1 = 0 pos2 = 0 read( se_decompstr, 10 ) ( ldecomp( i ), i = 1, se_numdim ) 10 format( 5i2 ) C -- extract the distributed dimension(s) do i = 1, se_numdim if ( ldecomp( i ) .eq. 1 ) then if ( first ) then pos1 = i first = .false. else pos2 = i end if end if end do C -- row x column if ( ((pos1 .eq. 1) .and. (pos2 .eq. 2)) .or. & ((pos1 .eq. 1) .and. (pos2 .eq. 0)) ) then se_nrows = (se_gl_nrows - 1) / se_nprow + 1 ! 2 se_ncols = (se_gl_ncols - 1) / se_npcol + 1 ! 2 se_nlays = se_gl_nlays ! 2 se_nspcs = se_gl_nspcs ! 2 C -- column x layer else if ( ((pos1 .eq. 2) .and. (pos2 .eq. 3)) .or. & ((pos1 .eq. 2) .and. (pos2 .eq. 0)) ) then se_nrows = se_gl_nrows ! 2 se_ncols = (se_gl_ncols - 1) / se_nprow + 1 ! 2 se_nlays = (se_gl_nlays - 1) / se_npcol + 1 ! 2 se_nspcs = se_gl_nspcs ! 2 C -- layer x row else if ( ((pos1 .eq. 3) .and. (pos2 .eq. 1)) .or. & ((pos1 .eq. 3) .and. (pos2 .eq. 0)) ) then se_nrows = (se_gl_nrows - 1) / se_nprow + 1 ! 2 se_ncols = se_gl_ncols ! 2 se_nlays = (se_gl_nlays - 1) / se_nprow + 1 ! 2 se_nspcs = se_gl_nspcs ! 2 C -- species x layer else if ( ((pos1 .eq. 4) .and. (pos2 .eq. 3)) .or. & ((pos1 .eq. 4) .and. (pos2 .eq. 0)) ) then se_nrows = se_gl_nrows ! 2 se_ncols = se_gl_ncols ! 2 se_nlays = (se_gl_nlays - 1) / se_npcol + 1 ! 2 se_nspcs = (se_gl_nspcs - 1) / se_nprow + 1 ! 2 C -- row x species else if ( (pos1 .eq. 1) .and. (pos2 .eq. 4) ) then se_nrows = (se_gl_nrows - 1) / se_nprow + 1 ! 2 se_ncols = se_gl_ncols ! 2 se_nlays = se_gl_nlays ! 2 se_nspcs = (se_gl_nspcs - 1) / se_npcol + 1 ! 2 C -- column x species else se_nrows = se_gl_nrows ! 2 se_ncols = (se_gl_ncols - 1) / se_nprow + 1 ! 2 se_nlays = se_gl_nlays ! 2 se_nspcs = (se_gl_nspcs - 1) / se_npcol + 1 ! 2 end if C -- determine what type of domain decomposition, logically, the first and C second one become the row and column dimension, respectively if ( pos2 .gt. 0 ) then if ( ((pos1 .eq. 1) .and. (pos2 .eq. 3)) .or. & ((pos1 .eq. 3) .and. (pos2 .eq. 4)) ) then ldecomp( pos2 ) = 1 ldecomp( pos1 ) = 2 else ldecomp( pos1 ) = 1 ldecomp( pos2 ) = 2 end if else ldecomp( pos1 ) = 1 end if C -- determine the actual size of each dimension locally call cal_size ( ldim, ldecomp, & se_my_nrows, se_my_ncols, se_my_nlays, se_my_nspcs ) ! 2 do i = 1, 4 ldim( i ) = ldim( i ) + 1 end do C -- determine the actual size of each dimension locally when the global C dimension increases by one call cal_size ( ldim, ldecomp, & se_my_nrowsp1, se_my_ncolsp1, se_my_nlaysp1, se_my_nspcsp1 ) ! 2 return end subroutine se_dim_init C----------------------------------------------------------------------- C Purpose: C to determine local work load dimensions each PE owns, of a distributed C array C Revision history: C Orginal version: 8/10/98 by David Wong C 11/05/99 by David Wong C -- recode the code using F90 syntax C 12/04/02 by David Wong C -- modified the routine to accommodate worker and C I/O processors partition scheme C Parameter list: C IN: ldim -- global dimension values C ldecomp -- indicator of which dimension(s) is/are distributed C OUT: rows -- number of rows in a PE C cols -- number of columns in a PE C lays -- number of layers in a PE C spcs -- number of species in a PE C Local variable description: C i -- loop index C temp -- a temporary variable C tldim -- local copy of ldim C Include files: C se_comm_info.ext C se_pe_info.ext C----------------------------------------------------------------------- subroutine cal_size ( ldim, ldecomp, rows, cols, lays, spcs ) use se_comm_info_ext use se_pe_info_ext implicit none integer, intent( in ) :: ldim( 4 ), ldecomp( 4 ) integer, intent( out ) :: rows, cols, lays, spcs integer :: i, temp integer :: tldim( 4 ) do i = 1, se_numdim tldim( i ) = ldim( i ) if (ldecomp( i ) .eq. 1) then C -- calculating the size of the logical row dimension temp = ldim( i ) tldim( i ) = tldim( i ) / se_nprow temp = (temp - tldim( i ) * se_nprow) * se_npcol if (se_myworker_pe .lt. temp) then tldim( i ) = tldim( i ) + 1 end if else if (ldecomp( i ) .eq. 2) then C -- calculating the size of the logical column dimension temp = ldim( i ) tldim( i ) = tldim( i ) / se_npcol temp = temp - tldim( i ) * se_npcol if (mod(se_myworker_pe, se_npcol) .lt. temp) then tldim( i ) = tldim( i ) + 1 end if end if end do rows = tldim( 1 ) cols = tldim( 2 ) lays = tldim( 3 ) spcs = tldim( 4 ) return end subroutine cal_size end module se_init_module ================================================ FILE: CCTM/src/STENEX/se/se_internal_util_module.f ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/work/rep/STENEX/src/se_snl/se_internal_util_module.f,v 1.2 2006/02/15 14:47:24 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% C -------------------------------------------------------------------------- C Purpose: C -- use F90 module feature to group utility routines so that they can be C accessed within se library C Revision history: C Orginal version: 11/05/99 by David Wong C Documentation and code text changes for se_generate_map: 12/24/05 by Jeff Young C -------------------------------------------------------------------------- module se_internal_util_module implicit none contains C ----------------------------------------------------------------------------- C Purpose: C To determine mapping of a grid onto a processor configuration with data C redistribution by calculating starting and ending row and column. The mapping C is kept in each PE. This routine provides flexibility (see routine parameter C list) of domain decomposition in the level dimension as well for future use. C Currently, only row and column dimensions are decomposed. C C There are two ways, determined by the existence of an optional variable C "flag", to generate a map: C 1. The incoming parameters are indices of a partitioned sub-grid. C (No redistribution) C 2. The incoming parameters are indices of the original sub-grid without C partition. C To deal with the first case, no special calculation is done except to assign C the incoming indices to the map. Calculation is required for the second case. C For example, given 8 processors with 2 x 4 processor configuration (row by C column), a 20x25 data grid, a 10 x 5 sub grid starts at (7,5), the following C are the starting and ending row and column, respectively. C PE # row column C ----------------------------------------- C 0 7, 11 5, 6 C 1 7, 11 7, 7 C 2 7, 11 8, 8 C 3 7, 11 9, 9 C 4 12, 16 5, 6 C 5 12, 16 7, 7 C 6 12, 16 8, 8 C 7 12, 16 9, 9 C Subroutine parameter description: C In: begrow -- beginning row index C endrow -- ending row index C begcol -- beginning column index C endcol -- ending column index C nprow -- number of processors along the row dimension C npcol -- number of processors along the column dimension C flag -- an optional variable to indicate which one of the two ways C to generate a index map C Out: index -- the index map C Local variable description: C error -- mpi function call error code C block -- cell base block size (minus 1) C nb -- no. cells with base block size (minus 1) C prow -- local loop index C pcol -- local loop index C my_pe -- local processor number C Include files: C C mpif.h C se_pe_info_ext C se_domain_info_ext C se_ori_ext C Revision history: C C Orginal version: 2/15/99 by David Wong C 11/05/99 by David Wong C -- recode the code using F90 syntax C -- provide a centralize spot to modify the global map C according to the data orientation C 10/05/00 by David Wong C -- combined two mapping routine into one and using a new C optional variable flag to distinguish them C 12/04/02 by David Wong C -- modified the routine to accommodate worker and C I/O processors partition scheme C ----------------------------------------------------------------------------- subroutine se_generate_map( begrow, endrow, begcol, endcol, & nprow, npcol, index, flag ) use se_pe_info_ext implicit none include "mpif.h" integer, intent( in ) :: begrow, endrow, begcol, endcol integer, intent( in ) :: nprow, npcol integer, optional, intent( in ) :: flag integer, intent( out ) :: index( :,:,: ) ! actual argument is a pointer integer :: my_pe, nb, block, prow, pcol, error if ( se_myworker_pe .ge. 0 ) then if ( present( flag ) ) then C -- set the low and high column and row index of the C Process Analysis (PA) grid, respectively index( 1,1,se_myworker_pe+1 ) = begcol index( 2,1,se_myworker_pe+1 ) = endcol index( 1,2,se_myworker_pe+1 ) = begrow index( 2,2,se_myworker_pe+1 ) = endrow C -- each PE sends PA grid index info to PE 0, gather process call mpi_gather( index( 1,1,se_myworker_pe+1 ), ! strt addr of send buf & 4, ! no. elements in send buf & mpi_integer, ! data type in send buf & index( 1,1,se_myworker_pe+1 ), ! addr of recv buf (signifcant only at recv process) & 4, ! no. elements in recv buf (signifcant only at recv process) & mpi_integer, ! data type in recv buf (signifcant only at recv process) & 0, ! rank of recv process & se_worker_comm, ! communicator & error ) C In mpi_gather, each process sends the contents of its send buffer to the recv C process, which receives the messages and stores them in rank order. C -- PE 0 broadcasts entire PA grid index info call mpi_bcast( index( 1,1,1 ), ! strt addr of send/recv buf & 4*se_numworkers, ! no. elements in buf & mpi_integer, ! data type in buf & 0, ! rank of broadcast process & se_worker_comm, ! communicator & error ) else C -- figure out the low and high column and row index of the C Process Analysis (PA) grid, respectively nb = mod( ( endcol - begcol + 1 ), npcol ) block = ( endcol - begcol + 1 ) / npcol do pcol = 0, npcol-1 do prow = 0, nprow-1 my_pe = prow * npcol + pcol if ( pcol .lt. nb ) then index( 1,1,my_pe+1 ) = begcol + pcol * ( block + 1 ) index( 2,1,my_pe+1 ) = index( 1,1,my_pe+1 ) + block else index( 1,1,my_pe+1 ) = begcol + nb * ( block + 1 ) & + ( pcol - nb ) * block index( 2,1,my_pe+1 ) = index( 1,1,my_pe+1 ) + block - 1 end if end do end do nb = mod( ( endrow - begrow + 1 ), nprow ) block = ( endrow - begrow + 1 ) / nprow do prow = 0, nprow-1 do pcol = 0, npcol-1 my_pe = prow * npcol + pcol if ( prow .lt. nb ) then index( 1,2,my_pe+1 ) = begrow + prow * ( block + 1 ) index( 2,2,my_pe+1 ) = index( 1,2,my_pe+1 ) + block else index( 1,2,my_pe+1 ) = begrow + nb * ( block + 1 ) & + ( prow - nb ) * block index( 2,2,my_pe+1 ) = index( 1,2,my_pe+1 ) + block - 1 end if end do end do end if end if return end subroutine se_generate_map C -------------------------------------------------------------------------- C Purpose: C C -- to interchange two integer values C C Revision history: C C Orginal version: 11/05/99 by David Wong C -------------------------------------------------------------------------- subroutine swap (data1, data2) implicit none integer, intent(inout) :: data1, data2 integer :: temp temp = data1 data1 = data2 data2 = temp return end subroutine swap C -------------------------------------------------------------------------- C Purpose: C C -- to extract a character string of integer into individual integers C C Revision history: C C Orginal version: 11/05/99 by David Wong C 05/04/01 by David Wong C -- remove all leading double blank spaces C 09/19/18 by David Wong C -- remove unused variables C -------------------------------------------------------------------------- subroutine se_string_to_integer (str, data, n) character (len = *), intent(inout) :: str integer, intent(inout) :: data(*) integer, intent(out) :: n integer i, j, stat logical stop C -- remove all leading double blank spaces stop = .false. do while (.not. stop) i = index(trim(str), " ") if (i == 0) then stop = .true. else do j = i+1, 80 str(j-1:j-1) = str(j:j) end do end if end do C -- if the first character is a blank space, remove it if (str(1:1) .eq. ' ') then str(1:79) = str(2:80) end if C -- extract each individual integer stop = .false. i = 1 j = 1 do while (.not. stop) read (str(i:80), *, iostat=stat) data(j) if (stat .ne. 0) then j = j - 1 stop = .true. else j = j + 1 i = index(str(i:80), ' ') + i end if end do n = j end subroutine se_string_to_integer C -------------------------------------------------------------------------- C Purpose: C C -- to modify existing global map when a dot file is encountered (primarily C for DFIO application) C C Revision history: C C Orginal version: 05/24/01 by David Wong C -------------------------------------------------------------------------- subroutine se_dotfile_map (map1, nprow1, npcol1, map2, nprow2, npcol2) implicit none integer, intent(inout) :: map1(:,:,:), map2(:,:,:) integer, intent(in) :: nprow1, npcol1, nprow2, npcol2 integer :: i do i = npcol1, nprow1*npcol1, npcol1 map1(2,1,i) = map1(2,1,i) + 1 end do do i = nprow1*npcol1, nprow1*npcol1-npcol1+1, -1 map1(2,2,i) = map1(2,2,i) + 1 end do do i = 1, nprow2*npcol2 map2(2,1,i) = map2(2,1,i) + 1 map2(2,2,i) = map2(2,2,i) + 1 end do end subroutine se_dotfile_map C -------------------------------------------------------------------------- C Purpose: C C -- to adjust the stencil size for boundary processors when there is/are a C NE, SE, SW, or/and NW communication. Consider a 3 x 2 processor C configuration as shown below and suppose there is a NE communication: C C 3 4 5 C 0 1 2 C C processor 0's NE portion will receive from processor 4. However there is C no processor which is NE of processor 4. This routine will make NE C portion of processor 4 available and the data is coming from processor C 5. C C Subroutine parameter description: C C In: ndis -- north displacement C edis -- east displacement C sdis -- south displacement C wdis -- west displacement C flag -- indicator: sending (1) or receiving (2) C C Out: n_adj -- north adjustment C e_adj -- east adjustment C s_adj -- south adjustment C w_adj -- west adjustment C C Revision history: C C Orginal version: 1/17/01 by David Wong C C 12/04/02 by David Wong C -- modified the routine to accommodate worker and C I/O processors partition scheme C -------------------------------------------------------------------------- subroutine se_corner_adjust (ndis, edis, sdis, wdis, flag, & n_adj, e_adj, s_adj, w_adj) use se_pe_info_ext implicit none integer, intent(in) :: ndis, edis, sdis, wdis, flag integer, intent(out) :: n_adj, e_adj, s_adj, w_adj include 'mpif.h' c integer :: my_pe, error c call mpi_comm_rank (se_worker_comm, my_pe, error) n_adj = 0 e_adj = 0 s_adj = 0 w_adj = 0 C -- adjust sending parameters if (flag .eq. 1) then C -- adjustment north and east bound, respectively if ((ndis .gt. 0) .and. (edis .gt. 0)) then if ((se_myworker_pe .gt. 0) .and. (se_myworker_pe .le. se_npcol-1)) then n_adj = ndis end if if ( (se_myworker_pe .lt. se_npcol*se_nprow-1) & .and. (mod(se_myworker_pe, se_npcol) .eq. se_npcol-1)) then e_adj = edis end if end if C -- adjustment south and east bound, respectively if ((sdis .gt. 0) .and. (edis .gt. 0)) then if (se_myworker_pe .gt. se_npcol*(se_nprow-1)) then s_adj = sdis end if if ( (se_myworker_pe .gt. se_npcol-1) & .and. (mod(se_myworker_pe, se_npcol) .eq. se_npcol-1)) then e_adj = edis end if end if C -- adjustment south and west bound, respectively if ((sdis .gt. 0) .and. (wdis .gt. 0)) then if ( (se_myworker_pe .ge. se_npcol*(se_nprow-1)) & .and. (se_myworker_pe .lt. se_npcol*se_nprow-1)) then s_adj = sdis end if if ((mod(se_myworker_pe, se_npcol) .eq. 0) .and. (se_myworker_pe .gt. 0)) then w_adj = wdis end if end if C -- adjustment north and west bound, respectively if ((ndis .gt. 0) .and. (wdis .gt. 0)) then if (se_myworker_pe .lt. se_npcol-1) then n_adj = ndis end if if ( (mod(se_myworker_pe, se_npcol) .eq. 0) & .and. (se_myworker_pe .lt. se_npcol*(se_nprow-1))) then w_adj = wdis end if end if else ! -- adjust receiving parameters C -- adjustment north and east bound, respectively if ((ndis .gt. 0) .and. (edis .gt. 0)) then if (se_myworker_pe .lt. se_npcol-1) then n_adj = ndis end if if ( (se_myworker_pe .gt. se_npcol-1) & .and. (mod(se_myworker_pe, se_npcol) .eq. se_npcol-1)) then e_adj = edis end if end if C -- adjustment south and east bound, respectively if ((sdis .gt. 0) .and. (edis .gt. 0)) then if ( (se_myworker_pe .lt. se_nprow*se_npcol-1) & .and. (se_myworker_pe .ge. se_npcol*(se_nprow-1))) then s_adj = sdis end if if ( (se_myworker_pe .lt. se_nprow*se_npcol-1) & .and. (mod(se_myworker_pe, se_npcol) .eq. se_npcol-1)) then e_adj = edis end if end if C -- adjustment south and west bound, respectively if ((sdis .gt. 0) .and. (wdis .gt. 0)) then if (se_myworker_pe .gt. se_npcol*(se_nprow-1)) then s_adj = sdis end if if ( (mod(se_myworker_pe, se_npcol) .eq. 0) & .and. (se_myworker_pe .lt. se_npcol*(se_nprow-1))) then w_adj = wdis end if end if C -- adjustment north and west bound, respectively if ((ndis .gt. 0) .and. (wdis .gt. 0)) then if ((se_myworker_pe .lt. se_npcol) .and. (se_myworker_pe .ge. 0)) then n_adj = ndis end if if ((mod(se_myworker_pe, se_npcol) .eq. 0) .and. (se_myworker_pe .gt. 0)) then w_adj = wdis end if end if end if end subroutine se_corner_adjust end module se_internal_util_module ================================================ FILE: CCTM/src/STENEX/se/se_modules.f ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/work/rep/STENEX/src/se_snl/se_modules.f,v 1.1 2004/03/26 16:16:47 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% C -------------------------------------------------------------------------- C Purpose: C C to provide an interface between the stencil exchange library and the C application code C C Revision history: C C Orginal version: 11/05/99 by David Wong C 02/27/01 by David Wong C -- include two use statements: use se_term_module and C use se_reconfig_grid_module C 11/27/01 by David Wong C -- include a new module: se_bndy_copy_module C 08/24/11 by David Wong C -- include a new module: se_twoway_comm_module for C the WRF-CMAQ twoway model C -------------------------------------------------------------------------- module se_modules use se_init_module use se_term_module use se_util_module use se_comm_module use se_slice_module use se_data_copy_module use se_gather_module use se_reconfig_grid_module use se_bndy_copy_module use se_global_max_module use se_global_min_module use se_global_sum_module use se_global_gather_module use se_global_bcast_module use se_twoway_comm_module end module se_modules ================================================ FILE: CCTM/src/STENEX/se/se_pe_info_ext.f ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/work/rep/STENEX/src/se_snl/se_pe_info_ext.f,v 1.2 2006/02/17 12:55:04 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% C -------------------------------------------------------------------------- C Note: all these variables with prefix se_ are for stencil exchange library C only C C to define processor info variables: C C se_numprocs -- number of processors allocated C se_npcol -- number of processors allocated along column dimension C se_nprow -- number of processors allocated along row dimension C se_my_pe -- my logical global processor number C se_numworkers -- number of processors in worker partition C se_numiopes -- number of processors in I/O partition C se_myworker_pe -- my logical worker processor number C se_myio_pe -- my logical I/O processor number C se_partition_mode -- processor parition mode: 1 -- no parition C 2 -- worker + I/O parition C se_world_comm -- MPI global communicator C se_worker_comm -- MPI worker communicator C se_io_comm -- MPI I/O communicator C -------------------------------------------------------------------------- module se_pe_info_ext integer :: se_numprocs integer :: se_npcol integer :: se_nprow integer :: se_my_pe integer :: se_numworkers integer :: se_numiopes integer :: se_myworker_pe integer :: se_myio_pe integer :: se_partition_mode integer :: se_world_comm integer :: se_worker_comm integer :: se_io_comm integer, allocatable :: ranks(:) end module se_pe_info_ext ================================================ FILE: CCTM/src/STENEX/se/se_reconfig_grid_info_ext.f ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/work/rep/STENEX/src/se_snl/se_reconfig_grid_info_ext.f,v 1.1 2004/03/26 16:16:47 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% C -------------------------------------------------------------------------- C Note: -- all these variables with prefix se_ are for stencil exchange library C only C -- variable *_ptr is a pointer type variable of its counter part * C C to define grid reconfiguration process common variables: C C se_reconfig_grid_send_ind -- indexes determine which part of the data is C sending C se_reconfig_grid_recv_ind -- indexes determine which part of the data is C receiving C se_reconfig_grid_send -- PE number indicates where data is sending to C se_reconfig_grid_recv -- PE number indicates where data is coming from C se_grid1_map -- mapping info of grid 1 C se_grid2_map -- mapping info of grid 2 C -------------------------------------------------------------------------- module se_reconfig_grid_info_ext integer, allocatable, save, target :: se_reconfig_grid_send_ind(:,:,:) integer, allocatable, save, target :: se_reconfig_grid_recv_ind(:,:,:) integer, pointer :: se_reconfig_grid_send_ind_ptr (:, :, :) integer, pointer :: se_reconfig_grid_recv_ind_ptr (:, :, :) integer, allocatable, save, target :: se_reconfig_grid_send(:) integer, allocatable, save, target :: se_reconfig_grid_recv(:) integer, pointer :: se_reconfig_grid_send_ptr(:) integer, pointer :: se_reconfig_grid_recv_ptr(:) integer, allocatable, target :: se_grid1_map(:,:,:) integer, pointer :: se_grid1_map_ptr(:,:,:) integer, allocatable, target :: se_grid2_map(:,:,:) integer, pointer :: se_grid2_map_ptr(:,:,:) end module se_reconfig_grid_info_ext ================================================ FILE: CCTM/src/STENEX/se/se_reconfig_grid_module.f ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! ! RCS file, release, date & time of last delta, author, state, [and locker] ! $Header: /project/work/rep/STENEX/src/se_snl/se_reconfig_grid_module.f,v 1.2 2006/02/15 15:04:29 yoj Exp $ ! what(1) key, module and SID; SCCS file; date and time of last delta: ! %W% %P% %G% %U% ! -------------------------------------------------------------------------- ! Purpose: ! ! use F90 interface feature to achieve "faked" polymorphism for grid ! reconfigureation routines which consists of two major parts: se_grid_to_grid ! and se_reconfig_data_copy. The former one is to determine data mapping with ! respect of grid reconfiguration. The latter routine is to conduct messages ! sending and receiving. ! ! Revision history: ! ! Orginal version: 02/27/01 by David Wong ! 03/06/02 David Wong ! -- use blocking communication scheme ! -- use array copy mechanism when communicates to itself ! -------------------------------------------------------------------------- module se_reconfig_grid_module implicit none interface se_grid_to_grid module procedure se_grid_to_grid2, & se_grid_to_grid3, & se_grid_to_grid4 end interface interface se_reconfig_data_copy module procedure se_reconfig_data_copy2, & se_reconfig_data_copy3, & se_reconfig_data_copy4 end interface contains C ----------------------------------------------------------------------------- subroutine se_grid_to_grid2 (nprow1, npcol1, map1, data1, & nprow2, npcol2, map2, data2) use se_reconfig_grid_info_ext use se_pe_info_ext implicit none include "mpif.h" integer, intent(in) :: map1(:,:,:), map2(:,:,:) real, intent(inout) :: data1(:,:) real, intent(inout) :: data2(:,:) integer, intent(in) :: nprow1, npcol1, nprow2, npcol2 integer :: mype integer :: tpe, mpe, dpe, error, block, i, j, allocate_status integer :: nprow1npcol1, nprow2npcol2 logical :: intersect nprow1npcol1 = nprow1 * npcol1 nprow2npcol2 = nprow2 * npcol2 c mype = se_my_pe mype = se_myworker_pe C -- allocate data allocate (se_grid1_map(2,2,0:nprow1npcol1-1),stat=allocate_status) if (allocate_status .ne. 0) then print *, ' Allocation error ' stop end if allocate (se_grid2_map(2,2,0:nprow2npcol2-1),stat=allocate_status) if (allocate_status .ne. 0) then print *, ' Allocation error ' stop end if se_grid1_map = map1 se_grid2_map = map2 C -- allocate data allocate (se_reconfig_grid_send_ind(2, 4, 0:nprow2npcol2-1), & stat=allocate_status) if (allocate_status .ne. 0) then print *, ' Subroutine SE_SUBGD_INDEX: ', & ' allocation erorr in se_reconfig_grid_send_ind' stop end if allocate (se_reconfig_grid_recv_ind(2, 4, 0:nprow1npcol1-1), & stat=allocate_status) if (allocate_status .ne. 0) then print *, ' Subroutine SE_SUBGD_INDEX: ', & ' allocation erorr in se_reconfig_grid_recv_ind' stop end if allocate (se_reconfig_grid_send(0:nprow2npcol2-1), & stat=allocate_status) if (allocate_status .ne. 0) then print *, ' Subroutine SE_SUBGD_INDEX: ', & 'allocation erorr in se_reconfig_grid_send' stop end if allocate (se_reconfig_grid_recv(0:nprow1npcol1-1), & stat=allocate_status) if (allocate_status .ne. 0) then print *, ' Subroutine SE_SUBGD_INDEX: ', & 'allocation erorr in se_reconfig_grid_recv' stop end if se_reconfig_grid_send_ind_ptr => se_reconfig_grid_send_ind se_reconfig_grid_recv_ind_ptr => se_reconfig_grid_recv_ind se_reconfig_grid_send_ptr => se_reconfig_grid_send se_reconfig_grid_recv_ptr => se_reconfig_grid_recv se_reconfig_grid_send = -1 if (mype .lt. nprow1npcol1) then do i = 0, nprow2npcol2-1 intersect = .true. if ( (se_grid1_map(1,1,mype) .gt. se_grid2_map(2,1,i)) & .or. (se_grid1_map(2,1,mype) .lt. se_grid2_map(1,1,i))) then intersect = .false. else if ( (se_grid1_map(1,2,mype) .gt. se_grid2_map(2,2,i)) & .or. (se_grid1_map(2,2,mype) .lt. se_grid2_map(1,2,i))) & then intersect = .false. end if end if if (intersect) then se_reconfig_grid_send_ind(1,1,i) = max(se_grid1_map(1,1,mype), & se_grid2_map(1,1,i)) - se_grid1_map(1,1,mype) + 1 se_reconfig_grid_send_ind(2,1,i) = min(se_grid1_map(2,1,mype), & se_grid2_map(2,1,i)) - se_grid1_map(1,1,mype) + 1 se_reconfig_grid_send_ind(1,2,i) = max(se_grid1_map(1,2,mype), & se_grid2_map(1,2,i)) - se_grid1_map(1,2,mype) + 1 se_reconfig_grid_send_ind(2,2,i) = min(se_grid1_map(2,2,mype), & se_grid2_map(2,2,i)) - se_grid1_map(1,2,mype) + 1 se_reconfig_grid_send(i) = i else se_reconfig_grid_send(i) = -1 end if end do end if C -- determine data is going to receive from which PE, and corresponding local C index se_reconfig_grid_recv = -1 if (mype .lt. nprow2npcol2) then do i = 0, nprow1npcol1-1 intersect = .true. if ( (se_grid1_map(1,1,i) .gt. se_grid2_map(2,1,mype)) & .or. (se_grid1_map(2,1,i) .lt. se_grid2_map(1,1,mype))) then intersect = .false. else if ( (se_grid1_map(1,2,i) .gt. se_grid2_map(2,2,mype)) & .or. (se_grid1_map(2,2,i) .lt. se_grid2_map(1,2,mype)))then intersect = .false. end if end if if (intersect) then se_reconfig_grid_recv_ind(1,1,i) = max(se_grid1_map(1,1,i), & se_grid2_map(1,1,mype)) - se_grid2_map(1,1,mype) + 1 se_reconfig_grid_recv_ind(2,1,i) = min(se_grid1_map(2,1,i), & se_grid2_map(2,1,mype)) - se_grid2_map(1,1,mype) + 1 se_reconfig_grid_recv_ind(1,2,i) = max(se_grid1_map(1,2,i), & se_grid2_map(1,2,mype)) - se_grid2_map(1,2,mype) + 1 se_reconfig_grid_recv_ind(2,2,i) = min(se_grid1_map(2,2,i), & se_grid2_map(2,2,mype)) - se_grid2_map(1,2,mype) + 1 se_reconfig_grid_recv(i) = i end if end do end if call se_reconfig_data_copy2 (npcol1, nprow1, data1, & npcol2, nprow2, data2) deallocate (se_grid1_map) deallocate (se_grid2_map) return end subroutine se_grid_to_grid2 C ----------------------------------------------------------------------------- subroutine se_grid_to_grid3 (nprow1, npcol1, map1, data1, & nprow2, npcol2, map2, data2) use se_reconfig_grid_info_ext use se_pe_info_ext implicit none include "mpif.h" integer, intent(in) :: map1(:,:,:), map2(:,:,:) real, intent(inout) :: data1(:,:,:) real, intent(inout) :: data2(:,:,:) integer, intent(in) :: nprow1, npcol1, nprow2, npcol2 integer :: mype integer :: tpe, mpe, dpe, error, block, i, j, allocate_status integer :: nprow1npcol1, nprow2npcol2 logical :: intersect nprow1npcol1 = nprow1 * npcol1 nprow2npcol2 = nprow2 * npcol2 c mype = se_my_pe mype = se_myworker_pe C -- allocate data allocate (se_grid1_map(2,2,0:nprow1npcol1-1),stat=allocate_status) if (allocate_status .ne. 0) then print *, ' Allocation error ' stop end if allocate (se_grid2_map(2,2,0:nprow2npcol2-1),stat=allocate_status) if (allocate_status .ne. 0) then print *, ' Allocation error ' stop end if se_grid1_map = map1 se_grid2_map = map2 C -- allocate data if (.not. allocated(se_reconfig_grid_send_ind)) then allocate (se_reconfig_grid_send_ind(2, 4, 0:nprow2npcol2-1), & stat=allocate_status) if (allocate_status .ne. 0) then print *, ' Subroutine SE_SUBGD_INDEX: ', & ' allocation erorr in se_reconfig_grid_send_ind' stop end if allocate (se_reconfig_grid_recv_ind(2, 4, 0:nprow1npcol1-1), & stat=allocate_status) if (allocate_status .ne. 0) then print *, ' Subroutine SE_SUBGD_INDEX: ', & ' allocation erorr in se_reconfig_grid_recv_ind' stop end if allocate (se_reconfig_grid_send(0:nprow2npcol2-1), & stat=allocate_status) if (allocate_status .ne. 0) then print *, ' Subroutine SE_SUBGD_INDEX: ', & 'allocation erorr in se_reconfig_grid_send' stop end if allocate (se_reconfig_grid_recv(0:nprow1npcol1-1), & stat=allocate_status) if (allocate_status .ne. 0) then print *, ' Subroutine SE_SUBGD_INDEX: ', & 'allocation erorr in se_reconfig_grid_recv' stop end if se_reconfig_grid_send_ind_ptr => se_reconfig_grid_send_ind se_reconfig_grid_recv_ind_ptr => se_reconfig_grid_recv_ind se_reconfig_grid_send_ptr => se_reconfig_grid_send se_reconfig_grid_recv_ptr => se_reconfig_grid_recv end if se_reconfig_grid_send = -1 if (mype .lt. nprow1npcol1) then do i = 0, nprow2npcol2-1 intersect = .true. if ( (se_grid1_map(1,1,mype) .gt. se_grid2_map(2,1,i)) & .or. (se_grid1_map(2,1,mype) .lt. se_grid2_map(1,1,i))) then intersect = .false. else if ( (se_grid1_map(1,2,mype) .gt. se_grid2_map(2,2,i)) & .or. (se_grid1_map(2,2,mype) .lt. se_grid2_map(1,2,i))) & then intersect = .false. end if end if if (intersect) then se_reconfig_grid_send_ind(1,1,i) = max(se_grid1_map(1,1,mype), & se_grid2_map(1,1,i)) - se_grid1_map(1,1,mype) + 1 se_reconfig_grid_send_ind(2,1,i) = min(se_grid1_map(2,1,mype), & se_grid2_map(2,1,i)) - se_grid1_map(1,1,mype) + 1 se_reconfig_grid_send_ind(1,2,i) = max(se_grid1_map(1,2,mype), & se_grid2_map(1,2,i)) - se_grid1_map(1,2,mype) + 1 se_reconfig_grid_send_ind(2,2,i) = min(se_grid1_map(2,2,mype), & se_grid2_map(2,2,i)) - se_grid1_map(1,2,mype) + 1 se_reconfig_grid_send(i) = i else se_reconfig_grid_send(i) = -1 end if end do end if C -- determine data is going to receive from which PE, and corresponding local C index se_reconfig_grid_recv = -1 if (mype .lt. nprow2npcol2) then do i = 0, nprow1npcol1-1 intersect = .true. if ( (se_grid1_map(1,1,i) .gt. se_grid2_map(2,1,mype)) & .or. (se_grid1_map(2,1,i) .lt. se_grid2_map(1,1,mype))) then intersect = .false. else if ( (se_grid1_map(1,2,i) .gt. se_grid2_map(2,2,mype)) & .or. (se_grid1_map(2,2,i) .lt. se_grid2_map(1,2,mype))) & then intersect = .false. end if end if if (intersect) then se_reconfig_grid_recv_ind(1,1,i) = max(se_grid1_map(1,1,i), & se_grid2_map(1,1,mype)) - se_grid2_map(1,1,mype) + 1 se_reconfig_grid_recv_ind(2,1,i) = min(se_grid1_map(2,1,i), & se_grid2_map(2,1,mype)) - se_grid2_map(1,1,mype) + 1 se_reconfig_grid_recv_ind(1,2,i) = max(se_grid1_map(1,2,i), & se_grid2_map(1,2,mype)) - se_grid2_map(1,2,mype) + 1 se_reconfig_grid_recv_ind(2,2,i) = min(se_grid1_map(2,2,i), & se_grid2_map(2,2,mype)) - se_grid2_map(1,2,mype) + 1 se_reconfig_grid_recv(i) = i end if end do end if call se_reconfig_data_copy3 (npcol1, nprow1, data1, & npcol2, nprow2, data2) deallocate (se_grid1_map) deallocate (se_grid2_map) return end subroutine se_grid_to_grid3 C ----------------------------------------------------------------------------- subroutine se_grid_to_grid4 (nprow1, npcol1, map1, data1, & nprow2, npcol2, map2, data2) use se_reconfig_grid_info_ext use se_pe_info_ext implicit none include "mpif.h" integer, intent(in) :: map1(:,:,:), map2(:,:,:) real, intent(inout) :: data1(:,:,:,:) real, intent(inout) :: data2(:,:,:,:) integer, intent(in) :: nprow1, npcol1, nprow2, npcol2 integer :: mype integer :: tpe, mpe, dpe, error, block, i, j, allocate_status integer :: nprow1npcol1, nprow2npcol2 logical, save :: firstime data firstime / .true. / logical :: intersect nprow1npcol1 = nprow1 * npcol1 nprow2npcol2 = nprow2 * npcol2 c mype = se_my_pe mype = se_myworker_pe C -- allocate data allocate (se_grid1_map(2,2,0:nprow1npcol1-1),stat=allocate_status) if (allocate_status .ne. 0) then print *, ' Allocation error ' stop end if allocate (se_grid2_map(2,2,0:nprow2npcol2-1),stat=allocate_status) if (allocate_status .ne. 0) then print *, ' Allocation error ' stop end if se_grid1_map = map1 se_grid2_map = map2 if (firstime) then firstime = .false. C -- allocate data allocate (se_reconfig_grid_send_ind(2, 4, 0:nprow2npcol2-1), & stat=allocate_status) if (allocate_status .ne. 0) then print *, ' Subroutine se_grid_to_grid4: ', & ' allocation erorr in se_reconfig_grid_send_ind' stop end if allocate (se_reconfig_grid_recv_ind(2, 4, 0:nprow1npcol1-1), & stat=allocate_status) if (allocate_status .ne. 0) then print *, ' Subroutine se_grid_to_grid4: ', & ' allocation erorr in se_reconfig_grid_recv_ind' stop end if allocate (se_reconfig_grid_send(0:nprow2npcol2-1), & stat=allocate_status) if (allocate_status .ne. 0) then print *, ' Subroutine SE_SUBGD_INDEX: ', & 'allocation erorr in se_reconfig_grid_send' stop end if allocate (se_reconfig_grid_recv(0:nprow1npcol1-1), & stat=allocate_status) if (allocate_status .ne. 0) then print *, ' Subroutine SE_SUBGD_INDEX: ', & 'allocation erorr in se_reconfig_grid_recv' stop end if se_reconfig_grid_send_ind_ptr => se_reconfig_grid_send_ind se_reconfig_grid_recv_ind_ptr => se_reconfig_grid_recv_ind se_reconfig_grid_send_ptr => se_reconfig_grid_send se_reconfig_grid_recv_ptr => se_reconfig_grid_recv end if se_reconfig_grid_send = -1 if (mype .lt. nprow1npcol1) then do i = 0, nprow2npcol2-1 intersect = .true. if ( (se_grid1_map(1,1,mype) .gt. se_grid2_map(2,1,i)) & .or. (se_grid1_map(2,1,mype) .lt. se_grid2_map(1,1,i))) then intersect = .false. else if ( (se_grid1_map(1,2,mype) .gt. se_grid2_map(2,2,i)) & .or. (se_grid1_map(2,2,mype) .lt. se_grid2_map(1,2,i))) & then intersect = .false. end if end if if (intersect) then se_reconfig_grid_send_ind(1,1,i) = max(se_grid1_map(1,1,mype), & se_grid2_map(1,1,i)) - se_grid1_map(1,1,mype) + 1 se_reconfig_grid_send_ind(2,1,i) = min(se_grid1_map(2,1,mype), & se_grid2_map(2,1,i)) - se_grid1_map(1,1,mype) + 1 se_reconfig_grid_send_ind(1,2,i) = max(se_grid1_map(1,2,mype), & se_grid2_map(1,2,i)) - se_grid1_map(1,2,mype) + 1 se_reconfig_grid_send_ind(2,2,i) = min(se_grid1_map(2,2,mype), & se_grid2_map(2,2,i)) - se_grid1_map(1,2,mype) + 1 se_reconfig_grid_send(i) = i else se_reconfig_grid_send(i) = -1 end if end do end if C -- determine data is going to receive from which PE, and corresponding local C index se_reconfig_grid_recv = -1 if (mype .lt. nprow2npcol2) then do i = 0, nprow1npcol1-1 intersect = .true. if ( (se_grid1_map(1,1,i) .gt. se_grid2_map(2,1,mype)) & .or. (se_grid1_map(2,1,i) .lt. se_grid2_map(1,1,mype))) then intersect = .false. else if ( (se_grid1_map(1,2,i) .gt. se_grid2_map(2,2,mype)) & .or. (se_grid1_map(2,2,i) .lt. se_grid2_map(1,2,mype))) & then intersect = .false. end if end if if (intersect) then se_reconfig_grid_recv_ind(1,1,i) = max(se_grid1_map(1,1,i), & se_grid2_map(1,1,mype)) - se_grid2_map(1,1,mype) + 1 se_reconfig_grid_recv_ind(2,1,i) = min(se_grid1_map(2,1,i), & se_grid2_map(2,1,mype)) - se_grid2_map(1,1,mype) + 1 se_reconfig_grid_recv_ind(1,2,i) = max(se_grid1_map(1,2,i), & se_grid2_map(1,2,mype)) - se_grid2_map(1,2,mype) + 1 se_reconfig_grid_recv_ind(2,2,i) = min(se_grid1_map(2,2,i), & se_grid2_map(2,2,mype)) - se_grid2_map(1,2,mype) + 1 se_reconfig_grid_recv(i) = i end if end do end if call se_reconfig_data_copy4 (npcol1, nprow1, data1, & npcol2, nprow2, data2) deallocate (se_grid1_map) deallocate (se_grid2_map) return end subroutine se_grid_to_grid4 C -------------------------------------------------------------------------- subroutine se_reconfig_data_copy2 (nprow1, npcol1, data1, & nprow2, npcol2, data2) use se_reconfig_grid_info_ext use se_pe_info_ext use se_data_send_module use se_data_recv_module implicit none include "mpif.h" integer, intent(in) :: nprow1, npcol1, nprow2, npcol2 real, intent(in) :: data1(:, :) real, intent(out) :: data2(:, :) integer :: dir, sdir, rdir, tag integer :: request, status(MPI_STATUS_SIZE), error do dir = 0, max(nprow1*npcol1-1, nprow2*npcol2-1) if (dir .lt. nprow2*npcol2) then sdir = dir c if ((se_reconfig_grid_send(sdir) .eq. se_my_pe) .and. if ((se_reconfig_grid_send(sdir) .eq. se_myworker_pe) .and. & (dir .lt. nprow1*npcol1)) then data2( se_reconfig_grid_recv_ind(1,1,sdir) & :se_reconfig_grid_recv_ind(2,1,sdir), & se_reconfig_grid_recv_ind(1,2,sdir) & :se_reconfig_grid_recv_ind(2,2,sdir)) & = & data1( se_reconfig_grid_send_ind(1,1,sdir) & :se_reconfig_grid_send_ind(2,1,sdir), & se_reconfig_grid_send_ind(1,2,sdir) & :se_reconfig_grid_send_ind(2,2,sdir)) else if (se_reconfig_grid_send(sdir) .ge. 0) then c tag = (sdir + 1) * 10000 + se_my_pe tag = (sdir + 1) * 10000 + se_myworker_pe call se_data_send (data1, se_reconfig_grid_send_ind_ptr, & se_reconfig_grid_send_ptr, sdir, tag, & request) end if end if end if if (dir .lt. nprow1*npcol1) then rdir = dir if ((se_reconfig_grid_recv(rdir) .ge. 0) .and. & (se_reconfig_grid_recv(rdir) .ne. se_myworker_pe)) then c & (se_reconfig_grid_recv(rdir) .ne. se_my_pe)) then tag = (se_myworker_pe + 1) * 10000 + rdir c tag = (se_my_pe + 1) * 10000 + rdir call se_data_recv (data2, se_reconfig_grid_recv_ind_ptr, & se_reconfig_grid_recv_ptr, rdir, tag) end if end if c if ((dir .lt. nprow2*npcol2) .and. c & (se_reconfig_grid_send(sdir) .ge. 0)) then c call mpi_wait (request, status, error) c end if end do return end subroutine se_reconfig_data_copy2 C -------------------------------------------------------------------------- subroutine se_reconfig_data_copy3 (nprow1, npcol1, data1, & nprow2, npcol2, data2) use se_reconfig_grid_info_ext use se_pe_info_ext use se_domain_info_ext use se_data_send_module use se_data_recv_module implicit none include "mpif.h" integer, intent(in) :: nprow1, npcol1, nprow2, npcol2 real, intent(in) :: data1(:, :, :) real, intent(out) :: data2(:, :, :) integer :: i, dir, sdir, rdir, tag integer :: request, status(MPI_STATUS_SIZE), error do i = 0, nprow2*npcol2-1 se_reconfig_grid_send_ind(1,3,i) = 1 se_reconfig_grid_send_ind(2,3,i) = size(data1,3) end do do i = 0, nprow1*npcol1-1 se_reconfig_grid_recv_ind(1,3,i) = 1 se_reconfig_grid_recv_ind(2,3,i) = size(data1,3) end do do dir = 0, max(nprow1*npcol1-1, nprow2*npcol2-1) if (dir .lt. nprow2*npcol2) then sdir = dir c if ((se_reconfig_grid_send(sdir) .eq. se_my_pe) .and. if ((se_reconfig_grid_send(sdir) .eq. se_myworker_pe) .and. & (dir .lt. nprow1*npcol1)) then data2( se_reconfig_grid_recv_ind(1,1,sdir) & :se_reconfig_grid_recv_ind(2,1,sdir), & se_reconfig_grid_recv_ind(1,2,sdir) & :se_reconfig_grid_recv_ind(2,2,sdir), & se_reconfig_grid_recv_ind(1,3,sdir) & :se_reconfig_grid_recv_ind(2,3,sdir)) & = & data1( se_reconfig_grid_send_ind(1,1,sdir) & :se_reconfig_grid_send_ind(2,1,sdir), & se_reconfig_grid_send_ind(1,2,sdir) & :se_reconfig_grid_send_ind(2,2,sdir), & se_reconfig_grid_send_ind(1,3,sdir) & :se_reconfig_grid_send_ind(2,3,sdir)) else if (se_reconfig_grid_send(sdir) .ge. 0) then c tag = (sdir + 1) * 10000 + se_my_pe tag = (sdir + 1) * 10000 + se_myworker_pe call se_data_send (data1, se_reconfig_grid_send_ind_ptr, & se_reconfig_grid_send_ptr, sdir, tag, & request) end if end if end if if (dir .lt. nprow1*npcol1) then rdir = dir if ((se_reconfig_grid_recv(rdir) .ge. 0) .and. & (se_reconfig_grid_recv(rdir) .ne. se_myworker_pe)) then c & (se_reconfig_grid_recv(rdir) .ne. se_my_pe)) then c tag = (se_my_pe + 1) * 10000 + rdir tag = (se_myworker_pe + 1) * 10000 + rdir call se_data_recv (data2, se_reconfig_grid_recv_ind_ptr, & se_reconfig_grid_recv_ptr, rdir, tag) end if end if c if ((dir .lt. nprow2*npcol2) .and. c & (se_reconfig_grid_send(sdir) .ge. 0)) then c call mpi_wait (request, status, error) c end if end do return end subroutine se_reconfig_data_copy3 C -------------------------------------------------------------------------- subroutine se_reconfig_data_copy4 (nprow1, npcol1, data1, & nprow2, npcol2, data2) use se_reconfig_grid_info_ext use se_pe_info_ext use se_domain_info_ext use se_data_send_module use se_data_recv_module implicit none include "mpif.h" integer, intent(in) :: nprow1, npcol1, nprow2, npcol2 real, intent(in) :: data1(:, :, :, :) real, intent(out) :: data2(:, :, :, :) integer :: i, dir, sdir, rdir, tag integer :: request, status(MPI_STATUS_SIZE), error do i = 0, nprow2*npcol2-1 se_reconfig_grid_send_ind(1,3,i) = 1 se_reconfig_grid_send_ind(2,3,i) = size(data1,3) se_reconfig_grid_send_ind(1,4,i) = 1 se_reconfig_grid_send_ind(2,4,i) = size(data1,4) end do do i = 0, nprow1*npcol1-1 se_reconfig_grid_recv_ind(1,3,i) = 1 se_reconfig_grid_recv_ind(2,3,i) = size(data1,3) se_reconfig_grid_recv_ind(1,4,i) = 1 se_reconfig_grid_recv_ind(2,4,i) = size(data1,4) end do do dir = 0, max(nprow1*npcol1-1, nprow2*npcol2-1) if (dir .lt. nprow2*npcol2) then sdir = dir c if ((se_reconfig_grid_send(sdir) .eq. se_my_pe) .and. if ((se_reconfig_grid_send(sdir) .eq. se_myworker_pe) .and. & (dir .lt. nprow1*npcol1)) then data2( se_reconfig_grid_recv_ind(1,1,sdir) & :se_reconfig_grid_recv_ind(2,1,sdir), & se_reconfig_grid_recv_ind(1,2,sdir) & :se_reconfig_grid_recv_ind(2,2,sdir), & se_reconfig_grid_recv_ind(1,3,sdir) & :se_reconfig_grid_recv_ind(2,3,sdir), & se_reconfig_grid_recv_ind(1,4,sdir) & :se_reconfig_grid_recv_ind(2,4,sdir)) & = & data1( se_reconfig_grid_send_ind(1,1,sdir) & :se_reconfig_grid_send_ind(2,1,sdir), & se_reconfig_grid_send_ind(1,2,sdir) & :se_reconfig_grid_send_ind(2,2,sdir), & se_reconfig_grid_send_ind(1,3,sdir) & :se_reconfig_grid_send_ind(2,3,sdir), & se_reconfig_grid_send_ind(1,4,sdir) & :se_reconfig_grid_send_ind(2,4,sdir)) else if (se_reconfig_grid_send(sdir) .ge. 0) then c tag = (sdir + 1) * 10000 + se_my_pe tag = (sdir + 1) * 10000 + se_myworker_pe call se_data_send (data1, se_reconfig_grid_send_ind_ptr, & se_reconfig_grid_send_ptr, sdir, tag, & request) end if end if end if if (dir .lt. nprow1*npcol1) then rdir = dir if ((se_reconfig_grid_recv(rdir) .ge. 0) .and. & (se_reconfig_grid_recv(rdir) .ne. se_myworker_pe)) then c & (se_reconfig_grid_recv(rdir) .ne. se_my_pe)) then c tag = (se_my_pe + 1) * 10000 + rdir tag = (se_myworker_pe + 1) * 10000 + rdir call se_data_recv (data2, se_reconfig_grid_recv_ind_ptr, & se_reconfig_grid_recv_ptr, rdir, tag) end if end if c if ((dir .lt. nprow2*npcol2) .and. c & (se_reconfig_grid_send(sdir) .ge. 0)) then c call mpi_wait (request, status, error) c end if end do return end subroutine se_reconfig_data_copy4 end module se_reconfig_grid_module ================================================ FILE: CCTM/src/STENEX/se/se_slice_module.f ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/work/rep/STENEX/src/se_snl/se_slice_module.f,v 1.2 2006/02/15 14:41:56 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% C -------------------------------------------------------------------------- C Purpose: C C use F90 interface feature to achieve "faked" polymorphism for data C slicing routine C C Revision history: C C Orginal version: 11/05/99 by David Wong C Add integer data 12/16/00 by Jeff Young C -------------------------------------------------------------------------- module se_slice_module implicit none interface se_slice module procedure se_slice1i, se_slice1r, & se_slice2i, se_slice2r, & se_slice3i, se_slice3r, & se_slice4i, se_slice4r end interface contains C -------------------------------------------------------------------------- C Purpose: C C to perform transferring a slice of a 1-D integer data C C Revision history: C C Orginal version: 5/26/99 by David Wong C 11/05/99 by David Wong C -- recode the code using F90 syntax C 12/04/02 by David Wong C -- modified the routine to accommodate worker and C I/O processors partition scheme C C Subroutine parameter description: C C In: data -- original data C sourcepe -- source PE C destpe -- target PE C sdim -- slicing dimension C from -- index of the slicing source C to -- index of the slicing destination C C Out: data -- original data after communication C C Local variable description: C C status -- return status of MPI_RECEIVING call C error -- error code of invoking MPI calls C C Include file: C C se_pe_info.ext C C Subroutine/Function call: C C mpi_send C mpi_recv C C -------------------------------------------------------------------------- subroutine se_slice1i (data, sourcepe, destpe, sdim, from, to) use se_pe_info_ext implicit none include "mpif.h" integer, intent(inout) :: data(:) integer, intent(in) :: sourcepe, destpe, sdim, from, to integer :: error integer :: status(MPI_STATUS_SIZE) if ((sourcepe .ge. 0) .and. (destpe .ge. 0) .and. & (sourcepe .ne. destpe)) then if (se_myworker_pe .eq. sourcepe) then C -- send data to corresponding processor call mpi_send (data(from), 1, mpi_integer, destpe, & sourcepe, se_worker_comm, error) else if (se_myworker_pe .eq. destpe) then C -- receive data from corresponding processor call mpi_recv (data(to), 1, mpi_integer, sourcepe, & sourcepe, se_worker_comm, status, error) end if end if return end subroutine se_slice1i C -------------------------------------------------------------------------- C Purpose: C C to perform transferring a slice of a 1-D real data C C Revision history: C C Orginal version: 5/26/99 by David Wong C 11/05/99 by David Wong C -- recode the code using F90 syntax C 12/04/02 by David Wong C -- modified the routine to accommodate worker and C I/O processors partition scheme C C Subroutine parameter description: C C In: data -- original data C sourcepe -- source PE C destpe -- target PE C sdim -- slicing dimension C from -- index of the slicing source C to -- index of the slicing destination C C Out: data -- original data after communication C C Local variable description: C C status -- return status of MPI_RECEIVING call C error -- error code of invoking MPI calls C C Include file: C C se_pe_info.ext C C Subroutine/Function call: C C mpi_send C mpi_recv C C -------------------------------------------------------------------------- subroutine se_slice1r (data, sourcepe, destpe, sdim, from, to) use se_pe_info_ext implicit none include "mpif.h" real, intent(inout) :: data(:) integer, intent(in) :: sourcepe, destpe, sdim, from, to integer :: error integer :: status(MPI_STATUS_SIZE) if ((sourcepe .ge. 0) .and. (destpe .ge. 0) .and. & (sourcepe .ne. destpe)) then if (se_myworker_pe .eq. sourcepe) then C -- send data to corresponding processor call mpi_send (data(from), 1, mpi_real, destpe, & sourcepe, se_worker_comm, error) else if (se_myworker_pe .eq. destpe) then C -- receive data from corresponding processor call mpi_recv (data(to), 1, mpi_real, sourcepe, & sourcepe, se_worker_comm, status, error) end if end if return end subroutine se_slice1r C -------------------------------------------------------------------------- C Purpose: C C transfer a slice of a 2-D integer array C C Revision history: C C Orginal version: 5/26/99 by David Wong C 11/05/99 by David Wong C -- recode the code using F90 syntax C 12/16/00 by Jeff Young C -- mod for integer data C 12/04/02 by David Wong C -- modified the routine to accommodate worker and C I/O processors partition scheme C 09/19/18 by David Wong C -- removed unused variable C C Subroutine parameter description: C C In: data -- original data C sourcepe -- source PE C destpe -- target PE C sdim -- slicing dimension C from -- index of the slicing source C to -- index of the slicing destination C C Out: data -- original data after communication C C Local variable description: C C i, j -- loop indexes C li, ui -- local low and upper index of i dimension C lj, uj -- local low and upper index of j dimension C status -- return status of MPI_RECEIVING call C error -- error code of invoking MPI calls C scount -- number of items need to be sent C rcount -- number of items are expected to receive C sarray -- array to hold sending data C rarray -- array to hold receiving data C C Include file: C C se_pe_info.ext C C Subroutine/Function call: C C mpi_send C mpi_recv C C -------------------------------------------------------------------------- subroutine se_slice2i (data, sourcepe, destpe, sdim, from, to) use se_pe_info_ext implicit none include "mpif.h" integer, intent(inout) :: data(:,:) integer, intent(in) :: sourcepe, destpe, sdim, from, to integer :: error integer :: i, j, li, lj, ui, uj integer :: status(MPI_STATUS_SIZE) integer :: scount, rcount integer :: sarray(size(data)), rarray(size(data)) C -- send data to corresponding processor if ((sourcepe .ge. 0) .and. (destpe .ge. 0) .and. & (sourcepe .ne. destpe)) then li = lbound(data,1) ui = ubound(data,1) lj = lbound(data,2) uj = ubound(data,2) if (se_myworker_pe .eq. sourcepe) then if (sdim .eq. 1) then li = from ui = from else lj = from uj = from end if scount = 0 C -- pack data for sending do j = lj, uj do i = li, ui scount = scount + 1 sarray(scount) = data(i,j) end do end do call mpi_send (sarray, scount, mpi_integer, destpe, & sourcepe, se_worker_comm, error) else if (se_myworker_pe .eq. destpe) then if (sdim .eq. 1) then li = to ui = to else lj = to uj = to end if C -- receive data from corresponding processor rcount = (ui - li + 1) * (uj - lj + 1) call mpi_recv (rarray, rcount, mpi_integer, sourcepe, & sourcepe, se_worker_comm, status, error) C -- unpack received data rcount = 0 do j = lj, uj do i = li, ui rcount = rcount + 1 data(i,j) = rarray(rcount) end do end do end if end if return end subroutine se_slice2i C -------------------------------------------------------------------------- C Purpose: C C to perform transferring a slice of a 2-D real data C C Revision history: C C Orginal version: 5/26/99 by David Wong C 11/05/99 by David Wong C -- recode the code using F90 syntax C 12/04/02 by David Wong C -- modified the routine to accommodate worker and C I/O processors partition scheme C 09/19/18 by David Wong C -- removed unused variable C C Subroutine parameter description: C C In: data -- original data C sourcepe -- source PE C destpe -- target PE C sdim -- slicing dimension C from -- index of the slicing source C to -- index of the slicing destination C C Out: data -- original data after communication C C Local variable description: C C i, j -- loop indexes C li, ui -- local low and upper index of i dimension C lj, uj -- local low and upper index of j dimension C status -- return status of MPI_RECEIVING call C error -- error code of invoking MPI calls C scount -- number of items need to be sent C rcount -- number of items are expected to receive C sarray -- array to hold sending data C rarray -- array to hold receiving data C C Include file: C C se_pe_info.ext C C Subroutine/Function call: C C mpi_send C mpi_recv C C -------------------------------------------------------------------------- subroutine se_slice2r (data, sourcepe, destpe, sdim, from, to) use se_pe_info_ext implicit none include "mpif.h" real, intent(inout) :: data(:,:) integer, intent(in) :: sourcepe, destpe, sdim, from, to integer :: error integer :: i, j, li, lj, ui, uj integer :: status(MPI_STATUS_SIZE) integer :: scount, rcount real :: sarray(size(data)), rarray(size(data)) C -- send data to corresponding processor if ((sourcepe .ge. 0) .and. (destpe .ge. 0) .and. & (sourcepe .ne. destpe)) then li = lbound(data,1) ui = ubound(data,1) lj = lbound(data,2) uj = ubound(data,2) if (se_myworker_pe .eq. sourcepe) then if (sdim .eq. 1) then li = from ui = from else lj = from uj = from end if scount = 0 C -- pack data for sending do j = lj, uj do i = li, ui scount = scount + 1 sarray(scount) = data(i,j) end do end do call mpi_send (sarray, scount, mpi_real, destpe, & sourcepe, se_worker_comm, error) else if (se_myworker_pe .eq. destpe) then if (sdim .eq. 1) then li = to ui = to else lj = to uj = to end if C -- receive data from corresponding processor rcount = (ui - li + 1) * (uj - lj + 1) call mpi_recv (rarray, rcount, mpi_real, sourcepe, & sourcepe, se_worker_comm, status, error) C -- unpack received data rcount = 0 do j = lj, uj do i = li, ui rcount = rcount + 1 data(i,j) = rarray(rcount) end do end do end if end if return end subroutine se_slice2r C -------------------------------------------------------------------------- C Purpose: C C transfer a slice of a 3-D integer array C C Revision history: C C Orginal version: 5/26/99 by David Wong C 11/05/99 by David Wong C -- recode the code using F90 syntax C 12/16/00 by Jeff Young C -- mod for integer data C 12/04/02 by David Wong C -- modified the routine to accommodate worker and C I/O processors partition scheme C C Subroutine parameter description: C C In: data -- original data C sourcepe -- source PE C destpe -- target PE C sdim -- slicing dimension C from -- index of the slicing source C to -- index of the slicing destination C C Out: data -- original data after communication C C Local variable description: C C i, j, k -- loop indexes C li, ui -- local low and upper index of i dimension C lj, uj -- local low and upper index of j dimension C lk, uk -- local low and upper index of k dimension C status -- return status of MPI_RECEIVING call C error -- error code of invoking MPI calls C scount -- number of items need to be sent C rcount -- number of items are expected to receive C sarray -- array to hold sending data C rarray -- array to hold receiving data C C Include file: C C se_pe_info.ext C C Subroutine/Function call: C C mpi_send C mpi_recv C C -------------------------------------------------------------------------- subroutine se_slice3i (data, sourcepe, destpe, sdim, from, to) use se_pe_info_ext implicit none integer, intent(inout) :: data(:,:,:) integer, intent(in) :: sourcepe, destpe, sdim, from, to include "mpif.h" integer :: error integer :: i, j, k, li, lj, lk, ui, uj, uk integer :: status(MPI_STATUS_SIZE) integer :: scount, rcount integer :: sarray(size(data)), rarray(size(data)) if ((sourcepe .ge. 0) .and. (destpe .ge. 0) .and. & (sourcepe .ne. destpe)) then C -- send data to corresponding processor li = lbound(data,1) ui = ubound(data,1) lj = lbound(data,2) uj = ubound(data,2) lk = lbound(data,3) uk = ubound(data,3) if (se_myworker_pe .eq. sourcepe) then if (sdim .eq. 1) then li = from ui = from else if (sdim .eq. 2) then lj = from uj = from else lk = from uk = from end if scount = 0 C -- pack data for sending do k = lk, uk do j = lj, uj do i = li, ui scount = scount + 1 sarray(scount) = data(i,j,k) end do end do end do call mpi_send (sarray, scount, mpi_integer, destpe, & sourcepe, se_worker_comm, error) else if (se_myworker_pe .eq. destpe) then if (sdim .eq. 1) then li = to ui = to else if (sdim .eq. 2) then lj = to uj = to else lk = to uk = to end if C -- receive data from corresponding processor rcount = (ui - li + 1) * (uj - lj + 1) * (uk - lk + 1) call mpi_recv (rarray, rcount, mpi_integer, sourcepe, & sourcepe, se_worker_comm, status, error) C -- unpack received data rcount = 0 do k = lk, uk do j = lj, uj do i = li, ui rcount = rcount + 1 data(i,j,k) = rarray(rcount) end do end do end do end if end if return end subroutine se_slice3i C -------------------------------------------------------------------------- C Purpose: C C to perform transferring a slice of a 3-D data C C Revision history: C C Orginal version: 5/26/99 by David Wong C 11/05/99 by David Wong C -- recode the code using F90 syntax C 12/04/02 by David Wong C -- modified the routine to accommodate worker and C I/O processors partition scheme C C Subroutine parameter description: C C In: data -- original data C sourcepe -- source PE C destpe -- target PE C sdim -- slicing dimension C from -- index of the slicing source C to -- index of the slicing destination C C Out: data -- original data after communication C C Local variable description: C C i, j, k -- loop indexes C li, ui -- local low and upper index of i dimension C lj, uj -- local low and upper index of j dimension C lk, uk -- local low and upper index of k dimension C status -- return status of MPI_RECEIVING call C error -- error code of invoking MPI calls C scount -- number of items need to be sent C rcount -- number of items are expected to receive C sarray -- array to hold sending data C rarray -- array to hold receiving data C C Include file: C C se_pe_info.ext C C Subroutine/Function call: C C mpi_send C mpi_recv C C -------------------------------------------------------------------------- subroutine se_slice3r (data, sourcepe, destpe, sdim, from, to) use se_pe_info_ext implicit none real, intent(inout) :: data(:,:,:) integer, intent(in) :: sourcepe, destpe, sdim, from, to include "mpif.h" integer :: error integer :: i, j, k, li, lj, lk, ui, uj, uk integer :: status(MPI_STATUS_SIZE) integer :: scount, rcount real :: sarray(size(data)), rarray(size(data)) if ((sourcepe .ge. 0) .and. (destpe .ge. 0) .and. & (sourcepe .ne. destpe)) then C -- send data to corresponding processor li = lbound(data,1) ui = ubound(data,1) lj = lbound(data,2) uj = ubound(data,2) lk = lbound(data,3) uk = ubound(data,3) if (se_myworker_pe .eq. sourcepe) then if (sdim .eq. 1) then li = from ui = from else if (sdim .eq. 2) then lj = from uj = from else lk = from uk = from end if scount = 0 C -- pack data for sending do k = lk, uk do j = lj, uj do i = li, ui scount = scount + 1 sarray(scount) = data(i,j,k) end do end do end do call mpi_send (sarray, scount, mpi_real, destpe, & sourcepe, se_worker_comm, error) else if (se_myworker_pe .eq. destpe) then if (sdim .eq. 1) then li = to ui = to else if (sdim .eq. 2) then lj = to uj = to else lk = to uk = to end if C -- receive data from corresponding processor rcount = (ui - li + 1) * (uj - lj + 1) * (uk - lk + 1) call mpi_recv (rarray, rcount, mpi_real, sourcepe, & sourcepe, se_worker_comm, status, error) C -- unpack received data rcount = 0 do k = lk, uk do j = lj, uj do i = li, ui rcount = rcount + 1 data(i,j,k) = rarray(rcount) end do end do end do end if end if return end subroutine se_slice3r C -------------------------------------------------------------------------- C Purpose: C C transfer a slice of a 4-D integer array C C Revision history: C C Orginal version: 5/26/99 by David Wong C 11/05/99 by David Wong C -- recode the code using F90 syntax C 12/16/00 by Jeff Young C -- mod for integer data C 12/04/02 by David Wong C -- modified the routine to accommodate worker and C I/O processors partition scheme C C Subroutine parameter description: C C In: data -- original data C sourcepe -- source PE C destpe -- target PE C sdim -- slicing dimension C from -- index of the slicing source C to -- index of the slicing destination C C Out: data -- original data after communication C C Local variable description: C C i, j, k, l -- loop indexes C li, ui -- local low and upper index of i dimension C lj, uj -- local low and upper index of j dimension C lk, uk -- local low and upper index of k dimension C ll, ul -- local low and upper index of l dimension C status -- return status of MPI_RECEIVING call C error -- error code of invoking MPI calls C scount -- number of items need to be sent C rcount -- number of items are expected to receive C sarray -- array to hold sending data C rarray -- array to hold receiving data C C Include file: C C se_pe_info.ext C C Subroutine/Function call: C C mpi_send C mpi_recv C C -------------------------------------------------------------------------- subroutine se_slice4i (data, sourcepe, destpe, sdim, from, to) use se_pe_info_ext implicit none include "mpif.h" integer, intent(inout) :: data(:,:,:,:) integer, intent(in) :: sourcepe, destpe, sdim, from, to integer :: error integer :: i, j, k, l, li, lj, lk, ll, ui, uj, uk, ul integer :: status(MPI_STATUS_SIZE) integer :: scount, rcount integer :: sarray(size(data)), rarray(size(data)) if ((sourcepe .ge. 0) .and. (destpe .ge. 0) .and. & (sourcepe .ne. destpe)) then C -- send data to corresponding processor li = lbound(data,1) ui = ubound(data,1) lj = lbound(data,2) uj = ubound(data,2) lk = lbound(data,3) uk = ubound(data,3) ll = lbound(data,4) ul = ubound(data,4) if (se_myworker_pe .eq. sourcepe) then if (sdim .eq. 1) then li = from ui = from else if (sdim .eq. 2) then lj = from uj = from else if (sdim .eq. 3) then lk = from uk = from else ll = from ul = from end if scount = 0 C -- pack data for sending do l = ll, ul do k = lk, uk do j = lj, uj do i = li, ui scount = scount + 1 sarray(scount) = data(i,j,k,l) end do end do end do end do call mpi_send (sarray, scount, mpi_integer, destpe, & sourcepe, se_worker_comm, error) else if (se_myworker_pe .eq. destpe) then if (sdim .eq. 1) then li = to ui = to else if (sdim .eq. 2) then lj = to uj = to else if (sdim .eq. 3) then lk = to uk = to else ll = to ul = to end if C -- receive data from corresponding processor rcount = (ui - li + 1) * (uj - lj + 1) & * (uk - lk + 1) * (ul - ll + 1) call mpi_recv (rarray, rcount, mpi_integer, sourcepe, & sourcepe, se_worker_comm, status, error) C -- unpack received data rcount = 0 do l = ll, ul do k = lk, uk do j = lj, uj do i = li, ui rcount = rcount + 1 data(i,j,k,l) = rarray(rcount) end do end do end do end do end if end if return end subroutine se_slice4i C -------------------------------------------------------------------------- C Purpose: C C to perform transferring a slice of a 4-D real data C C Revision history: C C Orginal version: 5/26/99 by David Wong C 11/05/99 by David Wong C -- recode the code using F90 syntax C 12/04/02 by David Wong C -- modified the routine to accommodate worker and C I/O processors partition scheme C C Subroutine parameter description: C C In: data -- original data C sourcepe -- source PE C destpe -- target PE C sdim -- slicing dimension C from -- index of the slicing source C to -- index of the slicing destination C C Out: data -- original data after communication C C Local variable description: C C i, j, k, l -- loop indexes C li, ui -- local low and upper index of i dimension C lj, uj -- local low and upper index of j dimension C lk, uk -- local low and upper index of k dimension C ll, ul -- local low and upper index of l dimension C status -- return status of MPI_RECEIVING call C error -- error code of invoking MPI calls C scount -- number of items need to be sent C rcount -- number of items are expected to receive C sarray -- array to hold sending data C rarray -- array to hold receiving data C C Include file: C C se_pe_info.ext C C Subroutine/Function call: C C mpi_send C mpi_recv C C -------------------------------------------------------------------------- subroutine se_slice4r (data, sourcepe, destpe, sdim, from, to) use se_pe_info_ext implicit none include "mpif.h" real, intent(inout) :: data(:,:,:,:) integer, intent(in) :: sourcepe, destpe, sdim, from, to integer :: error integer :: i, j, k, l, li, lj, lk, ll, ui, uj, uk, ul integer :: status(MPI_STATUS_SIZE) integer :: scount, rcount real :: sarray(size(data)), rarray(size(data)) if ((sourcepe .ge. 0) .and. (destpe .ge. 0) .and. & (sourcepe .ne. destpe)) then C -- send data to corresponding processor li = lbound(data,1) ui = ubound(data,1) lj = lbound(data,2) uj = ubound(data,2) lk = lbound(data,3) uk = ubound(data,3) ll = lbound(data,4) ul = ubound(data,4) if (se_myworker_pe .eq. sourcepe) then if (sdim .eq. 1) then li = from ui = from else if (sdim .eq. 2) then lj = from uj = from else if (sdim .eq. 3) then lk = from uk = from else ll = from ul = from end if scount = 0 C -- pack data for sending do l = ll, ul do k = lk, uk do j = lj, uj do i = li, ui scount = scount + 1 sarray(scount) = data(i,j,k,l) end do end do end do end do call mpi_send (sarray, scount, mpi_real, destpe, & sourcepe, se_worker_comm, error) else if (se_myworker_pe .eq. destpe) then if (sdim .eq. 1) then li = to ui = to else if (sdim .eq. 2) then lj = to uj = to else if (sdim .eq. 3) then lk = to uk = to else ll = to ul = to end if C -- receive data from corresponding processor rcount = (ui - li + 1) * (uj - lj + 1) & * (uk - lk + 1) * (ul - ll + 1) call mpi_recv (rarray, rcount, mpi_real, sourcepe, & sourcepe, se_worker_comm, status, error) C -- unpack received data rcount = 0 do l = ll, ul do k = lk, uk do j = lj, uj do i = li, ui rcount = rcount + 1 data(i,j,k,l) = rarray(rcount) end do end do end do end do end if end if return end subroutine se_slice4r end module se_slice_module ================================================ FILE: CCTM/src/STENEX/se/se_subgrid_info_ext.f ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/work/rep/STENEX/src/se_snl/se_subgrid_info_ext.f,v 1.1 2004/03/26 16:16:47 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% C -------------------------------------------------------------------------- C Note: -- all these variables with prefix se_ are for stencil exchange library C only C C to define sub-grid common variables: C C se_my_subgrid_beglev -- beginning level number of sub-grid C se_my_subgrid_endlev -- ending level number of sub-grid C se_subgrid_ind -- same as se_gl_ind but on fine sub grid C se_subgrid_send -- holding processor number info where data is sending C to C se_subgrid_recv -- holding processor number info where data is receiving C from C se_subgrid_send_ind -- holding row (first two entries) and column (second C two entries) dimensions of data for sending C se_subgrid_recv_ind -- holding row (first two entries) and column (second C two entries) dimensions of data for receiving C -------------------------------------------------------------------------- module se_subgrid_info_ext integer :: se_my_subgrid_beglev integer :: se_my_subgrid_endlev integer, allocatable, save, target :: se_subgrid_ind (:, :, :) integer, pointer :: se_subgrid_ind_ptr (:, :, :) integer, allocatable, save, target :: se_subgrid_send_ind (:, :, :) integer, allocatable, save, target :: se_subgrid_recv_ind (:, :, :) integer, pointer :: se_subgrid_send_ind_ptr (:, :, :) integer, pointer :: se_subgrid_recv_ind_ptr (:, :, :) integer, allocatable, save, target :: se_subgrid_send(:) integer, allocatable, save, target :: se_subgrid_recv(:) integer, pointer :: se_subgrid_send_ptr(:) integer, pointer :: se_subgrid_recv_ptr(:) end module se_subgrid_info_ext ================================================ FILE: CCTM/src/STENEX/se/se_term_module.f ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/work/rep/STENEX/src/se_snl/se_term_module.f,v 1.2 2006/02/15 14:45:31 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% C -------------------------------------------------------------------------- C Purpose: C C to terminate stenex library C C Revision history: C C Orginal version: 11/30/00 by David Wong C C 12/04/02 by David Wong C -- made the routine more robust by checking C allocation first before any deallocate call C -------------------------------------------------------------------------- module se_term_module implicit none contains subroutine se_term use se_pe_info_ext use se_domain_info_ext use se_reconfig_grid_info_ext use se_subgrid_info_ext implicit none if (allocated(ranks)) then deallocate(ranks) end if if (allocated(se_gl_ind)) then deallocate (se_gl_ind) end if if (allocated(se_reconfig_grid_send_ind)) then deallocate (se_reconfig_grid_send_ind) deallocate (se_reconfig_grid_recv_ind) end if if (allocated(se_subgrid_send_ind)) then deallocate (se_subgrid_send_ind) deallocate (se_subgrid_recv_ind) deallocate (se_subgrid_send) deallocate (se_subgrid_recv) deallocate (se_subgrid_ind) end if return end subroutine se_term end module se_term_module ================================================ FILE: CCTM/src/STENEX/se/se_twoway_comm_module.f ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! ! RCS file, release, date & time of last delta, author, state, [and locker] ! $Header: /home/wdx/lib/src/junk/junk/CMAQv5.0.1/models/STENEX/src/se_snl/se_twoway_comm_module.f,v 1.1.1.1 2012/04/19 19:48:15 sjr Exp $ ! what(1) key, module and SID; SCCS file; date and time of last delta: ! %W% %P% %G% %U% !----------------------------------------------------------------------- ! Purpose: ! implement data exchange between WRF and CMAQ to accommodate different ! domain sizes and domain decomposition strategies ! Revision history: ! Orginal version: 4/10/07 by David Wong ! Modified: 5/21/12 by David Wong ! -- used a more strict hand-shake paradiagm for communication ! Modified: 9/30/15 by David Wong ! -- reduced the value of tag to accommodate various MPI ! implementation !----------------------------------------------------------------------- module se_twoway_comm_module use se_comm_info_ext implicit none integer, private :: wrf_cmaq_loc_ngb(0:8) = -1 integer, private :: wrf_cmaq_loc_ngb_send_to(0:8, 2) = -1 integer, private :: wrf_cmaq_loc_ngb_recv_from(0:8, 2) = -1 logical, private :: wrf_cmaq_computed = .false. integer, private :: cmaq_wrf_loc_ngb(0:8) = -1 integer, private :: cmaq_wrf_loc_ngb_send_to(0:8, 2) = -1 integer, private :: cmaq_wrf_loc_ngb_recv_from(0:8, 2) = -1 logical, private :: cmaq_wrf_computed = .false. interface se_wrf_cmaq_comm module procedure se_wrf_cmaq_comm2, se_wrf_cmaq_comm3, se_wrf_cmaq_comm4 end interface interface se_cmaq_wrf_comm module procedure se_cmaq_wrf_comm2, se_cmaq_wrf_comm3, se_cmaq_wrf_comm4 end interface contains ! ----------------------------------------------------------------------------- subroutine se_wrf_cmaq_comm2 (mype, wrf_data, cmaq_data, & wrf_cmaq_send_to, wrf_cmaq_recv_from, & wrf_cmaq_send_index_l, wrf_cmaq_recv_index_l, & flag) implicit none integer, intent(in) :: mype real, intent(in) :: wrf_data(:,:) real, intent(out) :: cmaq_data(:,:) integer, pointer :: wrf_cmaq_send_to(:,:), wrf_cmaq_recv_from(:,:) integer, pointer :: wrf_cmaq_send_index_l(:,:,:), wrf_cmaq_recv_index_l(:,:,:) integer, intent(in) :: flag include "mpif.h" integer :: c, r, lc, lr, i, j, k, index, sdir, rdir, $ request, status(MPI_STATUS_SIZE), error integer :: data_size, tag, li, lj, s_ind, r_ind real,allocatable :: sarray(:), rarray(:) logical :: found call compute_ngb (mype, wrf_cmaq_loc_ngb, se_twoway_npcol, $ se_twoway_nprow) do k = 0, 8 call loc_index (wrf_cmaq_loc_ngb(k), wrf_cmaq_send_to(:,mype), $ wrf_cmaq_loc_ngb_send_to(k,1), $ wrf_cmaq_loc_ngb_send_to(k,2)) call loc_index (wrf_cmaq_loc_ngb(8-k), wrf_cmaq_recv_from(:,mype), $ wrf_cmaq_loc_ngb_recv_from(8-k,1), $ wrf_cmaq_loc_ngb_recv_from(8-k,2)) end do do k = 0, 8 sdir = wrf_cmaq_loc_ngb_send_to(k,1) rdir = wrf_cmaq_loc_ngb_recv_from(8-k,1) if (sdir > -1) then s_ind = wrf_cmaq_loc_ngb_send_to(k,2) j = (s_ind - 1) * 3 + 1 if (mype .eq. sdir) then found = .false. li = 0 do while (.not. found) li = li + 1 if (mype .eq. wrf_cmaq_recv_from(li, mype)) then found = .true. lj = (li - 1) * 3 + 1 end if end do lr = wrf_cmaq_recv_index_l(lj,2,mype) - 1 do r = wrf_cmaq_send_index_l(j,2,mype), wrf_cmaq_send_index_l(j+1,2,mype) lr = lr + 1 lc = wrf_cmaq_recv_index_l(lj,1,mype) - 1 do c = wrf_cmaq_send_index_l(j,1,mype), wrf_cmaq_send_index_l(j+1,1,mype) lc = lc + 1 cmaq_data(lc,lr) = wrf_data(c,r) end do end do else data_size = wrf_cmaq_send_index_l(j+2,1,mype) * wrf_cmaq_send_index_l(j+2,2,mype) allocate (sarray(data_size), stat=error) index = 0 do r = wrf_cmaq_send_index_l(j,2,mype), wrf_cmaq_send_index_l(j+1,2,mype) do c = wrf_cmaq_send_index_l(j,1,mype), wrf_cmaq_send_index_l(j+1,1,mype) index = index + 1 sarray(index) = wrf_data(c,r) end do end do ! tag = flag * 1000000 + mype * 1000 + sdir tag = flag * 1000 + sdir call mpi_send (sarray, data_size, mpi_real, sdir, & tag, mpi_comm_world, error) deallocate (sarray) end if end if if (rdir > -1) then if (mype .ne. rdir) then r_ind = wrf_cmaq_loc_ngb_recv_from(8-k,2) j = (r_ind - 1) * 3 + 1 data_size = wrf_cmaq_recv_index_l(j+2,1,mype) * wrf_cmaq_recv_index_l(j+2,2,mype) allocate (rarray(data_size), stat=error) ! tag = flag * 1000000 + rdir * 1000 + mype tag = flag * 1000 + mype call mpi_recv (rarray, data_size, mpi_real, rdir, tag, $ mpi_comm_world, status, error) index = 0 do r = wrf_cmaq_recv_index_l(j,2,mype), wrf_cmaq_recv_index_l(j+1,2,mype) do c = wrf_cmaq_recv_index_l(j,1,mype), wrf_cmaq_recv_index_l(j+1,1,mype) index = index + 1 cmaq_data(c,r) = rarray(index) end do end do deallocate (rarray) end if end if end do return end subroutine se_wrf_cmaq_comm2 ! ----------------------------------------------------------------------------- subroutine se_wrf_cmaq_comm3 (mype, wrf_data, cmaq_data, & wrf_cmaq_send_to, wrf_cmaq_recv_from, & wrf_cmaq_send_index_l, wrf_cmaq_recv_index_l, & flag) implicit none integer, intent(in) :: mype real, intent(in) :: wrf_data(:,:,:) real, intent(out) :: cmaq_data(:,:,:) integer, pointer :: wrf_cmaq_send_to(:,:), wrf_cmaq_recv_from(:,:) ! integer, intent(in) :: wrf_cmaq_send_to(:,:), wrf_cmaq_recv_from(:,:) integer, pointer :: wrf_cmaq_send_index_l(:,:,:), wrf_cmaq_recv_index_l(:,:,:) integer, intent(in) :: flag include "mpif.h" integer :: c, r, lc, lr, d, i, j, k, index, sdir, rdir, $ request, status(MPI_STATUS_SIZE), error integer :: data_size, size_3d, tag, li, lj, s_ind, r_ind real,allocatable :: sarray(:), rarray(:) ! real :: sarray(size(wrf_data)) ! the second dimension is needed to keep the send ! data since all the send instructions are done ! before any receive instruction ! real :: rarray(size(cmaq_data)) logical :: found integer :: total_s, total_r, n_s, n_r integer :: total_ss, total_rr, n_ss, n_rr ! if (.not. wrf_cmaq_computed) then call compute_ngb (mype, wrf_cmaq_loc_ngb, se_twoway_npcol, $ se_twoway_nprow) ! write (6, '(a13, 9i5)') ' ==dw3 ngb a ', wrf_cmaq_loc_ngb ! write (6, '(a15, 20i5)') ' ==dw3 send to ', ! $ wrf_cmaq_send_to(0:wrf_cmaq_send_to(0,mype), mype) ! write (6, '(a15, 20i5)') ' ==dw3 recv fr ', ! $ wrf_cmaq_recv_from(0:wrf_cmaq_recv_from(0,mype), mype) wrf_cmaq_computed = .true. do k = 0, 8 call loc_index (wrf_cmaq_loc_ngb(k), wrf_cmaq_send_to(:,mype), $ wrf_cmaq_loc_ngb_send_to(k,1), $ wrf_cmaq_loc_ngb_send_to(k,2)) call loc_index (wrf_cmaq_loc_ngb(8-k), wrf_cmaq_recv_from(:,mype), $ wrf_cmaq_loc_ngb_recv_from(8-k,1), $ wrf_cmaq_loc_ngb_recv_from(8-k,2)) end do ! do k = 0, 8 ! write (6, '(a13, 9i5)') ' ==dw3 ngb b ', k, wrf_cmaq_loc_ngb_send_to(k,:) ! end do ! do k = 0, 8 ! write (6, '(a13, 9i5)') ' ==dw3 ngb c ', k, wrf_cmaq_loc_ngb_recv_from(k,:) ! end do ! end if size_3d = size(wrf_data, 3) total_s = 0 total_r = 0 n_s = 0 n_r = 0 do k = 0, 8 ! call loc_index (loc_ngb(k), wrf_cmaq_send_to(:,mype), sdir, s_ind) ! call loc_index (loc_ngb(8-k), wrf_cmaq_recv_from(:,mype), rdir, r_ind) sdir = wrf_cmaq_loc_ngb_send_to(k,1) rdir = wrf_cmaq_loc_ngb_recv_from(8-k,1) ! write (6, '(a7, 30i5)') ' ==d== ', k, mype, loc_ngb(k), wrf_cmaq_send_to(:,mype), sdir, s_ind ! write (6, '(a7, 30i5)') ' ==d== ', k, mype, loc_ngb(8-k), wrf_cmaq_recv_from(:,mype), rdir, r_ind ! goto 999 if (sdir > -1) then total_s = total_s + 1 s_ind = wrf_cmaq_loc_ngb_send_to(k,2) j = (s_ind - 1) * 3 + 1 if (mype .eq. sdir) then found = .false. li = 0 do while (.not. found) li = li + 1 if (mype .eq. wrf_cmaq_recv_from(li, mype)) then found = .true. lj = (li - 1) * 3 + 1 end if end do lr = wrf_cmaq_recv_index_l(lj,2,mype) - 1 do r = wrf_cmaq_send_index_l(j,2,mype), wrf_cmaq_send_index_l(j+1,2,mype) lr = lr + 1 lc = wrf_cmaq_recv_index_l(lj,1,mype) - 1 do c = wrf_cmaq_send_index_l(j,1,mype), wrf_cmaq_send_index_l(j+1,1,mype) lc = lc + 1 cmaq_data(lc,lr,:) = wrf_data(c,r,:) end do end do else data_size = size_3d * wrf_cmaq_send_index_l(j+2,1,mype) * wrf_cmaq_send_index_l(j+2,2,mype) allocate (sarray(data_size), stat=error) index = 0 do d = 1, size_3d do r = wrf_cmaq_send_index_l(j,2,mype), wrf_cmaq_send_index_l(j+1,2,mype) do c = wrf_cmaq_send_index_l(j,1,mype), wrf_cmaq_send_index_l(j+1,1,mype) index = index + 1 sarray(index) = wrf_data(c,r,d) end do end do end do ! tag = flag * 1000000 + mype * 1000 + sdir tag = flag * 1000 + sdir ! write (6, '(a12, 2i5, 8i10)') ' ==dw3 send ', j, sdir, tag, data_size, ! $ size_3d, wrf_cmaq_send_index_l(j+2,1,mype), ! $ wrf_cmaq_send_index_l(j+2,2,mype), size(sarray) call mpi_send (sarray, data_size, mpi_real, sdir, & tag, mpi_comm_world, error) ! n_s = n_s + 1 ! call mpi_send (mype, 1, mpi_integer, sdir, ! & tag, mpi_comm_world, error) deallocate (sarray) end if end if if (rdir > -1) then total_r = total_r + 1 if (mype .ne. rdir) then r_ind = wrf_cmaq_loc_ngb_recv_from(8-k,2) j = (r_ind - 1) * 3 + 1 data_size = size_3d * wrf_cmaq_recv_index_l(j+2,1,mype) * wrf_cmaq_recv_index_l(j+2,2,mype) allocate (rarray(data_size), stat=error) ! tag = flag * 1000000 + rdir * 1000 + mype tag = flag * 1000 + mype call mpi_recv (rarray, data_size, mpi_real, rdir, tag, $ mpi_comm_world, status, error) ! n_r = n_r + 1 ! call mpi_recv (request, 1, mpi_integer, rdir, tag, mpi_comm_world, status, error) ! write (6, '(a12, 2i5, 10i8)') ' ==dw3 recv ', j, rdir, tag, ! $ data_size, size_3d, wrf_cmaq_recv_index_l(j+2,1,mype), ! $ wrf_cmaq_recv_index_l(j+2,2,mype), size(rarray) index = 0 do d = 1, size_3d do r = wrf_cmaq_recv_index_l(j,2,mype), wrf_cmaq_recv_index_l(j+1,2,mype) do c = wrf_cmaq_recv_index_l(j,1,mype), wrf_cmaq_recv_index_l(j+1,1,mype) index = index + 1 cmaq_data(c,r,d) = rarray(index) end do end do end do deallocate (rarray) end if end if 999 continue end do end subroutine se_wrf_cmaq_comm3 ! ----------------------------------------------------------------------------- subroutine se_wrf_cmaq_comm4 (mype, wrf_data, cmaq_data, & wrf_cmaq_send_to, wrf_cmaq_recv_from, & wrf_cmaq_send_index_l, wrf_cmaq_recv_index_l, & flag) implicit none integer, intent(in) :: mype real, intent(in) :: wrf_data(:,:,:,:) real, intent(out) :: cmaq_data(:,:,:,:) integer, pointer :: wrf_cmaq_send_to(:,:), wrf_cmaq_recv_from(:,:) integer, pointer :: wrf_cmaq_send_index_l(:,:,:), wrf_cmaq_recv_index_l(:,:,:) integer, intent(in) :: flag include "mpif.h" integer :: sdir, rdir, size_l_v, nlays, nvars, si, ri logical :: done integer :: c, r, l, v, i, j, k, data_size, tag, li, lj, s_ind, $ r_ind, index, lr, lc, $ request, status(MPI_STATUS_SIZE), error real,allocatable :: sarray(:), rarray(:) logical :: found call compute_ngb (mype, wrf_cmaq_loc_ngb, se_twoway_npcol, $ se_twoway_nprow) do k = 0, 8 call loc_index (wrf_cmaq_loc_ngb(k), wrf_cmaq_send_to(:,mype), $ wrf_cmaq_loc_ngb_send_to(k,1), $ wrf_cmaq_loc_ngb_send_to(k,2)) call loc_index (wrf_cmaq_loc_ngb(8-k), wrf_cmaq_recv_from(:,mype), $ wrf_cmaq_loc_ngb_recv_from(8-k,1), $ wrf_cmaq_loc_ngb_recv_from(8-k,2)) end do nlays = size(wrf_data, 3) nvars = size(wrf_data, 4) size_l_v = nlays * nvars do k = 0, 8 sdir = wrf_cmaq_loc_ngb_send_to(k,1) rdir = wrf_cmaq_loc_ngb_recv_from(8-k,1) if (sdir > -1) then s_ind = wrf_cmaq_loc_ngb_send_to(k,2) j = (s_ind - 1) * 3 + 1 if (mype .eq. sdir) then found = .false. li = 0 do while (.not. found) li = li + 1 if (mype .eq. wrf_cmaq_recv_from(li, mype)) then found = .true. lj = (li - 1) * 3 + 1 end if end do lr = wrf_cmaq_recv_index_l(lj,2,mype) - 1 do r = wrf_cmaq_send_index_l(j,2,mype), wrf_cmaq_send_index_l(j+1,2,mype) lr = lr + 1 lc = wrf_cmaq_recv_index_l(lj,1,mype) - 1 do c = wrf_cmaq_send_index_l(j,1,mype), wrf_cmaq_send_index_l(j+1,1,mype) lc = lc + 1 cmaq_data(lc,lr,:,:) = wrf_data(c,r,:,:) end do end do else data_size = size_l_v * wrf_cmaq_send_index_l(j+2,1,mype) * wrf_cmaq_send_index_l(j+2,2,mype) allocate (sarray(data_size), stat=error) index = 0 do v = 1, nvars do l = 1, nlays do r = wrf_cmaq_send_index_l(j,2,mype), wrf_cmaq_send_index_l(j+1,2,mype) do c = wrf_cmaq_send_index_l(j,1,mype), wrf_cmaq_send_index_l(j+1,1,mype) index = index + 1 sarray(index) = wrf_data(c,r,l,v) end do end do end do end do ! tag = flag * 1000000 + mype * 1000 + sdir tag = flag * 1000 + sdir call mpi_send (sarray, data_size, mpi_real, sdir, & tag, mpi_comm_world, error) deallocate (sarray) end if end if if (rdir > -1) then if (mype .ne. rdir) then r_ind = wrf_cmaq_loc_ngb_recv_from(8-k,2) j = (r_ind - 1) * 3 + 1 data_size = size_l_v * wrf_cmaq_recv_index_l(j+2,1,mype) * wrf_cmaq_recv_index_l(j+2,2,mype) allocate (rarray(data_size), stat=error) ! tag = flag * 1000000 + rdir * 1000 + mype tag = flag * 1000 + mype call mpi_recv (rarray, data_size, mpi_real, rdir, tag, $ mpi_comm_world, status, error) index = 0 do v = 1, nvars do l = 1, nlays do r = wrf_cmaq_recv_index_l(j,2,mype), wrf_cmaq_recv_index_l(j+1,2,mype) do c = wrf_cmaq_recv_index_l(j,1,mype), wrf_cmaq_recv_index_l(j+1,1,mype) index = index + 1 cmaq_data(c,r,l,v) = rarray(index) end do end do end do end do deallocate (rarray) end if end if end do return end subroutine se_wrf_cmaq_comm4 ! ----------------------------------------------------------------------------- subroutine se_cmaq_wrf_comm2 (mype, cmaq_data, wrf_data, & cmaq_wrf_send_to, cmaq_wrf_recv_from, & cmaq_wrf_send_index_l, cmaq_wrf_recv_index_l, & flag) implicit none integer, intent(in) :: mype real, intent(in) :: cmaq_data(:,:) real, intent(out) :: wrf_data(:,:) integer, pointer :: cmaq_wrf_send_to(:,:), cmaq_wrf_recv_from(:,:) integer, pointer :: cmaq_wrf_send_index_l(:,:,:), cmaq_wrf_recv_index_l(:,:,:) integer, intent(in) :: flag include "mpif.h" integer :: c, r, lc, lr, i, j, k, index, sdir, rdir, $ request, status(MPI_STATUS_SIZE), error integer :: data_size, tag, li, lj, s_ind, r_ind real,allocatable :: sarray(:), rarray(:) logical :: found call compute_ngb (mype, cmaq_wrf_loc_ngb, se_twoway_npcol, $ se_twoway_nprow) do k = 0, 8 call loc_index (cmaq_wrf_loc_ngb(k), cmaq_wrf_send_to(:,mype), $ cmaq_wrf_loc_ngb_send_to(k,1), $ cmaq_wrf_loc_ngb_send_to(k,2)) call loc_index (cmaq_wrf_loc_ngb(8-k), cmaq_wrf_recv_from(:,mype), $ cmaq_wrf_loc_ngb_recv_from(8-k,1), $ cmaq_wrf_loc_ngb_recv_from(8-k,2)) end do do k = 0, 8 sdir = cmaq_wrf_loc_ngb_send_to(k,1) rdir = cmaq_wrf_loc_ngb_recv_from(8-k,1) if (sdir > -1) then s_ind = cmaq_wrf_loc_ngb_send_to(k,2) j = (s_ind - 1) * 3 + 1 if (mype .eq. sdir) then found = .false. li = 0 do while (.not. found) li = li + 1 if (mype .eq. cmaq_wrf_recv_from(li, mype)) then found = .true. lj = (li - 1) * 3 + 1 end if end do lr = cmaq_wrf_recv_index_l(lj,2,mype) - 1 do r = cmaq_wrf_send_index_l(j,2,mype), cmaq_wrf_send_index_l(j+1,2,mype) lr = lr + 1 lc = cmaq_wrf_recv_index_l(lj,1,mype) - 1 do c = cmaq_wrf_send_index_l(j,1,mype), cmaq_wrf_send_index_l(j+1,1,mype) lc = lc + 1 wrf_data(lc,lr) = cmaq_data(c,r) end do end do else data_size = cmaq_wrf_send_index_l(j+2,1,mype) * cmaq_wrf_send_index_l(j+2,2,mype) allocate (sarray(data_size), stat=error) index = 0 do r = cmaq_wrf_send_index_l(j,2,mype), cmaq_wrf_send_index_l(j+1,2,mype) do c = cmaq_wrf_send_index_l(j,1,mype), cmaq_wrf_send_index_l(j+1,1,mype) index = index + 1 sarray(index) = cmaq_data(c,r) end do end do ! tag = flag * 1000000 + mype * 1000 + sdir tag = flag * 1000 + sdir call mpi_send (sarray, data_size, mpi_real, sdir, & tag, mpi_comm_world, error) deallocate (sarray) end if end if if (rdir > -1) then if (mype .ne. rdir) then r_ind = cmaq_wrf_loc_ngb_recv_from(8-k,2) j = (r_ind - 1) * 3 + 1 data_size = cmaq_wrf_recv_index_l(j+2,1,mype) * cmaq_wrf_recv_index_l(j+2,2,mype) allocate (rarray(data_size), stat=error) ! tag = flag * 1000000 + rdir * 1000 + mype tag = flag * 1000 + mype call mpi_recv (rarray, data_size, mpi_real, rdir, tag, $ mpi_comm_world, status, error) index = 0 do r = cmaq_wrf_recv_index_l(j,2,mype), cmaq_wrf_recv_index_l(j+1,2,mype) do c = cmaq_wrf_recv_index_l(j,1,mype), cmaq_wrf_recv_index_l(j+1,1,mype) index = index + 1 wrf_data(c,r) = rarray(index) end do end do deallocate (rarray) end if end if end do return end subroutine se_cmaq_wrf_comm2 ! ----------------------------------------------------------------------------- subroutine se_cmaq_wrf_comm3 (mype, cmaq_data, wrf_data, & cmaq_wrf_send_to, cmaq_wrf_recv_from, & cmaq_wrf_send_index_l, cmaq_wrf_recv_index_l, & flag) implicit none integer, intent(in) :: mype real, intent(in) :: cmaq_data(:,:,:) real, intent(out) :: wrf_data(:,:,:) integer, pointer :: cmaq_wrf_send_to(:,:), cmaq_wrf_recv_from(:,:) integer, pointer :: cmaq_wrf_send_index_l(:,:,:), cmaq_wrf_recv_index_l(:,:,:) integer, intent(in) :: flag include "mpif.h" integer :: c, r, lc, lr, d, i, j, k, index, sdir, rdir, $ request, status(MPI_STATUS_SIZE), error integer :: data_size, size_3d, tag, li, lj, s_ind, r_ind real,allocatable :: sarray(:), rarray(:) logical :: found integer :: total_s, total_r, n_s, n_r integer :: total_ss, total_rr, n_ss, n_rr ! if (.not. cmaq_wrf_computed) then call compute_ngb (mype, cmaq_wrf_loc_ngb, se_twoway_npcol, $ se_twoway_nprow) ! write (6, '(a13, 9i5)') ' ==dc3 ngb a ', cmaq_wrf_loc_ngb ! write (6, '(a15, 20i5)') ' ==dc3 send to ', ! $ cmaq_wrf_send_to(0:cmaq_wrf_send_to(0,mype), mype) ! write (6, '(a15, 20i5)') ' ==dc3 recv fr ', ! $ cmaq_wrf_recv_from(0:cmaq_wrf_recv_from(0,mype), mype) cmaq_wrf_computed = .true. do k = 0, 8 call loc_index (cmaq_wrf_loc_ngb(k), cmaq_wrf_send_to(:,mype), $ cmaq_wrf_loc_ngb_send_to(k,1), $ cmaq_wrf_loc_ngb_send_to(k,2)) call loc_index (cmaq_wrf_loc_ngb(8-k), cmaq_wrf_recv_from(:,mype), $ cmaq_wrf_loc_ngb_recv_from(8-k,1), $ cmaq_wrf_loc_ngb_recv_from(8-k,2)) end do ! do k = 0, 8 ! write (6, '(a13, 9i5)') ' ==dc3 ngb b ', k, cmaq_wrf_loc_ngb_send_to(k,:) ! end do ! do k = 0, 8 ! write (6, '(a13, 9i5)') ' ==dc3 ngb c ', k, cmaq_wrf_loc_ngb_recv_from(k,:) ! end do ! end if size_3d = size(cmaq_data, 3) n_s = 0 n_r = 0 do k = 0, 8 sdir = cmaq_wrf_loc_ngb_send_to(k,1) rdir = cmaq_wrf_loc_ngb_recv_from(8-k,1) if (sdir > -1) then total_s = total_s + 1 s_ind = cmaq_wrf_loc_ngb_send_to(k,2) j = (s_ind - 1) * 3 + 1 if (mype .eq. sdir) then found = .false. li = 0 do while (.not. found) li = li + 1 if (mype .eq. cmaq_wrf_recv_from(li, mype)) then found = .true. lj = (li - 1) * 3 + 1 end if end do lr = cmaq_wrf_recv_index_l(lj,2,mype) - 1 do r = cmaq_wrf_send_index_l(j,2,mype), cmaq_wrf_send_index_l(j+1,2,mype) lr = lr + 1 lc = cmaq_wrf_recv_index_l(lj,1,mype) - 1 do c = cmaq_wrf_send_index_l(j,1,mype), cmaq_wrf_send_index_l(j+1,1,mype) lc = lc + 1 wrf_data(lc,lr,:) = cmaq_data(c,r,:) end do end do else data_size = size_3d * cmaq_wrf_send_index_l(j+2,1,mype) * cmaq_wrf_send_index_l(j+2,2,mype) allocate (sarray(data_size), stat=error) index = 0 do d = 1, size_3d do r = cmaq_wrf_send_index_l(j,2,mype), cmaq_wrf_send_index_l(j+1,2,mype) do c = cmaq_wrf_send_index_l(j,1,mype), cmaq_wrf_send_index_l(j+1,1,mype) index = index + 1 sarray(index) = cmaq_data(c,r,d) end do end do end do ! tag = flag * 1000000 + mype * 1000 + sdir tag = flag * 1000 + sdir ! write (6, '(a12, 2i5, 8i10)') ' ==dc3 send ', j, sdir, tag, data_size, ! $ size_3d, cmaq_wrf_send_index_l(j+2,1,mype), ! $ cmaq_wrf_send_index_l(j+2,2,mype), size(sarray) call mpi_send (sarray, data_size, mpi_real, sdir, & tag, mpi_comm_world, error) deallocate (sarray) end if end if if (rdir > -1) then total_r = total_r + 1 if (mype .ne. rdir) then r_ind = cmaq_wrf_loc_ngb_recv_from(8-k,2) j = (r_ind - 1) * 3 + 1 data_size = size_3d * cmaq_wrf_recv_index_l(j+2,1,mype) * cmaq_wrf_recv_index_l(j+2,2,mype) allocate (rarray(data_size), stat=error) ! tag = flag * 1000000 + rdir * 1000 + mype tag = flag * 1000 + mype call mpi_recv (rarray, data_size, mpi_real, rdir, tag, $ mpi_comm_world, status, error) ! write (6, '(a12, 2i5, 10i8)') ' ==dc3 recv ', j, rdir, tag, ! $ data_size, size_3d, cmaq_wrf_recv_index_l(j+2,1,mype), ! $ cmaq_wrf_recv_index_l(j+2,2,mype), size(rarray) index = 0 do d = 1, size_3d do r = cmaq_wrf_recv_index_l(j,2,mype), cmaq_wrf_recv_index_l(j+1,2,mype) do c = cmaq_wrf_recv_index_l(j,1,mype), cmaq_wrf_recv_index_l(j+1,1,mype) index = index + 1 wrf_data(c,r,d) = rarray(index) end do end do end do deallocate (rarray) end if end if end do end subroutine se_cmaq_wrf_comm3 ! ----------------------------------------------------------------------------- subroutine se_cmaq_wrf_comm4 (mype, cmaq_data, wrf_data, & cmaq_wrf_send_to, cmaq_wrf_recv_from, & cmaq_wrf_send_index_l, cmaq_wrf_recv_index_l, & flag) implicit none integer, intent(in) :: mype real, intent(in) :: cmaq_data(:,:,:,:) real, intent(out) :: wrf_data(:,:,:,:) integer, pointer :: cmaq_wrf_send_to(:,:), cmaq_wrf_recv_from(:,:) integer, pointer :: cmaq_wrf_send_index_l(:,:,:), cmaq_wrf_recv_index_l(:,:,:) integer, intent(in) :: flag include "mpif.h" integer :: sdir, rdir, size_l_v, nlays, nvars, si, ri logical :: done integer :: c, r, l, v, i, j, k, data_size, tag, li, lj, s_ind, $ r_ind, index, lr, lc, $ request, status(MPI_STATUS_SIZE), error real,allocatable :: sarray(:), rarray(:) logical :: found call compute_ngb (mype, cmaq_wrf_loc_ngb, se_twoway_npcol, $ se_twoway_nprow) ! write (6, '(a13, 9i5)') ' ==dc4 ngb a ', cmaq_wrf_loc_ngb ! write (6, '(a15, 20i5)') ' ==dc4 send to ', ! $ cmaq_wrf_send_to(0:cmaq_wrf_send_to(0,mype), mype) ! write (6, '(a15, 20i5)') ' ==dc4 recv fr ', ! $ cmaq_wrf_recv_from(0:cmaq_wrf_recv_from(0,mype), mype) do k = 0, 8 call loc_index (cmaq_wrf_loc_ngb(k), cmaq_wrf_send_to(:,mype), $ cmaq_wrf_loc_ngb_send_to(k,1), $ cmaq_wrf_loc_ngb_send_to(k,2)) call loc_index (cmaq_wrf_loc_ngb(8-k), cmaq_wrf_recv_from(:,mype), $ cmaq_wrf_loc_ngb_recv_from(8-k,1), $ cmaq_wrf_loc_ngb_recv_from(8-k,2)) end do ! do k = 0, 8 ! write (6, '(a13, 9i5)') ' ==dc4 ngb b ', k, cmaq_wrf_loc_ngb_send_to(k,:) ! end do ! do k = 0, 8 ! write (6, '(a13, 9i5)') ' ==dc4 ngb c ', k, cmaq_wrf_loc_ngb_recv_from(k,:) ! end do nlays = size(cmaq_data, 3) nvars = size(cmaq_data, 4) size_l_v = nlays * nvars do k = 0, 8 sdir = cmaq_wrf_loc_ngb_send_to(k,1) rdir = cmaq_wrf_loc_ngb_recv_from(8-k,1) if (sdir > -1) then s_ind = cmaq_wrf_loc_ngb_send_to(k,2) j = (s_ind - 1) * 3 + 1 if (mype .eq. sdir) then found = .false. li = 0 do while (.not. found) li = li + 1 if (mype .eq. cmaq_wrf_recv_from(li, mype)) then found = .true. lj = (li - 1) * 3 + 1 end if end do lr = cmaq_wrf_recv_index_l(lj,2,mype) - 1 do r = cmaq_wrf_send_index_l(j,2,mype), cmaq_wrf_send_index_l(j+1,2,mype) lr = lr + 1 lc = cmaq_wrf_recv_index_l(lj,1,mype) - 1 do c = cmaq_wrf_send_index_l(j,1,mype), cmaq_wrf_send_index_l(j+1,1,mype) lc = lc + 1 wrf_data(lc,lr,:,:) = cmaq_data(c,r,:,:) end do end do else data_size = size_l_v * cmaq_wrf_send_index_l(j+2,1,mype) * cmaq_wrf_send_index_l(j+2,2,mype) allocate (sarray(data_size), stat=error) index = 0 do v = 1, nvars do l = 1, nlays do r = cmaq_wrf_send_index_l(j,2,mype), cmaq_wrf_send_index_l(j+1,2,mype) do c = cmaq_wrf_send_index_l(j,1,mype), cmaq_wrf_send_index_l(j+1,1,mype) index = index + 1 sarray(index) = cmaq_data(c,r,l,v) end do end do end do end do ! tag = flag * 1000000 + mype * 1000 + sdir tag = flag * 1000 + sdir ! write (6, '(a12, 2i5, 8i10)') ' ==dc4 send ', j, sdir, tag, data_size, ! $ size_l_v, cmaq_wrf_send_index_l(j+2,1,mype), ! $ cmaq_wrf_send_index_l(j+2,2,mype), size(sarray) call mpi_send (sarray, data_size, mpi_real, sdir, & tag, mpi_comm_world, error) deallocate (sarray) end if end if if (rdir > -1) then if (mype .ne. rdir) then r_ind = cmaq_wrf_loc_ngb_recv_from(8-k,2) j = (r_ind - 1) * 3 + 1 data_size = size_l_v * cmaq_wrf_recv_index_l(j+2,1,mype) * cmaq_wrf_recv_index_l(j+2,2,mype) allocate (rarray(data_size), stat=error) ! tag = flag * 1000000 + rdir * 1000 + mype tag = flag * 1000 + mype ! write (6, '(a12, 2i5, 10i8)') ' ==dc4 recv ', j, rdir, tag, ! $ data_size, size_l_v, cmaq_wrf_recv_index_l(j+2,1,mype), ! $ cmaq_wrf_recv_index_l(j+2,2,mype), size(rarray) call mpi_recv (rarray, data_size, mpi_real, rdir, tag, $ mpi_comm_world, status, error) index = 0 do v = 1, nvars do l = 1, nlays do r = cmaq_wrf_recv_index_l(j,2,mype), cmaq_wrf_recv_index_l(j+1,2,mype) do c = cmaq_wrf_recv_index_l(j,1,mype), cmaq_wrf_recv_index_l(j+1,1,mype) index = index + 1 wrf_data(c,r,l,v) = rarray(index) end do end do end do end do deallocate (rarray) end if end if end do return end subroutine se_cmaq_wrf_comm4 ! ----------------------------------------------------------------------------- subroutine se_twoway_send4 (mype, si, sdir, source_data, dest_data, & recv_from, send_index_l, & recv_index_l, flag, size_l_v, & nvars, nlays) integer, intent(in) :: mype, si, sdir, size_l_v, nvars, nlays real, intent(in) :: source_data(:,:,:,:) real, intent(out) :: dest_data(:,:,:,:) integer, pointer :: recv_from(:,:) integer, pointer :: send_index_l(:,:,:), recv_index_l(:,:,:) integer, intent(in) :: flag include "mpif.h" integer :: c, r, lc, lr, l, v, j, index, request, status(MPI_STATUS_SIZE), error integer :: data_size, tag, lj, li real, allocatable :: sarray(:) logical :: found allocate (sarray(size(source_data)), stat=error) j = (si - 1) * 3 + 1 ! 1st diminsion of *_index_l array has three components: ! starting index, ending index, and distance ! between starting and ending indices if (mype .eq. sdir) then found = .false. li = 0 do while (.not. found) li = li + 1 if (mype .eq. recv_from(li, mype)) then found = .true. lj = (li - 1) * 3 + 1 end if end do do v = 1, nvars do l = 1, nlays lr = recv_index_l(lj,2,mype) - 1 do r = send_index_l(j,2,mype), send_index_l(j+1,2,mype) lr = lr + 1 lc = recv_index_l(lj,1,mype) - 1 do c = send_index_l(j,1,mype), send_index_l(j+1,1,mype) lc = lc + 1 dest_data(lc,lr,l,v) = source_data(c,r,l,v) end do end do end do end do else data_size = size_l_v * send_index_l(j+2,1,mype) * send_index_l(j+2,2,mype) index = 0 do v = 1, nvars do l = 1, nlays do r = send_index_l(j,2,mype), send_index_l(j+1,2,mype) do c = send_index_l(j,1,mype), send_index_l(j+1,1,mype) index = index + 1 sarray(index) = source_data(c,r,l,v) end do end do end do end do ! tag = flag * 1000000 + mype * 1000 + sdir tag = flag * 1000 + sdir ! call mpi_issend (sarray(1:data_size), data_size, mpi_real, sdir, ! & tag, mpi_comm_world, request, error) call mpi_send (sarray(1:data_size), data_size, mpi_real, sdir, & tag, mpi_comm_world, error) ! call mpi_wait (request, status, error) ! call mpi_request_free (request, error) end if deallocate (sarray) end subroutine se_twoway_send4 ! ----------------------------------------------------------------------------- subroutine se_twoway_recv4 (mype, ri, rdir, dest_data, & recv_index_l, flag, size_l_v, & nvars, nlays) integer, intent(in) :: mype, ri, rdir, size_l_v, nvars, nlays real, intent(out) :: dest_data(:,:,:,:) integer, pointer :: recv_index_l(:,:,:) integer, intent(in) :: flag include "mpif.h" integer :: c, r, lc, lr, l, v, j, index, request, status(MPI_STATUS_SIZE), error integer :: data_size, tag real, allocatable :: rarray(:) logical :: found allocate (rarray(size(dest_data)), stat=error) j = (ri - 1) * 3 + 1 ! 1st diminsion of *_index_l array has three components: ! starting index, ending index, and distance ! between starting and ending indices data_size = size_l_v * recv_index_l(j+2,1,mype) * recv_index_l(j+2,2,mype) ! tag = flag * 1000000 + rdir * 1000 + mype tag = flag * 1000 + mype call mpi_recv (rarray(1:data_size), data_size, mpi_real, rdir, tag, mpi_comm_world, status, error) index = 0 do v = 1, nvars do l = 1, nlays do r = recv_index_l(j,2,mype), recv_index_l(j+1,2,mype) do c = recv_index_l(j,1,mype), recv_index_l(j+1,1,mype) index = index + 1 dest_data(c,r,l,v) = rarray(index) end do end do end do end do deallocate (rarray) end subroutine se_twoway_recv4 ! ----------------------------------------------------------------------------- subroutine compute_ngb (mype, loc_ngb, npcol, nprow) integer, intent(in) :: mype, npcol, nprow integer, intent(out) :: loc_ngb(0:) integer :: loci, locj, pos, i, j integer, parameter :: conv(9) = (/ 0, 1, 2, 3, 5, 6, 7, 8, 4 /) loci = mype / npcol locj = mod ( mype, npcol ) pos = 0 do i = loci-1, loci+1 do j = locj-1, locj+1 if ( ( i .ne. loci ) .or. ( j .ne. locj ) ) then pos = pos + 1 if ( ( i .ge. 0 ) .and. ( i .lt. nprow ) .and. & ( j .ge. 0 ) .and. ( j .lt. npcol ) ) then loc_ngb( conv( pos ) ) = i * npcol + j else loc_ngb( conv( pos ) ) = -1 end if else loc_ngb( 4 ) = mype end if end do end do end subroutine compute_ngb ! ----------------------------------------------------------------------------- subroutine loc_index (pe, list, dir, ind) integer, intent(in) :: pe, list(0:) integer, intent(out) :: dir, ind logical :: found integer :: n found = .false. n = 0 dir = -1 ind = -1 do while ((.not. found) .and. (n < list(0))) n = n + 1 if (list(n) == pe) then found = .true. dir = list(n) ind = n end if end do end subroutine loc_index end module se_twoway_comm_module ================================================ FILE: CCTM/src/STENEX/se/se_util_module.f ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/work/rep/STENEX/src/se_snl/se_util_module.f,v 1.3 2006/02/17 12:54:05 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% C -------------------------------------------------------------------------- C Purpose: C C use F90 interface feature to achieve "faked" polymorphism for data C initialization routine and use F90 module feature to collect a set of C utility routines which consists of: C C se_init_array C se_hi_lo_bnd_pe C se_loop_index C se_barrier C se_global_min_data C se_global_to_local_coord C se_subgrid_index C se_sum_chk C se_my_region C se_global_logical C se_in_syn C C that are used directly from the application C C Revision history: C C Orginal version: 11/05/99 by David Wong C 02/11/00 by David Wong C -- include a new module, se_csg_index.f C 04/24/00 by David Wong C -- include a new module, se_global_logical.f C 11/05/00 by David Wong C -- use F90 interface construct to distinguish integer or C real array initialization C -- use F90 interface construct to distinguish integer or C real check sum C 08/24/11 by David Wong C -- eliminated data orientation C ----------------------------------------------------------------------------- module se_util_module implicit none interface se_init_array module procedure se_init_iarray, se_init_rarray end interface interface se_sum_chk module procedure se_isum_chk, se_rsum_chk end interface interface se_subgrid_index module procedure se_subgrid_index_2, se_subgrid_index_3, & se_subgrid_index_n2, se_subgrid_index_n3 end interface contains C ----------------------------------------------------------------------------- C Purpose: C C initialize an array with a specific integer value C C Subroutine parameter description: C C In: wpe -- input array C val -- initial value C C Out: wpe C C Local variable: i -- loop index C C Revision history: C C Orginal version: 6/18/99 by David Wong C 11/05/99 by David Wong C -- recode the code using F90 syntax C ----------------------------------------------------------------------------- subroutine se_init_iarray ( wpe, val ) implicit none integer, intent(out) :: wpe(:) integer, intent(in) :: val integer i do i = 1, size(wpe,1) wpe(i) = val end do return end subroutine se_init_iarray C ----------------------------------------------------------------------------- C Purpose: C C initialize an array with a specific real value C C Subroutine parameter description: C C In: wpe -- input array C val -- initial value C C Out: wpe C C Local variable: i -- loop index C C Revision history: C C Orginal version: 10/05/00 by David Wong C ----------------------------------------------------------------------------- subroutine se_init_rarray ( wpe, val ) implicit none real, intent(out) :: wpe(:) real, intent(in) :: val integer i do i = 1, size(wpe,1) wpe(i) = val end do return end subroutine se_init_rarray C ----------------------------------------------------------------------------- C Purpose: C C To determine if a processor contains global boundary cells and if the C processor is a low boundary or high boundary processor according to the C domain decomposition. C C For example, suppose there are 4 processors with 1 x 4 processor C configuration as follows: C C 0 1 2 3 C C In row orientation, PE 0 is a low boundary processor, and PE 3 is a high C boundary processor. C C In column orientation, PE 0 is both a low and a high boundary processor. C C Revision history: C C Orginal version: 1/19/99 by David Wong C 11/05/99 by David Wong C -- recode the code using F90 syntax C 11/05/00 by David Wong C -- replaced 'R' with 'Y' (Y-axis) and 'C' with 'X' C (X-axis) to provide a better description of variable C ori C 12/20/00 by Jeff Young C -- add optional 'R' or 'Y' and 'C' or 'X' C 08/24/11 by David Wong C -- removed se_ori_ext to eliminate data and geo orientation C C Subroutine parameter description: C C In: ori -- orientation of 1-D data from the grid domain, row or column C C Out: low_index -- logical variable to indicate processor along North or C West boundary depends on the orientation C high_index -- logical variable to indicate processor along South or C East boundary depends on the orientation C C Local variable description: C C top -- position of the North of West direction in the se_nbg_pe array C bot -- position of the South of East direction in the se_nbg_pe array C C Include files: C C se_comm_info_ext C ----------------------------------------------------------------------------- subroutine se_hi_lo_bnd_pe (ori, low_index, high_index) use se_comm_info_ext ! use se_ori_ext implicit none character, intent(in) :: ori logical, intent(out) :: low_index, high_index integer :: top, bot if (ori .eq. 'Y' .or. ori .eq. 'R') then top = 1 bot = 5 else top = 7 bot = 3 end if low_index = .false. high_index = .false. if (se_ngb_pe(top) .eq. -1) then low_index = .true. end if if (se_ngb_pe(bot) .eq. -1) then high_index = .true. end if return end subroutine se_hi_lo_bnd_pe C ----------------------------------------------------------------------------- C Purpose: C C To map loop indexes INDEX1..INDEX2 in the serial code to the corresponding C starting and ending loop indexes in the parallel code, when a 1-D array, C extracted for a row or a column of the grid domain is passed into an C advection subroutine. These indexes depend on processor location in the C domain decomposition processor map and whether the processor contains an C exterior boundary. C The following description illustrates mapping serial loop indexes to C parallel code loop indexes: C C serial loop parallel local C index loop index C C a 1 C a+1 2 C . . C . . C . . C a+i i+1 C ------------ processor boundary ---------- C a+i+1 1 C . . C . . C . . C a+j j-i C ------------ processor boundary ---------- C a+j+1 1 C . . C . . C . . C a+n-1 n-j-1 C a+n n-j C C C Here is an example: given 16 processors with a 4 x 4 processor map, and a C domain grid size 18 x 25 (row x column), so C C processor map: 12 13 14 15 C 8 9 10 11 C 4 5 6 7 C 0 1 2 3 C C proc # nrows x ncols my_nrows x my_ncols C ------------------------------------------------------- C 0,4 5 x 7 5 x 7 C 1,2,3,5,6,7 5 x 7 5 x 6 C 8,12 5 x 7 4 x 7 C 9,10,11,13,14,15 5 x 7 4 x 6 C C For a row of the 2D domain (in xadv*.F), processors 0, 4, 8, and 12 are C BNDY_LO_PE's, processors 3, 7, 11, and 15 are BNDY_HI_PE's, and the rest C of the processors are interior processors. If for the serial code, a loop C runs from 3 to 22, then the starting and ending indexes are: C C proc # starting index ending index C ------------------------------------------------------ C 0,4,8,12 3 7 C 1,2,5,6,9,10,13,14 1 6 C 3,7,11,15 1 3 C C For a column of the 2D domain (in yadv*.F), processors 0, 1, 2, and 3 are C BNDY_LO_PE's, processors 12, 13, 14, and 15 are BNDY_HI_PE's, and the rest C of the processors are interior processors. If for the serial code, a loop C runs from 2 to 17, then the starting and ending indexes are: C C proc # starting index ending index C ------------------------------------------------------ C 0,1,2,3 2 5 C 4,5,6,7 1 5 C 8,9,10,11 1 4 C 12,13,14,15 1 3 C C C Revision history: C C Orginal version: 9/14/98 by David Wong C : 1/19/99 by David Wong C took away lo and hi boundary pe calculation, calculate dif C locally C 11/05/99 by David Wong C -- recode the code using F90 syntax C 12/20/00 by Jeff Young C -- add optional 'R' or 'Y' and 'C' or 'X' C 08/24/11 by David Wong C -- removed se_ori_ext to eliminate data and geo orientation C C Subroutine parameter description: C C In: ori -- orientation of 1-D data from the grid domain, row or column C gstart -- original starting point of the loop C gend -- original data dimension C dif -- difference in ending dimension for a loop, such that C GEND + DIF is the orginal ending point C C Out: my_nn -- number of data points in the processor C start -- loop starting index of data in the processor C end -- loop ending index of data in the processor C C Local variable description: C C top -- position of the North of West direction in the se_nbg_pe array C bot -- position of the South of East direction in the se_nbg_pe array C dif -- difference in the original loop ending count C C Include files: C C se_domain_info_ext C ----------------------------------------------------------------------------- subroutine se_loop_index (ori, gstart, gend, dif, my_nn, start, end) use se_domain_info_ext use se_comm_info_ext ! use se_ori_ext implicit none integer, intent(out) :: my_nn, start, end character, intent(in) :: ori integer, intent(in) :: gstart, gend, dif integer :: top, bot if (ori .eq. 'Y' .or. ori .eq. 'R') then top = 1 bot = 5 my_nn = se_my_nrows else top = 7 bot = 3 my_nn = se_my_ncols end if start = 1 end = my_nn if (se_ngb_pe(top) .eq. -1) then start = gstart end if if (se_ngb_pe(bot) .eq. -1) then end = my_nn + dif end if return end subroutine se_loop_index C -------------------------------------------------------------------------- C Purpose: C C to set a barrier for synchronization purpose (hiding details from user and C avoid to include any MPI header files in the original code). C C Local variable description: C C error -- return error of calling MPI subroutine C C Revision history: C C Orginal version: 9/14/98 by David Wong C C 11/05/99 by David Wong C -- recode the code using F90 syntax C 12/04/02 by David Wong C -- modified the routine to accommodate worker and C I/O processors partition scheme C 01/30/17 by David Wong C -- modified the routine to avoid unnecessary creating C and destroying communicator C -------------------------------------------------------------------------- subroutine se_barrier (flag) use se_pe_info_ext implicit none character, optional, intent(in) :: flag include "mpif.h" integer :: local_comm, error if (present(flag)) then call mpi_comm_dup (se_worker_comm, local_comm, error) call mpi_barrier (local_comm, error) call mpi_comm_free (local_comm, error) else call mpi_barrier (mpi_comm_world, error) end if return end subroutine se_barrier C ----------------------------------------------------------------------------- C Purpose: C C to determine the global minimum of variable VAR and broadcast data which are C associated with the minimum VAR C C Note: this is a specific subroutine for 11 associated data. If the number of C associated data is changed, a new subroutin is needed. C C Revision history: C C Orginal version: 2/15/99 by David Wong C C 11/05/99 by David Wong C -- recode the code using F90 syntax C C 12/04/02 by David Wong C -- modified the routine to accommodate worker and C I/O processors partition scheme C C Parameter List: C C In: var -- distributed variable which needs be determined the min value C among all processors C C Out: col, C row, C lvl, C meddyv, C never, C mtrop, C ftrop, C mth1, C mth2, C mrib, C mws -- data which are associated with the minimum var C C Local Variable: C C num_item -- number of associated variables C datain -- an array holds var and its associated PE number C dataout -- an array holds the minimum of var and its associated PE number C in PE 0 only C packdata -- an array holds all the associated data C min_pe -- PE number assoicated with minimum var C error -- error code of mpi call C C Include Files: C C mpif.h C se_pe_info_ext C se_domain_info_ext C ----------------------------------------------------------------------------- subroutine se_global_min_data (var, col, row, lvl, meddyv, never, & mtrop, ftrop, mth1, mth2, mrib, mws) use se_pe_info_ext use se_domain_info_ext implicit none real, intent(in) :: var real, intent(inout) :: meddyv, mth1, mth2, mrib, mws integer, intent(inout) :: col, row, lvl, mtrop logical, intent(inout) :: never, ftrop include "mpif.h" integer :: num_item = 11 real :: datain(2), dataout(2) real, allocatable :: packdata(:) integer :: min_pe, error, allocate_status C -- allocate data allocate (packdata(num_item), stat=allocate_status) if (allocate_status .ne. 0) then print *, ' Allocation error in subroutine SE_GLOBAL_MIN_DATA' stop end if datain(1) = var datain(2) = float(se_myworker_pe) call mpi_reduce (datain, dataout, 1, mpi_2real, MPI_MINLOC, 0, & se_worker_comm, error) call mpi_bcast (dataout(2), 1, mpi_real, 0, se_worker_comm, error) min_pe = dataout(2) packdata(1) = col + se_gl_ind(1, 2, min_pe) - 1 packdata(2) = row + se_gl_ind(1, 1, min_pe) - 1 packdata(3) = lvl packdata(4) = meddyv if (never) then packdata(5) = 0.0 else packdata(5) = 1.0 end if packdata(6) = float(mtrop) if (ftrop) then packdata(7) = 0.0 else packdata(7) = 1.0 end if packdata(8) = mth1 packdata(9) = mth2 packdata(10) = mrib packdata(11) = mws call mpi_bcast (packdata, num_item, mpi_real, min_pe, se_worker_comm, & error) col = packdata(1) row = packdata(2) lvl = packdata(3) meddyv = packdata(4) if (packdata(5) .eq. 0.0) then never = .true. else never = .false. end if mtrop = packdata(6) if (packdata(7) .eq. 0.0) then ftrop = .true. else ftrop = .false. end if mth1 = packdata(8) mth2 = packdata(9) mrib = packdata(10) mws = packdata(11) deallocate(packdata) return end subroutine se_global_min_data C -------------------------------------------------------------------------- C Purpose: C C to convert global grid coordinate to local grid coordinate with respect to C the thickness of ghost zone. The subroutine will return (-999, -999) if the C global grid point does not fall in the sub domain that a PE owns. C C Revision history: C C Orginal version: 6/18/99 by David Wong C 11/05/99 by David Wong C -- recode the code using F90 syntax C -- moved the data orientation dependency to higher level C 12/04/02 by David Wong C -- modified the routine to accommodate worker and C I/O processors partition scheme C 12/27/05 by David Wong C -- made the routine more robust to avoid IO processor C to access non-existence memory C C Subroutine parameter description: C C In: x -- global grid x coordiate C y -- global grid y coordiate C nthick -- thickness of ghost zone, if nthick = 0, there is no ghost C zone C C Out: my_x -- local grid x coordiate C my_y -- local grid y coordiate C C Local variable description: C C not_in_my_pe -- a constant to indicate the grid point is not in the C local processor grid region C C loc_x, loc_y -- output copy the local grid coordination C C Example: C C given 21 x 21 data domain with 4 x 2 PE configuration and "cr" orientation, C let global grid point be (8,15), local grid point will be (2, 4) in PE 5 and C (0, 0) elsewhere. C C Include file: C C se_pe_info_ext C se_domain_info_ext C C -------------------------------------------------------------------------- subroutine se_global_to_local_coord (x, y, my_x, my_y, nthick) use se_pe_info_ext use se_domain_info_ext implicit none integer, intent(in) :: x, y, nthick integer, intent(inout) :: my_x, my_y integer, parameter :: not_in_my_pe = -999 integer :: loc_x, loc_y loc_x = not_in_my_pe loc_y = not_in_my_pe if (se_myworker_pe .ge. 0) then if (((se_gl_ind(1,1,se_myworker_pe) - nthick) .le. x) .and. & (x .le. (se_gl_ind(2,1,se_myworker_pe) + nthick))) then loc_x = x - se_gl_ind(1,1,se_myworker_pe) + 1 end if if (((se_gl_ind(1,2,se_myworker_pe) - nthick) .le. y) .and. & (y .le. (se_gl_ind(2,2,se_myworker_pe) + nthick))) then loc_y = y - se_gl_ind(1,2,se_myworker_pe) + 1 end if if (loc_x .eq. not_in_my_pe) then loc_y = not_in_my_pe else if (loc_y .eq. not_in_my_pe) then loc_x = not_in_my_pe end if end if my_x = loc_x my_y = loc_y return end subroutine se_global_to_local_coord C -- Fortran functions C ----------------------------------------------------------------------------- C Purpose: determine the logical relationship between var1 and var2 according C to the operator, op, i.e. checking var1 op var2 is true or not C C Orginal version: 2/15/99 by David Wong C C 11/05/99 by David Wong C -- recode the code using F90 syntax C C 10/05/00 by David Wong C -- expanded to distinguish integer or real variable C C 12/04/02 by David Wong C -- modified the routine to accommodate worker and C I/O processors partition scheme C C Parameter List: C C In: var1 -- variable one C var2 -- variable two C op -- logical operator, EQ, GT, GE, LT, and LE C C Local Variable: C C sum -- local variable for computing global sum C lse_isum_chk -- local variable for holding the logical relationship C error -- error code for mpi call C C Include Files: C C se_pe_info.ext: C ----------------------------------------------------------------------------- function se_isum_chk (var1, op, var2) result (se_isum_chk_result) use se_pe_info_ext implicit none logical :: se_isum_chk_result integer, intent(in) :: var1, var2 character (len = 2), intent(in) :: op include "mpif.h" integer :: sum, error logical :: lse_isum_chk call mpi_reduce (var1, sum, 1, mpi_integer, mpi_sum, 0, & se_worker_comm, error) if (se_myworker_pe .eq. 0) then lse_isum_chk = .false. if (op .eq. 'EQ') then if (sum .eq. var2) then lse_isum_chk = .true. end if else if (op .eq. 'GT') then if (sum .gt. var2) then lse_isum_chk = .true. end if else if (op .eq. 'GE') then if (sum .ge. var2) then lse_isum_chk = .true. end if else if (op .eq. 'LT') then if (sum .lt. var2) then lse_isum_chk = .true. end if else if (sum .le. var2) then lse_isum_chk = .true. end if end if se_isum_chk_result = lse_isum_chk end if call mpi_bcast (se_isum_chk_result, 1, mpi_logical, 0, & se_worker_comm, error) return end function se_isum_chk C ----------------------------------------------------------------------------- C Purpose: determine the logical relationship between var1 and var2 according C to the operator, op, i.e. checking var1 op var2 is true or not C C Orginal version: 2/15/99 by David Wong C C 11/05/99 by David Wong C -- recode the code using F90 syntax C C 10/05/00 by David Wong C -- expanded to distinguish integer or real variable C C 12/04/02 by David Wong C -- modified the routine to accommodate worker and C I/O processors partition scheme C C 05/19/03 by David Wong C -- fixed a bug which declared sum in the wrong type C C Parameter List: C C In: var1 -- variable one C var2 -- variable two C op -- logical operator, EQ, GT, GE, LT, and LE C C Local Variable: C C sum -- local variable for computing global sum C lse_rsum_chk -- local variable for holding the logical relationship C error -- error code for mpi call C C Include Files: C C se_pe_info.ext: C ----------------------------------------------------------------------------- function se_rsum_chk (var1, op, var2) result (se_rsum_chk_result) use se_pe_info_ext implicit none logical :: se_rsum_chk_result real, intent(in) :: var1, var2 character (len = 2), intent(in) :: op include "mpif.h" real :: sum integer :: error logical :: lse_rsum_chk call mpi_reduce (var1, sum, 1, mpi_real, mpi_sum, 0, & se_worker_comm, error) if (se_myworker_pe .eq. 0) then lse_rsum_chk = .false. if (op .eq. 'EQ') then if (sum .eq. var2) then lse_rsum_chk = .true. end if else if (op .eq. 'GT') then if (sum .gt. var2) then lse_rsum_chk = .true. end if else if (op .eq. 'GE') then if (sum .ge. var2) then lse_rsum_chk = .true. end if else if (op .eq. 'LT') then if (sum .lt. var2) then lse_rsum_chk = .true. end if else if (sum .le. var2) then lse_rsum_chk = .true. end if end if se_rsum_chk_result = lse_rsum_chk end if call mpi_bcast (se_rsum_chk_result, 1, mpi_logical, 0, & se_worker_comm, error) return end function se_rsum_chk C ----------------------------------------------------------------------------- C Purpose: C C to determine where a global grid point is reside in local processor when C the global domain is decomposed C C Revision history: C C Orginal version: 6/18/99 by David Wong C 11/05/99 by David Wong C -- recode the code using F90 syntax C -- moved the data orientation dependency to higher level C 12/03/01 by David Wong C -- modified the algorithm to set variable WPE negative C if coordinate (x, y) is not in the domain C 12/04/02 by David Wong C -- modified the routine to accommodate worker and C I/O processors partition scheme C 12/27/05 by David Wong C -- made the routine more robust to avoid IO processor C to access non-existence memory C C Parameter List: C C In: x -- x coordinate of a global grid point C y -- y coordinate of a global grid point C C Out: wpe -- PE number C C Local Variable: C C lwpe -- local PE number C C ----------------------------------------------------------------------------- function se_my_region (x, y, wpe) result (se_my_region_result) use se_pe_info_ext use se_domain_info_ext implicit none include "mpif.h" integer, intent(in) :: x, y integer, intent(out) :: wpe logical :: se_my_region_result integer :: lwpe, error se_my_region_result = .false. lwpe = 0 if (se_myworker_pe .ge. 0) then if ((se_gl_ind(1,1,se_myworker_pe) .le. x) .and. & (x .le. se_gl_ind(2,1,se_myworker_pe)) .and. & (se_gl_ind(1,2,se_myworker_pe) .le. y) .and. & (y .le. se_gl_ind(2,2,se_myworker_pe))) then se_my_region_result = .true. lwpe = se_myworker_pe + 1 end if end if call mpi_reduce (lwpe, wpe, 1, mpi_integer, mpi_sum, 0, & se_worker_comm, error) if (wpe .eq. 0) then wpe = -1 else wpe = wpe - 1 end if call mpi_bcast (wpe, 1, mpi_integer, 0, se_worker_comm, error) return end function se_my_region C ----------------------------------------------------------------------------- C Purpose: C C determine the global logical operation which can be AND, OR C C Revision history: C C Orginal version: 04/24/00 by David Wong C C 12/04/02 by David Wong C -- modified the routine to accommodate worker and C I/O processors partition scheme C C Parameter List: C C InOut: var -- distributed variable which needs be determined the C logical value among all processors C In : operator -- operator type C C Local Variable: C C temp_var -- local temporary copy of var C error -- error code of mpi call C C Include Files: C C mpif.h C ----------------------------------------------------------------------------- subroutine se_global_logical (var, op) use se_pe_info_ext implicit none logical var character*3 op include "mpif.h" logical temp_var integer error temp_var = var if ((op .eq. 'AND') .or. (op .eq. 'and')) then call mpi_reduce (var, temp_var, 1, mpi_logical, MPI_LAND, 0, & se_worker_comm, error) else if ((op .eq. 'OR') .or. (op .eq. 'or')) then call mpi_reduce (var, temp_var, 1, mpi_logical, MPI_LOR, 0, & se_worker_comm, error) end if call mpi_bcast (temp_var, 1, mpi_logical, 0, se_worker_comm, error) var = temp_var return end subroutine se_global_logical C ----------------------------------------------------------------------------- C Purpose: C C given starting point and ending point in terms of column and row number in C original grid domain, determine a sub-grid mapping with re-distribution of C data for a 2-D data structure. The routine provides a flexibility that the C sub-grid has a different resolution indicates with optional variables: C nrows_in and ncols_in. C C Revision history: C C Orginal version: 10/26/00 by David Wong C C 1/23/01 by David Wong C -- deallocate se_lgl_ind C C 12/04/02 by David Wong C -- modified the routine to accommodate worker and C I/O processors partition scheme C C 12/27/05 by David Wong C -- made the routine more robust to avoid IO processor C to access non-existence memory C C 08/24/11 by David Wong C -- removed se_ori_ext to eliminate data and geo orientation C C Parameter List: C C In : begrow -- starting row number in the original grid C endrow -- ending row number in the original grid C begcol -- starting column number in the original grid C endcol -- ending column number in the original grid C C Out : my_begrow -- starting row number of the sub-grid in a processor C my_endrow -- end row number of the sub-grid in a processor C my_begcol -- starting column number of the sub-grid in a processor C my_endcol -- end column number of the sub-grid in a processor C my_subgrid_rows -- number of sub-grid rows in a processor C my_subgrid_cols -- number of sub-grid columns in a processor C C In (optional) : nrows_in -- number of rows in the sub-grid C ncols_in -- number of columns in the sub-grid C C Local Variable: C C intersect -- intersection indicator C se_lgl_ind -- local global index C se_lgl_ind_ptr -- local global index pointer C i -- loop index C allocate_status -- memory allocation error indicator C C ----------------------------------------------------------------------------- subroutine se_subgrid_index_2 (begrow, endrow, begcol, endcol, & my_begrow, my_endrow, & my_begcol, my_endcol, & my_subgrid_rows, my_subgrid_cols, & nrows_in, ncols_in) use se_pe_info_ext use se_domain_info_ext use se_subgrid_info_ext ! use se_ori_ext use se_internal_util_module implicit none integer, intent(in) :: begrow, endrow, begcol, endcol integer, intent(out) :: my_begrow, my_endrow, my_begcol, my_endcol integer, intent(out) :: my_subgrid_rows, my_subgrid_cols integer, optional, intent(in) :: nrows_in, ncols_in integer :: i, allocate_status integer, allocatable, target :: se_lgl_ind(:,:,:) integer, pointer :: se_lgl_ind_ptr(:,:,:) logical :: intersect C -- allocate data allocate (se_subgrid_send_ind(2, 4, 0:se_numworkers-1), & stat=allocate_status) if (allocate_status .ne. 0) then print *, ' Subroutine SE_SUBGD_INDEX: ', & ' allocation erorr in se_subgrid_send_ind' stop end if allocate (se_subgrid_recv_ind(2, 4, 0:se_numworkers-1), & stat=allocate_status) if (allocate_status .ne. 0) then print *, ' Subroutine SE_SUBGD_INDEX: ', & ' allocation erorr in se_subgrid_recv_ind' stop end if allocate (se_subgrid_send(0:se_numworkers-1), stat=allocate_status) if (allocate_status .ne. 0) then print *, ' Subroutine SE_SUBGD_INDEX: ', & 'allocation erorr in se_subgrid_send' stop end if allocate (se_subgrid_recv(0:se_numworkers-1), stat=allocate_status) if (allocate_status .ne. 0) then print *, ' Subroutine SE_SUBGD_INDEX: ', & 'allocation erorr in se_subgrid_recv' stop end if se_subgrid_send_ind_ptr => se_subgrid_send_ind se_subgrid_recv_ind_ptr => se_subgrid_recv_ind se_subgrid_send_ptr => se_subgrid_send se_subgrid_recv_ptr => se_subgrid_recv C -- allocate data allocate (se_subgrid_ind(2, 2, 0:se_numworkers-1), stat=allocate_status) if (allocate_status .ne. 0) then print *, ' Allocation error in subroutine SE_SUBGD_INDEX' stop end if se_subgrid_ind_ptr => se_subgrid_ind allocate (se_lgl_ind(2, 2, 0:se_numworkers-1), stat=allocate_status) if (allocate_status .ne. 0) then print *, ' Allocation error in subroutine SE_SUBGD_INDEX' stop end if se_lgl_ind_ptr => se_lgl_ind if (present(nrows_in)) then ! if ((se_data_ori .eq. "cr") .or. (se_data_ori .eq. "CR")) then call se_generate_map (1, ncols_in, 1, nrows_in, & se_nprow, se_npcol, se_lgl_ind_ptr) ! else ! call se_generate_map (1, nrows_in, 1, ncols_in, ! & se_nprow, se_npcol, se_lgl_ind_ptr) ! end if C -- figure out the low and high column and row index of the C processor analysis (PA) grid, respectively ! if ((se_data_ori .eq. "cr") .or. (se_data_ori .eq. "CR")) then call se_generate_map (begcol, endcol, begrow, endrow, & se_nprow, se_npcol, se_subgrid_ind_ptr, 0) ! else ! call se_generate_map (begrow, endrow, begcol, endcol, ! & se_nprow, se_npcol, se_subgrid_ind_ptr, 0) ! end if else se_lgl_ind = se_gl_ind C -- figure out the low and high column and row index of the C fine sub grid, respectively ! if ((se_data_ori .eq. "cr") .or. (se_data_ori .eq. "CR")) then call se_generate_map (begcol, endcol, begrow, endrow, & se_nprow, se_npcol, se_subgrid_ind_ptr) ! else ! call se_generate_map (begrow, endrow, begcol, endcol, ! & se_nprow, se_npcol, se_subgrid_ind_ptr) ! end if end if if (se_myworker_pe .ge. 0) then do i = 0, se_numworkers-1 intersect = .true. if ( (se_subgrid_ind(1,1,i) .gt. se_subgrid_ind(2,1,i)) & .or. (se_subgrid_ind(1,2,i) .gt. se_subgrid_ind(2,2,i)) & .or. (se_lgl_ind(1,1,se_myworker_pe) .gt. se_subgrid_ind(2,1,i)) & .or. (se_lgl_ind(2,1,se_myworker_pe) .lt. se_subgrid_ind(1,1,i))) then intersect = .false. else if ( (se_lgl_ind(1,2,se_myworker_pe) .gt. se_subgrid_ind(2,2,i)) & .or. (se_lgl_ind(2,2,se_myworker_pe) .lt. se_subgrid_ind(1,2,i))) & then intersect = .false. end if end if if (intersect) then se_subgrid_send_ind(1,1,i) = max(se_lgl_ind(1,1,se_myworker_pe), & se_subgrid_ind(1,1,i)) & - se_lgl_ind(1,1,se_myworker_pe) + 1 se_subgrid_send_ind(2,1,i) = min(se_lgl_ind(2,1,se_myworker_pe), & se_subgrid_ind(2,1,i)) & - se_lgl_ind(1,1,se_myworker_pe) + 1 se_subgrid_send_ind(1,2,i) = max(se_lgl_ind(1,2,se_myworker_pe), & se_subgrid_ind(1,2,i)) & - se_lgl_ind(1,2,se_myworker_pe) + 1 se_subgrid_send_ind(2,2,i) = min(se_lgl_ind(2,2,se_myworker_pe), & se_subgrid_ind(2,2,i)) & - se_lgl_ind(1,2,se_myworker_pe) + 1 se_subgrid_send(i) = i else se_subgrid_send(i) = -1 end if end do C -- determine data is going to receive from which PE, and corresponding local C index do i = 0, se_numworkers-1 intersect = .true. if ( (se_subgrid_ind(1,1,se_myworker_pe) .gt. & se_subgrid_ind(2,1,se_myworker_pe)) & .or. (se_subgrid_ind(1,2,se_myworker_pe) .gt. & se_subgrid_ind(2,2,se_myworker_pe)) & .or. (se_lgl_ind(1,1,i) .gt. se_subgrid_ind(2,1,se_myworker_pe)) & .or. (se_lgl_ind(2,1,i) .lt. se_subgrid_ind(1,1,se_myworker_pe))) then intersect = .false. else if ( (se_lgl_ind(1,2,i) .gt. se_subgrid_ind(2,2,se_myworker_pe)) & .or. (se_lgl_ind(2,2,i) .lt. se_subgrid_ind(1,2,se_myworker_pe))) & then intersect = .false. end if end if if (intersect) then se_subgrid_recv_ind(1,1,i) = max(se_lgl_ind(1,1,i), & se_subgrid_ind(1,1,se_myworker_pe)) & - se_subgrid_ind(1,1,se_myworker_pe) + 1 se_subgrid_recv_ind(2,1,i) = min(se_lgl_ind(2,1,i), & se_subgrid_ind(2,1,se_myworker_pe)) & - se_subgrid_ind(1,1,se_myworker_pe) + 1 se_subgrid_recv_ind(1,2,i) = max(se_lgl_ind(1,2,i), & se_subgrid_ind(1,2,se_myworker_pe)) & - se_subgrid_ind(1,2,se_myworker_pe) + 1 se_subgrid_recv_ind(2,2,i) = min(se_lgl_ind(2,2,i), & se_subgrid_ind(2,2,se_myworker_pe)) & - se_subgrid_ind(1,2,se_myworker_pe) + 1 se_subgrid_recv(i) = i else se_subgrid_recv(i) = -1 end if end do C -- determine begining and ending row and column indexes, respectively my_begrow = 1 my_begcol = 1 my_endrow = se_subgrid_ind(2,1,se_myworker_pe) - & se_subgrid_ind(1,1,se_myworker_pe) + 1 my_endcol = se_subgrid_ind(2,2,se_myworker_pe) - & se_subgrid_ind(1,2,se_myworker_pe) + 1 C -- if row or column is not included in a processor, set column or row C outside the range, respectively if (my_endrow .eq. 0) then my_endcol = 0 else if (my_endcol .eq. 0) then my_endrow = 0 end if my_subgrid_rows = my_endrow - my_begrow + 1 my_subgrid_cols = my_endcol - my_begcol + 1 else my_begrow = -1 my_begcol = -1 my_endcol = -1 my_endrow = -1 my_subgrid_rows = -1 my_subgrid_cols = -1 end if deallocate (se_lgl_ind) return end subroutine se_subgrid_index_2 C ----------------------------------------------------------------------------- C Purpose: C C given starting point and ending point in terms of column, row, and level C number in original grid domain, determine a sub-grid mapping with C re-distribution of data for a 3-D data structure. The routine provides a C flexibility that the sub-grid has a different resolution indicates with C optional variables: nrows_in, ncols_in, and nlevs_in. C C Revision history: C C Orginal version: 10/26/00 by David Wong C 12/18/00 by Jeff Young C -- remove my_subgrid_levs to make backwardly compatible w/ C CCTM code - can't decompose in this dimension now. C C 1/23/01 by David Wong C -- deallocate se_lgl_ind C C 12/04/02 by David Wong C -- modified the routine to accommodate worker and C I/O processors partition scheme C C 12/27/05 by David Wong C -- made the routine more robust to avoid IO processor C to access non-existence memory C C 08/24/11 by David Wong C -- removed se_ori_ext to eliminate data and geo orientation C C Parameter List: C C In : begrow -- starting row number in the original grid C endrow -- ending row number in the original grid C begcol -- starting column number in the original grid C endcol -- ending column number in the original grid C beglev -- starting level number in the original grid C endlev -- ending level number in the original grid C C In (optional) : nrows_in -- number of rows in the sub-grid C ncols_in -- number of columns in the sub-grid C nlevs_in -- number of levels in the sub-grid C C Out : my_begrow -- starting row number of the sub-grid in a processor C my_endrow -- end row number of the sub-grid in a processor C my_begcol -- starting column number of the sub-grid in a processor C my_endcol -- end column number of the sub-grid in a processor C my_beglev -- starting level number of the sub-grid in a processor C my_endlev -- end level number of the sub-grid in a processor C my_subgrid_rows -- number of sub-grid rows in a processor C my_subgrid_cols -- number of sub-grid columns in a processor C C my_subgrid_levs -- number of sub-grid levels in a processor C ^^^^^^^^^^^^^^^ eliminated for now, maybe implement later C C Local Variable: C C intersect -- intersection indicator C se_lgl_ind -- local global index C se_lgl_ind_ptr -- local global index pointer C i -- loop index C allocate_status -- memory allocation error indicator C C ----------------------------------------------------------------------------- subroutine se_subgrid_index_3 & ( begrow, endrow, begcol, endcol, beglev, endlev, & my_begrow, my_endrow, my_begcol, my_endcol, my_beglev, my_endlev, ! & my_subgrid_rows, my_subgrid_cols, my_subgrid_levs, & my_subgrid_rows, my_subgrid_cols, & nrows_in, ncols_in, nlevs_in ) use se_pe_info_ext use se_domain_info_ext use se_subgrid_info_ext ! use se_ori_ext use se_internal_util_module implicit none integer, intent(in) :: begrow, endrow, begcol, endcol, beglev, endlev integer, intent(out) :: my_begrow, my_endrow, my_begcol, my_endcol integer, intent(out) :: my_beglev, my_endlev integer, intent(out) :: my_subgrid_rows, my_subgrid_cols ! & my_subgrid_levs integer, optional, intent(in) :: nrows_in, ncols_in, nlevs_in integer :: i, allocate_status integer, allocatable, target :: se_lgl_ind(:,:,:) integer, pointer :: se_lgl_ind_ptr(:,:,:) logical :: intersect C -- allocate data allocate (se_subgrid_send_ind(2, 4, 0:se_numworkers-1), & stat=allocate_status) if (allocate_status .ne. 0) then print *, ' Subroutine SE_SUBGD_INDEX: ', & ' allocation erorr in se_subgrid_send_ind' stop end if allocate (se_subgrid_recv_ind(2, 4, 0:se_numworkers-1), & stat=allocate_status) if (allocate_status .ne. 0) then print *, ' Subroutine SE_SUBGD_INDEX: ', & ' allocation erorr in se_subgrid_recv_ind' stop end if allocate (se_subgrid_send(0:se_numworkers-1), stat=allocate_status) if (allocate_status .ne. 0) then print *, ' Subroutine SE_SUBGD_INDEX: ', & 'allocation erorr in se_subgrid_send' stop end if allocate (se_subgrid_recv(0:se_numworkers-1), stat=allocate_status) if (allocate_status .ne. 0) then print *, ' Subroutine SE_SUBGD_INDEX: ', & 'allocation erorr in se_subgrid_recv' stop end if se_subgrid_send_ind_ptr => se_subgrid_send_ind se_subgrid_recv_ind_ptr => se_subgrid_recv_ind se_subgrid_send_ptr => se_subgrid_send se_subgrid_recv_ptr => se_subgrid_recv C -- allocate data allocate (se_subgrid_ind(2, 2, 0:se_numworkers-1), stat=allocate_status) if (allocate_status .ne. 0) then print *, ' Allocation error in subroutine SE_SUBGD_INDEX' stop end if se_subgrid_ind_ptr => se_subgrid_ind allocate (se_lgl_ind(2, 2, 0:se_numworkers-1), stat=allocate_status) if (allocate_status .ne. 0) then print *, ' Allocation error in subroutine SE_SUBGD_INDEX' stop end if se_lgl_ind_ptr => se_lgl_ind if (present(nrows_in)) then ! if ((se_data_ori .eq. "cr") .or. (se_data_ori .eq. "CR")) then call se_generate_map (1, ncols_in, 1, nrows_in, & se_nprow, se_npcol, se_lgl_ind_ptr) ! else ! call se_generate_map (1, nrows_in, 1, ncols_in, ! & se_nprow, se_npcol, se_lgl_ind_ptr) ! end if C -- figure out the low and high column and row index of the C processor analysis (PA) grid, respectively ! if ((se_data_ori .eq. "cr") .or. (se_data_ori .eq. "CR")) then call se_generate_map (begcol, endcol, begrow, endrow, & se_nprow, se_npcol, se_subgrid_ind_ptr, 0) ! else ! call se_generate_map (begrow, endrow, begcol, endcol, ! & se_nprow, se_npcol, se_subgrid_ind_ptr, 0) ! end if else se_lgl_ind = se_gl_ind C -- figure out the low and high column and row index of the C fine sub grid, respectively ! if ((se_data_ori .eq. "cr") .or. (se_data_ori .eq. "CR")) then call se_generate_map (begcol, endcol, begrow, endrow, & se_nprow, se_npcol, se_subgrid_ind_ptr) ! else ! call se_generate_map (begrow, endrow, begcol, endcol, ! & se_nprow, se_npcol, se_subgrid_ind_ptr) ! end if end if if (se_myworker_pe .ge. 0) then do i = 0, se_numworkers-1 intersect = .true. if ( (se_subgrid_ind(1,1,i) .gt. se_subgrid_ind(2,1,i)) & .or. (se_subgrid_ind(1,2,i) .gt. se_subgrid_ind(2,2,i)) & .or. (se_lgl_ind(1,1,se_myworker_pe) .gt. se_subgrid_ind(2,1,i)) & .or. (se_lgl_ind(2,1,se_myworker_pe) .lt. se_subgrid_ind(1,1,i))) then intersect = .false. else if ( (se_lgl_ind(1,2,se_myworker_pe) .gt. se_subgrid_ind(2,2,i)) & .or. (se_lgl_ind(2,2,se_myworker_pe) .lt. se_subgrid_ind(1,2,i))) & then intersect = .false. end if end if if (intersect) then se_subgrid_send_ind(1,1,i) = max(se_lgl_ind(1,1,se_myworker_pe), & se_subgrid_ind(1,1,i)) & - se_lgl_ind(1,1,se_myworker_pe) + 1 se_subgrid_send_ind(2,1,i) = min(se_lgl_ind(2,1,se_myworker_pe), & se_subgrid_ind(2,1,i)) & - se_lgl_ind(1,1,se_myworker_pe) + 1 se_subgrid_send_ind(1,2,i) = max(se_lgl_ind(1,2,se_myworker_pe), & se_subgrid_ind(1,2,i)) & - se_lgl_ind(1,2,se_myworker_pe) + 1 se_subgrid_send_ind(2,2,i) = min(se_lgl_ind(2,2,se_myworker_pe), & se_subgrid_ind(2,2,i)) & - se_lgl_ind(1,2,se_myworker_pe) + 1 se_subgrid_send(i) = i else se_subgrid_send(i) = -1 end if end do C -- determine data is going to receive from which PE, and corresponding local C index do i = 0, se_numworkers-1 intersect = .true. if ( (se_subgrid_ind(1,1,se_myworker_pe) .gt. & se_subgrid_ind(2,1,se_myworker_pe)) & .or. (se_subgrid_ind(1,2,se_myworker_pe) .gt. & se_subgrid_ind(2,2,se_myworker_pe)) & .or. (se_lgl_ind(1,1,i) .gt. se_subgrid_ind(2,1,se_myworker_pe)) & .or. (se_lgl_ind(2,1,i) .lt. se_subgrid_ind(1,1,se_myworker_pe))) then intersect = .false. else if ( (se_lgl_ind(1,2,i) .gt. se_subgrid_ind(2,2,se_myworker_pe)) & .or. (se_lgl_ind(2,2,i) .lt. se_subgrid_ind(1,2,se_myworker_pe))) & then intersect = .false. end if end if if (intersect) then se_subgrid_recv_ind(1,1,i) = max(se_lgl_ind(1,1,i), & se_subgrid_ind(1,1,se_myworker_pe)) & - se_subgrid_ind(1,1,se_myworker_pe) + 1 se_subgrid_recv_ind(2,1,i) = min(se_lgl_ind(2,1,i), & se_subgrid_ind(2,1,se_myworker_pe)) & - se_subgrid_ind(1,1,se_myworker_pe) + 1 se_subgrid_recv_ind(1,2,i) = max(se_lgl_ind(1,2,i), & se_subgrid_ind(1,2,se_myworker_pe)) & - se_subgrid_ind(1,2,se_myworker_pe) + 1 se_subgrid_recv_ind(2,2,i) = min(se_lgl_ind(2,2,i), & se_subgrid_ind(2,2,se_myworker_pe)) & - se_subgrid_ind(1,2,se_myworker_pe) + 1 se_subgrid_recv(i) = i else se_subgrid_recv(i) = -1 end if end do C -- determine begining and ending row and column indexes, respectively my_begrow = 1 my_begcol = 1 my_endrow = se_subgrid_ind(2,1,se_myworker_pe) - & se_subgrid_ind(1,1,se_myworker_pe) + 1 my_endcol = se_subgrid_ind(2,2,se_myworker_pe) - & se_subgrid_ind(1,2,se_myworker_pe) + 1 C -- if row or column is not included in a processor, set column or row C outside the range, respectively if (my_endrow .eq. 0) then my_endcol = 0 else if (my_endcol .eq. 0) then my_endrow = 0 end if my_subgrid_rows = my_endrow - my_begrow + 1 my_subgrid_cols = my_endcol - my_begcol + 1 my_beglev = beglev my_endlev = endlev ! my_subgrid_levs = my_endlev - my_beglev + 1 if (present(nrows_in)) then se_my_subgrid_beglev = 1 se_my_subgrid_endlev = se_my_nlays else se_my_subgrid_beglev = beglev se_my_subgrid_endlev = endlev end if c my_subgrid_levs = se_my_subgrid_endlev - se_my_subgrid_beglev + 1 else my_begrow = -1 my_begcol = -1 my_endrow = -1 my_endcol = -1 my_beglev = -1 my_endlev = -1 my_subgrid_rows = -1 my_subgrid_cols = -1 c my_subgrid_levs = -1 end if ! print*, ' myworker_pe: ', se_myworker_pe ! do i = 0, se_numworkers-1 ! print*, ' i, se_lgl_ind( 1,1,i ): ', i, se_lgl_ind( 1,1,i ) ! print*, ' i, se_lgl_ind( 2,1,i ): ', i, se_lgl_ind( 2,1,i ) ! print*, ' i, se_lgl_ind( 1,2,i ): ', i, se_lgl_ind( 1,2,i ) ! print*, ' i, se_lgl_ind( 2,2,i ): ', i, se_lgl_ind( 2,2,i ) ! print*, ' i, se_subgrid_ind( 1,1,i ): ', i, se_subgrid_ind( 1,1,i ) ! print*, ' i, se_subgrid_ind( 2,1,i ): ', i, se_subgrid_ind( 2,1,i ) ! print*, ' i, se_subgrid_ind( 1,2,i ): ', i, se_subgrid_ind( 1,2,i ) ! print*, ' i, se_subgrid_ind( 2,2,i ): ', i, se_subgrid_ind( 2,2,i ) ! print*, ' i, se_subgrid_send( i ): ', i, se_subgrid_send( i ) ! print*, ' i, se_subgrid_recv( i ): ', i, se_subgrid_recv( i ) ! print*, ' i, se_subgrid_send_ind( 1,1,i ): ', i, se_subgrid_send_ind( 1,1,i ) ! print*, ' i, se_subgrid_send_ind( 2,1,i ): ', i, se_subgrid_send_ind( 2,1,i ) ! print*, ' i, se_subgrid_send_ind( 1,2,i ): ', i, se_subgrid_send_ind( 1,2,i ) ! print*, ' i, se_subgrid_send_ind( 2,2,i ): ', i, se_subgrid_send_ind( 2,2,i ) ! print*, ' i, se_subgrid_recv_ind( 1,1,i ): ', i, se_subgrid_recv_ind( 1,1,i ) ! print*, ' i, se_subgrid_recv_ind( 2,1,i ): ', i, se_subgrid_recv_ind( 2,1,i ) ! print*, ' i, se_subgrid_recv_ind( 1,2,i ): ', i, se_subgrid_recv_ind( 1,2,i ) ! print*, ' i, se_subgrid_recv_ind( 2,2,i ): ', i, se_subgrid_recv_ind( 2,2,i ) ! end do deallocate (se_lgl_ind) return end subroutine se_subgrid_index_3 C ----------------------------------------------------------------------------- C Purpose: C C given starting point and ending point in terms of column and row number in C original grid domain, determine a sub-grid mapping without re-distribution of C data for a 2-D data structure. C C Revision history: C C Orginal version: 10/26/00 by David Wong C C 12/04/02 by David Wong C -- modified the routine to accommodate worker and C I/O processors partition scheme C C 08/24/11 by David Wong C -- removed se_ori_ext to eliminate data and geo orientation C C Parameter List: C C In : begrow -- starting row number in the original grid C endrow -- ending row number in the original grid C begcol -- starting column number in the original grid C endcol -- ending column number in the original grid C flag -- an indicator of no re-distribution C C Out : my_begrow -- starting row number of the sub-grid in a processor C my_endrow -- end row number of the sub-grid in a processor C my_begcol -- starting column number of the sub-grid in a processor C my_endcol -- end column number of the sub-grid in a processor C C Local Variable: C C tpe -- temporary processor number C mpe -- processor number form by modulus arithmetic C dpe -- processor number form by integer division arithmetic C col_ind -- column index C row_ind -- row index C loc_begrow -- local starting row number C loc_endrow -- local ending row number C loc_begcol -- local starting column number C loc_endcol -- local ending column number C loc_my_begrow -- local starting row number in a processor C loc_my_endrow -- local ending row number in a processor C loc_my_begcol -- local starting column number in a processor C loc_my_endcol -- local ending column number in a processor C C ----------------------------------------------------------------------------- subroutine se_subgrid_index_n2 (begrow, endrow, begcol, endcol, & my_begrow, my_endrow, & my_begcol, my_endcol, flag) use se_pe_info_ext ! use se_ori_ext use se_domain_info_ext implicit none integer, intent(in) :: begrow, endrow, begcol, endcol integer, intent(out) :: my_begrow, my_endrow, my_begcol, my_endcol character, intent(in) :: flag integer :: col_ind(2), row_ind(2) integer :: tpe, mpe, dpe integer :: loc_my_begrow, loc_my_endrow, & loc_my_begcol, loc_my_endcol integer :: loc_begrow, loc_endrow, loc_begcol, loc_endcol ! if ((se_data_ori .eq. "cr") .or. (se_data_ori .eq. "CR")) then loc_begcol = begrow loc_endcol = endrow loc_begrow = begcol loc_endrow = endcol ! else ! loc_begcol = begcol ! loc_endcol = endcol ! loc_begrow = begrow ! loc_endrow = endrow ! end if C -- figure out the low and high column index of the original grid tpe = mod(se_gl_ncols, se_npcol) mpe = mod(se_myworker_pe, se_npcol) col_ind(1) = 1 + min(mpe, tpe) * se_ncols + max(mpe-tpe,0) * se_my_ncols col_ind(2) = min(mpe+1, tpe) * se_ncols + max(mpe-tpe+1,0) * se_my_ncols C -- determine the mapping of column of the PA grid to each processor if ((col_ind(2) .lt. loc_begcol) .or. (col_ind(1) .gt. loc_endcol)) then loc_my_begcol = 0 loc_my_endcol = -1 else if ((col_ind(1) .lt. loc_begcol) .and. (loc_begcol .le. col_ind(2)) & .and. (loc_endcol .gt. col_ind(2))) then loc_my_begcol = loc_begcol - col_ind(1) + 1 loc_my_endcol = col_ind(2) - col_ind(1) + 1 else if ((col_ind(1) .le. loc_endcol) .and. (loc_endcol .lt. col_ind(2)) & .and. (loc_begcol .lt. col_ind(1))) then loc_my_begcol = 1 loc_my_endcol = loc_endcol - col_ind(1) + 1 else loc_my_begcol = max(loc_begcol-col_ind(1)+1, 1) loc_my_endcol = loc_my_begcol + min(col_ind(2)-col_ind(1), & loc_endcol-loc_begcol) end if C -- figure out the low and high row index of the original grid tpe = mod(se_gl_nrows, se_nprow) dpe = se_myworker_pe / se_npcol row_ind(1) = 1 + min(dpe, tpe) * se_nrows + max(dpe-tpe,0) * se_my_nrows row_ind(2) = min(dpe+1, tpe) * se_nrows + max(dpe-tpe+1,0) * se_my_nrows C -- determine the mapping of row of the PA grid to each processor if ((row_ind(2) .lt. loc_begrow) .or. (row_ind(1) .gt. loc_endrow)) then loc_my_begrow = 0 loc_my_endrow = -1 else if ((row_ind(1) .lt. loc_begrow) .and. (loc_begrow .le. row_ind(2)) & .and. (loc_endrow .gt. row_ind(2))) then loc_my_begrow = loc_begrow - row_ind(1) + 1 loc_my_endrow = row_ind(2) - row_ind(1) + 1 else if ((row_ind(1) .le. loc_endrow) .and. (loc_endrow .lt. row_ind(2)) & .and. (loc_begrow .lt. row_ind(1))) then loc_my_begrow = 1 loc_my_endrow = loc_endrow - row_ind(1) + 1 else loc_my_begrow = max(loc_begrow-row_ind(1)+1, 1) loc_my_endrow = loc_my_begrow + min(row_ind(2)-row_ind(1), & loc_endrow-loc_begrow) end if C -- if row or column is not within the PA grid dimensions, set column or row C outside the range, respectively if (loc_my_begrow .eq. 0) then loc_my_begcol = 0 loc_my_endcol = -1 else if (loc_my_begcol .eq. 0) then loc_my_begrow = 0 loc_my_endrow = -1 end if ! if ((se_data_ori .eq. "cr") .or. (se_data_ori .eq. "CR")) then my_begrow = loc_my_begcol my_endrow = loc_my_endcol my_begcol = loc_my_begrow my_endcol = loc_my_endrow ! else ! my_begrow = loc_my_begrow ! my_endrow = loc_my_endrow ! my_begcol = loc_my_begcol ! my_endcol = loc_my_endcol ! end if return end subroutine se_subgrid_index_n2 C ----------------------------------------------------------------------------- C Purpose: C C given starting point and ending point in terms of column, row, and level C number in original grid domain, determine a sub-grid mapping without C re-distribution of data for a 3-D data structure. C C Revision history: C C Orginal version: 10/26/00 by David Wong C C 12/04/02 by David Wong C -- modified the routine to accommodate worker and C I/O processors partition scheme C C 08/24/11 by David Wong C -- removed se_ori_ext to eliminate data and geo orientation C C Parameter List: C C In : begrow -- starting row number in the original grid C endrow -- ending row number in the original grid C begcol -- starting column number in the original grid C endcol -- ending column number in the original grid C beglev -- starting level number in the original grid C endlev -- ending level number in the original grid C flag -- an indicator of no re-distribution C C Out : my_begrow -- starting row number of the sub-grid in a processor C my_endrow -- end row number of the sub-grid in a processor C my_begcol -- starting column number of the sub-grid in a processor C my_endcol -- end column number of the sub-grid in a processor C my_beglev -- starting level number of the sub-grid in a processor C my_endlev -- end level number of the sub-grid in a processor C C Local Variable: C C tpe -- temporary processor number C mpe -- processor number form by modulus arithmetic C dpe -- processor number form by integer division arithmetic C col_ind -- column index C row_ind -- row index C loc_begrow -- local starting row number C loc_endrow -- local ending row number C loc_begcol -- local starting column number C loc_endcol -- local ending column number C loc_my_begrow -- local starting row number in a processor C loc_my_endrow -- local ending row number in a processor C loc_my_begcol -- local starting column number in a processor C loc_my_endcol -- local ending column number in a processor C C ----------------------------------------------------------------------------- subroutine se_subgrid_index_n3 (begrow, endrow, begcol, endcol, & beglev, endlev, & my_begrow, my_endrow, & my_begcol, my_endcol, & my_beglev, my_endlev, flag) use se_pe_info_ext ! use se_ori_ext use se_domain_info_ext implicit none integer, intent(in) :: begrow, endrow, begcol, endcol, beglev, endlev integer, intent(out) :: my_begrow, my_endrow, my_begcol, & my_endcol, my_beglev, my_endlev character, intent(in) :: flag integer :: col_ind(2), row_ind(2) integer :: tpe, mpe, dpe integer :: loc_my_begrow, loc_my_endrow, & loc_my_begcol, loc_my_endcol integer :: loc_begrow, loc_endrow, loc_begcol, loc_endcol ! if ((se_data_ori .eq. "cr") .or. (se_data_ori .eq. "CR")) then loc_begcol = begrow loc_endcol = endrow loc_begrow = begcol loc_endrow = endcol ! else ! loc_begcol = begcol ! loc_endcol = endcol ! loc_begrow = begrow ! loc_endrow = endrow ! end if C -- figure out the low and high column index of the original grid tpe = mod(se_gl_ncols, se_npcol) mpe = mod(se_myworker_pe, se_npcol) col_ind(1) = 1 + min(mpe, tpe) * se_ncols + max(mpe-tpe,0) * se_my_ncols col_ind(2) = min(mpe+1, tpe) * se_ncols + max(mpe-tpe+1,0) * se_my_ncols C -- determine the mapping of column of the PA grid to each processor if ((col_ind(2) .lt. loc_begcol) .or. (col_ind(1) .gt. loc_endcol)) then loc_my_begcol = 0 loc_my_endcol = -1 else if ((col_ind(1) .lt. loc_begcol) .and. (loc_begcol .le. col_ind(2)) & .and. (loc_endcol .gt. col_ind(2))) then loc_my_begcol = loc_begcol - col_ind(1) + 1 loc_my_endcol = col_ind(2) - col_ind(1) + 1 else if ((col_ind(1) .le. loc_endcol) .and. (loc_endcol .lt. col_ind(2)) & .and. (loc_begcol .lt. col_ind(1))) then loc_my_begcol = 1 loc_my_endcol = loc_endcol - col_ind(1) + 1 else loc_my_begcol = max(loc_begcol-col_ind(1)+1, 1) loc_my_endcol = loc_my_begcol + min(col_ind(2)-col_ind(1), & loc_endcol-loc_begcol) end if C -- figure out the low and high row index of the original grid tpe = mod(se_gl_nrows, se_nprow) dpe = se_myworker_pe / se_npcol row_ind(1) = 1 + min(dpe, tpe) * se_nrows + max(dpe-tpe,0) * se_my_nrows row_ind(2) = min(dpe+1, tpe) * se_nrows + max(dpe-tpe+1,0) * se_my_nrows C -- determine the mapping of row of the PA grid to each processor if ((row_ind(2) .lt. loc_begrow) .or. (row_ind(1) .gt. loc_endrow)) then loc_my_begrow = 0 loc_my_endrow = -1 else if ((row_ind(1) .lt. loc_begrow) .and. (loc_begrow .le. row_ind(2)) & .and. (loc_endrow .gt. row_ind(2))) then loc_my_begrow = loc_begrow - row_ind(1) + 1 loc_my_endrow = row_ind(2) - row_ind(1) + 1 else if ((row_ind(1) .le. loc_endrow) .and. (loc_endrow .lt. row_ind(2)) & .and. (loc_begrow .lt. row_ind(1))) then loc_my_begrow = 1 loc_my_endrow = loc_endrow - row_ind(1) + 1 else loc_my_begrow = max(loc_begrow-row_ind(1)+1, 1) loc_my_endrow = loc_my_begrow + min(row_ind(2)-row_ind(1), & loc_endrow-loc_begrow) end if C -- if row or column is not within the PA grid dimensions, set column or row C outside the range, respectively if (loc_my_begrow .eq. 0) then loc_my_begcol = 0 loc_my_endcol = -1 else if (loc_my_begcol .eq. 0) then loc_my_begrow = 0 loc_my_endrow = -1 end if ! if ((se_data_ori .eq. "cr") .or. (se_data_ori .eq. "CR")) then my_begrow = loc_my_begcol my_endrow = loc_my_endcol my_begcol = loc_my_begrow my_endcol = loc_my_endrow ! else ! my_begrow = loc_my_begrow ! my_endrow = loc_my_endrow ! my_begcol = loc_my_begcol ! my_endcol = loc_my_endcol ! end if my_beglev = beglev my_endlev = endlev return end subroutine se_subgrid_index_n3 C ----------------------------------------------------------------------------- C Purpose: C C synchronizes the value of var in all the processors according to the value C in processor pe C C Revision history: C C Orginal version: 12/04/01 by David Wong C C 12/04/02 by David Wong C -- modified the routine to accommodate worker and C I/O processors partition scheme C C Parameter List: C C InOut : var -- logical value C In : pe -- processor number C ----------------------------------------------------------------------------- subroutine se_in_syn (var, pe) use se_pe_info_ext implicit none logical, intent(inout) :: var integer, intent(in) :: pe integer :: error include "mpif.h" if (pe .ge. 0) then call mpi_bcast (var, 1, mpi_logical, pe, se_worker_comm, error) end if return end subroutine se_in_syn C ----------------------------------------------------------------------------- C Purpose: C C synchronizes the value of var in all the processors according to the value C in processor pe C C Revision history: C C Orginal version: 12/04/01 by David Wong C C 12/04/02 by David Wong C -- modified the routine to accommodate worker and C I/O processors partition scheme C C Parameter List: C C InOut : var -- logical value C In : pe -- processor number C ----------------------------------------------------------------------------- subroutine se_collect (ncols, nrows, ncols_pe, nrows_pe) use se_pe_info_ext implicit none include "mpif.h" integer, intent(inout) :: ncols, nrows integer, intent(out) :: ncols_pe(:), nrows_pe(:) integer :: sdata(2), rdata(2) integer :: i, error, status(MPI_STATUS_SIZE) if (se_my_pe .eq. 0) then ncols_pe = 0 nrows_pe = 0 do i = 1, se_numprocs-1 call mpi_recv (rdata, 2, mpi_integer, i, & i, se_world_comm, status, error) ncols_pe(i+1) = rdata(1) nrows_pe(i+1) = rdata(2) end do ncols = maxval(ncols_pe) nrows = maxval(nrows_pe) else sdata(1) = ncols sdata(2) = nrows call mpi_send (sdata, 2, mpi_integer, 0, se_my_pe, se_world_comm, error) end if end subroutine se_collect end module se_util_module ================================================ FILE: CCTM/src/aero/aero6/AEROMET_DATA.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/CCTM/src/aero/aero5/AEROMET_DATA.F,v 1.6 2012/01/19 13:10:03 yoj Exp $ C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: Module aeromet_data C Some parameters and meteorological variables required in aerosol C processing. C Revision History: C First version was coded in April 2010 by Steve Howard with C Prakash Bhave, Jeff Young, and Sergey Napelenok. C C SH 03/10/11 renamed file and module from MET_DATA to AEROMET_DATA C---------------------------------------------------------------------- Implicit None C Fundamental constants Include SUBST_CONST ! common constants Real( 8 ), Parameter :: f6dpi = 6.0D0 / dpi Real, Parameter :: f6pi = 6.0 / pi Real( 8 ), Parameter :: dpi6 = dpi / 6.0D0 Real, Parameter :: pi6 = pi / 6.0 Real( 8 ), Parameter :: boltzmann = drgasuniv / davo ! [ J/K ] C Concentration lower limit used for gas species Real, Parameter :: min_gasconc = 1.0E-30 ! [ ug/m^3 ] Real, Parameter :: inv_mwair = 1.0E3 / mwair ! [ 1/g ] C Meteorological variables Real :: airtemp ! air temp [ K ] :from MET_CRO_3D File Real :: srftemp ! 2-meter temp [ K ] :from MET_CRO_2D File Real :: airpres ! air pressure [ Pa] Real :: airdens ! air density [ kg/m^3] Real :: airRH ! fractional relative humidity Real :: airQV ! water vapor mass mixing ratio [ kg_H2O/kg_air ] Real :: H2OsatVP ! saturation water vapor pressure [ Pa ] Real :: H2OVP ! ambient water vapor pressure [ Pa ] Real :: cfrac ! cloud fraction Real :: dz ! grid cell height between layer faces Real :: zh ! grid cell midpoint height (mass-weighted) Real :: pv ! potential vorticity in grid cell End Module aeromet_data ================================================ FILE: CCTM/src/aero/aero6/AEROSOL_CHEMISTRY.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in !! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! MODULE AEROSOL_CHEMISTRY !----------------------------------------------------------------------- ! Revision history ! ! 26 Sep 14 H. Pye: Heterogeneous uptake of IEPOX added ! 27 Feb 15 J. Bash: ! 17 March 15 D. Luecken: Added NTR heterogeneous hydrolysis as per ! the CB6r3 chemical mechanism used by the Environ CAMX model consult ! references 8 and 9., ! 22 Feb 16 B.Hutzell: Added Flag stating whether module is initialized ! 24 March 16 D. Luecken: removed the references to F_NTR2_ON so that all ! nitrates have the potential to partition to aerosol. ! 24 Mar 16 G. Sarwar: Added heterogeneous uptake of BRONO2 on aerosols ! 10 May 16 H. Pye: Merged with AEROSOL_CHEMISTRY.F from aero6i ! Size of NAMES_AERO_RATES reduced to match RXN_DATA_MODULE ! May 16 H. Pye, B. Murphy: Updated treatment of aerosol moments ! 23 May 16 D. Wong: Allow for calculation for APMDIAG even if PMDIAG is turned off. ! 10 Jun 16 B.Hutzell: reduce occurrences of numerical underflow ! 17 Jul 18 G. Sarwar: Added heterogeneous uptakes of CLNO3, bromine and iodine species ! 01 Feb 19 David Wong: removed MY_N clauses ! 03 Apr 19 H. Pye: Updated IEPOX to consume inorganic sulfate when OS are formed ! 11 Dec 20 G. Sarwar: Removed unused uptake cofficients and added few uptake cofficients for halogen species ! 23 Jun 21 G. Sarwar: Replaced CB6R3M with CB6R5M !----------------------------------------------------------------------- IMPLICIT NONE REAL( 8 ), ALLOCATABLE :: KHETERO( :,:,:,: ) ! heterogeneous rx rates, ! [ppm**(RXN Order-1)*min]**-1 PUBLIC KHETERO, HETCHEM_RATES PRIVATE INTEGER, PARAMETER :: NUMB_AERO_RATES = 55 CHARACTER( 16 ), PARAMETER :: NAMES_AERO_RATES( NUMB_AERO_RATES ) = & (/ 'HETERO_N2O5IJ ', 'HETERO_N2O5K ', & 'HETERO_N2O5IJY ', 'HETERO_N2O5KY ', & 'HETERO_NO2 ', 'HETERO_H2NO3PAIJ', & 'HETERO_H2NO3PBIJ', 'HETERO_H2NO3PAK ', & 'HETERO_H2NO3PBK ', 'HETERO_H2NO3PAI ', & 'HETERO_H2NO3PBI ', 'HETERO_H2NO3PAJ ', & 'HETERO_H2NO3PBJ ', 'HETERO_N2O5I ', & 'HETERO_N2O5J ', 'HETERO_PNCOMLI ', & 'HETERO_PNCOMLJ ', 'HETERO_IEPOX ', & 'HETERO_TETROL ', 'HETERO_IEPOXOS ', & 'HETERO_TETROLDIM', 'HETERO_IEPOXOSDI', & 'HETERO_IMAE ', 'HETERO_2MG ', & 'HETERO_IMAEOS ', 'HETERO_NO3 ', & 'HETERO_GLY ', 'HETERO_MGLY ', & 'HETERO_NTR2 ', 'HETERO_CLNO3_WAI', & 'HETERO_CLNO3_WAJ', 'HETERO_HBR_BRJ ', & 'HETERO_BRNO3_WAI', 'HETERO_BRNO3_WAJ', & 'HETERO_HOBR_CLJ ', 'HETERO_HOBR_BRJ ', & 'HETERO_BRNO3_CLJ', 'HETERO_BRNO3_BRJ', & 'HETERO_BRNO2_CLJ', 'HETERO_BRNO2_BRJ', & 'HETERO_I2O2_AI ', 'HETERO_I2O2_AJ ', & 'HETERO_I2O3_AI ', 'HETERO_I2O3_AJ ', & 'HETERO_I2O4_AI ', 'HETERO_I2O4_AJ ', & 'HETERO_INO3_CLJ ', 'HETERO_INO3_BRJ ', & 'HETERO_INO2_CLJ ', 'HETERO_INO2_BRJ ', & 'HETERO_HOI_CLJ ', 'HETERO_HOI_BRJ ', & 'HETERO_ISO3NOSJ ', 'HETERO_ISO3OSJ ', & 'HETERO_HO2 '/) INTEGER, PARAMETER :: IA_N2O5IJ = 1 INTEGER, PARAMETER :: IA_N2O5K = 2 INTEGER, PARAMETER :: IA_N2O5IJY = 3 INTEGER, PARAMETER :: IA_N2O5KY = 4 INTEGER, PARAMETER :: IA_NO2 = 5 INTEGER, PARAMETER :: IA_H2NO3PAIJ = 6 INTEGER, PARAMETER :: IA_H2NO3PBIJ = 7 INTEGER, PARAMETER :: IA_H2NO3PAK = 8 INTEGER, PARAMETER :: IA_H2NO3PBK = 9 INTEGER, PARAMETER :: IA_H2NO3PAI = 10 INTEGER, PARAMETER :: IA_H2NO3PBI = 11 INTEGER, PARAMETER :: IA_H2NO3PAJ = 12 INTEGER, PARAMETER :: IA_H2NO3PBJ = 13 INTEGER, PARAMETER :: IA_N2O5I = 14 INTEGER, PARAMETER :: IA_N2O5J = 15 INTEGER, PARAMETER :: IA_PNCOMLI = 16 INTEGER, PARAMETER :: IA_PNCOMLJ = 17 INTEGER, PARAMETER :: IA_IEPOX = 18 INTEGER, PARAMETER :: IA_TETROL = 19 INTEGER, PARAMETER :: IA_IEPOXOS = 20 INTEGER, PARAMETER :: IA_TETROLDIM = 21 INTEGER, PARAMETER :: IA_IEPOXOSDI = 22 INTEGER, PARAMETER :: IA_IMAE = 23 INTEGER, PARAMETER :: IA_2MG = 24 INTEGER, PARAMETER :: IA_IMAEOS = 25 INTEGER, PARAMETER :: IA_NO3 = 26 INTEGER, PARAMETER :: IA_GLY = 27 INTEGER, PARAMETER :: IA_MGLY = 28 INTEGER, PARAMETER :: IA_NTR2 = 29 INTEGER, PARAMETER :: IA_CLNO3_WAI = 30 INTEGER, PARAMETER :: IA_CLNO3_WAJ = 31 INTEGER, PARAMETER :: IA_HBR_BRJ = 32 INTEGER, PARAMETER :: IA_BRNO3_WAI = 33 INTEGER, PARAMETER :: IA_BRNO3_WAJ = 34 INTEGER, PARAMETER :: IA_HOBR_CLJ = 35 INTEGER, PARAMETER :: IA_HOBR_BRJ = 36 INTEGER, PARAMETER :: IA_BRNO3_CLJ = 37 INTEGER, PARAMETER :: IA_BRNO3_BRJ = 38 INTEGER, PARAMETER :: IA_BRNO2_CLJ = 39 INTEGER, PARAMETER :: IA_BRNO2_BRJ = 40 INTEGER, PARAMETER :: IA_I2O2_AI = 41 INTEGER, PARAMETER :: IA_I2O2_AJ = 42 INTEGER, PARAMETER :: IA_I2O3_AI = 43 INTEGER, PARAMETER :: IA_I2O3_AJ = 44 INTEGER, PARAMETER :: IA_I2O4_AI = 45 INTEGER, PARAMETER :: IA_I2O4_AJ = 46 INTEGER, PARAMETER :: IA_INO3_CLJ = 47 INTEGER, PARAMETER :: IA_INO3_BRJ = 48 INTEGER, PARAMETER :: IA_INO2_CLJ = 49 INTEGER, PARAMETER :: IA_INO2_BRJ = 50 INTEGER, PARAMETER :: IA_HOI_CLJ = 51 INTEGER, PARAMETER :: IA_HOI_BRJ = 52 INTEGER, PARAMETER :: IA_ISO3NOSJ = 53 INTEGER, PARAMETER :: IA_ISO3OSJ = 54 INTEGER, PARAMETER :: IA_HO2 = 55 INTEGER, PARAMETER :: INDEX_AERO_RATES( NUMB_AERO_RATES ) = & (/ IA_N2O5IJ , IA_N2O5K , & IA_N2O5IJY , IA_N2O5KY , & IA_NO2 , IA_H2NO3PAIJ, & IA_H2NO3PBIJ, IA_H2NO3PAK , & IA_H2NO3PBK , IA_H2NO3PAI , & IA_H2NO3PBI , IA_H2NO3PAJ , & IA_H2NO3PBJ , IA_N2O5I , & IA_N2O5J , IA_PNCOMLI , & IA_PNCOMLJ , IA_IEPOX , & IA_TETROL , IA_IEPOXOS , & IA_TETROLDIM, IA_IEPOXOSDI, & IA_IMAE , IA_2MG , & IA_IMAEOS , IA_NO3 , & IA_GLY , IA_MGLY , & IA_NTR2 , IA_CLNO3_WAI, & IA_CLNO3_WAJ, IA_HBR_BRJ , & IA_BRNO3_WAI, IA_BRNO3_WAJ, & IA_HOBR_CLJ , IA_HOBR_BRJ , & IA_BRNO3_CLJ, IA_BRNO3_BRJ, & IA_BRNO2_CLJ, IA_BRNO2_BRJ, & IA_I2O2_AI , IA_I2O2_AJ , & IA_I2O3_AI , IA_I2O3_AJ , & IA_I2O4_AI , IA_I2O4_AJ , & IA_INO3_CLJ , IA_INO3_BRJ , & IA_INO2_CLJ , IA_INO2_BRJ , & IA_HOI_CLJ , IA_HOI_BRJ , & IA_ISO3NOSJ , IA_ISO3OSJ , & IA_HO2 /) INTEGER :: SELECTED_AERO_RATES INTEGER, ALLOCATABLE :: WHICH_AERO_RATE( : ) C *** Molecular weight REAL( 8 ), SAVE :: MWTIEPOX ! molecular weight of IEPOX [g/mol] REAL( 8 ), SAVE :: CFACTOR_IEPOX ! factor used for the mean molecular speed of IEPOX [m/(s^1*(deg K)^0.5)] REAL( 8 ), SAVE :: MWTIMAE ! molecular weight of IMAE [g/mol] REAL( 8 ), SAVE :: CFACTOR_IMAE ! factor used for the mean molecular speed of IMAE [m/(s^1*(deg K)^0.5)] REAL( 8 ), SAVE :: MWTNO3 ! molecular weight of NO3 [g/mol] REAL( 8 ), SAVE :: CFACTOR_NO3 ! factor used for the mean molecular speed of NO3 [m/(s^1*(deg K)^0.5)] REAL( 8 ), SAVE :: MWTGLY ! molecular weight of GLY [g/mol] REAL( 8 ), SAVE :: CFACTOR_GLY ! factor used for the mean molecular speed of GLY [m/(s^1*(deg K)^0.5)] REAL( 8 ), SAVE :: MWTMGLY ! molecular weight of MGLY [g/mol] REAL( 8 ), SAVE :: CFACTOR_MGLY ! factor used for the mean molecular speed of MGLY [m/(s^1*(deg K)^0.5)] REAL( 8 ), SAVE :: MWTHO2 ! molecular weight of HO2 [g/mol] REAL( 8 ), SAVE :: CFACTOR_HO2 ! factor used for the mean molecular speed of HO2 [m/(s^1*(deg K)^0.5)] C *** 2nd and 3rd moments with wet species REAL( 8 ), ALLOCATABLE :: WET_M3( : ) ! WET_M3_I, WET_M3_J, WET_M3_K ! M3 w.H2O, svOA REAL( 8 ), ALLOCATABLE :: WET_M2( : ) ! WET_M2_I, WET_M2_J, WET_M2_K ! M2 w.H2O, svOA REAL( 8 ), ALLOCATABLE :: DE_WET( : ) ! DE_AT_WET, DE_AC_WET, DE_CO_WET ! Initial effective diameter w.H2O C Isoprene product particle phase reaction rates (Eddingsaas et al. 2010) [1/(M^2 s)] REAL ( 8 ), PARAMETER :: K_H_WATER = 9.0D-4 REAL ( 8 ), PARAMETER :: K_H_NUC = 2.0D-4 REAL ( 8 ), PARAMETER :: K_H_SO4 = 8.83D-3 ! Piletic et al. 2013, Budisulistiorini et al. in prep REAL ( 8 ), PARAMETER :: K_HSO4_WATER = 1.31D-5 REAL ( 8 ), PARAMETER :: K_HSO4_NUC = 2.92D-6 C Acid catalyzed particle phase reactions TYPE ACID_CAT CHARACTER( 16 ) :: PARENT ! gas-phase parent species CHARACTER( 16 ) :: NUC ! aerosol-phase nucleophile that adds to epoxide ring CHARACTER( 16 ) :: ACID ! acid that catalyzes epoxide ring opening INTEGER :: IDX_ACID ! array index for acid concentration INTEGER :: IDX_REMOVE ! array index denoting whether to correct nucleophile for acid REAL( 8 ) :: KCHEM ! particle phase rate constant [1/(M^2 s)] CHARACTER( 16 ) :: PROD ! product of nucleophile+parent END TYPE ACID_CAT C IEPOX uptake parameters INTEGER, SAVE :: N_NUCPAIRS ! NUMBER OF ACID/NUCLEOPHILE PAIRS TYPE( ACID_CAT ), ALLOCATABLE, SAVE :: ACID_NUC_PAIRS( : ) INTEGER, SAVE :: NUMVOC ! number of VOCs treated (IEPOX, IMAE) C IEPOX uptake parameters for standard AERO6 or AERO7 (condensed IEPOX SOA) INTEGER, PARAMETER :: N_NUCPAIRS_AE = 6 ! NUMBER OF ACID/NUCLEOPHILE PAIRS C IEPOX uptake based on Eddingsaas et al. 2010 parameters with Piletic C 2013 update for the organosulfate. Same as Pye et al. 2013 C implementation except dimers are not considered. TYPE( ACID_CAT ), PARAMETER :: ACID_NUC_PAIRS_AE( N_NUCPAIRS_AE ) = (/ C Parent Nucleophile Acid Acid Remove Rate Constant Product C (parent) (nuc) (acid) Index Index (kchem) (prod) C -------- ----------- ---------- ----- ------ ------------- -------- & ACID_CAT('IEPOX', 'AH2OJ ', 'HPLUS ', 1, 0, K_H_WATER, 'AISO3J' ), & ACID_CAT('IEPOX', 'ASO4J ', 'HPLUS ', 1, 2, K_H_SO4, 'AISO3J' ), & ACID_CAT('IEPOX', 'ANO3J ', 'HPLUS ', 1, 0, K_H_NUC, 'AISO3J' ), & ACID_CAT('IEPOX', 'AH2OJ ', 'HSO4 ', 2, 0, K_HSO4_WATER, 'AISO3J' ), & ACID_CAT('IEPOX', 'ASO4J ', 'HSO4 ', 2, 2, K_HSO4_NUC, 'AISO3J' ), & ACID_CAT('IEPOX', 'ANO3J ', 'HSO4 ', 2, 0, K_HSO4_NUC, 'AISO3J' )/) C IEPOX + MAE uptake parameters for AERO6i or AERO7i (explicit IEPOX SOA) INTEGER, PARAMETER :: N_NUCPAIRS_AEI = 12 ! NUMBER OF ACID/NUCLEOPHILE PAIRS C IEPOX uptake following the implementation C in Pye et al. 2013 ES&T base simulation except epoxide-derived organonitrates are no longer C considered in saprc07tic_ae7i due to their predicted small contribution to ambient PM. In addition, C oligomerization of MAE/HMML-derived aerosol is not considered also due to its predicted C small contribution and desire to have the model "dimer" species be only IEPOX derived. TYPE( ACID_CAT ), PARAMETER :: ACID_NUC_PAIRS_AEI( N_NUCPAIRS_AEI ) = (/ C Parent Nucleophile Acid Acid Remove Rate Constant Product C (parent) (nuc) (acid) Index Index (kchem) (prod) C -------- ----------- ---------- ----- ------ ------------- -------- & acid_cat('IEPOX', 'AH2OJ ', 'HPLUS ', 1, 0, k_H_water, 'AIETETJ' ), & acid_cat('IEPOX', 'ASO4J ', 'HPLUS ', 1, 2, k_H_SO4, 'AIEOSJ' ), & acid_cat('IEPOX', 'AIEOSJ ', 'HPLUS ', 1, 0, k_H_nuc, 'ADIMJ' ), & acid_cat('IEPOX', 'AIETETJ ', 'HPLUS ', 1, 0, k_H_nuc, 'ADIMJ' ), & acid_cat('IEPOX', 'AH2OJ ', 'HSO4 ', 2, 0, k_HSO4_water, 'AIETETJ' ), & acid_cat('IEPOX', 'ASO4J ', 'HSO4 ', 2, 2, k_HSO4_nuc, 'AIEOSJ' ), & acid_cat('IEPOX', 'AIEOSJ ', 'HSO4 ', 2, 0, k_HSO4_nuc, 'ADIMJ' ), & acid_cat('IEPOX', 'AIETETJ ', 'HSO4 ', 2, 0, k_HSO4_nuc, 'ADIMJ' ), & acid_cat('IMAE', 'AH2OJ ', 'HPLUS ', 1, 0, k_H_water, 'AIMGAJ' ), & acid_cat('IMAE', 'ASO4J ', 'HPLUS ', 1, 2, k_H_nuc, 'AIMOSJ' ), & acid_cat('IMAE', 'AH2OJ ', 'HSO4 ', 2, 0, k_HSO4_water, 'AIMGAJ' ), & acid_cat('IMAE', 'ASO4J ', 'HSO4 ', 2, 2, k_HSO4_nuc, 'AIMOSJ' )/) C IEPOX uptake for CRACMM mechanism INTEGER, PARAMETER :: N_NUCPAIRS_CRCM = 6 ! NUMBER OF ACID/NUCLEOPHILE PAIRS TYPE( ACID_CAT ), PARAMETER :: ACID_NUC_PAIRS_CRCM( N_NUCPAIRS_CRCM ) = (/ C Parent Nucleophile Acid Acid Remove Rate Constant Product C (parent) (nuc) (acid) Index Index (kchem) (prod) C -------- ----------- ---------- ----- ------ ------------- -------- & acid_cat('IEPOX', 'AH2OJ ', 'HPLUS ', 1, 0, K_H_WATER, 'AISO3NOSJ' ), & acid_cat('IEPOX', 'ASO4J ', 'HPLUS ', 1, 2, K_H_SO4, 'AISO3OSJ' ), & acid_cat('IEPOX', 'ANO3J ', 'HPLUS ', 1, 0, K_H_NUC, 'AISO3NOSJ' ), & acid_cat('IEPOX', 'AH2OJ ', 'HSO4 ', 2, 0, K_HSO4_WATER, 'AISO3NOSJ' ), & acid_cat('IEPOX', 'ASO4J ', 'HSO4 ', 2, 2, K_HSO4_NUC, 'AISO3OSJ' ), & acid_cat('IEPOX', 'ANO3J ', 'HSO4 ', 2, 0, K_HSO4_NUC, 'AISO3NOSJ' )/) C Mapping array for location of acid enhanced products and nucleophiles in aerospc_conc INTEGER, ALLOCATABLE, SAVE :: ACID_PRODMAP_IDX( : ) INTEGER, ALLOCATABLE, SAVE :: ACID_NUCMAP_IDX( : ) CONTAINS SUBROUTINE HETCHEM_RATES( TEMP, PRESS, WVAPOR, CGRID, DENS ) c Calculates the heterogeneous reactions for N2O5, NO2, CLNO2, and IEPOX. c c Key Subroutines Called: EXTRACT_AERO, EXTRACT_SOA, PATPAR c N2O5_GAMMA c c 09/18/13 - B.Hutzell - initial version adapted from the hetchem.F file c in aero6 module of CMAQ version 5.01. The adaptation includes c heterogeneous nitryl chloride production used for Sarwar et al. c (2012). c 09/12/14 - G. Sarwar - revised the heterogeneous nitryl chloride production c 09/26/14 - H. Pye - Heterogeneous uptake of IEPOX on acidic aerosol added c following Pye et al. (2013). c 10/01/14 - B.Hutzell - change STP value for N205 diffusivity based on c review paper: 1) M. J. Tang, R. A. Cox, and M. Kalberer. c Compilation and evaluation of gas-phase diffusion coefficients c of inorganic reactive trace gases in the atmosphere. Atmos. Chem. c Phys. Discuss., 14, 15645–15682, 2014. c www.atmos-chem-phys-discuss.net/14/15645/2014/doi:10.5194/acpd-14-15645-2014.pdf c 09/12/14 - G. Sarwar - revised the heterogeneous nitryl chloride production C 10/01/14 - B.Hutzell - change STP value for N205 diffusivity based on C review paper: 1) M. J. Tang, R. A. Cox, and M. Kalberer. C Compilation and evaluation of gas-phase diffusion coefficients C of inorganic reactive trace gases in the atmosphere. Atmos. Chem. C Phys. Discuss., 14, 15645–15682, 2014. C www.atmos-chem-phys-discuss.net/14/15645/2014/doi:10.5194/acpd-14-15645-2014.pdf c 01/02/15 - H. Pye - Heterogeneous uptake of MAE added to saprc07tic_ae6i version C heterogeneous nitryl chloride production used for Sarwar et al. c (2012). C 02/09/15 - B.Hutzell - corrected NO2 rate by a factor of two based consulting the stoiciometery for c reaction published in Sarwar et al. (2008) and its analytical solution C 05/06/2015 H Pye - Added NO3 heterogeneous reaction using low end of C range from Mao et al 2013 C 06/2015 H Pye - Added SOA from GLY and MGLY uptake onto particles C 09/2015 B.Hutzell - Added data and varaibles to calculate pseudo-first order rate constant C for heterogeneous hydrolysis that converts organic nitrate to nitric acid. Both are C assumed gas phase species. The reaction comes the CB6r3 chemical mechanism used by C the Environ CAMX model consult references 9 and 10. c 03/24/16 - G. Sarwar - Heterogeneous uptake of BRONO2 on aerosols C 5/2016 H Pye - merged with AERO6i version (added NO3, GLY, MGLY, IMAE het rxn) c 07/17/18 - G. Sarwar - Heterogeneous uptakes of chlorine, bromine and iodine species on aerosols C 06/10/21 - G. Sarwar: Added CB6R5M_AE7_AQ C 11/08/23 - N. Skipper: Added heterogeneous uptake of HO2 C c REFERENCES: c 1. Pleim, J.E., F.S. Binkowski, J.K.S. Ching, R.L. Dennis, and N.V. c Gallani, An improved representation of the reaction of N2O5 on c aerosols for mesoscale air quality models. In "Regional c Photochemical Measurement and Modeling Studies, Vol 2 - Results c and Status of Modeling," Eds A.J. Ranzieri and P.A. Solomon, pp c 904-913, 1995. c c 2. Davis, J.M., P.V. Bhave, and K.M. Foley, Parameterization of N2O5 c reaction probabilities on the surface of particles containing c ammonium, sulfate, and nitrate. Atmos. Chem. Phys., 2008, in c press. c c 3. Vogel, B., H. Vogel, J. Kleffman, and R. Kurtenbach, Measured and c simulated vertical profiles of nitrous acid - Part II. Model c simulations and indications for a photolytic source, Atmospheric c Environment, 37, 2957-2966, 2003. c c 4. Sarwar, G., S.J. Roselle, R. Mathur, W. Appel, R.L. Dennis, and c B. Vogel, A comparison of CMAQ HONO predictions with observations c from the Northeast Oxidant and Particle Study, Atmospheric c Environment, 2008, in press. C C 5. Bertram, T. H. and J.A. Thornton, Toward a general parameterization C of N2O5 reactivity on aqueous particles: the competing effects of C particle liquid water, nitrate, and chloride, ACP, 9, 8351-8363, 2009 C C 6. Sarwar, G., H. Simon2, P. Bhave1, and G. Yarwood. Examining the impact of C heterogeneous nitryl chloride production on air quality across the United C States. Atmos. Chem. Phys., 12, 6455-6473, 2012. C C 7. Pye et al., Epoxide pathways improve model predictions of isoprene C markers and reveal key role of acidity in aerosol formation, C Environ. Sci. Technol., doi: 10.1021/es402106h, 2013. C C 8. Rollins, A.W., S. Pusede, P.Wooldridge, K.-E.Min, D.R. Gentner, A.H. C Goldstein, S. Liu, D.A. Day, L.M. Russell, C.L. Rubitschun, J.D. Surratt, C and R.C. Cohen, Gas/particle partitioning of total alkyl nitrates C observed with TD-LIF in Bakersfield.J.Geophys.Res., 118, 6651-6662, 2013. C C 9. Liu, S., J.E. Shilling, C. Song, N. Hiranuma, R.A. Zaveri, L.M. Russell, C Hydrolysis of Organonitrate Functional Groups in Aerosol Particles. C Aerosol Sci. Technol., 46, 1359-1369, 2012. C C 10. Yang, X., R. A. Cox, N. J. Warwick, J. A. Pyle, G. D. Carver, F. M. C O'Connor, and N. H. Savage, Tropospheric bromine chemistry C and its impacts on ozone: A model study, J. Geophys. Res., 110, D23311, C doi:10.1029/2005JD006244, 2005. C C 11. Mao et al. Ozone and organic nitrates over the eastern United C States: Sensitivity to isoprene chemistry, J. Geophys. Res. doi: C 10.1002/jgrd.50817, 2013. C 12. Fernandez et al., Bromine partitioning in the tropical tropopause layer: C implications for stratospheric injection, ACP, 14, 13391-13410, 2014. C C 13. Schmidt et al., Modeling the observed tropospheric BrO background: Importance C of multiphase chemistry and implications for ozone, OH, and mercury, C J. Geophys. Res. doi: 10.1002/2015JD024229 C C 14. Sherwen et al., Global impacts of tropospheric halogens on oxidants and C composition in GEOS-CHEM: ACP, 16, 12239-12271, 2016 C C 15. Deiber et al., Uptake of ClONO2 and BrONO2 by halide containing droplets C ACP, 4, 1291-1299, 2004 C C 16. Ivatt et al., Suppression of surface ozone by an aerosol-inhibited C photochemical ozone regime, Nat. Geosci., C doi: 10.1038/s41561-022-00972-9, 2022 C 17. Jacob, Heterogeneous chemistry and tropospheric ozone, Atm Env., C doi: 10.1016/S1352-2310(99)00462-8, 2000 C C----------------------------------------------------------------------- USE RUNTIME_VARS USE GRID_CONF ! horizontal & vertical domain specifications USE RXNS_DATA USE AERO_DATA USE AEROMET_DATA, ONLY: f6dpi, airdens USE PRECURSOR_DATA USE SOA_DEFN USE ELMO_DATA !USE ELMO_PROC USE CENTRALIZED_IO_MODULE IMPLICIT NONE INCLUDE SUBST_CONST ! CMAQ constants C *** Arguments REAL, POINTER :: CGRID ( :,:,:,: ) ! pointer of model concentrations REAL, INTENT( IN ) :: TEMP ( :,:,: ) ! temperature [K] REAL, INTENT( IN ) :: PRESS ( :,:,: ) ! pressure [Pa] REAL, INTENT( IN ) :: WVAPOR( :,:,: ) ! water vapor mass mixing ratio(Kg/Kg air) REAL, OPTIONAL, INTENT( IN ) :: DENS ( :,:,: ) ! air density(Kg/m3 air) CHARACTER(16), SAVE :: PNAME = 'HETCHEM_RATES' C *** Parameters REAL( 8 ), PARAMETER :: AQUEOUS_FREQUENCY = 1.0D+9 REAL( 8 ), PARAMETER :: INV_SQRT_MWNO2 = 1.47425932467825D-1 REAL( 8 ), PARAMETER :: INV_SQRT_MWN2O5 = 9.62161363758323D-2 REAL( 8 ), PARAMETER :: INV_SQRT_MWCLNO3 = 1.012739360000D-1 REAL( 8 ), PARAMETER :: INV_SQRT_MWBRNO3 = 8.394770000000D-2 REAL( 8 ), PARAMETER :: INV_SQRT_MWBRNO2 = 8.91220000000D-2 REAL( 8 ), PARAMETER :: INV_SQRT_MWHOBR = 1.015869000D-1 REAL( 8 ), PARAMETER :: INV_SQRT_MWHBR = 1.111797000D-1 REAL( 8 ), PARAMETER :: INV_SQRT_MWI2O2 = 5.9151900D-2 REAL( 8 ), PARAMETER :: INV_SQRT_MWI2O3 = 5.7562500D-2 REAL( 8 ), PARAMETER :: INV_SQRT_MWI2O4 = 5.6090000D-2 REAL( 8 ), PARAMETER :: INV_SQRT_MWINO3 = 7.275850000D-2 REAL( 8 ), PARAMETER :: INV_SQRT_MWINO2 = 7.605050000D-2 REAL( 8 ), PARAMETER :: INV_SQRT_MWHOI = 8.336220000D-2 REAL( 8 ), PARAMETER :: UGM3_CONV_FAC = 8.31251724585556D00 ! =1.0E-3*AIRDENS_STD*(PRESS_STD/TEMP_STD) REAL( 8 ), PARAMETER :: COEF1 = 7.24382926227485D10 ! Molec/cc to ppm conv factor REAL( 8 ), PARAMETER :: COEF2 = 2.14805198392421D13 ! convert air density [kg/m3] to number density [ppm] REAL( 8 ), PARAMETER :: GAMMA_NO3 = 1.0D-3 ! Jacob 2000 REAL( 8 ), PARAMETER :: GAMMA_GLY = 2.9D-3 ! Liggio et al. 2005 REAL( 8 ), PARAMETER :: GAMMA_HO2 = 0.2D+0 ! Ivatt et al. 2022 REAL( 8 ), PARAMETER :: STD_DIFF_N2O5 = 0.0855D-4 ! N2O5 molecular diffusivity at 101325 Pa and 273.15 K [m2/sec] REAL( 8 ), PARAMETER :: STD_DIFF_CLNO3 = 0.1014D-4 ! CLNO3 molecular diffusivity at 101325 Pa and 273.15 K [m2/sec] REAL( 8 ), PARAMETER :: STD_DIFF_BRNO3 = 0.0855D-4 ! BRONO2 molecular diffusivity at 101325 Pa and 273.15 K [m2/sec] REAL( 8 ), PARAMETER :: STD_DIFF_BRNO2 = 0.0999D-4 ! BRNO2 molecular diffusivity at 101325 Pa and 273.15 K [m2/sec] REAL( 8 ), PARAMETER :: STD_DIFF_HOBR = 0.1101D-4 ! HOBR molecular diffusivity at 101325 Pa and 273.15 K [m2/sec] REAL( 8 ), PARAMETER :: STD_DIFF_HBR = 0.1216D-4 ! HBR molecular diffusivity at 101325 Pa and 273.15 K [m2/sec] REAL( 8 ), PARAMETER :: STD_DIFF_I2O2 = 0.0732D-4 ! I2O2 molecular diffusivity at 101325 Pa and 273.15 K [m2/sec] REAL( 8 ), PARAMETER :: STD_DIFF_I2O3 = 0.0707D-4 ! I2O3 molecular diffusivity at 101325 Pa and 273.15 K [m2/sec] REAL( 8 ), PARAMETER :: STD_DIFF_I2O4 = 0.0684D-4 ! I2O4 molecular diffusivity at 101325 Pa and 273.15 K [m2/sec] REAL( 8 ), PARAMETER :: STD_DIFF_INO3 = 0.0792D-4 ! INO3 molecular diffusivity at 101325 Pa and 273.15 K [m2/sec] REAL( 8 ), PARAMETER :: STD_DIFF_INO2 = 0.0833D-4 ! INO2 molecular diffusivity at 101325 Pa and 273.15 K [m2/sec] REAL( 8 ), PARAMETER :: STD_DIFF_HOI = 0.0972D-4 ! HOI molecular diffusivity at 101325 Pa and 273.15 K [m2/sec] ! REAL, PARAMETER :: GPKG = 1.0E+03 ! g/kg unit conversion REAL, PARAMETER :: CFACTOR = 8.0 * GPKG * RGASUNIV / PI ! factor in cbar_coeff REAL, PARAMETER :: PA2ATM = 1.0 / STDATMPA ! Pascal to atm conv fac REAL, PARAMETER :: WMASS2PPM = 1.0E6 * MWAIR / MWWAT ! H2O mixing ratio to ppm REAL, PARAMETER :: MAOMV = MWAIR / MWWAT REAL, PARAMETER :: CONCOFM = 1.0E+06 ! conc. of M = 1E+06 ppm REAL, PARAMETER :: INV_STDTEMP = 1.0 / STDTEMP REAL, PARAMETER :: EPSWATER = MWWAT / MWAIR C *** parameters for heterogeneous hydrolysis of NTR2 REAL, PARAMETER :: ON_ALPHA1 = 0.34, ! Organic nitrate (ON) partitioning parameters & ON_ALPHA2 = 0.66, ! based on Rollins et al., 2013 & ON_CSTAR1 = 0.73, & ON_CSTAR2 = 1000.0 REAL, PARAMETER :: MIN_TOA = 0.0001 ! Min. conc. of total OA for partitioning to occur [ug/m3] REAL, PARAMETER :: KHON = 2.7778E-03 ! heterogeneous ON hydrolysis rate [1/min] ~ 4/day C *** Local Variables REAL( 8 ) :: AIRTEMP ! air temperature [K] REAL( 8 ) :: AIRPRES ! air pressure [Pa] REAL( 8 ) :: GAMMA ! fine mode N2O5->NO3 rxn probability REAL( 8 ) :: GAMMAIEPOX ! IEPOX uptake coefficient REAL( 8 ) :: GAMMAIMAE ! IMAE uptake coefficient REAL( 8 ) :: KPIEPOX ! IEPOX particle-phase reaction rate const (pseudo 1st order, sec-1) REAL( 8 ) :: KN2O5( N_MODE ) ! pseudo-first order rate constant, sec-1 REAL( 8 ) :: KNO3( N_MODE ) ! pseudo-first order rate constant, sec-1 REAL( 8 ) :: KGLY( N_MODE ) ! pseudo-first order rate constant, sec-1 REAL( 8 ) :: KMGLY( N_MODE ) ! pseudo-first order rate constant, sec-1 REAL( 8 ) :: KNO2 ! pseudo-first order rate constant, sec-1 REAL( 8 ) :: KIEPOX ! pseudo-first order rate constant for IEPOX uptake, sec-1 REAL( 8 ) :: KIMAE ! pseudo-first order rate constant for MAE uptake, sec-1 REAL( 8 ) :: KHO2( N_MODE ) ! pseudo-first order rate constant, sec-1 REAL( 8 ) :: K1 ! pseudo-first order rate constant, sec-1 REAL( 8 ) :: K2 ! pseudo-first order rate constant, sec-1 REAL( 8 ), PARAMETER :: MIN_VALUE = 1.0D-09 ! minimum concentration for activating chemistry REAL( 8 ) :: CBAR_COEFF ! cell coefficient for mean molecular speed REAL( 8 ) :: ADJUST_DIFF ! Cell temp and press correction to diffusivity REAL( 8 ) :: INV_DIFFUSIVITY ! reciprocal molecular diffusivity [m2/sec] REAL( 8 ) :: XXF( N_MODE ) ! XXF_AT, XXF_AC, XXF_CO ! modal factors to calculate KN2O5 REAL( 8 ) :: CL_PPM( N_MODE ) ! aerosol chlorine in ppm REAL( 8 ) :: BR_PPM( N_MODE ) ! aerosol bromine in ppm REAL( 8 ) :: YIELD_CLNO2( N_MODE ) ! model reactions yields of CLNO2 REAL( 8 ) :: H2OVP ! ambient water vapor pressure [Atm] REAL( 8 ) :: AIRRH ! Relative Humidity [Fractional] REAL( 8 ) :: YIELDIJ ! fine mode reaction yield, dimensionaless REAL( 8 ) :: TOTSURFA ! aerosol surface area (m**2/m**3) REAL( 8 ) :: FACTOR ! scratch multiplicative factor REAL( 8 ) :: RFACTOR ! factor converting rate constant from cm3/molec/sec to 1/ppm/min REAL( 8 ) :: RADIUS_I ! effective particle radius [m] - i-mode REAL( 8 ) :: RADIUS ! effective particle radius [m] - j-mode REAL( 8 ) :: SSALT_SURFA ! sea-salt aerosol surface area (m**2/m**3) REAL( 8 ) :: SSALT_VOL ! sea-salt aerosol volume (m**3/m**3) REAL( 8 ) :: CBAR ! molecular velocity of N2O5 (m/s) REAL( 8 ) :: CBARIEPOX ! molecular velocity of IEPOX (m/s) REAL( 8 ) :: CBARIMAE ! molecular velocity of IMAE (m/s) REAL( 8 ) :: CBARNO3 ! molecular velocity of NO3 (m/s) REAL( 8 ) :: CBARGLY ! molecular velocity of GLY (m/s) REAL( 8 ) :: CBARMGLY ! molecular velocity of MGLY (m/s) REAL( 8 ) :: CBARHO2 ! molecular velocity of HO2 (m/s) REAL( 8 ) :: TETROL_PPM ! accumulation mode aerosol tetrol in ppm REAL( 8 ) :: IEPOXOS_PPM ! accumulation mode iepox organosulfate in ppm REAL( 8 ) :: ASO4J_PPM ! accumulation mode inorganic sulfate in ppm REAL( 8 ) :: FH2O(2) ! fraction of epoxide aerosol from hydrolysis, index: IEPOX(1) and MAE(2) REAL( 8 ) :: FOS(2) ! fraction of epoxide aerosol as organosulfate, index: IEPOX(1) and MAE(2) REAL( 8 ) :: FDIM1(2) ! fraction of epoxide aerosol as dimer, index: IEPOX(1) and MAE(2) REAL( 8 ) :: FDIM2(2) ! fraction of epoxide aerosol as organosulfate dimer, index: IEPOX(1) and MAE(2) REAL( 8 ), SAVE :: INV_MWIETET, INV_MWIEOS ! reciprocal of molecular weight for tetrol, iepoxos [mol/g] REAL( 8 ), SAVE :: INV_MWASO4 ! reciprocal of molecular weight of particulate sulfate [mol/g] REAL( 8 ) :: CBAR_CLNO3 ! molecular velocity of CLNO3 (m/s) REAL( 8 ) :: CBAR_HBR ! molecular velocity of HOBR (m/s) REAL( 8 ) :: CBAR_BRNO2 ! molecular velocity of BRNO2 (m/s) REAL( 8 ) :: CBAR_BRNO3 ! molecular velocity of BRNO3 (m/s) REAL( 8 ) :: CBAR_HOBR ! molecular velocity of HOBR (m/s) REAL( 8 ) :: CBAR_I2O2 ! molecular velocity of I2O2 (m/s) REAL( 8 ) :: CBAR_I2O3 ! molecular velocity of I2O3 (m/s) REAL( 8 ) :: CBAR_I2O4 ! molecular velocity of I2O4 (m/s) REAL( 8 ) :: CBAR_INO2 ! molecular velocity of INO2 (m/s) REAL( 8 ) :: CBAR_INO3 ! molecular velocity of INO3 (m/s) REAL( 8 ) :: CBAR_HOI ! molecular velocity of HOI (m/s) REAL( 8 ) :: CLNO3_H2O_RXN_TIME ! CLNO3 reaction time per aerosol surface area density with H2O (s/m) REAL( 8 ) :: HBR_RXN_TIME ! HBR reaction time per aerosol surface area density with seasalt (s/m) REAL( 8 ) :: BRNO3_H2O_RXN_TIME ! BRNO3 reaction time per aerosol surface area density with H2O (s/m) REAL( 8 ) :: HOBR_ASS_RXN_TIME ! HOBR reaction time per aerosol surface area density with fine-mode ACL (s/m) REAL( 8 ) :: BRNO2_RXN_TIME ! BRNO2 reaction time per aerosol surface area density (s/m) REAL( 8 ) :: BRNO3_RXN_TIME ! BRNO3 reaction time per aerosol surface area density (s/m) REAL( 8 ) :: I2O2_RXN_TIME ! I2O2 reaction time per aerosol surface area density (s/m) REAL( 8 ) :: I2O3_RXN_TIME ! I2O3 reaction time per aerosol surface area density (s/m) REAL( 8 ) :: I2O4_RXN_TIME ! I2O4 reaction time per aerosol surface area density (s/m) REAL( 8 ) :: INO2_RXN_TIME ! INO2 reaction time per aerosol surface area density (s/m) REAL( 8 ) :: INO3_RXN_TIME ! INO3 reaction time per aerosol surface area density (s/m) REAL( 8 ) :: HOI_RXN_TIME ! HOI reaction time per aerosol surface area density (s/m) REAL( 8 ) :: INV_DIFF_CLNO3 ! reciprocal molecular diffusivity [m2/sec] REAL( 8 ) :: INV_DIFF_HBR ! reciprocal molecular diffusivity [m2/sec] REAL( 8 ) :: INV_DIFF_BRNO3 ! reciprocal molecular diffusivity [m2/sec] REAL( 8 ) :: INV_DIFF_BRNO2 ! reciprocal molecular diffusivity [m2/sec] REAL( 8 ) :: INV_DIFF_HOBR ! reciprocal molecular diffusivity [m2/sec] REAL( 8 ) :: INV_DIFF_I2O2 ! reciprocal molecular diffusivity [m2/sec] REAL( 8 ) :: INV_DIFF_I2O3 ! reciprocal molecular diffusivity [m2/sec] REAL( 8 ) :: INV_DIFF_I2O4 ! reciprocal molecular diffusivity [m2/sec] REAL( 8 ) :: INV_DIFF_INO3 ! reciprocal molecular diffusivity [m2/sec] REAL( 8 ) :: INV_DIFF_INO2 ! reciprocal molecular diffusivity [m2/sec] REAL( 8 ) :: INV_DIFF_HOI ! reciprocal molecular diffusivity [m2/sec] REAL :: MARINE_AREA ! variable to identify grid-cells over ocean INTEGER, SAVE :: IMAE_IDX !INTEGER, SAVE :: IHMML_IDX INTEGER, SAVE :: NO3_IDX INTEGER, SAVE :: GLY_IDX INTEGER, SAVE :: MGLY_IDX INTEGER, SAVE :: BR_IDX INTEGER, SAVE :: HO2_IDX C *** variables for parameterization by Bertram and Thornton REAL :: ACL ! i+j or k mode chloride, ug/m3 REAL :: ABR ! i+j or k mode bromide, ug/m3 REAL :: AH2O ! i+j or k mode water, ug/m3 REAL :: POC ! i or j mode primary organic carbon, ug/m3 REAL :: PNCOM ! i or j mode primary noncarbon organic matter, ug/m3 REAL, SAVE :: MWCLH2O ! ratio of MWCL/MWH2O REAL, SAVE :: MWH2OCL ! ratio of MWH2O/MWCL REAL, SAVE :: MWCLCLNO2 ! ratio of MWCL/MWCLNO2 REAL( 8 ), SAVE :: INV_MWCL ! ratio of 1.0D0/MWCL REAL( 8 ), SAVE :: INV_MWBR ! ratio of 1.0D0/MWBR REAL( 8 ) :: PPM_FACTOR ! conversion factor to umoles/m3 to ppm C *** variables for heterogeneous hydrolysis of NTR2 REAL :: CON_TOA ! Conc. of total OA [ug/m3] REAL :: F_PART_NTR2 ! NTR2 fraction in the particle phase LOGICAL, SAVE :: FIRSTIME = .TRUE. INTEGER :: IRATE ! loop counter INTEGER :: INDX ! found array index INTEGER, SAVE :: CLNO2_IDX INTEGER, SAVE :: IEPOX_IDX INTEGER :: C INTEGER :: R INTEGER :: L INTEGER :: N INTEGER :: I INTEGER SPC ! loop counter C *** variables for getting aerosol diagnostic file flag INTEGER :: STATUS ! ENV... status CHARACTER( 80 ) :: VARDESC ! environment variable description CHARACTER( 132 ) :: XMSG C *** Statement Function ************** REAL( 8 ) :: INV_ESATL ! arithmetic statement function for reciprocal vapor pressure [Pa] REAL( 8 ) :: TT C *** parameters for calculating GAMMA of HBR ---> ABR, Sherwen et al., ACP, 2016 and IUPAC REAL( 8 ) :: GAMMA_HBR ! uptake coefficient of HBR REAL( 8 ) :: INV_GAMMA_HBR ! reciprocal of rxn probability for CLNO3 on aerosol, Dieber et al., ACP, 2004 REAL( 8 ), PARAMETER :: INV_GAMMA_CLNO3_H2O = 1.0D0 / 0.024D0 ! Dieber et al., ACP, 2004 (with H2O) ! reciprocal of rxn probability for bromine species on aerosol REAL( 8 ), PARAMETER :: INV_GAMMA_BRNO3_H2O = 1.0D0 / 0.03D0 ! Dieber et al., ACP, 2004 REAL( 8 ), PARAMETER :: INV_GAMMA_HOBR_ASS = 1.0D0 / 0.1D0 ! Fernandez et al, 2014 REAL( 8 ), PARAMETER :: INV_GAMMA_BRNO3 = 1.0D0 / 0.08D0 ! Fernandez et al, 2014 REAL( 8 ), PARAMETER :: INV_GAMMA_BRNO2 = 1.0D0 / 0.04D0 ! Fernandez et al, 2014 ! reciprocal of rxn probability for iodine species on aerosol, selective REAL( 8 ), PARAMETER :: INV_GAMMA_I2O2 = 1.0D0 / 0.02D0 ! Sherwen et al., 2016 REAL( 8 ), PARAMETER :: INV_GAMMA_I2O3 = 1.0D0 / 0.02D0 ! Sherwen et al., 2016 REAL( 8 ), PARAMETER :: INV_GAMMA_I2O4 = 1.0D0 / 0.02D0 ! Sherwen et al., 2016 REAL( 8 ), PARAMETER :: INV_GAMMA_HOI = 1.0D0 / 0.01D0 ! Sherwen et al., 2016 REAL( 8 ), PARAMETER :: INV_GAMMA_INO3 = 1.0D0 / 0.01D0 ! Saiz-Lopez et al. 2014 REAL( 8 ), PARAMETER :: INV_GAMMA_INO2 = 1.0D0 / 0.02D0 ! Saiz-Lopez et al. 2014 C *** Coefficients for the equation, ESATL defining saturation vapor pressure C *** values of AL, BL, and CL are from: C Alduchov and Eskridge, "Improved Magnus Form Approximations of C Saturation Vapor Pressure," C Jour. of Applied Meteorology, vol. 35, C pp 601-609, April, 1996. REAL( 8 ), PARAMETER :: AL = 610.94D0 REAL( 8 ), PARAMETER :: BL = 17.625D0 REAL( 8 ), PARAMETER :: CL = 243.04D0 REAL( 8 ), PARAMETER :: DL = 1.0D0 / AL #ifdef verbose_aerosol_chemistry LOGICAL :: DUMP_CELL #endif INTERFACE SUBROUTINE GETPAR( FIXED_sg ) LOGICAL, INTENT( IN ) :: FIXED_sg ! fix coarse and accum Sg's to the input value? END SUBROUTINE GETPAR Subroutine Hetchem_Extract_Aero( CONCVEC, C, R, L, WET_M2, & WET_M3, DE_WET ) Real, Intent( In ) :: CONCVEC( : ) Integer, Intent(In) :: C, R, L Real(8), Intent( Out ):: Wet_M2( : ), Wet_M3( : ), De_Wet( : ) End Subroutine Hetchem_Extract_Aero END INTERFACE INV_ESATL( TT ) = DL * DEXP( BL * ( 273.15D0 - TT ) / ( TT - 273.15D0 + CL ) ) C----------------------------------------------------------------------- IF ( NHETERO .LT. 1 )RETURN C *** compute only on first pass IF ( FIRSTIME ) THEN FIRSTIME = .FALSE. CALL MAP_AERO() CALL MAP_PRECURSOR() ALLOCATE( WHICH_AERO_RATE( NHETERO ) ) C *** 2nd and 3rd moments (w. H2O and svOA) ALLOCATE( WET_M3( N_MODE ), & WET_M2( N_MODE ), & DE_WET( N_MODE ) ) C *** Allocate Gridded Dry Initial Moments so they can be saved for the C end of the gas-phase chemical driver WHICH_AERO_RATE = -1 SELECTED_AERO_RATES = 0 DO IRATE = 1, NHETERO INDX = INDEX1( HETERO( IRATE ), NUMB_AERO_RATES, NAMES_AERO_RATES ) IF ( INDX .LT. 1 ) THEN XMSG = 'Heterogeneous Reaction Label '// TRIM ( HETERO( IRATE ) ) & // ' is not in list of available Reaction Rates.' CALL M3EXIT( 'HETCHEM_RATES', 0, 0, XMSG, XSTAT3 ) END IF SELECTED_AERO_RATES = SELECTED_AERO_RATES + 1 WHICH_AERO_RATE( SELECTED_AERO_RATES ) = INDEX_AERO_RATES( INDX ) END DO ALLOCATE( KHETERO( SELECTED_AERO_RATES, NCOLS,NROWS,NLAYS ) ) IF ( L_ELMO ) THEN ALLOCATE( GAMMA_N2O5IJ( NCOLS,NROWS,NLAYS ) ) ALLOCATE( GAMMA_N2O5K( NCOLS,NROWS,NLAYS ) ) ALLOCATE( GAMMA_IEPOX( NCOLS,NROWS,NLAYS ) ) ALLOCATE( GAMMA_IMAE( NCOLS,NROWS,NLAYS ) ) ALLOCATE( KPARTIEPOX( NCOLS,NROWS,NLAYS ) ) ALLOCATE( YCLNO2IJ( NCOLS,NROWS,NLAYS ) ) ALLOCATE( YCLNO2K( NCOLS,NROWS,NLAYS ) ) END IF C *** Determine molecular weights INV_MWCL = REAL( 1.0 / aerospc_mw( ACL_IDX ), 8 ) MWCLH2O = aerospc_mw( ACL_IDX ) / aerospc_mw( AH2O_IDX ) MWH2OCL = 1.0 / MWCLH2O CLNO2_IDX = INDEX1( 'CLNO2', NUMB_MECH_SPC, CHEMISTRY_SPC ) IF ( CLNO2_IDX .GT. 0 ) THEN MWCLCLNO2 = aerospc_mw( ACL_IDX) / SPECIES_MOLWT( CLNO2_IDX ) ELSE MWCLCLNO2 = 0.0 END IF IEPOX_IDX = INDEX1( 'IEPOX', NUMB_MECH_SPC, CHEMISTRY_SPC ) IF ( IEPOX_IDX .GT. 0 ) THEN MWTIEPOX = REAL( SPECIES_MOLWT( IEPOX_IDX ), 8 ) ELSE MWTIEPOX = 118.1D0 END IF CFACTOR_IEPOX = DSQRT( 8.0D3 * REAL( RGASUNIV, 8 ) / ( MWTIEPOX * DPI ) ) IMAE_IDX = INDEX1( 'IMAE', NUMB_MECH_SPC, CHEMISTRY_SPC ) IF( IMAE_IDX .GT. 0 )THEN MWTIMAE = REAL( SPECIES_MOLWT( IMAE_IDX ), 8 ) ELSE MWTIMAE = 102.0D0 END IF CFACTOR_IMAE = DSQRT( 8.0D3 * REAL( RGASUNIV, 8 ) / ( MWTIMAE * DPI ) ) IF( AIETET_IDX .GT. 0 ) THEN INV_MWIETET = REAL( 1.0/ aerospc_mw( AIETET_IDX ), 8 ) ELSE INV_MWIETET = 0.0D0 END IF IF( AIEOS_IDX .GT. 0 ) THEN INV_MWIEOS = REAL( 1.0/ aerospc_mw( AIEOS_IDX ), 8 ) ELSE INV_MWIEOS = 0.0D0 END IF IF( ASO4_IDX .GT. 0 )THEN INV_MWASO4 = REAL( 1.0/ aerospc_mw( ASO4_IDX ), 8 ) ELSE INV_MWASO4 = 0D0 END IF NO3_IDX = INDEX1( 'NO3', NUMB_MECH_SPC, CHEMISTRY_SPC ) IF( NO3_IDX .GT. 0 )THEN MWTNO3 = REAL( SPECIES_MOLWT( NO3_IDX ), 8 ) ELSE MWTNO3 = 62.01D0 END IF CFACTOR_NO3 = DSQRT( 8.0D3 * REAL( RGASUNIV, 8 ) / ( MWTNO3 * DPI ) ) GLY_IDX = INDEX1( 'GLY', NUMB_MECH_SPC, CHEMISTRY_SPC ) IF( GLY_IDX .GT. 0 )THEN MWTGLY = REAL( SPECIES_MOLWT( GLY_IDX ), 8 ) ELSE MWTGLY = 58.04D0 END IF CFACTOR_GLY = DSQRT( 8.0D3 * REAL( RGASUNIV, 8 ) / ( MWTGLY * DPI ) ) MGLY_IDX = INDEX1( 'MGLY', NUMB_MECH_SPC, CHEMISTRY_SPC ) IF( MGLY_IDX .GT. 0 )THEN MWTMGLY = REAL( SPECIES_MOLWT( MGLY_IDX ), 8 ) ELSE MWTMGLY = 72.07D0 END IF CFACTOR_MGLY = DSQRT( 8.0D3 * REAL( RGASUNIV, 8 ) / ( MWTMGLY * DPI ) ) HO2_IDX = INDEX1( 'HO2', NUMB_MECH_SPC, CHEMISTRY_SPC ) IF( HO2_IDX .GT. 0 )THEN MWTHO2 = REAL( SPECIES_MOLWT( HO2_IDX ), 8 ) ELSE MWTHO2 = 33.0D0 END IF CFACTOR_HO2 = DSQRT( 8.0D3 * REAL( RGASUNIV, 8 ) / ( MWTHO2 * DPI ) ) C *** Map to acids/nucleophiles for epoxide uptake INDX = INDEX1( NAMES_AERO_RATES( IA_IEPOX ), NHETERO, HETERO ) IF ( INDX .GT. 0 ) THEN ! Find indices for acid catalyzed species in IEPOX reaction If ( ( INDEX( MECHNAME, 'AE6I' ) .GT. 0 ) .OR. & ( INDEX( MECHNAME, 'AE7I' ) .GT. 0 ) ) then NUMVOC = 2 ! IEPOX + MAE/HMML N_NUCPAIRS = N_NUCPAIRS_AEI ALLOCATE ( ACID_NUC_PAIRS( N_NUCPAIRS ) ) ACID_NUC_PAIRS = ACID_NUC_PAIRS_AEI Else If ( (INDEX( MECHNAME, 'CRACMM1') .GT. 0) & .OR. (INDEX( MECHNAME, 'CRACMM2') .GT. 0) ) then NUMVOC = 1 N_NUCPAIRS = N_NUCPAIRS_CRCM ALLOCATE ( ACID_NUC_PAIRS( N_NUCPAIRS ) ) ACID_NUC_PAIRS = ACID_NUC_PAIRS_CRCM Else ! AERO6/7 (condensed IEPOX SOA) NUMVOC = 1 N_NUCPAIRS = N_NUCPAIRS_AE ALLOCATE ( ACID_NUC_PAIRS( N_NUCPAIRS ) ) ACID_NUC_PAIRS = ACID_NUC_PAIRS_AE END IF ALLOCATE ( ACID_PRODMAP_IDX( N_NUCPAIRS ) ) ALLOCATE ( ACID_NUCMAP_IDX( N_NUCPAIRS ) ) ACID_PRODMAP_IDX = 0 ACID_NUCMAP_IDX = 0 DO N = 1, N_NUCPAIRS ACID_PRODMAP_IDX(N) = FINDAERO( ACID_NUC_PAIRS(N)%PROD, .TRUE. ) ACID_NUCMAP_IDX(N) = FINDAERO( ACID_NUC_PAIRS(N)%NUC, .TRUE. ) #ifdef verbose_aerosol_chemistry Write( logdev,'( 5x, a, i4 )' ) acid_nuc_pairs(n)%prod, acid_prodmap_idx(n) Write( logdev,'( 5x, a, i4 )' ) acid_nuc_pairs(n)%nuc, acid_nucmap_idx(n) #endif END DO END IF AERO_CHEM_SET = .TRUE. END IF ! first time condition KHETERO = 0.0D0 IF ( L_ELMO ) THEN GAMMA_N2O5IJ = 0.0 GAMMA_N2O5K = 0.0 YCLNO2IJ = 0.0 YCLNO2K = 0.0 GAMMA_IEPOX = 0.0 GAMMA_IMAE = 0.0 KPARTIEPOX = 0.0 END IF C *** Calculate rate constants at each grid cell location LOOP_LAY: DO L = 1, NLAYS LOOP_ROW: DO R = 1, NROWS LOOP_COL: DO C = 1, NCOLS #ifdef verbose_aerosol_chemistry IF ( L .EQ. 1 .AND. R .EQ. INT(NROWS/2)+1 .AND. & C .EQ. INT(NCOLS/2)+1 ) THEN DUMP_CELL = .TRUE. ELSE DUMP_CELL = .FALSE. END IF #endif C *** Extract aerosol concentrations and update aerosol volume, surface C area and diameter values. AIRDENS = DENS( C,R,L ) CALL HETCHEM_EXTRACT_AERO( CGRID( C,R,L,: ), C, R, L, & WET_M2, WET_M3, DE_WET ) C *** Load Meteorological Variables AIRTEMP = REAL( TEMP( C,R,L ), 8 ) AIRPRES = REAL( PRESS( C,R,L ), 8 ) C *** to compute RH & molecular kinetic factors H2OVP = REAL( PRESS( C,R,L ) * WVAPOR( C,R,L ) & / ( EPSWATER + WVAPOR( C,R,L ) ), 8 ) AIRRH = MAX( 0.005D0, MIN( 0.99D0, H2OVP * INV_ESATL( AIRTEMP ) ) ) CBAR_COEFF = REAL( SQRT( CFACTOR * TEMP( C,R,L ) ), 8) ADJUST_DIFF = REAL( ( TEMP( C,R,L ) * INV_STDTEMP ) ** 1.75 * ( STDATMPA / PRESS( C,R,L ) ), 8 ) IF ( PRESENT( DENS ) ) THEN PPM_FACTOR = 1.0D-3 * REAL( MWAIR / DENS( C,R,L ), 8 ) ELSE PPM_FACTOR = UGM3_CONV_FAC * REAL( TEMP( C,R,L ) / PRESS( C,R,L ), 8 ) END IF RFACTOR = 60.0D0 * COEF1 * REAL( PRESS( C,R,L ) / TEMP( C,R,L ), 8 ) C *** calculate molecular speeds (m/s) using Eq 4 of Pleim et al (1995) CBAR = CBAR_COEFF * INV_SQRT_MWN2O5 CBARNO3 = CFACTOR_NO3 * DSQRT( AIRTEMP ) CBARGLY = CFACTOR_GLY * DSQRT( AIRTEMP ) CBARMGLY = CFACTOR_MGLY * DSQRT( AIRTEMP ) CBARHO2 = CFACTOR_HO2 * DSQRT( AIRTEMP ) CBAR_CLNO3 = CBAR_COEFF * INV_SQRT_MWCLNO3 CBAR_HBR = CBAR_COEFF * INV_SQRT_MWHBR CBAR_BRNO3 = CBAR_COEFF * INV_SQRT_MWBRNO3 CBAR_BRNO2 = CBAR_COEFF * INV_SQRT_MWBRNO2 CBAR_HOBR = CBAR_COEFF * INV_SQRT_MWHOBR CBAR_I2O2 = CBAR_COEFF * INV_SQRT_MWI2O2 CBAR_I2O3 = CBAR_COEFF * INV_SQRT_MWI2O3 CBAR_I2O4 = CBAR_COEFF * INV_SQRT_MWI2O4 CBAR_INO3 = CBAR_COEFF * INV_SQRT_MWINO3 CBAR_INO2 = CBAR_COEFF * INV_SQRT_MWINO2 CBAR_HOI = CBAR_COEFF * INV_SQRT_MWHOI C *** correct N2O5 molecular diffusivity for ambient conditions INV_DIFFUSIVITY = 1.0D0 / ( STD_DIFF_N2O5 * ADJUST_DIFF ) C *** correct molecular diffusivity for ambient conditions - assumed similar to that of N2O5 INV_DIFF_CLNO3 = 1.0D0 / ( STD_DIFF_CLNO3 * ADJUST_DIFF ) INV_DIFF_HBR = 1.0D0 / ( STD_DIFF_HBR * ADJUST_DIFF ) INV_DIFF_BRNO3 = 1.0D0 / ( STD_DIFF_BRNO3 * ADJUST_DIFF ) INV_DIFF_BRNO2 = 1.0D0 / ( STD_DIFF_BRNO2 * ADJUST_DIFF ) INV_DIFF_HOBR = 1.0D0 / ( STD_DIFF_HOBR * ADJUST_DIFF ) INV_DIFF_I2O2 = 1.0D0 / ( STD_DIFF_I2O2 * ADJUST_DIFF ) INV_DIFF_I2O3 = 1.0D0 / ( STD_DIFF_I2O3 * ADJUST_DIFF ) INV_DIFF_I2O4 = 1.0D0 / ( STD_DIFF_I2O4 * ADJUST_DIFF ) INV_DIFF_INO3 = 1.0D0 / ( STD_DIFF_INO3 * ADJUST_DIFF ) INV_DIFF_INO2 = 1.0D0 / ( STD_DIFF_INO2 * ADJUST_DIFF ) INV_DIFF_HOI = 1.0D0 / ( STD_DIFF_HOI * ADJUST_DIFF ) C *** get KN2O5 rate constants YIELD_CLNO2 for each mode YIELD_CLNO2 = 0.0D0 YIELDIJ = 0.0D0 DO N = 1, N_MODE IF ( N .LE. 2 ) THEN GAMMA = N2O5_GAMMA( AIRTEMP, AIRRH, 0 ) IF ( L_ELMO ) GAMMA_N2O5IJ( C,R,L ) = REAL( GAMMA, 4 ) ELSE IF ( N .EQ. 3 ) THEN GAMMA = N2O5_GAMMA( AIRTEMP, AIRRH, 5 ) IF ( L_ELMO ) GAMMA_N2O5K( C,R,L ) = REAL( GAMMA, 4 ) ELSE GAMMA = 0.0D0 END IF XXF( N ) = WET_M2( N ) & / ( 4.0D0 + 0.5D0 * DE_WET( N ) * GAMMA * CBAR * INV_DIFFUSIVITY ) KN2O5( N ) = GAMMA * XXF( N ) IF ( GAMMA_NO3 .GT. 0.0D0 ) THEN KNO3( N ) = GAMMA_NO3 * WET_M2( N ) & / ( 4.0D0 + 0.5D0 * DE_WET( N ) * GAMMA_NO3 & * CBARNO3 * INV_DIFFUSIVITY ) * CBARNO3 * DPI ELSE KNO3( N ) = 0.0d0 END IF IF( GAMMA_GLY .GT. 0.0D0) THEN KGLY( N ) = GAMMA_GLY * WET_M2( N ) & / ( 4.0D0 + 0.5D0 * DE_WET( N ) * GAMMA_GLY & * CBARGLY * INV_DIFFUSIVITY ) * CBARGLY * DPI ! scale MGLY uptake by relative H-law (Marais et ! al. ACPD approach) implemented 1/2016 H. Pye KMGLY( N ) = 0.09 * GAMMA_GLY * WET_M2( N ) & / ( 4.0D0 + 0.5D0 * DE_WET( N ) * 0.09 * GAMMA_GLY & * CBARMGLY * INV_DIFFUSIVITY ) * CBARMGLY * DPI ELSE KGLY( N ) = 0.0D0 KMGLY( N ) = 0.0D0 END IF IF( GAMMA_HO2 .GT. 0.0D0) THEN KHO2( N ) = GAMMA_HO2 * WET_M2( N ) & / ( 4.0D0 + 0.5D0 * DE_WET( N ) * GAMMA_HO2 & * CBARHO2 * INV_DIFFUSIVITY ) * CBARHO2 * DPI ELSE KHO2( N ) = 0.0D0 END IF c *** get fine aerosol H2O and chlorine concentrations in AH2O = aerospc_conc( AH2O_IDX,N ) ACL = aerospc_conc( ACL_IDX, N ) CL_PPM( N ) = PPM_FACTOR * ( ACL * INV_MWCL ) If ( Index( mechname, 'CB6R5M_AE7_AQ' ) .Gt. 0 ) Then ABR = aerospc_conc( ABR_IDX, N ) INV_MWBR = REAL( 1.0 / aerospc_mw( ABR_IDX ), 8 ) BR_PPM( N ) = PPM_FACTOR * ( ABR * INV_MWBR ) Else BR_PPM( N ) = 0.0D0 End If C *** If only a small amount of water is present on aerosol, keep YIELD_CLNO2 zero IF ( AH2O .GT. 5.0E-01 .AND. ACL .GT. 1.0E-04 ) THEN IF ( MWH2OCL * ACL .GT. 1.0E-4 * AH2O ) THEN YIELD_CLNO2( N ) = 1.0D0 & / ( 1.0D0 + ( 1.0D0 / 483.0D0 ) * ( AH2O / ACL ) * MWCLH2O ) END IF END IF END DO ! End each mode c *** compute yield from lumped Aitken and Accumulations concentrations AH2O = aerospc_conc( AH2O_IDX,1 ) + aerospc_conc( AH2O_IDX,2 ) ACL = aerospc_conc( ACL_IDX,1 ) + aerospc_conc( ACL_IDX,2 ) IF ( AH2O .GT. 5.0E-01 .AND. ACL .GT. 1.0E-04 ) THEN IF ( MWH2OCL * ACL .GT. 1.0E-4 * AH2O ) THEN YIELDIJ = 1.0D0 / ( 1.0D0 + ( 1.0D0 / 483.0D0 ) & * REAL( ( AH2O / ACL ) * MWCLH2O, 8 ) ) END IF END IF KN2O5 = CBAR * DPI * KN2O5 C *** calculate aerosol surface area TOTSURFA = ( WET_M2( 1 ) + WET_M2( 2 ) ) * DPI C *** Calculate IEPOX and MAE uptake information for accumulation mode RADIUS_I = 0.5D0 * DE_WET( 1 ) ! particle size - i-mode RADIUS = 0.5D0 * DE_WET( 2 ) ! particle size - j-mode C *** Calculate approximate seasalt surface area, m2/m3 C *** Main components of Seasalt are: NA, CL, MG, K, CA, SO4 C *** However, SO4 over seawater can generate from other sources C *** Fo SO4, use SO4/NA emissions ratio in seasalt MARINE_AREA = ( OCEAN( C,R ) + SZONE( C,R ) ) IF ( MARINE_AREA .GT. 0.0 ) THEN SSALT_VOL = 1.0D-9 * ( Real ( aerospc_conc( ANA_IDX,2 ) / aerospc(ANA_IDX)%density, 8 ) + ! NAJ - m3/m3 @ Real ( aerospc_conc( ACL_IDX,2 ) / aerospc(ACL_IDX)%density, 8 ) + ! CLJ - m3/m3 @ Real ( aerospc_conc( AMG_IDX,2 ) / aerospc(AMG_IDX)%density, 8 ) + ! MGJ - m3/m3 @ Real ( aerospc_conc( AK_IDX,2 ) / aerospc(AK_IDX)%density, 8 ) + ! KJ - m3/m3 @ Real ( aerospc_conc( ACA_IDX,2 ) / aerospc(ACA_IDX)%density, 8 ) + ! CAJ - m3/m3 @ Real ( 0.2514 * aerospc_conc( ANA_IDX,2 ) / aerospc(ASO4_IDX)%density, 8) ) ! SO4 - m3/m3 - use SO4/NA ratio in seasalt SSALT_SURFA = ( 3.0D0 * SSALT_VOL / RADIUS ) * DEXP ( 0.5D0 * AEROMODE_LNSG( 2 ) * AEROMODE_LNSG( 2 ) ) ELSE SSALT_SURFA = 0.0 ENDIF C *** calculate GAMMA_HBR GAMMA_HBR = 1.3D-8 * DEXP ( 4290/ AIRTEMP) INV_GAMMA_HBR = 1.0D0 / GAMMA_HBR C *** set up variables needed for calculating K_BRONO2 CLNO3_H2O_RXN_TIME = 4.0D0 * INV_GAMMA_CLNO3_H2O / CBAR_CLNO3 HBR_RXN_TIME = 4.0D0 * INV_GAMMA_HBR / CBAR_HBR BRNO3_H2O_RXN_TIME = 4.0D0 * INV_GAMMA_BRNO3_H2O / CBAR_BRNO3 HOBR_ASS_RXN_TIME = 4.0D0 * INV_GAMMA_HOBR_ASS / CBAR_HOBR BRNO3_RXN_TIME = 4.0D0 * INV_GAMMA_BRNO3 / CBAR_BRNO3 BRNO2_RXN_TIME = 4.0D0 * INV_GAMMA_BRNO2 / CBAR_BRNO2 I2O2_RXN_TIME = 4.0D0 * INV_GAMMA_I2O2 / CBAR_I2O2 I2O3_RXN_TIME = 4.0D0 * INV_GAMMA_I2O3 / CBAR_I2O3 I2O4_RXN_TIME = 4.0D0 * INV_GAMMA_I2O4 / CBAR_I2O4 INO3_RXN_TIME = 4.0D0 * INV_GAMMA_INO3 / CBAR_INO3 INO2_RXN_TIME = 4.0D0 * INV_GAMMA_INO2 / CBAR_INO2 HOI_RXN_TIME = 4.0D0 * INV_GAMMA_HOI / CBAR_HOI CBARIEPOX = CFACTOR_IEPOX * DSQRT( AIRTEMP ) CBARIMAE = CFACTOR_IMAE * DSQRT( AIRTEMP ) ! Rate constants and concentrations CALL CALCISOPGAMMAS( RADIUS, AIRTEMP, GAMMAIEPOX, & GAMMAIMAE, KPIEPOX, FH2O, FOS, FDIM1, FDIM2) IF( GAMMAIEPOX .GT. 1.0D-72 ) THEN KIEPOX = WET_M2( 2 ) * DPI & / ( RADIUS * INV_DIFFUSIVITY + 4.0D0 / ( CBARIEPOX * GAMMAIEPOX) ) If ( AIETET_IDX .GT. 0 ) Then TETROL_PPM = PPM_FACTOR & * REAL( aerospc_conc( AIETET_IDX,2 ), 8 ) * INV_MWIETET Else TETROL_PPM = 0.0D0 End If If ( AIEOS_IDX .GT. 0 ) Then IEPOXOS_PPM = PPM_FACTOR & * REAL( aerospc_conc( AIEOS_IDX,2 ), 8 ) * INV_MWIEOS Else IEPOXOS_PPM = 0.0D0 End If If ( ASO4_IDX .GT. 0 ) Then ASO4J_PPM = PPM_FACTOR & * REAL( aerospc_conc( ASO4_IDX,2 ), 8 ) * INV_MWASO4 Else ASO4J_PPM = 0.0D0 End If ELSE KIEPOX = 0.0D0 TETROL_PPM = 0.0D0 IEPOXOS_PPM = 0.0D0 ASO4J_PPM = 0.0D0 END IF IF( GAMMAIMAE .GT. 1.0D-72 ) THEN KIMAE = WET_M2( 2 ) * DPI & / ( RADIUS * INV_DIFFUSIVITY + 4.0D0 / ( CBARIMAE * GAMMAIMAE ) ) ELSE KIMAE = 0.0d0 END IF ! Diagnostic information IF ( L_ELMO ) GAMMA_IEPOX( C,R,L ) = REAL( GAMMAIEPOX,4 ) IF ( L_ELMO ) GAMMA_IMAE( C,R,L ) = REAL( GAMMAIMAE, 4 ) IF ( L_ELMO ) KPARTIEPOX( C,R,L ) = REAL( KPIEPOX, 4 ) LOOP_RATES: DO IRATE = 1, SELECTED_AERO_RATES SELECT CASE( WHICH_AERO_RATE( IRATE ) ) CASE( IA_N2O5IJ ) KHETERO( IRATE, C,R,L ) = 60.0D0 * ( KN2O5( 1 ) + KN2O5( 2 ) )! convert to min-1 CASE( IA_N2O5K ) KHETERO( IRATE, C,R,L ) = 60.0D0 * KN2O5 (3) ! convert to min-1 CASE( IA_N2O5J ) KHETERO( IRATE, C,R,L ) = 60.0D0 * KN2O5 (2) ! convert to min-1 CASE( IA_N2O5I ) KHETERO( IRATE, C,R,L ) = 60.0D0 * KN2O5 (1) ! convert to min-1 CASE( IA_N2O5IJY ) KHETERO( IRATE, C,R,L ) = 60.0D0 * YIELDIJ * ( KN2O5( 1 ) + KN2O5( 2 ) ) ! convert to min-1 IF ( L_ELMO ) YCLNO2IJ( C,R,L ) = REAL( YIELDIJ, 4 ) CASE( IA_N2O5KY ) KHETERO( IRATE, C,R,L ) = 60.0D0 * YIELD_CLNO2( 3 ) * KN2O5( 3 ) IF ( L_ELMO ) YCLNO2K( C,R,L ) = REAL( YIELD_CLNO2( 3 ), 4 ) CASE( IA_H2NO3PAIJ ) KHETERO( IRATE, C,R,L ) = 60.0D0 * AQUEOUS_FREQUENCY & * MAX( ( 1.0D0 - YIELDIJ ), 0.0D0 ) IF ( L_ELMO ) YCLNO2IJ( C,R,L ) = REAL( YIELDIJ, 4 ) CASE( IA_H2NO3PBIJ ) IF ( YIELDIJ .GT. 0.0D0 ) THEN KHETERO( IRATE, C,R,L ) = 60.0D0 * AQUEOUS_FREQUENCY * YIELDIJ & / ( CL_PPM( 1 ) + CL_PPM( 2 ) ) ! 1/(min*ppm) ELSE KHETERO( IRATE, C,R,L ) = 0.0D0 END IF CASE( IA_H2NO3PAI ) KHETERO( IRATE, C,R,L ) = 60.0D0 * AQUEOUS_FREQUENCY & * MAX( ( 1.0D0 - YIELD_CLNO2( 1 ) ), 0.0D0 ) CASE( IA_H2NO3PBI ) IF ( YIELD_CLNO2( 1 ) .GT. 0.0D0 ) THEN KHETERO( IRATE, C,R,L ) = 60.0D0 * AQUEOUS_FREQUENCY & * YIELD_CLNO2( 1 ) / CL_PPM( 1 ) ! (min*ppm)-1 IF ( L_ELMO ) THEN FACTOR = CL_PPM( 1 ) / ( CL_PPM( 1 )+ CL_PPM( 2 ) ) YCLNO2IJ( C,R,L ) = REAL( FACTOR * YIELD_CLNO2( 1 ), 4 ) & + YCLNO2IJ( C,R,L ) END IF ELSE KHETERO( IRATE, C,R,L ) = 0.0D0 END IF CASE( IA_H2NO3PAJ ) KHETERO( IRATE, C,R,L ) = 60.0D0 * AQUEOUS_FREQUENCY & * MAX( ( 1.0D0 - YIELD_CLNO2( 2 ) ), 0.0D0 ) CASE( IA_H2NO3PBJ ) IF ( YIELD_CLNO2( 2 ) .GT. 0.0D0 ) THEN KHETERO( IRATE, C,R,L ) = 60.0D0 * AQUEOUS_FREQUENCY & * YIELD_CLNO2( 2 ) / CL_PPM( 2 ) ! (min*ppm)-1 IF ( L_ELMO ) THEN FACTOR = CL_PPM( 2 ) / ( CL_PPM( 1 )+ CL_PPM( 2 ) ) YCLNO2IJ( C,R,L ) = YCLNO2IJ( C,R,L ) + REAL( FACTOR * YIELD_CLNO2( 2 ), 4 ) END IF ELSE KHETERO( IRATE, C,R,L ) = 0.0D0 END IF CASE( IA_PNCOMLI ) POC = aerospc_conc( APOC_IDX,1 ) PNCOM = aerospc_conc( APNCOM_IDX,1 ) KHETERO( IRATE, C,R,L ) = RFACTOR * PNCOM_LOSS( POC, PNCOM ) CASE( IA_PNCOMLJ ) POC = aerospc_conc( APOC_IDX,2 ) PNCOM = aerospc_conc( APNCOM_IDX,2 ) KHETERO( IRATE, C,R,L ) = RFACTOR * PNCOM_LOSS( POC, PNCOM ) CASE( IA_H2NO3PAK ) KHETERO( IRATE, C,R,L ) = 60.0D0 * AQUEOUS_FREQUENCY & * MAX( ( 1.0D0 - YIELD_CLNO2( 3 ) ), 0.0D0 ) ! * KN2O5( 3 ) CASE( IA_H2NO3PBK ) IF ( YIELD_CLNO2( 3 ) .GT. 0.0D0 ) THEN KHETERO( IRATE, C,R,L ) = 60.0D0 * AQUEOUS_FREQUENCY & * YIELD_CLNO2( 3 ) / CL_PPM( 3 ) ! (min*ppm)-1 IF ( L_ELMO ) YCLNO2K( C,R,L ) = REAL( YIELD_CLNO2( 3 ), 4 ) ELSE KHETERO( IRATE, C,R,L ) = 0.0D0 END IF CASE( IA_NO2 ) C *** calculate pseudo-first order rate constant for NO2 loss using Eq 1 of Vogel C et al. (2003). Units of KNO2 is in 1/min in the paper; divide it C by 60 to convert it into 1/sec KNO2 = MAX ( 0.0D0, 1.0D-04 * TOTSURFA ) KHETERO( IRATE, C,R,L ) = 60.0D0 * KNO2 ! convert to min-1 C *** Isoprene epoxide uptake CASE( IA_IEPOX ) KHETERO( IRATE, C,R,L ) = 60.0D0 * KIEPOX ! min-1 CASE( IA_TETROL ) KHETERO( IRATE, C,R,L ) = 60.0D0 * AQUEOUS_FREQUENCY * FH2O( 1 ) CASE( IA_IEPOXOS ) IF ( ASO4J_PPM .GT. 0.0D0 ) THEN KHETERO( IRATE, C,R,L ) = 60.0D0 * AQUEOUS_FREQUENCY & * FOS( 1 ) / ASO4J_PPM ELSE KHETERO( IRATE, C,R,L ) = 0.0D0 END IF CASE( IA_TETROLDIM ) IF ( TETROL_PPM .GT. 0.0D0 ) THEN KHETERO( IRATE, C,R,L ) = 60.0D0 * AQUEOUS_FREQUENCY & * FDIM1( 1 ) / TETROL_PPM ! min*ppm-1 ELSE KHETERO( IRATE, C,R,L ) = 0.0D0 END IF CASE( IA_IEPOXOSDI ) IF ( IEPOXOS_PPM .GT. 0.0D0 ) THEN KHETERO( IRATE, C,R,L ) = 60.0D0 * AQUEOUS_FREQUENCY & * FDIM2( 1 ) / IEPOXOS_PPM ! min*ppm-1 ELSE KHETERO( IRATE, C,R,L ) = 0.0D0 END IF CASE( IA_IMAE ) KHETERO( IRATE, C,R,L ) = 60.0D0 * KIMAE ! min-1 CASE( IA_2MG ) KHETERO( IRATE, C,R,L ) = 60.0D0 * AQUEOUS_FREQUENCY * FH2O(2) CASE( IA_IMAEOS ) IF ( ASO4J_PPM .GT. 0.0D0 ) THEN KHETERO( IRATE, C,R,L ) = 60.0D0 * AQUEOUS_FREQUENCY & * FOS(2) / ASO4J_PPM ELSE KHETERO( IRATE, C,R,L ) = 0.0D0 END IF C *** CRACMM1 Implementation of sulfated and non-sulfated IEPOX-SOA CASE( IA_ISO3NOSJ ) KHETERO( IRATE, C,R,L ) = 60.0D0 * AQUEOUS_FREQUENCY * FH2O( 1 ) CASE( IA_ISO3OSJ ) IF ( ASO4J_PPM .GT. 0.0D0 ) THEN KHETERO( IRATE, C,R,L ) = 60.0D0 * AQUEOUS_FREQUENCY & * FOS( 1 ) / ASO4J_PPM ELSE KHETERO( IRATE, C,R,L ) = 0.0D0 END IF CASE( IA_NO3 ) KHETERO( IRATE, C,R,L ) = 60.0D0 * ( KNO3( 1 ) + KNO3( 2 ) ) ! min-1 CASE( IA_GLY ) KHETERO( IRATE, C,R,L ) = 60.0D0 * ( KGLY( 2 ) ) ! min-1 CASE( IA_MGLY ) KHETERO( IRATE, C,R,L ) = 60.0D0 * ( KMGLY( 2 ) ) ! min-1 CASE( IA_HO2 ) KHETERO( IRATE, C,R,L ) = 60.0D0 * ( KHO2( 2 ) ) ! min-1 CASE( IA_NTR2 ) C *** calculate gas-particle partitioning of NTR2 CON_TOA = SUM( SUM( AEROSPC_CONC( :,1:2 ),2 ), & MASK = ( AEROSPC( : )%OM .AND. .NOT. AEROSPC( : )%TRACER ) ) F_PART_NTR2 = 0.0 IF ( CON_TOA .GE. MIN_TOA ) THEN F_PART_NTR2 = ON_ALPHA1 / ( 1.0 + ON_CSTAR1 / CON_TOA ) & + ON_ALPHA2 / ( 1.0 + ON_CSTAR2 / CON_TOA ) END IF C *** calculate pseudo-first order rate constant for heterogeneous NTR2 C hydrolysis IF ( AIRRH .LE. 0.2D0 .OR. F_PART_NTR2 .LE. 0.0 ) THEN KHETERO( IRATE, C, R, L ) = 0.0D0 ELSE IF ( AIRRH .GE. 0.4D0 ) THEN KHETERO( IRATE, C, R, L ) = REAL( F_PART_NTR2 * KHON, 8 ) ! [1/min] ELSE KHETERO( IRATE, C, R, L ) = REAL( F_PART_NTR2 * KHON, 8 ) ! [1/min] & * ( 5.0D0 * AIRRH - 1.0D0 ) END IF CASE( IA_CLNO3_WAI ) KHETERO( IRATE, C,R,L ) = 60.0D0 * WET_M2( 1 ) * DPI / ( RADIUS_I * INV_DIFF_CLNO3 + CLNO3_H2O_RXN_TIME ) CASE( IA_CLNO3_WAJ ) KHETERO( IRATE, C,R,L ) = 60.0D0 * WET_M2( 2 ) * DPI / ( RADIUS * INV_DIFF_CLNO3 + CLNO3_H2O_RXN_TIME ) CASE( IA_HBR_BRJ ) KHETERO( IRATE, C,R,L ) = 60.0D0 * SSALT_SURFA / ( RADIUS * INV_DIFF_HBR + HBR_RXN_TIME ) ! use sea-salt surface area CASE( IA_BRNO3_WAI ) KHETERO( IRATE, C,R,L ) = 60.0D0 * WET_M2( 1 ) * DPI / ( RADIUS_I * INV_DIFF_BRNO3 + BRNO3_H2O_RXN_TIME ) CASE( IA_BRNO3_WAJ ) KHETERO( IRATE, C,R,L ) = 60.0D0 * WET_M2( 2 ) * DPI / ( RADIUS * INV_DIFF_BRNO3 + BRNO3_H2O_RXN_TIME ) CASE( IA_HOBR_CLJ ) K1 = 0.35 * SSALT_SURFA / ( RADIUS * INV_DIFF_HOBR + HOBR_ASS_RXN_TIME ) ! use sea-salt surface area IF ( CL_PPM (2) .GT. MIN_VALUE ) THEN KHETERO( IRATE, C,R,L ) = 60.0D0 * K1 / CL_PPM (2) ELSE KHETERO( IRATE, C,R,L ) = 0.0D0 ENDIF CASE( IA_HOBR_BRJ ) K1 = 0.65 * SSALT_SURFA / ( RADIUS * INV_DIFF_HOBR + HOBR_ASS_RXN_TIME ) ! use sea-salt surface area IF ( BR_PPM (2) .GT. MIN_VALUE ) THEN KHETERO( IRATE, C,R,L ) = 60.0D0 * K1 / BR_PPM (2) ELSE KHETERO( IRATE, C,R,L ) = 0.0D0 ENDIF CASE( IA_BRNO3_CLJ ) K1 = 0.35 * SSALT_SURFA / ( RADIUS * INV_DIFF_BRNO3 + BRNO3_RXN_TIME ) ! use sea-salt surface area IF ( CL_PPM (2) .GT. MIN_VALUE ) THEN KHETERO( IRATE, C,R,L ) = 60.0D0 * K1 / CL_PPM (2) ! 1/(min*ppm) ELSE KHETERO( IRATE, C,R,L ) = 0.0D0 ENDIF CASE( IA_BRNO3_BRJ ) K1 = 0.65 * SSALT_SURFA / ( RADIUS * INV_DIFF_BRNO3 + BRNO3_RXN_TIME ) ! use sea-salt surface area IF ( BR_PPM (2) .GT. MIN_VALUE ) THEN KHETERO( IRATE, C,R,L ) = 60.0D0 * K1 / BR_PPM (2) ! 1/(min*ppm) ELSE KHETERO( IRATE, C,R,L ) = 0.0D0 ENDIF CASE( IA_BRNO2_CLJ ) K1 = 0.35 * SSALT_SURFA / ( RADIUS * INV_DIFF_BRNO2 + BRNO2_RXN_TIME ) ! use sea-salt surface area IF ( CL_PPM (2) .GT. MIN_VALUE ) THEN KHETERO( IRATE, C,R,L ) = 60.0D0 * K1 / CL_PPM (2) ! 1/(min*ppm) ELSE KHETERO( IRATE, C,R,L ) = 0.0D0 ENDIF CASE( IA_BRNO2_BRJ ) K1 = 0.65 * SSALT_SURFA / ( RADIUS * INV_DIFF_BRNO2 + BRNO2_RXN_TIME ) ! use sea-salt surface area IF ( BR_PPM (2) .GT. MIN_VALUE ) THEN KHETERO( IRATE, C,R,L ) = 60.0D0 * K1 / BR_PPM (2) ! 1/(min*ppm) ELSE KHETERO( IRATE, C,R,L ) = 0.0D0 ENDIF CASE( IA_I2O2_AI ) KHETERO( IRATE, C,R,L ) = 60.0D0 * WET_M2( 1 ) * DPI / ( RADIUS_I * INV_DIFF_I2O2 + I2O2_RXN_TIME ) CASE( IA_I2O2_AJ ) KHETERO( IRATE, C,R,L ) = 60.0D0 * WET_M2( 2 ) * DPI / ( RADIUS * INV_DIFF_I2O2 + I2O2_RXN_TIME ) CASE( IA_I2O3_AI ) KHETERO( IRATE, C,R,L ) = 60.0D0 * WET_M2( 1 ) * DPI / ( RADIUS_I * INV_DIFF_I2O3 + I2O3_RXN_TIME ) CASE( IA_I2O3_AJ ) KHETERO( IRATE, C,R,L ) = 60.0D0 * WET_M2( 2 ) * DPI / ( RADIUS * INV_DIFF_I2O3 + I2O3_RXN_TIME ) CASE( IA_I2O4_AI ) KHETERO( IRATE, C,R,L ) = 60.0D0 * WET_M2( 1 ) * DPI / ( RADIUS_I * INV_DIFF_I2O4 + I2O4_RXN_TIME ) CASE( IA_I2O4_AJ ) KHETERO( IRATE, C,R,L ) = 60.0D0 * WET_M2( 2 ) * DPI / ( RADIUS * INV_DIFF_I2O4 + I2O4_RXN_TIME ) CASE( IA_INO3_CLJ ) K1 = 0.5 * SSALT_SURFA / ( RADIUS * INV_DIFF_INO3 + INO3_RXN_TIME ) ! use sea-salt surface area IF ( CL_PPM (2) .GT. MIN_VALUE ) THEN KHETERO( IRATE, C,R,L ) = 60.0D0 * K1 / CL_PPM (2) ! 1/(min*ppm) ELSE KHETERO( IRATE, C,R,L ) = 0.0D0 ENDIF CASE( IA_INO3_BRJ ) K1 = 0.5 * SSALT_SURFA / ( RADIUS * INV_DIFF_INO3 + INO3_RXN_TIME ) ! use sea-salt surface area IF ( BR_PPM (2) .GT. MIN_VALUE ) THEN KHETERO( IRATE, C,R,L ) = 60.0D0 * K1 / BR_PPM (2) ! 1/(min*ppm) ELSE KHETERO( IRATE, C,R,L ) = 0.0D0 ENDIF CASE( IA_INO2_CLJ ) K1 = 0.5 * SSALT_SURFA / ( RADIUS * INV_DIFF_INO2 + INO2_RXN_TIME ) ! use sea-salt surface area IF ( CL_PPM (2) .GT. MIN_VALUE ) THEN KHETERO( IRATE, C,R,L ) = 60.0D0 * K1 / CL_PPM (2) ! 1/(min*ppm) ELSE KHETERO( IRATE, C,R,L ) = 0.0D0 ENDIF CASE( IA_INO2_BRJ ) K1 = 0.5 * SSALT_SURFA / ( RADIUS * INV_DIFF_INO2 + INO2_RXN_TIME ) ! use sea-salt surface area IF ( BR_PPM (2) .GT. MIN_VALUE ) THEN KHETERO( IRATE, C,R,L ) = 60.0D0 * K1 / BR_PPM (2) ! 1/(min*ppm) ELSE KHETERO( IRATE, C,R,L ) = 0.0D0 ENDIF CASE( IA_HOI_CLJ ) K1 = 0.5 * SSALT_SURFA / ( RADIUS * INV_DIFF_HOI + HOI_RXN_TIME ) ! use sea-salt surface area IF ( CL_PPM (2) .GT. MIN_VALUE ) THEN KHETERO( IRATE, C,R,L ) = 60.0D0 * K1 / CL_PPM (2) ! 1/(min*ppm) ELSE KHETERO( IRATE, C,R,L ) = 0.0D0 ENDIF CASE( IA_HOI_BRJ ) K1 = 0.5 * SSALT_SURFA / ( RADIUS * INV_DIFF_HOI + HOI_RXN_TIME ) ! use sea-salt surface area IF ( BR_PPM (2) .GT. MIN_VALUE ) THEN KHETERO( IRATE, C,R,L ) = 60.0D0 * K1 / BR_PPM (2) ! 1/(min*ppm) ELSE KHETERO( IRATE, C,R,L ) = 0.0D0 ENDIF END SELECT END DO LOOP_RATES #ifdef verbose_aerosol_chemistry IF ( DUMP_CELL ) THEN WRITE( LOGDEV,* ) 'In GAS HETCHEM for MYPE = ', MYPE WRITE( LOGDEV,9499 ) C,R,L WRITE( LOGDEV,9500 ) 'TEMP = ', AIRTEMP WRITE( LOGDEV,9500 ) 'AIRRH = ', AIRRH WRITE( LOGDEV,9500 ) 'DIFFUSIVITY = ', 1.0 / INV_DIFFUSIVITY WRITE( LOGDEV,9500 ) 'INV_SQRT_MWN2O5 = ', INV_SQRT_MWN2O5 WRITE( LOGDEV,9500 ) 'CBAR_COEFF = ', CBAR_COEFF WRITE( LOGDEV,9500 ) 'CBAR = ', CBAR WRITE( LOGDEV,9500 ) 'PPM_FACTORA = ', & UGM3_CONV_FAC * REAL( TEMP( C,R,L ) / PRESS( C,R,L ), 8 ) WRITE( LOGDEV,9500 ) 'PPM_FACTOR = ', PPM_FACTOR WRITE( LOGDEV,9500 ) 'PPM_FACTOR*INV_MWCL = ', PPM_FACTOR * INV_MWCL WRITE( LOGDEV,9500 ) 'PPM_FACTORA*INV_MWCL = ', & UGM3_CONV_FAC * REAL( TEMP( C,R,L ) / PRESS( C,R,L ), 8 ) * INV_MWCL WRITE( LOGDEV,9500 ) 'ACLI_PPM = ', CL_PPM( 1 ) WRITE( LOGDEV,9500 ) 'ACLJ_PPM = ', CL_PPM( 2 ) WRITE( LOGDEV,9500 ) 'ACLK_PPM = ', CL_PPM( 3 ) WRITE( LOGDEV,9500 ) 'ANH4I = ', aerospc_conc( ANH4_IDX,1 ) WRITE( LOGDEV,9500 ) 'ANO3I = ', aerospc_conc( ANO3_IDX,1 ) WRITE( LOGDEV,9500 ) 'ASO4I = ', aerospc_conc( ASO4_IDX,1 ) WRITE( LOGDEV,9500 ) 'ACLI = ', aerospc_conc( ACL_IDX,1 ) WRITE( LOGDEV,9500 ) 'AH2OI = ', aerospc_conc( AH2O_IDX,1 ) WRITE( LOGDEV,9500 ) 'ANH4J = ', aerospc_conc( ANH4_IDX,2 ) WRITE( LOGDEV,9500 ) 'ANO3J = ', aerospc_conc( ANO3_IDX,2 ) WRITE( LOGDEV,9500 ) 'ASO4J = ', aerospc_conc( ASO4_IDX,2 ) WRITE( LOGDEV,9500 ) 'ACLJ = ', aerospc_conc( ACL_IDX,2) WRITE( LOGDEV,9500 ) 'AH2OJ = ', aerospc_conc( AH2O_IDX,2 ) WRITE( LOGDEV,9500 ) 'ANH4IJ = ', & aerospc_conc( ANH4_IDX,1 ) + aerospc_conc( ANH4_IDX,2 ) WRITE( LOGDEV,9500 ) 'ANO3IJ = ', & aerospc_conc( ANO3_IDX,1 ) + aerospc_conc( ANO3_IDX,2 ) WRITE( LOGDEV,9500 ) 'ASO4IJ = ', & aerospc_conc( ASO4_IDX,1 ) + aerospc_conc( ASO4_IDX,2 ) WRITE( LOGDEV,9500 ) 'ACLIJ = ', & aerospc_conc( ACL_IDX,1 ) + aerospc_conc( ACL_IDX,2 ) WRITE( LOGDEV,9500 ) 'AH2OIJ = ', & aerospc_conc( AH2O_IDX,1 ) + aerospc_conc( AH2O_IDX,2 ) WRITE( LOGDEV,9500 ) 'GAMMA = ', N2O5_GAMMA( AIRTEMP, AIRRH, 0 ) WRITE( LOGDEV,9500 ) 'ANH4K = ', aerospc_conc( ANH4_IDX,3 ) WRITE( LOGDEV,9500 ) 'ANO3K = ', aerospc_conc( ANO3_IDX,3 ) WRITE( LOGDEV,9500 ) 'ASO4K = ', aerospc_conc( ASO4_IDX,3 ) WRITE( LOGDEV,9500 ) 'ACLK = ', aerospc_conc( ACL_IDX, 3 ) WRITE( LOGDEV,9500 ) 'AH2OK = ', aerospc_conc( AH2O_IDX,3 ) WRITE( LOGDEV,9500 ) 'GAMMAK = ', N2O5_GAMMA( AIRTEMP, AIRRH, 5 ) WRITE( LOGDEV,9500 ) 'XXF_AT = ', XXF( 1 ) WRITE( LOGDEV,9500 ) 'XXF_AC = ', XXF( 2 ) WRITE( LOGDEV,9500 ) 'XXF_COR = ', XXF( 3 ) WRITE( LOGDEV,'( A )' ) 'Product/Nucleophile mapping for epox uptake:' DO N = 1, N_NUCPAIRS WRITE( LOGDEV,'( 5X,A,I4 )' ) ACID_NUC_PAIRS( N )%PROD, ACID_PRODMAP_IDX( N ) WRITE( LOGDEV,'( 5X,A,I4 )' ) ACID_NUC_PAIRS( N )%NUC, ACID_NUCMAP_IDX( N ) END DO WRITE( LOGDEV,9500 ) 'GAMMAIEPOX = ', GAMMAIEPOX WRITE( LOGDEV,9500 ) 'GAMMAIMAE = ', GAMMAIMAE WRITE( LOGDEV,9500 ) 'k_particle_iepox = ', KPIEPOX WRITE( LOGDEV,9500 ) 'Fraction tetrol = ', FH2O( 1 ) WRITE( LOGDEV,9500 ) 'Fraction iepoxos = ', FOS( 1 ) WRITE( LOGDEV,9500 ) 'Fraction tetrol dimer = ', FDIM1( 1 ) WRITE( LOGDEV,9500 ) 'Fraction iepoxos dimer = ', FDIM2( 1 ) WRITE( LOGDEV,9500 ) 'Fraction 2-MG = ', FH2O( 2 ) WRITE( LOGDEV,9500 ) 'Fraction mae-os = ', FOS( 2 ) WRITE( LOGDEV,9500 ) 'Fraction mae dimers = 0 ', FDIM1( 2 ) + FDIM2( 2 ) WRITE( LOGDEV,9500 ) 'TETROL_PPM = ', TETROL_PPM WRITE( LOGDEV,9500 ) 'IEPOXOS_PPM = ', IEPOXOS_PPM WRITE( LOGDEV,9501 ) 'KN2O5IJ = ', 60.0D0 * ( KN2O5( 1 ) + KN2O5( 2 ) ),' 1/min' WRITE( LOGDEV,9501 ) 'KN2O5K = ', 60.0D0 * KN2O5(3), ' 1/min' WRITE( LOGDEV,9501 ) 'KNO2 = ', 60.0D0 * KNO2, ' 1/min' WRITE( LOGDEV,9501 ) 'YIELDI = ', YIELD_CLNO2( 1 ), ' ' WRITE( LOGDEV,9501 ) 'YIELDJ = ', YIELD_CLNO2( 2 ), ' ' WRITE( LOGDEV,9501 ) 'YIELDIJ = ', YIELDIJ, ' ' WRITE( LOGDEV,9501 ) 'YIELDK = ', YIELD_CLNO2( 3 ), ' ' WRITE( LOGDEV,9501 ) 'F_PART_NTR2 = ', F_PART_NTR2, ' ' WRITE( LOGDEV,9501 ) 'GAMMA_NO3= ', GAMMA_NO3, ' ' WRITE( LOGDEV,9501 ) 'GAMMA_GLY= ', GAMMA_GLY, ' ' WRITE( LOGDEV,9501 ) 'GAMMA_HO2= ', GAMMA_HO2, ' ' WRITE( LOGDEV,9501 ) 'KNO3(1)= ', KNO3( 1 ), ' ' WRITE( LOGDEV,9501 ) 'KNO3(2)= ', KNO3( 2 ), ' ' WRITE( LOGDEV,9501 ) 'KNO3(3)= ', KNO3( 3 ), ' ' WRITE( LOGDEV,9501 ) 'KGLY(2)= ', KGLY( 2 ), ' ' WRITE( LOGDEV,9501 ) 'KMGLY(2)= ', KMGLY( 2 ), ' ' WRITE( LOGDEV,9501 ) 'KHO2(2)= ', KHO2( 2 ), ' ' DO N = 1, NHETERO WRITE( LOGDEV,9501 ) HETERO( N ) // ' = ', KHETERO( N, C,R,L ),' ' END DO END IF 9499 FORMAT( 'At COL = ',I3,' ROW = ',I3,' LAY = ',I3 ) 9500 FORMAT( A, ES12.4 ) 9501 FORMAT( A, ES12.4, A ) #endif END DO LOOP_COL END DO LOOP_ROW END DO LOOP_LAY RETURN END SUBROUTINE HETCHEM_RATES C :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: REAL( 8 ) FUNCTION PNCOM_LOSS( POC, PNCOM ) ! Calculates rate constant in cm3 molec-1 sec-1 for PNCOM loss by reacting ! with OH, derived from the reactions in the below POA aging scheme ! in CMAQ v5.0-v5.02: ! start with the definition of POCRm ! - POCRm = reduced primary organic carbon (molar concentration) ! changes POCRm correspond to changes in PNCOM via a rate constant ! koheff*[OH] that comes from Weitkamp et al (2008) and George et al (2007) ! ! POCRm = POC/12 - Omoles ! where Omoles represent fraction that is already PNCOM oxidized ! Omoles = NCOM/(16 + PHOrat) if 14/12 < (POC + NCOM)/POC < 44/12 ! - see Simon et al (2011) for derivation ! Omoles = NCOM/16 if (POC + NCOM)/POC >= 44/12 ! - interpretted as POC is fully oxidized and all ! NCOM is oxygen ! Omoles = 0 if (POC + NCOM)/POC <= 14/12 ! - if OM/OC < 1.167, then POC is fully reduced and all ! NCOM is hydrogen ! - see Simon et al. (2011) for derivation ! note:we divide POC by 12 b/c we want moles of carbon atoms not moles ! of POC (since each carbon atom w\in the molecule is allowed ! to react) ! note: we calculate Omoles based on the equations above derived from ! Heald et al (2010) and documented in Simon et al (2011). ! ! The following rate equation comes from the reaction above: ! dPOCRm/dt = POCRm*koheff*[OH] ! -assume that [OH] does not change as a result of this reaction ! solve for POCRm at time, t ! moles: POCRm(t) = POCRm(0)*EXP(-koheff*[OH]*t) = POCRm(0)*expdt ! ! One mole of "NCOMm" is formed for every mole of POCRm that reacts: ! -dPOCRm/dt = dNCOMm/det ! moles of NCOMm: NCOMm = NCOMm(0) + POCRm(0)*[1-EXP(-koheff*[OH]*t)] = ! NCOMm(0) + POCRm(0)*(1-expdt) ! NCOMg = NCOMm*15.0 ! - every mole of newly formed NCOM results in an average gain of 1 oxygen atom ! and an average loss of 1 hydrogen atoms (on average, two oxidation steps ! convert a CH3 functional group into a COOH functional group) ! -(based on Heald et al. (2010)) ! Rewrite NCOM formation equation using grams: ! NCOMg/15.0 = NCOMg(0)/15.0 + POCRm*(1-expdt) ! V ! NCOMg == NCOM(0) + 15.0*POCRm*(1-expdt) ! or ! dNCOMg/dt = (15.0/12.0)*POC*koheff*[OH]-15.0*Omoles*PNCOM*koheff*[OH] ! ----> 15.0*Omoles*koheff is rate constant of PNCOM loss ! ! Key Subroutines Called: none ! ! Key Functions Called: none ! ! Revision History: ! June 2014: Bill Hutzell-initial version based on the poaaging subroutine ! in CMAQ v5.0 thru v5.0.2. ! ! REFERENCES: ! 1. George, I.J., Vlasenko, A., Slowik, J.G., Broekhuizen, K., ! Abbatt, J.P.D. (2007), Heterogeneous oxidation of saturated ! organic aerosols by hydroxyl radicals: uptake kinetics, ! condesned-phase products, and particle size change, ! Atmospheric Chemistry and Physics, 7, 4187-4201 ! ! 2. Heald, C.L., Kroll, J.H., Jimenez, J.L., Docherty, K.S., ! DeCarlo, P.F., Aiken, A.C., Chen, Q., Martin, S.T., Farmer, S.T., ! Artaxo, P. (2010), A simplified description of the evolution of ! organic aerosol composition in the atmosphere, GRL, 37, L08803. ! ! 3. Simon, H. and Bhave, P.V. (2011), Simulating the degree of oxidation ! in atmospheric organic particles ! In Review at ES&T. ! ! 4. Weitkamp, E.A., Lambe, A.T., Donahue, N.M., Robinson, A.L. (2008), ! Laboratory measurements of the heterogeneous oxidation of condensed- ! phase organic molecular markers for motor vehicl exhaust, 42, ! 7950-7956. !----------------------------------------------------------------------- IMPLICIT NONE ! Arguments: Note specific units do not material as long as consistent ! between arguments, i.e., the same REAL, INTENT( IN ) :: POC ! concentration of primary organic carbon REAL, INTENT( IN ) :: PNCOM ! concentration of primart noncarbon organic matter ! Parameter: REAL( 8 ), PARAMETER :: KOHEFF = 2.5D-12 ! POC + OH rate constant, cm3 molec-1 sec-1 REAL, PARAMETER :: LOWER_LIMIT = 7.0/6.0 REAL, PARAMETER :: UPPER_LIMIT = 11.0/3.0 REAL( 8 ), PARAMETER :: MAX_RATE = 15.0D0/16.0D0 * KOHEFF ! max rate constant for PNCOM loss ! Local REAL( 8 ) :: RATIO ! the hydrogen to oxygen ratio in organic matter PNCOM_LOSS = 0.0D0 IF ( POC .LE. 1.0D-30 ) RETURN RATIO = REAL( ( POC + PNCOM ) / POC, 8 ) IF ( RATIO .GT. LOWER_LIMIT .AND. RATIO .LT. UPPER_LIMIT ) THEN PNCOM_LOSS = 15.0D0 * KOHEFF & / ( 16.0D0 + (UPPER_LIMIT - RATIO) / (RATIO - LOWER_LIMIT) ) ELSE IF ( RATIO .GE. UPPER_LIMIT ) THEN PNCOM_LOSS = MAX_RATE END IF RETURN END FUNCTION PNCOM_LOSS C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: REAL( 8 ) FUNCTION N2O5_GAMMA( TEMP, RH, GPARAM ) C Calculates the N2O5 heterogeneous reaction probability, which is the C fraction of collisions between a gaseous N2O5 molecule and a particle C surface that leads to nitrate production. In the literature, this C probability is commonly referred to with the Greek letter, GAMMA. To C avoid conflicts with the intrinsic GAMMA function on some compilers, C we refer to the reaction probability as N2O5_GAMMA in this function. C A variety of parameterizations of N2O5_GAMMA are available in this C function. Users may select among the different parameterizations C by changing the input argument, GPARAM. This argument may take on C the following values (see code for further details): C 1. Constant value of 0.1 based on Dentener & Crutzen (1993) C 2. Function of particle SO4 and NO3, based on Riemer et al. (2003) C 3. Function of RH, Temp, and particle composition, based on a C combination of parameterizations by Evans & Jacob (2005) and C Riemer et al. (2003) C If GPARAM matches none of the above values, the default calculation C of N2O5_GAMMA is a function of RH, T, particle composition, and phase C state, based on the parameterization by Davis et al. (2008). C Key Subroutines Called: none C Key Functions Called: CRYSTALIZED, FREEZES C Revision History: C First version was coded in November 2007 by Dr. Prakash Bhave C using excerpts of the HETCHEM subroutine, which contained only C one option for computing N2O5_GAMMA (i.e., GPARAM = 3). C C PVB 11/03/07 Removed code that sets N2O5_GAMMA to zero when RH < 1%. C C PVB 11/05/07 Corrected GPARAM = 3 option to fix the typographical C error in the paper by Evans & Jacob (2005), which was C found by Dr. Jerry Davis. C C PVB 04/11/08 Updated formulas for LAM1 & LAM2 based on revised paper C by Davis et al. (2008). Added APNDX flag so users may C switch between base parameterization and the alternative C discussed in Appendix A by Davis et al. Set default C parameterization to match equations in Appendix A. C Reduced all regression coefficients by one decimal place C for consistency with revised paper. C C JTK 04/17/08 Moved molar mass to AERO_INFO.f C C SH 12/08/09 Use new Fortran modules (aero_data, met_data) in lieu of C CBLK array and AERO_INFO module C C SH 03/10/11 Renamed met_data to aeromet_data C GS 09/12/14 Added an opiton for N2O5 heterogeneous reaction probability C based on Bertram and Thornton (2009) (fine and coarse mode) C References: C 1. Dentener, F.J. and P.J. Crutzen, Reaction of N2O5 on tropospheric C aerosols: Impact of global distributions of NOx, O3, and OH. C J. Geophys. Res., Vol 98, 7149-7163, 1993. C C 2. Riemer, N., H. Vogel, B. Vogel, B. Schell, I. Ackermann, C. C Kessler, and H. Hass, Impact of the heterogeneous hydrolysis C of N2O5 on chemistry of nitrate aerosol formation in the lower C troposphere under photosmog conditions. J. Geophys. Res., Vol C 108, No D4, 4144, doi:10.1029/2002JD002436, 2003. C C 3. Evans, M.J. and D.J. Jacob, Impact of new laboratory studies of C N2O5 hydrolysis on global model budgets of tropospheric nitrogen C oxides, ozone, and OH. Geophys. Res. Lett., 32, L09813, C doi:10.1029/2005GL022469, 2005. C C 4. Davis, J.M., P.V. Bhave, and K.M. Foley, Parameterization of N2O5 C reaction probabilities on the surface of particles containing C ammonium, sulfate, and nitrate. Atmos. Chem. Phys., 2008, in C press. C C 5. Mentel, T.F., M. Sohn, and A. Wahner, Nitrate effect in the C heterogeneous hydrolysis of dinitrogen pentoxide on aqueous C aerosols. Phys. Chem. Chem. Phys., 1, 5451-5457, 1999. C C 6. Bertram, T. H. and J.A. Thornton, Toward a general parameterization C of N2O5 reactivity on aqueous particles: the competing effects of C particle liquid water, nitrate, and chloride, ACP, 9, 8351-8363, 2009. C----------------------------------------------------------------------- USE AERO_DATA USE AEROMET_DATA ! Includes CONST.EXT IMPLICIT NONE C *** Arguments REAL( 8 ), INTENT( IN ) :: TEMP ! Air temperature [ K ] REAL( 8 ), INTENT( IN ) :: RH ! Fractional relative humidity INTEGER, INTENT( IN ) :: GPARAM ! switch to select among ! parameterizations C *** Parameters C *** switch for alternative parameterization of LAM1 & LAM2 C when APNDX = .TRUE. (default), Eqs A1-A2 are used for reaction C probability on aqueous sulfate particles. Alternatively, set C APNDX = .FALSE. to use Eqs 4-5. LOGICAL, PARAMETER :: APNDX = .TRUE. C *** Local Variables C *** chemical species concentrations [ug/m3] REAL ANH4 ! i+j mode ammonium REAL ANO3 ! i+j mode nitrate REAL ASO4 ! i+j mode sulfate C *** variables for computing N2O5_GAMMA when GPARAM = 2 or 3 REAL FRACSO4 ! aerosol mass ratio of SO4/(SO4+NO3) REAL GAMMA1 ! upper limit of rxn prob REAL GAMMA2 ! lower limit of rxn prob REAL ALPHA ! RH-dependent parameter to compute GAMMA1 REAL BETA ! TEMP-dependent parameter to compute GAMMA1 C *** variables for default parameterization of N2O5_GAMMA ! LOGICAL, EXTERNAL :: CRYSTALIZED ! function to determine if RH is below CRH LOGICAL CRYSTAL ! true if ambient RH < CRH, false otherwise ! LOGICAL, EXTERNAL :: FREEZES ! function to determine whether RH exceeds IRH LOGICAL FROZEN ! true if ambient RH > IRH, false otherwise REAL NNO3 ! particle-phase nitrate [micromoles/m3] REAL NSO4 ! particle-phase sulfate [micromoles/m3] REAL NNH4 ! particle-phase ammonium [micromoles/m3] REAL NANI ! particle-phase anions [micromoles/m3] REAL X1 ! mole fraction of ammonium bisulfate REAL X2 ! mole fraction of ammonium sulfate REAL X3 ! mole fraction of ammonium nitrate REAL LAM1 ! logit transformation of N2O5_GAMMA on REAL LAM2 ! aqueous NH4HSO4 [LAM1], aqueous (NH4)2SO4 REAL LAM3 ! [LAM2], aqueous NH4NO3 [LAM3], and dry REAL LAMD ! sulfate-containing particles [LAMD] REAL GAM1 ! reaction probability on aqueous NH4HSO4 REAL GAM2 ! " " " " (NH4)2SO4 REAL GAM3 ! " " " " NH4NO3 REAL GAMD ! " " " dry sulfate particles REAL T293,T291 ! temperature threshold variables REAL RH46 ! RH threshold variable C *** variables for parameterization based on Bertram and Thornton (2009) REAL ACLF ! I & J mode chloride, ug/m3 REAL AH2OF ! I & J mode water, ug/m3 REAL ANO3F ! I & J mode nitrate, ug/m3 REAL ACLK ! k mode chloride, ug/m3 REAL AH2OK ! k mode water, ug/m3 REAL ANO3K ! k mode nitrate, ug/m3 REAL ACLM ! chloride, [moles / liter of particles] REAL AH2OM ! water, [moles / liter of particles] REAL ANO3M ! nitrate, [moles / liter of particles] REAL DEN1 ! local varible REAL DEN2 ! local varible REAL DEN ! local varible REAL INV_VOL ! local variable REAL, PARAMETER :: A = 3.2E-08 ! Unit [s] - Table 2 REAL, PARAMETER :: BETA_BT = 1.15E06 ! Unit [1/s] - Table 2 REAL, PARAMETER :: DELTA = 1.3E-01 ! Unit [1/M] - Table 2 REAL, PARAMETER :: K3OK2B = 6.0E-02 ! Unit [ ] - Table 2 REAL, PARAMETER :: K4OK2B = 29.0 ! Unit [ ] - Table 2 REAL K2FP ! varible in eqn 10 C *** statement function for inverting the logit transformation given C in Eq 7 by Davis et al (2008) REAL LOGITINV ! statement function REAL XX ! dummy argument for LOGITINV LOGITINV( XX ) = 1.0 / ( 1.0 + EXP( -XX ) ) C----------------------------------------------------------------------- C *** retrieve fine-mode particle-phase ammonium, nitrate, and sulfate [ug/m3] ANH4 = aerospc_conc( ANH4_IDX,1 ) + aerospc_conc( ANH4_IDX,2 ) ANO3 = aerospc_conc( ANO3_IDX,1 ) + aerospc_conc( ANO3_IDX,2 ) ASO4 = aerospc_conc( ASO4_IDX,1 ) + aerospc_conc( ASO4_IDX,2 ) c *** Retrieve fine-mode particle-phase liquid water, chloride, nitrate [ug/m3] AH2OF = aerospc_conc( AH2O_IDX,1 ) + aerospc_conc( AH2O_IDX,2 ) ACLF = aerospc_conc( ACL_IDX,1 ) + aerospc_conc( ACL_IDX,2 ) ANO3F = aerospc_conc( ANO3_IDX,1 ) + aerospc_conc( ANO3_IDX,2 ) c *** Retrieve coarse-mode particle-phase liquid water, chloride, nitrate [ug/m3] AH2OK = aerospc_conc( AH2O_IDX,3 ) ACLK = aerospc_conc( ACL_IDX,3 ) ANO3K = aerospc_conc( ANO3_IDX,3 ) WHAT_OPTION: SELECT CASE( GPARAM ) CASE ( 1 ) C *** User Option: GPARAM = 1 C Dentener and Crutzen (1993) recommended a constant value of C N2O5_GAMMA = 0.1, which was used in CMAQ prior to ver4.3. In more C recent literature, this value has been recognized as an upper C estimate of N2O5_GAMMA so it should not be used for routine C simulations. It is included here only to facilitate sensitivity C studies by CMAQ model users. N2O5_GAMMA = 0.1D0 RETURN CASE( 2, 3 ) C *** User Options: GPARAM = 2 and 3 C These options both employ Eqs 2 and 3 by Riemer et al (2003), in C which N2O5_GAMMA varies according to the particle-phase sulfate and C nitrate concentrations. In both options, the NO3 effect (i.e., C GAMMA1/GAMMA2) is assumed to be a factor of 10 based on Mentel et C al (1999) and Riemer et al (2003). C - When GPARAM = 2, upper limit of N2O5_GAMMA is fixed at 0.02. C This was the default setting in CMAQ ver4.3 through ver4.5.1. C - When GPARAM = 3, upper limit of N2O5_GAMMA is a function of C ambient TEMP & RH based on the "Sulfate" equation in Table 1 C by Evans & Jacob (2005). This was the default setting in CMAQ C ver4.6. After that release, a typographical error was found C in the published equation of Evans & Jacob (2005) so this code C has been corrected accordingly. IF ( GPARAM .EQ. 2 ) THEN GAMMA1 = 0.02 ELSE C In this function, RH is in fractional units whereas the C published equation by Evans&Jacob refers to RH as a percentage. ALPHA = 2.79E-04 & + REAL( RH * ( 1.3D-02 + RH * ( -3.43D-02 + 7.52D-02 * RH ) ), 4 ) C To fix the typographical error by Evans & Jacob (2005), the C sign of BETA has been switched in this code. IF ( TEMP .LT. 282.0D0 ) THEN GAMMA1 = 3.0199517 * ALPHA ! (10.0 ** 0.48) * ALPHA ELSE BETA = 0.04 * ( 294.0 - REAL( TEMP,4 ) ) GAMMA1 = ALPHA * ( 10.0 ** BETA ) END IF END IF IF ( ANO3 .GT. 0.0 ) THEN FRACSO4 = ASO4 / ( ASO4 + ANO3 ) ELSE FRACSO4 = 1.0 END IF GAMMA2 = 0.1 * GAMMA1 N2O5_GAMMA = REAL( ( GAMMA2 + FRACSO4 * ( GAMMA1 - GAMMA2 ) ), 8 ) RETURN CASE ( 4 ) C *** User Option: GPARAM = 4 (fine-mode particles) C *** It calculates N2O5_GAMMA based on Bertran and Thornton, 2009 INV_VOL = 1.0E-9 * f6pi / REAL( ( WET_M3( 1 ) + WET_M3( 2 ) ), 4 ) AH2OM = AH2OF * INV_VOL / aerospc_mw( AH2O_IDX ) ACLM = ACLF * INV_VOL / aerospc_mw( ACL_IDX ) ANO3M = ANO3F * INV_VOL / aerospc_mw( ANO3_IDX ) K2FP = BETA_BT - BETA_BT * EXP( -DELTA * AH2OM ) DEN1 = K3OK2B * ( AH2OM / ANO3M ) DEN2 = K4OK2B * ( ACLM / ANO3M ) DEN = DEN1 + 1.0 + DEN2 N2O5_GAMMA = REAL( A * K2FP * (1.0 - 1.0 / DEN), 8 ) RETURN CASE ( 5 ) C *** User Option: GPARAM = 5 (coarse-mode particles) C It calculates N2O5_GAMMA based on Bertran and Thornton, 2009 INV_VOL = 1.0E-9 * f6pi / REAL( WET_M3( 3 ), 4 ) AH2OM = AH2OK * INV_VOL / aerospc_mw( AH2O_IDX ) ACLM = ACLK * INV_VOL / aerospc_mw( ACL_IDX ) ANO3M = ANO3K * INV_VOL / aerospc_mw( ANO3_IDX ) K2FP = BETA_BT - BETA_BT * EXP( -DELTA * AH2OM ) DEN1 = K3OK2B * ( AH2OM / ANO3M ) DEN2 = K4OK2B * ( ACLM / ANO3M ) DEN = DEN1 + 1.0 + DEN2 N2O5_GAMMA = REAL( A * K2FP * (1.0 - 1.0 / DEN), 8) RETURN ! IF ( DUMP_CELL ) THEN ! WRITE(*,*)'AH2OM = ',AH2OM ! WRITE(*,*)'ACLM = ',ACLM ! WRITE(*,*)'ANO3M = ',ANO3M ! WRITE(*,*)'DEN = ',DEN ! WRITE(*,*)'DEN1 = ',DEN1 ! WRITE(*,*)'DEN2 = ',DEN2 ! WRITE(*,*)'K2FP = ',K2FP ! WRITE(*,*)'GAMMAK = ',A * K2FP * (1.0 - 1.0 / DEN) ! END IF ! RETURN CASE DEFAULT C *** Default setting in current version of CMAQ: C This code implements the paramaterization given in Eq 15 by Davis C et al (2008), in which N2O5_GAMMA is a function of RH, TEMP, C particle composition, and phase state. Note: In this function, RH C is in fractional units whereas the published equations refer to RH C as a percentage. C *** Check whether the ambient RH is below the crystallization RH for C the given inorganic particle composition. CRYSTAL = CRYSTALIZED( RH, .TRUE. ) C *** Check whether the ambient RH exceeds the RH of ice formation. FROZEN = FREEZES( TEMP, RH ) IF ( FROZEN ) THEN C *** Set N2O5_GAMMA to constant value if particles contain ice, based on C Eq 14 by Davis et al (2008). N2O5_GAMMA = 0.02D0 ! Eq 14 ELSE C *** Compute mole-fractional-composition of particles based on Eq 11 by C Davis et al (2008). NNO3 = ANO3 / aerospc_mw( ANO3_IDX ) NSO4 = ASO4 / aerospc_mw( ASO4_IDX ) NNH4 = ANH4 / aerospc_mw( ANH4_IDX ) NANI = NNO3 + NSO4 X3 = NNO3 / NANI X2 = MAX( 0.0, MIN( 1.0 - X3, NNH4/NANI - 1.0 ) ) X1 = 1.0 - ( X2 + X3 ) C *** Compute N2O5_GAMMA on pure NH4NO3 particles using Eqs 6 and 8 by C Davis et al (2008). LAM3 = -8.10774 + 4.902 * REAL( RH, 4 ) ! Eq 6 GAM3 = MIN( LOGITINV( LAM3 ), 0.0154 ) ! Eq 8 C *** Compute N2O5_GAMMA on dry particles using Eqs 9, 10, and 13 by C Davis et al (2008). IF ( CRYSTAL ) THEN T293 = MAX( 0.0, REAL( TEMP ) - 293.0 ) LAMD = -6.13376 + 3.592 * REAL( RH, 4 ) ! Eq 9 & - 0.19688 * T293 GAMD = MIN( LOGITINV( LAMD ), 0.0124 ) ! Eq 10 N2O5_GAMMA = REAL( ( X1 + X2 ) * GAMD ! Eq 13 & + X3 * MIN( GAMD, GAM3 ), 8) C *** Compute N2O5_GAMMA on aqeuous particles using Eqs A1, A2, 8, and 12 C by Davis et al (2008). When APNDX = .TRUE. (default), Eqs A1-A2 C are used for reaction probability on aqueous sulfate particles. C Switch to .FALSE. if Eqs 4-5 are desired. See Appendix A by C Davis et al. (2008) for a discussion of these options. ELSE T291 = MAX( 0.0, REAL( TEMP ) - 291.0 ) IF ( APNDX ) THEN RH46 = MIN( 0.0, REAL( RH )- 0.46 ) LAM2 = -3.64849 + 9.553 * RH46 ! Eq A2 LAM1 = LAM2 + 0.97579 ! Eqs A1 & A2 & - 0.20427 * T291 ELSE LAM1 = -4.10612 + 2.386 * REAL( RH ) ! Eq 4 & - 0.23771 * T291 LAM2 = LAM1 - 0.80570 ! Eqs 4 & 5 & + 0.10225 * T291 END IF GAM1 = MIN( LOGITINV( LAM1 ), 0.08585 ) ! Eq 8 GAM2 = MIN( LOGITINV( LAM2 ), 0.053 ) ! Eq 9 N2O5_GAMMA = REAL( ( X1 * GAM1 ) ! Eq 12 & + ( X2 * GAM2 ) & + ( X3 * GAM3 ), 8 ) END IF END IF END SELECT WHAT_OPTION RETURN END FUNCTION N2O5_GAMMA C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: LOGICAL FUNCTION CRYSTALIZED( RH, COMPLETE ) C Determines whether the ambient RH is below the crystallization relative C humidity (CRH). The output of this logical function is .TRUE. when the C ambient RH is below the CRH and .FALSE. otherwise. The empirical C equations developed by Martin et al (2003) are applied to determine the C CRH for a given mixture of sulfate, nitrate, and ammonium. Though those C equations are validated only at 293K, they are applied at all ambient C temperatures because insufficient data exist to estimate the temperature C dependence of the CRH of mixed sulfate-nitrate-ammonium particles. C Users can opt to compute either the RH of initial crystal formation C (i.e., COMPLETE .EQ. .FALSE.) or the RH of compete crystallization (i.e., C COMPLETE .EQ. .TRUE.). C References: C 1. Martin, S.T., J.C. Schlenker, A. Malinowski, H.-M. Hung, and C Y. Rudich, Crystallization of atmospheric sulfate-nitrate- C ammonium particles. Geophys. Res. Lett., 30(21), 2102, C doi:10.1029/2003GL017930, 2003. C Revision History: C PVB 11/05/07 Coded the first version. C JTK 04/17/08 Moved molar mass to AERO_INFO.f C SH 12/08/09 Use aero_data module in lieu of CBLK array C----------------------------------------------------------------------- USE AERO_DATA IMPLICIT NONE C *** Arguments REAL( 8 ), INTENT( IN ) :: RH ! fractional relative humidity LOGICAL, INTENT( IN ) :: COMPLETE ! flag deciding which CRH ! equation to use C *** Local Variables C *** chemical species concentrations [micromoles/m3] REAL NSO4 ! i+j mode sulfate REAL NNO3 ! i+j mode nitrate REAL NNH4 ! i+j mode ammonium REAL NCAT ! i+j mode cations REAL NANI ! i+j mode anions C *** cation and anion mole fractions used in CRH equations REAL X ! ammonium/cation mole fraction: NH4/(NH4+H) REAL Y ! sulfate/anion mole fraction: SO4/(SO4+NO3) C *** intermediate variables used in CRH equations REAL X2, XY, Y2, X2Y, XY2, RDEN REAL CRH ! crystallization RH (fractional units) C----------------------------------------------------------------------- C *** Experimental measurements of CRH are lacking below 1% relative C humidity. Under those very dry conditions, we assume that C particles will crystallize. Equations by Martin et al (2003) for C internally-mixed sulfate-nitrate-ammonium particles yield maximum C CRH values of 35.03% and 34.50% for initial crystal formation and C complete crystallization, respectively. Therefore, the full CRH C calculation can be avoided when RH > 35.1%. IF ( RH .LE. 0.01D0 ) THEN CRYSTALIZED = .TRUE. ! ambient particles are dry RETURN ELSE IF ( RH .GT. 0.351D0 ) THEN CRYSTALIZED = .FALSE. ! ambient RH exceeds CRH RETURN END IF C *** calculate total particle-phase composition [micromoles/m3] NNO3 = ( aerospc_conc( ANO3_IDX,1 ) + aerospc_conc( ANO3_IDX,2 ) ) & / aerospc_mw( ANO3_IDX ) NSO4 = ( aerospc_conc( ASO4_IDX,1 ) + aerospc_conc( ASO4_IDX,2 ) ) & / aerospc_mw( ASO4_IDX ) NNH4 = ( aerospc_conc( ANH4_IDX,1 ) + aerospc_conc( ANH4_IDX,2 ) ) & / aerospc_mw( ANH4_IDX ) C *** calculate total anion and cation concentrations NCAT = MAX( NNH4, 2.0 * NSO4 + NNO3 ) NANI = NNO3 + NSO4 C *** calculate ammonium and sulfate mole fractions X = NNH4 / NCAT Y = NSO4 / NANI C *** Experimental data of Martin et al. (2003) show no crystal C formation when X < 0.50 or Y < 0.22. For these particle C compositions, the full CRH calculation can be avoided. C C Note: Martin`s equation for initial crystal formation returns C very large CRH values when X and Y approach zero. However, C those values were verified to be erroneous by personal C communication with Dr. Scot Martin on Aug. 30, 2007. IF ( ( X .LT. 0.50 ) .OR. ( Y .LT. 0.22 ) ) THEN CRYSTALIZED = .FALSE. ! ambient RH exceeds CRH RETURN END IF C *** store some terms needed to evaluate the CRH equations X2 = X * X XY = X * Y X2Y = X2 * Y Y2 = Y * Y XY2 = X * Y2 RDEN = 1.0 / ( 25.0 + ( X - 0.7 ) * ( Y - 0.5 ) ) C *** calculate CRH using empirical equations of Martin et al (2003) IF ( COMPLETE ) THEN CRH = 3143.44 + (63.07 * X) + (0.114 * X2) + (87.97 * Y) & - (125.73 * XY) + (0.586 * X2Y) + (0.95 * Y2) & - (1.384 * XY2) - (79692.5 * RDEN) ELSE CRH = -697.908 - (15.351 * X) + (0.43 * X2) - (22.11 * Y) & + (33.882 * XY) - (1.818 * X2Y) + (0.772 * Y2) & - (1.636 * XY2) + (17707.6 * RDEN) END IF C *** set value of the output variable, CRYSTALIZED IF ( RH .LE. REAL( CRH, 8 ) ) THEN CRYSTALIZED = .TRUE. ! ambient particles are dry ELSE CRYSTALIZED = .FALSE. ! ambient RH exceeds CRH END IF RETURN END FUNCTION CRYSTALIZED C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: LOGICAL FUNCTION FREEZES( TEMP, RH ) C Determines whether the ambient RH has exceeded the RH of ice formation, C based on the Goff-Gratch equations as given by List (1984). C References: C 1. Goff, J.A. and S. Gratch, Low-pressure properties of water from C -160 to 212 F, in Transactions of the American Society of Heating C and Ventilating Engineers, pp 95-122, New York, 1946. C 2. List, R.J. (editor), Smithsonian Meteorological Tables, 5th ed. C pp. 350, 1984. C Revision History: C PVB 11/06/07 Coded the first version. C----------------------------------------------------------------------- IMPLICIT NONE C *** Arguments REAL( 8 ), INTENT( IN ) :: TEMP ! Air temperature [ K ] REAL( 8 ), INTENT( IN ) :: RH ! Fractional relative humidity C *** Parameters C *** The following values are taken from List (1984). Note that C these differ slightly from the original equations published by C Goff & Gratch (1946). We also note that T0 and PST differ C slightly from STDTEMP and STDATMPA in the AERO_INFO module. C Here, we use 273.16 K and 1013.246 hPa to be consistent with C the Goff-Gratch equations as given by List (1984). REAL( 8 ), PARAMETER :: TST = 373.16D0 ! steam-point temperature, K REAL( 8 ), PARAMETER :: T0 = 273.16D0 ! ice-point temperature, K REAL( 8 ), PARAMETER :: PST = 1013.246D0 ! sat vapor pres at TST, hPa REAL( 8 ), PARAMETER :: P0 = 6.1071D0 ! sat vapor pres at T0, hPa REAL( 8 ), PARAMETER :: LOGPST = 3.0057149D0 ! LOG10(PST) REAL( 8 ), PARAMETER :: LOGP0 = 0.78583503D0 ! LOG10(P0) C *** Local Variables C *** estimates of IRH using a polynomial approximation REAL( 8 ) EIRH ! IRH approximated using 2nd order polynomial REAL( 8 ) LIRH ! lower-bound of IRH REAL( 8 ) UIRH ! upper-bound of IRH C *** variables used to compute RH of ice formation REAL( 8 ) TSDT, TDTS, T0DT, TDT0 ! intermediate variables REAL( 8 ) LOGPW ! log10 of saturation vapor pressure over H2O REAL( 8 ) LOGPI ! log10 of saturation vapor pressure over ice REAL( 8 ) IRH ! fractional RH at which ice forms C----------------------------------------------------------------------- IF ( TEMP .LT. T0 ) THEN C *** To mitigate the computational expense associated with Goff-Gratch C equations, use a 2nd order polynomial function to approximate IRH. C This approximation, EIRH, matches IRH from the full Goff-Gratch C equations within 0.004 over the entire low-temperature range of C interest (200 to 275K) and is used for screening purposes. EIRH = 1.61299D0 + TEMP * ( 4.4117437D-5 * TEMP - 1.4293888D-2 ) LIRH = EIRH - 0.005D0 UIRH = EIRH + 0.005D0 IF ( RH .GT. UIRH ) THEN FREEZES = .TRUE. ELSE IF ( RH .LT. LIRH ) THEN FREEZES = .FALSE. ELSE C *** Compute IRH using Goff-Gratch equations as given by List (1984) TSDT = TST / TEMP TDTS = TEMP / TST T0DT = T0 / TEMP TDT0 = TEMP / T0 LOGPW = -7.90298D0 * ( TSDT - 1.0D0 ) & + 5.02808D0 * LOG10( TSDT ) & - 1.3816D-7 * ( 10.0D0 ** ( 11.344D0 * (1.0D0 - TDTS) ) - 1.0D0 ) & + 8.1328D-3 * ( 10.0D0 ** ( -3.49149D0 * (TSDT - 1.0D0) ) - 1.0D0 ) & + LOGPST LOGPI = -9.09718D0 * (T0DT - 1.0D0) & - 3.56654D0 * LOG10( T0DT ) & + .876793D0 * (1.0D0 - TDT0) & + LOGP0 IRH = 10.0D0 ** ( LOGPI - LOGPW ) IF ( RH .GT. IRH ) THEN FREEZES = .TRUE. ELSE FREEZES = .FALSE. END IF END IF ELSE FREEZES = .FALSE. END IF RETURN END FUNCTION FREEZES C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE CALCISOPGAMMAS( RADIUS, TEMPERATURE, & GAMMAIEPOX, GAMMAIMAE, & KPIEPOX, fTET, fOS, fdim1, fdim2 ) C Calculates the uptake coefficients (gammas) for IEPOX, IMAE, and IHMML C based on particle phase H+ (EQLBH) and other particle constituents. C Also returns calculated particle phase reaction rate, fraction of uptake C producing tetrols, organosulfates, and dimers. C Note that indices 1 and 2 are used for both acids (1=H+, 2=bisulfate) and C the organics (1=IEPOX, 2=IMAE). C Key Subroutines Called: none C Key Functions Called: none C Revision History: C HOTP 1/18/13 First coding C HOTP 9/26/14 Reduced form considering only IEPOX uptake with no C speciation developed for CB05 C HOTP 5/10/16 Merged with AERO6I code. Now handles SAPRC07tic and MAE uptake. C References C 1. Chan, M. N., et al. "Characterization and quantification of isoprene- C derived expoxydiols in ambient aerosol in the Southeastern United States," C Environ. Sci. Technol., 2010, 44, 4590-4596. C 2. Eddingsaas, N. C., VanderVelde, D. G., Wennberg, P. O. "Kinetics C and products of the acid-catalyzed ring-opening of atmospherically C relevant butyl epoxy alcohols," J. Phys. Chem A., 2010, 114, 8106-8113. C 3. Gharagheizi, F., et al. "Representation and prediction of molecular diffusivity C of nonelectrolyte organic compounds in water at infinite dilution using the C artificial neural network-group contribution method," J. Chemical & Engineering C Data, 2011, 46, 1741-1750. C 4. Hanson, D. R., Ravishankara, A. R., Solomon, S. "Heterogeneous reactions in C sulfuric acid aerosols: A framework for model calculations," J. Geophys. Res., C 1994, 99, 3615-3629. C 5. McNeill, V. F., et al. "Aqueous-phase secondary organic aerosol and organosulfate C formation in atmospheric aerosols: A modeling study," Environ Sci Technol., 2012, C 46, 8075-8081. C 6. Pye et al., Epoxide pathways improve model predictions of isoprene C markers and reveal key role of acidity in aerosol formation, C Envion. Sci. Technol, 2013, doi: 10.1021/es402106h. C----------------------------------------------------------------------- Use aero_data Use precursor_data Use aeromet_data ! Includes CONST.EXT (pi) and airtemp Use utilio_defn ! error message and abort Implicit None C *** Arguments Real( 8 ), Intent( IN ) :: RADIUS ! Particle radius [m] Real( 8 ), Intent( IN ) :: TEMPERATURE ! air temperature [deg K] Real( 8 ), Intent( OUT ) :: GAMMAIEPOX ! Uptake coeff for IEPOX [] Real( 8 ), Intent( OUT ) :: GAMMAIMAE ! Uptake coeff for MAE [] Real( 8 ), Intent( OUT ) :: KPIEPOX ! Particle phase reaction rate for IEPOX [1/s] Real( 8 ), Intent( OUT ) :: fTET(2), fOS(2), fdim1(2), fdim2(2) ! fraction of tetrol, organosulfate, tetroldimer, osdimer [] ! first value for IEPOX-derived, second for IMAE-derived C *** Parameters C For gamma calculation Real( 8 ), Parameter :: inv_alpha = 1.0d0/0.02d0 ! reciproaccomodation coefficient from McNeill et al. 2012 [] Real( 8 ), Parameter :: diffusivity = 1.0d-9 ! liquid phase diffusivity, based on C4-C5 epoxides ! and diols at infinite dilution in water (Gharagheizi et al. 2011) [m2/s] Real( 8 ), Parameter :: RgasLatmmolK = 0.08206d0 ! Universal gas constant [L atm/mol K] Real( 8 ), Parameter :: small = 1.0d-8 ! small number to prevent calculations that may have precision issues Real( 8 ), Parameter :: smaller = 1.0d-20 ! smaller number to prevent division by zero C Acid related Integer, Parameter :: n_acids = 2 ! number of acids: H+ and HSO4- Integer, Parameter :: hacid_idx = 1 ! H+ acid index Integer, Parameter :: hso4acid_idx = 2 ! HSO4 acid index C Henry's law coeff for IEPOX (1) and IMAE (2) (HenryWin v 3.2) Real( 8 ) :: Heff(2) C Diagnostic Character (16 ), Parameter :: pname = 'CALCISOPGAMMAS' C *** Local Variables Integer :: i ! counter and temporary indices Real( 8 ) :: eqlbh ! Particle Phase H+ from isoropia [mol/m**3] Real( 8 ) :: q, denom ! quantities in Hanson et al. 1994 equation for gamma [] Real( 8 ) :: nu ! molecular speed [m/s], note this is the same as CBAR but we want to avoid excessive passing Real( 8 ) :: acidmolconc( n_acids ) ! concentration of acid in mol/m3 Real( 8 ) :: acid ! temporary concentration of acid in mol/m3 Real( 8 ) :: nuc ! nucleophile concentration in mol/m3 Real( 8 ) :: charge ! temporary for charge balance calculation [umol/m3] Real( 8 ) :: inv_volume ! reciprocal of particle volume [m3 air/Liters particles] Real( 8 ) :: kchem, kparticle(2) Real( 8 ) :: kchemtet(2),kchemos(2), kchemdim1(2), kchemdim2(2) ! particle phase rxn rates [1/s] Real( 8 ) :: gammaisop(2) ! temporary value for IEPOX (1) and IMAE (2) gammas Real( 8 ) :: cfactor_isop(2) ! cfactor for IEPOX(1) and MAE(2) Real( 4 ) :: temp ! air temperature [deg K] Character ( 80 ) :: xmsg ! error message C *** External functions Interface Real Function hlconst ( cname, temp, effective, hplus ) Use utilio_defn Implicit None Character*(*), Intent ( In ) :: cname Real, Intent ( In ) :: temp Logical, Intent ( In ) :: effective Real, Intent ( In ) :: hplus End Function hlconst End Interface C----------------------------------------------------------------------- C *** Determine H+ acid concentration of j mode [mol/m3] eqlbh = aerospc_conc( ah3op_idx, 2 ) / aerospc_mw( ah3op_idx ) * 1.0d-6 acidmolconc( hacid_idx ) = Max( eqlbh, 0.0d0 ) C *** Calculate HSO4 by charge balance C Note: if isorropia has returned a negative H+ concentration C we effectively treat all H+ like HSO4 (slightly less effective C in catalyzing the ring-opening) charge = 0.0d0 ! umol/m3 Do i = 1, n_aerospc If ( aerospc( i )%tracer ) Cycle If ( aero_missing( i,2 ) ) Cycle charge = charge - aerospc( i )%charge * aerospc_conc( i,2 ) & / aerospc_mw( i ) End Do acidmolconc( hso4acid_idx ) = Max( ( charge*1.0d-6 - acidmolconc( hacid_idx ) ), 0.0d0 ) C *** J-mode particle volume [L/m**3 air] inv_volume = 0.0d0 Do i = 1, n_aerospc If ( aerospc( i )%tracer ) Cycle If ( aero_missing( i,2 ) ) Cycle ! If ( aerospc( i )%no_M2Wet ) Cycle inv_volume = inv_volume + Real( aerospc_conc( i, 2 ) / aerospc(i)%density, 8 ) ! * 1.0d-6 End Do inv_volume = 1.0d6 / inv_volume C *** Loop over nucleophile/acid pairs defined in acid_nuc_pairs in AERO_DATA C and calculate rate of particle phase reaction kchem = 0.0d0 ! intermediate value kparticle = 0.0d0 ! accumulating IEPOX and IMAE value kchemos = 0.0d0 ! accumulating organosulfate for IEPOX and IMAE kchemtet = 0.0d0 ! accumulating tetrols or equivalent for IEPOX and IMAE kchemdim1 = 0.0d0 ! accumulating tetrol-dimer or equivalent for IEPOX and IMAE kchemdim2 = 0.0d0 ! accumulating os-dimer or equivalent for IEPOX and IMAE Do i = 1, n_nucpairs C Find J-mode nucleophile concentration in ug/m3 and convert to mol/m3 nuc = aerospc_conc( acid_nucmap_idx( i ), 2 ) & / aerospc_mw( acid_nucmap_idx( i ) ) * 1.0d-6 acid = acidmolconc( acid_nuc_pairs( i )%idx_acid ) ! mol/m3 C Correct sulfate for presence of bisulfate If ( acid_nuc_pairs( i )%idx_remove .Ge. 1 ) Then nuc = Max( nuc - acidmolconc( acid_nuc_pairs( i )%idx_remove ), 0.0d0 ) End If C Determine rate of particle phase rxn for a given pair (Eddingsaas et al.) kchem = acid_nuc_pairs( i )%kchem* nuc * acid * ( inv_volume*inv_volume ) C Update sum C Store information with speciation for IEPOX if ( acid_nuc_pairs( i )%parent .eq. 'IEPOX' ) then kparticle( 1 ) = kparticle(1) + kchem if ( acid_nuc_pairs( i )%prod .eq. 'AIEOSJ' ) then !ae6i kchemos( 1 ) = kchemos(1) + kchem else if ( (acid_nuc_pairs( i )%prod .eq. 'ADIMJ') & .and. (acid_nuc_pairs( i )%nuc .eq. 'AIETETJ') ) then !ae6i kchemdim1( 1 ) = kchemdim1(1) + kchem else if ( (acid_nuc_pairs( i )%prod .eq. 'ADIMJ') & .and. (acid_nuc_pairs( i )%nuc .eq. 'AIEOSJ') ) then !ae6i kchemdim2( 1 ) = kchemdim2(1) + kchem else if ( acid_nuc_pairs( i )%prod .eq. 'AIETETJ' ) then !ae6i kchemtet( 1 ) = kchemtet(1) + kchem else if ( acid_nuc_pairs( i )%prod .eq. 'AISO3OSJ' ) then !craccm1 kchemos( 1 ) = kchemos(1) + kchem else if ( acid_nuc_pairs( i )%prod .eq. 'AISO3NOSJ' ) then !craccm1 kchemtet( 1 ) = kchemtet(1) + kchem else if ( acid_nuc_pairs( i )%prod .eq. 'AISO3J' ) then !lumped treatments if ( acid_nuc_pairs( i )%nuc .eq. 'ASO4J' ) then !organosulfate kchemos( 1 ) = kchemos(1) + kchem else ! non sulfated species kchemtet( 1 ) = kchemtet(1) + kchem end if else xmsg = 'For IEPOX parent, reaction product not recognized ' CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT2 ) end if end if C Store information with speciation for IMAE if ( acid_nuc_pairs( i )%parent .eq. 'IMAE' ) then kparticle( 2 ) = kparticle( 2 ) + kchem if( acid_nuc_pairs( i )%prod .eq. 'AIMOSJ' ) then kchemos( 2 ) = kchemos( 2 ) + kchem else if( acid_nuc_pairs( i )%prod .eq. 'AIMGAJ' ) then kchemtet( 2 ) = kchemtet( 2 ) + kchem else xmsg = 'For IMAE parent, reaction product not recognized ' CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT2 ) end if end if End Do C *** Calculate gamma following Pye et al. 2013 ES&T C (see also Hanson et al. 1994 JGR Eqn (2) for details) C *** Calculate gammas for IEPOX and IMAE C *** Henry's Law coefficients temp = real( TEMPERATURE, 4) Heff( 1 ) = REAL(HLCONST( 'IEPOX', temp, .False., 0.0 ), 8) Heff( 2 ) = REAL(HLCONST( 'IMAE', temp, .False., 0.0 ), 8) C *** Cfactor cfactor_isop( 1 ) = cfactor_iepox cfactor_isop( 2 ) = cfactor_imae C Loop over precursor species and calculate gamma C (see Hanson et al. 1994 JGR Eqn (2) for details) Do i = 1, numvoc C Note that if the rate of particle phase reaction is very slow, there may not C be enough digits of precision to properly calculate q which can result in C erroneously high gamma values. Only calculate gamma if particle phase reaction C is faster than 1e-8 1/s ! Diffuso reactive parameter [ m * sqrt ( 1/s s/m2 ) = dim'less ] q = radius * dsqrt ( kparticle(i)/ diffusivity ) If ( q / Tanh( q ) .Gt. 1.0d0 ) Then ! Molecular speed [ sqrt ( J/mol K * K / g * mol * g/ kg ) = sqrt (J/kg) = m/s ] nu = cfactor_isop( i ) * dsqrt( temperature ) ! Gamma [ denom: m/s / ( mol/L/atm * L atm /mol/ K * K * sqrt ( m2/s * 1/s )) = dim'less ] denom = ( inv_alpha + nu * radius & / ( 4.0d0 * Heff( i )* RgasLatmmolK * temperature * diffusivity & * ( q / Tanh( q ) -1.0d0 ) ) ) gammaisop( i ) = 1.0d0 / denom ftet( i ) = kchemtet( i ) / kparticle( i ) fos( i ) = kchemos( i ) / kparticle( i ) fdim1( i ) = kchemdim1( i ) / kparticle( i ) fdim2( i ) = kchemdim2( i ) / kparticle( i ) C No/slow reaction Else gammaisop( i ) = 0.0d0 ftet( i ) = 0d0 fos( i ) = 0d0 fdim1( i ) = 0d0 fdim2( i ) = 0d0 End If End Do C *** Calculate final values to return gammaiepox = gammaisop( 1 ) gammaimae = gammaisop( 2 ) kpiepox = kparticle( 1 ) RETURN END SUBROUTINE CALCISOPGAMMAS END MODULE AEROSOL_CHEMISTRY ================================================ FILE: CCTM/src/aero/aero6/AERO_BUDGET.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! !----------------------------------------------------------------------- Module AERO_BUDGET ! Collects Aerosol Microphysical Process Rates ! !----------------------------------------------------------------------- Implicit None SAVE ! These Arrays are sorted in the same manner as CGRID so they may ! be directly applied in modules like Process Analysis and ISAM REAL, ALLOCATABLE :: AERO_COAG ( :,:,:,: ) ! Change in Species due to Coagulation REAL, ALLOCATABLE :: AERO_COND ( :,:,:,: ) ! Change in Species due to Condensation REAL, ALLOCATABLE :: AERO_NPF ( :,:,:,: ) ! Change in Species due to NPF REAL, ALLOCATABLE :: AERO_GROWTH( :,:,:,: ) ! Change in species due to aerosol ! renaming (mode merging) ! Contains C----------------------------------------------------------------------- End Module AERO_BUDGET ================================================ FILE: CCTM/src/aero/aero6/AERO_DATA.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: Module aero_data C Defines aerosol species arrays and the parameters required in aerosol C processing. C Contains: C Subroutine map_aero C Subroutine extract_aero C Subroutine update_aero C Function findAero C Revision History: C First version was coded in April 2010 by Steve Howard with C Prakash Bhave, Jeff Young, and Sergey Napelenok. C HS = Heather Simon; GS = Golam Sarwar; SH = Steve Howard; SR = Shawn Roselle; C JY = Jeff Young; HOTP = Havala Pye; KF = Kathleen Fahey, CGN = Chris Nolte; C PL = Peng Liu; BM = Ben Murphy; BH = Bill Hutzell, NS = Nash Skipper C HS 01/24/11 Updated to initial AERO6; PMOTHR -> 9 species C GS 03/02/11 Revised parameters for Mg, K, and Ca C SH 03/10/11 Inserted functionality of PMEM_DEFN C -new subroutine map_pmemis C HS 03/10/11 Made PNCOM a required species C SR 03/25/11 Replaced I/O API include files with UTILIO_DEFN C SH 04/04/11 Added sea-salt speciation factors C GS 04/09/11 Updated sea-salt speciation; replaced ANAK with ASEACAT; C made MG, K, CA, SEACAT required species; C JY 04/21/11 Added optional log messages (verbose_aero) C JY 05/02/11 Added Reshape to aerospc_ssf initialization for pgf90 compiler C BH 08/31/11 Adapted for mercury and HAP mechanisms C JY 06/08/12 remove full character blank padding put in for GNU Fortran (GCC) 4.1.2 C HOTP 01/16/13 Removed isoprene acid enhanced aerosol and added new isoprene aerosol C HOTP 01/18/13 Added information for particle phase reaction of isoprene products C based on Eddingsaas et al. 2010 C KF 09/17/14 Changed emitted modal PM mass fractions and geometric mean diameter and C geometric standard deviation of emitted particles according to C Elleman and Covert (2010) C HOTP 09/27/14 Added alkane and PAH SOA species. PAH SOA densities follow Chan et al. C JY 08/24/15 Changed visual index factors C HOTP 2/17/2016 Updated SOA densities. BTX follows Ng et al. 2007. C 1.4 g/cm3 used by default. C JY 02/17/16 Created named constants for speciation and other factors for AERO_EMIS, C DUST_EMIS, aero_subs:VOLINORG, and aqchem C CGN 04/14/16 Changed AMGJ speciation factor from 0.0 to 0.019 following Upadhyay et al. C HOTP,BM 5/20/16 Updated to work with all ae6 mechs (6, 6i, 6mp) C PL 05/15/16 Update visual_idx, and add visual_idx_large in spcs_type, due to ammonium sulfate, nitrate and OM C are split into small and large modes. C visual_idx for ammonium is zero, because it will be treated together with sulfate and nitrate C see Pitchford et al., Journal of the Air & Waste Management Association (57)(2007), pp 1326 C PL 05/15/16 Add "om" in spcs_type, to flag organic aerosols, which C will be used to calculate total mass of organic aerosls for estimating C aerosol extinction efficiency C HOTP 7/17/2018 Added kappaorg hygroscopicity parameter (Petters and C Kreidenweis 2007 ACP) for organic aerosols. kappa should be zero for C species that are not organic. Water uptake onto inorganics calculated using ISORROPIA. C POC+NCOM kappa is set to zero and calculated in SOA_DEFN if those species are in use. C Current kappaorg values are based on species specific C OM/OC ratios (Pye et al. 2017 ACP). C GS 08/17/81 Added bromide in seasalt C SR 12/14/2018 Added sulfur tracking option C SLN 12/30/2019 ddm-3d implementaiton for v 5.3.1 C 10 Mar 2021 G. Sarwar: Changed CB6R3M_AE7_KMTBR to CB6R3M_AE7_AQ C 10 June 2021 G. Sarwar: Added CB6R5M_AE7_AQ C 23 Jun 21 G. Sarwar: Replaced CB6R3M with CB6R5M C NS 11/28/2023 CRACMM2 updates C References: C 1. Eddingsaas, N. C., Vandervelde, D. G., Wennberg, P. O., "Kinetics and C products of the acid-catalyzed ring-opening of atmospherically relevant C butyl epoxy alcohols," J. Phys. Chem. A., 2010, 114, 8106-8113. C 2. Chan, et al., "Secondary organic aerosol formation from photooxidation C of naphthalene and alkylnaphthalenes: implications for oxidation of C intermediate volatility organic compounds (IVOCs)", Atmos. Chem. Phys., C 2009, 9, 3049-3060. C 3. Ng, N. L., Kroll, J. H., Chan, A. W. H., Chhabra, P. S., Flagan, R. C C., and Seinfeld, J. H.: Secondary organic aerosol formation from C m-xylene, toluene, and benzene, Atmos. Chem. Phys., 7, 3909-3922, C doi:10.5194/acp-7-3909-2007, 2007. C 4. Elleman and Covert, "Aerosol size distribution modeling with the Community Multiscale C Air Quality modeling system in the Pacific Northwest: 3. Size distribution of C particles emitted into a mesoscale model", JGR, 115, D03204, 2010 C 5. Simon, et al., "The development and uses of EPA's SPECIATE database", C Atmos. Poll. Res., 1, 196-206, 2010 C 6. Upadhyay, et al., "Size-Differentiated Chemical Composition of Re-Suspended Soil C Dust from the Desert Southwest United States," Aero. and AQ Res., 2015, 387-398 C JY: From Christian Hogrefe... C Based on Malm and Hand (Atmos. Env. 41, 3407-3427, 2007), the revised C IMPROVE extinction calculation includes coarse particles, sea salt, and C a relative humidity correction for sea salt. Also, the factor for "LAC" C (light absorbing carbon, i.e. AECI and AECJ) should be 10, not 0 since C both scattering and absorption contribute to total extinction. C ASEACAT includes all sea-salt cations in coarse mode (Na, Ca, K, and Mg) C Also note... C In the Fortran user-derived spcs_type, below, visual_idx is an optimal dry mass C extinction efficiency [m^2/g], see White, Atmos.Env., 294(10)(1990), pp 2673-1672 C and Malm, et al., JGR, 99(D1)(1994), pp 1347-1370 C---------------------------------------------------------------------- USE RUNTIME_VARS Use utilio_defn #ifdef sens USE DDM3D_DEFN, ONLY : NP, NPMAX Use aero_ddm3d, ONLY : s_aerospc_conc, ae_ddm3d_ready, & init_aero_ddm3d #endif Implicit None C Define Logical values as T and F for the aerospc table Logical, Parameter, Private :: T = .true. Logical, Parameter, Private :: F = .false. C Number of aerosol species and modes Integer, Parameter :: n_aerolist = 139 ! number of aero species Integer, Parameter :: n_mode = 3 ! number of modes: Integer, Parameter :: iait = 1 ! 1 = Aitken Integer, Parameter :: iacc = 2 ! 2 = accumulation Integer, Parameter :: icor = 3 ! 3 = coarse Logical, Parameter :: reqd_modes( n_mode ) = (/ T,T,T /) Character(1), Parameter :: modesuff( n_mode ) = (/ 'I','J','K' /) Integer, Save :: n_aerospc ! number of aero species C Default minimum concentration Real, Parameter :: conmin = 1.0E-23 ! [ ug m-3 ] Real(8), Parameter :: conminD = 1.0D-23 ! [ ug m-3 ] Real, Parameter :: evapmin = 1.0E-20 ! [ ug m-3 ] Real(8), Parameter :: evapminD= 1.0D-20 ! [ ug m-3 ] Real, Parameter :: cm_set( n_mode ) = (/conmin, conmin, conmin/) Real, Parameter :: cm_so4( n_mode ) = (/conmin, conmin, conmin/) Real, Parameter :: cm_cor( n_mode ) = (/conmin, conmin, conmin/) Real, Parameter :: def_diam( n_mode ) = (/ 15.0E-9, 80.0E-9, 600.0E-9 /) ! default background mean diameter for each mode Real, Parameter :: min_dg_dry( n_mode ) = (/ 1.0E-9, 30.0E-9, 120.0E-9 /) Real, Parameter :: max_dg_dry( n_mode ) = (/ 80.0E-9, 500.0E-9, 100.0E-6 /) Real, Parameter :: min_dg_wet( n_mode ) = (/ 1.0E-9, 30.0E-9, 120.0E-9 /) Real, Parameter :: max_dg_wet( n_mode ) = (/ 160.0E-9,1500.0E-9,300.0E-6 /) Real, Parameter :: def_sigma_g( n_mode ) = (/ 1.70, 2.0, 2.2 /) ! default background sigma-g for each mode Real, Parameter :: min_sigma_g = 1.05 Real, Parameter :: max_sigma_g = 2.5001 Real, Save :: def_l2sg( n_mode ), max_l2sg, min_l2sg C If FIXED_sg = T, atkn & accum std. dev. are not changed by GETPAR C If FIXED_sg = F, the second moment will be adjusted if the standard C deviation (sigma_g) is outside of the bounds specified C by min_sigma_g and max_sigma_g. LOGICAL, PARAMETER :: FIXED_sg = .FALSE. C Flag to obtain coagulation coefficients C by analytical approximation (True) or by Gauss-Hermite quadrature (False) Logical, Parameter :: fastcoag_flag = .True. Integer, Parameter :: coag_moments = 2 ! Number of moments to consider ! for coagulation ! 2 = number and volume ! 3 = number, volume, and surface area C------------------------------------------------------------------------------------------------------- Type spcs_type Character( 16 ) :: name( n_mode ) ! mode-dependent names of aerosol species Character( 16 ) :: bulkname ! mode-independent names of aerosol species Logical :: lait ! Available in Aitken Mode Logical :: lacc ! Available in Accumulation Mode Logical :: lcor ! Available in Coarse Mode Real :: min_conc( n_mode ) ! minimum concentration values for each mode Real :: density ! density [ kg m-3 ] Character( 16 ) :: gasname ! Gas species in equilibrium with this aerosol component Character( 16 ) :: ctrname ! Rxn Counter Species used to calculate production of ! this component if irreversible partitioning is assumed Real :: ctr_yield ! Yield of Reaction Counter when forming condensed mass Character( 3 ) :: voltype ! Type of production to be implemented for this species. ! Options are: REV = Reversible, IRV = Irreversible, ! NVL = Nonvolatile Logical :: no_M2Wet ! flag to exclude from 2nd moment during transport Logical :: tracer ! tracer flag; does have not mass Integer :: charge ! electroneutrality charge Real :: visual_idx ! visual index factor [ m2 g-1 ] Real :: visual_idx_large ! visual index factor [ m2 g-1 ] for large mode, if not applicable, same value as visual_idx Logical :: om ! flag for organic aerosols Character( 16 ) :: optic_surr ! optical surrogate name Real :: kappaorg ! hygroscopicity parameter for organic aerosol (excluding POC+NCOM which must be calculated) End Type spcs_type Type( spcs_type ), Allocatable, Save :: aerospc ( : ) ! Master List of Aerosol Species and Properties Type spcs_list_type Character( 16 ) :: bulkname ! mode-independent names of aerosol species Logical :: lait ! Available in Aitken Mode Logical :: lacc ! Available in Accumulation Mode Logical :: lcor ! Available in Coarse Mode Real :: min_conc( n_mode ) ! minimum concentration values for each mode Real :: density ! density [ kg m-3 ] Character( 16 ) :: gasname ! Gas species in equilibrium with this aerosol component Character( 16 ) :: ctrname ! Rxn Counter Species used to calculate production of ! this component if irreversible partitioning is assumed Real :: ctr_yield ! Yield of Reaction Counter when forming condensed mass Character( 3 ) :: voltype ! Type of production to be implemented for this species. ! Options are: REV = Reversible, IRV = Irreversible, ! NVL = Nonvolatile Logical :: no_M2Wet ! flag to exclude from 2nd moment during transport Logical :: tracer ! tracer flag; does have not mass Integer :: charge ! electroneutrality charge Real :: visual_idx ! visual index factor [ m2 g-1 ] Real :: visual_idx_large ! visual index factor [ m2 g-1 ] for large mode, if not applicable, same value as visual_idx Logical :: om ! flag for organic aerosols Character( 16 ) :: optic_surr ! optical surrogate name Real :: kappaorg ! hygroscopicity parameter for organic aerosol (excluding POC+NCOM which must be calculated) End Type spcs_list_type Type( spcs_list_type ), Parameter :: aerolist( n_aerolist ) = (/ C Visidx_Large C no_M2Wet Tracer | C | | Charge | OM C Name T A C Min_Con Density Gas-Name CTR-Name Yield Vol | | | Visidx | | OptSurr korg C ---------- - - - ------- ------- ---------- --------- ----- ----- + + + ------ --- + -------- ----- & spcs_list_type('ASO4 ',T,T,T, cm_so4, 1800.0, 'SULF ','SULRXN ',1.0 ,'IRV',F,F, -2, 2.2, 4.8,F, 'SOLUTE', 0.00), ! Sulfate & spcs_list_type('ANO3 ',T,T,T, cm_set, 1800.0, 'HNO3 ',' ',0.0 ,'REV',F,F, -1, 2.4, 5.1,F, 'SOLUTE', 0.00), ! Nitrate & spcs_list_type('ACL ',T,T,T, cm_set, 2200.0, 'HCL ',' ',0.0 ,'REV',F,F, -1, 1.7, 1.7,F, 'SOLUTE', 0.00), ! Chloride & spcs_list_type('ANH4 ',T,T,T, cm_set, 1800.0, 'NH3 ',' ',0.0 ,'REV',F,F, 1, 0.0, 0.0,F, 'SOLUTE', 0.00), ! Ammonium & spcs_list_type('ANA ',T,T,F, cm_set, 2200.0, ' ',' ',0.0 ,'NVL',F,F, 1, 1.7, 1.7,F, 'SOLUTE', 0.00), ! Sodium & spcs_list_type('AMG ',F,T,F, cm_set, 2200.0, ' ',' ',0.0 ,'NVL',F,F, 2, 1.0, 1.0,F, 'DUST ', 0.00), ! Magnesium & spcs_list_type('AK ',F,T,F, cm_set, 2200.0, ' ',' ',0.0 ,'NVL',F,F, 1, 1.0, 1.0,F, 'DUST ', 0.00), ! Potassium & spcs_list_type('ACA ',F,T,F, cm_set, 2200.0, ' ',' ',0.0 ,'NVL',F,F, 2, 1.0, 1.0,F, 'DUST ', 0.00), ! Calcium & spcs_list_type('APOC ',T,T,F, cm_set, 1400.0, ' ',' ',0.0 ,'NVL',F,F, 0, 2.8, 6.1,T, 'DUST ', 0.00), ! POA Carbon & spcs_list_type('APNCOM ',T,T,F, cm_set, 1400.0, ' ',' ',0.0 ,'NVL',F,F, 0, 2.8, 6.1,T, 'DUST ', 0.00), ! POA Non-Carbon #10 & spcs_list_type('AEC ',T,T,F, cm_set, 2200.0, ' ',' ',0.0 ,'NVL',F,F, 0, 10.0,10.0,F, 'SOOT ', 0.00), ! Elemental (Black) Carbon & spcs_list_type('AFE ',F,T,F, cm_set, 2200.0, ' ',' ',0.0 ,'NVL',F,F, 0, 1.0, 1.0,F, 'DUST ', 0.00), ! Iron & spcs_list_type('AOTHR ',T,T,F, cm_set, 2200.0, ' ',' ',0.0 ,'NVL',F,F, 0, 1.0, 1.0,F, 'DUST ', 0.00), ! Other & spcs_list_type('AAL ',F,T,F, cm_set, 2200.0, ' ',' ',0.0 ,'NVL',F,F, 0, 1.0, 1.0,F, 'DUST ', 0.00), ! Aluminum & spcs_list_type('ASI ',F,T,F, cm_set, 2200.0, ' ',' ',0.0 ,'NVL',F,F, 0, 1.0, 1.0,F, 'DUST ', 0.00), ! Silicon & spcs_list_type('ATI ',F,T,F, cm_set, 2200.0, ' ',' ',0.0 ,'NVL',F,F, 0, 1.0, 1.0,F, 'DUST ', 0.00), ! Titanium & spcs_list_type('AMN ',F,T,F, cm_set, 2200.0, ' ',' ',0.0 ,'NVL',F,F, 0, 1.0, 1.0,F, 'DUST ', 0.00), ! Manganese & spcs_list_type('AH2O ',T,T,T, cm_set, 1000.0, ' ',' ',0.0 ,'H2O',T,F, 0, 0.0, 0.0,F, 'WATER ', 0.00), ! Water & spcs_list_type('AORGH2O ',F,T,F, cm_set, 1000.0, ' ',' ',0.0 ,'H2O',T,F, 0, 0.0, 0.0,F, 'WATER ', 0.00), ! Organic Water & spcs_list_type('AH3OP ',T,T,T, cm_set, 1000.0, ' ',' ',0.0 ,'H2O',T,T, 0, 0.0, 0.0,F, 'WATER ', 0.00), ! Hydronium #20 & spcs_list_type('AALK1 ',F,T,F, cm_set, 1400.0, 'SVALK1 ','ALKRXN ',.0334,'REV',F,F, 0, 2.8, 6.1,T, 'DUST ', 0.07), ! Alkane SOA 1 & spcs_list_type('AALK2 ',F,T,F, cm_set, 1400.0, 'SVALK2 ','ALKRXN ',.2164,'REV',F,F, 0, 2.8, 6.1,T, 'DUST ', 0.06), ! Alkane SOA 2 & spcs_list_type('AXYL1 ',F,T,F, cm_set, 1480.0, 'SVXYL1 ','XYLNRXN',.0310,'REV',F,F, 0, 2.8, 6.1,T, 'DUST ', 0.17), ! Xylene SOA 1 & spcs_list_type('AXYL2 ',F,T,F, cm_set, 1480.0, 'SVXYL2 ','XYLNRXN',.0900,'REV',F,F, 0, 2.8, 6.1,T, 'DUST ', 0.11), ! Xylene SOA 2 & spcs_list_type('AXYL3 ',F,T,F, cm_set, 1330.0, ' ','XYLHRXN',.3600,'IRV',F,F, 0, 2.8, 6.1,T, 'DUST ', 0.15), ! Xylene SOA 3 & spcs_list_type('ATOL1 ',F,T,F, cm_set, 1240.0, 'SVTOL1 ','TOLNRXN',.0580,'REV',F,F, 0, 2.8, 6.1,T, 'DUST ', 0.15), ! Toluene SOA 1 & spcs_list_type('ATOL2 ',F,T,F, cm_set, 1240.0, 'SVTOL2 ','TOLNRXN',.1130,'REV',F,F, 0, 2.8, 6.1,T, 'DUST ', 0.10), ! Toluene SOA 2 & spcs_list_type('ATOL3 ',F,T,F, cm_set, 1450.0, ' ','TOLHRXN',.3000,'IRV',F,F, 0, 2.8, 6.1,T, 'DUST ', 0.20), ! Toluene SOA 3 & spcs_list_type('ABNZ1 ',F,T,F, cm_set, 1400.0, 'SVBNZ1 ','BNZNRXN',.0720,'REV',F,F, 0, 2.8, 6.1,T, 'DUST ', 0.19), ! Benzene SOA 1 & spcs_list_type('ABNZ2 ',F,T,F, cm_set, 1400.0, 'SVBNZ2 ','BNZNRXN',.8880,'REV',F,F, 0, 2.8, 6.1,T, 'DUST ', 0.15), ! Benzene SOA 2 #30 & spcs_list_type('ABNZ3 ',F,T,F, cm_set, 1400.0, ' ','BNZHRXN',.3700,'IRV',F,F, 0, 2.8, 6.1,T, 'DUST ', 0.23), ! Benzene SOA 3 & spcs_list_type('ATRP1 ',F,T,F, cm_set, 1400.0, 'SVTRP1 ','TRPRXN ',.1393,'REV',F,F, 0, 2.8, 6.1,T, 'DUST ', 0.10), ! Terpene SOA 1 & spcs_list_type('ATRP2 ',F,T,F, cm_set, 1400.0, 'SVTRP2 ','TRPRXN ',.4542,'REV',F,F, 0, 2.8, 6.1,T, 'DUST ', 0.10), ! Terpene SOA 2 & spcs_list_type('AISO1 ',F,T,F, cm_set, 1400.0, 'SVISO1 ','ISOPRXN',.2320,'REV',F,F, 0, 2.8, 6.1,T, 'DUST ', 0.14), ! Isoprene SOA 1 & spcs_list_type('AISO2 ',F,T,F, cm_set, 1400.0, 'SVISO2 ','ISOPRXN',.0288,'REV',F,F, 0, 2.8, 6.1,T, 'DUST ', 0.15), ! Isoprene SOA 2 & spcs_list_type('AISO3 ',F,T,F, cm_set, 1400.0, ' ',' ',.0000,'NVL',F,F, 0, 2.8, 6.1,T, 'DUST ', 0.21), ! Isoprene SOA 3 & spcs_list_type('ASQT ',F,T,F, cm_set, 1400.0, 'SVSQT ','SESQRXN',1.537,'REV',F,F, 0, 2.8, 6.1,T, 'DUST ', 0.07), ! Sesquiterpene SOA & spcs_list_type('AHOM ',F,T,F, cm_set, 1400.0, 'HOM ',' ',0.0 ,'REV',F,F, 0, 2.8, 6.1,T, 'DUST ', 0.13), ! HOM SOA & spcs_list_type('AELHOM ',F,T,F, cm_set, 1400.0, 'ELHOM ',' ',0.0 ,'REV',F,F, 0, 2.8, 6.1,T, 'DUST ', 0.09), ! ELHOM SOA & spcs_list_type('APAH1 ',F,T,F, cm_set, 1480.0, 'SVPAH1 ','PAHNRXN',0.210,'REV',F,F, 0, 2.8, 6.1,T, 'DUST ', 0.08), ! PAH SOA 1 & spcs_list_type('APAH2 ',F,T,F, cm_set, 1480.0, 'SVPAH2 ','PAHNRXN',1.070,'REV',F,F, 0, 2.8, 6.1,T, 'DUST ', 0.06), ! PAH SOA 2 & spcs_list_type('APAH3 ',F,T,F, cm_set, 1550.0, ' ','PAHHRXN',0.730,'IRV',F,F, 0, 2.8, 6.1,T, 'DUST ', 0.09), ! PAH SOA 3 #40 & spcs_list_type('AOLGA ',F,T,F, cm_set, 1400.0, ' ',' ',0.0 ,'NVL',F,F, 0, 2.8, 6.1,T, 'DUST ', 0.18), ! Anth. Oligomer SOA & spcs_list_type('AOLGB ',F,T,F, cm_set, 1400.0, ' ',' ',0.0 ,'NVL',F,F, 0, 2.8, 6.1,T, 'DUST ', 0.13), ! Biogenic Oligomer SOA & spcs_list_type('AORGC ',F,T,F, cm_set, 1400.0, ' ',' ',0.0 ,'NVL',F,F, 0, 2.8, 6.1,T, 'DUST ', 0.12), ! Cloud-Processed SOA & spcs_list_type('ASOIL ',F,F,T, cm_set, 2600.0, ' ',' ',0.0 ,'NVL',F,F, 0, 0.6, 0.6,F, 'DUST ', 0.00), ! Soil & spcs_list_type('ACORS ',F,F,T, cm_cor, 2200.0, ' ',' ',0.0 ,'NVL',F,F, 0, 0.6, 0.6,F, 'DUST ', 0.00), ! Coarse PM & spcs_list_type('ASEACAT ',F,F,T, cm_cor, 2200.0, ' ',' ',0.0 ,'NVL',F,F, 1, 1.7, 1.7,F, 'SOLUTE', 0.00), ! SeaSpray Cations ! Associated with ae6i & spcs_list_type('AMTNO3 ',F,T,F, cm_set, 1400.0, 'MTNO3 ',' ',0.0 ,'REV',F,F, 0, 2.8, 6.1,T, 'DUST ', 0.11), ! Monoterpene Nitrate SOA & spcs_list_type('AISOPNN ',F,T,F, cm_set, 1400.0, 'ISOPNN ',' ',0.0 ,'REV',F,F, 0, 2.8, 6.1,T, 'DUST ', 0.32), ! Isoprene Nitrate SOA & spcs_list_type('AMTHYD ',F,T,F, cm_set, 1400.0, ' ',' ',0.0 ,'NVL',F,F, 0, 2.8, 6.1,T, 'DUST ', 0.07), ! & spcs_list_type('AIETET ',F,T,F, cm_set, 1400.0, ' ',' ',0.0 ,'NVL',F,F, 0, 2.8, 6.1,T, 'DUST ', 0.15), ! Iso. Tetrol SOA #50 & spcs_list_type('AIEOS ',F,T,F, cm_set, 1400.0, ' ',' ',0.0 ,'NVL',F,F, 0, 2.8, 6.1,T, 'DUST ', 0.30), ! Iso. Organosulfate SOA & spcs_list_type('ADIM ',F,T,F, cm_set, 1400.0, ' ',' ',0.0 ,'NVL',F,F, 0, 2.8, 6.1,T, 'DUST ', 0.13), ! & spcs_list_type('AIMGA ',F,T,F, cm_set, 1400.0, ' ',' ',0.0 ,'NVL',F,F, 0, 2.8, 6.1,T, 'DUST ', 0.18), ! & spcs_list_type('AIMOS ',F,T,F, cm_set, 1400.0, ' ',' ',0.0 ,'NVL',F,F, 0, 2.8, 6.1,T, 'DUST ', 0.36), ! ! Associated with cracmm1 & spcs_list_type('AISO3NOS',F,T,F,cm_set, 1400.0, ' ',' ',0.0 ,'NVL',F,F, 0, 2.8, 6.1,T, 'DUST ', 0.15), ! Iso. nonsulfated SOA & spcs_list_type('AISO3OS ',F,T,F,cm_set, 1400.0, ' ',' ',0.0 ,'NVL',F,F, 0, 2.8, 6.1,T, 'DUST ', 0.30), ! Iso. Organosulfate SOA ! Updated monoterpene SOA following Saha and Grieshop ES&T 2016 & spcs_list_type('AMT1 ',F,T,F, cm_set, 1400.0, 'SVMT1 ','TRPRXN ',0.040,'REV',F,F, 0, 2.8, 6.1,T, 'DUST ', 0.08), ! MT SOA Lowest Volatility & spcs_list_type('AMT2 ',F,T,F, cm_set, 1400.0, 'SVMT2 ','TRPRXN ',0.032,'REV',F,F, 0, 2.8, 6.1,T, 'DUST ', 0.08), ! & spcs_list_type('AMT3 ',F,T,F, cm_set, 1400.0, 'SVMT3 ','TRPRXN ',0.032,'REV',F,F, 0, 2.8, 6.1,T, 'DUST ', 0.09), ! & spcs_list_type('AMT4 ',F,T,F, cm_set, 1400.0, 'SVMT4 ','TRPRXN ',0.103,'REV',F,F, 0, 2.8, 6.1,T, 'DUST ', 0.07), ! & spcs_list_type('AMT5 ',F,T,F, cm_set, 1400.0, 'SVMT5 ','TRPRXN ',0.143,'REV',F,F, 0, 2.8, 6.1,T, 'DUST ', 0.07), ! & spcs_list_type('AMT6 ',F,T,F, cm_set, 1400.0, 'SVMT6 ','TRPRXN ',0.285,'REV',F,F, 0, 2.8, 6.1,T, 'DUST ', 0.05), ! #60 & spcs_list_type('AMT7 ',F,T,F, cm_set, 1400.0, 'SVMT7 ','TRPRXN ',0.160,'REV',F,F, 0, 2.8, 6.1,T, 'DUST ', 0.06), ! MT SOA Highest Volatility ! ae6i and cb6 & spcs_list_type('AGLY ',F,T,F, cm_set, 1400.0, ' ',' ',0.0 ,'NVL',F,F, 0, 2.8, 6.1,T, 'DUST ', 0.13), ! Glyoxal SOA ! Semivolatile POA & spcs_list_type('ALVPO1 ',T,T,F, cm_set, 1400.0, 'VLVPO1 ',' ',0.0 ,'REV',F,F, 0, 4.0, 6.1,T, 'DUST ', 0.05), ! LV-POA & spcs_list_type('ASVPO1 ',T,T,F, cm_set, 1400.0, 'VSVPO1 ',' ',0.0 ,'REV',F,F, 0, 4.0, 6.1,T, 'DUST ', 0.05), ! SV-POA 1 & spcs_list_type('ASVPO2 ',T,T,F, cm_set, 1400.0, 'VSVPO2 ',' ',0.0 ,'REV',F,F, 0, 4.0, 6.1,T, 'DUST ', 0.04), ! SV-POA 2 & spcs_list_type('ASVPO3 ',F,T,F, cm_set, 1400.0, 'VSVPO3 ',' ',0.0 ,'REV',F,F, 0, 4.0, 6.1,T, 'DUST ', 0.03), ! SV-POA 3 & spcs_list_type('AIVPO1 ',F,T,F, cm_set, 1400.0, 'VIVPO1 ',' ',0.0 ,'REV',F,F, 0, 4.0, 6.1,T, 'DUST ', 0.03), ! IV-POA & spcs_list_type('ALVOO1 ',T,T,F, cm_set, 1400.0, 'VLVOO1 ',' ',0.0 ,'REV',F,F, 0, 4.0, 6.1,T, 'DUST ', 0.15), ! LV-SOA 1 & spcs_list_type('ALVOO2 ',T,T,F, cm_set, 1400.0, 'VLVOO2 ',' ',0.0 ,'REV',F,F, 0, 4.0, 6.1,T, 'DUST ', 0.13), ! LV-SOA 2 & spcs_list_type('ASVOO1 ',T,T,F, cm_set, 1400.0, 'VSVOO1 ',' ',0.0 ,'REV',F,F, 0, 4.0, 6.1,T, 'DUST ', 0.11), ! SV-SOA 1 #70 & spcs_list_type('ASVOO2 ',T,T,F, cm_set, 1400.0, 'VSVOO2 ',' ',0.0 ,'REV',F,F, 0, 4.0, 6.1,T, 'DUST ', 0.09), ! SV-SOA 2 & spcs_list_type('ASVOO3 ',F,T,F, cm_set, 1400.0, 'VSVOO3 ',' ',0.0 ,'REV',F,F, 0, 4.0, 6.1,T, 'DUST ', 0.08), ! SV-SOA 3 & spcs_list_type('APCSO ',F,T,F, cm_set, 1400.0, 'LVPCSOG','PCSOARXN',1.0 ,'REV',F,F, 0, 4.0, 6.1,T, 'DUST ', 0.12), ! pcSOA ! Lumped anthropogenic SOA (introduced aero7, M. Qin, 8/2018) & spcs_list_type('AAVB1 ',F,T,F, cm_set, 1400.0, 'SVAVB1 ',' ',0.0 ,'REV',F,F, 0, 2.8, 6.1,T, 'DUST ', 0.20), & spcs_list_type('AAVB2 ',F,T,F, cm_set, 1400.0, 'SVAVB2 ',' ',0.0 ,'REV',F,F, 0, 2.8, 6.1,T, 'DUST ', 0.15), & spcs_list_type('AAVB3 ',F,T,F, cm_set, 1400.0, 'SVAVB3 ',' ',0.0 ,'REV',F,F, 0, 2.8, 6.1,T, 'DUST ', 0.14), & spcs_list_type('AAVB4 ',F,T,F, cm_set, 1400.0, 'SVAVB4 ',' ',0.0 ,'REV',F,F, 0, 2.8, 6.1,T, 'DUST ', 0.12), ! CRACMM SVOCs and LVOCs & spcs_list_type('AOP3 ',F,T,F,cm_set,1400.0,'OP3 ',' ',0.0 ,'REV',F,F, 0, 4.0, 6.1,T, 'DUST ', 0.05), ! & spcs_list_type('AROCN2ALK ',T,T,F,cm_set,1400.0,'VROCN2ALK',' ',0.0 ,'REV',F,F, 0, 4.0, 6.1,T, 'DUST ', 0.05), ! & spcs_list_type('AROCN1ALK ',T,T,F,cm_set,1400.0,'VROCN1ALK',' ',0.0 ,'REV',F,F, 0, 4.0, 6.1,T, 'DUST ', 0.05), ! & spcs_list_type('AROCP0ALK ',T,T,F,cm_set,1400.0,'VROCP0ALK',' ',0.0 ,'REV',F,F, 0, 4.0, 6.1,T, 'DUST ', 0.04), ! & spcs_list_type('AROCP1ALK ',T,T,F,cm_set,1400.0,'VROCP1ALK',' ',0.0 ,'REV',F,F, 0, 4.0, 6.1,T, 'DUST ', 0.03), ! & spcs_list_type('AROCP2ALK ',F,T,F,cm_set,1400.0,'VROCP2ALK',' ',0.0 ,'REV',F,F, 0, 4.0, 6.1,T, 'DUST ', 0.03), ! & spcs_list_type('AROCP3ALK ',F,T,F,cm_set,1400.0,'VROCP3ALK',' ',0.0 ,'REV',F,F, 0, 4.0, 6.1,T, 'DUST ', 0.03), ! & spcs_list_type('AROCN2OXY2',T,T,F,cm_set,1400.0,'VROCN2OXY2',' ',0.0 ,'REV',F,F, 0, 4.0, 6.1,T, 'DUST ', 0.15), ! & spcs_list_type('AROCN2OXY4',T,T,F,cm_set,1400.0,'VROCN2OXY4',' ',0.0 ,'REV',F,F, 0, 4.0, 6.1,T, 'DUST ', 0.15), ! & spcs_list_type('AROCN2OXY8',T,T,F,cm_set,1400.0,'VROCN2OXY8',' ',0.0 ,'REV',F,F, 0, 4.0, 6.1,T, 'DUST ', 0.15), ! & spcs_list_type('AROCN1OXY1',T,T,F,cm_set,1400.0,'VROCN1OXY1',' ',0.0 ,'REV',F,F, 0, 4.0, 6.1,T, 'DUST ', 0.13), ! & spcs_list_type('AROCN1OXY3',T,T,F,cm_set,1400.0,'VROCN1OXY3',' ',0.0 ,'REV',F,F, 0, 4.0, 6.1,T, 'DUST ', 0.13), ! & spcs_list_type('AROCN1OXY6',T,T,F,cm_set,1400.0,'VROCN1OXY6',' ',0.0 ,'REV',F,F, 0, 4.0, 6.1,T, 'DUST ', 0.13), ! & spcs_list_type('AROCP0OXY2',T,T,F,cm_set,1400.0,'VROCP0OXY2',' ',0.0 ,'REV',F,F, 0, 4.0, 6.1,T, 'DUST ', 0.11), ! & spcs_list_type('AROCP0OXY4',T,T,F,cm_set,1400.0,'VROCP0OXY4',' ',0.0 ,'REV',F,F, 0, 4.0, 6.1,T, 'DUST ', 0.11), ! & spcs_list_type('AROCP1OXY1',T,T,F,cm_set,1400.0,'VROCP1OXY1',' ',0.0 ,'REV',F,F, 0, 4.0, 6.1,T, 'DUST ', 0.09), ! & spcs_list_type('AROCP1OXY3',T,T,F,cm_set,1400.0,'VROCP1OXY3',' ',0.0 ,'REV',F,F, 0, 4.0, 6.1,T, 'DUST ', 0.09), ! & spcs_list_type('AROCP2OXY2',F,T,F,cm_set,1400.0,'VROCP2OXY2',' ',0.0 ,'REV',F,F, 0, 4.0, 6.1,T, 'DUST ', 0.08), ! & spcs_list_type('AROCP3OXY2',F,T,F,cm_set,1400.0,'VROCP3OXY2',' ',0.0 ,'REV',F,F, 0, 4.0, 6.1,T, 'DUST ', 0.08), ! ! The following species are associated with the Multi-Pollutant code & spcs_list_type('ANI ',T,T,T, cm_set, 2200.0, ' ',' ',0.0 ,'NVL',F,T, 0, 0.0, 0.0,F, 'DUST ', 0.00), ! Nickel & spcs_list_type('ACR_VI ',T,T,T, cm_set, 2200.0, ' ',' ',0.0 ,'NVL',F,T, 0, 0.0, 0.0,F, 'DUST ', 0.00), ! Chromium 6 & spcs_list_type('ACR_III ',T,T,T, cm_set, 2200.0, ' ',' ',0.0 ,'NVL',F,T, 0, 0.0, 0.0,F, 'DUST ', 0.00), ! Chromium 3 #80 & spcs_list_type('ABE ',T,T,T, cm_set, 2200.0, ' ',' ',0.0 ,'NVL',F,T, 0, 0.0, 0.0,F, 'DUST ', 0.00), ! Beryllium & spcs_list_type('APB ',T,T,T, cm_set, 2200.0, ' ',' ',0.0 ,'NVL',F,T, 0, 0.0, 0.0,F, 'DUST ', 0.00), ! Lead & spcs_list_type('ADE_OTHR',T,T,F, cm_set, 2200.0, ' ',' ',0.0 ,'NVL',F,T, 0, 0.0, 0.0,F, 'DUST ', 0.00), ! Diesel Fine PM & spcs_list_type('ADE_EC ',T,T,F, cm_set, 2200.0, ' ',' ',0.0 ,'NVL',F,T, 0, 0.0, 0.0,F, 'DUST ', 0.00), ! Diesel Black Carbon & spcs_list_type('ADE_OC ',T,T,F, cm_set, 2000.0, ' ',' ',0.0 ,'NVL',F,T, 0, 0.0, 0.0,F, 'DUST ', 0.00), ! Diesel Organic Carbon & spcs_list_type('ADE_NO3 ',F,T,F, cm_set, 1800.0, ' ',' ',0.0 ,'NVL',F,T, 0, 0.0, 0.0,F, 'DUST ', 0.00), ! Diesel Nitrate & spcs_list_type('ADE_SO4 ',F,T,F, cm_set, 1800.0, ' ',' ',0.0 ,'NVL',F,T, 0, 0.0, 0.0,F, 'DUST ', 0.00), ! Diesel Sulfate & spcs_list_type('ADE_CORS',F,F,T, cm_set, 2200.0, ' ',' ',0.0 ,'NVL',F,T, 0, 0.0, 0.0,F, 'DUST ', 0.00), ! Diesel Coarse PM & spcs_list_type('ACD ',T,T,T, cm_set, 2200.0, ' ',' ',0.0 ,'NVL',F,T, 0, 0.0, 0.0,F, 'DUST ', 0.00), ! Cadmium & spcs_list_type('AMN_HAPS',T,T,T, cm_set, 2200.0, ' ',' ',0.0 ,'NVL',F,T, 0, 0.0, 0.0,F, 'DUST ', 0.00), ! Manganese #90 & spcs_list_type('APHG ',T,T,T, cm_set, 2200.0, 'HGIIAER','PHGRXN ',1.0 ,'IRV',F,T, 0, 0.0, 0.0,F, 'DUST ', 0.00), ! Mercury & spcs_list_type('AAS ',T,T,T, cm_set, 2200.0, ' ',' ',0.0 ,'NVL',F,T, 0, 0.0, 0.0,F, 'DUST ', 0.00), ! Arsenic #92 & spcs_list_type('ABENAPY ',T,T,F, cm_set, 1400.0, 'BENAPY ',' ',1.0 ,'REV',F,T, 0, 0.0, 0.0,T, 'DUST ', 0.00), ! Benzo[a]pyrene #93 ! The following species are associated with the marine chemistry code & spcs_list_type('ABR ',F,T,T, cm_set, 2200.0, ' ',' ',0.0 ,'NVL',F,F, -1, 1.7, 1.7,F, 'SOLUTE', 0.00), ! Bromide ! Species created for CRACMM & spcs_list_type('ASOAT ',F,T,F, cm_set, 1400.0, ' ',' ',0.0 ,'NVL',F,F, 0, 2.8, 6.1,T, 'DUST ', 0.13), ! Lumped SOA not otherwise specified, OM/OC=2.1 ! The following species are associated with the sulfur tracking model & spcs_list_type('ASO4AQH2O2',T,T,T,cm_set,1800.0, ' ',' ',0.0 ,'NVL',F,T, 0, 0.0, 0.0,F, 'SOLUTE', 0.00), ! SO4 from aqueous H2O2 rxn & spcs_list_type('ASO4AQO3 ',T,T,T,cm_set,1800.0, ' ',' ',0.0 ,'NVL',F,T, 0, 0.0, 0.0,F, 'SOLUTE', 0.00), ! SO4 from aqueous O3 rxn & spcs_list_type('ASO4AQFEMN',T,T,T,cm_set,1800.0, ' ',' ',0.0 ,'NVL',F,T, 0, 0.0, 0.0,F, 'SOLUTE', 0.00), ! SO4 from aqueous FEMN cat rxn & spcs_list_type('ASO4AQMHP ',T,T,T,cm_set,1800.0, ' ',' ',0.0 ,'NVL',F,T, 0, 0.0, 0.0,F, 'SOLUTE', 0.00), ! SO4 from aqueous MHP rxn & spcs_list_type('ASO4AQPAA ',T,T,T,cm_set,1800.0, ' ',' ',0.0 ,'NVL',F,T, 0, 0.0, 0.0,F, 'SOLUTE', 0.00), ! SO4 from aqueous PAA rxn & spcs_list_type('ASO4GAS ',T,T,T,cm_set,1800.0, ' ',' ',0.0 ,'NVL',F,T, 0, 0.0, 0.0,F, 'SOLUTE', 0.00), ! SO4 from gas rxn & spcs_list_type('ASO4EMIS ',T,T,T,cm_set,1800.0, ' ',' ',0.0 ,'NVL',F,T, 0, 0.0, 0.0,F, 'SOLUTE', 0.00), ! emitted SO4 & spcs_list_type('ASO4ICBC ',T,T,T,cm_so4,1800.0, ' ',' ',0.0 ,'NVL',F,T, 0, 0.0, 0.0,F, 'SOLUTE', 0.00), ! SO4 from ICBCs ! The following species are associated with the sulfur tracking model, representing loss of tracked species to organosulfate & spcs_list_type('OSO4 ',T,T,T,cm_set,1800.0, ' ',' ',0.0 ,'NVL',F,T, 0, 0.0, 0.0,F, 'SOLUTE', 0.00), ! SO4 loss to organosulfate & spcs_list_type('OSO4AQH2O2',T,T,T,cm_set,1800.0, ' ',' ',0.0 ,'NVL',F,T, 0, 0.0, 0.0,F, 'SOLUTE', 0.00), ! SO4 from aqueous H2O2 rxn loss to organosulfate & spcs_list_type('OSO4AQO3 ',T,T,T,cm_set,1800.0, ' ',' ',0.0 ,'NVL',F,T, 0, 0.0, 0.0,F, 'SOLUTE', 0.00), ! SO4 from aqueous O3 rxn loss to organosulfate & spcs_list_type('OSO4AQFEMN',T,T,T,cm_set,1800.0, ' ',' ',0.0 ,'NVL',F,T, 0, 0.0, 0.0,F, 'SOLUTE', 0.00), ! SO4 from aqueous FEMN cat rxn loss to organosulfate & spcs_list_type('OSO4AQMHP ',T,T,T,cm_set,1800.0, ' ',' ',0.0 ,'NVL',F,T, 0, 0.0, 0.0,F, 'SOLUTE', 0.00), ! SO4 from aqueous MHP rxn loss to organosulfate & spcs_list_type('OSO4AQPAA ',T,T,T,cm_set,1800.0, ' ',' ',0.0 ,'NVL',F,T, 0, 0.0, 0.0,F, 'SOLUTE', 0.00), ! SO4 from aqueous PAA rxn loss to organosulfate & spcs_list_type('OSO4GAS ',T,T,T,cm_set,1800.0, ' ',' ',0.0 ,'NVL',F,T, 0, 0.0, 0.0,F, 'SOLUTE', 0.00), ! SO4 from gas rxn loss to organosulfate & spcs_list_type('OSO4EMIS ',T,T,T,cm_set,1800.0, ' ',' ',0.0 ,'NVL',F,T, 0, 0.0, 0.0,F, 'SOLUTE', 0.00), ! SO4 from emitted SO4 loss to organosulfate & spcs_list_type('OSO4ICBC ',T,T,T,cm_set,1800.0, ' ',' ',0.0 ,'NVL',F,T, 0, 0.0, 0.0,F, 'SOLUTE', 0.00), ! SO4 from ICBCs loss to organosulfate ! The following species are associated with CRACMM2 & spcs_list_type('AISO4 ',F,T,F, cm_set, 1400.0, ' ',' ',0.0 ,'NVL',F,F, 0, 2.8, 6.1,T, 'DUST ', 0.21), ! from heterogeneous uptake of IPX & spcs_list_type('AISO5 ',F,T,F, cm_set, 1400.0, ' ',' ',0.0 ,'NVL',F,F, 0, 2.8, 6.1,T, 'DUST ', 0.18), ! from heterogeneous uptake of INALD & spcs_list_type('ATRPN ',F,T,F, cm_set, 1400.0, ' ',' ',0.0 ,'REV',F,F, 0, 2.8, 6.1,T, 'DUST ', 0.10), ! SOA from first generation monoterpene nitrate & spcs_list_type('AHONIT ',F,T,F, cm_set, 1400.0, ' ',' ',0.0 ,'REV',F,F, 0, 2.8, 6.1,T, 'DUST ', 0.14) ! SOA from second generation monoterpene nitrate & /) ! Define Reference Emissions Size Distributions ! Geometric mean (or median) diameter by volume (or mass) of emitted particles in ! each mode [ m ] and geometric standard deviation of emitted particles. ! See paragraph #14 of Binkowski & Roselle (2003). ! 09/17/14 change by Kathleen Fahey - see Revision History, above. TYPE em_aero Character( 20 ) :: name Real :: split( n_mode ) ! dimensionless Real :: dgvem( n_mode ) ! meters Real :: sgem ( n_mode ) ! dimensionless END TYPE em_aero INTEGER, PARAMETER :: desid_n_aero_ref = 9 TYPE( em_aero ), Parameter :: desid_aero_ref( desid_n_aero_ref ) = (/ ! ----Name---- -----Split----- ---Geo. Mean Diameter--- ---Stnd Dev.--- & em_aero('FINE_REF ',(/0.1,0.9,0.0/),(/0.06E-6,0.28E-6 ,6.0E-6 /),(/1.7,1.7,2.2/)), ! Default Accum and Aitken Mode & em_aero('ACC_REF ',(/0.0,1.0,0.0/),(/0.06E-6,0.28E-6 ,6.0E-6 /),(/1.7,1.7,2.2/)), ! Just Accumulation Mode & em_aero('COARSE_REF ',(/0.0,0.0,1.0/),(/0.06E-6,0.28E-6 ,6.0E-6 /),(/1.7,1.7,2.2/)), ! Just Coarse Mode & em_aero('UNITY_REF ',(/1.0,1.0,1.0/),(/0.06E-6,0.28E-6 ,6.0E-6 /),(/1.7,1.7,2.2/)), ! Used for online sectors (e.g. SeaSpray) & em_aero('ZERO_REF ',(/0.0,0.0,0.0/),(/0.06E-6,0.28E-6 ,6.0E-6 /),(/1.7,1.7,2.2/)), ! Zero out the emissions & em_aero('FINE_WBDUST ',(/0.0,1.0,0.0/),(/0.06E-6,1.391E-6,5.26E-6/),(/1.7,2.0,2.0/)), ! Default Fine Wind-Blown Dust Parameterization & em_aero('COARSE_WBDUST ',(/0.0,0.0,1.0/),(/0.06E-6,1.391E-6,5.26E-6/),(/1.7,2.0,2.0/)), ! Default Coarse Wind-Blown Dust Param. & em_aero('FINE_SEASPRAY ',(/0.0,1.0,0.0/),(/0.06E-6,1.391E-6,5.26E-6/),(/1.7,2.0,2.0/)), ! Fine Sea Spray Parameterization is Dynamic. & em_aero('COARSE_SEASPRAY',(/0.0,0.0,1.0/),(/0.06E-6,1.391E-6,5.26E-6/),(/1.7,2.0,2.0/)) ! Coarse Sea Spray Parameterization is Dynamic. ! The values here are not actually used but ! are replaced in SSEMIS when FACNUM and FACSRF ! are calculated online. & /) ! Primary Organic Aerosol Volatility Distributions Integer, Parameter :: n_vbs_bin = 5 Character( 10 ) :: poa_name( n_vbs_bin ) = (/ 'LVPO1', 'SVPO1', 'SVPO2', 'SVPO3', 'IVPO1' /) Real, Parameter :: poa_op_vf( n_vbs_bin ) = (/ 0.09, 0.09, 0.14, 0.18, 0.5 /) ! Aggregated ! The Following Volatility Distributions are alternative options ! but at this point can only be implemented indivdually for the ! entire POA suite of compounds. ! Real, Parameter :: poa_gv_vf(n_vbs_bin) = (/0.27, 0.15, 0.26, 0.15, 0.17/) ! Gasoline ! Real, Parameter :: poa_dv_vf(n_vbs_bin) = (/0.03, 0.25, 0.37, 0.24, 0.11/) ! Diesel ! Real, Parameter :: poa_bb_vf(n_vbs_bin) = (/0.2, 0.1, 0.1, 0.2, 0.4/) ! Biomass Burning ! Real, Parameter :: poa_nv_vf(n_vbs_bin) = (/1.0, 0.0, 0.0, 0.0, 0.0/) ! Nonvolatile ! Real, Parameter :: poa_mc_vf(n_vbs_bin) = (/0.35, 0.35, 0.1, 0.1, 0.1/) ! Meat Cooking ! POA_AMF is the fraction of total emissions in the particle phase. ! This parameter is for distributing the total emissions between ! gas and particle BEFORE the aerosol size distribution is applied. ! This helps prevent numerical issues with shrinking the particles ! instantaneously. Real, Parameter :: poa_amf( n_vbs_bin ) = (/ 1.0, 0.5, 0.0, 0.0, 0.0 /) Real, Parameter :: pog_amf( n_vbs_bin ) = (/ 0.0, 0.5, 1.0, 1.0, 1.0 /) ! PCVOC_FAC is the scale factor for deriving PCVOC emissions from POA ! emissions. PCVOC is the vapor precursor to pcSOA formation. Real, Parameter :: PCVOC_FAC = 6.579 ! Scale factor for PCVOC/POA ! Murphy et al., 2017 C number of lognormal modes in windblown dust aerosol = n_mode C - but only accumulation and coarse modes used Type emis_table Character( 16 ) :: description ! Species Long Name Character( 16 ) :: name ! Species Name Real :: mw ! Molecular weight (g/mol) Real :: spcfac( 2 ) ! Speciation Factor for fine and coarse modes (g/g) End type emis_table C For the wind-blown dust speciation factors, we used the median of the Desert Soil C profiles 3398, 3403, 3408, and 3413 for the J mode from the SPECIATE database and C profiles 3399, 3404, 3409, and 3414 for coarse PM. (G. Pouliot - private communication) C See Ref. (4), above and https://cfpub.epa.gov/si/speciate/ ! For toxic metal species, more recent sources were consulted because the above profiles give large uncertainties in their ! speciation factors ! For the air toxics version of manganese, nickel, chromium(III), arsenic, and lead: ! Table 2 in Y. Su, and R. Yang., Background concentrations of elements in surface soils and ! their changes as affected by agriculture use in the desert-oasis ecotone in the middle of Heihe ! River Basin, North-west China, Journal of Geochemical Exploration, 98, 2008, 57–64 was used. ! The table represents natural desert soils prior to cultivation. Note that all chromium is ! to be trivalent based on assuming low pH or anoxics conditions. ! For cadmium: ! The background mixing ratio was used from Table 3 in Su, C., Jiang, L.,and Zhang, W., ! A review on heavy metal contamination in the soil worldwide: Situation, impact and ! remediation techniques, Environmental Skeptics and Critics, 2014, 3(2): 24-38. ! The table reviews worldwide cultivation soils. ! For mercury: ! Table 2 in D. Obrist et al., A synthesis of terrestrial mercury in the western United States: ! Spatial distribution defined by land cover and plant productivity, Science of the Total Environment, ! 568, 2016, 522–535. ! Factors were based on mixing ratios for barren and cultivated land cover type ! Speciation factors between j and k modes were assumed constant because no data was found. C maximum number of chemical species in windblown dust aerosol Integer, Parameter :: ndust_spc = 28 Type( emis_table ) :: dust_spc( ndust_spc ) = (/ C --description-- -- Species -- --MW-- ------ spcfac ------ C fine coarse & emis_table( 'Sulfate ', 'SO4 ', 96.0, (/ 0.02250, 0.02655/) ), ! Sulfate & emis_table( 'Nitrate ', 'NO3 ', 62.0, (/ 0.00020, 0.00160/) ), ! Nitrate & emis_table( 'Chlorine ', 'CL ', 35.5, (/ 0.00945, 0.01190/) ), ! Chlorine & emis_table( 'Ammonium ', 'NH4 ', 18.0, (/ 0.00005, 0.0 /) ), ! Ammonium & emis_table( 'Sodium ', 'NA ', 23.0, (/ 0.03935, 0.0 /) ), ! Sodium & emis_table( 'Calcium ', 'CA ', 40.1, (/ 0.07940, 0.0 /) ), ! Calcium & emis_table( 'Magnesium ', 'MG ', 24.3, (/ 0.01900, 0.0 /) ), ! Magnesium & emis_table( 'Potassium ', 'K ', 39.1, (/ 0.03770, 0.0 /) ), ! Potassium & emis_table( 'Org. Carbon ', 'POC ', 220.0, (/ 0.01075, 0.0 /) ), ! Organic Carbon & emis_table( 'NonCarbon Org.', 'PNCOM ', 220.0, (/ 0.00430, 0.0 /) ), ! Non-Carbon Organic Matter & emis_table( 'Low-Vol. POA ', 'LVPO1 ', 218.0, (/ 0.01501, 0.0 /) ), ! Non-Carbon Organic Matter & emis_table( 'Low-Vol. OOA ', 'LVOO1 ', 136.0, (/ 2.23E-5, 0.0 /) ), ! Non-Carbon Organic Matter & emis_table( 'Black Carbon ', 'EC ', 12.0, (/ 0.0, 0.0 /) ), ! Black or Elemental Carbon & emis_table( 'Iron ', 'FE ', 55.8, (/ 0.03355, 0.0 /) ), ! Iron & emis_table( 'Aluminum ', 'AL ', 27.0, (/ 0.05695, 0.0 /) ), ! Aluminum & emis_table( 'Silicon ', 'SI ', 28.1, (/ 0.19425, 0.0 /) ), ! Silicon & emis_table( 'Titanium ', 'TI ', 47.9, (/ 0.00280, 0.0 /) ), ! Titanium & emis_table( 'Manganese ', 'MN ', 54.9, (/ 0.00115, 0.0 /) ), ! Manganese & emis_table( 'Water ', 'H2O ', 18.0, (/ 0.00541, 0.00637/) ), ! Water & emis_table( 'Undefined Mass', 'OTHR ', 200.0, (/ 0.48319, 0.0 /) ), ! Other & emis_table( 'Non-Anion Dust', 'SOIL ', 100.0, (/ 0.0, 0.95358/) ), ! Non-Anion Dust & emis_table( 'Air Toxics Mn ', 'MN_HAPS', 54.9, (/ 0.00041, 0.00041/) ), ! Air toxics Manganese J and K mode & emis_table( 'Nickel ', 'NI ', 58.7, (/ 2.0E-05, 2.0E-05/) ), ! Nickel J and K mode & emis_table( 'Chromium III ', 'CR_III ', 52.0, (/ 5.6E-05, 5.6E-05/) ), ! Trivalent Chromium J and K mode & emis_table( 'Arsenic ', 'AS ', 74.92,(/ 5.5E-06, 5.5E-06/) ), ! Arsenic J and K mode & emis_table( 'Lead ', 'PB ', 207.2, (/ 1.6E-05, 1.6E-05/) ), ! Lead J and K mode & emis_table( 'Cadmium ', 'CD ', 112.4, (/ 9.7E-08, 9.7E-08/) ), ! Cadmium J and K mode & emis_table( 'Mercury ', 'PHG ', 200.5, (/ 1.4E-08, 1.4E-08/) ) /) ! Mercury J and K mode ! Manually Enter the mode-dependent Density of the Dust Particles using the mass fractions in ! the dust_spc table and user-defined densities for each component. You may reference the aerolist ! for densities as well. Units are [kg/m3]. The appropriate calculation is: ! dust_dens = sum( frac_i ) / sum( frac_i / dens_i ) ! Make sure to ignore any tracer species when performing this calculation. Real, Parameter :: dust_dens( n_mode ) = (/ 2200.0, 2156.55, 2536.92 /) Real, ALLOCATABLE, SAVE :: DUSTOUTM( :,:,: ) ! Wind-Blown Dust Mass Emiss Rate [ug/m3/s] Real, ALLOCATABLE, SAVE :: DUSTOUTN( :,:,: ) ! Wind-Blown Dust Number Emiss Rate [1/m3/s] Real, ALLOCATABLE, SAVE :: DUSTOUTS( :,:,: ) ! Wind-Blown Dust Surface Area Emiss Rate [m2/m3/s] C Sea-Spray Aerosol Speciation factors based on seawater composition: ! For toxic metal species, Use Table 1 in K.W. Bruland and M.C. Lohan, 6.02 - Controls of Trace Metals in Seawater, ! In Treatise on Geochemistry, edited by Heinrich D. Holland and Karl K. Turekian, Pergamon, Oxford, 2003, Pages 23-47, ! ISBN 9780080437514, http://dx.doi.org/10.1016/B0-08-043751-6/06105-3. C number of chemical species in seawater aerosol composition integer, parameter :: nsea_spc = 17 Type( emis_table ), Parameter :: sea_spc( nsea_spc ) = (/ C -description-- -- Species -- --MW-- ------ spcfac ------ C fine coarse & emis_table( 'Sulfate ', 'SO4 ', 96.0, (/ 0.07760, 0.07760/) ), ! Sulfate & emis_table( 'Chlorine ', 'CL ', 35.5, (/ 0.55380, 0.55380/) ), ! Chlorine & emis_table( 'Sodium ', 'NA ', 23.0, (/ 0.30860, 0.0 /) ), ! Sodium & emis_table( 'Calcium ', 'CA ', 40.1, (/ 0.01180, 0.0 /) ), ! Calcium & emis_table( 'Magnesium ', 'MG ', 24.3, (/ 0.03680, 0.0 /) ), ! Magnesium & emis_table( 'Potassium ', 'K ', 39.1, (/ 0.01140, 0.0 /) ), ! Potassium & emis_table( 'SeaSalt_Cation', 'SEACAT ', 23.75,(/ 0.0 , 0.36860/) ), ! Sea-Salt Cations & emis_table( 'Chromium VI ', 'CR_VI ', 52.0, (/ 5.95E-9, 5.95E-9/) ), ! Hexavalent Chromium & emis_table( 'Nickel ', 'NI ', 58.7, (/ 1.34E-8, 1.34E-8/) ), ! Nickle & emis_table( 'Arsenic ', 'AS ', 74.92,(/ 4.93E-8, 4.93E-8/) ), ! Arsenic & emis_table( 'Beryllium ', 'BE ', 9.0, (/ 5.2E-11, 5.2E-11/) ), ! Beryllium & emis_table( 'Mercury ', 'PHG ', 200.5, (/ 5.8E-11, 5.8E-11/) ), ! Mercury & emis_table( 'Lead ', 'PB ', 207.2, (/ 6.0E-11, 6.0E-11/) ), ! Lead & emis_table( 'Cadmium ', 'CD ', 112.4, (/ 1.93E-9, 1.93E-9/) ), ! cadmium & emis_table( 'Air Toxics Mn ', 'MN_HAPS', 54.9, (/ 4.7E-11, 4.7E-11/) ), ! Air toxics Manganese & emis_table( 'Bromine ', 'BR ', 79.9, (/ 0.00190, 0.00190/) ), ! Bromine & emis_table( 'Water ', 'H2O ', 18.0, (/ 0.0 , 0.0 /) ) /) ! Water (uptake is calculated online) ! MAKE SURE WATER IS THE LAST COMPONENT IN THE TABLE ABOVE OR YOU ! WILL ENCOUNTER ISSUES WITH THE SEA SPRAY EMISSIONS MODULE. ! Manually Enter the mode-dependent density of the Sea Spray Particles using the mass fractions in ! the sea_spc table and user-defined densities for each component. You may reference the aerolist ! for densities as well. Units are [kg m-3]. The appropriate calculation is: ! seaspray_dens = sum( frac_i ) / sum( frac_i / dens_i ) ! Make sure to ignore any tracer species when performing this calculation. Real, Parameter :: seaspray_dens( n_mode ) = (/ 2162.7, 2162.7, 2162.7 /) Real, Parameter :: specific_vol_h2o = 0.001 !Inverse Density of Particulate Water C Constants used for simulating the ionic effects of sea-spray, C windblown dust and anthropogenic dust in the coarse mode. These cation C species are not transported individually in the domain but their C relative abundance is assumed to be constant and scaled to the total C SeaSalt_Cation, ASOIL, or Coarse-Mode Dust present. Real( 8 ), Parameter :: asoil_renorm = 1.0D0 - 0.04642D0 ! = 0.95358, same as ASOIL speciation factor in the dust_spc table above Real( 8 ), Parameter :: ascat_na_fac = 0.8373D0 ! for NA in coarse sea-spray aerosol Real( 8 ), Parameter :: asoil_na_fac = 0.0626D0 ! for NA in windblown dust Real( 8 ), Parameter :: acors_na_fac = 0.0023D0 ! for NA in anthropogenic coarse Real( 8 ), Parameter :: ascat_mg_fac = 0.0997D0 ! for MG in coarse sea-spray aerosol Real( 8 ), Parameter :: asoil_mg_fac = 0.0170D0 ! for MG in windblown dust Real( 8 ), Parameter :: acors_mg_fac = 0.0032D0 ! for MG in anthropogenic coarse Real( 8 ), Parameter :: ascat_k_fac = 0.0310D0 ! for K in coarse sea-spray aerosol Real( 8 ), Parameter :: asoil_k_fac = 0.0242D0 ! for K in windblown dust Real( 8 ), Parameter :: acors_k_fac = 0.0176D0 ! for K in anthropogenic coarse Real( 8 ), Parameter :: ascat_ca_fac = 0.0320D0 ! for CA in coarse sea spray aerosol Real( 8 ), Parameter :: asoil_ca_fac = 0.0838D0 ! for CA in windblown dust Real( 8 ), Parameter :: acors_ca_fac = 0.0562D0 ! for CA in anthropogenic coarse Real( 8 ), Parameter :: asoil_fe_fac = 0.02695D0 ! for FE in windblown dust Real( 8 ), Parameter :: acors_fe_fac = 0.0467D0 ! for FE in anthropogenic coarse Real( 8 ), Parameter :: asoil_mn_fac = 0.00075D0 ! for MN in windblown dust Real( 8 ), Parameter :: acors_mn_fac = 0.0011D0 ! for MN in anthropogenic coarse C Coarse mode PMC speciation based on anthropogenic inventory composite from various C sources (G. Pouliot - private communication): Real( 8 ), Parameter :: acorsem_aso4_fac = 0.00100D0 Real( 8 ), Parameter :: acorsem_ano3_fac = 0.00048D0 Real( 8 ), Parameter :: acorsem_acl_fac = 0.00145D0 Real( 8 ), Parameter :: acorsem_ah2o_fac = 0.00032D0 Real( 8 ), Parameter :: acorsem_renorm = 1.0D0 & - acorsem_aso4_fac & - acorsem_ano3_fac & - acorsem_acl_fac & - acorsem_ah2o_fac C Required species Character( 16 ), Private, Parameter :: req_so4 = 'ASO4' Character( 16 ), Private, Parameter :: req_no3 = 'ANO3' Character( 16 ), Private, Parameter :: req_cl = 'ACL' Character( 16 ), Private, Parameter :: req_nh4 = 'ANH4' Character( 16 ), Private, Parameter :: req_na = 'ANA' Character( 16 ), Private, Parameter :: req_mg = 'AMG' Character( 16 ), Private, Parameter :: req_k = 'AK' Character( 16 ), Private, Parameter :: req_ca = 'ACA' Character( 16 ), Private, Parameter :: req_fe = 'AFE' Character( 16 ), Private, Parameter :: req_mn = 'AMN' Character( 16 ), Private, Parameter :: req_poc = 'APOC' Character( 16 ), Private, Parameter :: req_ncom = 'APNCOM' Character( 16 ), Private, Parameter :: req_h2o = 'AH2O' Character( 16 ), Private, Parameter :: req_h3op = 'AH3OP' Character( 16 ), Private, Parameter :: req_soil = 'ASOIL' Character( 16 ), Private, Parameter :: req_cors = 'ACORS' Character( 16 ), Private, Parameter :: req_seacat = 'ASEACAT' C Indices of required species Integer :: aso4_idx Integer :: ano3_idx Integer :: acl_idx Integer :: anh4_idx Integer :: ana_idx Integer :: amg_idx Integer :: ak_idx Integer :: aca_idx Integer :: afe_idx Integer :: amn_idx Integer :: apoc_idx Integer :: apncom_idx Integer :: ah2o_idx Integer :: ah3op_idx Integer :: asoil_idx Integer :: acors_idx Integer :: aseacat_idx C Flag if optional species present Logical :: ae6isoa = .False. Logical :: ae6hg = .False. Logical :: ae7orgh2o = .False. Logical :: marine = .False. C Optional Species Character( 16 ), Private, Parameter :: req_ietet = 'AIETET' Character( 16 ), Private, Parameter :: req_ieos = 'AIEOS' Character( 16 ), Private, Parameter :: req_dim = 'ADIM' Character( 16 ), Private, Parameter :: req_imga = 'AIMGA' Character( 16 ), Private, Parameter :: req_imos = 'AIMOS' Character( 16 ), Private, Parameter :: req_phgj = 'APHGJ' Character( 16 ), Private, Parameter :: req_orgh2o = 'AORGH2O' Character( 16 ), Private, Parameter :: req_br = 'ABR' Character( 16 ), Private, Parameter :: req_so4aqh2o2 = 'ASO4AQH2O2' Character( 16 ), Private, Parameter :: req_so4aqo3 = 'ASO4AQO3' Character( 16 ), Private, Parameter :: req_so4aqfemn = 'ASO4AQFEMN' Character( 16 ), Private, Parameter :: req_so4aqmhp = 'ASO4AQMHP' Character( 16 ), Private, Parameter :: req_so4aqpaa = 'ASO4AQPAA' Character( 16 ), Private, Parameter :: req_so4gas = 'ASO4GAS' Character( 16 ), Private, Parameter :: req_so4emis = 'ASO4EMIS' Character( 16 ), Private, Parameter :: req_so4icbc = 'ASO4ICBC' Character( 16 ), Private, Parameter :: req_oso4 = 'OSO4' Character( 16 ), Private, Parameter :: req_oso4aqh2o2 = 'OSO4AQH2O2' Character( 16 ), Private, Parameter :: req_oso4aqo3 = 'OSO4AQO3' Character( 16 ), Private, Parameter :: req_oso4aqfemn = 'OSO4AQFEMN' Character( 16 ), Private, Parameter :: req_oso4aqmhp = 'OSO4AQMHP' Character( 16 ), Private, Parameter :: req_oso4aqpaa = 'OSO4AQPAA' Character( 16 ), Private, Parameter :: req_oso4gas = 'OSO4GAS' Character( 16 ), Private, Parameter :: req_oso4emis = 'OSO4EMIS' Character( 16 ), Private, Parameter :: req_oso4icbc = 'OSO4ICBC' C Indices of Optional species Integer :: aietet_idx = 0 Integer :: aieos_idx = 0 Integer :: adim_idx = 0 Integer :: aimga_idx = 0 Integer :: aimos_idx = 0 Integer :: aphgj_idx = 0 Integer :: aorgh2o_idx= 0 Integer :: abr_idx = 0 C Indices of Optional sulfur tracking species Integer :: aso4aqh2o2_idx = 0 Integer :: aso4aqo3_idx = 0 Integer :: aso4aqfemn_idx = 0 Integer :: aso4aqmhp_idx = 0 Integer :: aso4aqpaa_idx = 0 Integer :: aso4gas_idx = 0 Integer :: aso4emis_idx = 0 Integer :: aso4icbc_idx = 0 Integer :: oso4_idx = 0 Integer :: oso4aqh2o2_idx = 0 Integer :: oso4aqo3_idx = 0 Integer :: oso4aqfemn_idx = 0 Integer :: oso4aqmhp_idx = 0 Integer :: oso4aqpaa_idx = 0 Integer :: oso4gas_idx = 0 Integer :: oso4emis_idx = 0 Integer :: oso4icbc_idx = 0 C Common Arrays for Aerosol Data Real, Allocatable :: aerospc_mw( : ) ! molecular weights (from AE_SPC Namelist) [ g/mol ] Real, Allocatable :: aerospc_mwinv( : ) ! reciprocal MWs (from AE_SPC Namelist) [ mol/g ] Real, Allocatable :: aerospc_conc( :,: ) ! aero species concentration [ ug/m^3 ] C Common factors Real( 8 ) :: h2ofac ! converts mass concentrations [ug/m3] to 3rd moment concentrations [m3/m3] C Variables for converting emission rates into molar-mixing-ratio units REAL, PARAMETER :: GPKG = 1.0E+03 ! kg -> g REAL, PARAMETER :: MGPG = 1.0E+06 ! g -> ug C------------------------------------------------------------------------------------------------------- Type mode_type Character( 3 ) :: suff ! Suffix Character( 16 ) :: num_name ! name of aerosol number variable Character( 16 ) :: srf_name ! name of aerosol surface area variable Logical :: ultrafine_mask ! is this mode ultrafine PM? Logical :: fine_mask ! is this mode fine PM? Logical :: coarse_mask ! is this mode coarse PM? Logical :: accum_mask ! is this accumulation-mode PM? Logical :: aitken_mask ! is this aitken-mode PM? Logical :: nuc_mask ! is this nucleation-mode PM? Real :: min_numconc ! minimum number concentration Real :: min_m2conc ! minimum 2nd moment concentration Real :: min_m3conc ! minimum 3rd moment concentration End Type mode_type Type ( mode_type ), Parameter :: aeromode( n_mode ) = (/ C suffix number surface Masks minimum minimum minimum C name name U F C AC AI NU numconc m2conc m3conc C ------- ---------- ------- - - - -- -- -- -------- ------- ------ & mode_type('AIT' ,'NUMATKN', 'SRFATKN', T, T, F, F, T, F, conmin, conmin, conmin), & mode_type('ACC' ,'NUMACC ', 'SRFACC ', F, T, F, T, F, F, conmin, conmin, conmin), & mode_type('COR' ,'NUMCOR ', 'SRFCOR ', F, F, T, F, F, F, conmin, conmin, conmin)/) Real :: moment0_conc( n_mode ) ! 0th moment concentration Real :: moment2_conc( n_mode ) ! 2nd moment concentration Real :: moment3_conc( n_mode ) ! 3rd moment concentration Logical, save :: wet_moments_flag ! T if M2 and M3 are wet, F otherwise C Mass concentration (calculated by GETPAR) Real :: aeromode_mass( n_mode ) ! [ ug/m^3 ] C Particle density (calculated by GETPAR) Real :: aeromode_dens( n_mode ) ! [ kg/m^3 ] C Geometric mean diameter (calculated by GETPAR) for the NUMBER C distribution. Remember that for log-normal distributions the geometric C mean and the median are identical! Real :: aeromode_diam( n_mode ) ! [ m ] C Log of geometric standard deviation (calculated by GETPAR ) for the C NUMBER distribution. Real :: aeromode_lnsg( n_mode ) C Minimum number (calculated in map_aero routine) Real :: aeromode_minNum( n_mode ) C Minimum 2nd moment (calculated in map_aero routine) Real :: aeromode_minM2( n_mode ) C Mapping for loading from and unloading to CGRID array Integer, Allocatable :: aerospc_map( :,: ) ! indices of aero species to CGRID Integer :: aeronum_map( n_mode ) ! indices of aero number variable to CGRID Integer :: aerosrf_map( n_mode ) ! indices of aero surf area variable to CGRID ! Diagnostic Aerosol Distribution Parameters Real :: wet_aero_diam( n_mode ) Real :: dry_aero_diam( n_mode ) Real :: wet_aero_m2 ( n_mode ) Real :: dry_aero_m2 ( n_mode ) Real :: wet_aero_m3 ( n_mode ) Real :: dry_aero_m3 ( n_mode ) Real :: wet_aero_dens( n_mode ) Real :: dry_aero_dens( n_mode ) C Missing aerosol species map Logical, Allocatable :: aero_missing( :,: ) Logical, Save :: AE_eflag = .False. ! error flag for AERO_DATA C IC/BC Correction Mapping !The following vectors store masks of the aerosol species !identities for the AE_SPC and AE_TRNS vectors. For example, !L_AESP_NUM stores 1's for every species on AE_SPC that !represents an aerosol number concentration and 0's otherwise. ! L_AESP_NUM - Number Concentration ! L_AESP_SURF - Surface Area Concentration ! L_AESP_MASS - Mass Concentration ! L_AESP_MODE - Mask for each aerosol mode LOGICAL, ALLOCATABLE, SAVE :: L_AESP_NUM(:), L_AESP_SRF(:), L_AESP_MASS(:), & L_AESP_MODE(:,:), L_AESP_DRY(:) LOGICAL, ALLOCATABLE, SAVE :: L_AETR_NUM(:), L_AETR_SRF(:), L_AETR_MASS(:), & L_AETR_MODE(:,:), L_AETR_DRY(:) REAL, ALLOCATABLE, SAVE :: AEROCGRID_RHOINV( : ) ! C Private variables for loading from and unloading to CGRID array Logical, Private, Save :: mapped = .False. Character( 16 ), Private, Save :: pname = 'Aero_Data' ! Variables for collecting tendencies for aerosol sub-processes and ! passing back to modules like Process analysis and ISAM. These vectors ! should be sized to the same length as the CGRID species dimension and ! be mapped to CGRID species order. Units for each are total ! concentration or mixing ratio gained or lost. These are not normalized ! by the time step. Ex (ppmv, ug m-3, N m-3, or m2 m-3) REAL, ALLOCATABLE, SAVE :: COND_BUDGET( : ) REAL, ALLOCATABLE, SAVE :: COAG_BUDGET( :,: ) REAL, ALLOCATABLE, SAVE :: NPF_BUDGET( : ) REAL, ALLOCATABLE, SAVE :: GROWTH_BUDGET( : ) ! Initial Reference Values for M2 and M3 used for Heterogenous Chemistry ! Module. REAL( 8 ), ALLOCATABLE, SAVE :: CHEM_M2DRY_INIT( :,:,:,: ), & CHEM_M3DRY_INIT( :,:,:,: ) Contains C----------------------------------------------------------------------- Subroutine map_aero() C Defines aerosol mapping from CGRID for species concentration and moments. C Revision History: C First version was coded in April 2010 by Steve Howard with C Prakash Bhave, Jeff Young, and Sergey Napelenok. C HS 01/24/11 Renamed AORGPA as POC for AERO6 C GS 03/02/11 Find new req`d species for AERO6 (Mg, K, Ca) C HS 03/10/11 Get index for new required species, PNCOM C JY 03/22/16 Get index for new required species: Fe, Mn (aqchem) C HOTP 05/11/16 Add IEPOX derived species C----------------------------------------------------------------------- Use rxns_data ! chemical mechanism data Use cgrid_spcs ! CGRID mechanism species Use aeromet_data Use vdiff_data, only : n_spc_diff, diff_spc Implicit None C Local Variables: Character( 256 ) :: xmsg Character( 256 ) :: xmsg2 Real :: mole_weight( n_aerolist ) Integer :: map_listtogrid( n_aerolist,n_mode ) Integer :: map_aerotolist( n_aerolist ) Integer, Allocatable :: aerospc_in_dustlist( : ) Character(16), Allocatable :: refractive_index( : ) Integer l, m, n, spc, isea, idust, p Real so4fac Real anthfac Real POA_OC ! ratio of Elemental Oxygen to Carbon in POA Real OOA_OC ! ratio of Elemental Oxygen to Carbon in Oxygenated OA Integer dust_org1, dust_org2 Logical ae6isoa Logical ae6hg Logical dust_match Logical new_bulk_species Logical replace_optics_surr Character(16) sn If ( mapped ) Return Call LOG_SUBHEADING( LOGDEV, "Map Aerosol Species" ) mole_weight = 0.0 n_aerospc = 0 ! Number of Used Aerosol Chemical Species map_listtogrid = 0 ! Pointer from aerolist to CGRID map_aerotolist = 0 ! Pointer from aerospc to aerolist AE_eflag = .False. max_l2sg = ( LOG( max_sigma_g ) ) ** 2 min_l2sg = ( LOG( min_sigma_g ) ) ** 2 def_l2sg( : ) = ( LOG( def_sigma_g( : ) ) ) ** 2 allocate( aerocgrid_rhoinv( n_ae_trns ), & l_aesp_num( n_ae_spc ), & l_aesp_srf( n_ae_spc ), l_aesp_mass( n_ae_spc ), & l_aesp_mode( n_mode,n_ae_spc ), l_aesp_dry( n_ae_spc ), & l_aetr_num( n_ae_trns ), & l_aetr_srf( n_ae_trns ), l_aetr_mass( n_ae_trns ), & l_aetr_mode( n_mode,n_ae_trns ), l_aetr_dry( n_ae_trns ) ) Allocate( refractive_index( n_aerolist ) ) refractive_index( : ) = aerolist( : )%optic_surr aerocgrid_rhoinv = 0. l_aesp_num = .False. l_aesp_srf = .False. l_aesp_mass= .False. l_aesp_mode= .False. l_aesp_dry = .False. l_aetr_num = .False. l_aetr_srf = .False. l_aetr_mass= .False. l_aetr_mode= .False. l_aetr_dry = .False. C Build mapping to CGRID for each species in the master AeroList Do spc = 1, n_aerolist ! Check to see if this species is in the namelist replace_optics_surr = .False. do m = 1,n_mode if ( m .eq. n_mode .and. & (aerolist( spc )%bulkname .eq. 'ACORS' .or. & aerolist( spc )%bulkname .eq. 'ASOIL' .or. & aerolist( spc )%bulkname .eq. 'ASEACAT' .or. & aerolist( spc )%bulkname .eq. 'ADE_CORS' ) ) then sn = aerolist( spc )%bulkname else sn = trim( aerolist( spc )%bulkname ) // modesuff( m ) end if n = index1( sn, n_ae_spc, ae_spc ) p = index1( sn, n_ae_trns, ae_trns ) If ( n .Ne. 0 ) Then If( Len_Trim( ae_optics( n ) ) .gt. 0 )Then replace_optics_surr = .True. End If ! Species is on the NameList new_bulk_species = ( .Not. Any( map_listtogrid( spc,: ) .NE. 0 ) ) If ( new_bulk_species ) Then ! Add this species to the map if it does not exist already n_aerospc = n_aerospc + 1 map_aerotolist( n_aerospc ) = spc ! Set the Molecular Weight mole_weight( spc ) = ae_molwt( n ) If( replace_optics_surr )refractive_index( spc ) = ae_optics( n ) Else If ( mole_weight( spc ) .Ne. ae_molwt( n ) ) Then ! If the species already exists and the ! molecular weight from this mode on the ! namelist is not matching the standing ! molecular weight, throw an error xmsg = 'The molecular weight of ' // Trim( sn ) & // ' is different from that of the same species' & // ' in the same or another mode.' Call m3warn( pname, 0, 0, xmsg ) Write( xmsg,* ) 'New Value(', n, ') = ', ae_molwt( n ), & 'Expected value(', spc, ')= ', mole_weight( spc ) Call m3warn( pname, 0, 0, xmsg ) AE_eflag = .True. Else If ( replace_optics_surr ) Then If ( refractive_index( spc ) .Ne. ae_optics( n ) ) Then ! If the species already exists and the ! namelist's refractive index for the mode ! does not match the new value, ! write message and set error flag xmsg = 'FATAL ERROR: In AErosol namelist, OPTICS value ' & // 'for bulk ' // Trim( aerolist( spc )%bulkname ) & // ' is inconsistent across modes. CORRECT the AE namelist' Call m3mesg( xmsg ) If( Len_Trim( ae_optics( n ) ) .lt. 1 ) Then xmsg2 = 'blank' Else xmsg2 = Trim( ae_optics( n ) ) End If Write( xmsg,* ) 'Bad Value is ', Trim( xmsg2 ), & '; Expected value is ', Trim( refractive_index( spc ) ) Call m3mesg( xmsg ) AE_eflag = .True. End If End If ! Update the map from CGRID to AeroList for this mode map_listtogrid( spc,m ) = ae_strt - 1 + n l_aesp_mode( m,n ) = .True. l_aetr_mode( m,p ) = .True. If ( .Not. aerolist( spc)%tracer ) then l_aesp_mass( n ) = .True. if ( p .gt. 0 ) l_aetr_mass( p ) = .True. End If If ( .Not. aerolist( spc)%no_m2wet ) then l_aesp_dry( n ) = .True. if ( p .gt. 0 ) l_aetr_dry( p ) = .True. End If !Map the CGRID Aerosol Species to their Densities aerocgrid_rhoinv( n ) = 1.0 / aerolist( spc )%density End If End Do End Do Write(logdev,*)' ' ! Migrate all of the user-requested aerosols from AeroList to ! AeroSpc. Begin by allocating all of the new arrays now that we ! know the value of n_aerospc Allocate ( aerospc ( n_aerospc ) ) Allocate ( aerospc_mw ( n_aerospc ) ) Allocate ( aerospc_mwinv ( n_aerospc ) ) Allocate ( aerospc_map ( n_aerospc, n_mode ) ) Allocate ( aerospc_conc ( n_aerospc, n_mode ) ) Allocate ( aero_missing ( n_aerospc, n_mode ) ) #ifdef sens Allocate ( s_aerospc_conc( n_aerospc,n_mode,npmax ) ) #endif aero_missing( :,: ) = .True. aerospc_conc( :,: ) = conmin Do spc = 1, n_aerospc ! Loop through user-requested chemical species l = map_aerotolist( spc ) ! Map AeroList Contents to AeroSpc aerospc( spc )%bulkname = aerolist( l )%bulkname aerospc( spc )%lait = aerolist( l )%lait aerospc( spc )%lacc = aerolist( l )%lacc aerospc( spc )%lcor = aerolist( l )%lcor aerospc( spc )%min_conc = aerolist( l )%min_conc aerospc( spc )%density = aerolist( l )%density aerospc( spc )%gasname = aerolist( l )%gasname aerospc( spc )%ctrname = aerolist( l )%ctrname aerospc( spc )%ctr_yield = aerolist( l )%ctr_yield aerospc( spc )%voltype = aerolist( l )%voltype aerospc( spc )%no_M2wet = aerolist( l )%no_M2Wet aerospc( spc )%tracer = aerolist( l )%tracer aerospc( spc )%charge = aerolist( l )%charge aerospc( spc )%visual_idx = aerolist( l )%visual_idx aerospc( spc )%visual_idx_large = aerolist( l )%visual_idx_large aerospc( spc )%om = aerolist( l )%om aerospc( spc )%optic_surr = refractive_index( l ) aerospc( spc )%kappaorg = aerolist( l )%kappaorg aerospc( spc )%name( : ) = '' If ( aerospc( spc )%optic_surr .Ne. aerolist( l )%optic_surr ) Then xmsg = 'For aerosol species, ' // Trim( aerospc( spc )%bulkname ) & // ', setting refactive index to ' & // Trim( aerospc( spc )%optic_surr ) // ' instead of ' & // Trim( aerolist( l )%optic_surr ) write(logdev,'(a)')Trim( xmsg ) End If ! Map mode-independent properties aerospc_mw( spc ) = mole_weight( l ) aerospc_mwinv( spc ) = 1.0E0 / aerospc_mw( spc ) Do n = 1,n_mode ! Map the Modal-Dependent CGRID Pointers from AeroSpc to AeroList aerospc_map( spc, n ) = map_listtogrid( l, n ) ! Remove this Chemical/Mode Combination from the "missing" list ! if it can be mapped to the cgrid list of variables if ( aerospc_map( spc,n ) .ne. 0 ) then aero_missing( spc,n ) = .False. ! Create Mode-Dependent Names if ( aerospc( spc )%bulkname .eq. 'ACORS' .or. & aerospc( spc )%bulkname .eq. 'ASOIL' .or. & aerospc( spc )%bulkname .eq. 'ASEACAT' .or. & aerospc( spc )%bulkname .eq. 'ADE_CORS' ) then aerospc( spc )%name( n ) = trim( aerospc( spc )%bulkname ) else aerospc( spc )%name( n ) = & trim( aerospc( spc )%bulkname ) // modesuff( n ) end if end if End Do End Do Write(logdev,*)' ' C Build mapping to CGRID for aero # and surf area variables aeronum_map = 0 aerosrf_map = 0 Do m = 1, n_mode n = index1( aeromode( m )%num_name , n_ae_spc, ae_spc ) p = index1( aeromode( m )%num_name , n_ae_trns, ae_trns ) If ( n .Eq. 0 ) Then xmsg = 'Species ' // Trim( aeromode( m )%num_name ) & //' is not in AE namelist' AE_eflag = .True. Call m3warn( pname, 0, 0, xmsg ) ! Call m3exit( pname, 0, 0, xmsg, xstat3 ) Else aeronum_map( m ) = ae_strt - 1 + n aerocgrid_rhoinv( n ) = 1.0 l_aesp_num( n ) = .True. l_aesp_mode( m,n ) = .True. if ( p .gt. 0 ) then l_aetr_num( p ) = .True. l_aetr_mode( m,p ) = .True. end if End If n = index1( aeromode( m )%srf_name , n_ae_spc, ae_spc ) p = index1( aeromode( m )%srf_name , n_ae_trns, ae_trns ) If ( n .Eq. 0 ) Then xmsg = 'species ' // Trim( aeromode( m )%srf_name ) & // ' is not in AE namelist' AE_eflag = .True. Call m3warn( pname, 0, 0, xmsg ) ! Call m3exit( pname, 0, 0, xmsg, xstat3 ) Else aerosrf_map( m ) = ae_strt - 1 + n aerocgrid_rhoinv( n ) = 1.0 l_aesp_srf( n ) = .True. l_aesp_mode( m,n ) = .True. if ( p .gt. 0 ) then l_aetr_srf( p ) = .True. l_aetr_mode( m,p ) = .True. end if End If End Do C Find indices of required species aso4_idx = findAero( req_so4, .True. ) ano3_idx = findAero( req_no3, .True. ) acl_idx = findAero( req_cl, .True. ) anh4_idx = findAero( req_nh4, .True. ) ana_idx = findAero( req_na, .True. ) amg_idx = findAero( req_mg, .True. ) ak_idx = findAero( req_k, .True. ) aca_idx = findAero( req_ca, .True. ) afe_idx = findAero( req_fe, .True. ) amn_idx = findAero( req_mn, .True. ) ah2o_idx = findAero( req_h2o, .True. ) ah3op_idx = findAero( req_h3op, .True. ) asoil_idx = findAero( req_soil, .True. ) acors_idx = findAero( req_cors, .True. ) aseacat_idx = findAero( req_seacat, .True. ) apoc_idx = findAero( req_poc, .True. ) apncom_idx = findAero( req_ncom, .True. ) If ( ( Index( mechname, 'SAPRC07TIC_AE6I' ) .Gt. 0 ) .OR. & ( Index( mechname, 'SAPRC07TIC_AE7I' ) .Gt. 0 ) ) Then ae6isoa = .True. aietet_idx = findAero( req_ietet, ae6isoa ) aieos_idx = findAero( req_ieos, ae6isoa ) adim_idx = findAero( req_dim, ae6isoa ) aimga_idx = findAero( req_imga, ae6isoa ) aimos_idx = findAero( req_imos, ae6isoa ) Else aietet_idx = 0 aieos_idx = 0 adim_idx = 0 aimga_idx = 0 aimos_idx = 0 ae6isoa = .False. End If If ( Index( mechname, 'CB6R5M_AE7_AQ' ) .Gt. 0 ) Then abr_idx = findAero( req_br, .True. ) marine = .True. Else abr_idx = 0 marine = .False. End If aphgj_idx = findAero( req_phgj, .False. ) If ( aphgj_idx .Gt. 0 ) Then ae6hg = .True. Else aphgj_idx = 0 ae6hg = .False. End If C AORGH2O is not required, but highly recommended for aero7 aorgh2o_idx = findAero( req_orgh2o, .False. ) If ( aorgh2o_idx .Gt. 0 ) Then ae7orgh2o = .True. Else aorgh2o_idx = 0 ae7orgh2o = .False. End If If ( stm ) Then aso4aqh2o2_idx = findAero( req_so4aqh2o2, .True. ) aso4aqo3_idx = findAero( req_so4aqo3, .True. ) aso4aqfemn_idx = findAero( req_so4aqfemn, .True. ) aso4aqmhp_idx = findAero( req_so4aqmhp, .True. ) aso4aqpaa_idx = findAero( req_so4aqpaa, .True. ) aso4gas_idx = findAero( req_so4gas, .True. ) aso4emis_idx = findAero( req_so4emis, .True. ) aso4icbc_idx = findAero( req_so4icbc, .True. ) If ( ( ae6isoa ) .OR. & ( Index( mechname, 'CRACMM1_' ) .Gt. 0 ) .OR. & ( Index( mechname, 'CRACMM2' ) .Gt. 0 ) .OR. & ( Index( mechname, 'CRACMM1AMORE_' ) .Gt. 0 ) .OR. & ( Index( mechname, 'CB6R3_AE7' ) .Gt. 0 ) .OR. & ( Index( mechname, 'CB6R5_AE7' ) .Gt. 0 ) .OR. & ( Index( mechname, 'CB6R5M_AE7' ) .Gt. 0 ) ) Then oso4_idx = findAero( req_oso4, .True. ) oso4aqh2o2_idx = findAero( req_oso4aqh2o2, .True. ) oso4aqo3_idx = findAero( req_oso4aqo3, .True. ) oso4aqfemn_idx = findAero( req_oso4aqfemn, .True. ) oso4aqmhp_idx = findAero( req_oso4aqmhp, .True. ) oso4aqpaa_idx = findAero( req_oso4aqpaa, .True. ) oso4gas_idx = findAero( req_oso4gas, .True. ) oso4emis_idx = findAero( req_oso4emis, .True. ) oso4icbc_idx = findAero( req_oso4icbc, .True. ) EndIf EndIf C Compute common factors h2ofac = 1.0D-9 * f6dpi / Real( aerospc( ah2o_idx )%density, 8 ) C compute aeromode_minNum and aeromode_minM2 so4fac = 1.0E-9 * Real( f6dpi, 4 ) / aerospc( aso4_idx )%density anthfac = 1.0E-9 * Real( f6dpi, 4 ) / aerospc( acors_idx )%density Do m = 1, n_mode If ( m .Lt. n_mode ) Then aeromode_minNum( m ) = aerospc( aso4_idx )%min_conc( m ) / & ( def_diam( m )**3 * Exp( 4.5 * Log( def_sigma_g( m ) )**2 ) ) aeromode_minNum( m ) = aeromode_minNum( m ) * so4fac aeromode_minNum( m ) = Max( aeromode_minNum( m ), conmin ) Else aeromode_minNum( m ) = aerospc( acors_idx )%min_conc( m ) / & ( def_diam( m )**3 * Exp( 4.5 * Log( def_sigma_g( m ) )**2 ) ) aeromode_minNum( m ) = aeromode_minNum( m ) * anthfac aeromode_minNum( m ) = Max( aeromode_minNum( m ), conmin ) End If aeromode_minM2( m ) = aeromode_minNum( m ) * & def_diam( m )**2 * Exp( 2.0 * Log( def_sigma_g( m ) )**2 ) End do ! Substitute Gas and Rxn Counter Names for CGRID names Do spc = 1,n_aerospc If ( aerospc( spc )%gasname .ne. '' ) Then Do l = 1,n_gc_g2ae If ( aerospc( spc )%gasname .eq. gc_g2ae( l ) ) & aerospc( spc )%gasname = gc_spc( gc_g2ae_map(l) ) End Do Do l = 1,n_nr_n2ae If ( aerospc( spc )%gasname .eq. nr_n2ae( l ) ) & aerospc( spc )%gasname = nr_spc( nr_n2ae_map(l) ) End Do End If If ( aerospc( spc )%ctrname .ne. '' ) Then Do l = 1,n_gc_g2ae If ( aerospc( spc )%ctrname .eq. gc_g2ae( l ) ) & aerospc( spc )%ctrname = gc_spc( gc_g2ae_map(l) ) End Do Do l = 1,n_nr_n2ae If ( aerospc( spc )%ctrname .eq. nr_n2ae( l ) ) & aerospc( spc )%ctrname = nr_spc( nr_n2ae_map(l) ) End Do End If End Do ! Exit if Errors are Detected if( AE_eflag )Then Write(logdev,99901) Trim( mechname ) xmsg = 'The FATAL errors found in namelist used. Check ' & // 'the log of exiting processor if more details are needed.' Call m3exit( pname, 0, 0, xmsg, xstat3 ) End If mapped = .True. 99901 Format( 'FATAL Error(s) found in the AE namelist used. Check that' & /' this AE namelist contains the above required data ' & / 'as the file in ' & /'the respository version of the mechanism: ', a ) Return End Subroutine map_aero C----------------------------------------------------------------------- #ifdef sens Subroutine extract_aero( conc, minchk, s_conc, schk ) #else Subroutine extract_aero( conc, minchk ) #endif C Extracts aerosol data into the AERO_DATA:aerospc_conc array C The original idea is that the data for conc comes from CGRID C Also transfers dry surface area to wet 2nd moment. C Revision History: C First version was coded in April 2010 by Steve Howard with C Prakash Bhave, Jeff Young, and Sergey Napelenok. C 4/2016: Updated for 2nd moment by H. Pye and B. Murphy C----------------------------------------------------------------------- Use aeromet_data, only : pi, f6pi ! fundamental constants, data type definitions, etc. Implicit None C Arguments: Real, Intent( In ) :: conc( : ) Logical, Intent( In ) :: minchk #ifdef sens Real, Intent( In ) :: s_conc( :,: ) Logical, Intent( In ) :: schk ! necessary because some routines don't require sensitivity updates #endif C Local Variables: Integer m, n, spc If ( .Not. mapped ) Then Call map_aero() End If #ifdef sens If ( schk ) Then If ( .Not. ae_ddm3d_ready ) Then Call init_aero_ddm3d() End If End If #endif C Copy grid cell concentrations of aero species to aerospc_conc aerospc_conc = 0.0 #ifdef sens If ( schk ) Then s_aerospc_conc = 0.0D0 End If #endif If ( minchk ) Then Do m = 1, n_mode Do spc = 1, n_aerospc n = aerospc_map( spc,m ) If ( n .Ne. 0 ) Then aerospc_conc( spc,m ) = Max( conc( n ), aerospc( spc )%min_conc( m ) ) ! [ug/m^3] #ifdef sens If ( schk ) Then Do np = 1, npmax If ( aerospc_conc( spc,m ) .Eq. aerospc( spc )%min_conc( m ) ) Then s_aerospc_conc( spc,m,np ) = 0.0D0 Else s_aerospc_conc( spc,m,np ) = Real( s_conc( np,n ), 8 ) End If End Do End If #endif End If End Do End Do Else Do m = 1, n_mode Do spc = 1, n_aerospc n = aerospc_map( spc,m ) If ( n .Ne. 0 ) Then aerospc_conc( spc,m ) = conc( n ) ! [ug/m^3] #ifdef sens If ( schk ) Then Do np = 1, npmax s_aerospc_conc( spc,m,np ) = Real( s_conc( np,n ), 8 ) End Do End If #endif End If End Do End Do End If ! Calculate Dry Third Moment [ m3 / m3 ] Do m = 1, n_mode moment3_conc( m ) = sum( aerospc_conc(:,m) / aerospc(:)%density, & MASK= ( ( .NOT. aerospc%no_M2wet ) .AND. & ( .NOT. aerospc%Tracer ) ) ) moment3_conc( m ) = max( moment3_conc( m ) * 1.0E-9 * f6pi, & aeromode( m )%min_m3conc ) End Do C Copy grid cell concentrations of aero # and surf area C Convert surface area to M2 and set wet_moments_flag moment0_conc = 0.0 moment2_conc = 0.0 If ( minchk ) Then Do m = 1, n_mode n = aeronum_map( m ) moment0_conc( m ) = Max( conc( n ), aeromode( m )%min_numconc ) n = aerosrf_map( m ) moment2_conc( m ) = Max( conc( n ) / pi, aeromode( m )%min_m2conc ) End Do Else Do m = 1, n_mode n = aeronum_map( m ) moment0_conc( m ) = conc( n ) n = aerosrf_map( m ) moment2_conc( m ) = conc( n ) / pi End Do End If wet_moments_flag = .false. C Convert dry 2,3 moment to wet 2,3 moment C flag will be set to .true. Call calcmoments( .true. ) Return End Subroutine extract_aero C----------------------------------------------------------------------- #ifdef sens Subroutine update_aero( conc, minchk, s_conc ) #else Subroutine update_aero( conc, minchk ) #endif C Updates conc from the AERO_DATA:aerospc_conc array. C The original idea is that the data in conc updates CGRID C Update_aero now also saves the updated surface area back to CGRID as C well. Moment2 will be dried if necessary and flag reset. C Revision History: C First version was coded in April 2010 by Steve Howard with C Prakash Bhave, Jeff Young, and Sergey Napelenok. C 4/2016: Updated for 2nd moment by H. Pye and B. Murphy C----------------------------------------------------------------------- Use aeromet_data, only : pi ! fundamental constants, data type definitions, etc. Implicit None C Arguments: Real, Intent( Out ) :: conc( : ) Logical, Intent( In ) :: minchk #ifdef sens Real, Intent( Out ) :: s_conc( :,: ) #endif C Local variables: Character( 80 ) :: xmsg Integer m, n, spc If ( .Not. mapped ) Then xmsg = 'CGRID Species has not been mapped' Call m3exit( pname, 0, 0, xmsg, xstat3 ) End If C Copy aerospc_conc back to grid cell concentrations If ( minchk ) Then Do m = 1, n_mode Do spc = 1, n_aerospc n = aerospc_map( spc,m ) If ( n .Ne. 0 ) Then conc( n ) = Max( aerospc_conc( spc,m ), aerospc( spc )%min_conc( m ) ) #ifdef sens Do np = 1, npmax If ( conc( n ) .Eq. aerospc( spc )%min_conc( m ) ) Then s_conc( np,n ) = 0.0 Else s_conc( np,n ) = Real( s_aerospc_conc( spc,m,np ), 4 ) End If End Do #endif End If End Do End Do Else Do m = 1, n_mode Do spc = 1, n_aerospc n = aerospc_map( spc,m ) If ( n .Ne. 0 ) Then conc( n ) = aerospc_conc( spc,m ) #ifdef sens Do np = 1, npmax s_conc( np,n ) = Real( s_aerospc_conc( spc,m,np ), 4 ) End Do #endif End If End Do End Do End If C Copy aero number and surface area back to grid cell concentrations If ( minchk ) Then Do m = 1, n_mode n = aeronum_map( m ) conc( n ) = Max( moment0_conc( m ), aeromode( m )%min_numconc ) End Do Else Do m = 1, n_mode n = aeronum_map( m ) conc( n ) = moment0_conc( m ) End Do End If C Save dry second moment to surface area (with pi conversion) If ( wet_moments_flag ) Then Call calcmoments( .False. ) ! called with the F flag, returns dry moments End If Do m = 1, n_mode n = aerosrf_map( m ) conc( n ) = Real( pi, 4 ) * moment2_conc( m ) End Do Return End Subroutine update_aero C----------------------------------------------------------------------- Function findAero( vname, required ) Result ( idx ) C Finds the index of 'required' aerosol species in the aerospc list C Revision History: C First version was coded in April 2010 by Steve Howard with C Prakash Bhave, Jeff Young, and Sergey Napelenok. C----------------------------------------------------------------------- Implicit None C Arguments: Character( 16 ) :: vname Logical :: required Integer :: idx C Local Variables: Character( 80 ) :: xmsg Integer spc, n idx = 0 C Find the substring vname in aerospc( spc )%name( n ) Do spc = 1, n_aerospc If ( aerospc( spc )%bulkname .eq. vname ) Then idx = spc Return End If Do n = 1, n_mode If ( aerospc( spc )%name( n ) .eq. vname ) Then idx = spc Return End If End Do End Do If ( .Not. required ) Then xmsg = 'Optional Species ' & // Trim( vname ) // ' Not found in AE namelist.' write(logdev,'(5x,a)') xmsg Return End If xmsg = 'Required Species ' // Trim( vname ) // & ' Not found in AE namelist' AE_eflag = .True. Call m3warn( pname, 0, 0, xmsg ) Return End Function findAero C----------------------------------------------------------------------- Subroutine calcmoments( addwet ) C Subroutine calculates wet (addwet=T) or dry (addwet=F) aerosol third C and second moment and stores them in moment_conc arrays and C updates wet_moments_flag. C Note that third moment information will be overwritten no matter what C the wet_moments_flag indicates. M2 will depend on the history C of the moment (wet_moments_flag). This routine will not update C M2 in the event of added mass due to processes other than C wetting/drying. C C Notes: C wet_moments_flag is obtained from AERO_DATA ! true = H2O and SOA included in 2,3 moment C ! false = H2O and SOA excluded from 2,3 moment C wet_moments_flag reflects the current state of the moment2,3_conc arrays. C addwet will results in wet (T) or dry (F) moments. C C History: C 4/2016: HOT Pye Created routine C C----------------------------------------------------------------------- Use aeromet_data, only: f6dpi, f6pi Implicit None C Arguments: Logical :: addwet ! T: result in wet m3 and m2, F: result in dry m3 and m2 C Parameters: Real( 8 ), Parameter :: two3rds = 2.0D0 / 3.0D0 C Local variables: Integer :: spc, n ! loop variable Real( 4 ) :: m3( n_mode ) ! wet or dry M3 Real( 4 ) :: m2( n_mode ) ! wet or dry M2 Real( 8 ) :: drysumM3 ! dry M3 [ m**3 / m**3 ] Real( 8 ) :: wetsumM3 ! wet M3 [ m**3 / m**3 ] Real( 8 ) :: factor Real( 4 ) :: initialM3 ! initial M3 from moment3_conc [ m**3 /m**3 ] Real( 4 ) :: initialM2 ! initial M2 from moment2_conc [ m**2 /m**3 ] Character( 16 ) :: pname_loc = 'CalcMoments' Character( 100 ) :: xmsg C *** Calculate aerosol 3rd moment concentrations [ m**3 / m**3 ], 2nd C moment [ m**2/m**3 ] If( addwet ) then Do n = 1, n_mode initialM2 = moment2_conc( n ) If ( initialM2 .Eq. 0.0 ) Then write( xmsg,'(A32,I1,A42)') "Warning: Second Moment for Mode ", & n," is 0.0. This will cause numerical issues." Call m3warn( pname_loc, 0, 0, xmsg ) End If initialM3 = max( moment3_conc( n ), aeromode( n )%min_m3conc ) If ( initialM3 .Eq. 0.0 ) Then write( xmsg,'(A31,I1,A42)') "Warning: Third Moment for Mode ", & n," is 0.0. This will cause numerical issues." call m3warn( pname_loc, 0, 0, xmsg ) End If wetsumM3 = 0.0d0 Do spc = 1, n_aerospc If ( aerospc( spc )%tracer .Or. aero_missing(spc,n) ) Cycle factor = Real( 1.0E-9 * f6pi / aerospc( spc )%density, 8 ) wetsumM3 = wetsumM3 + factor * Real( aerospc_conc( spc,n ), 8 ) End Do m3( n ) = Max ( Real( wetsumM3, 4 ), aeromode( n )%min_m3conc ) If ( wet_moments_flag ) Then m2( n ) = initialM2 Else m2( n ) = initialM2 * ( Real( wetsumM3, 4 ) / initialM3 ) ** Real( two3rds, 4 ) End if End Do ! Save back to aero_data variables moment2_conc( : ) = m2( : ) moment3_conc( : ) = m3( : ) wet_moments_flag = .True. Else ! produce dry moments Do n = 1, n_mode initialM2 = moment2_conc( n ) If ( initialM2 .Eq. 0.0 ) Then write( xmsg,'(A32,I1,A42)') "Warning: Second Moment for Mode ", & n," is 0.0. This will cause numerical issues." Call m3warn( pname_loc, 0, 0, xmsg ) End If initialM3 = max( moment3_conc( n ), aeromode( n )%min_m3conc ) If ( initialM3 .Eq. 0.0 ) Then write( xmsg,'(A31,I1,A42)') "Warning: Third Moment for Mode ", & n," is 0.0. This will cause numerical issues." Call m3warn( pname_loc, 0, 0, xmsg ) End If drysumM3 = 0.0d0 Do spc = 1, n_aerospc If ( aerospc( spc )%tracer .Or. aero_missing(spc,n) .Or. & aerospc( spc )%no_M2Wet ) Cycle factor = Real( 1.0E-9 * f6pi / aerospc( spc )%density, 8 ) drysumM3 = drysumM3 + factor * Real( aerospc_conc( spc,n ), 8 ) End Do m3( n ) = Max ( Real( drysumM3, 4 ), aeromode( n )%min_m3conc ) If ( wet_moments_flag) Then m2( n ) = initialM2 * ( Real( drysumM3, 4 ) / initialM3 ) ** Real( two3rds, 4 ) Else ! already dry m2( n ) = initialM2 End If End Do ! Save back to aero_data variables moment2_conc( : ) = m2( : ) moment3_conc( : ) = m3( : ) wet_moments_flag = .False. End If Return End Subroutine calcmoments C C----------------------------------------------------------------------- Subroutine CHECK_AERO_ICBC( IBCON0, LM2WET, USE_M2, IS_BC, & L_WRITE_WARNING, COL, ROW, LAY ) C Subroutine checks that all size distributions from boundary and C initial conditions are within tolerances for diameter and mode C width. If any parameters are out of range or particle number or mass C are neglgible, this routine will enforce default parameters and C recalculate all three moments so that calculations in subsequent C modules are stable. C C Inputs: IBCON - the actual initial or boundary condition vector of C concentrations from the calling routine C LM2WET - Logical identifying if the second moment of the C distribution is dry or wet. False = Dry. 'Wet' C aerosol includes species for which the variable C no_M2Wet is set to True in the aerolist. C USE_M2 - Logical prescribing whether or not to use C the second moment from the input IC or BC file. C True = use the 2nd moment input from the file. C IS_BC - TRUE if this is for BCs, FALSE for ICs C L_WRITE_WARNING - Should a warning be printed if a size C distribution fails C C 11 May 16 B.Murphy Program Written C C----------------------------------------------------------------------- Use AEROMET_DATA, only : pi, f6pi Use CGRID_SPCS, only : N_AE_TRNS, N_AE_SPC Use HGRD_DEFN, ONLY : NROWS, NCOLS #ifndef mpas #ifdef parallel USE SE_MODULES ! stenex (using SE_COMM_MODULE, SE_UTIL_MODULE) #else USE NOOP_MODULES ! stenex (using NOOP_COMM_MODULE, NOOP_UTIL_MODULE) #endif #endif Implicit None REAL, INTENT(INOUT) :: IBCON0( : ) LOGICAL, INTENT( IN ) :: LM2WET ! FALSE (Default) for Dry distribution parameters ! TRUE for Wet distribution parameters LOGICAL, INTENT( IN ) :: USE_M2 ! TRUE (Default) to use second moment from input file ! FALSE to ignore and overwrite M2 from input ! file LOGICAL, INTENT( IN ) :: IS_BC ! TRUE if BCON called this routine. ! FALSE if ICON called it LOGICAL, INTENT( INOUT ) :: L_WRITE_WARNING ! TRUE if warning should be printed ! when size distribution fails tests INTEGER, INTENT( IN ) :: COL, ROW, LAY INTEGER :: LSTAT( N_MODE ) ! 0 - Distribution is ok ! Nonzero values indicate problem with ! modal parameters. See below ! | Before After REAL(8) :: AER_PAR( 2, N_MODE, 8 ) !Track the modal parameters! | N, N !before and after the IC/BC! | M2WET, M2WET !check routine ! | M2DRY, M2DRY ! | M3WET, M3WET ! | M3DRY, M3DRY ! | dgwet, dgwet ! | dgdry, dgdry ! | sigma, sigma INTEGER, SAVE :: J, SFX, EFX, NFX, WFX LOGICAL, SAVE :: BNDY_PE_LOY, BNDY_PE_HIY, & BNDY_PE_LOX, BNDY_PE_HIX LOGICAL, SAVE :: FIRST_TIME = .TRUE. LOGICAL :: LBC REAL(8), PARAMETER :: F1PI = 1.d0 / REAL(pi,8) REAL(8), PARAMETER :: ONE_THIRD = 1.0d0 / 3.0d0 REAL(8), PARAMETER :: TWO_THIRDS = 2.0d0 / 3.0d0 CHARACTER( 199 ) :: XMSG2 = ' ' ! Definition of Distribution Error Statuses (LSTAT): ! 0 = All Parameters within Limits ! 4 = Standard Deviation is just barely invalid. ! Reset Surface Area but don't warn. (i.e. 1.04999 vs. 1.05) ! 5 = Diameter is just barely invalid but Standard Deviation ! is valid. Reset Number and Surface Area but don't warn. ! 6 = Diameter and Standard Deviation are barely invalid. ! Reset Number and Surface Area but don't warn. ! 11 = Mass is below limit. Reset distribution to minimum valid ! concentration (i.e. conmin). ! 12 = Number is below limit. Reset number and Surface Area ! 13 = Surface Area is below limit but diameter is valid. ! Set standard deviation to default (def_l2sg) and reset ! Surface Area. ! 14 = Standard Deviation is invalid. Reset Surface Area. ! 15 = Diameter is invalid but Standard Deviation is valid. ! Reset Number and Surface Area. ! 16 = Diameter and Standard Deviation are invalid. Reset ! Number and Surface Area. C Local variables: INTEGER :: IMODE, IT, IS REAL(8), ALLOCATABLE :: IBCON(:) REAL(8) :: NUM, M2, M3, M3DRY, M3WET, M2WET, M2DRY, & l2sg, dg, dgdry, dgwet, sg, l2sg_new REAL, Parameter :: KGPMG = 1.0E-9 !Kilogram per microgram m-3 IF ( FIRST_TIME ) THEN FIRST_TIME = .FALSE. #ifndef mpas ! Retrieve Info about boundary cells CALL SUBST_HI_LO_BND_PE ( 'R', BNDY_PE_LOY, BNDY_PE_HIY ) CALL SUBST_HI_LO_BND_PE ( 'C', BNDY_PE_LOX, BNDY_PE_HIX ) #endif SFX = 0 EFX = NCOLS + 1 NFX = NCOLS + NROWS + 3 WFX = 2 * NCOLS + NROWS + 4 END IF ! First Determine Whether or Not this is a true Boundary ! Condition Processor and GridCell IF ( IS_BC ) THEN LBC = .FALSE. IF ( BNDY_PE_LOY .AND. ROW .GT. SFX .AND. & ROW .LE. SFX+NCOLS ) LBC = .TRUE. IF ( BNDY_PE_HIX .AND. ROW .GT. EFX .AND. & ROW .LE. EFX+NROWS ) LBC = .TRUE. IF ( BNDY_PE_HIY .AND. ROW .GT. NFX .AND. & ROW .LE. NFX+NCOLS ) LBC = .TRUE. IF ( BNDY_PE_LOX .AND. ROW .GT. WFX .AND. & ROW .LE. WFX+NROWS ) LBC = .TRUE. IF ( .NOT. LBC ) RETURN END IF ! Initialize Aerosol ICBC Check Routine LSTAT = 0 AER_PAR = 0.0d0 dg = 0.0d0 sg = 0.0d0 CALL MAP_AERO() ALLOCATE( IBCON( SIZE(IBCON0) ) ) IBCON = REAL( IBCON0, 8 ) !Loop Through Each Aerosol Mode. Sum up the third moment, then calculate !the Dg and Sg of the mode and check to make sure they are valid. When !checking Dg, use wet or dry diameter limits depending on the state of !the incoming (initial or boundary) size distribution. DO IMODE = 1,N_MODE IF ( IS_BC ) THEN ! IBCON is stored in order of Transported Aerosols NUM = SUM( IBCON( : ), MASK = ( L_AETR_MODE( IMODE,: ) .AND. L_AETR_NUM ) ) M2 = SUM( IBCON( : ), MASK = ( L_AETR_MODE( IMODE,: ) .AND. L_AETR_SRF ) ) * F1PI M3DRY = SUM( IBCON( : ) * REAL( AEROCGRID_RHOINV * F6PI, 8), & MASK = ( L_AETR_MASS .AND. L_AETR_MODE( IMODE,: ) & .AND. L_AETR_DRY ) ) M3WET = SUM( IBCON( : ) * REAL( AEROCGRID_RHOINV * F6PI, 8), & MASK = ( L_AETR_MASS .AND. L_AETR_MODE( IMODE,: ) ) ) ELSE ! IBCON is stored in order of CGRID NUM = SUM( IBCON( : ), MASK = ( L_AESP_MODE( IMODE,: ) .AND. L_AESP_NUM ) ) M2 = SUM( IBCON( : ), MASK = ( L_AESP_MODE( IMODE,: ) .AND. L_AESP_SRF ) ) * F1PI M3DRY = SUM( IBCON( : ) * REAL( AEROCGRID_RHOINV * F6PI, 8), & MASK = ( L_AESP_MASS .AND. L_AESP_MODE( IMODE,: ) & .AND. L_AESP_DRY ) ) M3WET = SUM( IBCON( : ) * REAL( AEROCGRID_RHOINV * F6PI, 8), & MASK = ( L_AESP_MASS .AND. L_AESP_MODE( IMODE,: ) ) ) END IF ! Store M2 as Wet or Dry IF ( LM2WET ) THEN M2WET = M2 M2DRY = 0. ELSE M2WET = 0. M2DRY = M2 END IF ! If checking Boundary Conditions, the concentrations are ! already in kilograms, thus we do not need to convert them ! before applying aerosol density (kg m-3). If checking Initial ! Conditions, we do need to convert micrograms to kilograms. IF ( .NOT. IS_BC ) THEN M3WET = M3WET * REAL( KGPMG,8) M3DRY = M3DRY * REAL( KGPMG,8) END IF AER_PAR ( 1, IMODE, 1 ) = NUM AER_PAR ( 1, IMODE, 2 ) = M2WET AER_PAR ( 1, IMODE, 3 ) = M2DRY AER_PAR ( 1, IMODE, 4 ) = M3WET AER_PAR ( 1, IMODE, 5 ) = M3DRY AER_PAR ( 1, IMODE, 6 ) = 0. AER_PAR ( 1, IMODE, 7 ) = 0. AER_PAR ( 1, IMODE, 8 ) = 0. ! Begin Checking Aerosol Parameters. IF ( M3DRY .LT. 1.1e-30 .OR. M3WET .LT. 1.1e-30 ) THEN ! Dry or Wet Mass is below limit -> reset distribution LSTAT( IMODE ) = 11 ! Set Problematic Aerosol Mass to Minimum valid ! concentration (i.e. conmin) in Output Vector IF ( IS_BC ) THEN DO IT = 1,N_AE_TRNS IF ( L_AETR_MODE( IMODE,IT ) .AND. L_AETR_MASS( IT ) ) & IBCON(IT) = MAX( IBCON(IT), CONMIND ) END DO M3DRY = SUM( IBCON( : ) * REAL(AEROCGRID_RHOINV * F6PI,8), & MASK = ( L_AETR_MASS .AND. L_AETR_MODE( IMODE,: ) & .AND. L_AETR_DRY ) ) M3WET = SUM( IBCON( : ) * REAL(AEROCGRID_RHOINV * F6PI,8), & MASK = ( L_AETR_MASS .AND. L_AETR_MODE( IMODE,: ) ) ) ELSE DO IS = 1,N_AE_SPC IF ( L_AESP_MODE( IMODE,IS ) .AND. L_AESP_MASS( IS ) ) & IBCON(IS) = MAX( IBCON(IS), CONMIND ) END DO M3DRY = SUM( IBCON( : ) * REAL(AEROCGRID_RHOINV * F6PI,8), & MASK = ( L_AESP_MASS .AND. L_AESP_MODE( IMODE,: ) & .AND. L_AESP_DRY ) ) M3WET = SUM( IBCON( : ) * REAL(AEROCGRID_RHOINV * F6PI,8), & MASK = ( L_AESP_MASS .AND. L_AESP_MODE( IMODE,: ) ) ) END IF L2SG = REAL( DEF_L2SG( IMODE ),8) SG = EXP( SQRT( L2SG ) ) DGDRY = REAL( DEF_DIAM( IMODE ),8) ! Dry Diameter Default NUM = M3DRY * ( EXP( -4.5 * L2SG ) ) / ( DGDRY ) ** 3 M2DRY = EXP( ONE_THIRD * LOG( NUM ) + TWO_THIRDS * LOG( M3DRY ) - L2SG ) DGWET = ( M3WET / NUM * EXP( -4.5 * L2SG ) ) ** ( ONE_THIRD ) M2WET = EXP( ONE_THIRD * LOG( NUM ) + TWO_THIRDS * LOG( M3WET ) - L2SG ) ELSE IF ( NUM .LT. 1.1e-30 ) THEN ! Number is below limit -> reset Num and Surf with ! default dry diameter and default standard deviation LSTAT( IMODE ) = 12 L2SG = REAL( DEF_L2SG( IMODE ), 8) SG = EXP( SQRT( L2SG ) ) DGDRY = REAL( DEF_DIAM( IMODE ), 8) ! Dry Diameter Default NUM = M3DRY * ( EXP( -4.5 * L2SG ) ) / ( DGDRY ) ** 3 M2DRY = EXP( ONE_THIRD * LOG( NUM ) + TWO_THIRDS * LOG( M3DRY ) - L2SG ) DGWET = ( M3WET / NUM * EXP( -4.5 * L2SG ) ) ** ( ONE_THIRD ) M2WET = EXP( ONE_THIRD * LOG( NUM ) + TWO_THIRDS * LOG( M3WET ) - L2SG ) ELSE IF ( M2 .LT. 1.1e-30 .OR. .NOT. USE_M2 ) THEN ! Mass and Number are valid. Surface area is either invalid ! or the user has issued an override. The mass and number ! concentrations specify the dry and wet diameters, and the ! second moment will be generated by assuming a ! representative sigma. LSTAT( IMODE ) = 13 L2SG = REAL( DEF_L2SG( IMODE ), 8) SG = EXP( SQRT( L2SG ) ) DGDRY = ( M3DRY / NUM * EXP( -4.5 * L2SG ) ) ** ( ONE_THIRD ) M2DRY = EXP( ONE_THIRD * LOG( NUM ) + TWO_THIRDS * LOG( M3DRY ) - L2SG ) DGWET = ( M3WET / NUM * EXP( -4.5 * L2SG ) ) ** ( ONE_THIRD ) M2WET = EXP( ONE_THIRD * LOG( NUM ) + TWO_THIRDS * LOG( M3WET ) - L2SG ) ELSE ! All three moments are possibly valid. ! Diagnose and Check Standard Deviation IF ( LM2WET ) THEN L2SG = ( ONE_THIRD * LOG( NUM ) + TWO_THIRDS * LOG( M3WET ) - LOG( M2WET )) ELSE L2SG = ( ONE_THIRD * LOG( NUM ) + TWO_THIRDS * LOG( M3DRY ) - LOG( M2DRY )) END IF sg = 1.0d0 IF ( L2SG .gt. 0.0d0 ) SG = EXP( SQRT( L2SG ) ) AER_PAR( 1, IMODE, 8 ) = SG IF ( (L2SG .LT. REAL( MIN_L2SG,8) .AND. L2SG .GT. 0.95d0 * REAL(MIN_L2SG,8)) .OR. & (L2SG .GT. REAL( MAX_L2SG,8) .AND. L2SG .LT. 1.05d0 * REAL(MAX_L2SG,8)) ) THEN ! Standard deviation is barely invalid. Don't trigger warning LSTAT( IMODE ) = 4 ELSE IF ( L2SG .LT. REAL( 0.95*MIN_L2SG,8) .OR. L2SG .GT. REAL(1.05*MAX_L2SG,8) ) THEN ! Standard deviation is invalid. Reset Standard Deviation LSTAT( IMODE ) = 14 END IF L2SG = MIN( MAX( L2SG, REAL(MIN_L2SG,8) ), REAL(MAX_L2SG,8) ) SG = EXP( SQRT( L2SG ) ) ! Diagnose and Check Dry Diameter against Limits DGDRY = ( M3DRY / NUM * EXP( -4.5 * L2SG ) ) ** ( ONE_THIRD ) AER_PAR( 1, IMODE, 7 ) = DGDRY DGWET = ( M3WET / NUM * EXP( -4.5 * L2SG ) ) ** ( ONE_THIRD ) AER_PAR( 1, IMODE, 6 ) = DGWET IF ( (DGDRY .GT. REAL(0.95*MIN_DG_DRY(IMODE),8) .AND. DGDRY .LT. REAL(MIN_DG_DRY(IMODE),8)) .OR. & (DGDRY .GT. REAL(MAX_DG_DRY(IMODE),8) .AND. DGDRY .LT. REAL(1.05*MAX_DG_DRY(IMODE),8)) ) THEN ! Diameter is barely invalid. Don't trigger warning IF ( LSTAT( IMODE ) .EQ. 4 ) THEN LSTAT( IMODE ) = 6 ! Both sg and dg are barely invalid ELSE IF (LSTAT( IMODE ) .EQ. 0 ) THEN LSTAT( IMODE ) = 5 ! Just dg is barely invalid END IF ELSE IF ( DGDRY .LT. REAL(0.95*MIN_DG_DRY( IMODE ),8) .OR. & DGDRY .GT. REAL(1.05*MAX_DG_DRY(IMODE) ,8 ) ) THEN ! Diameter is invalid. Reset Diameter IF ( LSTAT( IMODE ) .EQ. 4 .OR. LSTAT( IMODE ) .EQ. 12 ) THEN LSTAT( IMODE ) = 16 ! Both dg and sg are invalid ELSE IF ( LSTAT( IMODE ) .EQ. 0 ) THEN LSTAT( IMODE ) = 15 ! Just dg is invalid END IF ENDIF DGDRY = MIN( MAX( DGDRY, MIN_DG_DRY(IMODE) ), MAX_DG_DRY(IMODE) ) ! Recalculate Number IF ( LSTAT( IMODE ) .GT. 0 ) & NUM = M3DRY * ( EXP( -4.5 * L2SG ) ) / ( DGDRY ) ** 3 ! Recalculate Dry Second Moment M2DRY = EXP( ONE_THIRD * LOG( NUM ) + TWO_THIRDS * LOG( M3DRY ) - L2SG ) ! Recalculate Wet Distribution Parameters DGWET = ( M3WET / NUM * EXP( -4.5 * L2SG ) ) ** ( ONE_THIRD ) M2WET = EXP( ONE_THIRD * LOG( NUM ) + TWO_THIRDS * LOG( M3WET ) - L2SG ) ENDIF ! Export Number Concentration and Surface Area Concentration IF ( LM2WET ) THEN M2 = M2WET ELSE M2 = M2DRY END IF IF ( IS_BC ) THEN DO IT = 1,N_AE_TRNS IF ( L_AETR_MODE( IMODE,IT ) .AND. L_AETR_NUM( IT ) ) IBCON0(IT) = REAL(NUM,4) IF ( L_AETR_MODE( IMODE,IT ) .AND. L_AETR_SRF( IT ) ) IBCON0(IT) = REAL(M2,4) * PI END DO ELSE DO IS = 1,N_AE_SPC IF ( L_AESP_MODE( IMODE,IS ) .AND. L_AESP_NUM( IS ) ) IBCON0(IS) = REAL(NUM,4) IF ( L_AESP_MODE( IMODE,IS ) .AND. L_AESP_SRF( IS ) ) IBCON0(IS) = REAL(M2,4) * PI END DO END IF !Save Modal Properties After the Check AER_PAR( 2, IMODE, 1 ) = NUM AER_PAR( 2, IMODE, 2 ) = M2WET AER_PAR( 2, IMODE, 3 ) = M2DRY AER_PAR( 2, IMODE, 4 ) = M3WET AER_PAR( 2, IMODE, 5 ) = M3DRY AER_PAR( 2, IMODE, 6 ) = DGWET AER_PAR( 2, IMODE, 7 ) = DGDRY AER_PAR( 2, IMODE, 8 ) = SG !Print warning if any aerosol BC or IC violated the size !distribution parameters IF ( LSTAT( IMODE ) .GT. 10 ) THEN IF ( IS_BC ) THEN IF ( L_WRITE_WARNING ) THEN L_WRITE_WARNING = .FALSE. WRITE( XMSG2, '(A)' ), & 'ATTENTION: Applying fix to aerosol Boundary' // & ' Conditions for aerosol modes.' // & ' Set verbose_rdbcon preprocessor flag to' // & ' learn more.' WRITE( LOGDEV, * ) CALL LOG_MESSAGE( LOGDEV, XMSG2 ) WRITE( LOGDEV, * ) END IF #ifdef verbose_rdbcon WRITE( LOGDEV,* ) WRITE ( LOGDEV,'(7x,A55,I1,/,9x,A10,I4,A7,I3,A10,I2,/,7x,A20,I1,A42,/,9x,A51,/, & 9x,A19,1x,A3,8x,A5,8x,A5,8x,A5,8x,A5,8x,A5,8x,A5,8x,A2,/, & 27x,E11.3,1x,E11.3,1x,E11.3,1x,E11.3,1x,E11.3,1x,E11.3,1x,E11.3,4x,F7.3,/, & 9x,A19,1x,A3,8x,A5,8x,A5,8x,A5,8x,A5,8x,A5,8x,A5,8x,A2,/, & 27x,E11.3,1x,E11.3,1x,E11.3,1x,E11.3,1x,E11.3,1x,E11.3,1x,E11.3,4x,F7.3)'), & 'Warning: Applying Aerosol Boundary Conditions for mode ',IMODE, & 'BC Index: ',ROW,' Lay: ',LAY,' Status: ',LSTAT(IMODE), & 'The Offending Mode (',IMODE,') had diameter and/or sigma out of bounds.', & 'It was overwritten by changing the Num and SrfArea.', & 'Modal Props Before:','Num','M2WET','M2DRY','M3WET','M3DRY','DGWET','DGDRY','Sg',(AER_PAR(1,IMODE,j),j=1,8), & 'Modal Props After: ','Num','M2WET','M2DRY','M3WET','M3DRY','DGWET','DGDRY','Sg',(AER_PAR(2,IMODE,j),j=1,8) WRITE( LOGDEV,* ) #endif ELSE IF ( L_WRITE_WARNING ) THEN L_WRITE_WARNING = .FALSE. WRITE( XMSG2, '(A)' ), & 'ATTENTION: Applying fix to aerosol Initial' // & ' Conditions for aerosol modes.' // & ' Set verbose_loadcgrid preprocessor flag to' // & ' learn more.' WRITE( LOGDEV, * ) CALL LOG_MESSAGE( LOGDEV, XMSG2 ) WRITE( LOGDEV, * ) END IF #ifdef verbose_loadcgrid WRITE( LOGDEV, * ) WRITE ( logdev, '(7x,A55,I1,/,9x,A5,I3,A7,I3,A7,I3,A10,I2,/,7x,A20,I1,A42,/,9x,A51,/, & 9x,A19,1x,A3,8x,A5,8x,A5,8x,A5,8x,A5,8x,A5,8x,A5,8x,A2,/, & 27x,E11.3,1x,E11.3,1x,E11.3,1x,E11.3,1x,E11.3,1x,E11.3,1x,E11.3,4x,F7.3,/, & 9x,A19,1x,A3,8x,A5,8x,A5,8x,A5,8x,A5,8x,A5,8x,A5,8x,A2,/, & 27x,E11.3,1x,E11.3,1x,E11.3,1x,E11.3,1x,E11.3,1x,E11.3,1x,E11.3,4x,F7.3)'), & 'Warning: Applying Aerosol Initial Conditions for mode ',IMODE, & 'Col: ',COL,' Row: ',ROW,' Lay: ',LAY,' Status: ',LSTAT(IMODE), & 'The Offending Mode (',IMODE,') had diameter and/or sigma out of bounds.', & 'It was overwritten by changing the Num and SrfArea.', & 'Modal Props Before:','Num','M2WET','M2DRY','M3WET','M3DRY','DGWET','DGDRY','Sg',(AER_PAR(1,IMODE,j),j=1,8), & 'Modal Props After: ','Num','M2WET','M2DRY','M3WET','M3DRY','DGWET','DGDRY','Sg',(AER_PAR(2,IMODE,j),j=1,8) WRITE( LOGDEV,* ) #endif END IF ENDIF ENDDO End Subroutine CHECK_AERO_ICBC !----------------------------------------------------------------------- Subroutine CALC_AERODIST_PARAMS( INIT_TIME ) ! Subroutine calculates the wet and then dry aerosol distribution parameters ! and stores them in public arrays to be passed to the diagnostic ! array. !----------------------------------------------------------------------- IMPLICIT NONE LOGICAL, INTENT( IN ) :: INIT_TIME CALL CALCMOMENTS( .TRUE. ) CALL GETPAR( FIXED_sg ) WET_AERO_DIAM( : ) = AEROMODE_DIAM( : ) * 1.0E6 ! um WET_AERO_M2 ( : ) = MOMENT2_CONC( : ) WET_AERO_M3 ( : ) = MOMENT3_CONC( : ) WET_AERO_DENS( : ) = AEROMODE_DENS( : ) CALL CALCMOMENTS( .FALSE. ) CALL GETPAR( FIXED_sg ) DRY_AERO_DIAM( : ) = AEROMODE_DIAM( : ) * 1.0E6 ! um DRY_AERO_M2 ( : ) = MOMENT2_CONC( : ) DRY_AERO_M3 ( : ) = MOMENT3_CONC( : ) DRY_AERO_DENS( : ) = AEROMODE_DENS( : ) END SUBROUTINE CALC_AERODIST_PARAMS End Module aero_data ================================================ FILE: CCTM/src/aero/aero6/AERO_EMIS.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: MODULE AERO_EMIS C Emissions data and code required for the modal aerosol module in CMAQ C Based on original codes by Dr. Francis S. Binkowski and J. Young C Dependent Upon: NONE C Revision History: C 30 Aug 01 J.Young: dyn alloc - Use HGRD_DEFN C 09 Oct 03 J.Gipson: added MW array for AE emis species to module contents C 31 Jan 05 J.Young: dyn alloc - establish both horizontal & vertical C domain specifications in one module, GRID_CONF C 26 Apr 05 P.Bhave: removed code supporting the "old type" of emission C files that had unspeciated PM10 and PM2.5 only C removed need for 'AERO_SPC.EXT' by declaring the C required variables locally C 13 Jun 05 P.Bhave: added vars needed for sea-salt emission processing C inherit N_AE_EMIS,AE_EMIS,AE_EMIS_MAP from AE_EMIS.EXT C moved RHO* parameters from RDEMIS_AE to this module C for use by SSEMIS routine C 24 Aug 07 J.Young: Modified to enable in-line plume rise calculation for C 3D pt source emissions. Distinguish between PM (primary, C unspeciated, file data) and AE (model speciated). Re- C named RDEMIS_AE to GET_AERO_EMIS. C 11 Apr 08 J.Kelly: added code to emit coarse surface area C 4 Jan 10 J.Young: restructure; eliminate ref to older AERO versions C 21 Feb 10 J.Young: move sea salt emissions to its own module (SSEMIS) C 23 Apr 10 J.Young: replace include files with mechanism namelists C 30 Apr 10 J.Young: update to use aero_reeng by Steve Howard, Prakash Bhave, C Jeff Young, and Sergey Napelenok C 23 Jul 10 D.Wong: remove CLOSE3 and BARRIER C 24 Feb 11 J.Young: Reorganized module with initialization and timestepping C procedures C 25 Feb 11 J.Young: add windblown dust module C 25 Mar 11 S.Roselle: replaced I/O API include files with UTILIO_DEFN C 11 May 11 D.Wong: incorporated twoway model implementation C 18 Aug 11 David Wong: In the merge inline point source PM species calculation, C arrays EMBUFF and PMEMIS_PT have incorrect index values C 17 Apr 13 J.Young: replace "SPFC ASO4" (found by Havala Pye) with "SPFC_ASO4" C 07 Nov 14 J.Bash: Updated for the ASX_DATA_MOD shared data module. C----------------------------------------------------------------------- USE AERO_DATA, ONLY: DESID_N_AERO_REF, N_MODE USE DESID_VARS, ONLY: DESID_LAYS, DESID_STREAM_AERO, DESID_N_SRM, CELLVOL IMPLICIT NONE SAVE C aerosol emissions: [ppmv/s] for mass & number spcs, [m2/mol/s] for surface area spcs PUBLIC DESID_SIZE_DIST, AERO_EMIS_INIT, DESID_INIT_SIZE_DIST, & MAP_ISTRtoAERO, MAP_ISTRtoMODE, MAP_NUMtoISTR, MAP_SRFtoISTR, & MAP_ISTRtoNUM, MAP_ISTRtoSRF, MAP_ISTRtoSD, DESID_STREAM_AERO, & SD_SPLIT PRIVATE C Variables for converting mass emissions rate to number emissions rate REAL :: FACNUM( DESID_N_AERO_REF,N_MODE ) C Variables for converting mass emissions rate to 2nd moment emissions rate REAL :: FACSRF( DESID_N_AERO_REF,N_MODE ) C Variables for Saving split factors between emission modes REAL, ALLOCATABLE :: SD_SPLIT( :,: ) C Emission rate of all aerosol species interpolated to current time INTEGER, ALLOCATABLE :: MAP_ISTRtoAERO( : ) INTEGER, ALLOCATABLE :: MAP_ISTRtoMODE( : ) INTEGER, ALLOCATABLE :: MAP_NUMtoISTR ( : ) INTEGER, ALLOCATABLE :: MAP_SRFtoISTR ( : ) INTEGER, ALLOCATABLE :: MAP_ISTRtoNUM ( : ) INTEGER, ALLOCATABLE :: MAP_ISTRtoSRF ( : ) INTEGER, ALLOCATABLE :: MAP_ISTRtoSD ( :,: ) INTEGER, ALLOCATABLE :: MAP_AEROtoDIFF( :,: ) ! indices of aero species to CGRID C Miscellaneous variables CHARACTER( 200 ) :: XMSG = ' ' CONTAINS C----------------------------------------------------------------------- FUNCTION AERO_EMIS_INIT ( JDATE, JTIME, TSTEP ) RESULT ( SUCCESS) C Revision History: C 30 Aug 01 J.Young: dynamic allocation - Use INTERPX C 29 Jul 03 P.Bhave: added compatibility with emission files that contain C PM10, PEC, POA, PNO3, PSO4, and PMF, but do not C contain PMC C 20 Aug 03 J.Young: return aero emissions in molar mixing ratio, ppm units C 09 Oct 03 J.Gipson: added MW array for AE emis species to module contents C 01 Sep 04 P.Bhave: changed MW for primary organics from 120 to 220 g/mol, C to match MWPOA in subroutine ORGAER3. C 31 Jan 05 J.Young: dyn alloc - removed HGRD_ID, VGRID_ID, and COORD_ID C include files because those parameters are now C inherited from the GRID_CONF module C 26 Apr 05 P.Bhave: removed code supporting the "old type" of emission C files that had unspeciated PM10 and PM2.5 only C removed need for 'AERO_CONST.EXT' by declaring the C required variables locally C simplified the CONVM, CONVN, CONVS calculations C updated and enhanced in-line documentation C 03 May 05 P.Bhave: fixed bug in the H2SO4 unit conversion, initially C identified by Jinyou Liang of CARB C 13 Jun 05 P.Bhave: calculate sea-salt emissions; execute if MECHNAME = AE4 C read input fields from new OCEAN_1 file C read extra input fields from MET_CRO_2D and MET_CRO_3D C write diagnostic sea-salt emission file C added TSTEP to call vector for diagnostic output file C inherit MWs from AE_SPC.EXT instead of hardcoding C find pointers to CGRID indices instead of hardcoding C 08 Mar 07 P.Bhave& added capability for emission files that contain C S.Roselle: POC or POA C 30 Jan 08 P.Bhave: added compatibility with AE5 mechanisms C 23 Mar 08 J.Young: modifications to allow for in-line point source emissions C 11 Apr 08 J.Kelly: added code to emit coarse surface area C 09 Sep 08 P.Bhave: backward compatibility with AE4 mechanisms C 20 Feb 10 J.Young: move ssemis out to its own F90 module C 24 Feb 11 J.Young: add windblown dust emissions option C 25 Mar 11 S.Roselle: Replaced I/O API include files with UTILIO_DEFN C 07 Jul 14 B.Hutzell: replaced mechanism include file(s) with fortran module C 17 Sep 14 K.Fahey: Changed geometric mean diameter and geometric C standard deviation of emitted particles according to C Elleman and Covert (2010) C 15 Apr 16 J.Young: Use aerosol factors from the AERO_DATA module's named constants; C Moved K.Fahey's mods to geometric mean diameter and standard C deviation to the AERO_DATA module C References: C CRC76, "CRC Handbook of Chemistry and Physics (76th Ed)", C CRC Press, 1995 C Elleman & Covert, "Aerosol size distribution modeling with the Community C Multiscale Air Quality modeling system in the Pacific C Northwest: 3. Size distribution of particles emitted C into a mesoscale model", J. Geophys. Res., Vol 115, C No D3, doi:10.1029/2009JD012401, 2010 C Hobbs, P.V. "Basic Physical Chemistry for the Atmospheric Sciences", C Cambridge Univ. Press, 206 pp, 1995. C Snyder, J.P. "Map Projections-A Working Manual", U.S. Geological Survey C Paper 1395 U.S.GPO, Washington, DC, 1987. C Binkowski & Roselle Models-3 Community Multiscale Air Quality (CMAQ) C model aerosol component 1: Model Description. C J. Geophys. Res., Vol 108, No D6, 4183 C doi:10.1029/2001JD001409, 2003 C----------------------------------------------------------------------- USE AERO_DATA, ONLY: DESID_AERO_REF, N_AEROSPC, AEROSPC, & AERO_MISSING, MAP_AERO USE GRID_CONF, ONLY: GDTYP_GD, XCELL_GD, YCELL_GD, YORIG_GD, GL_NROWS, X3FACE_GD USE DUST_EMIS, ONLY: DUST_EMIS_INIT USE DESID_VARS, ONLY: MAP_ISTRtoEMVAR USE PRECURSOR_DATA, ONLY: MAP_PRECURSOR USE RUNTIME_VARS, ONLY: OCEAN_CHEM, WB_DUST USE SSEMIS, ONLY: SSEMIS_INIT USE UTILIO_DEFN USE VDIFF_MAP, ONLY : N_SPC_DIFF, DIFF_SPC INCLUDE SUBST_CONST ! physical and mathematical constants INCLUDE SUBST_FILES_ID ! file name parameters C Arguments: INTEGER, INTENT( IN ) :: JDATE ! current model date, coded YYYYDDD INTEGER, INTENT( IN ) :: JTIME ! current model time, coded HHMMSS INTEGER, INTENT( IN ) :: TSTEP ! time step vector (HHMMSS) ! TSTEP(1) = local output step LOGICAL SUCCESS C External Functions: INTEGER, EXTERNAL :: FINDEX ! looks up number in table. C Local Variables: REAL DGV, SG, SPLIT_ACCUM C Domain decomposition info from emission and meteorology files INTEGER GXOFF, GYOFF ! origin offset C Miscellaneous variables INTEGER STATUS ! ENV..., ALLOCATE status CHARACTER( 16 ), SAVE :: PNAME = 'AERO_EMIS_INIT ' CHARACTER( 16 ) :: VNAME ! temp var for species names CHARACTER( 50 ) :: VARDESC ! variable for reading environ. variables INTEGER L, N, S, V, IAERO, ISRM, ! Loop indices & IEM, IDIFF, ISPC C ---------------------------------------------------------------------- SUCCESS = .TRUE. C *** Map data modules CALL MAP_AERO() CALL MAP_PRECURSOR() C *** set up for sea-spray emission processing IF ( OCEAN_CHEM ) THEN IF ( .NOT. SSEMIS_INIT( JDATE, JTIME, TSTEP ) ) THEN XMSG = 'Failure initializing sea-spray emission processing' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT2 ) END IF END IF C *** set up for dust emission processing IF ( WB_DUST ) THEN IF ( .NOT. DUST_EMIS_INIT( JDATE, JTIME, TSTEP ) ) THEN XMSG = 'Failure initializing dust emission processing' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT2 ) END IF END IF C *** Set up emissions size distribution arrays ! Calculate factors for converting 3rd moment emission rates into ! number and surface area emission rates. See Equation 7b of ! Binkowski & Roselle (2003) DO IEM = 1,DESID_N_AERO_REF DO N = 1, N_MODE DGV = DESID_AERO_REF( IEM )%DGVEM( N ) SG = DESID_AERO_REF( IEM )%SGEM ( N ) IF ( DESID_AERO_REF( IEM )%SPLIT( N ) .GT. 0.0 ) THEN FACNUM( IEM,N ) = EXP( 4.5 * LOG( SG ) ** 2 ) / DGV ** 3 FACSRF( IEM,N ) = PI * EXP( 0.5 * LOG( SG ) ** 2 ) / DGV ELSE FACNUM( IEM,N ) = 0.0 FACSRF( IEM,N ) = 0.0 END IF END DO END DO ! Map the Modal-Dependent Names to Transported Species ALLOCATE ( MAP_AEROtoDIFF( N_AEROSPC, N_MODE ) ) DO ISPC = 1,N_AEROSPC DO N = 1,N_MODE MAP_AEROtoDIFF( ISPC, N ) = INDEX1( AEROSPC( ISPC )%name( N ), & N_SPC_DIFF, DIFF_SPC ) END DO END DO ! Modify the reference emissions splits based on what transported ! aerosol species are actually available. For example, if the aerosol ! namelist only includes the accumulation mode (J) but not the ! Aitken mode (I) for a particular species, then the split for ! Aitken mode should be added to the Accumulation mode. Save ! these scale factors as a function of transported species and ! mode. ALLOCATE( SD_SPLIT( N_SPC_DIFF, DESID_N_AERO_REF ) ) SD_SPLIT = 0.0 DO IEM = 1,DESID_N_AERO_REF ! For the Fine Mode Reference Distribution, lump Aitken ! with Accumulation mode if Aitken Mode does not exist IF ( DESID_AERO_REF( IEM )%NAME .EQ. 'FINE_REF' ) THEN DO ISPC = 1,N_AEROSPC SPLIT_ACCUM = 0.0 DO N = 1,N_MODE-1 IF ( AERO_MISSING( ISPC,N ) ) THEN SPLIT_ACCUM = SPLIT_ACCUM + DESID_AERO_REF( IEM )%SPLIT( N ) ELSE SD_SPLIT( MAP_AEROtoDIFF( ISPC,N ),IEM ) = & SD_SPLIT( MAP_AEROtoDIFF( ISPC,N ),IEM ) + & DESID_AERO_REF( IEM )%SPLIT( N ) + SPLIT_ACCUM SPLIT_ACCUM = 0.0 END IF END DO END DO ELSE ! Arbitrary Distribution -> Apply factor to species ! if it exists in each mode DO ISPC = 1, N_AEROSPC DO N = 1, N_MODE IF ( .NOT. AERO_MISSING( ISPC,N ) ) THEN SD_SPLIT( MAP_AEROtoDIFF( ISPC,N ),IEM ) = & DESID_AERO_REF( IEM )%SPLIT( N ) END IF END DO END DO END IF END DO ALLOCATE ( MAP_NUMtoISTR ( N_MODE ), & MAP_SRFtoISTR ( N_MODE ), STAT = STATUS ) CALL CHECKMEM( STATUS, 'MAP_NUMtoEM', PNAME ) CALL CHECKMEM( STATUS, 'MAP_SRFtoEM', PNAME ) END FUNCTION AERO_EMIS_INIT C----------------------------------------------------------------------- SUBROUTINE DESID_INIT_SIZE_DIST ( JDATE, JTIME ) C EM_SD_INIT initializes the structures that map modes and streams to C reference modes including splits, diameters, and standard deviations. C----------------------------------------------------------------------- USE AERO_DATA, ONLY: DESID_AERO_REF, DESID_N_AERO_REF USE DESID_VARS, ONLY: DESID_SD_NML USE DESID_UTIL, ONLY: DESID_GET_RULE_STREAMS USE UTILIO_DEFN, ONLY: INDEX1, XSTAT1, M3EXIT, UPCASE IMPLICIT NONE INTEGER, INTENT( IN ) :: JDATE ! current model date, coded YYYYDDD INTEGER, INTENT( IN ) :: JTIME ! current model time, coded HHMMSS INTEGER ISRM INTEGER :: N_SD_RULE INTEGER :: N_SD( DESID_N_SRM ) CHARACTER( 16 ) :: SD_NAME( DESID_N_SRM, 10 ) INTEGER :: SD( DESID_N_SRM, 10 ) LOGICAL :: RULE_STREAM( DESID_N_SRM ) CHARACTER( 16 ) :: CSUR CHARACTER( 16 ), SAVE :: PNAME = 'EM_SD_INIT ' CHARACTER( 20 ) :: DESID_AERO_REF_CAPS( DESID_N_AERO_REF ) INTEGER IRULE, ISUR, N, NLEN, ISD, IM, IEM, NRULE LOGICAL :: LREMOVE, LERROR ! Find Total Number of Size Distribution Registries N_SD_RULE = 0 DO IRULE = 1,SIZE( DESID_SD_NML ) IF ( DESID_SD_NML( IRULE )%STREAM .EQ. '' ) EXIT N_SD_RULE = IRULE END DO ! First Load all of the Streams with the Default FINE, COARSE, and ! AERO Mode references SD = 0 SD_NAME = '' ! Capitalize EM_AERO_REF(:)%NAME DO IM = 1,DESID_N_AERO_REF DESID_AERO_REF_CAPS( IM ) = DESID_AERO_REF( IM )%NAME CALL UPCASE( DESID_AERO_REF_CAPS( IM ) ) ENDDO DO ISRM = 1,DESID_N_SRM N_SD( ISRM ) = 2 SD_NAME( ISRM,1 ) = 'FINE' SD( ISRM,1 ) = INDEX1( 'FINE_REF', DESID_N_AERO_REF, DESID_AERO_REF_CAPS( : ) ) SD_NAME( ISRM,2 ) = 'COARSE' SD( ISRM,2 ) = INDEX1( 'COARSE_REF', DESID_N_AERO_REF, DESID_AERO_REF_CAPS( : ) ) END DO ! Now Modify those defaults or add new modes to desired streams DO IRULE = 1, N_SD_RULE ! Expand Size Distribution Rule to All Streams if Requested LREMOVE = .FALSE. IF ( DESID_SD_NML( IRULE )%STREAM .EQ. '' ) CYCLE CALL DESID_GET_RULE_STREAMS( DESID_SD_NML( IRULE )%STREAM, IRULE, & RULE_STREAM, LREMOVE, LERROR ) IF ( LREMOVE ) CYCLE ! Loop through streams, set defaults, and build map array DO ISRM = 1, DESID_N_SRM IF ( RULE_STREAM( ISRM ) ) THEN ! This Stream is Being Modified by a Size Distribution ! rule CALL UPCASE( DESID_SD_NML( IRULE )%MODE_REF ) IF ( DESID_SD_NML( IRULE )%MODE .EQ. 'FINE' ) THEN ! Overwrite the FINE mode. All fine particle species ! will go to this mode by default SD( ISRM,1 ) = INDEX1( DESID_SD_NML( IRULE )%MODE_REF, & DESID_N_AERO_REF, DESID_AERO_REF_CAPS( : ) ) IF ( SD( ISRM,1 ) .EQ. 0 ) THEN WRITE( XMSG,'(A,A,A,/,A,I2,A)' ), '*** Reference Aerosol Mode (', & DESID_SD_NML( IRULE )%MODE_REF, 'Specified in Emissions Size ', & 'Dist Rule ',IRULE,' does not exist in AERO_DATA.' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF ELSEIF ( DESID_SD_NML( IRULE )%MODE .EQ. 'COARSE' ) THEN ! Overwrite the COARSE mode. All coarse particle ! species will go to this mode by default SD( ISRM,2 ) = INDEX1( DESID_SD_NML( IRULE )%MODE_REF, & DESID_N_AERO_REF, DESID_AERO_REF_CAPS( : ) ) IF ( SD( ISRM,2 ) .EQ. 0 ) THEN WRITE( XMSG,'(A,A,A,/,A,I2,A)' ), '*** Reference Aerosol Mode (', & DESID_SD_NML( IRULE )%MODE_REF, 'Specified in Emissions Size ', & 'Dist Rule ',IRULE,' does not exist in AERO_DATA.' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF ELSE ! Add a New Available Mode. For example, add a mode ! just for BC, call it PUREBC, and make sure the AEC ! for this stream is pointing to this mode. Also make ! sure you set AEC for FINE mode aerosol to 0.0 if ! you have default mapping turned on. N_SD( ISRM ) = N_SD( ISRM ) + 1 SD_NAME( ISRM,N_SD( ISRM ) ) = DESID_SD_NML( IRULE )%MODE SD( ISRM,N_SD( ISRM ) ) = INDEX1( DESID_SD_NML( IRULE )%MODE_REF, & DESID_N_AERO_REF, DESID_AERO_REF_CAPS( : ) ) IF ( SD( ISRM,N_SD( ISRM )) .EQ. 0 ) THEN WRITE( XMSG,'(A,A,A,/,A,I2,A)' ), '*** Reference Aerosol Mode (', & DESID_SD_NML( IRULE )%MODE_REF, 'Specified in Emissions Size ', & 'Dist Rule ',IRULE,' does not exist in AERO_DATA.' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF END IF END IF END DO END DO ! Finally, transfer this data to a global variable which ! captures and organizes the modes of each stream ALLOCATE( DESID_STREAM_AERO( DESID_N_SRM ) ) DO ISRM = 1,DESID_N_SRM N = N_SD( ISRM ) DESID_STREAM_AERO( ISRM )%LEN = N + 1 ALLOCATE( DESID_STREAM_AERO( ISRM )%NAME( N+1 ) ) ALLOCATE( DESID_STREAM_AERO( ISRM )%REF( N+1 ) ) ALLOCATE( DESID_STREAM_AERO( ISRM )%FACNUM( N+1,N_MODE ) ) ALLOCATE( DESID_STREAM_AERO( ISRM )%FACSRF( N+1,N_MODE ) ) DESID_STREAM_AERO( ISRM )%NAME( 2:N+1 ) = SD_NAME( ISRM,1:N ) DESID_STREAM_AERO( ISRM )%REF( 2:N+1 ) = SD( ISRM,1:N ) DESID_STREAM_AERO( ISRM )%NAME( 1 ) = 'GAS' DESID_STREAM_AERO( ISRM )%REF( 1 ) = 0 ! Map Factors for Converting Aerosol Mass to Number and ! Surface Area to each Emission Stream DESID_STREAM_AERO( ISRM )%FACNUM( :,: ) = 0.0 DESID_STREAM_AERO( ISRM )%FACSRF( :,: ) = 0.0 DO ISD = 2,N+1 IEM = DESID_STREAM_AERO( ISRM )%REF( ISD ) DO IM = 1,N_MODE DESID_STREAM_AERO( ISRM )%FACNUM( ISD,IM ) = FACNUM( IEM,IM ) DESID_STREAM_AERO( ISRM )%FACSRF( ISD,IM ) = FACSRF( IEM,IM ) END DO END DO END DO END SUBROUTINE DESID_INIT_SIZE_DIST C----------------------------------------------------------------------- SUBROUTINE DESID_SIZE_DIST ( ISRM, VDEMIS, NL ) C EMISS_SIZE_DIST distributes bulk aerosol emissions into size space C using parameters precompiled in the AERO_DATA module. C C Revision History: C 16 AUG 17 BMURPHY: Created C C ---------------------------------------------------------------------- USE AERO_DATA, ONLY: AEROSPC, N_AEROSPC, AEROSPC_MWINV USE AEROMET_DATA, ONLY: F6DPI USE ASX_DATA_MOD, ONLY: MET_DATA USE DESID_VARS, ONLY: DESID_N_ISTR, IDUSTSRM, ISEASRM USE GRID_CONF, ONLY: NCOLS, NROWS USE SSEMIS, ONLY: SEA_FACTNUM, SEA_FACTSRF INTEGER, INTENT( IN ) :: ISRM, NL REAL, INTENT( INOUT ) :: VDEMIS ( :,:,:,: ) INTEGER :: N, S, IAERO, IM, ISD, ISTR ! Looping Variables INTEGER :: ROW, COL, LAY, N_SD, INUM, ISRF, MAX_N_SD REAL :: FACNUM, FACSRF, MW_FAC REAL, ALLOCATABLE, SAVE :: EMISM3( :,:,:,:,: ) REAL, ALLOCATABLE, SAVE :: GSFAC( :,:,: ) REAL, ALLOCATABLE, SAVE :: DENS_FAC( : ) REAL, PARAMETER :: F6DPIM9 = 1.0E-9 * F6DPI ! 1.0E-9 = Kg/ug LOGICAL, SAVE :: FIRST_TIME = .TRUE. C *** Initialize Variables IF ( FIRST_TIME ) THEN FIRST_TIME = .FALSE. ALLOCATE( GSFAC ( DESID_LAYS,NCOLS,NROWS ) ) ALLOCATE( DENS_FAC( N_AEROSPC ) ) DO IAERO = 1,N_AEROSPC DENS_FAC( IAERO ) = F6DPIM9 / AEROSPC( IAERO )%DENSITY END DO MAX_N_SD = MAXVAL( DESID_STREAM_AERO(:)%LEN ) ALLOCATE( EMISM3( DESID_LAYS,NCOLS,NROWS,N_MODE,MAX_N_SD ) ) END IF N_SD = DESID_STREAM_AERO( ISRM )%LEN EMISM3 = 0.0 C *** Calculate scaling factor for converting mass emissions into [ug/m3/s] C note: RJACM converts grid heights from sigma coordinates to meters C Also calculate scaling factors for converting to molar-mixing-ratio units DO LAY = 1,NL GSFAC( LAY,:,: ) = Met_Data%RJACM( :,:,LAY ) / CELLVOL( :,:,LAY ) ![ug/s] to [ug/m3/s] END DO C *** Apply Aerosol Size Distribution DO ISTR = 1, DESID_N_ISTR ! Find which Size Distribution or Phase this emissions species belongs ! to for this stream. If the value is a 0, then there are no emissions ! for this species from this stream. If it is a 1, then this species is ! a gas and the following aerosol conversions should be skipped. ISD = MAP_ISTRtoSD( ISTR,ISRM ) IF ( ISD .LE. 1 ) CYCLE ! Look up Aerosol Species and Mode of Interest IAERO = MAP_ISTRtoAERO( ISTR ) !This maps to the CMAQ aerosol ! species so we can retrieve density IM = MAP_ISTRtoMODE( ISTR ) !This maps to the internal CMAQ modes ! (ie. I, J, and K) ! Convert Aerosol from [g/s] to [ug/m3/s] for all streams ! except Dust and Sea Spray. For those streams, convert ! [g/m3/s] to [ug/m3/s] VDEMIS( ISTR,1:NL,:,: ) = VDEMIS( ISTR,1:NL,:,: ) * 1.0E6 IF ( ISRM .NE. ISEASRM .AND. ISRM .NE. IDUSTSRM ) THEN VDEMIS( ISTR,1:NL,:,: ) = VDEMIS( ISTR,1:NL,:,: ) * GSFAC( 1:NL,:,: ) END IF ! Sum Total Volume of Mode N [m3/m3/s] IF ( .NOT. AEROSPC( IAERO )%TRACER ) & EMISM3( 1:NL,:,:,IM,ISD ) = EMISM3( 1:NL,:,:,IM,ISD ) + & VDEMIS( ISTR,1:NL,:,: ) * DENS_FAC( IAERO ) ! Convert Mass Emission Rates from [ug/m3/s] to [umol/m3/s] VDEMIS( ISTR,1:NL,:,: ) = VDEMIS( ISTR,1:NL,:,: ) * AEROSPC_MWINV( IAERO ) END DO C *** Calculate the number emissions rate for each mode [1/m3/s], using C Equation 7b of Binkowski & Roselle (2003). C Calculate the surface area emissions rate for the fine modes [m2/m3/s], C using Equation 7c of Binkowski & Roselle (2003). Multiplying by PI C converts 2nd moment to surface area. DO ISD = 2, N_SD ! Skip the Index for the Gas Phase IF ( ISRM .EQ. ISEASRM ) THEN ! Apply Spatially-Dependent Number and Surface Area Scale Factors DO IM = 1, N_MODE INUM = MAP_NUMtoISTR(IM) VDEMIS( INUM,1,:,: ) = VDEMIS( INUM,1,:,: ) & + EMISM3( 1,:,:,IM,ISD ) * SEA_FACTNUM( IM,:,: ) ISRF = MAP_SRFtoISTR(IM) VDEMIS( ISRF,1,:,: ) = VDEMIS( ISRF,1,:,: ) & + EMISM3( 1,:,:,IM,ISD ) * SEA_FACTSRF( IM,:,: ) END DO ELSE ! Apply Homogeneous Scale Factors Consistent with this Stream DO IM = 1, N_MODE INUM = MAP_NUMtoISTR(IM) FACNUM = DESID_STREAM_AERO( ISRM )%FACNUM( ISD,IM ) VDEMIS( INUM,1:NL,:,: ) = VDEMIS( INUM,1:NL,:,: ) + EMISM3( 1:NL,:,:,IM,ISD ) * FACNUM ISRF = MAP_SRFtoISTR(IM) FACSRF = DESID_STREAM_AERO( ISRM )%FACSRF( ISD,IM ) VDEMIS( ISRF,1:NL,:,: ) = VDEMIS( ISRF,1:NL,:,: ) + EMISM3( 1:NL,:,:,IM,ISD ) * FACSRF END DO END IF END DO END SUBROUTINE DESID_SIZE_DIST END MODULE AERO_EMIS ================================================ FILE: CCTM/src/aero/aero6/PRECURSOR_DATA.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: Module precursor_data C Defines gas phase aerosol precursor data. C Contains: C Subroutine extract_precursor C Subroutine map_precursor C Subroutine update_precursor C Function findPrecursor C Revision History: C First version was coded in April 2010 by Steve Howard with C Prakash Bhave, Jeff Young, and Sergey Napelenok. C HS 03/10/11 Made OH a required species C -added OH to "precursor" array (set rxncounter to .FALSE.); C -added "update" column to precursor array to note which species C concentrations will be affected by aerosol routines C -added req_OH and OH_idx variables C -changed precursor_conc to Real(8) C H.Pye 05/22/11: added ALK5RXN to precursor list for SAPRC mechanisms C JY 06/08/12 remove full character blank padding put in for GNU Fortran (GCC) 4.1.2 C H. Pye 09/2014: added alkane and PAH SOA precursor C D.Wong 02/01/19 added one more variable in the USE clause C----------------------------------------------------------------------- #ifdef sens USE DDM3D_DEFN, ONLY : NP, NPMAX Use aero_ddm3d, ONLY : init_aero_ddm3d, s_precursor_conc, ae_ddm3d_ready #endif Implicit None Integer, Parameter :: n_precursor = 24 ! # of precursors Type precursor_type Character( 16 ) :: name ! species name Logical :: rxncounter ! flag to reset counter species Logical :: update ! update precursor concentration ! in cgrid after aeroproc Logical :: required ! required for model run End Type precursor_type Type ( precursor_type ) :: precursor( n_precursor ) = (/ C Name RxnCounter Update Required C --------- ---------- ------ ------ & precursor_type( 'NO2 ', .False. , .True., .True. ), & precursor_type( 'N2O5 ', .False. , .True., .True. ), & precursor_type( 'HNO3 ', .False. , .True., .True. ), & precursor_type( 'HONO ', .False. , .True., .True. ), & precursor_type( 'ISOPRXN', .True. , .True., .False. ), & precursor_type( 'TRPRXN ', .True. , .True., .False. ), & precursor_type( 'SULF ', .False. , .True., .True. ), & precursor_type( 'SULPRD ', .True. , .True., .True. ), & precursor_type( 'HCL ', .False. , .True., .True. ), & precursor_type( 'ALK5RXN', .True. , .True., .False. ), & precursor_type( 'ALKRXN ', .True. , .True., .False. ), & precursor_type( 'TOLNRXN', .True. , .True., .False. ), & precursor_type( 'TOLHRXN', .True. , .True., .False. ), & precursor_type( 'XYLNRXN', .True. , .True., .False. ), & precursor_type( 'XYLHRXN', .True. , .True., .False. ), & precursor_type( 'BNZNRXN', .True. , .True., .False. ), & precursor_type( 'BNZHRXN', .True. , .True., .False. ), & precursor_type( 'SESQRXN', .True. , .True., .False. ), & precursor_type( 'NH3 ', .False. , .True., .True. ), & precursor_type( 'OH ', .False. , .False., .True. ), & precursor_type( 'PAHNRXN', .True. , .True., .False. ), & precursor_type( 'PAHHRXN', .True. , .True., .False. ), & precursor_type( 'PCSOARXN',.True. , .True., .False. ), & precursor_type( 'PHGRXN ', .True. , .True., .False. )/) C Required species Character( 16 ), Private, Parameter :: req_NO2 = 'NO2' Character( 16 ), Private, Parameter :: req_N2O5 = 'N2O5' Character( 16 ), Private, Parameter :: req_HNO3 = 'HNO3' Character( 16 ), Private, Parameter :: req_HONO = 'HONO' Character( 16 ), Private, Parameter :: req_SULF = 'SULF' Character( 16 ), Private, Parameter :: req_SULPRD = 'SULPRD' Character( 16 ), Private, Parameter :: req_HCL = 'HCL' Character( 16 ), Private, Parameter :: req_NH3 = 'NH3' Character( 16 ), Private, Parameter :: req_OH = 'OH' Character( 16 ), Private, Parameter :: req_PHGRXN = 'PHGRXN' C Indices of required species Integer :: NO2_idx Integer :: N2O5_idx Integer :: HNO3_idx Integer :: HONO_idx Integer :: SULF_idx Integer :: SULPRD_idx Integer :: HCL_idx Integer :: NH3_idx Integer :: OH_idx Integer :: PHGRXN_idx Real( 8 ) :: precursor_mw( n_precursor ) ! mol wt from cgrid_spcs [g/mol] Real( 8 ) :: precursor_conc( n_precursor ) ! precursor concentration [ug/m^3] Real :: so4rate ! sulfate gas-phase production rate [ug/m^3*s] Real :: phg_rate ! particulate mercury gas-phase production rate [ug/m^3*s] C Private variables for loading and unloading to CGRID array Integer :: precursor_map( n_precursor ) ! pointers to CGRID Logical, Private, Save :: mapped = .False. Logical, Private, Save :: Precursor_eflag = .False. Character( 16 ), Private, Save :: pname = 'precursor_data' Contains C----------------------------------------------------------------------- Subroutine map_precursor() C Defines mapping from CGRID for species concentration and moments. C Revision History: C First version was coded in April 2010 by Steve Howard with C Prakash Bhave, Jeff Young, and Sergey Napelenok. C HS 03/10/11 Changed vtmp to real(8) C SR 03/25/11 Replaced I/O API include files with UTILIO_DEFN C---------------------------------------------------------------------- Use rxns_data, only: mechname Use aero_data, only: ae6hg, aphgj_idx Use cgrid_spcs, only: n_gc_g2ae, gc_g2ae, gc_g2ae_map, gc_molwt, gc_strt, & n_nr_n2ae, nr_n2ae, nr_n2ae_map, nr_molwt, nr_strt Use utilio_defn, only: index1, xstat3, m3warn, m3exit Use runtime_vars, only: logdev, LOG_MESSAGE Implicit None C Local Variables: Character( 180 ) :: xmsg Integer :: n Integer :: spc C If the species are mapped already, skip the mapping algorithm If ( mapped ) Return CALL LOG_MESSAGE( LOGDEV, 'Map SOA Precursors' ) C Initialize Precursor Map Variables precursor_mw = 0.0d0 precursor_map = 0 C Build mapping to CGRID for each precursor species Do spc = 1, n_precursor n = index1( precursor( spc )%name, n_gc_g2ae, gc_g2ae ) If ( n .Ne. 0 ) Then precursor_mw( spc ) = real( gc_molwt( gc_g2ae_map( n ) ), 8 ) precursor_map( spc ) = gc_strt - 1 + gc_g2ae_map( n ) Else n = index1( precursor( spc )%name, n_nr_n2ae, nr_n2ae ) If ( n .Ne. 0 ) Then precursor_mw( spc ) = real( nr_molwt( nr_n2ae_map( n ) ), 8 ) precursor_map( spc ) = nr_strt - 1 + nr_n2ae_map( n ) Else If ( precursor( spc )%required ) Then Precursor_eflag = .True. xmsg = 'FATAL: Simulation requires a species in GC or NR namelist ' // & 'to have its G2AE or N2AE value set to ' // Trim( precursor( spc )%name ) Call m3warn( 'map_precursor', 0, 0, xmsg ) Else write(logdev,99902)Trim( precursor( spc )%name ) End If End If End If End Do C Find indices of required species NO2_idx = findPrecursor( req_NO2, .true.) N2O5_idx = findPrecursor( req_N2O5, .true.) HNO3_idx = findPrecursor( req_HNO3, .true.) HONO_idx = findPrecursor( req_HONO, .true.) SULF_idx = findPrecursor( req_SULF, .true.) SULPRD_idx = findPrecursor( req_SULPRD, .true.) HCL_idx = findPrecursor( req_HCL, .true.) NH3_idx = findPrecursor( req_NH3, .true.) OH_idx = findPrecursor( req_OH, .true.) If( ae6hg )then PHGRXN_idx = findPrecursor( req_phgrxn, .false.) If( precursor_map( PHGRXN_idx ) .Lt. 1 )Then xmsg = ' Gas Phase Precursor ' // Trim( req_PHGRXN ) & // ' not found -> NO gas production of APHG species' Call m3warn( 'map_precursor', 0, 0, xmsg ) End If #ifdef verbose_aero Else xmsg = ' NO particulate mercury in model.' Call m3warn( 'map_precursor', 0, 0, xmsg ) PHGRXN_idx = 0 #endif end if #ifdef verbose_aero Write( logdev,'( /5x, a )' ) 'map_precursor required species' Write( logdev,'( 5x, a, i4 )' ) 'NO2_idx: ', NO2_idx Write( logdev,'( 5x, a, i4 )' ) 'N2O5_idx: ', N2O5_idx Write( logdev,'( 5x, a, i4 )' ) 'HNO3_idx: ', HNO3_idx Write( logdev,'( 5x, a, i4 )' ) 'HONO_idx: ', HONO_idx Write( logdev,'( 5x, a, i4 )' ) 'SULF_idx: ', SULF_idx Write( logdev,'( 5x, a, i4 )' ) 'SULPRD_idx: ', SULPRD_idx Write( logdev,'( 5x, a, i4 )' ) 'HCL_idx: ', HCL_idx Write( logdev,'( 5x, a, i4 )' ) 'NH3_idx: ', NH3_idx Write( logdev,'( 5x, a, i4 )' ) 'OH_idx: ', OH_idx if( aphgj_idx .gt. 0 )then Write( logdev,'( 5x, a, i4 )' ) 'PHGRXN_idx: ', PHGRXN_idx end if #endif If( Precursor_eflag )Then Write(logdev,99901) Trim( mechname ) xmsg = 'The FATAL errors found in namelist used. Check ' & // 'the log of exiting processor if more details are needed.' Call m3exit( pname, 0, 0, xmsg, xstat3 ) End If mapped = .True. #ifdef sens Allocate ( s_precursor_conc( n_precursor,npmax ) ) #endif 99901 Format( 'FATAL error(s) found in the GC and/or NR namelists used. Check that ' & / 'these namelists contain the above required data as the respective files ' & / 'in the repository version of the mechanism: ' , a ) 99902 Format( 5x,'Note: Optional species ', a, ' is not found in G2AE or N2AE values of', & / 7x,'the GC or NR namelist. Simulation will ignore this species.' ) Return End Subroutine map_precursor C----------------------------------------------------------------------- #ifdef sens Subroutine extract_precursor( conc,s_conc ) #else Subroutine extract_precursor( conc ) #endif C Extracts the required precursor data from CGRID into conc. C Revision History: C First version was coded in April 2010 by Steve Howard with C Prakash Bhave, Jeff Young, and Sergey Napelenok. C SH 03/10/11 Renamed met_data to aeromet_data C HS 03/10/11 Changed vtmp and gasconv to real(8) C----------------------------------------------------------------------- Use aeromet_data, only: airdens, inv_mwair, min_gasconc Implicit None C Arguments: Real, Intent( In ) :: conc( : ) #ifdef sens Real, Intent( In ) :: s_conc( :,: ) #endif C Local Variables: Real( 8 ) :: gasconv ! converts from [ppm] to [ug/m^3] Real( 8 ) :: vtmp Integer :: n Integer :: spc #ifdef sens If ( .Not. ae_ddm3d_ready ) Then Call init_aero_ddm3d() End If #endif Call map_precursor() C Compute gas conversion constant gasconv = Real( airdens * inv_mwair, 8 ) C Copy grid cell concentrations of precursor species precursor_conc = 0.0d0 #ifdef sens s_precursor_conc = 0.0D0 #endif Do spc = 1, n_precursor n = precursor_map( spc ) If ( n .Ne. 0 ) Then vtmp = gasconv * precursor_mw( spc ) precursor_conc( spc ) = Max( Real( conc( n ), 8) * vtmp, Real( min_gasconc, 8) ) #ifdef sens Do np = 1, npmax If ( precursor_conc( spc ) .Eq. min_gasconc ) Then s_precursor_conc( spc,np ) = 0.0D0 Else s_precursor_conc( spc,np ) = vtmp * Real( s_conc( np,n ), 8 ) End If End Do #endif End If End Do Return End Subroutine extract_precursor C------------------------------------------------------------------------ #ifdef sens Subroutine update_precursor( conc, s_conc ) #else Subroutine update_precursor( conc ) #endif C Updates CGRID aerosol precursor values from the conc array. C Revision History: C First version was coded in April 2010 by Steve Howard with C Prakash Bhave, Jeff Young, and Sergey Napelenok. C SH 03/10/11 Renamed met_data to aeromet_data C HS 03/10/11 Only update conc for species with "update" = .TRUE.; C -changed vtmp and gasconv to real(8) C SR 03/25/11 Replaced I/O API include files with UTILIO_DEFN C----------------------------------------------------------------------- Use aeromet_data, only: airdens, inv_mwair, min_gasconc Use utilio_defn, only: xstat3, m3exit Use aero_data, only : COND_BUDGET, COAG_BUDGET, NPF_BUDGET, GROWTH_BUDGET Implicit None C arguments: Real, Intent( Out ) :: conc( : ) #ifdef sens Real, Intent( Out ) :: s_conc( :,: ) #endif C local variables: Character( 80 ) :: xmsg Real( 8 ) :: gasconv ! converts from [ppm] to [ug/m^3] Real( 8 ) :: vtmp Integer :: n Integer :: spc If ( .Not. mapped ) Then xmsg = 'CGRID Species has not been mapped' Call m3exit( 'update_precursor', 0, 0, xmsg, xstat3 ) End If C compute gas conversion constant gasconv = Real( airdens * inv_mwair, 8 ) C copy precursor_conc back to grid cell concentrations Do spc = 1, n_precursor n = precursor_map( spc ) If ( n .Ne. 0 ) Then If ( precursor( spc )%update ) Then If ( precursor( spc )%rxncounter ) Then vtmp = precursor_mw( spc ) * gasconv conc( n ) = Max( real( precursor_conc( spc ) / vtmp, 4 ), min_gasconc ) COND_BUDGET( n ) = -1.0 * conc( n ) conc( n ) = 0.0 #ifdef sens do np = 1, npmax s_conc( np,n ) = 0.0 end do #endif Else vtmp = precursor_mw( spc ) * gasconv conc( n ) = Max( real( precursor_conc( spc ) / vtmp, 4 ), min_gasconc ) ! Convert Budget Process Numbers from ug m-3 to ppmv ! for application to process analysis and ISAM COND_BUDGET( n ) = COND_BUDGET( n ) / vtmp NPF_BUDGET( n ) = NPF_BUDGET( n ) / vtmp #ifdef sens do np = 1, npmax If ( conc( n ) .Eq. min_gasconc ) Then s_conc( np,n ) = 0.0 Else s_conc( np,n ) = Real( (s_precursor_conc( spc,np )/vtmp), 4 ) End If end do #endif End If End If End If End Do Return End Subroutine update_precursor C----------------------------------------------------------------------- Function findPrecursor( vname, required ) Result ( ndx ) C Finds the index of 'required' aerosol species in the precursor list C Revision History: C First version was coded in April 2010 by Steve Howard with C Prakash Bhave, Jeff Young, and Sergey Napelenok. C C SR 03/25/11 Replaced I/O API include files with UTILIO_DEFN C----------------------------------------------------------------------- use utilio_defn Implicit None C Arguments: Character( * ) :: vname Logical :: required Integer ndx C Local Variables: Integer :: spc Character( 80 ) :: xmsg ndx = 0 Do spc = 1, n_precursor If ( Index( precursor( spc )%name, trim(vname) ) .Gt. 0 ) Then ndx = spc Return End If End Do xmsg = 'FATAL: ' // Trim( vname ) & // ' is not found in the G2AE or N2AE values of GC or NR namelists' Precursor_eflag = .True. Call m3warn( pname, 0, 0, xmsg ) Return End Function findPrecursor End Module precursor_data ================================================ FILE: CCTM/src/aero/aero6/README.md ================================================ CMAQv5.2 Aerosol Processing Module (Aero6) ========================================== Aerosol calculations the CMAQ aero6 module account for several relevant microphysical processes: emission, condensation, evaporation, coagulation, new particle formation, and chemistry. The size distribution of particles is conceptualized in this module as the sum of three log-normal modes: Aitken, Accumulation and Coarse. The magnitude and shape of these modes are predicted in time by tracking the magnitude of three moments: 0th (equivalent to number), 2nd (proportional to surface area) and 3rd (proportional to volume or mass). Brief Summary on Inorganic chemistry Brief Summary on Organic Chemistry Brief Summary on Sea Salt Emissions Brief Summary on Dust Emissions Brief Summary on coagulation Brief Summary on New particle Formation ----- # CMAQv5.2 Aerosol Module Release Notes The aerosol processing module in CMAQv5.2 includes several important revisions over CMAQv5.1, most noticeably to the representation of dust and organic aerosol (OA). * [Aerosol Transmission Factors](../../docs/Release_Notes/Aerosol_Transmission_Factors.md) * [Update of Gas-Phase Deposition Rates](../../docs/Release_Notes/Gas-Phase_Dep_H2O2_HACET_OrgNtr_s07tic_Species.md) ================================================ FILE: CCTM/src/aero/aero6/SOA_DEFN.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: Module soa_defn C Defines aerosol species arrays and parameters required in SOA processing. C Contains: C Subroutine extract_soa C Subroutine update_orgvapor C Function findVapor C Function findOrgprod C Subroutine orgaer C Revision History: C First version was coded in April 2010 by Steve Howard with C Prakash Bhave, Jeff Young, and Sergey Napelenok. C C HP 03/11/11 Updated monoterpene SOA alphas and Cstars to Carlton et al. 2010 values C HP 07/24/11 Changed aromatic SOA alphas for consistency with updated reaction counters C BNZ, TOL, XYL numbers now match Ng et al. 2007 Atmos. Chem. Phys. C 08 Jun 12 J.Young: remove full character blank padding for GNU Fortran (GCC) 4.1.2 C 13 Aug 13 H. Pye: Xylene and toluene low-NOx yields switched. Values now C follow experimental data of Ng et al. 2007 ACP as shown in Table 3. C Values in Table 6 of Ng et al. (previously used) are incorrect. C 18 Dec 13 G.Sarwar: added orgprod parent names based on RACM2 C 07 Jul 14 B.Hutzell: replaced mechanism include file(s) with fortran module C 21 Jul 14 B.Hutzell: used ifdef statement to make oligomerization C optional because process represented in chemical C mechanism C 26 Sep 14 H. Pye: Added isoprene + NO3 SOA (see mech.def, no changes C here). When IEPOX uptake present in gas phase for C cb05e51, replace preivous acid enhanced isoprene SOA C with IEPOX uptake SOA now handled as a heterogeneous C rxn. For saprc07tic_ae6i, perform more detailed C IEPOX and MAE uptake and do not do Carlton et al. 2010 C acid enhancement. Note that saprc07tic_ae6i is a research C version and it is unclear how duplicative AISO1+AISO2+their oligomers C are with IEPOX+MAE uptake and their oligomers. C Both pathways occur with sarpc07tic_ae6i. To turn AISO1+AISO2 C oligomers off, set "Decay" in oaspc to 0.0 for SV_ISO1/2. C 27 Sep 14 H. Pye: Added alkane and PAH SOA (Pye and Pouliot 2012 ES&T) C 15 Jul 15 G. Sarwar: updated SOA from alkane, PAH, and isoprene for RACM2 C 03/03/16 D. Luecken: added capability for CB6 C 24 Mar 16 G. Sarwar: updated for CB05EH51 C May 16 B. Murphy, H. Pye: updated treatment of aerosol moments C Jan 18 H. Pye: updated monoterpene photoxidation SOA: Xu et al. 2018 ACPD C AMT1-7 will replace ATRP1-2 when fully implemented C across mechanisms. C Aug 18 M. Qin, H. Pye: Removed oligomerization option here. Oligomerization C must be done in gas chemistry (mech.def). Added anthropogenic C SOA condensation for aero7. C 29 Aug 18 G. Sarwar: updated for CB6R3M C 17 Jan 20 B.Hutzell -Added algorithm to handle tracer species and C -added benzo[a]pyrene to oa_list. Its cstar is based C on the subcooled vapor pressure in Lei et. al (2002) C 15 Sep 23 G. Sarwar: updated for CRACMM2 C 28 Nov 23 N. Skipper: added new species for CRACMM2 C----------------------------------------------------------------------- #ifdef sens USE DDM3D_DEFN, ONLY : NP, NPMAX Use aero_ddm3d, ONLY : init_aero_ddm3d, ae_ddm3d_ready, og_sens, rog_dsens #endif Implicit None ! Define Logical values as T and F for the OA table Logical, Parameter, Private :: T = .true. Logical, Parameter, Private :: F = .false. Integer, Parameter :: n_oa_list = 85 ! # of potential partitioning SVOCs Integer, Save :: n_oa ! Total # of simulated SOA vapors Integer, Save :: n_oa_NotTracers ! # of simulated SOA vapors that are not tracers Integer, Save :: n_oa_tracers ! # of simulated SOA vapors that are tracers Type oa_type Character( 16 ) :: name ! Organic Aerosol Species Name Character( 16 ) :: gas_name ! Condensable Vapor Species Name Character( 16 ) :: ctr_name ! Reaction Counter Name Real :: alpha ! Mass-based stoichiometric coefficients [ug/m^3]/[ug/m^3] Real :: cstar ! Effective saturation concentrations [ug/m^3] at 298 K Real :: enth ! Enthalphy of Vaporization [J/mol] Real :: otoc ! O:C - Ratio of Oxygen and to Carbon Real :: OMtoOC ! OM:OC - Ratio of Total Organic Mass to Organic Carbon Mass Logical :: primary ! Flag identifying primary species Logical :: anthro ! Flag identifying anthropogenic species Logical :: biog ! Flag identifying biogenic species Logical :: nonvol ! Flag identifying nonvolatile species End Type oa_type Type( oa_type ), Allocatable, Save :: oaspc( : ) Type( oa_type ), Save :: oa_list( n_oa_list ) = (/ ! ANTHROPOGENIC ! | BIOGENIC ! PM Vapor Rxn Cntr Alpha CStar^ Enth- O:C OM:OC | | Nonvol- ! Name Name Name* alpy POA | | atile ! ---------- ---------- ---------- ------ -------- ------- --- ----- --- --- --- --- & oa_type('AALK1 ', 'SVALK1 ', 'ALKRXN ', 0.0334, 0.1472, 53.0E3, .315,1.56, F, T, F, F ), & oa_type('AALK2 ', 'SVALK2 ', 'ALKRXN ', 0.2164, 51.8775, 53.0E3, .203,1.42, F, T, F, F ), & oa_type('AXYL1 ', 'SVXYL1 ', 'XYLNRXN ', 0.0310, 1.3140, 32.0E3,1.002,2.42, F, T, F, F ), & oa_type('AXYL2 ', 'SVXYL2 ', 'XYLNRXN ', 0.0900, 34.4830, 32.0E3, .611,1.93, F, T, F, F ), & oa_type('ATOL1 ', 'SVTOL1 ', 'TOLNRXN ', 0.0580, 2.3260, 18.0E3, .875,2.26, F, T, F, F ), & oa_type('ATOL2 ', 'SVTOL2 ', 'TOLNRXN ', 0.1130, 21.2770, 18.0E3, .523,1.82, F, T, F, F ), & oa_type('ABNZ1 ', 'SVBNZ1 ', 'BNZNRXN ', 0.0720, 0.3020, 18.0E3,1.211,2.68, F, T, F, F ), & oa_type('ABNZ2 ', 'SVBNZ2 ', 'BNZNRXN ', 0.8880, 111.1100, 18.0E3, .851,2.23, F, T, F, F ), & oa_type('APAH1 ', 'SVPAH1 ', 'PAHNRXN ', 0.2100, 1.6598, 18.0E3, .371,1.63, F, T, F, F ), & oa_type('APAH2 ', 'SVPAH2 ', 'PAHNRXN ', 1.0700, 264.6675, 18.0E3, .259,1.49, F, T, F, F ), & oa_type('ATRP1 ', 'SVTRP1 ', 'TRPRXN ', 0.1393, 14.7920, 40.0E3, .539,1.84, F, F, T, F ), & oa_type('ATRP2 ', 'SVTRP2 ', 'TRPRXN ', 0.4542, 133.7297, 40.0E3, .531,1.83, F, F, T, F ), & oa_type('AMT1 ', 'SVMT1 ', 'TRPRXN ', 0.040, 0.010, 102.0E3, .400,1.67, F, F, T, F ), & oa_type('AMT2 ', 'SVMT2 ', 'TRPRXN ', 0.032, 0.100, 91.0E3, .400,1.67, F, F, T, F ), & oa_type('AMT3 ', 'SVMT3 ', 'TRPRXN ', 0.032, 1.000, 80.0E3, .444,1.72, F, F, T, F ), & oa_type('AMT4 ', 'SVMT4 ', 'TRPRXN ', 0.103, 10.000, 69.0E3, .300,1.53, F, F, T, F ), & oa_type('AMT5 ', 'SVMT5 ', 'TRPRXN ', 0.143, 100.000, 58.0E3, .333,1.57, F, F, T, F ), & oa_type('AMT6 ', 'SVMT6 ', 'TRPRXN ', 0.285, 1000.000, 47.0E3, .200,1.40, F, F, T, F ), & oa_type('AMT7 ', 'SVMT7 ', 'TRPRXN ', 0.160,10000.000, 36.0E3, .222,1.43, F, F, T, F ), & oa_type('AHOM ', 'HOM ', ' ', 0.0, 6.3E-03, 130.0E3, .700,2.08, F, F, T, F ), & oa_type('AELHOM ', 'ELHOM ', ' ', 0.0, 1.0E-05, 160.0E3, .400,1.67, F, F, T, F ), & oa_type('AMTNO3 ', 'MTNO3 ', ' ', 0.0, 12.0, 40.0E3, .587,1.90, F, F, T, F ), & oa_type('AISOPNN', 'ISOPNN ', ' ', 0.0, 8.9, 40.0E3,2.107,3.80, F, F, T, F ), & oa_type('AMTHYD ', ' ', ' ', 0.0, 1.E-10, 1.0E0, .299,1.54, F, F, T, T ), & oa_type('AIETET ', ' ', ' ', 0.0, 1.E-10, 1.0E0, .883,2.27, F, F, T, T ), & oa_type('AIEOS ', ' ', ' ', 0.0, 1.E-10, 1.0E0,1.947,3.60, F, F, T, T ), & oa_type('ADIM ', ' ', ' ', 0.0, 1.E-10, 1.0E0, .723,2.07, F, F, T, T ), & oa_type('AIMGA ', ' ', ' ', 0.0, 1.E-10, 1.0E0,1.067,2.50, F, F, T, T ), & oa_type('AIMOS ', ' ', ' ', 0.0, 1.E-10, 1.0E0,2.403,4.17, F, F, T, T ), & oa_type('AISO3NOS',' ',' ', 0.0, 1.e-10, 1.0E0, 0.8,2.27, F, F, T, T ), & oa_type('AISO3OS ',' ',' ', 0.0, 1.e-10, 1.0E0, 1.4,3.60, F, F, T, T ), & oa_type('AISO1 ', 'SVISO1 ', 'ISOPRXN ', 0.2320, 116.0100, 40.0E3, .827,2.20, F, F, T, F ), & oa_type('AISO2 ', 'SVISO2 ', 'ISOPRXN ', 0.0288, 0.6170, 40.0E3, .851,2.23, F, F, T, F ), & oa_type('AISO3 ', ' ', ' ', 0.0, 1.e-10, 1.0E0,1.307,2.80, F, F, T, T ), & oa_type('ASQT ', 'SVSQT ', 'SESQRXN ', 1.5370, 24.9840, 40.0E3, .283,1.52, F, F, T, F ), & oa_type('AGLY ', ' ', ' ', 0.0, 1.E-10, 1.0E0, .771,2.13, F, F, F, T ), & oa_type('AORGC ', ' ', ' ', 0.0, 1.E-10, 1.0E0, .667,2.00, F, F, F, T ), & oa_type('AXYL3 ', ' ', 'XYLHRXN ', 0.3600, 1.e-10, 1.0E0, .907,2.30, F, T, F, T ), & oa_type('ATOL3 ', ' ', 'TOLHRXN ', 0.3000, 1.e-10, 1.0E0,1.227,2.70, F, T, F, T ), & oa_type('ABNZ3 ', ' ', 'BNZHRXN ', 0.3700, 1.e-10, 1.0E0,1.467,3.00, F, T, F, T ), & oa_type('APAH3 ', ' ', 'PAHHRXN ', 0.7300, 1.e-10, 1.0E0, .483,1.77, F, T, F, T ), & oa_type('APOC ', ' ', ' ', 0.0 , 1.e-10, 1.0E0, .000,1.00, T, T, F, T ), & oa_type('APNCOM ', ' ', ' ', 0.0 , 1.e-10, 1.0E0, -1.0,-1.0, T, T, F, T ), & oa_type('APCSO ', 'LVPCSOG ', 'PCSOARXN', 1.0 , 1.e-05, 40.0E3, .667,2.00, F, T, F, F ), & oa_type('ALVPO1 ', 'VLVPO1 ', ' ', 0.0000, 1.e-1, 96.0E3, .185,1.39, T, T, F, F ), & oa_type('ASVPO1 ', 'VSVPO1 ', ' ', 0.0000, 1.e+0, 85.0E3, .123,1.32, T, T, F, F ), & oa_type('ASVPO2 ', 'VSVPO2 ', ' ', 0.0000, 1.e+1, 74.0E3, .073,1.26, T, T, F, F ), & oa_type('ASVPO3 ', 'VSVPO3 ', ' ', 0.0000, 1.e+2, 63.0E3, .032,1.21, T, T, F, F ), & oa_type('AIVPO1 ', 'VIVPO1 ', ' ', 0.0000, 1.e+3, 52.0E3, .000,1.17, T, T, F, F ), & oa_type('ALVOO1 ', 'VLVOO1 ', ' ', 0.0000, 1.e-2, 107.0E3, .886,2.27, F, T, F, F ), & oa_type('ALVOO2 ', 'VLVOO2 ', ' ', 0.0000, 1.e-1, 96.0E3, .711,2.06, F, T, F, F ), & oa_type('ASVOO1 ', 'VSVOO1 ', ' ', 0.0000, 1.e+0, 85.0E3, .567,1.88, F, T, F, F ), & oa_type('ASVOO2 ', 'VSVOO2 ', ' ', 0.0000, 1.e+1, 74.0E3, .447,1.73, F, T, F, F ), & oa_type('ASVOO3 ', 'VSVOO3 ', ' ', 0.0000, 1.e+2, 63.0E3, .345,1.60, F, T, F, F ), & oa_type('AAVB1 ', 'SVAVB1 ', ' ', 0.0000, 0.010, 18.0E3,1.227,2.70, F, T, F, F ), & oa_type('AAVB2 ', 'SVAVB2 ', ' ', 0.0000, 1.000, 18.0E3, .947,2.35, F, T, F, F ), & oa_type('AAVB3 ', 'SVAVB3 ', ' ', 0.0000, 10.000, 18.0E3, .803,2.17, F, T, F, F ), & oa_type('AAVB4 ', 'SVAVB4 ', ' ', 0.0000, 100.000, 18.0E3, .659,1.99, F, T, F, F ), & oa_type('AOLGA ', ' ', ' ', 0.0000, 1.e-10, 1.0E0,1.067,2.50, F, T, F, T ), & oa_type('AOLGB ', ' ', ' ', 0.0000, 1.e-10, 1.0E0, .747,2.10, F, F, T, T ), & oa_type('AOP3 ', 'OP3 ', ' ', 0.0000, 1.e+1, 81.0E3, .600,1.92, F, T, F, F ), & oa_type('ASOAT ', ' ', ' ', 0.0000, 1.0E-10, 1.0E0,0.857,2.31, F, T, F, T ), & oa_type('AROCN2ALK','VROCN2ALK',' ', 0.0000, 1.e-2, 104.0E3, .000,1.39, T, T, F, F ), & oa_type('AROCN1ALK','VROCN1ALK',' ', 0.0000, 1.e-1, 96.0E3, .000,1.32, T, T, F, F ), & oa_type('AROCP0ALK','VROCP0ALK',' ', 0.0000, 1.e+0, 85.0E3, .000,1.17, T, T, F, F ), & oa_type('AROCP1ALK','VROCP1ALK',' ', 0.0000, 1.e+1, 81.0E3, .000,1.17, T, T, F, F ), & oa_type('AROCP2ALK','VROCP2ALK',' ', 0.0000, 1.e+2, 77.0E3, .000,1.17, T, T, F, F ), & oa_type('AROCP3ALK','VROCP3ALK',' ', 0.0000, 1.e+3, 73.0E3, .000,1.17, T, T, F, F ), & oa_type('AROCN2OXY2','VROCN2OXY2',' ',0.0000, 1.e-2, 93.0E3, .200,1.42, F, T, F, F ), & oa_type('AROCN2OXY4','VROCN2OXY4',' ',0.0000, 1.e-2, 93.0E3, .400,1.67, F, T, F, F ), & oa_type('AROCN2OXY8','VROCN2OXY8',' ',0.0000, 1.e-2, 93.0E3, .800,2.17, F, T, F, F ), & oa_type('AROCN1OXY1','VROCN1OXY1',' ',0.0000, 1.e-1, 89.0E3, .100,1.29, F, T, F, F ), & oa_type('AROCN1OXY3','VROCN1OXY3',' ',0.0000, 1.e-1, 89.0E3, .300,1.54, F, T, F, F ), & oa_type('AROCN1OXY6','VROCN1OXY6',' ',0.0000, 1.e-1, 89.0E3, .600,1.92, F, T, F, F ), & oa_type('AROCP0OXY2','VROCP0OXY2',' ',0.0000, 1.e+0, 85.0E3, .200,1.42, F, T, F, F ), & oa_type('AROCP0OXY4','VROCP0OXY4',' ',0.0000, 1.e+0, 85.0E3, .400,1.67, F, T, F, F ), & oa_type('AROCP1OXY1','VROCP1OXY1',' ',0.0000, 1.e+1, 81.0E3, .100,1.29, F, T, F, F ), & oa_type('AROCP1OXY3','VROCP1OXY3',' ',0.0000, 1.e+1, 81.0E3, .300,1.54, F, T, F, F ), & oa_type('AROCP2OXY2','VROCP2OXY2',' ',0.0000, 1.e+2, 77.0E3, .200,1.42, F, T, F, F ), & oa_type('AROCP3OXY2','VROCP3OXY2',' ',0.0000, 1.e+3, 73.0E3, .200,1.42, F, T, F, F ), & oa_type('ABENAPY', 'BENAPY ', ' ', 0.0000, 0.0396, 105.0E3, .000,1.00, F, T, F, F ), & oa_type('AISO4 ',' ',' ', 0.0, 1.e-10, 1.0E0, 1.2,2.80, F, F, T, T ), & oa_type('AISO5 ',' ',' ', 0.0, 1.e-10, 1.0E0, 1.0,2.50, F, F, T, T ), & oa_type('ATRPN ','TRPN ',' ', 0.0, 1410.0, 89.1E3, .400,1.79, F, F, T, F ), & oa_type('AHONIT ','HONIT ',' ', 0.0, 0.0413, 121.0E3, .700,2.21, F, F, T, F ) /) ! Table Comments: ! *Reaction Counters are only needed if the vapor species is not formed ! directly in the gas-phase chemistry mechanism. ! ^Nonvolatile species are given a default C* of 1e-10 ug/m3 and ! enthalpy of vaporization equal to 1 kJ/mol. ! Cstar for BENAPY or benzo[a]pyrene was based on the DMSO partitioning ! coefficient in Shrivastave et al. (2017) PNAS, vol 114, 1246-1251. All ! OA corresponds to DMSO but its density corresponds to average density ! of CMAQ OA, 1.4 g/cm3 ! Identify Species Required for Isoprene and Monoterpene Chemistry Character( 16 ), Private, Parameter :: req_sviso1 = 'SVISO1' Character( 16 ), Private, Parameter :: req_sviso2 = 'SVISO2' Character( 16 ), Private, Parameter :: req_aeiso1 = 'AISO1' Character( 16 ), Private, Parameter :: req_aeiso2 = 'AISO2' Character( 16 ), Private, Parameter :: req_aeiso3 = 'AISO3' Character( 16 ), Private, Parameter :: req_aeorgc = 'AORGC' ! Variables for Carrying Indices of required species Integer :: iso1_idx Integer :: iso2_idx Integer :: aiso1_idx Integer :: aiso2_idx Integer :: aiso3_idx Integer :: aorgc_idx ! Variables for saving properties and concentrations of organic ! compounds ! Molecular Weights Real, Allocatable :: op_mw ( : ) ! PM species Real, Allocatable :: og_mw ( : ) ! Vapor Species Real, Allocatable :: rog_mw ( : ) ! Precursor Species ! that are linked to yields ! Concentrations Real, Allocatable :: og_conc ( : ) ! Vapors Real, Allocatable :: rog_dconc( : ) ! Reaction counters ! Variables for mapping OA to aerosol and CGRID arrays Integer, Allocatable :: map_OAtoAERO( : ) ! organic aerosol pointers to aerospc Integer, Allocatable :: map_OGtoCGRID( : ) ! pointers of vapor species to CGRID Integer, Allocatable :: map_ROGtoCGRID( : ) ! pointers of SOA parent species to CGRID Logical, Allocatable :: lnonvol_oa( : ) ! flag identifying non-volatile OA species ! in aerosol array that are not tracers Logical, Allocatable :: l_oa( : ) ! flag identifying OA species ! that are not tracers ! Variables for controlling behavior of OA module Logical, Private, Save :: mapped = .False. Logical, Private, Save :: RXNS_eflag = .False. ! error flag for RXNS modules used Logical, Private, Save :: OA_eflag = .False. ! error flag for soa_defn Character( 16 ), Private, Save :: pname = 'SOA_DEFN ' Contains C----------------------------------------------------------------------- #ifdef sens Subroutine extract_soa( conc, s_conc, schk ) #else Subroutine extract_soa( conc ) #endif C Extracts the required soa data from CGRID into the conc array. C Revision History: C First version was coded in April 2010 by Steve Howard with C Prakash Bhave, Jeff Young, and Sergey Napelenok. C C SH 03/10/11 Renamed met_data to aeromet_data C SR 03/25/11 Replaced I/O API include files with UTILIO_DEFN C HP 09/27/14 alk_factor removed, updated for alkane/PAH SOA. C Conversion of reacted alkane to dodecane equivalent C is handled in mech.def. A factor of 0.47 is in use and C reflects the fact that alkane SOA precursor C emissions are dominated by compounds smaller than dodecane. C BM 02/19/19 Major Revision to simplify the mapping procedure and C remove redundat variables. C----------------------------------------------------------------------- Use rxns_data, only: mechname Use aero_data, only: AE_eflag, findAero, aerospc_mw, n_aerospc, aerospc Use aeromet_data, only: airdens, inv_mwair, min_gasconc Use cgrid_spcs, only: n_gc_spc, gc_spc, n_gc_g2ae, gc_g2ae, gc_strt, gc_molwt, gc_g2ae_map, & n_nr_spc, nr_spc, n_nr_n2ae, nr_n2ae, nr_strt, nr_molwt, nr_n2ae_map, & n_ae_spc, ae_spc Use runtime_vars, only: logdev Use utilio_defn, only: index1, xstat3 Implicit None ! Arguments: Real, Intent( In ) :: conc( : ) #ifdef sens Real, Intent( In ) :: s_conc( :,: ) Logical, Intent( In ) :: schk ! necessary because some routines don't require sensitivity updates #endif ! Local Variables: Character( 300 ):: xmsg Real :: gasconv Real :: vtmp Integer :: n, a, g Integer :: spc Integer :: map_OAtoOAlist( 200 ) ! Map All OA Species and Load Properties If ( .Not. mapped ) Then mapped = .TRUE. ! First, the number and names of present and nontracer OA species must be ! determined by checking the AEROSOL Table with the species names ! available from the OA_LIST table. n_oa = 0 Do spc = 1,n_oa_list n = findAero( oa_list( spc )%name, .False. ) If ( n .Gt. 0 ) Then If ( aerospc( n )%om .And. .Not. aerospc( n )%tracer ) Then n_oa = n_oa + 1 map_OAtoOAlist( n_oa ) = spc End If End If End Do ! Place tracers at the end of the list map n_oa_tracers = 0 Do spc = 1,n_oa_list n = findAero( oa_list( spc )%name, .False. ) If ( n .Gt. 0 ) Then If ( aerospc( n )%om .And. aerospc( n )%tracer ) Then n_oa = n_oa + 1 n_oa_tracers = n_oa_tracers + 1 map_OAtoOAlist( n_oa ) = spc End If End If End Do If ( n_oa .Eq. n_oa_tracers ) Then OA_eflag = .True. xmsg = 'FATAL: All SOA species are tracers at least ' & // 'one SOA species must not be a tracer.' write(logdev,'(a)')Trim( xmsg ) End If n_oa_NotTracers = n_oa - n_oa_tracers ! Allocate the OA property and mapping variables now that the ! number of active OA species has been determined. Allocate ( oaspc ( n_oa )) Allocate ( op_mw ( n_oa )) Allocate ( og_mw ( n_oa )) Allocate ( rog_mw ( n_oa )) Allocate ( og_conc( n_oa )) Allocate ( rog_dconc( n_oa )) Allocate ( map_ROGtoCGRID( n_oa )) Allocate ( map_OAtoAERO( n_oa )) Allocate ( map_OGtoCGRID( n_oa )) Allocate ( lnonvol_oa( n_aerospc )) Allocate ( l_oa( n_aerospc )) #ifdef sens Allocate ( og_sens( n_oa,npmax ) ) Allocate ( rog_dsens( n_oa,npmax ) ) #endif ! Initialize and populate key OA variables map_OAtoAERO = 0 op_mw = 200.0 lnonvol_oa = .false. l_oa = .false. Do spc = 1,n_oa oaspc( spc ) = oa_list( map_OAtoOAlist( spc ) ) map_OAtoAERO( spc ) = findAero( oaspc( spc )%name, .False. ) If( map_OAtoAERO( spc ) .Lt. 1 ) & write(logdev,99904) Trim( oaspc( spc )%name ) op_mw( spc ) = aerospc_mw( map_OAtoAERO( spc ) ) lnonvol_oa( map_OAtoAERo( spc ) ) = ( oaspc( spc )%nonvol .and. & .Not. aerospc( map_OAtoAERo( spc ) )%tracer ) l_oa( map_OAtoAERo( spc ) ) = ( aerospc( map_OAtoAERo( spc ) )%om .and. & .Not. aerospc( map_OAtoAERo( spc ) )%tracer ) End Do ! Determine the location of any reaction counter species on the ! GC Namelist. When a match is found, populate the properties ! of that counter species. map_ROGtoCGRID = 0 ROG_mw = 200.0 Do spc = 1, n_oa If( oaspc( spc )%ctr_name == '' ) Cycle g = index1( oaspc( spc )%ctr_name, n_gc_spc, gc_spc ) if ( g .ge. 1 ) then ! Populate Mapping Vector for the Precursor Species map_ROGtoCGRID( spc ) = gc_strt - 1 + g ROG_mw( spc ) = gc_molwt( g ) else ! Log an Error OA_eflag = .True. write(logdev,99903)Trim( oaspc( spc )%ctr_name ), & Trim( oaspc( spc )%gas_name ) End If End Do ! Determine the location on CGRID of condensable gases in ! equilibrium with OA particle species. When a match is found, ! populate the properties of those gas species. map_OGtoCGRID = 0 og_mw = 200.0 ! Default Molecular Weight for all Organic Vapor Species Do spc = 1,n_oa If( oaspc( spc )%gas_name == '' ) Cycle n = index1( oaspc( spc )%gas_name, n_nr_spc, nr_spc ) If ( n .ge. 1 ) Then map_OGtoCGRID( spc ) = nr_strt - 1 + n og_mw( spc ) = nr_molwt( n ) End If g = index1( oaspc( spc )%gas_name, n_gc_spc, gc_spc ) If ( g .ge. 1 ) Then map_OGtoCGRID( spc ) = gc_strt - 1 + g og_mw( spc ) = gc_molwt( g ) End If If( n .lt. 1 .and. g .lt. 1 ) Then OA_eflag = .True. write(logdev,99902)Trim( oaspc( spc )%gas_name ), & Trim ( oaspc( spc )%name ) End If End Do ! Find indices of required species based on mechname If( index( mechname,'CRACMM1_AQ' ) .eq. 0 & .and. index( mechname,'CRACMM2') .eq. 0 & .and. index( mechname,'CRACMM1AMORE_AQ') .eq. 0 ) then iso1_idx = findVapor( req_sviso1, .True. ) iso2_idx = findVapor( req_sviso2, .True. ) aiso1_idx = findAero( req_aeiso1, .True. ) aiso2_idx = findAero( req_aeiso2, .True. ) aiso3_idx = findAero( req_aeiso3, .True. ) Else iso1_idx = findVapor( req_sviso1, .False. ) iso2_idx = findVapor( req_sviso2, .False. ) aiso1_idx = findAero( req_aeiso1, .False. ) aiso2_idx = findAero( req_aeiso2, .False. ) aiso3_idx = findAero( req_aeiso3, .False. ) End If aorgc_idx = findAero( req_aeorgc, .True. ) End If ! mapping condition #ifdef sens If ( .Not. ae_ddm3d_ready ) Then Call init_aero_ddm3d() End If #endif ! Copy grid cell concentrations of vapor species og_conc = 0.0 rog_dconc = 0.0 gasconv = airdens * inv_mwair ! Compute gas conversion constant #ifdef sens og_sens = 0.0 rog_dsens = 0.0 #endif Do spc = 1, n_oa n = map_OGtoCGRID( spc ) If ( n .Ne. 0 ) Then vtmp = gasconv * og_mw( spc ) og_conc( spc ) = Max( conc( n ) * vtmp, min_gasconc ) #ifdef sens If (schk ) Then Do np = 1, npmax If ( og_conc( spc ) .eq. min_gasconc ) Then og_sens( spc,np ) = 0.0 Else og_sens( spc,np ) = s_conc( np,n ) * vtmp Endif End Do End If #endif End If n = map_ROGtoCGRID( spc ) If ( n .Ne. 0 ) Then rog_dconc( spc ) = Max( conc( n ), min_gasconc ) #ifdef sens If (schk ) Then Do np = 1, npmax If ( rog_dconc( spc ) .eq. min_gasconc ) Then rog_dsens( spc,np ) = 0.0 Else rog_dsens( spc,np ) = s_conc( np,n ) Endif End Do End If #endif End If End Do 99902 Format('FATAL: SOA Vapor, ', a, & ', is not found among the species in ' & / 'the NR or GC namelist used. Required for modeling ', a / ) 99903 Format( 'FATAL: SOA Reaction Counter, ', a, & '. is not found among the species', & / 'in GC namelist used. Required for modeling vapor, ', & a / ) 99904 Format(1X,'aerosol product from namelist species: ', a /) Return End Subroutine extract_soa C----------------------------------------------------------------------- #ifdef sens Subroutine update_orgvapor( conc, s_conc ) #else Subroutine update_orgvapor( conc ) #endif C Populates CGRID from the conc array with updated SOA values. C Revision History: C First version was coded in April 2010 by Steve Howard with C Prakash Bhave, Jeff Young, and Sergey Napelenok. C C SH 03/10/11 Renamed met_data to aeromet_data C SR 03/25/11 Replaced I/O API include files with UTILIO_DEFN C----------------------------------------------------------------------- Use aero_data, only : cond_budget, npf_budget Use aeromet_data, only: airdens, inv_mwair, min_gasconc Use utilio_defn, only: xstat3, m3exit Implicit None ! Arguments: Real, Intent( Out ) :: conc( : ) #ifdef sens Real, Intent( Out ) :: s_conc( :,: ) #endif ! Local Variables: Character( 80 ) :: xmsg Real :: gasconv Real :: vtmp Integer :: n Integer :: spc If ( .Not. mapped ) Then xmsg = 'CGRID Species has not been mapped' Call m3exit( pname, 0, 0, xmsg, xstat3 ) End If ! Compute gas conversion constant gasconv = airdens * inv_mwair ! Copy og_conc back to grid cell concentrations Do spc = 1, n_oa n = map_OGtoCGRID( spc ) If ( n .Ne. 0 ) Then vtmp = og_mw( spc ) * gasconv conc( n ) = Max ( og_conc( spc ) / vtmp, min_gasconc ) #ifdef sens Do np = 1, npmax If ( conc( n ) .Eq. min_gasconc ) Then s_conc( np,n ) = 0.0 Else s_conc( np,n ) = og_sens( spc,np ) / vtmp End If End Do #endif ! Convert Budget Process Numbers from ug m-3 to ppmv ! for application to process analysis and ISAM COND_BUDGET( n ) = COND_BUDGET( n ) / vtmp NPF_BUDGET( n ) = NPF_BUDGET( n ) / vtmp End If End Do Return End Subroutine update_orgvapor C----------------------------------------------------------------------- Function findVapor( vname, required ) Result ( ndx ) C Finds the index of 'required' semivolatile species in the oaspc list C Revision History: C First version was coded in April 2010 by Steve Howard with C Prakash Bhave, Jeff Young, and Sergey Napelenok. C C SR 03/25/11 Replaced I/O API include files with UTILIO_DEFN C----------------------------------------------------------------------- Use RUNTIME_VARS, only : logdev Use utilio_defn Implicit None ! Arguments: Character( 16 ) :: vname Integer ndx Logical required ! Local Variables: Character( 80 ) :: xmsg Integer :: spc ndx = 0 Do spc = 1, n_oa If ( oaspc( spc )%gas_name .Eq. vname ) Then ndx = spc Return End If End Do If ( .Not. required ) Then xmsg = 'Optional Species ' & // Trim( vname ) // & ' is not found in the G2AE or N2AE values of GC or NR namelists.' write(logdev,'(5x,a)') xmsg Return End If xmsg = 'FATAL:' // Trim( vname ) & // ' is not found in the G2AE or N2AE values of GC or NR namelists.' OA_eflag = .True. Call m3warn( pname, 0, 0, xmsg ) Return End Function findVapor C----------------------------------------------------------------------- Subroutine orgaer( dt, layer ) C Updates CGRID via several pathways for secondary organic aerosol (SOA) C formation, as recommended by Edney et al. (2007). These include SOA C formation from isoprene, monoterpenes, sesquiterpenes, long alkanes, and C aromatics (incl. benzene). C Input includes the concentrations of reactive organic gases (ROG) C that were oxidized during the time step (ORGPROD), the vapor-phase C concentration of each semi-volatile organic compound, the C concentration of each SOA species, and the concentration of primary C organic aerosol (all concentrations are stored in the CBLK array). C Output includes updated concentrations of SOA species, vapor-phase C semi-volatile organic compounds, and moments of the accumulation C mode. The geometric mean diameter of the accumulation mode is also C updated. All SOA formation is restricted to the accumulation mode. C This code relies on 12 counter species to be incorporated in the C gas-phase chemical mechanisms to track the amounts of individual C ROG that reacted during the current time step (i.e., NPREC=10). C The arrays of length = NPREC include: C (1) "long" alkanes (ALKRXN) C (2) low-yield aromatics, high-NOx pathway (XYLNRXN) C (3) low-yield aromatics, low-NOx pathway (XYLHRXN) C (4) high-yield aromatics, high-NOx pathway (TOLNRXN) C (5) high-yield aromatics, low-NOx pathway (TOLHRXN) C (6) benzene, high-NOx pathway (BNZNRXN) C (7) benzene, low-NOx pathway (BNZHRXN) C (8) monoterpenes (TRPRXN) C (9) isoprene (ISOPRXN) C (10) sesquiterpenes (SESQRXN) C (11) PAHs/naphthalene, high-NOx pathway (PAHNRXN) C (12) PAHs/naphthalene, low-NOx pathway (PAHHRXN) C In total, 15 organic species are allowed to partition between the C vapor and particulate phases (i.e., NCVAP=12). The arrays of C length = NCVAP include: C alkane (2 semi-volatile products) C low-yield aromatics, high-NOx pathway (2 products) C high-yield aromatics, high-NOx pathway (2 products) C benzene, high-NOx pathway (2 products) C monoterpenes (2 products) C isoprene (2 products) C sesquiterpenes (1 product) C PAHs/naphthalene, high-NOx pathway (2 products) C Equilibrium partitioning calculations are based on the absorptive C partitioning model of Pankow (1994) that was extended by Odum et C al. (1996). Saturation vapor pressures (cstar) and mass-based C stoichiometric yield coefficients (alpha) are obtained from smog- C chamber studies. Saturation vapor pressures are modified as a C function of temperature using eqn 6 of Sheehan & Bowman (2001). C If the pre-existing organic aerosol concentration is zero, C gas/particle equilibrium is established only after the organic gas C concentration reaches the threshold value defined in eqn 9 of C Schell et al. (2001). Until this threshold value is reached, C organic vapors do not partition to the particle phase. Once the C organic gas/particle equilibrium has been established, gas and C particle-phase concentrations of each condensible species are C calculated iteratively using a globally convergent variation of C Newton's method (SUBROUTINE NEWT), as described in eqn 8 of Schell C et al. (2001). C In addition to the various pathways of semi-volatile SOA formation C treated in previous versions of the model, four types of non- C volatile SOA are considered here: C (1) aromatic and PAH-derived SOA under low-NOx conditions C (2) oligomerization of all particle-phase semi-volatile material C (3) SOA formed by in-cloud oxidation (SUBROUTINE AQCHEM) C (4) isoprene IEPOX-derived SOA under acidic conditions (AEROSOL_CHEMISTRY) C Previous code revision history: C Originally coded August 1, 2001 by Dr. Francis S. Binkowski C Revised April 4, 2003 by Gerald Gipson to allow for evaporation C of organics from aerosols. Now total vapor + aerosol phase is C repartitioned at each time step and totorgnv ( Mo ) does not C include oldsoa. C Revised July 14, 2003 by Dr. Prakash V. Bhave C - changed cstar(2,3) from 10.103 & 90.925 to 111.11 & 1000.0 C because smog chamber data of Kalberer et al. were collected C at 298 K (not 310 K, as was previously assumed) C - changed mw_vap(9,10) from 184 g/mol to 177 g/mol, to be C consistent with mwsoa_b C - modified threshold criteria for establishing gas/particle C equilibrium by removing the loose criterion involving "mtot" C - changed variable names to reflect that the combined vapor + C aerosol concentrations are now being repartitioned during C each time step (not just the newly formed SVOC's) C - added documentation and removed extraneous lines of code C Revised December 4, 2003 by Dr. Francis S. Binkowski C - output variables ORGRATE and ORGBRATE removed and replaced C by SOA_A and SOA_B, the newly equilibrated values of C Anthropogenic and Biogenic SOA, respectively. These are non- C negative values. C - variable jj also removed C Revised January 8, 2004 by Dr. Prakash V. Bhave C - removed the output variable YIELD. It has no physical meaning C after the 12/04/2003 revisions. C Revised January 12, 2004 by Dr. Chris G. Nolte C - for computational efficiency, modified the initial caer guess C used as input to NEWT. If NEWT returns check .eq. true, then C NEWT is called again with a guess of caer = 0.5*ctot C - removed ITS parameter from NEWT call vector C - fixed bug where concentrations less than TOLMIN (i.e., 1.0E-12) C were reset to 1.0e-30 C - removed extraneous code related to "Pandis method" of SVOC C partitioning when threshold criterion is not met (i.e., C insufficient organic matter to establish gas/particle C equilibrium) ** results unaffected by this change C C Revised September 7, 2007 by Dr. Sergey L. Napelenok C - Replaced old SOA species (SOA_A, SOA_B) with an array of C precursor-specific SOA species. Replaced OLDSOA_A and OLDSOA_B C with an array (OLDSOA). Updated call vector accordingly. C - Deleted nole* and nbio* variables (now obsolete) C - Increased the dimension of several arrays to accommodate new C SOA precursors (benzene, sesquiterpenes) and pathways (low-NOx, C acid-catalyzed, oligomers, in-cloud) C C Revised November 29, 2007 by Dr. Prakash V. Bhave C - Renamed subroutine from ORGAER3 to ORGAER5 C - Modified M2 and M3 calculations to account for the updated C definition of DRY aerosol (which now includes non-volatile SOA) C - Updated Hvap and corresponding cstar values C - Added parameters for SOA from isoprene and sesquiterpenes C - Updated aromatic SOA scheme to include semi-volatile and non- C volatile products that form under high-NOx and low-NOx C conditions, respectively C - Added oligomerization process C - Added enhancement of isoprene SOA under acidic conditions C C Revised June 2, 2008 by Dr. Prakash V. Bhave C - Changed h_vap of benzene SOA to match that of toluene SOA, based C on consultation with Dr. Ed Edney and Dr. Tad Kleindienst. C Revised June 5, 2008 by Drs. Prakash Bhave and Sergey Napelenok C - Simplified the code for conserving low-volatility isoprene C oxidation products and removed a minor bug in the acid-induced C isoprene SOA calculation. C C Revised September 9, 2008 by Dr. Prakash V. Bhave C - Increased alpha values for SV_TRP1, SV_TRP2, and SV_SQT by a C factor of 1.3 to correct for the implicit assumption of unit C density in those SOA yield parameters. C - Reduced SOA/SOC ratio of AISO1 and AISO2 from 2.5 to 1.6, and C increased SOA/SOC ratio of AISO3 from 2.5 to 2.7. Accordingly, C the molar masses of AISO1 and AISO2 were decreased to 96 g/mol C and the molar mass of AISO3 was increased to 162. C C Revised September 26, 2014 by Dr. Havala Pye C - Removed previous acid enhanced isoprene SOA. Acid catalyzed C isoprene SOA now follows Pye et al. 2013 ES&T uptake of IEPOX. C See AEROSOL_CHEMISTRY and mech.def for IEPOX SOA. C - Allowed for alternate method to NEWT for solving partitioning C equations C References: C 1. Edney, E.O., T.E. Kleindienst, M. Lewandowski, and J.H. C Offenberg, Updated SOA chemical mechanism for the Community C Multi-Scale Air Quality model, EPA 600/X-07/025, U.S. EPA, C Research Triangle Park, NC, 2007. C 2. Pankow, J. F., An absorption model of gas/particle partitioning C of organic compounds in the atmosphere, Atmos. Environ., Vol 28, C No 2, 185-188, 1994. C 3. Odum, J. R., T. Hoffmann, F. Bowman, D. Collins, R. C. Flagan, C and J. H. Seinfeld, Gas/particle partitioning and secondary C organic aerosol yields, Environ. Sci. Technol., Vol 30, No 8, C 2580-2585, 1996. C 4. Sheehan, P. E. and F. M. Bowman, Estimated effects of temperature C on secondary organic aerosol concentrations, Environ. Sci. C Technol., Vol 35, No 11, 2129-2135, 2001. C 5. Schell, B., I. J. Ackermann, H. Hass, F. S. Binkowski, and C A. Abel, Modeling the formation of secondary organic aerosol C within a comprehensive air quality modeling system, J. Geophys. C Res., Vol 106, No D22, 28275-28293, 2001. C 6. Strader, R., F. Lurmann, and S. N. Pandis, Evaluation of C secondary organic aerosol formation in winter, Atmos. Environ., C Vol 33, 4849-4863, 1999. C 7. Ng, N. L., J. H. Kroll, A. W. H. Chan, P. S. Chhabra, R. C. C Flagan, and J. H. Seinfeld, Secondary organic aerosol formation C from m-xylene, toluene, and benzene, Atmos. Chem. Phys., Vol 7, C 3909-3922, 2007a. C 8. Griffin, R. J., D. R. Cocker III, R. C. Flagan, and J. H. C Seinfeld, Organic aerosol formation from the oxidation of C biogenic hydrocarbons, J. Geophys. Res., Vol 104, No D3, C 3555-3567, 1999. C 9. Bian, F. and F. M. Bowman, Theoretical method for lumping C multicomponent secondary organic aerosol mixtures, Environ. C Sci. Technol., Vol 36, No 11, 2491-2497, 2002. C 10. Offenberg, J. H., T. E. Kleindienst, M. Jaoui, M. Lewandowski, C and E. O. Edney, Thermal properties of secondary organic C aerosols, Geophys. Res. Lett., Vol 33, L03816, doi:10.1029/ C 2005GL024623, 2006. C 11. Bahreini, R., M. D. Keywood, N. L. Ng, V. Varutbangkul, S. Gao, C R. C. Flagan, J. H. Seinfeld, D. R. Worsnop, and J. L. Jimenez, C Measurements of secondary organic aerosol from oxidation of C cycloalkenes, terpenes, and m-xylene using an Aerodyne aerosol C mass spectrometer, Environ. Sci. Technol., Vol 39, 5674-5688, C 2005. C 12. Alfarra, M. R., D. Paulsen, M. Gysel, A. A. Gaforth, J. Dommen, C A. S. H. Prevot, D. R. Worsnop, U. Baltensperger, and H. Coe, C A mass spectrometric study of secondary organic aerosols formed C from the photooxidation of anthropogenic and biogenic precursors C in a reaction chamber, Atmos. Chem. Phys., Vol 6, 5279-5293, C 2006. C 13. Ng, N. L., P. S. Chhabra, A. W. H. Chan, J. D. Surratt, J. H. C Kroll, A. J. Kwan, D. C. McCabe, P. O. Wennberg, A. Sorooshian, C S. M. Murphy, N. F. Dalleska, R. C. Flagan, and J. H. Seinfeld, C Effect of NOx level on secondary organic aerosol (SOA) formation C from the photooxidation of terpenes, Atmos. Chem. Phys., Vol 7, C 5159-5174, 2007b. C 14. Kostenidou, E., R. K. Pathak, and S. N. Pandis, An algorithm for C the calculation of secondary organic aerosol density combining C AMS and SMPS data, Aerosol Sci. Technol., Vol 41, 1002-1010, C 2007. C 15. Offenberg, J. H., C. W. Lewis, M. Lewandowski, M. Jaoui, T. E. C Kleindienst, and E. O. Edney, Contributions of toluene and C alpha-pinene to SOA formed in an irradiated toluene/alpha-pinene/ C NOx/air mixture: comparison of results using 14C content and SOA C organic tracer methods, Environ. Sci. Technol., Vol 41, 3972- C 3976, 2007. C 16. Henze, D. K. and J. H. Seinfeld, Global secondary organic aerosol C from isoprene oxidation, Geophys. Res. Lett., Vol 33, L09812, C doi:10.1029/2006GL025976, 2006. C 17. Kleindienst, T. E., M. Jaoui, M. Lewandowski, J. H. Offenberg, C C. W. Lewis, P. V. Bhave, and E. O. Edney, Estimates of the C contributions of biogenic and anthropogenic hydrocarbons to C secondary organic aerosol at a southeastern US location, Atmos. C Environ., Vol 41, 8288-8300, 2007. C 18. Kalberer, M., D. Paulsen, M. Sax, M. Steinbacher, J. Dommen, C A. S. H. Prevot, R. Fisseha, E. Weingartner, V. Frankevich, C R. Zenobi, and U. Baltensperger, Identification of polymers as C major components of atmospheric organic aerosols, Science, Vol C 303, 1659-1662, 2004. C 19. Turpin, B. J. and H.-J. Lim, Species contributions to PM2.5 mass C concentrations: revisiting common assumptions for estimating C organic mass, Aero. Sci. Technol., Vol 35, 602-610, 2001. C 20. Surratt, J. D., M. Lewandowski, J. H. Offenberg, M. Jaoui, T. E. C Kleindienst, E. O. Edney, and J. H. Seinfeld, Effect of acidity C on secondary organic aerosol formation from isoprene, Environ. C Sci. Technol., Vol 41, 5363-5369, 2007. C 21. Pye et al., Epoxide pathways improve model prediction of isoprene C markers and reveal key role of acidity in aerosol formation, C Environ. Sci. Technol., 2013. C Revision History: C First orgaer version was coded in April 2010 by Steve Howard with C Prakash Bhave, Jeff Young, and Sergey Napelenok. C C SH 03/10/11 Renamed met_data to aeromet_data C SR 03/25/11 Replaced I/O API include files with UTILIO_DEFN C HOTP 05Aug15 Made the calculation for total number of organic moles more robust C BNM 11/09/15 Added Some Comments to the SOA Scheme C HOTP 7/17/18 Added uptake of water onto hydrophillic organics C----------------------------------------------------------------------- C Key Subroutines/Functions called: newt, soabisection Use aero_data Use aeromet_data Use utilio_defn Implicit None ! Arguments: Real :: dt ! Synchronization time step [ s ] Integer :: layer ! model layer number ! Local variables: Logical, Save :: first_time = .True. Logical, Save :: solve_orgmoles = .True. Character( 300 ) :: xmsg Integer :: i, im, indx, ispc, n, nsvol Integer, Save :: nsvol_tracers Integer, Save :: nsvol_Nottracers Real, Allocatable, Save :: mw_inv( : ) ! Inverse MW of SVOCs [ mol/g ] Real, Allocatable, Save :: rog_ppm2ug( : ) ! [ ppm per ug/m3 ] for ORGPROD at ! reference temperature and pressure ! Parameters & variables for adjusting cstar to ambient conditions Real, Parameter :: tref = 298.0 ! reference temperature [ K ] Real, Parameter :: trefm1 = 1.0 / tref ! inverse of reference temperature Real, Parameter :: prefm1 = 1.0 / stdatmpa ! inverse of reference pressure Real, Parameter :: rgas1 = 1.0 / rgasuniv ! reciprocal of universal gas constant Real, Parameter :: kolig = 0.69314718 / 72000.0 ! 20h half-life of oligomerization rate [ 1/s ] Real, Parameter :: olgrat = 2.1 ! SOA/SOC ratio for oligomers Real, Parameter :: kacid = 0.00361 ! acid-induced enhancement factor Real, Parameter :: threshmin = 1.0E-19 ! small positive number Real, Parameter :: ctolmin = 1.0E-06 Real, Parameter :: convfac_298 = 101325.0 * rgas1 * trefm1 ! P/RT at 1 atm and 298 K [ mole/m**3 ] Real, Parameter :: difforg = 9.36e-6 ! Diffusivity of organics [m2 s-1] Real, Parameter :: alphorg = 1.0 ! accomodation coefficient Real convfac Real tt1, tt2 ! temperature-related factors Real tempcorr ! temperature correction factor for cstar ! Variables used in oligomerization calculations Real expdt ! non-dimensional loss coefficient Real nsvpa ! particle-phase anthropogenic SVOC [ umolC/m3 ] Real nsvpb ! particle-phase biogenic SVOC [ umolC/m3 ] ! Variables used in acid-enhanced isoprene SOA calculations Real hplus ! accumulation-mode H+ conc [ nmol/m3 ] Real aiso12 ! particle-phase isoprene SVOC [ ug/m3 ] Real vviso ! vapor-phase isoprene SVOC [ ug/m3 ] Real xiso3 ! newly produced AISO3J [ ug/m3 ] Real isofrac ! ratio for depletion of vapor-phase products ! Variables used in equilibrium partitioning calculations Real totrog( n_oa ) ! drog conc mapped to each SVOC [ ug/m3 ] Real(8) GRtmp( n_mode ) ! Dummy variable for accurate treatment of growth to specific moment Real GR3( n_oa,n_mode ) ! 3rd Moment Growth for each mode and compound Real GR3FRAC( n_oa,n_mode ) ! Fraction of each mode growing/shrinking Real dcaer ! Change in SVOC conc after partitioning happens[ ug/m3 ] Real cbar_org(n_oa) ! On-line molecular speed of each organic Real dv_org ! On-line gas-phase diffusivity of each organic Real totorgnv ! Non-volatile OA [ umole/m3 ] Real totorg ! SOA + POA before time step [ umole/m3 ] Real threshold ! criterion for establishing gas/part equil. Real faer ! fraction of total in aerosol, intermediate value Logical check ! flag to indicate if NEWT subroutine ! converged to a spurious root Real totaer ! total aerosol-phase mass of each semivolaitle component Real Phi ! mass fraction of a semivolatile component ! in each mode Character(16), Allocatable, Save :: svname( : ) Real, Allocatable, Save :: svmw( : ), svmw_inv( : ) Real, Allocatable, Save :: c0 ( : ) ! cstar at AIRTEMP [ ug/m3 ] Real, Allocatable, Save :: caer0 ( : ) ! Particle conc before current time step [ ug/m3 ] Real, Allocatable, Save :: ctoti ( : ) ! Total (g+p) conc before current time step [ ug/m3 ] Real, Allocatable, Save :: prod ( : ) ! Total G+P produced during current step [ ug/m3 ] Real, Allocatable, Save :: ctotf ( : ) ! Total conc after current time step [ ug/m3 ] Real, Allocatable, Save :: caer ( : ) ! Particle conc in aerosol phase after current ! step [ ug/m3 ] ! Variables for computing the budget REAL :: CBUDGET0_NUM ( N_MODE ) REAL :: CBUDGET0_SRF ( N_MODE ) REAL :: CBUDGET0_MASS( N_AEROSPC,N_MODE ) REAL :: CBUDGET0_VAP ( N_OA ) ! Variables for water uptake onto organics Real kappaVorg ! sum_i(kappa_i*Vorganic_i) [m3 species/m3 air] Real overallkappa ! sum_i(kappa_i*Vorganic_i)/vtot [NA units] Real totvol ! total aerosol volume [m3 species/m3 air] Real poa ! nonvolatile poa concentration [ug/m3] Real numparticles ! number of acc mode particles [#/m3] Real diam ! volume equivalent particle diameter [m] Real aw ! activity of water [fraction] Real relhumid ! relative humidity capped at 95% [fraction] ! Cap represents conservative est of water uptake ! and is consistent with IMPROVE visibility methods ! Variables for updating 2nd and 3rd moments Real(8) m0_init( 2 ) ! initial 0 moment, wet [ mom/m3 ] Real(8) m1wet_init( 2 ) ! initial 1st moment, wet [ mom/m3 ] Real(8) m2wet_initD( 2 ) ! initial 2nd moment, wet [ mom/m3 ] Real m3wet_init( 2 ) ! initial 3rd moment, wet [ mom/m3 ] Real m2wet_init( 2 ) ! initial 2nd moment, wet [ mom/m3 ] Real m3wet_final( 2 ) ! final 3rd moment with updated SOA [ mom/m3 ] Real m2wet_final( 2 ) ! final 2nd moment with updated SOA [ mom/m3 ] ! Added for new SOA bisection (hotp 7/6/11) Real :: lowb, upb, orgmoles ! lower bound, upper bound, total aerosol moles Logical, Parameter :: newtpartition = .False. ! true to use original method, false to use new bisection #ifdef sens C Sensitivity variables Real( 8 ), Allocatable, Save :: s_totrog( :,: ) ! drog conc mapped to each SVOC [ ug/m3 ] Real( 8 ), Allocatable, Save :: s_ctoti ( :,: ) ! Total (g+p) conc before current time step [ ug/m3 ] Real( 8 ), Allocatable, Save :: s_prod ( :,: ) ! Total G+P produced during current step [ ug/m3 ] Real( 8 ), Allocatable, Save :: s_ctotf ( :,: ) ! Total sens after current time step [ ug/m3 ] Real( 8 ), Allocatable, Save :: s_caer ( :,: ) ! Particle sens in aerosol phase after current step [ ug/m3 ] Real( 4 ), Allocatable, Save :: kpart( : ) ! partitioning factor caer/(ctotf) Real( 8 ), Allocatable, Save :: s_dcaer ( : ) ! Change in SVOC sens after partitioning happens[ ug/m3 ] Real( 8 ), Allocatable, Save :: s_caer0 ( :,: ) ! Particle sens before current time step [ ug/m3 ] Integer allocstat #endif C----------------------------------------------------------------------- If ( first_time ) Then first_time = .False. ! Set unit conversion and inverse mw constants. Allocate space ! for semivolatile species partitioning variables. Allocate( rog_ppm2ug( n_oa ), mw_inv( n_oa ) ) rog_ppm2ug( : ) = ROG_mw( : ) * convfac_298 mw_inv( : ) = 1.0 / op_mw( : ) nsvol = count( .not.oaspc( : )%nonvol ) If ( n_oa_tracers .gt. 0 )then nsvol_tracers = count( .not.oaspc( (n_oa_NotTracers+1):n_oa )%nonvol ) Else nsvol_tracers = 0 End If nsvol_NotTracers = nsvol - nsvol_tracers If ( nsvol_NotTracers .Le. 0 ) Then xmsg = 'All semivolatile SOA species are tracers. Not realistic model setup.' solve_orgmoles = .False. Call m3warn( pname, 0, 0, xmsg ) End If Allocate( svname( nsvol ), svmw( nsvol ), svmw_inv( nsvol ), & c0( nsvol ), caer0( nsvol ), ctoti( nsvol ), & prod( nsvol ), ctotf( nsvol ), caer( nsvol ) ) #ifdef sens Allocate ( & s_totrog( n_oa,npmax ), & s_ctoti( nsvol,npmax ), & s_ctotf( nsvol,npmax ), & s_caer( nsvol,npmax ), & kpart( nsvol ), & s_prod( nsvol,npmax ), & s_dcaer( npmax ), & s_caer0( nsvol,npmax ), & stat = allocstat ) If ( allocstat .Ne. 0 ) Then xmsg = 'Failure allocating sensitivity variables in ORGAER' Call m3exit ( 'ORGAER', 0, 0, xmsg, xstat1 ) End If #endif End If ! first_time ! Set temperature factors tt1 = tref / airtemp tt2 = trefm1 - 1.0 / airtemp convfac = tt1 * airpres * prefm1 ! Set Mass Transfer Properties (although each condensing organic ! will have its own diffusivity and molecular speed, just assume ! as a first guess that they are all uniform and given by a rep- ! resentative compound. Dv_org = difforg * ( STDATMPA / AIRPRES ) * ( AIRTEMP / 273.16 ) ** 1.75 cbar_org( : ) = SQRT(8.0 * RGASUNIV * AIRTEMP / ( PI * og_mw(:) * 1.0E-3 ) ) ! Compute 3rd moment, 2nd moment. moment_conc arrays are wet Call calcmoments ( .true. ) Call getpar( FIXED_sg ) ! Initialize Budget Variables CBUDGET0_NUM = MOMENT0_CONC CBUDGET0_SRF = MOMENT2_CONC CBUDGET0_MASS = AEROSPC_CONC CBUDGET0_VAP = OG_CONC ! Initialize Local Moment Variables m3wet_init( : ) = moment3_conc( 1:2 ) m2wet_init( : ) = moment2_conc( 1:2 ) ! Calculate total flux associated with each indivual mode ! for the third moment. GR3( :,: ) = 0.0 m0_init( : ) = Real( moment0_conc( 1:2 ), 8 ) m2wet_initD( : ) = Real( m2wet_init( 1:2 ), 8 ) Do im = 1,2 m1wet_init( im ) = m0_init( im ) * aeromode_diam( im ) * & exp( 0.5d0 * aeromode_lnsg( im ) ** 2.0d0 ) Do i = 1, n_oa If ( aero_missing( map_OAtoAERO( i ),im ) .or. & oaspc(i)%nonvol ) Cycle Call HCOND3( m0_init( im ), m1wet_init( im ), & m2wet_initD( im ), Dv_org, alphorg, & cbar_org(i), GRtmp ) GR3( i,im ) = Real( GRtmp( 2 ), 4 ) End Do End Do ! Calculate fraction of mass transfer to/from each mode GR3FRAC( :,: ) = 0.0 Where ( GR3( :,1 ) .gt. 0. ) & GR3FRAC( :,1 ) = GR3( :,1 ) / ( GR3(:,1) + GR3(:,2) ) ! Aitken Growth Where ( GR3( :,2 ) .gt. 0. ) & GR3FRAC( :,2 ) = GR3( :,2 ) / ( GR3(:,1) + GR3(:,2) ) ! Accumulation Growth ! Initialize drog from ORGPROD and change units to [ ug / m**3 ] ! Assignment of drog to totrog. This moving mass from the reactive ! gas tracer species to the array that will be multiplied by alpha ! to give newly formed semivolatile vapors. totrog( : ) = rog_dconc( : ) * rog_ppm2ug( : ) * convfac #ifdef sens Do np = 1, npmax Do i = 1, n_oa s_totrog( i, np ) = rog_dsens( i, np )* rog_ppm2ug( i ) * convfac End Do End Do #endif ! Transfer non-volatile products directly to aerospc_conc array (2nd mode) Do i = 1, n_oa_NotTracers If ( oaspc( i )%nonvol .and. oaspc( i )%alpha .gt. 0. ) Then aerospc_conc( map_OAtoAERO( i ),2 ) = & aerospc_conc( map_OAtoAERO( i ),2 ) & + oaspc( i )%alpha * totrog( i ) #ifdef sens Do np = 1, npmax s_aerospc_conc( map_OAtoAERO( i ),2,np ) = & s_aerospc_conc( map_OAtoAERO( i ),2,np ) & + oaspc( i )%alpha * s_totrog( i,np ) End Do #endif End If End Do ! Equilibrium Partitioning Calculations ! Initial guess of caer is computed as follows: ! From eqn (8) of Schell et al. (2001) ! caer = ctotf - c0 * (caer/MW) / totorg ! Assuming totorg doesn't change during the timestep, ! caer * (1 + c0/MW / totorg) = ctotf ! caer = ctotf / ( 1 + c0/MW / totorg ) threshold = 0.0 ! This threshold will be compared to the ! saturation concentration to determine whether ! or not OA partitioning is even likely. upb = 0.0 ! Upper bound for bisection method ! Compute the number of nonvolatile and total organic compound ! moles in the system nsvol = 0 totorgnv = sum( sum( aerospc_conc( :,1:2 ),2 ) / aerospc_mw( : ), & mask=lnonvol_oa( : ) ) totorg = sum( sum( aerospc_conc( :,1:2 ),2 ) * aerospc_mwinv( : ), & mask=(aerospc(:)%om .and. .Not. aerospc(:)%tracer) ) ! Calculate the Initial Partitioning of Each Semivolatile ! Compound Do i = 1, n_oa n = map_OAtoAERO( i ) if ( .not.oaspc( i )%nonvol ) Then nsvol = nsvol + 1 svname( nsvol ) = oaspc( i )%name ! Sum particle-phase and total organic mass for this ! semivolatile species caer0( nsvol ) = aerospc_conc( n,2 ) + aerospc_conc( n,1 ) ctoti( nsvol ) = og_conc( i ) & + aerospc_conc( n,2 ) + aerospc_conc( n,1 ) #ifdef sens Do np = 1, npmax s_caer0( nsvol,np ) = s_aerospc_conc( n,2,np ) & + s_aerospc_conc( n,1,np ) s_ctoti( nsvol,np ) = og_sens( i,np ) & + s_aerospc_conc( n,2,np ) & + s_aerospc_conc( n,1,np ) End Do #endif ! Calculate C* at current temperature tempcorr = tt1 * Exp( oaspc( i )%enth * rgas1 * tt2 ) c0( nsvol ) = oaspc( i )%cstar * tempcorr ! Satn Conc. [ug/m3] prod( nsvol ) = oaspc( i )%alpha * totrog( i ) ! Total Vapor Produced [ug/m3] ctotf( nsvol )= ctoti( nsvol ) + prod( nsvol ) ! Vapor + Particle [ug/m3] #ifdef sens Do np = 1, npmax s_prod( nsvol,np ) = oaspc( i )%alpha * s_totrog( i,np ) s_ctotf( nsvol,np ) = s_ctoti( nsvol,np ) + s_prod( nsvol,np ) End Do #endif If ( .Not. aerospc( n )%tracer ) Then ! partition only based on NotTracer mass threshold = threshold + ctotf( nsvol ) / c0( nsvol ) ! Partition Nontracer semivolatile species accordingly faer = totorg ! initial fraction in aerosol & / (totorg + c0( nsvol ) * mw_inv( i ) ) caer( nsvol ) = ctotf( nsvol ) * faer ! initial amount in aerosol #ifdef sens Do np = 1, npmax s_caer( nsvol,np ) = s_ctotf( nsvol,np ) * faer End Do #endif if upb = upb + ctotf( nsvol ) * mw_inv( i ) ! upper bound: just semivolatile ! moles for now. Nonvolatile moles ! will be added later. End If svmw_inv( nsvol ) = mw_inv( i ) svmw( nsvol ) = op_mw( i ) end if End Do ! Check If gas/particle equilibrium can be established If ( ( threshold .Gt. 1.0 ) .Or. ( totorgnv .Gt. threshmin ) ) Then ! Perform one of two methods for partitioning If ( newtpartition ) Then ! METHOD1 ! Calculate new SOA by partitioning. This method uses a globally convergent ! Newton-Raphson method coded by Dr Benedikt Schell to solve the nonlinear ! quadratic system shown in eqn 8 of Schell et al: ! A(i) * caer(i) ** 2 + B * caer(i) + C(i) = 0.0, ! where B(i) contains the sum of all caer(j), for j not equal to i. Call newt( layer, caer, nsvol_NotTracers, check, & ctotf, c0, svmw_inv, totorgnv ) If ( check ) Then ! Try again with initial guess of 50/50 gas/aerosol split. Do i = 1, nsvol_NotTracers caer( i ) = 0.5 * ctotf( i ) End Do Call newt( layer, caer, nsvol_NotTracers, check, & ctotf, c0, svmw_inv, totorgnv ) If ( check ) Then Write( xmsg,'( A,I4 )' ) & ' *** Problem in NEWT at Layer = ', layer Call m3exit( pname, 0, 0, xmsg, xstat3 ) End If End If If ( nsvol_tracers .Gt. 0 ) Then ! partition tracer semivolatiles based on Schell equation (8) ! assuming: ! 1) the orgmoles from tracer species are already accounted in the orgmoles ! from non-tracers species. ! 2) tracer is divided between volatile and nonvolatile components. ! the nonvolatile part can not partition. The division is given by the ! variable, frac_volatile. ! shell's visocity orgmoles = totorgnv Do i = 1, nsvol_NotTracers orgmoles = orgmoles + caer( i ) * mw_inv( i ) End Do ! phi = aerospc_conc( aorgh2o_idx, 2 ) * aerospc_mwinv( aorgh2o_idx ) / orgmoles Do i = nsvol_NotTracers+1, nsvol faer = svmw(i) * orgmoles & / ( c0( i ) + svmw(i) * orgmoles ) caer( i ) = ctotf( i ) * faer ! update final concentration with nonvolatile fraction ctotf( i ) = ctotf( i ) End Do End If Else ! METHOD2 ! Calculate new SOA by partitioning. ! Method uses bisection method to solve for total number of moles ! of orgaic aerosol. Caer is then calculated based on that number. ! Solve for total number of organic moles in aerosol (hotp 7/5/11) lowb = totorgnv ! lower: moles of nonvolatile upb = lowb + upb ! upper: all moles (semi and nonvolatile) If ( abs( upb - lowb ) .Lt. threshmin ) Then ! no SOA to partition orgmoles = ( lowb + upb ) / 2.0 Else upb = upb * ( 2.0 + 1.0e-7 * real(n_oa_NotTracers) ) ! prevent numerical issues orgmoles = soabisect( lowb, upb, totorgnv, nsvol_NotTracers, c0, ctotf, svmw ) End If ! Determine concentration of each semivoltile (hotp 7/5/11) Do i = 1, nsvol_NotTracers faer = svmw(i) * orgmoles / & ( c0( i ) + svmw(i) * orgmoles ) caer( i ) = ctotf( i ) * faer End Do ! partition tracer semivolatiles based on Schell equation (8) ! assuming: ! 1) orgmoles already include moles from tracers Do i = nsvol_NotTracers+1, nsvol faer = svmw(i) * orgmoles & / ( c0( i ) + svmw(i) * orgmoles ) caer( i ) = ctotf( i ) * faer ! update final concentration with nonvolatile fraction ctotf( i ) = ctotf( i ) End Do End If ! End OA paritioning solver METHOD selection #ifdef sens c approximate partioning for sensitivities kpart = 0.0 Do i = nsvol_NotTracers+1, nsvol If ( ctotf( i ) .gt. 0.0 ) Then kpart( i ) = caer( i ) / ctotf( i ) Else kpart( i ) = 0.5 Endif kpart( i ) = max( min(kpart( i ),1.0), 0.0 ) End Do Do np = 1, npmax Do i = nsvol_NotTracers+1, nsvol s_caer( i,np ) = s_ctotf( i,np ) * Real( kpart( i ),8 ) End Do End Do #endif ! Constrain caer to values between conmin and ctotf nsvol = 0 Do i = 1, n_oa If ( oaspc( i )%nonvol ) Cycle nsvol = nsvol + 1 ! Check that the mass of aerosol left has not gone below a ! minimum value If ( caer( nsvol ) .Lt. tiny(0.0) ) Then Write( logdev,* ) 'caer less than zero for OA species: ', & oaspc( i )%name, ' ', caer( nsvol ), & ' reset to evapmin.' ctotf( nsvol ) = ctotf( nsvol ) - caer( nsvol ) + evapmin caer( nsvol ) = evapmin #ifdef sens Do np = 1, npmax s_ctotf( nsvol,np ) = s_ctotf( nsvol,np ) - s_caer( nsvol,np) c s_ctotf( nsvol,np ) = s_ctotf( nsvol,np ) c * ( 1.0 - kpart( nsvol) ) s_caer( nsvol,np ) = 0.0 End Do #endif End If ! Check that the mass of aerosol condensed does not exceed ! the total If ( caer( nsvol ) - ctotf( nsvol ) .Gt. tiny(0.0) ) Then Write( logdev,* ) 'caer exceeds ctotf at i = ', i Write( logdev,* ) 'caer: ', caer( nsvol ), ' ctotf: ', ctotf( nsvol ) Write( logdev,* ) 'caer reset to ctotf' caer( nsvol ) = ctotf( nsvol ) #ifdef sens Do np = 1, npmax s_caer( nsvol,np ) = s_ctotf( nsvol,np ) End Do #endif End If ! Calculate total change in OA Species Concentration dcaer = caer( nsvol ) - caer0( nsvol ) #ifdef sens Do np = 1, npmax s_dcaer( np ) = s_caer( nsvol,np ) - s_caer0( nsvol,np ) End Do #endif ! Sum the total aerosol mass of this compound across all ! aerosol modes indx = map_OAtoAERO( i ) totaer = max( sum( aerospc_conc( indx,: ) , mask = & .NOT.aero_missing( indx,: ) ), conmin ) ! Transfer the semivolatile mass Do im = 1,2 If ( aero_missing( indx,im ) ) Cycle If ( dcaer .lt. 0.0 ) Then ! Evaporate using mode-dependent mass fraction Phi = aerospc_conc( indx,im ) / totaer aerospc_conc( indx,im ) = & aerospc_conc( indx,im ) + dcaer * Phi #ifdef sens Do np = 1, npmax s_aerospc_conc( indx,im,np ) = & s_aerospc_conc( indx,im,np ) + s_dcaer( np ) * Phi End Do #endif Else ! Condense using mode-dependent condensaiton flux ! fraction aerospc_conc( indx,im ) = aerospc_conc( indx,im ) & + dcaer * GR3FRAC( i,im ) #ifdef sens Do np = 1, npmax s_aerospc_conc( indx,im,np ) = & s_aerospc_conc( indx,im,np ) & + s_dcaer( np ) * GR3FRAC( i,im ) End Do #endif End If End Do og_conc( i ) = ctotf( nsvol ) - caer( nsvol ) #ifdef sens Do np = 1, npmax og_sens( i,np ) = s_ctotf( nsvol,np ) - s_caer( nsvol,np ) End Do #endif End Do ! Partitioning Vapor Loop Else ! threshold not exceeded; no material transferred to aerosol phase nsvol = 0 Do i = 1, n_oa if ( oaspc( i )%nonvol ) Cycle nsvol = nsvol + 1 indx = map_OAtoAERO( i ) ! Set all semivolatile aerosols to minimum concentration aerospc_conc( indx, 1:n_mode ) = conmin ! Sum up particle-phase mass to subtract it from available ! vapor og_conc( i ) = ctotf( nsvol ) - & sum( aerospc_conc( indx,: ), & mask=.not.aero_missing( indx,: ) ) #ifdef sens Do np = 1, npmax s_aerospc_conc( indx, 1:n_mode,np ) = 0.0 og_sens( i,np ) = s_ctotf( nsvol,np ) - & sum( s_aerospc_conc( indx,:,np ), & mask=.not.aero_missing( indx,: ) ) End Do #endif End Do End If ! check on equilibrium threshold ! Add uptake of water onto hydrophillic organics (see Petters and ! Kreidenweis 2007 ACP and Pye et al. 2017 ACP for method). ! Uptake of water onto inorganic species is calculated elsewhere ! using ISORROPIA. If ( aorgh2o_idx > 0 ) Then kappaVorg = 0.0e0 ! units: m3.spec/m3.air totvol = 0.0e0 ! units: m3.particle/m3.air aerospc_conc( aorgh2o_idx,: ) = conmin im = 2 ! only compute water for accumulation mode OM ! Compute sum_i(Kappa_i*Vorg_i) for all OM species except POC ! and PNCOM, which will be handled next. Do i = 1, n_aerospc If( aerospc( i )%tracer )cycle totvol = totvol + aerospc_conc(i, im ) / & aerospc( i )%density * 1.0e-9 If( aerospc( i )%OM .and. & i .ne. apoc_idx .and. i .ne. apncom_idx ) Then kappaVorg = kappaVorg + aerospc( i )%kappaorg * & aerospc_conc( i, im ) / aerospc( i )%density*1.0e-9 End If End Do ! Account for Kappa of Nonvolatile POC and PNCOM species. This ! must be done separately because PNCOM has infinite OM:OC poa = aerospc_conc( apoc_idx, im ) + aerospc_conc( apncom_idx, im ) kappaVorg = kappaVorg + & (0.11*poa / ( aerospc_conc(apoc_idx, im ) + tiny(0.0) ) -0.10) & * (aerospc_conc( apncom_idx, im ) / aerospc( apncom_idx )%density + & aerospc_conc( apoc_idx, im ) / aerospc( apoc_idx )%density )*1.0e-9 ! Calculate Aggregate Kappa and volume Equivalent Diameter overallkappa = kappaVorg/totvol numparticles = moment0_conc( im ) diam = (6.0*totvol/numparticles/ pi ) ** (1.0/3.0) ! Compute aerosol water (Eq 3 of Petters and Kreidenweis) relhumid = min( airRH, 0.95 ) ! Cap RH at 95% to be conservative regarding uptake aw = activityw( relhumid, airtemp, diam ) ! activity of water If( overallkappa .gt. 1e-6 ) then ! prevents situation of little uptake aerospc_conc( aorgh2o_idx, im ) = aerospc( aorgh2o_idx )%density & * aw/(1.0-aw) * kappaVorg * 1.0e9 End If End If ! End organic water uptake ! Update 3rd moment, 2nd moment, and Dg in CBLK array by assuming that SOA ! condensation/evaporation does not affect the geometric standard deviation. ! Get new third moment of all species, do not get second moment ! directly from the calcmoments diagnostic. Instead, update it ! manually to account for condensation in ORGAER. Call calcmoments( .true. ) m3wet_final( : ) = moment3_conc( 1:2 ) m2wet_final( 1 ) = m2wet_init( 1 ) * ( m3wet_final( 1 ) / & m3wet_init( 1 ) ) ** ( 2.0 / 3.0 ) m2wet_final( 2 ) = m2wet_init( 2 ) * ( m3wet_final( 2 ) / & m3wet_init( 2 ) ) ** ( 2.0 / 3.0 ) moment2_conc( 1:2 ) = m2wet_final( : ) ! Update Budget Variables DO IM = 1,N_MODE ! Update Number and Surface Area COND_BUDGET( AERONUM_MAP( IM ) ) = MOMENT0_CONC( IM ) - CBUDGET0_NUM( IM ) COND_BUDGET( AEROSRF_MAP( IM ) ) = MOMENT2_CONC( IM ) - CBUDGET0_SRF( IM ) ! Update Organic Particles DO ISPC = 1,N_AEROSPC IF ( AEROSPC_MAP( ISPC,IM ) .NE. 0 ) & COND_BUDGET( AEROSPC_MAP( ISPC,IM ) ) = & AEROSPC_CONC( ISPC,IM ) - CBUDGET0_MASS( ISPC,IM ) END DO ! Update Organic Vapors DO ISPC = 1,N_OA IF ( MAP_OGtoCGRID( ISPC ) .NE. 0 ) & COND_BUDGET( MAP_OGtoCGRID( ISPC ) ) = & OG_CONC( ISPC ) - CBUDGET0_VAP( ISPC ) END DO END DO Return End Subroutine orgaer C----------------------------------------------------------------------- SUBROUTINE NEWT( LAYER, X, N, CHECK, & CTOT, CSAT, IMWCV, MINITW ) C Description: C This subroutine and the underlying subprograms constitute Dr. C Benedikt Schell's SOA model. C C Adopted from Numerical Recipes in FORTRAN, Chapter 9.7, 2nd ed. C C Given an initial guess X(1:N) for a root in N dimensions, find C the root by a globally convergent Newton's method. The vector of C functions to be zeroed, called FVEC(1:N) in the routine below, is C returned by a user-supplied subroutine that must be called FUNCV C and have the declaration SUBROUTINE FUNCV(N,X,FVEC). The output C quantity CHECK is false on a normal return and true if the C routine has converged to a local minimum of the function FMINV C defined below. In this case, user should try restarting from a C different initial guess. C C Key Subroutines Called: FDJAC, FMINV, LNSRCH, LUBKSB, LUDCMP C C Revision History: C In CMAQ v4.3 - v4.7.1, this subroutine was embedded in a separate C Fortran module entitled SOA_NEWT. Below, the Revision History from C the SOA_NEWT module has been merged with the Revision History from C this specific subroutine. C C CGN 01/12/04 removed ITS from call vector, added documentation, and C removed extraneous lines of code C C SLN 09/18/07 updated NP and NPREC for compatibility with new SOA module C C PVB 11/19/07 renamed NP to NCVAP for consistency with ORGAER5 subroutine C C SH 02/10/10 embedded the old Fortran module, SOA_NEWT, into a new module, C SOA_DEFN, so all SOA-related code can be found in one file. Renamed C NCVAP to n_oa. Its value is now set in SOA_DEFN (instead of inside C this subroutine). Added TOLX to the call vector of Subroutine LNSRCH, C since that parameter is now set in this subroutine (instead of in the C Fortran module). C C References: C 1. Schell, B., I. J. Ackermann, H. Hass, F. S. Binkowski, and C A. Abel, Modeling the formation of secondary organic aerosol C within a comprehensive air quality modeling system, J. Geophys. C Res., Vol 106, No D22, 28275-28293, 2001. IMPLICIT NONE C Arguments INTEGER LAYER ! model layer INTEGER N ! dimension of problem REAL X( N ) ! initial guess of CAER LOGICAL CHECK REAL CTOT( N ) ! total concentration GAS + AER + PROD REAL CSAT( N ) ! saturation conc. of cond. vapor [ug/m^3] REAL IMWCV( N ) ! inverse molecular weights REAL MINITW ! weighted initial mass C Following Numerical recipes Integer NN REAL :: FVEC( N ) ! vector of functions to be zeroed ! COMMON /NEWTV/ FVEC(n_oa), NN ! SAVE /NEWTV/ C Parameters INTEGER, PARAMETER :: MAXITS = 100 ! maximum number of iterations REAL, PARAMETER :: TOLF = 1.0E-09 ! convergence criterion on fxn values REAL, PARAMETER :: TOLMIN = 1.0E-12 ! criterion whether spurious conver- ! gence to a minimum has occurred REAL, PARAMETER :: TOLX = 1.0E-10 ! convergence criterion on delta_x REAL, PARAMETER :: STPMX = 100.0 ! scaled maximum step length allowed C Local variables REAL :: CT( N ), CS( N ), IMW( N ), M ! REAL CS ! REAL IMW ! REAL M ! COMMON /NEWTINP/ CT( n_oa ), CS( n_oa ), IMW( n_oa ), M ! SAVE /NEWTINP/ INTEGER I, ITS, J, INDX( N_OA ) REAL D, DEN, F, FOLD, STPMAX, SUM, TEMP, TEST REAL FJAC( N_OA,N_OA ) REAL G( N_OA), P( N_OA ), XOLD( N_OA ) ! EXTERNAL FDJAC C----------------------------------------------------------------------- CHECK = .FALSE. M = MINITW DO I = 1, N CT( I ) = CTOT( I ) CS( I ) = CSAT( I ) IMW( I ) = IMWCV( I ) END DO NN = N CALL FMINV( X,F,NN,FVEC,CT,CS,IMW,M ) ! The vector FVEC is also computed by this call TEST = 0.0 ! Test for initial guess being a root. Use more ! stringent test than simply TOLF. DO I = 1, N IF ( ABS( FVEC( I ) ) .GT. TEST ) TEST = ABS( FVEC( I )) END DO IF ( TEST .LT. 0.01 * TOLF ) RETURN ! initial guess is a root SUM = 0.0 ! Calculate STPMAX for line searches DO I = 1, N SUM = SUM + X( I ) ** 2 END DO STPMAX = STPMX * MAX( SQRT( SUM ), FLOAT( N ) ) DO ITS = 1, MAXITS ! start of iteration loop CALL FDJAC( N, X, FJAC, CT, CS, IMW, M ) ! get Jacobian DO I = 1, N ! compute Delta f for line search SUM = 0.0 DO J = 1, N SUM = SUM + FJAC( J,I ) * FVEC( J ) END DO G( I ) = SUM END DO DO I = 1, N ! store X XOLD( I ) = X( I ) END DO FOLD = F ! store F DO I = 1, N ! right-hand side for linear equations P( I ) = -FVEC( I ) END DO CALL LUDCMP( FJAC, N, INDX, D ) ! solve linear equations by LU decomposition CALL LUBKSB( FJAC, N, INDX, P ) CALL LNSRCH( CTOT, & N, XOLD, FOLD, G, ! LNSRCH returns new X and F. It also & P, X, F, STPMAX, ! calculates FVEC at the new X when it & TOLX, CHECK, FVEC, & CT, CS, IMW, M) ! calls FMINV TEST = 0.0 DO I = 1, N IF ( ABS( FVEC( I ) ) .GT. TEST ) TEST = ABS( FVEC( I ) ) END DO IF ( TEST .LT. TOLF ) THEN CHECK = .FALSE. RETURN END IF IF ( CHECK ) THEN ! Check for gradient of F zero, TEST = 0.0 ! i.e., spurious convergence. DEN = MAX( F, 0.5 * N ) DO I = 1, N TEMP = ABS( G( I ) ) * MAX( ABS( X( I ) ), 1.0 ) / DEN IF ( TEMP .GT. TEST ) TEST = TEMP END DO IF ( TEST .LT. TOLMIN ) THEN CHECK = .TRUE. ELSE CHECK = .FALSE. END IF RETURN END IF TEST = 0.0 ! Test for convergence on delta_x DO I = 1, N TEMP = ( ABS( X( I ) - XOLD( I ) ) ) / MAX( ABS( X( I ) ), 1.0 ) IF ( TEMP .GT. TEST ) TEST = TEMP END DO IF ( TEST .LT. TOLX ) RETURN END DO WRITE( *,'(a,i2)' ) 'MAXITS exceeded in NEWT ! Layer: ', LAYER END SUBROUTINE NEWT C----------------------------------------------------------------------- SUBROUTINE FDJAC( N, X, FJAC, CT, CS, IMW, M ) C Description: C Get the Jacobian of the function C ( a1 * X1^2 + b1 * X1 + c1 ) C ( a2 * X2^2 + b2 * X2 + c2 ) C ( a3 * X3^2 + b3 * X3 + c3 ) C F(X) = ( a4 * X4^2 + b4 * X4 + c4 ) = 0.0 C ( ........................ ) C ( aN * XN^2 + bN * XN + cN ) C C a_i = IMW_i C b_i = SUM(X_j * IMW_j)_j.NE.i + CSAT_i * IMW_i + M C - CTOT_i * IMW_i C C c_i = - CTOT_i * [ SUM(X_j * IMW_j)_j.NE.i + M ] C C delta F_i ( 2. * a_i * X_i + b_i If i .EQ. j C J_ij = ----------- = ( C delta X_j ( ( X_i - CTOT_i ) * IMW_j If i .NE. j C Revision History: C CGN 01/12/04 changed B1 & B2 to scalars C SH 02/10/10 renamed NCVAP to n_oa. Value is inherited from SOA_DEFN. IMPLICIT NONE INTEGER N ! dimension of problem REAL X( N ) ! initial guess of CAER REAL CT( N ) REAL CS( N ) REAL IMW( N ) REAL M REAL FJAC( N,N ) INTEGER I, J ! loop index REAL A( N_OA ) REAL B( N_OA ) REAL B1 REAL B2 REAL SUM_JNEI DO I = 1, N A( I ) = IMW( I ) SUM_JNEI = 0.0 DO J = 1, N SUM_JNEI = SUM_JNEI + X( J ) * IMW( J ) END DO B1 = SUM_JNEI - ( X( I ) * IMW( I ) ) B2 = ( CS( I ) - CT( I ) ) * IMW( I ) + M B( I ) = B1 + B2 END DO DO J = 1, N DO I = 1, N IF ( I .EQ. J ) THEN FJAC( I,J ) = 2.0 * A( I ) * X( I ) + B( I ) ELSE FJAC( I,J ) = ( X( I ) - CT( I ) ) * IMW( J ) END IF END DO END DO RETURN END SUBROUTINE FDJAC C----------------------------------------------------------------------- SUBROUTINE FMINV( X,F,N,FVEC, CT, CS, IMW, M ) C Description: C Returns f = 0.5 * F*F at X. SR FUNCV(N,X,F) is a fixed-name, C user-supplied routine that returns the vector of functions at X. C The common block NEWTV communicates the function values back to C NEWT. C Adopted from Numerical Recipes in FORTRAN, Chapter 9.7, 2nd ed. C Key Subroutines Called: FUNCV C Revision History: C YOJ 07/31/02 changed FUNCTION FMIN to SUBROUTINE FMINV to avoid errors C with (some) compilers C SH 02/10/10 renamed NCVAP to n_oa. Value is inherited from SOA_DEFN. IMPLICIT NONE INTEGER N REAL X( * ), F REAL :: FVEC( N ), CT( N ), CS( N ), IMW( N ), M INTEGER I REAL SUM CALL FUNCV( N, X, FVEC, CT, CS, IMW, M ) SUM = 0.0 DO I = 1, N SUM = SUM + FVEC( I ) ** 2 END DO F = 0.5 * SUM RETURN END SUBROUTINE FMINV C----------------------------------------------------------------------- SUBROUTINE FUNCV( N, X, FVEC, CT, CS, IMW, M ) C Description: C From Equation (8) of Schell et al., 2001: C Caer,i = Ctot,i - Csat,i * (Caer,i/MWi) / C ( sum_j (Caer,j/MWj) + Cinit/MWinit) C Let Xi = Caer,i C a_i = 1 / MWi C M = Cinit/MWinit C CTi = Ctot,i C CSi = Csat,i C Then, C Xi = CTi - CSi * (a_i * Xi) / ( sum_j (a_j * Xj) + M ) C C Multiply above equation by sum_j(a_j*Xj) + M and group terms C a_i Xi^2 + ( sum_jnei (a_j*Xj) + M + CSi*a_i - CTi*a_i ) Xi C - CTi * ( sum_jnei (a_j*Xj) + M ) = 0 C C This equation is of the form F(X) = a_i*Xi^2 + b_i*Xi + c_i = 0. C F(X) is stored as FVEC in this subroutine. C C See also FDJAC. C Key Subroutines Called: none C Revision History: C CGN 01/12/04 Added documentation, removed extraneous lines of code C SH 02/10/10 renamed NCVAP to n_oa. Value is inherited from SOA_DEFN C References: C 1. Schell, B., I. J. Ackermann, H. Hass, F. S. Binkowski, and C A. Abel, Modeling the formation of secondary organic aerosol C within a comprehensive air quality modeling system, J. Geophys. C Res., Vol 106, No D22, 28275-28293, 2001. IMPLICIT NONE INTEGER N REAL X( * ) REAL FVEC( N ) REAL CT( N ) REAL CS( N ) REAL IMW( N ) REAL M INTEGER I, J REAL SUM_JNEI REAL A( N ) REAL B( N ) REAL C( N ) DO I = 1, N A( I ) = IMW( I ) SUM_JNEI = 0.0 DO J = 1, N SUM_JNEI = SUM_JNEI + X( J ) * IMW( J ) END DO SUM_JNEI = SUM_JNEI - ( X( I ) * IMW( I ) ) B( I ) = SUM_JNEI + M + ( CS( I ) - CT( I ) ) * IMW( I ) C( I ) = -CT( I ) * ( SUM_JNEI + M ) FVEC( I ) = X( I ) * ( A( I ) * X( I ) + B( I ) ) + C( I ) END DO RETURN END SUBROUTINE FUNCV C----------------------------------------------------------------------- SUBROUTINE LNSRCH( CTOT, & N, XOLD, FOLD, G, P, & X, F, STPMAX, TOLX, CHECK, FVEC, & CT, CS, IMW, M ) C Description: C Given an n-dimensional point XOLD(1:N), the value of the function C and gradient there, FOLD and G(1:N), and a direction P(1:N), C finds a new point X(1:N) along the direction P from XOLD where C the function FUNC has decreased 'sufficiently'. The new function C value is returned in F. STPMAX is an input quantity that limits C the length of the steps so that you do not try to evaluate the C function in regions where it is undefined or subject to overflow. C P is usually the Newton direction. The output quantity CHECK is C false on a normal exit. It is true when X is too close to XOLD. C In a minimization algorithm, this usually signals convergence and C can be ignored. However, in a zero-finding algorithm the calling C program should check whether the convergence is spurious. C C Adopted from Numerical Recipes in FORTRAN, Chapter 9.7, 2nd ed. C Key Subroutines Called: FUNCV C Revision History: C SH 02/10/10 added TOLX to the call vector. In previous versions, this C parameter was declared in the Module SOA_NEWT (which contained this C subroutine). IMPLICIT NONE INTEGER N REAL TOLX LOGICAL CHECK REAL F, FOLD, STPMAX REAL G( N ), P( N ), X( N ), XOLD( N ) REAL CTOT( N ) REAL, PARAMETER :: ALF = 1.E-04 REAL, PARAMETER :: CONMIN = 1.E-30 REAL :: FVEC( N ), CT( N ), CS( N ), IMW( N ), M INTEGER I REAL A, ALAM, ALAM2, ALAMIN, B, DISC REAL F2, FOLD2, RHS1, RHS2, SLOPE REAL SUM, TEMP, TEST, TMPLAM CHECK = .FALSE. SUM = 0.0 DO I = 1, N SUM = SUM + P( I ) * P( I ) END DO SUM = SQRT( SUM ) IF ( SUM .GT. STPMAX ) THEN DO I = 1, N P( I ) = P( I ) * STPMAX / SUM END DO END IF SLOPE = 0.0 DO I = 1, N SLOPE = SLOPE + G( I ) * P( I ) END DO TEST = 0.0 DO I = 1, N TEMP = ABS( P( I ) ) / MAX( ABS( XOLD( I ) ), 1.0 ) IF ( TEMP .GT. TEST ) TEST = TEMP END DO ALAMIN = TOLX / TEST ALAM = 1.0 101 CONTINUE C avoid negative concentrations and set upper limit given by CTOT. DO I = 1, N X( I ) = XOLD( I ) + ALAM * P( I ) IF ( X( I ) .LE. 0.0 ) X( I ) = CONMIN IF ( X( I ) .GT. CTOT( I ) ) X( I ) = CTOT( I ) END DO CALL FMINV( X,F,N,FVEC,CT,CS,IMW,M ) IF ( ALAM .LT. ALAMIN ) THEN DO I = 1, N X( I ) = XOLD( I ) END DO CHECK = .TRUE. RETURN ELSE IF ( F .LE. FOLD + ALF * ALAM * SLOPE ) THEN RETURN ELSE IF ( ALAM .EQ. 1.0 ) THEN TMPLAM = -SLOPE / ( 2.0 * ( F - FOLD - SLOPE ) ) ELSE RHS1 = F - FOLD - ALAM * SLOPE RHS2 = F2 - FOLD2 - ALAM2 * SLOPE A = ( RHS1 / ALAM ** 2 - RHS2 / ALAM2 ** 2 ) / ( ALAM - ALAM2 ) B = ( -ALAM2 * RHS1 / ALAM ** 2 + ALAM * RHS2 / ALAM2 ** 2 ) & / ( ALAM - ALAM2 ) IF ( A .EQ. 0.0 ) THEN TMPLAM = -SLOPE / ( 2.0 * B ) ELSE DISC = B * B - 3.0 * A * SLOPE TMPLAM = ( -B + SQRT( DISC ) ) / ( 3.0 * A ) END IF IF ( TMPLAM .GT. 0.5 * ALAM ) TMPLAM = 0.5 * ALAM END IF END IF ALAM2 = ALAM F2 = F FOLD2 = FOLD ALAM = MAX( TMPLAM, 0.1 * ALAM ) GO TO 101 END SUBROUTINE LNSRCH C----------------------------------------------------------------------- SUBROUTINE LUBKSB( A, N, INDX, B ) C Description: C Solves the set of N linear equations A * X = B. Here A is input, C not as the matrix A but rather as its LU decomposition, C determined by the routine LUDCMP. B(1:N) is input as the right- C hand side vector B, and returns with the solution vector X. A, N, C and INDX are not modified by this routine and can be left in C place for successive calls with different right-hand sides B. C This routine takes into account the possibility that B will begin C with many zero elements, so it is efficient for use in matrix C inversion. C C Adopted from Numerical Recipes in FORTRAN, Chapter 2.3, 2nd ed. C C Key Subroutines Called: none C C Revision History: C call vector modified to remove NCVAP and set dimensions to N. IMPLICIT NONE INTEGER N, INDX( N ) REAL A( N,N ), B( N ) ! A now has dimension NxN. INTEGER I, II, J, LL REAL SUM II = 0 DO I = 1, N LL = INDX( I ) SUM = B( LL ) B( LL ) = B( I ) IF ( II .NE. 0 ) THEN DO J = II, I-1 SUM = SUM - A( I,J ) * B( J ) END DO ELSE IF ( SUM .NE. 0 ) THEN II = I END IF B( I ) = SUM END DO DO I = N, 1, -1 SUM = B( I ) DO J = I+1, N SUM = SUM - A( I,J ) * B( J ) END DO B( I ) = SUM / A( I,I ) END DO RETURN END SUBROUTINE LUBKSB C----------------------------------------------------------------------- SUBROUTINE LUDCMP( A, N, INDX, D ) C Description: C Given a matrix A(1:N,1:N), with physical dimension N by N, this C routine replaces it by the LU decomposition of a rowwise C permutation of itself. A and N are input. A is output arranged as C in equation (2.3.14) above; INDX(1:N) is an output vector that C records vector that records the row permutation effected by the C partial pivoting; D is output as +-1 depending on whether the C number of row interchanges was even or odd, respectively. This C routine is used in combination with SR LUBKSB to solve linear C equations or invert a matrix. C C Adopted from Numerical Recipes in FORTRAN, Chapter 2.3, 2nd ed. C Equation (2.3.14) Numerical Recipes, p 36: C | b_11 b_12 b_13 b_14 | C | a_21 b_22 b_23 b_24 | C | a_31 a_32 b_33 b_34 | C | a_41 a_42 a_43 b_44 | C Key Subroutines Called: None C Revision History: C call vector modified to remove NCVAP C all dimensions now depend upon N only IMPLICIT NONE INTEGER N, INDX( N ) ! INTEGER NMAX ! PARAMETER ( NMAX = 10 ) ! largest expected N REAL D, A( N,N ) ! note that A now has dimension NxN ! NCVAP is ignored REAL, PARAMETER :: TINY = 1.0E-20 INTEGER I, IMAX, J, K REAL AAMAX, DUM, SUM, VV( N ) D = 1.0 DO I = 1, N AAMAX = 0.0 DO J = 1, N IF ( ABS(A( I,J ) ) .GT. AAMAX ) AAMAX = ABS( A( I,J ) ) END DO IF ( AAMAX .EQ. 0.0 ) THEN WRITE( *,'(a)' ) '*** Singular matrix in ludcmp!' END IF VV( I ) = 1.0 / AAMAX END DO DO J = 1, N DO I = 1, J-1 SUM = A( I,J ) DO K = 1, I-1 SUM = SUM - A( I,K ) * A( K,J ) END DO A( I,J ) = SUM END DO AAMAX = 0.0 DO I = J, N SUM = A( I,J ) DO K = 1, J-1 SUM = SUM - A( I,K ) * A( K,J ) END DO A( I,J ) = SUM DUM = VV( I ) * ABS( SUM ) IF ( DUM .GE. AAMAX ) THEN IMAX = I AAMAX = DUM END IF END DO IF ( J .NE. IMAX ) THEN DO K = 1, N DUM = A( IMAX,K ) A( IMAX,K ) = A( J,K ) A( J,K ) = DUM END DO D = -D VV( IMAX ) = VV( J ) END IF INDX( J ) = IMAX IF ( A( J,J ) .EQ. 0.0 ) A( J,J ) = TINY IF ( J .NE. N ) THEN DUM = 1.0 / A( J,J ) DO I = J+1, N A( I,J ) = A( I,J ) * DUM END DO END IF END DO RETURN END SUBROUTINE LUDCMP C----------------------------------------------------------------------- Function soabisect( lowerb, upperb, nonvolmol, n, cstaratt, totsemivol, & mlwt) RESULT ( nroot ) C Determines the root of an equation, nroot, that is located C between the lowerb and upperb. The equation of interest is defined C in the function soaequation. Before calling soabisect, the threshold C for SOA should have already been checked which should ensure a solution. C The recommended lower bound is the number of moles of nonvolatile aerosol C and the recommended upper bound is the total number of organic moles C C History C Created 7/2011 by HOT Pye Use utilio_defn Use runtime_vars, only: logdev Implicit None C Function arguments Real, Intent(IN) :: lowerb, upperb ! lower bound, upper bound Real, Intent(IN) :: nonvolmol ! nonvolatile aerosol in moles = POA + non-voltile SOA Integer, Intent(IN) :: n Real, Intent(IN) :: cstaratt(n) ! Cstars at T of interest Real, Intent(IN) :: totsemivol(n) ! total semivolatile to partition in ug/m3 (gas+aer+newlyformed) Real, Intent(IN) :: mlwt(n) ! molecular weight of semivolatiles C Parameters for solution convergenc Real :: FRACTOL = 1.0e-6 ! Solution converged if abs(old-new)/new < FRACTOL ! Real :: ABSTOL = 1.0e-10 ! Solution converged if there are less than ABSTOL umol/m3 in aerosol Real :: ABSTOL = 1.0e-08 ! Solution converged if there are less than ABSTOL umol/m3 in aerosol C Result Real :: nroot ! solution (final nguess) C Local variables Real :: nguess ! current guess for total moles organic aerosol Real :: oldn, lower, upper, flower, fnguess ! intermediate values Real :: fupper ! function evaluated at upper bound Real :: ea ! difference b/w old and new guesses (umol/m3) Real :: test ! to detect sign change Integer :: iter ! counter to prevent infinite loops Character( 120 ) :: xmsg C Store current lower and upper bound, evaluate at lower bound lower = lowerb upper = upperb flower = soaequation( nonvolmol, n, cstaratt, totsemivol, mlwt, lowerb ) fupper = soaequation( nonvolmol, n, cstaratt, totsemivol, mlwt, upperb ) C First guess: solution at upperb nguess = upperb C Counter of iterations to prevent infinite loops iter = 0 C Iterate until the number of moles changes by less than fractol (percent) or C abstol (absolute) amount Do If ( flower * fupper .gt. 0.0 ) Then ! function does not change sign between bounds #ifdef verbose_soa nroot = soabisect_debug(lowerb, upperb, nonvolmol, cstaratt, totsemivol, mlwt) #endif Write( xmsg,'(a,2(1pe15.5))' ) & 'Error: no solution between bounds in soa bisection:', flower, fupper Call m3exit( pname, 0, 0, xmsg, xstat3) End If iter = iter + 1 oldn = nguess ! store last guess nguess = ( lower + upper ) / 2.0e0 ! new guess is halfway b/w old lower and upper fnguess = soaequation( nonvolmol, n, cstaratt, totsemivol, mlwt, nguess ) ! function evaluated at new guess If ( nguess .ne. 0.0 ) Then ! safe division ea = Abs( nguess - oldn ) / nguess ! fractional diff b/w 2 guesses Else #ifdef verbose_soa nroot = soabisect_debug(lowerb, upperb, nonvolmol, cstaratt, totsemivol, mlwt) Write( xmsg,'(a,1pe15.5)' ) & 'Warning: number of organic aerosol moles going to zero in soa bisection:', & nroot #else xmsg = 'Warning: number of organic aerosol moles going to zero in soa bisection' #endif Call m3exit( pname, 0, 0, xmsg, xstat3 ) End If test = fnguess * flower If ( test .Lt. 0.0 ) Then ! if function changes sign b/w guess and lower, guess becomes upper upper = nguess fupper = fnguess Else If ( test .Gt. 0.0 ) Then ! if function does not change sign, guess becomes lowerbound lower = nguess flower = fnguess Else If ( flower .Eq. 0.0 ) Then ! if the lower bound is the root ea = 0.0 nguess = lower fnguess = flower Else If ( fnguess .Eq. 0.0 ) Then ! guess is the root ea = 0.0 End If ! solution found if error is less than ABSTOL/100 % or N bounded by values less than ABSTOL If ( ( ea .Lt. FRACTOL ) .Or. ( ( upper + lower ) .Lt. ABSTOL ) ) Then nroot = nguess ! double check that the function is approximately zero fnguess = soaequation( nonvolmol, n, cstaratt, totsemivol, mlwt, nguess ) ! function evaluated at new guess If ( Abs( fnguess ) .Gt. 1.0e-03 ) Then ! pfc = pfc + 1 #ifdef verbose_soa nroot = soabisect_debug(lowerb, upperb, nonvolmol, cstaratt, totsemivol, mlwt) ! Write( xmsg,'(a,2(1pe15.5,i8))' ) ! & 'Warning: possible false convergence in soa bisection:', fnguess, nroot, pfc Write( xmsg,'(a,2(1pe15.5))' ) & 'Warning: possible false convergence in soa bisection:', fnguess, nroot Call m3warn( pname, 0, 0, xmsg ) #else xmsg = 'Warning: possible false convergence in soa bisection' #endif ! Call m3warn( pname, 0, 0, xmsg ) End If Return End If If ( iter .Gt. 1000000 ) Then ! stop infinite loop #ifdef verbose_soa nroot = soabisect_debug(lowerb, upperb, nonvolmol, cstaratt, totsemivol, mlwt) Write( xmsg,'(a,i9,1pe15.5)' ) & 'Error: too many iterations in soa bisection', iter, nroot #else xmsg = 'Error: too many iterations in soa bisection' #endif Call m3exit( pname, 0, 0, xmsg, xstat3 ) End If End Do End Function soabisect C----------------------------------------------------------------------- Function soaequation( nonvmol, n, cstar, semivol, mlwt, currentN ) Result ( eqnerror ) C Evaluates the following function of total aerosol moles, N C Function evaluates to zero at equilibrium C C totalsemivol_i mols nonvolatile POA + SOA C f(N) = sum_i ( ---------------- ) + --------------------------- - 1.0 C cstar_i + mw_i*N N C C History C Created 7/2011 HOT Pye Use runtime_vars, only: logdev Implicit None C Function inputs and output Real, INTENT(IN) :: nonvmol, currentN ! nonvolatile moles, total moles Integer, INTENT(IN) :: n ! number of semivolatile species Real, INTENT(IN) :: mlwt(:) ! molecular weights of semivolatiles Real, INTENT(IN) :: semivol(:), cstar(:) ! semivolatile mass, sat conc in ug/m3 Real :: eqnerror ! result, deviation from 0.0 in equation C Local variables Real :: temptot ! temporary total Integer :: i ! counter C Compute function value for current value of N temptot = 0.0e0 Do i = 1, n temptot = temptot + semivol(i) / ( cstar(i) + mlwt(i) * currentN ) End Do eqnerror = temptot + nonvmol / currentN - 1.0e0 End function soaequation C----------------------------------------------------------------------- Function soabisect_debug( lowerb, upperb, nonvolmol, n, cstaratt, totsemivol, & mlwt) RESULT ( nroot ) Use utilio_defn Use runtime_vars Implicit None C Function arguments Real, Intent(IN) :: lowerb, upperb ! lower bound, upper bound Real, Intent(IN) :: nonvolmol ! nonvolatile aerosol in moles = POA + non-voltile SOA Integer, Intent(IN) :: n ! Number of semivolatile species Real, Intent(IN) :: cstaratt(:) ! Cstars at T of interest Real, Intent(IN) :: totsemivol(:) ! total semivolatile to partition in ug/m3 (gas+aer+newlyformed) Real, Intent(IN) :: mlwt(:) ! molecular weight of semivolatiles C Parameters for solution convergenc Real :: FRACTOL = 1.0e-6 ! Solution converged if abs(old-new)/new < FRACTOL Real :: ABSTOL = 1.0e-10 ! Solution converged if there are less than ABSTOL umol/m3 in aerosol C Result Real :: nroot ! solution (final nguess) C External functions: C Local variables Logical, Save :: first_time = .True. Real :: nguess ! current guess for total moles organic aerosol Real :: oldn, lower, upper, flower, fnguess ! intermediate values Real :: fupper ! function evaluated at upper bound Real :: ea ! difference b/w old and new guesses (umol/m3) Real :: test ! to detect sign change Integer :: iter ! counter to preventinfinite loops Character( 120 ) :: xmsg If ( first_time ) Then first_time = .False. End If C Store current lower and upper bound, evaluate at lower bound lower = lowerb upper = upperb flower = soaequation( nonvolmol, n, cstaratt, totsemivol, mlwt, lowerb ) fupper = soaequation( nonvolmol, n, cstaratt, totsemivol, mlwt, upperb ) C First guess: solution at upperb nguess = upperb C Counter of iterations to prevent infinite loops iter = 0 C Iterate until the number of moles changes by less than fractol C (percent) or abstol (absolute) amount Do If ( flower * fupper .Gt. 0.0 ) Then ! function does not change sign between bounds xmsg = 'Error: no solution between bounds in soa bisection' Write( logdev,* ) xmsg End If iter = iter + 1 oldn = nguess ! store last guess nguess = ( lower + upper ) / 2.0e0 ! new guess is halfway b/w old lower and upper fnguess = soaequation( nonvolmol, n, cstaratt, totsemivol, mlwt, nguess ) ! function evaluated at new guess Write( logdev,* ), 'iter ', iter Write( logdev,* ), 'Lower= ', lower, flower Write( logdev,* ), 'Upper= ', upper, fupper Write( logdev,* ), 'Guess= ', nguess, fnguess If ( nguess .Ne. 0.0 ) Then ! safe division ea = ABS( nguess - oldn )/nguess ! fractional diff b/w 2guesses Else xmsg = 'Error: number of organic aerosol moles going to zero in soa bisection' Write( logdev,* ) xmsg End If Write( logdev,* ) 'error', ea test = fnguess * flower If ( test .Lt. 0.0 ) Then ! if function changes sign b/w guess and lower, guess becomes upper upper = nguess fupper = fnguess Else If ( test .Gt. 0.0 ) Then ! if function does not change sign, guess becomes lowerbound lower = nguess flower = fnguess Else If ( flower .Eq. 0.0 ) Then ! if the lower bound is the root ea = 0.0 nguess = lower fnguess = flower Else If ( fnguess .Eq. 0.0 ) Then ! guess is the root ea = 0.0 End If ! solution found if error is less than ABSTOL/100 % or N bounded ! by values less than 1e-08 If ( ( ea .Lt. FRACTOL ) .Or. ( ( upper + lower ) .Lt. ABSTOL ) ) then nroot = nguess ! double check that the function is approximately zero fnguess = soaequation( nonvolmol, n, cstaratt, totsemivol, mlwt, nguess ) ! function evaluated at new guess If ( Abs( fnguess ) .Gt. 1.0e-03 ) Then xmsg = 'Warning: possible false convergence in soa bisection' Write( logdev,* ) xmsg End If Return End If If ( iter .Gt. 1000000 ) Then ! stop infinite loops !print*,'current lower, upper, and N: ',lower, upper, nguess xmsg = 'Error: too many iterations in soa bisection' Write( logdev,* ) xmsg End If End Do End Function soabisect_debug !----------------------------------------------- Function activityw( rh, temp, dtot ) result( aw ) C Function calculates the activity of water C over an aqueous solution droplet of specified diameter C Equation 1 of Petters and Kreidenweis 2007 ACP: C C -4*surftens*Mw C aw = RH * exp( ---------------) C R*T*dens*D C C The diameter is the wet, volume equivalent, diameter of the particle. Implicit None Include SUBST_CONST ! common constants C Function arguments Real rh ! RH between 0.005, 0.99 [fraction] Real temp ! temperature [K] Real dtot ! volume equivalent diameter of entire particle [m] C Function return value Real aw ! activity of water [fraction] C Local variables Real partialaw ! intermediate value C Parameters Real, Parameter :: surftens = 0.072e0 ! surface tension of water [J/m2] Real, Parameter :: mwtwater = 0.018e0 ! molecular weight of water [kg/mol] Real, Parameter :: denswater = 1000e0 ! density of water [kg/m3] C Calculations partialaw = 4.0*surftens*mwtwater/(rgasuniv*temp*denswater) aw = rh / exp( partialaw/dtot ) End Function activityw !----------------------------------------------- End Module soa_defn ================================================ FILE: CCTM/src/aero/aero6/aero_driver.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C >>> 08/04/2000 Changes necessary to be able to read and process C two different types of emissions files. C the first type is the existing opperational PM2.5 & PM10 unspeciated C file. The new file format has speciated emissions. C >>> This version uses the FORTRAN 90 feature for runtime memory C allocation. C 1/12/99 David Wong at LM: C -- introduce new variable MY_NUMBLKS (eliminate NUMBLKS) C -- re-calculate NOXYZ accordingly C FSB Updated for inclusion of surface area / second moment C 25 Sep 00 (yoj) various bug fixes, cleanup to coding standards C Jeff - Dec 00 - move CGRID_MAP into f90 module C FSB/Jeff - May 01 - optional emissions processing C Jerry Gipson - Jun 01 - added SOA linkages for saprc99 C Bill Hutzell - Jun 01 - simplified CBLK mapping C Jerry Gipson - Jun 03 - modified for new soa treatment C Jerry Gipson - Aug 03 - removed SOA prod form alkenes & added C emission adjustment factors for ALK & TOL ( RADM2 & SAPRC99 only) C Shawn Roselle - Jan 04 C - removed SOA from transported aerosol surface area C - fixed bug in calculation of wet parameters. Previously, DRY aerosol C parameters were being written to the AERDIAG files and mislabeled C as WET. C Prakash Bhave - May 04 C - changed AERODIAG species (added RH; removed M0 & M2dry) C Jeff Young - Jan 05 - dyn alloc C - establish both horizontal & vertical domain specifications in one module c Uma Shankar and Prakash Bhave - Jun 05 c - added code to handle the following species: ANAI, ANAJ, ANAK, ACLI, c ACLJ, ACLK, ASO4K, AH2OK, ANO3K, and HCL; removed code for ASEAS c - removed obsolete MW variables C Prakash Bhave - Jul 05 - added PM25 mass-fraction calculations C Jeff Young - Feb 06 - trap fractional humidity above 0.005 C Prakash Bhave - Apr 06 - added GAMMA_N2O5 to the AEROPROC call vector C and the aerosol diagnostic file C Prakash Bhave - May 06 - changed units of DG variables from m to um in C the aerosol diagnostic file as suggested by Dr. Bill Hutzell C Sergey Napelenok - Sep 07 - SOA updates C - added code to handle the following species: AALKJ, ATOL1J, ATOL2J, C ATOL3J, AXYL1J, AXYL2J, AXYL3J, ABNZ1J, ABNZ2J, ABNZ3J, AISO1J, AISO2J, C AISO3J, ATRP1J, ATRP2J, ASQTJ, AORGCJ, TOLNRXN, TOLHRXN, XYLNRXN, C XYLHRXN, BNZNRXN, BNZHRXN, ISOPRXN, and SESQRXN C - removed following species: AORGAI, AORGAJ, AORGBI, AORGBJ, OLIRXN, C CSLRXN, TOLRXN, XYLRXN C Prakash Bhave - Oct 07 - SOA updates C - added semi-volatile vapors to the CBLK array; moved ppm -> ug/m3 unit C conversion from the ORGAER subroutine to this program C - updated definition of DRY aerosol to include nonvolatile SOA species C - removed adjustment factors for TOLAER (SPTOL, RDTOL) because benzene is C now an explicit species so all of the reacted TOL can produce SOA C - removed code to handle TERPSP (obsolete); renamed TERPRXN as TRPRXN C David Wong - Jan 08 - rearranged calculation of dry 3rd moments to avoid C NaN on some compilers (using the M3SUBT variable) C Prakash Bhave - Jan 08 - updated MECHNAME check from AE4 to AE5 C Golam Sarwar - Mar 08 - added a heterogeneous reaction producing HONO C Jim Kelly - Apr 08 - coarse mode updates C - added code to account for new species (ANH4K & SRFCOR) and variable C coarse std. deviation C - removed MW coding now located in AERO_INFO.f C - added FIXED_sg flag for call to GETPAR C Jeff Young - Aug 10 - convert for Namelist redesign (replace include files) C Steve Howard - Mar 11 - Renamed met_data to aeromet_data C S.Roselle- Mar 11 - replaced I/O API include files with UTILIO_DEFN C David Wong - Aug 11 - put in twoway model implementation C David Wong - Oct 11 - extended the twoway implementation to handle finer C time resolution C C Bill Hutzell - Sept 13 - inserted module for AEROSOL_CHEMISTRY to support C diagnostic outputs on reaction gamma and yield C values C HOT Pye - Jan 13 - Additional information for IEPOX aerosol C written to AERODIAG file C David Wong - Aug 15 - Used IO_PE_INCLUSIVE rather than MYPE to facilitate C parallel I/O implementation C - Used a new logical variable, FIRST_CTM_VIS_1 to C determine when to open CTM_VIS_1 C B.Hutzell 22 Feb 16 - Added test to determine to write diagnostics from aerosol C chemistry C H Pye and B Murphy April 2016 - Updated dry/wet moment process to use C Extract_aero and Update_aero for getting moment/saving surface area C D. Wong 10 May 2016 - added calculation of average PMDIAG species w.r.t. C environment variable CTM_PMDIAG, APMDIAG_BLEV_ELEV, C and AVG_PMDIAG_SPCS C - added calculation of average visibility species w.r.t. C environment variable CTM_AVISDIAG C - renamed AERODIAM to PMDIAG and CTM_AERDIAG to CTM_PMDIAG C - added flexibility to handle AE6 and AE6i C - renamed DIAM to PMDIAG C D. Wong 19 May 2016 - renamed ACONC_END_TIME to AVG_FILE_ENDTIME C - updated the way to define NUM_PMDIAG_SPC C - set CTM_PMDIAG default value to .TRUE. C D. Wong 31 Jan 2019 - adopted the idea to process all twoway related environment C variables in one place C 1 Feb 19 David Wong: Implemented centralized I/O approach, removed all MY_N C clauses C 1 Aug 19 David Wong: Added a few more variables in the USE Only blcok for two-way model C 30 Dec 19 S. Napelenok: ddm-3d implementation for v 5.3.1 C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE AERO ( CGRID, JDATE, JTIME, TSTEP ) USE GRID_CONF, ONLY: NCOLS, NROWS, NLAYS, IO_PE_INCLUSIVE USE RXNS_DATA, ONLY: MECHNAME USE AERO_DATA, ONLY: COAG_BUDGET, COND_BUDGET, GROWTH_BUDGET, NPF_BUDGET, & FIXED_sg, AEROMODE_DIAM, AEROMODE_LNSG, AEROMODE_DENS, & MOMENT0_CONC, MOMENT2_CONC, MOMENT3_CONC, & AEROSPC, AEROSPC_CONC, N_MODE, AH2O_IDX, & EXTRACT_AERO, UPDATE_AERO, CALCMOMENTS USE PRECURSOR_DATA, ONLY: SULPRD_IDX, SO4RATE, PRECURSOR_CONC, & PHGRXN_IDX, PHG_RATE, & EXTRACT_PRECURSOR, UPDATE_PRECURSOR USE SOA_DEFN, ONLY: EXTRACT_SOA, UPDATE_ORGVAPOR USE AEROMET_DATA, ONLY: AIRTEMP, AIRPRES, AIRQV, AIRDENS, AIRRH, & H2OSATVP, H2OVP, MWWAT, MWAIR, SRFTEMP USE UTILIO_DEFN, ONLY: XSTAT1, TIME2SEC, SEC2TIME, index1, nextime #ifdef twoway & , INDEX1, XSTAT3 #endif USE CGRID_SPCS, ONLY: NSPCSD, N_CGRID_SPC #ifdef twoway & , N_GC_CONC, GC_CONC, GC_STRT, GC_CONC_MAP #endif USE RUNTIME_VARS, ONLY: LOGDEV, END_TIME USE AERO_BUDGET, ONLY: AERO_COAG, AERO_COND, AERO_GROWTH, AERO_NPF #ifdef twoway USE twoway_data_module #endif use CENTRALIZED_IO_MODULE, only : interpolate_var #ifdef sens USE DDM3D_DEFN, ONLY : NP, NPMAX, SENGRID Use aero_ddm3d, ONLY : s_so4rate, s_precursor_conc, s_aerospc_conc, s_phg_rate #endif IMPLICIT NONE C *** Includes: INCLUDE SUBST_FILES_ID ! file name parameters (req IOPARMS) C *** Arguments: C *** CGRID is conc field (including gas and aerosol variables) REAL, POINTER :: CGRID( :,:,:,: ) ! concentrations INTEGER JDATE ! Current model date , coded YYYYDDD INTEGER JTIME ! Current model time , coded HHMMSS INTEGER TSTEP( 3 ) ! time step vector (HHMMSS) ! TSTEP(1) = local output step ! TSTEP(2) = sciproc sync. step (chem) ! TSTEP(3) = twoway model time step w.r.t. wrf time ! step and wrf/cmaq call frequency C *** Local Variables: CHARACTER( 16 ), SAVE :: PNAME = 'AERO_DRIVER' CHARACTER( 16 ) :: VNAME ! variable name CHARACTER( 96 ) :: XMSG = ' ' INTEGER MDATE, MTIME, MSTEP ! julian date, time and ! timestep in sec INTEGER C, R, L, V, N ! loop counters INTEGER SPC ! species loop counter INTEGER STRT, FINI ! loop induction variables INTEGER ALLOCSTAT ! memory allocation status LOGICAL LERROR ! Error flag C *** Grid Description REAL DX1 ! Cell x-dimension REAL DX2 ! Cell y-dimension C *** Variable to set time step for writing visibility file INTEGER, SAVE :: WSTEP = 0 ! local write counter C *** meteorological variables REAL PRES ( NCOLS,NROWS,NLAYS ) ! Atmospheric pressure [ Pa ] REAL TA ( NCOLS,NROWS,NLAYS ) ! Air temperature [ K ] REAL TEMP2 ( NCOLS,NROWS ) ! 2-meter temperature [ K ] REAL DENS ( NCOLS,NROWS,NLAYS ) ! Air density [ kg/m**-3 ] REAL QV ( NCOLS,NROWS,NLAYS ) ! Water vapor mixing ratio [ kg/kg ] C *** variables computed and output but not carried in CGRID C *** atmospheric properties REAL XLM ! atmospheric mean free path [ m ] REAL AMU ! atmospheric dynamic viscosity [ kg/m s ] C *** mass fraction of each mode less than Specified Aerodynamic Diameters REAL fPM1 ( N_MODE ) ! PM1 fraction REAL fPM25( N_MODE ) ! PM2.5 fraction REAL fPM10( N_MODE ) ! PM10 fraction REAL fAMS ( N_MODE ) ! AMS Transmission Fraction C *** visual range information REAL BLKDCV1 ! block deciview (Mie) REAL BLKEXT1 ! block extinction [ km**-1 ] (Mie) REAL BLKDCV2 ! block deciview (Reconstructed) REAL BLKEXT2 ! block extinction [ km**-1 ] (Reconstructed) C *** other internal aerosol variables INTEGER IND ! index to be used with INDEX1 INTEGER IM C *** synchronization time step [ s ] REAL DT C *** variables to set up for "dry transport " REAL M3_WET( N_MODE ), M3_DRY( N_MODE ) ! third moment with and without water REAL M2_WET( N_MODE ), M2_DRY( N_MODE ) ! second moment with and without water C *** variables aerosol diagnostic file flag INTEGER STATUS ! ENV... status CHARACTER( 80 ) :: VARDESC ! environment variable description C *** first pass flag LOGICAL, SAVE :: FIRSTIME = .TRUE. C *** ratio of molecular weights of water vapor to dry air = 0.622015 REAL, PARAMETER :: EPSWATER = MWWAT / MWAIR C *** dry moment factor REAL, PARAMETER :: TWOTHIRDS = 2.0 / 3.0 LOGICAL :: TIME_TO_CALL_FEEDBACK_WRITE C *** Statement Function ************** REAL ESATL ! arithmetic statement function for vapor pressure [Pa] REAL TT C *** Coefficients for the equation, ESATL defining saturation vapor pressure REAL, PARAMETER :: AL = 610.94 REAL, PARAMETER :: BL = 17.625 REAL, PARAMETER :: CL = 243.04 INTEGER, SAVE :: O3 C *** values of AL, BL, and CL are from: C Alduchov and Eskridge, "Improved Magnus Form Approximations of C Saturation Vapor Pressure," C Jour. of Applied Meteorology, vol. 35, C pp 601-609, April, 1996. ESATL( TT ) = AL * EXP( BL * ( TT - 273.15 ) / ( TT - 273.15 + CL ) ) C *** End Statement Function ******** #ifdef twoway INTERFACE SUBROUTINE FEEDBACK_WRITE (C, R, L, CGRID_DATA, O3_VALUE, JDATE, JTIME) REAL, INTENT( IN ) :: CGRID_DATA(:), O3_VALUE INTEGER, INTENT( IN ) :: C, R, L, JDATE, JTIME END SUBROUTINE FEEDBACK_WRITE END INTERFACE #endif C ------------------ begin body of AERO_DRIVER ------------------------- IF ( FIRSTIME ) THEN FIRSTIME = .FALSE. ALLOCATE ( AERO_COND( NCOLS,NROWS,NLAYS,NSPCSD ), & AERO_COAG( NCOLS,NROWS,NLAYS,NSPCSD ), & AERO_NPF ( NCOLS,NROWS,NLAYS,NSPCSD ), & AERO_GROWTH ( NCOLS,NROWS,NLAYS,NSPCSD ), & COND_BUDGET( NSPCSD ), & COAG_BUDGET( NSPCSD,N_MODE ), & NPF_BUDGET( NSPCSD ), & GROWTH_BUDGET( NSPCSD ), & STAT=ALLOCSTAT) #ifdef twoway ! -- this is for twoway VNAME = 'O3' N = INDEX1( VNAME, N_GC_CONC, GC_CONC ) IF ( N .NE. 0 ) THEN O3 = GC_STRT - 1 + GC_CONC_MAP( N ) ELSE XMSG = 'Could not find ' // VNAME // 'in gas chem aerosol table' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT3 ) END IF #endif END IF ! FIRSTIME MDATE = JDATE MTIME = JTIME MSTEP = TIME2SEC( TSTEP( 2 ) ) CALL NEXTIME ( MDATE, MTIME, SEC2TIME( MSTEP / 2 ) ) C *** Set floating point synchronization time step: DT = FLOAT( MSTEP ) ! set time step in seconds C *** Get Meteorological Variables C *** pressure [Pa] call interpolate_var ('PRES', mdate, mtime, PRES) C *** temperature [K] call interpolate_var ('TA', mdate, mtime, TA) ! Grid Cell Temp call interpolate_var ('TEMP2',mdate, mtime, TEMP2 ) ! 2-m Temp C *** specific humidity [g H2O/g air] call interpolate_var ('QV', mdate, mtime, QV) C *** air density [kg/m3] call interpolate_var ('DENS', mdate, mtime, DENS) #ifdef twoway ! call FEEDBACK_WRITE when JTIME is mulitple of WRF time step IF ( CMAQ_WRF_FEEDBACK ) THEN IF ( MOD( TIME2SEC(MOD( JTIME, 10000 )), TIME2SEC(TSTEP( 3 )) ) .EQ. 0 ) THEN TIME_TO_CALL_FEEDBACK_WRITE = .TRUE. ELSE TIME_TO_CALL_FEEDBACK_WRITE = .FALSE. END IF END IF #endif ! *** Initialize Shared Arrays for Aerosol Budget AERO_COND = 0. AERO_COAG = 0. AERO_NPF = 0. AERO_GROWTH = 0. C --------------------- Begin loops over grid cells -------------------------- DO L = 1, NLAYS DO R = 1, NROWS DO C = 1, NCOLS C *** Grid cell meteorological data. AIRTEMP = TA ( C,R,L ) SRFTEMP = TEMP2( C,R ) ! 2-meter temperature (K) AIRPRES = PRES ( C,R,L ) ! Note pascals AIRQV = QV ( C,R,L ) AIRDENS = DENS ( C,R,L ) H2OSATVP = ESATL( AIRTEMP ) H2OVP = AIRPRES * AIRQV / ( EPSWATER + AIRQV ) AIRRH = MAX( 0.005, MIN( 0.99, H2OVP / H2OSATVP ) ) ! 0-1 ! *** Initialize aerosol process variables COND_BUDGET = 0. COAG_BUDGET = 0. NPF_BUDGET = 0. GROWTH_BUDGET = 0. C *** Extract grid cell concentrations of aero species from CGRID C into aerospc_conc in aero_data module (set minimum) #ifdef sens CALL EXTRACT_AERO( CGRID( C,R,L,: ), .TRUE., SENGRID( C,R,L,:,: ), .TRUE. ) #else CALL EXTRACT_AERO( CGRID( C,R,L,: ), .TRUE. ) #endif C *** Extract grid cell concentrations of gas precursors from CGRID (ppm) C into precursr_conc in precursor_data #ifdef sens CALL EXTRACT_PRECURSOR( CGRID( C,R,L,: ), SENGRID( C,R,L,:,: ) ) #else CALL EXTRACT_PRECURSOR( CGRID( C,R,L,: ) ) #endif C *** Calculate SO4RATE stored in module SO4RATE = REAL( PRECURSOR_CONC( SULPRD_IDX ), 4 ) / DT #ifdef sens DO NP = 1, NPMAX S_SO4RATE( NP ) = S_PRECURSOR_CONC( SULPRD_IDX,NP ) / DT END DO #endif IF ( PHGRXN_IDX .GT. 0 ) THEN C *** Calculate PHG_RATE stored in module PHG_RATE = REAL( PRECURSOR_CONC( PHGRXN_IDX ), 4 ) / DT #ifdef sens DO NP = 1, NPMAX S_PHG_RATE( NP ) = S_PRECURSOR_CONC( PHGRXN_IDX,NP ) / DT END DO #endif ELSE PHG_RATE = 0.0 #ifdef sens S_PHG_RATE = 0.0 #endif END IF C *** Extract soa concentrations from CGRID and C convert M2 to wet #ifdef sens CALL EXTRACT_SOA( CGRID( C,R,L,: ), SENGRID( C,R,L,:,: ), .TRUE. ) #else CALL EXTRACT_SOA( CGRID( C,R,L,: ) ) #endif C *** Aerosol process routines CALL AEROPROC( DT, C, R, L ) C *** Update aerosol variables conc back into CGRID (set minimum) C and convert M2 to dry and save as surface area #ifdef sens CALL UPDATE_AERO( CGRID( C,R,L,: ), .TRUE., SENGRID(C,R,L,:,: ) ) #else CALL UPDATE_AERO( CGRID( C,R,L,: ), .TRUE. ) #endif C *** Update precursor variables conc back into CGRID #ifdef sens CALL UPDATE_PRECURSOR( CGRID( C,R,L,: ), SENGRID( C,R,L,:,: ) ) #else CALL UPDATE_PRECURSOR( CGRID( C,R,L,: ) ) #endif C *** Update gas soa concentrations back to CGRID #ifdef sens CALL UPDATE_ORGVAPOR( CGRID( C,R,L,: ), SENGRID( C,R,L,:,: ) ) #else CALL UPDATE_ORGVAPOR( CGRID( C,R,L,: ) ) #endif C *** OUTPUT DIAGNOSTIC INFORMATION C *** Get wet moment info (dry will be converted to wet) CALL calcmoments( .true. ) CALL GETPAR( FIXED_sg ) ! update AEROMODE_DIAM,DENS,SDEV ! *** Calculate 2nd and 3rd moments of the "dry" aerosol distribution ! NOTE! "dry" aerosol excludes both H2O and SOA (Jan 2004 --SJR) ! EXCEPT nonvolatile SOA is part of dry aerosol (Oct 2007 --PVB) ! CALL CALCMOMENTS( .FALSE. ) ! CALL GETPAR( FIXED_sg ) ! update AEROMODE_DIAM,DENS,SDEV ! *** Collect Aerosol Sub-Process Rates in shared arrays DO V = 1,N_CGRID_SPC AERO_COAG ( C,R,L,V ) = SUM( COAG_BUDGET( V,: ) ) AERO_COND ( C,R,L,V ) = COND_BUDGET( V ) AERO_NPF ( C,R,L,V ) = NPF_BUDGET( V ) AERO_GROWTH( C,R,L,V ) = GROWTH_BUDGET( V ) END DO #ifdef twoway IF ( CMAQ_WRF_FEEDBACK ) THEN IF ( TIME_TO_CALL_FEEDBACK_WRITE ) THEN CALL FEEDBACK_WRITE ( C, R, L, CGRID(C,R,L,:), CGRID(C,R,L,O3), & JDATE, JTIME ) END IF END IF #endif END DO ! loop on COLS END DO ! loop on ROWS END DO ! loop on NLAYS RETURN END ================================================ FILE: CCTM/src/aero/aero6/aero_nml_modes.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C----------------------------------------------------------------------- Subroutine aero_nml_modes C This function expands the AE namelist rows to account for C mode-specific variables. If just one mode is requested for an C aerosol species, then no rows are added. If more than one mode C is requested, then rows are added to accomodate those. C C Ben Murphy 2022-03-25 C----------------------------------------------------------------------- Use aero_data, only : n_aerolist, aerolist, modesuff, & iait, iacc, icor, reqd_modes Use runtime_vars, only : log_message, log_subheading, logdev, & outdev, cmype Use cgrid_spcs_types Use utilio_defn, only : index1, xstat2, m3exit, m3warn, m3mesg Implicit None Type(species_data_reg_2) :: aedat( size( ae_species_data,1 ) ) Type(species_data_reg_2) :: aedat_mode( size( ae_species_data,1 ) ) integer nsp2, naero Integer isp, im, iaer, iost Character(300) xmsg Character(20) :: pname = 'aero_nml_modes' Logical eflag aedat = ae_species_data aedat_mode = aedat nsp2 = 0 call log_message( LOGDEV,"") Call log_subheading( LOGDEV, "Add Modal Dimension to CMAQ Aerosol Species" ) call log_message( LOGDEV,"") eflag = .False. do isp = 1,size( aedat,1 ) ! Stop after the last aerosol name if ( aedat(isp)%species_name .EQ. '' ) EXIT ! Get Index on Aerosol Table iaer = index1( aedat(isp)%species_name, & n_aerolist, aerolist(:)%bulkname ) ! Confirm species is known to CMAQ either in the Aerosol ! Table or Particle Number or Surface Area if ( iaer .eq. 0 ) then if ( trim(aedat(isp)%species_name) .eq. 'NUM' .or. & trim(aedat(isp)%species_name) .eq. 'SRF' ) then ! Species is a Number or Surface Area Concentration if ( aedat(isp)%lait .neqv. reqd_modes(iait) ) then xmsg = 'Number or Surface Area must have an Aitken-Mode ' // & 'component. Please adjust the aerosol namelist.' Call log_message( OUTDEV, 'Error: '//xmsg ) eflag = .True. end if if ( aedat(isp)%lacc .neqv. reqd_modes(iacc) ) then xmsg = 'Number or Surface Area must have an Accumulation-Mode ' // & 'component. Please adjust the aerosol namelist.' Call log_message( OUTDEV, 'Error: '//xmsg ) eflag = .True. end if if ( aedat(isp)%lcor .neqv. reqd_modes(icor) ) then xmsg = 'Number or Surface Area must have a Coarse-Mode ' // & 'component. Please adjust the aerosol namelist.' Call log_message( OUTDEV, 'Error: '//xmsg ) eflag = .True. end if else ! Species is not a recognized aerosol chemical species or aerosol ! parameter xmsg = 'An aerosol chemical species appears on the AE '// & 'namelist that is not available in AERO_DATA. Please '// & 'see the aerolist table.' Call log_message( OUTDEV, 'Error: '//xmsg ) eflag = .True. end if else ! Species is a recognized aerosol chemical species if ( aedat(isp)%lait .neqv. aerolist(iaer)%lait ) then xmsg = 'Aitken Flag for '// & TRIM(aedat(isp)%species_name)//' set incorrectly in the AE namelist.' xmsg = Trim( pname ) // ': ' // xmsg call m3mesg( xmsg ) eflag = .True. end if if ( aedat(isp)%lacc .neqv. aerolist(iaer)%lacc ) then xmsg = 'Accumulation Flag for '// & TRIM(aedat(isp)%species_name)//' set incorrectly in the AE namelist.' xmsg = Trim( pname ) // ': ' // xmsg call m3mesg( xmsg ) eflag = .True. end if if ( aedat(isp)%lcor .neqv. aerolist(iaer)%lcor ) then xmsg = 'Coarse Flag for '// & TRIM(aedat(isp)%species_name)//' set incorrectly in the AE namelist.' xmsg = Trim( pname ) // ': ' // xmsg call m3mesg( xmsg ) eflag = .True. end if end if if( eflag )then xmsg = 'AE Namelist has fatal errors. Check Processor log ' & // Trim( cmype ) Call log_message( outdev, 'Error: '//xmsg ) xmsg = Trim( pname ) // ': ' // xmsg call m3mesg( xmsg ) call m3exit( pname, 0, 0, 'FATAL ERROR', xstat2 ) end if ! If no modes are selected, warn and move on if ( .not.aedat(isp)%lait .and. % .not.aedat(isp)%lacc .and. & .not.aedat(isp)%lcor ) then xmsg = 'No aerosol modes have been requested for '// & TRIM(aedat(isp)%species_name)//' on the AE namelist.' call m3warn( pname, 0, 0, xmsg ) end if ! For Aitken-Mode Particles if ( aedat(isp)%lait ) then if ( aedat(isp)%species_name .eq. 'NUM' .OR. & aedat(isp)%species_name .eq. 'SRF' ) THEN ! Add Aitken Mode Number or Surface Area nsp2 = nsp2 + 1 aedat_mode(nsp2)%species_name = & trim(aedat(isp)%species_name)//'ATKN' aedat_mode(nsp2)%depv_surr = & trim(aedat(isp)%depv_surr)//'ATKN' aedat_mode(nsp2)%scav_surr = & trim(aedat(isp)%scav_surr)//'_AITKEN' aedat_mode(nsp2)%cloud_surr = & trim(aedat(isp)%cloud_surr)//'_AITKEN' elseif ( aerolist(iaer)%lait ) then ! Add Aitken Mode Mass nsp2 = nsp2 + 1 aedat_mode(nsp2)%species_name = & trim(aedat(isp)%species_name)//modesuff(iait) aedat_mode(nsp2)%depv_surr = aedat(isp)%depv_surr if ( aedat(isp)%depv_surr .ne. '' ) & aedat_mode(nsp2)%depv_surr = & trim(aedat(isp)%depv_surr)//'I' aedat_mode(nsp2)%scav_surr = aedat(isp)%scav_surr if ( aedat(isp)%scav_surr .ne. '' ) & aedat_mode(nsp2)%scav_surr = & trim(aedat(isp)%scav_surr)//'_AITKEN' aedat_mode(nsp2)%cloud_surr = aedat(isp)%cloud_surr if ( aedat(isp)%cloud_surr .ne. '' ) & aedat_mode(nsp2)%cloud_surr = & trim(aedat(isp)%cloud_surr)//'_AITKEN' else ! Mode not allowed for this species. Exit CMAQ xmsg = 'Aitken-mode aerosols have been requested for '// & TRIM(aedat(isp)%species_name)// & ' but they are not available for this species. See '// & 'aerolist table in AERO_DATA.' Call log_message( outdev, 'Error: '//xmsg ) call m3exit( pname, 0, 0, xmsg, xstat2 ) end if aedat_mode(nsp2)%molwt = aedat(isp)%molwt aedat_mode(nsp2)%lait = .True. aedat_mode(nsp2)%lacc = .False. aedat_mode(nsp2)%lcor = .False. aedat_mode(nsp2)%optics_surr = aedat(isp)%optics_surr aedat_mode(nsp2)%ic_surr = aedat(isp)%ic_surr aedat_mode(nsp2)%ic_fac = aedat(isp)%ic_fac aedat_mode(nsp2)%bc_surr = aedat(isp)%bc_surr aedat_mode(nsp2)%bc_fac = aedat(isp)%bc_fac aedat_mode(nsp2)%depv_fac = aedat(isp)%depv_fac aedat_mode(nsp2)%scav_fac = aedat(isp)%scav_fac aedat_mode(nsp2)%trns_flag = aedat(isp)%trns_flag aedat_mode(nsp2)%ddep_flag = aedat(isp)%ddep_flag aedat_mode(nsp2)%wdep_flag = aedat(isp)%wdep_flag aedat_mode(nsp2)%conc_flag = aedat(isp)%conc_flag xmsg = 'Added an Aitken Mode for Aerosol Species '// & trim(aedat_mode(nsp2)%species_name) Call log_message( LOGDEV, xmsg ) end if ! For Accumulation-Mode Particles if ( aedat(isp)%lacc ) then if ( aedat(isp)%species_name .eq. 'NUM' .OR. & aedat(isp)%species_name .eq. 'SRF' ) THEN ! Add Accumulation Mode Number or Surface Area nsp2 = nsp2 + 1 aedat_mode(nsp2)%species_name = & trim(aedat(isp)%species_name)//'ACC' aedat_mode(nsp2)%depv_surr = & trim(aedat(isp)%depv_surr)//'ACC' aedat_mode(nsp2)%scav_surr = & trim(aedat(isp)%scav_surr)//'_ACCUM' aedat_mode(nsp2)%cloud_surr = & trim(aedat(isp)%cloud_surr)//'_ACCUM' elseif ( aerolist(iaer)%lacc ) then ! Add Accumulation Mode Mass nsp2 = nsp2 + 1 aedat_mode(nsp2)%species_name = & trim(aedat(isp)%species_name)//modesuff(iacc) aedat_mode(nsp2)%depv_surr = aedat(isp)%depv_surr if ( aedat(isp)%depv_surr .ne. '' ) & aedat_mode(nsp2)%depv_surr = & trim(aedat(isp)%depv_surr)//'J' aedat_mode(nsp2)%scav_surr = aedat(isp)%scav_surr if ( aedat(isp)%scav_surr .ne. '' ) & aedat_mode(nsp2)%scav_surr = & trim(aedat(isp)%scav_surr)//'_ACCUM' aedat_mode(nsp2)%cloud_surr = aedat(isp)%cloud_surr if ( aedat(isp)%cloud_surr .ne. '' ) & aedat_mode(nsp2)%cloud_surr = & trim(aedat(isp)%cloud_surr)//'_ACCUM' else ! Mode not allowed for this species. Exit CMAQ xmsg = 'Accumulation-mode aerosols have been requested for '// & TRIM(aedat(isp)%species_name)// & ' but they are not available for this species. See '// & 'aerolist table in AERO_DATA.' Call log_message( outdev, 'Error: '//xmsg ) call m3exit( pname, 0, 0, xmsg, xstat2 ) end if aedat_mode(nsp2)%molwt = aedat(isp)%molwt aedat_mode(nsp2)%lait = .False. aedat_mode(nsp2)%lacc = .True. aedat_mode(nsp2)%lcor = .False. aedat_mode(nsp2)%optics_surr = aedat(isp)%optics_surr aedat_mode(nsp2)%ic_surr = aedat(isp)%ic_surr aedat_mode(nsp2)%ic_fac = aedat(isp)%ic_fac aedat_mode(nsp2)%bc_surr = aedat(isp)%bc_surr aedat_mode(nsp2)%bc_fac = aedat(isp)%bc_fac aedat_mode(nsp2)%depv_fac = aedat(isp)%depv_fac aedat_mode(nsp2)%scav_fac = aedat(isp)%scav_fac aedat_mode(nsp2)%trns_flag = aedat(isp)%trns_flag aedat_mode(nsp2)%ddep_flag = aedat(isp)%ddep_flag aedat_mode(nsp2)%wdep_flag = aedat(isp)%wdep_flag aedat_mode(nsp2)%conc_flag = aedat(isp)%conc_flag xmsg = 'Added an Accumulation Mode for Aerosol Species '// & trim(aedat_mode(nsp2)%species_name) Call log_message( LOGDEV, xmsg ) end if ! For Coarse-Mode Particles if ( aedat(isp)%lcor ) then if ( aedat(isp)%species_name .eq. 'NUM' .OR. & aedat(isp)%species_name .eq. 'SRF' ) THEN ! Add Coarse Mode Number or Surface Area nsp2 = nsp2 + 1 aedat_mode(nsp2)%species_name = & trim(aedat(isp)%species_name)//'COR' aedat_mode(nsp2)%depv_surr = & trim(aedat(isp)%depv_surr)//'COR' aedat_mode(nsp2)%scav_surr = & trim(aedat(isp)%scav_surr)//'_COARSE' aedat_mode(nsp2)%cloud_surr = & trim(aedat(isp)%cloud_surr)//'_COARSE' elseif ( aerolist(iaer)%lcor ) then ! Add Coarse Mode Mass nsp2 = nsp2 + 1 if ( aedat(isp)%species_name .eq. 'ACORS' .OR. & aedat(isp)%species_name .eq. 'ASOIL' .OR. & aedat(isp)%species_name .eq. 'ASEACAT' .OR. & aedat(isp)%species_name .eq. 'ADE_CORS' ) THEN aedat_mode(nsp2)%species_name = & trim(aedat(isp)%species_name) aedat_mode(nsp2)%depv_surr = & trim(aedat(isp)%depv_surr)//'C' aedat_mode(nsp2)%scav_surr = & trim(aedat(isp)%scav_surr)//'_COARSE' aedat_mode(nsp2)%cloud_surr = & trim(aedat(isp)%cloud_surr)//'_COARSE' else aedat_mode(nsp2)%species_name = & trim(aedat(isp)%species_name)//modesuff(icor) aedat_mode(nsp2)%depv_surr = aedat(isp)%depv_surr if ( aedat(isp)%depv_surr .ne. '' ) & aedat_mode(nsp2)%depv_surr = & trim(aedat(isp)%depv_surr)//'C' aedat_mode(nsp2)%scav_surr = aedat(isp)%scav_surr if ( aedat(isp)%scav_surr .ne. '' ) & aedat_mode(nsp2)%scav_surr = & trim(aedat(isp)%scav_surr)//'_COARSE' aedat_mode(nsp2)%cloud_surr = aedat(isp)%cloud_surr if ( aedat(isp)%cloud_surr .ne. '' ) & aedat_mode(nsp2)%cloud_surr = & trim(aedat(isp)%cloud_surr)//'_COARSE' end if else ! Mode not allowed for this species. Exit CMAQ xmsg = 'Coarse-mode aerosols have been requested for '// & TRIM(aedat(isp)%species_name)// & ' but they are not available for this species. See '// & 'aerolist table in AERO_DATA.' Call log_message( outdev, 'Error: '//xmsg ) call m3exit( pname, 0, 0, xmsg, xstat2 ) end if aedat_mode(nsp2)%molwt = aedat(isp)%molwt aedat_mode(nsp2)%lait = .False. aedat_mode(nsp2)%lacc = .False. aedat_mode(nsp2)%lcor = .True. aedat_mode(nsp2)%optics_surr = aedat(isp)%optics_surr aedat_mode(nsp2)%ic_surr = aedat(isp)%ic_surr aedat_mode(nsp2)%ic_fac = aedat(isp)%ic_fac aedat_mode(nsp2)%bc_surr = aedat(isp)%bc_surr aedat_mode(nsp2)%bc_fac = aedat(isp)%bc_fac aedat_mode(nsp2)%depv_fac = aedat(isp)%depv_fac aedat_mode(nsp2)%scav_fac = aedat(isp)%scav_fac aedat_mode(nsp2)%trns_flag = aedat(isp)%trns_flag aedat_mode(nsp2)%ddep_flag = aedat(isp)%ddep_flag aedat_mode(nsp2)%wdep_flag = aedat(isp)%wdep_flag aedat_mode(nsp2)%conc_flag = aedat(isp)%conc_flag xmsg = 'Added a Coarse Mode for Aerosol Species '// & trim(aedat_mode(nsp2)%species_name) Call log_message( LOGDEV, xmsg ) end if end do write( xmsg, '(A,I3)' ), 'Total number of aerosol species: ',nsp2 Call log_message( LOGDEV, '' ) Call log_message( LOGDEV, xmsg ) Call log_message( LOGDEV, '' ) ae_species_data(1:nsp2) = aedat_mode(1:nsp2) End Subroutine aero_nml_modes C----------------------------------------------------------------------- ================================================ FILE: CCTM/src/aero/aero6/aero_subs.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C routines for aerosol formation and transformation processes C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE AEROPROC( DT, COL, ROW, LAYER ) C----------------------------------------------------------------------- C SUBROUTINE AEROPROC advances the number, second moment, and mass C concentrations for each mode over the time interval DT. C KEY SUBROUTINES CALLED: C GETPAR, ORGAER5, GETCOAGS, INTERCOAG_GH, INTRACOAG_GH, C VOLINORG C KEY FUNCTIONS CALLED: ERF, ERFC, GETAF C REVISION HISTORY: C Coded in December 1999 by Dr. Francis S. Binkowski C Modified from older versions used in CMAQ. C FSB 05/17/00 new version of RPMARES included C FSB 05/30/00 Fixed minor bug in awater.f C FSB Correction to extinction coefficient in getbext. C FSB 07/21/00 corrected units on ORGRATES and ORGBRATE_IN from C ppm/min to ppm/sec in AEROPROC and AEROSTEP. C FSB 11/30/00 following changes from 07/28/00 C Fixed problem for new emissions file version C Combined emissions for M3 C Used a fixed value of Dpmin for plotting C Added variables OMEGA_AT & OMEGA_AC for partitioning C Eliminated the restriction on relative humidity for nucleation. C Added a branch in EQL for very low relative humidity (<1%). C FSB Following changes to RPMARES: C Number of iterations reduced from 150 to 50. C Iterations are used only if 0.5 < = RATIO. C In calculating the molality of the bisulfate ion, a C MAX(1.0e-10, MSO4 ) is used. C FSB 08/08/01 Changes to NEWPART to correct mass rate and to AEROSTEP C to correct sulfate, include emissions, and trap problem in C accumulation mode number calculation. C FSB 09/19/01 Version AE3, major changes C Organics are done with Dr. Benedikt Schell's approach. (ORGAER3) C Particle production uses Kulmala approach (NEWPART3) C Condensational factors for sulfate and organics are calculated C separately. C Emissions are assumed to be input in vertical diffusion. C Include files replaced by Fortran 90 Modules. C The modules also contain subroutines. C FSB 10/24/01 Added the treatment of gaseous N2O5 -> aerosol HNO3 C FSB 10/25/01 Changed the mass transfer calculation for Aitken to C accumulation mode by coagulation as recommended by Dr. Benedikt C Schell. C SJR 04/24/02 Replaced thermodynamic code RPMARES with ISORROPIA C --Shawn J. Roselle C GLG 04/04/03 Modifications to allow for evaporation of semi-volatile C organics from aerosol phase. --Gerald L. Gipson C FSB 11/18/03 Corrections to sulfate condensation. Previously, C SCONDRATE was undefined when SO4RATE=0 and SCONDRATE was C negative when SO4RATE < DMDT_so4. C PVB 01/08/04 Several changes in preparation for simulation of 2001 C calendar year --Dr. Prakash V. Bhave C -Added interface to new subroutine, GETCOAGS, for calculating C coagulation rates. GETCOAGS is used instead of Gauss-Hermite C quadrature for computational efficiency, by setting C FASTCOAG_FLAG = .TRUE. --PVB C -Removed SOA from the definition of "DRY" aerosol. Aerosol surface C area is now transported without SOA. See notes in GETPAR, AERO, C and AERO_DEPV subroutines. --SJR C -Moved EQL3 call from AEROPROC to AEROSTEP, immediately following C the ORGAER3 call. This is a side effect of transporting aerosol C surface area without SOA. --SJR C -New subroutine, HCOND3, to calculate condensation rates for C 2nd and 3rd moments. Results are unchanged. --FSB C -Revised method of calculating SOA. Partition SOA to the modes C in proportion to the amounts of total organic mass (SOA plus C primary) in each mode. Modal geometric standard deviations are C now preserved during SOA condensation and evaporation. --FSB C -Combined the former subroutines AEROPROC and AEROSTEP into this C subroutine; retained the name AEROPROC. --PVB C PVB 09/21/04 added in-line documentation with input from FSB. C Changed MWH2SO4 from 98.07354 to 98.0 g/mol for consistency with C the mechanism files. C PVB 09/27/04 removed the IF(XM3.GT.0.0) mode-merging precondition C because it caused significant erroneous mode crossover. Fix C suggested by Dr. Chris Nolte. C PVB 01/19/05 Added SO4RATE to the EQL3 call vector. This is necessary C to ensure that the gas and inorganic fine PM (i+j) concentrations C are in thermodynamic equilibrium at the end of each time step. C PVB 05/02/05 Modified ERF statement function for negative arguments such C that erf(-x) = -erf(x). Previous version had erf(-x) = erf(x). C PVB 04/06/06 Added GAMMA_N2O5 to the AEROPROC and EQL3 call vectors, C so it can be written to the aerosol diagnostic file. C SLN 09/07/07 Several changes in preparation for new SOA module C -Removed Aitken-mode SOA species (CBLK(VORGAI),CBLK(VORGBI)) and C all of the related variables (OMASS_I, OMASS_J, FRACI, FRACJ, C OLD_M2_I, OLD_M3_I, NEW_M2_I, NEW_M3_I) C -Replaced the other SOA species (CBLK(VORGAJ),CBLK(VORGBJ)) with C precursor-specific SOA species (e.g., CBLK(VTOL1J)). C -Replaced SOA_A and SOA_B with an array, SOA_ALL. Replaced C OLDSOA_A and OLDSOA_B with an array, OLDSOA. Updated ORGAER3 C call vector accordingly. C -Removed dependence of mode-merging criteria on SOA condensation C because that logic was flawed. Deleted all variables needed C for that calculation (CHEMRATE_ORG, ORGRATE, ORGBRATE). C PVB 11/02/07 Moved heterogenous N2O5 chemistry from EQL3 to a new C subroutine, HETCHEM. C PVB 11/29/07 Implementation of new SOA formation mechanisms C -Replaced call to ORGAER3 with a call to ORGAER5 C -Moved CBLK updates of SV species, SOA species, M2, and M3 into C ORGAER5 instead of updating those values in AEROPROC C JOY 04/08/08 White space, alignment, readability C JTK 04/17/08 Implemented coarse chemistry updates C -replaced condensation calculations with call to VOLINORG C -added code for coarse surface area and variable coarse std. dev. C -modified modal dynamics equations because new particle formation C and growth are now calculated in VOLINORG C JOY 12/07/08 Removed unused EQL3 code, add column and row arguments to C VOLINORG for diagnostic logging C SH 12/17/09 Major restructuring of all aerosol codes C -use new Fortran modules (e.g., AERO_DATA, SOA_DEFN); shortened call C vector; replaced CBLK with aerospc structure; eliminated AERO_INFO C SH 03/10/11 Renamed met_data to aeromet_data C HS 03/10/11 Added call to POAAGE between ORGAER and HETCHEM C SR 03/25/11 Replaced I/O API include files with UTILIO_DEFN C BH 09/30/13 Removed Call to HETCHEM and GAMMA_N2O5 argument C because of merging of gas and heterogeneous C chemistry C JB 02/07/14 Added Jai Xing's mass balance fix when there is excessive C condensation or evaporation under cold conditions C BH 07/21/14 Removed call to POAAGE because reaction represented in C chemical mechanism C GS/KF 09/23/14 Updated nucleation scheme with Vehkamaki et al. (2002) C HP/BM 4/16 Removed m3_wet_flag since wet/dry status is now C tracked by AERO_DATA variable. Moments are always wet in AEROPROC C Updated treatment of aerosol moments C SLN 12/30/19 Update for ddm-3d implementation in version 5.3.1 C REFERENCES: C 1. Binkowski, F.S. and U. Shankar, The regional particulate matter C model 1. Model description and preliminary results, J. Geophys. C Res., Vol 100, No D12, 26101-26209, 1995. C 2. Binkowski, F.S. and S.J. Roselle, Models-3 Community C Multiscale Air Quality (CMAQ) model aerosol component 1: C Model Description. J. Geophys. Res., Vol 108, No D6, 4183 C doi:10.1029/2001JD001409, 2003. C 3. Bhave, P.V., S.J. Roselle, F.S. Binkowski, C.G. Nolte, S. Yu, C G.L. Gipson, and K.L. Schere, CMAQ aerosol module development: C recent enhancements and future plans, Paper No. 6.8, CMAS Annual C Conference, Chapel Hill, NC, 2004. C----------------------------------------------------------------------- USE AERO_DATA USE PRECURSOR_DATA ! gas phase aero precursor data USE SOA_DEFN USE AEROMET_DATA USE UTILIO_DEFN USE AERO_BUDGET #ifdef sens USE DDM3D_DEFN, ONLY : NP, NPMAX USE AERO_DDM3D, ONLY : s_aerospc_conc, s_precursor_conc, & s_so4rate #endif IMPLICIT NONE C *** arguments: REAL, INTENT( IN ) :: DT ! synchronization time step, sec INTEGER, INTENT( IN ) :: COL ! Column of cell INTEGER, INTENT( IN ) :: ROW ! Row of cell INTEGER, INTENT( IN ) :: LAYER ! Layer of cell C *** Parameters REAL, PARAMETER :: DIFFSULF = 9.36E-06 ! molecular diffusiviity for sulfuric acid REAL, PARAMETER :: SQRT2 = 1.4142135623731 REAL, PARAMETER :: T0 = 288.15 ! [ K ] REAL, PARAMETER :: TWOTHIRDS = 2.0 / 3.0 REAL, PARAMETER :: ONE_OVER_TICE = 1.0 / 273.16 C *** local variables REAL DIFFCORR ! Correction to DIFFSULF & DIFFORG for pressure REAL DV_SO4 ! molecular diffusivity of H2SO4 vapor after correction for ambient conditions REAL SQRT_TEMP ! square root of ambient temperature REAL XLM ! atmospheric mean free path [m] REAL AMU ! atmospheric dynamic viscosity [kg/m s] REAL( 8 ) :: CGR( N_MODE-1 ) ! Aitken & Accum. modes REAL( 8 ) :: LAMDA ! mean free path [ m ] REAL( 8 ) :: KNC ! KNC = TWO3 * BOLTZMANN * AIRTEMP / AMU C *** Free Molecular regime (depends upon modal density) REAL( 8 ) :: KFMAT ! = SQRT( 3.0*BOLTZMANN * AIRTEMP / PDENSAT ) REAL( 8 ) :: KFMAC ! = SQRT( 3.0*BOLTZMANN * AIRTEMP / PDENSAC ) REAL( 8 ) :: KFMATAC ! = SQRT( 6.0*BOLTZMANN * AIRTEMP / ( PDENSAT + PDENSAC ) ) C *** Intermodal coagulation rates [ m**3/s ] ( 0th & 2nd moments ) REAL( 8 ) :: BATAC( 2 ) ! Aitken to accumulation REAL( 8 ) :: BACAT( 2 ) ! accumulation from Aitken C *** Intramodal coagulation rates [ m**3/s ] ( 0th & 2nd moments ) REAL( 8 ) :: BATAT( 2 ) ! Aitken mode REAL( 8 ) :: BACAC( 2 ) ! accumulation mode C *** Intermodal coagulation rate [ m**3/s ] ( 3rd moment ) REAL( 8 ) :: C3IJ ! Aitken to accumulation REAL( 8 ) :: C30ATAC ! Aitken to accumulation REAL( 8 ) :: DG_D ( N_MODE ) REAL( 8 ) :: SG_D ( N_MODE ) REAL( 8 ) :: XXL_D( N_MODE ) ! *** Variables for computing the budget REAL( 8 ) :: CBUDGET0_NUM ( N_MODE ) REAL( 8 ) :: CBUDGET0_SRF ( N_MODE ) REAL( 8 ) :: CBUDGET0_MASS( N_AEROSPC,N_MODE ) C *** variables for advancing concentrations one time step REAL( 8 ) :: A, B REAL( 8 ) :: Y0, Y REAL( 8 ) :: EXPDT REAL( 8 ) :: LOSS, PROD, POL REAL TMASS REAL FACTRANS ! special factor to compute mass transfer REAL M30(3), M20(3), M00(3) ! for initial condidtions in time stepping C *** Variables for mode merging REAL GETAF REAL AAA, XNUM, XM2, XM3,XXM2, XXM3 REAL FNUM, FM2, FM3, PHNUM, PHM2, PHM3 REAL ERF, ERFC ! Error and complementary error function C *** local variables INTEGER SPC ! loop counter INTEGER N ! loop counter logical, save :: firstime = .true. C----------------------------------------------------------------------- if ( firstime ) then firstime = .false. #ifdef nomm write( logdev,* ) 'aero_subs: nomm' #endif end if C *** square root of the ambient temperature for later use SQRT_TEMP = SQRT( AIRTEMP ) C *** Calculate mean free path [ m ]: C 6.6328E-8 is the sea level value given in Table I.2.8 C on page 10 of U.S. Standard Atmosphere 1962 XLM = 6.6328E-8 * STDATMPA * AIRTEMP / ( T0 * AIRPRES ) C *** Calculate dynamic viscosity [ kg m**-1 s**-1 ]: C U.S. Standard Atmosphere 1962 page 14 expression C for dynamic viscosity is: C dynamic viscosity = beta * T * sqrt(T) / ( T + S) C where beta = 1.458e-6 [ kg sec^-1 K**-0.5 ], s = 110.4 [ K ]. AMU = 1.458E-6 * AIRTEMP * SQRT_TEMP / ( AIRTEMP + 110.4 ) C *** Set minimums for coarse mode MOMENT0_CONC( N_MODE ) = MAX( AEROMODE_MINNUM( N_MODE ), & MOMENT0_CONC( N_MODE ) ) C *** Secondary Organics C Update the secondary organic aerosol (SOA) mass concentrations C and the SVOC mass concentrations by equilibrium absorptive C partitioning between the particle and vapor phases. Assume all C SOA resides in the accumulation mode. C C Aerosol is wet when it enters orgaer CALL ORGAER( DT, LAYER ) C *** Secondary Inorganics C The VOLINORG subroutine includes the treatment of new particle C production and a fully dynamic treatment of inorganic gas-to- C particle mass transfer. C *** Compute H2SO4 diffusivity, correct for temperature and pressure DIFFCORR = ( STDATMPA / AIRPRES ) * ( ONE_OVER_TICE * AIRTEMP ) ** 1.75 DV_SO4 = DIFFSULF * DIFFCORR C *** Update size parameters (distribution is wet from ORGAER) CALL GETPAR( FIXED_sg ) ! *** Mass transfer of inorganic constituents ! *** Process Budget is calculated inside this routine because NPF and ! *** condensation are calculated simultaneously CALL VOLINORG( DT, COL, ROW, LAYER, DV_SO4, CGR ) ! *** Coagulation ! Calculate coagulation coefficients using a method dictated by ! the value of FASTCOAG_FLAG. If TRUE, the computationally- ! efficient GETCOAGS routine is used. If FALSE, the more intensive ! Gauss-Hermite numerical quadrature method is used. See Section ! 2.1 of Bhave et al. (2004) for further discussion. ! *** Initialize Budget Variables CBUDGET0_NUM = MOMENT0_CONC CBUDGET0_SRF = MOMENT2_CONC * PI CBUDGET0_MASS = AEROSPC_CONC ! *** set atmospheric mean free path in double precision LAMDA = XLM ! *** calculate term used in Equation A6 of Binkowski & Shankar (1995) KNC = TWOTHIRDS * BOLTZMANN * AIRTEMP / AMU ! *** calculate terms used in Equation A5 of Binkowski & Shankar (1995) KFMAT = SQRT( 3.0 * BOLTZMANN * AIRTEMP / AEROMODE_DENS( 1 ) ) KFMAC = SQRT( 3.0 * BOLTZMANN * AIRTEMP / AEROMODE_DENS( 2 ) ) KFMATAC = SQRT( 6.0 * BOLTZMANN * AIRTEMP & / ( AEROMODE_DENS( 1 ) + AEROMODE_DENS( 2 ) ) ) ! *** transfer of number to accumulation mode from Aitken mode is zero BACAT( 1 ) = 0.0 IF ( FASTCOAG_FLAG ) THEN ! Solve coagulation analytically C *** set geometric mean diameters, geometric standard deviations, and C ln(GSD) in double precision DO N = 1, N_MODE DG_D( N ) = AEROMODE_DIAM( N ) SG_D( N ) = EXP( AEROMODE_LNSG( N ) ) XXL_D( N ) = AEROMODE_LNSG( N ) END DO C *** calculate intermodal and intramodal coagulation coefficients C for zeroth and second moments, and intermodal coagulation C coefficient for third moment CALL GETCOAGS( LAMDA, KFMATAC, KFMAT, KFMAC, KNC, & DG_D(1), DG_D(2), SG_D(1), SG_D(2), & XXL_D(1),XXL_D(2), & BATAT( 2 ), BATAT( 1 ), BACAC( 2 ), BACAC( 1 ), & BATAC( 2 ), BACAT( 2 ), BATAC( 1 ), C3IJ ) ELSE ! Use Gauss-Hermite numerical quadrature C *** calculate Aitken-mode intramodal coagulation coefficients C for zeroth and second moments CALL INTRACOAG_GH( LAMDA, KFMAT, KNC, AEROMODE_DIAM( 1 ), & AEROMODE_LNSG( 1 ), BATAT( 2 ), BATAT( 1 ) ) C *** calculate accumulation-mode intramodal coagulation coefficients C for zeroth and second moments CALL INTRACOAG_GH( LAMDA, KFMAC, KNC, AEROMODE_DIAM( 2 ), & AEROMODE_LNSG( 2 ), BACAC( 2 ), BACAC( 1 ) ) C *** calculate intermodal coagulation coefficients for zeroth, second, C and third moments CALL INTERCOAG_GH( LAMDA, KFMATAC, KNC, & AEROMODE_DIAM( 1 ), AEROMODE_DIAM( 2 ), & AEROMODE_LNSG( 1 ), AEROMODE_LNSG( 2 ), & BATAC( 2 ), BACAT( 2 ), BATAC( 1 ), C3IJ ) END IF ! FASTCOAG_FLAG C *** calculate 3rd moment intermodal transfer rate by coagulation C30ATAC = C3IJ * MOMENT0_CONC( 1 ) * MOMENT0_CONC( 2 ) C *** TAKE ONE FORWARD TIME STEP - Solve Modal Dynamics Equations C This code implements Section 1.4 of Binkowski and Roselle (2003) C with two notable exceptions. 1) emissions are treated in C CMAQ`s vertical diffusion routine, so they do not appear in the C following equations. 2) new particle formation and condensational C growth are now treated in the VOLINORG subroutine, so they do not C appear in the following equations. ! Initial Moment Values M00 = MOMENT0_CONC M20 = MOMENT2_CONC M30 = MOMENT3_CONC ! *** Update Zeroth Moment (i.e. number concentration) ! *** Aitken mode: initial value of M0 Y0 = MOMENT0_CONC( 1 ) ! The rate of change for M0_Aitken is described in Equation 8a of ! Binkowski & Roselle (2003), with the c_i term equal to 0. A = BATAT( 1 ) ! intramodal coagulation B = BATAC( 1 ) * moment0_conc( 2 ) ! intermodal coagulation EXPDT = EXP( - B * DT ) IF ( EXPDT .LT. 1.0D0 ) THEN Y = B * Y0 * EXPDT / ( B + A * Y0 * ( 1.0D0 - EXPDT ) ) ELSE Y = Y0 ! solution in the limit that B approaches zero END IF ! Transfer new value of M0_Aitken to the moment array MOMENT0_CONC( 1 ) = MAX( AEROMODE_MINNUM( 1 ), REAL( Y ) ) ! Accumulation mode: initial value of M0 Y0 = MOMENT0_CONC( 2 ) ! The rate of change for M0_accum is described in Equation 8b of ! Binkowski & Roselle (2003), except the coefficient C is zero ! because emissions are treated outside the CMAQ aerosol module. ! The equation reduces to the form: dY/dt = -A * Y**2 , where A = BACAC( 1 ) ! intramodal coagulation ! Solve for M0_accum using Smoluchowski`s solution Y = Y0 / ( 1.0D0 + A * Y0 * DT ) ! Transfer new value of M0_accum to the moment array MOMENT0_CONC( 2 ) = MAX( AEROMODE_MINNUM( 2 ), REAL( Y ) ) ! ** Update Budget Variable for Zeroth Moment COAG_BUDGET( AERONUM_MAP( 1 ),1 ) = MOMENT0_CONC( 1 ) - CBUDGET0_NUM( 1 ) COAG_BUDGET( AERONUM_MAP( 2 ),2 ) = MOMENT0_CONC( 2 ) - CBUDGET0_NUM( 2 ) ! *** end of update for zeroth moment - note that the coarse mode number does ! *** not change because coarse-mode coagulation is neglected in the model C *** UPDATE MASS CONCENTRATIONS (for each species) C The following procedure is described in Paragraphs 21-23 C of Binkowski & Roselle (2003), except the Ei,n and Ej,n terms C are excluded here because emissions are treated outside the C CMAQ aerosol module. C Aitken mode mass concentration rates of change are of the form: C dc/dt = P - L*c ! Equation 9a of Binkowski & Roselle (2003) C with solution C c(t0 + dt) = P/L + ( c(t0) - P/L ) * exp(-L*dt) C For all species, loss of Aitken mode mass is due to intermodal C coagulation. C LOSSn = PI/6 * RHOn * C30ATAC / MASSn C RHOn = MASSn / (M3 * PI/6) C When above equations are combined, the PI/6 terms cancel yielding C LOSSn = C30ATAC / M3 C where LOSSn is the loss rate of species n, RHOn is the mass of C species n per unit of particle volume, C30ATAC is the 3rd moment C loss rate due to intermodal coagulation, MASSn is the mass C concentration of species n, and M3 is the 3rd moment C concentration. LOSS = C30ATAC / MOMENT3_CONC( 1 ) ! Set up extra variables to solve for Aitken mode mass concentrations FACTRANS = REAL( LOSS,4 ) * DT EXPDT = EXP( -FACTRANS ) ! Transfer mass from Aitken to accumulation mode, resulting from ! intermodal coagulation. DO SPC = 1, N_AEROSPC IF ( AERO_MISSING(SPC,1) ) CYCLE TMASS = AEROSPC_CONC( SPC,1 ) + AEROSPC_CONC( SPC,2 ) IF( SPC .EQ. APHGJ_IDX )THEN ! assumes all production adsorb onto accumulation mode TMASS = TMASS + PHG_RATE * DT END IF AEROSPC_CONC( SPC,1 ) = MAX( AEROSPC( SPC )%MIN_CONC( 1 ), & REAL( AEROSPC_CONC( SPC,1 ) * EXPDT ) ) AEROSPC_CONC( SPC,2 ) = MAX( AEROSPC( SPC )%MIN_CONC( 2 ), & TMASS - AEROSPC_CONC( SPC,1 ) ) ! Update Budget Variable for Speciated Mass IF ( AEROSPC_MAP( SPC,1 ) .NE. 0 ) & COAG_BUDGET( AEROSPC_MAP( SPC,1 ),1 ) = & AEROSPC_CONC( SPC,1 ) - CBUDGET0_MASS( SPC,1 ) IF ( AEROSPC_MAP( SPC,2 ) .NE. 0 ) & COAG_BUDGET( AEROSPC_MAP( SPC,2 ),1 ) = & AEROSPC_CONC( SPC,2 ) - CBUDGET0_MASS( SPC,2 ) END DO C *** end of update for species mass concentrations ! *** UPDATE SECOND MOMENT IF ( COAG_MOMENTS .EQ. 3 ) THEN ! For each lognormal mode, solve equations of form: ! dM2/dt = P2 - L2*M2 ! if L2 > 0 ! with solution ! M2(t) = P2/L2 + ( M2(t0) - P2/L2 ) * exp( -L2*dt ) ! or ! dM2/dt = P2 ! if L2 = 0 ! with solution ! M2(t) = M2(t0) + P2*dt ! Loss of 2nd moment from Aitken mode is due to intermodal ! coagulation with accumulation mode and intramodal coagulation. ! Production term is removed, because new particle formation ! and condensational growth are accounted for in VOLINORG. LOSS = ( & ( BATAT( 2 ) * M00( 1 ) & + BATAC( 2 ) * M00( 2 ) ) * M00( 1 ) & ) / M20( 1 ) ! Solve for M2_Aitken based on LOSS during this time step ! Note: LOSS is assumed to be non-negative. IF ( LOSS .GT. 0.0 ) THEN Y = M20( 1 ) * EXP( -LOSS * DT ) ELSE Y = M20( 1 ) END IF ! test on loss ! Transfer new value of M2_Aitken to the array MOMENT2_CONC( 1 ) = MAX( REAL( AEROMODE_MINM2( 1 ) ), REAL( Y ) ) ! Production of 2nd moment in accumulation mode is due to ! intermodal coagulation Aitken mode PROD = BACAT( 2 ) * M00( 1 ) * M00( 2 ) ! Loss of 2nd moment from accumulation mode is due only to ! intramodal coagulation LOSS = ( BACAC( 2 ) * M00( 2 ) * M00( 2 ) ) / M20( 2 ) ! Solve for M2_accum based on PROD and LOSS during this time step ! Note: LOSS is assumed to be non-negative. IF ( LOSS .GT. 0.0 ) THEN POL = PROD / LOSS Y = POL + ( M20(2) - POL ) * EXP( -LOSS * DT ) ELSE Y = M20(2) + PROD * DT END IF ! test on loss ! Transfer new value of M2_accum to moment array MOMENT2_CONC( 2 ) = MAX( REAL( AEROMODE_MINM2( 2 ) ), REAL( Y ) ) ! Coarse mode: no change because coagulation of coarse particles ! is neglected in current model version. ELSE IF ( COAG_MOMENTS .EQ. 2 ) THEN ! Assume constant modal standard deviation and solve for new ! second moment as a function of the change in the third moment. MOMENT2_CONC( 1 ) = M20( 1 )*( MOMENT3_CONC( 1 ) / M30( 1 ) ) ** ( 2.0 / 3.0 ) MOMENT2_CONC( 2 ) = M20( 2 )*( MOMENT3_CONC( 2 ) / M30( 2 ) ) ** ( 2.0 / 3.0 ) END IF ! Update Budget Variable for Second Moment COAG_BUDGET( AEROSRF_MAP( 1 ),1 ) = MOMENT2_CONC( 1 ) * PI - CBUDGET0_SRF( 1 ) COAG_BUDGET( AEROSRF_MAP( 2 ),2 ) = MOMENT2_CONC( 2 ) * PI - CBUDGET0_SRF( 2 ) C *** end of update for second moment C *** Mode Merging C This code implements Section 1.5 of Binkowski and Roselle (2003). C If the Aitken mode mass is growing faster than accumulation mode C mass and the Aitken mode number concentration exceeds the C accumulation mode number concentration, then modes are merged by C renaming. ! *** Initialize Budget Variables CBUDGET0_NUM = MOMENT0_CONC CBUDGET0_SRF = MOMENT2_CONC * PI CBUDGET0_MASS = AEROSPC_CONC #ifdef nomm if ( .false. ) then #else IF ( CGR( 1 ) .GT. CGR( 2 ) .AND. & MOMENT0_CONC( 1 ) .GT. MOMENT0_CONC( 2 ) ) THEN #endif C *** Before mode merging, update the third moments, geometric mean C diameters, geometric standard deviations, modal mass totals, and C particle densities, based on the new concentrations of M2, M0, and C speciated masses calculated above. This is still the wet C distribution. CALL GETPAR( FIXED_sg ) C *** Calculate AAA = ln( Dij / DGATK ) / ( SQRT2 * XXLSGAT ), where Dij C is the diameter at which the Aitken-mode and accumulation-mode C number distributions intersect (i.e., overlap). AAA is equivalent C to the "Xnum" term described below Equation 10a by Binkowski and C Roselle (2003). AAA = GETAF( MOMENT0_CONC( 1 ), MOMENT0_CONC( 2 ), & AEROMODE_DIAM( 1 ), AEROMODE_DIAM( 2 ), & AEROMODE_LNSG( 1 ), AEROMODE_LNSG( 2 ), & SQRT2 ) C *** Ensure that Xnum is large enough so that no more than half of C the Aitken mode mass is merged into the accumulation mode during C any given time step. This criterion is described in Paragraph 26 C of Binkowski and Roselle (2003). XXM3 = 3.0 * AEROMODE_LNSG( 1 ) / SQRT2 XNUM = MAX( AAA, XXM3 ) C *** Factors used in error function calls for M2 and M3 mode merging XXM2 = TWOTHIRDS * XXM3 XM2 = XNUM - XXM2 ! set up for 2nd moment transfer XM3 = XNUM - XXM3 ! set up for 3rd moment and mass transfers C *** Calculate the fractions of the number, 2nd, and 3rd moment C distributions with diameter greater than the intersection diameter FNUM = 0.5 * ERFC( XNUM ) ! Eq 10a of B&R 2003 FM2 = 0.5 * ERFC( XM2 ) ! Eq 10b of B&R 2003 FM3 = 0.5 * ERFC( XM3 ) ! Eq 10b of B&R 2003 C *** Calculate the fractions of the number, 2nd, and 3rd moment C distributions with diameters less than the intersection diameter. PHNUM = 0.5 * ( 1.0 + ERF( XNUM ) ) ! Eq 10c of B&R 2003 PHM2 = 0.5 * ( 1.0 + ERF( XM2 ) ) ! Eq 10d of B&R 2003 PHM3 = 0.5 * ( 1.0 + ERF( XM3 ) ) ! Eq 10d of B&R 2003 C *** Update accumulation-mode moment concentrations using C Equations 11a - 11c of Binkowski and Roselle (2003). MOMENT0_CONC( 2 ) = MOMENT0_CONC( 2 ) + MOMENT0_CONC( 1 ) * FNUM MOMENT2_CONC( 2 ) = MOMENT2_CONC( 2 ) + MOMENT2_CONC( 1 ) * FM2 MOMENT3_CONC( 2 ) = MOMENT3_CONC( 2 ) + MOMENT3_CONC( 1 ) * FM3 C *** Update Aitken-mode moment concentrations using C Equations 11d - 11f of Binkowski and Roselle (2003). MOMENT0_CONC( 1 ) = MOMENT0_CONC( 1 ) * PHNUM MOMENT2_CONC( 1 ) = MOMENT2_CONC( 1 ) * PHM2 MOMENT3_CONC( 1 ) = MOMENT3_CONC( 1 ) * PHM3 C *** Rename masses of each species from Aitken mode to acumulation mode C using Equation 11b of Binkowski and Roselle (2003). Do this for C all species, even the aerosol water. DO SPC = 1, N_AEROSPC IF ( AERO_MISSING(SPC,1) ) CYCLE AEROSPC_CONC( SPC,2 ) = AEROSPC_CONC( SPC,2 ) + AEROSPC_CONC( SPC,1 ) * FM3 AEROSPC_CONC( SPC,1 ) = AEROSPC_CONC( SPC,1 ) * PHM3 END DO END IF ! end check on necessity for merging C *** end of update for mode merging C *** Update the third moments, geometric mean diameters, geometric C standard deviations, modal mass totals, and particle densities, C based on the final concentrations of M2, M0, and speciated masses C after mode merging is complete. This should be done for the wet C distribution. CALL GETPAR( FIXED_sg ) C *** Set minimum value for all concentrations in the CBLK array DO N = 1, N_MODE DO SPC = 1, N_AEROSPC AEROSPC_CONC( SPC,N ) = MAX( AEROSPC_CONC( SPC,N ), & AEROSPC( SPC )%MIN_CONC( N ) ) #ifdef sens IF (AEROSPC_CONC( SPC,N ) .EQ. AEROSPC( SPC )%MIN_CONC( N ) ) THEN S_AEROSPC_CONC( SPC,N,: ) = 0.0 ENDIF #endif END DO END DO ! *** Propagate Mode Merging and Minimum value impacts to budget variables GROWTH_BUDGET( AERONUM_MAP(:) ) = MOMENT0_CONC(:) - CBUDGET0_NUM(:) GROWTH_BUDGET( AEROSRF_MAP(:) ) = MOMENT2_CONC(:) * PI - CBUDGET0_SRF(:) DO SPC = 1,N_AEROSPC WHERE( AEROSPC_MAP( SPC,: ) .NE. 0 ) & GROWTH_BUDGET( AEROSPC_MAP(SPC,:) )= & AEROSPC_CONC(SPC,:) - CBUDGET0_MASS(SPC,:) END DO RETURN END SUBROUTINE AEROPROC C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE VOLINORG( DT, COL, ROW, LAYER, DV_SO4, CGR ) C *** Calculates the partitioning of inorganic components (CL,NO3,NH4,SO4) C between the aerosol and gas phase over the operator synchronization C timestep (DT). Partitioning is calculated using the Hybrid approach, C where dynamic mass transfer of species to/from the coarse mode is C calculated using multiple sub-operator time steps (TSTEP) and the C fine modes are equilibrated with the gas phase. The mass transfer C calculations are made using the H+ flux-limiting approach of Pilinis C et al. (2000). If 'OPTIONFLAG' is not set to 'Hybrid', the mass C transfer calculations for the coarse mode are skipped, and the fine C modes are equilibrated with the gas phase. C Returns updated volatile inorganic species concentrations in the gas C and particulate phase, and the aerosol modal parameters C *** Revision history: 4/07 - Moved HCOND3 and NEWPART3 calls from C AEROPROC to this subroutine for C mass transfer calculation C 15 Jul 08 J.Young, P.Bhave: increased cutoff to hybrid from .01 to .05 ug/m**3 C J.Young: change 'OPTIONFLAG' to just a logical variable, 'Hybrid' C 10 Mar 11 S.Howard Renamed met_data to aeromet_data C 25 Mar 11 S.Roselle Replaced I/O API include files with UTILIO_DEFN C 26 Apr 11 G.Sarwar Replaced existing ISORROPIA with ISORROPIA 2.1 C Updated coarse-mode aerosol speciation and H+ calculation C 12 Apr 16 H. Pye and B. Murphy: Update with consistent treatment for wet particles. C 15 Apr 16 J.Young: Use aerosol factors from AERO_DATA module named constants C *** References C 1. Pilinis C, Capaldo KP, Nenes A, Pandis SN (2000) MADM - A new C multicomponent aerosol dynamics model. AEROSOL SCIENCE AND TECHNOLOGY. C 32(5):482-502 C C 2. Capaldo KP, Pilinis C, Pandis SN (2000) A computationally efficient hybrid C approach for dynamic gas/aerosol transfer in air quality models. ATMOSPHERIC C ENVIRONMENT. 34(21):3617-3627 C C 3. Fountoukis C, Nenes, A (2007) ISORROPIA II: a comnputationally efficient C thermodynamic equilibrium model for K+-Ca2+-Mg2+-NH4+-SO42--NO3--Cl-H2O C aerosols. ATMOSPHERIC CHEMISTRY AND PHYSICS. 7, 4639-4659 USE AERO_DATA USE PRECURSOR_DATA USE SOA_DEFN USE AEROMET_DATA USE UTILIO_DEFN #ifdef sens USE DDM3D_DEFN, ONLY : NP, NPMAX USE AERO_DDM3D, ONLY : S_SO4RATE, S_PRECURSOR_CONC #endif IMPLICIT NONE C *** Arguments: REAL DT ! time step [sec] INTEGER COL ! grid column index INTEGER ROW ! grid row index INTEGER LAYER ! model layer index REAL DV_SO4 ! molecular diffusivity of H2SO4 vapor ! after correction for ambient conditions REAL( 8 ) :: CGR( N_MODE-1 ) ! 3rd moment SO4 growth rate [m^3/m^3-s] C *** Parameters: INTEGER, PARAMETER :: NINORG = 9 ! number of inorganic species INTEGER, PARAMETER :: NVOLINORG = 3 ! number of volatile inorganic species ! indices for inorganic species INTEGER, PARAMETER :: KNH4 = 1, KNO3 = 2, KCL = 3, KSO4 = 4, KNA = 5, KMG = 6, KK = 7, KCA = 8, KHP = 9 REAL( 8 ), PARAMETER :: D_TWOTHIRDS = 2.0D0 / 3.0D0 REAL, PARAMETER :: CUTOFF = 0.05 ! [ug/m**3] REAL, PARAMETER :: ALPHSULF = 0.1 ! Accommodation coefficient for sulfuric acid ! see Capaldo et al. (2000) C *** Local Variables: C *** Inputs to subroutine HCOND3 REAL, SAVE :: COFCBAR_SO4 ! Temperature-independent coefficients ! for caculating molecular vel [m/s] ! = sqrt((8*Rgas)/(pi*MW)) REAL CBAR_SO4 ! molecular velocity of H2SO4 REAL( 8 ) :: AM0( N_MODE ) ! zeroth moments REAL( 8 ) :: AM1( N_MODE ) ! first moments REAL( 8 ) :: AM2( N_MODE ) ! second moments REAL( 8 ) :: M2DRY_INIT( N_MODE ) ! Dry Second Moment Initial Array REAL( 8 ) :: M3DRY_INIT( N_MODE ) ! Dry Third Moment Initial Array REAL( 8 ) :: M2WET_INIT( N_MODE ) ! Wet Second Moment Initial Array REAL( 8 ) :: M3WET_INIT( N_MODE ) ! Wet Third Moment Initial Array REAL( 8 ) :: M2WET_FINAL( N_MODE ) ! Wet Second Moment Final Array REAL( 8 ) :: M3WET_FINAL( N_MODE ) ! Wet Third Moment Final Array C *** Outputs from HCOND3: size-dependent term in the condensational-growth C expressions defined in Equations A13-A14 of [Binkowski & Shankar,1995] REAL( 8 ) :: FCONC_SO4( N_MODE,2 ) ! All sizes 2nd and 3rd moments REAL( 8 ) :: FCONC_OUT( 2 ) ! Output for HCOND3, 2nd and 3rd moments REAL( 8 ) :: FCONCM1_SO4 ! reciprocals of total SO4 cond rates C *** Modal partition factors [ dimensionless ] C defined in Equations A17-A18 of [Binkowski & Shankar,1995] REAL( 8 ) :: OMEGA_AT_SO4 ! Aitken mode 2nd and 3rd moments REAL( 8 ) :: OMEGA_AC_SO4 ! Accumulation mode 2nd and 3rd moments REAL( 8 ) :: OMEGA( 2 ) ! partitioning coefficient for equilibrium PM mass REAL( 8 ) :: PHI( NINORG,2 ) ! Mass Fraction of each component in each aerosol mode REAL( 8 ) :: TOTAER( NINORG )! Total aerosol component across multiple modes C *** Variables for new particle formation: REAL XH2SO4 ! steady state H2SO4 concentration REAL( 8 ) :: DMDT_SO4 ! particle mass production rate [ ug/m**3 s ] REAL( 8 ) :: DNDT ! particle number production rate [ # / m**3 s ] REAL( 8 ) :: DM2DT ! second moment production rate [ m**2 / m**3 s] REAL( 8 ) :: SCONDRATE ! SO4 condensation rate [ ug/m**3 s ] C *** Mode-specific sulfate production rate [ ug/m**3 s ] REAL( 8 ) :: CONDSO4( N_MODE ) ! sulfate condensation rate [ ug/m**3 s ] REAL( 8 ) :: RATE ! CONDSO4 or cond+nucl rate C *** Size-dependent portion of mass-transfer rate equation REAL( 8 ) :: GRFAC1( N_MODE ) ! 2nd moment [ m**2/m**3-s ] REAL( 8 ) :: GRFAC2( N_MODE ) ! 3rd moment [ m**3/m**3-s ] C *** ISORROPIA input variables REAL( 8 ) :: WI( NINORG - 1 ) ! species array [ mol/m**3 ] REAL( 8 ) :: RHI ! relative humidity [ fraction ] REAL( 8 ) :: TEMPI ! temperature [ deg K] REAL( 8 ) :: CNTRL( 2 ) ! ISOROPIA control parameters C *** ISORROPIA output variables REAL( 8 ) :: WT( NINORG - 1 ) ! species output array (unused) REAL( 8 ) :: GAS( 3 ) ! gas-phase " " REAL( 8 ) :: AERLIQ( 15 ) ! liq aerosol " " REAL( 8 ) :: AERSLD( 19 ) ! solid " " " (unused) REAL( 8 ) :: OTHER( 9 ) ! supplmentary output array (unused) CHARACTER( 15 ) :: SCASI ! subcase number output (unused) C *** Variables to account for mass conservation violations in ISRP3F ! LOGICAL TRUSTNH4 ! false if ISOROPIA's partitioning ! of NH4/NH3 is to be ignored LOGICAL TRUSTCL ! false if ISOROPIA's partitioning ! of Cl/HCl is to be ignored C *** Initial (double-precision) concentrations [ug/m3] REAL( 8 ) :: GNH3R8 ! gas-phase ammonia REAL( 8 ) :: GNO3R8 ! gas-phase nitric acid REAL( 8 ) :: GCLR8 ! gas-phase hydrochloric acid C *** Variables for volatile species mass transfer between gas and aerosol and C mass partitioning between the modes LOGICAL HYBRID ! mass transfer option flag (mass transfer if .TRUE.) REAL( 8 ) :: DELT ! time step DT [s] REAL( 8 ) :: HPLUS( N_MODE ) ! scratch var for H+ [umol/m**3] REAL( 8 ), SAVE :: H2SO4RATM1 ! Mol. wt. ratio of SO4/H2SO4 REAL( 8 ) :: DVOLINORG( NVOLINORG ) ! vol inorg spcs mass to be xferred [mol/m3] REAL( 8 ) :: DVOLMAX ! max value for DVOLINORG REAL( 8 ) :: CINORG( NINORG,N_MODE ) ! scratch array for inorg spcs [ug/m**3] REAL( 8 ) :: SEACAT ! coarse sea-salt cations [ug/m**3] REAL( 8 ) :: SOILwVOLS ! windblown dust before removal of ! SO4,NO3,CL,H2O [ug/m**3] REAL( 8 ) :: PMCwVOLS ! anthrop coarse material before removal ! of SO4,NO3,CL,H2O [ug/m**3] REAL( 8 ) :: INT_TIME ! internal mass transfer time (s) REAL( 8 ) :: TSTEP ! mass transfer time step [s] REAL( 8 ) :: DRYM20, Y ! scratch vars for 2nd moment [m**2/m**3] REAL( 8 ) :: M3OTHR ! vars for 3rd moment calculation [m**3/m**3] REAL( 8 ), SAVE :: DF( NVOLINORG ) ! scratch array for mole -> ug conversion REAL( 8 ), SAVE :: DFH2OR8 ! mole -> ug conversion for H2O REAL( 8 ) :: J( NVOLINORG ) ! condensation/evaporation flux [mol/m**3-s] REAL( 8 ) :: CFINAL( NVOLINORG,N_MODE ) ! conc after mass xfer step [ug/m**3] REAL( 8 ) :: H2O ! Scratch LWC variable for output REAL( 8 ) :: H2O_NEW ! Update of LWC after condensation REAL( 8 ) :: SO4 ! modal SO4 after condensation or cond + nucl REAL( 8 ) :: DDRYM3DT ! rate of 3rd moment transfer - dry inorg spcs REAL( 8 ) :: DDRYM2DT ! rate of 2nd moment transfer - " " " REAL( 8 ) :: DRYM3, WETM3 ! scratch vars for 3rd moment calc [m**3/m**3] REAL( 8 ) :: DRYM2, WETM2 ! scratch vars for 2nd moment calc [m**2/m**3] REAL( 8 ) :: LOSS ! rate of loss of second moment [1/s] REAL( 8 ) :: EQLBHIJ ! H+ concentration from isoropia for I plus J-modes [ug/m**3] REAL( 8 ) :: DELNUM( N_MODE ) ! Change in Number due to some process REAL( 8 ) :: DELSRF( N_MODE ) ! Change in Surface Area due to some process REAL( 8 ) :: DELSO4( N_MODE ) ! Change in Sulfate due to some process REAL( 8 ) :: DELNO3( N_MODE ) ! Change in Nitrate due to some process REAL( 8 ) :: DELNH4( N_MODE ) ! Change in Ammonium due to some process REAL( 8 ) :: DELCL( N_MODE ) ! Change in Chloride due to some process REAL( 8 ) :: DELH2O( N_MODE ) ! Change in Water due to some process REAL( 8 ) :: DELH3OP( N_MODE )! Change in Proton due to some process REAL( 8 ) :: CBUDGET0_NUM( N_MODE ) ! Initial Number before some process REAL( 8 ) :: CBUDGET0_SRF( N_MODE ) ! Initial Surface Area before some process REAL( 8 ) :: CBUDGET0_SO4( N_MODE ) ! Initial Sulfate before some process REAL( 8 ) :: CBUDGET0_NO3( N_MODE ) ! Initial Nitrate before some process REAL( 8 ) :: CBUDGET0_NH4( N_MODE ) ! Initial Ammonium before some process REAL( 8 ) :: CBUDGET0_CL( N_MODE ) ! Initial Chloride before some process REAL( 8 ) :: CBUDGET0_H2O( N_MODE ) ! Initial Particle Water before some process REAL( 8 ) :: CBUDGET0_H3OP( N_MODE )! Initial Proton before some process REAL( 8 ) :: TMP INTEGER I, N ! loop and array indices INTEGER IMODE ! mode loop index INTEGER ISTEP ! loop index, mass transfer time step loop INTEGER ISP ! loop index, species loop LOGICAL TrustIso ! For negative vap. press., TrustIso = F C *** Local Saved Variables LOGICAL, SAVE :: FIRSTIME = .TRUE. LOGICAL, SAVE :: FIRSTWRITE = .TRUE. REAL( 8 ), SAVE :: SO4FAC ! F6DPIM9 / RHOSO4 REAL( 8 ), SAVE :: SOILFAC ! F6DPIM9 / RHOSOIL REAL( 8 ), SAVE :: ANTHFAC ! F6DPIM9 / RHOANTH REAL( 8 ), SAVE :: H2SO4RAT ! Mol. wt ratios H2SO4/SO4 REAL( 8 ), SAVE :: NH3RAT ! Mol. wt ratios NH3/NH4 REAL( 8 ), SAVE :: HNO3RAT ! Mol. wt ratios HNO3/NO3 REAL( 8 ), SAVE :: HCLRAT ! Mol. wt ratios HCL/CL REAL( 8 ), SAVE :: MWH2SO4 ! molecular weight for H2SO4 REAL( 8 ), SAVE :: FAERH2SO4 ! 1e-6 / mw(h2so4) REAL( 8 ), SAVE :: CFAC_ANA REAL( 8 ), SAVE :: CFAC_ASO4 REAL( 8 ), SAVE :: CFAC_ANH4 REAL( 8 ), SAVE :: CFAC_ANO3 REAL( 8 ), SAVE :: CFAC_ACL REAL( 8 ), SAVE :: CFAC_ACA REAL( 8 ), SAVE :: CFAC_AK REAL( 8 ), SAVE :: CFAC_AMG REAL( 8 ), SAVE :: CFAC_ASEACAT REAL( 8 ), SAVE :: CFAC_GNH3 REAL( 8 ), SAVE :: CFAC_GHNO3 REAL( 8 ), SAVE :: CFAC_GHCL REAL( 8 ), SAVE :: M3FAC_ANA REAL( 8 ), SAVE :: M3FAC_ASO4 REAL( 8 ), SAVE :: M3FAC_ANH4 REAL( 8 ), SAVE :: M3FAC_ANO3 REAL( 8 ), SAVE :: M3FAC_ACL REAL( 8 ), SAVE :: M3FAC_H2O logical, save :: write1 = .true. #ifdef sens INTERFACE SUBROUTINE AERO_SENS( SCASI, W ) CHARACTER( 15 ), INTENT( IN ) :: SCASI ! (INPUT) subcase number output REAL(KIND=8), INTENT( IN ) :: W( : ) ! (INPUT) WI concentrations END SUBROUTINE AERO_SENS END INTERFACE #endif C----------------------------------------------------------------------- IF ( FIRSTIME ) THEN FIRSTIME = .FALSE. #ifdef noiso write( logdev,* ) 'aero_subs, volinorg: noiso' #endif CFAC_ANA = 1.0D-6 / REAL( AEROSPC_MW( ANA_IDX ), 8 ) CFAC_ASO4 = 1.0D-6 / REAL( AEROSPC_MW( ASO4_IDX ), 8 ) CFAC_ANH4 = 1.0D-6 / REAL( AEROSPC_MW( ANH4_IDX ), 8 ) CFAC_ANO3 = 1.0D-6 / REAL( AEROSPC_MW( ANO3_IDX ), 8 ) CFAC_ACL = 1.0D-6 / REAL( AEROSPC_MW( ACL_IDX ), 8 ) CFAC_ACA = 1.0D-6 / REAL( AEROSPC_MW( ACA_IDX ), 8 ) CFAC_AK = 1.0D-6 / REAL( AEROSPC_MW( AK_IDX ), 8 ) CFAC_AMG = 1.0D-6 / REAL( AEROSPC_MW( AMG_IDX ), 8 ) CFAC_ASEACAT = 1.0D-6 / REAL( AEROSPC_MW( ASEACAT_IDX ), 8 ) CFAC_GNH3 = 1.0D-6 / PRECURSOR_MW( NH3_IDX ) CFAC_GHNO3= 1.0D-6 / PRECURSOR_MW( HNO3_IDX ) CFAC_GHCL = 1.0D-6 / PRECURSOR_MW( HCL_IDX ) M3FAC_ANA = 1.0D-9 * F6DPI / REAL( AEROSPC( ANA_IDX )%DENSITY, 8 ) M3FAC_ASO4 = 1.0D-9 * F6DPI / REAL( AEROSPC( ASO4_IDX )%DENSITY, 8 ) M3FAC_ANH4 = 1.0D-9 * F6DPI / REAL( AEROSPC( ANH4_IDX )%DENSITY, 8 ) M3FAC_ANO3 = 1.0D-9 * F6DPI / REAL( AEROSPC( ANO3_IDX )%DENSITY, 8 ) M3FAC_ACL = 1.0D-9 * F6DPI / REAL( AEROSPC( ACL_IDX )%DENSITY, 8 ) M3FAC_H2O = 1.0D-9 * F6DPI / REAL( AEROSPC( AH2O_IDX )%DENSITY, 8 ) MWH2SO4 = PRECURSOR_MW( SULF_IDX ) ! molecular weight for H2SO4 FAERH2SO4 = 1.0E-6 / MWH2SO4 COFCBAR_SO4 = SQRT( 8.0 * RGASUNIV / ( PI * REAL( MWH2SO4,4 ) * 1.0E-3 ) ) H2SO4RATM1 = AEROSPC_MW( ASO4_IDX ) / MWH2SO4 SO4FAC = 1.0D-9 * F6DPI / REAL( AEROSPC( ASO4_IDX )%DENSITY, 8 ) SOILFAC = 1.0D-9 * F6DPI / REAL( AEROSPC( ASOIL_IDX )%DENSITY, 8 ) ANTHFAC = 1.0D-9 * F6DPI / REAL( AEROSPC( ACORS_IDX )%DENSITY, 8 ) DF( KNH4 ) = 1.0D0 / CFAC_ANH4 DF( KNO3 ) = 1.0D0 / CFAC_ANO3 DF( KCL ) = 1.0D0 / CFAC_ACL DFH2OR8 = 1.0D6 * MWWAT ! aerospc_mw(AH2O_IDX) (18.0 != 18.0153) ! Mol. wt ratios H2SO4/SO4, NH3/NH4, HNO3/NO3, HCL/CL H2SO4RAT= PRECURSOR_MW( SULF_IDX ) / REAL( AEROSPC_MW( ASO4_IDX ), 8 ) NH3RAT = PRECURSOR_MW( NH3_IDX ) / REAL( AEROSPC_MW( ANH4_IDX ), 8 ) HNO3RAT = PRECURSOR_MW( HNO3_IDX ) / REAL( AEROSPC_MW( ANO3_IDX ), 8 ) HCLRAT = PRECURSOR_MW( HCL_IDX ) / REAL( AEROSPC_MW( ACL_IDX ), 8 ) END IF C *** Determine if Hybrid TMP = 0.0 #ifdef noiso hybrid = .false. #else DO I = 1, N_AEROSPC IF( AEROSPC( I )%tracer )CYCLE IF ( AEROSPC( I )%CHARGE .NE. 0 ) TMP = TMP + AEROSPC_CONC( I,N_MODE ) END DO HYBRID = ( TMP .GE. CUTOFF ) .AND. ( AIRRH .GE. 0.18 ) #endif DELT = REAL( DT, 8 ) TEMPI = AIRTEMP ! assume const within synch timestep RHI = MIN( 0.95, AIRRH ) ! " " " " " C *** Calculate molecular velocities (temperature dependent) and C H+ concentration CBAR_SO4 = COFCBAR_SO4 * SQRT( AIRTEMP ) HPLUS = 0.0 DO I = 1, N_MODE DO N = 1, N_AEROSPC IF( AEROSPC( N )%tracer )CYCLE HPLUS( I ) = HPLUS( I ) & - AEROSPC( N )%CHARGE * AEROSPC_CONC( N,I ) / AEROSPC_MW( N ) END DO END DO C *** Condensational Growth (Size-dependent terms) C Calculate intermediate variables needed to determine the 2nd and C 3rd moment condensational-growth rates. 3rd moment terms are C needed for the calculation of new particle production. See C Section 3.3 of Jiang & Roth (2003) for a detailed discussion. C C *** Set moments using Equation 4 of Binkowski & Shankar C (1995) or Equation 3 of Binkowski and Roselle (2003). C N.B: these are for a "wet" size distribution DO I = 1, N_MODE AM0( I ) = MOMENT0_CONC( I ) AM1( I ) = MOMENT0_CONC( I ) * AEROMODE_DIAM( I ) & * EXP( 0.5 * AEROMODE_LNSG( I ) * AEROMODE_LNSG( I ) ) AM2( I ) = MOMENT2_CONC( I ) END DO C *** Calculate the size-dependent terms in the condensational- C growth factor expressions for sulfate using C Equations A13-A14 of Binkowski & Shankar (1995). DO I = 1, N_MODE CALL HCOND3( AM0( I ), AM1( I ), AM2( I ), & DV_SO4, ALPHSULF, CBAR_SO4, FCONC_OUT ) FCONC_SO4( I, : ) = FCONC_OUT( : ) END DO IF ( .NOT. HYBRID ) THEN FCONC_SO4( N_MODE,1 ) = 0.0D0 FCONC_SO4( N_MODE,2 ) = 0.0D0 END IF DO I = 1, N_MODE GRFAC1( I ) = FCONC_SO4( I,1 ) GRFAC2( I ) = FCONC_SO4( I,2 ) END DO C *** New Particle Production C Calculate the new particle production rate due to binary C nucleation of H2O and H2SO4. These calculations are performed C only when the gas-phase production rate of H2SO4 (i.e., SO4RATE) C is non-zero. The condensation rate of H2SO4 is calculated as the C gas-phase production rate minus the new particle production rate. C *** Initialize Variables DMDT_SO4 = 0.0D0 DNDT = 0.0D0 DM2DT = 0.0D0 SCONDRATE = 0.0D0 C *** Produce new particles only during time steps when the gas-phase C production rate of H2SO4 is non-zero IF ( SO4RATE .NE. 0.0D0 ) THEN C *** Adjust sulfuric acid vapor concentration to a value in C equilibrium with the production of new particles and the C condensation of sulfuric acid vapor on existing particles, based C on Equations A21 and A23 of Binkowski & Shankar (1995). TMP = 0.0 DO I = 1, N_MODE TMP = TMP + FCONC_SO4( I,2 ) END DO XH2SO4 = SO4RATE / REAL( TMP,4 ) XH2SO4 = MAX( XH2SO4, CONMIN ) !PRECURSOR_CONC( SULF_IDX ) = REAL( XH2SO4, 8 ) #ifdef sens DO NP = 1, NPMAX IF ( XH2SO4 .EQ. CONMIN ) THEN S_PRECURSOR_CONC( SULF_IDX, NP ) = 0.D0 ELSE S_PRECURSOR_CONC( SULF_IDX, NP ) = S_SO4RATE( NP ) / REAL(TMP,8) ENDIF END DO #endif C *** Calculate new particle production rate for 0th, 2nd, & 3rd moments CALL NEWPART3 ( AIRRH, AIRTEMP, XH2SO4, SO4RATE, & DNDT, DMDT_SO4, DM2DT ) C *** Calculate sulfate condensation rate as the gas-phase production C rate minus the new particle production rate, following Equation C 3.23 of Jiang & Roth (2003). SCONDRATE = MAX( SO4RATE - DMDT_SO4, 0.0D0 ) ! *** Propagate NPF Change to budget variables NPF_BUDGET( PRECURSOR_MAP( SULF_IDX ) ) = -DMDT_SO4 & * H2SO4RAT * DELT ! ug m-3 of Sulfuric Acid ! (converted to ppmv in update_precursor) NPF_BUDGET( AEROSPC_MAP( ASO4_IDX,1 ) ) = DMDT_SO4 * DELT ! ug m-3 NPF_BUDGET( AERONUM_MAP( 1 ) ) = DNDT * DELT ! N m-3 NPF_BUDGET( AEROSRF_MAP( 1 ) ) = DM2DT * DELT ! m2 m-3 END IF ! SO4RATE .NE. 0 C *** Sulfate Condensation (Size-resolved) C Calculate rate at which condensing sulfate should be added to each C mode. The "omega" factors are defined in Equations 7a and 7b of C Binkowski & Shankar (1995). The i-mode and j-mode factors are C calculated using Equation A17 of Binkowski & Shankar (1995). The C condensation rate for accumulation mode (fine-equilibrium scheme) or C coarse mode (hybrid and dynamic schemes) is computed by difference, C to avoid mass conservation violations arising from numerical error. TMP = 0.0 DO I = 1, N_MODE TMP = TMP + FCONC_SO4( I,2 ) END DO FCONCM1_SO4 = 1.0D0 / TMP OMEGA_AT_SO4 = FCONCM1_SO4 * FCONC_SO4( 1,2 ) OMEGA_AC_SO4 = FCONCM1_SO4 * FCONC_SO4( 2,2 ) C *** Growth values for mode merge condition CGR( 1 ) = SO4FAC * SCONDRATE * OMEGA_AT_SO4 CGR( 2 ) = SO4FAC * SCONDRATE * OMEGA_AC_SO4 ! *** Initialize Budget Counter Variables CBUDGET0_NUM( : ) = REAL( MOMENT0_CONC( : ), 8) CBUDGET0_NUM( 1 ) = CBUDGET0_NUM( 1 ) + DNDT * DELT CBUDGET0_SRF( : ) = MOMENT2_CONC( : ) * PI CBUDGET0_SRF( 1 ) = CBUDGET0_SRF( 1 ) + DM2DT * DELT * PI CBUDGET0_SO4( : ) = AEROSPC_CONC( ASO4_IDX, : ) CBUDGET0_SO4( 1 ) = CBUDGET0_SO4( 1 ) + DMDT_SO4 * DELT CBUDGET0_NO3( : ) = REAL( AEROSPC_CONC( ANO3_IDX, : ), 8) CBUDGET0_NH4( : ) = REAL( AEROSPC_CONC( ANH4_IDX, : ), 8) CBUDGET0_CL ( : ) = REAL( AEROSPC_CONC( ACL_IDX , : ), 8) CBUDGET0_H2O( : ) = REAL( AEROSPC_CONC( AH2O_IDX, : ), 8) CBUDGET0_H3OP( : )= REAL( AEROSPC_CONC( AH3OP_IDX, : ), 8) ! *** Diagnose Condensaiton Sink to Each Mode CONDSO4( 1 ) = OMEGA_AT_SO4 * SCONDRATE IF ( HYBRID ) THEN CONDSO4( 2 ) = OMEGA_AC_SO4 * SCONDRATE CONDSO4( 3 ) = SCONDRATE - ( CONDSO4( 1 ) + CONDSO4( 2 ) ) ELSE ! fine equilibrium CONDSO4( 2 ) = SCONDRATE - CONDSO4( 1 ) CONDSO4( 3 ) = 0.0D0 ! no coarse mode chemistry END IF C *** For Hybrid approach, calculate dynamic mass trasfer for C semi-volatile components of coarse mode (NO3, CL, NH4) IF ( HYBRID ) THEN CNTRL( 1 ) = 1.0D0 ! reverse problem CNTRL( 2 ) = 1.0D0 ! aerosol in metastable state INT_TIME = 0.0D0 TSTEP = 90.0D0 ISTEP = 1 IMODE = 3 TrustIso = .TRUE. DO WHILE ( INT_TIME .LT. DELT ) IF ( INT_TIME + TSTEP .GT. DELT ) TSTEP = DELT - INT_TIME INT_TIME = INT_TIME + TSTEP ISTEP = ISTEP + 1 C *** Calculate first moments using Equation 4 of Binkowski & Shankar C (1995) or Equation 3 of Binkowski and Roselle (2003). C N.B: these are for a "wet" size distribution AM0( IMODE ) = MOMENT0_CONC( IMODE ) AM1( IMODE ) = MOMENT0_CONC( IMODE ) * AEROMODE_DIAM( IMODE ) & * EXP( 0.5 * AEROMODE_LNSG( IMODE ) * AEROMODE_LNSG( IMODE ) ) AM2( IMODE ) = MOMENT2_CONC( IMODE ) C *** Calculate the size-dependent terms in the condensational- C growth factor expressions for sulfate using C Equations A13-A14 of Binkowski & Shankar (1995). CALL HCOND3( AM0( IMODE ), AM1( IMODE ), AM2( IMODE ), DV_SO4, ALPHSULF, & CBAR_SO4, FCONC_OUT ) ! adapted from Eq A14 FCONC_SO4( IMODE, : ) = FCONC_OUT( : ) GRFAC1( IMODE ) = FCONC_SO4( IMODE,1 ) GRFAC2( IMODE ) = FCONC_SO4( IMODE,2 ) C *** Set conc array to aerosol concentrations prior to mass transfer C (The _RENORM and cation_FAC constants are set in the AERO_DATA module) SEACAT = REAL( AEROSPC_CONC( ASEACAT_IDX,IMODE ), 8 ) SOILwVOLS = REAL( AEROSPC_CONC( ASOIL_IDX,IMODE ), 8 ) / ASOIL_RENORM PMCwVOLS = REAL( AEROSPC_CONC( ACORS_IDX,IMODE ), 8 ) / ACORSEM_RENORM CINORG( KNH4,IMODE ) = REAL( AEROSPC_CONC( ANH4_IDX,IMODE ), 8 ) ! KNH4 = 1, ANH4_IDX = 4 CINORG( KNO3,IMODE ) = REAL( AEROSPC_CONC( ANO3_IDX,IMODE ), 8 ) ! KNO3 = 2, ANO3_IDX = 2 CINORG( KCL, IMODE ) = REAL( AEROSPC_CONC( ACL_IDX,IMODE ), 8 ) ! KCL = 3, ACL_IDX = 3 CINORG( KSO4,IMODE ) = REAL( AEROSPC_CONC( ASO4_IDX,IMODE ), 8 ) ! KSO4 = 4, ASO4_IDX = 1 CINORG( KNA, IMODE ) = ASCAT_NA_FAC * SEACAT ! KNA = 5 & + ASOIL_NA_FAC * SOILwVOLS & + ACORS_NA_FAC * PMCwVOLS CINORG( KMG, IMODE ) = ASCAT_MG_FAC * SEACAT ! KMG = 6 & + ASOIL_MG_FAC * SOILwVOLS & + ACORS_MG_FAC * PMCwVOLS CINORG( KK, IMODE ) = ASCAT_K_FAC * SEACAT ! KK = 7 & + ASOIL_K_FAC * SOILwVOLS & + ACORS_K_FAC * PMCwVOLS CINORG( KCA, IMODE ) = ASCAT_CA_FAC * SEACAT ! KCA = 8 & + ASOIL_CA_FAC * SOILwVOLS & + ACORS_CA_FAC * PMCwVOLS CINORG( KHP, IMODE ) = REAL( HPLUS( IMODE ), 8 ) ! KHP = 9 M3OTHR = SOILFAC * AEROSPC_CONC( ASOIL_IDX,IMODE ) & + ANTHFAC * AEROSPC_CONC( ACORS_IDX,IMODE ) WETM3 = MOMENT3_CONC( IMODE ) WETM2 = MOMENT2_CONC( IMODE ) DRYM3 = WETM3 - REAL( H2OFAC * AEROSPC_CONC( AH2O_IDX, IMODE ), 8 ) ! Assume no SOA in coarse mode DRYM20 = WETM2 * ( DRYM3 / WETM3 ) ** D_TWOTHIRDS C *** Initial vapor-phase concentrations [ug/m3] GNO3R8 = PRECURSOR_CONC( HNO3_IDX ) GNH3R8 = PRECURSOR_CONC( NH3_IDX ) GCLR8 = PRECURSOR_CONC( HCL_IDX ) C *** Compute sulfate production rate [ug/m3 s] for coarse mode RATE = CONDSO4( IMODE ) SO4 = CINORG( KSO4,IMODE ) + RATE * TSTEP * H2SO4RATM1 IF ( TrustIso ) THEN C *** Double Precision vars for ISORROPIA [mole/m3] C Compute equilibrium vapor pressures [mol/m3] of NH3, HNO3, and HCL C at the gas/particle interface of coarse mode aerosol. C GAS(1) = NH3, GAS(2) = HNO3, GAS(3) = HCl WI( 1 ) = CINORG( KNA, IMODE ) * CFAC_ANA WI( 2 ) = SO4 * CFAC_ASO4 WI( 3 ) = CINORG( KNH4,IMODE ) * CFAC_ANH4 WI( 4 ) = CINORG( KNO3,IMODE ) * CFAC_ANO3 WI( 5 ) = CINORG( KCL, IMODE ) * CFAC_ACL WI( 6 ) = CINORG( KCA, IMODE ) * CFAC_ACA WI( 7 ) = CINORG( KK, IMODE ) * CFAC_AK WI( 8 ) = CINORG( KMG, IMODE ) * CFAC_AMG C Also obtain the aqueous H+ concentration, AERLIQ(1) [mol/m3] #ifdef verbose_aero if ( write1 ) then write( logdev,'(a, 8e13.3)' ) "VOLINORG,WI's C:", & wi( 1 ), wi( 2 ), wi( 3 ), wi( 4 ), & wi( 5 ), wi( 6 ), wi( 7 ), wi( 8 ) write( logdev,* ) "VOLINORG,RH,T:", rhi, tempi end if #endif CALL ISOROPIA( WI, RHI, TEMPI, CNTRL, WT, GAS, AERLIQ, & AERSLD, SCASI, OTHER ) IF ( GAS( 1 ) .LT. 0.0D0 .OR. GAS( 2 ) .LT. 0.0D0 .OR. & GAS( 3 ) .LT. 0.0D0 ) THEN IF ( FIRSTWRITE ) THEN FIRSTWRITE = .FALSE. WRITE( LOGDEV,2023 ) END IF WRITE( LOGDEV,2029 ) COL, ROW, LAYER, GAS( 1 ), GAS( 2 ), GAS( 3 ) TrustIso = .FALSE. END IF END IF ! TrustIso C *** Change in volatile inorganic PM concentration to achieve C equilibrium, calculated as initial-gas-phase concentration minus C equilibrium gas-phase concentration. DVOLINORG is positive for C condensation and negative for evaporation. #ifdef verbose_aero if ( write1 ) then write( logdev,'(a, 3e13.3)' ) "GASes:", gas( 1 ), gas( 2 ), gas( 3 ) dvolinorg( knh4 ) = gnh3r8 * CFAC_GNH3 - gas( 1 ) ! [mol/m**3] dvolinorg( kno3 ) = gno3r8 * CFAC_GHNO3 - gas( 2 ) ! [mol/m**3] dvolinorg( kcl ) = gclr8 * CFAC_GHCL - gas( 3 ) ! [mol/m**3] write( logdev,'(a, 3e13.3)' ) "DVOLINORG_coarse:", & dvolinorg( knh4 ) / ( gnh3r8 * CFAC_GNH3 ), & dvolinorg( kno3 ) / ( gno3r8 * CFAC_GHNO3), & dvolinorg( kcl ) / ( gclr8 * CFAC_GHCL ) end if #endif C *** Calculate condensation/evaporation flux for this time step and update C volatile species concentrations. Final aerosol conc set to be no less C than the minimum aerosol conc. IF ( TrustIso ) THEN CALL COMPUTE_FLUX( NVOLINORG, GNH3R8, GNO3R8, GCLR8, KNH4, & KNO3, KCL, GAS( 1:3 ), GRFAC2( IMODE ), & AERLIQ( 1 ), RATE, J ) ELSE J( : ) = 0.0D0 END IF IF ( J( KNH4 ) * TSTEP * DF( KNH4 ) * NH3RAT .GT. GNH3R8 ) THEN WRITE( LOGDEV,* ) 'Condensed amt. exceeds NH3 conc: aero_subs.f' J( KNH4 ) = GNH3R8 / ( TSTEP * DF( KNH4 ) * NH3RAT ) END IF IF ( J( KNO3 ) * TSTEP * DF( KNO3 ) * HNO3RAT .GT. GNO3R8 ) THEN WRITE( LOGDEV,* ) 'Condensed amt. exceeds HNO3 conc: aero_subs.f' J( KNO3 ) = GNO3R8 / ( TSTEP * DF( KNO3 ) * HNO3RAT ) END IF IF ( J( KCL ) * TSTEP * DF(KCL) * HCLRAT .GT. GCLR8 ) THEN WRITE( LOGDEV,* ) 'Condensed amt. exceeds HCl conc: aero_subs.f' J( KCL ) = GCLR8 / ( TSTEP * DF( KCL ) * HCLRAT ) END IF C *** Integrate mass transfer equation, convert flux from molar to mass DO ISP = 1, NVOLINORG CFINAL( ISP,IMODE ) = MAX( 0.0D0, & CINORG( ISP,IMODE ) & + J( ISP ) * TSTEP * DF( ISP ) ) END DO C *** Calculate updated H+ concentration HPLUS( IMODE ) = 0.0 & - AEROSPC( ASO4_IDX )%CHARGE * SO4 / AEROSPC_MW( ASO4_IDX ) & - AEROSPC( ANO3_IDX )%CHARGE * CFINAL( KNO3,IMODE ) / AEROSPC_MW( ANO3_IDX ) & - AEROSPC( ACL_IDX )%CHARGE * CFINAL( KCL, IMODE ) / AEROSPC_MW( ACL_IDX ) & - AEROSPC( ANH4_IDX )%CHARGE * CFINAL( KNH4,IMODE ) / AEROSPC_MW( ANH4_IDX ) ! & - AEROSPC( ANA_IDX )%CHARGE * CINORG( KNA, IMODE ) / AEROSPC_MW( ANA_IDX ) & - AEROSPC( ASEACAT_IDX )%CHARGE * CINORG( KNA, IMODE ) / AEROSPC_MW( ASEACAT_IDX ) & - AEROSPC( AMG_IDX )%CHARGE * CINORG( KMG, IMODE ) / AEROSPC_MW( AMG_IDX ) & - AEROSPC( AK_IDX )%CHARGE * CINORG( KK, IMODE ) / AEROSPC_MW( AK_IDX ) & - AEROSPC( ACA_IDX )%CHARGE * CINORG( KCA, IMODE ) / AEROSPC_MW( ACA_IDX ) C *** Equilibrate aerosol LWC with CFINAL by calling CALC_H2O WI( 1 ) = CINORG( KNA, IMODE ) * CFAC_ASEACAT WI( 2 ) = SO4 * CFAC_ASO4 WI( 3 ) = CFINAL( KNH4,IMODE ) * CFAC_ANH4 WI( 4 ) = CFINAL( KNO3,IMODE ) * CFAC_ANO3 WI( 5 ) = CFINAL( KCL, IMODE ) * CFAC_ACL WI( 6 ) = CINORG( KCA, IMODE ) * CFAC_ACA WI( 7 ) = CINORG( KK, IMODE ) * CFAC_AK WI( 8 ) = CINORG( KMG, IMODE ) * CFAC_AMG CALL CALC_H2O( WI, RHI, TEMPI, H2O_NEW ) H2O = H2O_NEW * DFH2OR8 C *** Update all Local Aerosol Mass and Vapor Concentrations !Aerosol AEROSPC_CONC( ANH4_IDX,IMODE ) = REAL( CFINAL( KNH4,IMODE ),4 ) AEROSPC_CONC( ANO3_IDX,IMODE ) = REAL( CFINAL( KNO3,IMODE ),4 ) AEROSPC_CONC( ACL_IDX,IMODE ) = REAL( CFINAL( KCL, IMODE ),4 ) AEROSPC_CONC( ASO4_IDX,IMODE ) = REAL( SO4,4 ) AEROSPC_CONC( AH2O_IDX,IMODE ) = REAL( H2O,4 ) !Gas PRECURSOR_CONC( NH3_IDX ) = GNH3R8 + ( CINORG( KNH4,IMODE ) & -CFINAL( KNH4,IMODE ) ) * NH3RAT PRECURSOR_CONC( HNO3_IDX )= GNO3R8 + ( CINORG( KNO3,IMODE ) & -CFINAL( KNO3,IMODE) ) * HNO3RAT PRECURSOR_CONC( HCL_IDX ) = GCLR8 + ( CINORG( KCL,IMODE ) & -CFINAL( KCL,IMODE) ) * HCLRAT C *** Compute net change in 3rd moment due to dry inorganic mass transfer DDRYM3DT = ( ( CFINAL( KNH4,IMODE ) - CINORG( KNH4,IMODE ) ) * M3FAC_ANH4 & + ( CFINAL( KNO3,IMODE ) - CINORG( KNO3,IMODE ) ) * M3FAC_ANO3 & + ( CFINAL( KCL, IMODE ) - CINORG( KCL,IMODE ) ) * M3FAC_ACL & + ( SO4 - CINORG( KSO4,IMODE ) ) * M3FAC_ASO4 ) / TSTEP C *** Compute net change in 2nd moment due to dry inorganic mass transfer C (including nucleation) using equation A7 of Binkowski & Shankar (1995) DDRYM2DT = D_TWOTHIRDS * GRFAC1( IMODE ) / GRFAC2( IMODE ) * DDRYM3DT C *** Update dry 2nd moment for condensation/evaporation based on whether C net change in dry 2nd moment is production or loss IF ( DDRYM2DT .LT. 0.0D0 ) THEN LOSS = DDRYM2DT / DRYM20 Y = DRYM20 * EXP( LOSS * TSTEP ) ELSE Y = DRYM20 + DDRYM2DT * TSTEP END IF C *** Add water (no SOA) 2nd moment while preserving standard deviation !Calculate 3rd Moment DRYM3 = ( M3FAC_ASO4 ) * SO4 & + M3FAC_ANH4 * CFINAL( KNH4,IMODE ) & + M3FAC_ANO3 * CFINAL( KNO3,IMODE ) & + M3FAC_ACL * CFINAL( KCL,IMODE ) & + M3FAC_ANA * SEACAT & + M3OTHR WETM3 = DRYM3 + H2O * M3FAC_H2O !Calculate 2nd moment DRYM2 = MAX( REAL( AEROMODE_MINM2( IMODE ), 8 ), Y ) WETM2 = DRYM2 * ( WETM3 / DRYM3 ) ** D_TWOTHIRDS MOMENT2_CONC( IMODE ) = REAL( WETM2,4 ) C *** Update the third moments, geometric mean diameters, geometric C standard deviations, modal mass totals, and modal particle C densities. It is a waste of time updating the aitken and C accumulation modes but the coarse mode does need to be updated C each sub-time step. This should be for the wet distribution CALL GETPAR( .TRUE. ) END DO ! end mass transfer time step loop END IF ! for 'Hybrid' method write1 = .false. C *** End of Coarse Mode dynamic mass transfer calculations C *** Fine Aerosol Modes: Call ISORROPIA in forward mode to calculate gas-particle equilibrium !Get Precursors Vapor concentrations [ug m-3] GNH3R8 = PRECURSOR_CONC( NH3_IDX ) GNO3R8 = PRECURSOR_CONC( HNO3_IDX ) GCLR8 = PRECURSOR_CONC( HCL_IDX ) C *** Diagnose all total gas+particle concentrations to passed to C ISORROPIA. Convert everything to [mol m-3]. WI( 1 ) = SUM( AEROSPC_CONC( ANA_IDX,1:2 )) * CFAC_ANA !Compute sulfate from total sulfate production rate [ug/m3-s] for fine !modes; add in H2SO4 nucleated in model timestep WI( 2 ) = ( SUM( AEROSPC_CONC( ASO4_IDX,1:2 ) ) & +( DMDT_SO4 + SUM( CONDSO4( 1:2 ) ) ) * DELT * H2SO4RATM1 ) * CFAC_ASO4 WI( 3 ) = PRECURSOR_CONC( NH3_IDX ) * CFAC_GNH3 & +SUM( AEROSPC_CONC( ANH4_IDX,1:2 ) ) * CFAC_ANH4 WI( 4 ) = PRECURSOR_CONC( HNO3_IDX ) * CFAC_GHNO3 & +SUM( AEROSPC_CONC( ANO3_IDX,1:2 ) ) * CFAC_ANO3 WI( 5 ) = PRECURSOR_CONC( HCL_IDX ) * CFAC_GHCL & +SUM( AEROSPC_CONC( ACL_IDX,1:2 ) ) * CFAC_ACL WI( 6 ) = SUM( AEROSPC_CONC( ACA_IDX,1:2 ) ) * CFAC_ACA WI( 7 ) = SUM( AEROSPC_CONC( AK_IDX,1:2 ) ) * CFAC_AK WI( 8 ) = SUM( AEROSPC_CONC( AMG_IDX,1:2 ) ) * CFAC_AMG CNTRL( 1 ) = 0.0D0 ! Forward Problem CNTRL( 2 ) = 1.0D0 ! Aerosol in Metastable State C *** Set flags to account for mass conservation violations in ISRP3F TRUSTCL = .TRUE. IF ( (WI( 1 ) + WI( 5 )) .LT. 1.0D-20 .or. WI( 5 ) .LT. 1.0D-10 ) THEN TRUSTCL = .FALSE. END IF #ifndef noiso CALL ISOROPIA( WI, RHI, TEMPI, CNTRL, WT, GAS, AERLIQ, & AERSLD, SCASI, OTHER ) #ifdef sens CALL AERO_SENS( SCASI, WI ) #endif C *** Save H+ concentration information in microgram/m3 for consistency EQLBHIJ = AERLIQ(1) * 1.0D6 * AEROSPC_MW( ah3op_idx) #else gas( 1 ) = real( precursor_conc( nh3_idx ), 8 ) * CFAC_GNH3 gas( 2 ) = real( precursor_conc( hno3_idx ), 8 ) * CFAC_GHNO3 gas( 3 ) = real( precursor_conc( hcl_idx ), 8 ) * CFAC_GHCL EQLBHIJ = HPLUS( 1 ) + HPLUS( 2 ) ! use charge balance if lacking isoropia info #endif C *** Change in volatile inorganic PM concentration to achieve C equilibrium, calculated as initial-gas-phase concentration minus C equilibrium gas-phase concentration. DVOLINORG is positive for C condensation and negative for evaporation. DVOLINORG( KNH4 ) = GNH3R8 * CFAC_GNH3 - GAS( 1 ) ! mol m-3 DVOLINORG( KNO3 ) = GNO3R8 * CFAC_GHNO3 - GAS( 2 ) ! mol m-3 DVOLINORG( KCL ) = GCLR8 * CFAC_GHCL - GAS( 3 ) ! mol m-3 IF ( DVOLINORG( KNH4 ) .LT. 0.0D0 ) THEN DVOLMAX = -SUM(REAL( AEROSPC_CONC( ANH4_IDX,1:2 ), 8 ) ) * CFAC_ANH4 + EVAPMIND DVOLINORG( KNH4 ) = MAX( DVOLINORG( KNH4 ), DVOLMAX ) END IF IF ( DVOLINORG( KNO3 ) .LT. 0.0D0 ) THEN DVOLMAX = -SUM(REAL( AEROSPC_CONC( ANO3_IDX,1:2 ), 8 ) ) * CFAC_ANO3 + EVAPMIND DVOLINORG( KNO3 ) = MAX( DVOLINORG( KNO3 ), DVOLMAX) END IF IF ( .not.TRUSTCL ) THEN DVOLINORG( KCL ) = 0.0D0 ELSEIF ( DVOLINORG( KCL ) .LT. 0.0D0 ) THEN DVOLMAX = -SUM(REAL( AEROSPC_CONC( ACL_IDX,1:2 ), 8 ) ) * CFAC_ACL + EVAPMIND DVOLINORG( KCL ) = MAX( DVOLINORG( KCL ), DVOLMAX ) END IF C *** Apply modal partitioning of equilibrium aerosol mass ! Calculate Distribution of Mass Transfer Among Modes OMEGA( 1 ) = GRFAC2( 1 ) / ( GRFAC2( 1 ) + GRFAC2( 2 ) ) OMEGA( 2 ) = 1.0D0 - OMEGA( 1 ) ! Save Initial Concentrations DO IMODE = 1, 2 CINORG( KSO4,IMODE ) = AEROSPC_CONC( ASO4_IDX, IMODE ) CINORG( KNH4,IMODE ) = AEROSPC_CONC( ANH4_IDX, IMODE ) CINORG( KNO3,IMODE ) = AEROSPC_CONC( ANO3_IDX, IMODE ) CINORG( KNA, IMODE ) = AEROSPC_CONC( ANA_IDX, IMODE ) CINORG( KCL, IMODE ) = AEROSPC_CONC( ACL_IDX, IMODE ) CINORG( KCA, IMODE ) = AEROSPC_CONC( ACA_IDX, IMODE ) CINORG( KK, IMODE ) = AEROSPC_CONC( AK_IDX, IMODE ) CINORG( KMG, IMODE ) = AEROSPC_CONC( AMG_IDX, IMODE ) END DO ! Calculate Initial Distribution of Mass Composition Among Modes DO ISP = 1, NVOLINORG TOTAER( ISP ) = MAX( SUM( CINORG( ISP,1:2 ) ), CONMIND ) DO IMODE = 1, 2 PHI( ISP, IMODE ) = CINORG( ISP,IMODE ) / TOTAER( ISP ) ENDDO ENDDO ! Initialize Final Concentrations CFINAL = 0.0 ! Calculate Final Concentrations DO ISP = 1, NVOLINORG IF ( DVOLINORG( ISP ) .LT. 0.0 ) THEN ! Evaporate Mass Using Condensed-Phase Fraction in each Mode CFINAL( ISP,1:2 ) = CFINAL( ISP,1:2 ) + CINORG( ISP,1:2 ) & + PHI( ISP,1:2 ) * DVOLINORG( ISP ) * DF( ISP ) ELSE ! Condense Mass Using Condensation Sink Factors CFINAL( ISP,1:2 ) = CFINAL( ISP,1:2 ) + CINORG( ISP,1:2 ) & + OMEGA( 1:2 ) * DVOLINORG( ISP ) * DF( ISP ) END IF END DO C *** Apply Final Concentrations to Moment Variables in Aerosol Scheme ! Store Initial Wet Moments M3WET_INIT( : ) = MOMENT3_CONC( : ) M2WET_INIT( : ) = MOMENT2_CONC( : ) ! Calculate and Store Initial Dry Moments and set wet_moments_flag to false/dry ! There has not yet been an update to AEROSPC_CONC so this will ! calculate the old 3rd moment. call calcmoments( .false. ) M3DRY_INIT( : ) = MOMENT3_CONC( : ) M2DRY_INIT( : ) = MOMENT2_CONC( : ) DO IMODE = 1, 2 ! modal partitioning of equilibrium aerosol mass IF ( IMODE .EQ. 1 ) THEN ! Update Number Concentration with NPF MOMENT0_CONC( IMODE ) = REAL( AM0(IMODE) + DNDT * DELT, 4 ) ! Add NPF to total condensation rate RATE = DMDT_SO4 + CONDSO4( IMODE ) SO4 = CINORG( KSO4,IMODE ) + RATE * DELT * H2SO4RATM1 ELSE ! Ignore NPF. The small particles are not in these modes SO4 = CINORG( KSO4,IMODE ) + CONDSO4( IMODE ) * DELT * H2SO4RATM1 END IF C *** Double precision vars for CALC_H2O WI( 1 ) = CINORG( KNA, IMODE ) * CFAC_ANA WI( 2 ) = SO4 * CFAC_ASO4 WI( 3 ) = CFINAL( KNH4,IMODE ) * CFAC_ANH4 WI( 4 ) = CFINAL( KNO3,IMODE ) * CFAC_ANO3 WI( 5 ) = CFINAL( KCL, IMODE ) * CFAC_ACL WI( 6 ) = CINORG( KCA, IMODE ) * CFAC_ACA WI( 7 ) = CINORG( KK, IMODE ) * CFAC_AK WI( 8 ) = CINORG( KMG, IMODE ) * CFAC_AMG CALL CALC_H2O( WI, RHI, TEMPI, H2O_NEW ) ! Update All Aerosol Concentrations AEROSPC_CONC( AH2O_IDX, IMODE ) = REAL( H2O_NEW * DFH2OR8, 4 ) AEROSPC_CONC( ANH4_IDX, IMODE ) = REAL( CFINAL( KNH4,IMODE ),4 ) AEROSPC_CONC( ANO3_IDX, IMODE ) = REAL( CFINAL( KNO3,IMODE ),4 ) AEROSPC_CONC( ACL_IDX, IMODE ) = REAL( CFINAL( KCL ,IMODE ),4 ) AEROSPC_CONC( ASO4_IDX, IMODE ) = REAL( SO4,4 ) C *** Compute net change in 3rd moment due to dry inorganic mass transfer C (includes nucleated sulfate mass). This is for projecting the C change to the second moment due to dry inorganic condensation DDRYM3DT = ( ( CFINAL( KNH4,IMODE ) - CINORG( KNH4,IMODE ) ) * M3FAC_ANH4 & + ( CFINAL( KNO3,IMODE ) - CINORG( KNO3,IMODE ) ) * M3FAC_ANO3 & + ( CFINAL( KCL, IMODE ) - CINORG( KCL,IMODE ) ) * M3FAC_ACL & + ( SO4 - CINORG( KSO4,IMODE ) ) * M3FAC_ASO4 ) & / DELT C *** Compute net change in 2nd moment due to dry inorganic mass transfer C (including nucleation) using equation A7 of Binkowski & Shankar (1995) DDRYM2DT = D_TWOTHIRDS * GRFAC1( IMODE ) / GRFAC2( IMODE ) * DDRYM3DT C *** Update dry 2nd moment for condensation/evaporation based on whether C net change in dry 2nd moment is production or loss IF ( DDRYM2DT .LT. 0.0D0 ) THEN LOSS = DDRYM2DT / M2DRY_INIT( IMODE ) Y = M2DRY_INIT( IMODE ) * EXP( LOSS * DELT ) ELSE Y = M2DRY_INIT( IMODE ) + DDRYM2DT * DELT END IF moment2_conc( IMODE ) = REAL( MAX( REAL( AEROMODE_MINM2( IMODE ), 8 ), Y ),4 ) END DO C *** Add water and SOA to 2nd moment while preserving standard deviation call calcmoments( .true. ) M3WET_FINAL = moment3_conc M2WET_FINAL = moment2_conc C *** Assign H+ Concentration to each Mode HPLUS( 1:2 ) = 0.0 DO I = 1, N_AEROSPC IF( AEROSPC( I )%tracer )CYCLE HPLUS( 1:2 ) = HPLUS( 1:2 ) & - AEROSPC( I )%CHARGE * AEROSPC_CONC( I,1:2 ) / AEROSPC_MW( I ) END DO H2O = AEROSPC_CONC( AH2O_IDX, 1 ) + AEROSPC_CONC( AH2O_IDX, 2 ) IF( H2O .GT. CONMIN )THEN H2O = 1.0 / H2O AEROSPC_CONC( AH3OP_IDX, 1:2 ) = REAL( EQLBHIJ * H2O, 4 ) * AEROSPC_CONC( AH2O_IDX, 1:2 ) ELSE AEROSPC_CONC( AH3OP_IDX, 1:2 ) = CONMIN END IF AEROSPC_CONC( AH3OP_IDX, 3 ) = REAL( HPLUS( 3 ),4 ) * AEROSPC_MW( ah3op_idx ) ! Coarse mode H+ concentration in ug/m3 C *** Update the third moments, geometric mean diameters, geometric C standard deviations, modal mass totals, and modal particle C densities. Note that moment2_conc needs to be up to date when this C routine is called. Moment3_conc does not need to be up to date C because it will be recalculated inside GETPAR as the sum of C aerospc_conc variables. This should be for the wet distribution. CALL GETPAR( .TRUE. ) ! *** Propagate Concentration Changes from Coarse-Mode Mass ! *** Transfer to Budget Vectors DELNUM( : ) = MOMENT0_CONC( : ) - CBUDGET0_NUM( : ) DELSRF( : ) = MOMENT2_CONC( : ) * PI - CBUDGET0_SRF( : ) DELSO4( : ) = AEROSPC_CONC( ASO4_IDX, : ) - CBUDGET0_SO4( : ) DELNH4( : ) = AEROSPC_CONC( ANH4_IDX, : ) - CBUDGET0_NH4( : ) DELNO3( : ) = AEROSPC_CONC( ANO3_IDX, : ) - CBUDGET0_NO3( : ) DELCL( : ) = AEROSPC_CONC( ACL_IDX , : ) - CBUDGET0_CL( : ) DELH2O( : ) = AEROSPC_CONC( AH2O_IDX, : ) - CBUDGET0_H2O( : ) DELH3OP( : ) = AEROSPC_CONC( AH3OP_IDX,: ) - CBUDGET0_H3OP( : ) COND_BUDGET( AERONUM_MAP( : ) ) = REAL( DELNUM( : ), 4 ) COND_BUDGET( AEROSRF_MAP( : ) ) = REAL( DELSRF( : ), 4 ) COND_BUDGET( AEROSPC_MAP( ASO4_IDX,: ) ) = REAL( DELSO4( : ), 4 ) COND_BUDGET( AEROSPC_MAP( ANH4_IDX,: ) ) = REAL( DELNH4( : ), 4 ) COND_BUDGET( AEROSPC_MAP( ANO3_IDX,: ) ) = REAL( DELNO3( : ), 4 ) COND_BUDGET( AEROSPC_MAP( ACL_IDX ,: ) ) = REAL( DELCL( : ) , 4 ) COND_BUDGET( AEROSPC_MAP( AH2O_IDX,: ) ) = REAL( DELH2O( : ), 4 ) COND_BUDGET( AEROSPC_MAP( AH3OP_IDX,:) ) = REAL( DELH3OP( : ),4 ) COND_BUDGET( PRECURSOR_MAP( SULF_IDX ) ) = SUM( REAL( -DELSO4(:) * H2SO4RAT, 4 )) COND_BUDGET( PRECURSOR_MAP( NH3_IDX ) ) = SUM( REAL( -DELNH4(:) * NH3RAT , 4 )) COND_BUDGET( PRECURSOR_MAP( HNO3_IDX ) ) = SUM( REAL( -DELNO3(:) * HNO3RAT , 4 )) COND_BUDGET( PRECURSOR_MAP( HCL_IDX ) ) = SUM( REAL( -DELCL(:) * HCLRAT , 4 )) C *** Update gas-phase concentrations from Aitken and Accumulation Mode Partitioning PRECURSOR_CONC( SULF_IDX ) = PRECURSOR_CONC( SULF_IDX ) & +SUM( -DELSO4(:) * H2SO4RAT ) PRECURSOR_CONC( NH3_IDX ) = GNH3R8 + sum( CINORG( KNH4,1:2 ) & -CFINAL( KNH4,1:2 ) ) * NH3RAT PRECURSOR_CONC( HNO3_IDX ) = GNO3R8 + sum( CINORG( KNO3,1:2 ) & -CFINAL( KNO3,1:2) ) * HNO3RAT PRECURSOR_CONC( HCL_IDX ) = GCLR8 + sum( CINORG( KCL,1:2 ) & -CFINAL( KCL,1:2) ) * HCLRAT 2023 FORMAT( 1X, 'VOLINORG returning negative gas concentrations from ISOROPIA:' & /10X, 'GAS(1) = NH3, GAS(2) = HNO3, GAS(3) = HCl' ) 2029 FORMAT( 1X, '[see VOLINORG msg]' & 1X, 'at (C,R,L): ', 3I4, 1X, 'GAS Conc:', 3( 1PE11.3 ) ) RETURN END SUBROUTINE VOLINORG C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE HCOND3( AM0, AM1, AM2, DV, ALPHA, CBAR, F ) C calculates the size-dependent term in the condensational-growth rate C expression for the 2nd and 3rd moments of a lognormal aerosol mode C using the harmonic mean method. This code follows Section A2 of C Binkowski & Shankar (1995). C Key Subroutines/Functions called: none C Revision History: C coded November 7, 2003 by Dr. Francis S. Binkowski C Revised November 20, 2003 by F. Binkowski to have am1 and C am2 as inputs C Reference: C 1. Binkowski, F.S. and U. Shankar, The regional particulate matter C model 1. Model description and preliminary results, J. Geophys. C Res., Vol 100, No D12, 26101-26209, 1995. IMPLICIT NONE C *** Includes: INCLUDE SUBST_CONST ! physical and mathematical constants C *** Arguments: REAL( 8 ), INTENT( IN ) :: AM0 ! zeroth moment of mode [ #/m**3 ] REAL( 8 ), INTENT( IN ) :: AM1 ! first moment of mode [ m/m**3 ] REAL( 8 ), INTENT( IN ) :: AM2 ! second moment of mode [ m**2/m**3 ] REAL, INTENT( IN ) :: Dv ! molecular diffusivity of the ! condensing vapor [ m**2/s ] REAL, INTENT( IN ) :: ALPHA ! accommodation coefficient REAL, INTENT( IN ) :: CBAR ! kinetic velocity of condensing vapor [ m/s ] REAL( 8 ), INTENT( OUT ) :: F( 2 ) ! size-dependent term in condensational-growth ! rate: F(1) = 2nd moment [ m**2/m**3 s ] ! F(2) = 3rd moment [ m**3/m**3 s ] C *** Local Variables: REAL( 8 ) :: GNC2 ! integrals used to calculate F(1) [m^2 / m^3 s] REAL( 8 ) :: GFM2 ! REAL( 8 ) :: GNC3 ! integrals used to calculate F(2) [m^3 / m^3 s] REAL( 8 ) :: GFM3 ! REAL( 8 ), PARAMETER :: TWOPI = 2.0D0 * PI REAL( 8 ), PARAMETER :: PI4 = 0.25D0 * PI C----------------------------------------------------------------------- C *** Implement equation A15 of Binkowski & Shankar (1995) for the C 2nd and 3rd moments of a lognormal mode of arbitrary size. GNC2 = TWOPI * DV * AM0 ! 2nd moment, near-continuum GNC3 = TWOPI * DV * AM1 ! 3rd moment, near-continuum GFM2 = PI4 * ALPHA * CBAR * AM1 ! 2nd moment, free-molecular GFM3 = PI4 * ALPHA * CBAR * AM2 ! 3rd moment, free-molecular C *** Implement equation A13 of Binkowski & Shankar (1995) for a C lognormal mode of arbitrary size. These are the size-dependent C terms in the condensational-growth rate expression, given in C equation 7a of B&S (1995). F( 1 ) = GNC2 * GFM2 / ( GNC2 + GFM2 ) ! 2nd moment F( 2 ) = GNC3 * GFM3 / ( GNC3 + GFM3 ) ! 3rd moment RETURN END SUBROUTINE HCOND3 C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE NEWPART3 ( RH, T, XH2SO4, SO4RATE, DNDT, DMDT_so4, DM2DT ) USE AERO_DATA USE AEROMET_DATA ! Includes CONST.EXT USE PRECURSOR_DATA, ONLY: PRECURSOR_MW, SULF_IDX USE UTILIO_DEFN IMPLICIT NONE C REVISION HISTORY: C Replacement of Kulmala et al., 1998 nucleation scheme with scheme C of Vehkamaki et al. (2002) by G. Sarwar and K. Fahey - 03/2014 C.. References: C Vehkamaki, H., Kulmala, M, Napari, I., Lehtinen, K.E.J., Timmreck, C., C Noppel, M., and A. Laaksonen. (2002) An improved parameterization for C sulfuric acid-water nucleation rates for tropospheric and stratospheric C conditions. JGR, v107(D22). C..Inputs: REAL, INTENT(IN ) :: RH ! fractional relative humidity REAL, INTENT(IN) :: T ! Ambient temperature [ K ] REAL, INTENT(IN) :: XH2SO4 ! sulfuric acid concentration [ ug/m**3 ] REAL, INTENT(IN) :: SO4RATE ! gas-phase H2SO4 production rate [ ug/m**3 s ] C.. Outputs: REAL( 8 ), INTENT( OUT ) :: DNDT ! particle number production rate [ m^-3/s ] REAL( 8 ), INTENT( OUT ) :: DMDT_so4 ! SO4 mass production rate [ ug/m**3 s ] REAL( 8 ), INTENT( OUT ) :: DM2DT ! second moment production rate [ m**2/m**3 s ] C.. Parameters CHARACTER( 16 ), PARAMETER :: PNAME = 'NEWPART' C.. Particle size parameters: REAL, PARAMETER :: d20 = 2.0E-07 ! diameter of a new particle [cm] REAL, PARAMETER :: d20sq = d20 * d20 ! new-particle diameter squared [cm**2] REAL, PARAMETER :: m2_20 = 1.0E-4 * d20sq ! new-particle diameter squared [m**2] REAL, PARAMETER :: v20 = PI * d20 * d20sq /6.0 ! volume of a new particle [cm**3] REAL( 8 ) :: sulfmass ! mass of a new particle [ug] REAL( 8 ) :: sulfmass1 ! inverse of sulfmass [ug**-1] C.. Set constants and local variables for Vehkamaki et al. (2002) scheme REAL, PARAMETER :: C1 = 0.740997 REAL, PARAMETER :: C2 = -0.00266379 REAL, PARAMETER :: C3 = -0.00349998 REAL, PARAMETER :: C4 = 0.0000504022 REAL, PARAMETER :: C5 = 0.00201048 REAL, PARAMETER :: C6 = -0.000183289 REAL, PARAMETER :: C7 = 0.00157407 REAL, PARAMETER :: C8 = -0.0000179059 REAL, PARAMETER :: C9 = 0.000184403 REAL, PARAMETER :: C10 = -1.50345E-6 REAL :: XSTAR ! mole fraction of sulfuric acid in the critical cluster REAL :: NA ! total gas phase concentration of H2SO4 [ #/cm**3 ] REAL :: TEMP ! ambient temperature REAL :: LNRH, LNNA ! LN(RH), LN(Na) REAL :: LNRH2, LNNA2 ! LN(RH)**2, LN(Na)**2 REAL :: LNRH3, LNNA3 ! LN(RH)**3, LN(Na)**3 REAL :: TEMP2, TEMP3 ! TEMP**2, TEMP**3 REAL( 8 ) :: XFAC ! exponential term for the nucleation rate REAL( 8 ) :: Jnuc ! nucleation rate [ #/cm**3 s ] REAL :: A, B, C, D, E, F, G, H, I, J REAL :: MW_H2SO4 ! MW of H2SO4 in [ g / mole ] REAL :: DENSITY_H2SO4 ! DENSITY of H2SO4 in [ kg / m**3 ] REAL, PARAMETER :: SCALEFAC = 1.0E-06 ! for [ 1 / m**3 ] -> [ 1 / cm**3 ] REAL, PARAMETER :: MUG2G = 1.0E-6 ! [ ug ] -> [ g ] C.. Initialize variables DNDT = 0.0D0 DMDT_so4 = 0.0D0 DM2DT = 0.0D0 C.. Calculate molecular weight of H2SO4 [ g / mole ] MW_H2SO4 = REAL( PRECURSOR_MW( SULF_IDX ),4 ) C.. Calculate density of sulfuric acid [ kg / m**3 ] DENSITY_H2SO4 = AEROSPC( ASO4_IDX )%DENSITY C.. Calculate mass of a new particle [ug] sulfmass = 1.0D+3 * DENSITY_H2SO4 * v20 C.. Calculate inverse of sulfmass [ug**-1] sulfmass1 = 1.0D0 / sulfmass C.. Calculate sulfuric acid concentration in molecules/cm3 NA = XH2SO4 * MUG2G * AVO * SCALEFAC / MW_H2SO4 C.. The parameterization is valid at sulfuric acid concentrations of 1.0E4 - 1.0E11 molecules cm-3 NA = MAX (NA, 1.0E4) NA = MIN (1.0E11, NA) C.. The parameterization is valid at temperatures of 190.00-305.15 K TEMP = MAX (T, 190.00) TEMP = MIN (305.15, TEMP) C.. The parameterization is valid at RH of 0.0001-1.0 C aero_driver.f limits RH to 0.005-0.99; thus no additional constraint is needed C.. Define convenient constants TEMP2 = TEMP * TEMP TEMP3 = TEMP * TEMP2 LNRH = LOG( RH ) LNNA = LOG( NA ) LNRH2 = LNRH * LNRH LNRH3 = LNRH * LNRH2 LNNA2 = LNNA * LNNA LNNA3 = LNNA * LNNA2 C.. Calculate mole fraction of sulfuric acid in the critical cluster XSTAR = C1 + C2 * TEMP + C3 * LNNA + C4 * TEMP * LNNA + & C5 * LNRH + C6 * TEMP * LNRH + & C7 * LNRH2 + C8 * TEMP * LNRH2 + C9 * LNRH3 + & C10 * TEMP * LNRH3 C.. Calculate coefficients needed for the nucleation rate [Eq-12 - Vehkamaki et al., 2002] A = 0.14309 + 2.21956 * TEMP - 0.0273911 * TEMP2 + & 0.0000722811 * TEMP3 + 5.91822 / XSTAR B = 0.117489 + 0.462532 * TEMP - 0.0118059 * TEMP2 + & 0.0000404196 * TEMP3 + 15.7963 / XSTAR C = -0.215554 - 0.0810269 * TEMP + 0.00143581 * TEMP2 - & 4.7758E-6 * TEMP3 - 2.91297 / XSTAR D = -3.58856 + 0.049508 * TEMP - 0.00021382 * TEMP2 + & 3.10801E-7 * TEMP3 - 0.0293333 / XSTAR E = 1.14598 - 0.600796 * TEMP + 0.00864245 * TEMP2 - & 0.0000228947 * TEMP3 - 8.44985 / XSTAR F = 2.15855 + 0.0808121 * TEMP - 0.000407382 * TEMP2 - & 4.01957E-7 * TEMP3 + 0.721326 / XSTAR G = 1.6241 - 0.0160106 * TEMP + 0.0000377124 * TEMP2 + & 3.21794E-8 * TEMP3 - 0.0113255 / XSTAR H = 9.71682 - 0.115048 * TEMP + 0.000157098 * TEMP2 + & 4.00914E-7 * TEMP3 + 0.71186 / XSTAR I = -1.05611 + 0.00903378 * TEMP - 0.0000198417 * TEMP2 + & 2.46048E-8 * TEMP3 - 0.0579087 / XSTAR J = -0.148712 + 0.00283508 * TEMP - 9.24619E-6 * TEMP2 + & 5.00427E-9 * TEMP3 - 0.0127081 / XSTAR C.. Calculate the exponential term for the nucleation rate [Eq-12 - Vehkamaki et al., 2002] XFAC = A + B * LNRH + C * LNRH2 + D * LNRH3 + & E * LNNA + F * LNRH * LNNA + G * LNRH2 * LNNA + & H * LNNA2 + I * LNRH * LNNA2 + J * LNNA3 C.. Calculate particle nucleation rate: unit [ 1 / cm**3 s] [Eq-12 - Vehkamaki et al., 2002] Jnuc = EXP(XFAC) C.. The parameterization is valid for nucleation rates of 1.0E-7-1.0E10 [ 1 / cm**3 s] Jnuc = MAX (Jnuc, 1.0D-7) Jnuc = MIN (1.0D10, Jnuc) C.. Convert the unit of particle nucleation rate into [ 1 / m**3 s] by multiplying it by 1.0E6 DNDT = Jnuc * 1.0E06 ! (1/(m**3 s)) C.. Calculate mass production rate [ ug / (m**3 s) ] analogous to C Equation 6a of Binkowski & Roselle (2003). Set the upper limit C of the mass production rate as the gas-phase production rate of C H2SO4, and adjust the number production rate accordingly. DMDT_so4 = sulfmass * DNDT IF ( DMDT_so4 .GT. SO4RATE ) THEN DMDT_so4 = SO4RATE DNDT = DMDT_SO4 * sulfmass1 END IF C.. Calculate the production rate of 2nd moment [ m**2 / (m**3 s) ] C This is similar to Equation 6c of Binkowski & Roselle (2003), C except the factor of PI is removed and the assumed particle C diameter is different. DM2DT = DNDT * m2_20 RETURN END SUBROUTINE NEWPART3 C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE Compute_Flux ( nvolinorg, GNH3R8, GNO3R8, GCLR8, KNH4, & KNO3, KCL, Ceq, CondRate, Hplus, rate, J ) C Description C Determines the evaporative/condensational flux of volatile C inorganic species to aerosol modes. In cases where the resulting H+ C flux is greater than a specified limit, the Pilinis et al. (2000) C AS&T approach is used to modify species vapor pressures such that C cond./evap. produces an H+ flux equal to the limit (which is C proportional to the current mode concentration of H+). C Routine called by VOLINORG. C Arguments C Inputs C nvolinorg: Number of Volatile inorganic species C GNH3R8 : NH3(g) concentration (ug/m3) C GNO3R8 : HNO3(g) concentration (ug/m3) C GCLR8 : HCl(g) concentration (ug/m3) C KNH4 : Index to NH4 species C KNO3 : Index to NO3 species C KCL : Index to NO3 species C Ceq : vapor concentration (mol/m3) C CondRate : effective condensation rate (I) of 3rd moment to mode C : [treat units as (1/s)] C Hplus : aerosol hydrogen ion concentration (mol/m3) for mode C rate : H2SO4(g) condensation rate (ug/m3/s) for mode C Output C Ceq : modified vapor concentration (mol/m3) C J : molar cond./evap. flux of volatile inorganics (mol/m3-s) C----------------------------------------------------------------------- USE AERO_DATA USE PRECURSOR_DATA USE AEROMET_DATA IMPLICIT NONE C Arguments: INTEGER nvolinorg REAL( 8 ) :: GNH3R8, GNO3R8, GCLR8 ! gas concentrations [ug/m3] INTEGER KNH4, KNO3, KCL ! Indices to species REAL( 8 ) :: Ceq( nvolinorg ) ! vapor concentrations [mol/m3] REAL( 8 ) :: CondRate ! effective condensation rate (I) for 3rd moment REAL( 8 ) :: Hplus ! hydrogen ion concentration for mode [mol/m3] REAL( 8 ) :: rate REAL( 8 ) :: J( nvolinorg ) ! molar cond./evap. flux [mol/m3-s] C Local Variables: REAL( 8 ), PARAMETER :: Afact = 1.0D-01 ! factor for H+ limiter REAL( 8 ), PARAMETER :: small = 1.0D-25 REAL( 8 ) :: Cinf( nvolinorg ) ! gas concentration in mol/m3 REAL( 8 ) :: Qk ! factor for modifying vapor press. based on H+ limit REAL( 8 ) :: Hflux ! flux of H+ to mode from cond/evap REAL( 8 ) :: Hlim ! maximum allowable H+ flux to mode REAL( 8 ) :: aa, bb, cc ! terms in quadratic equation REAL( 8 ) :: JH2SO4 ! molar flux of H2SO4(g) [mol/m3/s] REAL( 8 ) :: CH2SO4 ! effective H2SO4(g) concentration [mol/m3] INTEGER isp ! inorganic species index C----------------------------------------------------------------------- C Convert gas concentration from ug/m3 to mol/m3 Cinf( KNH4 ) = GNH3R8 * 1.0D-6 / PRECURSOR_MW( NH3_IDX ) Cinf( KNO3 ) = GNO3R8 * 1.0D-6 / PRECURSOR_MW( HNO3_IDX ) Cinf( KCL ) = GCLR8 * 1.0D-6 / PRECURSOR_MW( HCL_IDX ) C Calculate cond/evap fluxes (no H+ limiting) DO isp = 1, nvolinorg J( isp ) = CondRate * ( Cinf( isp ) - Ceq( isp ) ) END DO C Convert rate to mol/m3/s and get effective Cinf for H2SO4(g) JH2SO4 = rate * 1.0D-6 / PRECURSOR_MW( SULPRD_IDX ) CH2SO4 = JH2SO4 / CondRate C Limit H+ flux (Pilinis et al., 2000, AS&T). Note: J is flux C to entire mode, not one particle Hlim = Afact * Hplus Hflux = 2.0D0 * JH2SO4 + J( KNO3 ) + J( KCL ) - J( KNH4 ) C If Hflux is too large, limit the flux by modifying species C vapor pressures with Qk factor (Pilinis et al., 2000, AS&T). IF ( ABS( Hflux ) .GT. Hlim ) THEN Hlim = SIGN( Hlim, Hflux ) C Solve quadratic for Qk: aa*Qk^2 + bb*Qk + cc = 0 aa = Ceq( KCL ) + Ceq( KNO3 ) bb = Hlim / CondRate & + Cinf( KNH4) - Cinf( KNO3 ) - Cinf( KCL ) - 2.0D0 * CH2SO4 cc = -Ceq( KNH4 ) Qk = 0.0D0 ! initialize Qk IF ( aa .LT. small .AND. 0.0D0 .LT. bb ) THEN ! bb*Qk + cc = 0 Qk = -cc / bb ELSE IF (aa .LT. small .AND. bb .LE. 0.0D0 ) THEN Qk = 0.0D0 ELSE IF (-cc .LT. small .AND. bb .LT. 0.0D0 ) THEN ! aa*Qk^2 + bb*Qk = 0 Qk = -bb / aa ELSE IF (-cc .LT. small .AND. 0.0D0 .LE. bb ) THEN Qk = 0.0D0 ELSE Qk = ( -bb + SQRT ( bb**2 - 4.0D0 * aa * cc ) ) / ( 2.0D0 * aa ) IF ( bb ** 2 - 4.0D0 * aa * cc .LT. 0.0D0 ) THEN PRINT *, 'Compute_Flux, sqrt<0' Qk = 0.0D0 END IF END IF C Modify vapor pressures and get new fluxes IF ( Qk .GT. small ) THEN Ceq( KNH4 ) = Ceq( KNH4 ) / Qk Ceq( KNO3 ) = Ceq( KNO3 ) * Qk Ceq( KCl ) = Ceq( KCl ) * Qk DO isp = 1, nvolinorg J( isp ) = CondRate * ( Cinf( isp ) - Ceq( isp ) ) END DO END IF END IF ! |Hflux| > Hlim END SUBROUTINE Compute_Flux C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE CALC_H2O ( WI, RH, T, H2O_NEW ) C Description C Calculate the water content of aerosol at the new time step. Water C calculations use the ZSR mixing rule with salts determined by the C ISORROPIA approach. C Routine called by VOLINORG. C Arguments C Input C WI : Concentration of components [mol/m^3] at new step C RH : Relative humidity [0-1] C T : Temperature [K] C Output C H2O_NEW : Water [mol/m^3] content at new time step C----------------------------------------------------------------------- IMPLICIT NONE C Parameters: INTEGER, PARAMETER :: NCMP = 8, NPAIR = 23 REAL( 8 ), PARAMETER :: SMALL = 1.0D-20 REAL( 8 ), PARAMETER :: Mw = 0.018D0 ! molar mass H2O (kg/mol) C Arguments: REAL( 8 ), INTENT( IN ) :: WI( NCMP ) REAL( 8 ), INTENT( IN ) :: RH, T REAL( 8 ), INTENT( OUT ) :: H2O_NEW C Local Variables: CHARACTER( 3 ) :: SC ! subcase for composition REAL( 8 ) :: FSO4, FNH4, FNA, FNO3, FCL ! "free" ion amounts REAL( 8 ) :: FCA, FK, FMG REAL( 8 ) :: CASO4 ! amount of calcium sulfate, does not participate in ZSR calc REAL( 8 ) :: WATER ! kg of water for new time step REAL( 8 ) :: X, Y REAL( 8 ) :: CONC( NCMP ) ! concentration (mol/m^3) REAL( 8 ) :: CONCR( NPAIR ) ! concentration (mol/m^3) ion "pairs" REAL( 8 ) :: M0I( NPAIR ) ! single-solute molalities INTEGER :: J C----------------------------------------------------------------------- C Return if small concentration IF ( WI( 1 ) + WI( 2 ) + WI( 3 ) + WI( 4 ) & + WI( 5 ) + WI( 6 ) + WI( 7 ) + WI( 8 ) .LE. SMALL) THEN H2O_NEW = SMALL RETURN END IF C Set component array (mol/m^3) for determining salts CONC = WI ! array assignment C Get the sub-case to use in determining salts CALL GETSC ( CONC, RH, T, SC ) #ifdef verbose_aero ! write( logdev,* ) 'CALC_H2O -SC: ', sc #endif C Initialize ion "pairs" (i.e., salts) used in ZSR CONCR( : ) = 0.0D0 C Depending on case, determine moles of salts in solution (i.e., CONCR) C for ZSR calculation below IF ( SC .EQ. 'S2' ) THEN ! sulfate poor (NH4-SO4 system), old K2 CONCR( 4 )= MIN ( CONC( 2 ), 0.5D0 * CONC( 3 ) ) ! (NH4)2SO4 ELSE IF ( SC .EQ. 'B4' ) THEN ! sulfate rich (no acid), old L4, O4 X = 2.0D0 * CONC( 2 ) - CONC( 3 ) ! 2SO4 - NH4 Y = CONC( 3 ) - CONC( 2 ) ! NH4 - SO4 IF ( X .LE. Y ) THEN CONCR( 13 ) = X ! (NH4)3H(SO4)2 is MIN (X,Y) CONCR( 4 ) = Y - X ! (NH4)2SO4 ELSE CONCR( 13 ) = Y ! (NH4)3H(SO4)2 is MIN (X,Y) CONCR( 9 ) = X - Y ! NH4HSO4 END IF ELSE IF ( SC .EQ. 'C2' ) THEN ! sulfate rich (free acid), old M2, P2 CONCR( 9 ) = CONC( 3 ) ! NH4HSO4 CONCR( 7 ) = MAX( CONC( 2 ) - CONC( 3 ), 0.0D0 ) ! H2SO4 ELSE IF ( SC .EQ. 'N3' ) THEN ! sulfate poor (NH4-SO4-NO3 system) CONCR( 4 ) = MIN ( CONC( 2 ), 0.5D0 * CONC( 3 ) ) ! (NH4)2SO4 FNH4 = MAX ( CONC( 3 ) - 2.0D0 * CONCR( 4 ), 0.0D0 ) ! available NH4 CONCR( 5 ) = MAX ( MIN ( FNH4, CONC( 4 ) ), 0.0D0 ) ! NH4NO3=MIN(NH4,NO3) ELSE IF ( SC .EQ. 'Q5' ) THEN ! sulfate poor, sodium poor (NH4-SO4-NO3-Cl-Na) CONCR( 2 ) = 0.5D0 * CONC( 1 ) ! Na2SO4 FSO4 = MAX ( CONC( 2 ) - CONCR( 2 ), 0.0D0 ) ! available SO4 CONCR( 4 ) = MAX ( MIN ( FSO4, 0.5D0 * CONC( 3 ) ), SMALL ) ! NH42S4=MIN(NH4,S4) FNH4 = MAX ( CONC( 3 ) - 2.0D0 * CONCR( 4 ), 0.0D0 ) ! available NH4 CONCR( 5 ) = MIN ( FNH4, CONC( 4 ) ) ! NH4NO3=MIN(NH4,NO3) FNH4 = MAX ( FNH4 - CONCR( 5 ), 0.0D0 ) ! avaialable NH4 CONCR( 6 ) = MIN ( FNH4, CONC( 5 ) ) ! NH4Cl=MIN(NH4,Cl) ELSE IF ( SC .EQ. 'R6' ) THEN ! sulfate poor, sodium rich (NH4-SO4-NO3-Cl-Na) CONCR( 2 ) = CONC( 2 ) ! Na2SO4 FNA = MAX ( CONC( 1 ) - 2.0D0 * CONCR( 2 ), 0.0D0 ) CONCR( 3 ) = MIN ( FNA, CONC( 4 ) ) ! NaNO3 FNO3 = MAX ( CONC( 4 ) - CONCR( 3 ), 0.0D0 ) FNA = MAX ( FNA - CONCR( 3 ), 0.0D0 ) CONCR( 1 ) = MIN ( FNA, CONC( 5 ) ) ! NaCl FCL = MAX ( CONC( 5 ) - CONCR( 1 ), 0.0D0 ) FNA = MAX ( FNA - CONCR( 1 ), 0.0D0 ) CONCR( 5 ) = MIN ( FNO3, CONC( 3 ) ) ! NH4NO3 FNO3 = MAX ( FNO3 - CONCR( 5 ), 0.0D0 ) FNH4 = MAX ( CONC( 3 ) - CONCR( 5 ), 0.0D0 ) CONCR( 6 ) = MIN (FCL, FNH4 ) ! NH4Cl ELSE IF ( SC .EQ. 'I6' ) THEN ! sulfate rich (no acid) (NH4-SO4-NO3-Cl-Na) CONCR( 2 ) = 0.5D0 * CONC( 1 ) ! Na2SO4 FSO4 = MAX ( CONC( 2 ) - CONCR( 2 ), 0.0D0 ) CONCR( 13 ) = MIN ( CONC( 3 ) / 3.0D0, FSO4 / 2.0D0 ) ! (NH4)3H(SO4)2 FSO4 = MAX ( FSO4 - 2.0D0 * CONCR( 13 ), 0.0D0 ) FNH4 = MAX ( CONC( 3 ) - 3.0D0 * CONCR( 13 ), 0.0D0 ) IF ( FSO4 .LE. SMALL ) THEN ! reduce (NH4)3H(SO4)2, add (NH4)2SO4 CONCR( 13 ) = MAX ( CONCR( 13 ) - FNH4, 0.0D0 ) ! (NH4)3H(SO4)2 CONCR( 4 ) = 2.0D0 * FNH4 ! (NH4)2SO4 ELSE IF ( FNH4 .LE. SMALL ) THEN ! reduce (NH4)3H(SO4)2, add NH4HSO4 CONCR( 9 ) = 3.0D0 * MIN ( FSO4, CONCR( 13 ) ) ! NH4HSO4 CONCR( 13 ) = MAX ( CONCR( 13 ) - FSO4, 0.0D0 ) IF ( CONCR( 2 ) .GT. SMALL ) THEN ! reduce Na2SO4, add NaHSO4 FSO4 = MAX ( FSO4 - CONCR( 9 ) / 3.0D0, 0.0D0 ) CONCR( 12 ) = 2.0D0 * FSO4 ! NaHSO4 CONCR( 2 ) = MAX ( CONCR( 2 ) - FSO4, 0.0D0 ) ! Na2SO4 END IF END IF ELSE IF ( SC .EQ. 'J3' ) THEN ! sulfate rich (free acid) (NH4-SO4-NO3-Cl-Na) CONCR( 9 ) = CONC( 3 ) ! NH4HSO4 CONCR( 12 ) = CONC( 1 ) ! NAHSO4 CONCR( 7 ) = MAX ( CONC( 2 ) - CONC( 3 ) - CONC( 1 ), 0.0D0 ) ! H2SO4 ! Crustal cases ELSE IF ( SC .EQ. 'V7' ) THEN ! sulfate poor, sodium+crustal poor CASO4 = MIN ( CONC( 6 ), CONC( 2 ) ) ! CCASO4 FSO4 = MAX ( CONC( 2 ) - CASO4, 0.0D0 ) FCA = MAX ( CONC( 6 ) - CASO4, 0.0D0 ) CONCR( 17 ) = MIN ( 0.5D0 * CONC( 7 ), FSO4 ) ! CK2SO4 FK = MAX ( CONC( 7 ) - 2.D0 * CONCR( 17 ), 0.0D0 ) FSO4 = MAX ( FSO4 - CONCR( 17 ), 0.0D0 ) CONCR( 2 ) = MIN ( 0.5D0 * CONC( 1 ), FSO4 ) ! CNA2SO4 FNA = MAX ( CONC( 1 ) - 2.0D0 * CONCR( 2 ), 0.0D0 ) FSO4 = MAX ( FSO4 - CONCR( 2 ), 0.0D0 ) CONCR( 21 ) = MIN ( CONC( 8 ), FSO4 ) ! CMGSO4 FMG = MAX ( CONC( 8 ) - CONCR( 21 ), 0.0D0 ) FSO4 = MAX ( FSO4 - CONCR( 21 ), 0.0D0 ) CONCR( 4 ) = MAX ( MIN ( FSO4 , 0.5D0 * CONC( 3 ) ) , SMALL ) ! CNH42S4 FNH4 = MAX ( CONC( 3 ) - 2.0D0 * CONCR( 4 ), 0.0D0 ) CONCR( 5 ) = MIN ( FNH4, CONC( 4 ) ) ! CNH4NO3 FNH4 = MAX ( FNH4 - CONCR( 5 ), 0.0D0 ) CONCR( 6 ) = MIN ( FNH4, CONC( 5 ) ) ! CNH4CL ELSE IF ( SC .EQ. 'U8' ) THEN ! sulfate poor, crustal+sodium rich, crustal poor CASO4 = MIN ( CONC( 6 ), CONC( 2 ) ) ! CCASO4 FSO4 = MAX ( CONC( 2 ) - CASO4, 0.0D0 ) FCA = MAX ( CONC( 6 ) - CASO4, 0.0D0 ) CONCR( 17 ) = MIN ( 0.5D0 * CONC( 7 ), FSO4 ) ! CK2SO4 FK = MAX ( CONC( 7 ) - 2.0D0 * CONCR( 17 ), 0.0D0 ) FSO4 = MAX ( FSO4 - CONCR( 17 ), 0.0D0 ) CONCR( 21 ) = MIN ( CONC( 8 ), FSO4 ) ! CMGSO4 FMG = MAX ( CONC( 8 ) - CONCR( 21 ), 0.0D0 ) FSO4 = MAX ( FSO4 - CONCR( 21 ), 0.0D0 ) CONCR( 2 ) = MAX ( FSO4, 0.0D0 ) ! CNA2SO4 FNA = MAX ( CONC( 1 ) - 2.0D0 * CONCR( 2 ), 0.0D0 ) CONCR( 3 ) = MIN ( FNA, CONC( 4 ) ) ! NaNO3 FNO3 = MAX ( CONC( 4 ) - CONCR( 3 ), 0.0D0 ) FNA = MAX ( FNA - CONCR( 3 ), 0.0D0 ) CONCR( 1 ) = MIN ( FNA, CONC( 5 ) ) ! NaCl FCL = MAX ( CONC( 5 ) - CONCR( 1 ), 0.0D0 ) FNA = MAX ( FNA - CONCR( 1 ), 0.0D0 ) CONCR( 5 ) = MIN ( FNO3, CONC( 3 ) ) ! NH4NO3 FNO3 = MAX ( FNO3 - CONCR( 5 ), 0.0D0 ) FNH4 = MAX ( CONC( 3 ) - CONCR( 5 ), 0.0D0 ) CONCR( 6 ) = MIN ( FCL, FNH4 ) ! NH4Cl FCL = MAX ( FCL - CONCR( 6 ), 0.0D0 ) FNH4 = MAX ( FNH4 - CONCR( 6 ), 0.0D0 ) ELSE IF ( SC .EQ. 'W13' ) THEN ! sulfate poor, crustal+sodium rich CASO4 = MIN ( CONC( 2 ), CONC( 6 ) ) ! CASO4 FCA = MAX ( CONC( 6 ) - CASO4, 0.0D0 ) FSO4 = MAX ( CONC( 2 ) - CASO4, 0.0D0 ) CONCR( 17 ) = MIN ( FSO4, 0.5D0 * CONC( 7 ) ) ! K2SO4 FK = MAX ( CONC( 7 ) - 2.0D0 * CONCR( 17 ), 0.0D0 ) FSO4 = MAX ( FSO4 - CONCR( 17 ), 0.0D0 ) CONCR( 21 ) = FSO4 ! MGSO4 FMG = MAX ( CONC( 8 ) - CONCR( 21 ), 0.0D0 ) CONCR( 1 ) = MIN ( CONC( 1 ), CONC( 5 ) ) ! NACL FNA = MAX ( CONC( 1 ) - CONCR( 1 ), 0.0D0 ) FCL = MAX ( CONC( 5 ) - CONCR( 1 ), 0.0D0 ) CONCR( 16 ) = MIN ( FCA, 0.5D0 * FCL ) ! CACL2 FCA = MAX ( FCA - CONCR( 16 ), 0.0D0 ) FCL = MAX ( CONC( 5 ) - 2.0D0 * CONCR( 16 ), 0.0D0 ) CONCR( 15 ) = MIN ( FCA, 0.5D0 * CONC( 4 ) ) ! CA(NO3)2 FCA = MAX ( FCA - CONCR( 15 ), 0.0D0 ) FNO3 = MAX ( CONC( 4 ) - 2.0D0 * CONCR( 15 ), 0.0D0 ) CONCR( 23 ) = MIN ( FMG, 0.5D0 * FCL ) ! MGCL2 FMG = MAX ( FMG - CONCR( 23 ), 0.0D0 ) FCL = MAX ( FCL - 2.0D0 * CONCR( 23 ), 0.0D0 ) CONCR( 22 ) = MIN ( FMG, 0.5D0 * FNO3 ) ! MG(NO3)2 FMG = MAX ( FMG - CONCR( 22 ), 0.0D0 ) FNO3 = MAX ( FNO3 - 2.0D0 * CONCR( 22 ), 0.0D0 ) CONCR( 3 ) = MIN ( FNA, FNO3 ) ! NANO3 FNA = MAX ( FNA - CONCR( 3 ), 0.0D0 ) FNO3 = MAX ( FNO3 - CONCR( 3 ), 0.0D0 ) CONCR( 20 ) = MIN ( FK, FCL ) ! KCL FK = MAX ( FK - CONCR( 20 ), 0.0D0 ) FCL = MAX ( FCL - CONCR( 20 ), 0.0D0 ) CONCR( 19 ) = MIN ( FK, FNO3 ) ! KNO3 FK = MAX ( FK - CONCR( 19 ), 0.0D0 ) FNO3 = MAX ( FNO3 - CONCR( 19 ), 0.0D0 ) ELSE IF ( SC .EQ. 'L9' ) THEN ! sulfate rich, no free acid CASO4 = MIN ( CONC( 6 ), CONC( 2 ) ) ! CCASO4 FSO4 = MAX ( CONC( 2 ) - CASO4, 0.0D0 ) FCA = MAX ( CONC( 6 ) - CASO4, 0.0D0 ) CONCR( 17 ) = MIN ( 0.5D0 * CONC( 7 ), FSO4 ) ! CK2SO4 FK = MAX ( CONC( 7 ) - 2.0D0 * CONCR( 17 ), 0.0D0 ) FSO4 = MAX ( FSO4 - CONCR( 17 ), 0.0D0 ) CONCR( 2 ) = MIN ( 0.5D0 * CONC( 1 ), FSO4 ) ! CNA2SO4 FNA = MAX ( CONC( 1 ) - 2.0D0 * CONCR( 2 ), 0.0D0 ) FSO4 = MAX ( FSO4 - CONCR( 2 ), 0.0D0 ) CONCR( 21 ) = MIN ( CONC( 8 ), FSO4 ) ! CMGSO4 FMG = MAX ( CONC( 8 ) - CONCR( 21 ), 0.0D0 ) FSO4 = MAX ( FSO4 - CONCR( 21 ), 0.0D0 ) CONCR( 13 ) = MIN ( CONC( 3 ) / 3.0D0, FSO4 / 2.0D0 ) ! CLC FSO4 = MAX ( FSO4 - 2.0D0 * CONCR( 13 ), 0.0D0 ) FNH4 = MAX ( CONC( 3 )- 3.0D0 * CONCR( 13 ), 0.0D0 ) IF ( FSO4 .LE. SMALL ) THEN ! convert (NH4)3H(SO4)2 to (NH4)2SO4 CONCR( 13 ) = MAX( CONCR( 13 ) - FNH4, 0.0D0 ) CONCR( 4 ) = 2.0D0 * FNH4 ! CNH42S4 ELSE IF ( FNH4 .LE. SMALL ) THEN ! convert (NH4)3H(SO4)2 to NH4HSO4 CONCR( 9 ) = 3.0D0 * MIN( FSO4, CONCR( 13 ) ) ! CNH4HS4 CONCR( 13 ) = MAX( CONCR( 13 ) - FSO4, 0.0D0 ) ! CLC, (NH4)3H(SO4)2 IF ( CONCR( 2 ) .GT. SMALL ) THEN ! convert Na2SO4 to NaHSO4 FSO4 = MAX( FSO4 - CONCR( 9 ) / 3.0D0, 0.0D0 ) CONCR( 12 ) = 2.0D0 * FSO4 ! CNAHSO4 CONCR( 2 ) = MAX( CONCR( 2 ) - FSO4, 0.0D0 ) ! CNA2SO4 END IF IF ( CONCR( 17 ) .GT. SMALL ) THEN ! convert K2SO4 to KHSO4 FSO4 = MAX( FSO4 - CONCR( 9 ) / 3.0D0, 0.0D0 ) CONCR( 18 ) = 2.0D0 * FSO4 ! CKHSO4 CONCR( 17 ) = MAX( CONCR( 17 ) - FSO4, 0.0D0 ) ! CK2SO4 END IF END IF ELSE IF ( SC .EQ. 'K4' ) THEN ! sulfate super rich, free acid CONCR( 9 ) = CONC( 3 ) ! NH4HSO4 = NH3 CONCR( 12 ) = CONC( 1 ) ! NaHSO4 = Na CONCR( 18 ) = CONC( 7 ) ! KHSO4 = K CONCR( 21 ) = CONC( 8 ) ! MgSO4 = Mg CONCR( 7 ) = MAX( CONC( 2 ) - CONC( 3 ) - CONC( 1 ) & - CONC( 6 ) - CONC( 7 ) - CONC( 8 ), 0.0D0 ) ! H2SO4 = SO4 - NH4 - Na - Ca - K - Mg ELSE PRINT*, 'aero_subs.f: case not supported ', & '(metastable reverse only)' END IF C Get single-solute molalities for ZSR calculation CALL GETM0I ( RH, M0I ) C Calculate H2O with ZSR and determine delta water WATER = 0.0D0 DO J = 1, NPAIR WATER = WATER + CONCR( J ) / M0I( J ) END DO WATER = MAX ( WATER, SMALL ) H2O_NEW = WATER / Mw END SUBROUTINE CALC_H2O C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE GETM0I ( RHIN, M0I ) !!!!!!!!!!!!!!! We want to get rid of this dependency !!!!!!!!!!!!!!!! C Description C Determines single-solute molalities for the 13 possible salts at C the ambient RH. These molalities are used in the ZSR calculation C in CALC_H2O. Note that the molalities were determined at the beginning C of the time step, and so they are available in the IONS common block C of isrpia.inc. C Routine called by CALC_H2O. C Revision History C ??? ???? Prakash Bhave(?), Jim Kelly(?): initial revision C Apr 2011 Havala Pye: Removed use of IONS common block since it requires C ISORROPIA to be called to setup the initial array values. C Now uses single-solute molalities from ZSR common block C in isrpia.inc that is defined in BLKISO in isocom.f C BE VERY CAREFUL ABOUT IMPLICIT VARIABLES HERE! C Arguments C Output C M0I : Single-solute molalities (mol/kg-H2O) for 13 salts C----------------------------------------------------------------------- ! implicit none INCLUDE 'isrpia.inc' C Arguments REAL( 8 ), INTENT( IN ) :: RHIN REAL( 8 ), INTENT( OUT ) :: M0I( NPAIR ) INTEGER IZ C Location in pure molality array (function of RH) IZ = MIN( INT( RHIN * REAL( NZSR, 8 ) + 0.5D0 ), NZSR ) IZ = MAX( IZ, 1 ) C Default value M0I = 1.0D+5 ! array assignment C Actual values (10,11 not provided) M0I( 01 ) = AWSC( IZ ) ! NACl M0I( 02 ) = AWSS( IZ ) ! (NA)2SO4 M0I( 03 ) = AWSN( IZ ) ! NANO3 M0I( 04 ) = AWAS( IZ ) ! (NH4)2SO4 M0I( 05 ) = AWAN( IZ ) ! NH4NO3 M0I( 06 ) = AWAC( IZ ) ! NH4CL M0I( 07 ) = AWSA( IZ ) ! 2H-SO4 M0I( 08 ) = AWSA( IZ ) ! H-HSO4 M0I( 09 ) = AWAB( IZ ) ! NH4HSO4 M0I( 12 ) = AWSB( IZ ) ! NAHSO4 M0I( 13 ) = AWLC( IZ ) ! (NH4)3H(SO4)2 M0I( 15 ) = AWCN( IZ ) ! CA(NO3)2 M0I( 16 ) = AWCC( IZ ) ! CACl2 M0I( 17 ) = AWPS( IZ ) ! K2SO4 M0I( 18 ) = AWPB( IZ ) ! KHSO4 M0I( 19 ) = AWPN( IZ ) ! KNO3 M0I( 20 ) = AWPC( IZ ) ! KCl M0I( 21 ) = AWMS( IZ ) ! MGSO4 M0I( 22 ) = AWMN( IZ ) ! MG(NO3)2 M0I( 23 ) = AWMC( IZ ) ! MGCL2 END SUBROUTINE GETM0I C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE GETSC ( CONC, RH, T, SC ) C Description C Determines the sub-case to use for water uptake calculations. C Follows the procedure of ISORROPIA. C Routine called by CALC_H2O. C ArgumentS C Inputs C CONC : Concentration [mol/m^3] of aerosol components. This routine C sets minimum CONC to 1.0D-20 C RH : Relative humidity C T : Temperature (K) C Output C SC : Sub-case for aerosol composition C----------------------------------------------------------------------- IMPLICIT NONE INTEGER, PARAMETER :: NCMP = 8 ! was NCMP = 5 ! number of aerosol components REAL( 8 ), PARAMETER :: SMALL = 1.0D-20 C Arguments: ! REAL( 8 ), INTENT( IN ) :: CONC( NCMP ) REAL( 8 ), INTENT( INOUT ) :: CONC( NCMP ) REAL( 8 ), INTENT( IN ) :: RH, T CHARACTER( 3 ), INTENT( OUT ) :: SC C Local Variables: REAL( 8 ) :: T0, TCF ! DRH(T) factor REAL( 8 ) :: S4RAT, S4RATW, NaRAT, SRI ! sulfate & sodium ratios REAL( 8 ) :: CRAT ! crustals ratio REAL( 8 ) :: FSO4 ! "free" sulfate REAL( 8 ) :: DNACL, DNH4CL, DNANO3, DNH4NO3, DNH42S4 ! DRH values REAL( 8 ) :: GETASR ! ISORROPIA function for sulfate ratio LOGICAL :: SCP1R, SCP2R, SCP3R, SCP4R ! concentration regime C----------------------------------------------------------------------- SCP1R = .FALSE. SCP2R = .FALSE. SCP3R = .FALSE. SCP4R = .FALSE. C See if any components are negligible (see isocom.for) IF ( CONC( 1 ) + CONC( 4 ) + CONC( 5 ) + & CONC( 6 ) + CONC( 7 ) + CONC( 8 ) .LE. SMALL ) THEN ! Ca,K,Mg,Na,Cl,NO3=0 SCP1R = .TRUE. ELSE IF ( CONC( 1 ) + CONC( 5 ) + & CONC( 6 ) + CONC( 7 ) + CONC( 8 ) .LE. SMALL ) THEN ! Ca,K,Mg,Na,Cl=0 SCP2R = .TRUE. ELSE IF ( CONC( 6 ) + CONC( 7 ) + CONC( 8 ) .LE. SMALL ) THEN ! Ca,K,Mg=0 SCP3R = .TRUE. ELSE ! all species SCP4R = .TRUE. END IF CONC( : ) = MAX ( CONC( : ), SMALL ) C Deliquescence RH calculations DNH42S4 = 0.7997D0 DNH4NO3 = 0.6183D0 IF ( INT( T ) .NE. 298 ) THEN T0 = 298.15D0 TCF = 1.0D0 / T - 1.0D0 / T0 DNH4NO3 = DNH4NO3 * EXP( 852.0D0 * TCF ) DNH42S4 = DNH42S4 * EXP( 80.0D0 * TCF ) DNH4NO3 = MIN ( DNH4NO3, DNH42S4 ) ! adjust for curves crossing T<271K END IF C Find sub-case "SC" IF ( SCP1R ) THEN ! NH4-S04 system IF ( RH .GE. DNH42S4 ) THEN S4RATW = GETASR( CONC( 2 ), RH ) ! aerosol sulfate ratio ELSE S4RATW = 2.0D0 ! dry aerosol sulfate ratio END IF S4RAT = CONC( 3 ) / CONC( 2 ) ! sulfate ratio (NH4/SO4) IF ( S4RATW .LE. S4RAT ) THEN ! sulfate poor SC = 'S2' ELSE IF ( 1.0D0 .LE. S4RAT .AND. S4RAT .LT. S4RATW ) THEN ! sulfate rich (no acid) SC = 'B4' ELSE IF ( S4RAT .LT. 1.0D0 ) THEN ! sulfate rich (free acid) SC = 'C2' END IF ELSE IF ( SCP2R ) THEN ! NH4-SO4-NO3 system IF ( RH .GE. DNH4NO3 ) THEN S4RATW = GETASR( CONC( 2 ), RH ) ELSE S4RATW = 2.0D0 ! dry aerosol ratio END IF S4RAT = CONC( 3 ) / CONC( 2 ) IF ( S4RATW .LE. S4RAT ) THEN ! sulfate poor SC = 'N3' ELSE IF ( 1.0D0 .LE. S4RAT .AND. S4RAT .LT. S4RATW ) THEN ! sulfate rich (no acid) SC = 'B4' ELSE IF ( S4RAT .LT. 1.0D0 ) THEN ! sulfate rich (free acid) SC = 'C2' END IF ELSE IF ( SCP3R ) THEN ! NH4-SO4-NO3-Na-Cl system C Adjust DRH of NH4NO3 for low temperature DNACL = 0.7528D0 DNANO3 = 0.7379D0 DNH4CL = 0.7710D0 IF ( INT( T ) .NE. 298 ) THEN DNACL = DNACL * EXP( 25.0D0 * TCF ) DNANO3 = DNANO3 * EXP( 304.0D0 * TCF ) DNH4CL = DNH4Cl * EXP( 239.0D0 * TCF ) DNH4NO3 = MIN ( DNH4NO3, DNH4CL, DNANO3, DNACL ) END IF IF ( RH .GE. DNH4NO3 ) THEN FSO4 = CONC( 2 ) - CONC( 1 ) / 2.0D0 ! sulfate unbound by Na+ FSO4 = MAX ( FSO4, SMALL ) SRI = GETASR ( FSO4, RH ) S4RATW = ( CONC( 1 ) + FSO4 * SRI ) / CONC( 2 ) S4RATW = MIN ( S4RATW, 2.0D0 ) ELSE S4RATW = 2.0D0 ! ratio for dry aerosol END IF S4RAT = ( CONC( 1 ) + CONC( 3 ) ) / CONC( 2 ) NaRAT = CONC( 1 ) / CONC( 2 ) IF ( S4RATW .LE. S4RAT .AND. NaRAT .LT. 2.0D0 ) THEN ! sulfate poor, sodium poor SC = 'Q5' ELSE IF ( S4RAT .GE. S4RATW .AND. NaRAT .GE. 2.0D0 ) THEN ! SO4 poor, Na rich SC = 'R6' ELSE IF ( 1.0D0 .LE. S4RAT .AND. S4RAT .LT. S4RATW ) THEN ! SO4 rich, no acid SC = 'I6' ELSE IF ( S4RAT .LT. 1.0D0 ) THEN ! sulfate rich, free acid SC = 'J3' END IF ELSE IF ( SCP4R ) THEN ! NH4-SO4-Na-Cl-Ca-K-Mg system ! Do I need an RH if check here???? FSO4 = CONC( 2 ) - CONC( 1 ) / 2.0D0 & - CONC( 6 ) - CONC( 7 ) / 2.0D0 - CONC( 8 ) ! sulfate unbound by sodium,calcium,pottasium,magnesium FSO4 = MAX ( FSO4, SMALL ) SRI = GETASR( FSO4, RH ) ! sulfate ratio for NH4+ S4RATW = ( CONC( 1 ) + FSO4 * SRI + CONC( 6 ) & + CONC( 7 ) + CONC( 8 ) ) / CONC( 2 ) ! limiting sulfate ratio S4RATW = MIN ( S4RATW, 2.0D0 ) S4RAT = ( CONC( 1 ) + CONC( 3 ) + CONC( 6 ) + CONC( 7 ) + CONC( 8 ) ) / CONC( 2 ) ! sulfate ratio NaRAT = ( CONC( 1 ) + CONC( 6 ) + CONC( 7 ) + CONC( 8 ) ) / CONC( 2 ) ! crustals+sodium ratio CRAT = ( CONC( 6 ) + CONC( 7 ) + CONC( 8 ) ) / CONC( 2 ) ! crustals ratio IF ( S4RATW .LE. S4RAT .AND. NaRAT .LT. 2.0D0 ) THEN ! sulfate, sodium, crustal poor SC = 'V7' ELSE IF ( S4RAT .GE. S4RATW .AND. NaRAT .GE. 2.0D0 ) THEN IF ( CRAT .LE. 2.0D0 ) THEN ! sulfate poor, dust+sodium rich, dust poor SC = 'U8' ELSE ! sulfate poor, dust+sodium rich, dust rich SC = 'W13' END IF ELSE IF ( 1.0D0 .LE. S4RAT .AND. S4RAT .LT. S4RATW ) THEN ! sulfate rich, no acid SC = 'L9' ELSE IF ( S4RAT .LT. 1.0D0 ) THEN ! sulfate rich, free acid SC = 'K4' END IF END IF !print*,'SUBCASE identified in calc_h2o', SC END SUBROUTINE GETSC C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: REAL FUNCTION GETAF( NI, NJ, DGNI, DGNJ, XLSGI, XLSGJ, SQRT2 ) C Returns the value of "Xnum" in Equations 10a and 10c C of Binkowski and Roselle (2003), given the number concentrations, C median diameters, and natural logs of the geometric standard C deviations, in two lognormal modes. The value returned by GETAF C is used subsequently in the mode merging calculations: C GETAF = ln( Dij / Dgi ) / ( SQRT2 * ln(Sgi) ) C where Dij is the diameter of intersection, C Dgi is the median diameter of the smaller size mode, and C Sgi is the geometric standard deviation of smaller mode. C A quadratic equation is solved to obtain GETAF, following the C method of Press et al. C C References: C 1. Binkowski, F.S. and S.J. Roselle, Models-3 Community C Multiscale Air Quality (CMAQ) model aerosol component 1: C Model Description. J. Geophys. Res., Vol 108, No D6, 4183 C doi:10.1029/2001JD001409, 2003. C 2. Press, W.H., S.A. Teukolsky, W.T. Vetterling, and B.P. C Flannery, Numerical Recipes in Fortran 77 - 2nd Edition. C Cambridge University Press, 1992. IMPLICIT NONE REAL NI, NJ, DGNI, DGNJ, XLSGI, XLSGJ, SQRT2 REAL AA, BB, CC, DISC, QQ, ALFA, L, YJI C----------------------------------------------------------------------- C *** Store intermediate values used for the quadratic solution C to reduce computational burden ALFA = XLSGI / XLSGJ YJI = LOG( DGNJ / DGNI ) / ( SQRT2 * XLSGI ) L = LOG( ALFA * NJ / NI) C *** Calculate quadratic equation coefficients & discriminant AA = 1.0 - ALFA * ALFA BB = 2.0 * YJI * ALFA * ALFA CC = L - YJI * YJI * ALFA * ALFA DISC = BB * BB - 4.0 * AA * CC C *** If roots are imaginary, return a negative GETAF value so that no C mode merging takes place. IF ( DISC .LT. 0.0 ) THEN GETAF = - 5.0 ! error in intersection RETURN END IF C *** Equation 5.6.4 of Press et al. QQ = -0.5 * ( BB + SIGN( 1.0, BB ) * SQRT( DISC ) ) C *** Return solution of the quadratic equation that corresponds to a C diameter of intersection lying between the median diameters of C the 2 modes. GETAF = CC / QQ ! See Equation 5.6.5 of Press et al. RETURN END FUNCTION GETAF C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE AERO_INLET ( DGN, XXLSG, RHOP, D_AD1, D_AD2, fPM ) C Calculates the volume fraction of a given aerosol mode that would enter C a sharp-cut inlet, using equations from Jiang et al (2006). The C parameters D_AD1 and D_AD2 provide the lower and upper cutoff diameters C for the inlet size cut and the routine returns the fraction of the C size distribution that is transmitted through the hypothetical inlet C with the variable fPM. But first, those cutoffs are converted from C Aerodynamic Diameter to Stokes Diameter (used internally within CMAQ). C CMAQ aerosols are represented with Stokes Diameter. There are many C alternate forms of diameter including the following: C Volume Equivalent Diameter (D_ve) - the diameter of a sphere with the C same volume as the particle. C Stokes Diameter (D_st) - the diameter of a sphere with the same C terminal velocity as the real particle. If the shape factor C is 1, then the Stokes and Volume Equivalent Diameters are C equal. C Aerodynamic Diameter (D_ad) - the diameter of a sphere with unit C density and the same terminal velocity as the real particle. C If the density is 1, then the Aerodynamic Diameter and Stokes C Diameter are equal. C Vacuum Aerodynamic Diameter (D_va) - the diameter of a sphere with very C high Knudsen number and thus a simplified relationship with C Stokes diameter that is only dependent on density and shape C factor, not Slip Correction. The very high Knudsen number C could be because the particle is very small or because the C system pressure is very low. C Electrical Mobility Diameter (D_em) - the diameter of a sphere with the C same migration velocity as the real particle. Requires a C slip-correction and a shape factor correction when converting C from volume equivalent diameter. C Conversions: C Parameters C rho - Density C rho0 - Unit Density (1 g cm-3) C Cc( ) - Cunningham Slip Correction of a particular diameter C X - Shape factor = (NonSpherical Drag Force)/(Spherical Drag Force) C Aerodynamic -> Stokes C D_st = D_ad * sqrt(rho0/rho) * sqrt( Cc(D_ad) / Cc(D_st) ) C Volume Equivalent -> Stokes C D_st = D_ve * sqrt(1/X) * sqrt( Cc(D_ve) / Cc(D_st) ) C Electrical Mobility -> Volume Equivalent C D_ve = D_em * [Cc(D_ve) / Cc(D_em)] * 1/X C (If X = 1 (i.e. spherical), then D_st = D_ve = D_em ) C Vacuum Aerodynamic -> Volume Equivalent (DeCarlo et al., 2004) C D_ve = D_va * rho0/rho * X C (If X = 1 (i.e. spherical), then D_st = D_ve = D_va * rho0/rho ) C Key Subroutines called: none C Key Functions called: ERF C Revision History: C Coded Jul 2005 by Prakash Bhave C Apr 2008 J.Kelly: corrected equation for Dst25 calculation C Feb 2016 B.Murphy: modified to output PM1 and PM10 mode C fractions in addition to PM2.5 C References: C 1. Jiang, W., Smyth, S., Giroux, E., Roth, H., Yin, D., Differences C between CMAQ fine mode particle and PM2.5 concentrations and their C impact on model performance evaluation in the Lower Fraser Valley, C Atmos. Environ., 40:4973-4985, 2006. C 2. Meng, Z., Seinfeld, J.H., On the source of the submicrometer C droplet mode of urban and regional aerosols, Aerosol Sci. and C Technology, 20:253-265, 1994. C----------------------------------------------------------------------- IMPLICIT NONE INCLUDE SUBST_CONST ! for PI C Input variables REAL, INTENT( IN ) :: DGN ! geometric mean Stokes diameter by number [ m ] REAL, INTENT( IN ) :: XXLSG ! natural log of geometric standard deviation REAL, INTENT( IN ) :: RHOP ! average particle density [ kg/m**3 ] REAL, INTENT( IN ) :: D_AD1 ! Lower aerodynamic diameter cut point [ um ] REAL, INTENT( IN ) :: D_AD2 ! Upper aerodynamic diameter cut point [ um ] C Output variable REAL, INTENT( OUT ) :: fPM ! fraction of particulate volume transmitted through ! hypothetical inlet. C Internal variables REAL, PARAMETER :: SQRT2 = 1.4142136 ! SQRT( 2 ) REAL, PARAMETER :: B = 0.21470 ! Cunningham slip-correction approx. param [ um ] ! This factor works well applied to the entire particle size-range ! The approximation is: Cc(Dp) = 1 + B/Dp REAL D_ST1, D_ST2 ! Stokes diameter equivalent of DCA.. REAL DG ! DGN converted to [ um ] REAL ERF1, ERF2, ERFARG ! argument of ERF, from Step#6 of Jiang et al. (2006) C *** Error function approximation, from Meng & Seinfeld (1994) REAL ERF ! Error function REAL XX ! dummy argument for ERF ERF( XX ) = SIGN( 1.0, XX ) * SQRT( 1.0 - EXP( -4.0 * XX * XX / PI ) ) C ----------------------- Begin solution ------------------------------- C *** Calculate Transmission Fractions for Inlets with Aerodynamic C Cutoffs DG = DGN ! [um] The units need to be equivalent with the B parameter ! from Meng & Seinfeld (1994) and modified form of Fk(X) equation ! in Step#6 of Jiang et al. (2006). IF ( D_AD1 .EQ. 0.0 ) THEN ERF1 = -1.0 ELSE ! Convert size cut to equivalent Stokes diameter using ! equation 2 of Jiang et al. (2006). Note: the equation in Step 5 ! of this paper has a typo (i.e., eq. 2 is correct). D_ST1 = 0.5 * ( SQRT( B ** 2 + 4.0 * D_AD1 * & ( D_AD1 + B ) * 1.0E+03 / RHOP ) - B ) ! Calculate mass fraction with Dca < SizeCut, using ERF approximation ERFARG = ( LOG( D_ST1 ) - LOG( DG ) ) / ( SQRT2 * XXLSG ) - 3.0 * XXLSG / SQRT2 ERF1 = ERF( ERFARG ) END IF ! Convert size cut to equivalent Stokes diameter using ! equation 2 of Jiang et al. (2006). Note: the equation in Step 5 ! of this paper has a typo (i.e., eq. 2 is correct). D_ST2 = 0.5 * ( SQRT( B ** 2 + 4.0 * D_AD2 * & ( D_AD2 + B ) * 1.0E+03 / RHOP ) - B ) ! Calculate mass fraction with Dca < SizeCut, using ERF approximation ERFARG = ( LOG( D_ST2 ) - LOG( DG ) ) / ( SQRT2 * XXLSG ) - 3.0 * XXLSG / SQRT2 ERF2 = ERF( ERFARG ) ! Calculate fraction between Lower and Upper Cut Points fPM = 0.5 * ( ERF2 - ERF1 ) END SUBROUTINE AERO_INLET C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE AERO_AMS ( M3_WET, M2_WET, M0, M_H2O, RHOP, RHO_H2O, fAMS ) C The subroutine calculates transmission factors applicable for C comparison with AMS measurements using the curve suggested by Jimenez C and coworkers (http://cires1.colorado.edu/jimenez-group/wiki/index.php/ C FAQ_for_AMS_Data_Users#What_is_the_size_cut_of_AMS_measurements.3F). C The AMS measures Vacuum Aerodynamic Diameter (D_va) because the pressure is C so low in the instrument. This curve (also described in Ensberg et C al., 2013) includes the following (Note: before applying the curve, C the bounds must be converted to Stokes Diameter): C D_va < 0.04 um: 0% transmission (T) C 0.04 < D_va < 0.1 um: T% = 1666.6 * (D_va - 0.04) (1) C 0.1 < D_va < 0.55 um: T% = 100% (2) C 0.55 < D_va < 2.0 um: T% = 100-68.965*(D_va-0.55) (3) C 2.0 um < D_va: T = 0% C CMAQ aerosols are represented with Stokes Diameter. There are many C alternate froms of diameter including the following: C Volume Equivalent Diameter (D_ve) - the diameter of a sphere with the C same volume as the particle. C Stokes Diameter (D_st) - the diameter of a sphere with the same C terminal velocity as the real particle. If the shape factor C is 1, then the Stokes and Volume Equivalent Diameters are C equal. C Vacuum Aerodynamic Diameter (D_va) - the diameter of a sphere with very C high Knudsen number and thus a simplified relationship with C Stokes diameter that is only dependent on density and shape C factor, not Slip Correction. The very high Knudsen number C could be because the particle is very small or because the C system pressure is very low. C Conversions: C Parameters C ro - Density C ro0 - Unit Density (1 g cm-3) C Cc( ) - Cunningham Slip Correction of a particular diameter C X - Shape factor = (NonSpherical Drag Force)/(Spherical Drag Force) C Vacuum Aerodynamic -> Volume Equivalent (DeCarlo et al., 2004) C D_ve = D_va * ro0/ro * X C (If X = 1 (i.e. spherical), then D_st = D_ve = D_va * ro0/ro ) C Key Functions called: ERF C Revision History: C Coded Feb 2016 B.Murphy: Created C References: C 1. DeCarlo et al., Particle Morphology and Density Characterization C by Combined Mobility and Aerodynamic Diameter Measurements. Part 1: C Theory, Aerosol Sci. and Technology, 38:1185-1205, 2004 C 2. Ensberg et al., Inorganic and black carbon aerosols in the Los C Angeles Basin during CalNex, Journ. Geophys. Res., 2013. C----------------------------------------------------------------------- USE AERO_DATA, ONLY : MIN_SIGMA_G, MAX_SIGMA_G USE AEROMET_DATA, ONLY : F6PI, PI6 IMPLICIT NONE INCLUDE SUBST_CONST ! for PI C Input variables REAL, INTENT( IN ) :: M3_WET ! Third Moment of Wet Distribution (m3/m3) REAL, INTENT( IN ) :: M2_WET ! Second Moment of Wet Distribution (m2/m3) REAL, INTENT( IN ) :: M0 ! Number of Particles in Distribution (N/m3) REAL, INTENT( IN ) :: M_H2O ! Mass Conc. of Water in Particles (ug/m3) REAL, INTENT( IN ) :: RHOP ! average particle density [ kg/m**3 ] REAL, INTENT( IN ) :: RHO_H2O ! Water Density [ kg/m3 ] C Output variable REAL, INTENT(OUT) :: fAMS ! fraction of particulate volume transmitted through AMS Inlet C Internal variables REAL, PARAMETER :: SQRT2 = 1.4142136 ! SQRT( 2 ) REAL, PARAMETER :: DGMIN = 1.0E-9 ! min(Dp) in [m] REAL, PARAMETER :: ONETHIRD = 1.0 / 3.0 REAL, PARAMETER :: TWOTHIRDS = 2.0 * ONETHIRD REAL DG ! DGN converted to [ um ] REAL DGv ! Volume Median Diameter REAL XXLSG ! ln(StndDev) for current mode REAL M3_DRY, M2_DRY, M3SUBT, M_WET, M_DRY, DRY_DENS, DENSFAC REAL XFSUM, LXFM2, L2SG, ES36 REAL DBlo_st, DBhi_st, LOG_HILO, LOG_LOHI, LOG_HI, LOG_LO REAL SQRT2LSG, TERM1, TERM2, TERM3, TERM4, TERM5 C *** Error function approximation, from Meng & Seinfeld (1994) REAL ERF ! Error function REAL XX ! dummy argument for ERF ERF( XX ) = SIGN( 1.0, XX ) * SQRT( 1.0 - EXP( -4.0 * XX * XX / PI ) ) C ----------------------- Begin solution ------------------------------- C *** First Calculate Parameters of Dry Distribution since this is more C applicable in general to AMS measurements. M3SUBT = ( 1.0E-9 * F6PI / RHO_H2O ) * M_H2O ! m3 m-3 M3_DRY = Max(M3_WET - M3SUBT, 0.0) + TINY(0.0) ! m3 m-3 M2_DRY = M2_WET * ( M3_DRY / M3_WET ) ** TWOTHIRDS ! m2 m-3 M_WET = M3_WET * 1.0E+9 * PI6 * RHOP ! ug m-3 M_DRY = Max(M_WET - M_H2O, 0.0) + TINY(0.0) ! m3 m-3 DRY_DENS = M_DRY / M3_DRY * F6PI * 1.0E-9 ! kg m-3 XFSUM = ONETHIRD * Log( M0 ) + TWOTHIRDS * Log( M3_DRY ) LXFM2 = Log( M2_DRY ) L2SG = XFSUM - LXFM2 ! ( ln(sigma) )^2 L2SG = Min( Max( L2SG, LOG( MIN_SIGMA_G ) ** 2 ), LOG( MAX_SIGMA_G ) ** 2 ) LXFM2 = XFSUM - L2SG ES36 = Exp( 4.5 * L2SG ) DG = Max( DGMIN, ( M3_DRY / ( M0 * ES36 ) ) ** ONETHIRD ) * 1.0E+06 ![um] Units should correspond to D XXLSG = Sqrt( L2SG ) ! ln(sigma) DGv = EXP( LOG( DG ) + 3.0 * L2SG ) C *** Calculate Transmission Fractions for AMS with Vacuum Aerodynamic C Cutoffs. This approximation is split into a piecewise function (see C Appendix B in Ensberg et al., 2013). fAMS = 0.0 DENSFAC = 1.0E+03 / DRY_DENS ! Density Correction Factor ! = rho0 / rho ! = 1000.0 / rho SQRT2LSG = SQRT2 * XXLSG ! First Piece of Function [T(%) = 1666.6 * (Dva - 0.04) ] DBlo_st = 0.040 * DENSFAC ! Stokes Lower Bound of Piece [um] DBhi_st = 0.100 * DENSFAC ! Stokes Upper Bound of Piece [um] LOG_HILO = LOG( 100.0/40.0 ) LOG_HI = LOG( DBhi_st/DGv ) LOG_LO = LOG( DBlo_st/DGv ) TERM1 = LOG( DGv/DBlo_st ) / LOG_HILO TERM2 = ERF( LOG_HI / SQRT2LSG ) & -ERF( LOG_LO / SQRT2LSG ) TERM3 = XXLSG / ( LOG_HILO * (pi/2.0) ** 0.5 ) TERM4 = EXP( -1.0 * ( LOG_LO / SQRT2LSG ) ** 2 ) TERM5 = EXP( -1.0 * ( LOG_HI / SQRT2LSG ) ** 2 ) fAMS = ( TERM1*TERM2 + TERM3*(TERM4-TERM5) ) ! Second Piece of Function [T(%) = 100] DBlo_st = DBhi_st ! Stokes Lower Bound [um] DBhi_st = 0.55 * DENSFAC ! Stokes Upper Bound [um] TERM1 = ERF( LOG( DBhi_st/DGv ) / SQRT2LSG ) TERM2 = ERF( LOG( DBlo_st/DGv ) / SQRT2LSG ) fAMS = fAMS + (TERM1 - TERM2) ! Third Piece of Function [T(%) = 1.0 - 0.6805 * (Dva - 0.55) ] DBlo_st = DBhi_st ! Stokes Lower Bound [um] DBhi_st = 2.0 * DENSFAC ! Stokes Upper Bound [um] LOG_LOHI = LOG( 550.0/2000.0 ) LOG_HI = LOG( DBhi_st/DGv ) LOG_LO = LOG( DBlo_st/DGv ) TERM1 = LOG( DGv/DBhi_st ) / LOG_LOHI TERM2 = ERF( LOG_HI / SQRT2LSG ) & -ERF( LOG_LO / SQRT2LSG ) TERM3 = XXLSG / ( LOG_LOHI * (pi/2.0) ** 0.5 ) TERM4 = EXP( -1.0 * ( LOG_LO / SQRT2LSG ) ** 2 ) TERM5 = EXP( -1.0 * ( LOG_HI / SQRT2LSG ) ** 2 ) fAMS = fAMS + TERM1 * TERM2 + TERM3 * (TERM4-TERM5) ! Apply the Factor of 0.5 Consistent with Appendix B in Ensberg et ! al., 2013. Omit the total mass quantity since these are fractions ! we want. fAMS = 0.5 * fAMS END SUBROUTINE AERO_AMS C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE HETCHEM_EXTRACT_AERO ( CONCVEC, C, R, L, WET_M2, WET_M3, & DE_WET ) c Calculates the change in aerosol surface area due to heterogeneous C reactions and updates the CGRID array with this information. C History C May 2016: BM Created C Key Subroutines Called: none C C Called by: Gas-Phase Chemistry Driver USE AERO_DATA, ONLY: EXTRACT_AERO, CALCMOMENTS, N_MODE, MOMENT2_CONC, & MOMENT3_CONC, AEROMODE_DIAM, AEROMODE_LNSG, & CHEM_M2DRY_INIT, CHEM_M3DRY_INIT, FIXED_SG USE AEROMET_DATA, ONLY: pi USE GRID_CONF, ONLY: NLAYS, NCOLS, NROWS USE PRECURSOR_DATA, ONLY: EXTRACT_PRECURSOR #ifdef sens USE DDM3D_DEFN, ONLY: SENGRID #endif IMPLICIT NONE REAL, INTENT( IN ) :: CONCVEC ( : ) ! pointer to model concentrations REAL, PARAMETER :: TWOTHIRDS = 2.0 / 3.0 REAL :: M2DRY_FINAL( N_MODE ) ! Dry 2nd Aerosol Moment REAL :: M3DRY_FINAL( N_MODE ) ! Dry 3rd Aerosol Moment INTEGER :: C, R, L, N REAL( 8 ), INTENT(OUT) :: WET_M2( : ), WET_M3( : ), DE_WET( : ) LOGICAL, SAVE :: FIRSTIME = .TRUE. IF ( FIRSTIME ) THEN FIRSTIME = .FALSE. ALLOCATE( CHEM_M2DRY_INIT( NCOLS,NROWS,NLAYS,N_MODE ), & CHEM_M3DRY_INIT( NCOLS,NROWS,NLAYS,N_MODE ) ) END IF C *** extract grid cell concentrations of aero species from CGRID C into aerospc_conc in aero_data module C also converts dry surface area to wet second moment #ifdef sens CALL EXTRACT_AERO ( CONCVEC(:), .TRUE., SENGRID(NCOLS,NROWS,NLAYS,:,:), .FALSE. ) #else CALL EXTRACT_AERO ( CONCVEC(:), .TRUE. ) #endif C *** extract in inorganic aerosol processors #ifdef sens CALL EXTRACT_PRECURSOR( CONCVEC(:), SENGRID( NCOLS,NROWS,NLAYS,:,: ) ) #else CALL EXTRACT_PRECURSOR( CONCVEC(:) ) #endif C *** Update geometric mean diameters, geometric C standard deviations, modal mass totals, and modal particle C densities, based on the concentrations of M2, M0, and speciated C masses. CALL getpar( FIXED_sg ) C *** set up variables needed for calculating KN2O5 and YIELD_CLNO2 DO N = 1, N_MODE C *** estimate the "wet third moments" from moment3_conc C Note: this is the H2O concentration from previous time step WET_M3( N ) = REAL( MOMENT3_CONC( N ), 8 ) C *** calculate "wet second moment" assuming that H2O does not C affect the geometric standard deviation WET_M2( N ) = REAL( MOMENT2_CONC( N ), 8 ) C *** The "wet" geometric mean (same as median) diameter was updated in C getpar. It is stored in aeromode_diam C *** calculate effective diameter (this is actually the mean) using Eq 3 of Pleim et al (1995) DE_WET( N ) = REAL( AEROMODE_DIAM( N ) * EXP( 1.5 * AEROMODE_LNSG( N ) ** 2 ), 8) END DO C *** Retrieve and Save the Dry 3rd and 2nd Moments CALL calcmoments( .False. ) CHEM_M2DRY_INIT( C,R,L,: ) = REAL( MOMENT2_CONC( : ), 8 ) CHEM_M3DRY_INIT( C,R,L,: ) = REAL( MOMENT3_CONC( : ), 8 ) END SUBROUTINE HETCHEM_EXTRACT_AERO C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE HETCHEM_UPDATE_AERO ( CGRID ) c Calculates the change in aerosol surface area due to heterogeneous C reactions and updates the CGRID array with this information. C C History C May 2016: BM Created C Key Subroutines Called: none C C Called by: Gas-Phase Chemistry Driver USE AERO_DATA USE AEROMET_DATA, ONLY: pi USE GRID_CONF, ONLY: NLAYS, NROWS, NCOLS IMPLICIT NONE REAL, POINTER :: CGRID ( :,:,:,: ) ! pointer to model concentrations REAL, PARAMETER :: TWOTHIRDS = 2.0 / 3.0 REAL :: M2DRY_FINAL( N_MODE ) ! Dry 2nd Aerosol Moment REAL :: M3DRY_FINAL( N_MODE ) ! Dry 3rd Aerosol Moment INTEGER L, R, C, M LOOP_LAY: DO L = 1, NLAYS LOOP_ROW: DO R = 1, NROWS LOOP_COL: DO C = 1, NCOLS ! Extract grid cell concentrations of aero species from CGRID ! into aerospc_conc in aero_data module ! also converts dry surface area to wet second moment #ifdef sens CALL EXTRACT_AERO ( CGRID( C,R,L,: ), .TRUE., CGRID(C,R,:,: ), .FALSE. ) #else CALL extract_aero ( CGRID( C,R,L,: ), .True. ) #endif ! Recalculate Dry 3rd Moment After Chemistry Processes ! 2nd moment hasnt been update yet. CALL calcmoments( .False. ) M2DRY_FINAL( : ) = MOMENT2_CONC( : ) M3DRY_FINAL( : ) = MOMENT3_CONC( : ) ! Calculate new Second Moment Manually ! Assume standard deviation is fixed. M2DRY_FINAL( : ) = REAL( CHEM_M2DRY_INIT( C,R,L,: ) ) & * ( M3DRY_FINAL( : ) & / REAL( CHEM_M3DRY_INIT( C,R,L,: ) ) ) ** TWOTHIRDS ! Update the Aerosol Surface Area making sure to multiply ! the 2nd moment by Pi to convert properly DO M = 1, N_MODE CGRID( C,R,L, aerosrf_map( M ) ) = & PI * M2DRY_FINAL( M ) END DO END DO LOOP_COL END DO LOOP_ROW END DO LOOP_LAY END SUBROUTINE HETCHEM_UPDATE_AERO ! !::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE SUM_INLET_PM ( INLET, WETNESS, PM ) ! Calculates the total PM mass below a user-defined cut point D_AD, ! or Aerodynamic Diameter in um. !----------------------------------------------------------------------- USE AERO_DATA, ONLY : AEROSPC_CONC, AEROSPC, N_MODE, & AH2O_IDX, AORGH2O_IDX USE ELMO_DATA IMPLICIT NONE ! Input variables INTEGER, INTENT( INOUT ) :: INLET ! Integer prescribing the inlet type ! (see ELMO_INLET table in ELMO_DATA module) INTEGER, INTENT( INOUT ) :: WETNESS ! 1 = Wet Aerosol; 2 = Dry Aerosol ! Output variable REAL, INTENT( OUT ) :: PM ! PM Mass below cut point INTEGER IM REAL VAL C ----------------------- Begin solution ------------------------------- PM = 0.0 DO IM = 1,N_MODE CALL GET_AERO_INLET( INLET, IM, WETNESS, VAL ) PM = PM + VAL * ( SUM( AEROSPC_CONC( :,IM ), & MASK = .NOT.AEROSPC(:)%TRACER ) & - AEROSPC_CONC( AH2O_IDX,IM ) ) IF ( AORGH2O_IDX .GT. 0 ) PM = PM & - VAL * AEROSPC_CONC( AORGH2O_IDX,IM ) ! ug m-3 END DO END SUBROUTINE SUM_INLET_PM !::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE GET_AERO_INLET ( INLET, IMODE, WETNESS, FRAC ) ! Calls the AERO_INLET routine for calculating the fraction of each ! mode collected by inlet prescribed by INLET. This subroutine is ! only for PM0.1, PM1, PM2.5, PM10 and PM2.5to10. It is not for ! AMS inlet calculation. If the user expands the ELMO_INLET ! table to consider more cutoff ranges, this subroutine can be ! used to calculate them as well. !----------------------------------------------------------------------- USE ELMO_DATA USE AERO_DATA, ONLY : WET_AERO_DIAM, AEROMODE_LNSG, WET_AERO_DENS, & DRY_AERO_DIAM, DRY_AERO_DENS IMPLICIT NONE ! Input variables INTEGER, INTENT( INOUT ) :: INLET ! Integer prescribing the inlet type ! (see ELMO_INLET table in ELMO_DATA module) INTEGER, INTENT( INOUT ) :: IMODE ! Aerosol Mode of interest INTEGER, INTENT( INOUT ) :: WETNESS ! 1 = Wet Aerosol; 2 = Dry Aerosol ! Output variable REAL, INTENT( OUT ) :: FRAC ! Fraction of aerosol mode IM ! collected by inlet described by INLET C ----------------------- Begin solution ------------------------------- IF ( INLET_FRAC( INLET,IMODE,WETNESS ) .LT. 0. ) THEN IF ( WETNESS .EQ. IWET ) THEN CALL AERO_INLET( WET_AERO_DIAM( IMODE ), AEROMODE_LNSG( IMODE ), & WET_AERO_DENS( IMODE ), & ELMO_INLET( INLET )%DIAM_LO, & ELMO_INLET( INLET )%DIAM_HI, & FRAC ) ELSE CALL AERO_INLET( DRY_AERO_DIAM( IMODE ), AEROMODE_LNSG( IMODE ), & DRY_AERO_DENS( IMODE ), & ELMO_INLET( INLET )%DIAM_LO, & ELMO_INLET( INLET )%DIAM_HI, & FRAC ) END IF INLET_FRAC( INLET,IMODE,WETNESS ) = FRAC ELSE FRAC = INLET_FRAC( INLET,IMODE,WETNESS ) END IF END SUBROUTINE GET_AERO_INLET !::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE SUM_INLET_NUM ( INLET, WETNESS, NUM ) ! Calculates the total particle number within a user-defined range ! for each aerosol mode and then sums them up. !----------------------------------------------------------------------- USE AERO_DATA, ONLY : DRY_AERO_DIAM, WET_AERO_DIAM, & AEROMODE_LNSG, MOMENT0_CONC USE ELMO_DATA IMPLICIT NONE ! Input variables INTEGER, INTENT( INOUT ) :: INLET ! Integer prescribing the inlet type ! (see ELMO_INLET table in ELMO_DATA module) INTEGER, INTENT( INOUT ) :: WETNESS ! 1 = Wet Aerosol; 2 = Dry Aerosol ! Output variable REAL, INTENT( OUT ) :: NUM ! PM Mass below cut point INTEGER IM REAL FRAC C ----------------------- Begin solution ------------------------------- NUM = 0.0 DO IM = 1,N_MODE IF ( WETNESS .EQ. IWET ) THEN CALL NUM_INLET( WET_AERO_DIAM( IM ), AEROMODE_LNSG( IM ), & ELMO_INLET( INLET )%DIAM_LO, & ELMO_INLET( INLET )%DIAM_HI, & FRAC ) ELSE CALL NUM_INLET( DRY_AERO_DIAM( IM ), AEROMODE_LNSG( IM ), & ELMO_INLET( INLET )%DIAM_LO, & ELMO_INLET( INLET )%DIAM_HI, & FRAC ) END IF NUM = NUM + MOMENT0_CONC( IM ) * FRAC END DO END SUBROUTINE SUM_INLET_NUM C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE NUM_INLET ( DGN, XXLSG, D_ST1, D_ST2, fPM ) C Calculates the number fraction of a given aerosol mode that is between C cutoff diamters D_ST1 and D_ST2. The Stokes diameter used by CMAQ is C assumed to be equivalent to the electrical mobility diameter, reported C by typical SMPS datasets. This is true for spherical particles. C C CMAQ aerosols are represented with Stokes Diameter. There are many C alternate forms of diameter including the following: C Volume Equivalent Diameter (D_ve) - the diameter of a sphere with the C same volume as the particle. C Stokes Diameter (D_st) - the diameter of a sphere with the same C terminal velocity as the real particle. If the shape factor C is 1, then the Stokes and Volume Equivalent Diameters are C equal. C Aerodynamic Diameter (D_ad) - the diameter of a sphere with unit C density and the same terminal velocity as the real particle. C If the density is 1, then the Aerodynamic Diameter and Stokes C Diameter are equal. C Vacuum Aerodynamic Diameter (D_va) - the diameter of a sphere with very C high Knudsen number and thus a simplified relationship with C Stokes diameter that is only dependent on density and shape C factor, not Slip Correction. The very high Knudsen number C could be because the particle is very small or because the C system pressure is very low. C Electrical Mobility Diameter (D_em) - the diameter of a sphere with the C same migration velocity as the real particle. Requires a C slip-correction and a shape factor correction when converting C from volume equivalent diameter. C Conversions: C Parameters C rho - Density C rho0 - Unit Density (1 g cm-3) C Cc( ) - Cunningham Slip Correction of a particular diameter C X - Shape factor = (NonSpherical Drag Force)/(Spherical Drag Force) C Aerodynamic -> Stokes C D_st = D_ad * sqrt(rho0/rho) * sqrt( Cc(D_ad) / Cc(D_st) ) C Volume Equivalent -> Stokes C D_st = D_ve * sqrt(1/X) * sqrt( Cc(D_ve) / Cc(D_st) ) C Electrical Mobility -> Volume Equivalent C D_ve = D_em * [Cc(D_ve) / Cc(D_em)] * 1/X C (If X = 1 (i.e. spherical), then D_st = D_ve = D_em ) C Vacuum Aerodynamic -> Volume Equivalent (DeCarlo et al., 2004) C D_ve = D_va * rho0/rho * X C (If X = 1 (i.e. spherical), then D_st = D_ve = D_va * rho0/rho ) C Key Subroutines called: none C Key Functions called: ERF C Revision History: C Coded Jul 2005 by Prakash Bhave C Apr 2008 J.Kelly: corrected equation for Dst25 calculation C Feb 2016 B.Murphy: modified to output PM1 and PM10 mode C fractions in addition to PM2.5 C Feb 2020 B.Murphy: Created this number synthesizer C C----------------------------------------------------------------------- IMPLICIT NONE INCLUDE SUBST_CONST ! for PI C Input variables REAL, INTENT( IN ) :: DGN ! geometric mean Stokes diameter by NUMBER [ m ] ! Remeber that geometric mean and median are ! identical for log-normal distributions. REAL, INTENT( IN ) :: XXLSG ! natural log of geometric standard deviation REAL, INTENT( IN ) :: D_ST1 ! Lower stokes/electricla mobility diameter cut point [ um ] REAL, INTENT( IN ) :: D_ST2 ! Upper stokes/electrical mobility diameter cut point [ um ] C Output variable REAL, INTENT( OUT ) :: fPM ! fraction of particulate number transmitted ! through size window between D_ST1 and D_ST2 C Internal variables REAL, PARAMETER :: SQRT2 = 1.4142136 ! SQRT( 2 ) REAL ERF1, ERF2 ! argument of ERF, from Step#6 of Jiang et al. (2006) REAL ERFARG REAL DG ! Internal units for median diameter C *** Error function approximation, from Meng & Seinfeld (1994) REAL ERF ! Error function REAL XX ! dummy argument for ERF ERF( XX ) = SIGN( 1.0, XX ) * SQRT( 1.0 - EXP( -4.0 * XX * XX / PI ) ) C ----------------------- Begin solution ------------------------------- C *** Calculate Transmission Fractions for Inlets with Aerodynamic C Cutoffs DG = DGN ! [um] The units need to be equivalent with the B parameter ! from Meng & Seinfeld (1994) and modified form of Fk(X) equation ! in Step#6 of Jiang et al. (2006). IF ( D_ST1 .EQ. 0.0 ) THEN ERF1 = -1.0 ELSE ! Calculate mass fraction with Dca < SizeCut, using ERF approximation ERFARG = ( LOG( D_ST1 ) - LOG( DG ) ) / ( SQRT2 * XXLSG ) ERF1 = ERF( ERFARG ) END IF ! Calculate mass fraction with Dca < SizeCut, using ERF approximation ERFARG = ( LOG( D_ST2 ) - LOG( DG ) ) / ( SQRT2 * XXLSG ) ERF2 = ERF( ERFARG ) ! Calculate fraction between Lower and Upper Cut Points fPM = 0.5 * ( ERF2 - ERF1 ) END SUBROUTINE NUM_INLET ================================================ FILE: CCTM/src/aero/aero6/coags.f ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE GETCOAGS( LAMDA, KFMATAC, KFMAT, KFMAC, KNC, & DGATK, DGACC, SGATK, SGACC, XXLSGAT, XXLSGAC, & QS11, QN11, QS22, QN22, & QS12, QS21, QN12, QV12 ) c Calculates the coagulation rates using a new approximate algorithm c for the 2nd moment. The 0th and 3rd moments are done by analytic c expressions from Whitby et al. (1991). The correction factors are also c similar to those from Whitby et al. (1991), but are derived from the c Gauss-Hermite numerical quadratures used by Binkowski and Roselle (2003). c Revision History: c FSB 08/25/03 Coded by Dr. Francis S. Binkowksi c FSB 08/25/04 Added in-line documentation c References: c 1. Whitby, E. R., P. H. McMurry, U. Shankar, and F. S. Binkowski, c Modal Aerosol Dynamics Modeling, Rep. 600/3-91/020, Atmospheric c Research and Exposure Assessment Laboratory, c U.S. Environmental Protection Agency, Research Triangle Park, N.C., c (NTIS PB91-161729/AS), 1991 c c 2. Binkowski, F.S. an U. Shankar, The Regional Particulate Matter c Model 1. Model decsription and preliminary Results, Journal of c Geophysical Research, 100, D12, pp 26,191-26,209, c December 20, 1995. c c 3. Binkowski, F.S. and S.J. Roselle, Models-3 Community c Multiscale Air Quality (CMAQ) model aerosol component 1: c Model Description. J. Geophys. Res., Vol 108, No D6, 4183 c doi:10.1029/2001JD001409, 2003. C----------------------------------------------------------------------- IMPLICIT NONE C *** Arguments: REAL( 8 ) :: LAMDA ! mean free path [ m ] ! coefficients for Free Molecular regime: REAL( 8 ) :: KFMAT ! Aitken mode REAL( 8 ) :: KFMAC ! accumulation mode REAL( 8 ) :: KFMATAC ! Aitken to accumulation mode REAL( 8 ) :: KNC ! coefficient for Near Continuum regime ! modal geometric mean diameters: [ m ] REAL( 8 ) :: DGATK ! Aitken mode REAL( 8 ) :: DGACC ! accumulation mode ! modal geometric standard deviation: REAL( 8 ) :: SGATK ! Atken mode REAL( 8 ) :: SGACC ! accumulation mode ! natural log of modal geometric standard deviation: REAL( 8 ) :: XXLSGAT ! Aitken mode REAL( 8 ) :: XXLSGAC ! accumulation mode ! coagulation coefficients REAL( 8 ) :: QS11, QN11, QS22, QN22, & QS12, QS21, QN12, QV12 C *** Local Variables: INTEGER IBETA, N1, N2A, N2N ! indices for correction factors REAL( 8 ) :: I1FM_AT REAL( 8 ) :: I1NC_AT REAL( 8 ) :: I1_AT REAL( 8 ) :: I1FM_AC REAL( 8 ) :: I1NC_AC REAL( 8 ) :: I1_AC REAL( 8 ) :: I1FM REAL( 8 ) :: I1NC REAL( 8 ) :: I1 REAL( 8 ) :: CONSTII REAL( 8 ) :: KNGAT, KNGAC REAL( 8 ), PARAMETER :: ONE = 1.0D0, TWO = 2.0D0, HALF = 0.5D0 ! REAL( 8 ), PARAMETER :: A = 2.492D0 REAL( 8 ), PARAMETER :: A = 1.246D0 REAL( 8 ), PARAMETER :: TWO3RDS = 2.D0 / 3.D0 REAL( 8 ) :: SQRTTWO ! sqrt(2.0) REAL( 8 ) :: DLGSQT2 ! 1/ln( sqrt( 2.0 ) ) REAL( 8 ) :: ESAT01 ! Aitken mode exp( log^2( sigmag )/8 ) REAL( 8 ) :: ESAC01 ! accumulation mode exp( log^2( sigmag )/8 ) REAL( 8 ) :: ESAT04 REAL( 8 ) :: ESAC04 REAL( 8 ) :: ESAT05 REAL( 8 ) :: ESAC05 REAL( 8 ) :: ESAT08 REAL( 8 ) :: ESAC08 REAL( 8 ) :: ESAT09 REAL( 8 ) :: ESAC09 REAL( 8 ) :: ESAT16 REAL( 8 ) :: ESAC16 REAL( 8 ) :: ESAT20 REAL( 8 ) :: ESAC20 REAL( 8 ) :: ESAT24 REAL( 8 ) :: ESAC24 REAL( 8 ) :: ESAT25 REAL( 8 ) :: ESAC25 REAL( 8 ) :: ESAT36 REAL( 8 ) :: ESAC36 REAL( 8 ) :: ESAT49 REAL( 8 ) :: ESAT64 REAL( 8 ) :: ESAC64 REAL( 8 ) :: ESAT100 REAL( 8 ) :: DGAT2, DGAC2, DGAT3, DGAC3 REAL( 8 ) :: SQDGAT, SQDGAC REAL( 8 ) :: SQDGAT5, SQDGAC5 REAL( 8 ) :: SQDGAT7 REAL( 8 ) :: R, R2, R3, R4, R6 REAL( 8 ) :: RI1, RI2, RI3, RI4 REAL( 8 ) :: RAT REAL( 8 ) :: COAGFM0, COAGNC0 REAL( 8 ) :: COAGFM3, COAGNC3 REAL( 8 ) :: COAGFM_AT, COAGFM_AC REAL( 8 ) :: COAGNC_AT, COAGNC_AC REAL( 8 ) :: COAGATAT0 REAL( 8 ) :: COAGACAC0 REAL( 8 ) :: COAGATAT2 REAL( 8 ) :: COAGACAC2 REAL( 8 ) :: COAGATAC0, COAGATAC3 REAL( 8 ) :: COAGATAC2 REAL( 8 ) :: COAGACAT2 C *** correction factors for coagulation rates REAL :: BM0 ( 10 ) ! M0 INTRAmodal FM - RPM values REAL :: BM0IJ ( 10,10,10 ) ! M0 INTERmodal FM REAL :: BM3I ( 10,10,10 ) ! M3 INTERmodal FM- RPM values REAL :: BM2II ( 10 ) ! M2 INTRAmodal FM REAL :: BM2IITT( 10 ) ! M2 INTRAmodal total REAL :: BM2IJ ( 10,10,10 ) ! M2 INTERmodal FM i to j REAL :: BM2JI ( 10,10,10 ) ! M2 total INTERmodal j from i C *** populate the arrays for the correction factors. C RPM 0th moment correction factors for UNIMODAL FM coagulation rates DATA BM0 / & 0.707106785165097, 0.726148960080488, 0.766430744110958, & 0.814106389441342, 0.861679526483207, 0.903600509090092, & 0.936578814219156, 0.960098926735545, 0.975646823342881, & 0.985397173215326 / C FSB new FM correction factors for M0 INTERmodal coagulation DATA ( BM0IJ( 1, 1,IBETA ), IBETA = 1, 10 ) / & 0.628539, 0.639610, 0.664514, 0.696278, 0.731558, & 0.768211, 0.804480, 0.838830, 0.870024, 0.897248/ DATA ( BM0IJ( 1, 2,IBETA ), IBETA = 1, 10 ) / & 0.639178, 0.649966, 0.674432, 0.705794, 0.740642, & 0.776751, 0.812323, 0.845827, 0.876076, 0.902324/ DATA ( BM0IJ( 1, 3,IBETA ), IBETA = 1, 10 ) / & 0.663109, 0.673464, 0.697147, 0.727637, 0.761425, & 0.796155, 0.829978, 0.861419, 0.889424, 0.913417/ DATA ( BM0IJ( 1, 4,IBETA ), IBETA = 1, 10 ) / & 0.693693, 0.703654, 0.726478, 0.755786, 0.787980, & 0.820626, 0.851898, 0.880459, 0.905465, 0.926552/ DATA ( BM0IJ( 1, 5,IBETA ), IBETA = 1, 10 ) / & 0.727803, 0.737349, 0.759140, 0.786870, 0.816901, & 0.846813, 0.874906, 0.900060, 0.921679, 0.939614/ DATA ( BM0IJ( 1, 6,IBETA ), IBETA = 1, 10 ) / & 0.763461, 0.772483, 0.792930, 0.818599, 0.845905, & 0.872550, 0.897051, 0.918552, 0.936701, 0.951528/ DATA ( BM0IJ( 1, 7,IBETA ), IBETA = 1, 10 ) / & 0.799021, 0.807365, 0.826094, 0.849230, 0.873358, & 0.896406, 0.917161, 0.935031, 0.949868, 0.961828/ DATA ( BM0IJ( 1, 8,IBETA ), IBETA = 1, 10 ) / & 0.833004, 0.840514, 0.857192, 0.877446, 0.898147, & 0.917518, 0.934627, 0.949106, 0.960958, 0.970403/ DATA ( BM0IJ( 1, 9,IBETA ), IBETA = 1, 10 ) / & 0.864172, 0.870734, 0.885153, 0.902373, 0.919640, & 0.935494, 0.949257, 0.960733, 0.970016, 0.977346/ DATA ( BM0IJ( 1, 10,IBETA ), IBETA = 1, 10 ) / & 0.891658, 0.897227, 0.909343, 0.923588, 0.937629, & 0.950307, 0.961151, 0.970082, 0.977236, 0.982844/ DATA ( BM0IJ( 2, 1,IBETA ), IBETA = 1, 10 ) / & 0.658724, 0.670587, 0.697539, 0.731890, 0.769467, & 0.807391, 0.843410, 0.875847, 0.903700, 0.926645/ DATA ( BM0IJ( 2, 2,IBETA ), IBETA = 1, 10 ) / & 0.667070, 0.678820, 0.705538, 0.739591, 0.776758, & 0.814118, 0.849415, 0.881020, 0.908006, 0.930121/ DATA ( BM0IJ( 2, 3,IBETA ), IBETA = 1, 10 ) / & 0.686356, 0.697839, 0.723997, 0.757285, 0.793389, & 0.829313, 0.862835, 0.892459, 0.917432, 0.937663/ DATA ( BM0IJ( 2, 4,IBETA ), IBETA = 1, 10 ) / & 0.711425, 0.722572, 0.747941, 0.780055, 0.814518, & 0.848315, 0.879335, 0.906290, 0.928658, 0.946526/ DATA ( BM0IJ( 2, 5,IBETA ), IBETA = 1, 10 ) / & 0.739575, 0.750307, 0.774633, 0.805138, 0.837408, & 0.868504, 0.896517, 0.920421, 0.939932, 0.955299/ DATA ( BM0IJ( 2, 6,IBETA ), IBETA = 1, 10 ) / & 0.769143, 0.779346, 0.802314, 0.830752, 0.860333, & 0.888300, 0.913014, 0.933727, 0.950370, 0.963306/ DATA ( BM0IJ( 2, 7,IBETA ), IBETA = 1, 10 ) / & 0.798900, 0.808431, 0.829700, 0.855653, 0.882163, & 0.906749, 0.928075, 0.945654, 0.959579, 0.970280/ DATA ( BM0IJ( 2, 8,IBETA ), IBETA = 1, 10 ) / & 0.827826, 0.836542, 0.855808, 0.878954, 0.902174, & 0.923316, 0.941345, 0.955989, 0.967450, 0.976174/ DATA ( BM0IJ( 2, 9,IBETA ), IBETA = 1, 10 ) / & 0.855068, 0.862856, 0.879900, 0.900068, 0.919956, & 0.937764, 0.952725, 0.964726, 0.974027, 0.981053/ DATA ( BM0IJ( 2, 10,IBETA ), IBETA = 1, 10 ) / & 0.879961, 0.886755, 0.901484, 0.918665, 0.935346, & 0.950065, 0.962277, 0.971974, 0.979432, 0.985033/ DATA ( BM0IJ( 3, 1,IBETA ), IBETA = 1, 10 ) / & 0.724166, 0.735474, 0.761359, 0.794045, 0.828702, & 0.862061, 0.891995, 0.917385, 0.937959, 0.954036/ DATA ( BM0IJ( 3, 2,IBETA ), IBETA = 1, 10 ) / & 0.730416, 0.741780, 0.767647, 0.800116, 0.834344, & 0.867093, 0.896302, 0.920934, 0.940790, 0.956237/ DATA ( BM0IJ( 3, 3,IBETA ), IBETA = 1, 10 ) / & 0.745327, 0.756664, 0.782255, 0.814026, 0.847107, & 0.878339, 0.905820, 0.928699, 0.946931, 0.960977/ DATA ( BM0IJ( 3, 4,IBETA ), IBETA = 1, 10 ) / & 0.765195, 0.776312, 0.801216, 0.831758, 0.863079, & 0.892159, 0.917319, 0.937939, 0.954145, 0.966486/ DATA ( BM0IJ( 3, 5,IBETA ), IBETA = 1, 10 ) / & 0.787632, 0.798347, 0.822165, 0.850985, 0.880049, & 0.906544, 0.929062, 0.947218, 0.961288, 0.971878/ DATA ( BM0IJ( 3, 6,IBETA ), IBETA = 1, 10 ) / & 0.811024, 0.821179, 0.843557, 0.870247, 0.896694, & 0.920365, 0.940131, 0.955821, 0.967820, 0.976753/ DATA ( BM0IJ( 3, 7,IBETA ), IBETA = 1, 10 ) / & 0.834254, 0.843709, 0.864356, 0.888619, 0.912245, & 0.933019, 0.950084, 0.963438, 0.973530, 0.980973/ DATA ( BM0IJ( 3, 8,IBETA ), IBETA = 1, 10 ) / & 0.856531, 0.865176, 0.883881, 0.905544, 0.926290, & 0.944236, 0.958762, 0.969988, 0.978386, 0.984530/ DATA ( BM0IJ( 3, 9,IBETA ), IBETA = 1, 10 ) / & 0.877307, 0.885070, 0.901716, 0.920729, 0.938663, & 0.953951, 0.966169, 0.975512, 0.982442, 0.987477/ DATA ( BM0IJ( 3, 10,IBETA ), IBETA = 1, 10 ) / & 0.896234, 0.903082, 0.917645, 0.934069, 0.949354, & 0.962222, 0.972396, 0.980107, 0.985788, 0.989894/ DATA ( BM0IJ( 4, 1,IBETA ), IBETA = 1, 10 ) / & 0.799294, 0.809144, 0.831293, 0.858395, 0.885897, & 0.911031, 0.932406, 0.949642, 0.963001, 0.973062/ DATA ( BM0IJ( 4, 2,IBETA ), IBETA = 1, 10 ) / & 0.804239, 0.814102, 0.836169, 0.862984, 0.890003, & 0.914535, 0.935274, 0.951910, 0.964748, 0.974381/ DATA ( BM0IJ( 4, 3,IBETA ), IBETA = 1, 10 ) / & 0.815910, 0.825708, 0.847403, 0.873389, 0.899185, & 0.922275, 0.941543, 0.956826, 0.968507, 0.977204/ DATA ( BM0IJ( 4, 4,IBETA ), IBETA = 1, 10 ) / & 0.831348, 0.840892, 0.861793, 0.886428, 0.910463, & 0.931614, 0.948993, 0.962593, 0.972872, 0.980456/ DATA ( BM0IJ( 4, 5,IBETA ), IBETA = 1, 10 ) / & 0.848597, 0.857693, 0.877402, 0.900265, 0.922180, & 0.941134, 0.956464, 0.968298, 0.977143, 0.983611/ DATA ( BM0IJ( 4, 6,IBETA ), IBETA = 1, 10 ) / & 0.866271, 0.874764, 0.892984, 0.913796, 0.933407, & 0.950088, 0.963380, 0.973512, 0.981006, 0.986440/ DATA ( BM0IJ( 4, 7,IBETA ), IBETA = 1, 10 ) / & 0.883430, 0.891216, 0.907762, 0.926388, 0.943660, & 0.958127, 0.969499, 0.978070, 0.984351, 0.988872/ DATA ( BM0IJ( 4, 8,IBETA ), IBETA = 1, 10 ) / & 0.899483, 0.906505, 0.921294, 0.937719, 0.952729, & 0.965131, 0.974762, 0.981950, 0.987175, 0.990912/ DATA ( BM0IJ( 4, 9,IBETA ), IBETA = 1, 10 ) / & 0.914096, 0.920337, 0.933373, 0.947677, 0.960579, & 0.971111, 0.979206, 0.985196, 0.989520, 0.992597/ DATA ( BM0IJ( 4, 10,IBETA ), IBETA = 1, 10 ) / & 0.927122, 0.932597, 0.943952, 0.956277, 0.967268, & 0.976147, 0.982912, 0.987882, 0.991450, 0.993976/ DATA ( BM0IJ( 5, 1,IBETA ), IBETA = 1, 10 ) / & 0.865049, 0.872851, 0.889900, 0.909907, 0.929290, & 0.946205, 0.959991, 0.970706, 0.978764, 0.984692/ DATA ( BM0IJ( 5, 2,IBETA ), IBETA = 1, 10 ) / & 0.868989, 0.876713, 0.893538, 0.913173, 0.932080, & 0.948484, 0.961785, 0.972080, 0.979796, 0.985457/ DATA ( BM0IJ( 5, 3,IBETA ), IBETA = 1, 10 ) / & 0.878010, 0.885524, 0.901756, 0.920464, 0.938235, & 0.953461, 0.965672, 0.975037, 0.982005, 0.987085/ DATA ( BM0IJ( 5, 4,IBETA ), IBETA = 1, 10 ) / & 0.889534, 0.896698, 0.912012, 0.929395, 0.945647, & 0.959366, 0.970227, 0.978469, 0.984547, 0.988950/ DATA ( BM0IJ( 5, 5,IBETA ), IBETA = 1, 10 ) / & 0.902033, 0.908713, 0.922848, 0.938648, 0.953186, & 0.965278, 0.974729, 0.981824, 0.987013, 0.990746/ DATA ( BM0IJ( 5, 6,IBETA ), IBETA = 1, 10 ) / & 0.914496, 0.920599, 0.933389, 0.947485, 0.960262, & 0.970743, 0.978839, 0.984858, 0.989225, 0.992348/ DATA ( BM0IJ( 5, 7,IBETA ), IBETA = 1, 10 ) / & 0.926281, 0.931761, 0.943142, 0.955526, 0.966600, & 0.975573, 0.982431, 0.987485, 0.991128, 0.993718/ DATA ( BM0IJ( 5, 8,IBETA ), IBETA = 1, 10 ) / & 0.937029, 0.941877, 0.951868, 0.962615, 0.972112, & 0.979723, 0.985488, 0.989705, 0.992725, 0.994863/ DATA ( BM0IJ( 5, 9,IBETA ), IBETA = 1, 10 ) / & 0.946580, 0.950819, 0.959494, 0.968732, 0.976811, & 0.983226, 0.988047, 0.991550, 0.994047, 0.995806/ DATA ( BM0IJ( 5, 10,IBETA ), IBETA = 1, 10 ) / & 0.954909, 0.958581, 0.966049, 0.973933, 0.980766, & 0.986149, 0.990166, 0.993070, 0.995130, 0.996577/ DATA ( BM0IJ( 6, 1,IBETA ), IBETA = 1, 10 ) / & 0.914182, 0.919824, 0.931832, 0.945387, 0.957999, & 0.968606, 0.976982, 0.983331, 0.988013, 0.991407/ DATA ( BM0IJ( 6, 2,IBETA ), IBETA = 1, 10 ) / & 0.917139, 0.922665, 0.934395, 0.947580, 0.959792, & 0.970017, 0.978062, 0.984138, 0.988609, 0.991843/ DATA ( BM0IJ( 6, 3,IBETA ), IBETA = 1, 10 ) / & 0.923742, 0.928990, 0.940064, 0.952396, 0.963699, & 0.973070, 0.980381, 0.985866, 0.989878, 0.992768/ DATA ( BM0IJ( 6, 4,IBETA ), IBETA = 1, 10 ) / & 0.931870, 0.936743, 0.946941, 0.958162, 0.968318, & 0.976640, 0.983069, 0.987853, 0.991330, 0.993822/ DATA ( BM0IJ( 6, 5,IBETA ), IBETA = 1, 10 ) / & 0.940376, 0.944807, 0.954004, 0.963999, 0.972928, & 0.980162, 0.985695, 0.989779, 0.992729, 0.994833/ DATA ( BM0IJ( 6, 6,IBETA ), IBETA = 1, 10 ) / & 0.948597, 0.952555, 0.960703, 0.969454, 0.977181, & 0.983373, 0.988067, 0.991507, 0.993977, 0.995730/ DATA ( BM0IJ( 6, 7,IBETA ), IBETA = 1, 10 ) / & 0.956167, 0.959648, 0.966763, 0.974326, 0.980933, & 0.986177, 0.990121, 0.992993, 0.995045, 0.996495/ DATA ( BM0IJ( 6, 8,IBETA ), IBETA = 1, 10 ) / & 0.962913, 0.965937, 0.972080, 0.978552, 0.984153, & 0.988563, 0.991857, 0.994242, 0.995938, 0.997133/ DATA ( BM0IJ( 6, 9,IBETA ), IBETA = 1, 10 ) / & 0.968787, 0.971391, 0.976651, 0.982148, 0.986869, & 0.990560, 0.993301, 0.995275, 0.996675, 0.997657/ DATA ( BM0IJ( 6, 10,IBETA ), IBETA = 1, 10 ) / & 0.973822, 0.976047, 0.980523, 0.985170, 0.989134, & 0.992215, 0.994491, 0.996124, 0.997277, 0.998085/ DATA ( BM0IJ( 7, 1,IBETA ), IBETA = 1, 10 ) / & 0.947410, 0.951207, 0.959119, 0.967781, 0.975592, & 0.981981, 0.986915, 0.990590, 0.993266, 0.995187/ DATA ( BM0IJ( 7, 2,IBETA ), IBETA = 1, 10 ) / & 0.949477, 0.953161, 0.960824, 0.969187, 0.976702, & 0.982831, 0.987550, 0.991057, 0.993606, 0.995434/ DATA ( BM0IJ( 7, 3,IBETA ), IBETA = 1, 10 ) / & 0.954008, 0.957438, 0.964537, 0.972232, 0.979095, & 0.984653, 0.988907, 0.992053, 0.994330, 0.995958/ DATA ( BM0IJ( 7, 4,IBETA ), IBETA = 1, 10 ) / & 0.959431, 0.962539, 0.968935, 0.975808, 0.981882, & 0.986759, 0.990466, 0.993190, 0.995153, 0.996552/ DATA ( BM0IJ( 7, 5,IBETA ), IBETA = 1, 10 ) / & 0.964932, 0.967693, 0.973342, 0.979355, 0.984620, & 0.988812, 0.991974, 0.994285, 0.995943, 0.997119/ DATA ( BM0IJ( 7, 6,IBETA ), IBETA = 1, 10 ) / & 0.970101, 0.972517, 0.977428, 0.982612, 0.987110, & 0.990663, 0.993326, 0.995261, 0.996644, 0.997621/ DATA ( BM0IJ( 7, 7,IBETA ), IBETA = 1, 10 ) / & 0.974746, 0.976834, 0.981055, 0.985475, 0.989280, & 0.992265, 0.994488, 0.996097, 0.997241, 0.998048/ DATA ( BM0IJ( 7, 8,IBETA ), IBETA = 1, 10 ) / & 0.978804, 0.980591, 0.984187, 0.987927, 0.991124, & 0.993617, 0.995464, 0.996795, 0.997739, 0.998403/ DATA ( BM0IJ( 7, 9,IBETA ), IBETA = 1, 10 ) / & 0.982280, 0.983799, 0.986844, 0.989991, 0.992667, & 0.994742, 0.996273, 0.997372, 0.998149, 0.998695/ DATA ( BM0IJ( 7, 10,IBETA ), IBETA = 1, 10 ) / & 0.985218, 0.986503, 0.989071, 0.991711, 0.993945, & 0.995669, 0.996937, 0.997844, 0.998484, 0.998932/ DATA ( BM0IJ( 8, 1,IBETA ), IBETA = 1, 10 ) / & 0.968507, 0.970935, 0.975916, 0.981248, 0.985947, & 0.989716, 0.992580, 0.994689, 0.996210, 0.997297/ DATA ( BM0IJ( 8, 2,IBETA ), IBETA = 1, 10 ) / & 0.969870, 0.972210, 0.977002, 0.982119, 0.986619, & 0.990219, 0.992951, 0.994958, 0.996405, 0.997437/ DATA ( BM0IJ( 8, 3,IBETA ), IBETA = 1, 10 ) / & 0.972820, 0.974963, 0.979339, 0.983988, 0.988054, & 0.991292, 0.993738, 0.995529, 0.996817, 0.997734/ DATA ( BM0IJ( 8, 4,IBETA ), IBETA = 1, 10 ) / & 0.976280, 0.978186, 0.982060, 0.986151, 0.989706, & 0.992520, 0.994636, 0.996179, 0.997284, 0.998069/ DATA ( BM0IJ( 8, 5,IBETA ), IBETA = 1, 10 ) / & 0.979711, 0.981372, 0.984735, 0.988263, 0.991309, & 0.993706, 0.995499, 0.996801, 0.997730, 0.998389/ DATA ( BM0IJ( 8, 6,IBETA ), IBETA = 1, 10 ) / & 0.982863, 0.984292, 0.987172, 0.990174, 0.992750, & 0.994766, 0.996266, 0.997352, 0.998125, 0.998670/ DATA ( BM0IJ( 8, 7,IBETA ), IBETA = 1, 10 ) / & 0.985642, 0.986858, 0.989301, 0.991834, 0.993994, & 0.995676, 0.996923, 0.997822, 0.998460, 0.998910/ DATA ( BM0IJ( 8, 8,IBETA ), IBETA = 1, 10 ) / & 0.988029, 0.989058, 0.991116, 0.993240, 0.995043, & 0.996440, 0.997472, 0.998214, 0.998739, 0.999108/ DATA ( BM0IJ( 8, 9,IBETA ), IBETA = 1, 10 ) / & 0.990046, 0.990912, 0.992640, 0.994415, 0.995914, & 0.997073, 0.997925, 0.998536, 0.998968, 0.999271/ DATA ( BM0IJ( 8, 10,IBETA ), IBETA = 1, 10 ) / & 0.991732, 0.992459, 0.993906, 0.995386, 0.996633, & 0.997592, 0.998296, 0.998799, 0.999154, 0.999403/ DATA ( BM0IJ( 9, 1,IBETA ), IBETA = 1, 10 ) / & 0.981392, 0.982893, 0.985938, 0.989146, 0.991928, & 0.994129, 0.995783, 0.996991, 0.997857, 0.998473/ DATA ( BM0IJ( 9, 2,IBETA ), IBETA = 1, 10 ) / & 0.982254, 0.983693, 0.986608, 0.989673, 0.992328, & 0.994424, 0.995998, 0.997146, 0.997969, 0.998553/ DATA ( BM0IJ( 9, 3,IBETA ), IBETA = 1, 10 ) / & 0.984104, 0.985407, 0.988040, 0.990798, 0.993178, & 0.995052, 0.996454, 0.997474, 0.998204, 0.998722/ DATA ( BM0IJ( 9, 4,IBETA ), IBETA = 1, 10 ) / & 0.986243, 0.987386, 0.989687, 0.992087, 0.994149, & 0.995765, 0.996971, 0.997846, 0.998470, 0.998913/ DATA ( BM0IJ( 9, 5,IBETA ), IBETA = 1, 10 ) / & 0.988332, 0.989313, 0.991284, 0.993332, 0.995082, & 0.996449, 0.997465, 0.998200, 0.998723, 0.999093/ DATA ( BM0IJ( 9, 6,IBETA ), IBETA = 1, 10 ) / & 0.990220, 0.991053, 0.992721, 0.994445, 0.995914, & 0.997056, 0.997902, 0.998513, 0.998947, 0.999253/ DATA ( BM0IJ( 9, 7,IBETA ), IBETA = 1, 10 ) / & 0.991859, 0.992561, 0.993961, 0.995403, 0.996626, & 0.997574, 0.998274, 0.998778, 0.999136, 0.999387/ DATA ( BM0IJ( 9, 8,IBETA ), IBETA = 1, 10 ) / & 0.993250, 0.993837, 0.995007, 0.996208, 0.997223, & 0.998007, 0.998584, 0.998999, 0.999293, 0.999499/ DATA ( BM0IJ( 9, 9,IBETA ), IBETA = 1, 10 ) / & 0.994413, 0.994903, 0.995878, 0.996876, 0.997716, & 0.998363, 0.998839, 0.999180, 0.999421, 0.999591/ DATA ( BM0IJ( 9, 10,IBETA ), IBETA = 1, 10 ) / & 0.995376, 0.995785, 0.996597, 0.997425, 0.998121, & 0.998655, 0.999048, 0.999328, 0.999526, 0.999665/ DATA ( BM0IJ( 10, 1,IBETA ), IBETA = 1, 10 ) / & 0.989082, 0.989991, 0.991819, 0.993723, 0.995357, & 0.996637, 0.997592, 0.998286, 0.998781, 0.999132/ DATA ( BM0IJ( 10, 2,IBETA ), IBETA = 1, 10 ) / & 0.989613, 0.990480, 0.992224, 0.994039, 0.995594, & 0.996810, 0.997717, 0.998375, 0.998845, 0.999178/ DATA ( BM0IJ( 10, 3,IBETA ), IBETA = 1, 10 ) / & 0.990744, 0.991523, 0.993086, 0.994708, 0.996094, & 0.997176, 0.997981, 0.998564, 0.998980, 0.999274/ DATA ( BM0IJ( 10, 4,IBETA ), IBETA = 1, 10 ) / & 0.992041, 0.992716, 0.994070, 0.995470, 0.996662, & 0.997591, 0.998280, 0.998778, 0.999133, 0.999383/ DATA ( BM0IJ( 10, 5,IBETA ), IBETA = 1, 10 ) / & 0.993292, 0.993867, 0.995015, 0.996199, 0.997205, & 0.997985, 0.998564, 0.998981, 0.999277, 0.999487/ DATA ( BM0IJ( 10, 6,IBETA ), IBETA = 1, 10 ) / & 0.994411, 0.994894, 0.995857, 0.996847, 0.997685, & 0.998334, 0.998814, 0.999159, 0.999404, 0.999577/ DATA ( BM0IJ( 10, 7,IBETA ), IBETA = 1, 10 ) / & 0.995373, 0.995776, 0.996577, 0.997400, 0.998094, & 0.998630, 0.999026, 0.999310, 0.999512, 0.999654/ DATA ( BM0IJ( 10, 8,IBETA ), IBETA = 1, 10 ) / & 0.996181, 0.996516, 0.997181, 0.997861, 0.998435, & 0.998877, 0.999202, 0.999435, 0.999601, 0.999717/ DATA ( BM0IJ( 10, 9,IBETA ), IBETA = 1, 10 ) / & 0.996851, 0.997128, 0.997680, 0.998242, 0.998715, & 0.999079, 0.999346, 0.999538, 0.999673, 0.999769/ DATA ( BM0IJ( 10, 10,IBETA ), IBETA = 1, 10 ) / & 0.997402, 0.997632, 0.998089, 0.998554, 0.998945, & 0.999244, 0.999464, 0.999622, 0.999733, 0.999811/ C RPM.... 3rd moment nuclei mode corr. fac. for bimodal FM coag rate DATA ( BM3I( 1, 1,IBETA ), IBETA = 1, 10 ) / + 0.70708,0.71681,0.73821,0.76477,0.79350,0.82265,0.85090,0.87717, + 0.90069,0.92097/ DATA ( BM3I( 1, 2,IBETA ), IBETA = 1, 10 ) / + 0.72172,0.73022,0.74927,0.77324,0.79936,0.82601,0.85199,0.87637, + 0.89843,0.91774/ DATA ( BM3I( 1, 3,IBETA ), IBETA = 1, 10 ) / + 0.78291,0.78896,0.80286,0.82070,0.84022,0.85997,0.87901,0.89669, + 0.91258,0.92647/ DATA ( BM3I( 1, 4,IBETA ), IBETA = 1, 10 ) / + 0.87760,0.88147,0.89025,0.90127,0.91291,0.92420,0.93452,0.94355, + 0.95113,0.95726/ DATA ( BM3I( 1, 5,IBETA ), IBETA = 1, 10 ) / + 0.94988,0.95184,0.95612,0.96122,0.96628,0.97085,0.97467,0.97763, + 0.97971,0.98089/ DATA ( BM3I( 1, 6,IBETA ), IBETA = 1, 10 ) / + 0.98318,0.98393,0.98551,0.98728,0.98889,0.99014,0.99095,0.99124, + 0.99100,0.99020/ DATA ( BM3I( 1, 7,IBETA ), IBETA = 1, 10 ) / + 0.99480,0.99504,0.99551,0.99598,0.99629,0.99635,0.99611,0.99550, + 0.99450,0.99306/ DATA ( BM3I( 1, 8,IBETA ), IBETA = 1, 10 ) / + 0.99842,0.99848,0.99858,0.99861,0.99850,0.99819,0.99762,0.99674, + 0.99550,0.99388/ DATA ( BM3I( 1, 9,IBETA ), IBETA = 1, 10 ) / + 0.99951,0.99951,0.99949,0.99939,0.99915,0.99872,0.99805,0.99709, + 0.99579,0.99411/ DATA ( BM3I( 1,10,IBETA ), IBETA = 1, 10 ) / + 0.99984,0.99982,0.99976,0.99962,0.99934,0.99888,0.99818,0.99719, + 0.99587,0.99417/ DATA ( BM3I( 2, 1,IBETA ), IBETA = 1, 10 ) / + 0.72957,0.73993,0.76303,0.79178,0.82245,0.85270,0.88085,0.90578, + 0.92691,0.94415/ DATA ( BM3I( 2, 2,IBETA ), IBETA = 1, 10 ) / + 0.72319,0.73320,0.75547,0.78323,0.81307,0.84287,0.87107,0.89651, + 0.91852,0.93683/ DATA ( BM3I( 2, 3,IBETA ), IBETA = 1, 10 ) / + 0.74413,0.75205,0.76998,0.79269,0.81746,0.84258,0.86685,0.88938, + 0.90953,0.92695/ DATA ( BM3I( 2, 4,IBETA ), IBETA = 1, 10 ) / + 0.82588,0.83113,0.84309,0.85825,0.87456,0.89072,0.90594,0.91972, + 0.93178,0.94203/ DATA ( BM3I( 2, 5,IBETA ), IBETA = 1, 10 ) / + 0.91886,0.92179,0.92831,0.93624,0.94434,0.95192,0.95856,0.96409, + 0.96845,0.97164/ DATA ( BM3I( 2, 6,IBETA ), IBETA = 1, 10 ) / + 0.97129,0.97252,0.97515,0.97818,0.98108,0.98354,0.98542,0.98665, + 0.98721,0.98709/ DATA ( BM3I( 2, 7,IBETA ), IBETA = 1, 10 ) / + 0.99104,0.99145,0.99230,0.99320,0.99394,0.99439,0.99448,0.99416, + 0.99340,0.99217/ DATA ( BM3I( 2, 8,IBETA ), IBETA = 1, 10 ) / + 0.99730,0.99741,0.99763,0.99779,0.99782,0.99762,0.99715,0.99636, + 0.99519,0.99363/ DATA ( BM3I( 2, 9,IBETA ), IBETA = 1, 10 ) / + 0.99917,0.99919,0.99921,0.99915,0.99895,0.99856,0.99792,0.99698, + 0.99570,0.99404/ DATA ( BM3I( 2,10,IBETA ), IBETA = 1, 10 ) / + 0.99973,0.99973,0.99968,0.99955,0.99928,0.99883,0.99814,0.99716, + 0.99584,0.99415/ DATA ( BM3I( 3, 1,IBETA ), IBETA = 1, 10 ) / + 0.78358,0.79304,0.81445,0.84105,0.86873,0.89491,0.91805,0.93743, + 0.95300,0.96510/ DATA ( BM3I( 3, 2,IBETA ), IBETA = 1, 10 ) / + 0.76412,0.77404,0.79635,0.82404,0.85312,0.88101,0.90610,0.92751, + 0.94500,0.95879/ DATA ( BM3I( 3, 3,IBETA ), IBETA = 1, 10 ) / + 0.74239,0.75182,0.77301,0.79956,0.82809,0.85639,0.88291,0.90658, + 0.92683,0.94350/ DATA ( BM3I( 3, 4,IBETA ), IBETA = 1, 10 ) / + 0.78072,0.78758,0.80317,0.82293,0.84437,0.86589,0.88643,0.90526, + 0.92194,0.93625/ DATA ( BM3I( 3, 5,IBETA ), IBETA = 1, 10 ) / + 0.87627,0.88044,0.88981,0.90142,0.91357,0.92524,0.93585,0.94510, + 0.95285,0.95911/ DATA ( BM3I( 3, 6,IBETA ), IBETA = 1, 10 ) / + 0.95176,0.95371,0.95796,0.96297,0.96792,0.97233,0.97599,0.97880, + 0.98072,0.98178/ DATA ( BM3I( 3, 7,IBETA ), IBETA = 1, 10 ) / + 0.98453,0.98523,0.98670,0.98833,0.98980,0.99092,0.99160,0.99179, + 0.99145,0.99058/ DATA ( BM3I( 3, 8,IBETA ), IBETA = 1, 10 ) / + 0.99534,0.99555,0.99597,0.99637,0.99662,0.99663,0.99633,0.99569, + 0.99465,0.99318/ DATA ( BM3I( 3, 9,IBETA ), IBETA = 1, 10 ) / + 0.99859,0.99864,0.99872,0.99873,0.99860,0.99827,0.99768,0.99679, + 0.99555,0.99391/ DATA ( BM3I( 3,10,IBETA ), IBETA = 1, 10 ) / + 0.99956,0.99956,0.99953,0.99942,0.99918,0.99875,0.99807,0.99711, + 0.99580,0.99412/ DATA ( BM3I( 4, 1,IBETA ), IBETA = 1, 10 ) / + 0.84432,0.85223,0.86990,0.89131,0.91280,0.93223,0.94861,0.96172, + 0.97185,0.97945/ DATA ( BM3I( 4, 2,IBETA ), IBETA = 1, 10 ) / + 0.82299,0.83164,0.85101,0.87463,0.89857,0.92050,0.93923,0.95443, + 0.96629,0.97529/ DATA ( BM3I( 4, 3,IBETA ), IBETA = 1, 10 ) / + 0.77870,0.78840,0.81011,0.83690,0.86477,0.89124,0.91476,0.93460, + 0.95063,0.96316/ DATA ( BM3I( 4, 4,IBETA ), IBETA = 1, 10 ) / + 0.76386,0.77233,0.79147,0.81557,0.84149,0.86719,0.89126,0.91275, + 0.93116,0.94637/ DATA ( BM3I( 4, 5,IBETA ), IBETA = 1, 10 ) / + 0.82927,0.83488,0.84756,0.86346,0.88040,0.89704,0.91257,0.92649, + 0.93857,0.94874/ DATA ( BM3I( 4, 6,IBETA ), IBETA = 1, 10 ) / + 0.92184,0.92481,0.93136,0.93925,0.94724,0.95462,0.96104,0.96634, + 0.97048,0.97348/ DATA ( BM3I( 4, 7,IBETA ), IBETA = 1, 10 ) / + 0.97341,0.97457,0.97706,0.97991,0.98260,0.98485,0.98654,0.98760, + 0.98801,0.98777/ DATA ( BM3I( 4, 8,IBETA ), IBETA = 1, 10 ) / + 0.99192,0.99229,0.99305,0.99385,0.99449,0.99486,0.99487,0.99449, + 0.99367,0.99239/ DATA ( BM3I( 4, 9,IBETA ), IBETA = 1, 10 ) / + 0.99758,0.99768,0.99787,0.99800,0.99799,0.99777,0.99727,0.99645, + 0.99527,0.99369/ DATA ( BM3I( 4,10,IBETA ), IBETA = 1, 10 ) / + 0.99926,0.99928,0.99928,0.99921,0.99900,0.99860,0.99795,0.99701, + 0.99572,0.99405/ DATA ( BM3I( 5, 1,IBETA ), IBETA = 1, 10 ) / + 0.89577,0.90190,0.91522,0.93076,0.94575,0.95876,0.96932,0.97751, + 0.98367,0.98820/ DATA ( BM3I( 5, 2,IBETA ), IBETA = 1, 10 ) / + 0.87860,0.88547,0.90052,0.91828,0.93557,0.95075,0.96319,0.97292, + 0.98028,0.98572/ DATA ( BM3I( 5, 3,IBETA ), IBETA = 1, 10 ) / + 0.83381,0.84240,0.86141,0.88425,0.90707,0.92770,0.94510,0.95906, + 0.96986,0.97798/ DATA ( BM3I( 5, 4,IBETA ), IBETA = 1, 10 ) / + 0.78530,0.79463,0.81550,0.84127,0.86813,0.89367,0.91642,0.93566, + 0.95125,0.96347/ DATA ( BM3I( 5, 5,IBETA ), IBETA = 1, 10 ) / + 0.79614,0.80332,0.81957,0.84001,0.86190,0.88351,0.90368,0.92169, + 0.93718,0.95006/ DATA ( BM3I( 5, 6,IBETA ), IBETA = 1, 10 ) / + 0.88192,0.88617,0.89565,0.90728,0.91931,0.93076,0.94107,0.94997, + 0.95739,0.96333/ DATA ( BM3I( 5, 7,IBETA ), IBETA = 1, 10 ) / + 0.95509,0.95698,0.96105,0.96583,0.97048,0.97460,0.97796,0.98050, + 0.98218,0.98304/ DATA ( BM3I( 5, 8,IBETA ), IBETA = 1, 10 ) / + 0.98596,0.98660,0.98794,0.98943,0.99074,0.99172,0.99227,0.99235, + 0.99192,0.99096/ DATA ( BM3I( 5, 9,IBETA ), IBETA = 1, 10 ) / + 0.99581,0.99600,0.99637,0.99672,0.99691,0.99687,0.99653,0.99585, + 0.99478,0.99329/ DATA ( BM3I( 5,10,IBETA ), IBETA = 1, 10 ) / + 0.99873,0.99878,0.99884,0.99883,0.99869,0.99834,0.99774,0.99684, + 0.99558,0.99394/ DATA ( BM3I( 6, 1,IBETA ), IBETA = 1, 10 ) / + 0.93335,0.93777,0.94711,0.95764,0.96741,0.97562,0.98210,0.98701, + 0.99064,0.99327/ DATA ( BM3I( 6, 2,IBETA ), IBETA = 1, 10 ) / + 0.92142,0.92646,0.93723,0.94947,0.96096,0.97069,0.97842,0.98431, + 0.98868,0.99186/ DATA ( BM3I( 6, 3,IBETA ), IBETA = 1, 10 ) / + 0.88678,0.89351,0.90810,0.92508,0.94138,0.95549,0.96693,0.97578, + 0.98243,0.98731/ DATA ( BM3I( 6, 4,IBETA ), IBETA = 1, 10 ) / + 0.83249,0.84124,0.86051,0.88357,0.90655,0.92728,0.94477,0.95880, + 0.96964,0.97779/ DATA ( BM3I( 6, 5,IBETA ), IBETA = 1, 10 ) / + 0.79593,0.80444,0.82355,0.84725,0.87211,0.89593,0.91735,0.93566, + 0.95066,0.96255/ DATA ( BM3I( 6, 6,IBETA ), IBETA = 1, 10 ) / + 0.84124,0.84695,0.85980,0.87575,0.89256,0.90885,0.92383,0.93704, + 0.94830,0.95761/ DATA ( BM3I( 6, 7,IBETA ), IBETA = 1, 10 ) / + 0.92721,0.93011,0.93647,0.94406,0.95166,0.95862,0.96460,0.96949, + 0.97326,0.97595/ DATA ( BM3I( 6, 8,IBETA ), IBETA = 1, 10 ) / + 0.97573,0.97681,0.97913,0.98175,0.98421,0.98624,0.98772,0.98860, + 0.98885,0.98847/ DATA ( BM3I( 6, 9,IBETA ), IBETA = 1, 10 ) / + 0.99271,0.99304,0.99373,0.99444,0.99499,0.99528,0.99522,0.99477, + 0.99390,0.99258/ DATA ( BM3I( 6,10,IBETA ), IBETA = 1, 10 ) / + 0.99782,0.99791,0.99807,0.99817,0.99813,0.99788,0.99737,0.99653, + 0.99533,0.99374/ DATA ( BM3I( 7, 1,IBETA ), IBETA = 1, 10 ) / + 0.95858,0.96158,0.96780,0.97460,0.98073,0.98575,0.98963,0.99252, + 0.99463,0.99615/ DATA ( BM3I( 7, 2,IBETA ), IBETA = 1, 10 ) / + 0.95091,0.95438,0.96163,0.96962,0.97688,0.98286,0.98751,0.99099, + 0.99353,0.99536/ DATA ( BM3I( 7, 3,IBETA ), IBETA = 1, 10 ) / + 0.92751,0.93233,0.94255,0.95406,0.96473,0.97366,0.98070,0.98602, + 0.98994,0.99278/ DATA ( BM3I( 7, 4,IBETA ), IBETA = 1, 10 ) / + 0.88371,0.89075,0.90595,0.92351,0.94028,0.95474,0.96642,0.97544, + 0.98220,0.98715/ DATA ( BM3I( 7, 5,IBETA ), IBETA = 1, 10 ) / + 0.82880,0.83750,0.85671,0.87980,0.90297,0.92404,0.94195,0.95644, + 0.96772,0.97625/ DATA ( BM3I( 7, 6,IBETA ), IBETA = 1, 10 ) / + 0.81933,0.82655,0.84279,0.86295,0.88412,0.90449,0.92295,0.93890, + 0.95215,0.96281/ DATA ( BM3I( 7, 7,IBETA ), IBETA = 1, 10 ) / + 0.89099,0.89519,0.90448,0.91577,0.92732,0.93820,0.94789,0.95616, + 0.96297,0.96838/ DATA ( BM3I( 7, 8,IBETA ), IBETA = 1, 10 ) / + 0.95886,0.96064,0.96448,0.96894,0.97324,0.97701,0.98004,0.98228, + 0.98371,0.98435/ DATA ( BM3I( 7, 9,IBETA ), IBETA = 1, 10 ) / + 0.98727,0.98786,0.98908,0.99043,0.99160,0.99245,0.99288,0.99285, + 0.99234,0.99131/ DATA ( BM3I( 7,10,IBETA ), IBETA = 1, 10 ) / + 0.99621,0.99638,0.99671,0.99700,0.99715,0.99707,0.99670,0.99599, + 0.99489,0.99338/ DATA ( BM3I( 8, 1,IBETA ), IBETA = 1, 10 ) / + 0.97470,0.97666,0.98064,0.98491,0.98867,0.99169,0.99399,0.99569, + 0.99691,0.99779/ DATA ( BM3I( 8, 2,IBETA ), IBETA = 1, 10 ) / + 0.96996,0.97225,0.97693,0.98196,0.98643,0.99003,0.99279,0.99482, + 0.99630,0.99735/ DATA ( BM3I( 8, 3,IBETA ), IBETA = 1, 10 ) / + 0.95523,0.95848,0.96522,0.97260,0.97925,0.98468,0.98888,0.99200, + 0.99427,0.99590/ DATA ( BM3I( 8, 4,IBETA ), IBETA = 1, 10 ) / + 0.92524,0.93030,0.94098,0.95294,0.96397,0.97317,0.98038,0.98582, + 0.98981,0.99270/ DATA ( BM3I( 8, 5,IBETA ), IBETA = 1, 10 ) / + 0.87576,0.88323,0.89935,0.91799,0.93583,0.95126,0.96377,0.97345, + 0.98072,0.98606/ DATA ( BM3I( 8, 6,IBETA ), IBETA = 1, 10 ) / + 0.83078,0.83894,0.85705,0.87899,0.90126,0.92179,0.93950,0.95404, + 0.96551,0.97430/ DATA ( BM3I( 8, 7,IBETA ), IBETA = 1, 10 ) / + 0.85727,0.86294,0.87558,0.89111,0.90723,0.92260,0.93645,0.94841, + 0.95838,0.96643/ DATA ( BM3I( 8, 8,IBETA ), IBETA = 1, 10 ) / + 0.93337,0.93615,0.94220,0.94937,0.95647,0.96292,0.96840,0.97283, + 0.97619,0.97854/ DATA ( BM3I( 8, 9,IBETA ), IBETA = 1, 10 ) / + 0.97790,0.97891,0.98105,0.98346,0.98569,0.98751,0.98879,0.98950, + 0.98961,0.98912/ DATA ( BM3I( 8,10,IBETA ), IBETA = 1, 10 ) / + 0.99337,0.99367,0.99430,0.99493,0.99541,0.99562,0.99551,0.99501, + 0.99410,0.99274/ DATA ( BM3I( 9, 1,IBETA ), IBETA = 1, 10 ) / + 0.98470,0.98594,0.98844,0.99106,0.99334,0.99514,0.99650,0.99749, + 0.99821,0.99872/ DATA ( BM3I( 9, 2,IBETA ), IBETA = 1, 10 ) / + 0.98184,0.98330,0.98624,0.98934,0.99205,0.99420,0.99582,0.99701, + 0.99787,0.99848/ DATA ( BM3I( 9, 3,IBETA ), IBETA = 1, 10 ) / + 0.97288,0.97498,0.97927,0.98385,0.98789,0.99113,0.99360,0.99541, + 0.99673,0.99766/ DATA ( BM3I( 9, 4,IBETA ), IBETA = 1, 10 ) / + 0.95403,0.95741,0.96440,0.97202,0.97887,0.98444,0.98872,0.99190, + 0.99421,0.99586/ DATA ( BM3I( 9, 5,IBETA ), IBETA = 1, 10 ) / + 0.91845,0.92399,0.93567,0.94873,0.96076,0.97079,0.97865,0.98457, + 0.98892,0.99206/ DATA ( BM3I( 9, 6,IBETA ), IBETA = 1, 10 ) / + 0.86762,0.87533,0.89202,0.91148,0.93027,0.94669,0.96013,0.97062, + 0.97855,0.98441/ DATA ( BM3I( 9, 7,IBETA ), IBETA = 1, 10 ) / + 0.84550,0.85253,0.86816,0.88721,0.90671,0.92490,0.94083,0.95413, + 0.96481,0.97314/ DATA ( BM3I( 9, 8,IBETA ), IBETA = 1, 10 ) / + 0.90138,0.90544,0.91437,0.92513,0.93602,0.94615,0.95506,0.96258, + 0.96868,0.97347/ DATA ( BM3I( 9, 9,IBETA ), IBETA = 1, 10 ) / + 0.96248,0.96415,0.96773,0.97187,0.97583,0.97925,0.98198,0.98394, + 0.98514,0.98559/ DATA ( BM3I( 9,10,IBETA ), IBETA = 1, 10 ) / + 0.98837,0.98892,0.99005,0.99127,0.99232,0.99306,0.99339,0.99328, + 0.99269,0.99161/ DATA ( BM3I( 10, 1,IBETA ), IBETA = 1, 10 ) / + 0.99080,0.99158,0.99311,0.99471,0.99607,0.99715,0.99795,0.99853, + 0.99895,0.99925/ DATA ( BM3I( 10, 2,IBETA ), IBETA = 1, 10 ) / + 0.98910,0.99001,0.99182,0.99371,0.99533,0.99661,0.99757,0.99826, + 0.99876,0.99912/ DATA ( BM3I( 10, 3,IBETA ), IBETA = 1, 10 ) / + 0.98374,0.98506,0.98772,0.99051,0.99294,0.99486,0.99630,0.99736, + 0.99812,0.99866/ DATA ( BM3I( 10, 4,IBETA ), IBETA = 1, 10 ) / + 0.97238,0.97453,0.97892,0.98361,0.98773,0.99104,0.99354,0.99538, + 0.99671,0.99765/ DATA ( BM3I( 10, 5,IBETA ), IBETA = 1, 10 ) / + 0.94961,0.95333,0.96103,0.96941,0.97693,0.98303,0.98772,0.99119, + 0.99371,0.99551/ DATA ( BM3I( 10, 6,IBETA ), IBETA = 1, 10 ) / + 0.90943,0.91550,0.92834,0.94275,0.95608,0.96723,0.97600,0.98263, + 0.98751,0.99103/ DATA ( BM3I( 10, 7,IBETA ), IBETA = 1, 10 ) / + 0.86454,0.87200,0.88829,0.90749,0.92630,0.94300,0.95687,0.96785, + 0.97626,0.98254/ DATA ( BM3I( 10, 8,IBETA ), IBETA = 1, 10 ) / + 0.87498,0.88048,0.89264,0.90737,0.92240,0.93642,0.94877,0.95917, + 0.96762,0.97429/ DATA ( BM3I( 10, 9,IBETA ), IBETA = 1, 10 ) / + 0.93946,0.94209,0.94781,0.95452,0.96111,0.96704,0.97203,0.97602, + 0.97900,0.98106/ DATA ( BM3I( 10,10,IBETA ), IBETA = 1, 10 ) / + 0.97977,0.98071,0.98270,0.98492,0.98695,0.98858,0.98970,0.99027, + 0.99026,0.98968/ C FSB FM correction for INTRAmodal M2 coagulation DATA BM2II / & 0.707107, 0.720583, 0.745310, 0.748056, 0.696935, & 0.604164, 0.504622, 0.416559, 0.343394, 0.283641/ C *** total correction for INTRAmodal M2 coagulation DATA BM2IITT / & 1.000000, 0.907452, 0.680931, 0.409815, 0.196425, & 0.078814, 0.028473, 0.009800, 0.003322, 0.001129/ C FSB FM correction for M2 i to j coagulation DATA ( BM2IJ( 1, 1,IBETA ), IBETA = 1, 10 ) / & 0.707107, 0.716828, 0.738240, 0.764827, 0.793610, & 0.822843, 0.851217, 0.877670, 0.901404, 0.921944/ DATA ( BM2IJ( 1, 2,IBETA ), IBETA = 1, 10 ) / & 0.719180, 0.727975, 0.747638, 0.772334, 0.799234, & 0.826666, 0.853406, 0.878482, 0.901162, 0.920987/ DATA ( BM2IJ( 1, 3,IBETA ), IBETA = 1, 10 ) / & 0.760947, 0.767874, 0.783692, 0.803890, 0.826015, & 0.848562, 0.870498, 0.891088, 0.909823, 0.926400/ DATA ( BM2IJ( 1, 4,IBETA ), IBETA = 1, 10 ) / & 0.830926, 0.836034, 0.847708, 0.862528, 0.878521, & 0.894467, 0.909615, 0.923520, 0.935959, 0.946858/ DATA ( BM2IJ( 1, 5,IBETA ), IBETA = 1, 10 ) / & 0.903643, 0.907035, 0.914641, 0.924017, 0.933795, & 0.943194, 0.951806, 0.959449, 0.966087, 0.971761/ DATA ( BM2IJ( 1, 6,IBETA ), IBETA = 1, 10 ) / & 0.954216, 0.956094, 0.960211, 0.965123, 0.970068, & 0.974666, 0.978750, 0.982277, 0.985268, 0.987775/ DATA ( BM2IJ( 1, 7,IBETA ), IBETA = 1, 10 ) / & 0.980546, 0.981433, 0.983343, 0.985568, 0.987751, & 0.989735, 0.991461, 0.992926, 0.994150, 0.995164/ DATA ( BM2IJ( 1, 8,IBETA ), IBETA = 1, 10 ) / & 0.992142, 0.992524, 0.993338, 0.994272, 0.995174, & 0.995981, 0.996675, 0.997257, 0.997740, 0.998137/ DATA ( BM2IJ( 1, 9,IBETA ), IBETA = 1, 10 ) / & 0.996868, 0.997026, 0.997361, 0.997742, 0.998106, & 0.998430, 0.998705, 0.998935, 0.999125, 0.999280/ DATA ( BM2IJ( 1, 10,IBETA ), IBETA = 1, 10 ) / & 0.998737, 0.998802, 0.998939, 0.999094, 0.999241, & 0.999371, 0.999481, 0.999573, 0.999648, 0.999709/ DATA ( BM2IJ( 2, 1,IBETA ), IBETA = 1, 10 ) / & 0.729600, 0.739948, 0.763059, 0.791817, 0.822510, & 0.852795, 0.881000, 0.905999, 0.927206, 0.944532/ DATA ( BM2IJ( 2, 2,IBETA ), IBETA = 1, 10 ) / & 0.727025, 0.737116, 0.759615, 0.787657, 0.817740, & 0.847656, 0.875801, 0.901038, 0.922715, 0.940643/ DATA ( BM2IJ( 2, 3,IBETA ), IBETA = 1, 10 ) / & 0.738035, 0.746779, 0.766484, 0.791340, 0.818324, & 0.845546, 0.871629, 0.895554, 0.916649, 0.934597/ DATA ( BM2IJ( 2, 4,IBETA ), IBETA = 1, 10 ) / & 0.784185, 0.790883, 0.806132, 0.825501, 0.846545, & 0.867745, 0.888085, 0.906881, 0.923705, 0.938349/ DATA ( BM2IJ( 2, 5,IBETA ), IBETA = 1, 10 ) / & 0.857879, 0.862591, 0.873238, 0.886539, 0.900645, & 0.914463, 0.927360, 0.939004, 0.949261, 0.958125/ DATA ( BM2IJ( 2, 6,IBETA ), IBETA = 1, 10 ) / & 0.925441, 0.928304, 0.934645, 0.942324, 0.950181, & 0.957600, 0.964285, 0.970133, 0.975147, 0.979388/ DATA ( BM2IJ( 2, 7,IBETA ), IBETA = 1, 10 ) / & 0.966728, 0.968176, 0.971323, 0.975027, 0.978705, & 0.982080, 0.985044, 0.987578, 0.989710, 0.991485/ DATA ( BM2IJ( 2, 8,IBETA ), IBETA = 1, 10 ) / & 0.986335, 0.986980, 0.988362, 0.989958, 0.991511, & 0.992912, 0.994122, 0.995143, 0.995992, 0.996693/ DATA ( BM2IJ( 2, 9,IBETA ), IBETA = 1, 10 ) / & 0.994547, 0.994817, 0.995391, 0.996046, 0.996677, & 0.997238, 0.997719, 0.998122, 0.998454, 0.998727/ DATA ( BM2IJ( 2, 10,IBETA ), IBETA = 1, 10 ) / & 0.997817, 0.997928, 0.998163, 0.998429, 0.998683, & 0.998908, 0.999099, 0.999258, 0.999389, 0.999497/ DATA ( BM2IJ( 3, 1,IBETA ), IBETA = 1, 10 ) / & 0.783612, 0.793055, 0.814468, 0.841073, 0.868769, & 0.894963, 0.918118, 0.937527, 0.953121, 0.965244/ DATA ( BM2IJ( 3, 2,IBETA ), IBETA = 1, 10 ) / & 0.772083, 0.781870, 0.803911, 0.831238, 0.859802, & 0.887036, 0.911349, 0.931941, 0.948649, 0.961751/ DATA ( BM2IJ( 3, 3,IBETA ), IBETA = 1, 10 ) / & 0.755766, 0.765509, 0.787380, 0.814630, 0.843526, & 0.871670, 0.897443, 0.919870, 0.938557, 0.953576/ DATA ( BM2IJ( 3, 4,IBETA ), IBETA = 1, 10 ) / & 0.763816, 0.772145, 0.790997, 0.814784, 0.840434, & 0.865978, 0.890034, 0.911671, 0.930366, 0.945963/ DATA ( BM2IJ( 3, 5,IBETA ), IBETA = 1, 10 ) / & 0.813597, 0.819809, 0.833889, 0.851618, 0.870640, & 0.889514, 0.907326, 0.923510, 0.937768, 0.950003/ DATA ( BM2IJ( 3, 6,IBETA ), IBETA = 1, 10 ) / & 0.886317, 0.890437, 0.899643, 0.910955, 0.922730, & 0.934048, 0.944422, 0.953632, 0.961624, 0.968444/ DATA ( BM2IJ( 3, 7,IBETA ), IBETA = 1, 10 ) / & 0.944565, 0.946855, 0.951872, 0.957854, 0.963873, & 0.969468, 0.974438, 0.978731, 0.982372, 0.985424/ DATA ( BM2IJ( 3, 8,IBETA ), IBETA = 1, 10 ) / & 0.976358, 0.977435, 0.979759, 0.982467, 0.985125, & 0.987540, 0.989642, 0.991425, 0.992916, 0.994150/ DATA ( BM2IJ( 3, 9,IBETA ), IBETA = 1, 10 ) / & 0.990471, 0.990932, 0.991917, 0.993048, 0.994142, & 0.995121, 0.995964, 0.996671, 0.997258, 0.997740/ DATA ( BM2IJ( 3, 10,IBETA ), IBETA = 1, 10 ) / & 0.996199, 0.996389, 0.996794, 0.997254, 0.997694, & 0.998086, 0.998420, 0.998699, 0.998929, 0.999117/ DATA ( BM2IJ( 4, 1,IBETA ), IBETA = 1, 10 ) / & 0.844355, 0.852251, 0.869914, 0.891330, 0.912823, & 0.932259, 0.948642, 0.961767, 0.971897, 0.979510/ DATA ( BM2IJ( 4, 2,IBETA ), IBETA = 1, 10 ) / & 0.831550, 0.839954, 0.858754, 0.881583, 0.904592, & 0.925533, 0.943309, 0.957647, 0.968779, 0.977185/ DATA ( BM2IJ( 4, 3,IBETA ), IBETA = 1, 10 ) / & 0.803981, 0.813288, 0.834060, 0.859400, 0.885285, & 0.909286, 0.930084, 0.947193, 0.960714, 0.971078/ DATA ( BM2IJ( 4, 4,IBETA ), IBETA = 1, 10 ) / & 0.781787, 0.791080, 0.811931, 0.837749, 0.864768, & 0.890603, 0.913761, 0.933477, 0.949567, 0.962261/ DATA ( BM2IJ( 4, 5,IBETA ), IBETA = 1, 10 ) / & 0.791591, 0.799355, 0.816916, 0.838961, 0.862492, & 0.885595, 0.907003, 0.925942, 0.942052, 0.955310/ DATA ( BM2IJ( 4, 6,IBETA ), IBETA = 1, 10 ) / & 0.844933, 0.850499, 0.863022, 0.878593, 0.895038, & 0.911072, 0.925939, 0.939227, 0.950765, 0.960550/ DATA ( BM2IJ( 4, 7,IBETA ), IBETA = 1, 10 ) / & 0.912591, 0.916022, 0.923607, 0.932777, 0.942151, & 0.951001, 0.958976, 0.965950, 0.971924, 0.976965/ DATA ( BM2IJ( 4, 8,IBETA ), IBETA = 1, 10 ) / & 0.959859, 0.961617, 0.965433, 0.969924, 0.974382, & 0.978472, 0.982063, 0.985134, 0.987716, 0.989865/ DATA ( BM2IJ( 4, 9,IBETA ), IBETA = 1, 10 ) / & 0.983377, 0.984162, 0.985844, 0.987788, 0.989681, & 0.991386, 0.992860, 0.994104, 0.995139, 0.995991/ DATA ( BM2IJ( 4, 10,IBETA ), IBETA = 1, 10 ) / & 0.993343, 0.993672, 0.994370, 0.995169, 0.995937, & 0.996622, 0.997209, 0.997700, 0.998106, 0.998439/ DATA ( BM2IJ( 5, 1,IBETA ), IBETA = 1, 10 ) / & 0.895806, 0.901918, 0.915233, 0.930783, 0.945768, & 0.958781, 0.969347, 0.977540, 0.983697, 0.988225/ DATA ( BM2IJ( 5, 2,IBETA ), IBETA = 1, 10 ) / & 0.885634, 0.892221, 0.906629, 0.923540, 0.939918, & 0.954213, 0.965873, 0.974951, 0.981794, 0.986840/ DATA ( BM2IJ( 5, 3,IBETA ), IBETA = 1, 10 ) / & 0.860120, 0.867858, 0.884865, 0.904996, 0.924724, & 0.942177, 0.956602, 0.967966, 0.976616, 0.983043/ DATA ( BM2IJ( 5, 4,IBETA ), IBETA = 1, 10 ) / & 0.827462, 0.836317, 0.855885, 0.879377, 0.902897, & 0.924232, 0.942318, 0.956900, 0.968222, 0.976774/ DATA ( BM2IJ( 5, 5,IBETA ), IBETA = 1, 10 ) / & 0.805527, 0.814279, 0.833853, 0.857892, 0.882726, & 0.906095, 0.926690, 0.943938, 0.957808, 0.968615/ DATA ( BM2IJ( 5, 6,IBETA ), IBETA = 1, 10 ) / & 0.820143, 0.827223, 0.843166, 0.863002, 0.883905, & 0.904128, 0.922585, 0.938687, 0.952222, 0.963255/ DATA ( BM2IJ( 5, 7,IBETA ), IBETA = 1, 10 ) / & 0.875399, 0.880208, 0.890929, 0.904065, 0.917699, & 0.930756, 0.942656, 0.953131, 0.962113, 0.969657/ DATA ( BM2IJ( 5, 8,IBETA ), IBETA = 1, 10 ) / & 0.934782, 0.937520, 0.943515, 0.950656, 0.957840, & 0.964516, 0.970446, 0.975566, 0.979905, 0.983534/ DATA ( BM2IJ( 5, 9,IBETA ), IBETA = 1, 10 ) / & 0.971369, 0.972679, 0.975505, 0.978797, 0.982029, & 0.984964, 0.987518, 0.989685, 0.991496, 0.992994/ DATA ( BM2IJ( 5, 10,IBETA ), IBETA = 1, 10 ) / & 0.988329, 0.988893, 0.990099, 0.991485, 0.992825, & 0.994025, 0.995058, 0.995925, 0.996643, 0.997234/ DATA ( BM2IJ( 6, 1,IBETA ), IBETA = 1, 10 ) / & 0.933384, 0.937784, 0.947130, 0.957655, 0.967430, & 0.975639, 0.982119, 0.987031, 0.990657, 0.993288/ DATA ( BM2IJ( 6, 2,IBETA ), IBETA = 1, 10 ) / & 0.926445, 0.931227, 0.941426, 0.952975, 0.963754, & 0.972845, 0.980044, 0.985514, 0.989558, 0.992498/ DATA ( BM2IJ( 6, 3,IBETA ), IBETA = 1, 10 ) / & 0.907835, 0.913621, 0.926064, 0.940308, 0.953745, & 0.965189, 0.974327, 0.981316, 0.986510, 0.990297/ DATA ( BM2IJ( 6, 4,IBETA ), IBETA = 1, 10 ) / & 0.879088, 0.886306, 0.901945, 0.920079, 0.937460, & 0.952509, 0.964711, 0.974166, 0.981265, 0.986484/ DATA ( BM2IJ( 6, 5,IBETA ), IBETA = 1, 10 ) / & 0.846500, 0.854862, 0.873189, 0.894891, 0.916264, & 0.935315, 0.951197, 0.963812, 0.973484, 0.980715/ DATA ( BM2IJ( 6, 6,IBETA ), IBETA = 1, 10 ) / & 0.828137, 0.836250, 0.854310, 0.876287, 0.898710, & 0.919518, 0.937603, 0.952560, 0.964461, 0.973656/ DATA ( BM2IJ( 6, 7,IBETA ), IBETA = 1, 10 ) / & 0.848595, 0.854886, 0.868957, 0.886262, 0.904241, & 0.921376, 0.936799, 0.950096, 0.961172, 0.970145/ DATA ( BM2IJ( 6, 8,IBETA ), IBETA = 1, 10 ) / & 0.902919, 0.906922, 0.915760, 0.926427, 0.937312, & 0.947561, 0.956758, 0.964747, 0.971525, 0.977175/ DATA ( BM2IJ( 6, 9,IBETA ), IBETA = 1, 10 ) / & 0.952320, 0.954434, 0.959021, 0.964418, 0.969774, & 0.974688, 0.979003, 0.982690, 0.985789, 0.988364/ DATA ( BM2IJ( 6, 10,IBETA ), IBETA = 1, 10 ) / & 0.979689, 0.980650, 0.982712, 0.985093, 0.987413, & 0.989502, 0.991308, 0.992831, 0.994098, 0.995142/ DATA ( BM2IJ( 7, 1,IBETA ), IBETA = 1, 10 ) / & 0.958611, 0.961598, 0.967817, 0.974620, 0.980752, & 0.985771, 0.989650, 0.992543, 0.994653, 0.996171/ DATA ( BM2IJ( 7, 2,IBETA ), IBETA = 1, 10 ) / & 0.954225, 0.957488, 0.964305, 0.971795, 0.978576, & 0.984144, 0.988458, 0.991681, 0.994034, 0.995728/ DATA ( BM2IJ( 7, 3,IBETA ), IBETA = 1, 10 ) / & 0.942147, 0.946158, 0.954599, 0.963967, 0.972529, & 0.979612, 0.985131, 0.989271, 0.992301, 0.994487/ DATA ( BM2IJ( 7, 4,IBETA ), IBETA = 1, 10 ) / & 0.921821, 0.927048, 0.938140, 0.950598, 0.962118, & 0.971752, 0.979326, 0.985046, 0.989254, 0.992299/ DATA ( BM2IJ( 7, 5,IBETA ), IBETA = 1, 10 ) / & 0.893419, 0.900158, 0.914598, 0.931070, 0.946584, & 0.959795, 0.970350, 0.978427, 0.984432, 0.988811/ DATA ( BM2IJ( 7, 6,IBETA ), IBETA = 1, 10 ) / & 0.863302, 0.871111, 0.888103, 0.907990, 0.927305, & 0.944279, 0.958245, 0.969211, 0.977540, 0.983720/ DATA ( BM2IJ( 7, 7,IBETA ), IBETA = 1, 10 ) / & 0.850182, 0.857560, 0.873890, 0.893568, 0.913408, & 0.931591, 0.947216, 0.960014, 0.970121, 0.977886/ DATA ( BM2IJ( 7, 8,IBETA ), IBETA = 1, 10 ) / & 0.875837, 0.881265, 0.893310, 0.907936, 0.922910, & 0.936977, 0.949480, 0.960154, 0.968985, 0.976111/ DATA ( BM2IJ( 7, 9,IBETA ), IBETA = 1, 10 ) / & 0.926228, 0.929445, 0.936486, 0.944868, 0.953293, & 0.961108, 0.968028, 0.973973, 0.978974, 0.983118/ DATA ( BM2IJ( 7, 10,IBETA ), IBETA = 1, 10 ) / & 0.965533, 0.967125, 0.970558, 0.974557, 0.978484, & 0.982050, 0.985153, 0.987785, 0.989982, 0.991798/ DATA ( BM2IJ( 8, 1,IBETA ), IBETA = 1, 10 ) / & 0.974731, 0.976674, 0.980660, 0.984926, 0.988689, & 0.991710, 0.994009, 0.995703, 0.996929, 0.997805/ DATA ( BM2IJ( 8, 2,IBETA ), IBETA = 1, 10 ) / & 0.972062, 0.974192, 0.978571, 0.983273, 0.987432, & 0.990780, 0.993333, 0.995218, 0.996581, 0.997557/ DATA ( BM2IJ( 8, 3,IBETA ), IBETA = 1, 10 ) / & 0.964662, 0.967300, 0.972755, 0.978659, 0.983921, & 0.988181, 0.991444, 0.993859, 0.995610, 0.996863/ DATA ( BM2IJ( 8, 4,IBETA ), IBETA = 1, 10 ) / & 0.951782, 0.955284, 0.962581, 0.970559, 0.977737, & 0.983593, 0.988103, 0.991454, 0.993889, 0.995635/ DATA ( BM2IJ( 8, 5,IBETA ), IBETA = 1, 10 ) / & 0.931947, 0.936723, 0.946751, 0.957843, 0.967942, & 0.976267, 0.982734, 0.987571, 0.991102, 0.993642/ DATA ( BM2IJ( 8, 6,IBETA ), IBETA = 1, 10 ) / & 0.905410, 0.911665, 0.924950, 0.939908, 0.953798, & 0.965469, 0.974684, 0.981669, 0.986821, 0.990556/ DATA ( BM2IJ( 8, 7,IBETA ), IBETA = 1, 10 ) / & 0.878941, 0.886132, 0.901679, 0.919688, 0.936970, & 0.951980, 0.964199, 0.973709, 0.980881, 0.986174/ DATA ( BM2IJ( 8, 8,IBETA ), IBETA = 1, 10 ) / & 0.871653, 0.878218, 0.892652, 0.909871, 0.927034, & 0.942592, 0.955836, 0.966604, 0.975065, 0.981545/ DATA ( BM2IJ( 8, 9,IBETA ), IBETA = 1, 10 ) / & 0.900693, 0.905239, 0.915242, 0.927232, 0.939335, & 0.950555, 0.960420, 0.968774, 0.975651, 0.981188/ DATA ( BM2IJ( 8, 10,IBETA ), IBETA = 1, 10 ) / & 0.944922, 0.947435, 0.952894, 0.959317, 0.965689, & 0.971529, 0.976645, 0.981001, 0.984641, 0.987642/ DATA ( BM2IJ( 9, 1,IBETA ), IBETA = 1, 10 ) / & 0.984736, 0.985963, 0.988453, 0.991078, 0.993357, & 0.995161, 0.996519, 0.997512, 0.998226, 0.998734/ DATA ( BM2IJ( 9, 2,IBETA ), IBETA = 1, 10 ) / & 0.983141, 0.984488, 0.987227, 0.990119, 0.992636, & 0.994632, 0.996137, 0.997238, 0.998030, 0.998595/ DATA ( BM2IJ( 9, 3,IBETA ), IBETA = 1, 10 ) / & 0.978726, 0.980401, 0.983819, 0.987450, 0.990626, & 0.993157, 0.995071, 0.996475, 0.997486, 0.998206/ DATA ( BM2IJ( 9, 4,IBETA ), IBETA = 1, 10 ) / & 0.970986, 0.973224, 0.977818, 0.982737, 0.987072, & 0.990546, 0.993184, 0.995124, 0.996523, 0.997521/ DATA ( BM2IJ( 9, 5,IBETA ), IBETA = 1, 10 ) / & 0.958579, 0.961700, 0.968149, 0.975116, 0.981307, & 0.986301, 0.990112, 0.992923, 0.994954, 0.996404/ DATA ( BM2IJ( 9, 6,IBETA ), IBETA = 1, 10 ) / & 0.940111, 0.944479, 0.953572, 0.963506, 0.972436, & 0.979714, 0.985313, 0.989468, 0.992483, 0.994641/ DATA ( BM2IJ( 9, 7,IBETA ), IBETA = 1, 10 ) / & 0.916127, 0.921878, 0.934003, 0.947506, 0.959899, & 0.970199, 0.978255, 0.984314, 0.988755, 0.991960/ DATA ( BM2IJ( 9, 8,IBETA ), IBETA = 1, 10 ) / & 0.893848, 0.900364, 0.914368, 0.930438, 0.945700, & 0.958824, 0.969416, 0.977603, 0.983746, 0.988262/ DATA ( BM2IJ( 9, 9,IBETA ), IBETA = 1, 10 ) / & 0.892161, 0.897863, 0.910315, 0.925021, 0.939523, & 0.952544, 0.963544, 0.972442, 0.979411, 0.984742/ DATA ( BM2IJ( 9, 10,IBETA ), IBETA = 1, 10 ) / & 0.922260, 0.925966, 0.934047, 0.943616, 0.953152, & 0.961893, 0.969506, 0.975912, 0.981167, 0.985394/ DATA ( BM2IJ( 10, 1,IBETA ), IBETA = 1, 10 ) / & 0.990838, 0.991598, 0.993128, 0.994723, 0.996092, & 0.997167, 0.997969, 0.998552, 0.998969, 0.999265/ DATA ( BM2IJ( 10, 2,IBETA ), IBETA = 1, 10 ) / & 0.989892, 0.990727, 0.992411, 0.994167, 0.995678, & 0.996864, 0.997751, 0.998396, 0.998858, 0.999186/ DATA ( BM2IJ( 10, 3,IBETA ), IBETA = 1, 10 ) / & 0.987287, 0.988327, 0.990428, 0.992629, 0.994529, & 0.996026, 0.997148, 0.997965, 0.998551, 0.998967/ DATA ( BM2IJ( 10, 4,IBETA ), IBETA = 1, 10 ) / & 0.982740, 0.984130, 0.986952, 0.989926, 0.992508, & 0.994551, 0.996087, 0.997208, 0.998012, 0.998584/ DATA ( BM2IJ( 10, 5,IBETA ), IBETA = 1, 10 ) / & 0.975380, 0.977330, 0.981307, 0.985529, 0.989216, & 0.992147, 0.994358, 0.995975, 0.997136, 0.997961/ DATA ( BM2IJ( 10, 6,IBETA ), IBETA = 1, 10 ) / & 0.963911, 0.966714, 0.972465, 0.978614, 0.984022, & 0.988346, 0.991620, 0.994020, 0.995747, 0.996974/ DATA ( BM2IJ( 10, 7,IBETA ), IBETA = 1, 10 ) / & 0.947187, 0.951161, 0.959375, 0.968258, 0.976160, & 0.982540, 0.987409, 0.991000, 0.993592, 0.995441/ DATA ( BM2IJ( 10, 8,IBETA ), IBETA = 1, 10 ) / & 0.926045, 0.931270, 0.942218, 0.954297, 0.965273, & 0.974311, 0.981326, 0.986569, 0.990394, 0.993143/ DATA ( BM2IJ( 10, 9,IBETA ), IBETA = 1, 10 ) / & 0.908092, 0.913891, 0.926288, 0.940393, 0.953667, & 0.964987, 0.974061, 0.981038, 0.986253, 0.990078/ DATA ( BM2IJ( 10, 10,IBETA ), IBETA = 1, 10 ) / & 0.911143, 0.915972, 0.926455, 0.938721, 0.950701, & 0.961370, 0.970329, 0.977549, 0.983197, 0.987518/ C FSB Total correction factor for M2 coagulation j from i DATA ( BM2JI( 1, 1,IBETA ), IBETA = 1, 10 ) / & 0.753466, 0.756888, 0.761008, 0.759432, 0.748675, & 0.726951, 0.693964, 0.650915, 0.600227, 0.545000/ DATA ( BM2JI( 1, 2,IBETA ), IBETA = 1, 10 ) / & 0.824078, 0.828698, 0.835988, 0.838943, 0.833454, & 0.817148, 0.789149, 0.750088, 0.701887, 0.647308/ DATA ( BM2JI( 1, 3,IBETA ), IBETA = 1, 10 ) / & 1.007389, 1.014362, 1.028151, 1.041011, 1.047939, & 1.045707, 1.032524, 1.007903, 0.972463, 0.927667/ DATA ( BM2JI( 1, 4,IBETA ), IBETA = 1, 10 ) / & 1.246157, 1.255135, 1.274249, 1.295351, 1.313362, & 1.325187, 1.329136, 1.324491, 1.311164, 1.289459/ DATA ( BM2JI( 1, 5,IBETA ), IBETA = 1, 10 ) / & 1.450823, 1.459551, 1.478182, 1.499143, 1.518224, & 1.533312, 1.543577, 1.548882, 1.549395, 1.545364/ DATA ( BM2JI( 1, 6,IBETA ), IBETA = 1, 10 ) / & 1.575248, 1.581832, 1.595643, 1.610866, 1.624601, & 1.635690, 1.643913, 1.649470, 1.652688, 1.653878/ DATA ( BM2JI( 1, 7,IBETA ), IBETA = 1, 10 ) / & 1.638426, 1.642626, 1.651293, 1.660641, 1.668926, & 1.675571, 1.680572, 1.684147, 1.686561, 1.688047/ DATA ( BM2JI( 1, 8,IBETA ), IBETA = 1, 10 ) / & 1.669996, 1.672392, 1.677283, 1.682480, 1.687028, & 1.690651, 1.693384, 1.695372, 1.696776, 1.697734/ DATA ( BM2JI( 1, 9,IBETA ), IBETA = 1, 10 ) / & 1.686148, 1.687419, 1.689993, 1.692704, 1.695057, & 1.696922, 1.698329, 1.699359, 1.700099, 1.700621/ DATA ( BM2JI( 1,10,IBETA ), IBETA = 1, 10 ) / & 1.694364, 1.695010, 1.696313, 1.697676, 1.698853, & 1.699782, 1.700482, 1.700996, 1.701366, 1.701631/ DATA ( BM2JI( 2, 1,IBETA ), IBETA = 1, 10 ) / & 0.783166, 0.779369, 0.768044, 0.747572, 0.716709, & 0.675422, 0.624981, 0.567811, 0.507057, 0.445975/ DATA ( BM2JI( 2, 2,IBETA ), IBETA = 1, 10 ) / & 0.848390, 0.847100, 0.840874, 0.826065, 0.800296, & 0.762625, 0.713655, 0.655545, 0.591603, 0.525571/ DATA ( BM2JI( 2, 3,IBETA ), IBETA = 1, 10 ) / & 1.039894, 1.043786, 1.049445, 1.049664, 1.039407, & 1.015322, 0.975983, 0.922180, 0.856713, 0.783634/ DATA ( BM2JI( 2, 4,IBETA ), IBETA = 1, 10 ) / & 1.345995, 1.356064, 1.376947, 1.398304, 1.412685, & 1.414611, 1.400652, 1.369595, 1.322261, 1.260993/ DATA ( BM2JI( 2, 5,IBETA ), IBETA = 1, 10 ) / & 1.675575, 1.689859, 1.720957, 1.756659, 1.788976, & 1.812679, 1.824773, 1.824024, 1.810412, 1.784630/ DATA ( BM2JI( 2, 6,IBETA ), IBETA = 1, 10 ) / & 1.919835, 1.933483, 1.962973, 1.996810, 2.028377, & 2.054172, 2.072763, 2.083963, 2.088190, 2.086052/ DATA ( BM2JI( 2, 7,IBETA ), IBETA = 1, 10 ) / & 2.064139, 2.074105, 2.095233, 2.118909, 2.140688, & 2.158661, 2.172373, 2.182087, 2.188330, 2.191650/ DATA ( BM2JI( 2, 8,IBETA ), IBETA = 1, 10 ) / & 2.144871, 2.150990, 2.163748, 2.177731, 2.190364, & 2.200712, 2.208687, 2.214563, 2.218716, 2.221502/ DATA ( BM2JI( 2, 9,IBETA ), IBETA = 1, 10 ) / & 2.189223, 2.192595, 2.199540, 2.207033, 2.213706, & 2.219125, 2.223297, 2.226403, 2.228660, 2.230265/ DATA ( BM2JI( 2,10,IBETA ), IBETA = 1, 10 ) / & 2.212595, 2.214342, 2.217912, 2.221723, 2.225082, & 2.227791, 2.229869, 2.231417, 2.232551, 2.233372/ DATA ( BM2JI( 3, 1,IBETA ), IBETA = 1, 10 ) / & 0.837870, 0.824476, 0.793119, 0.750739, 0.700950, & 0.646691, 0.590508, 0.534354, 0.479532, 0.426856/ DATA ( BM2JI( 3, 2,IBETA ), IBETA = 1, 10 ) / & 0.896771, 0.885847, 0.859327, 0.821694, 0.775312, & 0.722402, 0.665196, 0.605731, 0.545742, 0.486687/ DATA ( BM2JI( 3, 3,IBETA ), IBETA = 1, 10 ) / & 1.076089, 1.071727, 1.058845, 1.036171, 1.002539, & 0.957521, 0.901640, 0.836481, 0.764597, 0.689151/ DATA ( BM2JI( 3, 4,IBETA ), IBETA = 1, 10 ) / & 1.409571, 1.415168, 1.425346, 1.432021, 1.428632, & 1.409696, 1.371485, 1.312958, 1.236092, 1.145293/ DATA ( BM2JI( 3, 5,IBETA ), IBETA = 1, 10 ) / & 1.862757, 1.880031, 1.918394, 1.963456, 2.004070, & 2.030730, 2.036144, 2.016159, 1.970059, 1.900079/ DATA ( BM2JI( 3, 6,IBETA ), IBETA = 1, 10 ) / & 2.289741, 2.313465, 2.366789, 2.431612, 2.495597, & 2.549838, 2.588523, 2.608665, 2.609488, 2.591662/ DATA ( BM2JI( 3, 7,IBETA ), IBETA = 1, 10 ) / & 2.597157, 2.618731, 2.666255, 2.722597, 2.777531, & 2.825187, 2.862794, 2.889648, 2.906199, 2.913380/ DATA ( BM2JI( 3, 8,IBETA ), IBETA = 1, 10 ) / & 2.797975, 2.813116, 2.845666, 2.882976, 2.918289, & 2.948461, 2.972524, 2.990687, 3.003664, 3.012284/ DATA ( BM2JI( 3, 9,IBETA ), IBETA = 1, 10 ) / & 2.920832, 2.929843, 2.948848, 2.970057, 2.989632, & 3.006057, 3.019067, 3.028979, 3.036307, 3.041574/ DATA ( BM2JI( 3,10,IBETA ), IBETA = 1, 10 ) / & 2.989627, 2.994491, 3.004620, 3.015720, 3.025789, & 3.034121, 3.040664, 3.045641, 3.049347, 3.052066/ DATA ( BM2JI( 4, 1,IBETA ), IBETA = 1, 10 ) / & 0.893179, 0.870897, 0.820996, 0.759486, 0.695488, & 0.634582, 0.579818, 0.532143, 0.490927, 0.454618/ DATA ( BM2JI( 4, 2,IBETA ), IBETA = 1, 10 ) / & 0.948355, 0.927427, 0.880215, 0.821146, 0.758524, & 0.697680, 0.641689, 0.591605, 0.546919, 0.506208/ DATA ( BM2JI( 4, 3,IBETA ), IBETA = 1, 10 ) / & 1.109562, 1.093648, 1.056438, 1.007310, 0.951960, & 0.894453, 0.837364, 0.781742, 0.727415, 0.673614/ DATA ( BM2JI( 4, 4,IBETA ), IBETA = 1, 10 ) / & 1.423321, 1.417557, 1.402442, 1.379079, 1.347687, & 1.308075, 1.259703, 1.201983, 1.134778, 1.058878/ DATA ( BM2JI( 4, 5,IBETA ), IBETA = 1, 10 ) / & 1.933434, 1.944347, 1.968765, 1.997653, 2.023054, & 2.036554, 2.029949, 1.996982, 1.934982, 1.845473/ DATA ( BM2JI( 4, 6,IBETA ), IBETA = 1, 10 ) / & 2.547772, 2.577105, 2.645918, 2.735407, 2.830691, & 2.917268, 2.981724, 3.013684, 3.007302, 2.961560/ DATA ( BM2JI( 4, 7,IBETA ), IBETA = 1, 10 ) / & 3.101817, 3.139271, 3.225851, 3.336402, 3.453409, & 3.563116, 3.655406, 3.724014, 3.766113, 3.781394/ DATA ( BM2JI( 4, 8,IBETA ), IBETA = 1, 10 ) / & 3.540920, 3.573780, 3.647439, 3.737365, 3.828468, & 3.911436, 3.981317, 4.036345, 4.076749, 4.103751/ DATA ( BM2JI( 4, 9,IBETA ), IBETA = 1, 10 ) / & 3.856771, 3.879363, 3.928579, 3.986207, 4.042173, & 4.091411, 4.132041, 4.164052, 4.188343, 4.206118/ DATA ( BM2JI( 4,10,IBETA ), IBETA = 1, 10 ) / & 4.053923, 4.067191, 4.095509, 4.127698, 4.158037, & 4.184055, 4.205135, 4.221592, 4.234115, 4.243463/ DATA ( BM2JI( 5, 1,IBETA ), IBETA = 1, 10 ) / & 0.935846, 0.906814, 0.843358, 0.768710, 0.695885, & 0.631742, 0.579166, 0.538471, 0.508410, 0.486863/ DATA ( BM2JI( 5, 2,IBETA ), IBETA = 1, 10 ) / & 0.988308, 0.959524, 0.896482, 0.821986, 0.748887, & 0.684168, 0.630908, 0.589516, 0.558676, 0.536056/ DATA ( BM2JI( 5, 3,IBETA ), IBETA = 1, 10 ) / & 1.133795, 1.107139, 1.048168, 0.977258, 0.906341, & 0.842477, 0.789093, 0.746731, 0.713822, 0.687495/ DATA ( BM2JI( 5, 4,IBETA ), IBETA = 1, 10 ) / & 1.405692, 1.385781, 1.340706, 1.284776, 1.227085, & 1.173532, 1.127008, 1.087509, 1.052712, 1.018960/ DATA ( BM2JI( 5, 5,IBETA ), IBETA = 1, 10 ) / & 1.884992, 1.879859, 1.868463, 1.854995, 1.841946, & 1.829867, 1.816972, 1.799319, 1.771754, 1.729406/ DATA ( BM2JI( 5, 6,IBETA ), IBETA = 1, 10 ) / & 2.592275, 2.612268, 2.661698, 2.731803, 2.815139, & 2.901659, 2.978389, 3.031259, 3.048045, 3.021122/ DATA ( BM2JI( 5, 7,IBETA ), IBETA = 1, 10 ) / & 3.390321, 3.435519, 3.545615, 3.698419, 3.876958, & 4.062790, 4.236125, 4.378488, 4.475619, 4.519170/ DATA ( BM2JI( 5, 8,IBETA ), IBETA = 1, 10 ) / & 4.161376, 4.216558, 4.346896, 4.519451, 4.711107, & 4.902416, 5.077701, 5.226048, 5.341423, 5.421764/ DATA ( BM2JI( 5, 9,IBETA ), IBETA = 1, 10 ) / & 4.843961, 4.892035, 5.001492, 5.138515, 5.281684, & 5.416805, 5.535493, 5.634050, 5.712063, 5.770996/ DATA ( BM2JI( 5,10,IBETA ), IBETA = 1, 10 ) / & 5.352093, 5.385119, 5.458056, 5.545311, 5.632162, & 5.710566, 5.777005, 5.830863, 5.873123, 5.905442/ DATA ( BM2JI( 6, 1,IBETA ), IBETA = 1, 10 ) / & 0.964038, 0.930794, 0.859433, 0.777776, 0.700566, & 0.634671, 0.582396, 0.543656, 0.517284, 0.501694/ DATA ( BM2JI( 6, 2,IBETA ), IBETA = 1, 10 ) / & 1.013416, 0.979685, 0.907197, 0.824135, 0.745552, & 0.678616, 0.625870, 0.587348, 0.561864, 0.547674/ DATA ( BM2JI( 6, 3,IBETA ), IBETA = 1, 10 ) / & 1.145452, 1.111457, 1.038152, 0.953750, 0.873724, & 0.805955, 0.753621, 0.717052, 0.694920, 0.684910/ DATA ( BM2JI( 6, 4,IBETA ), IBETA = 1, 10 ) / & 1.376547, 1.345004, 1.276415, 1.196704, 1.121091, & 1.058249, 1.012197, 0.983522, 0.970323, 0.968933/ DATA ( BM2JI( 6, 5,IBETA ), IBETA = 1, 10 ) / & 1.778801, 1.755897, 1.706074, 1.649008, 1.597602, & 1.560087, 1.540365, 1.538205, 1.549738, 1.568333/ DATA ( BM2JI( 6, 6,IBETA ), IBETA = 1, 10 ) / & 2.447603, 2.445172, 2.443762, 2.451842, 2.475877, & 2.519039, 2.580118, 2.653004, 2.727234, 2.789738/ DATA ( BM2JI( 6, 7,IBETA ), IBETA = 1, 10 ) / & 3.368490, 3.399821, 3.481357, 3.606716, 3.772101, & 3.969416, 4.184167, 4.396163, 4.582502, 4.721838/ DATA ( BM2JI( 6, 8,IBETA ), IBETA = 1, 10 ) / & 4.426458, 4.489861, 4.648250, 4.877510, 5.160698, & 5.477495, 5.803123, 6.111250, 6.378153, 6.586050/ DATA ( BM2JI( 6, 9,IBETA ), IBETA = 1, 10 ) / & 5.568061, 5.644988, 5.829837, 6.081532, 6.371214, & 6.672902, 6.963737, 7.226172, 7.449199, 7.627886/ DATA ( BM2JI( 6,10,IBETA ), IBETA = 1, 10 ) / & 6.639152, 6.707020, 6.863974, 7.065285, 7.281744, & 7.492437, 7.683587, 7.847917, 7.983296, 8.090977/ DATA ( BM2JI( 7, 1,IBETA ), IBETA = 1, 10 ) / & 0.980853, 0.945724, 0.871244, 0.787311, 0.708818, & 0.641987, 0.588462, 0.547823, 0.518976, 0.500801/ DATA ( BM2JI( 7, 2,IBETA ), IBETA = 1, 10 ) / & 1.026738, 0.990726, 0.914306, 0.828140, 0.747637, & 0.679351, 0.625127, 0.584662, 0.556910, 0.540749/ DATA ( BM2JI( 7, 3,IBETA ), IBETA = 1, 10 ) / & 1.146496, 1.108808, 1.028695, 0.938291, 0.854101, & 0.783521, 0.728985, 0.690539, 0.667272, 0.657977/ DATA ( BM2JI( 7, 4,IBETA ), IBETA = 1, 10 ) / & 1.344846, 1.306434, 1.224543, 1.132031, 1.046571, & 0.976882, 0.926488, 0.896067, 0.884808, 0.891027/ DATA ( BM2JI( 7, 5,IBETA ), IBETA = 1, 10 ) / & 1.670227, 1.634583, 1.558421, 1.472939, 1.396496, & 1.339523, 1.307151, 1.300882, 1.319622, 1.360166/ DATA ( BM2JI( 7, 6,IBETA ), IBETA = 1, 10 ) / & 2.224548, 2.199698, 2.148284, 2.095736, 2.059319, & 2.050496, 2.075654, 2.136382, 2.229641, 2.347958/ DATA ( BM2JI( 7, 7,IBETA ), IBETA = 1, 10 ) / & 3.104483, 3.105947, 3.118398, 3.155809, 3.230427, & 3.350585, 3.519071, 3.731744, 3.976847, 4.235616/ DATA ( BM2JI( 7, 8,IBETA ), IBETA = 1, 10 ) / & 4.288426, 4.331456, 4.447024, 4.633023, 4.891991, & 5.221458, 5.610060, 6.036467, 6.471113, 6.880462/ DATA ( BM2JI( 7, 9,IBETA ), IBETA = 1, 10 ) / & 5.753934, 5.837061, 6.048530, 6.363800, 6.768061, & 7.241280, 7.755346, 8.276666, 8.771411, 9.210826/ DATA ( BM2JI( 7,10,IBETA ), IBETA = 1, 10 ) / & 7.466219, 7.568810, 7.819032, 8.168340, 8.582973, & 9.030174, 9.478159, 9.899834, 10.275940, 10.595910/ DATA ( BM2JI( 8, 1,IBETA ), IBETA = 1, 10 ) / & 0.990036, 0.954782, 0.880531, 0.797334, 0.719410, & 0.652220, 0.596923, 0.552910, 0.519101, 0.494529/ DATA ( BM2JI( 8, 2,IBETA ), IBETA = 1, 10 ) / & 1.032428, 0.996125, 0.919613, 0.833853, 0.753611, & 0.684644, 0.628260, 0.583924, 0.550611, 0.527407/ DATA ( BM2JI( 8, 3,IBETA ), IBETA = 1, 10 ) / & 1.141145, 1.102521, 1.021017, 0.929667, 0.844515, & 0.772075, 0.714086, 0.670280, 0.639824, 0.621970/ DATA ( BM2JI( 8, 4,IBETA ), IBETA = 1, 10 ) / & 1.314164, 1.273087, 1.186318, 1.089208, 0.999476, & 0.924856, 0.867948, 0.829085, 0.807854, 0.803759/ DATA ( BM2JI( 8, 5,IBETA ), IBETA = 1, 10 ) / & 1.580611, 1.538518, 1.449529, 1.350459, 1.260910, & 1.190526, 1.143502, 1.121328, 1.124274, 1.151974/ DATA ( BM2JI( 8, 6,IBETA ), IBETA = 1, 10 ) / & 2.016773, 1.977721, 1.895727, 1.806974, 1.732891, & 1.685937, 1.673026, 1.697656, 1.761039, 1.862391/ DATA ( BM2JI( 8, 7,IBETA ), IBETA = 1, 10 ) / & 2.750093, 2.723940, 2.672854, 2.628264, 2.612250, & 2.640406, 2.723211, 2.866599, 3.071893, 3.335217/ DATA ( BM2JI( 8, 8,IBETA ), IBETA = 1, 10 ) / & 3.881905, 3.887143, 3.913667, 3.981912, 4.111099, & 4.316575, 4.608146, 4.988157, 5.449592, 5.974848/ DATA ( BM2JI( 8, 9,IBETA ), IBETA = 1, 10 ) / & 5.438870, 5.492742, 5.640910, 5.886999, 6.241641, & 6.710609, 7.289480, 7.960725, 8.693495, 9.446644/ DATA ( BM2JI( 8,10,IBETA ), IBETA = 1, 10 ) / & 7.521152, 7.624621, 7.892039, 8.300444, 8.839787, & 9.493227, 10.231770, 11.015642, 11.799990, 12.542260/ DATA ( BM2JI( 9, 1,IBETA ), IBETA = 1, 10 ) / & 0.994285, 0.960012, 0.887939, 0.807040, 0.730578, & 0.663410, 0.606466, 0.559137, 0.520426, 0.489429/ DATA ( BM2JI( 9, 2,IBETA ), IBETA = 1, 10 ) / & 1.033505, 0.998153, 0.923772, 0.840261, 0.761383, & 0.692242, 0.633873, 0.585709, 0.546777, 0.516215/ DATA ( BM2JI( 9, 3,IBETA ), IBETA = 1, 10 ) / & 1.132774, 1.094907, 1.015161, 0.925627, 0.841293, & 0.767888, 0.706741, 0.657439, 0.619135, 0.591119/ DATA ( BM2JI( 9, 4,IBETA ), IBETA = 1, 10 ) / & 1.286308, 1.245273, 1.158809, 1.061889, 0.971208, & 0.893476, 0.830599, 0.782561, 0.748870, 0.729198/ DATA ( BM2JI( 9, 5,IBETA ), IBETA = 1, 10 ) / & 1.511105, 1.467141, 1.374520, 1.271162, 1.175871, & 1.096887, 1.037243, 0.997820, 0.978924, 0.980962/ DATA ( BM2JI( 9, 6,IBETA ), IBETA = 1, 10 ) / & 1.857468, 1.812177, 1.717002, 1.612197, 1.519171, & 1.448660, 1.405871, 1.393541, 1.413549, 1.467532/ DATA ( BM2JI( 9, 7,IBETA ), IBETA = 1, 10 ) / & 2.430619, 2.388452, 2.301326, 2.210241, 2.139724, & 2.104571, 2.114085, 2.174696, 2.291294, 2.467500/ DATA ( BM2JI( 9, 8,IBETA ), IBETA = 1, 10 ) / & 3.385332, 3.357690, 3.306611, 3.269804, 3.274462, & 3.340862, 3.484609, 3.717740, 4.048748, 4.481588/ DATA ( BM2JI( 9, 9,IBETA ), IBETA = 1, 10 ) / & 4.850497, 4.858280, 4.896008, 4.991467, 5.171511, & 5.459421, 5.873700, 6.426128, 7.119061, 7.942603/ DATA ( BM2JI( 9,10,IBETA ), IBETA = 1, 10 ) / & 6.957098, 7.020164, 7.197272, 7.499331, 7.946554, & 8.555048, 9.330503, 10.263610, 11.327454, 12.478332/ DATA ( BM2JI( 10, 1,IBETA ), IBETA = 1, 10 ) / & 0.994567, 0.961842, 0.892854, 0.814874, 0.740198, & 0.673303, 0.615105, 0.565139, 0.522558, 0.486556/ DATA ( BM2JI( 10, 2,IBETA ), IBETA = 1, 10 ) / & 1.031058, 0.997292, 0.926082, 0.845571, 0.768501, & 0.699549, 0.639710, 0.588538, 0.545197, 0.508894/ DATA ( BM2JI( 10, 3,IBETA ), IBETA = 1, 10 ) / & 1.122535, 1.086287, 1.009790, 0.923292, 0.840626, & 0.766982, 0.703562, 0.650004, 0.605525, 0.569411/ DATA ( BM2JI( 10, 4,IBETA ), IBETA = 1, 10 ) / & 1.261142, 1.221555, 1.137979, 1.043576, 0.953745, & 0.874456, 0.807292, 0.752109, 0.708326, 0.675477/ DATA ( BM2JI( 10, 5,IBETA ), IBETA = 1, 10 ) / & 1.456711, 1.413432, 1.322096, 1.219264, 1.122319, & 1.038381, 0.969743, 0.916811, 0.879544, 0.858099/ DATA ( BM2JI( 10, 6,IBETA ), IBETA = 1, 10 ) / & 1.741792, 1.695157, 1.596897, 1.487124, 1.385734, & 1.301670, 1.238638, 1.198284, 1.181809, 1.190689/ DATA ( BM2JI( 10, 7,IBETA ), IBETA = 1, 10 ) / & 2.190197, 2.141721, 2.040226, 1.929245, 1.832051, & 1.760702, 1.721723, 1.719436, 1.757705, 1.840677/ DATA ( BM2JI( 10, 8,IBETA ), IBETA = 1, 10 ) / & 2.940764, 2.895085, 2.801873, 2.707112, 2.638603, & 2.613764, 2.644686, 2.741255, 2.912790, 3.168519/ DATA ( BM2JI( 10, 9,IBETA ), IBETA = 1, 10 ) / & 4.186191, 4.155844, 4.101953, 4.069102, 4.089886, & 4.189530, 4.389145, 4.707528, 5.161567, 5.765283/ DATA ( BM2JI( 10,10,IBETA ), IBETA = 1, 10 ) / & 6.119526, 6.127611, 6.171174, 6.286528, 6.508738, & 6.869521, 7.396912, 8.113749, 9.034683, 10.162190/ C *** end of data statements. C---------------------------------------------------------------------- CONSTII = ABS( HALF * ( TWO ) ** TWO3RDS - ONE ) SQRTTWO = SQRT( TWO ) DLGSQT2 = ONE / LOG( SQRTTWO ) ESAT01 = EXP( 0.125D0 * XXLSGAT * XXLSGAT ) ESAC01 = EXP( 0.125D0 * XXLSGAC * XXLSGAC ) ESAT04 = ESAT01 ** 4 ESAC04 = ESAC01 ** 4 ESAT05 = ESAT04 * ESAT01 ESAC05 = ESAC04 * ESAC01 ESAT08 = ESAT04 * ESAT04 ESAC08 = ESAC04 * ESAC04 ESAT09 = ESAT08 * ESAT01 ESAC09 = ESAC08 * ESAC01 ESAT16 = ESAT08 * ESAT08 ESAC16 = ESAC08 * ESAC08 ESAT20 = ESAT16 * ESAT04 ESAC20 = ESAC16 * ESAC04 ESAT24 = ESAT20 * ESAT04 ESAC24 = ESAC20 * ESAC04 ESAT25 = ESAT20 * ESAT05 ESAC25 = ESAC20 * ESAC05 ESAT36 = ESAT20 * ESAT16 ESAC36 = ESAC20 * ESAC16 ESAT49 = ESAT24 * ESAT25 ESAT64 = ESAT20 * ESAT20 * ESAT24 ESAC64 = ESAC20 * ESAC20 * ESAC24 ESAT100 = ESAT64 * ESAT36 DGAT2 = DGATK * DGATK DGAT3 = DGATK * DGATK * DGATK DGAC2 = DGACC * DGACC DGAC3 = DGACC * DGACC * DGACC SQDGAT = SQRT( DGATK ) SQDGAC = SQRT( DGACC ) SQDGAT5 = DGAT2 * SQDGAT SQDGAC5 = DGAC2 * SQDGAC SQDGAT7 = DGAT3 * SQDGAT C *** For the free molecular regime: Page H.3 of Whitby et al. (1991) R = SQDGAC / SQDGAT R2 = R * R R3 = R2 * R R4 = R2 * R2 R6 = R3 * R3 RI1 = ONE / R RI2 = ONE / R2 RI3 = ONE / R3 RI4 = RI2 * RI2 KNGAT = TWO * LAMDA / DGATK KNGAC = TWO * LAMDA / DGACC C *** Calculate ratio of geometric mean diameters RAT = DGACC / DGATK C *** Trap subscripts for BM0 and BM0I, between 1 and 10 c See page H.5 of Whitby et al. (1991) N2N = MAX( 1, MIN( 10, & NINT( 4.0 * ( SGATK - 0.75D0 ) ) ) ) N2A = MAX( 1, MIN( 10, & NINT( 4.0 * ( SGACC - 0.75D0 ) ) ) ) N1 = MAX( 1, MIN( 10, & 1 + NINT( DLGSQT2 * LOG( RAT ) ) ) ) C *** Intermodal Coagulation C *** Set up for zeroth moment C *** Near-continuum form: Equation H.10a of Whitby et al. (1991) COAGNC0 = KNC * ( & TWO + A * ( KNGAT * ( ESAT04 + R2 * ESAT16 * ESAC04 ) & + KNGAC * ( ESAC04 + RI2 * ESAC16 * ESAT04 ) ) & + ( R2 + RI2 ) * ESAT04 * ESAC04 ) C *** Free-molecular form: Equation H.7a of Whitby et al. (1991) COAGFM0 = KFMATAC * SQDGAT * BM0IJ( N1,N2N,N2A ) * ( & ESAT01 + R * ESAC01 + TWO * R2 * ESAT01 * ESAC04 & + R4 * ESAT09 * ESAC16 + RI3 * ESAT16 * ESAC09 & + TWO * RI1 * ESAT04 + ESAC01 ) C *** Loss to accumulation mode C *** Harmonic Mean COAGATAC0 = COAGNC0 * COAGFM0 / ( COAGNC0 + COAGFM0 ) QN12 = COAGATAC0 C *** Set up for second moment C The second moment equations are new and begin with equations A1 C through A4 of Binkowski and Shankar (1995). After some algebraic C rearrangement and application of the extended mean value theorem C of integral calculus, equations are obtained that can be solved C analytically with correction factors as has been done by C Whitby et al. (1991) C *** The term ( dp1 + dp2 ) ** (2/3) in Equations A3 and A4 of C Binkowski and Shankar (1995) is approximated by C (DGAT ** 3 + DGAC **3 ) ** 2/3 C *** Near-continuum form I1NC = KNC * DGAT2 * ( & TWO * ESAT16 & + R2 * ESAT04 * ESAC04 & + RI2 * ESAT36 * ESAC04 & + A * KNGAT * ( & ESAT04 & + RI2 * ESAT16 * ESAC04 & + RI4 * ESAT36 * ESAC16 & + R2 * ESAC04 ) ) C *** Free-molecular form I1FM = KFMATAC * SQDGAT5 * BM2IJ( N1,N2N,N2A ) * ( & ESAT25 & + TWO * R2 * ESAT09 * ESAC04 & + R4 * ESAT01 * ESAC16 & + RI3 * ESAT64 * ESAC09 & + TWO * RI1 * ESAT36 * ESAC01 & + R * ESAT16 * ESAC01 ) C *** Loss to accumulation mode C *** Harmonic mean I1 = ( I1FM * I1NC ) / ( I1FM + I1NC ) COAGATAC2 = I1 QS12 = COAGATAC2 C *** Gain by accumulation mode COAGACAT2 = ( ( ONE + R6 ) ** TWO3RDS - R4 ) * I1 QS21 = COAGACAT2 * BM2JI( N1,N2N,N2A ) C *** Set up for third moment C *** Near-continuum form: Equation H.10b of Whitby et al. (1991) COAGNC3 = KNC * DGAT3 * ( & TWO * ESAT36 & + A * KNGAT * ( ESAT16 + R2 * ESAT04 * ESAC04 ) & + A * KNGAC * ( ESAT36 * ESAC04 + RI2 * ESAT64 * ESAC16 ) & + R2 * ESAT16 * ESAC04 + RI2 * ESAT64 * ESAC04 ) C *** Free_molecular form: Equation H.7b of Whitby et al. (1991) COAGFM3 = KFMATAC * SQDGAT7 * BM3I( N1, N2N, N2A ) * ( & ESAT49 & + R * ESAT36 * ESAC01 & + TWO * R2 * ESAT25 * ESAC04 & + R4 * ESAT09 * ESAC16 & + RI3 * ESAT100 * ESAC09 & + TWO * RI1 * ESAT64 * ESAC01 ) C *** gain by accumulation mode = loss from Aitken mode C *** Harmonic mean COAGATAC3 = COAGNC3 * COAGFM3 / ( COAGNC3 + COAGFM3 ) QV12 = COAGATAC3 C *** Intramodal coagulation C *** Zeroeth moment C *** Aitken mode C *** Near-continuum form: Equation H.12a of Whitby et al. (1991) COAGNC_AT = KNC * (ONE + ESAT08 + A * KNGAT * ( ESAT20 + ESAT04 ) ) C *** Free-molecular form: Equation H.11a of Whitby et al. (1991) COAGFM_AT = KFMAT * SQDGAT * BM0( N2N ) * & ( ESAT01 + ESAT25 + TWO * ESAT05 ) C *** Harmonic mean COAGATAT0 = COAGFM_AT * COAGNC_AT / ( COAGFM_AT + COAGNC_AT ) QN11 = COAGATAT0 C *** Accumulation mode C *** Near-continuum form: Equation H.12a of Whitby et al. (1991) COAGNC_AC = KNC * (ONE + ESAC08 + A * KNGAC * ( ESAC20 + ESAC04 ) ) C *** Free-molecular form: Equation H.11a of Whitby et al. (1991) COAGFM_AC = KFMAC * SQDGAC * BM0( N2A ) * & ( ESAC01 + ESAC25 + TWO * ESAC05 ) C *** Harmonic mean COAGACAC0 = COAGFM_AC * COAGNC_AC / ( COAGFM_AC + COAGNC_AC ) QN22 = COAGACAC0 C *** Set up for second moment C The second moment equations are new and begin with 3.11a on Page c 45 of Whitby et al. (1991). After some algebraic rearrangement and c application of the extended mean value theorem of integral calculus c equations are obtained that can be solved analytically with c correction factors as has been done by Whitby et al. (1991) C *** Aitken mode C *** Near-continuum I1NC_AT = KNC * DGAT2 * ( & TWO * ESAT16 & + ESAT04 * ESAT04 & + ESAT36 * ESAT04 & + A * KNGAT * ( & TWO * ESAT04 & + ESAT16 * ESAT04 & + ESAT36 * ESAT16 ) ) C *** Free- molecular form I1FM_AT = KFMAT * SQDGAT5 * BM2II( N2N ) * ( & ESAT25 & + TWO * ESAT09 * ESAT04 & + ESAT01 * ESAT16 & + ESAT64 * ESAT09 & + TWO * ESAT36 * ESAT01 & + ESAT16 * ESAT01 ) I1_AT = ( I1NC_AT * I1FM_AT ) / ( I1NC_AT + I1FM_AT ) COAGATAT2 = CONSTII * I1_AT QS11 = COAGATAT2 * BM2IITT( N2N ) C *** Accumulation mode C *** Near-continuum I1NC_AC = KNC * DGAC2 * ( & TWO * ESAC16 & + ESAC04 * ESAC04 & + ESAC36 * ESAC04 & + A * KNGAC * ( & TWO * ESAC04 & + ESAC16 * ESAC04 & + ESAC36 * ESAC16 ) ) C *** Free-molecular form I1FM_AC = KFMAC * SQDGAC5 * BM2II( N2A ) * ( & ESAC25 & + TWO * ESAC09 * ESAC04 & + ESAC01 * ESAC16 & + ESAC64 * ESAC09 & + TWO * ESAC36 * ESAC01 & + ESAC16 * ESAC01 ) I1_AC = ( I1NC_AC * I1FM_AC ) / ( I1NC_AC + I1FM_AC ) COAGACAC2 = CONSTII * I1_AC QS22 = COAGACAC2 * BM2IITT( N2A ) RETURN END SUBROUTINE GETCOAGS C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: subroutine intracoag_gh( lamda, kfm, knc, dg, xlnsig, & quads11, quadn11 ) c Gauss-Hermite numerical quadrature to calculate intramodal coagulation c rates for number and second moment c FSB: This version runs in real*8 arithmetic c *** This version calculates the coagulation coefficients using the harmonic c mean approach for both fm and nc cases. c *** Does gauss-hermite quadrature for intra-modal coagulation integrals for c 2nd moment for a lognormal distribution defined by dg, xlnsig, c *** dg and xlnsig are the geometric mean diameters (meters) and the logarithms c of the geometric standard deviations (dimensionless) whose meaning is c defined below at the end of the routine ghxi, ghwi are the gauss-hermite c weights and n is one-half the number of abscissas, since an even number c of abscissas is used implicit none c *** arguments: real( 8 ), intent( in ) :: lamda ! mean free path real( 8 ), intent( in ) :: kfm, knc real, intent( in ) :: dg, xlnsig real( 8 ), intent( out ) :: quads11, quadn11 c *** parameters: real( 8 ), parameter :: pi = 3.14159265358979324d0 real( 8 ), parameter :: two3rds = 2.0d0 / 3.0d0 real( 8 ), parameter :: sqrt2 = 1.414213562373095d0 real( 8 ), parameter :: A = 1.246d0 ! approx Cunningham corr. factor real( 8 ), parameter :: twoA = 2.0d0 * A c *** local variables: real( 8 ) :: sum1sfm, sum2sfm, sum1nfm, sum2nfm real( 8 ) :: sum1snc, sum2snc, sum1nnc, sum2nnc real( 8 ) :: xi, wxi, xf, dp1p, dp1m, dp1psq, dp1msq real( 8 ) :: v1p,v1m, a2p, a2m, v2p, v2m real( 8 ) :: yi, wyi, yf, dp2p, dp2m, dp2psq, dp2msq real( 8 ) :: dspp, dsmp, dspm, dsmm real( 8 ) :: bppfm, bmpfm, bpmfm, bmmfm real( 8 ) :: bppnc, bmpnc, bpmnc, bmmnc real( 8 ) :: xx1, xx2 real( 8 ) :: xbsfm, xbsnc, xbnfm, xbnnc integer i, j c *** Has a fixed number of Gauss-Herimite abscissas (n) integer, parameter :: n = 5 ! one-half the number of abscissas real( 8 ) :: ghxi( n ) ! Gauss-Hermite abscissas real( 8 ) :: ghwi( n ) ! Gauss-Hermite weights c *** Values from Table 25.10 (page 924) of Abramowitz and Stegun, c Handbook of Mathematical Functions, National Bureau of Standards, c December 1965. c (Breaks in number to facilitate comparison with printed table.) c *** tests show that 10 point is adquate. data ghxi/ 0.34290 13272 23705d0, & 1.03661 08297 89514d0, & 1.75668 36492 99882d0, & 2.53273 16742 32790d0, & 3.43615 91188 37738d0 /, & ghwi/ 6.10862 63373 53d-01, & 2.40138 61108 23d-01, & 3.38743 94455 48d-02, & 1.34364 57467 81d-03, & 7.64043 28552 33d-06 / c *** The following Statement Functions are based on expressions from c Binkowski & Shanker, Jour. Geophys. Research. Vol. 100, no. d12, c pp 26,191-26,209 December 20, 1995 real( 8 ) :: betafm, betanc c *** for Free Molecular, Eq. A5 betafm( xx1, xx2 ) = kfm & * sqrt( 1.d0 / xx1 ** 3 + 1.d0 / xx2 ** 3 ) & * ( xx1 + xx2 ) ** 2 c *** for Near Continuum, Eq. A6 betanc( xx1, xx2 ) = knc * ( xx1 + xx2 ) & * ( 1.0D0 / xx1 + 1.0d0 / xx2 + twoA * lamda & * ( 1.0d0 / xx1 ** 2 + 1.0d0 / xx2 ** 2 ) ) C----------------------------------------------------------------------- sum1sfm = 0.d0 sum1snc = 0.d0 sum1nfm = 0.d0 sum1nnc = 0.d0 do 201 i = 1, n sum2sfm = 0.d0 sum2snc = 0.d0 sum2nfm = 0.d0 sum2nnc = 0.d0 xi = ghxi( i ) wxi = ghwi( i ) xf = exp( sqrt2 * xi * xlnsig ) dp1p = dg * xf dp1m = dg / xf dp1psq = dp1p * dp1p dp1msq = dp1m * dp1m v1p = dp1p * dp1psq v1m = dp1m * dp1msq do 101 j = 1, n yi = ghxi( j ) wyi = ghwi( j ) yf = exp( sqrt2 * yi * xlnsig ) dp2p = dg * yf dp2m = dg / yf dp2psq = dp2p * dp2p dp2msq = dp2m * dp2m a2p = dp2psq a2m = dp2msq v2p = dp2p * dp2psq v2m = dp2m * dp2msq dspp = 0.5d0 * ( v1p + v2p ) ** two3rds - a2p dsmp = 0.5d0 * ( v1m + v2p ) ** two3rds - a2p dspm = 0.5d0 * ( v1p + v2m ) ** two3rds - a2m dsmm = 0.5d0 * ( v1m + v2m ) ** two3rds - a2m bppfm = betafm( dp1p, dp2p ) bmpfm = betafm( dp1m, dp2p ) bpmfm = betafm( dp1p, dp2m ) bmmfm = betafm( dp1m, dp2m ) bppnc = betanc( dp1p, dp2p ) bmpnc = betanc( dp1m, dp2p ) bpmnc = betanc( dp1p, dp2m ) bmmnc = betanc( dp1m, dp2m ) sum2sfm = sum2sfm + wyi * ( dspp * bppfm + dspm * bpmfm & + dsmp * bmpfm + dsmm * bmmfm ) sum2nfm = sum2nfm + wyi * ( bppfm + bmpfm + bpmfm + bmmfm ) sum2snc = sum2snc + wyi * ( dspp * bppnc + dspm * bpmnc & + dsmp * bmpnc + dsmm * bmmnc ) sum2nnc = sum2nnc + wyi * ( bppnc + bmpnc + bpmnc + bmmnc ) 101 continue sum1sfm = sum1sfm + wxi * sum2sfm sum1nfm = sum1nfm + wxi * sum2nfm sum1snc = sum1snc + wxi * sum2snc sum1nnc = sum1nnc + wxi * sum2nnc 201 continue c *** quads11 is the intra-modal coagulation term for 2nd moment xbsfm = -sum1sfm / pi xbsnc = -sum1snc / pi quads11 = xbsfm * xbsnc / ( xbsfm + xbsnc ) c *** quadn11 is the intra-modal coagulation term for number xbnfm = 0.5D0 * sum1nfm / pi xbnnc = 0.5D0 * sum1nnc / pi quadn11 = xbnfm * xbnnc / ( xbnfm + xbnnc ) return end subroutine intracoag_gh C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: subroutine intercoag_gh( lamda, kfm, knc, dg1, dg2, xlnsig1, xlnsig2, & quads12, quads21, quadn12, quadv12 ) c Gauss-Hermite numerical quadrature to calculate intermodal coagulation c for number, 2nd, and 3rd moment c FSB This version runs in real*8 arithmetic c *** This version calculates the coagulation coefficients using the harmonic c mean approach for both fm and nc cases. c *** Does gauss-hermite quadrature for inter-modal coagulation integrals c for 2nd moment for two lognormal distributions defined by dg1, xlnsig1, c dg2, xlnsig2. c *** dg and xlnsig are the geometric mean diameters (meters) and the logarithms c of the geometric standard deviations (dimensionless), whose meaning is c defined below at the end of the routine. c ghxi, ghwi are the gauss-hermite weights and n is one-half the c number of abscissas, since an even number of abscissas is used. implicit none c *** arguments: real( 8 ), intent( in ) :: lamda ! mean free path real( 8 ), intent( in ) :: kfm, knc real, intent( in ) :: dg1, dg2, xlnsig1, xlnsig2 real( 8 ), intent( out ) :: quads12, quads21, quadn12, quadv12 c *** parameters: real( 8 ), parameter :: pi = 3.14159265358979324d0 real( 8 ), parameter :: two3rds = 2.0d0 / 3.0d0 real( 8 ), parameter :: sqrt2 = 1.414213562373095d0 real( 8 ), parameter :: A = 1.246d0 ! approx Cunningham corr. factor real( 8 ), parameter :: twoA = 2.0d0 * A c *** local variables: real( 8 ) :: sum1s12fm, sum1s21fm, sum2s12fm, sum2s21fm real( 8 ) :: sum1nfm, sum2nfm real( 8 ) :: sum1vfm, sum2vfm real( 8 ) :: sum1s12nc, sum1s21nc, sum2s12nc, sum2s21nc real( 8 ) :: sum1nnc, sum2nnc real( 8 ) :: sum1vnc, sum2vnc real( 8 ) :: xi, wxi,xf, dp1p, dp1m, dp1psq, dp1msq real( 8 ) :: a1p, a1m, v1p, v1m real( 8 ) :: a2p, a2m, v2p, v2m real( 8 ) :: yi, wyi, yf, dp2p, dp2m, dp2psq, dp2msq real( 8 ) :: dspp, dsmp, dspm, dsmm real( 8 ) :: bppfm, bmpfm, bpmfm, bmmfm real( 8 ) :: bppnc, bmpnc, bpmnc, bmmnc real( 8 ) :: xx1, xx2 real( 8 ) :: xbsfm, xbsnc, xbnfm, xbnnc, xbvfm, xbvnc integer i, j c *** Has a fixed number of Gauss-Herimite abscissas (n) integer, parameter :: n = 5 ! one-half the number of abscissas real( 8 ) :: ghxi( n ) ! Gauss-Hermite abscissas real( 8 ) :: ghwi( n ) ! Gauss-Hermite weights c *** Values from Table 25.10 (page 924) of Abramowitz and Stegun, c Handbook of Mathematical Functions, National Bureau of Standards, c December 1965. c (Breaks in number to facilitate comparison with printed table.) c *** tests show that 10 point is adquate. data ghxi/ 0.34290 13272 23705D0, & 1.03661 08297 89514D0, & 1.75668 36492 99882D0, & 2.53273 16742 32790D0, & 3.43615 91188 37738D0 /, & ghwi/ 6.10862 63373 53d-01, & 2.40138 61108 23d-01, & 3.38743 94455 48d-02, & 1.34364 57467 81d-03, & 7.64043 28552 33d-06 / c *** The following Statement Functions are based on expressions from c Binkowski & Shanker, Jour. Geophys. Research. Vol. 100, no. d12, c pp 26,191-26,209 December 20, 1995 real( 8 ) :: betafm, betanc c *** for Free Molecular, Eq. A5 betafm( xx1, xx2 ) = kfm & * sqrt( 1.d0 / xx1 ** 3 + 1.d0 / xx2 ** 3 ) & * ( xx1 + xx2 ) ** 2 c *** for Near Continuum, Eq. A6 betanc( xx1, xx2 ) = knc * ( xx1 + xx2 ) & * ( 1.0D0 / xx1 + 1.0d0 / xx2 + twoA * lamda & * ( 1.0d0 / xx1 ** 2 + 1.0d0 / xx2 ** 2 ) ) c----------------------------------------------------------------------- sum1s12fm = 0.d0 sum1s12nc = 0.d0 sum1s21fm = 0.d0 sum1s21nc = 0.d0 sum1vnc = 0.d0 sum1vfm = 0.d0 sum1nfm = 0.d0 sum1nnc = 0.d0 do 201 i = 1, n sum2s12fm = 0.d0 sum2s12nc = 0.d0 sum2s21fm = 0.d0 sum2s21nc = 0.d0 sum2nfm = 0.d0 sum2nnc = 0.d0 sum2vnc = 0.d0 sum2vfm = 0.d0 xi = ghxi( i ) wxi = ghwi( i ) xf = exp( sqrt2 * xi *xlnsig1 ) dp1p = dg1 * xf dp1m = dg1 / xf dp1psq = dp1p * dp1p dp1msq = dp1m * dp1m a1p = dp1psq a1m = dp1msq v1p = dp1p * dp1psq v1m = dp1m * dp1msq do 101 j = 1, n yi = ghxi( j ) wyi = ghwi( j ) yf = exp( sqrt2 * yi * xlnsig2 ) dp2p = dg2 * yf dp2m = dg2 / yf dp2psq = dp2p * dp2p dp2msq = dp2m * dp2m a2p = dp2psq a2m = dp2msq v2p = dp2p * dp2psq v2m = dp2m * dp2msq dspp = ( v1p + v2p ) ** two3rds - a2p dsmp = ( v1m + v2p ) ** two3rds - a2p dspm = ( v1p + v2m ) ** two3rds - a2m dsmm = ( v1m + v2m ) ** two3rds - a2m bppfm = betafm( dp1p, dp2p ) bmpfm = betafm( dp1m, dp2p ) bpmfm = betafm( dp1p, dp2m ) bmmfm = betafm( dp1m, dp2m ) bppnc = betanc( dp1p, dp2p ) bmpnc = betanc( dp1m, dp2p ) bpmnc = betanc( dp1p, dp2m ) bmmnc = betanc( dp1m, dp2m ) sum2s12fm = sum2s12fm + wyi * ( a1p * bppfm + a1p * bpmfm & + a1m * bmpfm + a1m * bmmfm ) sum2s21fm = sum2s21fm + wyi * ( dspp * bppfm + dspm * bpmfm & + dsmp * bmpfm + dsmm * bmmfm ) sum2s12nc = sum2s12nc + wyi * ( a1p * bppnc + a1p * bpmnc & + a1m * bmpnc + a1m * bmmnc ) sum2s21nc = sum2s21nc + wyi * ( dspp * bppnc + dspm * bpmnc & + dsmp * bmpnc + dsmm * bmmnc ) sum2nfm = sum2nfm + wyi * ( bppfm + bmpfm + bpmfm + bmmfm ) sum2nnc = sum2nnc + wyi * ( bppnc + bmpnc + bpmnc + bmmnc ) sum2vfm = sum2vfm + wyi * ( v1p * ( bppfm + bpmfm ) & + v1m * ( bmpfm + bmmfm ) ) sum2vnc = sum2vnc + wyi * ( v1p * ( bppnc + bpmnc) & + v1m * ( bmpnc + bmmnc) ) 101 continue sum1s12fm = sum1s12fm + wxi * sum2s12fm sum1s21fm = sum1s21fm + wxi * sum2s21fm sum1nfm = sum1nfm + wxi * sum2nfm sum1vfm = sum1vfm + wxi * sum2vfm sum1s12nc = sum1s12nc + wxi * sum2s12nc sum1s21nc = sum1s21nc + wxi * sum2s21nc sum1nnc = sum1nnc + wxi * sum2nnc sum1vnc = sum1vnc + wxi * sum2vnc 201 continue C *** Second moment intermodal coagulation coefficients c FSB NOTE: the transfer of second moment is not symmetric. c See equations A3 & A4 of Binkowski & Shankar (1995) c *** to accumulation mode from Aitken mode xbsfm = sum1s21fm / pi xbsnc = sum1s21nc / pi quads21 = xbsfm * xbsnc / ( xbsfm + xbsnc ) c *** from Aitken mode to accumulation mode xbsfm = sum1s12fm / pi xbsnc = sum1s12nc / pi quads12 = xbsfm * xbsnc / ( xbsfm + xbsnc ) c *** quadn12 is the intermodal coagulation coefficient for number xbnfm = sum1nfm / pi xbnnc = sum1nnc / pi quadn12 = xbnfm * xbnnc / ( xbnfm + xbnnc ) c *** quadv12 is the intermodal coagulation coefficient for 3rd moment xbvfm = sum1vfm / pi xbvnc = sum1vnc / pi quadv12 = xbvfm * xbvnc / ( xbvfm + xbvnc ) return end subroutine intercoag_gh ================================================ FILE: CCTM/src/aero/aero6/getpar.f ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: Subroutine getpar( fixed_sg ) C Calculates the 3rd moments (M3), masses, aerosol densities, and C geometric mean diameters (Dg) of all 3 modes, and the natural logs of C geometric standard deviations (Sg) of the Aitken and accumulation modes. C The logical variable, WET_MOMENTS_FLAG, dictates whether the C calculations in GETPAR are to assume that the aerosol is "wet" or C "dry." In the present context, a "wet" aerosol consists of all C chemical components of the aerosol. A "dry" aerosol excludes C particle-bound water and also excludes semivol secondary organic aerosol. C NOTE! 2nd moment concentrations (M2) are passed into GETPAR in the C CBLK array and are modified within GETPAR only in the event that C the Sg value of a given mode has gone outside of the acceptable C range (1.05 to 2.50). The GETPAR calculations implicitly assume C that the input value of M2 is consistent with the input value of C WET_MOMENTS_FLAG. If, for example, the input M2 value was calculated C for a "dry" aerosol and the WET_MOMENTS_FLAG is .TRUE., GETPAR would C incorrectly adjust the M2 concentrations! C C Outputs: C moment3_conc third moment, proportional to volume [ m3/m3 ] C moment2_conc second moment, prop. to surface area [ m2/m3 ] C (adjusted if standard dev. hits limit) C aeromode_dens [ kg/m3 ] C aeromode_lnsg log of geometric standard deviation C aeromode_diam geometric mean diameter [ m ] C aeromode_mass mass concentration: [ ug / m**3 ] C C SH 03/10/11 Renamed met_data to aeromet_data C HP and BM 4/2016: Updated use of wet_moments_flag which is now C available through AERO_DATA consistent with the moments it refers to C----------------------------------------------------------------------- Use aero_data, only : wet_moments_flag, moment3_conc, moment2_conc, moment0_conc, & aeromode_dens, aeromode_lnsg, aeromode_diam, aeromode_mass, & min_dg_dry, min_dg_wet, min_sigma_g, max_sigma_g, n_mode, & aerospc, aero_missing, aerospc_conc, aeromode, n_aerospc Use aeromet_data, only : f6pi ! Includes CONST.EXT Implicit None C Arguments: Logical, Intent( In ) :: fixed_sg ! If TRUE, then the second moment is modified ! during each call in order to preserve the ! standard deviation at the current value. ! ! If FALSE, then the standard deviation is ! recalculated to be consistent with the current ! combination of the 0th, 2nd and 3rd moments. ! During this calculation, standard deviation is ! limited by parameters in AERO_DATA (min_sigma_g ! and max_sigma_g) C Local Variables: Real( 8 ) :: xxm0 ! temporary storage of moment 0 conc's Real( 8 ) :: xxm2 ! temporary storage of moment 2 conc's Real( 8 ) :: xxm3 ! temporary storage of moment 3 conc's Real( 8 ) :: xfsum ! (ln(M0)+2ln(M3))/3; used in Sg calcs Real( 8 ) :: lxfm2 ! ln(M2); used in Sg calcs Real( 8 ) :: l2sg ! square of ln(Sg); used in diameter calcs Real :: es36 ! exp(4.5*l2sg); used in diameter calcs Real( 8 ), Parameter :: one3d = 1.0D0 / 3.0D0 Real( 8 ), Parameter :: two3d = 2.0D0 / 3.0D0 Real, Parameter :: one3 = 1.0 / 3.0 Real, Parameter :: densmin = 1.0E03 ! minimum particle density [ kg/m**3 ] Real( 8 ), Save :: minl2sg( n_mode ) ! min value of ln(sg)**2 for each mode Real( 8 ), Save :: maxl2sg( n_mode ) ! max value of ln(sg)**2 for each mode Real( 8 ) :: factor Real( 8 ) :: species_mass Real( 8 ) :: sumM3 Real( 8 ) :: sumMass Integer :: n, spc ! loop counters Logical, Save :: FirsTime = .True. C----------------------------------------------------------------------- If ( FirsTime ) Then ! Set bounds for ln(Sg)**2 minl2sg = Real( Log( min_sigma_g ) ** 2, 8 ) maxl2sg = Real( Log( max_sigma_g ) ** 2, 8 ) FirsTime = .False. End If C *** Calculate aerosol 3rd moment concentrations [ m**3 / m**3 ] Do n = 1, n_mode sumM3 = 0.0d0 sumMass = 0.0d0 Do spc = 1, n_aerospc If ( aerospc( spc )%tracer .Or. aero_missing(spc,n) .Or. & ( aerospc( spc )%no_M2Wet .AND. .Not. wet_moments_flag ) ) Cycle factor = Real( 1.0E-9 * f6pi / aerospc( spc )%density, 8 ) species_mass = Real( aerospc_conc( spc,n ), 8 ) sumM3 = sumM3 + factor * species_mass sumMass = sumMass + species_mass End Do moment3_conc( n ) = Max ( Real( sumM3 ), aeromode( n )%min_m3conc ) aeromode_mass( n ) = Real( sumMass ) End Do C *** Calculate modal average particle densities [ kg/m**3 ] aeromode_dens = 1.0E-9 * f6pi * aeromode_mass / moment3_conc Where( aeromode_dens .Lt. densmin ) aeromode_dens = densmin End Where C *** Calculate geometric standard deviations as follows: c ln^2(Sg) = 1/3*ln(M0) + 2/3*ln(M3) - ln(M2) c NOTES: c 1. Equation 10-5a of [Binkowski:1999] and Equation 5a of c Binkowski&Roselle(2003) contain typographical errors. c 2. If the square of the logarithm of the geometric standard c deviation is out of an acceptable range, reset this value and c adjust the second moments to be consistent with this value. c In this manner, M2 is artificially increased when Sg exceeds c the maximum limit. M2 is artificially decreased when Sg falls c below the minimum limit. Do n = 1, n_mode xxm0 = Real( moment0_conc( n ), 8 ) xxm3 = Real( moment3_conc( n ), 8 ) xfsum = one3d * Log( xxm0 ) + two3d * Log( xxm3 ) if ( fixed_sg ) then l2sg = Real( aeromode_lnsg( n ) ** 2, 8) else xxm2 = Real( moment2_conc( n ), 8 ) lxfm2 = Log( xxm2 ) l2sg = xfsum - lxfm2 l2sg = Max( l2sg, minl2sg( n ) ) l2sg = Min( l2sg, maxl2sg( n ) ) end if lxfm2 = xfsum - l2sg moment2_conc( n ) = Real( Exp ( lxfm2 ) ) aeromode_lnsg( n ) = Real( Sqrt( l2sg ) ) ES36 = Real( Exp( 4.5d0 * l2sg ) ) ! Implement a lower-bound on the number concentration that ! constrains the mean diameter of each mode to less than 100 um moment0_conc( n ) = Max(moment0_conc( n ), & moment3_conc( n )/(1.0e-12 * es36) ) aeromode_diam( n ) = ( moment3_conc( n ) / & ( moment0_conc( n ) * es36 ) ) ** one3 End Do Return End Subroutine getpar ================================================ FILE: CCTM/src/aero/aero6/isocom.f ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C ====================================================================== C C *** ISORROPIA CODE II C *** SUBROUTINE ISOROPIA C *** THIS SUBROUTINE IS THE MASTER ROUTINE FOR THE ISORROPIA C THERMODYNAMIC EQUILIBRIUM AEROSOL MODEL (VERSION 1.1 and above) C C ======================== ARGUMENTS / USAGE =========================== C C INPUT: C 1. [WI] C DOUBLE PRECISION array of length [8]. C Concentrations, expressed in moles/m3. Depending on the type of C problem solved (specified in CNTRL(1)), WI contains either C GAS+AEROSOL or AEROSOL only concentratios. C WI(1) - sodium C WI(2) - sulfate C WI(3) - ammonium C WI(4) - nitrate C WI(5) - chloride C WI(6) - calcium C WI(7) - potassium C WI(8) - magnesium C C 2. [RHI] C DOUBLE PRECISION variable. C Ambient relative humidity expressed on a (0,1) scale. C C 3. [TEMPI] C DOUBLE PRECISION variable. C Ambient temperature expressed in Kelvins. C C 4. [CNTRL] C DOUBLE PRECISION array of length [2]. C Parameters that control the type of problem solved. C C CNTRL(1): Defines the type of problem solved. C 0 - Forward problem is solved. In this case, array WI contains C GAS and AEROSOL concentrations together. C 1 - Reverse problem is solved. In this case, array WI contains C AEROSOL concentrations only. C C CNTRL(2): Defines the state of the aerosol C 0 - The aerosol can have both solid+liquid phases (deliquescent) C 1 - The aerosol is in only liquid state (metastable aerosol) C C OUTPUT: C 1. [WT] C DOUBLE PRECISION array of length [8]. C Total concentrations (GAS+AEROSOL) of species, expressed in moles/m3. C If the foreward probelm is solved (CNTRL(1)=0), array WT is C identical to array WI. C WT(1) - total sodium C WT(2) - total sulfate C WT(3) - total ammonium C WT(4) - total nitrate C WT(5) - total chloride C WT(6) - total calcium C WT(7) - total potassium C WT(8) - total magnesium C C 2. [GAS] C DOUBLE PRECISION array of length [03]. C Gaseous species concentrations, expressed in moles/m3. C GAS(1) - NH3 C GAS(2) - HNO3 C GAS(3) - HCl C C 3. [AERLIQ] C DOUBLE PRECISION array of length [15]. C Liquid aerosol species concentrations, expressed in moles/m3. C AERLIQ(01) - H+(aq) C AERLIQ(02) - Na+(aq) C AERLIQ(03) - NH4+(aq) C AERLIQ(04) - Cl-(aq) C AERLIQ(05) - SO4--(aq) C AERLIQ(06) - HSO4-(aq) C AERLIQ(07) - NO3-(aq) C AERLIQ(08) - H2O C AERLIQ(09) - NH3(aq) (undissociated) C AERLIQ(10) - HNCl(aq) (undissociated) C AERLIQ(11) - HNO3(aq) (undissociated) C AERLIQ(12) - OH-(aq) C AERLIQ(13) - Ca2+(aq) C AERLIQ(14) - K+(aq) C AERLIQ(15) - Mg2+(aq) C C 4. [AERSLD] C DOUBLE PRECISION array of length [19]. C Solid aerosol species concentrations, expressed in moles/m3. C AERSLD(01) - NaNO3(s) C AERSLD(02) - NH4NO3(s) C AERSLD(03) - NaCl(s) C AERSLD(04) - NH4Cl(s) C AERSLD(05) - Na2SO4(s) C AERSLD(06) - (NH4)2SO4(s) C AERSLD(07) - NaHSO4(s) C AERSLD(08) - NH4HSO4(s) C AERSLD(09) - (NH4)4H(SO4)2(s) C AERSLD(10) - CaSO4(s) C AERSLD(11) - Ca(NO3)2(s) C AERSLD(12) - CaCl2(s) C AERSLD(13) - K2SO4(s) C AERSLD(14) - KHSO4(s) C AERSLD(15) - KNO3(s) C AERSLD(16) - KCl(s) C AERSLD(17) - MgSO4(s) C AERSLD(18) - Mg(NO3)2(s) C AERSLD(19) - MgCl2(s) C C 5. [SCASI] C CHARACTER*15 variable. C Returns the subcase which the input corresponds to. C C 6. [OTHER] C DOUBLE PRECISION array of length [9]. C Returns solution information. C C OTHER(1): Shows if aerosol water exists. C 0 - Aerosol is WET C 1 - Aerosol is DRY C C OTHER(2): Aerosol Sulfate ratio, defined as (in moles/m3) : C (total ammonia + total Na) / (total sulfate) C C OTHER(3): Sulfate ratio based on aerosol properties that defines C a sulfate poor system: C (aerosol ammonia + aerosol Na) / (aerosol sulfate) C C OTHER(4): Aerosol sodium ratio, defined as (in moles/m3) : C (total Na) / (total sulfate) C C OTHER(5): Ionic strength of the aqueous aerosol (if it exists). C C OTHER(6): Total number of calls to the activity coefficient C calculation subroutine. C C OTHER(7): Sulfate ratio with crustal species, defined as (in moles/m3) : C (total ammonia + total crustal species + total Na) / (total sulfate) C C OTHER(8): Crustal species + sodium ratio, defined as (in moles/m3) : C (total crustal species + total Na) / (total sulfate) C C OTHER(9): Crustal species ratio, defined as (in moles/m3) : C (total crustal species) / (total sulfate) C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE ISOROPIA (WI, RHI, TEMPI, CNTRL, & WT, GAS, AERLIQ, AERSLD, SCASI, OTHER) INCLUDE 'isrpia.inc' PARAMETER (NCTRL=2,NOTHER=9) CHARACTER SCASI*15 DIMENSION WI(NCOMP), WT(NCOMP), GAS(NGASAQ), AERSLD(NSLDS), & AERLIQ(NIONS+NGASAQ+2), CNTRL(NCTRL), OTHER(NOTHER) C C *** PROBLEM TYPE (0=FOREWARD, 1=REVERSE) ****************************** C IPROB = NINT(CNTRL(1)) C C *** AEROSOL STATE (0=SOLID+LIQUID, 1=METASTABLE) ********************** C METSTBL = NINT(CNTRL(2)) C C *** SOLVE FOREWARD PROBLEM ******************************************** C 50 IF (IPROB.EQ.0) THEN IF (WI(1)+WI(2)+WI(3)+WI(4)+WI(5)+WI(6)+WI(7)+WI(8) .LE. TINY) & THEN !Everything=0 CALL INIT1 (WI, RHI, TEMPI) ELSE IF (WI(1)+WI(4)+WI(5)+WI(6)+WI(7)+WI(8) .LE. TINY) THEN !Ca,K,Mg,Na,Cl,NO3=0 CALL ISRP1F (WI, RHI, TEMPI) ELSE IF (WI(1)+WI(5)+WI(6)+WI(7)+WI(8) .LE. TINY) THEN !Ca,K,Mg,Na,Cl=0 CALL ISRP2F (WI, RHI, TEMPI) ELSE IF (WI(6)+WI(7)+WI(8) .LE. TINY) THEN !Ca,K,Mg=0 CALL ISRP3F (WI, RHI, TEMPI) ELSE CALL ISRP4F (WI, RHI, TEMPI) ENDIF C C *** SOLVE REVERSE PROBLEM ********************************************* C ELSE IF (WI(1)+WI(2)+WI(3)+WI(4)+WI(5)+WI(6)+WI(7)+WI(8) .LE. TINY) & THEN !Everything=0 CALL INIT1 (WI, RHI, TEMPI) ELSE IF (WI(1)+WI(4)+WI(5)+WI(6)+WI(7)+WI(8) .LE. TINY) THEN !Ca,K,Mg,Na,Cl,NO3=0 CALL ISRP1R (WI, RHI, TEMPI) ELSE IF (WI(1)+WI(5)+WI(6)+WI(7)+WI(8) .LE. TINY) THEN !Ca,K,Mg,Na,Cl=0 CALL ISRP2R (WI, RHI, TEMPI) ELSE IF (WI(6)+WI(7)+WI(8) .LE. TINY) THEN !Ca,K,Mg=0 CALL ISRP3R (WI, RHI, TEMPI) ELSE CALL ISRP4R (WI, RHI, TEMPI) ENDIF ENDIF C C *** ADJUST MASS BALANCE *********************************************** C IF (NADJ.EQ.1) CALL ADJUST (WI) ccC ccC *** IF METASTABLE AND NO WATER - RESOLVE AS NORMAL ******************** ccC cc IF (WATER.LE.TINY .AND. METSTBL.EQ.1) THEN cc METSTBL = 0 cc GOTO 50 cc ENDIF C C *** SAVE RESULTS TO ARRAYS (units = mole/m3) **************************** C GAS(1) = GNH3 ! Gaseous aerosol species GAS(2) = GHNO3 GAS(3) = GHCL C DO 10 I=1,7 ! Liquid aerosol species AERLIQ(I) = MOLAL(I) 10 CONTINUE DO 20 I=1,NGASAQ AERLIQ(7+1+I) = GASAQ(I) 20 CONTINUE AERLIQ(7+1) = WATER*1.0D3/18.0D0 AERLIQ(7+NGASAQ+2) = COH C DO 250 I=8,10 ! Liquid aerosol species AERLIQ(I+5) = MOLAL(I) 250 CONTINUE C AERSLD(1) = CNANO3 ! Solid aerosol species AERSLD(2) = CNH4NO3 AERSLD(3) = CNACL AERSLD(4) = CNH4CL AERSLD(5) = CNA2SO4 AERSLD(6) = CNH42S4 AERSLD(7) = CNAHSO4 AERSLD(8) = CNH4HS4 AERSLD(9) = CLC AERSLD(10) = CCASO4 AERSLD(11) = CCANO32 AERSLD(12) = CCACL2 AERSLD(13) = CK2SO4 AERSLD(14) = CKHSO4 AERSLD(15) = CKNO3 AERSLD(16) = CKCL AERSLD(17) = CMGSO4 AERSLD(18) = CMGNO32 AERSLD(19) = CMGCL2 C IF(WATER.LE.TINY) THEN ! Dry flag OTHER(1) = 1.d0 ELSE OTHER(1) = 0.d0 ENDIF C OTHER(2) = SULRAT ! Other stuff OTHER(3) = SULRATW OTHER(4) = SODRAT OTHER(5) = IONIC OTHER(6) = ICLACT OTHER(7) = SO4RAT OTHER(8) = CRNARAT OTHER(9) = CRRAT C SCASI = SCASE C WT(1) = WI(1) ! Total gas+aerosol phase WT(2) = WI(2) WT(3) = WI(3) WT(4) = WI(4) WT(5) = WI(5) WT(6) = WI(6) WT(7) = WI(7) WT(8) = WI(8) IF (IPROB.GT.0 .AND. WATER.GT.TINY) THEN WT(3) = WT(3) + GNH3 WT(4) = WT(4) + GHNO3 WT(5) = WT(5) + GHCL ENDIF C RETURN C C *** END OF SUBROUTINE ISOROPIA ****************************************** C END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE SETPARM C *** THIS SUBROUTINE REDEFINES THE SOLUTION PARAMETERS OF ISORROPIA C C ======================== ARGUMENTS / USAGE =========================== C C *** NOTE: IF NEGATIVE VALUES ARE GIVEN FOR A PARAMETER, IT IS C IGNORED AND THE CURRENT VALUE IS USED INSTEAD. C C INPUT: C 1. [WFTYPI] C INTEGER variable. C Defines the type of weighting algorithm for the solution in Mutual C Deliquescence Regions (MDR's): C 0 - MDR's are assumed dry. This is equivalent to the approach C used by SEQUILIB. C 1 - The solution is assumed "half" dry and "half" wet throughout C the MDR. C 2 - The solution is a relative-humidity weighted mean of the C dry and wet solutions (as defined in Nenes et al., 1998) C C 2. [IACALCI] C INTEGER variable. C Method of activity coefficient calculation: C 0 - Calculate coefficients during runtime C 1 - Use precalculated tables C C 3. [EPSI] C DOUBLE PRECITION variable. C Defines the convergence criterion for all iterative processes C in ISORROPIA, except those for activity coefficient calculations C (EPSACTI controls that). C C 4. [MAXITI] C INTEGER variable. C Defines the maximum number of iterations for all iterative C processes in ISORROPIA, except for activity coefficient calculations C (NSWEEPI controls that). C C 5. [NSWEEPI] C INTEGER variable. C Defines the maximum number of iterations for activity coefficient C calculations. C C 6. [EPSACTI] C DOUBLE PRECISION variable. C Defines the convergence criterion for activity coefficient C calculations. C C 7. [NDIV] C INTEGER variable. C Defines the number of subdivisions needed for the initial root C tracking for the bisection method. Usually this parameter should C not be altered, but is included for completeness. C C 8. [NADJ] C INTEGER variable. C Forces the solution obtained to satisfy total mass balance C to machine precision C 0 - No adjustment done (default) C 1 - Do adjustment C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE SETPARM (WFTYPI, IACALCI, EPSI, MAXITI, NSWEEPI, & EPSACTI, NDIVI, NADJI) INCLUDE 'isrpia.inc' INTEGER WFTYPI C C *** SETUP SOLUTION PARAMETERS ***************************************** C IF (WFTYPI .GE. 0) WFTYP = WFTYPI IF (IACALCI.GE. 0) IACALC = IACALCI IF (EPSI .GE.ZERO) EPS = EPSI IF (MAXITI .GT. 0) MAXIT = MAXITI IF (NSWEEPI.GT. 0) NSWEEP = NSWEEPI IF (EPSACTI.GE.ZERO) EPSACT = EPSACTI IF (NDIVI .GT. 0) NDIV = NDIVI IF (NADJI .GE. 0) NADJ = NADJI C C *** END OF SUBROUTINE SETPARM ***************************************** C RETURN END C C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE GETPARM C *** THIS SUBROUTINE OBTAINS THE CURRENT VAULES OF THE SOLUTION C PARAMETERS OF ISORROPIA C C ======================== ARGUMENTS / USAGE =========================== C C *** THE PARAMETERS ARE THOSE OF SUBROUTINE SETPARM C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE GETPARM (WFTYPI, IACALCI, EPSI, MAXITI, NSWEEPI, & EPSACTI, NDIVI, NADJI) INCLUDE 'isrpia.inc' INTEGER WFTYPI C C *** GET SOLUTION PARAMETERS ******************************************* C WFTYPI = WFTYP IACALCI = IACALC EPSI = EPS MAXITI = MAXIT NSWEEPI = NSWEEP EPSACTI = EPSACT NDIVI = NDIV NADJI = NADJ C C *** END OF SUBROUTINE GETPARM ***************************************** C RETURN END C======================================================================= C C *** ISORROPIA CODE C *** BLOCK DATA BLKISO C *** THIS SUBROUTINE PROVIDES INITIAL (DEFAULT) VALUES TO PROGRAM C PARAMETERS VIA DATA STATEMENTS C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C *** ZSR RELATIONSHIP PARAMETERS MODIFIED BY DOUGLAS WALDRON C *** OCTOBER 2003 C *** BASED ON AIM MODEL III (http://mae.ucdavis.edu/wexler/aim) C C======================================================================= C BLOCK DATA BLKISO INCLUDE 'isrpia.inc' C C *** DEFAULT VALUES ************************************************* C DATA TEMP/298.0/, R/82.0567D-6/, RH/0.9D0/, EPS/1D-6/, MAXIT/100/, & TINY/1D-20/, GREAT/1D10/, ZERO/0.0D0/, ONE/1.0D0/,NSWEEP/4/, & TINY2/1D-11/,NDIV/5/ C DATA MOLAL/NIONS*0.0D0/, MOLALR/NPAIR*0.0D0/, GAMA/NPAIR*0.1D0/, & GAMOU/NPAIR*1D10/, GAMIN/NPAIR*1D10/, CALAIN/.TRUE./, & CALAOU/.TRUE./, EPSACT/5D-2/, ICLACT/0/, & IACALC/1/, NADJ/1/, WFTYP/2/ C DATA ERRSTK/NERRMX*0/, ERRMSG/NERRMX*' '/, NOFER/0/, & STKOFL/.FALSE./ C DATA IPROB/0/, METSTBL/0/ C DATA VERSION /'2.1 (07/19/09)'/ C C *** OTHER PARAMETERS *********************************************** C DATA SMW/58.5,142.,85.0,132.,80.0,53.5,98.0,98.0,115.,63.0, & 36.5,120.,247.,136.1,164.,111.,174.2,136.1,101.1,74.5, & 120.3,148.3,95.2/ & IMW/ 1.0,23.0,18.0,35.5,96.0,97.0,62.0,40.1,39.1,24.3/ & WMW/23.0,98.0,17.0,63.0,36.5,40.1,39.1,24.3/ C DATA ZZ /1,2,1,2,1,1,2,1,1,1,1,1,2,4,2,2,2,1,1,1,4,2,2/ & Z /1,1,1,1,2,1,1,2,1,2/ C C *** ZSR RELATIONSHIP PARAMETERS ************************************** C C awas= ammonium sulfate C DATA AWAS/10*187.72, & 158.13,134.41,115.37,100.10, 87.86, 78.00, 70.00, 63.45, 58.02, & 53.46, & 49.59, 46.26, 43.37, 40.84, 38.59, 36.59, 34.79, 33.16, 31.67, & 30.31, & 29.07, 27.91, 26.84, 25.84, 24.91, 24.03, 23.21, 22.44, 21.70, & 21.01, & 20.34, 19.71, 19.11, 18.54, 17.99, 17.46, 16.95, 16.46, 15.99, & 15.54, & 15.10, 14.67, 14.26, 13.86, 13.47, 13.09, 12.72, 12.36, 12.01, & 11.67, & 11.33, 11.00, 10.68, 10.37, 10.06, 9.75, 9.45, 9.15, 8.86, & 8.57, & 8.29, 8.01, 7.73, 7.45, 7.18, 6.91, 6.64, 6.37, 6.10, & 5.83, & 5.56, 5.29, 5.02, 4.74, 4.47, 4.19, 3.91, 3.63, 3.34, & 3.05, & 2.75, 2.45, 2.14, 1.83, 1.51, 1.19, 0.87, 0.56, 0.26, & 0.1/ C C awsn= sodium nitrate C DATA AWSN/10*394.54, & 338.91,293.01,254.73,222.61,195.56,172.76,153.53,137.32,123.65, & 112.08, & 102.26, 93.88, 86.68, 80.45, 75.02, 70.24, 66.02, 62.26, 58.89, & 55.85, & 53.09, 50.57, 48.26, 46.14, 44.17, 42.35, 40.65, 39.06, 37.57, & 36.17, & 34.85, 33.60, 32.42, 31.29, 30.22, 29.20, 28.22, 27.28, 26.39, & 25.52, & 24.69, 23.89, 23.12, 22.37, 21.65, 20.94, 20.26, 19.60, 18.96, & 18.33, & 17.72, 17.12, 16.53, 15.96, 15.40, 14.85, 14.31, 13.78, 13.26, & 12.75, & 12.25, 11.75, 11.26, 10.77, 10.29, 9.82, 9.35, 8.88, 8.42, & 7.97, & 7.52, 7.07, 6.62, 6.18, 5.75, 5.32, 4.89, 4.47, 4.05, & 3.64, & 3.24, 2.84, 2.45, 2.07, 1.70, 1.34, 0.99, 0.65, 0.31, & 0.1/ C C awsc= sodium chloride C DATA AWSC/10*28.16, & 27.17, 26.27, 25.45, 24.69, 23.98, 23.33, 22.72, 22.14, 21.59, & 21.08, & 20.58, 20.12, 19.67, 19.24, 18.82, 18.43, 18.04, 17.67, 17.32, & 16.97, & 16.63, 16.31, 15.99, 15.68, 15.38, 15.08, 14.79, 14.51, 14.24, & 13.97, & 13.70, 13.44, 13.18, 12.93, 12.68, 12.44, 12.20, 11.96, 11.73, & 11.50, & 11.27, 11.05, 10.82, 10.60, 10.38, 10.16, 9.95, 9.74, 9.52, & 9.31, & 9.10, 8.89, 8.69, 8.48, 8.27, 8.07, 7.86, 7.65, 7.45, & 7.24, & 7.04, 6.83, 6.62, 6.42, 6.21, 6.00, 5.79, 5.58, 5.36, & 5.15, & 4.93, 4.71, 4.48, 4.26, 4.03, 3.80, 3.56, 3.32, 3.07, & 2.82, & 2.57, 2.30, 2.04, 1.76, 1.48, 1.20, 0.91, 0.61, 0.30, & 0.1/ C C awac= ammonium chloride C DATA AWAC/10*1209.00, & 1067.60,949.27,848.62,761.82,686.04,619.16,559.55,505.92,457.25, & 412.69, & 371.55,333.21,297.13,262.81,229.78,197.59,165.98,135.49,108.57, & 88.29, & 74.40, 64.75, 57.69, 52.25, 47.90, 44.30, 41.27, 38.65, 36.36, & 34.34, & 32.52, 30.88, 29.39, 28.02, 26.76, 25.60, 24.51, 23.50, 22.55, & 21.65, & 20.80, 20.00, 19.24, 18.52, 17.83, 17.17, 16.54, 15.93, 15.35, & 14.79, & 14.25, 13.73, 13.22, 12.73, 12.26, 11.80, 11.35, 10.92, 10.49, & 10.08, & 9.67, 9.28, 8.89, 8.51, 8.14, 7.77, 7.42, 7.06, 6.72, & 6.37, & 6.03, 5.70, 5.37, 5.05, 4.72, 4.40, 4.08, 3.77, 3.45, & 3.14, & 2.82, 2.51, 2.20, 1.89, 1.57, 1.26, 0.94, 0.62, 0.31, & 0.1/ C C awss= sodium sulfate C DATA AWSS/10*24.10, & 23.17, 22.34, 21.58, 20.90, 20.27, 19.69, 19.15, 18.64, 18.17, & 17.72, & 17.30, 16.90, 16.52, 16.16, 15.81, 15.48, 15.16, 14.85, 14.55, & 14.27, & 13.99, 13.73, 13.47, 13.21, 12.97, 12.73, 12.50, 12.27, 12.05, & 11.84, & 11.62, 11.42, 11.21, 11.01, 10.82, 10.63, 10.44, 10.25, 10.07, & 9.89, & 9.71, 9.53, 9.36, 9.19, 9.02, 8.85, 8.68, 8.51, 8.35, & 8.19, & 8.02, 7.86, 7.70, 7.54, 7.38, 7.22, 7.06, 6.90, 6.74, & 6.58, & 6.42, 6.26, 6.10, 5.94, 5.78, 5.61, 5.45, 5.28, 5.11, & 4.93, & 4.76, 4.58, 4.39, 4.20, 4.01, 3.81, 3.60, 3.39, 3.16, & 2.93, & 2.68, 2.41, 2.13, 1.83, 1.52, 1.19, 0.86, 0.54, 0.25, & 0.1/ C C awab= ammonium bisulfate C DATA AWAB/10*312.84, & 271.43,237.19,208.52,184.28,163.64,145.97,130.79,117.72,106.42, & 96.64, & 88.16, 80.77, 74.33, 68.67, 63.70, 59.30, 55.39, 51.89, 48.76, & 45.93, & 43.38, 41.05, 38.92, 36.97, 35.18, 33.52, 31.98, 30.55, 29.22, & 27.98, & 26.81, 25.71, 24.67, 23.70, 22.77, 21.90, 21.06, 20.27, 19.52, & 18.80, & 18.11, 17.45, 16.82, 16.21, 15.63, 15.07, 14.53, 14.01, 13.51, & 13.02, & 12.56, 12.10, 11.66, 11.24, 10.82, 10.42, 10.04, 9.66, 9.29, & 8.93, & 8.58, 8.24, 7.91, 7.58, 7.26, 6.95, 6.65, 6.35, 6.05, & 5.76, & 5.48, 5.20, 4.92, 4.64, 4.37, 4.09, 3.82, 3.54, 3.27, & 2.99, & 2.70, 2.42, 2.12, 1.83, 1.52, 1.22, 0.90, 0.59, 0.28, & 0.1/ C C awsa= sulfuric acid C DATA AWSA/34.00, 33.56, 29.22, 26.55, 24.61, 23.11, 21.89, 20.87, & 19.99, 18.45, & 17.83, 17.26, 16.73, 16.25, 15.80, 15.38, 14.98, 14.61, 14.26, & 13.93, & 13.61, 13.30, 13.01, 12.73, 12.47, 12.21, 11.96, 11.72, 11.49, & 11.26, & 11.04, 10.83, 10.62, 10.42, 10.23, 10.03, 9.85, 9.67, 9.49, & 9.31, & 9.14, 8.97, 8.81, 8.65, 8.49, 8.33, 8.18, 8.02, 7.87, & 7.73, & 7.58, 7.44, 7.29, 7.15, 7.01, 6.88, 6.74, 6.61, 6.47, & 6.34, & 6.21, 6.07, 5.94, 5.81, 5.68, 5.55, 5.43, 5.30, 5.17, & 5.04, & 4.91, 4.78, 4.65, 4.52, 4.39, 4.26, 4.13, 4.00, 3.86, & 3.73, & 3.59, 3.45, 3.31, 3.17, 3.02, 2.87, 2.71, 2.56, 2.39, & 2.22, & 2.05, 1.87, 1.68, 1.48, 1.27, 1.04, 0.80, 0.55, 0.28, & 0.1/ C C awlc= (NH4)3H(SO4)2 C DATA AWLC/10*125.37, & 110.10, 97.50, 86.98, 78.08, 70.49, 63.97, 58.33, 53.43, 49.14, & 45.36, & 42.03, 39.07, 36.44, 34.08, 31.97, 30.06, 28.33, 26.76, 25.32, & 24.01, & 22.81, 21.70, 20.67, 19.71, 18.83, 18.00, 17.23, 16.50, 15.82, & 15.18, & 14.58, 14.01, 13.46, 12.95, 12.46, 11.99, 11.55, 11.13, 10.72, & 10.33, & 9.96, 9.60, 9.26, 8.93, 8.61, 8.30, 8.00, 7.72, 7.44, & 7.17, & 6.91, 6.66, 6.42, 6.19, 5.96, 5.74, 5.52, 5.31, 5.11, & 4.91, & 4.71, 4.53, 4.34, 4.16, 3.99, 3.81, 3.64, 3.48, 3.31, & 3.15, & 2.99, 2.84, 2.68, 2.53, 2.37, 2.22, 2.06, 1.91, 1.75, & 1.60, & 1.44, 1.28, 1.12, 0.95, 0.79, 0.62, 0.45, 0.29, 0.14, & 0.1/ C C awan= ammonium nitrate C DATA AWAN/10*960.19, & 853.15,763.85,688.20,623.27,566.92,517.54,473.91,435.06,400.26, & 368.89, & 340.48,314.63,291.01,269.36,249.46,231.11,214.17,198.50,184.00, & 170.58, & 158.15,146.66,136.04,126.25,117.24,108.97,101.39, 94.45, 88.11, & 82.33, & 77.06, 72.25, 67.85, 63.84, 60.16, 56.78, 53.68, 50.81, 48.17, & 45.71, & 43.43, 41.31, 39.32, 37.46, 35.71, 34.06, 32.50, 31.03, 29.63, & 28.30, & 27.03, 25.82, 24.67, 23.56, 22.49, 21.47, 20.48, 19.53, 18.61, & 17.72, & 16.86, 16.02, 15.20, 14.41, 13.64, 12.89, 12.15, 11.43, 10.73, & 10.05, & 9.38, 8.73, 8.09, 7.47, 6.86, 6.27, 5.70, 5.15, 4.61, & 4.09, & 3.60, 3.12, 2.66, 2.23, 1.81, 1.41, 1.03, 0.67, 0.32, & 0.1/ C C awsb= sodium bisulfate C DATA AWSB/10*55.99, & 53.79, 51.81, 49.99, 48.31, 46.75, 45.28, 43.91, 42.62, 41.39, & 40.22, & 39.10, 38.02, 36.99, 36.00, 35.04, 34.11, 33.21, 32.34, 31.49, & 30.65, & 29.84, 29.04, 28.27, 27.50, 26.75, 26.01, 25.29, 24.57, 23.87, & 23.17, & 22.49, 21.81, 21.15, 20.49, 19.84, 19.21, 18.58, 17.97, 17.37, & 16.77, & 16.19, 15.63, 15.08, 14.54, 14.01, 13.51, 13.01, 12.53, 12.07, & 11.62, & 11.19, 10.77, 10.36, 9.97, 9.59, 9.23, 8.87, 8.53, 8.20, & 7.88, & 7.57, 7.27, 6.97, 6.69, 6.41, 6.14, 5.88, 5.62, 5.36, & 5.11, & 4.87, 4.63, 4.39, 4.15, 3.92, 3.68, 3.45, 3.21, 2.98, & 2.74, & 2.49, 2.24, 1.98, 1.72, 1.44, 1.16, 0.87, 0.57, 0.28, & 0.1/ C C awpc= potassium chloride C DATA AWPC/172.62, 165.75, 159.10, 152.67, 146.46, 140.45, 134.64, & 129.03, 123.61, 118.38, 113.34, 108.48, 103.79, 99.27, & 94.93, 90.74, 86.71, 82.84, 79.11, 75.53, 72.09, 68.79, & 65.63, 62.59, 59.68, 56.90, 54.23, 51.68, 49.24, 46.91, & 44.68, 42.56, 40.53, 38.60, 36.76, 35.00, 33.33, 31.75, & 30.24, 28.81, 27.45, 26.16, 24.94, 23.78, 22.68, 21.64, & 20.66, 19.74, 18.86, 18.03, 17.25, 16.51, 15.82, 15.16, & 14.54, 13.96, 13.41, 12.89, 12.40, 11.94, 11.50, 11.08, & 10.69, 10.32, 9.96, 9.62, 9.30, 8.99, 8.69, 8.40, 8.12, & 7.85, 7.59, 7.33, 7.08, 6.83, 6.58, 6.33, 6.08, 5.84, & 5.59, 5.34, 5.09, 4.83, 4.57, 4.31, 4.04, 3.76, 3.48, & 3.19, 2.90, 2.60, 2.29, 1.98, 1.66, 1.33, 0.99, 0.65, & 0.30, 0.1/ C C awps= potassium sulfate C DATA AWPS/1014.82, 969.72, 926.16, 884.11, 843.54, 804.41, 766.68, & 730.32, 695.30, 661.58, 629.14, 597.93, 567.92, 539.09, & 511.41, 484.83, 459.34, 434.89, 411.47, 389.04, 367.58, & 347.05, 327.43, 308.69, 290.80, 273.73, 257.47, 241.98, & 227.24, 213.22, 199.90, 187.26, 175.27, 163.91, 153.15, & 142.97, 133.36, 124.28, 115.73, 107.66, 100.08, 92.95, & 86.26, 79.99, 74.12, 68.63, 63.50, 58.73, 54.27, 50.14, & 46.30, 42.74, 39.44, 36.40, 33.59, 31.00, 28.63, 26.45, & 24.45, 22.62, 20.95, 19.43, 18.05, 16.79, 15.64, 14.61, & 13.66, 12.81, 12.03, 11.33, 10.68, 10.09, 9.55, 9.06, & 8.60, 8.17, 7.76, 7.38, 7.02, 6.66, 6.32, 5.98, 5.65, & 5.31, 4.98, 4.64, 4.31, 3.96, 3.62, 3.27, 2.92, 2.57, & 2.22, 1.87, 1.53, 1.20, 0.87, 0.57, 0.28, 0.1/ C C awpn= potassium nitrate C DATA AWPN/44*1000.00, 953.05, 881.09, 813.39, & 749.78, 690.09, 634.14, 581.77, 532.83, 487.16, 444.61, & 405.02, 368.26, 334.18, 302.64, 273.51, 246.67, 221.97, & 199.31, 178.56, 159.60, 142.33, 126.63, 112.40, 99.54, & 87.96, 77.55, 68.24, 59.92, 52.53, 45.98, 40.2, 35.11, & 30.65, 26.75, 23.35, 20.40, 17.85, 15.63, 13.72, 12.06, & 10.61, 9.35, 8.24, 7.25, 6.37, 5.56, 4.82, 4.12, 3.47, & 2.86, 2.28, 1.74, 1.24, 0.79, 0.40, 0.1/ C C awpb= potassium bisulfate C DATA AWPB/10*55.99, & 53.79, 51.81, 49.99, 48.31, 46.75, 45.28, 43.91, 42.62, 41.39, & 40.22, & 39.10, 38.02, 36.99, 36.00, 35.04, 34.11, 33.21, 32.34, 31.49, & 30.65, & 29.84, 29.04, 28.27, 27.50, 26.75, 26.01, 25.29, 24.57, 23.87, & 23.17, & 22.49, 21.81, 21.15, 20.49, 19.84, 19.21, 18.58, 17.97, 17.37, & 16.77, & 16.19, 15.63, 15.08, 14.54, 14.01, 13.51, 13.01, 12.53, 12.07, & 11.62, & 11.19, 10.77, 10.36, 9.97, 9.59, 9.23, 8.87, 8.53, 8.20, & 7.88, & 7.57, 7.27, 6.97, 6.69, 6.41, 6.14, 5.88, 5.62, 5.36, & 5.11, & 4.87, 4.63, 4.39, 4.15, 3.92, 3.68, 3.45, 3.21, 2.98, & 2.74, & 2.49, 2.24, 1.98, 1.72, 1.44, 1.16, 0.87, 0.57, 0.28, & 0.1/ C C awcc= calcium chloride C DATA AWCC/19.9, 19.0, 18.15, 17.35, 16.6, 15.89, 15.22, 14.58, & 13.99, 13.43, 12.90, 12.41, 11.94, 11.50, 11.09, 10.7, & 10.34, 9.99, 9.67, 9.37, 9.09, 8.83, 8.57, 8.34, 8.12, & 7.91, 7.71, 7.53, 7.35, 7.19, 7.03, 6.88, 6.74, 6.6, & 6.47, 6.35, 6.23, 6.12, 6.01, 5.90, 5.80, 5.70, 5.61, & 5.51, 5.42, 5.33, 5.24, 5.16, 5.07, 4.99, 4.91, 4.82, & 4.74, 4.66, 4.58, 4.50, 4.42, 4.34, 4.26, 4.19, 4.11, & 4.03, 3.95, 3.87, 3.79, 3.72, 3.64, 3.56, 3.48, 3.41, & 3.33, 3.25, 3.17, 3.09, 3.01, 2.93, 2.85, 2.76, 2.68, & 2.59, 2.50, 2.41, 2.32, 2.23, 2.13, 2.03, 1.93, 1.82, & 1.71, 1.59, 1.47, 1.35, 1.22, 1.07, 0.93, 0.77, 0.61, & 0.44, 0.25, 0.1/ C C awcn= calcium nitrate C DATA AWCN/32.89, 31.46, 30.12, 28.84, 27.64, 26.51, 25.44, 24.44, & 23.49, 22.59, 21.75, 20.96, 20.22, 19.51, 18.85, 18.23, & 17.64, 17.09, 16.56, 16.07, 15.61, 15.17, 14.75, 14.36, & 13.99, 13.63, 13.3, 12.98, 12.68, 12.39, 12.11, 11.84, & 11.59, 11.35, 11.11, 10.88, 10.66, 10.45, 10.24, 10.04, & 9.84, 9.65, 9.46, 9.28, 9.1, 8.92, 8.74, 8.57, 8.4, & 8.23, 8.06, 7.9, 7.73, 7.57, 7.41, 7.25, 7.1,6.94, 6.79, & 6.63, 6.48, 6.33, 6.18, 6.03, 5.89, 5.74, 5.60, 5.46, & 5.32, 5.17, 5.04, 4.9, 4.76, 4.62, 4.49, 4.35, 4.22, & 4.08, 3.94, 3.80, 3.66, 3.52, 3.38, 3.23, 3.08, 2.93, & 2.77, 2.60, 2.43, 2.25, 2.07, 1.87, 1.67, 1.45, 1.22, & 0.97, 0.72, 0.44, 0.14, 0.1/ C C awmc= magnesium chloride C DATA AWMC/11.24, 10.99, 10.74, 10.5, 10.26, 10.03, 9.81, 9.59, & 9.38, 9.18, 8.98, 8.79, 8.60, 8.42, 8.25, 8.07, 7.91, & 7.75, 7.59, 7.44, 7.29, 7.15, 7.01, 6.88, 6.75, 6.62, & 6.5, 6.38, 6.27, 6.16, 6.05, 5.94, 5.85, 5.75, 5.65, & 5.56, 5.47, 5.38, 5.30, 5.22, 5.14, 5.06, 4.98, 4.91, & 4.84, 4.77, 4.7, 4.63, 4.57, 4.5, 4.44, 4.37, 4.31, & 4.25, 4.19, 4.13, 4.07, 4.01, 3.95, 3.89, 3.83, 3.77, & 3.71, 3.65, 3.58, 3.52, 3.46, 3.39, 3.33, 3.26, 3.19, & 3.12, 3.05, 2.98, 2.9, 2.82, 2.75, 2.67, 2.58, 2.49, & 2.41, 2.32, 2.22, 2.13, 2.03, 1.92, 1.82, 1.71, 1.60, & 1.48, 1.36, 1.24, 1.11, 0.98, 0.84, 0.70, 0.56, 0.41, & 0.25, 0.1/ C C awmn= magnesium nitrate C DATA AWMN/12.00, 11.84, 11.68, 11.52, 11.36, 11.2, 11.04, 10.88, & 10.72, 10.56, 10.40, 10.25, 10.09, 9.93, 9.78, 9.63, & 9.47, 9.32, 9.17, 9.02, 8.87, 8.72, 8.58, 8.43, 8.29, & 8.15, 8.01, 7.87, 7.73, 7.59, 7.46, 7.33, 7.2, 7.07, & 6.94, 6.82, 6.69, 6.57, 6.45, 6.33, 6.21, 6.01, 5.98, & 5.87, 5.76, 5.65, 5.55, 5.44, 5.34, 5.24, 5.14, 5.04, & 4.94, 4.84, 4.75, 4.66, 4.56, 4.47, 4.38, 4.29, 4.21, & 4.12, 4.03, 3.95, 3.86, 3.78, 3.69, 3.61, 3.53, 3.45, & 3.36, 3.28, 3.19, 3.11, 3.03, 2.94, 2.85, 2.76, 2.67, & 2.58, 2.49, 2.39, 2.3, 2.2, 2.1, 1.99, 1.88, 1.77, 1.66, & 1.54, 1.42, 1.29, 1.16, 1.02, 0.88, 0.73, 0.58, 0.42, & 0.25, 0.1/ C C awmn= magnesium sulfate C DATA AWMS/0.93, 2.5, 3.94, 5.25, 6.45, 7.54, 8.52, 9.40, 10.19, & 10.89, 11.50, 12.04, 12.51, 12.90, 13.23, 13.50, 13.72, & 13.88, 13.99, 14.07, 14.1, 14.09, 14.05, 13.98, 13.88, & 13.75, 13.6, 13.43, 13.25, 13.05, 12.83, 12.61, 12.37, & 12.13, 11.88, 11.63, 11.37, 11.12, 10.86, 10.60, 10.35, & 10.09, 9.85, 9.6, 9.36, 9.13, 8.9, 8.68, 8.47, 8.26, & 8.07, 7.87, 7.69, 7.52, 7.35, 7.19, 7.03, 6.89, 6.75, & 6.62, 6.49, 6.37, 6.26, 6.15, 6.04, 5.94, 5.84, 5.75, & 5.65, 5.56, 5.47, 5.38, 5.29, 5.20, 5.11, 5.01, 4.92, & 4.82, 4.71, 4.60, 4.49, 4.36, 4.24, 4.10, 3.96, 3.81, & 3.65, 3.48, 3.30, 3.11, 2.92, 2.71, 2.49, 2.26, 2.02, & 1.76, 1.50, 1.22, 0.94, 0.64/ C C *** ZSR RELATIONSHIP PARAMETERS ************************************** C C awas= ammonium sulfate C C DATA AWAS/33*100.,30,30,30,29.54,28.25,27.06,25.94, C & 24.89,23.90,22.97,22.10,21.27,20.48,19.73,19.02,18.34,17.69, C & 17.07,16.48,15.91,15.37,14.85,14.34,13.86,13.39,12.94,12.50, C & 12.08,11.67,11.27,10.88,10.51,10.14, 9.79, 9.44, 9.10, 8.78, C & 8.45, 8.14, 7.83, 7.53, 7.23, 6.94, 6.65, 6.36, 6.08, 5.81, C & 5.53, 5.26, 4.99, 4.72, 4.46, 4.19, 3.92, 3.65, 3.38, 3.11, C & 2.83, 2.54, 2.25, 1.95, 1.63, 1.31, 0.97, 0.63, 0.30, 0.001/ C C awsn= sodium nitrate C C DATA AWSN/ 9*1.e5,685.59, C & 451.00,336.46,268.48,223.41,191.28, C & 167.20,148.46,133.44,121.12,110.83, C & 102.09,94.57,88.03,82.29,77.20,72.65,68.56,64.87,61.51,58.44, C & 55.62,53.03,50.63,48.40,46.32,44.39,42.57,40.87,39.27,37.76, C & 36.33,34.98,33.70,32.48,31.32,30.21,29.16,28.14,27.18,26.25, C & 25.35,24.50,23.67,22.87,22.11,21.36,20.65,19.95,19.28,18.62, C & 17.99,17.37,16.77,16.18,15.61,15.05,14.51,13.98,13.45,12.94, C & 12.44,11.94,11.46,10.98,10.51,10.04, 9.58, 9.12, 8.67, 8.22, C & 7.77, 7.32, 6.88, 6.43, 5.98, 5.53, 5.07, 4.61, 4.15, 3.69, C & 3.22, 2.76, 2.31, 1.87, 1.47, 1.10, 0.77, 0.48, 0.23, 0.001/ C C awsc= sodium chloride C C DATA AWSC/ C & 100., 100., 100., 100., 100., 100., 100., 100., 100., 100., C & 100., 100., 100., 100., 100., 100., 100., 100., 100.,16.34, C & 16.28,16.22,16.15,16.09,16.02,15.95,15.88,15.80,15.72,15.64, C & 15.55,15.45,15.36,15.25,15.14,15.02,14.89,14.75,14.60,14.43, C & 14.25,14.04,13.81,13.55,13.25,12.92,12.56,12.19,11.82,11.47, C & 11.13,10.82,10.53,10.26,10.00, 9.76, 9.53, 9.30, 9.09, 8.88, C & 8.67, 8.48, 8.28, 8.09, 7.90, 7.72, 7.54, 7.36, 7.17, 6.99, C & 6.81, 6.63, 6.45, 6.27, 6.09, 5.91, 5.72, 5.53, 5.34, 5.14, C & 4.94, 4.74, 4.53, 4.31, 4.09, 3.86, 3.62, 3.37, 3.12, 2.85, C & 2.58, 2.30, 2.01, 1.72, 1.44, 1.16, 0.89, 0.64, 0.40, 0.18/ C C awac= ammonium chloride C C DATA AWAC/ C & 100., 100., 100., 100., 100., 100., 100., 100., 100., 100., C & 100., 100., 100., 100., 100., 100., 100., 100., 100.,31.45, C & 31.30,31.14,30.98,30.82,30.65,30.48,30.30,30.11,29.92,29.71, C & 29.50,29.29,29.06,28.82,28.57,28.30,28.03,27.78,27.78,27.77, C & 27.77,27.43,27.07,26.67,26.21,25.73,25.18,24.56,23.84,23.01, C & 22.05,20.97,19.85,18.77,17.78,16.89,16.10,15.39,14.74,14.14, C & 13.59,13.06,12.56,12.09,11.65,11.22,10.81,10.42,10.03, 9.66, C & 9.30, 8.94, 8.59, 8.25, 7.92, 7.59, 7.27, 6.95, 6.63, 6.32, C & 6.01, 5.70, 5.39, 5.08, 4.78, 4.47, 4.17, 3.86, 3.56, 3.25, C & 2.94, 2.62, 2.30, 1.98, 1.65, 1.32, 0.97, 0.62, 0.26, 0.13/ C C awss= sodium sulfate C C DATA AWSS/34*1.e5,23*14.30,14.21,12.53,11.47, C & 10.66,10.01, 9.46, 8.99, 8.57, 8.19, 7.85, 7.54, 7.25, 6.98, C & 6.74, 6.50, 6.29, 6.08, 5.88, 5.70, 5.52, 5.36, 5.20, 5.04, C & 4.90, 4.75, 4.54, 4.34, 4.14, 3.93, 3.71, 3.49, 3.26, 3.02, C & 2.76, 2.49, 2.20, 1.89, 1.55, 1.18, 0.82, 0.49, 0.22, 0.001/ C C awab= ammonium bisulfate C C DATA AWAB/356.45,296.51,253.21,220.47,194.85, C & 174.24,157.31,143.16,131.15,120.82, C & 111.86,103.99,97.04,90.86,85.31,80.31,75.78,71.66,67.90,64.44, C & 61.25,58.31,55.58,53.04,50.68,48.47,46.40,44.46,42.63,40.91, C & 39.29,37.75,36.30,34.92,33.61,32.36,31.18,30.04,28.96,27.93, C & 26.94,25.99,25.08,24.21,23.37,22.57,21.79,21.05,20.32,19.63, C & 18.96,18.31,17.68,17.07,16.49,15.92,15.36,14.83,14.31,13.80, C & 13.31,12.83,12.36,11.91,11.46,11.03,10.61,10.20, 9.80, 9.41, C & 9.02, 8.64, 8.28, 7.91, 7.56, 7.21, 6.87, 6.54, 6.21, 5.88, C & 5.56, 5.25, 4.94, 4.63, 4.33, 4.03, 3.73, 3.44, 3.14, 2.85, C & 2.57, 2.28, 1.99, 1.71, 1.42, 1.14, 0.86, 0.57, 0.29, 0.001/ C C awsa= sulfuric acid C C DATA AWSA/ C & 34.0,33.56,29.22,26.55,24.61,23.11,21.89,20.87,19.99, C & 19.21,18.51,17.87,17.29,16.76,16.26,15.8,15.37,14.95,14.56, C & 14.20,13.85,13.53,13.22,12.93,12.66,12.40,12.14,11.90,11.67, C & 11.44,11.22,11.01,10.8,10.60,10.4,10.2,10.01,9.83,9.65,9.47, C & 9.3,9.13,8.96,8.81,8.64,8.48,8.33,8.17,8.02,7.87,7.72,7.58, C & 7.44,7.30,7.16,7.02,6.88,6.75,6.61,6.48,6.35,6.21,6.08,5.95, C & 5.82,5.69,5.56,5.44,5.31,5.18,5.05,4.92,4.79,4.66,4.53,4.40, C & 4.27,4.14,4.,3.87,3.73,3.6,3.46,3.31,3.17,3.02,2.87,2.72, C & 2.56,2.4,2.23,2.05,1.87,1.68,1.48,1.27,1.05,0.807,0.552,0.281/ C C awlc= (NH4)3H(SO4)2 C C DATA AWLC/34*1.e5,17.0,16.5,15.94,15.31,14.71,14.14, C & 13.60,13.08,12.59,12.12,11.68,11.25,10.84,10.44,10.07, 9.71, C & 9.36, 9.02, 8.70, 8.39, 8.09, 7.80, 7.52, 7.25, 6.99, 6.73, C & 6.49, 6.25, 6.02, 5.79, 5.57, 5.36, 5.15, 4.95, 4.76, 4.56, C & 4.38, 4.20, 4.02, 3.84, 3.67, 3.51, 3.34, 3.18, 3.02, 2.87, C & 2.72, 2.57, 2.42, 2.28, 2.13, 1.99, 1.85, 1.71, 1.57, 1.43, C & 1.30, 1.16, 1.02, 0.89, 0.75, 0.61, 0.46, 0.32, 0.16, 0.001/ C C awan= ammonium nitrate C C DATA AWAN/31*1.e5, C & 97.17,92.28,87.66,83.15,78.87,74.84,70.98,67.46,64.11, C & 60.98,58.07,55.37,52.85,50.43,48.24,46.19,44.26,42.40,40.70, C & 39.10,37.54,36.10,34.69,33.35,32.11,30.89,29.71,28.58,27.46, C & 26.42,25.37,24.33,23.89,22.42,21.48,20.56,19.65,18.76,17.91, C & 17.05,16.23,15.40,14.61,13.82,13.03,12.30,11.55,10.83,10.14, C & 9.44, 8.79, 8.13, 7.51, 6.91, 6.32, 5.75, 5.18, 4.65, 4.14, C & 3.65, 3.16, 2.71, 2.26, 1.83, 1.42, 1.03, 0.66, 0.30, 0.001/ C C awsb= sodium bisulfate C C DATA AWSB/173.72,156.88,142.80,130.85,120.57, C & 111.64,103.80,96.88,90.71,85.18, C & 80.20,75.69,71.58,67.82,64.37,61.19,58.26,55.53,53.00,50.64, C & 48.44,46.37,44.44,42.61,40.90,39.27,37.74,36.29,34.91,33.61, C & 32.36,31.18,30.05,28.97,27.94,26.95,26.00,25.10,24.23,23.39, C & 22.59,21.81,21.07,20.35,19.65,18.98,18.34,17.71,17.11,16.52, C & 15.95,15.40,14.87,14.35,13.85,13.36,12.88,12.42,11.97,11.53, C & 11.10,10.69,10.28, 9.88, 9.49, 9.12, 8.75, 8.38, 8.03, 7.68, C & 7.34, 7.01, 6.69, 6.37, 6.06, 5.75, 5.45, 5.15, 4.86, 4.58, C & 4.30, 4.02, 3.76, 3.49, 3.23, 2.98, 2.73, 2.48, 2.24, 2.01, C & 1.78, 1.56, 1.34, 1.13, 0.92, 0.73, 0.53, 0.35, 0.17, 0.001/ C C *** END OF BLOCK DATA SUBPROGRAM ************************************* C END C C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE INIT1 C *** THIS SUBROUTINE INITIALIZES ALL GLOBAL VARIABLES FOR AMMONIUM C SULFATE AEROSOL SYSTEMS (SUBROUTINE ISRP1) C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE INIT1 (WI, RHI, TEMPI) INCLUDE 'isrpia.inc' DIMENSION WI(NCOMP) REAL IC,GII,GI0,XX,LN10 PARAMETER (LN10=2.3025851) C C *** SAVE INPUT VARIABLES IN COMMON BLOCK ****************************** C IF (IPROB.EQ.0) THEN ! FORWARD CALCULATION DO 10 I=1,NCOMP W(I) = MAX(WI(I), TINY) 10 CONTINUE ELSE DO 15 I=1,NCOMP ! REVERSE CALCULATION WAER(I) = MAX(WI(I), TINY) W(I) = ZERO 15 CONTINUE ENDIF RH = RHI TEMP = TEMPI C C *** CALCULATE EQUILIBRIUM CONSTANTS *********************************** C XK1 = 1.015e-2 ! HSO4(aq) <==> H(aq) + SO4(aq) XK21 = 57.639 ! NH3(g) <==> NH3(aq) XK22 = 1.805e-5 ! NH3(aq) <==> NH4(aq) + OH(aq) XK7 = 1.817 ! (NH4)2SO4(s) <==> 2*NH4(aq) + SO4(aq) XK12 = 1.382e2 ! NH4HSO4(s) <==> NH4(aq) + HSO4(aq) XK13 = 29.268 ! (NH4)3H(SO4)2(s) <==> 3*NH4(aq) + HSO4(aq) + SO4(aq) XKW = 1.010e-14 ! H2O <==> H(aq) + OH(aq) C IF (INT(TEMP) .NE. 298) THEN ! FOR T != 298K or 298.15K T0 = 298.15 T0T = T0/TEMP COEF= 1.0+LOG(T0T)-T0T XK1 = XK1 *EXP( 8.85*(T0T-1.0) + 25.140*COEF) XK21= XK21*EXP( 13.79*(T0T-1.0) - 5.393*COEF) XK22= XK22*EXP( -1.50*(T0T-1.0) + 26.920*COEF) XK7 = XK7 *EXP( -2.65*(T0T-1.0) + 38.570*COEF) XK12= XK12*EXP( -2.87*(T0T-1.0) + 15.830*COEF) XK13= XK13*EXP( -5.19*(T0T-1.0) + 54.400*COEF) XKW = XKW *EXP(-22.52*(T0T-1.0) + 26.920*COEF) ENDIF XK2 = XK21*XK22 C C *** CALCULATE DELIQUESCENCE RELATIVE HUMIDITIES (UNICOMPONENT) ******** C DRH2SO4 = 0.0000D0 DRNH42S4 = 0.7997D0 DRNH4HS4 = 0.4000D0 DRLC = 0.6900D0 IF (INT(TEMP) .NE. 298) THEN T0 = 298.15d0 TCF = 1.0/TEMP - 1.0/T0 DRNH42S4 = DRNH42S4*EXP( 80.*TCF) DRNH4HS4 = DRNH4HS4*EXP(384.*TCF) DRLC = DRLC *EXP(186.*TCF) ENDIF C C *** CALCULATE MUTUAL DELIQUESCENCE RELATIVE HUMIDITIES **************** C DRMLCAB = 0.3780D0 ! (NH4)3H(SO4)2 & NH4HSO4 DRMLCAS = 0.6900D0 ! (NH4)3H(SO4)2 & (NH4)2SO4 CCC IF (INT(TEMP) .NE. 298) THEN ! For the time being. CCC T0 = 298.15d0 CCC TCF = 1.0/TEMP - 1.0/T0 CCC DRMLCAB = DRMLCAB*EXP(507.506*TCF) CCC DRMLCAS = DRMLCAS*EXP(133.865*TCF) CCC ENDIF C C *** LIQUID PHASE ****************************************************** C CHNO3 = ZERO CHCL = ZERO CH2SO4 = ZERO COH = ZERO WATER = TINY C DO 20 I=1,NPAIR MOLALR(I)=ZERO GAMA(I) =0.1 GAMIN(I) =GREAT GAMOU(I) =GREAT M0(I) =1d5 20 CONTINUE C DO 30 I=1,NPAIR GAMA(I) = 0.1d0 30 CONTINUE C DO 40 I=1,NIONS MOLAL(I)=ZERO 40 CONTINUE COH = ZERO C DO 50 I=1,NGASAQ GASAQ(I)=ZERO 50 CONTINUE C C *** SOLID PHASE ******************************************************* C CNH42S4= ZERO CNH4HS4= ZERO CNACL = ZERO CNA2SO4= ZERO CNANO3 = ZERO CNH4NO3= ZERO CNH4CL = ZERO CNAHSO4= ZERO CLC = ZERO CCASO4 = ZERO CCANO32= ZERO CCACL2 = ZERO CK2SO4 = ZERO CKHSO4 = ZERO CKNO3 = ZERO CKCL = ZERO CMGSO4 = ZERO CMGNO32= ZERO CMGCL2 = ZERO C C *** GAS PHASE ********************************************************* C GNH3 = ZERO GHNO3 = ZERO GHCL = ZERO C C *** CALCULATE ZSR PARAMETERS ****************************************** C IRH = MIN (INT(RH*NZSR+0.5),NZSR) ! Position in ZSR arrays IRH = MAX (IRH, 1) C C M0(01) = AWSC(IRH) ! NACl C IF (M0(01) .LT. 100.0) THEN C IC = M0(01) C CALL KMTAB(IC,298.0, GI0,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX, C & XX,XX,XX,XX,XX,XX,XX,XX,XX) C CALL KMTAB(IC,SNGL(TEMP),GII,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX, C & XX,XX,XX,XX,XX,XX,XX,XX,XX) C M0(01) = M0(01)*EXP(LN10*(GI0-GII)) C ENDIF CC C M0(02) = AWSS(IRH) ! (NA)2SO4 C IF (M0(02) .LT. 100.0) THEN C IC = 3.0*M0(02) C CALL KMTAB(IC,298.0, XX,GI0,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX, C & XX,XX,XX,XX,XX,XX,XX,XX,XX) C CALL KMTAB(IC,SNGL(TEMP),XX,GII,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX, C & XX,XX,XX,XX,XX,XX,XX,XX,XX) C M0(02) = M0(02)*EXP(LN10*(GI0-GII)) C ENDIF CC C M0(03) = AWSN(IRH) ! NANO3 C IF (M0(03) .LT. 100.0) THEN C IC = M0(03) C CALL KMTAB(IC,298.0, XX,XX,GI0,XX,XX,XX,XX,XX,XX,XX,XX,XX, C & XX,XX,XX,XX,XX,XX,XX,XX,XX) C CALL KMTAB(IC,SNGL(TEMP),XX,XX,GII,XX,XX,XX,XX,XX,XX,XX,XX,XX, C & XX,XX,XX,XX,XX,XX,XX,XX,XX) C M0(03) = M0(03)*EXP(LN10*(GI0-GII)) C ENDIF CC M0(04) = AWAS(IRH) ! (NH4)2SO4 CC IF (M0(04) .LT. 100.0) THEN CC IC = 3.0*M0(04) C C CALL KMTAB(IC,298.0, XX,XX,XX,GI0,XX,XX,XX,XX,XX,XX,XX,XX, CC & XX,XX,XX,XX,XX,XX,XX,XX,XX) CC CALL KMTAB(IC,SNGL(TEMP),XX,XX,XX,GII,XX,XX,XX,XX,XX,XX,XX,XX, CC & XX,XX,XX,XX,XX,XX,XX,XX,XX) CC M0(04) = M0(04)*EXP(LN10*(GI0-GII)) CC ENDIF C C M0(05) = AWAN(IRH) ! NH4NO3 C IF (M0(05) .LT. 100.0) THEN C IC = M0(05) C CALL KMTAB(IC,298.0, XX,XX,XX,XX,GI0,XX,XX,XX,XX,XX,XX,XX, C & XX,XX,XX,XX,XX,XX,XX,XX,XX) C CALL KMTAB(IC,SNGL(TEMP),XX,XX,XX,XX,GII,XX,XX,XX,XX,XX,XX,XX, C & XX,XX,XX,XX,XX,XX,XX,XX,XX) C M0(05) = M0(05)*EXP(LN10*(GI0-GII)) C ENDIF CC C M0(06) = AWAC(IRH) ! NH4CL C IF (M0(06) .LT. 100.0) THEN C IC = M0(06) C CALL KMTAB(IC,298.0, XX,XX,XX,XX,XX,GI0,XX,XX,XX,XX,XX,XX, C & XX,XX,XX,XX,XX,XX,XX,XX,XX) C CALL KMTAB(IC,SNGL(TEMP),XX,XX,XX,XX,XX,GII,XX,XX,XX,XX,XX,XX, C & XX,XX,XX,XX,XX,XX,XX,XX,XX) C M0(06) = M0(06)*EXP(LN10*(GI0-GII)) C ENDIF C M0(07) = AWSA(IRH) ! 2H-SO4 CC IF (M0(07) .LT. 100.0) THEN CC IC = 3.0*M0(07) CC CALL KMTAB(IC,298.0, XX,XX,XX,XX,XX,XX,GI0,XX,XX,XX,XX,XX, CC & XX,XX,XX,XX,XX,XX,XX,XX,XX) CC CALL KMTAB(IC,SNGL(TEMP),XX,XX,XX,XX,XX,XX,GII,XX,XX,XX,XX,XX, CC & XX,XX,XX,XX,XX,XX,XX,XX,XX) CC M0(07) = M0(07)*EXP(LN10*(GI0-GII)) CC ENDIF C M0(08) = AWSA(IRH) ! H-HSO4 CCC IF (M0(08) .LT. 100.0) THEN ! These are redundant, because M0(8) is not used CCC IC = M0(08) CCC CALL KMTAB(IC,298.0, XX,XX,XX,XX,XX,XX,XX,GI0,XX,XX,XX,XX) CCC CALL KMTAB(IC,SNGL(TEMP),XX,XX,XX,XX,XX,XX,XX,GI0,XX,XX,XX,XX) CCCCCC CALL KMTAB(IC,SNGL(TEMP),XX,XX,XX,XX,XX,XX,XX,GII,XX,XX,XX,XX) CCC M0(08) = M0(08)*EXP(LN10*(GI0-GII)) CCC ENDIF C M0(09) = AWAB(IRH) ! NH4HSO4 CC IF (M0(09) .LT. 100.0) THEN CC IC = M0(09) CC CALL KMTAB(IC,298.0, XX,XX,XX,XX,XX,XX,XX,XX,GI0,XX,XX,XX, CC & XX,XX,XX,XX,XX,XX,XX,XX,XX) CC CALL KMTAB(IC,SNGL(TEMP),XX,XX,XX,XX,XX,XX,XX,XX,GII,XX,XX,XX, CC & XX,XX,XX,XX,XX,XX,XX,XX,XX) CC M0(09) = M0(09)*EXP(LN10*(GI0-GII)) CC ENDIF C C M0(12) = AWSB(IRH) ! NAHSO4 C IF (M0(12) .LT. 100.0) THEN C IC = M0(12) C CALL KMTAB(IC,298.0, XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,GI0, C & XX,XX,XX,XX,XX,XX,XX,XX,XX) C CALL KMTAB(IC,SNGL(TEMP),XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,GII, C & XX,XX,XX,XX,XX,XX,XX,XX,XX) C M0(12) = M0(12)*EXP(LN10*(GI0-GII)) C ENDIF C M0(13) = AWLC(IRH) ! (NH4)3H(SO4)2 CC IF (M0(13) .LT. 100.0) THEN CC IC = 4.0*M0(13) CC CALL KMTAB(IC,298.0, XX,XX,XX,GI0,XX,XX,XX,XX,GII,XX,XX,XX, CC & XX,XX,XX,XX,XX,XX,XX,XX,XX) CC G130 = 0.2*(3.0*GI0+2.0*GII) CC CALL KMTAB(IC,SNGL(TEMP),XX,XX,XX,GI0,XX,XX,XX,XX,GII,XX,XX,XX, CC & XX,XX,XX,XX,XX,XX,XX,XX,XX) CC G13I = 0.2*(3.0*GI0+2.0*GII) CC M0(13) = M0(13)*EXP(LN10*SNGL(G130-G13I)) CC ENDIF C C *** OTHER INITIALIZATIONS ********************************************* C ICLACT = 0 CALAOU = .TRUE. CALAIN = .TRUE. FRST = .TRUE. SCASE = '??' SULRATW = 2.D0 SODRAT = ZERO CRNARAT = ZERO CRRAT = ZERO NOFER = 0 STKOFL =.FALSE. DO 60 I=1,NERRMX ERRSTK(I) =-999 ERRMSG(I) = 'MESSAGE N/A' 60 CONTINUE C C *** END OF SUBROUTINE INIT1 ******************************************* C END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE INIT2 C *** THIS SUBROUTINE INITIALIZES ALL GLOBAL VARIABLES FOR AMMONIUM, C NITRATE, SULFATE AEROSOL SYSTEMS (SUBROUTINE ISRP2) C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE INIT2 (WI, RHI, TEMPI) INCLUDE 'isrpia.inc' DIMENSION WI(NCOMP) REAL IC,GII,GI0,XX,LN10 PARAMETER (LN10=2.3025851) C C *** SAVE INPUT VARIABLES IN COMMON BLOCK ****************************** C IF (IPROB.EQ.0) THEN ! FORWARD CALCULATION DO 10 I=1,NCOMP W(I) = MAX(WI(I), TINY) 10 CONTINUE ELSE DO 15 I=1,NCOMP ! REVERSE CALCULATION WAER(I) = MAX(WI(I), TINY) W(I) = ZERO 15 CONTINUE ENDIF RH = RHI TEMP = TEMPI C C *** CALCULATE EQUILIBRIUM CONSTANTS *********************************** C XK1 = 1.015e-2 ! HSO4(aq) <==> H(aq) + SO4(aq) XK21 = 57.639 ! NH3(g) <==> NH3(aq) XK22 = 1.805e-5 ! NH3(aq) <==> NH4(aq) + OH(aq) XK4 = 2.511e6 ! HNO3(g) <==> H(aq) + NO3(aq) ! ISORR CCC XK4 = 3.638e6 ! HNO3(g) <==> H(aq) + NO3(aq) ! SEQUIL XK41 = 2.100e5 ! HNO3(g) <==> HNO3(aq) XK7 = 1.817 ! (NH4)2SO4(s) <==> 2*NH4(aq) + SO4(aq) XK10 = 5.746e-17 ! NH4NO3(s) <==> NH3(g) + HNO3(g) ! ISORR CCC XK10 = 2.985e-17 ! NH4NO3(s) <==> NH3(g) + HNO3(g) ! SEQUIL XK12 = 1.382e2 ! NH4HSO4(s) <==> NH4(aq) + HSO4(aq) XK13 = 29.268 ! (NH4)3H(SO4)2(s) <==> 3*NH4(aq) + HSO4(aq) + SO4(aq) XKW = 1.010e-14 ! H2O <==> H(aq) + OH(aq) C IF (INT(TEMP) .NE. 298) THEN ! FOR T != 298K or 298.15K T0 = 298.15D0 T0T = T0/TEMP COEF= 1.0+LOG(T0T)-T0T XK1 = XK1 *EXP( 8.85*(T0T-1.0) + 25.140*COEF) XK21= XK21*EXP( 13.79*(T0T-1.0) - 5.393*COEF) XK22= XK22*EXP( -1.50*(T0T-1.0) + 26.920*COEF) XK4 = XK4 *EXP( 29.17*(T0T-1.0) + 16.830*COEF) !ISORR CCC XK4 = XK4 *EXP( 29.47*(T0T-1.0) + 16.840*COEF) ! SEQUIL XK41= XK41*EXP( 29.17*(T0T-1.0) + 16.830*COEF) XK7 = XK7 *EXP( -2.65*(T0T-1.0) + 38.570*COEF) XK10= XK10*EXP(-74.38*(T0T-1.0) + 6.120*COEF) ! ISORR CCC XK10= XK10*EXP(-75.11*(T0T-1.0) + 13.460*COEF) ! SEQUIL XK12= XK12*EXP( -2.87*(T0T-1.0) + 15.830*COEF) XK13= XK13*EXP( -5.19*(T0T-1.0) + 54.400*COEF) XKW = XKW *EXP(-22.52*(T0T-1.0) + 26.920*COEF) ENDIF XK2 = XK21*XK22 XK42 = XK4/XK41 C C *** CALCULATE DELIQUESCENCE RELATIVE HUMIDITIES (UNICOMPONENT) ******** C DRH2SO4 = ZERO DRNH42S4 = 0.7997D0 DRNH4HS4 = 0.4000D0 DRNH4NO3 = 0.6183D0 DRLC = 0.6900D0 IF (INT(TEMP) .NE. 298) THEN T0 = 298.15D0 TCF = 1.0/TEMP - 1.0/T0 DRNH4NO3 = DRNH4NO3*EXP(852.*TCF) DRNH42S4 = DRNH42S4*EXP( 80.*TCF) DRNH4HS4 = DRNH4HS4*EXP(384.*TCF) DRLC = DRLC *EXP(186.*TCF) DRNH4NO3 = MIN (DRNH4NO3,DRNH42S4) ! ADJUST FOR DRH CROSSOVER AT T<271K ENDIF C C *** CALCULATE MUTUAL DELIQUESCENCE RELATIVE HUMIDITIES **************** C DRMLCAB = 0.3780D0 ! (NH4)3H(SO4)2 & NH4HSO4 DRMLCAS = 0.6900D0 ! (NH4)3H(SO4)2 & (NH4)2SO4 DRMASAN = 0.6000D0 ! (NH4)2SO4 & NH4NO3 CCC IF (INT(TEMP) .NE. 298) THEN ! For the time being CCC T0 = 298.15d0 CCC TCF = 1.0/TEMP - 1.0/T0 CCC DRMLCAB = DRMLCAB*EXP( 507.506*TCF) CCC DRMLCAS = DRMLCAS*EXP( 133.865*TCF) CCC DRMASAN = DRMASAN*EXP(1269.068*TCF) CCC ENDIF C C *** LIQUID PHASE ****************************************************** C CHNO3 = ZERO CHCL = ZERO CH2SO4 = ZERO COH = ZERO WATER = TINY C DO 20 I=1,NPAIR MOLALR(I)=ZERO GAMA(I) =0.1 GAMIN(I) =GREAT GAMOU(I) =GREAT M0(I) =1d5 20 CONTINUE C DO 30 I=1,NPAIR GAMA(I) = 0.1d0 30 CONTINUE C DO 40 I=1,NIONS MOLAL(I)=ZERO 40 CONTINUE COH = ZERO C DO 50 I=1,NGASAQ GASAQ(I)=ZERO 50 CONTINUE C C *** SOLID PHASE ****************************************************** C CNH42S4= ZERO CNH4HS4= ZERO CNACL = ZERO CNA2SO4= ZERO CNANO3 = ZERO CNH4NO3= ZERO CNH4CL = ZERO CNAHSO4= ZERO CLC = ZERO CCASO4 = ZERO CCANO32= ZERO CCACL2 = ZERO CK2SO4 = ZERO CKHSO4 = ZERO CKNO3 = ZERO CKCL = ZERO CMGSO4 = ZERO CMGNO32= ZERO CMGCL2 = ZERO C C *** GAS PHASE ******************************************************** C GNH3 = ZERO GHNO3 = ZERO GHCL = ZERO C C *** CALCULATE ZSR PARAMETERS ***************************************** C IRH = MIN (INT(RH*NZSR+0.5),NZSR) ! Position in ZSR arrays IRH = MAX (IRH, 1) C C M0(01) = AWSC(IRH) ! NACl C IF (M0(01) .LT. 100.0) THEN C IC = M0(01) C CALL KMTAB(IC,298.0, GI0,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX, C & XX,XX,XX,XX,XX,XX,XX,XX,XX) C CALL KMTAB(IC,SNGL(TEMP),GII,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX, C & XX,XX,XX,XX,XX,XX,XX,XX,XX) C M0(01) = M0(01)*EXP(LN10*(GI0-GII)) C ENDIF CC C M0(02) = AWSS(IRH) ! (NA)2SO4 C IF (M0(02) .LT. 100.0) THEN C IC = 3.0*M0(02) C CALL KMTAB(IC,298.0, XX,GI0,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX, C & XX,XX,XX,XX,XX,XX,XX,XX,XX) C CALL KMTAB(IC,SNGL(TEMP),XX,GII,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX, C & XX,XX,XX,XX,XX,XX,XX,XX,XX) C M0(02) = M0(02)*EXP(LN10*(GI0-GII)) C ENDIF CCC C M0(03) = AWSN(IRH) ! NANO3 C IF (M0(03) .LT. 100.0) THEN C IC = M0(03) C CALL KMTAB(IC,298.0, XX,XX,GI0,XX,XX,XX,XX,XX,XX,XX,XX,XX, C & XX,XX,XX,XX,XX,XX,XX,XX,XX) C CALL KMTAB(IC,SNGL(TEMP),XX,XX,GII,XX,XX,XX,XX,XX,XX,XX,XX,XX, C & XX,XX,XX,XX,XX,XX,XX,XX,XX) C M0(03) = M0(03)*EXP(LN10*(GI0-GII)) C ENDIF C M0(04) = AWAS(IRH) ! (NH4)2SO4 CC IF (M0(04) .LT. 100.0) THEN CC IC = 3.0*M0(04) CC CALL KMTAB(IC,298.0, XX,XX,XX,GI0,XX,XX,XX,XX,XX,XX,XX,XX, CC & XX,XX,XX,XX,XX,XX,XX,XX,XX) CC CALL KMTAB(IC,SNGL(TEMP),XX,XX,XX,GII,XX,XX,XX,XX,XX,XX,XX,XX, CC & XX,XX,XX,XX,XX,XX,XX,XX,XX) CC M0(04) = M0(04)*EXP(LN10*(GI0-GII)) CC ENDIF C M0(05) = AWAN(IRH) ! NH4NO3 CC IF (M0(05) .LT. 100.0) THEN CC IC = M0(05) CC CALL KMTAB(IC,298.0, XX,XX,XX,XX,GI0,XX,XX,XX,XX,XX,XX,XX, CC & XX,XX,XX,XX,XX,XX,XX,XX,XX) CC CALL KMTAB(IC,SNGL(TEMP),XX,XX,XX,XX,GII,XX,XX,XX,XX,XX,XX,XX, CC & XX,XX,XX,XX,XX,XX,XX,XX,XX) CC M0(05) = M0(05)*EXP(LN10*(GI0-GII)) CC ENDIF C C M0(06) = AWAC(IRH) ! NH4CL C IF (M0(06) .LT. 100.0) THEN C IC = M0(06) C CALL KMTAB(IC,298.0, XX,XX,XX,XX,XX,GI0,XX,XX,XX,XX,XX,XX, C & XX,XX,XX,XX,XX,XX,XX,XX,XX) C CALL KMTAB(IC,SNGL(TEMP),XX,XX,XX,XX,XX,GII,XX,XX,XX,XX,XX,XX, C & XX,XX,XX,XX,XX,XX,XX,XX,XX) C M0(06) = M0(06)*EXP(LN10*(GI0-GII)) C ENDIF CC M0(07) = AWSA(IRH) ! 2H-SO4 CC IF (M0(07) .LT. 100.0) THEN CC IC = 3.0*M0(07) CC CALL KMTAB(IC,298.0, XX,XX,XX,XX,XX,XX,GI0,XX,XX,XX,XX,XX, CC & XX,XX,XX,XX,XX,XX,XX,XX,XX) CC CALL KMTAB(IC,SNGL(TEMP),XX,XX,XX,XX,XX,XX,GII,XX,XX,XX,XX,XX, CC & XX,XX,XX,XX,XX,XX,XX,XX,XX) CC M0(07) = M0(07)*EXP(LN10*(GI0-GII)) CC ENDIF C M0(08) = AWSA(IRH) ! H-HSO4 CCC IF (M0(08) .LT. 100.0) THEN ! These are redundant, because M0(8) is not used CCC IC = M0(08) CCC CALL KMTAB(IC,298.0, XX,XX,XX,XX,XX,XX,XX,GI0,XX,XX,XX,XX) CCC CALL KMTAB(IC,SNGL(TEMP),XX,XX,XX,XX,XX,XX,XX,GI0,XX,XX,XX,XX) CCCCCC CALL KMTAB(IC,SNGL(TEMP),XX,XX,XX,XX,XX,XX,XX,GII,XX,XX,XX,XX) CCC M0(08) = M0(08)*EXP(LN10*(GI0-GII)) CCC ENDIF C M0(09) = AWAB(IRH) ! NH4HSO4 CC IF (M0(09) .LT. 100.0) THEN CC IC = M0(09) CC CALL KMTAB(IC,298.0, XX,XX,XX,XX,XX,XX,XX,XX,GI0,XX,XX,XX, CC & XX,XX,XX,XX,XX,XX,XX,XX,XX) CC CALL KMTAB(IC,SNGL(TEMP),XX,XX,XX,XX,XX,XX,XX,XX,GII,XX,XX,XX, CC & XX,XX,XX,XX,XX,XX,XX,XX,XX) CC M0(09) = M0(09)*EXP(LN10*(GI0-GII)) CC ENDIF C C M0(12) = AWSB(IRH) ! NAHSO4 C IF (M0(12) .LT. 100.0) THEN C IC = M0(12) C CALL KMTAB(IC,298.0, XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,GI0, C & XX,XX,XX,XX,XX,XX,XX,XX,XX) C CALL KMTAB(IC,SNGL(TEMP),XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,GII, C & XX,XX,XX,XX,XX,XX,XX,XX,XX) C M0(12) = M0(12)*EXP(LN10*(GI0-GII)) C ENDIF C M0(13) = AWLC(IRH) ! (NH4)3H(SO4)2 C IF (M0(13) .LT. 100.0) THEN C IC = 4.0*M0(13) C CALL KMTAB(IC,298.0, XX,XX,XX,GI0,XX,XX,XX,XX,GII,XX,XX,XX, C & XX,XX,XX,XX,XX,XX,XX,XX,XX) C G130 = 0.2*(3.0*GI0+2.0*GII) C CALL KMTAB(IC,SNGL(TEMP),XX,XX,XX,GI0,XX,XX,XX,XX,GII,XX,XX,XX, C & XX,XX,XX,XX,XX,XX,XX,XX,XX) C G13I = 0.2*(3.0*GI0+2.0*GII) C M0(13) = M0(13)*EXP(LN10*SNGL(G130-G13I)) C ENDIF C C *** OTHER INITIALIZATIONS ********************************************* C ICLACT = 0 CALAOU = .TRUE. CALAIN = .TRUE. FRST = .TRUE. SCASE = '??' SULRATW = 2.D0 SODRAT = ZERO CRNARAT = ZERO CRRAT = ZERO NOFER = 0 STKOFL =.FALSE. DO 60 I=1,NERRMX ERRSTK(I) =-999 ERRMSG(I) = 'MESSAGE N/A' 60 CONTINUE C C *** END OF SUBROUTINE INIT2 ******************************************* C END C C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE ISOINIT3 C *** THIS SUBROUTINE INITIALIZES ALL GLOBAL VARIABLES FOR AMMONIUM, C SODIUM, CHLORIDE, NITRATE, SULFATE AEROSOL SYSTEMS (SUBROUTINE C ISRP3) C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE ISOINIT3 (WI, RHI, TEMPI) INCLUDE 'isrpia.inc' DIMENSION WI(NCOMP) REAL IC,GII,GI0,XX,LN10 PARAMETER (LN10=2.3025851) C C *** SAVE INPUT VARIABLES IN COMMON BLOCK ****************************** C IF (IPROB.EQ.0) THEN ! FORWARD CALCULATION DO 10 I=1,NCOMP W(I) = MAX(WI(I), TINY) 10 CONTINUE ELSE DO 15 I=1,NCOMP ! REVERSE CALCULATION WAER(I) = MAX(WI(I), TINY) W(I) = ZERO 15 CONTINUE ENDIF RH = RHI TEMP = TEMPI C C *** CALCULATE EQUILIBRIUM CONSTANTS *********************************** C XK1 = 1.015D-2 ! HSO4(aq) <==> H(aq) + SO4(aq) XK21 = 57.639D0 ! NH3(g) <==> NH3(aq) XK22 = 1.805D-5 ! NH3(aq) <==> NH4(aq) + OH(aq) XK3 = 1.971D6 ! HCL(g) <==> H(aq) + CL(aq) XK31 = 2.500e3 ! HCL(g) <==> HCL(aq) XK4 = 2.511e6 ! HNO3(g) <==> H(aq) + NO3(aq) ! ISORR CCC XK4 = 3.638e6 ! HNO3(g) <==> H(aq) + NO3(aq) ! SEQUIL XK41 = 2.100e5 ! HNO3(g) <==> HNO3(aq) XK5 = 0.4799D0 ! NA2SO4(s) <==> 2*NA(aq) + SO4(aq) XK6 = 1.086D-16 ! NH4CL(s) <==> NH3(g) + HCL(g) XK7 = 1.817D0 ! (NH4)2SO4(s) <==> 2*NH4(aq) + SO4(aq) XK8 = 37.661D0 ! NACL(s) <==> NA(aq) + CL(aq) XK10 = 5.746D-17 ! NH4NO3(s) <==> NH3(g) + HNO3(g) ! ISORR CCC XK10 = 2.985e-17 ! NH4NO3(s) <==> NH3(g) + HNO3(g) ! SEQUIL XK11 = 2.413D4 ! NAHSO4(s) <==> NA(aq) + HSO4(aq) XK12 = 1.382D2 ! NH4HSO4(s) <==> NH4(aq) + HSO4(aq) XK13 = 29.268D0 ! (NH4)3H(SO4)2(s) <==> 3*NH4(aq) + HSO4(aq) + SO4(aq) XK14 = 22.05D0 ! NH4CL(s) <==> NH4(aq) + CL(aq) XKW = 1.010D-14 ! H2O <==> H(aq) + OH(aq) XK9 = 11.977D0 ! NANO3(s) <==> NA(aq) + NO3(aq) C IF (INT(TEMP) .NE. 298) THEN ! FOR T != 298K or 298.15K T0 = 298.15D0 T0T = T0/TEMP COEF= 1.0+LOG(T0T)-T0T XK1 = XK1 *EXP( 8.85*(T0T-1.0) + 25.140*COEF) XK21= XK21*EXP( 13.79*(T0T-1.0) - 5.393*COEF) XK22= XK22*EXP( -1.50*(T0T-1.0) + 26.920*COEF) XK3 = XK3 *EXP( 30.20*(T0T-1.0) + 19.910*COEF) XK31= XK31*EXP( 30.20*(T0T-1.0) + 19.910*COEF) XK4 = XK4 *EXP( 29.17*(T0T-1.0) + 16.830*COEF) !ISORR CCC XK4 = XK4 *EXP( 29.47*(T0T-1.0) + 16.840*COEF) ! SEQUIL XK41= XK41*EXP( 29.17*(T0T-1.0) + 16.830*COEF) XK5 = XK5 *EXP( 0.98*(T0T-1.0) + 39.500*COEF) XK6 = XK6 *EXP(-71.00*(T0T-1.0) + 2.400*COEF) XK7 = XK7 *EXP( -2.65*(T0T-1.0) + 38.570*COEF) XK8 = XK8 *EXP( -1.56*(T0T-1.0) + 16.900*COEF) XK9 = XK9 *EXP( -8.22*(T0T-1.0) + 16.010*COEF) XK10= XK10*EXP(-74.38*(T0T-1.0) + 6.120*COEF) ! ISORR CCC XK10= XK10*EXP(-75.11*(T0T-1.0) + 13.460*COEF) ! SEQUIL XK11= XK11*EXP( 0.79*(T0T-1.0) + 14.746*COEF) XK12= XK12*EXP( -2.87*(T0T-1.0) + 15.830*COEF) XK13= XK13*EXP( -5.19*(T0T-1.0) + 54.400*COEF) XK14= XK14*EXP( 24.55*(T0T-1.0) + 16.900*COEF) XKW = XKW *EXP(-22.52*(T0T-1.0) + 26.920*COEF) ENDIF XK2 = XK21*XK22 XK42 = XK4/XK41 XK32 = XK3/XK31 C C *** CALCULATE DELIQUESCENCE RELATIVE HUMIDITIES (UNICOMPONENT) ******** C DRH2SO4 = ZERO DRNH42S4 = 0.7997D0 DRNH4HS4 = 0.4000D0 DRLC = 0.6900D0 DRNACL = 0.7528D0 DRNANO3 = 0.7379D0 DRNH4CL = 0.7710D0 DRNH4NO3 = 0.6183D0 DRNA2SO4 = 0.9300D0 DRNAHSO4 = 0.5200D0 IF (INT(TEMP) .NE. 298) THEN T0 = 298.15D0 TCF = 1.0/TEMP - 1.0/T0 DRNACL = DRNACL *EXP( 25.*TCF) DRNANO3 = DRNANO3 *EXP(304.*TCF) DRNA2SO4 = DRNA2SO4*EXP( 80.*TCF) DRNH4NO3 = DRNH4NO3*EXP(852.*TCF) DRNH42S4 = DRNH42S4*EXP( 80.*TCF) DRNH4HS4 = DRNH4HS4*EXP(384.*TCF) DRLC = DRLC *EXP(186.*TCF) DRNH4CL = DRNH4Cl *EXP(239.*TCF) DRNAHSO4 = DRNAHSO4*EXP(-45.*TCF) C C *** ADJUST FOR DRH "CROSSOVER" AT LOW TEMPERATURES C DRNH4NO3 = MIN (DRNH4NO3, DRNH4CL, DRNH42S4, DRNANO3, DRNACL) DRNANO3 = MIN (DRNANO3, DRNACL) DRNH4CL = MIN (DRNH4Cl, DRNH42S4) C ENDIF C C *** CALCULATE MUTUAL DELIQUESCENCE RELATIVE HUMIDITIES **************** C DRMLCAB = 0.378D0 ! (NH4)3H(SO4)2 & NH4HSO4 DRMLCAS = 0.690D0 ! (NH4)3H(SO4)2 & (NH4)2SO4 DRMASAN = 0.600D0 ! (NH4)2SO4 & NH4NO3 DRMG1 = 0.460D0 ! (NH4)2SO4, NH4NO3, NA2SO4, NH4CL DRMG2 = 0.691D0 ! (NH4)2SO4, NA2SO4, NH4CL DRMG3 = 0.697D0 ! (NH4)2SO4, NA2SO4 DRMH1 = 0.240D0 ! NA2SO4, NANO3, NACL, NH4NO3, NH4CL DRMH2 = 0.596D0 ! NA2SO4, NANO3, NACL, NH4CL DRMI1 = 0.240D0 ! LC, NAHSO4, NH4HSO4, NA2SO4, (NH4)2SO4 DRMI2 = 0.363D0 ! LC, NAHSO4, NA2SO4, (NH4)2SO4 - NO DATA - DRMI3 = 0.610D0 ! LC, NA2SO4, (NH4)2SO4 DRMQ1 = 0.494D0 ! (NH4)2SO4, NH4NO3, NA2SO4 DRMR1 = 0.663D0 ! NA2SO4, NANO3, NACL DRMR2 = 0.735D0 ! NA2SO4, NACL DRMR3 = 0.673D0 ! NANO3, NACL DRMR4 = 0.694D0 ! NA2SO4, NACL, NH4CL DRMR5 = 0.731D0 ! NA2SO4, NH4CL DRMR6 = 0.596D0 ! NA2SO4, NANO3, NH4CL DRMR7 = 0.380D0 ! NA2SO4, NANO3, NACL, NH4NO3 DRMR8 = 0.380D0 ! NA2SO4, NACL, NH4NO3 DRMR9 = 0.494D0 ! NA2SO4, NH4NO3 DRMR10 = 0.476D0 ! NA2SO4, NANO3, NH4NO3 DRMR11 = 0.340D0 ! NA2SO4, NACL, NH4NO3, NH4CL DRMR12 = 0.460D0 ! NA2SO4, NH4NO3, NH4CL DRMR13 = 0.438D0 ! NA2SO4, NANO3, NH4NO3, NH4CL CCC IF (INT(TEMP) .NE. 298) THEN CCC T0 = 298.15d0 CCC TCF = 1.0/TEMP - 1.0/T0 CCC DRMLCAB = DRMLCAB*EXP( 507.506*TCF) CCC DRMLCAS = DRMLCAS*EXP( 133.865*TCF) CCC DRMASAN = DRMASAN*EXP(1269.068*TCF) CCC DRMG1 = DRMG1 *EXP( 572.207*TCF) CCC DRMG2 = DRMG2 *EXP( 58.166*TCF) CCC DRMG3 = DRMG3 *EXP( 22.253*TCF) CCC DRMH1 = DRMH1 *EXP(2116.542*TCF) CCC DRMH2 = DRMH2 *EXP( 650.549*TCF) CCC DRMI1 = DRMI1 *EXP( 565.743*TCF) CCC DRMI2 = DRMI2 *EXP( 91.745*TCF) CCC DRMI3 = DRMI3 *EXP( 161.272*TCF) CCC DRMQ1 = DRMQ1 *EXP(1616.621*TCF) CCC DRMR1 = DRMR1 *EXP( 292.564*TCF) CCC DRMR2 = DRMR2 *EXP( 14.587*TCF) CCC DRMR3 = DRMR3 *EXP( 307.907*TCF) CCC DRMR4 = DRMR4 *EXP( 97.605*TCF) CCC DRMR5 = DRMR5 *EXP( 98.523*TCF) CCC DRMR6 = DRMR6 *EXP( 465.500*TCF) CCC DRMR7 = DRMR7 *EXP( 324.425*TCF) CCC DRMR8 = DRMR8 *EXP(2660.184*TCF) CCC DRMR9 = DRMR9 *EXP(1617.178*TCF) CCC DRMR10 = DRMR10 *EXP(1745.226*TCF) CCC DRMR11 = DRMR11 *EXP(3691.328*TCF) CCC DRMR12 = DRMR12 *EXP(1836.842*TCF) CCC DRMR13 = DRMR13 *EXP(1967.938*TCF) CCC ENDIF C C *** LIQUID PHASE ****************************************************** C CHNO3 = ZERO CHCL = ZERO CH2SO4 = ZERO COH = ZERO WATER = TINY C DO 20 I=1,NPAIR MOLALR(I)=ZERO GAMA(I) =0.1 GAMIN(I) =GREAT GAMOU(I) =GREAT M0(I) =1d5 20 CONTINUE C DO 30 I=1,NPAIR GAMA(I) = 0.1d0 30 CONTINUE C DO 40 I=1,NIONS MOLAL(I)=ZERO 40 CONTINUE COH = ZERO C DO 50 I=1,NGASAQ GASAQ(I)=ZERO 50 CONTINUE C C *** SOLID PHASE ******************************************************* C CNH42S4= ZERO CNH4HS4= ZERO CNACL = ZERO CNA2SO4= ZERO CNANO3 = ZERO CNH4NO3= ZERO CNH4CL = ZERO CNAHSO4= ZERO CLC = ZERO CCASO4 = ZERO CCANO32= ZERO CCACL2 = ZERO CK2SO4 = ZERO CKHSO4 = ZERO CKNO3 = ZERO CKCL = ZERO CMGSO4 = ZERO CMGNO32= ZERO CMGCL2 = ZERO C C *** GAS PHASE ********************************************************* C GNH3 = ZERO GHNO3 = ZERO GHCL = ZERO C C *** CALCULATE ZSR PARAMETERS ****************************************** C IRH = MIN (INT(RH*NZSR+0.5),NZSR) ! Position in ZSR arrays IRH = MAX (IRH, 1) C M0(01) = AWSC(IRH) ! NACl CC IF (M0(01) .LT. 100.0) THEN CC IC = M0(01) CC CALL KMTAB(IC,298.0, GI0,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX, CC & XX,XX,XX,XX,XX,XX,XX,XX,XX) CC CALL KMTAB(IC,SNGL(TEMP),GII,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX, CC & XX,XX,XX,XX,XX,XX,XX,XX,XX) CC M0(01) = M0(01)*EXP(LN10*(GI0-GII)) CC ENDIF C M0(02) = AWSS(IRH) ! (NA)2SO4 CC IF (M0(02) .LT. 100.0) THEN CC IC = 3.0*M0(02) CC CALL KMTAB(IC,298.0, XX,GI0,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX, CC & XX,XX,XX,XX,XX,XX,XX,XX,XX) CC CALL KMTAB(IC,SNGL(TEMP),XX,GII,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX, CC & XX,XX,XX,XX,XX,XX,XX,XX,XX) CC M0(02) = M0(02)*EXP(LN10*(GI0-GII)) CC ENDIF C M0(03) = AWSN(IRH) ! NANO3 CC IF (M0(03) .LT. 100.0) THEN CC IC = M0(03) CC CALL KMTAB(IC,298.0, XX,XX,GI0,XX,XX,XX,XX,XX,XX,XX,XX,XX, CC & XX,XX,XX,XX,XX,XX,XX,XX,XX) CC CALL KMTAB(IC,SNGL(TEMP),XX,XX,GII,XX,XX,XX,XX,XX,XX,XX,XX,XX, CC & XX,XX,XX,XX,XX,XX,XX,XX,XX) C C M0(03) = M0(03)*EXP(LN10*(GI0-GII)) CC ENDIF C M0(04) = AWAS(IRH) ! (NH4)2SO4 CC IF (M0(04) .LT. 100.0) THEN CC IC = 3.0*M0(04) CC CALL KMTAB(IC,298.0, XX,XX,XX,GI0,XX,XX,XX,XX,XX,XX,XX,XX, CC & XX,XX,XX,XX,XX,XX,XX,XX,XX) CC CALL KMTAB(IC,SNGL(TEMP),XX,XX,XX,GII,XX,XX,XX,XX,XX,XX,XX,XX, CC & XX,XX,XX,XX,XX,XX,XX,XX,XX) CC M0(04) = M0(04)*EXP(LN10*(GI0-GII)) CC ENDIF C M0(05) = AWAN(IRH) ! NH4NO3 CC IF (M0(05) .LT. 100.0) THEN CC IC = M0(05) CC CALL KMTAB(IC,298.0, XX,XX,XX,XX,GI0,XX,XX,XX,XX,XX,XX,XX, CC & XX,XX,XX,XX,XX,XX,XX,XX,XX) CC CALL KMTAB(IC,SNGL(TEMP),XX,XX,XX,XX,GII,XX,XX,XX,XX,XX,XX,XX, CC & XX,XX,XX,XX,XX,XX,XX,XX,XX) CC M0(05) = M0(05)*EXP(LN10*(GI0-GII)) CC ENDIF C M0(06) = AWAC(IRH) ! NH4CL CC IF (M0(06) .LT. 100.0) THEN CC IC = M0(06) CC CALL KMTAB(IC,298.0, XX,XX,XX,XX,XX,GI0,XX,XX,XX,XX,XX,XX, CC & XX,XX,XX,XX,XX,XX,XX,XX,XX) CC CALL KMTAB(IC,SNGL(TEMP),XX,XX,XX,XX,XX,GII,XX,XX,XX,XX,XX,XX, CC & XX,XX,XX,XX,XX,XX,XX,XX,XX) CC M0(06) = M0(06)*EXP(LN10*(GI0-GII)) CC ENDIF C M0(07) = AWSA(IRH) ! 2H-SO4 CC IF (M0(07) .LT. 100.0) THEN CC IC = 3.0*M0(07) CC CALL KMTAB(IC,298.0, XX,XX,XX,XX,XX,XX,GI0,XX,XX,XX,XX,XX, CC & XX,XX,XX,XX,XX,XX,XX,XX,XX) CC CALL KMTAB(IC,SNGL(TEMP),XX,XX,XX,XX,XX,XX,GII,XX,XX,XX,XX,XX, CC & XX,XX,XX,XX,XX,XX,XX,XX,XX) CC M0(07) = M0(07)*EXP(LN10*(GI0-GII)) CC ENDIF C M0(08) = AWSA(IRH) ! H-HSO4 CCC IF (M0(08) .LT. 100.0) THEN ! These are redundant, because M0(8) is not used CCC IC = M0(08) CCC CALL KMTAB(IC,298.0, XX,XX,XX,XX,XX,XX,XX,GI0,XX,XX,XX,XX) CCC CALL KMTAB(IC,SNGL(TEMP),XX,XX,XX,XX,XX,XX,XX,GI0,XX,XX,XX,XX) CCCCCC CALL KMTAB(IC,SNGL(TEMP),XX,XX,XX,XX,XX,XX,XX,GII,XX,XX,XX,XX) CCC M0(08) = M0(08)*EXP(LN10*(GI0-GII)) CCC ENDIF C M0(09) = AWAB(IRH) ! NH4HSO4 CC IF (M0(09) .LT. 100.0) THEN CC IC = M0(09) CC CALL KMTAB(IC,298.0, XX,XX,XX,XX,XX,XX,XX,XX,GI0,XX,XX,XX, CC & XX,XX,XX,XX,XX,XX,XX,XX,XX) CC CALL KMTAB(IC,SNGL(TEMP),XX,XX,XX,XX,XX,XX,XX,XX,GII,XX,XX,XX, CC & XX,XX,XX,XX,XX,XX,XX,XX,XX) CC M0(09) = M0(09)*EXP(LN10*(GI0-GII)) CC ENDIF C M0(12) = AWSB(IRH) ! NAHSO4 CC IF (M0(12) .LT. 100.0) THEN CC IC = M0(12) CC CALL KMTAB(IC,298.0, XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,GI0, CC & XX,XX,XX,XX,XX,XX,XX,XX,XX) CC CALL KMTAB(IC,SNGL(TEMP),XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,GII, CC & XX,XX,XX,XX,XX,XX,XX,XX,XX) CC M0(12) = M0(12)*EXP(LN10*(GI0-GII)) CC ENDIF C M0(13) = AWLC(IRH) ! (NH4)3H(SO4)2 CC IF (M0(13) .LT. 100.0) THEN CC IC = 4.0*M0(13) CC CALL KMTAB(IC,298.0, XX,XX,XX,GI0,XX,XX,XX,XX,GII,XX,XX,XX, CC & XX,XX,XX,XX,XX,XX,XX,XX,XX) CC G130 = 0.2*(3.0*GI0+2.0*GII) CC CALL KMTAB(IC,SNGL(TEMP),XX,XX,XX,GI0,XX,XX,XX,XX,GII,XX,XX,XX, CC & XX,XX,XX,XX,XX,XX,XX,XX,XX) CC G13I = 0.2*(3.0*GI0+2.0*GII) CC M0(13) = M0(13)*EXP(LN10*SNGL(G130-G13I)) CC ENDIF C C *** OTHER INITIALIZATIONS ********************************************* C ICLACT = 0 CALAOU = .TRUE. CALAIN = .TRUE. FRST = .TRUE. SCASE = '??' SULRATW = 2.D0 CRNARAT = ZERO CRRAT = ZERO NOFER = 0 STKOFL =.FALSE. DO 60 I=1,NERRMX ERRSTK(I) =-999 ERRMSG(I) = 'MESSAGE N/A' 60 CONTINUE C C *** END OF SUBROUTINE ISOINIT3 ******************************************* C END C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE INIT4 C *** THIS SUBROUTINE INITIALIZES ALL GLOBAL VARIABLES FOR AMMONIUM, C SODIUM, CHLORIDE, NITRATE, SULFATE, CALCIUM, POTASSIUM, MAGNESIUM C AEROSOL SYSTEMS (SUBROUTINE ISRP4) C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE INIT4 (WI, RHI, TEMPI) INCLUDE 'isrpia.inc' DIMENSION WI(NCOMP) REAL IC,GII,GI0,XX,LN10 PARAMETER (LN10=2.3025851) C C *** SAVE INPUT VARIABLES IN COMMON BLOCK ****************************** C IF (IPROB.EQ.0) THEN ! FORWARD CALCULATION DO 10 I=1,NCOMP W(I) = MAX(WI(I), TINY) 10 CONTINUE ELSE DO 15 I=1,NCOMP ! REVERSE CALCULATION WAER(I) = MAX(WI(I), TINY) W(I) = ZERO 15 CONTINUE ENDIF RH = RHI TEMP = TEMPI C C *** CALCULATE EQUILIBRIUM CONSTANTS *********************************** C XK1 = 1.015D-2 ! HSO4(aq) <==> H(aq) + SO4(aq) XK21 = 57.639D0 ! NH3(g) <==> NH3(aq) XK22 = 1.805D-5 ! NH3(aq) <==> NH4(aq) + OH(aq) XK3 = 1.971D6 ! HCL(g) <==> H(aq) + CL(aq) XK31 = 2.500e3 ! HCL(g) <==> HCL(aq) XK4 = 2.511e6 ! HNO3(g) <==> H(aq) + NO3(aq) ! ISORR C XK4 = 3.638e6 ! HNO3(g) <==> H(aq) + NO3(aq) ! SEQUIL XK41 = 2.100e5 ! HNO3(g) <==> HNO3(aq) XK5 = 0.4799D0 ! NA2SO4(s) <==> 2*NA(aq) + SO4(aq) XK6 = 1.086D-16 ! NH4CL(s) <==> NH3(g) + HCL(g) XK7 = 1.817D0 ! (NH4)2SO4(s) <==> 2*NH4(aq) + SO4(aq) XK8 = 37.661D0 ! NACL(s) <==> NA(aq) + CL(aq) C XK10 = 5.746D-17 ! NH4NO3(s) <==> NH3(g) + HNO3(g) ! ISORR XK10 = 4.199D-17 ! NH4NO3(s) <==> NH3(g) + HNO3(g) ! (Mozurkewich, 1993) C XK10 = 2.985e-17 ! NH4NO3(s) <==> NH3(g) + HNO3(g) ! SEQUIL XK11 = 2.413D4 ! NAHSO4(s) <==> NA(aq) + HSO4(aq) XK12 = 1.382D2 ! NH4HSO4(s) <==> NH4(aq) + HSO4(aq) XK13 = 29.268D0 ! (NH4)3H(SO4)2(s) <==> 3*NH4(aq) + HSO4(aq) + SO4(aq) XK14 = 22.05D0 ! NH4CL(s) <==> NH4(aq) + CL(aq) XKW = 1.010D-14 ! H2O <==> H(aq) + OH(aq) XK9 = 11.977D0 ! NANO3(s) <==> NA(aq) + NO3(aq) CCC XK15 = 6.067D5 ! CA(NO3)2(s) <==> CA(aq) + 2NO3(aq) XK16 = 7.974D11 ! CACL2(s) <==> CA(aq) + 2CL(aq) XK17 = 1.569D-2 ! K2SO4(s) <==> 2K(aq) + SO4(aq) XK18 = 24.016 ! KHSO4(s) <==> K(aq) + HSO4(aq) XK19 = 0.872 ! KNO3(s) <==> K(aq) + NO3(aq) XK20 = 8.680 ! KCL(s) <==> K(aq) + CL(aq) XK23 = 1.079D5 ! MGS04(s) <==> MG(aq) + SO4(aq) XK24 = 2.507D15 ! MG(NO3)2(s) <==> MG(aq) + 2NO3(aq) XK25 = 9.557D21 ! MGCL2(s) <==> MG(aq) + 2CL(aq) C XK26 = 4.299D-7 ! CO2(aq) + H2O <==> HCO3(aq) + H(aq) C XK27 = 4.678D-11 ! HCO3(aq) <==> CO3(aq) + H(aq) C IF (INT(TEMP) .NE. 298) THEN ! FOR T != 298K or 298.15K T0 = 298.15D0 T0T = T0/TEMP COEF= 1.0+LOG(T0T)-T0T XK1 = XK1 *EXP( 8.85*(T0T-1.0) + 25.140*COEF) XK21= XK21*EXP( 13.79*(T0T-1.0) - 5.393*COEF) XK22= XK22*EXP( -1.50*(T0T-1.0) + 26.920*COEF) XK3 = XK3 *EXP( 30.20*(T0T-1.0) + 19.910*COEF) XK31= XK31*EXP( 30.20*(T0T-1.0) + 19.910*COEF) XK4 = XK4 *EXP( 29.17*(T0T-1.0) + 16.830*COEF) !ISORR C XK4 = XK4 *EXP( 29.47*(T0T-1.0) + 16.840*COEF) ! SEQUIL XK41= XK41*EXP( 29.17*(T0T-1.0) + 16.830*COEF) XK5 = XK5 *EXP( 0.98*(T0T-1.0) + 39.500*COEF) XK6 = XK6 *EXP(-71.00*(T0T-1.0) + 2.400*COEF) XK7 = XK7 *EXP( -2.65*(T0T-1.0) + 38.570*COEF) XK8 = XK8 *EXP( -1.56*(T0T-1.0) + 16.900*COEF) XK9 = XK9 *EXP( -8.22*(T0T-1.0) + 16.010*COEF) C XK10= XK10*EXP(-74.38*(T0T-1.0) + 6.120*COEF) ! ISORR XK10= XK10*EXP(-74.7351*(T0T-1.0) + 6.025*COEF) ! (Mozurkewich, 1993) C XK10= XK10*EXP(-75.11*(T0T-1.0) + 13.460*COEF) ! SEQUIL XK11= XK11*EXP( 0.79*(T0T-1.0) + 14.746*COEF) XK12= XK12*EXP( -2.87*(T0T-1.0) + 15.830*COEF) XK13= XK13*EXP( -5.19*(T0T-1.0) + 54.400*COEF) XK14= XK14*EXP( 24.55*(T0T-1.0) + 16.900*COEF) XKW = XKW *EXP(-22.52*(T0T-1.0) + 26.920*COEF) CCC C XK15= XK15 *EXP( .0*(T0T-1.0) + .0*COEF) C XK16= XK16 *EXP( .0*(T0T-1.0) + .0*COEF) XK17= XK17 *EXP(-9.585*(T0T-1.0) + 45.81*COEF) XK18= XK18 *EXP(-8.423*(T0T-1.0) + 17.96*COEF) XK19= XK19 *EXP(-14.08*(T0T-1.0) + 19.39*COEF) XK20= XK20 *EXP(-6.902*(T0T-1.0) + 19.95*COEF) C XK23= XK23 *EXP( .0*(T0T-1.0) + .0*COEF) C XK24= XK24 *EXP( .0*(T0T-1.0) + .0*COEF) C XK25= XK25 *EXP( .0*(T0T-1.0) + .0*COEF) C XK26= XK26 *EXP(-3.0821*(T0T-1.0) + 31.8139*COEF) C XK27= XK27 *EXP(-5.9908*(T0T-1.0) + 38.844*COEF) ENDIF XK2 = XK21*XK22 XK42 = XK4/XK41 XK32 = XK3/XK31 C C *** CALCULATE DELIQUESCENCE RELATIVE HUMIDITIES (UNICOMPONENT) ******** C DRH2SO4 = ZERO DRNH42S4 = 0.7997D0 DRNH4HS4 = 0.4000D0 DRLC = 0.6900D0 DRNACL = 0.7528D0 DRNANO3 = 0.7379D0 DRNH4CL = 0.7710D0 DRNH4NO3 = 0.6183D0 DRNA2SO4 = 0.9300D0 DRNAHSO4 = 0.5200D0 DRCANO32 = 0.4906D0 DRCACL2 = 0.2830D0 DRK2SO4 = 0.9750D0 DRKHSO4 = 0.8600D0 DRKNO3 = 0.9248D0 DRKCL = 0.8426D0 DRMGSO4 = 0.8613D0 DRMGNO32 = 0.5400D0 DRMGCL2 = 0.3284D0 IF (INT(TEMP) .NE. 298) THEN T0 = 298.15D0 TCF = 1.0/TEMP - 1.0/T0 DRNACL = DRNACL *EXP( 25.*TCF) DRNANO3 = DRNANO3 *EXP(304.*TCF) DRNA2SO4 = DRNA2SO4*EXP( 80.*TCF) DRNH4NO3 = DRNH4NO3*EXP(852.*TCF) DRNH42S4 = DRNH42S4*EXP( 80.*TCF) DRNH4HS4 = DRNH4HS4*EXP(384.*TCF) DRLC = DRLC *EXP(186.*TCF) DRNH4CL = DRNH4Cl *EXP(239.*TCF) DRNAHSO4 = DRNAHSO4*EXP(-45.*TCF) C DRCANO32 = DRCANO32*EXP(-430.5*TCF) DRCANO32 = DRCANO32*EXP(509.4*TCF) ! KELLY & WEXLER (2005) FOR CANO32.4H20 C DRCACL2 = DRCACL2 *EXP(-1121.*TCF) DRCACL2 = DRCACL2 *EXP(551.1*TCF) ! KELLY & WEXLER (2005) FOR CACL2.6H20 DRK2SO4 = DRK2SO4 *EXP(35.6*TCF) C DRKHSO4 = DRKHSO4 *EXP( 0.*TCF) C DRKNO3 = DRKNO3 *EXP( 0.*TCF) DRKCL = DRKCL *EXP(159.*TCF) DRMGSO4 = DRMGSO4 *EXP(-714.45*TCF) DRMGNO32 = DRMGNO32*EXP(230.2*TCF) ! KELLY & WEXLER (2005) FOR MGNO32.6H20 C DRMGCL2 = DRMGCL2 *EXP(-1860.*TCF) DRMGCL2 = DRMGCL2 *EXP(42.23*TCF) ! KELLY & WEXLER (2005) FOR MGCL2.6H20 C ENDIF C C *** CALCULATE MUTUAL DELIQUESCENCE RELATIVE HUMIDITIES **************** C DRMLCAB = 0.378D0 ! (NH4)3H(SO4)2 & NH4HSO4 DRMLCAS = 0.690D0 ! (NH4)3H(SO4)2 & (NH4)2SO4 DRMASAN = 0.600D0 ! (NH4)2SO4 & NH4NO3 DRMG1 = 0.460D0 ! (NH4)2SO4, NH4NO3, NA2SO4, NH4CL DRMG2 = 0.691D0 ! (NH4)2SO4, NA2SO4, NH4CL DRMG3 = 0.697D0 ! (NH4)2SO4, NA2SO4 DRMH1 = 0.240D0 ! NA2SO4, NANO3, NACL, NH4NO3, NH4CL DRMH2 = 0.596D0 ! NA2SO4, NANO3, NACL, NH4CL DRMI1 = 0.240D0 ! LC, NAHSO4, NH4HSO4, NA2SO4, (NH4)2SO4 DRMI2 = 0.363D0 ! LC, NAHSO4, NA2SO4, (NH4)2SO4 - NO DATA - DRMI3 = 0.610D0 ! LC, NA2SO4, (NH4)2SO4 DRMQ1 = 0.494D0 ! (NH4)2SO4, NH4NO3, NA2SO4 DRMR1 = 0.663D0 ! NA2SO4, NANO3, NACL DRMR2 = 0.735D0 ! NA2SO4, NACL DRMR3 = 0.673D0 ! NANO3, NACL DRMR4 = 0.694D0 ! NA2SO4, NACL, NH4CL DRMR5 = 0.731D0 ! NA2SO4, NH4CL DRMR6 = 0.596D0 ! NA2SO4, NANO3, NH4CL DRMR7 = 0.380D0 ! NA2SO4, NANO3, NACL, NH4NO3 DRMR8 = 0.380D0 ! NA2SO4, NACL, NH4NO3 DRMR9 = 0.494D0 ! NA2SO4, NH4NO3 DRMR10 = 0.476D0 ! NA2SO4, NANO3, NH4NO3 DRMR11 = 0.340D0 ! NA2SO4, NACL, NH4NO3, NH4CL DRMR12 = 0.460D0 ! NA2SO4, NH4NO3, NH4CL DRMR13 = 0.438D0 ! NA2SO4, NANO3, NH4NO3, NH4CL C DRMO1 = 0.460D0 ! (NH4)2SO4, NH4NO3, NH4Cl, NA2SO4, K2SO4, MGSO4 DRMO2 = 0.691D0 ! (NH4)2SO4, NH4Cl, NA2SO4, K2SO4, MGSO4 DRMO3 = 0.697D0 ! (NH4)2SO4, NA2SO4, K2SO4, MGSO4 DRML1 = 0.240D0 ! K2SO4, MGSO4, KHSO4, NH4HSO4, NAHSO4, (NH4)2SO4, NA2SO4, LC DRML2 = 0.363D0 ! K2SO4, MGSO4, KHSO4, NAHSO4, (NH4)2SO4, NA2SO4, LC DRML3 = 0.610D0 ! K2SO4, MGSO4, KHSO4, (NH4)2SO4, NA2SO4, LC DRMM1 = 0.240D0 ! K2SO4, NA2SO4, MGSO4, NH4CL, NACL, NANO3, NH4NO3 DRMM2 = 0.596D0 ! K2SO4, NA2SO4, MGSO4, NH4CL, NACL, NANO3 DRMP1 = 0.200D0 ! CA(NO3)2, CACL2, K2SO4, KNO3, KCL, MGSO4, MG(NO3)2, MGCL2, NANO3, NACL, NH4NO3, NH4CL DRMP2 = 0.240D0 ! CA(NO3)2, K2SO4, KNO3, KCL, MGSO4, MG(NO3)2, MGCL2, NANO3, NACL, NH4NO3, NH4CL DRMP3 = 0.240D0 ! CA(NO3)2, K2SO4, KNO3, KCL, MGSO4, MG(NO3)2, NANO3, NACL, NH4NO3, NH4CL DRMP4 = 0.240D0 ! K2SO4, KNO3, KCL, MGSO4, MG(NO3)2, NANO3, NACL, NH4NO3, NH4CL DRMP5 = 0.240D0 ! K2SO4, KNO3, KCL, MGSO4, NANO3, NACL, NH4NO3, NH4CL CC DRMV1 = 0.494D0 ! (NH4)2SO4, NH4NO3, NA2SO4, K2SO4, MGSO4 CC CC C DRMO1 = 0.1D0 ! (NH4)2SO4, NH4NO3, NH4Cl, NA2SO4, K2SO4, MGSO4 C DRMO2 = 0.1D0 ! (NH4)2SO4, NH4Cl, NA2SO4, K2SO4, MGSO4 C DRMO3 = 0.1D0 ! (NH4)2SO4, NA2SO4, K2SO4, MGSO4 C DRML1 = 0.1D0 ! K2SO4, MGSO4, KHSO4, NH4HSO4, NAHSO4, (NH4)2SO4, NA2SO4, LC C DRML2 = 0.1D0 ! K2SO4, MGSO4, KHSO4, NAHSO4, (NH4)2SO4, NA2SO4, LC C DRML3 = 0.1D0 ! K2SO4, MGSO4, KHSO4, (NH4)2SO4, NA2SO4, LC C DRMM1 = 0.1D0 ! K2SO4, NA2SO4, MGSO4, NH4CL, NACL, NANO3, NH4NO3 C DRMM2 = 0.1D0 ! K2SO4, NA2SO4, MGSO4, NH4CL, NACL, NANO3 C DRMP1 = 0.1D0 ! CA(NO3)2, CACL2, K2SO4, KNO3, KCL, MGSO4, MG(NO3)2, MGCL2, NANO3, NACL, NH4NO3, NH4CL C DRMP2 = 0.1D0 ! CA(NO3)2, K2SO4, KNO3, KCL, MGSO4, MG(NO3)2, MGCL2, NANO3, NACL, NH4NO3, NH4CL C DRMP3 = 0.1D0 ! CA(NO3)2, K2SO4, KNO3, KCL, MGSO4, MG(NO3)2, NANO3, NACL, NH4NO3, NH4CL C DRMP4 = 0.1D0 ! K2SO4, KNO3, KCL, MGSO4, MG(NO3)2, NANO3, NACL, NH4NO3, NH4CL C DRMP5 = 0.1D0 ! K2SO4, KNO3, KCL, MGSO4, NANO3, NACL, NH4NO3, NH4CL CC C DRMV1 = 0.1D0 ! (NH4)2SO4, NH4NO3, NA2SO4, K2SO4, MGSO4 C CCC IF (INT(TEMP) .NE. 298) THEN CCC T0 = 298.15d0 CCC TCF = 1.0/TEMP - 1.0/T0 CCC DRMLCAB = DRMLCAB*EXP( 507.506*TCF) CCC DRMLCAS = DRMLCAS*EXP( 133.865*TCF) CCC DRMASAN = DRMASAN*EXP(1269.068*TCF) CCC DRMG1 = DRMG1 *EXP( 572.207*TCF) CCC DRMG2 = DRMG2 *EXP( 58.166*TCF) CCC DRMG3 = DRMG3 *EXP( 22.253*TCF) CCC DRMH1 = DRMH1 *EXP(2116.542*TCF) CCC DRMH2 = DRMH2 *EXP( 650.549*TCF) CCC DRMI1 = DRMI1 *EXP( 565.743*TCF) CCC DRMI2 = DRMI2 *EXP( 91.745*TCF) CCC DRMI3 = DRMI3 *EXP( 161.272*TCF) CCC DRMQ1 = DRMQ1 *EXP(1616.621*TCF) CCC DRMR1 = DRMR1 *EXP( 292.564*TCF) CCC DRMR2 = DRMR2 *EXP( 14.587*TCF) CCC DRMR3 = DRMR3 *EXP( 307.907*TCF) CCC DRMR4 = DRMR4 *EXP( 97.605*TCF) CCC DRMR5 = DRMR5 *EXP( 98.523*TCF) CCC DRMR6 = DRMR6 *EXP( 465.500*TCF) CCC DRMR7 = DRMR7 *EXP( 324.425*TCF) CCC DRMR8 = DRMR8 *EXP(2660.184*TCF) CCC DRMR9 = DRMR9 *EXP(1617.178*TCF) CCC DRMR10 = DRMR10 *EXP(1745.226*TCF) CCC DRMR11 = DRMR11 *EXP(3691.328*TCF) CCC DRMR12 = DRMR12 *EXP(1836.842*TCF) CCC DRMR13 = DRMR13 *EXP(1967.938*TCF) CCC ENDIF C C *** LIQUID PHASE ****************************************************** C CHNO3 = ZERO CHCL = ZERO CH2SO4 = ZERO COH = ZERO WATER = TINY C DO 20 I=1,NPAIR MOLALR(I)=ZERO GAMA(I) =0.1 GAMIN(I) =GREAT GAMOU(I) =GREAT M0(I) =1d5 20 CONTINUE C DO 30 I=1,NPAIR GAMA(I) = 0.1d0 30 CONTINUE C DO 40 I=1,NIONS MOLAL(I)=ZERO 40 CONTINUE COH = ZERO C DO 50 I=1,NGASAQ GASAQ(I)=ZERO 50 CONTINUE C C *** SOLID PHASE ******************************************************* C CNH42S4= ZERO CNH4HS4= ZERO CNACL = ZERO CNA2SO4= ZERO CNANO3 = ZERO CNH4NO3= ZERO CNH4CL = ZERO CNAHSO4= ZERO CLC = ZERO CCASO4 = ZERO CCANO32= ZERO CCACL2 = ZERO CK2SO4 = ZERO CKHSO4 = ZERO CKNO3 = ZERO CKCL = ZERO CMGSO4 = ZERO CMGNO32= ZERO CMGCL2 = ZERO C C *** GAS PHASE ********************************************************* C GNH3 = ZERO GHNO3 = ZERO GHCL = ZERO C C *** CALCULATE ZSR PARAMETERS ****************************************** C IRH = MIN (INT(RH*NZSR+0.5),NZSR) ! Position in ZSR arrays IRH = MAX (IRH, 1) C M0(01) = AWSC(IRH) ! NACl C IF (M0(01) .LT. 100.0) THEN C IC = M0(01) C CALL KMTAB(IC,298.0, GI0,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX, C & XX,XX,XX,XX,XX,XX,XX,XX,XX) C CALL KMTAB(IC,SNGL(TEMP),GII,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX, C & XX,XX,XX,XX,XX,XX,XX,XX,XX) C M0(01) = M0(01)*EXP(LN10*(GI0-GII)) C ENDIF C M0(02) = AWSS(IRH) ! (NA)2SO4 C IF (M0(02) .LT. 100.0) THEN C IC = 3.0*M0(02) C CALL KMTAB(IC,298.0, XX,GI0,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX, C & XX,XX,XX,XX,XX,XX,XX,XX,XX) C CALL KMTAB(IC,SNGL(TEMP),XX,GII,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX, C & XX,XX,XX,XX,XX,XX,XX,XX,XX) C M0(02) = M0(02)*EXP(LN10*(GI0-GII)) C ENDIF C M0(03) = AWSN(IRH) ! NANO3 C IF (M0(03) .LT. 100.0) THEN C IC = M0(03) C CALL KMTAB(IC,298.0, XX,XX,GI0,XX,XX,XX,XX,XX,XX,XX,XX,XX, C & XX,XX,XX,XX,XX,XX,XX,XX,XX) C CALL KMTAB(IC,SNGL(TEMP),XX,XX,GII,XX,XX,XX,XX,XX,XX,XX,XX,XX, C & XX,XX,XX,XX,XX,XX,XX,XX,XX) C M0(03) = M0(03)*EXP(LN10*(GI0-GII)) C ENDIF C M0(04) = AWAS(IRH) ! (NH4)2SO4 C IF (M0(04) .LT. 100.0) THEN C IC = 3.0*M0(04) C CALL KMTAB(IC,298.0, XX,XX,XX,GI0,XX,XX,XX,XX,XX,XX,XX,XX, C & XX,XX,XX,XX,XX,XX,XX,XX,XX) C CALL KMTAB(IC,SNGL(TEMP),XX,XX,XX,GII,XX,XX,XX,XX,XX,XX,XX,XX, C & XX,XX,XX,XX,XX,XX,XX,XX,XX) C M0(04) = M0(04)*EXP(LN10*(GI0-GII)) C ENDIF C M0(05) = AWAN(IRH) ! NH4NO3 C IF (M0(05) .LT. 100.0) THEN C IC = M0(05) C CALL KMTAB(IC,298.0, XX,XX,XX,XX,GI0,XX,XX,XX,XX,XX,XX,XX, C & XX,XX,XX,XX,XX,XX,XX,XX,XX) C CALL KMTAB(IC,SNGL(TEMP),XX,XX,XX,XX,GII,XX,XX,XX,XX,XX,XX,XX, C & XX,XX,XX,XX,XX,XX,XX,XX,XX) C M0(05) = M0(05)*EXP(LN10*(GI0-GII)) C ENDIF C M0(06) = AWAC(IRH) ! NH4CL C IF (M0(06) .LT. 100.0) THEN C IC = M0(06) C CALL KMTAB(IC,298.0, XX,XX,XX,XX,XX,GI0,XX,XX,XX,XX,XX,XX, C & XX,XX,XX,XX,XX,XX,XX,XX,XX) C CALL KMTAB(IC,SNGL(TEMP),XX,XX,XX,XX,XX,GII,XX,XX,XX,XX,XX,XX, C & XX,XX,XX,XX,XX,XX,XX,XX,XX) C M0(06) = M0(06)*EXP(LN10*(GI0-GII)) C ENDIF C M0(07) = AWSA(IRH) ! 2H-SO4 C IF (M0(07) .LT. 100.0) THEN C IC = 3.0*M0(07) C CALL KMTAB(IC,298.0, XX,XX,XX,XX,XX,XX,GI0,XX,XX,XX,XX,XX, C & XX,XX,XX,XX,XX,XX,XX,XX,XX) C CALL KMTAB(IC,SNGL(TEMP),XX,XX,XX,XX,XX,XX,GII,XX,XX,XX,XX,XX, C & XX,XX,XX,XX,XX,XX,XX,XX,XX) C M0(07) = M0(07)*EXP(LN10*(GI0-GII)) C ENDIF C M0(08) = AWSA(IRH) ! H-HSO4 CCC IF (M0(08) .LT. 100.0) THEN ! These are redundant, because M0(8) is not used CCC IC = M0(08) CCC CALL KMTAB(IC,298.0, XX,XX,XX,XX,XX,XX,XX,GI0,XX,XX,XX,XX) CCC CALL KMTAB(IC,SNGL(TEMP),XX,XX,XX,XX,XX,XX,XX,GI0,XX,XX,XX,XX) CCCCCC CALL KMTAB(IC,SNGL(TEMP),XX,XX,XX,XX,XX,XX,XX,GII,XX,XX,XX,XX) CCC M0(08) = M0(08)*EXP(LN10*(GI0-GII)) CCC ENDIF C M0(09) = AWAB(IRH) ! NH4HSO4 C IF (M0(09) .LT. 100.0) THEN C IC = M0(09) C CALL KMTAB(IC,298.0, XX,XX,XX,XX,XX,XX,XX,XX,GI0,XX,XX,XX, C & XX,XX,XX,XX,XX,XX,XX,XX,XX) C CALL KMTAB(IC,SNGL(TEMP),XX,XX,XX,XX,XX,XX,XX,XX,GII,XX,XX,XX, C & XX,XX,XX,XX,XX,XX,XX,XX,XX) C M0(09) = M0(09)*EXP(LN10*(GI0-GII)) C ENDIF C M0(12) = AWSB(IRH) ! NAHSO4 C IF (M0(12) .LT. 100.0) THEN C IC = M0(12) C CALL KMTAB(IC,298.0, XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,GI0, C & XX,XX,XX,XX,XX,XX,XX,XX,XX) C CALL KMTAB(IC,SNGL(TEMP),XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,GII, C & XX,XX,XX,XX,XX,XX,XX,XX,XX) C M0(12) = M0(12)*EXP(LN10*(GI0-GII)) C ENDIF C M0(13) = AWLC(IRH) ! (NH4)3H(SO4)2 C IF (M0(13) .LT. 100.0) THEN C IC = 4.0*M0(13) C CALL KMTAB(IC,298.0, XX,XX,XX,GI0,XX,XX,XX,XX,GII,XX,XX,XX, C & XX,XX,XX,XX,XX,XX,XX,XX,XX) C G130 = 0.2*(3.0*GI0+2.0*GII) C CALL KMTAB(IC,SNGL(TEMP),XX,XX,XX,GI0,XX,XX,XX,XX,GII,XX,XX,XX, C & XX,XX,XX,XX,XX,XX,XX,XX,XX) C G13I = 0.2*(3.0*GI0+2.0*GII) C M0(13) = M0(13)*EXP(LN10*SNGL(G130-G13I)) C ENDIF C M0(15) = AWCN(IRH) ! CA(NO3)2 C IF (M0(15) .LT. 100.0) THEN C IC = M0(15) C CALL KMTAB(IC,298.0, XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX, C & GI0,XX,XX,XX,XX,XX,XX,XX,XX) C CALL KMTAB(IC,SNGL(TEMP),XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX, C & GII,XX,XX,XX,XX,XX,XX,XX,XX) C M0(15) = M0(15)*EXP(LN10*(GI0-GII)) C ENDIF CC M0(16) = AWCC(IRH) ! CACl2 C IF (M0(16) .LT. 100.0) THEN C IC = M0(16) C CALL KMTAB(IC,298.0, XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX, C & XX,GI0,XX,XX,XX,XX,XX,XX,XX) C CALL KMTAB(IC,SNGL(TEMP),XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX, C & XX,GII,XX,XX,XX,XX,XX,XX,XX) C M0(16) = M0(16)*EXP(LN10*(GI0-GII)) C ENDIF C M0(17) = AWPS(IRH) ! K2SO4 C IF (M0(17) .LT. 100.0) THEN C IC = M0(17) C CALL KMTAB(IC,298.0, XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX, C & XX,XX,GI0,XX,XX,XX,XX,XX,XX) C CALL KMTAB(IC,SNGL(TEMP),XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX, C & XX,XX,GII,XX,XX,XX,XX,XX,XX) C M0(17) = M0(17)*EXP(LN10*(GI0-GII)) C ENDIF C M0(18) = AWPB(IRH) ! KHSO4 C IF (M0(18) .LT. 100.0) THEN C IC = M0(18) C CALL KMTAB(IC,298.0, XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX, C & XX,XX,XX,GI0,XX,XX,XX,XX,XX) C CALL KMTAB(IC,SNGL(TEMP),XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX, C & XX,XX,XX,GII,XX,XX,XX,XX,XX) C M0(18) = M0(18)*EXP(LN10*(GI0-GII)) C ENDIF C M0(19) = AWPN(IRH) ! KNO3 C IF (M0(19) .LT. 100.0) THEN C IC = M0(19) C CALL KMTAB(IC,298.0, XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX, C & XX,XX,XX,XX,GI0,XX,XX,XX,XX) C CALL KMTAB(IC,SNGL(TEMP),XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX, C & XX,XX,XX,XX,GII,XX,XX,XX,XX) C M0(19) = M0(19)*EXP(LN10*(GI0-GII)) C ENDIF C M0(20) = AWPC(IRH) ! KCl C IF (M0(20) .LT. 100.0) THEN C IC = M0(20) C CALL KMTAB(IC,298.0, XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX, C & XX,XX,XX,XX,XX,GI0,XX,XX,XX) C CALL KMTAB(IC,SNGL(TEMP),XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX, C & XX,XX,XX,XX,XX,GII,XX,XX,XX) C M0(20) = M0(20)*EXP(LN10*(GI0-GII)) C ENDIF C M0(21) = AWMS(IRH) ! MGSO4 C IF (M0(21) .LT. 100.0) THEN C IC = M0(21) C CALL KMTAB(IC,298.0, XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX, C & XX,XX,XX,XX,XX,XX,GI0,XX,XX) C CALL KMTAB(IC,SNGL(TEMP),XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX, C & XX,XX,XX,XX,XX,XX,GII,XX,XX) C M0(21) = M0(21)*EXP(LN10*(GI0-GII)) C ENDIF C M0(22) = AWMN(IRH) ! MG(NO3)2 C IF (M0(22) .LT. 100.0) THEN C IC = M0(22) C CALL KMTAB(IC,298.0, XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX, C & XX,XX,XX,XX,XX,XX,XX,GI0,XX) C CALL KMTAB(IC,SNGL(TEMP),XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX, C & XX,XX,XX,XX,XX,XX,XX,GII,XX) C M0(22) = M0(22)*EXP(LN10*(GI0-GII)) C ENDIF C M0(23) = AWMC(IRH) ! MGCL2 C IF (M0(23) .LT. 100.0) THEN C IC = M0(23) C CALL KMTAB(IC,298.0, XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX, C & XX,XX,XX,XX,XX,XX,XX,XX,GI0) C CALL KMTAB(IC,SNGL(TEMP),XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX,XX, C & XX,XX,XX,XX,XX,XX,XX,XX,GII) C M0(23) = M0(23)*EXP(LN10*(GI0-GII)) C ENDIF C C *** OTHER INITIALIZATIONS ********************************************* C ICLACT = 0 CALAOU = .TRUE. CALAIN = .TRUE. FRST = .TRUE. SCASE = '??' SULRATW = 2.D0 SO4RAT = 2.D0 CRNARAT = 2.D0 CRRAT = 2.D0 NOFER = 0 STKOFL =.FALSE. DO 60 I=1,NERRMX ERRSTK(I) =-999 ERRMSG(I) = 'MESSAGE N/A' 60 CONTINUE C C *** END OF SUBROUTINE INIT4 ******************************************* C END C C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE ADJUST C *** ADJUSTS FOR MASS BALANCE BETWEEN VOLATILE SPECIES AND SULFATE C FIRST CALCULATE THE EXCESS OF EACH PRECURSOR, AND IF IT EXISTS, THEN C ADJUST SEQUENTIALY AEROSOL PHASE SPECIES WHICH CONTAIN THE EXCESS C PRECURSOR. C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE ADJUST (WI) INCLUDE 'isrpia.inc' DOUBLE PRECISION WI(*) C C *** FOR AMMONIUM ***************************************************** C IF (IPROB.EQ.0) THEN ! Calculate excess (solution - input) EXNH4 = GNH3 + MOLAL(3) + CNH4CL + CNH4NO3 + CNH4HS4 & + 2D0*CNH42S4 + 3D0*CLC & -WI(3) ELSE EXNH4 = MOLAL(3) + CNH4CL + CNH4NO3 + CNH4HS4 + 2D0*CNH42S4 & + 3D0*CLC & -WI(3) ENDIF EXNH4 = MAX(EXNH4,ZERO) IF (EXNH4.LT.TINY) GOTO 20 ! No excess NH4, go to next precursor C IF (MOLAL(3).GT.EXNH4) THEN ! Adjust aqueous phase NH4 MOLAL(3) = MOLAL(3) - EXNH4 GOTO 20 ELSE EXNH4 = EXNH4 - MOLAL(3) MOLAL(3) = ZERO ENDIF C IF (CNH4CL.GT.EXNH4) THEN ! Adjust NH4Cl(s) CNH4CL = CNH4CL - EXNH4 ! more solid than excess GHCL = GHCL + EXNH4 ! evaporate Cl to gas phase GOTO 20 ELSE ! less solid than excess GHCL = GHCL + CNH4CL ! evaporate into gas phase EXNH4 = EXNH4 - CNH4CL ! reduce excess CNH4CL = ZERO ! zero salt concentration ENDIF C IF (CNH4NO3.GT.EXNH4) THEN ! Adjust NH4NO3(s) CNH4NO3 = CNH4NO3- EXNH4 ! more solid than excess GHNO3 = GHNO3 + EXNH4 ! evaporate NO3 to gas phase GOTO 20 ELSE ! less solid than excess GHNO3 = GHNO3 + CNH4NO3! evaporate into gas phase EXNH4 = EXNH4 - CNH4NO3! reduce excess CNH4NO3 = ZERO ! zero salt concentration ENDIF C IF (CLC.GT.3d0*EXNH4) THEN ! Adjust (NH4)3H(SO4)2(s) CLC = CLC - EXNH4/3d0 ! more solid than excess GOTO 20 ELSE ! less solid than excess EXNH4 = EXNH4 - 3d0*CLC ! reduce excess CLC = ZERO ! zero salt concentration ENDIF C IF (CNH4HS4.GT.EXNH4) THEN ! Adjust NH4HSO4(s) CNH4HS4 = CNH4HS4- EXNH4 ! more solid than excess GOTO 20 ELSE ! less solid than excess EXNH4 = EXNH4 - CNH4HS4! reduce excess CNH4HS4 = ZERO ! zero salt concentration ENDIF C IF (CNH42S4.GT.EXNH4) THEN ! Adjust (NH4)2SO4(s) CNH42S4 = CNH42S4- EXNH4 ! more solid than excess GOTO 20 ELSE ! less solid than excess EXNH4 = EXNH4 - CNH42S4! reduce excess CNH42S4 = ZERO ! zero salt concentration ENDIF C C *** FOR NITRATE ****************************************************** C 20 IF (IPROB.EQ.0) THEN ! Calculate excess (solution - input) EXNO3 = GHNO3 + MOLAL(7) + CNH4NO3 & -WI(4) ELSE EXNO3 = MOLAL(7) + CNH4NO3 & -WI(4) ENDIF EXNO3 = MAX(EXNO3,ZERO) IF (EXNO3.LT.TINY) GOTO 30 ! No excess NO3, go to next precursor C IF (MOLAL(7).GT.EXNO3) THEN ! Adjust aqueous phase NO3 MOLAL(7) = MOLAL(7) - EXNO3 GOTO 30 ELSE EXNO3 = EXNO3 - MOLAL(7) MOLAL(7) = ZERO ENDIF C IF (CNH4NO3.GT.EXNO3) THEN ! Adjust NH4NO3(s) CNH4NO3 = CNH4NO3- EXNO3 ! more solid than excess GNH3 = GNH3 + EXNO3 ! evaporate NO3 to gas phase GOTO 30 ELSE ! less solid than excess GNH3 = GNH3 + CNH4NO3! evaporate into gas phase EXNO3 = EXNO3 - CNH4NO3! reduce excess CNH4NO3 = ZERO ! zero salt concentration ENDIF C C *** FOR CHLORIDE ***************************************************** C 30 IF (IPROB.EQ.0) THEN ! Calculate excess (solution - input) EXCl = GHCL + MOLAL(4) + CNH4CL & -WI(5) ELSE EXCl = MOLAL(4) + CNH4CL & -WI(5) ENDIF EXCl = MAX(EXCl,ZERO) IF (EXCl.LT.TINY) GOTO 40 ! No excess Cl, go to next precursor C IF (MOLAL(4).GT.EXCL) THEN ! Adjust aqueous phase Cl MOLAL(4) = MOLAL(4) - EXCL GOTO 40 ELSE EXCL = EXCL - MOLAL(4) MOLAL(4) = ZERO ENDIF C IF (CNH4CL.GT.EXCL) THEN ! Adjust NH4Cl(s) CNH4CL = CNH4CL - EXCL ! more solid than excess GHCL = GHCL + EXCL ! evaporate Cl to gas phase GOTO 40 ELSE ! less solid than excess GHCL = GHCL + CNH4CL ! evaporate into gas phase EXCL = EXCL - CNH4CL ! reduce excess CNH4CL = ZERO ! zero salt concentration ENDIF C C *** FOR SULFATE ****************************************************** C 40 EXS4 = MOLAL(5) + MOLAL(6) + 2.d0*CLC + CNH42S4 + CNH4HS4 + & CNA2SO4 + CNAHSO4 - WI(2) EXS4 = MAX(EXS4,ZERO) ! Calculate excess (solution - input) IF (EXS4.LT.TINY) GOTO 50 ! No excess SO4, return C IF (MOLAL(6).GT.EXS4) THEN ! Adjust aqueous phase HSO4 MOLAL(6) = MOLAL(6) - EXS4 GOTO 50 ELSE EXS4 = EXS4 - MOLAL(6) MOLAL(6) = ZERO ENDIF C IF (MOLAL(5).GT.EXS4) THEN ! Adjust aqueous phase SO4 MOLAL(5) = MOLAL(5) - EXS4 GOTO 50 ELSE EXS4 = EXS4 - MOLAL(5) MOLAL(5) = ZERO ENDIF C IF (CLC.GT.2d0*EXS4) THEN ! Adjust (NH4)3H(SO4)2(s) CLC = CLC - EXS4/2d0 ! more solid than excess GNH3 = GNH3 +1.5d0*EXS4! evaporate NH3 to gas phase GOTO 50 ELSE ! less solid than excess GNH3 = GNH3 + 1.5d0*CLC! evaporate NH3 to gas phase EXS4 = EXS4 - 2d0*CLC ! reduce excess CLC = ZERO ! zero salt concentration ENDIF C IF (CNH4HS4.GT.EXS4) THEN ! Adjust NH4HSO4(s) CNH4HS4 = CNH4HS4 - EXS4 ! more solid than excess GNH3 = GNH3 + EXS4 ! evaporate NH3 to gas phase GOTO 50 ELSE ! less solid than excess GNH3 = GNH3 + CNH4HS4 ! evaporate NH3 to gas phase EXS4 = EXS4 - CNH4HS4 ! reduce excess CNH4HS4 = ZERO ! zero salt concentration ENDIF C IF (CNH42S4.GT.EXS4) THEN ! Adjust (NH4)2SO4(s) CNH42S4 = CNH42S4- EXS4 ! more solid than excess GNH3 = GNH3 + 2.d0*EXS4! evaporate NH3 to gas phase GOTO 50 ELSE ! less solid than excess GNH3 = GNH3+2.d0*CNH42S4 ! evaporate NH3 to gas phase EXS4 = EXS4 - CNH42S4 ! reduce excess CNH42S4 = ZERO ! zero salt concentration ENDIF C C *** RETURN ********************************************************** C 50 RETURN END C======================================================================= C C *** ISORROPIA CODE C *** FUNCTION GETASR C *** CALCULATES THE LIMITING NH4+/SO4 RATIO OF A SULFATE POOR SYSTEM C (i.e. SULFATE RATIO = 2.0) FOR GIVEN SO4 LEVEL AND RH C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C DOUBLE PRECISION FUNCTION GETASR (SO4I, RHI) PARAMETER (NSO4S=14, NRHS=20, NASRD=NSO4S*NRHS) COMMON /ASRC/ ASRAT(NASRD), ASSO4(NSO4S) DOUBLE PRECISION SO4I, RHI CCC CCC *** SOLVE USING FULL COMPUTATIONS, NOT LOOK-UP TABLES ************** CCC CCC W(2) = WAER(2) CCC W(3) = WAER(2)*2.0001D0 CCC CALL CALCA2 CCC SULRATW = MOLAL(3)/WAER(2) CCC CALL INIT1 (WI, RHI, TEMPI) ! Re-initialize COMMON BLOCK C C *** CALCULATE INDICES ************************************************ C RAT = SO4I/1.E-9 A1 = INT(ALOG10(RAT)) ! Magnitude of RAT IA1 = INT(RAT/2.5/10.0**A1) C INDS = 4.0*A1 + MIN(IA1,4) INDS = MIN(MAX(0, INDS), NSO4S-1) + 1 ! SO4 component of IPOS C INDR = INT(99.0-RHI*100.0) + 1 INDR = MIN(MAX(1, INDR), NRHS) ! RH component of IPOS C C *** GET VALUE AND RETURN ********************************************* C INDSL = INDS INDSH = MIN(INDSL+1, NSO4S) IPOSL = (INDSL-1)*NRHS + INDR ! Low position in array IPOSH = (INDSH-1)*NRHS + INDR ! High position in array C WF = (SO4I-ASSO4(INDSL))/(ASSO4(INDSH)-ASSO4(INDSL) + 1e-7) WF = MIN(MAX(WF, 0.0), 1.0) C GETASR = WF*ASRAT(IPOSH) + (1.0-WF)*ASRAT(IPOSL) C C *** END OF FUNCTION GETASR ******************************************* C RETURN END C C======================================================================= C C *** ISORROPIA CODE C *** BLOCK DATA AERSR C *** CONTAINS DATA FOR AEROSOL SULFATE RATIO ARRAY NEEDED IN FUNCTION C GETASR C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C BLOCK DATA AERSR PARAMETER (NSO4S=14, NRHS=20, NASRD=NSO4S*NRHS) COMMON /ASRC/ ASRAT(NASRD), ASSO4(NSO4S) C DATA ASSO4/1.0E-9, 2.5E-9, 5.0E-9, 7.5E-9, 1.0E-8, & 2.5E-8, 5.0E-8, 7.5E-8, 1.0E-7, 2.5E-7, & 5.0E-7, 7.5E-7, 1.0E-6, 5.0E-6/ C DATA (ASRAT(I), I=1,280)/ & 1.020464, 0.9998130, 0.9960167, 0.9984423, 1.004004, & 1.010885, 1.018356, 1.026726, 1.034268, 1.043846, & 1.052933, 1.062230, 1.062213, 1.080050, 1.088350, & 1.096603, 1.104289, 1.111745, 1.094662, 1.121594, & 1.268909, 1.242444, 1.233815, 1.232088, 1.234020, & 1.238068, 1.243455, 1.250636, 1.258734, 1.267543, & 1.276948, 1.286642, 1.293337, 1.305592, 1.314726, & 1.323463, 1.333258, 1.343604, 1.344793, 1.355571, & 1.431463, 1.405204, 1.395791, 1.393190, 1.394403, & 1.398107, 1.403811, 1.411744, 1.420560, 1.429990, & 1.439742, 1.449507, 1.458986, 1.468403, 1.477394, & 1.487373, 1.495385, 1.503854, 1.512281, 1.520394, & 1.514464, 1.489699, 1.480686, 1.478187, 1.479446, & 1.483310, 1.489316, 1.497517, 1.506501, 1.515816, & 1.524724, 1.533950, 1.542758, 1.551730, 1.559587, & 1.568343, 1.575610, 1.583140, 1.590440, 1.596481, & 1.567743, 1.544426, 1.535928, 1.533645, 1.535016, & 1.539003, 1.545124, 1.553283, 1.561886, 1.570530, & 1.579234, 1.587813, 1.595956, 1.603901, 1.611349, & 1.618833, 1.625819, 1.632543, 1.639032, 1.645276, & 1.707390, 1.689553, 1.683198, 1.681810, 1.683490, & 1.687477, 1.693148, 1.700084, 1.706917, 1.713507, & 1.719952, 1.726190, 1.731985, 1.737544, 1.742673, & 1.747756, 1.752431, 1.756890, 1.761141, 1.765190, & 1.785657, 1.771851, 1.767063, 1.766229, 1.767901, & 1.771455, 1.776223, 1.781769, 1.787065, 1.792081, & 1.796922, 1.801561, 1.805832, 1.809896, 1.813622, & 1.817292, 1.820651, 1.823841, 1.826871, 1.829745, & 1.822215, 1.810497, 1.806496, 1.805898, 1.807480, & 1.810684, 1.814860, 1.819613, 1.824093, 1.828306, & 1.832352, 1.836209, 1.839748, 1.843105, 1.846175, & 1.849192, 1.851948, 1.854574, 1.857038, 1.859387, & 1.844588, 1.834208, 1.830701, 1.830233, 1.831727, & 1.834665, 1.838429, 1.842658, 1.846615, 1.850321, & 1.853869, 1.857243, 1.860332, 1.863257, 1.865928, & 1.868550, 1.870942, 1.873208, 1.875355, 1.877389, & 1.899556, 1.892637, 1.890367, 1.890165, 1.891317, & 1.893436, 1.896036, 1.898872, 1.901485, 1.903908, & 1.906212, 1.908391, 1.910375, 1.912248, 1.913952, & 1.915621, 1.917140, 1.918576, 1.919934, 1.921220, & 1.928264, 1.923245, 1.921625, 1.921523, 1.922421, & 1.924016, 1.925931, 1.927991, 1.929875, 1.931614, & 1.933262, 1.934816, 1.936229, 1.937560, 1.938769, & 1.939951, 1.941026, 1.942042, 1.943003, 1.943911, & 1.941205, 1.937060, 1.935734, 1.935666, 1.936430, & 1.937769, 1.939359, 1.941061, 1.942612, 1.944041, & 1.945393, 1.946666, 1.947823, 1.948911, 1.949900, & 1.950866, 1.951744, 1.952574, 1.953358, 1.954099, & 1.948985, 1.945372, 1.944221, 1.944171, 1.944850, & 1.946027, 1.947419, 1.948902, 1.950251, 1.951494, & 1.952668, 1.953773, 1.954776, 1.955719, 1.956576, & 1.957413, 1.958174, 1.958892, 1.959571, 1.960213, & 1.977193, 1.975540, 1.975023, 1.975015, 1.975346, & 1.975903, 1.976547, 1.977225, 1.977838, 1.978401, & 1.978930, 1.979428, 1.979879, 1.980302, 1.980686, & 1.981060, 1.981401, 1.981722, 1.982025, 1.982312/ C C *** END OF BLOCK DATA AERSR ****************************************** C END C C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE CALCHA C *** CALCULATES CHLORIDES SPECIATION C C HYDROCHLORIC ACID IN THE LIQUID PHASE IS ASSUMED A MINOR SPECIES, C AND DOES NOT SIGNIFICANTLY PERTURB THE HSO4-SO4 EQUILIBRIUM. THE C HYDROCHLORIC ACID DISSOLVED IS CALCULATED FROM THE C HCL(G) <-> (H+) + (CL-) C EQUILIBRIUM, USING THE (H+) FROM THE SULFATES. C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCHA INCLUDE 'isrpia.inc' DOUBLE PRECISION KAPA CC CHARACTER ERRINF*40 C C *** CALCULATE HCL DISSOLUTION ***************************************** C X = W(5) DELT = 0.0d0 IF (WATER.GT.TINY) THEN KAPA = MOLAL(1) ALFA = XK3*R*TEMP*(WATER/GAMA(11))**2.0 DIAK = SQRT( (KAPA+ALFA)**2.0 + 4.0*ALFA*X) DELT = 0.5*(-(KAPA+ALFA) + DIAK) CC IF (DELT/KAPA.GT.0.1d0) THEN CC WRITE (ERRINF,'(1PE10.3)') DELT/KAPA*100.0 CC CALL PUSHERR (0033, ERRINF) CC ENDIF ENDIF C C *** CALCULATE HCL SPECIATION IN THE GAS PHASE ************************* C GHCL = MAX(X-DELT, 0.0d0) ! GAS HCL C C *** CALCULATE HCL SPECIATION IN THE LIQUID PHASE ********************** C MOLAL(4) = DELT ! CL- MOLAL(1) = MOLAL(1) + DELT ! H+ C RETURN C C *** END OF SUBROUTINE CALCHA ****************************************** C END C C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE CALCHAP C *** CALCULATES CHLORIDES SPECIATION C C HYDROCHLORIC ACID IN THE LIQUID PHASE IS ASSUMED A MINOR SPECIES, C THAT DOES NOT SIGNIFICANTLY PERTURB THE HSO4-SO4 EQUILIBRIUM. C THE HYDROCHLORIC ACID DISSOLVED IS CALCULATED FROM THE C HCL(G) -> HCL(AQ) AND HCL(AQ) -> (H+) + (CL-) C EQUILIBRIA, USING (H+) FROM THE SULFATES. C C THIS IS THE VERSION USED BY THE INVERSE PROBLEM SOVER C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCHAP INCLUDE 'isrpia.inc' C C *** IS THERE A LIQUID PHASE? ****************************************** C IF (WATER.LE.TINY) RETURN C C *** CALCULATE HCL SPECIATION IN THE GAS PHASE ************************* C CALL CALCCLAQ (MOLAL(4), MOLAL(1), DELT) ALFA = XK3*R*TEMP*(WATER/GAMA(11))**2.0 GASAQ(3) = DELT MOLAL(1) = MOLAL(1) - DELT MOLAL(4) = MOLAL(4) - DELT GHCL = MOLAL(1)*MOLAL(4)/ALFA C RETURN C C *** END OF SUBROUTINE CALCHAP ***************************************** C END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE CALCNA C *** CALCULATES NITRATES SPECIATION C C NITRIC ACID IN THE LIQUID PHASE IS ASSUMED A MINOR SPECIES, THAT C DOES NOT SIGNIFICANTLY PERTURB THE HSO4-SO4 EQUILIBRIUM. THE NITRIC C ACID DISSOLVED IS CALCULATED FROM THE HNO3(G) -> (H+) + (NO3-) C EQUILIBRIUM, USING THE (H+) FROM THE SULFATES. C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCNA INCLUDE 'isrpia.inc' DOUBLE PRECISION KAPA CC CHARACTER ERRINF*40 C C *** CALCULATE HNO3 DISSOLUTION **************************************** C X = W(4) DELT = 0.0d0 IF (WATER.GT.TINY) THEN KAPA = MOLAL(1) ALFA = XK4*R*TEMP*(WATER/GAMA(10))**2.0 DIAK = SQRT( (KAPA+ALFA)**2.0 + 4.0*ALFA*X) DELT = 0.5*(-(KAPA+ALFA) + DIAK) CC IF (DELT/KAPA.GT.0.1d0) THEN CC WRITE (ERRINF,'(1PE10.3)') DELT/KAPA*100.0 CC CALL PUSHERR (0019, ERRINF) ! WARNING ERROR: NO SOLUTION CC ENDIF ENDIF C C *** CALCULATE HNO3 SPECIATION IN THE GAS PHASE ************************ C GHNO3 = MAX(X-DELT, 0.0d0) ! GAS HNO3 C C *** CALCULATE HNO3 SPECIATION IN THE LIQUID PHASE ********************* C MOLAL(7) = DELT ! NO3- MOLAL(1) = MOLAL(1) + DELT ! H+ C RETURN C C *** END OF SUBROUTINE CALCNA ****************************************** C END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE CALCNAP C *** CALCULATES NITRATES SPECIATION C C NITRIC ACID IN THE LIQUID PHASE IS ASSUMED A MINOR SPECIES, THAT C DOES NOT SIGNIFICANTLY PERTURB THE HSO4-SO4 EQUILIBRIUM. THE NITRIC C ACID DISSOLVED IS CALCULATED FROM THE HNO3(G) -> HNO3(AQ) AND C HNO3(AQ) -> (H+) + (CL-) EQUILIBRIA, USING (H+) FROM THE SULFATES. C C THIS IS THE VERSION USED BY THE INVERSE PROBLEM SOVER C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCNAP INCLUDE 'isrpia.inc' C C *** IS THERE A LIQUID PHASE? ****************************************** C IF (WATER.LE.TINY) RETURN C C *** CALCULATE HNO3 SPECIATION IN THE GAS PHASE ************************ C CALL CALCNIAQ (MOLAL(7), MOLAL(1), DELT) ALFA = XK4*R*TEMP*(WATER/GAMA(10))**2.0 GASAQ(3) = DELT MOLAL(1) = MOLAL(1) - DELT MOLAL(7) = MOLAL(7) - DELT GHNO3 = MOLAL(1)*MOLAL(7)/ALFA write (*,*) ALFA, MOLAL(1), MOLAL(7), GHNO3, DELT C RETURN C C *** END OF SUBROUTINE CALCNAP ***************************************** C END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE CALCNH3 C *** CALCULATES AMMONIA IN GAS PHASE C C AMMONIA IN THE GAS PHASE IS ASSUMED A MINOR SPECIES, THAT C DOES NOT SIGNIFICANTLY PERTURB THE AEROSOL EQUILIBRIUM. C AMMONIA GAS IS CALCULATED FROM THE NH3(g) + (H+)(l) <==> (NH4+)(l) C EQUILIBRIUM, USING (H+), (NH4+) FROM THE AEROSOL SOLUTION. C C THIS IS THE VERSION USED BY THE DIRECT PROBLEM C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCNH3 INCLUDE 'isrpia.inc' C C *** IS THERE A LIQUID PHASE? ****************************************** C IF (WATER.LE.TINY) RETURN C C *** CALCULATE NH3 SUBLIMATION ***************************************** C A1 = (XK2/XKW)*R*TEMP*(GAMA(10)/GAMA(5))**2.0 CHI1 = MOLAL(3) CHI2 = MOLAL(1) C BB =(CHI2 + ONE/A1) ! a=1; b!=1; c!=1 CC =-CHI1/A1 DIAK = SQRT(BB*BB - 4.D0*CC) ! Always > 0 PSI = 0.5*(-BB + DIAK) ! One positive root PSI = MAX(TINY, MIN(PSI,CHI1))! Constrict in acceptible range C C *** CALCULATE NH3 SPECIATION IN THE GAS PHASE ************************* C GNH3 = PSI ! GAS HNO3 C C *** CALCULATE NH3 AFFECT IN THE LIQUID PHASE ************************** C MOLAL(3) = CHI1 - PSI ! NH4+ MOLAL(1) = CHI2 + PSI ! H+ C RETURN C C *** END OF SUBROUTINE CALCNH3 ***************************************** C END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE CALCNH3P C *** CALCULATES AMMONIA IN GAS PHASE C C AMMONIA GAS IS CALCULATED FROM THE NH3(g) + (H+)(l) <==> (NH4+)(l) C EQUILIBRIUM, USING (H+), (NH4+) FROM THE AEROSOL SOLUTION. C C THIS IS THE VERSION USED BY THE INVERSE PROBLEM SOLVER C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCNH3P INCLUDE 'isrpia.inc' C C *** IS THERE A LIQUID PHASE? ****************************************** C IF (WATER.LE.TINY) RETURN C C *** CALCULATE NH3 GAS PHASE CONCENTRATION ***************************** C A1 = (XK2/XKW)*R*TEMP*(GAMA(10)/GAMA(5))**2.0 GNH3 = MOLAL(3)/MOLAL(1)/A1 C RETURN C C *** END OF SUBROUTINE CALCNH3P **************************************** C END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE CALCNHA C C THIS SUBROUTINE CALCULATES THE DISSOLUTION OF HCL, HNO3 AT C THE PRESENCE OF (H,SO4). HCL, HNO3 ARE CONSIDERED MINOR SPECIES, C THAT DO NOT SIGNIFICANTLY AFFECT THE EQUILIBRIUM POINT. C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCNHA INCLUDE 'isrpia.inc' DOUBLE PRECISION M1, M2, M3 CHARACTER ERRINF*40 C C *** SPECIAL CASE; WATER=ZERO ****************************************** C IF (WATER.LE.TINY) THEN GOTO 55 C C *** SPECIAL CASE; HCL=HNO3=ZERO *************************************** C ELSEIF (W(5).LE.TINY .AND. W(4).LE.TINY) THEN GOTO 60 C C *** SPECIAL CASE; HCL=ZERO ******************************************** C ELSE IF (W(5).LE.TINY) THEN CALL CALCNA ! CALL HNO3 DISSOLUTION ROUTINE GOTO 60 C C *** SPECIAL CASE; HNO3=ZERO ******************************************* C ELSE IF (W(4).LE.TINY) THEN CALL CALCHA ! CALL HCL DISSOLUTION ROUTINE GOTO 60 ENDIF C C *** CALCULATE EQUILIBRIUM CONSTANTS *********************************** C A3 = XK4*R*TEMP*(WATER/GAMA(10))**2.0 ! HNO3 A4 = XK3*R*TEMP*(WATER/GAMA(11))**2.0 ! HCL C C *** CALCULATE CUBIC EQUATION COEFFICIENTS ***************************** C DELCL = ZERO DELNO = ZERO C OMEGA = MOLAL(1) ! H+ CHI3 = W(4) ! HNO3 CHI4 = W(5) ! HCL C C1 = A3*CHI3 C2 = A4*CHI4 C3 = A3 - A4 C M1 = (C1 + C2 + (OMEGA+A4)*C3)/C3 M2 = ((OMEGA+A4)*C2 - A4*C3*CHI4)/C3 M3 =-A4*C2*CHI4/C3 C C *** CALCULATE ROOTS *************************************************** C CALL POLY3 (M1, M2, M3, DELCL, ISLV) ! HCL DISSOLUTION IF (ISLV.NE.0) THEN DELCL = TINY ! TINY AMOUNTS OF HCL ASSUMED WHEN NO ROOT WRITE (ERRINF,'(1PE8.1)') TINY CALL PUSHERR (0022, ERRINF) ! WARNING ERROR: NO SOLUTION ENDIF DELCL = MIN(DELCL, CHI4) C DELNO = C1*DELCL/(C2 + C3*DELCL) DELNO = MIN(DELNO, CHI3) C IF (DELCL.LT.ZERO .OR. DELNO.LT.ZERO .OR. & DELCL.GT.CHI4 .OR. DELNO.GT.CHI3 ) THEN DELCL = TINY ! TINY AMOUNTS OF HCL ASSUMED WHEN NO ROOT DELNO = TINY WRITE (ERRINF,'(1PE8.1)') TINY CALL PUSHERR (0022, ERRINF) ! WARNING ERROR: NO SOLUTION ENDIF CCC CCC *** COMPARE DELTA TO TOTAL H+ ; ESTIMATE EFFECT TO HSO4 *************** CCC CC IF ((DELCL+DELNO)/MOLAL(1).GT.0.1d0) THEN CC WRITE (ERRINF,'(1PE10.3)') (DELCL+DELNO)/MOLAL(1)*100.0 CC CALL PUSHERR (0021, ERRINF) CC ENDIF C C *** EFFECT ON LIQUID PHASE ******************************************** C 50 MOLAL(1) = MOLAL(1) + (DELNO+DELCL) ! H+ CHANGE MOLAL(4) = MOLAL(4) + DELCL ! CL- CHANGE MOLAL(7) = MOLAL(7) + DELNO ! NO3- CHANGE C C *** EFFECT ON GAS PHASE *********************************************** C 55 GHCL = MAX(W(5) - MOLAL(4), TINY) GHNO3 = MAX(W(4) - MOLAL(7), TINY) C 60 RETURN C C *** END OF SUBROUTINE CALCNHA ***************************************** C END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE CALCNHP C C THIS SUBROUTINE CALCULATES THE GAS PHASE NITRIC AND HYDROCHLORIC C ACID. CONCENTRATIONS ARE CALCULATED FROM THE DISSOLUTION C EQUILIBRIA, USING (H+), (Cl-), (NO3-) IN THE AEROSOL PHASE. C C THIS IS THE VERSION USED BY THE INVERSE PROBLEM SOLVER C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCNHP INCLUDE 'isrpia.inc' C C *** IS THERE A LIQUID PHASE? ****************************************** C IF (WATER.LE.TINY) RETURN C C *** CALCULATE EQUILIBRIUM CONSTANTS *********************************** C A3 = XK3*R*TEMP*(WATER/GAMA(11))**2.0 A4 = XK4*R*TEMP*(WATER/GAMA(10))**2.0 MOLAL(1) = MOLAL(1) + WAER(4) + WAER(5) ! H+ increases because NO3, Cl are added. C C *** CALCULATE CONCENTRATIONS ****************************************** C *** ASSUME THAT 'DELT' FROM HNO3 >> 'DELT' FROM HCL C CALL CALCNIAQ (WAER(4), MOLAL(1)+MOLAL(7)+MOLAL(4), DELT) MOLAL(1) = MOLAL(1) - DELT MOLAL(7) = WAER(4) - DELT ! NO3- = Waer(4) minus any turned into (HNO3aq) GASAQ(3) = DELT C CALL CALCCLAQ (WAER(5), MOLAL(1)+MOLAL(7)+MOLAL(4), DELT) MOLAL(1) = MOLAL(1) - DELT MOLAL(4) = WAER(5) - DELT ! Cl- = Waer(4) minus any turned into (HNO3aq) GASAQ(2) = DELT C GHNO3 = MOLAL(1)*MOLAL(7)/A4 GHCL = MOLAL(1)*MOLAL(4)/A3 C RETURN C C *** END OF SUBROUTINE CALCNHP ***************************************** C END C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE CALCHCO3 C *** CORRECTS FOR H+ WHEN CRUSTALS ARE IN EXCESS C C CARBONATES ARE IN EXCESS, HCO3- IS ASSUMED A MINOR SPECIES, C THE H+ CONCENTRATION IS CALCULATED FROM THE C CO2(aq) + H2O <-> (HCO3-) + (H+) C HCO3- <-> (H+) + (CO3--) EQUILIBRIUM. C THE CO3-- CONCENTRATION IS ASSUMED NEGLIGIBLE WITH RESPECT TO HCO3- C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C C SUBROUTINE CALCHCO3 C INCLUDE 'isrpia.inc' C DOUBLE PRECISION KAPA CCC CHARACTER ERRINF*40 CC CC *** SPECIAL CASE; WATER=ZERO ****************************************** CC C IF (WATER.LE.TINY) THEN C GOTO 521 C ENDIF CC CC *** CALCULATE CO2 DISSOLUTION ***************************************** CC C REST = 2.D0*W(2) + W(4) + W(5) CC C DELT = 0.0d0 CC DELT2 = 0.0d0 C IF (W(1)+W(6)+W(7)+W(8).GT.REST) THEN C KAPA = MOLAL(1) CC CC *** CALCULATE EQUILIBRIUM CONSTANTS *********************************** CC C ALFA = XK26*RH*(WATER/1.0) ! CO2(aq) + H2O CC ALFA2 = XK27*(WATER/1.0) ! HCO3- CC CC *** CALCULATE CUBIC EQUATION COEFFICIENTS ***************************** CC C X = W(1)+W(6)+W(7)+W(8) - REST ! EXCESS OF CRUSTALS EQUALS HCO3- CC C BB =-(KAPA + X + ALFA) C CC = KAPA*X C DD = BB*BB - 4.D0*CC CC C IF (DD.GE.ZERO) THEN C SQDD = SQRT(DD) C DELT = 0.5*(-BB - SQDD) C ELSE C DELT = ZERO C ENDIF C C ENDIF CC CC *** CALCULATE H+ ***************************************************** CC C MOLAL(1) = KAPA - DELT ! H+ CC C521 RETURN CC CC *** END OF SUBROUTINE CALCHCO3 *************************************** CC C END CC C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE CALCAMAQ C *** THIS SUBROUTINE CALCULATES THE NH3(aq) GENERATED FROM (H,NH4+). C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCAMAQ (NH4I, OHI, DELT) INCLUDE 'isrpia.inc' DOUBLE PRECISION NH4I CC CHARACTER ERRINF*40 C C *** EQUILIBRIUM CONSTANTS C A22 = XK22/XKW/WATER*(GAMA(8)/GAMA(9))**2. ! GAMA(NH3) ASSUMED 1 AKW = XKW *RH*WATER*WATER C C *** FIND ROOT C OM1 = NH4I OM2 = OHI BB =-(OM1+OM2+A22*AKW) CC = OM1*OM2 DD = SQRT(BB*BB-4.D0*CC) DEL1 = 0.5D0*(-BB - DD) DEL2 = 0.5D0*(-BB + DD) C C *** GET APPROPRIATE ROOT. C IF (DEL1.LT.ZERO) THEN IF (DEL2.GT.NH4I .OR. DEL2.GT.OHI) THEN DELT = ZERO ELSE DELT = DEL2 ENDIF ELSE DELT = DEL1 ENDIF CC CC *** COMPARE DELTA TO TOTAL NH4+ ; ESTIMATE EFFECT ********************* CC CC IF (DELTA/HYD.GT.0.1d0) THEN CC WRITE (ERRINF,'(1PE10.3)') DELTA/HYD*100.0 CC CALL PUSHERR (0020, ERRINF) CC ENDIF C RETURN C C *** END OF SUBROUTINE CALCAMAQ **************************************** C END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE CALCAMAQ2 C C THIS SUBROUTINE CALCULATES THE NH3(aq) GENERATED FROM (H,NH4+). C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCAMAQ2 (GGNH3, NH4I, OHI, NH3AQ) INCLUDE 'isrpia.inc' DOUBLE PRECISION NH4I, NH3AQ C C *** EQUILIBRIUM CONSTANTS C A22 = XK22/XKW/WATER*(GAMA(8)/GAMA(9))**2. ! GAMA(NH3) ASSUMED 1 AKW = XKW *RH*WATER*WATER C C *** FIND ROOT C ALF1 = NH4I - GGNH3 ALF2 = GGNH3 BB = ALF1 + A22*AKW CC =-A22*AKW*ALF2 DEL = 0.5D0*(-BB + SQRT(BB*BB-4.D0*CC)) C C *** ADJUST CONCENTRATIONS C NH4I = ALF1 + DEL OHI = DEL IF (OHI.LE.TINY) OHI = SQRT(AKW) ! If solution is neutral. NH3AQ = ALF2 - DEL C RETURN C C *** END OF SUBROUTINE CALCAMAQ2 **************************************** C END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE CALCCLAQ C C THIS SUBROUTINE CALCULATES THE HCL(aq) GENERATED FROM (H+,CL-). C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCCLAQ (CLI, HI, DELT) INCLUDE 'isrpia.inc' DOUBLE PRECISION CLI C C *** EQUILIBRIUM CONSTANTS C A32 = XK32*WATER/(GAMA(11))**2. ! GAMA(HCL) ASSUMED 1 C C *** FIND ROOT C OM1 = CLI OM2 = HI BB =-(OM1+OM2+A32) CC = OM1*OM2 DD = SQRT(BB*BB-4.D0*CC) DEL1 = 0.5D0*(-BB - DD) DEL2 = 0.5D0*(-BB + DD) C C *** GET APPROPRIATE ROOT. C IF (DEL1.LT.ZERO) THEN IF (DEL2.LT.ZERO .OR. DEL2.GT.CLI .OR. DEL2.GT.HI) THEN DELT = ZERO ELSE DELT = DEL2 ENDIF ELSE DELT = DEL1 ENDIF C RETURN C C *** END OF SUBROUTINE CALCCLAQ **************************************** C END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE CALCCLAQ2 C C THIS SUBROUTINE CALCULATES THE HCL(aq) GENERATED FROM (H+,CL-). C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCCLAQ2 (GGCL, CLI, HI, CLAQ) INCLUDE 'isrpia.inc' DOUBLE PRECISION CLI C C *** EQUILIBRIUM CONSTANTS C A32 = XK32*WATER/(GAMA(11))**2. ! GAMA(HCL) ASSUMED 1 AKW = XKW *RH*WATER*WATER C C *** FIND ROOT C ALF1 = CLI - GGCL ALF2 = GGCL COEF = (ALF1+A32) DEL1 = 0.5*(-COEF + SQRT(COEF*COEF+4.D0*A32*ALF2)) C C *** CORRECT CONCENTRATIONS C CLI = ALF1 + DEL1 HI = DEL1 IF (HI.LE.TINY) HI = SQRT(AKW) ! If solution is neutral. CLAQ = ALF2 - DEL1 C RETURN C C *** END OF SUBROUTINE CALCCLAQ2 **************************************** C END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE CALCNIAQ C C THIS SUBROUTINE CALCULATES THE HNO3(aq) GENERATED FROM (H,NO3-). C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCNIAQ (NO3I, HI, DELT) INCLUDE 'isrpia.inc' DOUBLE PRECISION NO3I, HI, DELT C C *** EQUILIBRIUM CONSTANTS C A42 = XK42*WATER/(GAMA(10))**2. ! GAMA(HNO3) ASSUMED 1 C C *** FIND ROOT C OM1 = NO3I OM2 = HI BB =-(OM1+OM2+A42) CC = OM1*OM2 DD = SQRT(BB*BB-4.D0*CC) DEL1 = 0.5D0*(-BB - DD) DEL2 = 0.5D0*(-BB + DD) C C *** GET APPROPRIATE ROOT. C IF (DEL1.LT.ZERO .OR. DEL1.GT.HI .OR. DEL1.GT.NO3I) THEN print *, DELT DELT = ZERO ELSE DELT = DEL1 RETURN ENDIF C IF (DEL2.LT.ZERO .OR. DEL2.GT.NO3I .OR. DEL2.GT.HI) THEN DELT = ZERO ELSE DELT = DEL2 ENDIF C RETURN C C *** END OF SUBROUTINE CALCNIAQ **************************************** C END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE CALCNIAQ2 C C THIS SUBROUTINE CALCULATES THE UNDISSOCIATED HNO3(aq) C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCNIAQ2 (GGNO3, NO3I, HI, NO3AQ) INCLUDE 'isrpia.inc' DOUBLE PRECISION NO3I, NO3AQ C C *** EQUILIBRIUM CONSTANTS C A42 = XK42*WATER/(GAMA(10))**2. ! GAMA(HNO3) ASSUMED 1 AKW = XKW *RH*WATER*WATER C C *** FIND ROOT C ALF1 = NO3I - GGNO3 ALF2 = GGNO3 ALF3 = HI C BB = ALF3 + ALF1 + A42 CC = ALF3*ALF1 - A42*ALF2 DEL1 = 0.5*(-BB + SQRT(BB*BB-4.D0*CC)) C C *** CORRECT CONCENTRATIONS C NO3I = ALF1 + DEL1 HI = ALF3 + DEL1 IF (HI.LE.TINY) HI = SQRT(AKW) ! If solution is neutral. NO3AQ = ALF2 - DEL1 C RETURN C C *** END OF SUBROUTINE CALCNIAQ2 **************************************** C END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE CALCMR C *** THIS SUBROUTINE CALCULATES: C 1. ION PAIR CONCENTRATIONS (FROM [MOLAR] ARRAY) C 2. WATER CONTENT OF LIQUID AEROSOL PHASE (FROM ZSR CORRELATION) C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCMR INCLUDE 'isrpia.inc' COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C CHARACTER SC*1 C C *** CALCULATE ION PAIR CONCENTRATIONS ACCORDING TO SPECIFIC CASE **** C SC =SCASE(1:1) ! SULRAT & SODRAT case C C *** NH4-SO4 SYSTEM ; SULFATE POOR CASE C IF (SC.EQ.'A') THEN MOLALR(4) = MOLAL(5)+MOLAL(6) ! (NH4)2SO4 - CORRECT FOR SO4 TO HSO4 C C *** NH4-SO4 SYSTEM ; SULFATE RICH CASE ; NO FREE ACID C ELSE IF (SC.EQ.'B') THEN SO4I = MOLAL(5)-MOLAL(1) ! CORRECT FOR HSO4 DISSOCIATION HSO4I = MOLAL(6)+MOLAL(1) IF (SO4I.LT.HSO4I) THEN MOLALR(13) = SO4I ! [LC] = [SO4] MOLALR(9) = MAX(HSO4I-SO4I, ZERO) ! NH4HSO4 ELSE MOLALR(13) = HSO4I ! [LC] = [HSO4] MOLALR(4) = MAX(SO4I-HSO4I, ZERO) ! (NH4)2SO4 ENDIF C C *** NH4-SO4 SYSTEM ; SULFATE RICH CASE ; FREE ACID C ELSE IF (SC.EQ.'C') THEN MOLALR(9) = MOLAL(3) ! NH4HSO4 MOLALR(7) = MAX(W(2)-W(3), ZERO) ! H2SO4 C C *** NH4-SO4-NO3 SYSTEM ; SULFATE POOR CASE C ELSE IF (SC.EQ.'D') THEN MOLALR(4) = MOLAL(5) + MOLAL(6) ! (NH4)2SO4 AML5 = MOLAL(3)-2.D0*MOLALR(4) ! "free" NH4 MOLALR(5) = MAX(MIN(AML5,MOLAL(7)), ZERO)! NH4NO3 = MIN("free", NO3) C C *** NH4-SO4-NO3 SYSTEM ; SULFATE RICH CASE ; NO FREE ACID C ELSE IF (SC.EQ.'E') THEN SO4I = MAX(MOLAL(5)-MOLAL(1),ZERO) ! FROM HSO4 DISSOCIATION HSO4I = MOLAL(6)+MOLAL(1) IF (SO4I.LT.HSO4I) THEN MOLALR(13) = SO4I ! [LC] = [SO4] MOLALR(9) = MAX(HSO4I-SO4I, ZERO) ! NH4HSO4 ELSE MOLALR(13) = HSO4I ! [LC] = [HSO4] MOLALR(4) = MAX(SO4I-HSO4I, ZERO) ! (NH4)2SO4 ENDIF C C *** NH4-SO4-NO3 SYSTEM ; SULFATE RICH CASE ; FREE ACID C ELSE IF (SC.EQ.'F') THEN MOLALR(9) = MOLAL(3) ! NH4HSO4 MOLALR(7) = MAX(MOLAL(5)+MOLAL(6)-MOLAL(3),ZERO) ! H2SO4 C C *** NA-NH4-SO4-NO3-CL SYSTEM ; SULFATE POOR ; SODIUM POOR CASE C ELSE IF (SC.EQ.'G') THEN MOLALR(2) = 0.5D0*MOLAL(2) ! NA2SO4 TOTS4 = MOLAL(5)+MOLAL(6) ! Total SO4 MOLALR(4) = MAX(TOTS4 - MOLALR(2), ZERO) ! (NH4)2SO4 FRNH4 = MAX(MOLAL(3) - 2.D0*MOLALR(4), ZERO) MOLALR(5) = MIN(MOLAL(7),FRNH4) ! NH4NO3 FRNH4 = MAX(FRNH4 - MOLALR(5), ZERO) MOLALR(6) = MIN(MOLAL(4), FRNH4) ! NH4CL C C *** NA-NH4-SO4-NO3-CL SYSTEM ; SULFATE POOR ; SODIUM RICH CASE C *** RETREIVE DISSOLVED SALTS DIRECTLY FROM COMMON BLOCK /SOLUT/ C ELSE IF (SC.EQ.'H') THEN MOLALR(1) = PSI7 ! NACL MOLALR(2) = PSI1 ! NA2SO4 MOLALR(3) = PSI8 ! NANO3 MOLALR(4) = ZERO ! (NH4)2SO4 FRNO3 = MAX(MOLAL(7) - MOLALR(3), ZERO) ! "FREE" NO3 FRCL = MAX(MOLAL(4) - MOLALR(1), ZERO) ! "FREE" CL MOLALR(5) = MIN(MOLAL(3),FRNO3) ! NH4NO3 FRNH4 = MAX(MOLAL(3) - MOLALR(5), ZERO) ! "FREE" NH3 MOLALR(6) = MIN(FRCL, FRNH4) ! NH4CL C C *** NA-NH4-SO4-NO3-CL SYSTEM ; SULFATE RICH CASE ; NO FREE ACID C *** RETREIVE DISSOLVED SALTS DIRECTLY FROM COMMON BLOCK /SOLUT/ C ELSE IF (SC.EQ.'I') THEN MOLALR(04) = PSI5 ! (NH4)2SO4 MOLALR(02) = PSI4 ! NA2SO4 MOLALR(09) = PSI1 ! NH4HSO4 MOLALR(12) = PSI3 ! NAHSO4 MOLALR(13) = PSI2 ! LC C C *** NA-NH4-SO4-NO3-CL SYSTEM ; SULFATE RICH CASE ; FREE ACID C ELSE IF (SC.EQ.'J') THEN MOLALR(09) = MOLAL(3) ! NH4HSO4 MOLALR(12) = MOLAL(2) ! NAHSO4 MOLALR(07) = MOLAL(5)+MOLAL(6)-MOLAL(3)-MOLAL(2) ! H2SO4 MOLALR(07) = MAX(MOLALR(07),ZERO) C C *** NA-NH4-SO4-NO3-CL-CA-K-MG SYSTEM ; SULFATE POOR ; CR+NA POOR CASE C ELSE IF (SC.EQ.'O') THEN MOLALR(2) = 0.5D0*MOLAL(2) ! NA2SO4 TOTS4 = MOLAL(5)+MOLAL(6) ! Total SO4 MOLALR(17)= 0.5*MOLAL(9) ! K2SO4 MOLALR(21)= MOLAL(10) ! MGSO4 MOLALR(4) = MAX(TOTS4 - MOLALR(2) - MOLALR(17) & - MOLALR(21), ZERO) ! (NH4)2SO4 FRNH4 = MAX(MOLAL(3) - 2.D0*MOLALR(4), ZERO) MOLALR(5) = MIN(MOLAL(7),FRNH4) ! NH4NO3 FRNH4 = MAX(FRNH4 - MOLALR(5), ZERO) MOLALR(6) = MIN(MOLAL(4), FRNH4) ! NH4CL C C *** NA-NH4-SO4-NO3-CL-CA-K-MG SYSTEM ; SULFATE POOR ; CR+NA RICH; CR POOR CASE C *** RETREIVE DISSOLVED SALTS DIRECTLY FROM COMMON BLOCK /SOLUT/ C ELSE IF (SC.EQ.'M') THEN MOLALR(1) = PSI7 ! NACL MOLALR(2) = PSI1 ! NA2SO4 MOLALR(3) = PSI8 ! NANO3 MOLALR(4) = ZERO ! (NH4)2SO4 FRNO3 = MAX(MOLAL(7) - MOLALR(3), ZERO) ! "FREE" NO3 FRCL = MAX(MOLAL(4) - MOLALR(1), ZERO) ! "FREE" CL MOLALR(5) = MIN(MOLAL(3),FRNO3) ! NH4NO3 FRNH4 = MAX(MOLAL(3) - MOLALR(5), ZERO) ! "FREE" NH3 MOLALR(6) = MIN(FRCL, FRNH4) ! NH4CL MOLALR(17)= PSI9 ! K2SO4 MOLALR(21)= PSI10 ! MGSO4 C C *** NA-NH4-SO4-NO3-CL-CA-K-MG SYSTEM ; SULFATE POOR ; CR+NA RICH; CR RICH CASE C *** RETREIVE DISSOLVED SALTS DIRECTLY FROM COMMON BLOCK /SOLUT/ C ELSE IF (SC.EQ.'P') THEN MOLALR(1) = PSI7 ! NACL MOLALR(3) = PSI8 ! NANO3 MOLALR(15)= PSI12 ! CANO32 MOLALR(16)= PSI17 ! CACL2 MOLALR(19)= PSI13 ! KNO3 MOLALR(20)= PSI14 ! KCL MOLALR(22)= PSI15 ! MGNO32 MOLALR(23)= PSI16 ! MGCL2 FRNO3 = MAX(MOLAL(7)-MOLALR(3)-2.D0*MOLALR(15) & -MOLALR(19)-2.D0*MOLALR(22), ZERO) ! "FREE" NO3 FRCL = MAX(MOLAL(4)-MOLALR(1)-2.D0*MOLALR(16) & -MOLALR(20)-2.D0*MOLALR(23), ZERO) ! "FREE" CL MOLALR(5) = MIN(MOLAL(3),FRNO3) ! NH4NO3 FRNH4 = MAX(MOLAL(3) - MOLALR(5), ZERO) ! "FREE" NH3 MOLALR(6) = MIN(FRCL, FRNH4) ! NH4CL MOLALR(17)= PSI9 ! K2SO4 MOLALR(21)= PSI10 ! MGSO4 C C *** NA-NH4-SO4-NO3-CL-CA-K-MG SYSTEM ; SULFATE RICH CASE ; NO FREE ACID C ELSE IF (SC.EQ.'L') THEN MOLALR(04) = PSI5 ! (NH4)2SO4 MOLALR(02) = PSI4 ! NA2SO4 MOLALR(09) = PSI1 ! NH4HSO4 MOLALR(12) = PSI3 ! NAHSO4 MOLALR(13) = PSI2 ! LC MOLALR(17) = PSI6 ! K2SO4 MOLALR(21) = PSI7 ! MGSO4 MOLALR(18) = PSI8 ! KHSO4 C C *** NA-NH4-SO4-NO3-CL-CA-K-MG SYSTEM ; SULFATE SUPER RICH CASE ; FREE ACID C ELSE IF (SC.EQ.'K') THEN MOLALR(09) = MOLAL(3) ! NH4HSO4 MOLALR(12) = MOLAL(2) ! NAHSO4 MOLALR(14) = MOLAL(8) ! CASO4 MOLALR(18) = MOLAL(9) ! KHSO4 MOLALR(21) = MOLAL(10) ! MGSO4 MOLALR(07) = MOLAL(5)+MOLAL(6)-MOLAL(3) & -MOLAL(2)-MOLAL(8)-MOLAL(9)-MOLAL(10) ! H2SO4 MOLALR(07) = MAX(MOLALR(07),ZERO) C C ======= REVERSE PROBLEMS =========================================== C C *** NH4-SO4-NO3 SYSTEM ; SULFATE POOR CASE C ELSE IF (SC.EQ.'N') THEN MOLALR(4) = MOLAL(5) + MOLAL(6) ! (NH4)2SO4 AML5 = WAER(3)-2.D0*MOLALR(4) ! "free" NH4 MOLALR(5) = MAX(MIN(AML5,WAER(4)), ZERO) ! NH4NO3 = MIN("free", NO3) C C *** NH4-SO4-NO3-NA-CL SYSTEM ; SULFATE POOR, SODIUM POOR CASE C ELSE IF (SC.EQ.'Q') THEN MOLALR(2) = PSI1 ! NA2SO4 MOLALR(4) = PSI6 ! (NH4)2SO4 MOLALR(5) = PSI5 ! NH4NO3 MOLALR(6) = PSI4 ! NH4CL C C *** NH4-SO4-NO3-NA-CL SYSTEM ; SULFATE POOR, SODIUM RICH CASE C ELSE IF (SC.EQ.'R') THEN MOLALR(1) = PSI3 ! NACL MOLALR(2) = PSI1 ! NA2SO4 MOLALR(3) = PSI2 ! NANO3 MOLALR(4) = ZERO ! (NH4)2SO4 MOLALR(5) = PSI5 ! NH4NO3 MOLALR(6) = PSI4 ! NH4CL C C *** NH4-SO4-NO3-NA-CL-CA-K-MG SYSTEM ; SULFATE POOR, CRUSTAL&SODIUM POOR CASE C ELSE IF (SC.EQ.'V') THEN MOLALR(2) = PSI1 ! NA2SO4 MOLALR(4) = PSI6 ! (NH4)2SO4 MOLALR(5) = PSI5 ! NH4NO3 MOLALR(6) = PSI4 ! NH4CL MOLALR(17)= PSI7 ! K2SO4 MOLALR(21)= PSI8 ! MGSO4 C C *** NH4-SO4-NO3-NA-CL-CA-K-MG SYSTEM ; SULFATE POOR, CRUSTAL&SODIUM RICH, CRUSTAL POOR CASE C ELSE IF (SC.EQ.'U') THEN MOLALR(1) = PSI3 ! NACL MOLALR(2) = PSI1 ! NA2SO4 MOLALR(3) = PSI2 ! NANO3 MOLALR(5) = PSI5 ! NH4NO3 MOLALR(6) = PSI4 ! NH4CL MOLALR(17)= PSI7 ! K2SO4 MOLALR(21)= PSI8 ! MGSO4 C C *** NH4-SO4-NO3-NA-CL-CA-K-MG SYSTEM ; SULFATE POOR, CRUSTAL&SODIUM RICH, CRUSTAL RICH CASE C ELSE IF (SC.EQ.'W') THEN MOLALR(1) = PSI7 ! NACL MOLALR(3) = PSI8 ! NANO3 MOLALR(5) = PSI6 ! NH4NO3 MOLALR(6) = PSI5 ! NH4CL MOLALR(15)= PSI12 ! CANO32 MOLALR(16)= PSI17 ! CACL2 MOLALR(17)= PSI9 ! K2SO4 MOLALR(19)= PSI13 ! KNO3 MOLALR(20)= PSI14 ! KCL MOLALR(21)= PSI10 ! MGSO4 MOLALR(22)= PSI15 ! MGNO32 MOLALR(23)= PSI16 ! MGCL2 C C *** UNKNOWN CASE C C ELSE C CALL PUSHERR (1001, ' ') ! FATAL ERROR: CASE NOT SUPPORTED ENDIF C C *** CALCULATE WATER CONTENT ; ZSR CORRELATION *********************** C WATER = ZERO DO 10 I=1,NPAIR WATER = WATER + MOLALR(I)/M0(I) 10 CONTINUE WATER = MAX(WATER, TINY) C RETURN C C *** END OF SUBROUTINE CALCMR ****************************************** C END C C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE CALCMDRH C C THIS IS THE CASE WHERE THE RELATIVE HUMIDITY IS IN THE MUTUAL C DRH REGION. THE SOLUTION IS ASSUMED TO BE THE SUM OF TWO WEIGHTED C SOLUTIONS ; THE 'DRY' SOLUTION (SUBROUTINE DRYCASE) AND THE C 'SATURATED LIQUID' SOLUTION (SUBROUTINE LIQCASE). C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCMDRH (RHI, RHDRY, RHLIQ, DRYCASE, LIQCASE) INCLUDE 'isrpia.inc' EXTERNAL DRYCASE, LIQCASE C C *** FIND WEIGHT FACTOR ********************************************** C IF (WFTYP.EQ.0) THEN WF = ONE ELSEIF (WFTYP.EQ.1) THEN WF = 0.5D0 ELSE WF = (RHLIQ-RHI)/(RHLIQ-RHDRY) ENDIF ONEMWF = ONE - WF C C *** FIND FIRST SECTION ; DRY ONE ************************************ C CALL DRYCASE IF (ABS(ONEMWF).LE.1D-5) GOTO 200 ! DRY AEROSOL C CNH42SO = CNH42S4 ! FIRST (DRY) SOLUTION CNH4HSO = CNH4HS4 CLCO = CLC CNH4N3O = CNH4NO3 CNH4CLO = CNH4CL CNA2SO = CNA2SO4 CNAHSO = CNAHSO4 CNANO = CNANO3 CNACLO = CNACL GNH3O = GNH3 GHNO3O = GHNO3 GHCLO = GHCL C C *** FIND SECOND SECTION ; DRY & LIQUID ****************************** C CNH42S4 = ZERO CNH4HS4 = ZERO CLC = ZERO CNH4NO3 = ZERO CNH4CL = ZERO CNA2SO4 = ZERO CNAHSO4 = ZERO CNANO3 = ZERO CNACL = ZERO GNH3 = ZERO GHNO3 = ZERO GHCL = ZERO CALL LIQCASE ! SECOND (LIQUID) SOLUTION C C *** ADJUST THINGS FOR THE CASE THAT THE LIQUID SUB PREDICTS DRY AEROSOL C IF (WATER.LE.TINY) THEN DO 100 I=1,NIONS MOLAL(I)= ZERO ! Aqueous phase 100 CONTINUE WATER = ZERO C CNH42S4 = CNH42SO ! Solid phase CNA2SO4 = CNA2SO CNAHSO4 = CNAHSO CNH4HS4 = CNH4HSO CLC = CLCO CNH4NO3 = CNH4N3O CNANO3 = CNANO CNACL = CNACLO CNH4CL = CNH4CLO C GNH3 = GNH3O ! Gas phase GHNO3 = GHNO3O GHCL = GHCLO C GOTO 200 ENDIF C C *** FIND SALT DISSOLUTIONS BETWEEN DRY & LIQUID SOLUTIONS. C DAMSUL = CNH42SO - CNH42S4 DSOSUL = CNA2SO - CNA2SO4 DAMBIS = CNH4HSO - CNH4HS4 DSOBIS = CNAHSO - CNAHSO4 DLC = CLCO - CLC DAMNIT = CNH4N3O - CNH4NO3 DAMCHL = CNH4CLO - CNH4CL DSONIT = CNANO - CNANO3 DSOCHL = CNACLO - CNACL C C *** FIND GAS DISSOLUTIONS BETWEEN DRY & LIQUID SOLUTIONS. C DAMG = GNH3O - GNH3 DHAG = GHCLO - GHCL DNAG = GHNO3O - GHNO3 C C *** FIND SOLUTION AT MDRH BY WEIGHTING DRY & LIQUID SOLUTIONS. C C LIQUID C MOLAL(1)= ONEMWF*MOLAL(1) ! H+ MOLAL(2)= ONEMWF*(2.D0*DSOSUL + DSOBIS + DSONIT + DSOCHL) ! NA+ MOLAL(3)= ONEMWF*(2.D0*DAMSUL + DAMG + DAMBIS + DAMCHL + & 3.D0*DLC + DAMNIT ) ! NH4+ MOLAL(4)= ONEMWF*( DAMCHL + DSOCHL + DHAG) ! CL- MOLAL(5)= ONEMWF*( DAMSUL + DSOSUL + DLC - MOLAL(6)) ! SO4-- !VB 17 Sept 2001 MOLAL(6)= ONEMWF*( MOLAL(6) + DSOBIS + DAMBIS + DLC) ! HSO4- MOLAL(7)= ONEMWF*( DAMNIT + DSONIT + DNAG) ! NO3- WATER = ONEMWF*WATER C C SOLID C CNH42S4 = WF*CNH42SO + ONEMWF*CNH42S4 CNA2SO4 = WF*CNA2SO + ONEMWF*CNA2SO4 CNAHSO4 = WF*CNAHSO + ONEMWF*CNAHSO4 CNH4HS4 = WF*CNH4HSO + ONEMWF*CNH4HS4 CLC = WF*CLCO + ONEMWF*CLC CNH4NO3 = WF*CNH4N3O + ONEMWF*CNH4NO3 CNANO3 = WF*CNANO + ONEMWF*CNANO3 CNACL = WF*CNACLO + ONEMWF*CNACL CNH4CL = WF*CNH4CLO + ONEMWF*CNH4CL C C GAS C GNH3 = WF*GNH3O + ONEMWF*GNH3 GHNO3 = WF*GHNO3O + ONEMWF*GHNO3 GHCL = WF*GHCLO + ONEMWF*GHCL C C *** RETURN POINT C 200 RETURN C C *** END OF SUBROUTINE CALCMDRH **************************************** C END C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE CALCMDRH2 C C THIS IS THE CASE WHERE THE RELATIVE HUMIDITY IS IN THE MUTUAL C DRH REGION. THE SOLUTION IS ASSUMED TO BE THE SUM OF TWO WEIGHTED C SOLUTIONS ; THE 'DRY' SOLUTION (SUBROUTINE DRYCASE) AND THE C 'SATURATED LIQUID' SOLUTION (SUBROUTINE LIQCASE). C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCMDRH2 (RHI, RHDRY, RHLIQ, DRYCASE, LIQCASE) INCLUDE 'isrpia.inc' EXTERNAL DRYCASE, LIQCASE C C *** FIND WEIGHT FACTOR ********************************************** C IF (WFTYP.EQ.0) THEN WF = ONE ELSEIF (WFTYP.EQ.1) THEN WF = 0.5D0 ELSE WF = (RHLIQ-RHI)/(RHLIQ-RHDRY) ENDIF ONEMWF = ONE - WF C C *** FIND FIRST SECTION ; DRY ONE ************************************ C CALL DRYCASE IF (ABS(ONEMWF).LE.1D-5) GOTO 200 ! DRY AEROSOL C CNH42SO = CNH42S4 ! FIRST (DRY) SOLUTION CNH4HSO = CNH4HS4 CLCO = CLC CNH4N3O = CNH4NO3 CNH4CLO = CNH4CL CNA2SO = CNA2SO4 CNAHSO = CNAHSO4 CNANO = CNANO3 CNACLO = CNACL GNH3O = GNH3 GHNO3O = GHNO3 GHCLO = GHCL C CCASO = CCASO4 CK2SO = CK2SO4 CMGSO = CMGSO4 CKHSO = CKHSO4 CCAN32O = CCANO32 CCAC2L = CCACL2 CKN3O = CKNO3 CKCLO = CKCL CMGN32O = CMGNO32 CMGC2L = CMGCL2 C C *** FIND SECOND SECTION ; DRY & LIQUID ****************************** C CNH42S4 = ZERO CNH4HS4 = ZERO CLC = ZERO CNH4NO3 = ZERO CNH4CL = ZERO CNA2SO4 = ZERO CNAHSO4 = ZERO CNANO3 = ZERO CNACL = ZERO GNH3 = ZERO GHNO3 = ZERO GHCL = ZERO C CCASO4 = ZERO CK2SO4 = ZERO CMGSO4 = ZERO CKHSO4 = ZERO CCANO32 = ZERO CCACL2 = ZERO CKNO3 = ZERO CKCL = ZERO CMGNO32 = ZERO CMGCL2 = ZERO C CALL LIQCASE ! SECOND (LIQUID) SOLUTION C C *** ADJUST THINGS FOR THE CASE THAT THE LIQUID SUB PREDICTS DRY AEROSOL C IF (WATER.LE.TINY) THEN DO 100 I=1,NIONS MOLAL(I)= ZERO ! Aqueous phase 100 CONTINUE WATER = ZERO C CNH42S4 = CNH42SO ! Solid phase CNA2SO4 = CNA2SO CNAHSO4 = CNAHSO CNH4HS4 = CNH4HSO CLC = CLCO CNH4NO3 = CNH4N3O CNANO3 = CNANO CNACL = CNACLO CNH4CL = CNH4CLO C GNH3 = GNH3O ! Gas phase GHNO3 = GHNO3O GHCL = GHCLO C CCASO4 = CCASO CK2SO4 = CK2SO CMGSO4 = CMGSO CKHSO4 = CKHSO CCANO32 = CCAN32O CCACL2 = CCAC2L CKNO3 = CKN3O CKCL = CKCLO CMGNO32 = CMGN32O CMGCL2 = CMGC2L C GOTO 200 ENDIF C C *** FIND SALT DISSOLUTIONS BETWEEN DRY & LIQUID SOLUTIONS. C DAMSUL = CNH42SO - CNH42S4 DSOSUL = CNA2SO - CNA2SO4 DAMBIS = CNH4HSO - CNH4HS4 DSOBIS = CNAHSO - CNAHSO4 DLC = CLCO - CLC DAMNIT = CNH4N3O - CNH4NO3 DAMCHL = CNH4CLO - CNH4CL DSONIT = CNANO - CNANO3 DSOCHL = CNACLO - CNACL C DCASUL = CCASO - CCASO4 DPOSUL = CK2SO - CK2SO4 DMGSUL = CMGSO - CMGSO4 DPOBIS = CKHSO - CKHSO4 DCANIT = CCAN32O - CCANO32 DCACHL = CCAC2L - CCACL2 DPONIT = CKN3O - CKNO3 DPOCHL = CKCLO - CKCL DMGNIT = CMGN32O - CMGNO32 DMGCHL = CMGC2L - CMGCL2 C C *** FIND GAS DISSOLUTIONS BETWEEN DRY & LIQUID SOLUTIONS. C DAMG = GNH3O - GNH3 DHAG = GHCLO - GHCL DNAG = GHNO3O - GHNO3 C C *** FIND SOLUTION AT MDRH BY WEIGHTING DRY & LIQUID SOLUTIONS. C C LIQUID C MOLAL(1) = ONEMWF*MOLAL(1) ! H+ MOLAL(2) = ONEMWF*(2.D0*DSOSUL + DSOBIS + DSONIT + DSOCHL) ! NA+ MOLAL(3) = ONEMWF*(2.D0*DAMSUL + DAMG + DAMBIS + DAMCHL + & 3.D0*DLC + DAMNIT ) ! NH4+ MOLAL(4) = ONEMWF*(DAMCHL + DSOCHL + DHAG + 2.D0*DCACHL + & 2.D0*DMGCHL + DPOCHL) ! CL- MOLAL(5) = ONEMWF*(DAMSUL + DSOSUL + DLC - MOLAL(6) & +DCASUL + DPOSUL + DMGSUL) ! SO4-- !VB 17 Sept 2001 MOLAL(6) = ONEMWF*(MOLAL(6) + DSOBIS + DAMBIS + DLC + DPOBIS) ! HSO4- MOLAL(7) = ONEMWF*(DAMNIT + DSONIT + DNAG + 2.D0*DCANIT & + 2.D0*DMGNIT + DPONIT) ! NO3- MOLAL(8) = ONEMWF*(DCASUL + DCANIT + DCACHL) ! CA2+ MOLAL(9) = ONEMWF*(2.D0*DPOSUL + DPONIT + DPOCHL + DPOBIS) ! K+ MOLAL(10)= ONEMWF*(DMGSUL + DMGNIT + DMGCHL) ! MG2+ WATER = ONEMWF*WATER C C SOLID C CNH42S4 = WF*CNH42SO + ONEMWF*CNH42S4 CNA2SO4 = WF*CNA2SO + ONEMWF*CNA2SO4 CNAHSO4 = WF*CNAHSO + ONEMWF*CNAHSO4 CNH4HS4 = WF*CNH4HSO + ONEMWF*CNH4HS4 CLC = WF*CLCO + ONEMWF*CLC CNH4NO3 = WF*CNH4N3O + ONEMWF*CNH4NO3 CNANO3 = WF*CNANO + ONEMWF*CNANO3 CNACL = WF*CNACLO + ONEMWF*CNACL CNH4CL = WF*CNH4CLO + ONEMWF*CNH4CL C CCASO4 = WF*CCASO + ONEMWF*CCASO4 CK2SO4 = WF*CK2SO + ONEMWF*CK2SO4 CMGSO4 = WF*CMGSO + ONEMWF*CMGSO4 CKHSO4 = WF*CKHSO + ONEMWF*CKHSO4 CCANO32 = WF*CCAN32O + ONEMWF*CCANO32 CCACL2 = WF*CCAC2L + ONEMWF*CCACL2 CMGNO32 = WF*CMGN32O + ONEMWF*CMGNO32 CMGCL2 = WF*CMGC2L + ONEMWF*CMGCL2 CKCL = WF*CKCLO + ONEMWF*CKCL C C GAS C GNH3 = WF*GNH3O + ONEMWF*GNH3 GHNO3 = WF*GHNO3O + ONEMWF*GHNO3 GHCL = WF*GHCLO + ONEMWF*GHCL C C *** RETURN POINT C 200 RETURN C C *** END OF SUBROUTINE CALCMDRH2 **************************************** C END C C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE CALCMDRP C C THIS IS THE CASE WHERE THE RELATIVE HUMIDITY IS IN THE MUTUAL C DRH REGION. THE SOLUTION IS ASSUMED TO BE THE SUM OF TWO WEIGHTED C SOLUTIONS ; THE 'DRY' SOLUTION (SUBROUTINE DRYCASE) AND THE C 'SATURATED LIQUID' SOLUTION (SUBROUTINE LIQCASE). (REVERSE PROBLEM) C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCMDRP (RHI, RHDRY, RHLIQ, DRYCASE, LIQCASE) INCLUDE 'isrpia.inc' EXTERNAL DRYCASE, LIQCASE C C *** FIND WEIGHT FACTOR ********************************************** C IF (WFTYP.EQ.0) THEN WF = ONE ELSEIF (WFTYP.EQ.1) THEN WF = 0.5D0 ELSE WF = (RHLIQ-RHI)/(RHLIQ-RHDRY) ENDIF ONEMWF = ONE - WF C C *** FIND FIRST SECTION ; DRY ONE ************************************ C CALL DRYCASE IF (ABS(ONEMWF).LE.1D-5) GOTO 200 ! DRY AEROSOL C CNH42SO = CNH42S4 ! FIRST (DRY) SOLUTION CNH4HSO = CNH4HS4 CLCO = CLC CNH4N3O = CNH4NO3 CNH4CLO = CNH4CL CNA2SO = CNA2SO4 CNAHSO = CNAHSO4 CNANO = CNANO3 CNACLO = CNACL C C *** FIND SECOND SECTION ; DRY & LIQUID ****************************** C CNH42S4 = ZERO CNH4HS4 = ZERO CLC = ZERO CNH4NO3 = ZERO CNH4CL = ZERO CNA2SO4 = ZERO CNAHSO4 = ZERO CNANO3 = ZERO CNACL = ZERO GNH3 = ZERO GHNO3 = ZERO GHCL = ZERO CALL LIQCASE ! SECOND (LIQUID) SOLUTION C C *** ADJUST THINGS FOR THE CASE THAT THE LIQUID SUB PREDICTS DRY AEROSOL C IF (WATER.LE.TINY) THEN WATER = ZERO DO 100 I=1,NIONS MOLAL(I)= ZERO 100 CONTINUE CALL DRYCASE GOTO 200 ENDIF C C *** FIND SALT DISSOLUTIONS BETWEEN DRY & LIQUID SOLUTIONS. C DAMBIS = CNH4HSO - CNH4HS4 DSOBIS = CNAHSO - CNAHSO4 DLC = CLCO - CLC C C *** FIND SOLUTION AT MDRH BY WEIGHTING DRY & LIQUID SOLUTIONS. C C *** SOLID C CNH42S4 = WF*CNH42SO + ONEMWF*CNH42S4 CNA2SO4 = WF*CNA2SO + ONEMWF*CNA2SO4 CNAHSO4 = WF*CNAHSO + ONEMWF*CNAHSO4 CNH4HS4 = WF*CNH4HSO + ONEMWF*CNH4HS4 CLC = WF*CLCO + ONEMWF*CLC CNH4NO3 = WF*CNH4N3O + ONEMWF*CNH4NO3 CNANO3 = WF*CNANO + ONEMWF*CNANO3 CNACL = WF*CNACLO + ONEMWF*CNACL CNH4CL = WF*CNH4CLO + ONEMWF*CNH4CL C C *** LIQUID C WATER = ONEMWF*WATER C MOLAL(2)= WAER(1) - 2.D0*CNA2SO4 - CNAHSO4 - CNANO3 - & CNACL ! NA+ MOLAL(3)= WAER(3) - 2.D0*CNH42S4 - CNH4HS4 - CNH4CL - & 3.D0*CLC - CNH4NO3 ! NH4+ MOLAL(4)= WAER(5) - CNACL - CNH4CL ! CL- MOLAL(7)= WAER(4) - CNANO3 - CNH4NO3 ! NO3- MOLAL(6)= ONEMWF*(MOLAL(6) + DSOBIS + DAMBIS + DLC) ! HSO4- MOLAL(5)= WAER(2) - MOLAL(6) - CLC - CNH42S4 - CNA2SO4 ! SO4-- C A8 = XK1*WATER/GAMA(7)*(GAMA(8)/GAMA(7))**2. IF (MOLAL(5).LE.TINY) THEN HIEQ = SQRT(XKW *RH*WATER*WATER) ! Neutral solution ELSE HIEQ = A8*MOLAL(6)/MOLAL(5) ENDIF HIEN = MOLAL(4) + MOLAL(7) + MOLAL(6) + 2.D0*MOLAL(5) - & MOLAL(2) - MOLAL(3) MOLAL(1)= MAX (HIEQ, HIEN) ! H+ C C *** GAS (ACTIVITY COEFS FROM LIQUID SOLUTION) C A2 = (XK2/XKW)*R*TEMP*(GAMA(10)/GAMA(5))**2. ! NH3 <==> NH4+ A3 = XK4 *R*TEMP*(WATER/GAMA(10))**2. ! HNO3 <==> NO3- A4 = XK3 *R*TEMP*(WATER/GAMA(11))**2. ! HCL <==> CL- C GNH3 = MOLAL(3)/MAX(MOLAL(1),TINY)/A2 GHNO3 = MOLAL(1)*MOLAL(7)/A3 GHCL = MOLAL(1)*MOLAL(4)/A4 C 200 RETURN C C *** END OF SUBROUTINE CALCMDRP **************************************** C END C C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE CALCMDRPII C C THIS IS THE CASE WHERE THE RELATIVE HUMIDITY IS IN THE MUTUAL C DRH REGION. THE SOLUTION IS ASSUMED TO BE THE SUM OF TWO WEIGHTED C SOLUTIONS ; THE 'DRY' SOLUTION (SUBROUTINE DRYCASE) AND THE C 'SATURATED LIQUID' SOLUTION (SUBROUTINE LIQCASE). (REVERSE PROBLEM) C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCMDRPII (RHI, RHDRY, RHLIQ, DRYCASE, LIQCASE) INCLUDE 'isrpia.inc' EXTERNAL DRYCASE, LIQCASE C C *** FIND WEIGHT FACTOR ********************************************** C IF (WFTYP.EQ.0) THEN WF = ONE ELSEIF (WFTYP.EQ.1) THEN WF = 0.5D0 ELSE WF = (RHLIQ-RHI)/(RHLIQ-RHDRY) ENDIF ONEMWF = ONE - WF C C *** FIND FIRST SECTION ; DRY ONE ************************************ C CALL DRYCASE IF (ABS(ONEMWF).LE.1D-5) GOTO 200 ! DRY AEROSOL C CNH42SO = CNH42S4 ! FIRST (DRY) SOLUTION CNH4HSO = CNH4HS4 CLCO = CLC CNH4N3O = CNH4NO3 CNH4CLO = CNH4CL CNA2SO = CNA2SO4 CNAHSO = CNAHSO4 CNANO = CNANO3 CNACLO = CNACL C CCASO = CCASO4 CK2SO = CK2SO4 CMGSO = CMGSO4 CKHSO = CKHSO4 CCAN32O = CCANO32 CCAC2L = CCACL2 CKN3O = CKNO3 CKCLO = CKCL CMGN32O = CMGNO32 CMGC2L = CMGCL2 C C *** FIND SECOND SECTION ; DRY & LIQUID ****************************** C CNH42S4 = ZERO CNH4HS4 = ZERO CLC = ZERO CNH4NO3 = ZERO CNH4CL = ZERO CNA2SO4 = ZERO CNAHSO4 = ZERO CNANO3 = ZERO CNACL = ZERO GNH3 = ZERO GHNO3 = ZERO GHCL = ZERO C CCASO4 = ZERO CK2SO4 = ZERO CMGSO4 = ZERO CKHSO4 = ZERO CCANO32 = ZERO CCACL2 = ZERO CKNO3 = ZERO CKCL = ZERO CMGNO32 = ZERO CMGCL2 = ZERO C CALL LIQCASE ! SECOND (LIQUID) SOLUTION C C *** ADJUST THINGS FOR THE CASE THAT THE LIQUID SUB PREDICTS DRY AEROSOL C IF (WATER.LE.TINY) THEN WATER = ZERO DO 100 I=1,NIONS MOLAL(I)= ZERO 100 CONTINUE CALL DRYCASE GOTO 200 ENDIF C C *** FIND SALT DISSOLUTIONS BETWEEN DRY & LIQUID SOLUTIONS. C DAMBIS = CNH4HSO - CNH4HS4 DSOBIS = CNAHSO - CNAHSO4 DLC = CLCO - CLC DPOBIS = CKHSO - CKHSO4 C C *** FIND SOLUTION AT MDRH BY WEIGHTING DRY & LIQUID SOLUTIONS. C C *** SOLID C CNH42S4 = WF*CNH42SO + ONEMWF*CNH42S4 CNA2SO4 = WF*CNA2SO + ONEMWF*CNA2SO4 CNAHSO4 = WF*CNAHSO + ONEMWF*CNAHSO4 CNH4HS4 = WF*CNH4HSO + ONEMWF*CNH4HS4 CLC = WF*CLCO + ONEMWF*CLC CNH4NO3 = WF*CNH4N3O + ONEMWF*CNH4NO3 CNANO3 = WF*CNANO + ONEMWF*CNANO3 CNACL = WF*CNACLO + ONEMWF*CNACL CNH4CL = WF*CNH4CLO + ONEMWF*CNH4CL C CCASO4 = WF*CCASO + ONEMWF*CCASO4 CK2SO4 = WF*CK2SO + ONEMWF*CK2SO4 CMGSO4 = WF*CMGSO + ONEMWF*CMGSO4 CKHSO4 = WF*CKHSO + ONEMWF*CKHSO4 CCANO32 = WF*CCAN32O + ONEMWF*CCANO32 CCACL2 = WF*CCAC2L + ONEMWF*CCACL2 CMGNO32 = WF*CMGN32O + ONEMWF*CMGNO32 CMGCL2 = WF*CMGC2L + ONEMWF*CMGCL2 CKCL = WF*CKCLO + ONEMWF*CKCL C C *** LIQUID C WATER = ONEMWF*WATER C MOLAL(2)= WAER(1) - 2.D0*CNA2SO4 - CNAHSO4 - CNANO3 - & CNACL ! NA+ MOLAL(3)= WAER(3) - 2.D0*CNH42S4 - CNH4HS4 - CNH4CL - & 3.D0*CLC - CNH4NO3 ! NH4+ MOLAL(4)= WAER(5) - CNACL - CNH4CL - 2.D0*CCACL2 - & 2.D0*CMGCL2 - CKCL ! CL- MOLAL(7)= WAER(4) - CNANO3 - CNH4NO3 - CKNO3 & - 2.D0*CCANO32 - 2.D0*CMGNO32 ! NO3- MOLAL(6)= ONEMWF*(MOLAL(6) + DSOBIS + DAMBIS + DLC + DPOBIS) ! HSO4- MOLAL(5)= WAER(2) - MOLAL(6) - CLC - CNH42S4 - CNA2SO4 & - CCASO4 - CK2SO4 - CMGSO4 ! SO4-- MOLAL(8)= WAER(6) - CCASO4 - CCANO32 - CCACL2 ! CA++ MOLAL(9)= WAER(7) - 2.D0*CK2SO4 - CKNO3 - CKCL - CKHSO4 ! K+ MOLAL(10)=WAER(8) - CMGSO4 - CMGNO32 - CMGCL2 ! MG++ C A8 = XK1*WATER/GAMA(7)*(GAMA(8)/GAMA(7))**2. IF (MOLAL(5).LE.TINY) THEN HIEQ = SQRT(XKW *RH*WATER*WATER) ! Neutral solution ELSE HIEQ = A8*MOLAL(6)/MOLAL(5) ENDIF HIEN = MOLAL(4) + MOLAL(7) + MOLAL(6) + 2.D0*MOLAL(5) - & MOLAL(2) - MOLAL(3) MOLAL(1)= MAX (HIEQ, HIEN) ! H+ C C *** GAS (ACTIVITY COEFS FROM LIQUID SOLUTION) C A2 = (XK2/XKW)*R*TEMP*(GAMA(10)/GAMA(5))**2. ! NH3 <==> NH4+ A3 = XK4 *R*TEMP*(WATER/GAMA(10))**2. ! HNO3 <==> NO3- A4 = XK3 *R*TEMP*(WATER/GAMA(11))**2. ! HCL <==> CL- C GNH3 = MOLAL(3)/MAX(MOLAL(1),TINY)/A2 GHNO3 = MOLAL(1)*MOLAL(7)/A3 GHCL = MOLAL(1)*MOLAL(4)/A4 C 200 RETURN C C *** END OF SUBROUTINE CALCMDRPII ************************************** C END C C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE CALCHS4 C *** THIS SUBROUTINE CALCULATES THE HSO4 GENERATED FROM (H,SO4). C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCHS4 (HI, SO4I, HSO4I, DELTA) INCLUDE 'isrpia.inc' CC CHARACTER ERRINF*40 C C *** IF TOO LITTLE WATER, DONT SOLVE C IF (WATER.LE.1d1*TINY) THEN DELTA = ZERO RETURN ENDIF C C *** CALCULATE HSO4 SPECIATION ***************************************** C A8 = XK1*WATER/GAMA(7)*(GAMA(8)/GAMA(7))**2. C BB =-(HI + SO4I + A8) CC = HI*SO4I - HSO4I*A8 DD = BB*BB - 4.D0*CC C IF (DD.GE.ZERO) THEN SQDD = SQRT(DD) DELTA1 = 0.5*(-BB + SQDD) DELTA2 = 0.5*(-BB - SQDD) IF (HSO4I.LE.TINY) THEN DELTA = DELTA2 ELSEIF( HI*SO4I .GE. A8*HSO4I ) THEN DELTA = DELTA2 ELSEIF( HI*SO4I .LT. A8*HSO4I ) THEN DELTA = DELTA1 ELSE DELTA = ZERO ENDIF ELSE DELTA = ZERO ENDIF CCC CCC *** COMPARE DELTA TO TOTAL H+ ; ESTIMATE EFFECT OF HSO4 *************** CCC CC HYD = MAX(HI, MOLAL(1)) CC IF (HYD.GT.TINY) THEN CC IF (DELTA/HYD.GT.0.1d0) THEN CC WRITE (ERRINF,'(1PE10.3)') DELTA/HYD*100.0 CC CALL PUSHERR (0020, ERRINF) CC ENDIF CC ENDIF C RETURN C C *** END OF SUBROUTINE CALCHS4 ***************************************** C END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE CALCPH C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCPH (GG, HI, OHI) INCLUDE 'isrpia.inc' C AKW = XKW *RH*WATER*WATER CN = SQRT(AKW) C C *** GG = (negative charge) - (positive charge) C IF (GG.GT.TINY) THEN ! H+ in excess BB =-GG CC =-AKW DD = BB*BB - 4.D0*CC HI = MAX(0.5D0*(-BB + SQRT(DD)),CN) OHI= AKW/HI ELSE ! OH- in excess BB = GG CC =-AKW DD = BB*BB - 4.D0*CC OHI= MAX(0.5D0*(-BB + SQRT(DD)),CN) HI = AKW/OHI ENDIF C RETURN C C *** END OF SUBROUTINE CALCPH ****************************************** C END C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE CALCACT C *** CALCULATES MULTI-COMPONENT ACTIVITY COEFFICIENTS FROM BROMLEYS C METHOD. THE BINARY ACTIVITY COEFFICIENTS ARE CALCULATED BY C KUSIK-MEISNER RELATION (SUBROUTINE KMTAB or SUBROUTINE KMFUL). C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCACT INCLUDE 'isrpia.inc' C COMMON /DRVINP/ WI(8), RHI, TEMPI, IPROBI, METSTBLI, IACALCI, & NADJI C IF (W(1)+W(4)+W(5)+W(6)+W(7)+W(8) .LE. 6.d0*TINY) THEN !Ca,K,Mg,Na,Cl,NO3=0 CALL CALCACT1 ELSE IF (W(1)+W(5)+W(6)+W(7)+W(8) .LE. 5.d0*TINY) THEN !Ca,K,Mg,Na,Cl=0 CALL CALCACT2 ELSE IF (W(6)+W(7)+W(8) .LE. 3.d0*TINY) THEN !Ca,K,Mg=0 CALL CALCACT3 ELSE CALL CALCACT4 ENDIF C C *** Return point ; End of subroutine C RETURN END C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE CALCACT4 C *** CALCULATES MULTI-COMPONENT ACTIVITY COEFFICIENTS FROM BROMLEYS C METHOD FOR AN AMMONIUM-SULFATE-NITRATE-CHLORIDE-SODIUM-CALCIUM-POTASSIUM-MAGNESIUM C AEROSOL SYSTEM. THE BINARY ACTIVITY COEFFICIENTS ARE CALCULATED BY C KUSIK-MEISNER RELATION (SUBROUTINE KMTAB or SUBROUTINE KMFUL4). C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCACT4 INCLUDE 'isrpia.inc' C REAL EX10 REAL G0(6,4),ZPL,ZMI,AGAMA,SION,H,CH,F1(6),F2A(4),F2B(4) DOUBLE PRECISION MPL, XIJ, YJI DATA G0/24*0D0/ C GA(I,J)= (F1(I)/Z(I) + F2A(J)/Z(J+3)) / (Z(I)+Z(J+3)) - H GB(I,J)= (F1(I)/Z(I+4) + F2B(J)/Z(J+3)) / (Z(I+4)+Z(J+3)) - H C C *** SAVE ACTIVITIES IN OLD ARRAY ************************************* C IF (FRST) THEN ! Outer loop DO 10 I=1,NPAIR GAMOU(I) = GAMA(I) 10 CONTINUE ENDIF C DO 20 I=1,NPAIR ! Inner loop GAMIN(I) = GAMA(I) 20 CONTINUE C C *** CALCULATE IONIC ACTIVITY OF SOLUTION ***************************** C IONIC=0.0 DO 30 I=1,NIONS IONIC=IONIC + MOLAL(I)*Z(I)*Z(I) 30 CONTINUE IONIC = MAX(MIN(0.5*IONIC/WATER,100.d0), TINY) C C *** CALCULATE BINARY ACTIVITY COEFFICIENTS *************************** C C G0(1,1)=G11;G0(1,2)=G07;G0(1,3)=G08;G0(1,4)=G10;G0(2,1)=G01;G0(2,2)=G02 C G0(2,3)=G12;G0(2,4)=G03;G0(3,1)=G06;G0(3,2)=G04;G0(3,3)=G09;G0(3,4)=G05 C IF (IACALC.EQ.0) THEN ! K.M.; FULL CALL KMFUL4 (IONIC, SNGL(TEMP),G0(2,1),G0(2,2),G0(2,4), & G0(3,2),G0(3,4),G0(3,1),G0(1,2),G0(1,3),G0(3,3), & G0(1,4),G0(1,1),G0(2,3),G0(4,4),G0(4,1),G0(5,2), & G0(5,3),G0(5,4),G0(5,1),G0(6,2),G0(6,4),G0(6,1)) ELSE ! K.M.; TABULATED CALL KMTAB (IONIC, SNGL(TEMP),G0(2,1),G0(2,2),G0(2,4), & G0(3,2),G0(3,4),G0(3,1),G0(1,2),G0(1,3),G0(3,3), & G0(1,4),G0(1,1),G0(2,3),G0(4,4),G0(4,1),G0(5,2), & G0(5,3),G0(5,4),G0(5,1),G0(6,2),G0(6,4),G0(6,1)) ENDIF C C *** CALCULATE MULTICOMPONENT ACTIVITY COEFFICIENTS ******************* C AGAMA = 0.511*(298.0/TEMP)**1.5 ! Debye Huckel const. at T SION = SQRT(IONIC) H = AGAMA*SION/(1+SION) C DO 100 I=1,4 F1(I)=0.0 F2A(I)=0.0 F2B(I)=0.0 100 CONTINUE F1(5)=0.0 F1(6)=0.0 C DO 110 I=1,3 ZPL = Z(I) MPL = MOLAL(I)/WATER DO 110 J=1,4 ZMI = Z(J+3) CH = 0.25*(ZPL+ZMI)*(ZPL+ZMI)/IONIC XIJ = CH*MPL YJI = CH*MOLAL(J+3)/WATER F1(I) = F1(I) + SNGL(YJI*(G0(I,J) + ZPL*ZMI*H)) F2A(J) = F2A(J) + SNGL(XIJ*(G0(I,J) + ZPL*ZMI*H)) 110 CONTINUE C DO 330 I=4,6 ZPL = Z(I+4) MPL = MOLAL(I+4)/WATER DO 330 J=1,4 ZMI = Z(J+3) IF (J.EQ.3) THEN IF (I.EQ.4 .OR. I.EQ.6) THEN GO TO 330 ENDIF ENDIF CH = 0.25*(ZPL+ZMI)*(ZPL+ZMI)/IONIC XIJ = CH*MPL YJI = CH*MOLAL(J+3)/WATER F1(I) = F1(I) + SNGL(YJI*(G0(I,J) + ZPL*ZMI*H)) F2B(J) = F2B(J) + SNGL(XIJ*(G0(I,J) + ZPL*ZMI*H)) 330 CONTINUE C C *** LOG10 OF ACTIVITY COEFFICIENTS *********************************** C GAMA(01) = GA(2,1)*ZZ(01) ! NACL GAMA(02) = GA(2,2)*ZZ(02) ! NA2SO4 GAMA(03) = GA(2,4)*ZZ(03) ! NANO3 GAMA(04) = GA(3,2)*ZZ(04) ! (NH4)2SO4 GAMA(05) = GA(3,4)*ZZ(05) ! NH4NO3 GAMA(06) = GA(3,1)*ZZ(06) ! NH4CL GAMA(07) = GA(1,2)*ZZ(07) ! 2H-SO4 GAMA(08) = GA(1,3)*ZZ(08) ! H-HSO4 GAMA(09) = GA(3,3)*ZZ(09) ! NH4HSO4 GAMA(10) = GA(1,4)*ZZ(10) ! HNO3 GAMA(11) = GA(1,1)*ZZ(11) ! HCL GAMA(12) = GA(2,3)*ZZ(12) ! NAHSO4 GAMA(13) = 0.20*(3.0*GAMA(04)+2.0*GAMA(09)) ! LC ; SCAPE CC GAMA(13) = 0.50*(GAMA(04)+GAMA(09)) ! LC ; SEQUILIB CC GAMA(13) = 0.25*(3.0*GAMA(04)+GAMA(07)) ! LC ; AIM GAMA(14) = 0.0d0 ! CASO4 GAMA(15) = GB(4,4)*ZZ(15) ! CA(NO3)2 GAMA(16) = GB(4,1)*ZZ(16) ! CACL2 GAMA(17) = GB(5,2)*ZZ(17) ! K2SO4 GAMA(18) = GB(5,3)*ZZ(18) ! KHSO4 GAMA(19) = GB(5,4)*ZZ(19) ! KNO3 GAMA(20) = GB(5,1)*ZZ(20) ! KCL GAMA(21) = GB(6,2)*ZZ(21) ! MGSO4 GAMA(22) = GB(6,4)*ZZ(22) ! MG(NO3)2 GAMA(23) = GB(6,1)*ZZ(23) ! MGCL2 C C *** CONVERT LOG (GAMA) COEFFICIENTS TO GAMA ************************** C DO 200 I=1,NPAIR GAMA(I)=MAX(-5.0d0, MIN(GAMA(I),5.0d0) ) ! F77 LIBRARY ROUTINE GAMA(I)=10.0**GAMA(I) C GAMA(I)=EX10(SNGL(GAMA(I)), 5.0) ! CUTOFF SET TO [-5,5] 200 CONTINUE C C *** SETUP ACTIVITY CALCULATION FLAGS ******************************** C C OUTER CALCULATION LOOP ; ONLY IF FRST=.TRUE. C IF (FRST) THEN ERROU = ZERO ! CONVERGENCE CRITERION DO 210 I=1,NPAIR ERROU=MAX(ERROU, ABS((GAMOU(I)-GAMA(I))/GAMOU(I))) 210 CONTINUE CALAOU = ERROU .GE. EPSACT ! SETUP FLAGS FRST =.FALSE. ENDIF C C INNER CALCULATION LOOP ; ALWAYS C ERRIN = ZERO ! CONVERGENCE CRITERION DO 220 I=1,NPAIR ERRIN = MAX (ERRIN, ABS((GAMIN(I)-GAMA(I))/GAMIN(I))) 220 CONTINUE CALAIN = ERRIN .GE. EPSACT C ICLACT = ICLACT + 1 ! Increment ACTIVITY call counter C C *** END OF SUBROUTINE ACTIVITY **************************************** C RETURN END C C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE CALCACT3 C *** CALCULATES MULTI-COMPONENT ACTIVITY COEFFICIENTS FROM BROMLEYS C METHOD FOR AN AMMONIUM-SULFATE-NITRATE-CHLORIDE-SODIUM AEROSOL SYSTEM. C THE BINARY ACTIVITY COEFFICIENTS ARE CALCULATED BY C KUSIK-MEISNER RELATION (SUBROUTINE KMTAB or SUBROUTINE KMFUL3). C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCACT3 INCLUDE 'isrpia.inc' C REAL EX10, URF REAL G0(6,4),ZPL,ZMI,AGAMA,SION,H,CH,F1(3),F2(4) DOUBLE PRECISION MPL, XIJ, YJI PARAMETER (URF=0.5) DATA G0/24*0D0/ C PARAMETER (LN10=2.30258509299404568402D0) C G(I,J)= (F1(I)/Z(I) + F2(J)/Z(J+3)) / (Z(I)+Z(J+3)) - H C C *** SAVE ACTIVITIES IN OLD ARRAY ************************************* C IF (FRST) THEN ! Outer loop DO 10 I=1,13 GAMOU(I) = GAMA(I) 10 CONTINUE ENDIF C DO 20 I=1,13 ! Inner loop GAMIN(I) = GAMA(I) 20 CONTINUE C C *** CALCULATE IONIC ACTIVITY OF SOLUTION ***************************** C IONIC=0.0 DO 30 I=1,7 IONIC=IONIC + MOLAL(I)*Z(I)*Z(I) 30 CONTINUE IONIC = MAX(MIN(0.5*IONIC/WATER,100.d0), TINY) C C *** CALCULATE BINARY ACTIVITY COEFFICIENTS *************************** C C G0(1,1)=G11;G0(1,2)=G07;G0(1,3)=G08;G0(1,4)=G10;G0(2,1)=G01;G0(2,2)=G02 C G0(2,3)=G12;G0(2,4)=G03;G0(3,1)=G06;G0(3,2)=G04;G0(3,3)=G09;G0(3,4)=G05 C IF (IACALC.EQ.0) THEN ! K.M.; FULL CALL KMFUL3 (IONIC, SNGL(TEMP),G0(2,1),G0(2,2),G0(2,4), & G0(3,2),G0(3,4),G0(3,1),G0(1,2),G0(1,3),G0(3,3), & G0(1,4),G0(1,1),G0(2,3)) ELSE ! K.M.; TABULATED CALL KMTAB (IONIC, SNGL(TEMP),G0(2,1),G0(2,2),G0(2,4), & G0(3,2),G0(3,4),G0(3,1),G0(1,2),G0(1,3),G0(3,3), & G0(1,4),G0(1,1),G0(2,3),G0(4,4),G0(4,1),G0(5,2), & G0(5,3),G0(5,4),G0(5,1),G0(6,2),G0(6,4),G0(6,1)) ENDIF C C *** CALCULATE MULTICOMPONENT ACTIVITY COEFFICIENTS ******************* C AGAMA = 0.511*(298.0/TEMP)**1.5 ! Debye Huckel const. at T SION = SQRT(IONIC) H = AGAMA*SION/(1+SION) C DO 100 I=1,3 F1(I)=0.0 F2(I)=0.0 100 CONTINUE F2(4)=0.0 C DO 110 I=1,3 ZPL = Z(I) MPL = MOLAL(I)/WATER DO 110 J=1,4 ZMI = Z(J+3) CH = 0.25*(ZPL+ZMI)*(ZPL+ZMI)/IONIC XIJ = CH*MPL YJI = CH*MOLAL(J+3)/WATER F1(I) = F1(I) + SNGL(YJI*(G0(I,J) + ZPL*ZMI*H)) F2(J) = F2(J) + SNGL(XIJ*(G0(I,J) + ZPL*ZMI*H)) 110 CONTINUE C C *** LOG10 OF ACTIVITY COEFFICIENTS *********************************** C GAMA(01) = G(2,1)*ZZ(01) ! NACL GAMA(02) = G(2,2)*ZZ(02) ! NA2SO4 GAMA(03) = G(2,4)*ZZ(03) ! NANO3 GAMA(04) = G(3,2)*ZZ(04) ! (NH4)2SO4 GAMA(05) = G(3,4)*ZZ(05) ! NH4NO3 GAMA(06) = G(3,1)*ZZ(06) ! NH4CL GAMA(07) = G(1,2)*ZZ(07) ! 2H-SO4 GAMA(08) = G(1,3)*ZZ(08) ! H-HSO4 GAMA(09) = G(3,3)*ZZ(09) ! NH4HSO4 GAMA(10) = G(1,4)*ZZ(10) ! HNO3 GAMA(11) = G(1,1)*ZZ(11) ! HCL GAMA(12) = G(2,3)*ZZ(12) ! NAHSO4 GAMA(13) = 0.20*(3.0*GAMA(04)+2.0*GAMA(09)) ! LC ; SCAPE CC GAMA(13) = 0.50*(GAMA(04)+GAMA(09)) ! LC ; SEQUILIB CC GAMA(13) = 0.25*(3.0*GAMA(04)+GAMA(07)) ! LC ; AIM C C *** CONVERT LOG (GAMA) COEFFICIENTS TO GAMA ************************** C DO 200 I=1,13 GAMA(I)=MAX(-5.0d0, MIN(GAMA(I),5.0d0) ) ! F77 LIBRARY ROUTINE GAMA(I)=10.0**GAMA(I) C GAMA(I)=EXP(LN10*GAMA(I)) C GAMA(I)=EX10(SNGL(GAMA(I)), 5.0) ! CUTOFF SET TO [-5,5] C GAMA(I) = GAMIN(I)*(1.0-URF) + URF*GAMA(I) ! Under-relax GAMA's 200 CONTINUE C C *** SETUP ACTIVITY CALCULATION FLAGS ********************************* C C OUTER CALCULATION LOOP ; ONLY IF FRST=.TRUE. C IF (FRST) THEN ERROU = ZERO ! CONVERGENCE CRITERION DO 210 I=1,13 ERROU=MAX(ERROU, ABS((GAMOU(I)-GAMA(I))/GAMOU(I))) 210 CONTINUE CALAOU = ERROU .GE. EPSACT ! SETUP FLAGS FRST =.FALSE. ENDIF C C INNER CALCULATION LOOP ; ALWAYS C ERRIN = ZERO ! CONVERGENCE CRITERION DO 220 I=1,13 ERRIN = MAX (ERRIN, ABS((GAMIN(I)-GAMA(I))/GAMIN(I))) 220 CONTINUE CALAIN = ERRIN .GE. EPSACT C ICLACT = ICLACT + 1 ! Increment ACTIVITY call counter C C *** END OF SUBROUTINE ACTIVITY **************************************** C RETURN END C C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE CALCACT2 C *** CALCULATES MULTI-COMPONENT ACTIVITY COEFFICIENTS FROM BROMLEYS C METHOD FOR AN AMMONIUM-SULFATE-NITRATE AEROSOL SYSTEM. C THE BINARY ACTIVITY COEFFICIENTS ARE CALCULATED BY C KUSIK-MEISNER RELATION (SUBROUTINE KMTAB or SUBROUTINE KMFUL2). C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCACT2 INCLUDE 'isrpia.inc' C REAL EX10, URF REAL G0(6,4),ZPL,ZMI,AGAMA,SION,H,CH,F1(3),F2(4) DOUBLE PRECISION MPL, XIJ, YJI PARAMETER (URF=0.5) DATA G0/24*0D0/ C PARAMETER (LN10=2.30258509299404568402D0) C G(I,J)= (F1(I)/Z(I) + F2(J)/Z(J+3)) / (Z(I)+Z(J+3)) - H C C *** SAVE ACTIVITIES IN OLD ARRAY ************************************* C IF (FRST) THEN ! Outer loop DO 10 I=7,10 GAMOU(I) = GAMA(I) 10 CONTINUE GAMOU(4) = GAMA(4) GAMOU(5) = GAMA(5) GAMOU(13) = GAMA(13) ENDIF C DO 20 I=7,10 ! Inner loop GAMIN(I) = GAMA(I) 20 CONTINUE GAMIN(4) = GAMA(4) GAMIN(5) = GAMA(5) GAMIN(13) = GAMA(13) C C *** CALCULATE IONIC ACTIVITY OF SOLUTION ***************************** C IONIC=0.0 MOLAL(2) = ZERO MOLAL(4) = ZERO DO 30 I=1,7 IONIC=IONIC + MOLAL(I)*Z(I)*Z(I) 30 CONTINUE IONIC = MAX(MIN(0.5*IONIC/WATER,100.d0), TINY) C C *** CALCULATE BINARY ACTIVITY COEFFICIENTS *************************** C C G0(1,1)=G11;G0(1,2)=G07;G0(1,3)=G08;G0(1,4)=G10;G0(2,1)=G01;G0(2,2)=G02 C G0(2,3)=G12;G0(2,4)=G03;G0(3,1)=G06;G0(3,2)=G04;G0(3,3)=G09;G0(3,4)=G05 C IF (IACALC.EQ.0) THEN ! K.M.; FULL CALL KMFUL2 (IONIC, SNGL(TEMP),G0(3,2),G0(3,4),G0(1,2), & G0(1,3),G0(3,3),G0(1,4)) ELSE ! K.M.; TABULATED CALL KMTAB (IONIC, SNGL(TEMP),G0(2,1),G0(2,2),G0(2,4), & G0(3,2),G0(3,4),G0(3,1),G0(1,2),G0(1,3),G0(3,3), & G0(1,4),G0(1,1),G0(2,3),G0(4,4),G0(4,1),G0(5,2), & G0(5,3),G0(5,4),G0(5,1),G0(6,2),G0(6,4),G0(6,1)) ENDIF C C *** CALCULATE MULTICOMPONENT ACTIVITY COEFFICIENTS ******************* C AGAMA = 0.511*(298.0/TEMP)**1.5 ! Debye Huckel const. at T SION = SQRT(IONIC) H = AGAMA*SION/(1+SION) C DO 100 I=1,3 F1(I)=0.0 F2(I)=0.0 100 CONTINUE F2(4)=0.0 C DO 110 I=1,3,2 ZPL = Z(I) MPL = MOLAL(I)/WATER DO 110 J=2,4 ZMI = Z(J+3) CH = 0.25*(ZPL+ZMI)*(ZPL+ZMI)/IONIC XIJ = CH*MPL YJI = CH*MOLAL(J+3)/WATER F1(I) = F1(I) + SNGL(YJI*(G0(I,J) + ZPL*ZMI*H)) F2(J) = F2(J) + SNGL(XIJ*(G0(I,J) + ZPL*ZMI*H)) 110 CONTINUE C C *** LOG10 OF ACTIVITY COEFFICIENTS *********************************** C C GAMA(01) = G(2,1)*ZZ(01) ! NACL C GAMA(02) = G(2,2)*ZZ(02) ! NA2SO4 C GAMA(03) = G(2,4)*ZZ(03) ! NANO3 GAMA(04) = G(3,2)*ZZ(04) ! (NH4)2SO4 GAMA(05) = G(3,4)*ZZ(05) ! NH4NO3 C GAMA(06) = G(3,1)*ZZ(06) ! NH4CL GAMA(07) = G(1,2)*ZZ(07) ! 2H-SO4 GAMA(08) = G(1,3)*ZZ(08) ! H-HSO4 GAMA(09) = G(3,3)*ZZ(09) ! NH4HSO4 GAMA(10) = G(1,4)*ZZ(10) ! HNO3 C GAMA(11) = G(1,1)*ZZ(11) ! HCL C GAMA(12) = G(2,3)*ZZ(12) ! NAHSO4 GAMA(13) = 0.20*(3.0*GAMA(04)+2.0*GAMA(09)) ! LC ; SCAPE CC GAMA(13) = 0.50*(GAMA(04)+GAMA(09)) ! LC ; SEQUILIB CC GAMA(13) = 0.25*(3.0*GAMA(04)+GAMA(07)) ! LC ; AIM C C *** CONVERT LOG (GAMA) COEFFICIENTS TO GAMA ************************** C DO 200 I=7,10 GAMA(I)=MAX(-5.0d0, MIN(GAMA(I),5.0d0) ) ! F77 LIBRARY ROUTINE GAMA(I)=10.0**GAMA(I) C GAMA(I)=EXP(LN10*GAMA(I)) C GAMA(I)=EX10(SNGL(GAMA(I)), 5.0) ! CUTOFF SET TO [-5,5] C GAMA(I) = GAMIN(I)*(1.0-URF) + URF*GAMA(I) ! Under-relax GAMA's 200 CONTINUE C GAMA(4)=MAX(-5.0d0, MIN(GAMA(4),5.0d0) ) ! F77 LIBRARY ROUTINE GAMA(4)=10.0**GAMA(4) C GAMA(I)=EXP(LN10*GAMA(I)) C GAMA(4)=EX10(SNGL(GAMA(4)), 5.0) ! CUTOFF SET TO [-5,5] C GAMA(4) = GAMIN(4)*(1.0-URF) + URF*GAMA(4) ! Under-relax GAMA's C GAMA(5)=MAX(-5.0d0, MIN(GAMA(5),5.0d0) ) ! F77 LIBRARY ROUTINE GAMA(5)=10.0**GAMA(5) C GAMA(I)=EXP(LN10*GAMA(I)) C GAMA(5)=EX10(SNGL(GAMA(5)), 5.0) ! CUTOFF SET TO [-5,5] C GAMA(5) = GAMIN(5)*(1.0-URF) + URF*GAMA(I) ! Under-relax GAMA's C GAMA(13)=MAX(-5.0d0, MIN(GAMA(13),5.0d0) ) ! F77 LIBRARY ROUTINE GAMA(13)=10.0**GAMA(13) C GAMA(I)=EXP(LN10*GAMA(I)) C GAMA(13)=EX10(SNGL(GAMA(13)), 5.0) ! CUTOFF SET TO [-5,5] C GAMA(13) = GAMIN(13)*(1.0-URF) + URF*GAMA(13) ! Under-relax GAMA's C C *** SETUP ACTIVITY CALCULATION FLAGS ********************************* C C OUTER CALCULATION LOOP ; ONLY IF FRST=.TRUE. C IF (FRST) THEN ERROU = ZERO ! CONVERGENCE CRITERION DO 210 I=7,10 ERROU=MAX(ERROU, ABS((GAMOU(I)-GAMA(I))/GAMOU(I))) 210 CONTINUE ERROU=MAX(ERROU, ABS((GAMOU(4)-GAMA(4))/GAMOU(4))) ERROU=MAX(ERROU, ABS((GAMOU(5)-GAMA(5))/GAMOU(5))) ERROU=MAX(ERROU, ABS((GAMOU(13)-GAMA(13))/GAMOU(13))) C CALAOU = ERROU .GE. EPSACT ! SETUP FLAGS FRST =.FALSE. ENDIF C C INNER CALCULATION LOOP ; ALWAYS C ERRIN = ZERO ! CONVERGENCE CRITERION DO 220 I=7,10 ERRIN = MAX (ERRIN, ABS((GAMIN(I)-GAMA(I))/GAMIN(I))) 220 CONTINUE ERRIN = MAX (ERRIN, ABS((GAMIN(4)-GAMA(4))/GAMIN(4))) ERRIN = MAX (ERRIN, ABS((GAMIN(5)-GAMA(5))/GAMIN(5))) ERRIN = MAX (ERRIN, ABS((GAMIN(13)-GAMA(13))/GAMIN(13))) CALAIN = ERRIN .GE. EPSACT C ICLACT = ICLACT + 1 ! Increment ACTIVITY call counter C C *** END OF SUBROUTINE ACTIVITY **************************************** C RETURN END C C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE CALCACT1 C *** CALCULATES MULTI-COMPONENT ACTIVITY COEFFICIENTS FROM BROMLEYS C METHOD FOR AN AMMONIUM-SULFATE AEROSOL SYSTEM. C THE BINARY ACTIVITY COEFFICIENTS ARE CALCULATED BY C KUSIK-MEISNER RELATION (SUBROUTINE KMTAB or SUBROUTINE KMFUL1). C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCACT1 INCLUDE 'isrpia.inc' C REAL EX10, URF REAL G0(6,4),ZPL,ZMI,AGAMA,SION,H,CH,F1(3),F2(4) DOUBLE PRECISION MPL, XIJ, YJI PARAMETER (URF=0.5) DATA G0/24*0D0/ C PARAMETER (LN10=2.30258509299404568402D0) C G(I,J)= (F1(I)/Z(I) + F2(J)/Z(J+3)) / (Z(I)+Z(J+3)) - H C C *** SAVE ACTIVITIES IN OLD ARRAY ************************************* C IF (FRST) THEN ! Outer loop DO 10 I=7,9 GAMOU(I) = GAMA(I) 10 CONTINUE GAMOU(4) = GAMA(4) C GAMOU(5) = GAMA(5) GAMOU(13) = GAMA(13) ENDIF C DO 20 I=7,9 ! Inner loop GAMIN(I) = GAMA(I) 20 CONTINUE GAMIN(4) = GAMA(4) C GAMIN(5) = GAMA(5) GAMIN(13) = GAMA(13) C C *** CALCULATE IONIC ACTIVITY OF SOLUTION ***************************** C IONIC=0.0 MOLAL(2) = ZERO MOLAL(4) = ZERO MOLAL(7) = ZERO DO 30 I=1,7 IONIC=IONIC + MOLAL(I)*Z(I)*Z(I) 30 CONTINUE IONIC = MAX(MIN(0.5*IONIC/WATER,100.d0), TINY) C C *** CALCULATE BINARY ACTIVITY COEFFICIENTS *************************** C C G0(1,1)=G11;G0(1,2)=G07;G0(1,3)=G08;G0(1,4)=G10;G0(2,1)=G01;G0(2,2)=G02 C G0(2,3)=G12;G0(2,4)=G03;G0(3,1)=G06;G0(3,2)=G04;G0(3,3)=G09;G0(3,4)=G05 C IF (IACALC.EQ.0) THEN ! K.M.; FULL CALL KMFUL1 (IONIC, SNGL(TEMP),G0(3,2),G0(1,2), & G0(1,3),G0(3,3)) ELSE ! K.M.; TABULATED CALL KMTAB (IONIC, SNGL(TEMP),G0(2,1),G0(2,2),G0(2,4), & G0(3,2),G0(3,4),G0(3,1),G0(1,2),G0(1,3),G0(3,3), & G0(1,4),G0(1,1),G0(2,3),G0(4,4),G0(4,1),G0(5,2), & G0(5,3),G0(5,4),G0(5,1),G0(6,2),G0(6,4),G0(6,1)) ENDIF C C *** CALCULATE MULTICOMPONENT ACTIVITY COEFFICIENTS ******************* C AGAMA = 0.511*(298.0/TEMP)**1.5 ! Debye Huckel const. at T SION = SQRT(IONIC) H = AGAMA*SION/(1+SION) C DO 100 I=1,3 F1(I)=0.0 F2(I)=0.0 100 CONTINUE F2(4)=0.0 C DO 110 I=1,3,2 ZPL = Z(I) MPL = MOLAL(I)/WATER DO 110 J=2,3 ZMI = Z(J+3) CH = 0.25*(ZPL+ZMI)*(ZPL+ZMI)/IONIC XIJ = CH*MPL YJI = CH*MOLAL(J+3)/WATER F1(I) = F1(I) + SNGL(YJI*(G0(I,J) + ZPL*ZMI*H)) F2(J) = F2(J) + SNGL(XIJ*(G0(I,J) + ZPL*ZMI*H)) 110 CONTINUE C C *** LOG10 OF ACTIVITY COEFFICIENTS *********************************** C C GAMA(01) = G(2,1)*ZZ(01) ! NACL C GAMA(02) = G(2,2)*ZZ(02) ! NA2SO4 C GAMA(03) = G(2,4)*ZZ(03) ! NANO3 GAMA(04) = G(3,2)*ZZ(04) ! (NH4)2SO4 C GAMA(05) = G(3,4)*ZZ(05) ! NH4NO3 C GAMA(06) = G(3,1)*ZZ(06) ! NH4CL GAMA(07) = G(1,2)*ZZ(07) ! 2H-SO4 GAMA(08) = G(1,3)*ZZ(08) ! H-HSO4 GAMA(09) = G(3,3)*ZZ(09) ! NH4HSO4 C GAMA(09) = 0.5*(GAMA(04)+GAMA(07)) ! NH4HSO4 ; AIM (Wexler & Seinfeld, 1991) C GAMA(10) = G(1,4)*ZZ(10) ! HNO3 C GAMA(11) = G(1,1)*ZZ(11) ! HCL C GAMA(12) = G(2,3)*ZZ(12) ! NAHSO4 GAMA(13) = 0.20*(3.0*GAMA(04)+2.0*GAMA(09)) ! LC ; SCAPE CC GAMA(13) = 0.50*(GAMA(04)+GAMA(09)) ! LC ; SEQUILIB CC GAMA(13) = 0.25*(3.0*GAMA(04)+GAMA(07)) ! LC ; AIM C C *** CONVERT LOG (GAMA) COEFFICIENTS TO GAMA ************************** C DO 200 I=7,9 GAMA(I)=MAX(-5.0d0, MIN(GAMA(I),5.0d0) ) ! F77 LIBRARY ROUTINE GAMA(I)=10.0**GAMA(I) C GAMA(I)=EXP(LN10*GAMA(I)) C GAMA(I)=EX10(SNGL(GAMA(I)), 5.0) ! CUTOFF SET TO [-5,5] C GAMA(I) = GAMIN(I)*(1.0-URF) + URF*GAMA(I) ! Under-relax GAMA's 200 CONTINUE C GAMA(4)=MAX(-5.0d0, MIN(GAMA(4),5.0d0) ) ! F77 LIBRARY ROUTINE GAMA(4)=10.0**GAMA(4) C GAMA(I)=EXP(LN10*GAMA(I)) C GAMA(4)=EX10(SNGL(GAMA(4)), 5.0) ! CUTOFF SET TO [-5,5] C GAMA(4) = GAMIN(4)*(1.0-URF) + URF*GAMA(4) ! Under-relax GAMA's C C GAMA(5)=MAX(-5.0d0, MIN(GAMA(5),5.0d0) ) ! F77 LIBRARY ROUTINE C GAMA(5)=10.0**GAMA(5) CC GAMA(I)=EXP(LN10*GAMA(I)) C GAMA(5)=EX10(SNGL(GAMA(I)), 5.0) ! CUTOFF SET TO [-5,5] C GAMA(5) = GAMIN(5)*(1.0-URF) + URF*GAMA(I) ! Under-relax GAMA's C GAMA(13)=MAX(-5.0d0, MIN(GAMA(13),5.0d0) ) ! F77 LIBRARY ROUTINE GAMA(13)=10.0**GAMA(13) C GAMA(I)=EXP(LN10*GAMA(I)) C GAMA(13)=EX10(SNGL(GAMA(13)), 5.0) ! CUTOFF SET TO [-5,5] C GAMA(13) = GAMIN(13)*(1.0-URF) + URF*GAMA(13) ! Under-relax GAMA's C C *** SETUP ACTIVITY CALCULATION FLAGS ********************************* C C OUTER CALCULATION LOOP ; ONLY IF FRST=.TRUE. C IF (FRST) THEN ERROU = ZERO ! CONVERGENCE CRITERION DO 210 I=7,9 ERROU=MAX(ERROU, ABS((GAMOU(I)-GAMA(I))/GAMOU(I))) 210 CONTINUE ERROU=MAX(ERROU, ABS((GAMOU(4)-GAMA(4))/GAMOU(4))) C ERROU=MAX(ERROU, ABS((GAMOU(5)-GAMA(5))/GAMOU(5))) ERROU=MAX(ERROU, ABS((GAMOU(13)-GAMA(13))/GAMOU(13))) C CALAOU = ERROU .GE. EPSACT ! SETUP FLAGS FRST =.FALSE. ENDIF C C INNER CALCULATION LOOP ; ALWAYS C ERRIN = ZERO ! CONVERGENCE CRITERION DO 220 I=7,9 ERRIN = MAX (ERRIN, ABS((GAMIN(I)-GAMA(I))/GAMIN(I))) 220 CONTINUE ERRIN = MAX (ERRIN, ABS((GAMIN(4)-GAMA(4))/GAMIN(4))) C ERRIN = MAX (ERRIN, ABS((GAMIN(5)-GAMA(5))/GAMIN(5))) ERRIN = MAX (ERRIN, ABS((GAMIN(13)-GAMA(13))/GAMIN(13))) CALAIN = ERRIN .GE. EPSACT C ICLACT = ICLACT + 1 ! Increment ACTIVITY call counter C C *** END OF SUBROUTINE ACTIVITY **************************************** C RETURN END C C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE RSTGAM C *** RESETS ACTIVITY COEFFICIENT ARRAYS TO DEFAULT VALUE OF 0.1 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE RSTGAM INCLUDE 'isrpia.inc' C DO 10 I=1, NPAIR GAMA(I) = 0.1 10 CONTINUE C C *** END OF SUBROUTINE RSTGAM ****************************************** C RETURN END C C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE RSTGAMP C *** RESETS ACTIVITY COEFFICIENT ARRAYS TO DEFAULT VALUE OF 0.1 IF C *** GREATER THAN THE THRESHOLD VALUE. C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE RSTGAMP INCLUDE 'isrpia.inc' DOUBLE PRECISION GMAX, GTHRESH INTEGER I C GTHRESH = 100.D0 GMAX = 0.1D0 DO I=1, NPAIR GMAX = MAX(GMAX,GAMA(I)) END DO IF ((GMAX) .GT. (GTHRESH)) THEN DO I = 1,NPAIR GAMA(I) = 1.D-1 GAMIN(I) = GREAT GAMOU(I) = GREAT END DO CALAOU = .TRUE. FRST = .TRUE. ENDIF C END SUBROUTINE RSTGAMP C C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE KMFUL4 C *** CALCULATES BINARY ACTIVITY COEFFICIENTS BY KUSIK-MEISSNER METHOD C FOR AN AMMONIUM-SULFATE-NITRATE-CHLORIDE-SODIUM-CALCIUM-POTASSIUM-MAGNESIUM C AEROSOL SYSTEM. C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE KMFUL4 (IONIC,TEMP,G01,G02,G03,G04,G05,G06,G07,G08,G09, & G10,G11,G12,G15,G16,G17,G18,G19,G20, & G21,G22,G23) REAL Ionic, TEMP DATA Z01,Z02,Z03,Z04,Z05,Z06,Z07,Z08,Z10,Z11,Z15,Z16,Z17,Z19,Z20, & Z21,Z22,Z23/1, 2, 1, 2, 1, 1, 2, 1, 1, 1, 2, 2, 2, 1, 1, 4, & 2, 2/ C SION = SQRT(IONIC) C C *** Coefficients at 25 oC C CALL MKBI(2.230, IONIC, SION, Z01, G01) CALL MKBI(-0.19, IONIC, SION, Z02, G02) CALL MKBI(-0.39, IONIC, SION, Z03, G03) CALL MKBI(-0.25, IONIC, SION, Z04, G04) CALL MKBI(-1.15, IONIC, SION, Z05, G05) CALL MKBI(0.820, IONIC, SION, Z06, G06) CALL MKBI(-.100, IONIC, SION, Z07, G07) CALL MKBI(8.000, IONIC, SION, Z08, G08) CALL MKBI(2.600, IONIC, SION, Z10, G10) CALL MKBI(6.000, IONIC, SION, Z11, G11) CALL MKBI(0.930, IONIC, SION, Z15, G15) CALL MKBI(2.400, IONIC, SION, Z16, G16) CALL MKBI(-0.25, IONIC, SION, Z17, G17) CALL MKBI(-2.33, IONIC, SION, Z19, G19) CALL MKBI(0.920, IONIC, SION, Z20, G20) CALL MKBI(0.150, IONIC, SION, Z21, G21) CALL MKBI(2.320, IONIC, SION, Z22, G22) CALL MKBI(2.900, IONIC, SION, Z23, G23) C C *** Correct for T other than 298 K C TI = TEMP-273.0 TC = TI-25.0 IF (ABS(TC) .GT. 1.0) THEN CF1 = 1.125-0.005*TI CF2 = (0.125-0.005*TI)*(0.039*IONIC**0.92-0.41*SION/(1.+SION)) G01 = CF1*G01 - CF2*Z01 G02 = CF1*G02 - CF2*Z02 G03 = CF1*G03 - CF2*Z03 G04 = CF1*G04 - CF2*Z04 G05 = CF1*G05 - CF2*Z05 G06 = CF1*G06 - CF2*Z06 G07 = CF1*G07 - CF2*Z07 G08 = CF1*G08 - CF2*Z08 G10 = CF1*G10 - CF2*Z10 G11 = CF1*G11 - CF2*Z11 G15 = CF1*G15 - CF2*Z15 G16 = CF1*G16 - CF2*Z16 G17 = CF1*G17 - CF2*Z17 G19 = CF1*G19 - CF2*Z19 G20 = CF1*G20 - CF2*Z20 G21 = CF1*G21 - CF2*Z21 G22 = CF1*G22 - CF2*Z22 G23 = CF1*G23 - CF2*Z23 ENDIF C G09 = G06 + G08 - G11 G12 = G01 + G08 - G11 G18 = G08 + G20 - G11 C C *** Return point ; End of subroutine C RETURN END C C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE KMFUL3 C *** CALCULATES BINARY ACTIVITY COEFFICIENTS BY KUSIK-MEISSNER METHOD C FOR AN AMMONIUM-SULFATE-NITRATE-CHLORIDE-SODIUM AEROSOL SYSTEM. C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE KMFUL3 (IONIC,TEMP,G01,G02,G03,G04,G05,G06,G07,G08,G09, & G10,G11,G12) REAL Ionic, TEMP DATA Z01,Z02,Z03,Z04,Z05,Z06,Z07,Z08,Z10,Z11 & /1, 2, 1, 2, 1, 1, 2, 1, 1, 1/ C SION = SQRT(IONIC) C C *** Coefficients at 25 oC C CALL MKBI(2.230, IONIC, SION, Z01, G01) CALL MKBI(-0.19, IONIC, SION, Z02, G02) CALL MKBI(-0.39, IONIC, SION, Z03, G03) CALL MKBI(-0.25, IONIC, SION, Z04, G04) CALL MKBI(-1.15, IONIC, SION, Z05, G05) CALL MKBI(0.820, IONIC, SION, Z06, G06) CALL MKBI(-.100, IONIC, SION, Z07, G07) CALL MKBI(8.000, IONIC, SION, Z08, G08) CALL MKBI(2.600, IONIC, SION, Z10, G10) CALL MKBI(6.000, IONIC, SION, Z11, G11) C C *** Correct for T other than 298 K C TI = TEMP-273.0 TC = TI-25.0 IF (ABS(TC) .GT. 1.0) THEN CF1 = 1.125-0.005*TI CF2 = (0.125-0.005*TI)*(0.039*IONIC**0.92-0.41*SION/(1.+SION)) G01 = CF1*G01 - CF2*Z01 G02 = CF1*G02 - CF2*Z02 G03 = CF1*G03 - CF2*Z03 G04 = CF1*G04 - CF2*Z04 G05 = CF1*G05 - CF2*Z05 G06 = CF1*G06 - CF2*Z06 G07 = CF1*G07 - CF2*Z07 G08 = CF1*G08 - CF2*Z08 G10 = CF1*G10 - CF2*Z10 G11 = CF1*G11 - CF2*Z11 ENDIF C G09 = G06 + G08 - G11 G12 = G01 + G08 - G11 C C *** Return point ; End of subroutine C RETURN END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE KMFUL2 C *** CALCULATES BINARY ACTIVITY COEFFICIENTS BY KUSIK-MEISSNER METHOD C FOR AN AMMONIUM-SULFATE-NITRATE AEROSOL SYSTEM. C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE KMFUL2 (IONIC,TEMP,G04,G05,G07,G08,G09,G10) REAL Ionic, TEMP REAL G06, G11 DATA Z01,Z02,Z03,Z04,Z05,Z06,Z07,Z08,Z10,Z11 & /1, 2, 1, 2, 1, 1, 2, 1, 1, 1/ C SION = SQRT(IONIC) C C *** Coefficients at 25 oC C C CALL MKBI(2.230, IONIC, SION, Z01, G01) C CALL MKBI(-0.19, IONIC, SION, Z02, G02) C CALL MKBI(-0.39, IONIC, SION, Z03, G03) CALL MKBI(-0.25, IONIC, SION, Z04, G04) CALL MKBI(-1.15, IONIC, SION, Z05, G05) CALL MKBI(0.820, IONIC, SION, Z06, G06) CALL MKBI(-.100, IONIC, SION, Z07, G07) CALL MKBI(8.000, IONIC, SION, Z08, G08) CALL MKBI(2.600, IONIC, SION, Z10, G10) CALL MKBI(6.000, IONIC, SION, Z11, G11) C C *** Correct for T other than 298 K C TI = TEMP-273.0 TC = TI-25.0 IF (ABS(TC) .GT. 1.0) THEN CF1 = 1.125-0.005*TI CF2 = (0.125-0.005*TI)*(0.039*IONIC**0.92-0.41*SION/(1.+SION)) C G01 = CF1*G01 - CF2*Z01 C G02 = CF1*G02 - CF2*Z02 C G03 = CF1*G03 - CF2*Z03 G04 = CF1*G04 - CF2*Z04 G05 = CF1*G05 - CF2*Z05 G06 = CF1*G06 - CF2*Z06 G07 = CF1*G07 - CF2*Z07 G08 = CF1*G08 - CF2*Z08 G10 = CF1*G10 - CF2*Z10 G11 = CF1*G11 - CF2*Z11 ENDIF C C ! original method of calculating G09 G09 = G06 + G08 - G11 C ! slc.debug C ! G09 = G05 + G08 - G10 C G12 = G01 + G08 - G11 C C *** Return point ; End of subroutine C RETURN END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE KMFUL1 C *** CALCULATES BINARY ACTIVITY COEFFICIENTS BY KUSIK-MEISSNER METHOD C FOR AN AMMONIUM-SULFATE AEROSOL SYSTEM. C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE KMFUL1 (IONIC,TEMP,G04,G07,G08,G09) REAL Ionic, TEMP REAL G06, G08, G11 DATA Z01,Z02,Z03,Z04,Z05,Z06,Z07,Z08,Z10,Z11 & /1, 2, 1, 2, 1, 1, 2, 1, 1, 1/ C SION = SQRT(IONIC) C C *** Coefficients at 25 oC C C CALL MKBI(2.230, IONIC, SION, Z01, G01) C CALL MKBI(-0.19, IONIC, SION, Z02, G02) C CALL MKBI(-0.39, IONIC, SION, Z03, G03) CALL MKBI(-0.25, IONIC, SION, Z04, G04) C CALL MKBI(-1.15, IONIC, SION, Z05, G05) CALL MKBI(0.820, IONIC, SION, Z06, G06) CALL MKBI(-.100, IONIC, SION, Z07, G07) CALL MKBI(8.000, IONIC, SION, Z08, G08) C CALL MKBI(2.600, IONIC, SION, Z10, G10) CALL MKBI(6.000, IONIC, SION, Z11, G11) C C *** Correct for T other than 298 K C TI = TEMP-273.0 TC = TI-25.0 IF (ABS(TC) .GT. 1.0) THEN CF1 = 1.125-0.005*TI CF2 = (0.125-0.005*TI)*(0.039*IONIC**0.92-0.41*SION/(1.+SION)) C G01 = CF1*G01 - CF2*Z01 C G02 = CF1*G02 - CF2*Z02 C G03 = CF1*G03 - CF2*Z03 G04 = CF1*G04 - CF2*Z04 C G05 = CF1*G05 - CF2*Z05 G06 = CF1*G06 - CF2*Z06 G07 = CF1*G07 - CF2*Z07 G08 = CF1*G08 - CF2*Z08 C G10 = CF1*G10 - CF2*Z10 G11 = CF1*G11 - CF2*Z11 ENDIF C C ! Correction - G09 is G0(3,3), which is not calculated in CALCACT1 C ! Use G09 from CALCACT3 to represent G09 (slc.2.2012) G09 = G06 + G08 - G11 C G09 = G05 + G08 - G10 ! CALCULATED IN CALCACT1 C G12 = G01 + G08 - G11 C C *** Return point ; End of subroutine C RETURN END C C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE MKBI C *** CALCULATES BINARY ACTIVITY COEFFICIENTS BY KUSIK-MEISSNER METHOD. C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE MKBI(Q,IONIC,SION,ZIP,BI) C REAL IONIC C B=.75-.065*Q C= 1.0 IF (IONIC.LT.6.0) C=1.+.055*Q*EXP(-.023*IONIC*IONIC*IONIC) XX=-0.5107*SION/(1.+C*SION) BI=(1.+B*(1.+.1*IONIC)**Q-B) BI=ZIP*ALOG10(BI) + ZIP*XX C RETURN END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE KMTAB C *** CALCULATES BINARY ACTIVITY COEFFICIENTS BY KUSIK-MEISSNER METHOD. C THE COMPUTATIONS HAVE BEEN PERFORMED AND THE RESULTS ARE STORED IN C LOOKUP TABLES. THE IONIC ACTIVITY 'IONIC' IS INPUT, AND THE ARRAY C 'BINARR' IS RETURNED WITH THE BINARY COEFFICIENTS. C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE KMTAB (IN,TEMP,G01,G02,G03,G04,G05,G06,G07,G08,G09,G10, & G11,G12,G15,G16,G17,G18,G19,G20,G21,G22,G23) REAL IN, Temp, binarray (23) C C *** Find temperature range C IND = NINT((TEMP-198.0)/25.0) + 1 IND = MIN(MAX(IND,1),6) C C *** Call appropriate routine C IF (IND.EQ.1) THEN CALL KM198 (IN,binarray) ELSEIF (IND.EQ.2) THEN CALL KM223 (IN,binarray) ELSEIF (IND.EQ.3) THEN CALL KM248 (IN,binarray) ELSEIF (IND.EQ.4) THEN CALL KM273 (IN,binarray) ELSEIF (IND.EQ.5) THEN CALL KM298 (IN,binarray) ELSE CALL KM323 (IN,binarray) ENDIF C G01 = binarray(01) G02 = binarray(02) G03 = binarray(03) G04 = binarray(04) G05 = binarray(05) G06 = binarray(06) G07 = binarray(07) G08 = binarray(08) G09 = binarray(09) G10 = binarray(10) G11 = binarray(11) G12 = binarray(12) G13 = binarray(13) G14 = binarray(14) G15 = binarray(15) G16 = binarray(16) G17 = binarray(17) G18 = binarray(18) G19 = binarray(19) G20 = binarray(20) G21 = binarray(21) G22 = binarray(22) G23 = binarray(23) C C *** Return point; End of subroutine C RETURN END C INTEGER FUNCTION IBACPOS(IN) CC CC Compute the index in the binary activity coefficient array CC based on the input ionic strength. CC CC Chris Nolte, 6/16/05 CC C implicit none C real IN C IF (IN .LE. 0.300000E+02) THEN C ibacpos = MIN(NINT( 0.200000E+02*IN) + 1, 600) C ELSE C ibacpos = 600+NINT( 0.200000E+01*IN- 0.600000E+02) C ENDIF C ibacpos = min(ibacpos, 741) C return C end C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE KM198 C *** CALCULATES BINARY ACTIVITY COEFFICIENTS BY KUSIK-MEISSNER METHOD. C THE COMPUTATIONS HAVE BEEN PERFORMED AND THE RESULTS ARE STORED IN C LOOKUP TABLES. THE IONIC ACTIVITY 'IN' IS INPUT, AND THE ARRAY C 'BINARR' IS RETURNED WITH THE BINARY COEFFICIENTS. C C TEMPERATURE IS 198K C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE KM198 (IONIC, BINARR) C C *** Common block definition C COMMON /KMC198/ &BNC01M( 561),BNC02M( 561),BNC03M( 561),BNC04M( 561), &BNC05M( 561),BNC06M( 561),BNC07M( 561),BNC08M( 561), &BNC09M( 561),BNC10M( 561),BNC11M( 561),BNC12M( 561), &BNC13M( 561),BNC14M( 561),BNC15M( 561),BNC16M( 561), &BNC17M( 561),BNC18M( 561),BNC19M( 561),BNC20M( 561), &BNC21M( 561),BNC22M( 561),BNC23M( 561) REAL Binarr (23), Ionic C C *** Find position in arrays for bincoef C IF (Ionic.LE. 0.200000E+02) THEN ipos = MIN(NINT( 0.200000E+02*Ionic) + 1, 400) ELSE ipos = 400+NINT( 0.200000E+01*Ionic- 0.400000E+02) ENDIF ipos = min(ipos, 561) C C *** Assign values to return array C Binarr(01) = BNC01M(ipos) Binarr(02) = BNC02M(ipos) Binarr(03) = BNC03M(ipos) Binarr(04) = BNC04M(ipos) Binarr(05) = BNC05M(ipos) Binarr(06) = BNC06M(ipos) Binarr(07) = BNC07M(ipos) Binarr(08) = BNC08M(ipos) Binarr(09) = BNC09M(ipos) Binarr(10) = BNC10M(ipos) Binarr(11) = BNC11M(ipos) Binarr(12) = BNC12M(ipos) Binarr(13) = BNC13M(ipos) Binarr(14) = BNC14M(ipos) Binarr(15) = BNC15M(ipos) Binarr(16) = BNC16M(ipos) Binarr(17) = BNC17M(ipos) Binarr(18) = BNC18M(ipos) Binarr(19) = BNC19M(ipos) Binarr(20) = BNC20M(ipos) Binarr(21) = BNC21M(ipos) Binarr(22) = BNC22M(ipos) Binarr(23) = BNC23M(ipos) C C *** Return point ; End of subroutine C RETURN END BLOCK DATA KMCF198 C C *** Common block definition C COMMON /KMC198/ &BNC01M( 561),BNC02M( 561),BNC03M( 561),BNC04M( 561), &BNC05M( 561),BNC06M( 561),BNC07M( 561),BNC08M( 561), &BNC09M( 561),BNC10M( 561),BNC11M( 561),BNC12M( 561), &BNC13M( 561),BNC14M( 561),BNC15M( 561),BNC16M( 561), &BNC17M( 561),BNC18M( 561),BNC19M( 561),BNC20M( 561), &BNC21M( 561),BNC22M( 561),BNC23M( 561) C C *** NaCl C DATA BNC01M/ &-0.050,-0.103,-0.127,-0.142,-0.154,-0.162,-0.169,-0.174,-0.178, &-0.181,-0.184,-0.186,-0.188,-0.189,-0.190,-0.191,-0.191,-0.192, &-0.192,-0.191,-0.191,-0.191,-0.190,-0.189,-0.188,-0.188,-0.187, &-0.185,-0.184,-0.183,-0.182,-0.181,-0.179,-0.178,-0.176,-0.175, &-0.173,-0.172,-0.170,-0.169,-0.167,-0.166,-0.164,-0.162,-0.161, &-0.159,-0.157,-0.156,-0.154,-0.152,-0.151,-0.149,-0.147,-0.146, &-0.144,-0.142,-0.140,-0.139,-0.137,-0.135,-0.134,-0.132,-0.130, &-0.128,-0.127,-0.125,-0.123,-0.121,-0.120,-0.118,-0.116,-0.114, &-0.112,-0.111,-0.109,-0.107,-0.105,-0.103,-0.101,-0.099,-0.098, &-0.096,-0.094,-0.092,-0.090,-0.088,-0.086,-0.084,-0.082,-0.080, &-0.078,-0.075,-0.073,-0.071,-0.069,-0.067,-0.065,-0.063,-0.060, &-0.058,-0.056,-0.054,-0.051,-0.049,-0.047,-0.045,-0.042,-0.040, &-0.038,-0.035,-0.033,-0.031,-0.028,-0.026,-0.024,-0.021,-0.019, &-0.016,-0.014,-0.012,-0.009,-0.007,-0.004,-0.002, 0.000, 0.003, & 0.005, 0.008, 0.010, 0.012, 0.015, 0.017, 0.020, 0.022, 0.024, & 0.027, 0.029, 0.032, 0.034, 0.036, 0.039, 0.041, 0.044, 0.046, & 0.048, 0.051, 0.053, 0.055, 0.058, 0.060, 0.063, 0.065, 0.067, & 0.070, 0.072, 0.074, 0.077, 0.079, 0.081, 0.084, 0.086, 0.088, & 0.091, 0.093, 0.095, 0.098, 0.100, 0.102, 0.105, 0.107, 0.109, & 0.112, 0.114, 0.116, 0.118, 0.121, 0.123, 0.125, 0.127, 0.130, & 0.132, 0.134, 0.137, 0.139, 0.141, 0.143, 0.146, 0.148, 0.150, & 0.152, 0.154, 0.157, 0.159, 0.161, 0.163, 0.166, 0.168, 0.170, & 0.172, 0.174, 0.176, 0.179, 0.181, 0.183, 0.185, 0.187, 0.190, & 0.192, 0.194, 0.196, 0.198, 0.200, 0.202, 0.205, 0.207, 0.209, & 0.211, 0.213, 0.215, 0.217, 0.219, 0.222, 0.224, 0.226, 0.228, & 0.230, 0.232, 0.234, 0.236, 0.238, 0.240, 0.242, 0.244, 0.246, & 0.249, 0.251, 0.253, 0.255, 0.257, 0.259, 0.261, 0.263, 0.265, & 0.267, 0.269, 0.271, 0.273, 0.275, 0.277, 0.279, 0.281, 0.283, & 0.285, 0.287, 0.289, 0.291, 0.293, 0.295, 0.297, 0.299, 0.301, & 0.303, 0.304, 0.306, 0.308, 0.310, 0.312, 0.314, 0.316, 0.318, & 0.320, 0.322, 0.324, 0.326, 0.328, 0.329, 0.331, 0.333, 0.335, & 0.337, 0.339, 0.341, 0.343, 0.344, 0.346, 0.348, 0.350, 0.352, & 0.354, 0.356, 0.357, 0.359, 0.361, 0.363, 0.365, 0.367, 0.368, & 0.370, 0.372, 0.374, 0.376, 0.377, 0.379, 0.381, 0.383, 0.385, & 0.386, 0.388, 0.390, 0.392, 0.393, 0.395, 0.397, 0.399, 0.401, & 0.402, 0.404, 0.406, 0.408, 0.409, 0.411, 0.413, 0.414, 0.416, & 0.418, 0.420, 0.421, 0.423, 0.425, 0.426, 0.428, 0.430, 0.432, & 0.433, 0.435, 0.437, 0.438, 0.440, 0.442, 0.443, 0.445, 0.447, & 0.448, 0.450, 0.452, 0.453, 0.455, 0.457, 0.458, 0.460, 0.461, & 0.463, 0.465, 0.466, 0.468, 0.470, 0.471, 0.473, 0.474, 0.476, & 0.478, 0.479, 0.481, 0.482, 0.484, 0.486, 0.487, 0.489, 0.490, & 0.492, 0.493, 0.495, 0.497, 0.498, 0.500, 0.501, 0.503, 0.504, & 0.506, 0.508, 0.509, 0.511, 0.512, 0.514, 0.515, 0.517, 0.518, & 0.520, 0.521, 0.523, 0.524, 0.526, 0.527, 0.529, 0.530, 0.532, & 0.533, 0.535, 0.536, 0.538, 0.554, 0.568, 0.582, 0.596, 0.610, & 0.623, 0.636, 0.649, 0.661, 0.674, 0.686, 0.698, 0.709, 0.721, & 0.732, 0.743, 0.754, 0.765, 0.775, 0.786, 0.796, 0.806, 0.815, & 0.825, 0.834, 0.844, 0.853, 0.862, 0.870, 0.879, 0.887, 0.896, & 0.904, 0.912, 0.920, 0.928, 0.935, 0.943, 0.950, 0.957, 0.964, & 0.971, 0.978, 0.985, 0.992, 0.998, 1.005, 1.011, 1.017, 1.023, & 1.029, 1.035, 1.041, 1.047, 1.052, 1.058, 1.063, 1.068, 1.074, & 1.079, 1.084, 1.089, 1.094, 1.099, 1.103, 1.108, 1.112, 1.117, & 1.121, 1.126, 1.130, 1.134, 1.138, 1.142, 1.146, 1.150, 1.154, & 1.158, 1.161, 1.165, 1.169, 1.172, 1.175, 1.179, 1.182, 1.185, & 1.189, 1.192, 1.195, 1.198, 1.201, 1.204, 1.206, 1.209, 1.212, & 1.215, 1.217, 1.220, 1.222, 1.225, 1.227, 1.230, 1.232, 1.234, & 1.236, 1.239, 1.241, 1.243, 1.245, 1.247, 1.249, 1.251, 1.253, & 1.254, 1.256, 1.258, 1.260, 1.261, 1.263, 1.264, 1.266, 1.267, & 1.269, 1.270, 1.272, 1.273, 1.274, 1.276, 1.277, 1.278, 1.279, & 1.280, 1.281, 1.283, 1.284, 1.285, 1.286, 1.286, 1.287, 1.288, & 1.289, 1.290, 1.291, 1.291, 1.292, 1.293, 1.293, 1.294, 1.295, & 1.295, 1.296, 1.296, 1.297, 1.297, 1.297, 1.298, 1.298, 1.298, & 1.299, 1.299, 1.299 & / C C *** Na2SO4 C DATA BNC02M/ &-0.103,-0.225,-0.288,-0.332,-0.367,-0.397,-0.422,-0.445,-0.465, &-0.484,-0.501,-0.516,-0.531,-0.545,-0.558,-0.570,-0.582,-0.593, &-0.604,-0.614,-0.624,-0.633,-0.643,-0.651,-0.660,-0.668,-0.676, &-0.684,-0.692,-0.699,-0.707,-0.714,-0.721,-0.727,-0.734,-0.741, &-0.747,-0.753,-0.759,-0.765,-0.771,-0.777,-0.783,-0.788,-0.794, &-0.799,-0.804,-0.810,-0.815,-0.820,-0.825,-0.830,-0.835,-0.840, &-0.845,-0.849,-0.854,-0.859,-0.863,-0.868,-0.872,-0.877,-0.881, &-0.885,-0.889,-0.894,-0.898,-0.902,-0.906,-0.910,-0.914,-0.918, &-0.922,-0.926,-0.930,-0.934,-0.938,-0.942,-0.946,-0.949,-0.953, &-0.957,-0.961,-0.964,-0.968,-0.971,-0.975,-0.979,-0.982,-0.986, &-0.989,-0.993,-0.996,-1.000,-1.003,-1.007,-1.010,-1.014,-1.017, &-1.020,-1.024,-1.027,-1.030,-1.034,-1.037,-1.040,-1.044,-1.047, &-1.050,-1.053,-1.057,-1.060,-1.063,-1.066,-1.069,-1.072,-1.076, &-1.079,-1.082,-1.085,-1.088,-1.091,-1.094,-1.097,-1.100,-1.103, &-1.106,-1.109,-1.112,-1.115,-1.118,-1.121,-1.124,-1.127,-1.130, &-1.133,-1.136,-1.139,-1.142,-1.145,-1.147,-1.150,-1.153,-1.156, &-1.159,-1.162,-1.165,-1.167,-1.170,-1.173,-1.176,-1.179,-1.181, &-1.184,-1.187,-1.190,-1.192,-1.195,-1.198,-1.200,-1.203,-1.206, &-1.209,-1.211,-1.214,-1.217,-1.219,-1.222,-1.225,-1.227,-1.230, &-1.232,-1.235,-1.238,-1.240,-1.243,-1.246,-1.248,-1.251,-1.253, &-1.256,-1.258,-1.261,-1.264,-1.266,-1.269,-1.271,-1.274,-1.276, &-1.279,-1.281,-1.284,-1.286,-1.289,-1.291,-1.294,-1.296,-1.299, &-1.301,-1.304,-1.306,-1.309,-1.311,-1.313,-1.316,-1.318,-1.321, &-1.323,-1.326,-1.328,-1.330,-1.333,-1.335,-1.338,-1.340,-1.342, &-1.345,-1.347,-1.350,-1.352,-1.354,-1.357,-1.359,-1.361,-1.364, &-1.366,-1.368,-1.371,-1.373,-1.375,-1.378,-1.380,-1.382,-1.385, &-1.387,-1.389,-1.392,-1.394,-1.396,-1.399,-1.401,-1.403,-1.405, &-1.408,-1.410,-1.412,-1.415,-1.417,-1.419,-1.421,-1.424,-1.426, &-1.428,-1.430,-1.433,-1.435,-1.437,-1.439,-1.442,-1.444,-1.446, &-1.448,-1.450,-1.453,-1.455,-1.457,-1.459,-1.461,-1.464,-1.466, &-1.468,-1.470,-1.472,-1.475,-1.477,-1.479,-1.481,-1.483,-1.485, &-1.488,-1.490,-1.492,-1.494,-1.496,-1.498,-1.501,-1.503,-1.505, &-1.507,-1.509,-1.511,-1.513,-1.516,-1.518,-1.520,-1.522,-1.524, &-1.526,-1.528,-1.530,-1.533,-1.535,-1.537,-1.539,-1.541,-1.543, &-1.545,-1.547,-1.549,-1.551,-1.554,-1.556,-1.558,-1.560,-1.562, &-1.564,-1.566,-1.568,-1.570,-1.572,-1.574,-1.576,-1.578,-1.580, &-1.583,-1.585,-1.587,-1.589,-1.591,-1.593,-1.595,-1.597,-1.599, &-1.601,-1.603,-1.605,-1.607,-1.609,-1.611,-1.613,-1.615,-1.617, &-1.619,-1.621,-1.623,-1.625,-1.627,-1.629,-1.631,-1.633,-1.635, &-1.637,-1.639,-1.641,-1.643,-1.645,-1.647,-1.649,-1.651,-1.653, &-1.655,-1.657,-1.659,-1.661,-1.663,-1.665,-1.667,-1.669,-1.671, &-1.673,-1.675,-1.677,-1.679,-1.681,-1.683,-1.685,-1.687,-1.689, &-1.691,-1.693,-1.695,-1.696,-1.698,-1.700,-1.702,-1.704,-1.706, &-1.708,-1.710,-1.712,-1.714,-1.716,-1.718,-1.720,-1.722,-1.724, &-1.726,-1.727,-1.729,-1.731,-1.752,-1.771,-1.790,-1.808,-1.827, &-1.845,-1.864,-1.882,-1.900,-1.918,-1.936,-1.954,-1.972,-1.989, &-2.007,-2.024,-2.042,-2.059,-2.076,-2.093,-2.110,-2.127,-2.144, &-2.161,-2.178,-2.194,-2.211,-2.228,-2.244,-2.261,-2.277,-2.293, &-2.310,-2.326,-2.342,-2.358,-2.374,-2.390,-2.406,-2.422,-2.438, &-2.454,-2.470,-2.486,-2.501,-2.517,-2.533,-2.548,-2.564,-2.579, &-2.595,-2.610,-2.626,-2.641,-2.657,-2.672,-2.687,-2.702,-2.718, &-2.733,-2.748,-2.763,-2.778,-2.793,-2.808,-2.823,-2.838,-2.853, &-2.868,-2.883,-2.898,-2.913,-2.927,-2.942,-2.957,-2.972,-2.986, &-3.001,-3.016,-3.030,-3.045,-3.059,-3.074,-3.089,-3.103,-3.118, &-3.132,-3.147,-3.161,-3.175,-3.190,-3.204,-3.219,-3.233,-3.247, &-3.261,-3.276,-3.290,-3.304,-3.318,-3.333,-3.347,-3.361,-3.375, &-3.389,-3.403,-3.417,-3.432,-3.446,-3.460,-3.474,-3.488,-3.502, &-3.516,-3.530,-3.544,-3.558,-3.571,-3.585,-3.599,-3.613,-3.627, &-3.641,-3.655,-3.669,-3.682,-3.696,-3.710,-3.724,-3.737,-3.751, &-3.765,-3.779,-3.792,-3.806,-3.820,-3.833,-3.847,-3.861,-3.874, &-3.888,-3.901,-3.915,-3.929,-3.942,-3.956,-3.969,-3.983,-3.996, &-4.010,-4.023,-4.037,-4.050,-4.064,-4.077,-4.091,-4.104,-4.118, &-4.131,-4.144,-4.158 & / C C *** NaNO3 C DATA BNC03M/ &-0.052,-0.114,-0.145,-0.168,-0.187,-0.202,-0.215,-0.227,-0.238, &-0.248,-0.257,-0.265,-0.273,-0.281,-0.288,-0.294,-0.301,-0.307, &-0.313,-0.318,-0.324,-0.329,-0.334,-0.339,-0.344,-0.349,-0.353, &-0.357,-0.362,-0.366,-0.370,-0.374,-0.378,-0.382,-0.386,-0.389, &-0.393,-0.396,-0.400,-0.403,-0.407,-0.410,-0.413,-0.416,-0.419, &-0.423,-0.426,-0.429,-0.432,-0.435,-0.437,-0.440,-0.443,-0.446, &-0.449,-0.451,-0.454,-0.457,-0.459,-0.462,-0.464,-0.467,-0.469, &-0.472,-0.474,-0.477,-0.479,-0.482,-0.484,-0.486,-0.489,-0.491, &-0.493,-0.496,-0.498,-0.500,-0.502,-0.505,-0.507,-0.509,-0.511, &-0.513,-0.516,-0.518,-0.520,-0.522,-0.524,-0.526,-0.528,-0.530, &-0.532,-0.534,-0.537,-0.539,-0.541,-0.543,-0.545,-0.547,-0.549, &-0.551,-0.553,-0.555,-0.557,-0.559,-0.561,-0.562,-0.564,-0.566, &-0.568,-0.570,-0.572,-0.574,-0.576,-0.578,-0.580,-0.582,-0.583, &-0.585,-0.587,-0.589,-0.591,-0.593,-0.594,-0.596,-0.598,-0.600, &-0.602,-0.604,-0.605,-0.607,-0.609,-0.611,-0.612,-0.614,-0.616, &-0.618,-0.619,-0.621,-0.623,-0.625,-0.626,-0.628,-0.630,-0.631, &-0.633,-0.635,-0.637,-0.638,-0.640,-0.642,-0.643,-0.645,-0.647, &-0.648,-0.650,-0.651,-0.653,-0.655,-0.656,-0.658,-0.660,-0.661, &-0.663,-0.664,-0.666,-0.668,-0.669,-0.671,-0.672,-0.674,-0.676, &-0.677,-0.679,-0.680,-0.682,-0.683,-0.685,-0.686,-0.688,-0.689, &-0.691,-0.693,-0.694,-0.696,-0.697,-0.699,-0.700,-0.702,-0.703, &-0.705,-0.706,-0.708,-0.709,-0.711,-0.712,-0.714,-0.715,-0.717, &-0.718,-0.719,-0.721,-0.722,-0.724,-0.725,-0.727,-0.728,-0.730, &-0.731,-0.733,-0.734,-0.735,-0.737,-0.738,-0.740,-0.741,-0.743, &-0.744,-0.745,-0.747,-0.748,-0.750,-0.751,-0.752,-0.754,-0.755, &-0.757,-0.758,-0.759,-0.761,-0.762,-0.763,-0.765,-0.766,-0.768, &-0.769,-0.770,-0.772,-0.773,-0.774,-0.776,-0.777,-0.778,-0.780, &-0.781,-0.782,-0.784,-0.785,-0.787,-0.788,-0.789,-0.791,-0.792, &-0.793,-0.794,-0.796,-0.797,-0.798,-0.800,-0.801,-0.802,-0.804, &-0.805,-0.806,-0.808,-0.809,-0.810,-0.812,-0.813,-0.814,-0.815, &-0.817,-0.818,-0.819,-0.821,-0.822,-0.823,-0.824,-0.826,-0.827, &-0.828,-0.829,-0.831,-0.832,-0.833,-0.835,-0.836,-0.837,-0.838, &-0.840,-0.841,-0.842,-0.843,-0.845,-0.846,-0.847,-0.848,-0.850, &-0.851,-0.852,-0.853,-0.854,-0.856,-0.857,-0.858,-0.859,-0.861, &-0.862,-0.863,-0.864,-0.866,-0.867,-0.868,-0.869,-0.870,-0.872, &-0.873,-0.874,-0.875,-0.876,-0.878,-0.879,-0.880,-0.881,-0.882, &-0.884,-0.885,-0.886,-0.887,-0.888,-0.890,-0.891,-0.892,-0.893, &-0.894,-0.896,-0.897,-0.898,-0.899,-0.900,-0.901,-0.903,-0.904, &-0.905,-0.906,-0.907,-0.908,-0.910,-0.911,-0.912,-0.913,-0.914, &-0.915,-0.917,-0.918,-0.919,-0.920,-0.921,-0.922,-0.924,-0.925, &-0.926,-0.927,-0.928,-0.929,-0.930,-0.932,-0.933,-0.934,-0.935, &-0.936,-0.937,-0.938,-0.940,-0.941,-0.942,-0.943,-0.944,-0.945, &-0.946,-0.947,-0.949,-0.950,-0.951,-0.952,-0.953,-0.954,-0.955, &-0.956,-0.958,-0.959,-0.960,-0.961,-0.962,-0.963,-0.964,-0.965, &-0.966,-0.968,-0.969,-0.970,-0.982,-0.992,-1.003,-1.014,-1.025, &-1.035,-1.046,-1.056,-1.066,-1.076,-1.087,-1.097,-1.107,-1.117, &-1.126,-1.136,-1.146,-1.156,-1.165,-1.175,-1.185,-1.194,-1.203, &-1.213,-1.222,-1.231,-1.241,-1.250,-1.259,-1.268,-1.277,-1.286, &-1.295,-1.304,-1.313,-1.322,-1.331,-1.340,-1.349,-1.357,-1.366, &-1.375,-1.383,-1.392,-1.401,-1.409,-1.418,-1.426,-1.435,-1.443, &-1.452,-1.460,-1.468,-1.477,-1.485,-1.493,-1.502,-1.510,-1.518, &-1.526,-1.535,-1.543,-1.551,-1.559,-1.567,-1.575,-1.583,-1.591, &-1.599,-1.607,-1.615,-1.623,-1.631,-1.639,-1.647,-1.655,-1.663, &-1.671,-1.679,-1.686,-1.694,-1.702,-1.710,-1.718,-1.725,-1.733, &-1.741,-1.749,-1.756,-1.764,-1.772,-1.779,-1.787,-1.794,-1.802, &-1.810,-1.817,-1.825,-1.832,-1.840,-1.847,-1.855,-1.862,-1.870, &-1.877,-1.885,-1.892,-1.900,-1.907,-1.915,-1.922,-1.929,-1.937, &-1.944,-1.952,-1.959,-1.966,-1.974,-1.981,-1.988,-1.996,-2.003, &-2.010,-2.018,-2.025,-2.032,-2.039,-2.047,-2.054,-2.061,-2.068, &-2.075,-2.083,-2.090,-2.097,-2.104,-2.111,-2.118,-2.126,-2.133, &-2.140,-2.147,-2.154,-2.161,-2.168,-2.175,-2.183,-2.190,-2.197, &-2.204,-2.211,-2.218,-2.225,-2.232,-2.239,-2.246,-2.253,-2.260, &-2.267,-2.274,-2.281 & / C C *** (NH4)2SO4 C DATA BNC04M/ &-0.103,-0.226,-0.289,-0.334,-0.369,-0.399,-0.425,-0.448,-0.468, &-0.487,-0.505,-0.521,-0.536,-0.550,-0.563,-0.576,-0.588,-0.599, &-0.610,-0.621,-0.631,-0.641,-0.650,-0.659,-0.668,-0.677,-0.685, &-0.693,-0.701,-0.709,-0.717,-0.724,-0.731,-0.738,-0.745,-0.752, &-0.758,-0.765,-0.771,-0.777,-0.784,-0.790,-0.796,-0.801,-0.807, &-0.813,-0.818,-0.824,-0.829,-0.835,-0.840,-0.845,-0.850,-0.855, &-0.860,-0.865,-0.870,-0.875,-0.880,-0.884,-0.889,-0.894,-0.898, &-0.903,-0.907,-0.912,-0.916,-0.920,-0.925,-0.929,-0.933,-0.937, &-0.942,-0.946,-0.950,-0.954,-0.958,-0.962,-0.966,-0.970,-0.974, &-0.978,-0.982,-0.985,-0.989,-0.993,-0.997,-1.001,-1.004,-1.008, &-1.012,-1.016,-1.019,-1.023,-1.027,-1.030,-1.034,-1.037,-1.041, &-1.045,-1.048,-1.052,-1.055,-1.059,-1.062,-1.066,-1.069,-1.072, &-1.076,-1.079,-1.083,-1.086,-1.089,-1.093,-1.096,-1.099,-1.103, &-1.106,-1.109,-1.113,-1.116,-1.119,-1.122,-1.126,-1.129,-1.132, &-1.135,-1.138,-1.142,-1.145,-1.148,-1.151,-1.154,-1.157,-1.160, &-1.164,-1.167,-1.170,-1.173,-1.176,-1.179,-1.182,-1.185,-1.188, &-1.191,-1.194,-1.197,-1.200,-1.203,-1.206,-1.209,-1.212,-1.215, &-1.218,-1.221,-1.223,-1.226,-1.229,-1.232,-1.235,-1.238,-1.241, &-1.244,-1.246,-1.249,-1.252,-1.255,-1.258,-1.261,-1.263,-1.266, &-1.269,-1.272,-1.274,-1.277,-1.280,-1.283,-1.285,-1.288,-1.291, &-1.294,-1.296,-1.299,-1.302,-1.304,-1.307,-1.310,-1.313,-1.315, &-1.318,-1.321,-1.323,-1.326,-1.328,-1.331,-1.334,-1.336,-1.339, &-1.342,-1.344,-1.347,-1.349,-1.352,-1.355,-1.357,-1.360,-1.362, &-1.365,-1.367,-1.370,-1.373,-1.375,-1.378,-1.380,-1.383,-1.385, &-1.388,-1.390,-1.393,-1.395,-1.398,-1.400,-1.403,-1.405,-1.408, &-1.410,-1.413,-1.415,-1.418,-1.420,-1.423,-1.425,-1.427,-1.430, &-1.432,-1.435,-1.437,-1.440,-1.442,-1.445,-1.447,-1.449,-1.452, &-1.454,-1.457,-1.459,-1.461,-1.464,-1.466,-1.469,-1.471,-1.473, &-1.476,-1.478,-1.480,-1.483,-1.485,-1.487,-1.490,-1.492,-1.495, &-1.497,-1.499,-1.502,-1.504,-1.506,-1.509,-1.511,-1.513,-1.515, &-1.518,-1.520,-1.522,-1.525,-1.527,-1.529,-1.532,-1.534,-1.536, &-1.538,-1.541,-1.543,-1.545,-1.548,-1.550,-1.552,-1.554,-1.557, &-1.559,-1.561,-1.563,-1.566,-1.568,-1.570,-1.572,-1.575,-1.577, &-1.579,-1.581,-1.583,-1.586,-1.588,-1.590,-1.592,-1.595,-1.597, &-1.599,-1.601,-1.603,-1.606,-1.608,-1.610,-1.612,-1.614,-1.616, &-1.619,-1.621,-1.623,-1.625,-1.627,-1.630,-1.632,-1.634,-1.636, &-1.638,-1.640,-1.642,-1.645,-1.647,-1.649,-1.651,-1.653,-1.655, &-1.658,-1.660,-1.662,-1.664,-1.666,-1.668,-1.670,-1.672,-1.675, &-1.677,-1.679,-1.681,-1.683,-1.685,-1.687,-1.689,-1.691,-1.694, &-1.696,-1.698,-1.700,-1.702,-1.704,-1.706,-1.708,-1.710,-1.712, &-1.714,-1.717,-1.719,-1.721,-1.723,-1.725,-1.727,-1.729,-1.731, &-1.733,-1.735,-1.737,-1.739,-1.741,-1.743,-1.745,-1.748,-1.750, &-1.752,-1.754,-1.756,-1.758,-1.760,-1.762,-1.764,-1.766,-1.768, &-1.770,-1.772,-1.774,-1.776,-1.778,-1.780,-1.782,-1.784,-1.786, &-1.788,-1.790,-1.792,-1.794,-1.816,-1.836,-1.855,-1.875,-1.894, &-1.914,-1.933,-1.952,-1.971,-1.989,-2.008,-2.027,-2.045,-2.063, &-2.082,-2.100,-2.118,-2.136,-2.154,-2.171,-2.189,-2.207,-2.224, &-2.242,-2.259,-2.276,-2.293,-2.311,-2.328,-2.345,-2.362,-2.379, &-2.395,-2.412,-2.429,-2.446,-2.462,-2.479,-2.495,-2.512,-2.528, &-2.544,-2.561,-2.577,-2.593,-2.609,-2.625,-2.642,-2.658,-2.674, &-2.689,-2.705,-2.721,-2.737,-2.753,-2.768,-2.784,-2.800,-2.815, &-2.831,-2.847,-2.862,-2.878,-2.893,-2.908,-2.924,-2.939,-2.954, &-2.970,-2.985,-3.000,-3.015,-3.031,-3.046,-3.061,-3.076,-3.091, &-3.106,-3.121,-3.136,-3.151,-3.166,-3.181,-3.196,-3.210,-3.225, &-3.240,-3.255,-3.270,-3.284,-3.299,-3.314,-3.328,-3.343,-3.358, &-3.372,-3.387,-3.401,-3.416,-3.430,-3.445,-3.459,-3.474,-3.488, &-3.503,-3.517,-3.531,-3.546,-3.560,-3.574,-3.589,-3.603,-3.617, &-3.631,-3.646,-3.660,-3.674,-3.688,-3.702,-3.717,-3.731,-3.745, &-3.759,-3.773,-3.787,-3.801,-3.815,-3.829,-3.843,-3.857,-3.871, &-3.885,-3.899,-3.913,-3.927,-3.941,-3.955,-3.969,-3.982,-3.996, &-4.010,-4.024,-4.038,-4.051,-4.065,-4.079,-4.093,-4.107,-4.120, &-4.134,-4.148,-4.161,-4.175,-4.189,-4.202,-4.216,-4.230,-4.243, &-4.257,-4.271,-4.284 & / C C *** NH4NO3 C DATA BNC05M/ &-0.052,-0.117,-0.152,-0.178,-0.199,-0.217,-0.232,-0.247,-0.260, &-0.272,-0.283,-0.294,-0.304,-0.314,-0.323,-0.332,-0.341,-0.349, &-0.357,-0.365,-0.372,-0.379,-0.386,-0.393,-0.400,-0.407,-0.413, &-0.419,-0.426,-0.432,-0.437,-0.443,-0.449,-0.455,-0.460,-0.466, &-0.471,-0.476,-0.481,-0.486,-0.491,-0.496,-0.501,-0.506,-0.511, &-0.515,-0.520,-0.524,-0.529,-0.533,-0.537,-0.542,-0.546,-0.550, &-0.554,-0.558,-0.563,-0.567,-0.570,-0.574,-0.578,-0.582,-0.586, &-0.590,-0.593,-0.597,-0.601,-0.604,-0.608,-0.612,-0.615,-0.619, &-0.622,-0.626,-0.629,-0.633,-0.636,-0.640,-0.643,-0.646,-0.650, &-0.653,-0.656,-0.660,-0.663,-0.666,-0.670,-0.673,-0.676,-0.679, &-0.683,-0.686,-0.689,-0.692,-0.696,-0.699,-0.702,-0.705,-0.708, &-0.711,-0.715,-0.718,-0.721,-0.724,-0.727,-0.730,-0.733,-0.736, &-0.739,-0.742,-0.746,-0.749,-0.752,-0.755,-0.758,-0.761,-0.764, &-0.767,-0.770,-0.773,-0.776,-0.778,-0.781,-0.784,-0.787,-0.790, &-0.793,-0.796,-0.799,-0.802,-0.805,-0.807,-0.810,-0.813,-0.816, &-0.819,-0.821,-0.824,-0.827,-0.830,-0.833,-0.835,-0.838,-0.841, &-0.843,-0.846,-0.849,-0.852,-0.854,-0.857,-0.860,-0.862,-0.865, &-0.867,-0.870,-0.873,-0.875,-0.878,-0.880,-0.883,-0.886,-0.888, &-0.891,-0.893,-0.896,-0.898,-0.901,-0.903,-0.906,-0.908,-0.911, &-0.913,-0.916,-0.918,-0.921,-0.923,-0.926,-0.928,-0.930,-0.933, &-0.935,-0.938,-0.940,-0.942,-0.945,-0.947,-0.950,-0.952,-0.954, &-0.957,-0.959,-0.961,-0.964,-0.966,-0.968,-0.971,-0.973,-0.975, &-0.977,-0.980,-0.982,-0.984,-0.987,-0.989,-0.991,-0.993,-0.996, &-0.998,-1.000,-1.002,-1.004,-1.007,-1.009,-1.011,-1.013,-1.015, &-1.018,-1.020,-1.022,-1.024,-1.026,-1.028,-1.031,-1.033,-1.035, &-1.037,-1.039,-1.041,-1.043,-1.046,-1.048,-1.050,-1.052,-1.054, &-1.056,-1.058,-1.060,-1.062,-1.064,-1.066,-1.068,-1.070,-1.072, &-1.075,-1.077,-1.079,-1.081,-1.083,-1.085,-1.087,-1.089,-1.091, &-1.093,-1.095,-1.097,-1.099,-1.101,-1.103,-1.105,-1.107,-1.109, &-1.110,-1.112,-1.114,-1.116,-1.118,-1.120,-1.122,-1.124,-1.126, &-1.128,-1.130,-1.132,-1.134,-1.136,-1.137,-1.139,-1.141,-1.143, &-1.145,-1.147,-1.149,-1.151,-1.153,-1.154,-1.156,-1.158,-1.160, &-1.162,-1.164,-1.166,-1.167,-1.169,-1.171,-1.173,-1.175,-1.176, &-1.178,-1.180,-1.182,-1.184,-1.186,-1.187,-1.189,-1.191,-1.193, &-1.195,-1.196,-1.198,-1.200,-1.202,-1.203,-1.205,-1.207,-1.209, &-1.210,-1.212,-1.214,-1.216,-1.217,-1.219,-1.221,-1.223,-1.224, &-1.226,-1.228,-1.230,-1.231,-1.233,-1.235,-1.236,-1.238,-1.240, &-1.241,-1.243,-1.245,-1.247,-1.248,-1.250,-1.252,-1.253,-1.255, &-1.257,-1.258,-1.260,-1.262,-1.263,-1.265,-1.267,-1.268,-1.270, &-1.272,-1.273,-1.275,-1.276,-1.278,-1.280,-1.281,-1.283,-1.285, &-1.286,-1.288,-1.289,-1.291,-1.293,-1.294,-1.296,-1.298,-1.299, &-1.301,-1.302,-1.304,-1.306,-1.307,-1.309,-1.310,-1.312,-1.313, &-1.315,-1.317,-1.318,-1.320,-1.321,-1.323,-1.324,-1.326,-1.328, &-1.329,-1.331,-1.332,-1.334,-1.335,-1.337,-1.338,-1.340,-1.341, &-1.343,-1.345,-1.346,-1.348,-1.364,-1.379,-1.394,-1.408,-1.422, &-1.436,-1.450,-1.464,-1.478,-1.491,-1.504,-1.518,-1.531,-1.543, &-1.556,-1.569,-1.581,-1.593,-1.606,-1.618,-1.630,-1.641,-1.653, &-1.665,-1.676,-1.688,-1.699,-1.710,-1.722,-1.733,-1.744,-1.755, &-1.765,-1.776,-1.787,-1.797,-1.808,-1.818,-1.829,-1.839,-1.849, &-1.859,-1.870,-1.880,-1.890,-1.900,-1.909,-1.919,-1.929,-1.939, &-1.948,-1.958,-1.968,-1.977,-1.986,-1.996,-2.005,-2.015,-2.024, &-2.033,-2.042,-2.051,-2.060,-2.070,-2.079,-2.088,-2.096,-2.105, &-2.114,-2.123,-2.132,-2.141,-2.149,-2.158,-2.167,-2.175,-2.184, &-2.193,-2.201,-2.210,-2.218,-2.226,-2.235,-2.243,-2.252,-2.260, &-2.268,-2.277,-2.285,-2.293,-2.301,-2.309,-2.318,-2.326,-2.334, &-2.342,-2.350,-2.358,-2.366,-2.374,-2.382,-2.390,-2.398,-2.406, &-2.414,-2.422,-2.429,-2.437,-2.445,-2.453,-2.461,-2.468,-2.476, &-2.484,-2.492,-2.499,-2.507,-2.515,-2.522,-2.530,-2.537,-2.545, &-2.553,-2.560,-2.568,-2.575,-2.583,-2.590,-2.598,-2.605,-2.613, &-2.620,-2.628,-2.635,-2.642,-2.650,-2.657,-2.664,-2.672,-2.679, &-2.686,-2.694,-2.701,-2.708,-2.716,-2.723,-2.730,-2.737,-2.745, &-2.752,-2.759,-2.766,-2.773,-2.781,-2.788,-2.795,-2.802,-2.809, &-2.816,-2.823,-2.831 & / C C *** NH4Cl C DATA BNC06M/ &-0.051,-0.108,-0.136,-0.155,-0.170,-0.182,-0.192,-0.200,-0.207, &-0.214,-0.220,-0.225,-0.230,-0.234,-0.238,-0.242,-0.245,-0.248, &-0.251,-0.254,-0.256,-0.259,-0.261,-0.263,-0.265,-0.267,-0.269, &-0.270,-0.272,-0.274,-0.275,-0.276,-0.278,-0.279,-0.280,-0.281, &-0.283,-0.284,-0.285,-0.286,-0.287,-0.288,-0.289,-0.289,-0.290, &-0.291,-0.292,-0.293,-0.293,-0.294,-0.295,-0.296,-0.296,-0.297, &-0.298,-0.298,-0.299,-0.300,-0.300,-0.301,-0.301,-0.302,-0.302, &-0.303,-0.303,-0.304,-0.304,-0.305,-0.305,-0.306,-0.306,-0.307, &-0.307,-0.308,-0.308,-0.308,-0.309,-0.309,-0.309,-0.310,-0.310, &-0.310,-0.311,-0.311,-0.311,-0.312,-0.312,-0.312,-0.312,-0.313, &-0.313,-0.313,-0.313,-0.313,-0.314,-0.314,-0.314,-0.314,-0.314, &-0.314,-0.314,-0.314,-0.315,-0.315,-0.315,-0.315,-0.315,-0.315, &-0.315,-0.315,-0.315,-0.315,-0.315,-0.315,-0.315,-0.315,-0.315, &-0.315,-0.315,-0.315,-0.315,-0.315,-0.315,-0.315,-0.315,-0.315, &-0.315,-0.315,-0.315,-0.315,-0.315,-0.315,-0.315,-0.315,-0.315, &-0.315,-0.314,-0.314,-0.314,-0.314,-0.314,-0.314,-0.314,-0.314, &-0.314,-0.314,-0.314,-0.314,-0.314,-0.314,-0.314,-0.314,-0.313, &-0.313,-0.313,-0.313,-0.313,-0.313,-0.313,-0.313,-0.313,-0.313, &-0.313,-0.313,-0.313,-0.313,-0.312,-0.312,-0.312,-0.312,-0.312, &-0.312,-0.312,-0.312,-0.312,-0.312,-0.312,-0.312,-0.312,-0.312, &-0.311,-0.311,-0.311,-0.311,-0.311,-0.311,-0.311,-0.311,-0.311, &-0.311,-0.311,-0.311,-0.311,-0.311,-0.310,-0.310,-0.310,-0.310, &-0.310,-0.310,-0.310,-0.310,-0.310,-0.310,-0.310,-0.310,-0.310, &-0.310,-0.309,-0.309,-0.309,-0.309,-0.309,-0.309,-0.309,-0.309, &-0.309,-0.309,-0.309,-0.309,-0.309,-0.309,-0.309,-0.309,-0.308, &-0.308,-0.308,-0.308,-0.308,-0.308,-0.308,-0.308,-0.308,-0.308, &-0.308,-0.308,-0.308,-0.308,-0.308,-0.308,-0.308,-0.308,-0.307, &-0.307,-0.307,-0.307,-0.307,-0.307,-0.307,-0.307,-0.307,-0.307, &-0.307,-0.307,-0.307,-0.307,-0.307,-0.307,-0.307,-0.307,-0.307, &-0.307,-0.307,-0.307,-0.307,-0.307,-0.307,-0.306,-0.306,-0.306, &-0.306,-0.306,-0.306,-0.306,-0.306,-0.306,-0.306,-0.306,-0.306, &-0.306,-0.306,-0.306,-0.306,-0.306,-0.306,-0.306,-0.306,-0.306, &-0.306,-0.306,-0.306,-0.306,-0.306,-0.306,-0.306,-0.306,-0.306, &-0.306,-0.306,-0.306,-0.306,-0.306,-0.306,-0.306,-0.306,-0.306, &-0.306,-0.306,-0.306,-0.306,-0.306,-0.306,-0.306,-0.306,-0.306, &-0.306,-0.306,-0.306,-0.306,-0.306,-0.306,-0.306,-0.306,-0.306, &-0.306,-0.306,-0.306,-0.306,-0.306,-0.306,-0.306,-0.306,-0.306, &-0.306,-0.306,-0.306,-0.306,-0.306,-0.306,-0.306,-0.306,-0.306, &-0.306,-0.306,-0.306,-0.306,-0.306,-0.306,-0.306,-0.306,-0.306, &-0.306,-0.306,-0.306,-0.306,-0.306,-0.306,-0.306,-0.306,-0.306, &-0.306,-0.306,-0.306,-0.306,-0.306,-0.306,-0.306,-0.306,-0.307, &-0.307,-0.307,-0.307,-0.307,-0.307,-0.307,-0.307,-0.307,-0.307, &-0.307,-0.307,-0.307,-0.307,-0.307,-0.307,-0.307,-0.307,-0.307, &-0.307,-0.307,-0.307,-0.307,-0.307,-0.308,-0.308,-0.308,-0.308, &-0.308,-0.308,-0.308,-0.308,-0.308,-0.309,-0.310,-0.311,-0.311, &-0.312,-0.313,-0.314,-0.315,-0.316,-0.317,-0.319,-0.320,-0.321, &-0.322,-0.324,-0.325,-0.327,-0.328,-0.330,-0.331,-0.333,-0.335, &-0.336,-0.338,-0.340,-0.342,-0.344,-0.346,-0.348,-0.350,-0.352, &-0.354,-0.356,-0.358,-0.360,-0.362,-0.365,-0.367,-0.369,-0.371, &-0.374,-0.376,-0.379,-0.381,-0.383,-0.386,-0.389,-0.391,-0.394, &-0.396,-0.399,-0.401,-0.404,-0.407,-0.410,-0.412,-0.415,-0.418, &-0.421,-0.423,-0.426,-0.429,-0.432,-0.435,-0.438,-0.441,-0.444, &-0.447,-0.450,-0.453,-0.456,-0.459,-0.462,-0.465,-0.468,-0.471, &-0.475,-0.478,-0.481,-0.484,-0.487,-0.491,-0.494,-0.497,-0.500, &-0.504,-0.507,-0.510,-0.514,-0.517,-0.520,-0.524,-0.527,-0.531, &-0.534,-0.537,-0.541,-0.544,-0.548,-0.551,-0.555,-0.558,-0.562, &-0.565,-0.569,-0.573,-0.576,-0.580,-0.583,-0.587,-0.591,-0.594, &-0.598,-0.601,-0.605,-0.609,-0.612,-0.616,-0.620,-0.624,-0.627, &-0.631,-0.635,-0.639,-0.642,-0.646,-0.650,-0.654,-0.657,-0.661, &-0.665,-0.669,-0.673,-0.677,-0.680,-0.684,-0.688,-0.692,-0.696, &-0.700,-0.704,-0.708,-0.711,-0.715,-0.719,-0.723,-0.727,-0.731, &-0.735,-0.739,-0.743,-0.747,-0.751,-0.755,-0.759,-0.763,-0.767, &-0.771,-0.775,-0.779 & / C C *** (2H,SO4) C DATA BNC07M/ &-0.103,-0.225,-0.286,-0.330,-0.365,-0.394,-0.419,-0.441,-0.460, &-0.478,-0.495,-0.510,-0.524,-0.538,-0.550,-0.562,-0.573,-0.584, &-0.594,-0.604,-0.613,-0.622,-0.631,-0.640,-0.648,-0.656,-0.663, &-0.671,-0.678,-0.685,-0.692,-0.699,-0.705,-0.711,-0.718,-0.724, &-0.730,-0.736,-0.741,-0.747,-0.753,-0.758,-0.763,-0.769,-0.774, &-0.779,-0.784,-0.789,-0.794,-0.798,-0.803,-0.808,-0.812,-0.817, &-0.821,-0.826,-0.830,-0.834,-0.839,-0.843,-0.847,-0.851,-0.855, &-0.859,-0.863,-0.867,-0.871,-0.875,-0.879,-0.883,-0.886,-0.890, &-0.894,-0.897,-0.901,-0.905,-0.908,-0.912,-0.915,-0.919,-0.922, &-0.926,-0.929,-0.933,-0.936,-0.939,-0.943,-0.946,-0.949,-0.953, &-0.956,-0.959,-0.962,-0.965,-0.969,-0.972,-0.975,-0.978,-0.981, &-0.984,-0.987,-0.990,-0.994,-0.997,-1.000,-1.003,-1.006,-1.009, &-1.012,-1.015,-1.017,-1.020,-1.023,-1.026,-1.029,-1.032,-1.035, &-1.038,-1.041,-1.043,-1.046,-1.049,-1.052,-1.055,-1.057,-1.060, &-1.063,-1.066,-1.068,-1.071,-1.074,-1.077,-1.079,-1.082,-1.085, &-1.087,-1.090,-1.093,-1.095,-1.098,-1.100,-1.103,-1.106,-1.108, &-1.111,-1.113,-1.116,-1.119,-1.121,-1.124,-1.126,-1.129,-1.131, &-1.134,-1.136,-1.139,-1.141,-1.144,-1.146,-1.149,-1.151,-1.154, &-1.156,-1.159,-1.161,-1.163,-1.166,-1.168,-1.171,-1.173,-1.176, &-1.178,-1.180,-1.183,-1.185,-1.187,-1.190,-1.192,-1.195,-1.197, &-1.199,-1.202,-1.204,-1.206,-1.209,-1.211,-1.213,-1.216,-1.218, &-1.220,-1.222,-1.225,-1.227,-1.229,-1.232,-1.234,-1.236,-1.238, &-1.241,-1.243,-1.245,-1.247,-1.250,-1.252,-1.254,-1.256,-1.258, &-1.261,-1.263,-1.265,-1.267,-1.270,-1.272,-1.274,-1.276,-1.278, &-1.280,-1.283,-1.285,-1.287,-1.289,-1.291,-1.293,-1.296,-1.298, &-1.300,-1.302,-1.304,-1.306,-1.308,-1.311,-1.313,-1.315,-1.317, &-1.319,-1.321,-1.323,-1.325,-1.328,-1.330,-1.332,-1.334,-1.336, &-1.338,-1.340,-1.342,-1.344,-1.346,-1.348,-1.350,-1.353,-1.355, &-1.357,-1.359,-1.361,-1.363,-1.365,-1.367,-1.369,-1.371,-1.373, &-1.375,-1.377,-1.379,-1.381,-1.383,-1.385,-1.387,-1.389,-1.391, &-1.393,-1.395,-1.397,-1.399,-1.401,-1.403,-1.405,-1.407,-1.409, &-1.411,-1.413,-1.415,-1.417,-1.419,-1.421,-1.423,-1.425,-1.427, &-1.429,-1.431,-1.433,-1.435,-1.437,-1.439,-1.441,-1.443,-1.445, &-1.447,-1.449,-1.451,-1.453,-1.455,-1.456,-1.458,-1.460,-1.462, &-1.464,-1.466,-1.468,-1.470,-1.472,-1.474,-1.476,-1.478,-1.480, &-1.481,-1.483,-1.485,-1.487,-1.489,-1.491,-1.493,-1.495,-1.497, &-1.499,-1.500,-1.502,-1.504,-1.506,-1.508,-1.510,-1.512,-1.514, &-1.516,-1.517,-1.519,-1.521,-1.523,-1.525,-1.527,-1.529,-1.531, &-1.532,-1.534,-1.536,-1.538,-1.540,-1.542,-1.544,-1.545,-1.547, &-1.549,-1.551,-1.553,-1.555,-1.557,-1.558,-1.560,-1.562,-1.564, &-1.566,-1.568,-1.569,-1.571,-1.573,-1.575,-1.577,-1.579,-1.580, &-1.582,-1.584,-1.586,-1.588,-1.589,-1.591,-1.593,-1.595,-1.597, &-1.598,-1.600,-1.602,-1.604,-1.606,-1.608,-1.609,-1.611,-1.613, &-1.615,-1.617,-1.618,-1.620,-1.622,-1.624,-1.625,-1.627,-1.629, &-1.631,-1.633,-1.634,-1.636,-1.655,-1.673,-1.691,-1.708,-1.725, &-1.742,-1.760,-1.777,-1.793,-1.810,-1.827,-1.844,-1.860,-1.877, &-1.893,-1.910,-1.926,-1.942,-1.958,-1.974,-1.990,-2.006,-2.022, &-2.038,-2.054,-2.070,-2.086,-2.101,-2.117,-2.132,-2.148,-2.163, &-2.179,-2.194,-2.210,-2.225,-2.240,-2.255,-2.271,-2.286,-2.301, &-2.316,-2.331,-2.346,-2.361,-2.376,-2.391,-2.406,-2.420,-2.435, &-2.450,-2.465,-2.479,-2.494,-2.509,-2.523,-2.538,-2.553,-2.567, &-2.582,-2.596,-2.611,-2.625,-2.640,-2.654,-2.668,-2.683,-2.697, &-2.711,-2.726,-2.740,-2.754,-2.768,-2.783,-2.797,-2.811,-2.825, &-2.839,-2.853,-2.867,-2.881,-2.895,-2.909,-2.923,-2.937,-2.951, &-2.965,-2.979,-2.993,-3.007,-3.021,-3.035,-3.049,-3.063,-3.076, &-3.090,-3.104,-3.118,-3.132,-3.145,-3.159,-3.173,-3.186,-3.200, &-3.214,-3.227,-3.241,-3.255,-3.268,-3.282,-3.295,-3.309,-3.323, &-3.336,-3.350,-3.363,-3.377,-3.390,-3.404,-3.417,-3.431,-3.444, &-3.458,-3.471,-3.484,-3.498,-3.511,-3.525,-3.538,-3.551,-3.565, &-3.578,-3.591,-3.605,-3.618,-3.631,-3.645,-3.658,-3.671,-3.684, &-3.698,-3.711,-3.724,-3.737,-3.750,-3.764,-3.777,-3.790,-3.803, &-3.816,-3.829,-3.843,-3.856,-3.869,-3.882,-3.895,-3.908,-3.921, &-3.934,-3.947,-3.960 & / C C *** (H,HSO4) C DATA BNC08M/ &-0.047,-0.093,-0.110,-0.119,-0.125,-0.128,-0.130,-0.130,-0.129, &-0.128,-0.126,-0.123,-0.119,-0.116,-0.111,-0.107,-0.102,-0.096, &-0.091,-0.085,-0.079,-0.073,-0.066,-0.059,-0.052,-0.045,-0.037, &-0.030,-0.022,-0.014,-0.006, 0.003, 0.011, 0.020, 0.028, 0.037, & 0.046, 0.055, 0.065, 0.074, 0.083, 0.093, 0.103, 0.113, 0.122, & 0.132, 0.142, 0.152, 0.163, 0.173, 0.183, 0.194, 0.204, 0.215, & 0.225, 0.236, 0.247, 0.258, 0.268, 0.279, 0.290, 0.301, 0.312, & 0.323, 0.334, 0.346, 0.357, 0.368, 0.380, 0.391, 0.402, 0.414, & 0.425, 0.437, 0.449, 0.461, 0.472, 0.484, 0.496, 0.508, 0.520, & 0.532, 0.544, 0.557, 0.569, 0.581, 0.594, 0.606, 0.619, 0.631, & 0.644, 0.657, 0.669, 0.682, 0.695, 0.708, 0.721, 0.734, 0.747, & 0.761, 0.774, 0.787, 0.800, 0.814, 0.827, 0.841, 0.854, 0.868, & 0.881, 0.895, 0.908, 0.922, 0.936, 0.949, 0.963, 0.977, 0.990, & 1.004, 1.018, 1.031, 1.045, 1.059, 1.072, 1.086, 1.100, 1.114, & 1.127, 1.141, 1.155, 1.168, 1.182, 1.195, 1.209, 1.223, 1.236, & 1.250, 1.263, 1.277, 1.290, 1.304, 1.317, 1.331, 1.344, 1.358, & 1.371, 1.384, 1.398, 1.411, 1.424, 1.437, 1.451, 1.464, 1.477, & 1.490, 1.503, 1.516, 1.529, 1.542, 1.555, 1.568, 1.581, 1.594, & 1.607, 1.620, 1.633, 1.646, 1.659, 1.671, 1.684, 1.697, 1.709, & 1.722, 1.735, 1.747, 1.760, 1.772, 1.785, 1.798, 1.810, 1.822, & 1.835, 1.847, 1.860, 1.872, 1.884, 1.896, 1.909, 1.921, 1.933, & 1.945, 1.957, 1.970, 1.982, 1.994, 2.006, 2.018, 2.030, 2.042, & 2.054, 2.065, 2.077, 2.089, 2.101, 2.113, 2.125, 2.136, 2.148, & 2.160, 2.171, 2.183, 2.195, 2.206, 2.218, 2.229, 2.241, 2.252, & 2.264, 2.275, 2.286, 2.298, 2.309, 2.320, 2.332, 2.343, 2.354, & 2.365, 2.377, 2.388, 2.399, 2.410, 2.421, 2.432, 2.443, 2.454, & 2.465, 2.476, 2.487, 2.498, 2.509, 2.520, 2.531, 2.541, 2.552, & 2.563, 2.574, 2.584, 2.595, 2.606, 2.616, 2.627, 2.638, 2.648, & 2.659, 2.669, 2.680, 2.690, 2.701, 2.711, 2.722, 2.732, 2.742, & 2.753, 2.763, 2.773, 2.784, 2.794, 2.804, 2.814, 2.825, 2.835, & 2.845, 2.855, 2.865, 2.875, 2.885, 2.895, 2.905, 2.915, 2.925, & 2.935, 2.945, 2.955, 2.965, 2.975, 2.985, 2.995, 3.005, 3.014, & 3.024, 3.034, 3.044, 3.053, 3.063, 3.073, 3.082, 3.092, 3.102, & 3.111, 3.121, 3.130, 3.140, 3.149, 3.159, 3.168, 3.178, 3.187, & 3.197, 3.206, 3.215, 3.225, 3.234, 3.243, 3.253, 3.262, 3.271, & 3.280, 3.290, 3.299, 3.308, 3.317, 3.326, 3.336, 3.345, 3.354, & 3.363, 3.372, 3.381, 3.390, 3.399, 3.408, 3.417, 3.426, 3.435, & 3.444, 3.453, 3.462, 3.470, 3.479, 3.488, 3.497, 3.506, 3.514, & 3.523, 3.532, 3.541, 3.549, 3.558, 3.567, 3.575, 3.584, 3.593, & 3.601, 3.610, 3.619, 3.627, 3.636, 3.644, 3.653, 3.661, 3.670, & 3.678, 3.687, 3.695, 3.704, 3.712, 3.720, 3.729, 3.737, 3.745, & 3.754, 3.762, 3.770, 3.779, 3.787, 3.795, 3.803, 3.812, 3.820, & 3.828, 3.836, 3.844, 3.852, 3.861, 3.869, 3.877, 3.885, 3.893, & 3.901, 3.909, 3.917, 3.925, 3.933, 3.941, 3.949, 3.957, 3.965, & 3.973, 3.981, 3.989, 3.997, 4.081, 4.158, 4.233, 4.307, 4.380, & 4.452, 4.522, 4.592, 4.660, 4.727, 4.793, 4.859, 4.923, 4.986, & 5.048, 5.110, 5.171, 5.230, 5.289, 5.347, 5.405, 5.461, 5.517, & 5.572, 5.626, 5.680, 5.733, 5.785, 5.837, 5.888, 5.938, 5.988, & 6.037, 6.085, 6.133, 6.181, 6.228, 6.274, 6.320, 6.365, 6.410, & 6.454, 6.498, 6.541, 6.584, 6.626, 6.668, 6.710, 6.751, 6.792, & 6.832, 6.872, 6.911, 6.950, 6.989, 7.027, 7.065, 7.102, 7.139, & 7.176, 7.212, 7.248, 7.284, 7.319, 7.354, 7.389, 7.424, 7.458, & 7.491, 7.525, 7.558, 7.591, 7.623, 7.656, 7.688, 7.719, 7.751, & 7.782, 7.813, 7.844, 7.874, 7.904, 7.934, 7.964, 7.993, 8.022, & 8.051, 8.080, 8.108, 8.137, 8.165, 8.192, 8.220, 8.247, 8.274, & 8.301, 8.328, 8.354, 8.381, 8.407, 8.433, 8.458, 8.484, 8.509, & 8.534, 8.559, 8.584, 8.609, 8.633, 8.657, 8.681, 8.705, 8.729, & 8.752, 8.776, 8.799, 8.822, 8.845, 8.868, 8.890, 8.913, 8.935, & 8.957, 8.979, 9.001, 9.022, 9.044, 9.065, 9.086, 9.107, 9.128, & 9.149, 9.170, 9.190, 9.211, 9.231, 9.251, 9.271, 9.291, 9.311, & 9.330, 9.350, 9.369, 9.388, 9.407, 9.426, 9.445, 9.464, 9.483, & 9.501, 9.520, 9.538, 9.556, 9.574, 9.592, 9.610, 9.628, 9.645, & 9.663, 9.680, 9.698 & / C C *** NH4HSO4 C DATA BNC09M/ &-0.050,-0.107,-0.134,-0.153,-0.167,-0.179,-0.189,-0.197,-0.204, &-0.211,-0.216,-0.221,-0.226,-0.230,-0.234,-0.237,-0.240,-0.243, &-0.245,-0.247,-0.249,-0.251,-0.252,-0.254,-0.255,-0.256,-0.256, &-0.257,-0.257,-0.258,-0.258,-0.258,-0.258,-0.258,-0.257,-0.257, &-0.256,-0.255,-0.255,-0.254,-0.253,-0.252,-0.250,-0.249,-0.248, &-0.246,-0.245,-0.243,-0.242,-0.240,-0.238,-0.236,-0.234,-0.232, &-0.230,-0.228,-0.226,-0.224,-0.221,-0.219,-0.217,-0.214,-0.212, &-0.209,-0.207,-0.204,-0.201,-0.199,-0.196,-0.193,-0.190,-0.188, &-0.185,-0.182,-0.179,-0.176,-0.173,-0.170,-0.167,-0.163,-0.160, &-0.157,-0.154,-0.150,-0.147,-0.144,-0.140,-0.137,-0.133,-0.130, &-0.126,-0.123,-0.119,-0.116,-0.112,-0.108,-0.104,-0.101,-0.097, &-0.093,-0.089,-0.086,-0.082,-0.078,-0.074,-0.070,-0.066,-0.062, &-0.058,-0.054,-0.050,-0.046,-0.042,-0.038,-0.034,-0.030,-0.026, &-0.022,-0.018,-0.014,-0.010,-0.006,-0.002, 0.002, 0.006, 0.010, & 0.014, 0.018, 0.022, 0.026, 0.030, 0.034, 0.038, 0.042, 0.046, & 0.050, 0.054, 0.058, 0.062, 0.066, 0.070, 0.074, 0.078, 0.082, & 0.086, 0.090, 0.094, 0.098, 0.102, 0.106, 0.110, 0.114, 0.117, & 0.121, 0.125, 0.129, 0.133, 0.137, 0.140, 0.144, 0.148, 0.152, & 0.156, 0.159, 0.163, 0.167, 0.171, 0.174, 0.178, 0.182, 0.186, & 0.189, 0.193, 0.197, 0.200, 0.204, 0.208, 0.211, 0.215, 0.219, & 0.222, 0.226, 0.229, 0.233, 0.237, 0.240, 0.244, 0.247, 0.251, & 0.254, 0.258, 0.261, 0.265, 0.268, 0.272, 0.275, 0.279, 0.282, & 0.286, 0.289, 0.293, 0.296, 0.299, 0.303, 0.306, 0.309, 0.313, & 0.316, 0.320, 0.323, 0.326, 0.330, 0.333, 0.336, 0.339, 0.343, & 0.346, 0.349, 0.353, 0.356, 0.359, 0.362, 0.366, 0.369, 0.372, & 0.375, 0.378, 0.382, 0.385, 0.388, 0.391, 0.394, 0.397, 0.401, & 0.404, 0.407, 0.410, 0.413, 0.416, 0.419, 0.422, 0.425, 0.428, & 0.431, 0.434, 0.438, 0.441, 0.444, 0.447, 0.450, 0.453, 0.456, & 0.459, 0.462, 0.465, 0.467, 0.470, 0.473, 0.476, 0.479, 0.482, & 0.485, 0.488, 0.491, 0.494, 0.497, 0.500, 0.502, 0.505, 0.508, & 0.511, 0.514, 0.517, 0.520, 0.522, 0.525, 0.528, 0.531, 0.534, & 0.536, 0.539, 0.542, 0.545, 0.547, 0.550, 0.553, 0.556, 0.558, & 0.561, 0.564, 0.567, 0.569, 0.572, 0.575, 0.577, 0.580, 0.583, & 0.585, 0.588, 0.591, 0.593, 0.596, 0.599, 0.601, 0.604, 0.607, & 0.609, 0.612, 0.614, 0.617, 0.620, 0.622, 0.625, 0.627, 0.630, & 0.633, 0.635, 0.638, 0.640, 0.643, 0.645, 0.648, 0.650, 0.653, & 0.655, 0.658, 0.660, 0.663, 0.665, 0.668, 0.670, 0.673, 0.675, & 0.678, 0.680, 0.683, 0.685, 0.687, 0.690, 0.692, 0.695, 0.697, & 0.700, 0.702, 0.704, 0.707, 0.709, 0.711, 0.714, 0.716, 0.719, & 0.721, 0.723, 0.726, 0.728, 0.730, 0.733, 0.735, 0.737, 0.740, & 0.742, 0.744, 0.747, 0.749, 0.751, 0.754, 0.756, 0.758, 0.760, & 0.763, 0.765, 0.767, 0.769, 0.772, 0.774, 0.776, 0.778, 0.781, & 0.783, 0.785, 0.787, 0.790, 0.792, 0.794, 0.796, 0.798, 0.801, & 0.803, 0.805, 0.807, 0.809, 0.811, 0.814, 0.816, 0.818, 0.820, & 0.822, 0.824, 0.827, 0.829, 0.851, 0.872, 0.892, 0.912, 0.932, & 0.951, 0.969, 0.988, 1.006, 1.024, 1.041, 1.058, 1.075, 1.091, & 1.107, 1.123, 1.139, 1.154, 1.169, 1.184, 1.199, 1.213, 1.227, & 1.241, 1.255, 1.268, 1.282, 1.295, 1.307, 1.320, 1.332, 1.345, & 1.357, 1.368, 1.380, 1.392, 1.403, 1.414, 1.425, 1.436, 1.446, & 1.457, 1.467, 1.478, 1.488, 1.497, 1.507, 1.517, 1.526, 1.536, & 1.545, 1.554, 1.563, 1.572, 1.580, 1.589, 1.597, 1.606, 1.614, & 1.622, 1.630, 1.638, 1.646, 1.653, 1.661, 1.668, 1.676, 1.683, & 1.690, 1.697, 1.704, 1.711, 1.718, 1.724, 1.731, 1.737, 1.744, & 1.750, 1.756, 1.762, 1.769, 1.775, 1.780, 1.786, 1.792, 1.798, & 1.803, 1.809, 1.814, 1.820, 1.825, 1.830, 1.835, 1.840, 1.845, & 1.850, 1.855, 1.860, 1.865, 1.870, 1.874, 1.879, 1.883, 1.888, & 1.892, 1.896, 1.901, 1.905, 1.909, 1.913, 1.917, 1.921, 1.925, & 1.929, 1.933, 1.936, 1.940, 1.944, 1.947, 1.951, 1.955, 1.958, & 1.961, 1.965, 1.968, 1.971, 1.975, 1.978, 1.981, 1.984, 1.987, & 1.990, 1.993, 1.996, 1.999, 2.001, 2.004, 2.007, 2.010, 2.012, & 2.015, 2.017, 2.020, 2.022, 2.025, 2.027, 2.030, 2.032, 2.034, & 2.037, 2.039, 2.041, 2.043, 2.045, 2.047, 2.049, 2.051, 2.053, & 2.055, 2.057, 2.059 & / C C *** (H,NO3) C DATA BNC10M/ &-0.049,-0.102,-0.125,-0.140,-0.150,-0.158,-0.163,-0.168,-0.171, &-0.174,-0.176,-0.178,-0.179,-0.179,-0.179,-0.179,-0.179,-0.179, &-0.178,-0.177,-0.176,-0.175,-0.174,-0.172,-0.171,-0.169,-0.168, &-0.166,-0.164,-0.162,-0.160,-0.158,-0.156,-0.154,-0.152,-0.150, &-0.148,-0.146,-0.144,-0.141,-0.139,-0.137,-0.135,-0.132,-0.130, &-0.128,-0.126,-0.123,-0.121,-0.119,-0.116,-0.114,-0.112,-0.109, &-0.107,-0.105,-0.102,-0.100,-0.098,-0.095,-0.093,-0.091,-0.088, &-0.086,-0.084,-0.081,-0.079,-0.077,-0.074,-0.072,-0.070,-0.067, &-0.065,-0.062,-0.060,-0.057,-0.055,-0.052,-0.050,-0.048,-0.045, &-0.042,-0.040,-0.037,-0.035,-0.032,-0.030,-0.027,-0.024,-0.022, &-0.019,-0.016,-0.013,-0.011,-0.008,-0.005,-0.002, 0.001, 0.003, & 0.006, 0.009, 0.012, 0.015, 0.018, 0.021, 0.024, 0.027, 0.030, & 0.033, 0.036, 0.039, 0.042, 0.045, 0.048, 0.051, 0.054, 0.057, & 0.060, 0.063, 0.066, 0.069, 0.072, 0.075, 0.078, 0.081, 0.084, & 0.087, 0.091, 0.094, 0.097, 0.100, 0.103, 0.106, 0.109, 0.112, & 0.115, 0.118, 0.121, 0.124, 0.127, 0.130, 0.133, 0.136, 0.139, & 0.142, 0.146, 0.149, 0.152, 0.155, 0.158, 0.161, 0.164, 0.167, & 0.170, 0.173, 0.176, 0.179, 0.182, 0.185, 0.188, 0.191, 0.193, & 0.196, 0.199, 0.202, 0.205, 0.208, 0.211, 0.214, 0.217, 0.220, & 0.223, 0.226, 0.229, 0.232, 0.235, 0.237, 0.240, 0.243, 0.246, & 0.249, 0.252, 0.255, 0.258, 0.260, 0.263, 0.266, 0.269, 0.272, & 0.275, 0.278, 0.280, 0.283, 0.286, 0.289, 0.292, 0.294, 0.297, & 0.300, 0.303, 0.306, 0.308, 0.311, 0.314, 0.317, 0.319, 0.322, & 0.325, 0.328, 0.330, 0.333, 0.336, 0.339, 0.341, 0.344, 0.347, & 0.349, 0.352, 0.355, 0.358, 0.360, 0.363, 0.366, 0.368, 0.371, & 0.374, 0.376, 0.379, 0.382, 0.384, 0.387, 0.389, 0.392, 0.395, & 0.397, 0.400, 0.403, 0.405, 0.408, 0.410, 0.413, 0.415, 0.418, & 0.421, 0.423, 0.426, 0.428, 0.431, 0.433, 0.436, 0.438, 0.441, & 0.444, 0.446, 0.449, 0.451, 0.454, 0.456, 0.459, 0.461, 0.464, & 0.466, 0.469, 0.471, 0.473, 0.476, 0.478, 0.481, 0.483, 0.486, & 0.488, 0.491, 0.493, 0.495, 0.498, 0.500, 0.503, 0.505, 0.508, & 0.510, 0.512, 0.515, 0.517, 0.519, 0.522, 0.524, 0.527, 0.529, & 0.531, 0.534, 0.536, 0.538, 0.541, 0.543, 0.545, 0.548, 0.550, & 0.552, 0.555, 0.557, 0.559, 0.562, 0.564, 0.566, 0.568, 0.571, & 0.573, 0.575, 0.578, 0.580, 0.582, 0.584, 0.587, 0.589, 0.591, & 0.593, 0.595, 0.598, 0.600, 0.602, 0.604, 0.607, 0.609, 0.611, & 0.613, 0.615, 0.618, 0.620, 0.622, 0.624, 0.626, 0.628, 0.631, & 0.633, 0.635, 0.637, 0.639, 0.641, 0.644, 0.646, 0.648, 0.650, & 0.652, 0.654, 0.656, 0.658, 0.660, 0.663, 0.665, 0.667, 0.669, & 0.671, 0.673, 0.675, 0.677, 0.679, 0.681, 0.683, 0.685, 0.688, & 0.690, 0.692, 0.694, 0.696, 0.698, 0.700, 0.702, 0.704, 0.706, & 0.708, 0.710, 0.712, 0.714, 0.716, 0.718, 0.720, 0.722, 0.724, & 0.726, 0.728, 0.730, 0.732, 0.734, 0.736, 0.738, 0.740, 0.742, & 0.743, 0.745, 0.747, 0.749, 0.751, 0.753, 0.755, 0.757, 0.759, & 0.761, 0.763, 0.765, 0.767, 0.787, 0.805, 0.824, 0.841, 0.859, & 0.876, 0.893, 0.909, 0.926, 0.942, 0.957, 0.973, 0.988, 1.003, & 1.017, 1.032, 1.046, 1.060, 1.073, 1.087, 1.100, 1.113, 1.126, & 1.138, 1.151, 1.163, 1.175, 1.187, 1.198, 1.210, 1.221, 1.232, & 1.243, 1.253, 1.264, 1.274, 1.285, 1.295, 1.305, 1.314, 1.324, & 1.333, 1.343, 1.352, 1.361, 1.370, 1.378, 1.387, 1.395, 1.404, & 1.412, 1.420, 1.428, 1.436, 1.444, 1.451, 1.459, 1.466, 1.474, & 1.481, 1.488, 1.495, 1.502, 1.509, 1.515, 1.522, 1.529, 1.535, & 1.541, 1.548, 1.554, 1.560, 1.566, 1.572, 1.577, 1.583, 1.589, & 1.594, 1.600, 1.605, 1.610, 1.616, 1.621, 1.626, 1.631, 1.636, & 1.641, 1.645, 1.650, 1.655, 1.659, 1.664, 1.668, 1.673, 1.677, & 1.681, 1.685, 1.690, 1.694, 1.698, 1.702, 1.705, 1.709, 1.713, & 1.717, 1.720, 1.724, 1.728, 1.731, 1.734, 1.738, 1.741, 1.744, & 1.748, 1.751, 1.754, 1.757, 1.760, 1.763, 1.766, 1.769, 1.772, & 1.775, 1.777, 1.780, 1.783, 1.785, 1.788, 1.790, 1.793, 1.795, & 1.798, 1.800, 1.802, 1.805, 1.807, 1.809, 1.811, 1.813, 1.815, & 1.817, 1.819, 1.821, 1.823, 1.825, 1.827, 1.829, 1.831, 1.832, & 1.834, 1.836, 1.838, 1.839, 1.841, 1.842, 1.844, 1.845, 1.847, & 1.848, 1.849, 1.851 & / C C *** (H,Cl) C DATA BNC11M/ &-0.048,-0.094,-0.112,-0.122,-0.128,-0.131,-0.133,-0.133,-0.133, &-0.131,-0.129,-0.126,-0.123,-0.119,-0.116,-0.111,-0.107,-0.102, &-0.097,-0.092,-0.086,-0.080,-0.075,-0.069,-0.062,-0.056,-0.050, &-0.043,-0.037,-0.030,-0.023,-0.016,-0.009,-0.002, 0.005, 0.012, & 0.020, 0.027, 0.035, 0.042, 0.050, 0.057, 0.065, 0.072, 0.080, & 0.088, 0.095, 0.103, 0.111, 0.119, 0.126, 0.134, 0.142, 0.150, & 0.158, 0.166, 0.174, 0.182, 0.190, 0.198, 0.206, 0.214, 0.222, & 0.230, 0.238, 0.246, 0.254, 0.262, 0.270, 0.278, 0.287, 0.295, & 0.303, 0.311, 0.320, 0.328, 0.336, 0.345, 0.353, 0.362, 0.370, & 0.379, 0.387, 0.396, 0.405, 0.413, 0.422, 0.431, 0.440, 0.449, & 0.457, 0.466, 0.475, 0.484, 0.494, 0.503, 0.512, 0.521, 0.530, & 0.540, 0.549, 0.558, 0.568, 0.577, 0.587, 0.596, 0.606, 0.615, & 0.625, 0.634, 0.644, 0.653, 0.663, 0.673, 0.682, 0.692, 0.702, & 0.711, 0.721, 0.731, 0.740, 0.750, 0.760, 0.769, 0.779, 0.789, & 0.798, 0.808, 0.818, 0.827, 0.837, 0.847, 0.856, 0.866, 0.875, & 0.885, 0.895, 0.904, 0.914, 0.923, 0.933, 0.942, 0.952, 0.961, & 0.971, 0.980, 0.990, 0.999, 1.009, 1.018, 1.027, 1.037, 1.046, & 1.055, 1.065, 1.074, 1.083, 1.093, 1.102, 1.111, 1.120, 1.130, & 1.139, 1.148, 1.157, 1.166, 1.175, 1.184, 1.194, 1.203, 1.212, & 1.221, 1.230, 1.239, 1.248, 1.257, 1.266, 1.275, 1.283, 1.292, & 1.301, 1.310, 1.319, 1.328, 1.336, 1.345, 1.354, 1.363, 1.372, & 1.380, 1.389, 1.398, 1.406, 1.415, 1.423, 1.432, 1.441, 1.449, & 1.458, 1.466, 1.475, 1.483, 1.492, 1.500, 1.509, 1.517, 1.526, & 1.534, 1.542, 1.551, 1.559, 1.567, 1.576, 1.584, 1.592, 1.600, & 1.609, 1.617, 1.625, 1.633, 1.641, 1.649, 1.658, 1.666, 1.674, & 1.682, 1.690, 1.698, 1.706, 1.714, 1.722, 1.730, 1.738, 1.746, & 1.754, 1.762, 1.769, 1.777, 1.785, 1.793, 1.801, 1.809, 1.816, & 1.824, 1.832, 1.840, 1.847, 1.855, 1.863, 1.870, 1.878, 1.886, & 1.893, 1.901, 1.908, 1.916, 1.924, 1.931, 1.939, 1.946, 1.954, & 1.961, 1.969, 1.976, 1.983, 1.991, 1.998, 2.006, 2.013, 2.020, & 2.028, 2.035, 2.042, 2.049, 2.057, 2.064, 2.071, 2.078, 2.086, & 2.093, 2.100, 2.107, 2.114, 2.122, 2.129, 2.136, 2.143, 2.150, & 2.157, 2.164, 2.171, 2.178, 2.185, 2.192, 2.199, 2.206, 2.213, & 2.220, 2.227, 2.234, 2.241, 2.247, 2.254, 2.261, 2.268, 2.275, & 2.282, 2.288, 2.295, 2.302, 2.309, 2.315, 2.322, 2.329, 2.336, & 2.342, 2.349, 2.356, 2.362, 2.369, 2.376, 2.382, 2.389, 2.395, & 2.402, 2.408, 2.415, 2.421, 2.428, 2.434, 2.441, 2.447, 2.454, & 2.460, 2.467, 2.473, 2.480, 2.486, 2.492, 2.499, 2.505, 2.512, & 2.518, 2.524, 2.531, 2.537, 2.543, 2.549, 2.556, 2.562, 2.568, & 2.574, 2.581, 2.587, 2.593, 2.599, 2.605, 2.612, 2.618, 2.624, & 2.630, 2.636, 2.642, 2.648, 2.654, 2.660, 2.666, 2.672, 2.679, & 2.685, 2.691, 2.697, 2.703, 2.709, 2.714, 2.720, 2.726, 2.732, & 2.738, 2.744, 2.750, 2.756, 2.762, 2.768, 2.774, 2.779, 2.785, & 2.791, 2.797, 2.803, 2.808, 2.814, 2.820, 2.826, 2.832, 2.837, & 2.843, 2.849, 2.854, 2.860, 2.921, 2.976, 3.031, 3.084, 3.137, & 3.189, 3.240, 3.290, 3.339, 3.387, 3.435, 3.482, 3.528, 3.574, & 3.619, 3.663, 3.706, 3.749, 3.792, 3.833, 3.874, 3.915, 3.955, & 3.994, 4.033, 4.072, 4.109, 4.147, 4.184, 4.220, 4.256, 4.291, & 4.327, 4.361, 4.395, 4.429, 4.462, 4.495, 4.528, 4.560, 4.592, & 4.623, 4.654, 4.685, 4.716, 4.746, 4.775, 4.805, 4.834, 4.862, & 4.891, 4.919, 4.947, 4.974, 5.001, 5.028, 5.055, 5.081, 5.107, & 5.133, 5.159, 5.184, 5.209, 5.234, 5.259, 5.283, 5.307, 5.331, & 5.355, 5.378, 5.401, 5.424, 5.447, 5.469, 5.492, 5.514, 5.536, & 5.557, 5.579, 5.600, 5.621, 5.642, 5.663, 5.684, 5.704, 5.724, & 5.744, 5.764, 5.784, 5.803, 5.823, 5.842, 5.861, 5.880, 5.898, & 5.917, 5.935, 5.953, 5.972, 5.989, 6.007, 6.025, 6.042, 6.060, & 6.077, 6.094, 6.111, 6.128, 6.144, 6.161, 6.177, 6.194, 6.210, & 6.226, 6.242, 6.257, 6.273, 6.289, 6.304, 6.319, 6.334, 6.350, & 6.365, 6.379, 6.394, 6.409, 6.423, 6.438, 6.452, 6.466, 6.480, & 6.494, 6.508, 6.522, 6.536, 6.549, 6.563, 6.576, 6.589, 6.602, & 6.616, 6.629, 6.641, 6.654, 6.667, 6.680, 6.692, 6.705, 6.717, & 6.729, 6.742, 6.754, 6.766, 6.778, 6.790, 6.801, 6.813, 6.825, & 6.836, 6.848, 6.859 & / C C *** NaHSO4 C DATA BNC12M/ &-0.049,-0.101,-0.125,-0.140,-0.151,-0.159,-0.166,-0.171,-0.175, &-0.178,-0.181,-0.183,-0.184,-0.185,-0.186,-0.186,-0.186,-0.186, &-0.186,-0.185,-0.184,-0.183,-0.181,-0.180,-0.178,-0.176,-0.174, &-0.172,-0.170,-0.167,-0.165,-0.162,-0.159,-0.156,-0.153,-0.150, &-0.147,-0.144,-0.140,-0.137,-0.133,-0.130,-0.126,-0.122,-0.118, &-0.114,-0.110,-0.106,-0.102,-0.098,-0.094,-0.090,-0.085,-0.081, &-0.076,-0.072,-0.068,-0.063,-0.058,-0.054,-0.049,-0.044,-0.040, &-0.035,-0.030,-0.025,-0.020,-0.015,-0.010,-0.005, 0.000, 0.005, & 0.010, 0.015, 0.020, 0.026, 0.031, 0.036, 0.042, 0.047, 0.052, & 0.058, 0.063, 0.069, 0.075, 0.080, 0.086, 0.092, 0.097, 0.103, & 0.109, 0.115, 0.121, 0.127, 0.133, 0.139, 0.145, 0.151, 0.157, & 0.163, 0.169, 0.175, 0.181, 0.188, 0.194, 0.200, 0.206, 0.213, & 0.219, 0.225, 0.232, 0.238, 0.244, 0.251, 0.257, 0.264, 0.270, & 0.276, 0.283, 0.289, 0.296, 0.302, 0.308, 0.315, 0.321, 0.328, & 0.334, 0.341, 0.347, 0.353, 0.360, 0.366, 0.373, 0.379, 0.385, & 0.392, 0.398, 0.404, 0.411, 0.417, 0.423, 0.430, 0.436, 0.442, & 0.448, 0.455, 0.461, 0.467, 0.473, 0.480, 0.486, 0.492, 0.498, & 0.504, 0.510, 0.517, 0.523, 0.529, 0.535, 0.541, 0.547, 0.553, & 0.559, 0.565, 0.571, 0.577, 0.583, 0.589, 0.595, 0.601, 0.607, & 0.613, 0.619, 0.625, 0.631, 0.637, 0.642, 0.648, 0.654, 0.660, & 0.666, 0.671, 0.677, 0.683, 0.689, 0.694, 0.700, 0.706, 0.712, & 0.717, 0.723, 0.729, 0.734, 0.740, 0.746, 0.751, 0.757, 0.762, & 0.768, 0.773, 0.779, 0.785, 0.790, 0.796, 0.801, 0.807, 0.812, & 0.817, 0.823, 0.828, 0.834, 0.839, 0.845, 0.850, 0.855, 0.861, & 0.866, 0.871, 0.877, 0.882, 0.887, 0.893, 0.898, 0.903, 0.908, & 0.914, 0.919, 0.924, 0.929, 0.934, 0.939, 0.945, 0.950, 0.955, & 0.960, 0.965, 0.970, 0.975, 0.980, 0.986, 0.991, 0.996, 1.001, & 1.006, 1.011, 1.016, 1.021, 1.026, 1.031, 1.036, 1.041, 1.046, & 1.050, 1.055, 1.060, 1.065, 1.070, 1.075, 1.080, 1.085, 1.089, & 1.094, 1.099, 1.104, 1.109, 1.114, 1.118, 1.123, 1.128, 1.133, & 1.137, 1.142, 1.147, 1.151, 1.156, 1.161, 1.165, 1.170, 1.175, & 1.179, 1.184, 1.189, 1.193, 1.198, 1.203, 1.207, 1.212, 1.216, & 1.221, 1.225, 1.230, 1.234, 1.239, 1.243, 1.248, 1.252, 1.257, & 1.261, 1.266, 1.270, 1.275, 1.279, 1.284, 1.288, 1.293, 1.297, & 1.301, 1.306, 1.310, 1.314, 1.319, 1.323, 1.327, 1.332, 1.336, & 1.340, 1.345, 1.349, 1.353, 1.358, 1.362, 1.366, 1.370, 1.375, & 1.379, 1.383, 1.387, 1.391, 1.396, 1.400, 1.404, 1.408, 1.412, & 1.417, 1.421, 1.425, 1.429, 1.433, 1.437, 1.441, 1.445, 1.450, & 1.454, 1.458, 1.462, 1.466, 1.470, 1.474, 1.478, 1.482, 1.486, & 1.490, 1.494, 1.498, 1.502, 1.506, 1.510, 1.514, 1.518, 1.522, & 1.526, 1.530, 1.534, 1.538, 1.542, 1.546, 1.549, 1.553, 1.557, & 1.561, 1.565, 1.569, 1.573, 1.577, 1.580, 1.584, 1.588, 1.592, & 1.596, 1.600, 1.603, 1.607, 1.611, 1.615, 1.618, 1.622, 1.626, & 1.630, 1.633, 1.637, 1.641, 1.645, 1.648, 1.652, 1.656, 1.660, & 1.663, 1.667, 1.671, 1.674, 1.714, 1.749, 1.784, 1.819, 1.853, & 1.886, 1.919, 1.951, 1.982, 2.014, 2.044, 2.074, 2.104, 2.133, & 2.162, 2.190, 2.218, 2.246, 2.273, 2.300, 2.326, 2.352, 2.377, & 2.403, 2.427, 2.452, 2.476, 2.500, 2.523, 2.547, 2.569, 2.592, & 2.614, 2.636, 2.658, 2.679, 2.700, 2.721, 2.742, 2.762, 2.782, & 2.802, 2.822, 2.841, 2.860, 2.879, 2.898, 2.916, 2.934, 2.952, & 2.970, 2.988, 3.005, 3.022, 3.039, 3.056, 3.073, 3.089, 3.105, & 3.121, 3.137, 3.153, 3.168, 3.184, 3.199, 3.214, 3.229, 3.244, & 3.258, 3.273, 3.287, 3.301, 3.315, 3.329, 3.342, 3.356, 3.369, & 3.382, 3.395, 3.408, 3.421, 3.434, 3.446, 3.459, 3.471, 3.483, & 3.496, 3.507, 3.519, 3.531, 3.543, 3.554, 3.566, 3.577, 3.588, & 3.599, 3.610, 3.621, 3.632, 3.642, 3.653, 3.663, 3.674, 3.684, & 3.694, 3.704, 3.714, 3.724, 3.734, 3.743, 3.753, 3.762, 3.772, & 3.781, 3.790, 3.800, 3.809, 3.818, 3.826, 3.835, 3.844, 3.853, & 3.861, 3.870, 3.878, 3.887, 3.895, 3.903, 3.911, 3.919, 3.927, & 3.935, 3.943, 3.951, 3.959, 3.966, 3.974, 3.981, 3.989, 3.996, & 4.004, 4.011, 4.018, 4.025, 4.032, 4.039, 4.046, 4.053, 4.060, & 4.067, 4.073, 4.080, 4.087, 4.093, 4.100, 4.106, 4.113, 4.119, & 4.125, 4.131, 4.138 & / C C *** (NH4)3H(SO4)2 C DATA BNC13M/ &-0.082,-0.178,-0.227,-0.261,-0.288,-0.311,-0.330,-0.347,-0.363, &-0.377,-0.389,-0.401,-0.412,-0.422,-0.431,-0.440,-0.449,-0.457, &-0.464,-0.471,-0.478,-0.485,-0.491,-0.497,-0.503,-0.508,-0.514, &-0.519,-0.524,-0.529,-0.533,-0.538,-0.542,-0.546,-0.550,-0.554, &-0.557,-0.561,-0.565,-0.568,-0.571,-0.574,-0.578,-0.581,-0.583, &-0.586,-0.589,-0.592,-0.594,-0.597,-0.599,-0.602,-0.604,-0.606, &-0.608,-0.610,-0.612,-0.614,-0.616,-0.618,-0.620,-0.622,-0.624, &-0.625,-0.627,-0.629,-0.630,-0.632,-0.633,-0.635,-0.636,-0.637, &-0.639,-0.640,-0.641,-0.643,-0.644,-0.645,-0.646,-0.647,-0.648, &-0.649,-0.650,-0.651,-0.652,-0.653,-0.654,-0.655,-0.656,-0.657, &-0.658,-0.658,-0.659,-0.660,-0.661,-0.661,-0.662,-0.663,-0.663, &-0.664,-0.665,-0.665,-0.666,-0.666,-0.667,-0.667,-0.668,-0.668, &-0.669,-0.669,-0.670,-0.670,-0.671,-0.671,-0.671,-0.672,-0.672, &-0.673,-0.673,-0.673,-0.674,-0.674,-0.674,-0.675,-0.675,-0.675, &-0.676,-0.676,-0.676,-0.676,-0.677,-0.677,-0.677,-0.677,-0.678, &-0.678,-0.678,-0.679,-0.679,-0.679,-0.679,-0.679,-0.680,-0.680, &-0.680,-0.680,-0.681,-0.681,-0.681,-0.681,-0.681,-0.682,-0.682, &-0.682,-0.682,-0.682,-0.683,-0.683,-0.683,-0.683,-0.683,-0.684, &-0.684,-0.684,-0.684,-0.684,-0.685,-0.685,-0.685,-0.685,-0.685, &-0.686,-0.686,-0.686,-0.686,-0.686,-0.687,-0.687,-0.687,-0.687, &-0.687,-0.687,-0.688,-0.688,-0.688,-0.688,-0.688,-0.689,-0.689, &-0.689,-0.689,-0.689,-0.690,-0.690,-0.690,-0.690,-0.690,-0.691, &-0.691,-0.691,-0.691,-0.691,-0.691,-0.692,-0.692,-0.692,-0.692, &-0.692,-0.693,-0.693,-0.693,-0.693,-0.693,-0.694,-0.694,-0.694, &-0.694,-0.694,-0.695,-0.695,-0.695,-0.695,-0.695,-0.696,-0.696, &-0.696,-0.696,-0.696,-0.697,-0.697,-0.697,-0.697,-0.698,-0.698, &-0.698,-0.698,-0.698,-0.699,-0.699,-0.699,-0.699,-0.699,-0.700, &-0.700,-0.700,-0.700,-0.701,-0.701,-0.701,-0.701,-0.702,-0.702, &-0.702,-0.702,-0.702,-0.703,-0.703,-0.703,-0.703,-0.704,-0.704, &-0.704,-0.704,-0.705,-0.705,-0.705,-0.705,-0.706,-0.706,-0.706, &-0.706,-0.706,-0.707,-0.707,-0.707,-0.707,-0.708,-0.708,-0.708, &-0.708,-0.709,-0.709,-0.709,-0.710,-0.710,-0.710,-0.710,-0.711, &-0.711,-0.711,-0.711,-0.712,-0.712,-0.712,-0.712,-0.713,-0.713, &-0.713,-0.713,-0.714,-0.714,-0.714,-0.715,-0.715,-0.715,-0.715, &-0.716,-0.716,-0.716,-0.716,-0.717,-0.717,-0.717,-0.718,-0.718, &-0.718,-0.718,-0.719,-0.719,-0.719,-0.720,-0.720,-0.720,-0.720, &-0.721,-0.721,-0.721,-0.722,-0.722,-0.722,-0.723,-0.723,-0.723, &-0.723,-0.724,-0.724,-0.724,-0.725,-0.725,-0.725,-0.726,-0.726, &-0.726,-0.727,-0.727,-0.727,-0.727,-0.728,-0.728,-0.728,-0.729, &-0.729,-0.729,-0.730,-0.730,-0.730,-0.731,-0.731,-0.731,-0.732, &-0.732,-0.732,-0.733,-0.733,-0.733,-0.733,-0.734,-0.734,-0.734, &-0.735,-0.735,-0.735,-0.736,-0.736,-0.736,-0.737,-0.737,-0.737, &-0.738,-0.738,-0.738,-0.739,-0.739,-0.740,-0.740,-0.740,-0.741, &-0.741,-0.741,-0.742,-0.742,-0.742,-0.743,-0.743,-0.743,-0.744, &-0.744,-0.744,-0.745,-0.745,-0.749,-0.753,-0.756,-0.760,-0.764, &-0.768,-0.772,-0.776,-0.780,-0.784,-0.788,-0.793,-0.797,-0.801, &-0.806,-0.810,-0.815,-0.820,-0.824,-0.829,-0.834,-0.839,-0.844, &-0.848,-0.853,-0.858,-0.863,-0.869,-0.874,-0.879,-0.884,-0.889, &-0.895,-0.900,-0.905,-0.911,-0.916,-0.922,-0.927,-0.933,-0.938, &-0.944,-0.950,-0.955,-0.961,-0.967,-0.972,-0.978,-0.984,-0.990, &-0.996,-1.002,-1.008,-1.014,-1.020,-1.026,-1.032,-1.038,-1.044, &-1.050,-1.056,-1.062,-1.068,-1.075,-1.081,-1.087,-1.093,-1.100, &-1.106,-1.112,-1.119,-1.125,-1.131,-1.138,-1.144,-1.151,-1.157, &-1.164,-1.170,-1.177,-1.183,-1.190,-1.196,-1.203,-1.209,-1.216, &-1.223,-1.229,-1.236,-1.243,-1.249,-1.256,-1.263,-1.270,-1.276, &-1.283,-1.290,-1.297,-1.304,-1.310,-1.317,-1.324,-1.331,-1.338, &-1.345,-1.352,-1.359,-1.365,-1.372,-1.379,-1.386,-1.393,-1.400, &-1.407,-1.414,-1.421,-1.428,-1.435,-1.442,-1.450,-1.457,-1.464, &-1.471,-1.478,-1.485,-1.492,-1.499,-1.506,-1.514,-1.521,-1.528, &-1.535,-1.542,-1.549,-1.557,-1.564,-1.571,-1.578,-1.586,-1.593, &-1.600,-1.607,-1.615,-1.622,-1.629,-1.636,-1.644,-1.651,-1.658, &-1.666,-1.673,-1.680,-1.688,-1.695,-1.702,-1.710,-1.717,-1.725, &-1.732,-1.739,-1.747 & / C C *** CASO4 C DATA BNC14M/ & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000 & / C C *** CANO32 C DATA BNC15M/ &-0.101,-0.216,-0.271,-0.308,-0.337,-0.360,-0.379,-0.396,-0.410, &-0.422,-0.433,-0.443,-0.452,-0.460,-0.468,-0.475,-0.481,-0.487, &-0.492,-0.497,-0.502,-0.506,-0.510,-0.514,-0.517,-0.520,-0.524, &-0.526,-0.529,-0.532,-0.534,-0.537,-0.539,-0.541,-0.543,-0.545, &-0.547,-0.549,-0.550,-0.552,-0.553,-0.555,-0.556,-0.558,-0.559, &-0.560,-0.561,-0.563,-0.564,-0.565,-0.566,-0.567,-0.568,-0.569, &-0.570,-0.571,-0.572,-0.572,-0.573,-0.574,-0.575,-0.576,-0.576, &-0.577,-0.578,-0.578,-0.579,-0.580,-0.580,-0.581,-0.581,-0.582, &-0.582,-0.583,-0.583,-0.584,-0.584,-0.585,-0.585,-0.585,-0.586, &-0.586,-0.586,-0.586,-0.587,-0.587,-0.587,-0.587,-0.587,-0.587, &-0.587,-0.588,-0.588,-0.588,-0.588,-0.588,-0.587,-0.587,-0.587, &-0.587,-0.587,-0.587,-0.587,-0.587,-0.586,-0.586,-0.586,-0.586, &-0.585,-0.585,-0.585,-0.585,-0.584,-0.584,-0.584,-0.583,-0.583, &-0.583,-0.582,-0.582,-0.581,-0.581,-0.581,-0.580,-0.580,-0.579, &-0.579,-0.579,-0.578,-0.578,-0.577,-0.577,-0.576,-0.576,-0.576, &-0.575,-0.575,-0.574,-0.574,-0.573,-0.573,-0.572,-0.572,-0.571, &-0.571,-0.570,-0.570,-0.570,-0.569,-0.569,-0.568,-0.568,-0.567, &-0.567,-0.566,-0.566,-0.565,-0.565,-0.564,-0.564,-0.563,-0.563, &-0.562,-0.562,-0.562,-0.561,-0.561,-0.560,-0.560,-0.559,-0.559, &-0.558,-0.558,-0.557,-0.557,-0.556,-0.556,-0.555,-0.555,-0.554, &-0.554,-0.554,-0.553,-0.553,-0.552,-0.552,-0.551,-0.551,-0.550, &-0.550,-0.549,-0.549,-0.548,-0.548,-0.548,-0.547,-0.547,-0.546, &-0.546,-0.545,-0.545,-0.544,-0.544,-0.544,-0.543,-0.543,-0.542, &-0.542,-0.541,-0.541,-0.540,-0.540,-0.540,-0.539,-0.539,-0.538, &-0.538,-0.537,-0.537,-0.537,-0.536,-0.536,-0.535,-0.535,-0.535, &-0.534,-0.534,-0.533,-0.533,-0.533,-0.532,-0.532,-0.531,-0.531, &-0.531,-0.530,-0.530,-0.529,-0.529,-0.529,-0.528,-0.528,-0.527, &-0.527,-0.527,-0.526,-0.526,-0.525,-0.525,-0.525,-0.524,-0.524, &-0.524,-0.523,-0.523,-0.523,-0.522,-0.522,-0.521,-0.521,-0.521, &-0.520,-0.520,-0.520,-0.519,-0.519,-0.519,-0.518,-0.518,-0.518, &-0.517,-0.517,-0.517,-0.516,-0.516,-0.516,-0.515,-0.515,-0.515, &-0.514,-0.514,-0.514,-0.513,-0.513,-0.513,-0.512,-0.512,-0.512, &-0.512,-0.511,-0.511,-0.511,-0.510,-0.510,-0.510,-0.509,-0.509, &-0.509,-0.509,-0.508,-0.508,-0.508,-0.507,-0.507,-0.507,-0.507, &-0.506,-0.506,-0.506,-0.506,-0.505,-0.505,-0.505,-0.504,-0.504, &-0.504,-0.504,-0.503,-0.503,-0.503,-0.503,-0.502,-0.502,-0.502, &-0.502,-0.501,-0.501,-0.501,-0.501,-0.501,-0.500,-0.500,-0.500, &-0.500,-0.499,-0.499,-0.499,-0.499,-0.499,-0.498,-0.498,-0.498, &-0.498,-0.497,-0.497,-0.497,-0.497,-0.497,-0.496,-0.496,-0.496, &-0.496,-0.496,-0.495,-0.495,-0.495,-0.495,-0.495,-0.495,-0.494, &-0.494,-0.494,-0.494,-0.494,-0.493,-0.493,-0.493,-0.493,-0.493, &-0.493,-0.492,-0.492,-0.492,-0.492,-0.492,-0.492,-0.491,-0.491, &-0.491,-0.491,-0.491,-0.491,-0.491,-0.490,-0.490,-0.490,-0.490, &-0.490,-0.490,-0.490,-0.489,-0.489,-0.489,-0.489,-0.489,-0.489, &-0.489,-0.489,-0.488,-0.488,-0.487,-0.486,-0.485,-0.485,-0.484, &-0.484,-0.484,-0.484,-0.484,-0.484,-0.484,-0.485,-0.485,-0.486, &-0.487,-0.488,-0.489,-0.490,-0.491,-0.492,-0.494,-0.495,-0.497, &-0.499,-0.501,-0.503,-0.505,-0.507,-0.509,-0.511,-0.514,-0.516, &-0.519,-0.522,-0.524,-0.527,-0.530,-0.533,-0.536,-0.539,-0.543, &-0.546,-0.549,-0.553,-0.556,-0.560,-0.563,-0.567,-0.571,-0.575, &-0.578,-0.582,-0.586,-0.590,-0.595,-0.599,-0.603,-0.607,-0.612, &-0.616,-0.620,-0.625,-0.629,-0.634,-0.639,-0.643,-0.648,-0.653, &-0.658,-0.663,-0.668,-0.673,-0.678,-0.683,-0.688,-0.693,-0.698, &-0.703,-0.709,-0.714,-0.719,-0.725,-0.730,-0.736,-0.741,-0.747, &-0.752,-0.758,-0.764,-0.769,-0.775,-0.781,-0.787,-0.792,-0.798, &-0.804,-0.810,-0.816,-0.822,-0.828,-0.834,-0.840,-0.846,-0.853, &-0.859,-0.865,-0.871,-0.877,-0.884,-0.890,-0.896,-0.903,-0.909, &-0.916,-0.922,-0.929,-0.935,-0.942,-0.948,-0.955,-0.961,-0.968, &-0.975,-0.981,-0.988,-0.995,-1.001,-1.008,-1.015,-1.022,-1.029, &-1.036,-1.042,-1.049,-1.056,-1.063,-1.070,-1.077,-1.084,-1.091, &-1.098,-1.105,-1.112,-1.119,-1.127,-1.134,-1.141,-1.148,-1.155, &-1.162,-1.170,-1.177,-1.184,-1.191,-1.199,-1.206,-1.213,-1.221, &-1.228,-1.235,-1.243 & / C C *** CACL2 C DATA BNC16M/ &-0.099,-0.205,-0.252,-0.282,-0.304,-0.320,-0.332,-0.342,-0.350, &-0.356,-0.361,-0.364,-0.367,-0.369,-0.370,-0.371,-0.371,-0.371, &-0.370,-0.370,-0.368,-0.367,-0.365,-0.363,-0.361,-0.358,-0.356, &-0.353,-0.350,-0.347,-0.344,-0.341,-0.337,-0.334,-0.330,-0.327, &-0.323,-0.320,-0.316,-0.312,-0.308,-0.305,-0.301,-0.297,-0.293, &-0.289,-0.285,-0.281,-0.277,-0.273,-0.269,-0.265,-0.262,-0.258, &-0.254,-0.250,-0.246,-0.242,-0.238,-0.234,-0.230,-0.226,-0.222, &-0.218,-0.213,-0.209,-0.205,-0.201,-0.197,-0.193,-0.189,-0.185, &-0.181,-0.176,-0.172,-0.168,-0.164,-0.160,-0.155,-0.151,-0.146, &-0.142,-0.138,-0.133,-0.129,-0.124,-0.120,-0.115,-0.110,-0.106, &-0.101,-0.096,-0.091,-0.086,-0.082,-0.077,-0.072,-0.067,-0.062, &-0.057,-0.052,-0.047,-0.042,-0.036,-0.031,-0.026,-0.021,-0.016, &-0.010,-0.005, 0.000, 0.005, 0.011, 0.016, 0.021, 0.027, 0.032, & 0.037, 0.043, 0.048, 0.054, 0.059, 0.064, 0.070, 0.075, 0.081, & 0.086, 0.092, 0.097, 0.102, 0.108, 0.113, 0.119, 0.124, 0.129, & 0.135, 0.140, 0.146, 0.151, 0.156, 0.162, 0.167, 0.173, 0.178, & 0.183, 0.189, 0.194, 0.199, 0.205, 0.210, 0.215, 0.221, 0.226, & 0.231, 0.237, 0.242, 0.247, 0.252, 0.258, 0.263, 0.268, 0.273, & 0.279, 0.284, 0.289, 0.294, 0.299, 0.305, 0.310, 0.315, 0.320, & 0.325, 0.331, 0.336, 0.341, 0.346, 0.351, 0.356, 0.361, 0.366, & 0.371, 0.377, 0.382, 0.387, 0.392, 0.397, 0.402, 0.407, 0.412, & 0.417, 0.422, 0.427, 0.432, 0.437, 0.442, 0.447, 0.452, 0.457, & 0.462, 0.467, 0.472, 0.476, 0.481, 0.486, 0.491, 0.496, 0.501, & 0.506, 0.511, 0.515, 0.520, 0.525, 0.530, 0.535, 0.539, 0.544, & 0.549, 0.554, 0.559, 0.563, 0.568, 0.573, 0.578, 0.582, 0.587, & 0.592, 0.596, 0.601, 0.606, 0.610, 0.615, 0.620, 0.624, 0.629, & 0.634, 0.638, 0.643, 0.647, 0.652, 0.657, 0.661, 0.666, 0.670, & 0.675, 0.679, 0.684, 0.688, 0.693, 0.697, 0.702, 0.706, 0.711, & 0.715, 0.720, 0.724, 0.729, 0.733, 0.737, 0.742, 0.746, 0.751, & 0.755, 0.759, 0.764, 0.768, 0.773, 0.777, 0.781, 0.786, 0.790, & 0.794, 0.798, 0.803, 0.807, 0.811, 0.816, 0.820, 0.824, 0.828, & 0.833, 0.837, 0.841, 0.845, 0.849, 0.854, 0.858, 0.862, 0.866, & 0.870, 0.874, 0.879, 0.883, 0.887, 0.891, 0.895, 0.899, 0.903, & 0.907, 0.912, 0.916, 0.920, 0.924, 0.928, 0.932, 0.936, 0.940, & 0.944, 0.948, 0.952, 0.956, 0.960, 0.964, 0.968, 0.972, 0.976, & 0.980, 0.984, 0.988, 0.992, 0.995, 0.999, 1.003, 1.007, 1.011, & 1.015, 1.019, 1.023, 1.026, 1.030, 1.034, 1.038, 1.042, 1.046, & 1.049, 1.053, 1.057, 1.061, 1.065, 1.068, 1.072, 1.076, 1.080, & 1.083, 1.087, 1.091, 1.095, 1.098, 1.102, 1.106, 1.109, 1.113, & 1.117, 1.120, 1.124, 1.128, 1.131, 1.135, 1.139, 1.142, 1.146, & 1.150, 1.153, 1.157, 1.160, 1.164, 1.168, 1.171, 1.175, 1.178, & 1.182, 1.185, 1.189, 1.192, 1.196, 1.200, 1.203, 1.207, 1.210, & 1.214, 1.217, 1.221, 1.224, 1.227, 1.231, 1.234, 1.238, 1.241, & 1.245, 1.248, 1.252, 1.255, 1.258, 1.262, 1.265, 1.269, 1.272, & 1.275, 1.279, 1.282, 1.285, 1.321, 1.354, 1.386, 1.417, 1.448, & 1.478, 1.508, 1.537, 1.565, 1.593, 1.621, 1.648, 1.674, 1.700, & 1.726, 1.751, 1.776, 1.800, 1.824, 1.848, 1.871, 1.893, 1.916, & 1.938, 1.959, 1.980, 2.001, 2.022, 2.042, 2.061, 2.081, 2.100, & 2.119, 2.137, 2.156, 2.173, 2.191, 2.208, 2.225, 2.242, 2.259, & 2.275, 2.291, 2.307, 2.322, 2.337, 2.352, 2.367, 2.382, 2.396, & 2.410, 2.424, 2.438, 2.451, 2.464, 2.477, 2.490, 2.502, 2.515, & 2.527, 2.539, 2.551, 2.562, 2.574, 2.585, 2.596, 2.607, 2.618, & 2.628, 2.639, 2.649, 2.659, 2.669, 2.679, 2.688, 2.698, 2.707, & 2.716, 2.725, 2.734, 2.743, 2.751, 2.760, 2.768, 2.776, 2.784, & 2.792, 2.800, 2.808, 2.815, 2.823, 2.830, 2.837, 2.844, 2.851, & 2.858, 2.865, 2.871, 2.878, 2.884, 2.890, 2.896, 2.902, 2.908, & 2.914, 2.920, 2.925, 2.931, 2.936, 2.942, 2.947, 2.952, 2.957, & 2.962, 2.967, 2.972, 2.976, 2.981, 2.985, 2.990, 2.994, 2.998, & 3.003, 3.007, 3.011, 3.014, 3.018, 3.022, 3.026, 3.029, 3.033, & 3.036, 3.040, 3.043, 3.046, 3.049, 3.052, 3.055, 3.058, 3.061, & 3.064, 3.066, 3.069, 3.072, 3.074, 3.077, 3.079, 3.081, 3.083, & 3.086, 3.088, 3.090, 3.092, 3.094, 3.096, 3.097, 3.099, 3.101, & 3.102, 3.104, 3.105 & / C C *** K2SO4 C DATA BNC17M/ &-0.103,-0.226,-0.289,-0.334,-0.369,-0.399,-0.425,-0.448,-0.468, &-0.487,-0.505,-0.521,-0.536,-0.550,-0.563,-0.576,-0.588,-0.599, &-0.610,-0.621,-0.631,-0.641,-0.650,-0.659,-0.668,-0.677,-0.685, &-0.693,-0.701,-0.709,-0.717,-0.724,-0.731,-0.738,-0.745,-0.752, &-0.758,-0.765,-0.771,-0.777,-0.784,-0.790,-0.796,-0.801,-0.807, &-0.813,-0.818,-0.824,-0.829,-0.835,-0.840,-0.845,-0.850,-0.855, &-0.860,-0.865,-0.870,-0.875,-0.880,-0.884,-0.889,-0.894,-0.898, &-0.903,-0.907,-0.912,-0.916,-0.920,-0.925,-0.929,-0.933,-0.937, &-0.942,-0.946,-0.950,-0.954,-0.958,-0.962,-0.966,-0.970,-0.974, &-0.978,-0.982,-0.985,-0.989,-0.993,-0.997,-1.001,-1.004,-1.008, &-1.012,-1.016,-1.019,-1.023,-1.027,-1.030,-1.034,-1.037,-1.041, &-1.045,-1.048,-1.052,-1.055,-1.059,-1.062,-1.066,-1.069,-1.072, &-1.076,-1.079,-1.083,-1.086,-1.089,-1.093,-1.096,-1.099,-1.103, &-1.106,-1.109,-1.113,-1.116,-1.119,-1.122,-1.126,-1.129,-1.132, &-1.135,-1.138,-1.142,-1.145,-1.148,-1.151,-1.154,-1.157,-1.160, &-1.164,-1.167,-1.170,-1.173,-1.176,-1.179,-1.182,-1.185,-1.188, &-1.191,-1.194,-1.197,-1.200,-1.203,-1.206,-1.209,-1.212,-1.215, &-1.218,-1.221,-1.223,-1.226,-1.229,-1.232,-1.235,-1.238,-1.241, &-1.244,-1.246,-1.249,-1.252,-1.255,-1.258,-1.261,-1.263,-1.266, &-1.269,-1.272,-1.274,-1.277,-1.280,-1.283,-1.285,-1.288,-1.291, &-1.294,-1.296,-1.299,-1.302,-1.304,-1.307,-1.310,-1.313,-1.315, &-1.318,-1.321,-1.323,-1.326,-1.328,-1.331,-1.334,-1.336,-1.339, &-1.342,-1.344,-1.347,-1.349,-1.352,-1.355,-1.357,-1.360,-1.362, &-1.365,-1.367,-1.370,-1.373,-1.375,-1.378,-1.380,-1.383,-1.385, &-1.388,-1.390,-1.393,-1.395,-1.398,-1.400,-1.403,-1.405,-1.408, &-1.410,-1.413,-1.415,-1.418,-1.420,-1.423,-1.425,-1.427,-1.430, &-1.432,-1.435,-1.437,-1.440,-1.442,-1.445,-1.447,-1.449,-1.452, &-1.454,-1.457,-1.459,-1.461,-1.464,-1.466,-1.469,-1.471,-1.473, &-1.476,-1.478,-1.480,-1.483,-1.485,-1.487,-1.490,-1.492,-1.495, &-1.497,-1.499,-1.502,-1.504,-1.506,-1.509,-1.511,-1.513,-1.515, &-1.518,-1.520,-1.522,-1.525,-1.527,-1.529,-1.532,-1.534,-1.536, &-1.538,-1.541,-1.543,-1.545,-1.548,-1.550,-1.552,-1.554,-1.557, &-1.559,-1.561,-1.563,-1.566,-1.568,-1.570,-1.572,-1.575,-1.577, &-1.579,-1.581,-1.583,-1.586,-1.588,-1.590,-1.592,-1.595,-1.597, &-1.599,-1.601,-1.603,-1.606,-1.608,-1.610,-1.612,-1.614,-1.616, &-1.619,-1.621,-1.623,-1.625,-1.627,-1.630,-1.632,-1.634,-1.636, &-1.638,-1.640,-1.642,-1.645,-1.647,-1.649,-1.651,-1.653,-1.655, &-1.658,-1.660,-1.662,-1.664,-1.666,-1.668,-1.670,-1.672,-1.675, &-1.677,-1.679,-1.681,-1.683,-1.685,-1.687,-1.689,-1.691,-1.694, &-1.696,-1.698,-1.700,-1.702,-1.704,-1.706,-1.708,-1.710,-1.712, &-1.714,-1.717,-1.719,-1.721,-1.723,-1.725,-1.727,-1.729,-1.731, &-1.733,-1.735,-1.737,-1.739,-1.741,-1.743,-1.745,-1.748,-1.750, &-1.752,-1.754,-1.756,-1.758,-1.760,-1.762,-1.764,-1.766,-1.768, &-1.770,-1.772,-1.774,-1.776,-1.778,-1.780,-1.782,-1.784,-1.786, &-1.788,-1.790,-1.792,-1.794,-1.816,-1.836,-1.855,-1.875,-1.894, &-1.914,-1.933,-1.952,-1.971,-1.989,-2.008,-2.027,-2.045,-2.063, &-2.082,-2.100,-2.118,-2.136,-2.154,-2.171,-2.189,-2.207,-2.224, &-2.242,-2.259,-2.276,-2.293,-2.311,-2.328,-2.345,-2.362,-2.379, &-2.395,-2.412,-2.429,-2.446,-2.462,-2.479,-2.495,-2.512,-2.528, &-2.544,-2.561,-2.577,-2.593,-2.609,-2.625,-2.642,-2.658,-2.674, &-2.689,-2.705,-2.721,-2.737,-2.753,-2.768,-2.784,-2.800,-2.815, &-2.831,-2.847,-2.862,-2.878,-2.893,-2.908,-2.924,-2.939,-2.954, &-2.970,-2.985,-3.000,-3.015,-3.031,-3.046,-3.061,-3.076,-3.091, &-3.106,-3.121,-3.136,-3.151,-3.166,-3.181,-3.196,-3.210,-3.225, &-3.240,-3.255,-3.270,-3.284,-3.299,-3.314,-3.328,-3.343,-3.358, &-3.372,-3.387,-3.401,-3.416,-3.430,-3.445,-3.459,-3.474,-3.488, &-3.503,-3.517,-3.531,-3.546,-3.560,-3.574,-3.589,-3.603,-3.617, &-3.631,-3.646,-3.660,-3.674,-3.688,-3.702,-3.717,-3.731,-3.745, &-3.759,-3.773,-3.787,-3.801,-3.815,-3.829,-3.843,-3.857,-3.871, &-3.885,-3.899,-3.913,-3.927,-3.941,-3.955,-3.969,-3.982,-3.996, &-4.010,-4.024,-4.038,-4.051,-4.065,-4.079,-4.093,-4.107,-4.120, &-4.134,-4.148,-4.161,-4.175,-4.189,-4.202,-4.216,-4.230,-4.243, &-4.257,-4.271,-4.284 & / C C *** KHSO4 C DATA BNC18M/ &-0.050,-0.106,-0.133,-0.152,-0.166,-0.177,-0.187,-0.195,-0.202, &-0.208,-0.214,-0.218,-0.223,-0.227,-0.230,-0.233,-0.236,-0.238, &-0.240,-0.242,-0.244,-0.246,-0.247,-0.248,-0.249,-0.250,-0.250, &-0.250,-0.251,-0.251,-0.251,-0.251,-0.250,-0.250,-0.249,-0.249, &-0.248,-0.247,-0.246,-0.245,-0.244,-0.242,-0.241,-0.240,-0.238, &-0.236,-0.235,-0.233,-0.231,-0.229,-0.227,-0.225,-0.223,-0.221, &-0.219,-0.216,-0.214,-0.212,-0.209,-0.207,-0.204,-0.202,-0.199, &-0.196,-0.193,-0.191,-0.188,-0.185,-0.182,-0.179,-0.176,-0.173, &-0.170,-0.167,-0.164,-0.161,-0.158,-0.154,-0.151,-0.148,-0.144, &-0.141,-0.138,-0.134,-0.131,-0.127,-0.124,-0.120,-0.116,-0.113, &-0.109,-0.105,-0.102,-0.098,-0.094,-0.090,-0.086,-0.082,-0.078, &-0.074,-0.071,-0.067,-0.063,-0.059,-0.054,-0.050,-0.046,-0.042, &-0.038,-0.034,-0.030,-0.026,-0.022,-0.017,-0.013,-0.009,-0.005, &-0.001, 0.004, 0.008, 0.012, 0.016, 0.020, 0.025, 0.029, 0.033, & 0.037, 0.041, 0.046, 0.050, 0.054, 0.058, 0.062, 0.067, 0.071, & 0.075, 0.079, 0.083, 0.087, 0.091, 0.096, 0.100, 0.104, 0.108, & 0.112, 0.116, 0.120, 0.124, 0.128, 0.132, 0.136, 0.141, 0.145, & 0.149, 0.153, 0.157, 0.161, 0.165, 0.169, 0.173, 0.176, 0.180, & 0.184, 0.188, 0.192, 0.196, 0.200, 0.204, 0.208, 0.212, 0.215, & 0.219, 0.223, 0.227, 0.231, 0.235, 0.238, 0.242, 0.246, 0.250, & 0.254, 0.257, 0.261, 0.265, 0.268, 0.272, 0.276, 0.280, 0.283, & 0.287, 0.291, 0.294, 0.298, 0.302, 0.305, 0.309, 0.312, 0.316, & 0.320, 0.323, 0.327, 0.330, 0.334, 0.337, 0.341, 0.344, 0.348, & 0.351, 0.355, 0.358, 0.362, 0.365, 0.369, 0.372, 0.376, 0.379, & 0.382, 0.386, 0.389, 0.393, 0.396, 0.399, 0.403, 0.406, 0.409, & 0.413, 0.416, 0.419, 0.423, 0.426, 0.429, 0.433, 0.436, 0.439, & 0.442, 0.446, 0.449, 0.452, 0.455, 0.459, 0.462, 0.465, 0.468, & 0.471, 0.475, 0.478, 0.481, 0.484, 0.487, 0.490, 0.493, 0.497, & 0.500, 0.503, 0.506, 0.509, 0.512, 0.515, 0.518, 0.521, 0.524, & 0.527, 0.530, 0.533, 0.536, 0.539, 0.542, 0.545, 0.548, 0.551, & 0.554, 0.557, 0.560, 0.563, 0.566, 0.569, 0.572, 0.575, 0.578, & 0.581, 0.584, 0.587, 0.590, 0.592, 0.595, 0.598, 0.601, 0.604, & 0.607, 0.610, 0.612, 0.615, 0.618, 0.621, 0.624, 0.627, 0.629, & 0.632, 0.635, 0.638, 0.640, 0.643, 0.646, 0.649, 0.651, 0.654, & 0.657, 0.660, 0.662, 0.665, 0.668, 0.671, 0.673, 0.676, 0.679, & 0.681, 0.684, 0.687, 0.689, 0.692, 0.695, 0.697, 0.700, 0.702, & 0.705, 0.708, 0.710, 0.713, 0.716, 0.718, 0.721, 0.723, 0.726, & 0.728, 0.731, 0.734, 0.736, 0.739, 0.741, 0.744, 0.746, 0.749, & 0.751, 0.754, 0.756, 0.759, 0.761, 0.764, 0.766, 0.769, 0.771, & 0.774, 0.776, 0.779, 0.781, 0.784, 0.786, 0.788, 0.791, 0.793, & 0.796, 0.798, 0.801, 0.803, 0.805, 0.808, 0.810, 0.813, 0.815, & 0.817, 0.820, 0.822, 0.824, 0.827, 0.829, 0.832, 0.834, 0.836, & 0.839, 0.841, 0.843, 0.846, 0.848, 0.850, 0.852, 0.855, 0.857, & 0.859, 0.862, 0.864, 0.866, 0.868, 0.871, 0.873, 0.875, 0.878, & 0.880, 0.882, 0.884, 0.887, 0.910, 0.932, 0.953, 0.974, 0.995, & 1.015, 1.034, 1.054, 1.072, 1.091, 1.109, 1.127, 1.145, 1.162, & 1.179, 1.196, 1.213, 1.229, 1.245, 1.260, 1.276, 1.291, 1.306, & 1.320, 1.335, 1.349, 1.363, 1.377, 1.390, 1.404, 1.417, 1.430, & 1.442, 1.455, 1.467, 1.479, 1.491, 1.503, 1.515, 1.526, 1.538, & 1.549, 1.560, 1.570, 1.581, 1.592, 1.602, 1.612, 1.622, 1.632, & 1.642, 1.652, 1.661, 1.671, 1.680, 1.689, 1.698, 1.707, 1.716, & 1.724, 1.733, 1.741, 1.750, 1.758, 1.766, 1.774, 1.782, 1.789, & 1.797, 1.805, 1.812, 1.820, 1.827, 1.834, 1.841, 1.848, 1.855, & 1.862, 1.868, 1.875, 1.882, 1.888, 1.894, 1.901, 1.907, 1.913, & 1.919, 1.925, 1.931, 1.937, 1.943, 1.948, 1.954, 1.959, 1.965, & 1.970, 1.976, 1.981, 1.986, 1.991, 1.996, 2.001, 2.006, 2.011, & 2.016, 2.020, 2.025, 2.030, 2.034, 2.039, 2.043, 2.048, 2.052, & 2.056, 2.060, 2.064, 2.069, 2.073, 2.077, 2.080, 2.084, 2.088, & 2.092, 2.096, 2.099, 2.103, 2.107, 2.110, 2.114, 2.117, 2.120, & 2.124, 2.127, 2.130, 2.133, 2.137, 2.140, 2.143, 2.146, 2.149, & 2.152, 2.155, 2.158, 2.160, 2.163, 2.166, 2.169, 2.171, 2.174, & 2.176, 2.179, 2.181, 2.184, 2.186, 2.189, 2.191, 2.193, 2.196, & 2.198, 2.200, 2.202 & / C C *** KNO3 C DATA BNC19M/ &-0.053,-0.124,-0.164,-0.194,-0.219,-0.242,-0.262,-0.281,-0.298, &-0.314,-0.330,-0.345,-0.359,-0.372,-0.385,-0.398,-0.411,-0.423, &-0.434,-0.446,-0.457,-0.468,-0.478,-0.489,-0.499,-0.509,-0.519, &-0.528,-0.538,-0.547,-0.556,-0.565,-0.574,-0.583,-0.592,-0.600, &-0.608,-0.617,-0.625,-0.633,-0.641,-0.648,-0.656,-0.664,-0.671, &-0.678,-0.686,-0.693,-0.700,-0.707,-0.714,-0.721,-0.727,-0.734, &-0.741,-0.747,-0.754,-0.760,-0.766,-0.773,-0.779,-0.785,-0.791, &-0.797,-0.803,-0.809,-0.815,-0.821,-0.827,-0.832,-0.838,-0.844, &-0.849,-0.855,-0.861,-0.866,-0.872,-0.877,-0.883,-0.888,-0.894, &-0.899,-0.904,-0.910,-0.915,-0.920,-0.926,-0.931,-0.936,-0.942, &-0.947,-0.952,-0.957,-0.963,-0.968,-0.973,-0.978,-0.983,-0.988, &-0.994,-0.999,-1.004,-1.009,-1.014,-1.019,-1.024,-1.029,-1.034, &-1.039,-1.044,-1.049,-1.054,-1.059,-1.064,-1.069,-1.074,-1.079, &-1.083,-1.088,-1.093,-1.098,-1.103,-1.107,-1.112,-1.117,-1.122, &-1.126,-1.131,-1.136,-1.140,-1.145,-1.149,-1.154,-1.158,-1.163, &-1.168,-1.172,-1.176,-1.181,-1.185,-1.190,-1.194,-1.199,-1.203, &-1.207,-1.212,-1.216,-1.220,-1.224,-1.229,-1.233,-1.237,-1.241, &-1.245,-1.250,-1.254,-1.258,-1.262,-1.266,-1.270,-1.274,-1.278, &-1.282,-1.286,-1.290,-1.294,-1.298,-1.302,-1.306,-1.310,-1.314, &-1.318,-1.321,-1.325,-1.329,-1.333,-1.337,-1.341,-1.344,-1.348, &-1.352,-1.355,-1.359,-1.363,-1.367,-1.370,-1.374,-1.378,-1.381, &-1.385,-1.388,-1.392,-1.395,-1.399,-1.403,-1.406,-1.410,-1.413, &-1.417,-1.420,-1.423,-1.427,-1.430,-1.434,-1.437,-1.441,-1.444, &-1.447,-1.451,-1.454,-1.457,-1.461,-1.464,-1.467,-1.470,-1.474, &-1.477,-1.480,-1.483,-1.487,-1.490,-1.493,-1.496,-1.499,-1.503, &-1.506,-1.509,-1.512,-1.515,-1.518,-1.521,-1.524,-1.528,-1.531, &-1.534,-1.537,-1.540,-1.543,-1.546,-1.549,-1.552,-1.555,-1.558, &-1.561,-1.564,-1.566,-1.569,-1.572,-1.575,-1.578,-1.581,-1.584, &-1.587,-1.590,-1.592,-1.595,-1.598,-1.601,-1.604,-1.607,-1.609, &-1.612,-1.615,-1.618,-1.620,-1.623,-1.626,-1.629,-1.631,-1.634, &-1.637,-1.639,-1.642,-1.645,-1.647,-1.650,-1.653,-1.655,-1.658, &-1.661,-1.663,-1.666,-1.668,-1.671,-1.674,-1.676,-1.679,-1.681, &-1.684,-1.686,-1.689,-1.691,-1.694,-1.696,-1.699,-1.701,-1.704, &-1.706,-1.709,-1.711,-1.714,-1.716,-1.719,-1.721,-1.724,-1.726, &-1.728,-1.731,-1.733,-1.736,-1.738,-1.740,-1.743,-1.745,-1.747, &-1.750,-1.752,-1.754,-1.757,-1.759,-1.761,-1.764,-1.766,-1.768, &-1.771,-1.773,-1.775,-1.777,-1.780,-1.782,-1.784,-1.786,-1.789, &-1.791,-1.793,-1.795,-1.797,-1.800,-1.802,-1.804,-1.806,-1.808, &-1.811,-1.813,-1.815,-1.817,-1.819,-1.821,-1.823,-1.826,-1.828, &-1.830,-1.832,-1.834,-1.836,-1.838,-1.840,-1.842,-1.844,-1.847, &-1.849,-1.851,-1.853,-1.855,-1.857,-1.859,-1.861,-1.863,-1.865, &-1.867,-1.869,-1.871,-1.873,-1.875,-1.877,-1.879,-1.881,-1.883, &-1.885,-1.887,-1.889,-1.891,-1.893,-1.895,-1.897,-1.898,-1.900, &-1.902,-1.904,-1.906,-1.908,-1.910,-1.912,-1.914,-1.916,-1.917, &-1.919,-1.921,-1.923,-1.925,-1.945,-1.963,-1.980,-1.997,-2.014, &-2.030,-2.046,-2.062,-2.077,-2.092,-2.107,-2.122,-2.136,-2.150, &-2.163,-2.177,-2.190,-2.203,-2.216,-2.228,-2.241,-2.253,-2.265, &-2.277,-2.289,-2.300,-2.311,-2.323,-2.334,-2.345,-2.356,-2.366, &-2.377,-2.387,-2.398,-2.408,-2.418,-2.428,-2.438,-2.448,-2.457, &-2.467,-2.477,-2.486,-2.496,-2.505,-2.514,-2.523,-2.532,-2.541, &-2.550,-2.559,-2.568,-2.577,-2.586,-2.594,-2.603,-2.611,-2.620, &-2.628,-2.637,-2.645,-2.653,-2.662,-2.670,-2.678,-2.686,-2.694, &-2.702,-2.710,-2.718,-2.726,-2.734,-2.742,-2.750,-2.758,-2.765, &-2.773,-2.781,-2.789,-2.796,-2.804,-2.811,-2.819,-2.827,-2.834, &-2.842,-2.849,-2.857,-2.864,-2.871,-2.879,-2.886,-2.893,-2.901, &-2.908,-2.915,-2.923,-2.930,-2.937,-2.944,-2.951,-2.959,-2.966, &-2.973,-2.980,-2.987,-2.994,-3.001,-3.008,-3.015,-3.022,-3.029, &-3.036,-3.043,-3.050,-3.057,-3.064,-3.071,-3.078,-3.085,-3.092, &-3.099,-3.106,-3.113,-3.119,-3.126,-3.133,-3.140,-3.147,-3.154, &-3.160,-3.167,-3.174,-3.181,-3.187,-3.194,-3.201,-3.208,-3.214, &-3.221,-3.228,-3.234,-3.241,-3.248,-3.254,-3.261,-3.268,-3.274, &-3.281,-3.287,-3.294,-3.301,-3.307,-3.314,-3.320,-3.327,-3.334, &-3.340,-3.347,-3.353 & / C C *** KCL C DATA BNC20M/ &-0.051,-0.108,-0.135,-0.154,-0.169,-0.180,-0.190,-0.198,-0.205, &-0.211,-0.217,-0.222,-0.226,-0.231,-0.234,-0.238,-0.241,-0.244, &-0.246,-0.249,-0.251,-0.253,-0.255,-0.257,-0.259,-0.261,-0.262, &-0.264,-0.265,-0.267,-0.268,-0.269,-0.270,-0.271,-0.272,-0.273, &-0.274,-0.275,-0.276,-0.277,-0.278,-0.278,-0.279,-0.280,-0.280, &-0.281,-0.282,-0.282,-0.283,-0.283,-0.284,-0.285,-0.285,-0.286, &-0.286,-0.287,-0.287,-0.287,-0.288,-0.288,-0.289,-0.289,-0.289, &-0.290,-0.290,-0.291,-0.291,-0.291,-0.292,-0.292,-0.292,-0.292, &-0.293,-0.293,-0.293,-0.293,-0.294,-0.294,-0.294,-0.294,-0.294, &-0.295,-0.295,-0.295,-0.295,-0.295,-0.295,-0.295,-0.295,-0.295, &-0.295,-0.296,-0.296,-0.296,-0.296,-0.296,-0.296,-0.296,-0.296, &-0.295,-0.295,-0.295,-0.295,-0.295,-0.295,-0.295,-0.295,-0.295, &-0.295,-0.295,-0.294,-0.294,-0.294,-0.294,-0.294,-0.294,-0.294, &-0.293,-0.293,-0.293,-0.293,-0.293,-0.293,-0.292,-0.292,-0.292, &-0.292,-0.292,-0.291,-0.291,-0.291,-0.291,-0.291,-0.290,-0.290, &-0.290,-0.290,-0.290,-0.289,-0.289,-0.289,-0.289,-0.289,-0.288, &-0.288,-0.288,-0.288,-0.287,-0.287,-0.287,-0.287,-0.287,-0.286, &-0.286,-0.286,-0.286,-0.285,-0.285,-0.285,-0.285,-0.285,-0.284, &-0.284,-0.284,-0.284,-0.283,-0.283,-0.283,-0.283,-0.283,-0.282, &-0.282,-0.282,-0.282,-0.281,-0.281,-0.281,-0.281,-0.281,-0.280, &-0.280,-0.280,-0.280,-0.279,-0.279,-0.279,-0.279,-0.279,-0.278, &-0.278,-0.278,-0.278,-0.278,-0.277,-0.277,-0.277,-0.277,-0.276, &-0.276,-0.276,-0.276,-0.276,-0.275,-0.275,-0.275,-0.275,-0.275, &-0.274,-0.274,-0.274,-0.274,-0.274,-0.273,-0.273,-0.273,-0.273, &-0.273,-0.272,-0.272,-0.272,-0.272,-0.272,-0.271,-0.271,-0.271, &-0.271,-0.271,-0.270,-0.270,-0.270,-0.270,-0.270,-0.270,-0.269, &-0.269,-0.269,-0.269,-0.269,-0.268,-0.268,-0.268,-0.268,-0.268, &-0.268,-0.267,-0.267,-0.267,-0.267,-0.267,-0.266,-0.266,-0.266, &-0.266,-0.266,-0.266,-0.265,-0.265,-0.265,-0.265,-0.265,-0.265, &-0.264,-0.264,-0.264,-0.264,-0.264,-0.264,-0.263,-0.263,-0.263, &-0.263,-0.263,-0.263,-0.263,-0.262,-0.262,-0.262,-0.262,-0.262, &-0.262,-0.261,-0.261,-0.261,-0.261,-0.261,-0.261,-0.261,-0.260, &-0.260,-0.260,-0.260,-0.260,-0.260,-0.260,-0.260,-0.259,-0.259, &-0.259,-0.259,-0.259,-0.259,-0.259,-0.258,-0.258,-0.258,-0.258, &-0.258,-0.258,-0.258,-0.258,-0.257,-0.257,-0.257,-0.257,-0.257, &-0.257,-0.257,-0.257,-0.257,-0.256,-0.256,-0.256,-0.256,-0.256, &-0.256,-0.256,-0.256,-0.256,-0.255,-0.255,-0.255,-0.255,-0.255, &-0.255,-0.255,-0.255,-0.255,-0.255,-0.254,-0.254,-0.254,-0.254, &-0.254,-0.254,-0.254,-0.254,-0.254,-0.254,-0.253,-0.253,-0.253, &-0.253,-0.253,-0.253,-0.253,-0.253,-0.253,-0.253,-0.253,-0.253, &-0.252,-0.252,-0.252,-0.252,-0.252,-0.252,-0.252,-0.252,-0.252, &-0.252,-0.252,-0.252,-0.252,-0.252,-0.251,-0.251,-0.251,-0.251, &-0.251,-0.251,-0.251,-0.251,-0.251,-0.251,-0.251,-0.251,-0.251, &-0.251,-0.251,-0.251,-0.250,-0.250,-0.250,-0.250,-0.250,-0.250, &-0.250,-0.250,-0.250,-0.250,-0.250,-0.249,-0.249,-0.249,-0.248, &-0.248,-0.248,-0.248,-0.249,-0.249,-0.249,-0.249,-0.250,-0.250, &-0.251,-0.251,-0.252,-0.252,-0.253,-0.254,-0.255,-0.255,-0.256, &-0.257,-0.258,-0.259,-0.261,-0.262,-0.263,-0.264,-0.265,-0.267, &-0.268,-0.269,-0.271,-0.272,-0.274,-0.276,-0.277,-0.279,-0.280, &-0.282,-0.284,-0.286,-0.287,-0.289,-0.291,-0.293,-0.295,-0.297, &-0.299,-0.301,-0.303,-0.305,-0.307,-0.309,-0.312,-0.314,-0.316, &-0.318,-0.321,-0.323,-0.325,-0.328,-0.330,-0.332,-0.335,-0.337, &-0.340,-0.342,-0.345,-0.347,-0.350,-0.352,-0.355,-0.358,-0.360, &-0.363,-0.366,-0.368,-0.371,-0.374,-0.377,-0.379,-0.382,-0.385, &-0.388,-0.391,-0.394,-0.396,-0.399,-0.402,-0.405,-0.408,-0.411, &-0.414,-0.417,-0.420,-0.423,-0.426,-0.429,-0.432,-0.436,-0.439, &-0.442,-0.445,-0.448,-0.451,-0.454,-0.458,-0.461,-0.464,-0.467, &-0.471,-0.474,-0.477,-0.480,-0.484,-0.487,-0.490,-0.494,-0.497, &-0.500,-0.504,-0.507,-0.511,-0.514,-0.517,-0.521,-0.524,-0.528, &-0.531,-0.535,-0.538,-0.542,-0.545,-0.549,-0.552,-0.556,-0.559, &-0.563,-0.566,-0.570,-0.574,-0.577,-0.581,-0.584,-0.588,-0.592, &-0.595,-0.599,-0.603,-0.606,-0.610,-0.614,-0.617,-0.621,-0.625, &-0.628,-0.632,-0.636 & / C C *** MGSO4 C DATA BNC21M/ &-0.205,-0.445,-0.564,-0.649,-0.715,-0.770,-0.817,-0.858,-0.895, &-0.928,-0.958,-0.986,-1.012,-1.036,-1.058,-1.079,-1.099,-1.118, &-1.136,-1.153,-1.170,-1.185,-1.200,-1.215,-1.229,-1.242,-1.255, &-1.268,-1.280,-1.292,-1.303,-1.315,-1.325,-1.336,-1.346,-1.357, &-1.366,-1.376,-1.386,-1.395,-1.404,-1.413,-1.421,-1.430,-1.438, &-1.447,-1.455,-1.463,-1.471,-1.478,-1.486,-1.494,-1.501,-1.508, &-1.515,-1.523,-1.530,-1.536,-1.543,-1.550,-1.557,-1.563,-1.570, &-1.576,-1.583,-1.589,-1.595,-1.601,-1.607,-1.613,-1.619,-1.625, &-1.631,-1.637,-1.643,-1.648,-1.654,-1.659,-1.665,-1.670,-1.676, &-1.681,-1.687,-1.692,-1.697,-1.702,-1.707,-1.713,-1.718,-1.723, &-1.728,-1.733,-1.738,-1.742,-1.747,-1.752,-1.757,-1.762,-1.766, &-1.771,-1.776,-1.780,-1.785,-1.789,-1.794,-1.798,-1.803,-1.807, &-1.812,-1.816,-1.820,-1.825,-1.829,-1.833,-1.838,-1.842,-1.846, &-1.850,-1.854,-1.858,-1.863,-1.867,-1.871,-1.875,-1.879,-1.883, &-1.887,-1.891,-1.895,-1.899,-1.903,-1.907,-1.911,-1.915,-1.919, &-1.922,-1.926,-1.930,-1.934,-1.938,-1.942,-1.945,-1.949,-1.953, &-1.957,-1.960,-1.964,-1.968,-1.972,-1.975,-1.979,-1.983,-1.986, &-1.990,-1.994,-1.997,-2.001,-2.004,-2.008,-2.012,-2.015,-2.019, &-2.022,-2.026,-2.029,-2.033,-2.036,-2.040,-2.043,-2.047,-2.050, &-2.054,-2.057,-2.061,-2.064,-2.068,-2.071,-2.074,-2.078,-2.081, &-2.085,-2.088,-2.091,-2.095,-2.098,-2.102,-2.105,-2.108,-2.112, &-2.115,-2.118,-2.122,-2.125,-2.128,-2.132,-2.135,-2.138,-2.141, &-2.145,-2.148,-2.151,-2.154,-2.158,-2.161,-2.164,-2.167,-2.171, &-2.174,-2.177,-2.180,-2.184,-2.187,-2.190,-2.193,-2.196,-2.200, &-2.203,-2.206,-2.209,-2.212,-2.215,-2.219,-2.222,-2.225,-2.228, &-2.231,-2.234,-2.237,-2.241,-2.244,-2.247,-2.250,-2.253,-2.256, &-2.259,-2.262,-2.265,-2.269,-2.272,-2.275,-2.278,-2.281,-2.284, &-2.287,-2.290,-2.293,-2.296,-2.299,-2.302,-2.305,-2.308,-2.311, &-2.314,-2.317,-2.320,-2.324,-2.327,-2.330,-2.333,-2.336,-2.339, &-2.342,-2.345,-2.348,-2.351,-2.354,-2.357,-2.360,-2.363,-2.366, &-2.369,-2.371,-2.374,-2.377,-2.380,-2.383,-2.386,-2.389,-2.392, &-2.395,-2.398,-2.401,-2.404,-2.407,-2.410,-2.413,-2.416,-2.419, &-2.422,-2.425,-2.427,-2.430,-2.433,-2.436,-2.439,-2.442,-2.445, &-2.448,-2.451,-2.454,-2.457,-2.460,-2.462,-2.465,-2.468,-2.471, &-2.474,-2.477,-2.480,-2.483,-2.485,-2.488,-2.491,-2.494,-2.497, &-2.500,-2.503,-2.506,-2.508,-2.511,-2.514,-2.517,-2.520,-2.523, &-2.526,-2.528,-2.531,-2.534,-2.537,-2.540,-2.543,-2.546,-2.548, &-2.551,-2.554,-2.557,-2.560,-2.563,-2.565,-2.568,-2.571,-2.574, &-2.577,-2.579,-2.582,-2.585,-2.588,-2.591,-2.594,-2.596,-2.599, &-2.602,-2.605,-2.608,-2.610,-2.613,-2.616,-2.619,-2.622,-2.624, &-2.627,-2.630,-2.633,-2.635,-2.638,-2.641,-2.644,-2.647,-2.649, &-2.652,-2.655,-2.658,-2.661,-2.663,-2.666,-2.669,-2.672,-2.674, &-2.677,-2.680,-2.683,-2.685,-2.688,-2.691,-2.694,-2.696,-2.699, &-2.702,-2.705,-2.707,-2.710,-2.713,-2.716,-2.718,-2.721,-2.724, &-2.727,-2.729,-2.732,-2.735,-2.765,-2.792,-2.819,-2.846,-2.873, &-2.900,-2.927,-2.953,-2.980,-3.006,-3.033,-3.059,-3.086,-3.112, &-3.138,-3.164,-3.191,-3.217,-3.243,-3.269,-3.295,-3.321,-3.346, &-3.372,-3.398,-3.424,-3.449,-3.475,-3.501,-3.526,-3.552,-3.578, &-3.603,-3.629,-3.654,-3.679,-3.705,-3.730,-3.755,-3.781,-3.806, &-3.831,-3.857,-3.882,-3.907,-3.932,-3.957,-3.982,-4.008,-4.033, &-4.058,-4.083,-4.108,-4.133,-4.158,-4.183,-4.208,-4.233,-4.258, &-4.282,-4.307,-4.332,-4.357,-4.382,-4.407,-4.431,-4.456,-4.481, &-4.506,-4.530,-4.555,-4.580,-4.605,-4.629,-4.654,-4.679,-4.703, &-4.728,-4.752,-4.777,-4.802,-4.826,-4.851,-4.875,-4.900,-4.924, &-4.949,-4.973,-4.998,-5.022,-5.047,-5.071,-5.096,-5.120,-5.145, &-5.169,-5.193,-5.218,-5.242,-5.267,-5.291,-5.315,-5.340,-5.364, &-5.388,-5.413,-5.437,-5.461,-5.485,-5.510,-5.534,-5.558,-5.582, &-5.607,-5.631,-5.655,-5.679,-5.703,-5.728,-5.752,-5.776,-5.800, &-5.824,-5.848,-5.873,-5.897,-5.921,-5.945,-5.969,-5.993,-6.017, &-6.041,-6.065,-6.089,-6.113,-6.137,-6.161,-6.186,-6.210,-6.234, &-6.258,-6.282,-6.306,-6.329,-6.353,-6.377,-6.401,-6.425,-6.449, &-6.473,-6.497,-6.521,-6.545,-6.569,-6.593,-6.617,-6.641,-6.664, &-6.688,-6.712,-6.736 & / C C *** MGNO32 C DATA BNC22M/ &-0.099,-0.205,-0.253,-0.283,-0.305,-0.322,-0.335,-0.345,-0.353, &-0.359,-0.364,-0.368,-0.371,-0.374,-0.375,-0.376,-0.377,-0.377, &-0.376,-0.376,-0.375,-0.373,-0.372,-0.370,-0.368,-0.366,-0.364, &-0.361,-0.359,-0.356,-0.353,-0.350,-0.347,-0.344,-0.341,-0.338, &-0.334,-0.331,-0.328,-0.324,-0.321,-0.317,-0.314,-0.310,-0.306, &-0.303,-0.299,-0.295,-0.292,-0.288,-0.284,-0.281,-0.277,-0.273, &-0.270,-0.266,-0.262,-0.258,-0.255,-0.251,-0.247,-0.243,-0.240, &-0.236,-0.232,-0.228,-0.225,-0.221,-0.217,-0.213,-0.209,-0.205, &-0.201,-0.197,-0.194,-0.190,-0.186,-0.182,-0.177,-0.173,-0.169, &-0.165,-0.161,-0.157,-0.153,-0.148,-0.144,-0.140,-0.135,-0.131, &-0.126,-0.122,-0.117,-0.113,-0.108,-0.104,-0.099,-0.094,-0.090, &-0.085,-0.080,-0.075,-0.070,-0.066,-0.061,-0.056,-0.051,-0.046, &-0.041,-0.036,-0.031,-0.026,-0.021,-0.016,-0.011,-0.006,-0.001, & 0.004, 0.010, 0.015, 0.020, 0.025, 0.030, 0.035, 0.040, 0.045, & 0.050, 0.056, 0.061, 0.066, 0.071, 0.076, 0.081, 0.086, 0.092, & 0.097, 0.102, 0.107, 0.112, 0.117, 0.122, 0.127, 0.132, 0.137, & 0.143, 0.148, 0.153, 0.158, 0.163, 0.168, 0.173, 0.178, 0.183, & 0.188, 0.193, 0.198, 0.203, 0.208, 0.213, 0.218, 0.223, 0.228, & 0.233, 0.238, 0.243, 0.248, 0.253, 0.258, 0.262, 0.267, 0.272, & 0.277, 0.282, 0.287, 0.292, 0.297, 0.302, 0.306, 0.311, 0.316, & 0.321, 0.326, 0.331, 0.335, 0.340, 0.345, 0.350, 0.354, 0.359, & 0.364, 0.369, 0.373, 0.378, 0.383, 0.388, 0.392, 0.397, 0.402, & 0.406, 0.411, 0.416, 0.420, 0.425, 0.430, 0.434, 0.439, 0.444, & 0.448, 0.453, 0.457, 0.462, 0.466, 0.471, 0.476, 0.480, 0.485, & 0.489, 0.494, 0.498, 0.503, 0.507, 0.512, 0.516, 0.521, 0.525, & 0.530, 0.534, 0.538, 0.543, 0.547, 0.552, 0.556, 0.561, 0.565, & 0.569, 0.574, 0.578, 0.582, 0.587, 0.591, 0.595, 0.600, 0.604, & 0.608, 0.613, 0.617, 0.621, 0.625, 0.630, 0.634, 0.638, 0.642, & 0.647, 0.651, 0.655, 0.659, 0.664, 0.668, 0.672, 0.676, 0.680, & 0.684, 0.689, 0.693, 0.697, 0.701, 0.705, 0.709, 0.713, 0.717, & 0.721, 0.726, 0.730, 0.734, 0.738, 0.742, 0.746, 0.750, 0.754, & 0.758, 0.762, 0.766, 0.770, 0.774, 0.778, 0.782, 0.786, 0.790, & 0.794, 0.798, 0.801, 0.805, 0.809, 0.813, 0.817, 0.821, 0.825, & 0.829, 0.833, 0.836, 0.840, 0.844, 0.848, 0.852, 0.856, 0.859, & 0.863, 0.867, 0.871, 0.875, 0.878, 0.882, 0.886, 0.890, 0.893, & 0.897, 0.901, 0.905, 0.908, 0.912, 0.916, 0.919, 0.923, 0.927, & 0.931, 0.934, 0.938, 0.941, 0.945, 0.949, 0.952, 0.956, 0.960, & 0.963, 0.967, 0.970, 0.974, 0.978, 0.981, 0.985, 0.988, 0.992, & 0.995, 0.999, 1.002, 1.006, 1.010, 1.013, 1.017, 1.020, 1.024, & 1.027, 1.031, 1.034, 1.037, 1.041, 1.044, 1.048, 1.051, 1.055, & 1.058, 1.061, 1.065, 1.068, 1.072, 1.075, 1.078, 1.082, 1.085, & 1.089, 1.092, 1.095, 1.099, 1.102, 1.105, 1.109, 1.112, 1.115, & 1.119, 1.122, 1.125, 1.128, 1.132, 1.135, 1.138, 1.142, 1.145, & 1.148, 1.151, 1.155, 1.158, 1.161, 1.164, 1.167, 1.171, 1.174, & 1.177, 1.180, 1.183, 1.187, 1.220, 1.251, 1.281, 1.311, 1.340, & 1.369, 1.397, 1.424, 1.451, 1.477, 1.503, 1.529, 1.554, 1.579, & 1.603, 1.627, 1.650, 1.673, 1.695, 1.717, 1.739, 1.760, 1.781, & 1.802, 1.822, 1.842, 1.862, 1.881, 1.900, 1.918, 1.937, 1.955, & 1.972, 1.990, 2.007, 2.024, 2.040, 2.056, 2.072, 2.088, 2.103, & 2.119, 2.134, 2.148, 2.163, 2.177, 2.191, 2.205, 2.218, 2.231, & 2.245, 2.257, 2.270, 2.283, 2.295, 2.307, 2.319, 2.330, 2.342, & 2.353, 2.364, 2.375, 2.386, 2.397, 2.407, 2.417, 2.427, 2.437, & 2.447, 2.456, 2.466, 2.475, 2.484, 2.493, 2.502, 2.511, 2.519, & 2.528, 2.536, 2.544, 2.552, 2.560, 2.567, 2.575, 2.582, 2.590, & 2.597, 2.604, 2.611, 2.618, 2.624, 2.631, 2.637, 2.644, 2.650, & 2.656, 2.662, 2.668, 2.674, 2.680, 2.685, 2.691, 2.696, 2.701, & 2.706, 2.712, 2.717, 2.721, 2.726, 2.731, 2.735, 2.740, 2.744, & 2.749, 2.753, 2.757, 2.761, 2.765, 2.769, 2.773, 2.777, 2.780, & 2.784, 2.787, 2.791, 2.794, 2.797, 2.801, 2.804, 2.807, 2.810, & 2.812, 2.815, 2.818, 2.821, 2.823, 2.826, 2.828, 2.831, 2.833, & 2.835, 2.837, 2.839, 2.841, 2.843, 2.845, 2.847, 2.849, 2.851, & 2.852, 2.854, 2.856, 2.857, 2.859, 2.860, 2.861, 2.862, 2.864, & 2.865, 2.866, 2.867 & / C C *** MGCL2 C DATA BNC23M/ &-0.098,-0.202,-0.247,-0.275,-0.294,-0.308,-0.319,-0.327,-0.333, &-0.337,-0.340,-0.342,-0.343,-0.343,-0.343,-0.341,-0.340,-0.338, &-0.336,-0.333,-0.330,-0.326,-0.323,-0.319,-0.315,-0.311,-0.306, &-0.302,-0.297,-0.293,-0.288,-0.283,-0.278,-0.273,-0.267,-0.262, &-0.257,-0.251,-0.246,-0.241,-0.235,-0.230,-0.224,-0.218,-0.213, &-0.207,-0.202,-0.196,-0.190,-0.185,-0.179,-0.174,-0.168,-0.162, &-0.157,-0.151,-0.145,-0.140,-0.134,-0.128,-0.123,-0.117,-0.111, &-0.106,-0.100,-0.094,-0.089,-0.083,-0.077,-0.071,-0.066,-0.060, &-0.054,-0.048,-0.042,-0.037,-0.031,-0.025,-0.019,-0.013,-0.007, &-0.001, 0.006, 0.012, 0.018, 0.024, 0.030, 0.037, 0.043, 0.049, & 0.056, 0.062, 0.069, 0.075, 0.082, 0.089, 0.095, 0.102, 0.109, & 0.116, 0.122, 0.129, 0.136, 0.143, 0.150, 0.157, 0.164, 0.171, & 0.178, 0.185, 0.192, 0.199, 0.207, 0.214, 0.221, 0.228, 0.235, & 0.242, 0.250, 0.257, 0.264, 0.271, 0.278, 0.286, 0.293, 0.300, & 0.307, 0.315, 0.322, 0.329, 0.336, 0.344, 0.351, 0.358, 0.365, & 0.372, 0.380, 0.387, 0.394, 0.401, 0.408, 0.416, 0.423, 0.430, & 0.437, 0.444, 0.451, 0.458, 0.466, 0.473, 0.480, 0.487, 0.494, & 0.501, 0.508, 0.515, 0.522, 0.529, 0.536, 0.543, 0.550, 0.557, & 0.564, 0.571, 0.578, 0.585, 0.592, 0.599, 0.606, 0.613, 0.620, & 0.626, 0.633, 0.640, 0.647, 0.654, 0.661, 0.667, 0.674, 0.681, & 0.688, 0.695, 0.701, 0.708, 0.715, 0.722, 0.728, 0.735, 0.742, & 0.748, 0.755, 0.762, 0.768, 0.775, 0.782, 0.788, 0.795, 0.801, & 0.808, 0.815, 0.821, 0.828, 0.834, 0.841, 0.847, 0.854, 0.860, & 0.867, 0.873, 0.879, 0.886, 0.892, 0.899, 0.905, 0.912, 0.918, & 0.924, 0.931, 0.937, 0.943, 0.950, 0.956, 0.962, 0.968, 0.975, & 0.981, 0.987, 0.993, 1.000, 1.006, 1.012, 1.018, 1.024, 1.031, & 1.037, 1.043, 1.049, 1.055, 1.061, 1.067, 1.073, 1.080, 1.086, & 1.092, 1.098, 1.104, 1.110, 1.116, 1.122, 1.128, 1.134, 1.140, & 1.146, 1.151, 1.157, 1.163, 1.169, 1.175, 1.181, 1.187, 1.193, & 1.199, 1.204, 1.210, 1.216, 1.222, 1.228, 1.233, 1.239, 1.245, & 1.251, 1.256, 1.262, 1.268, 1.273, 1.279, 1.285, 1.291, 1.296, & 1.302, 1.307, 1.313, 1.319, 1.324, 1.330, 1.335, 1.341, 1.347, & 1.352, 1.358, 1.363, 1.369, 1.374, 1.380, 1.385, 1.391, 1.396, & 1.402, 1.407, 1.412, 1.418, 1.423, 1.429, 1.434, 1.439, 1.445, & 1.450, 1.455, 1.461, 1.466, 1.471, 1.477, 1.482, 1.487, 1.493, & 1.498, 1.503, 1.508, 1.514, 1.519, 1.524, 1.529, 1.534, 1.540, & 1.545, 1.550, 1.555, 1.560, 1.565, 1.570, 1.576, 1.581, 1.586, & 1.591, 1.596, 1.601, 1.606, 1.611, 1.616, 1.621, 1.626, 1.631, & 1.636, 1.641, 1.646, 1.651, 1.656, 1.661, 1.666, 1.671, 1.676, & 1.681, 1.686, 1.691, 1.695, 1.700, 1.705, 1.710, 1.715, 1.720, & 1.725, 1.729, 1.734, 1.739, 1.744, 1.749, 1.753, 1.758, 1.763, & 1.768, 1.772, 1.777, 1.782, 1.786, 1.791, 1.796, 1.801, 1.805, & 1.810, 1.815, 1.819, 1.824, 1.829, 1.833, 1.838, 1.842, 1.847, & 1.852, 1.856, 1.861, 1.865, 1.870, 1.874, 1.879, 1.883, 1.888, & 1.892, 1.897, 1.902, 1.906, 1.954, 1.998, 2.040, 2.082, 2.124, & 2.164, 2.204, 2.243, 2.282, 2.319, 2.356, 2.393, 2.429, 2.464, & 2.499, 2.533, 2.567, 2.600, 2.632, 2.664, 2.695, 2.726, 2.757, & 2.787, 2.816, 2.845, 2.874, 2.902, 2.930, 2.957, 2.984, 3.010, & 3.036, 3.062, 3.087, 3.112, 3.137, 3.161, 3.185, 3.208, 3.232, & 3.254, 3.277, 3.299, 3.321, 3.342, 3.364, 3.385, 3.405, 3.426, & 3.446, 3.466, 3.485, 3.504, 3.523, 3.542, 3.561, 3.579, 3.597, & 3.615, 3.632, 3.649, 3.666, 3.683, 3.700, 3.716, 3.732, 3.748, & 3.764, 3.779, 3.795, 3.810, 3.825, 3.839, 3.854, 3.868, 3.882, & 3.896, 3.910, 3.924, 3.937, 3.950, 3.964, 3.976, 3.989, 4.002, & 4.014, 4.026, 4.039, 4.050, 4.062, 4.074, 4.085, 4.097, 4.108, & 4.119, 4.130, 4.141, 4.151, 4.162, 4.172, 4.182, 4.192, 4.202, & 4.212, 4.222, 4.231, 4.241, 4.250, 4.259, 4.268, 4.277, 4.286, & 4.295, 4.304, 4.312, 4.321, 4.329, 4.337, 4.345, 4.353, 4.361, & 4.369, 4.376, 4.384, 4.391, 4.399, 4.406, 4.413, 4.420, 4.427, & 4.434, 4.441, 4.447, 4.454, 4.460, 4.467, 4.473, 4.479, 4.485, & 4.491, 4.497, 4.503, 4.509, 4.515, 4.520, 4.526, 4.531, 4.537, & 4.542, 4.547, 4.552, 4.557, 4.562, 4.567, 4.572, 4.577, 4.582, & 4.586, 4.591, 4.595 & / END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE KM223 C *** CALCULATES BINARY ACTIVITY COEFFICIENTS BY KUSIK-MEISSNER METHOD. C THE COMPUTATIONS HAVE BEEN PERFORMED AND THE RESULTS ARE STORED IN C LOOKUP TABLES. THE IONIC ACTIVITY 'IN' IS INPUT, AND THE ARRAY C 'BINARR' IS RETURNED WITH THE BINARY COEFFICIENTS. C C TEMPERATURE IS 223K C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE KM223 (IONIC, BINARR) C C *** Common block definition C COMMON /KMC223/ &BNC01M( 561),BNC02M( 561),BNC03M( 561),BNC04M( 561), &BNC05M( 561),BNC06M( 561),BNC07M( 561),BNC08M( 561), &BNC09M( 561),BNC10M( 561),BNC11M( 561),BNC12M( 561), &BNC13M( 561),BNC14M( 561),BNC15M( 561),BNC16M( 561), &BNC17M( 561),BNC18M( 561),BNC19M( 561),BNC20M( 561), &BNC21M( 561),BNC22M( 561),BNC23M( 561) REAL Binarr (23), Ionic C C *** Find position in arrays for bincoef C IF (Ionic.LE. 0.200000E+02) THEN ipos = MIN(NINT( 0.200000E+02*Ionic) + 1, 400) ELSE ipos = 400+NINT( 0.200000E+01*Ionic- 0.400000E+02) ENDIF ipos = min(ipos, 561) C C *** Assign values to return array C Binarr(01) = BNC01M(ipos) Binarr(02) = BNC02M(ipos) Binarr(03) = BNC03M(ipos) Binarr(04) = BNC04M(ipos) Binarr(05) = BNC05M(ipos) Binarr(06) = BNC06M(ipos) Binarr(07) = BNC07M(ipos) Binarr(08) = BNC08M(ipos) Binarr(09) = BNC09M(ipos) Binarr(10) = BNC10M(ipos) Binarr(11) = BNC11M(ipos) Binarr(12) = BNC12M(ipos) Binarr(13) = BNC13M(ipos) Binarr(14) = BNC14M(ipos) Binarr(15) = BNC15M(ipos) Binarr(16) = BNC16M(ipos) Binarr(17) = BNC17M(ipos) Binarr(18) = BNC18M(ipos) Binarr(19) = BNC19M(ipos) Binarr(20) = BNC20M(ipos) Binarr(21) = BNC21M(ipos) Binarr(22) = BNC22M(ipos) Binarr(23) = BNC23M(ipos) C C *** Return point ; End of subroutine C RETURN END BLOCK DATA KMCF223 C C *** Common block definition C COMMON /KMC223/ &BNC01M( 561),BNC02M( 561),BNC03M( 561),BNC04M( 561), &BNC05M( 561),BNC06M( 561),BNC07M( 561),BNC08M( 561), &BNC09M( 561),BNC10M( 561),BNC11M( 561),BNC12M( 561), &BNC13M( 561),BNC14M( 561),BNC15M( 561),BNC16M( 561), &BNC17M( 561),BNC18M( 561),BNC19M( 561),BNC20M( 561), &BNC21M( 561),BNC22M( 561),BNC23M( 561) C C *** NaCl C DATA BNC01M/ &-0.049,-0.101,-0.124,-0.140,-0.151,-0.159,-0.166,-0.171,-0.175, &-0.178,-0.181,-0.183,-0.185,-0.187,-0.188,-0.188,-0.189,-0.189, &-0.189,-0.189,-0.189,-0.189,-0.188,-0.187,-0.187,-0.186,-0.185, &-0.184,-0.183,-0.182,-0.181,-0.180,-0.178,-0.177,-0.176,-0.174, &-0.173,-0.172,-0.170,-0.169,-0.167,-0.166,-0.164,-0.163,-0.161, &-0.159,-0.158,-0.156,-0.155,-0.153,-0.151,-0.150,-0.148,-0.147, &-0.145,-0.143,-0.142,-0.140,-0.138,-0.137,-0.135,-0.134,-0.132, &-0.130,-0.128,-0.127,-0.125,-0.123,-0.122,-0.120,-0.118,-0.117, &-0.115,-0.113,-0.111,-0.110,-0.108,-0.106,-0.104,-0.102,-0.101, &-0.099,-0.097,-0.095,-0.093,-0.091,-0.089,-0.087,-0.085,-0.083, &-0.081,-0.079,-0.077,-0.075,-0.073,-0.071,-0.069,-0.067,-0.065, &-0.063,-0.061,-0.058,-0.056,-0.054,-0.052,-0.050,-0.048,-0.045, &-0.043,-0.041,-0.039,-0.036,-0.034,-0.032,-0.030,-0.027,-0.025, &-0.023,-0.020,-0.018,-0.016,-0.014,-0.011,-0.009,-0.007,-0.004, &-0.002, 0.000, 0.003, 0.005, 0.007, 0.010, 0.012, 0.014, 0.016, & 0.019, 0.021, 0.023, 0.026, 0.028, 0.030, 0.033, 0.035, 0.037, & 0.039, 0.042, 0.044, 0.046, 0.049, 0.051, 0.053, 0.055, 0.058, & 0.060, 0.062, 0.064, 0.067, 0.069, 0.071, 0.073, 0.076, 0.078, & 0.080, 0.082, 0.085, 0.087, 0.089, 0.091, 0.094, 0.096, 0.098, & 0.100, 0.102, 0.105, 0.107, 0.109, 0.111, 0.113, 0.116, 0.118, & 0.120, 0.122, 0.124, 0.126, 0.129, 0.131, 0.133, 0.135, 0.137, & 0.139, 0.142, 0.144, 0.146, 0.148, 0.150, 0.152, 0.154, 0.157, & 0.159, 0.161, 0.163, 0.165, 0.167, 0.169, 0.171, 0.173, 0.175, & 0.178, 0.180, 0.182, 0.184, 0.186, 0.188, 0.190, 0.192, 0.194, & 0.196, 0.198, 0.200, 0.202, 0.204, 0.206, 0.208, 0.211, 0.213, & 0.215, 0.217, 0.219, 0.221, 0.223, 0.225, 0.227, 0.229, 0.231, & 0.233, 0.235, 0.237, 0.239, 0.241, 0.243, 0.245, 0.246, 0.248, & 0.250, 0.252, 0.254, 0.256, 0.258, 0.260, 0.262, 0.264, 0.266, & 0.268, 0.270, 0.272, 0.274, 0.276, 0.277, 0.279, 0.281, 0.283, & 0.285, 0.287, 0.289, 0.291, 0.293, 0.295, 0.296, 0.298, 0.300, & 0.302, 0.304, 0.306, 0.308, 0.309, 0.311, 0.313, 0.315, 0.317, & 0.319, 0.320, 0.322, 0.324, 0.326, 0.328, 0.330, 0.331, 0.333, & 0.335, 0.337, 0.339, 0.340, 0.342, 0.344, 0.346, 0.348, 0.349, & 0.351, 0.353, 0.355, 0.356, 0.358, 0.360, 0.362, 0.363, 0.365, & 0.367, 0.369, 0.370, 0.372, 0.374, 0.376, 0.377, 0.379, 0.381, & 0.383, 0.384, 0.386, 0.388, 0.389, 0.391, 0.393, 0.394, 0.396, & 0.398, 0.400, 0.401, 0.403, 0.405, 0.406, 0.408, 0.410, 0.411, & 0.413, 0.415, 0.416, 0.418, 0.420, 0.421, 0.423, 0.424, 0.426, & 0.428, 0.429, 0.431, 0.433, 0.434, 0.436, 0.437, 0.439, 0.441, & 0.442, 0.444, 0.446, 0.447, 0.449, 0.450, 0.452, 0.453, 0.455, & 0.457, 0.458, 0.460, 0.461, 0.463, 0.464, 0.466, 0.468, 0.469, & 0.471, 0.472, 0.474, 0.475, 0.477, 0.478, 0.480, 0.482, 0.483, & 0.485, 0.486, 0.488, 0.489, 0.491, 0.492, 0.494, 0.495, 0.497, & 0.498, 0.500, 0.501, 0.503, 0.504, 0.506, 0.507, 0.509, 0.510, & 0.512, 0.513, 0.515, 0.516, 0.532, 0.546, 0.560, 0.574, 0.588, & 0.601, 0.614, 0.627, 0.639, 0.652, 0.664, 0.676, 0.688, 0.700, & 0.711, 0.722, 0.733, 0.744, 0.755, 0.765, 0.776, 0.786, 0.796, & 0.806, 0.816, 0.825, 0.835, 0.844, 0.853, 0.862, 0.871, 0.880, & 0.888, 0.897, 0.905, 0.913, 0.921, 0.929, 0.937, 0.945, 0.952, & 0.960, 0.967, 0.975, 0.982, 0.989, 0.996, 1.003, 1.009, 1.016, & 1.023, 1.029, 1.036, 1.042, 1.048, 1.054, 1.060, 1.066, 1.072, & 1.078, 1.084, 1.089, 1.095, 1.100, 1.106, 1.111, 1.116, 1.121, & 1.126, 1.131, 1.136, 1.141, 1.146, 1.151, 1.156, 1.160, 1.165, & 1.169, 1.174, 1.178, 1.182, 1.187, 1.191, 1.195, 1.199, 1.203, & 1.207, 1.211, 1.215, 1.219, 1.223, 1.226, 1.230, 1.234, 1.237, & 1.241, 1.244, 1.247, 1.251, 1.254, 1.257, 1.261, 1.264, 1.267, & 1.270, 1.273, 1.276, 1.279, 1.282, 1.285, 1.288, 1.291, 1.293, & 1.296, 1.299, 1.301, 1.304, 1.306, 1.309, 1.311, 1.314, 1.316, & 1.319, 1.321, 1.323, 1.326, 1.328, 1.330, 1.332, 1.334, 1.336, & 1.339, 1.341, 1.343, 1.345, 1.347, 1.348, 1.350, 1.352, 1.354, & 1.356, 1.358, 1.359, 1.361, 1.363, 1.364, 1.366, 1.368, 1.369, & 1.371, 1.372, 1.374, 1.375, 1.377, 1.378, 1.379, 1.381, 1.382, & 1.383, 1.385, 1.386 & / C C *** Na2SO4 C DATA BNC02M/ &-0.100,-0.220,-0.280,-0.323,-0.357,-0.385,-0.409,-0.431,-0.450, &-0.468,-0.484,-0.499,-0.513,-0.526,-0.538,-0.549,-0.560,-0.571, &-0.581,-0.590,-0.600,-0.608,-0.617,-0.625,-0.633,-0.641,-0.648, &-0.655,-0.662,-0.669,-0.676,-0.682,-0.689,-0.695,-0.701,-0.707, &-0.713,-0.718,-0.724,-0.729,-0.735,-0.740,-0.745,-0.750,-0.755, &-0.760,-0.765,-0.769,-0.774,-0.779,-0.783,-0.788,-0.792,-0.796, &-0.800,-0.805,-0.809,-0.813,-0.817,-0.821,-0.825,-0.829,-0.833, &-0.836,-0.840,-0.844,-0.848,-0.851,-0.855,-0.858,-0.862,-0.866, &-0.869,-0.873,-0.876,-0.879,-0.883,-0.886,-0.889,-0.893,-0.896, &-0.899,-0.902,-0.906,-0.909,-0.912,-0.915,-0.918,-0.921,-0.924, &-0.927,-0.930,-0.933,-0.936,-0.939,-0.942,-0.945,-0.948,-0.951, &-0.954,-0.957,-0.960,-0.963,-0.966,-0.968,-0.971,-0.974,-0.977, &-0.980,-0.982,-0.985,-0.988,-0.991,-0.993,-0.996,-0.999,-1.001, &-1.004,-1.007,-1.009,-1.012,-1.015,-1.017,-1.020,-1.022,-1.025, &-1.028,-1.030,-1.033,-1.035,-1.038,-1.040,-1.043,-1.045,-1.048, &-1.050,-1.053,-1.055,-1.058,-1.060,-1.062,-1.065,-1.067,-1.070, &-1.072,-1.074,-1.077,-1.079,-1.082,-1.084,-1.086,-1.089,-1.091, &-1.093,-1.096,-1.098,-1.100,-1.102,-1.105,-1.107,-1.109,-1.112, &-1.114,-1.116,-1.118,-1.121,-1.123,-1.125,-1.127,-1.129,-1.132, &-1.134,-1.136,-1.138,-1.140,-1.143,-1.145,-1.147,-1.149,-1.151, &-1.153,-1.155,-1.158,-1.160,-1.162,-1.164,-1.166,-1.168,-1.170, &-1.172,-1.174,-1.177,-1.179,-1.181,-1.183,-1.185,-1.187,-1.189, &-1.191,-1.193,-1.195,-1.197,-1.199,-1.201,-1.203,-1.205,-1.207, &-1.209,-1.211,-1.213,-1.215,-1.217,-1.219,-1.221,-1.223,-1.225, &-1.227,-1.229,-1.231,-1.233,-1.235,-1.237,-1.239,-1.241,-1.243, &-1.245,-1.247,-1.248,-1.250,-1.252,-1.254,-1.256,-1.258,-1.260, &-1.262,-1.264,-1.266,-1.268,-1.269,-1.271,-1.273,-1.275,-1.277, &-1.279,-1.281,-1.283,-1.284,-1.286,-1.288,-1.290,-1.292,-1.294, &-1.296,-1.297,-1.299,-1.301,-1.303,-1.305,-1.306,-1.308,-1.310, &-1.312,-1.314,-1.316,-1.317,-1.319,-1.321,-1.323,-1.325,-1.326, &-1.328,-1.330,-1.332,-1.333,-1.335,-1.337,-1.339,-1.341,-1.342, &-1.344,-1.346,-1.348,-1.349,-1.351,-1.353,-1.355,-1.356,-1.358, &-1.360,-1.362,-1.363,-1.365,-1.367,-1.369,-1.370,-1.372,-1.374, &-1.375,-1.377,-1.379,-1.381,-1.382,-1.384,-1.386,-1.387,-1.389, &-1.391,-1.393,-1.394,-1.396,-1.398,-1.399,-1.401,-1.403,-1.404, &-1.406,-1.408,-1.409,-1.411,-1.413,-1.414,-1.416,-1.418,-1.419, &-1.421,-1.423,-1.424,-1.426,-1.428,-1.429,-1.431,-1.433,-1.434, &-1.436,-1.438,-1.439,-1.441,-1.442,-1.444,-1.446,-1.447,-1.449, &-1.451,-1.452,-1.454,-1.456,-1.457,-1.459,-1.460,-1.462,-1.464, &-1.465,-1.467,-1.468,-1.470,-1.472,-1.473,-1.475,-1.476,-1.478, &-1.480,-1.481,-1.483,-1.484,-1.486,-1.488,-1.489,-1.491,-1.492, &-1.494,-1.496,-1.497,-1.499,-1.500,-1.502,-1.503,-1.505,-1.507, &-1.508,-1.510,-1.511,-1.513,-1.514,-1.516,-1.518,-1.519,-1.521, &-1.522,-1.524,-1.525,-1.527,-1.528,-1.530,-1.531,-1.533,-1.535, &-1.536,-1.538,-1.539,-1.541,-1.557,-1.572,-1.587,-1.602,-1.617, &-1.632,-1.647,-1.661,-1.675,-1.690,-1.704,-1.718,-1.732,-1.746, &-1.760,-1.774,-1.787,-1.801,-1.815,-1.828,-1.841,-1.855,-1.868, &-1.881,-1.895,-1.908,-1.921,-1.934,-1.947,-1.960,-1.972,-1.985, &-1.998,-2.011,-2.023,-2.036,-2.048,-2.061,-2.074,-2.086,-2.098, &-2.111,-2.123,-2.135,-2.148,-2.160,-2.172,-2.184,-2.196,-2.208, &-2.220,-2.232,-2.244,-2.256,-2.268,-2.280,-2.292,-2.304,-2.315, &-2.327,-2.339,-2.351,-2.362,-2.374,-2.386,-2.397,-2.409,-2.420, &-2.432,-2.443,-2.455,-2.466,-2.478,-2.489,-2.501,-2.512,-2.523, &-2.535,-2.546,-2.557,-2.568,-2.580,-2.591,-2.602,-2.613,-2.625, &-2.636,-2.647,-2.658,-2.669,-2.680,-2.691,-2.702,-2.713,-2.724, &-2.735,-2.746,-2.757,-2.768,-2.779,-2.790,-2.801,-2.812,-2.823, &-2.833,-2.844,-2.855,-2.866,-2.877,-2.888,-2.898,-2.909,-2.920, &-2.930,-2.941,-2.952,-2.963,-2.973,-2.984,-2.995,-3.005,-3.016, &-3.026,-3.037,-3.048,-3.058,-3.069,-3.079,-3.090,-3.100,-3.111, &-3.121,-3.132,-3.142,-3.153,-3.163,-3.174,-3.184,-3.195,-3.205, &-3.215,-3.226,-3.236,-3.247,-3.257,-3.267,-3.278,-3.288,-3.298, &-3.309,-3.319,-3.329,-3.340,-3.350,-3.360,-3.370,-3.381,-3.391, &-3.401,-3.411,-3.422 & / C C *** NaNO3 C DATA BNC03M/ &-0.050,-0.111,-0.141,-0.164,-0.181,-0.196,-0.209,-0.220,-0.230, &-0.239,-0.248,-0.256,-0.263,-0.270,-0.277,-0.283,-0.289,-0.295, &-0.300,-0.306,-0.311,-0.316,-0.320,-0.325,-0.329,-0.334,-0.338, &-0.342,-0.346,-0.350,-0.353,-0.357,-0.360,-0.364,-0.367,-0.371, &-0.374,-0.377,-0.380,-0.384,-0.387,-0.390,-0.392,-0.395,-0.398, &-0.401,-0.404,-0.406,-0.409,-0.412,-0.414,-0.417,-0.419,-0.422, &-0.424,-0.427,-0.429,-0.432,-0.434,-0.436,-0.438,-0.441,-0.443, &-0.445,-0.447,-0.449,-0.452,-0.454,-0.456,-0.458,-0.460,-0.462, &-0.464,-0.466,-0.468,-0.470,-0.472,-0.474,-0.476,-0.478,-0.480, &-0.482,-0.484,-0.485,-0.487,-0.489,-0.491,-0.493,-0.495,-0.496, &-0.498,-0.500,-0.502,-0.504,-0.505,-0.507,-0.509,-0.511,-0.512, &-0.514,-0.516,-0.518,-0.519,-0.521,-0.523,-0.524,-0.526,-0.528, &-0.529,-0.531,-0.533,-0.534,-0.536,-0.538,-0.539,-0.541,-0.543, &-0.544,-0.546,-0.547,-0.549,-0.551,-0.552,-0.554,-0.555,-0.557, &-0.558,-0.560,-0.561,-0.563,-0.564,-0.566,-0.568,-0.569,-0.571, &-0.572,-0.574,-0.575,-0.576,-0.578,-0.579,-0.581,-0.582,-0.584, &-0.585,-0.587,-0.588,-0.590,-0.591,-0.592,-0.594,-0.595,-0.597, &-0.598,-0.600,-0.601,-0.602,-0.604,-0.605,-0.606,-0.608,-0.609, &-0.611,-0.612,-0.613,-0.615,-0.616,-0.617,-0.619,-0.620,-0.621, &-0.623,-0.624,-0.625,-0.627,-0.628,-0.629,-0.631,-0.632,-0.633, &-0.635,-0.636,-0.637,-0.638,-0.640,-0.641,-0.642,-0.643,-0.645, &-0.646,-0.647,-0.649,-0.650,-0.651,-0.652,-0.654,-0.655,-0.656, &-0.657,-0.659,-0.660,-0.661,-0.662,-0.663,-0.665,-0.666,-0.667, &-0.668,-0.670,-0.671,-0.672,-0.673,-0.674,-0.676,-0.677,-0.678, &-0.679,-0.680,-0.681,-0.683,-0.684,-0.685,-0.686,-0.687,-0.689, &-0.690,-0.691,-0.692,-0.693,-0.694,-0.695,-0.697,-0.698,-0.699, &-0.700,-0.701,-0.702,-0.703,-0.705,-0.706,-0.707,-0.708,-0.709, &-0.710,-0.711,-0.712,-0.714,-0.715,-0.716,-0.717,-0.718,-0.719, &-0.720,-0.721,-0.722,-0.724,-0.725,-0.726,-0.727,-0.728,-0.729, &-0.730,-0.731,-0.732,-0.733,-0.734,-0.736,-0.737,-0.738,-0.739, &-0.740,-0.741,-0.742,-0.743,-0.744,-0.745,-0.746,-0.747,-0.748, &-0.749,-0.750,-0.751,-0.753,-0.754,-0.755,-0.756,-0.757,-0.758, &-0.759,-0.760,-0.761,-0.762,-0.763,-0.764,-0.765,-0.766,-0.767, &-0.768,-0.769,-0.770,-0.771,-0.772,-0.773,-0.774,-0.775,-0.776, &-0.777,-0.778,-0.779,-0.780,-0.781,-0.782,-0.783,-0.784,-0.785, &-0.786,-0.787,-0.788,-0.789,-0.790,-0.791,-0.792,-0.793,-0.794, &-0.795,-0.796,-0.797,-0.798,-0.799,-0.800,-0.801,-0.802,-0.803, &-0.804,-0.805,-0.806,-0.807,-0.808,-0.809,-0.810,-0.811,-0.812, &-0.813,-0.814,-0.815,-0.816,-0.817,-0.818,-0.818,-0.819,-0.820, &-0.821,-0.822,-0.823,-0.824,-0.825,-0.826,-0.827,-0.828,-0.829, &-0.830,-0.831,-0.832,-0.833,-0.834,-0.835,-0.835,-0.836,-0.837, &-0.838,-0.839,-0.840,-0.841,-0.842,-0.843,-0.844,-0.845,-0.846, &-0.847,-0.848,-0.848,-0.849,-0.850,-0.851,-0.852,-0.853,-0.854, &-0.855,-0.856,-0.857,-0.858,-0.859,-0.859,-0.860,-0.861,-0.862, &-0.863,-0.864,-0.865,-0.866,-0.875,-0.884,-0.893,-0.902,-0.910, &-0.919,-0.927,-0.936,-0.944,-0.952,-0.961,-0.969,-0.977,-0.985, &-0.993,-1.001,-1.008,-1.016,-1.024,-1.032,-1.039,-1.047,-1.054, &-1.062,-1.069,-1.077,-1.084,-1.092,-1.099,-1.106,-1.113,-1.121, &-1.128,-1.135,-1.142,-1.149,-1.156,-1.163,-1.170,-1.177,-1.184, &-1.191,-1.198,-1.204,-1.211,-1.218,-1.225,-1.231,-1.238,-1.245, &-1.251,-1.258,-1.265,-1.271,-1.278,-1.284,-1.291,-1.297,-1.304, &-1.310,-1.317,-1.323,-1.330,-1.336,-1.342,-1.349,-1.355,-1.361, &-1.368,-1.374,-1.380,-1.386,-1.393,-1.399,-1.405,-1.411,-1.417, &-1.423,-1.430,-1.436,-1.442,-1.448,-1.454,-1.460,-1.466,-1.472, &-1.478,-1.484,-1.490,-1.496,-1.502,-1.508,-1.514,-1.520,-1.526, &-1.532,-1.538,-1.543,-1.549,-1.555,-1.561,-1.567,-1.573,-1.578, &-1.584,-1.590,-1.596,-1.602,-1.607,-1.613,-1.619,-1.625,-1.630, &-1.636,-1.642,-1.648,-1.653,-1.659,-1.665,-1.670,-1.676,-1.682, &-1.687,-1.693,-1.698,-1.704,-1.710,-1.715,-1.721,-1.726,-1.732, &-1.738,-1.743,-1.749,-1.754,-1.760,-1.765,-1.771,-1.776,-1.782, &-1.787,-1.793,-1.798,-1.804,-1.809,-1.815,-1.820,-1.826,-1.831, &-1.837,-1.842,-1.847,-1.853,-1.858,-1.864,-1.869,-1.875,-1.880, &-1.885,-1.891,-1.896 & / C C *** (NH4)2SO4 C DATA BNC04M/ &-0.101,-0.220,-0.281,-0.324,-0.358,-0.387,-0.412,-0.434,-0.453, &-0.471,-0.487,-0.503,-0.517,-0.530,-0.543,-0.555,-0.566,-0.577, &-0.587,-0.597,-0.606,-0.615,-0.624,-0.632,-0.641,-0.649,-0.656, &-0.664,-0.671,-0.678,-0.685,-0.692,-0.698,-0.705,-0.711,-0.717, &-0.723,-0.729,-0.735,-0.740,-0.746,-0.752,-0.757,-0.762,-0.767, &-0.772,-0.777,-0.782,-0.787,-0.792,-0.797,-0.801,-0.806,-0.810, &-0.815,-0.819,-0.824,-0.828,-0.832,-0.836,-0.840,-0.844,-0.848, &-0.852,-0.856,-0.860,-0.864,-0.868,-0.872,-0.876,-0.879,-0.883, &-0.887,-0.890,-0.894,-0.897,-0.901,-0.904,-0.908,-0.911,-0.915, &-0.918,-0.922,-0.925,-0.928,-0.932,-0.935,-0.938,-0.942,-0.945, &-0.948,-0.951,-0.954,-0.958,-0.961,-0.964,-0.967,-0.970,-0.973, &-0.976,-0.979,-0.982,-0.985,-0.988,-0.991,-0.994,-0.997,-1.000, &-1.003,-1.006,-1.009,-1.012,-1.015,-1.018,-1.021,-1.024,-1.026, &-1.029,-1.032,-1.035,-1.038,-1.040,-1.043,-1.046,-1.049,-1.051, &-1.054,-1.057,-1.060,-1.062,-1.065,-1.068,-1.070,-1.073,-1.076, &-1.078,-1.081,-1.083,-1.086,-1.089,-1.091,-1.094,-1.096,-1.099, &-1.102,-1.104,-1.107,-1.109,-1.112,-1.114,-1.117,-1.119,-1.122, &-1.124,-1.127,-1.129,-1.131,-1.134,-1.136,-1.139,-1.141,-1.144, &-1.146,-1.148,-1.151,-1.153,-1.155,-1.158,-1.160,-1.163,-1.165, &-1.167,-1.170,-1.172,-1.174,-1.177,-1.179,-1.181,-1.183,-1.186, &-1.188,-1.190,-1.193,-1.195,-1.197,-1.199,-1.202,-1.204,-1.206, &-1.208,-1.210,-1.213,-1.215,-1.217,-1.219,-1.221,-1.224,-1.226, &-1.228,-1.230,-1.232,-1.235,-1.237,-1.239,-1.241,-1.243,-1.245, &-1.247,-1.250,-1.252,-1.254,-1.256,-1.258,-1.260,-1.262,-1.264, &-1.266,-1.269,-1.271,-1.273,-1.275,-1.277,-1.279,-1.281,-1.283, &-1.285,-1.287,-1.289,-1.291,-1.293,-1.295,-1.297,-1.299,-1.301, &-1.303,-1.305,-1.307,-1.309,-1.311,-1.313,-1.315,-1.317,-1.319, &-1.321,-1.323,-1.325,-1.327,-1.329,-1.331,-1.333,-1.335,-1.337, &-1.339,-1.341,-1.343,-1.345,-1.347,-1.349,-1.351,-1.353,-1.355, &-1.357,-1.358,-1.360,-1.362,-1.364,-1.366,-1.368,-1.370,-1.372, &-1.374,-1.376,-1.377,-1.379,-1.381,-1.383,-1.385,-1.387,-1.389, &-1.391,-1.392,-1.394,-1.396,-1.398,-1.400,-1.402,-1.404,-1.405, &-1.407,-1.409,-1.411,-1.413,-1.415,-1.417,-1.418,-1.420,-1.422, &-1.424,-1.426,-1.427,-1.429,-1.431,-1.433,-1.435,-1.437,-1.438, &-1.440,-1.442,-1.444,-1.445,-1.447,-1.449,-1.451,-1.453,-1.454, &-1.456,-1.458,-1.460,-1.462,-1.463,-1.465,-1.467,-1.469,-1.470, &-1.472,-1.474,-1.476,-1.477,-1.479,-1.481,-1.483,-1.484,-1.486, &-1.488,-1.490,-1.491,-1.493,-1.495,-1.496,-1.498,-1.500,-1.502, &-1.503,-1.505,-1.507,-1.509,-1.510,-1.512,-1.514,-1.515,-1.517, &-1.519,-1.520,-1.522,-1.524,-1.526,-1.527,-1.529,-1.531,-1.532, &-1.534,-1.536,-1.537,-1.539,-1.541,-1.542,-1.544,-1.546,-1.547, &-1.549,-1.551,-1.552,-1.554,-1.556,-1.557,-1.559,-1.561,-1.562, &-1.564,-1.566,-1.567,-1.569,-1.571,-1.572,-1.574,-1.576,-1.577, &-1.579,-1.580,-1.582,-1.584,-1.585,-1.587,-1.589,-1.590,-1.592, &-1.594,-1.595,-1.597,-1.598,-1.616,-1.632,-1.648,-1.663,-1.679, &-1.694,-1.710,-1.725,-1.740,-1.755,-1.770,-1.785,-1.799,-1.814, &-1.828,-1.843,-1.857,-1.871,-1.885,-1.900,-1.914,-1.928,-1.941, &-1.955,-1.969,-1.983,-1.996,-2.010,-2.023,-2.037,-2.050,-2.063, &-2.077,-2.090,-2.103,-2.116,-2.129,-2.142,-2.155,-2.168,-2.181, &-2.194,-2.206,-2.219,-2.232,-2.244,-2.257,-2.269,-2.282,-2.294, &-2.307,-2.319,-2.332,-2.344,-2.356,-2.369,-2.381,-2.393,-2.405, &-2.417,-2.429,-2.441,-2.454,-2.466,-2.478,-2.489,-2.501,-2.513, &-2.525,-2.537,-2.549,-2.561,-2.572,-2.584,-2.596,-2.608,-2.619, &-2.631,-2.642,-2.654,-2.666,-2.677,-2.689,-2.700,-2.712,-2.723, &-2.735,-2.746,-2.757,-2.769,-2.780,-2.792,-2.803,-2.814,-2.825, &-2.837,-2.848,-2.859,-2.870,-2.882,-2.893,-2.904,-2.915,-2.926, &-2.937,-2.948,-2.959,-2.971,-2.982,-2.993,-3.004,-3.015,-3.026, &-3.037,-3.048,-3.058,-3.069,-3.080,-3.091,-3.102,-3.113,-3.124, &-3.135,-3.145,-3.156,-3.167,-3.178,-3.189,-3.199,-3.210,-3.221, &-3.232,-3.242,-3.253,-3.264,-3.274,-3.285,-3.296,-3.306,-3.317, &-3.327,-3.338,-3.349,-3.359,-3.370,-3.380,-3.391,-3.401,-3.412, &-3.422,-3.433,-3.443,-3.454,-3.464,-3.475,-3.485,-3.496,-3.506, &-3.517,-3.527,-3.537 & / C C *** NH4NO3 C DATA BNC05M/ &-0.051,-0.114,-0.148,-0.172,-0.192,-0.209,-0.224,-0.238,-0.250, &-0.262,-0.272,-0.282,-0.292,-0.301,-0.310,-0.318,-0.326,-0.333, &-0.341,-0.348,-0.355,-0.362,-0.368,-0.375,-0.381,-0.387,-0.393, &-0.398,-0.404,-0.410,-0.415,-0.420,-0.426,-0.431,-0.436,-0.441, &-0.446,-0.450,-0.455,-0.460,-0.464,-0.469,-0.473,-0.477,-0.482, &-0.486,-0.490,-0.494,-0.498,-0.502,-0.506,-0.510,-0.514,-0.518, &-0.521,-0.525,-0.529,-0.532,-0.536,-0.539,-0.543,-0.546,-0.550, &-0.553,-0.556,-0.560,-0.563,-0.566,-0.570,-0.573,-0.576,-0.579, &-0.582,-0.585,-0.588,-0.592,-0.595,-0.598,-0.601,-0.604,-0.607, &-0.610,-0.613,-0.616,-0.619,-0.622,-0.624,-0.627,-0.630,-0.633, &-0.636,-0.639,-0.642,-0.645,-0.647,-0.650,-0.653,-0.656,-0.659, &-0.662,-0.664,-0.667,-0.670,-0.673,-0.675,-0.678,-0.681,-0.684, &-0.686,-0.689,-0.692,-0.694,-0.697,-0.700,-0.702,-0.705,-0.708, &-0.710,-0.713,-0.716,-0.718,-0.721,-0.723,-0.726,-0.729,-0.731, &-0.734,-0.736,-0.739,-0.741,-0.744,-0.746,-0.749,-0.751,-0.754, &-0.756,-0.759,-0.761,-0.764,-0.766,-0.768,-0.771,-0.773,-0.776, &-0.778,-0.780,-0.783,-0.785,-0.787,-0.790,-0.792,-0.794,-0.797, &-0.799,-0.801,-0.804,-0.806,-0.808,-0.810,-0.813,-0.815,-0.817, &-0.819,-0.822,-0.824,-0.826,-0.828,-0.831,-0.833,-0.835,-0.837, &-0.839,-0.841,-0.844,-0.846,-0.848,-0.850,-0.852,-0.854,-0.856, &-0.858,-0.860,-0.863,-0.865,-0.867,-0.869,-0.871,-0.873,-0.875, &-0.877,-0.879,-0.881,-0.883,-0.885,-0.887,-0.889,-0.891,-0.893, &-0.895,-0.897,-0.899,-0.901,-0.903,-0.905,-0.907,-0.909,-0.911, &-0.913,-0.915,-0.917,-0.919,-0.920,-0.922,-0.924,-0.926,-0.928, &-0.930,-0.932,-0.934,-0.936,-0.938,-0.939,-0.941,-0.943,-0.945, &-0.947,-0.949,-0.950,-0.952,-0.954,-0.956,-0.958,-0.960,-0.961, &-0.963,-0.965,-0.967,-0.969,-0.970,-0.972,-0.974,-0.976,-0.977, &-0.979,-0.981,-0.983,-0.984,-0.986,-0.988,-0.990,-0.991,-0.993, &-0.995,-0.997,-0.998,-1.000,-1.002,-1.003,-1.005,-1.007,-1.008, &-1.010,-1.012,-1.013,-1.015,-1.017,-1.019,-1.020,-1.022,-1.023, &-1.025,-1.027,-1.028,-1.030,-1.032,-1.033,-1.035,-1.037,-1.038, &-1.040,-1.041,-1.043,-1.045,-1.046,-1.048,-1.049,-1.051,-1.053, &-1.054,-1.056,-1.057,-1.059,-1.061,-1.062,-1.064,-1.065,-1.067, &-1.068,-1.070,-1.071,-1.073,-1.075,-1.076,-1.078,-1.079,-1.081, &-1.082,-1.084,-1.085,-1.087,-1.088,-1.090,-1.091,-1.093,-1.094, &-1.096,-1.097,-1.099,-1.100,-1.102,-1.103,-1.105,-1.106,-1.108, &-1.109,-1.111,-1.112,-1.114,-1.115,-1.116,-1.118,-1.119,-1.121, &-1.122,-1.124,-1.125,-1.127,-1.128,-1.129,-1.131,-1.132,-1.134, &-1.135,-1.137,-1.138,-1.139,-1.141,-1.142,-1.144,-1.145,-1.146, &-1.148,-1.149,-1.151,-1.152,-1.153,-1.155,-1.156,-1.158,-1.159, &-1.160,-1.162,-1.163,-1.164,-1.166,-1.167,-1.168,-1.170,-1.171, &-1.173,-1.174,-1.175,-1.177,-1.178,-1.179,-1.181,-1.182,-1.183, &-1.185,-1.186,-1.187,-1.189,-1.190,-1.191,-1.193,-1.194,-1.195, &-1.197,-1.198,-1.199,-1.200,-1.202,-1.203,-1.204,-1.206,-1.207, &-1.208,-1.210,-1.211,-1.212,-1.226,-1.238,-1.251,-1.263,-1.275, &-1.287,-1.298,-1.310,-1.321,-1.333,-1.344,-1.355,-1.365,-1.376, &-1.387,-1.397,-1.407,-1.417,-1.427,-1.437,-1.447,-1.457,-1.467, &-1.476,-1.486,-1.495,-1.505,-1.514,-1.523,-1.532,-1.541,-1.550, &-1.559,-1.567,-1.576,-1.585,-1.593,-1.602,-1.610,-1.619,-1.627, &-1.635,-1.643,-1.651,-1.659,-1.667,-1.675,-1.683,-1.691,-1.699, &-1.707,-1.715,-1.722,-1.730,-1.737,-1.745,-1.752,-1.760,-1.767, &-1.775,-1.782,-1.789,-1.797,-1.804,-1.811,-1.818,-1.825,-1.832, &-1.840,-1.847,-1.854,-1.861,-1.867,-1.874,-1.881,-1.888,-1.895, &-1.902,-1.908,-1.915,-1.922,-1.929,-1.935,-1.942,-1.948,-1.955, &-1.962,-1.968,-1.975,-1.981,-1.988,-1.994,-2.000,-2.007,-2.013, &-2.020,-2.026,-2.032,-2.039,-2.045,-2.051,-2.057,-2.064,-2.070, &-2.076,-2.082,-2.088,-2.094,-2.100,-2.107,-2.113,-2.119,-2.125, &-2.131,-2.137,-2.143,-2.149,-2.155,-2.161,-2.167,-2.173,-2.179, &-2.184,-2.190,-2.196,-2.202,-2.208,-2.214,-2.220,-2.225,-2.231, &-2.237,-2.243,-2.248,-2.254,-2.260,-2.266,-2.271,-2.277,-2.283, &-2.288,-2.294,-2.300,-2.305,-2.311,-2.317,-2.322,-2.328,-2.333, &-2.339,-2.345,-2.350,-2.356,-2.361,-2.367,-2.372,-2.378,-2.383, &-2.389,-2.394,-2.400 & / C C *** NH4Cl C DATA BNC06M/ &-0.049,-0.106,-0.133,-0.151,-0.166,-0.177,-0.187,-0.195,-0.202, &-0.208,-0.214,-0.219,-0.224,-0.228,-0.231,-0.235,-0.238,-0.241, &-0.244,-0.246,-0.249,-0.251,-0.253,-0.255,-0.257,-0.259,-0.260, &-0.262,-0.264,-0.265,-0.266,-0.268,-0.269,-0.270,-0.271,-0.272, &-0.273,-0.274,-0.275,-0.276,-0.277,-0.278,-0.278,-0.279,-0.280, &-0.281,-0.281,-0.282,-0.283,-0.283,-0.284,-0.284,-0.285,-0.285, &-0.286,-0.287,-0.287,-0.288,-0.288,-0.288,-0.289,-0.289,-0.290, &-0.290,-0.291,-0.291,-0.291,-0.292,-0.292,-0.292,-0.293,-0.293, &-0.293,-0.294,-0.294,-0.294,-0.294,-0.295,-0.295,-0.295,-0.295, &-0.296,-0.296,-0.296,-0.296,-0.296,-0.296,-0.297,-0.297,-0.297, &-0.297,-0.297,-0.297,-0.297,-0.297,-0.297,-0.297,-0.297,-0.297, &-0.297,-0.297,-0.297,-0.297,-0.297,-0.297,-0.297,-0.297,-0.297, &-0.297,-0.297,-0.297,-0.297,-0.297,-0.297,-0.297,-0.297,-0.297, &-0.296,-0.296,-0.296,-0.296,-0.296,-0.296,-0.296,-0.296,-0.296, &-0.295,-0.295,-0.295,-0.295,-0.295,-0.295,-0.295,-0.294,-0.294, &-0.294,-0.294,-0.294,-0.294,-0.294,-0.293,-0.293,-0.293,-0.293, &-0.293,-0.293,-0.292,-0.292,-0.292,-0.292,-0.292,-0.292,-0.291, &-0.291,-0.291,-0.291,-0.291,-0.291,-0.290,-0.290,-0.290,-0.290, &-0.290,-0.290,-0.289,-0.289,-0.289,-0.289,-0.289,-0.288,-0.288, &-0.288,-0.288,-0.288,-0.288,-0.287,-0.287,-0.287,-0.287,-0.287, &-0.287,-0.286,-0.286,-0.286,-0.286,-0.286,-0.286,-0.285,-0.285, &-0.285,-0.285,-0.285,-0.284,-0.284,-0.284,-0.284,-0.284,-0.284, &-0.283,-0.283,-0.283,-0.283,-0.283,-0.283,-0.282,-0.282,-0.282, &-0.282,-0.282,-0.282,-0.281,-0.281,-0.281,-0.281,-0.281,-0.281, &-0.280,-0.280,-0.280,-0.280,-0.280,-0.280,-0.279,-0.279,-0.279, &-0.279,-0.279,-0.279,-0.278,-0.278,-0.278,-0.278,-0.278,-0.278, &-0.277,-0.277,-0.277,-0.277,-0.277,-0.277,-0.276,-0.276,-0.276, &-0.276,-0.276,-0.276,-0.276,-0.275,-0.275,-0.275,-0.275,-0.275, &-0.275,-0.275,-0.274,-0.274,-0.274,-0.274,-0.274,-0.274,-0.273, &-0.273,-0.273,-0.273,-0.273,-0.273,-0.273,-0.272,-0.272,-0.272, &-0.272,-0.272,-0.272,-0.272,-0.271,-0.271,-0.271,-0.271,-0.271, &-0.271,-0.271,-0.271,-0.270,-0.270,-0.270,-0.270,-0.270,-0.270, &-0.270,-0.270,-0.269,-0.269,-0.269,-0.269,-0.269,-0.269,-0.269, &-0.268,-0.268,-0.268,-0.268,-0.268,-0.268,-0.268,-0.268,-0.268, &-0.267,-0.267,-0.267,-0.267,-0.267,-0.267,-0.267,-0.267,-0.266, &-0.266,-0.266,-0.266,-0.266,-0.266,-0.266,-0.266,-0.266,-0.265, &-0.265,-0.265,-0.265,-0.265,-0.265,-0.265,-0.265,-0.265,-0.265, &-0.264,-0.264,-0.264,-0.264,-0.264,-0.264,-0.264,-0.264,-0.264, &-0.264,-0.263,-0.263,-0.263,-0.263,-0.263,-0.263,-0.263,-0.263, &-0.263,-0.263,-0.263,-0.262,-0.262,-0.262,-0.262,-0.262,-0.262, &-0.262,-0.262,-0.262,-0.262,-0.262,-0.262,-0.261,-0.261,-0.261, &-0.261,-0.261,-0.261,-0.261,-0.261,-0.261,-0.261,-0.261,-0.261, &-0.261,-0.260,-0.260,-0.260,-0.260,-0.260,-0.260,-0.260,-0.260, &-0.260,-0.260,-0.260,-0.260,-0.260,-0.260,-0.259,-0.259,-0.259, &-0.259,-0.259,-0.259,-0.259,-0.258,-0.258,-0.257,-0.257,-0.257, &-0.256,-0.256,-0.256,-0.256,-0.256,-0.255,-0.255,-0.256,-0.256, &-0.256,-0.256,-0.256,-0.256,-0.257,-0.257,-0.257,-0.258,-0.258, &-0.259,-0.259,-0.260,-0.260,-0.261,-0.262,-0.262,-0.263,-0.264, &-0.265,-0.265,-0.266,-0.267,-0.268,-0.269,-0.270,-0.271,-0.272, &-0.273,-0.274,-0.275,-0.277,-0.278,-0.279,-0.280,-0.281,-0.283, &-0.284,-0.285,-0.287,-0.288,-0.289,-0.291,-0.292,-0.294,-0.295, &-0.297,-0.298,-0.300,-0.301,-0.303,-0.304,-0.306,-0.308,-0.309, &-0.311,-0.313,-0.314,-0.316,-0.318,-0.320,-0.321,-0.323,-0.325, &-0.327,-0.329,-0.331,-0.332,-0.334,-0.336,-0.338,-0.340,-0.342, &-0.344,-0.346,-0.348,-0.350,-0.352,-0.354,-0.356,-0.358,-0.360, &-0.362,-0.364,-0.367,-0.369,-0.371,-0.373,-0.375,-0.377,-0.379, &-0.382,-0.384,-0.386,-0.388,-0.391,-0.393,-0.395,-0.397,-0.400, &-0.402,-0.404,-0.406,-0.409,-0.411,-0.413,-0.416,-0.418,-0.421, &-0.423,-0.425,-0.428,-0.430,-0.433,-0.435,-0.437,-0.440,-0.442, &-0.445,-0.447,-0.450,-0.452,-0.455,-0.457,-0.460,-0.462,-0.465, &-0.467,-0.470,-0.472,-0.475,-0.477,-0.480,-0.483,-0.485,-0.488, &-0.490,-0.493,-0.496,-0.498,-0.501,-0.503,-0.506,-0.509,-0.511, &-0.514,-0.517,-0.519 & / C C *** (2H,SO4) C DATA BNC07M/ &-0.100,-0.219,-0.279,-0.321,-0.354,-0.382,-0.406,-0.427,-0.446, &-0.463,-0.479,-0.493,-0.506,-0.519,-0.531,-0.542,-0.552,-0.562, &-0.572,-0.581,-0.590,-0.598,-0.606,-0.614,-0.622,-0.629,-0.636, &-0.643,-0.650,-0.656,-0.662,-0.668,-0.674,-0.680,-0.686,-0.692, &-0.697,-0.702,-0.707,-0.713,-0.718,-0.722,-0.727,-0.732,-0.737, &-0.741,-0.746,-0.750,-0.754,-0.759,-0.763,-0.767,-0.771,-0.775, &-0.779,-0.783,-0.787,-0.791,-0.794,-0.798,-0.802,-0.805,-0.809, &-0.813,-0.816,-0.820,-0.823,-0.826,-0.830,-0.833,-0.836,-0.840, &-0.843,-0.846,-0.849,-0.852,-0.855,-0.859,-0.862,-0.865,-0.868, &-0.871,-0.874,-0.877,-0.879,-0.882,-0.885,-0.888,-0.891,-0.894, &-0.897,-0.899,-0.902,-0.905,-0.908,-0.910,-0.913,-0.916,-0.918, &-0.921,-0.924,-0.926,-0.929,-0.932,-0.934,-0.937,-0.939,-0.942, &-0.944,-0.947,-0.949,-0.952,-0.954,-0.957,-0.959,-0.962,-0.964, &-0.967,-0.969,-0.971,-0.974,-0.976,-0.978,-0.981,-0.983,-0.985, &-0.988,-0.990,-0.992,-0.995,-0.997,-0.999,-1.002,-1.004,-1.006, &-1.008,-1.011,-1.013,-1.015,-1.017,-1.019,-1.022,-1.024,-1.026, &-1.028,-1.030,-1.032,-1.034,-1.037,-1.039,-1.041,-1.043,-1.045, &-1.047,-1.049,-1.051,-1.053,-1.056,-1.058,-1.060,-1.062,-1.064, &-1.066,-1.068,-1.070,-1.072,-1.074,-1.076,-1.078,-1.080,-1.082, &-1.084,-1.086,-1.088,-1.090,-1.092,-1.094,-1.096,-1.098,-1.099, &-1.101,-1.103,-1.105,-1.107,-1.109,-1.111,-1.113,-1.115,-1.117, &-1.119,-1.121,-1.122,-1.124,-1.126,-1.128,-1.130,-1.132,-1.134, &-1.135,-1.137,-1.139,-1.141,-1.143,-1.145,-1.146,-1.148,-1.150, &-1.152,-1.154,-1.156,-1.157,-1.159,-1.161,-1.163,-1.165,-1.166, &-1.168,-1.170,-1.172,-1.173,-1.175,-1.177,-1.179,-1.180,-1.182, &-1.184,-1.186,-1.187,-1.189,-1.191,-1.193,-1.194,-1.196,-1.198, &-1.200,-1.201,-1.203,-1.205,-1.206,-1.208,-1.210,-1.212,-1.213, &-1.215,-1.217,-1.218,-1.220,-1.222,-1.223,-1.225,-1.227,-1.228, &-1.230,-1.232,-1.233,-1.235,-1.237,-1.238,-1.240,-1.242,-1.243, &-1.245,-1.247,-1.248,-1.250,-1.251,-1.253,-1.255,-1.256,-1.258, &-1.260,-1.261,-1.263,-1.264,-1.266,-1.268,-1.269,-1.271,-1.273, &-1.274,-1.276,-1.277,-1.279,-1.280,-1.282,-1.284,-1.285,-1.287, &-1.288,-1.290,-1.292,-1.293,-1.295,-1.296,-1.298,-1.299,-1.301, &-1.303,-1.304,-1.306,-1.307,-1.309,-1.310,-1.312,-1.313,-1.315, &-1.317,-1.318,-1.320,-1.321,-1.323,-1.324,-1.326,-1.327,-1.329, &-1.330,-1.332,-1.333,-1.335,-1.337,-1.338,-1.340,-1.341,-1.343, &-1.344,-1.346,-1.347,-1.349,-1.350,-1.352,-1.353,-1.355,-1.356, &-1.358,-1.359,-1.361,-1.362,-1.364,-1.365,-1.367,-1.368,-1.370, &-1.371,-1.373,-1.374,-1.376,-1.377,-1.379,-1.380,-1.381,-1.383, &-1.384,-1.386,-1.387,-1.389,-1.390,-1.392,-1.393,-1.395,-1.396, &-1.398,-1.399,-1.401,-1.402,-1.403,-1.405,-1.406,-1.408,-1.409, &-1.411,-1.412,-1.414,-1.415,-1.416,-1.418,-1.419,-1.421,-1.422, &-1.424,-1.425,-1.427,-1.428,-1.429,-1.431,-1.432,-1.434,-1.435, &-1.437,-1.438,-1.439,-1.441,-1.442,-1.444,-1.445,-1.447,-1.448, &-1.449,-1.451,-1.452,-1.454,-1.469,-1.483,-1.497,-1.510,-1.524, &-1.537,-1.551,-1.564,-1.578,-1.591,-1.604,-1.617,-1.630,-1.643, &-1.656,-1.669,-1.681,-1.694,-1.707,-1.719,-1.732,-1.744,-1.756, &-1.769,-1.781,-1.793,-1.806,-1.818,-1.830,-1.842,-1.854,-1.866, &-1.878,-1.890,-1.902,-1.914,-1.925,-1.937,-1.949,-1.961,-1.972, &-1.984,-1.996,-2.007,-2.019,-2.030,-2.042,-2.053,-2.065,-2.076, &-2.087,-2.099,-2.110,-2.121,-2.133,-2.144,-2.155,-2.166,-2.178, &-2.189,-2.200,-2.211,-2.222,-2.233,-2.244,-2.255,-2.266,-2.277, &-2.288,-2.299,-2.310,-2.321,-2.332,-2.343,-2.354,-2.365,-2.375, &-2.386,-2.397,-2.408,-2.419,-2.429,-2.440,-2.451,-2.461,-2.472, &-2.483,-2.494,-2.504,-2.515,-2.525,-2.536,-2.547,-2.557,-2.568, &-2.578,-2.589,-2.599,-2.610,-2.620,-2.631,-2.641,-2.652,-2.662, &-2.673,-2.683,-2.693,-2.704,-2.714,-2.725,-2.735,-2.745,-2.756, &-2.766,-2.776,-2.787,-2.797,-2.807,-2.817,-2.828,-2.838,-2.848, &-2.858,-2.869,-2.879,-2.889,-2.899,-2.909,-2.920,-2.930,-2.940, &-2.950,-2.960,-2.970,-2.980,-2.991,-3.001,-3.011,-3.021,-3.031, &-3.041,-3.051,-3.061,-3.071,-3.081,-3.091,-3.101,-3.111,-3.121, &-3.131,-3.141,-3.151,-3.161,-3.171,-3.181,-3.191,-3.201,-3.211, &-3.221,-3.231,-3.241 & / C C *** (H,HSO4) C DATA BNC08M/ &-0.047,-0.091,-0.109,-0.119,-0.125,-0.128,-0.130,-0.131,-0.130, &-0.129,-0.128,-0.125,-0.122,-0.119,-0.115,-0.111,-0.107,-0.102, &-0.097,-0.092,-0.086,-0.080,-0.074,-0.068,-0.062,-0.055,-0.048, &-0.041,-0.034,-0.027,-0.019,-0.012,-0.004, 0.004, 0.012, 0.020, & 0.028, 0.037, 0.045, 0.054, 0.063, 0.071, 0.080, 0.089, 0.098, & 0.108, 0.117, 0.126, 0.136, 0.145, 0.155, 0.164, 0.174, 0.184, & 0.193, 0.203, 0.213, 0.223, 0.233, 0.243, 0.253, 0.263, 0.274, & 0.284, 0.294, 0.304, 0.315, 0.325, 0.336, 0.346, 0.357, 0.368, & 0.378, 0.389, 0.400, 0.411, 0.421, 0.432, 0.443, 0.455, 0.466, & 0.477, 0.488, 0.499, 0.511, 0.522, 0.534, 0.545, 0.557, 0.568, & 0.580, 0.592, 0.604, 0.615, 0.627, 0.639, 0.651, 0.664, 0.676, & 0.688, 0.700, 0.712, 0.725, 0.737, 0.749, 0.762, 0.774, 0.787, & 0.799, 0.812, 0.824, 0.837, 0.849, 0.862, 0.875, 0.887, 0.900, & 0.913, 0.925, 0.938, 0.951, 0.963, 0.976, 0.989, 1.001, 1.014, & 1.027, 1.039, 1.052, 1.064, 1.077, 1.090, 1.102, 1.115, 1.127, & 1.140, 1.152, 1.165, 1.177, 1.190, 1.202, 1.215, 1.227, 1.239, & 1.252, 1.264, 1.276, 1.289, 1.301, 1.313, 1.325, 1.338, 1.350, & 1.362, 1.374, 1.386, 1.398, 1.410, 1.422, 1.434, 1.446, 1.458, & 1.470, 1.482, 1.494, 1.506, 1.518, 1.530, 1.541, 1.553, 1.565, & 1.577, 1.588, 1.600, 1.612, 1.623, 1.635, 1.646, 1.658, 1.669, & 1.681, 1.692, 1.704, 1.715, 1.727, 1.738, 1.749, 1.761, 1.772, & 1.783, 1.794, 1.806, 1.817, 1.828, 1.839, 1.850, 1.861, 1.872, & 1.883, 1.894, 1.905, 1.916, 1.927, 1.938, 1.949, 1.960, 1.971, & 1.982, 1.992, 2.003, 2.014, 2.025, 2.035, 2.046, 2.057, 2.067, & 2.078, 2.088, 2.099, 2.109, 2.120, 2.130, 2.141, 2.151, 2.162, & 2.172, 2.182, 2.193, 2.203, 2.213, 2.224, 2.234, 2.244, 2.254, & 2.265, 2.275, 2.285, 2.295, 2.305, 2.315, 2.325, 2.335, 2.345, & 2.355, 2.365, 2.375, 2.385, 2.395, 2.405, 2.415, 2.424, 2.434, & 2.444, 2.454, 2.464, 2.473, 2.483, 2.493, 2.502, 2.512, 2.522, & 2.531, 2.541, 2.550, 2.560, 2.569, 2.579, 2.588, 2.598, 2.607, & 2.617, 2.626, 2.635, 2.645, 2.654, 2.663, 2.673, 2.682, 2.691, & 2.701, 2.710, 2.719, 2.728, 2.737, 2.746, 2.756, 2.765, 2.774, & 2.783, 2.792, 2.801, 2.810, 2.819, 2.828, 2.837, 2.846, 2.855, & 2.864, 2.873, 2.881, 2.890, 2.899, 2.908, 2.917, 2.925, 2.934, & 2.943, 2.952, 2.960, 2.969, 2.978, 2.986, 2.995, 3.004, 3.012, & 3.021, 3.029, 3.038, 3.047, 3.055, 3.064, 3.072, 3.080, 3.089, & 3.097, 3.106, 3.114, 3.123, 3.131, 3.139, 3.148, 3.156, 3.164, & 3.173, 3.181, 3.189, 3.197, 3.206, 3.214, 3.222, 3.230, 3.238, & 3.246, 3.255, 3.263, 3.271, 3.279, 3.287, 3.295, 3.303, 3.311, & 3.319, 3.327, 3.335, 3.343, 3.351, 3.359, 3.367, 3.375, 3.383, & 3.390, 3.398, 3.406, 3.414, 3.422, 3.430, 3.437, 3.445, 3.453, & 3.461, 3.468, 3.476, 3.484, 3.492, 3.499, 3.507, 3.515, 3.522, & 3.530, 3.537, 3.545, 3.553, 3.560, 3.568, 3.575, 3.583, 3.590, & 3.598, 3.605, 3.613, 3.620, 3.628, 3.635, 3.642, 3.650, 3.657, & 3.665, 3.672, 3.679, 3.687, 3.765, 3.837, 3.907, 3.976, 4.044, & 4.111, 4.176, 4.241, 4.305, 4.368, 4.429, 4.490, 4.550, 4.609, & 4.668, 4.725, 4.782, 4.838, 4.893, 4.947, 5.001, 5.054, 5.106, & 5.157, 5.208, 5.259, 5.308, 5.357, 5.406, 5.453, 5.501, 5.547, & 5.593, 5.639, 5.684, 5.729, 5.773, 5.816, 5.859, 5.902, 5.944, & 5.986, 6.027, 6.068, 6.108, 6.148, 6.188, 6.227, 6.265, 6.304, & 6.342, 6.379, 6.416, 6.453, 6.490, 6.526, 6.562, 6.597, 6.632, & 6.667, 6.701, 6.735, 6.769, 6.803, 6.836, 6.869, 6.901, 6.934, & 6.966, 6.997, 7.029, 7.060, 7.091, 7.122, 7.152, 7.182, 7.212, & 7.242, 7.271, 7.300, 7.329, 7.358, 7.386, 7.415, 7.443, 7.470, & 7.498, 7.525, 7.552, 7.579, 7.606, 7.633, 7.659, 7.685, 7.711, & 7.737, 7.762, 7.788, 7.813, 7.838, 7.862, 7.887, 7.912, 7.936, & 7.960, 7.984, 8.008, 8.031, 8.055, 8.078, 8.101, 8.124, 8.147, & 8.169, 8.192, 8.214, 8.236, 8.258, 8.280, 8.302, 8.323, 8.345, & 8.366, 8.387, 8.408, 8.429, 8.450, 8.470, 8.491, 8.511, 8.531, & 8.552, 8.572, 8.591, 8.611, 8.631, 8.650, 8.670, 8.689, 8.708, & 8.727, 8.746, 8.765, 8.783, 8.802, 8.820, 8.839, 8.857, 8.875, & 8.893, 8.911, 8.929, 8.946, 8.964, 8.981, 8.999, 9.016, 9.033, & 9.050, 9.067, 9.084 & / C C *** NH4HSO4 C DATA BNC09M/ &-0.049,-0.104,-0.131,-0.149,-0.163,-0.174,-0.184,-0.192,-0.199, &-0.205,-0.211,-0.216,-0.220,-0.224,-0.228,-0.231,-0.234,-0.236, &-0.238,-0.240,-0.242,-0.244,-0.245,-0.247,-0.248,-0.248,-0.249, &-0.250,-0.250,-0.250,-0.251,-0.251,-0.250,-0.250,-0.250,-0.249, &-0.249,-0.248,-0.247,-0.247,-0.246,-0.245,-0.243,-0.242,-0.241, &-0.240,-0.238,-0.237,-0.235,-0.233,-0.232,-0.230,-0.228,-0.226, &-0.224,-0.222,-0.220,-0.218,-0.216,-0.214,-0.211,-0.209,-0.207, &-0.204,-0.202,-0.199,-0.197,-0.194,-0.192,-0.189,-0.187,-0.184, &-0.181,-0.178,-0.176,-0.173,-0.170,-0.167,-0.164,-0.161,-0.158, &-0.155,-0.152,-0.149,-0.146,-0.142,-0.139,-0.136,-0.133,-0.129, &-0.126,-0.123,-0.119,-0.116,-0.112,-0.109,-0.105,-0.102,-0.098, &-0.095,-0.091,-0.088,-0.084,-0.080,-0.077,-0.073,-0.069,-0.066, &-0.062,-0.058,-0.055,-0.051,-0.047,-0.043,-0.039,-0.036,-0.032, &-0.028,-0.024,-0.020,-0.017,-0.013,-0.009,-0.005,-0.001, 0.002, & 0.006, 0.010, 0.014, 0.018, 0.021, 0.025, 0.029, 0.033, 0.037, & 0.040, 0.044, 0.048, 0.052, 0.055, 0.059, 0.063, 0.067, 0.070, & 0.074, 0.078, 0.081, 0.085, 0.089, 0.093, 0.096, 0.100, 0.104, & 0.107, 0.111, 0.114, 0.118, 0.122, 0.125, 0.129, 0.133, 0.136, & 0.140, 0.143, 0.147, 0.150, 0.154, 0.157, 0.161, 0.165, 0.168, & 0.172, 0.175, 0.178, 0.182, 0.185, 0.189, 0.192, 0.196, 0.199, & 0.203, 0.206, 0.209, 0.213, 0.216, 0.220, 0.223, 0.226, 0.230, & 0.233, 0.236, 0.240, 0.243, 0.246, 0.250, 0.253, 0.256, 0.259, & 0.263, 0.266, 0.269, 0.272, 0.276, 0.279, 0.282, 0.285, 0.289, & 0.292, 0.295, 0.298, 0.301, 0.304, 0.308, 0.311, 0.314, 0.317, & 0.320, 0.323, 0.326, 0.329, 0.332, 0.336, 0.339, 0.342, 0.345, & 0.348, 0.351, 0.354, 0.357, 0.360, 0.363, 0.366, 0.369, 0.372, & 0.375, 0.378, 0.381, 0.384, 0.387, 0.390, 0.393, 0.395, 0.398, & 0.401, 0.404, 0.407, 0.410, 0.413, 0.416, 0.419, 0.421, 0.424, & 0.427, 0.430, 0.433, 0.436, 0.438, 0.441, 0.444, 0.447, 0.450, & 0.452, 0.455, 0.458, 0.461, 0.464, 0.466, 0.469, 0.472, 0.475, & 0.477, 0.480, 0.483, 0.485, 0.488, 0.491, 0.493, 0.496, 0.499, & 0.501, 0.504, 0.507, 0.509, 0.512, 0.515, 0.517, 0.520, 0.523, & 0.525, 0.528, 0.530, 0.533, 0.536, 0.538, 0.541, 0.543, 0.546, & 0.548, 0.551, 0.554, 0.556, 0.559, 0.561, 0.564, 0.566, 0.569, & 0.571, 0.574, 0.576, 0.579, 0.581, 0.584, 0.586, 0.589, 0.591, & 0.594, 0.596, 0.598, 0.601, 0.603, 0.606, 0.608, 0.611, 0.613, & 0.615, 0.618, 0.620, 0.623, 0.625, 0.627, 0.630, 0.632, 0.635, & 0.637, 0.639, 0.642, 0.644, 0.646, 0.649, 0.651, 0.653, 0.656, & 0.658, 0.660, 0.663, 0.665, 0.667, 0.670, 0.672, 0.674, 0.676, & 0.679, 0.681, 0.683, 0.685, 0.688, 0.690, 0.692, 0.694, 0.697, & 0.699, 0.701, 0.703, 0.706, 0.708, 0.710, 0.712, 0.714, 0.717, & 0.719, 0.721, 0.723, 0.725, 0.728, 0.730, 0.732, 0.734, 0.736, & 0.738, 0.741, 0.743, 0.745, 0.747, 0.749, 0.751, 0.753, 0.756, & 0.758, 0.760, 0.762, 0.764, 0.766, 0.768, 0.770, 0.772, 0.774, & 0.777, 0.779, 0.781, 0.783, 0.805, 0.825, 0.845, 0.864, 0.883, & 0.901, 0.920, 0.938, 0.955, 0.973, 0.990, 1.006, 1.023, 1.039, & 1.055, 1.071, 1.086, 1.101, 1.116, 1.131, 1.145, 1.160, 1.174, & 1.188, 1.201, 1.215, 1.228, 1.241, 1.254, 1.266, 1.279, 1.291, & 1.303, 1.315, 1.327, 1.339, 1.350, 1.361, 1.372, 1.383, 1.394, & 1.405, 1.416, 1.426, 1.436, 1.446, 1.456, 1.466, 1.476, 1.486, & 1.495, 1.505, 1.514, 1.523, 1.532, 1.541, 1.550, 1.559, 1.567, & 1.576, 1.584, 1.592, 1.601, 1.609, 1.617, 1.625, 1.632, 1.640, & 1.648, 1.655, 1.663, 1.670, 1.677, 1.684, 1.692, 1.699, 1.706, & 1.712, 1.719, 1.726, 1.732, 1.739, 1.746, 1.752, 1.758, 1.765, & 1.771, 1.777, 1.783, 1.789, 1.795, 1.801, 1.806, 1.812, 1.818, & 1.823, 1.829, 1.834, 1.840, 1.845, 1.850, 1.856, 1.861, 1.866, & 1.871, 1.876, 1.881, 1.886, 1.891, 1.896, 1.900, 1.905, 1.910, & 1.914, 1.919, 1.923, 1.928, 1.932, 1.937, 1.941, 1.945, 1.949, & 1.953, 1.958, 1.962, 1.966, 1.970, 1.974, 1.978, 1.981, 1.985, & 1.989, 1.993, 1.996, 2.000, 2.004, 2.007, 2.011, 2.014, 2.018, & 2.021, 2.025, 2.028, 2.031, 2.035, 2.038, 2.041, 2.044, 2.047, & 2.050, 2.053, 2.056, 2.059, 2.062, 2.065, 2.068, 2.071, 2.074, & 2.077, 2.080, 2.082 & / C C *** (H,NO3) C DATA BNC10M/ &-0.048,-0.100,-0.123,-0.137,-0.147,-0.155,-0.161,-0.165,-0.169, &-0.172,-0.174,-0.175,-0.177,-0.177,-0.178,-0.178,-0.178,-0.177, &-0.177,-0.176,-0.175,-0.174,-0.173,-0.172,-0.171,-0.169,-0.168, &-0.166,-0.165,-0.163,-0.161,-0.159,-0.157,-0.156,-0.154,-0.152, &-0.150,-0.148,-0.146,-0.144,-0.141,-0.139,-0.137,-0.135,-0.133, &-0.131,-0.129,-0.127,-0.124,-0.122,-0.120,-0.118,-0.116,-0.113, &-0.111,-0.109,-0.107,-0.105,-0.102,-0.100,-0.098,-0.096,-0.094, &-0.091,-0.089,-0.087,-0.085,-0.082,-0.080,-0.078,-0.076,-0.073, &-0.071,-0.069,-0.067,-0.064,-0.062,-0.060,-0.057,-0.055,-0.052, &-0.050,-0.048,-0.045,-0.043,-0.040,-0.038,-0.035,-0.033,-0.030, &-0.027,-0.025,-0.022,-0.020,-0.017,-0.014,-0.012,-0.009,-0.006, &-0.004,-0.001, 0.002, 0.005, 0.007, 0.010, 0.013, 0.016, 0.019, & 0.021, 0.024, 0.027, 0.030, 0.033, 0.036, 0.039, 0.041, 0.044, & 0.047, 0.050, 0.053, 0.056, 0.059, 0.062, 0.065, 0.068, 0.071, & 0.073, 0.076, 0.079, 0.082, 0.085, 0.088, 0.091, 0.094, 0.097, & 0.100, 0.103, 0.105, 0.108, 0.111, 0.114, 0.117, 0.120, 0.123, & 0.126, 0.129, 0.131, 0.134, 0.137, 0.140, 0.143, 0.146, 0.149, & 0.152, 0.154, 0.157, 0.160, 0.163, 0.166, 0.169, 0.171, 0.174, & 0.177, 0.180, 0.183, 0.186, 0.188, 0.191, 0.194, 0.197, 0.200, & 0.202, 0.205, 0.208, 0.211, 0.213, 0.216, 0.219, 0.222, 0.224, & 0.227, 0.230, 0.233, 0.235, 0.238, 0.241, 0.244, 0.246, 0.249, & 0.252, 0.254, 0.257, 0.260, 0.263, 0.265, 0.268, 0.271, 0.273, & 0.276, 0.279, 0.281, 0.284, 0.287, 0.289, 0.292, 0.294, 0.297, & 0.300, 0.302, 0.305, 0.308, 0.310, 0.313, 0.315, 0.318, 0.321, & 0.323, 0.326, 0.328, 0.331, 0.333, 0.336, 0.339, 0.341, 0.344, & 0.346, 0.349, 0.351, 0.354, 0.356, 0.359, 0.361, 0.364, 0.366, & 0.369, 0.372, 0.374, 0.376, 0.379, 0.381, 0.384, 0.386, 0.389, & 0.391, 0.394, 0.396, 0.399, 0.401, 0.404, 0.406, 0.409, 0.411, & 0.413, 0.416, 0.418, 0.421, 0.423, 0.425, 0.428, 0.430, 0.433, & 0.435, 0.437, 0.440, 0.442, 0.445, 0.447, 0.449, 0.452, 0.454, & 0.456, 0.459, 0.461, 0.463, 0.466, 0.468, 0.470, 0.473, 0.475, & 0.477, 0.480, 0.482, 0.484, 0.486, 0.489, 0.491, 0.493, 0.496, & 0.498, 0.500, 0.502, 0.505, 0.507, 0.509, 0.511, 0.514, 0.516, & 0.518, 0.520, 0.523, 0.525, 0.527, 0.529, 0.531, 0.534, 0.536, & 0.538, 0.540, 0.542, 0.545, 0.547, 0.549, 0.551, 0.553, 0.555, & 0.558, 0.560, 0.562, 0.564, 0.566, 0.568, 0.570, 0.573, 0.575, & 0.577, 0.579, 0.581, 0.583, 0.585, 0.587, 0.590, 0.592, 0.594, & 0.596, 0.598, 0.600, 0.602, 0.604, 0.606, 0.608, 0.610, 0.612, & 0.614, 0.617, 0.619, 0.621, 0.623, 0.625, 0.627, 0.629, 0.631, & 0.633, 0.635, 0.637, 0.639, 0.641, 0.643, 0.645, 0.647, 0.649, & 0.651, 0.653, 0.655, 0.657, 0.659, 0.661, 0.663, 0.665, 0.667, & 0.669, 0.671, 0.673, 0.674, 0.676, 0.678, 0.680, 0.682, 0.684, & 0.686, 0.688, 0.690, 0.692, 0.694, 0.696, 0.698, 0.700, 0.701, & 0.703, 0.705, 0.707, 0.709, 0.711, 0.713, 0.715, 0.716, 0.718, & 0.720, 0.722, 0.724, 0.726, 0.746, 0.764, 0.781, 0.799, 0.816, & 0.833, 0.849, 0.866, 0.882, 0.897, 0.913, 0.928, 0.943, 0.958, & 0.972, 0.987, 1.001, 1.015, 1.028, 1.042, 1.055, 1.068, 1.081, & 1.093, 1.106, 1.118, 1.130, 1.142, 1.154, 1.165, 1.177, 1.188, & 1.199, 1.210, 1.221, 1.231, 1.242, 1.252, 1.262, 1.272, 1.282, & 1.292, 1.301, 1.311, 1.320, 1.329, 1.338, 1.347, 1.356, 1.365, & 1.374, 1.382, 1.391, 1.399, 1.407, 1.415, 1.423, 1.431, 1.439, & 1.446, 1.454, 1.462, 1.469, 1.476, 1.483, 1.491, 1.498, 1.505, & 1.511, 1.518, 1.525, 1.531, 1.538, 1.544, 1.551, 1.557, 1.563, & 1.569, 1.576, 1.582, 1.587, 1.593, 1.599, 1.605, 1.610, 1.616, & 1.622, 1.627, 1.632, 1.638, 1.643, 1.648, 1.653, 1.658, 1.663, & 1.668, 1.673, 1.678, 1.683, 1.688, 1.692, 1.697, 1.701, 1.706, & 1.710, 1.715, 1.719, 1.723, 1.728, 1.732, 1.736, 1.740, 1.744, & 1.748, 1.752, 1.756, 1.760, 1.764, 1.768, 1.771, 1.775, 1.779, & 1.782, 1.786, 1.789, 1.793, 1.796, 1.800, 1.803, 1.806, 1.810, & 1.813, 1.816, 1.819, 1.822, 1.825, 1.828, 1.831, 1.834, 1.837, & 1.840, 1.843, 1.846, 1.849, 1.852, 1.854, 1.857, 1.860, 1.862, & 1.865, 1.867, 1.870, 1.872, 1.875, 1.877, 1.880, 1.882, 1.885, & 1.887, 1.889, 1.891 & / C C *** (H,Cl) C DATA BNC11M/ &-0.047,-0.093,-0.111,-0.121,-0.127,-0.131,-0.133,-0.134,-0.133, &-0.132,-0.131,-0.128,-0.126,-0.123,-0.119,-0.115,-0.111,-0.107, &-0.102,-0.098,-0.093,-0.088,-0.082,-0.077,-0.071,-0.065,-0.060, &-0.054,-0.048,-0.041,-0.035,-0.029,-0.022,-0.016,-0.009,-0.003, & 0.004, 0.011, 0.018, 0.025, 0.032, 0.038, 0.045, 0.053, 0.060, & 0.067, 0.074, 0.081, 0.088, 0.095, 0.103, 0.110, 0.117, 0.124, & 0.132, 0.139, 0.146, 0.154, 0.161, 0.168, 0.176, 0.183, 0.191, & 0.198, 0.206, 0.213, 0.221, 0.228, 0.236, 0.243, 0.251, 0.258, & 0.266, 0.274, 0.281, 0.289, 0.297, 0.305, 0.312, 0.320, 0.328, & 0.336, 0.344, 0.352, 0.360, 0.368, 0.376, 0.384, 0.393, 0.401, & 0.409, 0.417, 0.426, 0.434, 0.443, 0.451, 0.460, 0.468, 0.477, & 0.485, 0.494, 0.503, 0.511, 0.520, 0.529, 0.538, 0.546, 0.555, & 0.564, 0.573, 0.582, 0.591, 0.600, 0.608, 0.617, 0.626, 0.635, & 0.644, 0.653, 0.662, 0.671, 0.680, 0.689, 0.698, 0.707, 0.716, & 0.725, 0.734, 0.743, 0.752, 0.761, 0.770, 0.779, 0.788, 0.796, & 0.805, 0.814, 0.823, 0.832, 0.841, 0.850, 0.859, 0.867, 0.876, & 0.885, 0.894, 0.903, 0.911, 0.920, 0.929, 0.937, 0.946, 0.955, & 0.964, 0.972, 0.981, 0.989, 0.998, 1.007, 1.015, 1.024, 1.032, & 1.041, 1.049, 1.058, 1.066, 1.075, 1.083, 1.092, 1.100, 1.109, & 1.117, 1.125, 1.134, 1.142, 1.150, 1.159, 1.167, 1.175, 1.183, & 1.192, 1.200, 1.208, 1.216, 1.224, 1.233, 1.241, 1.249, 1.257, & 1.265, 1.273, 1.281, 1.289, 1.297, 1.305, 1.313, 1.321, 1.329, & 1.337, 1.345, 1.353, 1.361, 1.369, 1.377, 1.384, 1.392, 1.400, & 1.408, 1.416, 1.423, 1.431, 1.439, 1.447, 1.454, 1.462, 1.470, & 1.477, 1.485, 1.493, 1.500, 1.508, 1.515, 1.523, 1.530, 1.538, & 1.545, 1.553, 1.560, 1.568, 1.575, 1.583, 1.590, 1.598, 1.605, & 1.612, 1.620, 1.627, 1.634, 1.642, 1.649, 1.656, 1.663, 1.671, & 1.678, 1.685, 1.692, 1.699, 1.707, 1.714, 1.721, 1.728, 1.735, & 1.742, 1.749, 1.756, 1.763, 1.770, 1.778, 1.785, 1.791, 1.798, & 1.805, 1.812, 1.819, 1.826, 1.833, 1.840, 1.847, 1.854, 1.861, & 1.867, 1.874, 1.881, 1.888, 1.895, 1.901, 1.908, 1.915, 1.922, & 1.928, 1.935, 1.942, 1.948, 1.955, 1.962, 1.968, 1.975, 1.981, & 1.988, 1.995, 2.001, 2.008, 2.014, 2.021, 2.027, 2.034, 2.040, & 2.047, 2.053, 2.060, 2.066, 2.072, 2.079, 2.085, 2.092, 2.098, & 2.104, 2.111, 2.117, 2.123, 2.130, 2.136, 2.142, 2.148, 2.155, & 2.161, 2.167, 2.173, 2.180, 2.186, 2.192, 2.198, 2.204, 2.210, & 2.216, 2.223, 2.229, 2.235, 2.241, 2.247, 2.253, 2.259, 2.265, & 2.271, 2.277, 2.283, 2.289, 2.295, 2.301, 2.307, 2.313, 2.319, & 2.325, 2.331, 2.337, 2.343, 2.348, 2.354, 2.360, 2.366, 2.372, & 2.378, 2.383, 2.389, 2.395, 2.401, 2.407, 2.412, 2.418, 2.424, & 2.430, 2.435, 2.441, 2.447, 2.452, 2.458, 2.464, 2.469, 2.475, & 2.481, 2.486, 2.492, 2.497, 2.503, 2.509, 2.514, 2.520, 2.525, & 2.531, 2.536, 2.542, 2.547, 2.553, 2.558, 2.564, 2.569, 2.575, & 2.580, 2.586, 2.591, 2.597, 2.602, 2.607, 2.613, 2.618, 2.624, & 2.629, 2.634, 2.640, 2.645, 2.702, 2.754, 2.805, 2.855, 2.904, & 2.953, 3.001, 3.048, 3.094, 3.139, 3.184, 3.228, 3.272, 3.315, & 3.357, 3.399, 3.440, 3.480, 3.520, 3.559, 3.598, 3.636, 3.674, & 3.711, 3.748, 3.784, 3.820, 3.855, 3.890, 3.925, 3.959, 3.992, & 4.026, 4.058, 4.091, 4.123, 4.155, 4.186, 4.217, 4.247, 4.278, & 4.308, 4.337, 4.366, 4.395, 4.424, 4.452, 4.480, 4.508, 4.535, & 4.562, 4.589, 4.616, 4.642, 4.668, 4.694, 4.719, 4.745, 4.770, & 4.794, 4.819, 4.843, 4.867, 4.891, 4.915, 4.938, 4.961, 4.984, & 5.007, 5.029, 5.052, 5.074, 5.096, 5.117, 5.139, 5.160, 5.181, & 5.202, 5.223, 5.244, 5.264, 5.285, 5.305, 5.324, 5.344, 5.364, & 5.383, 5.402, 5.422, 5.441, 5.459, 5.478, 5.496, 5.515, 5.533, & 5.551, 5.569, 5.587, 5.604, 5.622, 5.639, 5.656, 5.673, 5.690, & 5.707, 5.724, 5.740, 5.757, 5.773, 5.789, 5.806, 5.821, 5.837, & 5.853, 5.869, 5.884, 5.900, 5.915, 5.930, 5.945, 5.960, 5.975, & 5.990, 6.004, 6.019, 6.033, 6.048, 6.062, 6.076, 6.090, 6.104, & 6.118, 6.132, 6.145, 6.159, 6.172, 6.186, 6.199, 6.212, 6.225, & 6.238, 6.251, 6.264, 6.277, 6.290, 6.302, 6.315, 6.327, 6.340, & 6.352, 6.364, 6.377, 6.389, 6.401, 6.413, 6.424, 6.436, 6.448, & 6.459, 6.471, 6.482 & / C C *** NaHSO4 C DATA BNC12M/ &-0.048,-0.099,-0.122,-0.137,-0.148,-0.156,-0.163,-0.168,-0.172, &-0.175,-0.178,-0.180,-0.182,-0.183,-0.184,-0.184,-0.184,-0.184, &-0.184,-0.183,-0.182,-0.181,-0.180,-0.179,-0.177,-0.176,-0.174, &-0.172,-0.170,-0.167,-0.165,-0.163,-0.160,-0.157,-0.155,-0.152, &-0.149,-0.146,-0.143,-0.139,-0.136,-0.133,-0.129,-0.126,-0.122, &-0.118,-0.115,-0.111,-0.107,-0.103,-0.099,-0.095,-0.091,-0.087, &-0.083,-0.079,-0.075,-0.071,-0.066,-0.062,-0.058,-0.053,-0.049, &-0.044,-0.040,-0.035,-0.031,-0.026,-0.022,-0.017,-0.012,-0.007, &-0.003, 0.002, 0.007, 0.012, 0.017, 0.022, 0.027, 0.032, 0.037, & 0.042, 0.047, 0.052, 0.058, 0.063, 0.068, 0.073, 0.079, 0.084, & 0.090, 0.095, 0.101, 0.106, 0.112, 0.117, 0.123, 0.128, 0.134, & 0.140, 0.146, 0.151, 0.157, 0.163, 0.169, 0.175, 0.180, 0.186, & 0.192, 0.198, 0.204, 0.210, 0.216, 0.222, 0.228, 0.234, 0.240, & 0.246, 0.252, 0.258, 0.264, 0.270, 0.276, 0.282, 0.288, 0.294, & 0.300, 0.306, 0.312, 0.318, 0.323, 0.329, 0.335, 0.341, 0.347, & 0.353, 0.359, 0.365, 0.371, 0.377, 0.383, 0.389, 0.394, 0.400, & 0.406, 0.412, 0.418, 0.424, 0.429, 0.435, 0.441, 0.447, 0.453, & 0.458, 0.464, 0.470, 0.476, 0.481, 0.487, 0.493, 0.498, 0.504, & 0.510, 0.515, 0.521, 0.526, 0.532, 0.538, 0.543, 0.549, 0.554, & 0.560, 0.565, 0.571, 0.576, 0.582, 0.587, 0.593, 0.598, 0.604, & 0.609, 0.615, 0.620, 0.625, 0.631, 0.636, 0.641, 0.647, 0.652, & 0.657, 0.663, 0.668, 0.673, 0.679, 0.684, 0.689, 0.694, 0.700, & 0.705, 0.710, 0.715, 0.720, 0.726, 0.731, 0.736, 0.741, 0.746, & 0.751, 0.756, 0.761, 0.766, 0.772, 0.777, 0.782, 0.787, 0.792, & 0.797, 0.802, 0.807, 0.812, 0.817, 0.822, 0.826, 0.831, 0.836, & 0.841, 0.846, 0.851, 0.856, 0.861, 0.866, 0.870, 0.875, 0.880, & 0.885, 0.890, 0.894, 0.899, 0.904, 0.909, 0.914, 0.918, 0.923, & 0.928, 0.932, 0.937, 0.942, 0.946, 0.951, 0.956, 0.960, 0.965, & 0.970, 0.974, 0.979, 0.984, 0.988, 0.993, 0.997, 1.002, 1.006, & 1.011, 1.015, 1.020, 1.024, 1.029, 1.033, 1.038, 1.042, 1.047, & 1.051, 1.056, 1.060, 1.065, 1.069, 1.073, 1.078, 1.082, 1.087, & 1.091, 1.095, 1.100, 1.104, 1.108, 1.113, 1.117, 1.121, 1.126, & 1.130, 1.134, 1.138, 1.143, 1.147, 1.151, 1.155, 1.160, 1.164, & 1.168, 1.172, 1.177, 1.181, 1.185, 1.189, 1.193, 1.197, 1.202, & 1.206, 1.210, 1.214, 1.218, 1.222, 1.226, 1.230, 1.234, 1.238, & 1.243, 1.247, 1.251, 1.255, 1.259, 1.263, 1.267, 1.271, 1.275, & 1.279, 1.283, 1.287, 1.291, 1.295, 1.299, 1.303, 1.306, 1.310, & 1.314, 1.318, 1.322, 1.326, 1.330, 1.334, 1.338, 1.342, 1.345, & 1.349, 1.353, 1.357, 1.361, 1.365, 1.368, 1.372, 1.376, 1.380, & 1.384, 1.387, 1.391, 1.395, 1.399, 1.403, 1.406, 1.410, 1.414, & 1.418, 1.421, 1.425, 1.429, 1.432, 1.436, 1.440, 1.443, 1.447, & 1.451, 1.454, 1.458, 1.462, 1.465, 1.469, 1.473, 1.476, 1.480, & 1.484, 1.487, 1.491, 1.494, 1.498, 1.501, 1.505, 1.509, 1.512, & 1.516, 1.519, 1.523, 1.526, 1.530, 1.533, 1.537, 1.540, 1.544, & 1.547, 1.551, 1.554, 1.558, 1.595, 1.629, 1.662, 1.695, 1.727, & 1.759, 1.790, 1.820, 1.850, 1.880, 1.909, 1.938, 1.966, 1.994, & 2.022, 2.049, 2.076, 2.102, 2.128, 2.153, 2.179, 2.203, 2.228, & 2.252, 2.276, 2.300, 2.323, 2.346, 2.368, 2.391, 2.413, 2.435, & 2.456, 2.477, 2.498, 2.519, 2.539, 2.560, 2.580, 2.599, 2.619, & 2.638, 2.657, 2.676, 2.695, 2.713, 2.731, 2.749, 2.767, 2.785, & 2.802, 2.819, 2.836, 2.853, 2.870, 2.886, 2.902, 2.918, 2.934, & 2.950, 2.966, 2.981, 2.997, 3.012, 3.027, 3.042, 3.056, 3.071, & 3.085, 3.099, 3.114, 3.128, 3.141, 3.155, 3.169, 3.182, 3.195, & 3.209, 3.222, 3.235, 3.247, 3.260, 3.273, 3.285, 3.298, 3.310, & 3.322, 3.334, 3.346, 3.358, 3.369, 3.381, 3.392, 3.404, 3.415, & 3.426, 3.437, 3.448, 3.459, 3.470, 3.481, 3.491, 3.502, 3.512, & 3.523, 3.533, 3.543, 3.553, 3.563, 3.573, 3.583, 3.593, 3.603, & 3.612, 3.622, 3.631, 3.640, 3.650, 3.659, 3.668, 3.677, 3.686, & 3.695, 3.704, 3.713, 3.721, 3.730, 3.739, 3.747, 3.756, 3.764, & 3.772, 3.781, 3.789, 3.797, 3.805, 3.813, 3.821, 3.829, 3.836, & 3.844, 3.852, 3.860, 3.867, 3.875, 3.882, 3.889, 3.897, 3.904, & 3.911, 3.919, 3.926, 3.933, 3.940, 3.947, 3.954, 3.961, 3.967, & 3.974, 3.981, 3.988 & / C C *** (NH4)3H(SO4)2 C DATA BNC13M/ &-0.080,-0.174,-0.221,-0.254,-0.280,-0.302,-0.321,-0.337,-0.352, &-0.365,-0.377,-0.388,-0.398,-0.408,-0.417,-0.425,-0.433,-0.440, &-0.447,-0.454,-0.461,-0.467,-0.472,-0.478,-0.483,-0.488,-0.493, &-0.498,-0.503,-0.507,-0.511,-0.515,-0.519,-0.523,-0.527,-0.530, &-0.533,-0.537,-0.540,-0.543,-0.546,-0.549,-0.551,-0.554,-0.557, &-0.559,-0.562,-0.564,-0.566,-0.569,-0.571,-0.573,-0.575,-0.577, &-0.579,-0.580,-0.582,-0.584,-0.586,-0.587,-0.589,-0.590,-0.592, &-0.593,-0.595,-0.596,-0.597,-0.599,-0.600,-0.601,-0.602,-0.603, &-0.604,-0.605,-0.607,-0.608,-0.609,-0.609,-0.610,-0.611,-0.612, &-0.613,-0.614,-0.614,-0.615,-0.616,-0.617,-0.617,-0.618,-0.619, &-0.619,-0.620,-0.620,-0.621,-0.621,-0.622,-0.622,-0.623,-0.623, &-0.624,-0.624,-0.624,-0.625,-0.625,-0.626,-0.626,-0.626,-0.626, &-0.627,-0.627,-0.627,-0.628,-0.628,-0.628,-0.628,-0.628,-0.629, &-0.629,-0.629,-0.629,-0.629,-0.629,-0.630,-0.630,-0.630,-0.630, &-0.630,-0.630,-0.630,-0.630,-0.630,-0.631,-0.631,-0.631,-0.631, &-0.631,-0.631,-0.631,-0.631,-0.631,-0.631,-0.631,-0.631,-0.631, &-0.631,-0.631,-0.631,-0.631,-0.631,-0.631,-0.631,-0.632,-0.632, &-0.632,-0.632,-0.632,-0.632,-0.632,-0.632,-0.632,-0.632,-0.632, &-0.632,-0.632,-0.632,-0.632,-0.632,-0.632,-0.632,-0.632,-0.632, &-0.632,-0.632,-0.632,-0.632,-0.632,-0.632,-0.632,-0.632,-0.632, &-0.632,-0.632,-0.632,-0.632,-0.632,-0.632,-0.632,-0.632,-0.632, &-0.632,-0.632,-0.632,-0.632,-0.632,-0.632,-0.632,-0.632,-0.632, &-0.632,-0.632,-0.632,-0.632,-0.632,-0.632,-0.632,-0.632,-0.632, &-0.632,-0.632,-0.632,-0.632,-0.632,-0.632,-0.632,-0.632,-0.632, &-0.632,-0.632,-0.632,-0.632,-0.632,-0.632,-0.632,-0.632,-0.632, &-0.632,-0.632,-0.632,-0.632,-0.632,-0.632,-0.632,-0.632,-0.632, &-0.632,-0.632,-0.632,-0.632,-0.632,-0.632,-0.632,-0.632,-0.632, &-0.632,-0.632,-0.632,-0.632,-0.632,-0.632,-0.632,-0.633,-0.633, &-0.633,-0.633,-0.633,-0.633,-0.633,-0.633,-0.633,-0.633,-0.633, &-0.633,-0.633,-0.633,-0.633,-0.633,-0.633,-0.633,-0.633,-0.633, &-0.633,-0.633,-0.633,-0.633,-0.634,-0.634,-0.634,-0.634,-0.634, &-0.634,-0.634,-0.634,-0.634,-0.634,-0.634,-0.634,-0.634,-0.634, &-0.634,-0.634,-0.634,-0.634,-0.635,-0.635,-0.635,-0.635,-0.635, &-0.635,-0.635,-0.635,-0.635,-0.635,-0.635,-0.635,-0.635,-0.635, &-0.636,-0.636,-0.636,-0.636,-0.636,-0.636,-0.636,-0.636,-0.636, &-0.636,-0.636,-0.636,-0.637,-0.637,-0.637,-0.637,-0.637,-0.637, &-0.637,-0.637,-0.637,-0.637,-0.637,-0.638,-0.638,-0.638,-0.638, &-0.638,-0.638,-0.638,-0.638,-0.638,-0.638,-0.639,-0.639,-0.639, &-0.639,-0.639,-0.639,-0.639,-0.639,-0.639,-0.639,-0.640,-0.640, &-0.640,-0.640,-0.640,-0.640,-0.640,-0.640,-0.640,-0.641,-0.641, &-0.641,-0.641,-0.641,-0.641,-0.641,-0.641,-0.642,-0.642,-0.642, &-0.642,-0.642,-0.642,-0.642,-0.642,-0.643,-0.643,-0.643,-0.643, &-0.643,-0.643,-0.643,-0.643,-0.644,-0.644,-0.644,-0.644,-0.644, &-0.644,-0.644,-0.645,-0.645,-0.645,-0.645,-0.645,-0.645,-0.645, &-0.646,-0.646,-0.646,-0.646,-0.648,-0.649,-0.651,-0.652,-0.654, &-0.656,-0.658,-0.660,-0.662,-0.664,-0.666,-0.668,-0.670,-0.673, &-0.675,-0.677,-0.680,-0.682,-0.685,-0.687,-0.690,-0.693,-0.695, &-0.698,-0.701,-0.704,-0.707,-0.709,-0.712,-0.715,-0.718,-0.722, &-0.725,-0.728,-0.731,-0.734,-0.737,-0.741,-0.744,-0.747,-0.751, &-0.754,-0.758,-0.761,-0.764,-0.768,-0.772,-0.775,-0.779,-0.782, &-0.786,-0.790,-0.793,-0.797,-0.801,-0.805,-0.809,-0.812,-0.816, &-0.820,-0.824,-0.828,-0.832,-0.836,-0.840,-0.844,-0.848,-0.852, &-0.856,-0.860,-0.864,-0.868,-0.873,-0.877,-0.881,-0.885,-0.889, &-0.894,-0.898,-0.902,-0.906,-0.911,-0.915,-0.919,-0.924,-0.928, &-0.932,-0.937,-0.941,-0.946,-0.950,-0.955,-0.959,-0.964,-0.968, &-0.973,-0.977,-0.982,-0.986,-0.991,-0.995,-1.000,-1.005,-1.009, &-1.014,-1.019,-1.023,-1.028,-1.033,-1.037,-1.042,-1.047,-1.051, &-1.056,-1.061,-1.066,-1.071,-1.075,-1.080,-1.085,-1.090,-1.095, &-1.099,-1.104,-1.109,-1.114,-1.119,-1.124,-1.129,-1.134,-1.138, &-1.143,-1.148,-1.153,-1.158,-1.163,-1.168,-1.173,-1.178,-1.183, &-1.188,-1.193,-1.198,-1.203,-1.208,-1.213,-1.218,-1.223,-1.228, &-1.233,-1.238,-1.244,-1.249,-1.254,-1.259,-1.264,-1.269,-1.274, &-1.279,-1.284,-1.290 & / C C *** CASO4 C DATA BNC14M/ & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000 & / C C *** CANO32 C DATA BNC15M/ &-0.099,-0.211,-0.264,-0.301,-0.329,-0.351,-0.370,-0.386,-0.399, &-0.411,-0.422,-0.432,-0.440,-0.448,-0.455,-0.462,-0.468,-0.473, &-0.478,-0.483,-0.487,-0.491,-0.495,-0.499,-0.502,-0.505,-0.508, &-0.511,-0.513,-0.516,-0.518,-0.520,-0.522,-0.524,-0.526,-0.528, &-0.529,-0.531,-0.532,-0.534,-0.535,-0.536,-0.537,-0.539,-0.540, &-0.541,-0.542,-0.543,-0.544,-0.545,-0.545,-0.546,-0.547,-0.548, &-0.549,-0.549,-0.550,-0.551,-0.551,-0.552,-0.552,-0.553,-0.553, &-0.554,-0.554,-0.555,-0.555,-0.556,-0.556,-0.556,-0.557,-0.557, &-0.557,-0.558,-0.558,-0.558,-0.558,-0.559,-0.559,-0.559,-0.559, &-0.559,-0.559,-0.559,-0.559,-0.559,-0.559,-0.559,-0.559,-0.559, &-0.559,-0.559,-0.559,-0.559,-0.558,-0.558,-0.558,-0.558,-0.557, &-0.557,-0.557,-0.556,-0.556,-0.556,-0.555,-0.555,-0.555,-0.554, &-0.554,-0.553,-0.553,-0.552,-0.552,-0.551,-0.551,-0.550,-0.550, &-0.549,-0.549,-0.548,-0.548,-0.547,-0.547,-0.546,-0.545,-0.545, &-0.544,-0.544,-0.543,-0.542,-0.542,-0.541,-0.541,-0.540,-0.539, &-0.539,-0.538,-0.538,-0.537,-0.536,-0.536,-0.535,-0.534,-0.534, &-0.533,-0.533,-0.532,-0.531,-0.531,-0.530,-0.529,-0.529,-0.528, &-0.527,-0.527,-0.526,-0.525,-0.525,-0.524,-0.524,-0.523,-0.522, &-0.522,-0.521,-0.520,-0.520,-0.519,-0.518,-0.518,-0.517,-0.516, &-0.516,-0.515,-0.514,-0.514,-0.513,-0.513,-0.512,-0.511,-0.511, &-0.510,-0.509,-0.509,-0.508,-0.507,-0.507,-0.506,-0.505,-0.505, &-0.504,-0.504,-0.503,-0.502,-0.502,-0.501,-0.500,-0.500,-0.499, &-0.499,-0.498,-0.497,-0.497,-0.496,-0.495,-0.495,-0.494,-0.494, &-0.493,-0.492,-0.492,-0.491,-0.490,-0.490,-0.489,-0.489,-0.488, &-0.487,-0.487,-0.486,-0.486,-0.485,-0.484,-0.484,-0.483,-0.483, &-0.482,-0.481,-0.481,-0.480,-0.480,-0.479,-0.478,-0.478,-0.477, &-0.477,-0.476,-0.475,-0.475,-0.474,-0.474,-0.473,-0.473,-0.472, &-0.471,-0.471,-0.470,-0.470,-0.469,-0.469,-0.468,-0.468,-0.467, &-0.466,-0.466,-0.465,-0.465,-0.464,-0.464,-0.463,-0.463,-0.462, &-0.461,-0.461,-0.460,-0.460,-0.459,-0.459,-0.458,-0.458,-0.457, &-0.457,-0.456,-0.456,-0.455,-0.455,-0.454,-0.453,-0.453,-0.452, &-0.452,-0.451,-0.451,-0.450,-0.450,-0.449,-0.449,-0.448,-0.448, &-0.447,-0.447,-0.446,-0.446,-0.445,-0.445,-0.444,-0.444,-0.443, &-0.443,-0.442,-0.442,-0.441,-0.441,-0.440,-0.440,-0.440,-0.439, &-0.439,-0.438,-0.438,-0.437,-0.437,-0.436,-0.436,-0.435,-0.435, &-0.434,-0.434,-0.433,-0.433,-0.433,-0.432,-0.432,-0.431,-0.431, &-0.430,-0.430,-0.429,-0.429,-0.429,-0.428,-0.428,-0.427,-0.427, &-0.426,-0.426,-0.426,-0.425,-0.425,-0.424,-0.424,-0.423,-0.423, &-0.423,-0.422,-0.422,-0.421,-0.421,-0.421,-0.420,-0.420,-0.419, &-0.419,-0.419,-0.418,-0.418,-0.417,-0.417,-0.417,-0.416,-0.416, &-0.415,-0.415,-0.415,-0.414,-0.414,-0.413,-0.413,-0.413,-0.412, &-0.412,-0.412,-0.411,-0.411,-0.410,-0.410,-0.410,-0.409,-0.409, &-0.409,-0.408,-0.408,-0.408,-0.407,-0.407,-0.407,-0.406,-0.406, &-0.405,-0.405,-0.405,-0.404,-0.404,-0.404,-0.403,-0.403,-0.403, &-0.402,-0.402,-0.402,-0.401,-0.398,-0.395,-0.392,-0.389,-0.386, &-0.384,-0.381,-0.379,-0.377,-0.375,-0.373,-0.371,-0.369,-0.368, &-0.366,-0.365,-0.364,-0.363,-0.362,-0.361,-0.360,-0.359,-0.358, &-0.358,-0.357,-0.357,-0.357,-0.356,-0.356,-0.356,-0.356,-0.356, &-0.356,-0.357,-0.357,-0.357,-0.358,-0.358,-0.359,-0.360,-0.361, &-0.361,-0.362,-0.363,-0.364,-0.365,-0.367,-0.368,-0.369,-0.370, &-0.372,-0.373,-0.375,-0.376,-0.378,-0.380,-0.381,-0.383,-0.385, &-0.387,-0.389,-0.391,-0.393,-0.395,-0.397,-0.399,-0.401,-0.404, &-0.406,-0.408,-0.411,-0.413,-0.416,-0.418,-0.421,-0.423,-0.426, &-0.429,-0.431,-0.434,-0.437,-0.440,-0.442,-0.445,-0.448,-0.451, &-0.454,-0.457,-0.460,-0.463,-0.467,-0.470,-0.473,-0.476,-0.480, &-0.483,-0.486,-0.490,-0.493,-0.496,-0.500,-0.503,-0.507,-0.510, &-0.514,-0.517,-0.521,-0.525,-0.528,-0.532,-0.536,-0.540,-0.543, &-0.547,-0.551,-0.555,-0.559,-0.563,-0.566,-0.570,-0.574,-0.578, &-0.582,-0.586,-0.590,-0.595,-0.599,-0.603,-0.607,-0.611,-0.615, &-0.619,-0.624,-0.628,-0.632,-0.637,-0.641,-0.645,-0.650,-0.654, &-0.658,-0.663,-0.667,-0.672,-0.676,-0.680,-0.685,-0.689,-0.694, &-0.699,-0.703,-0.708,-0.712,-0.717,-0.722,-0.726,-0.731,-0.736, &-0.740,-0.745,-0.750 & / C C *** CACL2 C DATA BNC16M/ &-0.097,-0.201,-0.247,-0.277,-0.298,-0.314,-0.327,-0.337,-0.345, &-0.351,-0.356,-0.359,-0.362,-0.365,-0.366,-0.367,-0.367,-0.367, &-0.367,-0.366,-0.365,-0.364,-0.362,-0.361,-0.359,-0.356,-0.354, &-0.352,-0.349,-0.346,-0.343,-0.340,-0.337,-0.334,-0.331,-0.328, &-0.324,-0.321,-0.317,-0.314,-0.310,-0.307,-0.303,-0.300,-0.296, &-0.292,-0.289,-0.285,-0.281,-0.277,-0.274,-0.270,-0.266,-0.262, &-0.259,-0.255,-0.251,-0.247,-0.244,-0.240,-0.236,-0.232,-0.228, &-0.224,-0.221,-0.217,-0.213,-0.209,-0.205,-0.201,-0.197,-0.193, &-0.189,-0.185,-0.181,-0.177,-0.173,-0.169,-0.165,-0.161,-0.157, &-0.152,-0.148,-0.144,-0.139,-0.135,-0.131,-0.126,-0.122,-0.117, &-0.113,-0.108,-0.104,-0.099,-0.095,-0.090,-0.085,-0.080,-0.076, &-0.071,-0.066,-0.061,-0.056,-0.051,-0.047,-0.042,-0.037,-0.032, &-0.027,-0.022,-0.017,-0.012,-0.006,-0.001, 0.004, 0.009, 0.014, & 0.019, 0.024, 0.029, 0.034, 0.040, 0.045, 0.050, 0.055, 0.060, & 0.065, 0.071, 0.076, 0.081, 0.086, 0.091, 0.096, 0.102, 0.107, & 0.112, 0.117, 0.122, 0.127, 0.133, 0.138, 0.143, 0.148, 0.153, & 0.158, 0.163, 0.168, 0.174, 0.179, 0.184, 0.189, 0.194, 0.199, & 0.204, 0.209, 0.214, 0.219, 0.224, 0.229, 0.234, 0.239, 0.244, & 0.249, 0.254, 0.259, 0.264, 0.269, 0.274, 0.279, 0.284, 0.289, & 0.294, 0.299, 0.304, 0.309, 0.314, 0.319, 0.324, 0.329, 0.334, & 0.338, 0.343, 0.348, 0.353, 0.358, 0.363, 0.368, 0.372, 0.377, & 0.382, 0.387, 0.392, 0.396, 0.401, 0.406, 0.411, 0.415, 0.420, & 0.425, 0.430, 0.434, 0.439, 0.444, 0.449, 0.453, 0.458, 0.463, & 0.467, 0.472, 0.477, 0.481, 0.486, 0.491, 0.495, 0.500, 0.504, & 0.509, 0.514, 0.518, 0.523, 0.527, 0.532, 0.536, 0.541, 0.545, & 0.550, 0.555, 0.559, 0.564, 0.568, 0.573, 0.577, 0.581, 0.586, & 0.590, 0.595, 0.599, 0.604, 0.608, 0.613, 0.617, 0.621, 0.626, & 0.630, 0.635, 0.639, 0.643, 0.648, 0.652, 0.656, 0.661, 0.665, & 0.669, 0.674, 0.678, 0.682, 0.686, 0.691, 0.695, 0.699, 0.703, & 0.708, 0.712, 0.716, 0.720, 0.725, 0.729, 0.733, 0.737, 0.741, & 0.746, 0.750, 0.754, 0.758, 0.762, 0.766, 0.770, 0.775, 0.779, & 0.783, 0.787, 0.791, 0.795, 0.799, 0.803, 0.807, 0.811, 0.815, & 0.819, 0.823, 0.827, 0.831, 0.835, 0.839, 0.843, 0.847, 0.851, & 0.855, 0.859, 0.863, 0.867, 0.871, 0.875, 0.879, 0.883, 0.887, & 0.891, 0.895, 0.899, 0.902, 0.906, 0.910, 0.914, 0.918, 0.922, & 0.926, 0.929, 0.933, 0.937, 0.941, 0.945, 0.949, 0.952, 0.956, & 0.960, 0.964, 0.967, 0.971, 0.975, 0.979, 0.982, 0.986, 0.990, & 0.994, 0.997, 1.001, 1.005, 1.008, 1.012, 1.016, 1.019, 1.023, & 1.027, 1.030, 1.034, 1.038, 1.041, 1.045, 1.049, 1.052, 1.056, & 1.059, 1.063, 1.067, 1.070, 1.074, 1.077, 1.081, 1.084, 1.088, & 1.091, 1.095, 1.098, 1.102, 1.106, 1.109, 1.113, 1.116, 1.119, & 1.123, 1.126, 1.130, 1.133, 1.137, 1.140, 1.144, 1.147, 1.151, & 1.154, 1.157, 1.161, 1.164, 1.168, 1.171, 1.174, 1.178, 1.181, & 1.185, 1.188, 1.191, 1.195, 1.198, 1.201, 1.205, 1.208, 1.211, & 1.215, 1.218, 1.221, 1.225, 1.260, 1.292, 1.323, 1.354, 1.385, & 1.415, 1.444, 1.473, 1.501, 1.529, 1.557, 1.584, 1.610, 1.636, & 1.662, 1.687, 1.712, 1.737, 1.761, 1.784, 1.808, 1.831, 1.853, & 1.876, 1.898, 1.919, 1.940, 1.961, 1.982, 2.002, 2.022, 2.042, & 2.062, 2.081, 2.100, 2.118, 2.137, 2.155, 2.172, 2.190, 2.207, & 2.224, 2.241, 2.258, 2.274, 2.290, 2.306, 2.322, 2.337, 2.353, & 2.368, 2.382, 2.397, 2.412, 2.426, 2.440, 2.454, 2.467, 2.481, & 2.494, 2.507, 2.520, 2.533, 2.546, 2.558, 2.571, 2.583, 2.595, & 2.606, 2.618, 2.630, 2.641, 2.652, 2.663, 2.674, 2.685, 2.696, & 2.706, 2.717, 2.727, 2.737, 2.747, 2.757, 2.767, 2.776, 2.786, & 2.795, 2.804, 2.813, 2.822, 2.831, 2.840, 2.849, 2.857, 2.866, & 2.874, 2.882, 2.891, 2.899, 2.907, 2.914, 2.922, 2.930, 2.937, & 2.945, 2.952, 2.959, 2.966, 2.973, 2.980, 2.987, 2.994, 3.001, & 3.007, 3.014, 3.020, 3.027, 3.033, 3.039, 3.045, 3.051, 3.057, & 3.063, 3.069, 3.075, 3.081, 3.086, 3.092, 3.097, 3.102, 3.108, & 3.113, 3.118, 3.123, 3.128, 3.133, 3.138, 3.143, 3.147, 3.152, & 3.157, 3.161, 3.166, 3.170, 3.175, 3.179, 3.183, 3.187, 3.191, & 3.195, 3.199, 3.203, 3.207, 3.211, 3.215, 3.219, 3.222, 3.226, & 3.229, 3.233, 3.236 & / C C *** K2SO4 C DATA BNC17M/ &-0.101,-0.220,-0.281,-0.324,-0.358,-0.387,-0.412,-0.434,-0.453, &-0.471,-0.487,-0.503,-0.517,-0.530,-0.543,-0.555,-0.566,-0.577, &-0.587,-0.597,-0.606,-0.615,-0.624,-0.632,-0.641,-0.649,-0.656, &-0.664,-0.671,-0.678,-0.685,-0.692,-0.698,-0.705,-0.711,-0.717, &-0.723,-0.729,-0.735,-0.740,-0.746,-0.752,-0.757,-0.762,-0.767, &-0.772,-0.777,-0.782,-0.787,-0.792,-0.797,-0.801,-0.806,-0.810, &-0.815,-0.819,-0.824,-0.828,-0.832,-0.836,-0.840,-0.844,-0.848, &-0.852,-0.856,-0.860,-0.864,-0.868,-0.872,-0.876,-0.879,-0.883, &-0.887,-0.890,-0.894,-0.897,-0.901,-0.904,-0.908,-0.911,-0.915, &-0.918,-0.922,-0.925,-0.928,-0.932,-0.935,-0.938,-0.942,-0.945, &-0.948,-0.951,-0.954,-0.958,-0.961,-0.964,-0.967,-0.970,-0.973, &-0.976,-0.979,-0.982,-0.985,-0.988,-0.991,-0.994,-0.997,-1.000, &-1.003,-1.006,-1.009,-1.012,-1.015,-1.018,-1.021,-1.024,-1.026, &-1.029,-1.032,-1.035,-1.038,-1.040,-1.043,-1.046,-1.049,-1.051, &-1.054,-1.057,-1.060,-1.062,-1.065,-1.068,-1.070,-1.073,-1.076, &-1.078,-1.081,-1.083,-1.086,-1.089,-1.091,-1.094,-1.096,-1.099, &-1.102,-1.104,-1.107,-1.109,-1.112,-1.114,-1.117,-1.119,-1.122, &-1.124,-1.127,-1.129,-1.131,-1.134,-1.136,-1.139,-1.141,-1.144, &-1.146,-1.148,-1.151,-1.153,-1.155,-1.158,-1.160,-1.163,-1.165, &-1.167,-1.170,-1.172,-1.174,-1.177,-1.179,-1.181,-1.183,-1.186, &-1.188,-1.190,-1.193,-1.195,-1.197,-1.199,-1.202,-1.204,-1.206, &-1.208,-1.210,-1.213,-1.215,-1.217,-1.219,-1.221,-1.224,-1.226, &-1.228,-1.230,-1.232,-1.235,-1.237,-1.239,-1.241,-1.243,-1.245, &-1.247,-1.250,-1.252,-1.254,-1.256,-1.258,-1.260,-1.262,-1.264, &-1.266,-1.269,-1.271,-1.273,-1.275,-1.277,-1.279,-1.281,-1.283, &-1.285,-1.287,-1.289,-1.291,-1.293,-1.295,-1.297,-1.299,-1.301, &-1.303,-1.305,-1.307,-1.309,-1.311,-1.313,-1.315,-1.317,-1.319, &-1.321,-1.323,-1.325,-1.327,-1.329,-1.331,-1.333,-1.335,-1.337, &-1.339,-1.341,-1.343,-1.345,-1.347,-1.349,-1.351,-1.353,-1.355, &-1.357,-1.358,-1.360,-1.362,-1.364,-1.366,-1.368,-1.370,-1.372, &-1.374,-1.376,-1.377,-1.379,-1.381,-1.383,-1.385,-1.387,-1.389, &-1.391,-1.392,-1.394,-1.396,-1.398,-1.400,-1.402,-1.404,-1.405, &-1.407,-1.409,-1.411,-1.413,-1.415,-1.417,-1.418,-1.420,-1.422, &-1.424,-1.426,-1.427,-1.429,-1.431,-1.433,-1.435,-1.437,-1.438, &-1.440,-1.442,-1.444,-1.445,-1.447,-1.449,-1.451,-1.453,-1.454, &-1.456,-1.458,-1.460,-1.462,-1.463,-1.465,-1.467,-1.469,-1.470, &-1.472,-1.474,-1.476,-1.477,-1.479,-1.481,-1.483,-1.484,-1.486, &-1.488,-1.490,-1.491,-1.493,-1.495,-1.496,-1.498,-1.500,-1.502, &-1.503,-1.505,-1.507,-1.509,-1.510,-1.512,-1.514,-1.515,-1.517, &-1.519,-1.520,-1.522,-1.524,-1.526,-1.527,-1.529,-1.531,-1.532, &-1.534,-1.536,-1.537,-1.539,-1.541,-1.542,-1.544,-1.546,-1.547, &-1.549,-1.551,-1.552,-1.554,-1.556,-1.557,-1.559,-1.561,-1.562, &-1.564,-1.566,-1.567,-1.569,-1.571,-1.572,-1.574,-1.576,-1.577, &-1.579,-1.580,-1.582,-1.584,-1.585,-1.587,-1.589,-1.590,-1.592, &-1.594,-1.595,-1.597,-1.598,-1.616,-1.632,-1.648,-1.663,-1.679, &-1.694,-1.710,-1.725,-1.740,-1.755,-1.770,-1.785,-1.799,-1.814, &-1.828,-1.843,-1.857,-1.871,-1.885,-1.900,-1.914,-1.928,-1.941, &-1.955,-1.969,-1.983,-1.996,-2.010,-2.023,-2.037,-2.050,-2.063, &-2.077,-2.090,-2.103,-2.116,-2.129,-2.142,-2.155,-2.168,-2.181, &-2.194,-2.206,-2.219,-2.232,-2.244,-2.257,-2.269,-2.282,-2.294, &-2.307,-2.319,-2.332,-2.344,-2.356,-2.369,-2.381,-2.393,-2.405, &-2.417,-2.429,-2.441,-2.454,-2.466,-2.478,-2.489,-2.501,-2.513, &-2.525,-2.537,-2.549,-2.561,-2.572,-2.584,-2.596,-2.608,-2.619, &-2.631,-2.642,-2.654,-2.666,-2.677,-2.689,-2.700,-2.712,-2.723, &-2.735,-2.746,-2.757,-2.769,-2.780,-2.792,-2.803,-2.814,-2.825, &-2.837,-2.848,-2.859,-2.870,-2.882,-2.893,-2.904,-2.915,-2.926, &-2.937,-2.948,-2.959,-2.971,-2.982,-2.993,-3.004,-3.015,-3.026, &-3.037,-3.048,-3.058,-3.069,-3.080,-3.091,-3.102,-3.113,-3.124, &-3.135,-3.145,-3.156,-3.167,-3.178,-3.189,-3.199,-3.210,-3.221, &-3.232,-3.242,-3.253,-3.264,-3.274,-3.285,-3.296,-3.306,-3.317, &-3.327,-3.338,-3.349,-3.359,-3.370,-3.380,-3.391,-3.401,-3.412, &-3.422,-3.433,-3.443,-3.454,-3.464,-3.475,-3.485,-3.496,-3.506, &-3.517,-3.527,-3.537 & / C C *** KHSO4 C DATA BNC18M/ &-0.049,-0.104,-0.130,-0.148,-0.162,-0.173,-0.182,-0.190,-0.197, &-0.203,-0.208,-0.213,-0.217,-0.221,-0.224,-0.227,-0.230,-0.232, &-0.234,-0.236,-0.238,-0.239,-0.240,-0.241,-0.242,-0.243,-0.243, &-0.244,-0.244,-0.244,-0.244,-0.244,-0.243,-0.243,-0.242,-0.242, &-0.241,-0.240,-0.239,-0.238,-0.237,-0.236,-0.235,-0.233,-0.232, &-0.230,-0.229,-0.227,-0.225,-0.223,-0.222,-0.220,-0.218,-0.216, &-0.214,-0.211,-0.209,-0.207,-0.205,-0.202,-0.200,-0.197,-0.195, &-0.192,-0.190,-0.187,-0.185,-0.182,-0.179,-0.176,-0.174,-0.171, &-0.168,-0.165,-0.162,-0.159,-0.156,-0.153,-0.150,-0.147,-0.143, &-0.140,-0.137,-0.134,-0.131,-0.127,-0.124,-0.120,-0.117,-0.114, &-0.110,-0.107,-0.103,-0.100,-0.096,-0.092,-0.089,-0.085,-0.081, &-0.078,-0.074,-0.070,-0.066,-0.063,-0.059,-0.055,-0.051,-0.047, &-0.043,-0.040,-0.036,-0.032,-0.028,-0.024,-0.020,-0.016,-0.012, &-0.008,-0.004, 0.000, 0.004, 0.008, 0.012, 0.015, 0.019, 0.023, & 0.027, 0.031, 0.035, 0.039, 0.043, 0.047, 0.051, 0.055, 0.059, & 0.063, 0.067, 0.071, 0.075, 0.078, 0.082, 0.086, 0.090, 0.094, & 0.098, 0.102, 0.106, 0.109, 0.113, 0.117, 0.121, 0.125, 0.128, & 0.132, 0.136, 0.140, 0.144, 0.147, 0.151, 0.155, 0.159, 0.162, & 0.166, 0.170, 0.173, 0.177, 0.181, 0.184, 0.188, 0.192, 0.195, & 0.199, 0.203, 0.206, 0.210, 0.213, 0.217, 0.221, 0.224, 0.228, & 0.231, 0.235, 0.238, 0.242, 0.245, 0.249, 0.252, 0.256, 0.259, & 0.263, 0.266, 0.270, 0.273, 0.277, 0.280, 0.284, 0.287, 0.290, & 0.294, 0.297, 0.301, 0.304, 0.307, 0.311, 0.314, 0.317, 0.321, & 0.324, 0.327, 0.331, 0.334, 0.337, 0.340, 0.344, 0.347, 0.350, & 0.353, 0.357, 0.360, 0.363, 0.366, 0.369, 0.373, 0.376, 0.379, & 0.382, 0.385, 0.389, 0.392, 0.395, 0.398, 0.401, 0.404, 0.407, & 0.410, 0.413, 0.417, 0.420, 0.423, 0.426, 0.429, 0.432, 0.435, & 0.438, 0.441, 0.444, 0.447, 0.450, 0.453, 0.456, 0.459, 0.462, & 0.465, 0.468, 0.471, 0.474, 0.477, 0.480, 0.482, 0.485, 0.488, & 0.491, 0.494, 0.497, 0.500, 0.503, 0.506, 0.508, 0.511, 0.514, & 0.517, 0.520, 0.523, 0.525, 0.528, 0.531, 0.534, 0.537, 0.539, & 0.542, 0.545, 0.548, 0.551, 0.553, 0.556, 0.559, 0.562, 0.564, & 0.567, 0.570, 0.572, 0.575, 0.578, 0.581, 0.583, 0.586, 0.589, & 0.591, 0.594, 0.597, 0.599, 0.602, 0.604, 0.607, 0.610, 0.612, & 0.615, 0.618, 0.620, 0.623, 0.625, 0.628, 0.631, 0.633, 0.636, & 0.638, 0.641, 0.643, 0.646, 0.648, 0.651, 0.654, 0.656, 0.659, & 0.661, 0.664, 0.666, 0.669, 0.671, 0.674, 0.676, 0.679, 0.681, & 0.684, 0.686, 0.688, 0.691, 0.693, 0.696, 0.698, 0.701, 0.703, & 0.706, 0.708, 0.710, 0.713, 0.715, 0.718, 0.720, 0.722, 0.725, & 0.727, 0.729, 0.732, 0.734, 0.737, 0.739, 0.741, 0.744, 0.746, & 0.748, 0.751, 0.753, 0.755, 0.758, 0.760, 0.762, 0.764, 0.767, & 0.769, 0.771, 0.774, 0.776, 0.778, 0.780, 0.783, 0.785, 0.787, & 0.789, 0.792, 0.794, 0.796, 0.798, 0.801, 0.803, 0.805, 0.807, & 0.810, 0.812, 0.814, 0.816, 0.818, 0.821, 0.823, 0.825, 0.827, & 0.829, 0.831, 0.834, 0.836, 0.859, 0.880, 0.900, 0.921, 0.940, & 0.960, 0.979, 0.998, 1.016, 1.034, 1.052, 1.070, 1.087, 1.104, & 1.121, 1.137, 1.154, 1.169, 1.185, 1.201, 1.216, 1.231, 1.246, & 1.260, 1.274, 1.289, 1.302, 1.316, 1.330, 1.343, 1.356, 1.369, & 1.382, 1.394, 1.407, 1.419, 1.431, 1.443, 1.455, 1.466, 1.478, & 1.489, 1.500, 1.511, 1.522, 1.533, 1.543, 1.554, 1.564, 1.574, & 1.584, 1.594, 1.604, 1.614, 1.623, 1.633, 1.642, 1.651, 1.660, & 1.670, 1.678, 1.687, 1.696, 1.704, 1.713, 1.721, 1.730, 1.738, & 1.746, 1.754, 1.762, 1.770, 1.777, 1.785, 1.793, 1.800, 1.807, & 1.815, 1.822, 1.829, 1.836, 1.843, 1.850, 1.857, 1.864, 1.870, & 1.877, 1.883, 1.890, 1.896, 1.903, 1.909, 1.915, 1.921, 1.927, & 1.933, 1.939, 1.945, 1.951, 1.957, 1.962, 1.968, 1.973, 1.979, & 1.984, 1.990, 1.995, 2.000, 2.006, 2.011, 2.016, 2.021, 2.026, & 2.031, 2.036, 2.041, 2.045, 2.050, 2.055, 2.059, 2.064, 2.069, & 2.073, 2.078, 2.082, 2.086, 2.091, 2.095, 2.099, 2.103, 2.108, & 2.112, 2.116, 2.120, 2.124, 2.128, 2.132, 2.135, 2.139, 2.143, & 2.147, 2.150, 2.154, 2.158, 2.161, 2.165, 2.168, 2.172, 2.175, & 2.179, 2.182, 2.185, 2.189, 2.192, 2.195, 2.198, 2.201, 2.205, & 2.208, 2.211, 2.214 & / C C *** KNO3 C DATA BNC19M/ &-0.052,-0.120,-0.158,-0.187,-0.211,-0.232,-0.251,-0.269,-0.285, &-0.300,-0.315,-0.329,-0.342,-0.354,-0.367,-0.378,-0.390,-0.401, &-0.412,-0.422,-0.432,-0.443,-0.452,-0.462,-0.471,-0.481,-0.490, &-0.498,-0.507,-0.516,-0.524,-0.532,-0.540,-0.548,-0.556,-0.564, &-0.572,-0.579,-0.587,-0.594,-0.601,-0.608,-0.615,-0.622,-0.629, &-0.636,-0.642,-0.649,-0.655,-0.661,-0.668,-0.674,-0.680,-0.686, &-0.692,-0.698,-0.704,-0.710,-0.715,-0.721,-0.727,-0.732,-0.738, &-0.743,-0.749,-0.754,-0.759,-0.765,-0.770,-0.775,-0.780,-0.785, &-0.790,-0.796,-0.801,-0.806,-0.811,-0.816,-0.820,-0.825,-0.830, &-0.835,-0.840,-0.845,-0.850,-0.854,-0.859,-0.864,-0.869,-0.873, &-0.878,-0.883,-0.888,-0.892,-0.897,-0.902,-0.906,-0.911,-0.916, &-0.920,-0.925,-0.929,-0.934,-0.938,-0.943,-0.948,-0.952,-0.957, &-0.961,-0.966,-0.970,-0.974,-0.979,-0.983,-0.988,-0.992,-0.996, &-1.001,-1.005,-1.009,-1.014,-1.018,-1.022,-1.026,-1.031,-1.035, &-1.039,-1.043,-1.047,-1.052,-1.056,-1.060,-1.064,-1.068,-1.072, &-1.076,-1.080,-1.084,-1.088,-1.092,-1.096,-1.100,-1.104,-1.108, &-1.112,-1.115,-1.119,-1.123,-1.127,-1.131,-1.134,-1.138,-1.142, &-1.146,-1.149,-1.153,-1.157,-1.160,-1.164,-1.168,-1.171,-1.175, &-1.178,-1.182,-1.185,-1.189,-1.192,-1.196,-1.199,-1.203,-1.206, &-1.210,-1.213,-1.217,-1.220,-1.223,-1.227,-1.230,-1.234,-1.237, &-1.240,-1.243,-1.247,-1.250,-1.253,-1.257,-1.260,-1.263,-1.266, &-1.269,-1.273,-1.276,-1.279,-1.282,-1.285,-1.288,-1.291,-1.295, &-1.298,-1.301,-1.304,-1.307,-1.310,-1.313,-1.316,-1.319,-1.322, &-1.325,-1.328,-1.331,-1.334,-1.337,-1.340,-1.342,-1.345,-1.348, &-1.351,-1.354,-1.357,-1.360,-1.362,-1.365,-1.368,-1.371,-1.374, &-1.376,-1.379,-1.382,-1.385,-1.387,-1.390,-1.393,-1.396,-1.398, &-1.401,-1.404,-1.406,-1.409,-1.412,-1.414,-1.417,-1.420,-1.422, &-1.425,-1.427,-1.430,-1.432,-1.435,-1.438,-1.440,-1.443,-1.445, &-1.448,-1.450,-1.453,-1.455,-1.458,-1.460,-1.463,-1.465,-1.468, &-1.470,-1.472,-1.475,-1.477,-1.480,-1.482,-1.484,-1.487,-1.489, &-1.492,-1.494,-1.496,-1.499,-1.501,-1.503,-1.506,-1.508,-1.510, &-1.512,-1.515,-1.517,-1.519,-1.522,-1.524,-1.526,-1.528,-1.531, &-1.533,-1.535,-1.537,-1.539,-1.542,-1.544,-1.546,-1.548,-1.550, &-1.552,-1.555,-1.557,-1.559,-1.561,-1.563,-1.565,-1.567,-1.569, &-1.572,-1.574,-1.576,-1.578,-1.580,-1.582,-1.584,-1.586,-1.588, &-1.590,-1.592,-1.594,-1.596,-1.598,-1.600,-1.602,-1.604,-1.606, &-1.608,-1.610,-1.612,-1.614,-1.616,-1.618,-1.620,-1.622,-1.624, &-1.626,-1.628,-1.630,-1.632,-1.633,-1.635,-1.637,-1.639,-1.641, &-1.643,-1.645,-1.647,-1.648,-1.650,-1.652,-1.654,-1.656,-1.658, &-1.660,-1.661,-1.663,-1.665,-1.667,-1.669,-1.670,-1.672,-1.674, &-1.676,-1.678,-1.679,-1.681,-1.683,-1.685,-1.686,-1.688,-1.690, &-1.692,-1.693,-1.695,-1.697,-1.698,-1.700,-1.702,-1.704,-1.705, &-1.707,-1.709,-1.710,-1.712,-1.714,-1.715,-1.717,-1.719,-1.720, &-1.722,-1.724,-1.725,-1.727,-1.729,-1.730,-1.732,-1.733,-1.735, &-1.737,-1.738,-1.740,-1.741,-1.758,-1.774,-1.789,-1.803,-1.817, &-1.831,-1.845,-1.858,-1.871,-1.884,-1.896,-1.908,-1.920,-1.932, &-1.943,-1.954,-1.965,-1.976,-1.987,-1.997,-2.008,-2.018,-2.028, &-2.037,-2.047,-2.056,-2.066,-2.075,-2.084,-2.093,-2.102,-2.111, &-2.119,-2.128,-2.136,-2.144,-2.152,-2.161,-2.169,-2.176,-2.184, &-2.192,-2.200,-2.207,-2.215,-2.222,-2.230,-2.237,-2.244,-2.251, &-2.259,-2.266,-2.273,-2.280,-2.287,-2.293,-2.300,-2.307,-2.314, &-2.320,-2.327,-2.334,-2.340,-2.347,-2.353,-2.360,-2.366,-2.372, &-2.379,-2.385,-2.391,-2.397,-2.403,-2.410,-2.416,-2.422,-2.428, &-2.434,-2.440,-2.446,-2.452,-2.458,-2.464,-2.470,-2.475,-2.481, &-2.487,-2.493,-2.499,-2.504,-2.510,-2.516,-2.522,-2.527,-2.533, &-2.539,-2.544,-2.550,-2.555,-2.561,-2.566,-2.572,-2.578,-2.583, &-2.588,-2.594,-2.599,-2.605,-2.610,-2.616,-2.621,-2.627,-2.632, &-2.637,-2.643,-2.648,-2.653,-2.659,-2.664,-2.669,-2.675,-2.680, &-2.685,-2.690,-2.696,-2.701,-2.706,-2.711,-2.716,-2.722,-2.727, &-2.732,-2.737,-2.742,-2.748,-2.753,-2.758,-2.763,-2.768,-2.773, &-2.778,-2.783,-2.788,-2.794,-2.799,-2.804,-2.809,-2.814,-2.819, &-2.824,-2.829,-2.834,-2.839,-2.844,-2.849,-2.854,-2.859,-2.864, &-2.869,-2.874,-2.879 & / C C *** KCL C DATA BNC20M/ &-0.049,-0.105,-0.132,-0.151,-0.164,-0.176,-0.185,-0.193,-0.200, &-0.206,-0.211,-0.216,-0.221,-0.224,-0.228,-0.231,-0.234,-0.237, &-0.240,-0.242,-0.244,-0.246,-0.248,-0.250,-0.252,-0.253,-0.255, &-0.256,-0.257,-0.258,-0.260,-0.261,-0.262,-0.263,-0.264,-0.265, &-0.265,-0.266,-0.267,-0.268,-0.268,-0.269,-0.270,-0.270,-0.271, &-0.271,-0.272,-0.272,-0.273,-0.273,-0.274,-0.274,-0.275,-0.275, &-0.275,-0.276,-0.276,-0.276,-0.277,-0.277,-0.277,-0.278,-0.278, &-0.278,-0.278,-0.279,-0.279,-0.279,-0.279,-0.280,-0.280,-0.280, &-0.280,-0.280,-0.280,-0.280,-0.281,-0.281,-0.281,-0.281,-0.281, &-0.281,-0.281,-0.281,-0.281,-0.281,-0.281,-0.281,-0.281,-0.281, &-0.281,-0.281,-0.281,-0.281,-0.281,-0.281,-0.281,-0.280,-0.280, &-0.280,-0.280,-0.280,-0.280,-0.280,-0.279,-0.279,-0.279,-0.279, &-0.279,-0.278,-0.278,-0.278,-0.278,-0.278,-0.277,-0.277,-0.277, &-0.277,-0.276,-0.276,-0.276,-0.276,-0.275,-0.275,-0.275,-0.275, &-0.274,-0.274,-0.274,-0.273,-0.273,-0.273,-0.273,-0.272,-0.272, &-0.272,-0.271,-0.271,-0.271,-0.270,-0.270,-0.270,-0.270,-0.269, &-0.269,-0.269,-0.268,-0.268,-0.268,-0.267,-0.267,-0.267,-0.267, &-0.266,-0.266,-0.266,-0.265,-0.265,-0.265,-0.264,-0.264,-0.264, &-0.263,-0.263,-0.263,-0.262,-0.262,-0.262,-0.262,-0.261,-0.261, &-0.261,-0.260,-0.260,-0.260,-0.259,-0.259,-0.259,-0.258,-0.258, &-0.258,-0.258,-0.257,-0.257,-0.257,-0.256,-0.256,-0.256,-0.255, &-0.255,-0.255,-0.254,-0.254,-0.254,-0.254,-0.253,-0.253,-0.253, &-0.252,-0.252,-0.252,-0.251,-0.251,-0.251,-0.251,-0.250,-0.250, &-0.250,-0.249,-0.249,-0.249,-0.248,-0.248,-0.248,-0.248,-0.247, &-0.247,-0.247,-0.246,-0.246,-0.246,-0.246,-0.245,-0.245,-0.245, &-0.244,-0.244,-0.244,-0.244,-0.243,-0.243,-0.243,-0.242,-0.242, &-0.242,-0.242,-0.241,-0.241,-0.241,-0.241,-0.240,-0.240,-0.240, &-0.239,-0.239,-0.239,-0.239,-0.238,-0.238,-0.238,-0.238,-0.237, &-0.237,-0.237,-0.236,-0.236,-0.236,-0.236,-0.235,-0.235,-0.235, &-0.235,-0.234,-0.234,-0.234,-0.234,-0.233,-0.233,-0.233,-0.233, &-0.232,-0.232,-0.232,-0.232,-0.231,-0.231,-0.231,-0.231,-0.230, &-0.230,-0.230,-0.230,-0.229,-0.229,-0.229,-0.229,-0.228,-0.228, &-0.228,-0.228,-0.227,-0.227,-0.227,-0.227,-0.226,-0.226,-0.226, &-0.226,-0.226,-0.225,-0.225,-0.225,-0.225,-0.224,-0.224,-0.224, &-0.224,-0.223,-0.223,-0.223,-0.223,-0.223,-0.222,-0.222,-0.222, &-0.222,-0.221,-0.221,-0.221,-0.221,-0.221,-0.220,-0.220,-0.220, &-0.220,-0.220,-0.219,-0.219,-0.219,-0.219,-0.218,-0.218,-0.218, &-0.218,-0.218,-0.217,-0.217,-0.217,-0.217,-0.217,-0.216,-0.216, &-0.216,-0.216,-0.216,-0.215,-0.215,-0.215,-0.215,-0.215,-0.215, &-0.214,-0.214,-0.214,-0.214,-0.214,-0.213,-0.213,-0.213,-0.213, &-0.213,-0.212,-0.212,-0.212,-0.212,-0.212,-0.212,-0.211,-0.211, &-0.211,-0.211,-0.211,-0.210,-0.210,-0.210,-0.210,-0.210,-0.210, &-0.209,-0.209,-0.209,-0.209,-0.209,-0.209,-0.208,-0.208,-0.208, &-0.208,-0.208,-0.208,-0.207,-0.207,-0.207,-0.207,-0.207,-0.207, &-0.206,-0.206,-0.206,-0.206,-0.204,-0.203,-0.202,-0.200,-0.199, &-0.198,-0.197,-0.196,-0.195,-0.194,-0.193,-0.192,-0.191,-0.190, &-0.190,-0.189,-0.189,-0.188,-0.188,-0.187,-0.187,-0.187,-0.186, &-0.186,-0.186,-0.186,-0.186,-0.186,-0.186,-0.186,-0.186,-0.186, &-0.186,-0.186,-0.187,-0.187,-0.187,-0.187,-0.188,-0.188,-0.189, &-0.189,-0.190,-0.190,-0.191,-0.191,-0.192,-0.193,-0.193,-0.194, &-0.195,-0.196,-0.196,-0.197,-0.198,-0.199,-0.200,-0.201,-0.202, &-0.203,-0.204,-0.205,-0.206,-0.207,-0.208,-0.209,-0.210,-0.212, &-0.213,-0.214,-0.215,-0.217,-0.218,-0.219,-0.220,-0.222,-0.223, &-0.225,-0.226,-0.227,-0.229,-0.230,-0.232,-0.233,-0.235,-0.236, &-0.238,-0.239,-0.241,-0.243,-0.244,-0.246,-0.247,-0.249,-0.251, &-0.252,-0.254,-0.256,-0.258,-0.259,-0.261,-0.263,-0.265,-0.266, &-0.268,-0.270,-0.272,-0.274,-0.276,-0.278,-0.280,-0.281,-0.283, &-0.285,-0.287,-0.289,-0.291,-0.293,-0.295,-0.297,-0.299,-0.301, &-0.303,-0.305,-0.307,-0.309,-0.311,-0.314,-0.316,-0.318,-0.320, &-0.322,-0.324,-0.326,-0.329,-0.331,-0.333,-0.335,-0.337,-0.340, &-0.342,-0.344,-0.346,-0.348,-0.351,-0.353,-0.355,-0.358,-0.360, &-0.362,-0.364,-0.367,-0.369,-0.371,-0.374,-0.376,-0.379,-0.381, &-0.383,-0.386,-0.388 & / C C *** MGSO4 C DATA BNC21M/ &-0.200,-0.434,-0.550,-0.632,-0.696,-0.748,-0.793,-0.833,-0.868, &-0.900,-0.928,-0.955,-0.979,-1.002,-1.023,-1.043,-1.062,-1.079, &-1.096,-1.112,-1.127,-1.142,-1.156,-1.170,-1.182,-1.195,-1.207, &-1.218,-1.230,-1.241,-1.251,-1.261,-1.271,-1.281,-1.290,-1.300, &-1.309,-1.317,-1.326,-1.334,-1.342,-1.350,-1.358,-1.366,-1.373, &-1.381,-1.388,-1.395,-1.402,-1.409,-1.416,-1.422,-1.429,-1.435, &-1.442,-1.448,-1.454,-1.460,-1.466,-1.472,-1.478,-1.484,-1.489, &-1.495,-1.500,-1.506,-1.511,-1.517,-1.522,-1.527,-1.532,-1.537, &-1.542,-1.547,-1.552,-1.557,-1.562,-1.567,-1.571,-1.576,-1.581, &-1.585,-1.590,-1.594,-1.599,-1.603,-1.608,-1.612,-1.616,-1.620, &-1.625,-1.629,-1.633,-1.637,-1.641,-1.645,-1.649,-1.653,-1.657, &-1.661,-1.665,-1.669,-1.672,-1.676,-1.680,-1.684,-1.687,-1.691, &-1.695,-1.698,-1.702,-1.706,-1.709,-1.713,-1.716,-1.720,-1.723, &-1.727,-1.730,-1.733,-1.737,-1.740,-1.744,-1.747,-1.750,-1.753, &-1.757,-1.760,-1.763,-1.766,-1.770,-1.773,-1.776,-1.779,-1.782, &-1.786,-1.789,-1.792,-1.795,-1.798,-1.801,-1.804,-1.807,-1.810, &-1.813,-1.816,-1.819,-1.822,-1.825,-1.828,-1.831,-1.834,-1.837, &-1.840,-1.843,-1.846,-1.849,-1.851,-1.854,-1.857,-1.860,-1.863, &-1.866,-1.868,-1.871,-1.874,-1.877,-1.880,-1.882,-1.885,-1.888, &-1.891,-1.894,-1.896,-1.899,-1.902,-1.904,-1.907,-1.910,-1.913, &-1.915,-1.918,-1.921,-1.923,-1.926,-1.929,-1.931,-1.934,-1.936, &-1.939,-1.942,-1.944,-1.947,-1.950,-1.952,-1.955,-1.957,-1.960, &-1.962,-1.965,-1.968,-1.970,-1.973,-1.975,-1.978,-1.980,-1.983, &-1.985,-1.988,-1.990,-1.993,-1.995,-1.998,-2.000,-2.003,-2.005, &-2.008,-2.010,-2.013,-2.015,-2.018,-2.020,-2.023,-2.025,-2.028, &-2.030,-2.032,-2.035,-2.037,-2.040,-2.042,-2.044,-2.047,-2.049, &-2.052,-2.054,-2.057,-2.059,-2.061,-2.064,-2.066,-2.068,-2.071, &-2.073,-2.076,-2.078,-2.080,-2.083,-2.085,-2.087,-2.090,-2.092, &-2.094,-2.097,-2.099,-2.101,-2.104,-2.106,-2.108,-2.111,-2.113, &-2.115,-2.118,-2.120,-2.122,-2.124,-2.127,-2.129,-2.131,-2.134, &-2.136,-2.138,-2.141,-2.143,-2.145,-2.147,-2.150,-2.152,-2.154, &-2.156,-2.159,-2.161,-2.163,-2.165,-2.168,-2.170,-2.172,-2.174, &-2.177,-2.179,-2.181,-2.183,-2.186,-2.188,-2.190,-2.192,-2.195, &-2.197,-2.199,-2.201,-2.203,-2.206,-2.208,-2.210,-2.212,-2.214, &-2.217,-2.219,-2.221,-2.223,-2.225,-2.228,-2.230,-2.232,-2.234, &-2.236,-2.239,-2.241,-2.243,-2.245,-2.247,-2.249,-2.252,-2.254, &-2.256,-2.258,-2.260,-2.262,-2.265,-2.267,-2.269,-2.271,-2.273, &-2.275,-2.278,-2.280,-2.282,-2.284,-2.286,-2.288,-2.290,-2.293, &-2.295,-2.297,-2.299,-2.301,-2.303,-2.305,-2.308,-2.310,-2.312, &-2.314,-2.316,-2.318,-2.320,-2.322,-2.325,-2.327,-2.329,-2.331, &-2.333,-2.335,-2.337,-2.339,-2.341,-2.344,-2.346,-2.348,-2.350, &-2.352,-2.354,-2.356,-2.358,-2.360,-2.362,-2.365,-2.367,-2.369, &-2.371,-2.373,-2.375,-2.377,-2.379,-2.381,-2.383,-2.385,-2.388, &-2.390,-2.392,-2.394,-2.396,-2.398,-2.400,-2.402,-2.404,-2.406, &-2.408,-2.410,-2.412,-2.415,-2.437,-2.457,-2.478,-2.498,-2.518, &-2.539,-2.559,-2.579,-2.599,-2.619,-2.638,-2.658,-2.678,-2.698, &-2.717,-2.737,-2.756,-2.776,-2.795,-2.815,-2.834,-2.854,-2.873, &-2.892,-2.911,-2.931,-2.950,-2.969,-2.988,-3.007,-3.026,-3.045, &-3.064,-3.083,-3.102,-3.121,-3.140,-3.159,-3.178,-3.197,-3.215, &-3.234,-3.253,-3.272,-3.291,-3.309,-3.328,-3.347,-3.365,-3.384, &-3.403,-3.421,-3.440,-3.459,-3.477,-3.496,-3.514,-3.533,-3.551, &-3.570,-3.588,-3.607,-3.625,-3.644,-3.662,-3.681,-3.699,-3.718, &-3.736,-3.754,-3.773,-3.791,-3.810,-3.828,-3.846,-3.865,-3.883, &-3.901,-3.920,-3.938,-3.956,-3.974,-3.993,-4.011,-4.029,-4.047, &-4.066,-4.084,-4.102,-4.120,-4.139,-4.157,-4.175,-4.193,-4.211, &-4.229,-4.248,-4.266,-4.284,-4.302,-4.320,-4.338,-4.356,-4.374, &-4.392,-4.411,-4.429,-4.447,-4.465,-4.483,-4.501,-4.519,-4.537, &-4.555,-4.573,-4.591,-4.609,-4.627,-4.645,-4.663,-4.681,-4.699, &-4.717,-4.735,-4.753,-4.771,-4.789,-4.807,-4.825,-4.842,-4.860, &-4.878,-4.896,-4.914,-4.932,-4.950,-4.968,-4.986,-5.004,-5.021, &-5.039,-5.057,-5.075,-5.093,-5.111,-5.129,-5.146,-5.164,-5.182, &-5.200,-5.218,-5.235,-5.253,-5.271,-5.289,-5.307,-5.324,-5.342, &-5.360,-5.378,-5.395 & / C C *** MGNO32 C DATA BNC22M/ &-0.097,-0.201,-0.248,-0.278,-0.300,-0.316,-0.329,-0.339,-0.347, &-0.354,-0.359,-0.363,-0.366,-0.369,-0.370,-0.372,-0.372,-0.373, &-0.372,-0.372,-0.371,-0.370,-0.369,-0.367,-0.366,-0.364,-0.362, &-0.359,-0.357,-0.354,-0.352,-0.349,-0.346,-0.344,-0.341,-0.338, &-0.334,-0.331,-0.328,-0.325,-0.322,-0.318,-0.315,-0.312,-0.308, &-0.305,-0.301,-0.298,-0.294,-0.291,-0.287,-0.284,-0.280,-0.277, &-0.273,-0.270,-0.266,-0.263,-0.259,-0.256,-0.252,-0.248,-0.245, &-0.241,-0.238,-0.234,-0.230,-0.227,-0.223,-0.219,-0.216,-0.212, &-0.208,-0.204,-0.201,-0.197,-0.193,-0.189,-0.185,-0.181,-0.177, &-0.173,-0.169,-0.165,-0.161,-0.157,-0.153,-0.149,-0.145,-0.141, &-0.136,-0.132,-0.128,-0.123,-0.119,-0.115,-0.110,-0.106,-0.101, &-0.097,-0.092,-0.087,-0.083,-0.078,-0.073,-0.069,-0.064,-0.059, &-0.055,-0.050,-0.045,-0.040,-0.035,-0.031,-0.026,-0.021,-0.016, &-0.011,-0.006,-0.001, 0.003, 0.008, 0.013, 0.018, 0.023, 0.028, & 0.033, 0.038, 0.043, 0.048, 0.052, 0.057, 0.062, 0.067, 0.072, & 0.077, 0.082, 0.087, 0.092, 0.097, 0.101, 0.106, 0.111, 0.116, & 0.121, 0.126, 0.131, 0.135, 0.140, 0.145, 0.150, 0.155, 0.160, & 0.164, 0.169, 0.174, 0.179, 0.184, 0.188, 0.193, 0.198, 0.203, & 0.207, 0.212, 0.217, 0.222, 0.226, 0.231, 0.236, 0.241, 0.245, & 0.250, 0.255, 0.259, 0.264, 0.269, 0.273, 0.278, 0.283, 0.287, & 0.292, 0.297, 0.301, 0.306, 0.311, 0.315, 0.320, 0.324, 0.329, & 0.333, 0.338, 0.343, 0.347, 0.352, 0.356, 0.361, 0.365, 0.370, & 0.374, 0.379, 0.383, 0.388, 0.392, 0.397, 0.401, 0.406, 0.410, & 0.414, 0.419, 0.423, 0.428, 0.432, 0.437, 0.441, 0.445, 0.450, & 0.454, 0.458, 0.463, 0.467, 0.472, 0.476, 0.480, 0.484, 0.489, & 0.493, 0.497, 0.502, 0.506, 0.510, 0.514, 0.519, 0.523, 0.527, & 0.531, 0.536, 0.540, 0.544, 0.548, 0.553, 0.557, 0.561, 0.565, & 0.569, 0.573, 0.578, 0.582, 0.586, 0.590, 0.594, 0.598, 0.602, & 0.606, 0.610, 0.615, 0.619, 0.623, 0.627, 0.631, 0.635, 0.639, & 0.643, 0.647, 0.651, 0.655, 0.659, 0.663, 0.667, 0.671, 0.675, & 0.679, 0.683, 0.687, 0.691, 0.695, 0.699, 0.703, 0.706, 0.710, & 0.714, 0.718, 0.722, 0.726, 0.730, 0.734, 0.738, 0.741, 0.745, & 0.749, 0.753, 0.757, 0.761, 0.764, 0.768, 0.772, 0.776, 0.779, & 0.783, 0.787, 0.791, 0.795, 0.798, 0.802, 0.806, 0.809, 0.813, & 0.817, 0.821, 0.824, 0.828, 0.832, 0.835, 0.839, 0.843, 0.846, & 0.850, 0.854, 0.857, 0.861, 0.865, 0.868, 0.872, 0.875, 0.879, & 0.883, 0.886, 0.890, 0.893, 0.897, 0.900, 0.904, 0.907, 0.911, & 0.915, 0.918, 0.922, 0.925, 0.929, 0.932, 0.936, 0.939, 0.943, & 0.946, 0.950, 0.953, 0.956, 0.960, 0.963, 0.967, 0.970, 0.974, & 0.977, 0.980, 0.984, 0.987, 0.991, 0.994, 0.997, 1.001, 1.004, & 1.007, 1.011, 1.014, 1.018, 1.021, 1.024, 1.028, 1.031, 1.034, & 1.037, 1.041, 1.044, 1.047, 1.051, 1.054, 1.057, 1.060, 1.064, & 1.067, 1.070, 1.073, 1.077, 1.080, 1.083, 1.086, 1.090, 1.093, & 1.096, 1.099, 1.102, 1.106, 1.109, 1.112, 1.115, 1.118, 1.121, & 1.125, 1.128, 1.131, 1.134, 1.167, 1.198, 1.228, 1.257, 1.286, & 1.314, 1.342, 1.370, 1.397, 1.423, 1.449, 1.475, 1.500, 1.525, & 1.549, 1.573, 1.597, 1.620, 1.643, 1.665, 1.687, 1.709, 1.730, & 1.751, 1.772, 1.793, 1.813, 1.833, 1.852, 1.871, 1.890, 1.909, & 1.927, 1.945, 1.963, 1.981, 1.998, 2.015, 2.032, 2.049, 2.065, & 2.081, 2.097, 2.112, 2.128, 2.143, 2.158, 2.173, 2.187, 2.202, & 2.216, 2.230, 2.244, 2.257, 2.271, 2.284, 2.297, 2.310, 2.322, & 2.335, 2.347, 2.359, 2.371, 2.383, 2.395, 2.406, 2.418, 2.429, & 2.440, 2.451, 2.462, 2.472, 2.483, 2.493, 2.503, 2.513, 2.523, & 2.533, 2.543, 2.552, 2.562, 2.571, 2.580, 2.589, 2.598, 2.607, & 2.616, 2.624, 2.633, 2.641, 2.650, 2.658, 2.666, 2.674, 2.681, & 2.689, 2.697, 2.704, 2.712, 2.719, 2.726, 2.733, 2.740, 2.747, & 2.754, 2.761, 2.768, 2.774, 2.781, 2.787, 2.793, 2.800, 2.806, & 2.812, 2.818, 2.824, 2.830, 2.835, 2.841, 2.847, 2.852, 2.858, & 2.863, 2.868, 2.873, 2.879, 2.884, 2.889, 2.893, 2.898, 2.903, & 2.908, 2.912, 2.917, 2.922, 2.926, 2.930, 2.935, 2.939, 2.943, & 2.947, 2.951, 2.955, 2.959, 2.963, 2.967, 2.971, 2.974, 2.978, & 2.982, 2.985, 2.989, 2.992, 2.996, 2.999, 3.002, 3.005, 3.009, & 3.012, 3.015, 3.018 & / C C *** MGCL2 C DATA BNC23M/ &-0.096,-0.198,-0.242,-0.270,-0.290,-0.304,-0.315,-0.323,-0.329, &-0.333,-0.337,-0.339,-0.340,-0.341,-0.340,-0.340,-0.339,-0.337, &-0.335,-0.333,-0.330,-0.327,-0.324,-0.320,-0.317,-0.313,-0.309, &-0.305,-0.301,-0.296,-0.292,-0.287,-0.283,-0.278,-0.273,-0.268, &-0.263,-0.258,-0.253,-0.248,-0.243,-0.238,-0.233,-0.228,-0.222, &-0.217,-0.212,-0.207,-0.202,-0.196,-0.191,-0.186,-0.180,-0.175, &-0.170,-0.164,-0.159,-0.154,-0.149,-0.143,-0.138,-0.133,-0.127, &-0.122,-0.117,-0.111,-0.106,-0.100,-0.095,-0.090,-0.084,-0.079, &-0.073,-0.068,-0.062,-0.057,-0.051,-0.045,-0.040,-0.034,-0.028, &-0.023,-0.017,-0.011,-0.005, 0.001, 0.007, 0.013, 0.019, 0.025, & 0.031, 0.037, 0.043, 0.049, 0.055, 0.062, 0.068, 0.074, 0.081, & 0.087, 0.094, 0.100, 0.107, 0.113, 0.120, 0.126, 0.133, 0.140, & 0.146, 0.153, 0.160, 0.166, 0.173, 0.180, 0.187, 0.193, 0.200, & 0.207, 0.214, 0.220, 0.227, 0.234, 0.241, 0.248, 0.255, 0.261, & 0.268, 0.275, 0.282, 0.289, 0.296, 0.302, 0.309, 0.316, 0.323, & 0.330, 0.337, 0.343, 0.350, 0.357, 0.364, 0.371, 0.377, 0.384, & 0.391, 0.398, 0.404, 0.411, 0.418, 0.425, 0.431, 0.438, 0.445, & 0.451, 0.458, 0.465, 0.471, 0.478, 0.485, 0.491, 0.498, 0.505, & 0.511, 0.518, 0.524, 0.531, 0.537, 0.544, 0.551, 0.557, 0.564, & 0.570, 0.577, 0.583, 0.590, 0.596, 0.603, 0.609, 0.616, 0.622, & 0.628, 0.635, 0.641, 0.648, 0.654, 0.660, 0.667, 0.673, 0.679, & 0.686, 0.692, 0.698, 0.705, 0.711, 0.717, 0.724, 0.730, 0.736, & 0.742, 0.749, 0.755, 0.761, 0.767, 0.773, 0.780, 0.786, 0.792, & 0.798, 0.804, 0.810, 0.816, 0.823, 0.829, 0.835, 0.841, 0.847, & 0.853, 0.859, 0.865, 0.871, 0.877, 0.883, 0.889, 0.895, 0.901, & 0.907, 0.913, 0.919, 0.925, 0.931, 0.937, 0.942, 0.948, 0.954, & 0.960, 0.966, 0.972, 0.978, 0.983, 0.989, 0.995, 1.001, 1.007, & 1.012, 1.018, 1.024, 1.030, 1.035, 1.041, 1.047, 1.052, 1.058, & 1.064, 1.069, 1.075, 1.081, 1.086, 1.092, 1.098, 1.103, 1.109, & 1.114, 1.120, 1.125, 1.131, 1.136, 1.142, 1.148, 1.153, 1.159, & 1.164, 1.169, 1.175, 1.180, 1.186, 1.191, 1.197, 1.202, 1.208, & 1.213, 1.218, 1.224, 1.229, 1.234, 1.240, 1.245, 1.250, 1.256, & 1.261, 1.266, 1.272, 1.277, 1.282, 1.287, 1.293, 1.298, 1.303, & 1.308, 1.314, 1.319, 1.324, 1.329, 1.334, 1.339, 1.345, 1.350, & 1.355, 1.360, 1.365, 1.370, 1.375, 1.380, 1.385, 1.390, 1.396, & 1.401, 1.406, 1.411, 1.416, 1.421, 1.426, 1.431, 1.436, 1.441, & 1.446, 1.451, 1.456, 1.460, 1.465, 1.470, 1.475, 1.480, 1.485, & 1.490, 1.495, 1.500, 1.504, 1.509, 1.514, 1.519, 1.524, 1.529, & 1.533, 1.538, 1.543, 1.548, 1.553, 1.557, 1.562, 1.567, 1.572, & 1.576, 1.581, 1.586, 1.590, 1.595, 1.600, 1.604, 1.609, 1.614, & 1.618, 1.623, 1.628, 1.632, 1.637, 1.642, 1.646, 1.651, 1.655, & 1.660, 1.664, 1.669, 1.674, 1.678, 1.683, 1.687, 1.692, 1.696, & 1.701, 1.705, 1.710, 1.714, 1.719, 1.723, 1.728, 1.732, 1.736, & 1.741, 1.745, 1.750, 1.754, 1.759, 1.763, 1.767, 1.772, 1.776, & 1.780, 1.785, 1.789, 1.793, 1.840, 1.882, 1.923, 1.964, 2.004, & 2.044, 2.082, 2.120, 2.158, 2.195, 2.231, 2.267, 2.302, 2.336, & 2.370, 2.404, 2.437, 2.469, 2.501, 2.533, 2.564, 2.594, 2.624, & 2.654, 2.683, 2.712, 2.741, 2.768, 2.796, 2.823, 2.850, 2.877, & 2.903, 2.928, 2.954, 2.979, 3.003, 3.028, 3.052, 3.076, 3.099, & 3.122, 3.145, 3.167, 3.190, 3.211, 3.233, 3.254, 3.276, 3.296, & 3.317, 3.337, 3.357, 3.377, 3.397, 3.416, 3.435, 3.454, 3.473, & 3.491, 3.509, 3.527, 3.545, 3.563, 3.580, 3.597, 3.614, 3.631, & 3.647, 3.664, 3.680, 3.696, 3.712, 3.727, 3.743, 3.758, 3.773, & 3.788, 3.803, 3.817, 3.832, 3.846, 3.860, 3.874, 3.888, 3.902, & 3.915, 3.928, 3.942, 3.955, 3.968, 3.980, 3.993, 4.006, 4.018, & 4.030, 4.042, 4.054, 4.066, 4.078, 4.089, 4.101, 4.112, 4.123, & 4.134, 4.145, 4.156, 4.167, 4.178, 4.188, 4.199, 4.209, 4.219, & 4.229, 4.239, 4.249, 4.259, 4.269, 4.278, 4.288, 4.297, 4.306, & 4.316, 4.325, 4.334, 4.343, 4.351, 4.360, 4.369, 4.377, 4.386, & 4.394, 4.402, 4.411, 4.419, 4.427, 4.435, 4.442, 4.450, 4.458, & 4.466, 4.473, 4.480, 4.488, 4.495, 4.502, 4.510, 4.517, 4.524, & 4.531, 4.537, 4.544, 4.551, 4.558, 4.564, 4.571, 4.577, 4.583, & 4.590, 4.596, 4.602 & / END C C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE KM248 C *** CALCULATES BINARY ACTIVITY COEFFICIENTS BY KUSIK-MEISSNER METHOD. C THE COMPUTATIONS HAVE BEEN PERFORMED AND THE RESULTS ARE STORED IN C LOOKUP TABLES. THE IONIC ACTIVITY 'IN' IS INPUT, AND THE ARRAY C 'BINARR' IS RETURNED WITH THE BINARY COEFFICIENTS. C C TEMPERATURE IS 248K C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE KM248 (IONIC, BINARR) C C *** Common block definition C COMMON /KMC248/ &BNC01M( 561),BNC02M( 561),BNC03M( 561),BNC04M( 561), &BNC05M( 561),BNC06M( 561),BNC07M( 561),BNC08M( 561), &BNC09M( 561),BNC10M( 561),BNC11M( 561),BNC12M( 561), &BNC13M( 561),BNC14M( 561),BNC15M( 561),BNC16M( 561), &BNC17M( 561),BNC18M( 561),BNC19M( 561),BNC20M( 561), &BNC21M( 561),BNC22M( 561),BNC23M( 561) REAL Binarr (23), Ionic C C *** Find position in arrays for bincoef C IF (Ionic.LE. 0.200000E+02) THEN ipos = MIN(NINT( 0.200000E+02*Ionic) + 1, 400) ELSE ipos = 400+NINT( 0.200000E+01*Ionic- 0.400000E+02) ENDIF ipos = min(ipos, 561) C C *** Assign values to return array C Binarr(01) = BNC01M(ipos) Binarr(02) = BNC02M(ipos) Binarr(03) = BNC03M(ipos) Binarr(04) = BNC04M(ipos) Binarr(05) = BNC05M(ipos) Binarr(06) = BNC06M(ipos) Binarr(07) = BNC07M(ipos) Binarr(08) = BNC08M(ipos) Binarr(09) = BNC09M(ipos) Binarr(10) = BNC10M(ipos) Binarr(11) = BNC11M(ipos) Binarr(12) = BNC12M(ipos) Binarr(13) = BNC13M(ipos) Binarr(14) = BNC14M(ipos) Binarr(15) = BNC15M(ipos) Binarr(16) = BNC16M(ipos) Binarr(17) = BNC17M(ipos) Binarr(18) = BNC18M(ipos) Binarr(19) = BNC19M(ipos) Binarr(20) = BNC20M(ipos) Binarr(21) = BNC21M(ipos) Binarr(22) = BNC22M(ipos) Binarr(23) = BNC23M(ipos) C C *** Return point ; End of subroutine C RETURN END BLOCK DATA KMCF248 C C *** Common block definition C COMMON /KMC248/ &BNC01M( 561),BNC02M( 561),BNC03M( 561),BNC04M( 561), &BNC05M( 561),BNC06M( 561),BNC07M( 561),BNC08M( 561), &BNC09M( 561),BNC10M( 561),BNC11M( 561),BNC12M( 561), &BNC13M( 561),BNC14M( 561),BNC15M( 561),BNC16M( 561), &BNC17M( 561),BNC18M( 561),BNC19M( 561),BNC20M( 561), &BNC21M( 561),BNC22M( 561),BNC23M( 561) C C *** NaCl C DATA BNC01M/ &-0.047,-0.099,-0.122,-0.137,-0.148,-0.156,-0.163,-0.168,-0.172, &-0.176,-0.178,-0.181,-0.182,-0.184,-0.185,-0.186,-0.186,-0.187, &-0.187,-0.187,-0.187,-0.187,-0.186,-0.186,-0.185,-0.184,-0.184, &-0.183,-0.182,-0.181,-0.180,-0.179,-0.178,-0.176,-0.175,-0.174, &-0.173,-0.171,-0.170,-0.168,-0.167,-0.166,-0.164,-0.163,-0.161, &-0.160,-0.158,-0.157,-0.155,-0.154,-0.152,-0.151,-0.149,-0.148, &-0.146,-0.145,-0.143,-0.141,-0.140,-0.138,-0.137,-0.135,-0.134, &-0.132,-0.130,-0.129,-0.127,-0.126,-0.124,-0.122,-0.121,-0.119, &-0.117,-0.116,-0.114,-0.112,-0.111,-0.109,-0.107,-0.105,-0.104, &-0.102,-0.100,-0.098,-0.096,-0.095,-0.093,-0.091,-0.089,-0.087, &-0.085,-0.083,-0.081,-0.079,-0.077,-0.075,-0.073,-0.071,-0.069, &-0.067,-0.065,-0.063,-0.061,-0.059,-0.057,-0.055,-0.053,-0.051, &-0.048,-0.046,-0.044,-0.042,-0.040,-0.038,-0.036,-0.033,-0.031, &-0.029,-0.027,-0.025,-0.022,-0.020,-0.018,-0.016,-0.014,-0.011, &-0.009,-0.007,-0.005,-0.003, 0.000, 0.002, 0.004, 0.006, 0.008, & 0.011, 0.013, 0.015, 0.017, 0.020, 0.022, 0.024, 0.026, 0.028, & 0.030, 0.033, 0.035, 0.037, 0.039, 0.041, 0.044, 0.046, 0.048, & 0.050, 0.052, 0.054, 0.057, 0.059, 0.061, 0.063, 0.065, 0.067, & 0.070, 0.072, 0.074, 0.076, 0.078, 0.080, 0.082, 0.085, 0.087, & 0.089, 0.091, 0.093, 0.095, 0.097, 0.099, 0.102, 0.104, 0.106, & 0.108, 0.110, 0.112, 0.114, 0.116, 0.118, 0.120, 0.122, 0.125, & 0.127, 0.129, 0.131, 0.133, 0.135, 0.137, 0.139, 0.141, 0.143, & 0.145, 0.147, 0.149, 0.151, 0.153, 0.155, 0.157, 0.159, 0.161, & 0.163, 0.165, 0.167, 0.169, 0.171, 0.173, 0.175, 0.177, 0.179, & 0.181, 0.183, 0.185, 0.187, 0.189, 0.191, 0.193, 0.195, 0.197, & 0.199, 0.201, 0.203, 0.205, 0.207, 0.209, 0.211, 0.213, 0.215, & 0.217, 0.219, 0.221, 0.223, 0.224, 0.226, 0.228, 0.230, 0.232, & 0.234, 0.236, 0.238, 0.240, 0.242, 0.243, 0.245, 0.247, 0.249, & 0.251, 0.253, 0.255, 0.257, 0.258, 0.260, 0.262, 0.264, 0.266, & 0.268, 0.270, 0.271, 0.273, 0.275, 0.277, 0.279, 0.281, 0.282, & 0.284, 0.286, 0.288, 0.290, 0.291, 0.293, 0.295, 0.297, 0.299, & 0.300, 0.302, 0.304, 0.306, 0.308, 0.309, 0.311, 0.313, 0.315, & 0.316, 0.318, 0.320, 0.322, 0.323, 0.325, 0.327, 0.329, 0.330, & 0.332, 0.334, 0.336, 0.337, 0.339, 0.341, 0.342, 0.344, 0.346, & 0.348, 0.349, 0.351, 0.353, 0.354, 0.356, 0.358, 0.359, 0.361, & 0.363, 0.364, 0.366, 0.368, 0.370, 0.371, 0.373, 0.374, 0.376, & 0.378, 0.379, 0.381, 0.383, 0.384, 0.386, 0.388, 0.389, 0.391, & 0.393, 0.394, 0.396, 0.397, 0.399, 0.401, 0.402, 0.404, 0.406, & 0.407, 0.409, 0.410, 0.412, 0.414, 0.415, 0.417, 0.418, 0.420, & 0.421, 0.423, 0.425, 0.426, 0.428, 0.429, 0.431, 0.433, 0.434, & 0.436, 0.437, 0.439, 0.440, 0.442, 0.443, 0.445, 0.446, 0.448, & 0.450, 0.451, 0.453, 0.454, 0.456, 0.457, 0.459, 0.460, 0.462, & 0.463, 0.465, 0.466, 0.468, 0.469, 0.471, 0.472, 0.474, 0.475, & 0.477, 0.478, 0.480, 0.481, 0.483, 0.484, 0.486, 0.487, 0.489, & 0.490, 0.491, 0.493, 0.494, 0.510, 0.524, 0.538, 0.552, 0.566, & 0.579, 0.592, 0.605, 0.618, 0.630, 0.642, 0.655, 0.667, 0.678, & 0.690, 0.701, 0.713, 0.724, 0.735, 0.745, 0.756, 0.766, 0.777, & 0.787, 0.797, 0.807, 0.817, 0.826, 0.836, 0.845, 0.854, 0.864, & 0.873, 0.881, 0.890, 0.899, 0.907, 0.916, 0.924, 0.932, 0.940, & 0.948, 0.956, 0.964, 0.972, 0.979, 0.987, 0.994, 1.002, 1.009, & 1.016, 1.023, 1.030, 1.037, 1.044, 1.051, 1.057, 1.064, 1.070, & 1.077, 1.083, 1.089, 1.096, 1.102, 1.108, 1.114, 1.120, 1.126, & 1.132, 1.137, 1.143, 1.149, 1.154, 1.160, 1.165, 1.170, 1.176, & 1.181, 1.186, 1.191, 1.196, 1.201, 1.206, 1.211, 1.216, 1.221, & 1.226, 1.231, 1.235, 1.240, 1.244, 1.249, 1.253, 1.258, 1.262, & 1.267, 1.271, 1.275, 1.279, 1.284, 1.288, 1.292, 1.296, 1.300, & 1.304, 1.308, 1.312, 1.315, 1.319, 1.323, 1.327, 1.330, 1.334, & 1.338, 1.341, 1.345, 1.348, 1.352, 1.355, 1.358, 1.362, 1.365, & 1.368, 1.372, 1.375, 1.378, 1.381, 1.384, 1.388, 1.391, 1.394, & 1.397, 1.400, 1.403, 1.406, 1.409, 1.411, 1.414, 1.417, 1.420, & 1.423, 1.425, 1.428, 1.431, 1.433, 1.436, 1.439, 1.441, 1.444, & 1.446, 1.449, 1.451, 1.454, 1.456, 1.458, 1.461, 1.463, 1.466, & 1.468, 1.470, 1.472 & / C C *** Na2SO4 C DATA BNC02M/ &-0.098,-0.214,-0.272,-0.313,-0.346,-0.373,-0.396,-0.417,-0.435, &-0.452,-0.467,-0.481,-0.494,-0.506,-0.518,-0.529,-0.539,-0.549, &-0.558,-0.567,-0.575,-0.583,-0.591,-0.599,-0.606,-0.613,-0.620, &-0.627,-0.633,-0.639,-0.645,-0.651,-0.657,-0.662,-0.668,-0.673, &-0.678,-0.683,-0.688,-0.693,-0.698,-0.703,-0.707,-0.712,-0.716, &-0.721,-0.725,-0.729,-0.733,-0.737,-0.741,-0.745,-0.749,-0.753, &-0.756,-0.760,-0.764,-0.767,-0.771,-0.774,-0.778,-0.781,-0.784, &-0.788,-0.791,-0.794,-0.797,-0.801,-0.804,-0.807,-0.810,-0.813, &-0.816,-0.819,-0.822,-0.825,-0.827,-0.830,-0.833,-0.836,-0.839, &-0.841,-0.844,-0.847,-0.850,-0.852,-0.855,-0.858,-0.860,-0.863, &-0.865,-0.868,-0.871,-0.873,-0.876,-0.878,-0.881,-0.883,-0.885, &-0.888,-0.890,-0.893,-0.895,-0.897,-0.900,-0.902,-0.905,-0.907, &-0.909,-0.911,-0.914,-0.916,-0.918,-0.921,-0.923,-0.925,-0.927, &-0.929,-0.932,-0.934,-0.936,-0.938,-0.940,-0.942,-0.945,-0.947, &-0.949,-0.951,-0.953,-0.955,-0.957,-0.959,-0.961,-0.963,-0.965, &-0.967,-0.969,-0.971,-0.973,-0.975,-0.977,-0.979,-0.981,-0.983, &-0.985,-0.987,-0.989,-0.991,-0.993,-0.995,-0.997,-0.999,-1.001, &-1.002,-1.004,-1.006,-1.008,-1.010,-1.012,-1.014,-1.015,-1.017, &-1.019,-1.021,-1.023,-1.025,-1.026,-1.028,-1.030,-1.032,-1.033, &-1.035,-1.037,-1.039,-1.040,-1.042,-1.044,-1.046,-1.047,-1.049, &-1.051,-1.053,-1.054,-1.056,-1.058,-1.059,-1.061,-1.063,-1.064, &-1.066,-1.068,-1.069,-1.071,-1.073,-1.074,-1.076,-1.078,-1.079, &-1.081,-1.082,-1.084,-1.086,-1.087,-1.089,-1.090,-1.092,-1.094, &-1.095,-1.097,-1.098,-1.100,-1.102,-1.103,-1.105,-1.106,-1.108, &-1.109,-1.111,-1.112,-1.114,-1.116,-1.117,-1.119,-1.120,-1.122, &-1.123,-1.125,-1.126,-1.128,-1.129,-1.131,-1.132,-1.134,-1.135, &-1.137,-1.138,-1.140,-1.141,-1.143,-1.144,-1.146,-1.147,-1.148, &-1.150,-1.151,-1.153,-1.154,-1.156,-1.157,-1.159,-1.160,-1.161, &-1.163,-1.164,-1.166,-1.167,-1.169,-1.170,-1.171,-1.173,-1.174, &-1.176,-1.177,-1.178,-1.180,-1.181,-1.183,-1.184,-1.185,-1.187, &-1.188,-1.190,-1.191,-1.192,-1.194,-1.195,-1.196,-1.198,-1.199, &-1.201,-1.202,-1.203,-1.205,-1.206,-1.207,-1.209,-1.210,-1.211, &-1.213,-1.214,-1.215,-1.217,-1.218,-1.219,-1.221,-1.222,-1.223, &-1.225,-1.226,-1.227,-1.229,-1.230,-1.231,-1.233,-1.234,-1.235, &-1.236,-1.238,-1.239,-1.240,-1.242,-1.243,-1.244,-1.246,-1.247, &-1.248,-1.249,-1.251,-1.252,-1.253,-1.255,-1.256,-1.257,-1.258, &-1.260,-1.261,-1.262,-1.263,-1.265,-1.266,-1.267,-1.268,-1.270, &-1.271,-1.272,-1.273,-1.275,-1.276,-1.277,-1.278,-1.280,-1.281, &-1.282,-1.283,-1.285,-1.286,-1.287,-1.288,-1.290,-1.291,-1.292, &-1.293,-1.294,-1.296,-1.297,-1.298,-1.299,-1.301,-1.302,-1.303, &-1.304,-1.305,-1.307,-1.308,-1.309,-1.310,-1.311,-1.313,-1.314, &-1.315,-1.316,-1.317,-1.319,-1.320,-1.321,-1.322,-1.323,-1.324, &-1.326,-1.327,-1.328,-1.329,-1.330,-1.332,-1.333,-1.334,-1.335, &-1.336,-1.337,-1.339,-1.340,-1.341,-1.342,-1.343,-1.344,-1.346, &-1.347,-1.348,-1.349,-1.350,-1.363,-1.374,-1.385,-1.396,-1.407, &-1.418,-1.429,-1.440,-1.451,-1.461,-1.472,-1.482,-1.492,-1.503, &-1.513,-1.523,-1.533,-1.543,-1.553,-1.563,-1.573,-1.582,-1.592, &-1.602,-1.611,-1.621,-1.630,-1.640,-1.649,-1.658,-1.668,-1.677, &-1.686,-1.695,-1.704,-1.714,-1.723,-1.732,-1.741,-1.750,-1.758, &-1.767,-1.776,-1.785,-1.794,-1.802,-1.811,-1.820,-1.828,-1.837, &-1.846,-1.854,-1.863,-1.871,-1.880,-1.888,-1.897,-1.905,-1.913, &-1.922,-1.930,-1.938,-1.947,-1.955,-1.963,-1.971,-1.979,-1.988, &-1.996,-2.004,-2.012,-2.020,-2.028,-2.036,-2.044,-2.052,-2.060, &-2.068,-2.076,-2.084,-2.092,-2.100,-2.108,-2.116,-2.124,-2.131, &-2.139,-2.147,-2.155,-2.163,-2.170,-2.178,-2.186,-2.194,-2.201, &-2.209,-2.217,-2.224,-2.232,-2.240,-2.247,-2.255,-2.262,-2.270, &-2.278,-2.285,-2.293,-2.300,-2.308,-2.315,-2.323,-2.330,-2.338, &-2.345,-2.353,-2.360,-2.368,-2.375,-2.382,-2.390,-2.397,-2.405, &-2.412,-2.419,-2.427,-2.434,-2.441,-2.449,-2.456,-2.463,-2.471, &-2.478,-2.485,-2.492,-2.500,-2.507,-2.514,-2.521,-2.529,-2.536, &-2.543,-2.550,-2.557,-2.565,-2.572,-2.579,-2.586,-2.593,-2.600, &-2.608,-2.615,-2.622,-2.629,-2.636,-2.643,-2.650,-2.657,-2.664, &-2.671,-2.679,-2.686 & / C C *** NaNO3 C DATA BNC03M/ &-0.049,-0.108,-0.137,-0.159,-0.175,-0.190,-0.202,-0.212,-0.222, &-0.231,-0.239,-0.247,-0.254,-0.260,-0.266,-0.272,-0.278,-0.283, &-0.288,-0.293,-0.298,-0.302,-0.306,-0.311,-0.315,-0.319,-0.322, &-0.326,-0.330,-0.333,-0.337,-0.340,-0.343,-0.346,-0.349,-0.352, &-0.355,-0.358,-0.361,-0.364,-0.367,-0.369,-0.372,-0.374,-0.377, &-0.379,-0.382,-0.384,-0.387,-0.389,-0.391,-0.394,-0.396,-0.398, &-0.400,-0.402,-0.404,-0.406,-0.408,-0.410,-0.412,-0.414,-0.416, &-0.418,-0.420,-0.422,-0.424,-0.426,-0.428,-0.429,-0.431,-0.433, &-0.435,-0.436,-0.438,-0.440,-0.442,-0.443,-0.445,-0.447,-0.448, &-0.450,-0.452,-0.453,-0.455,-0.456,-0.458,-0.459,-0.461,-0.463, &-0.464,-0.466,-0.467,-0.469,-0.470,-0.472,-0.473,-0.475,-0.476, &-0.478,-0.479,-0.481,-0.482,-0.483,-0.485,-0.486,-0.488,-0.489, &-0.491,-0.492,-0.493,-0.495,-0.496,-0.498,-0.499,-0.500,-0.502, &-0.503,-0.504,-0.506,-0.507,-0.508,-0.510,-0.511,-0.512,-0.514, &-0.515,-0.516,-0.518,-0.519,-0.520,-0.521,-0.523,-0.524,-0.525, &-0.526,-0.528,-0.529,-0.530,-0.531,-0.533,-0.534,-0.535,-0.536, &-0.537,-0.539,-0.540,-0.541,-0.542,-0.543,-0.545,-0.546,-0.547, &-0.548,-0.549,-0.550,-0.552,-0.553,-0.554,-0.555,-0.556,-0.557, &-0.558,-0.559,-0.561,-0.562,-0.563,-0.564,-0.565,-0.566,-0.567, &-0.568,-0.569,-0.570,-0.572,-0.573,-0.574,-0.575,-0.576,-0.577, &-0.578,-0.579,-0.580,-0.581,-0.582,-0.583,-0.584,-0.585,-0.586, &-0.587,-0.588,-0.589,-0.590,-0.592,-0.593,-0.594,-0.595,-0.596, &-0.597,-0.598,-0.599,-0.600,-0.601,-0.602,-0.603,-0.604,-0.605, &-0.606,-0.607,-0.607,-0.608,-0.609,-0.610,-0.611,-0.612,-0.613, &-0.614,-0.615,-0.616,-0.617,-0.618,-0.619,-0.620,-0.621,-0.622, &-0.623,-0.624,-0.625,-0.626,-0.627,-0.627,-0.628,-0.629,-0.630, &-0.631,-0.632,-0.633,-0.634,-0.635,-0.636,-0.637,-0.638,-0.638, &-0.639,-0.640,-0.641,-0.642,-0.643,-0.644,-0.645,-0.646,-0.646, &-0.647,-0.648,-0.649,-0.650,-0.651,-0.652,-0.653,-0.654,-0.654, &-0.655,-0.656,-0.657,-0.658,-0.659,-0.660,-0.660,-0.661,-0.662, &-0.663,-0.664,-0.665,-0.666,-0.666,-0.667,-0.668,-0.669,-0.670, &-0.671,-0.671,-0.672,-0.673,-0.674,-0.675,-0.676,-0.676,-0.677, &-0.678,-0.679,-0.680,-0.681,-0.681,-0.682,-0.683,-0.684,-0.685, &-0.685,-0.686,-0.687,-0.688,-0.689,-0.689,-0.690,-0.691,-0.692, &-0.693,-0.693,-0.694,-0.695,-0.696,-0.697,-0.697,-0.698,-0.699, &-0.700,-0.701,-0.701,-0.702,-0.703,-0.704,-0.704,-0.705,-0.706, &-0.707,-0.708,-0.708,-0.709,-0.710,-0.711,-0.711,-0.712,-0.713, &-0.714,-0.714,-0.715,-0.716,-0.717,-0.718,-0.718,-0.719,-0.720, &-0.721,-0.721,-0.722,-0.723,-0.724,-0.724,-0.725,-0.726,-0.727, &-0.727,-0.728,-0.729,-0.729,-0.730,-0.731,-0.732,-0.732,-0.733, &-0.734,-0.735,-0.735,-0.736,-0.737,-0.738,-0.738,-0.739,-0.740, &-0.740,-0.741,-0.742,-0.743,-0.743,-0.744,-0.745,-0.746,-0.746, &-0.747,-0.748,-0.748,-0.749,-0.750,-0.751,-0.751,-0.752,-0.753, &-0.753,-0.754,-0.755,-0.756,-0.756,-0.757,-0.758,-0.758,-0.759, &-0.760,-0.760,-0.761,-0.762,-0.769,-0.776,-0.783,-0.790,-0.796, &-0.803,-0.809,-0.816,-0.822,-0.828,-0.835,-0.841,-0.847,-0.853, &-0.859,-0.865,-0.871,-0.877,-0.883,-0.888,-0.894,-0.900,-0.905, &-0.911,-0.917,-0.922,-0.928,-0.933,-0.939,-0.944,-0.949,-0.955, &-0.960,-0.965,-0.971,-0.976,-0.981,-0.986,-0.991,-0.997,-1.002, &-1.007,-1.012,-1.017,-1.022,-1.027,-1.032,-1.037,-1.042,-1.046, &-1.051,-1.056,-1.061,-1.066,-1.071,-1.075,-1.080,-1.085,-1.089, &-1.094,-1.099,-1.104,-1.108,-1.113,-1.117,-1.122,-1.127,-1.131, &-1.136,-1.140,-1.145,-1.149,-1.154,-1.158,-1.163,-1.167,-1.172, &-1.176,-1.180,-1.185,-1.189,-1.194,-1.198,-1.202,-1.207,-1.211, &-1.215,-1.220,-1.224,-1.228,-1.232,-1.237,-1.241,-1.245,-1.249, &-1.254,-1.258,-1.262,-1.266,-1.270,-1.275,-1.279,-1.283,-1.287, &-1.291,-1.295,-1.299,-1.304,-1.308,-1.312,-1.316,-1.320,-1.324, &-1.328,-1.332,-1.336,-1.340,-1.344,-1.348,-1.352,-1.356,-1.360, &-1.364,-1.368,-1.372,-1.376,-1.380,-1.384,-1.388,-1.392,-1.396, &-1.400,-1.404,-1.408,-1.412,-1.415,-1.419,-1.423,-1.427,-1.431, &-1.435,-1.439,-1.443,-1.446,-1.450,-1.454,-1.458,-1.462,-1.466, &-1.469,-1.473,-1.477,-1.481,-1.485,-1.488,-1.492,-1.496,-1.500, &-1.504,-1.507,-1.511 & / C C *** (NH4)2SO4 C DATA BNC04M/ &-0.098,-0.214,-0.273,-0.315,-0.347,-0.375,-0.399,-0.419,-0.438, &-0.455,-0.470,-0.485,-0.498,-0.511,-0.522,-0.533,-0.544,-0.554, &-0.563,-0.572,-0.581,-0.590,-0.598,-0.605,-0.613,-0.620,-0.627, &-0.634,-0.641,-0.647,-0.653,-0.660,-0.666,-0.671,-0.677,-0.683, &-0.688,-0.693,-0.698,-0.703,-0.708,-0.713,-0.718,-0.723,-0.727, &-0.732,-0.736,-0.741,-0.745,-0.749,-0.753,-0.757,-0.762,-0.765, &-0.769,-0.773,-0.777,-0.781,-0.784,-0.788,-0.792,-0.795,-0.799, &-0.802,-0.806,-0.809,-0.812,-0.816,-0.819,-0.822,-0.825,-0.829, &-0.832,-0.835,-0.838,-0.841,-0.844,-0.847,-0.850,-0.853,-0.856, &-0.859,-0.862,-0.865,-0.867,-0.870,-0.873,-0.876,-0.879,-0.881, &-0.884,-0.887,-0.890,-0.892,-0.895,-0.898,-0.900,-0.903,-0.905, &-0.908,-0.911,-0.913,-0.916,-0.918,-0.921,-0.923,-0.926,-0.928, &-0.931,-0.933,-0.936,-0.938,-0.940,-0.943,-0.945,-0.948,-0.950, &-0.952,-0.955,-0.957,-0.959,-0.962,-0.964,-0.966,-0.969,-0.971, &-0.973,-0.975,-0.978,-0.980,-0.982,-0.984,-0.986,-0.989,-0.991, &-0.993,-0.995,-0.997,-0.999,-1.002,-1.004,-1.006,-1.008,-1.010, &-1.012,-1.014,-1.016,-1.018,-1.020,-1.022,-1.024,-1.026,-1.028, &-1.030,-1.032,-1.034,-1.036,-1.038,-1.040,-1.042,-1.044,-1.046, &-1.048,-1.050,-1.052,-1.054,-1.056,-1.058,-1.060,-1.062,-1.064, &-1.066,-1.067,-1.069,-1.071,-1.073,-1.075,-1.077,-1.079,-1.080, &-1.082,-1.084,-1.086,-1.088,-1.090,-1.091,-1.093,-1.095,-1.097, &-1.099,-1.100,-1.102,-1.104,-1.106,-1.107,-1.109,-1.111,-1.113, &-1.114,-1.116,-1.118,-1.120,-1.121,-1.123,-1.125,-1.127,-1.128, &-1.130,-1.132,-1.133,-1.135,-1.137,-1.138,-1.140,-1.142,-1.143, &-1.145,-1.147,-1.148,-1.150,-1.152,-1.153,-1.155,-1.157,-1.158, &-1.160,-1.162,-1.163,-1.165,-1.166,-1.168,-1.170,-1.171,-1.173, &-1.174,-1.176,-1.178,-1.179,-1.181,-1.182,-1.184,-1.185,-1.187, &-1.189,-1.190,-1.192,-1.193,-1.195,-1.196,-1.198,-1.199,-1.201, &-1.203,-1.204,-1.206,-1.207,-1.209,-1.210,-1.212,-1.213,-1.215, &-1.216,-1.218,-1.219,-1.221,-1.222,-1.224,-1.225,-1.227,-1.228, &-1.230,-1.231,-1.233,-1.234,-1.236,-1.237,-1.238,-1.240,-1.241, &-1.243,-1.244,-1.246,-1.247,-1.249,-1.250,-1.252,-1.253,-1.254, &-1.256,-1.257,-1.259,-1.260,-1.262,-1.263,-1.264,-1.266,-1.267, &-1.269,-1.270,-1.271,-1.273,-1.274,-1.276,-1.277,-1.278,-1.280, &-1.281,-1.283,-1.284,-1.285,-1.287,-1.288,-1.290,-1.291,-1.292, &-1.294,-1.295,-1.296,-1.298,-1.299,-1.301,-1.302,-1.303,-1.305, &-1.306,-1.307,-1.309,-1.310,-1.311,-1.313,-1.314,-1.315,-1.317, &-1.318,-1.319,-1.321,-1.322,-1.323,-1.325,-1.326,-1.327,-1.329, &-1.330,-1.331,-1.333,-1.334,-1.335,-1.337,-1.338,-1.339,-1.341, &-1.342,-1.343,-1.344,-1.346,-1.347,-1.348,-1.350,-1.351,-1.352, &-1.354,-1.355,-1.356,-1.357,-1.359,-1.360,-1.361,-1.363,-1.364, &-1.365,-1.366,-1.368,-1.369,-1.370,-1.371,-1.373,-1.374,-1.375, &-1.376,-1.378,-1.379,-1.380,-1.381,-1.383,-1.384,-1.385,-1.387, &-1.388,-1.389,-1.390,-1.391,-1.393,-1.394,-1.395,-1.396,-1.398, &-1.399,-1.400,-1.401,-1.403,-1.416,-1.428,-1.440,-1.452,-1.463, &-1.475,-1.487,-1.498,-1.509,-1.520,-1.532,-1.543,-1.554,-1.564, &-1.575,-1.586,-1.596,-1.607,-1.617,-1.628,-1.638,-1.648,-1.659, &-1.669,-1.679,-1.689,-1.699,-1.709,-1.719,-1.729,-1.738,-1.748, &-1.758,-1.767,-1.777,-1.786,-1.796,-1.805,-1.815,-1.824,-1.833, &-1.843,-1.852,-1.861,-1.870,-1.879,-1.888,-1.897,-1.906,-1.915, &-1.924,-1.933,-1.942,-1.951,-1.960,-1.969,-1.977,-1.986,-1.995, &-2.004,-2.012,-2.021,-2.029,-2.038,-2.047,-2.055,-2.064,-2.072, &-2.081,-2.089,-2.097,-2.106,-2.114,-2.123,-2.131,-2.139,-2.147, &-2.156,-2.164,-2.172,-2.180,-2.189,-2.197,-2.205,-2.213,-2.221, &-2.229,-2.237,-2.245,-2.253,-2.261,-2.269,-2.277,-2.285,-2.293, &-2.301,-2.309,-2.317,-2.325,-2.333,-2.341,-2.349,-2.356,-2.364, &-2.372,-2.380,-2.388,-2.395,-2.403,-2.411,-2.419,-2.426,-2.434, &-2.442,-2.449,-2.457,-2.465,-2.472,-2.480,-2.488,-2.495,-2.503, &-2.510,-2.518,-2.525,-2.533,-2.541,-2.548,-2.556,-2.563,-2.571, &-2.578,-2.586,-2.593,-2.600,-2.608,-2.615,-2.623,-2.630,-2.638, &-2.645,-2.652,-2.660,-2.667,-2.674,-2.682,-2.689,-2.696,-2.704, &-2.711,-2.718,-2.726,-2.733,-2.740,-2.747,-2.755,-2.762,-2.769, &-2.776,-2.784,-2.791 & / C C *** NH4NO3 C DATA BNC05M/ &-0.050,-0.111,-0.143,-0.166,-0.185,-0.202,-0.216,-0.229,-0.240, &-0.251,-0.261,-0.271,-0.279,-0.288,-0.296,-0.304,-0.311,-0.318, &-0.325,-0.331,-0.338,-0.344,-0.350,-0.356,-0.361,-0.367,-0.372, &-0.378,-0.383,-0.388,-0.393,-0.398,-0.402,-0.407,-0.412,-0.416, &-0.420,-0.425,-0.429,-0.433,-0.437,-0.441,-0.445,-0.449,-0.453, &-0.457,-0.460,-0.464,-0.468,-0.471,-0.475,-0.478,-0.482,-0.485, &-0.488,-0.491,-0.495,-0.498,-0.501,-0.504,-0.507,-0.510,-0.513, &-0.516,-0.519,-0.522,-0.525,-0.528,-0.531,-0.534,-0.537,-0.539, &-0.542,-0.545,-0.548,-0.550,-0.553,-0.556,-0.558,-0.561,-0.564, &-0.566,-0.569,-0.572,-0.574,-0.577,-0.579,-0.582,-0.584,-0.587, &-0.589,-0.592,-0.594,-0.597,-0.599,-0.602,-0.604,-0.607,-0.609, &-0.612,-0.614,-0.617,-0.619,-0.621,-0.624,-0.626,-0.629,-0.631, &-0.633,-0.636,-0.638,-0.640,-0.643,-0.645,-0.647,-0.650,-0.652, &-0.654,-0.656,-0.659,-0.661,-0.663,-0.665,-0.668,-0.670,-0.672, &-0.674,-0.677,-0.679,-0.681,-0.683,-0.685,-0.687,-0.690,-0.692, &-0.694,-0.696,-0.698,-0.700,-0.702,-0.704,-0.706,-0.709,-0.711, &-0.713,-0.715,-0.717,-0.719,-0.721,-0.723,-0.725,-0.727,-0.729, &-0.731,-0.733,-0.735,-0.737,-0.739,-0.741,-0.742,-0.744,-0.746, &-0.748,-0.750,-0.752,-0.754,-0.756,-0.758,-0.760,-0.761,-0.763, &-0.765,-0.767,-0.769,-0.771,-0.772,-0.774,-0.776,-0.778,-0.780, &-0.782,-0.783,-0.785,-0.787,-0.789,-0.790,-0.792,-0.794,-0.796, &-0.797,-0.799,-0.801,-0.803,-0.804,-0.806,-0.808,-0.809,-0.811, &-0.813,-0.814,-0.816,-0.818,-0.820,-0.821,-0.823,-0.824,-0.826, &-0.828,-0.829,-0.831,-0.833,-0.834,-0.836,-0.838,-0.839,-0.841, &-0.842,-0.844,-0.846,-0.847,-0.849,-0.850,-0.852,-0.853,-0.855, &-0.857,-0.858,-0.860,-0.861,-0.863,-0.864,-0.866,-0.867,-0.869, &-0.870,-0.872,-0.873,-0.875,-0.876,-0.878,-0.879,-0.881,-0.882, &-0.884,-0.885,-0.887,-0.888,-0.890,-0.891,-0.893,-0.894,-0.896, &-0.897,-0.898,-0.900,-0.901,-0.903,-0.904,-0.906,-0.907,-0.908, &-0.910,-0.911,-0.913,-0.914,-0.915,-0.917,-0.918,-0.920,-0.921, &-0.922,-0.924,-0.925,-0.926,-0.928,-0.929,-0.931,-0.932,-0.933, &-0.935,-0.936,-0.937,-0.939,-0.940,-0.941,-0.943,-0.944,-0.945, &-0.947,-0.948,-0.949,-0.951,-0.952,-0.953,-0.954,-0.956,-0.957, &-0.958,-0.960,-0.961,-0.962,-0.963,-0.965,-0.966,-0.967,-0.969, &-0.970,-0.971,-0.972,-0.974,-0.975,-0.976,-0.977,-0.979,-0.980, &-0.981,-0.982,-0.984,-0.985,-0.986,-0.987,-0.988,-0.990,-0.991, &-0.992,-0.993,-0.995,-0.996,-0.997,-0.998,-0.999,-1.001,-1.002, &-1.003,-1.004,-1.005,-1.007,-1.008,-1.009,-1.010,-1.011,-1.012, &-1.014,-1.015,-1.016,-1.017,-1.018,-1.019,-1.021,-1.022,-1.023, &-1.024,-1.025,-1.026,-1.027,-1.029,-1.030,-1.031,-1.032,-1.033, &-1.034,-1.035,-1.037,-1.038,-1.039,-1.040,-1.041,-1.042,-1.043, &-1.044,-1.045,-1.047,-1.048,-1.049,-1.050,-1.051,-1.052,-1.053, &-1.054,-1.055,-1.056,-1.058,-1.059,-1.060,-1.061,-1.062,-1.063, &-1.064,-1.065,-1.066,-1.067,-1.068,-1.069,-1.070,-1.071,-1.072, &-1.074,-1.075,-1.076,-1.077,-1.088,-1.098,-1.108,-1.118,-1.128, &-1.137,-1.147,-1.156,-1.165,-1.174,-1.183,-1.192,-1.200,-1.209, &-1.217,-1.225,-1.233,-1.241,-1.249,-1.257,-1.265,-1.273,-1.280, &-1.288,-1.295,-1.303,-1.310,-1.317,-1.324,-1.331,-1.338,-1.345, &-1.352,-1.359,-1.365,-1.372,-1.379,-1.385,-1.392,-1.398,-1.404, &-1.411,-1.417,-1.423,-1.429,-1.435,-1.441,-1.447,-1.453,-1.459, &-1.465,-1.471,-1.477,-1.483,-1.488,-1.494,-1.500,-1.505,-1.511, &-1.516,-1.522,-1.527,-1.533,-1.538,-1.544,-1.549,-1.554,-1.560, &-1.565,-1.570,-1.575,-1.580,-1.586,-1.591,-1.596,-1.601,-1.606, &-1.611,-1.616,-1.621,-1.626,-1.631,-1.635,-1.640,-1.645,-1.650, &-1.655,-1.660,-1.664,-1.669,-1.674,-1.679,-1.683,-1.688,-1.693, &-1.697,-1.702,-1.706,-1.711,-1.716,-1.720,-1.725,-1.729,-1.734, &-1.738,-1.743,-1.747,-1.751,-1.756,-1.760,-1.765,-1.769,-1.773, &-1.778,-1.782,-1.786,-1.791,-1.795,-1.799,-1.803,-1.808,-1.812, &-1.816,-1.820,-1.825,-1.829,-1.833,-1.837,-1.841,-1.845,-1.850, &-1.854,-1.858,-1.862,-1.866,-1.870,-1.874,-1.878,-1.882,-1.886, &-1.890,-1.894,-1.898,-1.902,-1.906,-1.910,-1.914,-1.918,-1.922, &-1.926,-1.930,-1.934,-1.938,-1.942,-1.946,-1.950,-1.954,-1.958, &-1.961,-1.965,-1.969 & / C C *** NH4Cl C DATA BNC06M/ &-0.048,-0.103,-0.130,-0.148,-0.161,-0.173,-0.182,-0.190,-0.197, &-0.203,-0.208,-0.213,-0.217,-0.221,-0.225,-0.228,-0.231,-0.234, &-0.237,-0.239,-0.241,-0.243,-0.245,-0.247,-0.249,-0.251,-0.252, &-0.254,-0.255,-0.256,-0.257,-0.259,-0.260,-0.261,-0.262,-0.263, &-0.263,-0.264,-0.265,-0.266,-0.267,-0.267,-0.268,-0.269,-0.269, &-0.270,-0.270,-0.271,-0.272,-0.272,-0.273,-0.273,-0.273,-0.274, &-0.274,-0.275,-0.275,-0.275,-0.276,-0.276,-0.277,-0.277,-0.277, &-0.277,-0.278,-0.278,-0.278,-0.279,-0.279,-0.279,-0.279,-0.279, &-0.280,-0.280,-0.280,-0.280,-0.280,-0.280,-0.280,-0.281,-0.281, &-0.281,-0.281,-0.281,-0.281,-0.281,-0.281,-0.281,-0.281,-0.281, &-0.281,-0.281,-0.281,-0.281,-0.281,-0.281,-0.281,-0.281,-0.281, &-0.281,-0.281,-0.280,-0.280,-0.280,-0.280,-0.280,-0.280,-0.280, &-0.279,-0.279,-0.279,-0.279,-0.279,-0.279,-0.278,-0.278,-0.278, &-0.278,-0.278,-0.277,-0.277,-0.277,-0.277,-0.277,-0.276,-0.276, &-0.276,-0.276,-0.275,-0.275,-0.275,-0.275,-0.274,-0.274,-0.274, &-0.274,-0.273,-0.273,-0.273,-0.273,-0.272,-0.272,-0.272,-0.272, &-0.271,-0.271,-0.271,-0.271,-0.270,-0.270,-0.270,-0.270,-0.269, &-0.269,-0.269,-0.269,-0.268,-0.268,-0.268,-0.267,-0.267,-0.267, &-0.267,-0.266,-0.266,-0.266,-0.266,-0.265,-0.265,-0.265,-0.264, &-0.264,-0.264,-0.264,-0.263,-0.263,-0.263,-0.263,-0.262,-0.262, &-0.262,-0.261,-0.261,-0.261,-0.261,-0.260,-0.260,-0.260,-0.259, &-0.259,-0.259,-0.259,-0.258,-0.258,-0.258,-0.258,-0.257,-0.257, &-0.257,-0.256,-0.256,-0.256,-0.256,-0.255,-0.255,-0.255,-0.255, &-0.254,-0.254,-0.254,-0.253,-0.253,-0.253,-0.253,-0.252,-0.252, &-0.252,-0.252,-0.251,-0.251,-0.251,-0.250,-0.250,-0.250,-0.250, &-0.249,-0.249,-0.249,-0.249,-0.248,-0.248,-0.248,-0.247,-0.247, &-0.247,-0.247,-0.246,-0.246,-0.246,-0.246,-0.245,-0.245,-0.245, &-0.245,-0.244,-0.244,-0.244,-0.244,-0.243,-0.243,-0.243,-0.243, &-0.242,-0.242,-0.242,-0.241,-0.241,-0.241,-0.241,-0.240,-0.240, &-0.240,-0.240,-0.239,-0.239,-0.239,-0.239,-0.238,-0.238,-0.238, &-0.238,-0.237,-0.237,-0.237,-0.237,-0.236,-0.236,-0.236,-0.236, &-0.236,-0.235,-0.235,-0.235,-0.235,-0.234,-0.234,-0.234,-0.234, &-0.233,-0.233,-0.233,-0.233,-0.232,-0.232,-0.232,-0.232,-0.231, &-0.231,-0.231,-0.231,-0.231,-0.230,-0.230,-0.230,-0.230,-0.229, &-0.229,-0.229,-0.229,-0.228,-0.228,-0.228,-0.228,-0.228,-0.227, &-0.227,-0.227,-0.227,-0.226,-0.226,-0.226,-0.226,-0.226,-0.225, &-0.225,-0.225,-0.225,-0.224,-0.224,-0.224,-0.224,-0.224,-0.223, &-0.223,-0.223,-0.223,-0.223,-0.222,-0.222,-0.222,-0.222,-0.221, &-0.221,-0.221,-0.221,-0.221,-0.220,-0.220,-0.220,-0.220,-0.220, &-0.219,-0.219,-0.219,-0.219,-0.219,-0.218,-0.218,-0.218,-0.218, &-0.218,-0.217,-0.217,-0.217,-0.217,-0.217,-0.216,-0.216,-0.216, &-0.216,-0.216,-0.215,-0.215,-0.215,-0.215,-0.215,-0.215,-0.214, &-0.214,-0.214,-0.214,-0.214,-0.213,-0.213,-0.213,-0.213,-0.213, &-0.212,-0.212,-0.212,-0.212,-0.212,-0.212,-0.211,-0.211,-0.211, &-0.211,-0.211,-0.210,-0.210,-0.208,-0.207,-0.205,-0.203,-0.202, &-0.200,-0.199,-0.198,-0.196,-0.195,-0.194,-0.192,-0.191,-0.190, &-0.189,-0.188,-0.187,-0.186,-0.185,-0.184,-0.183,-0.182,-0.182, &-0.181,-0.180,-0.179,-0.179,-0.178,-0.178,-0.177,-0.176,-0.176, &-0.176,-0.175,-0.175,-0.174,-0.174,-0.174,-0.173,-0.173,-0.173, &-0.173,-0.172,-0.172,-0.172,-0.172,-0.172,-0.172,-0.172,-0.172, &-0.172,-0.172,-0.172,-0.172,-0.172,-0.172,-0.172,-0.172,-0.173, &-0.173,-0.173,-0.173,-0.173,-0.174,-0.174,-0.174,-0.175,-0.175, &-0.175,-0.176,-0.176,-0.176,-0.177,-0.177,-0.178,-0.178,-0.179, &-0.179,-0.180,-0.180,-0.181,-0.181,-0.182,-0.183,-0.183,-0.184, &-0.184,-0.185,-0.186,-0.186,-0.187,-0.188,-0.188,-0.189,-0.190, &-0.191,-0.191,-0.192,-0.193,-0.194,-0.194,-0.195,-0.196,-0.197, &-0.198,-0.199,-0.200,-0.200,-0.201,-0.202,-0.203,-0.204,-0.205, &-0.206,-0.207,-0.208,-0.209,-0.210,-0.211,-0.212,-0.213,-0.214, &-0.215,-0.216,-0.217,-0.218,-0.219,-0.220,-0.221,-0.222,-0.223, &-0.224,-0.226,-0.227,-0.228,-0.229,-0.230,-0.231,-0.232,-0.234, &-0.235,-0.236,-0.237,-0.238,-0.239,-0.241,-0.242,-0.243,-0.244, &-0.246,-0.247,-0.248,-0.249,-0.251,-0.252,-0.253,-0.254,-0.256, &-0.257,-0.258,-0.260 & / C C *** (2H,SO4) C DATA BNC07M/ &-0.098,-0.213,-0.271,-0.312,-0.344,-0.370,-0.393,-0.413,-0.431, &-0.448,-0.462,-0.476,-0.489,-0.500,-0.511,-0.522,-0.532,-0.541, &-0.550,-0.558,-0.567,-0.574,-0.582,-0.589,-0.596,-0.603,-0.609, &-0.615,-0.621,-0.627,-0.633,-0.638,-0.644,-0.649,-0.654,-0.659, &-0.664,-0.669,-0.674,-0.678,-0.683,-0.687,-0.691,-0.695,-0.700, &-0.704,-0.708,-0.711,-0.715,-0.719,-0.723,-0.726,-0.730,-0.733, &-0.737,-0.740,-0.744,-0.747,-0.750,-0.753,-0.757,-0.760,-0.763, &-0.766,-0.769,-0.772,-0.775,-0.778,-0.781,-0.784,-0.786,-0.789, &-0.792,-0.795,-0.797,-0.800,-0.803,-0.805,-0.808,-0.811,-0.813, &-0.816,-0.818,-0.821,-0.823,-0.825,-0.828,-0.830,-0.833,-0.835, &-0.837,-0.840,-0.842,-0.844,-0.847,-0.849,-0.851,-0.853,-0.856, &-0.858,-0.860,-0.862,-0.864,-0.867,-0.869,-0.871,-0.873,-0.875, &-0.877,-0.879,-0.881,-0.883,-0.885,-0.887,-0.889,-0.891,-0.893, &-0.895,-0.897,-0.899,-0.901,-0.903,-0.905,-0.907,-0.909,-0.911, &-0.913,-0.915,-0.916,-0.918,-0.920,-0.922,-0.924,-0.926,-0.928, &-0.929,-0.931,-0.933,-0.935,-0.936,-0.938,-0.940,-0.942,-0.944, &-0.945,-0.947,-0.949,-0.950,-0.952,-0.954,-0.956,-0.957,-0.959, &-0.961,-0.962,-0.964,-0.966,-0.967,-0.969,-0.971,-0.972,-0.974, &-0.975,-0.977,-0.979,-0.980,-0.982,-0.983,-0.985,-0.987,-0.988, &-0.990,-0.991,-0.993,-0.994,-0.996,-0.998,-0.999,-1.001,-1.002, &-1.004,-1.005,-1.007,-1.008,-1.010,-1.011,-1.013,-1.014,-1.016, &-1.017,-1.019,-1.020,-1.022,-1.023,-1.024,-1.026,-1.027,-1.029, &-1.030,-1.032,-1.033,-1.035,-1.036,-1.037,-1.039,-1.040,-1.042, &-1.043,-1.045,-1.046,-1.047,-1.049,-1.050,-1.052,-1.053,-1.054, &-1.056,-1.057,-1.058,-1.060,-1.061,-1.063,-1.064,-1.065,-1.067, &-1.068,-1.069,-1.071,-1.072,-1.073,-1.075,-1.076,-1.077,-1.079, &-1.080,-1.081,-1.083,-1.084,-1.085,-1.087,-1.088,-1.089,-1.090, &-1.092,-1.093,-1.094,-1.096,-1.097,-1.098,-1.100,-1.101,-1.102, &-1.103,-1.105,-1.106,-1.107,-1.108,-1.110,-1.111,-1.112,-1.113, &-1.115,-1.116,-1.117,-1.118,-1.120,-1.121,-1.122,-1.123,-1.125, &-1.126,-1.127,-1.128,-1.130,-1.131,-1.132,-1.133,-1.134,-1.136, &-1.137,-1.138,-1.139,-1.141,-1.142,-1.143,-1.144,-1.145,-1.147, &-1.148,-1.149,-1.150,-1.151,-1.153,-1.154,-1.155,-1.156,-1.157, &-1.158,-1.160,-1.161,-1.162,-1.163,-1.164,-1.165,-1.167,-1.168, &-1.169,-1.170,-1.171,-1.172,-1.174,-1.175,-1.176,-1.177,-1.178, &-1.179,-1.181,-1.182,-1.183,-1.184,-1.185,-1.186,-1.187,-1.189, &-1.190,-1.191,-1.192,-1.193,-1.194,-1.195,-1.196,-1.198,-1.199, &-1.200,-1.201,-1.202,-1.203,-1.204,-1.205,-1.207,-1.208,-1.209, &-1.210,-1.211,-1.212,-1.213,-1.214,-1.215,-1.216,-1.218,-1.219, &-1.220,-1.221,-1.222,-1.223,-1.224,-1.225,-1.226,-1.227,-1.228, &-1.230,-1.231,-1.232,-1.233,-1.234,-1.235,-1.236,-1.237,-1.238, &-1.239,-1.240,-1.241,-1.242,-1.244,-1.245,-1.246,-1.247,-1.248, &-1.249,-1.250,-1.251,-1.252,-1.253,-1.254,-1.255,-1.256,-1.257, &-1.258,-1.259,-1.261,-1.262,-1.263,-1.264,-1.265,-1.266,-1.267, &-1.268,-1.269,-1.270,-1.271,-1.282,-1.292,-1.303,-1.313,-1.323, &-1.332,-1.342,-1.352,-1.362,-1.371,-1.381,-1.390,-1.400,-1.409, &-1.418,-1.427,-1.437,-1.446,-1.455,-1.464,-1.473,-1.482,-1.491, &-1.499,-1.508,-1.517,-1.526,-1.534,-1.543,-1.552,-1.560,-1.569, &-1.577,-1.586,-1.594,-1.602,-1.611,-1.619,-1.627,-1.636,-1.644, &-1.652,-1.660,-1.668,-1.677,-1.685,-1.693,-1.701,-1.709,-1.717, &-1.725,-1.733,-1.741,-1.749,-1.757,-1.764,-1.772,-1.780,-1.788, &-1.796,-1.804,-1.811,-1.819,-1.827,-1.835,-1.842,-1.850,-1.858, &-1.865,-1.873,-1.880,-1.888,-1.896,-1.903,-1.911,-1.918,-1.926, &-1.933,-1.941,-1.948,-1.956,-1.963,-1.971,-1.978,-1.986,-1.993, &-2.000,-2.008,-2.015,-2.022,-2.030,-2.037,-2.044,-2.052,-2.059, &-2.066,-2.074,-2.081,-2.088,-2.095,-2.103,-2.110,-2.117,-2.124, &-2.131,-2.139,-2.146,-2.153,-2.160,-2.167,-2.174,-2.181,-2.189, &-2.196,-2.203,-2.210,-2.217,-2.224,-2.231,-2.238,-2.245,-2.252, &-2.259,-2.266,-2.273,-2.280,-2.287,-2.294,-2.301,-2.308,-2.315, &-2.322,-2.329,-2.336,-2.343,-2.350,-2.357,-2.364,-2.371,-2.378, &-2.385,-2.391,-2.398,-2.405,-2.412,-2.419,-2.426,-2.433,-2.439, &-2.446,-2.453,-2.460,-2.467,-2.474,-2.480,-2.487,-2.494,-2.501, &-2.508,-2.514,-2.521 & / C C *** (H,HSO4) C DATA BNC08M/ &-0.046,-0.090,-0.108,-0.118,-0.124,-0.128,-0.130,-0.132,-0.132, &-0.131,-0.130,-0.128,-0.125,-0.122,-0.119,-0.116,-0.112,-0.108, &-0.103,-0.098,-0.093,-0.088,-0.083,-0.077,-0.071,-0.065,-0.059, &-0.053,-0.046,-0.040,-0.033,-0.026,-0.019,-0.012,-0.004, 0.003, & 0.011, 0.018, 0.026, 0.034, 0.042, 0.050, 0.058, 0.066, 0.075, & 0.083, 0.091, 0.100, 0.109, 0.117, 0.126, 0.135, 0.144, 0.153, & 0.162, 0.171, 0.180, 0.189, 0.198, 0.207, 0.216, 0.226, 0.235, & 0.244, 0.254, 0.263, 0.273, 0.282, 0.292, 0.302, 0.311, 0.321, & 0.331, 0.341, 0.351, 0.361, 0.371, 0.381, 0.391, 0.401, 0.411, & 0.421, 0.432, 0.442, 0.452, 0.463, 0.473, 0.484, 0.495, 0.505, & 0.516, 0.527, 0.538, 0.549, 0.560, 0.571, 0.582, 0.593, 0.604, & 0.615, 0.626, 0.638, 0.649, 0.660, 0.672, 0.683, 0.694, 0.706, & 0.717, 0.729, 0.740, 0.752, 0.763, 0.775, 0.787, 0.798, 0.810, & 0.821, 0.833, 0.845, 0.856, 0.868, 0.879, 0.891, 0.903, 0.914, & 0.926, 0.937, 0.949, 0.961, 0.972, 0.984, 0.995, 1.007, 1.018, & 1.030, 1.041, 1.053, 1.064, 1.076, 1.087, 1.099, 1.110, 1.121, & 1.133, 1.144, 1.155, 1.167, 1.178, 1.189, 1.200, 1.212, 1.223, & 1.234, 1.245, 1.256, 1.267, 1.278, 1.289, 1.300, 1.311, 1.322, & 1.333, 1.344, 1.355, 1.366, 1.377, 1.388, 1.399, 1.409, 1.420, & 1.431, 1.442, 1.452, 1.463, 1.474, 1.485, 1.495, 1.506, 1.516, & 1.527, 1.537, 1.548, 1.558, 1.569, 1.579, 1.590, 1.600, 1.611, & 1.621, 1.631, 1.642, 1.652, 1.662, 1.672, 1.683, 1.693, 1.703, & 1.713, 1.723, 1.733, 1.743, 1.753, 1.763, 1.774, 1.784, 1.793, & 1.803, 1.813, 1.823, 1.833, 1.843, 1.853, 1.863, 1.872, 1.882, & 1.892, 1.902, 1.911, 1.921, 1.931, 1.940, 1.950, 1.960, 1.969, & 1.979, 1.988, 1.998, 2.007, 2.017, 2.026, 2.036, 2.045, 2.055, & 2.064, 2.073, 2.083, 2.092, 2.101, 2.111, 2.120, 2.129, 2.138, & 2.147, 2.157, 2.166, 2.175, 2.184, 2.193, 2.202, 2.211, 2.220, & 2.229, 2.238, 2.247, 2.256, 2.265, 2.274, 2.283, 2.292, 2.301, & 2.310, 2.318, 2.327, 2.336, 2.345, 2.354, 2.362, 2.371, 2.380, & 2.388, 2.397, 2.406, 2.414, 2.423, 2.432, 2.440, 2.449, 2.457, & 2.466, 2.474, 2.483, 2.491, 2.500, 2.508, 2.517, 2.525, 2.533, & 2.542, 2.550, 2.558, 2.567, 2.575, 2.583, 2.591, 2.600, 2.608, & 2.616, 2.624, 2.633, 2.641, 2.649, 2.657, 2.665, 2.673, 2.681, & 2.689, 2.697, 2.705, 2.713, 2.721, 2.729, 2.737, 2.745, 2.753, & 2.761, 2.769, 2.777, 2.785, 2.793, 2.801, 2.809, 2.816, 2.824, & 2.832, 2.840, 2.847, 2.855, 2.863, 2.871, 2.878, 2.886, 2.894, & 2.901, 2.909, 2.917, 2.924, 2.932, 2.939, 2.947, 2.955, 2.962, & 2.970, 2.977, 2.985, 2.992, 3.000, 3.007, 3.014, 3.022, 3.029, & 3.037, 3.044, 3.051, 3.059, 3.066, 3.074, 3.081, 3.088, 3.095, & 3.103, 3.110, 3.117, 3.125, 3.132, 3.139, 3.146, 3.153, 3.161, & 3.168, 3.175, 3.182, 3.189, 3.196, 3.203, 3.210, 3.217, 3.225, & 3.232, 3.239, 3.246, 3.253, 3.260, 3.267, 3.274, 3.281, 3.288, & 3.294, 3.301, 3.308, 3.315, 3.322, 3.329, 3.336, 3.343, 3.350, & 3.356, 3.363, 3.370, 3.377, 3.450, 3.516, 3.581, 3.645, 3.708, & 3.770, 3.831, 3.891, 3.950, 4.008, 4.065, 4.122, 4.178, 4.233, & 4.287, 4.340, 4.393, 4.445, 4.496, 4.547, 4.597, 4.646, 4.695, & 4.743, 4.790, 4.837, 4.884, 4.929, 4.974, 5.019, 5.063, 5.107, & 5.150, 5.193, 5.235, 5.277, 5.318, 5.359, 5.399, 5.439, 5.478, & 5.517, 5.556, 5.594, 5.632, 5.670, 5.707, 5.743, 5.780, 5.816, & 5.852, 5.887, 5.922, 5.956, 5.991, 6.025, 6.058, 6.092, 6.125, & 6.158, 6.190, 6.222, 6.254, 6.286, 6.317, 6.348, 6.379, 6.410, & 6.440, 6.470, 6.500, 6.529, 6.559, 6.588, 6.616, 6.645, 6.673, & 6.701, 6.729, 6.757, 6.784, 6.812, 6.839, 6.865, 6.892, 6.919, & 6.945, 6.971, 6.997, 7.022, 7.048, 7.073, 7.098, 7.123, 7.148, & 7.172, 7.196, 7.221, 7.245, 7.269, 7.292, 7.316, 7.339, 7.362, & 7.385, 7.408, 7.431, 7.454, 7.476, 7.498, 7.520, 7.542, 7.564, & 7.586, 7.607, 7.629, 7.650, 7.671, 7.692, 7.713, 7.734, 7.755, & 7.775, 7.795, 7.816, 7.836, 7.856, 7.876, 7.895, 7.915, 7.935, & 7.954, 7.973, 7.992, 8.012, 8.030, 8.049, 8.068, 8.087, 8.105, & 8.124, 8.142, 8.160, 8.178, 8.196, 8.214, 8.232, 8.250, 8.267, & 8.285, 8.302, 8.319, 8.337, 8.354, 8.371, 8.388, 8.404, 8.421, & 8.438, 8.454, 8.471 & / C C *** NH4HSO4 C DATA BNC09M/ &-0.048,-0.102,-0.128,-0.146,-0.159,-0.170,-0.179,-0.187,-0.194, &-0.200,-0.205,-0.210,-0.214,-0.218,-0.221,-0.224,-0.227,-0.230, &-0.232,-0.234,-0.235,-0.237,-0.238,-0.239,-0.240,-0.241,-0.242, &-0.242,-0.243,-0.243,-0.243,-0.243,-0.243,-0.243,-0.242,-0.242, &-0.241,-0.241,-0.240,-0.239,-0.238,-0.237,-0.236,-0.235,-0.234, &-0.233,-0.231,-0.230,-0.228,-0.227,-0.225,-0.224,-0.222,-0.220, &-0.218,-0.216,-0.214,-0.212,-0.210,-0.208,-0.206,-0.204,-0.202, &-0.199,-0.197,-0.195,-0.192,-0.190,-0.188,-0.185,-0.183,-0.180, &-0.178,-0.175,-0.172,-0.170,-0.167,-0.164,-0.161,-0.159,-0.156, &-0.153,-0.150,-0.147,-0.144,-0.141,-0.138,-0.135,-0.132,-0.129, &-0.126,-0.123,-0.119,-0.116,-0.113,-0.110,-0.106,-0.103,-0.100, &-0.096,-0.093,-0.090,-0.086,-0.083,-0.080,-0.076,-0.073,-0.069, &-0.066,-0.062,-0.059,-0.055,-0.052,-0.048,-0.045,-0.041,-0.037, &-0.034,-0.030,-0.027,-0.023,-0.020,-0.016,-0.012,-0.009,-0.005, &-0.002, 0.002, 0.005, 0.009, 0.013, 0.016, 0.020, 0.023, 0.027, & 0.030, 0.034, 0.037, 0.041, 0.044, 0.048, 0.051, 0.055, 0.058, & 0.062, 0.065, 0.069, 0.072, 0.076, 0.079, 0.083, 0.086, 0.090, & 0.093, 0.097, 0.100, 0.103, 0.107, 0.110, 0.114, 0.117, 0.120, & 0.124, 0.127, 0.130, 0.134, 0.137, 0.140, 0.144, 0.147, 0.150, & 0.154, 0.157, 0.160, 0.164, 0.167, 0.170, 0.173, 0.177, 0.180, & 0.183, 0.186, 0.189, 0.193, 0.196, 0.199, 0.202, 0.205, 0.209, & 0.212, 0.215, 0.218, 0.221, 0.224, 0.227, 0.231, 0.234, 0.237, & 0.240, 0.243, 0.246, 0.249, 0.252, 0.255, 0.258, 0.261, 0.264, & 0.267, 0.270, 0.273, 0.276, 0.279, 0.282, 0.285, 0.288, 0.291, & 0.294, 0.297, 0.300, 0.303, 0.306, 0.309, 0.312, 0.315, 0.317, & 0.320, 0.323, 0.326, 0.329, 0.332, 0.335, 0.338, 0.340, 0.343, & 0.346, 0.349, 0.352, 0.354, 0.357, 0.360, 0.363, 0.366, 0.368, & 0.371, 0.374, 0.377, 0.379, 0.382, 0.385, 0.388, 0.390, 0.393, & 0.396, 0.398, 0.401, 0.404, 0.407, 0.409, 0.412, 0.415, 0.417, & 0.420, 0.422, 0.425, 0.428, 0.430, 0.433, 0.436, 0.438, 0.441, & 0.443, 0.446, 0.449, 0.451, 0.454, 0.456, 0.459, 0.461, 0.464, & 0.467, 0.469, 0.472, 0.474, 0.477, 0.479, 0.482, 0.484, 0.487, & 0.489, 0.492, 0.494, 0.497, 0.499, 0.502, 0.504, 0.507, 0.509, & 0.511, 0.514, 0.516, 0.519, 0.521, 0.524, 0.526, 0.528, 0.531, & 0.533, 0.536, 0.538, 0.540, 0.543, 0.545, 0.548, 0.550, 0.552, & 0.555, 0.557, 0.559, 0.562, 0.564, 0.566, 0.569, 0.571, 0.573, & 0.576, 0.578, 0.580, 0.583, 0.585, 0.587, 0.589, 0.592, 0.594, & 0.596, 0.599, 0.601, 0.603, 0.605, 0.608, 0.610, 0.612, 0.614, & 0.617, 0.619, 0.621, 0.623, 0.625, 0.628, 0.630, 0.632, 0.634, & 0.636, 0.639, 0.641, 0.643, 0.645, 0.647, 0.649, 0.652, 0.654, & 0.656, 0.658, 0.660, 0.662, 0.665, 0.667, 0.669, 0.671, 0.673, & 0.675, 0.677, 0.679, 0.681, 0.684, 0.686, 0.688, 0.690, 0.692, & 0.694, 0.696, 0.698, 0.700, 0.702, 0.704, 0.706, 0.708, 0.710, & 0.713, 0.715, 0.717, 0.719, 0.721, 0.723, 0.725, 0.727, 0.729, & 0.731, 0.733, 0.735, 0.737, 0.758, 0.778, 0.797, 0.815, 0.834, & 0.852, 0.870, 0.887, 0.905, 0.922, 0.938, 0.955, 0.971, 0.987, & 1.003, 1.018, 1.033, 1.048, 1.063, 1.078, 1.092, 1.106, 1.120, & 1.134, 1.148, 1.161, 1.174, 1.187, 1.200, 1.213, 1.225, 1.238, & 1.250, 1.262, 1.274, 1.286, 1.297, 1.309, 1.320, 1.331, 1.342, & 1.353, 1.364, 1.374, 1.385, 1.395, 1.406, 1.416, 1.426, 1.436, & 1.446, 1.455, 1.465, 1.475, 1.484, 1.493, 1.502, 1.512, 1.521, & 1.529, 1.538, 1.547, 1.556, 1.564, 1.572, 1.581, 1.589, 1.597, & 1.605, 1.613, 1.621, 1.629, 1.637, 1.645, 1.652, 1.660, 1.667, & 1.675, 1.682, 1.689, 1.696, 1.704, 1.711, 1.718, 1.725, 1.731, & 1.738, 1.745, 1.752, 1.758, 1.765, 1.771, 1.778, 1.784, 1.790, & 1.796, 1.803, 1.809, 1.815, 1.821, 1.827, 1.833, 1.839, 1.844, & 1.850, 1.856, 1.861, 1.867, 1.873, 1.878, 1.884, 1.889, 1.894, & 1.900, 1.905, 1.910, 1.915, 1.920, 1.926, 1.931, 1.936, 1.941, & 1.946, 1.950, 1.955, 1.960, 1.965, 1.970, 1.974, 1.979, 1.983, & 1.988, 1.993, 1.997, 2.001, 2.006, 2.010, 2.015, 2.019, 2.023, & 2.027, 2.032, 2.036, 2.040, 2.044, 2.048, 2.052, 2.056, 2.060, & 2.064, 2.068, 2.072, 2.076, 2.080, 2.083, 2.087, 2.091, 2.095, & 2.098, 2.102, 2.106 & / C C *** (H,NO3) C DATA BNC10M/ &-0.047,-0.098,-0.120,-0.135,-0.145,-0.153,-0.158,-0.163,-0.167, &-0.169,-0.172,-0.173,-0.175,-0.176,-0.176,-0.176,-0.176,-0.176, &-0.176,-0.175,-0.175,-0.174,-0.173,-0.172,-0.170,-0.169,-0.168, &-0.166,-0.165,-0.163,-0.162,-0.160,-0.159,-0.157,-0.155,-0.153, &-0.151,-0.149,-0.148,-0.146,-0.144,-0.142,-0.140,-0.138,-0.136, &-0.134,-0.132,-0.130,-0.128,-0.126,-0.124,-0.122,-0.120,-0.118, &-0.115,-0.113,-0.111,-0.109,-0.107,-0.105,-0.103,-0.101,-0.099, &-0.097,-0.095,-0.093,-0.090,-0.088,-0.086,-0.084,-0.082,-0.080, &-0.078,-0.075,-0.073,-0.071,-0.069,-0.067,-0.064,-0.062,-0.060, &-0.057,-0.055,-0.053,-0.051,-0.048,-0.046,-0.043,-0.041,-0.039, &-0.036,-0.034,-0.031,-0.029,-0.026,-0.024,-0.021,-0.019,-0.016, &-0.014,-0.011,-0.008,-0.006,-0.003, 0.000, 0.002, 0.005, 0.007, & 0.010, 0.013, 0.016, 0.018, 0.021, 0.024, 0.026, 0.029, 0.032, & 0.035, 0.037, 0.040, 0.043, 0.046, 0.048, 0.051, 0.054, 0.057, & 0.059, 0.062, 0.065, 0.068, 0.070, 0.073, 0.076, 0.079, 0.081, & 0.084, 0.087, 0.090, 0.092, 0.095, 0.098, 0.101, 0.103, 0.106, & 0.109, 0.112, 0.114, 0.117, 0.120, 0.123, 0.125, 0.128, 0.131, & 0.133, 0.136, 0.139, 0.142, 0.144, 0.147, 0.150, 0.152, 0.155, & 0.158, 0.160, 0.163, 0.166, 0.168, 0.171, 0.174, 0.176, 0.179, & 0.182, 0.184, 0.187, 0.190, 0.192, 0.195, 0.198, 0.200, 0.203, & 0.205, 0.208, 0.211, 0.213, 0.216, 0.218, 0.221, 0.224, 0.226, & 0.229, 0.231, 0.234, 0.236, 0.239, 0.242, 0.244, 0.247, 0.249, & 0.252, 0.254, 0.257, 0.259, 0.262, 0.264, 0.267, 0.269, 0.272, & 0.275, 0.277, 0.280, 0.282, 0.285, 0.287, 0.289, 0.292, 0.294, & 0.297, 0.299, 0.302, 0.304, 0.307, 0.309, 0.312, 0.314, 0.317, & 0.319, 0.321, 0.324, 0.326, 0.329, 0.331, 0.334, 0.336, 0.338, & 0.341, 0.343, 0.346, 0.348, 0.350, 0.353, 0.355, 0.357, 0.360, & 0.362, 0.364, 0.367, 0.369, 0.372, 0.374, 0.376, 0.379, 0.381, & 0.383, 0.386, 0.388, 0.390, 0.392, 0.395, 0.397, 0.399, 0.402, & 0.404, 0.406, 0.409, 0.411, 0.413, 0.415, 0.418, 0.420, 0.422, & 0.424, 0.427, 0.429, 0.431, 0.433, 0.436, 0.438, 0.440, 0.442, & 0.445, 0.447, 0.449, 0.451, 0.453, 0.456, 0.458, 0.460, 0.462, & 0.464, 0.467, 0.469, 0.471, 0.473, 0.475, 0.477, 0.480, 0.482, & 0.484, 0.486, 0.488, 0.490, 0.492, 0.495, 0.497, 0.499, 0.501, & 0.503, 0.505, 0.507, 0.509, 0.511, 0.514, 0.516, 0.518, 0.520, & 0.522, 0.524, 0.526, 0.528, 0.530, 0.532, 0.534, 0.536, 0.539, & 0.541, 0.543, 0.545, 0.547, 0.549, 0.551, 0.553, 0.555, 0.557, & 0.559, 0.561, 0.563, 0.565, 0.567, 0.569, 0.571, 0.573, 0.575, & 0.577, 0.579, 0.581, 0.583, 0.585, 0.587, 0.589, 0.591, 0.593, & 0.595, 0.597, 0.599, 0.601, 0.603, 0.604, 0.606, 0.608, 0.610, & 0.612, 0.614, 0.616, 0.618, 0.620, 0.622, 0.624, 0.626, 0.628, & 0.629, 0.631, 0.633, 0.635, 0.637, 0.639, 0.641, 0.643, 0.645, & 0.646, 0.648, 0.650, 0.652, 0.654, 0.656, 0.658, 0.659, 0.661, & 0.663, 0.665, 0.667, 0.669, 0.671, 0.672, 0.674, 0.676, 0.678, & 0.680, 0.681, 0.683, 0.685, 0.704, 0.722, 0.739, 0.756, 0.773, & 0.790, 0.806, 0.822, 0.838, 0.853, 0.869, 0.884, 0.899, 0.913, & 0.928, 0.942, 0.956, 0.970, 0.983, 0.996, 1.010, 1.023, 1.036, & 1.048, 1.061, 1.073, 1.085, 1.097, 1.109, 1.121, 1.132, 1.144, & 1.155, 1.166, 1.177, 1.188, 1.198, 1.209, 1.219, 1.230, 1.240, & 1.250, 1.260, 1.270, 1.279, 1.289, 1.298, 1.308, 1.317, 1.326, & 1.335, 1.344, 1.353, 1.362, 1.370, 1.379, 1.387, 1.396, 1.404, & 1.412, 1.420, 1.428, 1.436, 1.444, 1.451, 1.459, 1.467, 1.474, & 1.481, 1.489, 1.496, 1.503, 1.510, 1.517, 1.524, 1.531, 1.538, & 1.545, 1.551, 1.558, 1.565, 1.571, 1.578, 1.584, 1.590, 1.596, & 1.603, 1.609, 1.615, 1.621, 1.627, 1.632, 1.638, 1.644, 1.650, & 1.655, 1.661, 1.667, 1.672, 1.678, 1.683, 1.688, 1.694, 1.699, & 1.704, 1.709, 1.714, 1.719, 1.724, 1.729, 1.734, 1.739, 1.744, & 1.749, 1.753, 1.758, 1.763, 1.767, 1.772, 1.776, 1.781, 1.785, & 1.790, 1.794, 1.799, 1.803, 1.807, 1.811, 1.815, 1.820, 1.824, & 1.828, 1.832, 1.836, 1.840, 1.844, 1.848, 1.852, 1.855, 1.859, & 1.863, 1.867, 1.870, 1.874, 1.878, 1.881, 1.885, 1.888, 1.892, & 1.895, 1.899, 1.902, 1.906, 1.909, 1.913, 1.916, 1.919, 1.922, & 1.926, 1.929, 1.932 & / C C *** (H,Cl) C DATA BNC11M/ &-0.046,-0.091,-0.110,-0.120,-0.127,-0.131,-0.133,-0.134,-0.134, &-0.134,-0.132,-0.131,-0.128,-0.126,-0.123,-0.120,-0.116,-0.112, &-0.108,-0.104,-0.099,-0.095,-0.090,-0.085,-0.080,-0.075,-0.070, &-0.064,-0.059,-0.053,-0.047,-0.042,-0.036,-0.030,-0.024,-0.018, &-0.011,-0.005, 0.001, 0.007, 0.014, 0.020, 0.026, 0.033, 0.039, & 0.046, 0.052, 0.059, 0.065, 0.072, 0.079, 0.085, 0.092, 0.099, & 0.105, 0.112, 0.119, 0.126, 0.132, 0.139, 0.146, 0.153, 0.160, & 0.166, 0.173, 0.180, 0.187, 0.194, 0.201, 0.208, 0.215, 0.222, & 0.229, 0.236, 0.243, 0.250, 0.257, 0.264, 0.272, 0.279, 0.286, & 0.293, 0.301, 0.308, 0.316, 0.323, 0.330, 0.338, 0.346, 0.353, & 0.361, 0.368, 0.376, 0.384, 0.392, 0.399, 0.407, 0.415, 0.423, & 0.431, 0.439, 0.447, 0.455, 0.463, 0.471, 0.479, 0.487, 0.495, & 0.503, 0.512, 0.520, 0.528, 0.536, 0.544, 0.553, 0.561, 0.569, & 0.577, 0.586, 0.594, 0.602, 0.610, 0.619, 0.627, 0.635, 0.643, & 0.652, 0.660, 0.668, 0.676, 0.685, 0.693, 0.701, 0.709, 0.718, & 0.726, 0.734, 0.742, 0.750, 0.759, 0.767, 0.775, 0.783, 0.791, & 0.799, 0.807, 0.815, 0.823, 0.832, 0.840, 0.848, 0.856, 0.864, & 0.872, 0.880, 0.888, 0.896, 0.903, 0.911, 0.919, 0.927, 0.935, & 0.943, 0.951, 0.959, 0.966, 0.974, 0.982, 0.990, 0.998, 1.005, & 1.013, 1.021, 1.029, 1.036, 1.044, 1.052, 1.059, 1.067, 1.075, & 1.082, 1.090, 1.097, 1.105, 1.112, 1.120, 1.128, 1.135, 1.143, & 1.150, 1.157, 1.165, 1.172, 1.180, 1.187, 1.195, 1.202, 1.209, & 1.217, 1.224, 1.231, 1.239, 1.246, 1.253, 1.260, 1.268, 1.275, & 1.282, 1.289, 1.296, 1.303, 1.311, 1.318, 1.325, 1.332, 1.339, & 1.346, 1.353, 1.360, 1.367, 1.374, 1.381, 1.388, 1.395, 1.402, & 1.409, 1.416, 1.423, 1.430, 1.437, 1.444, 1.451, 1.457, 1.464, & 1.471, 1.478, 1.485, 1.491, 1.498, 1.505, 1.512, 1.518, 1.525, & 1.532, 1.538, 1.545, 1.552, 1.558, 1.565, 1.572, 1.578, 1.585, & 1.591, 1.598, 1.604, 1.611, 1.617, 1.624, 1.630, 1.637, 1.643, & 1.650, 1.656, 1.663, 1.669, 1.675, 1.682, 1.688, 1.695, 1.701, & 1.707, 1.714, 1.720, 1.726, 1.732, 1.739, 1.745, 1.751, 1.757, & 1.764, 1.770, 1.776, 1.782, 1.788, 1.795, 1.801, 1.807, 1.813, & 1.819, 1.825, 1.831, 1.837, 1.843, 1.849, 1.855, 1.861, 1.867, & 1.873, 1.879, 1.885, 1.891, 1.897, 1.903, 1.909, 1.915, 1.921, & 1.927, 1.933, 1.939, 1.945, 1.950, 1.956, 1.962, 1.968, 1.974, & 1.979, 1.985, 1.991, 1.997, 2.003, 2.008, 2.014, 2.020, 2.025, & 2.031, 2.037, 2.042, 2.048, 2.054, 2.059, 2.065, 2.071, 2.076, & 2.082, 2.087, 2.093, 2.099, 2.104, 2.110, 2.115, 2.121, 2.126, & 2.132, 2.137, 2.143, 2.148, 2.154, 2.159, 2.165, 2.170, 2.175, & 2.181, 2.186, 2.192, 2.197, 2.202, 2.208, 2.213, 2.219, 2.224, & 2.229, 2.235, 2.240, 2.245, 2.250, 2.256, 2.261, 2.266, 2.271, & 2.277, 2.282, 2.287, 2.292, 2.298, 2.303, 2.308, 2.313, 2.318, & 2.323, 2.329, 2.334, 2.339, 2.344, 2.349, 2.354, 2.359, 2.364, & 2.369, 2.375, 2.380, 2.385, 2.390, 2.395, 2.400, 2.405, 2.410, & 2.415, 2.420, 2.425, 2.430, 2.483, 2.531, 2.579, 2.626, 2.672, & 2.717, 2.762, 2.806, 2.849, 2.891, 2.933, 2.975, 3.015, 3.056, & 3.095, 3.134, 3.173, 3.211, 3.248, 3.285, 3.322, 3.358, 3.393, & 3.428, 3.463, 3.497, 3.531, 3.564, 3.597, 3.629, 3.662, 3.693, & 3.725, 3.756, 3.786, 3.817, 3.847, 3.876, 3.906, 3.935, 3.963, & 3.992, 4.020, 4.048, 4.075, 4.102, 4.129, 4.156, 4.182, 4.208, & 4.234, 4.260, 4.285, 4.310, 4.335, 4.359, 4.384, 4.408, 4.432, & 4.456, 4.479, 4.502, 4.525, 4.548, 4.571, 4.593, 4.615, 4.637, & 4.659, 4.681, 4.702, 4.724, 4.745, 4.766, 4.786, 4.807, 4.827, & 4.847, 4.868, 4.887, 4.907, 4.927, 4.946, 4.965, 4.984, 5.003, & 5.022, 5.041, 5.059, 5.078, 5.096, 5.114, 5.132, 5.150, 5.168, & 5.185, 5.203, 5.220, 5.237, 5.254, 5.271, 5.288, 5.304, 5.321, & 5.337, 5.354, 5.370, 5.386, 5.402, 5.418, 5.434, 5.449, 5.465, & 5.480, 5.496, 5.511, 5.526, 5.541, 5.556, 5.571, 5.586, 5.600, & 5.615, 5.629, 5.644, 5.658, 5.672, 5.686, 5.700, 5.714, 5.728, & 5.742, 5.755, 5.769, 5.782, 5.796, 5.809, 5.822, 5.835, 5.848, & 5.861, 5.874, 5.887, 5.900, 5.913, 5.925, 5.938, 5.950, 5.963, & 5.975, 5.987, 5.999, 6.011, 6.023, 6.035, 6.047, 6.059, 6.071, & 6.083, 6.094, 6.106 & / C C *** NaHSO4 C DATA BNC12M/ &-0.047,-0.097,-0.120,-0.135,-0.146,-0.154,-0.160,-0.165,-0.170, &-0.173,-0.176,-0.178,-0.179,-0.181,-0.181,-0.182,-0.182,-0.182, &-0.182,-0.182,-0.181,-0.180,-0.179,-0.178,-0.176,-0.175,-0.173, &-0.172,-0.170,-0.168,-0.165,-0.163,-0.161,-0.158,-0.156,-0.153, &-0.150,-0.148,-0.145,-0.142,-0.139,-0.136,-0.132,-0.129,-0.126, &-0.123,-0.119,-0.116,-0.112,-0.109,-0.105,-0.101,-0.098,-0.094, &-0.090,-0.086,-0.082,-0.078,-0.074,-0.070,-0.066,-0.062,-0.058, &-0.054,-0.050,-0.046,-0.041,-0.037,-0.033,-0.028,-0.024,-0.020, &-0.015,-0.011,-0.006,-0.002, 0.003, 0.007, 0.012, 0.017, 0.021, & 0.026, 0.031, 0.036, 0.041, 0.045, 0.050, 0.055, 0.060, 0.065, & 0.070, 0.075, 0.080, 0.086, 0.091, 0.096, 0.101, 0.106, 0.112, & 0.117, 0.122, 0.128, 0.133, 0.138, 0.144, 0.149, 0.154, 0.160, & 0.165, 0.171, 0.176, 0.182, 0.187, 0.193, 0.198, 0.204, 0.209, & 0.215, 0.221, 0.226, 0.232, 0.237, 0.243, 0.248, 0.254, 0.259, & 0.265, 0.271, 0.276, 0.282, 0.287, 0.293, 0.298, 0.304, 0.309, & 0.315, 0.320, 0.326, 0.331, 0.337, 0.342, 0.348, 0.353, 0.358, & 0.364, 0.369, 0.375, 0.380, 0.386, 0.391, 0.396, 0.402, 0.407, & 0.412, 0.418, 0.423, 0.428, 0.434, 0.439, 0.444, 0.449, 0.455, & 0.460, 0.465, 0.470, 0.476, 0.481, 0.486, 0.491, 0.496, 0.502, & 0.507, 0.512, 0.517, 0.522, 0.527, 0.532, 0.537, 0.542, 0.548, & 0.553, 0.558, 0.563, 0.568, 0.573, 0.578, 0.583, 0.588, 0.593, & 0.598, 0.603, 0.607, 0.612, 0.617, 0.622, 0.627, 0.632, 0.637, & 0.642, 0.647, 0.651, 0.656, 0.661, 0.666, 0.671, 0.675, 0.680, & 0.685, 0.690, 0.694, 0.699, 0.704, 0.709, 0.713, 0.718, 0.723, & 0.727, 0.732, 0.737, 0.741, 0.746, 0.751, 0.755, 0.760, 0.764, & 0.769, 0.773, 0.778, 0.783, 0.787, 0.792, 0.796, 0.801, 0.805, & 0.810, 0.814, 0.819, 0.823, 0.828, 0.832, 0.836, 0.841, 0.845, & 0.850, 0.854, 0.858, 0.863, 0.867, 0.872, 0.876, 0.880, 0.885, & 0.889, 0.893, 0.898, 0.902, 0.906, 0.910, 0.915, 0.919, 0.923, & 0.928, 0.932, 0.936, 0.940, 0.944, 0.949, 0.953, 0.957, 0.961, & 0.965, 0.969, 0.974, 0.978, 0.982, 0.986, 0.990, 0.994, 0.998, & 1.002, 1.007, 1.011, 1.015, 1.019, 1.023, 1.027, 1.031, 1.035, & 1.039, 1.043, 1.047, 1.051, 1.055, 1.059, 1.063, 1.067, 1.071, & 1.075, 1.079, 1.083, 1.087, 1.091, 1.094, 1.098, 1.102, 1.106, & 1.110, 1.114, 1.118, 1.122, 1.125, 1.129, 1.133, 1.137, 1.141, & 1.145, 1.148, 1.152, 1.156, 1.160, 1.164, 1.167, 1.171, 1.175, & 1.179, 1.182, 1.186, 1.190, 1.194, 1.197, 1.201, 1.205, 1.208, & 1.212, 1.216, 1.219, 1.223, 1.227, 1.230, 1.234, 1.238, 1.241, & 1.245, 1.249, 1.252, 1.256, 1.259, 1.263, 1.267, 1.270, 1.274, & 1.277, 1.281, 1.284, 1.288, 1.292, 1.295, 1.299, 1.302, 1.306, & 1.309, 1.313, 1.316, 1.320, 1.323, 1.327, 1.330, 1.334, 1.337, & 1.341, 1.344, 1.347, 1.351, 1.354, 1.358, 1.361, 1.365, 1.368, & 1.371, 1.375, 1.378, 1.382, 1.385, 1.388, 1.392, 1.395, 1.398, & 1.402, 1.405, 1.408, 1.412, 1.415, 1.418, 1.422, 1.425, 1.428, & 1.432, 1.435, 1.438, 1.441, 1.477, 1.509, 1.540, 1.571, 1.601, & 1.631, 1.661, 1.690, 1.718, 1.747, 1.774, 1.802, 1.829, 1.855, & 1.881, 1.907, 1.933, 1.958, 1.983, 2.007, 2.031, 2.055, 2.079, & 2.102, 2.125, 2.147, 2.170, 2.192, 2.213, 2.235, 2.256, 2.277, & 2.298, 2.318, 2.339, 2.359, 2.378, 2.398, 2.417, 2.436, 2.455, & 2.474, 2.493, 2.511, 2.529, 2.547, 2.565, 2.582, 2.599, 2.617, & 2.634, 2.650, 2.667, 2.684, 2.700, 2.716, 2.732, 2.748, 2.763, & 2.779, 2.794, 2.810, 2.825, 2.840, 2.854, 2.869, 2.884, 2.898, & 2.912, 2.926, 2.940, 2.954, 2.968, 2.982, 2.995, 3.008, 3.022, & 3.035, 3.048, 3.061, 3.074, 3.086, 3.099, 3.111, 3.124, 3.136, & 3.148, 3.160, 3.172, 3.184, 3.196, 3.208, 3.219, 3.231, 3.242, & 3.254, 3.265, 3.276, 3.287, 3.298, 3.309, 3.320, 3.330, 3.341, & 3.352, 3.362, 3.373, 3.383, 3.393, 3.403, 3.413, 3.423, 3.433, & 3.443, 3.453, 3.463, 3.472, 3.482, 3.491, 3.501, 3.510, 3.520, & 3.529, 3.538, 3.547, 3.556, 3.565, 3.574, 3.583, 3.592, 3.601, & 3.609, 3.618, 3.626, 3.635, 3.643, 3.652, 3.660, 3.668, 3.677, & 3.685, 3.693, 3.701, 3.709, 3.717, 3.725, 3.733, 3.741, 3.748, & 3.756, 3.764, 3.771, 3.779, 3.786, 3.794, 3.801, 3.809, 3.816, & 3.823, 3.830, 3.838 & / C C *** (NH4)3H(SO4)2 C DATA BNC13M/ &-0.078,-0.169,-0.215,-0.247,-0.272,-0.293,-0.311,-0.326,-0.340, &-0.353,-0.364,-0.375,-0.384,-0.393,-0.402,-0.410,-0.417,-0.424, &-0.431,-0.437,-0.443,-0.448,-0.454,-0.459,-0.464,-0.469,-0.473, &-0.477,-0.482,-0.486,-0.489,-0.493,-0.497,-0.500,-0.503,-0.506, &-0.509,-0.512,-0.515,-0.518,-0.520,-0.523,-0.525,-0.528,-0.530, &-0.532,-0.534,-0.536,-0.538,-0.540,-0.542,-0.544,-0.546,-0.547, &-0.549,-0.550,-0.552,-0.553,-0.555,-0.556,-0.557,-0.559,-0.560, &-0.561,-0.562,-0.563,-0.564,-0.565,-0.566,-0.567,-0.568,-0.569, &-0.570,-0.571,-0.572,-0.572,-0.573,-0.574,-0.575,-0.575,-0.576, &-0.576,-0.577,-0.578,-0.578,-0.579,-0.579,-0.580,-0.580,-0.580, &-0.581,-0.581,-0.582,-0.582,-0.582,-0.582,-0.583,-0.583,-0.583, &-0.583,-0.584,-0.584,-0.584,-0.584,-0.584,-0.584,-0.584,-0.585, &-0.585,-0.585,-0.585,-0.585,-0.585,-0.585,-0.585,-0.585,-0.585, &-0.585,-0.585,-0.585,-0.585,-0.585,-0.585,-0.585,-0.585,-0.585, &-0.585,-0.584,-0.584,-0.584,-0.584,-0.584,-0.584,-0.584,-0.584, &-0.584,-0.584,-0.583,-0.583,-0.583,-0.583,-0.583,-0.583,-0.583, &-0.582,-0.582,-0.582,-0.582,-0.582,-0.582,-0.582,-0.581,-0.581, &-0.581,-0.581,-0.581,-0.581,-0.580,-0.580,-0.580,-0.580,-0.580, &-0.579,-0.579,-0.579,-0.579,-0.579,-0.579,-0.578,-0.578,-0.578, &-0.578,-0.578,-0.577,-0.577,-0.577,-0.577,-0.577,-0.577,-0.576, &-0.576,-0.576,-0.576,-0.576,-0.575,-0.575,-0.575,-0.575,-0.575, &-0.574,-0.574,-0.574,-0.574,-0.574,-0.574,-0.573,-0.573,-0.573, &-0.573,-0.573,-0.572,-0.572,-0.572,-0.572,-0.572,-0.571,-0.571, &-0.571,-0.571,-0.571,-0.571,-0.570,-0.570,-0.570,-0.570,-0.570, &-0.569,-0.569,-0.569,-0.569,-0.569,-0.569,-0.568,-0.568,-0.568, &-0.568,-0.568,-0.567,-0.567,-0.567,-0.567,-0.567,-0.567,-0.566, &-0.566,-0.566,-0.566,-0.566,-0.566,-0.565,-0.565,-0.565,-0.565, &-0.565,-0.565,-0.564,-0.564,-0.564,-0.564,-0.564,-0.564,-0.563, &-0.563,-0.563,-0.563,-0.563,-0.563,-0.562,-0.562,-0.562,-0.562, &-0.562,-0.562,-0.561,-0.561,-0.561,-0.561,-0.561,-0.561,-0.561, &-0.560,-0.560,-0.560,-0.560,-0.560,-0.560,-0.560,-0.559,-0.559, &-0.559,-0.559,-0.559,-0.559,-0.559,-0.558,-0.558,-0.558,-0.558, &-0.558,-0.558,-0.558,-0.557,-0.557,-0.557,-0.557,-0.557,-0.557, &-0.557,-0.556,-0.556,-0.556,-0.556,-0.556,-0.556,-0.556,-0.556, &-0.555,-0.555,-0.555,-0.555,-0.555,-0.555,-0.555,-0.555,-0.554, &-0.554,-0.554,-0.554,-0.554,-0.554,-0.554,-0.554,-0.554,-0.553, &-0.553,-0.553,-0.553,-0.553,-0.553,-0.553,-0.553,-0.553,-0.552, &-0.552,-0.552,-0.552,-0.552,-0.552,-0.552,-0.552,-0.552,-0.552, &-0.551,-0.551,-0.551,-0.551,-0.551,-0.551,-0.551,-0.551,-0.551, &-0.551,-0.550,-0.550,-0.550,-0.550,-0.550,-0.550,-0.550,-0.550, &-0.550,-0.550,-0.550,-0.549,-0.549,-0.549,-0.549,-0.549,-0.549, &-0.549,-0.549,-0.549,-0.549,-0.549,-0.549,-0.549,-0.548,-0.548, &-0.548,-0.548,-0.548,-0.548,-0.548,-0.548,-0.548,-0.548,-0.548, &-0.548,-0.548,-0.547,-0.547,-0.547,-0.547,-0.547,-0.547,-0.547, &-0.547,-0.547,-0.547,-0.547,-0.546,-0.546,-0.545,-0.545,-0.544, &-0.544,-0.544,-0.544,-0.544,-0.544,-0.544,-0.544,-0.544,-0.544, &-0.544,-0.544,-0.545,-0.545,-0.545,-0.546,-0.546,-0.547,-0.547, &-0.548,-0.548,-0.549,-0.550,-0.550,-0.551,-0.552,-0.553,-0.554, &-0.555,-0.556,-0.557,-0.558,-0.559,-0.560,-0.561,-0.562,-0.563, &-0.564,-0.566,-0.567,-0.568,-0.569,-0.571,-0.572,-0.573,-0.575, &-0.576,-0.578,-0.579,-0.581,-0.582,-0.584,-0.586,-0.587,-0.589, &-0.590,-0.592,-0.594,-0.595,-0.597,-0.599,-0.601,-0.603,-0.604, &-0.606,-0.608,-0.610,-0.612,-0.614,-0.616,-0.618,-0.620,-0.622, &-0.624,-0.626,-0.628,-0.630,-0.632,-0.634,-0.636,-0.638,-0.640, &-0.642,-0.644,-0.647,-0.649,-0.651,-0.653,-0.655,-0.658,-0.660, &-0.662,-0.664,-0.667,-0.669,-0.671,-0.674,-0.676,-0.678,-0.681, &-0.683,-0.686,-0.688,-0.690,-0.693,-0.695,-0.698,-0.700,-0.703, &-0.705,-0.708,-0.710,-0.713,-0.715,-0.718,-0.720,-0.723,-0.725, &-0.728,-0.731,-0.733,-0.736,-0.738,-0.741,-0.744,-0.746,-0.749, &-0.752,-0.754,-0.757,-0.760,-0.762,-0.765,-0.768,-0.770,-0.773, &-0.776,-0.779,-0.781,-0.784,-0.787,-0.790,-0.793,-0.795,-0.798, &-0.801,-0.804,-0.807,-0.809,-0.812,-0.815,-0.818,-0.821,-0.824, &-0.827,-0.829,-0.832 & / C C *** CASO4 C DATA BNC14M/ & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000 & / C C *** CANO32 C DATA BNC15M/ &-0.096,-0.206,-0.258,-0.293,-0.321,-0.342,-0.360,-0.376,-0.389, &-0.401,-0.411,-0.420,-0.429,-0.436,-0.443,-0.449,-0.455,-0.460, &-0.465,-0.469,-0.473,-0.477,-0.481,-0.484,-0.487,-0.490,-0.493, &-0.495,-0.497,-0.500,-0.502,-0.504,-0.505,-0.507,-0.509,-0.510, &-0.512,-0.513,-0.514,-0.515,-0.517,-0.518,-0.519,-0.520,-0.520, &-0.521,-0.522,-0.523,-0.524,-0.524,-0.525,-0.526,-0.526,-0.527, &-0.527,-0.528,-0.528,-0.529,-0.529,-0.530,-0.530,-0.530,-0.531, &-0.531,-0.531,-0.531,-0.532,-0.532,-0.532,-0.532,-0.532,-0.532, &-0.533,-0.533,-0.533,-0.533,-0.533,-0.533,-0.533,-0.533,-0.533, &-0.532,-0.532,-0.532,-0.532,-0.532,-0.532,-0.531,-0.531,-0.531, &-0.530,-0.530,-0.530,-0.529,-0.529,-0.529,-0.528,-0.528,-0.527, &-0.527,-0.526,-0.526,-0.525,-0.525,-0.524,-0.524,-0.523,-0.523, &-0.522,-0.521,-0.521,-0.520,-0.519,-0.519,-0.518,-0.517,-0.517, &-0.516,-0.515,-0.515,-0.514,-0.513,-0.512,-0.512,-0.511,-0.510, &-0.509,-0.509,-0.508,-0.507,-0.506,-0.506,-0.505,-0.504,-0.503, &-0.503,-0.502,-0.501,-0.500,-0.499,-0.499,-0.498,-0.497,-0.496, &-0.495,-0.495,-0.494,-0.493,-0.492,-0.491,-0.491,-0.490,-0.489, &-0.488,-0.487,-0.486,-0.486,-0.485,-0.484,-0.483,-0.482,-0.482, &-0.481,-0.480,-0.479,-0.478,-0.477,-0.477,-0.476,-0.475,-0.474, &-0.473,-0.472,-0.472,-0.471,-0.470,-0.469,-0.468,-0.468,-0.467, &-0.466,-0.465,-0.464,-0.463,-0.463,-0.462,-0.461,-0.460,-0.459, &-0.459,-0.458,-0.457,-0.456,-0.455,-0.455,-0.454,-0.453,-0.452, &-0.451,-0.450,-0.450,-0.449,-0.448,-0.447,-0.446,-0.446,-0.445, &-0.444,-0.443,-0.442,-0.442,-0.441,-0.440,-0.439,-0.438,-0.438, &-0.437,-0.436,-0.435,-0.435,-0.434,-0.433,-0.432,-0.431,-0.431, &-0.430,-0.429,-0.428,-0.427,-0.427,-0.426,-0.425,-0.424,-0.424, &-0.423,-0.422,-0.421,-0.421,-0.420,-0.419,-0.418,-0.417,-0.417, &-0.416,-0.415,-0.414,-0.414,-0.413,-0.412,-0.411,-0.411,-0.410, &-0.409,-0.408,-0.408,-0.407,-0.406,-0.405,-0.405,-0.404,-0.403, &-0.402,-0.402,-0.401,-0.400,-0.400,-0.399,-0.398,-0.397,-0.397, &-0.396,-0.395,-0.394,-0.394,-0.393,-0.392,-0.392,-0.391,-0.390, &-0.389,-0.389,-0.388,-0.387,-0.387,-0.386,-0.385,-0.385,-0.384, &-0.383,-0.382,-0.382,-0.381,-0.380,-0.380,-0.379,-0.378,-0.378, &-0.377,-0.376,-0.376,-0.375,-0.374,-0.374,-0.373,-0.372,-0.371, &-0.371,-0.370,-0.369,-0.369,-0.368,-0.367,-0.367,-0.366,-0.365, &-0.365,-0.364,-0.364,-0.363,-0.362,-0.362,-0.361,-0.360,-0.360, &-0.359,-0.358,-0.358,-0.357,-0.356,-0.356,-0.355,-0.354,-0.354, &-0.353,-0.353,-0.352,-0.351,-0.351,-0.350,-0.349,-0.349,-0.348, &-0.348,-0.347,-0.346,-0.346,-0.345,-0.344,-0.344,-0.343,-0.343, &-0.342,-0.341,-0.341,-0.340,-0.340,-0.339,-0.338,-0.338,-0.337, &-0.337,-0.336,-0.335,-0.335,-0.334,-0.334,-0.333,-0.332,-0.332, &-0.331,-0.331,-0.330,-0.330,-0.329,-0.328,-0.328,-0.327,-0.327, &-0.326,-0.326,-0.325,-0.324,-0.324,-0.323,-0.323,-0.322,-0.322, &-0.321,-0.320,-0.320,-0.319,-0.319,-0.318,-0.318,-0.317,-0.317, &-0.316,-0.316,-0.315,-0.314,-0.309,-0.303,-0.298,-0.293,-0.288, &-0.284,-0.279,-0.275,-0.270,-0.266,-0.262,-0.258,-0.254,-0.250, &-0.246,-0.242,-0.239,-0.235,-0.232,-0.229,-0.226,-0.223,-0.219, &-0.217,-0.214,-0.211,-0.208,-0.206,-0.203,-0.201,-0.198,-0.196, &-0.194,-0.192,-0.190,-0.188,-0.186,-0.184,-0.182,-0.180,-0.179, &-0.177,-0.175,-0.174,-0.173,-0.171,-0.170,-0.169,-0.167,-0.166, &-0.165,-0.164,-0.163,-0.162,-0.161,-0.161,-0.160,-0.159,-0.158, &-0.158,-0.157,-0.157,-0.156,-0.156,-0.155,-0.155,-0.155,-0.154, &-0.154,-0.154,-0.154,-0.154,-0.153,-0.153,-0.153,-0.153,-0.153, &-0.154,-0.154,-0.154,-0.154,-0.154,-0.155,-0.155,-0.155,-0.156, &-0.156,-0.157,-0.157,-0.158,-0.158,-0.159,-0.159,-0.160,-0.161, &-0.161,-0.162,-0.163,-0.164,-0.164,-0.165,-0.166,-0.167,-0.168, &-0.169,-0.170,-0.171,-0.172,-0.173,-0.174,-0.175,-0.176,-0.177, &-0.179,-0.180,-0.181,-0.182,-0.183,-0.185,-0.186,-0.187,-0.189, &-0.190,-0.192,-0.193,-0.194,-0.196,-0.197,-0.199,-0.200,-0.202, &-0.203,-0.205,-0.207,-0.208,-0.210,-0.212,-0.213,-0.215,-0.217, &-0.218,-0.220,-0.222,-0.224,-0.225,-0.227,-0.229,-0.231,-0.233, &-0.235,-0.237,-0.239,-0.240,-0.242,-0.244,-0.246,-0.248,-0.250, &-0.252,-0.254,-0.256 & / C C *** CACL2 C DATA BNC16M/ &-0.095,-0.197,-0.242,-0.272,-0.293,-0.309,-0.321,-0.331,-0.339, &-0.345,-0.351,-0.355,-0.358,-0.360,-0.362,-0.363,-0.363,-0.364, &-0.364,-0.363,-0.362,-0.361,-0.360,-0.358,-0.357,-0.355,-0.353, &-0.350,-0.348,-0.345,-0.343,-0.340,-0.337,-0.334,-0.331,-0.328, &-0.325,-0.322,-0.319,-0.316,-0.312,-0.309,-0.306,-0.302,-0.299, &-0.295,-0.292,-0.289,-0.285,-0.282,-0.278,-0.274,-0.271,-0.267, &-0.264,-0.260,-0.257,-0.253,-0.249,-0.246,-0.242,-0.239,-0.235, &-0.231,-0.228,-0.224,-0.220,-0.217,-0.213,-0.209,-0.205,-0.202, &-0.198,-0.194,-0.190,-0.186,-0.182,-0.178,-0.175,-0.171,-0.167, &-0.163,-0.158,-0.154,-0.150,-0.146,-0.142,-0.138,-0.134,-0.129, &-0.125,-0.121,-0.116,-0.112,-0.107,-0.103,-0.099,-0.094,-0.090, &-0.085,-0.080,-0.076,-0.071,-0.066,-0.062,-0.057,-0.052,-0.048, &-0.043,-0.038,-0.033,-0.028,-0.024,-0.019,-0.014,-0.009,-0.004, & 0.001, 0.006, 0.010, 0.015, 0.020, 0.025, 0.030, 0.035, 0.040, & 0.045, 0.050, 0.055, 0.060, 0.064, 0.069, 0.074, 0.079, 0.084, & 0.089, 0.094, 0.099, 0.104, 0.109, 0.114, 0.119, 0.123, 0.128, & 0.133, 0.138, 0.143, 0.148, 0.153, 0.158, 0.162, 0.167, 0.172, & 0.177, 0.182, 0.187, 0.191, 0.196, 0.201, 0.206, 0.211, 0.215, & 0.220, 0.225, 0.230, 0.235, 0.239, 0.244, 0.249, 0.254, 0.258, & 0.263, 0.268, 0.272, 0.277, 0.282, 0.287, 0.291, 0.296, 0.301, & 0.305, 0.310, 0.315, 0.319, 0.324, 0.329, 0.333, 0.338, 0.342, & 0.347, 0.352, 0.356, 0.361, 0.365, 0.370, 0.375, 0.379, 0.384, & 0.388, 0.393, 0.397, 0.402, 0.406, 0.411, 0.415, 0.420, 0.424, & 0.429, 0.433, 0.438, 0.442, 0.447, 0.451, 0.456, 0.460, 0.464, & 0.469, 0.473, 0.478, 0.482, 0.487, 0.491, 0.495, 0.500, 0.504, & 0.508, 0.513, 0.517, 0.521, 0.526, 0.530, 0.534, 0.539, 0.543, & 0.547, 0.552, 0.556, 0.560, 0.564, 0.569, 0.573, 0.577, 0.581, & 0.586, 0.590, 0.594, 0.598, 0.602, 0.607, 0.611, 0.615, 0.619, & 0.623, 0.627, 0.632, 0.636, 0.640, 0.644, 0.648, 0.652, 0.656, & 0.660, 0.664, 0.669, 0.673, 0.677, 0.681, 0.685, 0.689, 0.693, & 0.697, 0.701, 0.705, 0.709, 0.713, 0.717, 0.721, 0.725, 0.729, & 0.733, 0.737, 0.741, 0.745, 0.749, 0.753, 0.757, 0.761, 0.765, & 0.768, 0.772, 0.776, 0.780, 0.784, 0.788, 0.792, 0.796, 0.799, & 0.803, 0.807, 0.811, 0.815, 0.819, 0.823, 0.826, 0.830, 0.834, & 0.838, 0.842, 0.845, 0.849, 0.853, 0.857, 0.860, 0.864, 0.868, & 0.872, 0.875, 0.879, 0.883, 0.886, 0.890, 0.894, 0.898, 0.901, & 0.905, 0.909, 0.912, 0.916, 0.920, 0.923, 0.927, 0.930, 0.934, & 0.938, 0.941, 0.945, 0.949, 0.952, 0.956, 0.959, 0.963, 0.966, & 0.970, 0.974, 0.977, 0.981, 0.984, 0.988, 0.991, 0.995, 0.998, & 1.002, 1.005, 1.009, 1.012, 1.016, 1.019, 1.023, 1.026, 1.030, & 1.033, 1.037, 1.040, 1.044, 1.047, 1.050, 1.054, 1.057, 1.061, & 1.064, 1.067, 1.071, 1.074, 1.078, 1.081, 1.084, 1.088, 1.091, & 1.094, 1.098, 1.101, 1.105, 1.108, 1.111, 1.115, 1.118, 1.121, & 1.124, 1.128, 1.131, 1.134, 1.138, 1.141, 1.144, 1.147, 1.151, & 1.154, 1.157, 1.160, 1.164, 1.198, 1.230, 1.261, 1.292, 1.322, & 1.351, 1.380, 1.409, 1.437, 1.465, 1.492, 1.519, 1.546, 1.572, & 1.598, 1.623, 1.648, 1.673, 1.697, 1.721, 1.745, 1.768, 1.791, & 1.814, 1.836, 1.858, 1.880, 1.901, 1.922, 1.943, 1.964, 1.984, & 2.004, 2.024, 2.044, 2.063, 2.082, 2.101, 2.119, 2.138, 2.156, & 2.174, 2.191, 2.209, 2.226, 2.243, 2.260, 2.276, 2.293, 2.309, & 2.325, 2.341, 2.357, 2.372, 2.387, 2.403, 2.418, 2.432, 2.447, & 2.461, 2.476, 2.490, 2.504, 2.518, 2.531, 2.545, 2.558, 2.571, & 2.585, 2.597, 2.610, 2.623, 2.635, 2.648, 2.660, 2.672, 2.684, & 2.696, 2.708, 2.720, 2.731, 2.742, 2.754, 2.765, 2.776, 2.787, & 2.798, 2.808, 2.819, 2.830, 2.840, 2.850, 2.860, 2.871, 2.881, & 2.890, 2.900, 2.910, 2.920, 2.929, 2.938, 2.948, 2.957, 2.966, & 2.975, 2.984, 2.993, 3.002, 3.011, 3.019, 3.028, 3.036, 3.045, & 3.053, 3.061, 3.069, 3.077, 3.085, 3.093, 3.101, 3.109, 3.117, & 3.124, 3.132, 3.139, 3.147, 3.154, 3.161, 3.168, 3.176, 3.183, & 3.190, 3.197, 3.203, 3.210, 3.217, 3.224, 3.230, 3.237, 3.243, & 3.250, 3.256, 3.263, 3.269, 3.275, 3.281, 3.287, 3.293, 3.299, & 3.305, 3.311, 3.317, 3.323, 3.329, 3.334, 3.340, 3.345, 3.351, & 3.356, 3.362, 3.367 & / C C *** K2SO4 C DATA BNC17M/ &-0.098,-0.214,-0.273,-0.315,-0.347,-0.375,-0.399,-0.419,-0.438, &-0.455,-0.470,-0.485,-0.498,-0.511,-0.522,-0.533,-0.544,-0.554, &-0.563,-0.572,-0.581,-0.590,-0.598,-0.605,-0.613,-0.620,-0.627, &-0.634,-0.641,-0.647,-0.653,-0.660,-0.666,-0.671,-0.677,-0.683, &-0.688,-0.693,-0.698,-0.703,-0.708,-0.713,-0.718,-0.723,-0.727, &-0.732,-0.736,-0.741,-0.745,-0.749,-0.753,-0.757,-0.762,-0.765, &-0.769,-0.773,-0.777,-0.781,-0.784,-0.788,-0.792,-0.795,-0.799, &-0.802,-0.806,-0.809,-0.812,-0.816,-0.819,-0.822,-0.825,-0.829, &-0.832,-0.835,-0.838,-0.841,-0.844,-0.847,-0.850,-0.853,-0.856, &-0.859,-0.862,-0.865,-0.867,-0.870,-0.873,-0.876,-0.879,-0.881, &-0.884,-0.887,-0.890,-0.892,-0.895,-0.898,-0.900,-0.903,-0.905, &-0.908,-0.911,-0.913,-0.916,-0.918,-0.921,-0.923,-0.926,-0.928, &-0.931,-0.933,-0.936,-0.938,-0.940,-0.943,-0.945,-0.948,-0.950, &-0.952,-0.955,-0.957,-0.959,-0.962,-0.964,-0.966,-0.969,-0.971, &-0.973,-0.975,-0.978,-0.980,-0.982,-0.984,-0.986,-0.989,-0.991, &-0.993,-0.995,-0.997,-0.999,-1.002,-1.004,-1.006,-1.008,-1.010, &-1.012,-1.014,-1.016,-1.018,-1.020,-1.022,-1.024,-1.026,-1.028, &-1.030,-1.032,-1.034,-1.036,-1.038,-1.040,-1.042,-1.044,-1.046, &-1.048,-1.050,-1.052,-1.054,-1.056,-1.058,-1.060,-1.062,-1.064, &-1.066,-1.067,-1.069,-1.071,-1.073,-1.075,-1.077,-1.079,-1.080, &-1.082,-1.084,-1.086,-1.088,-1.090,-1.091,-1.093,-1.095,-1.097, &-1.099,-1.100,-1.102,-1.104,-1.106,-1.107,-1.109,-1.111,-1.113, &-1.114,-1.116,-1.118,-1.120,-1.121,-1.123,-1.125,-1.127,-1.128, &-1.130,-1.132,-1.133,-1.135,-1.137,-1.138,-1.140,-1.142,-1.143, &-1.145,-1.147,-1.148,-1.150,-1.152,-1.153,-1.155,-1.157,-1.158, &-1.160,-1.162,-1.163,-1.165,-1.166,-1.168,-1.170,-1.171,-1.173, &-1.174,-1.176,-1.178,-1.179,-1.181,-1.182,-1.184,-1.185,-1.187, &-1.189,-1.190,-1.192,-1.193,-1.195,-1.196,-1.198,-1.199,-1.201, &-1.203,-1.204,-1.206,-1.207,-1.209,-1.210,-1.212,-1.213,-1.215, &-1.216,-1.218,-1.219,-1.221,-1.222,-1.224,-1.225,-1.227,-1.228, &-1.230,-1.231,-1.233,-1.234,-1.236,-1.237,-1.238,-1.240,-1.241, &-1.243,-1.244,-1.246,-1.247,-1.249,-1.250,-1.252,-1.253,-1.254, &-1.256,-1.257,-1.259,-1.260,-1.262,-1.263,-1.264,-1.266,-1.267, &-1.269,-1.270,-1.271,-1.273,-1.274,-1.276,-1.277,-1.278,-1.280, &-1.281,-1.283,-1.284,-1.285,-1.287,-1.288,-1.290,-1.291,-1.292, &-1.294,-1.295,-1.296,-1.298,-1.299,-1.301,-1.302,-1.303,-1.305, &-1.306,-1.307,-1.309,-1.310,-1.311,-1.313,-1.314,-1.315,-1.317, &-1.318,-1.319,-1.321,-1.322,-1.323,-1.325,-1.326,-1.327,-1.329, &-1.330,-1.331,-1.333,-1.334,-1.335,-1.337,-1.338,-1.339,-1.341, &-1.342,-1.343,-1.344,-1.346,-1.347,-1.348,-1.350,-1.351,-1.352, &-1.354,-1.355,-1.356,-1.357,-1.359,-1.360,-1.361,-1.363,-1.364, &-1.365,-1.366,-1.368,-1.369,-1.370,-1.371,-1.373,-1.374,-1.375, &-1.376,-1.378,-1.379,-1.380,-1.381,-1.383,-1.384,-1.385,-1.387, &-1.388,-1.389,-1.390,-1.391,-1.393,-1.394,-1.395,-1.396,-1.398, &-1.399,-1.400,-1.401,-1.403,-1.416,-1.428,-1.440,-1.452,-1.463, &-1.475,-1.487,-1.498,-1.509,-1.520,-1.532,-1.543,-1.554,-1.564, &-1.575,-1.586,-1.596,-1.607,-1.617,-1.628,-1.638,-1.648,-1.659, &-1.669,-1.679,-1.689,-1.699,-1.709,-1.719,-1.729,-1.738,-1.748, &-1.758,-1.767,-1.777,-1.786,-1.796,-1.805,-1.815,-1.824,-1.833, &-1.843,-1.852,-1.861,-1.870,-1.879,-1.888,-1.897,-1.906,-1.915, &-1.924,-1.933,-1.942,-1.951,-1.960,-1.969,-1.977,-1.986,-1.995, &-2.004,-2.012,-2.021,-2.029,-2.038,-2.047,-2.055,-2.064,-2.072, &-2.081,-2.089,-2.097,-2.106,-2.114,-2.123,-2.131,-2.139,-2.147, &-2.156,-2.164,-2.172,-2.180,-2.189,-2.197,-2.205,-2.213,-2.221, &-2.229,-2.237,-2.245,-2.253,-2.261,-2.269,-2.277,-2.285,-2.293, &-2.301,-2.309,-2.317,-2.325,-2.333,-2.341,-2.349,-2.356,-2.364, &-2.372,-2.380,-2.388,-2.395,-2.403,-2.411,-2.419,-2.426,-2.434, &-2.442,-2.449,-2.457,-2.465,-2.472,-2.480,-2.488,-2.495,-2.503, &-2.510,-2.518,-2.525,-2.533,-2.541,-2.548,-2.556,-2.563,-2.571, &-2.578,-2.586,-2.593,-2.600,-2.608,-2.615,-2.623,-2.630,-2.638, &-2.645,-2.652,-2.660,-2.667,-2.674,-2.682,-2.689,-2.696,-2.704, &-2.711,-2.718,-2.726,-2.733,-2.740,-2.747,-2.755,-2.762,-2.769, &-2.776,-2.784,-2.791 & / C C *** KHSO4 C DATA BNC18M/ &-0.048,-0.102,-0.127,-0.145,-0.158,-0.169,-0.178,-0.185,-0.192, &-0.198,-0.203,-0.207,-0.211,-0.215,-0.218,-0.221,-0.224,-0.226, &-0.228,-0.230,-0.231,-0.232,-0.234,-0.235,-0.235,-0.236,-0.237, &-0.237,-0.237,-0.237,-0.237,-0.237,-0.237,-0.236,-0.236,-0.235, &-0.234,-0.234,-0.233,-0.232,-0.231,-0.230,-0.228,-0.227,-0.226, &-0.224,-0.223,-0.221,-0.220,-0.218,-0.216,-0.214,-0.212,-0.210, &-0.208,-0.206,-0.204,-0.202,-0.200,-0.198,-0.196,-0.193,-0.191, &-0.189,-0.186,-0.184,-0.181,-0.179,-0.176,-0.173,-0.171,-0.168, &-0.165,-0.163,-0.160,-0.157,-0.154,-0.151,-0.148,-0.146,-0.143, &-0.140,-0.137,-0.133,-0.130,-0.127,-0.124,-0.121,-0.118,-0.115, &-0.111,-0.108,-0.105,-0.101,-0.098,-0.095,-0.091,-0.088,-0.084, &-0.081,-0.077,-0.074,-0.070,-0.067,-0.063,-0.060,-0.056,-0.052, &-0.049,-0.045,-0.042,-0.038,-0.034,-0.031,-0.027,-0.023,-0.020, &-0.016,-0.012,-0.008,-0.005,-0.001, 0.003, 0.006, 0.010, 0.014, & 0.018, 0.021, 0.025, 0.029, 0.032, 0.036, 0.040, 0.043, 0.047, & 0.051, 0.054, 0.058, 0.062, 0.065, 0.069, 0.073, 0.076, 0.080, & 0.084, 0.087, 0.091, 0.094, 0.098, 0.102, 0.105, 0.109, 0.112, & 0.116, 0.119, 0.123, 0.127, 0.130, 0.134, 0.137, 0.141, 0.144, & 0.148, 0.151, 0.155, 0.158, 0.162, 0.165, 0.168, 0.172, 0.175, & 0.179, 0.182, 0.186, 0.189, 0.192, 0.196, 0.199, 0.202, 0.206, & 0.209, 0.212, 0.216, 0.219, 0.222, 0.226, 0.229, 0.232, 0.236, & 0.239, 0.242, 0.245, 0.249, 0.252, 0.255, 0.258, 0.262, 0.265, & 0.268, 0.271, 0.274, 0.278, 0.281, 0.284, 0.287, 0.290, 0.293, & 0.297, 0.300, 0.303, 0.306, 0.309, 0.312, 0.315, 0.318, 0.321, & 0.324, 0.327, 0.330, 0.334, 0.337, 0.340, 0.343, 0.346, 0.349, & 0.352, 0.355, 0.358, 0.361, 0.364, 0.367, 0.369, 0.372, 0.375, & 0.378, 0.381, 0.384, 0.387, 0.390, 0.393, 0.396, 0.399, 0.402, & 0.404, 0.407, 0.410, 0.413, 0.416, 0.419, 0.422, 0.424, 0.427, & 0.430, 0.433, 0.436, 0.438, 0.441, 0.444, 0.447, 0.450, 0.452, & 0.455, 0.458, 0.461, 0.463, 0.466, 0.469, 0.471, 0.474, 0.477, & 0.480, 0.482, 0.485, 0.488, 0.490, 0.493, 0.496, 0.498, 0.501, & 0.504, 0.506, 0.509, 0.512, 0.514, 0.517, 0.519, 0.522, 0.525, & 0.527, 0.530, 0.532, 0.535, 0.538, 0.540, 0.543, 0.545, 0.548, & 0.550, 0.553, 0.555, 0.558, 0.560, 0.563, 0.566, 0.568, 0.571, & 0.573, 0.576, 0.578, 0.581, 0.583, 0.585, 0.588, 0.590, 0.593, & 0.595, 0.598, 0.600, 0.603, 0.605, 0.607, 0.610, 0.612, 0.615, & 0.617, 0.620, 0.622, 0.624, 0.627, 0.629, 0.632, 0.634, 0.636, & 0.639, 0.641, 0.643, 0.646, 0.648, 0.650, 0.653, 0.655, 0.657, & 0.660, 0.662, 0.664, 0.667, 0.669, 0.671, 0.674, 0.676, 0.678, & 0.680, 0.683, 0.685, 0.687, 0.689, 0.692, 0.694, 0.696, 0.699, & 0.701, 0.703, 0.705, 0.707, 0.710, 0.712, 0.714, 0.716, 0.719, & 0.721, 0.723, 0.725, 0.727, 0.730, 0.732, 0.734, 0.736, 0.738, & 0.740, 0.743, 0.745, 0.747, 0.749, 0.751, 0.753, 0.755, 0.758, & 0.760, 0.762, 0.764, 0.766, 0.768, 0.770, 0.772, 0.775, 0.777, & 0.779, 0.781, 0.783, 0.785, 0.807, 0.828, 0.848, 0.867, 0.886, & 0.905, 0.924, 0.942, 0.960, 0.978, 0.995, 1.013, 1.029, 1.046, & 1.062, 1.079, 1.095, 1.110, 1.126, 1.141, 1.156, 1.171, 1.185, & 1.200, 1.214, 1.228, 1.242, 1.256, 1.269, 1.282, 1.295, 1.308, & 1.321, 1.334, 1.346, 1.359, 1.371, 1.383, 1.395, 1.406, 1.418, & 1.429, 1.441, 1.452, 1.463, 1.474, 1.485, 1.495, 1.506, 1.516, & 1.527, 1.537, 1.547, 1.557, 1.567, 1.577, 1.586, 1.596, 1.605, & 1.615, 1.624, 1.633, 1.642, 1.651, 1.660, 1.669, 1.678, 1.686, & 1.695, 1.703, 1.711, 1.720, 1.728, 1.736, 1.744, 1.752, 1.760, & 1.768, 1.775, 1.783, 1.791, 1.798, 1.806, 1.813, 1.820, 1.828, & 1.835, 1.842, 1.849, 1.856, 1.863, 1.870, 1.876, 1.883, 1.890, & 1.896, 1.903, 1.909, 1.916, 1.922, 1.928, 1.935, 1.941, 1.947, & 1.953, 1.959, 1.965, 1.971, 1.977, 1.983, 1.989, 1.994, 2.000, & 2.006, 2.011, 2.017, 2.022, 2.028, 2.033, 2.039, 2.044, 2.049, & 2.054, 2.060, 2.065, 2.070, 2.075, 2.080, 2.085, 2.090, 2.095, & 2.100, 2.104, 2.109, 2.114, 2.119, 2.123, 2.128, 2.132, 2.137, & 2.142, 2.146, 2.150, 2.155, 2.159, 2.164, 2.168, 2.172, 2.176, & 2.181, 2.185, 2.189, 2.193, 2.197, 2.201, 2.205, 2.209, 2.213, & 2.217, 2.221, 2.225 & / C C *** KNO3 C DATA BNC19M/ &-0.051,-0.116,-0.152,-0.180,-0.203,-0.223,-0.241,-0.257,-0.272, &-0.286,-0.300,-0.313,-0.325,-0.336,-0.348,-0.359,-0.369,-0.379, &-0.389,-0.399,-0.408,-0.417,-0.426,-0.435,-0.444,-0.452,-0.460, &-0.468,-0.476,-0.484,-0.492,-0.499,-0.507,-0.514,-0.521,-0.528, &-0.535,-0.542,-0.548,-0.555,-0.562,-0.568,-0.574,-0.580,-0.587, &-0.593,-0.599,-0.604,-0.610,-0.616,-0.622,-0.627,-0.633,-0.638, &-0.644,-0.649,-0.654,-0.659,-0.664,-0.670,-0.675,-0.680,-0.684, &-0.689,-0.694,-0.699,-0.704,-0.708,-0.713,-0.718,-0.722,-0.727, &-0.731,-0.736,-0.740,-0.745,-0.749,-0.754,-0.758,-0.763,-0.767, &-0.771,-0.776,-0.780,-0.784,-0.788,-0.793,-0.797,-0.801,-0.805, &-0.810,-0.814,-0.818,-0.822,-0.826,-0.830,-0.834,-0.839,-0.843, &-0.847,-0.851,-0.855,-0.859,-0.863,-0.867,-0.871,-0.875,-0.879, &-0.883,-0.887,-0.891,-0.895,-0.899,-0.903,-0.907,-0.910,-0.914, &-0.918,-0.922,-0.926,-0.930,-0.933,-0.937,-0.941,-0.945,-0.948, &-0.952,-0.956,-0.959,-0.963,-0.967,-0.970,-0.974,-0.977,-0.981, &-0.985,-0.988,-0.992,-0.995,-0.999,-1.002,-1.006,-1.009,-1.012, &-1.016,-1.019,-1.023,-1.026,-1.029,-1.033,-1.036,-1.039,-1.042, &-1.046,-1.049,-1.052,-1.055,-1.059,-1.062,-1.065,-1.068,-1.071, &-1.074,-1.078,-1.081,-1.084,-1.087,-1.090,-1.093,-1.096,-1.099, &-1.102,-1.105,-1.108,-1.111,-1.114,-1.117,-1.120,-1.123,-1.126, &-1.129,-1.131,-1.134,-1.137,-1.140,-1.143,-1.146,-1.149,-1.151, &-1.154,-1.157,-1.160,-1.162,-1.165,-1.168,-1.171,-1.173,-1.176, &-1.179,-1.181,-1.184,-1.187,-1.189,-1.192,-1.195,-1.197,-1.200, &-1.202,-1.205,-1.207,-1.210,-1.213,-1.215,-1.218,-1.220,-1.223, &-1.225,-1.228,-1.230,-1.233,-1.235,-1.237,-1.240,-1.242,-1.245, &-1.247,-1.250,-1.252,-1.254,-1.257,-1.259,-1.261,-1.264,-1.266, &-1.268,-1.271,-1.273,-1.275,-1.278,-1.280,-1.282,-1.284,-1.287, &-1.289,-1.291,-1.293,-1.296,-1.298,-1.300,-1.302,-1.304,-1.307, &-1.309,-1.311,-1.313,-1.315,-1.317,-1.319,-1.322,-1.324,-1.326, &-1.328,-1.330,-1.332,-1.334,-1.336,-1.338,-1.340,-1.342,-1.344, &-1.346,-1.348,-1.350,-1.352,-1.354,-1.356,-1.358,-1.360,-1.362, &-1.364,-1.366,-1.368,-1.370,-1.372,-1.374,-1.376,-1.378,-1.380, &-1.382,-1.384,-1.385,-1.387,-1.389,-1.391,-1.393,-1.395,-1.397, &-1.398,-1.400,-1.402,-1.404,-1.406,-1.408,-1.409,-1.411,-1.413, &-1.415,-1.417,-1.418,-1.420,-1.422,-1.424,-1.425,-1.427,-1.429, &-1.431,-1.432,-1.434,-1.436,-1.437,-1.439,-1.441,-1.443,-1.444, &-1.446,-1.448,-1.449,-1.451,-1.453,-1.454,-1.456,-1.458,-1.459, &-1.461,-1.462,-1.464,-1.466,-1.467,-1.469,-1.470,-1.472,-1.474, &-1.475,-1.477,-1.478,-1.480,-1.482,-1.483,-1.485,-1.486,-1.488, &-1.489,-1.491,-1.492,-1.494,-1.495,-1.497,-1.498,-1.500,-1.501, &-1.503,-1.504,-1.506,-1.507,-1.509,-1.510,-1.512,-1.513,-1.515, &-1.516,-1.518,-1.519,-1.521,-1.522,-1.523,-1.525,-1.526,-1.528, &-1.529,-1.530,-1.532,-1.533,-1.535,-1.536,-1.537,-1.539,-1.540, &-1.542,-1.543,-1.544,-1.546,-1.547,-1.548,-1.550,-1.551,-1.553, &-1.554,-1.555,-1.557,-1.558,-1.572,-1.585,-1.597,-1.609,-1.621, &-1.632,-1.643,-1.654,-1.665,-1.675,-1.685,-1.695,-1.705,-1.714, &-1.723,-1.732,-1.741,-1.750,-1.758,-1.766,-1.774,-1.782,-1.790, &-1.798,-1.805,-1.813,-1.820,-1.827,-1.834,-1.841,-1.848,-1.855, &-1.861,-1.868,-1.874,-1.881,-1.887,-1.893,-1.899,-1.905,-1.911, &-1.917,-1.923,-1.929,-1.934,-1.940,-1.945,-1.951,-1.956,-1.962, &-1.967,-1.972,-1.977,-1.982,-1.988,-1.993,-1.998,-2.003,-2.008, &-2.012,-2.017,-2.022,-2.027,-2.032,-2.036,-2.041,-2.046,-2.050, &-2.055,-2.059,-2.064,-2.068,-2.073,-2.077,-2.082,-2.086,-2.090, &-2.095,-2.099,-2.103,-2.108,-2.112,-2.116,-2.120,-2.124,-2.128, &-2.133,-2.137,-2.141,-2.145,-2.149,-2.153,-2.157,-2.161,-2.165, &-2.169,-2.173,-2.177,-2.181,-2.185,-2.189,-2.192,-2.196,-2.200, &-2.204,-2.208,-2.212,-2.216,-2.219,-2.223,-2.227,-2.231,-2.234, &-2.238,-2.242,-2.246,-2.249,-2.253,-2.257,-2.260,-2.264,-2.268, &-2.271,-2.275,-2.279,-2.282,-2.286,-2.289,-2.293,-2.297,-2.300, &-2.304,-2.307,-2.311,-2.315,-2.318,-2.322,-2.325,-2.329,-2.332, &-2.336,-2.339,-2.343,-2.346,-2.350,-2.353,-2.357,-2.360,-2.364, &-2.367,-2.370,-2.374,-2.377,-2.381,-2.384,-2.388,-2.391,-2.395, &-2.398,-2.401,-2.405 & / C C *** KCL C DATA BNC20M/ &-0.048,-0.103,-0.129,-0.147,-0.160,-0.171,-0.180,-0.188,-0.195, &-0.201,-0.206,-0.210,-0.215,-0.218,-0.222,-0.225,-0.228,-0.230, &-0.233,-0.235,-0.237,-0.239,-0.241,-0.242,-0.244,-0.245,-0.247, &-0.248,-0.249,-0.250,-0.251,-0.252,-0.253,-0.254,-0.255,-0.256, &-0.256,-0.257,-0.258,-0.258,-0.259,-0.260,-0.260,-0.261,-0.261, &-0.261,-0.262,-0.262,-0.263,-0.263,-0.263,-0.264,-0.264,-0.264, &-0.265,-0.265,-0.265,-0.265,-0.266,-0.266,-0.266,-0.266,-0.266, &-0.267,-0.267,-0.267,-0.267,-0.267,-0.267,-0.267,-0.267,-0.267, &-0.267,-0.268,-0.268,-0.268,-0.268,-0.268,-0.268,-0.268,-0.268, &-0.268,-0.267,-0.267,-0.267,-0.267,-0.267,-0.267,-0.267,-0.267, &-0.267,-0.267,-0.266,-0.266,-0.266,-0.266,-0.266,-0.265,-0.265, &-0.265,-0.265,-0.265,-0.264,-0.264,-0.264,-0.264,-0.263,-0.263, &-0.263,-0.262,-0.262,-0.262,-0.261,-0.261,-0.261,-0.260,-0.260, &-0.260,-0.259,-0.259,-0.259,-0.258,-0.258,-0.258,-0.257,-0.257, &-0.257,-0.256,-0.256,-0.256,-0.255,-0.255,-0.254,-0.254,-0.254, &-0.253,-0.253,-0.253,-0.252,-0.252,-0.251,-0.251,-0.251,-0.250, &-0.250,-0.249,-0.249,-0.249,-0.248,-0.248,-0.247,-0.247,-0.247, &-0.246,-0.246,-0.246,-0.245,-0.245,-0.244,-0.244,-0.244,-0.243, &-0.243,-0.242,-0.242,-0.242,-0.241,-0.241,-0.240,-0.240,-0.240, &-0.239,-0.239,-0.238,-0.238,-0.238,-0.237,-0.237,-0.236,-0.236, &-0.236,-0.235,-0.235,-0.234,-0.234,-0.234,-0.233,-0.233,-0.232, &-0.232,-0.232,-0.231,-0.231,-0.230,-0.230,-0.230,-0.229,-0.229, &-0.228,-0.228,-0.228,-0.227,-0.227,-0.227,-0.226,-0.226,-0.225, &-0.225,-0.225,-0.224,-0.224,-0.223,-0.223,-0.223,-0.222,-0.222, &-0.221,-0.221,-0.221,-0.220,-0.220,-0.220,-0.219,-0.219,-0.218, &-0.218,-0.218,-0.217,-0.217,-0.217,-0.216,-0.216,-0.215,-0.215, &-0.215,-0.214,-0.214,-0.214,-0.213,-0.213,-0.212,-0.212,-0.212, &-0.211,-0.211,-0.211,-0.210,-0.210,-0.209,-0.209,-0.209,-0.208, &-0.208,-0.208,-0.207,-0.207,-0.207,-0.206,-0.206,-0.205,-0.205, &-0.205,-0.204,-0.204,-0.204,-0.203,-0.203,-0.203,-0.202,-0.202, &-0.202,-0.201,-0.201,-0.201,-0.200,-0.200,-0.199,-0.199,-0.199, &-0.198,-0.198,-0.198,-0.197,-0.197,-0.197,-0.196,-0.196,-0.196, &-0.195,-0.195,-0.195,-0.194,-0.194,-0.194,-0.193,-0.193,-0.193, &-0.192,-0.192,-0.192,-0.191,-0.191,-0.191,-0.190,-0.190,-0.190, &-0.189,-0.189,-0.189,-0.188,-0.188,-0.188,-0.187,-0.187,-0.187, &-0.186,-0.186,-0.186,-0.186,-0.185,-0.185,-0.185,-0.184,-0.184, &-0.184,-0.183,-0.183,-0.183,-0.182,-0.182,-0.182,-0.181,-0.181, &-0.181,-0.181,-0.180,-0.180,-0.180,-0.179,-0.179,-0.179,-0.178, &-0.178,-0.178,-0.178,-0.177,-0.177,-0.177,-0.176,-0.176,-0.176, &-0.175,-0.175,-0.175,-0.175,-0.174,-0.174,-0.174,-0.173,-0.173, &-0.173,-0.173,-0.172,-0.172,-0.172,-0.171,-0.171,-0.171,-0.171, &-0.170,-0.170,-0.170,-0.169,-0.169,-0.169,-0.169,-0.168,-0.168, &-0.168,-0.167,-0.167,-0.167,-0.167,-0.166,-0.166,-0.166,-0.166, &-0.165,-0.165,-0.165,-0.164,-0.164,-0.164,-0.164,-0.163,-0.163, &-0.163,-0.163,-0.162,-0.162,-0.159,-0.157,-0.154,-0.152,-0.149, &-0.147,-0.145,-0.143,-0.141,-0.139,-0.137,-0.135,-0.133,-0.131, &-0.129,-0.127,-0.126,-0.124,-0.122,-0.121,-0.119,-0.118,-0.116, &-0.115,-0.114,-0.112,-0.111,-0.110,-0.109,-0.107,-0.106,-0.105, &-0.104,-0.103,-0.102,-0.101,-0.100,-0.099,-0.099,-0.098,-0.097, &-0.096,-0.095,-0.095,-0.094,-0.093,-0.093,-0.092,-0.092,-0.091, &-0.091,-0.090,-0.090,-0.089,-0.089,-0.089,-0.088,-0.088,-0.088, &-0.087,-0.087,-0.087,-0.087,-0.087,-0.086,-0.086,-0.086,-0.086, &-0.086,-0.086,-0.086,-0.086,-0.086,-0.086,-0.086,-0.086,-0.086, &-0.086,-0.086,-0.086,-0.087,-0.087,-0.087,-0.087,-0.087,-0.088, &-0.088,-0.088,-0.088,-0.089,-0.089,-0.089,-0.090,-0.090,-0.090, &-0.091,-0.091,-0.092,-0.092,-0.092,-0.093,-0.093,-0.094,-0.094, &-0.095,-0.095,-0.096,-0.096,-0.097,-0.098,-0.098,-0.099,-0.099, &-0.100,-0.101,-0.101,-0.102,-0.103,-0.103,-0.104,-0.105,-0.105, &-0.106,-0.107,-0.107,-0.108,-0.109,-0.110,-0.111,-0.111,-0.112, &-0.113,-0.114,-0.115,-0.115,-0.116,-0.117,-0.118,-0.119,-0.120, &-0.121,-0.122,-0.122,-0.123,-0.124,-0.125,-0.126,-0.127,-0.128, &-0.129,-0.130,-0.131,-0.132,-0.133,-0.134,-0.135,-0.136,-0.137, &-0.138,-0.139,-0.140 & / C C *** MGSO4 C DATA BNC21M/ &-0.195,-0.422,-0.535,-0.614,-0.676,-0.727,-0.770,-0.808,-0.841, &-0.871,-0.898,-0.923,-0.946,-0.968,-0.988,-1.006,-1.024,-1.041, &-1.056,-1.071,-1.085,-1.099,-1.112,-1.124,-1.136,-1.148,-1.159, &-1.169,-1.179,-1.189,-1.199,-1.208,-1.217,-1.226,-1.234,-1.243, &-1.251,-1.258,-1.266,-1.273,-1.281,-1.288,-1.295,-1.302,-1.308, &-1.315,-1.321,-1.327,-1.333,-1.339,-1.345,-1.351,-1.357,-1.362, &-1.368,-1.373,-1.379,-1.384,-1.389,-1.394,-1.399,-1.404,-1.409, &-1.413,-1.418,-1.423,-1.427,-1.432,-1.436,-1.441,-1.445,-1.449, &-1.454,-1.458,-1.462,-1.466,-1.470,-1.474,-1.478,-1.482,-1.486, &-1.489,-1.493,-1.497,-1.500,-1.504,-1.508,-1.511,-1.515,-1.518, &-1.522,-1.525,-1.528,-1.532,-1.535,-1.538,-1.541,-1.545,-1.548, &-1.551,-1.554,-1.557,-1.560,-1.563,-1.566,-1.569,-1.572,-1.575, &-1.578,-1.581,-1.584,-1.586,-1.589,-1.592,-1.595,-1.598,-1.600, &-1.603,-1.606,-1.608,-1.611,-1.614,-1.616,-1.619,-1.621,-1.624, &-1.626,-1.629,-1.631,-1.634,-1.636,-1.639,-1.641,-1.644,-1.646, &-1.649,-1.651,-1.653,-1.656,-1.658,-1.660,-1.663,-1.665,-1.667, &-1.670,-1.672,-1.674,-1.676,-1.679,-1.681,-1.683,-1.685,-1.688, &-1.690,-1.692,-1.694,-1.696,-1.698,-1.701,-1.703,-1.705,-1.707, &-1.709,-1.711,-1.713,-1.715,-1.717,-1.720,-1.722,-1.724,-1.726, &-1.728,-1.730,-1.732,-1.734,-1.736,-1.738,-1.740,-1.742,-1.744, &-1.746,-1.748,-1.750,-1.752,-1.754,-1.756,-1.757,-1.759,-1.761, &-1.763,-1.765,-1.767,-1.769,-1.771,-1.773,-1.775,-1.776,-1.778, &-1.780,-1.782,-1.784,-1.786,-1.788,-1.789,-1.791,-1.793,-1.795, &-1.797,-1.799,-1.800,-1.802,-1.804,-1.806,-1.808,-1.809,-1.811, &-1.813,-1.815,-1.816,-1.818,-1.820,-1.822,-1.823,-1.825,-1.827, &-1.829,-1.830,-1.832,-1.834,-1.836,-1.837,-1.839,-1.841,-1.842, &-1.844,-1.846,-1.848,-1.849,-1.851,-1.853,-1.854,-1.856,-1.858, &-1.859,-1.861,-1.863,-1.864,-1.866,-1.868,-1.869,-1.871,-1.873, &-1.874,-1.876,-1.878,-1.879,-1.881,-1.882,-1.884,-1.886,-1.887, &-1.889,-1.891,-1.892,-1.894,-1.895,-1.897,-1.899,-1.900,-1.902, &-1.903,-1.905,-1.907,-1.908,-1.910,-1.911,-1.913,-1.915,-1.916, &-1.918,-1.919,-1.921,-1.922,-1.924,-1.925,-1.927,-1.929,-1.930, &-1.932,-1.933,-1.935,-1.936,-1.938,-1.939,-1.941,-1.943,-1.944, &-1.946,-1.947,-1.949,-1.950,-1.952,-1.953,-1.955,-1.956,-1.958, &-1.959,-1.961,-1.962,-1.964,-1.965,-1.967,-1.968,-1.970,-1.971, &-1.973,-1.974,-1.976,-1.977,-1.979,-1.980,-1.982,-1.983,-1.985, &-1.986,-1.988,-1.989,-1.991,-1.992,-1.994,-1.995,-1.997,-1.998, &-2.000,-2.001,-2.003,-2.004,-2.006,-2.007,-2.008,-2.010,-2.011, &-2.013,-2.014,-2.016,-2.017,-2.019,-2.020,-2.022,-2.023,-2.024, &-2.026,-2.027,-2.029,-2.030,-2.032,-2.033,-2.035,-2.036,-2.037, &-2.039,-2.040,-2.042,-2.043,-2.045,-2.046,-2.047,-2.049,-2.050, &-2.052,-2.053,-2.055,-2.056,-2.057,-2.059,-2.060,-2.062,-2.063, &-2.065,-2.066,-2.067,-2.069,-2.070,-2.072,-2.073,-2.074,-2.076, &-2.077,-2.079,-2.080,-2.081,-2.083,-2.084,-2.086,-2.087,-2.088, &-2.090,-2.091,-2.093,-2.094,-2.109,-2.123,-2.137,-2.150,-2.164, &-2.177,-2.191,-2.204,-2.217,-2.231,-2.244,-2.257,-2.270,-2.283, &-2.296,-2.309,-2.322,-2.335,-2.348,-2.361,-2.374,-2.386,-2.399, &-2.412,-2.425,-2.437,-2.450,-2.463,-2.475,-2.488,-2.500,-2.513, &-2.525,-2.538,-2.550,-2.563,-2.575,-2.588,-2.600,-2.612,-2.625, &-2.637,-2.650,-2.662,-2.674,-2.686,-2.699,-2.711,-2.723,-2.736, &-2.748,-2.760,-2.772,-2.784,-2.797,-2.809,-2.821,-2.833,-2.845, &-2.857,-2.870,-2.882,-2.894,-2.906,-2.918,-2.930,-2.942,-2.954, &-2.966,-2.978,-2.991,-3.003,-3.015,-3.027,-3.039,-3.051,-3.063, &-3.075,-3.087,-3.099,-3.111,-3.123,-3.135,-3.147,-3.159,-3.171, &-3.182,-3.194,-3.206,-3.218,-3.230,-3.242,-3.254,-3.266,-3.278, &-3.290,-3.302,-3.314,-3.325,-3.337,-3.349,-3.361,-3.373,-3.385, &-3.397,-3.409,-3.420,-3.432,-3.444,-3.456,-3.468,-3.480,-3.491, &-3.503,-3.515,-3.527,-3.539,-3.551,-3.562,-3.574,-3.586,-3.598, &-3.609,-3.621,-3.633,-3.645,-3.657,-3.668,-3.680,-3.692,-3.704, &-3.715,-3.727,-3.739,-3.751,-3.762,-3.774,-3.786,-3.798,-3.809, &-3.821,-3.833,-3.844,-3.856,-3.868,-3.880,-3.891,-3.903,-3.915, &-3.926,-3.938,-3.950,-3.961,-3.973,-3.985,-3.997,-4.008,-4.020, &-4.032,-4.043,-4.055 & / C C *** MGNO32 C DATA BNC22M/ &-0.095,-0.197,-0.243,-0.273,-0.294,-0.311,-0.323,-0.333,-0.342, &-0.348,-0.353,-0.358,-0.361,-0.364,-0.366,-0.367,-0.368,-0.368, &-0.368,-0.368,-0.368,-0.367,-0.366,-0.364,-0.363,-0.361,-0.359, &-0.357,-0.355,-0.353,-0.351,-0.348,-0.346,-0.343,-0.340,-0.337, &-0.335,-0.332,-0.329,-0.326,-0.323,-0.320,-0.316,-0.313,-0.310, &-0.307,-0.304,-0.300,-0.297,-0.294,-0.290,-0.287,-0.284,-0.280, &-0.277,-0.274,-0.270,-0.267,-0.264,-0.260,-0.257,-0.253,-0.250, &-0.247,-0.243,-0.240,-0.236,-0.233,-0.229,-0.226,-0.222,-0.219, &-0.215,-0.211,-0.208,-0.204,-0.200,-0.197,-0.193,-0.189,-0.186, &-0.182,-0.178,-0.174,-0.170,-0.166,-0.162,-0.158,-0.154,-0.150, &-0.146,-0.142,-0.138,-0.134,-0.130,-0.125,-0.121,-0.117,-0.113, &-0.108,-0.104,-0.100,-0.095,-0.091,-0.086,-0.082,-0.077,-0.073, &-0.068,-0.064,-0.059,-0.055,-0.050,-0.045,-0.041,-0.036,-0.032, &-0.027,-0.022,-0.018,-0.013,-0.008,-0.004, 0.001, 0.006, 0.010, & 0.015, 0.020, 0.024, 0.029, 0.034, 0.039, 0.043, 0.048, 0.053, & 0.057, 0.062, 0.067, 0.071, 0.076, 0.081, 0.085, 0.090, 0.095, & 0.099, 0.104, 0.109, 0.113, 0.118, 0.122, 0.127, 0.132, 0.136, & 0.141, 0.145, 0.150, 0.155, 0.159, 0.164, 0.168, 0.173, 0.178, & 0.182, 0.187, 0.191, 0.196, 0.200, 0.205, 0.209, 0.214, 0.218, & 0.223, 0.227, 0.232, 0.236, 0.241, 0.245, 0.250, 0.254, 0.259, & 0.263, 0.268, 0.272, 0.276, 0.281, 0.285, 0.290, 0.294, 0.299, & 0.303, 0.307, 0.312, 0.316, 0.320, 0.325, 0.329, 0.333, 0.338, & 0.342, 0.346, 0.351, 0.355, 0.359, 0.364, 0.368, 0.372, 0.377, & 0.381, 0.385, 0.389, 0.394, 0.398, 0.402, 0.406, 0.411, 0.415, & 0.419, 0.423, 0.427, 0.432, 0.436, 0.440, 0.444, 0.448, 0.452, & 0.457, 0.461, 0.465, 0.469, 0.473, 0.477, 0.481, 0.485, 0.490, & 0.494, 0.498, 0.502, 0.506, 0.510, 0.514, 0.518, 0.522, 0.526, & 0.530, 0.534, 0.538, 0.542, 0.546, 0.550, 0.554, 0.558, 0.562, & 0.566, 0.570, 0.574, 0.578, 0.582, 0.586, 0.590, 0.594, 0.598, & 0.602, 0.605, 0.609, 0.613, 0.617, 0.621, 0.625, 0.629, 0.633, & 0.636, 0.640, 0.644, 0.648, 0.652, 0.656, 0.659, 0.663, 0.667, & 0.671, 0.674, 0.678, 0.682, 0.686, 0.690, 0.693, 0.697, 0.701, & 0.704, 0.708, 0.712, 0.716, 0.719, 0.723, 0.727, 0.730, 0.734, & 0.738, 0.741, 0.745, 0.749, 0.752, 0.756, 0.760, 0.763, 0.767, & 0.771, 0.774, 0.778, 0.781, 0.785, 0.789, 0.792, 0.796, 0.799, & 0.803, 0.806, 0.810, 0.813, 0.817, 0.821, 0.824, 0.828, 0.831, & 0.835, 0.838, 0.842, 0.845, 0.849, 0.852, 0.856, 0.859, 0.862, & 0.866, 0.869, 0.873, 0.876, 0.880, 0.883, 0.886, 0.890, 0.893, & 0.897, 0.900, 0.903, 0.907, 0.910, 0.914, 0.917, 0.920, 0.924, & 0.927, 0.930, 0.934, 0.937, 0.940, 0.944, 0.947, 0.950, 0.954, & 0.957, 0.960, 0.963, 0.967, 0.970, 0.973, 0.977, 0.980, 0.983, & 0.986, 0.990, 0.993, 0.996, 0.999, 1.003, 1.006, 1.009, 1.012, & 1.015, 1.019, 1.022, 1.025, 1.028, 1.031, 1.034, 1.038, 1.041, & 1.044, 1.047, 1.050, 1.053, 1.056, 1.060, 1.063, 1.066, 1.069, & 1.072, 1.075, 1.078, 1.081, 1.114, 1.144, 1.174, 1.203, 1.232, & 1.260, 1.288, 1.315, 1.342, 1.369, 1.395, 1.420, 1.446, 1.471, & 1.495, 1.519, 1.543, 1.567, 1.590, 1.613, 1.635, 1.657, 1.679, & 1.701, 1.722, 1.743, 1.764, 1.784, 1.804, 1.824, 1.844, 1.863, & 1.882, 1.901, 1.920, 1.938, 1.956, 1.974, 1.992, 2.009, 2.026, & 2.043, 2.060, 2.077, 2.093, 2.109, 2.125, 2.141, 2.157, 2.172, & 2.187, 2.202, 2.217, 2.232, 2.246, 2.261, 2.275, 2.289, 2.303, & 2.317, 2.330, 2.344, 2.357, 2.370, 2.383, 2.396, 2.408, 2.421, & 2.433, 2.445, 2.458, 2.470, 2.481, 2.493, 2.505, 2.516, 2.528, & 2.539, 2.550, 2.561, 2.572, 2.583, 2.593, 2.604, 2.614, 2.625, & 2.635, 2.645, 2.655, 2.665, 2.675, 2.684, 2.694, 2.704, 2.713, & 2.722, 2.732, 2.741, 2.750, 2.759, 2.768, 2.776, 2.785, 2.794, & 2.802, 2.811, 2.819, 2.827, 2.835, 2.843, 2.851, 2.859, 2.867, & 2.875, 2.883, 2.890, 2.898, 2.906, 2.913, 2.920, 2.928, 2.935, & 2.942, 2.949, 2.956, 2.963, 2.970, 2.977, 2.983, 2.990, 2.997, & 3.003, 3.010, 3.016, 3.022, 3.029, 3.035, 3.041, 3.047, 3.053, & 3.059, 3.065, 3.071, 3.077, 3.083, 3.089, 3.094, 3.100, 3.105, & 3.111, 3.116, 3.122, 3.127, 3.133, 3.138, 3.143, 3.148, 3.153, & 3.158, 3.163, 3.168 & / C C *** MGCL2 C DATA BNC23M/ &-0.094,-0.194,-0.238,-0.266,-0.285,-0.299,-0.310,-0.319,-0.325, &-0.330,-0.333,-0.336,-0.337,-0.338,-0.338,-0.338,-0.337,-0.336, &-0.334,-0.332,-0.330,-0.328,-0.325,-0.322,-0.319,-0.315,-0.312, &-0.308,-0.304,-0.300,-0.296,-0.292,-0.288,-0.283,-0.279,-0.274, &-0.270,-0.265,-0.261,-0.256,-0.251,-0.247,-0.242,-0.237,-0.232, &-0.227,-0.222,-0.218,-0.213,-0.208,-0.203,-0.198,-0.193,-0.188, &-0.183,-0.178,-0.173,-0.168,-0.163,-0.158,-0.153,-0.148,-0.143, &-0.138,-0.133,-0.128,-0.123,-0.118,-0.113,-0.108,-0.103,-0.097, &-0.092,-0.087,-0.082,-0.077,-0.071,-0.066,-0.061,-0.055,-0.050, &-0.045,-0.039,-0.034,-0.028,-0.023,-0.017,-0.011,-0.006, 0.000, & 0.006, 0.011, 0.017, 0.023, 0.029, 0.035, 0.041, 0.047, 0.053, & 0.059, 0.065, 0.071, 0.077, 0.083, 0.089, 0.096, 0.102, 0.108, & 0.114, 0.121, 0.127, 0.133, 0.140, 0.146, 0.152, 0.159, 0.165, & 0.171, 0.178, 0.184, 0.191, 0.197, 0.203, 0.210, 0.216, 0.223, & 0.229, 0.236, 0.242, 0.249, 0.255, 0.261, 0.268, 0.274, 0.281, & 0.287, 0.293, 0.300, 0.306, 0.313, 0.319, 0.325, 0.332, 0.338, & 0.345, 0.351, 0.357, 0.364, 0.370, 0.376, 0.383, 0.389, 0.395, & 0.402, 0.408, 0.414, 0.421, 0.427, 0.433, 0.439, 0.446, 0.452, & 0.458, 0.464, 0.471, 0.477, 0.483, 0.489, 0.495, 0.502, 0.508, & 0.514, 0.520, 0.526, 0.532, 0.538, 0.545, 0.551, 0.557, 0.563, & 0.569, 0.575, 0.581, 0.587, 0.593, 0.599, 0.605, 0.611, 0.617, & 0.623, 0.629, 0.635, 0.641, 0.647, 0.653, 0.659, 0.665, 0.671, & 0.677, 0.683, 0.689, 0.694, 0.700, 0.706, 0.712, 0.718, 0.724, & 0.730, 0.735, 0.741, 0.747, 0.753, 0.759, 0.764, 0.770, 0.776, & 0.782, 0.787, 0.793, 0.799, 0.804, 0.810, 0.816, 0.822, 0.827, & 0.833, 0.838, 0.844, 0.850, 0.855, 0.861, 0.867, 0.872, 0.878, & 0.883, 0.889, 0.894, 0.900, 0.905, 0.911, 0.916, 0.922, 0.927, & 0.933, 0.938, 0.944, 0.949, 0.955, 0.960, 0.966, 0.971, 0.976, & 0.982, 0.987, 0.993, 0.998, 1.003, 1.009, 1.014, 1.019, 1.025, & 1.030, 1.035, 1.041, 1.046, 1.051, 1.056, 1.062, 1.067, 1.072, & 1.077, 1.083, 1.088, 1.093, 1.098, 1.103, 1.109, 1.114, 1.119, & 1.124, 1.129, 1.134, 1.139, 1.144, 1.150, 1.155, 1.160, 1.165, & 1.170, 1.175, 1.180, 1.185, 1.190, 1.195, 1.200, 1.205, 1.210, & 1.215, 1.220, 1.225, 1.230, 1.235, 1.240, 1.245, 1.250, 1.255, & 1.260, 1.264, 1.269, 1.274, 1.279, 1.284, 1.289, 1.294, 1.299, & 1.303, 1.308, 1.313, 1.318, 1.323, 1.327, 1.332, 1.337, 1.342, & 1.346, 1.351, 1.356, 1.361, 1.365, 1.370, 1.375, 1.380, 1.384, & 1.389, 1.394, 1.398, 1.403, 1.408, 1.412, 1.417, 1.421, 1.426, & 1.431, 1.435, 1.440, 1.444, 1.449, 1.454, 1.458, 1.463, 1.467, & 1.472, 1.476, 1.481, 1.485, 1.490, 1.494, 1.499, 1.503, 1.508, & 1.512, 1.517, 1.521, 1.526, 1.530, 1.535, 1.539, 1.543, 1.548, & 1.552, 1.557, 1.561, 1.565, 1.570, 1.574, 1.578, 1.583, 1.587, & 1.591, 1.596, 1.600, 1.604, 1.609, 1.613, 1.617, 1.622, 1.626, & 1.630, 1.634, 1.639, 1.643, 1.647, 1.651, 1.656, 1.660, 1.664, & 1.668, 1.672, 1.677, 1.681, 1.726, 1.766, 1.807, 1.846, 1.885, & 1.923, 1.961, 1.998, 2.034, 2.070, 2.105, 2.140, 2.175, 2.208, & 2.242, 2.275, 2.307, 2.339, 2.370, 2.401, 2.432, 2.462, 2.492, & 2.521, 2.550, 2.579, 2.607, 2.635, 2.662, 2.690, 2.716, 2.743, & 2.769, 2.795, 2.820, 2.845, 2.870, 2.895, 2.919, 2.943, 2.966, & 2.990, 3.013, 3.036, 3.058, 3.081, 3.103, 3.124, 3.146, 3.167, & 3.188, 3.209, 3.230, 3.250, 3.270, 3.290, 3.310, 3.329, 3.349, & 3.368, 3.387, 3.405, 3.424, 3.442, 3.460, 3.478, 3.496, 3.513, & 3.531, 3.548, 3.565, 3.582, 3.599, 3.615, 3.631, 3.648, 3.664, & 3.680, 3.695, 3.711, 3.726, 3.742, 3.757, 3.772, 3.787, 3.801, & 3.816, 3.830, 3.845, 3.859, 3.873, 3.887, 3.901, 3.914, 3.928, & 3.941, 3.955, 3.968, 3.981, 3.994, 4.007, 4.019, 4.032, 4.044, & 4.057, 4.069, 4.081, 4.093, 4.105, 4.117, 4.129, 4.141, 4.152, & 4.164, 4.175, 4.186, 4.197, 4.209, 4.220, 4.230, 4.241, 4.252, & 4.263, 4.273, 4.284, 4.294, 4.304, 4.314, 4.324, 4.335, 4.344, & 4.354, 4.364, 4.374, 4.383, 4.393, 4.402, 4.412, 4.421, 4.430, & 4.440, 4.449, 4.458, 4.467, 4.476, 4.484, 4.493, 4.502, 4.510, & 4.519, 4.527, 4.536, 4.544, 4.553, 4.561, 4.569, 4.577, 4.585, & 4.593, 4.601, 4.609 & / END C C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE KM273 C *** CALCULATES BINARY ACTIVITY COEFFICIENTS BY KUSIK-MEISSNER METHOD. C THE COMPUTATIONS HAVE BEEN PERFORMED AND THE RESULTS ARE STORED IN C LOOKUP TABLES. THE IONIC ACTIVITY 'IN' IS INPUT, AND THE ARRAY C 'BINARR' IS RETURNED WITH THE BINARY COEFFICIENTS. C C TEMPERATURE IS 273K C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE KM273 (IONIC, BINARR) C C *** Common block definition C COMMON /KMC273/ &BNC01M( 561),BNC02M( 561),BNC03M( 561),BNC04M( 561), &BNC05M( 561),BNC06M( 561),BNC07M( 561),BNC08M( 561), &BNC09M( 561),BNC10M( 561),BNC11M( 561),BNC12M( 561), &BNC13M( 561),BNC14M( 561),BNC15M( 561),BNC16M( 561), &BNC17M( 561),BNC18M( 561),BNC19M( 561),BNC20M( 561), &BNC21M( 561),BNC22M( 561),BNC23M( 561) REAL Binarr (23), Ionic C C *** Find position in arrays for bincoef C IF (Ionic.LE. 0.200000E+02) THEN ipos = MIN(NINT( 0.200000E+02*Ionic) + 1, 400) ELSE ipos = 400+NINT( 0.200000E+01*Ionic- 0.400000E+02) ENDIF ipos = min(ipos, 561) C C *** Assign values to return array C Binarr(01) = BNC01M(ipos) Binarr(02) = BNC02M(ipos) Binarr(03) = BNC03M(ipos) Binarr(04) = BNC04M(ipos) Binarr(05) = BNC05M(ipos) Binarr(06) = BNC06M(ipos) Binarr(07) = BNC07M(ipos) Binarr(08) = BNC08M(ipos) Binarr(09) = BNC09M(ipos) Binarr(10) = BNC10M(ipos) Binarr(11) = BNC11M(ipos) Binarr(12) = BNC12M(ipos) Binarr(13) = BNC13M(ipos) Binarr(14) = BNC14M(ipos) Binarr(15) = BNC15M(ipos) Binarr(16) = BNC16M(ipos) Binarr(17) = BNC17M(ipos) Binarr(18) = BNC18M(ipos) Binarr(19) = BNC19M(ipos) Binarr(20) = BNC20M(ipos) Binarr(21) = BNC21M(ipos) Binarr(22) = BNC22M(ipos) Binarr(23) = BNC23M(ipos) C C *** Return point ; End of subroutine C RETURN END BLOCK DATA KMCF273 C C *** Common block definition C COMMON /KMC273/ &BNC01M( 561),BNC02M( 561),BNC03M( 561),BNC04M( 561), &BNC05M( 561),BNC06M( 561),BNC07M( 561),BNC08M( 561), &BNC09M( 561),BNC10M( 561),BNC11M( 561),BNC12M( 561), &BNC13M( 561),BNC14M( 561),BNC15M( 561),BNC16M( 561), &BNC17M( 561),BNC18M( 561),BNC19M( 561),BNC20M( 561), &BNC21M( 561),BNC22M( 561),BNC23M( 561) C C *** NaCl C DATA BNC01M/ &-0.046,-0.097,-0.119,-0.134,-0.145,-0.153,-0.160,-0.165,-0.169, &-0.173,-0.176,-0.178,-0.180,-0.181,-0.182,-0.183,-0.184,-0.184, &-0.185,-0.185,-0.185,-0.185,-0.184,-0.184,-0.183,-0.183,-0.182, &-0.181,-0.181,-0.180,-0.179,-0.178,-0.177,-0.176,-0.174,-0.173, &-0.172,-0.171,-0.170,-0.168,-0.167,-0.166,-0.164,-0.163,-0.162, &-0.160,-0.159,-0.157,-0.156,-0.155,-0.153,-0.152,-0.150,-0.149, &-0.147,-0.146,-0.144,-0.143,-0.141,-0.140,-0.138,-0.137,-0.135, &-0.134,-0.132,-0.131,-0.129,-0.128,-0.126,-0.124,-0.123,-0.121, &-0.120,-0.118,-0.116,-0.115,-0.113,-0.112,-0.110,-0.108,-0.107, &-0.105,-0.103,-0.101,-0.100,-0.098,-0.096,-0.094,-0.093,-0.091, &-0.089,-0.087,-0.085,-0.083,-0.081,-0.080,-0.078,-0.076,-0.074, &-0.072,-0.070,-0.068,-0.066,-0.064,-0.062,-0.060,-0.058,-0.056, &-0.054,-0.052,-0.050,-0.048,-0.046,-0.044,-0.042,-0.039,-0.037, &-0.035,-0.033,-0.031,-0.029,-0.027,-0.025,-0.023,-0.021,-0.018, &-0.016,-0.014,-0.012,-0.010,-0.008,-0.006,-0.004,-0.002, 0.001, & 0.003, 0.005, 0.007, 0.009, 0.011, 0.013, 0.015, 0.017, 0.019, & 0.022, 0.024, 0.026, 0.028, 0.030, 0.032, 0.034, 0.036, 0.038, & 0.040, 0.042, 0.045, 0.047, 0.049, 0.051, 0.053, 0.055, 0.057, & 0.059, 0.061, 0.063, 0.065, 0.067, 0.069, 0.071, 0.073, 0.075, & 0.078, 0.080, 0.082, 0.084, 0.086, 0.088, 0.090, 0.092, 0.094, & 0.096, 0.098, 0.100, 0.102, 0.104, 0.106, 0.108, 0.110, 0.112, & 0.114, 0.116, 0.118, 0.120, 0.122, 0.124, 0.126, 0.128, 0.130, & 0.132, 0.134, 0.136, 0.138, 0.140, 0.142, 0.143, 0.145, 0.147, & 0.149, 0.151, 0.153, 0.155, 0.157, 0.159, 0.161, 0.163, 0.165, & 0.167, 0.169, 0.171, 0.172, 0.174, 0.176, 0.178, 0.180, 0.182, & 0.184, 0.186, 0.188, 0.190, 0.191, 0.193, 0.195, 0.197, 0.199, & 0.201, 0.203, 0.205, 0.206, 0.208, 0.210, 0.212, 0.214, 0.216, & 0.218, 0.219, 0.221, 0.223, 0.225, 0.227, 0.229, 0.230, 0.232, & 0.234, 0.236, 0.238, 0.239, 0.241, 0.243, 0.245, 0.247, 0.248, & 0.250, 0.252, 0.254, 0.256, 0.257, 0.259, 0.261, 0.263, 0.265, & 0.266, 0.268, 0.270, 0.272, 0.273, 0.275, 0.277, 0.279, 0.280, & 0.282, 0.284, 0.286, 0.287, 0.289, 0.291, 0.292, 0.294, 0.296, & 0.298, 0.299, 0.301, 0.303, 0.305, 0.306, 0.308, 0.310, 0.311, & 0.313, 0.315, 0.316, 0.318, 0.320, 0.321, 0.323, 0.325, 0.326, & 0.328, 0.330, 0.331, 0.333, 0.335, 0.336, 0.338, 0.340, 0.341, & 0.343, 0.345, 0.346, 0.348, 0.350, 0.351, 0.353, 0.355, 0.356, & 0.358, 0.359, 0.361, 0.363, 0.364, 0.366, 0.367, 0.369, 0.371, & 0.372, 0.374, 0.375, 0.377, 0.379, 0.380, 0.382, 0.383, 0.385, & 0.387, 0.388, 0.390, 0.391, 0.393, 0.394, 0.396, 0.398, 0.399, & 0.401, 0.402, 0.404, 0.405, 0.407, 0.408, 0.410, 0.412, 0.413, & 0.415, 0.416, 0.418, 0.419, 0.421, 0.422, 0.424, 0.425, 0.427, & 0.428, 0.430, 0.431, 0.433, 0.434, 0.436, 0.437, 0.439, 0.440, & 0.442, 0.443, 0.445, 0.446, 0.448, 0.449, 0.451, 0.452, 0.454, & 0.455, 0.457, 0.458, 0.460, 0.461, 0.463, 0.464, 0.465, 0.467, & 0.468, 0.470, 0.471, 0.473, 0.488, 0.502, 0.516, 0.530, 0.544, & 0.557, 0.570, 0.583, 0.596, 0.608, 0.621, 0.633, 0.645, 0.657, & 0.669, 0.680, 0.692, 0.703, 0.714, 0.725, 0.736, 0.747, 0.758, & 0.768, 0.778, 0.789, 0.799, 0.809, 0.819, 0.828, 0.838, 0.847, & 0.857, 0.866, 0.875, 0.884, 0.893, 0.902, 0.911, 0.920, 0.928, & 0.937, 0.945, 0.954, 0.962, 0.970, 0.978, 0.986, 0.994, 1.002, & 1.010, 1.017, 1.025, 1.032, 1.040, 1.047, 1.054, 1.062, 1.069, & 1.076, 1.083, 1.090, 1.097, 1.103, 1.110, 1.117, 1.124, 1.130, & 1.137, 1.143, 1.149, 1.156, 1.162, 1.168, 1.174, 1.181, 1.187, & 1.193, 1.199, 1.205, 1.210, 1.216, 1.222, 1.228, 1.233, 1.239, & 1.245, 1.250, 1.255, 1.261, 1.266, 1.272, 1.277, 1.282, 1.287, & 1.293, 1.298, 1.303, 1.308, 1.313, 1.318, 1.323, 1.328, 1.333, & 1.337, 1.342, 1.347, 1.352, 1.356, 1.361, 1.366, 1.370, 1.375, & 1.379, 1.384, 1.388, 1.392, 1.397, 1.401, 1.406, 1.410, 1.414, & 1.418, 1.422, 1.427, 1.431, 1.435, 1.439, 1.443, 1.447, 1.451, & 1.455, 1.459, 1.463, 1.467, 1.470, 1.474, 1.478, 1.482, 1.486, & 1.489, 1.493, 1.497, 1.500, 1.504, 1.508, 1.511, 1.515, 1.518, & 1.522, 1.525, 1.529, 1.532, 1.536, 1.539, 1.542, 1.546, 1.549, & 1.552, 1.556, 1.559 & / C C *** Na2SO4 C DATA BNC02M/ &-0.096,-0.208,-0.264,-0.304,-0.335,-0.361,-0.383,-0.403,-0.420, &-0.436,-0.450,-0.464,-0.476,-0.487,-0.498,-0.508,-0.517,-0.526, &-0.535,-0.543,-0.551,-0.558,-0.566,-0.572,-0.579,-0.586,-0.592, &-0.598,-0.603,-0.609,-0.614,-0.620,-0.625,-0.630,-0.635,-0.639, &-0.644,-0.649,-0.653,-0.657,-0.661,-0.666,-0.670,-0.674,-0.677, &-0.681,-0.685,-0.689,-0.692,-0.696,-0.699,-0.702,-0.706,-0.709, &-0.712,-0.715,-0.718,-0.721,-0.725,-0.727,-0.730,-0.733,-0.736, &-0.739,-0.742,-0.744,-0.747,-0.750,-0.752,-0.755,-0.757,-0.760, &-0.763,-0.765,-0.767,-0.770,-0.772,-0.775,-0.777,-0.779,-0.782, &-0.784,-0.786,-0.788,-0.791,-0.793,-0.795,-0.797,-0.799,-0.801, &-0.803,-0.806,-0.808,-0.810,-0.812,-0.814,-0.816,-0.818,-0.820, &-0.822,-0.824,-0.826,-0.827,-0.829,-0.831,-0.833,-0.835,-0.837, &-0.839,-0.841,-0.842,-0.844,-0.846,-0.848,-0.850,-0.851,-0.853, &-0.855,-0.857,-0.858,-0.860,-0.862,-0.863,-0.865,-0.867,-0.868, &-0.870,-0.872,-0.873,-0.875,-0.877,-0.878,-0.880,-0.881,-0.883, &-0.885,-0.886,-0.888,-0.889,-0.891,-0.892,-0.894,-0.895,-0.897, &-0.898,-0.900,-0.901,-0.903,-0.904,-0.906,-0.907,-0.909,-0.910, &-0.912,-0.913,-0.915,-0.916,-0.917,-0.919,-0.920,-0.922,-0.923, &-0.924,-0.926,-0.927,-0.928,-0.930,-0.931,-0.933,-0.934,-0.935, &-0.937,-0.938,-0.939,-0.941,-0.942,-0.943,-0.944,-0.946,-0.947, &-0.948,-0.950,-0.951,-0.952,-0.953,-0.955,-0.956,-0.957,-0.958, &-0.960,-0.961,-0.962,-0.963,-0.965,-0.966,-0.967,-0.968,-0.969, &-0.971,-0.972,-0.973,-0.974,-0.975,-0.977,-0.978,-0.979,-0.980, &-0.981,-0.982,-0.984,-0.985,-0.986,-0.987,-0.988,-0.989,-0.990, &-0.992,-0.993,-0.994,-0.995,-0.996,-0.997,-0.998,-0.999,-1.001, &-1.002,-1.003,-1.004,-1.005,-1.006,-1.007,-1.008,-1.009,-1.010, &-1.011,-1.012,-1.014,-1.015,-1.016,-1.017,-1.018,-1.019,-1.020, &-1.021,-1.022,-1.023,-1.024,-1.025,-1.026,-1.027,-1.028,-1.029, &-1.030,-1.031,-1.032,-1.033,-1.034,-1.035,-1.036,-1.037,-1.038, &-1.039,-1.040,-1.041,-1.042,-1.043,-1.044,-1.045,-1.046,-1.047, &-1.048,-1.049,-1.050,-1.051,-1.052,-1.053,-1.054,-1.055,-1.056, &-1.057,-1.058,-1.059,-1.060,-1.061,-1.062,-1.063,-1.064,-1.065, &-1.066,-1.066,-1.067,-1.068,-1.069,-1.070,-1.071,-1.072,-1.073, &-1.074,-1.075,-1.076,-1.077,-1.078,-1.079,-1.079,-1.080,-1.081, &-1.082,-1.083,-1.084,-1.085,-1.086,-1.087,-1.088,-1.088,-1.089, &-1.090,-1.091,-1.092,-1.093,-1.094,-1.095,-1.096,-1.096,-1.097, &-1.098,-1.099,-1.100,-1.101,-1.102,-1.102,-1.103,-1.104,-1.105, &-1.106,-1.107,-1.108,-1.109,-1.109,-1.110,-1.111,-1.112,-1.113, &-1.114,-1.114,-1.115,-1.116,-1.117,-1.118,-1.119,-1.120,-1.120, &-1.121,-1.122,-1.123,-1.124,-1.124,-1.125,-1.126,-1.127,-1.128, &-1.129,-1.129,-1.130,-1.131,-1.132,-1.133,-1.134,-1.134,-1.135, &-1.136,-1.137,-1.138,-1.138,-1.139,-1.140,-1.141,-1.142,-1.142, &-1.143,-1.144,-1.145,-1.146,-1.146,-1.147,-1.148,-1.149,-1.150, &-1.150,-1.151,-1.152,-1.153,-1.153,-1.154,-1.155,-1.156,-1.157, &-1.157,-1.158,-1.159,-1.160,-1.168,-1.175,-1.183,-1.190,-1.198, &-1.205,-1.212,-1.219,-1.226,-1.233,-1.239,-1.246,-1.253,-1.259, &-1.266,-1.272,-1.279,-1.285,-1.291,-1.298,-1.304,-1.310,-1.316, &-1.322,-1.328,-1.334,-1.340,-1.346,-1.352,-1.357,-1.363,-1.369, &-1.374,-1.380,-1.386,-1.391,-1.397,-1.402,-1.408,-1.413,-1.419, &-1.424,-1.429,-1.435,-1.440,-1.445,-1.450,-1.456,-1.461,-1.466, &-1.471,-1.476,-1.481,-1.486,-1.491,-1.496,-1.501,-1.506,-1.511, &-1.516,-1.521,-1.526,-1.531,-1.536,-1.541,-1.545,-1.550,-1.555, &-1.560,-1.564,-1.569,-1.574,-1.579,-1.583,-1.588,-1.593,-1.597, &-1.602,-1.606,-1.611,-1.616,-1.620,-1.625,-1.629,-1.634,-1.638, &-1.643,-1.647,-1.652,-1.656,-1.661,-1.665,-1.670,-1.674,-1.678, &-1.683,-1.687,-1.692,-1.696,-1.700,-1.705,-1.709,-1.713,-1.718, &-1.722,-1.726,-1.730,-1.735,-1.739,-1.743,-1.747,-1.752,-1.756, &-1.760,-1.764,-1.768,-1.773,-1.777,-1.781,-1.785,-1.789,-1.793, &-1.798,-1.802,-1.806,-1.810,-1.814,-1.818,-1.822,-1.826,-1.830, &-1.834,-1.838,-1.843,-1.847,-1.851,-1.855,-1.859,-1.863,-1.867, &-1.871,-1.875,-1.879,-1.883,-1.887,-1.891,-1.895,-1.899,-1.902, &-1.906,-1.910,-1.914,-1.918,-1.922,-1.926,-1.930,-1.934,-1.938, &-1.942,-1.946,-1.949 & / C C *** NaNO3 C DATA BNC03M/ &-0.048,-0.105,-0.133,-0.154,-0.170,-0.183,-0.195,-0.205,-0.214, &-0.223,-0.230,-0.237,-0.244,-0.250,-0.256,-0.261,-0.266,-0.271, &-0.276,-0.280,-0.284,-0.289,-0.292,-0.296,-0.300,-0.304,-0.307, &-0.310,-0.314,-0.317,-0.320,-0.323,-0.326,-0.328,-0.331,-0.334, &-0.337,-0.339,-0.342,-0.344,-0.347,-0.349,-0.351,-0.353,-0.356, &-0.358,-0.360,-0.362,-0.364,-0.366,-0.368,-0.370,-0.372,-0.374, &-0.376,-0.378,-0.379,-0.381,-0.383,-0.385,-0.386,-0.388,-0.390, &-0.391,-0.393,-0.395,-0.396,-0.398,-0.399,-0.401,-0.402,-0.404, &-0.405,-0.407,-0.408,-0.410,-0.411,-0.413,-0.414,-0.415,-0.417, &-0.418,-0.420,-0.421,-0.422,-0.424,-0.425,-0.426,-0.427,-0.429, &-0.430,-0.431,-0.433,-0.434,-0.435,-0.436,-0.438,-0.439,-0.440, &-0.441,-0.442,-0.444,-0.445,-0.446,-0.447,-0.448,-0.449,-0.451, &-0.452,-0.453,-0.454,-0.455,-0.456,-0.457,-0.459,-0.460,-0.461, &-0.462,-0.463,-0.464,-0.465,-0.466,-0.467,-0.468,-0.469,-0.470, &-0.472,-0.473,-0.474,-0.475,-0.476,-0.477,-0.478,-0.479,-0.480, &-0.481,-0.482,-0.483,-0.484,-0.485,-0.486,-0.487,-0.488,-0.489, &-0.490,-0.490,-0.491,-0.492,-0.493,-0.494,-0.495,-0.496,-0.497, &-0.498,-0.499,-0.500,-0.501,-0.502,-0.503,-0.503,-0.504,-0.505, &-0.506,-0.507,-0.508,-0.509,-0.510,-0.510,-0.511,-0.512,-0.513, &-0.514,-0.515,-0.516,-0.516,-0.517,-0.518,-0.519,-0.520,-0.521, &-0.521,-0.522,-0.523,-0.524,-0.525,-0.526,-0.526,-0.527,-0.528, &-0.529,-0.530,-0.530,-0.531,-0.532,-0.533,-0.534,-0.534,-0.535, &-0.536,-0.537,-0.537,-0.538,-0.539,-0.540,-0.540,-0.541,-0.542, &-0.543,-0.543,-0.544,-0.545,-0.546,-0.546,-0.547,-0.548,-0.549, &-0.549,-0.550,-0.551,-0.552,-0.552,-0.553,-0.554,-0.554,-0.555, &-0.556,-0.557,-0.557,-0.558,-0.559,-0.559,-0.560,-0.561,-0.562, &-0.562,-0.563,-0.564,-0.564,-0.565,-0.566,-0.566,-0.567,-0.568, &-0.568,-0.569,-0.570,-0.570,-0.571,-0.572,-0.572,-0.573,-0.574, &-0.574,-0.575,-0.576,-0.576,-0.577,-0.578,-0.578,-0.579,-0.580, &-0.580,-0.581,-0.582,-0.582,-0.583,-0.584,-0.584,-0.585,-0.585, &-0.586,-0.587,-0.587,-0.588,-0.589,-0.589,-0.590,-0.591,-0.591, &-0.592,-0.592,-0.593,-0.594,-0.594,-0.595,-0.595,-0.596,-0.597, &-0.597,-0.598,-0.599,-0.599,-0.600,-0.600,-0.601,-0.602,-0.602, &-0.603,-0.603,-0.604,-0.604,-0.605,-0.606,-0.606,-0.607,-0.607, &-0.608,-0.609,-0.609,-0.610,-0.610,-0.611,-0.612,-0.612,-0.613, &-0.613,-0.614,-0.614,-0.615,-0.616,-0.616,-0.617,-0.617,-0.618, &-0.618,-0.619,-0.619,-0.620,-0.621,-0.621,-0.622,-0.622,-0.623, &-0.623,-0.624,-0.624,-0.625,-0.626,-0.626,-0.627,-0.627,-0.628, &-0.628,-0.629,-0.629,-0.630,-0.630,-0.631,-0.632,-0.632,-0.633, &-0.633,-0.634,-0.634,-0.635,-0.635,-0.636,-0.636,-0.637,-0.637, &-0.638,-0.638,-0.639,-0.640,-0.640,-0.641,-0.641,-0.642,-0.642, &-0.643,-0.643,-0.644,-0.644,-0.645,-0.645,-0.646,-0.646,-0.647, &-0.647,-0.648,-0.648,-0.649,-0.649,-0.650,-0.650,-0.651,-0.651, &-0.652,-0.652,-0.653,-0.653,-0.654,-0.654,-0.655,-0.655,-0.656, &-0.656,-0.657,-0.657,-0.658,-0.663,-0.668,-0.673,-0.677,-0.682, &-0.687,-0.691,-0.696,-0.700,-0.704,-0.709,-0.713,-0.717,-0.721, &-0.725,-0.729,-0.733,-0.737,-0.741,-0.745,-0.749,-0.753,-0.757, &-0.760,-0.764,-0.768,-0.771,-0.775,-0.779,-0.782,-0.786,-0.789, &-0.793,-0.796,-0.799,-0.803,-0.806,-0.810,-0.813,-0.816,-0.819, &-0.823,-0.826,-0.829,-0.832,-0.836,-0.839,-0.842,-0.845,-0.848, &-0.851,-0.854,-0.857,-0.860,-0.863,-0.866,-0.869,-0.872,-0.875, &-0.878,-0.881,-0.884,-0.887,-0.890,-0.893,-0.895,-0.898,-0.901, &-0.904,-0.907,-0.909,-0.912,-0.915,-0.918,-0.920,-0.923,-0.926, &-0.929,-0.931,-0.934,-0.937,-0.939,-0.942,-0.945,-0.947,-0.950, &-0.952,-0.955,-0.958,-0.960,-0.963,-0.965,-0.968,-0.971,-0.973, &-0.976,-0.978,-0.981,-0.983,-0.986,-0.988,-0.991,-0.993,-0.996, &-0.998,-1.000,-1.003,-1.005,-1.008,-1.010,-1.013,-1.015,-1.017, &-1.020,-1.022,-1.025,-1.027,-1.029,-1.032,-1.034,-1.036,-1.039, &-1.041,-1.043,-1.046,-1.048,-1.050,-1.053,-1.055,-1.057,-1.060, &-1.062,-1.064,-1.067,-1.069,-1.071,-1.073,-1.076,-1.078,-1.080, &-1.082,-1.085,-1.087,-1.089,-1.091,-1.093,-1.096,-1.098,-1.100, &-1.102,-1.105,-1.107,-1.109,-1.111,-1.113,-1.115,-1.118,-1.120, &-1.122,-1.124,-1.126 & / C C *** (NH4)2SO4 C DATA BNC04M/ &-0.096,-0.208,-0.265,-0.305,-0.337,-0.363,-0.385,-0.405,-0.423, &-0.439,-0.453,-0.467,-0.479,-0.491,-0.502,-0.512,-0.522,-0.531, &-0.540,-0.548,-0.556,-0.564,-0.571,-0.578,-0.585,-0.592,-0.598, &-0.605,-0.610,-0.616,-0.622,-0.627,-0.633,-0.638,-0.643,-0.648, &-0.653,-0.657,-0.662,-0.666,-0.671,-0.675,-0.679,-0.683,-0.688, &-0.691,-0.695,-0.699,-0.703,-0.707,-0.710,-0.714,-0.717,-0.721, &-0.724,-0.727,-0.731,-0.734,-0.737,-0.740,-0.743,-0.746,-0.749, &-0.752,-0.755,-0.758,-0.761,-0.763,-0.766,-0.769,-0.772,-0.774, &-0.777,-0.780,-0.782,-0.785,-0.787,-0.790,-0.792,-0.795,-0.797, &-0.799,-0.802,-0.804,-0.807,-0.809,-0.811,-0.814,-0.816,-0.818, &-0.820,-0.823,-0.825,-0.827,-0.829,-0.831,-0.833,-0.836,-0.838, &-0.840,-0.842,-0.844,-0.846,-0.848,-0.850,-0.852,-0.854,-0.856, &-0.858,-0.860,-0.862,-0.864,-0.866,-0.868,-0.870,-0.872,-0.874, &-0.875,-0.877,-0.879,-0.881,-0.883,-0.885,-0.887,-0.888,-0.890, &-0.892,-0.894,-0.895,-0.897,-0.899,-0.901,-0.902,-0.904,-0.906, &-0.908,-0.909,-0.911,-0.913,-0.914,-0.916,-0.918,-0.919,-0.921, &-0.923,-0.924,-0.926,-0.927,-0.929,-0.931,-0.932,-0.934,-0.935, &-0.937,-0.938,-0.940,-0.942,-0.943,-0.945,-0.946,-0.948,-0.949, &-0.951,-0.952,-0.954,-0.955,-0.957,-0.958,-0.960,-0.961,-0.962, &-0.964,-0.965,-0.967,-0.968,-0.970,-0.971,-0.972,-0.974,-0.975, &-0.977,-0.978,-0.979,-0.981,-0.982,-0.984,-0.985,-0.986,-0.988, &-0.989,-0.990,-0.992,-0.993,-0.994,-0.996,-0.997,-0.998,-1.000, &-1.001,-1.002,-1.004,-1.005,-1.006,-1.007,-1.009,-1.010,-1.011, &-1.013,-1.014,-1.015,-1.016,-1.018,-1.019,-1.020,-1.021,-1.023, &-1.024,-1.025,-1.026,-1.027,-1.029,-1.030,-1.031,-1.032,-1.034, &-1.035,-1.036,-1.037,-1.038,-1.039,-1.041,-1.042,-1.043,-1.044, &-1.045,-1.047,-1.048,-1.049,-1.050,-1.051,-1.052,-1.053,-1.055, &-1.056,-1.057,-1.058,-1.059,-1.060,-1.061,-1.063,-1.064,-1.065, &-1.066,-1.067,-1.068,-1.069,-1.070,-1.071,-1.073,-1.074,-1.075, &-1.076,-1.077,-1.078,-1.079,-1.080,-1.081,-1.082,-1.083,-1.084, &-1.086,-1.087,-1.088,-1.089,-1.090,-1.091,-1.092,-1.093,-1.094, &-1.095,-1.096,-1.097,-1.098,-1.099,-1.100,-1.101,-1.102,-1.103, &-1.104,-1.105,-1.106,-1.107,-1.108,-1.109,-1.110,-1.111,-1.112, &-1.114,-1.115,-1.116,-1.117,-1.118,-1.119,-1.119,-1.120,-1.121, &-1.122,-1.123,-1.124,-1.125,-1.126,-1.127,-1.128,-1.129,-1.130, &-1.131,-1.132,-1.133,-1.134,-1.135,-1.136,-1.137,-1.138,-1.139, &-1.140,-1.141,-1.142,-1.143,-1.144,-1.145,-1.146,-1.147,-1.147, &-1.148,-1.149,-1.150,-1.151,-1.152,-1.153,-1.154,-1.155,-1.156, &-1.157,-1.158,-1.159,-1.160,-1.160,-1.161,-1.162,-1.163,-1.164, &-1.165,-1.166,-1.167,-1.168,-1.169,-1.169,-1.170,-1.171,-1.172, &-1.173,-1.174,-1.175,-1.176,-1.177,-1.178,-1.178,-1.179,-1.180, &-1.181,-1.182,-1.183,-1.184,-1.185,-1.185,-1.186,-1.187,-1.188, &-1.189,-1.190,-1.191,-1.191,-1.192,-1.193,-1.194,-1.195,-1.196, &-1.197,-1.198,-1.198,-1.199,-1.200,-1.201,-1.202,-1.203,-1.203, &-1.204,-1.205,-1.206,-1.207,-1.216,-1.224,-1.232,-1.240,-1.248, &-1.256,-1.263,-1.271,-1.279,-1.286,-1.293,-1.301,-1.308,-1.315, &-1.322,-1.329,-1.336,-1.343,-1.349,-1.356,-1.363,-1.369,-1.376, &-1.382,-1.389,-1.395,-1.402,-1.408,-1.414,-1.420,-1.427,-1.433, &-1.439,-1.445,-1.451,-1.457,-1.463,-1.468,-1.474,-1.480,-1.486, &-1.492,-1.497,-1.503,-1.509,-1.514,-1.520,-1.525,-1.531,-1.536, &-1.542,-1.547,-1.553,-1.558,-1.563,-1.569,-1.574,-1.579,-1.585, &-1.590,-1.595,-1.600,-1.605,-1.611,-1.616,-1.621,-1.626,-1.631, &-1.636,-1.641,-1.646,-1.651,-1.656,-1.661,-1.666,-1.671,-1.676, &-1.681,-1.685,-1.690,-1.695,-1.700,-1.705,-1.710,-1.714,-1.719, &-1.724,-1.729,-1.733,-1.738,-1.743,-1.747,-1.752,-1.757,-1.761, &-1.766,-1.770,-1.775,-1.780,-1.784,-1.789,-1.793,-1.798,-1.802, &-1.807,-1.811,-1.816,-1.820,-1.825,-1.829,-1.834,-1.838,-1.842, &-1.847,-1.851,-1.856,-1.860,-1.864,-1.869,-1.873,-1.877,-1.882, &-1.886,-1.890,-1.895,-1.899,-1.903,-1.908,-1.912,-1.916,-1.920, &-1.925,-1.929,-1.933,-1.937,-1.941,-1.946,-1.950,-1.954,-1.958, &-1.962,-1.966,-1.971,-1.975,-1.979,-1.983,-1.987,-1.991,-1.995, &-2.000,-2.004,-2.008,-2.012,-2.016,-2.020,-2.024,-2.028,-2.032, &-2.036,-2.040,-2.044 & / C C *** NH4NO3 C DATA BNC05M/ &-0.048,-0.108,-0.138,-0.161,-0.179,-0.194,-0.208,-0.220,-0.231, &-0.241,-0.250,-0.259,-0.267,-0.275,-0.282,-0.289,-0.296,-0.302, &-0.309,-0.315,-0.321,-0.326,-0.332,-0.337,-0.342,-0.347,-0.352, &-0.357,-0.361,-0.366,-0.370,-0.375,-0.379,-0.383,-0.387,-0.391, &-0.395,-0.399,-0.403,-0.406,-0.410,-0.414,-0.417,-0.421,-0.424, &-0.427,-0.431,-0.434,-0.437,-0.440,-0.443,-0.446,-0.449,-0.452, &-0.455,-0.458,-0.461,-0.464,-0.466,-0.469,-0.472,-0.475,-0.477, &-0.480,-0.482,-0.485,-0.487,-0.490,-0.492,-0.495,-0.497,-0.500, &-0.502,-0.505,-0.507,-0.509,-0.512,-0.514,-0.516,-0.518,-0.521, &-0.523,-0.525,-0.527,-0.530,-0.532,-0.534,-0.536,-0.538,-0.541, &-0.543,-0.545,-0.547,-0.549,-0.551,-0.553,-0.555,-0.558,-0.560, &-0.562,-0.564,-0.566,-0.568,-0.570,-0.572,-0.574,-0.576,-0.578, &-0.580,-0.582,-0.584,-0.586,-0.588,-0.590,-0.592,-0.594,-0.596, &-0.598,-0.600,-0.602,-0.604,-0.606,-0.608,-0.609,-0.611,-0.613, &-0.615,-0.617,-0.619,-0.621,-0.622,-0.624,-0.626,-0.628,-0.630, &-0.631,-0.633,-0.635,-0.637,-0.639,-0.640,-0.642,-0.644,-0.646, &-0.647,-0.649,-0.651,-0.652,-0.654,-0.656,-0.657,-0.659,-0.661, &-0.662,-0.664,-0.666,-0.667,-0.669,-0.671,-0.672,-0.674,-0.675, &-0.677,-0.679,-0.680,-0.682,-0.683,-0.685,-0.686,-0.688,-0.690, &-0.691,-0.693,-0.694,-0.696,-0.697,-0.699,-0.700,-0.702,-0.703, &-0.705,-0.706,-0.708,-0.709,-0.711,-0.712,-0.713,-0.715,-0.716, &-0.718,-0.719,-0.721,-0.722,-0.723,-0.725,-0.726,-0.728,-0.729, &-0.730,-0.732,-0.733,-0.735,-0.736,-0.737,-0.739,-0.740,-0.741, &-0.743,-0.744,-0.745,-0.747,-0.748,-0.749,-0.751,-0.752,-0.753, &-0.755,-0.756,-0.757,-0.759,-0.760,-0.761,-0.762,-0.764,-0.765, &-0.766,-0.768,-0.769,-0.770,-0.771,-0.773,-0.774,-0.775,-0.776, &-0.778,-0.779,-0.780,-0.781,-0.782,-0.784,-0.785,-0.786,-0.787, &-0.788,-0.790,-0.791,-0.792,-0.793,-0.794,-0.796,-0.797,-0.798, &-0.799,-0.800,-0.801,-0.803,-0.804,-0.805,-0.806,-0.807,-0.808, &-0.809,-0.811,-0.812,-0.813,-0.814,-0.815,-0.816,-0.817,-0.818, &-0.820,-0.821,-0.822,-0.823,-0.824,-0.825,-0.826,-0.827,-0.828, &-0.829,-0.830,-0.832,-0.833,-0.834,-0.835,-0.836,-0.837,-0.838, &-0.839,-0.840,-0.841,-0.842,-0.843,-0.844,-0.845,-0.846,-0.847, &-0.848,-0.849,-0.850,-0.851,-0.852,-0.853,-0.854,-0.855,-0.857, &-0.858,-0.859,-0.860,-0.861,-0.862,-0.863,-0.863,-0.864,-0.865, &-0.866,-0.867,-0.868,-0.869,-0.870,-0.871,-0.872,-0.873,-0.874, &-0.875,-0.876,-0.877,-0.878,-0.879,-0.880,-0.881,-0.882,-0.883, &-0.884,-0.885,-0.886,-0.887,-0.887,-0.888,-0.889,-0.890,-0.891, &-0.892,-0.893,-0.894,-0.895,-0.896,-0.897,-0.898,-0.898,-0.899, &-0.900,-0.901,-0.902,-0.903,-0.904,-0.905,-0.906,-0.907,-0.907, &-0.908,-0.909,-0.910,-0.911,-0.912,-0.913,-0.914,-0.914,-0.915, &-0.916,-0.917,-0.918,-0.919,-0.920,-0.920,-0.921,-0.922,-0.923, &-0.924,-0.925,-0.926,-0.926,-0.927,-0.928,-0.929,-0.930,-0.931, &-0.931,-0.932,-0.933,-0.934,-0.935,-0.936,-0.936,-0.937,-0.938, &-0.939,-0.940,-0.940,-0.941,-0.950,-0.958,-0.965,-0.973,-0.980, &-0.988,-0.995,-1.002,-1.009,-1.015,-1.022,-1.029,-1.035,-1.041, &-1.047,-1.054,-1.060,-1.066,-1.071,-1.077,-1.083,-1.088,-1.094, &-1.099,-1.105,-1.110,-1.115,-1.120,-1.125,-1.130,-1.135,-1.140, &-1.145,-1.150,-1.155,-1.159,-1.164,-1.168,-1.173,-1.177,-1.182, &-1.186,-1.191,-1.195,-1.199,-1.203,-1.207,-1.212,-1.216,-1.220, &-1.224,-1.228,-1.232,-1.235,-1.239,-1.243,-1.247,-1.251,-1.254, &-1.258,-1.262,-1.265,-1.269,-1.273,-1.276,-1.280,-1.283,-1.287, &-1.290,-1.293,-1.297,-1.300,-1.304,-1.307,-1.310,-1.313,-1.317, &-1.320,-1.323,-1.326,-1.330,-1.333,-1.336,-1.339,-1.342,-1.345, &-1.348,-1.351,-1.354,-1.357,-1.360,-1.363,-1.366,-1.369,-1.372, &-1.375,-1.378,-1.381,-1.383,-1.386,-1.389,-1.392,-1.395,-1.397, &-1.400,-1.403,-1.406,-1.408,-1.411,-1.414,-1.417,-1.419,-1.422, &-1.425,-1.427,-1.430,-1.432,-1.435,-1.438,-1.440,-1.443,-1.445, &-1.448,-1.450,-1.453,-1.456,-1.458,-1.461,-1.463,-1.466,-1.468, &-1.470,-1.473,-1.475,-1.478,-1.480,-1.483,-1.485,-1.487,-1.490, &-1.492,-1.495,-1.497,-1.499,-1.502,-1.504,-1.506,-1.509,-1.511, &-1.513,-1.516,-1.518,-1.520,-1.523,-1.525,-1.527,-1.529,-1.532, &-1.534,-1.536,-1.538 & / C C *** NH4Cl C DATA BNC06M/ &-0.047,-0.101,-0.126,-0.144,-0.157,-0.168,-0.177,-0.185,-0.191, &-0.197,-0.202,-0.207,-0.211,-0.215,-0.218,-0.221,-0.224,-0.227, &-0.229,-0.232,-0.234,-0.236,-0.238,-0.239,-0.241,-0.242,-0.244, &-0.245,-0.246,-0.247,-0.249,-0.250,-0.251,-0.251,-0.252,-0.253, &-0.254,-0.255,-0.255,-0.256,-0.257,-0.257,-0.258,-0.258,-0.259, &-0.259,-0.260,-0.260,-0.261,-0.261,-0.261,-0.262,-0.262,-0.262, &-0.263,-0.263,-0.263,-0.263,-0.264,-0.264,-0.264,-0.264,-0.265, &-0.265,-0.265,-0.265,-0.265,-0.265,-0.265,-0.266,-0.266,-0.266, &-0.266,-0.266,-0.266,-0.266,-0.266,-0.266,-0.266,-0.266,-0.266, &-0.266,-0.266,-0.266,-0.266,-0.266,-0.266,-0.266,-0.266,-0.265, &-0.265,-0.265,-0.265,-0.265,-0.265,-0.265,-0.264,-0.264,-0.264, &-0.264,-0.264,-0.263,-0.263,-0.263,-0.263,-0.263,-0.262,-0.262, &-0.262,-0.262,-0.261,-0.261,-0.261,-0.260,-0.260,-0.260,-0.260, &-0.259,-0.259,-0.259,-0.258,-0.258,-0.258,-0.257,-0.257,-0.257, &-0.256,-0.256,-0.256,-0.255,-0.255,-0.255,-0.254,-0.254,-0.254, &-0.253,-0.253,-0.253,-0.252,-0.252,-0.252,-0.251,-0.251,-0.251, &-0.250,-0.250,-0.249,-0.249,-0.249,-0.248,-0.248,-0.248,-0.247, &-0.247,-0.247,-0.246,-0.246,-0.245,-0.245,-0.245,-0.244,-0.244, &-0.244,-0.243,-0.243,-0.242,-0.242,-0.242,-0.241,-0.241,-0.241, &-0.240,-0.240,-0.239,-0.239,-0.239,-0.238,-0.238,-0.238,-0.237, &-0.237,-0.236,-0.236,-0.236,-0.235,-0.235,-0.235,-0.234,-0.234, &-0.233,-0.233,-0.233,-0.232,-0.232,-0.231,-0.231,-0.231,-0.230, &-0.230,-0.230,-0.229,-0.229,-0.228,-0.228,-0.228,-0.227,-0.227, &-0.227,-0.226,-0.226,-0.225,-0.225,-0.225,-0.224,-0.224,-0.224, &-0.223,-0.223,-0.222,-0.222,-0.222,-0.221,-0.221,-0.221,-0.220, &-0.220,-0.219,-0.219,-0.219,-0.218,-0.218,-0.218,-0.217,-0.217, &-0.216,-0.216,-0.216,-0.215,-0.215,-0.215,-0.214,-0.214,-0.214, &-0.213,-0.213,-0.212,-0.212,-0.212,-0.211,-0.211,-0.211,-0.210, &-0.210,-0.210,-0.209,-0.209,-0.208,-0.208,-0.208,-0.207,-0.207, &-0.207,-0.206,-0.206,-0.206,-0.205,-0.205,-0.204,-0.204,-0.204, &-0.203,-0.203,-0.203,-0.202,-0.202,-0.202,-0.201,-0.201,-0.201, &-0.200,-0.200,-0.200,-0.199,-0.199,-0.198,-0.198,-0.198,-0.197, &-0.197,-0.197,-0.196,-0.196,-0.196,-0.195,-0.195,-0.195,-0.194, &-0.194,-0.194,-0.193,-0.193,-0.193,-0.192,-0.192,-0.192,-0.191, &-0.191,-0.191,-0.190,-0.190,-0.190,-0.189,-0.189,-0.189,-0.188, &-0.188,-0.188,-0.187,-0.187,-0.187,-0.186,-0.186,-0.186,-0.185, &-0.185,-0.185,-0.184,-0.184,-0.184,-0.183,-0.183,-0.183,-0.182, &-0.182,-0.182,-0.181,-0.181,-0.181,-0.180,-0.180,-0.180,-0.179, &-0.179,-0.179,-0.178,-0.178,-0.178,-0.177,-0.177,-0.177,-0.176, &-0.176,-0.176,-0.176,-0.175,-0.175,-0.175,-0.174,-0.174,-0.174, &-0.173,-0.173,-0.173,-0.172,-0.172,-0.172,-0.171,-0.171,-0.171, &-0.171,-0.170,-0.170,-0.170,-0.169,-0.169,-0.169,-0.168,-0.168, &-0.168,-0.167,-0.167,-0.167,-0.167,-0.166,-0.166,-0.166,-0.165, &-0.165,-0.165,-0.164,-0.164,-0.164,-0.164,-0.163,-0.163,-0.163, &-0.162,-0.162,-0.162,-0.161,-0.158,-0.155,-0.153,-0.150,-0.147, &-0.144,-0.142,-0.139,-0.137,-0.134,-0.132,-0.129,-0.127,-0.125, &-0.122,-0.120,-0.118,-0.116,-0.113,-0.111,-0.109,-0.107,-0.105, &-0.103,-0.101,-0.099,-0.097,-0.095,-0.093,-0.092,-0.090,-0.088, &-0.086,-0.085,-0.083,-0.081,-0.080,-0.078,-0.077,-0.075,-0.073, &-0.072,-0.071,-0.069,-0.068,-0.066,-0.065,-0.064,-0.062,-0.061, &-0.060,-0.058,-0.057,-0.056,-0.055,-0.053,-0.052,-0.051,-0.050, &-0.049,-0.048,-0.047,-0.046,-0.044,-0.043,-0.042,-0.041,-0.040, &-0.039,-0.039,-0.038,-0.037,-0.036,-0.035,-0.034,-0.033,-0.032, &-0.032,-0.031,-0.030,-0.029,-0.028,-0.028,-0.027,-0.026,-0.025, &-0.025,-0.024,-0.023,-0.023,-0.022,-0.021,-0.021,-0.020,-0.019, &-0.019,-0.018,-0.018,-0.017,-0.017,-0.016,-0.016,-0.015,-0.015, &-0.014,-0.014,-0.013,-0.013,-0.012,-0.012,-0.011,-0.011,-0.010, &-0.010,-0.010,-0.009,-0.009,-0.008,-0.008,-0.008,-0.007,-0.007, &-0.007,-0.006,-0.006,-0.006,-0.005,-0.005,-0.005,-0.005,-0.004, &-0.004,-0.004,-0.004,-0.003,-0.003,-0.003,-0.003,-0.003,-0.002, &-0.002,-0.002,-0.002,-0.002,-0.002,-0.001,-0.001,-0.001,-0.001, &-0.001,-0.001,-0.001,-0.001, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000 & / C C *** (2H,SO4) C DATA BNC07M/ &-0.095,-0.207,-0.263,-0.303,-0.333,-0.359,-0.381,-0.400,-0.417, &-0.432,-0.446,-0.459,-0.471,-0.482,-0.492,-0.502,-0.511,-0.520, &-0.528,-0.536,-0.543,-0.550,-0.557,-0.564,-0.570,-0.576,-0.582, &-0.588,-0.593,-0.598,-0.603,-0.608,-0.613,-0.618,-0.622,-0.627, &-0.631,-0.635,-0.640,-0.644,-0.648,-0.651,-0.655,-0.659,-0.662, &-0.666,-0.669,-0.673,-0.676,-0.679,-0.682,-0.686,-0.689,-0.692, &-0.695,-0.698,-0.700,-0.703,-0.706,-0.709,-0.712,-0.714,-0.717, &-0.719,-0.722,-0.724,-0.727,-0.729,-0.732,-0.734,-0.736,-0.739, &-0.741,-0.743,-0.746,-0.748,-0.750,-0.752,-0.754,-0.756,-0.758, &-0.761,-0.763,-0.765,-0.767,-0.769,-0.771,-0.773,-0.774,-0.776, &-0.778,-0.780,-0.782,-0.784,-0.786,-0.787,-0.789,-0.791,-0.793, &-0.795,-0.796,-0.798,-0.800,-0.802,-0.803,-0.805,-0.807,-0.808, &-0.810,-0.811,-0.813,-0.815,-0.816,-0.818,-0.819,-0.821,-0.823, &-0.824,-0.826,-0.827,-0.829,-0.830,-0.832,-0.833,-0.835,-0.836, &-0.838,-0.839,-0.841,-0.842,-0.843,-0.845,-0.846,-0.848,-0.849, &-0.850,-0.852,-0.853,-0.854,-0.856,-0.857,-0.858,-0.860,-0.861, &-0.862,-0.864,-0.865,-0.866,-0.868,-0.869,-0.870,-0.871,-0.873, &-0.874,-0.875,-0.876,-0.878,-0.879,-0.880,-0.881,-0.883,-0.884, &-0.885,-0.886,-0.887,-0.889,-0.890,-0.891,-0.892,-0.893,-0.894, &-0.896,-0.897,-0.898,-0.899,-0.900,-0.901,-0.902,-0.904,-0.905, &-0.906,-0.907,-0.908,-0.909,-0.910,-0.911,-0.912,-0.914,-0.915, &-0.916,-0.917,-0.918,-0.919,-0.920,-0.921,-0.922,-0.923,-0.924, &-0.925,-0.926,-0.927,-0.928,-0.929,-0.930,-0.931,-0.932,-0.933, &-0.934,-0.935,-0.936,-0.937,-0.938,-0.939,-0.940,-0.941,-0.942, &-0.943,-0.944,-0.945,-0.946,-0.947,-0.948,-0.949,-0.950,-0.951, &-0.952,-0.953,-0.954,-0.955,-0.956,-0.957,-0.958,-0.959,-0.960, &-0.960,-0.961,-0.962,-0.963,-0.964,-0.965,-0.966,-0.967,-0.968, &-0.969,-0.970,-0.970,-0.971,-0.972,-0.973,-0.974,-0.975,-0.976, &-0.977,-0.978,-0.978,-0.979,-0.980,-0.981,-0.982,-0.983,-0.984, &-0.985,-0.985,-0.986,-0.987,-0.988,-0.989,-0.990,-0.991,-0.991, &-0.992,-0.993,-0.994,-0.995,-0.996,-0.996,-0.997,-0.998,-0.999, &-1.000,-1.001,-1.001,-1.002,-1.003,-1.004,-1.005,-1.005,-1.006, &-1.007,-1.008,-1.009,-1.010,-1.010,-1.011,-1.012,-1.013,-1.014, &-1.014,-1.015,-1.016,-1.017,-1.017,-1.018,-1.019,-1.020,-1.021, &-1.021,-1.022,-1.023,-1.024,-1.025,-1.025,-1.026,-1.027,-1.028, &-1.028,-1.029,-1.030,-1.031,-1.031,-1.032,-1.033,-1.034,-1.034, &-1.035,-1.036,-1.037,-1.037,-1.038,-1.039,-1.040,-1.040,-1.041, &-1.042,-1.043,-1.043,-1.044,-1.045,-1.046,-1.046,-1.047,-1.048, &-1.049,-1.049,-1.050,-1.051,-1.051,-1.052,-1.053,-1.054,-1.054, &-1.055,-1.056,-1.057,-1.057,-1.058,-1.059,-1.059,-1.060,-1.061, &-1.061,-1.062,-1.063,-1.064,-1.064,-1.065,-1.066,-1.066,-1.067, &-1.068,-1.069,-1.069,-1.070,-1.071,-1.071,-1.072,-1.073,-1.073, &-1.074,-1.075,-1.075,-1.076,-1.077,-1.078,-1.078,-1.079,-1.080, &-1.080,-1.081,-1.082,-1.082,-1.083,-1.084,-1.084,-1.085,-1.086, &-1.086,-1.087,-1.088,-1.088,-1.096,-1.102,-1.109,-1.115,-1.121, &-1.127,-1.134,-1.140,-1.146,-1.152,-1.158,-1.163,-1.169,-1.175, &-1.181,-1.186,-1.192,-1.198,-1.203,-1.209,-1.214,-1.219,-1.225, &-1.230,-1.235,-1.241,-1.246,-1.251,-1.256,-1.261,-1.266,-1.271, &-1.276,-1.281,-1.286,-1.291,-1.296,-1.301,-1.306,-1.311,-1.315, &-1.320,-1.325,-1.330,-1.334,-1.339,-1.344,-1.348,-1.353,-1.358, &-1.362,-1.367,-1.371,-1.376,-1.380,-1.385,-1.389,-1.394,-1.398, &-1.403,-1.407,-1.412,-1.416,-1.420,-1.425,-1.429,-1.434,-1.438, &-1.442,-1.447,-1.451,-1.455,-1.459,-1.464,-1.468,-1.472,-1.476, &-1.480,-1.485,-1.489,-1.493,-1.497,-1.501,-1.505,-1.510,-1.514, &-1.518,-1.522,-1.526,-1.530,-1.534,-1.538,-1.542,-1.546,-1.550, &-1.554,-1.558,-1.562,-1.566,-1.570,-1.574,-1.578,-1.582,-1.586, &-1.590,-1.594,-1.598,-1.602,-1.606,-1.610,-1.614,-1.618,-1.622, &-1.625,-1.629,-1.633,-1.637,-1.641,-1.645,-1.649,-1.652,-1.656, &-1.660,-1.664,-1.668,-1.672,-1.675,-1.679,-1.683,-1.687,-1.690, &-1.694,-1.698,-1.702,-1.706,-1.709,-1.713,-1.717,-1.721,-1.724, &-1.728,-1.732,-1.735,-1.739,-1.743,-1.747,-1.750,-1.754,-1.758, &-1.761,-1.765,-1.769,-1.772,-1.776,-1.780,-1.783,-1.787,-1.791, &-1.794,-1.798,-1.801 & / C C *** (H,HSO4) C DATA BNC08M/ &-0.045,-0.089,-0.107,-0.117,-0.124,-0.128,-0.131,-0.132,-0.133, &-0.132,-0.132,-0.130,-0.128,-0.126,-0.123,-0.120,-0.117,-0.113, &-0.109,-0.105,-0.101,-0.096,-0.091,-0.086,-0.081,-0.076,-0.070, &-0.065,-0.059,-0.053,-0.047,-0.040,-0.034,-0.027,-0.021,-0.014, &-0.007, 0.000, 0.007, 0.014, 0.021, 0.028, 0.036, 0.043, 0.051, & 0.058, 0.066, 0.074, 0.082, 0.089, 0.097, 0.105, 0.113, 0.121, & 0.130, 0.138, 0.146, 0.154, 0.163, 0.171, 0.179, 0.188, 0.196, & 0.205, 0.214, 0.222, 0.231, 0.240, 0.248, 0.257, 0.266, 0.275, & 0.284, 0.293, 0.302, 0.311, 0.320, 0.329, 0.338, 0.347, 0.357, & 0.366, 0.375, 0.385, 0.394, 0.404, 0.413, 0.423, 0.433, 0.442, & 0.452, 0.462, 0.472, 0.482, 0.492, 0.502, 0.512, 0.522, 0.532, & 0.542, 0.552, 0.563, 0.573, 0.583, 0.594, 0.604, 0.614, 0.625, & 0.635, 0.646, 0.656, 0.667, 0.677, 0.688, 0.698, 0.709, 0.719, & 0.730, 0.741, 0.751, 0.762, 0.772, 0.783, 0.794, 0.804, 0.815, & 0.825, 0.836, 0.846, 0.857, 0.867, 0.878, 0.888, 0.899, 0.909, & 0.920, 0.930, 0.941, 0.951, 0.962, 0.972, 0.982, 0.993, 1.003, & 1.014, 1.024, 1.034, 1.044, 1.055, 1.065, 1.075, 1.085, 1.096, & 1.106, 1.116, 1.126, 1.136, 1.146, 1.156, 1.166, 1.176, 1.186, & 1.196, 1.206, 1.216, 1.226, 1.236, 1.246, 1.256, 1.266, 1.276, & 1.285, 1.295, 1.305, 1.315, 1.325, 1.334, 1.344, 1.354, 1.363, & 1.373, 1.383, 1.392, 1.402, 1.411, 1.421, 1.430, 1.440, 1.449, & 1.459, 1.468, 1.478, 1.487, 1.496, 1.506, 1.515, 1.524, 1.534, & 1.543, 1.552, 1.561, 1.571, 1.580, 1.589, 1.598, 1.607, 1.616, & 1.625, 1.634, 1.643, 1.652, 1.661, 1.670, 1.679, 1.688, 1.697, & 1.706, 1.715, 1.724, 1.733, 1.742, 1.750, 1.759, 1.768, 1.777, & 1.786, 1.794, 1.803, 1.812, 1.820, 1.829, 1.838, 1.846, 1.855, & 1.863, 1.872, 1.880, 1.889, 1.897, 1.906, 1.914, 1.923, 1.931, & 1.940, 1.948, 1.956, 1.965, 1.973, 1.981, 1.990, 1.998, 2.006, & 2.015, 2.023, 2.031, 2.039, 2.047, 2.056, 2.064, 2.072, 2.080, & 2.088, 2.096, 2.104, 2.112, 2.120, 2.128, 2.136, 2.144, 2.152, & 2.160, 2.168, 2.176, 2.184, 2.192, 2.200, 2.207, 2.215, 2.223, & 2.231, 2.239, 2.246, 2.254, 2.262, 2.270, 2.277, 2.285, 2.293, & 2.300, 2.308, 2.316, 2.323, 2.331, 2.339, 2.346, 2.354, 2.361, & 2.369, 2.376, 2.384, 2.391, 2.399, 2.406, 2.414, 2.421, 2.428, & 2.436, 2.443, 2.451, 2.458, 2.465, 2.473, 2.480, 2.487, 2.494, & 2.502, 2.509, 2.516, 2.523, 2.531, 2.538, 2.545, 2.552, 2.559, & 2.566, 2.574, 2.581, 2.588, 2.595, 2.602, 2.609, 2.616, 2.623, & 2.630, 2.637, 2.644, 2.651, 2.658, 2.665, 2.672, 2.679, 2.686, & 2.693, 2.700, 2.707, 2.713, 2.720, 2.727, 2.734, 2.741, 2.748, & 2.754, 2.761, 2.768, 2.775, 2.781, 2.788, 2.795, 2.802, 2.808, & 2.815, 2.822, 2.828, 2.835, 2.842, 2.848, 2.855, 2.862, 2.868, & 2.875, 2.881, 2.888, 2.894, 2.901, 2.907, 2.914, 2.920, 2.927, & 2.933, 2.940, 2.946, 2.953, 2.959, 2.966, 2.972, 2.978, 2.985, & 2.991, 2.998, 3.004, 3.010, 3.017, 3.023, 3.029, 3.036, 3.042, & 3.048, 3.054, 3.061, 3.067, 3.134, 3.195, 3.254, 3.313, 3.371, & 3.428, 3.485, 3.540, 3.595, 3.648, 3.701, 3.754, 3.805, 3.856, & 3.906, 3.955, 4.004, 4.052, 4.100, 4.147, 4.193, 4.239, 4.284, & 4.328, 4.372, 4.416, 4.459, 4.501, 4.543, 4.585, 4.626, 4.666, & 4.707, 4.746, 4.786, 4.824, 4.863, 4.901, 4.938, 4.976, 5.013, & 5.049, 5.085, 5.121, 5.156, 5.191, 5.226, 5.260, 5.294, 5.328, & 5.361, 5.395, 5.427, 5.460, 5.492, 5.524, 5.555, 5.587, 5.618, & 5.649, 5.679, 5.709, 5.739, 5.769, 5.799, 5.828, 5.857, 5.886, & 5.914, 5.942, 5.971, 5.998, 6.026, 6.053, 6.081, 6.108, 6.134, & 6.161, 6.187, 6.214, 6.240, 6.265, 6.291, 6.316, 6.342, 6.367, & 6.392, 6.416, 6.441, 6.465, 6.489, 6.513, 6.537, 6.561, 6.584, & 6.608, 6.631, 6.654, 6.677, 6.699, 6.722, 6.744, 6.767, 6.789, & 6.811, 6.833, 6.854, 6.876, 6.897, 6.919, 6.940, 6.961, 6.982, & 7.003, 7.023, 7.044, 7.064, 7.085, 7.105, 7.125, 7.145, 7.165, & 7.184, 7.204, 7.223, 7.243, 7.262, 7.281, 7.300, 7.319, 7.338, & 7.356, 7.375, 7.394, 7.412, 7.430, 7.448, 7.467, 7.485, 7.502, & 7.520, 7.538, 7.556, 7.573, 7.591, 7.608, 7.625, 7.642, 7.659, & 7.676, 7.693, 7.710, 7.727, 7.743, 7.760, 7.776, 7.793, 7.809, & 7.825, 7.841, 7.858 & / C C *** NH4HSO4 C DATA BNC09M/ &-0.047,-0.099,-0.125,-0.142,-0.155,-0.166,-0.175,-0.182,-0.189, &-0.195,-0.200,-0.204,-0.208,-0.212,-0.215,-0.218,-0.221,-0.223, &-0.225,-0.227,-0.228,-0.230,-0.231,-0.232,-0.233,-0.234,-0.235, &-0.235,-0.235,-0.236,-0.236,-0.236,-0.236,-0.235,-0.235,-0.235, &-0.234,-0.233,-0.233,-0.232,-0.231,-0.230,-0.229,-0.228,-0.227, &-0.226,-0.224,-0.223,-0.222,-0.220,-0.219,-0.217,-0.215,-0.214, &-0.212,-0.210,-0.208,-0.207,-0.205,-0.203,-0.201,-0.199,-0.197, &-0.195,-0.192,-0.190,-0.188,-0.186,-0.183,-0.181,-0.179,-0.176, &-0.174,-0.171,-0.169,-0.166,-0.164,-0.161,-0.159,-0.156,-0.153, &-0.151,-0.148,-0.145,-0.143,-0.140,-0.137,-0.134,-0.131,-0.128, &-0.125,-0.122,-0.120,-0.117,-0.114,-0.110,-0.107,-0.104,-0.101, &-0.098,-0.095,-0.092,-0.089,-0.085,-0.082,-0.079,-0.076,-0.073, &-0.069,-0.066,-0.063,-0.060,-0.056,-0.053,-0.050,-0.046,-0.043, &-0.040,-0.036,-0.033,-0.030,-0.026,-0.023,-0.020,-0.016,-0.013, &-0.010,-0.006,-0.003, 0.000, 0.004, 0.007, 0.010, 0.014, 0.017, & 0.020, 0.024, 0.027, 0.030, 0.034, 0.037, 0.040, 0.043, 0.047, & 0.050, 0.053, 0.056, 0.060, 0.063, 0.066, 0.069, 0.073, 0.076, & 0.079, 0.082, 0.086, 0.089, 0.092, 0.095, 0.098, 0.101, 0.105, & 0.108, 0.111, 0.114, 0.117, 0.120, 0.123, 0.127, 0.130, 0.133, & 0.136, 0.139, 0.142, 0.145, 0.148, 0.151, 0.154, 0.157, 0.160, & 0.163, 0.166, 0.170, 0.173, 0.176, 0.179, 0.182, 0.184, 0.187, & 0.190, 0.193, 0.196, 0.199, 0.202, 0.205, 0.208, 0.211, 0.214, & 0.217, 0.220, 0.223, 0.226, 0.228, 0.231, 0.234, 0.237, 0.240, & 0.243, 0.246, 0.248, 0.251, 0.254, 0.257, 0.260, 0.262, 0.265, & 0.268, 0.271, 0.274, 0.276, 0.279, 0.282, 0.285, 0.287, 0.290, & 0.293, 0.296, 0.298, 0.301, 0.304, 0.306, 0.309, 0.312, 0.315, & 0.317, 0.320, 0.323, 0.325, 0.328, 0.330, 0.333, 0.336, 0.338, & 0.341, 0.344, 0.346, 0.349, 0.351, 0.354, 0.357, 0.359, 0.362, & 0.364, 0.367, 0.369, 0.372, 0.375, 0.377, 0.380, 0.382, 0.385, & 0.387, 0.390, 0.392, 0.395, 0.397, 0.400, 0.402, 0.405, 0.407, & 0.410, 0.412, 0.415, 0.417, 0.419, 0.422, 0.424, 0.427, 0.429, & 0.432, 0.434, 0.437, 0.439, 0.441, 0.444, 0.446, 0.449, 0.451, & 0.453, 0.456, 0.458, 0.460, 0.463, 0.465, 0.467, 0.470, 0.472, & 0.474, 0.477, 0.479, 0.481, 0.484, 0.486, 0.488, 0.491, 0.493, & 0.495, 0.498, 0.500, 0.502, 0.504, 0.507, 0.509, 0.511, 0.513, & 0.516, 0.518, 0.520, 0.522, 0.525, 0.527, 0.529, 0.531, 0.534, & 0.536, 0.538, 0.540, 0.542, 0.545, 0.547, 0.549, 0.551, 0.553, & 0.556, 0.558, 0.560, 0.562, 0.564, 0.566, 0.569, 0.571, 0.573, & 0.575, 0.577, 0.579, 0.581, 0.584, 0.586, 0.588, 0.590, 0.592, & 0.594, 0.596, 0.598, 0.600, 0.602, 0.605, 0.607, 0.609, 0.611, & 0.613, 0.615, 0.617, 0.619, 0.621, 0.623, 0.625, 0.627, 0.629, & 0.631, 0.633, 0.635, 0.637, 0.639, 0.642, 0.644, 0.646, 0.648, & 0.650, 0.652, 0.654, 0.656, 0.658, 0.660, 0.662, 0.663, 0.665, & 0.667, 0.669, 0.671, 0.673, 0.675, 0.677, 0.679, 0.681, 0.683, & 0.685, 0.687, 0.689, 0.691, 0.712, 0.730, 0.749, 0.767, 0.785, & 0.803, 0.820, 0.837, 0.854, 0.871, 0.887, 0.903, 0.919, 0.935, & 0.950, 0.965, 0.980, 0.995, 1.010, 1.024, 1.039, 1.053, 1.067, & 1.080, 1.094, 1.107, 1.120, 1.133, 1.146, 1.159, 1.172, 1.184, & 1.196, 1.209, 1.221, 1.232, 1.244, 1.256, 1.267, 1.279, 1.290, & 1.301, 1.312, 1.323, 1.334, 1.344, 1.355, 1.365, 1.376, 1.386, & 1.396, 1.406, 1.416, 1.426, 1.436, 1.445, 1.455, 1.464, 1.474, & 1.483, 1.492, 1.501, 1.511, 1.519, 1.528, 1.537, 1.546, 1.555, & 1.563, 1.572, 1.580, 1.588, 1.597, 1.605, 1.613, 1.621, 1.629, & 1.637, 1.645, 1.653, 1.660, 1.668, 1.676, 1.683, 1.691, 1.698, & 1.706, 1.713, 1.720, 1.727, 1.734, 1.742, 1.749, 1.756, 1.763, & 1.769, 1.776, 1.783, 1.790, 1.796, 1.803, 1.810, 1.816, 1.823, & 1.829, 1.835, 1.842, 1.848, 1.854, 1.861, 1.867, 1.873, 1.879, & 1.885, 1.891, 1.897, 1.903, 1.909, 1.915, 1.920, 1.926, 1.932, & 1.938, 1.943, 1.949, 1.954, 1.960, 1.965, 1.971, 1.976, 1.982, & 1.987, 1.992, 1.998, 2.003, 2.008, 2.013, 2.018, 2.024, 2.029, & 2.034, 2.039, 2.044, 2.049, 2.054, 2.059, 2.063, 2.068, 2.073, & 2.078, 2.083, 2.087, 2.092, 2.097, 2.101, 2.106, 2.111, 2.115, & 2.120, 2.124, 2.129 & / C C *** (H,NO3) C DATA BNC10M/ &-0.046,-0.096,-0.118,-0.132,-0.142,-0.150,-0.156,-0.161,-0.164, &-0.167,-0.170,-0.171,-0.173,-0.174,-0.174,-0.175,-0.175,-0.175, &-0.175,-0.174,-0.174,-0.173,-0.172,-0.171,-0.170,-0.169,-0.168, &-0.167,-0.165,-0.164,-0.163,-0.161,-0.160,-0.158,-0.156,-0.155, &-0.153,-0.151,-0.150,-0.148,-0.146,-0.144,-0.142,-0.141,-0.139, &-0.137,-0.135,-0.133,-0.131,-0.129,-0.127,-0.125,-0.124,-0.122, &-0.120,-0.118,-0.116,-0.114,-0.112,-0.110,-0.108,-0.106,-0.104, &-0.102,-0.100,-0.098,-0.096,-0.094,-0.092,-0.090,-0.088,-0.086, &-0.084,-0.082,-0.080,-0.078,-0.076,-0.074,-0.071,-0.069,-0.067, &-0.065,-0.063,-0.061,-0.058,-0.056,-0.054,-0.052,-0.049,-0.047, &-0.045,-0.043,-0.040,-0.038,-0.035,-0.033,-0.031,-0.028,-0.026, &-0.023,-0.021,-0.019,-0.016,-0.014,-0.011,-0.009,-0.006,-0.004, &-0.001, 0.001, 0.004, 0.007, 0.009, 0.012, 0.014, 0.017, 0.019, & 0.022, 0.025, 0.027, 0.030, 0.032, 0.035, 0.038, 0.040, 0.043, & 0.045, 0.048, 0.051, 0.053, 0.056, 0.058, 0.061, 0.064, 0.066, & 0.069, 0.071, 0.074, 0.077, 0.079, 0.082, 0.084, 0.087, 0.090, & 0.092, 0.095, 0.097, 0.100, 0.103, 0.105, 0.108, 0.110, 0.113, & 0.115, 0.118, 0.121, 0.123, 0.126, 0.128, 0.131, 0.133, 0.136, & 0.138, 0.141, 0.143, 0.146, 0.148, 0.151, 0.154, 0.156, 0.159, & 0.161, 0.164, 0.166, 0.169, 0.171, 0.174, 0.176, 0.179, 0.181, & 0.184, 0.186, 0.189, 0.191, 0.193, 0.196, 0.198, 0.201, 0.203, & 0.206, 0.208, 0.211, 0.213, 0.216, 0.218, 0.220, 0.223, 0.225, & 0.228, 0.230, 0.232, 0.235, 0.237, 0.240, 0.242, 0.245, 0.247, & 0.249, 0.252, 0.254, 0.256, 0.259, 0.261, 0.264, 0.266, 0.268, & 0.271, 0.273, 0.275, 0.278, 0.280, 0.282, 0.285, 0.287, 0.289, & 0.292, 0.294, 0.296, 0.299, 0.301, 0.303, 0.306, 0.308, 0.310, & 0.312, 0.315, 0.317, 0.319, 0.322, 0.324, 0.326, 0.328, 0.331, & 0.333, 0.335, 0.337, 0.340, 0.342, 0.344, 0.346, 0.349, 0.351, & 0.353, 0.355, 0.357, 0.360, 0.362, 0.364, 0.366, 0.369, 0.371, & 0.373, 0.375, 0.377, 0.379, 0.382, 0.384, 0.386, 0.388, 0.390, & 0.393, 0.395, 0.397, 0.399, 0.401, 0.403, 0.405, 0.408, 0.410, & 0.412, 0.414, 0.416, 0.418, 0.420, 0.422, 0.425, 0.427, 0.429, & 0.431, 0.433, 0.435, 0.437, 0.439, 0.441, 0.443, 0.445, 0.448, & 0.450, 0.452, 0.454, 0.456, 0.458, 0.460, 0.462, 0.464, 0.466, & 0.468, 0.470, 0.472, 0.474, 0.476, 0.478, 0.480, 0.482, 0.484, & 0.486, 0.488, 0.490, 0.492, 0.494, 0.496, 0.498, 0.500, 0.502, & 0.504, 0.506, 0.508, 0.510, 0.512, 0.514, 0.516, 0.518, 0.520, & 0.522, 0.524, 0.526, 0.528, 0.530, 0.532, 0.534, 0.536, 0.537, & 0.539, 0.541, 0.543, 0.545, 0.547, 0.549, 0.551, 0.553, 0.555, & 0.557, 0.558, 0.560, 0.562, 0.564, 0.566, 0.568, 0.570, 0.572, & 0.574, 0.575, 0.577, 0.579, 0.581, 0.583, 0.585, 0.587, 0.588, & 0.590, 0.592, 0.594, 0.596, 0.598, 0.599, 0.601, 0.603, 0.605, & 0.607, 0.609, 0.610, 0.612, 0.614, 0.616, 0.618, 0.619, 0.621, & 0.623, 0.625, 0.627, 0.628, 0.630, 0.632, 0.634, 0.635, 0.637, & 0.639, 0.641, 0.643, 0.644, 0.663, 0.680, 0.697, 0.714, 0.730, & 0.747, 0.763, 0.778, 0.794, 0.809, 0.824, 0.839, 0.854, 0.868, & 0.883, 0.897, 0.911, 0.924, 0.938, 0.951, 0.965, 0.978, 0.990, & 1.003, 1.016, 1.028, 1.040, 1.053, 1.065, 1.076, 1.088, 1.100, & 1.111, 1.122, 1.133, 1.145, 1.155, 1.166, 1.177, 1.188, 1.198, & 1.208, 1.219, 1.229, 1.239, 1.249, 1.258, 1.268, 1.278, 1.287, & 1.297, 1.306, 1.315, 1.324, 1.333, 1.342, 1.351, 1.360, 1.369, & 1.377, 1.386, 1.394, 1.403, 1.411, 1.419, 1.428, 1.436, 1.444, & 1.452, 1.459, 1.467, 1.475, 1.483, 1.490, 1.498, 1.505, 1.513, & 1.520, 1.527, 1.535, 1.542, 1.549, 1.556, 1.563, 1.570, 1.577, & 1.584, 1.590, 1.597, 1.604, 1.610, 1.617, 1.623, 1.630, 1.636, & 1.643, 1.649, 1.655, 1.661, 1.667, 1.674, 1.680, 1.686, 1.692, & 1.698, 1.703, 1.709, 1.715, 1.721, 1.727, 1.732, 1.738, 1.744, & 1.749, 1.755, 1.760, 1.766, 1.771, 1.776, 1.782, 1.787, 1.792, & 1.797, 1.803, 1.808, 1.813, 1.818, 1.823, 1.828, 1.833, 1.838, & 1.843, 1.848, 1.853, 1.857, 1.862, 1.867, 1.872, 1.876, 1.881, & 1.886, 1.890, 1.895, 1.899, 1.904, 1.908, 1.913, 1.917, 1.922, & 1.926, 1.930, 1.935, 1.939, 1.943, 1.948, 1.952, 1.956, 1.960, & 1.964, 1.968, 1.973 & / C C *** (H,Cl) C DATA BNC11M/ &-0.045,-0.090,-0.108,-0.119,-0.126,-0.130,-0.133,-0.135,-0.135, &-0.135,-0.134,-0.133,-0.131,-0.129,-0.126,-0.124,-0.121,-0.117, &-0.114,-0.110,-0.106,-0.102,-0.098,-0.093,-0.089,-0.084,-0.079, &-0.075,-0.070,-0.065,-0.059,-0.054,-0.049,-0.044,-0.038,-0.033, &-0.027,-0.022,-0.016,-0.010,-0.004, 0.001, 0.007, 0.013, 0.019, & 0.025, 0.031, 0.037, 0.043, 0.049, 0.055, 0.061, 0.067, 0.073, & 0.079, 0.085, 0.091, 0.098, 0.104, 0.110, 0.116, 0.122, 0.129, & 0.135, 0.141, 0.147, 0.154, 0.160, 0.166, 0.173, 0.179, 0.185, & 0.192, 0.198, 0.205, 0.211, 0.218, 0.224, 0.231, 0.238, 0.244, & 0.251, 0.258, 0.264, 0.271, 0.278, 0.285, 0.292, 0.298, 0.305, & 0.312, 0.319, 0.326, 0.333, 0.341, 0.348, 0.355, 0.362, 0.369, & 0.377, 0.384, 0.391, 0.398, 0.406, 0.413, 0.421, 0.428, 0.435, & 0.443, 0.450, 0.458, 0.465, 0.473, 0.480, 0.488, 0.495, 0.503, & 0.510, 0.518, 0.526, 0.533, 0.541, 0.548, 0.556, 0.563, 0.571, & 0.578, 0.586, 0.594, 0.601, 0.609, 0.616, 0.624, 0.631, 0.639, & 0.646, 0.654, 0.661, 0.669, 0.676, 0.684, 0.691, 0.699, 0.706, & 0.713, 0.721, 0.728, 0.736, 0.743, 0.750, 0.758, 0.765, 0.772, & 0.780, 0.787, 0.794, 0.802, 0.809, 0.816, 0.823, 0.831, 0.838, & 0.845, 0.852, 0.859, 0.867, 0.874, 0.881, 0.888, 0.895, 0.902, & 0.909, 0.916, 0.924, 0.931, 0.938, 0.945, 0.952, 0.959, 0.966, & 0.973, 0.980, 0.987, 0.994, 1.000, 1.007, 1.014, 1.021, 1.028, & 1.035, 1.042, 1.049, 1.055, 1.062, 1.069, 1.076, 1.082, 1.089, & 1.096, 1.103, 1.109, 1.116, 1.123, 1.129, 1.136, 1.143, 1.149, & 1.156, 1.163, 1.169, 1.176, 1.182, 1.189, 1.195, 1.202, 1.208, & 1.215, 1.221, 1.228, 1.234, 1.241, 1.247, 1.254, 1.260, 1.266, & 1.273, 1.279, 1.286, 1.292, 1.298, 1.305, 1.311, 1.317, 1.323, & 1.330, 1.336, 1.342, 1.348, 1.355, 1.361, 1.367, 1.373, 1.379, & 1.386, 1.392, 1.398, 1.404, 1.410, 1.416, 1.422, 1.428, 1.434, & 1.440, 1.446, 1.452, 1.458, 1.464, 1.470, 1.476, 1.482, 1.488, & 1.494, 1.500, 1.506, 1.512, 1.518, 1.524, 1.530, 1.535, 1.541, & 1.547, 1.553, 1.559, 1.564, 1.570, 1.576, 1.582, 1.588, 1.593, & 1.599, 1.605, 1.610, 1.616, 1.622, 1.628, 1.633, 1.639, 1.644, & 1.650, 1.656, 1.661, 1.667, 1.672, 1.678, 1.684, 1.689, 1.695, & 1.700, 1.706, 1.711, 1.717, 1.722, 1.728, 1.733, 1.739, 1.744, & 1.750, 1.755, 1.760, 1.766, 1.771, 1.777, 1.782, 1.787, 1.793, & 1.798, 1.803, 1.809, 1.814, 1.819, 1.825, 1.830, 1.835, 1.840, & 1.846, 1.851, 1.856, 1.861, 1.867, 1.872, 1.877, 1.882, 1.887, & 1.893, 1.898, 1.903, 1.908, 1.913, 1.918, 1.923, 1.929, 1.934, & 1.939, 1.944, 1.949, 1.954, 1.959, 1.964, 1.969, 1.974, 1.979, & 1.984, 1.989, 1.994, 1.999, 2.004, 2.009, 2.014, 2.019, 2.024, & 2.029, 2.034, 2.039, 2.044, 2.048, 2.053, 2.058, 2.063, 2.068, & 2.073, 2.078, 2.082, 2.087, 2.092, 2.097, 2.102, 2.107, 2.111, & 2.116, 2.121, 2.126, 2.130, 2.135, 2.140, 2.145, 2.149, 2.154, & 2.159, 2.163, 2.168, 2.173, 2.177, 2.182, 2.187, 2.191, 2.196, & 2.201, 2.205, 2.210, 2.215, 2.264, 2.309, 2.353, 2.396, 2.439, & 2.481, 2.523, 2.564, 2.604, 2.643, 2.683, 2.721, 2.759, 2.797, & 2.834, 2.870, 2.906, 2.941, 2.976, 3.011, 3.045, 3.079, 3.112, & 3.145, 3.177, 3.210, 3.241, 3.273, 3.304, 3.334, 3.364, 3.394, & 3.424, 3.453, 3.482, 3.511, 3.539, 3.567, 3.595, 3.622, 3.649, & 3.676, 3.702, 3.729, 3.755, 3.781, 3.806, 3.831, 3.856, 3.881, & 3.906, 3.930, 3.954, 3.978, 4.002, 4.025, 4.048, 4.071, 4.094, & 4.117, 4.139, 4.161, 4.183, 4.205, 4.227, 4.248, 4.270, 4.291, & 4.312, 4.332, 4.353, 4.373, 4.394, 4.414, 4.434, 4.453, 4.473, & 4.493, 4.512, 4.531, 4.550, 4.569, 4.588, 4.606, 4.625, 4.643, & 4.661, 4.679, 4.697, 4.715, 4.733, 4.750, 4.768, 4.785, 4.802, & 4.819, 4.836, 4.853, 4.870, 4.886, 4.903, 4.919, 4.936, 4.952, & 4.968, 4.984, 5.000, 5.015, 5.031, 5.046, 5.062, 5.077, 5.093, & 5.108, 5.123, 5.138, 5.153, 5.167, 5.182, 5.197, 5.211, 5.226, & 5.240, 5.254, 5.268, 5.282, 5.296, 5.310, 5.324, 5.338, 5.352, & 5.365, 5.379, 5.392, 5.406, 5.419, 5.432, 5.445, 5.458, 5.471, & 5.484, 5.497, 5.510, 5.523, 5.535, 5.548, 5.560, 5.573, 5.585, & 5.598, 5.610, 5.622, 5.634, 5.646, 5.658, 5.670, 5.682, 5.694, & 5.706, 5.717, 5.729 & / C C *** NaHSO4 C DATA BNC12M/ &-0.046,-0.096,-0.118,-0.132,-0.143,-0.151,-0.158,-0.163,-0.167, &-0.170,-0.173,-0.175,-0.177,-0.178,-0.179,-0.180,-0.180,-0.180, &-0.180,-0.180,-0.179,-0.179,-0.178,-0.177,-0.176,-0.174,-0.173, &-0.171,-0.170,-0.168,-0.166,-0.164,-0.162,-0.159,-0.157,-0.155, &-0.152,-0.150,-0.147,-0.144,-0.142,-0.139,-0.136,-0.133,-0.130, &-0.127,-0.124,-0.120,-0.117,-0.114,-0.110,-0.107,-0.104,-0.100, &-0.097,-0.093,-0.090,-0.086,-0.082,-0.079,-0.075,-0.071,-0.067, &-0.064,-0.060,-0.056,-0.052,-0.048,-0.044,-0.040,-0.036,-0.032, &-0.028,-0.024,-0.020,-0.015,-0.011,-0.007,-0.003, 0.002, 0.006, & 0.010, 0.015, 0.019, 0.024, 0.028, 0.033, 0.037, 0.042, 0.046, & 0.051, 0.056, 0.060, 0.065, 0.070, 0.075, 0.079, 0.084, 0.089, & 0.094, 0.099, 0.104, 0.109, 0.114, 0.119, 0.124, 0.129, 0.134, & 0.139, 0.144, 0.149, 0.154, 0.159, 0.164, 0.169, 0.174, 0.179, & 0.184, 0.189, 0.195, 0.200, 0.205, 0.210, 0.215, 0.220, 0.225, & 0.230, 0.236, 0.241, 0.246, 0.251, 0.256, 0.261, 0.266, 0.271, & 0.276, 0.281, 0.286, 0.291, 0.297, 0.302, 0.307, 0.312, 0.317, & 0.322, 0.327, 0.332, 0.337, 0.342, 0.347, 0.352, 0.357, 0.361, & 0.366, 0.371, 0.376, 0.381, 0.386, 0.391, 0.396, 0.401, 0.406, & 0.410, 0.415, 0.420, 0.425, 0.430, 0.434, 0.439, 0.444, 0.449, & 0.454, 0.458, 0.463, 0.468, 0.473, 0.477, 0.482, 0.487, 0.491, & 0.496, 0.501, 0.505, 0.510, 0.515, 0.519, 0.524, 0.529, 0.533, & 0.538, 0.542, 0.547, 0.551, 0.556, 0.560, 0.565, 0.570, 0.574, & 0.579, 0.583, 0.588, 0.592, 0.596, 0.601, 0.605, 0.610, 0.614, & 0.619, 0.623, 0.627, 0.632, 0.636, 0.641, 0.645, 0.649, 0.654, & 0.658, 0.662, 0.667, 0.671, 0.675, 0.680, 0.684, 0.688, 0.692, & 0.697, 0.701, 0.705, 0.709, 0.714, 0.718, 0.722, 0.726, 0.730, & 0.735, 0.739, 0.743, 0.747, 0.751, 0.755, 0.759, 0.764, 0.768, & 0.772, 0.776, 0.780, 0.784, 0.788, 0.792, 0.796, 0.800, 0.804, & 0.808, 0.812, 0.816, 0.820, 0.824, 0.828, 0.832, 0.836, 0.840, & 0.844, 0.848, 0.852, 0.856, 0.860, 0.864, 0.868, 0.872, 0.875, & 0.879, 0.883, 0.887, 0.891, 0.895, 0.899, 0.902, 0.906, 0.910, & 0.914, 0.918, 0.922, 0.925, 0.929, 0.933, 0.937, 0.940, 0.944, & 0.948, 0.952, 0.955, 0.959, 0.963, 0.967, 0.970, 0.974, 0.978, & 0.981, 0.985, 0.989, 0.992, 0.996, 1.000, 1.003, 1.007, 1.011, & 1.014, 1.018, 1.022, 1.025, 1.029, 1.032, 1.036, 1.040, 1.043, & 1.047, 1.050, 1.054, 1.057, 1.061, 1.064, 1.068, 1.071, 1.075, & 1.079, 1.082, 1.086, 1.089, 1.092, 1.096, 1.099, 1.103, 1.106, & 1.110, 1.113, 1.117, 1.120, 1.124, 1.127, 1.130, 1.134, 1.137, & 1.141, 1.144, 1.147, 1.151, 1.154, 1.158, 1.161, 1.164, 1.168, & 1.171, 1.174, 1.178, 1.181, 1.184, 1.188, 1.191, 1.194, 1.198, & 1.201, 1.204, 1.207, 1.211, 1.214, 1.217, 1.220, 1.224, 1.227, & 1.230, 1.233, 1.237, 1.240, 1.243, 1.246, 1.250, 1.253, 1.256, & 1.259, 1.262, 1.266, 1.269, 1.272, 1.275, 1.278, 1.281, 1.285, & 1.288, 1.291, 1.294, 1.297, 1.300, 1.303, 1.306, 1.310, 1.313, & 1.316, 1.319, 1.322, 1.325, 1.358, 1.388, 1.418, 1.447, 1.476, & 1.504, 1.532, 1.559, 1.586, 1.613, 1.639, 1.665, 1.691, 1.716, & 1.741, 1.766, 1.790, 1.814, 1.838, 1.861, 1.884, 1.907, 1.929, & 1.951, 1.973, 1.995, 2.016, 2.037, 2.058, 2.079, 2.099, 2.120, & 2.140, 2.159, 2.179, 2.198, 2.217, 2.236, 2.255, 2.274, 2.292, & 2.310, 2.328, 2.346, 2.363, 2.381, 2.398, 2.415, 2.432, 2.449, & 2.465, 2.482, 2.498, 2.514, 2.530, 2.546, 2.562, 2.577, 2.592, & 2.608, 2.623, 2.638, 2.653, 2.667, 2.682, 2.697, 2.711, 2.725, & 2.739, 2.753, 2.767, 2.781, 2.795, 2.808, 2.822, 2.835, 2.848, & 2.861, 2.874, 2.887, 2.900, 2.913, 2.925, 2.938, 2.950, 2.963, & 2.975, 2.987, 2.999, 3.011, 3.023, 3.035, 3.046, 3.058, 3.069, & 3.081, 3.092, 3.104, 3.115, 3.126, 3.137, 3.148, 3.159, 3.170, & 3.180, 3.191, 3.202, 3.212, 3.223, 3.233, 3.244, 3.254, 3.264, & 3.274, 3.284, 3.294, 3.304, 3.314, 3.324, 3.334, 3.343, 3.353, & 3.363, 3.372, 3.382, 3.391, 3.400, 3.410, 3.419, 3.428, 3.437, & 3.446, 3.455, 3.464, 3.473, 3.482, 3.491, 3.499, 3.508, 3.517, & 3.525, 3.534, 3.542, 3.551, 3.559, 3.568, 3.576, 3.584, 3.592, & 3.601, 3.609, 3.617, 3.625, 3.633, 3.641, 3.649, 3.657, 3.664, & 3.672, 3.680, 3.688 & / C C *** (NH4)3H(SO4)2 C DATA BNC13M/ &-0.076,-0.165,-0.209,-0.240,-0.264,-0.284,-0.301,-0.316,-0.329, &-0.341,-0.352,-0.362,-0.371,-0.379,-0.387,-0.394,-0.401,-0.408, &-0.414,-0.420,-0.425,-0.430,-0.435,-0.440,-0.444,-0.449,-0.453, &-0.457,-0.460,-0.464,-0.467,-0.471,-0.474,-0.477,-0.480,-0.483, &-0.485,-0.488,-0.490,-0.493,-0.495,-0.497,-0.499,-0.501,-0.503, &-0.505,-0.507,-0.509,-0.510,-0.512,-0.514,-0.515,-0.516,-0.518, &-0.519,-0.520,-0.522,-0.523,-0.524,-0.525,-0.526,-0.527,-0.528, &-0.529,-0.530,-0.531,-0.532,-0.532,-0.533,-0.534,-0.534,-0.535, &-0.536,-0.536,-0.537,-0.537,-0.538,-0.538,-0.539,-0.539,-0.540, &-0.540,-0.540,-0.541,-0.541,-0.541,-0.542,-0.542,-0.542,-0.542, &-0.542,-0.543,-0.543,-0.543,-0.543,-0.543,-0.543,-0.543,-0.543, &-0.543,-0.543,-0.543,-0.543,-0.543,-0.543,-0.543,-0.543,-0.543, &-0.543,-0.542,-0.542,-0.542,-0.542,-0.542,-0.542,-0.542,-0.541, &-0.541,-0.541,-0.541,-0.540,-0.540,-0.540,-0.540,-0.540,-0.539, &-0.539,-0.539,-0.538,-0.538,-0.538,-0.538,-0.537,-0.537,-0.537, &-0.536,-0.536,-0.536,-0.536,-0.535,-0.535,-0.535,-0.534,-0.534, &-0.534,-0.533,-0.533,-0.533,-0.532,-0.532,-0.532,-0.531,-0.531, &-0.530,-0.530,-0.530,-0.529,-0.529,-0.529,-0.528,-0.528,-0.528, &-0.527,-0.527,-0.527,-0.526,-0.526,-0.525,-0.525,-0.525,-0.524, &-0.524,-0.524,-0.523,-0.523,-0.522,-0.522,-0.522,-0.521,-0.521, &-0.521,-0.520,-0.520,-0.519,-0.519,-0.519,-0.518,-0.518,-0.518, &-0.517,-0.517,-0.516,-0.516,-0.516,-0.515,-0.515,-0.515,-0.514, &-0.514,-0.513,-0.513,-0.513,-0.512,-0.512,-0.512,-0.511,-0.511, &-0.510,-0.510,-0.510,-0.509,-0.509,-0.509,-0.508,-0.508,-0.507, &-0.507,-0.507,-0.506,-0.506,-0.506,-0.505,-0.505,-0.504,-0.504, &-0.504,-0.503,-0.503,-0.503,-0.502,-0.502,-0.501,-0.501,-0.501, &-0.500,-0.500,-0.500,-0.499,-0.499,-0.499,-0.498,-0.498,-0.497, &-0.497,-0.497,-0.496,-0.496,-0.496,-0.495,-0.495,-0.495,-0.494, &-0.494,-0.493,-0.493,-0.493,-0.492,-0.492,-0.492,-0.491,-0.491, &-0.491,-0.490,-0.490,-0.490,-0.489,-0.489,-0.489,-0.488,-0.488, &-0.487,-0.487,-0.487,-0.486,-0.486,-0.486,-0.485,-0.485,-0.485, &-0.484,-0.484,-0.484,-0.483,-0.483,-0.483,-0.482,-0.482,-0.482, &-0.481,-0.481,-0.481,-0.480,-0.480,-0.480,-0.479,-0.479,-0.479, &-0.478,-0.478,-0.478,-0.477,-0.477,-0.477,-0.476,-0.476,-0.476, &-0.475,-0.475,-0.475,-0.474,-0.474,-0.474,-0.473,-0.473,-0.473, &-0.472,-0.472,-0.472,-0.471,-0.471,-0.471,-0.471,-0.470,-0.470, &-0.470,-0.469,-0.469,-0.469,-0.468,-0.468,-0.468,-0.467,-0.467, &-0.467,-0.466,-0.466,-0.466,-0.466,-0.465,-0.465,-0.465,-0.464, &-0.464,-0.464,-0.463,-0.463,-0.463,-0.463,-0.462,-0.462,-0.462, &-0.461,-0.461,-0.461,-0.460,-0.460,-0.460,-0.460,-0.459,-0.459, &-0.459,-0.458,-0.458,-0.458,-0.458,-0.457,-0.457,-0.457,-0.456, &-0.456,-0.456,-0.456,-0.455,-0.455,-0.455,-0.454,-0.454,-0.454, &-0.454,-0.453,-0.453,-0.453,-0.452,-0.452,-0.452,-0.452,-0.451, &-0.451,-0.451,-0.450,-0.450,-0.450,-0.450,-0.449,-0.449,-0.449, &-0.449,-0.448,-0.448,-0.448,-0.445,-0.442,-0.440,-0.437,-0.435, &-0.432,-0.430,-0.428,-0.426,-0.423,-0.421,-0.419,-0.417,-0.415, &-0.413,-0.411,-0.409,-0.407,-0.406,-0.404,-0.402,-0.401,-0.399, &-0.397,-0.396,-0.394,-0.393,-0.391,-0.390,-0.389,-0.387,-0.386, &-0.385,-0.383,-0.382,-0.381,-0.380,-0.379,-0.378,-0.377,-0.376, &-0.375,-0.374,-0.373,-0.372,-0.371,-0.370,-0.369,-0.368,-0.367, &-0.367,-0.366,-0.365,-0.364,-0.364,-0.363,-0.362,-0.362,-0.361, &-0.361,-0.360,-0.360,-0.359,-0.359,-0.358,-0.358,-0.357,-0.357, &-0.356,-0.356,-0.356,-0.355,-0.355,-0.355,-0.354,-0.354,-0.354, &-0.354,-0.353,-0.353,-0.353,-0.353,-0.353,-0.352,-0.352,-0.352, &-0.352,-0.352,-0.352,-0.352,-0.352,-0.352,-0.352,-0.352,-0.352, &-0.352,-0.352,-0.352,-0.352,-0.352,-0.352,-0.352,-0.352,-0.352, &-0.352,-0.353,-0.353,-0.353,-0.353,-0.353,-0.353,-0.354,-0.354, &-0.354,-0.354,-0.355,-0.355,-0.355,-0.355,-0.356,-0.356,-0.356, &-0.357,-0.357,-0.357,-0.358,-0.358,-0.358,-0.359,-0.359,-0.359, &-0.360,-0.360,-0.361,-0.361,-0.362,-0.362,-0.362,-0.363,-0.363, &-0.364,-0.364,-0.365,-0.365,-0.366,-0.366,-0.367,-0.367,-0.368, &-0.369,-0.369,-0.370,-0.370,-0.371,-0.371,-0.372,-0.373,-0.373, &-0.374,-0.374,-0.375 & / C C *** CASO4 C DATA BNC14M/ & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000 & / C C *** CANO32 C DATA BNC15M/ &-0.094,-0.201,-0.251,-0.286,-0.312,-0.334,-0.351,-0.366,-0.379, &-0.390,-0.400,-0.409,-0.417,-0.424,-0.430,-0.436,-0.442,-0.447, &-0.451,-0.455,-0.459,-0.463,-0.466,-0.469,-0.472,-0.475,-0.477, &-0.479,-0.481,-0.483,-0.485,-0.487,-0.489,-0.490,-0.491,-0.493, &-0.494,-0.495,-0.496,-0.497,-0.498,-0.499,-0.500,-0.501,-0.501, &-0.502,-0.503,-0.503,-0.504,-0.504,-0.505,-0.505,-0.505,-0.506, &-0.506,-0.506,-0.507,-0.507,-0.507,-0.507,-0.507,-0.508,-0.508, &-0.508,-0.508,-0.508,-0.508,-0.508,-0.508,-0.508,-0.508,-0.508, &-0.508,-0.507,-0.507,-0.507,-0.507,-0.507,-0.506,-0.506,-0.506, &-0.506,-0.505,-0.505,-0.505,-0.504,-0.504,-0.503,-0.503,-0.502, &-0.502,-0.501,-0.501,-0.500,-0.500,-0.499,-0.499,-0.498,-0.497, &-0.497,-0.496,-0.495,-0.495,-0.494,-0.493,-0.493,-0.492,-0.491, &-0.490,-0.489,-0.489,-0.488,-0.487,-0.486,-0.485,-0.485,-0.484, &-0.483,-0.482,-0.481,-0.480,-0.479,-0.478,-0.477,-0.477,-0.476, &-0.475,-0.474,-0.473,-0.472,-0.471,-0.470,-0.469,-0.468,-0.467, &-0.466,-0.465,-0.464,-0.463,-0.462,-0.461,-0.460,-0.459,-0.459, &-0.458,-0.457,-0.456,-0.455,-0.454,-0.453,-0.452,-0.451,-0.450, &-0.449,-0.448,-0.447,-0.446,-0.445,-0.444,-0.443,-0.442,-0.441, &-0.440,-0.439,-0.438,-0.437,-0.436,-0.435,-0.434,-0.433,-0.432, &-0.431,-0.430,-0.429,-0.428,-0.427,-0.426,-0.425,-0.424,-0.423, &-0.422,-0.421,-0.420,-0.419,-0.418,-0.417,-0.416,-0.415,-0.414, &-0.413,-0.412,-0.411,-0.410,-0.409,-0.408,-0.407,-0.406,-0.405, &-0.404,-0.403,-0.402,-0.401,-0.400,-0.399,-0.398,-0.397,-0.396, &-0.395,-0.394,-0.393,-0.392,-0.391,-0.390,-0.389,-0.388,-0.387, &-0.386,-0.385,-0.384,-0.383,-0.382,-0.382,-0.381,-0.380,-0.379, &-0.378,-0.377,-0.376,-0.375,-0.374,-0.373,-0.372,-0.371,-0.370, &-0.369,-0.368,-0.367,-0.366,-0.365,-0.364,-0.363,-0.362,-0.361, &-0.360,-0.359,-0.359,-0.358,-0.357,-0.356,-0.355,-0.354,-0.353, &-0.352,-0.351,-0.350,-0.349,-0.348,-0.347,-0.346,-0.345,-0.344, &-0.344,-0.343,-0.342,-0.341,-0.340,-0.339,-0.338,-0.337,-0.336, &-0.335,-0.334,-0.333,-0.332,-0.332,-0.331,-0.330,-0.329,-0.328, &-0.327,-0.326,-0.325,-0.324,-0.323,-0.323,-0.322,-0.321,-0.320, &-0.319,-0.318,-0.317,-0.316,-0.315,-0.314,-0.314,-0.313,-0.312, &-0.311,-0.310,-0.309,-0.308,-0.307,-0.307,-0.306,-0.305,-0.304, &-0.303,-0.302,-0.301,-0.300,-0.300,-0.299,-0.298,-0.297,-0.296, &-0.295,-0.294,-0.294,-0.293,-0.292,-0.291,-0.290,-0.289,-0.288, &-0.288,-0.287,-0.286,-0.285,-0.284,-0.283,-0.282,-0.282,-0.281, &-0.280,-0.279,-0.278,-0.277,-0.277,-0.276,-0.275,-0.274,-0.273, &-0.273,-0.272,-0.271,-0.270,-0.269,-0.268,-0.268,-0.267,-0.266, &-0.265,-0.264,-0.263,-0.263,-0.262,-0.261,-0.260,-0.259,-0.259, &-0.258,-0.257,-0.256,-0.255,-0.255,-0.254,-0.253,-0.252,-0.251, &-0.251,-0.250,-0.249,-0.248,-0.248,-0.247,-0.246,-0.245,-0.244, &-0.244,-0.243,-0.242,-0.241,-0.240,-0.240,-0.239,-0.238,-0.237, &-0.237,-0.236,-0.235,-0.234,-0.234,-0.233,-0.232,-0.231,-0.230, &-0.230,-0.229,-0.228,-0.227,-0.219,-0.212,-0.205,-0.198,-0.191, &-0.184,-0.177,-0.170,-0.163,-0.157,-0.151,-0.144,-0.138,-0.132, &-0.126,-0.120,-0.114,-0.108,-0.103,-0.097,-0.091,-0.086,-0.081, &-0.075,-0.070,-0.065,-0.060,-0.055,-0.050,-0.045,-0.041,-0.036, &-0.031,-0.027,-0.022,-0.018,-0.014,-0.009,-0.005,-0.001, 0.003, & 0.007, 0.011, 0.015, 0.019, 0.023, 0.027, 0.031, 0.034, 0.038, & 0.041, 0.045, 0.048, 0.052, 0.055, 0.059, 0.062, 0.065, 0.068, & 0.071, 0.075, 0.078, 0.081, 0.084, 0.087, 0.089, 0.092, 0.095, & 0.098, 0.101, 0.103, 0.106, 0.109, 0.111, 0.114, 0.116, 0.119, & 0.121, 0.124, 0.126, 0.128, 0.131, 0.133, 0.135, 0.138, 0.140, & 0.142, 0.144, 0.146, 0.148, 0.150, 0.152, 0.154, 0.156, 0.158, & 0.160, 0.162, 0.164, 0.166, 0.167, 0.169, 0.171, 0.173, 0.174, & 0.176, 0.178, 0.179, 0.181, 0.182, 0.184, 0.186, 0.187, 0.189, & 0.190, 0.191, 0.193, 0.194, 0.196, 0.197, 0.198, 0.200, 0.201, & 0.202, 0.203, 0.205, 0.206, 0.207, 0.208, 0.209, 0.210, 0.212, & 0.213, 0.214, 0.215, 0.216, 0.217, 0.218, 0.219, 0.220, 0.221, & 0.222, 0.222, 0.223, 0.224, 0.225, 0.226, 0.227, 0.228, 0.228, & 0.229, 0.230, 0.231, 0.231, 0.232, 0.233, 0.234, 0.234, 0.235, & 0.235, 0.236, 0.237 & / C C *** CACL2 C DATA BNC16M/ &-0.093,-0.193,-0.238,-0.267,-0.288,-0.304,-0.316,-0.326,-0.334, &-0.340,-0.345,-0.350,-0.353,-0.355,-0.357,-0.359,-0.360,-0.360, &-0.360,-0.360,-0.359,-0.358,-0.357,-0.356,-0.355,-0.353,-0.351, &-0.349,-0.347,-0.345,-0.342,-0.340,-0.337,-0.335,-0.332,-0.329, &-0.326,-0.323,-0.321,-0.317,-0.314,-0.311,-0.308,-0.305,-0.302, &-0.299,-0.295,-0.292,-0.289,-0.286,-0.282,-0.279,-0.276,-0.272, &-0.269,-0.266,-0.262,-0.259,-0.255,-0.252,-0.249,-0.245,-0.242, &-0.238,-0.235,-0.231,-0.228,-0.224,-0.221,-0.217,-0.213,-0.210, &-0.206,-0.203,-0.199,-0.195,-0.192,-0.188,-0.184,-0.180,-0.177, &-0.173,-0.169,-0.165,-0.161,-0.157,-0.153,-0.149,-0.145,-0.141, &-0.137,-0.133,-0.129,-0.125,-0.120,-0.116,-0.112,-0.108,-0.103, &-0.099,-0.095,-0.090,-0.086,-0.081,-0.077,-0.073,-0.068,-0.064, &-0.059,-0.054,-0.050,-0.045,-0.041,-0.036,-0.032,-0.027,-0.022, &-0.018,-0.013,-0.008,-0.004, 0.001, 0.005, 0.010, 0.015, 0.019, & 0.024, 0.029, 0.033, 0.038, 0.043, 0.048, 0.052, 0.057, 0.062, & 0.066, 0.071, 0.076, 0.080, 0.085, 0.090, 0.094, 0.099, 0.103, & 0.108, 0.113, 0.117, 0.122, 0.127, 0.131, 0.136, 0.141, 0.145, & 0.150, 0.154, 0.159, 0.164, 0.168, 0.173, 0.177, 0.182, 0.186, & 0.191, 0.196, 0.200, 0.205, 0.209, 0.214, 0.218, 0.223, 0.227, & 0.232, 0.236, 0.241, 0.245, 0.250, 0.254, 0.259, 0.263, 0.268, & 0.272, 0.277, 0.281, 0.286, 0.290, 0.294, 0.299, 0.303, 0.308, & 0.312, 0.317, 0.321, 0.325, 0.330, 0.334, 0.338, 0.343, 0.347, & 0.352, 0.356, 0.360, 0.365, 0.369, 0.373, 0.378, 0.382, 0.386, & 0.390, 0.395, 0.399, 0.403, 0.408, 0.412, 0.416, 0.420, 0.425, & 0.429, 0.433, 0.437, 0.442, 0.446, 0.450, 0.454, 0.458, 0.463, & 0.467, 0.471, 0.475, 0.479, 0.483, 0.488, 0.492, 0.496, 0.500, & 0.504, 0.508, 0.512, 0.516, 0.521, 0.525, 0.529, 0.533, 0.537, & 0.541, 0.545, 0.549, 0.553, 0.557, 0.561, 0.565, 0.569, 0.573, & 0.577, 0.581, 0.585, 0.589, 0.593, 0.597, 0.601, 0.605, 0.609, & 0.613, 0.617, 0.621, 0.625, 0.629, 0.633, 0.637, 0.641, 0.644, & 0.648, 0.652, 0.656, 0.660, 0.664, 0.668, 0.672, 0.675, 0.679, & 0.683, 0.687, 0.691, 0.695, 0.698, 0.702, 0.706, 0.710, 0.714, & 0.717, 0.721, 0.725, 0.729, 0.733, 0.736, 0.740, 0.744, 0.748, & 0.751, 0.755, 0.759, 0.762, 0.766, 0.770, 0.774, 0.777, 0.781, & 0.785, 0.788, 0.792, 0.796, 0.799, 0.803, 0.807, 0.810, 0.814, & 0.818, 0.821, 0.825, 0.828, 0.832, 0.836, 0.839, 0.843, 0.846, & 0.850, 0.853, 0.857, 0.861, 0.864, 0.868, 0.871, 0.875, 0.878, & 0.882, 0.885, 0.889, 0.892, 0.896, 0.899, 0.903, 0.906, 0.910, & 0.913, 0.917, 0.920, 0.924, 0.927, 0.931, 0.934, 0.938, 0.941, & 0.944, 0.948, 0.951, 0.955, 0.958, 0.961, 0.965, 0.968, 0.972, & 0.975, 0.978, 0.982, 0.985, 0.988, 0.992, 0.995, 0.999, 1.002, & 1.005, 1.009, 1.012, 1.015, 1.018, 1.022, 1.025, 1.028, 1.032, & 1.035, 1.038, 1.042, 1.045, 1.048, 1.051, 1.055, 1.058, 1.061, & 1.064, 1.068, 1.071, 1.074, 1.077, 1.080, 1.084, 1.087, 1.090, & 1.093, 1.096, 1.100, 1.103, 1.137, 1.168, 1.199, 1.229, 1.259, & 1.288, 1.317, 1.345, 1.373, 1.401, 1.428, 1.455, 1.482, 1.508, & 1.534, 1.559, 1.584, 1.609, 1.634, 1.658, 1.682, 1.706, 1.729, & 1.752, 1.775, 1.797, 1.819, 1.841, 1.863, 1.884, 1.905, 1.926, & 1.947, 1.967, 1.988, 2.008, 2.027, 2.047, 2.066, 2.085, 2.104, & 2.123, 2.141, 2.160, 2.178, 2.196, 2.214, 2.231, 2.249, 2.266, & 2.283, 2.300, 2.316, 2.333, 2.349, 2.365, 2.381, 2.397, 2.413, & 2.429, 2.444, 2.459, 2.475, 2.490, 2.504, 2.519, 2.534, 2.548, & 2.563, 2.577, 2.591, 2.605, 2.619, 2.632, 2.646, 2.659, 2.673, & 2.686, 2.699, 2.712, 2.725, 2.738, 2.751, 2.763, 2.776, 2.788, & 2.800, 2.813, 2.825, 2.837, 2.849, 2.860, 2.872, 2.884, 2.895, & 2.907, 2.918, 2.929, 2.940, 2.952, 2.963, 2.973, 2.984, 2.995, & 3.006, 3.016, 3.027, 3.037, 3.048, 3.058, 3.068, 3.078, 3.088, & 3.098, 3.108, 3.118, 3.128, 3.137, 3.147, 3.157, 3.166, 3.176, & 3.185, 3.194, 3.203, 3.213, 3.222, 3.231, 3.240, 3.249, 3.258, & 3.266, 3.275, 3.284, 3.292, 3.301, 3.309, 3.318, 3.326, 3.335, & 3.343, 3.351, 3.359, 3.368, 3.376, 3.384, 3.392, 3.399, 3.407, & 3.415, 3.423, 3.431, 3.438, 3.446, 3.454, 3.461, 3.469, 3.476, & 3.483, 3.491, 3.498 & / C C *** K2SO4 C DATA BNC17M/ &-0.096,-0.208,-0.265,-0.305,-0.337,-0.363,-0.385,-0.405,-0.423, &-0.439,-0.453,-0.467,-0.479,-0.491,-0.502,-0.512,-0.522,-0.531, &-0.540,-0.548,-0.556,-0.564,-0.571,-0.578,-0.585,-0.592,-0.598, &-0.605,-0.610,-0.616,-0.622,-0.627,-0.633,-0.638,-0.643,-0.648, &-0.653,-0.657,-0.662,-0.666,-0.671,-0.675,-0.679,-0.683,-0.688, &-0.691,-0.695,-0.699,-0.703,-0.707,-0.710,-0.714,-0.717,-0.721, &-0.724,-0.727,-0.731,-0.734,-0.737,-0.740,-0.743,-0.746,-0.749, &-0.752,-0.755,-0.758,-0.761,-0.763,-0.766,-0.769,-0.772,-0.774, &-0.777,-0.780,-0.782,-0.785,-0.787,-0.790,-0.792,-0.795,-0.797, &-0.799,-0.802,-0.804,-0.807,-0.809,-0.811,-0.814,-0.816,-0.818, &-0.820,-0.823,-0.825,-0.827,-0.829,-0.831,-0.833,-0.836,-0.838, &-0.840,-0.842,-0.844,-0.846,-0.848,-0.850,-0.852,-0.854,-0.856, &-0.858,-0.860,-0.862,-0.864,-0.866,-0.868,-0.870,-0.872,-0.874, &-0.875,-0.877,-0.879,-0.881,-0.883,-0.885,-0.887,-0.888,-0.890, &-0.892,-0.894,-0.895,-0.897,-0.899,-0.901,-0.902,-0.904,-0.906, &-0.908,-0.909,-0.911,-0.913,-0.914,-0.916,-0.918,-0.919,-0.921, &-0.923,-0.924,-0.926,-0.927,-0.929,-0.931,-0.932,-0.934,-0.935, &-0.937,-0.938,-0.940,-0.942,-0.943,-0.945,-0.946,-0.948,-0.949, &-0.951,-0.952,-0.954,-0.955,-0.957,-0.958,-0.960,-0.961,-0.962, &-0.964,-0.965,-0.967,-0.968,-0.970,-0.971,-0.972,-0.974,-0.975, &-0.977,-0.978,-0.979,-0.981,-0.982,-0.984,-0.985,-0.986,-0.988, &-0.989,-0.990,-0.992,-0.993,-0.994,-0.996,-0.997,-0.998,-1.000, &-1.001,-1.002,-1.004,-1.005,-1.006,-1.007,-1.009,-1.010,-1.011, &-1.013,-1.014,-1.015,-1.016,-1.018,-1.019,-1.020,-1.021,-1.023, &-1.024,-1.025,-1.026,-1.027,-1.029,-1.030,-1.031,-1.032,-1.034, &-1.035,-1.036,-1.037,-1.038,-1.039,-1.041,-1.042,-1.043,-1.044, &-1.045,-1.047,-1.048,-1.049,-1.050,-1.051,-1.052,-1.053,-1.055, &-1.056,-1.057,-1.058,-1.059,-1.060,-1.061,-1.063,-1.064,-1.065, &-1.066,-1.067,-1.068,-1.069,-1.070,-1.071,-1.073,-1.074,-1.075, &-1.076,-1.077,-1.078,-1.079,-1.080,-1.081,-1.082,-1.083,-1.084, &-1.086,-1.087,-1.088,-1.089,-1.090,-1.091,-1.092,-1.093,-1.094, &-1.095,-1.096,-1.097,-1.098,-1.099,-1.100,-1.101,-1.102,-1.103, &-1.104,-1.105,-1.106,-1.107,-1.108,-1.109,-1.110,-1.111,-1.112, &-1.114,-1.115,-1.116,-1.117,-1.118,-1.119,-1.119,-1.120,-1.121, &-1.122,-1.123,-1.124,-1.125,-1.126,-1.127,-1.128,-1.129,-1.130, &-1.131,-1.132,-1.133,-1.134,-1.135,-1.136,-1.137,-1.138,-1.139, &-1.140,-1.141,-1.142,-1.143,-1.144,-1.145,-1.146,-1.147,-1.147, &-1.148,-1.149,-1.150,-1.151,-1.152,-1.153,-1.154,-1.155,-1.156, &-1.157,-1.158,-1.159,-1.160,-1.160,-1.161,-1.162,-1.163,-1.164, &-1.165,-1.166,-1.167,-1.168,-1.169,-1.169,-1.170,-1.171,-1.172, &-1.173,-1.174,-1.175,-1.176,-1.177,-1.178,-1.178,-1.179,-1.180, &-1.181,-1.182,-1.183,-1.184,-1.185,-1.185,-1.186,-1.187,-1.188, &-1.189,-1.190,-1.191,-1.191,-1.192,-1.193,-1.194,-1.195,-1.196, &-1.197,-1.198,-1.198,-1.199,-1.200,-1.201,-1.202,-1.203,-1.203, &-1.204,-1.205,-1.206,-1.207,-1.216,-1.224,-1.232,-1.240,-1.248, &-1.256,-1.263,-1.271,-1.279,-1.286,-1.293,-1.301,-1.308,-1.315, &-1.322,-1.329,-1.336,-1.343,-1.349,-1.356,-1.363,-1.369,-1.376, &-1.382,-1.389,-1.395,-1.402,-1.408,-1.414,-1.420,-1.427,-1.433, &-1.439,-1.445,-1.451,-1.457,-1.463,-1.468,-1.474,-1.480,-1.486, &-1.492,-1.497,-1.503,-1.509,-1.514,-1.520,-1.525,-1.531,-1.536, &-1.542,-1.547,-1.553,-1.558,-1.563,-1.569,-1.574,-1.579,-1.585, &-1.590,-1.595,-1.600,-1.605,-1.611,-1.616,-1.621,-1.626,-1.631, &-1.636,-1.641,-1.646,-1.651,-1.656,-1.661,-1.666,-1.671,-1.676, &-1.681,-1.685,-1.690,-1.695,-1.700,-1.705,-1.710,-1.714,-1.719, &-1.724,-1.729,-1.733,-1.738,-1.743,-1.747,-1.752,-1.757,-1.761, &-1.766,-1.770,-1.775,-1.780,-1.784,-1.789,-1.793,-1.798,-1.802, &-1.807,-1.811,-1.816,-1.820,-1.825,-1.829,-1.834,-1.838,-1.842, &-1.847,-1.851,-1.856,-1.860,-1.864,-1.869,-1.873,-1.877,-1.882, &-1.886,-1.890,-1.895,-1.899,-1.903,-1.908,-1.912,-1.916,-1.920, &-1.925,-1.929,-1.933,-1.937,-1.941,-1.946,-1.950,-1.954,-1.958, &-1.962,-1.966,-1.971,-1.975,-1.979,-1.983,-1.987,-1.991,-1.995, &-2.000,-2.004,-2.008,-2.012,-2.016,-2.020,-2.024,-2.028,-2.032, &-2.036,-2.040,-2.044 & / C C *** KHSO4 C DATA BNC18M/ &-0.047,-0.099,-0.124,-0.141,-0.154,-0.165,-0.173,-0.181,-0.187, &-0.193,-0.198,-0.202,-0.206,-0.209,-0.212,-0.215,-0.217,-0.220, &-0.221,-0.223,-0.225,-0.226,-0.227,-0.228,-0.229,-0.229,-0.230, &-0.230,-0.230,-0.230,-0.230,-0.230,-0.230,-0.229,-0.229,-0.228, &-0.228,-0.227,-0.226,-0.225,-0.224,-0.223,-0.222,-0.221,-0.220, &-0.218,-0.217,-0.215,-0.214,-0.212,-0.210,-0.209,-0.207,-0.205, &-0.203,-0.201,-0.199,-0.197,-0.195,-0.193,-0.191,-0.189,-0.187, &-0.185,-0.182,-0.180,-0.178,-0.175,-0.173,-0.171,-0.168,-0.166, &-0.163,-0.160,-0.158,-0.155,-0.153,-0.150,-0.147,-0.144,-0.142, &-0.139,-0.136,-0.133,-0.130,-0.127,-0.124,-0.121,-0.118,-0.115, &-0.112,-0.109,-0.106,-0.103,-0.100,-0.097,-0.094,-0.091,-0.087, &-0.084,-0.081,-0.078,-0.074,-0.071,-0.068,-0.064,-0.061,-0.058, &-0.054,-0.051,-0.047,-0.044,-0.041,-0.037,-0.034,-0.030,-0.027, &-0.023,-0.020,-0.017,-0.013,-0.010,-0.006,-0.003, 0.001, 0.004, & 0.008, 0.011, 0.015, 0.018, 0.021, 0.025, 0.028, 0.032, 0.035, & 0.039, 0.042, 0.046, 0.049, 0.052, 0.056, 0.059, 0.063, 0.066, & 0.069, 0.073, 0.076, 0.079, 0.083, 0.086, 0.090, 0.093, 0.096, & 0.100, 0.103, 0.106, 0.110, 0.113, 0.116, 0.119, 0.123, 0.126, & 0.129, 0.133, 0.136, 0.139, 0.142, 0.146, 0.149, 0.152, 0.155, & 0.158, 0.162, 0.165, 0.168, 0.171, 0.174, 0.177, 0.181, 0.184, & 0.187, 0.190, 0.193, 0.196, 0.199, 0.203, 0.206, 0.209, 0.212, & 0.215, 0.218, 0.221, 0.224, 0.227, 0.230, 0.233, 0.236, 0.239, & 0.242, 0.245, 0.248, 0.251, 0.254, 0.257, 0.260, 0.263, 0.266, & 0.269, 0.272, 0.275, 0.278, 0.281, 0.284, 0.287, 0.290, 0.292, & 0.295, 0.298, 0.301, 0.304, 0.307, 0.310, 0.313, 0.315, 0.318, & 0.321, 0.324, 0.327, 0.330, 0.332, 0.335, 0.338, 0.341, 0.343, & 0.346, 0.349, 0.352, 0.355, 0.357, 0.360, 0.363, 0.366, 0.368, & 0.371, 0.374, 0.376, 0.379, 0.382, 0.384, 0.387, 0.390, 0.393, & 0.395, 0.398, 0.400, 0.403, 0.406, 0.408, 0.411, 0.414, 0.416, & 0.419, 0.422, 0.424, 0.427, 0.429, 0.432, 0.434, 0.437, 0.440, & 0.442, 0.445, 0.447, 0.450, 0.452, 0.455, 0.457, 0.460, 0.463, & 0.465, 0.468, 0.470, 0.473, 0.475, 0.478, 0.480, 0.483, 0.485, & 0.487, 0.490, 0.492, 0.495, 0.497, 0.500, 0.502, 0.505, 0.507, & 0.509, 0.512, 0.514, 0.517, 0.519, 0.522, 0.524, 0.526, 0.529, & 0.531, 0.533, 0.536, 0.538, 0.541, 0.543, 0.545, 0.548, 0.550, & 0.552, 0.555, 0.557, 0.559, 0.562, 0.564, 0.566, 0.569, 0.571, & 0.573, 0.575, 0.578, 0.580, 0.582, 0.585, 0.587, 0.589, 0.591, & 0.594, 0.596, 0.598, 0.600, 0.603, 0.605, 0.607, 0.609, 0.612, & 0.614, 0.616, 0.618, 0.621, 0.623, 0.625, 0.627, 0.629, 0.632, & 0.634, 0.636, 0.638, 0.640, 0.642, 0.645, 0.647, 0.649, 0.651, & 0.653, 0.655, 0.658, 0.660, 0.662, 0.664, 0.666, 0.668, 0.670, & 0.672, 0.675, 0.677, 0.679, 0.681, 0.683, 0.685, 0.687, 0.689, & 0.691, 0.693, 0.695, 0.698, 0.700, 0.702, 0.704, 0.706, 0.708, & 0.710, 0.712, 0.714, 0.716, 0.718, 0.720, 0.722, 0.724, 0.726, & 0.728, 0.730, 0.732, 0.734, 0.756, 0.775, 0.795, 0.814, 0.832, & 0.851, 0.869, 0.886, 0.904, 0.921, 0.938, 0.955, 0.972, 0.988, & 1.004, 1.020, 1.036, 1.051, 1.066, 1.081, 1.096, 1.111, 1.125, & 1.140, 1.154, 1.168, 1.181, 1.195, 1.208, 1.222, 1.235, 1.248, & 1.261, 1.273, 1.286, 1.298, 1.311, 1.323, 1.335, 1.347, 1.358, & 1.370, 1.381, 1.393, 1.404, 1.415, 1.426, 1.437, 1.448, 1.459, & 1.469, 1.480, 1.490, 1.500, 1.510, 1.521, 1.531, 1.540, 1.550, & 1.560, 1.570, 1.579, 1.589, 1.598, 1.607, 1.616, 1.625, 1.635, & 1.643, 1.652, 1.661, 1.670, 1.679, 1.687, 1.696, 1.704, 1.712, & 1.721, 1.729, 1.737, 1.745, 1.753, 1.761, 1.769, 1.777, 1.785, & 1.792, 1.800, 1.808, 1.815, 1.823, 1.830, 1.838, 1.845, 1.852, & 1.859, 1.866, 1.874, 1.881, 1.888, 1.895, 1.901, 1.908, 1.915, & 1.922, 1.929, 1.935, 1.942, 1.948, 1.955, 1.961, 1.968, 1.974, & 1.980, 1.987, 1.993, 1.999, 2.005, 2.011, 2.018, 2.024, 2.030, & 2.036, 2.041, 2.047, 2.053, 2.059, 2.065, 2.070, 2.076, 2.082, & 2.087, 2.093, 2.099, 2.104, 2.110, 2.115, 2.120, 2.126, 2.131, & 2.136, 2.142, 2.147, 2.152, 2.157, 2.163, 2.168, 2.173, 2.178, & 2.183, 2.188, 2.193, 2.198, 2.203, 2.208, 2.212, 2.217, 2.222, & 2.227, 2.232, 2.236 & / C C *** KNO3 C DATA BNC19M/ &-0.049,-0.112,-0.147,-0.173,-0.194,-0.213,-0.230,-0.245,-0.259, &-0.272,-0.285,-0.297,-0.308,-0.319,-0.329,-0.339,-0.348,-0.358, &-0.367,-0.376,-0.384,-0.392,-0.401,-0.408,-0.416,-0.424,-0.431, &-0.439,-0.446,-0.453,-0.460,-0.466,-0.473,-0.479,-0.486,-0.492, &-0.498,-0.504,-0.510,-0.516,-0.522,-0.528,-0.533,-0.539,-0.544, &-0.550,-0.555,-0.560,-0.565,-0.571,-0.576,-0.580,-0.585,-0.590, &-0.595,-0.600,-0.604,-0.609,-0.613,-0.618,-0.622,-0.627,-0.631, &-0.635,-0.640,-0.644,-0.648,-0.652,-0.656,-0.660,-0.664,-0.668, &-0.672,-0.676,-0.680,-0.684,-0.688,-0.692,-0.696,-0.700,-0.704, &-0.707,-0.711,-0.715,-0.719,-0.722,-0.726,-0.730,-0.734,-0.737, &-0.741,-0.745,-0.748,-0.752,-0.755,-0.759,-0.763,-0.766,-0.770, &-0.773,-0.777,-0.780,-0.784,-0.788,-0.791,-0.795,-0.798,-0.801, &-0.805,-0.808,-0.812,-0.815,-0.819,-0.822,-0.825,-0.829,-0.832, &-0.835,-0.839,-0.842,-0.845,-0.849,-0.852,-0.855,-0.858,-0.862, &-0.865,-0.868,-0.871,-0.874,-0.878,-0.881,-0.884,-0.887,-0.890, &-0.893,-0.896,-0.899,-0.902,-0.905,-0.908,-0.911,-0.914,-0.917, &-0.920,-0.923,-0.926,-0.929,-0.932,-0.935,-0.937,-0.940,-0.943, &-0.946,-0.949,-0.951,-0.954,-0.957,-0.960,-0.963,-0.965,-0.968, &-0.971,-0.973,-0.976,-0.979,-0.981,-0.984,-0.987,-0.989,-0.992, &-0.994,-0.997,-0.999,-1.002,-1.005,-1.007,-1.010,-1.012,-1.015, &-1.017,-1.020,-1.022,-1.024,-1.027,-1.029,-1.032,-1.034,-1.036, &-1.039,-1.041,-1.044,-1.046,-1.048,-1.051,-1.053,-1.055,-1.057, &-1.060,-1.062,-1.064,-1.067,-1.069,-1.071,-1.073,-1.075,-1.078, &-1.080,-1.082,-1.084,-1.086,-1.089,-1.091,-1.093,-1.095,-1.097, &-1.099,-1.101,-1.103,-1.106,-1.108,-1.110,-1.112,-1.114,-1.116, &-1.118,-1.120,-1.122,-1.124,-1.126,-1.128,-1.130,-1.132,-1.134, &-1.136,-1.138,-1.140,-1.142,-1.144,-1.145,-1.147,-1.149,-1.151, &-1.153,-1.155,-1.157,-1.159,-1.160,-1.162,-1.164,-1.166,-1.168, &-1.170,-1.171,-1.173,-1.175,-1.177,-1.179,-1.180,-1.182,-1.184, &-1.186,-1.187,-1.189,-1.191,-1.193,-1.194,-1.196,-1.198,-1.199, &-1.201,-1.203,-1.205,-1.206,-1.208,-1.210,-1.211,-1.213,-1.214, &-1.216,-1.218,-1.219,-1.221,-1.223,-1.224,-1.226,-1.227,-1.229, &-1.231,-1.232,-1.234,-1.235,-1.237,-1.238,-1.240,-1.241,-1.243, &-1.244,-1.246,-1.248,-1.249,-1.251,-1.252,-1.254,-1.255,-1.256, &-1.258,-1.259,-1.261,-1.262,-1.264,-1.265,-1.267,-1.268,-1.270, &-1.271,-1.272,-1.274,-1.275,-1.277,-1.278,-1.279,-1.281,-1.282, &-1.284,-1.285,-1.286,-1.288,-1.289,-1.290,-1.292,-1.293,-1.294, &-1.296,-1.297,-1.298,-1.300,-1.301,-1.302,-1.304,-1.305,-1.306, &-1.308,-1.309,-1.310,-1.311,-1.313,-1.314,-1.315,-1.316,-1.318, &-1.319,-1.320,-1.321,-1.323,-1.324,-1.325,-1.326,-1.328,-1.329, &-1.330,-1.331,-1.332,-1.334,-1.335,-1.336,-1.337,-1.338,-1.340, &-1.341,-1.342,-1.343,-1.344,-1.345,-1.347,-1.348,-1.349,-1.350, &-1.351,-1.352,-1.353,-1.355,-1.356,-1.357,-1.358,-1.359,-1.360, &-1.361,-1.362,-1.364,-1.365,-1.366,-1.367,-1.368,-1.369,-1.370, &-1.371,-1.372,-1.373,-1.374,-1.386,-1.396,-1.405,-1.415,-1.424, &-1.433,-1.442,-1.450,-1.458,-1.466,-1.474,-1.482,-1.489,-1.496, &-1.503,-1.510,-1.516,-1.523,-1.529,-1.535,-1.541,-1.547,-1.553, &-1.558,-1.564,-1.569,-1.574,-1.580,-1.585,-1.589,-1.594,-1.599, &-1.604,-1.608,-1.613,-1.617,-1.621,-1.626,-1.630,-1.634,-1.638, &-1.642,-1.646,-1.650,-1.654,-1.657,-1.661,-1.665,-1.668,-1.672, &-1.675,-1.679,-1.682,-1.685,-1.689,-1.692,-1.695,-1.698,-1.701, &-1.705,-1.708,-1.711,-1.714,-1.717,-1.720,-1.723,-1.725,-1.728, &-1.731,-1.734,-1.737,-1.739,-1.742,-1.745,-1.748,-1.750,-1.753, &-1.755,-1.758,-1.761,-1.763,-1.766,-1.768,-1.771,-1.773,-1.776, &-1.778,-1.781,-1.783,-1.785,-1.788,-1.790,-1.792,-1.795,-1.797, &-1.799,-1.802,-1.804,-1.806,-1.809,-1.811,-1.813,-1.815,-1.817, &-1.820,-1.822,-1.824,-1.826,-1.828,-1.830,-1.833,-1.835,-1.837, &-1.839,-1.841,-1.843,-1.845,-1.847,-1.849,-1.851,-1.854,-1.856, &-1.858,-1.860,-1.862,-1.864,-1.866,-1.868,-1.870,-1.872,-1.874, &-1.876,-1.878,-1.880,-1.881,-1.883,-1.885,-1.887,-1.889,-1.891, &-1.893,-1.895,-1.897,-1.899,-1.901,-1.903,-1.905,-1.906,-1.908, &-1.910,-1.912,-1.914,-1.916,-1.918,-1.919,-1.921,-1.923,-1.925, &-1.927,-1.929,-1.930 & / C C *** KCL C DATA BNC20M/ &-0.047,-0.100,-0.126,-0.143,-0.156,-0.167,-0.176,-0.183,-0.190, &-0.195,-0.200,-0.205,-0.209,-0.212,-0.215,-0.218,-0.221,-0.224, &-0.226,-0.228,-0.230,-0.232,-0.233,-0.235,-0.236,-0.238,-0.239, &-0.240,-0.241,-0.242,-0.243,-0.244,-0.245,-0.246,-0.246,-0.247, &-0.248,-0.248,-0.249,-0.249,-0.250,-0.250,-0.251,-0.251,-0.251, &-0.252,-0.252,-0.252,-0.253,-0.253,-0.253,-0.253,-0.254,-0.254, &-0.254,-0.254,-0.254,-0.254,-0.254,-0.255,-0.255,-0.255,-0.255, &-0.255,-0.255,-0.255,-0.255,-0.255,-0.255,-0.255,-0.255,-0.255, &-0.255,-0.255,-0.255,-0.255,-0.255,-0.255,-0.254,-0.254,-0.254, &-0.254,-0.254,-0.254,-0.254,-0.253,-0.253,-0.253,-0.253,-0.253, &-0.252,-0.252,-0.252,-0.252,-0.251,-0.251,-0.251,-0.250,-0.250, &-0.250,-0.249,-0.249,-0.249,-0.248,-0.248,-0.248,-0.247,-0.247, &-0.247,-0.246,-0.246,-0.245,-0.245,-0.245,-0.244,-0.244,-0.243, &-0.243,-0.243,-0.242,-0.242,-0.241,-0.241,-0.240,-0.240,-0.240, &-0.239,-0.239,-0.238,-0.238,-0.237,-0.237,-0.236,-0.236,-0.235, &-0.235,-0.234,-0.234,-0.234,-0.233,-0.233,-0.232,-0.232,-0.231, &-0.231,-0.230,-0.230,-0.229,-0.229,-0.228,-0.228,-0.227,-0.227, &-0.226,-0.226,-0.225,-0.225,-0.224,-0.224,-0.224,-0.223,-0.223, &-0.222,-0.222,-0.221,-0.221,-0.220,-0.220,-0.219,-0.219,-0.218, &-0.218,-0.217,-0.217,-0.216,-0.216,-0.215,-0.215,-0.214,-0.214, &-0.213,-0.213,-0.212,-0.212,-0.211,-0.211,-0.210,-0.210,-0.209, &-0.209,-0.208,-0.208,-0.207,-0.207,-0.207,-0.206,-0.206,-0.205, &-0.205,-0.204,-0.204,-0.203,-0.203,-0.202,-0.202,-0.201,-0.201, &-0.200,-0.200,-0.199,-0.199,-0.198,-0.198,-0.197,-0.197,-0.196, &-0.196,-0.195,-0.195,-0.194,-0.194,-0.194,-0.193,-0.193,-0.192, &-0.192,-0.191,-0.191,-0.190,-0.190,-0.189,-0.189,-0.188,-0.188, &-0.187,-0.187,-0.186,-0.186,-0.186,-0.185,-0.185,-0.184,-0.184, &-0.183,-0.183,-0.182,-0.182,-0.181,-0.181,-0.180,-0.180,-0.180, &-0.179,-0.179,-0.178,-0.178,-0.177,-0.177,-0.176,-0.176,-0.175, &-0.175,-0.174,-0.174,-0.174,-0.173,-0.173,-0.172,-0.172,-0.171, &-0.171,-0.170,-0.170,-0.170,-0.169,-0.169,-0.168,-0.168,-0.167, &-0.167,-0.166,-0.166,-0.166,-0.165,-0.165,-0.164,-0.164,-0.163, &-0.163,-0.162,-0.162,-0.162,-0.161,-0.161,-0.160,-0.160,-0.159, &-0.159,-0.159,-0.158,-0.158,-0.157,-0.157,-0.156,-0.156,-0.156, &-0.155,-0.155,-0.154,-0.154,-0.153,-0.153,-0.153,-0.152,-0.152, &-0.151,-0.151,-0.150,-0.150,-0.150,-0.149,-0.149,-0.148,-0.148, &-0.148,-0.147,-0.147,-0.146,-0.146,-0.145,-0.145,-0.145,-0.144, &-0.144,-0.143,-0.143,-0.143,-0.142,-0.142,-0.141,-0.141,-0.141, &-0.140,-0.140,-0.139,-0.139,-0.139,-0.138,-0.138,-0.137,-0.137, &-0.137,-0.136,-0.136,-0.135,-0.135,-0.135,-0.134,-0.134,-0.133, &-0.133,-0.133,-0.132,-0.132,-0.131,-0.131,-0.131,-0.130,-0.130, &-0.129,-0.129,-0.129,-0.128,-0.128,-0.128,-0.127,-0.127,-0.126, &-0.126,-0.126,-0.125,-0.125,-0.124,-0.124,-0.124,-0.123,-0.123, &-0.123,-0.122,-0.122,-0.121,-0.121,-0.121,-0.120,-0.120,-0.120, &-0.119,-0.119,-0.118,-0.118,-0.114,-0.111,-0.107,-0.103,-0.100, &-0.097,-0.093,-0.090,-0.087,-0.084,-0.080,-0.077,-0.074,-0.071, &-0.068,-0.065,-0.063,-0.060,-0.057,-0.054,-0.052,-0.049,-0.046, &-0.044,-0.041,-0.039,-0.036,-0.034,-0.031,-0.029,-0.027,-0.024, &-0.022,-0.020,-0.018,-0.016,-0.013,-0.011,-0.009,-0.007,-0.005, &-0.003,-0.001, 0.001, 0.003, 0.004, 0.006, 0.008, 0.010, 0.012, & 0.013, 0.015, 0.017, 0.018, 0.020, 0.022, 0.023, 0.025, 0.026, & 0.028, 0.030, 0.031, 0.032, 0.034, 0.035, 0.037, 0.038, 0.040, & 0.041, 0.042, 0.044, 0.045, 0.046, 0.047, 0.049, 0.050, 0.051, & 0.052, 0.053, 0.055, 0.056, 0.057, 0.058, 0.059, 0.060, 0.061, & 0.062, 0.063, 0.064, 0.065, 0.066, 0.067, 0.068, 0.069, 0.070, & 0.071, 0.072, 0.073, 0.074, 0.075, 0.075, 0.076, 0.077, 0.078, & 0.079, 0.079, 0.080, 0.081, 0.082, 0.083, 0.083, 0.084, 0.085, & 0.085, 0.086, 0.087, 0.087, 0.088, 0.089, 0.089, 0.090, 0.091, & 0.091, 0.092, 0.092, 0.093, 0.094, 0.094, 0.095, 0.095, 0.096, & 0.096, 0.097, 0.097, 0.098, 0.098, 0.099, 0.099, 0.100, 0.100, & 0.100, 0.101, 0.101, 0.102, 0.102, 0.103, 0.103, 0.103, 0.104, & 0.104, 0.104, 0.105, 0.105, 0.105, 0.106, 0.106, 0.106, 0.107, & 0.107, 0.107, 0.108 & / C C *** MGSO4 C DATA BNC21M/ &-0.190,-0.411,-0.520,-0.597,-0.656,-0.705,-0.746,-0.782,-0.814, &-0.843,-0.868,-0.892,-0.914,-0.934,-0.953,-0.970,-0.986,-1.002, &-1.016,-1.030,-1.043,-1.056,-1.068,-1.079,-1.090,-1.100,-1.110, &-1.120,-1.129,-1.138,-1.147,-1.155,-1.163,-1.171,-1.178,-1.186, &-1.193,-1.200,-1.206,-1.213,-1.219,-1.225,-1.231,-1.237,-1.243, &-1.249,-1.254,-1.260,-1.265,-1.270,-1.275,-1.280,-1.285,-1.289, &-1.294,-1.299,-1.303,-1.307,-1.312,-1.316,-1.320,-1.324,-1.328, &-1.332,-1.336,-1.340,-1.344,-1.347,-1.351,-1.354,-1.358,-1.361, &-1.365,-1.368,-1.372,-1.375,-1.378,-1.381,-1.384,-1.387,-1.390, &-1.393,-1.396,-1.399,-1.402,-1.405,-1.408,-1.411,-1.413,-1.416, &-1.419,-1.421,-1.424,-1.426,-1.429,-1.431,-1.434,-1.436,-1.439, &-1.441,-1.443,-1.446,-1.448,-1.450,-1.452,-1.455,-1.457,-1.459, &-1.461,-1.463,-1.465,-1.467,-1.469,-1.471,-1.473,-1.475,-1.477, &-1.479,-1.481,-1.483,-1.485,-1.487,-1.489,-1.491,-1.493,-1.494, &-1.496,-1.498,-1.500,-1.501,-1.503,-1.505,-1.507,-1.508,-1.510, &-1.512,-1.513,-1.515,-1.517,-1.518,-1.520,-1.521,-1.523,-1.525, &-1.526,-1.528,-1.529,-1.531,-1.532,-1.534,-1.535,-1.537,-1.538, &-1.540,-1.541,-1.543,-1.544,-1.546,-1.547,-1.548,-1.550,-1.551, &-1.553,-1.554,-1.555,-1.557,-1.558,-1.559,-1.561,-1.562,-1.563, &-1.565,-1.566,-1.567,-1.569,-1.570,-1.571,-1.573,-1.574,-1.575, &-1.576,-1.578,-1.579,-1.580,-1.581,-1.583,-1.584,-1.585,-1.586, &-1.587,-1.589,-1.590,-1.591,-1.592,-1.593,-1.594,-1.596,-1.597, &-1.598,-1.599,-1.600,-1.601,-1.603,-1.604,-1.605,-1.606,-1.607, &-1.608,-1.609,-1.610,-1.611,-1.613,-1.614,-1.615,-1.616,-1.617, &-1.618,-1.619,-1.620,-1.621,-1.622,-1.623,-1.624,-1.625,-1.626, &-1.627,-1.628,-1.630,-1.631,-1.632,-1.633,-1.634,-1.635,-1.636, &-1.637,-1.638,-1.639,-1.640,-1.641,-1.642,-1.643,-1.644,-1.645, &-1.646,-1.647,-1.647,-1.648,-1.649,-1.650,-1.651,-1.652,-1.653, &-1.654,-1.655,-1.656,-1.657,-1.658,-1.659,-1.660,-1.661,-1.662, &-1.663,-1.664,-1.664,-1.665,-1.666,-1.667,-1.668,-1.669,-1.670, &-1.671,-1.672,-1.673,-1.674,-1.674,-1.675,-1.676,-1.677,-1.678, &-1.679,-1.680,-1.681,-1.682,-1.682,-1.683,-1.684,-1.685,-1.686, &-1.687,-1.688,-1.688,-1.689,-1.690,-1.691,-1.692,-1.693,-1.694, &-1.694,-1.695,-1.696,-1.697,-1.698,-1.699,-1.700,-1.700,-1.701, &-1.702,-1.703,-1.704,-1.705,-1.705,-1.706,-1.707,-1.708,-1.709, &-1.709,-1.710,-1.711,-1.712,-1.713,-1.713,-1.714,-1.715,-1.716, &-1.717,-1.718,-1.718,-1.719,-1.720,-1.721,-1.722,-1.722,-1.723, &-1.724,-1.725,-1.725,-1.726,-1.727,-1.728,-1.729,-1.729,-1.730, &-1.731,-1.732,-1.733,-1.733,-1.734,-1.735,-1.736,-1.736,-1.737, &-1.738,-1.739,-1.739,-1.740,-1.741,-1.742,-1.743,-1.743,-1.744, &-1.745,-1.746,-1.746,-1.747,-1.748,-1.749,-1.749,-1.750,-1.751, &-1.752,-1.752,-1.753,-1.754,-1.755,-1.755,-1.756,-1.757,-1.758, &-1.758,-1.759,-1.760,-1.760,-1.761,-1.762,-1.763,-1.763,-1.764, &-1.765,-1.766,-1.766,-1.767,-1.768,-1.769,-1.769,-1.770,-1.771, &-1.771,-1.772,-1.773,-1.774,-1.781,-1.788,-1.795,-1.802,-1.809, &-1.816,-1.823,-1.830,-1.836,-1.843,-1.849,-1.856,-1.862,-1.869, &-1.875,-1.882,-1.888,-1.894,-1.901,-1.907,-1.913,-1.919,-1.926, &-1.932,-1.938,-1.944,-1.950,-1.956,-1.962,-1.968,-1.974,-1.981, &-1.987,-1.993,-1.999,-2.004,-2.010,-2.016,-2.022,-2.028,-2.034, &-2.040,-2.046,-2.052,-2.058,-2.064,-2.069,-2.075,-2.081,-2.087, &-2.093,-2.099,-2.104,-2.110,-2.116,-2.122,-2.128,-2.133,-2.139, &-2.145,-2.151,-2.157,-2.162,-2.168,-2.174,-2.180,-2.185,-2.191, &-2.197,-2.202,-2.208,-2.214,-2.220,-2.225,-2.231,-2.237,-2.242, &-2.248,-2.254,-2.260,-2.265,-2.271,-2.277,-2.282,-2.288,-2.294, &-2.299,-2.305,-2.311,-2.316,-2.322,-2.328,-2.333,-2.339,-2.345, &-2.350,-2.356,-2.361,-2.367,-2.373,-2.378,-2.384,-2.390,-2.395, &-2.401,-2.407,-2.412,-2.418,-2.423,-2.429,-2.435,-2.440,-2.446, &-2.452,-2.457,-2.463,-2.468,-2.474,-2.480,-2.485,-2.491,-2.496, &-2.502,-2.508,-2.513,-2.519,-2.524,-2.530,-2.536,-2.541,-2.547, &-2.552,-2.558,-2.564,-2.569,-2.575,-2.580,-2.586,-2.592,-2.597, &-2.603,-2.608,-2.614,-2.620,-2.625,-2.631,-2.636,-2.642,-2.647, &-2.653,-2.659,-2.664,-2.670,-2.675,-2.681,-2.686,-2.692,-2.698, &-2.703,-2.709,-2.714 & / C C *** MGNO32 C DATA BNC22M/ &-0.093,-0.193,-0.238,-0.268,-0.289,-0.305,-0.318,-0.328,-0.336, &-0.343,-0.348,-0.352,-0.356,-0.359,-0.361,-0.362,-0.364,-0.364, &-0.364,-0.364,-0.364,-0.364,-0.363,-0.362,-0.360,-0.359,-0.357, &-0.355,-0.354,-0.352,-0.349,-0.347,-0.345,-0.342,-0.340,-0.337, &-0.335,-0.332,-0.329,-0.326,-0.324,-0.321,-0.318,-0.315,-0.312, &-0.309,-0.306,-0.303,-0.300,-0.297,-0.294,-0.290,-0.287,-0.284, &-0.281,-0.278,-0.275,-0.271,-0.268,-0.265,-0.262,-0.258,-0.255, &-0.252,-0.249,-0.245,-0.242,-0.239,-0.235,-0.232,-0.229,-0.225, &-0.222,-0.218,-0.215,-0.211,-0.208,-0.204,-0.201,-0.197,-0.194, &-0.190,-0.186,-0.183,-0.179,-0.175,-0.172,-0.168,-0.164,-0.160, &-0.156,-0.152,-0.148,-0.144,-0.140,-0.136,-0.132,-0.128,-0.124, &-0.120,-0.116,-0.112,-0.107,-0.103,-0.099,-0.095,-0.090,-0.086, &-0.082,-0.078,-0.073,-0.069,-0.065,-0.060,-0.056,-0.051,-0.047, &-0.043,-0.038,-0.034,-0.029,-0.025,-0.020,-0.016,-0.011,-0.007, &-0.003, 0.002, 0.006, 0.011, 0.015, 0.020, 0.024, 0.029, 0.033, & 0.038, 0.042, 0.046, 0.051, 0.055, 0.060, 0.064, 0.069, 0.073, & 0.078, 0.082, 0.086, 0.091, 0.095, 0.100, 0.104, 0.109, 0.113, & 0.117, 0.122, 0.126, 0.130, 0.135, 0.139, 0.144, 0.148, 0.152, & 0.157, 0.161, 0.165, 0.170, 0.174, 0.178, 0.183, 0.187, 0.191, & 0.196, 0.200, 0.204, 0.209, 0.213, 0.217, 0.221, 0.226, 0.230, & 0.234, 0.239, 0.243, 0.247, 0.251, 0.256, 0.260, 0.264, 0.268, & 0.272, 0.277, 0.281, 0.285, 0.289, 0.293, 0.298, 0.302, 0.306, & 0.310, 0.314, 0.318, 0.323, 0.327, 0.331, 0.335, 0.339, 0.343, & 0.347, 0.351, 0.355, 0.360, 0.364, 0.368, 0.372, 0.376, 0.380, & 0.384, 0.388, 0.392, 0.396, 0.400, 0.404, 0.408, 0.412, 0.416, & 0.420, 0.424, 0.428, 0.432, 0.436, 0.440, 0.444, 0.448, 0.452, & 0.456, 0.460, 0.464, 0.468, 0.472, 0.475, 0.479, 0.483, 0.487, & 0.491, 0.495, 0.499, 0.503, 0.507, 0.510, 0.514, 0.518, 0.522, & 0.526, 0.530, 0.533, 0.537, 0.541, 0.545, 0.549, 0.552, 0.556, & 0.560, 0.564, 0.568, 0.571, 0.575, 0.579, 0.583, 0.586, 0.590, & 0.594, 0.598, 0.601, 0.605, 0.609, 0.612, 0.616, 0.620, 0.623, & 0.627, 0.631, 0.634, 0.638, 0.642, 0.645, 0.649, 0.653, 0.656, & 0.660, 0.664, 0.667, 0.671, 0.674, 0.678, 0.682, 0.685, 0.689, & 0.692, 0.696, 0.699, 0.703, 0.707, 0.710, 0.714, 0.717, 0.721, & 0.724, 0.728, 0.731, 0.735, 0.738, 0.742, 0.745, 0.749, 0.752, & 0.756, 0.759, 0.763, 0.766, 0.769, 0.773, 0.776, 0.780, 0.783, & 0.787, 0.790, 0.793, 0.797, 0.800, 0.804, 0.807, 0.810, 0.814, & 0.817, 0.821, 0.824, 0.827, 0.831, 0.834, 0.837, 0.841, 0.844, & 0.847, 0.851, 0.854, 0.857, 0.861, 0.864, 0.867, 0.870, 0.874, & 0.877, 0.880, 0.884, 0.887, 0.890, 0.893, 0.897, 0.900, 0.903, & 0.906, 0.910, 0.913, 0.916, 0.919, 0.922, 0.926, 0.929, 0.932, & 0.935, 0.938, 0.942, 0.945, 0.948, 0.951, 0.954, 0.957, 0.961, & 0.964, 0.967, 0.970, 0.973, 0.976, 0.979, 0.983, 0.986, 0.989, & 0.992, 0.995, 0.998, 1.001, 1.004, 1.007, 1.010, 1.013, 1.016, & 1.020, 1.023, 1.026, 1.029, 1.061, 1.091, 1.120, 1.149, 1.178, & 1.206, 1.233, 1.261, 1.288, 1.314, 1.340, 1.366, 1.391, 1.417, & 1.441, 1.466, 1.490, 1.514, 1.537, 1.560, 1.583, 1.606, 1.628, & 1.650, 1.672, 1.694, 1.715, 1.736, 1.757, 1.777, 1.797, 1.817, & 1.837, 1.857, 1.876, 1.895, 1.914, 1.933, 1.951, 1.970, 1.988, & 2.006, 2.023, 2.041, 2.058, 2.075, 2.092, 2.109, 2.126, 2.142, & 2.159, 2.175, 2.191, 2.207, 2.222, 2.238, 2.253, 2.268, 2.283, & 2.298, 2.313, 2.328, 2.342, 2.357, 2.371, 2.385, 2.399, 2.413, & 2.426, 2.440, 2.453, 2.467, 2.480, 2.493, 2.506, 2.519, 2.532, & 2.545, 2.557, 2.570, 2.582, 2.594, 2.606, 2.618, 2.630, 2.642, & 2.654, 2.666, 2.677, 2.689, 2.700, 2.711, 2.722, 2.733, 2.744, & 2.755, 2.766, 2.777, 2.788, 2.798, 2.809, 2.819, 2.829, 2.840, & 2.850, 2.860, 2.870, 2.880, 2.890, 2.900, 2.909, 2.919, 2.929, & 2.938, 2.948, 2.957, 2.966, 2.976, 2.985, 2.994, 3.003, 3.012, & 3.021, 3.030, 3.039, 3.047, 3.056, 3.065, 3.073, 3.082, 3.090, & 3.099, 3.107, 3.115, 3.123, 3.132, 3.140, 3.148, 3.156, 3.164, & 3.172, 3.179, 3.187, 3.195, 3.203, 3.210, 3.218, 3.225, 3.233, & 3.240, 3.248, 3.255, 3.262, 3.270, 3.277, 3.284, 3.291, 3.298, & 3.305, 3.312, 3.319 & / C C *** MGCL2 C DATA BNC23M/ &-0.092,-0.190,-0.233,-0.261,-0.280,-0.295,-0.306,-0.314,-0.321, &-0.326,-0.330,-0.333,-0.335,-0.336,-0.336,-0.336,-0.336,-0.335, &-0.334,-0.332,-0.330,-0.328,-0.326,-0.323,-0.320,-0.317,-0.314, &-0.311,-0.308,-0.304,-0.300,-0.297,-0.293,-0.289,-0.285,-0.281, &-0.277,-0.272,-0.268,-0.264,-0.259,-0.255,-0.251,-0.246,-0.242, &-0.237,-0.233,-0.228,-0.224,-0.219,-0.215,-0.210,-0.205,-0.201, &-0.196,-0.192,-0.187,-0.182,-0.178,-0.173,-0.168,-0.164,-0.159, &-0.154,-0.150,-0.145,-0.140,-0.135,-0.131,-0.126,-0.121,-0.116, &-0.111,-0.106,-0.102,-0.097,-0.092,-0.087,-0.082,-0.077,-0.072, &-0.067,-0.062,-0.056,-0.051,-0.046,-0.041,-0.036,-0.030,-0.025, &-0.019,-0.014,-0.009,-0.003, 0.002, 0.008, 0.013, 0.019, 0.025, & 0.030, 0.036, 0.042, 0.047, 0.053, 0.059, 0.065, 0.071, 0.077, & 0.082, 0.088, 0.094, 0.100, 0.106, 0.112, 0.118, 0.124, 0.130, & 0.136, 0.142, 0.148, 0.154, 0.160, 0.166, 0.172, 0.178, 0.184, & 0.190, 0.196, 0.202, 0.208, 0.214, 0.220, 0.226, 0.232, 0.238, & 0.244, 0.250, 0.256, 0.262, 0.268, 0.274, 0.280, 0.286, 0.292, & 0.298, 0.304, 0.310, 0.316, 0.322, 0.328, 0.334, 0.340, 0.346, & 0.352, 0.358, 0.364, 0.370, 0.376, 0.382, 0.387, 0.393, 0.399, & 0.405, 0.411, 0.417, 0.423, 0.429, 0.434, 0.440, 0.446, 0.452, & 0.458, 0.463, 0.469, 0.475, 0.481, 0.487, 0.492, 0.498, 0.504, & 0.509, 0.515, 0.521, 0.527, 0.532, 0.538, 0.544, 0.549, 0.555, & 0.561, 0.566, 0.572, 0.578, 0.583, 0.589, 0.594, 0.600, 0.606, & 0.611, 0.617, 0.622, 0.628, 0.633, 0.639, 0.645, 0.650, 0.656, & 0.661, 0.667, 0.672, 0.678, 0.683, 0.688, 0.694, 0.699, 0.705, & 0.710, 0.716, 0.721, 0.726, 0.732, 0.737, 0.743, 0.748, 0.753, & 0.759, 0.764, 0.769, 0.775, 0.780, 0.785, 0.791, 0.796, 0.801, & 0.807, 0.812, 0.817, 0.822, 0.828, 0.833, 0.838, 0.843, 0.848, & 0.854, 0.859, 0.864, 0.869, 0.874, 0.879, 0.885, 0.890, 0.895, & 0.900, 0.905, 0.910, 0.915, 0.920, 0.925, 0.931, 0.936, 0.941, & 0.946, 0.951, 0.956, 0.961, 0.966, 0.971, 0.976, 0.981, 0.986, & 0.991, 0.996, 1.001, 1.006, 1.011, 1.015, 1.020, 1.025, 1.030, & 1.035, 1.040, 1.045, 1.050, 1.055, 1.059, 1.064, 1.069, 1.074, & 1.079, 1.084, 1.088, 1.093, 1.098, 1.103, 1.108, 1.112, 1.117, & 1.122, 1.127, 1.131, 1.136, 1.141, 1.146, 1.150, 1.155, 1.160, & 1.164, 1.169, 1.174, 1.178, 1.183, 1.188, 1.192, 1.197, 1.201, & 1.206, 1.211, 1.215, 1.220, 1.224, 1.229, 1.234, 1.238, 1.243, & 1.247, 1.252, 1.256, 1.261, 1.265, 1.270, 1.274, 1.279, 1.283, & 1.288, 1.292, 1.297, 1.301, 1.306, 1.310, 1.315, 1.319, 1.323, & 1.328, 1.332, 1.337, 1.341, 1.345, 1.350, 1.354, 1.359, 1.363, & 1.367, 1.372, 1.376, 1.380, 1.385, 1.389, 1.393, 1.398, 1.402, & 1.406, 1.410, 1.415, 1.419, 1.423, 1.428, 1.432, 1.436, 1.440, & 1.444, 1.449, 1.453, 1.457, 1.461, 1.466, 1.470, 1.474, 1.478, & 1.482, 1.486, 1.491, 1.495, 1.499, 1.503, 1.507, 1.511, 1.515, & 1.519, 1.524, 1.528, 1.532, 1.536, 1.540, 1.544, 1.548, 1.552, & 1.556, 1.560, 1.564, 1.568, 1.611, 1.651, 1.690, 1.728, 1.765, & 1.802, 1.839, 1.875, 1.911, 1.945, 1.980, 2.014, 2.048, 2.081, & 2.113, 2.146, 2.177, 2.209, 2.240, 2.270, 2.300, 2.330, 2.360, & 2.389, 2.417, 2.446, 2.474, 2.502, 2.529, 2.556, 2.583, 2.609, & 2.635, 2.661, 2.686, 2.712, 2.737, 2.761, 2.786, 2.810, 2.834, & 2.857, 2.881, 2.904, 2.927, 2.950, 2.972, 2.994, 3.016, 3.038, & 3.060, 3.081, 3.102, 3.123, 3.144, 3.164, 3.184, 3.205, 3.225, & 3.244, 3.264, 3.283, 3.302, 3.322, 3.340, 3.359, 3.378, 3.396, & 3.414, 3.432, 3.450, 3.468, 3.485, 3.503, 3.520, 3.537, 3.554, & 3.571, 3.588, 3.604, 3.621, 3.637, 3.653, 3.669, 3.685, 3.701, & 3.717, 3.732, 3.748, 3.763, 3.778, 3.793, 3.808, 3.823, 3.838, & 3.852, 3.867, 3.881, 3.896, 3.910, 3.924, 3.938, 3.952, 3.966, & 3.979, 3.993, 4.006, 4.020, 4.033, 4.046, 4.059, 4.072, 4.085, & 4.098, 4.111, 4.123, 4.136, 4.148, 4.161, 4.173, 4.185, 4.197, & 4.210, 4.222, 4.233, 4.245, 4.257, 4.269, 4.280, 4.292, 4.303, & 4.315, 4.326, 4.337, 4.348, 4.359, 4.370, 4.381, 4.392, 4.403, & 4.414, 4.424, 4.435, 4.446, 4.456, 4.466, 4.477, 4.487, 4.497, & 4.507, 4.518, 4.528, 4.538, 4.548, 4.557, 4.567, 4.577, 4.587, & 4.596, 4.606, 4.615 & / END C C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE KM298 C *** CALCULATES BINARY ACTIVITY COEFFICIENTS BY KUSIK-MEISSNER METHOD. C THE COMPUTATIONS HAVE BEEN PERFORMED AND THE RESULTS ARE STORED IN C LOOKUP TABLES. THE IONIC ACTIVITY 'IN' IS INPUT, AND THE ARRAY C 'BINARR' IS RETURNED WITH THE BINARY COEFFICIENTS. C C TEMPERATURE IS 298K C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE KM298 (IONIC, BINARR) C C *** Common block definition C COMMON /KMC298/ &BNC01M( 561),BNC02M( 561),BNC03M( 561),BNC04M( 561), &BNC05M( 561),BNC06M( 561),BNC07M( 561),BNC08M( 561), &BNC09M( 561),BNC10M( 561),BNC11M( 561),BNC12M( 561), &BNC13M( 561),BNC14M( 561),BNC15M( 561),BNC16M( 561), &BNC17M( 561),BNC18M( 561),BNC19M( 561),BNC20M( 561), &BNC21M( 561),BNC22M( 561),BNC23M( 561) REAL Binarr (23), Ionic C C *** Find position in arrays for bincoef C IF (Ionic.LE. 0.200000E+02) THEN ipos = MIN(NINT( 0.200000E+02*Ionic) + 1, 400) ELSE ipos = 400+NINT( 0.200000E+01*Ionic- 0.400000E+02) ENDIF ipos = min(ipos, 561) C C *** Assign values to return array C Binarr(01) = BNC01M(ipos) Binarr(02) = BNC02M(ipos) Binarr(03) = BNC03M(ipos) Binarr(04) = BNC04M(ipos) Binarr(05) = BNC05M(ipos) Binarr(06) = BNC06M(ipos) Binarr(07) = BNC07M(ipos) Binarr(08) = BNC08M(ipos) Binarr(09) = BNC09M(ipos) Binarr(10) = BNC10M(ipos) Binarr(11) = BNC11M(ipos) Binarr(12) = BNC12M(ipos) Binarr(13) = BNC13M(ipos) Binarr(14) = BNC14M(ipos) Binarr(15) = BNC15M(ipos) Binarr(16) = BNC16M(ipos) Binarr(17) = BNC17M(ipos) Binarr(18) = BNC18M(ipos) Binarr(19) = BNC19M(ipos) Binarr(20) = BNC20M(ipos) Binarr(21) = BNC21M(ipos) Binarr(22) = BNC22M(ipos) Binarr(23) = BNC23M(ipos) C C *** Return point ; End of subroutine C RETURN END BLOCK DATA KMCF298 C C *** Common block definition C COMMON /KMC298/ &BNC01M( 561),BNC02M( 561),BNC03M( 561),BNC04M( 561), &BNC05M( 561),BNC06M( 561),BNC07M( 561),BNC08M( 561), &BNC09M( 561),BNC10M( 561),BNC11M( 561),BNC12M( 561), &BNC13M( 561),BNC14M( 561),BNC15M( 561),BNC16M( 561), &BNC17M( 561),BNC18M( 561),BNC19M( 561),BNC20M( 561), &BNC21M( 561),BNC22M( 561),BNC23M( 561) C C *** NaCl C DATA BNC01M/ &-0.045,-0.095,-0.117,-0.132,-0.142,-0.150,-0.157,-0.162,-0.166, &-0.170,-0.173,-0.175,-0.177,-0.179,-0.180,-0.181,-0.182,-0.182, &-0.183,-0.183,-0.183,-0.183,-0.182,-0.182,-0.182,-0.181,-0.181, &-0.180,-0.179,-0.178,-0.178,-0.177,-0.176,-0.175,-0.174,-0.173, &-0.172,-0.170,-0.169,-0.168,-0.167,-0.166,-0.164,-0.163,-0.162, &-0.161,-0.159,-0.158,-0.157,-0.155,-0.154,-0.153,-0.151,-0.150, &-0.148,-0.147,-0.146,-0.144,-0.143,-0.141,-0.140,-0.138,-0.137, &-0.136,-0.134,-0.133,-0.131,-0.130,-0.128,-0.127,-0.125,-0.124, &-0.122,-0.121,-0.119,-0.117,-0.116,-0.114,-0.113,-0.111,-0.110, &-0.108,-0.106,-0.105,-0.103,-0.101,-0.100,-0.098,-0.096,-0.094, &-0.093,-0.091,-0.089,-0.087,-0.086,-0.084,-0.082,-0.080,-0.078, &-0.076,-0.075,-0.073,-0.071,-0.069,-0.067,-0.065,-0.063,-0.061, &-0.059,-0.057,-0.055,-0.053,-0.051,-0.049,-0.047,-0.046,-0.044, &-0.042,-0.040,-0.038,-0.036,-0.034,-0.032,-0.030,-0.028,-0.026, &-0.024,-0.022,-0.019,-0.017,-0.015,-0.013,-0.011,-0.009,-0.007, &-0.005,-0.003,-0.001, 0.001, 0.003, 0.005, 0.007, 0.009, 0.011, & 0.013, 0.015, 0.017, 0.019, 0.021, 0.023, 0.025, 0.027, 0.029, & 0.031, 0.033, 0.035, 0.037, 0.039, 0.041, 0.043, 0.045, 0.047, & 0.049, 0.050, 0.052, 0.054, 0.056, 0.058, 0.060, 0.062, 0.064, & 0.066, 0.068, 0.070, 0.072, 0.074, 0.076, 0.078, 0.080, 0.082, & 0.084, 0.086, 0.088, 0.090, 0.091, 0.093, 0.095, 0.097, 0.099, & 0.101, 0.103, 0.105, 0.107, 0.109, 0.111, 0.113, 0.114, 0.116, & 0.118, 0.120, 0.122, 0.124, 0.126, 0.128, 0.130, 0.131, 0.133, & 0.135, 0.137, 0.139, 0.141, 0.143, 0.145, 0.146, 0.148, 0.150, & 0.152, 0.154, 0.156, 0.158, 0.159, 0.161, 0.163, 0.165, 0.167, & 0.169, 0.170, 0.172, 0.174, 0.176, 0.178, 0.180, 0.181, 0.183, & 0.185, 0.187, 0.189, 0.190, 0.192, 0.194, 0.196, 0.198, 0.199, & 0.201, 0.203, 0.205, 0.206, 0.208, 0.210, 0.212, 0.214, 0.215, & 0.217, 0.219, 0.221, 0.222, 0.224, 0.226, 0.228, 0.229, 0.231, & 0.233, 0.235, 0.236, 0.238, 0.240, 0.242, 0.243, 0.245, 0.247, & 0.248, 0.250, 0.252, 0.254, 0.255, 0.257, 0.259, 0.260, 0.262, & 0.264, 0.265, 0.267, 0.269, 0.271, 0.272, 0.274, 0.276, 0.277, & 0.279, 0.281, 0.282, 0.284, 0.286, 0.287, 0.289, 0.291, 0.292, & 0.294, 0.296, 0.297, 0.299, 0.301, 0.302, 0.304, 0.305, 0.307, & 0.309, 0.310, 0.312, 0.314, 0.315, 0.317, 0.318, 0.320, 0.322, & 0.323, 0.325, 0.327, 0.328, 0.330, 0.331, 0.333, 0.335, 0.336, & 0.338, 0.339, 0.341, 0.343, 0.344, 0.346, 0.347, 0.349, 0.350, & 0.352, 0.354, 0.355, 0.357, 0.358, 0.360, 0.361, 0.363, 0.364, & 0.366, 0.368, 0.369, 0.371, 0.372, 0.374, 0.375, 0.377, 0.378, & 0.380, 0.381, 0.383, 0.384, 0.386, 0.388, 0.389, 0.391, 0.392, & 0.394, 0.395, 0.397, 0.398, 0.400, 0.401, 0.403, 0.404, 0.406, & 0.407, 0.409, 0.410, 0.412, 0.413, 0.415, 0.416, 0.418, 0.419, & 0.421, 0.422, 0.423, 0.425, 0.426, 0.428, 0.429, 0.431, 0.432, & 0.434, 0.435, 0.437, 0.438, 0.440, 0.441, 0.442, 0.444, 0.445, & 0.447, 0.448, 0.450, 0.451, 0.466, 0.480, 0.494, 0.508, 0.522, & 0.535, 0.548, 0.561, 0.574, 0.586, 0.599, 0.611, 0.624, 0.636, & 0.648, 0.659, 0.671, 0.683, 0.694, 0.705, 0.716, 0.727, 0.738, & 0.749, 0.760, 0.770, 0.781, 0.791, 0.801, 0.811, 0.821, 0.831, & 0.841, 0.851, 0.861, 0.870, 0.879, 0.889, 0.898, 0.907, 0.916, & 0.925, 0.934, 0.943, 0.952, 0.961, 0.969, 0.978, 0.986, 0.995, & 1.003, 1.011, 1.019, 1.028, 1.036, 1.044, 1.051, 1.059, 1.067, & 1.075, 1.082, 1.090, 1.098, 1.105, 1.113, 1.120, 1.127, 1.135, & 1.142, 1.149, 1.156, 1.163, 1.170, 1.177, 1.184, 1.191, 1.198, & 1.204, 1.211, 1.218, 1.224, 1.231, 1.237, 1.244, 1.250, 1.257, & 1.263, 1.269, 1.276, 1.282, 1.288, 1.294, 1.300, 1.307, 1.313, & 1.319, 1.325, 1.330, 1.336, 1.342, 1.348, 1.354, 1.360, 1.365, & 1.371, 1.377, 1.382, 1.388, 1.393, 1.399, 1.404, 1.410, 1.415, & 1.421, 1.426, 1.431, 1.437, 1.442, 1.447, 1.453, 1.458, 1.463, & 1.468, 1.473, 1.478, 1.483, 1.488, 1.493, 1.498, 1.503, 1.508, & 1.513, 1.518, 1.523, 1.528, 1.532, 1.537, 1.542, 1.547, 1.551, & 1.556, 1.561, 1.565, 1.570, 1.575, 1.579, 1.584, 1.588, 1.593, & 1.597, 1.602, 1.606, 1.611, 1.615, 1.620, 1.624, 1.628, 1.633, & 1.637, 1.641, 1.645 & / C C *** Na2SO4 C DATA BNC02M/ &-0.093,-0.202,-0.256,-0.295,-0.325,-0.349,-0.371,-0.389,-0.405, &-0.420,-0.434,-0.446,-0.457,-0.468,-0.478,-0.487,-0.496,-0.504, &-0.512,-0.520,-0.527,-0.533,-0.540,-0.546,-0.552,-0.558,-0.563, &-0.569,-0.574,-0.579,-0.584,-0.588,-0.593,-0.597,-0.602,-0.606, &-0.610,-0.614,-0.618,-0.621,-0.625,-0.628,-0.632,-0.635,-0.639, &-0.642,-0.645,-0.648,-0.651,-0.654,-0.657,-0.660,-0.663,-0.665, &-0.668,-0.671,-0.673,-0.676,-0.678,-0.681,-0.683,-0.686,-0.688, &-0.690,-0.692,-0.695,-0.697,-0.699,-0.701,-0.703,-0.705,-0.707, &-0.709,-0.711,-0.713,-0.715,-0.717,-0.719,-0.721,-0.723,-0.724, &-0.726,-0.728,-0.730,-0.731,-0.733,-0.735,-0.737,-0.738,-0.740, &-0.741,-0.743,-0.745,-0.746,-0.748,-0.749,-0.751,-0.752,-0.754, &-0.755,-0.757,-0.758,-0.760,-0.761,-0.763,-0.764,-0.766,-0.767, &-0.768,-0.770,-0.771,-0.772,-0.774,-0.775,-0.776,-0.778,-0.779, &-0.780,-0.782,-0.783,-0.784,-0.785,-0.787,-0.788,-0.789,-0.790, &-0.791,-0.793,-0.794,-0.795,-0.796,-0.797,-0.798,-0.800,-0.801, &-0.802,-0.803,-0.804,-0.805,-0.806,-0.807,-0.808,-0.810,-0.811, &-0.812,-0.813,-0.814,-0.815,-0.816,-0.817,-0.818,-0.819,-0.820, &-0.821,-0.822,-0.823,-0.824,-0.825,-0.826,-0.827,-0.828,-0.829, &-0.830,-0.831,-0.832,-0.832,-0.833,-0.834,-0.835,-0.836,-0.837, &-0.838,-0.839,-0.840,-0.841,-0.841,-0.842,-0.843,-0.844,-0.845, &-0.846,-0.847,-0.847,-0.848,-0.849,-0.850,-0.851,-0.852,-0.852, &-0.853,-0.854,-0.855,-0.856,-0.856,-0.857,-0.858,-0.859,-0.860, &-0.860,-0.861,-0.862,-0.863,-0.864,-0.864,-0.865,-0.866,-0.867, &-0.867,-0.868,-0.869,-0.869,-0.870,-0.871,-0.872,-0.872,-0.873, &-0.874,-0.875,-0.875,-0.876,-0.877,-0.877,-0.878,-0.879,-0.879, &-0.880,-0.881,-0.882,-0.882,-0.883,-0.884,-0.884,-0.885,-0.886, &-0.886,-0.887,-0.888,-0.888,-0.889,-0.889,-0.890,-0.891,-0.891, &-0.892,-0.893,-0.893,-0.894,-0.895,-0.895,-0.896,-0.896,-0.897, &-0.898,-0.898,-0.899,-0.899,-0.900,-0.901,-0.901,-0.902,-0.903, &-0.903,-0.904,-0.904,-0.905,-0.905,-0.906,-0.907,-0.907,-0.908, &-0.908,-0.909,-0.910,-0.910,-0.911,-0.911,-0.912,-0.912,-0.913, &-0.913,-0.914,-0.915,-0.915,-0.916,-0.916,-0.917,-0.917,-0.918, &-0.918,-0.919,-0.919,-0.920,-0.921,-0.921,-0.922,-0.922,-0.923, &-0.923,-0.924,-0.924,-0.925,-0.925,-0.926,-0.926,-0.927,-0.927, &-0.928,-0.928,-0.929,-0.929,-0.930,-0.930,-0.931,-0.931,-0.932, &-0.932,-0.933,-0.933,-0.934,-0.934,-0.935,-0.935,-0.936,-0.936, &-0.937,-0.937,-0.938,-0.938,-0.939,-0.939,-0.940,-0.940,-0.940, &-0.941,-0.941,-0.942,-0.942,-0.943,-0.943,-0.944,-0.944,-0.945, &-0.945,-0.946,-0.946,-0.946,-0.947,-0.947,-0.948,-0.948,-0.949, &-0.949,-0.950,-0.950,-0.950,-0.951,-0.951,-0.952,-0.952,-0.953, &-0.953,-0.954,-0.954,-0.954,-0.955,-0.955,-0.956,-0.956,-0.957, &-0.957,-0.957,-0.958,-0.958,-0.959,-0.959,-0.959,-0.960,-0.960, &-0.961,-0.961,-0.962,-0.962,-0.962,-0.963,-0.963,-0.964,-0.964, &-0.964,-0.965,-0.965,-0.966,-0.966,-0.966,-0.967,-0.967,-0.968, &-0.968,-0.968,-0.969,-0.969,-0.973,-0.977,-0.981,-0.984,-0.988, &-0.991,-0.995,-0.998,-1.001,-1.004,-1.007,-1.010,-1.013,-1.016, &-1.019,-1.022,-1.024,-1.027,-1.030,-1.032,-1.035,-1.037,-1.040, &-1.042,-1.045,-1.047,-1.049,-1.052,-1.054,-1.056,-1.058,-1.061, &-1.063,-1.065,-1.067,-1.069,-1.071,-1.073,-1.075,-1.077,-1.079, &-1.080,-1.082,-1.084,-1.086,-1.088,-1.089,-1.091,-1.093,-1.095, &-1.096,-1.098,-1.100,-1.101,-1.103,-1.104,-1.106,-1.108,-1.109, &-1.111,-1.112,-1.114,-1.115,-1.117,-1.118,-1.119,-1.121,-1.122, &-1.124,-1.125,-1.126,-1.128,-1.129,-1.130,-1.132,-1.133,-1.134, &-1.135,-1.137,-1.138,-1.139,-1.140,-1.142,-1.143,-1.144,-1.145, &-1.146,-1.148,-1.149,-1.150,-1.151,-1.152,-1.153,-1.154,-1.155, &-1.157,-1.158,-1.159,-1.160,-1.161,-1.162,-1.163,-1.164,-1.165, &-1.166,-1.167,-1.168,-1.169,-1.170,-1.171,-1.172,-1.173,-1.174, &-1.175,-1.176,-1.177,-1.178,-1.179,-1.180,-1.180,-1.181,-1.182, &-1.183,-1.184,-1.185,-1.186,-1.187,-1.188,-1.188,-1.189,-1.190, &-1.191,-1.192,-1.193,-1.193,-1.194,-1.195,-1.196,-1.197,-1.198, &-1.198,-1.199,-1.200,-1.201,-1.201,-1.202,-1.203,-1.204,-1.205, &-1.205,-1.206,-1.207,-1.208,-1.208,-1.209,-1.210,-1.210,-1.211, &-1.212,-1.213,-1.213 & / C C *** NaNO3 C DATA BNC03M/ &-0.047,-0.102,-0.129,-0.149,-0.164,-0.177,-0.188,-0.198,-0.206, &-0.214,-0.221,-0.228,-0.234,-0.239,-0.245,-0.250,-0.255,-0.259, &-0.263,-0.267,-0.271,-0.275,-0.279,-0.282,-0.285,-0.289,-0.292, &-0.295,-0.298,-0.300,-0.303,-0.306,-0.308,-0.311,-0.313,-0.316, &-0.318,-0.320,-0.322,-0.324,-0.326,-0.329,-0.331,-0.332,-0.334, &-0.336,-0.338,-0.340,-0.342,-0.343,-0.345,-0.347,-0.348,-0.350, &-0.352,-0.353,-0.355,-0.356,-0.358,-0.359,-0.360,-0.362,-0.363, &-0.365,-0.366,-0.367,-0.369,-0.370,-0.371,-0.372,-0.374,-0.375, &-0.376,-0.377,-0.378,-0.380,-0.381,-0.382,-0.383,-0.384,-0.385, &-0.386,-0.388,-0.389,-0.390,-0.391,-0.392,-0.393,-0.394,-0.395, &-0.396,-0.397,-0.398,-0.399,-0.400,-0.401,-0.402,-0.403,-0.404, &-0.405,-0.406,-0.407,-0.408,-0.408,-0.409,-0.410,-0.411,-0.412, &-0.413,-0.414,-0.415,-0.416,-0.416,-0.417,-0.418,-0.419,-0.420, &-0.421,-0.422,-0.422,-0.423,-0.424,-0.425,-0.426,-0.427,-0.427, &-0.428,-0.429,-0.430,-0.430,-0.431,-0.432,-0.433,-0.434,-0.434, &-0.435,-0.436,-0.437,-0.437,-0.438,-0.439,-0.439,-0.440,-0.441, &-0.442,-0.442,-0.443,-0.444,-0.444,-0.445,-0.446,-0.447,-0.447, &-0.448,-0.449,-0.449,-0.450,-0.451,-0.451,-0.452,-0.453,-0.453, &-0.454,-0.454,-0.455,-0.456,-0.456,-0.457,-0.458,-0.458,-0.459, &-0.460,-0.460,-0.461,-0.461,-0.462,-0.463,-0.463,-0.464,-0.464, &-0.465,-0.466,-0.466,-0.467,-0.467,-0.468,-0.468,-0.469,-0.470, &-0.470,-0.471,-0.471,-0.472,-0.472,-0.473,-0.474,-0.474,-0.475, &-0.475,-0.476,-0.476,-0.477,-0.477,-0.478,-0.478,-0.479,-0.479, &-0.480,-0.480,-0.481,-0.482,-0.482,-0.483,-0.483,-0.484,-0.484, &-0.485,-0.485,-0.486,-0.486,-0.487,-0.487,-0.488,-0.488,-0.489, &-0.489,-0.490,-0.490,-0.491,-0.491,-0.491,-0.492,-0.492,-0.493, &-0.493,-0.494,-0.494,-0.495,-0.495,-0.496,-0.496,-0.497,-0.497, &-0.498,-0.498,-0.498,-0.499,-0.499,-0.500,-0.500,-0.501,-0.501, &-0.502,-0.502,-0.502,-0.503,-0.503,-0.504,-0.504,-0.505,-0.505, &-0.505,-0.506,-0.506,-0.507,-0.507,-0.508,-0.508,-0.508,-0.509, &-0.509,-0.510,-0.510,-0.511,-0.511,-0.511,-0.512,-0.512,-0.513, &-0.513,-0.513,-0.514,-0.514,-0.515,-0.515,-0.515,-0.516,-0.516, &-0.517,-0.517,-0.517,-0.518,-0.518,-0.518,-0.519,-0.519,-0.520, &-0.520,-0.520,-0.521,-0.521,-0.522,-0.522,-0.522,-0.523,-0.523, &-0.523,-0.524,-0.524,-0.525,-0.525,-0.525,-0.526,-0.526,-0.526, &-0.527,-0.527,-0.527,-0.528,-0.528,-0.529,-0.529,-0.529,-0.530, &-0.530,-0.530,-0.531,-0.531,-0.531,-0.532,-0.532,-0.532,-0.533, &-0.533,-0.533,-0.534,-0.534,-0.534,-0.535,-0.535,-0.535,-0.536, &-0.536,-0.536,-0.537,-0.537,-0.537,-0.538,-0.538,-0.538,-0.539, &-0.539,-0.539,-0.540,-0.540,-0.540,-0.541,-0.541,-0.541,-0.542, &-0.542,-0.542,-0.543,-0.543,-0.543,-0.544,-0.544,-0.544,-0.545, &-0.545,-0.545,-0.546,-0.546,-0.546,-0.546,-0.547,-0.547,-0.547, &-0.548,-0.548,-0.548,-0.549,-0.549,-0.549,-0.549,-0.550,-0.550, &-0.550,-0.551,-0.551,-0.551,-0.552,-0.552,-0.552,-0.552,-0.553, &-0.553,-0.553,-0.554,-0.554,-0.557,-0.560,-0.563,-0.565,-0.568, &-0.570,-0.573,-0.575,-0.578,-0.580,-0.583,-0.585,-0.587,-0.589, &-0.592,-0.594,-0.596,-0.598,-0.600,-0.602,-0.604,-0.606,-0.608, &-0.609,-0.611,-0.613,-0.615,-0.617,-0.618,-0.620,-0.622,-0.623, &-0.625,-0.627,-0.628,-0.630,-0.631,-0.633,-0.634,-0.636,-0.637, &-0.639,-0.640,-0.642,-0.643,-0.644,-0.646,-0.647,-0.648,-0.650, &-0.651,-0.652,-0.653,-0.655,-0.656,-0.657,-0.658,-0.660,-0.661, &-0.662,-0.663,-0.664,-0.665,-0.667,-0.668,-0.669,-0.670,-0.671, &-0.672,-0.673,-0.674,-0.675,-0.676,-0.677,-0.678,-0.679,-0.680, &-0.681,-0.682,-0.683,-0.684,-0.685,-0.686,-0.687,-0.688,-0.689, &-0.690,-0.691,-0.692,-0.692,-0.693,-0.694,-0.695,-0.696,-0.697, &-0.698,-0.698,-0.699,-0.700,-0.701,-0.702,-0.703,-0.703,-0.704, &-0.705,-0.706,-0.706,-0.707,-0.708,-0.709,-0.709,-0.710,-0.711, &-0.712,-0.712,-0.713,-0.714,-0.715,-0.715,-0.716,-0.717,-0.717, &-0.718,-0.719,-0.719,-0.720,-0.721,-0.721,-0.722,-0.723,-0.723, &-0.724,-0.725,-0.725,-0.726,-0.727,-0.727,-0.728,-0.729,-0.729, &-0.730,-0.730,-0.731,-0.732,-0.732,-0.733,-0.733,-0.734,-0.735, &-0.735,-0.736,-0.736,-0.737,-0.737,-0.738,-0.739,-0.739,-0.740, &-0.740,-0.741,-0.741 & / C C *** (NH4)2SO4 C DATA BNC04M/ &-0.093,-0.203,-0.257,-0.296,-0.326,-0.351,-0.372,-0.391,-0.408, &-0.423,-0.436,-0.449,-0.460,-0.471,-0.481,-0.491,-0.500,-0.508, &-0.516,-0.524,-0.531,-0.538,-0.545,-0.552,-0.558,-0.564,-0.569, &-0.575,-0.580,-0.585,-0.590,-0.595,-0.600,-0.605,-0.609,-0.613, &-0.618,-0.622,-0.626,-0.629,-0.633,-0.637,-0.641,-0.644,-0.648, &-0.651,-0.654,-0.658,-0.661,-0.664,-0.667,-0.670,-0.673,-0.676, &-0.678,-0.681,-0.684,-0.687,-0.689,-0.692,-0.694,-0.697,-0.699, &-0.702,-0.704,-0.707,-0.709,-0.711,-0.713,-0.716,-0.718,-0.720, &-0.722,-0.724,-0.726,-0.728,-0.730,-0.732,-0.734,-0.736,-0.738, &-0.740,-0.742,-0.744,-0.746,-0.748,-0.749,-0.751,-0.753,-0.755, &-0.756,-0.758,-0.760,-0.762,-0.763,-0.765,-0.767,-0.768,-0.770, &-0.772,-0.773,-0.775,-0.776,-0.778,-0.779,-0.781,-0.782,-0.784, &-0.786,-0.787,-0.788,-0.790,-0.791,-0.793,-0.794,-0.796,-0.797, &-0.799,-0.800,-0.801,-0.803,-0.804,-0.805,-0.807,-0.808,-0.809, &-0.811,-0.812,-0.813,-0.815,-0.816,-0.817,-0.819,-0.820,-0.821, &-0.822,-0.824,-0.825,-0.826,-0.827,-0.828,-0.830,-0.831,-0.832, &-0.833,-0.834,-0.835,-0.837,-0.838,-0.839,-0.840,-0.841,-0.842, &-0.843,-0.844,-0.846,-0.847,-0.848,-0.849,-0.850,-0.851,-0.852, &-0.853,-0.854,-0.855,-0.856,-0.857,-0.858,-0.859,-0.860,-0.861, &-0.862,-0.863,-0.864,-0.865,-0.866,-0.867,-0.868,-0.869,-0.870, &-0.871,-0.872,-0.873,-0.874,-0.875,-0.876,-0.877,-0.878,-0.878, &-0.879,-0.880,-0.881,-0.882,-0.883,-0.884,-0.885,-0.886,-0.886, &-0.887,-0.888,-0.889,-0.890,-0.891,-0.892,-0.893,-0.893,-0.894, &-0.895,-0.896,-0.897,-0.898,-0.898,-0.899,-0.900,-0.901,-0.902, &-0.902,-0.903,-0.904,-0.905,-0.906,-0.906,-0.907,-0.908,-0.909, &-0.910,-0.910,-0.911,-0.912,-0.913,-0.913,-0.914,-0.915,-0.916, &-0.916,-0.917,-0.918,-0.919,-0.919,-0.920,-0.921,-0.922,-0.922, &-0.923,-0.924,-0.924,-0.925,-0.926,-0.927,-0.927,-0.928,-0.929, &-0.929,-0.930,-0.931,-0.931,-0.932,-0.933,-0.933,-0.934,-0.935, &-0.936,-0.936,-0.937,-0.938,-0.938,-0.939,-0.940,-0.940,-0.941, &-0.941,-0.942,-0.943,-0.943,-0.944,-0.945,-0.945,-0.946,-0.947, &-0.947,-0.948,-0.949,-0.949,-0.950,-0.950,-0.951,-0.952,-0.952, &-0.953,-0.954,-0.954,-0.955,-0.955,-0.956,-0.957,-0.957,-0.958, &-0.958,-0.959,-0.960,-0.960,-0.961,-0.961,-0.962,-0.962,-0.963, &-0.964,-0.964,-0.965,-0.965,-0.966,-0.967,-0.967,-0.968,-0.968, &-0.969,-0.969,-0.970,-0.970,-0.971,-0.972,-0.972,-0.973,-0.973, &-0.974,-0.974,-0.975,-0.975,-0.976,-0.977,-0.977,-0.978,-0.978, &-0.979,-0.979,-0.980,-0.980,-0.981,-0.981,-0.982,-0.982,-0.983, &-0.983,-0.984,-0.984,-0.985,-0.986,-0.986,-0.987,-0.987,-0.988, &-0.988,-0.989,-0.989,-0.990,-0.990,-0.991,-0.991,-0.992,-0.992, &-0.993,-0.993,-0.994,-0.994,-0.995,-0.995,-0.996,-0.996,-0.997, &-0.997,-0.998,-0.998,-0.998,-0.999,-0.999,-1.000,-1.000,-1.001, &-1.001,-1.002,-1.002,-1.003,-1.003,-1.004,-1.004,-1.005,-1.005, &-1.006,-1.006,-1.006,-1.007,-1.007,-1.008,-1.008,-1.009,-1.009, &-1.010,-1.010,-1.011,-1.011,-1.016,-1.020,-1.024,-1.029,-1.033, &-1.037,-1.040,-1.044,-1.048,-1.052,-1.055,-1.059,-1.062,-1.065, &-1.069,-1.072,-1.075,-1.078,-1.081,-1.084,-1.087,-1.090,-1.093, &-1.096,-1.099,-1.102,-1.104,-1.107,-1.110,-1.112,-1.115,-1.117, &-1.120,-1.122,-1.125,-1.127,-1.129,-1.132,-1.134,-1.136,-1.139, &-1.141,-1.143,-1.145,-1.147,-1.149,-1.151,-1.153,-1.155,-1.157, &-1.159,-1.161,-1.163,-1.165,-1.167,-1.169,-1.171,-1.173,-1.174, &-1.176,-1.178,-1.180,-1.181,-1.183,-1.185,-1.187,-1.188,-1.190, &-1.191,-1.193,-1.195,-1.196,-1.198,-1.199,-1.201,-1.202,-1.204, &-1.205,-1.207,-1.208,-1.210,-1.211,-1.213,-1.214,-1.216,-1.217, &-1.218,-1.220,-1.221,-1.223,-1.224,-1.225,-1.226,-1.228,-1.229, &-1.230,-1.232,-1.233,-1.234,-1.235,-1.237,-1.238,-1.239,-1.240, &-1.242,-1.243,-1.244,-1.245,-1.246,-1.247,-1.249,-1.250,-1.251, &-1.252,-1.253,-1.254,-1.255,-1.256,-1.258,-1.259,-1.260,-1.261, &-1.262,-1.263,-1.264,-1.265,-1.266,-1.267,-1.268,-1.269,-1.270, &-1.271,-1.272,-1.273,-1.274,-1.275,-1.276,-1.277,-1.278,-1.279, &-1.280,-1.281,-1.282,-1.283,-1.283,-1.284,-1.285,-1.286,-1.287, &-1.288,-1.289,-1.290,-1.291,-1.292,-1.292,-1.293,-1.294,-1.295, &-1.296,-1.297,-1.298 & / C C *** NH4NO3 C DATA BNC05M/ &-0.047,-0.104,-0.134,-0.155,-0.172,-0.187,-0.199,-0.211,-0.221, &-0.230,-0.239,-0.247,-0.255,-0.262,-0.268,-0.275,-0.281,-0.287, &-0.293,-0.298,-0.303,-0.308,-0.313,-0.318,-0.323,-0.327,-0.332, &-0.336,-0.340,-0.344,-0.348,-0.352,-0.356,-0.359,-0.363,-0.366, &-0.370,-0.373,-0.377,-0.380,-0.383,-0.386,-0.389,-0.392,-0.395, &-0.398,-0.401,-0.404,-0.406,-0.409,-0.412,-0.414,-0.417,-0.420, &-0.422,-0.425,-0.427,-0.429,-0.432,-0.434,-0.436,-0.439,-0.441, &-0.443,-0.445,-0.447,-0.450,-0.452,-0.454,-0.456,-0.458,-0.460, &-0.462,-0.464,-0.466,-0.468,-0.470,-0.472,-0.474,-0.476,-0.478, &-0.480,-0.481,-0.483,-0.485,-0.487,-0.489,-0.491,-0.492,-0.494, &-0.496,-0.498,-0.500,-0.501,-0.503,-0.505,-0.507,-0.508,-0.510, &-0.512,-0.514,-0.515,-0.517,-0.519,-0.520,-0.522,-0.524,-0.525, &-0.527,-0.529,-0.530,-0.532,-0.534,-0.535,-0.537,-0.538,-0.540, &-0.542,-0.543,-0.545,-0.546,-0.548,-0.550,-0.551,-0.553,-0.554, &-0.556,-0.557,-0.559,-0.560,-0.562,-0.563,-0.565,-0.566,-0.568, &-0.569,-0.571,-0.572,-0.573,-0.575,-0.576,-0.578,-0.579,-0.580, &-0.582,-0.583,-0.585,-0.586,-0.587,-0.589,-0.590,-0.591,-0.593, &-0.594,-0.595,-0.597,-0.598,-0.599,-0.601,-0.602,-0.603,-0.604, &-0.606,-0.607,-0.608,-0.610,-0.611,-0.612,-0.613,-0.615,-0.616, &-0.617,-0.618,-0.619,-0.621,-0.622,-0.623,-0.624,-0.625,-0.627, &-0.628,-0.629,-0.630,-0.631,-0.632,-0.634,-0.635,-0.636,-0.637, &-0.638,-0.639,-0.640,-0.642,-0.643,-0.644,-0.645,-0.646,-0.647, &-0.648,-0.649,-0.650,-0.651,-0.652,-0.654,-0.655,-0.656,-0.657, &-0.658,-0.659,-0.660,-0.661,-0.662,-0.663,-0.664,-0.665,-0.666, &-0.667,-0.668,-0.669,-0.670,-0.671,-0.672,-0.673,-0.674,-0.675, &-0.676,-0.677,-0.678,-0.679,-0.680,-0.681,-0.682,-0.683,-0.684, &-0.685,-0.686,-0.687,-0.688,-0.688,-0.689,-0.690,-0.691,-0.692, &-0.693,-0.694,-0.695,-0.696,-0.697,-0.698,-0.699,-0.699,-0.700, &-0.701,-0.702,-0.703,-0.704,-0.705,-0.706,-0.707,-0.707,-0.708, &-0.709,-0.710,-0.711,-0.712,-0.713,-0.713,-0.714,-0.715,-0.716, &-0.717,-0.718,-0.718,-0.719,-0.720,-0.721,-0.722,-0.723,-0.723, &-0.724,-0.725,-0.726,-0.727,-0.727,-0.728,-0.729,-0.730,-0.731, &-0.731,-0.732,-0.733,-0.734,-0.735,-0.735,-0.736,-0.737,-0.738, &-0.738,-0.739,-0.740,-0.741,-0.741,-0.742,-0.743,-0.744,-0.744, &-0.745,-0.746,-0.747,-0.747,-0.748,-0.749,-0.750,-0.750,-0.751, &-0.752,-0.753,-0.753,-0.754,-0.755,-0.755,-0.756,-0.757,-0.758, &-0.758,-0.759,-0.760,-0.760,-0.761,-0.762,-0.762,-0.763,-0.764, &-0.764,-0.765,-0.766,-0.767,-0.767,-0.768,-0.769,-0.769,-0.770, &-0.771,-0.771,-0.772,-0.773,-0.773,-0.774,-0.775,-0.775,-0.776, &-0.777,-0.777,-0.778,-0.778,-0.779,-0.780,-0.780,-0.781,-0.782, &-0.782,-0.783,-0.784,-0.784,-0.785,-0.785,-0.786,-0.787,-0.787, &-0.788,-0.789,-0.789,-0.790,-0.790,-0.791,-0.792,-0.792,-0.793, &-0.793,-0.794,-0.795,-0.795,-0.796,-0.796,-0.797,-0.798,-0.798, &-0.799,-0.799,-0.800,-0.801,-0.801,-0.802,-0.802,-0.803,-0.804, &-0.804,-0.805,-0.805,-0.806,-0.812,-0.817,-0.823,-0.828,-0.833, &-0.838,-0.843,-0.848,-0.852,-0.857,-0.861,-0.866,-0.870,-0.874, &-0.878,-0.882,-0.886,-0.890,-0.893,-0.897,-0.900,-0.904,-0.907, &-0.911,-0.914,-0.917,-0.920,-0.924,-0.927,-0.930,-0.933,-0.936, &-0.938,-0.941,-0.944,-0.947,-0.949,-0.952,-0.954,-0.957,-0.959, &-0.962,-0.964,-0.967,-0.969,-0.971,-0.973,-0.976,-0.978,-0.980, &-0.982,-0.984,-0.986,-0.988,-0.990,-0.992,-0.994,-0.996,-0.998, &-1.000,-1.002,-1.003,-1.005,-1.007,-1.009,-1.010,-1.012,-1.014, &-1.015,-1.017,-1.019,-1.020,-1.022,-1.023,-1.025,-1.026,-1.028, &-1.029,-1.031,-1.032,-1.033,-1.035,-1.036,-1.037,-1.039,-1.040, &-1.041,-1.043,-1.044,-1.045,-1.046,-1.048,-1.049,-1.050,-1.051, &-1.052,-1.054,-1.055,-1.056,-1.057,-1.058,-1.059,-1.060,-1.061, &-1.062,-1.063,-1.064,-1.066,-1.067,-1.068,-1.069,-1.070,-1.070, &-1.071,-1.072,-1.073,-1.074,-1.075,-1.076,-1.077,-1.078,-1.079, &-1.080,-1.081,-1.081,-1.082,-1.083,-1.084,-1.085,-1.086,-1.086, &-1.087,-1.088,-1.089,-1.090,-1.090,-1.091,-1.092,-1.093,-1.093, &-1.094,-1.095,-1.096,-1.096,-1.097,-1.098,-1.099,-1.099,-1.100, &-1.101,-1.101,-1.102,-1.103,-1.103,-1.104,-1.105,-1.105,-1.106, &-1.107,-1.107,-1.108 & / C C *** NH4Cl C DATA BNC06M/ &-0.046,-0.098,-0.123,-0.140,-0.153,-0.163,-0.172,-0.180,-0.186, &-0.191,-0.196,-0.201,-0.205,-0.208,-0.212,-0.215,-0.217,-0.220, &-0.222,-0.224,-0.226,-0.228,-0.230,-0.231,-0.233,-0.234,-0.235, &-0.237,-0.238,-0.239,-0.240,-0.241,-0.241,-0.242,-0.243,-0.244, &-0.244,-0.245,-0.246,-0.246,-0.247,-0.247,-0.247,-0.248,-0.248, &-0.249,-0.249,-0.249,-0.250,-0.250,-0.250,-0.250,-0.251,-0.251, &-0.251,-0.251,-0.251,-0.251,-0.252,-0.252,-0.252,-0.252,-0.252, &-0.252,-0.252,-0.252,-0.252,-0.252,-0.252,-0.252,-0.252,-0.252, &-0.252,-0.252,-0.252,-0.252,-0.252,-0.252,-0.252,-0.251,-0.251, &-0.251,-0.251,-0.251,-0.251,-0.250,-0.250,-0.250,-0.250,-0.250, &-0.249,-0.249,-0.249,-0.249,-0.248,-0.248,-0.248,-0.248,-0.247, &-0.247,-0.247,-0.246,-0.246,-0.246,-0.245,-0.245,-0.245,-0.244, &-0.244,-0.244,-0.243,-0.243,-0.243,-0.242,-0.242,-0.241,-0.241, &-0.241,-0.240,-0.240,-0.239,-0.239,-0.239,-0.238,-0.238,-0.237, &-0.237,-0.236,-0.236,-0.236,-0.235,-0.235,-0.234,-0.234,-0.233, &-0.233,-0.233,-0.232,-0.232,-0.231,-0.231,-0.230,-0.230,-0.229, &-0.229,-0.228,-0.228,-0.228,-0.227,-0.227,-0.226,-0.226,-0.225, &-0.225,-0.224,-0.224,-0.223,-0.223,-0.222,-0.222,-0.221,-0.221, &-0.220,-0.220,-0.220,-0.219,-0.219,-0.218,-0.218,-0.217,-0.217, &-0.216,-0.216,-0.215,-0.215,-0.214,-0.214,-0.213,-0.213,-0.212, &-0.212,-0.211,-0.211,-0.210,-0.210,-0.210,-0.209,-0.209,-0.208, &-0.208,-0.207,-0.207,-0.206,-0.206,-0.205,-0.205,-0.204,-0.204, &-0.203,-0.203,-0.202,-0.202,-0.201,-0.201,-0.200,-0.200,-0.199, &-0.199,-0.198,-0.198,-0.197,-0.197,-0.197,-0.196,-0.196,-0.195, &-0.195,-0.194,-0.194,-0.193,-0.193,-0.192,-0.192,-0.191,-0.191, &-0.190,-0.190,-0.189,-0.189,-0.188,-0.188,-0.187,-0.187,-0.186, &-0.186,-0.186,-0.185,-0.185,-0.184,-0.184,-0.183,-0.183,-0.182, &-0.182,-0.181,-0.181,-0.180,-0.180,-0.179,-0.179,-0.178,-0.178, &-0.177,-0.177,-0.177,-0.176,-0.176,-0.175,-0.175,-0.174,-0.174, &-0.173,-0.173,-0.172,-0.172,-0.171,-0.171,-0.170,-0.170,-0.170, &-0.169,-0.169,-0.168,-0.168,-0.167,-0.167,-0.166,-0.166,-0.165, &-0.165,-0.164,-0.164,-0.164,-0.163,-0.163,-0.162,-0.162,-0.161, &-0.161,-0.160,-0.160,-0.159,-0.159,-0.159,-0.158,-0.158,-0.157, &-0.157,-0.156,-0.156,-0.155,-0.155,-0.154,-0.154,-0.154,-0.153, &-0.153,-0.152,-0.152,-0.151,-0.151,-0.150,-0.150,-0.149,-0.149, &-0.149,-0.148,-0.148,-0.147,-0.147,-0.146,-0.146,-0.145,-0.145, &-0.145,-0.144,-0.144,-0.143,-0.143,-0.142,-0.142,-0.142,-0.141, &-0.141,-0.140,-0.140,-0.139,-0.139,-0.138,-0.138,-0.138,-0.137, &-0.137,-0.136,-0.136,-0.135,-0.135,-0.135,-0.134,-0.134,-0.133, &-0.133,-0.132,-0.132,-0.132,-0.131,-0.131,-0.130,-0.130,-0.129, &-0.129,-0.129,-0.128,-0.128,-0.127,-0.127,-0.126,-0.126,-0.126, &-0.125,-0.125,-0.124,-0.124,-0.123,-0.123,-0.123,-0.122,-0.122, &-0.121,-0.121,-0.121,-0.120,-0.120,-0.119,-0.119,-0.118,-0.118, &-0.118,-0.117,-0.117,-0.116,-0.116,-0.116,-0.115,-0.115,-0.114, &-0.114,-0.114,-0.113,-0.113,-0.108,-0.104,-0.100,-0.096,-0.092, &-0.089,-0.085,-0.081,-0.077,-0.074,-0.070,-0.066,-0.063,-0.059, &-0.055,-0.052,-0.049,-0.045,-0.042,-0.038,-0.035,-0.032,-0.028, &-0.025,-0.022,-0.019,-0.016,-0.012,-0.009,-0.006,-0.003, 0.000, & 0.003, 0.006, 0.009, 0.012, 0.014, 0.017, 0.020, 0.023, 0.026, & 0.029, 0.031, 0.034, 0.037, 0.040, 0.042, 0.045, 0.047, 0.050, & 0.053, 0.055, 0.058, 0.060, 0.063, 0.065, 0.068, 0.070, 0.073, & 0.075, 0.078, 0.080, 0.082, 0.085, 0.087, 0.089, 0.092, 0.094, & 0.096, 0.099, 0.101, 0.103, 0.105, 0.107, 0.110, 0.112, 0.114, & 0.116, 0.118, 0.120, 0.123, 0.125, 0.127, 0.129, 0.131, 0.133, & 0.135, 0.137, 0.139, 0.141, 0.143, 0.145, 0.147, 0.149, 0.151, & 0.153, 0.155, 0.157, 0.159, 0.160, 0.162, 0.164, 0.166, 0.168, & 0.170, 0.172, 0.173, 0.175, 0.177, 0.179, 0.181, 0.182, 0.184, & 0.186, 0.188, 0.189, 0.191, 0.193, 0.195, 0.196, 0.198, 0.200, & 0.201, 0.203, 0.205, 0.206, 0.208, 0.210, 0.211, 0.213, 0.215, & 0.216, 0.218, 0.219, 0.221, 0.223, 0.224, 0.226, 0.227, 0.229, & 0.230, 0.232, 0.233, 0.235, 0.236, 0.238, 0.239, 0.241, 0.242, & 0.244, 0.245, 0.247, 0.248, 0.250, 0.251, 0.253, 0.254, 0.256, & 0.257, 0.258, 0.260 & / C C *** (2H,SO4) C DATA BNC07M/ &-0.093,-0.202,-0.255,-0.293,-0.323,-0.347,-0.368,-0.386,-0.402, &-0.417,-0.430,-0.442,-0.453,-0.463,-0.473,-0.482,-0.490,-0.498, &-0.506,-0.513,-0.520,-0.526,-0.532,-0.538,-0.544,-0.549,-0.555, &-0.560,-0.565,-0.569,-0.574,-0.578,-0.583,-0.587,-0.591,-0.595, &-0.598,-0.602,-0.606,-0.609,-0.613,-0.616,-0.619,-0.622,-0.625, &-0.628,-0.631,-0.634,-0.637,-0.640,-0.642,-0.645,-0.648,-0.650, &-0.653,-0.655,-0.657,-0.660,-0.662,-0.664,-0.666,-0.669,-0.671, &-0.673,-0.675,-0.677,-0.679,-0.681,-0.683,-0.685,-0.687,-0.688, &-0.690,-0.692,-0.694,-0.695,-0.697,-0.699,-0.701,-0.702,-0.704, &-0.705,-0.707,-0.709,-0.710,-0.712,-0.713,-0.715,-0.716,-0.718, &-0.719,-0.721,-0.722,-0.723,-0.725,-0.726,-0.727,-0.729,-0.730, &-0.731,-0.733,-0.734,-0.735,-0.737,-0.738,-0.739,-0.740,-0.741, &-0.743,-0.744,-0.745,-0.746,-0.747,-0.748,-0.750,-0.751,-0.752, &-0.753,-0.754,-0.755,-0.756,-0.757,-0.758,-0.759,-0.760,-0.762, &-0.763,-0.764,-0.765,-0.766,-0.767,-0.768,-0.769,-0.769,-0.770, &-0.771,-0.772,-0.773,-0.774,-0.775,-0.776,-0.777,-0.778,-0.779, &-0.780,-0.781,-0.781,-0.782,-0.783,-0.784,-0.785,-0.786,-0.787, &-0.787,-0.788,-0.789,-0.790,-0.791,-0.792,-0.792,-0.793,-0.794, &-0.795,-0.795,-0.796,-0.797,-0.798,-0.799,-0.799,-0.800,-0.801, &-0.802,-0.802,-0.803,-0.804,-0.804,-0.805,-0.806,-0.807,-0.807, &-0.808,-0.809,-0.809,-0.810,-0.811,-0.811,-0.812,-0.813,-0.814, &-0.814,-0.815,-0.816,-0.816,-0.817,-0.817,-0.818,-0.819,-0.819, &-0.820,-0.821,-0.821,-0.822,-0.823,-0.823,-0.824,-0.824,-0.825, &-0.826,-0.826,-0.827,-0.827,-0.828,-0.829,-0.829,-0.830,-0.830, &-0.831,-0.831,-0.832,-0.833,-0.833,-0.834,-0.834,-0.835,-0.835, &-0.836,-0.837,-0.837,-0.838,-0.838,-0.839,-0.839,-0.840,-0.840, &-0.841,-0.841,-0.842,-0.842,-0.843,-0.843,-0.844,-0.845,-0.845, &-0.846,-0.846,-0.847,-0.847,-0.848,-0.848,-0.849,-0.849,-0.850, &-0.850,-0.851,-0.851,-0.851,-0.852,-0.852,-0.853,-0.853,-0.854, &-0.854,-0.855,-0.855,-0.856,-0.856,-0.857,-0.857,-0.858,-0.858, &-0.859,-0.859,-0.859,-0.860,-0.860,-0.861,-0.861,-0.862,-0.862, &-0.863,-0.863,-0.863,-0.864,-0.864,-0.865,-0.865,-0.866,-0.866, &-0.866,-0.867,-0.867,-0.868,-0.868,-0.869,-0.869,-0.869,-0.870, &-0.870,-0.871,-0.871,-0.871,-0.872,-0.872,-0.873,-0.873,-0.873, &-0.874,-0.874,-0.875,-0.875,-0.875,-0.876,-0.876,-0.877,-0.877, &-0.877,-0.878,-0.878,-0.878,-0.879,-0.879,-0.880,-0.880,-0.880, &-0.881,-0.881,-0.881,-0.882,-0.882,-0.883,-0.883,-0.883,-0.884, &-0.884,-0.884,-0.885,-0.885,-0.885,-0.886,-0.886,-0.887,-0.887, &-0.887,-0.888,-0.888,-0.888,-0.889,-0.889,-0.889,-0.890,-0.890, &-0.890,-0.891,-0.891,-0.891,-0.892,-0.892,-0.892,-0.893,-0.893, &-0.893,-0.894,-0.894,-0.894,-0.895,-0.895,-0.895,-0.896,-0.896, &-0.896,-0.897,-0.897,-0.897,-0.898,-0.898,-0.898,-0.899,-0.899, &-0.899,-0.900,-0.900,-0.900,-0.901,-0.901,-0.901,-0.901,-0.902, &-0.902,-0.902,-0.903,-0.903,-0.903,-0.904,-0.904,-0.904,-0.905, &-0.905,-0.905,-0.905,-0.906,-0.909,-0.912,-0.915,-0.917,-0.920, &-0.922,-0.925,-0.927,-0.930,-0.932,-0.935,-0.937,-0.939,-0.941, &-0.943,-0.945,-0.947,-0.949,-0.951,-0.953,-0.955,-0.957,-0.959, &-0.961,-0.962,-0.964,-0.966,-0.967,-0.969,-0.971,-0.972,-0.974, &-0.975,-0.977,-0.978,-0.980,-0.981,-0.983,-0.984,-0.986,-0.987, &-0.988,-0.990,-0.991,-0.992,-0.994,-0.995,-0.996,-0.997,-0.999, &-1.000,-1.001,-1.002,-1.003,-1.004,-1.006,-1.007,-1.008,-1.009, &-1.010,-1.011,-1.012,-1.013,-1.014,-1.015,-1.016,-1.017,-1.018, &-1.019,-1.020,-1.021,-1.022,-1.023,-1.024,-1.025,-1.026,-1.027, &-1.028,-1.028,-1.029,-1.030,-1.031,-1.032,-1.033,-1.034,-1.034, &-1.035,-1.036,-1.037,-1.038,-1.039,-1.039,-1.040,-1.041,-1.042, &-1.042,-1.043,-1.044,-1.045,-1.045,-1.046,-1.047,-1.048,-1.048, &-1.049,-1.050,-1.050,-1.051,-1.052,-1.052,-1.053,-1.054,-1.055, &-1.055,-1.056,-1.056,-1.057,-1.058,-1.058,-1.059,-1.060,-1.060, &-1.061,-1.062,-1.062,-1.063,-1.063,-1.064,-1.065,-1.065,-1.066, &-1.066,-1.067,-1.068,-1.068,-1.069,-1.069,-1.070,-1.070,-1.071, &-1.071,-1.072,-1.073,-1.073,-1.074,-1.074,-1.075,-1.075,-1.076, &-1.076,-1.077,-1.077,-1.078,-1.078,-1.079,-1.079,-1.080,-1.080, &-1.081,-1.081,-1.082 & / C C *** (H,HSO4) C DATA BNC08M/ &-0.044,-0.088,-0.106,-0.116,-0.123,-0.128,-0.131,-0.133,-0.134, &-0.134,-0.134,-0.133,-0.131,-0.129,-0.127,-0.125,-0.122,-0.119, &-0.115,-0.112,-0.108,-0.104,-0.100,-0.095,-0.091,-0.086,-0.081, &-0.076,-0.071,-0.066,-0.060,-0.055,-0.049,-0.043,-0.037,-0.031, &-0.025,-0.019,-0.013,-0.006, 0.000, 0.007, 0.013, 0.020, 0.027, & 0.034, 0.041, 0.048, 0.055, 0.062, 0.069, 0.076, 0.083, 0.090, & 0.098, 0.105, 0.113, 0.120, 0.127, 0.135, 0.143, 0.150, 0.158, & 0.166, 0.173, 0.181, 0.189, 0.197, 0.205, 0.212, 0.220, 0.228, & 0.236, 0.245, 0.253, 0.261, 0.269, 0.277, 0.286, 0.294, 0.302, & 0.311, 0.319, 0.328, 0.336, 0.345, 0.353, 0.362, 0.371, 0.380, & 0.388, 0.397, 0.406, 0.415, 0.424, 0.433, 0.442, 0.451, 0.460, & 0.469, 0.479, 0.488, 0.497, 0.506, 0.516, 0.525, 0.535, 0.544, & 0.553, 0.563, 0.572, 0.582, 0.591, 0.601, 0.610, 0.620, 0.629, & 0.639, 0.648, 0.658, 0.667, 0.677, 0.686, 0.696, 0.705, 0.715, & 0.725, 0.734, 0.744, 0.753, 0.763, 0.772, 0.782, 0.791, 0.800, & 0.810, 0.819, 0.829, 0.838, 0.848, 0.857, 0.866, 0.876, 0.885, & 0.894, 0.904, 0.913, 0.922, 0.932, 0.941, 0.950, 0.959, 0.968, & 0.978, 0.987, 0.996, 1.005, 1.014, 1.023, 1.032, 1.041, 1.050, & 1.059, 1.069, 1.077, 1.086, 1.095, 1.104, 1.113, 1.122, 1.131, & 1.140, 1.149, 1.158, 1.166, 1.175, 1.184, 1.193, 1.202, 1.210, & 1.219, 1.228, 1.236, 1.245, 1.254, 1.262, 1.271, 1.279, 1.288, & 1.296, 1.305, 1.314, 1.322, 1.330, 1.339, 1.347, 1.356, 1.364, & 1.373, 1.381, 1.389, 1.398, 1.406, 1.414, 1.422, 1.431, 1.439, & 1.447, 1.455, 1.464, 1.472, 1.480, 1.488, 1.496, 1.504, 1.512, & 1.520, 1.528, 1.537, 1.545, 1.553, 1.561, 1.568, 1.576, 1.584, & 1.592, 1.600, 1.608, 1.616, 1.624, 1.632, 1.639, 1.647, 1.655, & 1.663, 1.670, 1.678, 1.686, 1.694, 1.701, 1.709, 1.717, 1.724, & 1.732, 1.740, 1.747, 1.755, 1.762, 1.770, 1.777, 1.785, 1.792, & 1.800, 1.807, 1.815, 1.822, 1.830, 1.837, 1.844, 1.852, 1.859, & 1.866, 1.874, 1.881, 1.888, 1.896, 1.903, 1.910, 1.917, 1.925, & 1.932, 1.939, 1.946, 1.953, 1.961, 1.968, 1.975, 1.982, 1.989, & 1.996, 2.003, 2.010, 2.017, 2.024, 2.031, 2.038, 2.045, 2.052, & 2.059, 2.066, 2.073, 2.080, 2.087, 2.094, 2.101, 2.108, 2.114, & 2.121, 2.128, 2.135, 2.142, 2.148, 2.155, 2.162, 2.169, 2.175, & 2.182, 2.189, 2.196, 2.202, 2.209, 2.216, 2.222, 2.229, 2.236, & 2.242, 2.249, 2.255, 2.262, 2.268, 2.275, 2.281, 2.288, 2.295, & 2.301, 2.308, 2.314, 2.320, 2.327, 2.333, 2.340, 2.346, 2.353, & 2.359, 2.365, 2.372, 2.378, 2.384, 2.391, 2.397, 2.403, 2.410, & 2.416, 2.422, 2.429, 2.435, 2.441, 2.447, 2.453, 2.460, 2.466, & 2.472, 2.478, 2.484, 2.491, 2.497, 2.503, 2.509, 2.515, 2.521, & 2.527, 2.533, 2.539, 2.546, 2.552, 2.558, 2.564, 2.570, 2.576, & 2.582, 2.588, 2.594, 2.600, 2.606, 2.612, 2.617, 2.623, 2.629, & 2.635, 2.641, 2.647, 2.653, 2.659, 2.665, 2.670, 2.676, 2.682, & 2.688, 2.694, 2.700, 2.705, 2.711, 2.717, 2.723, 2.728, 2.734, & 2.740, 2.746, 2.751, 2.757, 2.818, 2.874, 2.928, 2.982, 3.035, & 3.087, 3.139, 3.190, 3.239, 3.289, 3.337, 3.385, 3.432, 3.479, & 3.525, 3.571, 3.615, 3.660, 3.703, 3.746, 3.789, 3.831, 3.873, & 3.914, 3.954, 3.995, 4.034, 4.073, 4.112, 4.151, 4.189, 4.226, & 4.263, 4.300, 4.336, 4.372, 4.408, 4.443, 4.478, 4.513, 4.547, & 4.581, 4.614, 4.647, 4.680, 4.713, 4.745, 4.777, 4.809, 4.840, & 4.871, 4.902, 4.933, 4.963, 4.993, 5.023, 5.052, 5.082, 5.111, & 5.140, 5.168, 5.196, 5.224, 5.252, 5.280, 5.307, 5.335, 5.362, & 5.388, 5.415, 5.441, 5.468, 5.494, 5.519, 5.545, 5.570, 5.596, & 5.621, 5.646, 5.670, 5.695, 5.719, 5.743, 5.767, 5.791, 5.815, & 5.838, 5.862, 5.885, 5.908, 5.931, 5.954, 5.976, 5.999, 6.021, & 6.043, 6.065, 6.087, 6.109, 6.130, 6.152, 6.173, 6.194, 6.215, & 6.236, 6.257, 6.278, 6.298, 6.319, 6.339, 6.359, 6.380, 6.400, & 6.419, 6.439, 6.459, 6.478, 6.498, 6.517, 6.536, 6.555, 6.574, & 6.593, 6.612, 6.631, 6.649, 6.668, 6.686, 6.705, 6.723, 6.741, & 6.759, 6.777, 6.795, 6.812, 6.830, 6.848, 6.865, 6.882, 6.900, & 6.917, 6.934, 6.951, 6.968, 6.985, 7.002, 7.018, 7.035, 7.052, & 7.068, 7.084, 7.101, 7.117, 7.133, 7.149, 7.165, 7.181, 7.197, & 7.213, 7.229, 7.244 & / C C *** NH4HSO4 C DATA BNC09M/ &-0.046,-0.097,-0.122,-0.138,-0.151,-0.162,-0.170,-0.177,-0.184, &-0.189,-0.194,-0.198,-0.202,-0.206,-0.209,-0.212,-0.214,-0.216, &-0.218,-0.220,-0.222,-0.223,-0.224,-0.225,-0.226,-0.227,-0.227, &-0.228,-0.228,-0.228,-0.228,-0.228,-0.228,-0.228,-0.228,-0.227, &-0.227,-0.226,-0.225,-0.225,-0.224,-0.223,-0.222,-0.221,-0.220, &-0.219,-0.218,-0.216,-0.215,-0.214,-0.212,-0.211,-0.209,-0.208, &-0.206,-0.204,-0.203,-0.201,-0.199,-0.197,-0.195,-0.193,-0.192, &-0.190,-0.188,-0.185,-0.183,-0.181,-0.179,-0.177,-0.175,-0.173, &-0.170,-0.168,-0.166,-0.163,-0.161,-0.159,-0.156,-0.154,-0.151, &-0.149,-0.146,-0.144,-0.141,-0.139,-0.136,-0.133,-0.131,-0.128, &-0.125,-0.122,-0.120,-0.117,-0.114,-0.111,-0.108,-0.106,-0.103, &-0.100,-0.097,-0.094,-0.091,-0.088,-0.085,-0.082,-0.079,-0.076, &-0.073,-0.070,-0.067,-0.064,-0.061,-0.058,-0.055,-0.052,-0.049, &-0.045,-0.042,-0.039,-0.036,-0.033,-0.030,-0.027,-0.024,-0.021, &-0.018,-0.014,-0.011,-0.008,-0.005,-0.002, 0.001, 0.004, 0.007, & 0.010, 0.013, 0.016, 0.020, 0.023, 0.026, 0.029, 0.032, 0.035, & 0.038, 0.041, 0.044, 0.047, 0.050, 0.053, 0.056, 0.059, 0.062, & 0.065, 0.068, 0.071, 0.074, 0.077, 0.080, 0.083, 0.086, 0.089, & 0.092, 0.095, 0.098, 0.101, 0.104, 0.106, 0.109, 0.112, 0.115, & 0.118, 0.121, 0.124, 0.127, 0.130, 0.132, 0.135, 0.138, 0.141, & 0.144, 0.147, 0.150, 0.152, 0.155, 0.158, 0.161, 0.164, 0.166, & 0.169, 0.172, 0.175, 0.177, 0.180, 0.183, 0.186, 0.188, 0.191, & 0.194, 0.197, 0.199, 0.202, 0.205, 0.208, 0.210, 0.213, 0.216, & 0.218, 0.221, 0.224, 0.226, 0.229, 0.232, 0.234, 0.237, 0.239, & 0.242, 0.245, 0.247, 0.250, 0.253, 0.255, 0.258, 0.260, 0.263, & 0.265, 0.268, 0.271, 0.273, 0.276, 0.278, 0.281, 0.283, 0.286, & 0.288, 0.291, 0.293, 0.296, 0.298, 0.301, 0.303, 0.306, 0.308, & 0.311, 0.313, 0.316, 0.318, 0.321, 0.323, 0.326, 0.328, 0.330, & 0.333, 0.335, 0.338, 0.340, 0.343, 0.345, 0.347, 0.350, 0.352, & 0.355, 0.357, 0.359, 0.362, 0.364, 0.366, 0.369, 0.371, 0.374, & 0.376, 0.378, 0.381, 0.383, 0.385, 0.388, 0.390, 0.392, 0.394, & 0.397, 0.399, 0.401, 0.404, 0.406, 0.408, 0.410, 0.413, 0.415, & 0.417, 0.420, 0.422, 0.424, 0.426, 0.429, 0.431, 0.433, 0.435, & 0.437, 0.440, 0.442, 0.444, 0.446, 0.449, 0.451, 0.453, 0.455, & 0.457, 0.460, 0.462, 0.464, 0.466, 0.468, 0.470, 0.473, 0.475, & 0.477, 0.479, 0.481, 0.483, 0.485, 0.488, 0.490, 0.492, 0.494, & 0.496, 0.498, 0.500, 0.502, 0.504, 0.507, 0.509, 0.511, 0.513, & 0.515, 0.517, 0.519, 0.521, 0.523, 0.525, 0.527, 0.529, 0.531, & 0.534, 0.536, 0.538, 0.540, 0.542, 0.544, 0.546, 0.548, 0.550, & 0.552, 0.554, 0.556, 0.558, 0.560, 0.562, 0.564, 0.566, 0.568, & 0.570, 0.572, 0.574, 0.576, 0.578, 0.580, 0.582, 0.584, 0.586, & 0.588, 0.590, 0.592, 0.593, 0.595, 0.597, 0.599, 0.601, 0.603, & 0.605, 0.607, 0.609, 0.611, 0.613, 0.615, 0.617, 0.619, 0.620, & 0.622, 0.624, 0.626, 0.628, 0.630, 0.632, 0.634, 0.636, 0.637, & 0.639, 0.641, 0.643, 0.645, 0.665, 0.683, 0.701, 0.719, 0.736, & 0.753, 0.770, 0.787, 0.803, 0.820, 0.836, 0.852, 0.867, 0.883, & 0.898, 0.913, 0.928, 0.942, 0.957, 0.971, 0.985, 0.999, 1.013, & 1.027, 1.040, 1.053, 1.067, 1.080, 1.093, 1.105, 1.118, 1.131, & 1.143, 1.155, 1.167, 1.179, 1.191, 1.203, 1.215, 1.226, 1.238, & 1.249, 1.260, 1.271, 1.283, 1.293, 1.304, 1.315, 1.326, 1.336, & 1.347, 1.357, 1.367, 1.377, 1.388, 1.398, 1.408, 1.417, 1.427, & 1.437, 1.446, 1.456, 1.466, 1.475, 1.484, 1.493, 1.503, 1.512, & 1.521, 1.530, 1.539, 1.548, 1.556, 1.565, 1.574, 1.582, 1.591, & 1.599, 1.608, 1.616, 1.624, 1.633, 1.641, 1.649, 1.657, 1.665, & 1.673, 1.681, 1.689, 1.697, 1.704, 1.712, 1.720, 1.727, 1.735, & 1.742, 1.750, 1.757, 1.765, 1.772, 1.779, 1.787, 1.794, 1.801, & 1.808, 1.815, 1.822, 1.829, 1.836, 1.843, 1.850, 1.857, 1.864, & 1.870, 1.877, 1.884, 1.890, 1.897, 1.904, 1.910, 1.917, 1.923, & 1.930, 1.936, 1.942, 1.949, 1.955, 1.961, 1.968, 1.974, 1.980, & 1.986, 1.992, 1.998, 2.004, 2.010, 2.016, 2.022, 2.028, 2.034, & 2.040, 2.046, 2.052, 2.058, 2.063, 2.069, 2.075, 2.080, 2.086, & 2.092, 2.097, 2.103, 2.108, 2.114, 2.119, 2.125, 2.130, 2.136, & 2.141, 2.147, 2.152 & / C C *** (H,NO3) C DATA BNC10M/ &-0.045,-0.094,-0.116,-0.130,-0.140,-0.147,-0.153,-0.158,-0.162, &-0.165,-0.167,-0.169,-0.171,-0.172,-0.173,-0.173,-0.174,-0.174, &-0.174,-0.173,-0.173,-0.172,-0.172,-0.171,-0.170,-0.169,-0.168, &-0.167,-0.166,-0.165,-0.163,-0.162,-0.161,-0.159,-0.158,-0.156, &-0.155,-0.153,-0.152,-0.150,-0.148,-0.147,-0.145,-0.143,-0.142, &-0.140,-0.138,-0.136,-0.135,-0.133,-0.131,-0.129,-0.127,-0.126, &-0.124,-0.122,-0.120,-0.118,-0.117,-0.115,-0.113,-0.111,-0.109, &-0.107,-0.106,-0.104,-0.102,-0.100,-0.098,-0.096,-0.094,-0.092, &-0.090,-0.088,-0.086,-0.084,-0.083,-0.081,-0.079,-0.077,-0.074, &-0.072,-0.070,-0.068,-0.066,-0.064,-0.062,-0.060,-0.058,-0.056, &-0.053,-0.051,-0.049,-0.047,-0.045,-0.042,-0.040,-0.038,-0.036, &-0.033,-0.031,-0.029,-0.026,-0.024,-0.022,-0.019,-0.017,-0.015, &-0.012,-0.010,-0.008,-0.005,-0.003, 0.000, 0.002, 0.004, 0.007, & 0.009, 0.012, 0.014, 0.017, 0.019, 0.022, 0.024, 0.026, 0.029, & 0.031, 0.034, 0.036, 0.039, 0.041, 0.044, 0.046, 0.049, 0.051, & 0.053, 0.056, 0.058, 0.061, 0.063, 0.066, 0.068, 0.071, 0.073, & 0.075, 0.078, 0.080, 0.083, 0.085, 0.088, 0.090, 0.092, 0.095, & 0.097, 0.100, 0.102, 0.105, 0.107, 0.109, 0.112, 0.114, 0.117, & 0.119, 0.121, 0.124, 0.126, 0.129, 0.131, 0.133, 0.136, 0.138, & 0.140, 0.143, 0.145, 0.148, 0.150, 0.152, 0.155, 0.157, 0.159, & 0.162, 0.164, 0.166, 0.169, 0.171, 0.173, 0.176, 0.178, 0.180, & 0.183, 0.185, 0.187, 0.190, 0.192, 0.194, 0.197, 0.199, 0.201, & 0.204, 0.206, 0.208, 0.210, 0.213, 0.215, 0.217, 0.220, 0.222, & 0.224, 0.226, 0.229, 0.231, 0.233, 0.235, 0.238, 0.240, 0.242, & 0.244, 0.247, 0.249, 0.251, 0.253, 0.256, 0.258, 0.260, 0.262, & 0.264, 0.267, 0.269, 0.271, 0.273, 0.275, 0.278, 0.280, 0.282, & 0.284, 0.286, 0.288, 0.291, 0.293, 0.295, 0.297, 0.299, 0.301, & 0.304, 0.306, 0.308, 0.310, 0.312, 0.314, 0.317, 0.319, 0.321, & 0.323, 0.325, 0.327, 0.329, 0.331, 0.333, 0.336, 0.338, 0.340, & 0.342, 0.344, 0.346, 0.348, 0.350, 0.352, 0.354, 0.356, 0.359, & 0.361, 0.363, 0.365, 0.367, 0.369, 0.371, 0.373, 0.375, 0.377, & 0.379, 0.381, 0.383, 0.385, 0.387, 0.389, 0.391, 0.393, 0.395, & 0.397, 0.399, 0.401, 0.403, 0.405, 0.407, 0.409, 0.411, 0.413, & 0.415, 0.417, 0.419, 0.421, 0.423, 0.425, 0.427, 0.429, 0.431, & 0.433, 0.435, 0.437, 0.439, 0.441, 0.443, 0.445, 0.447, 0.449, & 0.451, 0.453, 0.455, 0.456, 0.458, 0.460, 0.462, 0.464, 0.466, & 0.468, 0.470, 0.472, 0.474, 0.476, 0.477, 0.479, 0.481, 0.483, & 0.485, 0.487, 0.489, 0.491, 0.493, 0.494, 0.496, 0.498, 0.500, & 0.502, 0.504, 0.506, 0.507, 0.509, 0.511, 0.513, 0.515, 0.517, & 0.518, 0.520, 0.522, 0.524, 0.526, 0.528, 0.529, 0.531, 0.533, & 0.535, 0.537, 0.539, 0.540, 0.542, 0.544, 0.546, 0.547, 0.549, & 0.551, 0.553, 0.555, 0.556, 0.558, 0.560, 0.562, 0.564, 0.565, & 0.567, 0.569, 0.571, 0.572, 0.574, 0.576, 0.578, 0.579, 0.581, & 0.583, 0.585, 0.586, 0.588, 0.590, 0.592, 0.593, 0.595, 0.597, & 0.598, 0.600, 0.602, 0.604, 0.622, 0.639, 0.655, 0.672, 0.688, & 0.704, 0.719, 0.735, 0.750, 0.765, 0.780, 0.795, 0.809, 0.824, & 0.838, 0.852, 0.866, 0.879, 0.893, 0.906, 0.919, 0.932, 0.945, & 0.958, 0.971, 0.983, 0.996, 1.008, 1.020, 1.032, 1.044, 1.055, & 1.067, 1.079, 1.090, 1.101, 1.112, 1.123, 1.134, 1.145, 1.156, & 1.167, 1.177, 1.188, 1.198, 1.208, 1.218, 1.228, 1.238, 1.248, & 1.258, 1.268, 1.278, 1.287, 1.297, 1.306, 1.315, 1.325, 1.334, & 1.343, 1.352, 1.361, 1.370, 1.379, 1.387, 1.396, 1.405, 1.413, & 1.422, 1.430, 1.438, 1.447, 1.455, 1.463, 1.471, 1.479, 1.487, & 1.495, 1.503, 1.511, 1.519, 1.527, 1.534, 1.542, 1.550, 1.557, & 1.565, 1.572, 1.579, 1.587, 1.594, 1.601, 1.608, 1.616, 1.623, & 1.630, 1.637, 1.644, 1.651, 1.657, 1.664, 1.671, 1.678, 1.685, & 1.691, 1.698, 1.704, 1.711, 1.718, 1.724, 1.730, 1.737, 1.743, & 1.750, 1.756, 1.762, 1.768, 1.775, 1.781, 1.787, 1.793, 1.799, & 1.805, 1.811, 1.817, 1.823, 1.829, 1.835, 1.841, 1.846, 1.852, & 1.858, 1.864, 1.869, 1.875, 1.881, 1.886, 1.892, 1.897, 1.903, & 1.908, 1.914, 1.919, 1.925, 1.930, 1.936, 1.941, 1.946, 1.952, & 1.957, 1.962, 1.967, 1.972, 1.978, 1.983, 1.988, 1.993, 1.998, & 2.003, 2.008, 2.013 & / C C *** (H,Cl) C DATA BNC11M/ &-0.044,-0.089,-0.107,-0.118,-0.125,-0.130,-0.133,-0.135,-0.136, &-0.136,-0.136,-0.135,-0.134,-0.132,-0.130,-0.128,-0.125,-0.122, &-0.119,-0.116,-0.113,-0.109,-0.105,-0.102,-0.098,-0.094,-0.089, &-0.085,-0.081,-0.076,-0.072,-0.067,-0.062,-0.057,-0.053,-0.048, &-0.043,-0.038,-0.033,-0.028,-0.022,-0.017,-0.012,-0.007,-0.001, & 0.004, 0.009, 0.015, 0.020, 0.025, 0.031, 0.036, 0.042, 0.047, & 0.053, 0.058, 0.064, 0.069, 0.075, 0.081, 0.086, 0.092, 0.097, & 0.103, 0.109, 0.114, 0.120, 0.126, 0.132, 0.137, 0.143, 0.149, & 0.155, 0.161, 0.167, 0.172, 0.178, 0.184, 0.190, 0.196, 0.202, & 0.208, 0.214, 0.220, 0.227, 0.233, 0.239, 0.245, 0.251, 0.258, & 0.264, 0.270, 0.277, 0.283, 0.290, 0.296, 0.303, 0.309, 0.316, & 0.322, 0.329, 0.335, 0.342, 0.349, 0.355, 0.362, 0.369, 0.376, & 0.382, 0.389, 0.396, 0.403, 0.409, 0.416, 0.423, 0.430, 0.437, & 0.444, 0.450, 0.457, 0.464, 0.471, 0.478, 0.485, 0.491, 0.498, & 0.505, 0.512, 0.519, 0.526, 0.533, 0.539, 0.546, 0.553, 0.560, & 0.567, 0.573, 0.580, 0.587, 0.594, 0.601, 0.607, 0.614, 0.621, & 0.628, 0.634, 0.641, 0.648, 0.654, 0.661, 0.668, 0.675, 0.681, & 0.688, 0.694, 0.701, 0.708, 0.714, 0.721, 0.728, 0.734, 0.741, & 0.747, 0.754, 0.760, 0.767, 0.773, 0.780, 0.786, 0.793, 0.799, & 0.806, 0.812, 0.819, 0.825, 0.831, 0.838, 0.844, 0.850, 0.857, & 0.863, 0.870, 0.876, 0.882, 0.888, 0.895, 0.901, 0.907, 0.914, & 0.920, 0.926, 0.932, 0.938, 0.945, 0.951, 0.957, 0.963, 0.969, & 0.975, 0.981, 0.988, 0.994, 1.000, 1.006, 1.012, 1.018, 1.024, & 1.030, 1.036, 1.042, 1.048, 1.054, 1.060, 1.066, 1.072, 1.078, & 1.084, 1.090, 1.096, 1.101, 1.107, 1.113, 1.119, 1.125, 1.131, & 1.137, 1.142, 1.148, 1.154, 1.160, 1.165, 1.171, 1.177, 1.183, & 1.188, 1.194, 1.200, 1.205, 1.211, 1.217, 1.222, 1.228, 1.234, & 1.239, 1.245, 1.251, 1.256, 1.262, 1.267, 1.273, 1.278, 1.284, & 1.289, 1.295, 1.300, 1.306, 1.311, 1.317, 1.322, 1.328, 1.333, & 1.339, 1.344, 1.349, 1.355, 1.360, 1.366, 1.371, 1.376, 1.382, & 1.387, 1.392, 1.398, 1.403, 1.408, 1.413, 1.419, 1.424, 1.429, & 1.434, 1.440, 1.445, 1.450, 1.455, 1.460, 1.466, 1.471, 1.476, & 1.481, 1.486, 1.491, 1.497, 1.502, 1.507, 1.512, 1.517, 1.522, & 1.527, 1.532, 1.537, 1.542, 1.547, 1.552, 1.557, 1.562, 1.567, & 1.572, 1.577, 1.582, 1.587, 1.592, 1.597, 1.602, 1.607, 1.612, & 1.617, 1.622, 1.626, 1.631, 1.636, 1.641, 1.646, 1.651, 1.656, & 1.660, 1.665, 1.670, 1.675, 1.680, 1.684, 1.689, 1.694, 1.699, & 1.703, 1.708, 1.713, 1.718, 1.722, 1.727, 1.732, 1.736, 1.741, & 1.746, 1.750, 1.755, 1.760, 1.764, 1.769, 1.774, 1.778, 1.783, & 1.787, 1.792, 1.797, 1.801, 1.806, 1.810, 1.815, 1.819, 1.824, & 1.828, 1.833, 1.838, 1.842, 1.847, 1.851, 1.855, 1.860, 1.864, & 1.869, 1.873, 1.878, 1.882, 1.887, 1.891, 1.895, 1.900, 1.904, & 1.909, 1.913, 1.917, 1.922, 1.926, 1.931, 1.935, 1.939, 1.944, & 1.948, 1.952, 1.957, 1.961, 1.965, 1.969, 1.974, 1.978, 1.982, & 1.987, 1.991, 1.995, 1.999, 2.045, 2.086, 2.127, 2.167, 2.206, & 2.245, 2.284, 2.322, 2.359, 2.396, 2.432, 2.468, 2.503, 2.538, & 2.572, 2.606, 2.639, 2.672, 2.705, 2.737, 2.769, 2.800, 2.831, & 2.862, 2.892, 2.922, 2.952, 2.981, 3.010, 3.039, 3.067, 3.095, & 3.123, 3.150, 3.178, 3.204, 3.231, 3.257, 3.283, 3.309, 3.335, & 3.360, 3.385, 3.410, 3.435, 3.459, 3.483, 3.507, 3.531, 3.554, & 3.577, 3.600, 3.623, 3.646, 3.668, 3.691, 3.713, 3.735, 3.756, & 3.778, 3.799, 3.820, 3.841, 3.862, 3.883, 3.903, 3.924, 3.944, & 3.964, 3.984, 4.003, 4.023, 4.043, 4.062, 4.081, 4.100, 4.119, & 4.138, 4.156, 4.175, 4.193, 4.211, 4.229, 4.247, 4.265, 4.283, & 4.300, 4.318, 4.335, 4.352, 4.369, 4.386, 4.403, 4.420, 4.437, & 4.453, 4.470, 4.486, 4.503, 4.519, 4.535, 4.551, 4.567, 4.582, & 4.598, 4.614, 4.629, 4.644, 4.660, 4.675, 4.690, 4.705, 4.720, & 4.735, 4.750, 4.764, 4.779, 4.794, 4.808, 4.822, 4.837, 4.851, & 4.865, 4.879, 4.893, 4.907, 4.921, 4.935, 4.948, 4.962, 4.975, & 4.989, 5.002, 5.016, 5.029, 5.042, 5.055, 5.068, 5.081, 5.094, & 5.107, 5.120, 5.133, 5.145, 5.158, 5.171, 5.183, 5.196, 5.208, & 5.220, 5.233, 5.245, 5.257, 5.269, 5.281, 5.293, 5.305, 5.317, & 5.329, 5.340, 5.352 & / C C *** NaHSO4 C DATA BNC12M/ &-0.045,-0.094,-0.116,-0.130,-0.140,-0.148,-0.155,-0.160,-0.164, &-0.168,-0.170,-0.173,-0.174,-0.176,-0.177,-0.178,-0.178,-0.179, &-0.179,-0.178,-0.178,-0.177,-0.177,-0.176,-0.175,-0.174,-0.172, &-0.171,-0.170,-0.168,-0.166,-0.164,-0.162,-0.160,-0.158,-0.156, &-0.154,-0.152,-0.149,-0.147,-0.144,-0.142,-0.139,-0.136,-0.134, &-0.131,-0.128,-0.125,-0.122,-0.119,-0.116,-0.113,-0.110,-0.107, &-0.103,-0.100,-0.097,-0.094,-0.090,-0.087,-0.084,-0.080,-0.077, &-0.073,-0.070,-0.066,-0.063,-0.059,-0.055,-0.052,-0.048,-0.044, &-0.040,-0.037,-0.033,-0.029,-0.025,-0.021,-0.017,-0.013,-0.010, &-0.006,-0.002, 0.003, 0.007, 0.011, 0.015, 0.019, 0.023, 0.027, & 0.032, 0.036, 0.040, 0.045, 0.049, 0.053, 0.058, 0.062, 0.066, & 0.071, 0.075, 0.080, 0.084, 0.089, 0.094, 0.098, 0.103, 0.107, & 0.112, 0.116, 0.121, 0.126, 0.130, 0.135, 0.140, 0.144, 0.149, & 0.154, 0.158, 0.163, 0.168, 0.172, 0.177, 0.182, 0.186, 0.191, & 0.196, 0.200, 0.205, 0.210, 0.215, 0.219, 0.224, 0.229, 0.233, & 0.238, 0.242, 0.247, 0.252, 0.256, 0.261, 0.266, 0.270, 0.275, & 0.279, 0.284, 0.289, 0.293, 0.298, 0.302, 0.307, 0.311, 0.316, & 0.320, 0.325, 0.329, 0.334, 0.338, 0.343, 0.347, 0.352, 0.356, & 0.361, 0.365, 0.370, 0.374, 0.379, 0.383, 0.387, 0.392, 0.396, & 0.400, 0.405, 0.409, 0.414, 0.418, 0.422, 0.427, 0.431, 0.435, & 0.440, 0.444, 0.448, 0.452, 0.457, 0.461, 0.465, 0.469, 0.474, & 0.478, 0.482, 0.486, 0.490, 0.495, 0.499, 0.503, 0.507, 0.511, & 0.515, 0.520, 0.524, 0.528, 0.532, 0.536, 0.540, 0.544, 0.548, & 0.552, 0.556, 0.561, 0.565, 0.569, 0.573, 0.577, 0.581, 0.585, & 0.589, 0.593, 0.597, 0.601, 0.605, 0.609, 0.613, 0.616, 0.620, & 0.624, 0.628, 0.632, 0.636, 0.640, 0.644, 0.648, 0.652, 0.655, & 0.659, 0.663, 0.667, 0.671, 0.675, 0.679, 0.682, 0.686, 0.690, & 0.694, 0.697, 0.701, 0.705, 0.709, 0.713, 0.716, 0.720, 0.724, & 0.728, 0.731, 0.735, 0.739, 0.742, 0.746, 0.750, 0.753, 0.757, & 0.761, 0.764, 0.768, 0.772, 0.775, 0.779, 0.783, 0.786, 0.790, & 0.793, 0.797, 0.801, 0.804, 0.808, 0.811, 0.815, 0.818, 0.822, & 0.825, 0.829, 0.833, 0.836, 0.840, 0.843, 0.847, 0.850, 0.854, & 0.857, 0.861, 0.864, 0.867, 0.871, 0.874, 0.878, 0.881, 0.885, & 0.888, 0.892, 0.895, 0.898, 0.902, 0.905, 0.909, 0.912, 0.915, & 0.919, 0.922, 0.925, 0.929, 0.932, 0.935, 0.939, 0.942, 0.945, & 0.949, 0.952, 0.955, 0.959, 0.962, 0.965, 0.969, 0.972, 0.975, & 0.978, 0.982, 0.985, 0.988, 0.991, 0.995, 0.998, 1.001, 1.004, & 1.008, 1.011, 1.014, 1.017, 1.020, 1.024, 1.027, 1.030, 1.033, & 1.036, 1.039, 1.043, 1.046, 1.049, 1.052, 1.055, 1.058, 1.061, & 1.065, 1.068, 1.071, 1.074, 1.077, 1.080, 1.083, 1.086, 1.089, & 1.092, 1.096, 1.099, 1.102, 1.105, 1.108, 1.111, 1.114, 1.117, & 1.120, 1.123, 1.126, 1.129, 1.132, 1.135, 1.138, 1.141, 1.144, & 1.147, 1.150, 1.153, 1.156, 1.159, 1.162, 1.165, 1.168, 1.171, & 1.174, 1.177, 1.180, 1.183, 1.185, 1.188, 1.191, 1.194, 1.197, & 1.200, 1.203, 1.206, 1.209, 1.240, 1.268, 1.296, 1.323, 1.350, & 1.377, 1.403, 1.429, 1.454, 1.480, 1.505, 1.529, 1.553, 1.577, & 1.601, 1.624, 1.647, 1.670, 1.692, 1.715, 1.737, 1.758, 1.780, & 1.801, 1.822, 1.843, 1.863, 1.883, 1.903, 1.923, 1.943, 1.962, & 1.981, 2.000, 2.019, 2.038, 2.056, 2.075, 2.093, 2.111, 2.128, & 2.146, 2.163, 2.181, 2.198, 2.215, 2.231, 2.248, 2.264, 2.281, & 2.297, 2.313, 2.329, 2.345, 2.360, 2.376, 2.391, 2.406, 2.422, & 2.437, 2.451, 2.466, 2.481, 2.495, 2.510, 2.524, 2.538, 2.552, & 2.566, 2.580, 2.594, 2.608, 2.621, 2.635, 2.648, 2.661, 2.674, & 2.687, 2.700, 2.713, 2.726, 2.739, 2.751, 2.764, 2.776, 2.789, & 2.801, 2.813, 2.825, 2.838, 2.850, 2.861, 2.873, 2.885, 2.897, & 2.908, 2.920, 2.931, 2.943, 2.954, 2.965, 2.976, 2.987, 2.998, & 3.009, 3.020, 3.031, 3.042, 3.053, 3.063, 3.074, 3.084, 3.095, & 3.105, 3.116, 3.126, 3.136, 3.146, 3.156, 3.166, 3.176, 3.186, & 3.196, 3.206, 3.216, 3.226, 3.235, 3.245, 3.255, 3.264, 3.274, & 3.283, 3.292, 3.302, 3.311, 3.320, 3.330, 3.339, 3.348, 3.357, & 3.366, 3.375, 3.384, 3.393, 3.402, 3.410, 3.419, 3.428, 3.437, & 3.445, 3.454, 3.462, 3.471, 3.479, 3.488, 3.496, 3.505, 3.513, & 3.521, 3.529, 3.538 & / C C *** (NH4)3H(SO4)2 C DATA BNC13M/ &-0.074,-0.160,-0.203,-0.233,-0.256,-0.275,-0.291,-0.306,-0.318, &-0.329,-0.339,-0.349,-0.357,-0.365,-0.372,-0.379,-0.386,-0.392, &-0.397,-0.402,-0.407,-0.412,-0.417,-0.421,-0.425,-0.429,-0.433, &-0.436,-0.439,-0.443,-0.446,-0.448,-0.451,-0.454,-0.456,-0.459, &-0.461,-0.463,-0.466,-0.468,-0.470,-0.471,-0.473,-0.475,-0.477, &-0.478,-0.480,-0.481,-0.482,-0.484,-0.485,-0.486,-0.487,-0.488, &-0.489,-0.490,-0.491,-0.492,-0.493,-0.494,-0.495,-0.496,-0.496, &-0.497,-0.498,-0.498,-0.499,-0.499,-0.500,-0.500,-0.501,-0.501, &-0.501,-0.502,-0.502,-0.502,-0.503,-0.503,-0.503,-0.503,-0.503, &-0.504,-0.504,-0.504,-0.504,-0.504,-0.504,-0.504,-0.504,-0.504, &-0.504,-0.504,-0.504,-0.504,-0.504,-0.503,-0.503,-0.503,-0.503, &-0.503,-0.503,-0.502,-0.502,-0.502,-0.502,-0.501,-0.501,-0.501, &-0.501,-0.500,-0.500,-0.500,-0.499,-0.499,-0.498,-0.498,-0.498, &-0.497,-0.497,-0.497,-0.496,-0.496,-0.495,-0.495,-0.494,-0.494, &-0.494,-0.493,-0.493,-0.492,-0.492,-0.491,-0.491,-0.490,-0.490, &-0.489,-0.489,-0.488,-0.488,-0.487,-0.487,-0.486,-0.486,-0.485, &-0.485,-0.484,-0.484,-0.483,-0.483,-0.482,-0.482,-0.481,-0.481, &-0.480,-0.479,-0.479,-0.478,-0.478,-0.477,-0.477,-0.476,-0.476, &-0.475,-0.475,-0.474,-0.473,-0.473,-0.472,-0.472,-0.471,-0.471, &-0.470,-0.470,-0.469,-0.468,-0.468,-0.467,-0.467,-0.466,-0.466, &-0.465,-0.464,-0.464,-0.463,-0.463,-0.462,-0.462,-0.461,-0.461, &-0.460,-0.459,-0.459,-0.458,-0.458,-0.457,-0.457,-0.456,-0.455, &-0.455,-0.454,-0.454,-0.453,-0.453,-0.452,-0.451,-0.451,-0.450, &-0.450,-0.449,-0.449,-0.448,-0.447,-0.447,-0.446,-0.446,-0.445, &-0.445,-0.444,-0.443,-0.443,-0.442,-0.442,-0.441,-0.441,-0.440, &-0.440,-0.439,-0.438,-0.438,-0.437,-0.437,-0.436,-0.436,-0.435, &-0.434,-0.434,-0.433,-0.433,-0.432,-0.432,-0.431,-0.431,-0.430, &-0.429,-0.429,-0.428,-0.428,-0.427,-0.427,-0.426,-0.426,-0.425, &-0.424,-0.424,-0.423,-0.423,-0.422,-0.422,-0.421,-0.421,-0.420, &-0.419,-0.419,-0.418,-0.418,-0.417,-0.417,-0.416,-0.416,-0.415, &-0.415,-0.414,-0.413,-0.413,-0.412,-0.412,-0.411,-0.411,-0.410, &-0.410,-0.409,-0.409,-0.408,-0.408,-0.407,-0.406,-0.406,-0.405, &-0.405,-0.404,-0.404,-0.403,-0.403,-0.402,-0.402,-0.401,-0.401, &-0.400,-0.399,-0.399,-0.398,-0.398,-0.397,-0.397,-0.396,-0.396, &-0.395,-0.395,-0.394,-0.394,-0.393,-0.393,-0.392,-0.392,-0.391, &-0.391,-0.390,-0.390,-0.389,-0.388,-0.388,-0.387,-0.387,-0.386, &-0.386,-0.385,-0.385,-0.384,-0.384,-0.383,-0.383,-0.382,-0.382, &-0.381,-0.381,-0.380,-0.380,-0.379,-0.379,-0.378,-0.378,-0.377, &-0.377,-0.376,-0.376,-0.375,-0.375,-0.374,-0.374,-0.373,-0.373, &-0.372,-0.372,-0.371,-0.371,-0.370,-0.370,-0.369,-0.369,-0.368, &-0.368,-0.367,-0.367,-0.366,-0.366,-0.365,-0.365,-0.364,-0.364, &-0.363,-0.363,-0.362,-0.362,-0.361,-0.361,-0.360,-0.360,-0.359, &-0.359,-0.358,-0.358,-0.357,-0.357,-0.356,-0.356,-0.355,-0.355, &-0.354,-0.354,-0.353,-0.353,-0.352,-0.352,-0.352,-0.351,-0.351, &-0.350,-0.350,-0.349,-0.349,-0.344,-0.339,-0.334,-0.330,-0.325, &-0.321,-0.316,-0.312,-0.307,-0.303,-0.299,-0.295,-0.290,-0.286, &-0.282,-0.278,-0.274,-0.270,-0.266,-0.262,-0.258,-0.255,-0.251, &-0.247,-0.243,-0.240,-0.236,-0.232,-0.229,-0.225,-0.222,-0.218, &-0.215,-0.211,-0.208,-0.204,-0.201,-0.198,-0.194,-0.191,-0.188, &-0.185,-0.182,-0.178,-0.175,-0.172,-0.169,-0.166,-0.163,-0.160, &-0.157,-0.154,-0.151,-0.148,-0.145,-0.142,-0.139,-0.137,-0.134, &-0.131,-0.128,-0.125,-0.123,-0.120,-0.117,-0.115,-0.112,-0.109, &-0.107,-0.104,-0.101,-0.099,-0.096,-0.094,-0.091,-0.089,-0.086, &-0.084,-0.081,-0.079,-0.076,-0.074,-0.071,-0.069,-0.067,-0.064, &-0.062,-0.060,-0.057,-0.055,-0.053,-0.050,-0.048,-0.046,-0.043, &-0.041,-0.039,-0.037,-0.035,-0.032,-0.030,-0.028,-0.026,-0.024, &-0.022,-0.020,-0.017,-0.015,-0.013,-0.011,-0.009,-0.007,-0.005, &-0.003,-0.001, 0.001, 0.003, 0.005, 0.007, 0.009, 0.011, 0.013, & 0.015, 0.017, 0.019, 0.021, 0.022, 0.024, 0.026, 0.028, 0.030, & 0.032, 0.034, 0.036, 0.037, 0.039, 0.041, 0.043, 0.045, 0.046, & 0.048, 0.050, 0.052, 0.053, 0.055, 0.057, 0.059, 0.060, 0.062, & 0.064, 0.066, 0.067, 0.069, 0.071, 0.072, 0.074, 0.076, 0.077, & 0.079, 0.081, 0.082 & / C C *** CASO4 C DATA BNC14M/ & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000 & / C C *** CANO32 C DATA BNC15M/ &-0.092,-0.196,-0.245,-0.279,-0.304,-0.325,-0.342,-0.356,-0.368, &-0.379,-0.389,-0.397,-0.405,-0.412,-0.418,-0.424,-0.429,-0.433, &-0.438,-0.442,-0.445,-0.448,-0.452,-0.454,-0.457,-0.459,-0.462, &-0.464,-0.466,-0.467,-0.469,-0.470,-0.472,-0.473,-0.474,-0.475, &-0.476,-0.477,-0.478,-0.479,-0.480,-0.480,-0.481,-0.482,-0.482, &-0.483,-0.483,-0.483,-0.484,-0.484,-0.484,-0.484,-0.485,-0.485, &-0.485,-0.485,-0.485,-0.485,-0.485,-0.485,-0.485,-0.485,-0.485, &-0.485,-0.485,-0.484,-0.484,-0.484,-0.484,-0.484,-0.483,-0.483, &-0.483,-0.482,-0.482,-0.482,-0.481,-0.481,-0.480,-0.480,-0.479, &-0.479,-0.478,-0.478,-0.477,-0.477,-0.476,-0.475,-0.475,-0.474, &-0.474,-0.473,-0.472,-0.471,-0.471,-0.470,-0.469,-0.468,-0.467, &-0.467,-0.466,-0.465,-0.464,-0.463,-0.462,-0.461,-0.460,-0.459, &-0.459,-0.458,-0.457,-0.456,-0.455,-0.454,-0.453,-0.452,-0.451, &-0.450,-0.448,-0.447,-0.446,-0.445,-0.444,-0.443,-0.442,-0.441, &-0.440,-0.439,-0.438,-0.437,-0.436,-0.434,-0.433,-0.432,-0.431, &-0.430,-0.429,-0.428,-0.427,-0.425,-0.424,-0.423,-0.422,-0.421, &-0.420,-0.419,-0.417,-0.416,-0.415,-0.414,-0.413,-0.412,-0.411, &-0.409,-0.408,-0.407,-0.406,-0.405,-0.404,-0.402,-0.401,-0.400, &-0.399,-0.398,-0.397,-0.395,-0.394,-0.393,-0.392,-0.391,-0.390, &-0.388,-0.387,-0.386,-0.385,-0.384,-0.383,-0.381,-0.380,-0.379, &-0.378,-0.377,-0.376,-0.374,-0.373,-0.372,-0.371,-0.370,-0.369, &-0.367,-0.366,-0.365,-0.364,-0.363,-0.361,-0.360,-0.359,-0.358, &-0.357,-0.356,-0.354,-0.353,-0.352,-0.351,-0.350,-0.349,-0.347, &-0.346,-0.345,-0.344,-0.343,-0.342,-0.341,-0.339,-0.338,-0.337, &-0.336,-0.335,-0.334,-0.332,-0.331,-0.330,-0.329,-0.328,-0.327, &-0.325,-0.324,-0.323,-0.322,-0.321,-0.320,-0.319,-0.317,-0.316, &-0.315,-0.314,-0.313,-0.312,-0.311,-0.309,-0.308,-0.307,-0.306, &-0.305,-0.304,-0.303,-0.301,-0.300,-0.299,-0.298,-0.297,-0.296, &-0.295,-0.294,-0.292,-0.291,-0.290,-0.289,-0.288,-0.287,-0.286, &-0.285,-0.283,-0.282,-0.281,-0.280,-0.279,-0.278,-0.277,-0.276, &-0.275,-0.273,-0.272,-0.271,-0.270,-0.269,-0.268,-0.267,-0.266, &-0.265,-0.263,-0.262,-0.261,-0.260,-0.259,-0.258,-0.257,-0.256, &-0.255,-0.254,-0.253,-0.251,-0.250,-0.249,-0.248,-0.247,-0.246, &-0.245,-0.244,-0.243,-0.242,-0.241,-0.240,-0.238,-0.237,-0.236, &-0.235,-0.234,-0.233,-0.232,-0.231,-0.230,-0.229,-0.228,-0.227, &-0.226,-0.225,-0.224,-0.222,-0.221,-0.220,-0.219,-0.218,-0.217, &-0.216,-0.215,-0.214,-0.213,-0.212,-0.211,-0.210,-0.209,-0.208, &-0.207,-0.206,-0.205,-0.204,-0.203,-0.202,-0.201,-0.200,-0.198, &-0.197,-0.196,-0.195,-0.194,-0.193,-0.192,-0.191,-0.190,-0.189, &-0.188,-0.187,-0.186,-0.185,-0.184,-0.183,-0.182,-0.181,-0.180, &-0.179,-0.178,-0.177,-0.176,-0.175,-0.174,-0.173,-0.172,-0.171, &-0.170,-0.169,-0.168,-0.167,-0.166,-0.165,-0.164,-0.163,-0.162, &-0.161,-0.160,-0.159,-0.158,-0.157,-0.156,-0.155,-0.154,-0.153, &-0.152,-0.151,-0.150,-0.149,-0.148,-0.147,-0.146,-0.145,-0.144, &-0.143,-0.142,-0.141,-0.140,-0.130,-0.121,-0.111,-0.102,-0.093, &-0.083,-0.074,-0.066,-0.057,-0.048,-0.039,-0.031,-0.022,-0.014, &-0.006, 0.003, 0.011, 0.019, 0.027, 0.035, 0.043, 0.050, 0.058, & 0.066, 0.073, 0.081, 0.088, 0.095, 0.103, 0.110, 0.117, 0.124, & 0.131, 0.138, 0.145, 0.152, 0.159, 0.165, 0.172, 0.179, 0.185, & 0.192, 0.198, 0.205, 0.211, 0.217, 0.223, 0.230, 0.236, 0.242, & 0.248, 0.254, 0.260, 0.266, 0.272, 0.278, 0.283, 0.289, 0.295, & 0.301, 0.306, 0.312, 0.317, 0.323, 0.328, 0.334, 0.339, 0.345, & 0.350, 0.355, 0.360, 0.366, 0.371, 0.376, 0.381, 0.386, 0.391, & 0.396, 0.401, 0.406, 0.411, 0.416, 0.421, 0.426, 0.431, 0.435, & 0.440, 0.445, 0.449, 0.454, 0.459, 0.463, 0.468, 0.472, 0.477, & 0.482, 0.486, 0.490, 0.495, 0.499, 0.504, 0.508, 0.512, 0.517, & 0.521, 0.525, 0.529, 0.534, 0.538, 0.542, 0.546, 0.550, 0.554, & 0.559, 0.563, 0.567, 0.571, 0.575, 0.579, 0.583, 0.587, 0.590, & 0.594, 0.598, 0.602, 0.606, 0.610, 0.614, 0.617, 0.621, 0.625, & 0.629, 0.632, 0.636, 0.640, 0.643, 0.647, 0.651, 0.654, 0.658, & 0.661, 0.665, 0.669, 0.672, 0.676, 0.679, 0.683, 0.686, 0.690, & 0.693, 0.696, 0.700, 0.703, 0.707, 0.710, 0.713, 0.717, 0.720, & 0.723, 0.727, 0.730 & / C C *** CACL2 C DATA BNC16M/ &-0.091,-0.188,-0.233,-0.261,-0.282,-0.298,-0.310,-0.320,-0.328, &-0.335,-0.340,-0.345,-0.348,-0.351,-0.353,-0.355,-0.356,-0.356, &-0.357,-0.357,-0.356,-0.356,-0.355,-0.354,-0.353,-0.351,-0.350, &-0.348,-0.346,-0.344,-0.342,-0.340,-0.337,-0.335,-0.333,-0.330, &-0.327,-0.325,-0.322,-0.319,-0.316,-0.314,-0.311,-0.308,-0.305, &-0.302,-0.299,-0.296,-0.293,-0.290,-0.287,-0.283,-0.280,-0.277, &-0.274,-0.271,-0.268,-0.264,-0.261,-0.258,-0.255,-0.252,-0.248, &-0.245,-0.242,-0.238,-0.235,-0.232,-0.228,-0.225,-0.222,-0.218, &-0.215,-0.211,-0.208,-0.204,-0.201,-0.197,-0.194,-0.190,-0.187, &-0.183,-0.179,-0.176,-0.172,-0.168,-0.164,-0.161,-0.157,-0.153, &-0.149,-0.145,-0.141,-0.137,-0.133,-0.129,-0.125,-0.121,-0.117, &-0.113,-0.109,-0.105,-0.101,-0.096,-0.092,-0.088,-0.084,-0.080, &-0.075,-0.071,-0.067,-0.062,-0.058,-0.054,-0.049,-0.045,-0.041, &-0.036,-0.032,-0.027,-0.023,-0.019,-0.014,-0.010,-0.005,-0.001, & 0.003, 0.008, 0.012, 0.017, 0.021, 0.026, 0.030, 0.034, 0.039, & 0.043, 0.048, 0.052, 0.057, 0.061, 0.065, 0.070, 0.074, 0.079, & 0.083, 0.087, 0.092, 0.096, 0.101, 0.105, 0.109, 0.114, 0.118, & 0.123, 0.127, 0.131, 0.136, 0.140, 0.144, 0.149, 0.153, 0.157, & 0.162, 0.166, 0.170, 0.175, 0.179, 0.183, 0.188, 0.192, 0.196, & 0.201, 0.205, 0.209, 0.214, 0.218, 0.222, 0.226, 0.231, 0.235, & 0.239, 0.243, 0.248, 0.252, 0.256, 0.260, 0.265, 0.269, 0.273, & 0.277, 0.281, 0.286, 0.290, 0.294, 0.298, 0.302, 0.306, 0.311, & 0.315, 0.319, 0.323, 0.327, 0.331, 0.336, 0.340, 0.344, 0.348, & 0.352, 0.356, 0.360, 0.364, 0.368, 0.372, 0.377, 0.381, 0.385, & 0.389, 0.393, 0.397, 0.401, 0.405, 0.409, 0.413, 0.417, 0.421, & 0.425, 0.429, 0.433, 0.437, 0.441, 0.445, 0.449, 0.453, 0.457, & 0.461, 0.465, 0.469, 0.473, 0.477, 0.481, 0.485, 0.488, 0.492, & 0.496, 0.500, 0.504, 0.508, 0.512, 0.516, 0.520, 0.524, 0.527, & 0.531, 0.535, 0.539, 0.543, 0.547, 0.550, 0.554, 0.558, 0.562, & 0.566, 0.570, 0.573, 0.577, 0.581, 0.585, 0.588, 0.592, 0.596, & 0.600, 0.604, 0.607, 0.611, 0.615, 0.618, 0.622, 0.626, 0.630, & 0.633, 0.637, 0.641, 0.644, 0.648, 0.652, 0.656, 0.659, 0.663, & 0.667, 0.670, 0.674, 0.677, 0.681, 0.685, 0.688, 0.692, 0.696, & 0.699, 0.703, 0.706, 0.710, 0.714, 0.717, 0.721, 0.724, 0.728, & 0.732, 0.735, 0.739, 0.742, 0.746, 0.749, 0.753, 0.756, 0.760, & 0.763, 0.767, 0.770, 0.774, 0.777, 0.781, 0.784, 0.788, 0.791, & 0.795, 0.798, 0.802, 0.805, 0.809, 0.812, 0.816, 0.819, 0.823, & 0.826, 0.829, 0.833, 0.836, 0.840, 0.843, 0.846, 0.850, 0.853, & 0.857, 0.860, 0.863, 0.867, 0.870, 0.873, 0.877, 0.880, 0.884, & 0.887, 0.890, 0.894, 0.897, 0.900, 0.904, 0.907, 0.910, 0.913, & 0.917, 0.920, 0.923, 0.927, 0.930, 0.933, 0.936, 0.940, 0.943, & 0.946, 0.950, 0.953, 0.956, 0.959, 0.963, 0.966, 0.969, 0.972, & 0.975, 0.979, 0.982, 0.985, 0.988, 0.991, 0.995, 0.998, 1.001, & 1.004, 1.007, 1.011, 1.014, 1.017, 1.020, 1.023, 1.026, 1.029, & 1.033, 1.036, 1.039, 1.042, 1.076, 1.106, 1.136, 1.166, 1.195, & 1.224, 1.253, 1.281, 1.309, 1.337, 1.364, 1.391, 1.417, 1.444, & 1.470, 1.495, 1.521, 1.546, 1.570, 1.595, 1.619, 1.643, 1.667, & 1.690, 1.713, 1.736, 1.759, 1.781, 1.803, 1.825, 1.847, 1.868, & 1.890, 1.911, 1.932, 1.952, 1.973, 1.993, 2.013, 2.033, 2.053, & 2.072, 2.092, 2.111, 2.130, 2.149, 2.167, 2.186, 2.204, 2.222, & 2.240, 2.258, 2.276, 2.293, 2.311, 2.328, 2.345, 2.362, 2.379, & 2.396, 2.412, 2.429, 2.445, 2.461, 2.478, 2.493, 2.509, 2.525, & 2.541, 2.556, 2.572, 2.587, 2.602, 2.617, 2.632, 2.647, 2.661, & 2.676, 2.691, 2.705, 2.719, 2.734, 2.748, 2.762, 2.776, 2.789, & 2.803, 2.817, 2.830, 2.844, 2.857, 2.871, 2.884, 2.897, 2.910, & 2.923, 2.936, 2.949, 2.961, 2.974, 2.987, 2.999, 3.012, 3.024, & 3.036, 3.048, 3.061, 3.073, 3.085, 3.097, 3.108, 3.120, 3.132, & 3.144, 3.155, 3.167, 3.178, 3.190, 3.201, 3.212, 3.224, 3.235, & 3.246, 3.257, 3.268, 3.279, 3.290, 3.300, 3.311, 3.322, 3.333, & 3.343, 3.354, 3.364, 3.375, 3.385, 3.395, 3.406, 3.416, 3.426, & 3.436, 3.446, 3.456, 3.466, 3.476, 3.486, 3.496, 3.506, 3.515, & 3.525, 3.535, 3.544, 3.554, 3.563, 3.573, 3.582, 3.592, 3.601, & 3.610, 3.620, 3.629 & / C C *** K2SO4 C DATA BNC17M/ &-0.093,-0.203,-0.257,-0.296,-0.326,-0.351,-0.372,-0.391,-0.408, &-0.423,-0.436,-0.449,-0.460,-0.471,-0.481,-0.491,-0.500,-0.508, &-0.516,-0.524,-0.531,-0.538,-0.545,-0.552,-0.558,-0.564,-0.569, &-0.575,-0.580,-0.585,-0.590,-0.595,-0.600,-0.605,-0.609,-0.613, &-0.618,-0.622,-0.626,-0.629,-0.633,-0.637,-0.641,-0.644,-0.648, &-0.651,-0.654,-0.658,-0.661,-0.664,-0.667,-0.670,-0.673,-0.676, &-0.678,-0.681,-0.684,-0.687,-0.689,-0.692,-0.694,-0.697,-0.699, &-0.702,-0.704,-0.707,-0.709,-0.711,-0.713,-0.716,-0.718,-0.720, &-0.722,-0.724,-0.726,-0.728,-0.730,-0.732,-0.734,-0.736,-0.738, &-0.740,-0.742,-0.744,-0.746,-0.748,-0.749,-0.751,-0.753,-0.755, &-0.756,-0.758,-0.760,-0.762,-0.763,-0.765,-0.767,-0.768,-0.770, &-0.772,-0.773,-0.775,-0.776,-0.778,-0.779,-0.781,-0.782,-0.784, &-0.786,-0.787,-0.788,-0.790,-0.791,-0.793,-0.794,-0.796,-0.797, &-0.799,-0.800,-0.801,-0.803,-0.804,-0.805,-0.807,-0.808,-0.809, &-0.811,-0.812,-0.813,-0.815,-0.816,-0.817,-0.819,-0.820,-0.821, &-0.822,-0.824,-0.825,-0.826,-0.827,-0.828,-0.830,-0.831,-0.832, &-0.833,-0.834,-0.835,-0.837,-0.838,-0.839,-0.840,-0.841,-0.842, &-0.843,-0.844,-0.846,-0.847,-0.848,-0.849,-0.850,-0.851,-0.852, &-0.853,-0.854,-0.855,-0.856,-0.857,-0.858,-0.859,-0.860,-0.861, &-0.862,-0.863,-0.864,-0.865,-0.866,-0.867,-0.868,-0.869,-0.870, &-0.871,-0.872,-0.873,-0.874,-0.875,-0.876,-0.877,-0.878,-0.878, &-0.879,-0.880,-0.881,-0.882,-0.883,-0.884,-0.885,-0.886,-0.886, &-0.887,-0.888,-0.889,-0.890,-0.891,-0.892,-0.893,-0.893,-0.894, &-0.895,-0.896,-0.897,-0.898,-0.898,-0.899,-0.900,-0.901,-0.902, &-0.902,-0.903,-0.904,-0.905,-0.906,-0.906,-0.907,-0.908,-0.909, &-0.910,-0.910,-0.911,-0.912,-0.913,-0.913,-0.914,-0.915,-0.916, &-0.916,-0.917,-0.918,-0.919,-0.919,-0.920,-0.921,-0.922,-0.922, &-0.923,-0.924,-0.924,-0.925,-0.926,-0.927,-0.927,-0.928,-0.929, &-0.929,-0.930,-0.931,-0.931,-0.932,-0.933,-0.933,-0.934,-0.935, &-0.936,-0.936,-0.937,-0.938,-0.938,-0.939,-0.940,-0.940,-0.941, &-0.941,-0.942,-0.943,-0.943,-0.944,-0.945,-0.945,-0.946,-0.947, &-0.947,-0.948,-0.949,-0.949,-0.950,-0.950,-0.951,-0.952,-0.952, &-0.953,-0.954,-0.954,-0.955,-0.955,-0.956,-0.957,-0.957,-0.958, &-0.958,-0.959,-0.960,-0.960,-0.961,-0.961,-0.962,-0.962,-0.963, &-0.964,-0.964,-0.965,-0.965,-0.966,-0.967,-0.967,-0.968,-0.968, &-0.969,-0.969,-0.970,-0.970,-0.971,-0.972,-0.972,-0.973,-0.973, &-0.974,-0.974,-0.975,-0.975,-0.976,-0.977,-0.977,-0.978,-0.978, &-0.979,-0.979,-0.980,-0.980,-0.981,-0.981,-0.982,-0.982,-0.983, &-0.983,-0.984,-0.984,-0.985,-0.986,-0.986,-0.987,-0.987,-0.988, &-0.988,-0.989,-0.989,-0.990,-0.990,-0.991,-0.991,-0.992,-0.992, &-0.993,-0.993,-0.994,-0.994,-0.995,-0.995,-0.996,-0.996,-0.997, &-0.997,-0.998,-0.998,-0.998,-0.999,-0.999,-1.000,-1.000,-1.001, &-1.001,-1.002,-1.002,-1.003,-1.003,-1.004,-1.004,-1.005,-1.005, &-1.006,-1.006,-1.006,-1.007,-1.007,-1.008,-1.008,-1.009,-1.009, &-1.010,-1.010,-1.011,-1.011,-1.016,-1.020,-1.024,-1.029,-1.033, &-1.037,-1.040,-1.044,-1.048,-1.052,-1.055,-1.059,-1.062,-1.065, &-1.069,-1.072,-1.075,-1.078,-1.081,-1.084,-1.087,-1.090,-1.093, &-1.096,-1.099,-1.102,-1.104,-1.107,-1.110,-1.112,-1.115,-1.117, &-1.120,-1.122,-1.125,-1.127,-1.129,-1.132,-1.134,-1.136,-1.139, &-1.141,-1.143,-1.145,-1.147,-1.149,-1.151,-1.153,-1.155,-1.157, &-1.159,-1.161,-1.163,-1.165,-1.167,-1.169,-1.171,-1.173,-1.174, &-1.176,-1.178,-1.180,-1.181,-1.183,-1.185,-1.187,-1.188,-1.190, &-1.191,-1.193,-1.195,-1.196,-1.198,-1.199,-1.201,-1.202,-1.204, &-1.205,-1.207,-1.208,-1.210,-1.211,-1.213,-1.214,-1.216,-1.217, &-1.218,-1.220,-1.221,-1.223,-1.224,-1.225,-1.226,-1.228,-1.229, &-1.230,-1.232,-1.233,-1.234,-1.235,-1.237,-1.238,-1.239,-1.240, &-1.242,-1.243,-1.244,-1.245,-1.246,-1.247,-1.249,-1.250,-1.251, &-1.252,-1.253,-1.254,-1.255,-1.256,-1.258,-1.259,-1.260,-1.261, &-1.262,-1.263,-1.264,-1.265,-1.266,-1.267,-1.268,-1.269,-1.270, &-1.271,-1.272,-1.273,-1.274,-1.275,-1.276,-1.277,-1.278,-1.279, &-1.280,-1.281,-1.282,-1.283,-1.283,-1.284,-1.285,-1.286,-1.287, &-1.288,-1.289,-1.290,-1.291,-1.292,-1.292,-1.293,-1.294,-1.295, &-1.296,-1.297,-1.298 & / C C *** KHSO4 C DATA BNC18M/ &-0.046,-0.097,-0.121,-0.138,-0.150,-0.161,-0.169,-0.176,-0.182, &-0.188,-0.192,-0.196,-0.200,-0.203,-0.206,-0.209,-0.211,-0.213, &-0.215,-0.217,-0.218,-0.219,-0.220,-0.221,-0.222,-0.223,-0.223, &-0.223,-0.223,-0.224,-0.223,-0.223,-0.223,-0.223,-0.222,-0.222, &-0.221,-0.220,-0.220,-0.219,-0.218,-0.217,-0.216,-0.215,-0.213, &-0.212,-0.211,-0.209,-0.208,-0.206,-0.205,-0.203,-0.202,-0.200, &-0.198,-0.196,-0.195,-0.193,-0.191,-0.189,-0.187,-0.185,-0.183, &-0.181,-0.179,-0.177,-0.174,-0.172,-0.170,-0.168,-0.165,-0.163, &-0.161,-0.158,-0.156,-0.153,-0.151,-0.148,-0.146,-0.143,-0.141, &-0.138,-0.136,-0.133,-0.130,-0.127,-0.125,-0.122,-0.119,-0.116, &-0.114,-0.111,-0.108,-0.105,-0.102,-0.099,-0.096,-0.093,-0.090, &-0.087,-0.084,-0.081,-0.078,-0.075,-0.072,-0.069,-0.066,-0.063, &-0.060,-0.056,-0.053,-0.050,-0.047,-0.044,-0.041,-0.037,-0.034, &-0.031,-0.028,-0.025,-0.021,-0.018,-0.015,-0.012,-0.009,-0.005, &-0.002, 0.001, 0.004, 0.007, 0.011, 0.014, 0.017, 0.020, 0.023, & 0.027, 0.030, 0.033, 0.036, 0.039, 0.043, 0.046, 0.049, 0.052, & 0.055, 0.058, 0.061, 0.065, 0.068, 0.071, 0.074, 0.077, 0.080, & 0.083, 0.086, 0.089, 0.093, 0.096, 0.099, 0.102, 0.105, 0.108, & 0.111, 0.114, 0.117, 0.120, 0.123, 0.126, 0.129, 0.132, 0.135, & 0.138, 0.141, 0.144, 0.147, 0.150, 0.153, 0.156, 0.159, 0.162, & 0.165, 0.168, 0.171, 0.174, 0.176, 0.179, 0.182, 0.185, 0.188, & 0.191, 0.194, 0.197, 0.199, 0.202, 0.205, 0.208, 0.211, 0.214, & 0.217, 0.219, 0.222, 0.225, 0.228, 0.231, 0.233, 0.236, 0.239, & 0.242, 0.244, 0.247, 0.250, 0.253, 0.255, 0.258, 0.261, 0.264, & 0.266, 0.269, 0.272, 0.274, 0.277, 0.280, 0.282, 0.285, 0.288, & 0.290, 0.293, 0.296, 0.298, 0.301, 0.304, 0.306, 0.309, 0.312, & 0.314, 0.317, 0.319, 0.322, 0.325, 0.327, 0.330, 0.332, 0.335, & 0.337, 0.340, 0.343, 0.345, 0.348, 0.350, 0.353, 0.355, 0.358, & 0.360, 0.363, 0.365, 0.368, 0.370, 0.373, 0.375, 0.378, 0.380, & 0.383, 0.385, 0.388, 0.390, 0.393, 0.395, 0.397, 0.400, 0.402, & 0.405, 0.407, 0.410, 0.412, 0.414, 0.417, 0.419, 0.422, 0.424, & 0.426, 0.429, 0.431, 0.434, 0.436, 0.438, 0.441, 0.443, 0.445, & 0.448, 0.450, 0.452, 0.455, 0.457, 0.459, 0.462, 0.464, 0.466, & 0.469, 0.471, 0.473, 0.475, 0.478, 0.480, 0.482, 0.485, 0.487, & 0.489, 0.491, 0.494, 0.496, 0.498, 0.500, 0.503, 0.505, 0.507, & 0.509, 0.512, 0.514, 0.516, 0.518, 0.520, 0.523, 0.525, 0.527, & 0.529, 0.531, 0.534, 0.536, 0.538, 0.540, 0.542, 0.544, 0.547, & 0.549, 0.551, 0.553, 0.555, 0.557, 0.560, 0.562, 0.564, 0.566, & 0.568, 0.570, 0.572, 0.574, 0.577, 0.579, 0.581, 0.583, 0.585, & 0.587, 0.589, 0.591, 0.593, 0.595, 0.597, 0.600, 0.602, 0.604, & 0.606, 0.608, 0.610, 0.612, 0.614, 0.616, 0.618, 0.620, 0.622, & 0.624, 0.626, 0.628, 0.630, 0.632, 0.634, 0.636, 0.638, 0.640, & 0.642, 0.644, 0.646, 0.648, 0.650, 0.652, 0.654, 0.656, 0.658, & 0.660, 0.662, 0.664, 0.666, 0.668, 0.670, 0.672, 0.674, 0.676, & 0.678, 0.680, 0.682, 0.684, 0.704, 0.723, 0.742, 0.760, 0.778, & 0.796, 0.813, 0.831, 0.848, 0.865, 0.881, 0.898, 0.914, 0.930, & 0.946, 0.961, 0.977, 0.992, 1.007, 1.022, 1.036, 1.051, 1.065, & 1.079, 1.093, 1.107, 1.121, 1.134, 1.148, 1.161, 1.174, 1.187, & 1.200, 1.213, 1.225, 1.238, 1.250, 1.262, 1.275, 1.287, 1.298, & 1.310, 1.322, 1.333, 1.345, 1.356, 1.367, 1.379, 1.390, 1.401, & 1.411, 1.422, 1.433, 1.443, 1.454, 1.464, 1.475, 1.485, 1.495, & 1.505, 1.515, 1.525, 1.535, 1.545, 1.554, 1.564, 1.573, 1.583, & 1.592, 1.602, 1.611, 1.620, 1.629, 1.638, 1.647, 1.656, 1.665, & 1.674, 1.682, 1.691, 1.700, 1.708, 1.717, 1.725, 1.734, 1.742, & 1.750, 1.758, 1.767, 1.775, 1.783, 1.791, 1.799, 1.807, 1.815, & 1.822, 1.830, 1.838, 1.845, 1.853, 1.861, 1.868, 1.876, 1.883, & 1.891, 1.898, 1.905, 1.912, 1.920, 1.927, 1.934, 1.941, 1.948, & 1.955, 1.962, 1.969, 1.976, 1.983, 1.990, 1.997, 2.003, 2.010, & 2.017, 2.023, 2.030, 2.037, 2.043, 2.050, 2.056, 2.063, 2.069, & 2.075, 2.082, 2.088, 2.094, 2.101, 2.107, 2.113, 2.119, 2.125, & 2.131, 2.137, 2.143, 2.149, 2.155, 2.161, 2.167, 2.173, 2.179, & 2.185, 2.191, 2.197, 2.202, 2.208, 2.214, 2.219, 2.225, 2.231, & 2.236, 2.242, 2.248 & / C C *** KNO3 C DATA BNC19M/ &-0.048,-0.109,-0.141,-0.166,-0.186,-0.204,-0.219,-0.233,-0.246, &-0.258,-0.270,-0.281,-0.291,-0.301,-0.310,-0.319,-0.328,-0.336, &-0.344,-0.352,-0.360,-0.367,-0.375,-0.382,-0.389,-0.395,-0.402, &-0.409,-0.415,-0.421,-0.427,-0.433,-0.439,-0.445,-0.451,-0.456, &-0.462,-0.467,-0.472,-0.477,-0.483,-0.488,-0.492,-0.497,-0.502, &-0.507,-0.511,-0.516,-0.521,-0.525,-0.529,-0.534,-0.538,-0.542, &-0.546,-0.550,-0.554,-0.558,-0.562,-0.566,-0.570,-0.574,-0.578, &-0.581,-0.585,-0.589,-0.592,-0.596,-0.600,-0.603,-0.607,-0.610, &-0.613,-0.617,-0.620,-0.624,-0.627,-0.630,-0.634,-0.637,-0.640, &-0.643,-0.647,-0.650,-0.653,-0.656,-0.660,-0.663,-0.666,-0.669, &-0.672,-0.675,-0.678,-0.682,-0.685,-0.688,-0.691,-0.694,-0.697, &-0.700,-0.703,-0.706,-0.709,-0.712,-0.715,-0.718,-0.721,-0.724, &-0.727,-0.730,-0.733,-0.736,-0.739,-0.741,-0.744,-0.747,-0.750, &-0.753,-0.756,-0.758,-0.761,-0.764,-0.767,-0.770,-0.772,-0.775, &-0.778,-0.780,-0.783,-0.786,-0.789,-0.791,-0.794,-0.796,-0.799, &-0.802,-0.804,-0.807,-0.809,-0.812,-0.814,-0.817,-0.819,-0.822, &-0.824,-0.827,-0.829,-0.832,-0.834,-0.837,-0.839,-0.841,-0.844, &-0.846,-0.848,-0.851,-0.853,-0.855,-0.858,-0.860,-0.862,-0.865, &-0.867,-0.869,-0.871,-0.873,-0.876,-0.878,-0.880,-0.882,-0.884, &-0.887,-0.889,-0.891,-0.893,-0.895,-0.897,-0.899,-0.901,-0.903, &-0.905,-0.908,-0.910,-0.912,-0.914,-0.916,-0.918,-0.920,-0.922, &-0.924,-0.925,-0.927,-0.929,-0.931,-0.933,-0.935,-0.937,-0.939, &-0.941,-0.943,-0.945,-0.946,-0.948,-0.950,-0.952,-0.954,-0.956, &-0.957,-0.959,-0.961,-0.963,-0.965,-0.966,-0.968,-0.970,-0.972, &-0.973,-0.975,-0.977,-0.978,-0.980,-0.982,-0.984,-0.985,-0.987, &-0.989,-0.990,-0.992,-0.993,-0.995,-0.997,-0.998,-1.000,-1.002, &-1.003,-1.005,-1.006,-1.008,-1.009,-1.011,-1.013,-1.014,-1.016, &-1.017,-1.019,-1.020,-1.022,-1.023,-1.025,-1.026,-1.028,-1.029, &-1.031,-1.032,-1.034,-1.035,-1.036,-1.038,-1.039,-1.041,-1.042, &-1.044,-1.045,-1.046,-1.048,-1.049,-1.051,-1.052,-1.053,-1.055, &-1.056,-1.057,-1.059,-1.060,-1.061,-1.063,-1.064,-1.065,-1.067, &-1.068,-1.069,-1.071,-1.072,-1.073,-1.074,-1.076,-1.077,-1.078, &-1.079,-1.081,-1.082,-1.083,-1.084,-1.086,-1.087,-1.088,-1.089, &-1.090,-1.092,-1.093,-1.094,-1.095,-1.096,-1.098,-1.099,-1.100, &-1.101,-1.102,-1.103,-1.105,-1.106,-1.107,-1.108,-1.109,-1.110, &-1.111,-1.112,-1.114,-1.115,-1.116,-1.117,-1.118,-1.119,-1.120, &-1.121,-1.122,-1.123,-1.124,-1.125,-1.127,-1.128,-1.129,-1.130, &-1.131,-1.132,-1.133,-1.134,-1.135,-1.136,-1.137,-1.138,-1.139, &-1.140,-1.141,-1.142,-1.143,-1.144,-1.145,-1.146,-1.147,-1.148, &-1.149,-1.150,-1.151,-1.152,-1.153,-1.153,-1.154,-1.155,-1.156, &-1.157,-1.158,-1.159,-1.160,-1.161,-1.162,-1.163,-1.164,-1.165, &-1.165,-1.166,-1.167,-1.168,-1.169,-1.170,-1.171,-1.172,-1.172, &-1.173,-1.174,-1.175,-1.176,-1.177,-1.178,-1.178,-1.179,-1.180, &-1.181,-1.182,-1.183,-1.183,-1.184,-1.185,-1.186,-1.187,-1.188, &-1.188,-1.189,-1.190,-1.191,-1.199,-1.207,-1.214,-1.221,-1.228, &-1.234,-1.240,-1.246,-1.252,-1.258,-1.263,-1.268,-1.273,-1.278, &-1.283,-1.287,-1.292,-1.296,-1.300,-1.304,-1.308,-1.312,-1.315, &-1.319,-1.322,-1.325,-1.329,-1.332,-1.335,-1.338,-1.341,-1.343, &-1.346,-1.349,-1.351,-1.354,-1.356,-1.358,-1.361,-1.363,-1.365, &-1.367,-1.369,-1.371,-1.373,-1.375,-1.377,-1.378,-1.380,-1.382, &-1.383,-1.385,-1.387,-1.388,-1.390,-1.391,-1.393,-1.394,-1.395, &-1.397,-1.398,-1.399,-1.400,-1.402,-1.403,-1.404,-1.405,-1.406, &-1.407,-1.408,-1.409,-1.410,-1.411,-1.412,-1.413,-1.414,-1.415, &-1.416,-1.417,-1.418,-1.419,-1.420,-1.420,-1.421,-1.422,-1.423, &-1.424,-1.424,-1.425,-1.426,-1.427,-1.427,-1.428,-1.429,-1.429, &-1.430,-1.430,-1.431,-1.432,-1.432,-1.433,-1.434,-1.434,-1.435, &-1.435,-1.436,-1.436,-1.437,-1.437,-1.438,-1.438,-1.439,-1.439, &-1.440,-1.440,-1.441,-1.441,-1.442,-1.442,-1.443,-1.443,-1.443, &-1.444,-1.444,-1.445,-1.445,-1.445,-1.446,-1.446,-1.447,-1.447, &-1.447,-1.448,-1.448,-1.448,-1.449,-1.449,-1.449,-1.450,-1.450, &-1.450,-1.451,-1.451,-1.451,-1.452,-1.452,-1.452,-1.453,-1.453, &-1.453,-1.454,-1.454,-1.454,-1.454,-1.455,-1.455,-1.455,-1.455, &-1.456,-1.456,-1.456 & / C C *** KCL C DATA BNC20M/ &-0.046,-0.098,-0.123,-0.139,-0.152,-0.162,-0.171,-0.178,-0.184, &-0.190,-0.195,-0.199,-0.203,-0.206,-0.209,-0.212,-0.215,-0.217, &-0.219,-0.221,-0.223,-0.225,-0.226,-0.228,-0.229,-0.230,-0.231, &-0.232,-0.233,-0.234,-0.235,-0.236,-0.236,-0.237,-0.238,-0.238, &-0.239,-0.239,-0.240,-0.240,-0.240,-0.241,-0.241,-0.241,-0.242, &-0.242,-0.242,-0.242,-0.243,-0.243,-0.243,-0.243,-0.243,-0.243, &-0.243,-0.243,-0.243,-0.243,-0.243,-0.243,-0.243,-0.243,-0.243, &-0.243,-0.243,-0.243,-0.243,-0.243,-0.243,-0.243,-0.243,-0.242, &-0.242,-0.242,-0.242,-0.242,-0.242,-0.241,-0.241,-0.241,-0.241, &-0.241,-0.240,-0.240,-0.240,-0.239,-0.239,-0.239,-0.239,-0.238, &-0.238,-0.238,-0.237,-0.237,-0.237,-0.236,-0.236,-0.235,-0.235, &-0.235,-0.234,-0.234,-0.233,-0.233,-0.232,-0.232,-0.232,-0.231, &-0.231,-0.230,-0.230,-0.229,-0.229,-0.228,-0.228,-0.227,-0.227, &-0.226,-0.226,-0.225,-0.225,-0.224,-0.224,-0.223,-0.223,-0.222, &-0.222,-0.221,-0.220,-0.220,-0.219,-0.219,-0.218,-0.218,-0.217, &-0.217,-0.216,-0.216,-0.215,-0.214,-0.214,-0.213,-0.213,-0.212, &-0.212,-0.211,-0.210,-0.210,-0.209,-0.209,-0.208,-0.208,-0.207, &-0.207,-0.206,-0.205,-0.205,-0.204,-0.204,-0.203,-0.203,-0.202, &-0.201,-0.201,-0.200,-0.200,-0.199,-0.199,-0.198,-0.197,-0.197, &-0.196,-0.196,-0.195,-0.194,-0.194,-0.193,-0.193,-0.192,-0.192, &-0.191,-0.190,-0.190,-0.189,-0.189,-0.188,-0.188,-0.187,-0.186, &-0.186,-0.185,-0.185,-0.184,-0.184,-0.183,-0.182,-0.182,-0.181, &-0.181,-0.180,-0.180,-0.179,-0.178,-0.178,-0.177,-0.177,-0.176, &-0.176,-0.175,-0.174,-0.174,-0.173,-0.173,-0.172,-0.172,-0.171, &-0.170,-0.170,-0.169,-0.169,-0.168,-0.168,-0.167,-0.166,-0.166, &-0.165,-0.165,-0.164,-0.164,-0.163,-0.162,-0.162,-0.161,-0.161, &-0.160,-0.160,-0.159,-0.158,-0.158,-0.157,-0.157,-0.156,-0.156, &-0.155,-0.155,-0.154,-0.153,-0.153,-0.152,-0.152,-0.151,-0.151, &-0.150,-0.150,-0.149,-0.148,-0.148,-0.147,-0.147,-0.146,-0.146, &-0.145,-0.145,-0.144,-0.143,-0.143,-0.142,-0.142,-0.141,-0.141, &-0.140,-0.140,-0.139,-0.139,-0.138,-0.137,-0.137,-0.136,-0.136, &-0.135,-0.135,-0.134,-0.134,-0.133,-0.133,-0.132,-0.131,-0.131, &-0.130,-0.130,-0.129,-0.129,-0.128,-0.128,-0.127,-0.127,-0.126, &-0.126,-0.125,-0.125,-0.124,-0.123,-0.123,-0.122,-0.122,-0.121, &-0.121,-0.120,-0.120,-0.119,-0.119,-0.118,-0.118,-0.117,-0.117, &-0.116,-0.116,-0.115,-0.115,-0.114,-0.113,-0.113,-0.112,-0.112, &-0.111,-0.111,-0.110,-0.110,-0.109,-0.109,-0.108,-0.108,-0.107, &-0.107,-0.106,-0.106,-0.105,-0.105,-0.104,-0.104,-0.103,-0.103, &-0.102,-0.102,-0.101,-0.101,-0.100,-0.100,-0.099,-0.099,-0.098, &-0.098,-0.097,-0.097,-0.096,-0.096,-0.095,-0.095,-0.094,-0.094, &-0.093,-0.093,-0.092,-0.092,-0.091,-0.091,-0.090,-0.090,-0.089, &-0.089,-0.088,-0.088,-0.087,-0.087,-0.086,-0.086,-0.085,-0.085, &-0.084,-0.084,-0.083,-0.083,-0.082,-0.082,-0.081,-0.081,-0.080, &-0.080,-0.079,-0.079,-0.078,-0.078,-0.077,-0.077,-0.077,-0.076, &-0.076,-0.075,-0.075,-0.074,-0.069,-0.064,-0.060,-0.055,-0.051, &-0.046,-0.042,-0.037,-0.033,-0.028,-0.024,-0.020,-0.016,-0.012, &-0.008,-0.004, 0.000, 0.004, 0.008, 0.012, 0.016, 0.020, 0.024, & 0.028, 0.031, 0.035, 0.039, 0.042, 0.046, 0.049, 0.053, 0.056, & 0.060, 0.063, 0.067, 0.070, 0.073, 0.077, 0.080, 0.083, 0.087, & 0.090, 0.093, 0.096, 0.099, 0.102, 0.105, 0.108, 0.111, 0.114, & 0.117, 0.120, 0.123, 0.126, 0.129, 0.132, 0.135, 0.138, 0.141, & 0.143, 0.146, 0.149, 0.152, 0.154, 0.157, 0.160, 0.162, 0.165, & 0.168, 0.170, 0.173, 0.176, 0.178, 0.181, 0.183, 0.186, 0.188, & 0.191, 0.193, 0.196, 0.198, 0.200, 0.203, 0.205, 0.208, 0.210, & 0.212, 0.215, 0.217, 0.219, 0.221, 0.224, 0.226, 0.228, 0.231, & 0.233, 0.235, 0.237, 0.239, 0.242, 0.244, 0.246, 0.248, 0.250, & 0.252, 0.254, 0.256, 0.258, 0.261, 0.263, 0.265, 0.267, 0.269, & 0.271, 0.273, 0.275, 0.277, 0.279, 0.281, 0.283, 0.285, 0.286, & 0.288, 0.290, 0.292, 0.294, 0.296, 0.298, 0.300, 0.302, 0.304, & 0.305, 0.307, 0.309, 0.311, 0.313, 0.314, 0.316, 0.318, 0.320, & 0.322, 0.323, 0.325, 0.327, 0.329, 0.330, 0.332, 0.334, 0.335, & 0.337, 0.339, 0.341, 0.342, 0.344, 0.346, 0.347, 0.349, 0.350, & 0.352, 0.354, 0.355 & / C C *** MGSO4 C DATA BNC21M/ &-0.185,-0.400,-0.506,-0.579,-0.636,-0.683,-0.723,-0.757,-0.787, &-0.814,-0.839,-0.861,-0.881,-0.900,-0.917,-0.934,-0.949,-0.963, &-0.977,-0.989,-1.001,-1.013,-1.023,-1.034,-1.044,-1.053,-1.062, &-1.071,-1.079,-1.087,-1.094,-1.102,-1.109,-1.116,-1.122,-1.129, &-1.135,-1.141,-1.147,-1.152,-1.158,-1.163,-1.168,-1.173,-1.178, &-1.183,-1.187,-1.192,-1.196,-1.200,-1.205,-1.209,-1.213,-1.216, &-1.220,-1.224,-1.228,-1.231,-1.235,-1.238,-1.241,-1.244,-1.248, &-1.251,-1.254,-1.257,-1.260,-1.263,-1.265,-1.268,-1.271,-1.274, &-1.276,-1.279,-1.281,-1.284,-1.286,-1.288,-1.291,-1.293,-1.295, &-1.297,-1.300,-1.302,-1.304,-1.306,-1.308,-1.310,-1.312,-1.314, &-1.316,-1.317,-1.319,-1.321,-1.323,-1.324,-1.326,-1.328,-1.329, &-1.331,-1.333,-1.334,-1.336,-1.337,-1.339,-1.340,-1.341,-1.343, &-1.344,-1.346,-1.347,-1.348,-1.350,-1.351,-1.352,-1.353,-1.355, &-1.356,-1.357,-1.358,-1.359,-1.360,-1.362,-1.363,-1.364,-1.365, &-1.366,-1.367,-1.368,-1.369,-1.370,-1.371,-1.372,-1.373,-1.374, &-1.375,-1.376,-1.377,-1.377,-1.378,-1.379,-1.380,-1.381,-1.382, &-1.383,-1.383,-1.384,-1.385,-1.386,-1.387,-1.387,-1.388,-1.389, &-1.390,-1.390,-1.391,-1.392,-1.393,-1.393,-1.394,-1.395,-1.395, &-1.396,-1.397,-1.397,-1.398,-1.399,-1.399,-1.400,-1.401,-1.401, &-1.402,-1.402,-1.403,-1.404,-1.404,-1.405,-1.405,-1.406,-1.406, &-1.407,-1.407,-1.408,-1.408,-1.409,-1.410,-1.410,-1.411,-1.411, &-1.412,-1.412,-1.412,-1.413,-1.413,-1.414,-1.414,-1.415,-1.415, &-1.416,-1.416,-1.417,-1.417,-1.417,-1.418,-1.418,-1.419,-1.419, &-1.420,-1.420,-1.420,-1.421,-1.421,-1.422,-1.422,-1.422,-1.423, &-1.423,-1.423,-1.424,-1.424,-1.424,-1.425,-1.425,-1.426,-1.426, &-1.426,-1.427,-1.427,-1.427,-1.428,-1.428,-1.428,-1.428,-1.429, &-1.429,-1.429,-1.430,-1.430,-1.430,-1.431,-1.431,-1.431,-1.431, &-1.432,-1.432,-1.432,-1.433,-1.433,-1.433,-1.433,-1.434,-1.434, &-1.434,-1.434,-1.435,-1.435,-1.435,-1.435,-1.436,-1.436,-1.436, &-1.436,-1.437,-1.437,-1.437,-1.437,-1.437,-1.438,-1.438,-1.438, &-1.438,-1.439,-1.439,-1.439,-1.439,-1.439,-1.440,-1.440,-1.440, &-1.440,-1.440,-1.441,-1.441,-1.441,-1.441,-1.441,-1.441,-1.442, &-1.442,-1.442,-1.442,-1.442,-1.442,-1.443,-1.443,-1.443,-1.443, &-1.443,-1.443,-1.444,-1.444,-1.444,-1.444,-1.444,-1.444,-1.445, &-1.445,-1.445,-1.445,-1.445,-1.445,-1.445,-1.446,-1.446,-1.446, &-1.446,-1.446,-1.446,-1.446,-1.446,-1.447,-1.447,-1.447,-1.447, &-1.447,-1.447,-1.447,-1.447,-1.448,-1.448,-1.448,-1.448,-1.448, &-1.448,-1.448,-1.448,-1.448,-1.449,-1.449,-1.449,-1.449,-1.449, &-1.449,-1.449,-1.449,-1.449,-1.449,-1.450,-1.450,-1.450,-1.450, &-1.450,-1.450,-1.450,-1.450,-1.450,-1.450,-1.450,-1.451,-1.451, &-1.451,-1.451,-1.451,-1.451,-1.451,-1.451,-1.451,-1.451,-1.451, &-1.451,-1.451,-1.451,-1.452,-1.452,-1.452,-1.452,-1.452,-1.452, &-1.452,-1.452,-1.452,-1.452,-1.452,-1.452,-1.452,-1.452,-1.452, &-1.453,-1.453,-1.453,-1.453,-1.453,-1.453,-1.453,-1.453,-1.453, &-1.453,-1.453,-1.453,-1.453,-1.454,-1.454,-1.454,-1.455,-1.455, &-1.455,-1.455,-1.455,-1.455,-1.455,-1.455,-1.455,-1.455,-1.455, &-1.454,-1.454,-1.454,-1.454,-1.453,-1.453,-1.453,-1.452,-1.452, &-1.452,-1.451,-1.451,-1.450,-1.450,-1.450,-1.449,-1.449,-1.448, &-1.448,-1.447,-1.447,-1.446,-1.446,-1.445,-1.445,-1.444,-1.444, &-1.443,-1.442,-1.442,-1.441,-1.441,-1.440,-1.440,-1.439,-1.438, &-1.438,-1.437,-1.437,-1.436,-1.436,-1.435,-1.434,-1.434,-1.433, &-1.433,-1.432,-1.431,-1.431,-1.430,-1.430,-1.429,-1.428,-1.428, &-1.427,-1.426,-1.426,-1.425,-1.425,-1.424,-1.423,-1.423,-1.422, &-1.422,-1.421,-1.420,-1.420,-1.419,-1.418,-1.418,-1.417,-1.417, &-1.416,-1.415,-1.415,-1.414,-1.414,-1.413,-1.412,-1.412,-1.411, &-1.411,-1.410,-1.409,-1.409,-1.408,-1.408,-1.407,-1.406,-1.406, &-1.405,-1.405,-1.404,-1.403,-1.403,-1.402,-1.402,-1.401,-1.400, &-1.400,-1.399,-1.399,-1.398,-1.398,-1.397,-1.396,-1.396,-1.395, &-1.395,-1.394,-1.394,-1.393,-1.392,-1.392,-1.391,-1.391,-1.390, &-1.390,-1.389,-1.388,-1.388,-1.387,-1.387,-1.386,-1.386,-1.385, &-1.385,-1.384,-1.383,-1.383,-1.382,-1.382,-1.381,-1.381,-1.380, &-1.380,-1.379,-1.378,-1.378,-1.377,-1.377,-1.376,-1.376,-1.375, &-1.375,-1.374,-1.374 & / C C *** MGNO32 C DATA BNC22M/ &-0.091,-0.189,-0.233,-0.262,-0.283,-0.299,-0.312,-0.322,-0.330, &-0.337,-0.343,-0.347,-0.351,-0.354,-0.356,-0.358,-0.359,-0.360, &-0.361,-0.361,-0.361,-0.360,-0.360,-0.359,-0.358,-0.356,-0.355, &-0.354,-0.352,-0.350,-0.348,-0.346,-0.344,-0.342,-0.340,-0.337, &-0.335,-0.332,-0.330,-0.327,-0.325,-0.322,-0.319,-0.316,-0.314, &-0.311,-0.308,-0.305,-0.302,-0.299,-0.297,-0.294,-0.291,-0.288, &-0.285,-0.282,-0.279,-0.276,-0.273,-0.270,-0.267,-0.263,-0.260, &-0.257,-0.254,-0.251,-0.248,-0.245,-0.242,-0.238,-0.235,-0.232, &-0.229,-0.225,-0.222,-0.219,-0.215,-0.212,-0.209,-0.205,-0.202, &-0.198,-0.195,-0.191,-0.188,-0.184,-0.181,-0.177,-0.173,-0.170, &-0.166,-0.162,-0.159,-0.155,-0.151,-0.147,-0.143,-0.140,-0.136, &-0.132,-0.128,-0.124,-0.120,-0.116,-0.112,-0.108,-0.104,-0.100, &-0.096,-0.091,-0.087,-0.083,-0.079,-0.075,-0.071,-0.067,-0.062, &-0.058,-0.054,-0.050,-0.046,-0.041,-0.037,-0.033,-0.029,-0.024, &-0.020,-0.016,-0.012,-0.008,-0.003, 0.001, 0.005, 0.009, 0.014, & 0.018, 0.022, 0.026, 0.031, 0.035, 0.039, 0.043, 0.047, 0.052, & 0.056, 0.060, 0.064, 0.069, 0.073, 0.077, 0.081, 0.085, 0.090, & 0.094, 0.098, 0.102, 0.106, 0.110, 0.115, 0.119, 0.123, 0.127, & 0.131, 0.135, 0.140, 0.144, 0.148, 0.152, 0.156, 0.160, 0.164, & 0.169, 0.173, 0.177, 0.181, 0.185, 0.189, 0.193, 0.197, 0.201, & 0.205, 0.209, 0.214, 0.218, 0.222, 0.226, 0.230, 0.234, 0.238, & 0.242, 0.246, 0.250, 0.254, 0.258, 0.262, 0.266, 0.270, 0.274, & 0.278, 0.282, 0.286, 0.290, 0.294, 0.298, 0.302, 0.306, 0.310, & 0.314, 0.318, 0.321, 0.325, 0.329, 0.333, 0.337, 0.341, 0.345, & 0.349, 0.353, 0.357, 0.361, 0.364, 0.368, 0.372, 0.376, 0.380, & 0.384, 0.388, 0.391, 0.395, 0.399, 0.403, 0.407, 0.410, 0.414, & 0.418, 0.422, 0.426, 0.429, 0.433, 0.437, 0.441, 0.445, 0.448, & 0.452, 0.456, 0.459, 0.463, 0.467, 0.471, 0.474, 0.478, 0.482, & 0.486, 0.489, 0.493, 0.497, 0.500, 0.504, 0.508, 0.511, 0.515, & 0.519, 0.522, 0.526, 0.530, 0.533, 0.537, 0.540, 0.544, 0.548, & 0.551, 0.555, 0.559, 0.562, 0.566, 0.569, 0.573, 0.576, 0.580, & 0.584, 0.587, 0.591, 0.594, 0.598, 0.601, 0.605, 0.608, 0.612, & 0.615, 0.619, 0.622, 0.626, 0.629, 0.633, 0.636, 0.640, 0.643, & 0.647, 0.650, 0.654, 0.657, 0.661, 0.664, 0.668, 0.671, 0.674, & 0.678, 0.681, 0.685, 0.688, 0.691, 0.695, 0.698, 0.702, 0.705, & 0.708, 0.712, 0.715, 0.719, 0.722, 0.725, 0.729, 0.732, 0.735, & 0.739, 0.742, 0.745, 0.749, 0.752, 0.755, 0.759, 0.762, 0.765, & 0.768, 0.772, 0.775, 0.778, 0.782, 0.785, 0.788, 0.791, 0.795, & 0.798, 0.801, 0.804, 0.808, 0.811, 0.814, 0.817, 0.821, 0.824, & 0.827, 0.830, 0.833, 0.837, 0.840, 0.843, 0.846, 0.849, 0.853, & 0.856, 0.859, 0.862, 0.865, 0.868, 0.872, 0.875, 0.878, 0.881, & 0.884, 0.887, 0.890, 0.893, 0.897, 0.900, 0.903, 0.906, 0.909, & 0.912, 0.915, 0.918, 0.921, 0.924, 0.928, 0.931, 0.934, 0.937, & 0.940, 0.943, 0.946, 0.949, 0.952, 0.955, 0.958, 0.961, 0.964, & 0.967, 0.970, 0.973, 0.976, 1.008, 1.038, 1.067, 1.095, 1.124, & 1.152, 1.179, 1.206, 1.233, 1.260, 1.286, 1.312, 1.337, 1.363, & 1.387, 1.412, 1.437, 1.461, 1.484, 1.508, 1.531, 1.554, 1.577, & 1.600, 1.622, 1.644, 1.666, 1.687, 1.709, 1.730, 1.751, 1.772, & 1.792, 1.812, 1.832, 1.852, 1.872, 1.892, 1.911, 1.930, 1.949, & 1.968, 1.987, 2.005, 2.023, 2.042, 2.060, 2.077, 2.095, 2.113, & 2.130, 2.147, 2.164, 2.181, 2.198, 2.215, 2.231, 2.248, 2.264, & 2.280, 2.296, 2.312, 2.328, 2.343, 2.359, 2.374, 2.389, 2.405, & 2.420, 2.435, 2.449, 2.464, 2.479, 2.493, 2.508, 2.522, 2.536, & 2.550, 2.564, 2.578, 2.592, 2.606, 2.619, 2.633, 2.646, 2.660, & 2.673, 2.686, 2.699, 2.712, 2.725, 2.738, 2.751, 2.763, 2.776, & 2.788, 2.801, 2.813, 2.826, 2.838, 2.850, 2.862, 2.874, 2.886, & 2.898, 2.910, 2.921, 2.933, 2.945, 2.956, 2.967, 2.979, 2.990, & 3.001, 3.013, 3.024, 3.035, 3.046, 3.057, 3.068, 3.079, 3.089, & 3.100, 3.111, 3.121, 3.132, 3.142, 3.153, 3.163, 3.173, 3.184, & 3.194, 3.204, 3.214, 3.224, 3.234, 3.244, 3.254, 3.264, 3.274, & 3.284, 3.293, 3.303, 3.313, 3.322, 3.332, 3.341, 3.351, 3.360, & 3.370, 3.379, 3.388, 3.397, 3.407, 3.416, 3.425, 3.434, 3.443, & 3.452, 3.461, 3.470 & / C C *** MGCL2 C DATA BNC23M/ &-0.090,-0.186,-0.229,-0.256,-0.276,-0.290,-0.302,-0.310,-0.317, &-0.322,-0.327,-0.330,-0.332,-0.333,-0.334,-0.335,-0.335,-0.334, &-0.333,-0.332,-0.331,-0.329,-0.327,-0.325,-0.322,-0.320,-0.317, &-0.314,-0.311,-0.308,-0.305,-0.301,-0.298,-0.294,-0.291,-0.287, &-0.283,-0.279,-0.275,-0.272,-0.268,-0.264,-0.260,-0.255,-0.251, &-0.247,-0.243,-0.239,-0.235,-0.231,-0.226,-0.222,-0.218,-0.214, &-0.209,-0.205,-0.201,-0.196,-0.192,-0.188,-0.184,-0.179,-0.175, &-0.170,-0.166,-0.162,-0.157,-0.153,-0.148,-0.144,-0.139,-0.135, &-0.130,-0.126,-0.121,-0.117,-0.112,-0.107,-0.103,-0.098,-0.093, &-0.089,-0.084,-0.079,-0.074,-0.069,-0.065,-0.060,-0.055,-0.050, &-0.045,-0.040,-0.034,-0.029,-0.024,-0.019,-0.014,-0.009,-0.003, & 0.002, 0.007, 0.013, 0.018, 0.023, 0.029, 0.034, 0.040, 0.045, & 0.050, 0.056, 0.061, 0.067, 0.073, 0.078, 0.084, 0.089, 0.095, & 0.100, 0.106, 0.112, 0.117, 0.123, 0.128, 0.134, 0.140, 0.145, & 0.151, 0.157, 0.162, 0.168, 0.174, 0.179, 0.185, 0.190, 0.196, & 0.202, 0.207, 0.213, 0.219, 0.224, 0.230, 0.235, 0.241, 0.247, & 0.252, 0.258, 0.263, 0.269, 0.275, 0.280, 0.286, 0.291, 0.297, & 0.302, 0.308, 0.313, 0.319, 0.325, 0.330, 0.336, 0.341, 0.347, & 0.352, 0.358, 0.363, 0.369, 0.374, 0.380, 0.385, 0.390, 0.396, & 0.401, 0.407, 0.412, 0.418, 0.423, 0.428, 0.434, 0.439, 0.445, & 0.450, 0.455, 0.461, 0.466, 0.471, 0.477, 0.482, 0.487, 0.493, & 0.498, 0.503, 0.509, 0.514, 0.519, 0.525, 0.530, 0.535, 0.540, & 0.546, 0.551, 0.556, 0.561, 0.567, 0.572, 0.577, 0.582, 0.587, & 0.593, 0.598, 0.603, 0.608, 0.613, 0.618, 0.624, 0.629, 0.634, & 0.639, 0.644, 0.649, 0.654, 0.659, 0.664, 0.669, 0.675, 0.680, & 0.685, 0.690, 0.695, 0.700, 0.705, 0.710, 0.715, 0.720, 0.725, & 0.730, 0.735, 0.740, 0.745, 0.750, 0.755, 0.759, 0.764, 0.769, & 0.774, 0.779, 0.784, 0.789, 0.794, 0.799, 0.804, 0.808, 0.813, & 0.818, 0.823, 0.828, 0.833, 0.837, 0.842, 0.847, 0.852, 0.857, & 0.861, 0.866, 0.871, 0.876, 0.880, 0.885, 0.890, 0.895, 0.899, & 0.904, 0.909, 0.914, 0.918, 0.923, 0.928, 0.932, 0.937, 0.942, & 0.946, 0.951, 0.955, 0.960, 0.965, 0.969, 0.974, 0.979, 0.983, & 0.988, 0.992, 0.997, 1.001, 1.006, 1.011, 1.015, 1.020, 1.024, & 1.029, 1.033, 1.038, 1.042, 1.047, 1.051, 1.056, 1.060, 1.065, & 1.069, 1.073, 1.078, 1.082, 1.087, 1.091, 1.096, 1.100, 1.104, & 1.109, 1.113, 1.118, 1.122, 1.126, 1.131, 1.135, 1.139, 1.144, & 1.148, 1.152, 1.157, 1.161, 1.165, 1.170, 1.174, 1.178, 1.183, & 1.187, 1.191, 1.195, 1.200, 1.204, 1.208, 1.212, 1.217, 1.221, & 1.225, 1.229, 1.234, 1.238, 1.242, 1.246, 1.250, 1.255, 1.259, & 1.263, 1.267, 1.271, 1.275, 1.279, 1.284, 1.288, 1.292, 1.296, & 1.300, 1.304, 1.308, 1.312, 1.316, 1.321, 1.325, 1.329, 1.333, & 1.337, 1.341, 1.345, 1.349, 1.353, 1.357, 1.361, 1.365, 1.369, & 1.373, 1.377, 1.381, 1.385, 1.389, 1.393, 1.397, 1.401, 1.405, & 1.409, 1.413, 1.417, 1.421, 1.425, 1.428, 1.432, 1.436, 1.440, & 1.444, 1.448, 1.452, 1.456, 1.497, 1.535, 1.573, 1.610, 1.646, & 1.682, 1.717, 1.752, 1.787, 1.821, 1.854, 1.888, 1.920, 1.953, & 1.985, 2.016, 2.048, 2.078, 2.109, 2.139, 2.169, 2.198, 2.227, & 2.256, 2.285, 2.313, 2.341, 2.368, 2.395, 2.422, 2.449, 2.475, & 2.501, 2.527, 2.553, 2.578, 2.603, 2.628, 2.653, 2.677, 2.701, & 2.725, 2.749, 2.772, 2.796, 2.819, 2.841, 2.864, 2.887, 2.909, & 2.931, 2.953, 2.974, 2.996, 3.017, 3.038, 3.059, 3.080, 3.100, & 3.121, 3.141, 3.161, 3.181, 3.201, 3.221, 3.240, 3.259, 3.279, & 3.298, 3.317, 3.335, 3.354, 3.372, 3.391, 3.409, 3.427, 3.445, & 3.463, 3.480, 3.498, 3.516, 3.533, 3.550, 3.567, 3.584, 3.601, & 3.618, 3.634, 3.651, 3.667, 3.684, 3.700, 3.716, 3.732, 3.748, & 3.764, 3.779, 3.795, 3.810, 3.826, 3.841, 3.856, 3.872, 3.887, & 3.902, 3.916, 3.931, 3.946, 3.961, 3.975, 3.989, 4.004, 4.018, & 4.032, 4.046, 4.060, 4.074, 4.088, 4.102, 4.116, 4.129, 4.143, & 4.157, 4.170, 4.183, 4.197, 4.210, 4.223, 4.236, 4.249, 4.262, & 4.275, 4.288, 4.300, 4.313, 4.326, 4.338, 4.351, 4.363, 4.376, & 4.388, 4.400, 4.412, 4.424, 4.436, 4.449, 4.460, 4.472, 4.484, & 4.496, 4.508, 4.519, 4.531, 4.543, 4.554, 4.566, 4.577, 4.588, & 4.600, 4.611, 4.622 & / END C C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE KM323 C *** CALCULATES BINARY ACTIVITY COEFFICIENTS BY KUSIK-MEISSNER METHOD. C THE COMPUTATIONS HAVE BEEN PERFORMED AND THE RESULTS ARE STORED IN C LOOKUP TABLES. THE IONIC ACTIVITY 'IN' IS INPUT, AND THE ARRAY C 'BINARR' IS RETURNED WITH THE BINARY COEFFICIENTS. C C TEMPERATURE IS 323K C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE KM323 (IONIC, BINARR) C C *** Common block definition C COMMON /KMC323/ &BNC01M( 561),BNC02M( 561),BNC03M( 561),BNC04M( 561), &BNC05M( 561),BNC06M( 561),BNC07M( 561),BNC08M( 561), &BNC09M( 561),BNC10M( 561),BNC11M( 561),BNC12M( 561), &BNC13M( 561),BNC14M( 561),BNC15M( 561),BNC16M( 561), &BNC17M( 561),BNC18M( 561),BNC19M( 561),BNC20M( 561), &BNC21M( 561),BNC22M( 561),BNC23M( 561) REAL Binarr (23), Ionic C C *** Find position in arrays for bincoef C IF (Ionic.LE. 0.200000E+02) THEN ipos = MIN(NINT( 0.200000E+02*Ionic) + 1, 400) ELSE ipos = 400+NINT( 0.200000E+01*Ionic- 0.400000E+02) ENDIF ipos = min(ipos, 561) C C *** Assign values to return array C Binarr(01) = BNC01M(ipos) Binarr(02) = BNC02M(ipos) Binarr(03) = BNC03M(ipos) Binarr(04) = BNC04M(ipos) Binarr(05) = BNC05M(ipos) Binarr(06) = BNC06M(ipos) Binarr(07) = BNC07M(ipos) Binarr(08) = BNC08M(ipos) Binarr(09) = BNC09M(ipos) Binarr(10) = BNC10M(ipos) Binarr(11) = BNC11M(ipos) Binarr(12) = BNC12M(ipos) Binarr(13) = BNC13M(ipos) Binarr(14) = BNC14M(ipos) Binarr(15) = BNC15M(ipos) Binarr(16) = BNC16M(ipos) Binarr(17) = BNC17M(ipos) Binarr(18) = BNC18M(ipos) Binarr(19) = BNC19M(ipos) Binarr(20) = BNC20M(ipos) Binarr(21) = BNC21M(ipos) Binarr(22) = BNC22M(ipos) Binarr(23) = BNC23M(ipos) C C *** Return point ; End of subroutine C RETURN END BLOCK DATA KMCF323 C C *** Common block definition C COMMON /KMC323/ &BNC01M( 561),BNC02M( 561),BNC03M( 561),BNC04M( 561), &BNC05M( 561),BNC06M( 561),BNC07M( 561),BNC08M( 561), &BNC09M( 561),BNC10M( 561),BNC11M( 561),BNC12M( 561), &BNC13M( 561),BNC14M( 561),BNC15M( 561),BNC16M( 561), &BNC17M( 561),BNC18M( 561),BNC19M( 561),BNC20M( 561), &BNC21M( 561),BNC22M( 561),BNC23M( 561) C C *** NaCl C DATA BNC01M/ &-0.044,-0.092,-0.114,-0.129,-0.139,-0.147,-0.154,-0.159,-0.163, &-0.167,-0.170,-0.172,-0.174,-0.176,-0.177,-0.178,-0.179,-0.180, &-0.180,-0.181,-0.181,-0.181,-0.181,-0.180,-0.180,-0.180,-0.179, &-0.179,-0.178,-0.177,-0.177,-0.176,-0.175,-0.174,-0.173,-0.172, &-0.171,-0.170,-0.169,-0.168,-0.167,-0.166,-0.165,-0.163,-0.162, &-0.161,-0.160,-0.159,-0.157,-0.156,-0.155,-0.153,-0.152,-0.151, &-0.150,-0.148,-0.147,-0.146,-0.144,-0.143,-0.142,-0.140,-0.139, &-0.137,-0.136,-0.135,-0.133,-0.132,-0.130,-0.129,-0.127,-0.126, &-0.125,-0.123,-0.122,-0.120,-0.119,-0.117,-0.116,-0.114,-0.113, &-0.111,-0.109,-0.108,-0.106,-0.105,-0.103,-0.101,-0.100,-0.098, &-0.096,-0.095,-0.093,-0.091,-0.090,-0.088,-0.086,-0.084,-0.083, &-0.081,-0.079,-0.077,-0.076,-0.074,-0.072,-0.070,-0.068,-0.066, &-0.065,-0.063,-0.061,-0.059,-0.057,-0.055,-0.053,-0.052,-0.050, &-0.048,-0.046,-0.044,-0.042,-0.040,-0.038,-0.036,-0.035,-0.033, &-0.031,-0.029,-0.027,-0.025,-0.023,-0.021,-0.019,-0.017,-0.015, &-0.013,-0.012,-0.010,-0.008,-0.006,-0.004,-0.002, 0.000, 0.002, & 0.004, 0.006, 0.008, 0.009, 0.011, 0.013, 0.015, 0.017, 0.019, & 0.021, 0.023, 0.025, 0.027, 0.028, 0.030, 0.032, 0.034, 0.036, & 0.038, 0.040, 0.042, 0.044, 0.045, 0.047, 0.049, 0.051, 0.053, & 0.055, 0.057, 0.059, 0.060, 0.062, 0.064, 0.066, 0.068, 0.070, & 0.072, 0.074, 0.075, 0.077, 0.079, 0.081, 0.083, 0.085, 0.086, & 0.088, 0.090, 0.092, 0.094, 0.096, 0.097, 0.099, 0.101, 0.103, & 0.105, 0.107, 0.108, 0.110, 0.112, 0.114, 0.116, 0.117, 0.119, & 0.121, 0.123, 0.125, 0.127, 0.128, 0.130, 0.132, 0.134, 0.135, & 0.137, 0.139, 0.141, 0.143, 0.144, 0.146, 0.148, 0.150, 0.151, & 0.153, 0.155, 0.157, 0.159, 0.160, 0.162, 0.164, 0.166, 0.167, & 0.169, 0.171, 0.173, 0.174, 0.176, 0.178, 0.180, 0.181, 0.183, & 0.185, 0.186, 0.188, 0.190, 0.192, 0.193, 0.195, 0.197, 0.198, & 0.200, 0.202, 0.204, 0.205, 0.207, 0.209, 0.210, 0.212, 0.214, & 0.215, 0.217, 0.219, 0.221, 0.222, 0.224, 0.226, 0.227, 0.229, & 0.231, 0.232, 0.234, 0.236, 0.237, 0.239, 0.241, 0.242, 0.244, & 0.246, 0.247, 0.249, 0.250, 0.252, 0.254, 0.255, 0.257, 0.259, & 0.260, 0.262, 0.264, 0.265, 0.267, 0.268, 0.270, 0.272, 0.273, & 0.275, 0.276, 0.278, 0.280, 0.281, 0.283, 0.285, 0.286, 0.288, & 0.289, 0.291, 0.293, 0.294, 0.296, 0.297, 0.299, 0.300, 0.302, & 0.304, 0.305, 0.307, 0.308, 0.310, 0.311, 0.313, 0.315, 0.316, & 0.318, 0.319, 0.321, 0.322, 0.324, 0.325, 0.327, 0.329, 0.330, & 0.332, 0.333, 0.335, 0.336, 0.338, 0.339, 0.341, 0.342, 0.344, & 0.345, 0.347, 0.349, 0.350, 0.352, 0.353, 0.355, 0.356, 0.358, & 0.359, 0.361, 0.362, 0.364, 0.365, 0.367, 0.368, 0.370, 0.371, & 0.373, 0.374, 0.376, 0.377, 0.379, 0.380, 0.382, 0.383, 0.384, & 0.386, 0.387, 0.389, 0.390, 0.392, 0.393, 0.395, 0.396, 0.398, & 0.399, 0.401, 0.402, 0.404, 0.405, 0.406, 0.408, 0.409, 0.411, & 0.412, 0.414, 0.415, 0.417, 0.418, 0.419, 0.421, 0.422, 0.424, & 0.425, 0.427, 0.428, 0.429, 0.445, 0.459, 0.472, 0.486, 0.499, & 0.513, 0.526, 0.539, 0.552, 0.565, 0.577, 0.590, 0.602, 0.614, & 0.626, 0.638, 0.650, 0.662, 0.674, 0.685, 0.697, 0.708, 0.719, & 0.730, 0.741, 0.752, 0.763, 0.773, 0.784, 0.795, 0.805, 0.815, & 0.825, 0.836, 0.846, 0.856, 0.866, 0.875, 0.885, 0.895, 0.904, & 0.914, 0.923, 0.933, 0.942, 0.951, 0.960, 0.969, 0.979, 0.987, & 0.996, 1.005, 1.014, 1.023, 1.031, 1.040, 1.049, 1.057, 1.065, & 1.074, 1.082, 1.090, 1.099, 1.107, 1.115, 1.123, 1.131, 1.139, & 1.147, 1.155, 1.163, 1.170, 1.178, 1.186, 1.193, 1.201, 1.209, & 1.216, 1.224, 1.231, 1.238, 1.246, 1.253, 1.260, 1.267, 1.275, & 1.282, 1.289, 1.296, 1.303, 1.310, 1.317, 1.324, 1.331, 1.338, & 1.345, 1.351, 1.358, 1.365, 1.372, 1.378, 1.385, 1.392, 1.398, & 1.405, 1.411, 1.418, 1.424, 1.431, 1.437, 1.443, 1.450, 1.456, & 1.462, 1.469, 1.475, 1.481, 1.487, 1.493, 1.500, 1.506, 1.512, & 1.518, 1.524, 1.530, 1.536, 1.542, 1.548, 1.554, 1.560, 1.565, & 1.571, 1.577, 1.583, 1.589, 1.594, 1.600, 1.606, 1.612, 1.617, & 1.623, 1.629, 1.634, 1.640, 1.645, 1.651, 1.656, 1.662, 1.667, & 1.673, 1.678, 1.684, 1.689, 1.695, 1.700, 1.705, 1.711, 1.716, & 1.721, 1.727, 1.732 & / C C *** Na2SO4 C DATA BNC02M/ &-0.091,-0.196,-0.249,-0.285,-0.314,-0.337,-0.358,-0.375,-0.390, &-0.404,-0.417,-0.428,-0.439,-0.449,-0.458,-0.466,-0.475,-0.482, &-0.489,-0.496,-0.502,-0.508,-0.514,-0.520,-0.525,-0.530,-0.535, &-0.540,-0.544,-0.549,-0.553,-0.557,-0.561,-0.565,-0.569,-0.572, &-0.576,-0.579,-0.582,-0.585,-0.588,-0.591,-0.594,-0.597,-0.600, &-0.603,-0.605,-0.608,-0.610,-0.613,-0.615,-0.617,-0.620,-0.622, &-0.624,-0.626,-0.628,-0.630,-0.632,-0.634,-0.636,-0.638,-0.640, &-0.641,-0.643,-0.645,-0.647,-0.648,-0.650,-0.651,-0.653,-0.654, &-0.656,-0.657,-0.659,-0.660,-0.662,-0.663,-0.665,-0.666,-0.667, &-0.669,-0.670,-0.671,-0.672,-0.674,-0.675,-0.676,-0.677,-0.678, &-0.679,-0.681,-0.682,-0.683,-0.684,-0.685,-0.686,-0.687,-0.688, &-0.689,-0.690,-0.691,-0.692,-0.693,-0.694,-0.695,-0.696,-0.697, &-0.698,-0.699,-0.700,-0.701,-0.701,-0.702,-0.703,-0.704,-0.705, &-0.706,-0.706,-0.707,-0.708,-0.709,-0.710,-0.710,-0.711,-0.712, &-0.713,-0.713,-0.714,-0.715,-0.716,-0.716,-0.717,-0.718,-0.718, &-0.719,-0.720,-0.720,-0.721,-0.722,-0.722,-0.723,-0.724,-0.724, &-0.725,-0.725,-0.726,-0.727,-0.727,-0.728,-0.728,-0.729,-0.730, &-0.730,-0.731,-0.731,-0.732,-0.732,-0.733,-0.733,-0.734,-0.734, &-0.735,-0.735,-0.736,-0.736,-0.737,-0.737,-0.738,-0.738,-0.739, &-0.739,-0.740,-0.740,-0.741,-0.741,-0.742,-0.742,-0.742,-0.743, &-0.743,-0.744,-0.744,-0.745,-0.745,-0.745,-0.746,-0.746,-0.747, &-0.747,-0.747,-0.748,-0.748,-0.748,-0.749,-0.749,-0.750,-0.750, &-0.750,-0.751,-0.751,-0.751,-0.752,-0.752,-0.752,-0.753,-0.753, &-0.753,-0.754,-0.754,-0.754,-0.755,-0.755,-0.755,-0.755,-0.756, &-0.756,-0.756,-0.757,-0.757,-0.757,-0.758,-0.758,-0.758,-0.758, &-0.759,-0.759,-0.759,-0.759,-0.760,-0.760,-0.760,-0.760,-0.761, &-0.761,-0.761,-0.761,-0.762,-0.762,-0.762,-0.762,-0.763,-0.763, &-0.763,-0.763,-0.764,-0.764,-0.764,-0.764,-0.764,-0.765,-0.765, &-0.765,-0.765,-0.765,-0.766,-0.766,-0.766,-0.766,-0.766,-0.767, &-0.767,-0.767,-0.767,-0.767,-0.768,-0.768,-0.768,-0.768,-0.768, &-0.768,-0.769,-0.769,-0.769,-0.769,-0.769,-0.769,-0.770,-0.770, &-0.770,-0.770,-0.770,-0.770,-0.771,-0.771,-0.771,-0.771,-0.771, &-0.771,-0.771,-0.771,-0.772,-0.772,-0.772,-0.772,-0.772,-0.772, &-0.772,-0.773,-0.773,-0.773,-0.773,-0.773,-0.773,-0.773,-0.773, &-0.773,-0.774,-0.774,-0.774,-0.774,-0.774,-0.774,-0.774,-0.774, &-0.774,-0.775,-0.775,-0.775,-0.775,-0.775,-0.775,-0.775,-0.775, &-0.775,-0.775,-0.775,-0.775,-0.776,-0.776,-0.776,-0.776,-0.776, &-0.776,-0.776,-0.776,-0.776,-0.776,-0.776,-0.776,-0.776,-0.777, &-0.777,-0.777,-0.777,-0.777,-0.777,-0.777,-0.777,-0.777,-0.777, &-0.777,-0.777,-0.777,-0.777,-0.777,-0.777,-0.777,-0.777,-0.778, &-0.778,-0.778,-0.778,-0.778,-0.778,-0.778,-0.778,-0.778,-0.778, &-0.778,-0.778,-0.778,-0.778,-0.778,-0.778,-0.778,-0.778,-0.778, &-0.778,-0.778,-0.778,-0.778,-0.778,-0.778,-0.778,-0.778,-0.778, &-0.778,-0.778,-0.778,-0.778,-0.778,-0.778,-0.778,-0.779,-0.779, &-0.779,-0.779,-0.779,-0.779,-0.779,-0.779,-0.778,-0.778,-0.778, &-0.778,-0.777,-0.777,-0.776,-0.776,-0.775,-0.774,-0.774,-0.773, &-0.772,-0.771,-0.770,-0.769,-0.768,-0.767,-0.766,-0.765,-0.764, &-0.763,-0.762,-0.760,-0.759,-0.758,-0.756,-0.755,-0.754,-0.752, &-0.751,-0.749,-0.748,-0.746,-0.745,-0.743,-0.742,-0.740,-0.739, &-0.737,-0.735,-0.734,-0.732,-0.730,-0.729,-0.727,-0.725,-0.723, &-0.722,-0.720,-0.718,-0.716,-0.714,-0.713,-0.711,-0.709,-0.707, &-0.705,-0.703,-0.701,-0.699,-0.697,-0.695,-0.693,-0.691,-0.690, &-0.688,-0.686,-0.683,-0.681,-0.679,-0.677,-0.675,-0.673,-0.671, &-0.669,-0.667,-0.665,-0.663,-0.661,-0.659,-0.656,-0.654,-0.652, &-0.650,-0.648,-0.646,-0.644,-0.641,-0.639,-0.637,-0.635,-0.633, &-0.630,-0.628,-0.626,-0.624,-0.621,-0.619,-0.617,-0.615,-0.612, &-0.610,-0.608,-0.606,-0.603,-0.601,-0.599,-0.597,-0.594,-0.592, &-0.590,-0.587,-0.585,-0.583,-0.580,-0.578,-0.576,-0.573,-0.571, &-0.569,-0.566,-0.564,-0.562,-0.559,-0.557,-0.555,-0.552,-0.550, &-0.547,-0.545,-0.543,-0.540,-0.538,-0.536,-0.533,-0.531,-0.528, &-0.526,-0.524,-0.521,-0.519,-0.516,-0.514,-0.511,-0.509,-0.507, &-0.504,-0.502,-0.499,-0.497,-0.494,-0.492,-0.490,-0.487,-0.485, &-0.482,-0.480,-0.477 & / C C *** NaNO3 C DATA BNC03M/ &-0.045,-0.099,-0.125,-0.144,-0.159,-0.171,-0.181,-0.190,-0.198, &-0.206,-0.212,-0.218,-0.224,-0.229,-0.234,-0.239,-0.243,-0.247, &-0.251,-0.255,-0.258,-0.261,-0.265,-0.268,-0.271,-0.274,-0.276, &-0.279,-0.281,-0.284,-0.286,-0.289,-0.291,-0.293,-0.295,-0.297, &-0.299,-0.301,-0.303,-0.305,-0.306,-0.308,-0.310,-0.312,-0.313, &-0.315,-0.316,-0.318,-0.319,-0.321,-0.322,-0.323,-0.325,-0.326, &-0.327,-0.329,-0.330,-0.331,-0.332,-0.333,-0.335,-0.336,-0.337, &-0.338,-0.339,-0.340,-0.341,-0.342,-0.343,-0.344,-0.345,-0.346, &-0.347,-0.348,-0.349,-0.350,-0.350,-0.351,-0.352,-0.353,-0.354, &-0.355,-0.356,-0.356,-0.357,-0.358,-0.359,-0.359,-0.360,-0.361, &-0.362,-0.363,-0.363,-0.364,-0.365,-0.365,-0.366,-0.367,-0.368, &-0.368,-0.369,-0.370,-0.370,-0.371,-0.372,-0.372,-0.373,-0.374, &-0.374,-0.375,-0.375,-0.376,-0.377,-0.377,-0.378,-0.378,-0.379, &-0.380,-0.380,-0.381,-0.381,-0.382,-0.383,-0.383,-0.384,-0.384, &-0.385,-0.385,-0.386,-0.386,-0.387,-0.387,-0.388,-0.388,-0.389, &-0.389,-0.390,-0.390,-0.391,-0.391,-0.392,-0.392,-0.393,-0.393, &-0.394,-0.394,-0.395,-0.395,-0.396,-0.396,-0.397,-0.397,-0.397, &-0.398,-0.398,-0.399,-0.399,-0.400,-0.400,-0.400,-0.401,-0.401, &-0.402,-0.402,-0.402,-0.403,-0.403,-0.404,-0.404,-0.404,-0.405, &-0.405,-0.406,-0.406,-0.406,-0.407,-0.407,-0.407,-0.408,-0.408, &-0.408,-0.409,-0.409,-0.409,-0.410,-0.410,-0.411,-0.411,-0.411, &-0.412,-0.412,-0.412,-0.413,-0.413,-0.413,-0.413,-0.414,-0.414, &-0.414,-0.415,-0.415,-0.415,-0.416,-0.416,-0.416,-0.417,-0.417, &-0.417,-0.417,-0.418,-0.418,-0.418,-0.419,-0.419,-0.419,-0.419, &-0.420,-0.420,-0.420,-0.421,-0.421,-0.421,-0.421,-0.422,-0.422, &-0.422,-0.422,-0.423,-0.423,-0.423,-0.423,-0.424,-0.424,-0.424, &-0.424,-0.425,-0.425,-0.425,-0.425,-0.426,-0.426,-0.426,-0.426, &-0.427,-0.427,-0.427,-0.427,-0.428,-0.428,-0.428,-0.428,-0.428, &-0.429,-0.429,-0.429,-0.429,-0.430,-0.430,-0.430,-0.430,-0.430, &-0.431,-0.431,-0.431,-0.431,-0.431,-0.432,-0.432,-0.432,-0.432, &-0.432,-0.433,-0.433,-0.433,-0.433,-0.433,-0.434,-0.434,-0.434, &-0.434,-0.434,-0.435,-0.435,-0.435,-0.435,-0.435,-0.435,-0.436, &-0.436,-0.436,-0.436,-0.436,-0.436,-0.437,-0.437,-0.437,-0.437, &-0.437,-0.438,-0.438,-0.438,-0.438,-0.438,-0.438,-0.438,-0.439, &-0.439,-0.439,-0.439,-0.439,-0.439,-0.440,-0.440,-0.440,-0.440, &-0.440,-0.440,-0.440,-0.441,-0.441,-0.441,-0.441,-0.441,-0.441, &-0.442,-0.442,-0.442,-0.442,-0.442,-0.442,-0.442,-0.442,-0.443, &-0.443,-0.443,-0.443,-0.443,-0.443,-0.443,-0.444,-0.444,-0.444, &-0.444,-0.444,-0.444,-0.444,-0.444,-0.445,-0.445,-0.445,-0.445, &-0.445,-0.445,-0.445,-0.445,-0.446,-0.446,-0.446,-0.446,-0.446, &-0.446,-0.446,-0.446,-0.446,-0.447,-0.447,-0.447,-0.447,-0.447, &-0.447,-0.447,-0.447,-0.447,-0.447,-0.448,-0.448,-0.448,-0.448, &-0.448,-0.448,-0.448,-0.448,-0.448,-0.449,-0.449,-0.449,-0.449, &-0.449,-0.449,-0.449,-0.449,-0.449,-0.449,-0.449,-0.450,-0.450, &-0.450,-0.450,-0.450,-0.450,-0.451,-0.452,-0.452,-0.453,-0.454, &-0.454,-0.455,-0.455,-0.456,-0.456,-0.457,-0.457,-0.457,-0.458, &-0.458,-0.458,-0.458,-0.458,-0.458,-0.458,-0.459,-0.459,-0.459, &-0.459,-0.459,-0.458,-0.458,-0.458,-0.458,-0.458,-0.458,-0.458, &-0.457,-0.457,-0.457,-0.457,-0.456,-0.456,-0.456,-0.455,-0.455, &-0.455,-0.454,-0.454,-0.453,-0.453,-0.453,-0.452,-0.452,-0.451, &-0.451,-0.450,-0.450,-0.449,-0.449,-0.448,-0.448,-0.447,-0.446, &-0.446,-0.445,-0.445,-0.444,-0.443,-0.443,-0.442,-0.442,-0.441, &-0.440,-0.440,-0.439,-0.438,-0.437,-0.437,-0.436,-0.435,-0.435, &-0.434,-0.433,-0.432,-0.432,-0.431,-0.430,-0.429,-0.429,-0.428, &-0.427,-0.426,-0.425,-0.425,-0.424,-0.423,-0.422,-0.421,-0.420, &-0.420,-0.419,-0.418,-0.417,-0.416,-0.415,-0.414,-0.414,-0.413, &-0.412,-0.411,-0.410,-0.409,-0.408,-0.407,-0.406,-0.405,-0.404, &-0.404,-0.403,-0.402,-0.401,-0.400,-0.399,-0.398,-0.397,-0.396, &-0.395,-0.394,-0.393,-0.392,-0.391,-0.390,-0.389,-0.388,-0.387, &-0.386,-0.385,-0.384,-0.383,-0.382,-0.381,-0.380,-0.379,-0.378, &-0.377,-0.376,-0.375,-0.374,-0.373,-0.372,-0.371,-0.370,-0.369, &-0.368,-0.367,-0.366,-0.365,-0.364,-0.363,-0.362,-0.361,-0.360, &-0.359,-0.358,-0.356 & / C C *** (NH4)2SO4 C DATA BNC04M/ &-0.091,-0.197,-0.249,-0.286,-0.315,-0.339,-0.359,-0.377,-0.392, &-0.406,-0.419,-0.431,-0.442,-0.452,-0.461,-0.470,-0.478,-0.486, &-0.493,-0.500,-0.507,-0.513,-0.519,-0.525,-0.530,-0.535,-0.540, &-0.545,-0.550,-0.554,-0.559,-0.563,-0.567,-0.571,-0.575,-0.579, &-0.582,-0.586,-0.589,-0.592,-0.596,-0.599,-0.602,-0.605,-0.608, &-0.611,-0.613,-0.616,-0.619,-0.621,-0.624,-0.626,-0.628,-0.631, &-0.633,-0.635,-0.637,-0.640,-0.642,-0.644,-0.646,-0.648,-0.650, &-0.652,-0.653,-0.655,-0.657,-0.659,-0.661,-0.662,-0.664,-0.666, &-0.667,-0.669,-0.670,-0.672,-0.673,-0.675,-0.676,-0.678,-0.679, &-0.681,-0.682,-0.683,-0.685,-0.686,-0.687,-0.689,-0.690,-0.691, &-0.693,-0.694,-0.695,-0.696,-0.697,-0.699,-0.700,-0.701,-0.702, &-0.703,-0.704,-0.705,-0.707,-0.708,-0.709,-0.710,-0.711,-0.712, &-0.713,-0.714,-0.715,-0.716,-0.717,-0.718,-0.719,-0.720,-0.721, &-0.722,-0.723,-0.724,-0.724,-0.725,-0.726,-0.727,-0.728,-0.729, &-0.730,-0.731,-0.731,-0.732,-0.733,-0.734,-0.735,-0.735,-0.736, &-0.737,-0.738,-0.738,-0.739,-0.740,-0.741,-0.741,-0.742,-0.743, &-0.744,-0.744,-0.745,-0.746,-0.746,-0.747,-0.748,-0.748,-0.749, &-0.750,-0.750,-0.751,-0.752,-0.752,-0.753,-0.754,-0.754,-0.755, &-0.755,-0.756,-0.757,-0.757,-0.758,-0.758,-0.759,-0.759,-0.760, &-0.761,-0.761,-0.762,-0.762,-0.763,-0.763,-0.764,-0.764,-0.765, &-0.765,-0.766,-0.766,-0.767,-0.767,-0.768,-0.768,-0.769,-0.769, &-0.770,-0.770,-0.771,-0.771,-0.772,-0.772,-0.772,-0.773,-0.773, &-0.774,-0.774,-0.775,-0.775,-0.776,-0.776,-0.776,-0.777,-0.777, &-0.778,-0.778,-0.778,-0.779,-0.779,-0.780,-0.780,-0.780,-0.781, &-0.781,-0.781,-0.782,-0.782,-0.783,-0.783,-0.783,-0.784,-0.784, &-0.784,-0.785,-0.785,-0.785,-0.786,-0.786,-0.786,-0.787,-0.787, &-0.787,-0.788,-0.788,-0.788,-0.789,-0.789,-0.789,-0.790,-0.790, &-0.790,-0.790,-0.791,-0.791,-0.791,-0.792,-0.792,-0.792,-0.793, &-0.793,-0.793,-0.793,-0.794,-0.794,-0.794,-0.794,-0.795,-0.795, &-0.795,-0.795,-0.796,-0.796,-0.796,-0.796,-0.797,-0.797,-0.797, &-0.797,-0.798,-0.798,-0.798,-0.798,-0.799,-0.799,-0.799,-0.799, &-0.800,-0.800,-0.800,-0.800,-0.800,-0.801,-0.801,-0.801,-0.801, &-0.801,-0.802,-0.802,-0.802,-0.802,-0.802,-0.803,-0.803,-0.803, &-0.803,-0.803,-0.804,-0.804,-0.804,-0.804,-0.804,-0.804,-0.805, &-0.805,-0.805,-0.805,-0.805,-0.806,-0.806,-0.806,-0.806,-0.806, &-0.806,-0.806,-0.807,-0.807,-0.807,-0.807,-0.807,-0.807,-0.808, &-0.808,-0.808,-0.808,-0.808,-0.808,-0.808,-0.809,-0.809,-0.809, &-0.809,-0.809,-0.809,-0.809,-0.810,-0.810,-0.810,-0.810,-0.810, &-0.810,-0.810,-0.810,-0.810,-0.811,-0.811,-0.811,-0.811,-0.811, &-0.811,-0.811,-0.811,-0.812,-0.812,-0.812,-0.812,-0.812,-0.812, &-0.812,-0.812,-0.812,-0.812,-0.813,-0.813,-0.813,-0.813,-0.813, &-0.813,-0.813,-0.813,-0.813,-0.813,-0.813,-0.814,-0.814,-0.814, &-0.814,-0.814,-0.814,-0.814,-0.814,-0.814,-0.814,-0.814,-0.814, &-0.814,-0.815,-0.815,-0.815,-0.815,-0.815,-0.815,-0.815,-0.815, &-0.815,-0.815,-0.815,-0.815,-0.816,-0.816,-0.817,-0.817,-0.817, &-0.817,-0.817,-0.817,-0.817,-0.817,-0.817,-0.817,-0.816,-0.816, &-0.816,-0.815,-0.815,-0.814,-0.813,-0.813,-0.812,-0.811,-0.811, &-0.810,-0.809,-0.808,-0.807,-0.806,-0.805,-0.804,-0.803,-0.802, &-0.801,-0.800,-0.799,-0.797,-0.796,-0.795,-0.794,-0.792,-0.791, &-0.790,-0.788,-0.787,-0.786,-0.784,-0.783,-0.781,-0.780,-0.778, &-0.777,-0.775,-0.774,-0.772,-0.771,-0.769,-0.767,-0.766,-0.764, &-0.762,-0.761,-0.759,-0.757,-0.756,-0.754,-0.752,-0.750,-0.749, &-0.747,-0.745,-0.743,-0.741,-0.740,-0.738,-0.736,-0.734,-0.732, &-0.730,-0.728,-0.727,-0.725,-0.723,-0.721,-0.719,-0.717,-0.715, &-0.713,-0.711,-0.709,-0.707,-0.705,-0.703,-0.701,-0.699,-0.697, &-0.695,-0.693,-0.691,-0.689,-0.687,-0.685,-0.683,-0.681,-0.678, &-0.676,-0.674,-0.672,-0.670,-0.668,-0.666,-0.664,-0.661,-0.659, &-0.657,-0.655,-0.653,-0.651,-0.648,-0.646,-0.644,-0.642,-0.640, &-0.638,-0.635,-0.633,-0.631,-0.629,-0.626,-0.624,-0.622,-0.620, &-0.618,-0.615,-0.613,-0.611,-0.609,-0.606,-0.604,-0.602,-0.599, &-0.597,-0.595,-0.593,-0.590,-0.588,-0.586,-0.583,-0.581,-0.579, &-0.577,-0.574,-0.572,-0.570,-0.567,-0.565,-0.563,-0.560,-0.558, &-0.556,-0.553,-0.551 & / C C *** NH4NO3 C DATA BNC05M/ &-0.046,-0.101,-0.129,-0.149,-0.166,-0.179,-0.191,-0.202,-0.211, &-0.220,-0.228,-0.235,-0.242,-0.249,-0.255,-0.261,-0.266,-0.272, &-0.277,-0.282,-0.286,-0.291,-0.295,-0.299,-0.303,-0.307,-0.311, &-0.315,-0.319,-0.322,-0.326,-0.329,-0.332,-0.335,-0.339,-0.342, &-0.345,-0.348,-0.350,-0.353,-0.356,-0.359,-0.361,-0.364,-0.366, &-0.369,-0.371,-0.374,-0.376,-0.378,-0.380,-0.383,-0.385,-0.387, &-0.389,-0.391,-0.393,-0.395,-0.397,-0.399,-0.401,-0.403,-0.405, &-0.406,-0.408,-0.410,-0.412,-0.414,-0.415,-0.417,-0.419,-0.420, &-0.422,-0.424,-0.425,-0.427,-0.428,-0.430,-0.432,-0.433,-0.435, &-0.436,-0.438,-0.439,-0.441,-0.442,-0.444,-0.445,-0.447,-0.448, &-0.449,-0.451,-0.452,-0.454,-0.455,-0.456,-0.458,-0.459,-0.461, &-0.462,-0.463,-0.465,-0.466,-0.467,-0.469,-0.470,-0.471,-0.473, &-0.474,-0.475,-0.477,-0.478,-0.479,-0.480,-0.482,-0.483,-0.484, &-0.485,-0.487,-0.488,-0.489,-0.490,-0.492,-0.493,-0.494,-0.495, &-0.496,-0.498,-0.499,-0.500,-0.501,-0.502,-0.503,-0.504,-0.506, &-0.507,-0.508,-0.509,-0.510,-0.511,-0.512,-0.513,-0.514,-0.515, &-0.516,-0.517,-0.519,-0.520,-0.521,-0.522,-0.523,-0.524,-0.525, &-0.526,-0.527,-0.528,-0.529,-0.530,-0.531,-0.532,-0.533,-0.534, &-0.535,-0.535,-0.536,-0.537,-0.538,-0.539,-0.540,-0.541,-0.542, &-0.543,-0.544,-0.545,-0.546,-0.547,-0.547,-0.548,-0.549,-0.550, &-0.551,-0.552,-0.553,-0.553,-0.554,-0.555,-0.556,-0.557,-0.558, &-0.559,-0.559,-0.560,-0.561,-0.562,-0.563,-0.563,-0.564,-0.565, &-0.566,-0.567,-0.567,-0.568,-0.569,-0.570,-0.570,-0.571,-0.572, &-0.573,-0.574,-0.574,-0.575,-0.576,-0.576,-0.577,-0.578,-0.579, &-0.579,-0.580,-0.581,-0.582,-0.582,-0.583,-0.584,-0.584,-0.585, &-0.586,-0.586,-0.587,-0.588,-0.589,-0.589,-0.590,-0.591,-0.591, &-0.592,-0.593,-0.593,-0.594,-0.595,-0.595,-0.596,-0.596,-0.597, &-0.598,-0.598,-0.599,-0.600,-0.600,-0.601,-0.602,-0.602,-0.603, &-0.603,-0.604,-0.605,-0.605,-0.606,-0.606,-0.607,-0.608,-0.608, &-0.609,-0.609,-0.610,-0.611,-0.611,-0.612,-0.612,-0.613,-0.613, &-0.614,-0.615,-0.615,-0.616,-0.616,-0.617,-0.617,-0.618,-0.618, &-0.619,-0.620,-0.620,-0.621,-0.621,-0.622,-0.622,-0.623,-0.623, &-0.624,-0.624,-0.625,-0.625,-0.626,-0.626,-0.627,-0.627,-0.628, &-0.628,-0.629,-0.629,-0.630,-0.630,-0.631,-0.631,-0.632,-0.632, &-0.633,-0.633,-0.634,-0.634,-0.635,-0.635,-0.636,-0.636,-0.637, &-0.637,-0.638,-0.638,-0.639,-0.639,-0.639,-0.640,-0.640,-0.641, &-0.641,-0.642,-0.642,-0.643,-0.643,-0.643,-0.644,-0.644,-0.645, &-0.645,-0.646,-0.646,-0.647,-0.647,-0.647,-0.648,-0.648,-0.649, &-0.649,-0.649,-0.650,-0.650,-0.651,-0.651,-0.652,-0.652,-0.652, &-0.653,-0.653,-0.654,-0.654,-0.654,-0.655,-0.655,-0.656,-0.656, &-0.656,-0.657,-0.657,-0.658,-0.658,-0.658,-0.659,-0.659,-0.659, &-0.660,-0.660,-0.661,-0.661,-0.661,-0.662,-0.662,-0.662,-0.663, &-0.663,-0.663,-0.664,-0.664,-0.665,-0.665,-0.665,-0.666,-0.666, &-0.666,-0.667,-0.667,-0.667,-0.668,-0.668,-0.668,-0.669,-0.669, &-0.669,-0.670,-0.670,-0.670,-0.674,-0.677,-0.680,-0.683,-0.686, &-0.688,-0.691,-0.693,-0.696,-0.698,-0.700,-0.702,-0.705,-0.706, &-0.708,-0.710,-0.712,-0.714,-0.715,-0.717,-0.718,-0.720,-0.721, &-0.722,-0.723,-0.725,-0.726,-0.727,-0.728,-0.729,-0.730,-0.731, &-0.732,-0.732,-0.733,-0.734,-0.735,-0.735,-0.736,-0.736,-0.737, &-0.737,-0.738,-0.738,-0.739,-0.739,-0.739,-0.740,-0.740,-0.740, &-0.741,-0.741,-0.741,-0.741,-0.741,-0.741,-0.741,-0.741,-0.741, &-0.741,-0.741,-0.741,-0.741,-0.741,-0.741,-0.741,-0.741,-0.741, &-0.741,-0.740,-0.740,-0.740,-0.740,-0.739,-0.739,-0.739,-0.739, &-0.738,-0.738,-0.738,-0.737,-0.737,-0.736,-0.736,-0.736,-0.735, &-0.735,-0.734,-0.734,-0.733,-0.733,-0.732,-0.732,-0.731,-0.731, &-0.730,-0.729,-0.729,-0.728,-0.728,-0.727,-0.726,-0.726,-0.725, &-0.725,-0.724,-0.723,-0.723,-0.722,-0.721,-0.721,-0.720,-0.719, &-0.718,-0.718,-0.717,-0.716,-0.715,-0.715,-0.714,-0.713,-0.712, &-0.711,-0.711,-0.710,-0.709,-0.708,-0.707,-0.707,-0.706,-0.705, &-0.704,-0.703,-0.702,-0.701,-0.701,-0.700,-0.699,-0.698,-0.697, &-0.696,-0.695,-0.694,-0.693,-0.692,-0.692,-0.691,-0.690,-0.689, &-0.688,-0.687,-0.686,-0.685,-0.684,-0.683,-0.682,-0.681,-0.680, &-0.679,-0.678,-0.677 & / C C *** NH4Cl C DATA BNC06M/ &-0.045,-0.096,-0.120,-0.136,-0.149,-0.159,-0.167,-0.174,-0.181, &-0.186,-0.191,-0.195,-0.199,-0.202,-0.205,-0.208,-0.210,-0.213, &-0.215,-0.217,-0.219,-0.220,-0.222,-0.223,-0.225,-0.226,-0.227, &-0.228,-0.229,-0.230,-0.231,-0.232,-0.232,-0.233,-0.234,-0.234, &-0.235,-0.235,-0.236,-0.236,-0.237,-0.237,-0.237,-0.238,-0.238, &-0.238,-0.238,-0.238,-0.239,-0.239,-0.239,-0.239,-0.239,-0.239, &-0.239,-0.239,-0.239,-0.239,-0.239,-0.239,-0.239,-0.239,-0.239, &-0.239,-0.239,-0.239,-0.239,-0.239,-0.239,-0.239,-0.238,-0.238, &-0.238,-0.238,-0.238,-0.238,-0.237,-0.237,-0.237,-0.237,-0.237, &-0.236,-0.236,-0.236,-0.235,-0.235,-0.235,-0.235,-0.234,-0.234, &-0.234,-0.233,-0.233,-0.233,-0.232,-0.232,-0.231,-0.231,-0.231, &-0.230,-0.230,-0.229,-0.229,-0.229,-0.228,-0.228,-0.227,-0.227, &-0.226,-0.226,-0.225,-0.225,-0.224,-0.224,-0.224,-0.223,-0.223, &-0.222,-0.222,-0.221,-0.221,-0.220,-0.219,-0.219,-0.218,-0.218, &-0.217,-0.217,-0.216,-0.216,-0.215,-0.215,-0.214,-0.214,-0.213, &-0.213,-0.212,-0.211,-0.211,-0.210,-0.210,-0.209,-0.209,-0.208, &-0.208,-0.207,-0.206,-0.206,-0.205,-0.205,-0.204,-0.204,-0.203, &-0.203,-0.202,-0.201,-0.201,-0.200,-0.200,-0.199,-0.199,-0.198, &-0.197,-0.197,-0.196,-0.196,-0.195,-0.195,-0.194,-0.193,-0.193, &-0.192,-0.192,-0.191,-0.191,-0.190,-0.189,-0.189,-0.188,-0.188, &-0.187,-0.186,-0.186,-0.185,-0.185,-0.184,-0.184,-0.183,-0.182, &-0.182,-0.181,-0.181,-0.180,-0.179,-0.179,-0.178,-0.178,-0.177, &-0.177,-0.176,-0.175,-0.175,-0.174,-0.174,-0.173,-0.172,-0.172, &-0.171,-0.171,-0.170,-0.170,-0.169,-0.168,-0.168,-0.167,-0.167, &-0.166,-0.165,-0.165,-0.164,-0.164,-0.163,-0.163,-0.162,-0.161, &-0.161,-0.160,-0.160,-0.159,-0.158,-0.158,-0.157,-0.157,-0.156, &-0.156,-0.155,-0.154,-0.154,-0.153,-0.153,-0.152,-0.151,-0.151, &-0.150,-0.150,-0.149,-0.149,-0.148,-0.147,-0.147,-0.146,-0.146, &-0.145,-0.145,-0.144,-0.143,-0.143,-0.142,-0.142,-0.141,-0.140, &-0.140,-0.139,-0.139,-0.138,-0.138,-0.137,-0.136,-0.136,-0.135, &-0.135,-0.134,-0.134,-0.133,-0.132,-0.132,-0.131,-0.131,-0.130, &-0.130,-0.129,-0.128,-0.128,-0.127,-0.127,-0.126,-0.126,-0.125, &-0.125,-0.124,-0.123,-0.123,-0.122,-0.122,-0.121,-0.121,-0.120, &-0.119,-0.119,-0.118,-0.118,-0.117,-0.117,-0.116,-0.115,-0.115, &-0.114,-0.114,-0.113,-0.113,-0.112,-0.112,-0.111,-0.110,-0.110, &-0.109,-0.109,-0.108,-0.108,-0.107,-0.107,-0.106,-0.105,-0.105, &-0.104,-0.104,-0.103,-0.103,-0.102,-0.102,-0.101,-0.100,-0.100, &-0.099,-0.099,-0.098,-0.098,-0.097,-0.097,-0.096,-0.096,-0.095, &-0.094,-0.094,-0.093,-0.093,-0.092,-0.092,-0.091,-0.091,-0.090, &-0.090,-0.089,-0.088,-0.088,-0.087,-0.087,-0.086,-0.086,-0.085, &-0.085,-0.084,-0.084,-0.083,-0.083,-0.082,-0.081,-0.081,-0.080, &-0.080,-0.079,-0.079,-0.078,-0.078,-0.077,-0.077,-0.076,-0.076, &-0.075,-0.074,-0.074,-0.073,-0.073,-0.072,-0.072,-0.071,-0.071, &-0.070,-0.070,-0.069,-0.069,-0.068,-0.068,-0.067,-0.067,-0.066, &-0.065,-0.065,-0.064,-0.064,-0.058,-0.053,-0.048,-0.043,-0.038, &-0.033,-0.028,-0.023,-0.018,-0.013,-0.008,-0.003, 0.002, 0.006, & 0.011, 0.016, 0.021, 0.025, 0.030, 0.035, 0.039, 0.044, 0.048, & 0.053, 0.057, 0.062, 0.066, 0.070, 0.075, 0.079, 0.083, 0.088, & 0.092, 0.096, 0.100, 0.105, 0.109, 0.113, 0.117, 0.121, 0.125, & 0.129, 0.133, 0.137, 0.141, 0.145, 0.149, 0.153, 0.157, 0.161, & 0.165, 0.169, 0.173, 0.176, 0.180, 0.184, 0.188, 0.192, 0.195, & 0.199, 0.203, 0.207, 0.210, 0.214, 0.218, 0.221, 0.225, 0.228, & 0.232, 0.236, 0.239, 0.243, 0.246, 0.250, 0.253, 0.257, 0.260, & 0.264, 0.267, 0.271, 0.274, 0.278, 0.281, 0.285, 0.288, 0.291, & 0.295, 0.298, 0.301, 0.305, 0.308, 0.311, 0.315, 0.318, 0.321, & 0.325, 0.328, 0.331, 0.334, 0.338, 0.341, 0.344, 0.347, 0.350, & 0.354, 0.357, 0.360, 0.363, 0.366, 0.369, 0.373, 0.376, 0.379, & 0.382, 0.385, 0.388, 0.391, 0.394, 0.397, 0.400, 0.403, 0.406, & 0.409, 0.412, 0.416, 0.419, 0.422, 0.425, 0.428, 0.430, 0.433, & 0.436, 0.439, 0.442, 0.445, 0.448, 0.451, 0.454, 0.457, 0.460, & 0.463, 0.466, 0.469, 0.471, 0.474, 0.477, 0.480, 0.483, 0.486, & 0.489, 0.491, 0.494, 0.497, 0.500, 0.503, 0.506, 0.508, 0.511, & 0.514, 0.517, 0.520 & / C C *** (2H,SO4) C DATA BNC07M/ &-0.091,-0.196,-0.248,-0.284,-0.312,-0.336,-0.355,-0.372,-0.388, &-0.401,-0.414,-0.425,-0.435,-0.445,-0.453,-0.462,-0.469,-0.477, &-0.484,-0.490,-0.496,-0.502,-0.508,-0.513,-0.518,-0.523,-0.528, &-0.532,-0.536,-0.540,-0.544,-0.548,-0.552,-0.556,-0.559,-0.562, &-0.566,-0.569,-0.572,-0.575,-0.578,-0.580,-0.583,-0.586,-0.588, &-0.591,-0.593,-0.595,-0.598,-0.600,-0.602,-0.604,-0.606,-0.608, &-0.610,-0.612,-0.614,-0.616,-0.618,-0.620,-0.621,-0.623,-0.625, &-0.626,-0.628,-0.629,-0.631,-0.632,-0.634,-0.635,-0.637,-0.638, &-0.639,-0.641,-0.642,-0.643,-0.644,-0.646,-0.647,-0.648,-0.649, &-0.650,-0.652,-0.653,-0.654,-0.655,-0.656,-0.657,-0.658,-0.659, &-0.660,-0.661,-0.662,-0.663,-0.664,-0.665,-0.666,-0.666,-0.667, &-0.668,-0.669,-0.670,-0.671,-0.671,-0.672,-0.673,-0.674,-0.675, &-0.675,-0.676,-0.677,-0.678,-0.678,-0.679,-0.680,-0.680,-0.681, &-0.682,-0.682,-0.683,-0.684,-0.684,-0.685,-0.686,-0.686,-0.687, &-0.687,-0.688,-0.689,-0.689,-0.690,-0.690,-0.691,-0.691,-0.692, &-0.692,-0.693,-0.693,-0.694,-0.694,-0.695,-0.695,-0.696,-0.696, &-0.697,-0.697,-0.698,-0.698,-0.699,-0.699,-0.700,-0.700,-0.700, &-0.701,-0.701,-0.702,-0.702,-0.702,-0.703,-0.703,-0.704,-0.704, &-0.704,-0.705,-0.705,-0.705,-0.706,-0.706,-0.706,-0.707,-0.707, &-0.707,-0.708,-0.708,-0.708,-0.709,-0.709,-0.709,-0.710,-0.710, &-0.710,-0.711,-0.711,-0.711,-0.711,-0.712,-0.712,-0.712,-0.712, &-0.713,-0.713,-0.713,-0.713,-0.714,-0.714,-0.714,-0.714,-0.715, &-0.715,-0.715,-0.715,-0.716,-0.716,-0.716,-0.716,-0.716,-0.717, &-0.717,-0.717,-0.717,-0.717,-0.718,-0.718,-0.718,-0.718,-0.718, &-0.719,-0.719,-0.719,-0.719,-0.719,-0.719,-0.720,-0.720,-0.720, &-0.720,-0.720,-0.720,-0.720,-0.721,-0.721,-0.721,-0.721,-0.721, &-0.721,-0.721,-0.722,-0.722,-0.722,-0.722,-0.722,-0.722,-0.722, &-0.722,-0.723,-0.723,-0.723,-0.723,-0.723,-0.723,-0.723,-0.723, &-0.723,-0.723,-0.724,-0.724,-0.724,-0.724,-0.724,-0.724,-0.724, &-0.724,-0.724,-0.724,-0.724,-0.724,-0.725,-0.725,-0.725,-0.725, &-0.725,-0.725,-0.725,-0.725,-0.725,-0.725,-0.725,-0.725,-0.725, &-0.725,-0.725,-0.725,-0.726,-0.726,-0.726,-0.726,-0.726,-0.726, &-0.726,-0.726,-0.726,-0.726,-0.726,-0.726,-0.726,-0.726,-0.726, &-0.726,-0.726,-0.726,-0.726,-0.726,-0.726,-0.726,-0.726,-0.726, &-0.726,-0.726,-0.726,-0.726,-0.726,-0.726,-0.726,-0.726,-0.726, &-0.726,-0.726,-0.726,-0.726,-0.726,-0.726,-0.726,-0.726,-0.726, &-0.726,-0.726,-0.726,-0.726,-0.726,-0.726,-0.726,-0.726,-0.726, &-0.726,-0.726,-0.726,-0.726,-0.726,-0.726,-0.726,-0.726,-0.726, &-0.726,-0.726,-0.726,-0.726,-0.726,-0.726,-0.726,-0.726,-0.726, &-0.726,-0.726,-0.726,-0.726,-0.726,-0.726,-0.725,-0.725,-0.725, &-0.725,-0.725,-0.725,-0.725,-0.725,-0.725,-0.725,-0.725,-0.725, &-0.725,-0.725,-0.725,-0.725,-0.725,-0.725,-0.725,-0.725,-0.725, &-0.724,-0.724,-0.724,-0.724,-0.724,-0.724,-0.724,-0.724,-0.724, &-0.724,-0.724,-0.724,-0.724,-0.724,-0.724,-0.724,-0.723,-0.723, &-0.723,-0.723,-0.723,-0.723,-0.722,-0.721,-0.721,-0.720,-0.719, &-0.717,-0.716,-0.715,-0.714,-0.713,-0.711,-0.710,-0.709,-0.707, &-0.706,-0.704,-0.703,-0.701,-0.700,-0.698,-0.696,-0.695,-0.693, &-0.691,-0.689,-0.688,-0.686,-0.684,-0.682,-0.680,-0.678,-0.676, &-0.675,-0.673,-0.671,-0.669,-0.667,-0.665,-0.663,-0.661,-0.658, &-0.656,-0.654,-0.652,-0.650,-0.648,-0.646,-0.644,-0.642,-0.639, &-0.637,-0.635,-0.633,-0.631,-0.628,-0.626,-0.624,-0.622,-0.619, &-0.617,-0.615,-0.612,-0.610,-0.608,-0.605,-0.603,-0.601,-0.598, &-0.596,-0.594,-0.591,-0.589,-0.587,-0.584,-0.582,-0.579,-0.577, &-0.575,-0.572,-0.570,-0.567,-0.565,-0.563,-0.560,-0.558,-0.555, &-0.553,-0.550,-0.548,-0.545,-0.543,-0.540,-0.538,-0.535,-0.533, &-0.530,-0.528,-0.525,-0.523,-0.520,-0.518,-0.515,-0.513,-0.510, &-0.508,-0.505,-0.503,-0.500,-0.498,-0.495,-0.493,-0.490,-0.487, &-0.485,-0.482,-0.480,-0.477,-0.475,-0.472,-0.470,-0.467,-0.464, &-0.462,-0.459,-0.457,-0.454,-0.451,-0.449,-0.446,-0.444,-0.441, &-0.438,-0.436,-0.433,-0.431,-0.428,-0.425,-0.423,-0.420,-0.418, &-0.415,-0.412,-0.410,-0.407,-0.404,-0.402,-0.399,-0.397,-0.394, &-0.391,-0.389,-0.386,-0.383,-0.381,-0.378,-0.375,-0.373,-0.370, &-0.367,-0.365,-0.362 & / C C *** (H,HSO4) C DATA BNC08M/ &-0.043,-0.086,-0.105,-0.116,-0.123,-0.128,-0.131,-0.134,-0.135, &-0.136,-0.136,-0.135,-0.134,-0.133,-0.131,-0.129,-0.127,-0.124, &-0.122,-0.118,-0.115,-0.112,-0.108,-0.104,-0.100,-0.096,-0.092, &-0.088,-0.083,-0.079,-0.074,-0.069,-0.064,-0.059,-0.054,-0.048, &-0.043,-0.037,-0.032,-0.026,-0.021,-0.015,-0.009,-0.003, 0.003, & 0.009, 0.015, 0.021, 0.027, 0.034, 0.040, 0.046, 0.053, 0.059, & 0.066, 0.072, 0.079, 0.086, 0.092, 0.099, 0.106, 0.112, 0.119, & 0.126, 0.133, 0.140, 0.147, 0.154, 0.161, 0.168, 0.175, 0.182, & 0.189, 0.196, 0.204, 0.211, 0.218, 0.226, 0.233, 0.240, 0.248, & 0.255, 0.263, 0.270, 0.278, 0.286, 0.293, 0.301, 0.309, 0.317, & 0.324, 0.332, 0.340, 0.348, 0.356, 0.364, 0.372, 0.380, 0.389, & 0.397, 0.405, 0.413, 0.421, 0.430, 0.438, 0.446, 0.455, 0.463, & 0.471, 0.480, 0.488, 0.497, 0.505, 0.514, 0.522, 0.530, 0.539, & 0.547, 0.556, 0.564, 0.573, 0.581, 0.590, 0.598, 0.607, 0.615, & 0.624, 0.632, 0.641, 0.649, 0.658, 0.666, 0.675, 0.683, 0.692, & 0.700, 0.708, 0.717, 0.725, 0.734, 0.742, 0.750, 0.759, 0.767, & 0.775, 0.784, 0.792, 0.800, 0.808, 0.817, 0.825, 0.833, 0.841, & 0.849, 0.858, 0.866, 0.874, 0.882, 0.890, 0.898, 0.906, 0.915, & 0.923, 0.931, 0.939, 0.947, 0.955, 0.963, 0.971, 0.979, 0.986, & 0.994, 1.002, 1.010, 1.018, 1.026, 1.034, 1.042, 1.049, 1.057, & 1.065, 1.073, 1.080, 1.088, 1.096, 1.104, 1.111, 1.119, 1.127, & 1.134, 1.142, 1.150, 1.157, 1.165, 1.172, 1.180, 1.187, 1.195, & 1.202, 1.210, 1.217, 1.225, 1.232, 1.240, 1.247, 1.254, 1.262, & 1.269, 1.276, 1.284, 1.291, 1.298, 1.306, 1.313, 1.320, 1.327, & 1.335, 1.342, 1.349, 1.356, 1.363, 1.371, 1.378, 1.385, 1.392, & 1.399, 1.406, 1.413, 1.420, 1.427, 1.434, 1.441, 1.448, 1.455, & 1.462, 1.469, 1.476, 1.483, 1.490, 1.497, 1.504, 1.510, 1.517, & 1.524, 1.531, 1.538, 1.545, 1.551, 1.558, 1.565, 1.572, 1.578, & 1.585, 1.592, 1.598, 1.605, 1.612, 1.618, 1.625, 1.632, 1.638, & 1.645, 1.651, 1.658, 1.664, 1.671, 1.678, 1.684, 1.691, 1.697, & 1.704, 1.710, 1.716, 1.723, 1.729, 1.736, 1.742, 1.749, 1.755, & 1.761, 1.768, 1.774, 1.780, 1.787, 1.793, 1.799, 1.805, 1.812, & 1.818, 1.824, 1.830, 1.837, 1.843, 1.849, 1.855, 1.861, 1.868, & 1.874, 1.880, 1.886, 1.892, 1.898, 1.904, 1.910, 1.916, 1.923, & 1.929, 1.935, 1.941, 1.947, 1.953, 1.959, 1.965, 1.971, 1.977, & 1.983, 1.988, 1.994, 2.000, 2.006, 2.012, 2.018, 2.024, 2.030, & 2.036, 2.041, 2.047, 2.053, 2.059, 2.065, 2.070, 2.076, 2.082, & 2.088, 2.094, 2.099, 2.105, 2.111, 2.116, 2.122, 2.128, 2.134, & 2.139, 2.145, 2.150, 2.156, 2.162, 2.167, 2.173, 2.179, 2.184, & 2.190, 2.195, 2.201, 2.206, 2.212, 2.218, 2.223, 2.229, 2.234, & 2.240, 2.245, 2.251, 2.256, 2.261, 2.267, 2.272, 2.278, 2.283, & 2.289, 2.294, 2.299, 2.305, 2.310, 2.316, 2.321, 2.326, 2.332, & 2.337, 2.342, 2.348, 2.353, 2.358, 2.364, 2.369, 2.374, 2.379, & 2.385, 2.390, 2.395, 2.400, 2.406, 2.411, 2.416, 2.421, 2.426, & 2.432, 2.437, 2.442, 2.447, 2.502, 2.553, 2.602, 2.651, 2.699, & 2.746, 2.793, 2.839, 2.884, 2.929, 2.973, 3.017, 3.060, 3.102, & 3.144, 3.186, 3.227, 3.267, 3.307, 3.346, 3.385, 3.424, 3.462, & 3.499, 3.536, 3.573, 3.610, 3.646, 3.681, 3.716, 3.751, 3.786, & 3.820, 3.854, 3.887, 3.920, 3.953, 3.985, 4.018, 4.049, 4.081, & 4.112, 4.143, 4.174, 4.204, 4.234, 4.264, 4.294, 4.323, 4.352, & 4.381, 4.410, 4.438, 4.466, 4.494, 4.522, 4.549, 4.577, 4.604, & 4.630, 4.657, 4.683, 4.710, 4.736, 4.761, 4.787, 4.812, 4.838, & 4.863, 4.888, 4.912, 4.937, 4.961, 4.985, 5.009, 5.033, 5.057, & 5.080, 5.104, 5.127, 5.150, 5.173, 5.196, 5.218, 5.241, 5.263, & 5.285, 5.307, 5.329, 5.351, 5.372, 5.394, 5.415, 5.436, 5.457, & 5.478, 5.499, 5.520, 5.541, 5.561, 5.581, 5.602, 5.622, 5.642, & 5.662, 5.682, 5.701, 5.721, 5.740, 5.760, 5.779, 5.798, 5.817, & 5.836, 5.855, 5.874, 5.892, 5.911, 5.929, 5.948, 5.966, 5.984, & 6.002, 6.020, 6.038, 6.056, 6.074, 6.092, 6.109, 6.127, 6.144, & 6.161, 6.179, 6.196, 6.213, 6.230, 6.247, 6.264, 6.280, 6.297, & 6.314, 6.330, 6.347, 6.363, 6.379, 6.396, 6.412, 6.428, 6.444, & 6.460, 6.476, 6.492, 6.507, 6.523, 6.539, 6.554, 6.570, 6.585, & 6.600, 6.616, 6.631 & / C C *** NH4HSO4 C DATA BNC09M/ &-0.045,-0.095,-0.119,-0.135,-0.147,-0.157,-0.166,-0.173,-0.179, &-0.184,-0.189,-0.193,-0.196,-0.200,-0.203,-0.205,-0.208,-0.210, &-0.212,-0.213,-0.215,-0.216,-0.217,-0.218,-0.219,-0.219,-0.220, &-0.220,-0.221,-0.221,-0.221,-0.221,-0.221,-0.221,-0.220,-0.220, &-0.219,-0.219,-0.218,-0.217,-0.217,-0.216,-0.215,-0.214,-0.213, &-0.212,-0.211,-0.210,-0.208,-0.207,-0.206,-0.204,-0.203,-0.201, &-0.200,-0.198,-0.197,-0.195,-0.193,-0.192,-0.190,-0.188,-0.186, &-0.185,-0.183,-0.181,-0.179,-0.177,-0.175,-0.173,-0.171,-0.169, &-0.167,-0.165,-0.162,-0.160,-0.158,-0.156,-0.154,-0.151,-0.149, &-0.147,-0.144,-0.142,-0.140,-0.137,-0.135,-0.132,-0.130,-0.127, &-0.125,-0.122,-0.120,-0.117,-0.115,-0.112,-0.109,-0.107,-0.104, &-0.101,-0.099,-0.096,-0.093,-0.091,-0.088,-0.085,-0.082,-0.079, &-0.077,-0.074,-0.071,-0.068,-0.065,-0.063,-0.060,-0.057,-0.054, &-0.051,-0.048,-0.046,-0.043,-0.040,-0.037,-0.034,-0.031,-0.028, &-0.025,-0.023,-0.020,-0.017,-0.014,-0.011,-0.008,-0.005,-0.003, & 0.000, 0.003, 0.006, 0.009, 0.012, 0.014, 0.017, 0.020, 0.023, & 0.026, 0.029, 0.031, 0.034, 0.037, 0.040, 0.043, 0.045, 0.048, & 0.051, 0.054, 0.057, 0.059, 0.062, 0.065, 0.068, 0.070, 0.073, & 0.076, 0.079, 0.081, 0.084, 0.087, 0.089, 0.092, 0.095, 0.098, & 0.100, 0.103, 0.106, 0.108, 0.111, 0.114, 0.116, 0.119, 0.122, & 0.124, 0.127, 0.130, 0.132, 0.135, 0.137, 0.140, 0.143, 0.145, & 0.148, 0.150, 0.153, 0.156, 0.158, 0.161, 0.163, 0.166, 0.168, & 0.171, 0.174, 0.176, 0.179, 0.181, 0.184, 0.186, 0.189, 0.191, & 0.194, 0.196, 0.199, 0.201, 0.204, 0.206, 0.209, 0.211, 0.214, & 0.216, 0.219, 0.221, 0.223, 0.226, 0.228, 0.231, 0.233, 0.236, & 0.238, 0.240, 0.243, 0.245, 0.248, 0.250, 0.252, 0.255, 0.257, & 0.260, 0.262, 0.264, 0.267, 0.269, 0.271, 0.274, 0.276, 0.278, & 0.281, 0.283, 0.285, 0.288, 0.290, 0.292, 0.295, 0.297, 0.299, & 0.302, 0.304, 0.306, 0.308, 0.311, 0.313, 0.315, 0.317, 0.320, & 0.322, 0.324, 0.326, 0.329, 0.331, 0.333, 0.335, 0.338, 0.340, & 0.342, 0.344, 0.346, 0.349, 0.351, 0.353, 0.355, 0.357, 0.360, & 0.362, 0.364, 0.366, 0.368, 0.371, 0.373, 0.375, 0.377, 0.379, & 0.381, 0.383, 0.386, 0.388, 0.390, 0.392, 0.394, 0.396, 0.398, & 0.400, 0.403, 0.405, 0.407, 0.409, 0.411, 0.413, 0.415, 0.417, & 0.419, 0.421, 0.423, 0.426, 0.428, 0.430, 0.432, 0.434, 0.436, & 0.438, 0.440, 0.442, 0.444, 0.446, 0.448, 0.450, 0.452, 0.454, & 0.456, 0.458, 0.460, 0.462, 0.464, 0.466, 0.468, 0.470, 0.472, & 0.474, 0.476, 0.478, 0.480, 0.482, 0.484, 0.486, 0.488, 0.490, & 0.492, 0.494, 0.496, 0.498, 0.500, 0.502, 0.504, 0.506, 0.508, & 0.510, 0.511, 0.513, 0.515, 0.517, 0.519, 0.521, 0.523, 0.525, & 0.527, 0.529, 0.531, 0.533, 0.534, 0.536, 0.538, 0.540, 0.542, & 0.544, 0.546, 0.548, 0.549, 0.551, 0.553, 0.555, 0.557, 0.559, & 0.561, 0.563, 0.564, 0.566, 0.568, 0.570, 0.572, 0.574, 0.575, & 0.577, 0.579, 0.581, 0.583, 0.585, 0.586, 0.588, 0.590, 0.592, & 0.594, 0.595, 0.597, 0.599, 0.618, 0.636, 0.653, 0.670, 0.687, & 0.704, 0.721, 0.737, 0.753, 0.769, 0.784, 0.800, 0.815, 0.830, & 0.845, 0.860, 0.875, 0.889, 0.904, 0.918, 0.932, 0.946, 0.959, & 0.973, 0.986, 1.000, 1.013, 1.026, 1.039, 1.052, 1.065, 1.077, & 1.090, 1.102, 1.114, 1.126, 1.138, 1.150, 1.162, 1.174, 1.186, & 1.197, 1.209, 1.220, 1.231, 1.242, 1.254, 1.265, 1.276, 1.286, & 1.297, 1.308, 1.318, 1.329, 1.339, 1.350, 1.360, 1.370, 1.381, & 1.391, 1.401, 1.411, 1.421, 1.430, 1.440, 1.450, 1.459, 1.469, & 1.479, 1.488, 1.497, 1.507, 1.516, 1.525, 1.534, 1.544, 1.553, & 1.562, 1.571, 1.579, 1.588, 1.597, 1.606, 1.615, 1.623, 1.632, & 1.640, 1.649, 1.657, 1.666, 1.674, 1.683, 1.691, 1.699, 1.707, & 1.715, 1.724, 1.732, 1.740, 1.748, 1.756, 1.764, 1.771, 1.779, & 1.787, 1.795, 1.803, 1.810, 1.818, 1.826, 1.833, 1.841, 1.848, & 1.856, 1.863, 1.871, 1.878, 1.885, 1.893, 1.900, 1.907, 1.915, & 1.922, 1.929, 1.936, 1.943, 1.950, 1.957, 1.964, 1.971, 1.978, & 1.985, 1.992, 1.999, 2.006, 2.013, 2.019, 2.026, 2.033, 2.040, & 2.046, 2.053, 2.060, 2.066, 2.073, 2.079, 2.086, 2.093, 2.099, & 2.105, 2.112, 2.118, 2.125, 2.131, 2.138, 2.144, 2.150, 2.156, & 2.163, 2.169, 2.175 & / C C *** (H,NO3) C DATA BNC10M/ &-0.044,-0.092,-0.113,-0.127,-0.137,-0.145,-0.151,-0.156,-0.160, &-0.163,-0.165,-0.167,-0.169,-0.170,-0.171,-0.172,-0.172,-0.172, &-0.172,-0.172,-0.172,-0.172,-0.171,-0.171,-0.170,-0.169,-0.168, &-0.167,-0.166,-0.165,-0.164,-0.163,-0.162,-0.160,-0.159,-0.158, &-0.156,-0.155,-0.153,-0.152,-0.151,-0.149,-0.147,-0.146,-0.144, &-0.143,-0.141,-0.140,-0.138,-0.136,-0.135,-0.133,-0.131,-0.130, &-0.128,-0.126,-0.125,-0.123,-0.121,-0.120,-0.118,-0.116,-0.114, &-0.113,-0.111,-0.109,-0.107,-0.106,-0.104,-0.102,-0.100,-0.099, &-0.097,-0.095,-0.093,-0.091,-0.089,-0.088,-0.086,-0.084,-0.082, &-0.080,-0.078,-0.076,-0.074,-0.072,-0.070,-0.068,-0.066,-0.064, &-0.062,-0.060,-0.058,-0.056,-0.054,-0.052,-0.050,-0.048,-0.045, &-0.043,-0.041,-0.039,-0.037,-0.035,-0.032,-0.030,-0.028,-0.026, &-0.024,-0.021,-0.019,-0.017,-0.015,-0.012,-0.010,-0.008,-0.006, &-0.003,-0.001, 0.001, 0.004, 0.006, 0.008, 0.010, 0.013, 0.015, & 0.017, 0.020, 0.022, 0.024, 0.027, 0.029, 0.031, 0.033, 0.036, & 0.038, 0.040, 0.043, 0.045, 0.047, 0.049, 0.052, 0.054, 0.056, & 0.059, 0.061, 0.063, 0.066, 0.068, 0.070, 0.072, 0.075, 0.077, & 0.079, 0.081, 0.084, 0.086, 0.088, 0.091, 0.093, 0.095, 0.097, & 0.100, 0.102, 0.104, 0.106, 0.109, 0.111, 0.113, 0.115, 0.118, & 0.120, 0.122, 0.124, 0.127, 0.129, 0.131, 0.133, 0.135, 0.138, & 0.140, 0.142, 0.144, 0.147, 0.149, 0.151, 0.153, 0.155, 0.158, & 0.160, 0.162, 0.164, 0.166, 0.169, 0.171, 0.173, 0.175, 0.177, & 0.179, 0.182, 0.184, 0.186, 0.188, 0.190, 0.192, 0.195, 0.197, & 0.199, 0.201, 0.203, 0.205, 0.207, 0.210, 0.212, 0.214, 0.216, & 0.218, 0.220, 0.222, 0.224, 0.227, 0.229, 0.231, 0.233, 0.235, & 0.237, 0.239, 0.241, 0.243, 0.245, 0.248, 0.250, 0.252, 0.254, & 0.256, 0.258, 0.260, 0.262, 0.264, 0.266, 0.268, 0.270, 0.272, & 0.274, 0.276, 0.278, 0.281, 0.283, 0.285, 0.287, 0.289, 0.291, & 0.293, 0.295, 0.297, 0.299, 0.301, 0.303, 0.305, 0.307, 0.309, & 0.311, 0.313, 0.315, 0.317, 0.319, 0.321, 0.323, 0.325, 0.327, & 0.329, 0.331, 0.333, 0.335, 0.337, 0.339, 0.341, 0.343, 0.344, & 0.346, 0.348, 0.350, 0.352, 0.354, 0.356, 0.358, 0.360, 0.362, & 0.364, 0.366, 0.368, 0.370, 0.372, 0.373, 0.375, 0.377, 0.379, & 0.381, 0.383, 0.385, 0.387, 0.389, 0.391, 0.393, 0.394, 0.396, & 0.398, 0.400, 0.402, 0.404, 0.406, 0.408, 0.409, 0.411, 0.413, & 0.415, 0.417, 0.419, 0.421, 0.422, 0.424, 0.426, 0.428, 0.430, & 0.432, 0.433, 0.435, 0.437, 0.439, 0.441, 0.443, 0.444, 0.446, & 0.448, 0.450, 0.452, 0.454, 0.455, 0.457, 0.459, 0.461, 0.463, & 0.464, 0.466, 0.468, 0.470, 0.471, 0.473, 0.475, 0.477, 0.479, & 0.480, 0.482, 0.484, 0.486, 0.487, 0.489, 0.491, 0.493, 0.494, & 0.496, 0.498, 0.500, 0.501, 0.503, 0.505, 0.507, 0.508, 0.510, & 0.512, 0.514, 0.515, 0.517, 0.519, 0.521, 0.522, 0.524, 0.526, & 0.527, 0.529, 0.531, 0.533, 0.534, 0.536, 0.538, 0.539, 0.541, & 0.543, 0.544, 0.546, 0.548, 0.549, 0.551, 0.553, 0.554, 0.556, & 0.558, 0.560, 0.561, 0.563, 0.581, 0.597, 0.613, 0.629, 0.645, & 0.660, 0.676, 0.691, 0.706, 0.721, 0.736, 0.750, 0.765, 0.779, & 0.793, 0.807, 0.820, 0.834, 0.848, 0.861, 0.874, 0.887, 0.900, & 0.913, 0.926, 0.938, 0.951, 0.963, 0.975, 0.987, 0.999, 1.011, & 1.023, 1.035, 1.046, 1.058, 1.069, 1.081, 1.092, 1.103, 1.114, & 1.125, 1.136, 1.147, 1.157, 1.168, 1.178, 1.189, 1.199, 1.210, & 1.220, 1.230, 1.240, 1.250, 1.260, 1.270, 1.279, 1.289, 1.299, & 1.308, 1.318, 1.327, 1.337, 1.346, 1.355, 1.365, 1.374, 1.383, & 1.392, 1.401, 1.410, 1.419, 1.427, 1.436, 1.445, 1.454, 1.462, & 1.471, 1.479, 1.488, 1.496, 1.504, 1.513, 1.521, 1.529, 1.537, & 1.546, 1.554, 1.562, 1.570, 1.578, 1.586, 1.593, 1.601, 1.609, & 1.617, 1.624, 1.632, 1.640, 1.647, 1.655, 1.662, 1.670, 1.677, & 1.685, 1.692, 1.700, 1.707, 1.714, 1.721, 1.729, 1.736, 1.743, & 1.750, 1.757, 1.764, 1.771, 1.778, 1.785, 1.792, 1.799, 1.806, & 1.813, 1.820, 1.826, 1.833, 1.840, 1.847, 1.853, 1.860, 1.866, & 1.873, 1.880, 1.886, 1.893, 1.899, 1.906, 1.912, 1.918, 1.925, & 1.931, 1.938, 1.944, 1.950, 1.956, 1.963, 1.969, 1.975, 1.981, & 1.987, 1.994, 2.000, 2.006, 2.012, 2.018, 2.024, 2.030, 2.036, & 2.042, 2.048, 2.054 & / C C *** (H,Cl) C DATA BNC11M/ &-0.043,-0.087,-0.106,-0.117,-0.124,-0.130,-0.133,-0.135,-0.137, &-0.138,-0.138,-0.137,-0.136,-0.135,-0.134,-0.132,-0.130,-0.127, &-0.125,-0.122,-0.119,-0.116,-0.113,-0.110,-0.107,-0.103,-0.099, &-0.096,-0.092,-0.088,-0.084,-0.080,-0.076,-0.071,-0.067,-0.063, &-0.058,-0.054,-0.049,-0.045,-0.040,-0.036,-0.031,-0.027,-0.022, &-0.017,-0.012,-0.008,-0.003, 0.002, 0.007, 0.012, 0.017, 0.022, & 0.027, 0.031, 0.036, 0.041, 0.046, 0.051, 0.056, 0.061, 0.066, & 0.071, 0.077, 0.082, 0.087, 0.092, 0.097, 0.102, 0.107, 0.113, & 0.118, 0.123, 0.128, 0.134, 0.139, 0.144, 0.149, 0.155, 0.160, & 0.166, 0.171, 0.177, 0.182, 0.188, 0.193, 0.199, 0.204, 0.210, & 0.216, 0.221, 0.227, 0.233, 0.239, 0.244, 0.250, 0.256, 0.262, & 0.268, 0.274, 0.280, 0.286, 0.292, 0.298, 0.304, 0.310, 0.316, & 0.322, 0.328, 0.334, 0.340, 0.346, 0.352, 0.358, 0.364, 0.370, & 0.377, 0.383, 0.389, 0.395, 0.401, 0.407, 0.413, 0.420, 0.426, & 0.432, 0.438, 0.444, 0.450, 0.457, 0.463, 0.469, 0.475, 0.481, & 0.487, 0.493, 0.499, 0.505, 0.512, 0.518, 0.524, 0.530, 0.536, & 0.542, 0.548, 0.554, 0.560, 0.566, 0.572, 0.578, 0.584, 0.590, & 0.596, 0.602, 0.608, 0.614, 0.620, 0.626, 0.632, 0.638, 0.643, & 0.649, 0.655, 0.661, 0.667, 0.673, 0.679, 0.684, 0.690, 0.696, & 0.702, 0.708, 0.713, 0.719, 0.725, 0.731, 0.737, 0.742, 0.748, & 0.754, 0.759, 0.765, 0.771, 0.776, 0.782, 0.788, 0.793, 0.799, & 0.805, 0.810, 0.816, 0.821, 0.827, 0.833, 0.838, 0.844, 0.849, & 0.855, 0.860, 0.866, 0.871, 0.877, 0.882, 0.888, 0.893, 0.899, & 0.904, 0.909, 0.915, 0.920, 0.926, 0.931, 0.936, 0.942, 0.947, & 0.953, 0.958, 0.963, 0.969, 0.974, 0.979, 0.984, 0.990, 0.995, & 1.000, 1.005, 1.011, 1.016, 1.021, 1.026, 1.032, 1.037, 1.042, & 1.047, 1.052, 1.057, 1.062, 1.068, 1.073, 1.078, 1.083, 1.088, & 1.093, 1.098, 1.103, 1.108, 1.113, 1.118, 1.123, 1.128, 1.133, & 1.138, 1.143, 1.148, 1.153, 1.158, 1.163, 1.168, 1.173, 1.178, & 1.183, 1.188, 1.193, 1.198, 1.202, 1.207, 1.212, 1.217, 1.222, & 1.227, 1.232, 1.236, 1.241, 1.246, 1.251, 1.256, 1.260, 1.265, & 1.270, 1.275, 1.279, 1.284, 1.289, 1.293, 1.298, 1.303, 1.307, & 1.312, 1.317, 1.321, 1.326, 1.331, 1.335, 1.340, 1.345, 1.349, & 1.354, 1.358, 1.363, 1.368, 1.372, 1.377, 1.381, 1.386, 1.390, & 1.395, 1.399, 1.404, 1.408, 1.413, 1.417, 1.422, 1.426, 1.431, & 1.435, 1.440, 1.444, 1.449, 1.453, 1.457, 1.462, 1.466, 1.471, & 1.475, 1.479, 1.484, 1.488, 1.492, 1.497, 1.501, 1.506, 1.510, & 1.514, 1.518, 1.523, 1.527, 1.531, 1.536, 1.540, 1.544, 1.548, & 1.553, 1.557, 1.561, 1.565, 1.570, 1.574, 1.578, 1.582, 1.587, & 1.591, 1.595, 1.599, 1.603, 1.607, 1.612, 1.616, 1.620, 1.624, & 1.628, 1.632, 1.636, 1.640, 1.645, 1.649, 1.653, 1.657, 1.661, & 1.665, 1.669, 1.673, 1.677, 1.681, 1.685, 1.689, 1.693, 1.697, & 1.701, 1.705, 1.709, 1.713, 1.717, 1.721, 1.725, 1.729, 1.733, & 1.737, 1.741, 1.745, 1.749, 1.753, 1.757, 1.761, 1.765, 1.769, & 1.772, 1.776, 1.780, 1.784, 1.826, 1.864, 1.901, 1.938, 1.974, & 2.010, 2.045, 2.080, 2.114, 2.148, 2.181, 2.214, 2.246, 2.278, & 2.310, 2.341, 2.372, 2.403, 2.433, 2.463, 2.492, 2.522, 2.550, & 2.579, 2.607, 2.635, 2.663, 2.690, 2.717, 2.744, 2.770, 2.796, & 2.822, 2.848, 2.873, 2.898, 2.923, 2.948, 2.972, 2.996, 3.020, & 3.044, 3.068, 3.091, 3.114, 3.137, 3.160, 3.182, 3.205, 3.227, & 3.249, 3.271, 3.292, 3.314, 3.335, 3.356, 3.377, 3.398, 3.418, & 3.439, 3.459, 3.479, 3.499, 3.519, 3.539, 3.558, 3.578, 3.597, & 3.616, 3.635, 3.654, 3.673, 3.691, 3.710, 3.728, 3.746, 3.765, & 3.783, 3.800, 3.818, 3.836, 3.853, 3.871, 3.888, 3.905, 3.922, & 3.939, 3.956, 3.973, 3.990, 4.006, 4.023, 4.039, 4.055, 4.071, & 4.088, 4.104, 4.119, 4.135, 4.151, 4.167, 4.182, 4.198, 4.213, & 4.228, 4.243, 4.259, 4.274, 4.289, 4.304, 4.318, 4.333, 4.348, & 4.362, 4.377, 4.391, 4.406, 4.420, 4.434, 4.448, 4.462, 4.476, & 4.490, 4.504, 4.518, 4.532, 4.545, 4.559, 4.572, 4.586, 4.599, & 4.613, 4.626, 4.639, 4.652, 4.665, 4.678, 4.691, 4.704, 4.717, & 4.730, 4.743, 4.756, 4.768, 4.781, 4.793, 4.806, 4.818, 4.831, & 4.843, 4.855, 4.867, 4.880, 4.892, 4.904, 4.916, 4.928, 4.940, & 4.952, 4.964, 4.975 & / C C *** NaHSO4 C DATA BNC12M/ &-0.044,-0.092,-0.113,-0.127,-0.138,-0.146,-0.152,-0.157,-0.162, &-0.165,-0.168,-0.170,-0.172,-0.174,-0.175,-0.176,-0.176,-0.177, &-0.177,-0.177,-0.176,-0.176,-0.176,-0.175,-0.174,-0.173,-0.172, &-0.171,-0.169,-0.168,-0.167,-0.165,-0.163,-0.161,-0.160,-0.158, &-0.156,-0.154,-0.151,-0.149,-0.147,-0.145,-0.142,-0.140,-0.137, &-0.135,-0.132,-0.130,-0.127,-0.124,-0.122,-0.119,-0.116,-0.113, &-0.110,-0.107,-0.104,-0.101,-0.098,-0.095,-0.092,-0.089,-0.086, &-0.083,-0.080,-0.076,-0.073,-0.070,-0.067,-0.063,-0.060,-0.057, &-0.053,-0.050,-0.046,-0.043,-0.039,-0.036,-0.032,-0.029,-0.025, &-0.021,-0.018,-0.014,-0.010,-0.007,-0.003, 0.001, 0.005, 0.009, & 0.012, 0.016, 0.020, 0.024, 0.028, 0.032, 0.036, 0.040, 0.044, & 0.048, 0.052, 0.056, 0.060, 0.064, 0.068, 0.073, 0.077, 0.081, & 0.085, 0.089, 0.093, 0.098, 0.102, 0.106, 0.110, 0.115, 0.119, & 0.123, 0.127, 0.131, 0.136, 0.140, 0.144, 0.148, 0.153, 0.157, & 0.161, 0.165, 0.170, 0.174, 0.178, 0.182, 0.187, 0.191, 0.195, & 0.199, 0.204, 0.208, 0.212, 0.216, 0.220, 0.225, 0.229, 0.233, & 0.237, 0.241, 0.245, 0.250, 0.254, 0.258, 0.262, 0.266, 0.270, & 0.274, 0.279, 0.283, 0.287, 0.291, 0.295, 0.299, 0.303, 0.307, & 0.311, 0.315, 0.319, 0.323, 0.327, 0.331, 0.335, 0.339, 0.343, & 0.347, 0.351, 0.355, 0.359, 0.363, 0.367, 0.371, 0.375, 0.379, & 0.383, 0.387, 0.391, 0.395, 0.399, 0.402, 0.406, 0.410, 0.414, & 0.418, 0.422, 0.426, 0.429, 0.433, 0.437, 0.441, 0.445, 0.449, & 0.452, 0.456, 0.460, 0.464, 0.467, 0.471, 0.475, 0.479, 0.482, & 0.486, 0.490, 0.494, 0.497, 0.501, 0.505, 0.508, 0.512, 0.516, & 0.519, 0.523, 0.527, 0.530, 0.534, 0.538, 0.541, 0.545, 0.548, & 0.552, 0.556, 0.559, 0.563, 0.566, 0.570, 0.573, 0.577, 0.581, & 0.584, 0.588, 0.591, 0.595, 0.598, 0.602, 0.605, 0.609, 0.612, & 0.616, 0.619, 0.623, 0.626, 0.630, 0.633, 0.636, 0.640, 0.643, & 0.647, 0.650, 0.654, 0.657, 0.660, 0.664, 0.667, 0.671, 0.674, & 0.677, 0.681, 0.684, 0.687, 0.691, 0.694, 0.697, 0.701, 0.704, & 0.707, 0.711, 0.714, 0.717, 0.721, 0.724, 0.727, 0.730, 0.734, & 0.737, 0.740, 0.743, 0.747, 0.750, 0.753, 0.756, 0.760, 0.763, & 0.766, 0.769, 0.773, 0.776, 0.779, 0.782, 0.785, 0.788, 0.792, & 0.795, 0.798, 0.801, 0.804, 0.807, 0.811, 0.814, 0.817, 0.820, & 0.823, 0.826, 0.829, 0.832, 0.835, 0.839, 0.842, 0.845, 0.848, & 0.851, 0.854, 0.857, 0.860, 0.863, 0.866, 0.869, 0.872, 0.875, & 0.878, 0.881, 0.884, 0.887, 0.890, 0.893, 0.896, 0.899, 0.902, & 0.905, 0.908, 0.911, 0.914, 0.917, 0.920, 0.923, 0.926, 0.929, & 0.932, 0.935, 0.938, 0.941, 0.944, 0.947, 0.949, 0.952, 0.955, & 0.958, 0.961, 0.964, 0.967, 0.970, 0.973, 0.975, 0.978, 0.981, & 0.984, 0.987, 0.990, 0.993, 0.995, 0.998, 1.001, 1.004, 1.007, & 1.010, 1.012, 1.015, 1.018, 1.021, 1.024, 1.026, 1.029, 1.032, & 1.035, 1.038, 1.040, 1.043, 1.046, 1.049, 1.051, 1.054, 1.057, & 1.060, 1.062, 1.065, 1.068, 1.071, 1.073, 1.076, 1.079, 1.082, & 1.084, 1.087, 1.090, 1.092, 1.121, 1.148, 1.174, 1.199, 1.225, & 1.250, 1.274, 1.299, 1.323, 1.346, 1.370, 1.393, 1.416, 1.438, & 1.461, 1.483, 1.504, 1.526, 1.547, 1.568, 1.589, 1.610, 1.630, & 1.650, 1.670, 1.690, 1.710, 1.729, 1.748, 1.767, 1.786, 1.805, & 1.823, 1.841, 1.860, 1.878, 1.895, 1.913, 1.930, 1.948, 1.965, & 1.982, 1.999, 2.015, 2.032, 2.048, 2.065, 2.081, 2.097, 2.113, & 2.129, 2.144, 2.160, 2.175, 2.191, 2.206, 2.221, 2.236, 2.251, & 2.265, 2.280, 2.294, 2.309, 2.323, 2.337, 2.352, 2.366, 2.379, & 2.393, 2.407, 2.421, 2.434, 2.448, 2.461, 2.474, 2.488, 2.501, & 2.514, 2.527, 2.540, 2.552, 2.565, 2.578, 2.590, 2.603, 2.615, & 2.628, 2.640, 2.652, 2.664, 2.676, 2.688, 2.700, 2.712, 2.724, & 2.735, 2.747, 2.759, 2.770, 2.782, 2.793, 2.805, 2.816, 2.827, & 2.838, 2.849, 2.860, 2.871, 2.882, 2.893, 2.904, 2.915, 2.926, & 2.936, 2.947, 2.957, 2.968, 2.978, 2.989, 2.999, 3.010, 3.020, & 3.030, 3.040, 3.050, 3.060, 3.070, 3.080, 3.090, 3.100, 3.110, & 3.120, 3.130, 3.139, 3.149, 3.159, 3.168, 3.178, 3.188, 3.197, & 3.206, 3.216, 3.225, 3.235, 3.244, 3.253, 3.262, 3.272, 3.281, & 3.290, 3.299, 3.308, 3.317, 3.326, 3.335, 3.344, 3.353, 3.361, & 3.370, 3.379, 3.388 & / C C *** (NH4)3H(SO4)2 C DATA BNC13M/ &-0.072,-0.156,-0.197,-0.226,-0.248,-0.266,-0.282,-0.295,-0.307, &-0.317,-0.327,-0.336,-0.344,-0.351,-0.358,-0.364,-0.370,-0.375, &-0.380,-0.385,-0.390,-0.394,-0.398,-0.402,-0.406,-0.409,-0.412, &-0.415,-0.418,-0.421,-0.424,-0.426,-0.429,-0.431,-0.433,-0.435, &-0.437,-0.439,-0.441,-0.442,-0.444,-0.446,-0.447,-0.449,-0.450, &-0.451,-0.452,-0.453,-0.454,-0.456,-0.456,-0.457,-0.458,-0.459, &-0.460,-0.461,-0.461,-0.462,-0.462,-0.463,-0.463,-0.464,-0.464, &-0.465,-0.465,-0.465,-0.466,-0.466,-0.466,-0.467,-0.467,-0.467, &-0.467,-0.467,-0.467,-0.467,-0.467,-0.467,-0.467,-0.467,-0.467, &-0.467,-0.467,-0.467,-0.467,-0.467,-0.466,-0.466,-0.466,-0.466, &-0.466,-0.465,-0.465,-0.465,-0.464,-0.464,-0.464,-0.463,-0.463, &-0.463,-0.462,-0.462,-0.461,-0.461,-0.460,-0.460,-0.459,-0.459, &-0.458,-0.458,-0.457,-0.457,-0.456,-0.456,-0.455,-0.455,-0.454, &-0.454,-0.453,-0.452,-0.452,-0.451,-0.451,-0.450,-0.449,-0.449, &-0.448,-0.447,-0.447,-0.446,-0.445,-0.445,-0.444,-0.443,-0.443, &-0.442,-0.441,-0.441,-0.440,-0.439,-0.439,-0.438,-0.437,-0.437, &-0.436,-0.435,-0.434,-0.434,-0.433,-0.432,-0.432,-0.431,-0.430, &-0.429,-0.429,-0.428,-0.427,-0.427,-0.426,-0.425,-0.424,-0.424, &-0.423,-0.422,-0.421,-0.421,-0.420,-0.419,-0.418,-0.418,-0.417, &-0.416,-0.415,-0.415,-0.414,-0.413,-0.412,-0.412,-0.411,-0.410, &-0.409,-0.409,-0.408,-0.407,-0.406,-0.406,-0.405,-0.404,-0.403, &-0.403,-0.402,-0.401,-0.400,-0.400,-0.399,-0.398,-0.397,-0.397, &-0.396,-0.395,-0.394,-0.394,-0.393,-0.392,-0.391,-0.391,-0.390, &-0.389,-0.388,-0.388,-0.387,-0.386,-0.385,-0.385,-0.384,-0.383, &-0.382,-0.381,-0.381,-0.380,-0.379,-0.378,-0.378,-0.377,-0.376, &-0.375,-0.375,-0.374,-0.373,-0.372,-0.372,-0.371,-0.370,-0.369, &-0.369,-0.368,-0.367,-0.366,-0.366,-0.365,-0.364,-0.363,-0.363, &-0.362,-0.361,-0.360,-0.360,-0.359,-0.358,-0.357,-0.357,-0.356, &-0.355,-0.354,-0.354,-0.353,-0.352,-0.351,-0.351,-0.350,-0.349, &-0.348,-0.348,-0.347,-0.346,-0.345,-0.345,-0.344,-0.343,-0.342, &-0.342,-0.341,-0.340,-0.339,-0.339,-0.338,-0.337,-0.336,-0.336, &-0.335,-0.334,-0.333,-0.333,-0.332,-0.331,-0.331,-0.330,-0.329, &-0.328,-0.328,-0.327,-0.326,-0.325,-0.325,-0.324,-0.323,-0.322, &-0.322,-0.321,-0.320,-0.320,-0.319,-0.318,-0.317,-0.317,-0.316, &-0.315,-0.314,-0.314,-0.313,-0.312,-0.312,-0.311,-0.310,-0.309, &-0.309,-0.308,-0.307,-0.306,-0.306,-0.305,-0.304,-0.304,-0.303, &-0.302,-0.301,-0.301,-0.300,-0.299,-0.299,-0.298,-0.297,-0.296, &-0.296,-0.295,-0.294,-0.294,-0.293,-0.292,-0.291,-0.291,-0.290, &-0.289,-0.289,-0.288,-0.287,-0.286,-0.286,-0.285,-0.284,-0.284, &-0.283,-0.282,-0.281,-0.281,-0.280,-0.279,-0.279,-0.278,-0.277, &-0.277,-0.276,-0.275,-0.274,-0.274,-0.273,-0.272,-0.272,-0.271, &-0.270,-0.270,-0.269,-0.268,-0.267,-0.267,-0.266,-0.265,-0.265, &-0.264,-0.263,-0.263,-0.262,-0.261,-0.261,-0.260,-0.259,-0.258, &-0.258,-0.257,-0.256,-0.256,-0.255,-0.254,-0.254,-0.253,-0.252, &-0.252,-0.251,-0.250,-0.250,-0.242,-0.235,-0.229,-0.222,-0.215, &-0.209,-0.202,-0.196,-0.189,-0.183,-0.176,-0.170,-0.164,-0.157, &-0.151,-0.145,-0.139,-0.133,-0.127,-0.121,-0.115,-0.109,-0.103, &-0.097,-0.091,-0.085,-0.079,-0.073,-0.067,-0.062,-0.056,-0.050, &-0.045,-0.039,-0.033,-0.028,-0.022,-0.017,-0.011,-0.006, 0.000, & 0.005, 0.010, 0.016, 0.021, 0.026, 0.032, 0.037, 0.042, 0.048, & 0.053, 0.058, 0.063, 0.068, 0.073, 0.079, 0.084, 0.089, 0.094, & 0.099, 0.104, 0.109, 0.114, 0.119, 0.124, 0.129, 0.134, 0.138, & 0.143, 0.148, 0.153, 0.158, 0.163, 0.167, 0.172, 0.177, 0.182, & 0.186, 0.191, 0.196, 0.201, 0.205, 0.210, 0.215, 0.219, 0.224, & 0.228, 0.233, 0.238, 0.242, 0.247, 0.251, 0.256, 0.260, 0.265, & 0.269, 0.274, 0.278, 0.283, 0.287, 0.291, 0.296, 0.300, 0.305, & 0.309, 0.313, 0.318, 0.322, 0.326, 0.331, 0.335, 0.339, 0.344, & 0.348, 0.352, 0.357, 0.361, 0.365, 0.369, 0.374, 0.378, 0.382, & 0.386, 0.390, 0.395, 0.399, 0.403, 0.407, 0.411, 0.415, 0.419, & 0.424, 0.428, 0.432, 0.436, 0.440, 0.444, 0.448, 0.452, 0.456, & 0.460, 0.464, 0.468, 0.472, 0.476, 0.480, 0.484, 0.488, 0.492, & 0.496, 0.500, 0.504, 0.508, 0.512, 0.516, 0.520, 0.524, 0.528, & 0.532, 0.536, 0.540 & / C C *** CASO4 C DATA BNC14M/ & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & 0.000, 0.000, 0.000 & / C C *** CANO32 C DATA BNC15M/ &-0.090,-0.191,-0.239,-0.271,-0.296,-0.316,-0.332,-0.346,-0.358, &-0.368,-0.378,-0.386,-0.393,-0.400,-0.405,-0.411,-0.416,-0.420, &-0.424,-0.428,-0.431,-0.434,-0.437,-0.440,-0.442,-0.444,-0.446, &-0.448,-0.450,-0.451,-0.453,-0.454,-0.455,-0.456,-0.457,-0.458, &-0.459,-0.460,-0.460,-0.461,-0.461,-0.462,-0.462,-0.463,-0.463, &-0.463,-0.463,-0.463,-0.464,-0.464,-0.464,-0.464,-0.464,-0.464, &-0.464,-0.463,-0.463,-0.463,-0.463,-0.463,-0.462,-0.462,-0.462, &-0.462,-0.461,-0.461,-0.460,-0.460,-0.460,-0.459,-0.459,-0.458, &-0.458,-0.457,-0.457,-0.456,-0.455,-0.455,-0.454,-0.454,-0.453, &-0.452,-0.451,-0.451,-0.450,-0.449,-0.448,-0.448,-0.447,-0.446, &-0.445,-0.444,-0.443,-0.442,-0.441,-0.440,-0.439,-0.439,-0.438, &-0.437,-0.435,-0.434,-0.433,-0.432,-0.431,-0.430,-0.429,-0.428, &-0.427,-0.426,-0.425,-0.423,-0.422,-0.421,-0.420,-0.419,-0.417, &-0.416,-0.415,-0.414,-0.413,-0.411,-0.410,-0.409,-0.408,-0.406, &-0.405,-0.404,-0.403,-0.401,-0.400,-0.399,-0.398,-0.396,-0.395, &-0.394,-0.392,-0.391,-0.390,-0.388,-0.387,-0.386,-0.385,-0.383, &-0.382,-0.381,-0.379,-0.378,-0.377,-0.375,-0.374,-0.373,-0.371, &-0.370,-0.369,-0.367,-0.366,-0.365,-0.363,-0.362,-0.361,-0.359, &-0.358,-0.357,-0.355,-0.354,-0.353,-0.351,-0.350,-0.349,-0.347, &-0.346,-0.345,-0.343,-0.342,-0.341,-0.339,-0.338,-0.337,-0.335, &-0.334,-0.333,-0.331,-0.330,-0.328,-0.327,-0.326,-0.324,-0.323, &-0.322,-0.320,-0.319,-0.318,-0.316,-0.315,-0.314,-0.312,-0.311, &-0.310,-0.308,-0.307,-0.306,-0.304,-0.303,-0.301,-0.300,-0.299, &-0.297,-0.296,-0.295,-0.293,-0.292,-0.291,-0.289,-0.288,-0.287, &-0.285,-0.284,-0.283,-0.281,-0.280,-0.279,-0.277,-0.276,-0.275, &-0.273,-0.272,-0.271,-0.269,-0.268,-0.267,-0.265,-0.264,-0.263, &-0.261,-0.260,-0.259,-0.257,-0.256,-0.255,-0.253,-0.252,-0.251, &-0.249,-0.248,-0.247,-0.245,-0.244,-0.243,-0.241,-0.240,-0.239, &-0.237,-0.236,-0.235,-0.233,-0.232,-0.231,-0.230,-0.228,-0.227, &-0.226,-0.224,-0.223,-0.222,-0.220,-0.219,-0.218,-0.216,-0.215, &-0.214,-0.213,-0.211,-0.210,-0.209,-0.207,-0.206,-0.205,-0.203, &-0.202,-0.201,-0.200,-0.198,-0.197,-0.196,-0.194,-0.193,-0.192, &-0.191,-0.189,-0.188,-0.187,-0.185,-0.184,-0.183,-0.182,-0.180, &-0.179,-0.178,-0.176,-0.175,-0.174,-0.173,-0.171,-0.170,-0.169, &-0.167,-0.166,-0.165,-0.164,-0.162,-0.161,-0.160,-0.159,-0.157, &-0.156,-0.155,-0.154,-0.152,-0.151,-0.150,-0.149,-0.147,-0.146, &-0.145,-0.144,-0.142,-0.141,-0.140,-0.139,-0.137,-0.136,-0.135, &-0.134,-0.132,-0.131,-0.130,-0.129,-0.127,-0.126,-0.125,-0.124, &-0.122,-0.121,-0.120,-0.119,-0.117,-0.116,-0.115,-0.114,-0.113, &-0.111,-0.110,-0.109,-0.108,-0.106,-0.105,-0.104,-0.103,-0.102, &-0.100,-0.099,-0.098,-0.097,-0.095,-0.094,-0.093,-0.092,-0.091, &-0.089,-0.088,-0.087,-0.086,-0.085,-0.083,-0.082,-0.081,-0.080, &-0.079,-0.077,-0.076,-0.075,-0.074,-0.073,-0.071,-0.070,-0.069, &-0.068,-0.067,-0.065,-0.064,-0.063,-0.062,-0.061,-0.059,-0.058, &-0.057,-0.056,-0.055,-0.054,-0.041,-0.029,-0.018,-0.006, 0.005, & 0.017, 0.028, 0.039, 0.050, 0.061, 0.072, 0.083, 0.094, 0.104, & 0.115, 0.125, 0.136, 0.146, 0.156, 0.167, 0.177, 0.187, 0.197, & 0.207, 0.217, 0.227, 0.236, 0.246, 0.256, 0.265, 0.275, 0.284, & 0.294, 0.303, 0.312, 0.322, 0.331, 0.340, 0.349, 0.358, 0.367, & 0.376, 0.385, 0.394, 0.403, 0.411, 0.420, 0.429, 0.437, 0.446, & 0.455, 0.463, 0.472, 0.480, 0.488, 0.497, 0.505, 0.513, 0.521, & 0.530, 0.538, 0.546, 0.554, 0.562, 0.570, 0.578, 0.586, 0.594, & 0.602, 0.610, 0.617, 0.625, 0.633, 0.641, 0.648, 0.656, 0.664, & 0.671, 0.679, 0.686, 0.694, 0.701, 0.709, 0.716, 0.723, 0.731, & 0.738, 0.745, 0.753, 0.760, 0.767, 0.774, 0.782, 0.789, 0.796, & 0.803, 0.810, 0.817, 0.824, 0.831, 0.838, 0.845, 0.852, 0.859, & 0.866, 0.873, 0.880, 0.886, 0.893, 0.900, 0.907, 0.914, 0.920, & 0.927, 0.934, 0.940, 0.947, 0.954, 0.960, 0.967, 0.973, 0.980, & 0.987, 0.993, 1.000, 1.006, 1.013, 1.019, 1.025, 1.032, 1.038, & 1.045, 1.051, 1.057, 1.064, 1.070, 1.076, 1.083, 1.089, 1.095, & 1.101, 1.108, 1.114, 1.120, 1.126, 1.132, 1.139, 1.145, 1.151, & 1.157, 1.163, 1.169, 1.175, 1.181, 1.187, 1.193, 1.199, 1.205, & 1.211, 1.217, 1.223 & / C C *** CACL2 C DATA BNC16M/ &-0.088,-0.184,-0.228,-0.256,-0.277,-0.293,-0.305,-0.315,-0.323, &-0.330,-0.335,-0.340,-0.343,-0.346,-0.349,-0.350,-0.352,-0.353, &-0.353,-0.353,-0.353,-0.353,-0.352,-0.352,-0.351,-0.349,-0.348, &-0.347,-0.345,-0.343,-0.341,-0.339,-0.337,-0.335,-0.333,-0.331, &-0.328,-0.326,-0.324,-0.321,-0.318,-0.316,-0.313,-0.311,-0.308, &-0.305,-0.302,-0.299,-0.297,-0.294,-0.291,-0.288,-0.285,-0.282, &-0.279,-0.276,-0.273,-0.270,-0.267,-0.264,-0.261,-0.258,-0.255, &-0.252,-0.249,-0.246,-0.243,-0.239,-0.236,-0.233,-0.230,-0.227, &-0.223,-0.220,-0.217,-0.214,-0.210,-0.207,-0.203,-0.200,-0.197, &-0.193,-0.190,-0.186,-0.183,-0.179,-0.176,-0.172,-0.168,-0.165, &-0.161,-0.158,-0.154,-0.150,-0.146,-0.143,-0.139,-0.135,-0.131, &-0.127,-0.123,-0.119,-0.115,-0.111,-0.107,-0.103,-0.099,-0.095, &-0.091,-0.087,-0.083,-0.079,-0.075,-0.071,-0.067,-0.063,-0.059, &-0.055,-0.050,-0.046,-0.042,-0.038,-0.034,-0.030,-0.026,-0.021, &-0.017,-0.013,-0.009,-0.005, 0.000, 0.004, 0.008, 0.012, 0.016, & 0.020, 0.025, 0.029, 0.033, 0.037, 0.041, 0.046, 0.050, 0.054, & 0.058, 0.062, 0.066, 0.071, 0.075, 0.079, 0.083, 0.087, 0.091, & 0.095, 0.100, 0.104, 0.108, 0.112, 0.116, 0.120, 0.124, 0.128, & 0.133, 0.137, 0.141, 0.145, 0.149, 0.153, 0.157, 0.161, 0.165, & 0.169, 0.174, 0.178, 0.182, 0.186, 0.190, 0.194, 0.198, 0.202, & 0.206, 0.210, 0.214, 0.218, 0.222, 0.226, 0.230, 0.234, 0.238, & 0.242, 0.246, 0.250, 0.254, 0.258, 0.262, 0.266, 0.270, 0.274, & 0.278, 0.282, 0.286, 0.290, 0.294, 0.298, 0.302, 0.306, 0.310, & 0.314, 0.318, 0.321, 0.325, 0.329, 0.333, 0.337, 0.341, 0.345, & 0.349, 0.353, 0.356, 0.360, 0.364, 0.368, 0.372, 0.376, 0.380, & 0.383, 0.387, 0.391, 0.395, 0.399, 0.403, 0.406, 0.410, 0.414, & 0.418, 0.422, 0.425, 0.429, 0.433, 0.437, 0.440, 0.444, 0.448, & 0.452, 0.455, 0.459, 0.463, 0.467, 0.470, 0.474, 0.478, 0.482, & 0.485, 0.489, 0.493, 0.496, 0.500, 0.504, 0.507, 0.511, 0.515, & 0.518, 0.522, 0.526, 0.529, 0.533, 0.537, 0.540, 0.544, 0.548, & 0.551, 0.555, 0.558, 0.562, 0.566, 0.569, 0.573, 0.576, 0.580, & 0.584, 0.587, 0.591, 0.594, 0.598, 0.601, 0.605, 0.609, 0.612, & 0.616, 0.619, 0.623, 0.626, 0.630, 0.633, 0.637, 0.640, 0.644, & 0.647, 0.651, 0.654, 0.658, 0.661, 0.665, 0.668, 0.672, 0.675, & 0.678, 0.682, 0.685, 0.689, 0.692, 0.696, 0.699, 0.703, 0.706, & 0.709, 0.713, 0.716, 0.720, 0.723, 0.726, 0.730, 0.733, 0.737, & 0.740, 0.743, 0.747, 0.750, 0.753, 0.757, 0.760, 0.763, 0.767, & 0.770, 0.773, 0.777, 0.780, 0.783, 0.787, 0.790, 0.793, 0.797, & 0.800, 0.803, 0.807, 0.810, 0.813, 0.816, 0.820, 0.823, 0.826, & 0.829, 0.833, 0.836, 0.839, 0.842, 0.846, 0.849, 0.852, 0.855, & 0.859, 0.862, 0.865, 0.868, 0.871, 0.875, 0.878, 0.881, 0.884, & 0.887, 0.891, 0.894, 0.897, 0.900, 0.903, 0.906, 0.910, 0.913, & 0.916, 0.919, 0.922, 0.925, 0.928, 0.932, 0.935, 0.938, 0.941, & 0.944, 0.947, 0.950, 0.953, 0.957, 0.960, 0.963, 0.966, 0.969, & 0.972, 0.975, 0.978, 0.981, 1.014, 1.044, 1.074, 1.103, 1.132, & 1.161, 1.189, 1.218, 1.245, 1.273, 1.300, 1.327, 1.353, 1.380, & 1.406, 1.431, 1.457, 1.482, 1.507, 1.532, 1.556, 1.580, 1.604, & 1.628, 1.652, 1.675, 1.698, 1.721, 1.744, 1.766, 1.788, 1.811, & 1.832, 1.854, 1.876, 1.897, 1.918, 1.939, 1.960, 1.981, 2.001, & 2.022, 2.042, 2.062, 2.082, 2.101, 2.121, 2.140, 2.160, 2.179, & 2.198, 2.217, 2.235, 2.254, 2.273, 2.291, 2.309, 2.327, 2.345, & 2.363, 2.381, 2.398, 2.416, 2.433, 2.451, 2.468, 2.485, 2.502, & 2.519, 2.535, 2.552, 2.569, 2.585, 2.601, 2.618, 2.634, 2.650, & 2.666, 2.682, 2.698, 2.713, 2.729, 2.745, 2.760, 2.775, 2.791, & 2.806, 2.821, 2.836, 2.851, 2.866, 2.881, 2.895, 2.910, 2.925, & 2.939, 2.954, 2.968, 2.982, 2.997, 3.011, 3.025, 3.039, 3.053, & 3.067, 3.081, 3.094, 3.108, 3.122, 3.135, 3.149, 3.162, 3.176, & 3.189, 3.202, 3.216, 3.229, 3.242, 3.255, 3.268, 3.281, 3.294, & 3.307, 3.319, 3.332, 3.345, 3.357, 3.370, 3.383, 3.395, 3.407, & 3.420, 3.432, 3.444, 3.457, 3.469, 3.481, 3.493, 3.505, 3.517, & 3.529, 3.541, 3.553, 3.565, 3.577, 3.588, 3.600, 3.612, 3.623, & 3.635, 3.646, 3.658, 3.669, 3.681, 3.692, 3.704, 3.715, 3.726, & 3.737, 3.748, 3.760 & / C C *** K2SO4 C DATA BNC17M/ &-0.091,-0.197,-0.249,-0.286,-0.315,-0.339,-0.359,-0.377,-0.392, &-0.406,-0.419,-0.431,-0.442,-0.452,-0.461,-0.470,-0.478,-0.486, &-0.493,-0.500,-0.507,-0.513,-0.519,-0.525,-0.530,-0.535,-0.540, &-0.545,-0.550,-0.554,-0.559,-0.563,-0.567,-0.571,-0.575,-0.579, &-0.582,-0.586,-0.589,-0.592,-0.596,-0.599,-0.602,-0.605,-0.608, &-0.611,-0.613,-0.616,-0.619,-0.621,-0.624,-0.626,-0.628,-0.631, &-0.633,-0.635,-0.637,-0.640,-0.642,-0.644,-0.646,-0.648,-0.650, &-0.652,-0.653,-0.655,-0.657,-0.659,-0.661,-0.662,-0.664,-0.666, &-0.667,-0.669,-0.670,-0.672,-0.673,-0.675,-0.676,-0.678,-0.679, &-0.681,-0.682,-0.683,-0.685,-0.686,-0.687,-0.689,-0.690,-0.691, &-0.693,-0.694,-0.695,-0.696,-0.697,-0.699,-0.700,-0.701,-0.702, &-0.703,-0.704,-0.705,-0.707,-0.708,-0.709,-0.710,-0.711,-0.712, &-0.713,-0.714,-0.715,-0.716,-0.717,-0.718,-0.719,-0.720,-0.721, &-0.722,-0.723,-0.724,-0.724,-0.725,-0.726,-0.727,-0.728,-0.729, &-0.730,-0.731,-0.731,-0.732,-0.733,-0.734,-0.735,-0.735,-0.736, &-0.737,-0.738,-0.738,-0.739,-0.740,-0.741,-0.741,-0.742,-0.743, &-0.744,-0.744,-0.745,-0.746,-0.746,-0.747,-0.748,-0.748,-0.749, &-0.750,-0.750,-0.751,-0.752,-0.752,-0.753,-0.754,-0.754,-0.755, &-0.755,-0.756,-0.757,-0.757,-0.758,-0.758,-0.759,-0.759,-0.760, &-0.761,-0.761,-0.762,-0.762,-0.763,-0.763,-0.764,-0.764,-0.765, &-0.765,-0.766,-0.766,-0.767,-0.767,-0.768,-0.768,-0.769,-0.769, &-0.770,-0.770,-0.771,-0.771,-0.772,-0.772,-0.772,-0.773,-0.773, &-0.774,-0.774,-0.775,-0.775,-0.776,-0.776,-0.776,-0.777,-0.777, &-0.778,-0.778,-0.778,-0.779,-0.779,-0.780,-0.780,-0.780,-0.781, &-0.781,-0.781,-0.782,-0.782,-0.783,-0.783,-0.783,-0.784,-0.784, &-0.784,-0.785,-0.785,-0.785,-0.786,-0.786,-0.786,-0.787,-0.787, &-0.787,-0.788,-0.788,-0.788,-0.789,-0.789,-0.789,-0.790,-0.790, &-0.790,-0.790,-0.791,-0.791,-0.791,-0.792,-0.792,-0.792,-0.793, &-0.793,-0.793,-0.793,-0.794,-0.794,-0.794,-0.794,-0.795,-0.795, &-0.795,-0.795,-0.796,-0.796,-0.796,-0.796,-0.797,-0.797,-0.797, &-0.797,-0.798,-0.798,-0.798,-0.798,-0.799,-0.799,-0.799,-0.799, &-0.800,-0.800,-0.800,-0.800,-0.800,-0.801,-0.801,-0.801,-0.801, &-0.801,-0.802,-0.802,-0.802,-0.802,-0.802,-0.803,-0.803,-0.803, &-0.803,-0.803,-0.804,-0.804,-0.804,-0.804,-0.804,-0.804,-0.805, &-0.805,-0.805,-0.805,-0.805,-0.806,-0.806,-0.806,-0.806,-0.806, &-0.806,-0.806,-0.807,-0.807,-0.807,-0.807,-0.807,-0.807,-0.808, &-0.808,-0.808,-0.808,-0.808,-0.808,-0.808,-0.809,-0.809,-0.809, &-0.809,-0.809,-0.809,-0.809,-0.810,-0.810,-0.810,-0.810,-0.810, &-0.810,-0.810,-0.810,-0.810,-0.811,-0.811,-0.811,-0.811,-0.811, &-0.811,-0.811,-0.811,-0.812,-0.812,-0.812,-0.812,-0.812,-0.812, &-0.812,-0.812,-0.812,-0.812,-0.813,-0.813,-0.813,-0.813,-0.813, &-0.813,-0.813,-0.813,-0.813,-0.813,-0.813,-0.814,-0.814,-0.814, &-0.814,-0.814,-0.814,-0.814,-0.814,-0.814,-0.814,-0.814,-0.814, &-0.814,-0.815,-0.815,-0.815,-0.815,-0.815,-0.815,-0.815,-0.815, &-0.815,-0.815,-0.815,-0.815,-0.816,-0.816,-0.817,-0.817,-0.817, &-0.817,-0.817,-0.817,-0.817,-0.817,-0.817,-0.817,-0.816,-0.816, &-0.816,-0.815,-0.815,-0.814,-0.813,-0.813,-0.812,-0.811,-0.811, &-0.810,-0.809,-0.808,-0.807,-0.806,-0.805,-0.804,-0.803,-0.802, &-0.801,-0.800,-0.799,-0.797,-0.796,-0.795,-0.794,-0.792,-0.791, &-0.790,-0.788,-0.787,-0.786,-0.784,-0.783,-0.781,-0.780,-0.778, &-0.777,-0.775,-0.774,-0.772,-0.771,-0.769,-0.767,-0.766,-0.764, &-0.762,-0.761,-0.759,-0.757,-0.756,-0.754,-0.752,-0.750,-0.749, &-0.747,-0.745,-0.743,-0.741,-0.740,-0.738,-0.736,-0.734,-0.732, &-0.730,-0.728,-0.727,-0.725,-0.723,-0.721,-0.719,-0.717,-0.715, &-0.713,-0.711,-0.709,-0.707,-0.705,-0.703,-0.701,-0.699,-0.697, &-0.695,-0.693,-0.691,-0.689,-0.687,-0.685,-0.683,-0.681,-0.678, &-0.676,-0.674,-0.672,-0.670,-0.668,-0.666,-0.664,-0.661,-0.659, &-0.657,-0.655,-0.653,-0.651,-0.648,-0.646,-0.644,-0.642,-0.640, &-0.638,-0.635,-0.633,-0.631,-0.629,-0.626,-0.624,-0.622,-0.620, &-0.618,-0.615,-0.613,-0.611,-0.609,-0.606,-0.604,-0.602,-0.599, &-0.597,-0.595,-0.593,-0.590,-0.588,-0.586,-0.583,-0.581,-0.579, &-0.577,-0.574,-0.572,-0.570,-0.567,-0.565,-0.563,-0.560,-0.558, &-0.556,-0.553,-0.551 & / C C *** KHSO4 C DATA BNC18M/ &-0.045,-0.094,-0.118,-0.134,-0.147,-0.156,-0.165,-0.171,-0.177, &-0.182,-0.187,-0.191,-0.195,-0.198,-0.200,-0.203,-0.205,-0.207, &-0.209,-0.210,-0.212,-0.213,-0.214,-0.215,-0.215,-0.216,-0.216, &-0.216,-0.217,-0.217,-0.217,-0.217,-0.216,-0.216,-0.216,-0.215, &-0.214,-0.214,-0.213,-0.212,-0.211,-0.210,-0.209,-0.208,-0.207, &-0.206,-0.205,-0.204,-0.202,-0.201,-0.199,-0.198,-0.196,-0.195, &-0.193,-0.191,-0.190,-0.188,-0.186,-0.184,-0.183,-0.181,-0.179, &-0.177,-0.175,-0.173,-0.171,-0.169,-0.167,-0.165,-0.163,-0.160, &-0.158,-0.156,-0.154,-0.152,-0.149,-0.147,-0.145,-0.142,-0.140, &-0.137,-0.135,-0.133,-0.130,-0.128,-0.125,-0.123,-0.120,-0.117, &-0.115,-0.112,-0.109,-0.107,-0.104,-0.101,-0.099,-0.096,-0.093, &-0.090,-0.088,-0.085,-0.082,-0.079,-0.076,-0.074,-0.071,-0.068, &-0.065,-0.062,-0.059,-0.056,-0.053,-0.050,-0.047,-0.044,-0.042, &-0.039,-0.036,-0.033,-0.030,-0.027,-0.024,-0.021,-0.018,-0.015, &-0.012,-0.009,-0.006,-0.003, 0.000, 0.003, 0.006, 0.009, 0.012, & 0.015, 0.018, 0.020, 0.023, 0.026, 0.029, 0.032, 0.035, 0.038, & 0.041, 0.044, 0.047, 0.050, 0.053, 0.055, 0.058, 0.061, 0.064, & 0.067, 0.070, 0.073, 0.076, 0.078, 0.081, 0.084, 0.087, 0.090, & 0.093, 0.095, 0.098, 0.101, 0.104, 0.107, 0.109, 0.112, 0.115, & 0.118, 0.121, 0.123, 0.126, 0.129, 0.132, 0.134, 0.137, 0.140, & 0.143, 0.145, 0.148, 0.151, 0.153, 0.156, 0.159, 0.162, 0.164, & 0.167, 0.170, 0.172, 0.175, 0.178, 0.180, 0.183, 0.186, 0.188, & 0.191, 0.193, 0.196, 0.199, 0.201, 0.204, 0.206, 0.209, 0.212, & 0.214, 0.217, 0.219, 0.222, 0.225, 0.227, 0.230, 0.232, 0.235, & 0.237, 0.240, 0.242, 0.245, 0.247, 0.250, 0.252, 0.255, 0.257, & 0.260, 0.262, 0.265, 0.267, 0.270, 0.272, 0.275, 0.277, 0.280, & 0.282, 0.285, 0.287, 0.289, 0.292, 0.294, 0.297, 0.299, 0.302, & 0.304, 0.306, 0.309, 0.311, 0.314, 0.316, 0.318, 0.321, 0.323, & 0.325, 0.328, 0.330, 0.333, 0.335, 0.337, 0.340, 0.342, 0.344, & 0.347, 0.349, 0.351, 0.354, 0.356, 0.358, 0.360, 0.363, 0.365, & 0.367, 0.370, 0.372, 0.374, 0.376, 0.379, 0.381, 0.383, 0.386, & 0.388, 0.390, 0.392, 0.395, 0.397, 0.399, 0.401, 0.403, 0.406, & 0.408, 0.410, 0.412, 0.415, 0.417, 0.419, 0.421, 0.423, 0.425, & 0.428, 0.430, 0.432, 0.434, 0.436, 0.439, 0.441, 0.443, 0.445, & 0.447, 0.449, 0.451, 0.454, 0.456, 0.458, 0.460, 0.462, 0.464, & 0.466, 0.468, 0.471, 0.473, 0.475, 0.477, 0.479, 0.481, 0.483, & 0.485, 0.487, 0.489, 0.491, 0.494, 0.496, 0.498, 0.500, 0.502, & 0.504, 0.506, 0.508, 0.510, 0.512, 0.514, 0.516, 0.518, 0.520, & 0.522, 0.524, 0.526, 0.528, 0.530, 0.532, 0.534, 0.536, 0.538, & 0.540, 0.542, 0.544, 0.546, 0.548, 0.550, 0.552, 0.554, 0.556, & 0.558, 0.560, 0.562, 0.564, 0.566, 0.568, 0.570, 0.572, 0.574, & 0.576, 0.578, 0.580, 0.582, 0.584, 0.585, 0.587, 0.589, 0.591, & 0.593, 0.595, 0.597, 0.599, 0.601, 0.603, 0.605, 0.607, 0.608, & 0.610, 0.612, 0.614, 0.616, 0.618, 0.620, 0.622, 0.623, 0.625, & 0.627, 0.629, 0.631, 0.633, 0.653, 0.671, 0.689, 0.707, 0.724, & 0.741, 0.758, 0.775, 0.792, 0.808, 0.824, 0.840, 0.856, 0.872, & 0.887, 0.903, 0.918, 0.933, 0.947, 0.962, 0.977, 0.991, 1.005, & 1.019, 1.033, 1.047, 1.060, 1.074, 1.087, 1.101, 1.114, 1.127, & 1.140, 1.152, 1.165, 1.178, 1.190, 1.202, 1.215, 1.227, 1.239, & 1.251, 1.262, 1.274, 1.286, 1.297, 1.309, 1.320, 1.332, 1.343, & 1.354, 1.365, 1.376, 1.387, 1.397, 1.408, 1.419, 1.429, 1.440, & 1.450, 1.461, 1.471, 1.481, 1.491, 1.501, 1.511, 1.521, 1.531, & 1.541, 1.551, 1.561, 1.570, 1.580, 1.589, 1.599, 1.608, 1.617, & 1.627, 1.636, 1.645, 1.654, 1.663, 1.672, 1.681, 1.690, 1.699, & 1.708, 1.717, 1.726, 1.734, 1.743, 1.751, 1.760, 1.768, 1.777, & 1.785, 1.794, 1.802, 1.810, 1.819, 1.827, 1.835, 1.843, 1.851, & 1.859, 1.867, 1.875, 1.883, 1.891, 1.899, 1.907, 1.915, 1.922, & 1.930, 1.938, 1.945, 1.953, 1.960, 1.968, 1.976, 1.983, 1.990, & 1.998, 2.005, 2.013, 2.020, 2.027, 2.034, 2.042, 2.049, 2.056, & 2.063, 2.070, 2.077, 2.084, 2.091, 2.098, 2.105, 2.112, 2.119, & 2.126, 2.133, 2.140, 2.147, 2.154, 2.160, 2.167, 2.174, 2.180, & 2.187, 2.194, 2.200, 2.207, 2.213, 2.220, 2.227, 2.233, 2.240, & 2.246, 2.252, 2.259 & / C C *** KNO3 C DATA BNC19M/ &-0.046,-0.105,-0.136,-0.159,-0.178,-0.194,-0.208,-0.221,-0.233, &-0.244,-0.255,-0.265,-0.274,-0.283,-0.291,-0.299,-0.307,-0.315, &-0.322,-0.329,-0.336,-0.342,-0.349,-0.355,-0.361,-0.367,-0.373, &-0.379,-0.384,-0.390,-0.395,-0.400,-0.405,-0.410,-0.415,-0.420, &-0.425,-0.430,-0.434,-0.439,-0.443,-0.447,-0.452,-0.456,-0.460, &-0.464,-0.468,-0.472,-0.476,-0.480,-0.483,-0.487,-0.491,-0.494, &-0.498,-0.501,-0.505,-0.508,-0.511,-0.515,-0.518,-0.521,-0.524, &-0.528,-0.531,-0.534,-0.537,-0.540,-0.543,-0.546,-0.549,-0.552, &-0.555,-0.557,-0.560,-0.563,-0.566,-0.569,-0.571,-0.574,-0.577, &-0.580,-0.582,-0.585,-0.588,-0.590,-0.593,-0.596,-0.598,-0.601, &-0.604,-0.606,-0.609,-0.611,-0.614,-0.616,-0.619,-0.622,-0.624, &-0.627,-0.629,-0.632,-0.634,-0.637,-0.639,-0.641,-0.644,-0.646, &-0.649,-0.651,-0.654,-0.656,-0.658,-0.661,-0.663,-0.666,-0.668, &-0.670,-0.673,-0.675,-0.677,-0.679,-0.682,-0.684,-0.686,-0.688, &-0.691,-0.693,-0.695,-0.697,-0.699,-0.702,-0.704,-0.706,-0.708, &-0.710,-0.712,-0.714,-0.716,-0.718,-0.721,-0.723,-0.725,-0.727, &-0.729,-0.731,-0.733,-0.735,-0.737,-0.739,-0.740,-0.742,-0.744, &-0.746,-0.748,-0.750,-0.752,-0.754,-0.756,-0.757,-0.759,-0.761, &-0.763,-0.765,-0.767,-0.768,-0.770,-0.772,-0.774,-0.775,-0.777, &-0.779,-0.780,-0.782,-0.784,-0.786,-0.787,-0.789,-0.791,-0.792, &-0.794,-0.796,-0.797,-0.799,-0.800,-0.802,-0.804,-0.805,-0.807, &-0.808,-0.810,-0.811,-0.813,-0.814,-0.816,-0.817,-0.819,-0.820, &-0.822,-0.823,-0.825,-0.826,-0.828,-0.829,-0.831,-0.832,-0.834, &-0.835,-0.836,-0.838,-0.839,-0.841,-0.842,-0.843,-0.845,-0.846, &-0.847,-0.849,-0.850,-0.851,-0.853,-0.854,-0.855,-0.857,-0.858, &-0.859,-0.861,-0.862,-0.863,-0.864,-0.866,-0.867,-0.868,-0.869, &-0.871,-0.872,-0.873,-0.874,-0.875,-0.877,-0.878,-0.879,-0.880, &-0.881,-0.882,-0.884,-0.885,-0.886,-0.887,-0.888,-0.889,-0.890, &-0.892,-0.893,-0.894,-0.895,-0.896,-0.897,-0.898,-0.899,-0.900, &-0.901,-0.902,-0.904,-0.905,-0.906,-0.907,-0.908,-0.909,-0.910, &-0.911,-0.912,-0.913,-0.914,-0.915,-0.916,-0.917,-0.918,-0.919, &-0.920,-0.921,-0.922,-0.923,-0.924,-0.925,-0.926,-0.926,-0.927, &-0.928,-0.929,-0.930,-0.931,-0.932,-0.933,-0.934,-0.935,-0.936, &-0.936,-0.937,-0.938,-0.939,-0.940,-0.941,-0.942,-0.943,-0.943, &-0.944,-0.945,-0.946,-0.947,-0.948,-0.948,-0.949,-0.950,-0.951, &-0.952,-0.953,-0.953,-0.954,-0.955,-0.956,-0.957,-0.957,-0.958, &-0.959,-0.960,-0.960,-0.961,-0.962,-0.963,-0.963,-0.964,-0.965, &-0.966,-0.966,-0.967,-0.968,-0.969,-0.969,-0.970,-0.971,-0.971, &-0.972,-0.973,-0.974,-0.974,-0.975,-0.976,-0.976,-0.977,-0.978, &-0.978,-0.979,-0.980,-0.980,-0.981,-0.982,-0.982,-0.983,-0.984, &-0.984,-0.985,-0.986,-0.986,-0.987,-0.988,-0.988,-0.989,-0.989, &-0.990,-0.991,-0.991,-0.992,-0.992,-0.993,-0.994,-0.994,-0.995, &-0.995,-0.996,-0.997,-0.997,-0.998,-0.998,-0.999,-1.000,-1.000, &-1.001,-1.001,-1.002,-1.002,-1.003,-1.003,-1.004,-1.005,-1.005, &-1.006,-1.006,-1.007,-1.007,-1.013,-1.018,-1.022,-1.027,-1.031, &-1.035,-1.039,-1.042,-1.046,-1.049,-1.052,-1.055,-1.058,-1.060, &-1.063,-1.065,-1.067,-1.069,-1.071,-1.073,-1.075,-1.076,-1.078, &-1.079,-1.081,-1.082,-1.083,-1.084,-1.085,-1.086,-1.087,-1.088, &-1.088,-1.089,-1.089,-1.090,-1.090,-1.091,-1.091,-1.091,-1.092, &-1.092,-1.092,-1.092,-1.092,-1.092,-1.092,-1.092,-1.092,-1.092, &-1.092,-1.091,-1.091,-1.091,-1.091,-1.090,-1.090,-1.090,-1.089, &-1.089,-1.088,-1.088,-1.087,-1.087,-1.086,-1.085,-1.085,-1.084, &-1.084,-1.083,-1.082,-1.082,-1.081,-1.080,-1.079,-1.079,-1.078, &-1.077,-1.076,-1.075,-1.074,-1.074,-1.073,-1.072,-1.071,-1.070, &-1.069,-1.068,-1.067,-1.066,-1.065,-1.064,-1.063,-1.062,-1.061, &-1.060,-1.059,-1.058,-1.057,-1.056,-1.055,-1.054,-1.053,-1.052, &-1.051,-1.050,-1.049,-1.047,-1.046,-1.045,-1.044,-1.043,-1.042, &-1.041,-1.040,-1.038,-1.037,-1.036,-1.035,-1.034,-1.032,-1.031, &-1.030,-1.029,-1.028,-1.026,-1.025,-1.024,-1.023,-1.022,-1.020, &-1.019,-1.018,-1.017,-1.015,-1.014,-1.013,-1.012,-1.010,-1.009, &-1.008,-1.007,-1.005,-1.004,-1.003,-1.001,-1.000,-0.999,-0.998, &-0.996,-0.995,-0.994,-0.992,-0.991,-0.990,-0.989,-0.987,-0.986, &-0.985,-0.983,-0.982 & / C C *** KCL C DATA BNC20M/ &-0.045,-0.095,-0.119,-0.136,-0.148,-0.158,-0.166,-0.173,-0.179, &-0.184,-0.189,-0.193,-0.197,-0.200,-0.203,-0.206,-0.208,-0.210, &-0.212,-0.214,-0.216,-0.217,-0.219,-0.220,-0.221,-0.222,-0.223, &-0.224,-0.225,-0.226,-0.227,-0.227,-0.228,-0.229,-0.229,-0.229, &-0.230,-0.230,-0.231,-0.231,-0.231,-0.231,-0.232,-0.232,-0.232, &-0.232,-0.232,-0.232,-0.232,-0.232,-0.233,-0.233,-0.233,-0.232, &-0.232,-0.232,-0.232,-0.232,-0.232,-0.232,-0.232,-0.232,-0.232, &-0.232,-0.231,-0.231,-0.231,-0.231,-0.231,-0.230,-0.230,-0.230, &-0.230,-0.229,-0.229,-0.229,-0.229,-0.228,-0.228,-0.228,-0.227, &-0.227,-0.227,-0.226,-0.226,-0.226,-0.225,-0.225,-0.224,-0.224, &-0.224,-0.223,-0.223,-0.222,-0.222,-0.221,-0.221,-0.220,-0.220, &-0.219,-0.219,-0.218,-0.218,-0.217,-0.217,-0.216,-0.216,-0.215, &-0.215,-0.214,-0.213,-0.213,-0.212,-0.212,-0.211,-0.211,-0.210, &-0.209,-0.209,-0.208,-0.208,-0.207,-0.206,-0.206,-0.205,-0.205, &-0.204,-0.203,-0.203,-0.202,-0.201,-0.201,-0.200,-0.200,-0.199, &-0.198,-0.198,-0.197,-0.196,-0.196,-0.195,-0.194,-0.194,-0.193, &-0.192,-0.192,-0.191,-0.191,-0.190,-0.189,-0.189,-0.188,-0.187, &-0.187,-0.186,-0.185,-0.185,-0.184,-0.183,-0.183,-0.182,-0.181, &-0.181,-0.180,-0.179,-0.179,-0.178,-0.177,-0.177,-0.176,-0.175, &-0.175,-0.174,-0.173,-0.173,-0.172,-0.171,-0.171,-0.170,-0.169, &-0.169,-0.168,-0.167,-0.167,-0.166,-0.165,-0.165,-0.164,-0.163, &-0.163,-0.162,-0.161,-0.161,-0.160,-0.159,-0.159,-0.158,-0.157, &-0.157,-0.156,-0.155,-0.155,-0.154,-0.153,-0.153,-0.152,-0.151, &-0.151,-0.150,-0.149,-0.149,-0.148,-0.147,-0.147,-0.146,-0.145, &-0.145,-0.144,-0.143,-0.143,-0.142,-0.141,-0.141,-0.140,-0.140, &-0.139,-0.138,-0.138,-0.137,-0.136,-0.136,-0.135,-0.134,-0.134, &-0.133,-0.132,-0.132,-0.131,-0.130,-0.130,-0.129,-0.128,-0.128, &-0.127,-0.126,-0.126,-0.125,-0.124,-0.124,-0.123,-0.122,-0.122, &-0.121,-0.120,-0.120,-0.119,-0.119,-0.118,-0.117,-0.117,-0.116, &-0.115,-0.115,-0.114,-0.113,-0.113,-0.112,-0.111,-0.111,-0.110, &-0.109,-0.109,-0.108,-0.108,-0.107,-0.106,-0.106,-0.105,-0.104, &-0.104,-0.103,-0.102,-0.102,-0.101,-0.100,-0.100,-0.099,-0.099, &-0.098,-0.097,-0.097,-0.096,-0.095,-0.095,-0.094,-0.093,-0.093, &-0.092,-0.092,-0.091,-0.090,-0.090,-0.089,-0.088,-0.088,-0.087, &-0.087,-0.086,-0.085,-0.085,-0.084,-0.083,-0.083,-0.082,-0.082, &-0.081,-0.080,-0.080,-0.079,-0.078,-0.078,-0.077,-0.077,-0.076, &-0.075,-0.075,-0.074,-0.073,-0.073,-0.072,-0.072,-0.071,-0.070, &-0.070,-0.069,-0.069,-0.068,-0.067,-0.067,-0.066,-0.065,-0.065, &-0.064,-0.064,-0.063,-0.062,-0.062,-0.061,-0.061,-0.060,-0.059, &-0.059,-0.058,-0.058,-0.057,-0.056,-0.056,-0.055,-0.055,-0.054, &-0.053,-0.053,-0.052,-0.051,-0.051,-0.050,-0.050,-0.049,-0.048, &-0.048,-0.047,-0.047,-0.046,-0.046,-0.045,-0.044,-0.044,-0.043, &-0.043,-0.042,-0.041,-0.041,-0.040,-0.040,-0.039,-0.038,-0.038, &-0.037,-0.037,-0.036,-0.035,-0.035,-0.034,-0.034,-0.033,-0.032, &-0.032,-0.031,-0.031,-0.030,-0.024,-0.018,-0.012,-0.007,-0.001, & 0.005, 0.010, 0.016, 0.021, 0.027, 0.032, 0.037, 0.043, 0.048, & 0.053, 0.058, 0.064, 0.069, 0.074, 0.079, 0.084, 0.089, 0.094, & 0.099, 0.104, 0.109, 0.113, 0.118, 0.123, 0.128, 0.132, 0.137, & 0.142, 0.146, 0.151, 0.156, 0.160, 0.165, 0.169, 0.174, 0.178, & 0.183, 0.187, 0.191, 0.196, 0.200, 0.205, 0.209, 0.213, 0.217, & 0.222, 0.226, 0.230, 0.234, 0.238, 0.242, 0.247, 0.251, 0.255, & 0.259, 0.263, 0.267, 0.271, 0.275, 0.279, 0.283, 0.287, 0.291, & 0.295, 0.298, 0.302, 0.306, 0.310, 0.314, 0.318, 0.321, 0.325, & 0.329, 0.333, 0.337, 0.340, 0.344, 0.348, 0.351, 0.355, 0.359, & 0.362, 0.366, 0.370, 0.373, 0.377, 0.380, 0.384, 0.387, 0.391, & 0.394, 0.398, 0.401, 0.405, 0.408, 0.412, 0.415, 0.419, 0.422, & 0.426, 0.429, 0.433, 0.436, 0.439, 0.443, 0.446, 0.449, 0.453, & 0.456, 0.459, 0.463, 0.466, 0.469, 0.473, 0.476, 0.479, 0.482, & 0.486, 0.489, 0.492, 0.495, 0.499, 0.502, 0.505, 0.508, 0.511, & 0.514, 0.518, 0.521, 0.524, 0.527, 0.530, 0.533, 0.536, 0.540, & 0.543, 0.546, 0.549, 0.552, 0.555, 0.558, 0.561, 0.564, 0.567, & 0.570, 0.573, 0.576, 0.579, 0.582, 0.585, 0.588, 0.591, 0.594, & 0.597, 0.600, 0.603 & / C C *** MGSO4 C DATA BNC21M/ &-0.181,-0.389,-0.491,-0.562,-0.617,-0.661,-0.699,-0.732,-0.760, &-0.786,-0.809,-0.829,-0.849,-0.866,-0.882,-0.897,-0.911,-0.924, &-0.937,-0.948,-0.959,-0.969,-0.979,-0.988,-0.997,-1.006,-1.014, &-1.021,-1.028,-1.035,-1.042,-1.048,-1.055,-1.061,-1.066,-1.072, &-1.077,-1.082,-1.087,-1.092,-1.096,-1.100,-1.105,-1.109,-1.113, &-1.117,-1.120,-1.124,-1.128,-1.131,-1.134,-1.137,-1.141,-1.144, &-1.146,-1.149,-1.152,-1.155,-1.157,-1.160,-1.162,-1.165,-1.167, &-1.169,-1.172,-1.174,-1.176,-1.178,-1.180,-1.182,-1.184,-1.186, &-1.187,-1.189,-1.191,-1.192,-1.194,-1.196,-1.197,-1.199,-1.200, &-1.202,-1.203,-1.204,-1.206,-1.207,-1.208,-1.209,-1.210,-1.211, &-1.213,-1.214,-1.215,-1.216,-1.217,-1.218,-1.218,-1.219,-1.220, &-1.221,-1.222,-1.223,-1.223,-1.224,-1.225,-1.225,-1.226,-1.227, &-1.227,-1.228,-1.229,-1.229,-1.230,-1.230,-1.231,-1.231,-1.232, &-1.232,-1.233,-1.233,-1.233,-1.234,-1.234,-1.235,-1.235,-1.235, &-1.236,-1.236,-1.236,-1.236,-1.237,-1.237,-1.237,-1.237,-1.238, &-1.238,-1.238,-1.238,-1.238,-1.239,-1.239,-1.239,-1.239,-1.239, &-1.239,-1.239,-1.239,-1.239,-1.239,-1.240,-1.240,-1.240,-1.240, &-1.240,-1.240,-1.240,-1.240,-1.240,-1.240,-1.240,-1.240,-1.240, &-1.239,-1.239,-1.239,-1.239,-1.239,-1.239,-1.239,-1.239,-1.239, &-1.239,-1.239,-1.238,-1.238,-1.238,-1.238,-1.238,-1.238,-1.238, &-1.237,-1.237,-1.237,-1.237,-1.237,-1.237,-1.236,-1.236,-1.236, &-1.236,-1.235,-1.235,-1.235,-1.235,-1.235,-1.234,-1.234,-1.234, &-1.233,-1.233,-1.233,-1.233,-1.232,-1.232,-1.232,-1.232,-1.231, &-1.231,-1.231,-1.230,-1.230,-1.230,-1.229,-1.229,-1.229,-1.228, &-1.228,-1.228,-1.227,-1.227,-1.227,-1.226,-1.226,-1.226,-1.225, &-1.225,-1.225,-1.224,-1.224,-1.223,-1.223,-1.223,-1.222,-1.222, &-1.222,-1.221,-1.221,-1.220,-1.220,-1.220,-1.219,-1.219,-1.218, &-1.218,-1.217,-1.217,-1.217,-1.216,-1.216,-1.215,-1.215,-1.214, &-1.214,-1.214,-1.213,-1.213,-1.212,-1.212,-1.211,-1.211,-1.210, &-1.210,-1.210,-1.209,-1.209,-1.208,-1.208,-1.207,-1.207,-1.206, &-1.206,-1.205,-1.205,-1.204,-1.204,-1.203,-1.203,-1.202,-1.202, &-1.201,-1.201,-1.200,-1.200,-1.199,-1.199,-1.198,-1.198,-1.197, &-1.197,-1.196,-1.196,-1.195,-1.195,-1.194,-1.194,-1.193,-1.193, &-1.192,-1.192,-1.191,-1.191,-1.190,-1.190,-1.189,-1.188,-1.188, &-1.187,-1.187,-1.186,-1.186,-1.185,-1.185,-1.184,-1.184,-1.183, &-1.182,-1.182,-1.181,-1.181,-1.180,-1.180,-1.179,-1.179,-1.178, &-1.177,-1.177,-1.176,-1.176,-1.175,-1.175,-1.174,-1.174,-1.173, &-1.172,-1.172,-1.171,-1.171,-1.170,-1.169,-1.169,-1.168,-1.168, &-1.167,-1.167,-1.166,-1.165,-1.165,-1.164,-1.164,-1.163,-1.163, &-1.162,-1.161,-1.161,-1.160,-1.160,-1.159,-1.158,-1.158,-1.157, &-1.157,-1.156,-1.155,-1.155,-1.154,-1.154,-1.153,-1.152,-1.152, &-1.151,-1.151,-1.150,-1.149,-1.149,-1.148,-1.148,-1.147,-1.146, &-1.146,-1.145,-1.144,-1.144,-1.143,-1.143,-1.142,-1.141,-1.141, &-1.140,-1.140,-1.139,-1.138,-1.138,-1.137,-1.136,-1.136,-1.135, &-1.135,-1.134,-1.133,-1.133,-1.126,-1.120,-1.113,-1.107,-1.100, &-1.094,-1.087,-1.080,-1.074,-1.067,-1.060,-1.054,-1.047,-1.040, &-1.033,-1.027,-1.020,-1.013,-1.006,-0.999,-0.992,-0.985,-0.978, &-0.971,-0.965,-0.958,-0.951,-0.944,-0.937,-0.930,-0.923,-0.916, &-0.909,-0.902,-0.895,-0.888,-0.881,-0.874,-0.867,-0.860,-0.853, &-0.846,-0.839,-0.832,-0.825,-0.818,-0.811,-0.804,-0.797,-0.790, &-0.783,-0.776,-0.769,-0.762,-0.755,-0.748,-0.741,-0.734,-0.727, &-0.720,-0.713,-0.706,-0.699,-0.692,-0.685,-0.678,-0.671,-0.664, &-0.657,-0.650,-0.644,-0.637,-0.630,-0.623,-0.616,-0.609,-0.602, &-0.595,-0.588,-0.581,-0.574,-0.567,-0.560,-0.554,-0.547,-0.540, &-0.533,-0.526,-0.519,-0.512,-0.505,-0.498,-0.492,-0.485,-0.478, &-0.471,-0.464,-0.457,-0.450,-0.444,-0.437,-0.430,-0.423,-0.416, &-0.409,-0.403,-0.396,-0.389,-0.382,-0.375,-0.369,-0.362,-0.355, &-0.348,-0.341,-0.335,-0.328,-0.321,-0.314,-0.308,-0.301,-0.294, &-0.287,-0.280,-0.274,-0.267,-0.260,-0.254,-0.247,-0.240,-0.233, &-0.227,-0.220,-0.213,-0.206,-0.200,-0.193,-0.186,-0.180,-0.173, &-0.166,-0.160,-0.153,-0.146,-0.140,-0.133,-0.126,-0.119,-0.113, &-0.106,-0.100,-0.093,-0.086,-0.080,-0.073,-0.066,-0.060,-0.053, &-0.046,-0.040,-0.033 & / C C *** MGNO32 C DATA BNC22M/ &-0.088,-0.185,-0.228,-0.257,-0.278,-0.294,-0.306,-0.317,-0.325, &-0.332,-0.337,-0.342,-0.346,-0.349,-0.351,-0.353,-0.355,-0.356, &-0.357,-0.357,-0.357,-0.357,-0.356,-0.356,-0.355,-0.354,-0.353, &-0.352,-0.350,-0.349,-0.347,-0.345,-0.343,-0.341,-0.339,-0.337, &-0.335,-0.333,-0.330,-0.328,-0.326,-0.323,-0.321,-0.318,-0.316, &-0.313,-0.310,-0.308,-0.305,-0.302,-0.300,-0.297,-0.294,-0.291, &-0.288,-0.286,-0.283,-0.280,-0.277,-0.274,-0.271,-0.268,-0.266, &-0.263,-0.260,-0.257,-0.254,-0.251,-0.248,-0.245,-0.242,-0.239, &-0.235,-0.232,-0.229,-0.226,-0.223,-0.220,-0.216,-0.213,-0.210, &-0.207,-0.203,-0.200,-0.197,-0.193,-0.190,-0.186,-0.183,-0.180, &-0.176,-0.173,-0.169,-0.165,-0.162,-0.158,-0.155,-0.151,-0.147, &-0.143,-0.140,-0.136,-0.132,-0.128,-0.125,-0.121,-0.117,-0.113, &-0.109,-0.105,-0.101,-0.098,-0.094,-0.090,-0.086,-0.082,-0.078, &-0.074,-0.070,-0.066,-0.062,-0.058,-0.054,-0.050,-0.046,-0.042, &-0.038,-0.034,-0.030,-0.026,-0.022,-0.018,-0.014,-0.010,-0.006, &-0.002, 0.002, 0.006, 0.010, 0.014, 0.018, 0.022, 0.026, 0.030, & 0.034, 0.038, 0.042, 0.046, 0.050, 0.054, 0.058, 0.062, 0.066, & 0.070, 0.074, 0.078, 0.082, 0.086, 0.090, 0.094, 0.098, 0.102, & 0.106, 0.110, 0.114, 0.118, 0.122, 0.126, 0.130, 0.134, 0.137, & 0.141, 0.145, 0.149, 0.153, 0.157, 0.161, 0.165, 0.169, 0.173, & 0.177, 0.180, 0.184, 0.188, 0.192, 0.196, 0.200, 0.204, 0.207, & 0.211, 0.215, 0.219, 0.223, 0.227, 0.231, 0.234, 0.238, 0.242, & 0.246, 0.250, 0.253, 0.257, 0.261, 0.265, 0.269, 0.272, 0.276, & 0.280, 0.284, 0.288, 0.291, 0.295, 0.299, 0.303, 0.306, 0.310, & 0.314, 0.318, 0.321, 0.325, 0.329, 0.332, 0.336, 0.340, 0.343, & 0.347, 0.351, 0.355, 0.358, 0.362, 0.366, 0.369, 0.373, 0.377, & 0.380, 0.384, 0.388, 0.391, 0.395, 0.398, 0.402, 0.406, 0.409, & 0.413, 0.417, 0.420, 0.424, 0.427, 0.431, 0.435, 0.438, 0.442, & 0.445, 0.449, 0.452, 0.456, 0.459, 0.463, 0.467, 0.470, 0.474, & 0.477, 0.481, 0.484, 0.488, 0.491, 0.495, 0.498, 0.502, 0.505, & 0.509, 0.512, 0.516, 0.519, 0.523, 0.526, 0.530, 0.533, 0.537, & 0.540, 0.543, 0.547, 0.550, 0.554, 0.557, 0.561, 0.564, 0.567, & 0.571, 0.574, 0.578, 0.581, 0.584, 0.588, 0.591, 0.595, 0.598, & 0.601, 0.605, 0.608, 0.611, 0.615, 0.618, 0.621, 0.625, 0.628, & 0.631, 0.635, 0.638, 0.641, 0.645, 0.648, 0.651, 0.655, 0.658, & 0.661, 0.665, 0.668, 0.671, 0.674, 0.678, 0.681, 0.684, 0.687, & 0.691, 0.694, 0.697, 0.700, 0.704, 0.707, 0.710, 0.713, 0.717, & 0.720, 0.723, 0.726, 0.729, 0.733, 0.736, 0.739, 0.742, 0.745, & 0.749, 0.752, 0.755, 0.758, 0.761, 0.764, 0.768, 0.771, 0.774, & 0.777, 0.780, 0.783, 0.786, 0.790, 0.793, 0.796, 0.799, 0.802, & 0.805, 0.808, 0.811, 0.814, 0.818, 0.821, 0.824, 0.827, 0.830, & 0.833, 0.836, 0.839, 0.842, 0.845, 0.848, 0.851, 0.854, 0.857, & 0.860, 0.864, 0.867, 0.870, 0.873, 0.876, 0.879, 0.882, 0.885, & 0.888, 0.891, 0.894, 0.897, 0.900, 0.903, 0.906, 0.909, 0.912, & 0.915, 0.918, 0.921, 0.924, 0.955, 0.984, 1.013, 1.041, 1.070, & 1.097, 1.125, 1.152, 1.179, 1.205, 1.231, 1.257, 1.283, 1.308, & 1.334, 1.359, 1.383, 1.408, 1.432, 1.456, 1.479, 1.503, 1.526, & 1.549, 1.572, 1.594, 1.617, 1.639, 1.661, 1.683, 1.704, 1.726, & 1.747, 1.768, 1.789, 1.810, 1.830, 1.851, 1.871, 1.891, 1.911, & 1.930, 1.950, 1.969, 1.989, 2.008, 2.027, 2.046, 2.064, 2.083, & 2.101, 2.120, 2.138, 2.156, 2.174, 2.192, 2.209, 2.227, 2.244, & 2.262, 2.279, 2.296, 2.313, 2.330, 2.347, 2.363, 2.380, 2.396, & 2.413, 2.429, 2.445, 2.461, 2.477, 2.493, 2.509, 2.525, 2.540, & 2.556, 2.571, 2.587, 2.602, 2.617, 2.632, 2.647, 2.662, 2.677, & 2.692, 2.707, 2.721, 2.736, 2.750, 2.765, 2.779, 2.793, 2.807, & 2.822, 2.836, 2.850, 2.863, 2.877, 2.891, 2.905, 2.918, 2.932, & 2.946, 2.959, 2.972, 2.986, 2.999, 3.012, 3.025, 3.039, 3.052, & 3.065, 3.078, 3.090, 3.103, 3.116, 3.129, 3.141, 3.154, 3.167, & 3.179, 3.191, 3.204, 3.216, 3.229, 3.241, 3.253, 3.265, 3.277, & 3.289, 3.301, 3.313, 3.325, 3.337, 3.349, 3.361, 3.372, 3.384, & 3.396, 3.407, 3.419, 3.431, 3.442, 3.453, 3.465, 3.476, 3.488, & 3.499, 3.510, 3.521, 3.532, 3.544, 3.555, 3.566, 3.577, 3.588, & 3.599, 3.610, 3.621 & / C C *** MGCL2 C DATA BNC23M/ &-0.088,-0.182,-0.225,-0.252,-0.271,-0.286,-0.297,-0.306,-0.313, &-0.319,-0.323,-0.327,-0.329,-0.331,-0.332,-0.333,-0.333,-0.333, &-0.333,-0.332,-0.331,-0.329,-0.328,-0.326,-0.324,-0.322,-0.319, &-0.317,-0.314,-0.312,-0.309,-0.306,-0.303,-0.300,-0.296,-0.293, &-0.290,-0.286,-0.283,-0.279,-0.276,-0.272,-0.268,-0.265,-0.261, &-0.257,-0.253,-0.250,-0.246,-0.242,-0.238,-0.234,-0.230,-0.226, &-0.223,-0.219,-0.215,-0.211,-0.207,-0.203,-0.199,-0.195,-0.191, &-0.187,-0.183,-0.179,-0.174,-0.170,-0.166,-0.162,-0.158,-0.154, &-0.150,-0.145,-0.141,-0.137,-0.133,-0.128,-0.124,-0.120,-0.115, &-0.111,-0.106,-0.102,-0.097,-0.093,-0.088,-0.084,-0.079,-0.074, &-0.070,-0.065,-0.060,-0.056,-0.051,-0.046,-0.041,-0.036,-0.031, &-0.027,-0.022,-0.017,-0.012,-0.007,-0.002, 0.003, 0.008, 0.013, & 0.019, 0.024, 0.029, 0.034, 0.039, 0.044, 0.049, 0.055, 0.060, & 0.065, 0.070, 0.075, 0.081, 0.086, 0.091, 0.096, 0.101, 0.107, & 0.112, 0.117, 0.122, 0.128, 0.133, 0.138, 0.143, 0.149, 0.154, & 0.159, 0.164, 0.170, 0.175, 0.180, 0.185, 0.190, 0.196, 0.201, & 0.206, 0.211, 0.216, 0.222, 0.227, 0.232, 0.237, 0.242, 0.248, & 0.253, 0.258, 0.263, 0.268, 0.273, 0.279, 0.284, 0.289, 0.294, & 0.299, 0.304, 0.309, 0.314, 0.320, 0.325, 0.330, 0.335, 0.340, & 0.345, 0.350, 0.355, 0.360, 0.365, 0.370, 0.375, 0.380, 0.386, & 0.391, 0.396, 0.401, 0.406, 0.411, 0.416, 0.421, 0.426, 0.431, & 0.436, 0.441, 0.446, 0.450, 0.455, 0.460, 0.465, 0.470, 0.475, & 0.480, 0.485, 0.490, 0.495, 0.500, 0.505, 0.509, 0.514, 0.519, & 0.524, 0.529, 0.534, 0.539, 0.543, 0.548, 0.553, 0.558, 0.563, & 0.568, 0.572, 0.577, 0.582, 0.587, 0.592, 0.596, 0.601, 0.606, & 0.611, 0.615, 0.620, 0.625, 0.629, 0.634, 0.639, 0.644, 0.648, & 0.653, 0.658, 0.662, 0.667, 0.672, 0.676, 0.681, 0.686, 0.690, & 0.695, 0.700, 0.704, 0.709, 0.713, 0.718, 0.723, 0.727, 0.732, & 0.736, 0.741, 0.745, 0.750, 0.754, 0.759, 0.764, 0.768, 0.773, & 0.777, 0.782, 0.786, 0.791, 0.795, 0.800, 0.804, 0.809, 0.813, & 0.817, 0.822, 0.826, 0.831, 0.835, 0.840, 0.844, 0.848, 0.853, & 0.857, 0.862, 0.866, 0.870, 0.875, 0.879, 0.884, 0.888, 0.892, & 0.897, 0.901, 0.905, 0.910, 0.914, 0.918, 0.923, 0.927, 0.931, & 0.935, 0.940, 0.944, 0.948, 0.953, 0.957, 0.961, 0.965, 0.970, & 0.974, 0.978, 0.982, 0.986, 0.991, 0.995, 0.999, 1.003, 1.007, & 1.012, 1.016, 1.020, 1.024, 1.028, 1.032, 1.037, 1.041, 1.045, & 1.049, 1.053, 1.057, 1.061, 1.065, 1.070, 1.074, 1.078, 1.082, & 1.086, 1.090, 1.094, 1.098, 1.102, 1.106, 1.110, 1.114, 1.118, & 1.122, 1.126, 1.130, 1.134, 1.138, 1.142, 1.146, 1.150, 1.154, & 1.158, 1.162, 1.166, 1.170, 1.174, 1.178, 1.182, 1.186, 1.190, & 1.194, 1.198, 1.202, 1.206, 1.210, 1.214, 1.217, 1.221, 1.225, & 1.229, 1.233, 1.237, 1.241, 1.245, 1.248, 1.252, 1.256, 1.260, & 1.264, 1.268, 1.271, 1.275, 1.279, 1.283, 1.287, 1.290, 1.294, & 1.298, 1.302, 1.306, 1.309, 1.313, 1.317, 1.321, 1.324, 1.328, & 1.332, 1.336, 1.339, 1.343, 1.383, 1.420, 1.456, 1.491, 1.527, & 1.561, 1.596, 1.630, 1.663, 1.696, 1.729, 1.761, 1.793, 1.825, & 1.856, 1.887, 1.918, 1.948, 1.978, 2.008, 2.037, 2.066, 2.095, & 2.123, 2.152, 2.180, 2.207, 2.235, 2.262, 2.289, 2.315, 2.342, & 2.368, 2.394, 2.419, 2.445, 2.470, 2.495, 2.520, 2.544, 2.569, & 2.593, 2.617, 2.641, 2.664, 2.688, 2.711, 2.734, 2.757, 2.780, & 2.802, 2.824, 2.847, 2.869, 2.890, 2.912, 2.934, 2.955, 2.976, & 2.997, 3.018, 3.039, 3.060, 3.080, 3.101, 3.121, 3.141, 3.161, & 3.181, 3.201, 3.220, 3.240, 3.259, 3.279, 3.298, 3.317, 3.336, & 3.354, 3.373, 3.392, 3.410, 3.428, 3.447, 3.465, 3.483, 3.501, & 3.519, 3.536, 3.554, 3.572, 3.589, 3.606, 3.624, 3.641, 3.658, & 3.675, 3.692, 3.709, 3.725, 3.742, 3.759, 3.775, 3.791, 3.808, & 3.824, 3.840, 3.856, 3.872, 3.888, 3.904, 3.920, 3.935, 3.951, & 3.967, 3.982, 3.997, 4.013, 4.028, 4.043, 4.058, 4.074, 4.089, & 4.103, 4.118, 4.133, 4.148, 4.163, 4.177, 4.192, 4.206, 4.221, & 4.235, 4.249, 4.264, 4.278, 4.292, 4.306, 4.320, 4.334, 4.348, & 4.362, 4.376, 4.390, 4.403, 4.417, 4.431, 4.444, 4.458, 4.471, & 4.484, 4.498, 4.511, 4.524, 4.538, 4.551, 4.564, 4.577, 4.590, & 4.603, 4.616, 4.629 & / C C *** END OF BLOCK DATA EXPON ****************************************** C END CC************************************************************************* CC CC TOOLBOX LIBRARY v.1.0 (May 1995) CC CC Program unit : SUBROUTINE CHRBLN CC Purpose : Position of last non-blank character in a string CC Author : Athanasios Nenes CC CC ======================= ARGUMENTS / USAGE ============================= CC CC STR is the CHARACTER variable containing the string examined CC IBLK is a INTEGER variable containing the position of last non CC blank character. If string is all spaces (ie ' '), then CC the value returned is 1. CC CC EXAMPLE: CC STR = 'TEST1.DAT ' CC CALL CHRBLN (STR, IBLK) CC CC after execution of this code segment, "IBLK" has the value "9", which CC is the position of the last non-blank character of "STR". CC CC*********************************************************************** CC SUBROUTINE CHRBLN (STR, IBLK) CC CC*********************************************************************** CHARACTER*(*) STR C IBLK = 1 ! Substring pointer (default=1) ILEN = LEN(STR) ! Length of string DO 10 i=ILEN,1,-1 IF (STR(i:i).NE.' ' .AND. STR(i:i).NE.CHAR(0)) THEN IBLK = i RETURN ENDIF 10 CONTINUE RETURN C END CC************************************************************************* CC CC TOOLBOX LIBRARY v.1.0 (May 1995) CC CC Program unit : SUBROUTINE SHFTRGHT CC Purpose : RIGHT-JUSTIFICATION FUNCTION ON A STRING CC Author : Athanasios Nenes CC CC ======================= ARGUMENTS / USAGE ============================= CC CC STRING is the CHARACTER variable with the string to be justified CC CC EXAMPLE: CC STRING = 'AAAA ' CC CALL SHFTRGHT (STRING) CC CC after execution of this code segment, STRING contains the value CC ' AAAA'. CC CC************************************************************************* CC SUBROUTINE SHFTRGHT (CHR) CC CC*********************************************************************** CHARACTER CHR*(*) C I1 = LEN(CHR) ! Total length of string CALL CHRBLN(CHR,I2) ! Position of last non-blank character IF (I2.EQ.I1) RETURN C DO 10 I=I2,1,-1 ! Shift characters CHR(I1+I-I2:I1+I-I2) = CHR(I:I) CHR(I:I) = ' ' 10 CONTINUE RETURN C END CC************************************************************************* CC CC TOOLBOX LIBRARY v.1.0 (May 1995) CC CC Program unit : SUBROUTINE RPLSTR CC Purpose : REPLACE CHARACTERS OCCURING IN A STRING CC Author : Athanasios Nenes CC CC ======================= ARGUMENTS / USAGE ============================= CC CC STRING is the CHARACTER variable with the string to be edited CC OLD is the old character which is to be replaced CC NEW is the new character which OLD is to be replaced with CC IERR is 0 if everything went well, is 1 if 'NEW' contains 'OLD'. CC In this case, this is invalid, and no change is done. CC CC EXAMPLE: CC STRING = 'AAAA' CC OLD = 'A' CC NEW = 'B' CC CALL RPLSTR (STRING, OLD, NEW) CC CC after execution of this code segment, STRING contains the value CC 'BBBB'. CC CC************************************************************************* CC SUBROUTINE RPLSTR (STRING, OLD, NEW, IERR) CC CC*********************************************************************** CHARACTER STRING*(*), OLD*(*), NEW*(*) C C *** INITIALIZE ******************************************************** C ILO = LEN(OLD) C C *** CHECK AND SEE IF 'NEW' CONTAINS 'OLD', WHICH CANNOT *************** C IP = INDEX(NEW,OLD) IF (IP.NE.0) THEN IERR = 1 RETURN ELSE IERR = 0 ENDIF C C *** PROCEED WITH REPLACING ******************************************* C 10 IP = INDEX(STRING,OLD) ! SEE IF 'OLD' EXISTS IN 'STRING' IF (IP.EQ.0) RETURN ! 'OLD' DOES NOT EXIST ; RETURN STRING(IP:IP+ILO-1) = NEW ! REPLACE SUBSTRING 'OLD' WITH 'NEW' GOTO 10 ! GO FOR NEW OCCURANCE OF 'OLD' C END CC************************************************************************* CC CC TOOLBOX LIBRARY v.1.0 (May 1995) CC CC Program unit : SUBROUTINE INPTD CC Purpose : Prompts user for a value (DOUBLE). A default value CC is provided, so if user presses , the default CC is used. CC Author : Athanasios Nenes CC CC ======================= ARGUMENTS / USAGE ============================= CC CC VAR is the DOUBLE PRECISION variable which value is to be saved CC DEF is a DOUBLE PRECISION variable, with the default value of VAR. CC PROMPT is a CHARACTER varible containing the prompt string. CC PRFMT is a CHARACTER variable containing the FORMAT specifier CC for the default value DEF. CC IERR is an INTEGER error flag, and has the values: CC 0 - No error detected. CC 1 - Invalid FORMAT and/or Invalid default value. CC 2 - Bad value specified by user CC CC EXAMPLE: CC CALL INPTD (VAR, 1.0D0, 'Give value for A ', '*', Ierr) CC CC after execution of this code segment, the user is prompted for the CC value of variable VAR. If is pressed (ie no value is specified) CC then 1.0 is assigned to VAR. The default value is displayed in free- CC format. The error status is specified by variable Ierr CC CC*********************************************************************** CC SUBROUTINE INPTD (VAR, DEF, PROMPT, PRFMT, IERR) CC CC*********************************************************************** CHARACTER PROMPT*(*), PRFMT*(*), BUFFER*128 DOUBLE PRECISION DEF, VAR INTEGER IERR C IERR = 0 C C *** WRITE DEFAULT VALUE TO WORK BUFFER ******************************* C WRITE (BUFFER, FMT=PRFMT, ERR=10) DEF CALL CHRBLN (BUFFER, IEND) C C *** PROMPT USER FOR INPUT AND READ IT ******************************** C WRITE (*,*) PROMPT,' [',BUFFER(1:IEND),']: ' READ (*, '(A)', ERR=20, END=20) BUFFER CALL CHRBLN (BUFFER,IEND) C C *** READ DATA OR SET DEFAULT ? **************************************** C IF (IEND.EQ.1 .AND. BUFFER(1:1).EQ.' ') THEN VAR = DEF ELSE READ (BUFFER, *, ERR=20, END=20) VAR ENDIF C C *** RETURN POINT ****************************************************** C 30 RETURN C C *** ERROR HANDLER ***************************************************** C 10 IERR = 1 ! Bad FORMAT and/or bad default value GOTO 30 C 20 IERR = 2 ! Bad number given by user GOTO 30 C END CC************************************************************************* CC CC TOOLBOX LIBRARY v.1.0 (May 1995) CC CC Program unit : SUBROUTINE Pushend CC Purpose : Positions the pointer of a sequential file at its end CC Simulates the ACCESS='APPEND' clause of a F77L OPEN CC statement with Standard Fortran commands. CC CC ======================= ARGUMENTS / USAGE ============================= CC CC Iunit is a INTEGER variable, the file unit which the file is CC connected to. CC CC EXAMPLE: CC CALL PUSHEND (10) CC CC after execution of this code segment, the pointer of unit 10 is CC pushed to its end. CC CC*********************************************************************** CC SUBROUTINE Pushend (Iunit) CC CC*********************************************************************** C LOGICAL OPNED C C *** INQUIRE IF Iunit CONNECTED TO FILE ******************************** C INQUIRE (UNIT=Iunit, OPENED=OPNED) IF (.NOT.OPNED) GOTO 25 C C *** Iunit CONNECTED, PUSH POINTER TO END ****************************** C 10 READ (Iunit,'()', ERR=20, END=20) GOTO 10 C C *** RETURN POINT ****************************************************** C 20 BACKSPACE (Iunit) 25 RETURN END CC************************************************************************* CC CC TOOLBOX LIBRARY v.1.0 (May 1995) CC CC Program unit : SUBROUTINE APPENDEXT CC Purpose : Fix extension in file name string CC CC ======================= ARGUMENTS / USAGE ============================= CC CC Filename is the CHARACTER variable with the file name CC Defext is the CHARACTER variable with extension (including '.', CC ex. '.DAT') CC Overwrite is a LOGICAL value, .TRUE. overwrites any existing extension CC in "Filename" with "Defext", .FALSE. puts "Defext" only if CC there is no extension in "Filename". CC CC EXAMPLE: CC FILENAME1 = 'TEST.DAT' CC FILENAME2 = 'TEST.DAT' CC CALL APPENDEXT (FILENAME1, '.TXT', .FALSE.) CC CALL APPENDEXT (FILENAME2, '.TXT', .TRUE. ) CC CC after execution of this code segment, "FILENAME1" has the value CC 'TEST.DAT', while "FILENAME2" has the value 'TEST.TXT' CC CC*********************************************************************** CC SUBROUTINE Appendext (Filename, Defext, Overwrite) CC CC*********************************************************************** CHARACTER*(*) Filename, Defext LOGICAL Overwrite C CALL CHRBLN (Filename, Iend) IF (Filename(1:1).EQ.' ' .AND. Iend.EQ.1) RETURN ! Filename empty Idot = INDEX (Filename, '.') ! Append extension ? IF (Idot.EQ.0) Filename = Filename(1:Iend)//Defext IF (Overwrite .AND. Idot.NE.0) & Filename = Filename(:Idot-1)//Defext RETURN END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE POLY3 C *** FINDS THE REAL ROOTS OF THE THIRD ORDER ALGEBRAIC EQUATION: C X**3 + A1*X**2 + A2*X + A3 = 0.0 C THE EQUATION IS SOLVED ANALYTICALLY. C C PARAMETERS A1, A2, A3 ARE SPECIFIED BY THE USER. THE MINIMUM C NONEGATIVE ROOT IS RETURNED IN VARIABLE 'ROOT'. IF NO ROOT IS C FOUND (WHICH IS GREATER THAN ZERO), ROOT HAS THE VALUE 1D30. C AND THE FLAG ISLV HAS A VALUE GREATER THAN ZERO. C C SOLUTION FORMULA IS FOUND IN PAGE 32 OF: C MATHEMATICAL HANDBOOK OF FORMULAS AND TABLES C SCHAUM'S OUTLINE SERIES C MURRAY SPIEGER, McGRAW-HILL, NEW YORK, 1968 C (GREEK TRANSLATION: BY SOTIRIOS PERSIDES, ESPI, ATHENS, 1976) C C A SPECIAL CASE IS CONSIDERED SEPERATELY ; WHEN A3 = 0, THEN C ONE ROOT IS X=0.0, AND THE OTHER TWO FROM THE SOLUTION OF THE C QUADRATIC EQUATION X**2 + A1*X + A2 = 0.0 C THIS SPECIAL CASE IS CONSIDERED BECAUSE THE ANALYTICAL FORMULA C DOES NOT YIELD ACCURATE RESULTS (DUE TO NUMERICAL ROUNDOFF ERRORS) C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE POLY3 (A1, A2, A3, ROOT, ISLV) C IMPLICIT DOUBLE PRECISION (A-H, O-Z) PARAMETER (EXPON=1.D0/3.D0, ZERO=0.D0, THET1=120.D0/180.D0, & THET2=240.D0/180.D0, PI=3.1415926535897932, EPS=1D-50) DOUBLE PRECISION X(3) C C *** SPECIAL CASE : QUADRATIC*X EQUATION ***************************** C IF (ABS(A3).LE.EPS) THEN ISLV = 1 IX = 1 X(1) = ZERO D = A1*A1-4.D0*A2 IF (D.GE.ZERO) THEN IX = 3 SQD = SQRT(D) X(2) = 0.5*(-A1+SQD) X(3) = 0.5*(-A1-SQD) ENDIF ELSE C C *** NORMAL CASE : CUBIC EQUATION ************************************ C C DEFINE PARAMETERS Q, R, S, T, D C ISLV= 1 Q = (3.D0*A2 - A1*A1)/9.D0 R = (9.D0*A1*A2 - 27.D0*A3 - 2.D0*A1*A1*A1)/54.D0 D = Q*Q*Q + R*R C C *** CALCULATE ROOTS ************************************************* C C D < 0, THREE REAL ROOTS C IF (D.LT.-EPS) THEN ! D < -EPS : D < ZERO IX = 3 THET = EXPON*ACOS(R/SQRT(-Q*Q*Q)) COEF = 2.D0*SQRT(-Q) X(1) = COEF*COS(THET) - EXPON*A1 X(2) = COEF*COS(THET + THET1*PI) - EXPON*A1 X(3) = COEF*COS(THET + THET2*PI) - EXPON*A1 C C D = 0, THREE REAL (ONE DOUBLE) ROOTS C ELSE IF (D.LE.EPS) THEN ! -EPS <= D <= EPS : D = ZERO IX = 2 SSIG = SIGN (1.D0, R) S = SSIG*(ABS(R))**EXPON X(1) = 2.D0*S - EXPON*A1 X(2) = -S - EXPON*A1 C C D > 0, ONE REAL ROOT C ELSE ! D > EPS : D > ZERO IX = 1 SQD = SQRT(D) SSIG = SIGN (1.D0, R+SQD) ! TRANSFER SIGN TO SSIG TSIG = SIGN (1.D0, R-SQD) S = SSIG*(ABS(R+SQD))**EXPON ! EXPONENTIATE ABS() T = TSIG*(ABS(R-SQD))**EXPON X(1) = S + T - EXPON*A1 ENDIF ENDIF C C *** SELECT APPROPRIATE ROOT ***************************************** C ROOT = 1.D30 DO 10 I=1,IX IF (X(I).GT.ZERO) THEN ROOT = MIN (ROOT, X(I)) ISLV = 0 ENDIF 10 CONTINUE C C *** END OF SUBROUTINE POLY3 ***************************************** C RETURN END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE POLY3B C *** FINDS A REAL ROOT OF THE THIRD ORDER ALGEBRAIC EQUATION: C X**3 + A1*X**2 + A2*X + A3 = 0.0 C THE EQUATION IS SOLVED NUMERICALLY (BISECTION). C C PARAMETERS A1, A2, A3 ARE SPECIFIED BY THE USER. THE MINIMUM C NONEGATIVE ROOT IS RETURNED IN VARIABLE 'ROOT'. IF NO ROOT IS C FOUND (WHICH IS GREATER THAN ZERO), ROOT HAS THE VALUE 1D30. C AND THE FLAG ISLV HAS A VALUE GREATER THAN ZERO. C C RTLW, RTHI DEFINE THE INTERVAL WHICH THE ROOT IS LOOKED FOR. C C======================================================================= C SUBROUTINE POLY3B (A1, A2, A3, RTLW, RTHI, ROOT, ISLV) C IMPLICIT DOUBLE PRECISION (A-H, O-Z) PARAMETER (ZERO=0.D0, EPS=1D-15, MAXIT=100, NDIV=5) C FUNC(X) = X**3.d0 + A1*X**2.0 + A2*X + A3 C C *** INITIAL VALUES FOR BISECTION ************************************* C X1 = RTLW Y1 = FUNC(X1) IF (ABS(Y1).LE.EPS) THEN ! Is low a root? ROOT = RTLW GOTO 50 ENDIF C C *** ROOT TRACKING ; FOR THE RANGE OF HI AND LO *********************** C DX = (RTHI-RTLW)/FLOAT(NDIV) DO 10 I=1,NDIV X2 = X1+DX Y2 = FUNC (X2) IF (SIGN(1.d0,Y1)*SIGN(1.d0,Y2) .LT. ZERO) GOTO 20 ! (Y1*Y2.LT.ZERO) X1 = X2 Y1 = Y2 10 CONTINUE C C *** NO SUBDIVISION WITH SOLUTION FOUND C IF (ABS(Y2) .LT. EPS) THEN ! X2 is a root ROOT = X2 ELSE ROOT = 1.d30 ISLV = 1 ENDIF GOTO 50 C C *** BISECTION ******************************************************* C 20 DO 30 I=1,MAXIT X3 = 0.5*(X1+X2) Y3 = FUNC (X3) IF (SIGN(1.d0,Y1)*SIGN(1.d0,Y3) .LE. ZERO) THEN ! (Y1*Y3 .LE. ZERO) Y2 = Y3 X2 = X3 ELSE Y1 = Y3 X1 = X3 ENDIF IF (ABS(X2-X1) .LE. EPS*X1) GOTO 40 30 CONTINUE C C *** CONVERGED ; RETURN *********************************************** C 40 X3 = 0.5*(X1+X2) Y3 = FUNC (X3) ROOT = X3 ISLV = 0 C 50 RETURN C C *** END OF SUBROUTINE POLY3B ***************************************** C END ccc PROGRAM DRIVER ccc DOUBLE PRECISION ROOT cccC ccc CALL POLY3 (-1.d0, 1.d0, -1.d0, ROOT, ISLV) ccc IF (ISLV.NE.0) STOP 'Error in POLY3' ccc WRITE (*,*) 'Root=', ROOT cccC ccc CALL POLY3B (-1.d0, 1.d0, -1.d0, -10.d0, 10.d0, ROOT, ISLV) ccc IF (ISLV.NE.0) STOP 'Error in POLY3B' ccc WRITE (*,*) 'Root=', ROOT cccC ccc END C======================================================================= C C *** ISORROPIA CODE C *** FUNCTION EX10 C *** 10^X FUNCTION ; ALTERNATE OF LIBRARY ROUTINE ; USED BECAUSE IT IS C MUCH FASTER BUT WITHOUT GREAT LOSS IN ACCURACY. , C MAXIMUM ERROR IS 2%, EXECUTION TIME IS 42% OF THE LIBRARY ROUTINE C (ON A 80286/80287 MACHINE, using Lahey FORTRAN 77 v.3.0). C C EXPONENT RANGE IS BETWEEN -K AND K (K IS THE REAL ARGUMENT 'K') C MAX VALUE FOR K: 9.999 C IF X < -K, X IS SET TO -K, IF X > K, X IS SET TO K C C THE EXPONENT IS CALCULATED BY THE PRODUCT ADEC*AINT, WHERE ADEC C IS THE MANTISSA AND AINT IS THE MAGNITUDE (EXPONENT). BOTH C MANTISSA AND MAGNITUDE ARE PRE-CALCULATED AND STORED IN LOOKUP C TABLES ; THIS LEADS TO THE INCREASED SPEED. C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C FUNCTION EX10(X,K) REAL X, EX10, Y, AINT10, ADEC10, K INTEGER K1, K2 COMMON /EXPNC/ AINT10(20), ADEC10(200) C C *** LIMIT X TO [-K, K] RANGE ***************************************** C Y = MAX(-K, MIN(X,K)) ! MIN: -9.999, MAX: 9.999 C C *** GET INTEGER AND DECIMAL PART ************************************* C K1 = INT(Y) K2 = INT(100*(Y-K1)) C C *** CALCULATE EXP FUNCTION ******************************************* C EX10 = AINT10(K1+10)*ADEC10(K2+100) C C *** END OF EXP FUNCTION ********************************************** C RETURN END C======================================================================= C C *** ISORROPIA CODE C *** BLOCK DATA EXPON C *** CONTAINS DATA FOR EXPONENT ARRAYS NEEDED IN FUNCTION EXP10 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C BLOCK DATA EXPON C C *** Common block definition C REAL AINT10, ADEC10 COMMON /EXPNC/ AINT10(20), ADEC10(200) C C *** Integer part C DATA AINT10/ & 0.1000E-08, 0.1000E-07, 0.1000E-06, 0.1000E-05, 0.1000E-04, & 0.1000E-03, 0.1000E-02, 0.1000E-01, 0.1000E+00, 0.1000E+01, & 0.1000E+02, 0.1000E+03, 0.1000E+04, 0.1000E+05, 0.1000E+06, & 0.1000E+07, 0.1000E+08, 0.1000E+09, 0.1000E+10, 0.1000E+11 & / C C *** decimal part C DATA (ADEC10(I),I=1,200)/ & 0.1023E+00, 0.1047E+00, 0.1072E+00, 0.1096E+00, 0.1122E+00, & 0.1148E+00, 0.1175E+00, 0.1202E+00, 0.1230E+00, 0.1259E+00, & 0.1288E+00, 0.1318E+00, 0.1349E+00, 0.1380E+00, 0.1413E+00, & 0.1445E+00, 0.1479E+00, 0.1514E+00, 0.1549E+00, 0.1585E+00, & 0.1622E+00, 0.1660E+00, 0.1698E+00, 0.1738E+00, 0.1778E+00, & 0.1820E+00, 0.1862E+00, 0.1905E+00, 0.1950E+00, 0.1995E+00, & 0.2042E+00, 0.2089E+00, 0.2138E+00, 0.2188E+00, 0.2239E+00, & 0.2291E+00, 0.2344E+00, 0.2399E+00, 0.2455E+00, 0.2512E+00, & 0.2570E+00, 0.2630E+00, 0.2692E+00, 0.2754E+00, 0.2818E+00, & 0.2884E+00, 0.2951E+00, 0.3020E+00, 0.3090E+00, 0.3162E+00, & 0.3236E+00, 0.3311E+00, 0.3388E+00, 0.3467E+00, 0.3548E+00, & 0.3631E+00, 0.3715E+00, 0.3802E+00, 0.3890E+00, 0.3981E+00, & 0.4074E+00, 0.4169E+00, 0.4266E+00, 0.4365E+00, 0.4467E+00, & 0.4571E+00, 0.4677E+00, 0.4786E+00, 0.4898E+00, 0.5012E+00, & 0.5129E+00, 0.5248E+00, 0.5370E+00, 0.5495E+00, 0.5623E+00, & 0.5754E+00, 0.5888E+00, 0.6026E+00, 0.6166E+00, 0.6310E+00, & 0.6457E+00, 0.6607E+00, 0.6761E+00, 0.6918E+00, 0.7079E+00, & 0.7244E+00, 0.7413E+00, 0.7586E+00, 0.7762E+00, 0.7943E+00, & 0.8128E+00, 0.8318E+00, 0.8511E+00, 0.8710E+00, 0.8913E+00, & 0.9120E+00, 0.9333E+00, 0.9550E+00, 0.9772E+00, 0.1000E+01, & 0.1023E+01, 0.1047E+01, 0.1072E+01, 0.1096E+01, 0.1122E+01, & 0.1148E+01, 0.1175E+01, 0.1202E+01, 0.1230E+01, 0.1259E+01, & 0.1288E+01, 0.1318E+01, 0.1349E+01, 0.1380E+01, 0.1413E+01, & 0.1445E+01, 0.1479E+01, 0.1514E+01, 0.1549E+01, 0.1585E+01, & 0.1622E+01, 0.1660E+01, 0.1698E+01, 0.1738E+01, 0.1778E+01, & 0.1820E+01, 0.1862E+01, 0.1905E+01, 0.1950E+01, 0.1995E+01, & 0.2042E+01, 0.2089E+01, 0.2138E+01, 0.2188E+01, 0.2239E+01, & 0.2291E+01, 0.2344E+01, 0.2399E+01, 0.2455E+01, 0.2512E+01, & 0.2570E+01, 0.2630E+01, 0.2692E+01, 0.2754E+01, 0.2818E+01, & 0.2884E+01, 0.2951E+01, 0.3020E+01, 0.3090E+01, 0.3162E+01, & 0.3236E+01, 0.3311E+01, 0.3388E+01, 0.3467E+01, 0.3548E+01, & 0.3631E+01, 0.3715E+01, 0.3802E+01, 0.3890E+01, 0.3981E+01, & 0.4074E+01, 0.4169E+01, 0.4266E+01, 0.4365E+01, 0.4467E+01, & 0.4571E+01, 0.4677E+01, 0.4786E+01, 0.4898E+01, 0.5012E+01, & 0.5129E+01, 0.5248E+01, 0.5370E+01, 0.5495E+01, 0.5623E+01, & 0.5754E+01, 0.5888E+01, 0.6026E+01, 0.6166E+01, 0.6310E+01, & 0.6457E+01, 0.6607E+01, 0.6761E+01, 0.6918E+01, 0.7079E+01, & 0.7244E+01, 0.7413E+01, 0.7586E+01, 0.7762E+01, 0.7943E+01, & 0.8128E+01, 0.8318E+01, 0.8511E+01, 0.8710E+01, 0.8913E+01, & 0.9120E+01, 0.9333E+01, 0.9550E+01, 0.9772E+01, 0.1000E+02 & / C C *** END OF BLOCK DATA EXPON ****************************************** C END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE PUSHERR C *** THIS SUBROUTINE SAVES AN ERROR MESSAGE IN THE ERROR STACK C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE PUSHERR (IERR,ERRINF) INCLUDE 'isrpia.inc' CHARACTER ERRINF*(*) C C *** SAVE ERROR CODE IF THERE IS ANY SPACE *************************** C IF (NOFER.LT.NERRMX) THEN NOFER = NOFER + 1 ERRSTK(NOFER) = IERR ERRMSG(NOFER) = ERRINF STKOFL =.FALSE. ELSE STKOFL =.TRUE. ! STACK OVERFLOW ENDIF C C *** END OF SUBROUTINE PUSHERR **************************************** C END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE ISERRINF C *** THIS SUBROUTINE OBTAINS A COPY OF THE ERROR STACK (& MESSAGES) C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE ISERRINF (ERRSTKI, ERRMSGI, NOFERI, STKOFLI) INCLUDE 'isrpia.inc' CHARACTER ERRMSGI*40 INTEGER ERRSTKI LOGICAL STKOFLI DIMENSION ERRMSGI(NERRMX), ERRSTKI(NERRMX) C C *** OBTAIN WHOLE ERROR STACK **************************************** C DO 10 I=1,NOFER ! Error messages & codes ERRSTKI(I) = ERRSTK(I) ERRMSGI(I) = ERRMSG(I) 10 CONTINUE C STKOFLI = STKOFL NOFERI = NOFER C RETURN C C *** END OF SUBROUTINE ISERRINF *************************************** C END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE ERRSTAT C *** THIS SUBROUTINE REPORTS ERROR MESSAGES TO UNIT 'IO' C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE ERRSTAT (IO,IERR,ERRINF) INCLUDE 'isrpia.inc' CHARACTER CER*4, NCIS*29, NCIF*27, NSIS*26, NSIF*24, ERRINF*(*) DATA NCIS /'NO CONVERGENCE IN SUBROUTINE '/, & NCIF /'NO CONVERGENCE IN FUNCTION ' /, & NSIS /'NO SOLUTION IN SUBROUTINE ' /, & NSIF /'NO SOLUTION IN FUNCTION ' / C C *** WRITE ERROR IN CHARACTER ***************************************** C WRITE (CER,'(I4)') IERR CALL RPLSTR (CER, ' ', '0',IOK) ! REPLACE BLANKS WITH ZEROS CALL CHRBLN (ERRINF, IEND) ! LAST POSITION OF ERRINF CHAR C C *** WRITE ERROR TYPE (FATAL, WARNING ) ******************************* C IF (IERR.EQ.0) THEN WRITE (IO,1000) 'NO ERRORS DETECTED ' GOTO 10 C ELSE IF (IERR.LT.0) THEN WRITE (IO,1000) 'ERROR STACK EXHAUSTED ' GOTO 10 C ELSE IF (IERR.GT.1000) THEN WRITE (IO,1100) 'FATAL',CER C ELSE WRITE (IO,1100) 'WARNING',CER ENDIF C C *** WRITE ERROR MESSAGE ********************************************** C C FATAL MESSAGES C IF (IERR.EQ.1001) THEN CALL CHRBLN (SCASE, IEND) WRITE (IO,1000) 'CASE NOT SUPPORTED IN CALCMR ['//SCASE(1:IEND) & //']' C ELSEIF (IERR.EQ.1002) THEN CALL CHRBLN (SCASE, IEND) WRITE (IO,1000) 'CASE NOT SUPPORTED ['//SCASE(1:IEND)//']' C C WARNING MESSAGES C ELSEIF (IERR.EQ.0001) THEN WRITE (IO,1000) NSIS,ERRINF C ELSEIF (IERR.EQ.0002) THEN WRITE (IO,1000) NCIS,ERRINF C ELSEIF (IERR.EQ.0003) THEN WRITE (IO,1000) NSIF,ERRINF C ELSEIF (IERR.EQ.0004) THEN WRITE (IO,1000) NCIF,ERRINF C ELSE IF (IERR.EQ.0019) THEN WRITE (IO,1000) 'HNO3(aq) AFFECTS H+, WHICH '// & 'MIGHT AFFECT SO4/HSO4 RATIO' WRITE (IO,1000) 'DIRECT INCREASE IN H+ [',ERRINF(1:IEND),'] %' C ELSE IF (IERR.EQ.0020) THEN IF (W(4).GT.TINY .AND. W(5).GT.TINY) THEN WRITE (IO,1000) 'HSO4-SO4 EQUILIBRIUM MIGHT AFFECT HNO3,' & //'HCL DISSOLUTION' ELSE WRITE (IO,1000) 'HSO4-SO4 EQUILIBRIUM MIGHT AFFECT NH3 ' & //'DISSOLUTION' ENDIF WRITE (IO,1000) 'DIRECT DECREASE IN H+ [',ERRINF(1:IEND),'] %' C ELSE IF (IERR.EQ.0021) THEN WRITE (IO,1000) 'HNO3(aq),HCL(aq) AFFECT H+, WHICH '// & 'MIGHT AFFECT SO4/HSO4 RATIO' WRITE (IO,1000) 'DIRECT INCREASE IN H+ [',ERRINF(1:IEND),'] %' C ELSE IF (IERR.EQ.0022) THEN WRITE (IO,1000) 'HCL(g) EQUILIBRIUM YIELDS NONPHYSICAL '// & 'DISSOLUTION' WRITE (IO,1000) 'A TINY AMOUNT [',ERRINF(1:IEND),'] IS '// & 'ASSUMED TO BE DISSOLVED' C ELSEIF (IERR.EQ.0033) THEN WRITE (IO,1000) 'HCL(aq) AFFECTS H+, WHICH '// & 'MIGHT AFFECT SO4/HSO4 RATIO' WRITE (IO,1000) 'DIRECT INCREASE IN H+ [',ERRINF(1:IEND),'] %' C ELSEIF (IERR.EQ.0050) THEN WRITE (IO,1000) 'TOO MUCH SODIUM GIVEN AS INPUT.' WRITE (IO,1000) 'REDUCED TO COMPLETELY NEUTRALIZE SO4,Cl,NO3.' WRITE (IO,1000) 'EXCESS SODIUM IS IGNORED.' C ELSEIF (IERR.EQ.0051) THEN WRITE (IO,1000) 'TOO MUCH CALCIUM GIVEN AS INPUT.' WRITE (IO,1000) 'REDUCED TO COMPLETELY NEUTRALIZE SO4,Cl,NO3.' WRITE (IO,1000) 'EXCESS CALCIUM IS IGNORED.' C ELSEIF (IERR.EQ.0052) THEN WRITE (IO,1000) 'TOO MUCH SODIUM (+Ca) GIVEN AS INPUT.' WRITE (IO,1000) 'REDUCED TO COMPLETELY NEUTRALIZE SO4,Cl,NO3.' WRITE (IO,1000) 'EXCESS SODIUM IS IGNORED.' C ELSEIF (IERR.EQ.0053) THEN WRITE (IO,1000) 'TOO MUCH MAGNESIUM (+Ca,Na) GIVEN AS INPUT.' WRITE (IO,1000) 'REDUCED TO COMPLETELY NEUTRALIZE SO4,Cl,NO3.' WRITE (IO,1000) 'EXCESS MAGNESIUM IS IGNORED.' C ELSEIF (IERR.EQ.0054) THEN WRITE (IO,1000) 'TOO MUCH POTASSIUM(+Ca,Na,Mg) GIVEN AS INPUT.' WRITE (IO,1000) 'REDUCED TO COMPLETELY NEUTRALIZE SO4,Cl,NO3.' WRITE (IO,1000) 'EXCESS POTASSIUM IS IGNORED.' C ELSE WRITE (IO,1000) 'NO DIAGNOSTIC MESSAGE AVAILABLE' ENDIF C 10 RETURN C C *** FORMAT STATEMENTS ************************************* C 1000 FORMAT (1X,A:A:A:A:A) 1100 FORMAT (1X,A,' ERROR [',A4,']:') C C *** END OF SUBROUTINE ERRSTAT ***************************** C END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE ISORINF C *** THIS SUBROUTINE PROVIDES INFORMATION ABOUT ISORROPIA C C ======================== ARGUMENTS / USAGE =========================== C C OUTPUT: C 1. [VERSI] C CHARACTER*15 variable. C Contains version-date information of ISORROPIA C C 2. [NCMP] C INTEGER variable. C The number of components needed in input array WI C (or, the number of major species accounted for by ISORROPIA) C C 3. [NION] C INTEGER variable C The number of ions considered in the aqueous phase C C 4. [NAQGAS] C INTEGER variable C The number of undissociated species found in aqueous aerosol C phase C C 5. [NSOL] C INTEGER variable C The number of solids considered in the solid aerosol phase C C 6. [NERR] C INTEGER variable C The size of the error stack (maximum number of errors that can C be stored before the stack exhausts). C C 7. [TIN] C DOUBLE PRECISION variable C The value used for a very small number. C C 8. [GRT] C DOUBLE PRECISION variable C The value used for a very large number. C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE ISORINF (VERSI, NCMP, NION, NAQGAS, NSOL, NERR, TIN, & GRT) INCLUDE 'isrpia.inc' CHARACTER VERSI*(*) C C *** ASSIGN INFO ******************************************************* C VERSI = VERSION NCMP = NCOMP NION = NIONS NAQGAS = NGASAQ NSOL = NSLDS NERR = NERRMX TIN = TINY GRT = GREAT C RETURN C C *** END OF SUBROUTINE ISORINF ******************************************* C END ================================================ FILE: CCTM/src/aero/aero6/isofwd.f ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C C *** ISORROPIA CODE C *** SUBROUTINE ISRP1F C *** THIS SUBROUTINE IS THE DRIVER ROUTINE FOR THE FOREWARD PROBLEM OF C AN AMMONIUM-SULFATE AEROSOL SYSTEM. C THE COMPOSITION REGIME IS DETERMINED BY THE SULFATE RATIO AND BY C THE AMBIENT RELATIVE HUMIDITY. C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE ISRP1F (WI, RHI, TEMPI) INCLUDE 'isrpia.inc' DIMENSION WI(NCOMP) C C *** INITIALIZE ALL VARIABLES IN COMMON BLOCK ************************** C CALL INIT1 (WI, RHI, TEMPI) C C *** CALCULATE SULFATE RATIO ******************************************* C SULRAT = W(3)/W(2) C C *** FIND CALCULATION REGIME FROM (SULRAT,RH) ************************** C C *** SULFATE POOR C IF (2.0.LE.SULRAT) THEN DC = W(3) - 2.001D0*W(2) ! For numerical stability W(3) = W(3) + MAX(-DC, ZERO) C IF(METSTBL.EQ.1) THEN SCASE = 'A2' CALL CALCA2 ! Only liquid (metastable) ELSE C IF (RH.LT.DRNH42S4) THEN SCASE = 'A1' CALL CALCA1 ! NH42SO4 ; case A1 C ELSEIF (DRNH42S4.LE.RH) THEN SCASE = 'A2' CALL CALCA2 ! Only liquid ; case A2 ENDIF ENDIF C C *** SULFATE RICH (NO ACID) C ELSEIF (1.0.LE.SULRAT .AND. SULRAT.LT.2.0) THEN C IF(METSTBL.EQ.1) THEN SCASE = 'B4' CALL CALCB4 ! Only liquid (metastable) ELSE C IF (RH.LT.DRNH4HS4) THEN SCASE = 'B1' CALL CALCB1 ! NH4HSO4,LC,NH42SO4 ; case B1 C ELSEIF (DRNH4HS4.LE.RH .AND. RH.LT.DRLC) THEN SCASE = 'B2' CALL CALCB2 ! LC,NH42S4 ; case B2 C ELSEIF (DRLC.LE.RH .AND. RH.LT.DRNH42S4) THEN SCASE = 'B3' CALL CALCB3 ! NH42S4 ; case B3 C ELSEIF (DRNH42S4.LE.RH) THEN SCASE = 'B4' CALL CALCB4 ! Only liquid ; case B4 ENDIF ENDIF c modified by Wenxian Zhang for DDM sensitivity calculation DO I = 1,NIONS MOLALD(I) = MOLAL(I) ENDDO GNH3D = GNH3 GHNO3D = GHNO3 GHCLD = GHCL CALL CALCNH3 C C *** SULFATE RICH (FREE ACID) C ELSEIF (SULRAT.LT.1.0) THEN C IF(METSTBL.EQ.1) THEN SCASE = 'C2' CALL CALCC2 ! Only liquid (metastable) ELSE C IF (RH.LT.DRNH4HS4) THEN SCASE = 'C1' CALL CALCC1 ! NH4HSO4 ; case C1 C ELSEIF (DRNH4HS4.LE.RH) THEN SCASE = 'C2' CALL CALCC2 ! Only liquid ; case C2 C ENDIF ENDIF c modified by Wenxian Zhang for DDM sensitivity calculation DO I = 1,NIONS MOLALD(I) = MOLAL(I) ENDDO GNH3D = GNH3 GHNO3D = GHNO3 GHCLD = GHCL CALL CALCNH3 ENDIF C C *** RETURN POINT C RETURN C C *** END OF SUBROUTINE ISRP1F ***************************************** C END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE ISRP2F C *** THIS SUBROUTINE IS THE DRIVER ROUTINE FOR THE FOREWARD PROBLEM OF C AN AMMONIUM-SULFATE-NITRATE AEROSOL SYSTEM. C THE COMPOSITION REGIME IS DETERMINED BY THE SULFATE RATIO AND BY C THE AMBIENT RELATIVE HUMIDITY. C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE ISRP2F (WI, RHI, TEMPI) INCLUDE 'isrpia.inc' DIMENSION WI(NCOMP) C C *** INITIALIZE ALL VARIABLES IN COMMON BLOCK ************************** C CALL INIT2 (WI, RHI, TEMPI) C C *** CALCULATE SULFATE RATIO ******************************************* C SULRAT = W(3)/W(2) C C *** FIND CALCULATION REGIME FROM (SULRAT,RH) ************************** C C *** SULFATE POOR C IF (2.0.LE.SULRAT) THEN C IF(METSTBL.EQ.1) THEN SCASE = 'D3' CALL CALCD3 ! Only liquid (metastable) ELSE C IF (RH.LT.DRNH4NO3) THEN SCASE = 'D1' CALL CALCD1 ! NH42SO4,NH4NO3 ; case D1 C ELSEIF (DRNH4NO3.LE.RH .AND. RH.LT.DRNH42S4) THEN SCASE = 'D2' CALL CALCD2 ! NH42S4 ; case D2 C ELSEIF (DRNH42S4.LE.RH) THEN SCASE = 'D3' CALL CALCD3 ! Only liquid ; case D3 ENDIF ENDIF C C *** SULFATE RICH (NO ACID) C FOR SOLVING THIS CASE, NITRIC ACID IS ASSUMED A MINOR SPECIES, C THAT DOES NOT SIGNIFICANTLY PERTURB THE HSO4-SO4 EQUILIBRIUM. C SUBROUTINES CALCB? ARE CALLED, AND THEN THE NITRIC ACID IS DISSOLVED C FROM THE HNO3(G) -> (H+) + (NO3-) EQUILIBRIUM. C ELSEIF (1.0.LE.SULRAT .AND. SULRAT.LT.2.0) THEN C IF(METSTBL.EQ.1) THEN SCASE = 'B4' CALL CALCB4 ! Only liquid (metastable) SCASE = 'E4' ELSE C IF (RH.LT.DRNH4HS4) THEN SCASE = 'B1' CALL CALCB1 ! NH4HSO4,LC,NH42SO4 ; case E1 SCASE = 'E1' C ELSEIF (DRNH4HS4.LE.RH .AND. RH.LT.DRLC) THEN SCASE = 'B2' CALL CALCB2 ! LC,NH42S4 ; case E2 SCASE = 'E2' C ELSEIF (DRLC.LE.RH .AND. RH.LT.DRNH42S4) THEN SCASE = 'B3' CALL CALCB3 ! NH42S4 ; case E3 SCASE = 'E3' C ELSEIF (DRNH42S4.LE.RH) THEN SCASE = 'B4' CALL CALCB4 ! Only liquid ; case E4 SCASE = 'E4' ENDIF ENDIF C C *** SAVE MOLAL BEFORE ADJUSTMENT FOR DDM CALCULATION **************** C By Wenxian Zhang C DO I = 1,NIONS MOLALD(I) = MOLAL(I) ENDDO GHNO3D = GHNO3 GNH3D = GNH3 GHCLD = GHCL C CALL CALCNA ! HNO3(g) DISSOLUTION C C *** SULFATE RICH (FREE ACID) C FOR SOLVING THIS CASE, NITRIC ACID IS ASSUMED A MINOR SPECIES, C THAT DOES NOT SIGNIFICANTLY PERTURB THE HSO4-SO4 EQUILIBRIUM C SUBROUTINE CALCC? IS CALLED, AND THEN THE NITRIC ACID IS DISSOLVED C FROM THE HNO3(G) -> (H+) + (NO3-) EQUILIBRIUM. C ELSEIF (SULRAT.LT.1.0) THEN C IF(METSTBL.EQ.1) THEN SCASE = 'C2' CALL CALCC2 ! Only liquid (metastable) SCASE = 'F2' ELSE C IF (RH.LT.DRNH4HS4) THEN SCASE = 'C1' CALL CALCC1 ! NH4HSO4 ; case F1 SCASE = 'F1' C ELSEIF (DRNH4HS4.LE.RH) THEN SCASE = 'C2' CALL CALCC2 ! Only liquid ; case F2 SCASE = 'F2' ENDIF ENDIF C C *** SAVE MOLAL BEFORE ADJUSTMENT FOR DDM CALCULATION **************** C DO I = 1,NIONS MOLALD(I) = MOLAL(I) ENDDO GHNO3D = GHNO3 GNH3D = GNH3 GHCLD = GHCL C CALL CALCNA ! HNO3(g) DISSOLUTION ENDIF C C *** RETURN POINT C RETURN C C *** END OF SUBROUTINE ISRP2F ***************************************** C END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE ISRP3F C *** THIS SUBROUTINE IS THE DRIVER ROUTINE FOR THE FORWARD PROBLEM OF C AN AMMONIUM-SULFATE-NITRATE-CHLORIDE-SODIUM AEROSOL SYSTEM. C THE COMPOSITION REGIME IS DETERMINED BY THE SULFATE & SODIUM C RATIOS AND BY THE AMBIENT RELATIVE HUMIDITY. C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE ISRP3F (WI, RHI, TEMPI) INCLUDE 'isrpia.inc' DIMENSION WI(NCOMP) C C *** ADJUST FOR TOO LITTLE AMMONIUM AND CHLORIDE *********************** C WI(3) = MAX (WI(3), 1.D-10) ! NH4+ : 1e-4 umoles/m3 WI(5) = MAX (WI(5), 1.D-10) ! Cl- : 1e-4 umoles/m3 C C *** ADJUST FOR TOO LITTLE SODIUM, SULFATE AND NITRATE COMBINED ******** C IF (WI(1)+WI(2)+WI(4) .LE. 1d-10) THEN WI(1) = 1.D-10 ! Na+ : 1e-4 umoles/m3 WI(2) = 1.D-10 ! SO4- : 1e-4 umoles/m3 ENDIF C C *** INITIALIZE ALL VARIABLES IN COMMON BLOCK ************************** C CALL ISOINIT3 (WI, RHI, TEMPI) C C *** CHECK IF TOO MUCH SODIUM ; ADJUST AND ISSUE ERROR MESSAGE ********* C REST = 2.D0*W(2) + W(4) + W(5) IF (W(1).GT.REST) THEN ! NA > 2*SO4+CL+NO3 ? W(1) = (ONE-1D-6)*REST ! Adjust Na amount CALL PUSHERR (0050, 'ISRP3F') ! Warning error: Na adjusted ENDIF C C *** CALCULATE SULFATE & SODIUM RATIOS ********************************* C SULRAT = (W(1)+W(3))/W(2) SODRAT = W(1)/W(2) C C *** FIND CALCULATION REGIME FROM (SULRAT,RH) ************************** C *** SULFATE POOR ; SODIUM POOR C IF (2.0.LE.SULRAT .AND. SODRAT.LT.2.0) THEN C IF(METSTBL.EQ.1) THEN SCASE = 'G5' CALL CALCG5 ! Only liquid (metastable) ELSE C IF (RH.LT.DRNH4NO3) THEN SCASE = 'G1' CALL CALCG1 ! NH42SO4,NH4NO3,NH4CL,NA2SO4 C ELSEIF (DRNH4NO3.LE.RH .AND. RH.LT.DRNH4CL) THEN SCASE = 'G2' CALL CALCG2 ! NH42SO4,NH4CL,NA2SO4 C ELSEIF (DRNH4CL.LE.RH .AND. RH.LT.DRNH42S4) THEN SCASE = 'G3' CALL CALCG3 ! NH42SO4,NA2SO4 C ELSEIF (DRNH42S4.LE.RH .AND. RH.LT.DRNA2SO4) THEN SCASE = 'G4' CALL CALCG4 ! NA2SO4 C ELSEIF (DRNA2SO4.LE.RH) THEN SCASE = 'G5' CALL CALCG5 ! Only liquid ENDIF ENDIF C C *** SULFATE POOR ; SODIUM RICH C ELSE IF (SULRAT.GE.2.0 .AND. SODRAT.GE.2.0) THEN C IF(METSTBL.EQ.1) THEN SCASE = 'H6' CALL CALCH6 ! Only liquid (metastable) ELSE C IF (RH.LT.DRNH4NO3) THEN SCASE = 'H1' CALL CALCH1 ! NH4NO3,NH4CL,NA2SO4,NACL,NANO3 C ELSEIF (DRNH4NO3.LE.RH .AND. RH.LT.DRNANO3) THEN SCASE = 'H2' CALL CALCH2 ! NH4CL,NA2SO4,NACL,NANO3 C ELSEIF (DRNANO3.LE.RH .AND. RH.LT.DRNACL) THEN SCASE = 'H3' CALL CALCH3 ! NH4CL,NA2SO4,NACL C ELSEIF (DRNACL.LE.RH .AND. RH.LT.DRNH4Cl) THEN SCASE = 'H4' CALL CALCH4 ! NH4CL,NA2SO4 C ELSEIF (DRNH4Cl.LE.RH .AND. RH.LT.DRNA2SO4) THEN SCASE = 'H5' CALL CALCH5 ! NA2SO4 C ELSEIF (DRNA2SO4.LE.RH) THEN SCASE = 'H6' CALL CALCH6 ! NO SOLID ENDIF ENDIF C C *** SULFATE RICH (NO ACID) C ELSEIF (1.0.LE.SULRAT .AND. SULRAT.LT.2.0) THEN C IF(METSTBL.EQ.1) THEN SCASE = 'I6' CALL CALCI6 ! Only liquid (metastable) ELSE C IF (RH.LT.DRNH4HS4) THEN SCASE = 'I1' CALL CALCI1 ! NA2SO4,(NH4)2SO4,NAHSO4,NH4HSO4,LC C ELSEIF (DRNH4HS4.LE.RH .AND. RH.LT.DRNAHSO4) THEN SCASE = 'I2' CALL CALCI2 ! NA2SO4,(NH4)2SO4,NAHSO4,LC C ELSEIF (DRNAHSO4.LE.RH .AND. RH.LT.DRLC) THEN SCASE = 'I3' CALL CALCI3 ! NA2SO4,(NH4)2SO4,LC C ELSEIF (DRLC.LE.RH .AND. RH.LT.DRNH42S4) THEN SCASE = 'I4' CALL CALCI4 ! NA2SO4,(NH4)2SO4 C ELSEIF (DRNH42S4.LE.RH .AND. RH.LT.DRNA2SO4) THEN SCASE = 'I5' CALL CALCI5 ! NA2SO4 C ELSEIF (DRNA2SO4.LE.RH) THEN SCASE = 'I6' CALL CALCI6 ! NO SOLIDS ENDIF ENDIF C C *** SAVE MOLAL BEFORE ADJUSTMENT FOR DDM CALCULATION **************** C DO I = 1,NIONS MOLALD(I) = MOLAL(I) ENDDO GHNO3D = GHNO3 GNH3D = GNH3 GHCLD = GHCL C CALL CALCNHA ! MINOR SPECIES: HNO3, HCl CALL CALCNH3 ! NH3 C C *** SULFATE RICH (FREE ACID) C ELSEIF (SULRAT.LT.1.0) THEN C IF(METSTBL.EQ.1) THEN SCASE = 'J3' CALL CALCJ3 ! Only liquid (metastable) ELSE C IF (RH.LT.DRNH4HS4) THEN SCASE = 'J1' CALL CALCJ1 ! NH4HSO4,NAHSO4 C ELSEIF (DRNH4HS4.LE.RH .AND. RH.LT.DRNAHSO4) THEN SCASE = 'J2' CALL CALCJ2 ! NAHSO4 C ELSEIF (DRNAHSO4.LE.RH) THEN SCASE = 'J3' CALL CALCJ3 ENDIF ENDIF C DO I = 1,NIONS MOLALD(I) = MOLAL(I) ENDDO GHNO3D = GHNO3 GNH3D = GNH3 GHCLD = GHCL C CALL CALCNHA ! MINOR SPECIES: HNO3, HCl CALL CALCNH3 ! NH3 ENDIF C C *** RETURN POINT C RETURN C C *** END OF SUBROUTINE ISRP3F ***************************************** C END C C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE ISRP4F C *** THIS SUBROUTINE IS THE DRIVER ROUTINE FOR THE FORWARD PROBLEM OF C AN AMMONIUM-SULFATE-NITRATE-CHLORIDE-SODIUM-CALCIUM-POTASSIUM-MAGNESIUM C AEROSOL SYSTEM. C THE COMPOSITION REGIME IS DETERMINED BY THE SULFATE & SODIUM C RATIOS AND BY THE AMBIENT RELATIVE HUMIDITY. C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE ISRP4F (WI, RHI, TEMPI) INCLUDE 'isrpia.inc' DIMENSION WI(NCOMP) DOUBLE PRECISION NAFRI, NO3FRI C C *** ADJUST FOR TOO LITTLE AMMONIUM AND CHLORIDE *********************** C WI(3) = MAX (WI(3), 1.D-10) ! NH4+ : 1e-4 umoles/m3 WI(5) = MAX (WI(5), 1.D-10) ! Cl- : 1e-4 umoles/m3 C C *** ADJUST FOR TOO LITTLE SODIUM, SULFATE AND NITRATE COMBINED ******** C IF (WI(1)+WI(2)+WI(4) .LE. 1d-10) THEN WI(1) = 1.D-10 ! Na+ : 1e-4 umoles/m3 WI(2) = 1.D-10 ! SO4- : 1e-4 umoles/m3 ENDIF C C *** INITIALIZE ALL VARIABLES IN COMMON BLOCK ************************** C CALL INIT4 (WI, RHI, TEMPI) C C *** CHECK IF TOO MUCH SODIUM+CRUSTALS ; ADJUST AND ISSUE ERROR MESSAGE C REST = 2.D0*W(2) + W(4) + W(5) C IF (W(1)+W(6)+W(7)+W(8).GT.REST) THEN C CCASO4I = MIN (W(2),W(6)) FRSO4I = MAX (W(2) - CCASO4I, ZERO) CAFRI = MAX (W(6) - CCASO4I, ZERO) CCANO32I = MIN (CAFRI, 0.5D0*W(4)) CAFRI = MAX (CAFRI - CCANO32I, ZERO) NO3FRI = MAX (W(4) - 2.D0*CCANO32I, ZERO) CCACL2I = MIN (CAFRI, 0.5D0*W(5)) CLFRI = MAX (W(5) - 2.D0*CCACL2I, ZERO) REST1 = 2.D0*FRSO4I + NO3FRI + CLFRI C CNA2SO4I = MIN (FRSO4I, 0.5D0*W(1)) FRSO4I = MAX (FRSO4I - CNA2SO4I, ZERO) NAFRI = MAX (W(1) - 2.D0*CNA2SO4I, ZERO) CNACLI = MIN (NAFRI, CLFRI) NAFRI = MAX (NAFRI - CNACLI, ZERO) CLFRI = MAX (CLFRI - CNACLI, ZERO) CNANO3I = MIN (NAFRI, NO3FRI) NO3FR = MAX (NO3FRI - CNANO3I, ZERO) REST2 = 2.D0*FRSO4I + NO3FRI + CLFRI C CMGSO4I = MIN (FRSO4I, W(8)) FRMGI = MAX (W(8) - CMGSO4I, ZERO) FRSO4I = MAX (FRSO4I - CMGSO4I, ZERO) CMGNO32I = MIN (FRMGI, 0.5D0*NO3FRI) FRMGI = MAX (FRMGI - CMGNO32I, ZERO) NO3FRI = MAX (NO3FRI - 2.D0*CMGNO32I, ZERO) CMGCL2I = MIN (FRMGI, 0.5D0*CLFRI) CLFRI = MAX (CLFRI - 2.D0*CMGCL2I, ZERO) REST3 = 2.D0*FRSO4I + NO3FRI + CLFRI C IF (W(6).GT.REST) THEN ! Ca > 2*SO4+CL+NO3 ? W(6) = (ONE-1D-6)*REST ! Adjust Ca amount W(1)= ZERO ! Adjust Na amount W(7)= ZERO ! Adjust K amount W(8)= ZERO ! Adjust Mg amount CALL PUSHERR (0051, 'ISRP4F') ! Warning error: Ca, Na, K, Mg in excess C ELSE IF (W(1).GT.REST1) THEN ! Na > 2*FRSO4+FRCL+FRNO3 ? W(1) = (ONE-1D-6)*REST1 ! Adjust Na amount W(7)= ZERO ! Adjust K amount W(8)= ZERO ! Adjust Mg amount CALL PUSHERR (0052, 'ISRP4F') ! Warning error: Na, K, Mg in excess C ELSE IF (W(8).GT.REST2) THEN ! Mg > 2*FRSO4+FRCL+FRNO3 ? W(8) = (ONE-1D-6)*REST2 ! Adjust Mg amount W(7)= ZERO ! Adjust K amount CALL PUSHERR (0053, 'ISRP4F') ! Warning error: K, Mg in excess C ELSE IF (W(7).GT.REST3) THEN ! K > 2*FRSO4+FRCL+FRNO3 ? W(7) = (ONE-1D-6)*REST3 ! Adjust K amount CALL PUSHERR (0054, 'ISRP4F') ! Warning error: K in excess ENDIF ENDIF C C *** CALCULATE RATIOS ************************************************* C SO4RAT = (W(1)+W(3)+W(6)+W(7)+W(8))/W(2) CRNARAT = (W(1)+W(6)+W(7)+W(8))/W(2) CRRAT = (W(6)+W(7)+W(8))/W(2) C C *** FIND CALCULATION REGIME FROM (SO4RAT, CRNARAT, CRRAT, RRH) ******** C C *** SULFATE POOR: Rso4>2; (DUST + SODIUM) POOR: R(Cr+Na)<2 C IF (2.0.LE.SO4RAT .AND. CRNARAT.LT.2.0) THEN C IF(METSTBL.EQ.1) THEN SCASE = 'O7' CALL CALCO7 ! Only liquid (metastable) ELSE C IF (RH.LT.DRNH4NO3) THEN SCASE = 'O1' CALL CALCO1 ! CaSO4, NH4NO3, NH4CL, (NH4)2SO4, MGSO4, NA2SO4, K2SO4 C ELSEIF (DRNH4NO3.LE.RH .AND. RH.LT.DRNH4CL) THEN SCASE = 'O2' CALL CALCO2 ! CaSO4, NH4CL, (NH4)2SO4, MGSO4, NA2SO4, K2SO4 C ELSEIF (DRNH4CL.LE.RH .AND. RH.LT.DRNH42S4) THEN SCASE = 'O3' CALL CALCO3 ! CaSO4, (NH4)2SO4, MGSO4, NA2SO4, K2SO4 C ELSEIF (DRNH42S4.LE.RH .AND. RH.LT.DRMGSO4) THEN SCASE = 'O4' CALL CALCO4 ! CaSO4, MGSO4, NA2SO4, K2SO4 C ELSEIF (DRMGSO4.LE.RH .AND. RH.LT.DRNA2SO4) THEN SCASE = 'O5' CALL CALCO5 ! CaSO4, NA2SO4, K2SO4 C ELSEIF (DRNA2SO4.LE.RH .AND. RH.LT.DRK2SO4) THEN SCASE = 'O6' CALL CALCO6 ! CaSO4, K2SO4 C ELSEIF (DRK2SO4.LE.RH) THEN SCASE = 'O7' CALL CALCO7 ! CaSO4 ENDIF ENDIF C C *** SULFATE POOR: Rso4>2; (DUST + SODIUM) RICH: R(Cr+Na)>2; DUST POOR: Rcr<2. C ELSEIF (SO4RAT.GE.2.0 .AND. CRNARAT.GE.2.0) THEN C IF (CRRAT.LE.2.0) THEN C IF(METSTBL.EQ.1) THEN SCASE = 'M8' CALL CALCM8 ! Only liquid (metastable) ELSE C IF (RH.LT.DRNH4NO3) THEN SCASE = 'M1' CALL CALCM1 ! CaSO4, NH4NO3, NH4CL, MGSO4, NA2SO4, K2SO4, NACL, NANO3 C ELSEIF (DRNH4NO3.LE.RH .AND. RH.LT.DRNANO3) THEN SCASE = 'M2' CALL CALCM2 ! CaSO4, NH4CL, MGSO4, NA2SO4, K2SO4, NACL, NANO3 C ELSEIF (DRNANO3.LE.RH .AND. RH.LT.DRNACL) THEN SCASE = 'M3' CALL CALCM3 ! CaSO4, NH4CL, MGSO4, NA2SO4, K2SO4, NACL C ELSEIF (DRNACL.LE.RH .AND. RH.LT.DRNH4Cl) THEN SCASE = 'M4' CALL CALCM4 ! CaSO4, NH4CL, MGSO4, NA2SO4, K2SO4 C ELSEIF (DRNH4Cl.LE.RH .AND. RH.LT.DRMGSO4) THEN SCASE = 'M5' CALL CALCM5 ! CaSO4, MGSO4, NA2SO4, K2SO4 C ELSEIF (DRMGSO4.LE.RH .AND. RH.LT.DRNA2SO4) THEN SCASE = 'M6' CALL CALCM6 ! CaSO4, NA2SO4, K2SO4 C ELSEIF (DRNA2SO4.LE.RH .AND. RH.LT.DRK2SO4) THEN SCASE = 'M7' CALL CALCM7 ! CaSO4, K2SO4 C ELSEIF (DRK2SO4.LE.RH) THEN SCASE = 'M8' CALL CALCM8 ! CaSO4 ENDIF ENDIF C CALL CALCHCO3 C C *** SULFATE POOR: Rso4>2; (DUST + SODIUM) RICH: R(Cr+Na)>2; DUST POOR: Rcr<2. C ELSEIF (CRRAT.GT.2.0) THEN C IF(METSTBL.EQ.1) THEN SCASE = 'P13' CALL CALCP13 ! Only liquid (metastable) ELSE C IF (RH.LT.DRCACL2) THEN SCASE = 'P1' CALL CALCP1 ! CaSO4, CA(NO3)2, CACL2, K2SO4, KNO3, KCL, MGSO4, C ! MG(NO3)2, MGCL2, NANO3, NACL, NH4NO3, NH4CL C ELSEIF (DRCACL2.LE.RH .AND. RH.LT.DRMGCL2) THEN SCASE = 'P2' CALL CALCP2 ! CaSO4, CA(NO3)2, K2SO4, KNO3, KCL, MGSO4, C ! MG(NO3)2, MGCL2, NANO3, NACL, NH4NO3, NH4CL C ELSEIF (DRMGCL2.LE.RH .AND. RH.LT.DRCANO32) THEN SCASE = 'P3' CALL CALCP3 ! CaSO4, CA(NO3)2, K2SO4, KNO3, KCL, MGSO4, C ! MG(NO3)2, NANO3, NACL, NH4NO3, NH4CL C ELSEIF (DRCANO32.LE.RH .AND. RH.LT.DRMGNO32) THEN SCASE = 'P4' CALL CALCP4 ! CaSO4, K2SO4, KNO3, KCL, MGSO4, C ! MG(NO3)2, NANO3, NACL, NH4NO3, NH4CL C ELSEIF (DRMGNO32.LE.RH .AND. RH.LT.DRNH4NO3) THEN SCASE = 'P5' CALL CALCP5 ! CaSO4, K2SO4, KNO3, KCL, MGSO4, C ! NANO3, NACL, NH4NO3, NH4CL C ELSEIF (DRNH4NO3.LE.RH .AND. RH.LT.DRNANO3) THEN SCASE = 'P6' CALL CALCP6 ! CaSO4, K2SO4, KNO3, KCL, MGSO4, NANO3, NACL, NH4CL C ELSEIF (DRNANO3.LE.RH .AND. RH.LT.DRNACL) THEN SCASE = 'P7' CALL CALCP7 ! CaSO4, K2SO4, KNO3, KCL, MGSO4, NACL, NH4CL C ELSEIF (DRNACL.LE.RH .AND. RH.LT.DRNH4CL) THEN SCASE = 'P8' CALL CALCP8 ! CaSO4, K2SO4, KNO3, KCL, MGSO4, NH4CL C ELSEIF (DRNH4CL.LE.RH .AND. RH.LT.DRKCL) THEN SCASE = 'P9' CALL CALCP9 ! CaSO4, K2SO4, KNO3, KCL, MGSO4 C ELSEIF (DRKCL.LE.RH .AND. RH.LT.DRMGSO4) THEN SCASE = 'P10' CALL CALCP10 ! CaSO4, K2SO4, KNO3, MGSO4 C ELSEIF (DRMGSO4.LE.RH .AND. RH.LT.DRKNO3) THEN SCASE = 'P11' CALL CALCP11 ! CaSO4, K2SO4, KNO3 C ELSEIF (DRKNO3.LE.RH .AND. RH.LT.DRK2SO4) THEN SCASE = 'P12' CALL CALCP12 ! CaSO4, K2SO4 C ELSEIF (DRK2SO4.LE.RH) THEN SCASE = 'P13' CALL CALCP13 ! CaSO4 ENDIF ENDIF C CALL CALCHCO3 ENDIF C C *** SULFATE RICH (NO ACID): 1= 2.0) C 2. LIQUID AEROSOL PHASE ONLY POSSIBLE C C FOR CALCULATIONS, A BISECTION IS PERFORMED TOWARDS X, THE C AMOUNT OF HYDROGEN IONS (H+) FOUND IN THE LIQUID PHASE. C FOR EACH ESTIMATION OF H+, FUNCTION FUNCB2A CALCULATES THE C CONCENTRATION OF IONS FROM THE NH3(GAS) - NH4+(LIQ) EQUILIBRIUM. C ELECTRONEUTRALITY IS USED AS THE OBJECTIVE FUNCTION. C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCA2 INCLUDE 'isrpia.inc' C C *** SETUP PARAMETERS ************************************************ C CALAOU =.TRUE. ! Outer loop activity calculation flag OMELO = TINY ! Low limit: SOLUTION IS VERY BASIC OMEHI = 2.0D0*W(2) ! High limit: FROM NH4+ -> NH3(g) + H+(aq) C C *** CALCULATE WATER CONTENT ***************************************** C MOLAL(5) = W(2) MOLAL(6) = ZERO CALL CALCMR C C *** INITIAL VALUES FOR BISECTION ************************************ C X1 = OMEHI Y1 = FUNCA2 (X1) IF (ABS(Y1).LE.EPS) RETURN C C *** ROOT TRACKING ; FOR THE RANGE OF HI AND LO ********************** C DX = (OMEHI-OMELO)/FLOAT(NDIV) DO 10 I=1,NDIV X2 = MAX(X1-DX, OMELO) Y2 = FUNCA2 (X2) IF (SIGN(1.d0,Y1)*SIGN(1.d0,Y2).LT.ZERO) GOTO 20 ! (Y1*Y2.LT.ZERO) X1 = X2 Y1 = Y2 10 CONTINUE IF (ABS(Y2).LE.EPS) THEN RETURN ELSE CALL PUSHERR (0001, 'CALCA2') ! WARNING ERROR: NO SOLUTION RETURN ENDIF C C *** PERFORM BISECTION *********************************************** C 20 DO 30 I=1,MAXIT X3 = 0.5*(X1+X2) CALL RSTGAMP ! reinitialize activity coefficients (slc.1.2012) Y3 = FUNCA2 (X3) IF (SIGN(1.d0,Y1)*SIGN(1.d0,Y3) .LE. ZERO) THEN ! (Y1*Y3 .LE. ZERO) Y2 = Y3 X2 = X3 ELSE Y1 = Y3 X1 = X3 ENDIF IF (ABS(X2-X1) .LE. EPS*X1) GOTO 40 30 CONTINUE CALL PUSHERR (0002, 'CALCA2') ! WARNING ERROR: NO CONVERGENCE C C *** CONVERGED ; RETURN ********************************************** C 40 X3 = 0.5*(X1+X2) CALL RSTGAMP ! reinitialize activity coefficients (slc.1.2012) Y3 = FUNCA2 (X3) RETURN C C *** END OF SUBROUTINE CALCA2 **************************************** C END C======================================================================= C C *** ISORROPIA CODE C *** FUNCTION FUNCA2 C *** CASE A2 C FUNCTION THAT SOLVES THE SYSTEM OF EQUATIONS FOR CASE A2 ; C AND RETURNS THE VALUE OF THE ZEROED FUNCTION IN FUNCA2. C C======================================================================= C DOUBLE PRECISION FUNCTION FUNCA2 (OMEGI) INCLUDE 'isrpia.inc' DOUBLE PRECISION LAMDA C C *** SETUP PARAMETERS ************************************************ C FRST = .TRUE. CALAIN = .TRUE. PSI = W(2) ! INITIAL AMOUNT OF (NH4)2SO4 IN SOLUTION C C *** SOLVE EQUATIONS ; WITH ITERATIONS FOR ACTIVITY COEF. ************ C DO 10 I=1,NSWEEP A1 = XK1*WATER/GAMA(7)*(GAMA(8)/GAMA(7))**2. A2 = XK2*R*TEMP/XKW*(GAMA(8)/GAMA(9))**2. A3 = XKW*RH*WATER*WATER C LAMDA = PSI/(A1/OMEGI+ONE) ZETA = A3/OMEGI C C *** SPECIATION & WATER CONTENT *************************************** C MOLAL (1) = OMEGI ! HI MOLAL (5) = MAX(PSI-LAMDA,TINY) ! SO4I MOLAL (3) = MAX(W(3)/(ONE/A2/OMEGI + ONE), 2.*MOLAL(5)) ! NH4I MOLAL (6) = LAMDA ! HSO4I GNH3 = MAX (W(3)-MOLAL(3), TINY) ! NH3GI COH = ZETA ! OHI C C *** CALCULATE ACTIVITIES OR TERMINATE INTERNAL LOOP ***************** C IF (FRST.AND.CALAOU .OR. .NOT.FRST.AND.CALAIN) THEN CALL CALCACT ELSE GOTO 20 ENDIF 10 CONTINUE C C *** CALCULATE OBJECTIVE FUNCTION ************************************ C 20 DENOM = (2.0*MOLAL(5)+MOLAL(6)) FUNCA2= (MOLAL(3)/DENOM - ONE) + MOLAL(1)/DENOM RETURN C C *** END OF FUNCTION FUNCA2 ******************************************** C END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE CALCA1 C *** CASE A1 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SULRAT > 2.0) C 2. SOLID AEROSOL ONLY C 3. SOLIDS POSSIBLE : (NH4)2SO4 C C A SIMPLE MATERIAL BALANCE IS PERFORMED, AND THE SOLID (NH4)2SO4 C IS CALCULATED FROM THE SULFATES. THE EXCESS AMMONIA REMAINS IN C THE GAS PHASE. C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCA1 INCLUDE 'isrpia.inc' C CNH42S4 = W(2) GNH3 = MAX (W(3)-2.0*CNH42S4, ZERO) RETURN C C *** END OF SUBROUTINE CALCA1 ****************************************** C END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE CALCB4 C *** CASE B4 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE RICH, NO FREE ACID (1.0 <= SULRAT < 2.0) C 2. LIQUID AEROSOL PHASE ONLY POSSIBLE C C FOR CALCULATIONS, A BISECTION IS PERFORMED WITH RESPECT TO H+. C THE OBJECTIVE FUNCTION IS THE DIFFERENCE BETWEEN THE ESTIMATED H+ C AND THAT CALCULATED FROM ELECTRONEUTRALITY. C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCB4 INCLUDE 'isrpia.inc' C C *** SOLVE EQUATIONS ************************************************** C FRST = .TRUE. CALAIN = .TRUE. CALAOU = .TRUE. C C *** CALCULATE WATER CONTENT ****************************************** C CALL CALCB1A ! GET DRY SALT CONTENT, AND USE FOR WATER. MOLALR(13) = CLC MOLALR(9) = CNH4HS4 MOLALR(4) = CNH42S4 CLC = ZERO CNH4HS4 = ZERO CNH42S4 = ZERO WATER = MOLALR(13)/M0(13)+MOLALR(9)/M0(9)+MOLALR(4)/M0(4) C MOLAL(3) = W(3) ! NH4I C DO 20 I=1,NSWEEP AK1 = XK1*((GAMA(8)/GAMA(7))**2.)*(WATER/GAMA(7)) BET = W(2) GAM = MOLAL(3) C BB = BET + AK1 - GAM CC =-AK1*BET DD = BB*BB - 4.D0*CC C C *** SPECIATION & WATER CONTENT *************************************** C MOLAL (5) = MAX(TINY,MIN(0.5*(-BB + SQRT(DD)), W(2))) ! SO4I MOLAL (6) = MAX(TINY,MIN(W(2)-MOLAL(5),W(2))) ! HSO4I MOLAL (1) = MAX(TINY,MIN(AK1*MOLAL(6)/MOLAL(5),W(2))) ! HI CALL CALCMR ! Water content C C *** CALCULATE ACTIVITIES OR TERMINATE INTERNAL LOOP ***************** C IF (.NOT.CALAIN) GOTO 30 CALL CALCACT 20 CONTINUE C 30 RETURN C C *** END OF SUBROUTINE CALCB4 ****************************************** C END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE CALCB3 C *** CASE B3 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE RICH, NO FREE ACID (1.0 <= SULRAT < 2.0) C 2. BOTH LIQUID & SOLID PHASE IS POSSIBLE C 3. SOLIDS POSSIBLE: (NH4)2SO4 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCB3 INCLUDE 'isrpia.inc' C C *** CALCULATE EQUIVALENT AMOUNT OF HSO4 AND SO4 *********************** C X = MAX(2*W(2)-W(3), ZERO) ! Equivalent NH4HSO4 Y = MAX(W(3) -W(2), ZERO) ! Equivalent NH42SO4 C C *** CALCULATE SPECIES ACCORDING TO RELATIVE ABUNDANCE OF HSO4 ********* C IF (X.LT.Y) THEN ! LC is the MIN (x,y) SCASE = 'B3 ; SUBCASE 1' TLC = X TNH42S4 = Y-X CALL CALCB3A (TLC,TNH42S4) ! LC + (NH4)2SO4 ELSE SCASE = 'B3 ; SUBCASE 2' TLC = Y TNH4HS4 = X-Y CALL CALCB3B (TLC,TNH4HS4) ! LC + NH4HSO4 ENDIF C RETURN C C *** END OF SUBROUTINE CALCB3 ****************************************** C END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE CALCB3A C *** CASE B3 ; SUBCASE 1 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE RICH (1.0 < SULRAT < 2.0) C 2. BOTH LIQUID & SOLID PHASE IS POSSIBLE C 3. SOLIDS POSSIBLE: (NH4)2SO4 C C FOR CALCULATIONS, A BISECTION IS PERFORMED TOWARDS ZETA, THE C AMOUNT OF SOLID (NH4)2SO4 DISSOLVED IN THE LIQUID PHASE. C FOR EACH ESTIMATION OF ZETA, FUNCTION FUNCB3A CALCULATES THE C AMOUNT OF H+ PRODUCED (BASED ON THE SO4 RELEASED INTO THE C SOLUTION). THE SOLUBILITY PRODUCT OF (NH4)2SO4 IS USED AS THE C OBJECTIVE FUNCTION. C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCB3A (TLC, TNH42S4) INCLUDE 'isrpia.inc' C CALAOU = .TRUE. ! Outer loop activity calculation flag ZLO = ZERO ! MIN DISSOLVED (NH4)2SO4 ZHI = TNH42S4 ! MAX DISSOLVED (NH4)2SO4 C C *** INITIAL VALUES FOR BISECTION (DISSOLVED (NH4)2SO4) *************** C Z1 = ZLO Y1 = FUNCB3A (Z1, TLC, TNH42S4) IF (ABS(Y1).LE.EPS) RETURN YLO= Y1 C C *** ROOT TRACKING ; FOR THE RANGE OF HI AND LO *********************** C DZ = (ZHI-ZLO)/FLOAT(NDIV) DO 10 I=1,NDIV Z2 = Z1+DZ Y2 = FUNCB3A (Z2, TLC, TNH42S4) IF (SIGN(1.d0,Y1)*SIGN(1.d0,Y2).LT.ZERO) GOTO 20 ! (Y1*Y2.LT.ZERO) Z1 = Z2 Y1 = Y2 10 CONTINUE C C *** NO SUBDIVISION WITH SOLUTION FOUND C YHI= Y1 ! Save Y-value at HI position IF (ABS(Y2) .LT. EPS) THEN ! X2 IS A SOLUTION RETURN C C *** { YLO, YHI } < 0.0 THE SOLUTION IS ALWAYS UNDERSATURATED WITH LC C ELSE IF (YLO.LT.ZERO .AND. YHI.LT.ZERO) THEN Z1 = ZHI Z2 = ZHI GOTO 40 C C *** { YLO, YHI } > 0.0 THE SOLUTION IS ALWAYS SUPERSATURATED WITH LC C ELSE IF (YLO.GT.ZERO .AND. YHI.GT.ZERO) THEN Z1 = ZLO Z2 = ZLO GOTO 40 ELSE CALL PUSHERR (0001, 'CALCB3A') ! WARNING ERROR: NO SOLUTION RETURN ENDIF C C *** PERFORM BISECTION *********************************************** C 20 DO 30 I=1,MAXIT Z3 = 0.5*(Z1+Z2) CALL RSTGAMP ! reinitialize activity coefficients (slc.1.2012) Y3 = FUNCB3A (Z3, TLC, TNH42S4) IF (SIGN(1.d0,Y1)*SIGN(1.d0,Y3) .LE. ZERO) THEN ! (Y1*Y3 .LE. ZERO) Y2 = Y3 Z2 = Z3 ELSE Y1 = Y3 Z1 = Z3 ENDIF IF (ABS(Z2-Z1) .LE. EPS*Z1) GOTO 40 30 CONTINUE CALL PUSHERR (0002, 'CALCB3A') ! WARNING ERROR: NO CONVERGENCE C C *** CONVERGED ; RETURN ************************************************ C 40 ZK = 0.5*(Z1+Z2) CALL RSTGAMP ! reinitialize activity coefficients (slc.1.2012) Y3 = FUNCB3A (ZK, TLC, TNH42S4) C RETURN C C *** END OF SUBROUTINE CALCB3A ****************************************** C END C======================================================================= C C *** ISORROPIA CODE C *** FUNCTION FUNCB3A C *** CASE B3 ; SUBCASE 1 C FUNCTION THAT SOLVES THE SYSTEM OF EQUATIONS FOR CASE B3 C AND RETURNS THE VALUE OF THE ZEROED FUNCTION IN FUNCA3. C C======================================================================= C DOUBLE PRECISION FUNCTION FUNCB3A (ZK, Y, X) INCLUDE 'isrpia.inc' DOUBLE PRECISION KK C C *** SOLVE EQUATIONS ; WITH ITERATIONS FOR ACTIVITY COEF. ************ C FRST = .TRUE. CALAIN = .TRUE. DO 20 I=1,NSWEEP GRAT1 = XK1*WATER/GAMA(7)*(GAMA(8)/GAMA(7))**2. DD = SQRT( (ZK+GRAT1+Y)**2. + 4.0*Y*GRAT1) KK = 0.5*(-(ZK+GRAT1+Y) + DD ) C C *** SPECIATION & WATER CONTENT *************************************** C MOLAL (1) = KK ! HI MOLAL (5) = KK+ZK+Y ! SO4I MOLAL (6) = MAX (Y-KK, TINY) ! HSO4I MOLAL (3) = 3.0*Y+2*ZK ! NH4I CNH42S4 = X-ZK ! Solid (NH4)2SO4 CALL CALCMR ! Water content C C *** CALCULATE ACTIVITIES OR TERMINATE INTERNAL LOOP ***************** C IF (FRST.AND.CALAOU .OR. .NOT.FRST.AND.CALAIN) THEN CALL CALCACT ELSE GOTO 30 ENDIF 20 CONTINUE C C *** CALCULATE OBJECTIVE FUNCTION ************************************ C CCC30 FUNCB3A= ( SO4I*NH4I**2.0 )/( XK7*(WATER/GAMA(4))**3.0 ) 30 FUNCB3A= MOLAL(5)*MOLAL(3)**2.0 FUNCB3A= FUNCB3A/(XK7*(WATER/GAMA(4))**3.0) - ONE RETURN C C *** END OF FUNCTION FUNCB3A ******************************************** C END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE CALCB3B C *** CASE B3 ; SUBCASE 2 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE RICH (1.0 < SULRAT < 2.0) C 2. LIQUID PHASE ONLY IS POSSIBLE C C SPECIATION CALCULATIONS IS BASED ON THE HSO4 <--> SO4 EQUILIBRIUM. C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCB3B (Y, X) INCLUDE 'isrpia.inc' DOUBLE PRECISION KK C CALAOU = .FALSE. ! Outer loop activity calculation flag FRST = .FALSE. CALAIN = .TRUE. C C *** SOLVE EQUATIONS ; WITH ITERATIONS FOR ACTIVITY COEF. ************ C DO 20 I=1,NSWEEP GRAT1 = XK1*WATER/GAMA(7)*(GAMA(8)/GAMA(7))**2. DD = SQRT( (GRAT1+Y)**2. + 4.0*(X+Y)*GRAT1) KK = 0.5*(-(GRAT1+Y) + DD ) C C *** SPECIATION & WATER CONTENT *************************************** C MOLAL (1) = KK ! HI MOLAL (5) = Y+KK ! SO4I MOLAL (6) = MAX (X+Y-KK, TINY) ! HSO4I MOLAL (3) = 3.0*Y+X ! NH4I CALL CALCMR ! Water content C C *** CALCULATE ACTIVITIES OR TERMINATE INTERNAL LOOP ***************** C IF (.NOT.CALAIN) GOTO 30 CALL CALCACT 20 CONTINUE C 30 RETURN C C *** END OF SUBROUTINE CALCB3B ****************************************** C END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE CALCB2 C *** CASE B2 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE RICH, NO FREE ACID (1.0 <= SULRAT < 2.0) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : LC, (NH4)2SO4 C C THERE ARE TWO POSSIBLE REGIMES HERE, DEPENDING ON THE SULFATE RATIO: C 1. WHEN BOTH LC AND (NH4)2SO4 ARE POSSIBLE (SUBROUTINE CALCB2A) C 2. WHEN ONLY LC IS POSSIBLE (SUBROUTINE CALCB2B). C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCB2 INCLUDE 'isrpia.inc' C C *** CALCULATE EQUIVALENT AMOUNT OF HSO4 AND SO4 *********************** C X = MAX(2*W(2)-W(3), TINY) ! Equivalent NH4HSO4 Y = MAX(W(3) -W(2), TINY) ! Equivalent NH42SO4 C C *** CALCULATE SPECIES ACCORDING TO RELATIVE ABUNDANCE OF HSO4 ********* C IF (X.LE.Y) THEN ! LC is the MIN (x,y) SCASE = 'B2 ; SUBCASE 1' CALL CALCB2A (X,Y-X) ! LC + (NH4)2SO4 POSSIBLE ELSE SCASE = 'B2 ; SUBCASE 2' CALL CALCB2B (Y,X-Y) ! LC ONLY POSSIBLE ENDIF C RETURN C C *** END OF SUBROUTINE CALCB2 ****************************************** C END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE CALCB2 C *** CASE B2 ; SUBCASE A. C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE RICH (1.0 < SULRAT < 2.0) C 2. SOLID PHASE ONLY POSSIBLE C 3. SOLIDS POSSIBLE: LC, (NH4)2SO4 C C THERE ARE TWO POSSIBLE REGIMES HERE, DEPENDING ON RELATIVE HUMIDITY: C 1. WHEN RH >= MDRH ; LIQUID PHASE POSSIBLE (MDRH REGION) C 2. WHEN RH < MDRH ; ONLY SOLID PHASE POSSIBLE C C FOR SOLID CALCULATIONS, A MATERIAL BALANCE BASED ON THE STOICHIMETRIC C PROPORTION OF AMMONIUM AND SULFATE IS DONE TO CALCULATE THE AMOUNT C OF LC AND (NH4)2SO4 IN THE SOLID PHASE. C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCB2A (TLC, TNH42S4) INCLUDE 'isrpia.inc' C C *** REGIME DEPENDS UPON THE AMBIENT RELATIVE HUMIDITY ***************** C IF (RH.LT.DRMLCAS) THEN SCASE = 'B2 ; SUBCASE A1' ! SOLIDS POSSIBLE ONLY CLC = TLC CNH42S4 = TNH42S4 SCASE = 'B2 ; SUBCASE A1' ELSE SCASE = 'B2 ; SUBCASE A2' CALL CALCB2A2 (TLC, TNH42S4) ! LIQUID & SOLID PHASE POSSIBLE SCASE = 'B2 ; SUBCASE A2' ENDIF C RETURN C C *** END OF SUBROUTINE CALCB2A ***************************************** C END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE CALCB2A2 C *** CASE B2 ; SUBCASE A2. C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE RICH (1.0 < SULRAT < 2.0) C 2. SOLID PHASE ONLY POSSIBLE C 3. SOLIDS POSSIBLE: LC, (NH4)2SO4 C C THIS IS THE CASE WHERE THE RELATIVE HUMIDITY IS IN THE MUTUAL C DRH REGION. THE SOLUTION IS ASSUMED TO BE THE SUM OF TWO WEIGHTED C SOLUTIONS ; THE SOLID PHASE ONLY (SUBROUTINE CALCB2A1) AND THE C THE SOLID WITH LIQUID PHASE (SUBROUTINE CALCB3). C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCB2A2 (TLC, TNH42S4) INCLUDE 'isrpia.inc' C C *** FIND WEIGHT FACTOR ********************************************** C IF (WFTYP.EQ.0) THEN WF = ZERO ELSEIF (WFTYP.EQ.1) THEN WF = 0.5D0 ELSE WF = (DRLC-RH)/(DRLC-DRMLCAS) ENDIF ONEMWF = ONE - WF C C *** FIND FIRST SECTION ; DRY ONE ************************************ C CLCO = TLC ! FIRST (DRY) SOLUTION CNH42SO = TNH42S4 C C *** FIND SECOND SECTION ; DRY & LIQUID ****************************** C CLC = ZERO CNH42S4 = ZERO CALL CALCB3 ! SECOND (LIQUID) SOLUTION C C *** FIND SOLUTION AT MDRH BY WEIGHTING DRY & LIQUID SOLUTIONS. C MOLAL(1)= ONEMWF*MOLAL(1) ! H+ MOLAL(3)= ONEMWF*(2.D0*(CNH42SO-CNH42S4) + 3.D0*(CLCO-CLC)) ! NH4+ MOLAL(5)= ONEMWF*(CNH42SO-CNH42S4 + CLCO-CLC) ! SO4-- MOLAL(6)= ONEMWF*(CLCO-CLC) ! HSO4- C WATER = ONEMWF*WATER C CLC = WF*CLCO + ONEMWF*CLC CNH42S4 = WF*CNH42SO + ONEMWF*CNH42S4 C RETURN C C *** END OF SUBROUTINE CALCB2A2 **************************************** C END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE CALCB2 C *** CASE B2 ; SUBCASE B C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE RICH (1.0 < SULRAT < 2.0) C 2. BOTH LIQUID & SOLID PHASE IS POSSIBLE C 3. SOLIDS POSSIBLE: LC C C FOR CALCULATIONS, A BISECTION IS PERFORMED TOWARDS ZETA, THE C AMOUNT OF SOLID LC DISSOLVED IN THE LIQUID PHASE. C FOR EACH ESTIMATION OF ZETA, FUNCTION FUNCB2A CALCULATES THE C AMOUNT OF H+ PRODUCED (BASED ON THE HSO4, SO4 RELEASED INTO THE C SOLUTION). THE SOLUBILITY PRODUCT OF LC IS USED AS THE OBJECTIVE C FUNCTION. C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCB2B (TLC,TNH4HS4) INCLUDE 'isrpia.inc' C CALAOU = .TRUE. ! Outer loop activity calculation flag ZLO = ZERO ZHI = TLC ! High limit: all of it in liquid phase C C *** INITIAL VALUES FOR BISECTION ************************************** C X1 = ZHI Y1 = FUNCB2B (X1,TNH4HS4,TLC) IF (ABS(Y1).LE.EPS) RETURN YHI= Y1 ! Save Y-value at Hi position C C *** ROOT TRACKING ; FOR THE RANGE OF HI AND LO ************************ C DX = (ZHI-ZLO)/NDIV DO 10 I=1,NDIV X2 = X1-DX Y2 = FUNCB2B (X2,TNH4HS4,TLC) IF (SIGN(1.d0,Y1)*SIGN(1.d0,Y2).LT.ZERO) GOTO 20 ! (Y1*Y2.LT.ZERO) X1 = X2 Y1 = Y2 10 CONTINUE C C *** NO SUBDIVISION WITH SOLUTION FOUND C YLO= Y1 ! Save Y-value at LO position IF (ABS(Y2) .LT. EPS) THEN ! X2 IS A SOLUTION RETURN C C *** { YLO, YHI } < 0.0 THE SOLUTION IS ALWAYS UNDERSATURATED WITH LC C ELSE IF (YLO.LT.ZERO .AND. YHI.LT.ZERO) THEN X1 = ZHI X2 = ZHI GOTO 40 C C *** { YLO, YHI } > 0.0 THE SOLUTION IS ALWAYS SUPERSATURATED WITH LC C ELSE IF (YLO.GT.ZERO .AND. YHI.GT.ZERO) THEN X1 = ZLO X2 = ZLO GOTO 40 ELSE CALL PUSHERR (0001, 'CALCB2B') ! WARNING ERROR: NO SOLUTION RETURN ENDIF C C *** PERFORM BISECTION ************************************************* C 20 DO 30 I=1,MAXIT X3 = 0.5*(X1+X2) CALL RSTGAMP ! reinitialize activity coefficients (slc.1.2012) Y3 = FUNCB2B (X3,TNH4HS4,TLC) IF (SIGN(1.d0,Y1)*SIGN(1.d0,Y3) .LE. ZERO) THEN ! (Y1*Y3 .LE. ZERO) Y2 = Y3 X2 = X3 ELSE Y1 = Y3 X1 = X3 ENDIF IF (ABS(X2-X1) .LE. EPS*X1) GOTO 40 30 CONTINUE CALL PUSHERR (0002, 'CALCB2B') ! WARNING ERROR: NO CONVERGENCE C C *** CONVERGED ; RETURN ************************************************ C 40 X3 = 0.5*(X1+X2) CALL RSTGAMP ! reinitialize activity coefficients (slc.1.2012) Y3 = FUNCB2B (X3,TNH4HS4,TLC) C RETURN C C *** END OF SUBROUTINE CALCB2B ***************************************** C END C======================================================================= C C *** ISORROPIA CODE C *** FUNCTION FUNCB2B C *** CASE B2 ; C FUNCTION THAT SOLVES THE SYSTEM OF EQUATIONS FOR CASE B2 ; SUBCASE 2 C AND RETURNS THE VALUE OF THE ZEROED FUNCTION IN FUNCB2B. C C======================================================================= C DOUBLE PRECISION FUNCTION FUNCB2B (X,TNH4HS4,TLC) INCLUDE 'isrpia.inc' C C *** SOLVE EQUATIONS ************************************************** C FRST = .TRUE. CALAIN = .TRUE. DO 20 I=1,NSWEEP GRAT2 = XK1*WATER*(GAMA(8)/GAMA(7))**2./GAMA(7) PARM = X+GRAT2 DELTA = PARM*PARM + 4.0*(X+TNH4HS4)*GRAT2 ! Diakrinousa OMEGA = 0.5*(-PARM + SQRT(DELTA)) ! Thetiki riza (ie:H+>0) C C *** SPECIATION & WATER CONTENT *************************************** C MOLAL (1) = OMEGA ! HI MOLAL (3) = 3.0*X+TNH4HS4 ! NH4I MOLAL (5) = X+OMEGA ! SO4I MOLAL (6) = MAX (X+TNH4HS4-OMEGA, TINY) ! HSO4I CLC = MAX(TLC-X,ZERO) ! Solid LC CALL CALCMR ! Water content C C *** CALCULATE ACTIVITIES OR TERMINATE INTERNAL LOOP ****************** C IF (FRST.AND.CALAOU .OR. .NOT.FRST.AND.CALAIN) THEN CALL CALCACT ELSE GOTO 30 ENDIF 20 CONTINUE C C *** CALCULATE OBJECTIVE FUNCTION ************************************** C CCC30 FUNCB2B= ( NH4I**3.*SO4I*HSO4I )/( XK13*(WATER/GAMA(13))**5. ) 30 FUNCB2B= (MOLAL(3)**3.)*MOLAL(5)*MOLAL(6) FUNCB2B= FUNCB2B/(XK13*(WATER/GAMA(13))**5.) - ONE RETURN C C *** END OF FUNCTION FUNCB2B ******************************************* C END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE CALCB1 C *** CASE B1 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE RICH, NO FREE ACID (1.0 <= SULRAT < 2.0) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : LC, (NH4)2SO4, NH4HSO4 C C THERE ARE TWO POSSIBLE REGIMES HERE, DEPENDING ON RELATIVE HUMIDITY: C 1. WHEN RH >= MDRH ; LIQUID PHASE POSSIBLE (MDRH REGION) C 2. WHEN RH < MDRH ; ONLY SOLID PHASE POSSIBLE (SUBROUTINE CALCB1A) C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCB1 INCLUDE 'isrpia.inc' C C *** REGIME DEPENDS UPON THE AMBIENT RELATIVE HUMIDITY ***************** C IF (RH.LT.DRMLCAB) THEN SCASE = 'B1 ; SUBCASE 1' CALL CALCB1A ! SOLID PHASE ONLY POSSIBLE SCASE = 'B1 ; SUBCASE 1' ELSE SCASE = 'B1 ; SUBCASE 2' CALL CALCB1B ! LIQUID & SOLID PHASE POSSIBLE SCASE = 'B1 ; SUBCASE 2' ENDIF C RETURN C C *** END OF SUBROUTINE CALCB1 ****************************************** C END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE CALCB1A C *** CASE B1 ; SUBCASE 1 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE RICH C 2. THERE IS NO LIQUID PHASE C 3. SOLIDS POSSIBLE: LC, { (NH4)2SO4 XOR NH4HSO4 } (ONE OF TWO C BUT NOT BOTH) C C A SIMPLE MATERIAL BALANCE IS PERFORMED, AND THE AMOUNT OF LC C IS CALCULATED FROM THE (NH4)2SO4 AND NH4HSO4 WHICH IS LEAST C ABUNDANT (STOICHIMETRICALLY). THE REMAINING EXCESS OF SALT C IS MIXED WITH THE LC. C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCB1A INCLUDE 'isrpia.inc' C C *** SETUP PARAMETERS ************************************************ C X = 2*W(2)-W(3) ! Equivalent NH4HSO4 Y = W(3)-W(2) ! Equivalent (NH4)2SO4 C C *** CALCULATE COMPOSITION ******************************************* C IF (X.LE.Y) THEN ! LC is the MIN (x,y) CLC = X ! NH4HSO4 >= (NH4)2S04 CNH4HS4 = ZERO CNH42S4 = Y-X ELSE CLC = Y ! NH4HSO4 < (NH4)2S04 CNH4HS4 = X-Y CNH42S4 = ZERO ENDIF RETURN C C *** END OF SUBROUTINE CALCB1 ****************************************** C END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE CALCB1B C *** CASE B1 ; SUBCASE 2 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE RICH C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE: LC, { (NH4)2SO4 XOR NH4HSO4 } (ONE OF TWO C BUT NOT BOTH) C C THIS IS THE CASE WHERE THE RELATIVE HUMIDITY IS IN THE MUTUAL C DRH REGION. THE SOLUTION IS ASSUMED TO BE THE SUM OF TWO WEIGHTED C SOLUTIONS ; THE SOLID PHASE ONLY (SUBROUTINE CALCB1A) AND THE C THE SOLID WITH LIQUID PHASE (SUBROUTINE CALCB2). C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCB1B INCLUDE 'isrpia.inc' C C *** FIND WEIGHT FACTOR ********************************************** C IF (WFTYP.EQ.0) THEN WF = ZERO ELSEIF (WFTYP.EQ.1) THEN WF = 0.5D0 ELSE WF = (DRNH4HS4-RH)/(DRNH4HS4-DRMLCAB) ENDIF ONEMWF = ONE - WF C C *** FIND FIRST SECTION ; DRY ONE ************************************ C CALL CALCB1A CLCO = CLC ! FIRST (DRY) SOLUTION CNH42SO = CNH42S4 CNH4HSO = CNH4HS4 C C *** FIND SECOND SECTION ; DRY & LIQUID ****************************** C CLC = ZERO CNH42S4 = ZERO CNH4HS4 = ZERO CALL CALCB2 ! SECOND (LIQUID) SOLUTION C C *** FIND SOLUTION AT MDRH BY WEIGHTING DRY & LIQUID SOLUTIONS. C MOLAL(1)= ONEMWF*MOLAL(1) ! H+ MOLAL(3)= ONEMWF*(2.D0*(CNH42SO-CNH42S4) + (CNH4HSO-CNH4HS4) & + 3.D0*(CLCO-CLC)) ! NH4+ MOLAL(5)= ONEMWF*(CNH42SO-CNH42S4 + CLCO-CLC) ! SO4-- MOLAL(6)= ONEMWF*(CNH4HSO-CNH4HS4 + CLCO-CLC) ! HSO4- C WATER = ONEMWF*WATER C CLC = WF*CLCO + ONEMWF*CLC CNH42S4 = WF*CNH42SO + ONEMWF*CNH42S4 CNH4HS4 = WF*CNH4HSO + ONEMWF*CNH4HS4 C RETURN C C *** END OF SUBROUTINE CALCB1B ***************************************** C END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE CALCC2 C *** CASE C2 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE RICH, FREE ACID (SULRAT < 1.0) C 2. THERE IS ONLY A LIQUID PHASE C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCC2 INCLUDE 'isrpia.inc' DOUBLE PRECISION LAMDA, KAPA C CALAOU =.TRUE. ! Outer loop activity calculation flag FRST =.TRUE. CALAIN =.TRUE. C C *** SOLVE EQUATIONS ************************************************** C LAMDA = W(3) ! NH4HSO4 INITIALLY IN SOLUTION PSI = W(2)-W(3) ! H2SO4 IN SOLUTION DO 20 I=1,NSWEEP PARM = WATER*XK1/GAMA(7)*(GAMA(8)/GAMA(7))**2. BB = PSI+PARM CC =-PARM*(LAMDA+PSI) KAPA = 0.5*(-BB+SQRT(BB*BB-4.0*CC)) C C *** SPECIATION & WATER CONTENT *************************************** C MOLAL(1) = PSI+KAPA ! HI MOLAL(3) = LAMDA ! NH4I MOLAL(5) = KAPA ! SO4I MOLAL(6) = MAX(LAMDA+PSI-KAPA, TINY) ! HSO4I CH2SO4 = MAX(MOLAL(5)+MOLAL(6)-MOLAL(3), ZERO) ! Free H2SO4 CALL CALCMR ! Water content C C *** CALCULATE ACTIVITIES OR TERMINATE INTERNAL LOOP ***************** C IF (.NOT.CALAIN) GOTO 30 CALL CALCACT 20 CONTINUE C 30 RETURN C C *** END OF SUBROUTINE CALCC2 ***************************************** C END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE CALCC1 C *** CASE C1 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE RICH, FREE ACID (SULRAT < 1.0) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE: NH4HSO4 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCC1 INCLUDE 'isrpia.inc' DOUBLE PRECISION KLO, KHI C CALAOU = .TRUE. ! Outer loop activity calculation flag KLO = TINY KHI = W(3) C C *** INITIAL VALUES FOR BISECTION ************************************* C X1 = KLO Y1 = FUNCC1 (X1) IF (ABS(Y1).LE.EPS) GOTO 50 YLO= Y1 C C *** ROOT TRACKING ; FOR THE RANGE OF HI AND LO *********************** C DX = (KHI-KLO)/FLOAT(NDIV) DO 10 I=1,NDIV X2 = X1+DX Y2 = FUNCC1 (X2) IF (SIGN(1.d0,Y1)*SIGN(1.d0,Y2) .LT. ZERO) GOTO 20 ! (Y1*Y2 .LT. ZERO) X1 = X2 Y1 = Y2 10 CONTINUE C C *** NO SUBDIVISION WITH SOLUTION FOUND C YHI= Y2 ! Save Y-value at HI position IF (ABS(Y2) .LT. EPS) THEN ! X2 IS A SOLUTION GOTO 50 C C *** { YLO, YHI } < 0.0 SOLUTION IS ALWAYS UNDERSATURATED WITH NH4HS04 C ELSE IF (YLO.LT.ZERO .AND. YHI.LT.ZERO) THEN GOTO 50 C C *** { YLO, YHI } > 0.0 SOLUTION IS ALWAYS SUPERSATURATED WITH NH4HS04 C ELSE IF (YLO.GT.ZERO .AND. YHI.GT.ZERO) THEN X1 = KLO X2 = KLO GOTO 40 ELSE CALL PUSHERR (0001, 'CALCC1') ! WARNING ERROR: NO SOLUTION GOTO 50 ENDIF C C *** PERFORM BISECTION OF DISSOLVED NH4HSO4 ************************** C 20 DO 30 I=1,MAXIT X3 = 0.5*(X1+X2) CALL RSTGAMP ! reinitialize activity coefficients (slc.1.2012) Y3 = FUNCC1 (X3) IF (SIGN(1.d0,Y1)*SIGN(1.d0,Y3) .LE. ZERO) THEN ! (Y1*Y3 .LE. ZERO) Y2 = Y3 X2 = X3 ELSE Y1 = Y3 X1 = X3 ENDIF IF (ABS(X2-X1) .LE. EPS*X1) GOTO 40 30 CONTINUE CALL PUSHERR (0002, 'CALCC1') ! WARNING ERROR: NO CONVERGENCE C C *** CONVERGED ; RETURN *********************************************** C 40 X3 = 0.5*(X1+X2) CALL RSTGAMP ! reinitialize activity coefficients (slc.1.2012) Y3 = FUNCC1 (X3) C 50 RETURN C C *** END OF SUBROUTINE CALCC1 ***************************************** C END C======================================================================= C C *** ISORROPIA CODE C *** FUNCTION FUNCC1 C *** CASE C1 ; C FUNCTION THAT SOLVES THE SYSTEM OF EQUATIONS FOR CASE C1 C AND RETURNS THE VALUE OF THE ZEROED FUNCTION IN FUNCC1. C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C DOUBLE PRECISION FUNCTION FUNCC1 (KAPA) INCLUDE 'isrpia.inc' DOUBLE PRECISION KAPA, LAMDA C C *** SOLVE EQUATIONS ************************************************** C FRST = .TRUE. CALAIN = .TRUE. C PSI = W(2)-W(3) DO 20 I=1,NSWEEP PAR1 = XK1*WATER/GAMA(7)*(GAMA(8)/GAMA(7))**2.0 PAR2 = XK12*(WATER/GAMA(9))**2.0 BB = PSI + PAR1 CC =-PAR1*(PSI+KAPA) LAMDA = 0.5*(-BB+SQRT(BB*BB-4*CC)) C C *** SAVE CONCENTRATIONS IN MOLAL ARRAY ******************************* C MOLAL(1) = PSI+LAMDA ! HI MOLAL(3) = KAPA ! NH4I MOLAL(5) = LAMDA ! SO4I MOLAL(6) = MAX (ZERO, PSI+KAPA-LAMDA) ! HSO4I CNH4HS4 = MAX(W(3)-MOLAL(3), ZERO) ! Solid NH4HSO4 CH2SO4 = MAX(PSI, ZERO) ! Free H2SO4 CALL CALCMR ! Water content C C *** CALCULATE ACTIVITIES OR TERMINATE INTERNAL LOOP ***************** C IF (FRST.AND.CALAOU .OR. .NOT.FRST.AND.CALAIN) THEN CALL CALCACT ELSE GOTO 30 ENDIF 20 CONTINUE C C *** CALCULATE ZERO FUNCTION ******************************************* C CCC30 FUNCC1= (NH4I*HSO4I/PAR2) - ONE 30 FUNCC1= (MOLAL(3)*MOLAL(6)/PAR2) - ONE RETURN C C *** END OF FUNCTION FUNCC1 ******************************************** C END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE CALCD3 C *** CASE D3 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SULRAT > 2.0) C 2. THERE IS OLNY A LIQUID PHASE C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCD3 INCLUDE 'isrpia.inc' C COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** FIND DRY COMPOSITION ********************************************** C CALL CALCD1A C C *** SETUP PARAMETERS ************************************************ C CHI1 = CNH4NO3 ! Save from CALCD1 run CHI2 = CNH42S4 CHI3 = GHNO3 CHI4 = GNH3 C PSI1 = CNH4NO3 ! ASSIGN INITIAL PSI's PSI2 = CHI2 PSI3 = ZERO PSI4 = ZERO C MOLAL(5) = PSI2 ! Include initial amount in water calc MOLAL(6) = ZERO MOLAL(3) = PSI1 MOLAL(7) = PSI1 CALL CALCMR ! Initial water C CALAOU = .TRUE. ! Outer loop activity calculation flag PSI4LO = TINY ! Low limit PSI4HI = CHI4 ! High limit C C *** INITIAL VALUES FOR BISECTION ************************************ C 60 X1 = PSI4LO CALL RSTGAMP ! reinitialize activity coefficients (slc.1.2012) Y1 = FUNCD3 (X1) IF (ABS(Y1).LE.EPS) RETURN YLO= Y1 ! Save Y-value at HI position C C *** ROOT TRACKING ; FOR THE RANGE OF HI AND LO ********************** C DX = (PSI4HI-PSI4LO)/FLOAT(NDIV) DO 10 I=1,NDIV X2 = X1+DX CALL RSTGAMP ! reinitialize activity coefficients (slc.1.2012) Y2 = FUNCD3 (X2) IF (((Y1) .LT. ZERO) .AND. ((Y2) .GT. ZERO)) GOTO 20 ! (Y1*Y2.LT.ZERO) (slc.1.2012) C IF (SIGN(1.d0,Y1)*SIGN(1.d0,Y2).LT.ZERO) GOTO 20 X1 = X2 Y1 = Y2 10 CONTINUE C C *** NO SUBDIVISION WITH SOLUTION FOUND C YHI= Y1 ! Save Y-value at Hi position IF (ABS(Y2) .LT. EPS) THEN ! X2 IS A SOLUTION RETURN C C *** { YLO, YHI } < 0.0 THE SOLUTION IS ALWAYS UNDERSATURATED WITH NH3 C Physically I dont know when this might happen, but I have put this C branch in for completeness. I assume there is no solution; all NO3 goes to the C gas phase. C ELSE IF (YLO.LT.ZERO .AND. YHI.LT.ZERO) THEN P4 = TINY ! PSI4LO ! CHI4 CALL RSTGAMP ! reinitialize activity coefficients (slc.1.2012) YY = FUNCD3(P4) GOTO 50 C C *** { YLO, YHI } > 0.0 THE SOLUTION IS ALWAYS SUPERSATURATED WITH NH3 C This happens when Sul.Rat. = 2.0, so some NH4+ from sulfate evaporates C and goes to the gas phase ; so I redefine the LO and HI limits of PSI4 C and proceed again with root tracking. C ELSE IF (YLO.GT.ZERO .AND. YHI.GT.ZERO) THEN PSI4HI = PSI4LO PSI4LO = PSI4LO - 0.1*(PSI1+PSI2) ! No solution; some NH3 evaporates IF (PSI4LO.LT.-(PSI1+PSI2)) THEN CALL PUSHERR (0001, 'CALCD3') ! WARNING ERROR: NO SOLUTION RETURN ELSE MOLAL(5) = PSI2 ! Include sulfate in initial water calculation MOLAL(6) = ZERO MOLAL(3) = PSI1 MOLAL(7) = PSI1 CALL CALCMR ! Initial water GOTO 60 ! Redo root tracking ENDIF ENDIF C C *** PERFORM BISECTION *********************************************** C 20 DO 30 I=1,MAXIT X3 = 0.5*(X1+X2) CALL RSTGAMP ! reinitialize activity coefficients (slc.1.2012) Y3 = FUNCD3 (X3) IF (SIGN(1.d0,Y1)*SIGN(1.d0,Y3) .LE. ZERO) THEN ! (Y1*Y3 .LE. ZERO) Y2 = Y3 X2 = X3 ELSE Y1 = Y3 X1 = X3 ENDIF IF (ABS(X2-X1) .LE. EPS*ABS(X1)) GOTO 40 30 CONTINUE CALL PUSHERR (0002, 'CALCD3') ! WARNING ERROR: NO CONVERGENCE C C *** CONVERGED ; RETURN ********************************************** C 40 X3 = 0.5*(X1+X2) CALL RSTGAMP ! reinitialize activity coefficients (slc.1.2012) Y3 = FUNCD3 (X3) C C *** CALCULATE HSO4 SPECIATION AND RETURN ******************************* C 50 CONTINUE C C modified by Wenxian Zhang for DDM sensitivity calculation DO I = 1,NIONS MOLALD(I) = MOLAL(I) ENDDO GNH3D = GNH3 GHNO3D = GHNO3 GHCLD = GHCL C IF (MOLAL(1).GT.TINY) THEN CALL CALCHS4 (MOLAL(1), MOLAL(5), ZERO, DELTA) MOLAL(1) = MOLAL(1) - DELTA ! H+ EFFECT MOLAL(5) = MOLAL(5) - DELTA ! SO4 EFFECT MOLAL(6) = DELTA ! HSO4 EFFECT ENDIF RETURN C C *** END OF SUBROUTINE CALCD3 ****************************************** C END C======================================================================= C C *** ISORROPIA CODE C *** FUNCTION FUNCD3 C *** CASE D3 C FUNCTION THAT SOLVES THE SYSTEM OF EQUATIONS FOR CASE D3 ; C AND RETURNS THE VALUE OF THE ZEROED FUNCTION IN FUNCD3. C C======================================================================= C DOUBLE PRECISION FUNCTION FUNCD3 (P4) INCLUDE 'isrpia.inc' C COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** SETUP PARAMETERS ************************************************ C FRST = .TRUE. CALAIN = .TRUE. PSI4 = P4 C C *** SOLVE EQUATIONS ; WITH ITERATIONS FOR ACTIVITY COEF. ************ C DO 10 I=1,NSWEEP A2 = XK7*(WATER/GAMA(4))**3.0 A3 = XK4*R*TEMP*(WATER/GAMA(10))**2.0 A4 = (XK2/XKW)*R*TEMP*(GAMA(10)/GAMA(5))**2.0 A7 = XKW *RH*WATER*WATER C PSI3 = A3*A4*CHI3*(CHI4-PSI4) - PSI1*(2.D0*PSI2+PSI1+PSI4) PSI3 = PSI3/(A3*A4*(CHI4-PSI4) + 2.D0*PSI2+PSI1+PSI4) PSI3 = MIN(MAX(PSI3, ZERO), CHI3) C BB = PSI4 - PSI3 CCCOLD AHI = 0.5*(-BB + SQRT(BB*BB + 4.d0*A7)) ! This is correct also CCC AHI =2.0*A7/(BB+SQRT(BB*BB + 4.d0*A7)) ! Avoid overflow when HI->0 DENM = BB+SQRT(BB*BB + 4.d0*A7) IF (DENM.LE.TINY) THEN ! Avoid overflow when HI->0 ABB = ABS(BB) DENM = (BB+ABB) + 2.0*A7/ABB ! Taylor expansion of SQRT ENDIF AHI = 2.0*A7/DENM C C *** SPECIATION & WATER CONTENT *************************************** C MOLAL (1) = AHI ! HI MOLAL (3) = PSI1 + PSI4 + 2.D0*PSI2 ! NH4I MOLAL (5) = PSI2 ! SO4I MOLAL (6) = ZERO ! HSO4I MOLAL (7) = PSI3 + PSI1 ! NO3I CNH42S4 = CHI2 - PSI2 ! Solid (NH4)2SO4 CNH4NO3 = ZERO ! Solid NH4NO3 GHNO3 = CHI3 - PSI3 ! Gas HNO3 GNH3 = CHI4 - PSI4 ! Gas NH3 CALL CALCMR ! Water content C C *** CALCULATE ACTIVITIES OR TERMINATE INTERNAL LOOP ***************** C IF (FRST.AND.CALAOU .OR. .NOT.FRST.AND.CALAIN) THEN CALL CALCACT ELSE GOTO 20 ENDIF 10 CONTINUE C C *** CALCULATE OBJECTIVE FUNCTION ************************************ C 20 CONTINUE CCC FUNCD3= NH4I/HI/MAX(GNH3,TINY)/A4 - ONE FUNCD3= MOLAL(3)/MOLAL(1)/MAX(GNH3,TINY)/A4 - ONE RETURN C C *** END OF FUNCTION FUNCD3 ******************************************** C END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE CALCD2 C *** CASE D2 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SULRAT > 2.0) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : (NH4)2SO4 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCD2 INCLUDE 'isrpia.inc' C COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** FIND DRY COMPOSITION ********************************************** C CALL CALCD1A C C *** SETUP PARAMETERS ************************************************ C CHI1 = CNH4NO3 ! Save from CALCD1 run CHI2 = CNH42S4 CHI3 = GHNO3 CHI4 = GNH3 C PSI1 = CNH4NO3 ! ASSIGN INITIAL PSI's PSI2 = CNH42S4 PSI3 = ZERO PSI4 = ZERO C MOLAL(5) = PSI2 ! Include initial amount in water calc MOLAL(6) = ZERO MOLAL(3) = PSI1 MOLAL(7) = PSI1 CALL CALCMR ! Initial water C CALAOU = .TRUE. ! Outer loop activity calculation flag PSI4LO = TINY ! Low limit PSI4HI = CHI4 ! High limit C C *** INITIAL VALUES FOR BISECTION ************************************ C 60 X1 = PSI4LO CALL RSTGAMP ! reinitialize activity coefficients (slc.1.2012) Y1 = FUNCD2 (X1) IF (ABS(Y1).LE.EPS) RETURN YLO= Y1 ! Save Y-value at HI position C C *** ROOT TRACKING ; FOR THE RANGE OF HI AND LO ********************** C DX = (PSI4HI-PSI4LO)/FLOAT(NDIV) DO 10 I=1,NDIV X2 = X1+DX CALL RSTGAMP ! reinitialize activity coefficients (slc.1.2012) Y2 = FUNCD2 (X2) IF (((Y1) .LT. ZERO) .AND. ((Y2) .GT. ZERO)) GOTO 20 ! (Y1*Y2.LT.ZERO) slc.1.2012 C IF (SIGN(1.d0,Y1)*SIGN(1.d0,Y2).LT.ZERO) THEN CC CC This is done, in case if Y(PSI4LO)>0, but Y(PSI4LO+DX) < 0 (i.e.undersat) CC C IF (Y1 .LE. Y2) GOTO 20 ! (Y1*Y2.LT.ZERO) C ENDIF X1 = X2 Y1 = Y2 10 CONTINUE C C *** NO SUBDIVISION WITH SOLUTION FOUND C YHI= Y1 ! Save Y-value at Hi position IF (ABS(Y2) .LT. EPS) THEN ! X2 IS A SOLUTION RETURN C C *** { YLO, YHI } < 0.0 THE SOLUTION IS ALWAYS UNDERSATURATED WITH NH3 C Physically I dont know when this might happen, but I have put this C branch in for completeness. I assume there is no solution; all NO3 goes to the C gas phase. C ELSE IF (YLO.LT.ZERO .AND. YHI.LT.ZERO) THEN P4 = TINY ! PSI4LO ! CHI4 CALL RSTGAMP ! reinitialize activity coefficients (slc.1.2012) YY = FUNCD2(P4) GOTO 50 C C *** { YLO, YHI } > 0.0 THE SOLUTION IS ALWAYS SUPERSATURATED WITH NH3 C This happens when Sul.Rat. = 2.0, so some NH4+ from sulfate evaporates C and goes to the gas phase ; so I redefine the LO and HI limits of PSI4 C and proceed again with root tracking. C ELSE IF (YLO.GT.ZERO .AND. YHI.GT.ZERO) THEN PSI4HI = PSI4LO PSI4LO = PSI4LO - 0.1*(PSI1+PSI2) ! No solution; some NH3 evaporates IF (PSI4LO.LT.-(PSI1+PSI2)) THEN CALL PUSHERR (0001, 'CALCD2') ! WARNING ERROR: NO SOLUTION RETURN ELSE MOLAL(5) = PSI2 ! Include initial amount in water calc MOLAL(6) = ZERO MOLAL(3) = PSI1 MOLAL(7) = PSI1 CALL CALCMR ! Initial water GOTO 60 ! Redo root tracking ENDIF ENDIF C C *** PERFORM BISECTION *********************************************** C 20 DO 30 I=1,MAXIT X3 = 0.5*(X1+X2) CALL RSTGAMP ! reinitialize activity coefficients (slc.1.2012) Y3 = FUNCD2 (X3) IF (SIGN(1.d0,Y1)*SIGN(1.d0,Y3) .LE. ZERO) THEN ! (Y1*Y3 .LE. ZERO) Y2 = Y3 X2 = X3 ELSE Y1 = Y3 X1 = X3 ENDIF IF (ABS(X2-X1) .LE. EPS*ABS(X1)) GOTO 40 30 CONTINUE CALL PUSHERR (0002, 'CALCD2') ! WARNING ERROR: NO CONVERGENCE C C *** CONVERGED ; RETURN ********************************************** C 40 X3 = MIN(X1,X2) ! 0.5*(X1+X2) ! Get "low" side, it's acidic soln. CALL RSTGAMP ! reinitialize activity coefficients (slc.1.2012) Y3 = FUNCD2 (X3) C C *** CALCULATE HSO4 SPECIATION AND RETURN ******************************* C 50 CONTINUE IF (MOLAL(1).GT.TINY) THEN CALL CALCHS4 (MOLAL(1), MOLAL(5), ZERO, DELTA) MOLAL(1) = MOLAL(1) - DELTA ! H+ EFFECT MOLAL(5) = MOLAL(5) - DELTA ! SO4 EFFECT MOLAL(6) = DELTA ! HSO4 EFFECT ENDIF RETURN C C *** END OF SUBROUTINE CALCD2 ****************************************** C END C======================================================================= C C *** ISORROPIA CODE C *** FUNCTION FUNCD2 C *** CASE D2 C FUNCTION THAT SOLVES THE SYSTEM OF EQUATIONS FOR CASE D2 ; C AND RETURNS THE VALUE OF THE ZEROED FUNCTION IN FUNCD2. C C======================================================================= C DOUBLE PRECISION FUNCTION FUNCD2 (P4) INCLUDE 'isrpia.inc' C COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** SETUP PARAMETERS ************************************************ C CALL RSTGAM ! Reset activity coefficients to 0.1 FRST = .TRUE. CALAIN = .TRUE. PSI4 = P4 PSI2 = CHI2 C C *** SOLVE EQUATIONS ; WITH ITERATIONS FOR ACTIVITY COEF. ************ C DO 10 I=1,NSWEEP A2 = XK7*(WATER/GAMA(4))**3.0 A3 = XK4*R*TEMP*(WATER/GAMA(10))**2.0 A4 = (XK2/XKW)*R*TEMP*(GAMA(10)/GAMA(5))**2.0 A7 = XKW *RH*WATER*WATER C IF (CHI2.GT.TINY .AND. WATER.GT.TINY) THEN PSI14 = PSI1+PSI4 CALL POLY3 (PSI14,0.25*PSI14**2.,-A2/4.D0, PSI2, ISLV) ! PSI2 IF (ISLV.EQ.0) THEN PSI2 = MIN (PSI2, CHI2) ELSE PSI2 = TINY ENDIF ENDIF C PSI3 = A3*A4*CHI3*(CHI4-PSI4) - PSI1*(2.D0*PSI2+PSI1+PSI4) PSI3 = PSI3/(A3*A4*(CHI4-PSI4) + 2.D0*PSI2+PSI1+PSI4) ccc PSI3 = MIN(MAX(PSI3, ZERO), CHI3) C BB = PSI4-PSI3 ! (BB > 0, acidic solution, <0 alkaline) C C Do not change computation scheme for H+, all others did not work well. C DENM = BB+SQRT(BB*BB + 4.d0*A7) IF (DENM.LE.TINY) THEN ! Avoid overflow when HI->0 ABB = ABS(BB) DENM = (BB+ABB) + 2.d0*A7/ABB ! Taylor expansion of SQRT ENDIF AHI = 2.d0*A7/DENM C C *** SPECIATION & WATER CONTENT *************************************** C MOLAL (1) = AHI ! HI MOLAL (3) = PSI1 + PSI4 + 2.D0*PSI2 ! NH4 MOLAL (5) = PSI2 ! SO4 MOLAL (6) = ZERO ! HSO4 MOLAL (7) = PSI3 + PSI1 ! NO3 CNH42S4 = CHI2 - PSI2 ! Solid (NH4)2SO4 CNH4NO3 = ZERO ! Solid NH4NO3 GHNO3 = CHI3 - PSI3 ! Gas HNO3 GNH3 = CHI4 - PSI4 ! Gas NH3 CALL CALCMR ! Water content C C *** CALCULATE ACTIVITIES OR TERMINATE INTERNAL LOOP ***************** C IF (FRST.AND.CALAOU .OR. .NOT.FRST.AND.CALAIN) THEN CALL CALCACT ELSE GOTO 20 ENDIF 10 CONTINUE C C *** CALCULATE OBJECTIVE FUNCTION ************************************ C 20 CONTINUE CCC FUNCD2= NH4I/HI/MAX(GNH3,TINY)/A4 - ONE FUNCD2= MOLAL(3)/MOLAL(1)/MAX(GNH3,TINY)/A4 - ONE RETURN C C *** END OF FUNCTION FUNCD2 ******************************************** C END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE CALCD1 C *** CASE D1 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SULRAT > 2.0) C 2. SOLID AEROSOL ONLY C 3. SOLIDS POSSIBLE : (NH4)2SO4, NH4NO3 C C THERE ARE TWO REGIMES DEFINED BY RELATIVE HUMIDITY: C 1. RH < MDRH ; ONLY SOLID PHASE POSSIBLE (SUBROUTINE CALCD1A) C 2. RH >= MDRH ; LIQUID PHASE POSSIBLE (MDRH REGION) C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCD1 INCLUDE 'isrpia.inc' EXTERNAL CALCD1A, CALCD2 C C *** REGIME DEPENDS UPON THE AMBIENT RELATIVE HUMIDITY ***************** C IF (RH.LT.DRMASAN) THEN SCASE = 'D1 ; SUBCASE 1' ! SOLID PHASE ONLY POSSIBLE CALL CALCD1A SCASE = 'D1 ; SUBCASE 1' ELSE SCASE = 'D1 ; SUBCASE 2' ! LIQUID & SOLID PHASE POSSIBLE CALL CALCMDRH (RH, DRMASAN, DRNH4NO3, CALCD1A, CALCD2) SCASE = 'D1 ; SUBCASE 2' ENDIF C RETURN C C *** END OF SUBROUTINE CALCD1 ****************************************** C END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE CALCD1A C *** CASE D1 ; SUBCASE 1 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SULRAT > 2.0) C 2. SOLID AEROSOL ONLY C 3. SOLIDS POSSIBLE : (NH4)2SO4, NH4NO3 C C THE SOLID (NH4)2SO4 IS CALCULATED FROM THE SULFATES, WHILE NH4NO3 C IS CALCULATED FROM NH3-HNO3 EQUILIBRIUM. 'ZE' IS THE AMOUNT OF C NH4NO3 THAT VOLATIZES WHEN ALL POSSILBE NH4NO3 IS INITIALLY IN C THE SOLID PHASE. C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCD1A INCLUDE 'isrpia.inc' C C *** SETUP PARAMETERS ************************************************ C PARM = XK10/(R*TEMP)/(R*TEMP) C C *** CALCULATE NH4NO3 THAT VOLATIZES ********************************* C CNH42S4 = W(2) X = MAX(ZERO, MIN(W(3)-2.0*CNH42S4, W(4))) ! MAX NH4NO3 PS = MAX(W(3) - X - 2.0*CNH42S4, ZERO) OM = MAX(W(4) - X, ZERO) C OMPS = OM+PS DIAK = SQRT(OMPS*OMPS + 4.0*PARM) ! DIAKRINOUSA ZE = MIN(X, 0.5*(-OMPS + DIAK)) ! THETIKI RIZA C C *** SPECIATION ******************************************************* C CNH4NO3 = X - ZE ! Solid NH4NO3 GNH3 = PS + ZE ! Gas NH3 GHNO3 = OM + ZE ! Gas HNO3 C RETURN C C *** END OF SUBROUTINE CALCD1A ***************************************** C END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE CALCG5 C *** CASE G5 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SULRAT > 2.0) ; SODIUM POOR (SODRAT < 2.0) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : (NH4)2SO4, NH4CL, NA2SO4 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCG5 INCLUDE 'isrpia.inc' C DOUBLE PRECISION LAMDA COMMON /CASEG/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, LAMDA, & PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, PSI7, & A1, A2, A3, A4, A5, A6, A7 C C *** SETUP PARAMETERS ************************************************ C CALAOU = .TRUE. CHI1 = 0.5*W(1) CHI2 = MAX (W(2)-CHI1, ZERO) CHI3 = ZERO CHI4 = MAX (W(3)-2.D0*CHI2, ZERO) CHI5 = W(4) CHI6 = W(5) C PSI1 = CHI1 PSI2 = CHI2 PSI6LO = TINY PSI6HI = CHI6-TINY ! MIN(CHI6-TINY, CHI4) C WATER = CHI2/M0(4) + CHI1/M0(2) C C *** INITIAL VALUES FOR BISECTION ************************************ C X1 = PSI6LO Y1 = FUNCG5A (X1) IF (CHI6.LE.TINY) GOTO 50 ccc IF (ABS(Y1).LE.EPS .OR. CHI6.LE.TINY) GOTO 50 ccc IF (WATER .LE. TINY) RETURN ! No water C C *** ROOT TRACKING ; FOR THE RANGE OF HI AND LO ********************** C DX = (PSI6HI-PSI6LO)/FLOAT(NDIV) DO 10 I=1,NDIV X2 = X1+DX Y2 = FUNCG5A (X2) IF (SIGN(1.d0,Y1)*SIGN(1.d0,Y2).LT.ZERO) GOTO 20 ! (Y1*Y2.LT.ZERO) X1 = X2 Y1 = Y2 10 CONTINUE C C *** NO SUBDIVISION WITH SOLUTION; IF ABS(Y2) 2.0) ; SODIUM POOR (SODRAT < 2.0) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : (NH4)2SO4, NH4CL, NA2SO4 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C DOUBLE PRECISION FUNCTION FUNCG5A (X) INCLUDE 'isrpia.inc' C DOUBLE PRECISION LAMDA COMMON /CASEG/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, LAMDA, & PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, PSI7, & A1, A2, A3, A4, A5, A6, A7 C C *** SETUP PARAMETERS ************************************************ C PSI6 = X FRST = .TRUE. CALAIN = .TRUE. C C *** SOLVE EQUATIONS ; WITH ITERATIONS FOR ACTIVITY COEF. ************ C DO 10 I=1,NSWEEP C A1 = XK5 *(WATER/GAMA(2))**3.0 A2 = XK7 *(WATER/GAMA(4))**3.0 A4 = (XK2/XKW)*R*TEMP*(GAMA(10)/GAMA(5))**2.0 A5 = XK4 *R*TEMP*(WATER/GAMA(10))**2.0 A6 = XK3 *R*TEMP*(WATER/GAMA(11))**2.0 AKK = A4*A6 C C CALCULATE DISSOCIATION QUANTITIES C IF (CHI5.GE.TINY) THEN PSI5 = PSI6*CHI5/(A6/A5*(CHI6-PSI6) + PSI6) ELSE PSI5 = TINY ENDIF C CCC IF(CHI4.GT.TINY) THEN IF(W(2).GT.TINY) THEN ! Accounts for NH3 evaporation BB =-(CHI4 + PSI6 + PSI5 + 1.d0/A4) CC = CHI4*(PSI5+PSI6) - 2.d0*PSI2/A4 DD = MAX(BB*BB-4.d0*CC,ZERO) ! Patch proposed by Uma Shankar, 19/11/01 PSI4 =0.5d0*(-BB - SQRT(DD)) ELSE PSI4 = TINY ENDIF C C *** CALCULATE SPECIATION ******************************************** C MOLAL (2) = 2.0D0*PSI1 ! NAI MOLAL (3) = 2.0*PSI2 + PSI4 ! NH4I MOLAL (4) = PSI6 ! CLI MOLAL (5) = PSI2 + PSI1 ! SO4I MOLAL (6) = ZERO MOLAL (7) = PSI5 ! NO3I C SMIN = 2.d0*MOLAL(5)+MOLAL(7)+MOLAL(4)-MOLAL(2)-MOLAL(3) CALL CALCPH (SMIN, HI, OHI) MOLAL (1) = HI C GNH3 = MAX(CHI4 - PSI4, TINY) ! Gas NH3 GHNO3 = MAX(CHI5 - PSI5, TINY) ! Gas HNO3 GHCL = MAX(CHI6 - PSI6, TINY) ! Gas HCl C CNH42S4 = ZERO ! Solid (NH4)2SO4 CNH4NO3 = ZERO ! Solid NH4NO3 CNH4CL = ZERO ! Solid NH4Cl C CALL CALCMR ! Water content C C *** CALCULATE ACTIVITIES OR TERMINATE INTERNAL LOOP ***************** C IF (FRST.AND.CALAOU .OR. .NOT.FRST.AND.CALAIN) THEN CALL CALCACT ELSE GOTO 20 ENDIF 10 CONTINUE C C *** CALCULATE FUNCTION VALUE FOR OUTER LOOP *************************** C 20 FUNCG5A = MOLAL(1)*MOLAL(4)/GHCL/A6 - ONE CCC FUNCG5A = MOLAL(3)*MOLAL(4)/GHCL/GNH3/A6/A4 - ONE C RETURN C C *** END OF FUNCTION FUNCG5A ******************************************* C END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE CALCG4 C *** CASE G4 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SULRAT > 2.0) ; SODIUM POOR (SODRAT < 2.0) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : (NH4)2SO4, NH4CL, NA2SO4 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCG4 INCLUDE 'isrpia.inc' C DOUBLE PRECISION LAMDA COMMON /CASEG/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, LAMDA, & PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, PSI7, & A1, A2, A3, A4, A5, A6, A7 C C *** SETUP PARAMETERS ************************************************ C CALAOU = .TRUE. CHI1 = 0.5*W(1) CHI2 = MAX (W(2)-CHI1, ZERO) CHI3 = ZERO CHI4 = MAX (W(3)-2.D0*CHI2, ZERO) CHI5 = W(4) CHI6 = W(5) C PSI2 = CHI2 PSI6LO = TINY PSI6HI = CHI6-TINY ! MIN(CHI6-TINY, CHI4) C WATER = CHI2/M0(4) + CHI1/M0(2) C C *** INITIAL VALUES FOR BISECTION ************************************ C X1 = PSI6LO Y1 = FUNCG4A (X1) IF (CHI6.LE.TINY) GOTO 50 CCC IF (ABS(Y1).LE.EPS .OR. CHI6.LE.TINY .OR. WATER .LE. TINY) GOTO 50 CCC IF (WATER .LE. TINY) RETURN ! No water C C *** ROOT TRACKING ; FOR THE RANGE OF HI AND LO ********************** C DX = (PSI6HI-PSI6LO)/FLOAT(NDIV) DO 10 I=1,NDIV X2 = X1+DX Y2 = FUNCG4A (X2) IF (SIGN(1.d0,Y1)*SIGN(1.d0,Y2).LT.ZERO) GOTO 20 ! (Y1*Y2.LT.ZERO) X1 = X2 Y1 = Y2 10 CONTINUE C C *** NO SUBDIVISION WITH SOLUTION; IF ABS(Y2) 2.0) ; SODIUM POOR (SODRAT < 2.0) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : (NH4)2SO4, NH4CL, NA2SO4 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C DOUBLE PRECISION FUNCTION FUNCG4A (X) INCLUDE 'isrpia.inc' C DOUBLE PRECISION LAMDA, NAI, NH4I, NO3I COMMON /CASEG/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, LAMDA, & PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, PSI7, & A1, A2, A3, A4, A5, A6, A7 C C *** SETUP PARAMETERS ************************************************ C PSI6 = X PSI1 = CHI1 FRST = .TRUE. CALAIN = .TRUE. C C *** SOLVE EQUATIONS ; WITH ITERATIONS FOR ACTIVITY COEF. ************ C DO 10 I=1,NSWEEP C A1 = XK5 *(WATER/GAMA(2))**3.0 A2 = XK7 *(WATER/GAMA(4))**3.0 A4 = (XK2/XKW)*R*TEMP*(GAMA(10)/GAMA(5))**2.0 A5 = XK4 *R*TEMP*(WATER/GAMA(10))**2.0 A6 = XK3 *R*TEMP*(WATER/GAMA(11))**2.0 C C CALCULATE DISSOCIATION QUANTITIES C IF (CHI5.GE.TINY) THEN PSI5 = PSI6*CHI5/(A6/A5*(CHI6-PSI6) + PSI6) ELSE PSI5 = TINY ENDIF C CCC IF(CHI4.GT.TINY) THEN IF(W(2).GT.TINY) THEN ! Accounts for NH3 evaporation BB =-(CHI4 + PSI6 + PSI5 + 1.d0/A4) CC = CHI4*(PSI5+PSI6) - 2.d0*PSI2/A4 DD = MAX(BB*BB-4.d0*CC,ZERO) ! Patch proposed by Uma shankar, 19/11/2001 PSI4 =0.5d0*(-BB - SQRT(DD)) ELSE PSI4 = TINY ENDIF C C CALCULATE CONCENTRATIONS C NH4I = 2.0*PSI2 + PSI4 CLI = PSI6 SO4I = PSI2 + PSI1 NO3I = PSI5 NAI = 2.0D0*PSI1 C CALL CALCPH(2.d0*SO4I+NO3I+CLI-NAI-NH4I, HI, OHI) C C *** Na2SO4 DISSOLUTION C IF (CHI1.GT.TINY .AND. WATER.GT.TINY) THEN ! PSI1 CALL POLY3 (PSI2, ZERO, -A1/4.D0, PSI1, ISLV) IF (ISLV.EQ.0) THEN PSI1 = MIN (PSI1, CHI1) ELSE PSI1 = ZERO ENDIF ELSE PSI1 = ZERO ENDIF C C *** SAVE CONCENTRATIONS IN MOLAL ARRAY ****************************** C MOLAL (1) = HI MOLAL (2) = NAI MOLAL (3) = NH4I MOLAL (4) = CLI MOLAL (5) = SO4I MOLAL (6) = ZERO MOLAL (7) = NO3I C C *** CALCULATE GAS / SOLID SPECIES (LIQUID IN MOLAL ALREADY) ********* C GNH3 = MAX(CHI4 - PSI4, TINY) GHNO3 = MAX(CHI5 - PSI5, TINY) GHCL = MAX(CHI6 - PSI6, TINY) C CNH42S4 = ZERO CNH4NO3 = ZERO CNH4CL = ZERO CNA2SO4 = MAX(CHI1-PSI1,ZERO) C C *** CALCULATE MOLALR ARRAY, WATER AND ACTIVITIES ********************** C CALL CALCMR C C *** CALCULATE ACTIVITIES OR TERMINATE INTERNAL LOOP ***************** C IF (FRST.AND.CALAOU .OR. .NOT.FRST.AND.CALAIN) THEN CALL CALCACT ELSE GOTO 20 ENDIF 10 CONTINUE C C *** CALCULATE FUNCTION VALUE FOR OUTER LOOP *************************** C 20 FUNCG4A = MOLAL(1)*MOLAL(4)/GHCL/A6 - ONE CCC FUNCG4A = MOLAL(3)*MOLAL(4)/GHCL/GNH3/A6/A4 - ONE C RETURN C C *** END OF FUNCTION FUNCG4A ******************************************* C END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE CALCG3 C *** CASE G3 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SULRAT > 2.0) ; SODIUM POOR (SODRAT < 2.0) C 2. LIQUID & SOLID PHASE ARE BOTH POSSIBLE C 3. SOLIDS POSSIBLE : (NH4)2SO4, NH4CL, NA2SO4 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCG3 INCLUDE 'isrpia.inc' EXTERNAL CALCG1A, CALCG4 C C *** REGIME DEPENDS ON THE EXISTANCE OF WATER AND OF THE RH ************ C IF (W(4).GT.TINY .AND. W(5).GT.TINY) THEN ! NO3,CL EXIST, WATER POSSIBLE SCASE = 'G3 ; SUBCASE 1' CALL CALCG3A SCASE = 'G3 ; SUBCASE 1' ELSE ! NO3, CL NON EXISTANT SCASE = 'G1 ; SUBCASE 1' CALL CALCG1A SCASE = 'G1 ; SUBCASE 1' ENDIF C IF (WATER.LE.TINY) THEN IF (RH.LT.DRMG3) THEN ! ONLY SOLIDS WATER = TINY DO 10 I=1,NIONS MOLAL(I) = ZERO 10 CONTINUE CALL CALCG1A SCASE = 'G3 ; SUBCASE 2' RETURN ELSE SCASE = 'G3 ; SUBCASE 3' ! MDRH REGION (NA2SO4, NH42S4) CALL CALCMDRH (RH, DRMG3, DRNH42S4, CALCG1A, CALCG4) SCASE = 'G3 ; SUBCASE 3' ENDIF ENDIF C RETURN C C *** END OF SUBROUTINE CALCG3 ****************************************** C END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE CALCG3A C *** CASE G3 ; SUBCASE 1 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SULRAT > 2.0) ; SODIUM POOR (SODRAT < 2.0) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : (NH4)2SO4, NH4CL, NA2SO4 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCG3A INCLUDE 'isrpia.inc' C DOUBLE PRECISION LAMDA COMMON /CASEG/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, LAMDA, & PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, PSI7, & A1, A2, A3, A4, A5, A6, A7 C C *** SETUP PARAMETERS ************************************************ C CALAOU = .TRUE. CHI1 = 0.5*W(1) CHI2 = MAX (W(2)-CHI1, ZERO) CHI3 = ZERO CHI4 = MAX (W(3)-2.D0*CHI2, ZERO) CHI5 = W(4) CHI6 = W(5) C PSI6LO = TINY PSI6HI = CHI6-TINY ! MIN(CHI6-TINY, CHI4) C WATER = TINY C C *** INITIAL VALUES FOR BISECTION ************************************ C X1 = PSI6LO Y1 = FUNCG3A (X1) IF (CHI6.LE.TINY) GOTO 50 CCC IF (ABS(Y1).LE.EPS .OR. CHI6.LE.TINY .OR. WATER .LE. TINY) GOTO 50 CCC IF (WATER .LE. TINY) RETURN ! No water C C *** ROOT TRACKING ; FOR THE RANGE OF HI AND LO ********************** C DX = (PSI6HI-PSI6LO)/FLOAT(NDIV) DO 10 I=1,NDIV X2 = X1+DX Y2 = FUNCG3A (X2) C IF (SIGN(1.d0,Y1)*SIGN(1.d0,Y2).LT.ZERO) GOTO 20 ! (Y1*Y2.LT.ZERO) X1 = X2 Y1 = Y2 10 CONTINUE C C *** NO SUBDIVISION WITH SOLUTION; IF ABS(Y2) 2.0) ; SODIUM POOR (SODRAT < 2.0) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : (NH4)2SO4, NH4CL, NA2SO4 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C DOUBLE PRECISION FUNCTION FUNCG3A (X) INCLUDE 'isrpia.inc' C DOUBLE PRECISION LAMDA COMMON /CASEG/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, LAMDA, & PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, PSI7, & A1, A2, A3, A4, A5, A6, A7 C C *** SETUP PARAMETERS ************************************************ C PSI6 = X PSI2 = CHI2 FRST = .TRUE. CALAIN = .TRUE. C C *** SOLVE EQUATIONS ; WITH ITERATIONS FOR ACTIVITY COEF. ************ C DO 10 I=1,NSWEEP C A1 = XK5 *(WATER/GAMA(2))**3.0 A2 = XK7 *(WATER/GAMA(4))**3.0 A4 = (XK2/XKW)*R*TEMP*(GAMA(10)/GAMA(5))**2.0 A5 = XK4 *R*TEMP*(WATER/GAMA(10))**2.0 A6 = XK3 *R*TEMP*(WATER/GAMA(11))**2.0 C C CALCULATE DISSOCIATION QUANTITIES C IF (CHI5.GE.TINY) THEN PSI5 = PSI6*CHI5/(A6/A5*(CHI6-PSI6) + PSI6) ELSE PSI5 = TINY ENDIF C CCC IF(CHI4.GT.TINY) THEN IF(W(2).GT.TINY) THEN ! Accounts for NH3 evaporation BB =-(CHI4 + PSI6 + PSI5 + 1.d0/A4) CC = CHI4*(PSI5+PSI6) - 2.d0*PSI2/A4 DD = MAX(BB*BB-4.d0*CC,ZERO) ! Patch proposed by Uma Shankar, 19/11/01 PSI4 =0.5d0*(-BB - SQRT(DD)) ELSE PSI4 = TINY ENDIF C IF (CHI2.GT.TINY .AND. WATER.GT.TINY) THEN CALL POLY3 (PSI4, PSI4*PSI4/4.D0, -A2/4.D0, PSI20, ISLV) IF (ISLV.EQ.0) PSI2 = MIN (PSI20, CHI2) ENDIF C C *** CALCULATE GAS / SOLID SPECIES (LIQUID IN MOLAL ALREADY) ********* C MOLAL (2) = ZERO ! Na MOLAL (3) = 2.0*PSI2 + PSI4 ! NH4I MOLAL (4) = PSI6 ! CLI MOLAL (5) = PSI2 ! SO4I MOLAL (6) = ZERO ! HSO4 MOLAL (7) = PSI5 ! NO3I C SMIN = 2.d0*MOLAL(5)+MOLAL(7)+MOLAL(4)-MOLAL(2)-MOLAL(3) CALL CALCPH (SMIN, HI, OHI) MOLAL (1) = HI c GNH3 = MAX(CHI4 - PSI4, TINY) ! Gas NH3 GHNO3 = MAX(CHI5 - PSI5, TINY) ! Gas HNO3 GHCL = MAX(CHI6 - PSI6, TINY) ! Gas HCl C CNH42S4 = CHI2 - PSI2 ! Solid (NH4)2SO4 CNH4NO3 = ZERO ! Solid NH4NO3 CNH4CL = ZERO ! Solid NH4Cl C CALL CALCMR ! Water content C C *** CALCULATE ACTIVITIES OR TERMINATE INTERNAL LOOP ***************** C IF (FRST.AND.CALAOU .OR. .NOT.FRST.AND.CALAIN) THEN CALL CALCACT ELSE GOTO 20 ENDIF 10 CONTINUE C C *** CALCULATE FUNCTION VALUE FOR OUTER LOOP *************************** C 20 FUNCG3A = MOLAL(1)*MOLAL(4)/GHCL/A6 - ONE CCC FUNCG3A = MOLAL(3)*MOLAL(4)/GHCL/GNH3/A6/A4 - ONE C RETURN C C *** END OF FUNCTION FUNCG3A ******************************************* C END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE CALCG2 C *** CASE G2 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SULRAT > 2.0) ; SODIUM POOR (SODRAT < 2.0) C 2. LIQUID & SOLID PHASE ARE BOTH POSSIBLE C 3. SOLIDS POSSIBLE : (NH4)2SO4, NH4CL, NA2SO4 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCG2 INCLUDE 'isrpia.inc' EXTERNAL CALCG1A, CALCG3A, CALCG4 C C *** REGIME DEPENDS ON THE EXISTANCE OF NITRATES *********************** C IF (W(4).GT.TINY) THEN ! NO3 EXISTS, WATER POSSIBLE SCASE = 'G2 ; SUBCASE 1' CALL CALCG2A SCASE = 'G2 ; SUBCASE 1' ELSE ! NO3 NON EXISTANT, WATER NOT POSSIBLE SCASE = 'G1 ; SUBCASE 1' CALL CALCG1A SCASE = 'G1 ; SUBCASE 1' ENDIF C C *** REGIME DEPENDS ON THE EXISTANCE OF WATER AND OF THE RH ************ C IF (WATER.LE.TINY) THEN IF (RH.LT.DRMG2) THEN ! ONLY SOLIDS WATER = TINY DO 10 I=1,NIONS MOLAL(I) = ZERO 10 CONTINUE CALL CALCG1A SCASE = 'G2 ; SUBCASE 2' ELSE IF (W(5).GT. TINY) THEN SCASE = 'G2 ; SUBCASE 3' ! MDRH (NH4CL, NA2SO4, NH42S4) CALL CALCMDRH (RH, DRMG2, DRNH4CL, CALCG1A, CALCG3A) SCASE = 'G2 ; SUBCASE 3' ENDIF IF (WATER.LE.TINY .AND. RH.GE.DRMG3) THEN SCASE = 'G2 ; SUBCASE 4' ! MDRH (NA2SO4, NH42S4) CALL CALCMDRH (RH, DRMG3, DRNH42S4, CALCG1A, CALCG4) SCASE = 'G2 ; SUBCASE 4' ELSE WATER = TINY DO 20 I=1,NIONS MOLAL(I) = ZERO 20 CONTINUE CALL CALCG1A SCASE = 'G2 ; SUBCASE 2' ENDIF ENDIF ENDIF C RETURN C C *** END OF SUBROUTINE CALCG2 ****************************************** C END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE CALCG2A C *** CASE G2 ; SUBCASE 1 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SULRAT > 2.0) ; SODIUM POOR (SODRAT < 2.0) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : (NH4)2SO4, NH4CL, NA2SO4 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCG2A INCLUDE 'isrpia.inc' C DOUBLE PRECISION LAMDA COMMON /CASEG/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, LAMDA, & PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, PSI7, & A1, A2, A3, A4, A5, A6, A7 C C *** SETUP PARAMETERS ************************************************ C CALAOU = .TRUE. CHI1 = 0.5*W(1) CHI2 = MAX (W(2)-CHI1, ZERO) CHI3 = ZERO CHI4 = MAX (W(3)-2.D0*CHI2, ZERO) CHI5 = W(4) CHI6 = W(5) C PSI6LO = TINY PSI6HI = CHI6-TINY C WATER = TINY C C *** INITIAL VALUES FOR BISECTION ************************************ C X1 = PSI6LO Y1 = FUNCG2A (X1) IF (CHI6.LE.TINY) GOTO 50 CCC IF (ABS(Y1).LE.EPS .OR. CHI6.LE.TINY) GOTO 50 CCC IF (WATER .LE. TINY) GOTO 50 ! No water C C *** ROOT TRACKING ; FOR THE RANGE OF HI AND LO ********************** C DX = (PSI6HI-PSI6LO)/FLOAT(NDIV) DO 10 I=1,NDIV X2 = X1+DX Y2 = FUNCG2A (X2) IF (SIGN(1.d0,Y1)*SIGN(1.d0,Y2).LT.ZERO) GOTO 20 ! (Y1*Y2.LT.ZERO) X1 = X2 Y1 = Y2 10 CONTINUE C C *** NO SUBDIVISION WITH SOLUTION; IF ABS(Y2) 2.0) ; SODIUM POOR (SODRAT < 2.0) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : (NH4)2SO4, NH4CL, NA2SO4 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C DOUBLE PRECISION FUNCTION FUNCG2A (X) INCLUDE 'isrpia.inc' C DOUBLE PRECISION LAMDA COMMON /CASEG/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, LAMDA, & PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, PSI7, & A1, A2, A3, A4, A5, A6, A7 C C *** SETUP PARAMETERS ************************************************ C PSI6 = X PSI2 = CHI2 PSI3 = ZERO FRST = .TRUE. CALAIN = .TRUE. C C *** SOLVE EQUATIONS ; WITH ITERATIONS FOR ACTIVITY COEF. ************ C DO 10 I=1,NSWEEP C A1 = XK5 *(WATER/GAMA(2))**3.0 A2 = XK7 *(WATER/GAMA(4))**3.0 A4 = (XK2/XKW)*R*TEMP*(GAMA(10)/GAMA(5))**2.0 A5 = XK4 *R*TEMP*(WATER/GAMA(10))**2.0 A6 = XK3 *R*TEMP*(WATER/GAMA(11))**2.0 C DENO = MAX(CHI6-PSI6-PSI3, ZERO) PSI5 = CHI5/((A6/A5)*(DENO/PSI6) + ONE) C PSI4 = MIN(PSI5+PSI6,CHI4) C IF (CHI2.GT.TINY .AND. WATER.GT.TINY) THEN CALL POLY3 (PSI4, PSI4*PSI4/4.D0, -A2/4.D0, PSI20, ISLV) IF (ISLV.EQ.0) PSI2 = MIN (PSI20, CHI2) ENDIF C C *** SAVE CONCENTRATIONS IN MOLAL ARRAY ****************************** C MOLAL (2) = ZERO ! NA MOLAL (3) = 2.0*PSI2 + PSI4 ! NH4I MOLAL (4) = PSI6 ! CLI MOLAL (5) = PSI2 ! SO4I MOLAL (6) = ZERO ! HSO4 MOLAL (7) = PSI5 ! NO3I C CCC MOLAL (1) = MAX(CHI5 - PSI5, TINY)*A5/PSI5 ! HI SMIN = 2.d0*MOLAL(5)+MOLAL(7)+MOLAL(4)-MOLAL(2)-MOLAL(3) CALL CALCPH (SMIN, HI, OHI) MOLAL (1) = HI C C *** CALCULATE GAS / SOLID SPECIES (LIQUID IN MOLAL ALREADY) ********* C GNH3 = MAX(CHI4 - PSI4, TINY) GHNO3 = MAX(CHI5 - PSI5, TINY) GHCL = MAX(CHI6 - PSI6, TINY) C CNH42S4 = MAX(CHI2 - PSI2, ZERO) CNH4NO3 = ZERO C C *** NH4Cl(s) calculations C A3 = XK6 /(R*TEMP*R*TEMP) IF (GNH3*GHCL.GT.A3) THEN DELT = MIN(GNH3, GHCL) BB = -(GNH3+GHCL) CC = GNH3*GHCL-A3 DD = BB*BB - 4.D0*CC PSI31 = 0.5D0*(-BB + SQRT(DD)) PSI32 = 0.5D0*(-BB - SQRT(DD)) IF (DELT-PSI31.GT.ZERO .AND. PSI31.GT.ZERO) THEN PSI3 = PSI31 ELSEIF (DELT-PSI32.GT.ZERO .AND. PSI32.GT.ZERO) THEN PSI3 = PSI32 ELSE PSI3 = ZERO ENDIF ELSE PSI3 = ZERO ENDIF C C *** CALCULATE GAS / SOLID SPECIES (LIQUID IN MOLAL ALREADY) ********* C GNH3 = MAX(GNH3 - PSI3, TINY) GHCL = MAX(GHCL - PSI3, TINY) CNH4CL = PSI3 C C *** CALCULATE MOLALR ARRAY, WATER AND ACTIVITIES ********************** C CALL CALCMR C C *** CALCULATE ACTIVITIES OR TERMINATE INTERNAL LOOP ***************** C IF (FRST.AND.CALAOU .OR. .NOT.FRST.AND.CALAIN) THEN CALL CALCACT ELSE GOTO 20 ENDIF 10 CONTINUE C C *** CALCULATE FUNCTION VALUE FOR OUTER LOOP *************************** C 20 IF (CHI4.LE.TINY) THEN FUNCG2A = MOLAL(1)*MOLAL(4)/GHCL/A6 - ONE ELSE FUNCG2A = MOLAL(3)*MOLAL(4)/GHCL/GNH3/A6/A4 - ONE ENDIF C RETURN C C *** END OF FUNCTION FUNCG2A ******************************************* C END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE CALCG1 C *** CASE G1 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SULRAT > 2.0) ; SODIUM POOR (SODRAT < 2.0) C 2. SOLID AEROSOL ONLY C 3. SOLIDS POSSIBLE : (NH4)2SO4, NH4NO3, NH4CL, NA2SO4 C C THERE ARE TWO POSSIBLE REGIMES HERE, DEPENDING ON RELATIVE HUMIDITY: C 1. WHEN RH >= MDRH ; LIQUID PHASE POSSIBLE (MDRH REGION) C 2. WHEN RH < MDRH ; ONLY SOLID PHASE POSSIBLE (SUBROUTINE CALCG1A) C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCG1 INCLUDE 'isrpia.inc' EXTERNAL CALCG1A, CALCG2A C C *** REGIME DEPENDS UPON THE AMBIENT RELATIVE HUMIDITY ***************** C IF (RH.LT.DRMG1) THEN SCASE = 'G1 ; SUBCASE 1' CALL CALCG1A ! SOLID PHASE ONLY POSSIBLE SCASE = 'G1 ; SUBCASE 1' ELSE SCASE = 'G1 ; SUBCASE 2' ! LIQUID & SOLID PHASE POSSIBLE CALL CALCMDRH (RH, DRMG1, DRNH4NO3, CALCG1A, CALCG2A) SCASE = 'G1 ; SUBCASE 2' ENDIF C RETURN C C *** END OF SUBROUTINE CALCG1 ****************************************** C END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE CALCG1A C *** CASE G1 ; SUBCASE 1 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SULRAT > 2.0) C 2. SOLID AEROSOL ONLY C 3. SOLIDS POSSIBLE : (NH4)2SO4, NH4NO3 C C SOLID (NH4)2SO4 IS CALCULATED FROM THE SULFATES, WHILE NH4NO3 C IS CALCULATED FROM NH3-HNO3 EQUILIBRIUM. 'ZE' IS THE AMOUNT OF C NH4NO3 THAT VOLATIZES WHEN ALL POSSILBE NH4NO3 IS INITIALLY IN C THE SOLID PHASE. C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCG1A INCLUDE 'isrpia.inc' DOUBLE PRECISION LAMDA, LAMDA1, LAMDA2, KAPA, KAPA1, KAPA2 C C *** CALCULATE NON VOLATILE SOLIDS *********************************** C CNA2SO4 = MIN (0.5*W(1), W(2)) FRNA = MAX(W(1) - 2.D0*CNA2SO4, ZERO) SO4FR = MAX(W(2) - CNA2SO4, ZERO) C CNH42S4 = W(2) - CNA2SO4 CNH42S4 = MAX (SO4FR , ZERO) ! CNH42S4 C C *** CALCULATE VOLATILE SPECIES ************************************** C ALF = W(3) - 2.0*CNH42S4 BET = W(5) GAM = W(4) C RTSQ = R*TEMP*R*TEMP A1 = XK6/RTSQ A2 = XK10/RTSQ C THETA1 = GAM - BET*(A2/A1) THETA2 = A2/A1 C C QUADRATIC EQUATION SOLUTION C BB = (THETA1-ALF-BET*(ONE+THETA2))/(ONE+THETA2) CC = (ALF*BET-A1-BET*THETA1)/(ONE+THETA2) DD = BB*BB - 4.0D0*CC IF (DD.LT.ZERO) GOTO 100 ! Solve each reaction seperately C C TWO ROOTS FOR KAPA, CHECK AND SEE IF ANY VALID C SQDD = SQRT(DD) KAPA1 = 0.5D0*(-BB+SQDD) KAPA2 = 0.5D0*(-BB-SQDD) LAMDA1 = THETA1 + THETA2*KAPA1 LAMDA2 = THETA1 + THETA2*KAPA2 C IF (KAPA1.GE.ZERO .AND. LAMDA1.GE.ZERO) THEN IF (ALF-KAPA1-LAMDA1.GE.ZERO .AND. & BET-KAPA1.GE.ZERO .AND. GAM-LAMDA1.GE.ZERO) THEN KAPA = KAPA1 LAMDA= LAMDA1 GOTO 200 ENDIF ENDIF C IF (KAPA2.GE.ZERO .AND. LAMDA2.GE.ZERO) THEN IF (ALF-KAPA2-LAMDA2.GE.ZERO .AND. & BET-KAPA2.GE.ZERO .AND. GAM-LAMDA2.GE.ZERO) THEN KAPA = KAPA2 LAMDA= LAMDA2 GOTO 200 ENDIF ENDIF C C SEPERATE SOLUTION OF NH4CL & NH4NO3 EQUILIBRIA C 100 KAPA = ZERO LAMDA = ZERO DD1 = (ALF+BET)*(ALF+BET) - 4.0D0*(ALF*BET-A1) DD2 = (ALF+GAM)*(ALF+GAM) - 4.0D0*(ALF*GAM-A2) C C NH4CL EQUILIBRIUM C IF (DD1.GE.ZERO) THEN SQDD1 = SQRT(DD1) KAPA1 = 0.5D0*(ALF+BET + SQDD1) KAPA2 = 0.5D0*(ALF+BET - SQDD1) C IF (KAPA1.GE.ZERO .AND. KAPA1.LE.MIN(ALF,BET)) THEN KAPA = KAPA1 ELSE IF (KAPA2.GE.ZERO .AND. KAPA2.LE.MIN(ALF,BET)) THEN KAPA = KAPA2 ELSE KAPA = ZERO ENDIF ENDIF C C NH4NO3 EQUILIBRIUM C IF (DD2.GE.ZERO) THEN SQDD2 = SQRT(DD2) LAMDA1= 0.5D0*(ALF+GAM + SQDD2) LAMDA2= 0.5D0*(ALF+GAM - SQDD2) C IF (LAMDA1.GE.ZERO .AND. LAMDA1.LE.MIN(ALF,GAM)) THEN LAMDA = LAMDA1 ELSE IF (LAMDA2.GE.ZERO .AND. LAMDA2.LE.MIN(ALF,GAM)) THEN LAMDA = LAMDA2 ELSE LAMDA = ZERO ENDIF ENDIF C C IF BOTH KAPA, LAMDA ARE > 0, THEN APPLY EXISTANCE CRITERION C IF (KAPA.GT.ZERO .AND. LAMDA.GT.ZERO) THEN IF (BET .LT. LAMDA/THETA1) THEN KAPA = ZERO ELSE LAMDA= ZERO ENDIF ENDIF C C *** CALCULATE COMPOSITION OF VOLATILE SPECIES *********************** C 200 CONTINUE CNH4NO3 = LAMDA CNH4CL = KAPA C GNH3 = MAX(ALF - KAPA - LAMDA, ZERO) GHNO3 = MAX(GAM - LAMDA, ZERO) GHCL = MAX(BET - KAPA, ZERO) C RETURN C C *** END OF SUBROUTINE CALCG1A ***************************************** C END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE CALCH6 C *** CASE H6 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SULRAT > 2.0) ; SODIUM RICH (SODRAT >= 2.0) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : (NH4)2SO4, NH4CL, NA2SO4 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCH6 INCLUDE 'isrpia.inc' C COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** SETUP PARAMETERS ************************************************ C CALAOU = .TRUE. CHI1 = W(2) ! CNA2SO4 CHI2 = ZERO ! CNH42S4 CHI3 = ZERO ! CNH4CL FRNA = MAX (W(1)-2.D0*CHI1, ZERO) CHI8 = MIN (FRNA, W(4)) ! CNANO3 CHI4 = W(3) ! NH3(g) CHI5 = MAX (W(4)-CHI8, ZERO) ! HNO3(g) CHI7 = MIN (MAX(FRNA-CHI8, ZERO), W(5)) ! CNACL CHI6 = MAX (W(5)-CHI7, ZERO) ! HCL(g) C PSI6LO = TINY PSI6HI = CHI6-TINY ! MIN(CHI6-TINY, CHI4) C C *** INITIAL VALUES FOR BISECTION ************************************ C X1 = PSI6LO Y1 = FUNCH6A (X1) IF (ABS(Y1).LE.EPS .OR. CHI6.LE.TINY) GOTO 50 C C *** ROOT TRACKING ; FOR THE RANGE OF HI AND LO ********************** C DX = (PSI6HI-PSI6LO)/FLOAT(NDIV) DO 10 I=1,NDIV X2 = X1+DX Y2 = FUNCH6A (X2) IF (SIGN(1.d0,Y1)*SIGN(1.d0,Y2).LT.ZERO) GOTO 20 ! (Y1*Y2.LT.ZERO) X1 = X2 Y1 = Y2 10 CONTINUE C C *** NO SUBDIVISION WITH SOLUTION; IF ABS(Y2) 2.0) ; SODIUM RICH (SODRAT >= 2.0) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : (NH4)2SO4, NH4CL, NA2SO4 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C DOUBLE PRECISION FUNCTION FUNCH6A (X) INCLUDE 'isrpia.inc' C COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** SETUP PARAMETERS ************************************************ C PSI6 = X PSI1 = CHI1 PSI2 = ZERO PSI3 = ZERO PSI7 = CHI7 PSI8 = CHI8 FRST = .TRUE. CALAIN = .TRUE. C C *** SOLVE EQUATIONS ; WITH ITERATIONS FOR ACTIVITY COEF. ************ C DO 10 I=1,NSWEEP C A1 = XK5 *(WATER/GAMA(2))**3.0 A4 = (XK2/XKW)*R*TEMP*(GAMA(10)/GAMA(5))**2.0 A5 = XK4 *R*TEMP*(WATER/GAMA(10))**2.0 A6 = XK3 *R*TEMP*(WATER/GAMA(11))**2.0 A7 = XK8 *(WATER/GAMA(1))**2.0 A8 = XK9 *(WATER/GAMA(3))**2.0 A9 = XK1*WATER/GAMA(7)*(GAMA(8)/GAMA(7))**2. C C CALCULATE DISSOCIATION QUANTITIES C PSI5 = CHI5*(PSI6+PSI7) - A6/A5*PSI8*(CHI6-PSI6-PSI3) PSI5 = PSI5/(A6/A5*(CHI6-PSI6-PSI3) + PSI6 + PSI7) PSI5 = MAX(PSI5, TINY) C IF (W(3).GT.TINY .AND. WATER.GT.TINY) THEN ! First try 3rd order soln BB =-(CHI4 + PSI6 + PSI5 + 1.d0/A4) CC = CHI4*(PSI5+PSI6) DD = BB*BB-4.d0*CC PSI4 =0.5d0*(-BB - SQRT(DD)) PSI4 = MIN(PSI4,CHI4) ELSE PSI4 = TINY ENDIF C C *** CALCULATE SPECIATION ******************************************** C MOLAL (2) = PSI8 + PSI7 + 2.D0*PSI1 ! NAI MOLAL (3) = PSI4 ! NH4I MOLAL (4) = PSI6 + PSI7 ! CLI MOLAL (5) = PSI2 + PSI1 ! SO4I MOLAL (6) = ZERO ! HSO4I MOLAL (7) = PSI5 + PSI8 ! NO3I C SMIN = 2.d0*MOLAL(5)+MOLAL(7)+MOLAL(4)-MOLAL(2)-MOLAL(3) CALL CALCPH (SMIN, HI, OHI) MOLAL (1) = HI C GNH3 = MAX(CHI4 - PSI4, TINY) GHNO3 = MAX(CHI5 - PSI5, TINY) GHCL = MAX(CHI6 - PSI6, TINY) C CNH42S4 = ZERO CNH4NO3 = ZERO CNACL = MAX(CHI7 - PSI7, ZERO) CNANO3 = MAX(CHI8 - PSI8, ZERO) CNA2SO4 = MAX(CHI1 - PSI1, ZERO) C CALL CALCMR ! Water content C C *** CALCULATE ACTIVITIES OR TERMINATE INTERNAL LOOP ***************** C IF (FRST.AND.CALAOU .OR. .NOT.FRST.AND.CALAIN) THEN CALL CALCACT ELSE GOTO 20 ENDIF 10 CONTINUE C C *** CALCULATE FUNCTION VALUE FOR OUTER LOOP *************************** C 20 FUNCH6A = MOLAL(3)*MOLAL(4)/GHCL/GNH3/A6/A4 - ONE C RETURN C C *** END OF FUNCTION FUNCH6A ******************************************* C END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE CALCH5 C *** CASE H5 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SULRAT > 2.0) ; SODIUM RICH (SODRAT >= 2.0) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : (NH4)2SO4, NH4CL, NA2SO4 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCH5 INCLUDE 'isrpia.inc' C COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** REGIME DEPENDS ON THE EXISTANCE OF NITRATES *********************** C IF (W(4).LE.TINY .AND. W(5).LE.TINY) THEN SCASE = 'H5' CALL CALCH1A SCASE = 'H5' RETURN ENDIF C C *** SETUP PARAMETERS ************************************************ C CALAOU = .TRUE. CHI1 = W(2) ! CNA2SO4 CHI2 = ZERO ! CNH42S4 CHI3 = ZERO ! CNH4CL FRNA = MAX (W(1)-2.D0*CHI1, ZERO) CHI8 = MIN (FRNA, W(4)) ! CNANO3 CHI4 = W(3) ! NH3(g) CHI5 = MAX (W(4)-CHI8, ZERO) ! HNO3(g) CHI7 = MIN (MAX(FRNA-CHI8, ZERO), W(5)) ! CNACL CHI6 = MAX (W(5)-CHI7, ZERO) ! HCL(g) C PSI6LO = TINY PSI6HI = CHI6-TINY ! MIN(CHI6-TINY, CHI4) C C *** INITIAL VALUES FOR BISECTION ************************************ C X1 = PSI6LO Y1 = FUNCH5A (X1) IF (ABS(Y1).LE.EPS .OR. CHI6.LE.TINY) GOTO 50 C C *** ROOT TRACKING ; FOR THE RANGE OF HI AND LO ********************** C DX = (PSI6HI-PSI6LO)/FLOAT(NDIV) DO 10 I=1,NDIV X2 = X1+DX Y2 = FUNCH5A (X2) IF (SIGN(1.d0,Y1)*SIGN(1.d0,Y2).LT.ZERO) GOTO 20 ! (Y1*Y2.LT.ZERO) X1 = X2 Y1 = Y2 10 CONTINUE C C *** NO SUBDIVISION WITH SOLUTION; IF ABS(Y2) 2.0) ; SODIUM RICH (SODRAT >= 2.0) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : NONE C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C DOUBLE PRECISION FUNCTION FUNCH5A (X) INCLUDE 'isrpia.inc' C COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** SETUP PARAMETERS ************************************************ C PSI6 = X PSI1 = CHI1 PSI2 = ZERO PSI3 = ZERO PSI7 = CHI7 PSI8 = CHI8 FRST = .TRUE. CALAIN = .TRUE. C C *** SOLVE EQUATIONS ; WITH ITERATIONS FOR ACTIVITY COEF. ************ C DO 10 I=1,NSWEEP C A1 = XK5 *(WATER/GAMA(2))**3.0 A4 = (XK2/XKW)*R*TEMP*(GAMA(10)/GAMA(5))**2.0 A5 = XK4 *R*TEMP*(WATER/GAMA(10))**2.0 A6 = XK3 *R*TEMP*(WATER/GAMA(11))**2.0 A7 = XK8 *(WATER/GAMA(1))**2.0 A8 = XK9 *(WATER/GAMA(3))**2.0 A9 = XK1*WATER/GAMA(7)*(GAMA(8)/GAMA(7))**2. C C CALCULATE DISSOCIATION QUANTITIES C PSI5 = CHI5*(PSI6+PSI7) - A6/A5*PSI8*(CHI6-PSI6-PSI3) PSI5 = PSI5/(A6/A5*(CHI6-PSI6-PSI3) + PSI6 + PSI7) PSI5 = MAX(PSI5, TINY) C IF (W(3).GT.TINY .AND. WATER.GT.TINY) THEN ! First try 3rd order soln BB =-(CHI4 + PSI6 + PSI5 + 1.d0/A4) CC = CHI4*(PSI5+PSI6) DD = BB*BB-4.d0*CC PSI4 =0.5d0*(-BB - SQRT(DD)) PSI4 = MIN(PSI4,CHI4) ELSE PSI4 = TINY ENDIF C IF (CHI1.GT.TINY .AND. WATER.GT.TINY) THEN ! NA2SO4 DISSOLUTION AA = PSI7+PSI8 BB = AA*AA CC =-A1/4.D0 CALL POLY3 (AA, BB, CC, PSI1, ISLV) IF (ISLV.EQ.0) THEN PSI1 = MIN (PSI1, CHI1) ELSE PSI1 = ZERO ENDIF ENDIF C C *** CALCULATE SPECIATION ******************************************** C MOLAL (2) = PSI8 + PSI7 + 2.D0*PSI1 ! NAI MOLAL (3) = PSI4 ! NH4I MOLAL (4) = PSI6 + PSI7 ! CLI MOLAL (5) = PSI2 + PSI1 ! SO4I MOLAL (6) = ZERO MOLAL (7) = PSI5 + PSI8 ! NO3I C SMIN = 2.d0*MOLAL(5)+MOLAL(7)+MOLAL(4)-MOLAL(2)-MOLAL(3) CALL CALCPH (SMIN, HI, OHI) MOLAL (1) = HI C GNH3 = MAX(CHI4 - PSI4, TINY) GHNO3 = MAX(CHI5 - PSI5, TINY) GHCL = MAX(CHI6 - PSI6, TINY) C CNH42S4 = ZERO CNH4NO3 = ZERO CNACL = MAX(CHI7 - PSI7, ZERO) CNANO3 = MAX(CHI8 - PSI8, ZERO) CNA2SO4 = MAX(CHI1 - PSI1, ZERO) C CALL CALCMR ! Water content C C *** CALCULATE ACTIVITIES OR TERMINATE INTERNAL LOOP ***************** C IF (FRST.AND.CALAOU .OR. .NOT.FRST.AND.CALAIN) THEN CALL CALCACT ELSE GOTO 20 ENDIF 10 CONTINUE C C *** CALCULATE FUNCTION VALUE FOR OUTER LOOP *************************** C 20 FUNCH5A = MOLAL(3)*MOLAL(4)/GHCL/GNH3/A6/A4 - ONE C RETURN C C *** END OF FUNCTION FUNCH5A ******************************************* C END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE CALCH4 C *** CASE H4 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SULRAT > 2.0) ; SODIUM RICH (SODRAT >= 2.0) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : NA2SO4 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCH4 INCLUDE 'isrpia.inc' C COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** REGIME DEPENDS ON THE EXISTANCE OF NITRATES *********************** C IF (W(4).LE.TINY .AND. W(5).LE.TINY) THEN SCASE = 'H4' CALL CALCH1A SCASE = 'H4' RETURN ENDIF C C *** SETUP PARAMETERS ************************************************ C CALAOU = .TRUE. CHI1 = W(2) ! CNA2SO4 CHI2 = ZERO ! CNH42S4 CHI3 = ZERO ! CNH4CL FRNA = MAX (W(1)-2.D0*CHI1, ZERO) CHI8 = MIN (FRNA, W(4)) ! CNANO3 CHI4 = W(3) ! NH3(g) CHI5 = MAX (W(4)-CHI8, ZERO) ! HNO3(g) CHI7 = MIN (MAX(FRNA-CHI8, ZERO), W(5)) ! CNACL CHI6 = MAX (W(5)-CHI7, ZERO) ! HCL(g) C PSI6LO = TINY PSI6HI = CHI6-TINY ! MIN(CHI6-TINY, CHI4) C C *** INITIAL VALUES FOR BISECTION ************************************ C X1 = PSI6LO Y1 = FUNCH4A (X1) IF (ABS(Y1).LE.EPS .OR. CHI6.LE.TINY) GOTO 50 C C *** ROOT TRACKING ; FOR THE RANGE OF HI AND LO ********************** C DX = (PSI6HI-PSI6LO)/FLOAT(NDIV) DO 10 I=1,NDIV X2 = X1+DX Y2 = FUNCH4A (X2) IF (SIGN(1.d0,Y1)*SIGN(1.d0,Y2).LT.ZERO) GOTO 20 ! (Y1*Y2.LT.ZERO) X1 = X2 Y1 = Y2 10 CONTINUE C C *** NO SUBDIVISION WITH SOLUTION; IF ABS(Y2) 2.0) ; SODIUM RICH (SODRAT >= 2.0) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : (NH4)2SO4, NH4CL, NA2SO4 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C DOUBLE PRECISION FUNCTION FUNCH4A (X) INCLUDE 'isrpia.inc' C COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** SETUP PARAMETERS ************************************************ C PSI6 = X PSI1 = CHI1 PSI2 = ZERO PSI3 = ZERO PSI7 = CHI7 PSI8 = CHI8 FRST = .TRUE. CALAIN = .TRUE. C C *** SOLVE EQUATIONS ; WITH ITERATIONS FOR ACTIVITY COEF. ************ C DO 10 I=1,NSWEEP C A1 = XK5 *(WATER/GAMA(2))**3.0 A4 = (XK2/XKW)*R*TEMP*(GAMA(10)/GAMA(5))**2.0 A5 = XK4 *R*TEMP*(WATER/GAMA(10))**2.0 A6 = XK3 *R*TEMP*(WATER/GAMA(11))**2.0 A7 = XK8 *(WATER/GAMA(1))**2.0 A8 = XK9 *(WATER/GAMA(3))**2.0 A9 = XK1*WATER/GAMA(7)*(GAMA(8)/GAMA(7))**2. C C CALCULATE DISSOCIATION QUANTITIES C PSI5 = CHI5*(PSI6+PSI7) - A6/A5*PSI8*(CHI6-PSI6-PSI3) PSI5 = PSI5/(A6/A5*(CHI6-PSI6-PSI3) + PSI6 + PSI7) PSI5 = MAX(PSI5, TINY) C IF (W(3).GT.TINY .AND. WATER.GT.TINY) THEN ! First try 3rd order soln BB =-(CHI4 + PSI6 + PSI5 + 1.d0/A4) CC = CHI4*(PSI5+PSI6) DD = BB*BB-4.d0*CC PSI4 =0.5d0*(-BB - SQRT(DD)) PSI4 = MIN(PSI4,CHI4) ELSE PSI4 = TINY ENDIF C IF (CHI1.GT.TINY .AND. WATER.GT.TINY) THEN ! NA2SO4 DISSOLUTION AA = PSI7+PSI8 BB = AA*AA CC =-A1/4.D0 CALL POLY3 (AA, BB, CC, PSI1, ISLV) IF (ISLV.EQ.0) THEN PSI1 = MIN (PSI1, CHI1) ELSE PSI1 = ZERO ENDIF ENDIF C C *** CALCULATE SPECIATION ******************************************** C MOLAL (2) = PSI8 + PSI7 + 2.D0*PSI1 ! NAI MOLAL (3) = PSI4 ! NH4I MOLAL (4) = PSI6 + PSI7 ! CLI MOLAL (5) = PSI2 + PSI1 ! SO4I MOLAL (6) = ZERO MOLAL (7) = PSI5 + PSI8 ! NO3I C SMIN = 2.d0*MOLAL(5)+MOLAL(7)+MOLAL(4)-MOLAL(2)-MOLAL(3) CALL CALCPH (SMIN, HI, OHI) MOLAL (1) = HI C C *** CALCULATE GAS / SOLID SPECIES (LIQUID IN MOLAL ALREADY) ********* C GNH3 = MAX(CHI4 - PSI4, TINY) GHNO3 = MAX(CHI5 - PSI5, TINY) GHCL = MAX(CHI6 - PSI6, TINY) C CNH42S4 = ZERO CNH4NO3 = ZERO CNACL = MAX(CHI7 - PSI7, ZERO) CNANO3 = MAX(CHI8 - PSI8, ZERO) CNA2SO4 = MAX(CHI1 - PSI1, ZERO) C C *** NH4Cl(s) calculations C A3 = XK6 /(R*TEMP*R*TEMP) DELT = MIN(GNH3, GHCL) BB = -(GNH3+GHCL) CC = GNH3*GHCL-A3 DD = BB*BB - 4.D0*CC PSI31 = 0.5D0*(-BB + SQRT(DD)) PSI32 = 0.5D0*(-BB - SQRT(DD)) IF (DELT-PSI31.GT.ZERO .AND. PSI31.GT.ZERO) THEN PSI3 = PSI31 ELSEIF (DELT-PSI32.GT.ZERO .AND. PSI32.GT.ZERO) THEN PSI3 = PSI32 ELSE PSI3 = ZERO ENDIF C C *** CALCULATE GAS / SOLID SPECIES (LIQUID IN MOLAL ALREADY) ********* C GNH3 = MAX(GNH3 - PSI3, TINY) GHCL = MAX(GHCL - PSI3, TINY) CNH4CL = PSI3 C CALL CALCMR ! Water content C C *** CALCULATE ACTIVITIES OR TERMINATE INTERNAL LOOP ***************** C IF (FRST.AND.CALAOU .OR. .NOT.FRST.AND.CALAIN) THEN CALL CALCACT ELSE GOTO 20 ENDIF 10 CONTINUE C C *** CALCULATE FUNCTION VALUE FOR OUTER LOOP *************************** C 20 FUNCH4A = MOLAL(3)*MOLAL(4)/GHCL/GNH3/A6/A4 - ONE C RETURN C C *** END OF FUNCTION FUNCH4A ******************************************* C END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE CALCH3 C *** CASE H3 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SULRAT > 2.0) ; SODIUM RICH (SODRAT >= 2.0) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : NH4CL, NA2SO4 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCH3 INCLUDE 'isrpia.inc' C COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** REGIME DEPENDS ON THE EXISTANCE OF NITRATES *********************** C IF (W(4).LE.TINY) THEN ! NO3 NOT EXIST, WATER NOT POSSIBLE SCASE = 'H3' CALL CALCH1A SCASE = 'H3' RETURN ENDIF C C *** SETUP PARAMETERS ************************************************ C CALAOU = .TRUE. CHI1 = W(2) ! CNA2SO4 CHI2 = ZERO ! CNH42S4 CHI3 = ZERO ! CNH4CL FRNA = MAX (W(1)-2.D0*CHI1, ZERO) CHI8 = MIN (FRNA, W(4)) ! CNANO3 CHI4 = W(3) ! NH3(g) CHI5 = MAX (W(4)-CHI8, ZERO) ! HNO3(g) CHI7 = MIN (MAX(FRNA-CHI8, ZERO), W(5)) ! CNACL CHI6 = MAX (W(5)-CHI7, ZERO) ! HCL(g) C PSI6LO = TINY PSI6HI = CHI6-TINY ! MIN(CHI6-TINY, CHI4) C C *** INITIAL VALUES FOR BISECTION ************************************ C X1 = PSI6LO Y1 = FUNCH3A (X1) IF (ABS(Y1).LE.EPS .OR. CHI6.LE.TINY) GOTO 50 C C *** ROOT TRACKING ; FOR THE RANGE OF HI AND LO ********************** C DX = (PSI6HI-PSI6LO)/FLOAT(NDIV) DO 10 I=1,NDIV X2 = X1+DX Y2 = FUNCH3A (X2) IF (SIGN(1.d0,Y1)*SIGN(1.d0,Y2).LT.ZERO) GOTO 20 ! (Y1*Y2.LT.ZERO) X1 = X2 Y1 = Y2 10 CONTINUE C C *** NO SUBDIVISION WITH SOLUTION; IF ABS(Y2) 2.0) ; SODIUM RICH (SODRAT >= 2.0) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : (NH4)2SO4, NH4CL, NA2SO4 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C DOUBLE PRECISION FUNCTION FUNCH3A (X) INCLUDE 'isrpia.inc' C COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** SETUP PARAMETERS ************************************************ C PSI6 = X PSI1 = CHI1 PSI2 = ZERO PSI3 = ZERO PSI7 = CHI7 PSI8 = CHI8 FRST = .TRUE. CALAIN = .TRUE. C C *** SOLVE EQUATIONS ; WITH ITERATIONS FOR ACTIVITY COEF. ************ C DO 10 I=1,NSWEEP C A1 = XK5 *(WATER/GAMA(2))**3.0 A4 = (XK2/XKW)*R*TEMP*(GAMA(10)/GAMA(5))**2.0 A5 = XK4 *R*TEMP*(WATER/GAMA(10))**2.0 A6 = XK3 *R*TEMP*(WATER/GAMA(11))**2.0 A7 = XK8 *(WATER/GAMA(1))**2.0 A8 = XK9 *(WATER/GAMA(3))**2.0 A9 = XK1*WATER/GAMA(7)*(GAMA(8)/GAMA(7))**2. C C CALCULATE DISSOCIATION QUANTITIES C PSI5 = CHI5*(PSI6+PSI7) - A6/A5*PSI8*(CHI6-PSI6-PSI3) PSI5 = PSI5/(A6/A5*(CHI6-PSI6-PSI3) + PSI6 + PSI7) PSI5 = MAX(PSI5, TINY) C IF (W(3).GT.TINY .AND. WATER.GT.TINY) THEN ! First try 3rd order soln BB =-(CHI4 + PSI6 + PSI5 + 1.d0/A4) CC = CHI4*(PSI5+PSI6) DD = BB*BB-4.d0*CC PSI4 =0.5d0*(-BB - SQRT(DD)) PSI4 = MIN(PSI4,CHI4) ELSE PSI4 = TINY ENDIF C IF (CHI7.GT.TINY .AND. WATER.GT.TINY) THEN ! NACL DISSOLUTION DIAK = (PSI8-PSI6)**2.D0 + 4.D0*A7 PSI7 = 0.5D0*( -(PSI8+PSI6) + SQRT(DIAK) ) PSI7 = MAX(MIN(PSI7, CHI7), ZERO) ENDIF C IF (CHI1.GT.TINY .AND. WATER.GT.TINY) THEN ! NA2SO4 DISSOLUTION AA = PSI7+PSI8 BB = AA*AA CC =-A1/4.D0 CALL POLY3 (AA, BB, CC, PSI1, ISLV) IF (ISLV.EQ.0) THEN PSI1 = MIN (PSI1, CHI1) ELSE PSI1 = ZERO ENDIF ENDIF C C *** CALCULATE SPECIATION ******************************************** C MOLAL (2) = PSI8 + PSI7 + 2.D0*PSI1 ! NAI MOLAL (3) = PSI4 ! NH4I MOLAL (4) = PSI6 + PSI7 ! CLI MOLAL (5) = PSI2 + PSI1 ! SO4I MOLAL (6) = ZERO MOLAL (7) = PSI5 + PSI8 ! NO3I C SMIN = 2.d0*MOLAL(5)+MOLAL(7)+MOLAL(4)-MOLAL(2)-MOLAL(3) CALL CALCPH (SMIN, HI, OHI) MOLAL (1) = HI C C *** CALCULATE GAS / SOLID SPECIES (LIQUID IN MOLAL ALREADY) ********* C GNH3 = MAX(CHI4 - PSI4, TINY) GHNO3 = MAX(CHI5 - PSI5, TINY) GHCL = MAX(CHI6 - PSI6, TINY) C CNH42S4 = ZERO CNH4NO3 = ZERO CNACL = MAX(CHI7 - PSI7, ZERO) CNANO3 = MAX(CHI8 - PSI8, ZERO) CNA2SO4 = MAX(CHI1 - PSI1, ZERO) C C *** NH4Cl(s) calculations C A3 = XK6 /(R*TEMP*R*TEMP) DELT = MIN(GNH3, GHCL) BB = -(GNH3+GHCL) CC = GNH3*GHCL-A3 DD = BB*BB - 4.D0*CC PSI31 = 0.5D0*(-BB + SQRT(DD)) PSI32 = 0.5D0*(-BB - SQRT(DD)) IF (DELT-PSI31.GT.ZERO .AND. PSI31.GT.ZERO) THEN PSI3 = PSI31 ELSEIF (DELT-PSI32.GT.ZERO .AND. PSI32.GT.ZERO) THEN PSI3 = PSI32 ELSE PSI3 = ZERO ENDIF C C *** CALCULATE GAS / SOLID SPECIES (LIQUID IN MOLAL ALREADY) ********* C GNH3 = MAX(GNH3 - PSI3, TINY) GHCL = MAX(GHCL - PSI3, TINY) CNH4CL = PSI3 C CALL CALCMR ! Water content C C *** CALCULATE ACTIVITIES OR TERMINATE INTERNAL LOOP ***************** C IF (FRST.AND.CALAOU .OR. .NOT.FRST.AND.CALAIN) THEN CALL CALCACT ELSE GOTO 20 ENDIF 10 CONTINUE C C *** CALCULATE FUNCTION VALUE FOR OUTER LOOP *************************** C 20 FUNCH3A = MOLAL(3)*MOLAL(4)/GHCL/GNH3/A6/A4 - ONE C RETURN C C *** END OF FUNCTION FUNCH3A ******************************************* C END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE CALCH2 C *** CASE H2 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SULRAT > 2.0) ; SODIUM RICH (SODRAT >= 2.0) C 2. SOLID & LIQUID AEROSOL POSSIBLE C 3. SOLIDS POSSIBLE : NH4Cl, NA2SO4, NANO3, NACL C C THERE ARE THREE REGIMES IN THIS CASE: C 1. NH4NO3(s) POSSIBLE. LIQUID & SOLID AEROSOL (SUBROUTINE CALCH2A) C 2. NH4NO3(s) NOT POSSIBLE, AND RH < MDRH. SOLID AEROSOL ONLY C 3. NH4NO3(s) NOT POSSIBLE, AND RH >= MDRH. (MDRH REGION) C C REGIMES 2. AND 3. ARE CONSIDERED TO BE THE SAME AS CASES H1A, H2B C RESPECTIVELY (BECAUSE MDRH POINTS COINCIDE). C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCH2 INCLUDE 'isrpia.inc' EXTERNAL CALCH1A, CALCH3 C C *** REGIME DEPENDS ON THE EXISTANCE OF NITRATES *********************** C IF (W(4).GT.TINY) THEN ! NO3 EXISTS, WATER POSSIBLE SCASE = 'H2 ; SUBCASE 1' CALL CALCH2A SCASE = 'H2 ; SUBCASE 1' ELSE ! NO3 NON EXISTANT, WATER NOT POSSIBLE SCASE = 'H2 ; SUBCASE 1' CALL CALCH1A SCASE = 'H2 ; SUBCASE 1' ENDIF C IF (WATER.LE.TINY .AND. RH.LT.DRMH2) THEN ! DRY AEROSOL SCASE = 'H2 ; SUBCASE 2' C ELSEIF (WATER.LE.TINY .AND. RH.GE.DRMH2) THEN ! MDRH OF H2 SCASE = 'H2 ; SUBCASE 3' CALL CALCMDRH (RH, DRMH2, DRNANO3, CALCH1A, CALCH3) SCASE = 'H2 ; SUBCASE 3' ENDIF C RETURN C C *** END OF SUBROUTINE CALCH2 ****************************************** C END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE CALCH2A C *** CASE H2 ; SUBCASE 1 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SULRAT > 2.0) ; SODIUM RICH (SODRAT >= 2.0) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : NH4CL, NA2SO4 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCH2A INCLUDE 'isrpia.inc' C COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** SETUP PARAMETERS ************************************************ C CALAOU = .TRUE. CHI1 = W(2) ! CNA2SO4 CHI2 = ZERO ! CNH42S4 CHI3 = ZERO ! CNH4CL FRNA = MAX (W(1)-2.D0*CHI1, ZERO) CHI8 = MIN (FRNA, W(4)) ! CNANO3 CHI4 = W(3) ! NH3(g) CHI5 = MAX (W(4)-CHI8, ZERO) ! HNO3(g) CHI7 = MIN (MAX(FRNA-CHI8, ZERO), W(5)) ! CNACL CHI6 = MAX (W(5)-CHI7, ZERO) ! HCL(g) C PSI6LO = TINY PSI6HI = CHI6-TINY ! MIN(CHI6-TINY, CHI4) C C *** INITIAL VALUES FOR BISECTION ************************************ C X1 = PSI6LO Y1 = FUNCH2A (X1) IF (ABS(Y1).LE.EPS .OR. CHI6.LE.TINY) GOTO 50 C C *** ROOT TRACKING ; FOR THE RANGE OF HI AND LO ********************** C DX = (PSI6HI-PSI6LO)/FLOAT(NDIV) DO 10 I=1,NDIV X2 = X1+DX Y2 = FUNCH2A (X2) IF (SIGN(1.d0,Y1)*SIGN(1.d0,Y2).LT.ZERO) GOTO 20 ! (Y1*Y2.LT.ZERO) X1 = X2 Y1 = Y2 10 CONTINUE C C *** NO SUBDIVISION WITH SOLUTION; IF ABS(Y2) 2.0) ; SODIUM RICH (SODRAT >= 2.0) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : (NH4)2SO4, NH4CL, NA2SO4 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C DOUBLE PRECISION FUNCTION FUNCH2A (X) INCLUDE 'isrpia.inc' C COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** SETUP PARAMETERS ************************************************ C PSI6 = X PSI1 = CHI1 PSI2 = ZERO PSI3 = ZERO PSI7 = CHI7 PSI8 = CHI8 FRST = .TRUE. CALAIN = .TRUE. C C *** SOLVE EQUATIONS ; WITH ITERATIONS FOR ACTIVITY COEF. ************ C DO 10 I=1,NSWEEP C A1 = XK5 *(WATER/GAMA(2))**3.0 A4 = (XK2/XKW)*R*TEMP*(GAMA(10)/GAMA(5))**2.0 A5 = XK4 *R*TEMP*(WATER/GAMA(10))**2.0 A6 = XK3 *R*TEMP*(WATER/GAMA(11))**2.0 A7 = XK8 *(WATER/GAMA(1))**2.0 A8 = XK9 *(WATER/GAMA(3))**2.0 A64 = (XK3*XK2/XKW)*(GAMA(10)/GAMA(5)/GAMA(11))**2.0 A64 = A64*(R*TEMP*WATER)**2.0 A9 = XK1*WATER/GAMA(7)*(GAMA(8)/GAMA(7))**2. C C CALCULATE DISSOCIATION QUANTITIES C PSI5 = CHI5*(PSI6+PSI7) - A6/A5*PSI8*(CHI6-PSI6-PSI3) PSI5 = PSI5/(A6/A5*(CHI6-PSI6-PSI3) + PSI6 + PSI7) PSI5 = MAX(PSI5, TINY) C IF (W(3).GT.TINY .AND. WATER.GT.TINY) THEN ! First try 3rd order soln BB =-(CHI4 + PSI6 + PSI5 + 1.d0/A4) CC = CHI4*(PSI5+PSI6) DD = BB*BB-4.d0*CC PSI4 =0.5d0*(-BB - SQRT(DD)) PSI4 = MIN(PSI4,CHI4) ELSE PSI4 = TINY ENDIF C IF (CHI7.GT.TINY .AND. WATER.GT.TINY) THEN ! NACL DISSOLUTION DIAK = (PSI8-PSI6)**2.D0 + 4.D0*A7 PSI7 = 0.5D0*( -(PSI8+PSI6) + SQRT(DIAK) ) PSI7 = MAX(MIN(PSI7, CHI7), ZERO) ENDIF C IF (CHI8.GT.TINY .AND. WATER.GT.TINY) THEN ! NANO3 DISSOLUTION DIAK = (PSI7-PSI5)**2.D0 + 4.D0*A8 PSI8 = 0.5D0*( -(PSI7+PSI5) + SQRT(DIAK) ) PSI8 = MAX(MIN(PSI8, CHI8), ZERO) ENDIF C IF (CHI1.GT.TINY .AND. WATER.GT.TINY) THEN ! NA2SO4 DISSOLUTION AA = PSI7+PSI8 BB = AA*AA CC =-A1/4.D0 CALL POLY3 (AA, BB, CC, PSI1, ISLV) IF (ISLV.EQ.0) THEN PSI1 = MIN (PSI1, CHI1) ELSE PSI1 = ZERO ENDIF ENDIF C C *** CALCULATE SPECIATION ******************************************** C MOLAL (2) = PSI8 + PSI7 + 2.D0*PSI1 ! NAI MOLAL (3) = PSI4 ! NH4I MOLAL (4) = PSI6 + PSI7 ! CLI MOLAL (5) = PSI2 + PSI1 ! SO4I MOLAL (6) = ZERO ! HSO4I MOLAL (7) = PSI5 + PSI8 ! NO3I C SMIN = 2.d0*MOLAL(5)+MOLAL(7)+MOLAL(4)-MOLAL(2)-MOLAL(3) CALL CALCPH (SMIN, HI, OHI) MOLAL (1) = HI C GNH3 = MAX(CHI4 - PSI4, TINY) GHNO3 = MAX(CHI5 - PSI5, TINY) GHCL = MAX(CHI6 - PSI6, TINY) C CNH42S4 = ZERO CNH4NO3 = ZERO CNACL = MAX(CHI7 - PSI7, ZERO) CNANO3 = MAX(CHI8 - PSI8, ZERO) CNA2SO4 = MAX(CHI1 - PSI1, ZERO) C C *** NH4Cl(s) calculations C A3 = XK6 /(R*TEMP*R*TEMP) DELT = MIN(GNH3, GHCL) BB = -(GNH3+GHCL) CC = GNH3*GHCL-A3 DD = BB*BB - 4.D0*CC PSI31 = 0.5D0*(-BB + SQRT(DD)) PSI32 = 0.5D0*(-BB - SQRT(DD)) IF (DELT-PSI31.GT.ZERO .AND. PSI31.GT.ZERO) THEN PSI3 = PSI31 ELSEIF (DELT-PSI32.GT.ZERO .AND. PSI32.GT.ZERO) THEN PSI3 = PSI32 ELSE PSI3 = ZERO ENDIF C C *** CALCULATE GAS / SOLID SPECIES (LIQUID IN MOLAL ALREADY) ********* C GNH3 = MAX(GNH3 - PSI3, TINY) GHCL = MAX(GHCL - PSI3, TINY) CNH4CL = PSI3 C CALL CALCMR ! Water content C C *** CALCULATE ACTIVITIES OR TERMINATE INTERNAL LOOP ***************** C IF (FRST.AND.CALAOU .OR. .NOT.FRST.AND.CALAIN) THEN CALL CALCACT ELSE GOTO 20 ENDIF 10 CONTINUE C C *** CALCULATE FUNCTION VALUE FOR OUTER LOOP *************************** C 20 FUNCH2A = MOLAL(3)*MOLAL(4)/GHCL/GNH3/A64 - ONE C RETURN C C *** END OF FUNCTION FUNCH2A ******************************************* C END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE CALCH1 C *** CASE H1 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SULRAT > 2.0) ; SODIUM RICH (SODRAT >= 2.0) C 2. SOLID AEROSOL ONLY C 3. SOLIDS POSSIBLE : NH4NO3, NH4CL, NA2SO4 C C THERE ARE TWO POSSIBLE REGIMES HERE, DEPENDING ON RELATIVE HUMIDITY: C 1. WHEN RH >= MDRH ; LIQUID PHASE POSSIBLE (MDRH REGION) C 2. WHEN RH < MDRH ; ONLY SOLID PHASE POSSIBLE (SUBROUTINE CALCH1A) C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCH1 INCLUDE 'isrpia.inc' EXTERNAL CALCH1A, CALCH2A C C *** REGIME DEPENDS UPON THE AMBIENT RELATIVE HUMIDITY ***************** C IF (RH.LT.DRMH1) THEN SCASE = 'H1 ; SUBCASE 1' CALL CALCH1A ! SOLID PHASE ONLY POSSIBLE SCASE = 'H1 ; SUBCASE 1' ELSE SCASE = 'H1 ; SUBCASE 2' ! LIQUID & SOLID PHASE POSSIBLE CALL CALCMDRH (RH, DRMH1, DRNH4NO3, CALCH1A, CALCH2A) SCASE = 'H1 ; SUBCASE 2' ENDIF C RETURN C C *** END OF SUBROUTINE CALCH1 ****************************************** C END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE CALCH1A C *** CASE H1 ; SUBCASE 1 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SULRAT > 2.0) ; SODIUM RICH (SODRAT >= 2.0) C 2. SOLID AEROSOL ONLY C 3. SOLIDS POSSIBLE : NH4NO3, NH4CL, NANO3, NA2SO4 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCH1A INCLUDE 'isrpia.inc' DOUBLE PRECISION LAMDA, LAMDA1, LAMDA2, KAPA, KAPA1, KAPA2, NAFR, & NO3FR C C *** CALCULATE NON VOLATILE SOLIDS *********************************** C CNA2SO4 = W(2) CNH42S4 = ZERO NAFR = MAX (W(1)-2*CNA2SO4, ZERO) CNANO3 = MIN (NAFR, W(4)) NO3FR = MAX (W(4)-CNANO3, ZERO) CNACL = MIN (MAX(NAFR-CNANO3, ZERO), W(5)) CLFR = MAX (W(5)-CNACL, ZERO) C C *** CALCULATE VOLATILE SPECIES ************************************** C ALF = W(3) ! FREE NH3 BET = CLFR ! FREE CL GAM = NO3FR ! FREE NO3 C RTSQ = R*TEMP*R*TEMP A1 = XK6/RTSQ A2 = XK10/RTSQ C THETA1 = GAM - BET*(A2/A1) THETA2 = A2/A1 C C QUADRATIC EQUATION SOLUTION C BB = (THETA1-ALF-BET*(ONE+THETA2))/(ONE+THETA2) CC = (ALF*BET-A1-BET*THETA1)/(ONE+THETA2) DD = BB*BB - 4.0D0*CC IF (DD.LT.ZERO) GOTO 100 ! Solve each reaction seperately C C TWO ROOTS FOR KAPA, CHECK AND SEE IF ANY VALID C SQDD = SQRT(DD) KAPA1 = 0.5D0*(-BB+SQDD) KAPA2 = 0.5D0*(-BB-SQDD) LAMDA1 = THETA1 + THETA2*KAPA1 LAMDA2 = THETA1 + THETA2*KAPA2 C IF (KAPA1.GE.ZERO .AND. LAMDA1.GE.ZERO) THEN IF (ALF-KAPA1-LAMDA1.GE.ZERO .AND. & BET-KAPA1.GE.ZERO .AND. GAM-LAMDA1.GE.ZERO) THEN KAPA = KAPA1 LAMDA= LAMDA1 GOTO 200 ENDIF ENDIF C IF (KAPA2.GE.ZERO .AND. LAMDA2.GE.ZERO) THEN IF (ALF-KAPA2-LAMDA2.GE.ZERO .AND. & BET-KAPA2.GE.ZERO .AND. GAM-LAMDA2.GE.ZERO) THEN KAPA = KAPA2 LAMDA= LAMDA2 GOTO 200 ENDIF ENDIF C C SEPERATE SOLUTION OF NH4CL & NH4NO3 EQUILIBRIA C 100 KAPA = ZERO LAMDA = ZERO DD1 = (ALF+BET)*(ALF+BET) - 4.0D0*(ALF*BET-A1) DD2 = (ALF+GAM)*(ALF+GAM) - 4.0D0*(ALF*GAM-A2) C C NH4CL EQUILIBRIUM C IF (DD1.GE.ZERO) THEN SQDD1 = SQRT(DD1) KAPA1 = 0.5D0*(ALF+BET + SQDD1) KAPA2 = 0.5D0*(ALF+BET - SQDD1) C IF (KAPA1.GE.ZERO .AND. KAPA1.LE.MIN(ALF,BET)) THEN KAPA = KAPA1 ELSE IF (KAPA2.GE.ZERO .AND. KAPA2.LE.MIN(ALF,BET)) THEN KAPA = KAPA2 ELSE KAPA = ZERO ENDIF ENDIF C C NH4NO3 EQUILIBRIUM C IF (DD2.GE.ZERO) THEN SQDD2 = SQRT(DD2) LAMDA1= 0.5D0*(ALF+GAM + SQDD2) LAMDA2= 0.5D0*(ALF+GAM - SQDD2) C IF (LAMDA1.GE.ZERO .AND. LAMDA1.LE.MIN(ALF,GAM)) THEN LAMDA = LAMDA1 ELSE IF (LAMDA2.GE.ZERO .AND. LAMDA2.LE.MIN(ALF,GAM)) THEN LAMDA = LAMDA2 ELSE LAMDA = ZERO ENDIF ENDIF C C IF BOTH KAPA, LAMDA ARE > 0, THEN APPLY EXISTANCE CRITERION C IF (KAPA.GT.ZERO .AND. LAMDA.GT.ZERO) THEN IF (BET .LT. LAMDA/THETA1) THEN KAPA = ZERO ELSE LAMDA= ZERO ENDIF ENDIF C C *** CALCULATE COMPOSITION OF VOLATILE SPECIES *********************** C 200 CONTINUE CNH4NO3 = LAMDA CNH4CL = KAPA C GNH3 = ALF - KAPA - LAMDA GHNO3 = GAM - LAMDA GHCL = BET - KAPA C RETURN C C *** END OF SUBROUTINE CALCH1A ***************************************** C END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE CALCI6 C *** CASE I6 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE RICH, NO FREE ACID (1.0 <= SULRAT < 2.0) C 2. SOLID & LIQUID AEROSOL POSSIBLE C 3. SOLIDS POSSIBLE : (NH4)2SO4, NA2SO4 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCI6 INCLUDE 'isrpia.inc' C COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** FIND DRY COMPOSITION ********************************************** C CALL CALCI1A C C *** SETUP PARAMETERS ************************************************ C CHI1 = CNH4HS4 ! Save from CALCI1 run CHI2 = CLC CHI3 = CNAHSO4 CHI4 = CNA2SO4 CHI5 = CNH42S4 C PSI1 = CNH4HS4 ! ASSIGN INITIAL PSI's PSI2 = CLC PSI3 = CNAHSO4 PSI4 = CNA2SO4 PSI5 = CNH42S4 C CALAOU = .TRUE. ! Outer loop activity calculation flag FRST = .TRUE. CALAIN = .TRUE. C C *** SOLVE EQUATIONS ; WITH ITERATIONS FOR ACTIVITY COEF. ************ C DO 10 I=1,NSWEEP C A6 = XK1 *WATER/GAMA(7)*(GAMA(8)/GAMA(7))**2. C C CALCULATE DISSOCIATION QUANTITIES C BB = PSI2 + PSI4 + PSI5 + A6 ! PSI6 CC =-A6*(PSI2 + PSI3 + PSI1) DD = BB*BB - 4.D0*CC PSI6 = 0.5D0*(-BB + SQRT(DD)) C C *** CALCULATE SPECIATION ******************************************** C MOLAL (1) = PSI6 ! HI MOLAL (2) = 2.D0*PSI4 + PSI3 ! NAI MOLAL (3) = 3.D0*PSI2 + 2.D0*PSI5 + PSI1 ! NH4I MOLAL (5) = PSI2 + PSI4 + PSI5 + PSI6 ! SO4I MOLAL (6) = PSI2 + PSI3 + PSI1 - PSI6 ! HSO4I CLC = ZERO CNAHSO4 = ZERO CNA2SO4 = CHI4 - PSI4 CNH42S4 = ZERO CNH4HS4 = ZERO CALL CALCMR ! Water content C C *** CALCULATE ACTIVITIES OR TERMINATE INTERNAL LOOP ***************** C IF (FRST.AND.CALAOU .OR. .NOT.FRST.AND.CALAIN) THEN CALL CALCACT ELSE GOTO 20 ENDIF 10 CONTINUE C 20 RETURN C C *** END OF SUBROUTINE CALCI6 ***************************************** C END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE CALCI5 C *** CASE I5 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE RICH, NO FREE ACID (1.0 <= SULRAT < 2.0) C 2. SOLID & LIQUID AEROSOL POSSIBLE C 3. SOLIDS POSSIBLE : (NH4)2SO4, NA2SO4 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCI5 INCLUDE 'isrpia.inc' C COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** FIND DRY COMPOSITION ********************************************** C CALL CALCI1A C C *** SETUP PARAMETERS ************************************************ C CHI1 = CNH4HS4 ! Save from CALCI1 run CHI2 = CLC CHI3 = CNAHSO4 CHI4 = CNA2SO4 CHI5 = CNH42S4 C PSI1 = CNH4HS4 ! ASSIGN INITIAL PSI's PSI2 = CLC PSI3 = CNAHSO4 PSI4 = ZERO PSI5 = CNH42S4 C CALAOU =.TRUE. ! Outer loop activity calculation flag PSI4LO = ZERO ! Low limit PSI4HI = CHI4 ! High limit C C *** IF NA2SO4(S) =0, CALL FUNCI5B FOR Y4=0 *************************** C IF (CHI4.LE.TINY) THEN Y1 = FUNCI5A (ZERO) GOTO 50 ENDIF C C *** INITIAL VALUES FOR BISECTION ************************************ C X1 = PSI4HI Y1 = FUNCI5A (X1) YHI= Y1 ! Save Y-value at HI position C C *** YHI < 0.0 THE SOLUTION IS ALWAYS UNDERSATURATED WITH NA2SO4 ** C IF (ABS(Y1).LE.EPS .OR. YHI.LT.ZERO) GOTO 50 C C *** ROOT TRACKING ; FOR THE RANGE OF HI AND LO ********************** C DX = (PSI4HI-PSI4LO)/FLOAT(NDIV) DO 10 I=1,NDIV X2 = X1-DX Y2 = FUNCI5A (X2) IF (SIGN(1.d0,Y1)*SIGN(1.d0,Y2).LT.ZERO) GOTO 20 ! (Y1*Y2.LT.ZERO) X1 = X2 Y1 = Y2 10 CONTINUE C C *** { YLO, YHI } > 0.0 THE SOLUTION IS ALWAYS SUPERSATURATED WITH NH4CL C YLO= Y1 ! Save Y-value at Hi position IF (YLO.GT.ZERO .AND. YHI.GT.ZERO) THEN CALL RSTGAMP ! reinitialize activity coefficients (slc.1.2012) Y3 = FUNCI5A (ZERO) GOTO 50 ELSE IF (ABS(Y2) .LT. EPS) THEN ! X2 IS A SOLUTION GOTO 50 ELSE CALL PUSHERR (0001, 'CALCI5') ! WARNING ERROR: NO SOLUTION GOTO 50 ENDIF C C *** PERFORM BISECTION *********************************************** C 20 DO 30 I=1,MAXIT X3 = 0.5*(X1+X2) CALL RSTGAMP ! reinitialize activity coefficients (slc.1.2012) Y3 = FUNCI5A (X3) IF (SIGN(1.d0,Y1)*SIGN(1.d0,Y3) .LE. ZERO) THEN ! (Y1*Y3 .LE. ZERO) Y2 = Y3 X2 = X3 ELSE Y1 = Y3 X1 = X3 ENDIF IF (ABS(X2-X1) .LE. EPS*X1) GOTO 40 30 CONTINUE CALL PUSHERR (0002, 'CALCI5') ! WARNING ERROR: NO CONVERGENCE C C *** CONVERGED ; RETURN ********************************************** C 40 X3 = 0.5*(X1+X2) CALL RSTGAMP ! reinitialize activity coefficients (slc.1.2012) Y3 = FUNCI5A (X3) C 50 RETURN C *** END OF SUBROUTINE CALCI5 ***************************************** C END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE FUNCI5A C *** CASE I5 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE RICH, NO FREE ACID (1.0 <= SULRAT < 2.0) C 2. SOLID & LIQUID AEROSOL POSSIBLE C 3. SOLIDS POSSIBLE : NA2SO4 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C DOUBLE PRECISION FUNCTION FUNCI5A (P4) INCLUDE 'isrpia.inc' C COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** SETUP PARAMETERS ************************************************ C PSI4 = P4 ! PSI3 already assigned in FUNCI5A FRST = .TRUE. CALAIN = .TRUE. C C *** SOLVE EQUATIONS ; WITH ITERATIONS FOR ACTIVITY COEF. ************ C DO 10 I=1,NSWEEP C A4 = XK5 *(WATER/GAMA(2))**3.0 A5 = XK7 *(WATER/GAMA(4))**3.0 A6 = XK1 *WATER/GAMA(7)*(GAMA(8)/GAMA(7))**2. C C CALCULATE DISSOCIATION QUANTITIES C BB = PSI2 + PSI4 + PSI5 + A6 ! PSI6 CC =-A6*(PSI2 + PSI3 + PSI1) DD = BB*BB - 4.D0*CC PSI6 = 0.5D0*(-BB + SQRT(DD)) C C *** CALCULATE SPECIATION ******************************************** C MOLAL (1) = PSI6 ! HI MOLAL (2) = 2.D0*PSI4 + PSI3 ! NAI MOLAL (3) = 3.D0*PSI2 + 2.D0*PSI5 + PSI1 ! NH4I MOLAL (5) = PSI2 + PSI4 + PSI5 + PSI6 ! SO4I MOLAL (6) = PSI2 + PSI3 + PSI1 - PSI6 ! HSO4I CLC = ZERO CNAHSO4 = ZERO CNA2SO4 = CHI4 - PSI4 CNH42S4 = ZERO CNH4HS4 = ZERO CALL CALCMR ! Water content C C *** CALCULATE ACTIVITIES OR TERMINATE INTERNAL LOOP ***************** C IF (FRST.AND.CALAOU .OR. .NOT.FRST.AND.CALAIN) THEN CALL CALCACT ELSE GOTO 20 ENDIF 10 CONTINUE C C *** CALCULATE OBJECTIVE FUNCTION ************************************ C 20 A4 = XK5 *(WATER/GAMA(2))**3.0 FUNCI5A= MOLAL(5)*MOLAL(2)*MOLAL(2)/A4 - ONE RETURN C C *** END OF FUNCTION FUNCI5A ******************************************** C END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE CALCI4 C *** CASE I4 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE RICH, NO FREE ACID (1.0 <= SULRAT < 2.0) C 2. SOLID & LIQUID AEROSOL POSSIBLE C 3. SOLIDS POSSIBLE : (NH4)2SO4, NA2SO4 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCI4 INCLUDE 'isrpia.inc' C COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** FIND DRY COMPOSITION ********************************************** C CALL CALCI1A C C *** SETUP PARAMETERS ************************************************ C CHI1 = CNH4HS4 ! Save from CALCI1 run CHI2 = CLC CHI3 = CNAHSO4 CHI4 = CNA2SO4 CHI5 = CNH42S4 C PSI1 = CNH4HS4 ! ASSIGN INITIAL PSI's PSI2 = CLC PSI3 = CNAHSO4 PSI4 = ZERO PSI5 = ZERO C CALAOU = .TRUE. ! Outer loop activity calculation flag PSI4LO = ZERO ! Low limit PSI4HI = CHI4 ! High limit C C *** IF NA2SO4(S) =0, CALL FUNCI4B FOR Y4=0 *************************** C IF (CHI4.LE.TINY) THEN Y1 = FUNCI4A (ZERO) GOTO 50 ENDIF C C *** INITIAL VALUES FOR BISECTION ************************************ C X1 = PSI4HI Y1 = FUNCI4A (X1) YHI= Y1 ! Save Y-value at HI position C C *** YHI < 0.0 THE SOLUTION IS ALWAYS UNDERSATURATED WITH NA2SO4 ** C IF (ABS(Y1).LE.EPS .OR. YHI.LT.ZERO) GOTO 50 C C *** ROOT TRACKING ; FOR THE RANGE OF HI AND LO ********************** C DX = (PSI4HI-PSI4LO)/FLOAT(NDIV) DO 10 I=1,NDIV X2 = X1-DX Y2 = FUNCI4A (X2) IF (SIGN(1.d0,Y1)*SIGN(1.d0,Y2).LT.ZERO) GOTO 20 ! (Y1*Y2.LT.ZERO) X1 = X2 Y1 = Y2 10 CONTINUE C C *** { YLO, YHI } > 0.0 THE SOLUTION IS ALWAYS SUPERSATURATED WITH NH4CL C YLO= Y1 ! Save Y-value at Hi position IF (YLO.GT.ZERO .AND. YHI.GT.ZERO) THEN CALL RSTGAMP ! reinitialize activity coefficients (slc.1.2012) Y3 = FUNCI4A (ZERO) GOTO 50 ELSE IF (ABS(Y2) .LT. EPS) THEN ! X2 IS A SOLUTION GOTO 50 ELSE CALL PUSHERR (0001, 'CALCI4') ! WARNING ERROR: NO SOLUTION GOTO 50 ENDIF C C *** PERFORM BISECTION *********************************************** C 20 DO 30 I=1,MAXIT X3 = 0.5*(X1+X2) CALL RSTGAMP ! reinitialize activity coefficients (slc.1.2012) Y3 = FUNCI4A (X3) IF (SIGN(1.d0,Y1)*SIGN(1.d0,Y3) .LE. ZERO) THEN ! (Y1*Y3 .LE. ZERO) Y2 = Y3 X2 = X3 ELSE Y1 = Y3 X1 = X3 ENDIF IF (ABS(X2-X1) .LE. EPS*X1) GOTO 40 30 CONTINUE CALL PUSHERR (0002, 'CALCI4') ! WARNING ERROR: NO CONVERGENCE C C *** CONVERGED ; RETURN ********************************************** C 40 X3 = 0.5*(X1+X2) CALL RSTGAMP ! reinitialize activity coefficients (slc.1.2012) Y3 = FUNCI4A (X3) C 50 RETURN C *** END OF SUBROUTINE CALCI4 ***************************************** C END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE FUNCI4A C *** CASE I4 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE RICH, NO FREE ACID (1.0 <= SULRAT < 2.0) C 2. SOLID & LIQUID AEROSOL POSSIBLE C 3. SOLIDS POSSIBLE : (NH4)2SO4, NA2SO4 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C DOUBLE PRECISION FUNCTION FUNCI4A (P4) INCLUDE 'isrpia.inc' C COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** SETUP PARAMETERS ************************************************ C PSI4 = P4 ! PSI3 already assigned in FUNCI4A FRST = .TRUE. CALAIN = .TRUE. C C *** SOLVE EQUATIONS ; WITH ITERATIONS FOR ACTIVITY COEF. ************ C DO 10 I=1,NSWEEP C A4 = XK5 *(WATER/GAMA(2))**3.0 A5 = XK7 *(WATER/GAMA(4))**3.0 A6 = XK1 *WATER/GAMA(7)*(GAMA(8)/GAMA(7))**2. A7 = SQRT(A4/A5) C C CALCULATE DISSOCIATION QUANTITIES C BB = PSI2 + PSI4 + PSI5 + A6 ! PSI6 CC =-A6*(PSI2 + PSI3 + PSI1) DD = BB*BB - 4.D0*CC PSI6 = 0.5D0*(-BB + SQRT(DD)) C PSI5 = (PSI3 + 2.D0*PSI4 - A7*(3.D0*PSI2 + PSI1))/2.D0/A7 PSI5 = MAX (MIN (PSI5, CHI5), ZERO) C C *** CALCULATE SPECIATION ******************************************** C MOLAL (1) = PSI6 ! HI MOLAL (2) = 2.D0*PSI4 + PSI3 ! NAI MOLAL (3) = 3.D0*PSI2 + 2.D0*PSI5 + PSI1 ! NH4I MOLAL (5) = PSI2 + PSI4 + PSI5 + PSI6 ! SO4I MOLAL (6) = PSI2 + PSI3 + PSI1 - PSI6 ! HSO4I CLC = ZERO CNAHSO4 = ZERO CNA2SO4 = CHI4 - PSI4 CNH42S4 = CHI5 - PSI5 CNH4HS4 = ZERO CALL CALCMR ! Water content C C *** CALCULATE ACTIVITIES OR TERMINATE INTERNAL LOOP ***************** C IF (FRST.AND.CALAOU .OR. .NOT.FRST.AND.CALAIN) THEN CALL CALCACT ELSE GOTO 20 ENDIF 10 CONTINUE C C *** CALCULATE OBJECTIVE FUNCTION ************************************ C 20 A4 = XK5 *(WATER/GAMA(2))**3.0 FUNCI4A= MOLAL(5)*MOLAL(2)*MOLAL(2)/A4 - ONE RETURN C C *** END OF FUNCTION FUNCI4A ******************************************** C END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE CALCI3 C *** CASE I3 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE RICH, NO FREE ACID (1.0 <= SULRAT < 2.0) C 2. SOLID & LIQUID AEROSOL POSSIBLE C 3. SOLIDS POSSIBLE : (NH4)2SO4, NA2SO4, NAHSO4, LC C C THERE ARE THREE REGIMES IN THIS CASE: C 1.(NA,NH4)HSO4(s) POSSIBLE. LIQUID & SOLID AEROSOL (SUBROUTINE CALCI3A) C 2.(NA,NH4)HSO4(s) NOT POSSIBLE, AND RH < MDRH. SOLID AEROSOL ONLY C 3.(NA,NH4)HSO4(s) NOT POSSIBLE, AND RH >= MDRH. SOLID & LIQUID AEROSOL C C REGIMES 2. AND 3. ARE CONSIDERED TO BE THE SAME AS CASES I1A, I2B C RESPECTIVELY C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCI3 INCLUDE 'isrpia.inc' EXTERNAL CALCI1A, CALCI4 C C *** FIND DRY COMPOSITION ********************************************** C CALL CALCI1A C C *** REGIME DEPENDS UPON THE POSSIBLE SOLIDS & RH ********************** C IF (CNH4HS4.GT.TINY .OR. CNAHSO4.GT.TINY) THEN SCASE = 'I3 ; SUBCASE 1' CALL CALCI3A ! FULL SOLUTION SCASE = 'I3 ; SUBCASE 1' ENDIF C IF (WATER.LE.TINY) THEN IF (RH.LT.DRMI3) THEN ! SOLID SOLUTION WATER = TINY DO 10 I=1,NIONS MOLAL(I) = ZERO 10 CONTINUE CALL CALCI1A SCASE = 'I3 ; SUBCASE 2' C ELSEIF (RH.GE.DRMI3) THEN ! MDRH OF I3 SCASE = 'I3 ; SUBCASE 3' CALL CALCMDRH (RH, DRMI3, DRLC, CALCI1A, CALCI4) SCASE = 'I3 ; SUBCASE 3' ENDIF ENDIF C RETURN C C *** END OF SUBROUTINE CALCI3 ****************************************** C END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE CALCI3A C *** CASE I3 ; SUBCASE 1 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE RICH, NO FREE ACID (1.0 <= SULRAT < 2.0) C 2. SOLID & LIQUID AEROSOL POSSIBLE C 3. SOLIDS POSSIBLE : (NH4)2SO4, NA2SO4, LC C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCI3A INCLUDE 'isrpia.inc' C COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** FIND DRY COMPOSITION ********************************************** C CALL CALCI1A ! Needed when called from CALCMDRH C C *** SETUP PARAMETERS ************************************************ C CHI1 = CNH4HS4 ! Save from CALCI1 run CHI2 = CLC CHI3 = CNAHSO4 CHI4 = CNA2SO4 CHI5 = CNH42S4 C PSI1 = CNH4HS4 ! ASSIGN INITIAL PSI's PSI2 = ZERO PSI3 = CNAHSO4 PSI4 = ZERO PSI5 = ZERO C CALAOU = .TRUE. ! Outer loop activity calculation flag PSI2LO = ZERO ! Low limit PSI2HI = CHI2 ! High limit C C *** INITIAL VALUES FOR BISECTION ************************************ C X1 = PSI2HI Y1 = FUNCI3A (X1) YHI= Y1 ! Save Y-value at HI position C C *** YHI < 0.0 THE SOLUTION IS ALWAYS UNDERSATURATED WITH LC ********* C IF (YHI.LT.EPS) GOTO 50 C C *** ROOT TRACKING ; FOR THE RANGE OF HI AND LO ********************** C DX = (PSI2HI-PSI2LO)/FLOAT(NDIV) DO 10 I=1,NDIV X2 = MAX(X1-DX, PSI2LO) Y2 = FUNCI3A (X2) IF (SIGN(1.d0,Y1)*SIGN(1.d0,Y2).LT.ZERO) GOTO 20 ! (Y1*Y2.LT.ZERO) X1 = X2 Y1 = Y2 10 CONTINUE C C *** { YLO, YHI } > 0.0 THE SOLUTION IS ALWAYS SUPERSATURATED WITH LC C IF (Y2.GT.EPS) THEN CALL RSTGAMP ! reinitialize activity coefficients (slc.1.2012) Y2 = FUNCI3A (ZERO) ENDIF GOTO 50 C C *** PERFORM BISECTION *********************************************** C 20 DO 30 I=1,MAXIT X3 = 0.5*(X1+X2) CALL RSTGAMP ! reinitialize activity coefficients (slc.1.2012) Y3 = FUNCI3A (X3) IF (SIGN(1.d0,Y1)*SIGN(1.d0,Y3) .LE. ZERO) THEN ! (Y1*Y3 .LE. ZERO) Y2 = Y3 X2 = X3 ELSE Y1 = Y3 X1 = X3 ENDIF IF (ABS(X2-X1) .LE. EPS*X1) GOTO 40 30 CONTINUE CALL PUSHERR (0002, 'CALCI3A') ! WARNING ERROR: NO CONVERGENCE C C *** CONVERGED ; RETURN ********************************************** C 40 X3 = 0.5*(X1+X2) CALL RSTGAMP ! reinitialize activity coefficients (slc.1.2012) Y3 = FUNCI3A (X3) C 50 RETURN C *** END OF SUBROUTINE CALCI3A ***************************************** C END C C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE FUNCI3A C *** CASE I3 ; SUBCASE 1 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE RICH, NO FREE ACID (1.0 <= SULRAT < 2.0) C 2. SOLID & LIQUID AEROSOL POSSIBLE C 3. SOLIDS POSSIBLE : (NH4)2SO4, NA2SO4, LC C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C DOUBLE PRECISION FUNCTION FUNCI3A (P2) INCLUDE 'isrpia.inc' C COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** SETUP PARAMETERS ************************************************ C PSI2 = P2 ! Save PSI2 in COMMON BLOCK PSI4LO = ZERO ! Low limit for PSI4 PSI4HI = CHI4 ! High limit for PSI4 C C *** IF NH3 =0, CALL FUNCI3B FOR Y4=0 ******************************** C IF (CHI4.LE.TINY) THEN FUNCI3A = FUNCI3B (ZERO) GOTO 50 ENDIF C C *** INITIAL VALUES FOR BISECTION ************************************ C X1 = PSI4HI Y1 = FUNCI3B (X1) IF (ABS(Y1).LE.EPS) GOTO 50 YHI= Y1 ! Save Y-value at HI position C C *** YHI < 0.0 THE SOLUTION IS ALWAYS UNDERSATURATED WITH NA2SO4 ***** C IF (YHI.LT.ZERO) GOTO 50 C C *** ROOT TRACKING ; FOR THE RANGE OF HI AND LO ********************** C DX = (PSI4HI-PSI4LO)/FLOAT(NDIV) DO 10 I=1,NDIV X2 = MAX(X1-DX, PSI4LO) Y2 = FUNCI3B (X2) IF (SIGN(1.d0,Y1)*SIGN(1.d0,Y2).LT.ZERO) GOTO 20 ! (Y1*Y2.LT.ZERO) X1 = X2 Y1 = Y2 10 CONTINUE C C *** { YLO, YHI } > 0.0 THE SOLUTION IS ALWAYS SUPERSATURATED WITH NA2SO4 C IF (Y2.GT.EPS) THEN CALL RSTGAMP ! reinitialize activity coefficients (slc.1.2012) Y2 = FUNCI3B (PSI4LO) ENDIF GOTO 50 C C *** PERFORM BISECTION *********************************************** C 20 DO 30 I=1,MAXIT X3 = 0.5*(X1+X2) CALL RSTGAMP ! reinitialize activity coefficients (slc.1.2012) Y3 = FUNCI3B (X3) IF (SIGN(1.d0,Y1)*SIGN(1.d0,Y3) .LE. ZERO) THEN ! (Y1*Y3 .LE. ZERO) Y2 = Y3 X2 = X3 ELSE Y1 = Y3 X1 = X3 ENDIF IF (ABS(X2-X1) .LE. EPS*X1) GOTO 40 30 CONTINUE CALL PUSHERR (0004, 'FUNCI3A') ! WARNING ERROR: NO CONVERGENCE C C *** INNER LOOP CONVERGED ********************************************** C 40 X3 = 0.5*(X1+X2) CALL RSTGAMP ! reinitialize activity coefficients (slc.1.2012) Y3 = FUNCI3B (X3) C C *** CALCULATE FUNCTION VALUE FOR OUTER LOOP *************************** C 50 A2 = XK13*(WATER/GAMA(13))**5.0 FUNCI3A = MOLAL(5)*MOLAL(6)*MOLAL(3)**3.D0/A2 - ONE RETURN C C *** END OF FUNCTION FUNCI3A ******************************************* C END C======================================================================= C C *** ISORROPIA CODE C *** FUNCTION FUNCI3B C *** CASE I3 ; SUBCASE 2 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE RICH, NO FREE ACID (1.0 <= SULRAT < 2.0) C 2. SOLID & LIQUID AEROSOL POSSIBLE C 3. SOLIDS POSSIBLE : (NH4)2SO4, NA2SO4, LC C C SOLUTION IS SAVED IN COMMON BLOCK /CASE/ C C======================================================================= C DOUBLE PRECISION FUNCTION FUNCI3B (P4) INCLUDE 'isrpia.inc' C COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** SETUP PARAMETERS ************************************************ C PSI4 = P4 C C *** SETUP PARAMETERS ************************************************ C FRST = .TRUE. CALAIN = .TRUE. C C *** SOLVE EQUATIONS ; WITH ITERATIONS FOR ACTIVITY COEF. ************ C DO 10 I=1,NSWEEP C A4 = XK5*(WATER/GAMA(2))**3.0 A5 = XK7*(WATER/GAMA(4))**3.0 A6 = XK1*WATER/GAMA(7)*(GAMA(8)/GAMA(7))**2. A7 = SQRT(A4/A5) C C CALCULATE DISSOCIATION QUANTITIES C BB = PSI2 + PSI4 + PSI5 + A6 ! PSI6 CC =-A6*(PSI2 + PSI3 + PSI1) DD = BB*BB - 4.D0*CC PSI6 = 0.5D0*(-BB + SQRT(DD)) C PSI5 = (PSI3 + 2.D0*PSI4 - A7*(3.D0*PSI2 + PSI1))/2.D0/A7 PSI5 = MAX (MIN (PSI5, CHI5), ZERO) C C *** CALCULATE SPECIATION ******************************************** C MOLAL(1) = PSI6 ! HI MOLAL(2) = 2.D0*PSI4 + PSI3 ! NAI MOLAL(3) = 3.D0*PSI2 + 2.D0*PSI5 + PSI1 ! NH4I MOLAL(5) = PSI2 + PSI4 + PSI5 + PSI6 ! SO4I MOLAL(6) = MAX(PSI2 + PSI3 + PSI1 - PSI6, TINY) ! HSO4I CLC = MAX(CHI2 - PSI2, ZERO) CNAHSO4 = ZERO CNA2SO4 = MAX(CHI4 - PSI4, ZERO) CNH42S4 = MAX(CHI5 - PSI5, ZERO) CNH4HS4 = ZERO CALL CALCMR ! Water content C C *** CALCULATE ACTIVITIES OR TERMINATE INTERNAL LOOP ***************** C IF (FRST.AND.CALAOU .OR. .NOT.FRST.AND.CALAIN) THEN CALL CALCACT ELSE GOTO 20 ENDIF 10 CONTINUE C C *** CALCULATE OBJECTIVE FUNCTION ************************************ C 20 A4 = XK5 *(WATER/GAMA(2))**3.0 FUNCI3B= MOLAL(5)*MOLAL(2)*MOLAL(2)/A4 - ONE RETURN C C *** END OF FUNCTION FUNCI3B ******************************************** C END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE CALCI2 C *** CASE I2 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE RICH, NO FREE ACID (1.0 <= SULRAT < 2.0) C 2. SOLID & LIQUID AEROSOL POSSIBLE C 3. SOLIDS POSSIBLE : (NH4)2SO4, NA2SO4, NAHSO4, LC C C THERE ARE THREE REGIMES IN THIS CASE: C 1. NH4HSO4(s) POSSIBLE. LIQUID & SOLID AEROSOL (SUBROUTINE CALCI2A) C 2. NH4HSO4(s) NOT POSSIBLE, AND RH < MDRH. SOLID AEROSOL ONLY C 3. NH4HSO4(s) NOT POSSIBLE, AND RH >= MDRH. SOLID & LIQUID AEROSOL C C REGIMES 2. AND 3. ARE CONSIDERED TO BE THE SAME AS CASES I1A, I2B C RESPECTIVELY C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCI2 INCLUDE 'isrpia.inc' EXTERNAL CALCI1A, CALCI3A C C *** FIND DRY COMPOSITION ********************************************** C CALL CALCI1A C C *** REGIME DEPENDS UPON THE POSSIBLE SOLIDS & RH ********************** C IF (CNH4HS4.GT.TINY) THEN SCASE = 'I2 ; SUBCASE 1' CALL CALCI2A SCASE = 'I2 ; SUBCASE 1' ENDIF C IF (WATER.LE.TINY) THEN IF (RH.LT.DRMI2) THEN ! SOLID SOLUTION ONLY WATER = TINY DO 10 I=1,NIONS MOLAL(I) = ZERO 10 CONTINUE CALL CALCI1A SCASE = 'I2 ; SUBCASE 2' C ELSEIF (RH.GE.DRMI2) THEN ! MDRH OF I2 SCASE = 'I2 ; SUBCASE 3' CALL CALCMDRH (RH, DRMI2, DRNAHSO4, CALCI1A, CALCI3A) SCASE = 'I2 ; SUBCASE 3' ENDIF ENDIF C RETURN C C *** END OF SUBROUTINE CALCI2 ****************************************** C END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE CALCI2A C *** CASE I2 ; SUBCASE A C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE RICH, NO FREE ACID (1.0 <= SULRAT < 2.0) C 2. SOLID & LIQUID AEROSOL POSSIBLE C 3. SOLIDS POSSIBLE : (NH4)2SO4, NA2SO4, NAHSO4, LC C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCI2A INCLUDE 'isrpia.inc' C COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** FIND DRY COMPOSITION ********************************************** C CALL CALCI1A ! Needed when called from CALCMDRH C C *** SETUP PARAMETERS ************************************************ C CHI1 = CNH4HS4 ! Save from CALCI1 run CHI2 = CLC CHI3 = CNAHSO4 CHI4 = CNA2SO4 CHI5 = CNH42S4 C PSI1 = CNH4HS4 ! ASSIGN INITIAL PSI's PSI2 = ZERO PSI3 = ZERO PSI4 = ZERO PSI5 = ZERO C CALAOU = .TRUE. ! Outer loop activity calculation flag PSI2LO = ZERO ! Low limit PSI2HI = CHI2 ! High limit C C *** INITIAL VALUES FOR BISECTION ************************************ C X1 = PSI2HI Y1 = FUNCI2A (X1) YHI= Y1 ! Save Y-value at HI position C C *** YHI < 0.0 THE SOLUTION IS ALWAYS UNDERSATURATED WITH LC ********* C IF (YHI.LT.EPS) GOTO 50 C C *** ROOT TRACKING ; FOR THE RANGE OF HI AND LO ********************** C DX = (PSI2HI-PSI2LO)/FLOAT(NDIV) DO 10 I=1,NDIV X2 = MAX(X1-DX, PSI2LO) Y2 = FUNCI2A (X2) IF (SIGN(1.d0,Y1)*SIGN(1.d0,Y2).LT.ZERO) GOTO 20 ! (Y1*Y2.LT.ZERO) X1 = X2 Y1 = Y2 10 CONTINUE C C *** { YLO, YHI } > 0.0 THE SOLUTION IS ALWAYS SUPERSATURATED WITH LC C IF (Y2.GT.EPS) THEN CALL RSTGAMP ! reinitialize activity coefficients (slc.1.2012) Y2 = FUNCI2A (ZERO) ENDIF GOTO 50 C C *** PERFORM BISECTION *********************************************** C 20 DO 30 I=1,MAXIT X3 = 0.5*(X1+X2) CALL RSTGAMP ! reinitialize activity coefficients (slc.1.2012) Y3 = FUNCI2A (X3) IF (SIGN(1.d0,Y1)*SIGN(1.d0,Y3) .LE. ZERO) THEN ! (Y1*Y3 .LE. ZERO) Y2 = Y3 X2 = X3 ELSE Y1 = Y3 X1 = X3 ENDIF IF (ABS(X2-X1) .LE. EPS*X1) GOTO 40 30 CONTINUE CALL PUSHERR (0002, 'CALCI2A') ! WARNING ERROR: NO CONVERGENCE C C *** CONVERGED ; RETURN ********************************************** C 40 X3 = 0.5*(X1+X2) CALL RSTGAMP ! reinitialize activity coefficients (slc.1.2012) Y3 = FUNCI2A (X3) C 50 RETURN C *** END OF SUBROUTINE CALCI2A ***************************************** C END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE FUNCI2A C *** CASE I2 ; SUBCASE 1 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE RICH, NO FREE ACID (1.0 <= SULRAT < 2.0) C 2. SOLID & LIQUID AEROSOL POSSIBLE C 3. SOLIDS POSSIBLE : (NH4)2SO4, NA2SO4, NAHSO4, LC C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C DOUBLE PRECISION FUNCTION FUNCI2A (P2) INCLUDE 'isrpia.inc' C COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** SETUP PARAMETERS ************************************************ C FRST = .TRUE. CALAIN = .TRUE. PSI2 = P2 ! Save PSI2 in COMMON BLOCK PSI3 = CHI3 PSI4 = CHI4 PSI5 = CHI5 PSI6 = ZERO C C *** SOLVE EQUATIONS ; WITH ITERATIONS FOR ACTIVITY COEF. ************ C DO 10 I=1,NSWEEP C A3 = XK11*(WATER/GAMA(12))**2.0 A4 = XK5 *(WATER/GAMA(2))**3.0 A5 = XK7 *(WATER/GAMA(4))**3.0 A6 = XK1 *WATER/GAMA(7)*(GAMA(8)/GAMA(7))**2. A7 = SQRT(A4/A5) C C CALCULATE DISSOCIATION QUANTITIES C IF (CHI5.GT.TINY .AND. WATER.GT.TINY) THEN PSI5 = (PSI3 + 2.D0*PSI4 - A7*(3.D0*PSI2 + PSI1))/2.D0/A7 PSI5 = MAX(MIN (PSI5, CHI5), TINY) ENDIF C IF (CHI4.GT.TINY .AND. WATER.GT.TINY) THEN AA = PSI2+PSI5+PSI6+PSI3 BB = PSI3*AA CC = 0.25D0*(PSI3*PSI3*(PSI2+PSI5+PSI6)-A4) CALL POLY3 (AA, BB, CC, PSI4, ISLV) IF (ISLV.EQ.0) THEN PSI4 = MIN (PSI4, CHI4) ELSE PSI4 = ZERO ENDIF ENDIF C IF (CHI3.GT.TINY .AND. WATER.GT.TINY) THEN AA = 2.D0*PSI4 + PSI2 + PSI1 - PSI6 BB = 2.D0*PSI4*(PSI2 + PSI1 - PSI6) - A3 CC = ZERO CALL POLY3 (AA, BB, CC, PSI3, ISLV) IF (ISLV.EQ.0) THEN PSI3 = MIN (PSI3, CHI3) ELSE PSI3 = ZERO ENDIF ENDIF C BB = PSI2 + PSI4 + PSI5 + A6 ! PSI6 CC =-A6*(PSI2 + PSI3 + PSI1) DD = BB*BB - 4.D0*CC PSI6 = 0.5D0*(-BB + SQRT(DD)) C C *** CALCULATE SPECIATION ******************************************** C MOLAL (1) = PSI6 ! HI MOLAL (2) = 2.D0*PSI4 + PSI3 ! NAI MOLAL (3) = 3.D0*PSI2 + 2.D0*PSI5 + PSI1 ! NH4I MOLAL (5) = PSI2 + PSI4 + PSI5 + PSI6 ! SO4I MOLAL (6) = PSI2 + PSI3 + PSI1 - PSI6 ! HSO4I CLC = CHI2 - PSI2 CNAHSO4 = CHI3 - PSI3 CNA2SO4 = CHI4 - PSI4 CNH42S4 = CHI5 - PSI5 CNH4HS4 = ZERO CALL CALCMR ! Water content C C *** CALCULATE ACTIVITIES OR TERMINATE INTERNAL LOOP ***************** C IF (FRST.AND.CALAOU .OR. .NOT.FRST.AND.CALAIN) THEN CALL CALCACT ELSE GOTO 20 ENDIF 10 CONTINUE C C *** CALCULATE FUNCTION VALUE FOR OUTER LOOP *************************** C 20 A2 = XK13*(WATER/GAMA(13))**5.0 FUNCI2A = MOLAL(5)*MOLAL(6)*MOLAL(3)**3.D0/A2 - ONE RETURN C C *** END OF FUNCTION FUNCI2A ******************************************* C END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE CALCI1 C *** CASE I1 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE RICH, NO FREE ACID (1.0 <= SULRAT < 2.0) C 2. SOLID AEROSOL ONLY C 3. SOLIDS POSSIBLE : NH4NO3, NH4CL, NA2SO4 C C THERE ARE TWO POSSIBLE REGIMES HERE, DEPENDING ON RELATIVE HUMIDITY: C 1. WHEN RH >= MDRH ; LIQUID PHASE POSSIBLE (MDRH REGION) C 2. WHEN RH < MDRH ; ONLY SOLID PHASE POSSIBLE (SUBROUTINE CALCI1A) C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCI1 INCLUDE 'isrpia.inc' EXTERNAL CALCI1A, CALCI2A C C *** REGIME DEPENDS UPON THE AMBIENT RELATIVE HUMIDITY ***************** C IF (RH.LT.DRMI1) THEN SCASE = 'I1 ; SUBCASE 1' CALL CALCI1A ! SOLID PHASE ONLY POSSIBLE SCASE = 'I1 ; SUBCASE 1' ELSE SCASE = 'I1 ; SUBCASE 2' ! LIQUID & SOLID PHASE POSSIBLE CALL CALCMDRH (RH, DRMI1, DRNH4HS4, CALCI1A, CALCI2A) SCASE = 'I1 ; SUBCASE 2' ENDIF C C *** AMMONIA IN GAS PHASE ********************************************** C C CALL CALCNH3 C RETURN C C *** END OF SUBROUTINE CALCI1 ****************************************** C END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE CALCI1A C *** CASE I1 ; SUBCASE 1 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE RICH, NO FREE ACID (1.0 <= SULRAT < 2.0) C 2. SOLID AEROSOL ONLY C 3. SOLIDS POSSIBLE : NH4HSO4, NAHSO4, (NH4)2SO4, NA2SO4, LC C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCI1A INCLUDE 'isrpia.inc' C C *** CALCULATE NON VOLATILE SOLIDS *********************************** C CNA2SO4 = 0.5D0*W(1) CNH4HS4 = ZERO CNAHSO4 = ZERO CNH42S4 = ZERO FRSO4 = MAX(W(2)-CNA2SO4, ZERO) C CLC = MIN(W(3)/3.D0, FRSO4/2.D0) FRSO4 = MAX(FRSO4-2.D0*CLC, ZERO) FRNH4 = MAX(W(3)-3.D0*CLC, ZERO) C IF (FRSO4.LE.TINY) THEN CLC = MAX(CLC - FRNH4, ZERO) CNH42S4 = 2.D0*FRNH4 ELSEIF (FRNH4.LE.TINY) THEN CNH4HS4 = 3.D0*MIN(FRSO4, CLC) CLC = MAX(CLC-FRSO4, ZERO) IF (CNA2SO4.GT.TINY) THEN FRSO4 = MAX(FRSO4-CNH4HS4/3.D0, ZERO) CNAHSO4 = 2.D0*FRSO4 CNA2SO4 = MAX(CNA2SO4-FRSO4, ZERO) ENDIF ENDIF C C *** CALCULATE GAS SPECIES ********************************************* C GHNO3 = W(4) GHCL = W(5) GNH3 = ZERO C RETURN C C *** END OF SUBROUTINE CALCI1A ***************************************** C END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE CALCJ3 C *** CASE J3 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE RICH, FREE ACID (SULRAT < 1.0) C 2. THERE IS ONLY A LIQUID PHASE C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCJ3 INCLUDE 'isrpia.inc' C DOUBLE PRECISION LAMDA, KAPA C C *** SETUP PARAMETERS ************************************************ C CALAOU = .TRUE. ! Outer loop activity calculation flag FRST = .TRUE. CALAIN = .TRUE. C LAMDA = MAX(W(2) - W(3) - W(1), TINY) ! FREE H2SO4 CHI1 = W(1) ! NA TOTAL as NaHSO4 CHI2 = W(3) ! NH4 TOTAL as NH4HSO4 PSI1 = CHI1 PSI2 = CHI2 ! ALL NH4HSO4 DELIQUESCED C C *** SOLVE EQUATIONS ; WITH ITERATIONS FOR ACTIVITY COEF. ************ C DO 10 I=1,NSWEEP C A3 = XK1 *WATER/GAMA(7)*(GAMA(8)/GAMA(7))**2.0 C C CALCULATE DISSOCIATION QUANTITIES C BB = A3+LAMDA ! KAPA CC =-A3*(LAMDA + PSI1 + PSI2) DD = BB*BB-4.D0*CC KAPA = 0.5D0*(-BB+SQRT(DD)) C C *** CALCULATE SPECIATION ******************************************** C MOLAL (1) = LAMDA + KAPA ! HI MOLAL (2) = PSI1 ! NAI MOLAL (3) = PSI2 ! NH4I MOLAL (4) = ZERO ! CLI MOLAL (5) = KAPA ! SO4I MOLAL (6) = LAMDA + PSI1 + PSI2 - KAPA ! HSO4I MOLAL (7) = ZERO ! NO3I C CNAHSO4 = ZERO CNH4HS4 = ZERO C CALL CALCMR ! Water content C C *** CALCULATE ACTIVITIES OR TERMINATE INTERNAL LOOP ***************** C IF (FRST.AND.CALAOU .OR. .NOT.FRST.AND.CALAIN) THEN CALL CALCACT ELSE GOTO 50 ENDIF 10 CONTINUE C 50 RETURN C C *** END OF SUBROUTINE CALCJ3 ****************************************** C END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE CALCJ2 C *** CASE J2 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE RICH, FREE ACID (SULRAT < 1.0) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : NAHSO4 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCJ2 INCLUDE 'isrpia.inc' C DOUBLE PRECISION LAMDA, KAPA COMMON /CASEJ/ CHI1, CHI2, CHI3, LAMDA, KAPA, PSI1, PSI2, PSI3, & A1, A2, A3 C C *** SETUP PARAMETERS ************************************************ C CALAOU = .TRUE. ! Outer loop activity calculation flag CHI1 = W(1) ! NA TOTAL CHI2 = W(3) ! NH4 TOTAL PSI1LO = TINY ! Low limit PSI1HI = CHI1 ! High limit C C *** INITIAL VALUES FOR BISECTION ************************************ C X1 = PSI1HI Y1 = FUNCJ2 (X1) YHI= Y1 ! Save Y-value at HI position C C *** YHI < 0.0 THE SOLUTION IS ALWAYS UNDERSATURATED WITH NH42SO4 **** C IF (ABS(Y1).LE.EPS .OR. YHI.LT.ZERO) GOTO 50 C C *** ROOT TRACKING ; FOR THE RANGE OF HI AND LO ********************** C DX = (PSI1HI-PSI1LO)/FLOAT(NDIV) DO 10 I=1,NDIV X2 = X1-DX Y2 = FUNCJ2 (X2) IF (SIGN(1.d0,Y1)*SIGN(1.d0,Y2).LT.ZERO) GOTO 20 ! (Y1*Y2.LT.ZERO) X1 = X2 Y1 = Y2 10 CONTINUE C C *** { YLO, YHI } > 0.0 THE SOLUTION IS ALWAYS SUPERSATURATED WITH NH42SO4 C YLO= Y1 ! Save Y-value at Hi position IF (YLO.GT.ZERO .AND. YHI.GT.ZERO) THEN CALL RSTGAMP ! reinitialize activity coefficients (slc.1.2012) Y3 = FUNCJ2 (ZERO) GOTO 50 ELSE IF (ABS(Y2) .LT. EPS) THEN ! X2 IS A SOLUTION GOTO 50 ELSE CALL PUSHERR (0001, 'CALCJ2') ! WARNING ERROR: NO SOLUTION GOTO 50 ENDIF C C *** PERFORM BISECTION *********************************************** C 20 DO 30 I=1,MAXIT X3 = 0.5*(X1+X2) CALL RSTGAMP ! reinitialize activity coefficients (slc.1.2012) Y3 = FUNCJ2 (X3) IF (SIGN(1.d0,Y1)*SIGN(1.d0,Y3) .LE. ZERO) THEN ! (Y1*Y3 .LE. ZERO) Y2 = Y3 X2 = X3 ELSE Y1 = Y3 X1 = X3 ENDIF IF (ABS(X2-X1) .LE. EPS*X1) GOTO 40 30 CONTINUE CALL PUSHERR (0002, 'CALCJ2') ! WARNING ERROR: NO CONVERGENCE C C *** CONVERGED ; RETURN ********************************************** C 40 X3 = 0.5*(X1+X2) CALL RSTGAMP ! reinitialize activity coefficients (slc.1.2012) Y3 = FUNCJ2 (X3) C 50 RETURN C C *** END OF SUBROUTINE CALCJ2 ****************************************** C END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE FUNCJ2 C *** CASE J2 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE RICH, FREE ACID (SULRAT < 1.0) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : (NH4)2SO4, NH4CL, NA2SO4 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C DOUBLE PRECISION FUNCTION FUNCJ2 (P1) INCLUDE 'isrpia.inc' C DOUBLE PRECISION LAMDA, KAPA COMMON /CASEJ/ CHI1, CHI2, CHI3, LAMDA, KAPA, PSI1, PSI2, PSI3, & A1, A2, A3 C C *** SETUP PARAMETERS ************************************************ C FRST = .TRUE. CALAIN = .TRUE. C LAMDA = MAX(W(2) - W(3) - W(1), TINY) ! FREE H2SO4 PSI1 = P1 PSI2 = CHI2 ! ALL NH4HSO4 DELIQUESCED C C *** SOLVE EQUATIONS ; WITH ITERATIONS FOR ACTIVITY COEF. ************ C DO 10 I=1,NSWEEP C A1 = XK11 *(WATER/GAMA(12))**2.0 A3 = XK1 *WATER/GAMA(7)*(GAMA(8)/GAMA(7))**2.0 C C CALCULATE DISSOCIATION QUANTITIES C BB = A3+LAMDA ! KAPA CC =-A3*(LAMDA + PSI1 + PSI2) DD = BB*BB-4.D0*CC KAPA = 0.5D0*(-BB+SQRT(DD)) C C *** CALCULATE SPECIATION ******************************************** C MOLAL (1) = LAMDA + KAPA ! HI MOLAL (2) = PSI1 ! NAI MOLAL (3) = PSI2 ! NH4I MOLAL (4) = ZERO ! CLI MOLAL (5) = KAPA ! SO4I MOLAL (6) = LAMDA + PSI1 + PSI2 - KAPA ! HSO4I MOLAL (7) = ZERO ! NO3I C CNAHSO4 = MAX(CHI1-PSI1,ZERO) CNH4HS4 = ZERO C CALL CALCMR ! Water content C C *** CALCULATE ACTIVITIES OR TERMINATE INTERNAL LOOP ***************** C IF (FRST.AND.CALAOU .OR. .NOT.FRST.AND.CALAIN) THEN CALL CALCACT ELSE GOTO 20 ENDIF 10 CONTINUE C C *** CALCULATE OBJECTIVE FUNCTION ************************************ C 20 FUNCJ2 = MOLAL(2)*MOLAL(6)/A1 - ONE C C *** END OF FUNCTION FUNCJ2 ******************************************* C END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE CALCJ1 C *** CASE J1 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE RICH, FREE ACID (SULRAT < 1.0) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : NH4HSO4, NAHSO4 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCJ1 INCLUDE 'isrpia.inc' C DOUBLE PRECISION LAMDA, KAPA COMMON /CASEJ/ CHI1, CHI2, CHI3, LAMDA, KAPA, PSI1, PSI2, PSI3, & A1, A2, A3 C C *** SETUP PARAMETERS ************************************************ C CALAOU =.TRUE. ! Outer loop activity calculation flag CHI1 = W(1) ! Total NA initially as NaHSO4 CHI2 = W(3) ! Total NH4 initially as NH4HSO4 C PSI1LO = TINY ! Low limit PSI1HI = CHI1 ! High limit C C *** INITIAL VALUES FOR BISECTION ************************************ C X1 = PSI1HI Y1 = FUNCJ1 (X1) YHI= Y1 ! Save Y-value at HI position C C *** YHI < 0.0 THE SOLUTION IS ALWAYS UNDERSATURATED WITH NH42SO4 **** C IF (ABS(Y1).LE.EPS .OR. YHI.LT.ZERO) GOTO 50 C C *** ROOT TRACKING ; FOR THE RANGE OF HI AND LO ********************** C DX = (PSI1HI-PSI1LO)/FLOAT(NDIV) DO 10 I=1,NDIV X2 = X1-DX Y2 = FUNCJ1 (X2) IF (SIGN(1.d0,Y1)*SIGN(1.d0,Y2).LT.ZERO) GOTO 20 ! (Y1*Y2.LT.ZERO) X1 = X2 Y1 = Y2 10 CONTINUE C C *** { YLO, YHI } > 0.0 THE SOLUTION IS ALWAYS SUPERSATURATED WITH NH42SO4 C YLO= Y1 ! Save Y-value at Hi position IF (YLO.GT.ZERO .AND. YHI.GT.ZERO) THEN CALL RSTGAMP ! reinitialize activity coefficients (slc.1.2012) Y3 = FUNCJ1 (ZERO) GOTO 50 ELSE IF (ABS(Y2) .LT. EPS) THEN ! X2 IS A SOLUTION GOTO 50 ELSE CALL PUSHERR (0001, 'CALCJ1') ! WARNING ERROR: NO SOLUTION GOTO 50 ENDIF C C *** PERFORM BISECTION *********************************************** C 20 DO 30 I=1,MAXIT X3 = 0.5*(X1+X2) CALL RSTGAMP ! reinitialize activity coefficients (slc.1.2012) Y3 = FUNCJ1 (X3) IF (SIGN(1.d0,Y1)*SIGN(1.d0,Y3) .LE. ZERO) THEN ! (Y1*Y3 .LE. ZERO) Y2 = Y3 X2 = X3 ELSE Y1 = Y3 X1 = X3 ENDIF IF (ABS(X2-X1) .LE. EPS*X1) GOTO 40 30 CONTINUE CALL PUSHERR (0002, 'CALCJ1') ! WARNING ERROR: NO CONVERGENCE C C *** CONVERGED ; RETURN ********************************************** C 40 X3 = 0.5*(X1+X2) CALL RSTGAMP ! reinitialize activity coefficients (slc.1.2012) Y3 = FUNCJ1 (X3) C 50 RETURN C C *** END OF SUBROUTINE CALCJ1 ****************************************** C END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE FUNCJ1 C *** CASE J1 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE RICH, FREE ACID (SULRAT < 1.0) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : (NH4)2SO4, NH4CL, NA2SO4 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C DOUBLE PRECISION FUNCTION FUNCJ1 (P1) INCLUDE 'isrpia.inc' DOUBLE PRECISION LAMDA, KAPA COMMON /CASEJ/ CHI1, CHI2, CHI3, LAMDA, KAPA, PSI1, PSI2, PSI3, & A1, A2, A3 C C *** SETUP PARAMETERS ************************************************ C FRST = .TRUE. CALAIN = .TRUE. C LAMDA = MAX(W(2) - W(3) - W(1), TINY) ! FREE H2SO4 PSI1 = P1 C C *** SOLVE EQUATIONS ; WITH ITERATIONS FOR ACTIVITY COEF. ************ C DO 10 I=1,NSWEEP C A1 = XK11 *(WATER/GAMA(12))**2.0 A2 = XK12 *(WATER/GAMA(09))**2.0 A3 = XK1 *WATER/GAMA(7)*(GAMA(8)/GAMA(7))**2.0 C PSI2 = 0.5*(-(LAMDA+PSI1) + SQRT((LAMDA+PSI1)**2.D0+4.D0*A2)) ! PSI2 PSI2 = MIN (PSI2, CHI2) C BB = A3+LAMDA ! KAPA CC =-A3*(LAMDA + PSI2 + PSI1) DD = BB*BB-4.D0*CC KAPA = 0.5D0*(-BB+SQRT(DD)) C C *** SAVE CONCENTRATIONS IN MOLAL ARRAY ****************************** C MOLAL (1) = LAMDA + KAPA ! HI MOLAL (2) = PSI1 ! NAI MOLAL (3) = PSI2 ! NH4I MOLAL (4) = ZERO MOLAL (5) = KAPA ! SO4I MOLAL (6) = LAMDA + PSI1 + PSI2 - KAPA ! HSO4I MOLAL (7) = ZERO C CNAHSO4 = MAX(CHI1-PSI1,ZERO) CNH4HS4 = MAX(CHI2-PSI2,ZERO) C CALL CALCMR ! Water content C C *** CALCULATE ACTIVITIES OR TERMINATE INTERNAL LOOP ***************** C IF (FRST.AND.CALAOU .OR. .NOT.FRST.AND.CALAIN) THEN CALL CALCACT ELSE GOTO 20 ENDIF 10 CONTINUE C C *** CALCULATE OBJECTIVE FUNCTION ************************************ C 20 FUNCJ1 = MOLAL(2)*MOLAL(6)/A1 - ONE C C *** END OF FUNCTION FUNCJ1 ******************************************* C END C C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE CALCO7 C *** CASE O7 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. (Rsulfate > 2.0 ; R(Cr+Na) < 2.0) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : CaSO4 C 4. Completely dissolved: NH4NO3, NH4CL, (NH4)2SO4, MgSO4, NA2SO4, K2SO4 C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCO7 INCLUDE 'isrpia.inc' C DOUBLE PRECISION LAMDA COMMON /CASEO/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, LAMDA, PSI1, PSI2, PSI3, PSI4, PSI5, & PSI6, PSI7, PSI8, PSI9, A1, A2, A3, A4, & A5, A6, A7, A8, A9 C C *** SETUP PARAMETERS ************************************************ C CALAOU = .TRUE. CHI9 = MIN (W(6), W(2)) ! CCASO4 SO4FR = MAX (W(2)-CHI9, ZERO) CAFR = MAX (W(6)-CHI9, ZERO) CHI7 = MIN (0.5D0*W(7), SO4FR) ! CK2SO4 FRK = MAX (W(7) - 2.D0*CHI7, ZERO) SO4FR = MAX (SO4FR - CHI7, ZERO) CHI1 = MIN (0.5D0*W(1), SO4FR) ! NA2SO4 NAFR = MAX (W(1) - 2.D0*CHI1, ZERO) SO4FR = MAX (SO4FR - CHI1, ZERO) CHI8 = MIN (W(8), SO4FR) ! CMGSO4 FRMG = MAX(W(8) - CHI8, ZERO) SO4FR = MAX(SO4FR - CHI8, ZERO) CHI3 = ZERO CHI5 = W(4) CHI6 = W(5) CHI2 = MAX (SO4FR, ZERO) CHI4 = MAX (W(3)-2.D0*CHI2, ZERO) C PSI1 = CHI1 PSI2 = CHI2 PSI3 = ZERO PSI4 = ZERO PSI5 = ZERO PSI6 = ZERO PSI7 = CHI7 PSI8 = CHI8 PSI6LO = TINY PSI6HI = CHI6-TINY ! MIN(CHI6-TINY, CHI4) C WATER = CHI2/M0(4) + CHI1/M0(2) + CHI7/M0(17) + CHI8/M0(21) WATER = MAX (WATER , TINY) C C *** INITIAL VALUES FOR BISECTION ************************************ C X1 = PSI6LO Y1 = FUNCO7 (X1) IF (CHI6.LE.TINY) GOTO 50 ccc IF (ABS(Y1).LE.EPS .OR. CHI6.LE.TINY) GOTO 50 ccc IF (WATER .LE. TINY) RETURN ! No water C C *** ROOT TRACKING ; FOR THE RANGE OF HI AND LO ********************** C DX = (PSI6HI-PSI6LO)/FLOAT(NDIV) DO 10 I=1,NDIV X2 = X1+DX Y2 = FUNCO7 (X2) IF (SIGN(1.d0,Y1)*SIGN(1.d0,Y2).LT.ZERO) GOTO 20 ! (Y1*Y2.LT.ZERO) X1 = X2 Y1 = Y2 10 CONTINUE C C *** NO SUBDIVISION WITH SOLUTION; IF ABS(Y2) 2.0 ; R(Cr+Na) < 2.0) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : CaSO4 C 4. Completely dissolved: NH4NO3, NH4CL, (NH4)2SO4, MgSO4, NA2SO4, K2SO4 C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C DOUBLE PRECISION FUNCTION FUNCO7 (X) INCLUDE 'isrpia.inc' C DOUBLE PRECISION LAMDA COMMON /CASEO/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, LAMDA, PSI1, PSI2, PSI3, PSI4, PSI5, & PSI6, PSI7, PSI8, PSI9, A1, A2, A3, A4, & A5, A6, A7, A8, A9 C C *** SETUP PARAMETERS ************************************************ C PSI6 = X FRST = .TRUE. CALAIN = .TRUE. C C *** SOLVE EQUATIONS ; WITH ITERATIONS FOR ACTIVITY COEF. ************ C DO 10 I=1,NSWEEP C A4 = (XK2/XKW)*R*TEMP*(GAMA(10)/GAMA(5))**2.0 A5 = XK4 *R*TEMP*(WATER/GAMA(10))**2.0 A6 = XK3 *R*TEMP*(WATER/GAMA(11))**2.0 C C IF (CHI5.GE.TINY) THEN PSI5 = PSI6*CHI5/(A6/A5*(CHI6-PSI6) + PSI6) PSI5 = MIN (PSI5,CHI5) ELSE PSI5 = TINY ENDIF C CCC IF(CHI4.GT.TINY) THEN IF(W(2).GT.TINY) THEN ! Accounts for NH3 evaporation BB =-(CHI4 + PSI6 + PSI5 + 1.d0/A4) CC = CHI4*(PSI5+PSI6) - 2.d0*PSI2/A4 DD = MAX(BB*BB-4.d0*CC,ZERO) ! Patch proposed by Uma Shankar, 19/11/01 PSI4 =0.5d0*(-BB - SQRT(DD)) PSI4 = MAX (MIN (PSI4,CHI4), ZERO) ELSE PSI4 = TINY ENDIF C C *** SAVE CONCENTRATIONS IN MOLAL ARRAY ****************************** C MOLAL (2) = 2.0D0*PSI1 ! Na+ MOLAL (3) = 2.0D0*PSI2 + PSI4 ! NH4I MOLAL (4) = PSI6 ! CLI MOLAL (5) = PSI1+PSI2+PSI7+PSI8 ! SO4I MOLAL (6) = ZERO ! HSO4 MOLAL (7) = PSI5 ! NO3I MOLAL (8) = ZERO ! CaI MOLAL (9) = 2.0D0*PSI7 ! KI MOLAL (10)= PSI8 ! Mg C C *** CALCULATE HSO4 SPECIATION AND RETURN ******************************* C CCC MOLAL (1) = MAX(CHI5 - PSI5, TINY)*A5/PSI5 ! HI SMIN = 2.d0*MOLAL(5)+MOLAL(7)+MOLAL(4)-MOLAL(2)-MOLAL(3) & -MOLAL(9)-2.D0*MOLAL(10) CALL CALCPH (SMIN, HI, OHI) MOLAL (1) = HI C C *** CALCULATE GAS / SOLID SPECIES (LIQUID IN MOLAL ALREADY) ********* C GNH3 = MAX(CHI4 - PSI4, TINY) GHNO3 = MAX(CHI5 - PSI5, TINY) GHCL = MAX(CHI6 - PSI6, TINY) C CNA2SO4 = ZERO CNH42S4 = ZERO CNH4NO3 = ZERO CNH4Cl = ZERO CK2SO4 = ZERO CMGSO4 = ZERO CCASO4 = CHI9 C C *** CALCULATE MOLALR ARRAY, WATER AND ACTIVITIES ********************** C CALL CALCMR C C *** CALCULATE ACTIVITIES OR TERMINATE INTERNAL LOOP ***************** C IF (FRST.AND.CALAOU .OR. .NOT.FRST.AND.CALAIN) THEN CALL CALCACT ELSE GOTO 20 ENDIF 10 CONTINUE C C *** CALCULATE FUNCTION VALUE FOR OUTER LOOP *************************** C 20 FUNCO7 = MOLAL(1)*MOLAL(4)/GHCL/A6 - ONE CCC FUNCG5A = MOLAL(3)*MOLAL(4)/GHCL/GNH3/A6/A4 - ONE C RETURN C C *** END OF FUNCTION FUNCO7 ******************************************* C END C C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE CALCO6 C *** CASE O6 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. (Rsulfate > 2.0 ; R(Cr+Na) < 2.0) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : K2SO4, CASO4 C 4. Completely dissolved: NH4NO3, NH4CL, (NH4)2SO4, MGSO4, NA2SO4 C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCO6 INCLUDE 'isrpia.inc' C DOUBLE PRECISION LAMDA COMMON /CASEO/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, LAMDA, PSI1, PSI2, PSI3, PSI4, PSI5, & PSI6, PSI7, PSI8, PSI9, A1, A2, A3, A4, & A5, A6, A7, A8, A9 C C *** SETUP PARAMETERS ************************************************ C CALAOU = .TRUE. CHI9 = MIN (W(6), W(2)) ! CCASO4 SO4FR = MAX (W(2)-CHI9, ZERO) CAFR = MAX (W(6)-CHI9, ZERO) CHI7 = MIN (0.5D0*W(7), SO4FR) ! CK2SO4 FRK = MAX (W(7) - 2.D0*CHI7, ZERO) SO4FR = MAX (SO4FR - CHI7, ZERO) CHI1 = MIN (0.5D0*W(1), SO4FR) ! NA2SO4 NAFR = MAX (W(1) - 2.D0*CHI1, ZERO) SO4FR = MAX (SO4FR - CHI1, ZERO) CHI8 = MIN (W(8), SO4FR) ! CMGSO4 FRMG = MAX(W(8) - CHI8, ZERO) SO4FR = MAX(SO4FR - CHI8, ZERO) CHI3 = ZERO CHI5 = W(4) CHI6 = W(5) CHI2 = MAX (SO4FR, ZERO) CHI4 = MAX (W(3)-2.D0*CHI2, ZERO) C C PSI1 = CHI1 PSI2 = CHI2 PSI3 = ZERO PSI7 = ZERO PSI8 = CHI8 PSI6LO = TINY PSI6HI = CHI6-TINY ! MIN(CHI6-TINY, CHI4) C WATER = CHI2/M0(4) + CHI1/M0(2) + CHI7/M0(17) + CHI8/M0(21) WATER = MAX (WATER , TINY) C C *** INITIAL VALUES FOR BISECTION ************************************ C X1 = PSI6LO Y1 = FUNCO6 (X1) IF (CHI6.LE.TINY) GOTO 50 ccc IF (ABS(Y1).LE.EPS .OR. CHI6.LE.TINY) GOTO 50 ccc IF (WATER .LE. TINY) RETURN ! No water C C *** ROOT TRACKING ; FOR THE RANGE OF HI AND LO ********************** C DX = (PSI6HI-PSI6LO)/FLOAT(NDIV) DO 10 I=1,NDIV X2 = X1+DX Y2 = FUNCO6 (X2) IF (SIGN(1.d0,Y1)*SIGN(1.d0,Y2).LT.ZERO) GOTO 20 ! (Y1*Y2.LT.ZERO) X1 = X2 Y1 = Y2 10 CONTINUE C C *** NO SUBDIVISION WITH SOLUTION; IF ABS(Y2) 2.0 ; R(Cr+Na) < 2.0) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : CaSO4 , K2SO4 C 4. Completely dissolved: NH4NO3, NH4CL, (NH4)2SO4, MgSO4, NA2SO4 C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C DOUBLE PRECISION FUNCTION FUNCO6 (X) INCLUDE 'isrpia.inc' C DOUBLE PRECISION LAMDA COMMON /CASEO/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, LAMDA, PSI1, PSI2, PSI3, PSI4, PSI5, & PSI6, PSI7, PSI8, PSI9, A1, A2, A3, A4, & A5, A6, A7, A8, A9 C C *** SETUP PARAMETERS ************************************************ C PSI6 = X FRST = .TRUE. CALAIN = .TRUE. C C *** SOLVE EQUATIONS ; WITH ITERATIONS FOR ACTIVITY COEF. ************ C DO 10 I=1,NSWEEP C A4 = (XK2/XKW)*R*TEMP*(GAMA(10)/GAMA(5))**2.0 A5 = XK4 *R*TEMP*(WATER/GAMA(10))**2.0 A6 = XK3 *R*TEMP*(WATER/GAMA(11))**2.0 A7 = XK17 *(WATER/GAMA(17))**3.0 C C IF (CHI5.GE.TINY) THEN PSI5 = PSI6*CHI5/(A6/A5*(CHI6-PSI6) + PSI6) PSI5 = MIN (PSI5,CHI5) ELSE PSI5 = TINY ENDIF C CCC IF(CHI4.GT.TINY) THEN IF(W(2).GT.TINY) THEN ! Accounts for NH3 evaporation BB =-(CHI4 + PSI6 + PSI5 + 1.d0/A4) CC = CHI4*(PSI5+PSI6) - 2.d0*PSI2/A4 DD = MAX(BB*BB-4.d0*CC,ZERO) ! Patch proposed by Uma Shankar, 19/11/01 PSI4 =0.5d0*(-BB - SQRT(DD)) PSI4 = MAX (MIN (PSI4,CHI4), ZERO) ELSE PSI4 = TINY ENDIF C IF (CHI7.GT.TINY .AND. WATER.GT.TINY) THEN ! PSI7 CALL POLY3 (PSI1+PSI2+PSI8, ZERO, -A7/4.D0, PSI7, ISLV) IF (ISLV.EQ.0) THEN PSI7 = MAX (MIN (PSI7, CHI7), ZERO) ELSE PSI7 = ZERO ENDIF ELSE PSI7 = ZERO ENDIF C C C *** SAVE CONCENTRATIONS IN MOLAL ARRAY ****************************** C MOLAL (2) = 2.0D0*PSI1 ! Na+ MOLAL (3) = 2.0D0*PSI2 + PSI4 ! NH4I MOLAL (4) = PSI6 ! CLI MOLAL (5) = PSI1+PSI2+PSI7+PSI8 ! SO4I MOLAL (6) = ZERO ! HSO4 MOLAL (7) = PSI5 ! NO3I MOLAL (8) = ZERO ! CaI MOLAL (9) = 2.0D0*PSI7 ! KI MOLAL (10)= PSI8 ! Mg C C *** CALCULATE HSO4 SPECIATION AND RETURN ******************************* C CCC MOLAL (1) = MAX(CHI5 - PSI5, TINY)*A5/PSI5 ! HI SMIN = 2.d0*MOLAL(5)+MOLAL(7)+MOLAL(4)-MOLAL(2)-MOLAL(3) & -MOLAL(9)-2.D0*MOLAL(10) CALL CALCPH (SMIN, HI, OHI) MOLAL (1) = HI C C *** CALCULATE GAS / SOLID SPECIES (LIQUID IN MOLAL ALREADY) ********* C GNH3 = MAX(CHI4 - PSI4, TINY) GHNO3 = MAX(CHI5 - PSI5, TINY) GHCL = MAX(CHI6 - PSI6, TINY) C CNA2SO4 = ZERO CNH42S4 = ZERO CNH4NO3 = ZERO CNH4Cl = ZERO CK2SO4 = MAX(CHI7 - PSI7, TINY) CMGSO4 = ZERO CCASO4 = CHI9 C C *** CALCULATE MOLALR ARRAY, WATER AND ACTIVITIES ********************** C CALL CALCMR C C *** CALCULATE ACTIVITIES OR TERMINATE INTERNAL LOOP ***************** C IF (FRST.AND.CALAOU .OR. .NOT.FRST.AND.CALAIN) THEN CALL CALCACT ELSE GOTO 20 ENDIF 10 CONTINUE C C *** CALCULATE FUNCTION VALUE FOR OUTER LOOP *************************** C 20 FUNCO6 = MOLAL(1)*MOLAL(4)/GHCL/A6 - ONE CCC FUNCG5A = MOLAL(3)*MOLAL(4)/GHCL/GNH3/A6/A4 - ONE C RETURN C C *** END OF FUNCTION FUNCO6 ******************************************* C END C C C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE CALCO5 C *** CASE O5 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. (Rsulfate > 2.0 ; R(Cr+Na) < 2.0) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : K2SO4, CASO4, NA2SO4 C 4. Completely dissolved: NH4NO3, NH4CL, (NH4)2SO4, MGSO4 C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCO5 INCLUDE 'isrpia.inc' C DOUBLE PRECISION LAMDA COMMON /CASEO/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, LAMDA, PSI1, PSI2, PSI3, PSI4, PSI5, & PSI6, PSI7, PSI8, PSI9, A1, A2, A3, A4, & A5, A6, A7, A8, A9 C C *** SETUP PARAMETERS ************************************************ C CALAOU = .TRUE. CHI9 = MIN (W(6), W(2)) ! CCASO4 SO4FR = MAX (W(2)-CHI9, ZERO) CAFR = MAX (W(6)-CHI9, ZERO) CHI7 = MIN (0.5D0*W(7), SO4FR) ! CK2SO4 FRK = MAX (W(7) - 2.D0*CHI7, ZERO) SO4FR = MAX (SO4FR - CHI7, ZERO) CHI1 = MIN (0.5D0*W(1), SO4FR) ! NA2SO4 NAFR = MAX (W(1) - 2.D0*CHI1, ZERO) SO4FR = MAX (SO4FR - CHI1, ZERO) CHI8 = MIN (W(8), SO4FR) ! CMGSO4 FRMG = MAX(W(8) - CHI8, ZERO) SO4FR = MAX(SO4FR - CHI8, ZERO) CHI3 = ZERO CHI5 = W(4) CHI6 = W(5) CHI2 = MAX (SO4FR, ZERO) CHI4 = MAX (W(3)-2.D0*CHI2, ZERO) C PSI1 = ZERO PSI2 = CHI2 PSI3 = ZERO PSI7 = ZERO PSI8 = CHI8 PSI6LO = TINY PSI6HI = CHI6-TINY ! MIN(CHI6-TINY, CHI4) C WATER = CHI2/M0(4) + CHI1/M0(2) + CHI7/M0(17) + CHI8/M0(21) WATER = MAX (WATER , TINY) C C *** INITIAL VALUES FOR BISECTION ************************************ C X1 = PSI6LO Y1 = FUNCO5 (X1) IF (CHI6.LE.TINY) GOTO 50 ccc IF (ABS(Y1).LE.EPS .OR. CHI6.LE.TINY) GOTO 50 ccc IF (WATER .LE. TINY) RETURN ! No water C C *** ROOT TRACKING ; FOR THE RANGE OF HI AND LO ********************** C DX = (PSI6HI-PSI6LO)/FLOAT(NDIV) DO 10 I=1,NDIV X2 = X1+DX Y2 = FUNCO5 (X2) IF (SIGN(1.d0,Y1)*SIGN(1.d0,Y2).LT.ZERO) GOTO 20 ! (Y1*Y2.LT.ZERO) X1 = X2 Y1 = Y2 10 CONTINUE C C *** NO SUBDIVISION WITH SOLUTION; IF ABS(Y2) 2.0 ; R(Cr+Na) < 2.0) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : K2SO4, CASO4, NA2SO4 C 4. Completely dissolved: NH4NO3, NH4CL, (NH4)2SO4, MGSO4 C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C DOUBLE PRECISION FUNCTION FUNCO5 (X) INCLUDE 'isrpia.inc' C DOUBLE PRECISION LAMDA COMMON /CASEO/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, LAMDA, PSI1, PSI2, PSI3, PSI4, PSI5, & PSI6, PSI7, PSI8, PSI9, A1, A2, A3, A4, & A5, A6, A7, A8, A9 C C *** SETUP PARAMETERS ************************************************ C PSI6 = X FRST = .TRUE. CALAIN = .TRUE. C C *** SOLVE EQUATIONS ; WITH ITERATIONS FOR ACTIVITY COEF. ************ C DO 10 I=1,NSWEEP C A1 = XK5 *(WATER/GAMA(2))**3.0 A4 = (XK2/XKW)*R*TEMP*(GAMA(10)/GAMA(5))**2.0 A5 = XK4 *R*TEMP*(WATER/GAMA(10))**2.0 A6 = XK3 *R*TEMP*(WATER/GAMA(11))**2.0 A7 = XK17 *(WATER/GAMA(17))**3.0 C C IF (CHI5.GE.TINY) THEN PSI5 = PSI6*CHI5/(A6/A5*(CHI6-PSI6) + PSI6) PSI5 = MIN (PSI5,CHI5) ELSE PSI5 = TINY ENDIF C CCC IF(CHI4.GT.TINY) THEN IF(W(2).GT.TINY) THEN ! Accounts for NH3 evaporation BB =-(CHI4 + PSI6 + PSI5 + 1.d0/A4) CC = CHI4*(PSI5+PSI6) - 2.d0*PSI2/A4 DD = MAX(BB*BB-4.d0*CC,ZERO) ! Patch proposed by Uma Shankar, 19/11/01 PSI4 =0.5d0*(-BB - SQRT(DD)) PSI4 = MAX (MIN (PSI4,CHI4), ZERO) ELSE PSI4 = TINY ENDIF C IF (CHI7.GT.TINY .AND. WATER.GT.TINY) THEN ! PSI7 CALL POLY3 ((PSI2+PSI8)/(SQRT(A1/A7)+1.D0), ZERO, & -A7/4.D0/(SQRT(A1/A7)+1.D0), PSI7, ISLV) IF (ISLV.EQ.0) THEN PSI7 = MAX (MIN (PSI7, CHI7), ZERO) ELSE PSI7 = ZERO ENDIF ELSE PSI7 = ZERO ENDIF C IF (CHI1.GE.TINY) THEN ! PSI1 PSI1 = SQRT(A1/A7)*PSI7 PSI1 = MIN(PSI1,CHI1) ELSE PSI1 = ZERO ENDIF C C C *** SAVE CONCENTRATIONS IN MOLAL ARRAY ****************************** C MOLAL (2) = 2.0D0*PSI1 ! NaI MOLAL (3) = 2.0D0*PSI2 + PSI4 ! NH4I MOLAL (4) = PSI6 ! CLI MOLAL (5) = PSI1+PSI2+PSI7+PSI8 ! SO4I MOLAL (6) = ZERO ! HSO4 MOLAL (7) = PSI5 ! NO3I MOLAL (8) = ZERO ! CaI MOLAL (9) = 2.0D0*PSI7 ! KI MOLAL (10)= PSI8 ! Mg C C *** CALCULATE HSO4 SPECIATION AND RETURN ******************************* C CCC MOLAL (1) = MAX(CHI5 - PSI5, TINY)*A5/PSI5 ! HI SMIN = 2.d0*MOLAL(5)+MOLAL(7)+MOLAL(4)-MOLAL(2)-MOLAL(3) & -MOLAL(9)-2.D0*MOLAL(10) CALL CALCPH (SMIN, HI, OHI) MOLAL (1) = HI C C *** CALCULATE GAS / SOLID SPECIES (LIQUID IN MOLAL ALREADY) ********* C GNH3 = MAX(CHI4 - PSI4, TINY) GHNO3 = MAX(CHI5 - PSI5, TINY) GHCL = MAX(CHI6 - PSI6, TINY) C CNA2SO4 = MAX(CHI1 - PSI1, TINY) CNH42S4 = ZERO CNH4NO3 = ZERO CNH4Cl = ZERO CK2SO4 = MAX(CHI7 - PSI7, TINY) CMGSO4 = ZERO CCASO4 = CHI9 C C *** CALCULATE MOLALR ARRAY, WATER AND ACTIVITIES ********************** C CALL CALCMR C C *** CALCULATE ACTIVITIES OR TERMINATE INTERNAL LOOP ***************** C IF (FRST.AND.CALAOU .OR. .NOT.FRST.AND.CALAIN) THEN CALL CALCACT ELSE GOTO 20 ENDIF 10 CONTINUE C C *** CALCULATE FUNCTION VALUE FOR OUTER LOOP *************************** C 20 FUNCO5 = MOLAL(1)*MOLAL(4)/GHCL/A6 - ONE CCC FUNCG5A = MOLAL(3)*MOLAL(4)/GHCL/GNH3/A6/A4 - ONE C RETURN C C *** END OF FUNCTION FUNCO5 ******************************************* C END C C C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE CALCO4 C *** CASE O4 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. (Rsulfate > 2.0 ; R(Cr+Na) < 2.0) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : NA2SO4, K2SO4, MGSO4, CASO4 C 4. Completely dissolved: NH4NO3, NH4CL, (NH4)2SO4 C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCO4 INCLUDE 'isrpia.inc' C DOUBLE PRECISION LAMDA COMMON /CASEO/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, LAMDA, PSI1, PSI2, PSI3, PSI4, PSI5, & PSI6, PSI7, PSI8, PSI9, A1, A2, A3, A4, & A5, A6, A7, A8, A9 C C *** SETUP PARAMETERS ************************************************ C CALAOU = .TRUE. CHI9 = MIN (W(6), W(2)) ! CCASO4 SO4FR = MAX (W(2)-CHI9, ZERO) CAFR = MAX (W(6)-CHI9, ZERO) CHI7 = MIN (0.5D0*W(7), SO4FR) ! CK2SO4 FRK = MAX (W(7) - 2.D0*CHI7, ZERO) SO4FR = MAX (SO4FR - CHI7, ZERO) CHI1 = MIN (0.5D0*W(1), SO4FR) ! NA2SO4 NAFR = MAX (W(1) - 2.D0*CHI1, ZERO) SO4FR = MAX (SO4FR - CHI1, ZERO) CHI8 = MIN (W(8), SO4FR) ! CMGSO4 FRMG = MAX(W(8) - CHI8, ZERO) SO4FR = MAX(SO4FR - CHI8, ZERO) CHI3 = ZERO CHI5 = W(4) CHI6 = W(5) CHI2 = MAX (SO4FR, ZERO) CHI4 = MAX (W(3)-2.D0*CHI2, ZERO) C PSI2 = CHI2 PSI3 = ZERO PSI7 = ZERO PSI8 = CHI8 PSI6LO = TINY PSI6HI = CHI6-TINY ! MIN(CHI6-TINY, CHI4) C WATER = CHI2/M0(4) + CHI1/M0(2) + CHI7/M0(17) + CHI8/M0(21) WATER = MAX (WATER , TINY) C C *** INITIAL VALUES FOR BISECTION ************************************ C X1 = PSI6LO Y1 = FUNCO4 (X1) IF (CHI6.LE.TINY) GOTO 50 CCC IF (ABS(Y1).LE.EPS .OR. CHI6.LE.TINY) GOTO 50 CCC IF (WATER .LE. TINY) GOTO 50 ! No water C C *** ROOT TRACKING ; FOR THE RANGE OF HI AND LO ********************** C DX = (PSI6HI-PSI6LO)/FLOAT(NDIV) DO 10 I=1,NDIV X2 = X1+DX Y2 = FUNCO4 (X2) IF (SIGN(1.d0,Y1)*SIGN(1.d0,Y2).LT.ZERO) GOTO 20 ! (Y1*Y2.LT.ZERO) X1 = X2 Y1 = Y2 10 CONTINUE C C *** NO SUBDIVISION WITH SOLUTION; IF ABS(Y2) 2.0) ; SODIUM POOR (SODRAT < 2.0) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : (NH4)2SO4, NH4CL, NA2SO4 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C DOUBLE PRECISION FUNCTION FUNCO4 (X) INCLUDE 'isrpia.inc' C DOUBLE PRECISION LAMDA COMMON /CASEO/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, LAMDA, PSI1, PSI2, PSI3, PSI4, PSI5, & PSI6, PSI7, PSI8, PSI9, A1, A2, A3, A4, & A5, A6, A7, A8, A9 C C *** SETUP PARAMETERS ************************************************ C PSI6 = X PSI2 = CHI2 FRST = .TRUE. CALAIN = .TRUE. C C *** SOLVE EQUATIONS ; WITH ITERATIONS FOR ACTIVITY COEF. ************ C DO 10 I=1,NSWEEP C A1 = XK5 *(WATER/GAMA(2))**3.0 A4 = (XK2/XKW)*R*TEMP*(GAMA(10)/GAMA(5))**2.0 A5 = XK4 *R*TEMP*(WATER/GAMA(10))**2.0 A6 = XK3 *R*TEMP*(WATER/GAMA(11))**2.0 A7 = XK17 *(WATER/GAMA(17))**3.0 C A8 = XK23 *(WATER/GAMA(21))**2.0 C C CALCULATE DISSOCIATION QUANTITIES C IF (CHI5.GE.TINY) THEN PSI5 = PSI6*CHI5/(A6/A5*(CHI6-PSI6) + PSI6) PSI5 = MIN (PSI5,CHI5) ELSE PSI5 = TINY ENDIF C CCC IF(CHI4.GT.TINY) THEN IF(W(2).GT.TINY) THEN ! Accounts for NH3 evaporation BB =-(CHI4 + PSI6 + PSI5 + 1.d0/A4) CC = CHI4*(PSI5+PSI6) - 2.d0*PSI2/A4 DD = MAX(BB*BB-4.d0*CC,ZERO) ! Patch proposed by Uma Shankar, 19/11/01 PSI4 =0.5d0*(-BB - SQRT(DD)) PSI4 = MAX (MIN (PSI4,CHI4), ZERO) ELSE PSI4 = TINY ENDIF C IF (CHI7.GT.TINY .AND. WATER.GT.TINY) THEN ! PSI7 CALL POLY3 (PSI2+PSI8, ZERO, -A7/4.D0, PSI7, ISLV) IF (ISLV.EQ.0) THEN PSI7 = MAX (MIN (PSI7, CHI7), ZERO) ELSE PSI7 = ZERO ENDIF ELSE PSI7 = ZERO ENDIF C C *** CALCULATE GAS / SOLID SPECIES (LIQUID IN MOLAL ALREADY) ********* C MOLAL (2) = ZERO ! NAI MOLAL (3) = 2.0D0*PSI2 + PSI4 ! NH4I MOLAL (4) = PSI6 ! CLI MOLAL (5) = PSI2+PSI7+PSI8 ! SO4I MOLAL (6) = ZERO ! HSO4 MOLAL (7) = PSI5 ! NO3I MOLAL (8) = ZERO ! CAI MOLAL (9) = 2.0D0*PSI7 ! KI MOLAL (10)= PSI8 ! MGI C C *** CALCULATE HSO4 SPECIATION AND RETURN ******************************* C CCC MOLAL (1) = MAX(CHI5 - PSI5, TINY)*A5/PSI5 ! HI SMIN = 2.d0*MOLAL(5)+MOLAL(7)+MOLAL(4)-MOLAL(2)-MOLAL(3) & -MOLAL(9)-2.D0*MOLAL(10) CALL CALCPH (SMIN, HI, OHI) MOLAL (1) = HI C C *** CALCULATE GAS / SOLID SPECIES (LIQUID IN MOLAL ALREADY) ********* C GNH3 = MAX(CHI4 - PSI4, TINY) GHNO3 = MAX(CHI5 - PSI5, TINY) GHCL = MAX(CHI6 - PSI6, TINY) C CNH42S4 = ZERO CNH4NO3 = ZERO CNH4Cl = ZERO CK2SO4 = MAX(CHI7 - PSI7, TINY) CMGSO4 = ZERO CCASO4 = CHI9 C CALL CALCMR ! Water content C C *** CALCULATE ACTIVITIES OR TERMINATE INTERNAL LOOP ***************** C IF (FRST.AND.CALAOU .OR. .NOT.FRST.AND.CALAIN) THEN CALL CALCACT ELSE GOTO 20 ENDIF 10 CONTINUE C C *** CALCULATE FUNCTION VALUE FOR OUTER LOOP *************************** C 20 FUNCO4 = MOLAL(1)*MOLAL(4)/GHCL/A6 - ONE CCC FUNCO4 = MOLAL(3)*MOLAL(4)/GHCL/GNH3/A6/A4 - ONE C RETURN C C *** END OF FUNCTION FUNCO4 ******************************************* C END C C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE CALCO3 C *** CASE O3 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SO4RAT > 2.0), Cr+NA poor (CRNARAT < 2) C 2. SOLID & LIQUID AEROSOL POSSIBLE C 3. SOLIDS POSSIBLE : (NH4)2SO4, NH4NO3, NH4Cl, NA2SO4, K2SO4, MGSO4, CASO4 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCO3 INCLUDE 'isrpia.inc' EXTERNAL CALCO1A, CALCO4 C C *** REGIME DEPENDS ON THE EXISTANCE OF WATER AND OF THE RH ************ C IF (W(4).GT.TINY .AND. W(5).GT.TINY) THEN ! NO3,CL EXIST, WATER POSSIBLE SCASE = 'O3 ; SUBCASE 1' CALL CALCO3A SCASE = 'O3 ; SUBCASE 1' ELSE ! NO3, CL NON EXISTANT SCASE = 'O1 ; SUBCASE 1' CALL CALCO1A SCASE = 'O1 ; SUBCASE 1' ENDIF C IF (WATER.LE.TINY) THEN IF (RH.LT.DRMO3) THEN ! ONLY SOLIDS WATER = TINY DO 10 I=1,NIONS MOLAL(I) = ZERO 10 CONTINUE CALL CALCO1A SCASE = 'O3 ; SUBCASE 2' RETURN ELSE SCASE = 'O3 ; SUBCASE 3' ! MDRH REGION (NA2SO4, NH42S4, K2SO4, MGSO4, CASO4) CALL CALCMDRH2 (RH, DRMO3, DRNH42S4, CALCO1A, CALCO4) SCASE = 'O3 ; SUBCASE 3' ENDIF ENDIF C RETURN C C *** END OF SUBROUTINE CALCO3 ****************************************** C END C C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE CALCO3A C *** CASE O3 ; SUBCASE 1 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. (Rsulfate > 2.0 ; R(Cr+Na) < 2.0) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : (NH4)2SO4, NA2SO4, K2SO4, MGSO4, CASO4 C 4. Completely dissolved: NH4NO3, NH4CL C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCO3A INCLUDE 'isrpia.inc' C DOUBLE PRECISION LAMDA COMMON /CASEO/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, LAMDA, PSI1, PSI2, PSI3, PSI4, PSI5, & PSI6, PSI7, PSI8, PSI9, A1, A2, A3, A4, & A5, A6, A7, A8, A9 C C *** SETUP PARAMETERS ************************************************ C CALAOU = .TRUE. CHI9 = MIN (W(6), W(2)) ! CCASO4 SO4FR = MAX (W(2)-CHI9, ZERO) CAFR = MAX (W(6)-CHI9, ZERO) CHI7 = MIN (0.5D0*W(7), SO4FR) ! CK2SO4 FRK = MAX (W(7) - 2.D0*CHI7, ZERO) SO4FR = MAX (SO4FR - CHI7, ZERO) CHI1 = MIN (0.5D0*W(1), SO4FR) ! NA2SO4 NAFR = MAX (W(1) - 2.D0*CHI1, ZERO) SO4FR = MAX (SO4FR - CHI1, ZERO) CHI8 = MIN (W(8), SO4FR) ! CMGSO4 FRMG = MAX(W(8) - CHI8, ZERO) SO4FR = MAX(SO4FR - CHI8, ZERO) CHI3 = ZERO CHI5 = W(4) CHI6 = W(5) CHI2 = MAX (SO4FR, ZERO) CHI4 = MAX (W(3)-2.D0*CHI2, ZERO) C PSI8 = CHI8 PSI6LO = TINY PSI6HI = CHI6-TINY C WATER = TINY C C *** INITIAL VALUES FOR BISECTION ************************************ C X1 = PSI6LO Y1 = FUNCO3A (X1) IF (CHI6.LE.TINY) GOTO 50 CCC IF (ABS(Y1).LE.EPS .OR. CHI7.LE.TINY) GOTO 50 CCC IF (WATER .LE. TINY) GOTO 50 ! No water C C *** ROOT TRACKING ; FOR THE RANGE OF HI AND LO ********************** C DX = (PSI6HI-PSI6LO)/FLOAT(NDIV) DO 10 I=1,NDIV X2 = X1+DX Y2 = FUNCO3A (X2) IF (SIGN(1.d0,Y1)*SIGN(1.d0,Y2).LT.ZERO) GOTO 20 ! (Y1*Y2.LT.ZERO) X1 = X2 Y1 = Y2 10 CONTINUE C C *** NO SUBDIVISION WITH SOLUTION; IF ABS(Y2) 2.0 ; R(Cr+Na) < 2.0) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : (NH4)2SO4, NA2SO4, K2SO4, MgSO4, CaSO4 C 4. Completely dissolved: NH4NO3, NH4CL C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C DOUBLE PRECISION FUNCTION FUNCO3A (X) INCLUDE 'isrpia.inc' C DOUBLE PRECISION LAMDA COMMON /CASEO/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, LAMDA, PSI1, PSI2, PSI3, PSI4, PSI5, & PSI6, PSI7, PSI8, PSI9, A1, A2, A3, A4, & A5, A6, A7, A8, A9 C C *** SETUP PARAMETERS ************************************************ C PSI2 = CHI2 PSI8 = CHI8 PSI3 = ZERO PSI6 = X C FRST = .TRUE. CALAIN = .TRUE. C C *** SOLVE EQUATIONS ; WITH ITERATIONS FOR ACTIVITY COEF. ************ C DO 10 I=1,NSWEEP C A1 = XK5 *(WATER/GAMA(2))**3.0D0 A2 = XK7 *(WATER/GAMA(4))**3.0D0 A4 = (XK2/XKW)*R*TEMP*(GAMA(10)/GAMA(5))**2.0D0 A5 = XK4 *R*TEMP*(WATER/GAMA(10))**2.0D0 A6 = XK3 *R*TEMP*(WATER/GAMA(11))**2.0D0 A7 = XK17 *(WATER/GAMA(17))**3.0D0 C A8 = XK23 *(WATER/GAMA(21))**2.0D0 A65 = A6/A5 C C CALCULATE DISSOCIATION QUANTITIES C DENO = MAX(CHI6-PSI6-PSI3, ZERO) PSI5 = PSI6*CHI5/(A6/A5*DENO + PSI6) PSI5 = MIN(MAX(PSI5,ZERO),CHI5) C CCC IF(CHI4.GT.TINY) THEN ! PSI4 IF(W(2).GT.TINY) THEN ! Accounts for NH3 evaporation BB =-(CHI4 + PSI6 + PSI5 + 1.d0/A4) CC = CHI4*(PSI5+PSI6) - 2.d0*PSI2/A4 DD = MAX(BB*BB-4.d0*CC,ZERO) ! Patch proposed by Uma Shankar, 19/11/01 PSI4 =0.5d0*(-BB - SQRT(DD)) ELSE PSI4 = TINY ENDIF PSI4 = MIN (MAX (PSI4,ZERO), CHI4) C IF (CHI7.GT.TINY .AND. WATER.GT.TINY) THEN ! PSI7 CALL POLY3 (PSI2+PSI8, ZERO, -A7/4.D0, PSI7, ISLV) IF (ISLV.EQ.0) THEN PSI7 = MAX (MIN (PSI7, CHI7), ZERO) ELSE PSI7 = ZERO ENDIF ELSE PSI7 = ZERO ENDIF C IF (CHI2.GT.TINY .AND. WATER.GT.TINY) THEN CALL POLY3 (PSI7+PSI8+PSI4, PSI4*(PSI7+PSI8)+ & PSI4*PSI4/4.D0, (PSI4*PSI4*(PSI7+PSI8)-A2) & /4.D0,PSI20, ISLV) IF (ISLV.EQ.0) PSI2 = MIN (MAX(PSI20,ZERO), CHI2) ENDIF C PSI2 = 0.5D0*(2.0D0*SQRT(A2/A7)*PSI7 - PSI4) C PSI2 = MIN (MAX(PSI2, ZERO), CHI2) C ENDIF C C *** SAVE CONCENTRATIONS IN MOLAL ARRAY ****************************** C MOLAL (2) = ZERO ! NaI MOLAL (3) = 2.0D0*PSI2 + PSI4 ! NH4I MOLAL (4) = PSI6 ! CLI MOLAL (5) = PSI2+PSI7+PSI8 ! SO4I MOLAL (6) = ZERO ! HSO4 MOLAL (7) = PSI5 ! NO3I MOLAL (8) = ZERO ! CAI MOLAL (9) = 2.0D0*PSI7 ! KI MOLAL (10)= PSI8 ! MGI C CCC MOLAL (1) = MAX(CHI5 - PSI5, TINY)*A5/PSI5 ! HI SMIN = 2.d0*MOLAL(5)+MOLAL(7)+MOLAL(4)-MOLAL(2)-MOLAL(3) & -MOLAL(9)-2.D0*MOLAL(10) CALL CALCPH (SMIN, HI, OHI) MOLAL (1) = HI C C *** CALCULATE GAS / SOLID SPECIES (LIQUID IN MOLAL ALREADY) ********* C GNH3 = MAX(CHI4 - PSI4, TINY) GHNO3 = MAX(CHI5 - PSI5, TINY) GHCL = MAX(CHI6 - PSI6, TINY) C C CNA2SO4 = MAX(CHI1 - PSI1, ZERO) CNH42S4 = MAX(CHI2 - PSI2, ZERO) CNH4NO3 = ZERO CNH4Cl = ZERO CK2SO4 = MAX(CHI7 - PSI7, ZERO) CMGSO4 = ZERO CCASO4 = CHI9 C C *** CALCULATE MOLALR ARRAY, WATER AND ACTIVITIES ********************** C CALL CALCMR C C *** CALCULATE ACTIVITIES OR TERMINATE INTERNAL LOOP ***************** C IF (FRST.AND.CALAOU .OR. .NOT.FRST.AND.CALAIN) THEN CALL CALCACT ELSE GOTO 20 ENDIF 10 CONTINUE C C *** CALCULATE FUNCTION VALUE FOR OUTER LOOP *************************** C 20 FUNCO3A = MOLAL(1)*MOLAL(4)/GHCL/A6 - ONE C C RETURN C C *** END OF FUNCTION FUNCO3A ******************************************* C END C C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE CALCO2 C *** CASE O2 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SO4RAT > 2.0), Cr+NA poor (CRNARAT < 2) C 2. SOLID & LIQUID AEROSOL POSSIBLE C 3. SOLIDS POSSIBLE : (NH4)2SO4, NH4NO3, NH4Cl, NA2SO4, K2SO4, MGSO4, CASO4 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCO2 INCLUDE 'isrpia.inc' EXTERNAL CALCO1A, CALCO3A, CALCO4 C C *** REGIME DEPENDS ON THE EXISTANCE OF NITRATES *********************** C IF (W(4).GT.TINY) THEN ! NO3 EXISTS, WATER POSSIBLE SCASE = 'O2 ; SUBCASE 1' CALL CALCO2A SCASE = 'O2 ; SUBCASE 1' ELSE ! NO3 NON EXISTANT, WATER NOT POSSIBLE SCASE = 'O1 ; SUBCASE 1' CALL CALCO1A SCASE = 'O1 ; SUBCASE 1' ENDIF C C *** REGIME DEPENDS ON THE EXISTANCE OF WATER AND OF THE RH ************ C IF (WATER.LE.TINY) THEN IF (RH.LT.DRMO2) THEN ! ONLY SOLIDS WATER = TINY DO 10 I=1,NIONS MOLAL(I) = ZERO 10 CONTINUE CALL CALCO1A SCASE = 'O2 ; SUBCASE 2' ELSE IF (W(5).GT. TINY) THEN SCASE = 'O2 ; SUBCASE 3' ! MDRH (NH4CL, NA2SO4, NH42S4, K2SO4, MGSO4, CASO4) CALL CALCMDRH2 (RH, DRMO2, DRNH4CL, CALCO1A, CALCO3A) SCASE = 'O2 ; SUBCASE 3' ENDIF IF (WATER.LE.TINY .AND. RH.GE.DRMO3) THEN SCASE = 'O2 ; SUBCASE 4' ! MDRH (NA2SO4, NH42S4, K2SO4, MGSO4, CASO4) CALL CALCMDRH2 (RH, DRMO3, DRNH42S4, CALCO1A, CALCO4) SCASE = 'O2 ; SUBCASE 4' ELSE WATER = TINY DO 20 I=1,NIONS MOLAL(I) = ZERO 20 CONTINUE CALL CALCO1A SCASE = 'O2 ; SUBCASE 2' ENDIF ENDIF ENDIF C RETURN C C *** END OF SUBROUTINE CALCO2 ****************************************** C END C C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE CALCO2A C *** CASE O2 ; SUBCASE 1 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. (Rsulfate > 2.0 ; R(Cr+Na) < 2.0) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : (NH4)2SO4, NH4CL, NA2SO4, K2SO4, MgSO4, CaSO4 C 4. Completely dissolved: NH4NO3 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCO2A INCLUDE 'isrpia.inc' C DOUBLE PRECISION LAMDA COMMON /CASEO/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, LAMDA, PSI1, PSI2, PSI3, PSI4, PSI5, & PSI6, PSI7, PSI8, PSI9, A1, A2, A3, A4, & A5, A6, A7, A8, A9 C C *** SETUP PARAMETERS ************************************************* C CALAOU = .TRUE. CHI9 = MIN (W(6), W(2)) ! CCASO4 SO4FR = MAX (W(2)-CHI9, ZERO) CAFR = MAX (W(6)-CHI9, ZERO) CHI7 = MIN (0.5D0*W(7), SO4FR) ! CK2SO4 FRK = MAX (W(7) - 2.D0*CHI7, ZERO) SO4FR = MAX (SO4FR - CHI7, ZERO) CHI1 = MIN (0.5D0*W(1), SO4FR) ! NA2SO4 NAFR = MAX (W(1) - 2.D0*CHI1, ZERO) SO4FR = MAX (SO4FR - CHI1, ZERO) CHI8 = MIN (W(8), SO4FR) ! CMGSO4 FRMG = MAX(W(8) - CHI8, ZERO) SO4FR = MAX(SO4FR - CHI8, ZERO) CHI3 = ZERO CHI5 = W(4) CHI6 = W(5) CHI2 = MAX (SO4FR, ZERO) CHI4 = MAX (W(3)-2.D0*CHI2, ZERO) C PSI8 = CHI8 PSI6LO = TINY PSI6HI = CHI6-TINY C WATER = TINY C C *** INITIAL VALUES FOR BISECTION ************************************* C X1 = PSI6LO Y1 = FUNCO2A (X1) IF (CHI6.LE.TINY) GOTO 50 CCC IF (ABS(Y1).LE.EPS .OR. CHI6.LE.TINY) GOTO 50 CCC IF (WATER .LE. TINY) GOTO 50 ! No water C C *** ROOT TRACKING ; FOR THE RANGE OF HI AND LO *********************** C DX = (PSI6HI-PSI6LO)/FLOAT(NDIV) DO 10 I=1,NDIV X2 = X1+DX Y2 = FUNCO2A (X2) IF (SIGN(1.d0,Y1)*SIGN(1.d0,Y2).LT.ZERO) GOTO 20 ! (Y1*Y2.LT.ZERO) X1 = X2 Y1 = Y2 10 CONTINUE C C *** NO SUBDIVISION WITH SOLUTION; IF ABS(Y2) 2.0 ; R(Cr+Na) < 2.0) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : (NH4)2SO4, NH4CL, NA2SO4, K2SO4, MgSO4, CaSO4 C 4. Completely dissolved: NH4NO3 C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C DOUBLE PRECISION FUNCTION FUNCO2A (X) INCLUDE 'isrpia.inc' C DOUBLE PRECISION LAMDA COMMON /CASEO/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, LAMDA, PSI1, PSI2, PSI3, PSI4, PSI5, & PSI6, PSI7, PSI8, PSI9, A1, A2, A3, A4, & A5, A6, A7, A8, A9 C C *** SETUP PARAMETERS ************************************************ C PSI6 = X PSI2 = CHI2 PSI3 = ZERO C FRST = .TRUE. CALAIN = .TRUE. C C *** SOLVE EQUATIONS ; WITH ITERATIONS FOR ACTIVITY COEF. ************ C DO 10 I=1,NSWEEP C A1 = XK5 *(WATER/GAMA(2))**3.0D0 A2 = XK7 *(WATER/GAMA(4))**3.0D0 A3 = XK6 /(R*TEMP*R*TEMP) A4 = (XK2/XKW)*R*TEMP*(GAMA(10)/GAMA(5))**2.0D0 A5 = XK4 *R*TEMP*(WATER/GAMA(10))**2.0D0 A6 = XK3 *R*TEMP*(WATER/GAMA(11))**2.0D0 A65 = A6/A5 A7 = XK17 *(WATER/GAMA(17))**3.0D0 C A8 = XK23 *(WATER/GAMA(21))**2.0D0 C DENO = MAX(CHI6-PSI6-PSI3, ZERO) PSI5 = PSI6*CHI5/(A6/A5*DENO + PSI6) PSI5 = MIN(PSI5,CHI5) C PSI4 = MIN(PSI5+PSI6,CHI4) C C IF (CHI7.GT.TINY .AND. WATER.GT.TINY) THEN ! PSI7 CALL POLY3 (PSI2+PSI8, ZERO, -A7/4.D0, PSI7, ISLV) IF (ISLV.EQ.0) THEN PSI7 = MAX (MIN (PSI7, CHI7), ZERO) ELSE PSI7 = ZERO ENDIF ELSE PSI7 = ZERO ENDIF C IF (CHI2.GT.TINY .AND. WATER.GT.TINY) THEN CALL POLY3 (PSI7+PSI8+PSI4, PSI4*(PSI7+PSI8)+ & PSI4*PSI4/4.D0, (PSI4*PSI4*(PSI7+PSI8)-A2) & /4.D0,PSI20, ISLV) IF (ISLV.EQ.0) PSI2 = MIN (MAX(PSI20,ZERO), CHI2) ENDIF C PSI2 = 0.5D0*(2.0D0*SQRT(A2/A7)*PSI7 - PSI4) C PSI2 = MIN (PSI2, CHI2) C ENDIF C C *** SAVE CONCENTRATIONS IN MOLAL ARRAY ****************************** C MOLAL (2) = ZERO ! NaI MOLAL (3) = 2.0D0*PSI2 + PSI4 ! NH4I MOLAL (4) = PSI6 ! CLI MOLAL (5) = PSI2+PSI7+PSI8 ! SO4I MOLAL (6) = ZERO ! HSO4 MOLAL (7) = PSI5 ! NO3I MOLAL (8) = ZERO ! CAI MOLAL (9) = 2.0D0*PSI7 ! KI MOLAL (10)= PSI8 ! MGI C CCC MOLAL (1) = MAX(CHI5 - PSI5, TINY)*A5/PSI5 ! HI SMIN = 2.d0*MOLAL(5)+MOLAL(7)+MOLAL(4)-MOLAL(2)-MOLAL(3) & -MOLAL(9)-2.D0*MOLAL(10) CALL CALCPH (SMIN, HI, OHI) MOLAL (1) = HI C C *** CALCULATE GAS / SOLID SPECIES (LIQUID IN MOLAL ALREADY) ********* C GNH3 = MAX(CHI4 - PSI4, TINY) GHNO3 = MAX(CHI5 - PSI5, TINY) GHCL = MAX(CHI6 - PSI6, TINY) C C CNA2SO4 = MAX(CHI1 - PSI1, ZERO) CNH42S4 = MAX(CHI2 - PSI2, ZERO) CNH4NO3 = ZERO CK2SO4 = MAX(CHI7 - PSI7, ZERO) CMGSO4 = ZERO CCASO4 = CHI9 C C *** NH4Cl(s) calculations C A3 = XK6 /(R*TEMP*R*TEMP) IF (GNH3*GHCL.GT.A3) THEN DELT = MIN(GNH3, GHCL) BB = -(GNH3+GHCL) CC = GNH3*GHCL-A3 DD = BB*BB - 4.D0*CC PSI31 = 0.5D0*(-BB + SQRT(DD)) PSI32 = 0.5D0*(-BB - SQRT(DD)) IF (DELT-PSI31.GT.ZERO .AND. PSI31.GT.ZERO) THEN PSI3 = PSI31 ELSEIF (DELT-PSI32.GT.ZERO .AND. PSI32.GT.ZERO) THEN PSI3 = PSI32 ELSE PSI3 = ZERO ENDIF ELSE PSI3 = ZERO ENDIF PSI3 = MIN(MIN(PSI3,CHI4-PSI4),CHI6-PSI6) C C *** CALCULATE GAS / SOLID SPECIES (LIQUID IN MOLAL ALREADY) ********* C GNH3 = MAX(GNH3 - PSI3, TINY) GHCL = MAX(GHCL - PSI3, TINY) CNH4CL = PSI3 C C *** CALCULATE MOLALR ARRAY, WATER AND ACTIVITIES ********************* C CALL CALCMR C C *** CALCULATE ACTIVITIES OR TERMINATE INTERNAL LOOP ***************** C IF (FRST.AND.CALAOU .OR. .NOT.FRST.AND.CALAIN) THEN CALL CALCACT ELSE GOTO 20 ENDIF 10 CONTINUE C C *** CALCULATE FUNCTION VALUE FOR OUTER LOOP ************************** C C20 IF (CHI4.LE.TINY) THEN C FUNCO2A = MOLAL(1)*MOLAL(4)/GHCL/A6 - ONE C ELSE 20 FUNCO2A = MOLAL(3)*MOLAL(4)/GHCL/GNH3/A6/A4 - ONE C ENDIF C RETURN C C *** END OF FUNCTION FUNCO2A **************************************** C END C C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE CALCO1 C *** CASE O1 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SO4RAT > 2.0), Cr+NA poor (CRNARAT < 2) C 2. SOLID & LIQUID AEROSOL POSSIBLE C 3. SOLIDS POSSIBLE : (NH4)2SO4, NH4NO3, NH4Cl, NA2SO4, K2SO4, MGSO4, CASO4 C C THERE ARE TWO POSSIBLE REGIMES HERE, DEPENDING ON RELATIVE HUMIDITY: C 1. WHEN RH >= MDRH ; LIQUID PHASE POSSIBLE (MDRH REGION) C 2. WHEN RH < MDRH ; ONLY SOLID PHASE POSSIBLE (SUBROUTINE CALCO1A) C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCO1 INCLUDE 'isrpia.inc' EXTERNAL CALCO1A, CALCO2A C C *** REGIME DEPENDS UPON THE AMBIENT RELATIVE HUMIDITY ***************** C IF (RH.LT.DRMO1) THEN SCASE = 'O1 ; SUBCASE 1' CALL CALCO1A ! SOLID PHASE ONLY POSSIBLE SCASE = 'O1 ; SUBCASE 1' ELSE SCASE = 'O1 ; SUBCASE 2' ! LIQUID & SOLID PHASE POSSIBLE CALL CALCMDRH2 (RH, DRMO1, DRNH4NO3, CALCO1A, CALCO2A) SCASE = 'O1 ; SUBCASE 2' ENDIF C RETURN C C *** END OF SUBROUTINE CALCO1 ****************************************** C END C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE CALCO1A C *** CASE O1A C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SO4RAT > 2.0), Cr+NA poor (CRNARAT < 2) C 2. SOLID AEROSOL ONLY C 3. SOLIDS POSSIBLE : (NH4)2SO4, NH4NO3, NH4Cl, NA2SO4, K2SO4, MGSO4, CASO4 C C SOLID (NH4)2SO4 IS CALCULATED FROM THE SULFATES, WHILE NH4NO3 C IS CALCULATED FROM NH3-HNO3 EQUILIBRIUM. 'ZE' IS THE AMOUNT OF C NH4NO3 THAT VOLATIZES WHEN ALL POSSILBE NH4NO3 IS INITIALLY IN C THE SOLID PHASE. C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCO1A INCLUDE 'isrpia.inc' DOUBLE PRECISION LAMDA, LAMDA1, LAMDA2, KAPA, KAPA1, KAPA2 C C *** CALCULATE NON VOLATILE SOLIDS *********************************** C CCASO4 = MIN (W(6), W(2)) ! CCASO4 SO4FR = MAX(W(2) - CCASO4, ZERO) CAFR = MAX(W(6) - CCASO4, ZERO) CK2SO4 = MIN (0.5D0*W(7), SO4FR) ! CK2S04 FRK = MAX(W(7) - 2.D0*CK2SO4, ZERO) SO4FR = MAX(SO4FR - CK2SO4, ZERO) CNA2SO4 = MIN (0.5D0*W(1), SO4FR) ! CNA2SO4 FRNA = MAX(W(1) - 2.D0*CNA2SO4, ZERO) SO4FR = MAX(SO4FR - CNA2SO4, ZERO) CMGSO4 = MIN (W(8), SO4FR) ! CMGSO4 FRMG = MAX(W(8) - CMGSO4, ZERO) SO4FR = MAX(SO4FR - CMGSO4, ZERO) C CNH42S4 = MAX (SO4FR , ZERO) ! CNH42S4 C C *** CALCULATE VOLATILE SPECIES ************************************** C ALF = W(3) - 2.0D0*CNH42S4 BET = W(5) GAM = W(4) C RTSQ = R*TEMP*R*TEMP A1 = XK6/RTSQ A2 = XK10/RTSQ ! print *, A2 C THETA1 = GAM - BET*(A2/A1) THETA2 = A2/A1 C C QUADRATIC EQUATION SOLUTION C BB = (THETA1-ALF-BET*(ONE+THETA2))/(ONE+THETA2) CC = (ALF*BET-A1-BET*THETA1)/(ONE+THETA2) DD = BB*BB - 4.0D0*CC IF (DD.LT.ZERO) GOTO 100 ! Solve each reaction seperately C C TWO ROOTS FOR KAPA, CHECK AND SEE IF ANY VALID C SQDD = SQRT(DD) KAPA1 = 0.5D0*(-BB+SQDD) KAPA2 = 0.5D0*(-BB-SQDD) LAMDA1 = THETA1 + THETA2*KAPA1 LAMDA2 = THETA1 + THETA2*KAPA2 C IF (KAPA1.GE.ZERO .AND. LAMDA1.GE.ZERO) THEN IF (ALF-KAPA1-LAMDA1.GE.ZERO .AND. & BET-KAPA1.GE.ZERO .AND. GAM-LAMDA1.GE.ZERO) THEN KAPA = KAPA1 LAMDA= LAMDA1 GOTO 200 ENDIF ENDIF C IF (KAPA2.GE.ZERO .AND. LAMDA2.GE.ZERO) THEN IF (ALF-KAPA2-LAMDA2.GE.ZERO .AND. & BET-KAPA2.GE.ZERO .AND. GAM-LAMDA2.GE.ZERO) THEN KAPA = KAPA2 LAMDA= LAMDA2 GOTO 200 ENDIF ENDIF C C SEPERATE SOLUTION OF NH4CL & NH4NO3 EQUILIBRIA C 100 KAPA = ZERO LAMDA = ZERO DD1 = (ALF+BET)*(ALF+BET) - 4.0D0*(ALF*BET-A1) DD2 = (ALF+GAM)*(ALF+GAM) - 4.0D0*(ALF*GAM-A2) C C NH4CL EQUILIBRIUM C IF (DD1.GE.ZERO) THEN SQDD1 = SQRT(DD1) KAPA1 = 0.5D0*(ALF+BET + SQDD1) KAPA2 = 0.5D0*(ALF+BET - SQDD1) C IF (KAPA1.GE.ZERO .AND. KAPA1.LE.MIN(ALF,BET)) THEN KAPA = KAPA1 ELSE IF (KAPA2.GE.ZERO .AND. KAPA2.LE.MIN(ALF,BET)) THEN KAPA = KAPA2 ELSE KAPA = ZERO ENDIF ENDIF C C NH4NO3 EQUILIBRIUM C IF (DD2.GE.ZERO) THEN SQDD2 = SQRT(DD2) LAMDA1= 0.5D0*(ALF+GAM + SQDD2) LAMDA2= 0.5D0*(ALF+GAM - SQDD2) C IF (LAMDA1.GE.ZERO .AND. LAMDA1.LE.MIN(ALF,GAM)) THEN LAMDA = LAMDA1 ELSE IF (LAMDA2.GE.ZERO .AND. LAMDA2.LE.MIN(ALF,GAM)) THEN LAMDA = LAMDA2 ELSE LAMDA = ZERO ENDIF ENDIF C C IF BOTH KAPA, LAMDA ARE > 0, THEN APPLY EXISTANCE CRITERION C IF (KAPA.GT.ZERO .AND. LAMDA.GT.ZERO) THEN IF (BET .LT. LAMDA/THETA1) THEN KAPA = ZERO ELSE LAMDA= ZERO ENDIF ENDIF C C *** CALCULATE COMPOSITION OF VOLATILE SPECIES ************************ C 200 CONTINUE CNH4NO3 = LAMDA CNH4CL = KAPA C GNH3 = MAX(ALF - KAPA - LAMDA, ZERO) GHNO3 = MAX(GAM - LAMDA, ZERO) GHCL = MAX(BET - KAPA, ZERO) C RETURN C C *** END OF SUBROUTINE CALCO1A ***************************************** C END C C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE CALCM8 C *** CASE M8 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SULRAT > 2.0) ; Rcr+Na >= 2.0 ; Rcr < 2) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : CaSO4 C 4. Completely dissolved: NH4NO3, NH4CL, NANO3, NACL, MgSO4, NA2SO4, K2SO4 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCM8 INCLUDE 'isrpia.inc' C COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** SETUP PARAMETERS ************************************************ C CALAOU = .TRUE. CHI11 = MIN (W(6), W(2)) ! CCASO4 SO4FR = MAX(W(2)-CHI11, ZERO) CAFR = MAX(W(6)-CHI11, ZERO) CHI9 = MIN (0.5D0*W(7), SO4FR) ! CK2S04 FRK = MAX(W(7)-2.D0*CHI9, ZERO) SO4FR = MAX(SO4FR-CHI9, ZERO) CHI10 = MIN (W(8), SO4FR) ! CMGSO4 FRMG = MAX(W(8)-CHI10, ZERO) SO4FR = MAX(SO4FR-CHI10, ZERO) CHI1 = MAX (SO4FR,ZERO) ! CNA2SO4 CHI2 = ZERO ! CNH42S4 CHI3 = ZERO ! CNH4CL FRNA = MAX (W(1)-2.D0*CHI1, ZERO) CHI8 = MIN (FRNA, W(4)) ! CNANO3 CHI4 = W(3) ! NH3(g) CHI5 = MAX (W(4)-CHI8, ZERO) ! HNO3(g) CHI7 = MIN (MAX(FRNA-CHI8, ZERO), W(5)) ! CNACL CHI6 = MAX (W(5)-CHI7, ZERO) ! HCL(g) C PSI6LO = TINY PSI6HI = CHI6-TINY ! MIN(CHI6-TINY, CHI4) C C *** INITIAL VALUES FOR BISECTION ************************************ C X1 = PSI6LO Y1 = FUNCM8 (X1) IF (ABS(Y1).LE.EPS .OR. CHI6.LE.TINY) GOTO 50 C C *** ROOT TRACKING ; FOR THE RANGE OF HI AND LO ********************** C DX = (PSI6HI-PSI6LO)/FLOAT(NDIV) DO 10 I=1,NDIV X2 = X1+DX Y2 = FUNCM8 (X2) IF (SIGN(1.d0,Y1)*SIGN(1.d0,Y2).LT.ZERO) GOTO 20 ! (Y1*Y2.LT.ZERO) X1 = X2 Y1 = Y2 10 CONTINUE C C *** NO SUBDIVISION WITH SOLUTION; IF ABS(Y2) 2.0) ; Rcr+Na >= 2.0 ; Rcr < 2) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : CaSO4 C 4. Completely dissolved: NH4NO3, NH4CL, NANO3, NACL, MgSO4, NA2SO4, K2SO4 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C DOUBLE PRECISION FUNCTION FUNCM8 (X) INCLUDE 'isrpia.inc' C COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** SETUP PARAMETERS ************************************************ C PSI6 = X PSI1 = CHI1 PSI2 = ZERO PSI3 = ZERO PSI7 = CHI7 PSI8 = CHI8 PSI9 = CHI9 PSI10 = CHI10 PSI11 = ZERO FRST = .TRUE. CALAIN = .TRUE. C C *** SOLVE EQUATIONS ; WITH ITERATIONS FOR ACTIVITY COEF. ************ C DO 10 I=1,NSWEEP C C A1 = XK5 *(WATER/GAMA(2))**3.0 A4 = (XK2/XKW)*R*TEMP*(GAMA(10)/GAMA(5))**2.0 A5 = XK4 *R*TEMP*(WATER/GAMA(10))**2.0 A6 = XK3 *R*TEMP*(WATER/GAMA(11))**2.0 C A7 = XK8 *(WATER/GAMA(1))**2.0 C A8 = XK9 *(WATER/GAMA(3))**2.0 C A11 = XK1*WATER/GAMA(7)*(GAMA(8)/GAMA(7))**2. C C CALCULATE DISSOCIATION QUANTITIES C PSI5 = CHI5*(PSI6+PSI7) - A6/A5*PSI8*(CHI6-PSI6-PSI3) PSI5 = PSI5/(A6/A5*(CHI6-PSI6-PSI3) + PSI6 + PSI7) PSI5 = MIN(MAX(PSI5, TINY),CHI5) C IF (W(3).GT.TINY .AND. WATER.GT.TINY) THEN ! First try 3rd order soln BB =-(CHI4 + PSI6 + PSI5 + 1.d0/A4) CC = CHI4*(PSI5+PSI6) DD = MAX(BB*BB-4.d0*CC,ZERO) PSI4 =0.5d0*(-BB - SQRT(DD)) PSI4 = MIN(MAX(PSI4,ZERO),CHI4) ELSE PSI4 = TINY ENDIF C C *** CALCULATE SPECIATION ******************************************** C MOLAL (2) = PSI8 + PSI7 + 2.D0*PSI1 ! NAI MOLAL (3) = PSI4 ! NH4I MOLAL (4) = PSI6 + PSI7 ! CLI MOLAL (5) = PSI2 + PSI1 + PSI9 + PSI10 ! SO4I MOLAL (6) = ZERO ! HSO4I MOLAL (7) = PSI5 + PSI8 ! NO3I MOLAL (8) = PSI11 ! CAI MOLAL (9) = 2.D0*PSI9 ! KI MOLAL (10)= PSI10 ! MGI C SMIN = 2.d0*MOLAL(5)+MOLAL(7)+MOLAL(4)-MOLAL(2)-MOLAL(3) & - MOLAL(9) - 2.D0*MOLAL(10) CALL CALCPH (SMIN, HI, OHI) MOLAL (1) = HI C GNH3 = MAX(CHI4 - PSI4, TINY) GHNO3 = MAX(CHI5 - PSI5, TINY) GHCL = MAX(CHI6 - PSI6, TINY) C CNH42S4 = ZERO CNH4NO3 = ZERO CNACL = ZERO CNANO3 = ZERO CNA2SO4 = ZERO CK2SO4 = ZERO CMGSO4 = ZERO CCASO4 = CHI11 C CALL CALCMR ! Water content C C *** CALCULATE ACTIVITIES OR TERMINATE INTERNAL LOOP ***************** C IF (FRST.AND.CALAOU .OR. .NOT.FRST.AND.CALAIN) THEN CALL CALCACT ELSE GOTO 20 ENDIF 10 CONTINUE C C *** CALCULATE FUNCTION VALUE FOR OUTER LOOP *************************** C C20 FUNCM8 = MOLAL(3)*MOLAL(4)/GHCL/GNH3/A6/A4 - ONE 20 FUNCM8 = MOLAL(1)*MOLAL(4)/GHCL/A6 - ONE C RETURN C C *** END OF FUNCTION FUNCM8 ******************************************* C END C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE CALCM7 C *** CASE M7 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SULRAT > 2.0) ; Rcr+Na >= 2.0 ; Rcr < 2) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : CaSO4, K2SO4 C 4. Completely dissolved: NH4NO3, NH4CL, NANO3, NACL, MgSO4, NA2SO4 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCM7 INCLUDE 'isrpia.inc' C COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** SETUP PARAMETERS ************************************************ C CALAOU = .TRUE. CHI11 = MIN (W(6), W(2)) ! CCASO4 SO4FR = MAX(W(2)-CHI11, ZERO) CAFR = MAX(W(6)-CHI11, ZERO) CHI9 = MIN (0.5D0*W(7), SO4FR) ! CK2S04 FRK = MAX(W(7)-2.D0*CHI9, ZERO) SO4FR = MAX(SO4FR-CHI9, ZERO) CHI10 = MIN (W(8), SO4FR) ! CMGSO4 FRMG = MAX(W(8)-CHI10, ZERO) SO4FR = MAX(SO4FR-CHI10, ZERO) CHI1 = MAX (SO4FR,ZERO) ! CNA2SO4 CHI2 = ZERO ! CNH42S4 CHI3 = ZERO ! CNH4CL FRNA = MAX (W(1)-2.D0*CHI1, ZERO) CHI8 = MIN (FRNA, W(4)) ! CNANO3 CHI4 = W(3) ! NH3(g) CHI5 = MAX (W(4)-CHI8, ZERO) ! HNO3(g) CHI7 = MIN (MAX(FRNA-CHI8, ZERO), W(5)) ! CNACL CHI6 = MAX (W(5)-CHI7, ZERO) ! HCL(g) C PSI6LO = TINY PSI6HI = CHI6-TINY ! MIN(CHI6-TINY, CHI4) C C *** INITIAL VALUES FOR BISECTION ************************************ C X1 = PSI6LO Y1 = FUNCM7 (X1) IF (ABS(Y1).LE.EPS .OR. CHI6.LE.TINY) GOTO 50 C C *** ROOT TRACKING ; FOR THE RANGE OF HI AND LO ********************** C DX = (PSI6HI-PSI6LO)/FLOAT(NDIV) DO 10 I=1,NDIV X2 = X1+DX Y2 = FUNCM7 (X2) IF (SIGN(1.d0,Y1)*SIGN(1.d0,Y2).LT.ZERO) GOTO 20 ! (Y1*Y2.LT.ZERO) X1 = X2 Y1 = Y2 10 CONTINUE C C *** NO SUBDIVISION WITH SOLUTION; IF ABS(Y2) 2.0) ; Rcr+Na >= 2.0 ; Rcr < 2) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : CaSO4, K2SO4 C 4. Completely dissolved: NH4NO3, NH4CL, NANO3, NACL, MgSO4, NA2SO4 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C DOUBLE PRECISION FUNCTION FUNCM7 (X) INCLUDE 'isrpia.inc' C COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** SETUP PARAMETERS ************************************************ C PSI6 = X PSI1 = CHI1 PSI2 = ZERO PSI3 = ZERO PSI7 = CHI7 PSI8 = CHI8 PSI9 = ZERO PSI10 = CHI10 PSI11 = ZERO FRST = .TRUE. CALAIN = .TRUE. C C *** SOLVE EQUATIONS ; WITH ITERATIONS FOR ACTIVITY COEF. ************ C DO 10 I=1,NSWEEP C C A1 = XK5 *(WATER/GAMA(2))**3.0 A4 = (XK2/XKW)*R*TEMP*(GAMA(10)/GAMA(5))**2.0 A5 = XK4 *R*TEMP*(WATER/GAMA(10))**2.0 A6 = XK3 *R*TEMP*(WATER/GAMA(11))**2.0 A9 = XK17 *(WATER/GAMA(17))**3.0 C A7 = XK8 *(WATER/GAMA(1))**2.0 C A8 = XK9 *(WATER/GAMA(3))**2.0 C A11 = XK1*WATER/GAMA(7)*(GAMA(8)/GAMA(7))**2. C C CALCULATE DISSOCIATION QUANTITIES C PSI5 = CHI5*(PSI6+PSI7) - A6/A5*PSI8*(CHI6-PSI6-PSI3) PSI5 = PSI5/(A6/A5*(CHI6-PSI6-PSI3) + PSI6 + PSI7) PSI5 = MIN(MAX(PSI5, TINY),CHI5) C IF (W(3).GT.TINY .AND. WATER.GT.TINY) THEN ! First try 3rd order soln BB =-(CHI4 + PSI6 + PSI5 + 1.d0/A4) CC = CHI4*(PSI5+PSI6) DD = MAX(BB*BB-4.d0*CC,ZERO) PSI4 =0.5d0*(-BB - SQRT(DD)) PSI4 = MIN(MAX(PSI4,ZERO),CHI4) ELSE PSI4 = TINY ENDIF C IF (CHI9.GT.TINY .AND. WATER.GT.TINY) THEN !K2SO4 CALL POLY3 (PSI1+PSI10,ZERO,-A9/4.D0, PSI9, ISLV) IF (ISLV.EQ.0) THEN PSI9 = MAX (MIN (PSI9,CHI9), ZERO) ELSE PSI9 = ZERO ENDIF ENDIF C C *** CALCULATE SPECIATION ******************************************** C MOLAL (2) = PSI8 + PSI7 + 2.D0*PSI1 ! NAI MOLAL (3) = PSI4 ! NH4I MOLAL (4) = PSI6 + PSI7 ! CLI MOLAL (5) = PSI2 + PSI1 + PSI9 + PSI10 ! SO4I MOLAL (6) = ZERO ! HSO4I MOLAL (7) = PSI5 + PSI8 ! NO3I MOLAL (8) = PSI11 ! CAI MOLAL (9) = 2.D0*PSI9 ! KI MOLAL (10)= PSI10 ! MGI C SMIN = 2.d0*MOLAL(5)+MOLAL(7)+MOLAL(4)-MOLAL(2)-MOLAL(3) & - MOLAL(9) - 2.D0*MOLAL(10) CALL CALCPH (SMIN, HI, OHI) MOLAL (1) = HI C GNH3 = MAX(CHI4 - PSI4, TINY) GHNO3 = MAX(CHI5 - PSI5, TINY) GHCL = MAX(CHI6 - PSI6, TINY) C CNH42S4 = ZERO CNH4NO3 = ZERO CNACL = ZERO CNANO3 = ZERO CNA2SO4 = ZERO CK2SO4 = MAX(CHI9 - PSI9, ZERO) CMGSO4 = ZERO CCASO4 = CHI11 C CALL CALCMR ! Water content C C *** CALCULATE ACTIVITIES OR TERMINATE INTERNAL LOOP ***************** C IF (FRST.AND.CALAOU .OR. .NOT.FRST.AND.CALAIN) THEN CALL CALCACT ELSE GOTO 20 ENDIF 10 CONTINUE C C *** CALCULATE FUNCTION VALUE FOR OUTER LOOP *************************** C C20 FUNCM7 = MOLAL(3)*MOLAL(4)/GHCL/GNH3/A6/A4 - ONE 20 FUNCM7 = MOLAL(1)*MOLAL(4)/GHCL/A6 - ONE C RETURN C C *** END OF FUNCTION FUNCM7 ******************************************* C END C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE CALCM6 C *** CASE M6 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SULRAT > 2.0) ; Rcr+Na >= 2.0 ; Rcr < 2) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : CaSO4, K2SO4, NA2SO4 C 4. Completely dissolved: NH4NO3, NH4CL, NANO3, NACL, MgSO4 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCM6 INCLUDE 'isrpia.inc' C COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** SETUP PARAMETERS ************************************************ C CALAOU = .TRUE. CHI11 = MIN (W(6), W(2)) ! CCASO4 SO4FR = MAX(W(2)-CHI11, ZERO) CAFR = MAX(W(6)-CHI11, ZERO) CHI9 = MIN (0.5D0*W(7), SO4FR) ! CK2S04 FRK = MAX(W(7)-2.D0*CHI9, ZERO) SO4FR = MAX(SO4FR-CHI9, ZERO) CHI10 = MIN (W(8), SO4FR) ! CMGSO4 FRMG = MAX(W(8)-CHI10, ZERO) SO4FR = MAX(SO4FR-CHI10, ZERO) CHI1 = MAX (SO4FR,ZERO) ! CNA2SO4 CHI2 = ZERO ! CNH42S4 CHI3 = ZERO ! CNH4CL FRNA = MAX (W(1)-2.D0*CHI1, ZERO) CHI8 = MIN (FRNA, W(4)) ! CNANO3 CHI4 = W(3) ! NH3(g) CHI5 = MAX (W(4)-CHI8, ZERO) ! HNO3(g) CHI7 = MIN (MAX(FRNA-CHI8, ZERO), W(5)) ! CNACL CHI6 = MAX (W(5)-CHI7, ZERO) ! HCL(g) C PSI6LO = TINY PSI6HI = CHI6-TINY ! MIN(CHI6-TINY, CHI4) C C *** INITIAL VALUES FOR BISECTION ************************************ C X1 = PSI6LO Y1 = FUNCM6 (X1) IF (ABS(Y1).LE.EPS .OR. CHI6.LE.TINY) GOTO 50 C C *** ROOT TRACKING ; FOR THE RANGE OF HI AND LO ********************** C DX = (PSI6HI-PSI6LO)/FLOAT(NDIV) DO 10 I=1,NDIV X2 = X1+DX Y2 = FUNCM6 (X2) IF (SIGN(1.d0,Y1)*SIGN(1.d0,Y2).LT.ZERO) GOTO 20 ! (Y1*Y2.LT.ZERO) X1 = X2 Y1 = Y2 10 CONTINUE C C *** NO SUBDIVISION WITH SOLUTION; IF ABS(Y2) 2.0) ; Rcr+Na >= 2.0 ; Rcr < 2) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : CaSO4, K2SO4, NA2SO4 C 4. Completely dissolved: NH4NO3, NH4CL, NANO3, NACL, MgSO4 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C DOUBLE PRECISION FUNCTION FUNCM6 (X) INCLUDE 'isrpia.inc' C COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** SETUP PARAMETERS ************************************************ C PSI6 = X PSI1 = CHI1 PSI2 = ZERO PSI3 = ZERO PSI7 = CHI7 PSI8 = CHI8 PSI9 = ZERO PSI10 = CHI10 PSI11 = ZERO FRST = .TRUE. CALAIN = .TRUE. C C *** SOLVE EQUATIONS ; WITH ITERATIONS FOR ACTIVITY COEF. ************ C DO 10 I=1,NSWEEP C A1 = XK5 *(WATER/GAMA(2))**3.0 A4 = (XK2/XKW)*R*TEMP*(GAMA(10)/GAMA(5))**2.0 A5 = XK4 *R*TEMP*(WATER/GAMA(10))**2.0 A6 = XK3 *R*TEMP*(WATER/GAMA(11))**2.0 A9 = XK17 *(WATER/GAMA(17))**3.0 C A7 = XK8 *(WATER/GAMA(1))**2.0 C A8 = XK9 *(WATER/GAMA(3))**2.0 C A11 = XK1*WATER/GAMA(7)*(GAMA(8)/GAMA(7))**2. C C CALCULATE DISSOCIATION QUANTITIES C PSI5 = CHI5*(PSI6+PSI7) - A6/A5*PSI8*(CHI6-PSI6-PSI3) PSI5 = PSI5/(A6/A5*(CHI6-PSI6-PSI3) + PSI6 + PSI7) PSI5 = MIN(MAX(PSI5, TINY),CHI5) C IF (W(3).GT.TINY .AND. WATER.GT.TINY) THEN ! First try 3rd order soln BB =-(CHI4 + PSI6 + PSI5 + 1.d0/A4) CC = CHI4*(PSI5+PSI6) DD = MAX(BB*BB-4.d0*CC,ZERO) PSI4 =0.5d0*(-BB - SQRT(DD)) PSI4 = MIN(MAX(PSI4,ZERO),CHI4) ELSE PSI4 = TINY ENDIF C IF (CHI1.GT.TINY .AND. WATER.GT.TINY) THEN !NA2SO4 RIZ = SQRT(A9/A1) AA = (0.5D0*RIZ*(PSI7+PSI8)+PSI10+(1.D0+RIZ)*(PSI7+PSI8)) & /(1.D0+RIZ) BB = ((PSI7+PSI8)*(0.5D0*RIZ*(PSI7+PSI8)+PSI10)+0.25D0* & (PSI7+PSI8)**2.0*(1.D0+RIZ))/(1.D0+RIZ) CC = (0.25D0*(PSI7+PSI8)**2.0*(0.5D0*RIZ*(PSI7+PSI8)+PSI10) & -A1/4.D0)/(1.D0+RIZ) C AA = PSI7+PSI8+PSI9+PSI10 C BB = (PSI7+PSI8)*(PSI9+PSI10)+0.25D0*(PSI7+PSI8)**2. C CC = ((PSI7+PSI8)**2.*(PSI9+PSI10)-A1)/4.0D0 C CALL POLY3 (AA,BB,CC,PSI1,ISLV) IF (ISLV.EQ.0) THEN PSI1 = MIN (PSI1,CHI1) ELSE PSI1 = ZERO ENDIF ENDIF C C IF (CHI9.GE.TINY .AND. WATER.GT.TINY) THEN C PSI9 = 0.5D0*SQRT(A9/A1)*(2.0D0*PSI1+PSI7+PSI8) C PSI9 = MAX (MIN (PSI9,CHI9), ZERO) C ELSE C PSI9 = ZERO C ENDIF C IF (CHI9.GT.TINY .AND. WATER.GT.TINY) THEN !K2SO4 CALL POLY3 (PSI1+PSI10,ZERO,-A9/4.D0, PSI9, ISLV) IF (ISLV.EQ.0) THEN PSI9 = MIN (PSI9,CHI9) ELSE PSI9 = ZERO ENDIF ENDIF C C *** CALCULATE SPECIATION ******************************************** C MOLAL (2) = PSI8 + PSI7 + 2.D0*PSI1 ! NAI MOLAL (3) = PSI4 ! NH4I MOLAL (4) = PSI6 + PSI7 ! CLI MOLAL (5) = PSI2 + PSI1 + PSI9 + PSI10 ! SO4I MOLAL (6) = ZERO ! HSO4I MOLAL (7) = PSI5 + PSI8 ! NO3I MOLAL (8) = PSI11 ! CAI MOLAL (9) = 2.D0*PSI9 ! KI MOLAL (10)= PSI10 ! MGI C SMIN = 2.d0*MOLAL(5)+MOLAL(7)+MOLAL(4)-MOLAL(2)-MOLAL(3) & - MOLAL(9) - 2.D0*MOLAL(10) CALL CALCPH (SMIN, HI, OHI) MOLAL (1) = HI C GNH3 = MAX(CHI4 - PSI4, TINY) GHNO3 = MAX(CHI5 - PSI5, TINY) GHCL = MAX(CHI6 - PSI6, TINY) C CNH42S4 = ZERO CNH4NO3 = ZERO CNACL = ZERO CNANO3 = ZERO CNA2SO4 = MAX(CHI1 - PSI1, ZERO) CK2SO4 = MAX(CHI9 - PSI9, ZERO) CMGSO4 = ZERO CCASO4 = CHI11 C CALL CALCMR ! Water content C C *** CALCULATE ACTIVITIES OR TERMINATE INTERNAL LOOP ***************** C IF (FRST.AND.CALAOU .OR. .NOT.FRST.AND.CALAIN) THEN CALL CALCACT ELSE GOTO 20 ENDIF 10 CONTINUE C C *** CALCULATE FUNCTION VALUE FOR OUTER LOOP *************************** C C20 FUNCM6 = MOLAL(3)*MOLAL(4)/GHCL/GNH3/A6/A4 - ONE 20 FUNCM6 = MOLAL(1)*MOLAL(4)/GHCL/A6 - ONE C RETURN C C *** END OF FUNCTION FUNCM6 ******************************************* C END C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE CALCM5 C *** CASE M5 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SULRAT > 2.0) ; Rcr+Na >= 2.0 ; Rcr < 2) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : CaSO4, K2SO4, NA2SO4, MGSO4 C 4. Completely dissolved: NH4NO3, NH4CL, NANO3, NACL C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCM5 INCLUDE 'isrpia.inc' C COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** SETUP PARAMETERS ************************************************ C CALAOU = .TRUE. CHI11 = MIN (W(6), W(2)) ! CCASO4 SO4FR = MAX(W(2)-CHI11, ZERO) CAFR = MAX(W(6)-CHI11, ZERO) CHI9 = MIN (0.5D0*W(7), SO4FR) ! CK2S04 FRK = MAX(W(7)-2.D0*CHI9, ZERO) SO4FR = MAX(SO4FR-CHI9, ZERO) CHI10 = MIN (W(8), SO4FR) ! CMGSO4 FRMG = MAX(W(8)-CHI10, ZERO) SO4FR = MAX(SO4FR-CHI10, ZERO) CHI1 = MAX (SO4FR,ZERO) ! CNA2SO4 CHI2 = ZERO ! CNH42S4 CHI3 = ZERO ! CNH4CL FRNA = MAX (W(1)-2.D0*CHI1, ZERO) CHI8 = MIN (FRNA, W(4)) ! CNANO3 CHI4 = W(3) ! NH3(g) CHI5 = MAX (W(4)-CHI8, ZERO) ! HNO3(g) CHI7 = MIN (MAX(FRNA-CHI8, ZERO), W(5)) ! CNACL CHI6 = MAX (W(5)-CHI7, ZERO) ! HCL(g) C PSI6LO = TINY PSI6HI = CHI6-TINY ! MIN(CHI6-TINY, CHI4) C C *** INITIAL VALUES FOR BISECTION ************************************ C X1 = PSI6LO Y1 = FUNCM5 (X1) IF (ABS(Y1).LE.EPS .OR. CHI6.LE.TINY) GOTO 50 C C *** ROOT TRACKING ; FOR THE RANGE OF HI AND LO ********************** C DX = (PSI6HI-PSI6LO)/FLOAT(NDIV) DO 10 I=1,NDIV X2 = X1+DX Y2 = FUNCM5 (X2) IF (SIGN(1.d0,Y1)*SIGN(1.d0,Y2).LT.ZERO) GOTO 20 ! (Y1*Y2.LT.ZERO) X1 = X2 Y1 = Y2 10 CONTINUE C C *** NO SUBDIVISION WITH SOLUTION; IF ABS(Y2) 2.0) ; Rcr+Na >= 2.0 ; Rcr < 2) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : CaSO4, K2SO4, NA2SO4, MGSO4 C 4. Completely dissolved: NH4NO3, NH4CL, NANO3, NACL C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C DOUBLE PRECISION FUNCTION FUNCM5 (X) INCLUDE 'isrpia.inc' C COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** SETUP PARAMETERS ************************************************ C PSI6 = X PSI1 = CHI1 PSI2 = ZERO PSI3 = ZERO PSI7 = CHI7 PSI8 = CHI8 PSI9 = ZERO PSI10 = CHI10 PSI11 = ZERO FRST = .TRUE. CALAIN = .TRUE. C C *** SOLVE EQUATIONS ; WITH ITERATIONS FOR ACTIVITY COEF. ************ C DO 10 I=1,NSWEEP C A1 = XK5 *(WATER/GAMA(2))**3.0 A4 = (XK2/XKW)*R*TEMP*(GAMA(10)/GAMA(5))**2.0 A5 = XK4 *R*TEMP*(WATER/GAMA(10))**2.0 A6 = XK3 *R*TEMP*(WATER/GAMA(11))**2.0 A9 = XK17 *(WATER/GAMA(17))**3.0 C A7 = XK8 *(WATER/GAMA(1))**2.0 C A8 = XK9 *(WATER/GAMA(3))**2.0 C A11 = XK1*WATER/GAMA(7)*(GAMA(8)/GAMA(7))**2. C C CALCULATE DISSOCIATION QUANTITIES C PSI5 = CHI5*(PSI6+PSI7) - A6/A5*PSI8*(CHI6-PSI6-PSI3) PSI5 = PSI5/(A6/A5*(CHI6-PSI6-PSI3) + PSI6 + PSI7) PSI5 = MIN(MAX(PSI5, TINY),CHI5) C IF (W(3).GT.TINY .AND. WATER.GT.TINY) THEN ! First try 3rd order soln BB =-(CHI4 + PSI6 + PSI5 + 1.d0/A4) CC = CHI4*(PSI5+PSI6) DD = MAX(BB*BB-4.d0*CC,ZERO) PSI4 =0.5d0*(-BB - SQRT(DD)) PSI4 = MIN(MAX(PSI4,ZERO),CHI4) ELSE PSI4 = TINY ENDIF C IF (CHI1.GT.TINY .AND. WATER.GT.TINY) THEN !NA2SO4 RIZ = SQRT(A9/A1) AA = (0.5D0*RIZ*(PSI7+PSI8)+PSI10+(1.D0+RIZ)*(PSI7+PSI8)) & /(1.D0+RIZ) BB = ((PSI7+PSI8)*(0.5D0*RIZ*(PSI7+PSI8)+PSI10)+0.25D0* & (PSI7+PSI8)**2.0*(1.D0+RIZ))/(1.D0+RIZ) CC = (0.25D0*(PSI7+PSI8)**2.0*(0.5D0*RIZ*(PSI7+PSI8)+PSI10) & -A1/4.D0)/(1.D0+RIZ) C AA = PSI7+PSI8+PSI9+PSI10 C BB = (PSI7+PSI8)*(PSI9+PSI10)+0.25D0*(PSI7+PSI8)**2. C CC = ((PSI7+PSI8)**2.*(PSI9+PSI10)-A1)/4.0D0 C CALL POLY3 (AA,BB,CC,PSI1,ISLV) IF (ISLV.EQ.0) THEN PSI1 = MIN (PSI1,CHI1) ELSE PSI1 = ZERO ENDIF ENDIF C IF (CHI9.GE.TINY .AND. WATER.GT.TINY) THEN PSI9 = 0.5D0*SQRT(A9/A1)*(2.0D0*PSI1+PSI7+PSI8) PSI9 = MAX (MIN (PSI9,CHI9), ZERO) ELSE PSI9 = ZERO ENDIF C C IF (CHI9.GT.TINY .AND. WATER.GT.TINY) THEN !K2SO4 C CALL POLY3 (PSI1+PSI10,ZERO,-A9/4.D0, PSI9, ISLV) C IF (ISLV.EQ.0) THEN C PSI9 = MIN (PSI9,CHI9) C ELSE C PSI9 = ZERO C ENDIF C ENDIF C C *** CALCULATE SPECIATION ******************************************** C MOLAL (2) = PSI8 + PSI7 + 2.D0*PSI1 ! NAI MOLAL (3) = PSI4 ! NH4I MOLAL (4) = PSI6 + PSI7 ! CLI MOLAL (5) = PSI2 + PSI1 + PSI9 + PSI10 ! SO4I MOLAL (6) = ZERO ! HSO4I MOLAL (7) = PSI5 + PSI8 ! NO3I MOLAL (8) = PSI11 ! CAI MOLAL (9) = 2.D0*PSI9 ! KI MOLAL (10)= PSI10 ! MGI C SMIN = 2.d0*MOLAL(5)+MOLAL(7)+MOLAL(4)-MOLAL(2)-MOLAL(3) & - MOLAL(9) - 2.D0*MOLAL(10) CALL CALCPH (SMIN, HI, OHI) MOLAL (1) = HI C GNH3 = MAX(CHI4 - PSI4, TINY) GHNO3 = MAX(CHI5 - PSI5, TINY) GHCL = MAX(CHI6 - PSI6, TINY) C CNH42S4 = ZERO CNH4NO3 = ZERO CNACL = ZERO CNANO3 = ZERO CNA2SO4 = MAX(CHI1 - PSI1, ZERO) CK2SO4 = MAX(CHI9 - PSI9, ZERO) CMGSO4 = ZERO CCASO4 = CHI11 C CALL CALCMR ! Water content C C *** CALCULATE ACTIVITIES OR TERMINATE INTERNAL LOOP ***************** C IF (FRST.AND.CALAOU .OR. .NOT.FRST.AND.CALAIN) THEN CALL CALCACT ELSE GOTO 20 ENDIF 10 CONTINUE C C *** CALCULATE FUNCTION VALUE FOR OUTER LOOP *************************** C C20 FUNCM5 = MOLAL(3)*MOLAL(4)/GHCL/GNH3/A6/A4 - ONE 20 FUNCM5 = MOLAL(1)*MOLAL(4)/GHCL/A6 - ONE C RETURN C C *** END OF FUNCTION FUNCM5 ******************************************* C END C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE CALCM4 C *** CASE M4 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SULRAT > 2.0) ; Rcr+Na >= 2.0 ; Rcr < 2) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : CaSO4, K2SO4, NA2SO4, MGSO4, NH4CL C 4. Completely dissolved: NH4NO3, NANO3, NACL C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCM4 INCLUDE 'isrpia.inc' C COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** REGIME DEPENDS ON THE EXISTANCE OF NITRATES *********************** C IF (W(4).LE.TINY .AND. W(5).LE.TINY) THEN SCASE = 'M4 ; SUBCASE 1' CALL CALCM1A SCASE = 'M4 ; SUBCASE 1' RETURN ENDIF C C *** SETUP PARAMETERS ************************************************ C CALAOU = .TRUE. CHI11 = MIN (W(6), W(2)) ! CCASO4 SO4FR = MAX(W(2)-CHI11, ZERO) CAFR = MAX(W(6)-CHI11, ZERO) CHI9 = MIN (0.5D0*W(7), SO4FR) ! CK2S04 FRK = MAX(W(7)-2.D0*CHI9, ZERO) SO4FR = MAX(SO4FR-CHI9, ZERO) CHI10 = MIN (W(8), SO4FR) ! CMGSO4 FRMG = MAX(W(8)-CHI10, ZERO) SO4FR = MAX(SO4FR-CHI10, ZERO) CHI1 = MAX (SO4FR,ZERO) ! CNA2SO4 CHI2 = ZERO ! CNH42S4 CHI3 = ZERO ! CNH4CL FRNA = MAX (W(1)-2.D0*CHI1, ZERO) CHI8 = MIN (FRNA, W(4)) ! CNANO3 CHI4 = W(3) ! NH3(g) CHI5 = MAX (W(4)-CHI8, ZERO) ! HNO3(g) CHI7 = MIN (MAX(FRNA-CHI8, ZERO), W(5)) ! CNACL CHI6 = MAX (W(5)-CHI7, ZERO) ! HCL(g) C PSI6LO = TINY PSI6HI = CHI6-TINY ! MIN(CHI6-TINY, CHI4) C C *** INITIAL VALUES FOR BISECTION ************************************ C X1 = PSI6LO Y1 = FUNCM4 (X1) IF (ABS(Y1).LE.EPS .OR. CHI6.LE.TINY) GOTO 50 C C *** ROOT TRACKING ; FOR THE RANGE OF HI AND LO ********************** C DX = (PSI6HI-PSI6LO)/FLOAT(NDIV) DO 10 I=1,NDIV X2 = X1+DX Y2 = FUNCM4 (X2) IF (SIGN(1.d0,Y1)*SIGN(1.d0,Y2).LT.ZERO) GOTO 20 ! (Y1*Y2.LT.ZERO) X1 = X2 Y1 = Y2 10 CONTINUE C C *** NO SUBDIVISION WITH SOLUTION; IF ABS(Y2) 2.0) ; Rcr+Na >= 2.0 ; Rcr < 2) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : CaSO4, K2SO4, NA2SO4, MGSO4, NH4CL C 4. Completely dissolved: NH4NO3, NANO3, NACL C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C DOUBLE PRECISION FUNCTION FUNCM4 (X) INCLUDE 'isrpia.inc' C COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** SETUP PARAMETERS ************************************************ C PSI6 = X PSI1 = CHI1 PSI2 = ZERO PSI3 = ZERO PSI7 = CHI7 PSI8 = CHI8 PSI9 = ZERO PSI10 = CHI10 PSI11 = ZERO FRST = .TRUE. CALAIN = .TRUE. C C *** SOLVE EQUATIONS ; WITH ITERATIONS FOR ACTIVITY COEF. ************ C DO 10 I=1,NSWEEP C A1 = XK5 *(WATER/GAMA(2))**3.0 A3 = XK6 /(R*TEMP*R*TEMP) A4 = (XK2/XKW)*R*TEMP*(GAMA(10)/GAMA(5))**2.0 A5 = XK4 *R*TEMP*(WATER/GAMA(10))**2.0 A6 = XK3 *R*TEMP*(WATER/GAMA(11))**2.0 A9 = XK17 *(WATER/GAMA(17))**3.0 C A7 = XK8 *(WATER/GAMA(1))**2.0 C A8 = XK9 *(WATER/GAMA(3))**2.0 C A11 = XK1*WATER/GAMA(7)*(GAMA(8)/GAMA(7))**2. C C CALCULATE DISSOCIATION QUANTITIES C PSI5 = CHI5*(PSI6+PSI7) - A6/A5*PSI8*(CHI6-PSI6-PSI3) PSI5 = PSI5/(A6/A5*(CHI6-PSI6-PSI3) + PSI6 + PSI7) PSI5 = MIN(MAX(PSI5, TINY),CHI5) C IF (W(3).GT.TINY .AND. WATER.GT.TINY) THEN ! First try 3rd order soln BB =-(CHI4 + PSI6 + PSI5 + 1.d0/A4) CC = CHI4*(PSI5+PSI6) DD = MAX(BB*BB-4.d0*CC,ZERO) PSI4 =0.5d0*(-BB - SQRT(DD)) PSI4 = MIN(MAX(PSI4,TINY),CHI4) ELSE PSI4 = TINY ENDIF C IF (CHI1.GT.TINY .AND. WATER.GT.TINY) THEN !NA2SO4 RIZ = SQRT(A9/A1) AA = (0.5D0*RIZ*(PSI7+PSI8)+PSI10+(1.D0+RIZ)*(PSI7+PSI8)) & /(1.D0+RIZ) BB = ((PSI7+PSI8)*(0.5D0*RIZ*(PSI7+PSI8)+PSI10)+0.25D0* & (PSI7+PSI8)**2.0*(1.D0+RIZ))/(1.D0+RIZ) CC = (0.25D0*(PSI7+PSI8)**2.0*(0.5D0*RIZ*(PSI7+PSI8)+PSI10) & -A1/4.D0)/(1.D0+RIZ) C AA = PSI7+PSI8+PSI9+PSI10 C BB = (PSI7+PSI8)*(PSI9+PSI10)+0.25D0*(PSI7+PSI8)**2. C CC = ((PSI7+PSI8)**2.*(PSI9+PSI10)-A1)/4.0D0 C CALL POLY3 (AA,BB,CC,PSI1,ISLV) IF (ISLV.EQ.0) THEN PSI1 = MIN (PSI1,CHI1) ELSE PSI1 = ZERO ENDIF ENDIF C IF (CHI9.GE.TINY .AND. WATER.GT.TINY) THEN PSI9 = 0.5D0*SQRT(A9/A1)*(2.0D0*PSI1+PSI7+PSI8) PSI9 = MAX (MIN (PSI9,CHI9), ZERO) ELSE PSI9 = ZERO ENDIF C C IF (CHI9.GT.TINY .AND. WATER.GT.TINY) THEN !K2SO4 C CALL POLY3 (PSI1+PSI10,ZERO,-A9/4.D0, PSI9, ISLV) C IF (ISLV.EQ.0) THEN C PSI9 = MIN (PSI9,CHI9) C ELSE C PSI9 = ZERO C ENDIF C ENDIF C C *** CALCULATE SPECIATION ******************************************** C MOLAL (2) = PSI8 + PSI7 + 2.D0*PSI1 ! NAI MOLAL (3) = PSI4 ! NH4I MOLAL (4) = PSI6 + PSI7 ! CLI MOLAL (5) = PSI2 + PSI1 + PSI9 + PSI10 ! SO4I MOLAL (6) = ZERO ! HSO4I MOLAL (7) = PSI5 + PSI8 ! NO3I MOLAL (8) = PSI11 ! CAI MOLAL (9) = 2.D0*PSI9 ! KI MOLAL (10)= PSI10 ! MGI C SMIN = 2.d0*MOLAL(5)+MOLAL(7)+MOLAL(4)-MOLAL(2)-MOLAL(3) & - MOLAL(9) - 2.D0*MOLAL(10) CALL CALCPH (SMIN, HI, OHI) MOLAL (1) = HI C GNH3 = MAX(CHI4 - PSI4, TINY) GHNO3 = MAX(CHI5 - PSI5, TINY) GHCL = MAX(CHI6 - PSI6, TINY) C CNH42S4 = ZERO CNH4NO3 = ZERO CNACL = ZERO CNANO3 = ZERO CNA2SO4 = MAX(CHI1 - PSI1, ZERO) CK2SO4 = MAX(CHI9 - PSI9, ZERO) CMGSO4 = ZERO CCASO4 = CHI11 C C *** NH4Cl(s) calculations C A3 = XK6 /(R*TEMP*R*TEMP) IF (GNH3*GHCL.GT.A3) THEN DELT = MIN(GNH3, GHCL) BB = -(GNH3+GHCL) CC = GNH3*GHCL-A3 DD = BB*BB - 4.D0*CC PSI31 = 0.5D0*(-BB + SQRT(DD)) PSI32 = 0.5D0*(-BB - SQRT(DD)) IF (DELT-PSI31.GT.ZERO .AND. PSI31.GT.ZERO) THEN PSI3 = PSI31 ELSEIF (DELT-PSI32.GT.ZERO .AND. PSI32.GT.ZERO) THEN PSI3 = PSI32 ELSE PSI3 = ZERO ENDIF ELSE PSI3 = ZERO ENDIF PSI3 = MAX (MIN(MIN(PSI3,CHI4-PSI4),CHI6-PSI6), ZERO) C C *** CALCULATE GAS / SOLID SPECIES (LIQUID IN MOLAL ALREADY) ********* C GNH3 = MAX(GNH3 - PSI3, TINY) GHCL = MAX(GHCL - PSI3, TINY) CNH4CL = PSI3 C CALL CALCMR ! Water content C C *** CALCULATE ACTIVITIES OR TERMINATE INTERNAL LOOP ***************** C IF (FRST.AND.CALAOU .OR. .NOT.FRST.AND.CALAIN) THEN CALL CALCACT ELSE GOTO 20 ENDIF 10 CONTINUE C C *** CALCULATE FUNCTION VALUE FOR OUTER LOOP *************************** C C20 FUNCM4 = MOLAL(3)*MOLAL(4)/GHCL/GNH3/A6/A4 - ONE 20 FUNCM4 = MOLAL(1)*MOLAL(4)/GHCL/A6 - ONE C RETURN C C *** END OF FUNCTION FUNCM4 ******************************************* C END C C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE CALCM3 C *** CASE M3 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SULRAT > 2.0) ; Rcr+Na >= 2.0 ; Rcr < 2) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : CaSO4, K2SO4, NA2SO4, MGSO4, NH4CL, NACL C 4. Completely dissolved: NH4NO3, NANO3 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCM3 INCLUDE 'isrpia.inc' C COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** REGIME DEPENDS ON THE EXISTANCE OF NITRATES *********************** C IF (W(4).LE.TINY) THEN ! NO3 NOT EXIST, WATER NOT POSSIBLE SCASE = 'M3 ; SUBCASE 1' CALL CALCM1A SCASE = 'M3 ; SUBCASE 1' RETURN ENDIF C C *** SETUP PARAMETERS ************************************************ C CALAOU = .TRUE. CHI11 = MIN (W(6), W(2)) ! CCASO4 SO4FR = MAX(W(2)-CHI11, ZERO) CAFR = MAX(W(6)-CHI11, ZERO) CHI9 = MIN (0.5D0*W(7), SO4FR) ! CK2S04 FRK = MAX(W(7)-2.D0*CHI9, ZERO) SO4FR = MAX(SO4FR-CHI9, ZERO) CHI10 = MIN (W(8), SO4FR) ! CMGSO4 FRMG = MAX(W(8)-CHI10, ZERO) SO4FR = MAX(SO4FR-CHI10, ZERO) CHI1 = MAX (SO4FR,ZERO) ! CNA2SO4 CHI2 = ZERO ! CNH42S4 CHI3 = ZERO ! CNH4CL FRNA = MAX (W(1)-2.D0*CHI1, ZERO) CHI8 = MIN (FRNA, W(4)) ! CNANO3 CHI4 = W(3) ! NH3(g) CHI5 = MAX (W(4)-CHI8, ZERO) ! HNO3(g) CHI7 = MIN (MAX(FRNA-CHI8, ZERO), W(5)) ! CNACL CHI6 = MAX (W(5)-CHI7, ZERO) ! HCL(g) C PSI6LO = TINY PSI6HI = CHI6-TINY ! MIN(CHI6-TINY, CHI4) C C *** INITIAL VALUES FOR BISECTION ************************************ C X1 = PSI6LO Y1 = FUNCM3 (X1) IF (ABS(Y1).LE.EPS .OR. CHI6.LE.TINY) GOTO 50 C C *** ROOT TRACKING ; FOR THE RANGE OF HI AND LO ********************** C DX = (PSI6HI-PSI6LO)/FLOAT(NDIV) DO 10 I=1,NDIV X2 = X1+DX Y2 = FUNCM3 (X2) IF (SIGN(1.d0,Y1)*SIGN(1.d0,Y2).LT.ZERO) GOTO 20 ! (Y1*Y2.LT.ZERO) X1 = X2 Y1 = Y2 10 CONTINUE C C *** NO SUBDIVISION WITH SOLUTION; IF ABS(Y2) 2.0) ; Rcr+Na >= 2.0 ; Rcr < 2) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : CaSO4, K2SO4, NA2SO4, MGSO4, NH4CL, NACL C 4. Completely dissolved: NH4NO3, NANO3 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C DOUBLE PRECISION FUNCTION FUNCM3 (X) INCLUDE 'isrpia.inc' C COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** SETUP PARAMETERS ************************************************ C PSI6 = X PSI1 = CHI1 PSI2 = ZERO PSI3 = ZERO PSI7 = CHI7 PSI8 = CHI8 PSI9 = ZERO PSI10 = CHI10 PSI11 = ZERO FRST = .TRUE. CALAIN = .TRUE. C C *** SOLVE EQUATIONS ; WITH ITERATIONS FOR ACTIVITY COEF. ************ C DO 10 I=1,NSWEEP C A1 = XK5 *(WATER/GAMA(2))**3.0 A3 = XK6 /(R*TEMP*R*TEMP) A4 = (XK2/XKW)*R*TEMP*(GAMA(10)/GAMA(5))**2.0 A5 = XK4 *R*TEMP*(WATER/GAMA(10))**2.0 A6 = XK3 *R*TEMP*(WATER/GAMA(11))**2.0 A7 = XK8 *(WATER/GAMA(1))**2.0 A9 = XK17 *(WATER/GAMA(17))**3.0 A10 = XK23 *(WATER/GAMA(21))**2.0 C A8 = XK9 *(WATER/GAMA(3))**2.0 C A11 = XK1*WATER/GAMA(7)*(GAMA(8)/GAMA(7))**2. C C CALCULATE DISSOCIATION QUANTITIES C PSI5 = CHI5*(PSI6+PSI7) - A6/A5*PSI8*(CHI6-PSI6-PSI3) PSI5 = PSI5/(A6/A5*(CHI6-PSI6-PSI3) + PSI6 + PSI7) PSI5 = MIN(MAX(PSI5, TINY),CHI5) C IF (W(3).GT.TINY .AND. WATER.GT.TINY) THEN ! First try 3rd order soln BB =-(CHI4 + PSI6 + PSI5 + 1.d0/A4) CC = CHI4*(PSI5+PSI6) DD = MAX(BB*BB-4.d0*CC,ZERO) PSI4 =0.5d0*(-BB - SQRT(DD)) PSI4 = MIN(MAX(PSI4,TINY),CHI4) ELSE PSI4 = TINY ENDIF C C IF (CHI7.GT.TINY .AND. WATER.GT.TINY) THEN ! NACL DISSOLUTION C VITA = 2.D0*PSI1+PSI8+PSI6 ! AN DE DOULEPSEI KALA VGALE PSI1 APO DW C GKAMA= PSI6*(2.D0*PSI1+PSI8)-A7 C DIAK = MAX(VITA**2.0 - 4.0D0*GKAMA,ZERO) C PSI7 = 0.5D0*( -VITA + SQRT(DIAK) ) C PSI7 = MAX(MIN(PSI7, CHI7), ZERO) C ENDIF C IF (CHI7.GT.TINY .AND. WATER.GT.TINY) THEN ! NACL DISSOLUTION DIAK = (PSI8-PSI6)**2.D0 + 4.D0*A7 PSI7 = 0.5D0*( -(PSI8+PSI6) + SQRT(DIAK) ) PSI7 = MAX(MIN(PSI7, CHI7), ZERO) ENDIF CC C IF (CHI1.GT.TINY .AND. WATER.GT.TINY) THEN !NA2SO4 RIZ = SQRT(A9/A1) AA = (0.5D0*RIZ*(PSI7+PSI8)+PSI10+(1.D0+RIZ)*(PSI7+PSI8)) & /(1.D0+RIZ) BB = ((PSI7+PSI8)*(0.5D0*RIZ*(PSI7+PSI8)+PSI10)+0.25D0* & (PSI7+PSI8)**2.0*(1.D0+RIZ))/(1.D0+RIZ) CC = (0.25D0*(PSI7+PSI8)**2.0*(0.5D0*RIZ*(PSI7+PSI8)+PSI10) & -A1/4.D0)/(1.D0+RIZ) C AA = PSI7+PSI8+PSI9+PSI10 C BB = (PSI7+PSI8)*(PSI9+PSI10)+0.25D0*(PSI7+PSI8)**2. C CC = ((PSI7+PSI8)**2.*(PSI9+PSI10)-A1)/4.0D0 C CALL POLY3 (AA,BB,CC,PSI1,ISLV) IF (ISLV.EQ.0) THEN PSI1 = MIN (PSI1,CHI1) ELSE PSI1 = ZERO ENDIF ENDIF C IF (CHI9.GE.TINY) THEN PSI9 = 0.5D0*SQRT(A9/A1)*(2.0D0*PSI1+PSI7+PSI8) PSI9 = MAX (MIN (PSI9,CHI9), ZERO) ELSE PSI9 = ZERO ENDIF C C IF (CHI9.GT.TINY .AND. WATER.GT.TINY) THEN !K2SO4 C CALL POLY3 (PSI1+PSI10,ZERO,-A9/4.D0, PSI9, ISLV) C IF (ISLV.EQ.0) THEN C PSI9 = MIN (PSI9,CHI9) C ELSE C PSI9 = ZERO C ENDIF C ENDIF C C *** CALCULATE SPECIATION ******************************************** C MOLAL (2) = PSI8 + PSI7 + 2.D0*PSI1 ! NAI MOLAL (3) = PSI4 ! NH4I MOLAL (4) = PSI6 + PSI7 ! CLI MOLAL (5) = PSI2 + PSI1 + PSI9 + PSI10 ! SO4I MOLAL (6) = ZERO ! HSO4I MOLAL (7) = PSI5 + PSI8 ! NO3I MOLAL (8) = PSI11 ! CAI MOLAL (9) = 2.D0*PSI9 ! KI MOLAL (10)= PSI10 ! MGI C SMIN = 2.d0*MOLAL(5)+MOLAL(7)+MOLAL(4)-MOLAL(2)-MOLAL(3) & - MOLAL(9) - 2.D0*MOLAL(10) CALL CALCPH (SMIN, HI, OHI) MOLAL (1) = HI C GNH3 = MAX(CHI4 - PSI4, TINY) GHNO3 = MAX(CHI5 - PSI5, TINY) GHCL = MAX(CHI6 - PSI6, TINY) C CNH42S4 = ZERO CNH4NO3 = ZERO CNACL = MAX(CHI7 - PSI7, ZERO) CNANO3 = ZERO CNA2SO4 = MAX(CHI1 - PSI1, ZERO) CK2SO4 = MAX(CHI9 - PSI9, ZERO) CMGSO4 = ZERO CCASO4 = CHI11 C C *** NH4Cl(s) calculations C A3 = XK6 /(R*TEMP*R*TEMP) IF (GNH3*GHCL.GT.A3) THEN DELT = MIN(GNH3, GHCL) BB = -(GNH3+GHCL) CC = GNH3*GHCL-A3 DD = BB*BB - 4.D0*CC PSI31 = 0.5D0*(-BB + SQRT(DD)) PSI32 = 0.5D0*(-BB - SQRT(DD)) IF (DELT-PSI31.GT.ZERO .AND. PSI31.GT.ZERO) THEN PSI3 = PSI31 ELSEIF (DELT-PSI32.GT.ZERO .AND. PSI32.GT.ZERO) THEN PSI3 = PSI32 ELSE PSI3 = ZERO ENDIF ELSE PSI3 = ZERO ENDIF PSI3 = MAX (MIN(MIN(PSI3,CHI4-PSI4),CHI6-PSI6), ZERO) C C *** CALCULATE GAS / SOLID SPECIES (LIQUID IN MOLAL ALREADY) ********* C GNH3 = MAX(GNH3 - PSI3, TINY) GHCL = MAX(GHCL - PSI3, TINY) CNH4CL = PSI3 C CALL CALCMR ! Water content C C *** CALCULATE ACTIVITIES OR TERMINATE INTERNAL LOOP ***************** C IF (FRST.AND.CALAOU .OR. .NOT.FRST.AND.CALAIN) THEN CALL CALCACT ELSE GOTO 20 ENDIF 10 CONTINUE C C *** CALCULATE FUNCTION VALUE FOR OUTER LOOP *************************** C C20 FUNCM3 = MOLAL(3)*MOLAL(4)/GHCL/GNH3/A6/A4 - ONE 20 FUNCM3 = MOLAL(1)*MOLAL(4)/GHCL/A6 - ONE C RETURN C C *** END OF FUNCTION FUNCM3 ******************************************* C END C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE CALCM2 C *** CASE M2 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SULRAT > 2.0) ; Rcr+Na >= 2.0 ; Rcr < 2) C 2. SOLID & LIQUID AEROSOL POSSIBLE C 3. SOLIDS POSSIBLE : CaSO4, K2SO4, NA2SO4, MGSO4, NH4CL, NACL, NANO3 C C THERE ARE THREE REGIMES IN THIS CASE: C 1. NH4NO3(s) POSSIBLE. LIQUID & SOLID AEROSOL (SUBROUTINE CALCH2A) C 2. NH4NO3(s) NOT POSSIBLE, AND RH < MDRH. SOLID AEROSOL ONLY C 3. NH4NO3(s) NOT POSSIBLE, AND RH >= MDRH. (MDRH REGION) C C REGIMES 2. AND 3. ARE CONSIDERED TO BE THE SAME AS CASES M1A, M2B C RESPECTIVELY (BECAUSE MDRH POINTS COINCIDE). C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCM2 INCLUDE 'isrpia.inc' EXTERNAL CALCM1A, CALCM3 C C *** REGIME DEPENDS ON THE EXISTANCE OF NITRATES *********************** C CALL CALCM1A C IF (CNH4NO3.GT.TINY) THEN ! NO3 EXISTS, WATER POSSIBLE SCASE = 'M2 ; SUBCASE 1' CALL CALCM2A SCASE = 'M2 ; SUBCASE 1' ELSE ! NO3 NON EXISTANT, WATER NOT POSSIBLE SCASE = 'M2 ; SUBCASE 1' CALL CALCM1A SCASE = 'M2 ; SUBCASE 1' ENDIF C IF (WATER.LE.TINY .AND. RH.LT.DRMM2) THEN ! DRY AEROSOL SCASE = 'M2 ; SUBCASE 2' C ELSEIF (WATER.LE.TINY .AND. RH.GE.DRMM2) THEN ! MDRH OF M2 SCASE = 'M2 ; SUBCASE 3' CALL CALCMDRH2 (RH, DRMM2, DRNANO3, CALCM1A, CALCM3) SCASE = 'M2 ; SUBCASE 3' ENDIF C RETURN C C *** END OF SUBROUTINE CALCM2 ****************************************** C END C C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE CALCM2A C *** CASE M2A C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SULRAT > 2.0) ; Rcr+Na >= 2.0 ; Rcr < 2) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : CaSO4, K2SO4, NA2SO4, MGSO4, NH4CL, NACL, NANO3 C 4. Completely dissolved: NH4NO3 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCM2A INCLUDE 'isrpia.inc' C COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** SETUP PARAMETERS ************************************************ C CALAOU = .TRUE. CHI11 = MIN (W(6), W(2)) ! CCASO4 SO4FR = MAX(W(2)-CHI11, ZERO) CAFR = MAX(W(6)-CHI11, ZERO) CHI9 = MIN (0.5D0*W(7), SO4FR) ! CK2S04 FRK = MAX(W(7)-2.D0*CHI9, ZERO) SO4FR = MAX(SO4FR-CHI9, ZERO) CHI10 = MIN (W(8), SO4FR) ! CMGSO4 FRMG = MAX(W(8)-CHI10, ZERO) SO4FR = MAX(SO4FR-CHI10, ZERO) CHI1 = MAX (SO4FR,ZERO) ! CNA2SO4 CHI2 = ZERO ! CNH42S4 CHI3 = ZERO ! CNH4CL FRNA = MAX (W(1)-2.D0*CHI1, ZERO) CHI8 = MIN (FRNA, W(4)) ! CNANO3 CHI4 = W(3) ! NH3(g) CHI5 = MAX (W(4)-CHI8, ZERO) ! HNO3(g) CHI7 = MIN (MAX(FRNA-CHI8, ZERO), W(5)) ! CNACL CHI6 = MAX (W(5)-CHI7, ZERO) ! HCL(g) C PSI6LO = TINY PSI6HI = CHI6-TINY ! MIN(CHI6-TINY, CHI4) C C *** INITIAL VALUES FOR BISECTION ************************************ C X1 = PSI6LO Y1 = FUNCM2A (X1) IF (ABS(Y1).LE.EPS .OR. CHI6.LE.TINY) GOTO 50 C C *** ROOT TRACKING ; FOR THE RANGE OF HI AND LO ********************** C DX = (PSI6HI-PSI6LO)/FLOAT(NDIV) DO 10 I=1,NDIV X2 = X1+DX Y2 = FUNCM2A (X2) IF (SIGN(1.d0,Y1)*SIGN(1.d0,Y2).LT.ZERO) GOTO 20 ! (Y1*Y2.LT.ZERO) X1 = X2 Y1 = Y2 10 CONTINUE C C *** NO SUBDIVISION WITH SOLUTION; IF ABS(Y2) 2.0) ; Rcr+Na >= 2.0 ; Rcr < 2) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : CaSO4, K2SO4, NA2SO4, MGSO4, NH4CL, NACL, NANO3 C 4. Completely dissolved: NH4NO3 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C DOUBLE PRECISION FUNCTION FUNCM2A (X) INCLUDE 'isrpia.inc' C COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** SETUP PARAMETERS ************************************************ C PSI6 = X PSI1 = CHI1 PSI2 = ZERO PSI3 = ZERO PSI7 = CHI7 PSI8 = CHI8 PSI9 = ZERO PSI10 = CHI10 PSI11 = ZERO FRST = .TRUE. CALAIN = .TRUE. C C *** SOLVE EQUATIONS ; WITH ITERATIONS FOR ACTIVITY COEF. ************ C DO 10 I=1,NSWEEP C A1 = XK5 *(WATER/GAMA(2))**3.0 A3 = XK6 /(R*TEMP*R*TEMP) A4 = (XK2/XKW)*R*TEMP*(GAMA(10)/GAMA(5))**2.0 A5 = XK4 *R*TEMP*(WATER/GAMA(10))**2.0 A6 = XK3 *R*TEMP*(WATER/GAMA(11))**2.0 A7 = XK8 *(WATER/GAMA(1))**2.0 A8 = XK9 *(WATER/GAMA(3))**2.0 A9 = XK17 *(WATER/GAMA(17))**3.0 A64 = (XK3*XK2/XKW)*(GAMA(10)/GAMA(5)/GAMA(11))**2.0 A64 = A64*(R*TEMP*WATER)**2.0 C A11 = XK1*WATER/GAMA(7)*(GAMA(8)/GAMA(7))**2. C C CALCULATE DISSOCIATION QUANTITIES C PSI5 = CHI5*(PSI6+PSI7) - A6/A5*PSI8*(CHI6-PSI6-PSI3) PSI5 = PSI5/(A6/A5*(CHI6-PSI6-PSI3) + PSI6 + PSI7) PSI5 = MIN(MAX(PSI5, TINY),CHI5) C IF (W(3).GT.TINY .AND. WATER.GT.TINY) THEN ! First try 3rd order soln BB =-(CHI4 + PSI6 + PSI5 + 1.d0/A4) CC = CHI4*(PSI5+PSI6) DD = MAX(BB*BB-4.d0*CC,ZERO) PSI4 =0.5d0*(-BB - SQRT(DD)) PSI4 = MIN(MAX(PSI4,TINY),CHI4) ELSE PSI4 = TINY ENDIF C C IF (CHI7.GT.TINY .AND. WATER.GT.TINY) THEN ! NACL DISSOLUTION C VITA = 2.D0*PSI1+PSI8+PSI6 C GKAMA= PSI6*(2.D0*PSI1+PSI8)-A7 C DIAK = MAX(VITA**2.0 - 4.0D0*GKAMA,ZERO) C PSI7 = 0.5D0*( -VITA + SQRT(DIAK) ) C PSI7 = MAX(MIN(PSI7, CHI7), ZERO) C ENDIF CC C IF (CHI8.GT.TINY .AND. WATER.GT.TINY) THEN ! NANO3 DISSOLUTION C BIT = 2.D0*PSI1+PSI7+PSI5 C GKAM = PSI5*(2.D0*PSI1+PSI8)-A8 C DIA = BIT**2.0 - 4.0D0*GKAM C PSI8 = 0.5D0*( -BIT + SQRT(DIA) ) C PSI8 = MAX(MIN(PSI8, CHI8), ZERO) C ENDIF CC IF (CHI7.GT.TINY .AND. WATER.GT.TINY) THEN ! NACL DISSOLUTION DIAK = (PSI8-PSI6)**2.D0 + 4.D0*A7 PSI7 = 0.5D0*( -(PSI8+PSI6) + SQRT(DIAK) ) PSI7 = MAX(MIN(PSI7, CHI7), ZERO) ENDIF C IF (CHI8.GT.TINY .AND. WATER.GT.TINY) THEN ! NANO3 DISSOLUTION DIAK = (PSI7-PSI5)**2.D0 + 4.D0*A8 PSI8 = 0.5D0*( -(PSI7+PSI5) + SQRT(DIAK) ) PSI8 = MAX(MIN(PSI8, CHI8), ZERO) ENDIF C IF (CHI1.GT.TINY .AND. WATER.GT.TINY) THEN !NA2SO4 RIZ = SQRT(A9/A1) AA = (0.5D0*RIZ*(PSI7+PSI8)+PSI10+(1.D0+RIZ)*(PSI7+PSI8)) & /(1.D0+RIZ) BB = ((PSI7+PSI8)*(0.5D0*RIZ*(PSI7+PSI8)+PSI10)+0.25D0* & (PSI7+PSI8)**2.0*(1.D0+RIZ))/(1.D0+RIZ) CC = (0.25D0*(PSI7+PSI8)**2.0*(0.5D0*RIZ*(PSI7+PSI8)+PSI10) & -A1/4.D0)/(1.D0+RIZ) C C AA = PSI7+PSI8+PSI9+PSI10 C BB = (PSI7+PSI8)*(PSI9+PSI10)+0.25D0*(PSI7+PSI8)**2. C CC = ((PSI7+PSI8)**2.*(PSI9+PSI10)-A1)/4.0D0 CC CALL POLY3 (AA,BB,CC,PSI1,ISLV) IF (ISLV.EQ.0) THEN PSI1 = MIN (PSI1,CHI1) ELSE PSI1 = ZERO ENDIF ENDIF C IF (CHI9.GE.TINY .AND. WATER.GT.TINY) THEN C PSI9 = 0.5D0*SQRT(A9/A1)*(2.0D0*PSI1+PSI7+PSI8) PSI9 = 0.5D0*SQRT(A9/A1)*(2.0D0*PSI1+PSI7+PSI8) PSI9 = MAX (MIN (PSI9,CHI9), ZERO) ELSE PSI9 = ZERO ENDIF C C IF (CHI9.GT.TINY .AND. WATER.GT.TINY) THEN !K2SO4 C CALL POLY3 (PSI1+PSI10,ZERO,-A9/4.D0, PSI9, ISLV) C IF (ISLV.EQ.0) THEN C PSI9 = MAX (MIN (PSI9,CHI9), ZERO) C ELSE C PSI9 = ZERO C ENDIF C ENDIF C C *** CALCULATE SPECIATION ******************************************** C MOLAL (2) = PSI8 + PSI7 + 2.D0*PSI1 ! NAI MOLAL (3) = PSI4 ! NH4I MOLAL (4) = PSI6 + PSI7 ! CLI MOLAL (5) = PSI2 + PSI1 + PSI9 + PSI10 ! SO4I MOLAL (6) = ZERO ! HSO4I MOLAL (7) = PSI5 + PSI8 ! NO3I MOLAL (8) = PSI11 ! CAI MOLAL (9) = 2.D0*PSI9 ! KI MOLAL (10)= PSI10 ! MGI C SMIN = 2.d0*MOLAL(5)+MOLAL(7)+MOLAL(4)-MOLAL(2)-MOLAL(3) & - MOLAL(9) - 2.D0*MOLAL(10) CALL CALCPH (SMIN, HI, OHI) MOLAL (1) = HI C GNH3 = MAX(CHI4 - PSI4, TINY) GHNO3 = MAX(CHI5 - PSI5, TINY) GHCL = MAX(CHI6 - PSI6, TINY) C CNH42S4 = ZERO CNH4NO3 = ZERO CNACL = MAX(CHI7 - PSI7, ZERO) CNANO3 = MAX(CHI8 - PSI8, ZERO) CNA2SO4 = MAX(CHI1 - PSI1, ZERO) CK2SO4 = MAX(CHI9 - PSI9, ZERO) CMGSO4 = ZERO CCASO4 = CHI11 C C *** NH4Cl(s) calculations C A3 = XK6 /(R*TEMP*R*TEMP) IF (GNH3*GHCL.GT.A3) THEN DELT = MIN(GNH3, GHCL) BB = -(GNH3+GHCL) CC = GNH3*GHCL-A3 DD = BB*BB - 4.D0*CC PSI31 = 0.5D0*(-BB + SQRT(DD)) PSI32 = 0.5D0*(-BB - SQRT(DD)) IF (DELT-PSI31.GT.ZERO .AND. PSI31.GT.ZERO) THEN PSI3 = PSI31 ELSEIF (DELT-PSI32.GT.ZERO .AND. PSI32.GT.ZERO) THEN PSI3 = PSI32 ELSE PSI3 = ZERO ENDIF ELSE PSI3 = ZERO ENDIF PSI3 = MAX(MIN(MIN(PSI3,CHI4-PSI4),CHI6-PSI6), ZERO) C C *** CALCULATE GAS / SOLID SPECIES (LIQUID IN MOLAL ALREADY) ********* C GNH3 = MAX(GNH3 - PSI3, TINY) GHCL = MAX(GHCL - PSI3, TINY) CNH4CL = PSI3 C CALL CALCMR ! Water content C C *** CALCULATE ACTIVITIES OR TERMINATE INTERNAL LOOP ***************** C IF (FRST.AND.CALAOU .OR. .NOT.FRST.AND.CALAIN) THEN CALL CALCACT ELSE GOTO 20 ENDIF 10 CONTINUE C C *** CALCULATE FUNCTION VALUE FOR OUTER LOOP *************************** C C20 FUNCM2A = MOLAL(3)*MOLAL(4)/GHCL/GNH3/A64 - ONE 20 FUNCM2A = MOLAL(1)*MOLAL(4)/GHCL/A6 - ONE C RETURN C C *** END OF FUNCTION FUNCM2A ******************************************* C END C C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE CALCM1 C *** CASE M1 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SULRAT > 2.0) ; Rcr+Na >= 2.0 ; Rcr < 2) C 2. SOLID AEROSOL ONLY C 3. SOLIDS POSSIBLE : CaSO4, K2SO4, NA2SO4, MGSO4, NH4CL, NACL, NANO3, NH4NO3 C C THERE ARE TWO POSSIBLE REGIMES HERE, DEPENDING ON RELATIVE HUMIDITY: C 1. WHEN RH >= MDRH ; LIQUID PHASE POSSIBLE (MDRH REGION) C 2. WHEN RH < MDRH ; ONLY SOLID PHASE POSSIBLE (SUBROUTINE CALCH1A) C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCM1 INCLUDE 'isrpia.inc' EXTERNAL CALCM1A, CALCM2A C C *** REGIME DEPENDS UPON THE AMBIENT RELATIVE HUMIDITY ***************** C IF (RH.LT.DRMM1) THEN SCASE = 'M1 ; SUBCASE 1' CALL CALCM1A ! SOLID PHASE ONLY POSSIBLE SCASE = 'M1 ; SUBCASE 1' ELSE SCASE = 'M1 ; SUBCASE 2' ! LIQUID & SOLID PHASE POSSIBLE CALL CALCMDRH2 (RH, DRMM1, DRNH4NO3, CALCM1A, CALCM2A) SCASE = 'M1 ; SUBCASE 2' ENDIF C RETURN C C *** END OF SUBROUTINE CALCM1 ****************************************** C END C C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE CALCM1A C *** CASE M1A C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SULRAT > 2.0) ; Rcr+Na >= 2.0 ; Rcr < 2) C 2. SOLID AEROSOL ONLY C 3. SOLIDS POSSIBLE : CaSO4, K2SO4, NA2SO4, MGSO4, NH4CL, NACL, NANO3, NH4NO3 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= SUBROUTINE CALCM1A INCLUDE 'isrpia.inc' DOUBLE PRECISION LAMDA, LAMDA1, LAMDA2, KAPA, KAPA1, KAPA2, NAFR, & NO3FR C C *** CALCULATE NON VOLATILE SOLIDS *********************************** C CCASO4 = MIN (W(6), W(2)) ! CCASO4 SO4FR = MAX(W(2) - CCASO4, ZERO) CAFR = MAX(W(6) - CCASO4, ZERO) CK2SO4 = MIN (0.5D0*W(7), SO4FR) ! CK2S04 FRK = MAX(W(7) - 2.D0*CK2SO4, ZERO) SO4FR = MAX(SO4FR - CK2SO4, ZERO) CMGSO4 = MIN (W(8), SO4FR) ! CMGSO4 FRMG = MAX(W(8) - CMGSO4, ZERO) SO4FR = MAX(SO4FR - CMGSO4, ZERO) CNA2SO4 = MAX (SO4FR,ZERO) ! CNA2SO4 NAFR = MAX (W(1)-2.D0*CNA2SO4, ZERO) CNANO3 = MIN (NAFR, W(4)) ! CNANO3 NO3FR = MAX (W(4)-CNANO3, ZERO) CNACL = MIN (MAX(NAFR-CNANO3, ZERO), W(5)) ! CNACL CLFR = MAX (W(5)-CNACL, ZERO) C C *** CALCULATE VOLATILE SPECIES ************************************** C ALF = W(3) ! FREE NH3 BET = CLFR ! FREE CL GAM = NO3FR ! FREE NO3 C RTSQ = R*TEMP*R*TEMP A1 = XK6/RTSQ A2 = XK10/RTSQ C THETA1 = GAM - BET*(A2/A1) THETA2 = A2/A1 C C QUADRATIC EQUATION SOLUTION C BB = (THETA1-ALF-BET*(ONE+THETA2))/(ONE+THETA2) CC = (ALF*BET-A1-BET*THETA1)/(ONE+THETA2) DD = BB*BB - 4.0D0*CC IF (DD.LT.ZERO) GOTO 100 ! Solve each reaction seperately C C TWO ROOTS FOR KAPA, CHECK AND SEE IF ANY VALID C SQDD = SQRT(DD) KAPA1 = 0.5D0*(-BB+SQDD) KAPA2 = 0.5D0*(-BB-SQDD) LAMDA1 = THETA1 + THETA2*KAPA1 LAMDA2 = THETA1 + THETA2*KAPA2 C IF (KAPA1.GE.ZERO .AND. LAMDA1.GE.ZERO) THEN IF (ALF-KAPA1-LAMDA1.GE.ZERO .AND. & BET-KAPA1.GE.ZERO .AND. GAM-LAMDA1.GE.ZERO) THEN KAPA = KAPA1 LAMDA= LAMDA1 GOTO 200 ENDIF ENDIF C IF (KAPA2.GE.ZERO .AND. LAMDA2.GE.ZERO) THEN IF (ALF-KAPA2-LAMDA2.GE.ZERO .AND. & BET-KAPA2.GE.ZERO .AND. GAM-LAMDA2.GE.ZERO) THEN KAPA = KAPA2 LAMDA= LAMDA2 GOTO 200 ENDIF ENDIF C C SEPERATE SOLUTION OF NH4CL & NH4NO3 EQUILIBRIA C 100 KAPA = ZERO LAMDA = ZERO DD1 = (ALF+BET)*(ALF+BET) - 4.0D0*(ALF*BET-A1) DD2 = (ALF+GAM)*(ALF+GAM) - 4.0D0*(ALF*GAM-A2) C C NH4CL EQUILIBRIUM C IF (DD1.GE.ZERO) THEN SQDD1 = SQRT(DD1) KAPA1 = 0.5D0*(ALF+BET + SQDD1) KAPA2 = 0.5D0*(ALF+BET - SQDD1) C IF (KAPA1.GE.ZERO .AND. KAPA1.LE.MIN(ALF,BET)) THEN KAPA = KAPA1 ELSE IF (KAPA2.GE.ZERO .AND. KAPA2.LE.MIN(ALF,BET)) THEN KAPA = KAPA2 ELSE KAPA = ZERO ENDIF ENDIF C C NH4NO3 EQUILIBRIUM C IF (DD2.GE.ZERO) THEN SQDD2 = SQRT(DD2) LAMDA1= 0.5D0*(ALF+GAM + SQDD2) LAMDA2= 0.5D0*(ALF+GAM - SQDD2) C IF (LAMDA1.GE.ZERO .AND. LAMDA1.LE.MIN(ALF,GAM)) THEN LAMDA = LAMDA1 ELSE IF (LAMDA2.GE.ZERO .AND. LAMDA2.LE.MIN(ALF,GAM)) THEN LAMDA = LAMDA2 ELSE LAMDA = ZERO ENDIF ENDIF C C IF BOTH KAPA, LAMDA ARE > 0, THEN APPLY EXISTANCE CRITERION C IF (KAPA.GT.ZERO .AND. LAMDA.GT.ZERO) THEN IF (BET .LT. LAMDA/THETA1) THEN KAPA = ZERO ELSE LAMDA= ZERO ENDIF ENDIF C C *** CALCULATE COMPOSITION OF VOLATILE SPECIES *********************** C 200 CONTINUE CNH4NO3 = LAMDA CNH4CL = KAPA C GNH3 = ALF - KAPA - LAMDA GHNO3 = GAM - LAMDA GHCL = BET - KAPA C RETURN C C *** END OF SUBROUTINE CALCM1A ***************************************** C END C C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE CALCP13 C *** CASE P13 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SULRAT > 2.0) ; Rcr+Na >= 2.0 ; Rcr > 2) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : CaSO4 C 4. Completely dissolved: CA(NO3)2, CACL2, K2SO4, KNO3, KCL, MGSO4, C MG(NO3)2, MGCL2, NANO3, NACL, NH4NO3, NH4CL C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCP13 INCLUDE 'isrpia.inc' C COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** SETUP PARAMETERS ************************************************ C CALAOU = .TRUE. CHI11 = MIN (W(2), W(6)) ! CCASO4 FRCA = MAX (W(6) - CHI11, ZERO) FRSO4 = MAX (W(2) - CHI11, ZERO) CHI9 = MIN (FRSO4, 0.5D0*W(7)) ! CK2SO4 FRK = MAX (W(7) - 2.D0*CHI9, ZERO) FRSO4 = MAX (FRSO4 - CHI9, ZERO) CHI10 = FRSO4 ! CMGSO4 FRMG = MAX (W(8) - CHI10, ZERO) CHI7 = MIN (W(1), W(5)) ! CNACL FRNA = MAX (W(1) - CHI7, ZERO) FRCL = MAX (W(5) - CHI7, ZERO) CHI12 = MIN (FRCA, 0.5D0*W(4)) ! CCANO32 FRCA = MAX (FRCA - CHI12, ZERO) FRNO3 = MAX (W(4) - 2.D0*CHI12, ZERO) CHI17 = MIN (FRCA, 0.5D0*FRCL) ! CCACL2 FRCA = MAX (FRCA - CHI17, ZERO) FRCL = MAX (FRCL - 2.D0*CHI17, ZERO) CHI15 = MIN (FRMG, 0.5D0*FRNO3) ! CMGNO32 FRMG = MAX (FRMG - CHI15, ZERO) FRNO3 = MAX (FRNO3 - 2.D0*CHI15, ZERO) CHI16 = MIN (FRMG, 0.5D0*FRCL) ! CMGCL2 FRMG = MAX (FRMG - CHI16, ZERO) FRCL = MAX (FRCL - 2.D0*CHI16, ZERO) CHI8 = MIN (FRNA, FRNO3) ! CNANO3 FRNA = MAX (FRNA - CHI8, ZERO) FRNO3 = MAX (FRNO3 - CHI8, ZERO) CHI14 = MIN (FRK, FRCL) ! CKCL FRK = MAX (FRK - CHI14, ZERO) FRCL = MAX (FRCL - CHI14, ZERO) CHI13 = MIN (FRK, FRNO3) ! CKNO3 FRK = MAX (FRK - CHI13, ZERO) FRNO3 = MAX (FRNO3 - CHI13, ZERO) C CHI5 = FRNO3 ! HNO3(g) CHI6 = FRCL ! HCL(g) CHI4 = W(3) ! NH3(g) C CHI3 = ZERO ! CNH4CL CHI1 = ZERO CHI2 = ZERO C PSI6LO = TINY PSI6HI = CHI6-TINY ! MIN(CHI6-TINY, CHI4) C C *** INITIAL VALUES FOR BISECTION ************************************ C X1 = PSI6LO Y1 = FUNCP13 (X1) IF (ABS(Y1).LE.EPS .OR. CHI6.LE.TINY) GOTO 50 C C *** ROOT TRACKING ; FOR THE RANGE OF HI AND LO ********************** C DX = (PSI6HI-PSI6LO)/FLOAT(NDIV) DO 10 I=1,NDIV X2 = X1+DX Y2 = FUNCP13 (X2) IF (SIGN(1.d0,Y1)*SIGN(1.d0,Y2).LT.ZERO) GOTO 20 ! (Y1*Y2.LT.ZERO) X1 = X2 Y1 = Y2 10 CONTINUE C C *** NO SUBDIVISION WITH SOLUTION; IF ABS(Y2) 2.0) ; Rcr+Na >= 2.0 ; Rcr > 2) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : CaSO4 C 4. Completely dissolved: CA(NO3)2, CACL2, K2SO4, KNO3, KCL, MGSO4, C MG(NO3)2, MGCL2, NANO3, NACL, NH4NO3, NH4CL C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C DOUBLE PRECISION FUNCTION FUNCP13 (X) INCLUDE 'isrpia.inc' C COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** SETUP PARAMETERS ************************************************ C PSI6 = X PSI1 = ZERO PSI2 = ZERO PSI3 = ZERO PSI4 = ZERO PSI7 = CHI7 PSI8 = CHI8 PSI9 = CHI9 PSI10 = CHI10 PSI11 = ZERO PSI12 = CHI12 PSI13 = CHI13 PSI14 = CHI14 PSI15 = CHI15 PSI16 = CHI16 PSI17 = CHI17 FRST = .TRUE. CALAIN = .TRUE. C C *** SOLVE EQUATIONS ; WITH ITERATIONS FOR ACTIVITY COEF. ************ C DO 10 I=1,NSWEEP C A4 = (XK2/XKW)*R*TEMP*(GAMA(10)/GAMA(5))**2.0 A5 = XK4 *R*TEMP*(WATER/GAMA(10))**2.0 A6 = XK3 *R*TEMP*(WATER/GAMA(11))**2.0 C C CALCULATE DISSOCIATION QUANTITIES C PSI5 = CHI5*(PSI6 + PSI7 + PSI14 + 2.D0*PSI16 + 2.D0*PSI17) - & A6/A5*(PSI8+2.D0*PSI12+PSI13+2.D0*PSI15)*(CHI6-PSI6) PSI5 = PSI5/(A6/A5*(CHI6-PSI6) + PSI6 + PSI7 + PSI14 + & 2.D0*PSI16 + 2.D0*PSI17) PSI5 = MIN(MAX(PSI5, TINY),CHI5) C IF (W(3).GT.TINY .AND. WATER.GT.TINY) THEN ! First try 3rd order soln BB =-(CHI4 + PSI6 + PSI5 + 1.d0/A4) CC = CHI4*(PSI5+PSI6) DD = MAX(BB*BB-4.d0*CC,ZERO) PSI4 =0.5d0*(-BB - SQRT(DD)) PSI4 = MIN(MAX(PSI4,ZERO),CHI4) ELSE PSI4 = TINY ENDIF C C *** CALCULATE SPECIATION ********************************************* C MOLAL (2) = PSI8 + PSI7 ! NAI MOLAL (3) = PSI4 ! NH4I MOLAL (4) = PSI6 + PSI7 + PSI14 + 2.D0*PSI16 + 2.D0*PSI17 ! CLI MOLAL (5) = PSI9 + PSI10 ! SO4I MOLAL (6) = ZERO ! HSO4I MOLAL (7) = PSI5 + PSI8 + 2.D0*PSI12 + PSI13 + 2.D0*PSI15 ! NO3I MOLAL (8) = PSI11 + PSI12 + PSI17 ! CAI MOLAL (9) = 2.D0*PSI9 + PSI13 + PSI14 ! KI MOLAL (10)= PSI10 + PSI15 + PSI16 ! MGI C C *** CALCULATE H+ ***************************************************** C C REST = 2.D0*W(2) + W(4) + W(5) CC C DELT1 = 0.0d0 C DELT2 = 0.0d0 C IF (W(1)+W(6)+W(7)+W(8).GT.REST) THEN CC CC *** CALCULATE EQUILIBRIUM CONSTANTS ********************************** CC C ALFA1 = XK26*RH*(WATER/1.0) ! CO2(aq) + H2O C ALFA2 = XK27*(WATER/1.0) ! HCO3- CC C X = W(1)+W(6)+W(7)+W(8) - REST ! EXCESS OF CRUSTALS EQUALS CO2(aq) CC C DIAK = SQRT( (ALFA1)**2.0 + 4.0D0*ALFA1*X) C DELT1 = 0.5*(-ALFA1 + DIAK) C DELT1 = MIN ( MAX (DELT1, ZERO), X) C DELT2 = ALFA2 C DELT2 = MIN ( DELT2, DELT1) C MOLAL(1) = DELT1 + DELT2 ! H+ C ELSE C C *** NO EXCESS OF CRUSTALS CALCULATE H+ ******************************* C SMIN = 2.d0*MOLAL(5)+MOLAL(7)+MOLAL(4)-MOLAL(2)-MOLAL(3) & - MOLAL(9) - 2.D0*MOLAL(10) - 2.D0*MOLAL(8) CALL CALCPH (SMIN, HI, OHI) MOLAL (1) = HI C ENDIF C GNH3 = MAX(CHI4 - PSI4, TINY) GHNO3 = MAX(CHI5 - PSI5, TINY) GHCL = MAX(CHI6 - PSI6, TINY) C CNH4NO3 = ZERO CNH4CL = ZERO CNACL = ZERO CNANO3 = ZERO CK2SO4 = ZERO CMGSO4 = ZERO CCASO4 = CHI11 CCANO32 = ZERO CKNO3 = ZERO CKCL = ZERO CMGNO32 = ZERO CMGCL2 = ZERO CCACL2 = ZERO C CALL CALCMR ! Water content C C *** CALCULATE ACTIVITIES OR TERMINATE INTERNAL LOOP ***************** C IF (FRST.AND.CALAOU .OR. .NOT.FRST.AND.CALAIN) THEN CALL CALCACT ELSE GOTO 20 ENDIF 10 CONTINUE C C *** CALCULATE FUNCTION VALUE FOR OUTER LOOP *************************** C C20 FUNCP13 = MOLAL(3)*MOLAL(4)/GHCL/GNH3/A6/A4 - ONE 20 FUNCP13 = MOLAL(1)*MOLAL(4)/GHCL/A6 - ONE C RETURN C C *** END OF FUNCTION FUNCP13 ******************************************* C END C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE CALCP12 C *** CASE P12 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SULRAT > 2.0) ; Rcr+Na >= 2.0 ; Rcr > 2) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : CaSO4, K2SO4 C 4. Completely dissolved: CA(NO3)2, CACL2, KNO3, KCL, MGSO4, C MG(NO3)2, MGCL2, NANO3, NACL, NH4NO3, NH4CL C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCP12 INCLUDE 'isrpia.inc' C COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** SETUP PARAMETERS ************************************************ C CALAOU = .TRUE. CHI11 = MIN (W(2), W(6)) ! CCASO4 FRCA = MAX (W(6) - CHI11, ZERO) FRSO4 = MAX (W(2) - CHI11, ZERO) CHI9 = MIN (FRSO4, 0.5D0*W(7)) ! CK2SO4 FRK = MAX (W(7) - 2.D0*CHI9, ZERO) FRSO4 = MAX (FRSO4 - CHI9, ZERO) CHI10 = FRSO4 ! CMGSO4 FRMG = MAX (W(8) - CHI10, ZERO) CHI7 = MIN (W(1), W(5)) ! CNACL FRNA = MAX (W(1) - CHI7, ZERO) FRCL = MAX (W(5) - CHI7, ZERO) CHI12 = MIN (FRCA, 0.5D0*W(4)) ! CCANO32 FRCA = MAX (FRCA - CHI12, ZERO) FRNO3 = MAX (W(4) - 2.D0*CHI12, ZERO) CHI17 = MIN (FRCA, 0.5D0*FRCL) ! CCACL2 FRCA = MAX (FRCA - CHI17, ZERO) FRCL = MAX (FRCL - 2.D0*CHI17, ZERO) CHI15 = MIN (FRMG, 0.5D0*FRNO3) ! CMGNO32 FRMG = MAX (FRMG - CHI15, ZERO) FRNO3 = MAX (FRNO3 - 2.D0*CHI15, ZERO) CHI16 = MIN (FRMG, 0.5D0*FRCL) ! CMGCL2 FRMG = MAX (FRMG - CHI16, ZERO) FRCL = MAX (FRCL - 2.D0*CHI16, ZERO) CHI8 = MIN (FRNA, FRNO3) ! CNANO3 FRNA = MAX (FRNA - CHI8, ZERO) FRNO3 = MAX (FRNO3 - CHI8, ZERO) CHI14 = MIN (FRK, FRCL) ! CKCL FRK = MAX (FRK - CHI14, ZERO) FRCL = MAX (FRCL - CHI14, ZERO) CHI13 = MIN (FRK, FRNO3) ! CKNO3 FRK = MAX (FRK - CHI13, ZERO) FRNO3 = MAX (FRNO3 - CHI13, ZERO) C CHI5 = FRNO3 ! HNO3(g) CHI6 = FRCL ! HCL(g) CHI4 = W(3) ! NH3(g) C CHI3 = ZERO ! CNH4CL CHI1 = ZERO CHI2 = ZERO C PSI6LO = TINY PSI6HI = CHI6-TINY ! MIN(CHI6-TINY, CHI4) C C *** INITIAL VALUES FOR BISECTION ************************************ C X1 = PSI6LO Y1 = FUNCP12 (X1) IF (ABS(Y1).LE.EPS .OR. CHI6.LE.TINY) GOTO 50 C C *** ROOT TRACKING ; FOR THE RANGE OF HI AND LO ********************** C DX = (PSI6HI-PSI6LO)/FLOAT(NDIV) DO 10 I=1,NDIV X2 = X1+DX Y2 = FUNCP12 (X2) IF (SIGN(1.d0,Y1)*SIGN(1.d0,Y2).LT.ZERO) GOTO 20 ! (Y1*Y2.LT.ZERO) X1 = X2 Y1 = Y2 10 CONTINUE C C *** NO SUBDIVISION WITH SOLUTION; IF ABS(Y2) 2.0) ; Rcr+Na >= 2.0 ; Rcr > 2) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : CaSO4, K2SO4 C 4. Completely dissolved: CA(NO3)2, CACL2, KNO3, KCL, MGSO4, C MG(NO3)2, MGCL2, NANO3, NACL, NH4NO3, NH4CL C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C DOUBLE PRECISION FUNCTION FUNCP12 (X) INCLUDE 'isrpia.inc' C COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** SETUP PARAMETERS ************************************************ C PSI6 = X PSI1 = ZERO PSI2 = ZERO PSI3 = ZERO PSI4 = ZERO PSI7 = CHI7 PSI8 = CHI8 PSI9 = ZERO PSI10 = CHI10 PSI11 = ZERO PSI12 = CHI12 PSI13 = CHI13 PSI14 = CHI14 PSI15 = CHI15 PSI16 = CHI16 PSI17 = CHI17 FRST = .TRUE. CALAIN = .TRUE. C C *** SOLVE EQUATIONS ; WITH ITERATIONS FOR ACTIVITY COEF. ************ C DO 10 I=1,NSWEEP C A4 = (XK2/XKW)*R*TEMP*(GAMA(10)/GAMA(5))**2.0 A5 = XK4 *R*TEMP*(WATER/GAMA(10))**2.0 A6 = XK3 *R*TEMP*(WATER/GAMA(11))**2.0 A9 = XK17 *(WATER/GAMA(17))**3.0 C C CALCULATE DISSOCIATION QUANTITIES C PSI5 = CHI5*(PSI6 + PSI7 + PSI14 + 2.D0*PSI16 + 2.D0*PSI17) - & A6/A5*(PSI8+2.D0*PSI12+PSI13+2.D0*PSI15)*(CHI6-PSI6-PSI3) PSI5 = PSI5/(A6/A5*(CHI6-PSI6-PSI3) + PSI6 + PSI7 + PSI14 + & 2.D0*PSI16 + 2.D0*PSI17) PSI5 = MIN(MAX(PSI5, TINY),CHI5) C IF (W(3).GT.TINY .AND. WATER.GT.TINY) THEN ! First try 3rd order soln BB =-(CHI4 + PSI6 + PSI5 + 1.d0/A4) CC = CHI4*(PSI5+PSI6) DD = MAX(BB*BB-4.d0*CC,ZERO) PSI4 =0.5d0*(-BB - SQRT(DD)) PSI4 = MIN(MAX(PSI4,ZERO),CHI4) ELSE PSI4 = TINY ENDIF C IF (CHI9.GT.TINY .AND. WATER.GT.TINY) THEN !K2SO4 BBP = PSI10+PSI13+PSI14 CCP = (PSI13+PSI14)*(0.25D0*(PSI13+PSI14)+PSI10) DDP = 0.25D0*(PSI13+PSI14)**2.0*PSI10-A9/4.D0 CALL POLY3 (BBP, CCP, DDP, PSI9, ISLV) IF (ISLV.EQ.0) THEN PSI9 = MIN (MAX(PSI9,ZERO) , CHI9) ELSE PSI9 = ZERO ENDIF ENDIF C C C *** CALCULATE SPECIATION ******************************************** C MOLAL (2) = PSI8 + PSI7 ! NAI MOLAL (3) = PSI4 ! NH4I MOLAL (4) = PSI6 + PSI7 + PSI14 + 2.D0*PSI16 + 2.D0*PSI17 ! CLI MOLAL (5) = PSI9 + PSI10 ! SO4I MOLAL (6) = ZERO ! HSO4I MOLAL (7) = PSI5 + PSI8 + 2.D0*PSI12 + PSI13 + 2.D0*PSI15 ! NO3I MOLAL (8) = PSI11 + PSI12 + PSI17 ! CAI MOLAL (9) = 2.D0*PSI9 + PSI13 + PSI14 ! KI MOLAL (10)= PSI10 + PSI15 + PSI16 ! MGI C C *** CALCULATE H+ ***************************************************** C C REST = 2.D0*W(2) + W(4) + W(5) CC C DELT1 = 0.0d0 C DELT2 = 0.0d0 C IF (W(1)+W(6)+W(7)+W(8).GT.REST) THEN CC CC *** CALCULATE EQUILIBRIUM CONSTANTS ********************************** CC C ALFA1 = XK26*RH*(WATER/1.0) ! CO2(aq) + H2O C ALFA2 = XK27*(WATER/1.0) ! HCO3- CC C X = W(1)+W(6)+W(7)+W(8) - REST ! EXCESS OF CRUSTALS EQUALS CO2(aq) CC C DIAK = SQRT( (ALFA1)**2.0 + 4.0D0*ALFA1*X) C DELT1 = 0.5*(-ALFA1 + DIAK) C DELT1 = MIN ( MAX (DELT1, ZERO), X) C DELT2 = ALFA2 C DELT2 = MIN ( DELT2, DELT1) C MOLAL(1) = DELT1 + DELT2 ! H+ C ELSE CC CC *** NO EXCESS OF CRUSTALS CALCULATE H+ ******************************* CC SMIN = 2.d0*MOLAL(5)+MOLAL(7)+MOLAL(4)-MOLAL(2)-MOLAL(3) & - MOLAL(9) - 2.D0*MOLAL(10) - 2.D0*MOLAL(8) CALL CALCPH (SMIN, HI, OHI) MOLAL (1) = HI C ENDIF C GNH3 = MAX(CHI4 - PSI4, TINY) GHNO3 = MAX(CHI5 - PSI5, TINY) GHCL = MAX(CHI6 - PSI6, TINY) C CNH4NO3 = ZERO CNH4CL = ZERO CNACL = ZERO CNANO3 = ZERO CK2SO4 = MAX (CHI9 - PSI9, ZERO) CMGSO4 = ZERO CCASO4 = CHI11 CCANO32 = ZERO CKNO3 = ZERO CKCL = ZERO CMGNO32 = ZERO CMGCL2 = ZERO CCACL2 = ZERO C CALL CALCMR ! Water content C C *** CALCULATE ACTIVITIES OR TERMINATE INTERNAL LOOP ***************** C IF (FRST.AND.CALAOU .OR. .NOT.FRST.AND.CALAIN) THEN CALL CALCACT ELSE GOTO 20 ENDIF 10 CONTINUE C C *** CALCULATE FUNCTION VALUE FOR OUTER LOOP *************************** C C20 FUNCP12 = MOLAL(3)*MOLAL(4)/GHCL/GNH3/A6/A4 - ONE 20 FUNCP12 = MOLAL(1)*MOLAL(4)/GHCL/A6 - ONE C RETURN C C *** END OF FUNCTION FUNCP12 ******************************************* C END C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE CALCP11 C *** CASE P11 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SULRAT > 2.0) ; Rcr+Na >= 2.0 ; Rcr > 2) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : CaSO4, K2SO4, KNO3 C 4. Completely dissolved: CA(NO3)2, CACL2, KCL, MGSO4, C MG(NO3)2, MGCL2, NANO3, NACL, NH4NO3, NH4CL C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCP11 INCLUDE 'isrpia.inc' C COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** SETUP PARAMETERS ************************************************ C CALAOU = .TRUE. CHI11 = MIN (W(2), W(6)) ! CCASO4 FRCA = MAX (W(6) - CHI11, ZERO) FRSO4 = MAX (W(2) - CHI11, ZERO) CHI9 = MIN (FRSO4, 0.5D0*W(7)) ! CK2SO4 FRK = MAX (W(7) - 2.D0*CHI9, ZERO) FRSO4 = MAX (FRSO4 - CHI9, ZERO) CHI10 = FRSO4 ! CMGSO4 FRMG = MAX (W(8) - CHI10, ZERO) CHI7 = MIN (W(1), W(5)) ! CNACL FRNA = MAX (W(1) - CHI7, ZERO) FRCL = MAX (W(5) - CHI7, ZERO) CHI12 = MIN (FRCA, 0.5D0*W(4)) ! CCANO32 FRCA = MAX (FRCA - CHI12, ZERO) FRNO3 = MAX (W(4) - 2.D0*CHI12, ZERO) CHI17 = MIN (FRCA, 0.5D0*FRCL) ! CCACL2 FRCA = MAX (FRCA - CHI17, ZERO) FRCL = MAX (FRCL - 2.D0*CHI17, ZERO) CHI15 = MIN (FRMG, 0.5D0*FRNO3) ! CMGNO32 FRMG = MAX (FRMG - CHI15, ZERO) FRNO3 = MAX (FRNO3 - 2.D0*CHI15, ZERO) CHI16 = MIN (FRMG, 0.5D0*FRCL) ! CMGCL2 FRMG = MAX (FRMG - CHI16, ZERO) FRCL = MAX (FRCL - 2.D0*CHI16, ZERO) CHI8 = MIN (FRNA, FRNO3) ! CNANO3 FRNA = MAX (FRNA - CHI8, ZERO) FRNO3 = MAX (FRNO3 - CHI8, ZERO) CHI14 = MIN (FRK, FRCL) ! CKCL FRK = MAX (FRK - CHI14, ZERO) FRCL = MAX (FRCL - CHI14, ZERO) CHI13 = MIN (FRK, FRNO3) ! CKNO3 FRK = MAX (FRK - CHI13, ZERO) FRNO3 = MAX (FRNO3 - CHI13, ZERO) C CHI5 = FRNO3 ! HNO3(g) CHI6 = FRCL ! HCL(g) CHI4 = W(3) ! NH3(g) C CHI3 = ZERO ! CNH4CL CHI1 = ZERO CHI2 = ZERO C PSI6LO = TINY PSI6HI = CHI6-TINY ! MIN(CHI6-TINY, CHI4) C C *** INITIAL VALUES FOR BISECTION ************************************ C X1 = PSI6LO Y1 = FUNCP11 (X1) IF (ABS(Y1).LE.EPS .OR. CHI6.LE.TINY) GOTO 50 C C *** ROOT TRACKING ; FOR THE RANGE OF HI AND LO ********************** C DX = (PSI6HI-PSI6LO)/FLOAT(NDIV) DO 10 I=1,NDIV X2 = X1+DX Y2 = FUNCP11 (X2) IF (SIGN(1.d0,Y1)*SIGN(1.d0,Y2).LT.ZERO) GOTO 20 ! (Y1*Y2.LT.ZERO) X1 = X2 Y1 = Y2 10 CONTINUE C C *** NO SUBDIVISION WITH SOLUTION; IF ABS(Y2) 2.0) ; Rcr+Na >= 2.0 ; Rcr > 2) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : CaSO4, K2SO4, KNO3 C 4. Completely dissolved: CA(NO3)2, CACL2, KCL, MGSO4, C MG(NO3)2, MGCL2, NANO3, NACL, NH4NO3, NH4CL C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C DOUBLE PRECISION FUNCTION FUNCP11 (X) INCLUDE 'isrpia.inc' C COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** SETUP PARAMETERS ************************************************ C PSI6 = X PSI1 = ZERO PSI2 = ZERO PSI3 = ZERO PSI7 = CHI7 PSI8 = CHI8 PSI9 = ZERO PSI10 = CHI10 PSI11 = ZERO PSI12 = CHI12 PSI13 = ZERO PSI14 = CHI14 PSI15 = CHI15 PSI16 = CHI16 PSI17 = CHI17 FRST = .TRUE. CALAIN = .TRUE. C C *** SOLVE EQUATIONS ; WITH ITERATIONS FOR ACTIVITY COEF. ************ C DO 10 I=1,NSWEEP C A4 = (XK2/XKW)*R*TEMP*(GAMA(10)/GAMA(5))**2.0 A5 = XK4 *R*TEMP*(WATER/GAMA(10))**2.0 A6 = XK3 *R*TEMP*(WATER/GAMA(11))**2.0 A9 = XK17 *(WATER/GAMA(17))**3.0 A13 = XK19 *(WATER/GAMA(19))**2.0 C C CALCULATE DISSOCIATION QUANTITIES C PSI5 = CHI5*(PSI6 + PSI7 + PSI14 + 2.D0*PSI16 + 2.D0*PSI17) - & A6/A5*(PSI8+2.D0*PSI12+PSI13+2.D0*PSI15)*(CHI6-PSI6-PSI3) PSI5 = PSI5/(A6/A5*(CHI6-PSI6-PSI3) + PSI6 + PSI7 + PSI14 + & 2.D0*PSI16 + 2.D0*PSI17) PSI5 = MIN (MAX (PSI5, TINY) , CHI5) C IF (W(3).GT.TINY .AND. WATER.GT.TINY) THEN ! First try 3rd order soln BB =-(CHI4 + PSI6 + PSI5 + 1.d0/A4) CC = CHI4*(PSI5+PSI6) DD = MAX(BB*BB-4.d0*CC,ZERO) PSI4 =0.5d0*(-BB - SQRT(DD)) PSI4 = MIN(MAX(PSI4,ZERO),CHI4) ELSE PSI4 = TINY ENDIF C IF (CHI13.GT.TINY .AND. WATER.GT.TINY) THEN !KNO3 VHTA = PSI5+PSI8+2.D0*PSI12+2.D0*PSI15+PSI14+2.D0*PSI9 GKAMA = (PSI5+PSI8+2.D0*PSI12+2.D0*PSI15)*(2.D0*PSI9+PSI14)-A13 DELTA = MAX(VHTA*VHTA-4.d0*GKAMA,ZERO) PSI13 =0.5d0*(-VHTA + SQRT(DELTA)) PSI13 = MIN(MAX(PSI13,ZERO),CHI13) ENDIF C IF (CHI9.GT.TINY .AND. WATER.GT.TINY) THEN !K2SO4 BBP = PSI10+PSI13+PSI14 CCP = (PSI13+PSI14)*(0.25D0*(PSI13+PSI14)+PSI10) DDP = 0.25D0*(PSI13+PSI14)**2.0*PSI10-A9/4.D0 CALL POLY3 (BBP, CCP, DDP, PSI9, ISLV) IF (ISLV.EQ.0) THEN PSI9 = MIN (MAX(PSI9,ZERO) , CHI9) ELSE PSI9 = ZERO ENDIF ENDIF C C C *** CALCULATE SPECIATION ******************************************** C MOLAL (2) = PSI8 + PSI7 ! NAI MOLAL (3) = PSI4 ! NH4I MOLAL (4) = PSI6 + PSI7 + PSI14 + 2.D0*PSI16 + 2.D0*PSI17 ! CLI MOLAL (5) = PSI9 + PSI10 ! SO4I MOLAL (6) = ZERO ! HSO4I MOLAL (7) = PSI5 + PSI8 + 2.D0*PSI12 + PSI13 + 2.D0*PSI15 ! NO3I MOLAL (8) = PSI11 + PSI12 + PSI17 ! CAI MOLAL (9) = 2.D0*PSI9 + PSI13 + PSI14 ! KI MOLAL (10)= PSI10 + PSI15 + PSI16 ! MGI C C *** CALCULATE H+ ***************************************************** C C REST = 2.D0*W(2) + W(4) + W(5) CC C DELT1 = 0.0d0 C DELT2 = 0.0d0 C IF (W(1)+W(6)+W(7)+W(8).GT.REST) THEN CC CC *** CALCULATE EQUILIBRIUM CONSTANTS ********************************** CC C ALFA1 = XK26*RH*(WATER/1.0) ! CO2(aq) + H2O C ALFA2 = XK27*(WATER/1.0) ! HCO3- CC C X = W(1)+W(6)+W(7)+W(8) - REST ! EXCESS OF CRUSTALS EQUALS CO2(aq) CC C DIAK = SQRT( (ALFA1)**2.0 + 4.0D0*ALFA1*X) C DELT1 = 0.5*(-ALFA1 + DIAK) C DELT1 = MIN ( MAX (DELT1, ZERO), X) C DELT2 = ALFA2 C DELT2 = MIN ( DELT2, DELT1) C MOLAL(1) = DELT1 + DELT2 ! H+ C ELSE CC CC *** NO EXCESS OF CRUSTALS CALCULATE H+ ******************************* CC SMIN = 2.d0*MOLAL(5)+MOLAL(7)+MOLAL(4)-MOLAL(2)-MOLAL(3) & - MOLAL(9) - 2.D0*MOLAL(10) - 2.D0*MOLAL(8) CALL CALCPH (SMIN, HI, OHI) MOLAL (1) = HI C ENDIF C GNH3 = MAX(CHI4 - PSI4, TINY) GHNO3 = MAX(CHI5 - PSI5, TINY) GHCL = MAX(CHI6 - PSI6, TINY) C CNH4NO3 = ZERO CNH4CL = ZERO CNACL = ZERO CNANO3 = ZERO CK2SO4 = MAX (CHI9 - PSI9, ZERO) CMGSO4 = ZERO CCASO4 = CHI11 CCANO32 = ZERO CKNO3 = MAX (CHI13 - PSI13, ZERO) CKCL = ZERO CMGNO32 = ZERO CMGCL2 = ZERO CCACL2 = ZERO C CALL CALCMR ! Water content C C *** CALCULATE ACTIVITIES OR TERMINATE INTERNAL LOOP ***************** C IF (FRST.AND.CALAOU .OR. .NOT.FRST.AND.CALAIN) THEN CALL CALCACT ELSE GOTO 20 ENDIF 10 CONTINUE C C *** CALCULATE FUNCTION VALUE FOR OUTER LOOP *************************** C C20 FUNCP11 = MOLAL(3)*MOLAL(4)/GHCL/GNH3/A6/A4 - ONE 20 FUNCP11 = MOLAL(1)*MOLAL(4)/GHCL/A6 - ONE C RETURN C C *** END OF FUNCTION FUNCP11 ******************************************* C END C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE CALCP10 C *** CASE P10 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SULRAT > 2.0) ; Rcr+Na >= 2.0 ; Rcr > 2) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : CaSO4, K2SO4, KNO3, MGSO4 C 4. Completely dissolved: CA(NO3)2, CACL2, KCL, C MG(NO3)2, MGCL2, NANO3, NACL, NH4NO3, NH4CL C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCP10 INCLUDE 'isrpia.inc' C COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** SETUP PARAMETERS ************************************************ C CALAOU = .TRUE. CHI11 = MIN (W(2), W(6)) ! CCASO4 FRCA = MAX (W(6) - CHI11, ZERO) FRSO4 = MAX (W(2) - CHI11, ZERO) CHI9 = MIN (FRSO4, 0.5D0*W(7)) ! CK2SO4 FRK = MAX (W(7) - 2.D0*CHI9, ZERO) FRSO4 = MAX (FRSO4 - CHI9, ZERO) CHI10 = FRSO4 ! CMGSO4 FRMG = MAX (W(8) - CHI10, ZERO) CHI7 = MIN (W(1), W(5)) ! CNACL FRNA = MAX (W(1) - CHI7, ZERO) FRCL = MAX (W(5) - CHI7, ZERO) CHI12 = MIN (FRCA, 0.5D0*W(4)) ! CCANO32 FRCA = MAX (FRCA - CHI12, ZERO) FRNO3 = MAX (W(4) - 2.D0*CHI12, ZERO) CHI17 = MIN (FRCA, 0.5D0*FRCL) ! CCACL2 FRCA = MAX (FRCA - CHI17, ZERO) FRCL = MAX (FRCL - 2.D0*CHI17, ZERO) CHI15 = MIN (FRMG, 0.5D0*FRNO3) ! CMGNO32 FRMG = MAX (FRMG - CHI15, ZERO) FRNO3 = MAX (FRNO3 - 2.D0*CHI15, ZERO) CHI16 = MIN (FRMG, 0.5D0*FRCL) ! CMGCL2 FRMG = MAX (FRMG - CHI16, ZERO) FRCL = MAX (FRCL - 2.D0*CHI16, ZERO) CHI8 = MIN (FRNA, FRNO3) ! CNANO3 FRNA = MAX (FRNA - CHI8, ZERO) FRNO3 = MAX (FRNO3 - CHI8, ZERO) CHI14 = MIN (FRK, FRCL) ! CKCL FRK = MAX (FRK - CHI14, ZERO) FRCL = MAX (FRCL - CHI14, ZERO) CHI13 = MIN (FRK, FRNO3) ! CKNO3 FRK = MAX (FRK - CHI13, ZERO) FRNO3 = MAX (FRNO3 - CHI13, ZERO) C CHI5 = FRNO3 ! HNO3(g) CHI6 = FRCL ! HCL(g) CHI4 = W(3) ! NH3(g) C CHI3 = ZERO ! CNH4CL CHI1 = ZERO CHI2 = ZERO C PSI6LO = TINY PSI6HI = CHI6-TINY ! MIN(CHI6-TINY, CHI4) C C *** INITIAL VALUES FOR BISECTION ************************************ C X1 = PSI6LO Y1 = FUNCP10 (X1) IF (ABS(Y1).LE.EPS .OR. CHI6.LE.TINY) GOTO 50 C C *** ROOT TRACKING ; FOR THE RANGE OF HI AND LO ********************** C DX = (PSI6HI-PSI6LO)/FLOAT(NDIV) DO 10 I=1,NDIV X2 = X1+DX Y2 = FUNCP10 (X2) IF (SIGN(1.d0,Y1)*SIGN(1.d0,Y2).LT.ZERO) GOTO 20 ! (Y1*Y2.LT.ZERO) X1 = X2 Y1 = Y2 10 CONTINUE C C *** NO SUBDIVISION WITH SOLUTION; IF ABS(Y2) 2.0) ; Rcr+Na >= 2.0 ; Rcr > 2) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : CaSO4, K2SO4, KNO3, MGSO4 C 4. Completely dissolved: CA(NO3)2, CACL2, KCL, C MG(NO3)2, MGCL2, NANO3, NACL, NH4NO3, NH4CL C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C DOUBLE PRECISION FUNCTION FUNCP10 (X) INCLUDE 'isrpia.inc' C COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** SETUP PARAMETERS ************************************************ C PSI6 = X PSI1 = ZERO PSI2 = ZERO PSI3 = ZERO PSI7 = CHI7 PSI8 = CHI8 PSI9 = ZERO PSI10 = CHI10 PSI11 = ZERO PSI12 = CHI12 PSI13 = ZERO PSI14 = CHI14 PSI15 = CHI15 PSI16 = CHI16 PSI17 = CHI17 FRST = .TRUE. CALAIN = .TRUE. C C *** SOLVE EQUATIONS ; WITH ITERATIONS FOR ACTIVITY COEF. ************ C DO 10 I=1,NSWEEP C A4 = (XK2/XKW)*R*TEMP*(GAMA(10)/GAMA(5))**2.0 A5 = XK4 *R*TEMP*(WATER/GAMA(10))**2.0 A6 = XK3 *R*TEMP*(WATER/GAMA(11))**2.0 A9 = XK17 *(WATER/GAMA(17))**3.0 A13 = XK19 *(WATER/GAMA(19))**2.0 C C CALCULATE DISSOCIATION QUANTITIES C PSI5 = CHI5*(PSI6 + PSI7 + PSI14 + 2.D0*PSI16 + 2.D0*PSI17) - & A6/A5*(PSI8+2.D0*PSI12+PSI13+2.D0*PSI15)*(CHI6-PSI6-PSI3) PSI5 = PSI5/(A6/A5*(CHI6-PSI6-PSI3) + PSI6 + PSI7 + PSI14 + & 2.D0*PSI16 + 2.D0*PSI17) PSI5 = MIN (MAX (PSI5, TINY) , CHI5) C IF (W(3).GT.TINY .AND. WATER.GT.TINY) THEN ! First try 3rd order soln BB =-(CHI4 + PSI6 + PSI5 + 1.d0/A4) CC = CHI4*(PSI5+PSI6) DD = MAX(BB*BB-4.d0*CC,ZERO) PSI4 =0.5d0*(-BB - SQRT(DD)) PSI4 = MIN(MAX(PSI4,ZERO),CHI4) ELSE PSI4 = TINY ENDIF C IF (CHI13.GT.TINY .AND. WATER.GT.TINY) THEN !KNO3 VHTA = PSI5+PSI8+2.D0*PSI12+2.D0*PSI15+PSI14+2.D0*PSI9 GKAMA = (PSI5+PSI8+2.D0*PSI12+2.D0*PSI15)*(2.D0*PSI9+PSI14)-A13 DELTA = MAX(VHTA*VHTA-4.d0*GKAMA,ZERO) PSI13 =0.5d0*(-VHTA + SQRT(DELTA)) PSI13 = MIN(MAX(PSI13,ZERO),CHI13) ENDIF C IF (CHI9.GT.TINY .AND. WATER.GT.TINY) THEN !K2SO4 BBP = PSI10+PSI13+PSI14 CCP = (PSI13+PSI14)*(0.25D0*(PSI13+PSI14)+PSI10) DDP = 0.25D0*(PSI13+PSI14)**2.0*PSI10-A9/4.D0 CALL POLY3 (BBP, CCP, DDP, PSI9, ISLV) IF (ISLV.EQ.0) THEN PSI9 = MIN (MAX(PSI9,ZERO) , CHI9) ELSE PSI9 = ZERO ENDIF ENDIF C C C *** CALCULATE SPECIATION ******************************************** C MOLAL (2) = PSI8 + PSI7 ! NAI MOLAL (3) = PSI4 ! NH4I MOLAL (4) = PSI6 + PSI7 + PSI14 + 2.D0*PSI16 + 2.D0*PSI17 ! CLI MOLAL (5) = PSI9 + PSI10 ! SO4I MOLAL (6) = ZERO ! HSO4I MOLAL (7) = PSI5 + PSI8 + 2.D0*PSI12 + PSI13 + 2.D0*PSI15 ! NO3I MOLAL (8) = PSI11 + PSI12 + PSI17 ! CAI MOLAL (9) = 2.D0*PSI9 + PSI13 + PSI14 ! KI MOLAL (10)= PSI10 + PSI15 + PSI16 ! MGI C C *** CALCULATE H+ ***************************************************** C C REST = 2.D0*W(2) + W(4) + W(5) CC C DELT1 = 0.0d0 C DELT2 = 0.0d0 C IF (W(1)+W(6)+W(7)+W(8).GT.REST) THEN CC CC *** CALCULATE EQUILIBRIUM CONSTANTS ********************************** CC C ALFA1 = XK26*RH*(WATER/1.0) ! CO2(aq) + H2O C ALFA2 = XK27*(WATER/1.0) ! HCO3- CC C X = W(1)+W(6)+W(7)+W(8) - REST ! EXCESS OF CRUSTALS EQUALS CO2(aq) CC C DIAK = SQRT( (ALFA1)**2.0 + 4.0D0*ALFA1*X) C DELT1 = 0.5*(-ALFA1 + DIAK) C DELT1 = MIN ( MAX (DELT1, ZERO), X) C DELT2 = ALFA2 C DELT2 = MIN ( DELT2, DELT1) C MOLAL(1) = DELT1 + DELT2 ! H+ C ELSE CC CC *** NO EXCESS OF CRUSTALS CALCULATE H+ ******************************* CC SMIN = 2.d0*MOLAL(5)+MOLAL(7)+MOLAL(4)-MOLAL(2)-MOLAL(3) & - MOLAL(9) - 2.D0*MOLAL(10) - 2.D0*MOLAL(8) CALL CALCPH (SMIN, HI, OHI) MOLAL (1) = HI C ENDIF C GNH3 = MAX(CHI4 - PSI4, TINY) GHNO3 = MAX(CHI5 - PSI5, TINY) GHCL = MAX(CHI6 - PSI6, TINY) C CNH4NO3 = ZERO CNH4CL = ZERO CNACL = ZERO CNANO3 = ZERO CK2SO4 = MAX (CHI9 - PSI9, ZERO) CMGSO4 = ZERO CCASO4 = CHI11 CCANO32 = ZERO CKNO3 = MAX (CHI13 - PSI13, ZERO) CKCL = ZERO CMGNO32 = ZERO CMGCL2 = ZERO CCACL2 = ZERO C CALL CALCMR ! Water content C C *** CALCULATE ACTIVITIES OR TERMINATE INTERNAL LOOP ***************** C IF (FRST.AND.CALAOU .OR. .NOT.FRST.AND.CALAIN) THEN CALL CALCACT ELSE GOTO 20 ENDIF 10 CONTINUE C C *** CALCULATE FUNCTION VALUE FOR OUTER LOOP *************************** C C20 FUNCP10 = MOLAL(3)*MOLAL(4)/GHCL/GNH3/A6/A4 - ONE 20 FUNCP10 = MOLAL(1)*MOLAL(4)/GHCL/A6 - ONE C RETURN C C *** END OF FUNCTION FUNCP10 ******************************************* C END C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE CALCP9 C *** CASE P9 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SULRAT > 2.0) ; Rcr+Na >= 2.0 ; Rcr > 2) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : CaSO4, K2SO4, KNO3, MGSO4, KCL C 4. Completely dissolved: CA(NO3)2, CACL2, C MG(NO3)2, MGCL2, NANO3, NACL, NH4NO3, NH4CL C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCP9 INCLUDE 'isrpia.inc' C COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** SETUP PARAMETERS ************************************************ C CALAOU = .TRUE. CHI11 = MIN (W(2), W(6)) ! CCASO4 FRCA = MAX (W(6) - CHI11, ZERO) FRSO4 = MAX (W(2) - CHI11, ZERO) CHI9 = MIN (FRSO4, 0.5D0*W(7)) ! CK2SO4 FRK = MAX (W(7) - 2.D0*CHI9, ZERO) FRSO4 = MAX (FRSO4 - CHI9, ZERO) CHI10 = FRSO4 ! CMGSO4 FRMG = MAX (W(8) - CHI10, ZERO) CHI7 = MIN (W(1), W(5)) ! CNACL FRNA = MAX (W(1) - CHI7, ZERO) FRCL = MAX (W(5) - CHI7, ZERO) CHI12 = MIN (FRCA, 0.5D0*W(4)) ! CCANO32 FRCA = MAX (FRCA - CHI12, ZERO) FRNO3 = MAX (W(4) - 2.D0*CHI12, ZERO) CHI17 = MIN (FRCA, 0.5D0*FRCL) ! CCACL2 FRCA = MAX (FRCA - CHI17, ZERO) FRCL = MAX (FRCL - 2.D0*CHI17, ZERO) CHI15 = MIN (FRMG, 0.5D0*FRNO3) ! CMGNO32 FRMG = MAX (FRMG - CHI15, ZERO) FRNO3 = MAX (FRNO3 - 2.D0*CHI15, ZERO) CHI16 = MIN (FRMG, 0.5D0*FRCL) ! CMGCL2 FRMG = MAX (FRMG - CHI16, ZERO) FRCL = MAX (FRCL - 2.D0*CHI16, ZERO) CHI8 = MIN (FRNA, FRNO3) ! CNANO3 FRNA = MAX (FRNA - CHI8, ZERO) FRNO3 = MAX (FRNO3 - CHI8, ZERO) CHI14 = MIN (FRK, FRCL) ! CKCL FRK = MAX (FRK - CHI14, ZERO) FRCL = MAX (FRCL - CHI14, ZERO) CHI13 = MIN (FRK, FRNO3) ! CKNO3 FRK = MAX (FRK - CHI13, ZERO) FRNO3 = MAX (FRNO3 - CHI13, ZERO) C CHI5 = FRNO3 ! HNO3(g) CHI6 = FRCL ! HCL(g) CHI4 = W(3) ! NH3(g) C CHI3 = ZERO ! CNH4CL CHI1 = ZERO CHI2 = ZERO C PSI6LO = TINY PSI6HI = CHI6-TINY ! MIN(CHI6-TINY, CHI4) C C *** INITIAL VALUES FOR BISECTION ************************************ C X1 = PSI6LO Y1 = FUNCP9 (X1) IF (ABS(Y1).LE.EPS .OR. CHI6.LE.TINY) GOTO 50 C C *** ROOT TRACKING ; FOR THE RANGE OF HI AND LO ********************** C DX = (PSI6HI-PSI6LO)/FLOAT(NDIV) DO 10 I=1,NDIV X2 = X1+DX Y2 = FUNCP9 (X2) IF (SIGN(1.d0,Y1)*SIGN(1.d0,Y2).LT.ZERO) GOTO 20 ! (Y1*Y2.LT.ZERO) X1 = X2 Y1 = Y2 10 CONTINUE C C *** NO SUBDIVISION WITH SOLUTION; IF ABS(Y2) 2.0) ; Rcr+Na >= 2.0 ; Rcr > 2) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : CaSO4, K2SO4, KNO3, MGSO4, KCL C 4. Completely dissolved: CA(NO3)2, CACL2, C MG(NO3)2, MGCL2, NANO3, NACL, NH4NO3, NH4CL C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C DOUBLE PRECISION FUNCTION FUNCP9 (X) INCLUDE 'isrpia.inc' C COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** SETUP PARAMETERS ************************************************ C PSI6 = X PSI1 = ZERO PSI2 = ZERO PSI3 = ZERO PSI7 = CHI7 PSI8 = CHI8 PSI9 = ZERO PSI10 = CHI10 PSI11 = ZERO PSI12 = CHI12 PSI13 = ZERO PSI14 = ZERO PSI15 = CHI15 PSI16 = CHI16 PSI17 = CHI17 FRST = .TRUE. CALAIN = .TRUE. C C *** SOLVE EQUATIONS ; WITH ITERATIONS FOR ACTIVITY COEF. ************ C DO 10 I=1,NSWEEP C A4 = (XK2/XKW)*R*TEMP*(GAMA(10)/GAMA(5))**2.0 A5 = XK4 *R*TEMP*(WATER/GAMA(10))**2.0 A6 = XK3 *R*TEMP*(WATER/GAMA(11))**2.0 A9 = XK17 *(WATER/GAMA(17))**3.0 A13 = XK19 *(WATER/GAMA(19))**2.0 A14 = XK20 *(WATER/GAMA(20))**2.0 C C CALCULATE DISSOCIATION QUANTITIES C PSI5 = CHI5*(PSI6 + PSI7 + PSI14 + 2.D0*PSI16 + 2.D0*PSI17) - & A6/A5*(PSI8+2.D0*PSI12+PSI13+2.D0*PSI15)*(CHI6-PSI6-PSI3) PSI5 = PSI5/(A6/A5*(CHI6-PSI6-PSI3) + PSI6 + PSI7 + PSI14 + & 2.D0*PSI16 + 2.D0*PSI17) PSI5 = MIN (MAX (PSI5, TINY) , CHI5) C IF (W(3).GT.TINY .AND. WATER.GT.TINY) THEN ! First try 3rd order soln BB =-(CHI4 + PSI6 + PSI5 + 1.d0/A4) CC = CHI4*(PSI5+PSI6) DD = MAX(BB*BB-4.d0*CC,ZERO) PSI4 =0.5d0*(-BB - SQRT(DD)) PSI4 = MIN(MAX(PSI4,ZERO),CHI4) ELSE PSI4 = TINY ENDIF C IF (CHI13.GT.TINY .AND. WATER.GT.TINY) THEN !KNO3 VHTA = PSI5+PSI8+2.D0*PSI12+2.D0*PSI15+PSI14+2.D0*PSI9 GKAMA = (PSI5+PSI8+2.D0*PSI12+2.D0*PSI15)*(2.D0*PSI9+PSI14)-A13 DELTA = MAX(VHTA*VHTA-4.d0*GKAMA,ZERO) PSI13 = 0.5d0*(-VHTA + SQRT(DELTA)) PSI13 = MIN(MAX(PSI13,ZERO),CHI13) ENDIF C IF (CHI14.GT.TINY .AND. WATER.GT.TINY) THEN !KCL PSI14 = A14/A13*(PSI5+PSI8+2.D0*PSI12+PSI13+2.D0*PSI15) - & PSI6-PSI7-2.D0*PSI16-2.D0*PSI17 PSI14 = MIN (MAX (PSI14, ZERO), CHI14) ENDIF C IF (CHI9.GT.TINY .AND. WATER.GT.TINY) THEN !K2SO4 BBP = PSI10+PSI13+PSI14 CCP = (PSI13+PSI14)*(0.25D0*(PSI13+PSI14)+PSI10) DDP = 0.25D0*(PSI13+PSI14)**2.0*PSI10-A9/4.D0 CALL POLY3 (BBP, CCP, DDP, PSI9, ISLV) IF (ISLV.EQ.0) THEN PSI9 = MIN (MAX(PSI9,ZERO) , CHI9) ELSE PSI9 = ZERO ENDIF ENDIF C C C *** CALCULATE SPECIATION ******************************************** C MOLAL (2) = PSI8 + PSI7 ! NAI MOLAL (3) = PSI4 ! NH4I MOLAL (4) = PSI6 + PSI7 + PSI14 + 2.D0*PSI16 + 2.D0*PSI17 ! CLI MOLAL (5) = PSI9 + PSI10 ! SO4I MOLAL (6) = ZERO ! HSO4I MOLAL (7) = PSI5 + PSI8 + 2.D0*PSI12 + PSI13 + 2.D0*PSI15 ! NO3I MOLAL (8) = PSI11 + PSI12 + PSI17 ! CAI MOLAL (9) = 2.D0*PSI9 + PSI13 + PSI14 ! KI MOLAL (10)= PSI10 + PSI15 + PSI16 ! MGI C C *** CALCULATE H+ ***************************************************** C C REST = 2.D0*W(2) + W(4) + W(5) CC C DELT1 = 0.0d0 C DELT2 = 0.0d0 C IF (W(1)+W(6)+W(7)+W(8).GT.REST) THEN CC CC *** CALCULATE EQUILIBRIUM CONSTANTS ********************************** CC C ALFA1 = XK26*RH*(WATER/1.0) ! CO2(aq) + H2O C ALFA2 = XK27*(WATER/1.0) ! HCO3- CC C X = W(1)+W(6)+W(7)+W(8) - REST ! EXCESS OF CRUSTALS EQUALS CO2(aq) CC C DIAK = SQRT( (ALFA1)**2.0 + 4.0D0*ALFA1*X) C DELT1 = 0.5*(-ALFA1 + DIAK) C DELT1 = MIN ( MAX (DELT1, ZERO), X) C DELT2 = ALFA2 C DELT2 = MIN ( DELT2, DELT1) C MOLAL(1) = DELT1 + DELT2 ! H+ C ELSE CC CC *** NO EXCESS OF CRUSTALS CALCULATE H+ ******************************* CC SMIN = 2.d0*MOLAL(5)+MOLAL(7)+MOLAL(4)-MOLAL(2)-MOLAL(3) & - MOLAL(9) - 2.D0*MOLAL(10) - 2.D0*MOLAL(8) CALL CALCPH (SMIN, HI, OHI) MOLAL (1) = HI C ENDIF C GNH3 = MAX(CHI4 - PSI4, TINY) GHNO3 = MAX(CHI5 - PSI5, TINY) GHCL = MAX(CHI6 - PSI6, TINY) C CNH4NO3 = ZERO CNH4CL = ZERO CNACL = ZERO CNANO3 = ZERO CK2SO4 = MAX (CHI9 - PSI9, ZERO) CMGSO4 = ZERO CCASO4 = CHI11 CCANO32 = ZERO CKNO3 = MAX (CHI13 - PSI13, ZERO) CKCL = MAX (CHI14 - PSI14, ZERO) CMGNO32 = ZERO CMGCL2 = ZERO CCACL2 = ZERO C CALL CALCMR ! Water content C C *** CALCULATE ACTIVITIES OR TERMINATE INTERNAL LOOP ***************** C IF (FRST.AND.CALAOU .OR. .NOT.FRST.AND.CALAIN) THEN CALL CALCACT ELSE GOTO 20 ENDIF 10 CONTINUE C C *** CALCULATE FUNCTION VALUE FOR OUTER LOOP *************************** C C20 FUNCP9 = MOLAL(3)*MOLAL(4)/GHCL/GNH3/A6/A4 - ONE 20 FUNCP9 = MOLAL(1)*MOLAL(4)/GHCL/A6 - ONE C RETURN C C *** END OF FUNCTION FUNCP9 ******************************************* C END C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE CALCP8 C *** CASE P8 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SULRAT > 2.0) ; Rcr+Na >= 2.0 ; Rcr > 2) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : CaSO4, K2SO4, KNO3, MGSO4, KCL, NH4CL C 4. Completely dissolved: CA(NO3)2, CACL2, C MG(NO3)2, MGCL2, NANO3, NACL, NH4NO3 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCP8 INCLUDE 'isrpia.inc' C COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** SETUP PARAMETERS ************************************************ C CALAOU = .TRUE. CHI11 = MIN (W(2), W(6)) ! CCASO4 FRCA = MAX (W(6) - CHI11, ZERO) FRSO4 = MAX (W(2) - CHI11, ZERO) CHI9 = MIN (FRSO4, 0.5D0*W(7)) ! CK2SO4 FRK = MAX (W(7) - 2.D0*CHI9, ZERO) FRSO4 = MAX (FRSO4 - CHI9, ZERO) CHI10 = FRSO4 ! CMGSO4 FRMG = MAX (W(8) - CHI10, ZERO) CHI7 = MIN (W(1), W(5)) ! CNACL FRNA = MAX (W(1) - CHI7, ZERO) FRCL = MAX (W(5) - CHI7, ZERO) CHI12 = MIN (FRCA, 0.5D0*W(4)) ! CCANO32 FRCA = MAX (FRCA - CHI12, ZERO) FRNO3 = MAX (W(4) - 2.D0*CHI12, ZERO) CHI17 = MIN (FRCA, 0.5D0*FRCL) ! CCACL2 FRCA = MAX (FRCA - CHI17, ZERO) FRCL = MAX (FRCL - 2.D0*CHI17, ZERO) CHI15 = MIN (FRMG, 0.5D0*FRNO3) ! CMGNO32 FRMG = MAX (FRMG - CHI15, ZERO) FRNO3 = MAX (FRNO3 - 2.D0*CHI15, ZERO) CHI16 = MIN (FRMG, 0.5D0*FRCL) ! CMGCL2 FRMG = MAX (FRMG - CHI16, ZERO) FRCL = MAX (FRCL - 2.D0*CHI16, ZERO) CHI8 = MIN (FRNA, FRNO3) ! CNANO3 FRNA = MAX (FRNA - CHI8, ZERO) FRNO3 = MAX (FRNO3 - CHI8, ZERO) CHI14 = MIN (FRK, FRCL) ! CKCL FRK = MAX (FRK - CHI14, ZERO) FRCL = MAX (FRCL - CHI14, ZERO) CHI13 = MIN (FRK, FRNO3) ! CKNO3 FRK = MAX (FRK - CHI13, ZERO) FRNO3 = MAX (FRNO3 - CHI13, ZERO) C CHI5 = FRNO3 ! HNO3(g) CHI6 = FRCL ! HCL(g) CHI4 = W(3) ! NH3(g) C CHI3 = ZERO ! CNH4CL CHI1 = ZERO CHI2 = ZERO C PSI6LO = TINY PSI6HI = CHI6-TINY ! MIN(CHI6-TINY, CHI4) C C *** INITIAL VALUES FOR BISECTION ************************************ C X1 = PSI6LO Y1 = FUNCP8 (X1) IF (ABS(Y1).LE.EPS .OR. CHI6.LE.TINY) GOTO 50 C C *** ROOT TRACKING ; FOR THE RANGE OF HI AND LO ********************** C DX = (PSI6HI-PSI6LO)/FLOAT(NDIV) DO 10 I=1,NDIV X2 = X1+DX Y2 = FUNCP8 (X2) IF (SIGN(1.d0,Y1)*SIGN(1.d0,Y2).LT.ZERO) GOTO 20 ! (Y1*Y2.LT.ZERO) X1 = X2 Y1 = Y2 10 CONTINUE C C *** NO SUBDIVISION WITH SOLUTION; IF ABS(Y2) 2.0) ; Rcr+Na >= 2.0 ; Rcr > 2) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : CaSO4, K2SO4, KNO3, MGSO4, KCL, NH4CL C 4. Completely dissolved: CA(NO3)2, CACL2, C MG(NO3)2, MGCL2, NANO3, NACL, NH4NO3 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C DOUBLE PRECISION FUNCTION FUNCP8 (X) INCLUDE 'isrpia.inc' C COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** SETUP PARAMETERS ************************************************ C PSI6 = X PSI1 = ZERO PSI2 = ZERO PSI3 = ZERO PSI7 = CHI7 PSI8 = CHI8 PSI9 = ZERO PSI10 = CHI10 PSI11 = ZERO PSI12 = CHI12 PSI13 = ZERO PSI14 = ZERO PSI15 = CHI15 PSI16 = CHI16 PSI17 = CHI17 FRST = .TRUE. CALAIN = .TRUE. C C *** SOLVE EQUATIONS ; WITH ITERATIONS FOR ACTIVITY COEF. ************ C DO 10 I=1,NSWEEP C A4 = (XK2/XKW)*R*TEMP*(GAMA(10)/GAMA(5))**2.0 A5 = XK4 *R*TEMP*(WATER/GAMA(10))**2.0 A6 = XK3 *R*TEMP*(WATER/GAMA(11))**2.0 A9 = XK17 *(WATER/GAMA(17))**3.0 A13 = XK19 *(WATER/GAMA(19))**2.0 A14 = XK20 *(WATER/GAMA(20))**2.0 C C CALCULATE DISSOCIATION QUANTITIES C PSI5 = CHI5*(PSI6 + PSI7 + PSI14 + 2.D0*PSI16 + 2.D0*PSI17) - & A6/A5*(PSI8+2.D0*PSI12+PSI13+2.D0*PSI15)*(CHI6-PSI6-PSI3) PSI5 = PSI5/(A6/A5*(CHI6-PSI6-PSI3) + PSI6 + PSI7 + PSI14 + & 2.D0*PSI16 + 2.D0*PSI17) PSI5 = MIN (MAX (PSI5, TINY) , CHI5) C IF (W(3).GT.TINY .AND. WATER.GT.TINY) THEN ! First try 3rd order soln BB =-(CHI4 + PSI6 + PSI5 + 1.d0/A4) CC = CHI4*(PSI5+PSI6) DD = MAX(BB*BB-4.d0*CC,ZERO) PSI4 =0.5d0*(-BB - SQRT(DD)) PSI4 = MIN(MAX(PSI4,ZERO),CHI4) ELSE PSI4 = TINY ENDIF C IF (CHI13.GT.TINY .AND. WATER.GT.TINY) THEN !KNO3 VHTA = PSI5+PSI8+2.D0*PSI12+2.D0*PSI15+PSI14+2.D0*PSI9 GKAMA = (PSI5+PSI8+2.D0*PSI12+2.D0*PSI15)*(2.D0*PSI9+PSI14)-A13 DELTA = MAX(VHTA*VHTA-4.d0*GKAMA,ZERO) PSI13 = 0.5d0*(-VHTA + SQRT(DELTA)) PSI13 = MIN(MAX(PSI13,ZERO),CHI13) ENDIF C IF (CHI14.GT.TINY .AND. WATER.GT.TINY) THEN !KCL PSI14 = A14/A13*(PSI5+PSI8+2.D0*PSI12+PSI13+2.D0*PSI15) - & PSI6-PSI7-2.D0*PSI16-2.D0*PSI17 PSI14 = MIN (MAX (PSI14, ZERO), CHI14) ENDIF C IF (CHI9.GT.TINY .AND. WATER.GT.TINY) THEN !K2SO4 BBP = PSI10+PSI13+PSI14 CCP = (PSI13+PSI14)*(0.25D0*(PSI13+PSI14)+PSI10) DDP = 0.25D0*(PSI13+PSI14)**2.0*PSI10-A9/4.D0 CALL POLY3 (BBP, CCP, DDP, PSI9, ISLV) IF (ISLV.EQ.0) THEN PSI9 = MIN (MAX(PSI9,ZERO) , CHI9) ELSE PSI9 = ZERO ENDIF ENDIF C C C *** CALCULATE SPECIATION ******************************************** C MOLAL (2) = PSI8 + PSI7 ! NAI MOLAL (3) = PSI4 ! NH4I MOLAL (4) = PSI6 + PSI7 + PSI14 + 2.D0*PSI16 + 2.D0*PSI17 ! CLI MOLAL (5) = PSI9 + PSI10 ! SO4I MOLAL (6) = ZERO ! HSO4I MOLAL (7) = PSI5 + PSI8 + 2.D0*PSI12 + PSI13 + 2.D0*PSI15 ! NO3I MOLAL (8) = PSI11 + PSI12 + PSI17 ! CAI MOLAL (9) = 2.D0*PSI9 + PSI13 + PSI14 ! KI MOLAL (10)= PSI10 + PSI15 + PSI16 ! MGI C C *** CALCULATE H+ ***************************************************** C C REST = 2.D0*W(2) + W(4) + W(5) CC C DELT1 = 0.0d0 C DELT2 = 0.0d0 C IF (W(1)+W(6)+W(7)+W(8).GT.REST) THEN CC CC *** CALCULATE EQUILIBRIUM CONSTANTS ********************************** CC C ALFA1 = XK26*RH*(WATER/1.0) ! CO2(aq) + H2O C ALFA2 = XK27*(WATER/1.0) ! HCO3- C C X = W(1)+W(6)+W(7)+W(8) - REST ! EXCESS OF CRUSTALS EQUALS CO2(aq) CC C DIAK = SQRT( (ALFA1)**2.0 + 4.0D0*ALFA1*X) C DELT1 = 0.5*(-ALFA1 + DIAK) C DELT1 = MIN ( MAX (DELT1, ZERO), X) C DELT2 = ALFA2 C DELT2 = MIN ( DELT2, DELT1) C MOLAL(1) = DELT1 + DELT2 ! H+ C ELSE CC CC *** NO EXCESS OF CRUSTALS CALCULATE H+ ******************************* CC SMIN = 2.d0*MOLAL(5)+MOLAL(7)+MOLAL(4)-MOLAL(2)-MOLAL(3) & - MOLAL(9) - 2.D0*MOLAL(10) - 2.D0*MOLAL(8) CALL CALCPH (SMIN, HI, OHI) MOLAL (1) = HI C ENDIF C GNH3 = MAX(CHI4 - PSI4, TINY) GHNO3 = MAX(CHI5 - PSI5, TINY) GHCL = MAX(CHI6 - PSI6, TINY) C CNH4NO3 = ZERO C CNH4CL = ZERO CNACL = ZERO CNANO3 = ZERO CK2SO4 = MAX (CHI9 - PSI9, ZERO) CMGSO4 = ZERO CCASO4 = CHI11 CCANO32 = ZERO CKNO3 = MAX (CHI13 - PSI13, ZERO) CKCL = MAX (CHI14 - PSI14, ZERO) CMGNO32 = ZERO CMGCL2 = ZERO CCACL2 = ZERO C C *** NH4Cl(s) calculations C A3 = XK6 /(R*TEMP*R*TEMP) IF (GNH3*GHCL.GT.A3) THEN DELT = MIN(GNH3, GHCL) BB = -(GNH3+GHCL) CC = GNH3*GHCL-A3 DD = BB*BB - 4.D0*CC PSI31 = 0.5D0*(-BB + SQRT(DD)) PSI32 = 0.5D0*(-BB - SQRT(DD)) IF (DELT-PSI31.GT.ZERO .AND. PSI31.GT.ZERO) THEN PSI3 = PSI31 ELSEIF (DELT-PSI32.GT.ZERO .AND. PSI32.GT.ZERO) THEN PSI3 = PSI32 ELSE PSI3 = ZERO ENDIF ELSE PSI3 = ZERO ENDIF PSI3 = MAX(MIN(MIN(PSI3,CHI4-PSI4),CHI6-PSI6),ZERO) C C *** CALCULATE GAS / SOLID SPECIES (LIQUID IN MOLAL ALREADY) ********* C GNH3 = MAX(GNH3 - PSI3, TINY) GHCL = MAX(GHCL - PSI3, TINY) CNH4CL = PSI3 C CALL CALCMR ! Water content C C *** CALCULATE ACTIVITIES OR TERMINATE INTERNAL LOOP ***************** C IF (FRST.AND.CALAOU .OR. .NOT.FRST.AND.CALAIN) THEN CALL CALCACT ELSE GOTO 20 ENDIF 10 CONTINUE C C *** CALCULATE FUNCTION VALUE FOR OUTER LOOP *************************** C C20 FUNCP8 = MOLAL(3)*MOLAL(4)/GHCL/GNH3/A6/A4 - ONE 20 FUNCP8 = MOLAL(1)*MOLAL(4)/GHCL/A6 - ONE C RETURN C C *** END OF FUNCTION FUNCP8 ******************************************* C END C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE CALCP7 C *** CASE P7 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SULRAT > 2.0) ; Rcr+Na >= 2.0 ; Rcr > 2) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : CaSO4, K2SO4, KNO3, MGSO4, KCL, NH4CL, NACL C 4. Completely dissolved: CA(NO3)2, CACL2, C MG(NO3)2, MGCL2, NANO3, NH4NO3 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCP7 INCLUDE 'isrpia.inc' C COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** SETUP PARAMETERS ************************************************ C CALAOU = .TRUE. CHI11 = MIN (W(2), W(6)) ! CCASO4 FRCA = MAX (W(6) - CHI11, ZERO) FRSO4 = MAX (W(2) - CHI11, ZERO) CHI9 = MIN (FRSO4, 0.5D0*W(7)) ! CK2SO4 FRK = MAX (W(7) - 2.D0*CHI9, ZERO) FRSO4 = MAX (FRSO4 - CHI9, ZERO) CHI10 = FRSO4 ! CMGSO4 FRMG = MAX (W(8) - CHI10, ZERO) CHI7 = MIN (W(1), W(5)) ! CNACL FRNA = MAX (W(1) - CHI7, ZERO) FRCL = MAX (W(5) - CHI7, ZERO) CHI12 = MIN (FRCA, 0.5D0*W(4)) ! CCANO32 FRCA = MAX (FRCA - CHI12, ZERO) FRNO3 = MAX (W(4) - 2.D0*CHI12, ZERO) CHI17 = MIN (FRCA, 0.5D0*FRCL) ! CCACL2 FRCA = MAX (FRCA - CHI17, ZERO) FRCL = MAX (FRCL - 2.D0*CHI17, ZERO) CHI15 = MIN (FRMG, 0.5D0*FRNO3) ! CMGNO32 FRMG = MAX (FRMG - CHI15, ZERO) FRNO3 = MAX (FRNO3 - 2.D0*CHI15, ZERO) CHI16 = MIN (FRMG, 0.5D0*FRCL) ! CMGCL2 FRMG = MAX (FRMG - CHI16, ZERO) FRCL = MAX (FRCL - 2.D0*CHI16, ZERO) CHI8 = MIN (FRNA, FRNO3) ! CNANO3 FRNA = MAX (FRNA - CHI8, ZERO) FRNO3 = MAX (FRNO3 - CHI8, ZERO) CHI14 = MIN (FRK, FRCL) ! CKCL FRK = MAX (FRK - CHI14, ZERO) FRCL = MAX (FRCL - CHI14, ZERO) CHI13 = MIN (FRK, FRNO3) ! CKNO3 FRK = MAX (FRK - CHI13, ZERO) FRNO3 = MAX (FRNO3 - CHI13, ZERO) C CHI5 = FRNO3 ! HNO3(g) CHI6 = FRCL ! HCL(g) CHI4 = W(3) ! NH3(g) C CHI3 = ZERO ! CNH4CL CHI1 = ZERO CHI2 = ZERO C PSI6LO = TINY PSI6HI = CHI6-TINY ! MIN(CHI6-TINY, CHI4) C C *** INITIAL VALUES FOR BISECTION ************************************ C X1 = PSI6LO Y1 = FUNCP7 (X1) IF (ABS(Y1).LE.EPS .OR. CHI6.LE.TINY) GOTO 50 C C *** ROOT TRACKING ; FOR THE RANGE OF HI AND LO ********************** C DX = (PSI6HI-PSI6LO)/FLOAT(NDIV) DO 10 I=1,NDIV X2 = X1+DX Y2 = FUNCP7 (X2) IF (SIGN(1.d0,Y1)*SIGN(1.d0,Y2).LT.ZERO) GOTO 20 ! (Y1*Y2.LT.ZERO) X1 = X2 Y1 = Y2 10 CONTINUE C C *** NO SUBDIVISION WITH SOLUTION; IF ABS(Y2) 2.0) ; Rcr+Na >= 2.0 ; Rcr > 2) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : CaSO4, K2SO4, KNO3, MGSO4, KCL, NH4CL, NACL C 4. Completely dissolved: CA(NO3)2, CACL2, C MG(NO3)2, MGCL2, NANO3, NH4NO3 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C DOUBLE PRECISION FUNCTION FUNCP7 (X) INCLUDE 'isrpia.inc' C COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** SETUP PARAMETERS ************************************************ C PSI6 = X PSI1 = ZERO PSI2 = ZERO PSI3 = ZERO PSI7 = ZERO PSI8 = CHI8 PSI9 = ZERO PSI10 = CHI10 PSI11 = ZERO PSI12 = CHI12 PSI13 = ZERO PSI14 = ZERO PSI15 = CHI15 PSI16 = CHI16 PSI17 = CHI17 FRST = .TRUE. CALAIN = .TRUE. C C *** SOLVE EQUATIONS ; WITH ITERATIONS FOR ACTIVITY COEF. ************ C DO 10 I=1,NSWEEP C A4 = (XK2/XKW)*R*TEMP*(GAMA(10)/GAMA(5))**2.0 A5 = XK4 *R*TEMP*(WATER/GAMA(10))**2.0 A6 = XK3 *R*TEMP*(WATER/GAMA(11))**2.0 A9 = XK17 *(WATER/GAMA(17))**3.0 A13 = XK19 *(WATER/GAMA(19))**2.0 A14 = XK20 *(WATER/GAMA(20))**2.0 A7 = XK8 *(WATER/GAMA(1))**2.0 C C CALCULATE DISSOCIATION QUANTITIES C PSI5 = CHI5*(PSI6 + PSI7 + PSI14 + 2.D0*PSI16 + 2.D0*PSI17) - & A6/A5*(PSI8+2.D0*PSI12+PSI13+2.D0*PSI15)*(CHI6-PSI6-PSI3) PSI5 = PSI5/(A6/A5*(CHI6-PSI6-PSI3) + PSI6 + PSI7 + PSI14 + & 2.D0*PSI16 + 2.D0*PSI17) PSI5 = MIN (MAX (PSI5, TINY) , CHI5) C IF (W(3).GT.TINY .AND. WATER.GT.TINY) THEN ! First try 3rd order soln BB =-(CHI4 + PSI6 + PSI5 + 1.d0/A4) CC = CHI4*(PSI5+PSI6) DD = MAX(BB*BB-4.d0*CC,ZERO) PSI4 =0.5d0*(-BB - SQRT(DD)) PSI4 = MIN(MAX(PSI4,ZERO),CHI4) ELSE PSI4 = TINY ENDIF C IF (CHI13.GT.TINY .AND. WATER.GT.TINY) THEN !KNO3 VHTA = PSI5+PSI8+2.D0*PSI12+2.D0*PSI15+PSI14+2.D0*PSI9 GKAMA = (PSI5+PSI8+2.D0*PSI12+2.D0*PSI15)*(2.D0*PSI9+PSI14)-A13 DELTA = MAX(VHTA*VHTA-4.d0*GKAMA,ZERO) PSI13 = 0.5d0*(-VHTA + SQRT(DELTA)) PSI13 = MIN(MAX(PSI13,ZERO),CHI13) ENDIF C IF (CHI14.GT.TINY .AND. WATER.GT.TINY) THEN !KCL PSI14 = A14/A13*(PSI5+PSI8+2.D0*PSI12+PSI13+2.D0*PSI15) - & PSI6-PSI7-2.D0*PSI16-2.D0*PSI17 PSI14 = MIN (MAX (PSI14, ZERO), CHI14) ENDIF C IF (CHI9.GT.TINY .AND. WATER.GT.TINY) THEN !K2SO4 BBP = PSI10+PSI13+PSI14 CCP = (PSI13+PSI14)*(0.25D0*(PSI13+PSI14)+PSI10) DDP = 0.25D0*(PSI13+PSI14)**2.0*PSI10-A9/4.D0 CALL POLY3 (BBP, CCP, DDP, PSI9, ISLV) IF (ISLV.EQ.0) THEN PSI9 = MIN (MAX(PSI9,ZERO) , CHI9) ELSE PSI9 = ZERO ENDIF ENDIF C IF (CHI7.GT.TINY .AND. WATER.GT.TINY) THEN ! NACL DISSOLUTION VITA = PSI6+PSI14+PSI8+2.D0*PSI16+2.D0*PSI17 GKAMA= PSI8*(2.D0*PSI16+PSI6+PSI14+2.D0*PSI17)-A7 DIAK = MAX(VITA*VITA - 4.0D0*GKAMA,ZERO) PSI7 = 0.5D0*( -VITA + SQRT(DIAK) ) PSI7 = MAX(MIN(PSI7, CHI7), ZERO) ENDIF C C C *** CALCULATE SPECIATION ******************************************** C MOLAL (2) = PSI8 + PSI7 ! NAI MOLAL (3) = PSI4 ! NH4I MOLAL (4) = PSI6 + PSI7 + PSI14 + 2.D0*PSI16 + 2.D0*PSI17 ! CLI MOLAL (5) = PSI9 + PSI10 ! SO4I MOLAL (6) = ZERO ! HSO4I MOLAL (7) = PSI5 + PSI8 + 2.D0*PSI12 + PSI13 + 2.D0*PSI15 ! NO3I MOLAL (8) = PSI11 + PSI12 + PSI17 ! CAI MOLAL (9) = 2.D0*PSI9 + PSI13 + PSI14 ! KI MOLAL (10)= PSI10 + PSI15 + PSI16 ! MGI C C *** CALCULATE H+ ***************************************************** C C REST = 2.D0*W(2) + W(4) + W(5) CC C DELT1 = 0.0d0 C DELT2 = 0.0d0 C IF (W(1)+W(6)+W(7)+W(8).GT.REST) THEN CC CC *** CALCULATE EQUILIBRIUM CONSTANTS ********************************** CC C ALFA1 = XK26*RH*(WATER/1.0) ! CO2(aq) + H2O C ALFA2 = XK27*(WATER/1.0) ! HCO3- CC C X = W(1)+W(6)+W(7)+W(8) - REST ! EXCESS OF CRUSTALS EQUALS CO2(aq) CC C DIAK = SQRT( (ALFA1)**2.0 + 4.0D0*ALFA1*X) C DELT1 = 0.5*(-ALFA1 + DIAK) C DELT1 = MIN ( MAX (DELT1, ZERO), X) C DELT2 = ALFA2 C DELT2 = MIN ( DELT2, DELT1) C MOLAL(1) = DELT1 + DELT2 ! H+ C ELSE CC CC *** NO EXCESS OF CRUSTALS CALCULATE H+ ******************************* CC SMIN = 2.d0*MOLAL(5)+MOLAL(7)+MOLAL(4)-MOLAL(2)-MOLAL(3) & - MOLAL(9) - 2.D0*MOLAL(10) - 2.D0*MOLAL(8) CALL CALCPH (SMIN, HI, OHI) MOLAL (1) = HI C ENDIF C GNH3 = MAX(CHI4 - PSI4, TINY) GHNO3 = MAX(CHI5 - PSI5, TINY) GHCL = MAX(CHI6 - PSI6, TINY) C CNH4NO3 = ZERO C CNH4CL = ZERO CNACL = MAX (CHI7 - PSI7, ZERO) CNANO3 = ZERO CK2SO4 = MAX (CHI9 - PSI9, ZERO) CMGSO4 = ZERO CCASO4 = CHI11 CCANO32 = ZERO CKNO3 = MAX (CHI13 - PSI13, ZERO) CKCL = MAX (CHI14 - PSI14, ZERO) CMGNO32 = ZERO CMGCL2 = ZERO CCACL2 = ZERO C C *** NH4Cl(s) calculations C A3 = XK6 /(R*TEMP*R*TEMP) IF (GNH3*GHCL.GT.A3) THEN DELT = MIN(GNH3, GHCL) BB = -(GNH3+GHCL) CC = GNH3*GHCL-A3 DD = BB*BB - 4.D0*CC PSI31 = 0.5D0*(-BB + SQRT(DD)) PSI32 = 0.5D0*(-BB - SQRT(DD)) IF (DELT-PSI31.GT.ZERO .AND. PSI31.GT.ZERO) THEN PSI3 = PSI31 ELSEIF (DELT-PSI32.GT.ZERO .AND. PSI32.GT.ZERO) THEN PSI3 = PSI32 ELSE PSI3 = ZERO ENDIF ELSE PSI3 = ZERO ENDIF PSI3 = MAX(MIN(MIN(PSI3,CHI4-PSI4),CHI6-PSI6),ZERO) C C *** CALCULATE GAS / SOLID SPECIES (LIQUID IN MOLAL ALREADY) ********* C GNH3 = MAX(GNH3 - PSI3, TINY) GHCL = MAX(GHCL - PSI3, TINY) CNH4CL = PSI3 C CALL CALCMR ! Water content C C *** CALCULATE ACTIVITIES OR TERMINATE INTERNAL LOOP ***************** C IF (FRST.AND.CALAOU .OR. .NOT.FRST.AND.CALAIN) THEN CALL CALCACT ELSE GOTO 20 ENDIF 10 CONTINUE C C *** CALCULATE FUNCTION VALUE FOR OUTER LOOP *************************** C C20 FUNCP7 = MOLAL(3)*MOLAL(4)/GHCL/GNH3/A6/A4 - ONE 20 FUNCP7 = MOLAL(1)*MOLAL(4)/GHCL/A6 - ONE C RETURN C C *** END OF FUNCTION FUNCP7 ******************************************* C END C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE CALCP6 C *** CASE P6 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SULRAT > 2.0) ; Rcr+Na >= 2.0 ; Rcr > 2) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : CaSO4, K2SO4, KNO3, MGSO4, KCL, NH4CL, NACL, NANO3 C 4. Completely dissolved: CA(NO3)2, CACL2, C MG(NO3)2, MGCL2, NH4NO3 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCP6 INCLUDE 'isrpia.inc' C COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** SETUP PARAMETERS ************************************************ C CALAOU = .TRUE. CHI11 = MIN (W(2), W(6)) ! CCASO4 FRCA = MAX (W(6) - CHI11, ZERO) FRSO4 = MAX (W(2) - CHI11, ZERO) CHI9 = MIN (FRSO4, 0.5D0*W(7)) ! CK2SO4 FRK = MAX (W(7) - 2.D0*CHI9, ZERO) FRSO4 = MAX (FRSO4 - CHI9, ZERO) CHI10 = FRSO4 ! CMGSO4 FRMG = MAX (W(8) - CHI10, ZERO) CHI7 = MIN (W(1), W(5)) ! CNACL FRNA = MAX (W(1) - CHI7, ZERO) FRCL = MAX (W(5) - CHI7, ZERO) CHI12 = MIN (FRCA, 0.5D0*W(4)) ! CCANO32 FRCA = MAX (FRCA - CHI12, ZERO) FRNO3 = MAX (W(4) - 2.D0*CHI12, ZERO) CHI17 = MIN (FRCA, 0.5D0*FRCL) ! CCACL2 FRCA = MAX (FRCA - CHI17, ZERO) FRCL = MAX (FRCL - 2.D0*CHI17, ZERO) CHI15 = MIN (FRMG, 0.5D0*FRNO3) ! CMGNO32 FRMG = MAX (FRMG - CHI15, ZERO) FRNO3 = MAX (FRNO3 - 2.D0*CHI15, ZERO) CHI16 = MIN (FRMG, 0.5D0*FRCL) ! CMGCL2 FRMG = MAX (FRMG - CHI16, ZERO) FRCL = MAX (FRCL - 2.D0*CHI16, ZERO) CHI8 = MIN (FRNA, FRNO3) ! CNANO3 FRNA = MAX (FRNA - CHI8, ZERO) FRNO3 = MAX (FRNO3 - CHI8, ZERO) CHI14 = MIN (FRK, FRCL) ! CKCL FRK = MAX (FRK - CHI14, ZERO) FRCL = MAX (FRCL - CHI14, ZERO) CHI13 = MIN (FRK, FRNO3) ! CKNO3 FRK = MAX (FRK - CHI13, ZERO) FRNO3 = MAX (FRNO3 - CHI13, ZERO) C CHI5 = FRNO3 ! HNO3(g) CHI6 = FRCL ! HCL(g) CHI4 = W(3) ! NH3(g) C CHI3 = ZERO ! CNH4CL CHI1 = ZERO CHI2 = ZERO C PSI6LO = TINY PSI6HI = CHI6-TINY ! MIN(CHI6-TINY, CHI4) C C *** INITIAL VALUES FOR BISECTION ************************************ C X1 = PSI6LO Y1 = FUNCP6 (X1) IF (ABS(Y1).LE.EPS .OR. CHI6.LE.TINY) GOTO 50 C C *** ROOT TRACKING ; FOR THE RANGE OF HI AND LO ********************** C DX = (PSI6HI-PSI6LO)/FLOAT(NDIV) DO 10 I=1,NDIV X2 = X1+DX Y2 = FUNCP6 (X2) IF (SIGN(1.d0,Y1)*SIGN(1.d0,Y2).LT.ZERO) GOTO 20 ! (Y1*Y2.LT.ZERO) X1 = X2 Y1 = Y2 10 CONTINUE C C *** NO SUBDIVISION WITH SOLUTION; IF ABS(Y2) 2.0) ; Rcr+Na >= 2.0 ; Rcr > 2) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : CaSO4, K2SO4, KNO3, MGSO4, KCL, NH4CL, NACL, NANO3 C 4. Completely dissolved: CA(NO3)2, CACL2, C MG(NO3)2, MGCL2, NH4NO3 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C DOUBLE PRECISION FUNCTION FUNCP6 (X) INCLUDE 'isrpia.inc' C COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** SETUP PARAMETERS ************************************************ C PSI6 = X PSI1 = ZERO PSI2 = ZERO PSI3 = ZERO PSI7 = ZERO PSI8 = ZERO PSI9 = ZERO PSI10 = CHI10 PSI11 = ZERO PSI12 = CHI12 PSI13 = ZERO PSI14 = ZERO PSI15 = CHI15 PSI16 = CHI16 PSI17 = CHI17 FRST = .TRUE. CALAIN = .TRUE. C C *** SOLVE EQUATIONS ; WITH ITERATIONS FOR ACTIVITY COEF. ************ C DO 10 I=1,NSWEEP C A4 = (XK2/XKW)*R*TEMP*(GAMA(10)/GAMA(5))**2.0 A5 = XK4 *R*TEMP*(WATER/GAMA(10))**2.0 A6 = XK3 *R*TEMP*(WATER/GAMA(11))**2.0 A9 = XK17 *(WATER/GAMA(17))**3.0 A13 = XK19 *(WATER/GAMA(19))**2.0 A14 = XK20 *(WATER/GAMA(20))**2.0 A7 = XK8 *(WATER/GAMA(1))**2.0 A8 = XK9 *(WATER/GAMA(3))**2.0 C C CALCULATE DISSOCIATION QUANTITIES C PSI5 = CHI5*(PSI6 + PSI7 + PSI14 + 2.D0*PSI16 + 2.D0*PSI17) - & A6/A5*(PSI8+2.D0*PSI12+PSI13+2.D0*PSI15)*(CHI6-PSI6-PSI3) PSI5 = PSI5/(A6/A5*(CHI6-PSI6-PSI3) + PSI6 + PSI7 + PSI14 + & 2.D0*PSI16 + 2.D0*PSI17) PSI5 = MIN (MAX (PSI5, TINY) , CHI5) C IF (W(3).GT.TINY .AND. WATER.GT.TINY) THEN ! First try 3rd order soln BB =-(CHI4 + PSI6 + PSI5 + 1.d0/A4) CC = CHI4*(PSI5+PSI6) DD = MAX(BB*BB-4.d0*CC,ZERO) PSI4 =0.5d0*(-BB - SQRT(DD)) PSI4 = MIN(MAX(PSI4,ZERO),CHI4) ELSE PSI4 = TINY ENDIF C IF (CHI13.GT.TINY .AND. WATER.GT.TINY) THEN !KNO3 VHTA = PSI5+PSI8+2.D0*PSI12+2.D0*PSI15+PSI14+2.D0*PSI9 GKAMA = (PSI5+PSI8+2.D0*PSI12+2.D0*PSI15)*(2.D0*PSI9+PSI14)-A13 DELTA = MAX(VHTA*VHTA-4.d0*GKAMA,ZERO) PSI13 = 0.5d0*(-VHTA + SQRT(DELTA)) PSI13 = MIN(MAX(PSI13,ZERO),CHI13) ENDIF C IF (CHI14.GT.TINY .AND. WATER.GT.TINY) THEN !KCL PSI14 = A14/A13*(PSI5+PSI8+2.D0*PSI12+PSI13+2.D0*PSI15) - & PSI6-PSI7-2.D0*PSI16-2.D0*PSI17 PSI14 = MIN (MAX (PSI14, ZERO), CHI14) ENDIF C IF (CHI9.GT.TINY .AND. WATER.GT.TINY) THEN !K2SO4 BBP = PSI10+PSI13+PSI14 CCP = (PSI13+PSI14)*(0.25D0*(PSI13+PSI14)+PSI10) DDP = 0.25D0*(PSI13+PSI14)**2.0*PSI10-A9/4.D0 CALL POLY3 (BBP, CCP, DDP, PSI9, ISLV) IF (ISLV.EQ.0) THEN PSI9 = MIN (MAX(PSI9,ZERO) , CHI9) ELSE PSI9 = ZERO ENDIF ENDIF C IF (CHI7.GT.TINY .AND. WATER.GT.TINY) THEN ! NACL DISSOLUTION VITA = PSI6+PSI14+PSI8+2.D0*PSI16+2.D0*PSI17 GKAMA= PSI8*(2.D0*PSI16+PSI6+PSI14+2.D0*PSI17)-A7 DIAK = MAX(VITA*VITA - 4.0D0*GKAMA,ZERO) PSI7 = 0.5D0*( -VITA + SQRT(DIAK) ) PSI7 = MAX(MIN(PSI7, CHI7), ZERO) ENDIF C IF (CHI8.GT.TINY .AND. WATER.GT.TINY) THEN ! NANO3 DISSOLUTION C VIT = PSI5+PSI13+PSI7+2.D0*PSI12+2.D0*PSI15 C GKAM = PSI7*(2.D0*PSI12+PSI5+PSI13+2.D0*PSI15)-A8 C DIA = MAX(VIT*VIT - 4.0D0*GKAM,ZERO) C PSI8 = 0.5D0*( -VIT + SQRT(DIA) ) PSI8 = A8/A7*(PSI6+PSI7+PSI14+2.D0*PSI16+2.D0*PSI17)- & PSI5-2.D0*PSI12-PSI13-2.D0*PSI15 PSI8 = MAX(MIN(PSI8, CHI8), ZERO) ENDIF C C C *** CALCULATE SPECIATION ******************************************** C MOLAL (2) = PSI8 + PSI7 ! NAI MOLAL (3) = PSI4 ! NH4I MOLAL (4) = PSI6 + PSI7 + PSI14 + 2.D0*PSI16 + 2.D0*PSI17 ! CLI MOLAL (5) = PSI9 + PSI10 ! SO4I MOLAL (6) = ZERO ! HSO4I MOLAL (7) = PSI5 + PSI8 + 2.D0*PSI12 + PSI13 + 2.D0*PSI15 ! NO3I MOLAL (8) = PSI11 + PSI12 + PSI17 ! CAI MOLAL (9) = 2.D0*PSI9 + PSI13 + PSI14 ! KI MOLAL (10)= PSI10 + PSI15 + PSI16 ! MGI C C *** CALCULATE H+ ***************************************************** C C REST = 2.D0*W(2) + W(4) + W(5) CC C DELT1 = 0.0d0 C DELT2 = 0.0d0 C IF (W(1)+W(6)+W(7)+W(8).GT.REST) THEN C CC *** CALCULATE EQUILIBRIUM CONSTANTS ********************************** CC C ALFA1 = XK26*RH*(WATER/1.0) ! CO2(aq) + H2O C ALFA2 = XK27*(WATER/1.0) ! HCO3- CC C X = W(1)+W(6)+W(7)+W(8) - REST ! EXCESS OF CRUSTALS EQUALS CO2(aq) CC C DIAK = SQRT( (ALFA1)**2.0 + 4.0D0*ALFA1*X) C DELT1 = 0.5*(-ALFA1 + DIAK) C DELT1 = MIN ( MAX (DELT1, ZERO), X) C DELT2 = ALFA2 C DELT2 = MIN ( DELT2, DELT1) C MOLAL(1) = DELT1 + DELT2 ! H+ C ELSE CC CC *** NO EXCESS OF CRUSTALS CALCULATE H+ ******************************* CC SMIN = 2.d0*MOLAL(5)+MOLAL(7)+MOLAL(4)-MOLAL(2)-MOLAL(3) & - MOLAL(9) - 2.D0*MOLAL(10) - 2.D0*MOLAL(8) CALL CALCPH (SMIN, HI, OHI) MOLAL (1) = HI C ENDIF C GNH3 = MAX(CHI4 - PSI4, TINY) GHNO3 = MAX(CHI5 - PSI5, TINY) GHCL = MAX(CHI6 - PSI6, TINY) C CNH4NO3 = ZERO C CNH4CL = ZERO CNACL = MAX (CHI7 - PSI7, ZERO) CNANO3 = MAX (CHI8 - PSI8, ZERO) CK2SO4 = MAX (CHI9 - PSI9, ZERO) CMGSO4 = ZERO CCASO4 = CHI11 CCANO32 = ZERO CKNO3 = MAX (CHI13 - PSI13, ZERO) CKCL = MAX (CHI14 - PSI14, ZERO) CMGNO32 = ZERO CMGCL2 = ZERO CCACL2 = ZERO C C *** NH4Cl(s) calculations C A3 = XK6 /(R*TEMP*R*TEMP) IF (GNH3*GHCL.GT.A3) THEN DELT = MIN(GNH3, GHCL) BB = -(GNH3+GHCL) CC = GNH3*GHCL-A3 DD = BB*BB - 4.D0*CC PSI31 = 0.5D0*(-BB + SQRT(DD)) PSI32 = 0.5D0*(-BB - SQRT(DD)) IF (DELT-PSI31.GT.ZERO .AND. PSI31.GT.ZERO) THEN PSI3 = PSI31 ELSEIF (DELT-PSI32.GT.ZERO .AND. PSI32.GT.ZERO) THEN PSI3 = PSI32 ELSE PSI3 = ZERO ENDIF ELSE PSI3 = ZERO ENDIF PSI3 = MAX(MIN(MIN(PSI3,CHI4-PSI4),CHI6-PSI6),ZERO) C C *** CALCULATE GAS / SOLID SPECIES (LIQUID IN MOLAL ALREADY) ********* C GNH3 = MAX(GNH3 - PSI3, TINY) GHCL = MAX(GHCL - PSI3, TINY) CNH4CL = PSI3 C CALL CALCMR ! Water content C C *** CALCULATE ACTIVITIES OR TERMINATE INTERNAL LOOP ***************** C IF (FRST.AND.CALAOU .OR. .NOT.FRST.AND.CALAIN) THEN CALL CALCACT ELSE GOTO 20 ENDIF 10 CONTINUE C C *** CALCULATE FUNCTION VALUE FOR OUTER LOOP *************************** C C20 FUNCP6 = MOLAL(3)*MOLAL(4)/GHCL/GNH3/A6/A4 - ONE 20 FUNCP6 = MOLAL(1)*MOLAL(4)/GHCL/A6 - ONE C RETURN C C *** END OF FUNCTION FUNCP6 ******************************************* C END C C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE CALCP5 C *** CASE P5 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SULRAT > 2.0) ; Rcr+Na >= 2.0 ; Rcr > 2) C 2. SOLID AEROSOL ONLY C 3. SOLIDS POSSIBLE : CaSO4, K2SO4, KNO3, KCL, MGSO4, C NANO3, NACL, NH4NO3, NH4CL C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCP5 INCLUDE 'isrpia.inc' EXTERNAL CALCP1A, CALCP6 C C *** REGIME DEPENDS ON THE EXISTANCE OF WATER AND OF THE RH ************ C IF (W(4).GT.TINY) THEN ! NO3 EXIST, WATER POSSIBLE SCASE = 'P5 ; SUBCASE 1' CALL CALCP5A SCASE = 'P5 ; SUBCASE 1' ELSE ! NO3, CL NON EXISTANT SCASE = 'P1 ; SUBCASE 1' CALL CALCP1A SCASE = 'P1 ; SUBCASE 1' ENDIF C IF (WATER.LE.TINY) THEN IF (RH.LT.DRMP5) THEN ! ONLY SOLIDS WATER = TINY DO 10 I=1,NIONS MOLAL(I) = ZERO 10 CONTINUE CALL CALCP1A SCASE = 'P5 ; SUBCASE 2' RETURN ELSE SCASE = 'P5 ; SUBCASE 3' ! MDRH REGION (CaSO4, K2SO4, KNO3, KCL, MGSO4, C NANO3, NACL, NH4NO3, NH4CL) CALL CALCMDRH2 (RH, DRMP5, DRNH4NO3, CALCP1A, CALCP6) SCASE = 'P5 ; SUBCASE 3' ENDIF ENDIF C RETURN C C *** END OF SUBROUTINE CALCP5 ****************************************** C END C C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE CALCP5A C *** CASE P5A C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SULRAT > 2.0) ; Rcr+Na >= 2.0 ; Rcr > 2) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : CaSO4, K2SO4, KNO3, MGSO4, KCL, NH4CL, NACL, NANO3, NH4NO3 C 4. Completely dissolved: CA(NO3)2, CACL2, C MG(NO3)2, MGCL2 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCP5A INCLUDE 'isrpia.inc' C COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** SETUP PARAMETERS ************************************************ C CALAOU = .TRUE. CHI11 = MIN (W(2), W(6)) ! CCASO4 FRCA = MAX (W(6) - CHI11, ZERO) FRSO4 = MAX (W(2) - CHI11, ZERO) CHI9 = MIN (FRSO4, 0.5D0*W(7)) ! CK2SO4 FRK = MAX (W(7) - 2.D0*CHI9, ZERO) FRSO4 = MAX (FRSO4 - CHI9, ZERO) CHI10 = FRSO4 ! CMGSO4 FRMG = MAX (W(8) - CHI10, ZERO) CHI7 = MIN (W(1), W(5)) ! CNACL FRNA = MAX (W(1) - CHI7, ZERO) FRCL = MAX (W(5) - CHI7, ZERO) CHI12 = MIN (FRCA, 0.5D0*W(4)) ! CCANO32 FRCA = MAX (FRCA - CHI12, ZERO) FRNO3 = MAX (W(4) - 2.D0*CHI12, ZERO) CHI17 = MIN (FRCA, 0.5D0*FRCL) ! CCACL2 FRCA = MAX (FRCA - CHI17, ZERO) FRCL = MAX (FRCL - 2.D0*CHI17, ZERO) CHI15 = MIN (FRMG, 0.5D0*FRNO3) ! CMGNO32 FRMG = MAX (FRMG - CHI15, ZERO) FRNO3 = MAX (FRNO3 - 2.D0*CHI15, ZERO) CHI16 = MIN (FRMG, 0.5D0*FRCL) ! CMGCL2 FRMG = MAX (FRMG - CHI16, ZERO) FRCL = MAX (FRCL - 2.D0*CHI16, ZERO) CHI8 = MIN (FRNA, FRNO3) ! CNANO3 FRNA = MAX (FRNA - CHI8, ZERO) FRNO3 = MAX (FRNO3 - CHI8, ZERO) CHI14 = MIN (FRK, FRCL) ! CKCL FRK = MAX (FRK - CHI14, ZERO) FRCL = MAX (FRCL - CHI14, ZERO) CHI13 = MIN (FRK, FRNO3) ! CKNO3 FRK = MAX (FRK - CHI13, ZERO) FRNO3 = MAX (FRNO3 - CHI13, ZERO) C CHI5 = FRNO3 ! HNO3(g) CHI6 = FRCL ! HCL(g) CHI4 = W(3) ! NH3(g) C CHI3 = ZERO ! CNH4CL CHI1 = ZERO CHI2 = ZERO C PSI6LO = TINY PSI6HI = CHI6-TINY ! MIN(CHI6-TINY, CHI4) C C *** INITIAL VALUES FOR BISECTION ************************************ C X1 = PSI6LO Y1 = FUNCP5 (X1) IF (ABS(Y1).LE.EPS .OR. CHI6.LE.TINY) GOTO 50 C C *** ROOT TRACKING ; FOR THE RANGE OF HI AND LO ********************** C DX = (PSI6HI-PSI6LO)/FLOAT(NDIV) DO 10 I=1,NDIV X2 = X1+DX Y2 = FUNCP5 (X2) IF (SIGN(1.d0,Y1)*SIGN(1.d0,Y2).LT.ZERO) GOTO 20 ! (Y1*Y2.LT.ZERO) X1 = X2 Y1 = Y2 10 CONTINUE C C *** NO SUBDIVISION WITH SOLUTION; IF ABS(Y2) 2.0) ; Rcr+Na >= 2.0 ; Rcr > 2) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : CaSO4, K2SO4, KNO3, MGSO4, KCL, NH4CL, NACL, NANO3, NH4NO3 C 4. Completely dissolved: CA(NO3)2, CACL2, C MG(NO3)2, MGCL2 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C DOUBLE PRECISION FUNCTION FUNCP5 (X) INCLUDE 'isrpia.inc' C COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** SETUP PARAMETERS ************************************************ C PSI6 = X PSI1 = ZERO PSI2 = ZERO PSI3 = ZERO PSI7 = ZERO PSI8 = ZERO PSI9 = ZERO PSI10 = CHI10 PSI11 = ZERO PSI12 = CHI12 PSI13 = ZERO PSI14 = ZERO PSI15 = CHI15 PSI16 = CHI16 PSI17 = CHI17 FRST = .TRUE. CALAIN = .TRUE. C C *** SOLVE EQUATIONS ; WITH ITERATIONS FOR ACTIVITY COEF. ************ C DO 10 I=1,NSWEEP C A4 = (XK2/XKW)*R*TEMP*(GAMA(10)/GAMA(5))**2.0 A5 = XK4 *R*TEMP*(WATER/GAMA(10))**2.0 A6 = XK3 *R*TEMP*(WATER/GAMA(11))**2.0 A9 = XK17 *(WATER/GAMA(17))**3.0 A13 = XK19 *(WATER/GAMA(19))**2.0 A14 = XK20 *(WATER/GAMA(20))**2.0 A7 = XK8 *(WATER/GAMA(1))**2.0 A8 = XK9 *(WATER/GAMA(3))**2.0 C C CALCULATE DISSOCIATION QUANTITIES C PSI5 = (CHI5-PSI2)*(PSI6 + PSI7 + PSI14 + 2.D0*PSI16 + 2.D0*PSI17) & - A6/A5*(PSI8+2.D0*PSI12+PSI13+2.D0*PSI15)*(CHI6-PSI6-PSI3) PSI5 = PSI5/(A6/A5*(CHI6-PSI6-PSI3) + PSI6 + PSI7 + PSI14 + & 2.D0*PSI16 + 2.D0*PSI17) PSI5 = MIN (MAX (PSI5, TINY) , CHI5) C IF (W(3).GT.TINY .AND. WATER.GT.TINY) THEN ! First try 3rd order soln BB =-(CHI4 + PSI6 + PSI5 + 1.d0/A4) CC = CHI4*(PSI5+PSI6) DD = MAX(BB*BB-4.d0*CC,ZERO) PSI4 =0.5d0*(-BB - SQRT(DD)) PSI4 = MIN(MAX(PSI4,ZERO),CHI4) ELSE PSI4 = TINY ENDIF C IF (CHI13.GT.TINY .AND. WATER.GT.TINY) THEN !KNO3 VHTA = PSI5+PSI8+2.D0*PSI12+2.D0*PSI15+PSI14+2.D0*PSI9 GKAMA = (PSI5+PSI8+2.D0*PSI12+2.D0*PSI15)*(2.D0*PSI9+PSI14)-A13 DELTA = MAX(VHTA*VHTA-4.d0*GKAMA,ZERO) PSI13 = 0.5d0*(-VHTA + SQRT(DELTA)) PSI13 = MIN(MAX(PSI13,ZERO),CHI13) ENDIF C IF (CHI14.GT.TINY .AND. WATER.GT.TINY) THEN !KCL PSI14 = A14/A13*(PSI5+PSI8+2.D0*PSI12+PSI13+2.D0*PSI15) - & PSI6-PSI7-2.D0*PSI16-2.D0*PSI17 PSI14 = MIN (MAX (PSI14, ZERO), CHI14) ENDIF C IF (CHI9.GT.TINY .AND. WATER.GT.TINY) THEN !K2SO4 BBP = PSI10+PSI13+PSI14 CCP = (PSI13+PSI14)*(0.25D0*(PSI13+PSI14)+PSI10) DDP = 0.25D0*(PSI13+PSI14)**2.0*PSI10-A9/4.D0 CALL POLY3 (BBP, CCP, DDP, PSI9, ISLV) IF (ISLV.EQ.0) THEN PSI9 = MIN (MAX(PSI9,ZERO) , CHI9) ELSE PSI9 = ZERO ENDIF ENDIF C IF (CHI7.GT.TINY .AND. WATER.GT.TINY) THEN ! NACL DISSOLUTION VITA = PSI6+PSI14+PSI8+2.D0*PSI16+2.D0*PSI17 GKAMA= PSI8*(2.D0*PSI16+PSI6+PSI14+2.D0*PSI17)-A7 DIAK = MAX(VITA*VITA - 4.0D0*GKAMA,ZERO) PSI7 = 0.5D0*( -VITA + SQRT(DIAK) ) PSI7 = MAX(MIN(PSI7, CHI7), ZERO) ENDIF C IF (CHI8.GT.TINY .AND. WATER.GT.TINY) THEN ! NANO3 DISSOLUTION C VIT = PSI5+PSI13+PSI7+2.D0*PSI12+2.D0*PSI15 C GKAM = PSI7*(2.D0*PSI12+PSI5+PSI13+2.D0*PSI15)-A8 C DIA = MAX(VIT*VIT - 4.0D0*GKAM,ZERO) C PSI8 = 0.5D0*( -VIT + SQRT(DIA) ) PSI8 = A8/A7*(PSI6+PSI7+PSI14+2.D0*PSI16+2.D0*PSI17)- & PSI5-2.D0*PSI12-PSI13-2.D0*PSI15 PSI8 = MAX(MIN(PSI8, CHI8), ZERO) ENDIF C C C *** CALCULATE SPECIATION ******************************************** C MOLAL (2) = PSI8 + PSI7 ! NAI MOLAL (3) = PSI4 ! NH4I MOLAL (4) = PSI6 + PSI7 + PSI14 + 2.D0*PSI16 + 2.D0*PSI17 ! CLI MOLAL (5) = PSI9 + PSI10 ! SO4I MOLAL (6) = ZERO ! HSO4I MOLAL (7) = PSI5 + PSI8 + 2.D0*PSI12 + PSI13 + 2.D0*PSI15 ! NO3I MOLAL (8) = PSI11 + PSI12 + PSI17 ! CAI MOLAL (9) = 2.D0*PSI9 + PSI13 + PSI14 ! KI MOLAL (10)= PSI10 + PSI15 + PSI16 ! MGI CC CC *** CALCULATE H+ ***************************************************** CC C REST = 2.D0*W(2) + W(4) + W(5) CC C DELT1 = 0.0d0 C DELT2 = 0.0d0 C IF (W(1)+W(6)+W(7)+W(8).GT.REST) THEN CC CC *** CALCULATE EQUILIBRIUM CONSTANTS ********************************** CC C ALFA1 = XK26*RH*(WATER/1.0) ! CO2(aq) + H2O C ALFA2 = XK27*(WATER/1.0) ! HCO3- CC C X = W(1)+W(6)+W(7)+W(8) - REST ! EXCESS OF CRUSTALS EQUALS CO2(aq) CC C DIAK = SQRT( (ALFA1)**2.0 + 4.0D0*ALFA1*X) C DELT1 = 0.5*(-ALFA1 + DIAK) C DELT1 = MIN ( MAX (DELT1, ZERO), X) C DELT2 = ALFA2 C DELT2 = MIN ( DELT2, DELT1) C MOLAL(1) = DELT1 + DELT2 ! H+ C ELSE CC CC *** NO EXCESS OF CRUSTALS CALCULATE H+ ******************************* CC SMIN = 2.d0*MOLAL(5)+MOLAL(7)+MOLAL(4)-MOLAL(2)-MOLAL(3) & - MOLAL(9) - 2.D0*MOLAL(10) - 2.D0*MOLAL(8) CALL CALCPH (SMIN, HI, OHI) MOLAL (1) = HI C ENDIF C GNH3 = MAX(CHI4 - PSI4, TINY) GHNO3 = MAX(CHI5 - PSI5, TINY) GHCL = MAX(CHI6 - PSI6, TINY) C C CNH4NO3 = ZERO C CNH4CL = ZERO CNACL = MAX (CHI7 - PSI7, ZERO) CNANO3 = MAX (CHI8 - PSI8, ZERO) CK2SO4 = MAX (CHI9 - PSI9, ZERO) CMGSO4 = ZERO CCASO4 = CHI11 CCANO32 = ZERO CKNO3 = MAX (CHI13 - PSI13, ZERO) CKCL = MAX (CHI14 - PSI14, ZERO) CMGNO32 = ZERO CMGCL2 = ZERO CCACL2 = ZERO C C *** NH4Cl(s) calculations C A3 = XK6 /(R*TEMP*R*TEMP) IF (GNH3*GHCL.GT.A3) THEN DELT = MIN(GNH3, GHCL) BB = -(GNH3+GHCL) CC = GNH3*GHCL-A3 DD = BB*BB - 4.D0*CC PSI31 = 0.5D0*(-BB + SQRT(DD)) PSI32 = 0.5D0*(-BB - SQRT(DD)) IF (DELT-PSI31.GT.ZERO .AND. PSI31.GT.ZERO) THEN PSI3 = PSI31 ELSEIF (DELT-PSI32.GT.ZERO .AND. PSI32.GT.ZERO) THEN PSI3 = PSI32 ELSE PSI3 = ZERO ENDIF ELSE PSI3 = ZERO ENDIF PSI3 = MAX(MIN(MIN(PSI3,CHI4-PSI4),CHI6-PSI6),ZERO) C C *** CALCULATE GAS / SOLID SPECIES (LIQUID IN MOLAL ALREADY) ********* C GNH3 = MAX(GNH3 - PSI3, TINY) GHCL = MAX(GHCL - PSI3, TINY) CNH4CL = PSI3 C C *** NH4NO3(s) calculations C A2 = XK10 /(R*TEMP*R*TEMP) IF (GNH3*GHNO3.GT.A2) THEN DELT = MIN(GNH3, GHNO3) BB = -(GNH3+GHNO3) CC = GNH3*GHNO3-A2 DD = BB*BB - 4.D0*CC PSI21 = 0.5D0*(-BB + SQRT(DD)) PSI22 = 0.5D0*(-BB - SQRT(DD)) IF (DELT-PSI21.GT.ZERO .AND. PSI21.GT.ZERO) THEN PSI2 = PSI21 ELSEIF (DELT-PSI22.GT.ZERO .AND. PSI22.GT.ZERO) THEN PSI2 = PSI22 ELSE PSI2 = ZERO ENDIF ELSE PSI2 = ZERO ENDIF PSI2 = MAX(MIN(MIN(PSI2,CHI4-PSI4-PSI3),CHI5-PSI5), ZERO) C C *** CALCULATE GAS / SOLID SPECIES (LIQUID IN MOLAL ALREADY) ********* C GNH3 = MAX(GNH3 - PSI2, TINY) GHCL = MAX(GHNO3 - PSI2, TINY) CNH4NO3 = PSI2 C CALL CALCMR ! Water content C C *** CALCULATE ACTIVITIES OR TERMINATE INTERNAL LOOP ***************** C IF (FRST.AND.CALAOU .OR. .NOT.FRST.AND.CALAIN) THEN CALL CALCACT ELSE GOTO 20 ENDIF 10 CONTINUE C C *** CALCULATE FUNCTION VALUE FOR OUTER LOOP *************************** C C20 FUNCP5 = MOLAL(3)*MOLAL(4)/GHCL/GNH3/A6/A4 - ONE 20 FUNCP5 = MOLAL(1)*MOLAL(4)/GHCL/A6 - ONE C RETURN C C *** END OF FUNCTION FUNCP5 ******************************************* C END C C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE CALCP4 C *** CASE P4 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SULRAT > 2.0) ; Rcr+Na >= 2.0 ; Rcr > 2) C 2. SOLID AEROSOL ONLY C 3. SOLIDS POSSIBLE : CaSO4, K2SO4, KNO3, KCL, MGSO4, C MG(NO3)2, NANO3, NACL, NH4NO3, NH4CL C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCP4 INCLUDE 'isrpia.inc' EXTERNAL CALCP1A, CALCP5A C C *** REGIME DEPENDS ON THE EXISTANCE OF WATER AND OF THE RH ************ C IF (W(4).GT.TINY) THEN ! NO3 EXIST, WATER POSSIBLE SCASE = 'P4 ; SUBCASE 1' CALL CALCP4A SCASE = 'P4 ; SUBCASE 1' ELSE ! NO3, CL NON EXISTANT SCASE = 'P1 ; SUBCASE 1' CALL CALCP1A SCASE = 'P1 ; SUBCASE 1' ENDIF C IF (WATER.LE.TINY) THEN IF (RH.LT.DRMP4) THEN ! ONLY SOLIDS WATER = TINY DO 10 I=1,NIONS MOLAL(I) = ZERO 10 CONTINUE CALL CALCP1A SCASE = 'P4 ; SUBCASE 2' RETURN ELSE SCASE = 'P4 ; SUBCASE 3' ! MDRH REGION (CaSO4, K2SO4, KNO3, KCL, MGSO4, C MG(NO3)2, NANO3, NACL, NH4NO3, NH4CL) CALL CALCMDRH2 (RH, DRMP4, DRMGNO32, CALCP1A, CALCP5A) SCASE = 'P4 ; SUBCASE 3' ENDIF ENDIF C RETURN C C *** END OF SUBROUTINE CALCP4 ****************************************** C END C C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE CALCP4A C *** CASE P4A C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SULRAT > 2.0) ; Rcr+Na >= 2.0 ; Rcr > 2) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : CaSO4, K2SO4, KNO3, MGSO4, KCL, NH4CL, NACL, NANO3, NH4NO3, MG(NO3)2 C 4. Completely dissolved: CA(NO3)2, CACL2, MGCL2 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCP4A INCLUDE 'isrpia.inc' C COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** SETUP PARAMETERS ************************************************ C CALAOU = .TRUE. CHI11 = MIN (W(2), W(6)) ! CCASO4 FRCA = MAX (W(6) - CHI11, ZERO) FRSO4 = MAX (W(2) - CHI11, ZERO) CHI9 = MIN (FRSO4, 0.5D0*W(7)) ! CK2SO4 FRK = MAX (W(7) - 2.D0*CHI9, ZERO) FRSO4 = MAX (FRSO4 - CHI9, ZERO) CHI10 = FRSO4 ! CMGSO4 FRMG = MAX (W(8) - CHI10, ZERO) CHI7 = MIN (W(1), W(5)) ! CNACL FRNA = MAX (W(1) - CHI7, ZERO) FRCL = MAX (W(5) - CHI7, ZERO) CHI12 = MIN (FRCA, 0.5D0*W(4)) ! CCANO32 FRCA = MAX (FRCA - CHI12, ZERO) FRNO3 = MAX (W(4) - 2.D0*CHI12, ZERO) CHI17 = MIN (FRCA, 0.5D0*FRCL) ! CCACL2 FRCA = MAX (FRCA - CHI17, ZERO) FRCL = MAX (FRCL - 2.D0*CHI17, ZERO) CHI15 = MIN (FRMG, 0.5D0*FRNO3) ! CMGNO32 FRMG = MAX (FRMG - CHI15, ZERO) FRNO3 = MAX (FRNO3 - 2.D0*CHI15, ZERO) CHI16 = MIN (FRMG, 0.5D0*FRCL) ! CMGCL2 FRMG = MAX (FRMG - CHI16, ZERO) FRCL = MAX (FRCL - 2.D0*CHI16, ZERO) CHI8 = MIN (FRNA, FRNO3) ! CNANO3 FRNA = MAX (FRNA - CHI8, ZERO) FRNO3 = MAX (FRNO3 - CHI8, ZERO) CHI14 = MIN (FRK, FRCL) ! CKCL FRK = MAX (FRK - CHI14, ZERO) FRCL = MAX (FRCL - CHI14, ZERO) CHI13 = MIN (FRK, FRNO3) ! CKNO3 FRK = MAX (FRK - CHI13, ZERO) FRNO3 = MAX (FRNO3 - CHI13, ZERO) C CHI5 = FRNO3 ! HNO3(g) CHI6 = FRCL ! HCL(g) CHI4 = W(3) ! NH3(g) C CHI3 = ZERO ! CNH4CL CHI1 = ZERO CHI2 = ZERO C PSI6LO = TINY PSI6HI = CHI6-TINY ! MIN(CHI6-TINY, CHI4) C C *** INITIAL VALUES FOR BISECTION ************************************ C X1 = PSI6LO Y1 = FUNCP4 (X1) IF (ABS(Y1).LE.EPS .OR. CHI6.LE.TINY) GOTO 50 C C *** ROOT TRACKING ; FOR THE RANGE OF HI AND LO ********************** C DX = (PSI6HI-PSI6LO)/FLOAT(NDIV) DO 10 I=1,NDIV X2 = X1+DX Y2 = FUNCP4 (X2) IF (SIGN(1.d0,Y1)*SIGN(1.d0,Y2).LT.ZERO) GOTO 20 ! (Y1*Y2.LT.ZERO) X1 = X2 Y1 = Y2 10 CONTINUE C C *** NO SUBDIVISION WITH SOLUTION; IF ABS(Y2) 2.0) ; Rcr+Na >= 2.0 ; Rcr > 2) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : CaSO4, K2SO4, KNO3, MGSO4, KCL, NH4CL, NACL, NANO3, NH4NO3, MG(NO3)2 C 4. Completely dissolved: CA(NO3)2, CACL2, MGCL2 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C DOUBLE PRECISION FUNCTION FUNCP4 (X) INCLUDE 'isrpia.inc' C COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** SETUP PARAMETERS ************************************************ C PSI6 = X PSI1 = ZERO PSI2 = ZERO PSI3 = ZERO PSI7 = ZERO PSI8 = ZERO PSI9 = ZERO PSI10 = CHI10 PSI11 = ZERO PSI12 = CHI12 PSI13 = ZERO PSI14 = ZERO PSI15 = CHI15 PSI16 = CHI16 PSI17 = CHI17 FRST = .TRUE. CALAIN = .TRUE. C C *** SOLVE EQUATIONS ; WITH ITERATIONS FOR ACTIVITY COEF. ************ C DO 10 I=1,NSWEEP C A4 = (XK2/XKW)*R*TEMP*(GAMA(10)/GAMA(5))**2.0 A5 = XK4 *R*TEMP*(WATER/GAMA(10))**2.0 A6 = XK3 *R*TEMP*(WATER/GAMA(11))**2.0 A9 = XK17 *(WATER/GAMA(17))**3.0 A13 = XK19 *(WATER/GAMA(19))**2.0 A14 = XK20 *(WATER/GAMA(20))**2.0 A7 = XK8 *(WATER/GAMA(1))**2.0 A8 = XK9 *(WATER/GAMA(3))**2.0 C C CALCULATE DISSOCIATION QUANTITIES C PSI5 = (CHI5-PSI2)*(PSI6 + PSI7 + PSI14 + 2.D0*PSI16 + 2.D0*PSI17) & - A6/A5*(PSI8+2.D0*PSI12+PSI13+2.D0*PSI15)*(CHI6-PSI6-PSI3) PSI5 = PSI5/(A6/A5*(CHI6-PSI6-PSI3) + PSI6 + PSI7 + PSI14 + & 2.D0*PSI16 + 2.D0*PSI17) PSI5 = MIN (MAX (PSI5, TINY) , CHI5) C IF (W(3).GT.TINY .AND. WATER.GT.TINY) THEN ! First try 3rd order soln BB =-(CHI4 + PSI6 + PSI5 + 1.d0/A4) CC = CHI4*(PSI5+PSI6) DD = MAX(BB*BB-4.d0*CC,ZERO) PSI4 =0.5d0*(-BB - SQRT(DD)) PSI4 = MIN(MAX(PSI4,ZERO),CHI4) ELSE PSI4 = TINY ENDIF C IF (CHI13.GT.TINY .AND. WATER.GT.TINY) THEN !KNO3 VHTA = PSI5+PSI8+2.D0*PSI12+2.D0*PSI15+PSI14+2.D0*PSI9 GKAMA = (PSI5+PSI8+2.D0*PSI12+2.D0*PSI15)*(2.D0*PSI9+PSI14)-A13 DELTA = MAX(VHTA*VHTA-4.d0*GKAMA,ZERO) PSI13 = 0.5d0*(-VHTA + SQRT(DELTA)) PSI13 = MIN(MAX(PSI13,ZERO),CHI13) ENDIF C IF (CHI14.GT.TINY .AND. WATER.GT.TINY) THEN !KCL PSI14 = A14/A13*(PSI5+PSI8+2.D0*PSI12+PSI13+2.D0*PSI15) - & PSI6-PSI7-2.D0*PSI16-2.D0*PSI17 PSI14 = MIN (MAX (PSI14, ZERO), CHI14) ENDIF C IF (CHI9.GT.TINY .AND. WATER.GT.TINY) THEN !K2SO4 BBP = PSI10+PSI13+PSI14 CCP = (PSI13+PSI14)*(0.25D0*(PSI13+PSI14)+PSI10) DDP = 0.25D0*(PSI13+PSI14)**2.0*PSI10-A9/4.D0 CALL POLY3 (BBP, CCP, DDP, PSI9, ISLV) IF (ISLV.EQ.0) THEN PSI9 = MIN (MAX(PSI9,ZERO) , CHI9) ELSE PSI9 = ZERO ENDIF ENDIF C IF (CHI7.GT.TINY .AND. WATER.GT.TINY) THEN ! NACL DISSOLUTION VITA = PSI6+PSI14+PSI8+2.D0*PSI16+2.D0*PSI17 GKAMA= PSI8*(2.D0*PSI16+PSI6+PSI14+2.D0*PSI17)-A7 DIAK = MAX(VITA*VITA - 4.0D0*GKAMA,ZERO) PSI7 = 0.5D0*( -VITA + SQRT(DIAK) ) PSI7 = MAX(MIN(PSI7, CHI7), ZERO) ENDIF C IF (CHI8.GT.TINY .AND. WATER.GT.TINY) THEN ! NANO3 DISSOLUTION C VIT = PSI5+PSI13+PSI7+2.D0*PSI12+2.D0*PSI15 C GKAM = PSI7*(2.D0*PSI12+PSI5+PSI13+2.D0*PSI15)-A8 C DIA = MAX(VIT*VIT - 4.0D0*GKAM,ZERO) C PSI8 = 0.5D0*( -VIT + SQRT(DIA) ) PSI8 = A8/A7*(PSI6+PSI7+PSI14+2.D0*PSI16+2.D0*PSI17)- & PSI5-2.D0*PSI12-PSI13-2.D0*PSI15 PSI8 = MAX(MIN(PSI8, CHI8), ZERO) ENDIF C C C *** CALCULATE SPECIATION ******************************************** C MOLAL (2) = PSI8 + PSI7 ! NAI MOLAL (3) = PSI4 ! NH4I MOLAL (4) = PSI6 + PSI7 + PSI14 + 2.D0*PSI16 + 2.D0*PSI17 ! CLI MOLAL (5) = PSI9 + PSI10 ! SO4I MOLAL (6) = ZERO ! HSO4I MOLAL (7) = PSI5 + PSI8 + 2.D0*PSI12 + PSI13 + 2.D0*PSI15 ! NO3I MOLAL (8) = PSI11 + PSI12 + PSI17 ! CAI MOLAL (9) = 2.D0*PSI9 + PSI13 + PSI14 ! KI MOLAL (10)= PSI10 + PSI15 + PSI16 ! MGI C C *** CALCULATE H+ ***************************************************** C C REST = 2.D0*W(2) + W(4) + W(5) CC C DELT1 = 0.0d0 C DELT2 = 0.0d0 C IF (W(1)+W(6)+W(7)+W(8).GT.REST) THEN CC CC *** CALCULATE EQUILIBRIUM CONSTANTS ********************************** CC C ALFA1 = XK26*RH*(WATER/1.0) ! CO2(aq) + H2O C ALFA2 = XK27*(WATER/1.0) ! HCO3- CC C X = W(1)+W(6)+W(7)+W(8) - REST ! EXCESS OF CRUSTALS EQUALS CO2(aq) CC C DIAK = SQRT( (ALFA1)**2.0 + 4.0D0*ALFA1*X) C DELT1 = 0.5*(-ALFA1 + DIAK) C DELT1 = MIN ( MAX (DELT1, ZERO), X) C DELT2 = ALFA2 C DELT2 = MIN ( DELT2, DELT1) C MOLAL(1) = DELT1 + DELT2 ! H+ C ELSE CC CC *** NO EXCESS OF CRUSTALS CALCULATE H+ ******************************* CC SMIN = 2.d0*MOLAL(5)+MOLAL(7)+MOLAL(4)-MOLAL(2)-MOLAL(3) & - MOLAL(9) - 2.D0*MOLAL(10) - 2.D0*MOLAL(8) CALL CALCPH (SMIN, HI, OHI) MOLAL (1) = HI C ENDIF C GNH3 = MAX(CHI4 - PSI4, TINY) GHNO3 = MAX(CHI5 - PSI5, TINY) GHCL = MAX(CHI6 - PSI6, TINY) C C CNH4CL = ZERO C CNH4NO3 = ZERO CNACL = MAX (CHI7 - PSI7, ZERO) CNANO3 = MAX (CHI8 - PSI8, ZERO) CK2SO4 = MAX (CHI9 - PSI9, ZERO) CMGSO4 = ZERO CCASO4 = CHI11 CCANO32 = ZERO CKNO3 = MAX (CHI13 - PSI13, ZERO) CKCL = MAX (CHI14 - PSI14, ZERO) CMGNO32 = ZERO CMGCL2 = ZERO CCACL2 = ZERO C C *** NH4Cl(s) calculations C A3 = XK6 /(R*TEMP*R*TEMP) IF (GNH3*GHCL.GT.A3) THEN DELT = MIN(GNH3, GHCL) BB = -(GNH3+GHCL) CC = GNH3*GHCL-A3 DD = BB*BB - 4.D0*CC PSI31 = 0.5D0*(-BB + SQRT(DD)) PSI32 = 0.5D0*(-BB - SQRT(DD)) IF (DELT-PSI31.GT.ZERO .AND. PSI31.GT.ZERO) THEN PSI3 = PSI31 ELSEIF (DELT-PSI32.GT.ZERO .AND. PSI32.GT.ZERO) THEN PSI3 = PSI32 ELSE PSI3 = ZERO ENDIF ELSE PSI3 = ZERO ENDIF PSI3 = MAX(MIN(MIN(PSI3,CHI4-PSI4),CHI6-PSI6),ZERO) C C *** CALCULATE GAS / SOLID SPECIES (LIQUID IN MOLAL ALREADY) ********* C GNH3 = MAX(GNH3 - PSI3, TINY) GHCL = MAX(GHCL - PSI3, TINY) CNH4CL = PSI3 C C *** NH4NO3(s) calculations C A2 = XK10 /(R*TEMP*R*TEMP) IF (GNH3*GHNO3.GT.A2) THEN DELT = MIN(GNH3, GHNO3) BB = -(GNH3+GHNO3) CC = GNH3*GHNO3-A2 DD = BB*BB - 4.D0*CC PSI21 = 0.5D0*(-BB + SQRT(DD)) PSI22 = 0.5D0*(-BB - SQRT(DD)) IF (DELT-PSI21.GT.ZERO .AND. PSI21.GT.ZERO) THEN PSI2 = PSI21 ELSEIF (DELT-PSI22.GT.ZERO .AND. PSI22.GT.ZERO) THEN PSI2 = PSI22 ELSE PSI2 = ZERO ENDIF ELSE PSI2 = ZERO ENDIF PSI2 = MAX(MIN(MIN(PSI2,CHI4-PSI4-PSI3),CHI5-PSI5), ZERO) C C *** CALCULATE GAS / SOLID SPECIES (LIQUID IN MOLAL ALREADY) ********* C GNH3 = MAX(GNH3 - PSI2, TINY) GHCL = MAX(GHNO3 - PSI2, TINY) CNH4NO3 = PSI2 C CALL CALCMR ! Water content C C *** CALCULATE ACTIVITIES OR TERMINATE INTERNAL LOOP ***************** C IF (FRST.AND.CALAOU .OR. .NOT.FRST.AND.CALAIN) THEN CALL CALCACT ELSE GOTO 20 ENDIF 10 CONTINUE C C *** CALCULATE FUNCTION VALUE FOR OUTER LOOP *************************** C C20 FUNCP4 = MOLAL(3)*MOLAL(4)/GHCL/GNH3/A6/A4 - ONE 20 FUNCP4 = MOLAL(1)*MOLAL(4)/GHCL/A6 - ONE C RETURN C C *** END OF FUNCTION FUNCP4 ******************************************* C END C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE CALCP3 C *** CASE P3 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SULRAT > 2.0) ; Rcr+Na >= 2.0 ; Rcr > 2) C 2. SOLID AEROSOL ONLY C 3. SOLIDS POSSIBLE : CaSO4, CA(NO3)2, K2SO4, KNO3, KCL, MGSO4, C MG(NO3)2, NANO3, NACL, NH4NO3, NH4CL C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCP3 INCLUDE 'isrpia.inc' EXTERNAL CALCP1A, CALCP4A C C *** REGIME DEPENDS ON THE EXISTANCE OF WATER AND OF THE RH ************ C IF (W(4).GT.TINY .AND. W(5).GT.TINY) THEN ! NO3,CL EXIST, WATER POSSIBLE SCASE = 'P3 ; SUBCASE 1' CALL CALCP3A SCASE = 'P3 ; SUBCASE 1' ELSE ! NO3, CL NON EXISTANT SCASE = 'P1 ; SUBCASE 1' CALL CALCP1A SCASE = 'P1 ; SUBCASE 1' ENDIF C IF (WATER.LE.TINY) THEN IF (RH.LT.DRMP3) THEN ! ONLY SOLIDS WATER = TINY DO 10 I=1,NIONS MOLAL(I) = ZERO 10 CONTINUE CALL CALCP1A SCASE = 'P3 ; SUBCASE 2' RETURN ELSE SCASE = 'P3 ; SUBCASE 3' ! MDRH REGION (CaSO4, CA(NO3)2, K2SO4, KNO3, KCL, MGSO4, C MG(NO3)2, NANO3, NACL, NH4NO3, NH4CL) CALL CALCMDRH2 (RH, DRMP3, DRCANO32, CALCP1A, CALCP4A) SCASE = 'P3 ; SUBCASE 3' ENDIF ENDIF C RETURN C C *** END OF SUBROUTINE CALCP3 ****************************************** C END C C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE CALCP3A C *** CASE P3A C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SULRAT > 2.0) ; Rcr+Na >= 2.0 ; Rcr > 2) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : CaSO4, K2SO4, KNO3, MGSO4, KCL, NH4CL, NACL, C NANO3, NH4NO3, MG(NO3)2, CA(NO3)2 C 4. Completely dissolved: CACL2, MGCL2 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCP3A INCLUDE 'isrpia.inc' C COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** SETUP PARAMETERS ************************************************ C CALAOU = .TRUE. CHI11 = MIN (W(2), W(6)) ! CCASO4 FRCA = MAX (W(6) - CHI11, ZERO) FRSO4 = MAX (W(2) - CHI11, ZERO) CHI9 = MIN (FRSO4, 0.5D0*W(7)) ! CK2SO4 FRK = MAX (W(7) - 2.D0*CHI9, ZERO) FRSO4 = MAX (FRSO4 - CHI9, ZERO) CHI10 = FRSO4 ! CMGSO4 FRMG = MAX (W(8) - CHI10, ZERO) CHI7 = MIN (W(1), W(5)) ! CNACL FRNA = MAX (W(1) - CHI7, ZERO) FRCL = MAX (W(5) - CHI7, ZERO) CHI12 = MIN (FRCA, 0.5D0*W(4)) ! CCANO32 FRCA = MAX (FRCA - CHI12, ZERO) FRNO3 = MAX (W(4) - 2.D0*CHI12, ZERO) CHI17 = MIN (FRCA, 0.5D0*FRCL) ! CCACL2 FRCA = MAX (FRCA - CHI17, ZERO) FRCL = MAX (FRCL - 2.D0*CHI17, ZERO) CHI15 = MIN (FRMG, 0.5D0*FRNO3) ! CMGNO32 FRMG = MAX (FRMG - CHI15, ZERO) FRNO3 = MAX (FRNO3 - 2.D0*CHI15, ZERO) CHI16 = MIN (FRMG, 0.5D0*FRCL) ! CMGCL2 FRMG = MAX (FRMG - CHI16, ZERO) FRCL = MAX (FRCL - 2.D0*CHI16, ZERO) CHI8 = MIN (FRNA, FRNO3) ! CNANO3 FRNA = MAX (FRNA - CHI8, ZERO) FRNO3 = MAX (FRNO3 - CHI8, ZERO) CHI14 = MIN (FRK, FRCL) ! CKCL FRK = MAX (FRK - CHI14, ZERO) FRCL = MAX (FRCL - CHI14, ZERO) CHI13 = MIN (FRK, FRNO3) ! CKNO3 FRK = MAX (FRK - CHI13, ZERO) FRNO3 = MAX (FRNO3 - CHI13, ZERO) C CHI5 = FRNO3 ! HNO3(g) CHI6 = FRCL ! HCL(g) CHI4 = W(3) ! NH3(g) C CHI3 = ZERO ! CNH4CL CHI1 = ZERO CHI2 = ZERO C PSI6LO = TINY PSI6HI = CHI6-TINY ! MIN(CHI6-TINY, CHI4) C C *** INITIAL VALUES FOR BISECTION ************************************ C X1 = PSI6LO Y1 = FUNCP3 (X1) IF (ABS(Y1).LE.EPS .OR. CHI6.LE.TINY) GOTO 50 C C *** ROOT TRACKING ; FOR THE RANGE OF HI AND LO ********************** C DX = (PSI6HI-PSI6LO)/FLOAT(NDIV) DO 10 I=1,NDIV X2 = X1+DX Y2 = FUNCP3 (X2) IF (SIGN(1.d0,Y1)*SIGN(1.d0,Y2).LT.ZERO) GOTO 20 ! (Y1*Y2.LT.ZERO) X1 = X2 Y1 = Y2 10 CONTINUE C C *** NO SUBDIVISION WITH SOLUTION; IF ABS(Y2) 2.0) ; Rcr+Na >= 2.0 ; Rcr > 2) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : CaSO4, K2SO4, KNO3, MGSO4, KCL, NH4CL, NACL, C NANO3, NH4NO3, MG(NO3)2, CA(NO3)2 C 4. Completely dissolved: CACL2, MGCL2 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C DOUBLE PRECISION FUNCTION FUNCP3 (X) INCLUDE 'isrpia.inc' C COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** SETUP PARAMETERS ************************************************ C PSI6 = X PSI1 = ZERO PSI2 = ZERO PSI3 = ZERO PSI7 = ZERO PSI8 = ZERO PSI9 = ZERO PSI10 = CHI10 PSI11 = ZERO PSI12 = CHI12 PSI13 = ZERO PSI14 = ZERO PSI15 = CHI15 PSI16 = CHI16 PSI17 = CHI17 FRST = .TRUE. CALAIN = .TRUE. C C *** SOLVE EQUATIONS ; WITH ITERATIONS FOR ACTIVITY COEF. ************ C DO 10 I=1,NSWEEP C A4 = (XK2/XKW)*R*TEMP*(GAMA(10)/GAMA(5))**2.0 A5 = XK4 *R*TEMP*(WATER/GAMA(10))**2.0 A6 = XK3 *R*TEMP*(WATER/GAMA(11))**2.0 A9 = XK17 *(WATER/GAMA(17))**3.0 A13 = XK19 *(WATER/GAMA(19))**2.0 A14 = XK20 *(WATER/GAMA(20))**2.0 A7 = XK8 *(WATER/GAMA(1))**2.0 A8 = XK9 *(WATER/GAMA(3))**2.0 C C CALCULATE DISSOCIATION QUANTITIES C PSI5 = (CHI5-PSI2)*(PSI6 + PSI7 + PSI14 + 2.D0*PSI16 + 2.D0*PSI17) & - A6/A5*(PSI8+2.D0*PSI12+PSI13+2.D0*PSI15)*(CHI6-PSI6-PSI3) PSI5 = PSI5/(A6/A5*(CHI6-PSI6-PSI3) + PSI6 + PSI7 + PSI14 + & 2.D0*PSI16 + 2.D0*PSI17) PSI5 = MIN (MAX (PSI5, TINY) , CHI5) C IF (W(3).GT.TINY .AND. WATER.GT.TINY) THEN ! First try 3rd order soln BB =-(CHI4 + PSI6 + PSI5 + 1.d0/A4) CC = CHI4*(PSI5+PSI6) DD = MAX(BB*BB-4.d0*CC,ZERO) PSI4 =0.5d0*(-BB - SQRT(DD)) PSI4 = MIN(MAX(PSI4,ZERO),CHI4) ELSE PSI4 = TINY ENDIF C IF (CHI13.GT.TINY .AND. WATER.GT.TINY) THEN !KNO3 VHTA = PSI5+PSI8+2.D0*PSI12+2.D0*PSI15+PSI14+2.D0*PSI9 GKAMA = (PSI5+PSI8+2.D0*PSI12+2.D0*PSI15)*(2.D0*PSI9+PSI14)-A13 DELTA = MAX(VHTA*VHTA-4.d0*GKAMA,ZERO) PSI13 = 0.5d0*(-VHTA + SQRT(DELTA)) PSI13 = MIN(MAX(PSI13,ZERO),CHI13) ENDIF C IF (CHI14.GT.TINY .AND. WATER.GT.TINY) THEN !KCL PSI14 = A14/A13*(PSI5+PSI8+2.D0*PSI12+PSI13+2.D0*PSI15) - & PSI6-PSI7-2.D0*PSI16-2.D0*PSI17 PSI14 = MIN (MAX (PSI14, ZERO), CHI14) ENDIF C IF (CHI9.GT.TINY .AND. WATER.GT.TINY) THEN !K2SO4 BBP = PSI10+PSI13+PSI14 CCP = (PSI13+PSI14)*(0.25D0*(PSI13+PSI14)+PSI10) DDP = 0.25D0*(PSI13+PSI14)**2.0*PSI10-A9/4.D0 CALL POLY3 (BBP, CCP, DDP, PSI9, ISLV) IF (ISLV.EQ.0) THEN PSI9 = MIN (MAX(PSI9,ZERO) , CHI9) ELSE PSI9 = ZERO ENDIF ENDIF C IF (CHI7.GT.TINY .AND. WATER.GT.TINY) THEN ! NACL DISSOLUTION VITA = PSI6+PSI14+PSI8+2.D0*PSI16+2.D0*PSI17 GKAMA= PSI8*(2.D0*PSI16+PSI6+PSI14+2.D0*PSI17)-A7 DIAK = MAX(VITA*VITA - 4.0D0*GKAMA,ZERO) PSI7 = 0.5D0*( -VITA + SQRT(DIAK) ) PSI7 = MAX(MIN(PSI7, CHI7), ZERO) ENDIF C IF (CHI8.GT.TINY .AND. WATER.GT.TINY) THEN ! NANO3 DISSOLUTION C VIT = PSI5+PSI13+PSI7+2.D0*PSI12+2.D0*PSI15 C GKAM = PSI7*(2.D0*PSI12+PSI5+PSI13+2.D0*PSI15)-A8 C DIA = MAX(VIT*VIT - 4.0D0*GKAM,ZERO) C PSI8 = 0.5D0*( -VIT + SQRT(DIA) ) PSI8 = A8/A7*(PSI6+PSI7+PSI14+2.D0*PSI16+2.D0*PSI17)- & PSI5-2.D0*PSI12-PSI13-2.D0*PSI15 PSI8 = MAX(MIN(PSI8, CHI8), ZERO) ENDIF C C C *** CALCULATE SPECIATION ******************************************** C MOLAL (2) = PSI8 + PSI7 ! NAI MOLAL (3) = PSI4 ! NH4I MOLAL (4) = PSI6 + PSI7 + PSI14 + 2.D0*PSI16 + 2.D0*PSI17 ! CLI MOLAL (5) = PSI9 + PSI10 ! SO4I MOLAL (6) = ZERO ! HSO4I MOLAL (7) = PSI5 + PSI8 + 2.D0*PSI12 + PSI13 + 2.D0*PSI15 ! NO3I MOLAL (8) = PSI11 + PSI12 + PSI17 ! CAI MOLAL (9) = 2.D0*PSI9 + PSI13 + PSI14 ! KI MOLAL (10)= PSI10 + PSI15 + PSI16 ! MGI C C *** CALCULATE H+ ***************************************************** C C REST = 2.D0*W(2) + W(4) + W(5) CC C DELT1 = 0.0d0 C DELT2 = 0.0d0 C IF (W(1)+W(6)+W(7)+W(8).GT.REST) THEN CC CC *** CALCULATE EQUILIBRIUM CONSTANTS ********************************** CC C ALFA1 = XK26*RH*(WATER/1.0) ! CO2(aq) + H2O C ALFA2 = XK27*(WATER/1.0) ! HCO3- CC C X = W(1)+W(6)+W(7)+W(8) - REST ! EXCESS OF CRUSTALS EQUALS CO2(aq) CC C DIAK = SQRT( (ALFA1)**2.0 + 4.0D0*ALFA1*X) C DELT1 = 0.5*(-ALFA1 + DIAK) C DELT1 = MIN ( MAX (DELT1, ZERO), X) C DELT2 = ALFA2 C DELT2 = MIN ( DELT2, DELT1) C MOLAL(1) = DELT1 + DELT2 ! H+ C ELSE CC CC *** NO EXCESS OF CRUSTALS CALCULATE H+ ******************************* CC SMIN = 2.d0*MOLAL(5)+MOLAL(7)+MOLAL(4)-MOLAL(2)-MOLAL(3) & - MOLAL(9) - 2.D0*MOLAL(10) - 2.D0*MOLAL(8) CALL CALCPH (SMIN, HI, OHI) MOLAL (1) = HI C ENDIF C GNH3 = MAX(CHI4 - PSI4, TINY) GHNO3 = MAX(CHI5 - PSI5, TINY) GHCL = MAX(CHI6 - PSI6, TINY) C C CNH4CL = ZERO C CNH4NO3 = ZERO CNACL = MAX (CHI7 - PSI7, ZERO) CNANO3 = MAX (CHI8 - PSI8, ZERO) CK2SO4 = MAX (CHI9 - PSI9, ZERO) CMGSO4 = ZERO CCASO4 = CHI11 CCANO32 = ZERO CKNO3 = MAX (CHI13 - PSI13, ZERO) CKCL = MAX (CHI14 - PSI14, ZERO) CMGNO32 = ZERO CMGCL2 = ZERO CCACL2 = ZERO C C *** NH4Cl(s) calculations C A3 = XK6 /(R*TEMP*R*TEMP) IF (GNH3*GHCL.GT.A3) THEN DELT = MIN(GNH3, GHCL) BB = -(GNH3+GHCL) CC = GNH3*GHCL-A3 DD = BB*BB - 4.D0*CC PSI31 = 0.5D0*(-BB + SQRT(DD)) PSI32 = 0.5D0*(-BB - SQRT(DD)) IF (DELT-PSI31.GT.ZERO .AND. PSI31.GT.ZERO) THEN PSI3 = PSI31 ELSEIF (DELT-PSI32.GT.ZERO .AND. PSI32.GT.ZERO) THEN PSI3 = PSI32 ELSE PSI3 = ZERO ENDIF ELSE PSI3 = ZERO ENDIF PSI3 = MAX(MIN(MIN(PSI3,CHI4-PSI4),CHI6-PSI6), ZERO) C C *** CALCULATE GAS / SOLID SPECIES (LIQUID IN MOLAL ALREADY) ********* C GNH3 = MAX(GNH3 - PSI3, TINY) GHCL = MAX(GHCL - PSI3, TINY) CNH4CL = PSI3 C C *** NH4NO3(s) calculations C A2 = XK10 /(R*TEMP*R*TEMP) IF (GNH3*GHNO3.GT.A2) THEN DELT = MIN(GNH3, GHNO3) BB = -(GNH3+GHNO3) CC = GNH3*GHNO3-A2 DD = BB*BB - 4.D0*CC PSI21 = 0.5D0*(-BB + SQRT(DD)) PSI22 = 0.5D0*(-BB - SQRT(DD)) IF (DELT-PSI21.GT.ZERO .AND. PSI21.GT.ZERO) THEN PSI2 = PSI21 ELSEIF (DELT-PSI22.GT.ZERO .AND. PSI22.GT.ZERO) THEN PSI2 = PSI22 ELSE PSI2 = ZERO ENDIF ELSE PSI2 = ZERO ENDIF PSI2 = MAX(MIN(MIN(PSI2,CHI4-PSI4-PSI3),CHI5-PSI5),ZERO) C C *** CALCULATE GAS / SOLID SPECIES (LIQUID IN MOLAL ALREADY) ********* C GNH3 = MAX(GNH3 - PSI2, TINY) GHCL = MAX(GHNO3 - PSI2, TINY) CNH4NO3 = PSI2 C CALL CALCMR ! Water content C C *** CALCULATE ACTIVITIES OR TERMINATE INTERNAL LOOP ***************** C IF (FRST.AND.CALAOU .OR. .NOT.FRST.AND.CALAIN) THEN CALL CALCACT ELSE GOTO 20 ENDIF 10 CONTINUE C C *** CALCULATE FUNCTION VALUE FOR OUTER LOOP *************************** C C20 FUNCP3 = MOLAL(3)*MOLAL(4)/GHCL/GNH3/A6/A4 - ONE 20 FUNCP3 = MOLAL(1)*MOLAL(4)/GHCL/A6 - ONE C RETURN C C *** END OF FUNCTION FUNCP3 ******************************************* C END C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE CALCP2 C *** CASE P2 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SULRAT > 2.0) ; Rcr+Na >= 2.0 ; Rcr > 2) C 2. SOLID AEROSOL ONLY C 3. SOLIDS POSSIBLE : CaSO4, CA(NO3)2, K2SO4, KNO3, KCL, MGSO4, C MG(NO3)2, MGCL2, NANO3, NACL, NH4NO3, NH4CL C C THERE ARE THREE REGIMES IN THIS CASE: C 1. CACL2(s) POSSIBLE. LIQUID & SOLID AEROSOL (SUBROUTINE CALCL2A) C 2. CACL2(s) NOT POSSIBLE, AND RH < MDRH. SOLID AEROSOL ONLY C 3. CACL2(s) NOT POSSIBLE, AND RH >= MDRH. SOLID & LIQUID AEROSOL C C REGIMES 2. AND 3. ARE CONSIDERED TO BE THE SAME AS CASES P1A, P2B C RESPECTIVELY C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C C SUBROUTINE CALCP2 INCLUDE 'isrpia.inc' EXTERNAL CALCP1A, CALCP3A, CALCP4A, CALCP5A, CALCP6 C C *** FIND DRY COMPOSITION ********************************************** C CALL CALCP1A C C *** REGIME DEPENDS UPON THE POSSIBLE SOLIDS & RH ********************** C IF (CCACL2.GT.TINY) THEN SCASE = 'P2 ; SUBCASE 1' CALL CALCP2A SCASE = 'P2 ; SUBCASE 1' ENDIF C IF (WATER.LE.TINY) THEN IF (RH.LT.DRMP2) THEN ! ONLY SOLIDS WATER = TINY DO 10 I=1,NIONS MOLAL(I) = ZERO 10 CONTINUE CALL CALCP1A SCASE = 'P2 ; SUBCASE 2' ELSE IF (CMGCL2.GT. TINY) THEN SCASE = 'P2 ; SUBCASE 3' ! MDRH (CaSO4, CA(NO3)2, K2SO4, KNO3, KCL, MGSO4, MGCL2, C MG(NO3)2, NANO3, NACL, NH4NO3, NH4CL) CALL CALCMDRH2 (RH, DRMP2, DRMGCL2, CALCP1A, CALCP3A) SCASE = 'P2 ; SUBCASE 3' ENDIF IF (WATER.LE.TINY .AND. RH.GE.DRMP3 .AND. RH.LT.DRMP4) THEN SCASE = 'P2 ; SUBCASE 4' ! MDRH (CaSO4, K2SO4, KNO3, KCL, MGSO4, CANO32, C MG(NO3)2, NANO3, NACL, NH4NO3, NH4CL) CALL CALCMDRH2 (RH, DRMP3, DRCANO32, CALCP1A, CALCP4A) SCASE = 'P2 ; SUBCASE 4' ENDIF IF (WATER.LE.TINY .AND. RH.GE.DRMP4 .AND. RH.LT.DRMP5) THEN SCASE = 'P2 ; SUBCASE 5' ! MDRH (CaSO4, K2SO4, KNO3, KCL, MGSO4, C MGNO32, NANO3, NACL, NH4NO3, NH4CL) CALL CALCMDRH2 (RH, DRMP4, DRMGNO32, CALCP1A, CALCP5A) SCASE = 'P2 ; SUBCASE 5' ENDIF IF (WATER.LE.TINY .AND. RH.GE.DRMP5) THEN SCASE = 'P2 ; SUBCASE 6' ! MDRH (CaSO4, K2SO4, KNO3, KCL, MGSO4, C NANO3, NACL, NH4NO3, NH4CL) CALL CALCMDRH2 (RH, DRMP5, DRNH4NO3, CALCP1A, CALCP6) SCASE = 'P2 ; SUBCASE 6' ELSE WATER = TINY DO 20 I=1,NIONS MOLAL(I) = ZERO 20 CONTINUE CALL CALCP1A SCASE = 'P2 ; SUBCASE 2' ENDIF ENDIF ENDIF C RETURN C C *** END OF SUBROUTINE CALCP2 ****************************************** C END C C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE CALCP2A C *** CASE P2A C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SULRAT > 2.0) ; Rcr+Na >= 2.0 ; Rcr > 2) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : CaSO4, K2SO4, KNO3, MGSO4, KCL, NH4CL, NACL, C NANO3, NH4NO3, MG(NO3)2, CA(NO3)2 C 4. Completely dissolved: CACL2 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCP2A INCLUDE 'isrpia.inc' C COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** SETUP PARAMETERS ************************************************ C CALAOU = .TRUE. CHI11 = MIN (W(2), W(6)) ! CCASO4 FRCA = MAX (W(6) - CHI11, ZERO) FRSO4 = MAX (W(2) - CHI11, ZERO) CHI9 = MIN (FRSO4, 0.5D0*W(7)) ! CK2SO4 FRK = MAX (W(7) - 2.D0*CHI9, ZERO) FRSO4 = MAX (FRSO4 - CHI9, ZERO) CHI10 = FRSO4 ! CMGSO4 FRMG = MAX (W(8) - CHI10, ZERO) CHI7 = MIN (W(1), W(5)) ! CNACL FRNA = MAX (W(1) - CHI7, ZERO) FRCL = MAX (W(5) - CHI7, ZERO) CHI12 = MIN (FRCA, 0.5D0*W(4)) ! CCANO32 FRCA = MAX (FRCA - CHI12, ZERO) FRNO3 = MAX (W(4) - 2.D0*CHI12, ZERO) CHI17 = MIN (FRCA, 0.5D0*FRCL) ! CCACL2 FRCA = MAX (FRCA - CHI17, ZERO) FRCL = MAX (FRCL - 2.D0*CHI17, ZERO) CHI15 = MIN (FRMG, 0.5D0*FRNO3) ! CMGNO32 FRMG = MAX (FRMG - CHI15, ZERO) FRNO3 = MAX (FRNO3 - 2.D0*CHI15, ZERO) CHI16 = MIN (FRMG, 0.5D0*FRCL) ! CMGCL2 FRMG = MAX (FRMG - CHI16, ZERO) FRCL = MAX (FRCL - 2.D0*CHI16, ZERO) CHI8 = MIN (FRNA, FRNO3) ! CNANO3 FRNA = MAX (FRNA - CHI8, ZERO) FRNO3 = MAX (FRNO3 - CHI8, ZERO) CHI14 = MIN (FRK, FRCL) ! CKCL FRK = MAX (FRK - CHI14, ZERO) FRCL = MAX (FRCL - CHI14, ZERO) CHI13 = MIN (FRK, FRNO3) ! CKNO3 FRK = MAX (FRK - CHI13, ZERO) FRNO3 = MAX (FRNO3 - CHI13, ZERO) C CHI5 = FRNO3 ! HNO3(g) CHI6 = FRCL ! HCL(g) CHI4 = W(3) ! NH3(g) C CHI3 = ZERO ! CNH4CL CHI1 = ZERO CHI2 = ZERO C PSI6LO = TINY PSI6HI = CHI6-TINY ! MIN(CHI6-TINY, CHI4) C C *** INITIAL VALUES FOR BISECTION ************************************ C X1 = PSI6LO Y1 = FUNCP2A (X1) IF (ABS(Y1).LE.EPS .OR. CHI6.LE.TINY) GOTO 50 C C *** ROOT TRACKING ; FOR THE RANGE OF HI AND LO ********************** C DX = (PSI6HI-PSI6LO)/FLOAT(NDIV) DO 10 I=1,NDIV X2 = X1+DX Y2 = FUNCP2A (X2) IF (SIGN(1.d0,Y1)*SIGN(1.d0,Y2).LT.ZERO) GOTO 20 ! (Y1*Y2.LT.ZERO) X1 = X2 Y1 = Y2 10 CONTINUE C C *** NO SUBDIVISION WITH SOLUTION; IF ABS(Y2) 2.0) ; Rcr+Na >= 2.0 ; Rcr > 2) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : CaSO4, K2SO4, KNO3, MGSO4, KCL, NH4CL, NACL, C NANO3, NH4NO3, MG(NO3)2, CA(NO3)2, MGCL2 C 4. Completely dissolved: CACL2 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C DOUBLE PRECISION FUNCTION FUNCP2A (X) INCLUDE 'isrpia.inc' C COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** SETUP PARAMETERS ************************************************ C PSI6 = X PSI1 = ZERO PSI2 = ZERO PSI3 = ZERO PSI7 = ZERO PSI8 = ZERO PSI9 = ZERO PSI10 = CHI10 PSI11 = ZERO PSI12 = CHI12 PSI13 = ZERO PSI14 = ZERO PSI15 = CHI15 PSI16 = CHI16 PSI17 = CHI17 FRST = .TRUE. CALAIN = .TRUE. C C *** SOLVE EQUATIONS ; WITH ITERATIONS FOR ACTIVITY COEF. ************ C DO 10 I=1,NSWEEP C A4 = (XK2/XKW)*R*TEMP*(GAMA(10)/GAMA(5))**2.0 A5 = XK4 *R*TEMP*(WATER/GAMA(10))**2.0 A6 = XK3 *R*TEMP*(WATER/GAMA(11))**2.0 A9 = XK17 *(WATER/GAMA(17))**3.0 A13 = XK19 *(WATER/GAMA(19))**2.0 A14 = XK20 *(WATER/GAMA(20))**2.0 A7 = XK8 *(WATER/GAMA(1))**2.0 A8 = XK9 *(WATER/GAMA(3))**2.0 C C CALCULATE DISSOCIATION QUANTITIES C PSI5 = (CHI5-PSI2)*(PSI6 + PSI7 + PSI14 + 2.D0*PSI16 + 2.D0*PSI17) & - A6/A5*(PSI8+2.D0*PSI12+PSI13+2.D0*PSI15)*(CHI6-PSI6-PSI3) PSI5 = PSI5/(A6/A5*(CHI6-PSI6-PSI3) + PSI6 + PSI7 + PSI14 + & 2.D0*PSI16 + 2.D0*PSI17) PSI5 = MIN (MAX (PSI5, TINY) , CHI5) C IF (W(3).GT.TINY .AND. WATER.GT.TINY) THEN ! First try 3rd order soln BB =-(CHI4 + PSI6 + PSI5 + 1.d0/A4) CC = CHI4*(PSI5+PSI6) DD = MAX(BB*BB-4.d0*CC,ZERO) PSI4 =0.5d0*(-BB - SQRT(DD)) PSI4 = MIN(MAX(PSI4,ZERO),CHI4) ELSE PSI4 = TINY ENDIF C IF (CHI13.GT.TINY .AND. WATER.GT.TINY) THEN !KNO3 VHTA = PSI5+PSI8+2.D0*PSI12+2.D0*PSI15+PSI14+2.D0*PSI9 GKAMA = (PSI5+PSI8+2.D0*PSI12+2.D0*PSI15)*(2.D0*PSI9+PSI14)-A13 DELTA = MAX(VHTA*VHTA-4.d0*GKAMA,ZERO) PSI13 = 0.5d0*(-VHTA + SQRT(DELTA)) PSI13 = MIN(MAX(PSI13,ZERO),CHI13) ENDIF C IF (CHI14.GT.TINY .AND. WATER.GT.TINY) THEN !KCL PSI14 = A14/A13*(PSI5+PSI8+2.D0*PSI12+PSI13+2.D0*PSI15) - & PSI6-PSI7-2.D0*PSI16-2.D0*PSI17 PSI14 = MIN (MAX (PSI14, ZERO), CHI14) ENDIF C IF (CHI9.GT.TINY .AND. WATER.GT.TINY) THEN !K2SO4 BBP = PSI10+PSI13+PSI14 CCP = (PSI13+PSI14)*(0.25D0*(PSI13+PSI14)+PSI10) DDP = 0.25D0*(PSI13+PSI14)**2.0*PSI10-A9/4.D0 CALL POLY3 (BBP, CCP, DDP, PSI9, ISLV) IF (ISLV.EQ.0) THEN PSI9 = MIN (MAX(PSI9,ZERO) , CHI9) ELSE PSI9 = ZERO ENDIF ENDIF C IF (CHI7.GT.TINY .AND. WATER.GT.TINY) THEN ! NACL DISSOLUTION VITA = PSI6+PSI14+PSI8+2.D0*PSI16+2.D0*PSI17 GKAMA= PSI8*(2.D0*PSI16+PSI6+PSI14+2.D0*PSI17)-A7 DIAK = MAX(VITA*VITA - 4.0D0*GKAMA,ZERO) PSI7 = 0.5D0*( -VITA + SQRT(DIAK) ) PSI7 = MAX(MIN(PSI7, CHI7), ZERO) ENDIF C IF (CHI8.GT.TINY .AND. WATER.GT.TINY) THEN ! NANO3 DISSOLUTION C VIT = PSI5+PSI13+PSI7+2.D0*PSI12+2.D0*PSI15 C GKAM = PSI7*(2.D0*PSI12+PSI5+PSI13+2.D0*PSI15)-A8 C DIA = MAX(VIT*VIT - 4.0D0*GKAM,ZERO) C PSI8 = 0.5D0*( -VIT + SQRT(DIA) ) PSI8 = A8/A7*(PSI6+PSI7+PSI14+2.D0*PSI16+2.D0*PSI17)- & PSI5-2.D0*PSI12-PSI13-2.D0*PSI15 PSI8 = MAX(MIN(PSI8, CHI8), ZERO) ENDIF C C C *** CALCULATE SPECIATION ******************************************** C MOLAL (2) = PSI8 + PSI7 ! NAI MOLAL (3) = PSI4 ! NH4I MOLAL (4) = PSI6 + PSI7 + PSI14 + 2.D0*PSI16 + 2.D0*PSI17 ! CLI MOLAL (5) = PSI9 + PSI10 ! SO4I MOLAL (6) = ZERO ! HSO4I MOLAL (7) = PSI5 + PSI8 + 2.D0*PSI12 + PSI13 + 2.D0*PSI15 ! NO3I MOLAL (8) = PSI11 + PSI12 + PSI17 ! CAI MOLAL (9) = 2.D0*PSI9 + PSI13 + PSI14 ! KI MOLAL (10)= PSI10 + PSI15 + PSI16 ! MGI C C *** CALCULATE H+ ***************************************************** C C REST = 2.D0*W(2) + W(4) + W(5) CC C DELT1 = 0.0d0 C DELT2 = 0.0d0 C IF (W(1)+W(6)+W(7)+W(8).GT.REST) THEN CC CC *** CALCULATE EQUILIBRIUM CONSTANTS ********************************** CC C ALFA1 = XK26*RH*(WATER/1.0) ! CO2(aq) + H2O C ALFA2 = XK27*(WATER/1.0) ! HCO3- CC C X = W(1)+W(6)+W(7)+W(8) - REST ! EXCESS OF CRUSTALS EQUALS CO2(aq) CC C DIAK = SQRT( (ALFA1)**2.0 + 4.0D0*ALFA1*X) C DELT1 = 0.5*(-ALFA1 + DIAK) C DELT1 = MIN ( MAX (DELT1, ZERO), X) C DELT2 = ALFA2 C DELT2 = MIN ( DELT2, DELT1) C MOLAL(1) = DELT1 + DELT2 ! H+ C ELSE CC CC *** NO EXCESS OF CRUSTALS CALCULATE H+ ******************************* CC SMIN = 2.d0*MOLAL(5)+MOLAL(7)+MOLAL(4)-MOLAL(2)-MOLAL(3) & - MOLAL(9) - 2.D0*MOLAL(10) - 2.D0*MOLAL(8) CALL CALCPH (SMIN, HI, OHI) MOLAL (1) = HI C ENDIF C GNH3 = MAX(CHI4 - PSI4, TINY) GHNO3 = MAX(CHI5 - PSI5, TINY) GHCL = MAX(CHI6 - PSI6, TINY) C C CNH4CL = ZERO C CNH4NO3 = ZERO CNACL = MAX (CHI7 - PSI7, ZERO) CNANO3 = MAX (CHI8 - PSI8, ZERO) CK2SO4 = MAX (CHI9 - PSI9, ZERO) CMGSO4 = ZERO CCASO4 = CHI11 CCANO32 = ZERO CKNO3 = MAX (CHI13 - PSI13, ZERO) CKCL = MAX (CHI14 - PSI14, ZERO) CMGNO32 = ZERO CMGCL2 = ZERO CCACL2 = ZERO C C *** NH4Cl(s) calculations C A3 = XK6 /(R*TEMP*R*TEMP) IF (GNH3*GHCL.GT.A3) THEN DELT = MIN(GNH3, GHCL) BB = -(GNH3+GHCL) CC = GNH3*GHCL-A3 DD = BB*BB - 4.D0*CC PSI31 = 0.5D0*(-BB + SQRT(DD)) PSI32 = 0.5D0*(-BB - SQRT(DD)) IF (DELT-PSI31.GT.ZERO .AND. PSI31.GT.ZERO) THEN PSI3 = PSI31 ELSEIF (DELT-PSI32.GT.ZERO .AND. PSI32.GT.ZERO) THEN PSI3 = PSI32 ELSE PSI3 = ZERO ENDIF ELSE PSI3 = ZERO ENDIF PSI3 = MAX(MIN(MIN(PSI3,CHI4-PSI4),CHI6-PSI6),ZERO) C C *** CALCULATE GAS / SOLID SPECIES (LIQUID IN MOLAL ALREADY) ********* C GNH3 = MAX(GNH3 - PSI3, TINY) GHCL = MAX(GHCL - PSI3, TINY) CNH4CL = PSI3 C C *** NH4NO3(s) calculations C A2 = XK10 /(R*TEMP*R*TEMP) IF (GNH3*GHNO3.GT.A2) THEN DELT = MIN(GNH3, GHNO3) BB = -(GNH3+GHNO3) CC = GNH3*GHNO3-A2 DD = BB*BB - 4.D0*CC PSI21 = 0.5D0*(-BB + SQRT(DD)) PSI22 = 0.5D0*(-BB - SQRT(DD)) IF (DELT-PSI21.GT.ZERO .AND. PSI21.GT.ZERO) THEN PSI2 = PSI21 ELSEIF (DELT-PSI22.GT.ZERO .AND. PSI22.GT.ZERO) THEN PSI2 = PSI22 ELSE PSI2 = ZERO ENDIF ELSE PSI2 = ZERO ENDIF PSI2 = MAX(MIN(MIN(PSI2,CHI4-PSI4-PSI3),CHI5-PSI5),ZERO) C C *** CALCULATE GAS / SOLID SPECIES (LIQUID IN MOLAL ALREADY) ********* C GNH3 = MAX (GNH3 - PSI2, TINY) GHCL = MAX (GHNO3 - PSI2, TINY) CNH4NO3 = PSI2 C CALL CALCMR ! Water content C C *** CALCULATE ACTIVITIES OR TERMINATE INTERNAL LOOP ***************** C IF (FRST.AND.CALAOU .OR. .NOT.FRST.AND.CALAIN) THEN CALL CALCACT ELSE GOTO 20 ENDIF 10 CONTINUE C C *** CALCULATE FUNCTION VALUE FOR OUTER LOOP *************************** C C20 FUNCP2A = MOLAL(3)*MOLAL(4)/GHCL/GNH3/A6/A4 - ONE 20 FUNCP2A = MOLAL(1)*MOLAL(4)/GHCL/A6 - ONE C RETURN C C *** END OF FUNCTION FUNCP2A ******************************************* C END C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE CALCP1 C *** CASE P1 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SULRAT > 2.0) ; Rcr+Na >= 2.0 ; Rcr > 2) C 2. SOLID AEROSOL ONLY C 3. SOLIDS POSSIBLE : CaSO4, CA(NO3)2, CACL2, K2SO4, KNO3, KCL, MGSO4, C MG(NO3)2, MGCL2, NANO3, NACL, NH4NO3, NH4CL C C THERE ARE TWO POSSIBLE REGIMES HERE, DEPENDING ON RELATIVE HUMIDITY: C 1. WHEN RH >= MDRH ; LIQUID PHASE POSSIBLE (MDRH REGION) C 2. WHEN RH < MDRH ; ONLY SOLID PHASE POSSIBLE (SUBROUTINE CALCP1A) C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCP1 INCLUDE 'isrpia.inc' EXTERNAL CALCP1A, CALCP2A C C *** REGIME DEPENDS UPON THE AMBIENT RELATIVE HUMIDITY ***************** C IF (RH.LT.DRMP1) THEN SCASE = 'P1 ; SUBCASE 1' CALL CALCP1A ! SOLID PHASE ONLY POSSIBLE SCASE = 'P1 ; SUBCASE 1' ELSE SCASE = 'P1 ; SUBCASE 2' ! LIQUID & SOLID PHASE POSSIBLE CALL CALCMDRH2 (RH, DRMP1, DRCACL2, CALCP1A, CALCP2A) SCASE = 'P1 ; SUBCASE 2' ENDIF C C RETURN C C *** END OF SUBROUTINE CALCP1 ****************************************** C END C C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE CALCP1A C *** CASE P1A C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SULRAT > 2.0) ; Rcr+Na >= 2.0 ; Rcr > 2) C 2. SOLID AEROSOL ONLY C 3. SOLIDS POSSIBLE : CaSO4, CA(NO3)2, CACL2, K2SO4, KNO3, KCL, MGSO4, C MG(NO3)2, MGCL2, NANO3, NACL, NH4NO3, NH4CL C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= SUBROUTINE CALCP1A INCLUDE 'isrpia.inc' DOUBLE PRECISION LAMDA, LAMDA1, LAMDA2, KAPA, KAPA1, KAPA2, NAFR, & NO3FR C C *** CALCULATE NON VOLATILE SOLIDS *********************************** C CCASO4 = MIN (W(2), W(6)) !SOLID CASO4 CAFR = MAX (W(6) - CCASO4, ZERO) SO4FR = MAX (W(2) - CCASO4, ZERO) CK2SO4 = MIN (SO4FR, 0.5D0*W(7)) !SOLID K2SO4 FRK = MAX (W(7) - 2.D0*CK2SO4, ZERO) SO4FR = MAX (SO4FR - CK2SO4, ZERO) CMGSO4 = SO4FR !SOLID MGSO4 FRMG = MAX (W(8) - CMGSO4, ZERO) CNACL = MIN (W(1), W(5)) !SOLID NACL NAFR = MAX (W(1) - CNACL, ZERO) CLFR = MAX (W(5) - CNACL, ZERO) CCANO32 = MIN (CAFR, 0.5D0*W(4)) !SOLID CA(NO3)2 CAFR = MAX (CAFR - CCANO32, ZERO) NO3FR = MAX (W(4) - 2.D0*CCANO32, ZERO) CCACL2 = MIN (CAFR, 0.5D0*CLFR) !SOLID CACL2 CAFR = MAX (CAFR - CCACL2, ZERO) CLFR = MAX (CLFR - 2.D0*CCACL2, ZERO) CMGNO32 = MIN (FRMG, 0.5D0*NO3FR) !SOLID MG(NO3)2 FRMG = MAX (FRMG - CMGNO32, ZERO) NO3FR = MAX (NO3FR - 2.D0*CMGNO32, ZERO) CMGCL2 = MIN (FRMG, 0.5D0*CLFR) !SOLID MGCL2 FRMG = MAX (FRMG - CMGCL2, ZERO) CLFR = MAX (CLFR - 2.D0*CMGCL2, ZERO) CNANO3 = MIN (NAFR, NO3FR) !SOLID NANO3 NAFR = MAX (NAFR - CNANO3, ZERO) NO3FR = MAX (NO3FR - CNANO3, ZERO) CKCL = MIN (FRK, CLFR) !SOLID KCL FRK = MAX (FRK - CKCL, ZERO) CLFR = MAX (CLFR - CKCL, ZERO) CKNO3 = MIN (FRK, NO3FR) !SOLID KNO3 FRK = MAX (FRK - CKNO3, ZERO) NO3FR = MAX (NO3FR - CKNO3, ZERO) C C *** CALCULATE VOLATILE SPECIES ************************************** C ALF = W(3) ! FREE NH3 BET = CLFR ! FREE CL GAM = NO3FR ! FREE NO3 C RTSQ = R*TEMP*R*TEMP A1 = XK6/RTSQ A2 = XK10/RTSQ C THETA1 = GAM - BET*(A2/A1) THETA2 = A2/A1 C C QUADRATIC EQUATION SOLUTION C BB = (THETA1-ALF-BET*(ONE+THETA2))/(ONE+THETA2) CC = (ALF*BET-A1-BET*THETA1)/(ONE+THETA2) DD = BB*BB - 4.0D0*CC IF (DD.LT.ZERO) GOTO 100 ! Solve each reaction seperately C C TWO ROOTS FOR KAPA, CHECK AND SEE IF ANY VALID C SQDD = SQRT(DD) KAPA1 = 0.5D0*(-BB+SQDD) KAPA2 = 0.5D0*(-BB-SQDD) LAMDA1 = THETA1 + THETA2*KAPA1 LAMDA2 = THETA1 + THETA2*KAPA2 C IF (KAPA1.GE.ZERO .AND. LAMDA1.GE.ZERO) THEN IF (ALF-KAPA1-LAMDA1.GE.ZERO .AND. & BET-KAPA1.GE.ZERO .AND. GAM-LAMDA1.GE.ZERO) THEN KAPA = KAPA1 LAMDA= LAMDA1 GOTO 200 ENDIF ENDIF C IF (KAPA2.GE.ZERO .AND. LAMDA2.GE.ZERO) THEN IF (ALF-KAPA2-LAMDA2.GE.ZERO .AND. & BET-KAPA2.GE.ZERO .AND. GAM-LAMDA2.GE.ZERO) THEN KAPA = KAPA2 LAMDA= LAMDA2 GOTO 200 ENDIF ENDIF C C SEPERATE SOLUTION OF NH4CL & NH4NO3 EQUILIBRIA C 100 KAPA = ZERO LAMDA = ZERO DD1 = (ALF+BET)*(ALF+BET) - 4.0D0*(ALF*BET-A1) DD2 = (ALF+GAM)*(ALF+GAM) - 4.0D0*(ALF*GAM-A2) C C NH4CL EQUILIBRIUM C IF (DD1.GE.ZERO) THEN SQDD1 = SQRT(DD1) KAPA1 = 0.5D0*(ALF+BET + SQDD1) KAPA2 = 0.5D0*(ALF+BET - SQDD1) C IF (KAPA1.GE.ZERO .AND. KAPA1.LE.MIN(ALF,BET)) THEN KAPA = KAPA1 ELSE IF (KAPA2.GE.ZERO .AND. KAPA2.LE.MIN(ALF,BET)) THEN KAPA = KAPA2 ELSE KAPA = ZERO ENDIF ENDIF C C NH4NO3 EQUILIBRIUM C IF (DD2.GE.ZERO) THEN SQDD2 = SQRT(DD2) LAMDA1= 0.5D0*(ALF+GAM + SQDD2) LAMDA2= 0.5D0*(ALF+GAM - SQDD2) C IF (LAMDA1.GE.ZERO .AND. LAMDA1.LE.MIN(ALF,GAM)) THEN LAMDA = LAMDA1 ELSE IF (LAMDA2.GE.ZERO .AND. LAMDA2.LE.MIN(ALF,GAM)) THEN LAMDA = LAMDA2 ELSE LAMDA = ZERO ENDIF ENDIF C C IF BOTH KAPA, LAMDA ARE > 0, THEN APPLY EXISTANCE CRITERION C IF (KAPA.GT.ZERO .AND. LAMDA.GT.ZERO) THEN IF (BET .LT. LAMDA/THETA1) THEN KAPA = ZERO ELSE LAMDA= ZERO ENDIF ENDIF C C *** CALCULATE COMPOSITION OF VOLATILE SPECIES *********************** C 200 CONTINUE CNH4NO3 = LAMDA CNH4CL = KAPA C GNH3 = ALF - KAPA - LAMDA GHNO3 = GAM - LAMDA GHCL = BET - KAPA C RETURN C C *** END OF SUBROUTINE CALCP1A ***************************************** C END C C====================================================================== C C *** ISORROPIA CODE C *** SUBROUTINE CALCL9 C *** CASE L9 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE RICH, NO FREE ACID (1.0 <= SULRAT < 2.0) C 2. SOLID & LIQUID AEROSOL POSSIBLE C 3. SOLIDS POSSIBLE : CASO4 C 4. COMPLETELY DISSOLVED: NH4HSO4, NAHSO4, LC, (NH4)2SO4, KHSO4, MGSO4, NA2SO4, K2SO4 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCL9 INCLUDE 'isrpia.inc' DOUBLE PRECISION LAMDA COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** FIND DRY COMPOSITION ********************************************** C CALL CALCL1A C C *** SETUP PARAMETERS ************************************************ C CHI1 = CNH4HS4 ! Save from CALCL1 run CHI2 = CLC CHI3 = CNAHSO4 CHI4 = CNA2SO4 CHI5 = CNH42S4 CHI6 = CK2SO4 CHI7 = CMGSO4 CHI8 = CKHSO4 C PSI1 = CNH4HS4 ! ASSIGN INITIAL PSI's PSI2 = CLC PSI3 = CNAHSO4 PSI4 = CNA2SO4 PSI5 = CNH42S4 PSI6 = CK2SO4 PSI7 = CMGSO4 PSI8 = CKHSO4 C CALAOU = .TRUE. ! Outer loop activity calculation flag FRST = .TRUE. CALAIN = .TRUE. C C *** SOLVE EQUATIONS ; WITH ITERATIONS FOR ACTIVITY COEF. ************ C DO 10 I=1,NSWEEP C A9 = XK1 *WATER/GAMA(7)*(GAMA(8)/GAMA(7))**2. C C CALCULATE DISSOCIATION QUANTITIES C BB = PSI7 + PSI6 + PSI5 + PSI4 + PSI2 + A9 ! LAMDA CC = -A9*(PSI8 + PSI1 + PSI2 + PSI3) DD = MAX(BB*BB - 4.D0*CC, ZERO) LAMDA= 0.5D0*(-BB + SQRT(DD)) LAMDA= MIN(MAX (LAMDA, TINY), PSI8+PSI3+PSI2+PSI1) C C *** CALCULATE SPECIATION ******************************************** C MOLAL(1) = LAMDA ! HI MOLAL(2) = 2.D0*PSI4 + PSI3 ! NAI MOLAL(3) = 3.D0*PSI2 + 2.D0*PSI5 + PSI1 ! NH4I MOLAL(5) = PSI2 + PSI4 + PSI5 + PSI6 + PSI7 + LAMDA ! SO4I MOLAL(6) = PSI2 + PSI3 + PSI1 + PSI8 - LAMDA ! HSO4I MOLAL(9) = PSI8 + 2.0D0*PSI6 ! KI MOLAL(10)= PSI7 ! MGI C CLC = ZERO CNAHSO4 = ZERO CNA2SO4 = ZERO CNH42S4 = ZERO CNH4HS4 = ZERO CK2SO4 = ZERO CMGSO4 = ZERO CKHSO4 = ZERO C CALL CALCMR ! Water content C C *** CALCULATE ACTIVITIES OR TERMINATE INTERNAL LOOP ***************** C IF (FRST.AND.CALAOU .OR. .NOT.FRST.AND.CALAIN) THEN CALL CALCACT ELSE GOTO 20 ENDIF 10 CONTINUE C 20 RETURN C C *** END OF SUBROUTINE CALCL9 ***************************************** C END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE CALCL8 C *** CASE L8 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE RICH, NO FREE ACID (1.0 <= SULRAT < 2.0) C 2. SOLID & LIQUID AEROSOL POSSIBLE C 3. SOLIDS POSSIBLE : K2SO4, CASO4 C 4. COMPLETELY DISSOLVED: NH4HSO4, NAHSO4, LC, (NH4)2SO4, KHSO4, MGSO4, NA2SO4 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCL8 INCLUDE 'isrpia.inc' DOUBLE PRECISION LAMDA COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** FIND DRY COMPOSITION ********************************************** C CALL CALCL1A C C *** SETUP PARAMETERS ************************************************ C CHI1 = CNH4HS4 ! Save from CALCL1 run CHI2 = CLC CHI3 = CNAHSO4 CHI4 = CNA2SO4 CHI5 = CNH42S4 CHI6 = CK2SO4 CHI7 = CMGSO4 CHI8 = CKHSO4 C PSI1 = CNH4HS4 ! ASSIGN INITIAL PSI's PSI2 = CLC PSI3 = CNAHSO4 PSI4 = CNA2SO4 PSI5 = CNH42S4 PSI6 = ZERO PSI7 = CMGSO4 PSI8 = CKHSO4 C CALAOU = .TRUE. ! Outer loop activity calculation flag PSI6LO = ZERO ! Low limit PSI6HI = CHI6 ! High limit C C *** INITIAL VALUES FOR BISECTION ************************************ C IF (CHI6.LE.TINY) THEN Y1 = FUNCL8 (ZERO) GOTO 50 ENDIF C X1 = PSI6HI Y1 = FUNCL8 (X1) YHI= Y1 ! Save Y-value at HI position C C *** YHI < 0.0 THE SOLUTION IS ALWAYS UNDERSATURATED WITH K2SO4 ********* C IF (ABS(Y1).LE.EPS .OR. YHI.LT.ZERO) GOTO 50 C C *** ROOT TRACKING ; FOR THE RANGE OF HI AND LO ********************** C DX = (PSI6HI-PSI6LO)/FLOAT(NDIV) DO 10 I=1,NDIV X2 = X1-DX Y2 = FUNCL8 (X2) IF (SIGN(1.d0,Y1)*SIGN(1.d0,Y2).LT.ZERO) GOTO 20 ! (Y1*Y2.LT.ZERO) X1 = X2 Y1 = Y2 10 CONTINUE C C *** { YLO, YHI } > 0.0 THE SOLUTION IS ALWAYS SUPERSATURATED WITH K2SO4 C YLO= Y1 ! Save Y-value at Hi position IF (YLO.GT.ZERO .AND. YHI.GT.ZERO) THEN CALL RSTGAMP ! reinitialize activity coefficients (slc.1.2012) Y3 = FUNCL8 (ZERO) GOTO 50 ELSE IF (ABS(Y2) .LT. EPS) THEN ! X2 IS A SOLUTION GOTO 50 ELSE CALL PUSHERR (0001, 'CALCL8') ! WARNING ERROR: NO SOLUTION GOTO 50 ENDIF C *** PERFORM BISECTION *********************************************** C 20 DO 30 I=1,MAXIT X3 = 0.5*(X1+X2) CALL RSTGAMP ! reinitialize activity coefficients (slc.1.2012) Y3 = FUNCL8 (X3) IF (SIGN(1.d0,Y1)*SIGN(1.d0,Y3) .LE. ZERO) THEN ! (Y1*Y3 .LE. ZERO) Y2 = Y3 X2 = X3 ELSE Y1 = Y3 X1 = X3 ENDIF IF (ABS(X2-X1) .LE. EPS*X1) GOTO 40 30 CONTINUE CALL PUSHERR (0002, 'CALCL8') ! WARNING ERROR: NO CONVERGENCE C C *** CONVERGED ; RETURN ********************************************** C 40 X3 = 0.5*(X1+X2) CALL RSTGAMP ! reinitialize activity coefficients (slc.1.2012) Y3 = FUNCL8 (X3) C 50 RETURN C C *** END OF SUBROUTINE CALCL8 ***************************************** C END C C======================================================================= C C *** ISORROPIA CODE II C *** FUNCTION FUNCL8 C *** CASE L8 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE RICH, NO FREE ACID (1.0 <= SULRAT < 2.0) C 2. SOLID & LIQUID AEROSOL POSSIBLE C 3. SOLIDS POSSIBLE : K2SO4, CASO4 C 4. COMPLETELY DISSOLVED: NH4HSO4, NAHSO4, LC, (NH4)2SO4, KHSO4, MGSO4, NA2SO4 C C SOLUTION IS SAVED IN COMMON BLOCK /CASE/ C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C DOUBLE PRECISION FUNCTION FUNCL8 (P6) INCLUDE 'isrpia.inc' DOUBLE PRECISION LAMDA COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** SETUP PARAMETERS ************************************************ C PSI6 = P6 C C *** SETUP PARAMETERS ************************************************ C FRST = .TRUE. CALAIN = .TRUE. C C *** SOLVE EQUATIONS ; WITH ITERATIONS FOR ACTIVITY COEF. ************ C DO 10 I=1,NSWEEP C A9 = XK1*(WATER)*(GAMA(8)**2.0)/(GAMA(7)**3.0) C C CALCULATE DISSOCIATION QUANTITIES C BB = PSI7 + PSI6 + PSI5 + PSI4 + PSI2 + A9 ! LAMDA CC = -A9*(PSI8 + PSI1 + PSI2 + PSI3) DD = BB*BB - 4.D0*CC LAMDA= 0.5D0*(-BB + SQRT(DD)) LAMDA= MIN(MAX (LAMDA, TINY), PSI8+PSI3+PSI2+PSI1) C C *** CALCULATE SPECIATION ******************************************** C MOLAL(1) = LAMDA ! HI MOLAL(2) = 2.D0*PSI4 + PSI3 ! NAI MOLAL(3) = 3.D0*PSI2 + 2.D0*PSI5 + PSI1 ! NH4I MOLAL(5) = PSI2 + PSI4 + PSI5 + PSI6 + PSI7 + LAMDA ! SO4I MOLAL(6) = MAX(PSI2 + PSI3 + PSI1 + PSI8 - LAMDA, TINY) ! HSO4I MOLAL(9) = PSI8 + 2.0*PSI6 ! KI MOLAL(10)= PSI7 ! MGI C CLC = ZERO CNAHSO4 = ZERO CNA2SO4 = ZERO CNH42S4 = ZERO CNH4HS4 = ZERO CK2SO4 = MAX(CHI6 - PSI6, ZERO) CMGSO4 = ZERO CKHSO4 = ZERO CALL CALCMR ! Water content C C *** CALCULATE ACTIVITIES OR TERMINATE INTERNAL LOOP ***************** C IF (FRST.AND.CALAOU .OR. .NOT.FRST.AND.CALAIN) THEN CALL CALCACT ELSE GOTO 20 ENDIF 10 CONTINUE C C *** CALCULATE OBJECTIVE FUNCTION ************************************ C 20 A6 = XK17*(WATER/GAMA(17))**3.0 FUNCL8 = MOLAL(9)*MOLAL(9)*MOLAL(5)/A6 - ONE RETURN C C *** END OF FUNCTION FUNCL8 **************************************** C END C C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE CALCL7 C *** CASE L7 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE RICH, NO FREE ACID (1.0 <= SO4RAT < 2.0) C 2. SOLID & LIQUID AEROSOL POSSIBLE C 3. SOLIDS POSSIBLE : K2SO4, CASO4, NA2SO4 C 4. COMPLETELY DISSOLVED: NH4HSO4, NAHSO4, LC, (NH4)2SO4, KHSO4, MGSO4 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCL7 INCLUDE 'isrpia.inc' DOUBLE PRECISION LAMDA COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** FIND DRY COMPOSITION ********************************************** C CALL CALCL1A C C *** SETUP PARAMETERS ************************************************ C CHI1 = CNH4HS4 ! Save from CALCL1 run CHI2 = CLC CHI3 = CNAHSO4 CHI4 = CNA2SO4 CHI5 = CNH42S4 CHI6 = CK2SO4 CHI7 = CMGSO4 CHI8 = CKHSO4 C PSI1 = CNH4HS4 ! ASSIGN INITIAL PSI's PSI2 = CLC PSI3 = CNAHSO4 PSI4 = ZERO PSI5 = CNH42S4 PSI6 = ZERO PSI7 = CMGSO4 PSI8 = CKHSO4 C CALAOU = .TRUE. ! Outer loop activity calculation flag PSI4LO = ZERO ! Low limit PSI4HI = CHI4 ! High limit C C *** INITIAL VALUES FOR BISECTION ************************************ C IF (CHI4.LE.TINY) THEN Y1 = FUNCL7 (ZERO) GOTO 50 ENDIF C X1 = PSI4HI Y1 = FUNCL7 (X1) YHI= Y1 ! Save Y-value at HI position C C *** YHI < 0.0 THE SOLUTION IS ALWAYS UNDERSATURATED WITH K2SO4 ********* C IF (ABS(Y1).LE.EPS .OR. YHI.LT.ZERO) GOTO 50 C C *** ROOT TRACKING ; FOR THE RANGE OF HI AND LO ********************** C DX = (PSI4HI-PSI4LO)/FLOAT(NDIV) DO 10 I=1,NDIV X2 = X1-DX CALL RSTGAMP ! reinitialize activity coefficients (slc.1.2012) Y2 = FUNCL7 (X2) IF (SIGN(1.d0,Y1)*SIGN(1.d0,Y2).LT.ZERO) GOTO 20 ! (Y1*Y2.LT.ZERO) X1 = X2 Y1 = Y2 10 CONTINUE C C *** { YLO, YHI } > 0.0 THE SOLUTION IS ALWAYS SUPERSATURATED WITH K2SO4 C YLO= Y1 ! Save Y-value at Hi position IF (YLO.GT.ZERO .AND. YHI.GT.ZERO) THEN CALL RSTGAMP ! reinitialize activity coefficients (slc.1.2012) Y3 = FUNCL7 (ZERO) GOTO 50 ELSE IF (ABS(Y2) .LT. EPS) THEN ! X2 IS A SOLUTION GOTO 50 ELSE CALL PUSHERR (0001, 'CALCL7') ! WARNING ERROR: NO SOLUTION GOTO 50 ENDIF C *** PERFORM BISECTION *********************************************** C 20 DO 30 I=1,MAXIT X3 = 0.5*(X1+X2) CALL RSTGAMP ! reinitialize activity coefficients (slc.1.2012) Y3 = FUNCL7 (X3) IF (SIGN(1.d0,Y1)*SIGN(1.d0,Y3) .LE. ZERO) THEN ! (Y1*Y3 .LE. ZERO) Y2 = Y3 X2 = X3 ELSE Y1 = Y3 X1 = X3 ENDIF IF (ABS(X2-X1) .LE. EPS*X1) GOTO 40 30 CONTINUE CALL PUSHERR (0002, 'CALCL7') ! WARNING ERROR: NO CONVERGENCE C C *** CONVERGED ; RETURN ********************************************** C 40 X3 = 0.5*(X1+X2) CALL RSTGAMP ! reinitialize activity coefficients (slc.1.2012) Y3 = FUNCL7 (X3) C 50 RETURN C C *** END OF SUBROUTINE CALCL7 ***************************************** C END C C======================================================================= C C *** ISORROPIA CODE II C *** FUNCTION FUNCL7 C *** CASE L7 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE RICH, NO FREE ACID (1.0 <= SULRAT < 2.0) C 2. SOLID & LIQUID AEROSOL POSSIBLE C 3. SOLIDS POSSIBLE : K2SO4, CASO4, NA2SO4 C 4. COMPLETELY DISSOLVED: NH4HSO4, NAHSO4, LC, (NH4)2SO4, KHSO4, MGSO4 C C SOLUTION IS SAVED IN COMMON BLOCK /CASE/ C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C DOUBLE PRECISION FUNCTION FUNCL7 (P4) INCLUDE 'isrpia.inc' DOUBLE PRECISION LAMDA COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** SETUP PARAMETERS ************************************************ C PSI4 = P4 C C *** SETUP PARAMETERS ************************************************ C FRST = .TRUE. CALAIN = .TRUE. C C *** SOLVE EQUATIONS ; WITH ITERATIONS FOR ACTIVITY COEF. ************ C DO 10 I=1,NSWEEP C A4 = XK5 *(WATER/GAMA(2))**3.0 A6 = XK17*(WATER/GAMA(17))**3.0 A9 = XK1*(WATER)*(GAMA(8)**2.0)/(GAMA(7)**3.0) C C CALCULATE DISSOCIATION QUANTITIES C C PSI6 = 0.5*(SQRT(A6/A4)*(2.D0*PSI4+PSI3)-PSI8) ! PSI6 C PSI6 = MIN (MAX (PSI6, ZERO), CHI6) C IF (CHI6.GT.TINY .AND. WATER.GT.TINY) THEN AA = PSI5+PSI4+PSI2+PSI7+PSI8+LAMDA BB = PSI8*(PSI5+PSI4+PSI2+PSI7+0.25D0*PSI8+LAMDA) CC = 0.25D0*(PSI8*PSI8*(PSI5+PSI4+PSI2+PSI7+LAMDA)-A6) CALL POLY3 (AA, BB, CC, PSI6, ISLV) IF (ISLV.EQ.0) THEN PSI6 = MIN (PSI6, CHI6) ELSE PSI6 = ZERO ENDIF ENDIF C BB = PSI7 + PSI6 + PSI5 + PSI4 + PSI2 + A9 ! LAMDA CC = -A9*(PSI8 + PSI1 + PSI2 + PSI3) DD = BB*BB - 4.D0*CC LAMDA= 0.5D0*(-BB + SQRT(DD)) LAMDA= MIN(MAX (LAMDA, TINY), PSI8+PSI3+PSI2+PSI1) C C C *** CALCULATE SPECIATION ******************************************** C MOLAL(1) = LAMDA ! HI MOLAL(2) = 2.D0*PSI4 + PSI3 ! NAI MOLAL(3) = 3.D0*PSI2 + 2.D0*PSI5 + PSI1 ! NH4I MOLAL(5) = PSI2 + PSI4 + PSI5 + PSI6 + PSI7 + LAMDA ! SO4I MOLAL(6) = MAX(PSI2 + PSI3 + PSI1 + PSI8 - LAMDA, TINY) ! HSO4I MOLAL(9) = PSI8 + 2.0*PSI6 ! KI MOLAL(10)= PSI7 ! MGI C CLC = ZERO CNAHSO4 = ZERO CNA2SO4 = MAX(CHI4 - PSI4, ZERO) CNH42S4 = ZERO CNH4HS4 = ZERO CK2SO4 = MAX(CHI6 - PSI6, ZERO) CMGSO4 = ZERO CKHSO4 = ZERO CALL CALCMR ! Water content C C *** CALCULATE ACTIVITIES OR TERMINATE INTERNAL LOOP ***************** C IF (FRST.AND.CALAOU .OR. .NOT.FRST.AND.CALAIN) THEN CALL CALCACT ELSE GOTO 20 ENDIF 10 CONTINUE C C *** CALCULATE OBJECTIVE FUNCTION ************************************ C 20 A4 = XK5 *(WATER/GAMA(2))**3.0 FUNCL7 = MOLAL(5)*MOLAL(2)*MOLAL(2)/A4 - ONE RETURN C C *** END OF FUNCTION FUNCL7 **************************************** C END C C C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE CALCL6 C *** CASE L6 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE RICH, NO FREE ACID (1.0 <= SO4RAT < 2.0) C 2. SOLID & LIQUID AEROSOL POSSIBLE C 3. SOLIDS POSSIBLE : K2SO4, CASO4, MGSO4, NA2SO4 C 4. COMPLETELY DISSOLVED: NH4HSO4, NAHSO4, LC, (NH4)2SO4, KHSO4 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCL6 INCLUDE 'isrpia.inc' DOUBLE PRECISION LAMDA COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** FIND DRY COMPOSITION ********************************************** C CALL CALCL1A C C *** SETUP PARAMETERS ************************************************ C CHI1 = CNH4HS4 ! Save from CALCL1 run CHI2 = CLC CHI3 = CNAHSO4 CHI4 = CNA2SO4 CHI5 = CNH42S4 CHI6 = CK2SO4 CHI7 = CMGSO4 CHI8 = CKHSO4 C PSI1 = CNH4HS4 ! ASSIGN INITIAL PSI's PSI2 = CLC PSI3 = CNAHSO4 PSI4 = ZERO PSI5 = CNH42S4 PSI6 = ZERO PSI7 = ZERO PSI8 = CKHSO4 C CALAOU = .TRUE. ! Outer loop activity calculation flag PSI4LO = ZERO ! Low limit PSI4HI = CHI4 ! High limit C C *** INITIAL VALUES FOR BISECTION ************************************ C IF (CHI4.LE.TINY) THEN Y1 = FUNCL6 (ZERO) GOTO 50 ENDIF C X1 = PSI4HI Y1 = FUNCL6 (X1) YHI= Y1 ! Save Y-value at HI position C C *** YHI < 0.0 THE SOLUTION IS ALWAYS UNDERSATURATED WITH K2SO4 ********* C IF (ABS(Y1).LE.EPS .OR. YHI.LT.ZERO) GOTO 50 C C *** ROOT TRACKING ; FOR THE RANGE OF HI AND LO ********************** C DX = (PSI4HI-PSI4LO)/FLOAT(NDIV) DO 10 I=1,NDIV X2 = X1-DX CALL RSTGAMP ! reinitialize activity coefficients (slc.1.2012) Y2 = FUNCL6 (X2) IF (SIGN(1.d0,Y1)*SIGN(1.d0,Y2).LT.ZERO) GOTO 20 ! (Y1*Y2.LT.ZERO) X1 = X2 Y1 = Y2 10 CONTINUE C C *** { YLO, YHI } > 0.0 THE SOLUTION IS ALWAYS SUPERSATURATED WITH K2SO4 C YLO= Y1 ! Save Y-value at Hi position IF (YLO.GT.ZERO .AND. YHI.GT.ZERO) THEN CALL RSTGAMP ! reinitialize activity coefficients (slc.1.2012) Y3 = FUNCL6 (ZERO) GOTO 50 ELSE IF (ABS(Y2) .LT. EPS) THEN ! X2 IS A SOLUTION GOTO 50 ELSE CALL PUSHERR (0001, 'CALCL6') ! WARNING ERROR: NO SOLUTION GOTO 50 ENDIF C C *** PERFORM BISECTION *********************************************** C 20 DO 30 I=1,MAXIT X3 = 0.5*(X1+X2) CALL RSTGAMP ! reinitialize activity coefficients (slc.1.2012) Y3 = FUNCL6 (X3) IF (SIGN(1.d0,Y1)*SIGN(1.d0,Y3) .LE. ZERO) THEN ! (Y1*Y3 .LE. ZERO) Y2 = Y3 X2 = X3 ELSE Y1 = Y3 X1 = X3 ENDIF IF (ABS(X2-X1) .LE. EPS*X1) GOTO 40 30 CONTINUE CALL PUSHERR (0002, 'CALCL6') ! WARNING ERROR: NO CONVERGENCE C C *** CONVERGED ; RETURN ********************************************** C 40 X3 = 0.5*(X1+X2) CALL RSTGAMP ! reinitialize activity coefficients (slc.1.2012) Y3 = FUNCL6 (X3) C 50 RETURN C C *** END OF SUBROUTINE CALCL6 ***************************************** C END C C======================================================================= C C *** ISORROPIA CODE II C *** FUNCTION FUNCL6 C *** CASE L6 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE RICH, NO FREE ACID (1.0 <= SULRAT < 2.0) C 2. SOLID & LIQUID AEROSOL POSSIBLE C 3. SOLIDS POSSIBLE : K2SO4, CASO4, MGSO4, NA2SO4 C C SOLUTION IS SAVED IN COMMON BLOCK /CASE/ C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C DOUBLE PRECISION FUNCTION FUNCL6 (P4) INCLUDE 'isrpia.inc' DOUBLE PRECISION LAMDA COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** SETUP PARAMETERS ************************************************ C PSI4 = P4 C C *** SETUP PARAMETERS ************************************************ C FRST = .TRUE. CALAIN = .TRUE. C C *** SOLVE EQUATIONS ; WITH ITERATIONS FOR ACTIVITY COEF. ************ C DO 10 I=1,NSWEEP C A4 = XK5*(WATER/GAMA(2))**3.0 A6 = XK17*(WATER/GAMA(17))**3.0 A9 = XK1*(WATER)*(GAMA(8)**2.0)/(GAMA(7)**3.0) C C CALCULATE DISSOCIATION QUANTITIES C C PSI6 = 0.5*(SQRT(A6/A4)*(2.D0*PSI4+PSI3)-PSI8) ! PSI6 C PSI6 = MIN (MAX (PSI6, ZERO), CHI6) C IF (CHI6.GT.TINY .AND. WATER.GT.TINY) THEN AA = PSI5+PSI4+PSI2+PSI7+PSI8+LAMDA BB = PSI8*(PSI5+PSI4+PSI2+PSI7+0.25D0*PSI8+LAMDA) CC = 0.25D0*(PSI8*PSI8*(PSI5+PSI4+PSI2+PSI7+LAMDA)-A6) CALL POLY3 (AA, BB, CC, PSI6, ISLV) IF (ISLV.EQ.0) THEN PSI6 = MIN (PSI6, CHI6) ELSE PSI6 = ZERO ENDIF ENDIF C PSI7 = CHI7 C BB = PSI7 + PSI6 + PSI5 + PSI4 + PSI2 + A9 ! LAMDA CC = -A9*(PSI8 + PSI1 + PSI2 + PSI3) DD = BB*BB - 4.D0*CC LAMDA= 0.5D0*(-BB + SQRT(DD)) LAMDA= MIN(MAX (LAMDA, TINY), PSI8+PSI3+PSI2+PSI1) C C *** CALCULATE SPECIATION ******************************************** C MOLAL(1) = LAMDA ! HI MOLAL(2) = 2.D0*PSI4 + PSI3 ! NAI MOLAL(3) = 3.D0*PSI2 + 2.D0*PSI5 + PSI1 ! NH4I MOLAL(5) = PSI2 + PSI4 + PSI5 + PSI6 + PSI7 + LAMDA ! SO4I MOLAL(6) = MAX(PSI2 + PSI3 + PSI1 + PSI8 - LAMDA, TINY) ! HSO4I MOLAL(9) = PSI8 + 2.0*PSI6 ! KI MOLAL(10)= PSI7 ! MGI C CLC = ZERO CNAHSO4 = ZERO CNA2SO4 = MAX(CHI4 - PSI4, ZERO) CNH42S4 = ZERO CNH4HS4 = ZERO CK2SO4 = MAX(CHI6 - PSI6, ZERO) CMGSO4 = ZERO CKHSO4 = ZERO CALL CALCMR ! Water content C C *** CALCULATE ACTIVITIES OR TERMINATE INTERNAL LOOP ***************** C IF (FRST.AND.CALAOU .OR. .NOT.FRST.AND.CALAIN) THEN CALL CALCACT ELSE GOTO 20 ENDIF 10 CONTINUE C C *** CALCULATE OBJECTIVE FUNCTION ************************************ C 20 A4 = XK5 *(WATER/GAMA(2))**3.0 FUNCL6 = MOLAL(5)*MOLAL(2)*MOLAL(2)/A4 - ONE RETURN C C *** END OF FUNCTION FUNCL6 **************************************** C END C C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE CALCL5 C *** CASE L5 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE RICH, NO FREE ACID (1.0 <= SO4RAT < 2.0) C 2. SOLID & LIQUID AEROSOL POSSIBLE C 3. SOLIDS POSSIBLE : K2SO4, CASO4, MGSO4, KHSO4, NA2SO4 C 4. COMPLETELY DISSOLVED: NH4HSO4, NAHSO4, LC, (NH4)2SO4 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCL5 INCLUDE 'isrpia.inc' DOUBLE PRECISION LAMDA COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** FIND DRY COMPOSITION ********************************************** C CALL CALCL1A C C *** SETUP PARAMETERS ************************************************ C CHI1 = CNH4HS4 ! Save from CALCL1 run CHI2 = CLC CHI3 = CNAHSO4 CHI4 = CNA2SO4 CHI5 = CNH42S4 CHI6 = CK2SO4 CHI7 = CMGSO4 CHI8 = CKHSO4 C PSI1 = CNH4HS4 ! ASSIGN INITIAL PSI's PSI2 = CLC PSI3 = CNAHSO4 PSI4 = ZERO PSI5 = CNH42S4 PSI6 = ZERO PSI7 = ZERO PSI8 = ZERO C CALAOU = .TRUE. ! Outer loop activity calculation flag PSI4LO = ZERO ! Low limit PSI4HI = CHI4 ! High limit C C *** INITIAL VALUES FOR BISECTION ************************************ C IF (CHI4.LE.TINY) THEN Y1 = FUNCL5 (ZERO) GOTO 50 ENDIF C X1 = PSI4HI Y1 = FUNCL5 (X1) YHI= Y1 ! Save Y-value at HI position C C *** YHI < 0.0 THE SOLUTION IS ALWAYS UNDERSATURATED WITH NA2SO4 ********* C IF (ABS(Y1).LE.EPS .OR. YHI.LT.ZERO) GOTO 50 C C *** ROOT TRACKING ; FOR THE RANGE OF HI AND LO ********************** C DX = (PSI4HI-PSI4LO)/FLOAT(NDIV) DO 10 I=1,NDIV X2 = MAX(X1-DX, PSI4LO) CALL RSTGAMP ! reinitialize activity coefficients (slc.1.2012) Y2 = FUNCL5 (X2) IF (SIGN(1.d0,Y1)*SIGN(1.d0,Y2).LT.ZERO) GOTO 20 ! (Y1*Y2.LT.ZERO) X1 = X2 Y1 = Y2 10 CONTINUE C C *** { YLO, YHI } > 0.0 THE SOLUTION IS ALWAYS SUPERSATURATED WITH NA2SO4 C YLO= Y1 ! Save Y-value at Hi position IF (YLO.GT.ZERO .AND. YHI.GT.ZERO) THEN CALL RSTGAMP ! reinitialize activity coefficients (slc.1.2012) Y3 = FUNCL5 (ZERO) GOTO 50 ELSE IF (ABS(Y2) .LT. EPS) THEN ! X2 IS A SOLUTION GOTO 50 ELSE CALL PUSHERR (0001, 'CALCL5') ! WARNING ERROR: NO SOLUTION GOTO 50 ENDIF C C *** PERFORM BISECTION *********************************************** C 20 DO 30 I=1,MAXIT X3 = 0.5*(X1+X2) CALL RSTGAMP ! reinitialize activity coefficients (slc.1.2012) Y3 = FUNCL5 (X3) IF (SIGN(1.d0,Y1)*SIGN(1.d0,Y3) .LE. ZERO) THEN ! (Y1*Y3 .LE. ZERO) Y2 = Y3 X2 = X3 ELSE Y1 = Y3 X1 = X3 ENDIF IF (ABS(X2-X1) .LE. EPS*X1) GOTO 40 30 CONTINUE CALL PUSHERR (0002, 'CALCL5') ! WARNING ERROR: NO CONVERGENCE C C *** CONVERGED ; RETURN ********************************************** C 40 X3 = 0.5*(X1+X2) CALL RSTGAMP ! reinitialize activity coefficients (slc.1.2012) Y3 = FUNCL5 (X3) C 50 RETURN C C *** END OF SUBROUTINE CALCL5 ***************************************** C END C C======================================================================= C C *** ISORROPIA CODE II C *** FUNCTION FUNCL5 C *** CASE L5 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE RICH, NO FREE ACID (1.0 <= SULRAT < 2.0) C 2. SOLID & LIQUID AEROSOL POSSIBLE C 3. SOLIDS POSSIBLE : K2SO4, CASO4, MGSO4, KHSO4, NA2SO4 C 4. COMPLETELY DISSOLVED: NH4HSO4, NAHSO4, LC, (NH4)2SO4 C C SOLUTION IS SAVED IN COMMON BLOCK /CASE/ C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C DOUBLE PRECISION FUNCTION FUNCL5 (P4) INCLUDE 'isrpia.inc' DOUBLE PRECISION LAMDA COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** SETUP PARAMETERS ************************************************ C PSI4 = P4 C C *** SETUP PARAMETERS ************************************************ C FRST = .TRUE. CALAIN = .TRUE. C C *** SOLVE EQUATIONS ; WITH ITERATIONS FOR ACTIVITY COEF. ************ C DO 10 I=1,NSWEEP C A4 = XK5*(WATER/GAMA(2))**3.0 A6 = XK17*(WATER/GAMA(17))**3.0 A8 = XK18*(WATER/GAMA(18))**2.0 A9 = XK1*(WATER)*(GAMA(8)**2.0)/(GAMA(7)**3.0) C C CALCULATE DISSOCIATION QUANTITIES C C PSI6 = 0.5*(SQRT(A6/A4)*(2.D0*PSI4+PSI3)-PSI8) ! PSI6 C PSI6 = MIN (MAX (PSI6, ZERO), CHI6) C IF (CHI6.GT.TINY .AND. WATER.GT.TINY) THEN AA = PSI5+PSI4+PSI2+PSI7+PSI8+LAMDA BB = PSI8*(PSI5+PSI4+PSI2+PSI7+0.25D0*PSI8+LAMDA) CC = 0.25D0*(PSI8*PSI8*(PSI5+PSI4+PSI2+PSI7+LAMDA)-A6) CALL POLY3 (AA, BB, CC, PSI6, ISLV) IF (ISLV.EQ.0) THEN PSI6 = MIN (PSI6, CHI6) ELSE PSI6 = ZERO ENDIF ENDIF C PSI7 = CHI7 C BB = PSI7 + PSI6 + PSI5 + PSI4 + PSI2 + A9 ! LAMDA CC = -A9*(PSI8 + PSI1 + PSI2 + PSI3) DD = MAX(BB*BB - 4.D0*CC, ZERO) LAMDA= 0.5D0*(-BB + SQRT(DD)) LAMDA= MIN(MAX (LAMDA, TINY), PSI8+PSI3+PSI2+PSI1) C BITA = PSI3 + PSI2 + PSI1 + 2.D0*PSI6 - LAMDA CAMA = 2.D0*PSI6*(PSI3 + PSI2 + PSI1 - LAMDA) - A8 DELT = MAX(BITA*BITA - 4.D0*CAMA, ZERO) PSI8 = 0.5D0*(-BITA + SQRT(DELT)) PSI8 = MIN(MAX (PSI8, ZERO), CHI8) C C *** CALCULATE SPECIATION ******************************************** C MOLAL(1) = LAMDA ! HI MOLAL(2) = 2.D0*PSI4 + PSI3 ! NAI MOLAL(3) = 3.D0*PSI2 + 2.D0*PSI5 + PSI1 ! NH4I MOLAL(5) = PSI2 + PSI4 + PSI5 + PSI6 + PSI7 + LAMDA ! SO4I MOLAL(6) = MAX(PSI2 + PSI3 + PSI1 + PSI8 - LAMDA, TINY) ! HSO4I MOLAL(9) = PSI8 + 2.0D0*PSI6 ! KI MOLAL(10)= PSI7 ! MGI C CLC = ZERO CNAHSO4 = ZERO CNA2SO4 = MAX(CHI4 - PSI4, ZERO) CNH42S4 = ZERO CNH4HS4 = ZERO CK2SO4 = MAX(CHI6 - PSI6, ZERO) CMGSO4 = ZERO CKHSO4 = MAX(CHI8 - PSI8, ZERO) C CALL CALCMR ! Water content C C *** CALCULATE ACTIVITIES OR TERMINATE INTERNAL LOOP ***************** C IF (FRST.AND.CALAOU .OR. .NOT.FRST.AND.CALAIN) THEN CALL CALCACT ELSE GOTO 20 ENDIF 10 CONTINUE C C *** CALCULATE OBJECTIVE FUNCTION ************************************ C 20 A4 = XK5 *(WATER/GAMA(2))**3.0 FUNCL5 = MOLAL(5)*MOLAL(2)*MOLAL(2)/A4 - ONE C RETURN C C *** END OF FUNCTION FUNCL5 **************************************** C END C C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE CALCL4 C *** CASE L4 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE RICH, NO FREE ACID (1.0 <= SO4RAT < 2.0) C 2. SOLID & LIQUID AEROSOL POSSIBLE C 3. SOLIDS POSSIBLE : K2SO4, CASO4, MGSO4, KHSO4, (NH4)2SO4, NA2SO4 C 4. COMPLETELY DISSOLVED: NH4HSO4, NAHSO4, LC C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCL4 INCLUDE 'isrpia.inc' DOUBLE PRECISION LAMDA COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** FIND DRY COMPOSITION ********************************************** C CALL CALCL1A C C *** SETUP PARAMETERS ************************************************ C CHI1 = CNH4HS4 ! Save from CALCL1 run CHI2 = CLC CHI3 = CNAHSO4 CHI4 = CNA2SO4 CHI5 = CNH42S4 CHI6 = CK2SO4 CHI7 = CMGSO4 CHI8 = CKHSO4 C PSI1 = CNH4HS4 ! ASSIGN INITIAL PSI's PSI2 = CLC PSI3 = CNAHSO4 PSI4 = ZERO PSI5 = ZERO PSI6 = ZERO PSI7 = ZERO PSI8 = ZERO C CALAOU = .TRUE. ! Outer loop activity calculation flag PSI4LO = ZERO ! Low limit PSI4HI = CHI4 ! High limit C IF (CHI4.LE.TINY) THEN Y1 = FUNCL4 (ZERO) GOTO 50 ENDIF C C *** INITIAL VALUES FOR BISECTION ************************************ C X1 = PSI4HI Y1 = FUNCL4 (X1) YHI= Y1 ! Save Y-value at HI position C C *** YHI < 0.0 THE SOLUTION IS ALWAYS UNDERSATURATED WITH NA2SO4 ********* C IF (ABS(Y1).LE.EPS .OR. YHI.LT.ZERO) GOTO 50 C C *** ROOT TRACKING ; FOR THE RANGE OF HI AND LO ********************** C DX = (PSI4HI-PSI4LO)/FLOAT(NDIV) DO 10 I=1,NDIV X2 = X1-DX CALL RSTGAMP ! reinitialize activity coefficients (slc.1.2012) Y2 = FUNCL4 (X2) IF (SIGN(1.d0,Y1)*SIGN(1.d0,Y2).LT.ZERO) GOTO 20 ! (Y1*Y2.LT.ZERO) X1 = X2 Y1 = Y2 10 CONTINUE C C *** { YLO, YHI } > 0.0 THE SOLUTION IS ALWAYS SUPERSATURATED WITH NA2SO4 ** C YLO= Y1 ! Save Y-value at Hi position IF (YLO.GT.ZERO .AND. YHI.GT.ZERO) THEN CALL RSTGAMP ! reinitialize activity coefficients (slc.1.2012) Y3 = FUNCL4 (ZERO) GOTO 50 ELSE IF (ABS(Y2) .LT. EPS) THEN ! X2 IS A SOLUTION GOTO 50 ELSE CALL PUSHERR (0001, 'CALCL4') ! WARNING ERROR: NO SOLUTION GOTO 50 ENDIF C C *** PERFORM BISECTION *********************************************** C 20 DO 30 I=1,MAXIT X3 = 0.5*(X1+X2) CALL RSTGAMP ! reinitialize activity coefficients (slc.1.2012) Y3 = FUNCL4 (X3) IF (SIGN(1.d0,Y1)*SIGN(1.d0,Y3) .LE. ZERO) THEN ! (Y1*Y3 .LE. ZERO) Y2 = Y3 X2 = X3 ELSE Y1 = Y3 X1 = X3 ENDIF IF (ABS(X2-X1) .LE. EPS*X1) GOTO 40 30 CONTINUE CALL PUSHERR (0002, 'CALCL4') ! WARNING ERROR: NO CONVERGENCE C C *** CONVERGED ; RETURN ********************************************** C 40 X3 = 0.5*(X1+X2) CALL RSTGAMP ! reinitialize activity coefficients (slc.1.2012) Y3 = FUNCL4 (X3) C 50 RETURN C C *** END OF SUBROUTINE CALCL4 ***************************************** C END C C======================================================================= C C *** ISORROPIA CODE II C *** FUNCTION FUNCL4 C *** CASE L4 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE RICH, NO FREE ACID (1.0 <= SULRAT < 2.0) C 2. SOLID & LIQUID AEROSOL POSSIBLE C 3. SOLIDS POSSIBLE : K2SO4, CASO4, MGSO4, KHSO4, (NH4)2SO4, NA2SO4 C 4. COMPLETELY DISSOLVED: NH4HSO4, NAHSO4, LC C C SOLUTION IS SAVED IN COMMON BLOCK /CASE/ C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C DOUBLE PRECISION FUNCTION FUNCL4 (P4) INCLUDE 'isrpia.inc' DOUBLE PRECISION LAMDA COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** SETUP PARAMETERS ************************************************ C PSI4 = P4 C C *** SETUP PARAMETERS ************************************************ C FRST = .TRUE. CALAIN = .TRUE. C C *** SOLVE EQUATIONS ; WITH ITERATIONS FOR ACTIVITY COEF. ************ C DO 10 I=1,NSWEEP C A4 = XK5*(WATER/GAMA(2))**3.0 A5 = XK7*(WATER/GAMA(4))**3.0 A6 = XK17*(WATER/GAMA(17))**3.0 A8 = XK18*(WATER/GAMA(18))**2.0 A9 = XK1 *WATER/GAMA(7)*(GAMA(8)/GAMA(7))**2.0 C C CALCULATE DISSOCIATION QUANTITIES C PSI5 = (PSI3 + 2.D0*PSI4 - SQRT(A4/A5)*(3.D0*PSI2 + PSI1)) ! psi5 & /2.D0/SQRT(A4/A5) PSI5 = MAX (MIN (PSI5, CHI5), ZERO) C PSI7 = CHI7 C BB = PSI7 + PSI6 + PSI5 + PSI4 + PSI2 + A9 ! LAMDA CC = -A9*(PSI8 + PSI1 + PSI2 + PSI3) DD = MAX(BB*BB - 4.D0*CC, ZERO) LAMDA= 0.5D0*(-BB + SQRT(DD)) LAMDA= MIN(MAX (LAMDA, TINY), PSI8+PSI3+PSI2+PSI1) C C PSI6 = 0.5*(SQRT(A6/A4)*(2.D0*PSI4+PSI3)-PSI8) ! PSI6 C PSI6 = MIN (MAX (PSI6, ZERO), CHI6) C IF (CHI6.GT.TINY .AND. WATER.GT.TINY) THEN AA = PSI5+PSI4+PSI2+PSI7+PSI8+LAMDA BB = PSI8*(PSI5+PSI4+PSI2+PSI7+0.25D0*PSI8+LAMDA) CC = 0.25D0*(PSI8*PSI8*(PSI5+PSI4+PSI2+PSI7+LAMDA)-A6) CALL POLY3 (AA, BB, CC, PSI6, ISLV) IF (ISLV.EQ.0) THEN PSI6 = MIN (PSI6, CHI6) ELSE PSI6 = ZERO ENDIF ENDIF C BITA = PSI3 + PSI2 + PSI1 + 2.D0*PSI6 - LAMDA CAMA = 2.D0*PSI6*(PSI3 + PSI2 + PSI1 - LAMDA) - A8 DELT = MAX(BITA*BITA - 4.D0*CAMA, ZERO) PSI8 = 0.5D0*(-BITA + SQRT(DELT)) PSI8 = MIN(MAX (PSI8, ZERO), CHI8) C C *** CALCULATE SPECIATION ******************************************** C MOLAL(1) = LAMDA ! HI MOLAL(2) = 2.D0*PSI4 + PSI3 ! NAI MOLAL(3) = 3.D0*PSI2 + 2.D0*PSI5 + PSI1 ! NH4I MOLAL(5) = PSI2 + PSI4 + PSI5 + PSI6 + PSI7 + LAMDA ! SO4I MOLAL(6) = MAX(PSI2 + PSI3 + PSI1 + PSI8 - LAMDA, TINY) ! HSO4I MOLAL(9) = PSI8 + 2.0D0*PSI6 ! KI MOLAL(10)= PSI7 ! MGI C CLC = ZERO CNAHSO4 = ZERO CNA2SO4 = MAX(CHI4 - PSI4, ZERO) CNH42S4 = MAX(CHI5 - PSI5, ZERO) CNH4HS4 = ZERO CK2SO4 = MAX(CHI6 - PSI6, ZERO) CMGSO4 = ZERO CKHSO4 = MAX(CHI8 - PSI8, ZERO) CALL CALCMR ! Water content C C *** CALCULATE ACTIVITIES OR TERMINATE INTERNAL LOOP ***************** C IF (FRST.AND.CALAOU .OR. .NOT.FRST.AND.CALAIN) THEN CALL CALCACT ELSE GOTO 20 ENDIF 10 CONTINUE C C *** CALCULATE OBJECTIVE FUNCTION ************************************ C 20 A4 = XK5 *(WATER/GAMA(2))**3.0 FUNCL4 = MOLAL(5)*MOLAL(2)*MOLAL(2)/A4 - ONE RETURN C C *** END OF FUNCTION FUNCL4 **************************************** C END C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE CALCL3 C *** CASE L3 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE RICH, NO FREE ACID (1.0 <= SO4RAT < 2.0) C 2. SOLID & LIQUID AEROSOL POSSIBLE C 3. SOLIDS POSSIBLE : K2SO4, CASO4, MGSO4, KHSO4, NH4HSO4, NAHSO4, (NH4)2SO4, NA2SO4, LC C C THERE ARE THREE REGIMES IN THIS CASE: C 1.(NA,NH4)HSO4(s) POSSIBLE. LIQUID & SOLID AEROSOL (SUBROUTINE CALCI3A) C 2.(NA,NH4)HSO4(s) NOT POSSIBLE, AND RH < MDRH. SOLID AEROSOL ONLY C 3.(NA,NH4)HSO4(s) NOT POSSIBLE, AND RH >= MDRH. SOLID & LIQUID AEROSOL C C REGIMES 2. AND 3. ARE CONSIDERED TO BE THE SAME AS CASES I1A, I2B C RESPECTIVELY C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCL3 INCLUDE 'isrpia.inc' EXTERNAL CALCL1A, CALCL4 C C *** FIND DRY COMPOSITION ********************************************* C CALL CALCL1A C C *** REGIME DEPENDS UPON THE POSSIBLE SOLIDS & RH ********************* C IF (CNH4HS4.GT.TINY .OR. CNAHSO4.GT.TINY) THEN SCASE = 'L3 ; SUBCASE 1' CALL CALCL3A ! FULL SOLUTION SCASE = 'L3 ; SUBCASE 1' ENDIF C IF (WATER.LE.TINY) THEN IF (RH.LT.DRML3) THEN ! SOLID SOLUTION WATER = TINY DO 10 I=1,NIONS MOLAL(I) = ZERO 10 CONTINUE CALL CALCL1A SCASE = 'L3 ; SUBCASE 2' C ELSEIF (RH.GE.DRML3) THEN ! MDRH OF L3 SCASE = 'L3 ; SUBCASE 3' CALL CALCMDRH2 (RH, DRML3, DRLC, CALCL1A, CALCL4) SCASE = 'L3 ; SUBCASE 3' ENDIF ENDIF C RETURN C C *** END OF SUBROUTINE CALCL3 ***************************************** C END C C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE CALCL3A C *** CASE L3 ; SUBCASE 1 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE RICH, NO FREE ACID (1.0 <= SO4RAT < 2.0) C 2. SOLID & LIQUID AEROSOL POSSIBLE C 3. SOLIDS POSSIBLE : K2SO4, CASO4, MGSO4, KHSO4, (NH4)2SO4, NA2SO4, LC C 4. COMPLETELY DISSOLVED: NH4HSO4, NAHSO4 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCL3A INCLUDE 'isrpia.inc' DOUBLE PRECISION LAMDA COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** FIND DRY COMPOSITION ********************************************** C CALL CALCL1A C C *** SETUP PARAMETERS ************************************************ C CHI1 = CNH4HS4 ! Save from CALCL1 run CHI2 = CLC CHI3 = CNAHSO4 CHI4 = CNA2SO4 CHI5 = CNH42S4 CHI6 = CK2SO4 CHI7 = CMGSO4 CHI8 = CKHSO4 C PSI1 = CNH4HS4 ! ASSIGN INITIAL PSI's PSI2 = ZERO PSI3 = CNAHSO4 PSI4 = ZERO PSI5 = ZERO PSI6 = ZERO PSI7 = ZERO PSI8 = ZERO C CALAOU = .TRUE. ! Outer loop activity calculation flag PSI2LO = ZERO ! Low limit PSI2HI = CHI2 ! High limit C C *** INITIAL VALUES FOR BISECTION ************************************ C X1 = PSI2HI Y1 = FUNCL3A (X1) YHI= Y1 ! Save Y-value at HI position C C *** YHI < 0.0 THE SOLUTION IS ALWAYS UNDERSATURATED WITH LC ********* C IF (YHI.LT.EPS) GOTO 50 C C *** ROOT TRACKING ; FOR THE RANGE OF HI AND LO ********************** C DX = (PSI2HI-PSI2LO)/FLOAT(NDIV) DO 10 I=1,NDIV X2 = MAX(X1-DX, PSI2LO) CALL RSTGAMP ! reinitialize activity coefficients (slc.1.2012) Y2 = FUNCL3A (X2) IF (SIGN(1.d0,Y1)*SIGN(1.d0,Y2).LT.ZERO) GOTO 20 ! (Y1*Y2.LT.ZERO) X1 = X2 Y1 = Y2 10 CONTINUE C C *** { YLO, YHI } > 0.0 THE SOLUTION IS ALWAYS SUPERSATURATED WITH LC C IF (Y2.GT.EPS) THEN CALL RSTGAMP ! reinitialize activity coefficients (slc.1.2012) Y2 = FUNCL3A (ZERO) ENDIF GOTO 50 C C *** PERFORM BISECTION *********************************************** C 20 DO 30 I=1,MAXIT X3 = 0.5*(X1+X2) CALL RSTGAMP ! reinitialize activity coefficients (slc.1.2012) Y3 = FUNCL3A (X3) IF (SIGN(1.d0,Y1)*SIGN(1.d0,Y3) .LE. ZERO) THEN ! (Y1*Y3 .LE. ZERO) Y2 = Y3 X2 = X3 ELSE Y1 = Y3 X1 = X3 ENDIF IF (ABS(X2-X1) .LE. EPS*X1) GOTO 40 30 CONTINUE CALL PUSHERR (0002, 'CALCL3A') ! WARNING ERROR: NO CONVERGENCE C C *** CONVERGED ; RETURN ********************************************** C 40 X3 = 0.5*(X1+X2) CALL RSTGAMP ! reinitialize activity coefficients (slc.1.2012) Y3 = FUNCL3A (X3) C 50 RETURN C C *** END OF SUBROUTINE CALCL3A ***************************************** C END C C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE FUNCL3A C *** CASE L3 ; SUBCASE 1 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE RICH, NO FREE ACID (1.0 <= SO4RAT < 2.0) C 2. SOLID & LIQUID AEROSOL POSSIBLE C 3. SOLIDS POSSIBLE : K2SO4, CASO4, MGSO4, KHSO4, (NH4)2SO4, NA2SO4, LC C 4. COMPLETELY DISSOLVED: NH4HSO4, NAHSO4 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C DOUBLE PRECISION FUNCTION FUNCL3A (P2) INCLUDE 'isrpia.inc' DOUBLE PRECISION LAMDA COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** SETUP PARAMETERS ************************************************ C PSI2 = P2 ! Save PSI2 in COMMON BLOCK PSI4LO = ZERO ! Low limit for PSI4 PSI4HI = CHI4 ! High limit for PSI4 C C *** IF NH3 =0, CALL FUNCL3B FOR Y4=0 ******************************** C IF (CHI4.LE.TINY) THEN FUNCL3A = FUNCL3B (ZERO) GOTO 50 ENDIF C C *** INITIAL VALUES FOR BISECTION ************************************ C X1 = PSI4HI Y1 = FUNCL3B (X1) IF (ABS(Y1).LE.EPS) GOTO 50 YHI= Y1 ! Save Y-value at HI position C C *** YHI < 0.0 THE SOLUTION IS ALWAYS UNDERSATURATED WITH NA2SO4 ********* C IF (YHI.LT.ZERO) GOTO 50 C C *** ROOT TRACKING ; FOR THE RANGE OF HI AND LO ********************** C DX = (PSI4HI-PSI4LO)/FLOAT(NDIV) DO 10 I=1,NDIV X2 = MAX(X1-DX, PSI4LO) CALL RSTGAMP ! reinitialize activity coefficients (slc.1.2012) Y2 = FUNCL3B (X2) IF (SIGN(1.d0,Y1)*SIGN(1.d0,Y2).LT.ZERO) GOTO 20 ! (Y1*Y2.LT.ZERO) X1 = X2 Y1 = Y2 10 CONTINUE C C *** { YLO, YHI } > 0.0 THE SOLUTION IS ALWAYS SUPERSATURATED WITH NA2SO4 C IF (Y2.GT.EPS) THEN CALL RSTGAMP ! reinitialize activity coefficients (slc.1.2012) Y2 = FUNCL3B (PSI4LO) ENDIF GOTO 50 C C *** PERFORM BISECTION *********************************************** C 20 DO 30 I=1,MAXIT X3 = 0.5*(X1+X2) CALL RSTGAMP ! reinitialize activity coefficients (slc.1.2012) Y3 = FUNCL3B (X3) IF (SIGN(1.d0,Y1)*SIGN(1.d0,Y3) .LE. ZERO) THEN ! (Y1*Y3 .LE. ZERO) Y2 = Y3 X2 = X3 ELSE Y1 = Y3 X1 = X3 ENDIF IF (ABS(X2-X1) .LE. EPS*X1) GOTO 40 30 CONTINUE CALL PUSHERR (0004, 'FUNCL3A') ! WARNING ERROR: NO CONVERGENCE C C *** INNER LOOP CONVERGED ********************************************** C 40 X3 = 0.5*(X1+X2) CALL RSTGAMP ! reinitialize activity coefficients (slc.1.2012) Y3 = FUNCL3B (X3) C C *** CALCULATE FUNCTION VALUE FOR INTERNAL LOOP *************************** C 50 A2 = XK13*(WATER/GAMA(13))**5.0 FUNCL3A = MOLAL(5)*MOLAL(6)*MOLAL(3)**3.0/A2 - ONE RETURN C C *** END OF FUNCTION FUNCL3A ******************************************* C END C C======================================================================= C C *** ISORROPIA CODE II C *** FUNCTION FUNCL3B C *** CASE L3 ; SUBCASE 2 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE RICH, NO FREE ACID (1.0 <= SULRAT < 2.0) C 2. SOLID & LIQUID AEROSOL POSSIBLE C 3. SOLIDS POSSIBLE : K2SO4, CASO4, MGSO4, KHSO4, (NH4)2SO4, NA2SO4, LC C 4. COMPLETELY DISSOLVED: NH4HSO4, NAHSO4 C C SOLUTION IS SAVED IN COMMON BLOCK /CASE/ C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C DOUBLE PRECISION FUNCTION FUNCL3B (P4) INCLUDE 'isrpia.inc' DOUBLE PRECISION LAMDA COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** SETUP PARAMETERS ************************************************ C PSI4 = P4 C FRST = .TRUE. CALAIN = .TRUE. C C *** SOLVE EQUATIONS ; WITH ITERATIONS FOR ACTIVITY COEF. ************ C DO 10 I=1,NSWEEP C A4 = XK5*(WATER/GAMA(2))**3.0 A5 = XK7*(WATER/GAMA(4))**3.0 A6 = XK17*(WATER/GAMA(17))**3.0 A8 = XK18*(WATER/GAMA(18))**2.0 A9 = XK1*(WATER)*(GAMA(8)**2.0)/(GAMA(7)**3.0) C C CALCULATE DISSOCIATION QUANTITIES C PSI5 = (PSI3 + 2.D0*PSI4 - SQRT(A4/A5)*(3.D0*PSI2 + PSI1)) ! psi5 & /2.D0/SQRT(A4/A5) PSI5 = MAX (MIN (PSI5, CHI5), ZERO) C PSI7 = CHI7 C BB = PSI7 + PSI6 + PSI5 + PSI4 + PSI2 + A9 ! LAMDA CC = -A9*(PSI8 + PSI1 + PSI2 + PSI3) DD = MAX(BB*BB - 4.D0*CC, ZERO) LAMDA= 0.5D0*(-BB + SQRT(DD)) LAMDA= MIN(MAX (LAMDA, TINY), PSI8+PSI3+PSI2+PSI1) C C PSI6 = 0.5*(SQRT(A6/A4)*(2.D0*PSI4+PSI3)-PSI8) ! PSI6 C PSI6 = MIN (MAX (PSI6, ZERO), CHI6) C IF (CHI6.GT.TINY .AND. WATER.GT.TINY) THEN AA = PSI5+PSI4+PSI2+PSI7+PSI8+LAMDA BB = PSI8*(PSI5+PSI4+PSI2+PSI7+0.25D0*PSI8+LAMDA) CC = 0.25D0*(PSI8*PSI8*(PSI5+PSI4+PSI2+PSI7+LAMDA)-A6) CALL POLY3 (AA, BB, CC, PSI6, ISLV) IF (ISLV.EQ.0) THEN PSI6 = MIN (PSI6, CHI6) ELSE PSI6 = ZERO ENDIF ENDIF C BITA = PSI3 + PSI2 + PSI1 + 2.D0*PSI6 - LAMDA CAMA = 2.D0*PSI6*(PSI3 + PSI2 + PSI1 - LAMDA) - A8 DELT = MAX(BITA*BITA - 4.D0*CAMA, ZERO) PSI8 = 0.5D0*(-BITA + SQRT(DELT)) PSI8 = MIN(MAX (PSI8, ZERO), CHI8) C C *** CALCULATE SPECIATION ******************************************** C MOLAL(1) = LAMDA ! HI MOLAL(2) = 2.D0*PSI4 + PSI3 ! NAI MOLAL(3) = 3.D0*PSI2 + 2.D0*PSI5 + PSI1 ! NH4I MOLAL(5) = PSI2 + PSI4 + PSI5 + PSI6 + PSI7 + LAMDA ! SO4I MOLAL(6) = MAX(PSI2 + PSI3 + PSI1 + PSI8 - LAMDA, TINY) ! HSO4I MOLAL(9) = PSI8 + 2.0D0*PSI6 ! KI MOLAL(10)= PSI7 ! MGI C CLC = MAX(CHI2 - PSI2, ZERO) CNAHSO4 = ZERO CNA2SO4 = MAX(CHI4 - PSI4, ZERO) CNH42S4 = MAX(CHI5 - PSI5, ZERO) CNH4HS4 = ZERO CK2SO4 = MAX(CHI6 - PSI6, ZERO) CMGSO4 = MAX(CHI7 - PSI7, ZERO) CKHSO4 = MAX(CHI8 - PSI8, ZERO) CALL CALCMR ! Water content C C *** CALCULATE ACTIVITIES OR TERMINATE INTERNAL LOOP ***************** C IF (FRST.AND.CALAOU .OR. .NOT.FRST.AND.CALAIN) THEN CALL CALCACT ELSE GOTO 20 ENDIF 10 CONTINUE C C *** CALCULATE OBJECTIVE FUNCTION ************************************ C 20 A4 = XK5 *(WATER/GAMA(2))**3.0 FUNCL3B = MOLAL(5)*MOLAL(2)*MOLAL(2)/A4 - ONE RETURN C C *** END OF FUNCTION FUNCL3B **************************************** C END C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE CALCL2 C *** CASE L2 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE RICH, NO FREE ACID (1.0 <= SO4RAT < 2.0) C 2. SOLID & LIQUID AEROSOL POSSIBLE C 3. SOLIDS POSSIBLE : K2SO4, CASO4, MGSO4, KHSO4, NH4HSO4, NAHSO4, (NH4)2SO4, NA2SO4, LC C C THERE ARE THREE REGIMES IN THIS CASE: C 1. NH4HSO4(s) POSSIBLE. LIQUID & SOLID AEROSOL (SUBROUTINE CALCL2A) C 2. NH4HSO4(s) NOT POSSIBLE, AND RH < MDRH. SOLID AEROSOL ONLY C 3. NH4HSO4(s) NOT POSSIBLE, AND RH >= MDRH. SOLID & LIQUID AEROSOL C C REGIMES 2. AND 3. ARE CONSIDERED TO BE THE SAME AS CASES L1A, L2B C RESPECTIVELY C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCL2 INCLUDE 'isrpia.inc' EXTERNAL CALCL1A, CALCL3A C C *** FIND DRY COMPOSITION ********************************************** C CALL CALCL1A C C *** REGIME DEPENDS UPON THE POSSIBLE SOLIDS & RH ********************** C IF (CNH4HS4.GT.TINY) THEN SCASE = 'L2 ; SUBCASE 1' CALL CALCL2A SCASE = 'L2 ; SUBCASE 1' ENDIF C IF (WATER.LE.TINY) THEN IF (RH.LT.DRML2) THEN ! SOLID SOLUTION ONLY WATER = TINY DO 10 I=1,NIONS MOLAL(I) = ZERO 10 CONTINUE CALL CALCL1A SCASE = 'L2 ; SUBCASE 2' C ELSEIF (RH.GE.DRML2) THEN ! MDRH OF L2 SCASE = 'L2 ; SUBCASE 3' CALL CALCMDRH2 (RH, DRML2, DRNAHSO4, CALCL1A, CALCL3A) SCASE = 'L2 ; SUBCASE 3' ENDIF ENDIF C RETURN C C *** END OF SUBROUTINE CALCL2 ****************************************** C END C C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE CALCL2A C *** CASE L2 ; SUBCASE 1 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE RICH, NO FREE ACID (1.0 <= SO4RAT < 2.0) C 2. SOLID & LIQUID AEROSOL POSSIBLE C 3. SOLIDS POSSIBLE : K2SO4, CASO4, MGSO4, KHSO4, NAHSO4, (NH4)2SO4, NA2SO4, LC C 4. COMPLETELY DISSOLVED: NH4HSO4 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCL2A INCLUDE 'isrpia.inc' DOUBLE PRECISION LAMDA COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** SETUP PARAMETERS ************************************************ C CHI1 = CNH4HS4 ! Save from CALCL1 run CHI2 = CLC CHI3 = CNAHSO4 CHI4 = CNA2SO4 CHI5 = CNH42S4 CHI6 = CK2SO4 CHI7 = CMGSO4 CHI8 = CKHSO4 C PSI1 = CNH4HS4 ! ASSIGN INITIAL PSI's PSI2 = ZERO PSI3 = ZERO PSI4 = ZERO PSI5 = ZERO PSI6 = ZERO PSI7 = ZERO PSI8 = ZERO C CALAOU = .TRUE. ! Outer loop activity calculation flag PSI2LO = ZERO ! Low limit PSI2HI = CHI2 ! High limit C C *** INITIAL VALUES FOR BISECTION ************************************ C X1 = PSI2HI Y1 = FUNCL2A (X1) YHI= Y1 ! Save Y-value at HI position C C *** YHI < 0.0 THE SOLUTION IS ALWAYS UNDERSATURATED WITH NA2SO4 ********* C IF (YHI.LT.EPS) GOTO 50 C C *** ROOT TRACKING ; FOR THE RANGE OF HI AND LO ********************** C DX = (PSI2HI-PSI2LO)/FLOAT(NDIV) DO 10 I=1,NDIV X2 = MAX(X1-DX, PSI2LO) CALL RSTGAMP ! reinitialize activity coefficients (slc.1.2012) Y2 = FUNCL2A (X2) IF (SIGN(1.d0,Y1)*SIGN(1.d0,Y2).LT.ZERO) GOTO 20 ! (Y1*Y2.LT.ZERO) X1 = X2 Y1 = Y2 10 CONTINUE C C *** { YLO, YHI } > 0.0 THE SOLUTION IS ALWAYS SUPERSATURATED WITH NA2SO4 C IF (Y2.GT.EPS) THEN CALL RSTGAMP ! reinitialize activity coefficients (slc.1.2012) Y2 = FUNCL2A (ZERO) ENDIF GOTO 50 C C *** PERFORM BISECTION *********************************************** C 20 DO 30 I=1,MAXIT X3 = 0.5*(X1+X2) CALL RSTGAMP ! reinitialize activity coefficients (slc.1.2012) Y3 = FUNCL2A (X3) IF (SIGN(1.d0,Y1)*SIGN(1.d0,Y3) .LE. ZERO) THEN ! (Y1*Y3 .LE. ZERO) Y2 = Y3 X2 = X3 ELSE Y1 = Y3 X1 = X3 ENDIF IF (ABS(X2-X1) .LE. EPS*X1) GOTO 40 30 CONTINUE CALL PUSHERR (0002, 'CALCL2A') ! WARNING ERROR: NO CONVERGENCE C C *** CONVERGED ; RETURN ********************************************** C 40 X3 = 0.5*(X1+X2) CALL RSTGAMP ! reinitialize activity coefficients (slc.1.2012) Y3 = FUNCL2A (X3) C 50 RETURN C C *** END OF SUBROUTINE CALCL2A ***************************************** C END C C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE FUNCL2A C *** CASE L2 ; SUBCASE 1 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE RICH, NO FREE ACID (1.0 <= SO4RAT < 2.0) C 2. SOLID & LIQUID AEROSOL POSSIBLE C 3. SOLIDS POSSIBLE : K2SO4, CASO4, MGSO4, KHSO4, NAHSO4, (NH4)2SO4, NA2SO4, LC C 4. COMPLETELY DISSOLVED: NH4HSO4 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C DOUBLE PRECISION FUNCTION FUNCL2A (P2) INCLUDE 'isrpia.inc' DOUBLE PRECISION LAMDA COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** SETUP PARAMETERS ************************************************ C PSI2 = P2 ! Save PSI3 in COMMON BLOCK PSI4LO = ZERO ! Low limit for PSI4 PSI4HI = CHI4 ! High limit for PSI4 C C *** IF NH3 =0, CALL FUNCL3B FOR Y4=0 ******************************** C IF (CHI4.LE.TINY) THEN FUNCL2A = FUNCL2B (ZERO) GOTO 50 ENDIF C C *** INITIAL VALUES FOR BISECTION ************************************ C X1 = PSI4HI Y1 = FUNCL2B (X1) IF (ABS(Y1).LE.EPS) GOTO 50 YHI= Y1 ! Save Y-value at HI position C C *** YHI < 0.0 THE SOLUTION IS ALWAYS UNDERSATURATED WITH LC ********* C IF (YHI.LT.ZERO) GOTO 50 C C *** ROOT TRACKING ; FOR THE RANGE OF HI AND LO ********************** C DX = (PSI4HI-PSI4LO)/FLOAT(NDIV) DO 10 I=1,NDIV X2 = MAX(X1-DX, PSI4LO) CALL RSTGAMP ! reinitialize activity coefficients (slc.1.2012) Y2 = FUNCL2B (X2) IF (SIGN(1.d0,Y1)*SIGN(1.d0,Y2).LT.ZERO) GOTO 20 ! (Y1*Y2.LT.ZERO) X1 = X2 Y1 = Y2 10 CONTINUE C C *** { YLO, YHI } > 0.0 THE SOLUTION IS ALWAYS SUPERSATURATED WITH LC C IF (Y2.GT.EPS) THEN CALL RSTGAMP ! reinitialize activity coefficients (slc.1.2012) Y2 = FUNCL2B (PSI4LO) ENDIF GOTO 50 C C *** PERFORM BISECTION *********************************************** C 20 DO 30 I=1,MAXIT X3 = 0.5*(X1+X2) CALL RSTGAMP ! reinitialize activity coefficients (slc.1.2012) Y3 = FUNCL2B (X3) IF (SIGN(1.d0,Y1)*SIGN(1.d0,Y3) .LE. ZERO) THEN ! (Y1*Y3 .LE. ZERO) Y2 = Y3 X2 = X3 ELSE Y1 = Y3 X1 = X3 ENDIF IF (ABS(X2-X1) .LE. EPS*X1) GOTO 40 30 CONTINUE CALL PUSHERR (0004, 'FUNCL2A') ! WARNING ERROR: NO CONVERGENCE C C *** INNER LOOP CONVERGED ********************************************** C 40 X3 = 0.5*(X1+X2) CALL RSTGAMP ! reinitialize activity coefficients (slc.1.2012) Y3 = FUNCL2B (X3) C C *** CALCULATE FUNCTION VALUE FOR OUTER LOOP *************************** C 50 A2 = XK13*(WATER/GAMA(13))**5.0 FUNCL2A = MOLAL(5)*MOLAL(6)*MOLAL(3)**3.0/A2 - ONE RETURN C C *** END OF FUNCTION FUNCL2A ******************************************* C END C C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE FUNCL2B C *** CASE L2 ; SUBCASE 2 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE RICH, NO FREE ACID (1.0 <= SO4RAT < 2.0) C 2. SOLID & LIQUID AEROSOL POSSIBLE C 3. SOLIDS POSSIBLE : K2SO4, CASO4, MGSO4, KHSO4, NAHSO4, (NH4)2SO4, NA2SO4, LC C 4. COMPLETELY DISSOLVED: NH4HSO4 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C DOUBLE PRECISION FUNCTION FUNCL2B (P4) INCLUDE 'isrpia.inc' DOUBLE PRECISION LAMDA COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** SETUP PARAMETERS ************************************************ C PSI4 = P4 ! Save PSI4 in COMMON BLOCK C C *** SETUP PARAMETERS ************************************************ C FRST = .TRUE. CALAIN = .TRUE. PSI3 = CHI3 PSI5 = CHI5 LAMDA = ZERO PSI6 = CHI6 PSI8 = CHI8 C C *** SOLVE EQUATIONS ; WITH ITERATIONS FOR ACTIVITY COEF. ************ C DO 10 I=1,NSWEEP C A3 = XK11*(WATER/GAMA(12))**2.0 A4 = XK5*(WATER/GAMA(2))**3.0 A5 = XK7*(WATER/GAMA(4))**3.0 A6 = XK17*(WATER/GAMA(17))**3.0 A8 = XK18*(WATER/GAMA(18))**2.0 A9 = XK1*(WATER)*(GAMA(8)**2.0)/(GAMA(7)**3.0) C C CALCULATE DISSOCIATION QUANTITIES C PSI5 = (PSI3 + 2.D0*PSI4 - SQRT(A4/A5)*(3.D0*PSI2 + PSI1)) ! psi5 & /2.D0/SQRT(A4/A5) PSI5 = MAX (MIN (PSI5, CHI5), ZERO) C IF (CHI3.GT.TINY .AND. WATER.GT.TINY) THEN AA = 2.D0*PSI4 + PSI2 + PSI1 + PSI8 - LAMDA BB = 2.D0*PSI4*(PSI2 + PSI1 + PSI8 - LAMDA) - A3 CC = ZERO CALL POLY3 (AA, BB, CC, PSI3, ISLV) IF (ISLV.EQ.0) THEN PSI3 = MIN (PSI3, CHI3) ELSE PSI3 = ZERO ENDIF ENDIF C PSI7 = CHI7 C BB = PSI7 + PSI6 + PSI5 + PSI4 + PSI2 + A9 ! LAMDA CC = -A9*(PSI8 + PSI1 + PSI2 + PSI3) DD = MAX(BB*BB - 4.D0*CC, ZERO) LAMDA= 0.5D0*(-BB + SQRT(DD)) LAMDA= MIN(MAX (LAMDA, TINY), PSI8+PSI3+PSI2+PSI1) C C PSI6 = 0.5*(SQRT(A6/A4)*(2.D0*PSI4+PSI3)-PSI8) ! PSI6 C PSI6 = MIN (MAX (PSI6, ZERO), CHI6) C IF (CHI6.GT.TINY .AND. WATER.GT.TINY) THEN AA = PSI5+PSI4+PSI2+PSI7+PSI8+LAMDA BB = PSI8*(PSI5+PSI4+PSI2+PSI7+0.25D0*PSI8+LAMDA) CC = 0.25D0*(PSI8*PSI8*(PSI5+PSI4+PSI2+PSI7+LAMDA)-A6) CALL POLY3 (AA, BB, CC, PSI6, ISLV) IF (ISLV.EQ.0) THEN PSI6 = MIN (PSI6, CHI6) ELSE PSI6 = ZERO ENDIF ENDIF C BITA = PSI3 + PSI2 + PSI1 + 2.D0*PSI6 - LAMDA ! PSI8 CAMA = 2.D0*PSI6*(PSI3 + PSI2 + PSI1 - LAMDA) - A8 DELT = MAX(BITA*BITA - 4.D0*CAMA, ZERO) PSI8 = 0.5D0*(-BITA + SQRT(DELT)) PSI8 = MIN(MAX (PSI8, ZERO), CHI8) C C *** CALCULATE SPECIATION ******************************************** C MOLAL(1) = LAMDA ! HI MOLAL(2) = 2.D0*PSI4 + PSI3 ! NAI MOLAL(3) = 3.D0*PSI2 + 2.D0*PSI5 + PSI1 ! NH4I MOLAL(5) = PSI2 + PSI4 + PSI5 + PSI6 + PSI7 + LAMDA ! SO4I MOLAL(6) = MAX(PSI2 + PSI3 + PSI1 + PSI8 - LAMDA, TINY) ! HSO4I MOLAL(9) = PSI8 + 2.0D0*PSI6 ! KI MOLAL(10)= PSI7 ! MGI C CLC = MAX(CHI2 - PSI2, ZERO) CNAHSO4 = MAX(CHI3 - PSI3, ZERO) CNA2SO4 = MAX(CHI4 - PSI4, ZERO) CNH42S4 = MAX(CHI5 - PSI5, ZERO) CNH4HS4 = ZERO CK2SO4 = MAX(CHI6 - PSI6, ZERO) CMGSO4 = MAX(CHI7 - PSI7, ZERO) CKHSO4 = MAX(CHI8 - PSI8, ZERO) CALL CALCMR ! Water content C C *** CALCULATE ACTIVITIES OR TERMINATE INTERNAL LOOP ***************** C IF (FRST.AND.CALAOU .OR. .NOT.FRST.AND.CALAIN) THEN CALL CALCACT ELSE GOTO 20 ENDIF 10 CONTINUE C C *** CALCULATE OBJECTIVE FUNCTION ************************************ C 20 A4 = XK5 *(WATER/GAMA(2))**3.0 FUNCL2B = MOLAL(5)*MOLAL(2)*MOLAL(2)/A4 - ONE RETURN C C *** END OF FUNCTION FUNCL2B **************************************** C END C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE CALCL1 C *** CASE L1 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE RICH, NO FREE ACID (1.0 <= SO4RAT < 2.0) C 2. SOLID & LIQUID AEROSOL POSSIBLE C 3. SOLIDS POSSIBLE : K2SO4, CASO4, MGSO4, KHSO4, NH4HSO4, NAHSO4, (NH4)2SO4, NA2SO4, LC C C THERE ARE TWO POSSIBLE REGIMES HERE, DEPENDING ON RELATIVE HUMIDITY: C 1. WHEN RH >= MDRH ; LIQUID PHASE POSSIBLE (MDRH REGION) C 2. WHEN RH < MDRH ; ONLY SOLID PHASE POSSIBLE (SUBROUTINE CALCI1A) C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCL1 INCLUDE 'isrpia.inc' EXTERNAL CALCL1A, CALCL2A C C *** REGIME DEPENDS UPON THE AMBIENT RELATIVE HUMIDITY ***************** C IF (RH.LT.DRML1) THEN SCASE = 'L1 ; SUBCASE 1' CALL CALCL1A ! SOLID PHASE ONLY POSSIBLE SCASE = 'L1 ; SUBCASE 1' ELSE SCASE = 'L1 ; SUBCASE 2' ! LIQUID & SOLID PHASE POSSIBLE CALL CALCMDRH2 (RH, DRML1, DRNH4HS4, CALCL1A, CALCL2A) SCASE = 'L1 ; SUBCASE 2' ENDIF C C *** AMMONIA IN GAS PHASE ********************************************** C C CALL CALCNH3 C RETURN C C *** END OF SUBROUTINE CALCL1 ****************************************** C END C C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE CALCL1A C *** CASE L1A C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE RICH, NO FREE ACID (1.0 <= SO4RAT < 2.0) C 2. SOLID AEROSOL ONLY C 3. SOLIDS POSSIBLE : K2SO4, CASO4, MGSO4, KHSO4, NH4HSO4, NAHSO4, (NH4)2SO4, NA2SO4, LC C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCL1A INCLUDE 'isrpia.inc' C C *** CALCULATE NON VOLATILE SOLIDS *********************************** C CCASO4 = MIN (W(6), W(2)) ! CCASO4 FRSO4 = MAX(W(2) - CCASO4, ZERO) CAFR = MAX(W(6) - CCASO4, ZERO) CK2SO4 = MIN (0.5D0*W(7), FRSO4) ! CK2SO4 FRK = MAX(W(7) - 2.D0*CK2SO4, ZERO) FRSO4 = MAX(FRSO4 - CK2SO4, ZERO) CNA2SO4 = MIN (0.5D0*W(1), FRSO4) ! CNA2SO4 FRNA = MAX(W(1) - 2.D0*CNA2SO4, ZERO) FRSO4 = MAX(FRSO4 - CNA2SO4, ZERO) CMGSO4 = MIN (W(8), FRSO4) ! CMGSO4 FRMG = MAX(W(8) - CMGSO4, ZERO) FRSO4 = MAX(FRSO4 - CMGSO4, ZERO) C CNH4HS4 = ZERO CNAHSO4 = ZERO CNH42S4 = ZERO CKHSO4 = ZERO C CLC = MIN(W(3)/3.D0, FRSO4/2.D0) FRSO4 = MAX(FRSO4-2.D0*CLC, ZERO) FRNH4 = MAX(W(3)-3.D0*CLC, ZERO) C IF (FRSO4.LE.TINY) THEN CLC = MAX(CLC - FRNH4, ZERO) CNH42S4 = 2.D0*FRNH4 ELSEIF (FRNH4.LE.TINY) THEN CNH4HS4 = 3.D0*MIN(FRSO4, CLC) CLC = MAX(CLC-FRSO4, ZERO) C IF (CK2SO4.GT.TINY) THEN C FRSO4 = MAX(FRSO4-CNH4HS4/3.D0, ZERO) C CKHSO4 = 2.D0*FRSO4 C CK2SO4 = MAX(CK2SO4-FRSO4, ZERO) C ENDIF C IF (CNA2SO4.GT.TINY) THEN C FRSO4 = MAX(FRSO4-CKHSO4/2.D0, ZERO) C CNAHSO4 = 2.D0*FRSO4 C CNA2SO4 = MAX(CNA2SO4-FRSO4, ZERO) C ENDIF C IF (CNA2SO4.GT.TINY) THEN FRSO4 = MAX(FRSO4-CNH4HS4/3.D0, ZERO) CNAHSO4 = 2.D0*FRSO4 CNA2SO4 = MAX(CNA2SO4-FRSO4, ZERO) ENDIF IF (CK2SO4.GT.TINY) THEN FRSO4 = MAX(FRSO4-CNH4HS4/3.D0, ZERO) CKHSO4 = 2.D0*FRSO4 CK2SO4 = MAX(CK2SO4-FRSO4, ZERO) ENDIF ENDIF C C *** CALCULATE GAS SPECIES ******************************************** C GHNO3 = W(4) GHCL = W(5) GNH3 = ZERO C RETURN C C *** END OF SUBROUTINE CALCL1A ***************************************** C END C C C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE CALCK4 C *** CASE K4 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE SUPER RICH, FREE ACID (SO4RAT < 1.0) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : CASO4 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCK4 INCLUDE 'isrpia.inc' C DOUBLE PRECISION LAMDA, KAPA COMMON /CASEK/ CHI1,CHI2,CHI3,CHI4,LAMDA,KAPA,PSI1,PSI2,PSI3, & A1, A2, A3, A4 C C *** SETUP PARAMETERS ************************************************ C CALAOU =.TRUE. ! Outer loop activity calculation flag FRST = .TRUE. CALAIN = .TRUE. C CHI1 = W(3) ! Total NH4 initially as NH4HSO4 CHI2 = W(1) ! Total NA initially as NaHSO4 CHI3 = W(7) ! Total K initially as KHSO4 CHI4 = W(8) ! Total Mg initially as MgSO4 C LAMDA = MAX(W(2) - W(3) - W(1) - W(6) - W(7) - W(8), TINY) ! FREE H2SO4 PSI1 = CHI1 ! ALL NH4HSO4 DELIQUESCED PSI2 = CHI2 ! ALL NaHSO4 DELIQUESCED PSI3 = CHI3 ! ALL KHSO4 DELIQUESCED PSI4 = CHI4 ! ALL MgSO4 DELIQUESCED C C *** SOLVE EQUATIONS ; WITH ITERATIONS FOR ACTIVITY COEF. ************ C DO 10 I=1,NSWEEP C A4 = XK1 *WATER/GAMA(7)*(GAMA(8)/GAMA(7))**2.0 C BB = A4+LAMDA+PSI4 ! KAPA CC =-A4*(LAMDA + PSI3 + PSI2 + PSI1) + LAMDA*PSI4 DD = MAX(BB*BB-4.D0*CC, ZERO) KAPA = 0.5D0*(-BB+SQRT(DD)) C C *** SAVE CONCENTRATIONS IN MOLAL ARRAY ****************************** C MOLAL (1) = MAX(LAMDA + KAPA, TINY) ! HI MOLAL (2) = PSI2 ! NAI MOLAL (3) = PSI1 ! NH4I MOLAL (5) = MAX(KAPA + PSI4, ZERO) ! SO4I MOLAL (6) = MAX(LAMDA + PSI1 + PSI2 + PSI3 - KAPA, ZERO) ! HSO4I MOLAL (9) = PSI3 ! KI MOLAL (10)= PSI4 ! MGI C CNH4HS4 = ZERO CNAHSO4 = ZERO CKHSO4 = ZERO CCASO4 = W(6) CMGSO4 = ZERO C CALL CALCMR ! Water content C C *** CALCULATE ACTIVITIES OR TERMINATE INTERNAL LOOP ***************** C IF (FRST.AND.CALAOU .OR. .NOT.FRST.AND.CALAIN) THEN CALL CALCACT ELSE GOTO 20 ENDIF 10 CONTINUE C 20 RETURN C C *** END OF SUBROUTINE CALCK4 C END C C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE CALCK3 C *** CASE K3 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE SUPER RICH, FREE ACID (SO4RAT < 1.0) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : KHSO4, CASO4 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCK3 INCLUDE 'isrpia.inc' C DOUBLE PRECISION LAMDA, KAPA COMMON /CASEK/ CHI1,CHI2,CHI3,CHI4,LAMDA,KAPA,PSI1,PSI2,PSI3, & A1, A2, A3, A4 C C *** SETUP PARAMETERS ************************************************ C CALAOU =.TRUE. ! Outer loop activity calculation flag CHI1 = W(3) ! Total NH4 initially as NH4HSO4 CHI2 = W(1) ! Total NA initially as NaHSO4 CHI3 = W(7) ! Total K initially as KHSO4 CHI4 = W(8) ! Total Mg initially as MgSO4 C PSI3LO = TINY ! Low limit PSI3HI = CHI3 ! High limit C C *** INITIAL VALUES FOR BISECTION ************************************ C X1 = PSI3HI Y1 = FUNCK3 (X1) YHI= Y1 ! Save Y-value at HI position C C *** YHI < 0.0 THE SOLUTION IS ALWAYS UNDERSATURATED WITH KHSO4 **** C IF (ABS(Y1).LE.EPS .OR. YHI.LT.ZERO) GOTO 50 C C *** ROOT TRACKING ; FOR THE RANGE OF HI AND LO ********************** C DX = (PSI3HI-PSI3LO)/FLOAT(NDIV) DO 10 I=1,NDIV X2 = X1-DX CALL RSTGAMP ! reinitialize activity coefficients (slc.1.2012) Y2 = FUNCK3 (X2) IF (SIGN(1.d0,Y1)*SIGN(1.d0,Y2).LT.ZERO) GOTO 20 ! (Y1*Y2.LT.ZERO) X1 = X2 Y1 = Y2 10 CONTINUE C C *** { YLO, YHI } > 0.0 THE SOLUTION IS ALWAYS SUPERSATURATED WITH KHSO4 C YLO= Y1 ! Save Y-value at Hi position IF (YLO.GT.ZERO .AND. YHI.GT.ZERO) THEN CALL RSTGAMP ! reinitialize activity coefficients (slc.1.2012) Y3 = FUNCK3 (ZERO) GOTO 50 ELSE IF (ABS(Y2) .LT. EPS) THEN ! X2 IS A SOLUTION GOTO 50 ELSE CALL PUSHERR (0001, 'CALCK3') ! WARNING ERROR: NO SOLUTION GOTO 50 ENDIF C C *** PERFORM BISECTION *********************************************** C 20 DO 30 I=1,MAXIT X3 = 0.5*(X1+X2) CALL RSTGAMP ! reinitialize activity coefficients (slc.1.2012) Y3 = FUNCK3 (X3) IF (SIGN(1.d0,Y1)*SIGN(1.d0,Y3) .LE. ZERO) THEN ! (Y1*Y3 .LE. ZERO) Y2 = Y3 X2 = X3 ELSE Y1 = Y3 X1 = X3 ENDIF IF (ABS(X2-X1) .LE. EPS*X1) GOTO 40 30 CONTINUE CALL PUSHERR (0002, 'CALCK3') ! WARNING ERROR: NO CONVERGENCE C C *** CONVERGED ; RETURN ********************************************** C 40 X3 = 0.5*(X1+X2) CALL RSTGAMP ! reinitialize activity coefficients (slc.1.2012) Y3 = FUNCK3 (X3) C 50 RETURN C C *** END OF SUBROUTINE CALCK3 ****************************************** C END C C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE FUNCK3 C *** CASE K3 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE SUPER RICH, FREE ACID (SO4RAT < 1.0) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : KHSO4, CaSO4 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C DOUBLE PRECISION FUNCTION FUNCK3 (P1) INCLUDE 'isrpia.inc' DOUBLE PRECISION LAMDA, KAPA COMMON /CASEK/ CHI1,CHI2,CHI3,CHI4,LAMDA,KAPA,PSI1,PSI2,PSI3, & A1, A2, A3, A4 C C *** SETUP PARAMETERS ************************************************ C FRST = .TRUE. CALAIN = .TRUE. C LAMDA = MAX(W(2) - W(3) - W(1) - W(6) - W(7) - W(8), TINY) ! FREE H2SO4 PSI3 = P1 PSI1 = CHI1 ! ALL NH4HSO4 DELIQUESCED PSI2 = CHI2 ! ALL NaHSO4 DELIQUESCED PSI4 = CHI4 ! ALL MgSO4 DELIQUESCED C C *** SOLVE EQUATIONS ; WITH ITERATIONS FOR ACTIVITY COEF. ************ C DO 10 I=1,NSWEEP C A3 = XK18 *(WATER/GAMA(18))**2.0 A4 = XK1 *WATER/GAMA(7)*(GAMA(8)/GAMA(7))**2.0 C C BB = A4+LAMDA+PSI4 ! KAPA CC =-A4*(LAMDA + PSI3 + PSI2 + PSI1) + LAMDA*PSI4 DD = MAX(BB*BB-4.D0*CC, ZERO) KAPA = 0.5D0*(-BB+SQRT(DD)) C C *** SAVE CONCENTRATIONS IN MOLAL ARRAY ****************************** C MOLAL (1) = MAX(LAMDA + KAPA, ZERO) ! HI MOLAL (2) = PSI2 ! NAI MOLAL (3) = PSI1 ! NH4I MOLAL (4) = ZERO MOLAL (5) = MAX(KAPA + PSI4, ZERO) ! SO4I MOLAL (6) = MAX(LAMDA+PSI1+PSI2+PSI3-KAPA,ZERO) ! HSO4I MOLAL (7) = ZERO MOLAL (8) = ZERO MOLAL (9) = PSI3 ! KI MOLAL (10)= PSI4 C CNH4HS4 = ZERO CNAHSO4 = ZERO CKHSO4 = CHI3-PSI3 CCASO4 = W(6) CMGSO4 = ZERO C CALL CALCMR ! Water content C C *** CALCULATE ACTIVITIES OR TERMINATE INTERNAL LOOP ***************** C IF (FRST.AND.CALAOU .OR. .NOT.FRST.AND.CALAIN) THEN CALL CALCACT ELSE GOTO 20 ENDIF 10 CONTINUE C C *** CALCULATE OBJECTIVE FUNCTION ************************************ C 20 FUNCK3 = MOLAL(9)*MOLAL(6)/A3 - ONE C C *** END OF FUNCTION FUNCK3 ******************************************* C END C C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE CALCK2 C *** CASE K2 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE SUPER RICH, FREE ACID (SO4RAT < 1.0) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : NAHSO4, KHSO4, CaSO4 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCK2 INCLUDE 'isrpia.inc' C DOUBLE PRECISION LAMDA, KAPA COMMON /CASEK/ CHI1,CHI2,CHI3,CHI4,LAMDA,KAPA,PSI1,PSI2,PSI3, & A1, A2, A3, A4 C C *** SETUP PARAMETERS ************************************************ C CALAOU =.TRUE. ! Outer loop activity calculation flag CHI1 = W(3) ! Total NH4 initially as NH4HSO4 CHI2 = W(1) ! Total NA initially as NaHSO4 CHI3 = W(7) ! Total K initially as KHSO4 CHI4 = W(8) ! Total Mg initially as MgSO4 C PSI3LO = TINY ! Low limit PSI3HI = CHI3 ! High limit C C *** INITIAL VALUES FOR BISECTION ************************************ C X1 = PSI3HI Y1 = FUNCK2 (X1) YHI= Y1 ! Save Y-value at HI position C C *** YHI < 0.0 THE SOLUTION IS ALWAYS UNDERSATURATED WITH KHSO4 **** C IF (ABS(Y1).LE.EPS .OR. YHI.LT.ZERO) GOTO 50 C C *** ROOT TRACKING ; FOR THE RANGE OF HI AND LO ********************** C DX = (PSI3HI-PSI3LO)/FLOAT(NDIV) DO 10 I=1,NDIV X2 = X1-DX CALL RSTGAMP ! reinitialize activity coefficients (slc.1.2012) Y2 = FUNCK2 (X2) IF (SIGN(1.d0,Y1)*SIGN(1.d0,Y2).LT.ZERO) GOTO 20 ! (Y1*Y2.LT.ZERO) X1 = X2 Y1 = Y2 10 CONTINUE C C *** { YLO, YHI } > 0.0 THE SOLUTION IS ALWAYS SUPERSATURATED WITH KHSO4 C YLO= Y1 ! Save Y-value at Hi position IF (YLO.GT.ZERO .AND. YHI.GT.ZERO) THEN CALL RSTGAMP ! reinitialize activity coefficients (slc.1.2012) Y3 = FUNCK2 (ZERO) GOTO 50 ELSE IF (ABS(Y2) .LT. EPS) THEN ! X2 IS A SOLUTION GOTO 50 ELSE CALL PUSHERR (0001, 'CALCK2') ! WARNING ERROR: NO SOLUTION GOTO 50 ENDIF C C *** PERFORM BISECTION *********************************************** C 20 DO 30 I=1,MAXIT X3 = 0.5*(X1+X2) CALL RSTGAMP ! reinitialize activity coefficients (slc.1.2012) Y3 = FUNCK2 (X3) IF (SIGN(1.d0,Y1)*SIGN(1.d0,Y3) .LE. ZERO) THEN ! (Y1*Y3 .LE. ZERO) Y2 = Y3 X2 = X3 ELSE Y1 = Y3 X1 = X3 ENDIF IF (ABS(X2-X1) .LE. EPS*X1) GOTO 40 30 CONTINUE CALL PUSHERR (0002, 'CALCK2') ! WARNING ERROR: NO CONVERGENCE C C *** CONVERGED ; RETURN ********************************************** C 40 X3 = 0.5*(X1+X2) Y3 = FUNCK2 (X3) C 50 RETURN C C *** END OF SUBROUTINE CALCK2 ****************************************** C END C C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE FUNCK2 C *** CASE K2 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE SUPER RICH, FREE ACID (SO4RAT < 1.0) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : NAHSO4, KHSO4, CaSO4 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C DOUBLE PRECISION FUNCTION FUNCK2 (P1) INCLUDE 'isrpia.inc' DOUBLE PRECISION LAMDA, KAPA COMMON /CASEK/ CHI1,CHI2,CHI3,CHI4,LAMDA,KAPA,PSI1,PSI2,PSI3, & A1, A2, A3, A4 C C *** SETUP PARAMETERS ************************************************ C FRST = .TRUE. CALAIN = .TRUE. C LAMDA = MAX(W(2) - W(3) - W(1) - W(6) - W(7) - W(8), TINY) ! FREE H2SO4 PSI3 = P1 PSI1 = CHI1 ! ALL NH4HSO4 DELIQUESCED PSI4 = CHI4 ! ALL MgSO4 DELIQUESCED C C *** SOLVE EQUATIONS ; WITH ITERATIONS FOR ACTIVITY COEF. ************ C DO 10 I=1,NSWEEP C A2 = XK11 *(WATER/GAMA(12))**2.0 A3 = XK18 *(WATER/GAMA(18))**2.0 A4 = XK1 *WATER/GAMA(7)*(GAMA(8)/GAMA(7))**2.0 C PSI2 = A2/A3*PSI3 ! PSI2 PSI2 = MIN(MAX(PSI2, ZERO),CHI2) C BB = A4+LAMDA+PSI4 ! KAPA CC =-A4*(LAMDA + PSI3 + PSI2 + PSI1) + LAMDA*PSI4 DD = MAX(BB*BB-4.D0*CC, ZERO) KAPA = 0.5D0*(-BB+SQRT(DD)) C C *** SAVE CONCENTRATIONS IN MOLAL ARRAY ****************************** C MOLAL (1) = MAX(LAMDA + KAPA, ZERO) ! HI MOLAL (2) = PSI2 ! NAI MOLAL (3) = PSI1 ! NH4I MOLAL (4) = ZERO MOLAL (5) = MAX(KAPA + PSI4, ZERO) ! SO4I MOLAL (6) = MAX(LAMDA+PSI1+PSI2+PSI3-KAPA,ZERO) ! HSO4I MOLAL (7) = ZERO MOLAL (8) = ZERO MOLAL (9) = PSI3 ! KI MOLAL (10)= PSI4 C CNH4HS4 = ZERO CNAHSO4 = CHI2-PSI2 CKHSO4 = CHI3-PSI3 CCASO4 = W(6) CMGSO4 = ZERO C CALL CALCMR ! Water content C C *** CALCULATE ACTIVITIES OR TERMINATE INTERNAL LOOP ***************** C IF (FRST.AND.CALAOU .OR. .NOT.FRST.AND.CALAIN) THEN CALL CALCACT ELSE GOTO 20 ENDIF 10 CONTINUE C C *** CALCULATE OBJECTIVE FUNCTION ************************************ C 20 FUNCK2 = MOLAL(9)*MOLAL(6)/A3 - ONE C C *** END OF FUNCTION FUNCK2 ******************************************* C END C C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE CALCK1 C *** CASE K1 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE SUPER RICH, FREE ACID (SO4RAT < 1.0) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : NH4HSO4, NAHSO4, KHSO4, CASO4 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCK1 INCLUDE 'isrpia.inc' C DOUBLE PRECISION LAMDA, KAPA COMMON /CASEK/ CHI1,CHI2,CHI3,CHI4,LAMDA,KAPA,PSI1,PSI2,PSI3, & A1, A2, A3, A4 C C *** SETUP PARAMETERS ************************************************ C CALAOU =.TRUE. ! Outer loop activity calculation flag CHI1 = W(3) ! Total NH4 initially as NH4HSO4 CHI2 = W(1) ! Total NA initially as NaHSO4 CHI3 = W(7) ! Total K initially as KHSO4 CHI4 = W(8) ! Total Mg initially as MGSO4 C PSI3LO = TINY ! Low limit PSI3HI = CHI3 ! High limit C C *** INITIAL VALUES FOR BISECTION ************************************ C X1 = PSI3HI Y1 = FUNCK1 (X1) YHI= Y1 ! Save Y-value at HI position C C *** YHI < 0.0 THE SOLUTION IS ALWAYS UNDERSATURATED WITH KHSO4 **** C IF (ABS(Y1).LE.EPS .OR. YHI.LT.ZERO) GOTO 50 C C *** ROOT TRACKING ; FOR THE RANGE OF HI AND LO ********************** C DX = (PSI3HI-PSI3LO)/FLOAT(NDIV) DO 10 I=1,NDIV X2 = X1-DX CALL RSTGAMP ! reinitialize activity coefficients (slc.1.2012) Y2 = FUNCK1 (X2) IF (SIGN(1.d0,Y1)*SIGN(1.d0,Y2).LT.ZERO) GOTO 20 ! (Y1*Y2.LT.ZERO) X1 = X2 Y1 = Y2 10 CONTINUE C C *** { YLO, YHI } > 0.0 THE SOLUTION IS ALWAYS SUPERSATURATED WITH KHSO4 C YLO= Y1 ! Save Y-value at Hi position IF (YLO.GT.ZERO .AND. YHI.GT.ZERO) THEN CALL RSTGAMP ! reinitialize activity coefficients (slc.1.2012) Y3 = FUNCK1 (ZERO) GOTO 50 ELSE IF (ABS(Y2) .LT. EPS) THEN ! X2 IS A SOLUTION GOTO 50 ELSE CALL PUSHERR (0001, 'CALCK1') ! WARNING ERROR: NO SOLUTION GOTO 50 ENDIF C C *** PERFORM BISECTION *********************************************** C 20 DO 30 I=1,MAXIT X3 = 0.5*(X1+X2) CALL RSTGAMP ! reinitialize activity coefficients (slc.1.2012) Y3 = FUNCK1 (X3) IF (SIGN(1.d0,Y1)*SIGN(1.d0,Y3) .LE. ZERO) THEN ! (Y1*Y3 .LE. ZERO) Y2 = Y3 X2 = X3 ELSE Y1 = Y3 X1 = X3 ENDIF IF (ABS(X2-X1) .LE. EPS*X1) GOTO 40 30 CONTINUE CALL PUSHERR (0002, 'CALCK1') ! WARNING ERROR: NO CONVERGENCE C C *** CONVERGED ; RETURN ********************************************** C 40 X3 = 0.5*(X1+X2) CALL RSTGAMP ! reinitialize activity coefficients (slc.1.2012) Y3 = FUNCK1 (X3) C 50 RETURN C C *** END OF SUBROUTINE CALCK1 ****************************************** C END C C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE FUNCK1 C *** CASE K1 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE super RICH, FREE ACID (SO4RAT < 1.0) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : NH4HSO4, NAHSO4, KHSO4, CASO4 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C DOUBLE PRECISION FUNCTION FUNCK1 (P1) INCLUDE 'isrpia.inc' DOUBLE PRECISION LAMDA, KAPA COMMON /CASEK/ CHI1,CHI2,CHI3,CHI4,LAMDA,KAPA,PSI1,PSI2,PSI3, & A1, A2, A3, A4 C C *** SETUP PARAMETERS ************************************************ C FRST = .TRUE. CALAIN = .TRUE. C LAMDA = MAX(W(2) - W(3) - W(1) - W(6) - W(7) - W(8), TINY) ! FREE H2SO4 PSI3 = P1 PSI4 = CHI4 ! ALL MgSO4 DELIQUESCED C C *** SOLVE EQUATIONS ; WITH ITERATIONS FOR ACTIVITY COEF. ************ C DO 10 I=1,NSWEEP C A1 = XK12 *(WATER/GAMA(09))**2.0 A2 = XK11 *(WATER/GAMA(12))**2.0 A3 = XK18 *(WATER/GAMA(18))**2.0 A4 = XK1 *WATER/GAMA(7)*(GAMA(8)/GAMA(7))**2.0 C PSI1 = A1/A3*PSI3 ! PSI1 PSI1 = MIN(MAX(PSI1, ZERO),CHI1) C PSI2 = A2/A3*PSI3 ! PSI2 PSI2 = MIN(MAX(PSI2, ZERO),CHI2) C BB = A4+LAMDA+PSI4 ! KAPA CC =-A4*(LAMDA + PSI3 + PSI2 + PSI1) + LAMDA*PSI4 DD = MAX(BB*BB-4.D0*CC, ZERO) KAPA = 0.5D0*(-BB+SQRT(DD)) C C *** SAVE CONCENTRATIONS IN MOLAL ARRAY ****************************** C MOLAL (1) = MAX(LAMDA + KAPA, ZERO) ! HI MOLAL (2) = PSI2 ! NAI MOLAL (3) = PSI1 ! NH4I MOLAL (4) = ZERO ! CLI MOLAL (5) = MAX(KAPA + PSI4, ZERO) ! SO4I MOLAL (6) = MAX(LAMDA+PSI1+PSI2+PSI3-KAPA,ZERO) ! HSO4I MOLAL (7) = ZERO ! NO3I MOLAL (8) = ZERO ! CAI MOLAL (9) = PSI3 ! KI MOLAL (10)= PSI4 ! MGI C CNH4HS4 = CHI1-PSI1 CNAHSO4 = CHI2-PSI2 CKHSO4 = CHI3-PSI3 CCASO4 = W(6) CMGSO4 = ZERO C CALL CALCMR ! Water content C C *** CALCULATE ACTIVITIES OR TERMINATE INTERNAL LOOP ***************** C IF (FRST.AND.CALAOU .OR. .NOT.FRST.AND.CALAIN) THEN CALL CALCACT ELSE GOTO 20 ENDIF 10 CONTINUE C C *** CALCULATE OBJECTIVE FUNCTION ************************************ C 20 FUNCK1 = MOLAL(9)*MOLAL(6)/A3 - ONE C C *** END OF FUNCTION FUNCK1 **************************************** C END ================================================ FILE: CCTM/src/aero/aero6/isorev.f ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE ISRP1R C *** THIS SUBROUTINE IS THE DRIVER ROUTINE FOR THE REVERSE PROBLEM OF C AN AMMONIUM-SULFATE AEROSOL SYSTEM. C THE COMPOSITION REGIME IS DETERMINED BY THE SULFATE RATIO AND BY C THE AMBIENT RELATIVE HUMIDITY. C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE ISRP1R (WI, RHI, TEMPI) INCLUDE 'isrpia.inc' DIMENSION WI(NCOMP) C C *** INITIALIZE COMMON BLOCK VARIABLES ********************************* C CALL INIT1 (WI, RHI, TEMPI) C C *** CALCULATE SULFATE RATIO ******************************************* C IF (RH.GE.DRNH42S4) THEN ! WET AEROSOL, NEED NH4 AT SRATIO=2.0 SULRATW = GETASR(WAER(2), RHI) ! AEROSOL SULFATE RATIO ELSE SULRATW = 2.0D0 ! DRY AEROSOL SULFATE RATIO ENDIF SULRAT = WAER(3)/WAER(2) ! SULFATE RATIO C C *** FIND CALCULATION REGIME FROM (SULRAT,RH) ************************** C C *** SULFATE POOR C IF (SULRATW.LE.SULRAT) THEN C IF(METSTBL.EQ.1) THEN SCASE = 'S2' CALL CALCS2 ! Only liquid (metastable) ELSE C IF (RH.LT.DRNH42S4) THEN SCASE = 'S1' CALL CALCS1 ! NH42SO4 ; case K1 C ELSEIF (DRNH42S4.LE.RH) THEN SCASE = 'S2' CALL CALCS2 ! Only liquid ; case K2 ENDIF ENDIF C C *** SULFATE RICH (NO ACID) C ELSEIF (1.0.LE.SULRAT .AND. SULRAT.LT.SULRATW) THEN W(2) = WAER(2) W(3) = WAER(3) C IF(METSTBL.EQ.1) THEN SCASE = 'B4' CALL CALCB4 ! Only liquid (metastable) SCASE = 'B4' ELSE C IF (RH.LT.DRNH4HS4) THEN SCASE = 'B1' CALL CALCB1 ! NH4HSO4,LC,NH42SO4 ; case B1 SCASE = 'B1' C ELSEIF (DRNH4HS4.LE.RH .AND. RH.LT.DRLC) THEN SCASE = 'B2' CALL CALCB2 ! LC,NH42S4 ; case B2 SCASE = 'B2' C ELSEIF (DRLC.LE.RH .AND. RH.LT.DRNH42S4) THEN SCASE = 'B3' CALL CALCB3 ! NH42S4 ; case B3 SCASE = 'B3' C ELSEIF (DRNH42S4.LE.RH) THEN SCASE = 'B4' CALL CALCB4 ! Only liquid ; case B4 SCASE = 'B4' ENDIF ENDIF C CALL CALCNH3P ! Compute NH3(g) C C *** SULFATE RICH (FREE ACID) C ELSEIF (SULRAT.LT.1.0) THEN W(2) = WAER(2) W(3) = WAER(3) C IF(METSTBL.EQ.1) THEN SCASE = 'C2' CALL CALCC2 ! Only liquid (metastable) SCASE = 'C2' ELSE C IF (RH.LT.DRNH4HS4) THEN SCASE = 'C1' CALL CALCC1 ! NH4HSO4 ; case C1 SCASE = 'C1' C ELSEIF (DRNH4HS4.LE.RH) THEN SCASE = 'C2' CALL CALCC2 ! Only liquid ; case C2 SCASE = 'C2' ENDIF ENDIF C CALL CALCNH3P C ENDIF RETURN C C *** END OF SUBROUTINE ISRP1R ***************************************** C END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE ISRP2R C *** THIS SUBROUTINE IS THE DRIVER ROUTINE FOR THE REVERSE PROBLEM OF C AN AMMONIUM-SULFATE-NITRATE AEROSOL SYSTEM. C THE COMPOSITION REGIME IS DETERMINED BY THE SULFATE RATIO AND BY C THE AMBIENT RELATIVE HUMIDITY. C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE ISRP2R (WI, RHI, TEMPI) INCLUDE 'isrpia.inc' DIMENSION WI(NCOMP) LOGICAL TRYLIQ C C *** INITIALIZE ALL VARIABLES IN COMMON BLOCK ************************** C TRYLIQ = .TRUE. ! Assume liquid phase, sulfate poor limit C 10 CALL INIT2 (WI, RHI, TEMPI) C C *** CALCULATE SULFATE RATIO ******************************************* C IF (TRYLIQ .AND. RH.GE.DRNH4NO3) THEN ! *** WET AEROSOL SULRATW = GETASR(WAER(2), RHI) ! LIMITING SULFATE RATIO ELSE SULRATW = 2.0D0 ! *** DRY AEROSOL ENDIF SULRAT = WAER(3)/WAER(2) C C *** FIND CALCULATION REGIME FROM (SULRAT,RH) ************************** C C *** SULFATE POOR C IF (SULRATW.LE.SULRAT) THEN C IF(METSTBL.EQ.1) THEN SCASE = 'N3' CALL CALCN3 ! Only liquid (metastable) ELSE C IF (RH.LT.DRNH4NO3) THEN SCASE = 'N1' CALL CALCN1 ! NH42SO4,NH4NO3 ; case N1 C ELSEIF (DRNH4NO3.LE.RH .AND. RH.LT.DRNH42S4) THEN SCASE = 'N2' CALL CALCN2 ! NH42S4 ; case N2 C ELSEIF (DRNH42S4.LE.RH) THEN SCASE = 'N3' CALL CALCN3 ! Only liquid ; case N3 ENDIF ENDIF C C *** SULFATE RICH (NO ACID) C C FOR SOLVING THIS CASE, NITRIC ACID AND AMMONIA IN THE GAS PHASE ARE C ASSUMED A MINOR SPECIES, THAT DO NOT SIGNIFICANTLY AFFECT THE C AEROSOL EQUILIBRIUM. C ELSEIF (1.0.LE.SULRAT .AND. SULRAT.LT.SULRATW) THEN W(2) = WAER(2) W(3) = WAER(3) W(4) = WAER(4) C IF(METSTBL.EQ.1) THEN SCASE = 'B4' CALL CALCB4 ! Only liquid (metastable) SCASE = 'B4' ELSE C IF (RH.LT.DRNH4HS4) THEN SCASE = 'B1' CALL CALCB1 ! NH4HSO4,LC,NH42SO4 ; case O1 SCASE = 'B1' C ELSEIF (DRNH4HS4.LE.RH .AND. RH.LT.DRLC) THEN SCASE = 'B2' CALL CALCB2 ! LC,NH42S4 ; case O2 SCASE = 'B2' C ELSEIF (DRLC.LE.RH .AND. RH.LT.DRNH42S4) THEN SCASE = 'B3' CALL CALCB3 ! NH42S4 ; case O3 SCASE = 'B3' C ELSEIF (DRNH42S4.LE.RH) THEN SCASE = 'B4' CALL CALCB4 ! Only liquid ; case O4 SCASE = 'B4' ENDIF ENDIF C C *** Add the NO3 to the solution now and calculate partitioning. C MOLAL(7) = WAER(4) ! There is always water, so NO3(aer) is NO3- MOLAL(1) = MOLAL(1) + WAER(4) ! Add H+ to balance out CALL CALCNAP ! HNO3, NH3 dissolved CALL CALCNH3P C C *** SULFATE RICH (FREE ACID) C C FOR SOLVING THIS CASE, NITRIC ACID AND AMMONIA IN THE GAS PHASE ARE C ASSUMED A MINOR SPECIES, THAT DO NOT SIGNIFICANTLY AFFECT THE C AEROSOL EQUILIBRIUM. C ELSEIF (SULRAT.LT.1.0) THEN W(2) = WAER(2) W(3) = WAER(3) W(4) = WAER(4) C IF(METSTBL.EQ.1) THEN SCASE = 'C2' CALL CALCC2 ! Only liquid (metastable) SCASE = 'C2' ELSE C IF (RH.LT.DRNH4HS4) THEN SCASE = 'C1' CALL CALCC1 ! NH4HSO4 ; case P1 SCASE = 'C1' C ELSEIF (DRNH4HS4.LE.RH) THEN SCASE = 'C2' CALL CALCC2 ! Only liquid ; case P2 SCASE = 'C2' ENDIF ENDIF C C *** Add the NO3 to the solution now and calculate partitioning. C MOLAL(7) = WAER(4) ! There is always water, so NO3(aer) is NO3- MOLAL(1) = MOLAL(1) + WAER(4) ! Add H+ to balance out C CALL CALCNAP ! HNO3, NH3 dissolved CALL CALCNH3P ENDIF C C *** IF SULRATW < SULRAT < 2.0 and WATER = 0 => SULFATE RICH CASE. C IF (SULRATW.LE.SULRAT .AND. SULRAT.LT.2.0 & .AND. WATER.LE.TINY) THEN TRYLIQ = .FALSE. GOTO 10 ENDIF C RETURN C C *** END OF SUBROUTINE ISRP2R ***************************************** C END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE ISRP3R C *** THIS SUBROUTINE IS THE DRIVER ROUTINE FOR THE REVERSE PROBLEM OF C AN AMMONIUM-SULFATE-NITRATE-CHLORIDE-SODIUM AEROSOL SYSTEM. C THE COMPOSITION REGIME IS DETERMINED BY THE SULFATE & SODIUM C RATIOS AND BY THE AMBIENT RELATIVE HUMIDITY. C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE ISRP3R (WI, RHI, TEMPI) INCLUDE 'isrpia.inc' DIMENSION WI(NCOMP) LOGICAL TRYLIQ ccC ccC *** ADJUST FOR TOO LITTLE AMMONIUM AND CHLORIDE *********************** ccC cc WI(3) = MAX (WI(3), 1.D-10) ! NH4+ : 1e-4 umoles/m3 cc WI(5) = MAX (WI(5), 1.D-10) ! Cl- : 1e-4 umoles/m3 C C *** INITIALIZE ALL VARIABLES ****************************************** C TRYLIQ = .TRUE. ! Use liquid phase sulfate poor limit C 10 CALL ISOINIT3 (WI, RHI, TEMPI) ! COMMON block variables ccC ccC *** CHECK IF TOO MUCH SODIUM ; ADJUST AND ISSUE ERROR MESSAGE ********* ccC cc REST = 2.D0*WAER(2) + WAER(4) + WAER(5) cc IF (WAER(1).GT.REST) THEN ! NA > 2*SO4+CL+NO3 ? cc WAER(1) = (ONE-1D-6)*REST ! Adjust Na amount cc CALL PUSHERR (0050, 'ISRP3R') ! Warning error: Na adjusted cc ENDIF C C *** CALCULATE SULFATE & SODIUM RATIOS ********************************* C IF (TRYLIQ .AND. RH.GE.DRNH4NO3) THEN ! ** WET AEROSOL FRSO4 = WAER(2) - WAER(1)/2.0D0 ! SULFATE UNBOUND BY SODIUM FRSO4 = MAX(FRSO4, TINY) SRI = GETASR(FRSO4, RHI) ! SULFATE RATIO FOR NH4+ SULRATW = (WAER(1)+FRSO4*SRI)/WAER(2) ! LIMITING SULFATE RATIO SULRATW = MIN (SULRATW, 2.0D0) ELSE SULRATW = 2.0D0 ! ** DRY AEROSOL ENDIF SULRAT = (WAER(1)+WAER(3))/WAER(2) SODRAT = WAER(1)/WAER(2) C C *** FIND CALCULATION REGIME FROM (SULRAT,RH) ************************** C C *** SULFATE POOR ; SODIUM POOR C IF (SULRATW.LE.SULRAT .AND. SODRAT.LT.2.0) THEN C IF(METSTBL.EQ.1) THEN SCASE = 'Q5' CALL CALCQ5 ! Only liquid (metastable) SCASE = 'Q5' ELSE C IF (RH.LT.DRNH4NO3) THEN SCASE = 'Q1' CALL CALCQ1 ! NH42SO4,NH4NO3,NH4CL,NA2SO4 C ELSEIF (DRNH4NO3.LE.RH .AND. RH.LT.DRNH4CL) THEN SCASE = 'Q2' CALL CALCQ2 ! NH42SO4,NH4CL,NA2SO4 C ELSEIF (DRNH4CL.LE.RH .AND. RH.LT.DRNH42S4) THEN SCASE = 'Q3' CALL CALCQ3 ! NH42SO4,NA2SO4 C ELSEIF (DRNH42S4.LE.RH .AND. RH.LT.DRNA2SO4) THEN SCASE = 'Q4' CALL CALCQ4 ! NA2SO4 SCASE = 'Q4' C ELSEIF (DRNA2SO4.LE.RH) THEN SCASE = 'Q5' CALL CALCQ5 ! Only liquid SCASE = 'Q5' ENDIF ENDIF C C *** SULFATE POOR ; SODIUM RICH C ELSE IF (SULRAT.GE.SULRATW .AND. SODRAT.GE.2.0) THEN C IF(METSTBL.EQ.1) THEN SCASE = 'R6' CALL CALCR6 ! Only liquid (metastable) SCASE = 'R6' ELSE C IF (RH.LT.DRNH4NO3) THEN SCASE = 'R1' CALL CALCR1 ! NH4NO3,NH4CL,NA2SO4,NACL,NANO3 C ELSEIF (DRNH4NO3.LE.RH .AND. RH.LT.DRNANO3) THEN SCASE = 'R2' CALL CALCR2 ! NH4CL,NA2SO4,NACL,NANO3 C ELSEIF (DRNANO3.LE.RH .AND. RH.LT.DRNACL) THEN SCASE = 'R3' CALL CALCR3 ! NH4CL,NA2SO4,NACL C ELSEIF (DRNACL.LE.RH .AND. RH.LT.DRNH4CL) THEN SCASE = 'R4' CALL CALCR4 ! NH4CL,NA2SO4 C ELSEIF (DRNH4CL.LE.RH .AND. RH.LT.DRNA2SO4) THEN SCASE = 'R5' CALL CALCR5 ! NA2SO4 SCASE = 'R5' C ELSEIF (DRNA2SO4.LE.RH) THEN SCASE = 'R6' CALL CALCR6 ! NO SOLID SCASE = 'R6' ENDIF ENDIF C C *** SULFATE RICH (NO ACID) C ELSEIF (1.0.LE.SULRAT .AND. SULRAT.LT.SULRATW) THEN DO 100 I=1,NCOMP W(I) = WAER(I) 100 CONTINUE C IF(METSTBL.EQ.1) THEN SCASE = 'I6' CALL CALCI6 ! Only liquid (metastable) SCASE = 'I6' ELSE C IF (RH.LT.DRNH4HS4) THEN SCASE = 'I1' CALL CALCI1 ! NA2SO4,(NH4)2SO4,NAHSO4,NH4HSO4,LC SCASE = 'I1' C ELSEIF (DRNH4HS4.LE.RH .AND. RH.LT.DRNAHSO4) THEN SCASE = 'I2' CALL CALCI2 ! NA2SO4,(NH4)2SO4,NAHSO4,LC SCASE = 'I2' C ELSEIF (DRNAHSO4.LE.RH .AND. RH.LT.DRLC) THEN SCASE = 'I3' CALL CALCI3 ! NA2SO4,(NH4)2SO4,LC SCASE = 'I3' C ELSEIF (DRLC.LE.RH .AND. RH.LT.DRNH42S4) THEN SCASE = 'I4' CALL CALCI4 ! NA2SO4,(NH4)2SO4 SCASE = 'I4' C ELSEIF (DRNH42S4.LE.RH .AND. RH.LT.DRNA2SO4) THEN SCASE = 'I5' CALL CALCI5 ! NA2SO4 SCASE = 'I5' C ELSEIF (DRNA2SO4.LE.RH) THEN SCASE = 'I6' CALL CALCI6 ! NO SOLIDS SCASE = 'I6' ENDIF ENDIF C CALL CALCNHP ! HNO3, NH3, HCL in gas phase CALL CALCNH3P C C *** SULFATE RICH (FREE ACID) C ELSEIF (SULRAT.LT.1.0) THEN DO 200 I=1,NCOMP W(I) = WAER(I) 200 CONTINUE C IF(METSTBL.EQ.1) THEN SCASE = 'J3' CALL CALCJ3 ! Only liquid (metastable) SCASE = 'J3' ELSE C IF (RH.LT.DRNH4HS4) THEN SCASE = 'J1' CALL CALCJ1 ! NH4HSO4,NAHSO4 SCASE = 'J1' C ELSEIF (DRNH4HS4.LE.RH .AND. RH.LT.DRNAHSO4) THEN SCASE = 'J2' CALL CALCJ2 ! NAHSO4 SCASE = 'J2' C ELSEIF (DRNAHSO4.LE.RH) THEN SCASE = 'J3' CALL CALCJ3 SCASE = 'J3' ENDIF ENDIF C CALL CALCNHP ! HNO3, NH3, HCL in gas phase CALL CALCNH3P C ENDIF C C *** IF AFTER CALCULATIONS, SULRATW < SULRAT < 2.0 C and WATER = 0 => SULFATE RICH CASE. C IF (SULRATW.LE.SULRAT .AND. SULRAT.LT.2.0 & .AND. WATER.LE.TINY) THEN TRYLIQ = .FALSE. GOTO 10 ENDIF C RETURN C C *** END OF SUBROUTINE ISRP3R ***************************************** C END C C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE ISRP4R C *** THIS SUBROUTINE IS THE DRIVER ROUTINE FOR THE REVERSE PROBLEM OF C AN AMMONIUM-SULFATE-NITRATE-CHLORIDE-SODIUM-CALCIUM-POTTASIUM-MAGNESIUM AEROSOL SYSTEM. C THE COMPOSITION REGIME IS DETERMINED BY THE SULFATE & SODIUM C RATIOS AND BY THE AMBIENT RELATIVE HUMIDITY. C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE ISRP4R (WI, RHI, TEMPI) INCLUDE 'isrpia.inc' DIMENSION WI(NCOMP) LOGICAL TRYLIQ ccC ccC *** ADJUST FOR TOO LITTLE AMMONIUM AND CHLORIDE *********************** ccC cc WI(3) = MAX (WI(3), 1.D-10) ! NH4+ : 1e-4 umoles/m3 cc WI(5) = MAX (WI(5), 1.D-10) ! Cl- : 1e-4 umoles/m3 C C *** INITIALIZE ALL VARIABLES ****************************************** C TRYLIQ = .TRUE. ! Use liquid phase sulfate poor limit IPROB = 1 ! SOLVE REVERSE PROBLEM C METSTBL = 1 C 10 CALL INIT4 (WI, RHI, TEMPI) ! COMMON block variables ccC ccC *** CHECK IF TOO MUCH SODIUM ; ADJUST AND ISSUE ERROR MESSAGE ********* ccC cc REST = 2.D0*WAER(2) + WAER(4) + WAER(5) cc IF (WAER(1).GT.REST) THEN ! NA > 2*SO4+CL+NO3 ? cc WAER(1) = (ONE-1D-6)*REST ! Adjust Na amount cc CALL PUSHERR (0050, 'ISRP3R') ! Warning error: Na adjusted cc ENDIF C C *** CALCULATE SULFATE, CRUSTAL & SODIUM RATIOS *********************** C IF (TRYLIQ) THEN ! ** WET AEROSOL FRSO4 = WAER(2) - WAER(1)/2.0D0 & - WAER(6) - WAER(7)/2.0D0 - WAER(8) ! SULFATE UNBOUND BY SODIUM,CALCIUM,POTTASIUM,MAGNESIUM FRSO4 = MAX(FRSO4, TINY) SRI = GETASR(FRSO4, RHI) ! SULFATE RATIO FOR NH4+ SULRATW = (WAER(1)+FRSO4*SRI+WAER(6) & +WAER(7)+WAER(8))/WAER(2) ! LIMITING SULFATE RATIO SULRATW = MIN (SULRATW, 2.0D0) ELSE SULRATW = 2.0D0 ! ** DRY AEROSOL ENDIF SO4RAT = (WAER(1)+WAER(3)+WAER(6)+WAER(7)+WAER(8))/WAER(2) CRNARAT = (WAER(1)+WAER(6)+WAER(7)+WAER(8))/WAER(2) CRRAT = (WAER(6)+WAER(7)+WAER(8))/WAER(2) C C *** FIND CALCULATION REGIME FROM (SULRAT,RH) ************************** C C *** SULFATE POOR ; SODIUM+CRUSTALS POOR C IF (SULRATW.LE.SO4RAT .AND. CRNARAT.LT.2.0) THEN C IF(METSTBL.EQ.1) THEN SCASE = 'V7' CALL CALCV7 ! Only liquid (metastable) ELSE C IF (RH.LT.DRNH4NO3) THEN SCASE = 'V1' CALL CALCV1 ! CaSO4, NH4NO3, NH4CL, (NH4)2SO4, MGSO4, NA2SO4, K2SO4 C ELSEIF (DRNH4NO3.LE.RH .AND. RH.LT.DRNH4CL) THEN SCASE = 'V2' CALL CALCV2 ! CaSO4, NH4CL, (NH4)2SO4, MGSO4, NA2SO4, K2SO4 C ELSEIF (DRNH4CL.LE.RH .AND. RH.LT.DRNH42S4) THEN SCASE = 'V3' CALL CALCV3 ! CaSO4, (NH4)2SO4, MGSO4, NA2SO4, K2SO4 C ELSEIF (DRNH42S4.LE.RH .AND. RH.LT.DRMGSO4) THEN SCASE = 'V4' CALL CALCV4 ! CaSO4, MGSO4, NA2SO4, K2SO4 C ELSEIF (DRMGSO4.LE.RH .AND. RH.LT.DRNA2SO4) THEN SCASE = 'V5' CALL CALCV5 ! CaSO4, NA2SO4, K2SO4 C ELSEIF (DRNA2SO4.LE.RH .AND. RH.LT.DRK2SO4) THEN SCASE = 'V6' CALL CALCV6 ! CaSO4, K2SO4 C ELSEIF (DRK2SO4.LE.RH) THEN SCASE = 'V7' CALL CALCV7 ! CaSO4 ENDIF ENDIF C C *** SULFATE POOR: Rso4>2; (DUST + SODIUM) RICH: R(Cr+Na)>2; DUST POOR: Rcr<2. C ELSEIF (SO4RAT.GE.SULRATW .AND. CRNARAT.GE.2.0) THEN C IF (CRRAT.LE.2.0) THEN C IF(METSTBL.EQ.1) THEN SCASE = 'U8' CALL CALCU8 ! Only liquid (metastable) ELSE C IF (RH.LT.DRNH4NO3) THEN SCASE = 'U1' CALL CALCU1 ! CaSO4, NH4NO3, NH4CL, MGSO4, NA2SO4, K2SO4, NACL, NANO3 C ELSEIF (DRNH4NO3.LE.RH .AND. RH.LT.DRNANO3) THEN SCASE = 'U2' CALL CALCU2 ! CaSO4, NH4CL, MGSO4, NA2SO4, K2SO4, NACL, NANO3 C ELSEIF (DRNANO3.LE.RH .AND. RH.LT.DRNACL) THEN SCASE = 'U3' CALL CALCU3 ! CaSO4, NH4CL, MGSO4, NA2SO4, K2SO4, NACL C ELSEIF (DRNACL.LE.RH .AND. RH.LT.DRNH4Cl) THEN SCASE = 'U4' CALL CALCU4 ! CaSO4, NH4CL, MGSO4, NA2SO4, K2SO4 C ELSEIF (DRNH4Cl.LE.RH .AND. RH.LT.DRMGSO4) THEN SCASE = 'U5' CALL CALCU5 ! CaSO4, MGSO4, NA2SO4, K2SO4 C ELSEIF (DRMGSO4.LE.RH .AND. RH.LT.DRNA2SO4) THEN SCASE = 'U6' CALL CALCU6 ! CaSO4, NA2SO4, K2SO4 C ELSEIF (DRNA2SO4.LE.RH .AND. RH.LT.DRK2SO4) THEN SCASE = 'U7' CALL CALCU7 ! CaSO4, K2SO4 C ELSEIF (DRK2SO4.LE.RH) THEN SCASE = 'U8' CALL CALCU8 ! CaSO4 ENDIF ENDIF C C *** SULFATE POOR: Rso4>2; (DUST + SODIUM) RICH: R(Cr+Na)>2; DUST POOR: Rcr<2. C ELSEIF (CRRAT.GT.2.0) THEN C IF(METSTBL.EQ.1) THEN SCASE = 'W13' CALL CALCW13 ! Only liquid (metastable) ELSE C IF (RH.LT.DRCACL2) THEN SCASE = 'W1' CALL CALCW1 ! CaSO4, CA(NO3)2, CACL2, K2SO4, KNO3, KCL, MGSO4, C ! MG(NO3)2, MGCL2, NANO3, NACL, NH4NO3, NH4CL C ELSEIF (DRCACL2.LE.RH .AND. RH.LT.DRMGCL2) THEN SCASE = 'W2' CALL CALCW2 ! CaSO4, CA(NO3)2, K2SO4, KNO3, KCL, MGSO4, C ! MG(NO3)2, MGCL2, NANO3, NACL, NH4NO3, NH4CL C ELSEIF (DRMGCL2.LE.RH .AND. RH.LT.DRCANO32) THEN SCASE = 'W3' CALL CALCW3 ! CaSO4, CA(NO3)2, K2SO4, KNO3, KCL, MGSO4, C ! MG(NO3)2, NANO3, NACL, NH4NO3, NH4CL C ELSEIF (DRCANO32.LE.RH .AND. RH.LT.DRMGNO32) THEN SCASE = 'W4' CALL CALCW4 ! CaSO4, K2SO4, KNO3, KCL, MGSO4, C ! MG(NO3)2, NANO3, NACL, NH4NO3, NH4CL C ELSEIF (DRMGNO32.LE.RH .AND. RH.LT.DRNH4NO3) THEN SCASE = 'W5' CALL CALCW5 ! CaSO4, K2SO4, KNO3, KCL, MGSO4, C ! NANO3, NACL, NH4NO3, NH4CL C ELSEIF (DRNH4NO3.LE.RH .AND. RH.LT.DRNANO3) THEN SCASE = 'W6' CALL CALCW6 ! CaSO4, K2SO4, KNO3, KCL, MGSO4, NANO3, NACL, NH4CL C ELSEIF (DRNANO3.LE.RH .AND. RH.LT.DRNACL) THEN SCASE = 'W7' CALL CALCW7 ! CaSO4, K2SO4, KNO3, KCL, MGSO4, NACL, NH4CL C ELSEIF (DRNACL.LE.RH .AND. RH.LT.DRNH4CL) THEN SCASE = 'W8' CALL CALCW8 ! CaSO4, K2SO4, KNO3, KCL, MGSO4, NH4CL C ELSEIF (DRNH4CL.LE.RH .AND. RH.LT.DRKCL) THEN SCASE = 'W9' CALL CALCW9 ! CaSO4, K2SO4, KNO3, KCL, MGSO4 C ELSEIF (DRKCL.LE.RH .AND. RH.LT.DRMGSO4) THEN SCASE = 'W10' CALL CALCW10 ! CaSO4, K2SO4, KNO3, MGSO4 C ELSEIF (DRMGSO4.LE.RH .AND. RH.LT.DRKNO3) THEN SCASE = 'W11' CALL CALCW11 ! CaSO4, K2SO4, KNO3 C ELSEIF (DRKNO3.LE.RH .AND. RH.LT.DRK2SO4) THEN SCASE = 'W12' CALL CALCW12 ! CaSO4, K2SO4 C ELSEIF (DRK2SO4.LE.RH) THEN SCASE = 'W13' CALL CALCW13 ! CaSO4 ENDIF ENDIF C CALL CALCNH3 ENDIF C C *** SULFATE RICH (NO ACID): 1 SULFATE RICH CASE. C IF (SULRATW.LE.SO4RAT .AND. SO4RAT.LT.2.0 & .AND. WATER.LE.TINY) THEN TRYLIQ = .FALSE. GOTO 10 ENDIF C RETURN C C *** END OF SUBROUTINE ISRP4R ***************************************** C END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE CALCS2 C *** CASE S2 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SULRAT > 2.0) C 2. LIQUID AEROSOL PHASE ONLY POSSIBLE C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCS2 INCLUDE 'isrpia.inc' DOUBLE PRECISION NH4I, NH3GI, NH3AQ C C *** SETUP PARAMETERS ************************************************ C CALAOU =.TRUE. ! Outer loop activity calculation flag FRST =.TRUE. CALAIN =.TRUE. C C *** CALCULATE WATER CONTENT ***************************************** C MOLALR(4)= MIN(WAER(2), 0.5d0*WAER(3)) WATER = MOLALR(4)/M0(4) ! ZSR correlation C C *** SOLVE EQUATIONS ; WITH ITERATIONS FOR ACTIVITY COEF. ************ C DO 10 I=1,NSWEEP CC A21 = XK21*WATER*R*TEMP A2 = XK2 *R*TEMP/XKW/RH*(GAMA(8)/GAMA(9))**2. AKW = XKW *RH*WATER*WATER C NH4I = WAER(3) SO4I = WAER(2) HSO4I= ZERO C CALL CALCPH (2.D0*SO4I - NH4I, HI, OHI) ! Get pH C NH3AQ = ZERO ! AMMONIA EQUILIBRIUM IF (HI.LT.OHI) THEN CALL CALCAMAQ (NH4I, OHI, DEL) NH4I = MAX (NH4I-DEL, ZERO) OHI = MAX (OHI -DEL, TINY) NH3AQ = DEL HI = AKW/OHI ENDIF C CALL CALCHS4 (HI, SO4I, ZERO, DEL) ! SULFATE EQUILIBRIUM SO4I = SO4I - DEL HI = HI - DEL HSO4I = DEL C NH3GI = NH4I/HI/A2 ! NH3AQ/A21 C C *** SPECIATION & WATER CONTENT *************************************** C MOLAL(1) = HI MOLAL(3) = NH4I MOLAL(5) = SO4I MOLAL(6) = HSO4I COH = OHI GASAQ(1) = NH3AQ GNH3 = NH3GI C C *** CALCULATE ACTIVITIES OR TERMINATE INTERNAL LOOP ***************** C IF (FRST.AND.CALAOU .OR. .NOT.FRST.AND.CALAIN) THEN CALL CALCACT ELSE GOTO 20 ENDIF 10 CONTINUE C 20 RETURN C C *** END OF SUBROUTINE CALCS2 **************************************** C END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE CALCS1 C *** CASE S1 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SULRAT > 2.0) C 2. SOLID AEROSOL ONLY C 3. SOLIDS POSSIBLE : (NH4)2SO4 C C A SIMPLE MATERIAL BALANCE IS PERFORMED, AND THE SOLID (NH4)2SO4 C IS CALCULATED FROM THE SULFATES. THE EXCESS AMMONIA REMAINS IN C THE GAS PHASE. C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCS1 INCLUDE 'isrpia.inc' C CNH42S4 = MIN(WAER(2),0.5d0*WAER(3)) ! For bad input problems GNH3 = ZERO C W(2) = CNH42S4 W(3) = 2.D0*CNH42S4 + GNH3 C RETURN C C *** END OF SUBROUTINE CALCS1 ****************************************** C END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE CALCN3 C *** CASE N3 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SULRAT > 2.0) C 2. THERE IS ONLY A LIQUID PHASE C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCN3 INCLUDE 'isrpia.inc' DOUBLE PRECISION NH4I, NO3I, NH3AQ, NO3AQ C COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** SETUP PARAMETERS ************************************************ C CALAOU =.TRUE. ! Outer loop activity calculation flag FRST =.TRUE. CALAIN =.TRUE. C C *** AEROSOL WATER CONTENT C MOLALR(4) = MIN(WAER(2),0.5d0*WAER(3)) ! (NH4)2SO4 AML5 = MAX(WAER(3)-2.D0*MOLALR(4),ZERO) ! "free" NH4 MOLALR(5) = MAX(MIN(AML5,WAER(4)), ZERO) ! NH4NO3=MIN("free",NO3) WATER = MOLALR(4)/M0(4) + MOLALR(5)/M0(5) WATER = MAX(WATER, TINY) C C *** SOLVE EQUATIONS ; WITH ITERATIONS FOR ACTIVITY COEF. ************ C DO 10 I=1,NSWEEP A2 = XK2 *R*TEMP/XKW/RH*(GAMA(8)/GAMA(9))**2. CC A21 = XK21*WATER*R*TEMP A3 = XK4*R*TEMP*(WATER/GAMA(10))**2.0 A4 = XK7*(WATER/GAMA(4))**3.0 AKW = XKW *RH*WATER*WATER C C ION CONCENTRATIONS C NH4I = WAER(3) NO3I = WAER(4) SO4I = WAER(2) HSO4I = ZERO C CALL CALCPH (2.D0*SO4I + NO3I - NH4I, HI, OHI) C C AMMONIA ASSOCIATION EQUILIBRIUM C NH3AQ = ZERO NO3AQ = ZERO GG = 2.D0*SO4I + NO3I - NH4I IF (HI.LT.OHI) THEN CALL CALCAMAQ2 (-GG, NH4I, OHI, NH3AQ) HI = AKW/OHI ELSE HI = ZERO CALL CALCNIAQ2 (GG, NO3I, HI, NO3AQ) ! HNO3 C C CONCENTRATION ADJUSTMENTS ; HSO4 minor species. C CALL CALCHS4 (HI, SO4I, ZERO, DEL) SO4I = SO4I - DEL HI = HI - DEL HSO4I = DEL OHI = AKW/HI ENDIF C C *** SAVE CONCENTRATIONS IN MOLAL ARRAY ****************************** C MOLAL (1) = HI MOLAL (3) = NH4I MOLAL (5) = SO4I MOLAL (6) = HSO4I MOLAL (7) = NO3I COH = OHI C CNH42S4 = ZERO CNH4NO3 = ZERO C GASAQ(1) = NH3AQ GASAQ(3) = NO3AQ C GHNO3 = HI*NO3I/A3 GNH3 = NH4I/HI/A2 ! NH3AQ/A21 C C *** CALCULATE ACTIVITIES OR TERMINATE INTERNAL LOOP ****************** C IF (FRST.AND.CALAOU .OR. .NOT.FRST.AND.CALAIN) THEN CALL CALCACT ELSE GOTO 20 ENDIF 10 CONTINUE C C *** RETURN *********************************************************** C 20 RETURN C C *** END OF SUBROUTINE CALCN3 ***************************************** C END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE CALCN2 C *** CASE N2 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SULRAT > 2.0) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : (NH4)2SO4 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCN2 INCLUDE 'isrpia.inc' C COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** SETUP PARAMETERS ************************************************ C CHI1 = MIN(WAER(2),0.5d0*WAER(3)) ! (NH4)2SO4 CHI2 = MAX(WAER(3) - 2.D0*CHI1, ZERO) ! "Free" NH4+ CHI3 = MAX(WAER(4) - CHI2, ZERO) ! "Free" NO3 C PSI2 = CHI2 PSI3 = CHI3 C CALAOU = .TRUE. ! Outer loop activity calculation flag PSI1LO = TINY ! Low limit PSI1HI = CHI1 ! High limit C C *** INITIAL VALUES FOR BISECTION ************************************ C X1 = PSI1HI Y1 = FUNCN2 (X1) IF (Y1.LE.EPS) RETURN ! IF (ABS(Y1).LE.EPS .OR. Y1.LE.ZERO) RETURN YHI= Y1 ! Save Y-value at HI position C C *** ROOT TRACKING ; FOR THE RANGE OF HI AND LO ********************** C DX = (PSI1HI-PSI1LO)/FLOAT(NDIV) DO 10 I=1,NDIV X2 = MAX(X1-DX, ZERO) Y2 = FUNCN2 (X2) IF (SIGN(1.d0,Y1)*SIGN(1.d0,Y2).LT.ZERO) GOTO 20 ! (Y1*Y2.LT.ZERO) X1 = X2 Y1 = Y2 10 CONTINUE C C *** NO SUBDIVISION WITH SOLUTION FOUND C YLO= Y1 ! Save Y-value at Hi position IF (ABS(Y2) .LT. EPS) THEN ! X2 IS A SOLUTION RETURN C C *** { YLO, YHI } < 0.0 THE SOLUTION IS ALWAYS UNDERSATURATED WITH NH3 C ELSE IF (YLO.LT.ZERO .AND. YHI.LT.ZERO) THEN P4 = CHI4 YY = FUNCN2(P4) GOTO 50 C C *** { YLO, YHI } > 0.0 THE SOLUTION IS ALWAYS SUPERSATURATED WITH NH3 C ELSE IF (YLO.GT.ZERO .AND. YHI.GT.ZERO) THEN P4 = TINY YY = FUNCN2(P4) GOTO 50 ELSE CALL PUSHERR (0001, 'CALCN2') ! WARNING ERROR: NO SOLUTION RETURN ENDIF C C *** PERFORM BISECTION *********************************************** C 20 DO 30 I=1,MAXIT X3 = 0.5*(X1+X2) Y3 = FUNCN2 (X3) IF (SIGN(1.d0,Y1)*SIGN(1.d0,Y3) .LE. ZERO) THEN ! (Y1*Y3 .LE. ZERO) Y2 = Y3 X2 = X3 ELSE Y1 = Y3 X1 = X3 ENDIF IF (ABS(X2-X1) .LE. EPS*X1) GOTO 40 30 CONTINUE CALL PUSHERR (0002, 'CALCN2') ! WARNING ERROR: NO CONVERGENCE C C *** CONVERGED ; RETURN ********************************************** C 40 X3 = 0.5*(X1+X2) Y3 = FUNCN2 (X3) 50 CONTINUE RETURN C C *** END OF SUBROUTINE CALCN2 ****************************************** C END C====================================================================== C C *** ISORROPIA CODE C *** FUNCTION FUNCN2 C *** CASE D2 C FUNCTION THAT SOLVES THE SYSTEM OF EQUATIONS FOR CASE D2 ; C AND RETURNS THE VALUE OF THE ZEROED FUNCTION IN FUNCN2. C C======================================================================= C DOUBLE PRECISION FUNCTION FUNCN2 (P1) INCLUDE 'isrpia.inc' DOUBLE PRECISION NH4I, NO3I, NH3AQ, NO3AQ C COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** SETUP PARAMETERS ************************************************ C FRST = .TRUE. CALAIN = .TRUE. PSI1 = P1 C C *** SOLVE EQUATIONS ; WITH ITERATIONS FOR ACTIVITY COEF. ************ C DO 10 I=1,NSWEEP A2 = XK2 *R*TEMP/XKW/RH*(GAMA(8)/GAMA(9))**2. CC A21 = XK21*WATER*R*TEMP A3 = XK4*R*TEMP*(WATER/GAMA(10))**2.0 A4 = XK7*(WATER/GAMA(4))**3.0 AKW = XKW *RH*WATER*WATER C C ION CONCENTRATIONS C NH4I = 2.D0*PSI1 + PSI2 NO3I = PSI2 + PSI3 SO4I = PSI1 HSO4I = ZERO C CALL CALCPH (2.D0*SO4I + NO3I - NH4I, HI, OHI) C C AMMONIA ASSOCIATION EQUILIBRIUM C NH3AQ = ZERO NO3AQ = ZERO GG = 2.D0*SO4I + NO3I - NH4I IF (HI.LT.OHI) THEN CALL CALCAMAQ2 (-GG, NH4I, OHI, NH3AQ) HI = AKW/OHI ELSE HI = ZERO CALL CALCNIAQ2 (GG, NO3I, HI, NO3AQ) ! HNO3 C C CONCENTRATION ADJUSTMENTS ; HSO4 minor species. C CALL CALCHS4 (HI, SO4I, ZERO, DEL) SO4I = SO4I - DEL HI = HI - DEL HSO4I = DEL OHI = AKW/HI ENDIF C C *** SAVE CONCENTRATIONS IN MOLAL ARRAY ****************************** C MOLAL (1) = HI MOLAL (3) = NH4I MOLAL (5) = SO4I MOLAL (6) = HSO4I MOLAL (7) = NO3I COH = OHI C CNH42S4 = CHI1 - PSI1 CNH4NO3 = ZERO C GASAQ(1) = NH3AQ GASAQ(3) = NO3AQ C GHNO3 = HI*NO3I/A3 GNH3 = NH4I/HI/A2 ! NH3AQ/A21 C C *** CALCULATE MOLALR ARRAY, WATER AND ACTIVITIES ********************** C CALL CALCMR C C *** CALCULATE ACTIVITIES OR TERMINATE INTERNAL LOOP ***************** C IF (FRST.AND.CALAOU .OR. .NOT.FRST.AND.CALAIN) THEN CALL CALCACT ELSE GOTO 20 ENDIF 10 CONTINUE C C *** CALCULATE OBJECTIVE FUNCTION ************************************ C 20 FUNCN2= NH4I*NH4I*SO4I/A4 - ONE RETURN C C *** END OF FUNCTION FUNCN2 ******************************************** C END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE CALCN1 C *** CASE N1 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SULRAT > 2.0) C 2. SOLID AEROSOL ONLY C 3. SOLIDS POSSIBLE : (NH4)2SO4, NH4NO3 C C THERE ARE TWO REGIMES DEFINED BY RELATIVE HUMIDITY: C 1. RH < MDRH ; ONLY SOLID PHASE POSSIBLE (SUBROUTINE CALCN1A) C 2. RH >= MDRH ; LIQUID PHASE POSSIBLE (MDRH REGION) C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCN1 INCLUDE 'isrpia.inc' EXTERNAL CALCN1A, CALCN2 C C *** REGIME DEPENDS UPON THE AMBIENT RELATIVE HUMIDITY ***************** C IF (RH.LT.DRMASAN) THEN SCASE = 'N1 ; SUBCASE 1' CALL CALCN1A ! SOLID PHASE ONLY POSSIBLE SCASE = 'N1 ; SUBCASE 1' ELSE SCASE = 'N1 ; SUBCASE 2' CALL CALCMDRP (RH, DRMASAN, DRNH4NO3, CALCN1A, CALCN2) SCASE = 'N1 ; SUBCASE 2' ENDIF C RETURN C C *** END OF SUBROUTINE CALCN1 ****************************************** C END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE CALCN1A C *** CASE N1 ; SUBCASE 1 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SULRAT > 2.0) C 2. SOLID AEROSOL ONLY C 3. SOLIDS POSSIBLE : (NH4)2SO4, NH4NO3 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCN1A INCLUDE 'isrpia.inc' C C *** SETUP PARAMETERS ************************************************* C CCC A1 = XK10/R/TEMP/R/TEMP C C *** CALCULATE AEROSOL COMPOSITION ************************************ C CCC CHI1 = 2.D0*WAER(4) ! Free parameter ; arbitrary value. PSI1 = WAER(4) C C *** The following statment is here to avoid negative NH4+ values in C CALCN? routines that call CALCN1A C PSI2 = MAX(MIN(WAER(2),0.5d0*(WAER(3)-PSI1)),TINY) C CNH4NO3 = PSI1 CNH42S4 = PSI2 C CCC GNH3 = CHI1 + PSI1 + 2.0*PSI2 CCC GHNO3 = A1/(CHI1-PSI1) + PSI1 GNH3 = ZERO GHNO3 = ZERO C W(2) = PSI2 W(3) = GNH3 + PSI1 + 2.0*PSI2 W(4) = GHNO3 + PSI1 C RETURN C C *** END OF SUBROUTINE CALCN1A ***************************************** C END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE CALCQ5 C *** CASE Q5 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SULRAT > 2.0); SODIUM POOR (SODRAT < 2.0) C 2. LIQUID AND SOLID PHASES ARE POSSIBLE C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCQ5 INCLUDE 'isrpia.inc' C DOUBLE PRECISION NH4I, NAI, NO3I, NH3AQ, NO3AQ, CLAQ C COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** SETUP PARAMETERS ************************************************ C FRST =.TRUE. CALAIN =.TRUE. CALAOU =.TRUE. C C *** CALCULATE INITIAL SOLUTION *************************************** C CALL CALCQ1A C PSI1 = CNA2SO4 ! SALTS DISSOLVED PSI4 = CNH4CL PSI5 = CNH4NO3 PSI6 = CNH42S4 C CALL CALCMR ! WATER C NH3AQ = ZERO NO3AQ = ZERO CLAQ = ZERO C C *** SOLVE EQUATIONS ; WITH ITERATIONS FOR ACTIVITY COEF. ************ C DO 10 I=1,NSWEEP AKW = XKW*RH*WATER*WATER ! H2O <==> H+ C C ION CONCENTRATIONS C NAI = WAER(1) SO4I = WAER(2) NH4I = WAER(3) NO3I = WAER(4) CLI = WAER(5) C C SOLUTION ACIDIC OR BASIC? C GG = 2.D0*SO4I + NO3I + CLI - NAI - NH4I IF (GG.GT.TINY) THEN ! H+ in excess BB =-GG CC =-AKW DD = BB*BB - 4.D0*CC HI = 0.5D0*(-BB + SQRT(DD)) OHI= AKW/HI ELSE ! OH- in excess BB = GG CC =-AKW DD = BB*BB - 4.D0*CC OHI= 0.5D0*(-BB + SQRT(DD)) HI = AKW/OHI ENDIF C C UNDISSOCIATED SPECIES EQUILIBRIA C IF (HI.LT.OHI) THEN CALL CALCAMAQ2 (-GG, NH4I, OHI, NH3AQ) HI = AKW/OHI HSO4I = ZERO ELSE GGNO3 = MAX(2.D0*SO4I + NO3I - NAI - NH4I, ZERO) GGCL = MAX(GG-GGNO3, ZERO) IF (GGCL .GT.TINY) CALL CALCCLAQ2 (GGCL, CLI, HI, CLAQ) ! HCl IF (GGNO3.GT.TINY) THEN IF (GGCL.LE.TINY) HI = ZERO CALL CALCNIAQ2 (GGNO3, NO3I, HI, NO3AQ) ! HNO3 ENDIF C C CONCENTRATION ADJUSTMENTS ; HSO4 minor species. C CALL CALCHS4 (HI, SO4I, ZERO, DEL) SO4I = SO4I - DEL HI = HI - DEL HSO4I = DEL OHI = AKW/HI ENDIF C C *** SAVE CONCENTRATIONS IN MOLAL ARRAY ****************************** C MOLAL(1) = HI MOLAL(2) = NAI MOLAL(3) = NH4I MOLAL(4) = CLI MOLAL(5) = SO4I MOLAL(6) = HSO4I MOLAL(7) = NO3I C C *** CALCULATE ACTIVITIES OR TERMINATE INTERNAL LOOP ***************** C IF (FRST.AND.CALAOU .OR. .NOT.FRST.AND.CALAIN) THEN CALL CALCACT ELSE GOTO 20 ENDIF 10 CONTINUE ccc CALL PUSHERR (0002, 'CALCQ5') ! WARNING ERROR: NO CONVERGENCE C C *** CALCULATE GAS / SOLID SPECIES (LIQUID IN MOLAL ALREADY) ********* C 20 A2 = (XK2/XKW)*R*TEMP*(GAMA(10)/GAMA(5))**2. ! NH3 <==> NH4+ A3 = XK4 *R*TEMP*(WATER/GAMA(10))**2. ! HNO3 <==> NO3- A4 = XK3 *R*TEMP*(WATER/GAMA(11))**2. ! HCL <==> CL- C GNH3 = NH4I/HI/A2 GHNO3 = HI*NO3I/A3 GHCL = HI*CLI /A4 C GASAQ(1)= NH3AQ GASAQ(2)= CLAQ GASAQ(3)= NO3AQ C CNH42S4 = ZERO CNH4NO3 = ZERO CNH4CL = ZERO CNACL = ZERO CNANO3 = ZERO CNA2SO4 = ZERO C RETURN C C *** END OF SUBROUTINE CALCQ5 ****************************************** C END C C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE CALCQ4 C *** CASE Q4 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SULRAT > 2.0); SODIUM POOR (SODRAT < 2.0) C 2. LIQUID AND SOLID PHASES ARE POSSIBLE C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCQ4 INCLUDE 'isrpia.inc' C LOGICAL PSCONV1 DOUBLE PRECISION NH4I, NAI, NO3I, NH3AQ, NO3AQ, CLAQ C COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** SETUP PARAMETERS ************************************************ C FRST =.TRUE. CALAIN =.TRUE. CALAOU =.TRUE. C PSCONV1 =.TRUE. PSI1O =-GREAT ROOT3 = ZERO C C *** CALCULATE INITIAL SOLUTION *************************************** C CALL CALCQ1A C CHI1 = CNA2SO4 ! SALTS C PSI1 = CNA2SO4 ! AMOUNT DISSOLVED PSI4 = CNH4CL PSI5 = CNH4NO3 PSI6 = CNH42S4 C CALL CALCMR ! WATER C NAI = WAER(1) ! LIQUID CONCENTRATIONS SO4I = WAER(2) NH4I = WAER(3) NO3I = WAER(4) CLI = WAER(5) HSO4I = ZERO NH3AQ = ZERO NO3AQ = ZERO CLAQ = ZERO C C *** SOLVE EQUATIONS ; WITH ITERATIONS FOR ACTIVITY COEF. ************ C DO 10 I=1,NSWEEP A5 = XK5 *(WATER/GAMA(2))**3. ! Na2SO4 <==> Na+ AKW = XKW*RH*WATER*WATER ! H2O <==> H+ C C SODIUM SULFATE C IF (NAI*NAI*SO4I .GT. A5) THEN BB =-(WAER(2) + WAER(1)) CC = WAER(1)*WAER(2) + 0.25*WAER(1)*WAER(1) DD =-0.25*(WAER(1)*WAER(1)*WAER(2) - A5) CALL POLY3(BB, CC, DD, ROOT3, ISLV) IF (ISLV.NE.0) ROOT3 = TINY ROOT3 = MIN (ROOT3, WAER(1)/2.0, WAER(2), CHI1) ROOT3 = MAX (ROOT3, ZERO) PSI1 = CHI1-ROOT3 ENDIF PSCONV1 = ABS(PSI1-PSI1O) .LE. EPS*PSI1O PSI1O = PSI1 C C ION CONCENTRATIONS ; CORRECTIONS C NAI = WAER(1) - 2.D0*ROOT3 SO4I= WAER(2) - ROOT3 NH4I = WAER(3) NO3I = WAER(4) CLI = WAER(5) C C SOLUTION ACIDIC OR BASIC? C GG = 2.D0*SO4I + NO3I + CLI - NAI - NH4I IF (GG.GT.TINY) THEN ! H+ in excess BB =-GG CC =-AKW DD = BB*BB - 4.D0*CC HI = 0.5D0*(-BB + SQRT(DD)) OHI= AKW/HI ELSE ! OH- in excess BB = GG CC =-AKW DD = BB*BB - 4.D0*CC OHI= 0.5D0*(-BB + SQRT(DD)) HI = AKW/OHI ENDIF C C UNDISSOCIATED SPECIES EQUILIBRIA C IF (HI.LT.OHI) THEN CALL CALCAMAQ2 (-GG, NH4I, OHI, NH3AQ) HI = AKW/OHI HSO4I = ZERO ELSE GGNO3 = MAX(2.D0*SO4I + NO3I - NAI - NH4I, ZERO) GGCL = MAX(GG-GGNO3, ZERO) IF (GGCL .GT.TINY) CALL CALCCLAQ2 (GGCL, CLI, HI, CLAQ) ! HCl IF (GGNO3.GT.TINY) THEN IF (GGCL.LE.TINY) HI = ZERO CALL CALCNIAQ2 (GGNO3, NO3I, HI, NO3AQ) ! HNO3 ENDIF C C CONCENTRATION ADJUSTMENTS ; HSO4 minor species. C CALL CALCHS4 (HI, SO4I, ZERO, DEL) SO4I = SO4I - DEL HI = HI - DEL HSO4I = DEL OHI = AKW/HI ENDIF C C *** SAVE CONCENTRATIONS IN MOLAL ARRAY ****************************** C MOLAL(1) = HI MOLAL(2) = NAI MOLAL(3) = NH4I MOLAL(4) = CLI MOLAL(5) = SO4I MOLAL(6) = HSO4I MOLAL(7) = NO3I C C *** CALCULATE WATER ************************************************** C CALL CALCMR C C *** CALCULATE ACTIVITIES OR TERMINATE INTERNAL LOOP ***************** C IF (FRST.AND.CALAOU .OR. .NOT.FRST.AND.CALAIN) THEN CALL CALCACT ELSE IF (PSCONV1) GOTO 20 ENDIF 10 CONTINUE ccc CALL PUSHERR (0002, 'CALCQ4') ! WARNING ERROR: NO CONVERGENCE C C *** CALCULATE GAS / SOLID SPECIES (LIQUID IN MOLAL ALREADY) ********* C 20 A2 = (XK2/XKW)*R*TEMP*(GAMA(10)/GAMA(5))**2. ! NH3 <==> NH4+ A3 = XK4 *R*TEMP*(WATER/GAMA(10))**2. ! HNO3 <==> NO3- A4 = XK3 *R*TEMP*(WATER/GAMA(11))**2. ! HCL <==> CL- C GNH3 = NH4I/HI/A2 GHNO3 = HI*NO3I/A3 GHCL = HI*CLI /A4 C GASAQ(1)= NH3AQ GASAQ(2)= CLAQ GASAQ(3)= NO3AQ C CNH42S4 = ZERO CNH4NO3 = ZERO CNH4CL = ZERO CNACL = ZERO CNANO3 = ZERO CNA2SO4 = CHI1 - PSI1 C RETURN C C *** END OF SUBROUTINE CALCQ4 ****************************************** C END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE CALCQ3 C *** CASE Q3 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SULRAT > 2.0) ; SODIUM RICH (SODRAT >= 2.0) C 2. SOLID & LIQUID AEROSOL POSSIBLE C 3. SOLIDS POSSIBLE : NH4CL, NA2SO4, NANO3, NACL C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCQ3 INCLUDE 'isrpia.inc' LOGICAL EXNO, EXCL EXTERNAL CALCQ1A, CALCQ4 C C *** REGIME DEPENDS ON AMBIENT RELATIVE HUMIDITY & POSSIBLE SPECIES *** C EXNO = WAER(4).GT.TINY EXCL = WAER(5).GT.TINY C IF (EXNO .OR. EXCL) THEN ! *** NITRATE OR CHLORIDE EXISTS SCASE = 'Q3 ; SUBCASE 1' CALL CALCQ3A SCASE = 'Q3 ; SUBCASE 1' C ELSE ! *** NO CHLORIDE AND NITRATE IF (RH.LT.DRMG3) THEN SCASE = 'Q3 ; SUBCASE 2' CALL CALCQ1A ! SOLID SCASE = 'Q3 ; SUBCASE 2' ELSE SCASE = 'Q3 ; SUBCASE 3' ! MDRH (NH4)2SO4, NA2SO4 CALL CALCMDRP (RH, DRMG3, DRNH42S4, CALCQ1A, CALCQ4) SCASE = 'Q3 ; SUBCASE 3' ENDIF ENDIF C RETURN C C *** END OF SUBROUTINE CALCQ3 ****************************************** C END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE CALCQ3A C *** CASE Q3 ; SUBCASE A C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SULRAT > 2.0); SODIUM POOR (SODRAT < 2.0) C 2. LIQUID AND SOLID PHASES ARE POSSIBLE C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCQ3A INCLUDE 'isrpia.inc' C LOGICAL PSCONV1, PSCONV6 DOUBLE PRECISION NH4I, NAI, NO3I, NH3AQ, NO3AQ, CLAQ C COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** SETUP PARAMETERS ************************************************ C FRST =.TRUE. CALAIN =.TRUE. CALAOU =.TRUE. C PSCONV1 =.TRUE. PSCONV6 =.TRUE. C PSI1O =-GREAT PSI6O =-GREAT C ROOT1 = ZERO ROOT3 = ZERO C C *** CALCULATE INITIAL SOLUTION *************************************** C CALL CALCQ1A C CHI1 = CNA2SO4 ! SALTS CHI4 = CNH4CL CHI6 = CNH42S4 C PSI1 = CNA2SO4 ! AMOUNT DISSOLVED PSI4 = CNH4CL PSI5 = CNH4NO3 PSI6 = CNH42S4 C CALL CALCMR ! WATER C NAI = WAER(1) ! LIQUID CONCENTRATIONS SO4I = WAER(2) NH4I = WAER(3) NO3I = WAER(4) CLI = WAER(5) HSO4I = ZERO NH3AQ = ZERO NO3AQ = ZERO CLAQ = ZERO C C *** SOLVE EQUATIONS ; WITH ITERATIONS FOR ACTIVITY COEF. ************ C DO 10 I=1,NSWEEP A5 = XK5 *(WATER/GAMA(2))**3. ! Na2SO4 <==> Na+ A7 = XK7 *(WATER/GAMA(4))**3. ! (NH4)2SO4 <==> NH4+ AKW = XKW*RH*WATER*WATER ! H2O <==> H+ C C SODIUM SULFATE C IF (NAI*NAI*SO4I .GT. A5) THEN BB =-(WAER(2) + WAER(1) - ROOT1) CC = WAER(1)*(WAER(2) - ROOT1) + 0.25*WAER(1)*WAER(1) DD =-0.25*(WAER(1)*WAER(1)*(WAER(2) - ROOT1) - A5) CALL POLY3(BB, CC, DD, ROOT3, ISLV) IF (ISLV.NE.0) ROOT3 = TINY ROOT3 = MIN (ROOT3, WAER(1)/2.0, WAER(2) - ROOT1, CHI1) ROOT3 = MAX (ROOT3, ZERO) PSI1 = CHI1-ROOT3 ENDIF PSCONV1 = ABS(PSI1-PSI1O) .LE. EPS*PSI1O PSI1O = PSI1 C C AMMONIUM SULFATE C IF (NH4I*NH4I*SO4I .GT. A7) THEN BB =-(WAER(2)+WAER(3)-ROOT3) CC = WAER(3)*(WAER(2)-ROOT3+0.5D0*WAER(3)) DD =-((WAER(2)-ROOT3)*WAER(3)**2.D0 + A7)/4.D0 CALL POLY3(BB, CC, DD, ROOT1, ISLV) IF (ISLV.NE.0) ROOT1 = TINY ROOT1 = MIN(ROOT1, WAER(3), WAER(2)-ROOT3, CHI6) ROOT1 = MAX(ROOT1, ZERO) PSI6 = CHI6-ROOT1 ENDIF PSCONV6 = ABS(PSI6-PSI6O) .LE. EPS*PSI6O PSI6O = PSI6 C C ION CONCENTRATIONS C NAI = WAER(1) - 2.D0*ROOT3 SO4I= WAER(2) - ROOT1 - ROOT3 NH4I= WAER(3) - 2.D0*ROOT1 NO3I= WAER(4) CLI = WAER(5) C C SOLUTION ACIDIC OR BASIC? C GG = 2.D0*SO4I + NO3I + CLI - NAI - NH4I IF (GG.GT.TINY) THEN ! H+ in excess BB =-GG CC =-AKW DD = BB*BB - 4.D0*CC HI = 0.5D0*(-BB + SQRT(DD)) OHI= AKW/HI ELSE ! OH- in excess BB = GG CC =-AKW DD = BB*BB - 4.D0*CC OHI= 0.5D0*(-BB + SQRT(DD)) HI = AKW/OHI ENDIF C C UNDISSOCIATED SPECIES EQUILIBRIA C IF (HI.LT.OHI) THEN CALL CALCAMAQ2 (-GG, NH4I, OHI, NH3AQ) HI = AKW/OHI HSO4I = ZERO ELSE GGNO3 = MAX(2.D0*SO4I + NO3I - NAI - NH4I, ZERO) GGCL = MAX(GG-GGNO3, ZERO) IF (GGCL .GT.TINY) CALL CALCCLAQ2 (GGCL, CLI, HI, CLAQ) ! HCl IF (GGNO3.GT.TINY) THEN IF (GGCL.LE.TINY) HI = ZERO CALL CALCNIAQ2 (GGNO3, NO3I, HI, NO3AQ) ! HNO3 ENDIF C C CONCENTRATION ADJUSTMENTS ; HSO4 minor species. C CALL CALCHS4 (HI, SO4I, ZERO, DEL) SO4I = SO4I - DEL HI = HI - DEL HSO4I = DEL OHI = AKW/HI ENDIF C C *** SAVE CONCENTRATIONS IN MOLAL ARRAY ****************************** C MOLAL(1) = HI MOLAL(2) = NAI MOLAL(3) = NH4I MOLAL(4) = CLI MOLAL(5) = SO4I MOLAL(6) = HSO4I MOLAL(7) = NO3I C C *** CALCULATE WATER ************************************************** C CALL CALCMR C C *** CALCULATE ACTIVITIES OR TERMINATE INTERNAL LOOP ***************** C IF (FRST.AND.CALAOU .OR. .NOT.FRST.AND.CALAIN) THEN CALL CALCACT ELSE IF (PSCONV1 .AND. PSCONV6) GOTO 20 ENDIF 10 CONTINUE ccc CALL PUSHERR (0002, 'CALCQ3A') ! WARNING ERROR: NO CONVERGENCE C C *** CALCULATE GAS / SOLID SPECIES (LIQUID IN MOLAL ALREADY) ********* C 20 A2 = (XK2/XKW)*R*TEMP*(GAMA(10)/GAMA(5))**2. ! NH3 <==> NH4+ A3 = XK4 *R*TEMP*(WATER/GAMA(10))**2. ! HNO3 <==> NO3- A4 = XK3 *R*TEMP*(WATER/GAMA(11))**2. ! HCL <==> CL- C GNH3 = NH4I/HI/A2 GHNO3 = HI*NO3I/A3 GHCL = HI*CLI /A4 C GASAQ(1)= NH3AQ GASAQ(2)= CLAQ GASAQ(3)= NO3AQ C CNH42S4 = CHI6 - PSI6 CNH4NO3 = ZERO CNH4CL = ZERO CNACL = ZERO CNANO3 = ZERO CNA2SO4 = CHI1 - PSI1 C RETURN C C *** END OF SUBROUTINE CALCQ3A ***************************************** C END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE CALCQ2 C *** CASE Q2 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SULRAT > 2.0) ; SODIUM RICH (SODRAT >= 2.0) C 2. SOLID & LIQUID AEROSOL POSSIBLE C 3. SOLIDS POSSIBLE : NH4CL, NA2SO4, NANO3, NACL C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCQ2 INCLUDE 'isrpia.inc' LOGICAL EXNO, EXCL EXTERNAL CALCQ1A, CALCQ3A, CALCQ4 C C *** REGIME DEPENDS ON AMBIENT RELATIVE HUMIDITY & POSSIBLE SPECIES *** C EXNO = WAER(4).GT.TINY EXCL = WAER(5).GT.TINY C IF (EXNO) THEN ! *** NITRATE EXISTS SCASE = 'Q2 ; SUBCASE 1' CALL CALCQ2A SCASE = 'Q2 ; SUBCASE 1' C ELSEIF (.NOT.EXNO .AND. EXCL) THEN ! *** ONLY CHLORIDE EXISTS IF (RH.LT.DRMG2) THEN SCASE = 'Q2 ; SUBCASE 2' CALL CALCQ1A ! SOLID SCASE = 'Q2 ; SUBCASE 2' ELSE SCASE = 'Q2 ; SUBCASE 3' ! MDRH (NH4)2SO4, NA2SO4, NH4CL CALL CALCMDRP (RH, DRMG2, DRNH4CL, CALCQ1A, CALCQ3A) SCASE = 'Q2 ; SUBCASE 3' ENDIF C ELSE ! *** NO CHLORIDE AND NITRATE IF (RH.LT.DRMG3) THEN SCASE = 'Q2 ; SUBCASE 2' CALL CALCQ1A ! SOLID SCASE = 'Q2 ; SUBCASE 2' ELSE SCASE = 'Q2 ; SUBCASE 4' ! MDRH (NH4)2SO4, NA2SO4 CALL CALCMDRP (RH, DRMG3, DRNH42S4, CALCQ1A, CALCQ4) SCASE = 'Q2 ; SUBCASE 4' ENDIF ENDIF C RETURN C C *** END OF SUBROUTINE CALCQ2 ****************************************** C END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE CALCQ2A C *** CASE Q2 ; SUBCASE A C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SULRAT > 2.0); SODIUM POOR (SODRAT < 2.0) C 2. LIQUID AND SOLID PHASES ARE POSSIBLE C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCQ2A INCLUDE 'isrpia.inc' C LOGICAL PSCONV1, PSCONV4, PSCONV6 DOUBLE PRECISION NH4I, NAI, NO3I, NH3AQ, NO3AQ, CLAQ C COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** SETUP PARAMETERS ************************************************ C FRST =.TRUE. CALAIN =.TRUE. CALAOU =.TRUE. C PSCONV1 =.TRUE. PSCONV4 =.TRUE. PSCONV6 =.TRUE. C PSI1O =-GREAT PSI4O =-GREAT PSI6O =-GREAT C ROOT1 = ZERO ROOT2 = ZERO ROOT3 = ZERO C C *** CALCULATE INITIAL SOLUTION *************************************** C CALL CALCQ1A C CHI1 = CNA2SO4 ! SALTS CHI4 = CNH4CL CHI6 = CNH42S4 C PSI1 = CNA2SO4 ! AMOUNT DISSOLVED PSI4 = CNH4CL PSI5 = CNH4NO3 PSI6 = CNH42S4 C CALL CALCMR ! WATER C NAI = WAER(1) ! LIQUID CONCENTRATIONS SO4I = WAER(2) NH4I = WAER(3) NO3I = WAER(4) CLI = WAER(5) HSO4I = ZERO NH3AQ = ZERO NO3AQ = ZERO CLAQ = ZERO C C *** SOLVE EQUATIONS ; WITH ITERATIONS FOR ACTIVITY COEF. ************ C DO 10 I=1,NSWEEP A5 = XK5 *(WATER/GAMA(2))**3. ! Na2SO4 <==> Na+ A14 = XK14*(WATER/GAMA(6))**2. ! NH4Cl <==> NH4+ A7 = XK7 *(WATER/GAMA(4))**3. ! (NH4)2SO4 <==> Na+ AKW = XKW*RH*WATER*WATER ! H2O <==> H+ C C AMMONIUM CHLORIDE C IF (NH4I*CLI .GT. A14) THEN BB =-(WAER(3) + WAER(5) - 2.D0*ROOT1) CC = WAER(5)*(WAER(3) - 2.D0*ROOT1) - A14 DD = BB*BB - 4.D0*CC IF (DD.LT.ZERO) THEN ROOT2 = ZERO ELSE DD = SQRT(DD) ROOT2A= 0.5D0*(-BB+DD) ROOT2B= 0.5D0*(-BB-DD) IF (ZERO.LE.ROOT2A) THEN ROOT2 = ROOT2A ELSE ROOT2 = ROOT2B ENDIF ROOT2 = MIN(ROOT2, WAER(5), WAER(3) - 2.D0*ROOT1, CHI4) ROOT2 = MAX(ROOT2, ZERO) PSI4 = CHI4 - ROOT2 ENDIF ENDIF PSCONV4 = ABS(PSI4-PSI4O) .LE. EPS*PSI4O PSI4O = PSI4 C C SODIUM SULFATE C IF (NAI*NAI*SO4I .GT. A5) THEN BB =-(WAER(2) + WAER(1) - ROOT1) CC = WAER(1)*(WAER(2) - ROOT1) + 0.25*WAER(1)*WAER(1) DD =-0.25*(WAER(1)*WAER(1)*(WAER(2) - ROOT1) - A5) CALL POLY3(BB, CC, DD, ROOT3, ISLV) IF (ISLV.NE.0) ROOT3 = TINY ROOT3 = MIN (ROOT3, WAER(1)/2.0, WAER(2) - ROOT1, CHI1) ROOT3 = MAX (ROOT3, ZERO) PSI1 = CHI1-ROOT3 ENDIF PSCONV1 = ABS(PSI1-PSI1O) .LE. EPS*PSI1O PSI1O = PSI1 C C AMMONIUM SULFATE C IF (NH4I*NH4I*SO4I .GT. A7) THEN BB =-(WAER(2)+WAER(3)-ROOT2-ROOT3) CC = (WAER(3)-ROOT2)*(WAER(2)-ROOT3+0.5D0*(WAER(3)-ROOT2)) DD =-((WAER(2)-ROOT3)*(WAER(3)-ROOT2)**2.D0 + A7)/4.D0 CALL POLY3(BB, CC, DD, ROOT1, ISLV) IF (ISLV.NE.0) ROOT1 = TINY ROOT1 = MIN(ROOT1, WAER(3)-ROOT2, WAER(2)-ROOT3, CHI6) ROOT1 = MAX(ROOT1, ZERO) PSI6 = CHI6-ROOT1 ENDIF PSCONV6 = ABS(PSI6-PSI6O) .LE. EPS*PSI6O PSI6O = PSI6 C C ION CONCENTRATIONS C NAI = WAER(1) - 2.D0*ROOT3 SO4I= WAER(2) - ROOT1 - ROOT3 NH4I= WAER(3) - ROOT2 - 2.D0*ROOT1 NO3I= WAER(4) CLI = WAER(5) - ROOT2 C C SOLUTION ACIDIC OR BASIC? C GG = 2.D0*SO4I + NO3I + CLI - NAI - NH4I IF (GG.GT.TINY) THEN ! H+ in excess BB =-GG CC =-AKW DD = BB*BB - 4.D0*CC HI = 0.5D0*(-BB + SQRT(DD)) OHI= AKW/HI ELSE ! OH- in excess BB = GG CC =-AKW DD = BB*BB - 4.D0*CC OHI= 0.5D0*(-BB + SQRT(DD)) HI = AKW/OHI ENDIF C C UNDISSOCIATED SPECIES EQUILIBRIA C IF (HI.LT.OHI) THEN CALL CALCAMAQ2 (-GG, NH4I, OHI, NH3AQ) HI = AKW/OHI HSO4I = ZERO ELSE GGNO3 = MAX(2.D0*SO4I + NO3I - NAI - NH4I, ZERO) GGCL = MAX(GG-GGNO3, ZERO) IF (GGCL .GT.TINY) CALL CALCCLAQ2 (GGCL, CLI, HI, CLAQ) ! HCl IF (GGNO3.GT.TINY) THEN IF (GGCL.LE.TINY) HI = ZERO CALL CALCNIAQ2 (GGNO3, NO3I, HI, NO3AQ) ! HNO3 ENDIF C C CONCENTRATION ADJUSTMENTS ; HSO4 minor species. C CALL CALCHS4 (HI, SO4I, ZERO, DEL) SO4I = SO4I - DEL HI = HI - DEL HSO4I = DEL OHI = AKW/HI ENDIF C C *** SAVE CONCENTRATIONS IN MOLAL ARRAY ****************************** C MOLAL(1) = HI MOLAL(2) = NAI MOLAL(3) = NH4I MOLAL(4) = CLI MOLAL(5) = SO4I MOLAL(6) = HSO4I MOLAL(7) = NO3I C C *** CALCULATE WATER ************************************************** C CALL CALCMR C C *** CALCULATE ACTIVITIES OR TERMINATE INTERNAL LOOP ***************** C IF (FRST.AND.CALAOU .OR. .NOT.FRST.AND.CALAIN) THEN CALL CALCACT ELSE IF (PSCONV1 .AND. PSCONV4 .AND. PSCONV6) GOTO 20 ENDIF 10 CONTINUE ccc CALL PUSHERR (0002, 'CALCQ2A') ! WARNING ERROR: NO CONVERGENCE C C *** CALCULATE GAS / SOLID SPECIES (LIQUID IN MOLAL ALREADY) ********* C 20 A2 = (XK2/XKW)*R*TEMP*(GAMA(10)/GAMA(5))**2. ! NH3 <==> NH4+ A3 = XK4 *R*TEMP*(WATER/GAMA(10))**2. ! HNO3 <==> NO3- A4 = XK3 *R*TEMP*(WATER/GAMA(11))**2. ! HCL <==> CL- C GNH3 = NH4I/HI/A2 GHNO3 = HI*NO3I/A3 GHCL = HI*CLI /A4 C GASAQ(1)= NH3AQ GASAQ(2)= CLAQ GASAQ(3)= NO3AQ C CNH42S4 = CHI6 - PSI6 CNH4NO3 = ZERO CNH4CL = CHI4 - PSI4 CNACL = ZERO CNANO3 = ZERO CNA2SO4 = CHI1 - PSI1 C RETURN C C *** END OF SUBROUTINE CALCQ2A ***************************************** C END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE CALCQ1 C *** CASE Q1 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SULRAT > 2.0) ; SODIUM POOR (SODRAT < 2.0) C 2. SOLID AEROSOL ONLY C 3. SOLIDS POSSIBLE : NH4NO3, NH4CL, (NH4)2SO4, NA2SO4 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCQ1 INCLUDE 'isrpia.inc' LOGICAL EXNO, EXCL EXTERNAL CALCQ1A, CALCQ2A, CALCQ3A, CALCQ4 C C *** REGIME DEPENDS ON AMBIENT RELATIVE HUMIDITY & POSSIBLE SPECIES *** C EXNO = WAER(4).GT.TINY EXCL = WAER(5).GT.TINY C IF (EXNO .AND. EXCL) THEN ! *** NITRATE & CHLORIDE EXIST IF (RH.LT.DRMG1) THEN SCASE = 'Q1 ; SUBCASE 1' CALL CALCQ1A ! SOLID SCASE = 'Q1 ; SUBCASE 1' ELSE SCASE = 'Q1 ; SUBCASE 2' ! MDRH (NH4)2SO4, NA2SO4, NH4CL, NH4NO3 CALL CALCMDRP (RH, DRMG1, DRNH4NO3, CALCQ1A, CALCQ2A) SCASE = 'Q1 ; SUBCASE 2' ENDIF C ELSE IF (EXNO .AND. .NOT.EXCL) THEN ! *** ONLY NITRATE EXISTS IF (RH.LT.DRMQ1) THEN SCASE = 'Q1 ; SUBCASE 1' CALL CALCQ1A ! SOLID SCASE = 'Q1 ; SUBCASE 1' ELSE SCASE = 'Q1 ; SUBCASE 3' ! MDRH (NH4)2SO4, NA2SO4, NH4NO3 CALL CALCMDRP (RH, DRMQ1, DRNH4NO3, CALCQ1A, CALCQ2A) SCASE = 'Q1 ; SUBCASE 3' ENDIF C ELSE IF (.NOT.EXNO .AND. EXCL) THEN ! *** ONLY CHLORIDE EXISTS IF (RH.LT.DRMG2) THEN SCASE = 'Q1 ; SUBCASE 1' CALL CALCQ1A ! SOLID SCASE = 'Q1 ; SUBCASE 1' ELSE SCASE = 'Q1 ; SUBCASE 4' ! MDRH (NH4)2SO4, NA2SO4, NH4CL CALL CALCMDRP (RH, DRMG2, DRNH4CL, CALCQ1A, CALCQ3A) SCASE = 'Q1 ; SUBCASE 4' ENDIF C ELSE ! *** NO CHLORIDE AND NITRATE IF (RH.LT.DRMG3) THEN SCASE = 'Q1 ; SUBCASE 1' CALL CALCQ1A ! SOLID SCASE = 'Q1 ; SUBCASE 1' ELSE SCASE = 'Q1 ; SUBCASE 5' ! MDRH (NH4)2SO4, NA2SO4 CALL CALCMDRP (RH, DRMG3, DRNH42S4, CALCQ1A, CALCQ4) SCASE = 'Q1 ; SUBCASE 5' ENDIF ENDIF C RETURN C C *** END OF SUBROUTINE CALCQ1 ****************************************** C END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE CALCQ1A C *** CASE Q1 ; SUBCASE 1 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SULRAT > 2.0) ; SODIUM POOR (SODRAT < 2.0) C 2. SOLID AEROSOL ONLY C 3. SOLIDS POSSIBLE : NH4NO3, NH4CL, (NH4)2SO4, NA2SO4 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCQ1A INCLUDE 'isrpia.inc' C C *** CALCULATE SOLIDS ************************************************** C CNA2SO4 = 0.5d0*WAER(1) FRSO4 = MAX (WAER(2)-CNA2SO4, ZERO) C CNH42S4 = MAX (MIN(FRSO4,0.5d0*WAER(3)), TINY) FRNH3 = MAX (WAER(3)-2.D0*CNH42S4, ZERO) C CNH4NO3 = MIN (FRNH3, WAER(4)) CCC FRNO3 = MAX (WAER(4)-CNH4NO3, ZERO) FRNH3 = MAX (FRNH3-CNH4NO3, ZERO) C CNH4CL = MIN (FRNH3, WAER(5)) CCC FRCL = MAX (WAER(5)-CNH4CL, ZERO) FRNH3 = MAX (FRNH3-CNH4CL, ZERO) C C *** OTHER PHASES ****************************************************** C WATER = ZERO C GNH3 = ZERO GHNO3 = ZERO GHCL = ZERO C RETURN C C *** END OF SUBROUTINE CALCQ1A ***************************************** C END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE CALCR6 C *** CASE R6 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SULRAT > 2.0); SODIUM RICH (SODRAT >= 2.0) C 2. THERE IS ONLY A LIQUID PHASE C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCR6 INCLUDE 'isrpia.inc' C DOUBLE PRECISION NH4I, NAI, NO3I, NH3AQ, NO3AQ, CLAQ C COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** SETUP PARAMETERS ************************************************ C CALL CALCR1A C PSI1 = CNA2SO4 PSI2 = CNANO3 PSI3 = CNACL PSI4 = CNH4CL PSI5 = CNH4NO3 C FRST = .TRUE. CALAIN = .TRUE. CALAOU = .TRUE. C C *** CALCULATE WATER ************************************************** C CALL CALCMR C C *** SETUP LIQUID CONCENTRATIONS ************************************** C HSO4I = ZERO NH3AQ = ZERO NO3AQ = ZERO CLAQ = ZERO C C *** SOLVE EQUATIONS ; WITH ITERATIONS FOR ACTIVITY COEF. ************ C DO 10 I=1,NSWEEP AKW = XKW*RH*WATER*WATER ! H2O <==> H+ C NAI = WAER(1) SO4I = WAER(2) NH4I = WAER(3) NO3I = WAER(4) CLI = WAER(5) C C SOLUTION ACIDIC OR BASIC? C GG = 2.D0*WAER(2) + NO3I + CLI - NAI - NH4I IF (GG.GT.TINY) THEN ! H+ in excess BB =-GG CC =-AKW DD = BB*BB - 4.D0*CC HI = 0.5D0*(-BB + SQRT(DD)) OHI= AKW/HI ELSE ! OH- in excess BB = GG CC =-AKW DD = BB*BB - 4.D0*CC OHI= 0.5D0*(-BB + SQRT(DD)) HI = AKW/OHI ENDIF C C UNDISSOCIATED SPECIES EQUILIBRIA C IF (HI.LT.OHI) THEN CALL CALCAMAQ2 (-GG, NH4I, OHI, NH3AQ) HI = AKW/OHI ELSE GGNO3 = MAX(2.D0*SO4I + NO3I - NAI - NH4I, ZERO) GGCL = MAX(GG-GGNO3, ZERO) IF (GGCL .GT.TINY) CALL CALCCLAQ2 (GGCL, CLI, HI, CLAQ) ! HCl IF (GGNO3.GT.TINY) THEN IF (GGCL.LE.TINY) HI = ZERO CALL CALCNIAQ2 (GGNO3, NO3I, HI, NO3AQ) ! HNO3 ENDIF C C CONCENTRATION ADJUSTMENTS ; HSO4 minor species. C CALL CALCHS4 (HI, SO4I, ZERO, DEL) SO4I = SO4I - DEL HI = HI - DEL HSO4I = DEL OHI = AKW/HI ENDIF C C *** SAVE CONCENTRATIONS IN MOLAL ARRAY ****************************** C MOLAL(1) = HI MOLAL(2) = NAI MOLAL(3) = NH4I MOLAL(4) = CLI MOLAL(5) = SO4I MOLAL(6) = HSO4I MOLAL(7) = NO3I C C *** CALCULATE ACTIVITIES OR TERMINATE INTERNAL LOOP ***************** C IF (FRST.AND.CALAOU .OR. .NOT.FRST.AND.CALAIN) THEN CALL CALCACT ELSE GOTO 20 ENDIF 10 CONTINUE ccc CALL PUSHERR (0002, 'CALCR6') ! WARNING ERROR: NO CONVERGENCE C C *** CALCULATE GAS / SOLID SPECIES (LIQUID IN MOLAL ALREADY) ********* C 20 A2 = (XK2/XKW)*R*TEMP*(GAMA(10)/GAMA(5))**2. ! NH3 <==> NH4+ A3 = XK4 *R*TEMP*(WATER/GAMA(10))**2. ! HNO3 <==> NO3- A4 = XK3 *R*TEMP*(WATER/GAMA(11))**2. ! HCL <==> CL- C GNH3 = NH4I/HI/A2 GHNO3 = HI*NO3I/A3 GHCL = HI*CLI /A4 C GASAQ(1) = NH3AQ GASAQ(2) = CLAQ GASAQ(3) = NO3AQ C CNH42S4 = ZERO CNH4NO3 = ZERO CNH4CL = ZERO CNACL = ZERO CNANO3 = ZERO CNA2SO4 = ZERO C RETURN C C *** END OF SUBROUTINE CALCR6 ****************************************** C END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE CALCR5 C *** CASE R5 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SULRAT > 2.0); SODIUM RICH (SODRAT >= 2.0) C 2. LIQUID AND SOLID PHASES ARE POSSIBLE C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCR5 INCLUDE 'isrpia.inc' C LOGICAL PSCONV DOUBLE PRECISION NH4I, NAI, NO3I, NH3AQ, NO3AQ, CLAQ C COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C LOGICAL NEAN, NEAC, NESN, NESC C C *** SETUP PARAMETERS ************************************************ C CALL CALCR1A ! DRY SOLUTION C NEAN = CNH4NO3.LE.TINY ! NH4NO3 ! Water exists? NEAC = CNH4CL .LE.TINY ! NH4CL NESN = CNANO3 .LE.TINY ! NANO3 NESC = CNACL .LE.TINY ! NACL IF (NEAN .AND. NEAC .AND. NESN .AND. NESC) RETURN C CHI1 = CNA2SO4 C PSI1 = CNA2SO4 PSI2 = CNANO3 PSI3 = CNACL PSI4 = CNH4CL PSI5 = CNH4NO3 C PSIO =-GREAT C C *** CALCULATE WATER ************************************************** C CALL CALCMR C FRST = .TRUE. CALAIN = .TRUE. CALAOU = .TRUE. PSCONV = .FALSE. C C *** SETUP LIQUID CONCENTRATIONS ************************************** C NAI = WAER(1) SO4I = WAER(2) NH4I = WAER(3) NO3I = WAER(4) CLI = WAER(5) HSO4I = ZERO NH3AQ = ZERO NO3AQ = ZERO CLAQ = ZERO C C *** SOLVE EQUATIONS ; WITH ITERATIONS FOR ACTIVITY COEF. ************ C DO 10 I=1,NSWEEP A5 = XK5*(WATER/GAMA(2))**3. ! Na2SO4 <==> Na+ AKW = XKW*RH*WATER*WATER ! H2O <==> H+ C C SODIUM SULFATE C ROOT = ZERO IF (NAI*NAI*SO4I .GT. A5) THEN BB =-3.D0*CHI1 CC = 3.D0*CHI1**2.0 DD =-CHI1**3.0 + 0.25D0*A5 CALL POLY3(BB, CC, DD, ROOT, ISLV) IF (ISLV.NE.0) ROOT = TINY ROOT = MIN (MAX(ROOT,ZERO), CHI1) PSI1 = CHI1-ROOT ENDIF PSCONV = ABS(PSI1-PSIO) .LE. EPS*PSIO PSIO = PSI1 C C ION CONCENTRATIONS C NAI = WAER(1) - 2.D0*ROOT SO4I = WAER(2) - ROOT NH4I = WAER(3) NO3I = WAER(4) CLI = WAER(5) C C SOLUTION ACIDIC OR BASIC? C GG = 2.D0*SO4I + NO3I + CLI - NAI - NH4I IF (GG.GT.TINY) THEN ! H+ in excess BB =-GG CC =-AKW DD = BB*BB - 4.D0*CC HI = 0.5D0*(-BB + SQRT(DD)) OHI= AKW/HI ELSE ! OH- in excess BB = GG CC =-AKW DD = BB*BB - 4.D0*CC OHI= 0.5D0*(-BB + SQRT(DD)) HI = AKW/OHI ENDIF C C UNDISSOCIATED SPECIES EQUILIBRIA C IF (HI.LT.OHI) THEN CALL CALCAMAQ2 (-GG, NH4I, OHI, NH3AQ) HI = AKW/OHI ELSE GGNO3 = MAX(2.D0*SO4I + NO3I - NAI - NH4I, ZERO) GGCL = MAX(GG-GGNO3, ZERO) IF (GGCL .GT.TINY) CALL CALCCLAQ2 (GGCL, CLI, HI, CLAQ) ! HCl IF (GGNO3.GT.TINY) THEN IF (GGCL.LE.TINY) HI = ZERO CALL CALCNIAQ2 (GGNO3, NO3I, HI, NO3AQ) ! HNO3 ENDIF C C CONCENTRATION ADJUSTMENTS ; HSO4 minor species. C CALL CALCHS4 (HI, SO4I, ZERO, DEL) SO4I = SO4I - DEL HI = HI - DEL HSO4I = DEL OHI = AKW/HI ENDIF C C *** SAVE CONCENTRATIONS IN MOLAL ARRAY ****************************** C MOLAL(1) = HI MOLAL(2) = NAI MOLAL(3) = NH4I MOLAL(4) = CLI MOLAL(5) = SO4I MOLAL(6) = HSO4I MOLAL(7) = NO3I C C *** CALCULATE WATER ************************************************** C CALL CALCMR C C *** CALCULATE ACTIVITIES OR TERMINATE INTERNAL LOOP ***************** C IF (FRST.AND.CALAOU .OR. .NOT.FRST.AND.CALAIN) THEN CALL CALCACT ELSE IF (PSCONV) GOTO 20 ENDIF 10 CONTINUE ccc CALL PUSHERR (0002, 'CALCR5') ! WARNING ERROR: NO CONVERGENCE C C *** CALCULATE GAS / SOLID SPECIES (LIQUID IN MOLAL ALREADY) ********* C 20 A2 = (XK2/XKW)*R*TEMP*(GAMA(10)/GAMA(5))**2. ! NH3 <==> NH4+ CC A21 = XK21*WATER*R*TEMP A3 = XK4 *R*TEMP*(WATER/GAMA(10))**2. ! HNO3 <==> NO3- A4 = XK3 *R*TEMP*(WATER/GAMA(11))**2. ! HCL <==> CL- C GNH3 = NH4I/HI/A2 ! NH4I*OHI/A2/AKW GHNO3 = HI*NO3I/A3 GHCL = HI*CLI /A4 C GASAQ(1) = NH3AQ GASAQ(2) = CLAQ GASAQ(3) = NO3AQ C CNH42S4 = ZERO CNH4NO3 = ZERO CNH4CL = ZERO CNACL = ZERO CNANO3 = ZERO CNA2SO4 = CHI1 - PSI1 C RETURN C C *** END OF SUBROUTINE CALCR5 ****************************************** C END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE CALCR4 C *** CASE R4 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SULRAT > 2.0) ; SODIUM RICH (SODRAT >= 2.0) C 2. SOLID AEROSOL ONLY C 3. SOLIDS POSSIBLE : NH4NO3, NH4CL, NA2SO4, NANO3, NACL C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCR4 INCLUDE 'isrpia.inc' LOGICAL EXAN, EXAC, EXSN, EXSC EXTERNAL CALCR1A, CALCR5 C C *** SOLVE FOR DRY CASE AND SEE WHICH SOLIDS ARE POSSIBLE ************** C SCASE = 'R4 ; SUBCASE 2' CALL CALCR1A ! SOLID SCASE = 'R4 ; SUBCASE 2' C EXAN = CNH4NO3.GT.TINY ! NH4NO3 EXAC = CNH4CL .GT.TINY ! NH4CL EXSN = CNANO3 .GT.TINY ! NANO3 EXSC = CNACL .GT.TINY ! NACL C C *** REGIME DEPENDS ON RELATIVE HUMIDITY AND POSSIBLE SPECIES ********** C IF (EXAN .OR. EXSN .OR. EXSC) THEN ! *** NH4NO3,NANO3 EXIST IF (RH.GE.DRMH1) THEN SCASE = 'R4 ; SUBCASE 1' CALL CALCR4A SCASE = 'R4 ; SUBCASE 1' ENDIF C ELSE IF (EXAC) THEN ! *** NH4CL EXISTS ONLY IF (RH.GE.DRMR5) THEN SCASE = 'R4 ; SUBCASE 3' CALL CALCMDRP (RH, DRMR5, DRNH4CL, CALCR1A, CALCR5) SCASE = 'R4 ; SUBCASE 3' ENDIF ENDIF C RETURN C C *** END OF SUBROUTINE CALCR4 ****************************************** C END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE CALCR4A C *** CASE R4A C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SULRAT > 2.0); SODIUM RICH (SODRAT >= 2.0) C 2. LIQUID AND SOLID PHASES ARE POSSIBLE C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCR4A INCLUDE 'isrpia.inc' C LOGICAL PSCONV1, PSCONV4 DOUBLE PRECISION NH4I, NAI, NO3I, NH3AQ, NO3AQ, CLAQ C COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** SETUP PARAMETERS ************************************************ C FRST = .TRUE. CALAIN = .TRUE. CALAOU = .TRUE. PSCONV1 = .FALSE. PSCONV4 = .FALSE. PSIO1 =-GREAT PSIO4 =-GREAT C C *** CALCULATE INITIAL SOLUTION *************************************** C CALL CALCR1A C CHI1 = CNA2SO4 ! SALTS CHI4 = CNH4CL C PSI1 = CNA2SO4 PSI2 = CNANO3 PSI3 = CNACL PSI4 = CNH4CL PSI5 = CNH4NO3 C CALL CALCMR ! WATER C NAI = WAER(1) ! LIQUID CONCENTRATIONS SO4I = WAER(2) NH4I = WAER(3) NO3I = WAER(4) CLI = WAER(5) HSO4I = ZERO NH3AQ = ZERO NO3AQ = ZERO CLAQ = ZERO C C *** SOLVE EQUATIONS ; WITH ITERATIONS FOR ACTIVITY COEF. ************ C DO 10 I=1,NSWEEP A5 = XK5 *(WATER/GAMA(2))**3. ! Na2SO4 <==> Na+ A14 = XK14*(WATER/GAMA(6))**2. ! NH4Cl <==> NH4+ AKW = XKW*RH*WATER*WATER ! H2O <==> H+ C C SODIUM SULFATE C ROOT = ZERO IF (NAI*NAI*SO4I .GT. A5) THEN BB =-3.D0*CHI1 CC = 3.D0*CHI1**2.0 DD =-CHI1**3.0 + 0.25D0*A5 CALL POLY3(BB, CC, DD, ROOT, ISLV) IF (ISLV.NE.0) ROOT = TINY ROOT = MIN (MAX(ROOT,ZERO), CHI1) PSI1 = CHI1-ROOT NAI = WAER(1) - 2.D0*ROOT SO4I = WAER(2) - ROOT ENDIF PSCONV1 = ABS(PSI1-PSIO1) .LE. EPS*PSIO1 PSIO1 = PSI1 C C AMMONIUM CHLORIDE C ROOT = ZERO IF (NH4I*CLI .GT. A14) THEN BB =-(NH4I + CLI) CC =-A14 + NH4I*CLI DD = BB*BB - 4.D0*CC ROOT = 0.5D0*(-BB-SQRT(DD)) IF (ROOT.GT.TINY) THEN ROOT = MIN(ROOT, CHI4) PSI4 = CHI4 - ROOT NH4I = WAER(3) - ROOT CLI = WAER(5) - ROOT ENDIF ENDIF PSCONV4 = ABS(PSI4-PSIO4) .LE. EPS*PSIO4 PSIO4 = PSI4 C NO3I = WAER(4) C C SOLUTION ACIDIC OR BASIC? C GG = 2.D0*SO4I + NO3I + CLI - NAI - NH4I IF (GG.GT.TINY) THEN ! H+ in excess BB =-GG CC =-AKW DD = BB*BB - 4.D0*CC HI = 0.5D0*(-BB + SQRT(DD)) OHI= AKW/HI ELSE ! OH- in excess BB = GG CC =-AKW DD = BB*BB - 4.D0*CC OHI= 0.5D0*(-BB + SQRT(DD)) HI = AKW/OHI ENDIF C C UNDISSOCIATED SPECIES EQUILIBRIA C IF (HI.LT.OHI) THEN CALL CALCAMAQ2 (-GG, NH4I, OHI, NH3AQ) HI = AKW/OHI ELSE GGNO3 = MAX(2.D0*SO4I + NO3I - NAI - NH4I, ZERO) GGCL = MAX(GG-GGNO3, ZERO) IF (GGCL .GT.TINY) CALL CALCCLAQ2 (GGCL, CLI, HI, CLAQ) ! HCl IF (GGNO3.GT.TINY) THEN IF (GGCL.LE.TINY) HI = ZERO CALL CALCNIAQ2 (GGNO3, NO3I, HI, NO3AQ) ! HNO3 ENDIF C C CONCENTRATION ADJUSTMENTS ; HSO4 minor species. C CALL CALCHS4 (HI, SO4I, ZERO, DEL) SO4I = SO4I - DEL HI = HI - DEL HSO4I = DEL OHI = AKW/HI ENDIF C C *** SAVE CONCENTRATIONS IN MOLAL ARRAY ****************************** C MOLAL(1) = HI MOLAL(2) = NAI MOLAL(3) = NH4I MOLAL(4) = CLI MOLAL(5) = SO4I MOLAL(6) = HSO4I MOLAL(7) = NO3I C C *** CALCULATE WATER ************************************************** C CALL CALCMR C C *** CALCULATE ACTIVITIES OR TERMINATE INTERNAL LOOP ***************** C IF (FRST.AND.CALAOU .OR. .NOT.FRST.AND.CALAIN) THEN CALL CALCACT ELSE IF (PSCONV1 .AND. PSCONV4) GOTO 20 ENDIF 10 CONTINUE ccc CALL PUSHERR (0002, 'CALCR4A') ! WARNING ERROR: NO CONVERGENCE C C *** CALCULATE GAS / SOLID SPECIES (LIQUID IN MOLAL ALREADY) ********* C 20 A2 = (XK2/XKW)*R*TEMP*(GAMA(10)/GAMA(5))**2. ! NH3 <==> NH4+ A3 = XK4 *R*TEMP*(WATER/GAMA(10))**2. ! HNO3 <==> NO3- A4 = XK3 *R*TEMP*(WATER/GAMA(11))**2. ! HCL <==> CL- C GNH3 = NH4I/HI/A2 GHNO3 = HI*NO3I/A3 GHCL = HI*CLI /A4 C GASAQ(1)= NH3AQ GASAQ(2)= CLAQ GASAQ(3)= NO3AQ C CNH42S4 = ZERO CNH4NO3 = ZERO CNH4CL = CHI4 - PSI4 CNACL = ZERO CNANO3 = ZERO CNA2SO4 = CHI1 - PSI1 C RETURN C C *** END OF SUBROUTINE CALCR4A ***************************************** C END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE CALCR3 C *** CASE R3 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SULRAT > 2.0) ; SODIUM RICH (SODRAT >= 2.0) C 2. SOLID AEROSOL ONLY C 3. SOLIDS POSSIBLE : NH4NO3, NH4CL, NA2SO4, NANO3, NACL C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCR3 INCLUDE 'isrpia.inc' LOGICAL EXAN, EXAC, EXSN, EXSC EXTERNAL CALCR1A, CALCR4A, CALCR5 C C *** SOLVE FOR DRY CASE AND SEE WHICH SOLIDS ARE POSSIBLE ************** C SCASE = 'R3 ; SUBCASE 2' CALL CALCR1A ! SOLID SCASE = 'R3 ; SUBCASE 2' C EXAN = CNH4NO3.GT.TINY ! NH4NO3 EXAC = CNH4CL .GT.TINY ! NH4CL EXSN = CNANO3 .GT.TINY ! NANO3 EXSC = CNACL .GT.TINY ! NACL C C *** REGIME DEPENDS ON RELATIVE HUMIDITY AND POSSIBLE SPECIES ********** C IF (EXAN .OR. EXSN) THEN ! *** NH4NO3,NANO3 EXIST IF (RH.GE.DRMH1) THEN SCASE = 'R3 ; SUBCASE 1' CALL CALCR3A SCASE = 'R3 ; SUBCASE 1' ENDIF C ELSE IF (.NOT.EXAN .AND. .NOT.EXSN) THEN ! *** NH4NO3,NANO3 = 0 IF ( EXAC .AND. EXSC) THEN IF (RH.GE.DRMR4) THEN SCASE = 'R3 ; SUBCASE 3' CALL CALCMDRP (RH, DRMR4, DRNACL, CALCR1A, CALCR4A) SCASE = 'R3 ; SUBCASE 3' ENDIF ELSE IF (.NOT.EXAC .AND. EXSC) THEN IF (RH.GE.DRMR2) THEN SCASE = 'R3 ; SUBCASE 4' CALL CALCMDRP (RH, DRMR2, DRNACL, CALCR1A, CALCR4A) SCASE = 'R3 ; SUBCASE 4' ENDIF ELSE IF ( EXAC .AND. .NOT.EXSC) THEN IF (RH.GE.DRMR5) THEN SCASE = 'R3 ; SUBCASE 5' CALL CALCMDRP (RH, DRMR5, DRNACL, CALCR1A, CALCR5) SCASE = 'R3 ; SUBCASE 5' ENDIF ENDIF C ENDIF C RETURN C C *** END OF SUBROUTINE CALCR3 ****************************************** C END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE CALCR3A C *** CASE R3A C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SULRAT > 2.0); SODIUM RICH (SODRAT >= 2.0) C 2. LIQUID AND SOLID PHASES ARE POSSIBLE C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCR3A INCLUDE 'isrpia.inc' C LOGICAL PSCONV1, PSCONV3, PSCONV4 DOUBLE PRECISION NH4I, NAI, NO3I, NH3AQ, NO3AQ, CLAQ C COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** SETUP PARAMETERS ************************************************ C FRST =.TRUE. CALAIN =.TRUE. CALAOU =.TRUE. PSCONV1 =.TRUE. PSCONV3 =.TRUE. PSCONV4 =.TRUE. PSI1O =-GREAT PSI3O =-GREAT PSI4O =-GREAT ROOT1 = ZERO ROOT2 = ZERO ROOT3 = ZERO C C *** CALCULATE INITIAL SOLUTION *************************************** C CALL CALCR1A C CHI1 = CNA2SO4 ! SALTS CHI4 = CNH4CL CHI3 = CNACL C PSI1 = CNA2SO4 PSI2 = CNANO3 PSI3 = CNACL PSI4 = CNH4CL PSI5 = CNH4NO3 C CALL CALCMR ! WATER C NAI = WAER(1) ! LIQUID CONCENTRATIONS SO4I = WAER(2) NH4I = WAER(3) NO3I = WAER(4) CLI = WAER(5) HSO4I = ZERO NH3AQ = ZERO NO3AQ = ZERO CLAQ = ZERO C MOLAL(1) = ZERO MOLAL(2) = NAI MOLAL(3) = NH4I MOLAL(4) = CLI MOLAL(5) = SO4I MOLAL(6) = HSO4I MOLAL(7) = NO3I C CALL CALCACT ! CALCULATE ACTIVITY COEFFICIENTS C C *** SOLVE EQUATIONS ; WITH ITERATIONS FOR ACTIVITY COEF. ************ C DO 10 I=1,NSWEEP A5 = XK5 *(WATER/GAMA(2))**3. ! Na2SO4 <==> Na+ A8 = XK8 *(WATER/GAMA(1))**2. ! NaCl <==> Na+ A14 = XK14*(WATER/GAMA(6))**2. ! NH4Cl <==> NH4+ AKW = XKW*RH*WATER*WATER ! H2O <==> H+ C C AMMONIUM CHLORIDE C IF (NH4I*CLI .GT. A14) THEN BB =-(WAER(3) + WAER(5) - ROOT3) CC =-A14 + NH4I*(WAER(5) - ROOT3) DD = MAX(BB*BB - 4.D0*CC, ZERO) ROOT2A= 0.5D0*(-BB+SQRT(DD)) ROOT2B= 0.5D0*(-BB-SQRT(DD)) IF (ZERO.LE.ROOT2A) THEN ROOT2 = ROOT2A ELSE ROOT2 = ROOT2B ENDIF ROOT2 = MIN(MAX(ZERO, ROOT2), MAX(WAER(5)-ROOT3,ZERO), & CHI4, WAER(3)) PSI4 = CHI4 - ROOT2 ENDIF PSCONV4 = ABS(PSI4-PSI4O) .LE. EPS*PSI4O PSI4O = PSI4 C C SODIUM SULFATE C IF (NAI*NAI*SO4I .GT. A5) THEN BB =-(CHI1 + WAER(1) - ROOT3) CC = 0.25D0*(WAER(1) - ROOT3)*(4.D0*CHI1+WAER(1)-ROOT3) DD =-0.25D0*(CHI1*(WAER(1)-ROOT3)**2.D0 - A5) CALL POLY3(BB, CC, DD, ROOT1, ISLV) IF (ISLV.NE.0) ROOT1 = TINY ROOT1 = MIN (MAX(ROOT1,ZERO), MAX(WAER(1)-ROOT3,ZERO), & CHI1, WAER(2)) PSI1 = CHI1-ROOT1 ENDIF PSCONV1 = ABS(PSI1-PSI1O) .LE. EPS*PSI1O PSI1O = PSI1 C C ION CONCENTRATIONS C NAI = WAER(1) - (2.D0*ROOT1 + ROOT3) SO4I= WAER(2) - ROOT1 NH4I= WAER(3) - ROOT2 CLI = WAER(5) - (ROOT3 + ROOT2) NO3I= WAER(4) C C SODIUM CHLORIDE ; To obtain new value for ROOT3 C IF (NAI*CLI .GT. A8) THEN BB =-((CHI1-2.D0*ROOT1) + (WAER(5) - ROOT2)) CC = (CHI1-2.D0*ROOT1)*(WAER(5) - ROOT2) - A8 DD = SQRT(MAX(BB*BB - 4.D0*CC, TINY)) ROOT3A= 0.5D0*(-BB-SQRT(DD)) ROOT3B= 0.5D0*(-BB+SQRT(DD)) IF (ZERO.LE.ROOT3A) THEN ROOT3 = ROOT3A ELSE ROOT3 = ROOT3B ENDIF ROOT3 = MIN(MAX(ROOT3, ZERO), CHI3) PSI3 = CHI3-ROOT3 ENDIF PSCONV3 = ABS(PSI3-PSI3O) .LE. EPS*PSI3O PSI3O = PSI3 C C SOLUTION ACIDIC OR BASIC? C GG = 2.D0*SO4I + NO3I + CLI - NAI - NH4I IF (GG.GT.TINY) THEN ! H+ in excess BB =-GG CC =-AKW DD = BB*BB - 4.D0*CC HI = 0.5D0*(-BB + SQRT(DD)) OHI= AKW/HI ELSE ! OH- in excess BB = GG CC =-AKW DD = BB*BB - 4.D0*CC OHI= 0.5D0*(-BB + SQRT(DD)) HI = AKW/OHI ENDIF C C UNDISSOCIATED SPECIES EQUILIBRIA C IF (HI.LT.OHI) THEN CALL CALCAMAQ2 (-GG, NH4I, OHI, NH3AQ) HI = AKW/OHI ELSE GGNO3 = MAX(2.D0*SO4I + NO3I - NAI - NH4I, ZERO) GGCL = MAX(GG-GGNO3, ZERO) IF (GGCL .GT.TINY) CALL CALCCLAQ2 (GGCL, CLI, HI, CLAQ) ! HCl IF (GGNO3.GT.TINY) THEN IF (GGCL.LE.TINY) HI = ZERO CALL CALCNIAQ2 (GGNO3, NO3I, HI, NO3AQ) ! HNO3 ENDIF C C CONCENTRATION ADJUSTMENTS ; HSO4 minor species. C CALL CALCHS4 (HI, SO4I, ZERO, DEL) SO4I = SO4I - DEL HI = HI - DEL HSO4I = DEL OHI = AKW/HI ENDIF C C *** SAVE CONCENTRATIONS IN MOLAL ARRAY ****************************** C MOLAL(1) = HI MOLAL(2) = NAI MOLAL(3) = NH4I MOLAL(4) = CLI MOLAL(5) = SO4I MOLAL(6) = HSO4I MOLAL(7) = NO3I C C *** CALCULATE WATER ************************************************** C CALL CALCMR C C *** CALCULATE ACTIVITIES OR TERMINATE INTERNAL LOOP ***************** C IF (FRST.AND.CALAOU .OR. .NOT.FRST.AND.CALAIN) THEN CALL CALCACT ELSE IF (PSCONV1.AND.PSCONV3.AND.PSCONV4) GOTO 20 ENDIF 10 CONTINUE ccc CALL PUSHERR (0002, 'CALCR3A') ! WARNING ERROR: NO CONVERGENCE C C *** CALCULATE GAS / SOLID SPECIES (LIQUID IN MOLAL ALREADY) ********* C 20 IF (CLI.LE.TINY .AND. WAER(5).GT.TINY) THEN !No disslv Cl-;solid only DO 30 I=1,NIONS MOLAL(I) = ZERO 30 CONTINUE DO 40 I=1,NGASAQ GASAQ(I) = ZERO 40 CONTINUE CALL CALCR1A ELSE A2 = (XK2/XKW)*R*TEMP*(GAMA(10)/GAMA(5))**2. ! NH3 <==> NH4+ A3 = XK4 *R*TEMP*(WATER/GAMA(10))**2. ! HNO3 <==> NO3- A4 = XK3 *R*TEMP*(WATER/GAMA(11))**2. ! HCL <==> CL- C GNH3 = NH4I/HI/A2 GHNO3 = HI*NO3I/A3 GHCL = HI*CLI /A4 C GASAQ(1)= NH3AQ GASAQ(2)= CLAQ GASAQ(3)= NO3AQ C CNH42S4 = ZERO CNH4NO3 = ZERO CNH4CL = CHI4 - PSI4 CNACL = CHI3 - PSI3 CNANO3 = ZERO CNA2SO4 = CHI1 - PSI1 ENDIF C RETURN C C *** END OF SUBROUTINE CALCR3A ***************************************** C END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE CALCR2 C *** CASE R2 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SULRAT > 2.0) ; SODIUM RICH (SODRAT >= 2.0) C 2. SOLID AEROSOL ONLY C 3. SOLIDS POSSIBLE : NH4NO3, NH4CL, NA2SO4, NANO3, NACL C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCR2 INCLUDE 'isrpia.inc' LOGICAL EXAN, EXAC, EXSN, EXSC EXTERNAL CALCR1A, CALCR3A, CALCR4A, CALCR5 C C *** SOLVE FOR DRY CASE AND SEE WHICH SOLIDS ARE POSSIBLE ************** C SCASE = 'R2 ; SUBCASE 2' CALL CALCR1A ! SOLID SCASE = 'R2 ; SUBCASE 2' C EXAN = CNH4NO3.GT.TINY ! NH4NO3 EXAC = CNH4CL .GT.TINY ! NH4CL EXSN = CNANO3 .GT.TINY ! NANO3 EXSC = CNACL .GT.TINY ! NACL C C *** REGIME DEPENDS ON RELATIVE HUMIDITY AND POSSIBLE SPECIES ********** C IF (EXAN) THEN ! *** NH4NO3 EXISTS IF (RH.GE.DRMH1) THEN SCASE = 'R2 ; SUBCASE 1' CALL CALCR2A SCASE = 'R2 ; SUBCASE 1' ENDIF C ELSE IF (.NOT.EXAN) THEN ! *** NH4NO3 = 0 IF ( EXAC .AND. EXSN .AND. EXSC) THEN IF (RH.GE.DRMH2) THEN SCASE = 'R2 ; SUBCASE 3' CALL CALCMDRP (RH, DRMH2, DRNANO3, CALCR1A, CALCR3A) SCASE = 'R2 ; SUBCASE 3' ENDIF ELSE IF (.NOT.EXAC .AND. EXSN .AND. EXSC) THEN IF (RH.GE.DRMR1) THEN SCASE = 'R2 ; SUBCASE 4' CALL CALCMDRP (RH, DRMR1, DRNANO3, CALCR1A, CALCR3A) SCASE = 'R2 ; SUBCASE 4' ENDIF ELSE IF (.NOT.EXAC .AND. .NOT.EXSN .AND. EXSC) THEN IF (RH.GE.DRMR2) THEN SCASE = 'R2 ; SUBCASE 5' CALL CALCMDRP (RH, DRMR2, DRNACL, CALCR1A, CALCR4A) SCASE = 'R2 ; SUBCASE 5' ENDIF ELSE IF (.NOT.EXAC .AND. EXSN .AND. .NOT.EXSC) THEN IF (RH.GE.DRMR3) THEN SCASE = 'R2 ; SUBCASE 6' CALL CALCMDRP (RH, DRMR3, DRNANO3, CALCR1A, CALCR3A) SCASE = 'R2 ; SUBCASE 6' ENDIF ELSE IF ( EXAC .AND. .NOT.EXSN .AND. EXSC) THEN IF (RH.GE.DRMR4) THEN SCASE = 'R2 ; SUBCASE 7' CALL CALCMDRP (RH, DRMR4, DRNACL, CALCR1A, CALCR4A) SCASE = 'R2 ; SUBCASE 7' ENDIF ELSE IF ( EXAC .AND. .NOT.EXSN .AND. .NOT.EXSC) THEN IF (RH.GE.DRMR5) THEN SCASE = 'R2 ; SUBCASE 8' CALL CALCMDRP (RH, DRMR5, DRNH4CL, CALCR1A, CALCR5) SCASE = 'R2 ; SUBCASE 8' ENDIF ELSE IF ( EXAC .AND. EXSN .AND. .NOT.EXSC) THEN IF (RH.GE.DRMR6) THEN SCASE = 'R2 ; SUBCASE 9' CALL CALCMDRP (RH, DRMR6, DRNANO3, CALCR1A, CALCR3A) SCASE = 'R2 ; SUBCASE 9' ENDIF ENDIF C ENDIF C RETURN C C *** END OF SUBROUTINE CALCR2 ****************************************** C END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE CALCR2A C *** CASE R2A C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SULRAT > 2.0); SODIUM RICH (SODRAT >= 2.0) C 2. LIQUID AND SOLID PHASES ARE POSSIBLE C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCR2A INCLUDE 'isrpia.inc' C LOGICAL PSCONV1, PSCONV2, PSCONV3, PSCONV4 DOUBLE PRECISION NH4I, NAI, NO3I, NH3AQ, NO3AQ, CLAQ C COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** SETUP PARAMETERS ************************************************ C FRST =.TRUE. CALAIN =.TRUE. CALAOU =.TRUE. C PSCONV1 =.TRUE. PSCONV2 =.TRUE. PSCONV3 =.TRUE. PSCONV4 =.TRUE. C PSI1O =-GREAT PSI2O =-GREAT PSI3O =-GREAT PSI4O =-GREAT C ROOT1 = ZERO ROOT2 = ZERO ROOT3 = ZERO ROOT4 = ZERO C C *** CALCULATE INITIAL SOLUTION *************************************** C CALL CALCR1A C CHI1 = CNA2SO4 ! SALTS CHI2 = CNANO3 CHI3 = CNACL CHI4 = CNH4CL C PSI1 = CNA2SO4 PSI2 = CNANO3 PSI3 = CNACL PSI4 = CNH4CL PSI5 = CNH4NO3 C CALL CALCMR ! WATER C NAI = WAER(1) ! LIQUID CONCENTRATIONS SO4I = WAER(2) NH4I = WAER(3) NO3I = WAER(4) CLI = WAER(5) HSO4I = ZERO NH3AQ = ZERO NO3AQ = ZERO CLAQ = ZERO C MOLAL(1) = ZERO MOLAL(2) = NAI MOLAL(3) = NH4I MOLAL(4) = CLI MOLAL(5) = SO4I MOLAL(6) = HSO4I MOLAL(7) = NO3I C CALL CALCACT ! CALCULATE ACTIVITY COEFFICIENTS C C *** SOLVE EQUATIONS ; WITH ITERATIONS FOR ACTIVITY COEF. ************ C DO 10 I=1,NSWEEP A5 = XK5 *(WATER/GAMA(2))**3. ! Na2SO4 <==> Na+ A8 = XK8 *(WATER/GAMA(1))**2. ! NaCl <==> Na+ A9 = XK9 *(WATER/GAMA(3))**2. ! NaNO3 <==> Na+ A14 = XK14*(WATER/GAMA(6))**2. ! NH4Cl <==> NH4+ AKW = XKW*RH*WATER*WATER ! H2O <==> H+ C C AMMONIUM CHLORIDE C IF (NH4I*CLI .GT. A14) THEN BB =-(WAER(3) + WAER(5) - ROOT3) CC = NH4I*(WAER(5) - ROOT3) - A14 DD = MAX(BB*BB - 4.D0*CC, ZERO) DD = SQRT(DD) ROOT2A= 0.5D0*(-BB+DD) ROOT2B= 0.5D0*(-BB-DD) IF (ZERO.LE.ROOT2A) THEN ROOT2 = ROOT2A ELSE ROOT2 = ROOT2B ENDIF ROOT2 = MIN(MAX(ROOT2, ZERO), CHI4) PSI4 = CHI4 - ROOT2 ENDIF PSCONV4 = ABS(PSI4-PSI4O) .LE. EPS*PSI4O PSI4O = PSI4 C C SODIUM SULFATE C IF (NAI*NAI*SO4I .GT. A5) THEN BB =-(WAER(2) + WAER(1) - ROOT3 - ROOT4) CC = WAER(1)*(2.D0*ROOT3 + 2.D0*ROOT4 - 4.D0*WAER(2) - ONE) & -(ROOT3 + ROOT4)**2.0 + 4.D0*WAER(2)*(ROOT3 + ROOT4) CC =-0.25*CC DD = WAER(1)*WAER(2)*(ONE - 2.D0*ROOT3 - 2.D0*ROOT4) + & WAER(2)*(ROOT3 + ROOT4)**2.0 - A5 DD =-0.25*DD CALL POLY3(BB, CC, DD, ROOT1, ISLV) IF (ISLV.NE.0) ROOT1 = TINY ROOT1 = MIN (MAX(ROOT1,ZERO), CHI1) PSI1 = CHI1-ROOT1 ENDIF PSCONV1 = ABS(PSI1-PSI1O) .LE. EPS*PSI1O PSI1O = PSI1 C C SODIUM NITRATE C IF (NAI*NO3I .GT. A9) THEN BB =-(WAER(4) + WAER(1) - 2.D0*ROOT1 - ROOT3) CC = WAER(4)*(WAER(1) - 2.D0*ROOT1 - ROOT3) - A9 DD = SQRT(MAX(BB*BB - 4.D0*CC, TINY)) ROOT4A= 0.5D0*(-BB-DD) ROOT4B= 0.5D0*(-BB+DD) IF (ZERO.LE.ROOT4A) THEN ROOT4 = ROOT4A ELSE ROOT4 = ROOT4B ENDIF ROOT4 = MIN(MAX(ROOT4, ZERO), CHI2) PSI2 = CHI2-ROOT4 ENDIF PSCONV2 = ABS(PSI2-PSI2O) .LE. EPS*PSI2O PSI2O = PSI2 C C ION CONCENTRATIONS C NAI = WAER(1) - (2.D0*ROOT1 + ROOT3 + ROOT4) SO4I= WAER(2) - ROOT1 NH4I= WAER(3) - ROOT2 NO3I= WAER(4) - ROOT4 CLI = WAER(5) - (ROOT3 + ROOT2) C C SODIUM CHLORIDE ; To obtain new value for ROOT3 C IF (NAI*CLI .GT. A8) THEN BB =-(WAER(1) - 2.D0*ROOT1 + WAER(5) - ROOT2 - ROOT4) CC = (WAER(5) + ROOT2)*(WAER(1) - 2.D0*ROOT1 - ROOT4) - A8 DD = SQRT(MAX(BB*BB - 4.D0*CC, TINY)) ROOT3A= 0.5D0*(-BB-DD) ROOT3B= 0.5D0*(-BB+DD) IF (ZERO.LE.ROOT3A) THEN ROOT3 = ROOT3A ELSE ROOT3 = ROOT3B ENDIF ROOT3 = MIN(MAX(ROOT3, ZERO), CHI3) PSI3 = CHI3-ROOT3 ENDIF PSCONV3 = ABS(PSI3-PSI3O) .LE. EPS*PSI3O PSI3O = PSI3 C C SOLUTION ACIDIC OR BASIC? C GG = 2.D0*SO4I + NO3I + CLI - NAI - NH4I IF (GG.GT.TINY) THEN ! H+ in excess BB =-GG CC =-AKW DD = BB*BB - 4.D0*CC HI = 0.5D0*(-BB + SQRT(DD)) OHI= AKW/HI ELSE ! OH- in excess BB = GG CC =-AKW DD = BB*BB - 4.D0*CC OHI= 0.5D0*(-BB + SQRT(DD)) HI = AKW/OHI ENDIF C C UNDISSOCIATED SPECIES EQUILIBRIA C IF (HI.LT.OHI) THEN CALL CALCAMAQ2 (-GG, NH4I, OHI, NH3AQ) HI = AKW/OHI ELSE GGNO3 = MAX(2.D0*SO4I + NO3I - NAI - NH4I, ZERO) GGCL = MAX(GG-GGNO3, ZERO) IF (GGCL .GT.TINY) CALL CALCCLAQ2 (GGCL, CLI, HI, CLAQ) ! HCl IF (GGNO3.GT.TINY) THEN IF (GGCL.LE.TINY) HI = ZERO CALL CALCNIAQ2 (GGNO3, NO3I, HI, NO3AQ) ! HNO3 ENDIF C C CONCENTRATION ADJUSTMENTS ; HSO4 minor species. C CALL CALCHS4 (HI, SO4I, ZERO, DEL) SO4I = SO4I - DEL HI = HI - DEL HSO4I = DEL OHI = AKW/HI ENDIF C C *** SAVE CONCENTRATIONS IN MOLAL ARRAY ****************************** C MOLAL(1) = HI MOLAL(2) = NAI MOLAL(3) = NH4I MOLAL(4) = CLI MOLAL(5) = SO4I MOLAL(6) = HSO4I MOLAL(7) = NO3I C C *** CALCULATE WATER ************************************************** C CALL CALCMR C C *** CALCULATE ACTIVITIES OR TERMINATE INTERNAL LOOP ***************** C IF (FRST.AND.CALAOU .OR. .NOT.FRST.AND.CALAIN) THEN CALL CALCACT ELSE IF (PSCONV1.AND.PSCONV2.AND.PSCONV3.AND.PSCONV4) GOTO 20 ENDIF 10 CONTINUE ccc CALL PUSHERR (0002, 'CALCR2A') ! WARNING ERROR: NO CONVERGENCE C C *** CALCULATE GAS / SOLID SPECIES (LIQUID IN MOLAL ALREADY) ********* C 20 IF (CLI.LE.TINY .AND. WAER(5).GT.TINY) THEN !No disslv Cl-;solid only DO 30 I=1,NIONS MOLAL(I) = ZERO 30 CONTINUE DO 40 I=1,NGASAQ GASAQ(I) = ZERO 40 CONTINUE CALL CALCR1A ELSE ! OK, aqueous phase present A2 = (XK2/XKW)*R*TEMP*(GAMA(10)/GAMA(5))**2. ! NH3 <==> NH4+ A3 = XK4 *R*TEMP*(WATER/GAMA(10))**2. ! HNO3 <==> NO3- A4 = XK3 *R*TEMP*(WATER/GAMA(11))**2. ! HCL <==> CL- C GNH3 = NH4I/HI/A2 GHNO3 = HI*NO3I/A3 GHCL = HI*CLI /A4 C GASAQ(1)= NH3AQ GASAQ(2)= CLAQ GASAQ(3)= NO3AQ C CNH42S4 = ZERO CNH4NO3 = ZERO CNH4CL = CHI4 - PSI4 CNACL = CHI3 - PSI3 CNANO3 = CHI2 - PSI2 CNA2SO4 = CHI1 - PSI1 ENDIF C RETURN C C *** END OF SUBROUTINE CALCR2A ***************************************** C END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE CALCR1 C *** CASE R1 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SULRAT > 2.0) ; SODIUM RICH (SODRAT >= 2.0) C 2. SOLID AEROSOL ONLY C 3. SOLIDS POSSIBLE : NH4NO3, NH4CL, NA2SO4, NANO3, NACL C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCR1 INCLUDE 'isrpia.inc' LOGICAL EXAN, EXAC, EXSN, EXSC EXTERNAL CALCR1A, CALCR2A, CALCR3A, CALCR4A, CALCR5 C C *** SOLVE FOR DRY CASE AND SEE WHICH SOLIDS ARE POSSIBLE ************** C SCASE = 'R1 ; SUBCASE 1' CALL CALCR1A ! SOLID SCASE = 'R1 ; SUBCASE 1' C EXAN = CNH4NO3.GT.TINY ! NH4NO3 EXAC = CNH4CL .GT.TINY ! NH4CL EXSN = CNANO3 .GT.TINY ! NANO3 EXSC = CNACL .GT.TINY ! NACL C C *** REGIME DEPENDS ON RELATIVE HUMIDITY AND POSSIBLE SPECIES ********** C IF (EXAN.AND.EXAC.AND.EXSC.AND.EXSN) THEN ! *** ALL EXIST IF (RH.GE.DRMH1) THEN SCASE = 'R1 ; SUBCASE 2' ! MDRH CALL CALCMDRP (RH, DRMH1, DRNH4NO3, CALCR1A, CALCR2A) SCASE = 'R1 ; SUBCASE 2' ENDIF C ELSE IF (.NOT.EXAN) THEN ! *** NH4NO3 = 0 IF ( EXAC .AND. EXSN .AND. EXSC) THEN IF (RH.GE.DRMH2) THEN SCASE = 'R1 ; SUBCASE 3' CALL CALCMDRP (RH, DRMH2, DRNANO3, CALCR1A, CALCR3A) SCASE = 'R1 ; SUBCASE 3' ENDIF ELSE IF (.NOT.EXAC .AND. EXSN .AND. EXSC) THEN IF (RH.GE.DRMR1) THEN SCASE = 'R1 ; SUBCASE 4' CALL CALCMDRP (RH, DRMR1, DRNANO3, CALCR1A, CALCR3A) SCASE = 'R1 ; SUBCASE 4' ENDIF ELSE IF (.NOT.EXAC .AND. .NOT.EXSN .AND. EXSC) THEN IF (RH.GE.DRMR2) THEN SCASE = 'R1 ; SUBCASE 5' CALL CALCMDRP (RH, DRMR2, DRNACL, CALCR1A, CALCR3A) !, CALCR4A) SCASE = 'R1 ; SUBCASE 5' ENDIF ELSE IF (.NOT.EXAC .AND. EXSN .AND. .NOT.EXSC) THEN IF (RH.GE.DRMR3) THEN SCASE = 'R1 ; SUBCASE 6' CALL CALCMDRP (RH, DRMR3, DRNANO3, CALCR1A, CALCR3A) SCASE = 'R1 ; SUBCASE 6' ENDIF ELSE IF ( EXAC .AND. .NOT.EXSN .AND. EXSC) THEN IF (RH.GE.DRMR4) THEN SCASE = 'R1 ; SUBCASE 7' CALL CALCMDRP (RH, DRMR4, DRNACL, CALCR1A, CALCR3A) !, CALCR4A) SCASE = 'R1 ; SUBCASE 7' ENDIF ELSE IF ( EXAC .AND. .NOT.EXSN .AND. .NOT.EXSC) THEN IF (RH.GE.DRMR5) THEN SCASE = 'R1 ; SUBCASE 8' CALL CALCMDRP (RH, DRMR5, DRNH4CL, CALCR1A, CALCR3A) !, CALCR5) SCASE = 'R1 ; SUBCASE 8' ENDIF ELSE IF ( EXAC .AND. EXSN .AND. .NOT.EXSC) THEN IF (RH.GE.DRMR6) THEN SCASE = 'R1 ; SUBCASE 9' CALL CALCMDRP (RH, DRMR6, DRNANO3, CALCR1A, CALCR3A) SCASE = 'R1 ; SUBCASE 9' ENDIF ENDIF C ELSE IF (.NOT.EXAC) THEN ! *** NH4CL = 0 IF ( EXAN .AND. EXSN .AND. EXSC) THEN IF (RH.GE.DRMR7) THEN SCASE = 'R1 ; SUBCASE 10' CALL CALCMDRP (RH, DRMR7, DRNH4NO3, CALCR1A, CALCR2A) SCASE = 'R1 ; SUBCASE 10' ENDIF ELSE IF ( EXAN .AND. .NOT.EXSN .AND. EXSC) THEN IF (RH.GE.DRMR8) THEN SCASE = 'R1 ; SUBCASE 11' CALL CALCMDRP (RH, DRMR8, DRNH4NO3, CALCR1A, CALCR2A) SCASE = 'R1 ; SUBCASE 11' ENDIF ELSE IF ( EXAN .AND. .NOT.EXSN .AND. .NOT.EXSC) THEN IF (RH.GE.DRMR9) THEN SCASE = 'R1 ; SUBCASE 12' CALL CALCMDRP (RH, DRMR9, DRNH4NO3, CALCR1A, CALCR2A) SCASE = 'R1 ; SUBCASE 12' ENDIF ELSE IF ( EXAN .AND. EXSN .AND. .NOT.EXSC) THEN IF (RH.GE.DRMR10) THEN SCASE = 'R1 ; SUBCASE 13' CALL CALCMDRP (RH, DRMR10, DRNH4NO3, CALCR1A, CALCR2A) SCASE = 'R1 ; SUBCASE 13' ENDIF ENDIF C ELSE IF (.NOT.EXSN) THEN ! *** NANO3 = 0 IF ( EXAN .AND. EXAC .AND. EXSC) THEN IF (RH.GE.DRMR11) THEN SCASE = 'R1 ; SUBCASE 14' CALL CALCMDRP (RH, DRMR11, DRNH4NO3, CALCR1A, CALCR2A) SCASE = 'R1 ; SUBCASE 14' ENDIF ELSE IF ( EXAN .AND. EXAC .AND. .NOT.EXSC) THEN IF (RH.GE.DRMR12) THEN SCASE = 'R1 ; SUBCASE 15' CALL CALCMDRP (RH, DRMR12, DRNH4NO3, CALCR1A, CALCR2A) SCASE = 'R1 ; SUBCASE 15' ENDIF ENDIF C ELSE IF (.NOT.EXSC) THEN ! *** NACL = 0 IF ( EXAN .AND. EXAC .AND. EXSN) THEN IF (RH.GE.DRMR13) THEN SCASE = 'R1 ; SUBCASE 16' CALL CALCMDRP (RH, DRMR13, DRNH4NO3, CALCR1A, CALCR2A) SCASE = 'R1 ; SUBCASE 16' ENDIF ENDIF ENDIF C RETURN C C *** END OF SUBROUTINE CALCR1 ****************************************** C END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE CALCR1A C *** CASE R1 ; SUBCASE 1 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SULRAT > 2.0) ; SODIUM RICH (SODRAT >= 2.0) C 2. SOLID AEROSOL ONLY C 3. SOLIDS POSSIBLE : NH4NO3, NH4CL, NANO3, NA2SO4, NANO3, NACL C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCR1A INCLUDE 'isrpia.inc' C C *** CALCULATE SOLIDS ************************************************** C CNA2SO4 = WAER(2) FRNA = MAX (WAER(1)-2*CNA2SO4, ZERO) C CNH42S4 = ZERO C CNANO3 = MIN (FRNA, WAER(4)) FRNO3 = MAX (WAER(4)-CNANO3, ZERO) FRNA = MAX (FRNA-CNANO3, ZERO) C CNACL = MIN (FRNA, WAER(5)) FRCL = MAX (WAER(5)-CNACL, ZERO) FRNA = MAX (FRNA-CNACL, ZERO) C CNH4NO3 = MIN (FRNO3, WAER(3)) FRNO3 = MAX (FRNO3-CNH4NO3, ZERO) FRNH3 = MAX (WAER(3)-CNH4NO3, ZERO) C CNH4CL = MIN (FRCL, FRNH3) FRCL = MAX (FRCL-CNH4CL, ZERO) FRNH3 = MAX (FRNH3-CNH4CL, ZERO) C C *** OTHER PHASES ****************************************************** C WATER = ZERO C GNH3 = ZERO GHNO3 = ZERO GHCL = ZERO C RETURN C C *** END OF SUBROUTINE CALCR1A ***************************************** C END C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE CALCV7 C *** CASE V7 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SO4RAT > 2.0), Cr+NA poor (CRNARAT < 2) C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCV7 INCLUDE 'isrpia.inc' C DOUBLE PRECISION NH4I, NAI, NO3I, NH3AQ, NO3AQ, CLAQ, CAI, KI, MGI C COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** SETUP PARAMETERS ************************************************ C FRST =.TRUE. CALAIN =.TRUE. CALAOU =.TRUE. C C *** CALCULATE INITIAL SOLUTION *************************************** C CALL CALCV1A C CHI9 = CCASO4 C PSI1 = CNA2SO4 ! SALTS DISSOLVED PSI4 = CNH4CL PSI5 = CNH4NO3 PSI6 = CNH42S4 PSI7 = CK2SO4 PSI8 = CMGSO4 PSI9 = CCASO4 C CALL CALCMR ! WATER C NH3AQ = ZERO NO3AQ = ZERO CLAQ = ZERO C C *** SOLVE EQUATIONS ; WITH ITERATIONS FOR ACTIVITY COEF. ************ C DO 10 I=1,NSWEEP C AKW = XKW*RH*WATER*WATER ! H2O <==> H+ C C ION CONCENTRATIONS C NAI = WAER(1) SO4I = MAX (WAER(2) - WAER(6), ZERO) NH4I = WAER(3) NO3I = WAER(4) CLI = WAER(5) CAI = ZERO KI = WAER(7) MGI = WAER(8) C C SOLUTION ACIDIC OR BASIC? C GG = 2.D0*SO4I + NO3I + CLI - NAI - NH4I & - 2.D0*CAI - KI - 2.D0*MGI IF (GG.GT.TINY) THEN ! H+ in excess BB =-GG CC =-AKW DD = BB*BB - 4.D0*CC HI = 0.5D0*(-BB + SQRT(DD)) OHI= AKW/HI ELSE ! OH- in excess BB = GG CC =-AKW DD = BB*BB - 4.D0*CC OHI= 0.5D0*(-BB + SQRT(DD)) HI = AKW/OHI ENDIF C C UNDISSOCIATED SPECIES EQUILIBRIA C IF (HI.GT.OHI) THEN C CALL CALCAMAQ2 (-GG, NH4I, OHI, NH3AQ) C HI = AKW/OHI C HSO4I = ZERO C ELSE C GGNO3 = MAX(2.D0*SO4I + NO3I - NAI - NH4I - 2.D0*CAI C & - KI - 2.D0*MGI, ZERO) C GGCL = MAX(GG-GGNO3, ZERO) C IF (GGCL .GT.TINY) CALL CALCCLAQ2 (GGCL, CLI, HI, CLAQ) ! HCl C IF (GGNO3.GT.TINY) THEN C IF (GGCL.LE.TINY) HI = ZERO C CALL CALCNIAQ2 (GGNO3, NO3I, HI, NO3AQ) ! HNO3 C ENDIF C C CONCENTRATION ADJUSTMENTS ; HSO4 minor species. C CALL CALCHS4 (HI, SO4I, ZERO, DEL) else del= zero ENDIF SO4I = SO4I - DEL HI = HI - DEL HSO4I = DEL C IF (HI.LE.TINY) HI = SQRT(AKW) OHI = AKW/HI C IF (HI.LE.TINY) THEN HI = SQRT(AKW) OHI = AKW/HI ENDIF C C *** SAVE CONCENTRATIONS IN MOLAL ARRAY ****************************** C MOLAL(1) = HI MOLAL(2) = NAI MOLAL(3) = NH4I MOLAL(4) = CLI MOLAL(5) = SO4I MOLAL(6) = HSO4I MOLAL(7) = NO3I MOLAL(8) = CAI MOLAL(9) = KI MOLAL(10)= MGI C C *** CALCULATE ACTIVITIES OR TERMINATE INTERNAL LOOP ***************** C IF (FRST.AND.CALAOU .OR. .NOT.FRST.AND.CALAIN) THEN CALL CALCACT ELSE GOTO 20 ENDIF 10 CONTINUE ccc CALL PUSHERR (0002, 'CALCV7') ! WARNING ERROR: NO CONVERGENCE C C *** CALCULATE GAS / SOLID SPECIES (LIQUID IN MOLAL ALREADY) ********* C 20 A2 = (XK2/XKW)*R*TEMP*(GAMA(10)/GAMA(5))**2. ! NH3 <==> NH4+ A3 = XK4 *R*TEMP*(WATER/GAMA(10))**2. ! HNO3 <==> NO3- A4 = XK3 *R*TEMP*(WATER/GAMA(11))**2. ! HCL <==> CL- C GNH3 = NH4I/HI/A2 GHNO3 = HI*NO3I/A3 GHCL = HI*CLI /A4 C GASAQ(1)= NH3AQ GASAQ(2)= CLAQ GASAQ(3)= NO3AQ C CNH42S4 = ZERO CNH4NO3 = ZERO CNH4CL = ZERO CNA2SO4 = ZERO CMGSO4 = ZERO CK2SO4 = ZERO CCASO4 = MIN (WAER(6), WAER(2)) C RETURN C C *** END OF SUBROUTINE CALCV7 ****************************************** C END C C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE CALCV6 C *** CASE V6 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SO4RAT > 2.0), Cr+NA poor (CRNARAT < 2) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : K2SO4, CASO4 C 4. Completely dissolved: NH4NO3, NH4CL, (NH4)2SO4, MGSO4, NA2SO4 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCV6 INCLUDE 'isrpia.inc' C LOGICAL PSCONV7 DOUBLE PRECISION NH4I, NAI, NO3I, NH3AQ, NO3AQ, CLAQ, CAI, KI, MGI C COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** SETUP PARAMETERS ************************************************ C FRST =.TRUE. CALAIN =.TRUE. CALAOU =.TRUE. C PSCONV7 =.TRUE. PSI70 =-GREAT ! GREAT = 1.D10 ROOT7 = ZERO C C *** CALCULATE INITIAL SOLUTION *************************************** C CALL CALCV1A C CHI9 = CCASO4 CHI7 = CK2SO4 ! SALTS C PSI1 = CNA2SO4 ! AMOUNT DISSOLVED PSI4 = CNH4CL PSI5 = CNH4NO3 PSI6 = CNH42S4 PSI7 = CK2SO4 PSI8 = CMGSO4 PSI9 = CCASO4 C CALL CALCMR ! WATER C NAI = WAER(1) ! LIQUID CONCENTRATIONS SO4I = MAX (WAER(2) - WAER(6), ZERO) NH4I = WAER(3) NO3I = WAER(4) CLI = WAER(5) CAI = WAER(6) KI = WAER(7) MGI = WAER(8) C HSO4I = ZERO NH3AQ = ZERO NO3AQ = ZERO CLAQ = ZERO C C *** SOLVE EQUATIONS ; WITH ITERATIONS FOR ACTIVITY COEF. ************ C DO 10 I=1,NSWEEP C A7 = XK17 *(WATER/GAMA(17))**3.0 ! K2SO4 <==> K+ AKW = XKW*RH*WATER*WATER ! H2O <==> H+ C C POTASSIUM SULFATE C IF (KI*KI*SO4I .GT. A7) THEN BB =-((WAER(2)-WAER(6)) + WAER(7)) CC = WAER(7)*(WAER(2)-WAER(6)) + 0.25D0*WAER(7)*WAER(7) DD =-0.25*(WAER(7)*WAER(7)*WAER(2) - A7) CALL POLY3(BB, CC, DD, ROOT7, ISLV) IF (ISLV.NE.0) ROOT7 = TINY ROOT7 = MIN (ROOT7,WAER(7)/2.0,MAX(WAER(2)-WAER(6),ZERO),CHI7) ROOT7 = MAX (ROOT7, ZERO) PSI7 = CHI7-ROOT7 ENDIF PSCONV7 = ABS(PSI7-PSI70) .LE. EPS*PSI70 PSI70 = PSI7 C C ION CONCENTRATIONS ; CORRECTIONS C KI = MAX (WAER(7) - 2.D0*ROOT7, ZERO) SO4I = MAX (WAER(2)-WAER(6) - ROOT7, ZERO) NH4I = WAER(3) NO3I = WAER(4) CLI = WAER(5) CAI = ZERO NAI = WAER(1) MGI = WAER(8) C C SOLUTION ACIDIC OR BASIC? C GG = 2.D0*SO4I + NO3I + CLI - NAI - NH4I & - 2.D0*CAI - KI - 2.D0*MGI IF (GG.GT.TINY) THEN ! H+ in excess BB =-GG CC =-AKW DD = BB*BB - 4.D0*CC HI = 0.5D0*(-BB + SQRT(DD)) OHI= AKW/HI ELSE ! OH- in excess BB = GG CC =-AKW DD = BB*BB - 4.D0*CC OHI= 0.5D0*(-BB + SQRT(DD)) HI = AKW/OHI ENDIF C C UNDISSOCIATED SPECIES EQUILIBRIA C IF (HI.GT.OHI) THEN C CALL CALCAMAQ2 (-GG, NH4I, OHI, NH3AQ) C HI = AKW/OHI C HSO4I = ZERO C ELSE C GGNO3 = MAX(2.D0*SO4I + NO3I - NAI - NH4I - 2.D0*CAI C & - KI - 2.D0*MGI, ZERO) C GGCL = MAX(GG-GGNO3, ZERO) C IF (GGCL .GT.TINY) CALL CALCCLAQ2 (GGCL, CLI, HI, CLAQ) ! HCl C IF (GGNO3.GT.TINY) THEN C IF (GGCL.LE.TINY) HI = ZERO C CALL CALCNIAQ2 (GGNO3, NO3I, HI, NO3AQ) ! HNO3 C ENDIF C C CONCENTRATION ADJUSTMENTS ; HSO4 minor species. C CALL CALCHS4 (HI, SO4I, ZERO, DEL) else del= zero ENDIF SO4I = SO4I - DEL HI = HI - DEL HSO4I = DEL C IF (HI.LE.TINY) HI = SQRT(AKW) OHI = AKW/HI C IF (HI.LE.TINY) THEN HI = SQRT(AKW) OHI = AKW/HI ENDIF C C *** SAVE CONCENTRATIONS IN MOLAL ARRAY ****************************** C MOLAL(1) = HI MOLAL(2) = NAI MOLAL(3) = NH4I MOLAL(4) = CLI MOLAL(5) = SO4I MOLAL(6) = HSO4I MOLAL(7) = NO3I MOLAL(8) = CAI MOLAL(9) = KI MOLAL(10)= MGI C C *** CALCULATE WATER ************************************************** C CALL CALCMR C C *** CALCULATE ACTIVITIES OR TERMINATE INTERNAL LOOP ***************** C IF (FRST.AND.CALAOU .OR. .NOT.FRST.AND.CALAIN) THEN CALL CALCACT ELSE IF (PSCONV7) GOTO 20 ENDIF 10 CONTINUE ccc CALL PUSHERR (0002, 'CALCV6') ! WARNING ERROR: NO CONVERGENCE C C *** CALCULATE GAS / SOLID SPECIES (LIQUID IN MOLAL ALREADY) ********* C 20 A2 = (XK2/XKW)*R*TEMP*(GAMA(10)/GAMA(5))**2. ! NH3 <==> NH4+ A3 = XK4 *R*TEMP*(WATER/GAMA(10))**2. ! HNO3 <==> NO3- A4 = XK3 *R*TEMP*(WATER/GAMA(11))**2. ! HCL <==> CL- C GNH3 = NH4I/HI/A2 GHNO3 = HI*NO3I/A3 GHCL = HI*CLI /A4 C GASAQ(1)= NH3AQ GASAQ(2)= CLAQ GASAQ(3)= NO3AQ C CNH42S4 = ZERO CNH4NO3 = ZERO CNH4CL = ZERO CNA2SO4 = ZERO CMGSO4 = ZERO CK2SO4 = CHI7 - PSI7 CCASO4 = MIN (WAER(6), WAER(2)) C RETURN C C *** END OF SUBROUTINE CALCV6 ****************************************** C END C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE CALCV5 C *** CASE V5 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SO4RAT > 2.0), Cr+NA poor (CRNARAT < 2) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : K2SO4, CASO4, NA2SO4 C 4. Completely dissolved: NH4NO3, NH4CL, (NH4)2SO4, MGSO4 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCV5 INCLUDE 'isrpia.inc' C LOGICAL PSCONV7, PSCONV1 DOUBLE PRECISION NH4I, NAI, NO3I, NH3AQ, NO3AQ, CLAQ, CAI, KI, MGI C COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** SETUP PARAMETERS ************************************************ C FRST =.TRUE. CALAIN =.TRUE. CALAOU =.TRUE. C PSCONV7 =.TRUE. PSCONV1 =.TRUE. C PSI70 =-GREAT ! GREAT = 1.D10 PSI1O =-GREAT C ROOT7 = ZERO ROOT1 = ZERO C C *** CALCULATE INITIAL SOLUTION *************************************** C CALL CALCV1A C CHI9 = CCASO4 CHI7 = CK2SO4 ! SALTS CHI1 = CNA2SO4 C PSI1 = CNA2SO4 ! AMOUNT DISSOLVED PSI4 = CNH4CL PSI5 = CNH4NO3 PSI6 = CNH42S4 PSI7 = CK2SO4 PSI8 = CMGSO4 PSI9 = CCASO4 C CALL CALCMR ! WATER C NAI = WAER(1) ! LIQUID CONCENTRATIONS SO4I = MAX (WAER(2) - WAER(6), ZERO) NH4I = WAER(3) NO3I = WAER(4) CLI = WAER(5) CAI = WAER(6) KI = WAER(7) MGI = WAER(8) C HSO4I = ZERO NH3AQ = ZERO NO3AQ = ZERO CLAQ = ZERO C C *** SOLVE EQUATIONS ; WITH ITERATIONS FOR ACTIVITY COEF. ************ C DO 10 I=1,NSWEEP C A7 = XK17 *(WATER/GAMA(17))**3.0 ! K2SO4 <==> K+ A1 = XK5 *(WATER/GAMA(2))**3.0 ! NA2S04 <==> Na+ AKW = XKW*RH*WATER*WATER ! H2O <==> H+ C C POTASSIUM SULFATE C IF (KI*KI*SO4I .GT. A7) THEN BB =-((WAER(2)-WAER(6)) + WAER(7) - ROOT1) CC = WAER(7)*((WAER(2)-WAER(6)) - ROOT1) + 0.25*WAER(7)*WAER(7) DD =-0.25*(WAER(7)*WAER(7)*((WAER(2)-WAER(6)) - ROOT1) - A7) CALL POLY3(BB, CC, DD, ROOT7, ISLV) IF (ISLV.NE.0) ROOT7 = TINY ROOT7 = MAX (ROOT7, ZERO) ROOT7 = MIN (ROOT7, WAER(7)/2.0, & MAX(WAER(2)-WAER(6) - ROOT1, ZERO), CHI7) PSI7 = CHI7-ROOT7 ENDIF PSCONV7 = ABS(PSI7-PSI70) .LE. EPS*PSI70 PSI70 = PSI7 C C SODIUM SULFATE C IF (NAI*NAI*SO4I .GT. A1) THEN BB =-((WAER(2)-WAER(6)) + WAER(1) - ROOT7) CC = WAER(1)*((WAER(2)-WAER(6)) - ROOT7) + 0.25*WAER(1)*WAER(1) DD =-0.25*(WAER(1)*WAER(1)*((WAER(2)-WAER(6)) - ROOT7) - A1) CALL POLY3(BB, CC, DD, ROOT1, ISLV) IF (ISLV.NE.0) ROOT1 = TINY ROOT1 = MAX (ROOT1, ZERO) ROOT1 = MIN (ROOT1, WAER(1)/2.0, & MAX ((WAER(2)-WAER(6)) - ROOT7, ZERO), CHI1) PSI1 = CHI1-ROOT1 ENDIF PSCONV1 = ABS(PSI1-PSI1O) .LE. EPS*PSI1O PSI1O = PSI1 C C ION CONCENTRATIONS ; CORRECTIONS C KI = MAX (WAER(7) - 2.D0*ROOT7, ZERO) NAI = MAX (WAER(1) - 2.D0*ROOT1, ZERO) SO4I = MAX ((WAER(2)-WAER(6)) - ROOT7 - ROOT1, ZERO) NH4I = WAER(3) NO3I = WAER(4) CLI = WAER(5) CAI = ZERO MGI = WAER(8) C C SOLUTION ACIDIC OR BASIC? C GG = 2.D0*SO4I + NO3I + CLI - NAI - NH4I & - 2.D0*CAI - KI - 2.D0*MGI IF (GG.GT.TINY) THEN ! H+ in excess BB =-GG CC =-AKW DD = BB*BB - 4.D0*CC HI = 0.5D0*(-BB + SQRT(DD)) OHI= AKW/HI ELSE ! OH- in excess BB = GG CC =-AKW DD = BB*BB - 4.D0*CC OHI= 0.5D0*(-BB + SQRT(DD)) HI = AKW/OHI ENDIF C C UNDISSOCIATED SPECIES EQUILIBRIA C IF (HI.GT.OHI) THEN C CALL CALCAMAQ2 (-GG, NH4I, OHI, NH3AQ) C HI = AKW/OHI C HSO4I = ZERO C ELSE C GGNO3 = MAX(2.D0*SO4I + NO3I - NAI - NH4I - 2.D0*CAI C & - KI - 2.D0*MGI, ZERO) C GGCL = MAX(GG-GGNO3, ZERO) C IF (GGCL .GT.TINY) CALL CALCCLAQ2 (GGCL, CLI, HI, CLAQ) ! HCl C IF (GGNO3.GT.TINY) THEN C IF (GGCL.LE.TINY) HI = ZERO C CALL CALCNIAQ2 (GGNO3, NO3I, HI, NO3AQ) ! HNO3 C ENDIF C C CONCENTRATION ADJUSTMENTS ; HSO4 minor species. C CALL CALCHS4 (HI, SO4I, ZERO, DEL) else del= zero ENDIF SO4I = SO4I - DEL HI = HI - DEL HSO4I = DEL C IF (HI.LE.TINY) HI = SQRT(AKW) OHI = AKW/HI C IF (HI.LE.TINY) THEN HI = SQRT(AKW) OHI = AKW/HI ENDIF C C *** SAVE CONCENTRATIONS IN MOLAL ARRAY ****************************** C MOLAL(1) = HI MOLAL(2) = NAI MOLAL(3) = NH4I MOLAL(4) = CLI MOLAL(5) = SO4I MOLAL(6) = HSO4I MOLAL(7) = NO3I MOLAL(8) = CAI MOLAL(9) = KI MOLAL(10)= MGI C C *** CALCULATE WATER ************************************************** C CALL CALCMR C C *** CALCULATE ACTIVITIES OR TERMINATE INTERNAL LOOP ***************** C IF (FRST.AND.CALAOU .OR. .NOT.FRST.AND.CALAIN) THEN CALL CALCACT ELSE IF (PSCONV7 .AND. PSCONV1) GOTO 20 ENDIF 10 CONTINUE ccc CALL PUSHERR (0002, 'CALCV5') ! WARNING ERROR: NO CONVERGENCE C C *** CALCULATE GAS / SOLID SPECIES (LIQUID IN MOLAL ALREADY) ********* C 20 A2 = (XK2/XKW)*R*TEMP*(GAMA(10)/GAMA(5))**2. ! NH3 <==> NH4+ A3 = XK4 *R*TEMP*(WATER/GAMA(10))**2. ! HNO3 <==> NO3- A4 = XK3 *R*TEMP*(WATER/GAMA(11))**2. ! HCL <==> CL- C GNH3 = NH4I/HI/A2 GHNO3 = HI*NO3I/A3 GHCL = HI*CLI /A4 C GASAQ(1)= NH3AQ GASAQ(2)= CLAQ GASAQ(3)= NO3AQ C CNH42S4 = ZERO CNH4NO3 = ZERO CNH4CL = ZERO CNA2SO4 = CHI1 - PSI1 CMGSO4 = ZERO CK2SO4 = CHI7 - PSI7 CCASO4 = MIN (WAER(6), WAER(2)) C RETURN C C *** END OF SUBROUTINE CALCV5****************************************** C END C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE CALCV4 C *** CASE V4 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SO4RAT > 2.0), Cr+NA poor (CRNARAT < 2) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : K2SO4, CASO4, NA2SO4, MGSO4 C 4. Completely dissolved: NH4NO3, NH4CL, (NH4)2SO4 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCV4 INCLUDE 'isrpia.inc' C LOGICAL PSCONV7, PSCONV1 DOUBLE PRECISION NH4I, NAI, NO3I, NH3AQ, NO3AQ, CLAQ, CAI, KI, MGI C COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** SETUP PARAMETERS ************************************************ C FRST =.TRUE. CALAIN =.TRUE. CALAOU =.TRUE. C PSCONV7 =.TRUE. PSCONV1 =.TRUE. C PSI70 =-GREAT ! GREAT = 1.D10 PSI1O =-GREAT C ROOT7 = ZERO ROOT1 = ZERO C C *** CALCULATE INITIAL SOLUTION *************************************** C CALL CALCV1A C CHI9 = CCASO4 CHI7 = CK2SO4 ! SALTS CHI1 = CNA2SO4 CHI8 = CMGSO4 C PSI1 = CNA2SO4 ! AMOUNT DISSOLVED PSI4 = CNH4CL PSI5 = CNH4NO3 PSI6 = CNH42S4 PSI7 = CK2SO4 PSI8 = CMGSO4 PSI9 = CCASO4 C CALL CALCMR ! WATER C NAI = WAER(1) ! LIQUID CONCENTRATIONS SO4I = WAER(2) NH4I = WAER(3) NO3I = WAER(4) CLI = WAER(5) CAI = WAER(6) KI = WAER(7) MGI = WAER(8) C HSO4I = ZERO NH3AQ = ZERO NO3AQ = ZERO CLAQ = ZERO C C *** SOLVE EQUATIONS ; WITH ITERATIONS FOR ACTIVITY COEF. ************ C DO 10 I=1,NSWEEP C A7 = XK17 *(WATER/GAMA(17))**3.0 ! K2SO4 <==> K+ A1 = XK5 *(WATER/GAMA(2))**3.0 ! NA2S04 <==> Na+ AKW = XKW*RH*WATER*WATER ! H2O <==> H+ C C POTASSIUM SULFATE C IF (KI*KI*SO4I .GT. A7) THEN BB =-((WAER(2)-WAER(6)) + WAER(7) - ROOT1) CC = WAER(7)*((WAER(2)-WAER(6)) - ROOT1) + 0.25*WAER(7)*WAER(7) DD =-0.25*(WAER(7)*WAER(7)*((WAER(2)-WAER(6)) - ROOT1) - A7) CALL POLY3(BB, CC, DD, ROOT7, ISLV) IF (ISLV.NE.0) ROOT7 = TINY ROOT7 = MAX (ROOT7, ZERO) ROOT7 = MIN (ROOT7, WAER(7)/2.0, & MAX((WAER(2)-WAER(6)) - ROOT1, ZERO), CHI7) PSI7 = CHI7-ROOT7 ENDIF PSCONV7 = ABS(PSI7-PSI70) .LE. EPS*PSI70 PSI70 = PSI7 C C SODIUM SULFATE C IF (NAI*NAI*SO4I .GT. A1) THEN BB =-((WAER(2)-WAER(6)) + WAER(1) - ROOT7) CC = WAER(1)*((WAER(2)-WAER(6)) - ROOT7) + 0.25*WAER(1)*WAER(1) DD =-0.25*(WAER(1)*WAER(1)*((WAER(2)-WAER(6)) - ROOT7) - A1) CALL POLY3(BB, CC, DD, ROOT1, ISLV) IF (ISLV.NE.0) ROOT1 = TINY ROOT1 = MAX (ROOT1, ZERO) ROOT1 = MIN (ROOT1, WAER(1)/2.0, & MAX ((WAER(2)-WAER(6)) - ROOT7, ZERO), CHI1) PSI1 = CHI1-ROOT1 ENDIF PSCONV1 = ABS(PSI1-PSI1O) .LE. EPS*PSI1O PSI1O = PSI1 C C ION CONCENTRATIONS ; CORRECTIONS C KI = MAX (WAER(7) - 2.D0*ROOT7, ZERO) NAI = MAX (WAER(1) - 2.D0*ROOT1, ZERO) SO4I = MAX ((WAER(2)-WAER(6)) - ROOT7 - ROOT1, ZERO) NH4I = WAER(3) NO3I = WAER(4) CLI = WAER(5) CAI = ZERO MGI = WAER(8) C C SOLUTION ACIDIC OR BASIC? C GG = 2.D0*SO4I + NO3I + CLI - NAI - NH4I & - 2.D0*CAI - KI - 2.D0*MGI IF (GG.GT.TINY) THEN ! H+ in excess BB =-GG CC =-AKW DD = BB*BB - 4.D0*CC HI = 0.5D0*(-BB + SQRT(DD)) OHI= AKW/HI ELSE ! OH- in excess BB = GG CC =-AKW DD = BB*BB - 4.D0*CC OHI= 0.5D0*(-BB + SQRT(DD)) HI = AKW/OHI ENDIF C C UNDISSOCIATED SPECIES EQUILIBRIA C IF (HI.GT.OHI) THEN C CALL CALCAMAQ2 (-GG, NH4I, OHI, NH3AQ) C HI = AKW/OHI C HSO4I = ZERO C ELSE C GGNO3 = MAX(2.D0*SO4I + NO3I - NAI - NH4I - 2.D0*CAI C & - KI - 2.D0*MGI, ZERO) C GGCL = MAX(GG-GGNO3, ZERO) C IF (GGCL .GT.TINY) CALL CALCCLAQ2 (GGCL, CLI, HI, CLAQ) ! HCl C IF (GGNO3.GT.TINY) THEN C IF (GGCL.LE.TINY) HI = ZERO C CALL CALCNIAQ2 (GGNO3, NO3I, HI, NO3AQ) ! HNO3 C ENDIF C C CONCENTRATION ADJUSTMENTS ; HSO4 minor species. C CALL CALCHS4 (HI, SO4I, ZERO, DEL) else del= zero ENDIF SO4I = SO4I - DEL HI = HI - DEL HSO4I = DEL C IF (HI.LE.TINY) HI = SQRT(AKW) OHI = AKW/HI C IF (HI.LE.TINY) THEN HI = SQRT(AKW) OHI = AKW/HI ENDIF C C *** SAVE CONCENTRATIONS IN MOLAL ARRAY ****************************** C MOLAL(1) = HI MOLAL(2) = NAI MOLAL(3) = NH4I MOLAL(4) = CLI MOLAL(5) = SO4I MOLAL(6) = HSO4I MOLAL(7) = NO3I MOLAL(8) = CAI MOLAL(9) = KI MOLAL(10)= MGI C C *** CALCULATE WATER ************************************************** C CALL CALCMR C C *** CALCULATE ACTIVITIES OR TERMINATE INTERNAL LOOP ***************** C IF (FRST.AND.CALAOU .OR. .NOT.FRST.AND.CALAIN) THEN CALL CALCACT ELSE IF (PSCONV7 .AND. PSCONV1) GOTO 20 ENDIF 10 CONTINUE ccc CALL PUSHERR (0002, 'CALCV4') ! WARNING ERROR: NO CONVERGENCE C C *** CALCULATE GAS / SOLID SPECIES (LIQUID IN MOLAL ALREADY) ********* C 20 A2 = (XK2/XKW)*R*TEMP*(GAMA(10)/GAMA(5))**2. ! NH3 <==> NH4+ A3 = XK4 *R*TEMP*(WATER/GAMA(10))**2. ! HNO3 <==> NO3- A4 = XK3 *R*TEMP*(WATER/GAMA(11))**2. ! HCL <==> CL- C GNH3 = NH4I/HI/A2 GHNO3 = HI*NO3I/A3 GHCL = HI*CLI /A4 C GASAQ(1)= NH3AQ GASAQ(2)= CLAQ GASAQ(3)= NO3AQ C CNH42S4 = ZERO CNH4NO3 = ZERO CNH4CL = ZERO CNA2SO4 = CHI1 - PSI1 CMGSO4 = ZERO CK2SO4 = CHI7 - PSI7 CCASO4 = MIN (WAER(6), WAER(2)) C RETURN C C *** END OF SUBROUTINE CALCV4****************************************** C END C C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE CALCV3 C *** CASE V3 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SO4RAT > 2.0), Cr+NA poor (CRNARAT < 2) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : K2SO4, CASO4, NA2SO4, MGSO4, (NH4)2SO4 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCV3 INCLUDE 'isrpia.inc' LOGICAL EXNO, EXCL EXTERNAL CALCV1A, CALCV4 C C *** REGIME DEPENDS ON AMBIENT RELATIVE HUMIDITY & POSSIBLE SPECIES *** C EXNO = WAER(4).GT.TINY EXCL = WAER(5).GT.TINY C IF (EXNO .OR. EXCL) THEN ! *** NITRATE OR CHLORIDE EXISTS SCASE = 'V3 ; SUBCASE 1' CALL CALCV3A SCASE = 'V3 ; SUBCASE 1' C ELSE ! *** NO CHLORIDE AND NITRATE IF (RH.LT.DRMO3) THEN SCASE = 'V3 ; SUBCASE 2' CALL CALCV1A ! SOLID SCASE = 'V3 ; SUBCASE 2' ELSE SCASE = 'V3 ; SUBCASE 3' ! MDRH (CaSO4, (NH4)2SO4, MGSO4, NA2SO4, K2SO4) CALL CALCMDRPII (RH, DRMO3, DRNH42S4, CALCV1A, CALCV4) SCASE = 'V3 ; SUBCASE 3' ENDIF ENDIF C RETURN C C *** END OF SUBROUTINE CALCV3 ****************************************** C END C C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE CALCV3A C *** CASE V3A C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SO4RAT > 2.0), Cr+NA poor (CRNARAT < 2) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : K2SO4, CASO4, NA2SO4, MGSO4, (NH4)2SO4 C 4. Completely dissolved: NH4NO3, NH4CL C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCV3A INCLUDE 'isrpia.inc' C LOGICAL PSCONV7, PSCONV1, PSCONV6 DOUBLE PRECISION NH4I, NAI, NO3I, NH3AQ, NO3AQ, CLAQ, CAI, KI, MGI C COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** SETUP PARAMETERS ************************************************ C FRST =.TRUE. CALAIN =.TRUE. CALAOU =.TRUE. C PSCONV7 =.TRUE. PSCONV1 =.TRUE. PSCONV6 =.TRUE. C PSI70 =-GREAT ! GREAT = 1.D10 PSI1O =-GREAT PSI60 =-GREAT C ROOT7 = ZERO ROOT1 = ZERO ROOT6 = ZERO C C *** CALCULATE INITIAL SOLUTION *************************************** C CALL CALCV1A C CHI9 = CCASO4 CHI7 = CK2SO4 ! SALTS CHI1 = CNA2SO4 CHI8 = CMGSO4 CHI6 = CNH42S4 C PSI1 = CNA2SO4 ! AMOUNT DISSOLVED PSI4 = CNH4CL PSI5 = CNH4NO3 PSI6 = CNH42S4 PSI7 = CK2SO4 PSI8 = CMGSO4 PSI9 = CCASO4 C CALL CALCMR ! WATER C NAI = WAER(1) ! LIQUID CONCENTRATIONS SO4I = WAER(2) NH4I = WAER(3) NO3I = WAER(4) CLI = WAER(5) CAI = WAER(6) KI = WAER(7) MGI = WAER(8) C HSO4I = ZERO NH3AQ = ZERO NO3AQ = ZERO CLAQ = ZERO C C *** SOLVE EQUATIONS ; WITH ITERATIONS FOR ACTIVITY COEF. ************ C DO 10 I=1,NSWEEP C A7 = XK17 *(WATER/GAMA(17))**3.0 ! K2SO4 <==> K+ A1 = XK5 *(WATER/GAMA(2))**3.0 ! NA2S04 <==> Na+ A6 = XK7 *(WATER/GAMA(4))**3.0 !(NH4)2SO4 <==> NH4+ AKW = XKW*RH*WATER*WATER ! H2O <==> H+ C C POTASSIUM SULFATE C IF (KI*KI*SO4I .GT. A7) THEN BB =-((WAER(2)-WAER(6)) + WAER(7) - ROOT1 - ROOT6) CC = WAER(7)*((WAER(2) - WAER(6)) - ROOT1 - ROOT6) + & 0.25*WAER(7)*WAER(7) DD =-0.25*(WAER(7)*WAER(7)*((WAER(2)-WAER(6))-ROOT1-ROOT6)-A7) CALL POLY3(BB, CC, DD, ROOT7, ISLV) IF (ISLV.NE.0) ROOT7 = TINY ROOT7 = MAX (ROOT7, ZERO) ROOT7 = MIN (ROOT7, WAER(7)/2.0, & MAX (WAER(2)-WAER(6)-ROOT1-ROOT6, ZERO), CHI7) PSI7 = CHI7-ROOT7 ENDIF PSCONV7 = ABS(PSI7-PSI70) .LE. EPS*PSI70 PSI70 = PSI7 C C SODIUM SULFATE C IF (NAI*NAI*SO4I .GT. A1) THEN BB =-((WAER(2)-WAER(6)) + WAER(1) - ROOT7 - ROOT6) CC = WAER(1)*((WAER(2)-WAER(6)) - ROOT7 - ROOT6) + & 0.25*WAER(1)*WAER(1) DD =-0.25*(WAER(1)*WAER(1)*((WAER(2)-WAER(6))-ROOT7-ROOT6)-A1) CALL POLY3(BB, CC, DD, ROOT1, ISLV) IF (ISLV.NE.0) ROOT1 = TINY ROOT1 = MAX (ROOT1, ZERO) ROOT1 = MIN (ROOT1, WAER(1)/2.0, & MAX (WAER(2)-WAER(6)-ROOT7-ROOT6, ZERO), CHI1) PSI1 = CHI1-ROOT1 ENDIF PSCONV1 = ABS(PSI1-PSI1O) .LE. EPS*PSI1O PSI1O = PSI1 C C AMMONIUM SULFATE C IF (NH4I*NH4I*SO4I .GT. A6) THEN BB =-((WAER(2)-WAER(6)) + WAER(3) - ROOT7 - ROOT1) CC = WAER(3)*((WAER(2)-WAER(6)) - ROOT7 - ROOT1) + & 0.25*WAER(3)*WAER(3) DD =-0.25*(WAER(3)*WAER(3)*((WAER(2)-WAER(6))-ROOT7-ROOT1)-A6) CALL POLY3(BB, CC, DD, ROOT6, ISLV) IF (ISLV.NE.0) ROOT6 = TINY ROOT6 = MAX (ROOT6, ZERO) ROOT6 = MIN (ROOT6, WAER(3)/2.0, & MAX (WAER(2)-WAER(6)-ROOT7-ROOT1, ZERO), CHI6) PSI6 = CHI6-ROOT6 ENDIF PSCONV6 = ABS(PSI6-PSI60) .LE. EPS*PSI60 PSI60 = PSI6 C ION CONCENTRATIONS ; CORRECTIONS C KI = MAX (WAER(7) - 2.D0*ROOT7, ZERO) NAI = MAX (WAER(1) - 2.D0*ROOT1, ZERO) SO4I = MAX (WAER(2)-WAER(6) - ROOT7 - ROOT1 - ROOT6, ZERO) NH4I = MAX (WAER(3) - 2.D0*ROOT6, ZERO) NO3I = WAER(4) CLI = WAER(5) CAI = ZERO MGI = WAER(8) C C SOLUTION ACIDIC OR BASIC? C GG = 2.D0*SO4I + NO3I + CLI - NAI - NH4I & - 2.D0*CAI - KI - 2.D0*MGI IF (GG.GT.TINY) THEN ! H+ in excess BB =-GG CC =-AKW DD = BB*BB - 4.D0*CC HI = 0.5D0*(-BB + SQRT(DD)) OHI= AKW/HI ELSE ! OH- in excess BB = GG CC =-AKW DD = BB*BB - 4.D0*CC OHI= 0.5D0*(-BB + SQRT(DD)) HI = AKW/OHI ENDIF C C UNDISSOCIATED SPECIES EQUILIBRIA C IF (HI.GT.OHI) THEN C CALL CALCAMAQ2 (-GG, NH4I, OHI, NH3AQ) C HI = AKW/OHI C HSO4I = ZERO C ELSE C GGNO3 = MAX(2.D0*SO4I + NO3I - NAI - NH4I - 2.D0*CAI C & - KI - 2.D0*MGI, ZERO) C GGCL = MAX(GG-GGNO3, ZERO) C IF (GGCL .GT.TINY) CALL CALCCLAQ2 (GGCL, CLI, HI, CLAQ) ! HCl C IF (GGNO3.GT.TINY) THEN C IF (GGCL.LE.TINY) HI = ZERO C CALL CALCNIAQ2 (GGNO3, NO3I, HI, NO3AQ) ! HNO3 C ENDIF C C CONCENTRATION ADJUSTMENTS ; HSO4 minor species. C CALL CALCHS4 (HI, SO4I, ZERO, DEL) else del= zero ENDIF SO4I = SO4I - DEL HI = HI - DEL HSO4I = DEL C IF (HI.LE.TINY) HI = SQRT(AKW) OHI = AKW/HI C IF (HI.LE.TINY) THEN HI = SQRT(AKW) OHI = AKW/HI ENDIF C C *** SAVE CONCENTRATIONS IN MOLAL ARRAY ****************************** C MOLAL(1) = HI MOLAL(2) = NAI MOLAL(3) = NH4I MOLAL(4) = CLI MOLAL(5) = SO4I MOLAL(6) = HSO4I MOLAL(7) = NO3I MOLAL(8) = CAI MOLAL(9) = KI MOLAL(10)= MGI C C *** CALCULATE WATER ************************************************** C CALL CALCMR C C *** CALCULATE ACTIVITIES OR TERMINATE INTERNAL LOOP ***************** C IF (FRST.AND.CALAOU .OR. .NOT.FRST.AND.CALAIN) THEN CALL CALCACT ELSE IF (PSCONV7 .AND. PSCONV1 .AND. PSCONV6) GOTO 20 ENDIF 10 CONTINUE ccc CALL PUSHERR (0002, 'CALCV3') ! WARNING ERROR: NO CONVERGENCE C C *** CALCULATE GAS / SOLID SPECIES (LIQUID IN MOLAL ALREADY) ********* C 20 A2 = (XK2/XKW)*R*TEMP*(GAMA(10)/GAMA(5))**2. ! NH3 <==> NH4+ A3 = XK4 *R*TEMP*(WATER/GAMA(10))**2. ! HNO3 <==> NO3- A4 = XK3 *R*TEMP*(WATER/GAMA(11))**2. ! HCL <==> CL- C GNH3 = NH4I/HI/A2 GHNO3 = HI*NO3I/A3 GHCL = HI*CLI /A4 C GASAQ(1)= NH3AQ GASAQ(2)= CLAQ GASAQ(3)= NO3AQ C CNH42S4 = CHI6 - PSI6 CNH4NO3 = ZERO CNH4CL = ZERO CNA2SO4 = CHI1 - PSI1 CMGSO4 = ZERO CK2SO4 = CHI7 - PSI7 CCASO4 = MIN (WAER(6), WAER(2)) C RETURN C C *** END OF SUBROUTINE CALCV3A****************************************** C END C C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE CALCV2 C *** CASE V2 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SO4RAT > 2.0), Cr+NA poor (CRNARAT < 2) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : K2SO4, CASO4, NA2SO4, MGSO4, (NH4)2SO4, NH4CL C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCV2 INCLUDE 'isrpia.inc' LOGICAL EXNO, EXCL EXTERNAL CALCV1A, CALCV3A, CALCV4 C C *** REGIME DEPENDS ON AMBIENT RELATIVE HUMIDITY & POSSIBLE SPECIES *** C EXNO = WAER(4).GT.TINY EXCL = WAER(5).GT.TINY C IF (EXNO) THEN ! *** NITRATE EXISTS SCASE = 'V2 ; SUBCASE 1' CALL CALCV2A SCASE = 'V2 ; SUBCASE 1' C ELSEIF (.NOT.EXNO .AND. EXCL) THEN ! *** ONLY CHLORIDE EXISTS IF (RH.LT.DRMO2) THEN SCASE = 'V2 ; SUBCASE 2' CALL CALCV1A ! SOLID SCASE = 'V2 ; SUBCASE 2' ELSE SCASE = 'V2 ; SUBCASE 3' ! MDRH CaSO4, NH4CL, (NH4)2SO4, MGSO4, NA2SO4, K2SO4 CALL CALCMDRPII (RH, DRMO2, DRNH4CL, CALCV1A, CALCV3A) SCASE = 'V2 ; SUBCASE 3' ENDIF C ELSE ! *** NO CHLORIDE AND NITRATE IF (RH.LT.DRMO3) THEN SCASE = 'V2 ; SUBCASE 2' CALL CALCV1A ! SOLID SCASE = 'V2 ; SUBCASE 2' ELSE SCASE = 'V2 ; SUBCASE 4' ! MDRH CaSO4, (NH4)2SO4, MGSO4, NA2SO4, K2SO4 CALL CALCMDRPII (RH, DRMO3, DRNH42S4, CALCV1A, CALCV4) SCASE = 'V2 ; SUBCASE 4' ENDIF ENDIF C RETURN C C *** END OF SUBROUTINE CALCV2 ****************************************** C END C C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE CALCV2A C *** CASE V2A C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SO4RAT > 2.0), Cr+NA poor (CRNARAT < 2) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : K2SO4, CASO4, NA2SO4, MGSO4, (NH4)2SO4, NH4CL C 4. Completely dissolved: NH4NO3 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCV2A INCLUDE 'isrpia.inc' C LOGICAL PSCONV7, PSCONV1, PSCONV6, PSCONV4 DOUBLE PRECISION NH4I, NAI, NO3I, NH3AQ, NO3AQ, CLAQ, CAI, KI, MGI C COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** SETUP PARAMETERS ************************************************ C FRST =.TRUE. CALAIN =.TRUE. CALAOU =.TRUE. C PSCONV7 =.TRUE. PSCONV1 =.TRUE. PSCONV6 =.TRUE. PSCONV4 =.TRUE. C PSI70 =-GREAT ! GREAT = 1.D10 PSI1O =-GREAT PSI60 =-GREAT PSI40 =-GREAT C ROOT7 = ZERO ROOT1 = ZERO ROOT6 = ZERO ROOT4 = ZERO C C *** CALCULATE INITIAL SOLUTION *************************************** C CALL CALCV1A C CHI9 = CCASO4 CHI7 = CK2SO4 ! SALTS CHI1 = CNA2SO4 CHI8 = CMGSO4 CHI6 = CNH42S4 CHI4 = CNH4CL C PSI1 = CNA2SO4 ! AMOUNT DISSOLVED PSI4 = CNH4CL PSI5 = CNH4NO3 PSI6 = CNH42S4 PSI7 = CK2SO4 PSI8 = CMGSO4 PSI9 = CCASO4 C CALL CALCMR ! WATER C NAI = WAER(1) ! LIQUID CONCENTRATIONS SO4I = MAX (WAER(2) - WAER(6), ZERO) NH4I = WAER(3) NO3I = WAER(4) CLI = WAER(5) CAI = WAER(6) KI = WAER(7) MGI = WAER(8) C HSO4I = ZERO NH3AQ = ZERO NO3AQ = ZERO CLAQ = ZERO C C *** SOLVE EQUATIONS ; WITH ITERATIONS FOR ACTIVITY COEF. ************ C DO 10 I=1,NSWEEP C A7 = XK17 *(WATER/GAMA(17))**3.0 ! K2SO4 <==> K+ A1 = XK5 *(WATER/GAMA(2))**3.0 ! NA2S04 <==> Na+ A6 = XK7 *(WATER/GAMA(4))**3.0 ! (NH4)2SO4 <==> NH4+ A14 = XK14*(WATER/GAMA(6))**2. ! NH4Cl <==> NH4+ AKW = XKW*RH*WATER*WATER ! H2O <==> H+ C C AMMONIUM CHLORIDE C IF (NH4I*CLI .GT. A14) THEN BB =-(WAER(3) + WAER(5) - 2.D0*ROOT6) CC = WAER(5)*(WAER(3) - 2.D0*ROOT6) - A14 DD = BB*BB - 4.D0*CC IF (DD.LT.ZERO) THEN ROOT4 = ZERO ELSE DD = SQRT(DD) ROOT4A= 0.5D0*(-BB+DD) ROOT4B= 0.5D0*(-BB-DD) IF (ZERO.LE.ROOT4A) THEN ROOT4 = ROOT4A ELSE ROOT4 = ROOT4B ENDIF ROOT4 = MAX(ROOT4, ZERO) ROOT4 = MIN(ROOT4, WAER(5), & MAX (WAER(3) - 2.D0*ROOT6, ZERO), CHI4) PSI4 = CHI4 - ROOT4 ENDIF ENDIF PSCONV4 = ABS(PSI4-PSI40) .LE. EPS*PSI40 PSI40 = PSI4 C C POTASSIUM SULFATE C IF (KI*KI*SO4I .GT. A7) THEN BB =-((WAER(2) - WAER(6)) + WAER(7) - ROOT1 - ROOT6) CC = WAER(7)*((WAER(2) - WAER(6)) - ROOT1 - ROOT6) & + 0.25*WAER(7)*WAER(7) DD =-0.25*(WAER(7)*WAER(7)*((WAER(2)-WAER(6))-ROOT1-ROOT6)-A7) CALL POLY3(BB, CC, DD, ROOT7, ISLV) IF (ISLV.NE.0) ROOT7 = TINY ROOT7 = MAX (ROOT7, ZERO) ROOT7 = MIN (ROOT7, WAER(7)/2.0, & MAX (WAER(2)-WAER(6)-ROOT1-ROOT6, ZERO), CHI7) PSI7 = CHI7-ROOT7 ENDIF PSCONV7 = ABS(PSI7-PSI70) .LE. EPS*PSI70 PSI70 = PSI7 C C SODIUM SULFATE C IF (NAI*NAI*SO4I .GT. A1) THEN BB =-((WAER(2) - WAER(6)) + WAER(1) - ROOT7 - ROOT6) CC = WAER(1)*((WAER(2) - WAER(6)) - ROOT7 - ROOT6) + & 0.25*WAER(1)*WAER(1) DD =-0.25*(WAER(1)*WAER(1)*((WAER(2)-WAER(6))-ROOT7-ROOT6)-A1) CALL POLY3(BB, CC, DD, ROOT1, ISLV) IF (ISLV.NE.0) ROOT1 = TINY ROOT1 = MAX (ROOT1, ZERO) ROOT1 = MIN (ROOT1, WAER(1)/2.0, & MAX (WAER(2)-WAER(6)-ROOT7-ROOT6, ZERO), CHI1) PSI1 = CHI1-ROOT1 ENDIF PSCONV1 = ABS(PSI1-PSI1O) .LE. EPS*PSI1O PSI1O = PSI1 C C AMMONIUM SULFATE C IF (NH4I*NH4I*SO4I .GT. A6) THEN BB =-((WAER(2)-WAER(6)) + WAER(3) - ROOT7 - ROOT1 - ROOT4) CC = WAER(3)*((WAER(2)-WAER(6)) - ROOT7 - ROOT1) + 0.25* & (WAER(3)-ROOT4)**2.0 + ROOT4*(ROOT1+ROOT7-(WAER(2)-WAER(6))) DD =-0.25*((WAER(3)-ROOT4)**2.0 * & ((WAER(2)-WAER(6))-ROOT7-ROOT1) - A6) CALL POLY3(BB, CC, DD, ROOT6, ISLV) IF (ISLV.NE.0) ROOT6 = TINY ROOT6 = MAX (ROOT6, ZERO) ROOT6 = MIN (ROOT6, WAER(3)/2.0, & MAX (WAER(2)-WAER(6) - ROOT7 - ROOT1, ZERO), CHI6) PSI6 = CHI6-ROOT6 ENDIF PSCONV6 = ABS(PSI6-PSI60) .LE. EPS*PSI60 PSI60 = PSI6 C C ION CONCENTRATIONS ; CORRECTIONS C KI = MAX (WAER(7) - 2.D0*ROOT7, ZERO) NAI = MAX (WAER(1) - 2.D0*ROOT1, ZERO) SO4I = MAX (WAER(2)-WAER(6) - ROOT7 - ROOT1 - ROOT6, ZERO) NH4I = MAX (WAER(3) - 2.D0*ROOT6, ZERO) NO3I = WAER(4) CLI = WAER(5) CAI = ZERO MGI = WAER(8) C C SOLUTION ACIDIC OR BASIC? C GG = 2.D0*SO4I + NO3I + CLI - NAI - NH4I & - 2.D0*CAI - KI - 2.D0*MGI IF (GG.GT.TINY) THEN ! H+ in excess BB =-GG CC =-AKW DD = BB*BB - 4.D0*CC HI = 0.5D0*(-BB + SQRT(DD)) OHI= AKW/HI ELSE ! OH- in excess BB = GG CC =-AKW DD = BB*BB - 4.D0*CC OHI= 0.5D0*(-BB + SQRT(DD)) HI = AKW/OHI ENDIF C C UNDISSOCIATED SPECIES EQUILIBRIA C IF (HI.GT.OHI) THEN C CALL CALCAMAQ2 (-GG, NH4I, OHI, NH3AQ) C HI = AKW/OHI C HSO4I = ZERO C ELSE C GGNO3 = MAX(2.D0*SO4I + NO3I - NAI - NH4I - 2.D0*CAI C & - KI - 2.D0*MGI, ZERO) C GGCL = MAX(GG-GGNO3, ZERO) C IF (GGCL .GT.TINY) CALL CALCCLAQ2 (GGCL, CLI, HI, CLAQ) ! HCl C IF (GGNO3.GT.TINY) THEN C IF (GGCL.LE.TINY) HI = ZERO C CALL CALCNIAQ2 (GGNO3, NO3I, HI, NO3AQ) ! HNO3 C ENDIF C C CONCENTRATION ADJUSTMENTS ; HSO4 minor species. C CALL CALCHS4 (HI, SO4I, ZERO, DEL) else del= zero ENDIF SO4I = SO4I - DEL HI = HI - DEL HSO4I = DEL C IF (HI.LE.TINY) HI = SQRT(AKW) OHI = AKW/HI C IF (HI.LE.TINY) THEN HI = SQRT(AKW) OHI = AKW/HI ENDIF C C *** SAVE CONCENTRATIONS IN MOLAL ARRAY ****************************** C MOLAL(1) = HI MOLAL(2) = NAI MOLAL(3) = NH4I MOLAL(4) = CLI MOLAL(5) = SO4I MOLAL(6) = HSO4I MOLAL(7) = NO3I MOLAL(8) = CAI MOLAL(9) = KI MOLAL(10)= MGI C C *** CALCULATE WATER ************************************************** C CALL CALCMR C C *** CALCULATE ACTIVITIES OR TERMINATE INTERNAL LOOP ***************** C IF (FRST.AND.CALAOU .OR. .NOT.FRST.AND.CALAIN) THEN CALL CALCACT ELSE IF (PSCONV7 .AND. PSCONV1 .AND. PSCONV6 .AND. PSCONV4) GOTO 20 ENDIF 10 CONTINUE ccc CALL PUSHERR (0002, 'CALCV2') ! WARNING ERROR: NO CONVERGENCE C C *** CALCULATE GAS / SOLID SPECIES (LIQUID IN MOLAL ALREADY) ********* C 20 A2 = (XK2/XKW)*R*TEMP*(GAMA(10)/GAMA(5))**2. ! NH3 <==> NH4+ A3 = XK4 *R*TEMP*(WATER/GAMA(10))**2. ! HNO3 <==> NO3- A4 = XK3 *R*TEMP*(WATER/GAMA(11))**2. ! HCL <==> CL- C GNH3 = NH4I/HI/A2 GHNO3 = HI*NO3I/A3 GHCL = HI*CLI /A4 C GASAQ(1)= NH3AQ GASAQ(2)= CLAQ GASAQ(3)= NO3AQ C CNH42S4 = CHI6 - PSI6 CNH4NO3 = ZERO CNH4CL = CHI4 - PSI4 CNA2SO4 = CHI1 - PSI1 CMGSO4 = ZERO CK2SO4 = CHI7 - PSI7 CCASO4 = MIN (WAER(6), WAER(2)) C RETURN C C *** END OF SUBROUTINE CALCV2A****************************************** C END C C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE CALCV1 C *** CASE V1 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SO4RAT > 2.0), Cr+NA poor (CRNARAT < 2) C 2. SOLID AEROSOL ONLY C 3. SOLIDS POSSIBLE : (NH4)2SO4, NH4NO3, NH4Cl, NA2SO4, K2SO4, MGSO4, CASO4 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCV1 INCLUDE 'isrpia.inc' LOGICAL EXNO, EXCL EXTERNAL CALCV1A, CALCV2A, CALCV3A, CALCV4 C C *** REGIME DEPENDS ON AMBIENT RELATIVE HUMIDITY & POSSIBLE SPECIES *** C EXNO = WAER(4).GT.TINY EXCL = WAER(5).GT.TINY C IF (EXNO .AND. EXCL) THEN ! *** NITRATE & CHLORIDE EXIST IF (RH.LT.DRMO1) THEN SCASE = 'V1 ; SUBCASE 1' CALL CALCV1A ! SOLID SCASE = 'V1 ; SUBCASE 1' ELSE SCASE = 'V1 ; SUBCASE 2' ! MDRH (NH4)2SO4, NH4NO3, NH4Cl, NA2SO4, K2SO4, MGSO4, CASO4 CALL CALCMDRPII (RH, DRMO1, DRNH4NO3, CALCV1A, CALCV2A) SCASE = 'V1 ; SUBCASE 2' ENDIF C ELSE IF (EXNO .AND. .NOT.EXCL) THEN ! *** ONLY NITRATE EXISTS IF (RH.LT.DRMV1) THEN SCASE = 'V1 ; SUBCASE 1' CALL CALCV1A ! SOLID SCASE = 'V1 ; SUBCASE 1' ELSE SCASE = 'V1 ; SUBCASE 3' ! MDRH (NH4)2SO4, NH4NO3, NA2SO4, K2SO4, MGSO4, CASO4 CALL CALCMDRPII (RH, DRMV1, DRNH4NO3, CALCV1A, CALCV2A) SCASE = 'V1 ; SUBCASE 3' ENDIF C ELSE IF (.NOT.EXNO .AND. EXCL) THEN ! *** ONLY CHLORIDE EXISTS IF (RH.LT.DRMO2) THEN SCASE = 'V1 ; SUBCASE 1' CALL CALCV1A ! SOLID SCASE = 'V1 ; SUBCASE 1' ELSE SCASE = 'V1 ; SUBCASE 4' ! MDRH (NH4)2SO4, NH4Cl, NA2SO4, K2SO4, MGSO4, CASO4 CALL CALCMDRPII (RH, DRMO2, DRNH4CL, CALCV1A, CALCV3A) SCASE = 'V1 ; SUBCASE 4' ENDIF C ELSE ! *** NO CHLORIDE AND NITRATE IF (RH.LT.DRMO3) THEN SCASE = 'V1 ; SUBCASE 1' CALL CALCV1A ! SOLID SCASE = 'V1 ; SUBCASE 1' ELSE SCASE = 'V1 ; SUBCASE 5' ! MDRH (NH4)2SO4, NA2SO4, K2SO4, MGSO4, CASO4 CALL CALCMDRPII (RH, DRMO3, DRNH42S4, CALCV1A, CALCV4) SCASE = 'V1 ; SUBCASE 5' ENDIF ENDIF C RETURN C C IF (RH.LT.DRMO1) THEN C SCASE = 'V1 ; SUBCASE 1' C CALL CALCV1A ! SOLID PHASE ONLY POSSIBLE C SCASE = 'V1 ; SUBCASE 1' C ELSE C SCASE = 'V1 ; SUBCASE 2' ! LIQUID & SOLID PHASE POSSIBLE C CALL CALCMDRPII (RH, DRMO1, DRNH4NO3, CALCV1A, CALCV2A) C SCASE = 'V1 ; SUBCASE 2' C ENDIF C C RETURN C C *** END OF SUBROUTINE CALCV1 ****************************************** C END C C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE CALCV1A C *** CASE V1A C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SO4RAT > 2.0), Cr+NA poor (CRNARAT < 2) C 2. SOLID AEROSOL ONLY C 3. SOLIDS POSSIBLE : (NH4)2SO4, NH4NO3, NH4Cl, NA2SO4, K2SO4, MGSO4, CASO4 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCV1A INCLUDE 'isrpia.inc' C C *** CALCULATE SOLIDS ************************************************** C CCASO4 = MIN (WAER(6), WAER(2)) ! CCASO4 SO4FR = MAX (WAER(2) - CCASO4, ZERO) CAFR = MAX (WAER(6) - CCASO4, ZERO) CK2SO4 = MIN (0.5D0*WAER(7), SO4FR) ! CK2SO4 FRK = MAX (WAER(7) - 2.D0*CK2SO4, ZERO) SO4FR = MAX (SO4FR - CK2SO4, ZERO) CNA2SO4 = MIN (0.5D0*WAER(1), SO4FR) ! CNA2SO4 NAFR = MAX (WAER(1) - 2.D0*CNA2SO4, ZERO) SO4FR = MAX (SO4FR - CNA2SO4, ZERO) CMGSO4 = MIN (WAER(8), SO4FR) ! CMGSO4 FRMG = MAX(WAER(8) - CMGSO4, ZERO) SO4FR = MAX(SO4FR - CMGSO4, ZERO) CNH42S4 = MAX (MIN (SO4FR , 0.5d0*WAER(3)) , TINY) FRNH3 = MAX (WAER(3) - 2.D0*CNH42S4, ZERO) C CNH4NO3 = MIN (FRNH3, WAER(4)) CCC FRNO3 = MAX (WAER(4) - CNH4NO3, ZERO) FRNH3 = MAX (FRNH3 - CNH4NO3, ZERO) C CNH4CL = MIN (FRNH3, WAER(5)) CCC FRCL = MAX (WAER(5) - CNH4CL, ZERO) FRNH3 = MAX (FRNH3 - CNH4CL, ZERO) C C *** OTHER PHASES ****************************************************** C WATER = ZERO C GNH3 = ZERO GHNO3 = ZERO GHCL = ZERO C RETURN C C *** END OF SUBROUTINE CALCV1A ***************************************** C END C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE CALCU8 C *** CASE U8 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SULRAT > 2.0); CRUSTAL+SODIUM RICH (CRNARAT >= 2.0); CRUSTAL POOR (CRRAT<2) C 2. THERE IS ONLY A LIQUID PHASE C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCU8 INCLUDE 'isrpia.inc' C DOUBLE PRECISION NH4I, NAI, NO3I, NH3AQ, NO3AQ, CLAQ, CAI, KI, MGI C COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** SETUP PARAMETERS ************************************************ C CALL CALCU1A C CHI9 = CCASO4 ! SALTS C PSI1 = CNA2SO4 PSI2 = CNANO3 PSI3 = CNACL PSI4 = CNH4CL PSI5 = CNH4NO3 PSI7 = CK2SO4 PSI8 = CMGSO4 PSI9 = CCASO4 C FRST = .TRUE. CALAIN = .TRUE. CALAOU = .TRUE. C C *** CALCULATE WATER ************************************************** C CALL CALCMR C C *** SETUP LIQUID CONCENTRATIONS ************************************** C HSO4I = ZERO NH3AQ = ZERO NO3AQ = ZERO CLAQ = ZERO C C *** SOLVE EQUATIONS ; WITH ITERATIONS FOR ACTIVITY COEF. ************ C DO 10 I=1,NSWEEP C AKW = XKW*RH*WATER*WATER ! H2O <==> H+ C NAI = WAER(1) SO4I = MAX(WAER(2) - WAER(6), ZERO) NH4I = WAER(3) NO3I = WAER(4) CLI = WAER(5) CAI = ZERO KI = WAER(7) MGI = WAER(8) C C SOLUTION ACIDIC OR BASIC? C GG = 2.D0*SO4I + NO3I + CLI - NAI - NH4I & - 2.D0*CAI - KI - 2.D0*MGI IF (GG.GT.TINY) THEN ! H+ in excess BB =-GG CC =-AKW DD = BB*BB - 4.D0*CC HI = 0.5D0*(-BB + SQRT(DD)) OHI= AKW/HI ELSE ! OH- in excess BB = GG CC =-AKW DD = BB*BB - 4.D0*CC OHI= 0.5D0*(-BB + SQRT(DD)) HI = AKW/OHI ENDIF IF (HI.LE.TINY) HI = SQRT(AKW) C OHI = AKW/HI C C UNDISSOCIATED SPECIES EQUILIBRIA C IF (HI.GT.OHI) THEN C CALL CALCAMAQ2 (-GG, NH4I, OHI, NH3AQ) C HI = AKW/OHI C HSO4I = ZERO C ELSE C GGNO3 = MAX(2.D0*SO4I + NO3I - NAI - NH4I - 2.D0*CAI C & - KI - 2.D0*MGI, ZERO) C GGCL = MAX(GG-GGNO3, ZERO) C IF (GGCL .GT.TINY) CALL CALCCLAQ2 (GGCL, CLI, HI, CLAQ) ! HCl C IF (GGNO3.GT.TINY) THEN C IF (GGCL.LE.TINY) HI = ZERO C CALL CALCNIAQ2 (GGNO3, NO3I, HI, NO3AQ) ! HNO3 C ENDIF C C CONCENTRATION ADJUSTMENTS ; HSO4 minor species. C CALL CALCHS4 (HI, SO4I, ZERO, DEL) else del= zero ENDIF SO4I = SO4I - DEL HI = HI - DEL HSO4I = DEL C IF (HI.LE.TINY) HI = SQRT(AKW) OHI = AKW/HI C IF (HI.LE.TINY) THEN HI = SQRT(AKW) OHI = AKW/HI ENDIF C C *** SAVE CONCENTRATIONS IN MOLAL ARRAY ****************************** C MOLAL(1) = HI MOLAL(2) = NAI MOLAL(3) = NH4I MOLAL(4) = CLI MOLAL(5) = SO4I MOLAL(6) = HSO4I MOLAL(7) = NO3I MOLAL(8) = CAI MOLAL(9) = KI MOLAL(10)= MGI C C *** CALCULATE ACTIVITIES OR TERMINATE INTERNAL LOOP ***************** C IF (FRST.AND.CALAOU .OR. .NOT.FRST.AND.CALAIN) THEN CALL CALCACT ELSE GOTO 20 ENDIF 10 CONTINUE ccc CALL PUSHERR (0002, 'CALCU8') ! WARNING ERROR: NO CONVERGENCE C C *** CALCULATE GAS / SOLID SPECIES (LIQUID IN MOLAL ALREADY) ********* C 20 A2 = (XK2/XKW)*R*TEMP*(GAMA(10)/GAMA(5))**2. ! NH3 <==> NH4+ A3 = XK4 *R*TEMP*(WATER/GAMA(10))**2. ! HNO3 <==> NO3- A4 = XK3 *R*TEMP*(WATER/GAMA(11))**2. ! HCL <==> CL- C GNH3 = NH4I/HI/A2 GHNO3 = HI*NO3I/A3 GHCL = HI*CLI /A4 C GASAQ(1) = NH3AQ GASAQ(2) = CLAQ GASAQ(3) = NO3AQ C CNH42S4 = ZERO CNH4NO3 = ZERO CNH4CL = ZERO CNACL = ZERO CNANO3 = ZERO CNA2SO4 = ZERO CMGSO4 = ZERO CK2SO4 = ZERO CCASO4 = MIN (WAER(6), WAER(2)) C RETURN C C *** END OF SUBROUTINE CALCU8 ****************************************** C END C C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE CALCU7 C *** CASE U7 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SO4RAT > 2.0), CRUSTAL+SODIUM RICH (CRNARAT >= 2.0); CRUSTAL POOR (CRRAT<2) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : K2SO4, CASO4 C 4. Completely dissolved: NH4NO3, NH4CL, NANO3, NACL, MGSO4, NA2SO4 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCU7 INCLUDE 'isrpia.inc' C LOGICAL PSCONV7 DOUBLE PRECISION NH4I, NAI, NO3I, NH3AQ, NO3AQ, CLAQ, CAI, KI, MGI C COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** SETUP PARAMETERS ************************************************ C FRST =.TRUE. CALAIN =.TRUE. CALAOU =.TRUE. C PSCONV7 =.TRUE. PSI70 =-GREAT ! GREAT = 1.D10 ROOT7 = ZERO C C *** CALCULATE INITIAL SOLUTION *************************************** C CALL CALCU1A C CHI7 = CK2SO4 ! SALTS CHI9 = CCASO4 C PSI1 = CNA2SO4 PSI2 = CNANO3 PSI3 = CNACL PSI4 = CNH4CL PSI5 = CNH4NO3 PSI7 = CK2SO4 PSI8 = CMGSO4 PSI9 = CCASO4 C C CALL CALCMR ! WATER C NAI = WAER(1) ! LIQUID CONCENTRATIONS SO4I = MAX (WAER(2) - WAER(6), ZERO) NH4I = WAER(3) NO3I = WAER(4) CLI = WAER(5) CAI = WAER(6) KI = WAER(7) MGI = WAER(8) C HSO4I = ZERO NH3AQ = ZERO NO3AQ = ZERO CLAQ = ZERO C MOLAL(1) = ZERO MOLAL(2) = NAI MOLAL(3) = NH4I MOLAL(4) = CLI MOLAL(5) = SO4I MOLAL(6) = HSO4I MOLAL(7) = NO3I MOLAL(8) = CAI MOLAL(9) = KI MOLAL(10)= MGI C CALL CALCACT ! CALCULATE ACTIVITY COEFFICIENTS C C *** SOLVE EQUATIONS ; WITH ITERATIONS FOR ACTIVITY COEF. ************ C DO 10 I=1,NSWEEP C A7 = XK17 *(WATER/GAMA(17))**3.0 ! K2SO4 <==> K+ AKW = XKW*RH*WATER*WATER ! H2O <==> H+ C C POTASSIUM SULFATE C IF (KI*KI*SO4I .GT. A7) THEN BB =-((WAER(2)-WAER(6)) + WAER(7)) CC = WAER(7)*(WAER(2)-WAER(6)) + 0.25D0*WAER(7)*WAER(7) DD =-0.25*(WAER(7)*WAER(7)*(WAER(2)-WAER(6)) - A7) CALL POLY3(BB, CC, DD, ROOT7, ISLV) IF (ISLV.NE.0) ROOT7 = TINY ROOT7 = MAX (ROOT7, ZERO) ROOT7 = MIN (ROOT7,WAER(7)/2.0,MAX(WAER(2)-WAER(6),ZERO),CHI7) PSI7 = CHI7-ROOT7 ENDIF PSCONV7 = ABS(PSI7-PSI70) .LE. EPS*PSI70 PSI70 = PSI7 C C ION CONCENTRATIONS ; CORRECTIONS C KI = MAX (WAER(7) - 2.D0*ROOT7, ZERO) SO4I = MAX (WAER(2) - WAER(6) - ROOT7, ZERO) NH4I = WAER(3) NO3I = WAER(4) CLI = WAER(5) CAI = ZERO NAI = WAER(1) MGI = WAER(8) C C SOLUTION ACIDIC OR BASIC? C GG = 2.D0*SO4I + NO3I + CLI - NAI - NH4I & - 2.D0*CAI - KI - 2.D0*MGI IF (GG.GT.TINY) THEN ! H+ in excess BB =-GG CC =-AKW DD = BB*BB - 4.D0*CC HI = 0.5D0*(-BB + SQRT(DD)) OHI= AKW/HI ELSE ! OH- in excess BB = GG CC =-AKW DD = BB*BB - 4.D0*CC OHI= 0.5D0*(-BB + SQRT(DD)) HI = AKW/OHI ENDIF C IF (HI.LE.TINY) HI = SQRT(AKW) C OHI = AKW/HI C C UNDISSOCIATED SPECIES EQUILIBRIA C IF (HI.GT.OHI) THEN C CALL CALCAMAQ2 (-GG, NH4I, OHI, NH3AQ) C HI = AKW/OHI C HSO4I = ZERO C ELSE C GGNO3 = MAX(2.D0*SO4I + NO3I - NAI - NH4I - 2.D0*CAI C & - KI - 2.D0*MGI, ZERO) C GGCL = MAX(GG-GGNO3, ZERO) C IF (GGCL .GT.TINY) CALL CALCCLAQ2 (GGCL, CLI, HI, CLAQ) ! HCl C IF (GGNO3.GT.TINY) THEN C IF (GGCL.LE.TINY) HI = ZERO C CALL CALCNIAQ2 (GGNO3, NO3I, HI, NO3AQ) ! HNO3 C ENDIF C C CONCENTRATION ADJUSTMENTS ; HSO4 minor species. C CALL CALCHS4 (HI, SO4I, ZERO, DEL) else del= zero ENDIF SO4I = SO4I - DEL HI = HI - DEL HSO4I = DEL C IF (HI.LE.TINY) HI = SQRT(AKW) OHI = AKW/HI C IF (HI.LE.TINY) THEN HI = SQRT(AKW) OHI = AKW/HI ENDIF C C *** SAVE CONCENTRATIONS IN MOLAL ARRAY ****************************** C MOLAL(1) = HI MOLAL(2) = NAI MOLAL(3) = NH4I MOLAL(4) = CLI MOLAL(5) = SO4I MOLAL(6) = HSO4I MOLAL(7) = NO3I MOLAL(8) = CAI MOLAL(9) = KI MOLAL(10)= MGI C C *** CALCULATE WATER ************************************************** C CALL CALCMR C C *** CALCULATE ACTIVITIES OR TERMINATE INTERNAL LOOP ***************** C IF (FRST.AND.CALAOU .OR. .NOT.FRST.AND.CALAIN) THEN CALL CALCACT ELSE IF (PSCONV7) GOTO 20 ENDIF 10 CONTINUE ccc CALL PUSHERR (0002, 'CALCU7') ! WARNING ERROR: NO CONVERGENCE C C *** CALCULATE GAS / SOLID SPECIES (LIQUID IN MOLAL ALREADY) ********* C 20 A2 = (XK2/XKW)*R*TEMP*(GAMA(10)/GAMA(5))**2. ! NH3 <==> NH4+ A3 = XK4 *R*TEMP*(WATER/GAMA(10))**2. ! HNO3 <==> NO3- A4 = XK3 *R*TEMP*(WATER/GAMA(11))**2. ! HCL <==> CL- C GNH3 = NH4I/HI/A2 GHNO3 = HI*NO3I/A3 GHCL = HI*CLI /A4 C GASAQ(1)= NH3AQ GASAQ(2)= CLAQ GASAQ(3)= NO3AQ C CNH42S4 = ZERO CNH4NO3 = ZERO CNH4CL = ZERO CNACL = ZERO CNANO3 = ZERO CNA2SO4 = ZERO CMGSO4 = ZERO CK2SO4 = CHI7 - PSI7 CCASO4 = MIN (WAER(6), WAER(2)) C RETURN C C *** END OF SUBROUTINE CALCU7 ****************************************** C END C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE CALCU6 C *** CASE U6 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SO4RAT > 2.0), Cr+NA poor (CRNARAT < 2) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : K2SO4, CASO4, NA2SO4 C 4. Completely dissolved: NH4NO3, NH4CL, NANO3, NACL, MGSO4 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCU6 INCLUDE 'isrpia.inc' C LOGICAL PSCONV7, PSCONV1 DOUBLE PRECISION NH4I, NAI, NO3I, NH3AQ, NO3AQ, CLAQ, CAI, KI, MGI C COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** SETUP PARAMETERS ************************************************ C FRST =.TRUE. CALAIN =.TRUE. CALAOU =.TRUE. C PSCONV7 =.TRUE. PSCONV1 =.TRUE. C PSI70 =-GREAT ! GREAT = 1.D10 PSI1O =-GREAT C ROOT7 = ZERO ROOT1 = ZERO C C *** CALCULATE INITIAL SOLUTION *************************************** C CALL CALCU1A C CHI1 = CNA2SO4 ! SALTS CHI7 = CK2SO4 CHI9 = CCASO4 C PSI1 = CNA2SO4 PSI2 = CNANO3 PSI3 = CNACL PSI4 = CNH4CL PSI5 = CNH4NO3 PSI7 = CK2SO4 PSI8 = CMGSO4 PSI9 = CCASO4 C CALL CALCMR ! WATER C NAI = WAER(1) ! LIQUID CONCENTRATIONS SO4I = MAX (WAER(2) - WAER(6), ZERO) NH4I = WAER(3) NO3I = WAER(4) CLI = WAER(5) CAI = WAER(6) KI = WAER(7) MGI = WAER(8) C HSO4I = ZERO NH3AQ = ZERO NO3AQ = ZERO CLAQ = ZERO C MOLAL(1) = ZERO MOLAL(2) = NAI MOLAL(3) = NH4I MOLAL(4) = CLI MOLAL(5) = SO4I MOLAL(6) = HSO4I MOLAL(7) = NO3I MOLAL(8) = CAI MOLAL(9) = KI MOLAL(10)= MGI C CALL CALCACT ! CALCULATE ACTIVITY COEFFICIENTS C C *** SOLVE EQUATIONS ; WITH ITERATIONS FOR ACTIVITY COEF. ************ C DO 10 I=1,NSWEEP C A7 = XK17 *(WATER/GAMA(17))**3.0 ! K2SO4 <==> K+ A1 = XK5 *(WATER/GAMA(2))**3.0 ! NA2S04 <==> Na+ AKW = XKW*RH*WATER*WATER ! H2O <==> H+ C C POTASSIUM SULFATE C IF (KI*KI*SO4I .GT. A7) THEN BB =-((WAER(2)-WAER(6)) + WAER(7) - ROOT1) CC = WAER(7)*((WAER(2)-WAER(6)) - ROOT1) + 0.25*WAER(7)*WAER(7) DD =-0.25*(WAER(7)*WAER(7)*((WAER(2)-WAER(6)) - ROOT1) - A7) CALL POLY3(BB, CC, DD, ROOT7, ISLV) IF (ISLV.NE.0) ROOT7 = TINY ROOT7 = MAX (ROOT7, ZERO) ROOT7 = MIN (ROOT7, WAER(7)/2.0, & MAX((WAER(2)-WAER(6)) - ROOT1,ZERO), CHI7) PSI7 = CHI7-ROOT7 ENDIF PSCONV7 = ABS(PSI7-PSI70) .LE. EPS*PSI70 PSI70 = PSI7 C C SODIUM SULFATE C IF (NAI*NAI*SO4I .GT. A1) THEN BB =-((WAER(2)-WAER(6)) + WAER(1) - ROOT7) CC = WAER(1)*((WAER(2)-WAER(6)) - ROOT7) + 0.25*WAER(1)*WAER(1) DD =-0.25*(WAER(1)*WAER(1)*((WAER(2)-WAER(6)) - ROOT7) - A1) CALL POLY3(BB, CC, DD, ROOT1, ISLV) IF (ISLV.NE.0) ROOT1 = TINY ROOT1 = MAX (ROOT1, ZERO) ROOT1 = MIN (ROOT1, WAER(1)/2.0, & MAX((WAER(2)-WAER(6)) - ROOT7, ZERO) ,CHI1) PSI1 = CHI1-ROOT1 ENDIF PSCONV1 = ABS(PSI1-PSI1O) .LE. EPS*PSI1O PSI1O = PSI1 C C ION CONCENTRATIONS ; CORRECTIONS C KI = MAX (WAER(7) - 2.D0*ROOT7, ZERO) NAI = MAX (WAER(1) - 2.D0*ROOT1, ZERO) SO4I = MAX (WAER(2) - WAER(6) - ROOT7 - ROOT1, ZERO) NH4I = WAER(3) NO3I = WAER(4) CLI = WAER(5) CAI = ZERO MGI = WAER(8) C C SOLUTION ACIDIC OR BASIC? C GG = 2.D0*SO4I + NO3I + CLI - NAI - NH4I & - 2.D0*CAI - KI - 2.D0*MGI IF (GG.GT.TINY) THEN ! H+ in excess BB =-GG CC =-AKW DD = BB*BB - 4.D0*CC HI = 0.5D0*(-BB + SQRT(DD)) OHI= AKW/HI ELSE ! OH- in excess BB = GG CC =-AKW DD = BB*BB - 4.D0*CC OHI= 0.5D0*(-BB + SQRT(DD)) HI = AKW/OHI ENDIF C IF (HI.LE.TINY) HI = SQRT(AKW) C OHI = AKW/HI C C UNDISSOCIATED SPECIES EQUILIBRIA C IF (HI.GT.OHI) THEN C CALL CALCAMAQ2 (-GG, NH4I, OHI, NH3AQ) C HI = AKW/OHI C HSO4I = ZERO C ELSE C GGNO3 = MAX(2.D0*SO4I + NO3I - NAI - NH4I - 2.D0*CAI C & - KI - 2.D0*MGI, ZERO) C GGCL = MAX(GG-GGNO3, ZERO) C IF (GGCL .GT.TINY) CALL CALCCLAQ2 (GGCL, CLI, HI, CLAQ) ! HCl C IF (GGNO3.GT.TINY) THEN C IF (GGCL.LE.TINY) HI = ZERO C CALL CALCNIAQ2 (GGNO3, NO3I, HI, NO3AQ) ! HNO3 C ENDIF C C CONCENTRATION ADJUSTMENTS ; HSO4 minor species. C CALL CALCHS4 (HI, SO4I, ZERO, DEL) else del= zero ENDIF SO4I = SO4I - DEL HI = HI - DEL HSO4I = DEL C IF (HI.LE.TINY) HI = SQRT(AKW) OHI = AKW/HI C IF (HI.LE.TINY) THEN HI = SQRT(AKW) OHI = AKW/HI ENDIF C C *** SAVE CONCENTRATIONS IN MOLAL ARRAY ****************************** C MOLAL(1) = HI MOLAL(2) = NAI MOLAL(3) = NH4I MOLAL(4) = CLI MOLAL(5) = SO4I MOLAL(6) = HSO4I MOLAL(7) = NO3I MOLAL(8) = CAI MOLAL(9) = KI MOLAL(10)= MGI C C *** CALCULATE WATER ************************************************** C CALL CALCMR C C *** CALCULATE ACTIVITIES OR TERMINATE INTERNAL LOOP ***************** C IF (FRST.AND.CALAOU .OR. .NOT.FRST.AND.CALAIN) THEN CALL CALCACT ELSE IF (PSCONV7 .AND. PSCONV1) GOTO 20 ENDIF 10 CONTINUE ccc CALL PUSHERR (0002, 'CALCU6') ! WARNING ERROR: NO CONVERGENCE C C *** CALCULATE GAS / SOLID SPECIES (LIQUID IN MOLAL ALREADY) ********* C 20 A2 = (XK2/XKW)*R*TEMP*(GAMA(10)/GAMA(5))**2. ! NH3 <==> NH4+ A3 = XK4 *R*TEMP*(WATER/GAMA(10))**2. ! HNO3 <==> NO3- A4 = XK3 *R*TEMP*(WATER/GAMA(11))**2. ! HCL <==> CL- C GNH3 = NH4I/HI/A2 GHNO3 = HI*NO3I/A3 GHCL = HI*CLI /A4 C GASAQ(1)= NH3AQ GASAQ(2)= CLAQ GASAQ(3)= NO3AQ C CNH42S4 = ZERO CNH4NO3 = ZERO CNH4CL = ZERO CNACL = ZERO CNANO3 = ZERO CNA2SO4 = CHI1 - PSI1 CMGSO4 = ZERO CK2SO4 = CHI7 - PSI7 CCASO4 = MIN (WAER(6), WAER(2)) C RETURN C C *** END OF SUBROUTINE CALCU6****************************************** C END C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE CALCU5 C *** CASE U5 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SO4RAT > 2.0), Cr+NA poor (CRNARAT < 2) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : K2SO4, CASO4, NA2SO4, MGSO4 C 4. Completely dissolved: NH4NO3, NH4CL, NANO3, NACL C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCU5 INCLUDE 'isrpia.inc' C LOGICAL PSCONV7, PSCONV1 DOUBLE PRECISION NH4I, NAI, NO3I, NH3AQ, NO3AQ, CLAQ, CAI, KI, MGI C COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** SETUP PARAMETERS ************************************************ C FRST =.TRUE. CALAIN =.TRUE. CALAOU =.TRUE. C PSCONV7 =.TRUE. PSCONV1 =.TRUE. C PSI70 =-GREAT ! GREAT = 1.D10 PSI1O =-GREAT C ROOT7 = ZERO ROOT1 = ZERO C C *** CALCULATE INITIAL SOLUTION *************************************** C CALL CALCU1A C CHI1 = CNA2SO4 ! SALTS CHI7 = CK2SO4 CHI8 = CMGSO4 CHI9 = CCASO4 C PSI1 = CNA2SO4 PSI2 = CNANO3 PSI3 = CNACL PSI4 = CNH4CL PSI5 = CNH4NO3 PSI7 = CK2SO4 PSI8 = CMGSO4 PSI9 = CCASO4 C CALL CALCMR ! WATER C NAI = WAER(1) ! LIQUID CONCENTRATIONS SO4I = MAX (WAER(2) - WAER(6), ZERO) NH4I = WAER(3) NO3I = WAER(4) CLI = WAER(5) CAI = WAER(6) KI = WAER(7) MGI = WAER(8) C HSO4I = ZERO NH3AQ = ZERO NO3AQ = ZERO CLAQ = ZERO C MOLAL(1) = ZERO MOLAL(2) = NAI MOLAL(3) = NH4I MOLAL(4) = CLI MOLAL(5) = SO4I MOLAL(6) = HSO4I MOLAL(7) = NO3I MOLAL(8) = CAI MOLAL(9) = KI MOLAL(10)= MGI C CALL CALCACT ! CALCULATE ACTIVITY COEFFICIENTS C C *** SOLVE EQUATIONS ; WITH ITERATIONS FOR ACTIVITY COEF. ************ C DO 10 I=1,NSWEEP A7 = XK17 *(WATER/GAMA(17))**3.0 ! K2SO4 <==> K+ A1 = XK5 *(WATER/GAMA(2))**3.0 ! NA2S04 <==> Na+ AKW = XKW*RH*WATER*WATER ! H2O <==> H+ C C POTASSIUM SULFATE C IF (KI*KI*SO4I .GT. A7) THEN BB =-((WAER(2)-WAER(6)) + WAER(7) - ROOT1) CC = WAER(7)*((WAER(2)-WAER(6)) - ROOT1) + 0.25*WAER(7)*WAER(7) DD =-0.25*(WAER(7)*WAER(7)*((WAER(2)-WAER(6)) - ROOT1) - A7) CALL POLY3(BB, CC, DD, ROOT7, ISLV) IF (ISLV.NE.0) ROOT7 = TINY ROOT7 = MAX (ROOT7, ZERO) ROOT7 = MIN (ROOT7, WAER(7)/2.0, & MAX(WAER(2)-WAER(6)-ROOT1, ZERO),CHI7) PSI7 = CHI7-ROOT7 ENDIF PSCONV7 = ABS(PSI7-PSI70) .LE. EPS*PSI70 PSI70 = PSI7 C C SODIUM SULFATE C IF (NAI*NAI*SO4I .GT. A1) THEN BB =-((WAER(2)-WAER(6)) + WAER(1) - ROOT7) CC = WAER(1)*((WAER(2)-WAER(6)) - ROOT7) + 0.25*WAER(1)*WAER(1) DD =-0.25*(WAER(1)*WAER(1)*((WAER(2)-WAER(6)) - ROOT7) - A1) CALL POLY3(BB, CC, DD, ROOT1, ISLV) IF (ISLV.NE.0) ROOT1 = TINY ROOT1 = MAX (ROOT1, ZERO) ROOT1 = MIN (ROOT1, WAER(1)/2.0, & MAX(WAER(2)-WAER(6)-ROOT7, ZERO),CHI1) PSI1 = CHI1-ROOT1 ENDIF PSCONV1 = ABS(PSI1-PSI1O) .LE. EPS*PSI1O PSI1O = PSI1 C C ION CONCENTRATIONS ; CORRECTIONS C KI = MAX (WAER(7) - 2.D0*ROOT7, ZERO) NAI = MAX (WAER(1) - 2.D0*ROOT1, ZERO) SO4I = MAX (WAER(2)-WAER(6) - ROOT7 - ROOT1, ZERO) NH4I = WAER(3) NO3I = WAER(4) CLI = WAER(5) CAI = ZERO MGI = WAER(8) C C SOLUTION ACIDIC OR BASIC? C GG = 2.D0*SO4I + NO3I + CLI - NAI - NH4I & - 2.D0*CAI - KI - 2.D0*MGI IF (GG.GT.TINY) THEN ! H+ in excess BB =-GG CC =-AKW DD = BB*BB - 4.D0*CC HI = 0.5D0*(-BB + SQRT(DD)) OHI= AKW/HI ELSE ! OH- in excess BB = GG CC =-AKW DD = BB*BB - 4.D0*CC OHI= 0.5D0*(-BB + SQRT(DD)) HI = AKW/OHI ENDIF C IF (HI.LE.TINY) HI = SQRT(AKW) C OHI = AKW/HI C C UNDISSOCIATED SPECIES EQUILIBRIA C IF (HI.GT.OHI) THEN C CALL CALCAMAQ2 (-GG, NH4I, OHI, NH3AQ) C HI = AKW/OHI C HSO4I = ZERO C ELSE C GGNO3 = MAX(2.D0*SO4I + NO3I - NAI - NH4I - 2.D0*CAI C & - KI - 2.D0*MGI, ZERO) C GGCL = MAX(GG-GGNO3, ZERO) C IF (GGCL .GT.TINY) CALL CALCCLAQ2 (GGCL, CLI, HI, CLAQ) ! HCl C IF (GGNO3.GT.TINY) THEN C IF (GGCL.LE.TINY) HI = ZERO C CALL CALCNIAQ2 (GGNO3, NO3I, HI, NO3AQ) ! HNO3 C ENDIF C C CONCENTRATION ADJUSTMENTS ; HSO4 minor species. C CALL CALCHS4 (HI, SO4I, ZERO, DEL) else del= zero ENDIF SO4I = SO4I - DEL HI = HI - DEL HSO4I = DEL C IF (HI.LE.TINY) HI = SQRT(AKW) OHI = AKW/HI C IF (HI.LE.TINY) THEN HI = SQRT(AKW) OHI = AKW/HI ENDIF C C *** SAVE CONCENTRATIONS IN MOLAL ARRAY ****************************** C MOLAL(1) = HI MOLAL(2) = NAI MOLAL(3) = NH4I MOLAL(4) = CLI MOLAL(5) = SO4I MOLAL(6) = HSO4I MOLAL(7) = NO3I MOLAL(8) = CAI MOLAL(9) = KI MOLAL(10)= MGI C C *** CALCULATE WATER ************************************************** C CALL CALCMR C C *** CALCULATE ACTIVITIES OR TERMINATE INTERNAL LOOP ***************** C IF (FRST.AND.CALAOU .OR. .NOT.FRST.AND.CALAIN) THEN CALL CALCACT ELSE IF (PSCONV7 .AND. PSCONV1) GOTO 20 ENDIF 10 CONTINUE ccc CALL PUSHERR (0002, 'CALCU5') ! WARNING ERROR: NO CONVERGENCE C C *** CALCULATE GAS / SOLID SPECIES (LIQUID IN MOLAL ALREADY) ********* C 20 A2 = (XK2/XKW)*R*TEMP*(GAMA(10)/GAMA(5))**2. ! NH3 <==> NH4+ A3 = XK4 *R*TEMP*(WATER/GAMA(10))**2. ! HNO3 <==> NO3- A4 = XK3 *R*TEMP*(WATER/GAMA(11))**2. ! HCL <==> CL- C GNH3 = NH4I/HI/A2 GHNO3 = HI*NO3I/A3 GHCL = HI*CLI /A4 C GASAQ(1)= NH3AQ GASAQ(2)= CLAQ GASAQ(3)= NO3AQ C CNH42S4 = ZERO CNH4NO3 = ZERO CNH4CL = ZERO CNACL = ZERO CNANO3 = ZERO CNA2SO4 = CHI1 - PSI1 CMGSO4 = ZERO CK2SO4 = CHI7 - PSI7 CCASO4 = MIN (WAER(6), WAER(2)) C RETURN C C *** END OF SUBROUTINE CALCU5****************************************** C END C C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE CALCU4 C *** CASE U4 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SO4RAT > 2.0), (DUST + SODIUM) RICH: R(Cr+Na)>2; DUST POOR: Rcr<2. C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : K2SO4, CASO4, NA2SO4, MGSO4, NH4CL C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCU4 INCLUDE 'isrpia.inc' LOGICAL EXAN, EXAC, EXSN, EXSC EXTERNAL CALCU1A, CALCU5 C C *** SOLVE FOR DRY CASE AND SEE WHICH SOLIDS ARE POSSIBLE ************** C SCASE = 'U4 ; SUBCASE 2' CALL CALCU1A ! SOLID SCASE = 'U4 ; SUBCASE 2' C EXAN = CNH4NO3.GT.TINY ! NH4NO3 EXAC = CNH4CL .GT.TINY ! NH4CL EXSN = CNANO3 .GT.TINY ! NANO3 EXSC = CNACL .GT.TINY ! NACL C C *** REGIME DEPENDS ON RELATIVE HUMIDITY AND POSSIBLE SPECIES ********** C IF (EXAN .OR. EXSN .OR. EXSC) THEN ! *** NH4NO3,NANO3 EXIST IF (RH.GE.DRMM1) THEN SCASE = 'U4 ; SUBCASE 1' CALL CALCU4A SCASE = 'U4 ; SUBCASE 1' ENDIF C ELSE IF (EXAC) THEN ! *** NH4CL EXISTS ONLY IF (RH.GE.DRMR5) THEN SCASE = 'U4 ; SUBCASE 3' CALL CALCMDRPII (RH, DRMR5, DRNH4CL, CALCU1A, CALCU5) SCASE = 'U4 ; SUBCASE 3' ENDIF ENDIF C RETURN C C *** END OF SUBROUTINE CALCU4 ****************************************** C END C C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE CALCU4A C *** CASE U4A C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SO4RAT > 2.0), Cr+NA poor (CRNARAT < 2) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : K2SO4, CASO4, NA2SO4, MGSO4, NH4CL C 4. Completely dissolved: NH4NO3, NANO3, NACL C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCU4A INCLUDE 'isrpia.inc' C LOGICAL PSCONV7, PSCONV1, PSCONV4 DOUBLE PRECISION NH4I, NAI, NO3I, NH3AQ, NO3AQ, CLAQ, CAI, KI, MGI C COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** SETUP PARAMETERS ************************************************ C FRST =.TRUE. CALAIN =.TRUE. CALAOU =.TRUE. C PSCONV7 =.FALSE. PSCONV1 =.FALSE. PSCONV4 =.FALSE. C PSI70 =-GREAT ! GREAT = 1.D10 PSI1O =-GREAT PSI40 =-GREAT C ROOT7 = ZERO ROOT1 = ZERO ROOT4 = ZERO C C *** CALCULATE INITIAL SOLUTION *************************************** C CALL CALCU1A C CHI1 = CNA2SO4 ! SALTS CHI4 = CNH4CL CHI7 = CK2SO4 CHI8 = CMGSO4 CHI9 = CCASO4 C PSI1 = CNA2SO4 PSI2 = CNANO3 PSI3 = CNACL PSI4 = CNH4CL PSI5 = CNH4NO3 PSI7 = CK2SO4 PSI8 = CMGSO4 PSI9 = CCASO4 C CALL CALCMR ! WATER C NAI = WAER(1) ! LIQUID CONCENTRATIONS SO4I = MAX (WAER(2) - WAER(6), ZERO) NH4I = WAER(3) NO3I = WAER(4) CLI = WAER(5) CAI = WAER(6) KI = WAER(7) MGI = WAER(8) C HSO4I = ZERO NH3AQ = ZERO NO3AQ = ZERO CLAQ = ZERO C MOLAL(1) = ZERO MOLAL(2) = NAI MOLAL(3) = NH4I MOLAL(4) = CLI MOLAL(5) = SO4I MOLAL(6) = HSO4I MOLAL(7) = NO3I MOLAL(8) = CAI MOLAL(9) = KI MOLAL(10)= MGI C CALL CALCACT ! CALCULATE ACTIVITY COEFFICIENTS C C *** SOLVE EQUATIONS ; WITH ITERATIONS FOR ACTIVITY COEF. ************ C DO 10 I=1,NSWEEP C A7 = XK17 *(WATER/GAMA(17))**3.0 ! K2SO4 <==> K+ A1 = XK5 *(WATER/GAMA(2))**3.0 ! NA2S04 <==> Na+ A14 = XK14*(WATER/GAMA(6))**2.0 ! NH4Cl <==> NH4+ AKW = XKW*RH*WATER*WATER ! H2O <==> H+ C C POTASSIUM SULFATE C IF (KI*KI*SO4I .GT. A7) THEN BB =-((WAER(2)-WAER(6)) + WAER(7) - ROOT1) CC = WAER(7)*((WAER(2)-WAER(6)) - ROOT1) + 0.25*WAER(7)*WAER(7) DD =-0.25*(WAER(7)*WAER(7)*((WAER(2)-WAER(6)) - ROOT1) - A7) CALL POLY3(BB, CC, DD, ROOT7, ISLV) IF (ISLV.NE.0) ROOT7 = TINY ROOT7 = MAX (ROOT7, ZERO) ROOT7 = MIN (ROOT7, WAER(7)/2.0, & MAX(WAER(2)-WAER(6)-ROOT1, ZERO), CHI7) PSI7 = CHI7-ROOT7 ENDIF PSCONV7 = ABS(PSI7-PSI70) .LE. EPS*PSI70 PSI70 = PSI7 C C SODIUM SULFATE C IF (NAI*NAI*SO4I .GT. A1) THEN BB =-((WAER(2)-WAER(6)) + WAER(1) - ROOT7) CC = WAER(1)*((WAER(2)-WAER(6)) - ROOT7) + 0.25*WAER(1)*WAER(1) DD =-0.25*(WAER(1)*WAER(1)*((WAER(2)-WAER(6)) - ROOT7) - A1) CALL POLY3(BB, CC, DD, ROOT1, ISLV) IF (ISLV.NE.0) ROOT1 = TINY ROOT1 = MAX (ROOT1, ZERO) ROOT1 = MIN (ROOT1, WAER(1)/2.0, & MAX (WAER(2)-WAER(6)-ROOT7, ZERO), CHI1) PSI1 = CHI1-ROOT1 ENDIF PSCONV1 = ABS(PSI1-PSI1O) .LE. EPS*PSI1O PSI1O = PSI1 C C AMMONIUM CHLORIDE C IF (NH4I*CLI .GT. A14) THEN BB =-(NH4I + CLI) CC =-A14 + NH4I*CLI DD = BB*BB - 4.D0*CC ROOT4 = 0.5D0*(-BB-SQRT(DD)) IF (ROOT4.GT.TINY) THEN ROOT4 = MIN(MAX (ROOT4, ZERO), CHI4) PSI4 = CHI4 - ROOT4 ENDIF ENDIF PSCONV4 = ABS(PSI4-PSI40) .LE. EPS*PSI40 PSI40 = PSI4 C C ION CONCENTRATIONS ; CORRECTIONS C KI = MAX (WAER(7) - 2.D0*ROOT7, ZERO) NAI = MAX (WAER(1) - 2.D0*ROOT1, ZERO) SO4I = MAX (WAER(2) - WAER(6) - ROOT7 - ROOT1, ZERO) NH4I = MAX (WAER(3) - ROOT4, ZERO) NO3I = WAER(4) CLI = MAX (WAER(5) - ROOT4, ZERO) CAI = ZERO MGI = WAER(8) C C SOLUTION ACIDIC OR BASIC? C GG = 2.D0*SO4I + NO3I + CLI - NAI - NH4I & - 2.D0*CAI - KI - 2.D0*MGI IF (GG.GT.TINY) THEN ! H+ in excess BB =-GG CC =-AKW DD = BB*BB - 4.D0*CC HI = 0.5D0*(-BB + SQRT(DD)) OHI= AKW/HI ELSE ! OH- in excess BB = GG CC =-AKW DD = BB*BB - 4.D0*CC OHI= 0.5D0*(-BB + SQRT(DD)) HI = AKW/OHI ENDIF C IF (HI.LE.TINY) HI = SQRT(AKW) C OHI = AKW/HI C C UNDISSOCIATED SPECIES EQUILIBRIA C IF (HI.GT.OHI) THEN C CALL CALCAMAQ2 (-GG, NH4I, OHI, NH3AQ) C HI = AKW/OHI C HSO4I = ZERO C ELSE C GGNO3 = MAX(2.D0*SO4I + NO3I - NAI - NH4I - 2.D0*CAI C & - KI - 2.D0*MGI, ZERO) C GGCL = MAX(GG-GGNO3, ZERO) C IF (GGCL .GT.TINY) CALL CALCCLAQ2 (GGCL, CLI, HI, CLAQ) ! HCl C IF (GGNO3.GT.TINY) THEN C IF (GGCL.LE.TINY) HI = ZERO C CALL CALCNIAQ2 (GGNO3, NO3I, HI, NO3AQ) ! HNO3 C ENDIF C C CONCENTRATION ADJUSTMENTS ; HSO4 minor species. C CALL CALCHS4 (HI, SO4I, ZERO, DEL) else del= zero ENDIF SO4I = SO4I - DEL HI = HI - DEL HSO4I = DEL C IF (HI.LE.TINY) HI = SQRT(AKW) OHI = AKW/HI C IF (HI.LE.TINY) THEN HI = SQRT(AKW) OHI = AKW/HI ENDIF C C *** SAVE CONCENTRATIONS IN MOLAL ARRAY ****************************** C MOLAL(1) = HI MOLAL(2) = NAI MOLAL(3) = NH4I MOLAL(4) = CLI MOLAL(5) = SO4I MOLAL(6) = HSO4I MOLAL(7) = NO3I MOLAL(8) = CAI MOLAL(9) = KI MOLAL(10)= MGI C C *** CALCULATE WATER ************************************************** C CALL CALCMR C C *** CALCULATE ACTIVITIES OR TERMINATE INTERNAL LOOP ***************** C IF (FRST.AND.CALAOU .OR. .NOT.FRST.AND.CALAIN) THEN CALL CALCACT ELSE IF (PSCONV7 .AND. PSCONV1 .AND. PSCONV4) GOTO 20 ENDIF 10 CONTINUE ccc CALL PUSHERR (0002, 'CALCU4') ! WARNING ERROR: NO CONVERGENCE C C *** CALCULATE GAS / SOLID SPECIES (LIQUID IN MOLAL ALREADY) ********* C 20 A2 = (XK2/XKW)*R*TEMP*(GAMA(10)/GAMA(5))**2. ! NH3 <==> NH4+ A3 = XK4 *R*TEMP*(WATER/GAMA(10))**2. ! HNO3 <==> NO3- A4 = XK3 *R*TEMP*(WATER/GAMA(11))**2. ! HCL <==> CL- C GNH3 = NH4I/HI/A2 GHNO3 = HI*NO3I/A3 GHCL = HI*CLI /A4 C GASAQ(1)= NH3AQ GASAQ(2)= CLAQ GASAQ(3)= NO3AQ C CNH42S4 = ZERO CNH4NO3 = ZERO CNH4CL = CHI4 - PSI4 CNACL = ZERO CNANO3 = ZERO CNA2SO4 = CHI1 - PSI1 CMGSO4 = ZERO CK2SO4 = CHI7 - PSI7 CCASO4 = MIN (WAER(6), WAER(2)) C RETURN C C *** END OF SUBROUTINE CALCU4A **************************************** C END C C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE CALCU3 C *** CASE U3 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SO4RAT > 2.0), (DUST + SODIUM) RICH: R(Cr+Na)>2; DUST POOR: Rcr<2. C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : K2SO4, CASO4, NA2SO4, MGSO4, NH4CL, NANO3 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCU3 INCLUDE 'isrpia.inc' LOGICAL EXAN, EXAC, EXSN, EXSC EXTERNAL CALCU1A, CALCU4A, CALCU5 C C *** SOLVE FOR DRY CASE AND SEE WHICH SOLIDS ARE POSSIBLE ************** C SCASE = 'U3 ; SUBCASE 2' CALL CALCU1A ! SOLID SCASE = 'U3 ; SUBCASE 2' C EXAN = CNH4NO3.GT.TINY ! NH4NO3 EXAC = CNH4CL .GT.TINY ! NH4CL EXSN = CNANO3 .GT.TINY ! NANO3 EXSC = CNACL .GT.TINY ! NACL C C *** REGIME DEPENDS ON RELATIVE HUMIDITY AND POSSIBLE SPECIES ********** C IF (EXAN .OR. EXSN) THEN ! *** NH4NO3,NANO3 EXIST IF (RH.GE.DRMM1) THEN SCASE = 'U3 ; SUBCASE 1' CALL CALCU3A SCASE = 'U3 ; SUBCASE 1' ENDIF C ELSE IF (.NOT.EXAN .AND. .NOT.EXSN) THEN ! *** NH4NO3,NANO3 = 0 IF ( EXAC .AND. EXSC) THEN IF (RH.GE.DRMR4) THEN SCASE = 'U3 ; SUBCASE 3' CALL CALCMDRPII (RH, DRMR4, DRNACL, CALCU1A, CALCU4A) SCASE = 'U3 ; SUBCASE 3' ENDIF ELSE IF (.NOT.EXAC .AND. EXSC) THEN IF (RH.GE.DRMR2) THEN SCASE = 'U3 ; SUBCASE 4' CALL CALCMDRPII (RH, DRMR2, DRNACL, CALCU1A, CALCU4A) SCASE = 'U3 ; SUBCASE 4' ENDIF ELSE IF ( EXAC .AND. .NOT.EXSC) THEN IF (RH.GE.DRMR5) THEN SCASE = 'U3 ; SUBCASE 5' CALL CALCMDRPII (RH, DRMR5, DRNACL, CALCU1A, CALCU5) SCASE = 'U3 ; SUBCASE 5' ENDIF ENDIF C ENDIF C RETURN C C *** END OF SUBROUTINE CALCU3 ****************************************** C END C C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE CALCU3A C *** CASE U3A C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SO4RAT > 2.0), Cr+NA poor (CRNARAT < 2) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : K2SO4, CASO4, NA2SO4, MGSO4, NH4CL, NACL C 4. Completely dissolved: NH4NO3, NANO3 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCU3A INCLUDE 'isrpia.inc' C LOGICAL PSCONV7, PSCONV1, PSCONV4, PSCONV3 DOUBLE PRECISION NH4I, NAI, NO3I, NH3AQ, NO3AQ, CLAQ, CAI, KI, MGI C COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** SETUP PARAMETERS ************************************************ C FRST =.TRUE. CALAIN =.TRUE. CALAOU =.TRUE. C PSCONV7 =.FALSE. PSCONV1 =.FALSE. PSCONV4 =.FALSE. PSCONV3 =.FALSE. C PSI70 =-GREAT ! GREAT = 1.D10 PSI1O =-GREAT PSI40 =-GREAT PSI30 =-GREAT C ROOT7 = ZERO ROOT1 = ZERO ROOT4 = ZERO ROOT3 = ZERO C C *** CALCULATE INITIAL SOLUTION *************************************** C CALL CALCU1A C CHI1 = CNA2SO4 ! SALTS CHI3 = CNACL CHI4 = CNH4CL CHI7 = CK2SO4 CHI8 = CMGSO4 CHI9 = CCASO4 C PSI1 = CNA2SO4 ! AMOUNT DISSOLVED PSI2 = CNANO3 PSI3 = CNACL PSI4 = CNH4CL PSI5 = CNH4NO3 PSI7 = CK2SO4 PSI8 = CMGSO4 PSI9 = CCASO4 C CALL CALCMR ! WATER C NAI = WAER(1) ! LIQUID CONCENTRATIONS SO4I = MAX (WAER(2) - WAER(6), ZERO) NH4I = WAER(3) NO3I = WAER(4) CLI = WAER(5) CAI = WAER(6) KI = WAER(7) MGI = WAER(8) C HSO4I = ZERO NH3AQ = ZERO NO3AQ = ZERO CLAQ = ZERO C MOLAL(1) = ZERO MOLAL(2) = NAI MOLAL(3) = NH4I MOLAL(4) = CLI MOLAL(5) = SO4I MOLAL(6) = HSO4I MOLAL(7) = NO3I MOLAL(8) = CAI MOLAL(9) = KI MOLAL(10)= MGI C CALL CALCACT ! CALCULATE ACTIVITY COEFFICIENTS C C *** SOLVE EQUATIONS ; WITH ITERATIONS FOR ACTIVITY COEF. ************ C DO 10 I=1,NSWEEP C A7 = XK17 *(WATER/GAMA(17))**3.0 ! K2SO4 <==> K+ A1 = XK5 *(WATER/GAMA(2))**3.0 ! NA2S04 <==> Na+ A14 = XK14*(WATER/GAMA(6))**2.0 ! NH4Cl <==> NH4+ AKW = XKW*RH*WATER*WATER ! H2O <==> H+ A8 = XK8 *(WATER/GAMA(1))**2.0 ! NaCl <==> Na+ C C POTASSIUM SULFATE C IF (KI*KI*SO4I .GT. A7) THEN BB =-((WAER(2)-WAER(6)) + WAER(7) - ROOT1) CC = WAER(7)*((WAER(2)-WAER(6)) - ROOT1) + 0.25*WAER(7)*WAER(7) DD =-0.25*(WAER(7)*WAER(7)*((WAER(2)-WAER(6)) - ROOT1) - A7) CALL POLY3(BB, CC, DD, ROOT7, ISLV) IF (ISLV.NE.0) ROOT7 = TINY ROOT7 = MAX (ROOT7, ZERO) ROOT7 = MIN (ROOT7, WAER(7)/2.0, & MAX(WAER(2)-WAER(6)-ROOT1, ZERO),CHI7) PSI7 = CHI7-ROOT7 ENDIF PSCONV7 = ABS(PSI7-PSI70) .LE. EPS*PSI70 PSI70 = PSI7 C C SODIUM SULFATE C IF (NAI*NAI*SO4I .GT. A1) THEN BB =-(((WAER(2)-WAER(6))-ROOT7)*(WAER(1) - ROOT3)) CC = ((WAER(2) - WAER(6)) - ROOT7)*(WAER(1) - ROOT3) + & 0.25D0*(WAER(1) - ROOT3)**2. DD =-0.25D0*(((WAER(2) - WAER(6)) - ROOT7)* & (WAER(1) - ROOT3)**2.D0 - A1) CALL POLY3(BB, CC, DD, ROOT1, ISLV) IF (ISLV.NE.0) ROOT1 = TINY ROOT1 = MIN (MAX(ROOT1, ZERO), MAX(WAER(1) - ROOT3, ZERO), & CHI1, MAX(WAER(2)-WAER(6), ZERO)) PSI1 = CHI1-ROOT1 ENDIF PSCONV1 = ABS(PSI1-PSI1O) .LE. EPS*PSI1O PSI1O = PSI1 C C AMMONIUM CHLORIDE C IF (NH4I*CLI .GT. A14) THEN BB =-(WAER(3) + WAER(5) - ROOT4) CC =-A14 + NH4I*(WAER(5) - ROOT4) DD = MAX(BB*BB - 4.D0*CC, ZERO) ROOT4A= 0.5D0*(-BB+SQRT(DD)) ROOT4B= 0.5D0*(-BB-SQRT(DD)) IF (ZERO.LE.ROOT4A) THEN ROOT4 = ROOT4A ELSE ROOT4 = ROOT4B ENDIF ROOT4 = MIN(MAX(ZERO, ROOT4), MAX(WAER(5)-ROOT3,ZERO), & CHI4, WAER(3)) PSI4 = CHI4 - ROOT4 ENDIF PSCONV4 = ABS(PSI4-PSI40) .LE. EPS*PSI40 PSI40 = PSI4 C C SODIUM CHLORIDE ; To obtain new value for ROOT3 C IF (NAI*CLI .GT. A8) THEN BB =-((CHI1-2.D0*ROOT1) + (WAER(5) - ROOT4)) CC = (CHI1-2.D0*ROOT1)*(WAER(5) - ROOT4) - A8 DD = SQRT(MAX(BB*BB - 4.D0*CC, TINY)) ROOT3A= 0.5D0*(-BB-SQRT(DD)) ROOT3B= 0.5D0*(-BB+SQRT(DD)) IF (ZERO.LE.ROOT3A) THEN ROOT3 = ROOT3A ELSE ROOT3 = ROOT3B ENDIF ROOT3 = MIN(MAX(ROOT3, ZERO), CHI3) PSI3 = CHI3-ROOT3 ENDIF PSCONV3 = ABS(PSI3-PSI30) .LE. EPS*PSI30 PSI30 = PSI3 C C ION CONCENTRATIONS ; CORRECTIONS C KI = MAX (WAER(7) - 2.D0*ROOT7, ZERO) NAI = MAX (WAER(1) - 2.D0*ROOT1 - ROOT3, ZERO) SO4I = MAX (WAER(2)-WAER(6) - ROOT7 - ROOT1, ZERO) NH4I = MAX (WAER(3) - ROOT4, ZERO) NO3I = WAER(4) CLI = MAX (WAER(5) - ROOT4 - ROOT3, ZERO) CAI = ZERO MGI = WAER(8) C C SOLUTION ACIDIC OR BASIC? C GG = 2.D0*SO4I + NO3I + CLI - NAI - NH4I & - 2.D0*CAI - KI - 2.D0*MGI IF (GG.GT.TINY) THEN ! H+ in excess BB =-GG CC =-AKW DD = BB*BB - 4.D0*CC HI = 0.5D0*(-BB + SQRT(DD)) OHI= AKW/HI ELSE ! OH- in excess BB = GG CC =-AKW DD = BB*BB - 4.D0*CC OHI= 0.5D0*(-BB + SQRT(DD)) HI = AKW/OHI ENDIF C IF (HI.LE.TINY) HI = SQRT(AKW) C OHI = AKW/HI C C UNDISSOCIATED SPECIES EQUILIBRIA C IF (HI.GT.OHI) THEN C CALL CALCAMAQ2 (-GG, NH4I, OHI, NH3AQ) C HI = AKW/OHI C HSO4I = ZERO C ELSE C GGNO3 = MAX(2.D0*SO4I + NO3I - NAI - NH4I - 2.D0*CAI C & - KI - 2.D0*MGI, ZERO) C GGCL = MAX(GG-GGNO3, ZERO) C IF (GGCL .GT.TINY) CALL CALCCLAQ2 (GGCL, CLI, HI, CLAQ) ! HCl C IF (GGNO3.GT.TINY) THEN C IF (GGCL.LE.TINY) HI = ZERO C CALL CALCNIAQ2 (GGNO3, NO3I, HI, NO3AQ) ! HNO3 C ENDIF C C CONCENTRATION ADJUSTMENTS ; HSO4 minor species. C CALL CALCHS4 (HI, SO4I, ZERO, DEL) else del= zero ENDIF SO4I = SO4I - DEL HI = HI - DEL HSO4I = DEL C IF (HI.LE.TINY) HI = SQRT(AKW) OHI = AKW/HI C IF (HI.LE.TINY) THEN HI = SQRT(AKW) OHI = AKW/HI ENDIF C C *** SAVE CONCENTRATIONS IN MOLAL ARRAY ****************************** C MOLAL(1) = HI MOLAL(2) = NAI MOLAL(3) = NH4I MOLAL(4) = CLI MOLAL(5) = SO4I MOLAL(6) = HSO4I MOLAL(7) = NO3I MOLAL(8) = CAI MOLAL(9) = KI MOLAL(10)= MGI C C *** CALCULATE WATER ************************************************** C CALL CALCMR C C *** CALCULATE ACTIVITIES OR TERMINATE INTERNAL LOOP ***************** C IF (FRST.AND.CALAOU .OR. .NOT.FRST.AND.CALAIN) THEN CALL CALCACT ELSE IF (PSCONV7 .AND. PSCONV1 .AND. PSCONV4 .AND. PSCONV3) GOTO 20 ENDIF 10 CONTINUE ccc CALL PUSHERR (0002, 'CALCU3A') ! WARNING ERROR: NO CONVERGENCE C C *** CALCULATE GAS / SOLID SPECIES (LIQUID IN MOLAL ALREADY) ********* C 20 IF (CLI.LE.TINY .AND. WAER(5).GT.TINY) THEN !No disslv Cl-;solid only DO 30 I=1,NIONS MOLAL(I) = ZERO 30 CONTINUE DO 40 I=1,NGASAQ GASAQ(I) = ZERO 40 CONTINUE CALL CALCU1A ELSE A2 = (XK2/XKW)*R*TEMP*(GAMA(10)/GAMA(5))**2. ! NH3 <==> NH4+ A3 = XK4 *R*TEMP*(WATER/GAMA(10))**2. ! HNO3 <==> NO3- A4 = XK3 *R*TEMP*(WATER/GAMA(11))**2. ! HCL <==> CL- C GNH3 = NH4I/HI/A2 GHNO3 = HI*NO3I/A3 GHCL = HI*CLI /A4 C GASAQ(1)= NH3AQ GASAQ(2)= CLAQ GASAQ(3)= NO3AQ C CNH42S4 = ZERO CNH4NO3 = ZERO CNH4CL = CHI4 - PSI4 CNACL = CHI3 - PSI3 CNANO3 = ZERO CNA2SO4 = CHI1 - PSI1 CMGSO4 = ZERO CK2SO4 = CHI7 - PSI7 CCASO4 = MIN (WAER(6), WAER(2)) ENDIF C RETURN C C *** END OF SUBROUTINE CALCU3A***************************************** C END C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE CALCU2 C *** CASE U2 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SO4RAT > 2.0), (DUST + SODIUM) RICH: R(Cr+Na)>2; DUST POOR: Rcr<2. C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : K2SO4, CASO4, NA2SO4, MGSO4, NH4CL, NANO3, NACL C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCU2 INCLUDE 'isrpia.inc' LOGICAL EXAN, EXAC, EXSN, EXSC EXTERNAL CALCU1A, CALCU3A, CALCU4A, CALCU5 C C *** SOLVE FOR DRY CASE AND SEE WHICH SOLIDS ARE POSSIBLE ************** C SCASE = 'U2 ; SUBCASE 2' CALL CALCU1A ! SOLID SCASE = 'U2 ; SUBCASE 2' C EXAN = CNH4NO3.GT.TINY ! NH4NO3 EXAC = CNH4CL .GT.TINY ! NH4CL EXSN = CNANO3 .GT.TINY ! NANO3 EXSC = CNACL .GT.TINY ! NACL C C *** REGIME DEPENDS ON RELATIVE HUMIDITY AND POSSIBLE SPECIES ********** C IF (EXAN) THEN ! *** NH4NO3 EXISTS IF (RH.GE.DRMM1) THEN SCASE = 'U2 ; SUBCASE 1' CALL CALCU2A SCASE = 'U2 ; SUBCASE 1' ENDIF C ELSE IF (.NOT.EXAN) THEN ! *** NH4NO3 = 0 IF ( EXAC .AND. EXSN .AND. EXSC) THEN IF (RH.GE.DRMM2) THEN SCASE = 'U2 ; SUBCASE 3' CALL CALCMDRPII (RH, DRMM2, DRNANO3, CALCU1A, CALCU3A) SCASE = 'U2 ; SUBCASE 3' ENDIF ELSE IF (.NOT.EXAC .AND. EXSN .AND. EXSC) THEN IF (RH.GE.DRMR1) THEN SCASE = 'U2 ; SUBCASE 4' CALL CALCMDRPII (RH, DRMR1, DRNANO3, CALCU1A, CALCU3A) SCASE = 'U2 ; SUBCASE 4' ENDIF ELSE IF (.NOT.EXAC .AND. .NOT.EXSN .AND. EXSC) THEN IF (RH.GE.DRMR2) THEN SCASE = 'U2 ; SUBCASE 5' CALL CALCMDRPII (RH, DRMR2, DRNACL, CALCU1A, CALCU4A) SCASE = 'U2 ; SUBCASE 5' ENDIF ELSE IF (.NOT.EXAC .AND. EXSN .AND. .NOT.EXSC) THEN IF (RH.GE.DRMR3) THEN SCASE = 'U2 ; SUBCASE 6' CALL CALCMDRPII (RH, DRMR3, DRNANO3, CALCU1A, CALCU3A) SCASE = 'U2 ; SUBCASE 6' ENDIF ELSE IF ( EXAC .AND. .NOT.EXSN .AND. EXSC) THEN IF (RH.GE.DRMR4) THEN SCASE = 'U2 ; SUBCASE 7' CALL CALCMDRPII (RH, DRMR4, DRNACL, CALCU1A, CALCU4A) SCASE = 'U2 ; SUBCASE 7' ENDIF ELSE IF ( EXAC .AND. .NOT.EXSN .AND. .NOT.EXSC) THEN IF (RH.GE.DRMR5) THEN SCASE = 'U2 ; SUBCASE 8' CALL CALCMDRPII (RH, DRMR5, DRNH4CL, CALCU1A, CALCU5) SCASE = 'U2 ; SUBCASE 8' ENDIF ELSE IF ( EXAC .AND. EXSN .AND. .NOT.EXSC) THEN IF (RH.GE.DRMR6) THEN SCASE = 'U2 ; SUBCASE 9' CALL CALCMDRPII (RH, DRMR6, DRNANO3, CALCU1A, CALCU3A) SCASE = 'U2 ; SUBCASE 9' ENDIF ENDIF C ENDIF C RETURN C IF (W(4).GT.TINY) THEN ! NO3 EXISTS, WATER POSSIBLE C SCASE = 'U2 ; SUBCASE 1' C CALL CALCU2A C SCASE = 'U2 ; SUBCASE 1' C ELSE ! NO3 NON EXISTANT, WATER NOT POSSIBLE C SCASE = 'U2 ; SUBCASE 1' C CALL CALCU1A C SCASE = 'U2 ; SUBCASE 1' C ENDIF CC C IF (WATER.LE.TINY .AND. RH.LT.DRMM2) THEN ! DRY AEROSOL C SCASE = 'U2 ; SUBCASE 2' C CALL CALCU2A C SCASE = 'U2 ; SUBCASE 1' CC C ELSEIF (WATER.LE.TINY .AND. RH.GE.DRMM2) THEN ! MDRH OF M2 C SCASE = 'U2 ; SUBCASE 3' C CALL CALCMDRPII (RH, DRMM2, DRNANO3, CALCU1A, CALCU3A) C SCASE = 'U2 ; SUBCASE 3' C ENDIF CC C RETURN C C *** END OF SUBROUTINE CALCU2 ****************************************** C END C C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE CALCU2A C *** CASE U2A C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SO4RAT > 2.0), Cr+NA poor (CRNARAT < 2) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : K2SO4, CASO4, NA2SO4, MGSO4, NH4CL, NACL, NANO3 C 4. Completely dissolved: NH4NO3 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCU2A INCLUDE 'isrpia.inc' C LOGICAL PSCONV7, PSCONV1, PSCONV4, PSCONV3, PSCONV5 DOUBLE PRECISION NH4I, NAI, NO3I, NH3AQ, NO3AQ, CLAQ, CAI, KI, MGI C COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** SETUP PARAMETERS ************************************************ C FRST =.TRUE. CALAIN =.TRUE. CALAOU =.TRUE. C PSCONV7 =.FALSE. PSCONV1 =.FALSE. PSCONV4 =.FALSE. PSCONV3 =.FALSE. PSCONV5 =.FALSE. C PSI70 =-GREAT ! GREAT = 1.D10 PSI1O =-GREAT PSI40 =-GREAT PSI30 =-GREAT PSI50 =-GREAT C ROOT7 = ZERO ROOT1 = ZERO ROOT4 = ZERO ROOT3 = ZERO ROOT5 = ZERO C C *** CALCULATE INITIAL SOLUTION *************************************** C CALL CALCU1A C CHI1 = CNA2SO4 ! SALTS CHI2 = CNANO3 CHI3 = CNACL CHI4 = CNH4CL CHI7 = CK2SO4 CHI8 = CMGSO4 CHI9 = CCASO4 C PSI1 = CNA2SO4 ! AMOUNT DISSOLVED PSI2 = CNANO3 PSI3 = CNACL PSI4 = CNH4CL PSI5 = CNH4NO3 PSI7 = CK2SO4 PSI8 = CMGSO4 PSI9 = CCASO4 C CALL CALCMR ! WATER C NAI = WAER(1) ! LIQUID CONCENTRATIONS SO4I = MAX (WAER(2) - WAER(6), ZERO) NH4I = WAER(3) NO3I = WAER(4) CLI = WAER(5) CAI = WAER(6) KI = WAER(7) MGI = WAER(8) C HSO4I = ZERO NH3AQ = ZERO NO3AQ = ZERO CLAQ = ZERO C MOLAL(1) = ZERO MOLAL(2) = NAI MOLAL(3) = NH4I MOLAL(4) = CLI MOLAL(5) = SO4I MOLAL(6) = HSO4I MOLAL(7) = NO3I MOLAL(8) = CAI MOLAL(9) = KI MOLAL(10)= MGI C CALL CALCACT ! CALCULATE ACTIVITY COEFFICIENTS C C *** SOLVE EQUATIONS ; WITH ITERATIONS FOR ACTIVITY COEF. ************ C DO 10 I=1,NSWEEP C A7 = XK17 *(WATER/GAMA(17))**3.0 ! K2SO4 <==> K+ A1 = XK5 *(WATER/GAMA(2))**3.0 ! NA2S04 <==> Na+ A14 = XK14*(WATER/GAMA(6))**2.0 ! NH4Cl <==> NH4+ A8 = XK8 *(WATER/GAMA(1))**2.0 ! NaCl <==> Na+ A9 = XK9 *(WATER/GAMA(3))**2.0 ! NaNO3 <==> Na+ AKW = XKW*RH*WATER*WATER ! H2O <==> H+ C C POTASSIUM SULFATE C IF (KI*KI*SO4I .GT. A7) THEN BB =-((WAER(2)-WAER(6)) + WAER(7) - ROOT1) CC = WAER(7)*((WAER(2)-WAER(6)) - ROOT1) + 0.25*WAER(7)*WAER(7) DD =-0.25*(WAER(7)*WAER(7)*((WAER(2)-WAER(6)) - ROOT1) - A7) CALL POLY3(BB, CC, DD, ROOT7, ISLV) IF (ISLV.NE.0) ROOT7 = TINY ROOT7 = MAX (ROOT7, ZERO) ROOT7 = MIN (ROOT7, WAER(7)/2.0, & MAX(WAER(2)-WAER(6)-ROOT1, ZERO),CHI7) PSI7 = CHI7-ROOT7 ENDIF PSCONV7 = ABS(PSI7-PSI70) .LE. EPS*PSI70 PSI70 = PSI7 C C SODIUM SULFATE C IF (NAI*NAI*SO4I .GT. A1) THEN BB =-(((WAER(2)-WAER(6))-ROOT7)*(WAER(1) - ROOT3 - ROOT5)) CC = ((WAER(2)-WAER(6)) - ROOT7)*(WAER(1) - ROOT3 - ROOT5) + & 0.25D0*(WAER(1) - ROOT3 - ROOT5)**2.0 DD =-0.25D0*(((WAER(2) - WAER(6)) - ROOT7)* & (WAER(1) - ROOT3 - ROOT5)**2.D0 - A1) CALL POLY3(BB, CC, DD, ROOT1, ISLV) IF (ISLV.NE.0) ROOT1 = TINY ROOT1 = MIN (MAX(ROOT1,ZERO), MAX(WAER(1)-ROOT3-ROOT5,ZERO), & CHI1, MAX(WAER(2)-WAER(6),ZERO)) PSI1 = CHI1-ROOT1 ENDIF PSCONV1 = ABS(PSI1-PSI1O) .LE. EPS*PSI1O PSI1O = PSI1 C C AMMONIUM CHLORIDE C IF (NH4I*CLI .GT. A14) THEN BB =-(WAER(3) + WAER(5) - ROOT4) CC =-A14 + NH4I*(WAER(5) - ROOT4) DD = MAX(BB*BB - 4.D0*CC, ZERO) ROOT4A= 0.5D0*(-BB+SQRT(DD)) ROOT4B= 0.5D0*(-BB-SQRT(DD)) IF (ZERO.LE.ROOT4A) THEN ROOT4 = ROOT4A ELSE ROOT4 = ROOT4B ENDIF ROOT4 = MIN(MAX(ZERO, ROOT4), MAX(WAER(5)-ROOT3,ZERO), & CHI4, WAER(3)) PSI4 = CHI4 - ROOT4 ENDIF PSCONV4 = ABS(PSI4-PSI40) .LE. EPS*PSI40 PSI40 = PSI4 C C SODIUM CHLORIDE ; To obtain new value for ROOT3 C IF (NAI*CLI .GT. A8) THEN BB =-((CHI1-2.D0*ROOT1-ROOT5) + (WAER(5) - ROOT4)) CC = (CHI1-2.D0*ROOT1-ROOT5)*(WAER(5) - ROOT4) - A8 DD = SQRT(MAX(BB*BB - 4.D0*CC, TINY)) ROOT3A= 0.5D0*(-BB-SQRT(DD)) ROOT3B= 0.5D0*(-BB+SQRT(DD)) IF (ZERO.LE.ROOT3A) THEN ROOT3 = ROOT3A ELSE ROOT3 = ROOT3B ENDIF ROOT3 = MIN(MAX(ROOT3, ZERO), CHI3) PSI3 = CHI3-ROOT3 ENDIF PSCONV3 = ABS(PSI3-PSI30) .LE. EPS*PSI30 PSI30 = PSI3 C C SODIUM NITRATE C IF (NAI*NO3I .GT. A9) THEN BB =-(WAER(4) + WAER(1) - 2.D0*ROOT1 - ROOT3) CC = WAER(4)*(WAER(1) - 2.D0*ROOT1 - ROOT3) - A9 DD = SQRT(MAX(BB*BB - 4.D0*CC, TINY)) ROOT5A= 0.5D0*(-BB-DD) ROOT5B= 0.5D0*(-BB+DD) IF (ZERO.LE.ROOT5A) THEN ROOT5 = ROOT5A ELSE ROOT5 = ROOT5B ENDIF ROOT5 = MIN(MAX(ROOT5, ZERO), CHI2) PSI2 = CHI2-ROOT5 ENDIF C PSCONV5 = ABS(PSI2-PSI20) .LE. EPS*PSI20 PSI20 = PSI2 C C ION CONCENTRATIONS ; CORRECTIONS C KI = MAX (WAER(7) - 2.0D0*ROOT7, ZERO) NAI = MAX (WAER(1) - 2.0D0*ROOT1 - ROOT3 - ROOT5, ZERO) SO4I = MAX (WAER(2) - WAER(6) - ROOT7 - ROOT1, ZERO) NH4I = MAX (WAER(3) - ROOT4, ZERO) NO3I = MAX (WAER(4) - ROOT5, ZERO) CLI = MAX (WAER(5) - ROOT4 - ROOT3, ZERO) CAI = ZERO MGI = WAER(8) C C SOLUTION ACIDIC OR BASIC? C GG = 2.D0*SO4I + NO3I + CLI - NAI - NH4I & - 2.D0*CAI - KI - 2.D0*MGI IF (GG.GT.TINY) THEN ! H+ in excess BB =-GG CC =-AKW DD = BB*BB - 4.D0*CC HI = 0.5D0*(-BB + SQRT(DD)) OHI= AKW/HI ELSE ! OH- in excess BB = GG CC =-AKW DD = BB*BB - 4.D0*CC OHI= 0.5D0*(-BB + SQRT(DD)) HI = AKW/OHI ENDIF C IF (HI.LE.TINY) HI = SQRT(AKW) C OHI = AKW/HI C C UNDISSOCIATED SPECIES EQUILIBRIA C IF (HI.GT.OHI) THEN C CALL CALCAMAQ2 (-GG, NH4I, OHI, NH3AQ) C HI = AKW/OHI C HSO4I = ZERO C ELSE C GGNO3 = MAX(2.D0*SO4I + NO3I - NAI - NH4I - 2.D0*CAI C & - KI - 2.D0*MGI, ZERO) C GGCL = MAX(GG-GGNO3, ZERO) C IF (GGCL .GT.TINY) CALL CALCCLAQ2 (GGCL, CLI, HI, CLAQ) ! HCl C IF (GGNO3.GT.TINY) THEN C IF (GGCL.LE.TINY) HI = ZERO C CALL CALCNIAQ2 (GGNO3, NO3I, HI, NO3AQ) ! HNO3 C ENDIF C C CONCENTRATION ADJUSTMENTS ; HSO4 minor species. C CALL CALCHS4 (HI, SO4I, ZERO, DEL) else del= zero ENDIF SO4I = SO4I - DEL HI = HI - DEL HSO4I = DEL C IF (HI.LE.TINY) HI = SQRT(AKW) OHI = AKW/HI C IF (HI.LE.TINY) THEN HI = SQRT(AKW) OHI = AKW/HI ENDIF C C *** SAVE CONCENTRATIONS IN MOLAL ARRAY ****************************** C MOLAL(1) = HI MOLAL(2) = NAI MOLAL(3) = NH4I MOLAL(4) = CLI MOLAL(5) = SO4I MOLAL(6) = HSO4I MOLAL(7) = NO3I MOLAL(8) = CAI MOLAL(9) = KI MOLAL(10)= MGI C C *** CALCULATE WATER ************************************************** C CALL CALCMR C C *** CALCULATE ACTIVITIES OR TERMINATE INTERNAL LOOP ***************** C IF (FRST.AND.CALAOU .OR. .NOT.FRST.AND.CALAIN) THEN CALL CALCACT ELSE IF (PSCONV7 .AND. PSCONV1 .AND. PSCONV4 .AND. PSCONV3 & .AND. PSCONV5) GOTO 20 ENDIF 10 CONTINUE ccc CALL PUSHERR (0002, 'CALCU2A') ! WARNING ERROR: NO CONVERGENCE C C *** CALCULATE GAS / SOLID SPECIES (LIQUID IN MOLAL ALREADY) ********* C 20 IF (CLI.LE.TINY .AND. WAER(5).GT.TINY) THEN !No disslv Cl-;solid only DO 30 I=1,NIONS MOLAL(I) = ZERO 30 CONTINUE DO 40 I=1,NGASAQ GASAQ(I) = ZERO 40 CONTINUE CALL CALCU1A ELSE ! OK, aqueous phase present A2 = (XK2/XKW)*R*TEMP*(GAMA(10)/GAMA(5))**2. ! NH3 <==> NH4+ A3 = XK4 *R*TEMP*(WATER/GAMA(10))**2. ! HNO3 <==> NO3- A4 = XK3 *R*TEMP*(WATER/GAMA(11))**2. ! HCL <==> CL- C GNH3 = NH4I/HI/A2 GHNO3 = HI*NO3I/A3 GHCL = HI*CLI /A4 C GASAQ(1)= NH3AQ GASAQ(2)= CLAQ GASAQ(3)= NO3AQ C CNH42S4 = ZERO CNH4NO3 = ZERO CNH4CL = CHI4 - PSI4 CNACL = CHI3 - PSI3 CNANO3 = CHI2 - PSI2 CNA2SO4 = CHI1 - PSI1 CMGSO4 = ZERO CK2SO4 = CHI7 - PSI7 CCASO4 = MIN (WAER(6), WAER(2)) ENDIF C RETURN C C *** END OF SUBROUTINE CALCU2A***************************************** C END C C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE CALCU1 C *** CASE U1 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SO4RAT > 2.0), (DUST + SODIUM) RICH: R(Cr+Na)>2; DUST POOR: Rcr<2. C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : K2SO4, CASO4, NA2SO4, MGSO4, NH4CL, NANO3, NACL, NH4NO3 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCU1 INCLUDE 'isrpia.inc' LOGICAL EXAN, EXAC, EXSN, EXSC EXTERNAL CALCU1A, CALCU2A, CALCU3A, CALCU4A, CALCU5 C C *** SOLVE FOR DRY CASE AND SEE WHICH SOLIDS ARE POSSIBLE ************** C SCASE = 'U1 ; SUBCASE 1' CALL CALCU1A ! SOLID SCASE = 'U1 ; SUBCASE 1' C EXAN = CNH4NO3.GT.TINY ! NH4NO3 EXAC = CNH4CL .GT.TINY ! NH4CL EXSN = CNANO3 .GT.TINY ! NANO3 EXSC = CNACL .GT.TINY ! NACL C C *** REGIME DEPENDS ON RELATIVE HUMIDITY AND POSSIBLE SPECIES ********** C IF (EXAN.OR.EXAC.OR.EXSC.OR.EXSN) THEN ! *** WATER POSSIBLE IF (RH.GE.DRMM1) THEN SCASE = 'U1 ; SUBCASE 2' ! MDRH CALL CALCMDRPII (RH, DRMM1, DRNH4NO3, CALCU1A, CALCU2A) SCASE = 'U1 ; SUBCASE 2' ENDIF C ELSE IF (.NOT.EXAN) THEN ! *** NH4NO3 = 0 IF ( EXAC .AND. EXSN .AND. EXSC) THEN IF (RH.GE.DRMM2) THEN SCASE = 'U1 ; SUBCASE 3' CALL CALCMDRPII (RH, DRMM2, DRNANO3, CALCU1A, CALCU3A) SCASE = 'U1 ; SUBCASE 3' ENDIF ELSE IF (.NOT.EXAC .AND. EXSN .AND. EXSC) THEN IF (RH.GE.DRMR1) THEN SCASE = 'U1 ; SUBCASE 4' CALL CALCMDRPII (RH, DRMR1, DRNANO3, CALCU1A, CALCU3A) SCASE = 'U1 ; SUBCASE 4' ENDIF ELSE IF (.NOT.EXAC .AND. .NOT.EXSN .AND. EXSC) THEN IF (RH.GE.DRMR2) THEN SCASE = 'U1 ; SUBCASE 5' CALL CALCMDRPII (RH, DRMR2, DRNACL, CALCU1A, CALCU3A) !, CALCR4A) SCASE = 'U1 ; SUBCASE 5' ENDIF ELSE IF (.NOT.EXAC .AND. EXSN .AND. .NOT.EXSC) THEN IF (RH.GE.DRMR3) THEN SCASE = 'U1 ; SUBCASE 6' CALL CALCMDRPII (RH, DRMR3, DRNANO3, CALCU1A, CALCU3A) SCASE = 'U1 ; SUBCASE 6' ENDIF ELSE IF ( EXAC .AND. .NOT.EXSN .AND. EXSC) THEN IF (RH.GE.DRMR4) THEN SCASE = 'U1 ; SUBCASE 7' CALL CALCMDRPII (RH, DRMR4, DRNACL, CALCU1A, CALCU3A) !, CALCR4A) SCASE = 'U1 ; SUBCASE 7' ENDIF ELSE IF ( EXAC .AND. .NOT.EXSN .AND. .NOT.EXSC) THEN IF (RH.GE.DRMR5) THEN SCASE = 'U1 ; SUBCASE 8' CALL CALCMDRPII (RH, DRMR5, DRNH4CL, CALCU1A, CALCU3A) !, CALCR5) SCASE = 'U1 ; SUBCASE 8' ENDIF ELSE IF ( EXAC .AND. EXSN .AND. .NOT.EXSC) THEN IF (RH.GE.DRMR6) THEN SCASE = 'U1 ; SUBCASE 9' CALL CALCMDRPII (RH, DRMR6, DRNANO3, CALCU1A, CALCU3A) SCASE = 'U1 ; SUBCASE 9' ENDIF ENDIF C ELSE IF (.NOT.EXAC) THEN ! *** NH4CL = 0 IF ( EXAN .AND. EXSN .AND. EXSC) THEN IF (RH.GE.DRMR7) THEN SCASE = 'U1 ; SUBCASE 10' CALL CALCMDRPII (RH, DRMR7, DRNH4NO3, CALCU1A, CALCU2A) SCASE = 'U1 ; SUBCASE 10' ENDIF ELSE IF ( EXAN .AND. .NOT.EXSN .AND. EXSC) THEN IF (RH.GE.DRMR8) THEN SCASE = 'U1 ; SUBCASE 11' CALL CALCMDRPII (RH, DRMR8, DRNH4NO3, CALCU1A, CALCU2A) SCASE = 'U1 ; SUBCASE 11' ENDIF ELSE IF ( EXAN .AND. .NOT.EXSN .AND. .NOT.EXSC) THEN IF (RH.GE.DRMR9) THEN SCASE = 'U1 ; SUBCASE 12' CALL CALCMDRPII (RH, DRMR9, DRNH4NO3, CALCU1A, CALCU2A) SCASE = 'U1 ; SUBCASE 12' ENDIF ELSE IF ( EXAN .AND. EXSN .AND. .NOT.EXSC) THEN IF (RH.GE.DRMR10) THEN SCASE = 'U1 ; SUBCASE 13' CALL CALCMDRPII (RH, DRMR10, DRNH4NO3, CALCU1A, CALCU2A) SCASE = 'U1 ; SUBCASE 13' ENDIF ENDIF C ELSE IF (.NOT.EXSN) THEN ! *** NANO3 = 0 IF ( EXAN .AND. EXAC .AND. EXSC) THEN IF (RH.GE.DRMR11) THEN SCASE = 'U1 ; SUBCASE 14' CALL CALCMDRPII (RH, DRMR11, DRNH4NO3, CALCU1A, CALCU2A) SCASE = 'U1 ; SUBCASE 14' ENDIF ELSE IF ( EXAN .AND. EXAC .AND. .NOT.EXSC) THEN IF (RH.GE.DRMR12) THEN SCASE = 'U1 ; SUBCASE 15' CALL CALCMDRPII (RH, DRMR12, DRNH4NO3, CALCU1A, CALCU2A) SCASE = 'U1 ; SUBCASE 15' ENDIF ENDIF C ELSE IF (.NOT.EXSC) THEN ! *** NACL = 0 IF ( EXAN .AND. EXAC .AND. EXSN) THEN IF (RH.GE.DRMR13) THEN SCASE = 'U1 ; SUBCASE 16' CALL CALCMDRPII (RH, DRMR13, DRNH4NO3, CALCU1A, CALCU2A) SCASE = 'U1 ; SUBCASE 16' ENDIF ENDIF ENDIF C RETURN C IF (RH.LT.DRMM1) THEN C SCASE = 'U1 ; SUBCASE 1' C CALL CALCU1A ! SOLID PHASE ONLY POSSIBLE C SCASE = 'U1 ; SUBCASE 1' C ELSE C SCASE = 'U1 ; SUBCASE 2' ! LIQUID & SOLID PHASE POSSIBLE C CALL CALCMDRPII (RH, DRMM1, DRNH4NO3, CALCU1A, CALCU2A) C SCASE = 'U1 ; SUBCASE 2' C ENDIF CC C RETURN CC C *** END OF SUBROUTINE CALCU1 ****************************************** C END C C======================================================================= C C *** ISORROPIA CODE C *** SUBROUTINE CALCU1A C *** CASE U1A C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SULRAT > 2.0); CRUSTAL+SODIUM RICH (CRNARAT >= 2.0); CRUSTAL POOR (CRRAT<2) C 2. THERE IS ONLY A SOLID PHASE C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCU1A INCLUDE 'isrpia.inc' C C *** CALCULATE SOLIDS ************************************************* C CCASO4 = MIN (WAER(6), WAER(2)) ! CCASO4 SO4FR = MAX(WAER(2) - CCASO4, ZERO) CAFR = MAX(WAER(6) - CCASO4, ZERO) CK2SO4 = MIN (0.5D0*WAER(7), SO4FR) ! CK2SO4 FRK = MAX(WAER(7) - 2.D0*CK2SO4, ZERO) SO4FR = MAX(SO4FR - CK2SO4, ZERO) CMGSO4 = MIN (WAER(8), SO4FR) ! CMGSO4 FRMG = MAX(WAER(8) - CMGSO4, ZERO) SO4FR = MAX(SO4FR - CMGSO4, ZERO) CNA2SO4 = MAX (SO4FR, ZERO) ! CNA2SO4 FRNA = MAX (WAER(1) - 2.D0*CNA2SO4, ZERO) C CNH42S4 = ZERO C CNANO3 = MIN (FRNA, WAER(4)) FRNO3 = MAX (WAER(4)-CNANO3, ZERO) FRNA = MAX (FRNA-CNANO3, ZERO) C CNACL = MIN (FRNA, WAER(5)) FRCL = MAX (WAER(5)-CNACL, ZERO) FRNA = MAX (FRNA-CNACL, ZERO) C CNH4NO3 = MIN (FRNO3, WAER(3)) FRNO3 = MAX (FRNO3-CNH4NO3, ZERO) FRNH3 = MAX (WAER(3)-CNH4NO3, ZERO) C CNH4CL = MIN (FRCL, FRNH3) FRCL = MAX (FRCL-CNH4CL, ZERO) FRNH3 = MAX (FRNH3-CNH4CL, ZERO) C C *** OTHER PHASES ****************************************************** C WATER = ZERO C GNH3 = ZERO GHNO3 = ZERO GHCL = ZERO C RETURN C C *** END OF SUBROUTINE CALCU1A ***************************************** C END C C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE CALCW13 C *** CASE W13 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SULRAT > 2.0) ; Rcr+Na >= 2.0 ; Rcr > 2) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : CaSO4 C 4. Completely dissolved: CA(NO3)2, CACL2, K2SO4, KNO3, KCL, MGSO4, C MG(NO3)2, MGCL2, NANO3, NACL, NH4NO3, NH4CL C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCW13 INCLUDE 'isrpia.inc' C DOUBLE PRECISION NH4I, NAI, NO3I, NH3AQ, NO3AQ, CLAQ, CAI, KI, MGI C COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** SETUP PARAMETERS ************************************************ C FRST =.TRUE. CALAIN =.TRUE. CALAOU =.TRUE. C C *** CALCULATE INITIAL SOLUTION *************************************** C CALL CALCW1A C CHI11 = CCASO4 C PSI1 = CNA2SO4 ! SALTS DISSOLVED PSI5 = CNH4CL PSI6 = CNH4NO3 PSI7 = CNACL PSI8 = CNANO3 PSI9 = CK2SO4 PSI10 = CMGSO4 PSI11 = CCASO4 PSI12 = CCANO32 PSI13 = CKNO3 PSI14 = CKCL PSI15 = CMGNO32 PSI16 = CMGCL2 PSI17 = CCACL2 C CALL CALCMR ! WATER C NH3AQ = ZERO NO3AQ = ZERO CLAQ = ZERO C C *** SOLVE EQUATIONS ; WITH ITERATIONS FOR ACTIVITY COEF. ************ C DO 10 I=1,NSWEEP AKW = XKW*RH*WATER*WATER ! H2O <==> H+ C C ION CONCENTRATIONS C NAI = WAER(1) SO4I = MAX (WAER(2) - WAER(6), ZERO) NH4I = WAER(3) NO3I = WAER(4) CLI = WAER(5) CAI = ZERO KI = WAER(7) MGI = WAER(8) C C SOLUTION ACIDIC OR BASIC? C GG = 2.D0*SO4I + NO3I + CLI - NAI - NH4I & - 2.D0*CAI - KI - 2.D0*MGI IF (GG.GT.TINY) THEN ! H+ in excess BB =-GG CC =-AKW DD = BB*BB - 4.D0*CC HI = 0.5D0*(-BB + SQRT(DD)) OHI= AKW/HI ELSE ! OH- in excess BB = GG CC =-AKW DD = BB*BB - 4.D0*CC OHI= 0.5D0*(-BB + SQRT(DD)) HI = AKW/OHI ENDIF C C UNDISSOCIATED SPECIES EQUILIBRIA C IF (HI.GT.OHI) THEN C CALL CALCAMAQ2 (-GG, NH4I, OHI, NH3AQ) C HI = AKW/OHI C HSO4I = ZERO C ELSE C GGNO3 = MAX(2.D0*SO4I + NO3I - NAI - NH4I - 2.D0*CAI C & - KI - 2.D0*MGI, ZERO) C GGCL = MAX(GG-GGNO3, ZERO) C IF (GGCL .GT.TINY) CALL CALCCLAQ2 (GGCL, CLI, HI, CLAQ) ! HCl C IF (GGNO3.GT.TINY) THEN C IF (GGCL.LE.TINY) HI = ZERO C CALL CALCNIAQ2 (GGNO3, NO3I, HI, NO3AQ) ! HNO3 C ENDIF C C CONCENTRATION ADJUSTMENTS ; HSO4 minor species. C CALL CALCHS4 (HI, SO4I, ZERO, DEL) else del= zero ENDIF SO4I = SO4I - DEL HI = HI - DEL HSO4I = DEL C IF (HI.LE.TINY) HI = SQRT(AKW) OHI = AKW/HI C IF (HI.LE.TINY) THEN HI = SQRT(AKW) OHI = AKW/HI ENDIF C C *** SAVE CONCENTRATIONS IN MOLAL ARRAY ****************************** C MOLAL(1) = HI MOLAL(2) = NAI MOLAL(3) = NH4I MOLAL(4) = CLI MOLAL(5) = SO4I MOLAL(6) = HSO4I MOLAL(7) = NO3I MOLAL(8) = CAI MOLAL(9) = KI MOLAL(10)= MGI C C *** CALCULATE ACTIVITIES OR TERMINATE INTERNAL LOOP ***************** C IF (FRST.AND.CALAOU .OR. .NOT.FRST.AND.CALAIN) THEN CALL CALCACT ELSE GOTO 20 ENDIF 10 CONTINUE ccc CALL PUSHERR (0002, 'CALCW13') ! WARNING ERROR: NO CONVERGENCE C C *** CALCULATE GAS / SOLID SPECIES (LIQUID IN MOLAL ALREADY) ********* C 20 A2 = (XK2/XKW)*R*TEMP*(GAMA(10)/GAMA(5))**2. ! NH3 <==> NH4+ A3 = XK4 *R*TEMP*(WATER/GAMA(10))**2. ! HNO3 <==> NO3- A4 = XK3 *R*TEMP*(WATER/GAMA(11))**2. ! HCL <==> CL- C GNH3 = NH4I/HI/A2 GHNO3 = HI*NO3I/A3 GHCL = HI*CLI /A4 C GASAQ(1)= NH3AQ GASAQ(2)= CLAQ GASAQ(3)= NO3AQ C CNH42S4 = ZERO CNH4NO3 = ZERO CNH4CL = ZERO CNACL = ZERO CNANO3 = ZERO CMGSO4 = ZERO CK2SO4 = ZERO CCASO4 = MIN (WAER(6), WAER(2)) CCANO32 = ZERO CKNO3 = ZERO KCL = ZERO CMGNO32 = ZERO CMGCL2 = ZERO CCACL2 = ZERO C RETURN C C *** END OF SUBROUTINE CALCW13 ****************************************** C END C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE CALCW12 C *** CASE W12 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SULRAT > 2.0) ; Rcr+Na >= 2.0 ; Rcr > 2) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : CaSO4, K2SO4 C 4. Completely dissolved: CA(NO3)2, CACL2, KNO3, KCL, MGSO4, C MG(NO3)2, MGCL2, NANO3, NACL, NH4NO3, NH4CL C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCW12 INCLUDE 'isrpia.inc' C LOGICAL PSCONV9 DOUBLE PRECISION NH4I, NAI, NO3I, NH3AQ, NO3AQ, CLAQ, CAI, KI, MGI C COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** SETUP PARAMETERS ************************************************ C FRST =.TRUE. CALAIN =.TRUE. CALAOU =.TRUE. C PSCONV9 =.TRUE. PSI9O =-GREAT ! GREAT = 1.D10 ROOT9 = ZERO C C *** CALCULATE INITIAL SOLUTION *************************************** C CALL CALCW1A C CHI9 = CK2SO4 ! SALTS CHI11 = CCASO4 C PSI1 = CNA2SO4 ! SALTS DISSOLVED PSI5 = CNH4CL PSI6 = CNH4NO3 PSI7 = CNACL PSI8 = CNANO3 PSI9 = CK2SO4 PSI10 = CMGSO4 PSI11 = CCASO4 PSI12 = CCANO32 PSI13 = CKNO3 PSI14 = CKCL PSI15 = CMGNO32 PSI16 = CMGCL2 PSI17 = CCACL2 C CALL CALCMR ! WATER C NAI = WAER(1) ! LIQUID CONCENTRATIONS SO4I = MAX (WAER(2) - WAER(6), ZERO) NH4I = WAER(3) NO3I = WAER(4) CLI = WAER(5) CAI = WAER(6) KI = WAER(7) MGI = WAER(8) C HSO4I = ZERO NH3AQ = ZERO NO3AQ = ZERO CLAQ = ZERO C C *** SOLVE EQUATIONS ; WITH ITERATIONS FOR ACTIVITY COEF. ************ C DO 10 I=1,NSWEEP C A9 = XK17 *(WATER/GAMA(17))**3.0 ! K2SO4 <==> K+ AKW = XKW*RH*WATER*WATER ! H2O <==> H+ C C POTASSIUM SULFATE C IF (KI*KI*SO4I .GT. A9) THEN BB =-((WAER(2)-WAER(6)) + WAER(7)) CC = WAER(7)*(WAER(2)-WAER(6)) + 0.25D0*WAER(7)*WAER(7) DD =-0.25*(WAER(7)*WAER(7)*(WAER(2)-WAER(6)) - A9) CALL POLY3(BB, CC, DD, ROOT9, ISLV) IF (ISLV.NE.0) ROOT9 = TINY ROOT9 = MIN (ROOT9, WAER(7)/2.0, (WAER(2)-WAER(6)), CHI9) ROOT9 = MAX (ROOT9, ZERO) PSI9 = CHI9 - ROOT9 ENDIF PSCONV9 = ABS(PSI9-PSI9O) .LE. EPS*PSI9O PSI9O = PSI9 C C ION CONCENTRATIONS ; CORRECTIONS C KI = MAX (WAER(7) - 2.D0*ROOT9, ZERO) SO4I = MAX (WAER(2)-WAER(6) - ROOT9, ZERO) NH4I = WAER(3) NO3I = WAER(4) CLI = WAER(5) CAI = ZERO NAI = WAER(1) MGI = WAER(8) C C SOLUTION ACIDIC OR BASIC? C GG = 2.D0*SO4I + NO3I + CLI - NAI - NH4I & - 2.D0*CAI - KI - 2.D0*MGI IF (GG.GT.TINY) THEN ! H+ in excess BB =-GG CC =-AKW DD = BB*BB - 4.D0*CC HI = 0.5D0*(-BB + SQRT(DD)) OHI= AKW/HI ELSE ! OH- in excess BB = GG CC =-AKW DD = BB*BB - 4.D0*CC OHI= 0.5D0*(-BB + SQRT(DD)) HI = AKW/OHI ENDIF C C UNDISSOCIATED SPECIES EQUILIBRIA C IF (HI.GT.OHI) THEN C CALL CALCAMAQ2 (-GG, NH4I, OHI, NH3AQ) C HI = AKW/OHI C HSO4I = ZERO C ELSE C GGNO3 = MAX(2.D0*SO4I + NO3I - NAI - NH4I - 2.D0*CAI C & - KI - 2.D0*MGI, ZERO) C GGCL = MAX(GG-GGNO3, ZERO) C IF (GGCL .GT.TINY) CALL CALCCLAQ2 (GGCL, CLI, HI, CLAQ) ! HCl C IF (GGNO3.GT.TINY) THEN C IF (GGCL.LE.TINY) HI = ZERO C CALL CALCNIAQ2 (GGNO3, NO3I, HI, NO3AQ) ! HNO3 C ENDIF C C CONCENTRATION ADJUSTMENTS ; HSO4 minor species. C CALL CALCHS4 (HI, SO4I, ZERO, DEL) else del= zero ENDIF SO4I = SO4I - DEL HI = HI - DEL HSO4I = DEL C IF (HI.LE.TINY) HI = SQRT(AKW) OHI = AKW/HI C IF (HI.LE.TINY) THEN HI = SQRT(AKW) OHI = AKW/HI ENDIF C C *** SAVE CONCENTRATIONS IN MOLAL ARRAY ****************************** C MOLAL(1) = HI MOLAL(2) = NAI MOLAL(3) = NH4I MOLAL(4) = CLI MOLAL(5) = SO4I MOLAL(6) = HSO4I MOLAL(7) = NO3I MOLAL(8) = CAI MOLAL(9) = KI MOLAL(10)= MGI C C *** CALCULATE WATER ************************************************** C CALL CALCMR C C *** CALCULATE ACTIVITIES OR TERMINATE INTERNAL LOOP ***************** C IF (FRST.AND.CALAOU .OR. .NOT.FRST.AND.CALAIN) THEN CALL CALCACT ELSE IF (PSCONV9) GOTO 20 ENDIF 10 CONTINUE ccc CALL PUSHERR (0002, 'CALCW12') ! WARNING ERROR: NO CONVERGENCE C C *** CALCULATE GAS / SOLID SPECIES (LIQUID IN MOLAL ALREADY) ********* C 20 A2 = (XK2/XKW)*R*TEMP*(GAMA(10)/GAMA(5))**2. ! NH3 <==> NH4+ A3 = XK4 *R*TEMP*(WATER/GAMA(10))**2. ! HNO3 <==> NO3- A4 = XK3 *R*TEMP*(WATER/GAMA(11))**2. ! HCL <==> CL- C GNH3 = NH4I/HI/A2 GHNO3 = HI*NO3I/A3 GHCL = HI*CLI /A4 C GASAQ(1)= NH3AQ GASAQ(2)= CLAQ GASAQ(3)= NO3AQ C CNH42S4 = ZERO CNH4NO3 = ZERO CNH4CL = ZERO CNACL = ZERO CNANO3 = ZERO CMGSO4 = ZERO CK2SO4 = CHI9 - PSI9 CCASO4 = MIN (WAER(6), WAER(2)) CCANO32 = ZERO CKNO3 = ZERO KCL = ZERO CMGNO32 = ZERO CMGCL2 = ZERO CCACL2 = ZERO C RETURN C C *** END OF SUBROUTINE CALCW12 ****************************************** C END C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE CALCW11 C *** CASE W11 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SULRAT > 2.0) ; Rcr+Na >= 2.0 ; Rcr > 2) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : CaSO4, K2SO4, KNO3 C 4. Completely dissolved: CA(NO3)2, CACL2, KCL, MGSO4, C MG(NO3)2, MGCL2, NANO3, NACL, NH4NO3, NH4CL C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCW11 INCLUDE 'isrpia.inc' C LOGICAL PSCONV9, PSCONV13 DOUBLE PRECISION NH4I, NAI, NO3I, NH3AQ, NO3AQ, CLAQ, CAI, KI, MGI C COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** SETUP PARAMETERS ************************************************ C FRST =.TRUE. CALAIN =.TRUE. CALAOU =.TRUE. C PSCONV9 =.TRUE. PSCONV13=.TRUE. C PSI9O =-GREAT PSI13O =-GREAT ! GREAT = 1.D10 C ROOT9 = ZERO ROOT13 = ZERO C C *** CALCULATE INITIAL SOLUTION *************************************** C CALL CALCW1A C CHI9 = CK2SO4 ! SALTS CHI13 = CKNO3 CHI11 = CCASO4 C PSI1 = CNA2SO4 ! SALTS DISSOLVED PSI5 = CNH4CL PSI6 = CNH4NO3 PSI7 = CNACL PSI8 = CNANO3 PSI9 = CK2SO4 PSI10 = CMGSO4 PSI11 = CCASO4 PSI12 = CCANO32 PSI13 = CKNO3 PSI14 = CKCL PSI15 = CMGNO32 PSI16 = CMGCL2 PSI17 = CCACL2 C CALL CALCMR ! WATER C NAI = WAER(1) ! LIQUID CONCENTRATIONS SO4I = MAX (WAER(2) - WAER(6), ZERO) NH4I = WAER(3) NO3I = WAER(4) CLI = WAER(5) CAI = WAER(6) KI = WAER(7) MGI = WAER(8) C HSO4I = ZERO NH3AQ = ZERO NO3AQ = ZERO CLAQ = ZERO C C *** SOLVE EQUATIONS ; WITH ITERATIONS FOR ACTIVITY COEF. ************ C DO 10 I=1,NSWEEP C A9 = XK17 *(WATER/GAMA(17))**3.0 ! K2SO4 <==> K+ A13 = XK19 *(WATER/GAMA(19))**2.0 ! KNO3 <==> K+ AKW = XKW*RH*WATER*WATER ! H2O <==> H+ C C POTASSIUM SULFATE C IF (KI*KI*SO4I .GT. A9) THEN BB =-((WAER(2)-WAER(6)) + WAER(7) - ROOT13) CC = (WAER(7)-ROOT13)*(WAER(2)-WAER(6)) + & 0.25D0*(WAER(7)-ROOT13)**2.0 DD =-0.25*((WAER(7)-ROOT13)**2.0*(WAER(2)-WAER(6)) - A9) CALL POLY3(BB, CC, DD, ROOT9, ISLV) IF (ISLV.NE.0) ROOT9 = TINY ROOT9 = MIN (ROOT9,WAER(7)/2.0-ROOT13,(WAER(2)-WAER(6)),CHI9) ROOT9 = MAX (ROOT9, ZERO) PSI9 = CHI9 - ROOT9 ENDIF PSCONV9 = ABS(PSI9-PSI9O) .LE. EPS*PSI9O PSI9O = PSI9 C C POTASSIUM NITRATE C IF (KI*NO3I .GT. A13) THEN BB =-(WAER(4) + WAER(7) - 2.D0*ROOT9) CC = WAER(4)*(WAER(7) - 2.D0*ROOT9) - A13 DD = SQRT(MAX(BB*BB - 4.D0*CC, ZERO)) ROOT13A= 0.5D0*(-BB-DD) ROOT13B= 0.5D0*(-BB+DD) IF (ZERO.LE.ROOT13A) THEN ROOT13 = ROOT13A ELSE ROOT13 = ROOT13B ENDIF ROOT13 = MIN(MAX(ROOT13, ZERO), CHI13) PSI13 = CHI13-ROOT13 ENDIF PSCONV13 = ABS(PSI13-PSI13O) .LE. EPS*PSI13O PSI13O = PSI13 C C ION CONCENTRATIONS ; CORRECTIONS C KI = MAX (WAER(7) - 2.D0*ROOT9 - ROOT13, ZERO) SO4I = MAX (WAER(2)-WAER(6) - ROOT9, ZERO) NH4I = WAER(3) NO3I = MAX (WAER(4) - ROOT13, ZERO) CLI = WAER(5) CAI = ZERO NAI = WAER(1) MGI = WAER(8) C C SOLUTION ACIDIC OR BASIC? C GG = 2.D0*SO4I + NO3I + CLI - NAI - NH4I & - 2.D0*CAI - KI - 2.D0*MGI IF (GG.GT.TINY) THEN ! H+ in excess BB =-GG CC =-AKW DD = BB*BB - 4.D0*CC HI = 0.5D0*(-BB + SQRT(DD)) OHI= AKW/HI ELSE ! OH- in excess BB = GG CC =-AKW DD = BB*BB - 4.D0*CC OHI= 0.5D0*(-BB + SQRT(DD)) HI = AKW/OHI ENDIF C C UNDISSOCIATED SPECIES EQUILIBRIA C IF (HI.GT.OHI) THEN C CALL CALCAMAQ2 (-GG, NH4I, OHI, NH3AQ) C HI = AKW/OHI C HSO4I = ZERO C ELSE C GGNO3 = MAX(2.D0*SO4I + NO3I - NAI - NH4I - 2.D0*CAI C & - KI - 2.D0*MGI, ZERO) C GGCL = MAX(GG-GGNO3, ZERO) C IF (GGCL .GT.TINY) CALL CALCCLAQ2 (GGCL, CLI, HI, CLAQ) ! HCl C IF (GGNO3.GT.TINY) THEN C IF (GGCL.LE.TINY) HI = ZERO C CALL CALCNIAQ2 (GGNO3, NO3I, HI, NO3AQ) ! HNO3 C ENDIF C C CONCENTRATION ADJUSTMENTS ; HSO4 minor species. C CALL CALCHS4 (HI, SO4I, ZERO, DEL) else del= zero ENDIF SO4I = SO4I - DEL HI = HI - DEL HSO4I = DEL C IF (HI.LE.TINY) HI = SQRT(AKW) OHI = AKW/HI C IF (HI.LE.TINY) THEN HI = SQRT(AKW) OHI = AKW/HI ENDIF C C *** SAVE CONCENTRATIONS IN MOLAL ARRAY ****************************** C MOLAL(1) = HI MOLAL(2) = NAI MOLAL(3) = NH4I MOLAL(4) = CLI MOLAL(5) = SO4I MOLAL(6) = HSO4I MOLAL(7) = NO3I MOLAL(8) = CAI MOLAL(9) = KI MOLAL(10)= MGI C C *** CALCULATE WATER ************************************************** C CALL CALCMR C C *** CALCULATE ACTIVITIES OR TERMINATE INTERNAL LOOP ***************** C IF (FRST.AND.CALAOU .OR. .NOT.FRST.AND.CALAIN) THEN CALL CALCACT ELSE IF (PSCONV9 .AND. PSCONV13) GOTO 20 ENDIF 10 CONTINUE ccc CALL PUSHERR (0002, 'CALCW11') ! WARNING ERROR: NO CONVERGENCE C C *** CALCULATE GAS / SOLID SPECIES (LIQUID IN MOLAL ALREADY) ********* C 20 A2 = (XK2/XKW)*R*TEMP*(GAMA(10)/GAMA(5))**2. ! NH3 <==> NH4+ A3 = XK4 *R*TEMP*(WATER/GAMA(10))**2. ! HNO3 <==> NO3- A4 = XK3 *R*TEMP*(WATER/GAMA(11))**2. ! HCL <==> CL- C GNH3 = NH4I/HI/A2 GHNO3 = HI*NO3I/A3 GHCL = HI*CLI /A4 C GASAQ(1)= NH3AQ GASAQ(2)= CLAQ GASAQ(3)= NO3AQ C CNH42S4 = ZERO CNH4NO3 = ZERO CNH4CL = ZERO CNACL = ZERO CNANO3 = ZERO CMGSO4 = ZERO CK2SO4 = CHI9 - PSI9 CCASO4 = MIN (WAER(6), WAER(2)) CCANO32 = ZERO CKNO3 = CHI13 - PSI13 KCL = ZERO CMGNO32 = ZERO CMGCL2 = ZERO CCACL2 = ZERO C RETURN C C *** END OF SUBROUTINE CALCW11 ****************************************** C END C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE CALCW10 C *** CASE W10 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SULRAT > 2.0) ; Rcr+Na >= 2.0 ; Rcr > 2) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : CaSO4, K2SO4, KNO3, MGSO4 C 4. Completely dissolved: CA(NO3)2, CACL2, KCL, C MG(NO3)2, MGCL2, NANO3, NACL, NH4NO3, NH4CL C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCW10 INCLUDE 'isrpia.inc' C LOGICAL PSCONV9, PSCONV13 DOUBLE PRECISION NH4I, NAI, NO3I, NH3AQ, NO3AQ, CLAQ, CAI, KI, MGI C COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** SETUP PARAMETERS ************************************************ C FRST =.TRUE. CALAIN =.TRUE. CALAOU =.TRUE. C PSCONV9 =.TRUE. PSCONV13=.TRUE. C PSI9O =-GREAT PSI13O =-GREAT ! GREAT = 1.D10 C ROOT9 = ZERO ROOT13 = ZERO C C *** CALCULATE INITIAL SOLUTION *************************************** C CALL CALCW1A C CHI9 = CK2SO4 ! SALTS CHI13 = CKNO3 CHI10 = CMGSO4 CHI11 = CCASO4 C PSI1 = CNA2SO4 ! SALTS DISSOLVED PSI5 = CNH4CL PSI6 = CNH4NO3 PSI7 = CNACL PSI8 = CNANO3 PSI9 = CK2SO4 PSI10 = CMGSO4 PSI11 = CCASO4 PSI12 = CCANO32 PSI13 = CKNO3 PSI14 = CKCL PSI15 = CMGNO32 PSI16 = CMGCL2 PSI17 = CCACL2 C CALL CALCMR ! WATER C NAI = WAER(1) ! LIQUID CONCENTRATIONS SO4I = MAX (WAER(2) - WAER(6), ZERO) NH4I = WAER(3) NO3I = WAER(4) CLI = WAER(5) CAI = WAER(6) KI = WAER(7) MGI = WAER(8) C HSO4I = ZERO NH3AQ = ZERO NO3AQ = ZERO CLAQ = ZERO C C *** SOLVE EQUATIONS ; WITH ITERATIONS FOR ACTIVITY COEF. ************ C DO 10 I=1,NSWEEP C A9 = XK17 *(WATER/GAMA(17))**3.0 ! K2SO4 <==> K+ A13 = XK19 *(WATER/GAMA(19))**2.0 ! KNO3 <==> K+ AKW = XKW*RH*WATER*WATER ! H2O <==> H+ C C POTASSIUM SULFATE C IF (KI*KI*SO4I .GT. A9) THEN BB =-((WAER(2)-WAER(6)) + WAER(7) - ROOT13) CC = (WAER(7)-ROOT13)*(WAER(2)-WAER(6)) + & 0.25D0*(WAER(7)-ROOT13)**2.0 DD =-0.25*((WAER(7)-ROOT13)**2.0*(WAER(2)-WAER(6)) - A9) CALL POLY3(BB, CC, DD, ROOT9, ISLV) IF (ISLV.NE.0) ROOT9 = TINY ROOT9 = MIN (ROOT9,WAER(7)/2.0-ROOT13,(WAER(2)-WAER(6)),CHI9) ROOT9 = MAX (ROOT9, ZERO) PSI9 = CHI9 - ROOT9 ENDIF PSCONV9 = ABS(PSI9-PSI9O) .LE. EPS*PSI9O PSI9O = PSI9 C C POTASSIUM NITRATE C IF (KI*NO3I .GT. A13) THEN BB =-(WAER(4) + WAER(7) - 2.D0*ROOT9) CC = WAER(4)*(WAER(7) - 2.D0*ROOT9) - A13 DD = SQRT(MAX(BB*BB - 4.D0*CC, ZERO)) ROOT13A= 0.5D0*(-BB-DD) ROOT13B= 0.5D0*(-BB+DD) IF (ZERO.LE.ROOT13A) THEN ROOT13 = ROOT13A ELSE ROOT13 = ROOT13B ENDIF ROOT13 = MIN(MAX(ROOT13, ZERO), CHI13) PSI13 = CHI13-ROOT13 ENDIF PSCONV13 = ABS(PSI13-PSI13O) .LE. EPS*PSI13O PSI13O = PSI13 C C ION CONCENTRATIONS ; CORRECTIONS C KI = MAX (WAER(7) - 2.D0*ROOT9 - ROOT13, ZERO) SO4I = MAX (WAER(2)-WAER(6) - ROOT9, ZERO) NH4I = WAER(3) NO3I = MAX (WAER(4) - ROOT13, ZERO) CLI = WAER(5) CAI = ZERO NAI = WAER(1) MGI = WAER(8) C C SOLUTION ACIDIC OR BASIC? C GG = 2.D0*SO4I + NO3I + CLI - NAI - NH4I & - 2.D0*CAI - KI - 2.D0*MGI IF (GG.GT.TINY) THEN ! H+ in excess BB =-GG CC =-AKW DD = BB*BB - 4.D0*CC HI = 0.5D0*(-BB + SQRT(DD)) OHI= AKW/HI ELSE ! OH- in excess BB = GG CC =-AKW DD = BB*BB - 4.D0*CC OHI= 0.5D0*(-BB + SQRT(DD)) HI = AKW/OHI ENDIF C C UNDISSOCIATED SPECIES EQUILIBRIA C IF (HI.GT.OHI) THEN C CALL CALCAMAQ2 (-GG, NH4I, OHI, NH3AQ) C HI = AKW/OHI C HSO4I = ZERO C ELSE C GGNO3 = MAX(2.D0*SO4I + NO3I - NAI - NH4I - 2.D0*CAI C & - KI - 2.D0*MGI, ZERO) C GGCL = MAX(GG-GGNO3, ZERO) C IF (GGCL .GT.TINY) CALL CALCCLAQ2 (GGCL, CLI, HI, CLAQ) ! HCl C IF (GGNO3.GT.TINY) THEN C IF (GGCL.LE.TINY) HI = ZERO C CALL CALCNIAQ2 (GGNO3, NO3I, HI, NO3AQ) ! HNO3 C ENDIF C C CONCENTRATION ADJUSTMENTS ; HSO4 minor species. C CALL CALCHS4 (HI, SO4I, ZERO, DEL) else del= zero ENDIF SO4I = SO4I - DEL HI = HI - DEL HSO4I = DEL C IF (HI.LE.TINY) HI = SQRT(AKW) OHI = AKW/HI C IF (HI.LE.TINY) THEN HI = SQRT(AKW) OHI = AKW/HI ENDIF C C *** SAVE CONCENTRATIONS IN MOLAL ARRAY ****************************** C MOLAL(1) = HI MOLAL(2) = NAI MOLAL(3) = NH4I MOLAL(4) = CLI MOLAL(5) = SO4I MOLAL(6) = HSO4I MOLAL(7) = NO3I MOLAL(8) = CAI MOLAL(9) = KI MOLAL(10)= MGI C C *** CALCULATE WATER ************************************************** C CALL CALCMR C C *** CALCULATE ACTIVITIES OR TERMINATE INTERNAL LOOP ***************** C IF (FRST.AND.CALAOU .OR. .NOT.FRST.AND.CALAIN) THEN CALL CALCACT ELSE IF (PSCONV9 .AND. PSCONV13) GOTO 20 ENDIF 10 CONTINUE ccc CALL PUSHERR (0002, 'CALCW10') ! WARNING ERROR: NO CONVERGENCE C C *** CALCULATE GAS / SOLID SPECIES (LIQUID IN MOLAL ALREADY) ********* C 20 A2 = (XK2/XKW)*R*TEMP*(GAMA(10)/GAMA(5))**2. ! NH3 <==> NH4+ A3 = XK4 *R*TEMP*(WATER/GAMA(10))**2. ! HNO3 <==> NO3- A4 = XK3 *R*TEMP*(WATER/GAMA(11))**2. ! HCL <==> CL- C GNH3 = NH4I/HI/A2 GHNO3 = HI*NO3I/A3 GHCL = HI*CLI /A4 C GASAQ(1)= NH3AQ GASAQ(2)= CLAQ GASAQ(3)= NO3AQ C CNH42S4 = ZERO CNH4NO3 = ZERO CNH4CL = ZERO CNACL = ZERO CNANO3 = ZERO CMGSO4 = ZERO CK2SO4 = CHI9 - PSI9 CCASO4 = MIN (WAER(6), WAER(2)) CCANO32 = ZERO CKNO3 = CHI13 - PSI13 KCL = ZERO CMGNO32 = ZERO CMGCL2 = ZERO CCACL2 = ZERO C RETURN C C *** END OF SUBROUTINE CALCW10 ****************************************** C END C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE CALCW9 C *** CASE W9 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SULRAT > 2.0) ; Rcr+Na >= 2.0 ; Rcr > 2) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : CaSO4, K2SO4, KNO3, MGSO4, KCL C 4. Completely dissolved: CA(NO3)2, CACL2, C MG(NO3)2, MGCL2, NANO3, NACL, NH4NO3, NH4CL C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCW9 INCLUDE 'isrpia.inc' C LOGICAL PSCONV9, PSCONV13, PSCONV14 DOUBLE PRECISION NH4I, NAI, NO3I, NH3AQ, NO3AQ, CLAQ, CAI, KI, MGI C COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** SETUP PARAMETERS ************************************************ C FRST =.TRUE. CALAIN =.TRUE. CALAOU =.TRUE. C PSCONV9 =.TRUE. PSCONV13=.TRUE. PSCONV14=.TRUE. C PSI9O =-GREAT PSI13O =-GREAT PSI14O =-GREAT ! GREAT = 1.D10 C ROOT9 = ZERO ROOT13 = ZERO ROOT14 = ZERO C C *** CALCULATE INITIAL SOLUTION *************************************** C CALL CALCW1A C CHI9 = CK2SO4 ! SALTS CHI13 = CKNO3 CHI10 = CMGSO4 CHI14 = CKCL CHI11 = CCASO4 C PSI1 = CNA2SO4 ! SALTS DISSOLVED PSI5 = CNH4CL PSI6 = CNH4NO3 PSI7 = CNACL PSI8 = CNANO3 PSI9 = CK2SO4 PSI10 = CMGSO4 PSI11 = CCASO4 PSI12 = CCANO32 PSI13 = CKNO3 PSI14 = CKCL PSI15 = CMGNO32 PSI16 = CMGCL2 PSI17 = CCACL2 C CALL CALCMR ! WATER C NAI = WAER(1) ! LIQUID CONCENTRATIONS SO4I = MAX (WAER(2) - WAER(6), ZERO) NH4I = WAER(3) NO3I = WAER(4) CLI = WAER(5) CAI = WAER(6) KI = WAER(7) MGI = WAER(8) C HSO4I = ZERO NH3AQ = ZERO NO3AQ = ZERO CLAQ = ZERO C C *** SOLVE EQUATIONS ; WITH ITERATIONS FOR ACTIVITY COEF. ************ C DO 10 I=1,NSWEEP C A9 = XK17 *(WATER/GAMA(17))**3.0 ! K2SO4 <==> K+ A13 = XK19 *(WATER/GAMA(19))**2.0 ! KNO3 <==> K+ A14 = XK20 *(WATER/GAMA(20))**2.0 ! KCL <==> K+ AKW = XKW*RH*WATER*WATER ! H2O <==> H+ C C POTASSIUM SULFATE C IF (KI*KI*SO4I .GT. A9) THEN BB =-((WAER(2)-WAER(6)) + WAER(7) - ROOT13 - ROOT14) CC = (WAER(7)-ROOT13-ROOT14)*(WAER(2)-WAER(6)) + & 0.25D0*(WAER(7)-ROOT13-ROOT14)**2.0 DD =-0.25*((WAER(7)-ROOT13-ROOT14)**2.0*(WAER(2)-WAER(6)) - A9) CALL POLY3(BB, CC, DD, ROOT9, ISLV) IF (ISLV.NE.0) ROOT9 = TINY ROOT9 = MIN (ROOT9, WAER(7)/2.0-ROOT13-ROOT14, & (WAER(2)-WAER(6)), CHI9) ROOT9 = MAX (ROOT9, ZERO) PSI9 = CHI9 - ROOT9 ENDIF PSCONV9 = ABS(PSI9-PSI9O) .LE. EPS*PSI9O PSI9O = PSI9 C C POTASSIUM NITRATE C IF (KI*NO3I .GT. A13) THEN BB =-(WAER(4) + WAER(7) - 2.D0*ROOT9 - ROOT14) CC = WAER(4)*(WAER(7) - 2.D0*ROOT9 - ROOT14) - A13 DD = SQRT(MAX(BB*BB - 4.D0*CC, TINY)) ROOT13A= 0.5D0*(-BB-DD) ROOT13B= 0.5D0*(-BB+DD) IF (ZERO.LE.ROOT13A) THEN ROOT13 = ROOT13A ELSE ROOT13 = ROOT13B ENDIF ROOT13 = MIN(MAX(ROOT13, ZERO), CHI13) PSI13 = CHI13-ROOT13 ENDIF PSCONV13 = ABS(PSI13-PSI13O) .LE. EPS*PSI13O PSI13O = PSI13 C C POTASSIUM CLORIDE C IF (KI*CLI .GT. A14) THEN BB =-(WAER(5) + WAER(7) - 2.D0*ROOT9 - ROOT13) CC = WAER(5)*(WAER(7) - 2.D0*ROOT9 - ROOT13) - A14 DD = SQRT(MAX(BB*BB - 4.D0*CC, TINY)) ROOT14A= 0.5D0*(-BB-DD) ROOT14B= 0.5D0*(-BB+DD) IF (ZERO.LE.ROOT14A) THEN ROOT14 = ROOT14A ELSE ROOT14 = ROOT14B ENDIF ROOT14 = MIN(MAX(ROOT14, ZERO), CHI14) PSI14 = CHI14-ROOT14 ENDIF PSCONV14 = ABS(PSI14-PSI14O) .LE. EPS*PSI14O PSI14O = PSI14 C C ION CONCENTRATIONS ; CORRECTIONS C KI = MAX (WAER(7) - 2.D0*ROOT9 - ROOT13 - ROOT14, ZERO) SO4I = MAX (WAER(2)-WAER(6) - ROOT9, ZERO) NH4I = WAER(3) NO3I = MAX (WAER(4) - ROOT13, ZERO) CLI = MAX (WAER(5) - ROOT14, ZERO) CAI = ZERO NAI = WAER(1) MGI = WAER(8) C C SOLUTION ACIDIC OR BASIC? C GG = 2.D0*SO4I + NO3I + CLI - NAI - NH4I & - 2.D0*CAI - KI - 2.D0*MGI IF (GG.GT.TINY) THEN ! H+ in excess BB =-GG CC =-AKW DD = BB*BB - 4.D0*CC HI = 0.5D0*(-BB + SQRT(DD)) OHI= AKW/HI ELSE ! OH- in excess BB = GG CC =-AKW DD = BB*BB - 4.D0*CC OHI= 0.5D0*(-BB + SQRT(DD)) HI = AKW/OHI ENDIF C C UNDISSOCIATED SPECIES EQUILIBRIA C IF (HI.GT.OHI) THEN C CALL CALCAMAQ2 (-GG, NH4I, OHI, NH3AQ) C HI = AKW/OHI C HSO4I = ZERO C ELSE C GGNO3 = MAX(2.D0*SO4I + NO3I - NAI - NH4I - 2.D0*CAI C & - KI - 2.D0*MGI, ZERO) C GGCL = MAX(GG-GGNO3, ZERO) C IF (GGCL .GT.TINY) CALL CALCCLAQ2 (GGCL, CLI, HI, CLAQ) ! HCl C IF (GGNO3.GT.TINY) THEN C IF (GGCL.LE.TINY) HI = ZERO C CALL CALCNIAQ2 (GGNO3, NO3I, HI, NO3AQ) ! HNO3 C ENDIF C C CONCENTRATION ADJUSTMENTS ; HSO4 minor species. C CALL CALCHS4 (HI, SO4I, ZERO, DEL) else del= zero ENDIF SO4I = SO4I - DEL HI = HI - DEL HSO4I = DEL C IF (HI.LE.TINY) HI = SQRT(AKW) OHI = AKW/HI C IF (HI.LE.TINY) THEN HI = SQRT(AKW) OHI = AKW/HI ENDIF C C *** SAVE CONCENTRATIONS IN MOLAL ARRAY ****************************** C MOLAL(1) = HI MOLAL(2) = NAI MOLAL(3) = NH4I MOLAL(4) = CLI MOLAL(5) = SO4I MOLAL(6) = HSO4I MOLAL(7) = NO3I MOLAL(8) = CAI MOLAL(9) = KI MOLAL(10)= MGI C C *** CALCULATE WATER ************************************************** C CALL CALCMR C C *** CALCULATE ACTIVITIES OR TERMINATE INTERNAL LOOP ***************** C IF (FRST.AND.CALAOU .OR. .NOT.FRST.AND.CALAIN) THEN CALL CALCACT ELSE IF (PSCONV9 .AND. PSCONV13 .AND. PSCONV14) GOTO 20 ENDIF 10 CONTINUE ccc CALL PUSHERR (0002, 'CALCW9') ! WARNING ERROR: NO CONVERGENCE C C *** CALCULATE GAS / SOLID SPECIES (LIQUID IN MOLAL ALREADY) ********* C 20 A2 = (XK2/XKW)*R*TEMP*(GAMA(10)/GAMA(5))**2. ! NH3 <==> NH4+ A3 = XK4 *R*TEMP*(WATER/GAMA(10))**2. ! HNO3 <==> NO3- A4 = XK3 *R*TEMP*(WATER/GAMA(11))**2. ! HCL <==> CL- C GNH3 = NH4I/HI/A2 GHNO3 = HI*NO3I/A3 GHCL = HI*CLI /A4 C GASAQ(1)= NH3AQ GASAQ(2)= CLAQ GASAQ(3)= NO3AQ C CNH42S4 = ZERO CNH4NO3 = ZERO CNH4CL = ZERO CNACL = ZERO CNANO3 = ZERO CMGSO4 = ZERO CK2SO4 = CHI9 - PSI9 CCASO4 = MIN (WAER(6), WAER(2)) CCANO32 = ZERO CKNO3 = CHI13 - PSI13 KCL = CHI14 - PSI14 CMGNO32 = ZERO CMGCL2 = ZERO CCACL2 = ZERO C RETURN C C *** END OF SUBROUTINE CALCW9 ****************************************** C END C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE CALCW8 C *** CASE W8 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SULRAT > 2.0) ; Rcr+Na >= 2.0 ; Rcr > 2) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : CaSO4, K2SO4, KNO3, MGSO4, KCL, NH4CL C 4. Completely dissolved: CA(NO3)2, CACL2, C MG(NO3)2, MGCL2, NANO3, NACL, NH4NO3 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCW8 INCLUDE 'isrpia.inc' C LOGICAL PSCONV9, PSCONV13, PSCONV14, PSCONV5 DOUBLE PRECISION NH4I, NAI, NO3I, NH3AQ, NO3AQ, CLAQ, CAI, KI, MGI C COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** SETUP PARAMETERS ************************************************ C FRST =.TRUE. CALAIN =.TRUE. CALAOU =.TRUE. C PSCONV9 =.TRUE. PSCONV13=.TRUE. PSCONV14=.TRUE. PSCONV5 =.TRUE. C PSI9O =-GREAT PSI13O =-GREAT PSI14O =-GREAT PSI5O =-GREAT ! GREAT = 1.D10 C ROOT9 = ZERO ROOT13 = ZERO ROOT14 = ZERO ROOT5 = ZERO C C *** CALCULATE INITIAL SOLUTION *************************************** C CALL CALCW1A C CHI9 = CK2SO4 ! SALTS CHI13 = CKNO3 CHI10 = CMGSO4 CHI14 = CKCL CHI5 = CNH4CL CHI11 = CCASO4 C PSI1 = CNA2SO4 ! SALTS DISSOLVED PSI5 = CNH4CL PSI6 = CNH4NO3 PSI7 = CNACL PSI8 = CNANO3 PSI9 = CK2SO4 PSI10 = CMGSO4 PSI11 = CCASO4 PSI12 = CCANO32 PSI13 = CKNO3 PSI14 = CKCL PSI15 = CMGNO32 PSI16 = CMGCL2 PSI17 = CCACL2 C CALL CALCMR ! WATER C NAI = WAER(1) ! LIQUID CONCENTRATIONS SO4I = MAX (WAER(2) - WAER(6), ZERO) NH4I = WAER(3) NO3I = WAER(4) CLI = WAER(5) CAI = WAER(6) KI = WAER(7) MGI = WAER(8) C HSO4I = ZERO NH3AQ = ZERO NO3AQ = ZERO CLAQ = ZERO C C *** SOLVE EQUATIONS ; WITH ITERATIONS FOR ACTIVITY COEF. ************ C DO 10 I=1,NSWEEP C A9 = XK17 *(WATER/GAMA(17))**3.0 ! K2SO4 <==> K+ A13 = XK19 *(WATER/GAMA(19))**2.0 ! KNO3 <==> K+ A14 = XK20 *(WATER/GAMA(20))**2.0 ! KCL <==> K+ A5 = XK14*(WATER/GAMA(6))**2.0 ! NH4Cl <==> NH4+ AKW = XKW*RH*WATER*WATER ! H2O <==> H+ C C POTASSIUM SULFATE C IF (KI*KI*SO4I .GT. A9) THEN BB =-((WAER(2)-WAER(6)) + WAER(7) - ROOT13 - ROOT14) CC = (WAER(7)-ROOT13-ROOT14)*(WAER(2)-WAER(6)) + & 0.25D0*(WAER(7)-ROOT13-ROOT14)**2.0 DD =-0.25*((WAER(7)-ROOT13-ROOT14)**2.0*(WAER(2)-WAER(6)) - A9) CALL POLY3(BB, CC, DD, ROOT9, ISLV) IF (ISLV.NE.0) ROOT9 = TINY ROOT9 = MIN (ROOT9, WAER(7)/2.0-ROOT13-ROOT14, & (WAER(2)-WAER(6)), CHI9) ROOT9 = MAX (ROOT9, ZERO) PSI9 = CHI9 - ROOT9 ENDIF PSCONV9 = ABS(PSI9-PSI9O) .LE. EPS*PSI9O PSI9O = PSI9 C C POTASSIUM NITRATE C IF (KI*NO3I .GT. A13) THEN BB =-(WAER(4) + WAER(7) - 2.D0*ROOT9 - ROOT14) CC = WAER(4)*(WAER(7) - 2.D0*ROOT9 - ROOT14) - A13 DD = SQRT(MAX(BB*BB - 4.D0*CC, ZERO)) ROOT13A= 0.5D0*(-BB-DD) ROOT13B= 0.5D0*(-BB+DD) IF (ZERO.LE.ROOT13A) THEN ROOT13 = ROOT13A ELSE ROOT13 = ROOT13B ENDIF ROOT13 = MIN(MAX(ROOT13, ZERO), CHI13) PSI13 = CHI13-ROOT13 ENDIF PSCONV13 = ABS(PSI13-PSI13O) .LE. EPS*PSI13O PSI13O = PSI13 C C POTASSIUM CLORIDE C IF (KI*CLI .GT. A14) THEN BB =-(WAER(5) - ROOT5 + WAER(7) - 2.D0*ROOT9 - ROOT13) CC = (WAER(5)-ROOT5)*(WAER(7) - 2.D0*ROOT9 - ROOT13) - A14 DD = SQRT(MAX(BB*BB - 4.D0*CC, TINY)) ROOT14A= 0.5D0*(-BB-DD) ROOT14B= 0.5D0*(-BB+DD) IF (ZERO.LE.ROOT14A) THEN ROOT14 = ROOT14A ELSE ROOT14 = ROOT14B ENDIF ROOT14 = MIN(MAX(ROOT14, ZERO), CHI14) PSI14 = CHI14-ROOT14 ENDIF PSCONV14 = ABS(PSI14-PSI14O) .LE. EPS*PSI14O PSI14O = PSI14 C C AMMONIUM CLORIDE C IF (NH4I*CLI .GT. A5) THEN BB =-(WAER(5) + WAER(3) - ROOT14) CC = (WAER(5)-ROOT14)*WAER(3) - A5 DD = SQRT(MAX(BB*BB - 4.D0*CC, TINY)) ROOT5A = 0.5D0*(-BB-DD) ROOT5B = 0.5D0*(-BB+DD) IF (ZERO.LE.ROOT5A) THEN ROOT5 = ROOT5A ELSE ROOT5 = ROOT5B ENDIF ROOT5 = MIN(MAX(ROOT5, ZERO), CHI5) PSI5 = CHI5-ROOT5 ENDIF PSCONV5 = ABS(PSI5-PSI5O) .LE. EPS*PSI5O PSI5O = PSI5 C C ION CONCENTRATIONS ; CORRECTIONS C KI = MAX (WAER(7) - 2.D0*ROOT9 - ROOT13 - ROOT14, ZERO) SO4I = MAX (WAER(2)-WAER(6) - ROOT9, ZERO) NH4I = MAX (WAER(3) - ROOT5, ZERO) NO3I = MAX (WAER(4) - ROOT13, ZERO) CLI = MAX (WAER(5) - ROOT14 - ROOT5, ZERO) CAI = ZERO NAI = WAER(1) MGI = WAER(8) C C SOLUTION ACIDIC OR BASIC? C GG = 2.D0*SO4I + NO3I + CLI - NAI - NH4I & - 2.D0*CAI - KI - 2.D0*MGI IF (GG.GT.TINY) THEN ! H+ in excess BB =-GG CC =-AKW DD = BB*BB - 4.D0*CC HI = 0.5D0*(-BB + SQRT(DD)) OHI= AKW/HI ELSE ! OH- in excess BB = GG CC =-AKW DD = BB*BB - 4.D0*CC OHI= 0.5D0*(-BB + SQRT(DD)) HI = AKW/OHI ENDIF C C UNDISSOCIATED SPECIES EQUILIBRIA C IF (HI.GT.OHI) THEN C CALL CALCAMAQ2 (-GG, NH4I, OHI, NH3AQ) C HI = AKW/OHI C HSO4I = ZERO C ELSE C GGNO3 = MAX(2.D0*SO4I + NO3I - NAI - NH4I - 2.D0*CAI C & - KI - 2.D0*MGI, ZERO) C GGCL = MAX(GG-GGNO3, ZERO) C IF (GGCL .GT.TINY) CALL CALCCLAQ2 (GGCL, CLI, HI, CLAQ) ! HCl C IF (GGNO3.GT.TINY) THEN C IF (GGCL.LE.TINY) HI = ZERO C CALL CALCNIAQ2 (GGNO3, NO3I, HI, NO3AQ) ! HNO3 C ENDIF C C CONCENTRATION ADJUSTMENTS ; HSO4 minor species. C CALL CALCHS4 (HI, SO4I, ZERO, DEL) else del= zero ENDIF SO4I = SO4I - DEL HI = HI - DEL HSO4I = DEL C IF (HI.LE.TINY) HI = SQRT(AKW) OHI = AKW/HI C IF (HI.LE.TINY) THEN HI = SQRT(AKW) OHI = AKW/HI ENDIF C C *** SAVE CONCENTRATIONS IN MOLAL ARRAY ****************************** C MOLAL(1) = HI MOLAL(2) = NAI MOLAL(3) = NH4I MOLAL(4) = CLI MOLAL(5) = SO4I MOLAL(6) = HSO4I MOLAL(7) = NO3I MOLAL(8) = CAI MOLAL(9) = KI MOLAL(10)= MGI C C *** CALCULATE WATER ************************************************** C CALL CALCMR C C *** CALCULATE ACTIVITIES OR TERMINATE INTERNAL LOOP ***************** C IF (FRST.AND.CALAOU .OR. .NOT.FRST.AND.CALAIN) THEN CALL CALCACT ELSE IF (PSCONV9 .AND. PSCONV13 .AND. PSCONV14 .AND.PSCONV5) GOTO 20 ENDIF 10 CONTINUE ccc CALL PUSHERR (0002, 'CALCW8') ! WARNING ERROR: NO CONVERGENCE C C *** CALCULATE GAS / SOLID SPECIES (LIQUID IN MOLAL ALREADY) ********* C 20 A2 = (XK2/XKW)*R*TEMP*(GAMA(10)/GAMA(5))**2. ! NH3 <==> NH4+ A3 = XK4 *R*TEMP*(WATER/GAMA(10))**2. ! HNO3 <==> NO3- A4 = XK3 *R*TEMP*(WATER/GAMA(11))**2. ! HCL <==> CL- C GNH3 = NH4I/HI/A2 GHNO3 = HI*NO3I/A3 GHCL = HI*CLI /A4 C GASAQ(1)= NH3AQ GASAQ(2)= CLAQ GASAQ(3)= NO3AQ C CNH42S4 = ZERO CNH4NO3 = ZERO CNH4CL = CHI5 - PSI5 CNACL = ZERO CNANO3 = ZERO CMGSO4 = ZERO CK2SO4 = CHI9 - PSI9 CCASO4 = MIN (WAER(6), WAER(2)) CCANO32 = ZERO CKNO3 = CHI13 - PSI13 KCL = CHI14 - PSI14 CMGNO32 = ZERO CMGCL2 = ZERO CCACL2 = ZERO C RETURN C C *** END OF SUBROUTINE CALCW8 ****************************************** C END C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE CALCW7 C *** CASE W7 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SULRAT > 2.0) ; Rcr+Na >= 2.0 ; Rcr > 2) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : CaSO4, K2SO4, KNO3, MGSO4, KCL, NH4CL, NACL C 4. Completely dissolved: CA(NO3)2, CACL2, C MG(NO3)2, MGCL2, NANO3, NH4NO3 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCW7 INCLUDE 'isrpia.inc' C LOGICAL PSCONV9, PSCONV13, PSCONV14, PSCONV5, PSCONV7 DOUBLE PRECISION NH4I, NAI, NO3I, NH3AQ, NO3AQ, CLAQ, CAI, KI, MGI C COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** SETUP PARAMETERS ************************************************ C FRST =.TRUE. CALAIN =.TRUE. CALAOU =.TRUE. C PSCONV9 =.TRUE. PSCONV13=.TRUE. PSCONV14=.TRUE. PSCONV5 =.TRUE. PSCONV7 =.TRUE. C PSI9O =-GREAT PSI13O =-GREAT PSI14O =-GREAT PSI5O =-GREAT PSI7O =-GREAT ! GREAT = 1.D10 C ROOT9 = ZERO ROOT13 = ZERO ROOT14 = ZERO ROOT5 = ZERO ROOT7 = ZERO C C *** CALCULATE INITIAL SOLUTION *************************************** C CALL CALCW1A C CHI9 = CK2SO4 ! SALTS CHI13 = CKNO3 CHI10 = CMGSO4 CHI14 = CKCL CHI5 = CNH4CL CHI7 = CNACL CHI11 = CCASO4 C PSI1 = CNA2SO4 ! SALTS DISSOLVED PSI5 = CNH4CL PSI6 = CNH4NO3 PSI7 = CNACL PSI8 = CNANO3 PSI9 = CK2SO4 PSI10 = CMGSO4 PSI11 = CCASO4 PSI12 = CCANO32 PSI13 = CKNO3 PSI14 = CKCL PSI15 = CMGNO32 PSI16 = CMGCL2 PSI17 = CCACL2 C CALL CALCMR ! WATER C NAI = WAER(1) ! LIQUID CONCENTRATIONS SO4I = MAX (WAER(2) - WAER(6), ZERO) NH4I = WAER(3) NO3I = WAER(4) CLI = WAER(5) CAI = WAER(6) KI = WAER(7) MGI = WAER(8) C HSO4I = ZERO NH3AQ = ZERO NO3AQ = ZERO CLAQ = ZERO C C *** SOLVE EQUATIONS ; WITH ITERATIONS FOR ACTIVITY COEF. ************ C DO 10 I=1,NSWEEP C A9 = XK17 *(WATER/GAMA(17))**3.0 ! K2SO4 <==> K+ A13 = XK19 *(WATER/GAMA(19))**2.0 ! KNO3 <==> K+ A14 = XK20 *(WATER/GAMA(20))**2.0 ! KCL <==> K+ A5 = XK14*(WATER/GAMA(6))**2.0 ! NH4Cl <==> NH4+ A7 = XK8 *(WATER/GAMA(1))**2.0 ! NaCl <==> Na+ AKW = XKW*RH*WATER*WATER ! H2O <==> H+ C C POTASSIUM SULFATE C IF (KI*KI*SO4I .GT. A9) THEN BB =-((WAER(2)-WAER(6)) + WAER(7) - ROOT13 - ROOT14) CC = (WAER(7)-ROOT13-ROOT14)*(WAER(2)-WAER(6)) + & 0.25D0*(WAER(7)-ROOT13-ROOT14)**2.0 DD =-0.25*((WAER(7)-ROOT13-ROOT14)**2.0*(WAER(2)-WAER(6)) - A9) CALL POLY3(BB, CC, DD, ROOT9, ISLV) IF (ISLV.NE.0) ROOT9 = TINY ROOT9 = MIN (ROOT9, WAER(7)/2.0-ROOT13-ROOT14, & (WAER(2)-WAER(6)), CHI9) ROOT9 = MAX (ROOT9, ZERO) PSI9 = CHI9 - ROOT9 ENDIF PSCONV9 = ABS(PSI9-PSI9O) .LE. EPS*PSI9O PSI9O = PSI9 C C POTASSIUM NITRATE C IF (KI*NO3I .GT. A13) THEN BB =-(WAER(4) + WAER(7) - 2.D0*ROOT9 - ROOT14) CC = WAER(4)*(WAER(7) - 2.D0*ROOT9 - ROOT14) - A13 DD = SQRT(MAX(BB*BB - 4.D0*CC, ZERO)) ROOT13A= 0.5D0*(-BB-DD) ROOT13B= 0.5D0*(-BB+DD) IF (ZERO.LE.ROOT13A) THEN ROOT13 = ROOT13A ELSE ROOT13 = ROOT13B ENDIF ROOT13 = MIN(MAX(ROOT13, ZERO), CHI13) PSI13 = CHI13-ROOT13 ENDIF PSCONV13 = ABS(PSI13-PSI13O) .LE. EPS*PSI13O PSI13O = PSI13 C C POTASSIUM CLORIDE C IF (KI*CLI .GT. A14) THEN BB =-(WAER(5)-ROOT5-ROOT7 + WAER(7)-2.D0*ROOT9-ROOT13) CC = (WAER(5)-ROOT5-ROOT7)*(WAER(7)-2.D0*ROOT9-ROOT13)-A14 DD = SQRT(MAX(BB*BB - 4.D0*CC, TINY)) ROOT14A= 0.5D0*(-BB-DD) ROOT14B= 0.5D0*(-BB+DD) IF (ZERO.LE.ROOT14A) THEN ROOT14 = ROOT14A ELSE ROOT14 = ROOT14B ENDIF ROOT14 = MIN(MAX(ROOT14, ZERO), CHI14) PSI14 = CHI14-ROOT14 ENDIF PSCONV14 = ABS(PSI14-PSI14O) .LE. EPS*PSI14O PSI14O = PSI14 C C AMMONIUM CLORIDE C IF (NH4I*CLI .GT. A5) THEN BB =-(WAER(5) + WAER(3) - ROOT14 - ROOT7) CC = (WAER(5) - ROOT14 - ROOT7)*WAER(3) - A5 DD = SQRT(MAX(BB*BB - 4.D0*CC, TINY)) ROOT5A = 0.5D0*(-BB-DD) ROOT5B = 0.5D0*(-BB+DD) IF (ZERO.LE.ROOT5A) THEN ROOT5 = ROOT5A ELSE ROOT5 = ROOT5B ENDIF ROOT5 = MIN(MAX(ROOT5, ZERO), CHI5) PSI5 = CHI5-ROOT5 ENDIF PSCONV5 = ABS(PSI5-PSI5O) .LE. EPS*PSI5O PSI5O = PSI5 C C SODIUM CLORIDE C IF (NAI*CLI .GT. A7) THEN BB =-(WAER(5) + WAER(1) - ROOT14 - ROOT5) CC = (WAER(5) - ROOT14 - ROOT5)*WAER(1) - A7 DD = SQRT(MAX(BB*BB - 4.D0*CC, TINY)) ROOT7A = 0.5D0*(-BB-DD) ROOT7B = 0.5D0*(-BB+DD) IF (ZERO.LE.ROOT7A) THEN ROOT7 = ROOT7A ELSE ROOT7 = ROOT7B ENDIF ROOT7 = MIN(MAX(ROOT7, ZERO), CHI7) PSI7 = CHI7-ROOT7 ENDIF PSCONV7 = ABS(PSI7-PSI7O) .LE. EPS*PSI7O PSI7O = PSI7 C C ION CONCENTRATIONS ; CORRECTIONS C KI = MAX (WAER(7) - 2.D0*ROOT9 - ROOT13 - ROOT14, ZERO) SO4I = MAX (WAER(2)-WAER(6) - ROOT9, ZERO) NH4I = MAX (WAER(3) - ROOT5, ZERO) NO3I = MAX (WAER(4) - ROOT13, ZERO) CLI = MAX (WAER(5) - ROOT14 - ROOT5 - ROOT7, ZERO) CAI = ZERO NAI = MAX (WAER(1) - ROOT7, ZERO) MGI = WAER(8) C C SOLUTION ACIDIC OR BASIC? C GG = 2.D0*SO4I + NO3I + CLI - NAI - NH4I & - 2.D0*CAI - KI - 2.D0*MGI IF (GG.GT.TINY) THEN ! H+ in excess BB =-GG CC =-AKW DD = BB*BB - 4.D0*CC HI = 0.5D0*(-BB + SQRT(DD)) OHI= AKW/HI ELSE ! OH- in excess BB = GG CC =-AKW DD = BB*BB - 4.D0*CC OHI= 0.5D0*(-BB + SQRT(DD)) HI = AKW/OHI ENDIF C C UNDISSOCIATED SPECIES EQUILIBRIA C IF (HI.GT.OHI) THEN C CALL CALCAMAQ2 (-GG, NH4I, OHI, NH3AQ) C HI = AKW/OHI C HSO4I = ZERO C ELSE C GGNO3 = MAX(2.D0*SO4I + NO3I - NAI - NH4I - 2.D0*CAI C & - KI - 2.D0*MGI, ZERO) C GGCL = MAX(GG-GGNO3, ZERO) C IF (GGCL .GT.TINY) CALL CALCCLAQ2 (GGCL, CLI, HI, CLAQ) ! HCl C IF (GGNO3.GT.TINY) THEN C IF (GGCL.LE.TINY) HI = ZERO C CALL CALCNIAQ2 (GGNO3, NO3I, HI, NO3AQ) ! HNO3 C ENDIF C C CONCENTRATION ADJUSTMENTS ; HSO4 minor species. C CALL CALCHS4 (HI, SO4I, ZERO, DEL) else del= zero ENDIF SO4I = SO4I - DEL HI = HI - DEL HSO4I = DEL C IF (HI.LE.TINY) HI = SQRT(AKW) OHI = AKW/HI C IF (HI.LE.TINY) THEN HI = SQRT(AKW) OHI = AKW/HI ENDIF C C *** SAVE CONCENTRATIONS IN MOLAL ARRAY ****************************** C MOLAL(1) = HI MOLAL(2) = NAI MOLAL(3) = NH4I MOLAL(4) = CLI MOLAL(5) = SO4I MOLAL(6) = HSO4I MOLAL(7) = NO3I MOLAL(8) = CAI MOLAL(9) = KI MOLAL(10)= MGI C C *** CALCULATE WATER ************************************************** C CALL CALCMR C C *** CALCULATE ACTIVITIES OR TERMINATE INTERNAL LOOP ***************** C IF (FRST.AND.CALAOU .OR. .NOT.FRST.AND.CALAIN) THEN CALL CALCACT ELSE IF (PSCONV9 .AND. PSCONV13 .AND. PSCONV14 .AND. PSCONV5 & .AND. PSCONV7) GOTO 20 ENDIF 10 CONTINUE ccc CALL PUSHERR (0002, 'CALCW7') ! WARNING ERROR: NO CONVERGENCE C C *** CALCULATE GAS / SOLID SPECIES (LIQUID IN MOLAL ALREADY) ********* C 20 A2 = (XK2/XKW)*R*TEMP*(GAMA(10)/GAMA(5))**2. ! NH3 <==> NH4+ A3 = XK4 *R*TEMP*(WATER/GAMA(10))**2. ! HNO3 <==> NO3- A4 = XK3 *R*TEMP*(WATER/GAMA(11))**2. ! HCL <==> CL- C GNH3 = NH4I/HI/A2 GHNO3 = HI*NO3I/A3 GHCL = HI*CLI /A4 C GASAQ(1)= NH3AQ GASAQ(2)= CLAQ GASAQ(3)= NO3AQ C CNH42S4 = ZERO CNH4NO3 = ZERO CNH4CL = CHI5 - PSI5 CNACL = CHI7 - PSI7 CNANO3 = ZERO CMGSO4 = ZERO CK2SO4 = CHI9 - PSI9 CCASO4 = MIN (WAER(6), WAER(2)) CCANO32 = ZERO CKNO3 = CHI13 - PSI13 KCL = CHI14 - PSI14 CMGNO32 = ZERO CMGCL2 = ZERO CCACL2 = ZERO C RETURN C C *** END OF SUBROUTINE CALCW7 ****************************************** C END C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE CALCW6 C *** CASE W6 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SULRAT > 2.0) ; Rcr+Na >= 2.0 ; Rcr > 2) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : CaSO4, K2SO4, KNO3, MGSO4, KCL, NH4CL, NACL, NANO3 C 4. Completely dissolved: CA(NO3)2, CACL2, C MG(NO3)2, MGCL2, NH4NO3 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCW6 INCLUDE 'isrpia.inc' C LOGICAL PSCONV9, PSCONV13, PSCONV14, PSCONV5, PSCONV7, PSCONV8 DOUBLE PRECISION NH4I, NAI, NO3I, NH3AQ, NO3AQ, CLAQ, CAI, KI, MGI C COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** SETUP PARAMETERS ************************************************ C FRST =.TRUE. CALAIN =.TRUE. CALAOU =.TRUE. C PSCONV9 =.TRUE. PSCONV13=.TRUE. PSCONV14=.TRUE. PSCONV5 =.TRUE. PSCONV7 =.TRUE. PSCONV8 =.TRUE. C PSI9O =-GREAT PSI13O =-GREAT PSI14O =-GREAT PSI5O =-GREAT PSI7O =-GREAT PSI8O =-GREAT ! GREAT = 1.D10 C ROOT9 = ZERO ROOT13 = ZERO ROOT14 = ZERO ROOT5 = ZERO ROOT7 = ZERO ROOT8 = ZERO C C *** CALCULATE INITIAL SOLUTION *************************************** C CALL CALCW1A C CHI9 = CK2SO4 ! SALTS CHI13 = CKNO3 CHI10 = CMGSO4 CHI14 = CKCL CHI5 = CNH4CL CHI7 = CNACL CHI8 = CNANO3 CHI11 = CCASO4 C PSI1 = CNA2SO4 ! SALTS DISSOLVED PSI5 = CNH4CL PSI6 = CNH4NO3 PSI7 = CNACL PSI8 = CNANO3 PSI9 = CK2SO4 PSI10 = CMGSO4 PSI11 = CCASO4 PSI12 = CCANO32 PSI13 = CKNO3 PSI14 = CKCL PSI15 = CMGNO32 PSI16 = CMGCL2 PSI17 = CCACL2 C CALL CALCMR ! WATER C NAI = WAER(1) ! LIQUID CONCENTRATIONS SO4I = MAX (WAER(2) - WAER(6), ZERO) NH4I = WAER(3) NO3I = WAER(4) CLI = WAER(5) CAI = WAER(6) KI = WAER(7) MGI = WAER(8) C HSO4I = ZERO NH3AQ = ZERO NO3AQ = ZERO CLAQ = ZERO C C *** SOLVE EQUATIONS ; WITH ITERATIONS FOR ACTIVITY COEF. ************ C DO 10 I=1,NSWEEP C A9 = XK17 *(WATER/GAMA(17))**3.0 ! K2SO4 <==> K+ A13 = XK19 *(WATER/GAMA(19))**2.0 ! KNO3 <==> K+ A14 = XK20 *(WATER/GAMA(20))**2.0 ! KCL <==> K+ A5 = XK14*(WATER/GAMA(6))**2.0 ! NH4Cl <==> NH4+ A7 = XK8 *(WATER/GAMA(1))**2.0 ! NaCl <==> Na+ A8 = XK9 *(WATER/GAMA(3))**2. ! NaNO3 <==> Na+ AKW = XKW*RH*WATER*WATER ! H2O <==> H+ C C POTASSIUM SULFATE C IF (KI*KI*SO4I .GT. A9) THEN BB =-((WAER(2)-WAER(6)) + WAER(7) - ROOT13 - ROOT14) CC = (WAER(7)-ROOT13-ROOT14)*(WAER(2)-WAER(6)) + & 0.25D0*(WAER(7)-ROOT13-ROOT14)**2.0 DD =-0.25*((WAER(7)-ROOT13-ROOT14)**2.0*(WAER(2)-WAER(6)) - A9) CALL POLY3(BB, CC, DD, ROOT9, ISLV) IF (ISLV.NE.0) ROOT9 = TINY ROOT9 = MIN (ROOT9, WAER(7)/2.0-ROOT13-ROOT14, & (WAER(2)-WAER(6)), CHI9) ROOT9 = MAX (ROOT9, ZERO) PSI9 = CHI9 - ROOT9 ENDIF PSCONV9 = ABS(PSI9-PSI9O) .LE. EPS*PSI9O PSI9O = PSI9 C C POTASSIUM NITRATE C IF (KI*NO3I .GT. A13) THEN BB =-(WAER(4) - ROOT8 + WAER(7) - 2.D0*ROOT9 - ROOT14) CC = (WAER(4)-ROOT8)*(WAER(7) - 2.D0*ROOT9 - ROOT14) - A13 DD = SQRT(MAX(BB*BB - 4.D0*CC, ZERO)) ROOT13A= 0.5D0*(-BB-DD) ROOT13B= 0.5D0*(-BB+DD) IF (ZERO.LE.ROOT13A) THEN ROOT13 = ROOT13A ELSE ROOT13 = ROOT13B ENDIF ROOT13 = MIN(MAX(ROOT13, ZERO), CHI13) PSI13 = CHI13-ROOT13 ENDIF PSCONV13 = ABS(PSI13-PSI13O) .LE. EPS*PSI13O PSI13O = PSI13 C C POTASSIUM CLORIDE C IF (KI*CLI .GT. A14) THEN BB =-(WAER(5)-ROOT5-ROOT7 + WAER(7)-2.D0*ROOT9-ROOT13) CC = (WAER(5)-ROOT5-ROOT7)*(WAER(7)-2.D0*ROOT9-ROOT13)-A14 DD = SQRT(MAX(BB*BB - 4.D0*CC, TINY)) ROOT14A= 0.5D0*(-BB-DD) ROOT14B= 0.5D0*(-BB+DD) IF (ZERO.LE.ROOT14A) THEN ROOT14 = ROOT14A ELSE ROOT14 = ROOT14B ENDIF ROOT14 = MIN(MAX(ROOT14, ZERO), CHI14) PSI14 = CHI14-ROOT14 ENDIF PSCONV14 = ABS(PSI14-PSI14O) .LE. EPS*PSI14O PSI14O = PSI14 C C AMMONIUM CLORIDE C IF (NH4I*CLI .GT. A5) THEN BB =-(WAER(5) + WAER(3) - ROOT14 - ROOT7) CC = (WAER(5) - ROOT14 - ROOT7)*WAER(3) - A5 DD = SQRT(MAX(BB*BB - 4.D0*CC, TINY)) ROOT5A = 0.5D0*(-BB-DD) ROOT5B = 0.5D0*(-BB+DD) IF (ZERO.LE.ROOT5A) THEN ROOT5 = ROOT5A ELSE ROOT5 = ROOT5B ENDIF ROOT5 = MIN(MAX(ROOT5, ZERO), CHI5) PSI5 = CHI5-ROOT5 ENDIF PSCONV5 = ABS(PSI5-PSI5O) .LE. EPS*PSI5O PSI5O = PSI5 C C SODIUM CLORIDE C IF (NAI*CLI .GT. A7) THEN BB =-(WAER(5) + WAER(1) - ROOT8 - ROOT14 - ROOT5) CC = (WAER(5) - ROOT14 - ROOT5)*(WAER(1)-ROOT8) - A7 DD = SQRT(MAX(BB*BB - 4.D0*CC, TINY)) ROOT7A = 0.5D0*(-BB-DD) ROOT7B = 0.5D0*(-BB+DD) IF (ZERO.LE.ROOT7A) THEN ROOT7 = ROOT7A ELSE ROOT7 = ROOT7B ENDIF ROOT7 = MIN(MAX(ROOT7, ZERO), CHI7) PSI7 = CHI7-ROOT7 ENDIF PSCONV7 = ABS(PSI7-PSI7O) .LE. EPS*PSI7O PSI7O = PSI7 C C SODIUM NITRATE C IF (NAI*NO3I .GT. A8) THEN BB =-(WAER(4) - ROOT13 + WAER(1) - ROOT7) CC = (WAER(4) - ROOT13)*(WAER(1)-ROOT7) - A8 DD = SQRT(MAX(BB*BB - 4.D0*CC, TINY)) ROOT8A = 0.5D0*(-BB-DD) ROOT8B = 0.5D0*(-BB+DD) IF (ZERO.LE.ROOT8A) THEN ROOT8 = ROOT8A ELSE ROOT8 = ROOT8B ENDIF ROOT8 = MIN(MAX(ROOT8, ZERO), CHI8) PSI8 = CHI8-ROOT8 ENDIF PSCONV8 = ABS(PSI8-PSI8O) .LE. EPS*PSI8O PSI8O = PSI8 C C ION CONCENTRATIONS ; CORRECTIONS C KI = MAX (WAER(7) - 2.D0*ROOT9 - ROOT13 - ROOT14, ZERO) SO4I = MAX (WAER(2)-WAER(6) - ROOT9, ZERO) NH4I = MAX (WAER(3) - ROOT5, ZERO) NO3I = MAX (WAER(4) - ROOT13 - ROOT8, ZERO) CLI = MAX (WAER(5) - ROOT14 - ROOT5 - ROOT7, ZERO) CAI = ZERO NAI = MAX (WAER(1) - ROOT7 - ROOT8, ZERO) MGI = WAER(8) C C SOLUTION ACIDIC OR BASIC? C GG = 2.D0*SO4I + NO3I + CLI - NAI - NH4I & - 2.D0*CAI - KI - 2.D0*MGI IF (GG.GT.TINY) THEN ! H+ in excess BB =-GG CC =-AKW DD = BB*BB - 4.D0*CC HI = 0.5D0*(-BB + SQRT(DD)) OHI= AKW/HI ELSE ! OH- in excess BB = GG CC =-AKW DD = BB*BB - 4.D0*CC OHI= 0.5D0*(-BB + SQRT(DD)) HI = AKW/OHI ENDIF C C UNDISSOCIATED SPECIES EQUILIBRIA C IF (HI.GT.OHI) THEN C CALL CALCAMAQ2 (-GG, NH4I, OHI, NH3AQ) C HI = AKW/OHI C HSO4I = ZERO C ELSE C GGNO3 = MAX(2.D0*SO4I + NO3I - NAI - NH4I - 2.D0*CAI C & - KI - 2.D0*MGI, ZERO) C GGCL = MAX(GG-GGNO3, ZERO) C IF (GGCL .GT.TINY) CALL CALCCLAQ2 (GGCL, CLI, HI, CLAQ) ! HCl C IF (GGNO3.GT.TINY) THEN C IF (GGCL.LE.TINY) HI = ZERO C CALL CALCNIAQ2 (GGNO3, NO3I, HI, NO3AQ) ! HNO3 C ENDIF C C CONCENTRATION ADJUSTMENTS ; HSO4 minor species. C CALL CALCHS4 (HI, SO4I, ZERO, DEL) else del= zero ENDIF SO4I = SO4I - DEL HI = HI - DEL HSO4I = DEL C IF (HI.LE.TINY) HI = SQRT(AKW) OHI = AKW/HI C IF (HI.LE.TINY) THEN HI = SQRT(AKW) OHI = AKW/HI ENDIF C C *** SAVE CONCENTRATIONS IN MOLAL ARRAY ****************************** C MOLAL(1) = HI MOLAL(2) = NAI MOLAL(3) = NH4I MOLAL(4) = CLI MOLAL(5) = SO4I MOLAL(6) = HSO4I MOLAL(7) = NO3I MOLAL(8) = CAI MOLAL(9) = KI MOLAL(10)= MGI C C *** CALCULATE WATER ************************************************** C CALL CALCMR C C *** CALCULATE ACTIVITIES OR TERMINATE INTERNAL LOOP ***************** C IF (FRST.AND.CALAOU .OR. .NOT.FRST.AND.CALAIN) THEN CALL CALCACT ELSE IF (PSCONV9 .AND. PSCONV13 .AND. PSCONV14 .AND. PSCONV5 & .AND. PSCONV7 .AND. PSCONV8) GOTO 20 ENDIF 10 CONTINUE ccc CALL PUSHERR (0002, 'CALCW6') ! WARNING ERROR: NO CONVERGENCE C C *** CALCULATE GAS / SOLID SPECIES (LIQUID IN MOLAL ALREADY) ********* C 20 A2 = (XK2/XKW)*R*TEMP*(GAMA(10)/GAMA(5))**2. ! NH3 <==> NH4+ A3 = XK4 *R*TEMP*(WATER/GAMA(10))**2. ! HNO3 <==> NO3- A4 = XK3 *R*TEMP*(WATER/GAMA(11))**2. ! HCL <==> CL- C GNH3 = NH4I/HI/A2 GHNO3 = HI*NO3I/A3 GHCL = HI*CLI /A4 C GASAQ(1)= NH3AQ GASAQ(2)= CLAQ GASAQ(3)= NO3AQ C CNH42S4 = ZERO CNH4NO3 = ZERO CNH4CL = CHI5 - PSI5 CNACL = CHI7 - PSI7 CNANO3 = CHI8 - PSI8 CMGSO4 = ZERO CK2SO4 = CHI9 - PSI9 CCASO4 = MIN (WAER(6), WAER(2)) CCANO32 = ZERO CKNO3 = CHI13 - PSI13 KCL = CHI14 - PSI14 CMGNO32 = ZERO CMGCL2 = ZERO CCACL2 = ZERO C RETURN C C *** END OF SUBROUTINE CALCW6 ****************************************** C END C C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE CALCW5 C *** CASE W5 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SULRAT > 2.0) ; Rcr+Na >= 2.0 ; Rcr > 2) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : CaSO4, K2SO4, KNO3, MGSO4, KCL, NH4CL, NACL, NANO3, NH4NO3 C 4. Completely dissolved: CA(NO3)2, CACL2, C MG(NO3)2, MGCL2 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCW5 INCLUDE 'isrpia.inc' C EXTERNAL CALCW1A, CALCW6 C C *** REGIME DEPENDS ON THE EXISTANCE OF WATER AND OF THE RH ************ C IF (WAER(4).GT.TINY) THEN ! NO3 EXIST, WATER POSSIBLE SCASE = 'W5 ; SUBCASE 1' CALL CALCW5A SCASE = 'W5 ; SUBCASE 1' ELSE ! NO3, CL NON EXISTANT SCASE = 'W1 ; SUBCASE 1' CALL CALCW1A SCASE = 'W1 ; SUBCASE 1' ENDIF C IF (WATER.LE.TINY) THEN IF (RH.LT.DRMP5) THEN ! ONLY SOLIDS WATER = TINY DO 10 I=1,NIONS MOLAL(I) = ZERO 10 CONTINUE CALL CALCW1A SCASE = 'W5 ; SUBCASE 2' RETURN ELSE SCASE = 'W5 ; SUBCASE 3' ! MDRH REGION (CaSO4, K2SO4, KNO3, KCL, MGSO4, C NANO3, NACL, NH4NO3, NH4CL) CALL CALCMDRPII (RH, DRMP5, DRNH4NO3, CALCW1A, CALCW6) SCASE = 'W5 ; SUBCASE 3' ENDIF ENDIF C RETURN C C *** END OF SUBROUTINE CALCW5 ****************************************** C END C C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE CALCW5A C *** CASE W5A C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SULRAT > 2.0) ; Rcr+Na >= 2.0 ; Rcr > 2) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : CaSO4, K2SO4, KNO3, MGSO4, KCL, NH4CL, NACL, C NANO3, NH4NO3 C 4. Completely dissolved: CA(NO3)2, CACL2, MG(NO3)2, MGCL2 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCW5A INCLUDE 'isrpia.inc' C LOGICAL PSCONV9, PSCONV13, PSCONV14, PSCONV5, PSCONV7, PSCONV8 DOUBLE PRECISION NH4I, NAI, NO3I, NH3AQ, NO3AQ, CLAQ, CAI, KI, MGI C COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** SETUP PARAMETERS ************************************************ C FRST =.TRUE. CALAIN =.TRUE. CALAOU =.TRUE. C PSCONV9 =.TRUE. PSCONV13=.TRUE. PSCONV14=.TRUE. PSCONV5 =.TRUE. PSCONV7 =.TRUE. PSCONV8 =.TRUE. C PSI9O =-GREAT PSI13O =-GREAT PSI14O =-GREAT PSI5O =-GREAT PSI7O =-GREAT PSI8O =-GREAT ! GREAT = 1.D10 C ROOT9 = ZERO ROOT13 = ZERO ROOT14 = ZERO ROOT5 = ZERO ROOT7 = ZERO ROOT8 = ZERO C C *** CALCULATE INITIAL SOLUTION *************************************** C CALL CALCW1A C CHI9 = CK2SO4 ! SALTS CHI13 = CKNO3 CHI10 = CMGSO4 CHI14 = CKCL CHI5 = CNH4CL CHI7 = CNACL CHI8 = CNANO3 CHI6 = CNH4NO3 CHI11 = CCASO4 C PSI1 = CNA2SO4 ! SALTS DISSOLVED PSI5 = CNH4CL PSI6 = CNH4NO3 PSI7 = CNACL PSI8 = CNANO3 PSI9 = CK2SO4 PSI10 = CMGSO4 PSI11 = CCASO4 PSI12 = CCANO32 PSI13 = CKNO3 PSI14 = CKCL PSI15 = CMGNO32 PSI16 = CMGCL2 PSI17 = CCACL2 C CALL CALCMR ! WATER C NAI = WAER(1) ! LIQUID CONCENTRATIONS SO4I = MAX (WAER(2) - WAER(6), ZERO) NH4I = WAER(3) NO3I = WAER(4) CLI = WAER(5) CAI = WAER(6) KI = WAER(7) MGI = WAER(8) C HSO4I = ZERO NH3AQ = ZERO NO3AQ = ZERO CLAQ = ZERO C C *** SOLVE EQUATIONS ; WITH ITERATIONS FOR ACTIVITY COEF. ************ C DO 10 I=1,NSWEEP C A9 = XK17 *(WATER/GAMA(17))**3.0 ! K2SO4 <==> K+ A13 = XK19 *(WATER/GAMA(19))**2.0 ! KNO3 <==> K+ A14 = XK20 *(WATER/GAMA(20))**2.0 ! KCL <==> K+ A5 = XK14*(WATER/GAMA(6))**2.0 ! NH4Cl <==> NH4+ A7 = XK8 *(WATER/GAMA(1))**2.0 ! NaCl <==> Na+ A8 = XK9 *(WATER/GAMA(3))**2. ! NaNO3 <==> Na+ AKW = XKW*RH*WATER*WATER ! H2O <==> H+ C C POTASSIUM SULFATE C IF (KI*KI*SO4I .GT. A9) THEN BB =-((WAER(2)-WAER(6)) + WAER(7) - ROOT13 - ROOT14) CC = (WAER(7)-ROOT13-ROOT14)*(WAER(2)-WAER(6)) + & 0.25D0*(WAER(7)-ROOT13-ROOT14)**2.0 DD =-0.25*((WAER(7)-ROOT13-ROOT14)**2.0*(WAER(2)-WAER(6)) - A9) CALL POLY3(BB, CC, DD, ROOT9, ISLV) IF (ISLV.NE.0) ROOT9 = TINY ROOT9 = MIN (ROOT9, WAER(7)/2.0-ROOT13-ROOT14, & (WAER(2)-WAER(6)), CHI9) ROOT9 = MAX (ROOT9, ZERO) PSI9 = CHI9 - ROOT9 ENDIF PSCONV9 = ABS(PSI9-PSI9O) .LE. EPS*PSI9O PSI9O = PSI9 C C POTASSIUM NITRATE C IF (KI*NO3I .GT. A13) THEN BB =-(WAER(4) - ROOT8 + WAER(7) - 2.D0*ROOT9 - ROOT14) CC = (WAER(4)-ROOT8)*(WAER(7) - 2.D0*ROOT9 - ROOT14) - A13 DD = SQRT(MAX(BB*BB - 4.D0*CC, ZERO)) ROOT13A= 0.5D0*(-BB-DD) ROOT13B= 0.5D0*(-BB+DD) IF (ZERO.LE.ROOT13A) THEN ROOT13 = ROOT13A ELSE ROOT13 = ROOT13B ENDIF ROOT13 = MIN(MAX(ROOT13, ZERO), CHI13) PSI13 = CHI13-ROOT13 ENDIF PSCONV13 = ABS(PSI13-PSI13O) .LE. EPS*PSI13O PSI13O = PSI13 C C POTASSIUM CLORIDE C IF (KI*CLI .GT. A14) THEN BB =-(WAER(5)-ROOT5-ROOT7 + WAER(7)-2.D0*ROOT9-ROOT13) CC = (WAER(5)-ROOT5-ROOT7)*(WAER(7)-2.D0*ROOT9-ROOT13)-A14 DD = SQRT(MAX(BB*BB - 4.D0*CC, TINY)) ROOT14A= 0.5D0*(-BB-DD) ROOT14B= 0.5D0*(-BB+DD) IF (ZERO.LE.ROOT14A) THEN ROOT14 = ROOT14A ELSE ROOT14 = ROOT14B ENDIF ROOT14 = MIN(MAX(ROOT14, ZERO), CHI14) PSI14 = CHI14-ROOT14 ENDIF PSCONV14 = ABS(PSI14-PSI14O) .LE. EPS*PSI14O PSI14O = PSI14 C C AMMONIUM CLORIDE C IF (NH4I*CLI .GT. A5) THEN BB =-(WAER(5) + WAER(3) - ROOT14 - ROOT7) CC = (WAER(5) - ROOT14 - ROOT7)*WAER(3) - A5 DD = SQRT(MAX(BB*BB - 4.D0*CC, TINY)) ROOT5A = 0.5D0*(-BB-DD) ROOT5B = 0.5D0*(-BB+DD) IF (ZERO.LE.ROOT5A) THEN ROOT5 = ROOT5A ELSE ROOT5 = ROOT5B ENDIF ROOT5 = MIN(MAX(ROOT5, ZERO), CHI5) PSI5 = CHI5-ROOT5 ENDIF PSCONV5 = ABS(PSI5-PSI5O) .LE. EPS*PSI5O PSI5O = PSI5 C C SODIUM CLORIDE C IF (NAI*CLI .GT. A7) THEN BB =-(WAER(5) + WAER(1) - ROOT8 - ROOT14 - ROOT5) CC = (WAER(5) - ROOT14 - ROOT5)*(WAER(1)-ROOT8) - A7 DD = SQRT(MAX(BB*BB - 4.D0*CC, TINY)) ROOT7A = 0.5D0*(-BB-DD) ROOT7B = 0.5D0*(-BB+DD) IF (ZERO.LE.ROOT7A) THEN ROOT7 = ROOT7A ELSE ROOT7 = ROOT7B ENDIF ROOT7 = MIN(MAX(ROOT7, ZERO), CHI7) PSI7 = CHI7-ROOT7 ENDIF PSCONV7 = ABS(PSI7-PSI7O) .LE. EPS*PSI7O PSI7O = PSI7 C C SODIUM NITRATE C IF (NAI*NO3I .GT. A8) THEN BB =-(WAER(4) - ROOT13 + WAER(1) - ROOT7) CC = (WAER(4) - ROOT13)*(WAER(1)-ROOT7) - A8 DD = SQRT(MAX(BB*BB - 4.D0*CC, TINY)) ROOT8A = 0.5D0*(-BB-DD) ROOT8B = 0.5D0*(-BB+DD) IF (ZERO.LE.ROOT8A) THEN ROOT8 = ROOT8A ELSE ROOT8 = ROOT8B ENDIF ROOT8 = MIN(MAX(ROOT8, ZERO), CHI8) PSI8 = CHI8-ROOT8 ENDIF PSCONV8 = ABS(PSI8-PSI8O) .LE. EPS*PSI8O PSI8O = PSI8 C C ION CONCENTRATIONS ; CORRECTIONS C KI = MAX (WAER(7) - 2.D0*ROOT9 - ROOT13 - ROOT14, ZERO) SO4I = MAX (WAER(2)-WAER(6) - ROOT9, ZERO) NH4I = MAX (WAER(3) - ROOT5, ZERO) NO3I = MAX (WAER(4) - ROOT13 - ROOT8, ZERO) CLI = MAX (WAER(5) - ROOT14 - ROOT5 - ROOT7, ZERO) CAI = ZERO NAI = MAX (WAER(1) - ROOT7 - ROOT8, ZERO) MGI = WAER(8) C C SOLUTION ACIDIC OR BASIC? C GG = 2.D0*SO4I + NO3I + CLI - NAI - NH4I & - 2.D0*CAI - KI - 2.D0*MGI IF (GG.GT.TINY) THEN ! H+ in excess BB =-GG CC =-AKW DD = BB*BB - 4.D0*CC HI = 0.5D0*(-BB + SQRT(DD)) OHI= AKW/HI ELSE ! OH- in excess BB = GG CC =-AKW DD = BB*BB - 4.D0*CC OHI= 0.5D0*(-BB + SQRT(DD)) HI = AKW/OHI ENDIF C C UNDISSOCIATED SPECIES EQUILIBRIA C IF (HI.GT.OHI) THEN C CALL CALCAMAQ2 (-GG, NH4I, OHI, NH3AQ) C HI = AKW/OHI C HSO4I = ZERO C ELSE C GGNO3 = MAX(2.D0*SO4I + NO3I - NAI - NH4I - 2.D0*CAI C & - KI - 2.D0*MGI, ZERO) C GGCL = MAX(GG-GGNO3, ZERO) C IF (GGCL .GT.TINY) CALL CALCCLAQ2 (GGCL, CLI, HI, CLAQ) ! HCl C IF (GGNO3.GT.TINY) THEN C IF (GGCL.LE.TINY) HI = ZERO C CALL CALCNIAQ2 (GGNO3, NO3I, HI, NO3AQ) ! HNO3 C ENDIF C C CONCENTRATION ADJUSTMENTS ; HSO4 minor species. C CALL CALCHS4 (HI, SO4I, ZERO, DEL) else del= zero ENDIF SO4I = SO4I - DEL HI = HI - DEL HSO4I = DEL C IF (HI.LE.TINY) HI = SQRT(AKW) OHI = AKW/HI C IF (HI.LE.TINY) THEN HI = SQRT(AKW) OHI = AKW/HI ENDIF C C *** SAVE CONCENTRATIONS IN MOLAL ARRAY ****************************** C MOLAL(1) = HI MOLAL(2) = NAI MOLAL(3) = NH4I MOLAL(4) = CLI MOLAL(5) = SO4I MOLAL(6) = HSO4I MOLAL(7) = NO3I MOLAL(8) = CAI MOLAL(9) = KI MOLAL(10)= MGI C C *** CALCULATE WATER ************************************************** C CALL CALCMR C C *** CALCULATE ACTIVITIES OR TERMINATE INTERNAL LOOP ***************** C IF (FRST.AND.CALAOU .OR. .NOT.FRST.AND.CALAIN) THEN CALL CALCACT ELSE IF (PSCONV9 .AND. PSCONV13 .AND. PSCONV14 .AND. PSCONV5 & .AND. PSCONV7 .AND. PSCONV8) GOTO 20 ENDIF 10 CONTINUE ccc CALL PUSHERR (0002, 'CALCW5') ! WARNING ERROR: NO CONVERGENCE C C *** CALCULATE GAS / SOLID SPECIES (LIQUID IN MOLAL ALREADY) ********* C 20 A2 = (XK2/XKW)*R*TEMP*(GAMA(10)/GAMA(5))**2. ! NH3 <==> NH4+ A3 = XK4 *R*TEMP*(WATER/GAMA(10))**2. ! HNO3 <==> NO3- A4 = XK3 *R*TEMP*(WATER/GAMA(11))**2. ! HCL <==> CL- C GNH3 = NH4I/HI/A2 GHNO3 = HI*NO3I/A3 GHCL = HI*CLI /A4 C GASAQ(1)= NH3AQ GASAQ(2)= CLAQ GASAQ(3)= NO3AQ C CNH42S4 = ZERO CNH4NO3 = ZERO CNH4CL = CHI5 - PSI5 CNACL = CHI7 - PSI7 CNANO3 = CHI8 - PSI8 CMGSO4 = ZERO CK2SO4 = CHI9 - PSI9 CCASO4 = MIN (WAER(6), WAER(2)) CCANO32 = ZERO CKNO3 = CHI13 - PSI13 KCL = CHI14 - PSI14 CMGNO32 = ZERO CMGCL2 = ZERO CCACL2 = ZERO C RETURN C C *** END OF SUBROUTINE CALCW5 ****************************************** C END C C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE CALCW4 C *** CASE W4 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SULRAT > 2.0) ; Rcr+Na >= 2.0 ; Rcr > 2) C 2. SOLID AEROSOL ONLY C 3. SOLIDS POSSIBLE : CaSO4, K2SO4, KNO3, KCL, MGSO4, C MG(NO3)2, NANO3, NACL, NH4NO3, NH4CL C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCW4 INCLUDE 'isrpia.inc' EXTERNAL CALCW1A, CALCW5A C C *** REGIME DEPENDS ON THE EXISTANCE OF WATER AND OF THE RH ************ C IF (WAER(4).GT.TINY) THEN ! NO3 EXIST, WATER POSSIBLE SCASE = 'W4 ; SUBCASE 1' CALL CALCW4A SCASE = 'W4 ; SUBCASE 1' ELSE ! NO3, CL NON EXISTANT SCASE = 'W1 ; SUBCASE 1' CALL CALCW1A SCASE = 'W1 ; SUBCASE 1' ENDIF C IF (WATER.LE.TINY) THEN IF (RH.LT.DRMP4) THEN ! ONLY SOLIDS WATER = TINY DO 10 I=1,NIONS MOLAL(I) = ZERO 10 CONTINUE CALL CALCW1A SCASE = 'W4 ; SUBCASE 2' RETURN ELSE SCASE = 'W4 ; SUBCASE 3' ! MDRH REGION (CaSO4, K2SO4, KNO3, KCL, MGSO4, C MG(NO3)2, NANO3, NACL, NH4NO3, NH4CL) CALL CALCMDRPII (RH, DRMP4, DRMGNO32, CALCW1A, CALCW5A) SCASE = 'W4 ; SUBCASE 3' ENDIF ENDIF C RETURN C C *** END OF SUBROUTINE CALCW4 ****************************************** C END C C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE CALCW4A C *** CASE W4A C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SULRAT > 2.0) ; Rcr+Na >= 2.0 ; Rcr > 2) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : CaSO4, K2SO4, KNO3, MGSO4, KCL, NH4CL, NACL, C NANO3, NH4NO3, MG(NO3)2 C 4. Completely dissolved: CA(NO3)2, CACL2, MGCL2 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCW4A INCLUDE 'isrpia.inc' C LOGICAL PSCONV9, PSCONV13, PSCONV14, PSCONV5, PSCONV7, PSCONV8 DOUBLE PRECISION NH4I, NAI, NO3I, NH3AQ, NO3AQ, CLAQ, CAI, KI, MGI C COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** SETUP PARAMETERS ************************************************ C FRST =.TRUE. CALAIN =.TRUE. CALAOU =.TRUE. C PSCONV9 =.TRUE. PSCONV13=.TRUE. PSCONV14=.TRUE. PSCONV5 =.TRUE. PSCONV7 =.TRUE. PSCONV8 =.TRUE. C PSI9O =-GREAT PSI13O =-GREAT PSI14O =-GREAT PSI5O =-GREAT PSI7O =-GREAT PSI8O =-GREAT ! GREAT = 1.D10 C ROOT9 = ZERO ROOT13 = ZERO ROOT14 = ZERO ROOT5 = ZERO ROOT7 = ZERO ROOT8 = ZERO C C *** CALCULATE INITIAL SOLUTION *************************************** C CALL CALCW1A C CHI9 = CK2SO4 ! SALTS CHI13 = CKNO3 CHI10 = CMGSO4 CHI14 = CKCL CHI5 = CNH4CL CHI7 = CNACL CHI8 = CNANO3 CHI6 = CNH4NO3 CHI15 = CMGNO32 CHI11 = CCASO4 C PSI1 = CNA2SO4 ! SALTS DISSOLVED PSI5 = CNH4CL PSI6 = CNH4NO3 PSI7 = CNACL PSI8 = CNANO3 PSI9 = CK2SO4 PSI10 = CMGSO4 PSI11 = CCASO4 PSI12 = CCANO32 PSI13 = CKNO3 PSI14 = CKCL PSI15 = CMGNO32 PSI16 = CMGCL2 PSI17 = CCACL2 C CALL CALCMR ! WATER C NAI = WAER(1) ! LIQUID CONCENTRATIONS SO4I = MAX (WAER(2) - WAER(6), ZERO) NH4I = WAER(3) NO3I = WAER(4) CLI = WAER(5) CAI = WAER(6) KI = WAER(7) MGI = WAER(8) C HSO4I = ZERO NH3AQ = ZERO NO3AQ = ZERO CLAQ = ZERO C C *** SOLVE EQUATIONS ; WITH ITERATIONS FOR ACTIVITY COEF. ************ C DO 10 I=1,NSWEEP C A9 = XK17 *(WATER/GAMA(17))**3.0 ! K2SO4 <==> K+ A13 = XK19 *(WATER/GAMA(19))**2.0 ! KNO3 <==> K+ A14 = XK20 *(WATER/GAMA(20))**2.0 ! KCL <==> K+ A5 = XK14*(WATER/GAMA(6))**2.0 ! NH4Cl <==> NH4+ A7 = XK8 *(WATER/GAMA(1))**2.0 ! NaCl <==> Na+ A8 = XK9 *(WATER/GAMA(3))**2. ! NaNO3 <==> Na+ AKW = XKW*RH*WATER*WATER ! H2O <==> H+ C C POTASSIUM SULFATE C IF (KI*KI*SO4I .GT. A9) THEN BB =-((WAER(2)-WAER(6)) + WAER(7) - ROOT13 - ROOT14) CC = (WAER(7)-ROOT13-ROOT14)*(WAER(2)-WAER(6)) + & 0.25D0*(WAER(7)-ROOT13-ROOT14)**2.0 DD =-0.25*((WAER(7)-ROOT13-ROOT14)**2.0*(WAER(2)-WAER(6)) - A9) CALL POLY3(BB, CC, DD, ROOT9, ISLV) IF (ISLV.NE.0) ROOT9 = TINY ROOT9 = MIN (ROOT9, WAER(7)/2.0-ROOT13-ROOT14, & (WAER(2)-WAER(6)), CHI9) ROOT9 = MAX (ROOT9, ZERO) PSI9 = CHI9 - ROOT9 ENDIF PSCONV9 = ABS(PSI9-PSI9O) .LE. EPS*PSI9O PSI9O = PSI9 C C POTASSIUM NITRATE C IF (KI*NO3I .GT. A13) THEN BB =-(WAER(4) - ROOT8 + WAER(7) - 2.D0*ROOT9 - ROOT14) CC = (WAER(4)-ROOT8)*(WAER(7) - 2.D0*ROOT9 - ROOT14) - A13 DD = SQRT(MAX(BB*BB - 4.D0*CC, ZERO)) ROOT13A= 0.5D0*(-BB-DD) ROOT13B= 0.5D0*(-BB+DD) IF (ZERO.LE.ROOT13A) THEN ROOT13 = ROOT13A ELSE ROOT13 = ROOT13B ENDIF ROOT13 = MIN(MAX(ROOT13, ZERO), CHI13) PSI13 = CHI13-ROOT13 ENDIF PSCONV13 = ABS(PSI13-PSI13O) .LE. EPS*PSI13O PSI13O = PSI13 C C POTASSIUM CLORIDE C IF (KI*CLI .GT. A14) THEN BB =-(WAER(5)-ROOT5-ROOT7 + WAER(7)-2.D0*ROOT9-ROOT13) CC = (WAER(5)-ROOT5-ROOT7)*(WAER(7)-2.D0*ROOT9-ROOT13)-A14 DD = SQRT(MAX(BB*BB - 4.D0*CC, TINY)) ROOT14A= 0.5D0*(-BB-DD) ROOT14B= 0.5D0*(-BB+DD) IF (ZERO.LE.ROOT14A) THEN ROOT14 = ROOT14A ELSE ROOT14 = ROOT14B ENDIF ROOT14 = MIN(MAX(ROOT14, ZERO), CHI14) PSI14 = CHI14-ROOT14 ENDIF PSCONV14 = ABS(PSI14-PSI14O) .LE. EPS*PSI14O PSI14O = PSI14 C C AMMONIUM CLORIDE C IF (NH4I*CLI .GT. A5) THEN BB =-(WAER(5) + WAER(3) - ROOT14 - ROOT7) CC = (WAER(5) - ROOT14 - ROOT7)*WAER(3) - A5 DD = SQRT(MAX(BB*BB - 4.D0*CC, TINY)) ROOT5A = 0.5D0*(-BB-DD) ROOT5B = 0.5D0*(-BB+DD) IF (ZERO.LE.ROOT5A) THEN ROOT5 = ROOT5A ELSE ROOT5 = ROOT5B ENDIF ROOT5 = MIN(MAX(ROOT5, ZERO), CHI5) PSI5 = CHI5-ROOT5 ENDIF PSCONV5 = ABS(PSI5-PSI5O) .LE. EPS*PSI5O PSI5O = PSI5 C C SODIUM CLORIDE C IF (NAI*CLI .GT. A7) THEN BB =-(WAER(5) + WAER(1) - ROOT8 - ROOT14 - ROOT5) CC = (WAER(5) - ROOT14 - ROOT5)*(WAER(1)-ROOT8) - A7 DD = SQRT(MAX(BB*BB - 4.D0*CC, TINY)) ROOT7A = 0.5D0*(-BB-DD) ROOT7B = 0.5D0*(-BB+DD) IF (ZERO.LE.ROOT7A) THEN ROOT7 = ROOT7A ELSE ROOT7 = ROOT7B ENDIF ROOT7 = MIN(MAX(ROOT7, ZERO), CHI7) PSI7 = CHI7-ROOT7 ENDIF PSCONV7 = ABS(PSI7-PSI7O) .LE. EPS*PSI7O PSI7O = PSI7 C C SODIUM NITRATE C IF (NAI*NO3I .GT. A8) THEN BB =-(WAER(4) - ROOT13 + WAER(1) - ROOT7) CC = (WAER(4) - ROOT13)*(WAER(1)-ROOT7) - A8 DD = SQRT(MAX(BB*BB - 4.D0*CC, TINY)) ROOT8A = 0.5D0*(-BB-DD) ROOT8B = 0.5D0*(-BB+DD) IF (ZERO.LE.ROOT8A) THEN ROOT8 = ROOT8A ELSE ROOT8 = ROOT8B ENDIF ROOT8 = MIN(MAX(ROOT8, ZERO), CHI8) PSI8 = CHI8-ROOT8 ENDIF PSCONV8 = ABS(PSI8-PSI8O) .LE. EPS*PSI8O PSI8O = PSI8 C C ION CONCENTRATIONS ; CORRECTIONS C KI = MAX (WAER(7) - 2.D0*ROOT9 - ROOT13 - ROOT14, ZERO) SO4I = MAX (WAER(2)-WAER(6) - ROOT9, ZERO) NH4I = MAX (WAER(3) - ROOT5, ZERO) NO3I = MAX (WAER(4) - ROOT13 - ROOT8, ZERO) CLI = MAX (WAER(5) - ROOT14 - ROOT5 - ROOT7, ZERO) CAI = ZERO NAI = MAX (WAER(1) - ROOT7 - ROOT8, ZERO) MGI = WAER(8) C C SOLUTION ACIDIC OR BASIC? C GG = 2.D0*SO4I + NO3I + CLI - NAI - NH4I & - 2.D0*CAI - KI - 2.D0*MGI IF (GG.GT.TINY) THEN ! H+ in excess BB =-GG CC =-AKW DD = BB*BB - 4.D0*CC HI = 0.5D0*(-BB + SQRT(DD)) OHI= AKW/HI ELSE ! OH- in excess BB = GG CC =-AKW DD = BB*BB - 4.D0*CC OHI= 0.5D0*(-BB + SQRT(DD)) HI = AKW/OHI ENDIF C C UNDISSOCIATED SPECIES EQUILIBRIA C IF (HI.GT.OHI) THEN C CALL CALCAMAQ2 (-GG, NH4I, OHI, NH3AQ) C HI = AKW/OHI C HSO4I = ZERO C ELSE C GGNO3 = MAX(2.D0*SO4I + NO3I - NAI - NH4I - 2.D0*CAI C & - KI - 2.D0*MGI, ZERO) C GGCL = MAX(GG-GGNO3, ZERO) C IF (GGCL .GT.TINY) CALL CALCCLAQ2 (GGCL, CLI, HI, CLAQ) ! HCl C IF (GGNO3.GT.TINY) THEN C IF (GGCL.LE.TINY) HI = ZERO C CALL CALCNIAQ2 (GGNO3, NO3I, HI, NO3AQ) ! HNO3 C ENDIF C C CONCENTRATION ADJUSTMENTS ; HSO4 minor species. C CALL CALCHS4 (HI, SO4I, ZERO, DEL) else del= zero ENDIF SO4I = SO4I - DEL HI = HI - DEL HSO4I = DEL C IF (HI.LE.TINY) HI = SQRT(AKW) OHI = AKW/HI C IF (HI.LE.TINY) THEN HI = SQRT(AKW) OHI = AKW/HI ENDIF C C *** SAVE CONCENTRATIONS IN MOLAL ARRAY ****************************** C MOLAL(1) = HI MOLAL(2) = NAI MOLAL(3) = NH4I MOLAL(4) = CLI MOLAL(5) = SO4I MOLAL(6) = HSO4I MOLAL(7) = NO3I MOLAL(8) = CAI MOLAL(9) = KI MOLAL(10)= MGI C C *** CALCULATE WATER ************************************************** C CALL CALCMR C C *** CALCULATE ACTIVITIES OR TERMINATE INTERNAL LOOP ***************** C IF (FRST.AND.CALAOU .OR. .NOT.FRST.AND.CALAIN) THEN CALL CALCACT ELSE IF (PSCONV9 .AND. PSCONV13 .AND. PSCONV14 .AND. PSCONV5 & .AND. PSCONV7 .AND. PSCONV8) GOTO 20 ENDIF 10 CONTINUE ccc CALL PUSHERR (0002, 'CALCW4') ! WARNING ERROR: NO CONVERGENCE C C *** CALCULATE GAS / SOLID SPECIES (LIQUID IN MOLAL ALREADY) ********* C 20 A2 = (XK2/XKW)*R*TEMP*(GAMA(10)/GAMA(5))**2. ! NH3 <==> NH4+ A3 = XK4 *R*TEMP*(WATER/GAMA(10))**2. ! HNO3 <==> NO3- A4 = XK3 *R*TEMP*(WATER/GAMA(11))**2. ! HCL <==> CL- C GNH3 = NH4I/HI/A2 GHNO3 = HI*NO3I/A3 GHCL = HI*CLI /A4 C GASAQ(1)= NH3AQ GASAQ(2)= CLAQ GASAQ(3)= NO3AQ C CNH42S4 = ZERO CNH4NO3 = ZERO CNH4CL = CHI5 - PSI5 CNACL = CHI7 - PSI7 CNANO3 = CHI8 - PSI8 CMGSO4 = ZERO CK2SO4 = CHI9 - PSI9 CCASO4 = MIN (WAER(6), WAER(2)) CCANO32 = ZERO CKNO3 = CHI13 - PSI13 KCL = CHI14 - PSI14 CMGNO32 = ZERO CMGCL2 = ZERO CCACL2 = ZERO C RETURN C C *** END OF SUBROUTINE CALCW4A ****************************************** C END C C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE CALCW3 C *** CASE W3 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SULRAT > 2.0) ; Rcr+Na >= 2.0 ; Rcr > 2) C 2. SOLID AEROSOL ONLY C 3. SOLIDS POSSIBLE : CaSO4, CA(NO3)2, K2SO4, KNO3, KCL, MGSO4, C MG(NO3)2, NANO3, NACL, NH4NO3, NH4CL C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCW3 INCLUDE 'isrpia.inc' EXTERNAL CALCW1A, CALCW4A C C *** REGIME DEPENDS ON THE EXISTANCE OF WATER AND OF THE RH ************ C C IF (WAER(4).GT.TINY .AND. WAER(5).GT.TINY) THEN ! NO3,CL EXIST, WATER POSSIBLE C SCASE = 'W3 ; SUBCASE 1' C CALL CALCW3A C SCASE = 'W3 ; SUBCASE 1' C ELSE ! NO3, CL NON EXISTANT C SCASE = 'W1 ; SUBCASE 1' C CALL CALCW1A C SCASE = 'W1 ; SUBCASE 1' C ENDIF C CALL CALCW1A IF (WATER.LE.TINY) THEN IF (RH.LT.DRMP3) THEN ! ONLY SOLIDS WATER = TINY DO 10 I=1,NIONS MOLAL(I) = ZERO 10 CONTINUE CALL CALCW1A SCASE = 'W3 ; SUBCASE 2' RETURN ELSE SCASE = 'W3 ; SUBCASE 3' ! MDRH REGION (CaSO4, CA(NO3)2, K2SO4, KNO3, KCL, MGSO4, C MG(NO3)2, NANO3, NACL, NH4NO3, NH4CL) CALL CALCMDRPII (RH, DRMP3, DRCANO32, CALCW1A, CALCW4A) SCASE = 'W3 ; SUBCASE 3' ENDIF ELSE ! NO3, CL NON EXISTANT SCASE = 'W3 ; SUBCASE 1' CALL CALCW3A SCASE = 'W3 ; SUBCASE 1' ENDIF C RETURN C C *** END OF SUBROUTINE CALCW3 ****************************************** C END C C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE CALCW3A C *** CASE W3A C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SULRAT > 2.0) ; Rcr+Na >= 2.0 ; Rcr > 2) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : CaSO4, K2SO4, KNO3, MGSO4, KCL, NH4CL, NACL, C NANO3, NH4NO3, CA(NO3)2, MG(NO3)2 C 4. Completely dissolved: CACL2, MGCL2 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCW3A INCLUDE 'isrpia.inc' C LOGICAL PSCONV9, PSCONV13, PSCONV14, PSCONV5, PSCONV7, PSCONV8 DOUBLE PRECISION NH4I, NAI, NO3I, NH3AQ, NO3AQ, CLAQ, CAI, KI, MGI C COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** SETUP PARAMETERS ************************************************ C FRST =.TRUE. CALAIN =.TRUE. CALAOU =.TRUE. C PSCONV9 =.TRUE. PSCONV13=.TRUE. PSCONV14=.TRUE. PSCONV5 =.TRUE. PSCONV7 =.TRUE. PSCONV8 =.TRUE. C PSI9O =-GREAT PSI13O =-GREAT PSI14O =-GREAT PSI5O =-GREAT PSI7O =-GREAT PSI8O =-GREAT ! GREAT = 1.D10 C ROOT9 = ZERO ROOT13 = ZERO ROOT14 = ZERO ROOT5 = ZERO ROOT7 = ZERO ROOT8 = ZERO C C *** CALCULATE INITIAL SOLUTION *************************************** C CALL CALCW1A C CHI9 = CK2SO4 ! SALTS CHI13 = CKNO3 CHI10 = CMGSO4 CHI14 = CKCL CHI5 = CNH4CL CHI7 = CNACL CHI8 = CNANO3 CHI6 = CNH4NO3 CHI15 = CMGNO32 CHI12 = CCANO32 CHI11 = CCASO4 CC PSI1 = CNA2SO4 ! SALTS DISSOLVED PSI5 = CNH4CL PSI6 = CNH4NO3 PSI7 = CNACL PSI8 = CNANO3 PSI9 = CK2SO4 PSI10 = CMGSO4 PSI11 = CCASO4 PSI12 = CCANO32 PSI13 = CKNO3 PSI14 = CKCL PSI15 = CMGNO32 PSI16 = CMGCL2 PSI17 = CCACL2 C CALL CALCMR ! WATER C NAI = WAER(1) ! LIQUID CONCENTRATIONS SO4I = MAX (WAER(2) - WAER(6), ZERO) NH4I = WAER(3) NO3I = WAER(4) CLI = WAER(5) CAI = WAER(6) KI = WAER(7) MGI = WAER(8) C HSO4I = ZERO NH3AQ = ZERO NO3AQ = ZERO CLAQ = ZERO C C *** SOLVE EQUATIONS ; WITH ITERATIONS FOR ACTIVITY COEF. ************ C DO 10 I=1,NSWEEP C A9 = XK17 *(WATER/GAMA(17))**3.0 ! K2SO4 <==> K+ A13 = XK19 *(WATER/GAMA(19))**2.0 ! KNO3 <==> K+ A14 = XK20 *(WATER/GAMA(20))**2.0 ! KCL <==> K+ A5 = XK14*(WATER/GAMA(6))**2.0 ! NH4Cl <==> NH4+ A7 = XK8 *(WATER/GAMA(1))**2.0 ! NaCl <==> Na+ A8 = XK9 *(WATER/GAMA(3))**2. ! NaNO3 <==> Na+ AKW = XKW*RH*WATER*WATER ! H2O <==> H+ C C POTASSIUM SULFATE C IF (KI*KI*SO4I .GT. A9) THEN BB =-((WAER(2)-WAER(6)) + WAER(7) - ROOT13 - ROOT14) CC = (WAER(7)-ROOT13-ROOT14)*(WAER(2)-WAER(6)) + & 0.25D0*(WAER(7)-ROOT13-ROOT14)**2.0 DD =-0.25*((WAER(7)-ROOT13-ROOT14)**2.0*(WAER(2)-WAER(6)) - A9) CALL POLY3(BB, CC, DD, ROOT9, ISLV) IF (ISLV.NE.0) ROOT9 = TINY ROOT9 = MIN (ROOT9, WAER(7)/2.0-ROOT13-ROOT14, & (WAER(2)-WAER(6)), CHI9) ROOT9 = MAX (ROOT9, ZERO) PSI9 = CHI9 - ROOT9 ENDIF PSCONV9 = ABS(PSI9-PSI9O) .LE. EPS*PSI9O PSI9O = PSI9 C C POTASSIUM NITRATE C IF (KI*NO3I .GT. A13) THEN BB =-(WAER(4) - ROOT8 + WAER(7) - 2.D0*ROOT9 - ROOT14) CC = (WAER(4)-ROOT8)*(WAER(7) - 2.D0*ROOT9 - ROOT14) - A13 DD = SQRT(MAX(BB*BB - 4.D0*CC, ZERO)) ROOT13A= 0.5D0*(-BB-DD) ROOT13B= 0.5D0*(-BB+DD) IF (ZERO.LE.ROOT13A) THEN ROOT13 = ROOT13A ELSE ROOT13 = ROOT13B ENDIF ROOT13 = MIN(MAX(ROOT13, ZERO), CHI13) PSI13 = CHI13-ROOT13 ENDIF PSCONV13 = ABS(PSI13-PSI13O) .LE. EPS*PSI13O PSI13O = PSI13 C C POTASSIUM CLORIDE C IF (KI*CLI .GT. A14) THEN BB =-(WAER(5)-ROOT5-ROOT7 + WAER(7)-2.D0*ROOT9-ROOT13) CC = (WAER(5)-ROOT5-ROOT7)*(WAER(7)-2.D0*ROOT9-ROOT13)-A14 DD = SQRT(MAX(BB*BB - 4.D0*CC, TINY)) ROOT14A= 0.5D0*(-BB-DD) ROOT14B= 0.5D0*(-BB+DD) IF (ZERO.LE.ROOT14A) THEN ROOT14 = ROOT14A ELSE ROOT14 = ROOT14B ENDIF ROOT14 = MIN(MAX(ROOT14, ZERO), CHI14) PSI14 = CHI14-ROOT14 ENDIF PSCONV14 = ABS(PSI14-PSI14O) .LE. EPS*PSI14O PSI14O = PSI14 C C AMMONIUM CLORIDE C IF (NH4I*CLI .GT. A5) THEN BB =-(WAER(5) + WAER(3) - ROOT14 - ROOT7) CC = (WAER(5) - ROOT14 - ROOT7)*WAER(3) - A5 DD = SQRT(MAX(BB*BB - 4.D0*CC, TINY)) ROOT5A = 0.5D0*(-BB-DD) ROOT5B = 0.5D0*(-BB+DD) IF (ZERO.LE.ROOT5A) THEN ROOT5 = ROOT5A ELSE ROOT5 = ROOT5B ENDIF ROOT5 = MIN(MAX(ROOT5, ZERO), CHI5) PSI5 = CHI5-ROOT5 ENDIF PSCONV5 = ABS(PSI5-PSI5O) .LE. EPS*PSI5O PSI5O = PSI5 C C SODIUM CLORIDE C IF (NAI*CLI .GT. A7) THEN BB =-(WAER(5) + WAER(1) - ROOT8 - ROOT14 - ROOT5) CC = (WAER(5) - ROOT14 - ROOT5)*(WAER(1)-ROOT8) - A7 DD = SQRT(MAX(BB*BB - 4.D0*CC, TINY)) ROOT7A = 0.5D0*(-BB-DD) ROOT7B = 0.5D0*(-BB+DD) IF (ZERO.LE.ROOT7A) THEN ROOT7 = ROOT7A ELSE ROOT7 = ROOT7B ENDIF ROOT7 = MIN(MAX(ROOT7, ZERO), CHI7) PSI7 = CHI7-ROOT7 ENDIF PSCONV7 = ABS(PSI7-PSI7O) .LE. EPS*PSI7O PSI7O = PSI7 C C SODIUM NITRATE C IF (NAI*NO3I .GT. A8) THEN BB =-(WAER(4) - ROOT13 + WAER(1) - ROOT7) CC = (WAER(4) - ROOT13)*(WAER(1)-ROOT7) - A8 DD = SQRT(MAX(BB*BB - 4.D0*CC, TINY)) ROOT8A = 0.5D0*(-BB-DD) ROOT8B = 0.5D0*(-BB+DD) IF (ZERO.LE.ROOT8A) THEN ROOT8 = ROOT8A ELSE ROOT8 = ROOT8B ENDIF ROOT8 = MIN(MAX(ROOT8, ZERO), CHI8) PSI8 = CHI8-ROOT8 ENDIF PSCONV8 = ABS(PSI8-PSI8O) .LE. EPS*PSI8O PSI8O = PSI8 C C ION CONCENTRATIONS ; CORRECTIONS C KI = MAX (WAER(7) - 2.D0*ROOT9 - ROOT13 - ROOT14, ZERO) SO4I = MAX (WAER(2)-WAER(6) - ROOT9, ZERO) NH4I = MAX (WAER(3) - ROOT5, ZERO) NO3I = MAX (WAER(4) - ROOT13 - ROOT8, ZERO) CLI = MAX (WAER(5) - ROOT14 - ROOT5 - ROOT7, ZERO) CAI = ZERO NAI = MAX (WAER(1) - ROOT7 - ROOT8, ZERO) MGI = WAER(8) C C SOLUTION ACIDIC OR BASIC? C GG = 2.D0*SO4I + NO3I + CLI - NAI - NH4I & - 2.D0*CAI - KI - 2.D0*MGI IF (GG.GT.TINY) THEN ! H+ in excess BB =-GG CC =-AKW DD = BB*BB - 4.D0*CC HI = 0.5D0*(-BB + SQRT(DD)) OHI= AKW/HI ELSE ! OH- in excess BB = GG CC =-AKW DD = BB*BB - 4.D0*CC OHI= 0.5D0*(-BB + SQRT(DD)) HI = AKW/OHI ENDIF C C UNDISSOCIATED SPECIES EQUILIBRIA C IF (HI.GT.OHI) THEN C CALL CALCAMAQ2 (-GG, NH4I, OHI, NH3AQ) C HI = AKW/OHI C HSO4I = ZERO C ELSE C GGNO3 = MAX(2.D0*SO4I + NO3I - NAI - NH4I - 2.D0*CAI C & - KI - 2.D0*MGI, ZERO) C GGCL = MAX(GG-GGNO3, ZERO) C IF (GGCL .GT.TINY) CALL CALCCLAQ2 (GGCL, CLI, HI, CLAQ) ! HCl C IF (GGNO3.GT.TINY) THEN C IF (GGCL.LE.TINY) HI = ZERO C CALL CALCNIAQ2 (GGNO3, NO3I, HI, NO3AQ) ! HNO3 C ENDIF C C CONCENTRATION ADJUSTMENTS ; HSO4 minor species. C CALL CALCHS4 (HI, SO4I, ZERO, DEL) else del= zero ENDIF SO4I = SO4I - DEL HI = HI - DEL HSO4I = DEL C IF (HI.LE.TINY) HI = SQRT(AKW) OHI = AKW/HI C IF (HI.LE.TINY) THEN HI = SQRT(AKW) OHI = AKW/HI ENDIF C C *** SAVE CONCENTRATIONS IN MOLAL ARRAY ****************************** C MOLAL(1) = HI MOLAL(2) = NAI MOLAL(3) = NH4I MOLAL(4) = CLI MOLAL(5) = SO4I MOLAL(6) = HSO4I MOLAL(7) = NO3I MOLAL(8) = CAI MOLAL(9) = KI MOLAL(10)= MGI C C *** CALCULATE WATER ************************************************** C CALL CALCMR C C *** CALCULATE ACTIVITIES OR TERMINATE INTERNAL LOOP ***************** C IF (FRST.AND.CALAOU .OR. .NOT.FRST.AND.CALAIN) THEN CALL CALCACT ELSE IF (PSCONV9 .AND. PSCONV13 .AND. PSCONV14 .AND. PSCONV5 & .AND. PSCONV7 .AND. PSCONV8) GOTO 20 ENDIF 10 CONTINUE ccc CALL PUSHERR (0002, 'CALCW3') ! WARNING ERROR: NO CONVERGENCE C C *** CALCULATE GAS / SOLID SPECIES (LIQUID IN MOLAL ALREADY) ********* C 20 A2 = (XK2/XKW)*R*TEMP*(GAMA(10)/GAMA(5))**2. ! NH3 <==> NH4+ A3 = XK4 *R*TEMP*(WATER/GAMA(10))**2. ! HNO3 <==> NO3- A4 = XK3 *R*TEMP*(WATER/GAMA(11))**2. ! HCL <==> CL- C GNH3 = NH4I/HI/A2 GHNO3 = HI*NO3I/A3 GHCL = HI*CLI /A4 C GASAQ(1)= NH3AQ GASAQ(2)= CLAQ GASAQ(3)= NO3AQ C CNH42S4 = ZERO CNH4NO3 = ZERO CNH4CL = CHI5 - PSI5 CNACL = CHI7 - PSI7 CNANO3 = CHI8 - PSI8 CMGSO4 = ZERO CK2SO4 = CHI9 - PSI9 CCASO4 = MIN (WAER(6), WAER(2)) CCANO32 = ZERO CKNO3 = CHI13 - PSI13 KCL = CHI14 - PSI14 CMGNO32 = ZERO CMGCL2 = ZERO CCACL2 = ZERO C RETURN C C *** END OF SUBROUTINE CALCW3A ****************************************** C END C C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE CALCW2 C *** CASE W2 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SULRAT > 2.0) ; Rcr+Na >= 2.0 ; Rcr > 2) C 2. SOLID AEROSOL ONLY C 3. SOLIDS POSSIBLE : CaSO4, CA(NO3)2, K2SO4, KNO3, KCL, MGSO4, C MG(NO3)2, MGCL2, NANO3, NACL, NH4NO3, NH4CL C C THERE ARE THREE REGIMES IN THIS CASE: C 1. CACL2(s) POSSIBLE. LIQUID & SOLID AEROSOL (SUBROUTINE CALCL2A) C 2. CACL2(s) NOT POSSIBLE, AND RH < MDRH. SOLID AEROSOL ONLY C 3. CACL2(s) NOT POSSIBLE, AND RH >= MDRH. SOLID & LIQUID AEROSOL C C REGIMES 2. AND 3. ARE CONSIDERED TO BE THE SAME AS CASES W1A, W2B C RESPECTIVELY C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C C SUBROUTINE CALCW2 INCLUDE 'isrpia.inc' EXTERNAL CALCW1A, CALCW3A, CALCW4A, CALCW5A, CALCW6 C C *** FIND DRY COMPOSITION ********************************************** C CALL CALCW1A C C *** REGIME DEPENDS UPON THE POSSIBLE SOLIDS & RH ********************** C IF (CCACL2.GT.TINY) THEN SCASE = 'W2 ; SUBCASE 1' CALL CALCW2A SCASE = 'W2 ; SUBCASE 1' ENDIF C IF (WATER.LE.TINY) THEN IF (RH.LT.DRMP2) THEN ! ONLY SOLIDS WATER = TINY DO 10 I=1,NIONS MOLAL(I) = ZERO 10 CONTINUE CALL CALCW1A SCASE = 'W2 ; SUBCASE 2' ELSE IF (CMGCL2.GT. TINY) THEN SCASE = 'W2 ; SUBCASE 3' ! MDRH (CaSO4, CA(NO3)2, K2SO4, KNO3, KCL, MGSO4, MGCL2, C MG(NO3)2, NANO3, NACL, NH4NO3, NH4CL) CALL CALCMDRPII (RH, DRMP2, DRMGCL2, CALCW1A, CALCW3A) SCASE = 'W2 ; SUBCASE 3' ENDIF IF (WATER.LE.TINY .AND. RH.GE.DRMP3 .AND. RH.LT.DRMP4) THEN SCASE = 'W2 ; SUBCASE 4' ! MDRH (CaSO4, K2SO4, KNO3, KCL, MGSO4, CANO32, C MG(NO3)2, NANO3, NACL, NH4NO3, NH4CL) CALL CALCMDRPII (RH, DRMP3, DRCANO32, CALCW1A, CALCW4A) SCASE = 'W2 ; SUBCASE 4' ENDIF IF (WATER.LE.TINY .AND. RH.GE.DRMP4 .AND. RH.LT.DRMP5) THEN SCASE = 'W2 ; SUBCASE 5' ! MDRH (CaSO4, K2SO4, KNO3, KCL, MGSO4, C MGNO32, NANO3, NACL, NH4NO3, NH4CL) CALL CALCMDRPII (RH, DRMP4, DRMGNO32, CALCW1A, CALCW5A) SCASE = 'W2 ; SUBCASE 5' ENDIF IF (WATER.LE.TINY .AND. RH.GE.DRMP5) THEN SCASE = 'W2 ; SUBCASE 6' ! MDRH (CaSO4, K2SO4, KNO3, KCL, MGSO4, C NANO3, NACL, NH4NO3, NH4CL) CALL CALCMDRPII (RH, DRMP5, DRNH4NO3, CALCW1A, CALCW6) SCASE = 'W2 ; SUBCASE 6' ELSE WATER = TINY DO 20 I=1,NIONS MOLAL(I) = ZERO 20 CONTINUE CALL CALCW1A SCASE = 'W2 ; SUBCASE 2' ENDIF ENDIF ENDIF C RETURN C C *** END OF SUBROUTINE CALCW2 ****************************************** C END C C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE CALCW2A C *** CASE W2A C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SULRAT > 2.0) ; Rcr+Na >= 2.0 ; Rcr > 2) C 2. THERE IS BOTH A LIQUID & SOLID PHASE C 3. SOLIDS POSSIBLE : CaSO4, K2SO4, KNO3, MGSO4, KCL, NH4CL, NACL, C NANO3, NH4NO3, CA(NO3)2, MG(NO3)2, MGCL2 C 4. Completely dissolved: CACL2 C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCW2A INCLUDE 'isrpia.inc' C LOGICAL PSCONV9, PSCONV13, PSCONV14, PSCONV5, PSCONV7, PSCONV8 DOUBLE PRECISION NH4I, NAI, NO3I, NH3AQ, NO3AQ, CLAQ, CAI, KI, MGI C COMMON /SOLUT/ CHI1, CHI2, CHI3, CHI4, CHI5, CHI6, CHI7, CHI8, & CHI9, CHI10, CHI11, CHI12, CHI13, CHI14, CHI15, & CHI16, CHI17, PSI1, PSI2, PSI3, PSI4, PSI5, PSI6, & PSI7, PSI8, PSI9, PSI10, PSI11, PSI12, PSI13, & PSI14, PSI15, PSI16, PSI17, A1, A2, A3, A4, A5, A6, & A7, A8, A9, A10, A11, A12, A13, A14, A15, A16, A17 C C *** SETUP PARAMETERS ************************************************ C FRST =.TRUE. CALAIN =.TRUE. CALAOU =.TRUE. C PSCONV9 =.TRUE. PSCONV13=.TRUE. PSCONV14=.TRUE. PSCONV5 =.TRUE. PSCONV7 =.TRUE. PSCONV8 =.TRUE. C PSI9O =-GREAT PSI13O =-GREAT PSI14O =-GREAT PSI5O =-GREAT PSI7O =-GREAT PSI8O =-GREAT ! GREAT = 1.D10 C ROOT9 = ZERO ROOT13 = ZERO ROOT14 = ZERO ROOT5 = ZERO ROOT7 = ZERO ROOT8 = ZERO C C *** CALCULATE INITIAL SOLUTION *************************************** C CALL CALCW1A C CHI9 = CK2SO4 ! SALTS CHI13 = CKNO3 CHI10 = CMGSO4 CHI14 = CKCL CHI5 = CNH4CL CHI7 = CNACL CHI8 = CNANO3 CHI6 = CNH4NO3 CHI15 = CMGNO32 CHI12 = CCANO32 CHI16 = CMGCL2 CHI11 = CCASO4 C PSI1 = CNA2SO4 ! SALTS DISSOLVED PSI5 = CNH4CL PSI6 = CNH4NO3 PSI7 = CNACL PSI8 = CNANO3 PSI9 = CK2SO4 PSI10 = CMGSO4 PSI11 = CCASO4 PSI12 = CCANO32 PSI13 = CKNO3 PSI14 = CKCL PSI15 = CMGNO32 PSI16 = CMGCL2 PSI17 = CCACL2 C CALL CALCMR ! WATER C NAI = WAER(1) ! LIQUID CONCENTRATIONS SO4I = MAX (WAER(2) - WAER(6), ZERO) NH4I = WAER(3) NO3I = WAER(4) CLI = WAER(5) CAI = WAER(6) KI = WAER(7) MGI = WAER(8) C HSO4I = ZERO NH3AQ = ZERO NO3AQ = ZERO CLAQ = ZERO C C *** SOLVE EQUATIONS ; WITH ITERATIONS FOR ACTIVITY COEF. ************ C DO 10 I=1,NSWEEP C A9 = XK17 *(WATER/GAMA(17))**3.0 ! K2SO4 <==> K+ A13 = XK19 *(WATER/GAMA(19))**2.0 ! KNO3 <==> K+ A14 = XK20 *(WATER/GAMA(20))**2.0 ! KCL <==> K+ A5 = XK14*(WATER/GAMA(6))**2.0 ! NH4Cl <==> NH4+ A7 = XK8 *(WATER/GAMA(1))**2.0 ! NaCl <==> Na+ A8 = XK9 *(WATER/GAMA(3))**2. ! NaNO3 <==> Na+ AKW = XKW*RH*WATER*WATER ! H2O <==> H+ C C POTASSIUM SULFATE C IF (KI*KI*SO4I .GT. A9) THEN BB =-((WAER(2)-WAER(6)) + WAER(7) - ROOT13 - ROOT14) CC = (WAER(7)-ROOT13-ROOT14)*(WAER(2)-WAER(6)) + & 0.25D0*(WAER(7)-ROOT13-ROOT14)**2.0 DD =-0.25*((WAER(7)-ROOT13-ROOT14)**2.0*(WAER(2)-WAER(6)) - A9) CALL POLY3(BB, CC, DD, ROOT9, ISLV) IF (ISLV.NE.0) ROOT9 = TINY ROOT9 = MIN (ROOT9, WAER(7)/2.0-ROOT13-ROOT14, & (WAER(2)-WAER(6)), CHI9) ROOT9 = MAX (ROOT9, ZERO) PSI9 = CHI9 - ROOT9 ENDIF PSCONV9 = ABS(PSI9-PSI9O) .LE. EPS*PSI9O PSI9O = PSI9 C C POTASSIUM NITRATE C IF (KI*NO3I .GT. A13) THEN BB =-(WAER(4) - ROOT8 + WAER(7) - 2.D0*ROOT9 - ROOT14) CC = (WAER(4)-ROOT8)*(WAER(7) - 2.D0*ROOT9 - ROOT14) - A13 DD = SQRT(MAX(BB*BB - 4.D0*CC, TINY)) ROOT13A= 0.5D0*(-BB-DD) ROOT13B= 0.5D0*(-BB+DD) IF (ZERO.LE.ROOT13A) THEN ROOT13 = ROOT13A ELSE ROOT13 = ROOT13B ENDIF ROOT13 = MIN(MAX(ROOT13, ZERO), CHI13) PSI13 = CHI13-ROOT13 ENDIF PSCONV13 = ABS(PSI13-PSI13O) .LE. EPS*PSI13O PSI13O = PSI13 C C POTASSIUM CLORIDE C IF (KI*CLI .GT. A14) THEN BB =-(WAER(5)-ROOT5-ROOT7 + WAER(7)-2.D0*ROOT9-ROOT13) CC = (WAER(5)-ROOT5-ROOT7)*(WAER(7)-2.D0*ROOT9-ROOT13)-A14 DD = SQRT(MAX(BB*BB - 4.D0*CC, TINY)) ROOT14A= 0.5D0*(-BB-DD) ROOT14B= 0.5D0*(-BB+DD) IF (ZERO.LE.ROOT14A) THEN ROOT14 = ROOT14A ELSE ROOT14 = ROOT14B ENDIF ROOT14 = MIN(MAX(ROOT14, ZERO), CHI14) PSI14 = CHI14-ROOT14 ENDIF PSCONV14 = ABS(PSI14-PSI14O) .LE. EPS*PSI14O PSI14O = PSI14 C C AMMONIUM CLORIDE C IF (NH4I*CLI .GT. A5) THEN BB =-(WAER(5) + WAER(3) - ROOT14 - ROOT7) CC = (WAER(5) - ROOT14 - ROOT7)*WAER(3) - A5 DD = SQRT(MAX(BB*BB - 4.D0*CC, TINY)) ROOT5A = 0.5D0*(-BB-DD) ROOT5B = 0.5D0*(-BB+DD) IF (ZERO.LE.ROOT5A) THEN ROOT5 = ROOT5A ELSE ROOT5 = ROOT5B ENDIF ROOT5 = MIN(MAX(ROOT5, ZERO), CHI5) PSI5 = CHI5-ROOT5 ENDIF PSCONV5 = ABS(PSI5-PSI5O) .LE. EPS*PSI5O PSI5O = PSI5 C C SODIUM CLORIDE C IF (NAI*CLI .GT. A7) THEN BB =-(WAER(5) + WAER(1) - ROOT8 - ROOT14 - ROOT5) CC = (WAER(5) - ROOT14 - ROOT5)*(WAER(1)-ROOT8) - A7 DD = SQRT(MAX(BB*BB - 4.D0*CC, TINY)) ROOT7A = 0.5D0*(-BB-DD) ROOT7B = 0.5D0*(-BB+DD) IF (ZERO.LE.ROOT7A) THEN ROOT7 = ROOT7A ELSE ROOT7 = ROOT7B ENDIF ROOT7 = MIN(MAX(ROOT7, ZERO), CHI7) PSI7 = CHI7-ROOT7 ENDIF PSCONV7 = ABS(PSI7-PSI7O) .LE. EPS*PSI7O PSI7O = PSI7 C C SODIUM NITRATE C IF (NAI*NO3I .GT. A8) THEN BB =-(WAER(4) - ROOT13 + WAER(1) - ROOT7) CC = (WAER(4) - ROOT13)*(WAER(1)-ROOT7) - A8 DD = SQRT(MAX(BB*BB - 4.D0*CC, TINY)) ROOT8A = 0.5D0*(-BB-DD) ROOT8B = 0.5D0*(-BB+DD) IF (ZERO.LE.ROOT8A) THEN ROOT8 = ROOT8A ELSE ROOT8 = ROOT8B ENDIF ROOT8 = MIN(MAX(ROOT8, ZERO), CHI8) PSI8 = CHI8-ROOT8 ENDIF PSCONV8 = ABS(PSI8-PSI8O) .LE. EPS*PSI8O PSI8O = PSI8 C C ION CONCENTRATIONS ; CORRECTIONS C KI = MAX (WAER(7) - 2.D0*ROOT9 - ROOT13 - ROOT14, ZERO) SO4I = MAX (WAER(2)-WAER(6) - ROOT9, ZERO) NH4I = MAX (WAER(3) - ROOT5, ZERO) NO3I = MAX (WAER(4) - ROOT13 - ROOT8, ZERO) CLI = MAX (WAER(5) - ROOT14 - ROOT5 - ROOT7, ZERO) CAI = ZERO NAI = MAX (WAER(1) - ROOT7 - ROOT8, ZERO) MGI = WAER(8) C C SOLUTION ACIDIC OR BASIC? C GG = 2.D0*SO4I + NO3I + CLI - NAI - NH4I & - 2.D0*CAI - KI - 2.D0*MGI IF (GG.GT.TINY) THEN ! H+ in excess BB =-GG CC =-AKW DD = BB*BB - 4.D0*CC HI = 0.5D0*(-BB + SQRT(DD)) OHI= AKW/HI ELSE ! OH- in excess BB = GG CC =-AKW DD = BB*BB - 4.D0*CC OHI= 0.5D0*(-BB + SQRT(DD)) HI = AKW/OHI ENDIF C C UNDISSOCIATED SPECIES EQUILIBRIA C IF (HI.GT.OHI) THEN C CALL CALCAMAQ2 (-GG, NH4I, OHI, NH3AQ) C HI = AKW/OHI C HSO4I = ZERO C ELSE C GGNO3 = MAX(2.D0*SO4I + NO3I - NAI - NH4I - 2.D0*CAI C & - KI - 2.D0*MGI, ZERO) C GGCL = MAX(GG-GGNO3, ZERO) C IF (GGCL .GT.TINY) CALL CALCCLAQ2 (GGCL, CLI, HI, CLAQ) ! HCl C IF (GGNO3.GT.TINY) THEN C IF (GGCL.LE.TINY) HI = ZERO C CALL CALCNIAQ2 (GGNO3, NO3I, HI, NO3AQ) ! HNO3 C ENDIF C C CONCENTRATION ADJUSTMENTS ; HSO4 minor species. C CALL CALCHS4 (HI, SO4I, ZERO, DEL) else del= zero ENDIF SO4I = SO4I - DEL HI = HI - DEL HSO4I = DEL C IF (HI.LE.TINY) HI = SQRT(AKW) OHI = AKW/HI C IF (HI.LE.TINY) THEN HI = SQRT(AKW) OHI = AKW/HI ENDIF C C *** SAVE CONCENTRATIONS IN MOLAL ARRAY ****************************** C MOLAL(1) = HI MOLAL(2) = NAI MOLAL(3) = NH4I MOLAL(4) = CLI MOLAL(5) = SO4I MOLAL(6) = HSO4I MOLAL(7) = NO3I MOLAL(8) = CAI MOLAL(9) = KI MOLAL(10)= MGI C C *** CALCULATE WATER ************************************************** C CALL CALCMR C C *** CALCULATE ACTIVITIES OR TERMINATE INTERNAL LOOP ***************** C IF (FRST.AND.CALAOU .OR. .NOT.FRST.AND.CALAIN) THEN CALL CALCACT ELSE IF (PSCONV9 .AND. PSCONV13 .AND. PSCONV14 .AND. PSCONV5 & .AND. PSCONV7 .AND. PSCONV8) GOTO 20 ENDIF 10 CONTINUE ccc CALL PUSHERR (0002, 'CALCW2') ! WARNING ERROR: NO CONVERGENCE C C *** CALCULATE GAS / SOLID SPECIES (LIQUID IN MOLAL ALREADY) ********* C 20 A2 = (XK2/XKW)*R*TEMP*(GAMA(10)/GAMA(5))**2. ! NH3 <==> NH4+ A3 = XK4 *R*TEMP*(WATER/GAMA(10))**2. ! HNO3 <==> NO3- A4 = XK3 *R*TEMP*(WATER/GAMA(11))**2. ! HCL <==> CL- C GNH3 = NH4I/HI/A2 GHNO3 = HI*NO3I/A3 GHCL = HI*CLI /A4 C GASAQ(1)= NH3AQ GASAQ(2)= CLAQ GASAQ(3)= NO3AQ C CNH42S4 = ZERO CNH4NO3 = ZERO CNH4CL = CHI5 - PSI5 CNACL = CHI7 - PSI7 CNANO3 = CHI8 - PSI8 CMGSO4 = ZERO CK2SO4 = CHI9 - PSI9 CCASO4 = MIN (WAER(6), WAER(2)) CCANO32 = ZERO CKNO3 = CHI13 - PSI13 KCL = CHI14 - PSI14 CMGNO32 = ZERO CMGCL2 = ZERO CCACL2 = ZERO C RETURN C C *** END OF SUBROUTINE CALCW2A ****************************************** C END C C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE CALCW1 C *** CASE W1 C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SULRAT > 2.0) ; Rcr+Na >= 2.0 ; Rcr > 2) C 2. SOLID AEROSOL ONLY C 3. SOLIDS POSSIBLE : CaSO4, CA(NO3)2, CACL2, K2SO4, KNO3, KCL, MGSO4, C MG(NO3)2, MGCL2, NANO3, NACL, NH4NO3, NH4CL C C THERE ARE TWO POSSIBLE REGIMES HERE, DEPENDING ON RELATIVE HUMIDITY: C 1. WHEN RH >= MDRH ; LIQUID PHASE POSSIBLE (MDRH REGION) C 2. WHEN RH < MDRH ; ONLY SOLID PHASE POSSIBLE (SUBROUTINE CALCP1A) C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCW1 INCLUDE 'isrpia.inc' EXTERNAL CALCW1A, CALCW2A C C *** REGIME DEPENDS UPON THE AMBIENT RELATIVE HUMIDITY ***************** C IF (RH.LT.DRMP1) THEN SCASE = 'W1 ; SUBCASE 1' CALL CALCW1A ! SOLID PHASE ONLY POSSIBLE SCASE = 'W1 ; SUBCASE 1' ELSE SCASE = 'W1 ; SUBCASE 2' ! LIQUID & SOLID PHASE POSSIBLE CALL CALCMDRPII (RH, DRMP1, DRCACL2, CALCW1A, CALCW2A) SCASE = 'W1 ; SUBCASE 2' ENDIF C RETURN C C *** END OF SUBROUTINE CALCW1 ****************************************** C END C C======================================================================= C C *** ISORROPIA CODE II C *** SUBROUTINE CALCW1A C *** CASE W1A C C THE MAIN CHARACTERISTICS OF THIS REGIME ARE: C 1. SULFATE POOR (SULRAT > 2.0) ; Rcr+Na >= 2.0 ; Rcr > 2) C 2. SOLID AEROSOL ONLY C 3. SOLIDS POSSIBLE : CaSO4, CA(NO3)2, CACL2, K2SO4, KNO3, KCL, MGSO4, C MG(NO3)2, MGCL2, NANO3, NACL, NH4NO3, NH4CL C C *** COPYRIGHT 1996-2012, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY CHRISTOS FOUNTOUKIS & ATHANASIOS NENES C *** UPDATE|ADJOINT BY SHANNON CAPPS C C======================================================================= C SUBROUTINE CALCW1A INCLUDE 'isrpia.inc' C C *** CALCULATE SOLIDS ************************************************** C CCASO4 = MIN (WAER(2), WAER(6)) !SOLID CASO4 CAFR = MAX (WAER(6) - CCASO4, ZERO) SO4FR = MAX (WAER(2) - CCASO4, ZERO) CK2SO4 = MIN (SO4FR, 0.5D0*WAER(7)) !SOLID K2SO4 FRK = MAX (WAER(7) - 2.D0*CK2SO4, ZERO) SO4FR = MAX (SO4FR - CK2SO4, ZERO) CMGSO4 = SO4FR !SOLID MGSO4 FRMG = MAX (WAER(8) - CMGSO4, ZERO) CNACL = MIN (WAER(1), WAER(5)) !SOLID NACL FRNA = MAX (WAER(1) - CNACL, ZERO) CLFR = MAX (WAER(5) - CNACL, ZERO) CCACL2 = MIN (CAFR, 0.5D0*CLFR) !SOLID CACL2 CAFR = MAX (CAFR - CCACL2, ZERO) CLFR = MAX (WAER(5) - 2.D0*CCACL2, ZERO) CCANO32 = MIN (CAFR, 0.5D0*WAER(4)) !SOLID CA(NO3)2 CAFR = MAX (CAFR - CCANO32, ZERO) FRNO3 = MAX (WAER(4) - 2.D0*CCANO32, ZERO) CMGCL2 = MIN (FRMG, 0.5D0*CLFR) !SOLID MGCL2 FRMG = MAX (FRMG - CMGCL2, ZERO) CLFR = MAX (CLFR - 2.D0*CMGCL2, ZERO) CMGNO32 = MIN (FRMG, 0.5D0*FRNO3) !SOLID MG(NO3)2 FRMG = MAX (FRMG - CMGNO32, ZERO) FRNO3 = MAX (FRNO3 - 2.D0*CMGNO32, ZERO) CNANO3 = MIN (FRNA, FRNO3) !SOLID NANO3 FRNA = MAX (FRNA - CNANO3, ZERO) FRNO3 = MAX (FRNO3 - CNANO3, ZERO) CKCL = MIN (FRK, CLFR) !SOLID KCL FRK = MAX (FRK - CKCL, ZERO) CLFR = MAX (CLFR - CKCL, ZERO) CKNO3 = MIN (FRK, FRNO3) !SOLID KNO3 FRK = MAX (FRK - CKNO3, ZERO) FRNO3 = MAX (FRNO3 - CKNO3, ZERO) C C *** OTHER PHASES ****************************************************** C WATER = ZERO C GNH3 = ZERO GHNO3 = ZERO GHCL = ZERO C RETURN C C *** END OF SUBROUTINE CALCW1A ***************************************** C END ================================================ FILE: CCTM/src/aero/aero6/isrpia.inc ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/CCTM/src/aero/aero6/isrpia.inc,v 1.4 2011/10/21 16:10:15 yoj Exp $ C======================================================================= C *** ISORROPIA CODE II C *** INCLUDE FILE 'ISRPIA.INC' C *** THIS FILE CONTAINS THE DECLARATIONS OF THE GLOBAL CONSTANTS C AND VARIABLES. C C *** COPYRIGHT 1996-2008, UNIVERSITY OF MIAMI, CARNEGIE MELLON UNIVERSITY, C *** GEORGIA INSTITUTE OF TECHNOLOGY C *** WRITTEN BY ATHANASIOS NENES C *** UPDATED BY CHRISTOS FOUNTOUKIS C C======================================================================= C IMPLICIT DOUBLE PRECISION (A-H,O-Z) PARAMETER (NCOMP=8,NIONS=10,NGASAQ=3,NSLDS=19,NPAIR=23,NZSR=100, & NERRMX=25) C C *** INPUT VARIABLES ************************************************** C INTEGER METSTBL COMMON /INPT/ W(NCOMP), WAER(NCOMP), TEMP, RH, IPROB, METSTBL, & NADJ C C *** WATER ACTIVITIES OF PURE SALT SOLUTIONS ************************** C COMMON /ZSR / AWAS(NZSR), AWSS(NZSR), AWAC(NZSR), AWSC(NZSR), & AWAN(NZSR), AWSN(NZSR), AWSB(NZSR), AWAB(NZSR), & AWSA(NZSR), AWLC(NZSR), AWCS(NZSR), AWCN(NZSR), & AWCC(NZSR), AWPS(NZSR), AWPB(NZSR), AWPN(NZSR), & AWPC(NZSR), AWMS(NZSR), AWMN(NZSR), AWMC(NZSR) C C *** DELIQUESCENCE RELATIVE HUMIDITIES ******************************** C INTEGER WFTYP COMMON /DRH / DRH2SO4, DRNH42S4, DRNAHSO4, DRNACL, DRNANO3, & DRNA2SO4, DRNH4HS4, DRLC, DRNH4NO3, DRNH4CL, & DRCASO4, DRCANO32, DRCACL2, DRK2SO4, DRKHSO4, & DRKNO3, DRKCL, DRMGSO4, DRMGNO32, DRMGCL2 C COMMON /MDRH/ DRMLCAB, DRMLCAS, DRMASAN, DRMG1, DRMG2, & DRMG3, DRMH1, DRMH2, DRMI1, DRMI2, & DRMI3, DRMQ1, DRMR1, DRMR2, DRMR3, & DRMR4, DRMR5, DRMR6, DRMR7, DRMR8, & DRMR9, DRMR10, DRMR11, DRMR12, DRMR13, & WFTYP C COMMON /MDRH2/ DRMO1, DRMO2, DRMO3, DRML1, DRML2, & DRML3, DRMM1, DRMM2, DRMP1, DRMP2, & DRMP3, DRMP4, DRMP5, DRMV1 C C *** VARIABLES FOR LIQUID AEROSOL PHASE ******************************* C DOUBLE PRECISION MOLAL, MOLALR, M0 REAL IONIC LOGICAL CALAOU, CALAIN, FRST, DRYF COMMON /IONS/ MOLAL(NIONS), MOLALR(NPAIR), GAMA(NPAIR), ZZ(NPAIR), & Z(NIONS), GAMOU(NPAIR), GAMIN(NPAIR),M0(NPAIR), & GASAQ(NGASAQ), & EPSACT, COH, CHNO3, CHCL, & WATER, IONIC, IACALC, & FRST, CALAIN, CALAOU, DRYF C C *** VARIABLES FOR SOLID AEROSOL PHASE ******************************** C COMMON /SALT/ CH2SO4, CNH42S4, CNH4HS4, CNACL, CNA2SO4, & CNANO3, CNH4NO3, CNH4CL, CNAHSO4, CLC, CCASO4, & CCANO32, CCACL2, CK2SO4, CKHSO4, CKNO3, CKCL, & CMGSO4, CMGNO32, CMGCL2 C C *** VARIABLES FOR GAS PHASE ****************************************** C COMMON /GAS / GNH3, GHNO3, GHCL, GNH3D, GHNO3D, GHCLD C C *** EQUILIBRIUM CONSTANTS ******************************************** C COMMON /EQUK/ XK1, XK2, XK3, XK4, XK5, XK6, XK7, XK8, XK9, XK10, & XK11,XK12,XK13,XK14,XKW, XK21,XK22,XK31,XK32,XK41, & XK42, XK15, XK16, XK17, XK18, XK19, XK20, XK23, & XK24, XK25 C & , XK26, XK27 C C *** MOLECULAR WEIGHTS ************************************************ C DOUBLE PRECISION IMW COMMON /OTHR/ R, IMW(NIONS), WMW(NCOMP), SMW(NPAIR) C C *** SOLUTION/INFO VARIABLES ****************************************** C CHARACTER SCASE*15 COMMON /CASE/ SULRATW, SULRAT, SODRAT, SO4RAT, CRNARAT, CRRAT, & SCASE C COMMON /SOLN/ EPS, MAXIT, NSWEEP, NDIV, ICLACT C C *** ERROR SYSTEM ***************************************************** C CHARACTER ERRMSG*40 INTEGER ERRSTK, NOFER LOGICAL STKOFL COMMON /EROR/ STKOFL, NOFER, ERRSTK(NERRMX), ERRMSG(NERRMX) C C *** GENERIC VARIABLES ************************************************ C CHARACTER VERSION*15 COMMON /CGEN/ GREAT, TINY, TINY2, ZERO, ONE, VERSION C *** Wen added for ddmisrpia C C *** MOLAL BEFORE ADJUSTMENT OF MINOR SPEICIES ************************ C DOUBLE PRECISION MOLALD COMMON /MINOR/ MOLALD(NIONS) C C *** WEN ADDED FOR FILTERING OUT NONPHYSICAL POINTS IN CALCD3 C INTEGER NONPYS,SAT COMMON /FILT/ NONPYS,SAT C C *** END OF INCLUDE FILE ********************************************** C ================================================ FILE: CCTM/src/biog/beis4/beis.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/CCTM/src/biog/beis3/beis3.f,v 1.2 2011/10/21 16:10:17 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE BEIS( JDATE, JTIME, NX, NY, MSPCS, SEMIS, BIPOL ) C----------------------------------------------------------------------- C Description: C Uses PAR and sfc temperature data to calculate C biogenic ISOP and MBO emissions. Other emissions are C calculated using the temperature data only. C Preconditions: C PAR and Surface Temperature C Subroutines and Functions Called: C Revision History: C 4/01 : Prototype by JMV C 6/05 : updates for BEIS3.3 by D. Schwede (BEIS3.13) C 8/05 : additional diagnostic messages for PAR out of bounds (G. Pouliot) C 10/06 : yoj C 1/10 : yoj remove ck & report if TAIR > 315 C 7/14 : JOB added leaf temperature and two layer canopy model C 11/07 : JOB updated for ASX_DATA_MOD and corrected the Cl algorithm C to be consitent with Gunther et al. 1999 doi:10.1029/1999JD900391 C 5/7/18: D. Schwede Removed call to CZANGLE. COSZEN now calculated in ASX_DATA_MOD C----------------------------------------------------------------------- C Modified from: C Project Title: Sparse Matrix Operator Kernel Emissions (SMOKE) Modeling C System C File: @(#)$Id: beis3.f,v 1.2 2011/10/21 16:10:17 yoj Exp $ C COPYRIGHT (C) 2004, Environmental Modeling for Policy Development C All Rights Reserved C Carolina Environmental Program C University of North Carolina at Chapel Hill C 137 E. Franklin St., CB# 6116 C Chapel Hill, NC 27599-6116 C smoke@unc.edu C Pathname: $Source: /project/yoj/arc/CCTM/src/biog/beis3/beis3.f,v $ C Last updated: $Date: 2011/10/21 16:10:17 $ C----------------------------------------------------------------------- USE BIOG_EMIS, ONLY: NSEF, NLAI, LAITYPES Use ASX_DATA_MOD IMPLICIT NONE C Includes: C Arguments: INTEGER, INTENT( IN ) :: JDATE ! current simulation date (YYYYDDD) INTEGER, INTENT( IN ) :: JTIME ! current simulation time (HHMMSS) INTEGER, INTENT( IN ) :: NX ! no. columns INTEGER, INTENT( IN ) :: NY ! no. rows INTEGER, INTENT( IN ) :: MSPCS ! no. of output species REAL, INTENT( IN ) :: SEMIS ( :,:,: ) ! normalized emissions REAL, INTENT( OUT ) :: BIPOL( :,:,: ) ! output emissions C Local Variables: INTEGER R, C, L, I ! counters REAL CFOTHR ! isop corr fac -- non-forest REAL CFCLAI ! isop corr fac -- LAI REAL CFNO ! NO correction factor REAL CFOVOC ! non-isop corr fac REAL CFSESQT ! sesquiterpene corr fac REAL PAR ! photo. actinic flux (UE/M**2-S) (UE=micro-einsteins) REAL CT_SUN ! temperature correction REAL DT_SUN ! temperature correction REAL CT_SHADE ! temperature correction REAL DT_SHADE ! temperature correction REAL TAIR ! local 2 meter temperature REAL DTLEAF_SUN ! Difference between mean canopy leaf and ambient temperature [K] REAL DTLEAF_SHADE ! Difference between mean canopy leaf and ambient temperature [K] REAL TLEAF_SUN ! Mean canopy leaf temperature [K] REAL TLEAF_SHADE ! Mean canopy leaf temperature [K] REAL RBW ! Quasi-laminar boundary layer resistance for water vapor [s/m] REAL RBH ! Quasi-laminar boundary layer resistance for heat [s/m] REAL RH ! Relative humidity [ratio 0-1] REAL ES ! Saturation vapor pressure for 2 meter T [Pa] REAL SHF ! Soil heat flux [W/m**2] REAL DVAP ! vapor pressure deficit [Pa/Pa] REAL SSVP ! Slope of the saturation vapor pressure curve over P [1/K] REAL GVAP ! canopy water vapor conuctance m/s REAL GHT ! canopy heat conductance m/s REAL CPAIR ! specific heat of air REAL LHV ! Latent heat of vaporization REAL CPOT ! potential temperature conversion REAL DENS ! Dry air density kg/m**3 REAL LHSH_DIV ! W/m**2 to K units conversion REAL LHSH_COMP ! latent/sensible heat flux component of leaf energy bal REAL RK ! k from Geron and Guenther REAL CSUBL_SUN ! C sub l REAL CSUBL_SHADE ! C sub l REAL FRACSUN ! Fraction sun REAL FRACSHADE ! Fraction shade REAL TLAI ! local LAI REAL SOLRAD ! local solar radiation [W/m**2] REAL PSFC ! local sfc pressure (mb) REAL ZEN ! zenith angle REAL PARDB ! PAR direct beam REAL PARDIF ! PAR diffuse REAL COSZ ! local cosine of zenith angle REAL, PARAMETER :: CV = 8.0e-6 ! Resistance to soil heat conductance under vegetation [s/m] REAL, PARAMETER :: RRAD = 230.0 ! Atmospheric radiative resistance Monteith 1973 [s/m] REAL, PARAMETER :: SCW = KVIS / DWAT ! schmidt number for water vapor REAL, PARAMETER :: REFLDV = 0.057 ! visible light reflection coefficient from MEGAN 2.10 CHARACTER( 5 ) :: BTMP ! temporary variable name CHARACTER( 256 ) :: MESG ! message buffer CHARACTER( 16 ) :: PROCNAME = 'BEIS' ! procedure name C----------------------------------------------------------------------- C Loop through cells DO R = 1, NY DO C = 1, NX TAIR = MET_DATA%TEMP2( C,R ) ! unit in degree K COSZ = MET_DATA%COSZEN( C,R ) C Check min bounds for temperature C Note we no longer cap temperature for isoprene IF ( TAIR .LT. 200.0 ) THEN WRITE( MESG, 94010 ) 'TAIR=', TAIR, & 'out of range at (C,R)=', C, R CALL M3EXIT( PROCNAME, JDATE, JTIME, MESG, 2 ) END IF SOLRAD = MET_DATA%RGRND( C,R ) C Cosine of zenith angle to zenith angle (radians) ZEN = ACOS( COSZ ) PSFC = MET_DATA%PRSFC( C,R ) C atmospheric water vapor variables used for leaf latent heat flux IF ( TAIR .LE. STDTEMP ) THEN ES = VP0 * EXP( 22.514 - (6.15e3 / TAIR) ) ELSE ES = VP0 * EXP( SVP2 * (TAIR - STDTEMP) / & (TAIR - SVP3) ) END IF RH = MET_DATA%RH2( C,R ) / 100.0 DVAP = ES*(1.0-RH)/PSFC SSVP = (SVP2*(STDTEMP-SVP3)*ES/(TAIR-SVP3)**2)/ & PSFC C calculate the soil heaf flux under a canopy folowing WRF3.4.1 PX SHF = -2.0*PI/SIDAY*(MET_DATA%TEMPG( C,R ) - TAIR)/CV C calculate the heat and water vapor quasilaminar boundary layer resistance RBH = 5.0/MET_DATA%USTAR( C,R ) RBW = RBH*(SCW/PR)**TWOTHIRDS C calculate the specific heat of air and latent heat of vaporization CPAIR = CPD * (1.0 + 0.84 * MET_DATA%Q2( C,R )) LHV = LV0 - 2370.0 * (TAIR - STDTEMP) C calculate the leaf water vapor and heat conductance GHT = 1 / (MET_DATA%RA( C,R ) + RBH ) + 1/RRAD GVAP = 1 / (MET_DATA%RA( C,R ) + RBW + MET_DATA%RS( C,R ) * MET_DATA%LAI( C,R )) C Calculate the potential temperature conversion from the sensible heat flux in WRF 3.4.1 CPOT = (STDATMPA/PSFC)**(RDGAS/CPAIR) C Calculate the solar radiation and soil heat flux of the leaf energy budget DENS = PSFC /( RDGAS * TAIR ) LHSH_DIV = DENS * CPOT * CPAIR * (GHT + 1 / (MET_DATA%RA( C,R ) + RBH )) + & DENS * LHV * SSVP * GVAP C calculate the latent heat flux portion of the leaf energy budget LHSH_COMP = SHF - LHV * DENS * GVAP * ( ES - RH * ES) / PSFC C Direct and diffuse photosynthetically active radiation CALL GETPARB( SOLRAD, PSFC, COSZ, PARDB, PARDIF ) PAR = PARDB + PARDIF C Check max/min bounds of PAR and calculate biogenic ISOP IF ( PAR .LT. 0.0 .OR. PAR .GT. 2600.0 ) THEN WRITE( MESG, 94030 ) 'PAR=', PAR, & 'out of range at (C,R)=', C, R, & 'PARDB = ', PARDB, & 'PARDIF = ', PARDIF, & 'SOLRAD = ', SOLRAD, & 'PSFC = ', PSFC, & 'ZEN = ', ZEN CALL M3MSG2( MESG ) END IF TLAI = MET_DATA%LAI( C,R ) C Compute ISOP and MBO and METH emissions first C Note assumption that these are the first 3 species in LAITYPE and BIOTYPE C arrays DO I = 1, NLAI BTMP = LAITYPES( I ) C Adjust methanol based on T. Pierce recommendation (1-16-03) IF ( BTMP == 'METH' ) THEN TLAI = MAX( 3.0, TLAI ) END IF IF ( TLAI .GT. 10.0 ) THEN WRITE( MESG, 94010 ) 'LAI=', TLAI, & 'out of range at (C,R)=', C, R CALL M3EXIT( PROCNAME, JDATE, JTIME, MESG, 2 ) END IF C Initialize csubl CSUBL_SUN = 0.0 CSUBL_SHADE = 0.0 IF ( PARDB + PARDIF .EQ. 0.0 ) THEN BIPOL( C,R,I ) = 0.0 ELSE CALL CLNEW_SUB( ZEN, PARDB, PARDIF, TLAI, LHSH_DIV, & LHSH_COMP, DTLEAF_SUN, DTLEAF_SHADE, & CSUBL_SUN, CSUBL_SHADE, FRACSUN, FRACSHADE, & SOLRAD, REFLDV ) TLEAF_SUN = DTLEAF_SUN + TAIR TLEAF_SHADE = DTLEAF_SHADE + TAIR C Calculate temperature correction term DT_SUN = 28668.514 / TLEAF_SUN DT_SHADE = 28668.514 / TLEAF_SHADE CT_SUN = EXP( 37.711 - 0.398570815 * DT_SUN ) / & ( 1.0 + EXP( 91.301 - DT_SUN ) ) CT_SHADE = EXP( 37.711 - 0.398570815 * DT_SHADE ) / & ( 1.0 + EXP( 91.301 - DT_SHADE ) ) BIPOL( C,R,I ) = SEMIS( C,R,I )*( FRACSUN * CT_SUN * CSUBL_SUN + & FRACSHADE * CT_SHADE * CSUBL_SHADE ) END IF END DO ! end ISOP and MBO calculations loop C Only estimate BCOV emissions for vegitation IF( TLAI .GT. 0.0 ) THEN CALL CLNEW_SUB( ZEN, PARDB, PARDIF, TLAI, LHSH_DIV, & LHSH_COMP, DTLEAF_SUN, DTLEAF_SHADE, & CSUBL_SUN, CSUBL_SHADE, FRACSUN, FRACSHADE, & SOLRAD, REFLDV ) TLEAF_SUN = TAIR + DTLEAF_SUN TLEAF_SHADE = TAIR + DTLEAF_SHADE C Calculate other biogenic emissions except NO C Note not speciated here C Limit temerature to 315 K for monoterpenes and other VOCs TLEAF_SUN = MIN( TLEAF_SUN, 315.0 ) TLEAF_SHADE = MIN( TLEAF_SHADE, 315.0 ) CFOVOC = FRACSUN * EXP( 0.09 * ( TLEAF_SUN - 303.0 ) ) + & FRACSHADE * EXP( 0.09 * ( TLEAF_SHADE - 303.0 ) ) CFSESQT = FRACSUN * EXP( 0.17 * ( TLEAF_SUN - 303.0 ) ) + & FRACSHADE * EXP( 0.17 * ( TLEAF_SHADE - 303.0 ) ) ELSE C If LAI = 0 zero out emission factors CFOVOC = 0.0 CFSESQT = 0.0 END IF DO I = NLAI + 1, NSEF - 2 BIPOL( C,R,I ) = SEMIS( C,R,I ) * CFOVOC END DO I = NSEF - 1 BIPOL( C,R,I ) = SEMIS( C,R,I ) * CFSESQT END DO ! end loop over columns END DO ! end loop over rows RETURN C----------------------------------------------------------------------- 94010 FORMAT( 1X, A, F10.2, 1X, A, I3, ',', I3 ) 94020 FORMAT( 1X, A, F10.2, 1X, A, I3, ',', I3, A ) 94030 FORMAT( 1X, A, F10.2, 1X, A, I3, ',', I3, 1X, 5(A, F10.2) ) C----------------------------------------------------------------------- CONTAINS C Function to calculate csubl based on zenith angle, par, and lai SUBROUTINE CLNEW_SUB( ZEN, PARDB, PARDIF, TLAI, LHSH_DIV, & LHSH_COMP, DTLSUN, DTLSHADE, & CSUBL_SUN, CSUBL_SHADE, FRACSUN, FRACSHADE, & SOLRAD, REFLDV ) IMPLICIT NONE C Function arguments: REAL, INTENT( IN ) :: PARDB ! direct beam PAR( umol/m2-s) REAL, INTENT( IN ) :: PARDIF ! diffuse PAR ( umol/m2-s) REAL, INTENT( IN ) :: ZEN ! solar zenith angle (radians) REAL, INTENT( IN ) :: TLAI ! leaf area index for grid cell REAL, INTENT( IN ) :: LHSH_DIV REAL, INTENT( IN ) :: LHSH_COMP REAL, INTENT( IN ) :: SOLRAD REAL, INTENT( IN ) :: REFLDV REAL, INTENT( OUT ) :: CSUBL_SUN REAL, INTENT( OUT ) :: CSUBL_SHADE REAL, INTENT( OUT ) :: DTLSUN ! Sun leaf temperature [K] REAL, INTENT( OUT ) :: DTLSHADE ! Sun leaf temperature [K] REAL, INTENT( OUT ) :: FRACSUN ! fraction of leaves that are sunlit REAL, INTENT( OUT ) :: FRACSHADE ! fraction of leaves that are shaded C Parameters: REAL, PARAMETER :: ALPHA = 0.8 ! leaf absorptivity REAL, PARAMETER :: KD = 0.68 ! extinction coefficient for diffuse radiation C Local variables: REAL, SAVE :: SQALPHA ! square root of alpha REAL KBE ! extinction coefficient for direct beam REAL CANPARSCAT ! exponentially wtd scattered PAR (umol/m2-s) REAL CANPARDIF_SUN ! exponentially wtd diffuse PAR at the top of the canopy (umol/m2-s) REAL CANPARDIF_SHADE ! exponentially wtd diffuse PAR in the shaded part of the canopy (umol/m2-s) REAL PARSHADE ! PAR on shaded leaves (umol/m2-s) REAL PARSUN ! PAR on sunlit leaves (umol/m2-s) REAL SOLSUN ! RS transmitted to sunlit leaves W/m**2 REAL SOLSHADE ! RS transmitted to shaded leaves W/m**2 REAL LAISUN ! LAI that is sunlit REAL LAISHADE ! LAI that is shaded LOGICAL, SAVE :: FIRSTIME = .TRUE. C----------------------------------------------------------------------- IF ( FIRSTIME ) THEN FIRSTIME = .FALSE. SQALPHA = SQRT( ALPHA ) END IF C CN98 - eqn 15.4, assume x=1 (can use a table or atributes to change this) C Set a ceiling for KBE to prevent a blow up at high zenith angles. This has C little impact on the results because direct PAR is low under these conditions IF( ZEN .GE. 1.57 ) THEN KBE = 627.9 ELSE KBE = 0.5 * SQRT( 1.0 + TAN( ZEN )**2 ) END IF IF ( TLAI .GT. 0.1 ) THEN IF ( PARDB + PARDIF .GT. 0.0 ) THEN C CN98 p-259 Sun and shaded areas of the canopy LAISUN = ( 1.0 - EXP( -1.0 * KBE * TLAI ) ) / KBE LAISHADE = MAX( TLAI - LAISUN, 0.0 ) FRACSUN = LAISUN / TLAI FRACSHADE = 1.0 - FRACSUN C CN98 - p. 261 (this is usually small) CANPARSCAT = 0.5 * PARDB * ( EXP( -1.0 * SQALPHA * KBE * TLAI ) & - EXP( -1.0 * KBE * TLAI ) ) C CN98 - p. 261 (assume exponentially wtd avg) CANPARDIF_SUN = PARDIF * ( 1.0 - EXP( -1.0 * SQALPHA * KD * LAISUN ) ) & / ( SQALPHA * KD * LAISUN ) CANPARDIF_SHADE = CANPARDIF_SUN * ( EXP( -1.0 * SQALPHA * KD * LAISUN ) & - EXP( -1.0 * SQALPHA * KD * TLAI ) ) & / ( SQALPHA * KD * (TLAI - LAISUN) ) C CN98 - p. 261 (for next 3 eqns) C note that we use the incoming (not absorbed) PAR PARSHADE = CANPARDIF_SHADE + CANPARSCAT PARSUN = KBE * PARDB + CANPARDIF_SUN + CANPARSCAT C calculate the leaf temperature following Campbel and Norman 1998 eq 14.6 C with the addition of incomming atmospheric long wave irradiation resulting C in the cacelation of the long wave radiation budget SOLSUN = SOLRAD * PARSUN / ( PARSUN + PARSHADE ) SOLSHADE = SOLRAD * PARSHADE / ( PARSUN + PARSHADE ) DTLSUN = ((1.0 - REFLDV) * SOLSUN + LHSH_COMP ) / LHSH_DIV DTLSHADE = ((1.0 - REFLDV) * SOLSHADE + LHSH_COMP ) / LHSH_DIV DTLSUN = MIN(DTLSUN, 10.0) DTLSUN = MAX(DTLSUN, -10.0) DTLSHADE = MIN(DTLSHADE, 10.0) DTLSHADE = MAX(DTLSHADE, -10.0) C cguen is Guenther's eqn for computing light correction as a function of C PAR...fracSun should probably be higher since sunlit leaves tend to be C thicker than shaded leaves. But since we need to make crude assumptions C regarding leaf orientation (x=1), we will not attempt to fix at the moment. CSUBL_SUN = CGUEN( PARDB + PARDIF, 0.0, LAISUN, KBE ) C By definition diffusive radiation, use the diffusive attenuation coefficient and C Diffusive par at the bottom of the sunlit layer CSUBL_SHADE = CGUEN( CANPARDIF_SUN, LAISUN, TLAI, KD ) ELSE ! to prevent divide by 0 when there is no solar rad CSUBL_SUN = 0.0 CSUBL_SHADE = 0.0 FRACSUN = 0.2 FRACSHADE = 0.8 DTLSUN = LHSH_COMP / LHSH_DIV DTLSHADE = LHSH_COMP / LHSH_DIV DTLSUN = MIN(DTLSUN, 10.0) DTLSUN = MAX(DTLSUN, -10.0) DTLSHADE = MIN(DTLSHADE, 10.0) DTLSHADE = MAX(DTLSHADE, -10.0) END IF ELSE CSUBL_SUN = CGUEN( PARDB + PARDIF, 0.0, TLAI, KBE ) CSUBL_SHADE = 0.0 FRACSUN = 1.0 FRACSHADE = 0.0 DTLSUN = ((1.0 - REFLDV) * SOLRAD + LHSH_COMP ) / LHSH_DIV DTLSHADE = 0.0 DTLSUN = MIN(DTLSUN, 10.0) DTLSUN = MAX(DTLSUN, -10.0) END IF END SUBROUTINE CLNEW_SUB C----------------------------------------------------------------------- C Function to calculate Guenther's equation for computing light correction REAL FUNCTION CGUEN( PAR, LAI1, LAI2, KBE ) C 11/14 J. Bash - Updated to Niinemets et al. 2010a doi:10.1029/2010JG001436 C Big leaf model which updates Guenther et al. 1993 doi:10.1029/93JD00527 for C in-canopy gradients IMPLICIT NONE C Function arguments: REAL, INTENT( IN ) :: PAR REAL, INTENT( IN ) :: LAI1 ! top of the layer LAI REAL, INTENT( IN ) :: LAI2 ! bottom of the layer LAI REAL, INTENT( IN ) :: KBE ! light extenction coefficient C Parameters: updated to Niinemets et al. 2010b https://doi.org/10.5194/bg-7-1809-2010 to be C consistent with Niinemets et al. 2010a REAL, PARAMETER :: ALPHA = 0.0015 ! Mean of reported Quercus rubra and Liquidambar styraciflua REAL, PARAMETER :: CL = 1.2716 ! Calculated according Niinemets et al. 2010b to return 1 at ! standard conditions ( PAR=1000, KBE = 0.68 ) C----------------------------------------------------------------------- IF ( PAR .LE. 0.01 ) THEN CGUEN = 0.0 ELSE C Niinemets et al. 2010 equation A9 integrated from LAI1 to LAI2 CGUEN = CL * ( SQRT(1+ALPHA**2 * PAR**2 * EXP(-2*LAI1*KBE)) - & SQRT(1+ALPHA**2 * PAR**2 * EXP(-2*LAI2*KBE)) ) / & ( ALPHA * KBE * PAR ) END IF RETURN END FUNCTION CGUEN C----------------------------------------------------------------------- END SUBROUTINE BEIS ================================================ FILE: CCTM/src/biog/beis4/checkmem.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/CCTM/src/biog/beis3/checkmem.f,v 1.3 2011/10/21 16:10:17 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE CHECKMEM( MSTATUS, AVAR, CALLER ) C----------------------------------------------------------------------- C Description: C Reports an error and exits if memory status flag is non-zero. C Preconditions: C Subroutines and Functions Called: C Revision History: C Adapted 10/98 by M Houyoux C 02/11: S.Roselle-Removed deprecated TRIMLEN C----------------------------------------------------------------------- C Modified from: C Project Title: Sparse Matrix Operator Kernel Emissions (SMOKE) Modeling C System C File: @(#)$Id: checkmem.f,v 1.3 2011/10/21 16:10:17 yoj Exp $ C COPYRIGHT (C) 1999, MCNC--North Carolina Supercomputing Center C All Rights Reserved C See file COPYRIGHT for conditions of use. C Environmental Programs Group C MCNC--North Carolina Supercomputing Center C P.O. Box 12889 C Research Triangle Park, NC 27709-2889 C env_progs@mcnc.org C Pathname: $Source: /project/yoj/arc/CCTM/src/biog/beis3/checkmem.f,v $ C Last updated: $Date: 2011/10/21 16:10:17 $ C----------------------------------------------------------------------- #ifdef mpas use utilio_defn #endif IMPLICIT NONE C Arguments: INTEGER MSTATUS ! ALLOCATE function exit status CHARACTER( * ) :: AVAR ! Variable name of ALLOCATE statement CHARACTER( * ) :: CALLER ! Name of calling procedure C External Functions: C Local Variables; INTEGER L1 INTEGER L2 CHARACTER( 256 ) :: MESG = ' ' C----------------------------------------------------------------------- C Abort if memory status is non-zero IF ( MSTATUS .GT. 0 ) THEN L1 = LEN_TRIM( AVAR ) L2 = LEN_TRIM( CALLER ) MESG = 'Failure allocating memory for "' // AVAR( 1:L1 ) & // '" variable' CALL M3EXIT( CALLER( 1:L2 ), 0, 0, MESG, 2 ) END IF RETURN END ================================================ FILE: CCTM/src/biog/beis4/chkgrid.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/CCTM/src/biog/beis3/chkgrid.F,v 1.5 2011/10/21 16:10:17 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: FUNCTION CHKGRID( FNAME ) RESULT( SUCCESS ) C----------------------------------------------------------------------- C Description: C Check the grid information and against the first file referenced, and C update for next check C Preconditions: C FDESC3 common already loaded from call to DESC3 before calling this routine C Subroutines and Functions Called: C Revision History: C Oct 2007 Jeff: Make a function and simplify for inline BEIS in CMAQ C Feb 2011 S.Roselle: Replaced I/O API include files with UTILIO_DEFN C 10 May 2011 D.Wong: incorporated twoway model implementation C----------------------------------------------------------------------- C Modified from: C Project Title: EDSS Tools Library C File: @(#)$Id: chkgrid.F,v 1.5 2011/10/21 16:10:17 yoj Exp $ C COPYRIGHT (C) 2004, Environmental Modeling for Policy Development C All Rights Reserved C Carolina Environmental Program C University of North Carolina at Chapel Hill C 137 E. Franklin St., CB# 6116 C Chapel Hill, NC 27599-6116 C smoke@unc.edu C Pathname: $Source: /project/yoj/arc/CCTM/src/biog/beis3/chkgrid.F,v $ C Last updated: $Date: 2011/10/21 16:10:17 $ C----------------------------------------------------------------------- USE UTILIO_DEFN IMPLICIT NONE C Includes: C Arguments: CHARACTER( * ), INTENT( IN ) :: FNAME ! File name LOGICAL :: SUCCESS ! true: comparison succeeded C External Functions: C Parameters: CHARACTER( 10 ), PARAMETER :: BLANK10 = ' ' C Local variables: CHARACTER( 16 ), SAVE :: GRDNM = ' ' ! grid nam INTEGER, SAVE :: GDTYP = -1 ! i/o api grid type code INTEGER, SAVE :: NCOLS = 0 ! number of columns in grid INTEGER, SAVE :: NROWS = 0 ! number of rows in grid REAL( 8 ), SAVE :: XORIG = 0.D0 ! x-origin of grid REAL( 8 ), SAVE :: YORIG = 0.D0 ! y-origin of grid REAL( 8 ), SAVE :: XCENT = 0.D0 ! x-center of projection REAL( 8 ), SAVE :: YCENT = 0.D0 ! y-center of projection REAL( 8 ), SAVE :: XCELL = 0.D0 ! x-dim of cells REAL( 8 ), SAVE :: YCELL = 0.D0 ! y-dim of cells REAL( 8 ), SAVE :: P_ALP = 0.D0 ! projection alpha REAL( 8 ), SAVE :: P_BET = 0.D0 ! projection beta REAL( 8 ), SAVE :: P_GAM = 0.D0 ! projection gamma LOGICAL, SAVE :: OFFLAG = .FALSE. ! true: subgrid offset has been set INTEGER, SAVE :: XOFF = 0 ! subgrid offset (x-sub = x - xoff) INTEGER, SAVE :: YOFF = 0 ! subgrid offset INTEGER, SAVE :: XOFF_A = 0 ! tmp subgrid offset (x-sub = x - xoff) INTEGER, SAVE :: YOFF_A = 0 ! tmp subgrid offset ! INTEGER L ! length of file description INTEGER NC ! test number of columns INTEGER NR ! test number of rows INTEGER XO ! test x-offset INTEGER YO ! test y-offset REAL( 8 ) :: CHK_X ! test val for checking subgrid even with grid REAL( 8 ) :: CHK_Y ! test val for checking subgrid even with grid LOGICAL, SAVE :: GINIT = .FALSE. ! true: grid settings have been initialized CHARACTER( 12 ) :: FILETYPE = 'gridded file' CHARACTER( 300 ) :: MESG ! message buffer CHARACTER( 16 ) :: PNAME = 'CHKGRID' ! procedure name C----------------------------------------------------------------------- SUCCESS = .TRUE. #ifndef mpas NC = NCOLS3D NR = NROWS3D C If grid information has already been initialized, then compare existing to this file IF ( GINIT ) THEN #ifndef twoway C Check settings that must be consistent for exact grid match IF ( NC .NE. NCOLS .OR. & NR .NE. NROWS .OR. & DBLERR( XORIG3D, XORIG ) .OR. & DBLERR( YORIG3D, YORIG ) ) THEN SUCCESS = .TRUE. MESG = 'WARNING: Columns, rows, x-origin, or ' // & 'y-origin for ' // FNAME // ' in ' // & CRLF() // BLANK10 // FILETYPE // & ' are inconsistent with GRID NAME: ' // & TRIM( GRDNM ) CALL M3MSG2( MESG ) END IF #endif XOFF = 0 YOFF = 0 C Check settings that must be consistent for grids and subgrids IF ( GDTYP3D .NE. GDTYP .OR. & DBLERR( XCELL3D, XCELL ) .OR. & DBLERR( YCELL3D, YCELL ) .OR. & DBLERR( XCENT3D, XCENT ) .OR. & DBLERR( YCENT3D, YCENT ) .OR. & DBLERR( P_ALP3D, P_ALP ) .OR. & DBLERR( P_BET3D, P_BET ) .OR. & DBLERR( P_GAM3D, P_GAM ) ) THEN SUCCESS = .FALSE. MESG = 'ERROR: Grid type, cell sizes, or ' // & 'grid projection for ' // FNAME // ' in '// & CRLF() // BLANK10 // FILETYPE // & ' are inconsistent with with GRID NAME: ' & // TRIM( GRDNM ) CALL M3MSG2( MESG ) END IF C Ensure that origins are compatible with each other by making sure they line up C based on the cell sizes CHK_X = ( XORIG3D - XORIG ) / XCELL CHK_X = CHK_X - INT( CHK_X ) CHK_Y = ( YORIG3D - YORIG ) / YCELL CHK_Y = CHK_Y - INT( CHK_Y ) IF ( DBLERR( CHK_X, 0.D0 ) .OR. & DBLERR( CHK_Y, 0.D0 ) ) THEN SUCCESS = .FALSE. MESG = 'ERROR: Grid origins not compatible ' // & 'between ' // FNAME // ' in ' // & CRLF() // BLANK10 // FILETYPE // & ' and set by GRID NAME: ' // TRIM( GRDNM ) CALL M3MSG2( MESG ) END IF C If offset has been set, then check to ensure its the same IF ( OFFLAG ) THEN C If file has different origin from the subgrid... IF ( XORIG3D .NE. XORIG .OR. & YORIG3D .NE. YORIG ) THEN XO = INT( ( XORIG3D - XORIG ) / XCELL ) YO = INT( ( YORIG3D - YORIG ) / YCELL ) IF ( XOFF .NE. XO .OR. & YOFF .NE. YO ) THEN SUCCESS = .FALSE. MESG = 'WARNING: Subgrid offset for ' // & FNAME // ' in ' // CRLF() // BLANK10// & FILETYPE // 'is ' // & 'inconsistent with with GRID NAME: ' & // TRIM( GRDNM ) CALL M3MSG2( MESG ) END IF C If file has same origin as subgrid ELSE C Check that current subgrid is the same as the previous subgrid IF ( NC .NE. NCOLS .OR. & NR .NE. NROWS .OR. & DBLERR( XORIG3D, XORIG ) .OR. & DBLERR( YORIG3D, YORIG ) ) THEN SUCCESS = .FALSE. MESG = 'WARNING: Columns, rows, x-origin, ' // & 'or y-origin for ' // FNAME // ' in ' & // CRLF() // BLANK10 // FILETYPE // & 'are inconsistent with values from ' // & TRIM( GRDNM) CALL M3MSG2( MESG ) END IF END IF C If offset for final subgrid hasn't been set yet... ELSE C Compute possible offset from upper right hand corner, and if there is one, set flag !? XOFF_A = INT( ( XORIG + NCOLS * XCELL ) !? & - ( XORIG3D + NC * XCELL3D ) ) / XCELL !? YOFF_A = INT( ( YORIG + NROWS * YCELL ) !? & - ( YORIG3D + NR * YCELL3D ) ) / YCELL C Compute possible offset from origin, and if so, set flag XOFF_A = INT( ( XORIG3D - XORIG ) / XCELL ) YOFF_A = INT( ( YORIG3D - YORIG ) / YCELL ) C Reset origin and number of cells to latest grid GRDNM = GDNAM3D C Store grid and offset parameters XOFF = XOFF_A YOFF = YOFF_A IF ( XOFF .NE. 0 .OR. YOFF .NE. 0 ) OFFLAG = .TRUE. XORIG = XORIG3D YORIG = YORIG3D NCOLS = NC NROWS = NR END IF C Store initial grid information ELSE GINIT = .TRUE. GRDNM = GDNAM3D GDTYP = GDTYP3D P_ALP = P_ALP3D P_BET = P_BET3D P_GAM = P_GAM3D XCENT = XCENT3D YCENT = YCENT3D XORIG = XORIG3D YORIG = YORIG3D XCELL = XCELL3D YCELL = YCELL3D NCOLS = NC NROWS = NR MESG = 'NOTE: Grid settings initialized using ' // & TRIM( FNAME ) // ' in ' // CRLF() // BLANK10 // & FILETYPE // ' GRID NAME: ' // TRIM( GRDNM ) CALL M3MSG2( MESG ) END IF IF ( .NOT. SUCCESS ) THEN MESG = 'ERROR: Grid parameters for ' // FNAME // ' in ' // & CRLF() // BLANK10 // FILETYPE // & ' are inconsistent with GRID NAME: ' // TRIM( GRDNM ) CALL M3MSG2( MESG ) END IF #endif RETURN CONTAINS LOGICAL FUNCTION DBLERR( PD, QD ) IMPLICIT NONE REAL( 8 ), INTENT( IN ) :: PD REAL( 8 ), INTENT( IN ) :: QD DBLERR = ( ( PD - QD )*( PD - QD ) .GT. 1.0D-12 * ( PD*PD + QD*QD + 1.0D-5 ) ) RETURN END FUNCTION DBLERR END ================================================ FILE: CCTM/src/biog/beis4/czangle.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/CCTM/src/biog/beis3/czangle.F,v 1.4 2012/03/28 16:05:37 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE CZANGLE( JDATE, JTIME, NX, NY ) C---------------------------------------------------------------------- C Description: C Computes cosine of zenith angle for routine HRBIO() C The zenith angle is the angle measured from the zenith to the line of C sight to the sun C Preconditions: C JDATE:JTIME represented in GMT C Subroutines and Functions called: none C Revision History: C Revision History: C Prototype 12/95 by Carlie J Coats, Jr., adapted from UAM-BEIS C subroutines SOLAR() and ZANGLE() for SMOKE-BEIS2: produces C COS( ZENITH ) C C Revised 8/96 by SL and CJC: algorithm change to match UAM BEIS2 C algorithm C C 11/99: by Jeff Vukovich taken from v4.2 SMOKE prototype C 10/06: yoj C 02/11: Shawn Roselle: Replaced I/O API include files with UTILIO_DEFN C 03/12: J. Bash: Bound COSZEN against numerical rounding errors C 11/14: J. Bash: Lat and Lon now stored in ASX_DATA_MOD to reduce redundant C memory allocation and reads from file. C 07 Nov 14 J.Bash: Updated for the ASX_DATA_MOD shared data module. C 07 May 18 D. Schwede: Updated to have coszen defined in ASX_DATA_MOD C 24 Jul 18 C. Nolte: removed call to INIT_MET that was causing conflict. C Met should already be initialized by this point. C---------------------------------------------------------------------- C Modified from: C Project Title: Sparse Matrix Operator Kernel Emissions (SMOKE) Modeling System C File: @(#)$Id: czangle.F,v 1.4 2012/03/28 16:05:37 yoj Exp $ C COPYRIGHT (C) 2004, Environmental Modeling for Policy Development C All Rights Reserved C Carolina Environmental Program C University of North Carolina at Chapel Hill C 137 E. Franklin St., CB# 6116 C Chapel Hill, NC 27599-6116 C smoke@unc.edu C Pathname: $Source: /project/yoj/arc/CCTM/src/biog/beis3/czangle.F,v $ C Last updated: $Date: 2012/03/28 16:05:37 $ C---------------------------------------------------------------------- USE UTILIO_DEFN USE ASX_DATA_MOD, Only: Grid_Data, Met_Data IMPLICIT NONE C Includes: INCLUDE SUBST_CONST ! constants C Arguments: INTEGER, INTENT( IN ) :: JDATE ! current simulation date (YYYYDDD) INTEGER, INTENT( IN ) :: JTIME ! current simulation time (HHMMSS) INTEGER, INTENT( IN ) :: NX ! no. columns INTEGER, INTENT( IN ) :: NY ! no. rows C Parameters: REAL, PARAMETER :: & AA = 0.15, & BB = 3.885, & CC = - 1.253, & SIGA = 279.9348, & SDEC = 0.39784984, ! SIN (23^26'37.8") the declination angle & D60 = 1.0 / 60.0, & D15 = 1.0 / 15.0, & D24 = 1.0 / 24.0, & ROTDAY = 360.0 / 365.242 ! fraction of a complete rotation per day C Local variables: INTEGER IOS, R, C REAL SLA, GMT, TK, DAD, DF, & DESIN, DECOS, DESIN2, DECOS2, SIG, DECSIN, DECCOS, & EQT, TST, HRANGL REAL, ALLOCATABLE, SAVE :: SINLAT( :,: ) REAL, ALLOCATABLE, SAVE :: COSLAT( :,: ) LOGICAL, SAVE :: FIRSTIME = .TRUE. CHARACTER( 16 ) :: PNAME = 'CZANGLE' ! procedure name C---------------------------------------------------------------------- C compute sine of lat and lon first time through IF ( FIRSTIME ) THEN FIRSTIME = .FALSE. ALLOCATE( SINLAT( NX,NY ), STAT=IOS ) CALL CHECKMEM( IOS, 'SINLAT', PNAME ) ALLOCATE( COSLAT( NX,NY ), STAT=IOS ) CALL CHECKMEM( IOS, 'COSLAT', PNAME ) DO R = 1, NY DO C = 1, NX SLA = PI180 * Grid_Data%LAT( C,R ) SINLAT( C,R ) = SIN( SLA ) COSLAT( C,R ) = COS( SLA ) END DO END DO END IF ! if firstime C Convert time to hours and add time-zone offset GMT = FLOAT( JTIME / 10000 ) ! hr part & + D60 * ( FLOAT( MOD( JTIME / 100 , 100 ) ) ! min part & + D60 * FLOAT( MOD( JTIME, 100 ) ) ) ! sec part DAD = GMT * D24 + MOD( JDATE, 1000 ) DF = ROTDAY * PI180 * DAD ! The terrestrial-rotation angle DESIN = SIN( DF ) ! SINE of this angle DECOS = COS( DF ) ! COSINE of this angle DESIN2 = SIN( DF + DF ) ! SINE of twice the angle DECOS2 = COS( DF + DF ) ! COSINE of twice the angle SIG = DF & + PI180 * ( SIGA & + 1.914827 * DESIN - 0.079525 * DECOS & + 0.019938 * DESIN2 - 0.00162 * DECOS2 ) C The sine and cosine of the declination DECSIN = SDEC * SIN( SIG ) DECCOS = SQRT( 1.0 - DECSIN * DECSIN ) C The equation of time adjustment EQT = 0.123470 * DESIN - 0.004289 * DECOS & + 0.153809 * DESIN2 + 0.060783 * DECOS2 DO R = 1, NY DO C = 1, NX TK = GMT + Grid_Data%LON( C,R ) * D15 ! Distance in hours from LON=0 TST = TK - EQT ! true solar time HRANGL = PI180 * 15.0 * ABS( TST - 12.0 ) ! hour angle C Compute the cosine of zenith angle (sine of the solar elevation) MET_DATA%COSZEN( C,R ) = DECSIN * SINLAT( C,R ) & + DECCOS * COSLAT( C,R ) * COS( HRANGL ) C Bound against numerical rounding errors MET_DATA%COSZEN( C,R ) = MIN( MAX( MET_DATA%COSZEN( C,R ), -1.0 ), 1.0 ) END DO END DO RETURN END ================================================ FILE: CCTM/src/biog/beis4/getparb.f ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/CCTM/src/biog/beis3/getparb.f,v 1.2 2011/10/21 16:10:18 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% C:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE GETPARB( RSOLAR, PRES, COSZ, PARDB, PARDIF ) C----------------------------------------------------------------------- C Description: C Compute direct and diffuse photosynthetically active radiation (PAR). C Based on code from Bart Brashers (10/2000), which was based on C code from Weiss and Norman (1985). C Preconditions: C Solar radiation (W/m2) and pressure (mb) C Subroutines and Functions Called: C Revision History: C 3/01 Prototype by JMV C 10/17 J.Young: rename, optimize C----------------------------------------------------------------------- C Modified from: C Project Title: Sparse Matrix Operator Kernel Emissions (SMOKE) Modeling System C File: @(#)$Id: getparb.f,v 1.2 2011/10/21 16:10:18 yoj Exp $ C COPYRIGHT (C) 2004, Environmental Modeling for Policy Development C All Rights Reserved C Carolina Environmental Program C University of North Carolina at Chapel Hill C 137 E. Franklin St., CB# 6116 C Chapel Hill, NC 27599-6116 C smoke@unc.edu C Pathname: $Source: /project/yoj/arc/CCTM/src/biog/beis3/getparb.f,v $ C Last updated: $Date: 2011/10/21 16:10:18 $ C----------------------------------------------------------------------- IMPLICIT NONE C Arguments: REAL, INTENT ( IN ) :: RSOLAR ! modeled or observed total radiation [W/m2] REAL, INTENT ( IN ) :: PRES ! atmospheric pressure [mb] REAL, INTENT ( IN ) :: COSZ ! cosine of solar zenith angle REAL, INTENT( OUT ) :: PARDB ! direct beam PAR [umol/m2-s] REAL, INTENT( OUT ) :: PARDIF ! diffuse PAR [umol/m2-s] C Parameters: REAL, PARAMETER :: WATT2UMOL = 4.6 ! convert W/m^2 to umol/m^2-s C Local Variables: REAL RATIO ! transmission fraction for total radiation REAL OT ! optical thickness C REAL RDVIS ! possible direct visible beam [(W/m^2] C REAL RFVIS ! possible visible diffuse [(W/m^2] REAL WA ! water absorption in near-IR [(W/m^2] C REAL RDIR ! direct beam in near-IR [(W/m^2] C REAL RFIR ! diffuse near-IR [(W/m^2] C REAL RVT ! total possible visible radiation [(W/m^2] C REAL RIRT ! total possible near-IR radiation [(W/m^2] C REAL FVIS ! fraction of visible to total C REAL FVB ! fraction of visible that is direct beam C REAL FVD ! fraction of visible that is diffuse REAL FAC ! direct beam factor / combination factor REAL A, B, C, DEN, RW ! replacement composite variables CHARACTER( 16 ) :: PNAME = 'GETPAR' ! procedure name CHARACTER( 256 ) :: MESG = ' ' C----------------------------------------------------------------------- C Original implementation ............................ C (ZEN was originally an argument, but replaced by COS(ZEN) = COSZ) C Assume that PAR = 0 if zenith angle is greater than 87 degrees (1.51844 radians) C or if solar radiation is zero C IF ( ZEN .GE. 1.51844 .OR. RSOLAR .LE. 0.0 ) THEN C PARDB = 0.0 C PARDIF = 0.0 C RETURN C END IF C Compute clear sky (aka potential) radiation terms C OT = PRES / 1013.25 / COSZ ! Atmospheric Optical thickness C RDVIS = 600.0 * EXP( -0.185 * OT ) * COSZ ! Direct visible beam, eqn (1) C RFVIS = 0.42 * ( 600.0 - RDVIS ) * COSZ ! Visible Diffuse, eqn (3) C WA = 1320.0 * 0.077 * ( 2.0 * OT ) ** 0.3 ! water absorption in near-IR, eqn (6) C RDIR = ( 720.0 * EXP( -0.06 * OT ) - WA ) * COSZ ! Direct beam near-IR, eqn (4) C RFIR = 0.65 * ( 720.0 - WA - RDIR ) * COSZ ! Diffuse near-IR, eqn (5) C RVT = RDVIS + RFVIS ! Total visible radiation, eqn (9) C RIRT = RDIR + RFIR ! Total near-IR radiation, eqn (10) C FVIS = RVT / ( RIRT + RVT ) ! Fraction of visible to total radiation, eqn 7 C RATIO = RSOLAR / ( RIRT + RVT ) ! Ratio of "actual" to clear sky solar radiation C Compute fraction of visible that is direct beam C IF ( RATIO .GE. 0.89 ) THEN C FVB = RDVIS / RVT * 0.941124 C ELSE IF ( RATIO .LE. 0.21 ) THEN C FVB = RDVIS / RVT * 9.55E-3 C ELSE C FVB = RDVIS / RVT * ( 1.0 - ( ( 0.9 - RATIO ) / 0.7 ) ** 0.666667 ) C END IF C FVD = 1.0 - FVB C Compute PAR (direct beam and diffuse) in umol/m2-sec C PARDB = RSOLAR * FVIS * FVB * WATT2UMOL C PARDIF = RSOLAR * FVIS * FVD * WATT2UMOL C New implementation ................................. IF ( COSZ .LE. 0.052336 .OR. RSOLAR .LE. 0.0 ) THEN PARDB = 0.0 PARDIF = 0.0 RETURN END IF OT = PRES / 101325.0 / COSZ ! PRES in Pa A = 600.0 * EXP( -0.185 * OT ) WA = 125.1335182 * ( OT ) ** 0.3 B = 720.0 * EXP( -0.06 * OT ) - WA C = ( 1.0 - 0.42 * COSZ ) * A DEN = 720.0 + C - 0.65 * WA + ( 1.0 - 0.65 * COSZ ) * B RATIO = RSOLAR / DEN / COSZ IF ( RATIO .GE. 0.89 ) THEN FAC = 0.941124 ELSE IF ( RATIO .LE. 0.21 ) THEN FAC = 9.55E-3 ELSE FAC = 1.0 - ( 1.42857143 * ( 0.9 - RATIO ) ) ** 0.666667 END IF RW = RATIO * WATT2UMOL * COSZ PARDB = RW * FAC * A PARDIF = RW * ( 252.0 + C ) - PARDB RETURN END SUBROUTINE GETPARB ================================================ FILE: CCTM/src/biog/beis4/gspro_biogenics.txt ================================================ # Created 19 Mar 2009 by Chris Allen. # Revised April 2017 for compatibility with CMAQv5.2 # This GSPRO component contains only biogenic profiles. The profiles were originally in # the EMF dataset "gspro_static_cmaq", version 8 (16mar2009). They were moved to a # new dataset so that biogenic-only species do not appear in the model-ready files # for non-biogenic sectors that have pre-speciated VOC in the inventory (specifically, # 2005ck_05b othpt). # This version is based on BEIS 3.6.1 # # Definition of Fields: # Mechanism Code # Maps to BIOG_SPRO in the CMAQ run-script # Maps to SPNPRF inside CMAQ # Options - # B10C5: CB05-based mechanisms # B10C6: CB6r3-based mechanisms: ae6 # B10C6AE7: CB6r[3,5] - ae7 based mechanism # 1/8/2018 HOTP modified to split out APIN and not include in TERP # B10RD: RACM2-based mechanisms # Xiaoyang Chen at Northeastern University notified that CMAQ is not generating any monoterpene # emissions when in-line option is enabled with RACM2 # Replaced "B10RD" with "B3V10" for RACM2 (06/08/2021) # B10SP: SAPRC07t-based mechanisms (aero6 and aero7 compatible) # CRACMM1: CRACMM1-based biogenic mapping (added 9/2021, dev by K.S. and H.O.T.P) # valid for CRACMM1_AQ and CRACMM1AMORE_AQ # POLNAM # Name of Specific VOC emitted by # biogenic source; # SPECNM # CMAQ Biogenic Emissions species name; # SPLTFAC (mol/mol) # Conversion factor from moles of BEIS VOC # species to moles of CMAQ emissions species; # SDIV (g/mol) # Mass of carbon atoms in the BEIS molecule; # SMFAC (dimensionless) # BEIS VOC Molecular weight divided by the # mass of the carbon atoms in the molecule; # B10C5;"ACET";"PAR";3.0;36.0;1.6111 B10C5;"ACTAC";"AACD";1.0;24.0;2.5 B10C5;"ACTAL";"ALD2";1.0;24.0;1.8333 B10C5;"ACTAL";"ALD2_PRIMARY";1.0;24.0;1.8333 B10C5;"APIN";"TERP";1.0;120.0;1.1333 B10C5;"ATERP";"TERP";1.0;120.0;1.1333 B10C5;"ATHU";"TERP";1.0;120.0;1.1333 B10C5;"BPHE";"TERP";1.0;120.0;1.1333 B10C5;"BPIN";"TERP";1.0;120.0;1.1333 B10C5;"BUTE";"PAR";2.0;48.0;0.5833 B10C5;"BUTE";"OLE";1.0;48.0;0.5833 B10C5;"BUTO";"PAR";2.0;48.0;0.7292 B10C5;"BUTO";"OLE";1.0;48.0;0.7292 B10C5;"CAMPH";"TERP";1.0;120.0;1.1333 B10C5;"CO";"CO";1.0;12.0;2.3333 B10C5;"D3CAR";"TERP";1.0;120.0;1.1333 B10C5;"DLIM";"TERP";1.0;120.0;1.1333 B10C5;"ETHA";"ETHA";1.0;24.0;1.25 B10C5;"ETHE";"ETH";1.0;24.0;1.1667 B10C5;"ETHO";"ETOH";1.0;24.0;1.9167 B10C5;"FORAC";"FACD";1.0;12.0;3.8333 B10C5;"FORM";"FORM";1.0;12.0;2.5 B10C5;"FORM";"FORM_PRIMARY";1.0;12.0;2.5 B10C5;"GTERP";"TERP";1.0;120.0;1.1333 B10C5;"HEXA";"ALDX";1.0;72.0;0.4537 B10C5;"HEXA";"PAR";4.0;72.0;0.9074 B10C5;"HEXE";"IOLE";1.0;72.0;0.9259 B10C5;"HEXE";"PAR";2.0;72.0;0.463 B10C5;"HEXY";"NR";1.0;96.0;0.1849 B10C5;"HEXY";"PAR";3.0;96.0;0.5547 B10C5;"HEXY";"IOLE";1.0;96.0;0.7396 B10C5;"ISOP";"ISOP";1.0;60.0;1.1333 B10C5;"MBO";"OLE";1.0;60.0;0.5733 B10C5;"MBO";"PAR";3.0;60.0;0.86 B10C5;"METH";"MEOH";1.0;12.0;2.6667 B10C5;"MYRC";"TERP";1.0;120.0;1.1333 B10C5;"NO";"NO";1.0;14.0;2.1429 B10C5;"OCIM";"TERP";1.0;120.0;1.1333 B10C5;"ORVOC";"OLE";1.0;120.0;0.2267 B10C5;"ORVOC";"PAR";8.0;120.0;0.9067 B10C5;"PCYM";"TERP";1.0;120.0;1.1333 B10C5;"PROPE";"PAR";1.0;36.0;0.3889 B10C5;"PROPE";"OLE";1.0;36.0;0.7778 B10C5;"SABI";"TERP";1.0;120.0;1.1333 B10C5;"SESQT";"SESQ";1.0;180.0;1.1333 B10C5;"TRPO";"TERP";1.0;120.0;1.1333 B3V10;"ISOP";"ISO";1.0;60.0;1.1333 B3V10;"NO";"NO";1.0;14;2.1429 B3V10;"MBO";"OLI";1.0;60;1.4333 B3V10;"APIN";"API";1.0;120;1.1333 B3V10;"BPIN";"API";1.0;120;1.1333 B3V10;"D3CAR";"API";1.0;120;1.1333 B3V10;"DLIM";"LIM";1.0;120;1.1333 B3V10;"CAMPH";"API";1.0;120;1.1333 B3V10;"MYRC";"API";1.0;120;1.1333 B3V10;"ATERP";"LIM";1.0;120;1.1333 B3V10;"BPHE";"LIM";1.0;120;1.1333 B3V10;"SABI";"API";1.0;120;1.1333 B3V10;"PCYM";"LIM";1.0;120;1.1333 B3V10;"OCIM";"API";1.0;120;1.1333 B3V10;"ATHU";"API";1.0;120;1.1333 B3V10;"TRPO";"API";1.0;120;1.1333 B3V10;"GTERP";"LIM";1.0;120;1.1333 B3V10;"METH";"MOH";1.0;12;2.6667 B3V10;"ETHE";"ETE";1.0;24;1.1667 B3V10;"PROPE";"OLT";1.0;36;1.1667 B3V10;"ETHO";"EOH";1.0;24;1.9167 B3V10;"ACET";"ACT";1.0;36;1.6111 B3V10;"HEXA";"ALD";1.0;72;1.3611 B3V10;"HEXE";"ROH";1.0;72;1.3889 B3V10;"HEXY";"OLI";1.0;96;1.4792 B3V10;"FORM";"HCHO";1.0;12;2.5000 B3V10;"ACTAL";"ACD";1.0;24;1.8333 B3V10;"BUTE";"OLI";1.0;48;1.1667 B3V10;"ETHA";"ETH";1.0;24;1.2500 B3V10;"FORAC";"ORA1";1.0;12;3.8333 B3V10;"ACTAC";"ORA2";1.0;24;2.5000 B3V10;"BUTO";"MVK";1.0;48;1.4583 B3V10;"CO";"CO";1.0;12;2.3333 B3V10;"ORVOC";"OLI";0.1;120;0.1133 B3V10;"ORVOC";"HC3";0.85;120;0.9633 B3V10;"ORVOC";"NR";0.05;120;0.0567 B3V10;"SESQT";"SESQ";1.0;180;1.1333 B10SP;"ACET";"ACETONE";1.0;36.0;1.6111 B10SP;"ACTAC";"CCOOH";1.0;24.0;2.5 ! Corrected mapping for Acetic Acid* B10SP;"ACTAL";"CCHO";1.0;24.0;1.8333 ! Corrected mapping for ACETALDEHYDE* B10SP;"ACTAL";"CCHO_PRIMARY";1.0;24.0;1.8333 ! Corrected mapping for ACETALDEHYDE B10SP;"APIN";"APIN";1.0;120.0;1.1333 ! Corrected mapping for Alpha-Pinene B10SP;"ATERP";"TERP";1.0;120.0;1.1333 ! Changed all mappings for lumped Terpenes B10SP;"ATHU";"TERP";1.0;120.0;1.1333 ! Changed all mappings for lumped Terpenes B10SP;"BPHE";"TERP";1.0;120.0;1.1333 ! Changed all mappings for lumped Terpenes B10SP;"BPIN";"TERP";1.0;120.0;1.1333 ! Changed all mappings for lumped Terpenes B10SP;"BUTE";"OLE2";1.0;48.0;1.1667 B10SP;"BUTO";"MVK";1.0;48.0;1.4583 B10SP;"CAMPH";"TERP";1.0;120.0;1.1333 ! Changed all mappings for lumped Terpenes B10SP;"CO";"CO";1.0;12.0;2.3333 B10SP;"D3CAR";"TERP";1.0;120.0;1.1333 ! Changed all mappings for lumped Terpenes B10SP;"DLIM";"TERP";1.0;120.0;1.1333 ! Changed all mappings for lumped Terpenes B10SP;"ETHA";"ALK1";1.0;24.0;1.25 B10SP;"ETHE";"ETHENE";1.0;24.0;1.1667 ! Corrected mapping for Ethene B10SP;"ETHO";"ETOH";1.0;24.0;1.9167 ! Corrected mapping for Ethanol B10SP;"FORAC";"HCOOH";1.0;12.0;3.8333 ! Corrected mapping for Formic Acid* B10SP;"FORM";"HCHO";1.0;12.0;2.5 B10SP;"FORM";"HCHO_PRIMARY";1.0;12.0;2.5 B10SP;"GTERP";"TERP";1.0;120.0;1.1333 ! Changed all mappings for lumped Terpenes B10SP;"HEXA";"RCHO";1.0;72.0;1.3611 B10SP;"HEXE";"OLE1";1.0;72.0;1.3889 B10SP;"HEXY";"OLE1";1.0;96.0;1.4792 B10SP;"ISOP";"ISOPRENE";1.0;60.0;1.1333 ! corrected mapping for isoprene B10SP;"MBO";"OLE2";1.0;60.0;1.4333 B10SP;"METH";"MEOH";1.0;12.0;2.6667 B10SP;"MYRC";"TERP";1.0;120.0;1.1333 ! Changed all mappings for lumped Terpenes B10SP;"NO";"NO";1.0;14.0;2.1429 B10SP;"OCIM";"TERP";1.0;120.0;1.1333 ! Changed all mappings for lumped Terpenes B10SP;"ORVOC";"ALK2";0.85;120.0;0.9633 B10SP;"ORVOC";"NR";0.05;120.0;0.0567 B10SP;"ORVOC";"OLE2";0.1;120.0;0.1133 B10SP;"PCYM";"TERP";1.0;120.0;1.1333 ! Changed all mappings for lumped Terpenes B10SP;"PROPE";"PROPENE";1.0;36.0;1.1667 ! Corrected mapping for Propene B10SP;"SABI";"TERP";1.0;120.0;1.1333 ! Changed all mappings for lumped Terpenes B10SP;"SESQT";"SESQ";1.0;180.0;1.1333 B10SP;"TRPO";"TERP";1.0;120.0;1.1333 ! Changed all mappings for lumped Terpenes B10C6;"ACET";"ACET";1;36;1.6111 B10C6;"ACTAC";"AACD";1;24;2.5 B10C6;"ACTAL";"ALD2";1;24;1.8333 B10C6;"ACTAL";"ALD2_PRIMARY";1;24;1.8333 B10C6;"APIN";"TERP";1;120;1.1333 B10C6;"APIN";"APIN";1;120;1.1333 B10C6;"ATERP";"TERP";1;120;1.1333 B10C6;"ATHU";"TERP";1;120;1.1333 B10C6;"BPHE";"TERP";1;120;1.1333 B10C6;"BPIN";"TERP";1;120;1.1333 B10C6;"BUTE";"OLE";1;48;0.5833 B10C6;"BUTE";"PAR";2;48;0.5833 B10C6;"BUTO";"PAR";1;48;0.3654 B10C6;"BUTO";"OLE";1;48;0.7292 B10C6;"BUTO";"KET";1;48;0.3654 B10C6;"CAMPH";"TERP";1;120;1.1333 B10C6;"CO";"CO";1;12;2.3333 B10C6;"D3CAR";"TERP";1;120;1.1333 B10C6;"DLIM";"TERP";1;120;1.1333 B10C6;"ETHA";"ETHA";1;24;1.25 B10C6;"ETHE";"ETH";1;24;1.1667 B10C6;"ETHO";"ETOH";1;24;1.9167 B10C6;"FORAC";"FACD";1;12;3.8333 B10C6;"FORM";"FORM";1;12;2.5 B10C6;"FORM";"FORM_PRIMARY";1;12;2.5 B10C6;"GTERP";"TERP";1;120;1.1333 B10C6;"HEXA";"ALDX";1;72;0.4537 B10C6;"HEXA";"PAR";4;72;0.9074 B10C6;"HEXE";"IOLE";1;72;0.9259 B10C6;"HEXE";"PAR";2;72;0.463 B10C6;"HEXY";"IOLE";1;96;0.7396 B10C6;"HEXY";"NR";1;96;0.1849 B10C6;"HEXY";"PAR";3;96;0.5547 B10C6;"ISOP";"ISOP";1;60;1.1333 B10C6;"MBO";"PAR";3;60;0.86 B10C6;"MBO";"OLE";1;60;0.5733 B10C6;"METH";"MEOH";1;12;2.6667 B10C6;"MYRC";"TERP";1;120;1.1333 B10C6;"NO";"NO";1;14;2.1429 B10C6;"OCIM";"TERP";1;120;1.1333 B10C6;"ORVOC";"PAR";8;120;0.9067 B10C6;"ORVOC";"OLE";1;120;0.2267 B10C6;"PCYM";"TERP";1;120;1.1333 B10C6;"PROPE";"OLE";1;36;0.7778 B10C6;"PROPE";"PAR";1;36;0.3889 B10C6;"SABI";"TERP";1;120;1.1333 B10C6;"TRPO";"TERP";1;120;1.1333 B10C6;"SESQT";"SESQ";1;180;1.1333 B10C6AE7;"ACET";"ACET";1;36;1.6111 B10C6AE7;"ACTAC";"AACD";1;24;2.5 B10C6AE7;"ACTAL";"ALD2";1;24;1.8333 B10C6AE7;"ACTAL";"ALD2_PRIMARY";1;24;1.8333 B10C6AE7;"APIN";"APIN";1;120;1.1333 B10C6AE7;"ATERP";"TERP";1;120;1.1333 B10C6AE7;"ATHU";"TERP";1;120;1.1333 B10C6AE7;"BPHE";"TERP";1;120;1.1333 B10C6AE7;"BPIN";"TERP";1;120;1.1333 B10C6AE7;"BUTE";"OLE";1;48;0.5833 B10C6AE7;"BUTE";"PAR";2;48;0.5833 B10C6AE7;"BUTO";"PAR";1;48;0.3654 B10C6AE7;"BUTO";"OLE";1;48;0.7292 B10C6AE7;"BUTO";"KET";1;48;0.3654 B10C6AE7;"CAMPH";"TERP";1;120;1.1333 B10C6AE7;"CO";"CO";1;12;2.3333 B10C6AE7;"D3CAR";"TERP";1;120;1.1333 B10C6AE7;"DLIM";"TERP";1;120;1.1333 B10C6AE7;"ETHA";"ETHA";1;24;1.25 B10C6AE7;"ETHE";"ETH";1;24;1.1667 B10C6AE7;"ETHO";"ETOH";1;24;1.9167 B10C6AE7;"FORAC";"FACD";1;12;3.8333 B10C6AE7;"FORM";"FORM";1;12;2.5 B10C6AE7;"FORM";"FORM_PRIMARY";1;12;2.5 B10C6AE7;"GTERP";"TERP";1;120;1.1333 B10C6AE7;"HEXA";"ALDX";1;72;0.4537 B10C6AE7;"HEXA";"PAR";4;72;0.9074 B10C6AE7;"HEXE";"IOLE";1;72;0.9259 B10C6AE7;"HEXE";"PAR";2;72;0.463 B10C6AE7;"HEXY";"IOLE";1;96;0.7396 B10C6AE7;"HEXY";"NR";1;96;0.1849 B10C6AE7;"HEXY";"PAR";3;96;0.5547 B10C6AE7;"ISOP";"ISOP";1;60;1.1333 B10C6AE7;"MBO";"PAR";3;60;0.86 B10C6AE7;"MBO";"OLE";1;60;0.5733 B10C6AE7;"METH";"MEOH";1;12;2.6667 B10C6AE7;"MYRC";"TERP";1;120;1.1333 B10C6AE7;"NO";"NO";1;14;2.1429 B10C6AE7;"OCIM";"TERP";1;120;1.1333 B10C6AE7;"ORVOC";"PAR";8;120;0.9067 B10C6AE7;"ORVOC";"OLE";1;120;0.2267 B10C6AE7;"PCYM";"TERP";1;120;1.1333 B10C6AE7;"PROPE";"OLE";1;36;0.7778 B10C6AE7;"PROPE";"PAR";1;36;0.3889 B10C6AE7;"SABI";"TERP";1;120;1.1333 B10C6AE7;"TRPO";"TERP";1;120;1.1333 B10C6AE7;"SESQT";"SESQ";1;180;1.1333 CRACMM1;"ISOP";"ISO";1;60.05;1.1344 CRACMM1;"MBO";"OLT";1;60.05;1.4344 CRACMM1;"APIN";"API";1;120.1;1.1344 CRACMM1;"BPIN";"API";1;120.1;1.1344 CRACMM1;"D3CAR";"API";1;120.1;1.1344 CRACMM1;"DLIM";"LIM";1;120.1;1.1344 CRACMM1;"CAMPH";"API";1;120.1;1.1344 CRACMM1;"MYRC";"LIM";1;120.1;1.1344 CRACMM1;"ATERP";"LIM";1;120.1;1.1344 CRACMM1;"BPHE";"LIM";1;120.1;1.1344 CRACMM1;"SABI";"API";1;120.1;1.1344 CRACMM1;"PCYM";"VROCP6ARO";1;120.1;1.1176 CRACMM1;"OCIM";"LIM";1;120.1;1.1344 CRACMM1;"ATHU";"API";1;120.1;1.1344 CRACMM1;"TRPO";"LIM";1;120.1;1.1344 CRACMM1;"GTERP";"LIM";1;120.1;1.1344 CRACMM1;"METH";"MOH";1;12.01;2.6679 CRACMM1;"ETHE";"ETE";1;24.02;1.1679 CRACMM1;"PROPE";"OLT";1;36.03;1.1679 CRACMM1;"ETHO";"EOH";1;24.02;1.9179 CRACMM1;"ACET";"ACT";1;36.03;1.612 CRACMM1;"HEXA";"ALD";1;72.06;1.39 CRACMM1;"HEXE";"OLI";1;72.06;1.39 CRACMM1;"HEXY";"OLI";1;96.08;1.48 CRACMM1;"FORM";"HCHO";1;12.01;2.5001 CRACMM1;"ACTAL";"ACD";1;24.02;1.834 CRACMM1;"BUTE";"OLT";1;48.04;1.1679 CRACMM1;"ETHA";"ETH";1;24.02;1.2519 CRACMM1;"FORAC";"ORA1";1;12.01;3.8322 CRACMM1;"ACTAC";"ORA2";1;24.02;2.5001 CRACMM1;"BUTO";"MVK";1;48.04;1.459 CRACMM1;"CO";"CO";1;12.01;2.3322 CRACMM1;"ORVOC";"HC3";1;48.04;1.2099 CRACMM1;"SESQT";"SESQ";1;180.15;1.1344 CRACMM1;"NO";"NO";1.0;14;2.1429 CRACMM2;"ISOP";"ISO";1;60.05;1.1344 CRACMM2;"MBO";"OLT";1;60.05;1.4344 CRACMM2;"APIN";"API";1;120.1;1.1344 CRACMM2;"BPIN";"API";1;120.1;1.1344 CRACMM2;"D3CAR";"API";1;120.1;1.1344 CRACMM2;"DLIM";"LIM";1;120.1;1.1344 CRACMM2;"CAMPH";"API";1;120.1;1.1344 CRACMM2;"MYRC";"LIM";1;120.1;1.1344 CRACMM2;"ATERP";"LIM";1;120.1;1.1344 CRACMM2;"BPHE";"LIM";1;120.1;1.1344 CRACMM2;"SABI";"API";1;120.1;1.1344 CRACMM2;"PCYM";"VROCP6ARO";1;120.1;1.1176 CRACMM2;"OCIM";"LIM";1;120.1;1.1344 CRACMM2;"ATHU";"API";1;120.1;1.1344 CRACMM2;"TRPO";"LIM";1;120.1;1.1344 CRACMM2;"GTERP";"LIM";1;120.1;1.1344 CRACMM2;"METH";"MOH";1;12.01;2.6679 CRACMM2;"ETHE";"ETE";1;24.02;1.1679 CRACMM2;"PROPE";"OLT";1;36.03;1.1679 CRACMM2;"ETHO";"EOH";1;24.02;1.9179 CRACMM2;"ACET";"ACT";1;36.03;1.612 CRACMM2;"HEXA";"ALD";1;72.06;1.39 CRACMM2;"HEXE";"OLI";1;72.06;1.39 CRACMM2;"HEXY";"OLI";1;96.08;1.48 CRACMM2;"FORM";"HCHO";1;12.01;2.5001 CRACMM2;"ACTAL";"ACD";1;24.02;1.834 CRACMM2;"BUTE";"OLT";1;48.04;1.1679 CRACMM2;"ETHA";"ETH";1;24.02;1.2519 CRACMM2;"FORAC";"ORA1";1;12.01;3.8322 CRACMM2;"ACTAC";"ORA2";1;24.02;2.5001 CRACMM2;"BUTO";"MVK";1;48.04;1.459 CRACMM2;"CO";"CO";1;12.01;2.3322 CRACMM2;"ORVOC";"HC3";1;48.04;1.2099 CRACMM2;"SESQT";"SESQ";1;180.15;1.1344 CRACMM2;"NO";"NO";1.0;14;2.1429 ================================================ FILE: CCTM/src/biog/beis4/hrno.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE HRNO( JDATE, JTIME, TSTEP, NOPOL, L_DESID_DIAG ) C----------------------------------------------------------------------- C Description: C Uses new NO algorithm NO = Normalized*Tadj*Padj*Fadj*Cadj C to estimate NO emissions C Information needed to estimate NO emissions: C Julian Day (integer) JDATE C Surface Temperature (MCIP field) TA (K) C Rainfall (MCIP derived field) RAIN (cm) C Soil Moisture (MCIP field) SOILM (M**3/M**3) (PX_LSM) C (ratio of volume of water per volume of soil) C Soil Temperature (MCIP field) SOILT (K) (PX_LSM) C Soil Type (MCIP field) ISLTYP (PX_LSM) C Saturation values for soil types (constants) (PX_LSM) C FOR PX Version, the Temperature adjustment factor accounts for wet and dry C soils and the precipitation adjustment factor accounts for saturated soils C FOR the non-PX version, the basic algorithm remains with a temperature C adjustment factor (dry soil) and no adjustment for saturated soils C The following arrays are potentially updated after a call to HRNO: C PTYPE type of NO emission pulse C PULSEDATE julian date for the beginning of an NO pulse C PULSETIME time for the beginning of an NO pulse C The calculation are based on the following paper: C J.J. Yienger and H. Levy II, Journal of Geophysical Research, vol 100, C 11447-11464, 1995 C The Temperature Adjustment Factor is based on section 4.2 for wet and dry C soils with the following modification (PX version): C Instead of classifying soils as either 'wet' or 'dry', the wet and dry C adjustment is calculated at each grid cell. A linear interpolation between C the wet and dry adjustment factor is made using the relative amount of soil C moisture in the top layer (1cm) as the interpolating factor. The relative C amount of soil moisture is determined by taking the MCIP soil moisture field C and dividing by the saturation value defined for each soil type in the PX C version of MCIP. The soil temperature is used in PX version C The Precipation Adjustment factor is based on section 4.1 with the following C modifications: C The rainrate is computed from the MCIP directly using a 24 hr daily total. C The types of Pulses as described in YL95 were used to estimate the NO C emission rate. C Also see the following paper for more information: C Proceedings of the Air and Waste Management Association/U.S. Environmental C Protection Agency EMission Inventory Conference, Raleigh October 26-28, 1999 C Raleigh NC by Tom Pierce and Lucille Bender C References: C Jacquemin B. and Noilhan J. (1990), Bound.-Layer Meteorol., 52, 93-134. C J.J. Yienger and H. Levy II, Journal of Geophysical Research, vol 100, C 11447-11464, 1995 C T. Pierce and L. Bender, Examining the Temporal Variability of Ammonia and C Nitric Oxide Emissions from Agricultural Processes Proceedings of the Air and C Waste Management Association/U.S. Environmental Protection Agency Emission C Inventory Conference, Raleigh October 26-28, 1999 Raleigh NC C Preconditions: C Normalized NO emissions, Surface Temperature, Soil Moisture, Soil type, C NO emission pulse type, soil moisture from previous time step, julian date C of NO emission pulse start, time of NO emission pulse start, C soil type, SOIL TYPES, Land use data C Subroutines and Functions Called (directly or indirectly): C PRECIP_ADJ computes precipitation adjustment factor C FERTILIZER_ADJ computes fertlizer adjustment factor C VEG_ADJ computes vegetation adjustment factor C GROWSEASON computes Julian day of growing season C PRECIPFAC computes precip adjustment factor from rainfall in last 24 hrs C and time since pulse initiation C PULSETYPE determines type & duration of NO emission pulse from rainrate C Revision History: C 10/01: Prototype by GAP C 10/03: modified transition to non growing season for jul-oct of the year C 08/04: Converted to SMOKE code style by C Seppanen C Mar 07: Restructure; J.Young C Jan 26: J.Young - move input data reads from tmpbeis; C remove ck & report if TAIR > 315; C restructure growing season, col/row loops; C restructure PRECIP_ADJ C Jan 27: D. Wong - Eliminate potential race condition with mype = 0 and C barrier implementation - not needed anyway. C 02/11: S.Roselle-Replaced I/O API include files with UTILIO_DEFN C 05/11: D. Wong - incorporated twoway model implementation C 05/12: J.Young - make PX_LSM the default C 05/13: D.Wong - replaced M3EXIT with M3WARN when CHKGRID is called in the twoway model C 09/13: D.Wong - made the code more robust by C * allowing simulation start time at any hour rather than 0 C * allowing finer met data time step and maintaining an hourly C rainfall bucket C 07 Nov 14 J.Bash: Updated for the ASX_DATA_MOD shared data module. C Aug 15 D.Wong: Replaced MYPE with IO_PE_INCLUSIVE for parallel I/O C implementation and added code to handle parallel I/O C 09 Jan 15 J.Young: fix bug of not calculating NOPOL for last sync step of last C run output step; get saturation from LSM module; put PX_LSM C as first conditional clause C 01 Feb 19 D.Wong: Implemented centralized I/O approach C 30 June 19 J. Pleim: Corrected Soil Types to 16 and simplified code C----------------------------------------------------------------------- C Modified from: C Project Title: Sparse Matrix Operator Kernel Emissions (SMOKE) Modeling System C File: @(#)$Id: hrno.F,v 1.6 2011/10/21 16:10:18 yoj Exp $ C COPYRIGHT (C) 2004, Environmental Modeling for Policy Development C All Rights Reserved C Carolina Environmental Program C University of North Carolina at Chapel Hill C 137 E. Franklin St., CB# 6116 C Chapel Hill, NC 27599-6116 C smoke@unc.edu C Pathname: $Source: /project/yoj/arc/CCTM/src/biog/beis3/hrno.F,v $ C Last updated: $Date: 2011/10/21 16:10:18 $ C----------------------------------------------------------------------- USE RUNTIME_VARS USE HGRD_DEFN ! horizontal domain specifications USE BIOG_EMIS, ONLY: NSEF ! beis USE ASX_DATA_MOD USE UTILIO_DEFN #ifdef mpas use mio_module USE util_module, only : NEXTIME, TIME2SEC, SECSDIFF, CURRSTEP, julian #else #ifdef parallel USE SE_MODULES ! stenex (using SE_UTIL_MODULE) #else USE NOOP_MODULES ! stenex (using NOOP_UTIL_MODULE) #endif #endif USE centralized_io_module IMPLICIT NONE C Includes: C Arguments: INTEGER, INTENT( IN ) :: JDATE ! current simulation date (YYYYDDD) INTEGER, INTENT( IN ) :: JTIME ! current simulation time (HHMMSS) INTEGER, INTENT( IN ) :: TSTEP( 3 ) ! time step vector (HHMMSS) REAL, INTENT( OUT ) :: NOPOL( :,: ) ! output NO emissions LOGICAL, INTENT( IN ) :: L_DESID_DIAG ! flag determining whether or not DESID ! is in diagnostic mode C External Functions LOGICAL, EXTERNAL :: CHKGRID C Parameters: INTEGER, PARAMETER :: MXRHRS = 24 ! no. of rainfall hours for YL95 algorithm INTEGER, PARAMETER :: LSM_WATER = 14 REAL, PARAMETER :: CFNODRYFC = ( 1.0 / 3.0 ) * ( 1.0 / 30.0 ) C Saturation values for 11 soil types from pxpbl.F (MCIP PX version) C In LSM_MOD:WSAT C Pleim-Xiu Land-Surface and PBL Model (PX-LSM) C See Jacquemin B. and Noilhan J. (1990), Bound.-Layer Meteorol., 52, 93-134. C Local Variables: CHARACTER( 16 ), SAVE :: MNAME ! logical name for MET_CRO_2D CHARACTER( 16 ), SAVE :: SOILINP ! logical name for input NO soil data CHARACTER( 16 ), SAVE :: SOILOUT = 'BEIS_SOILOUT' ! logical name for output NO soil data CHARACTER( 33 ), SAVE :: DESCSTR = 'hrly cnv. & non-cnv. rainfall for' CHARACTER( 16 ) :: VAR ! variable name INTEGER, SAVE :: IHR ! current simulation hour INTEGER NDX ! RAINFALL array timestep index REAL, ALLOCATABLE, SAVE :: C_RAINFALL ( :,: ) ! rainfall for current hour REAL, ALLOCATABLE, SAVE :: RNTOT ( :,: ) ! RN + RC INTEGER, SAVE :: RHOURS ! SOILINP(OUT) file no. of RAINFALL hour variables INTEGER, SAVE :: RDATE ! date to update rainfall INTEGER, SAVE :: RTIME ! time to update rainfall INTEGER, SAVE :: EDATE ! end scenario date INTEGER, SAVE :: ETIME ! end scenario time INTEGER, SAVE :: NDATE ! test date to update rainfall INTEGER, SAVE :: NTIME ! test time to update rainfall LOGICAL, SAVE :: INITIAL_DAY = .FALSE. ! true: 1st 24 hours; no previous data ! false: previous 24 hours of rainfall ! are available for HRNO INTEGER SOILCAT ! soil category INTEGER, SAVE :: MSTEPS ! run no. of steps INTEGER I, J, K, R, C, L ! counters LOGICAL OK INTEGER IOS ! IO or memory allocation status INTEGER, SAVE :: METSTEP ! met_cro_2d time step REAL, SAVE :: EFAC REAL CFNO ! NO correction factor REAL CFNOGRASS ! NO correction factor for grasslands REAL TAIR ! surface temperature REAL TSOI ! soil temperature REAL CFNOWET, CFNODRY, RATIO REAL FAC1, FAC2, FAC3, FAC4 LOGICAL, SAVE :: USE_SOILT = .TRUE. ! use soil temperature in PX version ! rather than estimate as in BEIS2 LOGICAL, SAVE :: FIRSTIME = .TRUE. LOGICAL, SAVE :: FIRSTHR = .TRUE. LOGICAL, SAVE :: FIRST_WRITE = .TRUE. CHARACTER( 256 ) :: MESG ! message buffer CHARACTER( 16 ) :: PNAME = 'HRNO' ! procedure name INTEGER GXOFF, GYOFF ! global origin offset from file C for INTERPX INTEGER :: STRTCOLSIN, ENDCOLSIN, STRTROWSIN, ENDROWSIN ! SOILINP CHARACTER( 16 ), SAVE :: VNAME_RC, VNAME_RN INTEGER :: SPC #ifdef mpas integer :: io_mode #endif LOGICAL, EXTERNAL :: FLUSH3 #ifdef verbose_hrno integer mxptype, ncfno0 real mxrntot, mxfac1, avgfac2, mxfac3, mxfac4 real mxtair, mxcfno #endif C----------------------------------------------------------------------- IF ( FIRSTIME ) THEN ! FIRSTIME = .FALSE. #ifdef mpas if (ncd_64bit_offset) then io_mode = ior (nf90_noclobber, nf90_64bit_offset) else io_mode = nf90_noclobber end if call mio_fcreate ('SOILOUT', io_mode) #endif C Determine last timestamp EDATE = STDATE; ETIME = STTIME CALL NEXTIME( EDATE, ETIME, RUNLEN ) ! end date & time MSTEPS = TIME2SEC( RUNLEN ) / TIME2SEC( TSTEP( 1 ) ) #ifdef mpas METSTEP = tstep(3) #else C Open met file MNAME = PROMPTMFILE( & 'Enter name for gridded met input file', & FSREAD3, 'MET_CRO_2D', PNAME ) C Get description of met file IF ( .NOT. DESC3( MNAME ) ) THEN MESG = 'Could not get description of file "' & // TRIM( MNAME ) // '"' CALL M3EXIT( PNAME, JDATE, JTIME, MESG, XSTAT2 ) END IF METSTEP = TSTEP3D C Check that grid description matches MET_CRO_2D file IF ( .NOT. CHKGRID( MNAME ) ) THEN MESG = 'Grid in file "' // TRIM( MNAME ) & // '" does not match grid in file ' // TRIM( MNAME ) // '"' #ifdef twoway CALL M3WARN( PNAME, 0, 0, MESG ) #else CALL M3EXIT( PNAME, JDATE, JTIME, MESG, XSTAT2 ) #endif END IF #endif ALLOCATE( RNTOT( NCOLS,NROWS ), STAT=IOS ) CALL CHECKMEM( IOS, 'RNTOT', PNAME ) C Initial run until a full 24 hours has been recorded on the SOIL(OUT/INP) file C for the Yienger and Levy algorithm WRITE( LOGDEV,'(/5X, A)' ) 'Temporal BEIS ...' RHOURS = MXRHRS C If initial run, initialize some variables, otherwise get them from file IF ( NEW_START ) THEN PULSEDATE = 0 ! array PULSETIME = 0 ! array PTYPE = 0 ! array END IF ! initial run ALLOCATE( C_RAINFALL( NCOLS,NROWS ), STAT=IOS ) CALL CHECKMEM( IOS, 'RAINFALL', PNAME ) C_RAINFALL = 0.0 ! array RDATE = STDATE; RTIME = STTIME ! IHR = 0 EFAC = EXP( -0.103 * 30.0 ) END IF ! FIRSTIME C Non-convective (RN) and convective (RC) rain is the total amount for the met C preprocessor's (typically MCIP) output timestep (typically one hour). It doesn't C make sense to time-interpolate these values, since rain generally does not fall C at a constant rate for an output timestep. IF ( .NOT. CURRSTEP( JDATE, JTIME, STDATE, STTIME, METSTEP, & NDATE, NTIME ) ) THEN MESG = 'Cannot get step date and time' CALL M3EXIT( PNAME, JDATE, JTIME, MESG, XSTAT3 ) END IF C Store current time step rainfall totals IF ( NDATE .EQ. RDATE .AND. NTIME .EQ. RTIME ) THEN ! on the METSTEP IF ( FIRSTIME ) THEN FIRSTIME = .FALSE. IHR = MOD( RTIME / 10000 + 23, 24 ) ! previous hour bin, ! to accommodate non-zero start hour END IF C For the first hour of the simulation day, use the previous 24 hour C data to compute precip adjustment NDX = 1 + MOD( IHR, MXRHRS ) C_RAINFALL = C_RAINFALL + MET_DATA%RN + MET_DATA%RC WRITE( DDTTM( NDX ),'(I8,":",I6.6)' ) RDATE, RTIME IF ( MOD( NTIME, 10000 ) .EQ. 0 ) THEN ! at the hourly mark RAINFALL( :,:,NDX ) = C_RAINFALL C_RAINFALL = 0.0 IHR = IHR + 1 END IF ! CALL NEXTIME( RDATE, RTIME, TSTEP( 1 ) ) CALL NEXTIME( RDATE, RTIME, METSTEP ) RNTOT = 0.0 ! array assignment IF ( NEW_START ) THEN IF ( IHR .LT. MXRHRS ) THEN INITIAL_DAY = .TRUE. ELSE INITIAL_DAY = .FALSE. END IF ELSE ! store accumulated rain in RNTOT array DO I = 1, MXRHRS RNTOT = RNTOT + RAINFALL( :,:,I ) END DO END IF #ifdef verbose_hrno write( logdev,* ) 'hrno - INITIAL_DAY, IHR: ', initial_day, ihr #endif END IF ! on the METSTEP C Calculate temporal non-speciated soil NO emissions IF ( GROWSEASON( JDATE ) .EQ. 0 ) THEN ! not growing season #ifdef verbose_hrno write( logdev,* ) ' not growing season' mxtair = 0.0; mxcfno = 0.0; ncfno0 = 0 #endif DO R = 1, NROWS DO C = 1, NCOLS TAIR = MET_DATA%TEMP2( C,R ) ! unit in degree K C Check min bounds for temperature and limit to 303 deg K IF ( TAIR .LT. 200.0 ) THEN WRITE( MESG, 94010 ) 'TAIR=', TAIR, & 'out of range at (C,R)=', C, R CALL M3MESG( MESG ) Write( MESG,94010 ) 'Max TAIR: ', Maxval( MET_DATA%TEMP2 ), & 'at (C,R)', Maxloc( MET_DATA%TEMP2 ) CALL M3MESG( MESG ) Write( MESG,94010 ) 'Min TAIR: ', Minval( MET_DATA%TEMP2 ), & 'at (C,R)', Minloc( MET_DATA%TEMP2 ) CALL M3MESG( MESG ) CALL M3EXIT( PNAME, JDATE, JTIME, '*** ABORT', 2 ) END IF TAIR = MIN( TAIR, 303.0 ) IF ( TAIR .GT. 268.8690 ) THEN CFNO = EXP( 0.04686 * TAIR - 14.30579 ) ! grass (from BEIS2) ELSE CFNO = 0.0 #ifdef verbose_hrno ncfno0 = ncfno0 + 1 #endif END IF #ifdef verbose_hrno mxtair = max( mxtair, tair ) mxcfno = max( mxcfno, cfno ) #endif NOPOL( C,R ) = CFNO * ( NGROWAGNO( C,R ) ! agriculture & + NONAGNO( C,R ) ) ! non-agriculture END DO ! columns END DO ! rows #ifdef verbose_hrno write( logdev,2009 ) ncfno0, mxtair, mxcfno 2009 format( ' hrno - NCFNO0, MAX TAIR,CFNO: ', i7, 2f10.5 ) #endif ELSE ! growing season #ifdef verbose_hrno mxptype = 0; mxrntot = 0.0 mxfac1 = 0.0; avgfac2 = 0.0; mxfac3 = 0.0; mxfac4 = 0.0 #endif DO R = 1, NROWS DO C = 1, NCOLS TAIR = MET_DATA%TEMP2( C,R ) ! unit in degree K C Check min bounds for temperature and limit max to 303 deg K IF ( TAIR .LT. 200.0 ) THEN WRITE( MESG, 94010 ) 'TAIR=', TAIR, & 'out of range at (C,R)=', C, R CALL M3EXIT( PNAME, JDATE, JTIME, MESG, 2 ) END IF TAIR = MIN( TAIR, 303.0 ) C Calculate NO emissions by going thru temperature cases IF ( PX_LSM .OR. CLM_LSM .OR. NOAH_LSM ) THEN SOILCAT = GRID_DATA%SLTYP( C,R ) TSOI = 0.0 IF( SOILCAT .NE. LSM_WATER ) THEN RATIO = MET_DATA%SOIM1( C,R ) / Grid_Data%WSAT( C,R ) IF ( USE_SOILT ) THEN TSOI = MET_DATA%SOIT1( C,R ) ELSE TSOI = 0.72 * TAIR + 82.28 END IF TSOI = MIN( MAX( TSOI, 273.16 ), 303.16 ) - 273.16 ! deg C CFNODRY = CFNODRYFC * TSOI ! see YL 1995 Eqn 9a p. 11452 IF ( TSOI .LE. 10.0 ) THEN ! see YL 1995 Eqn 7b CFNOWET = 0.28 * EFAC * TSOI ! linear cold case ELSE CFNOWET = EFAC * EXP( 0.103 * TSOI ) ! exponential case END IF CFNO = CFNODRY + RATIO * ( CFNOWET - CFNODRY ) FAC1 = GROWAGNO( C,R ) * CFNO & * FERTILIZER_ADJ( JDATE ) & * VEG_ADJ( JDATE ) ELSE FAC1 = 0.0 END IF IF ( INITIAL_DAY ) THEN FAC2 = 1.0 PTYPE( C,R ) = 0 PULSEDATE( C,R ) = 0 PULSETIME( C,R ) = 0 ELSE FAC2 = PRECIP_ADJ_PX( JDATE, JTIME, RNTOT( C,R ), & MET_DATA%SOIM1( C,R ), & Grid_Data%WSAT( C,R ), PTYPE( C,R ), & PULSEDATE( C,R ), PULSETIME( C,R ) ) END IF ELSE TSOI = 0.72 * TAIR + 82.28 TSOI = MIN( MAX( TSOI, 273.16 ), 303.16 ) - 273.16 ! deg C CFNODRY = CFNODRYFC * TSOI ! see YL 1995 Eqn 9a p. 11452 IF ( TSOI .LE. 10.0 ) THEN ! see YL 1995 Eqn 7b CFNOWET = 0.28 * EFAC * TSOI ! linear cold case ELSE CFNOWET = EFAC * EXP( 0.103 * TSOI ) ! exponential case END IF CFNO = 0.5 * ( CFNOWET + CFNODRY ) FAC1 = GROWAGNO( C,R ) * CFNO & * FERTILIZER_ADJ( JDATE ) & * VEG_ADJ( JDATE ) IF ( INITIAL_DAY ) THEN FAC2 = 1.0 PTYPE( C,R ) = 0 PULSEDATE( C,R ) = 0 PULSETIME( C,R ) = 0 ELSE FAC2 = PRECIP_ADJ( JDATE, JTIME, RNTOT( C,R ), & PTYPE( C,R ), PULSEDATE( C,R ), & PULSETIME( C,R ) ) END IF END IF ! PX version check IF ( TAIR .GT. 268.8690 ) THEN CFNOGRASS = EXP( 0.04686 * TAIR - 14.30579 ) ! grass (from BEIS2) FAC3 = NGROWAGNO( C,R ) * CFNOGRASS FAC4 = NONAGNO( C,R ) * CFNOGRASS ELSE FAC3 = 0.0 FAC4 = 0.0 END IF #ifdef verbose_hrno mxptype = max( mxptype, ptype( c,r ) ) mxrntot = max( mxrntot, rntot( c,r ) ) mxfac1 = max( mxfac1, fac1 ) avgfac2 = avgfac2 + fac2 mxfac3 = max( mxfac3, fac3 ) mxfac4 = max( mxfac4, fac4 ) #endif IF( TSOI .LE. 0.0 ) THEN NOPOL( C,R ) = 0.0 ELSE NOPOL( C,R ) = MAX( ( FAC1 * FAC2 ), FAC3 ) + FAC4 END IF END DO ! columns END DO ! rows #ifdef verbose_hrno write( logdev,2011 ) mxptype, mxrntot, avgfac2/(ncols*nrows), mxfac1, mxfac3, mxfac4 2011 format( ' hrno MAX PTYPE,RNTOT,AVGFAC2,FAC1,3,4: ', I2, 2f8.3 , 3f10.3 ) #endif END IF ! growing season check IF ( SECSDIFF( JDATE,JTIME, EDATE,ETIME ) .GT. TIME2SEC( TSTEP( 2 ) ) .OR. L_DESID_DIAG ) RETURN #ifdef mpas var = 'PTYPE' call mio_fwrite ('SOILOUT', var, pname, ptype) var = 'PULSEDATE' call mio_fwrite ('SOILOUT', var, pname, pulsedate) var = 'PULSETIME' call mio_fwrite ('SOILOUT', var, pname, pulsetime) do i = 1, rhours write( var, '(a8,i2.2)' ) 'RAINFALL', I call mio_fwrite ('SOILOUT', var, pname, rainfall(1,1,i)) end do #else C Create rain data file for soil NO C Final timestamp NDATE = EDATE; NTIME = ETIME C Build description for, and create/open soil NO emissions output file FTYPE3D = GRDDED3 SDATE3D = NDATE STIME3D = NTIME TSTEP3D = 0 ! make it a time-independent file NCOLS3D = GL_NCOLS NROWS3D = GL_NROWS NLAYS3D = 1 NVARS3D = 3 + RHOURS MXREC3D = 1 NTHIK3D = 1 GDTYP3D = GDTYP_GD P_ALP3D = P_ALP_GD P_BET3D = P_BET_GD P_GAM3D = P_GAM_GD XORIG3D = XORIG_GD YORIG3D = YORIG_GD XCENT3D = XCENT_GD YCENT3D = YCENT_GD XCELL3D = XCELL_GD YCELL3D = YCELL_GD VGTYP3D = VGTYP_GD VGTOP3D = VGTOP_GD DO L = 1, NLAYS3D + 1 VGLVS3D( L ) = VGLVS_GD( L ) END DO GDNAM3D = GRID_NAME ! from HGRD_DEFN VNAME3D = ' ' VNAME3D( 1 ) = 'PTYPE' VNAME3D( 2 ) = 'PULSEDATE' VNAME3D( 3 ) = 'PULSETIME' DO I = 1, RHOURS WRITE( VAR, '(A8,I2.2)' ) 'RAINFALL', I VNAME3D( I+3 ) = VAR END DO UNITS3D = ' ' UNITS3D( 1 ) = 'INTEGER' UNITS3D( 2 ) = 'YYYYDDD' UNITS3D( 3 ) = 'HHMMSS' UNITS3D( 4:RHOURS+3 ) = 'cm' VDESC3D( 1 ) = 'NO emission pulse type' VDESC3D( 2 ) = 'CMAQ starting date for NO emission pulse' VDESC3D( 3 ) = 'CMAQ starting time for NO emission pulse' ! VDESC3D( 4:RHOURS+3 ) = 'hourly convective and non-convective rainfall' DO I = 1, RHOURS VDESC3D( I+3 ) = DESCSTR // DDTTM( I ) END DO VTYPE3D = 0 VTYPE3D( 1 ) = M3INT VTYPE3D( 2 ) = M3INT VTYPE3D( 3 ) = M3INT VTYPE3D( 4:RHOURS+3 ) = M3REAL FDESC3D = ' ' FDESC3D( 1 ) = 'Gridded rainfall data for soil NO emissions' FDESC3D( 2 ) = '/From/ ' // PNAME FDESC3D( 3 ) = '/Version/ CMAQ' C Open NO rain data save file IF ( IO_PE_INCLUSIVE ) THEN IF ( .NOT. OPEN3( SOILOUT, FSNEW3, PNAME ) ) THEN MESG = 'Could not open "' // TRIM( SOILOUT ) // '" file' CALL M3EXIT( PNAME, JDATE, JTIME, MESG, XSTAT1 ) END IF END IF #ifdef parallel_io IF ( IO_PE_INCLUSIVE ) THEN IF ( .NOT. FLUSH3 ( SOILOUT ) ) THEN MESG = 'Could not sync to disk ' // TRIM( SOILOUT ) CALL M3EXIT( PNAME, JDATE, JTIME, MESG, XSTAT2 ) END IF END IF CALL SE_BARRIER IF ( .NOT. IO_PE_INCLUSIVE ) THEN IF ( .NOT. OPEN3( SOILOUT, FSREAD3, PNAME ) ) THEN MESG = 'Could not open ' // TRIM( SOILOUT ) CALL M3EXIT( PNAME, JDATE, JTIME, MESG, XSTAT2 ) END IF END IF #endif C Write soil NO rain data file VAR = 'PTYPE' IF ( .NOT. WRITE3( SOILOUT, VAR, NDATE, NTIME, PTYPE ) ) THEN MESG = 'Could not write "' // TRIM( VAR ) // & '" to file "' // TRIM( SOILOUT ) // '"' CALL M3EXIT( PNAME, JDATE, JTIME, MESG, XSTAT2 ) END IF VAR = 'PULSEDATE' IF ( .NOT. WRITE3( SOILOUT, VAR, NDATE, NTIME, PULSEDATE ) ) THEN MESG = 'Could not write "' // TRIM( VAR ) // & '" to file "' // TRIM( SOILOUT ) // '"' CALL M3EXIT( PNAME, JDATE, JTIME, MESG, XSTAT2 ) END IF VAR = 'PULSETIME' IF ( .NOT. WRITE3( SOILOUT, VAR, NDATE, NTIME, PULSETIME ) ) THEN MESG = 'Could not write "' // TRIM( VAR ) // & '" to file "' // TRIM( SOILOUT ) // '"' CALL M3EXIT( PNAME, JDATE, JTIME, MESG, XSTAT2 ) END IF NDX = 1 + MOD( IHR, MXRHRS ) RAINFALL( :,:,NDX ) = C_RAINFALL DO I = 1, RHOURS WRITE( VAR, '(A8,I2.2)' ) 'RAINFALL', I IF ( .NOT. WRITE3( SOILOUT, VAR, NDATE, NTIME, RAINFALL( :,:,I ) ) ) THEN MESG = 'Could not write "' // TRIM( VAR ) // & '" to file "' // TRIM( SOILOUT ) // '"' CALL M3EXIT( PNAME, JDATE, JTIME, MESG, XSTAT2 ) END IF END DO WRITE( LOGDEV,94040 ) & 'Timestep written to', SOILOUT, & 'for date and time', NDATE, NTIME #endif RETURN 94010 FORMAT( A, F10.2, 1X, A, I3, ',', I3 ) 94040 FORMAT( /5X, 3( A, :, 1X ), I8, ":", I6.6 ) C----------------------------------------------------------------------- CONTAINS REAL FUNCTION PRECIP_ADJ_PX( JDATE, JTIME, RAIN, SOILM, WSAT, & PTYPE, PULSEDATE, PULSETIME ) C----------------------------------------------------------------------- C Description: C Compute precipitation adjustment factor for estimate of NO emissions C Uses: julian day, time, soil moisture C Requires the use of three arrays that are re-used each time step: C PTYPE, PULSEDATE, PULSETIME C These arrays store the type of NO pulse initiated by the rainfall C and the starting date and time of the pulse. C Preconditions: C Soil Moisture current time, Soil Moisture previous time, C Soil type, Land Use, PTYPE, PULSEDATE, PULSETIME C Subroutines and Functions Called: C precipfact - computes precip adjustment factor from rainrate and time C since pulse initiation C pulsetype - determines type & duration of NO emission pulse from rainrate C Revision History: C 11/01 : Prototype by GAP C 3/05 : create separate functions for PX vs non-PX versions C 1/10 : J.Young - restructure C 7/31/19 J. Pleim : Corrected Soil Types and Simplified Code C----------------------------------------------------------------------- USE UTILIO_DEFN IMPLICIT NONE C Function arguments: INTEGER, INTENT( IN ) :: JDATE, JTIME REAL, INTENT( IN ) :: RAIN REAL, INTENT( IN ) :: SOILM ! only avilable if PX version REAL, INTENT( IN ) :: WSAT ! only tested for PX and CLM versions INTEGER, INTENT( INOUT ) :: PTYPE ! pulse type INTEGER, INTENT( INOUT ) :: PULSEDATE ! date of pulse start INTEGER, INTENT( INOUT ) :: PULSETIME ! date of pulse end C External functions: C Parameters: REAL, PARAMETER :: SAT_THRES = 0.95 C Local variables: INTEGER SOILCAT ! soil type category INTEGER PTYPE_TEST C----------------------------------------------------------------------- C Summary of algorithm C 1. compute rate of change of soil moisture from soil moisture C 2. estimate rainrate from soil moisture and soil moisture rate C 3. compute adjustment using pulsetype, rainrate, ptype, and date/time C if stronger NO pulse compared to previous time step, then C start a new NO emission pulse, C otherwise continue present NO pulse C 4. override adjustment for saturated soils SOILCAT = GRID_DATA%SLTYP( C,R ) IF ( SOILCAT .NE. LSM_WATER ) THEN IF ( SOILM .GE. SAT_THRES * WSAT ) THEN PRECIP_ADJ_PX = 0.0 ELSE PTYPE_TEST = PULSETYPE( RAIN ) IF ( PTYPE_TEST .GT. PTYPE ) THEN ! Rainfall class type increases PULSEDATE = JDATE ! (NO emission pulse generated) PULSETIME = JTIME PTYPE = PTYPE_TEST END IF PRECIP_ADJ_PX = PRECIPFAC( JDATE, JTIME, PULSEDATE, PULSETIME, PTYPE ) END IF ELSE PRECIP_ADJ_PX = 0.0 END IF RETURN END FUNCTION PRECIP_ADJ_PX C----------------------------------------------------------------------- REAL FUNCTION PRECIP_ADJ( JDATE, JTIME, RAIN, & PTYPE, PULSEDATE, PULSETIME ) C----------------------------------------------------------------------- C Description: C Compute precipitation adjustment factor for estimate of NO emissions C Uses: julian day, time, soil moisture C Requires the use of three arrays that are re-used each time step: C PTYPE, PULSEDATE, PULSETIME C These arrays store the type of NO pulse initiated by the rainfall C and the starting date and time of the pulse. C Preconditions: C Soil Moisture current time, Soil Moisture previous time, C Soil type, Land Use, PTYPE, PULSEDATE, PULSETIME C Subroutines and Functions Called: C precipfact - computes precip adjustment factor from rainrate and time C since pulse initiation C pulsetype - determines type & duration of NO emission pulse from rainrate C Revision History: C 11/01 : Prototype by GAP C 3/05 : created a non-PX version of this function C 1/10 : J.Young - restructure C----------------------------------------------------------------------- USE UTILIO_DEFN IMPLICIT NONE C Function arguments: INTEGER, INTENT( IN ) :: JDATE, JTIME REAL, INTENT( IN ) :: RAIN INTEGER, INTENT( INOUT ) :: PTYPE ! pulse type INTEGER, INTENT( INOUT ) :: PULSEDATE ! date of pulse start INTEGER, INTENT( INOUT ) :: PULSETIME ! time of pulse start C External functions: C Local variable INTEGER PTYPE_TEST C----------------------------------------------------------------------- C Summary of algorithm C 1. if no rainfall or new rainfall class less than current one, continue C existing NO emission pulse C 2. if new rainfall that increases rainfall class, then create new NO C emission pulse using pulsetype, rainrate, ptype, and date/time - C if stronger NO pulse compared to previous time step, then start C a new NO emission pulse PTYPE_TEST = PULSETYPE( RAIN ) IF ( PTYPE_TEST .GT. PTYPE ) THEN ! Rainfall class type increases PULSEDATE = JDATE ! (NO emission pulse generated) PULSETIME = JTIME PTYPE = PTYPE_TEST END IF PRECIP_ADJ = PRECIPFAC( JDATE, JTIME, PULSEDATE, PULSETIME, PTYPE ) RETURN END FUNCTION PRECIP_ADJ C----------------------------------------------------------------------- REAL FUNCTION FERTILIZER_ADJ( DATE ) C Compute a fertilizer adjustment factor for the given date in yyyyddd format. C If it is not growing season, the adjustment factor is 0; otherwise, it C ranges from 0.0 to 1.0. IMPLICIT NONE C Function arguments: INTEGER, INTENT( IN ) :: DATE C Local variables: INTEGER GDAY C----------------------------------------------------------------------- GDAY = GROWSEASON( DATE ) IF ( GDAY .EQ. 0 ) THEN FERTILIZER_ADJ = 0.0 ELSE IF ( GDAY .GE. 1 .AND. GDAY .LT. 30 ) THEN ! first month of growing season FERTILIZER_ADJ = 1.0 ELSE IF ( GDAY .GE. 30 ) THEN FERTILIZER_ADJ = 1.0 + 30.0 / 184.0 - FLOAT( GDAY ) / 184.0 ELSE WRITE( MESG,94010 ) 'Invalid date specified; date = ', DATE, & 'growing season day = ', GDAY CALL M3EXIT( PNAME, 0, 0, MESG, 2 ) END IF 94010 FORMAT( A, I8, 1X, A, I3 ) RETURN END FUNCTION FERTILIZER_ADJ C----------------------------------------------------------------------- REAL FUNCTION VEG_ADJ( DATE ) C Compute a vegetation adjustment factor for the given date in yyyyddd format. C The adjustment factor ranges from 0.5 to 1.0. IMPLICIT NONE C Function arguments: INTEGER, INTENT( IN ) :: DATE C Local variables: INTEGER GDAY C----------------------------------------------------------------------- GDAY = GROWSEASON( DATE ) IF ( GDAY .LE. 30 ) THEN VEG_ADJ = 1.0 ELSE IF ( GDAY .GT. 30 .AND. GDAY .LT. 60 ) THEN VEG_ADJ = 1.5 - ( FLOAT( GDAY ) / 60.0 ) ELSE IF ( GDAY .GE. 60 ) THEN VEG_ADJ = 0.5 ELSE WRITE( MESG,94010 ) 'Invalid date specified; date = ', DATE, & 'growing season day = ', GDAY CALL M3EXIT( PNAME, 0, 0, MESG, 2 ) END IF 94010 FORMAT( A, I8, 1X, A, I3 ) RETURN END FUNCTION VEG_ADJ C----------------------------------------------------------------------- INTEGER FUNCTION GROWSEASON( DATE ) C Compute the day of the growing season corresponding to the given date C in yyyyddd format. USE UTILIO_DEFN IMPLICIT NONE C Function arguments: INTEGER, INTENT( IN ) :: DATE ! YYYYDDD C External functions: C Parameters: INTEGER, PARAMETER :: GSTART_MONTH = 04 ! April INTEGER, PARAMETER :: GSTART_DAY = 01 INTEGER, PARAMETER :: GEND_MONTH = 10 ! October INTEGER, PARAMETER :: GEND_DAY = 31 C Local variables: INTEGER YEAR, MONTH, DAY INTEGER JDAY, GDAY INTEGER GSJULIAN_START INTEGER GSJULIAN_END C----------------------------------------------------------------------- YEAR = INT( FLOAT( DATE ) / 1000.0 ) JDAY = DATE - YEAR * 1000 GSJULIAN_START = JULIAN( YEAR, GSTART_MONTH, GSTART_DAY ) GSJULIAN_END = JULIAN( YEAR, GEND_MONTH, GEND_DAY ) IF ( JDAY .GE. GSJULIAN_START .AND. JDAY .LE. GSJULIAN_END ) THEN GROWSEASON = JDAY - GSJULIAN_START + 1 ! growing season ELSE IF ( JDAY .GE. 1 .AND. JDAY .LE. 366 ) THEN GROWSEASON = 0 ! before or after growing season ELSE WRITE( MESG,94010 ) 'Invalid date specified; date = ', DATE, & 'jday = ', JDAY CALL M3EXIT( PNAME, 0, 0, MESG, 2 ) END IF 94010 FORMAT( A, I8, 1X, A, I3 ) RETURN END FUNCTION GROWSEASON C----------------------------------------------------------------------- REAL FUNCTION PRECIPFAC( JDATE, JTIME, PDATE, PTIME, PTYPE ) C Compute a precipitation adjustment factor from a previous 24 hour rainfall C based on YL 1995 C The pulse type is an integer ranging from 0 to 3 indicating the type of C rainfall rate: C If rainfall < 0.1 cm in last 24 hr, "reset" C Else if rainfall < 0.5 cm in last 24 hr, and time since last pulse is .ge. 2 days, C reset; else, precipfact=11.19*... C Else if rainfall < 1.5 cm in last 24 hr, and time since last pulse is .ge. 6 days, C reset; else, precipfact=14.68*... C Else if rainfall >=1.5 cm in last 24 hr, and time since last pulse is .ge. 13 days, C reset; else, precipfact=18.46*... USE UTILIO_DEFN IMPLICIT NONE C Function arguments: INTEGER, INTENT( IN ) :: JDATE, JTIME, PDATE, PTIME INTEGER, INTENT( INOUT ) :: PTYPE C External functions: C Parameters: REAL, PARAMETER :: DAYPERSEC = 1.0 / ( 24.0 * 3600.0 ) ! = 0.000011574074074 C Local variables: REAL DAYDIFF, DAYDIF1 C----------------------------------------------------------------------- DAYDIFF = FLOAT( SECSDIFF( PDATE, PTIME, JDATE, JTIME ) ) * DAYPERSEC DAYDIF1 = DAYDIFF + 1.0 SELECT CASE( PTYPE ) CASE( 0 ) PRECIPFAC = 1.0 CASE( 1 ) IF ( ( DAYDIFF ) .LT. 2.0 ) THEN PRECIPFAC = 11.19 * EXP( -0.805 * DAYDIF1 ) ELSE PTYPE = 0 PRECIPFAC = 1.0 END IF CASE( 2 ) IF ( ( DAYDIFF ) .LT. 6.0 ) THEN PRECIPFAC = 14.68 * EXP( -0.384 * DAYDIF1 ) ELSE PTYPE = 0 PRECIPFAC = 1.0 END IF CASE( 3 ) IF ( ( DAYDIFF ) .LT. 13.0 ) THEN PRECIPFAC = 18.46 * EXP( -0.208 * DAYDIF1 ) ELSE PTYPE = 0 PRECIPFAC = 1.0 END IF CASE DEFAULT WRITE( MESG,'( A, I6 )' ) 'Invalid Pulse Type specified ', & PTYPE CALL M3EXIT( PNAME, 0, 0, MESG, 2 ) END SELECT RETURN END FUNCTION PRECIPFAC C----------------------------------------------------------------------- INTEGER FUNCTION PULSETYPE( RAIN ) C Compute the pulse type from the rainfall rate (see YL 1995). IMPLICIT NONE C Function arguments REAL, INTENT( IN ) :: RAIN ! [cm/24hr] C----------------------------------------------------------------------- IF ( RAIN .LT. 0.1 ) THEN PULSETYPE = 0 ELSE IF ( RAIN .LT. 0.5 ) THEN PULSETYPE = 1 ELSE IF ( RAIN .LT. 1.5 ) THEN PULSETYPE = 2 ELSE PULSETYPE = 3 END IF RETURN END FUNCTION PULSETYPE C----------------------------------------------------------------------- END SUBROUTINE HRNO ================================================ FILE: CCTM/src/biog/beis4/parsline.f ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/CCTM/src/biog/beis3/parsline.f,v 1.3 2011/10/21 16:10:18 yoj Exp $ C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE PARSLINE( LINE, N, SEGMENT ) C----------------------------------------------------------------------- C Description: C Separates a "list-formatted" line of strings in which C the segments may or may not have quotes. Although fortran requires C the quotes for true list-formatting, this subroutine can be used when C the quotes are only present to enclose a character (such as space, comma, C or semi-colon) that would otherwise be a delimiter. If an "!" is C encountered, everything after it is treated as a comment. C Preconditions: C Subroutines and Functions Called: C Revision History: C Created by M. Houyoux 3/99 C 02/11: S.Roselle-Replaced I/O API include files with UTILIO_DEFN C 01/14: D.Wong-Reduced NDELIM to 3 and use only 3 delimiters (comma, blank C space and semicolon) since it only deals with one character when calling C FINDC. DELIMLST is now standard compliant (gfortran happy) C 02/19: D.Wong-removed some unnecessary calculation C----------------------------------------------------------------------- C Modified from: C Project Title: EDSS Tools Library C File: @(#)$Id: parsline.f,v 1.3 2011/10/21 16:10:18 yoj Exp $ C COPYRIGHT (C) 2004, Environmental Modeling for Policy Development C All Rights Reserved C Carolina Environmental Program C University of North Carolina at Chapel Hill C 137 E. Franklin St., CB# 6116 C Chapel Hill, NC 27599-6116 C smoke@unc.edu C Pathname: $Source: /project/yoj/arc/CCTM/src/biog/beis3/parsline.f,v $ C Last updated: $Date: 2011/10/21 16:10:18 $ C----------------------------------------------------------------------- USE UTILIO_DEFN IMPLICIT NONE C Arguments: CHARACTER( * ), INTENT ( IN ) :: LINE ! character string to parse INTEGER, INTENT ( IN ) :: N ! no. of segments to parse ("fields") CHARACTER( * ), INTENT( OUT ) :: SEGMENT( N ) ! parsed string C External Functions: C Local parameters: INTEGER, PARAMETER :: NDELIM = 3 ! CHARACTER, PARAMETER :: DELIMLST( NDELIM ) = (/ ',', ' ', ';' /) CHARACTER, PARAMETER :: DELIMLST( NDELIM ) = (/ ' ', ',', ';' /) C Arrays for sorting non-delimiters on a per-machine basis: ! INTEGER NDINDX ( NDELIM ) ! CHARACTER, SAVE :: DELIMSRT( NDELIM ) C Other local variables: INTEGER I, J, L, L1, L2 ! counters and indices INTEGER IXP ! index to non-delimiters INTEGER NCNT ! count of fields LOGICAL ALPHA ! true when within alpha-numeric LOGICAL DELIM ! true when within or past delimiter LOGICAL :: PREVDELIM = .TRUE. ! true when last char was a delim LOGICAL NUMBER ! true when within number in string LOGICAL QUOTED ! true when within quotes in string LOGICAL ISANMBR ! true if character is a numeral LOGICAL, SAVE :: FIRSTIME = .TRUE. ! true first time routine is called CHARACTER CBUF ! test buffer CHARACTER :: DOUBLEQ = '"' CHARACTER :: SINGLEQ = "'" CHARACTER :: PERIOD = '.' CHARACTER :: SPACE = ' ' CHARACTER QUOTVAL ! value of starting quote CHARACTER( 300 ) :: MESG ! message buffer CHARACTER( 16 ) :: PNAME = 'PARSLINE' ! procedure name C----------------------------------------------------------------------- C The first time the routine is called, sort the list of delimiters IF ( FIRSTIME ) THEN FIRSTIME = .FALSE. ! DO I = 1, NDELIM ! NDINDX( I ) = I ! END DO ! print *, ' ==d== insert a ', DELIMLST ! CALL SORTIC( NDELIM, NDINDX, DELIMLST ) ! print *, ' ==d== insert b ', DELIMLST ! DO I = 1, NDELIM ! J = NDINDX( I ) ! DELIMSRT( I ) = DELIMLST( J ) ! END DO ! print *, ' ==d== insert c ', DELIMSRT ! DELIMSRT = DELIMLST END IF L2 = LEN_TRIM( LINE ) C Check for comments, and use to set the end of the line L = INDEX( LINE( 1:L2 ), '!' ) IF ( L .LE. 0 ) THEN L = L2 ELSE L = L - 1 END IF C Skip blank lines IF ( L .EQ. 0 ) RETURN C Initialize count, flags, and segments (note, initializing in the variable C definitions is insufficient) NCNT = 0 SEGMENT = ' ' ! array ALPHA = .FALSE. DELIM = .TRUE. NUMBER = .FALSE. QUOTED = .FALSE. C Process LINE one character at a time DO I = 1, L CBUF = LINE( I:I ) C Look for character in delimiters IXP = FINDC( CBUF, NDELIM, DELIMLST ) C Evaluate the current character for number or not ISANMBR = ( CBUF .GE. '0' .AND. CBUF .LE. '9' ) C Waiting for next field... IF ( DELIM ) THEN NUMBER = ISANMBR ALPHA = ( .NOT. NUMBER .AND. IXP .LE. 0 ) IF ( CBUF .EQ. SINGLEQ ) THEN QUOTED = .TRUE. DELIM = .FALSE. QUOTVAL = SINGLEQ PREVDELIM = .FALSE. L1 = I + 1 NCNT = NCNT + 1 ELSE IF ( CBUF .EQ. DOUBLEQ ) THEN QUOTED = .TRUE. DELIM = .FALSE. QUOTVAL = DOUBLEQ PREVDELIM = .FALSE. L1 = I + 1 NCNT = NCNT + 1 ELSE IF ( ALPHA .OR. NUMBER ) THEN DELIM = .FALSE. PREVDELIM = .FALSE. L1 = I NCNT = NCNT + 1 C If another delimeter, then another field, but last field was blank C UNLESS delim is a space ELSE IF ( CBUF .NE. SPACE ) THEN IF ( PREVDELIM ) THEN NCNT = NCNT + 1 ELSE PREVDELIM = .TRUE. END IF END IF ! Else its a space delimiter C In a quoted field, skip everything unless it is an end quote ELSE IF ( QUOTED ) THEN IF ( CBUF .EQ. QUOTVAL ) THEN QUOTED = .FALSE. DELIM = .TRUE. PREVDELIM = .FALSE. L2 = I - 1 CALL STORE_SEGMENT( NCNT, N, L1, L2, LINE, SEGMENT( NCNT ) ) END IF C If start of field was a number, but adjacent character is not a delimiter, C then turn field into an alpha ELSE IF ( NUMBER .AND. .NOT. ISANMBR .AND. IXP .LE. 0 ) THEN ALPHA = .TRUE. NUMBER = .FALSE. C If start of field was a number or alpha, and this is a delimiter, then end C of number has been reached ELSE IF ( IXP .GT. 0 ) THEN ALPHA = .FALSE. NUMBER = .FALSE. DELIM = .TRUE. PREVDELIM = .TRUE. L2 = I - 1 CALL STORE_SEGMENT( NCNT, N, L1, L2, LINE, SEGMENT( NCNT ) ) END IF END DO C Store final segment IF ( CBUF .EQ. QUOTVAL ) L = L - 1 L2 = L IF ( IXP .LE. 0 ) THEN CALL STORE_SEGMENT( NCNT, N, L1, L2, LINE, SEGMENT( NCNT ) ) END IF RETURN C-------------------- Format Statements -------------------------------- 94010 FORMAT( 10( A, :, I8, :, 1X ) ) C------------------- Internal Subprogram ------------------------------- CONTAINS C Store the segment from the input string SUBROUTINE STORE_SEGMENT( NSEG, MXSEG, I1, I2, STRNG, SEGMNT ) IMPLICIT NONE INTEGER, INTENT( IN ) :: NSEG, MXSEG, I1, I2 CHARACTER( * ), INTENT( IN ) :: STRNG ! character string to parse CHARACTER( * ), INTENT( OUT ) :: SEGMNT ! parsed string CHARACTER( 128 ) :: MESG = ' ' CHARACTER( 16 ) :: PNAME = 'PARSLINE_STORE_S' ! procedure name IF ( NSEG .LE. MXSEG ) THEN SEGMNT = ADJUSTL( STRNG( I1:I2 ) ) ELSE MESG = 'ERROR: Overflow prevented while ' // & 'parsing line ' // PNAME CALL M3MSG2( MESG ) MESG = 'First 200 characters of line contents are:' CALL M3MSG2( MESG ) MESG = STRNG( 1:200 ) CALL M3MSG2( MESG ) MESG = 'Formatting problem' CALL M3EXIT( PNAME, 0, 0, MESG, 2 ) END IF END SUBROUTINE STORE_SEGMENT END SUBROUTINE PARSLINE ================================================ FILE: CCTM/src/biog/beis4/tmpbeis.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE TMPBEIS( JDATE, JTIME, TSTEP, BEIS_MAP, EMISL, L_DESID_DIAG ) C----------------------------------------------------------------------- C Description: C Computes hourly time stepped gridded biogenic emissions using C normalized gridded emissions from Normbeis3 (3.12) and postprocessed MM5 C meteorology. C Preconditions: C Postprocessed MM5 meteorology that contains temperature, C solar radiation, and pressure data. C Normalized gridded emissions BEIS_NORM_EMIS from Normbeis C Subroutines and Functions Called: C BEIS, HRNO, C CURRSTEP, HHMMSS, UPCASE, CHECKMEM, M3EXIT, M3MSG2, C WRITE3, OPEN3, CLOSE3, NEXTIME, TIME2SEC C Revision History: C 3/01: Prototype by Jeff Vukovich C Tested only on 36km Lambert domain C Summer/winter switch file option not tested C 8/04: Updated for BEIS v3.12 C 10/06: J.Young - CMAQ inline C - assumes first call is scenario start date/time C - optional integral average mass diagnostic emissions file C 10/09: J.Young - intel compiler problem; move last EMISS calculation as C separate assignment C 01/10: J.Young - move soil NO data and required input data processing to hrno C 01/10: D. Wong - Eliminate potential race condition at the MYPE = 0 C to open the diagnostic file. Eliminate the BARRIER C and the CLOSE3 and OPEN3. C 02/11: S.Roselle-Replaced I/O API include files with UTILIO_DEFN C 05/11: D.Wong-incorporated twoway model implementation C 07/14: J.Bash-Added meteorological variables needed for leaf temperature C calculations. C 08/14: J.Bash-Added backwards compatibility for earlier versions of MCIP C 07 Nov 14 J.Bash: Updated for the ASX_DATA_MOD shared data module. C 12 Aug 15 D.Wong: Replaced MYPE with IO_PE_INCLUSIVE for parallel I/O implementation C 07 May 18 D. Schwede: Removed call to CZANGLE. COSZEN now calculated in ASX_DATA_MOD C 01 Feb 19 D. Wong: Implemented centralized I/O approach, removed all MY_N clauses C----------------------------------------------------------------------- C Modified from: C Project Title: Sparse Matrix Operator Kernel Emissions (SMOKE) Modeling C System C File: @(#)$Id: tmpbeis.F,v 1.6 2011/10/21 16:10:18 yoj Exp $ C COPYRIGHT (C) 2004, Environmental Modeling for Policy Development C All Rights Reserved C Carolina Environmental Program C University of North Carolina at Chapel Hill C 137 E. Franklin St., CB# 6116 C Chapel Hill, NC 27599-6116 C smoke@unc.edu C Pathname: $Source: /project/yoj/arc/CCTM/src/biog/beis3/tmpbeis.F,v $ C Last updated: $Date: 2011/10/21 16:10:18 $ C----------------------------------------------------------------------- USE GRID_CONF ! horizontal & vertical domain specifications USE UTILIO_DEFN USE BIOG_EMIS ! beis USE centralized_io_module, only : AVGEMIS, interpolate_var Use ASX_DATA_MOD, only: MET_DATA #ifdef mpas USE util_module, only : hhmmss, time2sec #else #ifdef parallel USE SE_MODULES ! stenex (using SE_UTIL_MODULE) #else USE NOOP_MODULES ! stenex (using NOOP_UTIL_MODULE) #endif #endif IMPLICIT NONE C Includes: C Arguments: INTEGER, INTENT( IN ) :: JDATE ! current simulation date (YYYYDDD) INTEGER, INTENT( IN ) :: JTIME ! current simulation time (HHMMSS) INTEGER, INTENT( IN ) :: TSTEP( 3 ) ! timestep vector INTEGER, INTENT( IN ) :: BEIS_MAP( : ) ! mapping from beis3 to model species REAL, INTENT( OUT ) :: EMISL( :,:,: ) ! emissions in moles/sec LOGICAL, INTENT( IN ) :: L_DESID_DIAG ! flag determining whether or not DESID ! is in diagnostic mode C External Functions LOGICAL, EXTERNAL :: CHKGRID C Parameters: REAL, PARAMETER :: HR2SEC = 1.0 / 3600.0 C Gridded meteorology data: REAL, ALLOCATABLE, SAVE :: FSEAS( :,: ) ! Seasonal function C Gridded normalized emissions: REAL, ALLOCATABLE, SAVE :: SEMIS( :,:,: ) ! Normailized Beis emissions C Mole and mass factors: REAL MLFC, MSFC, EMPL C Diagnostic file avg factor REAL DIVFAC C BEIS3 internal, output species: REAL, ALLOCATABLE, SAVE :: EMPOL( :,:,: ) ! emissions of biogenic emissions (mechanism specific) REAL, ALLOCATABLE, SAVE :: BIPOL( :,:,: ) ! emissions of beis emissions (all beis BVOCs) REAL, ALLOCATABLE, SAVE :: NOPOL( :,: ) ! emissions of NO REAL, ALLOCATABLE, SAVE :: EMISS( :,:,: ) ! emissions in g/s C Logical names and unit numbers: CHARACTER( 16 ), SAVE :: SNAME ! logical name for diagnostic emis output (mass) CHARACTER( 16 ), SAVE :: NNAME ! logical name for normalized-emissions input CHARACTER( 16 ), SAVE :: GNAME ! logical name for GRID_CRO_2D CHARACTER( 16 ), SAVE :: BNAME ! logical name for frost switch input CHARACTER( 16 ), SAVE :: MNAME ! logical name for MET_CRO_2D C Other variables: INTEGER, SAVE :: IHR ! current simulation hour INTEGER IOS ! IO or memory allocation status INTEGER, SAVE :: LDATE ! previous simulation date INTEGER, SAVE :: MDATE ! test date to update beis diag avg INTEGER, SAVE :: MTIME ! test time to update beis diag avg INTEGER, SAVE :: NSTEPS ! run duration INTEGER, SAVE :: WSTEP = 0 ! local write counter INTEGER PARTYPE ! method number to calculate PAR INTEGER C, R, I, J, K, S ! loop counters and subscripts LOGICAL OK ! check flag LOGICAL, SAVE :: LASTTIC ! true: last sync step this output tstep LOGICAL, SAVE :: FIRSTIME = .TRUE. CHARACTER( 256 ) :: MESG ! message buffer CHARACTER( 256 ) :: EQNAME ! equivalent filename CHARACTER( 16 ) :: VAR ! variable name CHARACTER( 16 ) :: PNAME = 'TMPBEIS' ! prodedure name #ifdef verbose_tmpbeis REAL, ALLOCATABLE, SAVE :: EMISX( : ) INTEGER, ALLOCATABLE, SAVE :: CX( : ), RX( : ) #endif INTERFACE SUBROUTINE BEIS( JDATE, JTIME, NX, NY, MSPCS, SEMIS, BIPOL ) INTEGER, INTENT( IN ) :: JDATE INTEGER, INTENT( IN ) :: JTIME INTEGER, INTENT( IN ) :: NX INTEGER, INTENT( IN ) :: NY INTEGER, INTENT( IN ) :: MSPCS REAL, INTENT( IN ) :: SEMIS ( :,:,: ) REAL, INTENT( OUT ) :: BIPOL( :,:,: ) END SUBROUTINE BEIS SUBROUTINE HRNO( JDATE, JTIME, TSTEP, NOPOL, L_DESID_DIAG ) INTEGER, INTENT( IN ) :: JDATE INTEGER, INTENT( IN ) :: JTIME INTEGER, INTENT( IN ) :: TSTEP( 3 ) REAL, INTENT( OUT ) :: NOPOL( :,: ) LOGICAL, INTENT( IN ) :: L_DESID_DIAG END SUBROUTINE HRNO END INTERFACE C----------------------------------------------------------------------- IF ( FIRSTIME ) THEN FIRSTIME = .FALSE. C Determine last timestamp NSTEPS = RUNLEN / TSTEP( 1 ) ! initscen guarantees divisibility C Allocate seasonality array ALLOCATE( FSEAS( NCOLS,NROWS ), STAT=IOS ) CALL CHECKMEM( IOS, 'FSEAS', PNAME ) FSEAS = 0 ! array #ifndef mpas C Ensure met data time and grid for this run match beis emissions data files MNAME = PROMPTMFILE( & 'Enter name for gridded met input file', & FSREAD3, 'MET_CRO_2D', PNAME ) C Get description of met file IF ( .NOT. DESC3( MNAME ) ) THEN MESG = 'Could not get description of file "' & // TRIM( MNAME ) // '"' CALL M3EXIT( PNAME, JDATE, JTIME, MESG, XSTAT2 ) END IF C Check that grid description matches BGRD file IF ( .NOT. CHKGRID( MNAME ) ) THEN MESG = 'Grid in file "' // TRIM( MNAME ) & // '" does not match previously set grid.' CALL M3WARN( PNAME, 0, 0, MESG ) END IF IF ( BEMIS_DIAG ) THEN C Build description for, and open beis diagnostic file MDATE = STDATE; MTIME = STTIME CALL NEXTIME( MDATE, MTIME, TSTEP( 1 ) ) GDNAM3D = GRID_NAME ! from HGRD_DEFN SDATE3D = MDATE STIME3D = MTIME TSTEP3D = TSTEP( 1 ) NCOLS3D = GL_NCOLS NROWS3D = GL_NROWS NLAYS3D = 1 NTHIK3D = 1 GDTYP3D = GDTYP_GD P_ALP3D = P_ALP_GD P_BET3D = P_BET_GD P_GAM3D = P_GAM_GD XORIG3D = XORIG_GD YORIG3D = YORIG_GD XCENT3D = XCENT_GD YCENT3D = YCENT_GD XCELL3D = XCELL_GD YCELL3D = YCELL_GD VGTYP3D = VGTYP_GD VGTOP3D = VGTOP_GD DO I = 1, NLAYS3D + 1 VGLVS3D( I ) = VGLVS_GD( I ) END DO J = 0 DO I = 1, MSPCS IF ( BEIS_MAP( I ) .GT. 0 ) THEN J = J + 1 VNAME3D( J ) = EMSPC( I ) VDESC3D( J ) = 'biogenic emissions of the indicated species' VTYPE3D( J ) = M3REAL UNITS3D( J ) = 'gm s-1' END IF END DO NVARS3D = J FDESC3D = ' ' ! array FDESC3D( 1 ) = 'Gridded biogenic emissions from CMAQ-BEIS3' FDESC3D( 2 ) = '/from/ ' // PNAME FDESC3D( 3 ) = '/Version/ CMAQ' C Open mass output file (tons/hour) SNAME = 'B3GTS_S' CALL SUBST_BARRIER IF ( IO_PE_INCLUSIVE ) THEN IF ( .NOT. OPEN3( SNAME, FSNEW3, PNAME ) ) THEN MESG = 'Could not open "' // TRIM( SNAME ) // '" file' CALL M3EXIT( PNAME, JDATE, JTIME, MESG, XSTAT1 ) END IF END IF END IF #endif C Allocate memory for arrays ALLOCATE( EMPOL( NCOLS,NROWS,NSEF ), STAT=IOS ) CALL CHECKMEM( IOS, 'EMPOL', PNAME ) ALLOCATE( BIPOL( NCOLS,NROWS,NSEF-1 ), STAT=IOS ) CALL CHECKMEM( IOS, 'BIPOL', PNAME ) ALLOCATE( NOPOL( NCOLS,NROWS ), STAT=IOS ) CALL CHECKMEM( IOS, 'NOPOL', PNAME ) IF ( BEMIS_DIAG ) THEN ALLOCATE( EMISS( NCOLS,NROWS,MSPCS ), STAT=IOS ) CALL CHECKMEM( IOS, 'EMISS', PNAME ) END IF ALLOCATE( SEMIS( NCOLS,NROWS,NSEF-1 ), STAT=IOS ) CALL CHECKMEM( IOS, 'SEMIS', PNAME ) LDATE = 0 #ifdef verbose_tmpbeis ALLOCATE( EMISX( MSPCS ), STAT=IOS ) CALL CHECKMEM( IOS, 'EMISX', PNAME ) ALLOCATE( CX( MSPCS ), STAT=IOS ) CALL CHECKMEM( IOS, 'CX', PNAME ) ALLOCATE( RX( MSPCS ), STAT=IOS ) CALL CHECKMEM( IOS, 'RX', PNAME ) #endif #ifndef mpas IF ( BEMIS_DIAG ) THEN EMISS = 0.0 ! array #ifdef parallel_io IF ( .NOT. IO_PE_INCLUSIVE ) THEN IF ( .NOT. OPEN3( SNAME, FSREAD3, PNAME ) ) THEN MESG = 'Could not open ' // TRIM(SNAME) CALL M3EXIT( PNAME, JDATE, JTIME, MESG, XSTAT2 ) END IF END IF #endif END IF #endif END IF ! FIRSTIME C Loop thru the number of time steps (hourly) EMISL = 0.0 ! array EMPOL = 0.0 ! array #ifdef verbose_tmpbeis EMISX = 0.0 ! array #endif IF ( JDATE .NE. LDATE ) THEN CALL WRDAYMSG( JDATE, MESG ) C calculate fseas based on deep soil temperature following WRF 3.8.1 PX Where( Met_Data%SOIT2 .Lt. 290.0 .And. Met_Data%SOIT2 .Gt. 282.0 ) FSEAS = 1.0 - 0.015625 * ( 290.0 - Met_Data%SOIT2 ) ** 2 Elsewhere( Met_Data%SOIT2 .Ge. 290.0 ) FSEAS = 1.0 Elsewhere FSEAS = 0.0 End where DO S = 1, NSEF-1 ! normalized emission factors SEMIS( :,:,S ) = FSEAS * AVGEMIS( :,:,S,NSUMMER ) + ! Deciduous fraction & ( 1.0 - FSEAS ) * AVGEMIS( :,:,S,NWINTER ) ! Evergreen fraction END DO END IF ! if new day WRITE( MESG,94030 ) HHMMSS( JTIME ) CALL M3MSG2( MESG ) #ifndef mpas C repopulate the met_cro_2d variable attributes IF ( .NOT. DESC3( MNAME ) ) THEN MESG = 'Could not get description of file "' & // TRIM( MNAME ) // '"' CALL M3EXIT( PNAME, JDATE, JTIME, MESG, XSTAT2 ) END IF #endif C Calculate temporal non-speciated beis emissions CALL BEIS( JDATE, JTIME, NCOLS, NROWS, MSPCS, SEMIS, BIPOL ) C Calculate temporal non-speciated soil NO emissions CALL HRNO( JDATE, JTIME, TSTEP, NOPOL, L_DESID_DIAG ) EMPOL( :,:,1:NSEF-1 ) = BIPOL EMPOL( :,:,NSEF ) = NOPOL C Speciate emissions DO K = 1, NSEF DO R = 1, NROWS DO C = 1, NCOLS EMPL = EMPOL( C,R,K ) * HR2SEC IF ( EMPL .GT. 0.0 ) & EMISL( :,C,R ) = EMISL( :,C,R ) + EMPL * MLFAC( :,K ) END DO END DO END DO #ifdef verbose_tmpbeis WRITE( LOGDEV,* ) ' ' WRITE( LOGDEV,* ) ' from TMPBEIS' WRITE( LOGDEV,* ) ' Spc EMISL MaxC MaxR' DO S = 1, MSPCS WRITE( LOGDEV,'( 4X, I3, F10.5, 2I4 )' ) S, EMISX( S ), CX( S ), RX( S ) END DO EMISX = 0.0 ! array WRITE( LOGDEV,* ) ' ' WRITE( LOGDEV,* ) ' from TMPBEIS' WRITE( LOGDEV,* ) ' Spc SpcName Pol MLFAC EMPOL EMISL( Spc,32,7 )' C = 32; R = 7 DO K = 1, NSEF EMPL = EMPOL( C,R,K ) * HR2SEC IF ( EMPL .LE. 0.0 ) CYCLE DO S = 1, MSPCS IF ( BEIS_MAP( S ) .GT. 0 ) THEN MLFC = MLFAC( S,K ) EMISX( S ) = EMISX( S ) + EMPL * MLFC IF ( MLFC .NE. 0.0 ) & WRITE( LOGDEV,'( 4X, I3, 2X, A6, 2X, I3, 1X, 3( 1PE10.3 ) )' ) & S, EMSPC( S ), K, MLFC, EMPL, EMISX( S ) END IF END DO END DO #endif IF ( BEMIS_DIAG .AND. .NOT. L_DESID_DIAG ) THEN WSTEP = WSTEP + TIME2SEC( TSTEP( 2 ) ) LASTTIC = ( WSTEP .GE. TIME2SEC( TSTEP( 1 ) ) ) #ifndef mpas DO K = 1, NSEF DO S = 1, MSPCS ! Unit conversion for the emission and fraction of the sync time step to the output time step MSFC = MSFAC( S,K ) * FLOAT( TIME2SEC( TSTEP( 2 ) ) ) / FLOAT( TIME2SEC( TSTEP( 1 ) ) ) ! Add the emission for the model output time step EMISS( :,:,S ) = EMISS( :,:,S ) + EMPOL( :,:,K ) * MSFC END DO END DO IF ( LASTTIC ) THEN EMISS = EMISS * HR2SEC ! convert from gm/h to gm/s DO S = 1,MSPCS IF ( BEIS_MAP( S ) .GT. 0 ) THEN IF ( .NOT. WRITE3( SNAME, EMSPC( S ), MDATE, MTIME, EMISS(:,:,S) ) ) THEN MESG = 'Could not write to output file "' // TRIM( SNAME ) // '"' CALL M3EXIT( PNAME, JDATE, JTIME, MESG, XSTAT2 ) END IF END IF END DO WRITE( LOGDEV,94040 ) & 'Timestep written to', SNAME, & 'for date and time', MDATE, MTIME EMISS = 0.0 ! array WSTEP = 0 CALL NEXTIME( MDATE, MTIME, TSTEP( 1 ) ) END IF END IF #endif C Save date LDATE = JDATE RETURN C------------------ FORMAT STATEMENTS ------------------------------ 94010 FORMAT( 10( A, ':', I8, ':', 1X ) ) 94020 FORMAT( 1X, I7, ":", I6.7 ) 94030 FORMAT( 5X, 'Temporal BEIS at time ', A8 ) 94040 FORMAT( /5X, 3( A, :, 1X ), I8, ":", I6.6 ) END SUBROUTINE TMPBEIS ================================================ FILE: CCTM/src/biog/beis4/wrdaymsg.f ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/CCTM/src/biog/beis3/wrdaymsg.f,v 1.3 2011/10/21 16:10:18 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% C:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE WRDAYMSG( JDATE, MESG ) C----------------------------------------------------------------------- C Description: C Writes a text message to stdout and log file about which day is C being processed C Preconditions: C Subroutines and Functions Called: C Revision History: C Created 9/99 by M. Houyoux C 02/11: S.Roselle-Replaced I/O API include files with UTILIO_DEFN C----------------------------------------------------------------------- C Modified from: C Project Title: Sparse Matrix Operator Kernel Emissions (SMOKE) Modeling System C File: @(#)$Id: wrdaymsg.f,v 1.3 2011/10/21 16:10:18 yoj Exp $ C COPYRIGHT (C) 2002, MCNC Environmental Modeling Center C All Rights Reserved C See file COPYRIGHT for conditions of use. C Environmental Modeling Center C MCNC C P.O. Box 12889 C Research Triangle Park, NC 27709-2889 C smoke@emc.mcnc.org C Pathname: $Source: /project/yoj/arc/CCTM/src/biog/beis3/wrdaymsg.f,v $ C Last updated: $Date: 2011/10/21 16:10:18 $ C----------------------------------------------------------------------- USE UTILIO_DEFN IMPLICIT NONE C Includes: C External Functions: C Arguments: INTEGER , INTENT( IN ) :: JDATE ! Julian date CHARACTER( * ), INTENT( OUT ) :: MESG ! message buffer C Parameters: CHARACTER( 9 ), PARAMETER :: WKDAYS( 7 ) = & ( / 'Monday ', 'Tuesday ', 'Wednesday', 'Thursday ', & 'Friday ', 'Saturday ', 'Sunday ' / ) C Local variables: INTEGER DAY ! day of week number INTEGER L ! length of day name CHARACTER( 16 ) :: PNAME = 'WRDAYMSG' ! procedure name C----------------------------------------------------------------------- DAY = WKDAY( JDATE ) L = LEN_TRIM( WKDAYS( DAY ) ) MESG = '>>> Processing ' // WKDAYS( DAY )( 1:L ) // ' ' // MMDDYY( JDATE ) CALL M3MSG2( MESG ) RETURN END SUBROUTINE WRDAYMSG ================================================ FILE: CCTM/src/biog/megan3/BDSNP_MOD.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! continuous development by various groups and is based on information ! from these groups: Federal Government employees, contractors working ! within a United States Government contract, and non-Federal sources ! including research institutions. These groups give the Government ! permission to use, prepare derivative works of, and distribute copies ! of their work in the CMAQ system to the public and to permit others ! to do so. The United States Environmental Protection Agency ! therefore grants similar permission to use the CMAQ system software, ! but users are requested to provide copies of derivative works or ! products designed to operate in the CMAQ system to the United States ! Government without restrictions as to use by others. Software ! that is used with the CMAQ system but distributed under the GNU ! General Public License or the GNU Lesser General Public License is ! subject to their copyright restrictions. !------------------------------------------------------------------------! C Adopted from CMAQ files and modified for MEGAN3.1 by Ling Huang C 2019/07/15 C Adopted from MEGAN3.1 and modified for CMAQ 5.4 by Jeff Willison MODULE BDSNP_MOD USE centralized_io_util_module USE HGRD_DEFN USE ASX_DATA_MOD, ONLY: MET_DATA,GRID_DATA USE RUNTIME_VARS, ONLY: NEW_START, PX_LSM, MGN_ONLN_DEP, IGNORE_SOILINP IMPLICIT NONE CONTAINS C:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE HRNOBDSNP( JDATE, JTIME, TSTEP,MONTH, & L_DESID_DIAG, SOILM, SOILT, RSTYP,LAI, & BDSNP_NO ) USE RUNTIME_VARS, ONLY: STTIME,STDATE,RUNLEN,LOGDEV USE PHOT_MOD, ONLY: CFRAC_2D_AVE USE UTILIO_DEFN #ifdef mpas use mio_module use util_module, only : TIME2SEC, secsdiff, nextime #else #ifdef parallel USE SE_MODULES ! stenex (using SE_UTIL_MODULE) #else USE NOOP_MODULES ! stenex (using NOOP_UTIL_MODULE) #endif #endif USE centralized_io_module, only: bdsnp_ndep,bdsnp_landtype, & bdsnp_arid,bdsnp_nonarid,bdsnp_fert, & soilmprev,ndepres,ndeprate,dryperiod,pfactor IMPLICIT NONE C Arguments: INTEGER, INTENT( IN ) :: JDATE ! current simulation date (YYYYDDD) INTEGER, INTENT( IN ) :: JTIME ! current simulation time (HHMMSS) INTEGER, INTENT( IN ) :: MONTH ! current simulation month INTEGER, INTENT( IN ) :: TSTEP( 3 ) ! time step vector (HHMMSS) LOGICAL, INTENT( IN ) :: L_DESID_DIAG INTEGER, INTENT( IN ) :: RSTYP ( NCOLS,NROWS ) ! soil type REAL, INTENT( IN ) :: SOILM ( NCOLS,NROWS ) ! soil moisture [m3/m3] (PX) REAL, INTENT( IN ) :: SOILT ( NCOLS,NROWS ) ! soil temperature [K] (PX) REAL, INTENT( IN ) :: LAI ( NCOLS,NROWS ) ! leaf area index (m2/m2) REAL, INTENT( OUT ) :: BDSNP_NO ( NCOLS,NROWS ) ! output NO emissions in nanomol/m^2/s C Parameters: ! Value calculated by running the 2x2.5 GEOS-Chem model REAL*8, PARAMETER :: TAU_MONTHS = 6. ! this is the decay time for dep. N reservoir, fert is 4 months REAL*8, PARAMETER :: SECPERDAY = 86400.d0 REAL*8, PARAMETER :: DAYSPERMONTH = 30. REAL*8, PARAMETER :: TAU_SEC = TAU_MONTHS * DAYSPERMONTH * SECPERDAY ! New soil biomes based on Steinkamp et al., 2011 INTEGER, PARAMETER :: NSOIL = 24 ! Canopy wind extinction coefficients ! (cf. Yienger & Levy [1995], Sec 5), now a function of the MODIS/KOPPEN biometype (J.D. Maasakkers) REAL*8, PARAMETER :: SOILEXC(NSOIL) = (/ & 0.10, 0.50, 0.10, 0.10, 0.10, & 0.10, 0.10, 0.10, 0.10, 1.00, & 1.00, 1.00, 1.00, 2.00, 4.00, & 4.00, 4.00, 4.00, 4.00, 4.00, & 4.00, 2.00, 0.10, 2.00 /) ! Steinkamp and Lawrence, 2011 A values, wet biome coefficients ! for each of the 24 soil biomes [ng N/m2/s] REAL*8, PARAMETER :: A_BIOME(NSOIL) = (/ & 0.00, 0.00, 0.00, 0.00, 0.00, 0.06, 0.09, 0.09, 0.01, & 0.84, 0.84, 0.24, 0.42, 0.62, 0.03, 0.36, 0.36, 0.35, & 1.66, 0.08, 0.44, 0.57, 0.57, 0.57 /) C Saturation values from ASX. For PX see: C Jacquemin B. and Noilhan J. (1990), Bound.-Layer Meteorol., 52, 93-134. C Local Variables: CHARACTER( 16 ), SAVE :: SOILINSTATE = 'SOILINSTATE' ! logical name for input NO soil data, restart file CHARACTER( 16 ), SAVE :: SOILOUT = 'BDSNPOUT' ! logical name for output NO soil data - same format as soilinstate integer, save :: output_step, half_syn_step ! values are in seconds CHARACTER (20) :: TIME_STAMP C Land use files for BDSNP: both time independant in CMAQ sense and absolutely - e.g. fertilizer does not vary with year CHARACTER( 16 ) :: VAR ! variable name REAL, ALLOCATABLE, SAVE :: FERT ( :,: ) ! "ng N m-2" already - reservoir C Gridded Canopy NOx reduction factor for BDSNP Soil NO calculations REAL, ALLOCATABLE, SAVE :: CRF ( :,: ) ! 0-1 REAL, ALLOCATABLE, SAVE :: CFRAC ( :,: ) ! 0-1 C --- diagnostic variables, can be removed in final version REAL, ALLOCATABLE, SAVE :: CRFAVG ( :,: ) ! 0-1 REAL, ALLOCATABLE, SAVE :: PULSEAVG ( :,: ) ! 1+ REAL, ALLOCATABLE, SAVE :: BASESUM ( :,: ) ! used in calculating the above two averages REAL, ALLOCATABLE, SAVE :: THETA_DIAG( :,: ) ! diagnositc theta REAL, ALLOCATABLE, SAVE :: WET_DIAG ( :,: ) ! diagnositc wet term REAL, ALLOCATABLE, SAVE :: TEMP_DIAG ( :,: ) ! diagnositc temp term REAL, ALLOCATABLE, SAVE :: A_DIAG ( :,: ) ! diagnositc biome base emissions term REAL, ALLOCATABLE, SAVE :: AFERT_DIAG ( :,: ) ! diagnositc fert emissions term REAL, ALLOCATABLE, SAVE :: NRES_FERT_DIAG ( :,: ) ! diagnositc nres fert REAL, ALLOCATABLE, SAVE :: NRES_DEP_DIAG ( :,: ) ! diagnositc nres dep C --------------------------------------------------------------------------- REAL, SAVE :: EMPOL,EMPOLSUM, EMPOLAVG ! use to check reasonableness of results, g/hr REAL, SAVE :: TIMECHECK ! use to output CPU_TIME(TIMECHECK) to see if this section of code is running unreasonably long INTEGER, SAVE :: EDATE ! end scenario date INTEGER, SAVE :: ETIME ! end scenario time INTEGER, SAVE :: NDATE ! test date to update rainfall INTEGER, SAVE :: NTIME ! test time to update rainfall INTEGER, SAVE :: SDATE ! scenario start date INTEGER, SAVE :: STIME ! scenario start time LOGICAL, SAVE :: PX_VERSION ! true: use PX version of MCIP; should always be true INTEGER SOILCAT ! soil category INTEGER NSTEPS ! run duration (HHMMSS) INTEGER, SAVE :: MSTEPS ! run no. of steps INTEGER I, J, K, R, C, L ! counters CHARACTER*3 CHARDAY CHARACTER*2 CHARMON LOGICAL OK INTEGER IOS ! IO or memory allocation status C REAL, SAVE :: EFAC REAL TEMP_TERM REAL WET_TERM REAL PULSE REAL A_FERT REAL CRF_TERM REAL SOILNOX, FERTDIAG C REAL CFNO ! NO correction factor C REAL CFNOGRASS ! NO correction factor for grasslands C REAL TAIR ! surface temperature C REAL TSOI ! soil temperature REAL THETA ! water filled pore space REAL THETAPREV C REAL CFNOWET, THETA C REAL FAC1, FAC2, FAC3, FAC4 LOGICAL, SAVE :: USE_SOILT = .TRUE. ! use soil temperature in PX version ! rather than estimate as in BEIS2 LOGICAL, SAVE :: FIRSTIME = .TRUE. CHARACTER( 256 ) :: MESG ! message buffer CHARACTER( 16 ) :: PNAME = 'BDSNPHRNO' ! procedure name C----------------------------------------------------------------------- IF ( FIRSTIME ) THEN FIRSTIME = .FALSE. ! we need to initialize and allocate: ! pulse ! length of dry period ! soil moisture of previous time step ! N reservoir, deposition only ! These values can be provided from a restart file. The restart file is 'timeless'. ! This means CMAQ isn't checking to see if the restart file is actually from ! the immediately prior timstep. C Determine last timestamp EDATE = STDATE; ETIME = STTIME CALL NEXTIME( EDATE, ETIME, RUNLEN ) ! end date & time C ! make sure it only runs with PX version IF( .NOT. PX_LSM ) THEN MESG = "BDSNP Soil NO is only compatible with PX version" CALL M3EXIT( PNAME, JDATE, JTIME, MESG, 2) END IF C Allocate memory for data and read #ifdef mpas output_step = time2sec(tstep(1)) half_syn_step = time2sec(tstep(2)) / 2 #endif ALLOCATE( FERT( NCOLS,NROWS ), STAT=IOS ) CALL CHECKMEM( IOS, 'FERT', PNAME ) ALLOCATE( CFRAC( NCOLS,NROWS ), STAT=IOS ) CALL CHECKMEM( IOS, 'CFRAC', PNAME ) ALLOCATE( CRF( NCOLS,NROWS ), STAT=IOS ) CALL CHECKMEM( IOS, 'CRF', PNAME ) ALLOCATE( CRFAVG( NCOLS,NROWS ), STAT=IOS ) CALL CHECKMEM( IOS, 'CRFAVG', PNAME ) ALLOCATE( PULSEAVG( NCOLS,NROWS ), STAT=IOS ) CALL CHECKMEM( IOS, 'PULSEAVG', PNAME ) ALLOCATE( BASESUM( NCOLS,NROWS ), STAT=IOS ) CALL CHECKMEM( IOS, 'BASESUM', PNAME ) C ------ Diagnostics ----------------------------------- ALLOCATE( THETA_DIAG( NCOLS,NROWS ), STAT=IOS ) CALL CHECKMEM( IOS, 'THETA_DIAG', PNAME ) ALLOCATE( WET_DIAG( NCOLS,NROWS ), STAT=IOS ) CALL CHECKMEM( IOS, 'WET_DIAG', PNAME ) ALLOCATE( TEMP_DIAG( NCOLS,NROWS ), STAT=IOS ) CALL CHECKMEM( IOS, 'TEMP_DIAG', PNAME ) ALLOCATE( A_DIAG( NCOLS,NROWS ), STAT=IOS ) CALL CHECKMEM( IOS, 'A_DIAG(', PNAME ) ALLOCATE( AFERT_DIAG( NCOLS,NROWS ), STAT=IOS ) CALL CHECKMEM( IOS, 'AFERT_DIAG', PNAME ) ALLOCATE( NRES_FERT_DIAG( NCOLS,NROWS ), STAT=IOS ) CALL CHECKMEM( IOS, 'NRES_FERT_DIAG', PNAME ) ALLOCATE( NRES_DEP_DIAG( NCOLS,NROWS ), STAT=IOS ) CALL CHECKMEM( IOS, 'NRES_DEP_DIAG', PNAME ) C----------------------------------------------------------------------------- C Initial run if the model hasnt been run before, otherwise use a restart file C to determine DRYPERIOD, pulse state, prev. timestep soil moisture, and N reservoir. C If initial run, initialize some variables, otherwise get them from file IF ( NEW_START .or. IGNORE_SOILINP) THEN PFACTOR = 1d0 ! array DRYPERIOD = 0.01 ! array initialized non-zero to avoid log(0) CFRAC = 0. SOILMPREV = 0d0 ! array FERT = 0d0 ! array EMPOL = 0d0 EMPOLSUM = 0d0 EMPOLAVG = 0d0 BASESUM = 0.0 CRFAVG = 0.0 PULSEAVG = 0.0 NDEPRES = 0d0 ! array C open nitrogen deposition file if (.not. MGN_ONLN_DEP) THEN ndeprate = bdsnp_ndep(:,:,month) ! optional for using offline NDEP ! instead of online NDEP ! When using online deposition there is no attempt to shorten the ! spin up time so we do not initialize this. end if !attempt to use steady state condition to reduce spin up time by setting dN/dt = 0 !or NDEPRES = Dep rate * tau, the decay time DO R = 1, NROWS DO C = 1, NCOLS NDEPRES( C,R ) = NDEPRATE( C,R )*TAU_SEC C check for negatives IF( NDEPRES(C,R) .lt. 0.0 ) THEN Write(MESG,*) 'NDEPRES negative', NDEPRES, ' ',NDEPRATE(C,R) CALL M3EXIT( PNAME, JDATE, JTIME, MESG, 2 ) ELSE IF( NDEPRATE(C,R) .lt. 0.0 ) THEN Write(MESG,*) 'NDEPRATE negative', NDEPRES,' ',NDEPRATE(C,R) CALL M3EXIT( PNAME, JDATE, JTIME, MESG, 2 ) END IF END DO END DO ELSE ! SOILINSTATE file available for NDEPRES BASESUM = 0.0 CRFAVG = 0.0 PULSEAVG = 0.0 EMPOLSUM = 0d0 if (.not. MGN_ONLN_DEP) THEN ndeprate = bdsnp_ndep(:,:,month) ! For using offline NDEP ! instead of online NDEP end if END IF ! initial run check END IF ! FIRSTIME #ifdef mpas IF ( MOD((TIME2SEC( JTIME ) - half_syn_step), output_step) .EQ. 0 .and. .not. l_desid_diag) GOTO 9999 #else IF (SECSDIFF(JDATE,JTIME,EDATE,ETIME) .LE. TIME2SEC(TSTEP(2)) .and. .not. L_DESID_DIAG) GOTO 9999 #endif #ifdef twoway ! CFRAC for offline comes from MCIP but that's unavailable in twoway mode if (.not. allocated(CFRAC_2D_AVE)) then CFRAC = Met_Data%CFRAC ! write(6,'(a,es14.2)')'MaxVal cfrac = ',MAXVAL(cfrac) ! write(logdev,'(a,es14.2)')'MaxVal cfrac = ',MAXVAL(cfrac) else CFRAC = CFRAC_2D_AVE end if #else CFRAC = Met_Data%CFRAC #endif C read day dependant fertilizer reservoir e.g. Potter et al 2010 C get the days fertilizer fert = bdsnp_fert C Fertilizer N reservoir already calculated and read from file, update deposition reservoir from dep rate DO R = 1, NROWS DO C = 1, NCOLS CALL GET_NDEPRES( TSTEP, NDEPRES( C,R ), & TAU_SEC, C, R,L_DESID_DIAG) END DO END DO C Calculate temporal non-speciated soil NO emissions to EMPOL C If False Dont do any calculations to test - replicate 0 output IF( .TRUE. ) THEN CALL GET_CANOPY_NOX(JDATE, JTIME, Met_Data%COSZEN, & MET_DATA%TEMP2, MET_DATA%RGRND, met_data%PRSFC, & BDSNP_LANDTYPE, LAI, Met_Data%SNOCOV, CFRAC, Met_Data%WSPD10, CRF) DO R = 1, NROWS DO C = 1, NCOLS SOILNOX = 0d0 FERTDIAG = 0d0 K = BDSNP_LANDTYPE( C,R ) !Skip LANDTYPE not present ! Temperature-dependent term of soil NOx emissions ! [unitless] ! Uses PX soil temperature instead of inferring from air ! temperature TEMP_TERM = SOILTEMP( SOILT(C,R) ) ! Use THETA instead of boolean wet/dry climate SOILCAT = INT( RSTYP( C,R ) ) IF ( SOILCAT .NE. 14) THEN !not water THETA = SOILM( C,R ) / Grid_Data%WSAT( C,R ) THETAPREV = SOILMPREV( C,R ) / Grid_Data%WSAT( C,R ) ! Soil moisture scaling of soil NOx emissions WET_TERM = SOILWET( THETA , BDSNP_ARID( C,R ), BDSNP_NONARID( C,R )) ELSE WET_TERM = 0d0 THETA = 0d0 THETAPREV = 0d0 END IF ! Cumulative multiplication factor (over baseline emissions) ! that accounts for soil pulsing C PFACTOR( C,R ) = PULSING( THETA, TSTEP, THETAPREV, C & PFACTOR( C,R ), DRYPERIOD( C,R ) ) PULSE = PULSING( L_DESID_DIAG, THETA, TSTEP, THETAPREV, & PFACTOR( C,R ), DRYPERIOD( C,R ) ) A_FERT = FERTADD( FERT( C,R ) , NDEPRES( C,R ) ) !adds reservoirs returns emission rates ! Canopy reduction factor CRF_TERM = CRF( C,R ) C CRF_TERM = SOILCRF( K, LAI, C & R_CANOPY(K), C & WINDSQR, SUNCOS ) ! SOILNOX includes fertilizer SOILNOX = ( A_BIOME(K) + A_FERT ) !don't forget to check parenthesis when uncommenting & * ( TEMP_TERM * WET_TERM * PULSE ) & * ( 1.d0 - CRF_TERM ) ! FERTDIAG, only used for the fertilizer diagnostic, note ! includes DEP ! not actually used for anything at the moment, only ! diagnostics FERTDIAG = ( A_FERT ) & * ( TEMP_TERM * WET_TERM * PULSE ) & * ( 1.d0 - CRF_TERM ) C END IF !LANDTYPE check C ENDDO !scale emissions EMPOL = SOILNOX * 3600.0 * 1.0e-9 ! [ng N/m2/s] * s/hr * g/ng BDSNP_NO(C,R) = SOILNOX / 14 ! [nmol/m2/s] ! sum various quantities for daily averaging EMPOLSUM = EMPOLSUM + EMPOL BASESUM(C,R) = BASESUM(C,R) + ( A_BIOME(K) + A_FERT ) & * ( TEMP_TERM * WET_TERM) & * 3600.0 * 1.0e-9 ! [ng N/m2/s] * s/hr * g/ng PULSEAVG(C,R) = PULSEAVG(C,R) + ( A_BIOME(K) + A_FERT ) & * ( TEMP_TERM * WET_TERM * PULSE ) & * 3600.0 * 1.0e-9 ! [ng N/m2/s] * s/hr * g/ng CRFAVG(C,R) = CRFAVG(C,R) + ( A_BIOME(K) + A_FERT ) & * ( TEMP_TERM * WET_TERM ) & * ( 1.d0 - CRF_TERM ) & * 3600.0 * 1.0e-9 ! [ng N/m2/s] * s/hr * g/ng C--------- MORE DIAGNOSTICS --------------------------------- A_DIAG( C,R ) = A_BIOME(K) AFERT_DIAG( C,R ) = A_FERT NRES_FERT_DIAG( C,R ) = FERT( C,R ) NRES_DEP_DIAG( C,R ) = NDEPRES( C,R ) WET_DIAG( C,R ) = WET_TERM THETA_DIAG( C,R ) = THETA TEMP_DIAG( C,R ) = TEMP_TERM C ----------------------------------------------------- END DO ! columns END DO ! rows #ifdef mpas IF ( MOD( NTIME, 10000 ) .EQ. 0 ) THEN ! at the hourly mark call mio_time_format_conversion (jdate, jtime, time_stamp) call mio_fwrite('BDSNP_DIAG','A_DIAG','BDSNP_MOD', & a_diag(:,1),time_stamp) call mio_fwrite('BDSNP_DIAG','AFERT_DIAG','BDSNP_MOD', & afert_diag(:,1),time_stamp) call mio_fwrite('BDSNP_DIAG','NRES_FERT_DIAG','BDSNP_MOD', & nres_fert_diag(:,1),time_stamp) call mio_fwrite('BDSNP_DIAG','NRES_DEP_DIAG','BDSNP_MOD', & nres_dep_diag(:,1),time_stamp) call mio_fwrite('BDSNP_DIAG','WET_DIAG','BDSNP_MOD', & wet_diag(:,1),time_stamp) call mio_fwrite('BDSNP_DIAG','TEMP_DIAG','BDSNP_MOD', & temp_diag(:,1),time_stamp) ENDIF #endif ELSE ! add things until it dies WRITE( MESG,*) 'BDSNP testing terms' !!CALL M3MESG(MESG) DO R = 1, NROWS DO C = 1, NCOLS K = BDSNP_LANDTYPE( C,R ) !Skip LANDTYPE not present ! Temperature-dependent term of soil NOx emissions ! [unitless] ! Uses PX soil temperature instead of inferring from air ! temperature TEMP_TERM = SOILTEMP( SOILT(C,R) ) ! Use THETA instead of boolean wet/dry climate SOILCAT = INT( RSTYP( C,R ) ) IF ( SOILCAT .NE. 14) THEN !not water THETA = SOILM( C,R ) / Grid_Data%WSAT(C,R) THETAPREV = SOILMPREV( C,R ) / Grid_Data%WSAT(C,R) ! Soil moisture scaling of soil NOx emissions WET_TERM = SOILWET( THETA , BDSNP_ARID( C,R ), BDSNP_NONARID( C,R )) ELSE WET_TERM = 0d0 THETA = 0d0 THETAPREV = 0d0 END IF ! Cumulative multiplication factor (over baseline emissions) ! that accounts for soil pulsing C PFACTOR( C,R ) = PULSING( THETA, TSTEP, THETAPREV, C & PFACTOR( C,R ), DRYPERIOD( C,R ) ) PULSE = PULSING( L_DESID_DIAG, THETA, TSTEP, THETAPREV, & PFACTOR( C,R ), DRYPERIOD( C,R ) ) END DO END DO END IF ! end do nothing test if SOILMPREV = SOILM !save soilM array to soilMprev for next time step MESG = 'BDSNP calculated emissions' !CALL M3MESG(MESG) CALL CPU_TIME(TIMECHECK) WRITE(MESG,*) 'PROCESS TOOK:', TIMECHECK, 'SECONDS' !CALL M3MESG(MESG) EMPOLAVG = EMPOLSUM/FLOAT(NCOLS*NROWS) WRITE( MESG,*) 'average value:', EMPOLAVG !CALL M3MESG(MESG) EMPOLSUM = 0d0 !array RETURN ! IF ( SECSDIFF( JDATE,JTIME, EDATE,ETIME ) .GT. TIME2SEC( TSTEP( 2 ) ) .OR. L_DESID_DIAG) RETURN 9999 CONTINUE C Create soil NO state save file at the end of the run for restart purposes C Final timestamp NDATE = EDATE; NTIME = ETIME ! Avoid divide by zero over water where BASESUM = 0 WHERE ( BASESUM .eq. 0) BASESUM = 1.0 CRFAVG = CRFAVG/BASESUM PULSEAVG = PULSEAVG/BASESUM WHERE ( CRFAVG .gt. 100 ) CRFAVG = 0.0 WHERE ( PULSEAVG .gt. 100 ) PULSEAVG = 0.0 #ifdef mpas call julian_to_mpas_date_time (jdate, jtime, time_stamp) call mio_fwrite('BDSNPOUT','PFACTOR', pname, & PFACTOR(:,1),time_stamp) call mio_fwrite('BDSNPOUT','DRYPERIOD', pname, & DRYPERIOD(:,1),time_stamp) call mio_fwrite('BDSNPOUT','NDEPRES', pname, & NDEPRES(:,1),time_stamp) call mio_fwrite('BDSNPOUT','SOILMPREV', pname, & SOILMPREV(:,1),time_stamp) call mio_fwrite('BDSNPOUT','NDEPRATE_DIAG', pname, & NDEPRATE(:,1),time_stamp) #else !C Build description for, and create/open soil NO emissions output file FTYPE3D = GRDDED3 SDATE3D = NDATE STIME3D = NTIME TSTEP3D = 0 ! make it a time-independent file NCOLS3D = GL_NCOLS NROWS3D = GL_NROWS NLAYS3D = 1 NVARS3D = 14 MXREC3D = 1 ! VNAME3D = ' ' VNAME3D( 1 ) = 'PFACTOR' VNAME3D( 2 ) = 'DRYPERIOD' VNAME3D( 3 ) = 'NDEPRES' VNAME3D( 4 ) = 'SOILMPREV' !C --- DIAGNOSTICS --------------------------- VNAME3D( 5 ) = 'THETA_DIAG' VNAME3D( 6 ) = 'WET_TERM_DIAG' VNAME3D( 7 ) = 'TEMP_DIAG' VNAME3D( 8 ) = 'TEMP_TERM_DIAG' VNAME3D( 9 ) = 'A_DIAG' VNAME3D( 10 ) = 'NRES_FERT_DIAG' VNAME3D( 11 ) = 'AFERT_DIAG' VNAME3D( 12 ) = 'NDEPRATE_DIAG' VNAME3D( 13 ) = 'CRFAVG' VNAME3D( 14 ) = 'PULSEAVG' !c ------------------------------------------- UNITS3D = ' ' UNITS3D( 1 ) = 'REAL' UNITS3D( 2 ) = 'REAL' UNITS3D( 3 ) = 'REAL' UNITS3D( 4 ) = 'REAL' UNITS3D( 5 ) = 'REAL' UNITS3D( 6 ) = 'REAL' UNITS3D( 7 ) = 'REAL' UNITS3D( 8 ) = 'REAL' UNITS3D( 9 ) = 'REAL' UNITS3D( 10 ) = 'REAL' UNITS3D( 11 ) = 'REAL' UNITS3D( 12 ) = 'REAL' UNITS3D( 13 ) = 'REAL' UNITS3D( 14 ) = 'REAL' VDESC3D( 1 ) = 'NO emission current pulse factor' VDESC3D( 2 ) = 'length of the dry period in hours' VDESC3D( 3 ) = 'soil N reservoir from deposition' VDESC3D( 4 ) = 'Soil moisture prev. timestep m3/m3' VDESC3D( 5 ) = 'moisture WFPS 0-1' VDESC3D( 6 ) = 'moisture scale factore diagnostic' VDESC3D( 7 ) = 'temperature diagnostic' VDESC3D( 8 ) = 'temperature scale factor diagnostic' VDESC3D( 9 ) = 'biome base emission diagnostic' VDESC3D( 10 ) = 'NRES fert only diagnostic' VDESC3D( 11 ) = 'fertilizer emission factor diagnostic' VDESC3D( 12 ) = 'N deposition rate diagnostic' VDESC3D( 13 ) = 'canopy reduction factor diagnostic' VDESC3D( 14 ) = 'pulse factor diagnostic' VTYPE3D = 0 VTYPE3D( 1:14 ) = M3REAL FDESC3D = ' ' FDESC3D( 1 ) = 'Gridded soil state data for soil NO emissions' FDESC3D( 2 ) = '/From/ ' // PNAME FDESC3D( 3 ) = '/Version/ MEGAN3.1' ! C Open NO rain data save file IF ( IO_PE_INCLUSIVE ) THEN IF ( .NOT. OPEN3( SOILOUT, FSNEW3, PNAME ) ) THEN MESG = 'Could not open "' // TRIM( SOILOUT ) // '" file' CALL M3EXIT( PNAME, JDATE, JTIME, MESG, XSTAT1 ) END IF END IF #ifdef parallel_io IF ( IO_PE_INCLUSIVE ) THEN IF ( .NOT. FLUSH3 ( SOILOUT ) ) THEN MESG = 'Could not sync to disk ' // TRIM( SOILOUT ) CALL M3EXIT( PNAME, JDATE, JTIME, MESG, XSTAT2 ) END IF END IF CALL SE_BARRIER IF ( .NOT. IO_PE_INCLUSIVE ) THEN IF ( .NOT. OPEN3( SOILOUT, FSREAD3, PNAME ) ) THEN MESG = 'Could not open ' // TRIM( SOILOUT ) CALL M3EXIT( PNAME, JDATE, JTIME, MESG, XSTAT2 ) END IF END IF #endif IF ( .NOT. WRITE3(SOILOUT,'PFACTOR',NDATE,NTIME,PFACTOR)) THEN CALL NAMEVAL (SOILOUT, MESG) ! get input file name and path MESG = 'Error writing to file: '//TRIM(MESG) CALL M3EXIT(PNAME,JDATE,JTIME,MESG,XSTAT2) ENDIF ! IF ( .NOT. WRITE3(SOILOUT,'DRYPERIOD',NDATE,NTIME,DRYPERIOD )) THEN CALL NAMEVAL (SOILOUT, MESG) ! get input file name and path MESG = 'Error writing to file: '//TRIM(MESG) CALL M3EXIT(PNAME,JDATE,JTIME,MESG,XSTAT2) ENDIF IF ( .NOT. WRITE3(SOILOUT,'NDEPRES',NDATE,NTIME,NDEPRES )) THEN CALL NAMEVAL (SOILOUT, MESG) ! get input file name and path MESG = 'Error writing to file: '//TRIM(MESG) CALL M3EXIT(PNAME,JDATE,JTIME,MESG,XSTAT2) ENDIF IF ( .NOT. WRITE3(SOILOUT,'SOILMPREV',NDATE,NTIME,SOILM )) THEN CALL NAMEVAL (SOILOUT, MESG) ! get input file name and path MESG = 'Error writing to file: '//TRIM(MESG) CALL M3EXIT(PNAME,JDATE,JTIME,MESG,XSTAT2) ENDIF ! !C ---- DIAGNOSTICS ------------------------------------------------------------------- IF ( .NOT. WRITE3(SOILOUT,'THETA_DIAG',NDATE,NTIME,THETA_DIAG )) THEN ! diagnostic theta CALL NAMEVAL (SOILOUT, MESG) ! get input file name and path MESG = 'Error writing THETA_DIAG to file: '//TRIM(MESG) CALL M3EXIT(PNAME,JDATE,JTIME,MESG,XSTAT2) ENDIF IF ( .NOT. WRITE3(SOILOUT,'WET_TERM_DIAG',NDATE,NTIME,WET_DIAG )) THEN ! diagnostic theta ! CALL NAMEVAL (SOILOUT, MESG) ! get input file name and path MESG = 'Could not write "' // TRIM( 'WET_TERM_DIAG' ) // & '" to file "' // TRIM( SOILOUT ) // '"' CALL M3EXIT( PNAME, JDATE, JTIME, MESG, XSTAT2 ) ENDIF IF ( .NOT. WRITE3(SOILOUT,'TEMP_DIAG',NDATE,NTIME,SOILT)) THEN ! diagnostic theta CALL NAMEVAL (SOILOUT, MESG) ! get input file name and path MESG = 'Error writing TEMP_DIAG to file: '//TRIM(MESG) CALL M3EXIT(PNAME,JDATE,JTIME,MESG,XSTAT2) ENDIF IF ( .NOT.WRITE3(SOILOUT,'TEMP_TERM_DIAG',NDATE,NTIME,TEMP_DIAG)) THEN ! diagnostic theta CALL NAMEVAL (SOILOUT, MESG) ! get input file name and path MESG = 'Error writing TEMP_TERM_DIAG to file: '//TRIM(MESG) CALL M3EXIT(PNAME,JDATE,JTIME,MESG,XSTAT2) ENDIF IF ( .NOT.WRITE3(SOILOUT,'A_DIAG',NDATE,NTIME,A_DIAG)) THEN ! diagnostic theta CALL NAMEVAL (SOILOUT, MESG) ! get input file name and path MESG = 'Error writing A_DIAG to file: '//TRIM(MESG) CALL M3EXIT(PNAME,JDATE,JTIME,MESG,XSTAT2) ENDIF IF ( .NOT.WRITE3(SOILOUT,'AFERT_DIAG',NDATE,NTIME,AFERT_DIAG)) THEN ! diagnostic theta CALL NAMEVAL (SOILOUT, MESG) ! get input file name and path MESG = 'Error writing AFERT_DIAG to file: '//TRIM(MESG) CALL M3EXIT(PNAME,JDATE,JTIME,MESG,XSTAT2) ENDIF IF ( .NOT.WRITE3(SOILOUT,'NRES_FERT_DIAG',NDATE,NTIME, & NRES_FERT_DIAG)) THEN ! diagnostic theta CALL NAMEVAL (SOILOUT, MESG) ! get input file name and path MESG = 'Error writing NRES_FERT_DIAG to file: '//TRIM(MESG) CALL M3EXIT(PNAME,JDATE,JTIME,MESG,XSTAT2) ENDIF IF ( .NOT.WRITE3(SOILOUT,'NDEPRATE_DIAG',NDATE,NTIME, & NDEPRATE)) THEN !diagnostic theta CALL NAMEVAL (SOILOUT, MESG) ! get input file name and path MESG = 'Error writing NDEPRATE_DIAG to file: '//TRIM(MESG) CALL M3EXIT(PNAME,JDATE,JTIME,MESG,XSTAT2) ENDIF IF ( .NOT.WRITE3(SOILOUT,'CRFAVG',NDATE,NTIME, & CRFAVG)) THEN !diagnostic theta CALL NAMEVAL (SOILOUT, MESG) ! get input file name and path MESG = 'Error writing CRFAVG to file: '//TRIM(MESG) CALL M3EXIT(PNAME,JDATE,JTIME,MESG,XSTAT2) ENDIF IF ( .NOT.WRITE3(SOILOUT,'PULSEAVG',NDATE,NTIME, & PULSEAVG)) THEN !diagnostic theta CALL NAMEVAL (SOILOUT, MESG) ! get input file name and path MESG = 'Error writing PULSEAVG to file: '//TRIM(MESG) CALL M3EXIT(PNAME,JDATE,JTIME,MESG,XSTAT2) ENDIF #endif C ------------------------------------------------------------------------------------ WRITE( MESG,* ) & 'Timestep written to', SOILOUT, & 'for date and time', NDATE, NTIME RETURN 94040 FORMAT( 5X, 3( A, :, 1X ), I8, ":", I6.6) END SUBROUTINE HRNOBDSNP C---------------------------------------------------------------------------------- REAL FUNCTION PULSING( L_DESID_DIAG, THETA, TSTEP, THETAPREV, & PFACTOR, DRYPERIOD )!_____ ! !DESCRIPTION: Function PULSING calculates the increase (or "pulse") of ! soil NOx emission that happens after preciptiation falls on dry soil. !\\ !\\ ! According to Yan et al., [2005] , this pulsing process is thought to ! be due to a release of inorganic nitrogen trapped on top of the dry soil ! and a subsequent reactivation of water-stressed bacteria, which then ! metabolize the excess nitrogen. This can happen in seasonally dry ! grasslands and savannahs or over freshly fertilized fields. ! Soil NOx emissions consist of baseline emissions plus discrete "pulsing" ! episodes. We follow the Yan et al., [2005] algorithm, where the pulse ! (relative to the flux pre wetting) is determined by the antecedent dry ! period, with a simple logarithmic relationship, ! ! PFACTOR = 13.01 ln ( DRYPERIOD ) - 53.6 ! ! ,where PFACTOR is the magnitude of peak flux relative to prewetting flux, ! and DRYPERIOD is the length of the antecedent dry period in hours. ! ! The pulse decays with ! ! PFACTOR = PFACTOR * EXP( -0.068d0 * TSTEP(HOURS) ) #ifdef mpas use util_module, only : TIME2SEC #endif IMPLICIT NONE #ifndef mpas INTEGER, EXTERNAL :: TIME2SEC #endif C Function arguments: INTEGER, INTENT( IN ) :: TSTEP( 3 ) ! time step vector (HHMMSS) LOGICAL, INTENT( IN ) :: L_DESID_DIAG REAL, INTENT( IN ) :: THETA, THETAPREV ! only avilable if PX version REAL, INTENT( INOUT ) :: DRYPERIOD REAL, INTENT( INOUT ) :: PFACTOR C Local Variables REAL MOISTDIFF REAL DTHOURS DTHOURS = TIME2SEC(TSTEP(2))/3600.0 IF (L_DESID_DIAG) then DTHOURS = 0. END IF ! If soil moisture less than 0.3 and no pulse is taking place IF ( THETA < 0.3D0 .and. PFACTOR == 1.D0) THEN ! Get change in soil moisture since previous timestep MOISTDIFF = ( THETA - THETAPREV ) ! If change in soil moisture is > 0.01 (rains) IF ( MOISTDIFF > 0.01 ) THEN !Initialize new pulse factor (dry period hours) PFACTOR = 13.01 * LOG( DRYPERIOD ) - 53.6 ! If dry period < ~3 days then no pulse IF ( PFACTOR < 1.0 ) PFACTOR = 1.0 ! Reinitialize dry period DRYPERIOD = 0.001 ! If no rain (i.e., change in soil moisture is < 0.01) ELSE ! Add one timestep to dry period DRYPERIOD = DRYPERIOD + DTHOURS ENDIF ! If box is already pulsing , then decay pulse one timestep ELSEIF ( PFACTOR /= 1.d0) THEN ! Decay pulse PFACTOR = PFACTOR * EXP( -0.068d0 * DTHOURS ) ! Update dry period IF ( THETA < 0.3D0 ) DRYPERIOD = DRYPERIOD + DTHOURS ! If end of pulse IF ( PFACTOR < 1.d0 ) PFACTOR = 1.d0 ENDIF PULSING = PFACTOR RETURN END FUNCTION PULSING!_____ C--------------------------------------------------------------------------------------------- SUBROUTINE GET_NDEPRES( TSTEP, NDEPRES, TAU_SEC,C,R,L_DESID_DIAG) C Get the deposition rate of the appropriate species for the appropriate timestep, add to reservoir and decay. C Return reservoir amount. USE centralized_io_module, ONLY: ndeprate USE RUNTIME_VARS, ONLY: MGN_ONLN_DEP #ifdef mpas USE utilio_defn use util_module, only : TIME2SEC #endif IMPLICIT NONE #ifndef mpas INTEGER, EXTERNAL :: TIME2SEC #endif C Function arguments: INTEGER, INTENT( IN ) :: TSTEP( 3 ) ! time step vector (HHMMSS) INTEGER, INTENT( IN ) :: C INTEGER, INTENT( IN ) :: R REAL*8, INTENT( IN ) :: TAU_SEC LOGICAL, INTENT( IN ) :: L_DESID_DIAG REAL, INTENT( INOUT ) :: NDEPRES C Local Variables CHARACTER( 256 ) :: MESG ! message buffer CHARACTER( 16 ) :: PNAME = 'GET_NDEPRES' ! procedure name REAL*8 :: C1 ! a factor REAL*8 :: C2 ! another one REAL*8 :: TS_SEC ! time step in seconds real NDEPTEMP C check for negatives IF( NDEPRES < 0.0 ) THEN WRITE(MESG,*) 'NDEPRES negative' Write(*,*) 'In GET_NDEPRES:' Write(*,*) 'NDEPRES negative', NDEPRES,' ' write(*,*) 'TS, TAU, C1, C2:', TS_SEC, TAU_SEC,C1,C2 CALL M3EXIT( PNAME, 0, 0, MESG, 2) ELSE IF( NDEPRATE(c,r) < 0.0 ) THEN MESG = 'NDEPRATE negative' Write(*,*) 'In GET_NDEPRES:' Write(*,*) 'NDEPRATE negative', NDEPRATE(c,r) CALL M3EXIT( PNAME, 0, 0, MESG, 2 ) END IF ! takes the NDEPRATE and uses it to update NDEPRES before ! clearing it. !Do mass balance (see Intro to Atm Chem Chap. 3) !m(t) = m(0) * exp(-t/tau) + Source * tau * (1 - exp(-t/tau)) TS_SEC = TIME2SEC(TSTEP(2)) C1 = EXP( - TS_SEC / TAU_SEC) C2 = 1.d0 - C1 NDEPTEMP = NDEPRES NDEPRES = NDEPRES*C1+NDEPRATE(c,r)*TAU_SEC*C2 C check for negatives IF( NDEPRES < 0.0 ) THEN MESG = 'negative' Write(*,*) 'In GET_NDEPRES:' Write(*,*) 'NDEPRES negative', NDEPRES write(*,*) 'TS, TAU, C1, C2:', TS_SEC, TAU_SEC,C1,C2 CALL M3EXIT( PNAME, 0, 0, MESG, 2 ) END IF ! clear NDEPRATE for use during next time step IF (.not. L_DESID_DIAG .and. MGN_ONLN_DEP) THEN ! need this not to be zero'd ! out on last time step ! and don't want it zero'd if using ! offline values NDEPRATE(c,r) = 0.0 END IF RETURN END SUBROUTINE GET_NDEPRES C ----------------------------------------------------------------------------- SUBROUTINE GET_N_DEP( SPEC,DEP,C,R ) USE UTILIO_DEFN USE centralized_io_module, only: ndeprate IMPLICIT NONE CHARACTER( 256 ) :: MESG ! message buffer CHARACTER( 8 ), INTENT( IN ) :: SPEC ! dep species REAL, INTENT( IN ) :: DEP ! deposition rate in kg/ha/s INTEGER, INTENT( IN ) :: C INTEGER, INTENT( IN ) :: R REAL, PARAMETER :: HAOM2 = 1.0e-4 ! ha/m^2 conversion REAL, PARAMETER :: MWNH3 = 17.031 ! molecular weight of NH3 REAL, PARAMETER :: MWNH4 = 18.039 ! molecular weight of NH4 REAL, PARAMETER :: MWHNO3 = 63.013 ! molecular weight of HNO3 REAL, PARAMETER :: MWNO3 = 62.005 ! molecular weight of NO3 REAL, PARAMETER :: MWNO2 = 46.006 ! molecular weight of NO2 REAL, PARAMETER :: MWPAN = 121.05 ! molecular weight of Peroxyacyl nitrate REAL, PARAMETER :: MWN = 14.007 ! molecular weight of Nitrogen REAL, PARAMETER :: NGOKG = 1.0e12 ! ng/kg conversion ! takes Kg/hectare/s and converts to ng N / m^2/s IF( INDEX(TRIM( SPEC ), 'NH3') .NE. 0 ) THEN NDEPRATE( C,R ) = NDEPRATE( C,R ) + DEP*HAOM2*NGOKG*MWN/MWNH3 ELSE IF( INDEX(TRIM( SPEC ), 'NH4') .NE. 0 ) THEN NDEPRATE( C,R ) = NDEPRATE( C,R ) + DEP*HAOM2*NGOKG*MWN/MWNH4 ELSE IF( INDEX(TRIM( SPEC ), 'HNO3') .NE. 0 ) THEN NDEPRATE( C,R ) = NDEPRATE( C,R ) + DEP*HAOM2*NGOKG*MWN/MWHNO3 ELSE IF( INDEX(TRIM( SPEC ), 'NO3') .NE. 0) THEN NDEPRATE( C,R ) = NDEPRATE( C,R ) + DEP*HAOM2*NGOKG*MWN/MWNO3 ELSE IF( INDEX(TRIM( SPEC ), 'NO2') .NE. 0 ) THEN NDEPRATE( C,R ) = NDEPRATE( C,R ) + DEP*HAOM2*NGOKG*MWN/MWNO2 ELSE IF( INDEX(TRIM( SPEC ), 'PAN') .NE. 0 ) THEN NDEPRATE( C,R ) = NDEPRATE( C,R ) + DEP*HAOM2*NGOKG*MWN/MWPAN Else MESG = 'Invalid Species Name in Get_N_Dep: "' // SPEC // '"' !CALL M3EXIT( PNAME, JDATE, JTIME, MESG, XSTAT2 ) END IF IF( (DEP<0.0) .OR. (NDEPRATE( C,R )<0.0) ) then Write(*,*) 'DEP or sum negative',DEP, ' ',NDEPRATE( C,R) MESG = 'negative' CALL M3EXIT( 'GET_N_DEP', 0, 0, MESG, XSTAT2 ) END if RETURN END SUBROUTINE GET_N_DEP C ----------------------------------------------------------------------------- REAL FUNCTION SOILTEMP( SOILT ) C Calculate the soil temperature factor IMPLICIT NONE C Function arguments: REAL, INTENT( IN ) :: SOILT !kelvin, soil temperature C Local Variables REAl SOILTC !temperature in degrees celsius CHARACTER( 256 ) :: MESG ! message buffer CHARACTER( 16 ) :: PNAME = 'SOILTEMP' ! procedure name SOILTC = SOILT - 273.16 IF ( SOILTC <= 0d0 ) THEN ! No soil emissions if temp below freezing SOILTEMP = 0d0 C BENCHMARKING: C MESG = 'temperature less than 0 in august florida?' C CALL M3EXIT( PNAME, JDATE, JTIME, MESG, XSTAT1 ) ELSE ! Caps temperature response at 30C IF ( SOILTC >= 30.d0 ) SOILTC = 30.d0 SOILTEMP = EXP( 0.103 * SOILTC ) ENDIF RETURN END FUNCTION SOILTEMP C --------------------------------------------------------------------------------------------------------- REAL FUNCTION FERTADD( FERT , DEPN ) C Add fertilizer reservoir to deposition reservoir and create N driven C emission factor IMPLICIT NONE C Function arguments: REAL, INTENT( IN ) :: FERT !fertilizer reservoir [ngN/m2] REAL, INTENT( IN ) :: DEPN !deposition reservoir [ngN/m2] C Local Variables REAL*8, PARAMETER :: SECPERYEAR = 86400.d0 * 365. ! Scale factor so that fertilizer emission = 1.8 Tg N/yr ! (Stehfest and Bouwman, 2006) ! before canopy reduction REAL*8, PARAMETER :: FERT_SCALE = 0.0068 ! [yr -1] ! Value calculated by running the 2x2.5 GEOS-Chem model ! (J.D. Maasakkers) FERTADD = FERT + DEPN FERTADD = FERTADD / SECPERYEAR * FERT_SCALE RETURN END FUNCTION FERTADD C ------------------------------------------------------------------------------------- C Local Variables REAL FUNCTION SOILWET( THETA , ARID, NONARID) C Calculate the soil moisture factor IMPLICIT NONE C Function arguments: REAL, INTENT( IN ) :: THETA !0-1 soil moisture INTEGER, INTENT( IN ) :: ARID !1 indicates arid cell INTEGER, INTENT( IN ) :: NONARID !1 indicates nonarid cell, if both 0 then C Local Variables IF ( ARID .EQ. 1 ) THEN !ARID, Max poison at theta = .2 SOILWET = 8.24*THETA*EXP(-12.5*THETA*THETA) ELSE IF (NONARID .EQ. 1 ) THEN !NONARID Max Poisson at theta =.3 SOILWET = 5.5*THETA*EXP(-5.55*THETA*THETA) ELSE !neither arid nor nonarid, water or non-emitting cell SOILWET = 0.0 END IF RETURN END FUNCTION SOILWET C ------------------------------------------------------------------- SUBROUTINE GET_CANOPY_NOX(JDATE, JTIME, COSZEN, & TASFC, SSOLAR, PRES, LANDTYPE, LAI, SNOCOV, CFRAC, WSPD, CRF) ! called tmpbeis, change called BDSNP, add K argument IMPLICIT NONE C Arguments INTEGER, INTENT( IN ) :: JDATE ! current simulation date (YYYYDDD) INTEGER, INTENT( IN ) :: JTIME ! current simulation time (HHMMSS) C These are arrays REAL, INTENT( IN ) :: COSZEN( NCOLS,NROWS ) ! cosine of zenith angle REAL, INTENT( IN ) :: TASFC ( NCOLS,NROWS ) ! surface air temperature [K] REAL, INTENT( IN ) :: SSOLAR( NCOLS,NROWS ) ! surface radiation [w/m**2] REAL, INTENT( IN ) :: PRES ( NCOLS,NROWS ) ! surface pressure [Pa] INTEGER, INTENT( IN ) :: LANDTYPE( NCOLS,NROWS ) ! the biome type in each cell REAL, INTENT( IN ):: LAI ( NCOLS,NROWS ) ! leaf area index (m2/m2) REAL, INTENT( IN ):: SNOCOV ( NCOLS,NROWS ) ! snow cover REAL, INTENT( IN ):: CFRAC ( NCOLS,NROWS ) ! cloud fraction REAL, INTENT( IN ):: WSPD ( NCOLS,NROWS ) ! cloud fraction REAL, INTENT( OUT ):: CRF ( NCOLS,NROWS ) ! outputs the canopy reduction factor ! !LOCAL VARIABLES: ! CHARACTER( 16 ) :: PNAME = 'CANOPY_NOX' ! procedure name INTEGER IOS ! IO or memory allocation status CHARACTER( 256 ) :: MESG ! message buffer ! Scalars INTEGER :: C, R, K, KK, MY_NCOLS, MY_NROWS REAL*8 :: F0, HSTAR, XMW REAL*8 :: DTMP1, DTMP2, DTMP3, DTMP4, GFACT, GFACI REAL*8 :: RT, RAD0, RIX, RIXX, RDC, RLUXX REAL*8 :: RGSX, RCLX, TEMPK, TEMPC, WINDSQR REAL*8 :: VFNEW LOGICAL, SAVE :: FIRSTCANOPY = .TRUE. ! Arrays REAL*8 :: RI (24) REAL*8 :: RLU (24) REAL*8 :: RAC (24) REAL*8 :: RGSS(24) REAL*8 :: RGSO(24) REAL*8 :: RCLS(24) REAL*8 :: RCLO(24) ! !DEFINED PARAMETERS: ! INTEGER, PARAMETER :: SNIRI(24) = (/9999, 200, 9999, 9999, 9999, 9999, & 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 400, 400, & 200, 200, 200, 9999, 200/) INTEGER, PARAMETER :: SNIRLU(24) = (/9999, 9000, 9999, 9999, 9999, & 9999, 9000, 9000, 9000, 9000, 9000, 9000, 9000, 9000, 9000, 1000, & 9000, 9000, 9000, 9000, 1000, 9000, 9999, 9000/) INTEGER, PARAMETER :: SNIRAC(24) = (/0, 300, 0, 0, 0, 0, 100, 100, & 100, 100, 100, 100, 100, 100, 2000, 2000, 2000, 2000, 2000, 2000, & 2000, 200, 100, 200/) INTEGER, PARAMETER :: SNIRGSS(24) = (/0, 0, 100, 1000, 100, 1000, 350, & 350, 350, 350, 350, 350, 350, 350, 500, 200, 500, 500, 500, 500, & 200, 150, 400, 150/) INTEGER, PARAMETER :: SNIRGSO(24) = (/2000, 1000, 3500, 400, 3500, & 400, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, & 200, 200, 200, 150, 300, 150/) INTEGER, PARAMETER :: SNIRCLS(24) = (/9999, 2500, 9999, 9999, 9999, & 9999, 2000, 2000, 2000, 2000, 2000, 2000, 2000, 2000, 2000, 9999, & 2000, 2000, 2000, 2000, 9999, 2000, 9999, 2000/) INTEGER, PARAMETER :: SNIRCLO(24) = (/9999, 1000, 1000, 9999, 1000, & 9999, 1000, 1000, 1000, 1000, 1000, 1000, 1000, 1000, 1000, 9999, & 1000, 1000, 1000, 1000, 9999, 1000, 9999, 1000/) INTEGER, PARAMETER :: SNIVSMAX(24) = (/10, 100, 100, 10, 100, 10, 100, & 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, 100, & 100, 100, 100, 100/) REAL, PARAMETER :: DRYCOEFF(20) = (/-0.358, 3.02, 3.85, -0.0978, -3.66, & 12.0, 0.252, -7.8, 0.226, 0.274, 1.14, -2.19, 0.261, -4.62, 0.685, & -0.254, 4.37, -0.266, -0.159, -0.206 /) ! Canopy wind extinction coefficients ! (cf. Yienger & Levy [1995], Sec 5), now a function of the MODIS/KOPPEN biometype (J.D. Maasakkers) REAL*8, PARAMETER :: SOILEXC(24) = (/ & 0.10, 0.50, 0.10, 0.10, 0.10, & 0.10, 0.10, 0.10, 0.10, 1.00, & 1.00, 1.00, 1.00, 2.00, 4.00, & 4.00, 4.00, 4.00, 4.00, 4.00, & 4.00, 2.00, 0.10, 2.00 /) ! Molecular weight of water [kg] REAL*8, PARAMETER :: XMWH2O = 18d-3 ! ! Ventilation velocity for NOx, day & night values [m/s] REAL*8, PARAMETER :: VFDAY = 1.0d-2 REAL*8, PARAMETER :: VFNIGHT = 0.2d-2 REAL*8, PARAMETER :: PRESS = 1.5d5 ! Set physical parameters HSTAR = 0.01d0 ! Henry's law constant F0 = 0.1d0 ! Reactivity factor for biological oxidation XMW = 46d-3 ! Molecular wt of NO2 (kg) IF( FIRSTCANOPY ) THEN FIRSTCANOPY = .FALSE. END IF CRF = 0d0 ! array ! begin calculating canopy reduction factor DO C=1, NCOLS DO R=1, NROWS IF(LAI(C,R) > 0.0) THEN TEMPC = TASFC(C,R) - 273.15d0 ! convert kelvin to Celsius ! Compute bulk surface resistance for gases. ! ! Adjust external surface resistances for temperature; ! from Wesely [1989], expression given in text on p. 1296. RT = 1000.0D0 * EXP( -TEMPC - 4.0d0 ) !-------------------------------------------------------------- ! Get surface resistances - loop over biome types K ! ! The land types within each grid square are defined using the ! Olson land-type database. Each of the Olson land types is ! assigned a corresponding "deposition land type" with ! characteristic values of surface resistance components. ! There are 74 Olson land-types but only 11 deposition ! land-types (i.e., many of the Olson land types share the ! same deposition characteristics). Surface resistance ! components for the "deposition land types" are from Wesely ! [1989] except for tropical forests [Jacob and Wofsy, 1990] ! and for tundra [Jacob et al., 1992]. All surface resistance ! components are normalized to a leaf area index of unity. !-------------------------------------------------------------- !Set biometype K = LANDTYPE( C,R ) ! Set second loop variable to K to allow snow/ice correction KK = K ! If the surface is snow or ice, then set K=3 IF ( SNOCOV(C,R) .EQ. 1 ) KK = 3 !USE new MODIS/KOPPEN Biometypes to read data ! Read the internal resistance RI (minimum stomatal resistance ! for water vapor, per unit area of leaf) from the IRI array; ! a '9999' value means no deposition to stomata so we impose a ! very large value for RI. RI(K) = DBLE( SNIRI(KK) ) IF ( RI(K) >= 9999.D0 ) RI(K)= 1.D12 ! Cuticular resistances IRLU read in from 'drydep.table' ! are per unit area of leaf; divide them by the leaf area index ! to get a cuticular resistance for the bulk canopy. If IRLU is !'9999' it means there are no cuticular surfaces on which to ! deposit so we impose a very large value for RLU. IF ( SNIRLU(KK) >= 9999 .OR. LAI(C,R) <= 0d0 ) THEN RLU(K) = 1.D6 ELSE RLU(K)= DBLE( SNIRLU(KK) ) / LAI(C,R) + RT ENDIF ! The following are the remaining resistances for the Wesely ! resistance-in-series model for a surface canopy ! (see Atmos. Environ. paper, Fig.1). RAC(K) = MAX( DBLE( SNIRAC(KK) ), 1d0 ) RGSS(K) = MAX( DBLE( SNIRGSS(KK) ) + RT, 1d0 ) RGSO(K) = MAX( DBLE( SNIRGSO(KK) ) + RT, 1d0 ) RCLS(K) = DBLE( SNIRCLS(KK) ) + RT RCLO(K) = DBLE( SNIRCLO(KK) ) + RT IF ( RAC(K) >= 9999.D0 ) RAC(K) = 1d12 IF ( RGSS(K) >= 9999.D0 ) RGSS(K) = 1d12 IF ( RGSO(K) >= 9999.D0 ) RGSO(K) = 1d12 IF ( RCLS(K) >= 9999.D0 ) RCLS(K) = 1d12 IF ( RCLO(K) >= 9999.D0 ) RCLO(K) = 1d12 !------------------------------------------------------------- ! Adjust stomatal resistances for insolation and temperature: ! ! Temperature adjustment is from Wesely [1989], equation (3). ! ! Light adjustment by the function BIOFIT is described by Wang ! [1996]. It combines: ! ! - Local dependence of stomal resistance on the intensity I ! of light impinging the leaf; this is expressed as a ! multiplicative factor I/(I+b) to the stomatal resistance ! where b = 50 W m-2 ! (equation (7) of Baldocchi et al. [1987]) ! - Radiative transfer of direct and diffuse radiation in the ! canopy using equations (12)-(16) from Guenther et al. ! [1995] ! - Separate accounting of sunlit and shaded leaves using ! equation (12) of Guenther et al. [1995] ! - Partitioning of the radiation at the top of the canopy ! into direct and diffuse components using a ! parameterization to results from an atmospheric radiative ! transfer model [Wang, 1996] ! ! The dependent variables of the function BIOFIT are the leaf ! area index (XYLAI), the cosine of zenith angle (SUNCOS) and ! the fractional cloud cover (CFRAC). The factor GFACI ! integrates the light dependence over the canopy depth; so ! be scaled by LAI to yield a bulk canopy value because that's ! already done in the GFACI formulation. !------------------------------------------------------------- ! Radiation @ sfc [W/m2] RAD0 = SSOLAR(C,R) ! Internal resistance RIX = RI(K) ! Skip the following block if the resistance RIX is high IF ( RIX < 9999d0 ) THEN GFACT = 100.0D0 IF ( TEMPC > 0.D0 .AND. TEMPC < 40.D0) THEN GFACT = 400.D0 / TEMPC / ( 40.0D0 - TEMPC ) ENDIF GFACI = 100.D0 IF ( RAD0 > 0d0 .AND. LAI(C,R) > 0d0 ) THEN GFACI= 1d0 / & BIOFIT( DRYCOEFF, LAI(C,R), & COSZEN(C,R), CFRAC(C,R) ) ENDIF RIX = RIX * GFACT * GFACI ENDIF ! Compute aerodynamic resistance to lower elements in lower ! part of the canopy or structure, assuming level terrain - ! equation (5) of Wesely [1989]. RDC = 100.D0*(1.0D0+1000.0D0/(RAD0 + 10.D0)) ! Loop over species; species-dependent corrections to resistances ! are from equations (6)-(9) of Wesely [1989]. ! ! NOTE: here we only consider NO2 (bmy, 6/22/09) RIXX = RIX * DIFFG( TASFC(C,R), PRESS, XMWH2O ) / & DIFFG( TASFC(C,R), PRESS, XMW ) & + 1.D0 / ( HSTAR/3000.D0 + 100.D0*F0 ) RLUXX = 1.D12 IF ( RLU(K) < 9999.D0 ) THEN RLUXX = RLU(K) / ( HSTAR / 1.0D+05 + F0 ) ENDIF ! To prevent virtually zero resistance to species with huge HSTAR, ! such as HNO3, a minimum value of RLUXX needs to be set. ! The rationality of the existence of such a minimum is ! demonstrated by the observed relationship between Vd(NOy-NOx) ! and Ustar in Munger et al.[1996]; Vd(HNO3) never exceeds 2 cm/s ! in observations. The corresponding minimum resistance is 50 s/m. ! was introduced by J.Y. Liang on 7/9/95. RGSX = 1d0 / ( HSTAR/1d5/RGSS(K) + F0/RGSO(K) ) RCLX = 1d0 / ( HSTAR/1d5/RCLS(K) + F0/RCLO(K) ) ! Get the bulk surface resistance of the canopy ! from the network of resistances in parallel and in series ! (Fig. 1 of Wesely [1989]) DTMP1 = 1.D0 / RIXX DTMP2 = 1.D0 / RLUXX DTMP3 = 1.D0 / ( RAC(K) + RGSX ) DTMP4 = 1.D0 / ( RDC + RCLX ) ! Save the within canopy depvel of NOx, used in calculating ! the canopy reduction factor for soil emissions [1/s] CRF(C,R) = DTMP1 + DTMP2 + DTMP3 + DTMP4 ! Pick proper ventilation velocity for day or night IF ( COSZEN( C,R ) > 0d0 ) THEN VFNEW = VFDAY ELSE VFNEW = VFNIGHT ENDIF ! If the leaf area index and the bulk surface resistance ! of the canopy to NOx deposition are both nonzero ... IF (CRF(C,R) > 0d0 ) THEN ! Adjust the ventilation velocity. ! NOTE: SOILEXC(21) is the canopy wind extinction ! coefficient for the tropical rainforest biome. WINDSQR=WSPD(C,R)*WSPD(C,R) VFNEW = (VFNEW * SQRT( WINDSQR/9d0 * 7d0/LAI(C,R)) * & ( SOILEXC(21) / SOILEXC(K) )) ! Soil canopy reduction factor CRF(C,R) = CRF(C,R) / ( CRF(C,R) + VFNEW ) C IF( CRF(C,R) > 1.0 ) THEN C write(*,*) 'CANOPY NOX REDUCTION FACTOR TOO HIGH' C write(*,*) 'C,R,k,crf,vfnew,dt1,dt2,dt3,dt4' C write(*,*) C,R,k, CRF(C,R), VFNEW, DTMP1, DTMP2, DTMP3, DTMP4 C write(*,*) 'windsqr, cos, lai' C write(*,*) WINDSQR, COSZEN(C,R),LAI(C,R) C write(*,*) 'soil21/soilk' C write(*,*) SOILEXC(21)/SOILEXC(K) C write(*,*) 'rdc,rclx,rac,rgsx,rluxx,rixx,rclo' C write(*,*) RDC, RCLX, RAC(K), RGSX, RLUXX, RIXX, RCLO(K) C write(*,*) 'RCLS(K), RGSO(K), RGSS(K), RLU(K)' C write(*,*) RCLS(K), RGSO(K), RGSS(K), RLU(K) C write(*,*) 'DIFFG(h20)/DIFFG(no2)' c write(*,*) DIFFG( TASFC(C,R), PRESS, XMWH2O ) / C & DIFFG( TASFC(C,R), PRESS, XMW ) C write(*,*) DIFFG( TASFC(C,R), PRESS, XMWH2O ) C write(*,*) DIFFG( TASFC(C,R), PRESS, XMW ) C write(*,*) TASFC(C,R), PRESS, XMW, XMWH2O C write(*,*) '1.D0 / ( HSTAR/3000.D0 + 100.D0*F0 )' C write(*,*) 1.D0 / ( HSTAR/3000.D0 + 100.D0*F0 ) C write(*,*) 'RAD0, GFACT, GFACI, BIOFIT' C write(*,*) RAD0, GFACT, GFACI, BIOFIT( DRYCOEFF, LAI(C,R), C & COSZEN(C,R), CFRAC(C,R)) C write(*,*) 'TEMPC, CFRAC(C,R), DRYCOEFF(K), RT' C write(*,*) TEMPC, CFRAC(C,R), DRYCOEFF(K), RT C write(*,*) 'RI(K),RLU(K),RAC(K),RGSS(K),RGSO(K),RCLS(K),RCLO(K)' C write(*,*) RI(K), RLU(K),RAC(K),RGSS(K),RGSO(K),RCLS(K),RCLO(K) C MESG = 'CRF too high' C CALL M3EXIT( PNAME, JDATE, JTIME, MESG, XSTAT1 ) C END IF ELSE ! CRF < 0.0 ! Otherwise set the soil canopy reduction factor to zero CRF(C,R) = 0d0 END IF IF( CRF(C,R) .LT. 0.0) THEN MESG = 'CRF Less than 0' ! CALL M3EXIT( PNAME, JDATE, JTIME, MESG, 2 ) ELSE IF( CRF(C,R) .GT. 1.0) THEN MESG = 'CRF Greater than one' ! CALL M3EXIT( PNAME, JDATE, JTIME, MESG, 2 ) END IF ELSE CRF(C,R) = 0.0 END IF !lai check END DO !row loop END DO !col loop END SUBROUTINE GET_CANOPY_NOX FUNCTION DIFFG( TK, PRESS, XM ) RESULT( DIFF_G ) ! !DESCRIPTION: Function DIFFG calculates the molecular diffusivity [m2/s] in ! air for a gas X of molecular weight XM [kg] at temperature TK [K] and ! pressure PRESS [Pa]. !\\ !\\ ! We specify the molecular weight of air (XMAIR) and the hard-sphere molecular ! radii of air (RADAIR) and of the diffusing gas (RADX). The molecular ! radius of air is given in a Table on p. 479 of Levine [1988]. The Table ! also gives radii for some other molecules. Rather than requesting the user ! to supply a molecular radius we specify here a generic value of 2.E-10 m for ! all molecules, which is good enough in terms of calculating the diffusivity ! as long as molecule is not too big. ! ! !INPUT PARAMETERS: ! REAL, INTENT(IN) :: TK ! Temperature [K] REAL*8, INTENT(IN) :: PRESS ! Pressure [Pa] REAL*8, INTENT(IN) :: XM ! Molecular weight of gas [kg] ! ! !RETURN VALUE: ! REAL*8 :: DIFF_G ! Molecular diffusivity [m2/s] ! ! !REVISION HISTORY: ! 22 Jun 2009 - R. Yantosca - Copied from "drydep_mod.f" !EOP !------------------------------------------------------------------------------ !BOC ! ! !LOCAL VARIABLES: ! REAL*8 :: AIRDEN, Z, DIAM, FRPATH, SPEED ! ! !DEFINED PARAMETERS: ! REAL*8, PARAMETER :: XMAIR = 28.8d-3 REAL*8, PARAMETER :: RADAIR = 1.2d-10 REAL*8, PARAMETER :: PI = 3.1415926535897932d0 REAL*8, PARAMETER :: RADX = 1.5d-10 REAL*8, PARAMETER :: RGAS = 8.32d0 REAL*8, PARAMETER :: AVOGAD = 6.023d23 !================================================================= ! DIFFG begins here! !================================================================= ! Air density AIRDEN = ( PRESS * AVOGAD ) / ( RGAS * TK ) ! DIAM is the collision diameter for gas X with air. DIAM = RADX + RADAIR ! Calculate the mean free path for gas X in air: ! eq. 8.5 of Seinfeld [1986]; Z = XM / XMAIR FRPATH = 1d0 /( PI * SQRT( 1d0 + Z ) * AIRDEN*( DIAM**2 ) ) ! Calculate average speed of gas X; eq. 15.47 of Levine [1988] SPEED = SQRT( 8d0 * RGAS * TK / ( PI * XM ) ) ! Calculate diffusion coefficient of gas X in air; ! eq. 8.9 of Seinfeld [1986] DIFF_G = ( 3d0 * PI / 32d0 ) * ( 1d0 + Z ) * FRPATH * SPEED ! Return to calling program END FUNCTION DIFFG SUBROUTINE SUNPARAM(X) IMPLICIT NONE !=============================================== ! the sequence is lai,suncos,cloud fraction !=============================================== ! NN = number of variables (lai,suncos,cloud fraction) INTEGER NN PARAMETER(NN=3) ! ND = scaling factor for each variable INTEGER ND(NN),I DATA ND /55,20,11/ ! X0 = maximum for each variable REAL X(NN),X0(NN),XLOW DATA X0 /11.,1.,1./ DO I=1,NN X(I)=MIN(X(I),X0(I)) ! XLOW = minimum for each variable IF (I.NE.3) THEN XLOW=X0(I)/REAL(ND(I)) ELSE XLOW= 0. END IF X(I)=MAX(X(I),XLOW) X(I)=X(I)/X0(I) END DO RETURN END SUBROUTINE SUNPARAM REAL*8 FUNCTION BIOFIT(COEFF1,XLAI1,SUNCOS1,CFRAC1) IMPLICIT NONE !=============================================== ! Calculate the light correction !=============================================== !* BIOFIT and SUNPARAM were written by Y.H. Wang. !* !------------------------------------------------------------- ! Adjust stomatal resistances for insolation and temperature: ! ! Temperature adjustment is from Wesely [1989], equation (3). ! ! Light adjustment by the function BIOFIT is described by Wang ! [1996]. It combines: ! ! - Local dependence of stomal resistance on the intensity I ! of light impinging the leaf; this is expressed as a ! multiplicative factor I/(I+b) to the stomatal resistance ! where b = 50 W m-2 ! (equation (7) of Baldocchi et al. [1987]) ! - Radiative transfer of direct and diffuse radiation in the ! canopy using equations (12)-(16) from Guenther et al. ! [1995] ! - Separate accounting of sunlit and shaded leaves using ! equation (12) of Guenther et al. [1995] ! - Partitioning of the radiation at the top of the canopy ! into direct and diffuse components using a ! parameterization to results from an atmospheric radiative ! transfer model [Wang, 1996] ! ! The dependent variables of the function BIOFIT are the leaf ! area index (XYLAI), the cosine of zenith angle (SUNCOS) and ! the fractional cloud cover (CFRAC). The factor GFACI ! integrates the light dependence over the canopy depth; so ! be scaled by LAI to yield a bulk canopy value because that's ! already done in the GFACI formulation. !************************************************************* INTEGER KK PARAMETER (KK=4) REAL COEFF1(20),TERM(KK),REALTERM(20) REAL XLAI1,SUNCOS1,CFRAC1 INTEGER K,K1,K2,K3 TERM(1)=1. TERM(2)=XLAI1 TERM(3)=SUNCOS1 TERM(4)=CFRAC1 CALL SUNPARAM(TERM(2)) K=0 DO K3=1,KK DO K2=K3,KK DO K1=K2,KK K=K+1 REALTERM(K)=TERM(K1)*TERM(K2)*TERM(K3) END DO END DO END DO BIOFIT=0 DO K=1,20 BIOFIT=BIOFIT+COEFF1(K)*REALTERM(K) END DO IF (BIOFIT.LT.0.1) BIOFIT=0.1 RETURN END FUNCTION BIOFIT ! References: ! ============================================================================ ! (1 ) Baldocchi, D.D., B.B. Hicks, and P. Camara, "A canopy stomatal ! resistance model for gaseous deposition to vegetated surfaces", ! Atmos. Environ. 21, 91-101, 1987. ! (2 ) Brutsaert, W., "Evaporation into the Atmosphere", Reidel, 1982. ! (3 ) Businger, J.A., et al., "Flux-profile relationships in the atmospheric ! surface layer", J. Atmos. Sci., 28, 181-189, 1971. ! (4 ) Dwight, H.B., "Tables of integrals and other mathematical data", ! MacMillan, 1957. ! (5 ) Guenther, A., and 15 others, A global model of natural volatile ! organic compound emissions, J. Geophys. Res., 100, 8873-8892, 1995. ! (6 ) Hicks, B.B., and P.S. Liss, "Transfer of SO2 and other reactive ! gases across the air-sea interface", Tellus, 28, 348-354, 1976. ! (7 ) Jacob, D.J., and S.C. Wofsy, "Budgets of reactive nitrogen, ! hydrocarbons, and ozone over the Amazon forest during the wet season", ! J. Geophys. Res., 95, 16737-16754, 1990. ! (8 ) Jacob, D.J., et al, "Deposition of ozone to tundra", J. Geophys. Res., ! 97, 16473-16479, 1992. ! (9 ) Levine, I.N., "Physical Chemistry, 3rd ed.", McGraw-Hill, ! New York, 1988. ! (10) Munger, J.W., et al, "Atmospheric deposition of reactive nitrogen ! oxides and ozone in a temperate deciduous forest and a sub-arctic ! woodland", J. Geophys. Res., in press, 1996. ! (11) Walcek, C.J., R.A. Brost, J.S. Chang, and M.L. Wesely, "SO2, sulfate, ! and HNO3 deposition velocities computed using regional landuse and ! meteorological data", Atmos. Environ., 20, 949-964, 1986. ! (12) Wang, Y.H., paper in preparation, 1996. ! (13) Wesely, M.L, "Improved parameterizations for surface resistance to ! gaseous dry deposition in regional-scale numerical models", ! Environmental Protection Agency Report EPA/600/3-88/025, ! Research Triangle Park (NC), 1988. ! (14) Wesely, M. L., Parameterization of surface resistance to gaseous dry ! deposition in regional-scale numerical models. Atmos. Environ., 23 ! 1293-1304, 1989. ! (15) Price, H., L. Jaeglé, A. Rice, P. Quay, P.C. Novelli, R. Gammon, ! Global Budget of Molecular Hydrogen and its Deuterium Content: ! Constraints from Ground Station, Cruise, and Aircraft Observations, ! submitted to J. Geophys. Res., 2007. END MODULE BDSNP_MOD ================================================ FILE: CCTM/src/biog/megan3/MAP_CV2CB05.EXT ================================================ C======================================================================= C MAP_CV2CB05.EXT C This include file contains conversion table for 201 speciated species C to CB05 (CMAQ/CAMx) species C C C MEGAN v3 C C History: C Who When What C --------------------------------------------------------------------- C Tan 07/18/11 - Created for MEGANv2.10 C Ling Huang 06/13/17 - Updated for MEGANv3 C======================================================================= CHARACTER*16 MAP_CB05MECH PARAMETER (MAP_CB05MECH = 'CB05 ') INTEGER N_CB05 PARAMETER (N_CB05 = (145)) ! Number of map species CHARACTER*16 SPMH_NAM_CB05( N_CB05 ) ! speciated species name INTEGER SPMH_MAP_CB05( N_CB05 ) ! speciated species name ! mapped to SPC_SPCAT.EXT CHARACTER*16 MECH_NAM_CB05( N_CB05 ) ! mechanism species INTEGER MECH_MAP_CB05( N_CB05 ) ! mechanism species mapped REAL CONV_FAC_CB05( N_CB05 ) ! conversion factor DATA SPMH_NAM_CB05( 1) , SPMH_MAP_CB05( 1) & / 'isoprene ', 1 / DATA MECH_NAM_CB05( 1) , MECH_MAP_CB05( 1) & / 'ISOP ', 1 / DATA CONV_FAC_CB05( 1) & / 1 / DATA SPMH_NAM_CB05( 2) , SPMH_MAP_CB05( 2) & / 'MBO_2m3e2ol ', 2 / DATA MECH_NAM_CB05( 2) , MECH_MAP_CB05( 2) & / 'OLE ', 5 / DATA CONV_FAC_CB05( 2) & / 1 / DATA SPMH_NAM_CB05( 3) , SPMH_MAP_CB05( 3) & / 'MBO_2m3e2ol ', 2 / DATA MECH_NAM_CB05( 3) , MECH_MAP_CB05( 3) & / 'PAR ', 3 / DATA CONV_FAC_CB05( 3) & / 3 / DATA SPMH_NAM_CB05( 4) , SPMH_MAP_CB05( 4) & / 'pinene_a ', 3 / DATA MECH_NAM_CB05( 4) , MECH_MAP_CB05( 4) & / 'TERP ', 2 / DATA CONV_FAC_CB05( 4) & / 1 / DATA SPMH_NAM_CB05( 5) , SPMH_MAP_CB05( 5) & / 'pinene_b ', 4 / DATA MECH_NAM_CB05( 5) , MECH_MAP_CB05( 5) & / 'TERP ', 2 / DATA CONV_FAC_CB05( 5) & / 1 / DATA SPMH_NAM_CB05( 6) , SPMH_MAP_CB05( 6) & / 'myrcene ', 5 / DATA MECH_NAM_CB05( 6) , MECH_MAP_CB05( 6) & / 'TERP ', 2 / DATA CONV_FAC_CB05( 6) & / 1 / DATA SPMH_NAM_CB05( 7) , SPMH_MAP_CB05( 7) & / 'ocimene_al ', 6 / DATA MECH_NAM_CB05( 7) , MECH_MAP_CB05( 7) & / 'TERP ', 2 / DATA CONV_FAC_CB05( 7) & / 1 / DATA SPMH_NAM_CB05( 8) , SPMH_MAP_CB05( 8) & / 'ocimene_c_b ', 7 / DATA MECH_NAM_CB05( 8) , MECH_MAP_CB05( 8) & / 'TERP ', 2 / DATA CONV_FAC_CB05( 8) & / 1 / DATA SPMH_NAM_CB05( 9) , SPMH_MAP_CB05( 9) & / 'ocimene_t_b ', 8 / DATA MECH_NAM_CB05( 9) , MECH_MAP_CB05( 9) & / 'TERP ', 2 / DATA CONV_FAC_CB05( 9) & / 1 / DATA SPMH_NAM_CB05( 10) , SPMH_MAP_CB05( 10) & / 'camphene ', 10 / DATA MECH_NAM_CB05( 10) , MECH_MAP_CB05( 10) & / 'TERP ', 2 / DATA CONV_FAC_CB05( 10) & / 1 / DATA SPMH_NAM_CB05( 11) , SPMH_MAP_CB05( 11) & / 'bornene ', 9 / DATA MECH_NAM_CB05( 11) , MECH_MAP_CB05( 11) & / 'TERP ', 2 / DATA CONV_FAC_CB05( 11) & / 1 / DATA SPMH_NAM_CB05( 12) , SPMH_MAP_CB05( 12) & / 'fenchene_a ', 12 / DATA MECH_NAM_CB05( 12) , MECH_MAP_CB05( 12) & / 'TERP ', 2 / DATA CONV_FAC_CB05( 12) & / 1 / DATA SPMH_NAM_CB05( 13) , SPMH_MAP_CB05( 13) & / 'tricyclene ', 14 / DATA MECH_NAM_CB05( 13) , MECH_MAP_CB05( 13) & / 'TERP ', 2 / DATA CONV_FAC_CB05( 13) & / 1 / DATA SPMH_NAM_CB05( 14) , SPMH_MAP_CB05( 14) & / 'carene_3 ', 11 / DATA MECH_NAM_CB05( 14) , MECH_MAP_CB05( 14) & / 'TERP ', 2 / DATA CONV_FAC_CB05( 14) & / 1 / DATA SPMH_NAM_CB05( 15) , SPMH_MAP_CB05( 15) & / 'fenchene_b ', 13 / DATA MECH_NAM_CB05( 15) , MECH_MAP_CB05( 15) & / 'TERP ', 2 / DATA CONV_FAC_CB05( 15) & / 1 / DATA SPMH_NAM_CB05( 16) , SPMH_MAP_CB05( 16) & / 'phellandrene_a ', 17 / DATA MECH_NAM_CB05( 16) , MECH_MAP_CB05( 16) & / 'TERP ', 2 / DATA CONV_FAC_CB05( 16) & / 1 / DATA SPMH_NAM_CB05( 17) , SPMH_MAP_CB05( 17) & / 'terpinene_g ', 20 / DATA MECH_NAM_CB05( 17) , MECH_MAP_CB05( 17) & / 'TERP ', 2 / DATA CONV_FAC_CB05( 17) & / 1 / DATA SPMH_NAM_CB05( 18) , SPMH_MAP_CB05( 18) & / 'terpinene_a ', 19 / DATA MECH_NAM_CB05( 18) , MECH_MAP_CB05( 18) & / 'TERP ', 2 / DATA CONV_FAC_CB05( 18) & / 1 / DATA SPMH_NAM_CB05( 19) , SPMH_MAP_CB05( 19) & / 'limonene ', 15 / DATA MECH_NAM_CB05( 19) , MECH_MAP_CB05( 19) & / 'TERP ', 2 / DATA CONV_FAC_CB05( 19) & / 1 / DATA SPMH_NAM_CB05( 20) , SPMH_MAP_CB05( 20) & / 'phellandrene_b ', 16 / DATA MECH_NAM_CB05( 20) , MECH_MAP_CB05( 20) & / 'TERP ', 2 / DATA CONV_FAC_CB05( 20) & / 1 / DATA SPMH_NAM_CB05( 21) , SPMH_MAP_CB05( 21) & / 'terpinolene ', 21 / DATA MECH_NAM_CB05( 21) , MECH_MAP_CB05( 21) & / 'TERP ', 2 / DATA CONV_FAC_CB05( 21) & / 1 / DATA SPMH_NAM_CB05( 22) , SPMH_MAP_CB05( 22) & / 'thujene_a ', 22 / DATA MECH_NAM_CB05( 22) , MECH_MAP_CB05( 22) & / 'TERP ', 2 / DATA CONV_FAC_CB05( 22) & / 1 / DATA SPMH_NAM_CB05( 23) , SPMH_MAP_CB05( 23) & / 'sabinene ', 18 / DATA MECH_NAM_CB05( 23) , MECH_MAP_CB05( 23) & / 'TERP ', 2 / DATA CONV_FAC_CB05( 23) & / 1 / DATA SPMH_NAM_CB05( 24) , SPMH_MAP_CB05( 24) & / 'verbenene ', 23 / DATA MECH_NAM_CB05( 24) , MECH_MAP_CB05( 24) & / 'TERP ', 2 / DATA CONV_FAC_CB05( 24) & / 1 / DATA SPMH_NAM_CB05( 25) , SPMH_MAP_CB05( 25) & / 'cymene_p ', 25 / DATA MECH_NAM_CB05( 25) , MECH_MAP_CB05( 25) & / 'TERP ', 2 / DATA CONV_FAC_CB05( 25) & / 1 / DATA SPMH_NAM_CB05( 26) , SPMH_MAP_CB05( 26) & / 'cymene_o ', 24 / DATA MECH_NAM_CB05( 26) , MECH_MAP_CB05( 26) & / 'TERP ', 2 / DATA CONV_FAC_CB05( 26) & / 1 / DATA SPMH_NAM_CB05( 27) , SPMH_MAP_CB05( 27) & / 'meta-cymenene ', 26 / DATA MECH_NAM_CB05( 27) , MECH_MAP_CB05( 27) & / 'TERP ', 2 / DATA CONV_FAC_CB05( 27) & / 1 / DATA SPMH_NAM_CB05( 28) , SPMH_MAP_CB05( 28) & / 'p-cymenene ', 27 / DATA MECH_NAM_CB05( 28) , MECH_MAP_CB05( 28) & / 'TERP ', 2 / DATA CONV_FAC_CB05( 28) & / 1 / DATA SPMH_NAM_CB05( 29) , SPMH_MAP_CB05( 29) & / 'camphor ', 30 / DATA MECH_NAM_CB05( 29) , MECH_MAP_CB05( 29) & / 'TERP ', 2 / DATA CONV_FAC_CB05( 29) & / 1 / DATA SPMH_NAM_CB05( 30) , SPMH_MAP_CB05( 30) & / 'bornyl_ACT ', 29 / DATA MECH_NAM_CB05( 30) , MECH_MAP_CB05( 30) & / 'TERP ', 2 / DATA CONV_FAC_CB05( 30) & / 1 / DATA SPMH_NAM_CB05( 31) , SPMH_MAP_CB05( 31) & / 'piperitone ', 38 / DATA MECH_NAM_CB05( 31) , MECH_MAP_CB05( 31) & / 'TERP ', 2 / DATA CONV_FAC_CB05( 31) & / 1 / DATA SPMH_NAM_CB05( 32) , SPMH_MAP_CB05( 32) & / 'terpineol_a ', 40 / DATA MECH_NAM_CB05( 32) , MECH_MAP_CB05( 32) & / 'TERP ', 2 / DATA CONV_FAC_CB05( 32) & / 1 / DATA SPMH_NAM_CB05( 33) , SPMH_MAP_CB05( 33) & / 'octanol ', 36 / DATA MECH_NAM_CB05( 33) , MECH_MAP_CB05( 33) & / 'PAR ', 3 / DATA CONV_FAC_CB05( 33) & / 8 / DATA SPMH_NAM_CB05( 34) , SPMH_MAP_CB05( 34) & / 'estragole ', 31 / DATA MECH_NAM_CB05( 34) , MECH_MAP_CB05( 34) & / 'TERP ', 2 / DATA CONV_FAC_CB05( 34) & / 1 / DATA SPMH_NAM_CB05( 35) , SPMH_MAP_CB05( 35) & / 'borneol ', 28 / DATA MECH_NAM_CB05( 35) , MECH_MAP_CB05( 35) & / 'TERP ', 2 / DATA CONV_FAC_CB05( 35) & / 1 / DATA SPMH_NAM_CB05( 36) , SPMH_MAP_CB05( 36) & / 'thujone_b ', 42 / DATA MECH_NAM_CB05( 36) , MECH_MAP_CB05( 36) & / 'TERP ', 2 / DATA CONV_FAC_CB05( 36) & / 1 / DATA SPMH_NAM_CB05( 37) , SPMH_MAP_CB05( 37) & / 'thujone_a ', 41 / DATA MECH_NAM_CB05( 37) , MECH_MAP_CB05( 37) & / 'TERP ', 2 / DATA CONV_FAC_CB05( 37) & / 1 / DATA SPMH_NAM_CB05( 38) , SPMH_MAP_CB05( 38) & / 'terpineol_4 ', 39 / DATA MECH_NAM_CB05( 38) , MECH_MAP_CB05( 38) & / 'TERP ', 2 / DATA CONV_FAC_CB05( 38) & / 1 / DATA SPMH_NAM_CB05( 39) , SPMH_MAP_CB05( 39) & / 'myrtenal ', 35 / DATA MECH_NAM_CB05( 39) , MECH_MAP_CB05( 39) & / 'TERP ', 2 / DATA CONV_FAC_CB05( 39) & / 1 / DATA SPMH_NAM_CB05( 40) , SPMH_MAP_CB05( 40) & / 'fenchone ', 32 / DATA MECH_NAM_CB05( 40) , MECH_MAP_CB05( 40) & / 'TERP ', 2 / DATA CONV_FAC_CB05( 40) & / 1 / DATA SPMH_NAM_CB05( 41) , SPMH_MAP_CB05( 41) & / 'octenol_1e3ol ', 37 / DATA MECH_NAM_CB05( 41) , MECH_MAP_CB05( 41) & / 'TERP ', 2 / DATA CONV_FAC_CB05( 41) & / 1 / DATA SPMH_NAM_CB05( 42) , SPMH_MAP_CB05( 42) & / 'ionone_b ', 33 / DATA MECH_NAM_CB05( 42) , MECH_MAP_CB05( 42) & / 'TERP ', 2 / DATA CONV_FAC_CB05( 42) & / 1 / DATA SPMH_NAM_CB05( 43) , SPMH_MAP_CB05( 43) & / 'ipsenol ', 34 / DATA MECH_NAM_CB05( 43) , MECH_MAP_CB05( 43) & / 'TERP ', 2 / DATA CONV_FAC_CB05( 43) & / 1 / DATA SPMH_NAM_CB05( 44) , SPMH_MAP_CB05( 44) & / 'caryophyllene_b ', 51 / DATA MECH_NAM_CB05( 44) , MECH_MAP_CB05( 44) & / 'SESQ ', 25 / DATA CONV_FAC_CB05( 44) & / 1 / DATA SPMH_NAM_CB05( 45) , SPMH_MAP_CB05( 45) & / 'caryophyllene_c_i ', 52 / DATA MECH_NAM_CB05( 45) , MECH_MAP_CB05( 45) & / 'SESQ ', 25 / DATA CONV_FAC_CB05( 45) & / 1 / DATA SPMH_NAM_CB05( 46) , SPMH_MAP_CB05( 46) & / 'cadinene_d ', 48 / DATA MECH_NAM_CB05( 46) , MECH_MAP_CB05( 46) & / 'SESQ ', 25 / DATA CONV_FAC_CB05( 46) & / 1 / DATA SPMH_NAM_CB05( 47) , SPMH_MAP_CB05( 47) & / 'cadinene_d ', 48 / DATA MECH_NAM_CB05( 47) , MECH_MAP_CB05( 47) & / 'SESQ ', 25 / DATA CONV_FAC_CB05( 47) & / 1 / DATA SPMH_NAM_CB05( 48) , SPMH_MAP_CB05( 48) & / 'bisabolene_b ', 47 / DATA MECH_NAM_CB05( 48) , MECH_MAP_CB05( 48) & / 'SESQ ', 25 / DATA CONV_FAC_CB05( 48) & / 1 / DATA SPMH_NAM_CB05( 49) , SPMH_MAP_CB05( 49) & / 'farnescene_a ', 54 / DATA MECH_NAM_CB05( 49) , MECH_MAP_CB05( 49) & / 'SESQ ', 25 / DATA CONV_FAC_CB05( 49) & / 1 / DATA SPMH_NAM_CB05( 50) , SPMH_MAP_CB05( 50) & / 'patchoulene_b ', 65 / DATA MECH_NAM_CB05( 50) , MECH_MAP_CB05( 50) & / 'SESQ ', 25 / DATA CONV_FAC_CB05( 50) & / 1 / DATA SPMH_NAM_CB05( 51) , SPMH_MAP_CB05( 51) & / 'elemene_b ', 53 / DATA MECH_NAM_CB05( 51) , MECH_MAP_CB05( 51) & / 'SESQ ', 25 / DATA CONV_FAC_CB05( 51) & / 1 / DATA SPMH_NAM_CB05( 52) , SPMH_MAP_CB05( 52) & / 'nerolidol_c ', 63 / DATA MECH_NAM_CB05( 52) , MECH_MAP_CB05( 52) & / 'SESQ ', 25 / DATA CONV_FAC_CB05( 52) & / 1 / DATA SPMH_NAM_CB05( 53) , SPMH_MAP_CB05( 53) & / 'farnesol ', 56 / DATA MECH_NAM_CB05( 53) , MECH_MAP_CB05( 53) & / 'SESQ ', 25 / DATA CONV_FAC_CB05( 53) & / 1 / DATA SPMH_NAM_CB05( 54) , SPMH_MAP_CB05( 54) & / 'humulene_a ', 59 / DATA MECH_NAM_CB05( 54) , MECH_MAP_CB05( 54) & / 'SESQ ', 25 / DATA CONV_FAC_CB05( 54) & / 1 / DATA SPMH_NAM_CB05( 55) , SPMH_MAP_CB05( 55) & / 'muurolene_a ', 61 / DATA MECH_NAM_CB05( 55) , MECH_MAP_CB05( 55) & / 'SESQ ', 25 / DATA CONV_FAC_CB05( 55) & / 1 / DATA SPMH_NAM_CB05( 56) , SPMH_MAP_CB05( 56) & / 'bergamotene_a ', 44 / DATA MECH_NAM_CB05( 56) , MECH_MAP_CB05( 56) & / 'SESQ ', 25 / DATA CONV_FAC_CB05( 56) & / 1 / DATA SPMH_NAM_CB05( 57) , SPMH_MAP_CB05( 57) & / 'germacrene_B ', 57 / DATA MECH_NAM_CB05( 57) , MECH_MAP_CB05( 57) & / 'SESQ ', 25 / DATA CONV_FAC_CB05( 57) & / 1 / DATA SPMH_NAM_CB05( 58) , SPMH_MAP_CB05( 58) & / 'selinene_b ', 66 / DATA MECH_NAM_CB05( 58) , MECH_MAP_CB05( 58) & / 'SESQ ', 25 / DATA CONV_FAC_CB05( 58) & / 1 / DATA SPMH_NAM_CB05( 59) , SPMH_MAP_CB05( 59) & / 'calarene ', 50 / DATA MECH_NAM_CB05( 59) , MECH_MAP_CB05( 59) & / 'SESQ ', 25 / DATA CONV_FAC_CB05( 59) & / 1 / DATA SPMH_NAM_CB05( 60) , SPMH_MAP_CB05( 60) & / 'farnescene_b ', 55 / DATA MECH_NAM_CB05( 60) , MECH_MAP_CB05( 60) & / 'SESQ ', 25 / DATA CONV_FAC_CB05( 60) & / 1 / DATA SPMH_NAM_CB05( 61) , SPMH_MAP_CB05( 61) & / 'acoradiene ', 43 / DATA MECH_NAM_CB05( 61) , MECH_MAP_CB05( 61) & / 'SESQ ', 25 / DATA CONV_FAC_CB05( 61) & / 1 / DATA SPMH_NAM_CB05( 62) , SPMH_MAP_CB05( 62) & / 'humulene_g ', 60 / DATA MECH_NAM_CB05( 62) , MECH_MAP_CB05( 62) & / 'SESQ ', 25 / DATA CONV_FAC_CB05( 62) & / 1 / DATA SPMH_NAM_CB05( 63) , SPMH_MAP_CB05( 63) & / 'muurolene_g ', 62 / DATA MECH_NAM_CB05( 63) , MECH_MAP_CB05( 63) & / 'SESQ ', 25 / DATA CONV_FAC_CB05( 63) & / 1 / DATA SPMH_NAM_CB05( 64) , SPMH_MAP_CB05( 64) & / 'germacrene_D ', 58 / DATA MECH_NAM_CB05( 64) , MECH_MAP_CB05( 64) & / 'SESQ ', 25 / DATA CONV_FAC_CB05( 64) & / 1 / DATA SPMH_NAM_CB05( 65) , SPMH_MAP_CB05( 65) & / 'cadinene_g ', 49 / DATA MECH_NAM_CB05( 65) , MECH_MAP_CB05( 65) & / 'SESQ ', 25 / DATA CONV_FAC_CB05( 65) & / 1 / DATA SPMH_NAM_CB05( 66) , SPMH_MAP_CB05( 66) & / 'nerolidol_t ', 64 / DATA MECH_NAM_CB05( 66) , MECH_MAP_CB05( 66) & / 'SESQ ', 25 / DATA CONV_FAC_CB05( 66) & / 1 / DATA SPMH_NAM_CB05( 67) , SPMH_MAP_CB05( 67) & / 'bergamotene_b ', 45 / DATA MECH_NAM_CB05( 67) , MECH_MAP_CB05( 67) & / 'SESQ ', 25 / DATA CONV_FAC_CB05( 67) & / 1 / DATA SPMH_NAM_CB05( 68) , SPMH_MAP_CB05( 68) & / 'bisabolene_a ', 46 / DATA MECH_NAM_CB05( 68) , MECH_MAP_CB05( 68) & / 'SESQ ', 25 / DATA CONV_FAC_CB05( 68) & / 1 / DATA SPMH_NAM_CB05( 69) , SPMH_MAP_CB05( 69) & / 'cedrol ', 73 / DATA MECH_NAM_CB05( 69) , MECH_MAP_CB05( 69) & / 'SESQ ', 25 / DATA CONV_FAC_CB05( 69) & / 1 / DATA SPMH_NAM_CB05( 70) , SPMH_MAP_CB05( 70) & / 'homosalate ', 78 / DATA MECH_NAM_CB05( 70) , MECH_MAP_CB05( 70) & / 'SESQ ', 25 / DATA CONV_FAC_CB05( 70) & / 1 / DATA SPMH_NAM_CB05( 71) , SPMH_MAP_CB05( 71) & / '2ethyl_hexyl_salate ', 68 / DATA MECH_NAM_CB05( 71) , MECH_MAP_CB05( 71) & / 'SESQ ', 25 / DATA CONV_FAC_CB05( 71) & / 1 / DATA SPMH_NAM_CB05( 72) , SPMH_MAP_CB05( 72) & / 'cedrene_a ', 72 / DATA MECH_NAM_CB05( 72) , MECH_MAP_CB05( 72) & / 'SESQ ', 25 / DATA CONV_FAC_CB05( 72) & / 1 / DATA SPMH_NAM_CB05( 73) , SPMH_MAP_CB05( 73) & / 'thujopsene ', 83 / DATA MECH_NAM_CB05( 73) , MECH_MAP_CB05( 73) & / 'SESQ ', 25 / DATA CONV_FAC_CB05( 73) & / 1 / DATA SPMH_NAM_CB05( 74) , SPMH_MAP_CB05( 74) & / 'longifolene ', 81 / DATA MECH_NAM_CB05( 74) , MECH_MAP_CB05( 74) & / 'SESQ ', 25 / DATA CONV_FAC_CB05( 74) & / 1 / DATA SPMH_NAM_CB05( 75) , SPMH_MAP_CB05( 75) & / 'cadinol_a ', 71 / DATA MECH_NAM_CB05( 75) , MECH_MAP_CB05( 75) & / 'SESQ ', 25 / DATA CONV_FAC_CB05( 75) & / 1 / DATA SPMH_NAM_CB05( 76) , SPMH_MAP_CB05( 76) & / 'zingiberene_a ', 85 / DATA MECH_NAM_CB05( 76) , MECH_MAP_CB05( 76) & / 'SESQ ', 25 / DATA CONV_FAC_CB05( 76) & / 1 / DATA SPMH_NAM_CB05( 77) , SPMH_MAP_CB05( 77) & / 'isolongifolene ', 79 / DATA MECH_NAM_CB05( 77) , MECH_MAP_CB05( 77) & / 'SESQ ', 25 / DATA CONV_FAC_CB05( 77) & / 1 / DATA SPMH_NAM_CB05( 78) , SPMH_MAP_CB05( 78) & / 'longicyclene ', 87 / DATA MECH_NAM_CB05( 78) , MECH_MAP_CB05( 78) & / 'SESQ ', 25 / DATA CONV_FAC_CB05( 78) & / 1 / DATA SPMH_NAM_CB05( 79) , SPMH_MAP_CB05( 79) & / 'copaene_a ', 74 / DATA MECH_NAM_CB05( 79) , MECH_MAP_CB05( 79) & / 'SESQ ', 25 / DATA CONV_FAC_CB05( 79) & / 1 / DATA SPMH_NAM_CB05( 80) , SPMH_MAP_CB05( 80) & / 'bourbonene_b ', 70 / DATA MECH_NAM_CB05( 80) , MECH_MAP_CB05( 80) & / 'SESQ ', 25 / DATA CONV_FAC_CB05( 80) & / 1 / DATA SPMH_NAM_CB05( 81) , SPMH_MAP_CB05( 81) & / 'longipinene ', 82 / DATA MECH_NAM_CB05( 81) , MECH_MAP_CB05( 81) & / 'SESQ ', 25 / DATA CONV_FAC_CB05( 81) & / 1 / DATA SPMH_NAM_CB05( 82) , SPMH_MAP_CB05( 82) & / 'cubebene_b ', 76 / DATA MECH_NAM_CB05( 82) , MECH_MAP_CB05( 82) & / 'SESQ ', 25 / DATA CONV_FAC_CB05( 82) & / 1 / DATA SPMH_NAM_CB05( 83) , SPMH_MAP_CB05( 83) & / 'ylangene_a ', 84 / DATA MECH_NAM_CB05( 83) , MECH_MAP_CB05( 83) & / 'SESQ ', 25 / DATA CONV_FAC_CB05( 83) & / 1 / DATA SPMH_NAM_CB05( 84) , SPMH_MAP_CB05( 84) & / 'cubebene_a ', 75 / DATA MECH_NAM_CB05( 84) , MECH_MAP_CB05( 84) & / 'SESQ ', 25 / DATA CONV_FAC_CB05( 84) & / 1 / DATA SPMH_NAM_CB05( 85) , SPMH_MAP_CB05( 85) & / 'copaene_b ', 86 / DATA MECH_NAM_CB05( 85) , MECH_MAP_CB05( 85) & / 'SESQ ', 25 / DATA CONV_FAC_CB05( 85) & / 1 / DATA SPMH_NAM_CB05( 86) , SPMH_MAP_CB05( 86) & / 'kaur_16_ene ', 80 / DATA MECH_NAM_CB05( 86) , MECH_MAP_CB05( 86) & / 'SESQ ', 25 / DATA CONV_FAC_CB05( 86) & / 1 / DATA SPMH_NAM_CB05( 87) , SPMH_MAP_CB05( 87) & / 'gurjunene_b ', 77 / DATA MECH_NAM_CB05( 87) , MECH_MAP_CB05( 87) & / 'SESQ ', 25 / DATA CONV_FAC_CB05( 87) & / 1 / DATA SPMH_NAM_CB05( 88) , SPMH_MAP_CB05( 88) & / 'aromadendrene ', 69 / DATA MECH_NAM_CB05( 88) , MECH_MAP_CB05( 88) & / 'SESQ ', 25 / DATA CONV_FAC_CB05( 88) & / 1 / DATA SPMH_NAM_CB05( 89) , SPMH_MAP_CB05( 89) & / 'methanol ', 88 / DATA MECH_NAM_CB05( 89) , MECH_MAP_CB05( 89) & / 'MEOH ', 7 / DATA CONV_FAC_CB05( 89) & / 1 / DATA SPMH_NAM_CB05( 90) , SPMH_MAP_CB05( 90) & / 'acetone ', 89 / DATA MECH_NAM_CB05( 90) , MECH_MAP_CB05( 90) & / 'PAR ', 3 / DATA CONV_FAC_CB05( 90) & / 3 / DATA SPMH_NAM_CB05( 91) , SPMH_MAP_CB05( 91) & / 'ethanol ', 91 / DATA MECH_NAM_CB05( 91) , MECH_MAP_CB05( 91) & / 'ETOH ', 12 / DATA CONV_FAC_CB05( 91) & / 1 / DATA SPMH_NAM_CB05( 92) , SPMH_MAP_CB05( 92) & / 'acetaldehyde ', 90 / DATA MECH_NAM_CB05( 92) , MECH_MAP_CB05( 92) & / 'ALD2 ', 11 / DATA CONV_FAC_CB05( 92) & / 1 / DATA SPMH_NAM_CB05( 93) , SPMH_MAP_CB05( 93) & / 'formic_acid ', 93 / DATA MECH_NAM_CB05( 93) , MECH_MAP_CB05( 93) & / 'FACD ', 21 / DATA CONV_FAC_CB05( 93) & / 1 / DATA SPMH_NAM_CB05( 94) , SPMH_MAP_CB05( 94) & / 'acetic_acid ', 92 / DATA MECH_NAM_CB05( 94) , MECH_MAP_CB05( 94) & / 'AACD ', 20 / DATA CONV_FAC_CB05( 94) & / 1 / DATA SPMH_NAM_CB05( 95) , SPMH_MAP_CB05( 95) & / 'ethane ', 100 / DATA MECH_NAM_CB05( 95) , MECH_MAP_CB05( 95) & / 'ETHA ', 18 / DATA CONV_FAC_CB05( 95) & / 1 / DATA SPMH_NAM_CB05( 96) , SPMH_MAP_CB05( 96) & / 'ethene ', 101 / DATA MECH_NAM_CB05( 96) , MECH_MAP_CB05( 96) & / 'ETH ', 19 / DATA CONV_FAC_CB05( 96) & / 1 / DATA SPMH_NAM_CB05( 97) , SPMH_MAP_CB05( 97) & / 'propane ', 102 / DATA MECH_NAM_CB05( 97) , MECH_MAP_CB05( 97) & / 'PAR ', 3 / DATA CONV_FAC_CB05( 97) & / 1.5 / DATA SPMH_NAM_CB05( 98) , SPMH_MAP_CB05( 98) & / 'butene ', 97 / DATA MECH_NAM_CB05( 98) , MECH_MAP_CB05( 98) & / 'OLE ', 5 / DATA CONV_FAC_CB05( 98) & / 1 / DATA SPMH_NAM_CB05( 99) , SPMH_MAP_CB05( 99) & / 'butene ', 97 / DATA MECH_NAM_CB05( 99) , MECH_MAP_CB05( 99) & / 'PAR ', 3 / DATA CONV_FAC_CB05( 99) & / 2 / DATA SPMH_NAM_CB05( 100) , SPMH_MAP_CB05( 100) & / 'propene ', 103 / DATA MECH_NAM_CB05( 100) , MECH_MAP_CB05( 100) & / 'OLE ', 5 / DATA CONV_FAC_CB05( 100) & / 1 / DATA SPMH_NAM_CB05( 101) , SPMH_MAP_CB05( 101) & / 'propene ', 103 / DATA MECH_NAM_CB05( 101) , MECH_MAP_CB05( 101) & / 'PAR ', 3 / DATA CONV_FAC_CB05( 101) & / 1 / DATA SPMH_NAM_CB05( 102) , SPMH_MAP_CB05( 102) & / '2_methylprop_1_ene ', 95 / DATA MECH_NAM_CB05( 102) , MECH_MAP_CB05( 102) & / 'OLE ', 5 / DATA CONV_FAC_CB05( 102) & / 1 / DATA SPMH_NAM_CB05( 103) , SPMH_MAP_CB05( 103) & / '2_methylprop_1_ene ', 95 / DATA MECH_NAM_CB05( 103) , MECH_MAP_CB05( 103) & / 'PAR ', 3 / DATA CONV_FAC_CB05( 103) & / 2 / DATA SPMH_NAM_CB05( 104) , SPMH_MAP_CB05( 104) & / 'butene_c2 ', 98 / DATA MECH_NAM_CB05( 104) , MECH_MAP_CB05( 104) & / 'IOLE ', 16 / DATA CONV_FAC_CB05( 104) & / 1 / DATA SPMH_NAM_CB05( 105) , SPMH_MAP_CB05( 105) & / 'butene_t2 ', 99 / DATA MECH_NAM_CB05( 105) , MECH_MAP_CB05( 105) & / 'IOLE ', 16 / DATA CONV_FAC_CB05( 105) & / 1 / DATA SPMH_NAM_CB05( 106) , SPMH_MAP_CB05( 106) & / 'formaldehyde ', 113 / DATA MECH_NAM_CB05( 106) , MECH_MAP_CB05( 106) & / 'FORM ', 13 / DATA CONV_FAC_CB05( 106) & / 1 / DATA SPMH_NAM_CB05( 107) , SPMH_MAP_CB05( 107) & / 'met_heptenone ', 106 / DATA MECH_NAM_CB05( 107) , MECH_MAP_CB05( 107) & / 'ISPD ', 23 / DATA CONV_FAC_CB05( 107) & / 1 / DATA SPMH_NAM_CB05( 108) , SPMH_MAP_CB05( 108) & / 'oxopentanal ', 114 / DATA MECH_NAM_CB05( 108) , MECH_MAP_CB05( 108) & / 'ISPD ', 23 / DATA CONV_FAC_CB05( 108) & / 1 / DATA SPMH_NAM_CB05( 109) , SPMH_MAP_CB05( 109) & / 'geranyl_acetone ', 105 / DATA MECH_NAM_CB05( 109) , MECH_MAP_CB05( 109) & / 'ISPD ', 23 / DATA CONV_FAC_CB05( 109) & / 1 / DATA SPMH_NAM_CB05( 110) , SPMH_MAP_CB05( 110) & / 'hexanal ', 141 / DATA MECH_NAM_CB05( 110) , MECH_MAP_CB05( 110) & / 'ISPD ', 23 / DATA CONV_FAC_CB05( 110) & / 1 / DATA SPMH_NAM_CB05( 111) , SPMH_MAP_CB05( 111) & / 'hydrogen_cyanide ', 147 / DATA MECH_NAM_CB05( 111) , MECH_MAP_CB05( 111) & / 'HCN ', 22 / DATA CONV_FAC_CB05( 111) & / 1 / DATA SPMH_NAM_CB05( 112) , SPMH_MAP_CB05( 112) & / 'linalool ', 150 / DATA MECH_NAM_CB05( 112) , MECH_MAP_CB05( 112) & / 'TERP ', 2 / DATA CONV_FAC_CB05( 112) & / 1 / DATA SPMH_NAM_CB05( 113) , SPMH_MAP_CB05( 113) & / 'methacrolein ', 153 / DATA MECH_NAM_CB05( 113) , MECH_MAP_CB05( 113) & / 'ISPD ', 23 / DATA CONV_FAC_CB05( 113) & / 1 / DATA SPMH_NAM_CB05( 114) , SPMH_MAP_CB05( 114) & / 'met_vinylketone ', 158 / DATA MECH_NAM_CB05( 114) , MECH_MAP_CB05( 114) & / 'ISPD ', 23 / DATA CONV_FAC_CB05( 114) & / 1 / DATA SPMH_NAM_CB05( 115) , SPMH_MAP_CB05( 115) & / 'hexanol_1 ', 142 / DATA MECH_NAM_CB05( 115) , MECH_MAP_CB05( 115) & / 'ISPD ', 23 / DATA CONV_FAC_CB05( 115) & / 1 / DATA SPMH_NAM_CB05( 116) , SPMH_MAP_CB05( 116) & / 'met_salicylate ', 156 / DATA MECH_NAM_CB05( 116) , MECH_MAP_CB05( 116) & / 'ISPD ', 23 / DATA CONV_FAC_CB05( 116) & / 1 / DATA SPMH_NAM_CB05( 117) , SPMH_MAP_CB05( 117) & / 'cineole_1_8 ', 133 / DATA MECH_NAM_CB05( 117) , MECH_MAP_CB05( 117) & / 'TERP ', 2 / DATA CONV_FAC_CB05( 117) & / 1 / DATA SPMH_NAM_CB05( 118) , SPMH_MAP_CB05( 118) & / 'hexenal_t2 ', 144 / DATA MECH_NAM_CB05( 118) , MECH_MAP_CB05( 118) & / 'ISPD ', 23 / DATA CONV_FAC_CB05( 118) & / 1 / DATA SPMH_NAM_CB05( 119) , SPMH_MAP_CB05( 119) & / 'hexenol_c3 ', 145 / DATA MECH_NAM_CB05( 119) , MECH_MAP_CB05( 119) & / 'ISPD ', 23 / DATA CONV_FAC_CB05( 119) & / 1 / DATA SPMH_NAM_CB05( 120) , SPMH_MAP_CB05( 120) & / 'hexenyl_ACT_c3 ', 146 / DATA MECH_NAM_CB05( 120) , MECH_MAP_CB05( 120) & / 'ISPD ', 23 / DATA CONV_FAC_CB05( 120) & / 1 / DATA SPMH_NAM_CB05( 121) , SPMH_MAP_CB05( 121) & / 'hexenal_c3 ', 143 / DATA MECH_NAM_CB05( 121) , MECH_MAP_CB05( 121) & / 'ISPD ', 23 / DATA CONV_FAC_CB05( 121) & / 1 / DATA SPMH_NAM_CB05( 122) , SPMH_MAP_CB05( 122) & / '2met_nonatriene ', 137 / DATA MECH_NAM_CB05( 122) , MECH_MAP_CB05( 122) & / 'TERP ', 2 / DATA CONV_FAC_CB05( 122) & / 1 / DATA SPMH_NAM_CB05( 123) , SPMH_MAP_CB05( 123) & / 'methane ', 184 / DATA MECH_NAM_CB05( 123) , MECH_MAP_CB05( 123) & / 'CH4 ', 8 / DATA CONV_FAC_CB05( 123) & / 1 / DATA SPMH_NAM_CB05( 124) , SPMH_MAP_CB05( 124) & / 'met_bromide ', 185 / DATA MECH_NAM_CB05( 124) , MECH_MAP_CB05( 124) & / 'CH3BR ', 27 / DATA CONV_FAC_CB05( 124) & / 1 / DATA SPMH_NAM_CB05( 125) , SPMH_MAP_CB05( 125) & / 'met_chloride ', 186 / DATA MECH_NAM_CB05( 125) , MECH_MAP_CB05( 125) & / 'CH3CL ', 28 / DATA CONV_FAC_CB05( 125) & / 1 / DATA SPMH_NAM_CB05( 126) , SPMH_MAP_CB05( 126) & / 'met_iodide ', 187 / DATA MECH_NAM_CB05( 126) , MECH_MAP_CB05( 126) & / 'CH3I ', 29 / DATA CONV_FAC_CB05( 126) & / 1 / DATA SPMH_NAM_CB05( 127) , SPMH_MAP_CB05( 127) & / 'met_mercaptan ', 188 / DATA MECH_NAM_CB05( 127) , MECH_MAP_CB05( 127) & / 'TRS ', 26 / DATA CONV_FAC_CB05( 127) & / 1 / DATA SPMH_NAM_CB05( 128) , SPMH_MAP_CB05( 128) & / 'carbon_2s ', 171 / DATA MECH_NAM_CB05( 128) , MECH_MAP_CB05( 128) & / 'TRS ', 26 / DATA CONV_FAC_CB05( 128) & / 1 / DATA SPMH_NAM_CB05( 129) , SPMH_MAP_CB05( 129) & / '2met_s ', 176 / DATA MECH_NAM_CB05( 129) , MECH_MAP_CB05( 129) & / 'TRS ', 26 / DATA CONV_FAC_CB05( 129) & / 1 / DATA SPMH_NAM_CB05( 130) , SPMH_MAP_CB05( 130) & / 'butanone_2 ', 170 / DATA MECH_NAM_CB05( 130) , MECH_MAP_CB05( 130) & / 'ISPD ', 23 / DATA CONV_FAC_CB05( 130) & / 1 / DATA SPMH_NAM_CB05( 131) , SPMH_MAP_CB05( 131) & / 'terpinyl_ACT_a ', 197 / DATA MECH_NAM_CB05( 131) , MECH_MAP_CB05( 131) & / 'TERP ', 2 / DATA CONV_FAC_CB05( 131) & / 1 / DATA SPMH_NAM_CB05( 132) , SPMH_MAP_CB05( 132) & / 'pentane ', 193 / DATA MECH_NAM_CB05( 132) , MECH_MAP_CB05( 132) & / 'PAR ', 3 / DATA CONV_FAC_CB05( 132) & / 5 / DATA SPMH_NAM_CB05( 133) , SPMH_MAP_CB05( 133) & / 'hexane ', 181 / DATA MECH_NAM_CB05( 133) , MECH_MAP_CB05( 133) & / 'PAR ', 3 / DATA CONV_FAC_CB05( 133) & / 6 / DATA SPMH_NAM_CB05( 134) , SPMH_MAP_CB05( 134) & / 'decane ', 173 / DATA MECH_NAM_CB05( 134) , MECH_MAP_CB05( 134) & / 'PAR ', 3 / DATA CONV_FAC_CB05( 134) & / 10 / DATA SPMH_NAM_CB05( 135) , SPMH_MAP_CB05( 135) & / 'heptane ', 179 / DATA MECH_NAM_CB05( 135) , MECH_MAP_CB05( 135) & / 'PAR ', 3 / DATA CONV_FAC_CB05( 135) & / 7 / DATA SPMH_NAM_CB05( 136) , SPMH_MAP_CB05( 136) & / 'carbonyl_s ', 172 / DATA MECH_NAM_CB05( 136) , MECH_MAP_CB05( 136) & / 'TRS ', 26 / DATA CONV_FAC_CB05( 136) & / 1 / DATA SPMH_NAM_CB05( 137) , SPMH_MAP_CB05( 137) & / '2met_2s ', 175 / DATA MECH_NAM_CB05( 137) , MECH_MAP_CB05( 137) & / 'TRS ', 26 / DATA CONV_FAC_CB05( 137) & / 1 / DATA SPMH_NAM_CB05( 138) , SPMH_MAP_CB05( 138) & / 'undecane ', 199 / DATA MECH_NAM_CB05( 138) , MECH_MAP_CB05( 138) & / 'PAR ', 3 / DATA CONV_FAC_CB05( 138) & / 11 / DATA SPMH_NAM_CB05( 139) , SPMH_MAP_CB05( 139) & / 'tetradecene_1 ', 198 / DATA MECH_NAM_CB05( 139) , MECH_MAP_CB05( 139) & / 'PAR ', 3 / DATA CONV_FAC_CB05( 139) & / 14 / DATA SPMH_NAM_CB05( 140) , SPMH_MAP_CB05( 140) & / 'diallyl_2s ', 174 / DATA MECH_NAM_CB05( 140) , MECH_MAP_CB05( 140) & / 'TRS ', 26 / DATA CONV_FAC_CB05( 140) & / 1 / DATA SPMH_NAM_CB05( 141) , SPMH_MAP_CB05( 141) & / 'PPPP_2s ', 194 / DATA MECH_NAM_CB05( 141) , MECH_MAP_CB05( 141) & / 'TRS ', 26 / DATA CONV_FAC_CB05( 141) & / 1 / DATA SPMH_NAM_CB05( 142) , SPMH_MAP_CB05( 142) & / 'met_propenyl_2s ', 189 / DATA MECH_NAM_CB05( 142) , MECH_MAP_CB05( 142) & / 'TRS ', 26 / DATA CONV_FAC_CB05( 142) & / 1 / DATA SPMH_NAM_CB05( 143) , SPMH_MAP_CB05( 143) & / 'hydrogen_s ', 182 / DATA MECH_NAM_CB05( 143) , MECH_MAP_CB05( 143) & / 'TRS ', 26 / DATA CONV_FAC_CB05( 143) & / 1 / DATA SPMH_NAM_CB05( 144) , SPMH_MAP_CB05( 144) & / 'carbon_monoxide ', 200 / DATA MECH_NAM_CB05( 144) , MECH_MAP_CB05( 144) & / 'CO ', 17 / DATA CONV_FAC_CB05( 144) & / 1 / DATA SPMH_NAM_CB05( 145) , SPMH_MAP_CB05( 145) & / 'nitric_OXD ', 201 / DATA MECH_NAM_CB05( 145) , MECH_MAP_CB05( 145) & / 'NO ', 10 / DATA CONV_FAC_CB05( 145) & / 1 / ================================================ FILE: CCTM/src/biog/megan3/MAP_CV2CB6.EXT ================================================ C======================================================================= C MAP_CV2CB6.EXT C This include file contains conversion table for 201 speciated species C to CB6 (CMAQ/CAMx) species C C C MEGAN v3 C C History: C Who When What C --------------------------------------------------------------------- C Tan 07/18/11 - Created for MEGANv2.10 C Ling Huang 06/13/17 - Updated for MEGANv3 C======================================================================= CHARACTER*16 MAP_CB6MECH PARAMETER (MAP_CB6MECH = 'CB6 ') INTEGER N_CB6 PARAMETER (N_CB6 = (147)) ! Number of map species CHARACTER*16 SPMH_NAM_CB6( N_CB6 ) ! speciated species name INTEGER SPMH_MAP_CB6( N_CB6 ) ! speciated species name ! mapped to SPC_SPCAT.EXT CHARACTER*16 MECH_NAM_CB6( N_CB6 ) ! mechanism species INTEGER MECH_MAP_CB6( N_CB6 ) ! mechanism species mapped REAL CONV_FAC_CB6( N_CB6 ) ! conversion factor DATA SPMH_NAM_CB6( 1) , SPMH_MAP_CB6( 1) & / 'isoprene ', 1 / DATA MECH_NAM_CB6( 1) , MECH_MAP_CB6( 1) & / 'ISOP ', 1 / DATA CONV_FAC_CB6( 1) & / 1 / DATA SPMH_NAM_CB6( 2) , SPMH_MAP_CB6( 2) & / 'MBO_2m3e2ol ', 2 / DATA MECH_NAM_CB6( 2) , MECH_MAP_CB6( 2) & / 'OLE ', 5 / DATA CONV_FAC_CB6( 2) & / 1 / DATA SPMH_NAM_CB6( 3) , SPMH_MAP_CB6( 3) & / 'MBO_2m3e2ol ', 2 / DATA MECH_NAM_CB6( 3) , MECH_MAP_CB6( 3) & / 'PAR ', 3 / DATA CONV_FAC_CB6( 3) & / 3 / DATA SPMH_NAM_CB6( 4) , SPMH_MAP_CB6( 4) & / 'pinene_a ', 3 / DATA MECH_NAM_CB6( 4) , MECH_MAP_CB6( 4) & / 'TERP ', 2 / DATA CONV_FAC_CB6( 4) & / 1 / DATA SPMH_NAM_CB6( 5) , SPMH_MAP_CB6( 5) & / 'pinene_b ', 4 / DATA MECH_NAM_CB6( 5) , MECH_MAP_CB6( 5) & / 'TERP ', 2 / DATA CONV_FAC_CB6( 5) & / 1 / DATA SPMH_NAM_CB6( 6) , SPMH_MAP_CB6( 6) & / 'myrcene ', 5 / DATA MECH_NAM_CB6( 6) , MECH_MAP_CB6( 6) & / 'TERP ', 2 / DATA CONV_FAC_CB6( 6) & / 1 / DATA SPMH_NAM_CB6( 7) , SPMH_MAP_CB6( 7) & / 'ocimene_al ', 6 / DATA MECH_NAM_CB6( 7) , MECH_MAP_CB6( 7) & / 'TERP ', 2 / DATA CONV_FAC_CB6( 7) & / 1 / DATA SPMH_NAM_CB6( 8) , SPMH_MAP_CB6( 8) & / 'ocimene_c_b ', 7 / DATA MECH_NAM_CB6( 8) , MECH_MAP_CB6( 8) & / 'TERP ', 2 / DATA CONV_FAC_CB6( 8) & / 1 / DATA SPMH_NAM_CB6( 9) , SPMH_MAP_CB6( 9) & / 'ocimene_t_b ', 8 / DATA MECH_NAM_CB6( 9) , MECH_MAP_CB6( 9) & / 'TERP ', 2 / DATA CONV_FAC_CB6( 9) & / 1 / DATA SPMH_NAM_CB6( 10) , SPMH_MAP_CB6( 10) & / 'camphene ', 10 / DATA MECH_NAM_CB6( 10) , MECH_MAP_CB6( 10) & / 'TERP ', 2 / DATA CONV_FAC_CB6( 10) & / 1 / DATA SPMH_NAM_CB6( 11) , SPMH_MAP_CB6( 11) & / 'bornene ', 9 / DATA MECH_NAM_CB6( 11) , MECH_MAP_CB6( 11) & / 'TERP ', 2 / DATA CONV_FAC_CB6( 11) & / 1 / DATA SPMH_NAM_CB6( 12) , SPMH_MAP_CB6( 12) & / 'fenchene_a ', 12 / DATA MECH_NAM_CB6( 12) , MECH_MAP_CB6( 12) & / 'TERP ', 2 / DATA CONV_FAC_CB6( 12) & / 1 / DATA SPMH_NAM_CB6( 13) , SPMH_MAP_CB6( 13) & / 'tricyclene ', 14 / DATA MECH_NAM_CB6( 13) , MECH_MAP_CB6( 13) & / 'TERP ', 2 / DATA CONV_FAC_CB6( 13) & / 1 / DATA SPMH_NAM_CB6( 14) , SPMH_MAP_CB6( 14) & / 'carene_3 ', 11 / DATA MECH_NAM_CB6( 14) , MECH_MAP_CB6( 14) & / 'TERP ', 2 / DATA CONV_FAC_CB6( 14) & / 1 / DATA SPMH_NAM_CB6( 15) , SPMH_MAP_CB6( 15) & / 'fenchene_b ', 13 / DATA MECH_NAM_CB6( 15) , MECH_MAP_CB6( 15) & / 'TERP ', 2 / DATA CONV_FAC_CB6( 15) & / 1 / DATA SPMH_NAM_CB6( 16) , SPMH_MAP_CB6( 16) & / 'phellandrene_a ', 17 / DATA MECH_NAM_CB6( 16) , MECH_MAP_CB6( 16) & / 'TERP ', 2 / DATA CONV_FAC_CB6( 16) & / 1 / DATA SPMH_NAM_CB6( 17) , SPMH_MAP_CB6( 17) & / 'terpinene_g ', 20 / DATA MECH_NAM_CB6( 17) , MECH_MAP_CB6( 17) & / 'TERP ', 2 / DATA CONV_FAC_CB6( 17) & / 1 / DATA SPMH_NAM_CB6( 18) , SPMH_MAP_CB6( 18) & / 'terpinene_a ', 19 / DATA MECH_NAM_CB6( 18) , MECH_MAP_CB6( 18) & / 'TERP ', 2 / DATA CONV_FAC_CB6( 18) & / 1 / DATA SPMH_NAM_CB6( 19) , SPMH_MAP_CB6( 19) & / 'limonene ', 15 / DATA MECH_NAM_CB6( 19) , MECH_MAP_CB6( 19) & / 'TERP ', 2 / DATA CONV_FAC_CB6( 19) & / 1 / DATA SPMH_NAM_CB6( 20) , SPMH_MAP_CB6( 20) & / 'phellandrene_b ', 16 / DATA MECH_NAM_CB6( 20) , MECH_MAP_CB6( 20) & / 'TERP ', 2 / DATA CONV_FAC_CB6( 20) & / 1 / DATA SPMH_NAM_CB6( 21) , SPMH_MAP_CB6( 21) & / 'terpinolene ', 21 / DATA MECH_NAM_CB6( 21) , MECH_MAP_CB6( 21) & / 'TERP ', 2 / DATA CONV_FAC_CB6( 21) & / 1 / DATA SPMH_NAM_CB6( 22) , SPMH_MAP_CB6( 22) & / 'thujene_a ', 22 / DATA MECH_NAM_CB6( 22) , MECH_MAP_CB6( 22) & / 'TERP ', 2 / DATA CONV_FAC_CB6( 22) & / 1 / DATA SPMH_NAM_CB6( 23) , SPMH_MAP_CB6( 23) & / 'sabinene ', 18 / DATA MECH_NAM_CB6( 23) , MECH_MAP_CB6( 23) & / 'TERP ', 2 / DATA CONV_FAC_CB6( 23) & / 1 / DATA SPMH_NAM_CB6( 24) , SPMH_MAP_CB6( 24) & / 'verbenene ', 23 / DATA MECH_NAM_CB6( 24) , MECH_MAP_CB6( 24) & / 'TERP ', 2 / DATA CONV_FAC_CB6( 24) & / 1 / DATA SPMH_NAM_CB6( 25) , SPMH_MAP_CB6( 25) & / 'cymene_p ', 25 / DATA MECH_NAM_CB6( 25) , MECH_MAP_CB6( 25) & / 'TERP ', 2 / DATA CONV_FAC_CB6( 25) & / 1 / DATA SPMH_NAM_CB6( 26) , SPMH_MAP_CB6( 26) & / 'cymene_o ', 24 / DATA MECH_NAM_CB6( 26) , MECH_MAP_CB6( 26) & / 'TERP ', 2 / DATA CONV_FAC_CB6( 26) & / 1 / DATA SPMH_NAM_CB6( 27) , SPMH_MAP_CB6( 27) & / 'meta-cymenene ', 26 / DATA MECH_NAM_CB6( 27) , MECH_MAP_CB6( 27) & / 'TERP ', 2 / DATA CONV_FAC_CB6( 27) & / 1 / DATA SPMH_NAM_CB6( 28) , SPMH_MAP_CB6( 28) & / 'p-cymenene ', 27 / DATA MECH_NAM_CB6( 28) , MECH_MAP_CB6( 28) & / 'TERP ', 2 / DATA CONV_FAC_CB6( 28) & / 1 / DATA SPMH_NAM_CB6( 29) , SPMH_MAP_CB6( 29) & / 'camphor ', 30 / DATA MECH_NAM_CB6( 29) , MECH_MAP_CB6( 29) & / 'TERP ', 2 / DATA CONV_FAC_CB6( 29) & / 1 / DATA SPMH_NAM_CB6( 30) , SPMH_MAP_CB6( 30) & / 'bornyl_ACT ', 29 / DATA MECH_NAM_CB6( 30) , MECH_MAP_CB6( 30) & / 'TERP ', 2 / DATA CONV_FAC_CB6( 30) & / 1 / DATA SPMH_NAM_CB6( 31) , SPMH_MAP_CB6( 31) & / 'piperitone ', 38 / DATA MECH_NAM_CB6( 31) , MECH_MAP_CB6( 31) & / 'TERP ', 2 / DATA CONV_FAC_CB6( 31) & / 1 / DATA SPMH_NAM_CB6( 32) , SPMH_MAP_CB6( 32) & / 'terpineol_a ', 40 / DATA MECH_NAM_CB6( 32) , MECH_MAP_CB6( 32) & / 'TERP ', 2 / DATA CONV_FAC_CB6( 32) & / 1 / DATA SPMH_NAM_CB6( 33) , SPMH_MAP_CB6( 33) & / 'octanol ', 36 / DATA MECH_NAM_CB6( 33) , MECH_MAP_CB6( 33) & / 'PAR ', 3 / DATA CONV_FAC_CB6( 33) & / 8 / DATA SPMH_NAM_CB6( 34) , SPMH_MAP_CB6( 34) & / 'estragole ', 31 / DATA MECH_NAM_CB6( 34) , MECH_MAP_CB6( 34) & / 'TERP ', 2 / DATA CONV_FAC_CB6( 34) & / 1 / DATA SPMH_NAM_CB6( 35) , SPMH_MAP_CB6( 35) & / 'borneol ', 28 / DATA MECH_NAM_CB6( 35) , MECH_MAP_CB6( 35) & / 'TERP ', 2 / DATA CONV_FAC_CB6( 35) & / 1 / DATA SPMH_NAM_CB6( 36) , SPMH_MAP_CB6( 36) & / 'thujone_b ', 42 / DATA MECH_NAM_CB6( 36) , MECH_MAP_CB6( 36) & / 'TERP ', 2 / DATA CONV_FAC_CB6( 36) & / 1 / DATA SPMH_NAM_CB6( 37) , SPMH_MAP_CB6( 37) & / 'thujone_a ', 41 / DATA MECH_NAM_CB6( 37) , MECH_MAP_CB6( 37) & / 'TERP ', 2 / DATA CONV_FAC_CB6( 37) & / 1 / DATA SPMH_NAM_CB6( 38) , SPMH_MAP_CB6( 38) & / 'terpineol_4 ', 39 / DATA MECH_NAM_CB6( 38) , MECH_MAP_CB6( 38) & / 'TERP ', 2 / DATA CONV_FAC_CB6( 38) & / 1 / DATA SPMH_NAM_CB6( 39) , SPMH_MAP_CB6( 39) & / 'myrtenal ', 35 / DATA MECH_NAM_CB6( 39) , MECH_MAP_CB6( 39) & / 'TERP ', 2 / DATA CONV_FAC_CB6( 39) & / 1 / DATA SPMH_NAM_CB6( 40) , SPMH_MAP_CB6( 40) & / 'fenchone ', 32 / DATA MECH_NAM_CB6( 40) , MECH_MAP_CB6( 40) & / 'TERP ', 2 / DATA CONV_FAC_CB6( 40) & / 1 / DATA SPMH_NAM_CB6( 41) , SPMH_MAP_CB6( 41) & / 'octenol_1e3ol ', 37 / DATA MECH_NAM_CB6( 41) , MECH_MAP_CB6( 41) & / 'TERP ', 2 / DATA CONV_FAC_CB6( 41) & / 1 / DATA SPMH_NAM_CB6( 42) , SPMH_MAP_CB6( 42) & / 'ionone_b ', 33 / DATA MECH_NAM_CB6( 42) , MECH_MAP_CB6( 42) & / 'TERP ', 2 / DATA CONV_FAC_CB6( 42) & / 1 / DATA SPMH_NAM_CB6( 43) , SPMH_MAP_CB6( 43) & / 'ipsenol ', 34 / DATA MECH_NAM_CB6( 43) , MECH_MAP_CB6( 43) & / 'TERP ', 2 / DATA CONV_FAC_CB6( 43) & / 1 / DATA SPMH_NAM_CB6( 44) , SPMH_MAP_CB6( 44) & / 'caryophyllene_b ', 51 / DATA MECH_NAM_CB6( 44) , MECH_MAP_CB6( 44) & / 'SESQ ', 30 / DATA CONV_FAC_CB6( 44) & / 1 / DATA SPMH_NAM_CB6( 45) , SPMH_MAP_CB6( 45) & / 'caryophyllene_c_i ', 52 / DATA MECH_NAM_CB6( 45) , MECH_MAP_CB6( 45) & / 'SESQ ', 30 / DATA CONV_FAC_CB6( 45) & / 1 / DATA SPMH_NAM_CB6( 46) , SPMH_MAP_CB6( 46) & / 'cadinene_d ', 48 / DATA MECH_NAM_CB6( 46) , MECH_MAP_CB6( 46) & / 'SESQ ', 30 / DATA CONV_FAC_CB6( 46) & / 1 / DATA SPMH_NAM_CB6( 47) , SPMH_MAP_CB6( 47) & / 'cadinene_d ', 48 / DATA MECH_NAM_CB6( 47) , MECH_MAP_CB6( 47) & / 'SESQ ', 30 / DATA CONV_FAC_CB6( 47) & / 1 / DATA SPMH_NAM_CB6( 48) , SPMH_MAP_CB6( 48) & / 'bisabolene_b ', 47 / DATA MECH_NAM_CB6( 48) , MECH_MAP_CB6( 48) & / 'SESQ ', 30 / DATA CONV_FAC_CB6( 48) & / 1 / DATA SPMH_NAM_CB6( 49) , SPMH_MAP_CB6( 49) & / 'farnescene_a ', 54 / DATA MECH_NAM_CB6( 49) , MECH_MAP_CB6( 49) & / 'SESQ ', 30 / DATA CONV_FAC_CB6( 49) & / 1 / DATA SPMH_NAM_CB6( 50) , SPMH_MAP_CB6( 50) & / 'patchoulene_b ', 65 / DATA MECH_NAM_CB6( 50) , MECH_MAP_CB6( 50) & / 'SESQ ', 30 / DATA CONV_FAC_CB6( 50) & / 1 / DATA SPMH_NAM_CB6( 51) , SPMH_MAP_CB6( 51) & / 'elemene_b ', 53 / DATA MECH_NAM_CB6( 51) , MECH_MAP_CB6( 51) & / 'SESQ ', 30 / DATA CONV_FAC_CB6( 51) & / 1 / DATA SPMH_NAM_CB6( 52) , SPMH_MAP_CB6( 52) & / 'nerolidol_c ', 63 / DATA MECH_NAM_CB6( 52) , MECH_MAP_CB6( 52) & / 'SESQ ', 30 / DATA CONV_FAC_CB6( 52) & / 1 / DATA SPMH_NAM_CB6( 53) , SPMH_MAP_CB6( 53) & / 'farnesol ', 56 / DATA MECH_NAM_CB6( 53) , MECH_MAP_CB6( 53) & / 'SESQ ', 30 / DATA CONV_FAC_CB6( 53) & / 1 / DATA SPMH_NAM_CB6( 54) , SPMH_MAP_CB6( 54) & / 'humulene_a ', 59 / DATA MECH_NAM_CB6( 54) , MECH_MAP_CB6( 54) & / 'SESQ ', 30 / DATA CONV_FAC_CB6( 54) & / 1 / DATA SPMH_NAM_CB6( 55) , SPMH_MAP_CB6( 55) & / 'muurolene_a ', 61 / DATA MECH_NAM_CB6( 55) , MECH_MAP_CB6( 55) & / 'SESQ ', 30 / DATA CONV_FAC_CB6( 55) & / 1 / DATA SPMH_NAM_CB6( 56) , SPMH_MAP_CB6( 56) & / 'bergamotene_a ', 44 / DATA MECH_NAM_CB6( 56) , MECH_MAP_CB6( 56) & / 'SESQ ', 30 / DATA CONV_FAC_CB6( 56) & / 1 / DATA SPMH_NAM_CB6( 57) , SPMH_MAP_CB6( 57) & / 'germacrene_B ', 57 / DATA MECH_NAM_CB6( 57) , MECH_MAP_CB6( 57) & / 'SESQ ', 30 / DATA CONV_FAC_CB6( 57) & / 1 / DATA SPMH_NAM_CB6( 58) , SPMH_MAP_CB6( 58) & / 'selinene_b ', 66 / DATA MECH_NAM_CB6( 58) , MECH_MAP_CB6( 58) & / 'SESQ ', 30 / DATA CONV_FAC_CB6( 58) & / 1 / DATA SPMH_NAM_CB6( 59) , SPMH_MAP_CB6( 59) & / 'calarene ', 50 / DATA MECH_NAM_CB6( 59) , MECH_MAP_CB6( 59) & / 'SESQ ', 30 / DATA CONV_FAC_CB6( 59) & / 1 / DATA SPMH_NAM_CB6( 60) , SPMH_MAP_CB6( 60) & / 'farnescene_b ', 55 / DATA MECH_NAM_CB6( 60) , MECH_MAP_CB6( 60) & / 'SESQ ', 30 / DATA CONV_FAC_CB6( 60) & / 1 / DATA SPMH_NAM_CB6( 61) , SPMH_MAP_CB6( 61) & / 'acoradiene ', 43 / DATA MECH_NAM_CB6( 61) , MECH_MAP_CB6( 61) & / 'SESQ ', 30 / DATA CONV_FAC_CB6( 61) & / 1 / DATA SPMH_NAM_CB6( 62) , SPMH_MAP_CB6( 62) & / 'humulene_g ', 60 / DATA MECH_NAM_CB6( 62) , MECH_MAP_CB6( 62) & / 'SESQ ', 30 / DATA CONV_FAC_CB6( 62) & / 1 / DATA SPMH_NAM_CB6( 63) , SPMH_MAP_CB6( 63) & / 'muurolene_g ', 62 / DATA MECH_NAM_CB6( 63) , MECH_MAP_CB6( 63) & / 'SESQ ', 30 / DATA CONV_FAC_CB6( 63) & / 1 / DATA SPMH_NAM_CB6( 64) , SPMH_MAP_CB6( 64) & / 'germacrene_D ', 58 / DATA MECH_NAM_CB6( 64) , MECH_MAP_CB6( 64) & / 'SESQ ', 30 / DATA CONV_FAC_CB6( 64) & / 1 / DATA SPMH_NAM_CB6( 65) , SPMH_MAP_CB6( 65) & / 'cadinene_g ', 49 / DATA MECH_NAM_CB6( 65) , MECH_MAP_CB6( 65) & / 'SESQ ', 30 / DATA CONV_FAC_CB6( 65) & / 1 / DATA SPMH_NAM_CB6( 66) , SPMH_MAP_CB6( 66) & / 'nerolidol_t ', 64 / DATA MECH_NAM_CB6( 66) , MECH_MAP_CB6( 66) & / 'SESQ ', 30 / DATA CONV_FAC_CB6( 66) & / 1 / DATA SPMH_NAM_CB6( 67) , SPMH_MAP_CB6( 67) & / 'bergamotene_b ', 45 / DATA MECH_NAM_CB6( 67) , MECH_MAP_CB6( 67) & / 'SESQ ', 30 / DATA CONV_FAC_CB6( 67) & / 1 / DATA SPMH_NAM_CB6( 68) , SPMH_MAP_CB6( 68) & / 'bisabolene_a ', 46 / DATA MECH_NAM_CB6( 68) , MECH_MAP_CB6( 68) & / 'SESQ ', 30 / DATA CONV_FAC_CB6( 68) & / 1 / DATA SPMH_NAM_CB6( 69) , SPMH_MAP_CB6( 69) & / 'cedrol ', 73 / DATA MECH_NAM_CB6( 69) , MECH_MAP_CB6( 69) & / 'SESQ ', 30 / DATA CONV_FAC_CB6( 69) & / 1 / DATA SPMH_NAM_CB6( 70) , SPMH_MAP_CB6( 70) & / 'homosalate ', 78 / DATA MECH_NAM_CB6( 70) , MECH_MAP_CB6( 70) & / 'SESQ ', 30 / DATA CONV_FAC_CB6( 70) & / 1 / DATA SPMH_NAM_CB6( 71) , SPMH_MAP_CB6( 71) & / '2ethyl_hexyl_salate ', 68 / DATA MECH_NAM_CB6( 71) , MECH_MAP_CB6( 71) & / 'SESQ ', 30 / DATA CONV_FAC_CB6( 71) & / 1 / DATA SPMH_NAM_CB6( 72) , SPMH_MAP_CB6( 72) & / 'cedrene_a ', 72 / DATA MECH_NAM_CB6( 72) , MECH_MAP_CB6( 72) & / 'SESQ ', 30 / DATA CONV_FAC_CB6( 72) & / 1 / DATA SPMH_NAM_CB6( 73) , SPMH_MAP_CB6( 73) & / 'thujopsene ', 83 / DATA MECH_NAM_CB6( 73) , MECH_MAP_CB6( 73) & / 'SESQ ', 30 / DATA CONV_FAC_CB6( 73) & / 1 / DATA SPMH_NAM_CB6( 74) , SPMH_MAP_CB6( 74) & / 'longifolene ', 81 / DATA MECH_NAM_CB6( 74) , MECH_MAP_CB6( 74) & / 'SESQ ', 30 / DATA CONV_FAC_CB6( 74) & / 1 / DATA SPMH_NAM_CB6( 75) , SPMH_MAP_CB6( 75) & / 'cadinol_a ', 71 / DATA MECH_NAM_CB6( 75) , MECH_MAP_CB6( 75) & / 'SESQ ', 30 / DATA CONV_FAC_CB6( 75) & / 1 / DATA SPMH_NAM_CB6( 76) , SPMH_MAP_CB6( 76) & / 'zingiberene_a ', 85 / DATA MECH_NAM_CB6( 76) , MECH_MAP_CB6( 76) & / 'SESQ ', 30 / DATA CONV_FAC_CB6( 76) & / 1 / DATA SPMH_NAM_CB6( 77) , SPMH_MAP_CB6( 77) & / 'isolongifolene ', 79 / DATA MECH_NAM_CB6( 77) , MECH_MAP_CB6( 77) & / 'SESQ ', 30 / DATA CONV_FAC_CB6( 77) & / 1 / DATA SPMH_NAM_CB6( 78) , SPMH_MAP_CB6( 78) & / 'longicyclene ', 87 / DATA MECH_NAM_CB6( 78) , MECH_MAP_CB6( 78) & / 'SESQ ', 30 / DATA CONV_FAC_CB6( 78) & / 1 / DATA SPMH_NAM_CB6( 79) , SPMH_MAP_CB6( 79) & / 'copaene_a ', 74 / DATA MECH_NAM_CB6( 79) , MECH_MAP_CB6( 79) & / 'SESQ ', 30 / DATA CONV_FAC_CB6( 79) & / 1 / DATA SPMH_NAM_CB6( 80) , SPMH_MAP_CB6( 80) & / 'bourbonene_b ', 70 / DATA MECH_NAM_CB6( 80) , MECH_MAP_CB6( 80) & / 'SESQ ', 30 / DATA CONV_FAC_CB6( 80) & / 1 / DATA SPMH_NAM_CB6( 81) , SPMH_MAP_CB6( 81) & / 'longipinene ', 82 / DATA MECH_NAM_CB6( 81) , MECH_MAP_CB6( 81) & / 'SESQ ', 30 / DATA CONV_FAC_CB6( 81) & / 1 / DATA SPMH_NAM_CB6( 82) , SPMH_MAP_CB6( 82) & / 'cubebene_b ', 76 / DATA MECH_NAM_CB6( 82) , MECH_MAP_CB6( 82) & / 'SESQ ', 30 / DATA CONV_FAC_CB6( 82) & / 1 / DATA SPMH_NAM_CB6( 83) , SPMH_MAP_CB6( 83) & / 'ylangene_a ', 84 / DATA MECH_NAM_CB6( 83) , MECH_MAP_CB6( 83) & / 'SESQ ', 30 / DATA CONV_FAC_CB6( 83) & / 1 / DATA SPMH_NAM_CB6( 84) , SPMH_MAP_CB6( 84) & / 'cubebene_a ', 75 / DATA MECH_NAM_CB6( 84) , MECH_MAP_CB6( 84) & / 'SESQ ', 30 / DATA CONV_FAC_CB6( 84) & / 1 / DATA SPMH_NAM_CB6( 85) , SPMH_MAP_CB6( 85) & / 'copaene_b ', 86 / DATA MECH_NAM_CB6( 85) , MECH_MAP_CB6( 85) & / 'SESQ ', 30 / DATA CONV_FAC_CB6( 85) & / 1 / DATA SPMH_NAM_CB6( 86) , SPMH_MAP_CB6( 86) & / 'kaur_16_ene ', 80 / DATA MECH_NAM_CB6( 86) , MECH_MAP_CB6( 86) & / 'SESQ ', 30 / DATA CONV_FAC_CB6( 86) & / 1 / DATA SPMH_NAM_CB6( 87) , SPMH_MAP_CB6( 87) & / 'gurjunene_b ', 77 / DATA MECH_NAM_CB6( 87) , MECH_MAP_CB6( 87) & / 'SESQ ', 30 / DATA CONV_FAC_CB6( 87) & / 1 / DATA SPMH_NAM_CB6( 88) , SPMH_MAP_CB6( 88) & / 'aromadendrene ', 69 / DATA MECH_NAM_CB6( 88) , MECH_MAP_CB6( 88) & / 'SESQ ', 30 / DATA CONV_FAC_CB6( 88) & / 1 / DATA SPMH_NAM_CB6( 89) , SPMH_MAP_CB6( 89) & / 'methanol ', 88 / DATA MECH_NAM_CB6( 89) , MECH_MAP_CB6( 89) & / 'MEOH ', 7 / DATA CONV_FAC_CB6( 89) & / 1 / DATA SPMH_NAM_CB6( 90) , SPMH_MAP_CB6( 90) & / 'acetone ', 89 / DATA MECH_NAM_CB6( 90) , MECH_MAP_CB6( 90) & / 'ACET ', 23 / DATA CONV_FAC_CB6( 90) & / 1 / DATA SPMH_NAM_CB6( 91) , SPMH_MAP_CB6( 91) & / 'ethanol ', 91 / DATA MECH_NAM_CB6( 91) , MECH_MAP_CB6( 91) & / 'ETOH ', 12 / DATA CONV_FAC_CB6( 91) & / 1 / DATA SPMH_NAM_CB6( 92) , SPMH_MAP_CB6( 92) & / 'acetaldehyde ', 90 / DATA MECH_NAM_CB6( 92) , MECH_MAP_CB6( 92) & / 'ALD2 ', 11 / DATA CONV_FAC_CB6( 92) & / 1 / DATA SPMH_NAM_CB6( 93) , SPMH_MAP_CB6( 93) & / 'formic_acid ', 93 / DATA MECH_NAM_CB6( 93) , MECH_MAP_CB6( 93) & / 'FACD ', 26 / DATA CONV_FAC_CB6( 93) & / 1 / DATA SPMH_NAM_CB6( 94) , SPMH_MAP_CB6( 94) & / 'acetic_acid ', 92 / DATA MECH_NAM_CB6( 94) , MECH_MAP_CB6( 94) & / 'AACD ', 25 / DATA CONV_FAC_CB6( 94) & / 1 / DATA SPMH_NAM_CB6( 95) , SPMH_MAP_CB6( 95) & / 'ethane ', 100 / DATA MECH_NAM_CB6( 95) , MECH_MAP_CB6( 95) & / 'ETHA ', 18 / DATA CONV_FAC_CB6( 95) & / 1 / DATA SPMH_NAM_CB6( 96) , SPMH_MAP_CB6( 96) & / 'ethene ', 101 / DATA MECH_NAM_CB6( 96) , MECH_MAP_CB6( 96) & / 'ETH ', 19 / DATA CONV_FAC_CB6( 96) & / 1 / DATA SPMH_NAM_CB6( 97) , SPMH_MAP_CB6( 97) & / 'propane ', 102 / DATA MECH_NAM_CB6( 97) , MECH_MAP_CB6( 97) & / 'PRPA ', 21 / DATA CONV_FAC_CB6( 97) & / 1 / DATA SPMH_NAM_CB6( 98) , SPMH_MAP_CB6( 98) & / 'butene ', 97 / DATA MECH_NAM_CB6( 98) , MECH_MAP_CB6( 98) & / 'OLE ', 5 / DATA CONV_FAC_CB6( 98) & / 1 / DATA SPMH_NAM_CB6( 99) , SPMH_MAP_CB6( 99) & / 'butene ', 97 / DATA MECH_NAM_CB6( 99) , MECH_MAP_CB6( 99) & / 'PAR ', 3 / DATA CONV_FAC_CB6( 99) & / 2 / DATA SPMH_NAM_CB6( 100) , SPMH_MAP_CB6( 100) & / 'propene ', 103 / DATA MECH_NAM_CB6( 100) , MECH_MAP_CB6( 100) & / 'OLE ', 5 / DATA CONV_FAC_CB6( 100) & / 1 / DATA SPMH_NAM_CB6( 101) , SPMH_MAP_CB6( 101) & / 'propene ', 103 / DATA MECH_NAM_CB6( 101) , MECH_MAP_CB6( 101) & / 'PAR ', 3 / DATA CONV_FAC_CB6( 101) & / 1 / DATA SPMH_NAM_CB6( 102) , SPMH_MAP_CB6( 102) & / '2_methylprop_1_ene ', 95 / DATA MECH_NAM_CB6( 102) , MECH_MAP_CB6( 102) & / 'OLE ', 5 / DATA CONV_FAC_CB6( 102) & / 1 / DATA SPMH_NAM_CB6( 103) , SPMH_MAP_CB6( 103) & / '2_methylprop_1_ene ', 95 / DATA MECH_NAM_CB6( 103) , MECH_MAP_CB6( 103) & / 'PAR ', 3 / DATA CONV_FAC_CB6( 103) & / 2 / DATA SPMH_NAM_CB6( 104) , SPMH_MAP_CB6( 104) & / 'butene_c2 ', 98 / DATA MECH_NAM_CB6( 104) , MECH_MAP_CB6( 104) & / 'IOLE ', 16 / DATA CONV_FAC_CB6( 104) & / 1 / DATA SPMH_NAM_CB6( 105) , SPMH_MAP_CB6( 105) & / 'butene_t2 ', 99 / DATA MECH_NAM_CB6( 105) , MECH_MAP_CB6( 105) & / 'IOLE ', 16 / DATA CONV_FAC_CB6( 105) & / 1 / DATA SPMH_NAM_CB6( 106) , SPMH_MAP_CB6( 106) & / 'formaldehyde ', 113 / DATA MECH_NAM_CB6( 106) , MECH_MAP_CB6( 106) & / 'FORM ', 13 / DATA CONV_FAC_CB6( 106) & / 1 / DATA SPMH_NAM_CB6( 107) , SPMH_MAP_CB6( 107) & / 'met_heptenone ', 106 / DATA MECH_NAM_CB6( 107) , MECH_MAP_CB6( 107) & / 'ISPD ', 28 / DATA CONV_FAC_CB6( 107) & / 1 / DATA SPMH_NAM_CB6( 108) , SPMH_MAP_CB6( 108) & / 'oxopentanal ', 114 / DATA MECH_NAM_CB6( 108) , MECH_MAP_CB6( 108) & / 'ISPD ', 28 / DATA CONV_FAC_CB6( 108) & / 1 / DATA SPMH_NAM_CB6( 109) , SPMH_MAP_CB6( 109) & / 'geranyl_acetone ', 105 / DATA MECH_NAM_CB6( 109) , MECH_MAP_CB6( 109) & / 'ISPD ', 28 / DATA CONV_FAC_CB6( 109) & / 1 / DATA SPMH_NAM_CB6( 110) , SPMH_MAP_CB6( 110) & / 'hexanal ', 141 / DATA MECH_NAM_CB6( 110) , MECH_MAP_CB6( 110) & / 'ISPD ', 28 / DATA CONV_FAC_CB6( 110) & / 1 / DATA SPMH_NAM_CB6( 111) , SPMH_MAP_CB6( 111) & / 'hydrogen_cyanide ', 147 / DATA MECH_NAM_CB6( 111) , MECH_MAP_CB6( 111) & / 'HCN ', 27 / DATA CONV_FAC_CB6( 111) & / 1 / DATA SPMH_NAM_CB6( 112) , SPMH_MAP_CB6( 112) & / 'linalool ', 150 / DATA MECH_NAM_CB6( 112) , MECH_MAP_CB6( 112) & / 'TERP ', 2 / DATA CONV_FAC_CB6( 112) & / 1 / DATA SPMH_NAM_CB6( 113) , SPMH_MAP_CB6( 113) & / 'methacrolein ', 153 / DATA MECH_NAM_CB6( 113) , MECH_MAP_CB6( 113) & / 'ISPD ', 28 / DATA CONV_FAC_CB6( 113) & / 1 / DATA SPMH_NAM_CB6( 114) , SPMH_MAP_CB6( 114) & / 'met_vinylketone ', 158 / DATA MECH_NAM_CB6( 114) , MECH_MAP_CB6( 114) & / 'ISPD ', 28 / DATA CONV_FAC_CB6( 114) & / 1 / DATA SPMH_NAM_CB6( 115) , SPMH_MAP_CB6( 115) & / 'hexanol_1 ', 142 / DATA MECH_NAM_CB6( 115) , MECH_MAP_CB6( 115) & / 'ISPD ', 28 / DATA CONV_FAC_CB6( 115) & / 1 / DATA SPMH_NAM_CB6( 116) , SPMH_MAP_CB6( 116) & / 'met_salicylate ', 156 / DATA MECH_NAM_CB6( 116) , MECH_MAP_CB6( 116) & / 'ISPD ', 28 / DATA CONV_FAC_CB6( 116) & / 1 / DATA SPMH_NAM_CB6( 117) , SPMH_MAP_CB6( 117) & / 'cineole_1_8 ', 133 / DATA MECH_NAM_CB6( 117) , MECH_MAP_CB6( 117) & / 'TERP ', 2 / DATA CONV_FAC_CB6( 117) & / 1 / DATA SPMH_NAM_CB6( 118) , SPMH_MAP_CB6( 118) & / 'hexenal_t2 ', 144 / DATA MECH_NAM_CB6( 118) , MECH_MAP_CB6( 118) & / 'ISPD ', 28 / DATA CONV_FAC_CB6( 118) & / 1 / DATA SPMH_NAM_CB6( 119) , SPMH_MAP_CB6( 119) & / 'hexenol_c3 ', 145 / DATA MECH_NAM_CB6( 119) , MECH_MAP_CB6( 119) & / 'ISPD ', 28 / DATA CONV_FAC_CB6( 119) & / 1 / DATA SPMH_NAM_CB6( 120) , SPMH_MAP_CB6( 120) & / 'hexenyl_ACT_c3 ', 146 / DATA MECH_NAM_CB6( 120) , MECH_MAP_CB6( 120) & / 'ISPD ', 28 / DATA CONV_FAC_CB6( 120) & / 1 / DATA SPMH_NAM_CB6( 121) , SPMH_MAP_CB6( 121) & / 'hexenal_c3 ', 143 / DATA MECH_NAM_CB6( 121) , MECH_MAP_CB6( 121) & / 'ISPD ', 28 / DATA CONV_FAC_CB6( 121) & / 1 / DATA SPMH_NAM_CB6( 122) , SPMH_MAP_CB6( 122) & / '2met_nonatriene ', 137 / DATA MECH_NAM_CB6( 122) , MECH_MAP_CB6( 122) & / 'TERP ', 2 / DATA CONV_FAC_CB6( 122) & / 1 / DATA SPMH_NAM_CB6( 123) , SPMH_MAP_CB6( 123) & / 'methane ', 184 / DATA MECH_NAM_CB6( 123) , MECH_MAP_CB6( 123) & / 'CH4 ', 8 / DATA CONV_FAC_CB6( 123) & / 1 / DATA SPMH_NAM_CB6( 124) , SPMH_MAP_CB6( 124) & / 'met_bromide ', 185 / DATA MECH_NAM_CB6( 124) , MECH_MAP_CB6( 124) & / 'CH3BR ', 32 / DATA CONV_FAC_CB6( 124) & / 1 / DATA SPMH_NAM_CB6( 125) , SPMH_MAP_CB6( 125) & / 'met_chloride ', 186 / DATA MECH_NAM_CB6( 125) , MECH_MAP_CB6( 125) & / 'CH3CL ', 33 / DATA CONV_FAC_CB6( 125) & / 1 / DATA SPMH_NAM_CB6( 126) , SPMH_MAP_CB6( 126) & / 'met_iodide ', 187 / DATA MECH_NAM_CB6( 126) , MECH_MAP_CB6( 126) & / 'CH3I ', 34 / DATA CONV_FAC_CB6( 126) & / 1 / DATA SPMH_NAM_CB6( 127) , SPMH_MAP_CB6( 127) & / 'met_mercaptan ', 188 / DATA MECH_NAM_CB6( 127) , MECH_MAP_CB6( 127) & / 'TRS ', 31 / DATA CONV_FAC_CB6( 127) & / 1 / DATA SPMH_NAM_CB6( 128) , SPMH_MAP_CB6( 128) & / 'carbon_2s ', 171 / DATA MECH_NAM_CB6( 128) , MECH_MAP_CB6( 128) & / 'TRS ', 31 / DATA CONV_FAC_CB6( 128) & / 1 / DATA SPMH_NAM_CB6( 129) , SPMH_MAP_CB6( 129) & / '2met_s ', 176 / DATA MECH_NAM_CB6( 129) , MECH_MAP_CB6( 129) & / 'TRS ', 31 / DATA CONV_FAC_CB6( 129) & / 1 / DATA SPMH_NAM_CB6( 130) , SPMH_MAP_CB6( 130) & / 'butanone_2 ', 170 / DATA MECH_NAM_CB6( 130) , MECH_MAP_CB6( 130) & / 'ISPD ', 28 / DATA CONV_FAC_CB6( 130) & / 1 / DATA SPMH_NAM_CB6( 131) , SPMH_MAP_CB6( 131) & / 'terpinyl_ACT_a ', 197 / DATA MECH_NAM_CB6( 131) , MECH_MAP_CB6( 131) & / 'TERP ', 2 / DATA CONV_FAC_CB6( 131) & / 1 / DATA SPMH_NAM_CB6( 132) , SPMH_MAP_CB6( 132) & / 'pentane ', 193 / DATA MECH_NAM_CB6( 132) , MECH_MAP_CB6( 132) & / 'PAR ', 3 / DATA CONV_FAC_CB6( 132) & / 5 / DATA SPMH_NAM_CB6( 133) , SPMH_MAP_CB6( 133) & / 'hexane ', 181 / DATA MECH_NAM_CB6( 133) , MECH_MAP_CB6( 133) & / 'PAR ', 3 / DATA CONV_FAC_CB6( 133) & / 6 / DATA SPMH_NAM_CB6( 134) , SPMH_MAP_CB6( 134) & / 'decane ', 173 / DATA MECH_NAM_CB6( 134) , MECH_MAP_CB6( 134) & / 'PAR ', 3 / DATA CONV_FAC_CB6( 134) & / 10 / DATA SPMH_NAM_CB6( 135) , SPMH_MAP_CB6( 135) & / 'heptane ', 179 / DATA MECH_NAM_CB6( 135) , MECH_MAP_CB6( 135) & / 'PAR ', 3 / DATA CONV_FAC_CB6( 135) & / 7 / DATA SPMH_NAM_CB6( 136) , SPMH_MAP_CB6( 136) & / 'carbonyl_s ', 172 / DATA MECH_NAM_CB6( 136) , MECH_MAP_CB6( 136) & / 'TRS ', 31 / DATA CONV_FAC_CB6( 136) & / 1 / DATA SPMH_NAM_CB6( 137) , SPMH_MAP_CB6( 137) & / '2met_2s ', 175 / DATA MECH_NAM_CB6( 137) , MECH_MAP_CB6( 137) & / 'TRS ', 31 / DATA CONV_FAC_CB6( 137) & / 1 / DATA SPMH_NAM_CB6( 138) , SPMH_MAP_CB6( 138) & / 'undecane ', 199 / DATA MECH_NAM_CB6( 138) , MECH_MAP_CB6( 138) & / 'PAR ', 3 / DATA CONV_FAC_CB6( 138) & / 11 / DATA SPMH_NAM_CB6( 139) , SPMH_MAP_CB6( 139) & / 'tetradecene_1 ', 198 / DATA MECH_NAM_CB6( 139) , MECH_MAP_CB6( 139) & / 'PAR ', 3 / DATA CONV_FAC_CB6( 139) & / 14 / DATA SPMH_NAM_CB6( 140) , SPMH_MAP_CB6( 140) & / 'diallyl_2s ', 174 / DATA MECH_NAM_CB6( 140) , MECH_MAP_CB6( 140) & / 'TRS ', 31 / DATA CONV_FAC_CB6( 140) & / 1 / DATA SPMH_NAM_CB6( 141) , SPMH_MAP_CB6( 141) & / 'PPPP_2s ', 194 / DATA MECH_NAM_CB6( 141) , MECH_MAP_CB6( 141) & / 'TRS ', 31 / DATA CONV_FAC_CB6( 141) & / 1 / DATA SPMH_NAM_CB6( 142) , SPMH_MAP_CB6( 142) & / 'met_propenyl_2s ', 189 / DATA MECH_NAM_CB6( 142) , MECH_MAP_CB6( 142) & / 'TRS ', 31 / DATA CONV_FAC_CB6( 142) & / 1 / DATA SPMH_NAM_CB6( 143) , SPMH_MAP_CB6( 143) & / 'hydrogen_s ', 182 / DATA MECH_NAM_CB6( 143) , MECH_MAP_CB6( 143) & / 'TRS ', 31 / DATA CONV_FAC_CB6( 143) & / 1 / DATA SPMH_NAM_CB6( 144) , SPMH_MAP_CB6( 144) & / 'carbon_monoxide ', 200 / DATA MECH_NAM_CB6( 144) , MECH_MAP_CB6( 144) & / 'CO ', 17 / DATA CONV_FAC_CB6( 144) & / 1 / DATA SPMH_NAM_CB6( 145) , SPMH_MAP_CB6( 145) & / 'nitric_OXD ', 201 / DATA MECH_NAM_CB6( 145) , MECH_MAP_CB6( 145) & / 'NO ', 10 / DATA CONV_FAC_CB6( 145) & / 1 / DATA SPMH_NAM_CB6( 146) , SPMH_MAP_CB6( 146) & / 'formaldehyde ', 113 / DATA MECH_NAM_CB6( 146) , MECH_MAP_CB6( 146) & / 'FORM_PRIMARY', 36 / DATA CONV_FAC_CB6( 146) & / 1 / DATA SPMH_NAM_CB6( 147) , SPMH_MAP_CB6( 147) & / 'acetaldehyde ', 90 / DATA MECH_NAM_CB6( 147) , MECH_MAP_CB6( 147) & / 'ALD2_PRIMARY', 35 / DATA CONV_FAC_CB6( 147) & / 1 / ================================================ FILE: CCTM/src/biog/megan3/MAP_CV2CB6_AE7.EXT ================================================ C======================================================================= C MAP_CV2CB6.EXT C This include file contains conversion table for 201 speciated species C to CB6 (CMAQ/CAMx) species C C C MEGAN v3 C C History: C Who When What C --------------------------------------------------------------------- C Tan 07/18/11 - Created for MEGANv2.10 C Ling Huang 06/13/17 - Updated for MEGANv3 C======================================================================= CHARACTER*16 MAP_CB6AE7MECH PARAMETER (MAP_CB6AE7MECH = 'CB6_ae7 ') INTEGER N_CB6_AE7 PARAMETER (N_CB6_AE7 = (147)) ! Number of map species CHARACTER*16 SPMH_NAM_CB6_AE7( N_CB6_AE7 ) ! speciated species name INTEGER SPMH_MAP_CB6_AE7( N_CB6_AE7 ) ! speciated species name ! mapped to SPC_SPCAT.EXT CHARACTER*16 MECH_NAM_CB6_AE7( N_CB6_AE7 ) ! mechanism species INTEGER MECH_MAP_CB6_AE7( N_CB6_AE7 ) ! mechanism species mapped REAL CONV_FAC_CB6_AE7( N_CB6_AE7 ) ! conversion factor DATA SPMH_NAM_CB6_AE7( 1) , SPMH_MAP_CB6_AE7( 1) & / 'isoprene ', 1 / DATA MECH_NAM_CB6_AE7( 1) , MECH_MAP_CB6_AE7( 1) & / 'ISOP ', 1 / DATA CONV_FAC_CB6_AE7( 1) & / 1 / DATA SPMH_NAM_CB6_AE7( 2) , SPMH_MAP_CB6_AE7( 2) & / 'MBO_2m3e2ol ', 2 / DATA MECH_NAM_CB6_AE7( 2) , MECH_MAP_CB6_AE7( 2) & / 'OLE ', 5 / DATA CONV_FAC_CB6_AE7( 2) & / 1 / DATA SPMH_NAM_CB6_AE7( 3) , SPMH_MAP_CB6_AE7( 3) & / 'MBO_2m3e2ol ', 2 / DATA MECH_NAM_CB6_AE7( 3) , MECH_MAP_CB6_AE7( 3) & / 'PAR ', 3 / DATA CONV_FAC_CB6_AE7( 3) & / 3 / DATA SPMH_NAM_CB6_AE7( 4) , SPMH_MAP_CB6_AE7( 4) & / 'pinene_a ', 3 / DATA MECH_NAM_CB6_AE7( 4) , MECH_MAP_CB6_AE7( 4) & / 'APIN ', 35 / DATA CONV_FAC_CB6_AE7( 4) & / 1 / DATA SPMH_NAM_CB6_AE7( 5) , SPMH_MAP_CB6_AE7( 5) & / 'pinene_b ', 4 / DATA MECH_NAM_CB6_AE7( 5) , MECH_MAP_CB6_AE7( 5) & / 'TERP ', 2 / DATA CONV_FAC_CB6_AE7( 5) & / 1 / DATA SPMH_NAM_CB6_AE7( 6) , SPMH_MAP_CB6_AE7( 6) & / 'myrcene ', 5 / DATA MECH_NAM_CB6_AE7( 6) , MECH_MAP_CB6_AE7( 6) & / 'TERP ', 2 / DATA CONV_FAC_CB6_AE7( 6) & / 1 / DATA SPMH_NAM_CB6_AE7( 7) , SPMH_MAP_CB6_AE7( 7) & / 'ocimene_al ', 6 / DATA MECH_NAM_CB6_AE7( 7) , MECH_MAP_CB6_AE7( 7) & / 'TERP ', 2 / DATA CONV_FAC_CB6_AE7( 7) & / 1 / DATA SPMH_NAM_CB6_AE7( 8) , SPMH_MAP_CB6_AE7( 8) & / 'ocimene_c_b ', 7 / DATA MECH_NAM_CB6_AE7( 8) , MECH_MAP_CB6_AE7( 8) & / 'TERP ', 2 / DATA CONV_FAC_CB6_AE7( 8) & / 1 / DATA SPMH_NAM_CB6_AE7( 9) , SPMH_MAP_CB6_AE7( 9) & / 'ocimene_t_b ', 8 / DATA MECH_NAM_CB6_AE7( 9) , MECH_MAP_CB6_AE7( 9) & / 'TERP ', 2 / DATA CONV_FAC_CB6_AE7( 9) & / 1 / DATA SPMH_NAM_CB6_AE7( 10) , SPMH_MAP_CB6_AE7( 10) & / 'camphene ', 10 / DATA MECH_NAM_CB6_AE7( 10) , MECH_MAP_CB6_AE7( 10) & / 'TERP ', 2 / DATA CONV_FAC_CB6_AE7( 10) & / 1 / DATA SPMH_NAM_CB6_AE7( 11) , SPMH_MAP_CB6_AE7( 11) & / 'bornene ', 9 / DATA MECH_NAM_CB6_AE7( 11) , MECH_MAP_CB6_AE7( 11) & / 'TERP ', 2 / DATA CONV_FAC_CB6_AE7( 11) & / 1 / DATA SPMH_NAM_CB6_AE7( 12) , SPMH_MAP_CB6_AE7( 12) & / 'fenchene_a ', 12 / DATA MECH_NAM_CB6_AE7( 12) , MECH_MAP_CB6_AE7( 12) & / 'TERP ', 2 / DATA CONV_FAC_CB6_AE7( 12) & / 1 / DATA SPMH_NAM_CB6_AE7( 13) , SPMH_MAP_CB6_AE7( 13) & / 'tricyclene ', 14 / DATA MECH_NAM_CB6_AE7( 13) , MECH_MAP_CB6_AE7( 13) & / 'TERP ', 2 / DATA CONV_FAC_CB6_AE7( 13) & / 1 / DATA SPMH_NAM_CB6_AE7( 14) , SPMH_MAP_CB6_AE7( 14) & / 'carene_3 ', 11 / DATA MECH_NAM_CB6_AE7( 14) , MECH_MAP_CB6_AE7( 14) & / 'TERP ', 2 / DATA CONV_FAC_CB6_AE7( 14) & / 1 / DATA SPMH_NAM_CB6_AE7( 15) , SPMH_MAP_CB6_AE7( 15) & / 'fenchene_b ', 13 / DATA MECH_NAM_CB6_AE7( 15) , MECH_MAP_CB6_AE7( 15) & / 'TERP ', 2 / DATA CONV_FAC_CB6_AE7( 15) & / 1 / DATA SPMH_NAM_CB6_AE7( 16) , SPMH_MAP_CB6_AE7( 16) & / 'phellandrene_a ', 17 / DATA MECH_NAM_CB6_AE7( 16) , MECH_MAP_CB6_AE7( 16) & / 'TERP ', 2 / DATA CONV_FAC_CB6_AE7( 16) & / 1 / DATA SPMH_NAM_CB6_AE7( 17) , SPMH_MAP_CB6_AE7( 17) & / 'terpinene_g ', 20 / DATA MECH_NAM_CB6_AE7( 17) , MECH_MAP_CB6_AE7( 17) & / 'TERP ', 2 / DATA CONV_FAC_CB6_AE7( 17) & / 1 / DATA SPMH_NAM_CB6_AE7( 18) , SPMH_MAP_CB6_AE7( 18) & / 'terpinene_a ', 19 / DATA MECH_NAM_CB6_AE7( 18) , MECH_MAP_CB6_AE7( 18) & / 'TERP ', 2 / DATA CONV_FAC_CB6_AE7( 18) & / 1 / DATA SPMH_NAM_CB6_AE7( 19) , SPMH_MAP_CB6_AE7( 19) & / 'limonene ', 15 / DATA MECH_NAM_CB6_AE7( 19) , MECH_MAP_CB6_AE7( 19) & / 'TERP ', 2 / DATA CONV_FAC_CB6_AE7( 19) & / 1 / DATA SPMH_NAM_CB6_AE7( 20) , SPMH_MAP_CB6_AE7( 20) & / 'phellandrene_b ', 16 / DATA MECH_NAM_CB6_AE7( 20) , MECH_MAP_CB6_AE7( 20) & / 'TERP ', 2 / DATA CONV_FAC_CB6_AE7( 20) & / 1 / DATA SPMH_NAM_CB6_AE7( 21) , SPMH_MAP_CB6_AE7( 21) & / 'terpinolene ', 21 / DATA MECH_NAM_CB6_AE7( 21) , MECH_MAP_CB6_AE7( 21) & / 'TERP ', 2 / DATA CONV_FAC_CB6_AE7( 21) & / 1 / DATA SPMH_NAM_CB6_AE7( 22) , SPMH_MAP_CB6_AE7( 22) & / 'thujene_a ', 22 / DATA MECH_NAM_CB6_AE7( 22) , MECH_MAP_CB6_AE7( 22) & / 'TERP ', 2 / DATA CONV_FAC_CB6_AE7( 22) & / 1 / DATA SPMH_NAM_CB6_AE7( 23) , SPMH_MAP_CB6_AE7( 23) & / 'sabinene ', 18 / DATA MECH_NAM_CB6_AE7( 23) , MECH_MAP_CB6_AE7( 23) & / 'TERP ', 2 / DATA CONV_FAC_CB6_AE7( 23) & / 1 / DATA SPMH_NAM_CB6_AE7( 24) , SPMH_MAP_CB6_AE7( 24) & / 'verbenene ', 23 / DATA MECH_NAM_CB6_AE7( 24) , MECH_MAP_CB6_AE7( 24) & / 'TERP ', 2 / DATA CONV_FAC_CB6_AE7( 24) & / 1 / DATA SPMH_NAM_CB6_AE7( 25) , SPMH_MAP_CB6_AE7( 25) & / 'cymene_p ', 25 / DATA MECH_NAM_CB6_AE7( 25) , MECH_MAP_CB6_AE7( 25) & / 'TERP ', 2 / DATA CONV_FAC_CB6_AE7( 25) & / 1 / DATA SPMH_NAM_CB6_AE7( 26) , SPMH_MAP_CB6_AE7( 26) & / 'cymene_o ', 24 / DATA MECH_NAM_CB6_AE7( 26) , MECH_MAP_CB6_AE7( 26) & / 'TERP ', 2 / DATA CONV_FAC_CB6_AE7( 26) & / 1 / DATA SPMH_NAM_CB6_AE7( 27) , SPMH_MAP_CB6_AE7( 27) & / 'meta-cymenene ', 26 / DATA MECH_NAM_CB6_AE7( 27) , MECH_MAP_CB6_AE7( 27) & / 'TERP ', 2 / DATA CONV_FAC_CB6_AE7( 27) & / 1 / DATA SPMH_NAM_CB6_AE7( 28) , SPMH_MAP_CB6_AE7( 28) & / 'p-cymenene ', 27 / DATA MECH_NAM_CB6_AE7( 28) , MECH_MAP_CB6_AE7( 28) & / 'TERP ', 2 / DATA CONV_FAC_CB6_AE7( 28) & / 1 / DATA SPMH_NAM_CB6_AE7( 29) , SPMH_MAP_CB6_AE7( 29) & / 'camphor ', 30 / DATA MECH_NAM_CB6_AE7( 29) , MECH_MAP_CB6_AE7( 29) & / 'TERP ', 2 / DATA CONV_FAC_CB6_AE7( 29) & / 1 / DATA SPMH_NAM_CB6_AE7( 30) , SPMH_MAP_CB6_AE7( 30) & / 'bornyl_ACT ', 29 / DATA MECH_NAM_CB6_AE7( 30) , MECH_MAP_CB6_AE7( 30) & / 'TERP ', 2 / DATA CONV_FAC_CB6_AE7( 30) & / 1 / DATA SPMH_NAM_CB6_AE7( 31) , SPMH_MAP_CB6_AE7( 31) & / 'piperitone ', 38 / DATA MECH_NAM_CB6_AE7( 31) , MECH_MAP_CB6_AE7( 31) & / 'TERP ', 2 / DATA CONV_FAC_CB6_AE7( 31) & / 1 / DATA SPMH_NAM_CB6_AE7( 32) , SPMH_MAP_CB6_AE7( 32) & / 'terpineol_a ', 40 / DATA MECH_NAM_CB6_AE7( 32) , MECH_MAP_CB6_AE7( 32) & / 'TERP ', 2 / DATA CONV_FAC_CB6_AE7( 32) & / 1 / DATA SPMH_NAM_CB6_AE7( 33) , SPMH_MAP_CB6_AE7( 33) & / 'octanol ', 36 / DATA MECH_NAM_CB6_AE7( 33) , MECH_MAP_CB6_AE7( 33) & / 'PAR ', 3 / DATA CONV_FAC_CB6_AE7( 33) & / 8 / DATA SPMH_NAM_CB6_AE7( 34) , SPMH_MAP_CB6_AE7( 34) & / 'estragole ', 31 / DATA MECH_NAM_CB6_AE7( 34) , MECH_MAP_CB6_AE7( 34) & / 'TERP ', 2 / DATA CONV_FAC_CB6_AE7( 34) & / 1 / DATA SPMH_NAM_CB6_AE7( 35) , SPMH_MAP_CB6_AE7( 35) & / 'borneol ', 28 / DATA MECH_NAM_CB6_AE7( 35) , MECH_MAP_CB6_AE7( 35) & / 'TERP ', 2 / DATA CONV_FAC_CB6_AE7( 35) & / 1 / DATA SPMH_NAM_CB6_AE7( 36) , SPMH_MAP_CB6_AE7( 36) & / 'thujone_b ', 42 / DATA MECH_NAM_CB6_AE7( 36) , MECH_MAP_CB6_AE7( 36) & / 'TERP ', 2 / DATA CONV_FAC_CB6_AE7( 36) & / 1 / DATA SPMH_NAM_CB6_AE7( 37) , SPMH_MAP_CB6_AE7( 37) & / 'thujone_a ', 41 / DATA MECH_NAM_CB6_AE7( 37) , MECH_MAP_CB6_AE7( 37) & / 'TERP ', 2 / DATA CONV_FAC_CB6_AE7( 37) & / 1 / DATA SPMH_NAM_CB6_AE7( 38) , SPMH_MAP_CB6_AE7( 38) & / 'terpineol_4 ', 39 / DATA MECH_NAM_CB6_AE7( 38) , MECH_MAP_CB6_AE7( 38) & / 'TERP ', 2 / DATA CONV_FAC_CB6_AE7( 38) & / 1 / DATA SPMH_NAM_CB6_AE7( 39) , SPMH_MAP_CB6_AE7( 39) & / 'myrtenal ', 35 / DATA MECH_NAM_CB6_AE7( 39) , MECH_MAP_CB6_AE7( 39) & / 'TERP ', 2 / DATA CONV_FAC_CB6_AE7( 39) & / 1 / DATA SPMH_NAM_CB6_AE7( 40) , SPMH_MAP_CB6_AE7( 40) & / 'fenchone ', 32 / DATA MECH_NAM_CB6_AE7( 40) , MECH_MAP_CB6_AE7( 40) & / 'TERP ', 2 / DATA CONV_FAC_CB6_AE7( 40) & / 1 / DATA SPMH_NAM_CB6_AE7( 41) , SPMH_MAP_CB6_AE7( 41) & / 'octenol_1e3ol ', 37 / DATA MECH_NAM_CB6_AE7( 41) , MECH_MAP_CB6_AE7( 41) & / 'TERP ', 2 / DATA CONV_FAC_CB6_AE7( 41) & / 1 / DATA SPMH_NAM_CB6_AE7( 42) , SPMH_MAP_CB6_AE7( 42) & / 'ionone_b ', 33 / DATA MECH_NAM_CB6_AE7( 42) , MECH_MAP_CB6_AE7( 42) & / 'TERP ', 2 / DATA CONV_FAC_CB6_AE7( 42) & / 1 / DATA SPMH_NAM_CB6_AE7( 43) , SPMH_MAP_CB6_AE7( 43) & / 'ipsenol ', 34 / DATA MECH_NAM_CB6_AE7( 43) , MECH_MAP_CB6_AE7( 43) & / 'TERP ', 2 / DATA CONV_FAC_CB6_AE7( 43) & / 1 / DATA SPMH_NAM_CB6_AE7( 44) , SPMH_MAP_CB6_AE7( 44) & / 'caryophyllene_b ', 51 / DATA MECH_NAM_CB6_AE7( 44) , MECH_MAP_CB6_AE7( 44) & / 'SESQ ', 30 / DATA CONV_FAC_CB6_AE7( 44) & / 1 / DATA SPMH_NAM_CB6_AE7( 45) , SPMH_MAP_CB6_AE7( 45) & / 'caryophyllene_c_i ', 52 / DATA MECH_NAM_CB6_AE7( 45) , MECH_MAP_CB6_AE7( 45) & / 'SESQ ', 30 / DATA CONV_FAC_CB6_AE7( 45) & / 1 / DATA SPMH_NAM_CB6_AE7( 46) , SPMH_MAP_CB6_AE7( 46) & / 'cadinene_d ', 48 / DATA MECH_NAM_CB6_AE7( 46) , MECH_MAP_CB6_AE7( 46) & / 'SESQ ', 30 / DATA CONV_FAC_CB6_AE7( 46) & / 1 / DATA SPMH_NAM_CB6_AE7( 47) , SPMH_MAP_CB6_AE7( 47) & / 'cadinene_d ', 48 / DATA MECH_NAM_CB6_AE7( 47) , MECH_MAP_CB6_AE7( 47) & / 'SESQ ', 30 / DATA CONV_FAC_CB6_AE7( 47) & / 1 / DATA SPMH_NAM_CB6_AE7( 48) , SPMH_MAP_CB6_AE7( 48) & / 'bisabolene_b ', 47 / DATA MECH_NAM_CB6_AE7( 48) , MECH_MAP_CB6_AE7( 48) & / 'SESQ ', 30 / DATA CONV_FAC_CB6_AE7( 48) & / 1 / DATA SPMH_NAM_CB6_AE7( 49) , SPMH_MAP_CB6_AE7( 49) & / 'farnescene_a ', 54 / DATA MECH_NAM_CB6_AE7( 49) , MECH_MAP_CB6_AE7( 49) & / 'SESQ ', 30 / DATA CONV_FAC_CB6_AE7( 49) & / 1 / DATA SPMH_NAM_CB6_AE7( 50) , SPMH_MAP_CB6_AE7( 50) & / 'patchoulene_b ', 65 / DATA MECH_NAM_CB6_AE7( 50) , MECH_MAP_CB6_AE7( 50) & / 'SESQ ', 30 / DATA CONV_FAC_CB6_AE7( 50) & / 1 / DATA SPMH_NAM_CB6_AE7( 51) , SPMH_MAP_CB6_AE7( 51) & / 'elemene_b ', 53 / DATA MECH_NAM_CB6_AE7( 51) , MECH_MAP_CB6_AE7( 51) & / 'SESQ ', 30 / DATA CONV_FAC_CB6_AE7( 51) & / 1 / DATA SPMH_NAM_CB6_AE7( 52) , SPMH_MAP_CB6_AE7( 52) & / 'nerolidol_c ', 63 / DATA MECH_NAM_CB6_AE7( 52) , MECH_MAP_CB6_AE7( 52) & / 'SESQ ', 30 / DATA CONV_FAC_CB6_AE7( 52) & / 1 / DATA SPMH_NAM_CB6_AE7( 53) , SPMH_MAP_CB6_AE7( 53) & / 'farnesol ', 56 / DATA MECH_NAM_CB6_AE7( 53) , MECH_MAP_CB6_AE7( 53) & / 'SESQ ', 30 / DATA CONV_FAC_CB6_AE7( 53) & / 1 / DATA SPMH_NAM_CB6_AE7( 54) , SPMH_MAP_CB6_AE7( 54) & / 'humulene_a ', 59 / DATA MECH_NAM_CB6_AE7( 54) , MECH_MAP_CB6_AE7( 54) & / 'SESQ ', 30 / DATA CONV_FAC_CB6_AE7( 54) & / 1 / DATA SPMH_NAM_CB6_AE7( 55) , SPMH_MAP_CB6_AE7( 55) & / 'muurolene_a ', 61 / DATA MECH_NAM_CB6_AE7( 55) , MECH_MAP_CB6_AE7( 55) & / 'SESQ ', 30 / DATA CONV_FAC_CB6_AE7( 55) & / 1 / DATA SPMH_NAM_CB6_AE7( 56) , SPMH_MAP_CB6_AE7( 56) & / 'bergamotene_a ', 44 / DATA MECH_NAM_CB6_AE7( 56) , MECH_MAP_CB6_AE7( 56) & / 'SESQ ', 30 / DATA CONV_FAC_CB6_AE7( 56) & / 1 / DATA SPMH_NAM_CB6_AE7( 57) , SPMH_MAP_CB6_AE7( 57) & / 'germacrene_B ', 57 / DATA MECH_NAM_CB6_AE7( 57) , MECH_MAP_CB6_AE7( 57) & / 'SESQ ', 30 / DATA CONV_FAC_CB6_AE7( 57) & / 1 / DATA SPMH_NAM_CB6_AE7( 58) , SPMH_MAP_CB6_AE7( 58) & / 'selinene_b ', 66 / DATA MECH_NAM_CB6_AE7( 58) , MECH_MAP_CB6_AE7( 58) & / 'SESQ ', 30 / DATA CONV_FAC_CB6_AE7( 58) & / 1 / DATA SPMH_NAM_CB6_AE7( 59) , SPMH_MAP_CB6_AE7( 59) & / 'calarene ', 50 / DATA MECH_NAM_CB6_AE7( 59) , MECH_MAP_CB6_AE7( 59) & / 'SESQ ', 30 / DATA CONV_FAC_CB6_AE7( 59) & / 1 / DATA SPMH_NAM_CB6_AE7( 60) , SPMH_MAP_CB6_AE7( 60) & / 'farnescene_b ', 55 / DATA MECH_NAM_CB6_AE7( 60) , MECH_MAP_CB6_AE7( 60) & / 'SESQ ', 30 / DATA CONV_FAC_CB6_AE7( 60) & / 1 / DATA SPMH_NAM_CB6_AE7( 61) , SPMH_MAP_CB6_AE7( 61) & / 'acoradiene ', 43 / DATA MECH_NAM_CB6_AE7( 61) , MECH_MAP_CB6_AE7( 61) & / 'SESQ ', 30 / DATA CONV_FAC_CB6_AE7( 61) & / 1 / DATA SPMH_NAM_CB6_AE7( 62) , SPMH_MAP_CB6_AE7( 62) & / 'humulene_g ', 60 / DATA MECH_NAM_CB6_AE7( 62) , MECH_MAP_CB6_AE7( 62) & / 'SESQ ', 30 / DATA CONV_FAC_CB6_AE7( 62) & / 1 / DATA SPMH_NAM_CB6_AE7( 63) , SPMH_MAP_CB6_AE7( 63) & / 'muurolene_g ', 62 / DATA MECH_NAM_CB6_AE7( 63) , MECH_MAP_CB6_AE7( 63) & / 'SESQ ', 30 / DATA CONV_FAC_CB6_AE7( 63) & / 1 / DATA SPMH_NAM_CB6_AE7( 64) , SPMH_MAP_CB6_AE7( 64) & / 'germacrene_D ', 58 / DATA MECH_NAM_CB6_AE7( 64) , MECH_MAP_CB6_AE7( 64) & / 'SESQ ', 30 / DATA CONV_FAC_CB6_AE7( 64) & / 1 / DATA SPMH_NAM_CB6_AE7( 65) , SPMH_MAP_CB6_AE7( 65) & / 'cadinene_g ', 49 / DATA MECH_NAM_CB6_AE7( 65) , MECH_MAP_CB6_AE7( 65) & / 'SESQ ', 30 / DATA CONV_FAC_CB6_AE7( 65) & / 1 / DATA SPMH_NAM_CB6_AE7( 66) , SPMH_MAP_CB6_AE7( 66) & / 'nerolidol_t ', 64 / DATA MECH_NAM_CB6_AE7( 66) , MECH_MAP_CB6_AE7( 66) & / 'SESQ ', 30 / DATA CONV_FAC_CB6_AE7( 66) & / 1 / DATA SPMH_NAM_CB6_AE7( 67) , SPMH_MAP_CB6_AE7( 67) & / 'bergamotene_b ', 45 / DATA MECH_NAM_CB6_AE7( 67) , MECH_MAP_CB6_AE7( 67) & / 'SESQ ', 30 / DATA CONV_FAC_CB6_AE7( 67) & / 1 / DATA SPMH_NAM_CB6_AE7( 68) , SPMH_MAP_CB6_AE7( 68) & / 'bisabolene_a ', 46 / DATA MECH_NAM_CB6_AE7( 68) , MECH_MAP_CB6_AE7( 68) & / 'SESQ ', 30 / DATA CONV_FAC_CB6_AE7( 68) & / 1 / DATA SPMH_NAM_CB6_AE7( 69) , SPMH_MAP_CB6_AE7( 69) & / 'cedrol ', 73 / DATA MECH_NAM_CB6_AE7( 69) , MECH_MAP_CB6_AE7( 69) & / 'SESQ ', 30 / DATA CONV_FAC_CB6_AE7( 69) & / 1 / DATA SPMH_NAM_CB6_AE7( 70) , SPMH_MAP_CB6_AE7( 70) & / 'homosalate ', 78 / DATA MECH_NAM_CB6_AE7( 70) , MECH_MAP_CB6_AE7( 70) & / 'SESQ ', 30 / DATA CONV_FAC_CB6_AE7( 70) & / 1 / DATA SPMH_NAM_CB6_AE7( 71) , SPMH_MAP_CB6_AE7( 71) & / '2ethyl_hexyl_salate ', 68 / DATA MECH_NAM_CB6_AE7( 71) , MECH_MAP_CB6_AE7( 71) & / 'SESQ ', 30 / DATA CONV_FAC_CB6_AE7( 71) & / 1 / DATA SPMH_NAM_CB6_AE7( 72) , SPMH_MAP_CB6_AE7( 72) & / 'cedrene_a ', 72 / DATA MECH_NAM_CB6_AE7( 72) , MECH_MAP_CB6_AE7( 72) & / 'SESQ ', 30 / DATA CONV_FAC_CB6_AE7( 72) & / 1 / DATA SPMH_NAM_CB6_AE7( 73) , SPMH_MAP_CB6_AE7( 73) & / 'thujopsene ', 83 / DATA MECH_NAM_CB6_AE7( 73) , MECH_MAP_CB6_AE7( 73) & / 'SESQ ', 30 / DATA CONV_FAC_CB6_AE7( 73) & / 1 / DATA SPMH_NAM_CB6_AE7( 74) , SPMH_MAP_CB6_AE7( 74) & / 'longifolene ', 81 / DATA MECH_NAM_CB6_AE7( 74) , MECH_MAP_CB6_AE7( 74) & / 'SESQ ', 30 / DATA CONV_FAC_CB6_AE7( 74) & / 1 / DATA SPMH_NAM_CB6_AE7( 75) , SPMH_MAP_CB6_AE7( 75) & / 'cadinol_a ', 71 / DATA MECH_NAM_CB6_AE7( 75) , MECH_MAP_CB6_AE7( 75) & / 'SESQ ', 30 / DATA CONV_FAC_CB6_AE7( 75) & / 1 / DATA SPMH_NAM_CB6_AE7( 76) , SPMH_MAP_CB6_AE7( 76) & / 'zingiberene_a ', 85 / DATA MECH_NAM_CB6_AE7( 76) , MECH_MAP_CB6_AE7( 76) & / 'SESQ ', 30 / DATA CONV_FAC_CB6_AE7( 76) & / 1 / DATA SPMH_NAM_CB6_AE7( 77) , SPMH_MAP_CB6_AE7( 77) & / 'isolongifolene ', 79 / DATA MECH_NAM_CB6_AE7( 77) , MECH_MAP_CB6_AE7( 77) & / 'SESQ ', 30 / DATA CONV_FAC_CB6_AE7( 77) & / 1 / DATA SPMH_NAM_CB6_AE7( 78) , SPMH_MAP_CB6_AE7( 78) & / 'longicyclene ', 87 / DATA MECH_NAM_CB6_AE7( 78) , MECH_MAP_CB6_AE7( 78) & / 'SESQ ', 30 / DATA CONV_FAC_CB6_AE7( 78) & / 1 / DATA SPMH_NAM_CB6_AE7( 79) , SPMH_MAP_CB6_AE7( 79) & / 'copaene_a ', 74 / DATA MECH_NAM_CB6_AE7( 79) , MECH_MAP_CB6_AE7( 79) & / 'SESQ ', 30 / DATA CONV_FAC_CB6_AE7( 79) & / 1 / DATA SPMH_NAM_CB6_AE7( 80) , SPMH_MAP_CB6_AE7( 80) & / 'bourbonene_b ', 70 / DATA MECH_NAM_CB6_AE7( 80) , MECH_MAP_CB6_AE7( 80) & / 'SESQ ', 30 / DATA CONV_FAC_CB6_AE7( 80) & / 1 / DATA SPMH_NAM_CB6_AE7( 81) , SPMH_MAP_CB6_AE7( 81) & / 'longipinene ', 82 / DATA MECH_NAM_CB6_AE7( 81) , MECH_MAP_CB6_AE7( 81) & / 'SESQ ', 30 / DATA CONV_FAC_CB6_AE7( 81) & / 1 / DATA SPMH_NAM_CB6_AE7( 82) , SPMH_MAP_CB6_AE7( 82) & / 'cubebene_b ', 76 / DATA MECH_NAM_CB6_AE7( 82) , MECH_MAP_CB6_AE7( 82) & / 'SESQ ', 30 / DATA CONV_FAC_CB6_AE7( 82) & / 1 / DATA SPMH_NAM_CB6_AE7( 83) , SPMH_MAP_CB6_AE7( 83) & / 'ylangene_a ', 84 / DATA MECH_NAM_CB6_AE7( 83) , MECH_MAP_CB6_AE7( 83) & / 'SESQ ', 30 / DATA CONV_FAC_CB6_AE7( 83) & / 1 / DATA SPMH_NAM_CB6_AE7( 84) , SPMH_MAP_CB6_AE7( 84) & / 'cubebene_a ', 75 / DATA MECH_NAM_CB6_AE7( 84) , MECH_MAP_CB6_AE7( 84) & / 'SESQ ', 30 / DATA CONV_FAC_CB6_AE7( 84) & / 1 / DATA SPMH_NAM_CB6_AE7( 85) , SPMH_MAP_CB6_AE7( 85) & / 'copaene_b ', 86 / DATA MECH_NAM_CB6_AE7( 85) , MECH_MAP_CB6_AE7( 85) & / 'SESQ ', 30 / DATA CONV_FAC_CB6_AE7( 85) & / 1 / DATA SPMH_NAM_CB6_AE7( 86) , SPMH_MAP_CB6_AE7( 86) & / 'kaur_16_ene ', 80 / DATA MECH_NAM_CB6_AE7( 86) , MECH_MAP_CB6_AE7( 86) & / 'SESQ ', 30 / DATA CONV_FAC_CB6_AE7( 86) & / 1 / DATA SPMH_NAM_CB6_AE7( 87) , SPMH_MAP_CB6_AE7( 87) & / 'gurjunene_b ', 77 / DATA MECH_NAM_CB6_AE7( 87) , MECH_MAP_CB6_AE7( 87) & / 'SESQ ', 30 / DATA CONV_FAC_CB6_AE7( 87) & / 1 / DATA SPMH_NAM_CB6_AE7( 88) , SPMH_MAP_CB6_AE7( 88) & / 'aromadendrene ', 69 / DATA MECH_NAM_CB6_AE7( 88) , MECH_MAP_CB6_AE7( 88) & / 'SESQ ', 30 / DATA CONV_FAC_CB6_AE7( 88) & / 1 / DATA SPMH_NAM_CB6_AE7( 89) , SPMH_MAP_CB6_AE7( 89) & / 'methanol ', 88 / DATA MECH_NAM_CB6_AE7( 89) , MECH_MAP_CB6_AE7( 89) & / 'MEOH ', 7 / DATA CONV_FAC_CB6_AE7( 89) & / 1 / DATA SPMH_NAM_CB6_AE7( 90) , SPMH_MAP_CB6_AE7( 90) & / 'acetone ', 89 / DATA MECH_NAM_CB6_AE7( 90) , MECH_MAP_CB6_AE7( 90) & / 'ACET ', 23 / DATA CONV_FAC_CB6_AE7( 90) & / 1 / DATA SPMH_NAM_CB6_AE7( 91) , SPMH_MAP_CB6_AE7( 91) & / 'ethanol ', 91 / DATA MECH_NAM_CB6_AE7( 91) , MECH_MAP_CB6_AE7( 91) & / 'ETOH ', 12 / DATA CONV_FAC_CB6_AE7( 91) & / 1 / DATA SPMH_NAM_CB6_AE7( 92) , SPMH_MAP_CB6_AE7( 92) & / 'acetaldehyde ', 90 / DATA MECH_NAM_CB6_AE7( 92) , MECH_MAP_CB6_AE7( 92) & / 'ALD2 ', 11 / DATA CONV_FAC_CB6_AE7( 92) & / 1 / DATA SPMH_NAM_CB6_AE7( 93) , SPMH_MAP_CB6_AE7( 93) & / 'formic_acid ', 93 / DATA MECH_NAM_CB6_AE7( 93) , MECH_MAP_CB6_AE7( 93) & / 'FACD ', 26 / DATA CONV_FAC_CB6_AE7( 93) & / 1 / DATA SPMH_NAM_CB6_AE7( 94) , SPMH_MAP_CB6_AE7( 94) & / 'acetic_acid ', 92 / DATA MECH_NAM_CB6_AE7( 94) , MECH_MAP_CB6_AE7( 94) & / 'AACD ', 25 / DATA CONV_FAC_CB6_AE7( 94) & / 1 / DATA SPMH_NAM_CB6_AE7( 95) , SPMH_MAP_CB6_AE7( 95) & / 'ethane ', 100 / DATA MECH_NAM_CB6_AE7( 95) , MECH_MAP_CB6_AE7( 95) & / 'ETHA ', 18 / DATA CONV_FAC_CB6_AE7( 95) & / 1 / DATA SPMH_NAM_CB6_AE7( 96) , SPMH_MAP_CB6_AE7( 96) & / 'ethene ', 101 / DATA MECH_NAM_CB6_AE7( 96) , MECH_MAP_CB6_AE7( 96) & / 'ETH ', 19 / DATA CONV_FAC_CB6_AE7( 96) & / 1 / DATA SPMH_NAM_CB6_AE7( 97) , SPMH_MAP_CB6_AE7( 97) & / 'propane ', 102 / DATA MECH_NAM_CB6_AE7( 97) , MECH_MAP_CB6_AE7( 97) & / 'PRPA ', 21 / DATA CONV_FAC_CB6_AE7( 97) & / 1 / DATA SPMH_NAM_CB6_AE7( 98) , SPMH_MAP_CB6_AE7( 98) & / 'butene ', 97 / DATA MECH_NAM_CB6_AE7( 98) , MECH_MAP_CB6_AE7( 98) & / 'OLE ', 5 / DATA CONV_FAC_CB6_AE7( 98) & / 1 / DATA SPMH_NAM_CB6_AE7( 99) , SPMH_MAP_CB6_AE7( 99) & / 'butene ', 97 / DATA MECH_NAM_CB6_AE7( 99) , MECH_MAP_CB6_AE7( 99) & / 'PAR ', 3 / DATA CONV_FAC_CB6_AE7( 99) & / 2 / DATA SPMH_NAM_CB6_AE7( 100) , SPMH_MAP_CB6_AE7( 100) & / 'propene ', 103 / DATA MECH_NAM_CB6_AE7( 100) , MECH_MAP_CB6_AE7( 100) & / 'OLE ', 5 / DATA CONV_FAC_CB6_AE7( 100) & / 1 / DATA SPMH_NAM_CB6_AE7( 101) , SPMH_MAP_CB6_AE7( 101) & / 'propene ', 103 / DATA MECH_NAM_CB6_AE7( 101) , MECH_MAP_CB6_AE7( 101) & / 'PAR ', 3 / DATA CONV_FAC_CB6_AE7( 101) & / 1 / DATA SPMH_NAM_CB6_AE7( 102) , SPMH_MAP_CB6_AE7( 102) & / '2_methylprop_1_ene ', 95 / DATA MECH_NAM_CB6_AE7( 102) , MECH_MAP_CB6_AE7( 102) & / 'OLE ', 5 / DATA CONV_FAC_CB6_AE7( 102) & / 1 / DATA SPMH_NAM_CB6_AE7( 103) , SPMH_MAP_CB6_AE7( 103) & / '2_methylprop_1_ene ', 95 / DATA MECH_NAM_CB6_AE7( 103) , MECH_MAP_CB6_AE7( 103) & / 'PAR ', 3 / DATA CONV_FAC_CB6_AE7( 103) & / 2 / DATA SPMH_NAM_CB6_AE7( 104) , SPMH_MAP_CB6_AE7( 104) & / 'butene_c2 ', 98 / DATA MECH_NAM_CB6_AE7( 104) , MECH_MAP_CB6_AE7( 104) & / 'IOLE ', 16 / DATA CONV_FAC_CB6_AE7( 104) & / 1 / DATA SPMH_NAM_CB6_AE7( 105) , SPMH_MAP_CB6_AE7( 105) & / 'butene_t2 ', 99 / DATA MECH_NAM_CB6_AE7( 105) , MECH_MAP_CB6_AE7( 105) & / 'IOLE ', 16 / DATA CONV_FAC_CB6_AE7( 105) & / 1 / DATA SPMH_NAM_CB6_AE7( 106) , SPMH_MAP_CB6_AE7( 106) & / 'formaldehyde ', 113 / DATA MECH_NAM_CB6_AE7( 106) , MECH_MAP_CB6_AE7( 106) & / 'FORM ', 13 / DATA CONV_FAC_CB6_AE7( 106) & / 1 / DATA SPMH_NAM_CB6_AE7( 107) , SPMH_MAP_CB6_AE7( 107) & / 'met_heptenone ', 106 / DATA MECH_NAM_CB6_AE7( 107) , MECH_MAP_CB6_AE7( 107) & / 'ISPD ', 28 / DATA CONV_FAC_CB6_AE7( 107) & / 1 / DATA SPMH_NAM_CB6_AE7( 108) , SPMH_MAP_CB6_AE7( 108) & / 'oxopentanal ', 114 / DATA MECH_NAM_CB6_AE7( 108) , MECH_MAP_CB6_AE7( 108) & / 'ISPD ', 28 / DATA CONV_FAC_CB6_AE7( 108) & / 1 / DATA SPMH_NAM_CB6_AE7( 109) , SPMH_MAP_CB6_AE7( 109) & / 'geranyl_acetone ', 105 / DATA MECH_NAM_CB6_AE7( 109) , MECH_MAP_CB6_AE7( 109) & / 'ISPD ', 28 / DATA CONV_FAC_CB6_AE7( 109) & / 1 / DATA SPMH_NAM_CB6_AE7( 110) , SPMH_MAP_CB6_AE7( 110) & / 'hexanal ', 141 / DATA MECH_NAM_CB6_AE7( 110) , MECH_MAP_CB6_AE7( 110) & / 'ISPD ', 28 / DATA CONV_FAC_CB6_AE7( 110) & / 1 / DATA SPMH_NAM_CB6_AE7( 111) , SPMH_MAP_CB6_AE7( 111) & / 'hydrogen_cyanide ', 147 / DATA MECH_NAM_CB6_AE7( 111) , MECH_MAP_CB6_AE7( 111) & / 'HCN ', 27 / DATA CONV_FAC_CB6_AE7( 111) & / 1 / DATA SPMH_NAM_CB6_AE7( 112) , SPMH_MAP_CB6_AE7( 112) & / 'linalool ', 150 / DATA MECH_NAM_CB6_AE7( 112) , MECH_MAP_CB6_AE7( 112) & / 'TERP ', 2 / DATA CONV_FAC_CB6_AE7( 112) & / 1 / DATA SPMH_NAM_CB6_AE7( 113) , SPMH_MAP_CB6_AE7( 113) & / 'methacrolein ', 153 / DATA MECH_NAM_CB6_AE7( 113) , MECH_MAP_CB6_AE7( 113) & / 'ISPD ', 28 / DATA CONV_FAC_CB6_AE7( 113) & / 1 / DATA SPMH_NAM_CB6_AE7( 114) , SPMH_MAP_CB6_AE7( 114) & / 'met_vinylketone ', 158 / DATA MECH_NAM_CB6_AE7( 114) , MECH_MAP_CB6_AE7( 114) & / 'ISPD ', 28 / DATA CONV_FAC_CB6_AE7( 114) & / 1 / DATA SPMH_NAM_CB6_AE7( 115) , SPMH_MAP_CB6_AE7( 115) & / 'hexanol_1 ', 142 / DATA MECH_NAM_CB6_AE7( 115) , MECH_MAP_CB6_AE7( 115) & / 'ISPD ', 28 / DATA CONV_FAC_CB6_AE7( 115) & / 1 / DATA SPMH_NAM_CB6_AE7( 116) , SPMH_MAP_CB6_AE7( 116) & / 'met_salicylate ', 156 / DATA MECH_NAM_CB6_AE7( 116) , MECH_MAP_CB6_AE7( 116) & / 'ISPD ', 28 / DATA CONV_FAC_CB6_AE7( 116) & / 1 / DATA SPMH_NAM_CB6_AE7( 117) , SPMH_MAP_CB6_AE7( 117) & / 'cineole_1_8 ', 133 / DATA MECH_NAM_CB6_AE7( 117) , MECH_MAP_CB6_AE7( 117) & / 'TERP ', 2 / DATA CONV_FAC_CB6_AE7( 117) & / 1 / DATA SPMH_NAM_CB6_AE7( 118) , SPMH_MAP_CB6_AE7( 118) & / 'hexenal_t2 ', 144 / DATA MECH_NAM_CB6_AE7( 118) , MECH_MAP_CB6_AE7( 118) & / 'ISPD ', 28 / DATA CONV_FAC_CB6_AE7( 118) & / 1 / DATA SPMH_NAM_CB6_AE7( 119) , SPMH_MAP_CB6_AE7( 119) & / 'hexenol_c3 ', 145 / DATA MECH_NAM_CB6_AE7( 119) , MECH_MAP_CB6_AE7( 119) & / 'ISPD ', 28 / DATA CONV_FAC_CB6_AE7( 119) & / 1 / DATA SPMH_NAM_CB6_AE7( 120) , SPMH_MAP_CB6_AE7( 120) & / 'hexenyl_ACT_c3 ', 146 / DATA MECH_NAM_CB6_AE7( 120) , MECH_MAP_CB6_AE7( 120) & / 'ISPD ', 28 / DATA CONV_FAC_CB6_AE7( 120) & / 1 / DATA SPMH_NAM_CB6_AE7( 121) , SPMH_MAP_CB6_AE7( 121) & / 'hexenal_c3 ', 143 / DATA MECH_NAM_CB6_AE7( 121) , MECH_MAP_CB6_AE7( 121) & / 'ISPD ', 28 / DATA CONV_FAC_CB6_AE7( 121) & / 1 / DATA SPMH_NAM_CB6_AE7( 122) , SPMH_MAP_CB6_AE7( 122) & / '2met_nonatriene ', 137 / DATA MECH_NAM_CB6_AE7( 122) , MECH_MAP_CB6_AE7( 122) & / 'TERP ', 2 / DATA CONV_FAC_CB6_AE7( 122) & / 1 / DATA SPMH_NAM_CB6_AE7( 123) , SPMH_MAP_CB6_AE7( 123) & / 'methane ', 184 / DATA MECH_NAM_CB6_AE7( 123) , MECH_MAP_CB6_AE7( 123) & / 'CH4 ', 8 / DATA CONV_FAC_CB6_AE7( 123) & / 1 / DATA SPMH_NAM_CB6_AE7( 124) , SPMH_MAP_CB6_AE7( 124) & / 'met_bromide ', 185 / DATA MECH_NAM_CB6_AE7( 124) , MECH_MAP_CB6_AE7( 124) & / 'CH3BR ', 32 / DATA CONV_FAC_CB6_AE7( 124) & / 1 / DATA SPMH_NAM_CB6_AE7( 125) , SPMH_MAP_CB6_AE7( 125) & / 'met_chloride ', 186 / DATA MECH_NAM_CB6_AE7( 125) , MECH_MAP_CB6_AE7( 125) & / 'CH3CL ', 33 / DATA CONV_FAC_CB6_AE7( 125) & / 1 / DATA SPMH_NAM_CB6_AE7( 126) , SPMH_MAP_CB6_AE7( 126) & / 'met_iodide ', 187 / DATA MECH_NAM_CB6_AE7( 126) , MECH_MAP_CB6_AE7( 126) & / 'CH3I ', 34 / DATA CONV_FAC_CB6_AE7( 126) & / 1 / DATA SPMH_NAM_CB6_AE7( 127) , SPMH_MAP_CB6_AE7( 127) & / 'met_mercaptan ', 188 / DATA MECH_NAM_CB6_AE7( 127) , MECH_MAP_CB6_AE7( 127) & / 'TRS ', 31 / DATA CONV_FAC_CB6_AE7( 127) & / 1 / DATA SPMH_NAM_CB6_AE7( 128) , SPMH_MAP_CB6_AE7( 128) & / 'carbon_2s ', 171 / DATA MECH_NAM_CB6_AE7( 128) , MECH_MAP_CB6_AE7( 128) & / 'TRS ', 31 / DATA CONV_FAC_CB6_AE7( 128) & / 1 / DATA SPMH_NAM_CB6_AE7( 129) , SPMH_MAP_CB6_AE7( 129) & / '2met_s ', 176 / DATA MECH_NAM_CB6_AE7( 129) , MECH_MAP_CB6_AE7( 129) & / 'TRS ', 31 / DATA CONV_FAC_CB6_AE7( 129) & / 1 / DATA SPMH_NAM_CB6_AE7( 130) , SPMH_MAP_CB6_AE7( 130) & / 'butanone_2 ', 170 / DATA MECH_NAM_CB6_AE7( 130) , MECH_MAP_CB6_AE7( 130) & / 'ISPD ', 28 / DATA CONV_FAC_CB6_AE7( 130) & / 1 / DATA SPMH_NAM_CB6_AE7( 131) , SPMH_MAP_CB6_AE7( 131) & / 'terpinyl_ACT_a ', 197 / DATA MECH_NAM_CB6_AE7( 131) , MECH_MAP_CB6_AE7( 131) & / 'TERP ', 28 / DATA CONV_FAC_CB6_AE7( 131) & / 1 / DATA SPMH_NAM_CB6_AE7( 132) , SPMH_MAP_CB6_AE7( 132) & / 'pentane ', 193 / DATA MECH_NAM_CB6_AE7( 132) , MECH_MAP_CB6_AE7( 132) & / 'PAR ', 3 / DATA CONV_FAC_CB6_AE7( 132) & / 5 / DATA SPMH_NAM_CB6_AE7( 133) , SPMH_MAP_CB6_AE7( 133) & / 'hexane ', 181 / DATA MECH_NAM_CB6_AE7( 133) , MECH_MAP_CB6_AE7( 133) & / 'PAR ', 3 / DATA CONV_FAC_CB6_AE7( 133) & / 6 / DATA SPMH_NAM_CB6_AE7( 134) , SPMH_MAP_CB6_AE7( 134) & / 'decane ', 173 / DATA MECH_NAM_CB6_AE7( 134) , MECH_MAP_CB6_AE7( 134) & / 'PAR ', 3 / DATA CONV_FAC_CB6_AE7( 134) & / 10 / DATA SPMH_NAM_CB6_AE7( 135) , SPMH_MAP_CB6_AE7( 135) & / 'heptane ', 179 / DATA MECH_NAM_CB6_AE7( 135) , MECH_MAP_CB6_AE7( 135) & / 'PAR ', 3 / DATA CONV_FAC_CB6_AE7( 135) & / 7 / DATA SPMH_NAM_CB6_AE7( 136) , SPMH_MAP_CB6_AE7( 136) & / 'carbonyl_s ', 172 / DATA MECH_NAM_CB6_AE7( 136) , MECH_MAP_CB6_AE7( 136) & / 'TRS ', 31 / DATA CONV_FAC_CB6_AE7( 136) & / 1 / DATA SPMH_NAM_CB6_AE7( 137) , SPMH_MAP_CB6_AE7( 137) & / '2met_2s ', 175 / DATA MECH_NAM_CB6_AE7( 137) , MECH_MAP_CB6_AE7( 137) & / 'TRS ', 31 / DATA CONV_FAC_CB6_AE7( 137) & / 1 / DATA SPMH_NAM_CB6_AE7( 138) , SPMH_MAP_CB6_AE7( 138) & / 'undecane ', 199 / DATA MECH_NAM_CB6_AE7( 138) , MECH_MAP_CB6_AE7( 138) & / 'PAR ', 3 / DATA CONV_FAC_CB6_AE7( 138) & / 11 / DATA SPMH_NAM_CB6_AE7( 139) , SPMH_MAP_CB6_AE7( 139) & / 'tetradecene_1 ', 198 / DATA MECH_NAM_CB6_AE7( 139) , MECH_MAP_CB6_AE7( 139) & / 'PAR ', 3 / DATA CONV_FAC_CB6_AE7( 139) & / 14 / DATA SPMH_NAM_CB6_AE7( 140) , SPMH_MAP_CB6_AE7( 140) & / 'diallyl_2s ', 174 / DATA MECH_NAM_CB6_AE7( 140) , MECH_MAP_CB6_AE7( 140) & / 'TRS ', 31 / DATA CONV_FAC_CB6_AE7( 140) & / 1 / DATA SPMH_NAM_CB6_AE7( 141) , SPMH_MAP_CB6_AE7( 141) & / 'PPPP_2s ', 194 / DATA MECH_NAM_CB6_AE7( 141) , MECH_MAP_CB6_AE7( 141) & / 'TRS ', 31 / DATA CONV_FAC_CB6_AE7( 141) & / 1 / DATA SPMH_NAM_CB6_AE7( 142) , SPMH_MAP_CB6_AE7( 142) & / 'met_propenyl_2s ', 189 / DATA MECH_NAM_CB6_AE7( 142) , MECH_MAP_CB6_AE7( 142) & / 'TRS ', 31 / DATA CONV_FAC_CB6_AE7( 142) & / 1 / DATA SPMH_NAM_CB6_AE7( 143) , SPMH_MAP_CB6_AE7( 143) & / 'hydrogen_s ', 182 / DATA MECH_NAM_CB6_AE7( 143) , MECH_MAP_CB6_AE7( 143) & / 'TRS ', 31 / DATA CONV_FAC_CB6_AE7( 143) & / 1 / DATA SPMH_NAM_CB6_AE7( 144) , SPMH_MAP_CB6_AE7( 144) & / 'carbon_monoxide ', 200 / DATA MECH_NAM_CB6_AE7( 144) , MECH_MAP_CB6_AE7( 144) & / 'CO ', 17 / DATA CONV_FAC_CB6_AE7( 144) & / 1 / DATA SPMH_NAM_CB6_AE7( 145) , SPMH_MAP_CB6_AE7( 145) & / 'nitric_OXD ', 201 / DATA MECH_NAM_CB6_AE7( 145) , MECH_MAP_CB6_AE7( 145) & / 'NO ', 10 / DATA CONV_FAC_CB6_AE7( 145) & / 1 / DATA SPMH_NAM_CB6_AE7( 146) , SPMH_MAP_CB6_AE7( 146) & / 'formaldehyde ', 113 / DATA MECH_NAM_CB6_AE7( 146) , MECH_MAP_CB6_AE7( 146) & / 'FORM_PRIMARY', 37 / DATA CONV_FAC_CB6_AE7( 146) & / 1 / DATA SPMH_NAM_CB6_AE7( 147) , SPMH_MAP_CB6_AE7( 147) & / 'acetaldehyde ', 90 / DATA MECH_NAM_CB6_AE7( 147) , MECH_MAP_CB6_AE7( 147) & / 'ALD2_PRIMARY', 36 / DATA CONV_FAC_CB6_AE7( 147) & / 1 / ================================================ FILE: CCTM/src/biog/megan3/MAP_CV2CRACMM1.EXT ================================================ C======================================================================= C MAP_CV2CRACMM1.EXT C This include file contains conversion table for 201 speciated species C to CRACMM1 (CMAQ) species C C MEGAN v3 C C History: C Who When What C --------------------------------------------------------------------- C Jeff Willison 05/17/2022 - Created for MEGANv3.2 in CMAQ C======================================================================= CHARACTER*16 MAP_CRACMM1MECH PARAMETER (MAP_CRACMM1MECH = 'CRACMM1 ') INTEGER N_CRACMM1 PARAMETER (N_CRACMM1 = (200)) ! Number of map species CHARACTER*16 SPMH_NAM_CRACMM1( N_CRACMM1 ) ! speciated species name INTEGER SPMH_MAP_CRACMM1( N_CRACMM1 ) ! speciated species index ! mapped to SPC_NOCONVER.EXT CHARACTER*16 MECH_NAM_CRACMM1( N_CRACMM1 ) ! mechanism species INTEGER MECH_MAP_CRACMM1( N_CRACMM1 ) ! mechanism species mapped REAL CONV_FAC_CRACMM1( N_CRACMM1 ) ! conversion factor DATA SPMH_NAM_CRACMM1( 1) , SPMH_MAP_CRACMM1(1) & / 'isoprene ', 1 / DATA MECH_NAM_CRACMM1(1 ) , MECH_MAP_CRACMM1( 1) & / 'ISO ', 1 / DATA CONV_FAC_CRACMM1( 1) & / 1 / DATA SPMH_NAM_CRACMM1( 2) , SPMH_MAP_CRACMM1(2) & / 'MBO_2m3e2ol ', 2 / DATA MECH_NAM_CRACMM1(2 ) , MECH_MAP_CRACMM1( 2) & / 'OLT ', 2 / DATA CONV_FAC_CRACMM1( 2) & / 1 / DATA SPMH_NAM_CRACMM1( 3) , SPMH_MAP_CRACMM1(3) & / 'pinene_a ', 3 / DATA MECH_NAM_CRACMM1(3 ) , MECH_MAP_CRACMM1( 3) & / 'API ', 3 / DATA CONV_FAC_CRACMM1( 3) & / 1 / DATA SPMH_NAM_CRACMM1( 4) , SPMH_MAP_CRACMM1(4) & / 'pinene_b ', 4 / DATA MECH_NAM_CRACMM1(4 ) , MECH_MAP_CRACMM1( 4) & / 'API ', 3 / DATA CONV_FAC_CRACMM1( 4) & / 1 / DATA SPMH_NAM_CRACMM1( 5) , SPMH_MAP_CRACMM1(5) & / 'myrcene ', 5 / DATA MECH_NAM_CRACMM1(5 ) , MECH_MAP_CRACMM1( 5) & / 'LIM ', 4 / DATA CONV_FAC_CRACMM1( 5) & / 1 / DATA SPMH_NAM_CRACMM1( 6) , SPMH_MAP_CRACMM1(6) & / 'ocimene_al ', 6 / DATA MECH_NAM_CRACMM1(6 ) , MECH_MAP_CRACMM1( 6) & / 'LIM ', 4 / DATA CONV_FAC_CRACMM1( 6) & / 1 / DATA SPMH_NAM_CRACMM1( 7) , SPMH_MAP_CRACMM1(7) & / 'ocimene_c_b ', 7 / DATA MECH_NAM_CRACMM1(7 ) , MECH_MAP_CRACMM1( 7) & / 'LIM ', 4 / DATA CONV_FAC_CRACMM1( 7) & / 1 / DATA SPMH_NAM_CRACMM1( 8) , SPMH_MAP_CRACMM1(8) & / 'ocimene_t_b ', 8 / DATA MECH_NAM_CRACMM1(8 ) , MECH_MAP_CRACMM1( 8) & / 'LIM ', 4 / DATA CONV_FAC_CRACMM1( 8) & / 1 / DATA SPMH_NAM_CRACMM1( 9) , SPMH_MAP_CRACMM1(9) & / 'bornene ', 9 / DATA MECH_NAM_CRACMM1(9 ) , MECH_MAP_CRACMM1( 9) & / 'API ', 3 / DATA CONV_FAC_CRACMM1( 9) & / 1 / DATA SPMH_NAM_CRACMM1( 10) , SPMH_MAP_CRACMM1(10) & / 'camphene ', 10 / DATA MECH_NAM_CRACMM1(10 ) , MECH_MAP_CRACMM1( 10) & / 'API ', 3 / DATA CONV_FAC_CRACMM1( 10) & / 1 / DATA SPMH_NAM_CRACMM1( 11) , SPMH_MAP_CRACMM1(11) & / 'carene_3 ', 11 / DATA MECH_NAM_CRACMM1(11 ) , MECH_MAP_CRACMM1( 11) & / 'API ', 3 / DATA CONV_FAC_CRACMM1( 11) & / 1 / DATA SPMH_NAM_CRACMM1( 12) , SPMH_MAP_CRACMM1(12) & / 'fenchene_a ', 12 / DATA MECH_NAM_CRACMM1(12 ) , MECH_MAP_CRACMM1( 12) & / 'API ', 3 / DATA CONV_FAC_CRACMM1( 12) & / 1 / DATA SPMH_NAM_CRACMM1( 13) , SPMH_MAP_CRACMM1(13) & / 'fenchene_b ', 13 / DATA MECH_NAM_CRACMM1(13 ) , MECH_MAP_CRACMM1( 13) & / 'API ', 3 / DATA CONV_FAC_CRACMM1( 13) & / 1 / DATA SPMH_NAM_CRACMM1( 14) , SPMH_MAP_CRACMM1(14) & / 'tricyclene ', 14 / DATA MECH_NAM_CRACMM1(14 ) , MECH_MAP_CRACMM1( 14) & / 'HC3 ', 5 / DATA CONV_FAC_CRACMM1( 14) & / 1 / DATA SPMH_NAM_CRACMM1( 15) , SPMH_MAP_CRACMM1(15) & / 'limonene ', 15 / DATA MECH_NAM_CRACMM1(15 ) , MECH_MAP_CRACMM1( 15) & / 'LIM ', 4 / DATA CONV_FAC_CRACMM1( 15) & / 1 / DATA SPMH_NAM_CRACMM1( 16) , SPMH_MAP_CRACMM1(16) & / 'phellandrene_b ', 16 / DATA MECH_NAM_CRACMM1(16 ) , MECH_MAP_CRACMM1( 16) & / 'LIM ', 4 / DATA CONV_FAC_CRACMM1( 16) & / 1 / DATA SPMH_NAM_CRACMM1( 17) , SPMH_MAP_CRACMM1(17) & / 'phellandrene_a ', 17 / DATA MECH_NAM_CRACMM1(17 ) , MECH_MAP_CRACMM1( 17) & / 'LIM ', 4 / DATA CONV_FAC_CRACMM1( 17) & / 1 / DATA SPMH_NAM_CRACMM1( 18) , SPMH_MAP_CRACMM1(18) & / 'sabinene ', 18 / DATA MECH_NAM_CRACMM1(18 ) , MECH_MAP_CRACMM1( 18) & / 'API ', 3 / DATA CONV_FAC_CRACMM1( 18) & / 1 / DATA SPMH_NAM_CRACMM1( 19) , SPMH_MAP_CRACMM1(19) & / 'terpinene_a ', 19 / DATA MECH_NAM_CRACMM1(19 ) , MECH_MAP_CRACMM1( 19) & / 'LIM ', 4 / DATA CONV_FAC_CRACMM1( 19) & / 1 / DATA SPMH_NAM_CRACMM1( 20) , SPMH_MAP_CRACMM1(20) & / 'terpinene_g ', 20 / DATA MECH_NAM_CRACMM1(20 ) , MECH_MAP_CRACMM1( 20) & / 'LIM ', 4 / DATA CONV_FAC_CRACMM1( 20) & / 1 / DATA SPMH_NAM_CRACMM1( 21) , SPMH_MAP_CRACMM1(21) & / 'terpinolene ', 21 / DATA MECH_NAM_CRACMM1(21 ) , MECH_MAP_CRACMM1( 21) & / 'LIM ', 4 / DATA CONV_FAC_CRACMM1( 21) & / 1 / DATA SPMH_NAM_CRACMM1( 22) , SPMH_MAP_CRACMM1(22) & / 'thujene_a ', 22 / DATA MECH_NAM_CRACMM1(22 ) , MECH_MAP_CRACMM1( 22) & / 'API ', 3 / DATA CONV_FAC_CRACMM1( 22) & / 1 / DATA SPMH_NAM_CRACMM1( 23) , SPMH_MAP_CRACMM1(23) & / 'verbenene ', 23 / DATA MECH_NAM_CRACMM1(23 ) , MECH_MAP_CRACMM1( 23) & / 'FURAN ', 6 / DATA CONV_FAC_CRACMM1( 23) & / 1 / DATA SPMH_NAM_CRACMM1( 24) , SPMH_MAP_CRACMM1(24) & / 'cymene_o ', 24 / DATA MECH_NAM_CRACMM1(24 ) , MECH_MAP_CRACMM1( 24) & / 'XYE ', 7 / DATA CONV_FAC_CRACMM1( 24) & / 1 / DATA SPMH_NAM_CRACMM1( 25) , SPMH_MAP_CRACMM1(25) & / 'cymene_p ', 25 / DATA MECH_NAM_CRACMM1(25 ) , MECH_MAP_CRACMM1( 25) & / 'VROCP6ARO ', 8 / DATA CONV_FAC_CRACMM1( 25) & / 1 / DATA SPMH_NAM_CRACMM1( 26) , SPMH_MAP_CRACMM1(26) & / 'meta-cymenene ', 26 / DATA MECH_NAM_CRACMM1(26 ) , MECH_MAP_CRACMM1( 26) & / 'XYE ', 7 / DATA CONV_FAC_CRACMM1( 26) & / 1 / DATA SPMH_NAM_CRACMM1( 27) , SPMH_MAP_CRACMM1(27) & / 'p-cymenene ', 27 / DATA MECH_NAM_CRACMM1(27 ) , MECH_MAP_CRACMM1( 27) & / 'XYM ', 9 / DATA CONV_FAC_CRACMM1( 27) & / 1 / DATA SPMH_NAM_CRACMM1( 28) , SPMH_MAP_CRACMM1(28) & / 'borneol ', 28 / DATA MECH_NAM_CRACMM1(28 ) , MECH_MAP_CRACMM1( 28) & / 'VROCIOXY ', 10 / DATA CONV_FAC_CRACMM1( 28) & / 1 / DATA SPMH_NAM_CRACMM1( 29) , SPMH_MAP_CRACMM1(29) & / 'bornyl_ACT ', 29 / DATA MECH_NAM_CRACMM1(29 ) , MECH_MAP_CRACMM1( 29) & / 'VROCIOXY ', 10 / DATA CONV_FAC_CRACMM1( 29) & / 1 / DATA SPMH_NAM_CRACMM1( 30) , SPMH_MAP_CRACMM1(30) & / 'camphor ', 30 / DATA MECH_NAM_CRACMM1(30 ) , MECH_MAP_CRACMM1( 30) & / 'KET ', 11 / DATA CONV_FAC_CRACMM1( 30) & / 1 / DATA SPMH_NAM_CRACMM1( 31) , SPMH_MAP_CRACMM1(31) & / 'estragole ', 31 / DATA MECH_NAM_CRACMM1(31 ) , MECH_MAP_CRACMM1( 31) & / 'VROCP6ARO ', 8 / DATA CONV_FAC_CRACMM1( 31) & / 1 / DATA SPMH_NAM_CRACMM1( 32) , SPMH_MAP_CRACMM1(32) & / 'fenchone ', 32 / DATA MECH_NAM_CRACMM1(32 ) , MECH_MAP_CRACMM1( 32) & / 'KET ', 11 / DATA CONV_FAC_CRACMM1( 32) & / 1 / DATA SPMH_NAM_CRACMM1( 33) , SPMH_MAP_CRACMM1(33) & / 'ionone_b ', 33 / DATA MECH_NAM_CRACMM1(33 ) , MECH_MAP_CRACMM1( 33) & / 'VROCP6ARO ', 8 / DATA CONV_FAC_CRACMM1( 33) & / 1 / DATA SPMH_NAM_CRACMM1( 34) , SPMH_MAP_CRACMM1(34) & / 'ipsenol ', 34 / DATA MECH_NAM_CRACMM1(34 ) , MECH_MAP_CRACMM1( 34) & / 'LIM ', 4 / DATA CONV_FAC_CRACMM1( 34) & / 1 / DATA SPMH_NAM_CRACMM1( 35) , SPMH_MAP_CRACMM1(35) & / 'myrtenal ', 35 / DATA MECH_NAM_CRACMM1(35 ) , MECH_MAP_CRACMM1( 35) & / 'VROCIOXY ', 10 / DATA CONV_FAC_CRACMM1( 35) & / 1 / DATA SPMH_NAM_CRACMM1( 36) , SPMH_MAP_CRACMM1(36) & / 'octanol ', 36 / DATA MECH_NAM_CRACMM1(36 ) , MECH_MAP_CRACMM1( 36) & / 'VROCIOXY ', 10 / DATA CONV_FAC_CRACMM1( 36) & / 1 / DATA SPMH_NAM_CRACMM1( 37) , SPMH_MAP_CRACMM1(37) & / 'octenol_1e3ol ', 37 / DATA MECH_NAM_CRACMM1(37 ) , MECH_MAP_CRACMM1( 37) & / 'VROCP6ARO ', 8 / DATA CONV_FAC_CRACMM1( 37) & / 1 / DATA SPMH_NAM_CRACMM1( 38) , SPMH_MAP_CRACMM1(38) & / 'piperitone ', 38 / DATA MECH_NAM_CRACMM1(38 ) , MECH_MAP_CRACMM1( 38) & / 'API ', 3 / DATA CONV_FAC_CRACMM1( 38) & / 1 / DATA SPMH_NAM_CRACMM1( 39) , SPMH_MAP_CRACMM1(39) & / 'terpineol_4 ', 39 / DATA MECH_NAM_CRACMM1(39 ) , MECH_MAP_CRACMM1( 39) & / 'API ', 3 / DATA CONV_FAC_CRACMM1( 39) & / 1 / DATA SPMH_NAM_CRACMM1( 40) , SPMH_MAP_CRACMM1(40) & / 'terpineol_a ', 40 / DATA MECH_NAM_CRACMM1(40 ) , MECH_MAP_CRACMM1( 40) & / 'API ', 3 / DATA CONV_FAC_CRACMM1( 40) & / 1 / DATA SPMH_NAM_CRACMM1( 41) , SPMH_MAP_CRACMM1(41) & / 'thujone_a ', 41 / DATA MECH_NAM_CRACMM1(41 ) , MECH_MAP_CRACMM1( 41) & / 'KET ', 11 / DATA CONV_FAC_CRACMM1( 41) & / 1 / DATA SPMH_NAM_CRACMM1( 42) , SPMH_MAP_CRACMM1(42) & / 'thujone_b ', 42 / DATA MECH_NAM_CRACMM1(42 ) , MECH_MAP_CRACMM1( 42) & / 'KET ', 11 / DATA CONV_FAC_CRACMM1( 42) & / 1 / DATA SPMH_NAM_CRACMM1( 43) , SPMH_MAP_CRACMM1(43) & / 'acoradiene ', 43 / DATA MECH_NAM_CRACMM1(43 ) , MECH_MAP_CRACMM1( 43) & / 'SESQ ', 12 / DATA CONV_FAC_CRACMM1( 43) & / 1 / DATA SPMH_NAM_CRACMM1( 44) , SPMH_MAP_CRACMM1(44) & / 'bergamotene_a ', 44 / DATA MECH_NAM_CRACMM1(44 ) , MECH_MAP_CRACMM1( 44) & / 'SESQ ', 12 / DATA CONV_FAC_CRACMM1( 44) & / 1 / DATA SPMH_NAM_CRACMM1( 45) , SPMH_MAP_CRACMM1(45) & / 'bergamotene_b ', 45 / DATA MECH_NAM_CRACMM1(45 ) , MECH_MAP_CRACMM1( 45) & / 'SESQ ', 12 / DATA CONV_FAC_CRACMM1( 45) & / 1 / DATA SPMH_NAM_CRACMM1( 46) , SPMH_MAP_CRACMM1(46) & / 'bisabolene_a ', 46 / DATA MECH_NAM_CRACMM1(46 ) , MECH_MAP_CRACMM1( 46) & / 'SESQ ', 12 / DATA CONV_FAC_CRACMM1( 46) & / 1 / DATA SPMH_NAM_CRACMM1( 47) , SPMH_MAP_CRACMM1(47) & / 'bisabolene_b ', 47 / DATA MECH_NAM_CRACMM1(47 ) , MECH_MAP_CRACMM1( 47) & / 'SESQ ', 12 / DATA CONV_FAC_CRACMM1( 47) & / 1 / DATA SPMH_NAM_CRACMM1( 48) , SPMH_MAP_CRACMM1(48) & / 'cadinene_d ', 48 / DATA MECH_NAM_CRACMM1(48 ) , MECH_MAP_CRACMM1( 48) & / 'SESQ ', 12 / DATA CONV_FAC_CRACMM1( 48) & / 1 / DATA SPMH_NAM_CRACMM1( 49) , SPMH_MAP_CRACMM1(49) & / 'cadinene_g ', 49 / DATA MECH_NAM_CRACMM1(49 ) , MECH_MAP_CRACMM1( 49) & / 'SESQ ', 12 / DATA CONV_FAC_CRACMM1( 49) & / 1 / DATA SPMH_NAM_CRACMM1( 50) , SPMH_MAP_CRACMM1(50) & / 'calarene ', 50 / DATA MECH_NAM_CRACMM1(50 ) , MECH_MAP_CRACMM1( 50) & / 'SESQ ', 12 / DATA CONV_FAC_CRACMM1( 50) & / 1 / DATA SPMH_NAM_CRACMM1( 51) , SPMH_MAP_CRACMM1(51) & / 'caryophyllene_b ', 51 / DATA MECH_NAM_CRACMM1(51 ) , MECH_MAP_CRACMM1( 51) & / 'SESQ ', 12 / DATA CONV_FAC_CRACMM1( 51) & / 1 / DATA SPMH_NAM_CRACMM1( 52) , SPMH_MAP_CRACMM1(52) & / 'caryophyllene_c_i ', 52 / DATA MECH_NAM_CRACMM1(52 ) , MECH_MAP_CRACMM1( 52) & / 'SESQ ', 12 / DATA CONV_FAC_CRACMM1( 52) & / 1 / DATA SPMH_NAM_CRACMM1( 53) , SPMH_MAP_CRACMM1(53) & / 'elemene_b ', 53 / DATA MECH_NAM_CRACMM1(53 ) , MECH_MAP_CRACMM1( 53) & / 'SESQ ', 12 / DATA CONV_FAC_CRACMM1( 53) & / 1 / DATA SPMH_NAM_CRACMM1( 54) , SPMH_MAP_CRACMM1(54) & / 'farnescene_a ', 54 / DATA MECH_NAM_CRACMM1(54 ) , MECH_MAP_CRACMM1( 54) & / 'SESQ ', 12 / DATA CONV_FAC_CRACMM1( 54) & / 1 / DATA SPMH_NAM_CRACMM1( 55) , SPMH_MAP_CRACMM1(55) & / 'farnescene_b ', 55 / DATA MECH_NAM_CRACMM1(55 ) , MECH_MAP_CRACMM1( 55) & / 'SESQ ', 12 / DATA CONV_FAC_CRACMM1( 55) & / 1 / DATA SPMH_NAM_CRACMM1( 56) , SPMH_MAP_CRACMM1(56) & / 'farnesol ', 56 / DATA MECH_NAM_CRACMM1(56 ) , MECH_MAP_CRACMM1( 56) & / 'VROCP5ARO ', 13 / DATA CONV_FAC_CRACMM1( 56) & / 1 / DATA SPMH_NAM_CRACMM1( 57) , SPMH_MAP_CRACMM1(57) & / 'germacrene_B ', 57 / DATA MECH_NAM_CRACMM1(57 ) , MECH_MAP_CRACMM1( 57) & / 'SESQ ', 12 / DATA CONV_FAC_CRACMM1( 57) & / 1 / DATA SPMH_NAM_CRACMM1( 58) , SPMH_MAP_CRACMM1(58) & / 'germacrene_D ', 58 / DATA MECH_NAM_CRACMM1(58 ) , MECH_MAP_CRACMM1( 58) & / 'SESQ ', 12 / DATA CONV_FAC_CRACMM1( 58) & / 1 / DATA SPMH_NAM_CRACMM1( 59) , SPMH_MAP_CRACMM1(59) & / 'humulene_a ', 59 / DATA MECH_NAM_CRACMM1(59 ) , MECH_MAP_CRACMM1( 59) & / 'SESQ ', 12 / DATA CONV_FAC_CRACMM1( 59) & / 1 / DATA SPMH_NAM_CRACMM1( 60) , SPMH_MAP_CRACMM1(60) & / 'humulene_g ', 60 / DATA MECH_NAM_CRACMM1(60 ) , MECH_MAP_CRACMM1( 60) & / 'SESQ ', 12 / DATA CONV_FAC_CRACMM1( 60) & / 1 / DATA SPMH_NAM_CRACMM1( 61) , SPMH_MAP_CRACMM1(61) & / 'muurolene_a ', 61 / DATA MECH_NAM_CRACMM1(61 ) , MECH_MAP_CRACMM1( 61) & / 'SESQ ', 12 / DATA CONV_FAC_CRACMM1( 61) & / 1 / DATA SPMH_NAM_CRACMM1( 62) , SPMH_MAP_CRACMM1(62) & / 'muurolene_g ', 62 / DATA MECH_NAM_CRACMM1(62 ) , MECH_MAP_CRACMM1( 62) & / 'SESQ ', 12 / DATA CONV_FAC_CRACMM1( 62) & / 1 / DATA SPMH_NAM_CRACMM1( 63) , SPMH_MAP_CRACMM1(63) & / 'nerolidol_c ', 63 / DATA MECH_NAM_CRACMM1(63 ) , MECH_MAP_CRACMM1( 63) & / 'VROCP5ARO ', 13 / DATA CONV_FAC_CRACMM1( 63) & / 1 / DATA SPMH_NAM_CRACMM1( 64) , SPMH_MAP_CRACMM1(64) & / 'nerolidol_t ', 64 / DATA MECH_NAM_CRACMM1(64 ) , MECH_MAP_CRACMM1( 64) & / 'VROCP5ARO ', 13 / DATA CONV_FAC_CRACMM1( 64) & / 1 / DATA SPMH_NAM_CRACMM1( 65) , SPMH_MAP_CRACMM1(65) & / 'patchoulene_b ', 65 / DATA MECH_NAM_CRACMM1(65 ) , MECH_MAP_CRACMM1( 65) & / 'SESQ ', 12 / DATA CONV_FAC_CRACMM1( 65) & / 1 / DATA SPMH_NAM_CRACMM1( 66) , SPMH_MAP_CRACMM1(66) & / 'selinene_b ', 66 / DATA MECH_NAM_CRACMM1(66 ) , MECH_MAP_CRACMM1( 66) & / 'SESQ ', 12 / DATA CONV_FAC_CRACMM1( 66) & / 1 / DATA SPMH_NAM_CRACMM1( 67) , SPMH_MAP_CRACMM1(67) & / 'selinene_d ', 67 / DATA MECH_NAM_CRACMM1(67 ) , MECH_MAP_CRACMM1( 67) & / 'SESQ ', 12 / DATA CONV_FAC_CRACMM1( 67) & / 1 / DATA SPMH_NAM_CRACMM1( 68) , SPMH_MAP_CRACMM1(68) & / '2ethyl_hexyl_salate ', 68 / DATA MECH_NAM_CRACMM1(68 ) , MECH_MAP_CRACMM1( 68) & / 'VROCP2ALK ', 14 / DATA CONV_FAC_CRACMM1( 68) & / 1 / DATA SPMH_NAM_CRACMM1( 69) , SPMH_MAP_CRACMM1(69) & / 'aromadendrene ', 69 / DATA MECH_NAM_CRACMM1(69 ) , MECH_MAP_CRACMM1( 69) & / 'SESQ ', 12 / DATA CONV_FAC_CRACMM1( 69) & / 1 / DATA SPMH_NAM_CRACMM1( 70) , SPMH_MAP_CRACMM1(70) & / 'bourbonene_b ', 70 / DATA MECH_NAM_CRACMM1(70 ) , MECH_MAP_CRACMM1( 70) & / 'SESQ ', 12 / DATA CONV_FAC_CRACMM1( 70) & / 1 / DATA SPMH_NAM_CRACMM1( 71) , SPMH_MAP_CRACMM1(71) & / 'cadinol_a ', 71 / DATA MECH_NAM_CRACMM1(71 ) , MECH_MAP_CRACMM1( 71) & / 'VROCP5ARO ', 13 / DATA CONV_FAC_CRACMM1( 71) & / 1 / DATA SPMH_NAM_CRACMM1( 72) , SPMH_MAP_CRACMM1(72) & / 'cedrene_a ', 72 / DATA MECH_NAM_CRACMM1(72 ) , MECH_MAP_CRACMM1( 72) & / 'SESQ ', 12 / DATA CONV_FAC_CRACMM1( 72) & / 1 / DATA SPMH_NAM_CRACMM1( 73) , SPMH_MAP_CRACMM1(73) & / 'cedrol ', 73 / DATA MECH_NAM_CRACMM1(73 ) , MECH_MAP_CRACMM1( 73) & / 'VROCP5ALK ', 15 / DATA CONV_FAC_CRACMM1( 73) & / 1 / DATA SPMH_NAM_CRACMM1( 74) , SPMH_MAP_CRACMM1(74) & / 'copaene_a ', 74 / DATA MECH_NAM_CRACMM1(74 ) , MECH_MAP_CRACMM1( 74) & / 'SESQ ', 12 / DATA CONV_FAC_CRACMM1( 74) & / 1 / DATA SPMH_NAM_CRACMM1( 75) , SPMH_MAP_CRACMM1(75) & / 'cubebene_a ', 75 / DATA MECH_NAM_CRACMM1(75 ) , MECH_MAP_CRACMM1( 75) & / 'SESQ ', 12 / DATA CONV_FAC_CRACMM1( 75) & / 1 / DATA SPMH_NAM_CRACMM1( 76) , SPMH_MAP_CRACMM1(76) & / 'cubebene_b ', 76 / DATA MECH_NAM_CRACMM1(76 ) , MECH_MAP_CRACMM1( 76) & / 'SESQ ', 12 / DATA CONV_FAC_CRACMM1( 76) & / 1 / DATA SPMH_NAM_CRACMM1( 77) , SPMH_MAP_CRACMM1(77) & / 'gurjunene_b ', 77 / DATA MECH_NAM_CRACMM1(77 ) , MECH_MAP_CRACMM1( 77) & / 'SESQ ', 12 / DATA CONV_FAC_CRACMM1( 77) & / 1 / DATA SPMH_NAM_CRACMM1( 78) , SPMH_MAP_CRACMM1(78) & / 'homosalate ', 78 / DATA MECH_NAM_CRACMM1(78 ) , MECH_MAP_CRACMM1( 78) & / 'VROCP1ALK ', 16 / DATA CONV_FAC_CRACMM1( 78) & / 1 / DATA SPMH_NAM_CRACMM1( 79) , SPMH_MAP_CRACMM1(79) & / 'isolongifolene ', 79 / DATA MECH_NAM_CRACMM1(79 ) , MECH_MAP_CRACMM1( 79) & / 'SESQ ', 12 / DATA CONV_FAC_CRACMM1( 79) & / 1 / DATA SPMH_NAM_CRACMM1( 80) , SPMH_MAP_CRACMM1(80) & / 'kaur_16_ene ', 80 / DATA MECH_NAM_CRACMM1(80 ) , MECH_MAP_CRACMM1( 80) & / 'VROCP5ARO ', 13 / DATA CONV_FAC_CRACMM1( 80) & / 1 / DATA SPMH_NAM_CRACMM1( 81) , SPMH_MAP_CRACMM1(81) & / 'longifolene ', 81 / DATA MECH_NAM_CRACMM1(81 ) , MECH_MAP_CRACMM1( 81) & / 'SESQ ', 12 / DATA CONV_FAC_CRACMM1( 81) & / 1 / DATA SPMH_NAM_CRACMM1( 82) , SPMH_MAP_CRACMM1(82) & / 'longipinene ', 82 / DATA MECH_NAM_CRACMM1(82 ) , MECH_MAP_CRACMM1( 82) & / 'SESQ ', 12 / DATA CONV_FAC_CRACMM1( 82) & / 1 / DATA SPMH_NAM_CRACMM1( 83) , SPMH_MAP_CRACMM1(83) & / 'thujopsene ', 83 / DATA MECH_NAM_CRACMM1(83 ) , MECH_MAP_CRACMM1( 83) & / 'SESQ ', 12 / DATA CONV_FAC_CRACMM1( 83) & / 1 / DATA SPMH_NAM_CRACMM1( 84) , SPMH_MAP_CRACMM1(84) & / 'ylangene_a ', 84 / DATA MECH_NAM_CRACMM1(84 ) , MECH_MAP_CRACMM1( 84) & / 'SESQ ', 12 / DATA CONV_FAC_CRACMM1( 84) & / 1 / DATA SPMH_NAM_CRACMM1( 85) , SPMH_MAP_CRACMM1(85) & / 'zingiberene_a ', 85 / DATA MECH_NAM_CRACMM1(85 ) , MECH_MAP_CRACMM1( 85) & / 'SESQ ', 12 / DATA CONV_FAC_CRACMM1( 85) & / 1 / DATA SPMH_NAM_CRACMM1( 86) , SPMH_MAP_CRACMM1(86) & / 'copaene_b ', 86 / DATA MECH_NAM_CRACMM1(86 ) , MECH_MAP_CRACMM1( 86) & / 'SESQ ', 12 / DATA CONV_FAC_CRACMM1( 86) & / 1 / DATA SPMH_NAM_CRACMM1( 87) , SPMH_MAP_CRACMM1(87) & / 'longicyclene ', 87 / DATA MECH_NAM_CRACMM1(87 ) , MECH_MAP_CRACMM1( 87) & / 'VROCP4ALK ', 17 / DATA CONV_FAC_CRACMM1( 87) & / 1 / DATA SPMH_NAM_CRACMM1( 88) , SPMH_MAP_CRACMM1(88) & / 'methanol ', 88 / DATA MECH_NAM_CRACMM1(88 ) , MECH_MAP_CRACMM1( 88) & / 'MOH ', 18 / DATA CONV_FAC_CRACMM1( 88) & / 1 / DATA SPMH_NAM_CRACMM1( 89) , SPMH_MAP_CRACMM1(89) & / 'acetone ', 89 / DATA MECH_NAM_CRACMM1(89 ) , MECH_MAP_CRACMM1( 89) & / 'ACT ', 19 / DATA CONV_FAC_CRACMM1( 89) & / 1 / DATA SPMH_NAM_CRACMM1( 90) , SPMH_MAP_CRACMM1(90) & / 'acetaldehyde ', 90 / DATA MECH_NAM_CRACMM1(90 ) , MECH_MAP_CRACMM1( 90) & / 'ACD ', 20 / DATA CONV_FAC_CRACMM1( 90) & / 1 / DATA SPMH_NAM_CRACMM1( 91) , SPMH_MAP_CRACMM1(91) & / 'ethanol ', 91 / DATA MECH_NAM_CRACMM1(91 ) , MECH_MAP_CRACMM1( 91) & / 'EOH ', 21 / DATA CONV_FAC_CRACMM1( 91) & / 1 / DATA SPMH_NAM_CRACMM1( 92) , SPMH_MAP_CRACMM1(92) & / 'acetic_acid ', 92 / DATA MECH_NAM_CRACMM1(92 ) , MECH_MAP_CRACMM1( 92) & / 'ORA2 ', 22 / DATA CONV_FAC_CRACMM1( 92) & / 1 / DATA SPMH_NAM_CRACMM1( 93) , SPMH_MAP_CRACMM1(93) & / 'formic_acid ', 93 / DATA MECH_NAM_CRACMM1(93 ) , MECH_MAP_CRACMM1( 93) & / 'ORA1 ', 23 / DATA CONV_FAC_CRACMM1( 93) & / 1 / DATA SPMH_NAM_CRACMM1( 94) , SPMH_MAP_CRACMM1(94) & / 'pyruvic_acid ', 94 / DATA MECH_NAM_CRACMM1(94 ) , MECH_MAP_CRACMM1( 94) & / 'KET ', 11 / DATA CONV_FAC_CRACMM1( 94) & / 1 / DATA SPMH_NAM_CRACMM1( 95) , SPMH_MAP_CRACMM1(95) & / '2_methylprop_1_ene ', 95 / DATA MECH_NAM_CRACMM1(95 ) , MECH_MAP_CRACMM1( 95) & / 'OLT ', 2 / DATA CONV_FAC_CRACMM1( 95) & / 1 / DATA SPMH_NAM_CRACMM1( 96) , SPMH_MAP_CRACMM1(96) & / 'butane ', 96 / DATA MECH_NAM_CRACMM1(96 ) , MECH_MAP_CRACMM1( 96) & / 'HC3 ', 5 / DATA CONV_FAC_CRACMM1( 96) & / 1 / DATA SPMH_NAM_CRACMM1( 97) , SPMH_MAP_CRACMM1(97) & / 'butene ', 97 / DATA MECH_NAM_CRACMM1(97 ) , MECH_MAP_CRACMM1( 97) & / 'OLT ', 2 / DATA CONV_FAC_CRACMM1( 97) & / 1 / DATA SPMH_NAM_CRACMM1( 98) , SPMH_MAP_CRACMM1(98) & / 'butene_c2 ', 98 / DATA MECH_NAM_CRACMM1(98 ) , MECH_MAP_CRACMM1( 98) & / 'OLI ', 24 / DATA CONV_FAC_CRACMM1( 98) & / 1 / DATA SPMH_NAM_CRACMM1( 99) , SPMH_MAP_CRACMM1(99) & / 'butene_t2 ', 99 / DATA MECH_NAM_CRACMM1(99 ) , MECH_MAP_CRACMM1( 99) & / 'OLI ', 24 / DATA CONV_FAC_CRACMM1( 99) & / 1 / DATA SPMH_NAM_CRACMM1( 100) , SPMH_MAP_CRACMM1(100) & / 'ethane ', 100 / DATA MECH_NAM_CRACMM1(100 ) , MECH_MAP_CRACMM1( 100) & / 'ETH ', 25 / DATA CONV_FAC_CRACMM1( 100) & / 1 / DATA SPMH_NAM_CRACMM1( 101) , SPMH_MAP_CRACMM1(101) & / 'ethene ', 101 / DATA MECH_NAM_CRACMM1(101 ) , MECH_MAP_CRACMM1( 101) & / 'ETE ', 26 / DATA CONV_FAC_CRACMM1( 101) & / 1 / DATA SPMH_NAM_CRACMM1( 102) , SPMH_MAP_CRACMM1(102) & / 'propane ', 102 / DATA MECH_NAM_CRACMM1(102 ) , MECH_MAP_CRACMM1( 102) & / 'HC3 ', 5 / DATA CONV_FAC_CRACMM1( 102) & / 1 / DATA SPMH_NAM_CRACMM1( 103) , SPMH_MAP_CRACMM1(103) & / 'propene ', 103 / DATA MECH_NAM_CRACMM1(103 ) , MECH_MAP_CRACMM1( 103) & / 'OLT ', 2 / DATA CONV_FAC_CRACMM1( 103) & / 1 / DATA SPMH_NAM_CRACMM1( 104) , SPMH_MAP_CRACMM1(104) & / 'decanal ', 104 / DATA MECH_NAM_CRACMM1(104 ) , MECH_MAP_CRACMM1( 104) & / 'VROCIOXY ', 10 / DATA CONV_FAC_CRACMM1( 104) & / 1 / DATA SPMH_NAM_CRACMM1( 105) , SPMH_MAP_CRACMM1(105) & / 'geranyl_acetone ', 105 / DATA MECH_NAM_CRACMM1(105 ) , MECH_MAP_CRACMM1( 105) & / 'VROCP6ARO ', 8 / DATA CONV_FAC_CRACMM1( 105) & / 1 / DATA SPMH_NAM_CRACMM1( 106) , SPMH_MAP_CRACMM1(106) & / 'met_heptenone ', 106 / DATA MECH_NAM_CRACMM1(106 ) , MECH_MAP_CRACMM1( 106) & / 'OLI ', 24 / DATA CONV_FAC_CRACMM1( 106) & / 1 / DATA SPMH_NAM_CRACMM1( 107) , SPMH_MAP_CRACMM1(107) & / 'neryl_acetone ', 107 / DATA MECH_NAM_CRACMM1(107 ) , MECH_MAP_CRACMM1( 107) & / 'VROCP6ARO ', 8 / DATA CONV_FAC_CRACMM1( 107) & / 1 / DATA SPMH_NAM_CRACMM1( 108) , SPMH_MAP_CRACMM1(108) & / 'nonanal ', 108 / DATA MECH_NAM_CRACMM1(108 ) , MECH_MAP_CRACMM1( 108) & / 'VROCIOXY ', 10 / DATA CONV_FAC_CRACMM1( 108) & / 1 / DATA SPMH_NAM_CRACMM1( 109) , SPMH_MAP_CRACMM1(109) & / 'nonenal ', 109 / DATA MECH_NAM_CRACMM1(109 ) , MECH_MAP_CRACMM1( 109) & / 'VROCP6ARO ', 8 / DATA CONV_FAC_CRACMM1( 109) & / 1 / DATA SPMH_NAM_CRACMM1( 110) , SPMH_MAP_CRACMM1(110) & / 'octanal ', 110 / DATA MECH_NAM_CRACMM1(110 ) , MECH_MAP_CRACMM1( 110) & / 'ALD ', 27 / DATA CONV_FAC_CRACMM1( 110) & / 1 / DATA SPMH_NAM_CRACMM1( 111) , SPMH_MAP_CRACMM1(111) & / 'pentanal ', 111 / DATA MECH_NAM_CRACMM1(111 ) , MECH_MAP_CRACMM1( 111) & / 'ALD ', 27 / DATA CONV_FAC_CRACMM1( 111) & / 1 / DATA SPMH_NAM_CRACMM1( 112) , SPMH_MAP_CRACMM1(112) & / 't-2-octenal ', 112 / DATA MECH_NAM_CRACMM1(112 ) , MECH_MAP_CRACMM1( 112) & / 'UALD ', 28 / DATA CONV_FAC_CRACMM1( 112) & / 1 / DATA SPMH_NAM_CRACMM1( 113) , SPMH_MAP_CRACMM1(113) & / 'formaldehyde ', 113 / DATA MECH_NAM_CRACMM1(113 ) , MECH_MAP_CRACMM1( 113) & / 'HCHO ', 29 / DATA CONV_FAC_CRACMM1( 113) & / 1 / DATA SPMH_NAM_CRACMM1( 114) , SPMH_MAP_CRACMM1(114) & / 'oxopentanal ', 114 / DATA MECH_NAM_CRACMM1(114 ) , MECH_MAP_CRACMM1( 114) & / 'MGLY ', 30 / DATA CONV_FAC_CRACMM1( 114) & / 1 / DATA SPMH_NAM_CRACMM1( 115) , SPMH_MAP_CRACMM1(115) & / '1_pentanol ', 115 / DATA MECH_NAM_CRACMM1(115 ) , MECH_MAP_CRACMM1( 115) & / 'ROH ', 31 / DATA CONV_FAC_CRACMM1( 115) & / 1 / DATA SPMH_NAM_CRACMM1( 116) , SPMH_MAP_CRACMM1(116) & / '1_penten_3_one ', 116 / DATA MECH_NAM_CRACMM1(116 ) , MECH_MAP_CRACMM1( 116) & / 'OLT ', 2 / DATA CONV_FAC_CRACMM1( 116) & / 1 / DATA SPMH_NAM_CRACMM1( 117) , SPMH_MAP_CRACMM1(117) & / '2_met_butanenitrile ', 117 / DATA MECH_NAM_CRACMM1(117 ) , MECH_MAP_CRACMM1( 117) & / 'HC3 ', 5 / DATA CONV_FAC_CRACMM1( 117) & / 1 / DATA SPMH_NAM_CRACMM1( 118) , SPMH_MAP_CRACMM1(118) & / '2_pentene ', 118 / DATA MECH_NAM_CRACMM1(118 ) , MECH_MAP_CRACMM1( 118) & / 'OLI ', 24 / DATA CONV_FAC_CRACMM1( 118) & / 1 / DATA SPMH_NAM_CRACMM1( 119) , SPMH_MAP_CRACMM1(119) & / '3_metfuran ', 119 / DATA MECH_NAM_CRACMM1(119 ) , MECH_MAP_CRACMM1( 119) & / 'FURAN ', 6 / DATA CONV_FAC_CRACMM1( 119) & / 1 / DATA SPMH_NAM_CRACMM1( 120) , SPMH_MAP_CRACMM1(120) & / '3_metthiophene ', 120 / DATA MECH_NAM_CRACMM1(120 ) , MECH_MAP_CRACMM1( 120) & / 'FURAN ', 6 / DATA CONV_FAC_CRACMM1( 120) & / 1 / DATA SPMH_NAM_CRACMM1( 121) , SPMH_MAP_CRACMM1(121) & / '3_pentanone ', 121 / DATA MECH_NAM_CRACMM1(121 ) , MECH_MAP_CRACMM1( 121) & / 'KET ', 11 / DATA CONV_FAC_CRACMM1( 121) & / 1 / DATA SPMH_NAM_CRACMM1( 122) , SPMH_MAP_CRACMM1(122) & / '3_penten_2_ol ', 122 / DATA MECH_NAM_CRACMM1(122 ) , MECH_MAP_CRACMM1( 122) & / 'OLI ', 24 / DATA CONV_FAC_CRACMM1( 122) & / 1 / DATA SPMH_NAM_CRACMM1( 123) , SPMH_MAP_CRACMM1(123) & / '4_penten_1_ol ', 123 / DATA MECH_NAM_CRACMM1(123 ) , MECH_MAP_CRACMM1( 123) & / 'OLT ', 2 / DATA CONV_FAC_CRACMM1( 123) & / 1 / DATA SPMH_NAM_CRACMM1( 124) , SPMH_MAP_CRACMM1(124) & / '8_heptadecene ', 124 / DATA MECH_NAM_CRACMM1(124 ) , MECH_MAP_CRACMM1( 124) & / 'VROCP5ARO ', 13 / DATA CONV_FAC_CRACMM1( 124) & / 1 / DATA SPMH_NAM_CRACMM1( 125) , SPMH_MAP_CRACMM1(125) & / 'acetophenone ', 125 / DATA MECH_NAM_CRACMM1(125 ) , MECH_MAP_CRACMM1( 125) & / 'VROCP6ARO ', 8 / DATA CONV_FAC_CRACMM1( 125) & / 1 / DATA SPMH_NAM_CRACMM1( 126) , SPMH_MAP_CRACMM1(126) & / 'anisole ', 126 / DATA MECH_NAM_CRACMM1(126 ) , MECH_MAP_CRACMM1( 126) & / 'XYM ', 9 / DATA CONV_FAC_CRACMM1( 126) & / 1 / DATA SPMH_NAM_CRACMM1( 127) , SPMH_MAP_CRACMM1(127) & / 'benzaldehyde ', 127 / DATA MECH_NAM_CRACMM1(127 ) , MECH_MAP_CRACMM1( 127) & / 'BALD ', 32 / DATA CONV_FAC_CRACMM1( 127) & / 1 / DATA SPMH_NAM_CRACMM1( 128) , SPMH_MAP_CRACMM1(128) & / 'benzene ', 128 / DATA MECH_NAM_CRACMM1(128 ) , MECH_MAP_CRACMM1( 128) & / 'BEN ', 33 / DATA CONV_FAC_CRACMM1( 128) & / 1 / DATA SPMH_NAM_CRACMM1( 129) , SPMH_MAP_CRACMM1(129) & / 'benzyl_benzoate ', 129 / DATA MECH_NAM_CRACMM1(129 ) , MECH_MAP_CRACMM1( 129) & / 'VROCP5ARO ', 13 / DATA CONV_FAC_CRACMM1( 129) & / 1 / DATA SPMH_NAM_CRACMM1( 130) , SPMH_MAP_CRACMM1(130) & / 'benzyl_acetate ', 130 / DATA MECH_NAM_CRACMM1(130 ) , MECH_MAP_CRACMM1( 130) & / 'VROCP6ARO ', 8 / DATA CONV_FAC_CRACMM1( 130) & / 1 / DATA SPMH_NAM_CRACMM1( 131) , SPMH_MAP_CRACMM1(131) & / 'benzyl_alcohol ', 131 / DATA MECH_NAM_CRACMM1(131 ) , MECH_MAP_CRACMM1( 131) & / 'CSL ', 34 / DATA CONV_FAC_CRACMM1( 131) & / 1 / DATA SPMH_NAM_CRACMM1( 132) , SPMH_MAP_CRACMM1(132) & / 'chavicol ', 132 / DATA MECH_NAM_CRACMM1(132 ) , MECH_MAP_CRACMM1( 132) & / 'CSL ', 34 / DATA CONV_FAC_CRACMM1( 132) & / 1 / DATA SPMH_NAM_CRACMM1( 133) , SPMH_MAP_CRACMM1(133) & / 'cineole_1_8 ', 133 / DATA MECH_NAM_CRACMM1(133 ) , MECH_MAP_CRACMM1( 133) & / 'HC10 ', 35 / DATA CONV_FAC_CRACMM1( 133) & / 1 / DATA SPMH_NAM_CRACMM1( 134) , SPMH_MAP_CRACMM1(134) & / 'cinnamaldehyde ', 134 / DATA MECH_NAM_CRACMM1(134 ) , MECH_MAP_CRACMM1( 134) & / 'BALD ', 32 / DATA CONV_FAC_CRACMM1( 134) & / 1 / DATA SPMH_NAM_CRACMM1( 135) , SPMH_MAP_CRACMM1(135) & / 'cinnamic_acid ', 135 / DATA MECH_NAM_CRACMM1(135 ) , MECH_MAP_CRACMM1( 135) & / 'VROCP2ALK ', 14 / DATA CONV_FAC_CRACMM1( 135) & / 1 / DATA SPMH_NAM_CRACMM1( 136) , SPMH_MAP_CRACMM1(136) & / 'coniferyl_alcohol ', 136 / DATA MECH_NAM_CRACMM1(136 ) , MECH_MAP_CRACMM1( 136) & / 'VROCP1ALK ', 16 / DATA CONV_FAC_CRACMM1( 136) & / 1 / DATA SPMH_NAM_CRACMM1( 137) , SPMH_MAP_CRACMM1(137) & / '2met_nonatriene ', 137 / DATA MECH_NAM_CRACMM1(137 ) , MECH_MAP_CRACMM1( 137) & / 'FURAN ', 6 / DATA CONV_FAC_CRACMM1( 137) & / 1 / DATA SPMH_NAM_CRACMM1( 138) , SPMH_MAP_CRACMM1(138) & / 'ethyl_cinnamate ', 138 / DATA MECH_NAM_CRACMM1(138 ) , MECH_MAP_CRACMM1( 138) & / 'VROCP5ARO ', 13 / DATA CONV_FAC_CRACMM1( 138) & / 1 / DATA SPMH_NAM_CRACMM1( 139) , SPMH_MAP_CRACMM1(139) & / 'eugenol ', 139 / DATA MECH_NAM_CRACMM1(139 ) , MECH_MAP_CRACMM1( 139) & / 'CSL ', 34 / DATA CONV_FAC_CRACMM1( 139) & / 1 / DATA SPMH_NAM_CRACMM1( 140) , SPMH_MAP_CRACMM1(140) & / 'guaiacol ', 140 / DATA MECH_NAM_CRACMM1(140 ) , MECH_MAP_CRACMM1( 140) & / 'CSL ', 34 / DATA CONV_FAC_CRACMM1( 140) & / 1 / DATA SPMH_NAM_CRACMM1( 141) , SPMH_MAP_CRACMM1(141) & / 'hexanal ', 141 / DATA MECH_NAM_CRACMM1(141 ) , MECH_MAP_CRACMM1( 141) & / 'ALD ', 27 / DATA CONV_FAC_CRACMM1( 141) & / 1 / DATA SPMH_NAM_CRACMM1( 142) , SPMH_MAP_CRACMM1(142) & / 'hexanol_1 ', 142 / DATA MECH_NAM_CRACMM1(142 ) , MECH_MAP_CRACMM1( 142) & / 'OLI ', 24 / DATA CONV_FAC_CRACMM1( 142) & / 1 / DATA SPMH_NAM_CRACMM1( 143) , SPMH_MAP_CRACMM1(143) & / 'hexenal_c3 ', 143 / DATA MECH_NAM_CRACMM1(143 ) , MECH_MAP_CRACMM1( 143) & / 'UALD ', 28 / DATA CONV_FAC_CRACMM1( 143) & / 1 / DATA SPMH_NAM_CRACMM1( 144) , SPMH_MAP_CRACMM1(144) & / 'hexenal_t2 ', 144 / DATA MECH_NAM_CRACMM1(144 ) , MECH_MAP_CRACMM1( 144) & / 'UALD ', 28 / DATA CONV_FAC_CRACMM1( 144) & / 1 / DATA SPMH_NAM_CRACMM1( 145) , SPMH_MAP_CRACMM1(145) & / 'hexenol_c3 ', 145 / DATA MECH_NAM_CRACMM1(145 ) , MECH_MAP_CRACMM1( 145) & / 'OLI ', 24 / DATA CONV_FAC_CRACMM1( 145) & / 1 / DATA SPMH_NAM_CRACMM1( 146) , SPMH_MAP_CRACMM1(146) & / 'hexenyl_ACT_c3 ', 146 / DATA MECH_NAM_CRACMM1(146 ) , MECH_MAP_CRACMM1( 146) & / 'OLI ', 24 / DATA CONV_FAC_CRACMM1( 146) & / 1 / DATA SPMH_NAM_CRACMM1( 147) , SPMH_MAP_CRACMM1(147) & / 'hydrogen_cyanide ', 147 / DATA MECH_NAM_CRACMM1(147 ) , MECH_MAP_CRACMM1( 147) & / 'SLOWROC ', 36 / DATA CONV_FAC_CRACMM1( 147) & / 1 / DATA SPMH_NAM_CRACMM1( 148) , SPMH_MAP_CRACMM1(148) & / 'isobutyronitrile ', 148 / DATA MECH_NAM_CRACMM1(148 ) , MECH_MAP_CRACMM1( 148) & / 'SLOWROC ', 36 / DATA CONV_FAC_CRACMM1( 148) & / 1 / DATA SPMH_NAM_CRACMM1( 149) , SPMH_MAP_CRACMM1(149) & / 'jasmone ', 149 / DATA MECH_NAM_CRACMM1(149 ) , MECH_MAP_CRACMM1( 149) & / 'VROCP6ARO ', 8 / DATA CONV_FAC_CRACMM1( 149) & / 1 / DATA SPMH_NAM_CRACMM1( 150) , SPMH_MAP_CRACMM1(150) & / 'linalool ', 150 / DATA MECH_NAM_CRACMM1(150 ) , MECH_MAP_CRACMM1( 150) & / 'LIM ', 4 / DATA CONV_FAC_CRACMM1( 150) & / 1 / DATA SPMH_NAM_CRACMM1( 151) , SPMH_MAP_CRACMM1(151) & / 'linalool_OXD_c ', 151 / DATA MECH_NAM_CRACMM1(151 ) , MECH_MAP_CRACMM1( 151) & / 'VROCP5ARO ', 13 / DATA CONV_FAC_CRACMM1( 151) & / 1 / DATA SPMH_NAM_CRACMM1( 152) , SPMH_MAP_CRACMM1(152) & / 'linalool_OXD_t ', 152 / DATA MECH_NAM_CRACMM1(152 ) , MECH_MAP_CRACMM1( 152) & / 'VROCP5ARO ', 13 / DATA CONV_FAC_CRACMM1( 152) & / 1 / DATA SPMH_NAM_CRACMM1( 153) , SPMH_MAP_CRACMM1(153) & / 'methacrolein ', 153 / DATA MECH_NAM_CRACMM1(153 ) , MECH_MAP_CRACMM1( 153) & / 'MACR ', 37 / DATA CONV_FAC_CRACMM1( 153) & / 1 / DATA SPMH_NAM_CRACMM1( 154) , SPMH_MAP_CRACMM1(154) & / 'met_benzoate ', 154 / DATA MECH_NAM_CRACMM1(154 ) , MECH_MAP_CRACMM1( 154) & / 'VROCP6ARO ', 8 / DATA CONV_FAC_CRACMM1( 154) & / 1 / DATA SPMH_NAM_CRACMM1( 155) , SPMH_MAP_CRACMM1(155) & / 'met_jasmonate ', 155 / DATA MECH_NAM_CRACMM1(155 ) , MECH_MAP_CRACMM1( 155) & / 'VROCP5ARO ', 13 / DATA CONV_FAC_CRACMM1( 155) & / 1 / DATA SPMH_NAM_CRACMM1( 156) , SPMH_MAP_CRACMM1(156) & / 'met_salicylate ', 156 / DATA MECH_NAM_CRACMM1(156 ) , MECH_MAP_CRACMM1( 156) & / 'CSL ', 34 / DATA CONV_FAC_CRACMM1( 156) & / 1 / DATA SPMH_NAM_CRACMM1( 157) , SPMH_MAP_CRACMM1(157) & / 'met_acetate ', 157 / DATA MECH_NAM_CRACMM1(157 ) , MECH_MAP_CRACMM1( 157) & / 'SLOWROC ', 36 / DATA CONV_FAC_CRACMM1( 157) & / 1 / DATA SPMH_NAM_CRACMM1( 158) , SPMH_MAP_CRACMM1(158) & / 'met_vinylketone ', 158 / DATA MECH_NAM_CRACMM1(158 ) , MECH_MAP_CRACMM1( 158) & / 'MVK ', 38 / DATA CONV_FAC_CRACMM1( 158) & / 1 / DATA SPMH_NAM_CRACMM1( 159) , SPMH_MAP_CRACMM1(159) & / 'p_coumaric_acid ', 159 / DATA MECH_NAM_CRACMM1(159 ) , MECH_MAP_CRACMM1( 159) & / 'VROCP1ALK ', 16 / DATA CONV_FAC_CRACMM1( 159) & / 1 / DATA SPMH_NAM_CRACMM1( 160) , SPMH_MAP_CRACMM1(160) & / 'phenol ', 160 / DATA MECH_NAM_CRACMM1(160 ) , MECH_MAP_CRACMM1( 160) & / 'PHEN ', 39 / DATA CONV_FAC_CRACMM1( 160) & / 1 / DATA SPMH_NAM_CRACMM1( 161) , SPMH_MAP_CRACMM1(161) & / 'phenylacetaldehyde ', 161 / DATA MECH_NAM_CRACMM1(161 ) , MECH_MAP_CRACMM1( 161) & / 'BALD ', 32 / DATA CONV_FAC_CRACMM1( 161) & / 1 / DATA SPMH_NAM_CRACMM1( 162) , SPMH_MAP_CRACMM1(162) & / 'safrole ', 162 / DATA MECH_NAM_CRACMM1(162 ) , MECH_MAP_CRACMM1( 162) & / 'VROCP5ARO ', 13 / DATA CONV_FAC_CRACMM1( 162) & / 1 / DATA SPMH_NAM_CRACMM1( 163) , SPMH_MAP_CRACMM1(163) & / 'salicylaldehyde ', 163 / DATA MECH_NAM_CRACMM1(163 ) , MECH_MAP_CRACMM1( 163) & / 'BALD ', 32 / DATA CONV_FAC_CRACMM1( 163) & / 1 / DATA SPMH_NAM_CRACMM1( 164) , SPMH_MAP_CRACMM1(164) & / 'toluene ', 164 / DATA MECH_NAM_CRACMM1(164 ) , MECH_MAP_CRACMM1( 164) & / 'TOL ', 40 / DATA CONV_FAC_CRACMM1( 164) & / 1 / DATA SPMH_NAM_CRACMM1( 165) , SPMH_MAP_CRACMM1(165) & / '3met_3DCTT ', 165 / DATA MECH_NAM_CRACMM1(165 ) , MECH_MAP_CRACMM1( 165) & / 'FURAN ', 6 / DATA CONV_FAC_CRACMM1( 165) & / 1 / DATA SPMH_NAM_CRACMM1( 166) , SPMH_MAP_CRACMM1(166) & / 'xylene ', 166 / DATA MECH_NAM_CRACMM1(166 ) , MECH_MAP_CRACMM1( 166) & / 'XYM ', 9 / DATA CONV_FAC_CRACMM1( 166) & / 1 / DATA SPMH_NAM_CRACMM1( 167) , SPMH_MAP_CRACMM1(167) & / 'z2_penten_1ol ', 167 / DATA MECH_NAM_CRACMM1(167 ) , MECH_MAP_CRACMM1( 167) & / 'OLI ', 24 / DATA CONV_FAC_CRACMM1( 167) & / 1 / DATA SPMH_NAM_CRACMM1( 168) , SPMH_MAP_CRACMM1(168) & / 'z2_penten_3ol ', 168 / DATA MECH_NAM_CRACMM1(168 ) , MECH_MAP_CRACMM1( 168) & / 'OLI ', 24 / DATA CONV_FAC_CRACMM1( 168) & / 1 / DATA SPMH_NAM_CRACMM1( 169) , SPMH_MAP_CRACMM1(169) & / 'z3_hexen_1yl_butyrate ', 169 / DATA MECH_NAM_CRACMM1(169 ) , MECH_MAP_CRACMM1( 169) & / 'VROCP6ARO ', 8 / DATA CONV_FAC_CRACMM1( 169) & / 1 / DATA SPMH_NAM_CRACMM1( 170) , SPMH_MAP_CRACMM1(170) & / 'butanone_2 ', 170 / DATA MECH_NAM_CRACMM1(170 ) , MECH_MAP_CRACMM1( 170) & / 'MEK ', 41 / DATA CONV_FAC_CRACMM1( 170) & / 1 / DATA SPMH_NAM_CRACMM1( 171) , SPMH_MAP_CRACMM1(171) & / 'carbon_2s ', 171 / DATA MECH_NAM_CRACMM1(171 ) , MECH_MAP_CRACMM1( 171) & / 'SLOWROC ', 36 / DATA CONV_FAC_CRACMM1( 171) & / 1 / DATA SPMH_NAM_CRACMM1( 172) , SPMH_MAP_CRACMM1(172) & / 'carbonyl_s ', 172 / DATA MECH_NAM_CRACMM1(172 ) , MECH_MAP_CRACMM1( 172) & / 'SLOWROC ', 36 / DATA CONV_FAC_CRACMM1( 172) & / 1 / DATA SPMH_NAM_CRACMM1( 173) , SPMH_MAP_CRACMM1(173) & / 'decane ', 173 / DATA MECH_NAM_CRACMM1(173 ) , MECH_MAP_CRACMM1( 173) & / 'HC10 ', 35 / DATA CONV_FAC_CRACMM1( 173) & / 1 / DATA SPMH_NAM_CRACMM1( 174) , SPMH_MAP_CRACMM1(174) & / 'diallyl_2s ', 174 / DATA MECH_NAM_CRACMM1(174 ) , MECH_MAP_CRACMM1( 174) & / 'VROCP6ARO ', 8 / DATA CONV_FAC_CRACMM1( 174) & / 1 / DATA SPMH_NAM_CRACMM1( 175) , SPMH_MAP_CRACMM1(175) & / '2met_2s ', 175 / DATA MECH_NAM_CRACMM1(175 ) , MECH_MAP_CRACMM1( 175) & / 'HC10 ', 35 / DATA CONV_FAC_CRACMM1( 175) & / 1 / DATA SPMH_NAM_CRACMM1( 176) , SPMH_MAP_CRACMM1(176) & / '2met_s ', 176 / DATA MECH_NAM_CRACMM1(176 ) , MECH_MAP_CRACMM1( 176) & / 'HC5 ', 42 / DATA CONV_FAC_CRACMM1( 176) & / 1 / DATA SPMH_NAM_CRACMM1( 177) , SPMH_MAP_CRACMM1(177) & / 'dodecene_1 ', 177 / DATA MECH_NAM_CRACMM1(177 ) , MECH_MAP_CRACMM1( 177) & / 'VROCP6ARO ', 8 / DATA CONV_FAC_CRACMM1( 177) & / 1 / DATA SPMH_NAM_CRACMM1( 178) , SPMH_MAP_CRACMM1(178) & / 'heptanal ', 178 / DATA MECH_NAM_CRACMM1(178 ) , MECH_MAP_CRACMM1( 178) & / 'ALD ', 27 / DATA CONV_FAC_CRACMM1( 178) & / 1 / DATA SPMH_NAM_CRACMM1( 179) , SPMH_MAP_CRACMM1(179) & / 'heptane ', 179 / DATA MECH_NAM_CRACMM1(179 ) , MECH_MAP_CRACMM1( 179) & / 'HC10 ', 35 / DATA CONV_FAC_CRACMM1( 179) & / 1 / DATA SPMH_NAM_CRACMM1( 180) , SPMH_MAP_CRACMM1(180) & / 'heptanone ', 180 / DATA MECH_NAM_CRACMM1(180 ) , MECH_MAP_CRACMM1( 180) & / 'KET ', 11 / DATA CONV_FAC_CRACMM1( 180) & / 1 / DATA SPMH_NAM_CRACMM1( 181) , SPMH_MAP_CRACMM1(181) & / 'hexane ', 181 / DATA MECH_NAM_CRACMM1(181 ) , MECH_MAP_CRACMM1( 181) & / 'HC5 ', 42 / DATA CONV_FAC_CRACMM1( 181) & / 1 / DATA SPMH_NAM_CRACMM1( 182) , SPMH_MAP_CRACMM1(182) & / 'indole ', 183 / DATA MECH_NAM_CRACMM1(182 ) , MECH_MAP_CRACMM1( 182) & / 'VROCP5ARO ', 13 / DATA CONV_FAC_CRACMM1( 182) & / 1 / DATA SPMH_NAM_CRACMM1( 183) , SPMH_MAP_CRACMM1(183) & / 'methane ', 184 / DATA MECH_NAM_CRACMM1(183 ) , MECH_MAP_CRACMM1( 183) & / 'ECH4 ', 44 / DATA CONV_FAC_CRACMM1( 183) & / 1 / DATA SPMH_NAM_CRACMM1( 184) , SPMH_MAP_CRACMM1(184) & / 'met_bromide ', 185 / DATA MECH_NAM_CRACMM1(184 ) , MECH_MAP_CRACMM1( 184) & / 'SLOWROC ', 36 / DATA CONV_FAC_CRACMM1( 184) & / 1 / DATA SPMH_NAM_CRACMM1( 185) , SPMH_MAP_CRACMM1(185) & / 'met_chloride ', 186 / DATA MECH_NAM_CRACMM1(185 ) , MECH_MAP_CRACMM1( 185) & / 'SLOWROC ', 36 / DATA CONV_FAC_CRACMM1( 185) & / 1 / DATA SPMH_NAM_CRACMM1( 186) , SPMH_MAP_CRACMM1(186) & / 'met_iodide ', 187 / DATA MECH_NAM_CRACMM1(186 ) , MECH_MAP_CRACMM1( 186) & / 'SLOWROC ', 36 / DATA CONV_FAC_CRACMM1( 186) & / 1 / DATA SPMH_NAM_CRACMM1( 187) , SPMH_MAP_CRACMM1(187) & / 'met_mercaptan ', 188 / DATA MECH_NAM_CRACMM1(187 ) , MECH_MAP_CRACMM1( 187) & / 'HC10 ', 35 / DATA CONV_FAC_CRACMM1( 187) & / 1 / DATA SPMH_NAM_CRACMM1( 188) , SPMH_MAP_CRACMM1(188) & / 'met_propenyl_2s ', 189 / DATA MECH_NAM_CRACMM1(188 ) , MECH_MAP_CRACMM1( 188) & / 'OLI ', 24 / DATA CONV_FAC_CRACMM1( 188) & / 1 / DATA SPMH_NAM_CRACMM1( 189) , SPMH_MAP_CRACMM1(189) & / 'MBO_3m2e1ol ', 190 / DATA MECH_NAM_CRACMM1(189 ) , MECH_MAP_CRACMM1( 189) & / 'OLI ', 24 / DATA CONV_FAC_CRACMM1( 189) & / 1 / DATA SPMH_NAM_CRACMM1( 190) , SPMH_MAP_CRACMM1(190) & / 'MBO_3m3e1ol ', 191 / DATA MECH_NAM_CRACMM1(190 ) , MECH_MAP_CRACMM1( 190) & / 'OLI ', 24 / DATA CONV_FAC_CRACMM1( 190) & / 1 / DATA SPMH_NAM_CRACMM1( 191) , SPMH_MAP_CRACMM1(191) & / 'naphthalene ', 192 / DATA MECH_NAM_CRACMM1(191 ) , MECH_MAP_CRACMM1( 191) & / 'NAPH ', 45 / DATA CONV_FAC_CRACMM1( 191) & / 1 / DATA SPMH_NAM_CRACMM1( 192) , SPMH_MAP_CRACMM1(192) & / 'pentane ', 193 / DATA MECH_NAM_CRACMM1(192 ) , MECH_MAP_CRACMM1( 192) & / 'HC5 ', 42 / DATA CONV_FAC_CRACMM1( 192) & / 1 / DATA SPMH_NAM_CRACMM1( 193) , SPMH_MAP_CRACMM1(193) & / 'PPPP_2s ', 194 / DATA MECH_NAM_CRACMM1(193 ) , MECH_MAP_CRACMM1( 193) & / 'VROCP6ARO ', 8 / DATA CONV_FAC_CRACMM1( 193) & / 1 / DATA SPMH_NAM_CRACMM1( 194) , SPMH_MAP_CRACMM1(194) & / 'santene ', 195 / DATA MECH_NAM_CRACMM1(194 ) , MECH_MAP_CRACMM1( 194) & / 'OLI ', 24 / DATA CONV_FAC_CRACMM1( 194) & / 1 / DATA SPMH_NAM_CRACMM1( 195) , SPMH_MAP_CRACMM1(195) & / 'skatole ', 196 / DATA MECH_NAM_CRACMM1(195 ) , MECH_MAP_CRACMM1( 195) & / 'VROCP5ARO ', 13 / DATA CONV_FAC_CRACMM1( 195) & / 1 / DATA SPMH_NAM_CRACMM1( 196) , SPMH_MAP_CRACMM1(196) & / 'terpinyl_ACT_a ', 197 / DATA MECH_NAM_CRACMM1(196 ) , MECH_MAP_CRACMM1( 196) & / 'VROCP6ARO ', 8 / DATA CONV_FAC_CRACMM1( 196) & / 1 / DATA SPMH_NAM_CRACMM1( 197) , SPMH_MAP_CRACMM1(197) & / 'tetradecene_1 ', 198 / DATA MECH_NAM_CRACMM1(197 ) , MECH_MAP_CRACMM1( 197) & / 'VROCP5ARO ', 13 / DATA CONV_FAC_CRACMM1( 197) & / 1 / DATA SPMH_NAM_CRACMM1( 198) , SPMH_MAP_CRACMM1(198) & / 'undecane ', 199 / DATA MECH_NAM_CRACMM1(198 ) , MECH_MAP_CRACMM1( 198) & / 'HC10 ', 35 / DATA CONV_FAC_CRACMM1( 198) & / 1 / DATA SPMH_NAM_CRACMM1( 199) , SPMH_MAP_CRACMM1(199) & / 'carbon_monoxide ', 200 / DATA MECH_NAM_CRACMM1(199 ) , MECH_MAP_CRACMM1( 199) & / 'CO ', 46 / DATA CONV_FAC_CRACMM1( 199) & / 1 / DATA SPMH_NAM_CRACMM1( 200) , SPMH_MAP_CRACMM1(200) & / 'nitric_OXD ', 201 / DATA MECH_NAM_CRACMM1(200 ) , MECH_MAP_CRACMM1( 200) & / 'NO ', 43 / DATA CONV_FAC_CRACMM1( 200) & / 1 / ================================================ FILE: CCTM/src/biog/megan3/MAP_CV2CRACMM2.EXT ================================================ C======================================================================= C MAP_CV2CRACMM2.EXT C This include file contains conversion table for 201 speciated species C to CRACMM2 (CMAQ) species C C MEGAN v3 C C History: C Who When What C --------------------------------------------------------------------- C Jeff Willison 05/17/2022 - Created for MEGANv3.2 in CMAQ C======================================================================= CHARACTER*16 MAP_CRACMM2MECH PARAMETER (MAP_CRACMM2MECH = 'CRACMM2 ') INTEGER N_CRACMM2 PARAMETER (N_CRACMM2 = (200)) ! Number of map species CHARACTER*16 SPMH_NAM_CRACMM2( N_CRACMM2 ) ! speciated species name INTEGER SPMH_MAP_CRACMM2( N_CRACMM2 ) ! speciated species index ! mapped to SPC_NOCONVER.EXT CHARACTER*16 MECH_NAM_CRACMM2( N_CRACMM2 ) ! mechanism species INTEGER MECH_MAP_CRACMM2( N_CRACMM2 ) ! mechanism species mapped REAL CONV_FAC_CRACMM2( N_CRACMM2 ) ! conversion factor DATA SPMH_NAM_CRACMM2( 1) , SPMH_MAP_CRACMM2(1) & / 'isoprene ', 1 / DATA MECH_NAM_CRACMM2(1 ) , MECH_MAP_CRACMM2( 1) & / 'ISO ', 1 / DATA CONV_FAC_CRACMM2( 1) & / 1 / DATA SPMH_NAM_CRACMM2( 2) , SPMH_MAP_CRACMM2(2) & / 'MBO_2m3e2ol ', 2 / DATA MECH_NAM_CRACMM2(2 ) , MECH_MAP_CRACMM2( 2) & / 'OLT ', 2 / DATA CONV_FAC_CRACMM2( 2) & / 1 / DATA SPMH_NAM_CRACMM2( 3) , SPMH_MAP_CRACMM2(3) & / 'pinene_a ', 3 / DATA MECH_NAM_CRACMM2(3 ) , MECH_MAP_CRACMM2( 3) & / 'API ', 3 / DATA CONV_FAC_CRACMM2( 3) & / 1 / DATA SPMH_NAM_CRACMM2( 4) , SPMH_MAP_CRACMM2(4) & / 'pinene_b ', 4 / DATA MECH_NAM_CRACMM2(4 ) , MECH_MAP_CRACMM2( 4) & / 'API ', 3 / DATA CONV_FAC_CRACMM2( 4) & / 1 / DATA SPMH_NAM_CRACMM2( 5) , SPMH_MAP_CRACMM2(5) & / 'myrcene ', 5 / DATA MECH_NAM_CRACMM2(5 ) , MECH_MAP_CRACMM2( 5) & / 'LIM ', 4 / DATA CONV_FAC_CRACMM2( 5) & / 1 / DATA SPMH_NAM_CRACMM2( 6) , SPMH_MAP_CRACMM2(6) & / 'ocimene_al ', 6 / DATA MECH_NAM_CRACMM2(6 ) , MECH_MAP_CRACMM2( 6) & / 'LIM ', 4 / DATA CONV_FAC_CRACMM2( 6) & / 1 / DATA SPMH_NAM_CRACMM2( 7) , SPMH_MAP_CRACMM2(7) & / 'ocimene_c_b ', 7 / DATA MECH_NAM_CRACMM2(7 ) , MECH_MAP_CRACMM2( 7) & / 'LIM ', 4 / DATA CONV_FAC_CRACMM2( 7) & / 1 / DATA SPMH_NAM_CRACMM2( 8) , SPMH_MAP_CRACMM2(8) & / 'ocimene_t_b ', 8 / DATA MECH_NAM_CRACMM2(8 ) , MECH_MAP_CRACMM2( 8) & / 'LIM ', 4 / DATA CONV_FAC_CRACMM2( 8) & / 1 / DATA SPMH_NAM_CRACMM2( 9) , SPMH_MAP_CRACMM2(9) & / 'bornene ', 9 / DATA MECH_NAM_CRACMM2(9 ) , MECH_MAP_CRACMM2( 9) & / 'API ', 3 / DATA CONV_FAC_CRACMM2( 9) & / 1 / DATA SPMH_NAM_CRACMM2( 10) , SPMH_MAP_CRACMM2(10) & / 'camphene ', 10 / DATA MECH_NAM_CRACMM2(10 ) , MECH_MAP_CRACMM2( 10) & / 'API ', 3 / DATA CONV_FAC_CRACMM2( 10) & / 1 / DATA SPMH_NAM_CRACMM2( 11) , SPMH_MAP_CRACMM2(11) & / 'carene_3 ', 11 / DATA MECH_NAM_CRACMM2(11 ) , MECH_MAP_CRACMM2( 11) & / 'API ', 3 / DATA CONV_FAC_CRACMM2( 11) & / 1 / DATA SPMH_NAM_CRACMM2( 12) , SPMH_MAP_CRACMM2(12) & / 'fenchene_a ', 12 / DATA MECH_NAM_CRACMM2(12 ) , MECH_MAP_CRACMM2( 12) & / 'API ', 3 / DATA CONV_FAC_CRACMM2( 12) & / 1 / DATA SPMH_NAM_CRACMM2( 13) , SPMH_MAP_CRACMM2(13) & / 'fenchene_b ', 13 / DATA MECH_NAM_CRACMM2(13 ) , MECH_MAP_CRACMM2( 13) & / 'API ', 3 / DATA CONV_FAC_CRACMM2( 13) & / 1 / DATA SPMH_NAM_CRACMM2( 14) , SPMH_MAP_CRACMM2(14) & / 'tricyclene ', 14 / DATA MECH_NAM_CRACMM2(14 ) , MECH_MAP_CRACMM2( 14) & / 'HC3 ', 5 / DATA CONV_FAC_CRACMM2( 14) & / 1 / DATA SPMH_NAM_CRACMM2( 15) , SPMH_MAP_CRACMM2(15) & / 'limonene ', 15 / DATA MECH_NAM_CRACMM2(15 ) , MECH_MAP_CRACMM2( 15) & / 'LIM ', 4 / DATA CONV_FAC_CRACMM2( 15) & / 1 / DATA SPMH_NAM_CRACMM2( 16) , SPMH_MAP_CRACMM2(16) & / 'phellandrene_b ', 16 / DATA MECH_NAM_CRACMM2(16 ) , MECH_MAP_CRACMM2( 16) & / 'LIM ', 4 / DATA CONV_FAC_CRACMM2( 16) & / 1 / DATA SPMH_NAM_CRACMM2( 17) , SPMH_MAP_CRACMM2(17) & / 'phellandrene_a ', 17 / DATA MECH_NAM_CRACMM2(17 ) , MECH_MAP_CRACMM2( 17) & / 'LIM ', 4 / DATA CONV_FAC_CRACMM2( 17) & / 1 / DATA SPMH_NAM_CRACMM2( 18) , SPMH_MAP_CRACMM2(18) & / 'sabinene ', 18 / DATA MECH_NAM_CRACMM2(18 ) , MECH_MAP_CRACMM2( 18) & / 'API ', 3 / DATA CONV_FAC_CRACMM2( 18) & / 1 / DATA SPMH_NAM_CRACMM2( 19) , SPMH_MAP_CRACMM2(19) & / 'terpinene_a ', 19 / DATA MECH_NAM_CRACMM2(19 ) , MECH_MAP_CRACMM2( 19) & / 'LIM ', 4 / DATA CONV_FAC_CRACMM2( 19) & / 1 / DATA SPMH_NAM_CRACMM2( 20) , SPMH_MAP_CRACMM2(20) & / 'terpinene_g ', 20 / DATA MECH_NAM_CRACMM2(20 ) , MECH_MAP_CRACMM2( 20) & / 'LIM ', 4 / DATA CONV_FAC_CRACMM2( 20) & / 1 / DATA SPMH_NAM_CRACMM2( 21) , SPMH_MAP_CRACMM2(21) & / 'terpinolene ', 21 / DATA MECH_NAM_CRACMM2(21 ) , MECH_MAP_CRACMM2( 21) & / 'LIM ', 4 / DATA CONV_FAC_CRACMM2( 21) & / 1 / DATA SPMH_NAM_CRACMM2( 22) , SPMH_MAP_CRACMM2(22) & / 'thujene_a ', 22 / DATA MECH_NAM_CRACMM2(22 ) , MECH_MAP_CRACMM2( 22) & / 'API ', 3 / DATA CONV_FAC_CRACMM2( 22) & / 1 / DATA SPMH_NAM_CRACMM2( 23) , SPMH_MAP_CRACMM2(23) & / 'verbenene ', 23 / DATA MECH_NAM_CRACMM2(23 ) , MECH_MAP_CRACMM2( 23) & / 'FURAN ', 6 / DATA CONV_FAC_CRACMM2( 23) & / 1 / DATA SPMH_NAM_CRACMM2( 24) , SPMH_MAP_CRACMM2(24) & / 'cymene_o ', 24 / DATA MECH_NAM_CRACMM2(24 ) , MECH_MAP_CRACMM2( 24) & / 'XYL ', 7 / DATA CONV_FAC_CRACMM2( 24) & / 1 / DATA SPMH_NAM_CRACMM2( 25) , SPMH_MAP_CRACMM2(25) & / 'cymene_p ', 25 / DATA MECH_NAM_CRACMM2(25 ) , MECH_MAP_CRACMM2( 25) & / 'VROCP6ARO ', 8 / DATA CONV_FAC_CRACMM2( 25) & / 1 / DATA SPMH_NAM_CRACMM2( 26) , SPMH_MAP_CRACMM2(26) & / 'meta-cymenene ', 26 / DATA MECH_NAM_CRACMM2(26 ) , MECH_MAP_CRACMM2( 26) & / 'XYL ', 7 / DATA CONV_FAC_CRACMM2( 26) & / 1 / DATA SPMH_NAM_CRACMM2( 27) , SPMH_MAP_CRACMM2(27) & / 'p-cymenene ', 27 / DATA MECH_NAM_CRACMM2(27 ) , MECH_MAP_CRACMM2( 27) & / 'XYL ', 7 / DATA CONV_FAC_CRACMM2( 27) & / 1 / DATA SPMH_NAM_CRACMM2( 28) , SPMH_MAP_CRACMM2(28) & / 'borneol ', 28 / DATA MECH_NAM_CRACMM2(28 ) , MECH_MAP_CRACMM2( 28) & / 'VROCIOXY ', 10 / DATA CONV_FAC_CRACMM2( 28) & / 1 / DATA SPMH_NAM_CRACMM2( 29) , SPMH_MAP_CRACMM2(29) & / 'bornyl_ACT ', 29 / DATA MECH_NAM_CRACMM2(29 ) , MECH_MAP_CRACMM2( 29) & / 'VROCIOXY ', 10 / DATA CONV_FAC_CRACMM2( 29) & / 1 / DATA SPMH_NAM_CRACMM2( 30) , SPMH_MAP_CRACMM2(30) & / 'camphor ', 30 / DATA MECH_NAM_CRACMM2(30 ) , MECH_MAP_CRACMM2( 30) & / 'KET ', 11 / DATA CONV_FAC_CRACMM2( 30) & / 1 / DATA SPMH_NAM_CRACMM2( 31) , SPMH_MAP_CRACMM2(31) & / 'estragole ', 31 / DATA MECH_NAM_CRACMM2(31 ) , MECH_MAP_CRACMM2( 31) & / 'VROCP6ARO ', 8 / DATA CONV_FAC_CRACMM2( 31) & / 1 / DATA SPMH_NAM_CRACMM2( 32) , SPMH_MAP_CRACMM2(32) & / 'fenchone ', 32 / DATA MECH_NAM_CRACMM2(32 ) , MECH_MAP_CRACMM2( 32) & / 'KET ', 11 / DATA CONV_FAC_CRACMM2( 32) & / 1 / DATA SPMH_NAM_CRACMM2( 33) , SPMH_MAP_CRACMM2(33) & / 'ionone_b ', 33 / DATA MECH_NAM_CRACMM2(33 ) , MECH_MAP_CRACMM2( 33) & / 'VROCP6ARO ', 8 / DATA CONV_FAC_CRACMM2( 33) & / 1 / DATA SPMH_NAM_CRACMM2( 34) , SPMH_MAP_CRACMM2(34) & / 'ipsenol ', 34 / DATA MECH_NAM_CRACMM2(34 ) , MECH_MAP_CRACMM2( 34) & / 'LIM ', 4 / DATA CONV_FAC_CRACMM2( 34) & / 1 / DATA SPMH_NAM_CRACMM2( 35) , SPMH_MAP_CRACMM2(35) & / 'myrtenal ', 35 / DATA MECH_NAM_CRACMM2(35 ) , MECH_MAP_CRACMM2( 35) & / 'VROCIOXY ', 10 / DATA CONV_FAC_CRACMM2( 35) & / 1 / DATA SPMH_NAM_CRACMM2( 36) , SPMH_MAP_CRACMM2(36) & / 'octanol ', 36 / DATA MECH_NAM_CRACMM2(36 ) , MECH_MAP_CRACMM2( 36) & / 'VROCIOXY ', 10 / DATA CONV_FAC_CRACMM2( 36) & / 1 / DATA SPMH_NAM_CRACMM2( 37) , SPMH_MAP_CRACMM2(37) & / 'octenol_1e3ol ', 37 / DATA MECH_NAM_CRACMM2(37 ) , MECH_MAP_CRACMM2( 37) & / 'VROCP6ARO ', 8 / DATA CONV_FAC_CRACMM2( 37) & / 1 / DATA SPMH_NAM_CRACMM2( 38) , SPMH_MAP_CRACMM2(38) & / 'piperitone ', 38 / DATA MECH_NAM_CRACMM2(38 ) , MECH_MAP_CRACMM2( 38) & / 'API ', 3 / DATA CONV_FAC_CRACMM2( 38) & / 1 / DATA SPMH_NAM_CRACMM2( 39) , SPMH_MAP_CRACMM2(39) & / 'terpineol_4 ', 39 / DATA MECH_NAM_CRACMM2(39 ) , MECH_MAP_CRACMM2( 39) & / 'API ', 3 / DATA CONV_FAC_CRACMM2( 39) & / 1 / DATA SPMH_NAM_CRACMM2( 40) , SPMH_MAP_CRACMM2(40) & / 'terpineol_a ', 40 / DATA MECH_NAM_CRACMM2(40 ) , MECH_MAP_CRACMM2( 40) & / 'API ', 3 / DATA CONV_FAC_CRACMM2( 40) & / 1 / DATA SPMH_NAM_CRACMM2( 41) , SPMH_MAP_CRACMM2(41) & / 'thujone_a ', 41 / DATA MECH_NAM_CRACMM2(41 ) , MECH_MAP_CRACMM2( 41) & / 'KET ', 11 / DATA CONV_FAC_CRACMM2( 41) & / 1 / DATA SPMH_NAM_CRACMM2( 42) , SPMH_MAP_CRACMM2(42) & / 'thujone_b ', 42 / DATA MECH_NAM_CRACMM2(42 ) , MECH_MAP_CRACMM2( 42) & / 'KET ', 11 / DATA CONV_FAC_CRACMM2( 42) & / 1 / DATA SPMH_NAM_CRACMM2( 43) , SPMH_MAP_CRACMM2(43) & / 'acoradiene ', 43 / DATA MECH_NAM_CRACMM2(43 ) , MECH_MAP_CRACMM2( 43) & / 'SESQ ', 12 / DATA CONV_FAC_CRACMM2( 43) & / 1 / DATA SPMH_NAM_CRACMM2( 44) , SPMH_MAP_CRACMM2(44) & / 'bergamotene_a ', 44 / DATA MECH_NAM_CRACMM2(44 ) , MECH_MAP_CRACMM2( 44) & / 'SESQ ', 12 / DATA CONV_FAC_CRACMM2( 44) & / 1 / DATA SPMH_NAM_CRACMM2( 45) , SPMH_MAP_CRACMM2(45) & / 'bergamotene_b ', 45 / DATA MECH_NAM_CRACMM2(45 ) , MECH_MAP_CRACMM2( 45) & / 'SESQ ', 12 / DATA CONV_FAC_CRACMM2( 45) & / 1 / DATA SPMH_NAM_CRACMM2( 46) , SPMH_MAP_CRACMM2(46) & / 'bisabolene_a ', 46 / DATA MECH_NAM_CRACMM2(46 ) , MECH_MAP_CRACMM2( 46) & / 'SESQ ', 12 / DATA CONV_FAC_CRACMM2( 46) & / 1 / DATA SPMH_NAM_CRACMM2( 47) , SPMH_MAP_CRACMM2(47) & / 'bisabolene_b ', 47 / DATA MECH_NAM_CRACMM2(47 ) , MECH_MAP_CRACMM2( 47) & / 'SESQ ', 12 / DATA CONV_FAC_CRACMM2( 47) & / 1 / DATA SPMH_NAM_CRACMM2( 48) , SPMH_MAP_CRACMM2(48) & / 'cadinene_d ', 48 / DATA MECH_NAM_CRACMM2(48 ) , MECH_MAP_CRACMM2( 48) & / 'SESQ ', 12 / DATA CONV_FAC_CRACMM2( 48) & / 1 / DATA SPMH_NAM_CRACMM2( 49) , SPMH_MAP_CRACMM2(49) & / 'cadinene_g ', 49 / DATA MECH_NAM_CRACMM2(49 ) , MECH_MAP_CRACMM2( 49) & / 'SESQ ', 12 / DATA CONV_FAC_CRACMM2( 49) & / 1 / DATA SPMH_NAM_CRACMM2( 50) , SPMH_MAP_CRACMM2(50) & / 'calarene ', 50 / DATA MECH_NAM_CRACMM2(50 ) , MECH_MAP_CRACMM2( 50) & / 'SESQ ', 12 / DATA CONV_FAC_CRACMM2( 50) & / 1 / DATA SPMH_NAM_CRACMM2( 51) , SPMH_MAP_CRACMM2(51) & / 'caryophyllene_b ', 51 / DATA MECH_NAM_CRACMM2(51 ) , MECH_MAP_CRACMM2( 51) & / 'SESQ ', 12 / DATA CONV_FAC_CRACMM2( 51) & / 1 / DATA SPMH_NAM_CRACMM2( 52) , SPMH_MAP_CRACMM2(52) & / 'caryophyllene_c_i ', 52 / DATA MECH_NAM_CRACMM2(52 ) , MECH_MAP_CRACMM2( 52) & / 'SESQ ', 12 / DATA CONV_FAC_CRACMM2( 52) & / 1 / DATA SPMH_NAM_CRACMM2( 53) , SPMH_MAP_CRACMM2(53) & / 'elemene_b ', 53 / DATA MECH_NAM_CRACMM2(53 ) , MECH_MAP_CRACMM2( 53) & / 'SESQ ', 12 / DATA CONV_FAC_CRACMM2( 53) & / 1 / DATA SPMH_NAM_CRACMM2( 54) , SPMH_MAP_CRACMM2(54) & / 'farnescene_a ', 54 / DATA MECH_NAM_CRACMM2(54 ) , MECH_MAP_CRACMM2( 54) & / 'SESQ ', 12 / DATA CONV_FAC_CRACMM2( 54) & / 1 / DATA SPMH_NAM_CRACMM2( 55) , SPMH_MAP_CRACMM2(55) & / 'farnescene_b ', 55 / DATA MECH_NAM_CRACMM2(55 ) , MECH_MAP_CRACMM2( 55) & / 'SESQ ', 12 / DATA CONV_FAC_CRACMM2( 55) & / 1 / DATA SPMH_NAM_CRACMM2( 56) , SPMH_MAP_CRACMM2(56) & / 'farnesol ', 56 / DATA MECH_NAM_CRACMM2(56 ) , MECH_MAP_CRACMM2( 56) & / 'VROCP5ARO ', 13 / DATA CONV_FAC_CRACMM2( 56) & / 1 / DATA SPMH_NAM_CRACMM2( 57) , SPMH_MAP_CRACMM2(57) & / 'germacrene_B ', 57 / DATA MECH_NAM_CRACMM2(57 ) , MECH_MAP_CRACMM2( 57) & / 'SESQ ', 12 / DATA CONV_FAC_CRACMM2( 57) & / 1 / DATA SPMH_NAM_CRACMM2( 58) , SPMH_MAP_CRACMM2(58) & / 'germacrene_D ', 58 / DATA MECH_NAM_CRACMM2(58 ) , MECH_MAP_CRACMM2( 58) & / 'SESQ ', 12 / DATA CONV_FAC_CRACMM2( 58) & / 1 / DATA SPMH_NAM_CRACMM2( 59) , SPMH_MAP_CRACMM2(59) & / 'humulene_a ', 59 / DATA MECH_NAM_CRACMM2(59 ) , MECH_MAP_CRACMM2( 59) & / 'SESQ ', 12 / DATA CONV_FAC_CRACMM2( 59) & / 1 / DATA SPMH_NAM_CRACMM2( 60) , SPMH_MAP_CRACMM2(60) & / 'humulene_g ', 60 / DATA MECH_NAM_CRACMM2(60 ) , MECH_MAP_CRACMM2( 60) & / 'SESQ ', 12 / DATA CONV_FAC_CRACMM2( 60) & / 1 / DATA SPMH_NAM_CRACMM2( 61) , SPMH_MAP_CRACMM2(61) & / 'muurolene_a ', 61 / DATA MECH_NAM_CRACMM2(61 ) , MECH_MAP_CRACMM2( 61) & / 'SESQ ', 12 / DATA CONV_FAC_CRACMM2( 61) & / 1 / DATA SPMH_NAM_CRACMM2( 62) , SPMH_MAP_CRACMM2(62) & / 'muurolene_g ', 62 / DATA MECH_NAM_CRACMM2(62 ) , MECH_MAP_CRACMM2( 62) & / 'SESQ ', 12 / DATA CONV_FAC_CRACMM2( 62) & / 1 / DATA SPMH_NAM_CRACMM2( 63) , SPMH_MAP_CRACMM2(63) & / 'nerolidol_c ', 63 / DATA MECH_NAM_CRACMM2(63 ) , MECH_MAP_CRACMM2( 63) & / 'VROCP5ARO ', 13 / DATA CONV_FAC_CRACMM2( 63) & / 1 / DATA SPMH_NAM_CRACMM2( 64) , SPMH_MAP_CRACMM2(64) & / 'nerolidol_t ', 64 / DATA MECH_NAM_CRACMM2(64 ) , MECH_MAP_CRACMM2( 64) & / 'VROCP5ARO ', 13 / DATA CONV_FAC_CRACMM2( 64) & / 1 / DATA SPMH_NAM_CRACMM2( 65) , SPMH_MAP_CRACMM2(65) & / 'patchoulene_b ', 65 / DATA MECH_NAM_CRACMM2(65 ) , MECH_MAP_CRACMM2( 65) & / 'SESQ ', 12 / DATA CONV_FAC_CRACMM2( 65) & / 1 / DATA SPMH_NAM_CRACMM2( 66) , SPMH_MAP_CRACMM2(66) & / 'selinene_b ', 66 / DATA MECH_NAM_CRACMM2(66 ) , MECH_MAP_CRACMM2( 66) & / 'SESQ ', 12 / DATA CONV_FAC_CRACMM2( 66) & / 1 / DATA SPMH_NAM_CRACMM2( 67) , SPMH_MAP_CRACMM2(67) & / 'selinene_d ', 67 / DATA MECH_NAM_CRACMM2(67 ) , MECH_MAP_CRACMM2( 67) & / 'SESQ ', 12 / DATA CONV_FAC_CRACMM2( 67) & / 1 / DATA SPMH_NAM_CRACMM2( 68) , SPMH_MAP_CRACMM2(68) & / '2ethyl_hexyl_salate ', 68 / DATA MECH_NAM_CRACMM2(68 ) , MECH_MAP_CRACMM2( 68) & / 'VROCP2OXY2 ', 16 / DATA CONV_FAC_CRACMM2( 68) & / 1 / DATA SPMH_NAM_CRACMM2( 69) , SPMH_MAP_CRACMM2(69) & / 'aromadendrene ', 69 / DATA MECH_NAM_CRACMM2(69 ) , MECH_MAP_CRACMM2( 69) & / 'SESQ ', 12 / DATA CONV_FAC_CRACMM2( 69) & / 1 / DATA SPMH_NAM_CRACMM2( 70) , SPMH_MAP_CRACMM2(70) & / 'bourbonene_b ', 70 / DATA MECH_NAM_CRACMM2(70 ) , MECH_MAP_CRACMM2( 70) & / 'SESQ ', 12 / DATA CONV_FAC_CRACMM2( 70) & / 1 / DATA SPMH_NAM_CRACMM2( 71) , SPMH_MAP_CRACMM2(71) & / 'cadinol_a ', 71 / DATA MECH_NAM_CRACMM2(71 ) , MECH_MAP_CRACMM2( 71) & / 'VROCP5ARO ', 13 / DATA CONV_FAC_CRACMM2( 71) & / 1 / DATA SPMH_NAM_CRACMM2( 72) , SPMH_MAP_CRACMM2(72) & / 'cedrene_a ', 72 / DATA MECH_NAM_CRACMM2(72 ) , MECH_MAP_CRACMM2( 72) & / 'SESQ ', 12 / DATA CONV_FAC_CRACMM2( 72) & / 1 / DATA SPMH_NAM_CRACMM2( 73) , SPMH_MAP_CRACMM2(73) & / 'cedrol ', 73 / DATA MECH_NAM_CRACMM2(73 ) , MECH_MAP_CRACMM2( 73) & / 'VROCP5OXY1 ', 18 / DATA CONV_FAC_CRACMM2( 73) & / 1 / DATA SPMH_NAM_CRACMM2( 74) , SPMH_MAP_CRACMM2(74) & / 'copaene_a ', 74 / DATA MECH_NAM_CRACMM2(74 ) , MECH_MAP_CRACMM2( 74) & / 'SESQ ', 12 / DATA CONV_FAC_CRACMM2( 74) & / 1 / DATA SPMH_NAM_CRACMM2( 75) , SPMH_MAP_CRACMM2(75) & / 'cubebene_a ', 75 / DATA MECH_NAM_CRACMM2(75 ) , MECH_MAP_CRACMM2( 75) & / 'SESQ ', 12 / DATA CONV_FAC_CRACMM2( 75) & / 1 / DATA SPMH_NAM_CRACMM2( 76) , SPMH_MAP_CRACMM2(76) & / 'cubebene_b ', 76 / DATA MECH_NAM_CRACMM2(76 ) , MECH_MAP_CRACMM2( 76) & / 'SESQ ', 12 / DATA CONV_FAC_CRACMM2( 76) & / 1 / DATA SPMH_NAM_CRACMM2( 77) , SPMH_MAP_CRACMM2(77) & / 'gurjunene_b ', 77 / DATA MECH_NAM_CRACMM2(77 ) , MECH_MAP_CRACMM2( 77) & / 'SESQ ', 12 / DATA CONV_FAC_CRACMM2( 77) & / 1 / DATA SPMH_NAM_CRACMM2( 78) , SPMH_MAP_CRACMM2(78) & / 'homosalate ', 78 / DATA MECH_NAM_CRACMM2(78 ) , MECH_MAP_CRACMM2( 78) & / 'VROCP1OXY1 ', 14 / DATA CONV_FAC_CRACMM2( 78) & / 1 / DATA SPMH_NAM_CRACMM2( 79) , SPMH_MAP_CRACMM2(79) & / 'isolongifolene ', 79 / DATA MECH_NAM_CRACMM2(79 ) , MECH_MAP_CRACMM2( 79) & / 'SESQ ', 12 / DATA CONV_FAC_CRACMM2( 79) & / 1 / DATA SPMH_NAM_CRACMM2( 80) , SPMH_MAP_CRACMM2(80) & / 'kaur_16_ene ', 80 / DATA MECH_NAM_CRACMM2(80 ) , MECH_MAP_CRACMM2( 80) & / 'VROCP5ARO ', 13 / DATA CONV_FAC_CRACMM2( 80) & / 1 / DATA SPMH_NAM_CRACMM2( 81) , SPMH_MAP_CRACMM2(81) & / 'longifolene ', 81 / DATA MECH_NAM_CRACMM2(81 ) , MECH_MAP_CRACMM2( 81) & / 'SESQ ', 12 / DATA CONV_FAC_CRACMM2( 81) & / 1 / DATA SPMH_NAM_CRACMM2( 82) , SPMH_MAP_CRACMM2(82) & / 'longipinene ', 82 / DATA MECH_NAM_CRACMM2(82 ) , MECH_MAP_CRACMM2( 82) & / 'SESQ ', 12 / DATA CONV_FAC_CRACMM2( 82) & / 1 / DATA SPMH_NAM_CRACMM2( 83) , SPMH_MAP_CRACMM2(83) & / 'thujopsene ', 83 / DATA MECH_NAM_CRACMM2(83 ) , MECH_MAP_CRACMM2( 83) & / 'SESQ ', 12 / DATA CONV_FAC_CRACMM2( 83) & / 1 / DATA SPMH_NAM_CRACMM2( 84) , SPMH_MAP_CRACMM2(84) & / 'ylangene_a ', 84 / DATA MECH_NAM_CRACMM2(84 ) , MECH_MAP_CRACMM2( 84) & / 'SESQ ', 12 / DATA CONV_FAC_CRACMM2( 84) & / 1 / DATA SPMH_NAM_CRACMM2( 85) , SPMH_MAP_CRACMM2(85) & / 'zingiberene_a ', 85 / DATA MECH_NAM_CRACMM2(85 ) , MECH_MAP_CRACMM2( 85) & / 'SESQ ', 12 / DATA CONV_FAC_CRACMM2( 85) & / 1 / DATA SPMH_NAM_CRACMM2( 86) , SPMH_MAP_CRACMM2(86) & / 'copaene_b ', 86 / DATA MECH_NAM_CRACMM2(86 ) , MECH_MAP_CRACMM2( 86) & / 'SESQ ', 12 / DATA CONV_FAC_CRACMM2( 86) & / 1 / DATA SPMH_NAM_CRACMM2( 87) , SPMH_MAP_CRACMM2(87) & / 'longicyclene ', 87 / DATA MECH_NAM_CRACMM2(87 ) , MECH_MAP_CRACMM2( 87) & / 'VROCP4ALK ', 17 / DATA CONV_FAC_CRACMM2( 87) & / 1 / DATA SPMH_NAM_CRACMM2( 88) , SPMH_MAP_CRACMM2(88) & / 'methanol ', 88 / DATA MECH_NAM_CRACMM2(88 ) , MECH_MAP_CRACMM2( 88) & / 'MOH ', 19 / DATA CONV_FAC_CRACMM2( 88) & / 1 / DATA SPMH_NAM_CRACMM2( 89) , SPMH_MAP_CRACMM2(89) & / 'acetone ', 89 / DATA MECH_NAM_CRACMM2(89 ) , MECH_MAP_CRACMM2( 89) & / 'ACT ', 20 / DATA CONV_FAC_CRACMM2( 89) & / 1 / DATA SPMH_NAM_CRACMM2( 90) , SPMH_MAP_CRACMM2(90) & / 'acetaldehyde ', 90 / DATA MECH_NAM_CRACMM2(90 ) , MECH_MAP_CRACMM2( 90) & / 'ACD ', 21 / DATA CONV_FAC_CRACMM2( 90) & / 1 / DATA SPMH_NAM_CRACMM2( 91) , SPMH_MAP_CRACMM2(91) & / 'ethanol ', 91 / DATA MECH_NAM_CRACMM2(91 ) , MECH_MAP_CRACMM2( 91) & / 'EOH ', 22 / DATA CONV_FAC_CRACMM2( 91) & / 1 / DATA SPMH_NAM_CRACMM2( 92) , SPMH_MAP_CRACMM2(92) & / 'acetic_acid ', 92 / DATA MECH_NAM_CRACMM2(92 ) , MECH_MAP_CRACMM2( 92) & / 'ORA2 ', 23 / DATA CONV_FAC_CRACMM2( 92) & / 1 / DATA SPMH_NAM_CRACMM2( 93) , SPMH_MAP_CRACMM2(93) & / 'formic_acid ', 93 / DATA MECH_NAM_CRACMM2(93 ) , MECH_MAP_CRACMM2( 93) & / 'ORA1 ', 24 / DATA CONV_FAC_CRACMM2( 93) & / 1 / DATA SPMH_NAM_CRACMM2( 94) , SPMH_MAP_CRACMM2(94) & / 'pyruvic_acid ', 94 / DATA MECH_NAM_CRACMM2(94 ) , MECH_MAP_CRACMM2( 94) & / 'KET ', 11 / DATA CONV_FAC_CRACMM2( 94) & / 1 / DATA SPMH_NAM_CRACMM2( 95) , SPMH_MAP_CRACMM2(95) & / '2_methylprop_1_ene ', 95 / DATA MECH_NAM_CRACMM2(95 ) , MECH_MAP_CRACMM2( 95) & / 'OLT ', 2 / DATA CONV_FAC_CRACMM2( 95) & / 1 / DATA SPMH_NAM_CRACMM2( 96) , SPMH_MAP_CRACMM2(96) & / 'butane ', 96 / DATA MECH_NAM_CRACMM2(96 ) , MECH_MAP_CRACMM2( 96) & / 'HC3 ', 5 / DATA CONV_FAC_CRACMM2( 96) & / 1 / DATA SPMH_NAM_CRACMM2( 97) , SPMH_MAP_CRACMM2(97) & / 'butene ', 97 / DATA MECH_NAM_CRACMM2(97 ) , MECH_MAP_CRACMM2( 97) & / 'OLT ', 2 / DATA CONV_FAC_CRACMM2( 97) & / 1 / DATA SPMH_NAM_CRACMM2( 98) , SPMH_MAP_CRACMM2(98) & / 'butene_c2 ', 98 / DATA MECH_NAM_CRACMM2(98 ) , MECH_MAP_CRACMM2( 98) & / 'OLI ', 25 / DATA CONV_FAC_CRACMM2( 98) & / 1 / DATA SPMH_NAM_CRACMM2( 99) , SPMH_MAP_CRACMM2(99) & / 'butene_t2 ', 99 / DATA MECH_NAM_CRACMM2(99 ) , MECH_MAP_CRACMM2( 99) & / 'OLI ', 25 / DATA CONV_FAC_CRACMM2( 99) & / 1 / DATA SPMH_NAM_CRACMM2( 100) , SPMH_MAP_CRACMM2(100) & / 'ethane ', 100 / DATA MECH_NAM_CRACMM2(100 ) , MECH_MAP_CRACMM2( 100) & / 'ETH ', 26 / DATA CONV_FAC_CRACMM2( 100) & / 1 / DATA SPMH_NAM_CRACMM2( 101) , SPMH_MAP_CRACMM2(101) & / 'ethene ', 101 / DATA MECH_NAM_CRACMM2(101 ) , MECH_MAP_CRACMM2( 101) & / 'ETE ', 27 / DATA CONV_FAC_CRACMM2( 101) & / 1 / DATA SPMH_NAM_CRACMM2( 102) , SPMH_MAP_CRACMM2(102) & / 'propane ', 102 / DATA MECH_NAM_CRACMM2(102 ) , MECH_MAP_CRACMM2( 102) & / 'HC3 ', 5 / DATA CONV_FAC_CRACMM2( 102) & / 1 / DATA SPMH_NAM_CRACMM2( 103) , SPMH_MAP_CRACMM2(103) & / 'propene ', 103 / DATA MECH_NAM_CRACMM2(103 ) , MECH_MAP_CRACMM2( 103) & / 'OLT ', 2 / DATA CONV_FAC_CRACMM2( 103) & / 1 / DATA SPMH_NAM_CRACMM2( 104) , SPMH_MAP_CRACMM2(104) & / 'decanal ', 104 / DATA MECH_NAM_CRACMM2(104 ) , MECH_MAP_CRACMM2( 104) & / 'VROCIOXY ', 10 / DATA CONV_FAC_CRACMM2( 104) & / 1 / DATA SPMH_NAM_CRACMM2( 105) , SPMH_MAP_CRACMM2(105) & / 'geranyl_acetone ', 105 / DATA MECH_NAM_CRACMM2(105 ) , MECH_MAP_CRACMM2( 105) & / 'VROCP6ARO ', 8 / DATA CONV_FAC_CRACMM2( 105) & / 1 / DATA SPMH_NAM_CRACMM2( 106) , SPMH_MAP_CRACMM2(106) & / 'met_heptenone ', 106 / DATA MECH_NAM_CRACMM2(106 ) , MECH_MAP_CRACMM2( 106) & / 'OLI ', 25 / DATA CONV_FAC_CRACMM2( 106) & / 1 / DATA SPMH_NAM_CRACMM2( 107) , SPMH_MAP_CRACMM2(107) & / 'neryl_acetone ', 107 / DATA MECH_NAM_CRACMM2(107 ) , MECH_MAP_CRACMM2( 107) & / 'VROCP6ARO ', 8 / DATA CONV_FAC_CRACMM2( 107) & / 1 / DATA SPMH_NAM_CRACMM2( 108) , SPMH_MAP_CRACMM2(108) & / 'nonanal ', 108 / DATA MECH_NAM_CRACMM2(108 ) , MECH_MAP_CRACMM2( 108) & / 'VROCIOXY ', 10 / DATA CONV_FAC_CRACMM2( 108) & / 1 / DATA SPMH_NAM_CRACMM2( 109) , SPMH_MAP_CRACMM2(109) & / 'nonenal ', 109 / DATA MECH_NAM_CRACMM2(109 ) , MECH_MAP_CRACMM2( 109) & / 'VROCP6ARO ', 8 / DATA CONV_FAC_CRACMM2( 109) & / 1 / DATA SPMH_NAM_CRACMM2( 110) , SPMH_MAP_CRACMM2(110) & / 'octanal ', 110 / DATA MECH_NAM_CRACMM2(110 ) , MECH_MAP_CRACMM2( 110) & / 'ALD ', 28 / DATA CONV_FAC_CRACMM2( 110) & / 1 / DATA SPMH_NAM_CRACMM2( 111) , SPMH_MAP_CRACMM2(111) & / 'pentanal ', 111 / DATA MECH_NAM_CRACMM2(111 ) , MECH_MAP_CRACMM2( 111) & / 'ALD ', 28 / DATA CONV_FAC_CRACMM2( 111) & / 1 / DATA SPMH_NAM_CRACMM2( 112) , SPMH_MAP_CRACMM2(112) & / 't-2-octenal ', 112 / DATA MECH_NAM_CRACMM2(112 ) , MECH_MAP_CRACMM2( 112) & / 'UALD ', 29 / DATA CONV_FAC_CRACMM2( 112) & / 1 / DATA SPMH_NAM_CRACMM2( 113) , SPMH_MAP_CRACMM2(113) & / 'formaldehyde ', 113 / DATA MECH_NAM_CRACMM2(113 ) , MECH_MAP_CRACMM2( 113) & / 'HCHO ', 30 / DATA CONV_FAC_CRACMM2( 113) & / 1 / DATA SPMH_NAM_CRACMM2( 114) , SPMH_MAP_CRACMM2(114) & / 'oxopentanal ', 114 / DATA MECH_NAM_CRACMM2(114 ) , MECH_MAP_CRACMM2( 114) & / 'MGLY ', 31 / DATA CONV_FAC_CRACMM2( 114) & / 1 / DATA SPMH_NAM_CRACMM2( 115) , SPMH_MAP_CRACMM2(115) & / '1_pentanol ', 115 / DATA MECH_NAM_CRACMM2(115 ) , MECH_MAP_CRACMM2( 115) & / 'ROH ', 32 / DATA CONV_FAC_CRACMM2( 115) & / 1 / DATA SPMH_NAM_CRACMM2( 116) , SPMH_MAP_CRACMM2(116) & / '1_penten_3_one ', 116 / DATA MECH_NAM_CRACMM2(116 ) , MECH_MAP_CRACMM2( 116) & / 'OLT ', 2 / DATA CONV_FAC_CRACMM2( 116) & / 1 / DATA SPMH_NAM_CRACMM2( 117) , SPMH_MAP_CRACMM2(117) & / '2_met_butanenitrile ', 117 / DATA MECH_NAM_CRACMM2(117 ) , MECH_MAP_CRACMM2( 117) & / 'HC3 ', 5 / DATA CONV_FAC_CRACMM2( 117) & / 1 / DATA SPMH_NAM_CRACMM2( 118) , SPMH_MAP_CRACMM2(118) & / '2_pentene ', 118 / DATA MECH_NAM_CRACMM2(118 ) , MECH_MAP_CRACMM2( 118) & / 'OLI ', 25 / DATA CONV_FAC_CRACMM2( 118) & / 1 / DATA SPMH_NAM_CRACMM2( 119) , SPMH_MAP_CRACMM2(119) & / '3_metfuran ', 119 / DATA MECH_NAM_CRACMM2(119 ) , MECH_MAP_CRACMM2( 119) & / 'FURAN ', 6 / DATA CONV_FAC_CRACMM2( 119) & / 1 / DATA SPMH_NAM_CRACMM2( 120) , SPMH_MAP_CRACMM2(120) & / '3_metthiophene ', 120 / DATA MECH_NAM_CRACMM2(120 ) , MECH_MAP_CRACMM2( 120) & / 'FURAN ', 6 / DATA CONV_FAC_CRACMM2( 120) & / 1 / DATA SPMH_NAM_CRACMM2( 121) , SPMH_MAP_CRACMM2(121) & / '3_pentanone ', 121 / DATA MECH_NAM_CRACMM2(121 ) , MECH_MAP_CRACMM2( 121) & / 'KET ', 11 / DATA CONV_FAC_CRACMM2( 121) & / 1 / DATA SPMH_NAM_CRACMM2( 122) , SPMH_MAP_CRACMM2(122) & / '3_penten_2_ol ', 122 / DATA MECH_NAM_CRACMM2(122 ) , MECH_MAP_CRACMM2( 122) & / 'OLI ', 25 / DATA CONV_FAC_CRACMM2( 122) & / 1 / DATA SPMH_NAM_CRACMM2( 123) , SPMH_MAP_CRACMM2(123) & / '4_penten_1_ol ', 123 / DATA MECH_NAM_CRACMM2(123 ) , MECH_MAP_CRACMM2( 123) & / 'OLT ', 2 / DATA CONV_FAC_CRACMM2( 123) & / 1 / DATA SPMH_NAM_CRACMM2( 124) , SPMH_MAP_CRACMM2(124) & / '8_heptadecene ', 124 / DATA MECH_NAM_CRACMM2(124 ) , MECH_MAP_CRACMM2( 124) & / 'VROCP5ARO ', 13 / DATA CONV_FAC_CRACMM2( 124) & / 1 / DATA SPMH_NAM_CRACMM2( 125) , SPMH_MAP_CRACMM2(125) & / 'acetophenone ', 125 / DATA MECH_NAM_CRACMM2(125 ) , MECH_MAP_CRACMM2( 125) & / 'VROCP6ARO ', 8 / DATA CONV_FAC_CRACMM2( 125) & / 1 / DATA SPMH_NAM_CRACMM2( 126) , SPMH_MAP_CRACMM2(126) & / 'anisole ', 126 / DATA MECH_NAM_CRACMM2(126 ) , MECH_MAP_CRACMM2( 126) & / 'XYL ', 7 / DATA CONV_FAC_CRACMM2( 126) & / 1 / DATA SPMH_NAM_CRACMM2( 127) , SPMH_MAP_CRACMM2(127) & / 'benzaldehyde ', 127 / DATA MECH_NAM_CRACMM2(127 ) , MECH_MAP_CRACMM2( 127) & / 'BALD ', 33 / DATA CONV_FAC_CRACMM2( 127) & / 1 / DATA SPMH_NAM_CRACMM2( 128) , SPMH_MAP_CRACMM2(128) & / 'benzene ', 128 / DATA MECH_NAM_CRACMM2(128 ) , MECH_MAP_CRACMM2( 128) & / 'BEN ', 34 / DATA CONV_FAC_CRACMM2( 128) & / 1 / DATA SPMH_NAM_CRACMM2( 129) , SPMH_MAP_CRACMM2(129) & / 'benzyl_benzoate ', 129 / DATA MECH_NAM_CRACMM2(129 ) , MECH_MAP_CRACMM2( 129) & / 'VROCP5ARO ', 13 / DATA CONV_FAC_CRACMM2( 129) & / 1 / DATA SPMH_NAM_CRACMM2( 130) , SPMH_MAP_CRACMM2(130) & / 'benzyl_acetate ', 130 / DATA MECH_NAM_CRACMM2(130 ) , MECH_MAP_CRACMM2( 130) & / 'VROCP6ARO ', 8 / DATA CONV_FAC_CRACMM2( 130) & / 1 / DATA SPMH_NAM_CRACMM2( 131) , SPMH_MAP_CRACMM2(131) & / 'benzyl_alcohol ', 131 / DATA MECH_NAM_CRACMM2(131 ) , MECH_MAP_CRACMM2( 131) & / 'CSL ', 35 / DATA CONV_FAC_CRACMM2( 131) & / 1 / DATA SPMH_NAM_CRACMM2( 132) , SPMH_MAP_CRACMM2(132) & / 'chavicol ', 132 / DATA MECH_NAM_CRACMM2(132 ) , MECH_MAP_CRACMM2( 132) & / 'CSL ', 35 / DATA CONV_FAC_CRACMM2( 132) & / 1 / DATA SPMH_NAM_CRACMM2( 133) , SPMH_MAP_CRACMM2(133) & / 'cineole_1_8 ', 133 / DATA MECH_NAM_CRACMM2(133 ) , MECH_MAP_CRACMM2( 133) & / 'HC10 ', 36 / DATA CONV_FAC_CRACMM2( 133) & / 1 / DATA SPMH_NAM_CRACMM2( 134) , SPMH_MAP_CRACMM2(134) & / 'cinnamaldehyde ', 134 / DATA MECH_NAM_CRACMM2(134 ) , MECH_MAP_CRACMM2( 134) & / 'BALD ', 33 / DATA CONV_FAC_CRACMM2( 134) & / 1 / DATA SPMH_NAM_CRACMM2( 135) , SPMH_MAP_CRACMM2(135) & / 'cinnamic_acid ', 135 / DATA MECH_NAM_CRACMM2(135 ) , MECH_MAP_CRACMM2( 135) & / 'VROCP2OXY2 ', 16 / DATA CONV_FAC_CRACMM2( 135) & / 1 / DATA SPMH_NAM_CRACMM2( 136) , SPMH_MAP_CRACMM2(136) & / 'coniferyl_alcohol ', 136 / DATA MECH_NAM_CRACMM2(136 ) , MECH_MAP_CRACMM2( 136) & / 'VROCP1OXY3 ', 15 / DATA CONV_FAC_CRACMM2( 136) & / 1 / DATA SPMH_NAM_CRACMM2( 137) , SPMH_MAP_CRACMM2(137) & / '2met_nonatriene ', 137 / DATA MECH_NAM_CRACMM2(137 ) , MECH_MAP_CRACMM2( 137) & / 'FURAN ', 6 / DATA CONV_FAC_CRACMM2( 137) & / 1 / DATA SPMH_NAM_CRACMM2( 138) , SPMH_MAP_CRACMM2(138) & / 'ethyl_cinnamate ', 138 / DATA MECH_NAM_CRACMM2(138 ) , MECH_MAP_CRACMM2( 138) & / 'VROCP5ARO ', 13 / DATA CONV_FAC_CRACMM2( 138) & / 1 / DATA SPMH_NAM_CRACMM2( 139) , SPMH_MAP_CRACMM2(139) & / 'eugenol ', 139 / DATA MECH_NAM_CRACMM2(139 ) , MECH_MAP_CRACMM2( 139) & / 'CSL ', 35 / DATA CONV_FAC_CRACMM2( 139) & / 1 / DATA SPMH_NAM_CRACMM2( 140) , SPMH_MAP_CRACMM2(140) & / 'guaiacol ', 140 / DATA MECH_NAM_CRACMM2(140 ) , MECH_MAP_CRACMM2( 140) & / 'CSL ', 35 / DATA CONV_FAC_CRACMM2( 140) & / 1 / DATA SPMH_NAM_CRACMM2( 141) , SPMH_MAP_CRACMM2(141) & / 'hexanal ', 141 / DATA MECH_NAM_CRACMM2(141 ) , MECH_MAP_CRACMM2( 141) & / 'ALD ', 28 / DATA CONV_FAC_CRACMM2( 141) & / 1 / DATA SPMH_NAM_CRACMM2( 142) , SPMH_MAP_CRACMM2(142) & / 'hexanol_1 ', 142 / DATA MECH_NAM_CRACMM2(142 ) , MECH_MAP_CRACMM2( 142) & / 'OLI ', 25 / DATA CONV_FAC_CRACMM2( 142) & / 1 / DATA SPMH_NAM_CRACMM2( 143) , SPMH_MAP_CRACMM2(143) & / 'hexenal_c3 ', 143 / DATA MECH_NAM_CRACMM2(143 ) , MECH_MAP_CRACMM2( 143) & / 'UALD ', 29 / DATA CONV_FAC_CRACMM2( 143) & / 1 / DATA SPMH_NAM_CRACMM2( 144) , SPMH_MAP_CRACMM2(144) & / 'hexenal_t2 ', 144 / DATA MECH_NAM_CRACMM2(144 ) , MECH_MAP_CRACMM2( 144) & / 'UALD ', 29 / DATA CONV_FAC_CRACMM2( 144) & / 1 / DATA SPMH_NAM_CRACMM2( 145) , SPMH_MAP_CRACMM2(145) & / 'hexenol_c3 ', 145 / DATA MECH_NAM_CRACMM2(145 ) , MECH_MAP_CRACMM2( 145) & / 'OLI ', 25 / DATA CONV_FAC_CRACMM2( 145) & / 1 / DATA SPMH_NAM_CRACMM2( 146) , SPMH_MAP_CRACMM2(146) & / 'hexenyl_ACT_c3 ', 146 / DATA MECH_NAM_CRACMM2(146 ) , MECH_MAP_CRACMM2( 146) & / 'OLI ', 25 / DATA CONV_FAC_CRACMM2( 146) & / 1 / DATA SPMH_NAM_CRACMM2( 147) , SPMH_MAP_CRACMM2(147) & / 'hydrogen_cyanide ', 147 / DATA MECH_NAM_CRACMM2(147 ) , MECH_MAP_CRACMM2( 147) & / 'SLOWROC ', 37 / DATA CONV_FAC_CRACMM2( 147) & / 1 / DATA SPMH_NAM_CRACMM2( 148) , SPMH_MAP_CRACMM2(148) & / 'isobutyronitrile ', 148 / DATA MECH_NAM_CRACMM2(148 ) , MECH_MAP_CRACMM2( 148) & / 'SLOWROC ', 37 / DATA CONV_FAC_CRACMM2( 148) & / 1 / DATA SPMH_NAM_CRACMM2( 149) , SPMH_MAP_CRACMM2(149) & / 'jasmone ', 149 / DATA MECH_NAM_CRACMM2(149 ) , MECH_MAP_CRACMM2( 149) & / 'VROCP6ARO ', 8 / DATA CONV_FAC_CRACMM2( 149) & / 1 / DATA SPMH_NAM_CRACMM2( 150) , SPMH_MAP_CRACMM2(150) & / 'linalool ', 150 / DATA MECH_NAM_CRACMM2(150 ) , MECH_MAP_CRACMM2( 150) & / 'LIM ', 4 / DATA CONV_FAC_CRACMM2( 150) & / 1 / DATA SPMH_NAM_CRACMM2( 151) , SPMH_MAP_CRACMM2(151) & / 'linalool_OXD_c ', 151 / DATA MECH_NAM_CRACMM2(151 ) , MECH_MAP_CRACMM2( 151) & / 'VROCP5ARO ', 13 / DATA CONV_FAC_CRACMM2( 151) & / 1 / DATA SPMH_NAM_CRACMM2( 152) , SPMH_MAP_CRACMM2(152) & / 'linalool_OXD_t ', 152 / DATA MECH_NAM_CRACMM2(152 ) , MECH_MAP_CRACMM2( 152) & / 'VROCP5ARO ', 13 / DATA CONV_FAC_CRACMM2( 152) & / 1 / DATA SPMH_NAM_CRACMM2( 153) , SPMH_MAP_CRACMM2(153) & / 'methacrolein ', 153 / DATA MECH_NAM_CRACMM2(153 ) , MECH_MAP_CRACMM2( 153) & / 'MACR ', 38 / DATA CONV_FAC_CRACMM2( 153) & / 1 / DATA SPMH_NAM_CRACMM2( 154) , SPMH_MAP_CRACMM2(154) & / 'met_benzoate ', 154 / DATA MECH_NAM_CRACMM2(154 ) , MECH_MAP_CRACMM2( 154) & / 'VROCP6ARO ', 8 / DATA CONV_FAC_CRACMM2( 154) & / 1 / DATA SPMH_NAM_CRACMM2( 155) , SPMH_MAP_CRACMM2(155) & / 'met_jasmonate ', 155 / DATA MECH_NAM_CRACMM2(155 ) , MECH_MAP_CRACMM2( 155) & / 'VROCP5ARO ', 13 / DATA CONV_FAC_CRACMM2( 155) & / 1 / DATA SPMH_NAM_CRACMM2( 156) , SPMH_MAP_CRACMM2(156) & / 'met_salicylate ', 156 / DATA MECH_NAM_CRACMM2(156 ) , MECH_MAP_CRACMM2( 156) & / 'CSL ', 35 / DATA CONV_FAC_CRACMM2( 156) & / 1 / DATA SPMH_NAM_CRACMM2( 157) , SPMH_MAP_CRACMM2(157) & / 'met_acetate ', 157 / DATA MECH_NAM_CRACMM2(157 ) , MECH_MAP_CRACMM2( 157) & / 'SLOWROC ', 37 / DATA CONV_FAC_CRACMM2( 157) & / 1 / DATA SPMH_NAM_CRACMM2( 158) , SPMH_MAP_CRACMM2(158) & / 'met_vinylketone ', 158 / DATA MECH_NAM_CRACMM2(158 ) , MECH_MAP_CRACMM2( 158) & / 'MVK ', 39 / DATA CONV_FAC_CRACMM2( 158) & / 1 / DATA SPMH_NAM_CRACMM2( 159) , SPMH_MAP_CRACMM2(159) & / 'p_coumaric_acid ', 159 / DATA MECH_NAM_CRACMM2(159 ) , MECH_MAP_CRACMM2( 159) & / 'VROCP1OXY3 ', 15 / DATA CONV_FAC_CRACMM2( 159) & / 1 / DATA SPMH_NAM_CRACMM2( 160) , SPMH_MAP_CRACMM2(160) & / 'phenol ', 160 / DATA MECH_NAM_CRACMM2(160 ) , MECH_MAP_CRACMM2( 160) & / 'PHEN ', 40 / DATA CONV_FAC_CRACMM2( 160) & / 1 / DATA SPMH_NAM_CRACMM2( 161) , SPMH_MAP_CRACMM2(161) & / 'phenylacetaldehyde ', 161 / DATA MECH_NAM_CRACMM2(161 ) , MECH_MAP_CRACMM2( 161) & / 'BALD ', 33 / DATA CONV_FAC_CRACMM2( 161) & / 1 / DATA SPMH_NAM_CRACMM2( 162) , SPMH_MAP_CRACMM2(162) & / 'safrole ', 162 / DATA MECH_NAM_CRACMM2(162 ) , MECH_MAP_CRACMM2( 162) & / 'VROCP5ARO ', 13 / DATA CONV_FAC_CRACMM2( 162) & / 1 / DATA SPMH_NAM_CRACMM2( 163) , SPMH_MAP_CRACMM2(163) & / 'salicylaldehyde ', 163 / DATA MECH_NAM_CRACMM2(163 ) , MECH_MAP_CRACMM2( 163) & / 'BALD ', 33 / DATA CONV_FAC_CRACMM2( 163) & / 1 / DATA SPMH_NAM_CRACMM2( 164) , SPMH_MAP_CRACMM2(164) & / 'toluene ', 164 / DATA MECH_NAM_CRACMM2(164 ) , MECH_MAP_CRACMM2( 164) & / 'TOL ', 41 / DATA CONV_FAC_CRACMM2( 164) & / 1 / DATA SPMH_NAM_CRACMM2( 165) , SPMH_MAP_CRACMM2(165) & / '3met_3DCTT ', 165 / DATA MECH_NAM_CRACMM2(165 ) , MECH_MAP_CRACMM2( 165) & / 'FURAN ', 6 / DATA CONV_FAC_CRACMM2( 165) & / 1 / DATA SPMH_NAM_CRACMM2( 166) , SPMH_MAP_CRACMM2(166) & / 'xylene ', 166 / DATA MECH_NAM_CRACMM2(166 ) , MECH_MAP_CRACMM2( 166) & / 'XYL ', 7 / DATA CONV_FAC_CRACMM2( 166) & / 1 / DATA SPMH_NAM_CRACMM2( 167) , SPMH_MAP_CRACMM2(167) & / 'z2_penten_1ol ', 167 / DATA MECH_NAM_CRACMM2(167 ) , MECH_MAP_CRACMM2( 167) & / 'OLI ', 25 / DATA CONV_FAC_CRACMM2( 167) & / 1 / DATA SPMH_NAM_CRACMM2( 168) , SPMH_MAP_CRACMM2(168) & / 'z2_penten_3ol ', 168 / DATA MECH_NAM_CRACMM2(168 ) , MECH_MAP_CRACMM2( 168) & / 'OLI ', 25 / DATA CONV_FAC_CRACMM2( 168) & / 1 / DATA SPMH_NAM_CRACMM2( 169) , SPMH_MAP_CRACMM2(169) & / 'z3_hexen_1yl_butyrate ', 169 / DATA MECH_NAM_CRACMM2(169 ) , MECH_MAP_CRACMM2( 169) & / 'VROCP6ARO ', 8 / DATA CONV_FAC_CRACMM2( 169) & / 1 / DATA SPMH_NAM_CRACMM2( 170) , SPMH_MAP_CRACMM2(170) & / 'butanone_2 ', 170 / DATA MECH_NAM_CRACMM2(170 ) , MECH_MAP_CRACMM2( 170) & / 'MEK ', 42 / DATA CONV_FAC_CRACMM2( 170) & / 1 / DATA SPMH_NAM_CRACMM2( 171) , SPMH_MAP_CRACMM2(171) & / 'carbon_2s ', 171 / DATA MECH_NAM_CRACMM2(171 ) , MECH_MAP_CRACMM2( 171) & / 'SLOWROC ', 37 / DATA CONV_FAC_CRACMM2( 171) & / 1 / DATA SPMH_NAM_CRACMM2( 172) , SPMH_MAP_CRACMM2(172) & / 'carbonyl_s ', 172 / DATA MECH_NAM_CRACMM2(172 ) , MECH_MAP_CRACMM2( 172) & / 'SLOWROC ', 37 / DATA CONV_FAC_CRACMM2( 172) & / 1 / DATA SPMH_NAM_CRACMM2( 173) , SPMH_MAP_CRACMM2(173) & / 'decane ', 173 / DATA MECH_NAM_CRACMM2(173 ) , MECH_MAP_CRACMM2( 173) & / 'HC10 ', 36 / DATA CONV_FAC_CRACMM2( 173) & / 1 / DATA SPMH_NAM_CRACMM2( 174) , SPMH_MAP_CRACMM2(174) & / 'diallyl_2s ', 174 / DATA MECH_NAM_CRACMM2(174 ) , MECH_MAP_CRACMM2( 174) & / 'VROCP6ARO ', 8 / DATA CONV_FAC_CRACMM2( 174) & / 1 / DATA SPMH_NAM_CRACMM2( 175) , SPMH_MAP_CRACMM2(175) & / '2met_2s ', 175 / DATA MECH_NAM_CRACMM2(175 ) , MECH_MAP_CRACMM2( 175) & / 'HC10 ', 36 / DATA CONV_FAC_CRACMM2( 175) & / 1 / DATA SPMH_NAM_CRACMM2( 176) , SPMH_MAP_CRACMM2(176) & / '2met_s ', 176 / DATA MECH_NAM_CRACMM2(176 ) , MECH_MAP_CRACMM2( 176) & / 'HC5 ', 43 / DATA CONV_FAC_CRACMM2( 176) & / 1 / DATA SPMH_NAM_CRACMM2( 177) , SPMH_MAP_CRACMM2(177) & / 'dodecene_1 ', 177 / DATA MECH_NAM_CRACMM2(177 ) , MECH_MAP_CRACMM2( 177) & / 'VROCP6ARO ', 8 / DATA CONV_FAC_CRACMM2( 177) & / 1 / DATA SPMH_NAM_CRACMM2( 178) , SPMH_MAP_CRACMM2(178) & / 'heptanal ', 178 / DATA MECH_NAM_CRACMM2(178 ) , MECH_MAP_CRACMM2( 178) & / 'ALD ', 28 / DATA CONV_FAC_CRACMM2( 178) & / 1 / DATA SPMH_NAM_CRACMM2( 179) , SPMH_MAP_CRACMM2(179) & / 'heptane ', 179 / DATA MECH_NAM_CRACMM2(179 ) , MECH_MAP_CRACMM2( 179) & / 'HC10 ', 36 / DATA CONV_FAC_CRACMM2( 179) & / 1 / DATA SPMH_NAM_CRACMM2( 180) , SPMH_MAP_CRACMM2(180) & / 'heptanone ', 180 / DATA MECH_NAM_CRACMM2(180 ) , MECH_MAP_CRACMM2( 180) & / 'KET ', 11 / DATA CONV_FAC_CRACMM2( 180) & / 1 / DATA SPMH_NAM_CRACMM2( 181) , SPMH_MAP_CRACMM2(181) & / 'hexane ', 181 / DATA MECH_NAM_CRACMM2(181 ) , MECH_MAP_CRACMM2( 181) & / 'HC5 ', 43 / DATA CONV_FAC_CRACMM2( 181) & / 1 / DATA SPMH_NAM_CRACMM2( 182) , SPMH_MAP_CRACMM2(182) & / 'indole ', 183 / DATA MECH_NAM_CRACMM2(182 ) , MECH_MAP_CRACMM2( 182) & / 'VROCP5ARO ', 13 / DATA CONV_FAC_CRACMM2( 182) & / 1 / DATA SPMH_NAM_CRACMM2( 183) , SPMH_MAP_CRACMM2(183) & / 'methane ', 184 / DATA MECH_NAM_CRACMM2(183 ) , MECH_MAP_CRACMM2( 183) & / 'ECH4 ', 45 / DATA CONV_FAC_CRACMM2( 183) & / 1 / DATA SPMH_NAM_CRACMM2( 184) , SPMH_MAP_CRACMM2(184) & / 'met_bromide ', 185 / DATA MECH_NAM_CRACMM2(184 ) , MECH_MAP_CRACMM2( 184) & / 'SLOWROC ', 37 / DATA CONV_FAC_CRACMM2( 184) & / 1 / DATA SPMH_NAM_CRACMM2( 185) , SPMH_MAP_CRACMM2(185) & / 'met_chloride ', 186 / DATA MECH_NAM_CRACMM2(185 ) , MECH_MAP_CRACMM2( 185) & / 'SLOWROC ', 37 / DATA CONV_FAC_CRACMM2( 185) & / 1 / DATA SPMH_NAM_CRACMM2( 186) , SPMH_MAP_CRACMM2(186) & / 'met_iodide ', 187 / DATA MECH_NAM_CRACMM2(186 ) , MECH_MAP_CRACMM2( 186) & / 'SLOWROC ', 37 / DATA CONV_FAC_CRACMM2( 186) & / 1 / DATA SPMH_NAM_CRACMM2( 187) , SPMH_MAP_CRACMM2(187) & / 'met_mercaptan ', 188 / DATA MECH_NAM_CRACMM2(187 ) , MECH_MAP_CRACMM2( 187) & / 'HC10 ', 36 / DATA CONV_FAC_CRACMM2( 187) & / 1 / DATA SPMH_NAM_CRACMM2( 188) , SPMH_MAP_CRACMM2(188) & / 'met_propenyl_2s ', 189 / DATA MECH_NAM_CRACMM2(188 ) , MECH_MAP_CRACMM2( 188) & / 'OLI ', 25 / DATA CONV_FAC_CRACMM2( 188) & / 1 / DATA SPMH_NAM_CRACMM2( 189) , SPMH_MAP_CRACMM2(189) & / 'MBO_3m2e1ol ', 190 / DATA MECH_NAM_CRACMM2(189 ) , MECH_MAP_CRACMM2( 189) & / 'OLI ', 25 / DATA CONV_FAC_CRACMM2( 189) & / 1 / DATA SPMH_NAM_CRACMM2( 190) , SPMH_MAP_CRACMM2(190) & / 'MBO_3m3e1ol ', 191 / DATA MECH_NAM_CRACMM2(190 ) , MECH_MAP_CRACMM2( 190) & / 'OLT ', 2 / DATA CONV_FAC_CRACMM2( 190) & / 1 / DATA SPMH_NAM_CRACMM2( 191) , SPMH_MAP_CRACMM2(191) & / 'naphthalene ', 192 / DATA MECH_NAM_CRACMM2(191 ) , MECH_MAP_CRACMM2( 191) & / 'NAPH ', 9 / DATA CONV_FAC_CRACMM2( 191) & / 1 / DATA SPMH_NAM_CRACMM2( 192) , SPMH_MAP_CRACMM2(192) & / 'pentane ', 193 / DATA MECH_NAM_CRACMM2(192 ) , MECH_MAP_CRACMM2( 192) & / 'HC5 ', 43 / DATA CONV_FAC_CRACMM2( 192) & / 1 / DATA SPMH_NAM_CRACMM2( 193) , SPMH_MAP_CRACMM2(193) & / 'PPPP_2s ', 194 / DATA MECH_NAM_CRACMM2(193 ) , MECH_MAP_CRACMM2( 193) & / 'VROCP6ARO ', 8 / DATA CONV_FAC_CRACMM2( 193) & / 1 / DATA SPMH_NAM_CRACMM2( 194) , SPMH_MAP_CRACMM2(194) & / 'santene ', 195 / DATA MECH_NAM_CRACMM2(194 ) , MECH_MAP_CRACMM2( 194) & / 'OLI ', 25 / DATA CONV_FAC_CRACMM2( 194) & / 1 / DATA SPMH_NAM_CRACMM2( 195) , SPMH_MAP_CRACMM2(195) & / 'skatole ', 196 / DATA MECH_NAM_CRACMM2(195 ) , MECH_MAP_CRACMM2( 195) & / 'VROCP5ARO ', 13 / DATA CONV_FAC_CRACMM2( 195) & / 1 / DATA SPMH_NAM_CRACMM2( 196) , SPMH_MAP_CRACMM2(196) & / 'terpinyl_ACT_a ', 197 / DATA MECH_NAM_CRACMM2(196 ) , MECH_MAP_CRACMM2( 196) & / 'VROCP6ARO ', 8 / DATA CONV_FAC_CRACMM2( 196) & / 1 / DATA SPMH_NAM_CRACMM2( 197) , SPMH_MAP_CRACMM2(197) & / 'tetradecene_1 ', 198 / DATA MECH_NAM_CRACMM2(197 ) , MECH_MAP_CRACMM2( 197) & / 'VROCP5ARO ', 13 / DATA CONV_FAC_CRACMM2( 197) & / 1 / DATA SPMH_NAM_CRACMM2( 198) , SPMH_MAP_CRACMM2(198) & / 'undecane ', 199 / DATA MECH_NAM_CRACMM2(198 ) , MECH_MAP_CRACMM2( 198) & / 'HC10 ', 36 / DATA CONV_FAC_CRACMM2( 198) & / 1 / DATA SPMH_NAM_CRACMM2( 199) , SPMH_MAP_CRACMM2(199) & / 'carbon_monoxide ', 200 / DATA MECH_NAM_CRACMM2(199 ) , MECH_MAP_CRACMM2( 199) & / 'CO ', 46 / DATA CONV_FAC_CRACMM2( 199) & / 1 / DATA SPMH_NAM_CRACMM2( 200) , SPMH_MAP_CRACMM2(200) & / 'nitric_OXD ', 201 / DATA MECH_NAM_CRACMM2(200 ) , MECH_MAP_CRACMM2( 200) & / 'NO ', 44 / DATA CONV_FAC_CRACMM2( 200) & / 1 / ================================================ FILE: CCTM/src/biog/megan3/MAP_CV2RACM2.EXT ================================================ C======================================================================= C MAP_CV2RACM2.EXT C This include file contains conversion table for 201 speciated species C to RACM2 (CMAQ/CAMx) species C C C MEGAN v3 C C History: C Who When What C --------------------------------------------------------------------- C Tan 07/18/11 - Created for MEGANv2.10 C Ling Huang 06/13/17 - Updated for MEGANv3 C======================================================================= CHARACTER*16 MAP_RACM2MECH PARAMETER (MAP_RACM2MECH = 'RACM2 ') INTEGER N_RACM2 PARAMETER (N_RACM2 = (156)) ! Number of map species CHARACTER*16 SPMH_NAM_RACM2( N_RACM2 ) ! speciated species name INTEGER SPMH_MAP_RACM2( N_RACM2 ) ! speciated species name ! mapped to SPC_SPCAT.EXT CHARACTER*16 MECH_NAM_RACM2( N_RACM2 ) ! mechanism species INTEGER MECH_MAP_RACM2( N_RACM2 ) ! mechanism species mapped REAL CONV_FAC_RACM2( N_RACM2 ) ! conversion factor DATA SPMH_NAM_RACM2( 1) , SPMH_MAP_RACM2( 1) & / 'isoprene ', 1 / DATA MECH_NAM_RACM2( 1) , MECH_MAP_RACM2( 1) & / 'ISO ', 1 / DATA CONV_FAC_RACM2( 1) & / 1 / DATA SPMH_NAM_RACM2( 2) , SPMH_MAP_RACM2( 2) & / 'MBO_2m3e2ol ', 2 / DATA MECH_NAM_RACM2( 2) , MECH_MAP_RACM2( 2) & / 'OLI ', 8 / DATA CONV_FAC_RACM2( 2) & / 1 / DATA SPMH_NAM_RACM2( 3) , SPMH_MAP_RACM2( 3) & / 'pinene_a ', 3 / DATA MECH_NAM_RACM2( 3) , MECH_MAP_RACM2( 3) & / 'API ', 16 / DATA CONV_FAC_RACM2( 3) & / 1 / DATA SPMH_NAM_RACM2( 4) , SPMH_MAP_RACM2( 4) & / 'pinene_b ', 4 / DATA MECH_NAM_RACM2( 4) , MECH_MAP_RACM2( 4) & / 'API ', 16 / DATA CONV_FAC_RACM2( 4) & / 1 / DATA SPMH_NAM_RACM2( 5) , SPMH_MAP_RACM2( 5) & / 'myrcene ', 5 / DATA MECH_NAM_RACM2( 5) , MECH_MAP_RACM2( 5) & / 'LIM ', 17 / DATA CONV_FAC_RACM2( 5) & / 1 / DATA SPMH_NAM_RACM2( 6) , SPMH_MAP_RACM2( 6) & / 'ocimene_al ', 6 / DATA MECH_NAM_RACM2( 6) , MECH_MAP_RACM2( 6) & / 'LIM ', 17 / DATA CONV_FAC_RACM2( 6) & / 1 / DATA SPMH_NAM_RACM2( 7) , SPMH_MAP_RACM2( 7) & / 'ocimene_c_b ', 7 / DATA MECH_NAM_RACM2( 7) , MECH_MAP_RACM2( 7) & / 'LIM ', 17 / DATA CONV_FAC_RACM2( 7) & / 1 / DATA SPMH_NAM_RACM2( 8) , SPMH_MAP_RACM2( 8) & / 'ocimene_t_b ', 8 / DATA MECH_NAM_RACM2( 8) , MECH_MAP_RACM2( 8) & / 'LIM ', 17 / DATA CONV_FAC_RACM2( 8) & / 1 / DATA SPMH_NAM_RACM2( 9) , SPMH_MAP_RACM2( 9) & / 'camphene ', 10 / DATA MECH_NAM_RACM2( 9) , MECH_MAP_RACM2( 9) & / 'API ', 16 / DATA CONV_FAC_RACM2( 9) & / 1 / DATA SPMH_NAM_RACM2( 10) , SPMH_MAP_RACM2( 10) & / 'bornene ', 9 / DATA MECH_NAM_RACM2( 10) , MECH_MAP_RACM2( 10) & / 'API ', 16 / DATA CONV_FAC_RACM2( 10) & / 1 / DATA SPMH_NAM_RACM2( 11) , SPMH_MAP_RACM2( 11) & / 'fenchene_a ', 12 / DATA MECH_NAM_RACM2( 11) , MECH_MAP_RACM2( 11) & / 'API ', 16 / DATA CONV_FAC_RACM2( 11) & / 1 / DATA SPMH_NAM_RACM2( 12) , SPMH_MAP_RACM2( 12) & / 'tricyclene ', 14 / DATA MECH_NAM_RACM2( 12) , MECH_MAP_RACM2( 12) & / 'API ', 16 / DATA CONV_FAC_RACM2( 12) & / 1 / DATA SPMH_NAM_RACM2( 13) , SPMH_MAP_RACM2( 13) & / 'carene_3 ', 11 / DATA MECH_NAM_RACM2( 13) , MECH_MAP_RACM2( 13) & / 'API ', 16 / DATA CONV_FAC_RACM2( 13) & / 1 / DATA SPMH_NAM_RACM2( 14) , SPMH_MAP_RACM2( 14) & / 'fenchene_b ', 13 / DATA MECH_NAM_RACM2( 14) , MECH_MAP_RACM2( 14) & / 'API ', 16 / DATA CONV_FAC_RACM2( 14) & / 1 / DATA SPMH_NAM_RACM2( 15) , SPMH_MAP_RACM2( 15) & / 'phellandrene_a ', 17 / DATA MECH_NAM_RACM2( 15) , MECH_MAP_RACM2( 15) & / 'LIM ', 17 / DATA CONV_FAC_RACM2( 15) & / 1 / DATA SPMH_NAM_RACM2( 16) , SPMH_MAP_RACM2( 16) & / 'terpinene_g ', 20 / DATA MECH_NAM_RACM2( 16) , MECH_MAP_RACM2( 16) & / 'LIM ', 17 / DATA CONV_FAC_RACM2( 16) & / 1 / DATA SPMH_NAM_RACM2( 17) , SPMH_MAP_RACM2( 17) & / 'terpinene_a ', 19 / DATA MECH_NAM_RACM2( 17) , MECH_MAP_RACM2( 17) & / 'LIM ', 17 / DATA CONV_FAC_RACM2( 17) & / 1 / DATA SPMH_NAM_RACM2( 18) , SPMH_MAP_RACM2( 18) & / 'limonene ', 15 / DATA MECH_NAM_RACM2( 18) , MECH_MAP_RACM2( 18) & / 'LIM ', 17 / DATA CONV_FAC_RACM2( 18) & / 1 / DATA SPMH_NAM_RACM2( 19) , SPMH_MAP_RACM2( 19) & / 'phellandrene_b ', 16 / DATA MECH_NAM_RACM2( 19) , MECH_MAP_RACM2( 19) & / 'LIM ', 17 / DATA CONV_FAC_RACM2( 19) & / 1 / DATA SPMH_NAM_RACM2( 20) , SPMH_MAP_RACM2( 20) & / 'terpinolene ', 21 / DATA MECH_NAM_RACM2( 20) , MECH_MAP_RACM2( 20) & / 'LIM ', 17 / DATA CONV_FAC_RACM2( 20) & / 1 / DATA SPMH_NAM_RACM2( 21) , SPMH_MAP_RACM2( 21) & / 'thujene_a ', 22 / DATA MECH_NAM_RACM2( 21) , MECH_MAP_RACM2( 21) & / 'API ', 16 / DATA CONV_FAC_RACM2( 21) & / 1 / DATA SPMH_NAM_RACM2( 22) , SPMH_MAP_RACM2( 22) & / 'sabinene ', 18 / DATA MECH_NAM_RACM2( 22) , MECH_MAP_RACM2( 22) & / 'API ', 16 / DATA CONV_FAC_RACM2( 22) & / 1 / DATA SPMH_NAM_RACM2( 23) , SPMH_MAP_RACM2( 23) & / 'verbenene ', 23 / DATA MECH_NAM_RACM2( 23) , MECH_MAP_RACM2( 23) & / 'LIM ', 17 / DATA CONV_FAC_RACM2( 23) & / 1 / DATA SPMH_NAM_RACM2( 24) , SPMH_MAP_RACM2( 24) & / 'cymene_p ', 25 / DATA MECH_NAM_RACM2( 24) , MECH_MAP_RACM2( 24) & / 'LIM ', 17 / DATA CONV_FAC_RACM2( 24) & / 1 / DATA SPMH_NAM_RACM2( 25) , SPMH_MAP_RACM2( 25) & / 'cymene_o ', 24 / DATA MECH_NAM_RACM2( 25) , MECH_MAP_RACM2( 25) & / 'LIM ', 17 / DATA CONV_FAC_RACM2( 25) & / 1 / DATA SPMH_NAM_RACM2( 26) , SPMH_MAP_RACM2( 26) & / 'meta-cymenene ', 26 / DATA MECH_NAM_RACM2( 26) , MECH_MAP_RACM2( 26) & / 'LIM ', 17 / DATA CONV_FAC_RACM2( 26) & / 1 / DATA SPMH_NAM_RACM2( 27) , SPMH_MAP_RACM2( 27) & / 'p-cymenene ', 27 / DATA MECH_NAM_RACM2( 27) , MECH_MAP_RACM2( 27) & / 'LIM ', 17 / DATA CONV_FAC_RACM2( 27) & / 1 / DATA SPMH_NAM_RACM2( 28) , SPMH_MAP_RACM2( 28) & / 'camphor ', 30 / DATA MECH_NAM_RACM2( 28) , MECH_MAP_RACM2( 28) & / 'API ', 16 / DATA CONV_FAC_RACM2( 28) & / 1 / DATA SPMH_NAM_RACM2( 29) , SPMH_MAP_RACM2( 29) & / 'bornyl_ACT ', 29 / DATA MECH_NAM_RACM2( 29) , MECH_MAP_RACM2( 29) & / 'API ', 16 / DATA CONV_FAC_RACM2( 29) & / 1 / DATA SPMH_NAM_RACM2( 30) , SPMH_MAP_RACM2( 30) & / 'piperitone ', 38 / DATA MECH_NAM_RACM2( 30) , MECH_MAP_RACM2( 30) & / 'API ', 16 / DATA CONV_FAC_RACM2( 30) & / 1 / DATA SPMH_NAM_RACM2( 31) , SPMH_MAP_RACM2( 31) & / 'terpineol_a ', 40 / DATA MECH_NAM_RACM2( 31) , MECH_MAP_RACM2( 31) & / 'API ', 16 / DATA CONV_FAC_RACM2( 31) & / 1 / DATA SPMH_NAM_RACM2( 32) , SPMH_MAP_RACM2( 32) & / 'octanol ', 36 / DATA MECH_NAM_RACM2( 32) , MECH_MAP_RACM2( 32) & / 'API ', 16 / DATA CONV_FAC_RACM2( 32) & / 1 / DATA SPMH_NAM_RACM2( 33) , SPMH_MAP_RACM2( 33) & / 'estragole ', 31 / DATA MECH_NAM_RACM2( 33) , MECH_MAP_RACM2( 33) & / 'LIM ', 17 / DATA CONV_FAC_RACM2( 33) & / 1 / DATA SPMH_NAM_RACM2( 34) , SPMH_MAP_RACM2( 34) & / 'borneol ', 28 / DATA MECH_NAM_RACM2( 34) , MECH_MAP_RACM2( 34) & / 'API ', 16 / DATA CONV_FAC_RACM2( 34) & / 1 / DATA SPMH_NAM_RACM2( 35) , SPMH_MAP_RACM2( 35) & / 'thujone_b ', 42 / DATA MECH_NAM_RACM2( 35) , MECH_MAP_RACM2( 35) & / 'API ', 16 / DATA CONV_FAC_RACM2( 35) & / 1 / DATA SPMH_NAM_RACM2( 36) , SPMH_MAP_RACM2( 36) & / 'thujone_a ', 41 / DATA MECH_NAM_RACM2( 36) , MECH_MAP_RACM2( 36) & / 'API ', 16 / DATA CONV_FAC_RACM2( 36) & / 1 / DATA SPMH_NAM_RACM2( 37) , SPMH_MAP_RACM2( 37) & / 'terpineol_4 ', 39 / DATA MECH_NAM_RACM2( 37) , MECH_MAP_RACM2( 37) & / 'API ', 16 / DATA CONV_FAC_RACM2( 37) & / 1 / DATA SPMH_NAM_RACM2( 38) , SPMH_MAP_RACM2( 38) & / 'myrtenal ', 35 / DATA MECH_NAM_RACM2( 38) , MECH_MAP_RACM2( 38) & / 'LIM ', 17 / DATA CONV_FAC_RACM2( 38) & / 1 / DATA SPMH_NAM_RACM2( 39) , SPMH_MAP_RACM2( 39) & / 'fenchone ', 32 / DATA MECH_NAM_RACM2( 39) , MECH_MAP_RACM2( 39) & / 'API ', 16 / DATA CONV_FAC_RACM2( 39) & / 1 / DATA SPMH_NAM_RACM2( 40) , SPMH_MAP_RACM2( 40) & / 'octenol_1e3ol ', 37 / DATA MECH_NAM_RACM2( 40) , MECH_MAP_RACM2( 40) & / 'LIM ', 17 / DATA CONV_FAC_RACM2( 40) & / 1 / DATA SPMH_NAM_RACM2( 41) , SPMH_MAP_RACM2( 41) & / 'ionone_b ', 33 / DATA MECH_NAM_RACM2( 41) , MECH_MAP_RACM2( 41) & / 'LIM ', 17 / DATA CONV_FAC_RACM2( 41) & / 1 / DATA SPMH_NAM_RACM2( 42) , SPMH_MAP_RACM2( 42) & / 'ipsenol ', 34 / DATA MECH_NAM_RACM2( 42) , MECH_MAP_RACM2( 42) & / 'LIM ', 17 / DATA CONV_FAC_RACM2( 42) & / 1 / DATA SPMH_NAM_RACM2( 43) , SPMH_MAP_RACM2( 43) & / 'caryophyllene_b ', 51 / DATA MECH_NAM_RACM2( 43) , MECH_MAP_RACM2( 43) & / 'SESQ ', 24 / DATA CONV_FAC_RACM2( 43) & / 1 / DATA SPMH_NAM_RACM2( 44) , SPMH_MAP_RACM2( 44) & / 'caryophyllene_c_i ', 52 / DATA MECH_NAM_RACM2( 44) , MECH_MAP_RACM2( 44) & / 'SESQ ', 24 / DATA CONV_FAC_RACM2( 44) & / 1 / DATA SPMH_NAM_RACM2( 45) , SPMH_MAP_RACM2( 45) & / 'cadinene_d ', 48 / DATA MECH_NAM_RACM2( 45) , MECH_MAP_RACM2( 45) & / 'SESQ ', 24 / DATA CONV_FAC_RACM2( 45) & / 1 / DATA SPMH_NAM_RACM2( 46) , SPMH_MAP_RACM2( 46) & / 'cadinene_d ', 48 / DATA MECH_NAM_RACM2( 46) , MECH_MAP_RACM2( 46) & / 'SESQ ', 24 / DATA CONV_FAC_RACM2( 46) & / 1 / DATA SPMH_NAM_RACM2( 47) , SPMH_MAP_RACM2( 47) & / 'bisabolene_b ', 47 / DATA MECH_NAM_RACM2( 47) , MECH_MAP_RACM2( 47) & / 'SESQ ', 24 / DATA CONV_FAC_RACM2( 47) & / 1 / DATA SPMH_NAM_RACM2( 48) , SPMH_MAP_RACM2( 48) & / 'farnescene_a ', 54 / DATA MECH_NAM_RACM2( 48) , MECH_MAP_RACM2( 48) & / 'SESQ ', 24 / DATA CONV_FAC_RACM2( 48) & / 1 / DATA SPMH_NAM_RACM2( 49) , SPMH_MAP_RACM2( 49) & / 'patchoulene_b ', 65 / DATA MECH_NAM_RACM2( 49) , MECH_MAP_RACM2( 49) & / 'SESQ ', 24 / DATA CONV_FAC_RACM2( 49) & / 1 / DATA SPMH_NAM_RACM2( 50) , SPMH_MAP_RACM2( 50) & / 'elemene_b ', 53 / DATA MECH_NAM_RACM2( 50) , MECH_MAP_RACM2( 50) & / 'SESQ ', 24 / DATA CONV_FAC_RACM2( 50) & / 1 / DATA SPMH_NAM_RACM2( 51) , SPMH_MAP_RACM2( 51) & / 'nerolidol_c ', 63 / DATA MECH_NAM_RACM2( 51) , MECH_MAP_RACM2( 51) & / 'SESQ ', 24 / DATA CONV_FAC_RACM2( 51) & / 1 / DATA SPMH_NAM_RACM2( 52) , SPMH_MAP_RACM2( 52) & / 'farnesol ', 56 / DATA MECH_NAM_RACM2( 52) , MECH_MAP_RACM2( 52) & / 'SESQ ', 24 / DATA CONV_FAC_RACM2( 52) & / 1 / DATA SPMH_NAM_RACM2( 53) , SPMH_MAP_RACM2( 53) & / 'humulene_a ', 59 / DATA MECH_NAM_RACM2( 53) , MECH_MAP_RACM2( 53) & / 'SESQ ', 24 / DATA CONV_FAC_RACM2( 53) & / 1 / DATA SPMH_NAM_RACM2( 54) , SPMH_MAP_RACM2( 54) & / 'muurolene_a ', 61 / DATA MECH_NAM_RACM2( 54) , MECH_MAP_RACM2( 54) & / 'SESQ ', 24 / DATA CONV_FAC_RACM2( 54) & / 1 / DATA SPMH_NAM_RACM2( 55) , SPMH_MAP_RACM2( 55) & / 'bergamotene_a ', 44 / DATA MECH_NAM_RACM2( 55) , MECH_MAP_RACM2( 55) & / 'SESQ ', 24 / DATA CONV_FAC_RACM2( 55) & / 1 / DATA SPMH_NAM_RACM2( 56) , SPMH_MAP_RACM2( 56) & / 'germacrene_B ', 57 / DATA MECH_NAM_RACM2( 56) , MECH_MAP_RACM2( 56) & / 'SESQ ', 24 / DATA CONV_FAC_RACM2( 56) & / 1 / DATA SPMH_NAM_RACM2( 57) , SPMH_MAP_RACM2( 57) & / 'selinene_b ', 66 / DATA MECH_NAM_RACM2( 57) , MECH_MAP_RACM2( 57) & / 'SESQ ', 24 / DATA CONV_FAC_RACM2( 57) & / 1 / DATA SPMH_NAM_RACM2( 58) , SPMH_MAP_RACM2( 58) & / 'calarene ', 50 / DATA MECH_NAM_RACM2( 58) , MECH_MAP_RACM2( 58) & / 'SESQ ', 24 / DATA CONV_FAC_RACM2( 58) & / 1 / DATA SPMH_NAM_RACM2( 59) , SPMH_MAP_RACM2( 59) & / 'farnescene_b ', 55 / DATA MECH_NAM_RACM2( 59) , MECH_MAP_RACM2( 59) & / 'SESQ ', 24 / DATA CONV_FAC_RACM2( 59) & / 1 / DATA SPMH_NAM_RACM2( 60) , SPMH_MAP_RACM2( 60) & / 'acoradiene ', 43 / DATA MECH_NAM_RACM2( 60) , MECH_MAP_RACM2( 60) & / 'SESQ ', 24 / DATA CONV_FAC_RACM2( 60) & / 1 / DATA SPMH_NAM_RACM2( 61) , SPMH_MAP_RACM2( 61) & / 'humulene_g ', 60 / DATA MECH_NAM_RACM2( 61) , MECH_MAP_RACM2( 61) & / 'SESQ ', 24 / DATA CONV_FAC_RACM2( 61) & / 1 / DATA SPMH_NAM_RACM2( 62) , SPMH_MAP_RACM2( 62) & / 'muurolene_g ', 62 / DATA MECH_NAM_RACM2( 62) , MECH_MAP_RACM2( 62) & / 'SESQ ', 24 / DATA CONV_FAC_RACM2( 62) & / 1 / DATA SPMH_NAM_RACM2( 63) , SPMH_MAP_RACM2( 63) & / 'germacrene_D ', 58 / DATA MECH_NAM_RACM2( 63) , MECH_MAP_RACM2( 63) & / 'SESQ ', 24 / DATA CONV_FAC_RACM2( 63) & / 1 / DATA SPMH_NAM_RACM2( 64) , SPMH_MAP_RACM2( 64) & / 'cadinene_g ', 49 / DATA MECH_NAM_RACM2( 64) , MECH_MAP_RACM2( 64) & / 'SESQ ', 24 / DATA CONV_FAC_RACM2( 64) & / 1 / DATA SPMH_NAM_RACM2( 65) , SPMH_MAP_RACM2( 65) & / 'nerolidol_t ', 64 / DATA MECH_NAM_RACM2( 65) , MECH_MAP_RACM2( 65) & / 'SESQ ', 24 / DATA CONV_FAC_RACM2( 65) & / 1 / DATA SPMH_NAM_RACM2( 66) , SPMH_MAP_RACM2( 66) & / 'bergamotene_b ', 45 / DATA MECH_NAM_RACM2( 66) , MECH_MAP_RACM2( 66) & / 'SESQ ', 24 / DATA CONV_FAC_RACM2( 66) & / 1 / DATA SPMH_NAM_RACM2( 67) , SPMH_MAP_RACM2( 67) & / 'bisabolene_a ', 46 / DATA MECH_NAM_RACM2( 67) , MECH_MAP_RACM2( 67) & / 'SESQ ', 24 / DATA CONV_FAC_RACM2( 67) & / 1 / DATA SPMH_NAM_RACM2( 68) , SPMH_MAP_RACM2( 68) & / 'cedrol ', 73 / DATA MECH_NAM_RACM2( 68) , MECH_MAP_RACM2( 68) & / 'SESQ ', 24 / DATA CONV_FAC_RACM2( 68) & / 1 / DATA SPMH_NAM_RACM2( 69) , SPMH_MAP_RACM2( 69) & / 'homosalate ', 78 / DATA MECH_NAM_RACM2( 69) , MECH_MAP_RACM2( 69) & / 'SESQ ', 24 / DATA CONV_FAC_RACM2( 69) & / 1 / DATA SPMH_NAM_RACM2( 70) , SPMH_MAP_RACM2( 70) & / '2ethyl_hexyl_salate ', 68 / DATA MECH_NAM_RACM2( 70) , MECH_MAP_RACM2( 70) & / 'SESQ ', 24 / DATA CONV_FAC_RACM2( 70) & / 1 / DATA SPMH_NAM_RACM2( 71) , SPMH_MAP_RACM2( 71) & / 'cedrene_a ', 72 / DATA MECH_NAM_RACM2( 71) , MECH_MAP_RACM2( 71) & / 'SESQ ', 24 / DATA CONV_FAC_RACM2( 71) & / 1 / DATA SPMH_NAM_RACM2( 72) , SPMH_MAP_RACM2( 72) & / 'thujopsene ', 83 / DATA MECH_NAM_RACM2( 72) , MECH_MAP_RACM2( 72) & / 'SESQ ', 24 / DATA CONV_FAC_RACM2( 72) & / 1 / DATA SPMH_NAM_RACM2( 73) , SPMH_MAP_RACM2( 73) & / 'longifolene ', 81 / DATA MECH_NAM_RACM2( 73) , MECH_MAP_RACM2( 73) & / 'SESQ ', 24 / DATA CONV_FAC_RACM2( 73) & / 1 / DATA SPMH_NAM_RACM2( 74) , SPMH_MAP_RACM2( 74) & / 'cadinol_a ', 71 / DATA MECH_NAM_RACM2( 74) , MECH_MAP_RACM2( 74) & / 'SESQ ', 24 / DATA CONV_FAC_RACM2( 74) & / 1 / DATA SPMH_NAM_RACM2( 75) , SPMH_MAP_RACM2( 75) & / 'zingiberene_a ', 85 / DATA MECH_NAM_RACM2( 75) , MECH_MAP_RACM2( 75) & / 'SESQ ', 24 / DATA CONV_FAC_RACM2( 75) & / 1 / DATA SPMH_NAM_RACM2( 76) , SPMH_MAP_RACM2( 76) & / 'isolongifolene ', 79 / DATA MECH_NAM_RACM2( 76) , MECH_MAP_RACM2( 76) & / 'SESQ ', 24 / DATA CONV_FAC_RACM2( 76) & / 1 / DATA SPMH_NAM_RACM2( 77) , SPMH_MAP_RACM2( 77) & / 'longicyclene ', 87 / DATA MECH_NAM_RACM2( 77) , MECH_MAP_RACM2( 77) & / 'SESQ ', 24 / DATA CONV_FAC_RACM2( 77) & / 1 / DATA SPMH_NAM_RACM2( 78) , SPMH_MAP_RACM2( 78) & / 'copaene_a ', 74 / DATA MECH_NAM_RACM2( 78) , MECH_MAP_RACM2( 78) & / 'SESQ ', 24 / DATA CONV_FAC_RACM2( 78) & / 1 / DATA SPMH_NAM_RACM2( 79) , SPMH_MAP_RACM2( 79) & / 'bourbonene_b ', 70 / DATA MECH_NAM_RACM2( 79) , MECH_MAP_RACM2( 79) & / 'SESQ ', 24 / DATA CONV_FAC_RACM2( 79) & / 1 / DATA SPMH_NAM_RACM2( 80) , SPMH_MAP_RACM2( 80) & / 'longipinene ', 82 / DATA MECH_NAM_RACM2( 80) , MECH_MAP_RACM2( 80) & / 'SESQ ', 24 / DATA CONV_FAC_RACM2( 80) & / 1 / DATA SPMH_NAM_RACM2( 81) , SPMH_MAP_RACM2( 81) & / 'cubebene_b ', 76 / DATA MECH_NAM_RACM2( 81) , MECH_MAP_RACM2( 81) & / 'SESQ ', 24 / DATA CONV_FAC_RACM2( 81) & / 1 / DATA SPMH_NAM_RACM2( 82) , SPMH_MAP_RACM2( 82) & / 'ylangene_a ', 84 / DATA MECH_NAM_RACM2( 82) , MECH_MAP_RACM2( 82) & / 'SESQ ', 24 / DATA CONV_FAC_RACM2( 82) & / 1 / DATA SPMH_NAM_RACM2( 83) , SPMH_MAP_RACM2( 83) & / 'cubebene_a ', 75 / DATA MECH_NAM_RACM2( 83) , MECH_MAP_RACM2( 83) & / 'SESQ ', 24 / DATA CONV_FAC_RACM2( 83) & / 1 / DATA SPMH_NAM_RACM2( 84) , SPMH_MAP_RACM2( 84) & / 'copaene_b ', 86 / DATA MECH_NAM_RACM2( 84) , MECH_MAP_RACM2( 84) & / 'SESQ ', 24 / DATA CONV_FAC_RACM2( 84) & / 1 / DATA SPMH_NAM_RACM2( 85) , SPMH_MAP_RACM2( 85) & / 'kaur_16_ene ', 80 / DATA MECH_NAM_RACM2( 85) , MECH_MAP_RACM2( 85) & / 'SESQ ', 24 / DATA CONV_FAC_RACM2( 85) & / 1 / DATA SPMH_NAM_RACM2( 86) , SPMH_MAP_RACM2( 86) & / 'gurjunene_b ', 77 / DATA MECH_NAM_RACM2( 86) , MECH_MAP_RACM2( 86) & / 'SESQ ', 24 / DATA CONV_FAC_RACM2( 86) & / 1 / DATA SPMH_NAM_RACM2( 87) , SPMH_MAP_RACM2( 87) & / 'aromadendrene ', 69 / DATA MECH_NAM_RACM2( 87) , MECH_MAP_RACM2( 87) & / 'SESQ ', 24 / DATA CONV_FAC_RACM2( 87) & / 1 / DATA SPMH_NAM_RACM2( 88) , SPMH_MAP_RACM2( 88) & / 'methanol ', 88 / DATA MECH_NAM_RACM2( 88) , MECH_MAP_RACM2( 88) & / 'MOH ', 25 / DATA CONV_FAC_RACM2( 88) & / 1 / DATA SPMH_NAM_RACM2( 89) , SPMH_MAP_RACM2( 89) & / 'acetone ', 89 / DATA MECH_NAM_RACM2( 89) , MECH_MAP_RACM2( 89) & / 'ACT ', 26 / DATA CONV_FAC_RACM2( 89) & / 1 / DATA SPMH_NAM_RACM2( 90) , SPMH_MAP_RACM2( 90) & / 'ethanol ', 91 / DATA MECH_NAM_RACM2( 90) , MECH_MAP_RACM2( 90) & / 'EOH ', 27 / DATA CONV_FAC_RACM2( 90) & / 1 / DATA SPMH_NAM_RACM2( 91) , SPMH_MAP_RACM2( 91) & / 'acetaldehyde ', 90 / DATA MECH_NAM_RACM2( 91) , MECH_MAP_RACM2( 91) & / 'ACD ', 28 / DATA CONV_FAC_RACM2( 91) & / 1 / DATA SPMH_NAM_RACM2( 92) , SPMH_MAP_RACM2( 92) & / 'formic_acid ', 93 / DATA MECH_NAM_RACM2( 92) , MECH_MAP_RACM2( 92) & / 'ORA1 ', 14 / DATA CONV_FAC_RACM2( 92) & / 1 / DATA SPMH_NAM_RACM2( 93) , SPMH_MAP_RACM2( 93) & / 'acetic_acid ', 92 / DATA MECH_NAM_RACM2( 93) , MECH_MAP_RACM2( 93) & / 'ORA2 ', 15 / DATA CONV_FAC_RACM2( 93) & / 1 / DATA SPMH_NAM_RACM2( 94) , SPMH_MAP_RACM2( 94) & / 'ethane ', 100 / DATA MECH_NAM_RACM2( 94) , MECH_MAP_RACM2( 94) & / 'ETH ', 3 / DATA CONV_FAC_RACM2( 94) & / 1 / DATA SPMH_NAM_RACM2( 95) , SPMH_MAP_RACM2( 95) & / 'ethene ', 101 / DATA MECH_NAM_RACM2( 95) , MECH_MAP_RACM2( 95) & / 'ETE ', 29 / DATA CONV_FAC_RACM2( 95) & / 1 / DATA SPMH_NAM_RACM2( 96) , SPMH_MAP_RACM2( 96) & / 'propane ', 102 / DATA MECH_NAM_RACM2( 96) , MECH_MAP_RACM2( 96) & / 'HC3 ', 4 / DATA CONV_FAC_RACM2( 96) & / 1 / DATA SPMH_NAM_RACM2( 97) , SPMH_MAP_RACM2( 97) & / 'butene ', 97 / DATA MECH_NAM_RACM2( 97) , MECH_MAP_RACM2( 97) & / 'OLT ', 9 / DATA CONV_FAC_RACM2( 97) & / 1 / DATA SPMH_NAM_RACM2( 98) , SPMH_MAP_RACM2( 98) & / 'propene ', 103 / DATA MECH_NAM_RACM2( 98) , MECH_MAP_RACM2( 98) & / 'OLT ', 9 / DATA CONV_FAC_RACM2( 98) & / 1 / DATA SPMH_NAM_RACM2( 99) , SPMH_MAP_RACM2( 99) & / '2_methylprop_1_ene ', 95 / DATA MECH_NAM_RACM2( 99) , MECH_MAP_RACM2( 99) & / 'OLT ', 9 / DATA CONV_FAC_RACM2( 99) & / 1 / DATA SPMH_NAM_RACM2( 100) , SPMH_MAP_RACM2( 100) & / 'butene_c2 ', 98 / DATA MECH_NAM_RACM2( 100) , MECH_MAP_RACM2( 100) & / 'OLI ', 8 / DATA CONV_FAC_RACM2( 100) & / 1 / DATA SPMH_NAM_RACM2( 101) , SPMH_MAP_RACM2( 101) & / 'butene_t2 ', 99 / DATA MECH_NAM_RACM2( 101) , MECH_MAP_RACM2( 101) & / 'OLI ', 8 / DATA CONV_FAC_RACM2( 101) & / 1 / DATA SPMH_NAM_RACM2( 102) , SPMH_MAP_RACM2( 102) & / 'formaldehyde ', 113 / DATA MECH_NAM_RACM2( 102) , MECH_MAP_RACM2( 102) & / 'HCHO ', 13 / DATA CONV_FAC_RACM2( 102) & / 1 / DATA SPMH_NAM_RACM2( 103) , SPMH_MAP_RACM2( 103) & / 'met_heptenone ', 106 / DATA MECH_NAM_RACM2( 103) , MECH_MAP_RACM2( 103) & / 'MACR ', 32 / DATA CONV_FAC_RACM2( 103) & / 0.5 / DATA SPMH_NAM_RACM2( 104) , SPMH_MAP_RACM2( 104) & / 'met_heptenone ', 106 / DATA MECH_NAM_RACM2( 104) , MECH_MAP_RACM2( 104) & / 'MVK ', 30 / DATA CONV_FAC_RACM2( 104) & / 0.5 / DATA SPMH_NAM_RACM2( 105) , SPMH_MAP_RACM2( 105) & / 'oxopentanal ', 114 / DATA MECH_NAM_RACM2( 105) , MECH_MAP_RACM2( 105) & / 'MACR ', 32 / DATA CONV_FAC_RACM2( 105) & / 0.5 / DATA SPMH_NAM_RACM2( 106) , SPMH_MAP_RACM2( 106) & / 'oxopentanal ', 114 / DATA MECH_NAM_RACM2( 106) , MECH_MAP_RACM2( 106) & / 'MVK ', 30 / DATA CONV_FAC_RACM2( 106) & / 0.5 / DATA SPMH_NAM_RACM2( 107) , SPMH_MAP_RACM2( 107) & / 'geranyl_acetone ', 105 / DATA MECH_NAM_RACM2( 107) , MECH_MAP_RACM2( 107) & / 'MACR ', 32 / DATA CONV_FAC_RACM2( 107) & / 0.5 / DATA SPMH_NAM_RACM2( 108) , SPMH_MAP_RACM2( 108) & / 'geranyl_acetone ', 105 / DATA MECH_NAM_RACM2( 108) , MECH_MAP_RACM2( 108) & / 'MVK ', 30 / DATA CONV_FAC_RACM2( 108) & / 0.5 / DATA SPMH_NAM_RACM2( 109) , SPMH_MAP_RACM2( 109) & / 'hexanal ', 141 / DATA MECH_NAM_RACM2( 109) , MECH_MAP_RACM2( 109) & / 'MACR ', 32 / DATA CONV_FAC_RACM2( 109) & / 0.5 / DATA SPMH_NAM_RACM2( 110) , SPMH_MAP_RACM2( 110) & / 'hexanal ', 141 / DATA MECH_NAM_RACM2( 110) , MECH_MAP_RACM2( 110) & / 'MVK ', 30 / DATA CONV_FAC_RACM2( 110) & / 0.5 / DATA SPMH_NAM_RACM2( 111) , SPMH_MAP_RACM2( 111) & / 'hydrogen_cyanide ', 147 / DATA MECH_NAM_RACM2( 111) , MECH_MAP_RACM2( 111) & / 'HCN ', 31 / DATA CONV_FAC_RACM2( 111) & / 1 / DATA SPMH_NAM_RACM2( 112) , SPMH_MAP_RACM2( 112) & / 'linalool ', 150 / DATA MECH_NAM_RACM2( 112) , MECH_MAP_RACM2( 112) & / 'MACR ', 32 / DATA CONV_FAC_RACM2( 112) & / 0. / DATA SPMH_NAM_RACM2( 113) , SPMH_MAP_RACM2( 113) & / 'linalool ', 150 / DATA MECH_NAM_RACM2( 113) , MECH_MAP_RACM2( 113) & / 'OLI ', 1 / DATA CONV_FAC_RACM2( 113) & / 1 / DATA SPMH_NAM_RACM2( 114) , SPMH_MAP_RACM2( 114) & / 'methacrolein ', 153 / DATA MECH_NAM_RACM2( 114) , MECH_MAP_RACM2( 114) & / 'MACR ', 32 / DATA CONV_FAC_RACM2( 114) & / 1 / DATA SPMH_NAM_RACM2( 115) , SPMH_MAP_RACM2( 115) & / 'met_vinylketone ', 158 / DATA MECH_NAM_RACM2( 115) , MECH_MAP_RACM2( 115) & / 'MVK ', 30 / DATA CONV_FAC_RACM2( 115) & / 1 / DATA SPMH_NAM_RACM2( 116) , SPMH_MAP_RACM2( 116) & / 'hexanol_1 ', 142 / DATA MECH_NAM_RACM2( 116) , MECH_MAP_RACM2( 116) & / 'MACR ', 32 / DATA CONV_FAC_RACM2( 116) & / 0.5 / DATA SPMH_NAM_RACM2( 117) , SPMH_MAP_RACM2( 117) & / 'hexanol_1 ', 142 / DATA MECH_NAM_RACM2( 117) , MECH_MAP_RACM2( 117) & / 'MVK ', 30 / DATA CONV_FAC_RACM2( 117) & / 0.5 / DATA SPMH_NAM_RACM2( 118) , SPMH_MAP_RACM2( 118) & / 'met_salicylate ', 156 / DATA MECH_NAM_RACM2( 118) , MECH_MAP_RACM2( 118) & / 'MACR ', 32 / DATA CONV_FAC_RACM2( 118) & / 0.5 / DATA SPMH_NAM_RACM2( 119) , SPMH_MAP_RACM2( 119) & / 'met_salicylate ', 156 / DATA MECH_NAM_RACM2( 119) , MECH_MAP_RACM2( 119) & / 'MVK ', 30 / DATA CONV_FAC_RACM2( 119) & / 0.5 / DATA SPMH_NAM_RACM2( 120) , SPMH_MAP_RACM2( 120) & / 'cineole_1_8 ', 133 / DATA MECH_NAM_RACM2( 120) , MECH_MAP_RACM2( 120) & / 'MACR ', 32 / DATA CONV_FAC_RACM2( 120) & / 0.5 / DATA SPMH_NAM_RACM2( 121) , SPMH_MAP_RACM2( 121) & / 'cineole_1_8 ', 133 / DATA MECH_NAM_RACM2( 121) , MECH_MAP_RACM2( 121) & / 'MVK ', 30 / DATA CONV_FAC_RACM2( 121) & / 0.5 / DATA SPMH_NAM_RACM2( 122) , SPMH_MAP_RACM2( 122) & / 'hexenal_t2 ', 144 / DATA MECH_NAM_RACM2( 122) , MECH_MAP_RACM2( 122) & / 'MACR ', 32 / DATA CONV_FAC_RACM2( 122) & / 0.5 / DATA SPMH_NAM_RACM2( 123) , SPMH_MAP_RACM2( 123) & / 'hexenal_t2 ', 144 / DATA MECH_NAM_RACM2( 123) , MECH_MAP_RACM2( 123) & / 'MVK ', 30 / DATA CONV_FAC_RACM2( 123) & / 0.5 / DATA SPMH_NAM_RACM2( 124) , SPMH_MAP_RACM2( 124) & / 'hexenol_c3 ', 145 / DATA MECH_NAM_RACM2( 124) , MECH_MAP_RACM2( 124) & / 'MACR ', 32 / DATA CONV_FAC_RACM2( 124) & / 0.5 / DATA SPMH_NAM_RACM2( 125) , SPMH_MAP_RACM2( 125) & / 'hexenol_c3 ', 145 / DATA MECH_NAM_RACM2( 125) , MECH_MAP_RACM2( 125) & / 'MVK ', 30 / DATA CONV_FAC_RACM2( 125) & / 0.5 / DATA SPMH_NAM_RACM2( 126) , SPMH_MAP_RACM2( 126) & / 'hexenyl_ACT_c3 ', 146 / DATA MECH_NAM_RACM2( 126) , MECH_MAP_RACM2( 126) & / 'MACR ', 32 / DATA CONV_FAC_RACM2( 126) & / 0.5 / DATA SPMH_NAM_RACM2( 127) , SPMH_MAP_RACM2( 127) & / 'hexenyl_ACT_c3 ', 146 / DATA MECH_NAM_RACM2( 127) , MECH_MAP_RACM2( 127) & / 'MVK ', 30 / DATA CONV_FAC_RACM2( 127) & / 0.5 / DATA SPMH_NAM_RACM2( 128) , SPMH_MAP_RACM2( 128) & / 'hexenal_c3 ', 143 / DATA MECH_NAM_RACM2( 128) , MECH_MAP_RACM2( 128) & / 'MACR ', 32 / DATA CONV_FAC_RACM2( 128) & / 0.5 / DATA SPMH_NAM_RACM2( 129) , SPMH_MAP_RACM2( 129) & / 'hexenal_c3 ', 143 / DATA MECH_NAM_RACM2( 129) , MECH_MAP_RACM2( 129) & / 'MVK ', 30 / DATA CONV_FAC_RACM2( 129) & / 0.5 / DATA SPMH_NAM_RACM2( 130) , SPMH_MAP_RACM2( 130) & / '2met_nonatriene ', 137 / DATA MECH_NAM_RACM2( 130) , MECH_MAP_RACM2( 130) & / 'MACR ', 32 / DATA CONV_FAC_RACM2( 130) & / 0.5 / DATA SPMH_NAM_RACM2( 131) , SPMH_MAP_RACM2( 131) & / '2met_nonatriene ', 137 / DATA MECH_NAM_RACM2( 131) , MECH_MAP_RACM2( 131) & / 'MVK ', 30 / DATA CONV_FAC_RACM2( 131) & / 0.5 / DATA SPMH_NAM_RACM2( 132) , SPMH_MAP_RACM2( 132) & / 'methane ', 184 / DATA MECH_NAM_RACM2( 132) , MECH_MAP_RACM2( 132) & / 'CH4 ', 2 / DATA CONV_FAC_RACM2( 132) & / 1 / DATA SPMH_NAM_RACM2( 133) , SPMH_MAP_RACM2( 133) & / 'met_bromide ', 185 / DATA MECH_NAM_RACM2( 133) , MECH_MAP_RACM2( 133) & / 'CH3BR ', 33 / DATA CONV_FAC_RACM2( 133) & / 1 / DATA SPMH_NAM_RACM2( 134) , SPMH_MAP_RACM2( 134) & / 'met_chloride ', 186 / DATA MECH_NAM_RACM2( 134) , MECH_MAP_RACM2( 134) & / 'CH3CL ', 34 / DATA CONV_FAC_RACM2( 134) & / 1 / DATA SPMH_NAM_RACM2( 135) , SPMH_MAP_RACM2( 135) & / 'met_iodide ', 187 / DATA MECH_NAM_RACM2( 135) , MECH_MAP_RACM2( 135) & / 'CH3I ', 35 / DATA CONV_FAC_RACM2( 135) & / 1 / DATA SPMH_NAM_RACM2( 136) , SPMH_MAP_RACM2( 136) & / 'met_mercaptan ', 188 / DATA MECH_NAM_RACM2( 136) , MECH_MAP_RACM2( 136) & / 'TRS ', 36 / DATA CONV_FAC_RACM2( 136) & / 1 / DATA SPMH_NAM_RACM2( 137) , SPMH_MAP_RACM2( 137) & / 'carbon_2s ', 171 / DATA MECH_NAM_RACM2( 137) , MECH_MAP_RACM2( 137) & / 'TRS ', 36 / DATA CONV_FAC_RACM2( 137) & / 1 / DATA SPMH_NAM_RACM2( 138) , SPMH_MAP_RACM2( 138) & / '2met_s ', 176 / DATA MECH_NAM_RACM2( 138) , MECH_MAP_RACM2( 138) & / 'TRS ', 36 / DATA CONV_FAC_RACM2( 138) & / 1 / DATA SPMH_NAM_RACM2( 139) , SPMH_MAP_RACM2( 139) & / 'butanone_2 ', 170 / DATA MECH_NAM_RACM2( 139) , MECH_MAP_RACM2( 139) & / 'MACR ', 32 / DATA CONV_FAC_RACM2( 139) & / 0.5 / DATA SPMH_NAM_RACM2( 140) , SPMH_MAP_RACM2( 140) & / 'butanone_2 ', 170 / DATA MECH_NAM_RACM2( 140) , MECH_MAP_RACM2( 140) & / 'MVK ', 30 / DATA CONV_FAC_RACM2( 140) & / 0.5 / DATA SPMH_NAM_RACM2( 141) , SPMH_MAP_RACM2( 141) & / 'terpinyl_ACT_a ', 197 / DATA MECH_NAM_RACM2( 141) , MECH_MAP_RACM2( 141) & / 'MACR ', 32 / DATA CONV_FAC_RACM2( 141) & / 0.5 / DATA SPMH_NAM_RACM2( 142) , SPMH_MAP_RACM2( 142) & / 'terpinyl_ACT_a ', 197 / DATA MECH_NAM_RACM2( 142) , MECH_MAP_RACM2( 142) & / 'MVK ', 30 / DATA CONV_FAC_RACM2( 142) & / 0.5 / DATA SPMH_NAM_RACM2( 143) , SPMH_MAP_RACM2( 143) & / 'pentane ', 193 / DATA MECH_NAM_RACM2( 143) , MECH_MAP_RACM2( 143) & / 'HC5 ', 5 / DATA CONV_FAC_RACM2( 143) & / 1 / DATA SPMH_NAM_RACM2( 144) , SPMH_MAP_RACM2( 144) & / 'hexane ', 181 / DATA MECH_NAM_RACM2( 144) , MECH_MAP_RACM2( 144) & / 'HC5 ', 5 / DATA CONV_FAC_RACM2( 144) & / 1 / DATA SPMH_NAM_RACM2( 145) , SPMH_MAP_RACM2( 145) & / 'decane ', 173 / DATA MECH_NAM_RACM2( 145) , MECH_MAP_RACM2( 145) & / 'HC8 ', 6 / DATA CONV_FAC_RACM2( 145) & / 1 / DATA SPMH_NAM_RACM2( 146) , SPMH_MAP_RACM2( 146) & / 'heptane ', 179 / DATA MECH_NAM_RACM2( 146) , MECH_MAP_RACM2( 146) & / 'HC8 ', 6 / DATA CONV_FAC_RACM2( 146) & / 1 / DATA SPMH_NAM_RACM2( 147) , SPMH_MAP_RACM2( 147) & / 'carbonyl_s ', 172 / DATA MECH_NAM_RACM2( 147) , MECH_MAP_RACM2( 147) & / 'TRS ', 36 / DATA CONV_FAC_RACM2( 147) & / 1 / DATA SPMH_NAM_RACM2( 148) , SPMH_MAP_RACM2( 148) & / '2met_2s ', 175 / DATA MECH_NAM_RACM2( 148) , MECH_MAP_RACM2( 148) & / 'TRS ', 36 / DATA CONV_FAC_RACM2( 148) & / 1 / DATA SPMH_NAM_RACM2( 149) , SPMH_MAP_RACM2( 149) & / 'undecane ', 199 / DATA MECH_NAM_RACM2( 149) , MECH_MAP_RACM2( 149) & / 'HC8 ', 6 / DATA CONV_FAC_RACM2( 149) & / 1 / DATA SPMH_NAM_RACM2( 150) , SPMH_MAP_RACM2( 150) & / 'tetradecene_1 ', 198 / DATA MECH_NAM_RACM2( 150) , MECH_MAP_RACM2( 150) & / 'HC8 ', 6 / DATA CONV_FAC_RACM2( 150) & / 1 / DATA SPMH_NAM_RACM2( 151) , SPMH_MAP_RACM2( 151) & / 'diallyl_2s ', 174 / DATA MECH_NAM_RACM2( 151) , MECH_MAP_RACM2( 151) & / 'TRS ', 36 / DATA CONV_FAC_RACM2( 151) & / 1 / DATA SPMH_NAM_RACM2( 152) , SPMH_MAP_RACM2( 152) & / 'PPPP_2s ', 194 / DATA MECH_NAM_RACM2( 152) , MECH_MAP_RACM2( 152) & / 'TRS ', 36 / DATA CONV_FAC_RACM2( 152) & / 1 / DATA SPMH_NAM_RACM2( 153) , SPMH_MAP_RACM2( 153) & / 'met_propenyl_2s ', 189 / DATA MECH_NAM_RACM2( 153) , MECH_MAP_RACM2( 153) & / 'TRS ', 36 / DATA CONV_FAC_RACM2( 153) & / 1 / DATA SPMH_NAM_RACM2( 154) , SPMH_MAP_RACM2( 154) & / 'hydrogen_s ', 182 / DATA MECH_NAM_RACM2( 154) , MECH_MAP_RACM2( 154) & / 'TRS ', 36 / DATA CONV_FAC_RACM2( 154) & / 1 / DATA SPMH_NAM_RACM2( 155) , SPMH_MAP_RACM2( 155) & / 'carbon_monoxide ', 200 / DATA MECH_NAM_RACM2( 155) , MECH_MAP_RACM2( 155) & / 'CO ', 18 / DATA CONV_FAC_RACM2( 155) & / 1 / DATA SPMH_NAM_RACM2( 156) , SPMH_MAP_RACM2( 156) & / 'nitric_OXD ', 201 / DATA MECH_NAM_RACM2( 156) , MECH_MAP_RACM2( 156) & / 'NO ', 20 / DATA CONV_FAC_RACM2( 156) & / 1 / ================================================ FILE: CCTM/src/biog/megan3/MAP_CV2SAPRC07.EXT ================================================ C======================================================================= C MAP_CV2SAPRC07.EXT C This include file contains conversion table for 201 speciated species C to SAPRC07 (CMAQ/CAMx) species C C C MEGAN v3 C C History: C Who When What C --------------------------------------------------------------------- C Tan 07/18/11 - Created for MEGANv2.10 C Ling Huang 06/13/17 - Updated for MEGANv3 C======================================================================= CHARACTER*16 MAP_SAPRC07MECH PARAMETER (MAP_SAPRC07MECH = 'SAPRC07 ') INTEGER N_SAPRC07 PARAMETER (N_SAPRC07 = (144)) ! Number of map species CHARACTER*16 SPMH_NAM_SAPRC07( N_SAPRC07 ) ! speciated species name INTEGER SPMH_MAP_SAPRC07( N_SAPRC07 ) ! speciated species name ! mapped to SPC_SPCAT.EXT CHARACTER*16 MECH_NAM_SAPRC07( N_SAPRC07 ) ! mechanism species INTEGER MECH_MAP_SAPRC07( N_SAPRC07 ) ! mechanism species mapped REAL CONV_FAC_SAPRC07( N_SAPRC07 ) ! conversion factor DATA SPMH_NAM_SAPRC07( 1) , SPMH_MAP_SAPRC07( 1) & / 'isoprene ', 1 / DATA MECH_NAM_SAPRC07( 1) , MECH_MAP_SAPRC07( 1) & / 'ISOP ', 10 / DATA CONV_FAC_SAPRC07( 1) & / 1 / DATA SPMH_NAM_SAPRC07( 2) , SPMH_MAP_SAPRC07( 2) & / 'MBO_2m3e2ol ', 2 / DATA MECH_NAM_SAPRC07( 2) , MECH_MAP_SAPRC07( 2) & / 'OLE2 ', 9 / DATA CONV_FAC_SAPRC07( 2) & / 1 / DATA SPMH_NAM_SAPRC07( 3) , SPMH_MAP_SAPRC07( 3) & / 'pinene_a ', 3 / DATA MECH_NAM_SAPRC07( 3) , MECH_MAP_SAPRC07( 3) & / 'TERP ', 11 / DATA CONV_FAC_SAPRC07( 3) & / 1 / DATA SPMH_NAM_SAPRC07( 4) , SPMH_MAP_SAPRC07( 4) & / 'pinene_b ', 4 / DATA MECH_NAM_SAPRC07( 4) , MECH_MAP_SAPRC07( 4) & / 'TERP ', 11 / DATA CONV_FAC_SAPRC07( 4) & / 1 / DATA SPMH_NAM_SAPRC07( 5) , SPMH_MAP_SAPRC07( 5) & / 'myrcene ', 5 / DATA MECH_NAM_SAPRC07( 5) , MECH_MAP_SAPRC07( 5) & / 'TERP ', 11 / DATA CONV_FAC_SAPRC07( 5) & / 1 / DATA SPMH_NAM_SAPRC07( 6) , SPMH_MAP_SAPRC07( 6) & / 'ocimene_al ', 6 / DATA MECH_NAM_SAPRC07( 6) , MECH_MAP_SAPRC07( 6) & / 'TERP ', 11 / DATA CONV_FAC_SAPRC07( 6) & / 1 / DATA SPMH_NAM_SAPRC07( 7) , SPMH_MAP_SAPRC07( 7) & / 'ocimene_c_b ', 7 / DATA MECH_NAM_SAPRC07( 7) , MECH_MAP_SAPRC07( 7) & / 'TERP ', 11 / DATA CONV_FAC_SAPRC07( 7) & / 1 / DATA SPMH_NAM_SAPRC07( 8) , SPMH_MAP_SAPRC07( 8) & / 'ocimene_t_b ', 8 / DATA MECH_NAM_SAPRC07( 8) , MECH_MAP_SAPRC07( 8) & / 'TERP ', 11 / DATA CONV_FAC_SAPRC07( 8) & / 1 / DATA SPMH_NAM_SAPRC07( 9) , SPMH_MAP_SAPRC07( 9) & / 'camphene ', 10 / DATA MECH_NAM_SAPRC07( 9) , MECH_MAP_SAPRC07( 9) & / 'TERP ', 11 / DATA CONV_FAC_SAPRC07( 9) & / 1 / DATA SPMH_NAM_SAPRC07( 10) , SPMH_MAP_SAPRC07( 10) & / 'bornene ', 9 / DATA MECH_NAM_SAPRC07( 10) , MECH_MAP_SAPRC07( 10) & / 'TERP ', 11 / DATA CONV_FAC_SAPRC07( 10) & / 1 / DATA SPMH_NAM_SAPRC07( 11) , SPMH_MAP_SAPRC07( 11) & / 'fenchene_a ', 12 / DATA MECH_NAM_SAPRC07( 11) , MECH_MAP_SAPRC07( 11) & / 'TERP ', 11 / DATA CONV_FAC_SAPRC07( 11) & / 1 / DATA SPMH_NAM_SAPRC07( 12) , SPMH_MAP_SAPRC07( 12) & / 'tricyclene ', 14 / DATA MECH_NAM_SAPRC07( 12) , MECH_MAP_SAPRC07( 12) & / 'TERP ', 11 / DATA CONV_FAC_SAPRC07( 12) & / 1 / DATA SPMH_NAM_SAPRC07( 13) , SPMH_MAP_SAPRC07( 13) & / 'carene_3 ', 11 / DATA MECH_NAM_SAPRC07( 13) , MECH_MAP_SAPRC07( 13) & / 'TERP ', 11 / DATA CONV_FAC_SAPRC07( 13) & / 1 / DATA SPMH_NAM_SAPRC07( 14) , SPMH_MAP_SAPRC07( 14) & / 'fenchene_b ', 13 / DATA MECH_NAM_SAPRC07( 14) , MECH_MAP_SAPRC07( 14) & / 'TERP ', 11 / DATA CONV_FAC_SAPRC07( 14) & / 1 / DATA SPMH_NAM_SAPRC07( 15) , SPMH_MAP_SAPRC07( 15) & / 'phellandrene_a ', 17 / DATA MECH_NAM_SAPRC07( 15) , MECH_MAP_SAPRC07( 15) & / 'TERP ', 11 / DATA CONV_FAC_SAPRC07( 15) & / 1 / DATA SPMH_NAM_SAPRC07( 16) , SPMH_MAP_SAPRC07( 16) & / 'terpinene_g ', 20 / DATA MECH_NAM_SAPRC07( 16) , MECH_MAP_SAPRC07( 16) & / 'TERP ', 11 / DATA CONV_FAC_SAPRC07( 16) & / 1 / DATA SPMH_NAM_SAPRC07( 17) , SPMH_MAP_SAPRC07( 17) & / 'terpinene_a ', 19 / DATA MECH_NAM_SAPRC07( 17) , MECH_MAP_SAPRC07( 17) & / 'TERP ', 11 / DATA CONV_FAC_SAPRC07( 17) & / 1 / DATA SPMH_NAM_SAPRC07( 18) , SPMH_MAP_SAPRC07( 18) & / 'limonene ', 15 / DATA MECH_NAM_SAPRC07( 18) , MECH_MAP_SAPRC07( 18) & / 'TERP ', 11 / DATA CONV_FAC_SAPRC07( 18) & / 1 / DATA SPMH_NAM_SAPRC07( 19) , SPMH_MAP_SAPRC07( 19) & / 'phellandrene_b ', 16 / DATA MECH_NAM_SAPRC07( 19) , MECH_MAP_SAPRC07( 19) & / 'TERP ', 11 / DATA CONV_FAC_SAPRC07( 19) & / 1 / DATA SPMH_NAM_SAPRC07( 20) , SPMH_MAP_SAPRC07( 20) & / 'terpinolene ', 21 / DATA MECH_NAM_SAPRC07( 20) , MECH_MAP_SAPRC07( 20) & / 'TERP ', 11 / DATA CONV_FAC_SAPRC07( 20) & / 1 / DATA SPMH_NAM_SAPRC07( 21) , SPMH_MAP_SAPRC07( 21) & / 'thujene_a ', 22 / DATA MECH_NAM_SAPRC07( 21) , MECH_MAP_SAPRC07( 21) & / 'TERP ', 11 / DATA CONV_FAC_SAPRC07( 21) & / 1 / DATA SPMH_NAM_SAPRC07( 22) , SPMH_MAP_SAPRC07( 22) & / 'sabinene ', 18 / DATA MECH_NAM_SAPRC07( 22) , MECH_MAP_SAPRC07( 22) & / 'TERP ', 11 / DATA CONV_FAC_SAPRC07( 22) & / 1 / DATA SPMH_NAM_SAPRC07( 23) , SPMH_MAP_SAPRC07( 23) & / 'verbenene ', 23 / DATA MECH_NAM_SAPRC07( 23) , MECH_MAP_SAPRC07( 23) & / 'TERP ', 11 / DATA CONV_FAC_SAPRC07( 23) & / 1 / DATA SPMH_NAM_SAPRC07( 24) , SPMH_MAP_SAPRC07( 24) & / 'cymene_p ', 25 / DATA MECH_NAM_SAPRC07( 24) , MECH_MAP_SAPRC07( 24) & / 'TERP ', 11 / DATA CONV_FAC_SAPRC07( 24) & / 1 / DATA SPMH_NAM_SAPRC07( 25) , SPMH_MAP_SAPRC07( 25) & / 'cymene_o ', 24 / DATA MECH_NAM_SAPRC07( 25) , MECH_MAP_SAPRC07( 25) & / 'TERP ', 11 / DATA CONV_FAC_SAPRC07( 25) & / 1 / DATA SPMH_NAM_SAPRC07( 26) , SPMH_MAP_SAPRC07( 26) & / 'meta-cymenene ', 26 / DATA MECH_NAM_SAPRC07( 26) , MECH_MAP_SAPRC07( 26) & / 'TERP ', 11 / DATA CONV_FAC_SAPRC07( 26) & / 1 / DATA SPMH_NAM_SAPRC07( 27) , SPMH_MAP_SAPRC07( 27) & / 'p-cymenene ', 27 / DATA MECH_NAM_SAPRC07( 27) , MECH_MAP_SAPRC07( 27) & / 'TERP ', 11 / DATA CONV_FAC_SAPRC07( 27) & / 1 / DATA SPMH_NAM_SAPRC07( 28) , SPMH_MAP_SAPRC07( 28) & / 'camphor ', 30 / DATA MECH_NAM_SAPRC07( 28) , MECH_MAP_SAPRC07( 28) & / 'TERP ', 11 / DATA CONV_FAC_SAPRC07( 28) & / 1 / DATA SPMH_NAM_SAPRC07( 29) , SPMH_MAP_SAPRC07( 29) & / 'bornyl_ACT ', 29 / DATA MECH_NAM_SAPRC07( 29) , MECH_MAP_SAPRC07( 29) & / 'TERP ', 11 / DATA CONV_FAC_SAPRC07( 29) & / 1 / DATA SPMH_NAM_SAPRC07( 30) , SPMH_MAP_SAPRC07( 30) & / 'piperitone ', 38 / DATA MECH_NAM_SAPRC07( 30) , MECH_MAP_SAPRC07( 30) & / 'TERP ', 11 / DATA CONV_FAC_SAPRC07( 30) & / 1 / DATA SPMH_NAM_SAPRC07( 31) , SPMH_MAP_SAPRC07( 31) & / 'terpineol_a ', 40 / DATA MECH_NAM_SAPRC07( 31) , MECH_MAP_SAPRC07( 31) & / 'TERP ', 11 / DATA CONV_FAC_SAPRC07( 31) & / 1 / DATA SPMH_NAM_SAPRC07( 32) , SPMH_MAP_SAPRC07( 32) & / 'octanol ', 36 / DATA MECH_NAM_SAPRC07( 32) , MECH_MAP_SAPRC07( 32) & / 'TERP ', 11 / DATA CONV_FAC_SAPRC07( 32) & / 1 / DATA SPMH_NAM_SAPRC07( 33) , SPMH_MAP_SAPRC07( 33) & / 'estragole ', 31 / DATA MECH_NAM_SAPRC07( 33) , MECH_MAP_SAPRC07( 33) & / 'TERP ', 11 / DATA CONV_FAC_SAPRC07( 33) & / 1 / DATA SPMH_NAM_SAPRC07( 34) , SPMH_MAP_SAPRC07( 34) & / 'borneol ', 28 / DATA MECH_NAM_SAPRC07( 34) , MECH_MAP_SAPRC07( 34) & / 'TERP ', 11 / DATA CONV_FAC_SAPRC07( 34) & / 1 / DATA SPMH_NAM_SAPRC07( 35) , SPMH_MAP_SAPRC07( 35) & / 'thujone_b ', 42 / DATA MECH_NAM_SAPRC07( 35) , MECH_MAP_SAPRC07( 35) & / 'TERP ', 11 / DATA CONV_FAC_SAPRC07( 35) & / 1 / DATA SPMH_NAM_SAPRC07( 36) , SPMH_MAP_SAPRC07( 36) & / 'thujone_a ', 41 / DATA MECH_NAM_SAPRC07( 36) , MECH_MAP_SAPRC07( 36) & / 'TERP ', 11 / DATA CONV_FAC_SAPRC07( 36) & / 1 / DATA SPMH_NAM_SAPRC07( 37) , SPMH_MAP_SAPRC07( 37) & / 'terpineol_4 ', 39 / DATA MECH_NAM_SAPRC07( 37) , MECH_MAP_SAPRC07( 37) & / 'TERP ', 11 / DATA CONV_FAC_SAPRC07( 37) & / 1 / DATA SPMH_NAM_SAPRC07( 38) , SPMH_MAP_SAPRC07( 38) & / 'myrtenal ', 35 / DATA MECH_NAM_SAPRC07( 38) , MECH_MAP_SAPRC07( 38) & / 'TERP ', 11 / DATA CONV_FAC_SAPRC07( 38) & / 1 / DATA SPMH_NAM_SAPRC07( 39) , SPMH_MAP_SAPRC07( 39) & / 'fenchone ', 32 / DATA MECH_NAM_SAPRC07( 39) , MECH_MAP_SAPRC07( 39) & / 'TERP ', 11 / DATA CONV_FAC_SAPRC07( 39) & / 1 / DATA SPMH_NAM_SAPRC07( 40) , SPMH_MAP_SAPRC07( 40) & / 'octenol_1e3ol ', 37 / DATA MECH_NAM_SAPRC07( 40) , MECH_MAP_SAPRC07( 40) & / 'TERP ', 11 / DATA CONV_FAC_SAPRC07( 40) & / 1 / DATA SPMH_NAM_SAPRC07( 41) , SPMH_MAP_SAPRC07( 41) & / 'ionone_b ', 33 / DATA MECH_NAM_SAPRC07( 41) , MECH_MAP_SAPRC07( 41) & / 'TERP ', 11 / DATA CONV_FAC_SAPRC07( 41) & / 1 / DATA SPMH_NAM_SAPRC07( 42) , SPMH_MAP_SAPRC07( 42) & / 'ipsenol ', 34 / DATA MECH_NAM_SAPRC07( 42) , MECH_MAP_SAPRC07( 42) & / 'TERP ', 11 / DATA CONV_FAC_SAPRC07( 42) & / 1 / DATA SPMH_NAM_SAPRC07( 43) , SPMH_MAP_SAPRC07( 43) & / 'caryophyllene_b ', 51 / DATA MECH_NAM_SAPRC07( 43) , MECH_MAP_SAPRC07( 43) & / 'SESQ ', 36 / DATA CONV_FAC_SAPRC07( 43) & / 1 / DATA SPMH_NAM_SAPRC07( 44) , SPMH_MAP_SAPRC07( 44) & / 'caryophyllene_c_i ', 52 / DATA MECH_NAM_SAPRC07( 44) , MECH_MAP_SAPRC07( 44) & / 'SESQ ', 36 / DATA CONV_FAC_SAPRC07( 44) & / 1 / DATA SPMH_NAM_SAPRC07( 45) , SPMH_MAP_SAPRC07( 45) & / 'cadinene_d ', 48 / DATA MECH_NAM_SAPRC07( 45) , MECH_MAP_SAPRC07( 45) & / 'SESQ ', 36 / DATA CONV_FAC_SAPRC07( 45) & / 1 / DATA SPMH_NAM_SAPRC07( 46) , SPMH_MAP_SAPRC07( 46) & / 'cadinene_d ', 48 / DATA MECH_NAM_SAPRC07( 46) , MECH_MAP_SAPRC07( 46) & / 'SESQ ', 36 / DATA CONV_FAC_SAPRC07( 46) & / 1 / DATA SPMH_NAM_SAPRC07( 47) , SPMH_MAP_SAPRC07( 47) & / 'bisabolene_b ', 47 / DATA MECH_NAM_SAPRC07( 47) , MECH_MAP_SAPRC07( 47) & / 'SESQ ', 36 / DATA CONV_FAC_SAPRC07( 47) & / 1 / DATA SPMH_NAM_SAPRC07( 48) , SPMH_MAP_SAPRC07( 48) & / 'farnescene_a ', 54 / DATA MECH_NAM_SAPRC07( 48) , MECH_MAP_SAPRC07( 48) & / 'SESQ ', 36 / DATA CONV_FAC_SAPRC07( 48) & / 1 / DATA SPMH_NAM_SAPRC07( 49) , SPMH_MAP_SAPRC07( 49) & / 'patchoulene_b ', 65 / DATA MECH_NAM_SAPRC07( 49) , MECH_MAP_SAPRC07( 49) & / 'SESQ ', 36 / DATA CONV_FAC_SAPRC07( 49) & / 1 / DATA SPMH_NAM_SAPRC07( 50) , SPMH_MAP_SAPRC07( 50) & / 'elemene_b ', 53 / DATA MECH_NAM_SAPRC07( 50) , MECH_MAP_SAPRC07( 50) & / 'SESQ ', 36 / DATA CONV_FAC_SAPRC07( 50) & / 1 / DATA SPMH_NAM_SAPRC07( 51) , SPMH_MAP_SAPRC07( 51) & / 'nerolidol_c ', 63 / DATA MECH_NAM_SAPRC07( 51) , MECH_MAP_SAPRC07( 51) & / 'SESQ ', 36 / DATA CONV_FAC_SAPRC07( 51) & / 1 / DATA SPMH_NAM_SAPRC07( 52) , SPMH_MAP_SAPRC07( 52) & / 'farnesol ', 56 / DATA MECH_NAM_SAPRC07( 52) , MECH_MAP_SAPRC07( 52) & / 'SESQ ', 36 / DATA CONV_FAC_SAPRC07( 52) & / 1 / DATA SPMH_NAM_SAPRC07( 53) , SPMH_MAP_SAPRC07( 53) & / 'humulene_a ', 59 / DATA MECH_NAM_SAPRC07( 53) , MECH_MAP_SAPRC07( 53) & / 'SESQ ', 36 / DATA CONV_FAC_SAPRC07( 53) & / 1 / DATA SPMH_NAM_SAPRC07( 54) , SPMH_MAP_SAPRC07( 54) & / 'muurolene_a ', 61 / DATA MECH_NAM_SAPRC07( 54) , MECH_MAP_SAPRC07( 54) & / 'SESQ ', 36 / DATA CONV_FAC_SAPRC07( 54) & / 1 / DATA SPMH_NAM_SAPRC07( 55) , SPMH_MAP_SAPRC07( 55) & / 'bergamotene_a ', 44 / DATA MECH_NAM_SAPRC07( 55) , MECH_MAP_SAPRC07( 55) & / 'SESQ ', 36 / DATA CONV_FAC_SAPRC07( 55) & / 1 / DATA SPMH_NAM_SAPRC07( 56) , SPMH_MAP_SAPRC07( 56) & / 'germacrene_B ', 57 / DATA MECH_NAM_SAPRC07( 56) , MECH_MAP_SAPRC07( 56) & / 'SESQ ', 36 / DATA CONV_FAC_SAPRC07( 56) & / 1 / DATA SPMH_NAM_SAPRC07( 57) , SPMH_MAP_SAPRC07( 57) & / 'selinene_b ', 66 / DATA MECH_NAM_SAPRC07( 57) , MECH_MAP_SAPRC07( 57) & / 'SESQ ', 36 / DATA CONV_FAC_SAPRC07( 57) & / 1 / DATA SPMH_NAM_SAPRC07( 58) , SPMH_MAP_SAPRC07( 58) & / 'calarene ', 50 / DATA MECH_NAM_SAPRC07( 58) , MECH_MAP_SAPRC07( 58) & / 'SESQ ', 36 / DATA CONV_FAC_SAPRC07( 58) & / 1 / DATA SPMH_NAM_SAPRC07( 59) , SPMH_MAP_SAPRC07( 59) & / 'farnescene_b ', 55 / DATA MECH_NAM_SAPRC07( 59) , MECH_MAP_SAPRC07( 59) & / 'SESQ ', 36 / DATA CONV_FAC_SAPRC07( 59) & / 1 / DATA SPMH_NAM_SAPRC07( 60) , SPMH_MAP_SAPRC07( 60) & / 'acoradiene ', 43 / DATA MECH_NAM_SAPRC07( 60) , MECH_MAP_SAPRC07( 60) & / 'SESQ ', 36 / DATA CONV_FAC_SAPRC07( 60) & / 1 / DATA SPMH_NAM_SAPRC07( 61) , SPMH_MAP_SAPRC07( 61) & / 'humulene_g ', 60 / DATA MECH_NAM_SAPRC07( 61) , MECH_MAP_SAPRC07( 61) & / 'SESQ ', 36 / DATA CONV_FAC_SAPRC07( 61) & / 1 / DATA SPMH_NAM_SAPRC07( 62) , SPMH_MAP_SAPRC07( 62) & / 'muurolene_g ', 62 / DATA MECH_NAM_SAPRC07( 62) , MECH_MAP_SAPRC07( 62) & / 'SESQ ', 36 / DATA CONV_FAC_SAPRC07( 62) & / 1 / DATA SPMH_NAM_SAPRC07( 63) , SPMH_MAP_SAPRC07( 63) & / 'germacrene_D ', 58 / DATA MECH_NAM_SAPRC07( 63) , MECH_MAP_SAPRC07( 63) & / 'SESQ ', 36 / DATA CONV_FAC_SAPRC07( 63) & / 1 / DATA SPMH_NAM_SAPRC07( 64) , SPMH_MAP_SAPRC07( 64) & / 'cadinene_g ', 49 / DATA MECH_NAM_SAPRC07( 64) , MECH_MAP_SAPRC07( 64) & / 'SESQ ', 36 / DATA CONV_FAC_SAPRC07( 64) & / 1 / DATA SPMH_NAM_SAPRC07( 65) , SPMH_MAP_SAPRC07( 65) & / 'nerolidol_t ', 64 / DATA MECH_NAM_SAPRC07( 65) , MECH_MAP_SAPRC07( 65) & / 'SESQ ', 36 / DATA CONV_FAC_SAPRC07( 65) & / 1 / DATA SPMH_NAM_SAPRC07( 66) , SPMH_MAP_SAPRC07( 66) & / 'bergamotene_b ', 45 / DATA MECH_NAM_SAPRC07( 66) , MECH_MAP_SAPRC07( 66) & / 'SESQ ', 36 / DATA CONV_FAC_SAPRC07( 66) & / 1 / DATA SPMH_NAM_SAPRC07( 67) , SPMH_MAP_SAPRC07( 67) & / 'bisabolene_a ', 46 / DATA MECH_NAM_SAPRC07( 67) , MECH_MAP_SAPRC07( 67) & / 'SESQ ', 36 / DATA CONV_FAC_SAPRC07( 67) & / 1 / DATA SPMH_NAM_SAPRC07( 68) , SPMH_MAP_SAPRC07( 68) & / 'cedrol ', 73 / DATA MECH_NAM_SAPRC07( 68) , MECH_MAP_SAPRC07( 68) & / 'SESQ ', 36 / DATA CONV_FAC_SAPRC07( 68) & / 1 / DATA SPMH_NAM_SAPRC07( 69) , SPMH_MAP_SAPRC07( 69) & / 'homosalate ', 78 / DATA MECH_NAM_SAPRC07( 69) , MECH_MAP_SAPRC07( 69) & / 'SESQ ', 36 / DATA CONV_FAC_SAPRC07( 69) & / 1 / DATA SPMH_NAM_SAPRC07( 70) , SPMH_MAP_SAPRC07( 70) & / '2ethyl_hexyl_salate ', 68 / DATA MECH_NAM_SAPRC07( 70) , MECH_MAP_SAPRC07( 70) & / 'SESQ ', 36 / DATA CONV_FAC_SAPRC07( 70) & / 1 / DATA SPMH_NAM_SAPRC07( 71) , SPMH_MAP_SAPRC07( 71) & / 'cedrene_a ', 72 / DATA MECH_NAM_SAPRC07( 71) , MECH_MAP_SAPRC07( 71) & / 'SESQ ', 36 / DATA CONV_FAC_SAPRC07( 71) & / 1 / DATA SPMH_NAM_SAPRC07( 72) , SPMH_MAP_SAPRC07( 72) & / 'thujopsene ', 83 / DATA MECH_NAM_SAPRC07( 72) , MECH_MAP_SAPRC07( 72) & / 'SESQ ', 36 / DATA CONV_FAC_SAPRC07( 72) & / 1 / DATA SPMH_NAM_SAPRC07( 73) , SPMH_MAP_SAPRC07( 73) & / 'longifolene ', 81 / DATA MECH_NAM_SAPRC07( 73) , MECH_MAP_SAPRC07( 73) & / 'SESQ ', 36 / DATA CONV_FAC_SAPRC07( 73) & / 1 / DATA SPMH_NAM_SAPRC07( 74) , SPMH_MAP_SAPRC07( 74) & / 'cadinol_a ', 71 / DATA MECH_NAM_SAPRC07( 74) , MECH_MAP_SAPRC07( 74) & / 'SESQ ', 36 / DATA CONV_FAC_SAPRC07( 74) & / 1 / DATA SPMH_NAM_SAPRC07( 75) , SPMH_MAP_SAPRC07( 75) & / 'zingiberene_a ', 85 / DATA MECH_NAM_SAPRC07( 75) , MECH_MAP_SAPRC07( 75) & / 'SESQ ', 36 / DATA CONV_FAC_SAPRC07( 75) & / 1 / DATA SPMH_NAM_SAPRC07( 76) , SPMH_MAP_SAPRC07( 76) & / 'isolongifolene ', 79 / DATA MECH_NAM_SAPRC07( 76) , MECH_MAP_SAPRC07( 76) & / 'SESQ ', 36 / DATA CONV_FAC_SAPRC07( 76) & / 1 / DATA SPMH_NAM_SAPRC07( 77) , SPMH_MAP_SAPRC07( 77) & / 'longicyclene ', 87 / DATA MECH_NAM_SAPRC07( 77) , MECH_MAP_SAPRC07( 77) & / 'SESQ ', 36 / DATA CONV_FAC_SAPRC07( 77) & / 1 / DATA SPMH_NAM_SAPRC07( 78) , SPMH_MAP_SAPRC07( 78) & / 'copaene_a ', 74 / DATA MECH_NAM_SAPRC07( 78) , MECH_MAP_SAPRC07( 78) & / 'SESQ ', 36 / DATA CONV_FAC_SAPRC07( 78) & / 1 / DATA SPMH_NAM_SAPRC07( 79) , SPMH_MAP_SAPRC07( 79) & / 'bourbonene_b ', 70 / DATA MECH_NAM_SAPRC07( 79) , MECH_MAP_SAPRC07( 79) & / 'SESQ ', 36 / DATA CONV_FAC_SAPRC07( 79) & / 1 / DATA SPMH_NAM_SAPRC07( 80) , SPMH_MAP_SAPRC07( 80) & / 'longipinene ', 82 / DATA MECH_NAM_SAPRC07( 80) , MECH_MAP_SAPRC07( 80) & / 'SESQ ', 36 / DATA CONV_FAC_SAPRC07( 80) & / 1 / DATA SPMH_NAM_SAPRC07( 81) , SPMH_MAP_SAPRC07( 81) & / 'cubebene_b ', 76 / DATA MECH_NAM_SAPRC07( 81) , MECH_MAP_SAPRC07( 81) & / 'SESQ ', 36 / DATA CONV_FAC_SAPRC07( 81) & / 1 / DATA SPMH_NAM_SAPRC07( 82) , SPMH_MAP_SAPRC07( 82) & / 'ylangene_a ', 84 / DATA MECH_NAM_SAPRC07( 82) , MECH_MAP_SAPRC07( 82) & / 'SESQ ', 36 / DATA CONV_FAC_SAPRC07( 82) & / 1 / DATA SPMH_NAM_SAPRC07( 83) , SPMH_MAP_SAPRC07( 83) & / 'cubebene_a ', 75 / DATA MECH_NAM_SAPRC07( 83) , MECH_MAP_SAPRC07( 83) & / 'SESQ ', 36 / DATA CONV_FAC_SAPRC07( 83) & / 1 / DATA SPMH_NAM_SAPRC07( 84) , SPMH_MAP_SAPRC07( 84) & / 'copaene_b ', 86 / DATA MECH_NAM_SAPRC07( 84) , MECH_MAP_SAPRC07( 84) & / 'SESQ ', 36 / DATA CONV_FAC_SAPRC07( 84) & / 1 / DATA SPMH_NAM_SAPRC07( 85) , SPMH_MAP_SAPRC07( 85) & / 'kaur_16_ene ', 80 / DATA MECH_NAM_SAPRC07( 85) , MECH_MAP_SAPRC07( 85) & / 'SESQ ', 36 / DATA CONV_FAC_SAPRC07( 85) & / 1 / DATA SPMH_NAM_SAPRC07( 86) , SPMH_MAP_SAPRC07( 86) & / 'gurjunene_b ', 77 / DATA MECH_NAM_SAPRC07( 86) , MECH_MAP_SAPRC07( 86) & / 'SESQ ', 36 / DATA CONV_FAC_SAPRC07( 86) & / 1 / DATA SPMH_NAM_SAPRC07( 87) , SPMH_MAP_SAPRC07( 87) & / 'aromadendrene ', 69 / DATA MECH_NAM_SAPRC07( 87) , MECH_MAP_SAPRC07( 87) & / 'SESQ ', 36 / DATA CONV_FAC_SAPRC07( 87) & / 1 / DATA SPMH_NAM_SAPRC07( 88) , SPMH_MAP_SAPRC07( 88) & / 'methanol ', 88 / DATA MECH_NAM_SAPRC07( 88) , MECH_MAP_SAPRC07( 88) & / 'MEOH ', 23 / DATA CONV_FAC_SAPRC07( 88) & / 1 / DATA SPMH_NAM_SAPRC07( 89) , SPMH_MAP_SAPRC07( 89) & / 'acetone ', 89 / DATA MECH_NAM_SAPRC07( 89) , MECH_MAP_SAPRC07( 89) & / 'ACET ', 20 / DATA CONV_FAC_SAPRC07( 89) & / 1 / DATA SPMH_NAM_SAPRC07( 90) , SPMH_MAP_SAPRC07( 90) & / 'ethanol ', 91 / DATA MECH_NAM_SAPRC07( 90) , MECH_MAP_SAPRC07( 90) & / 'ALK3 ', 4 / DATA CONV_FAC_SAPRC07( 90) & / 1 / DATA SPMH_NAM_SAPRC07( 91) , SPMH_MAP_SAPRC07( 91) & / 'acetaldehyde ', 90 / DATA MECH_NAM_SAPRC07( 91) , MECH_MAP_SAPRC07( 91) & / 'CCHO ', 17 / DATA CONV_FAC_SAPRC07( 91) & / 1 / DATA SPMH_NAM_SAPRC07( 92) , SPMH_MAP_SAPRC07( 92) & / 'formic_acid ', 93 / DATA MECH_NAM_SAPRC07( 92) , MECH_MAP_SAPRC07( 92) & / 'FACD ', 24 / DATA CONV_FAC_SAPRC07( 92) & / 1 / DATA SPMH_NAM_SAPRC07( 93) , SPMH_MAP_SAPRC07( 93) & / 'acetic_acid ', 92 / DATA MECH_NAM_SAPRC07( 93) , MECH_MAP_SAPRC07( 93) & / 'AACD ', 25 / DATA CONV_FAC_SAPRC07( 93) & / 1 / DATA SPMH_NAM_SAPRC07( 94) , SPMH_MAP_SAPRC07( 94) & / 'ethane ', 100 / DATA MECH_NAM_SAPRC07( 94) , MECH_MAP_SAPRC07( 94) & / 'ALK2 ', 3 / DATA CONV_FAC_SAPRC07( 94) & / 1 / DATA SPMH_NAM_SAPRC07( 95) , SPMH_MAP_SAPRC07( 95) & / 'ethene ', 101 / DATA MECH_NAM_SAPRC07( 95) , MECH_MAP_SAPRC07( 95) & / 'ETHE ', 7 / DATA CONV_FAC_SAPRC07( 95) & / 1 / DATA SPMH_NAM_SAPRC07( 96) , SPMH_MAP_SAPRC07( 96) & / 'propane ', 102 / DATA MECH_NAM_SAPRC07( 96) , MECH_MAP_SAPRC07( 96) & / 'ALK2 ', 3 / DATA CONV_FAC_SAPRC07( 96) & / 1 / DATA SPMH_NAM_SAPRC07( 97) , SPMH_MAP_SAPRC07( 97) & / 'butene ', 97 / DATA MECH_NAM_SAPRC07( 97) , MECH_MAP_SAPRC07( 97) & / 'OLE1 ', 8 / DATA CONV_FAC_SAPRC07( 97) & / 1 / DATA SPMH_NAM_SAPRC07( 98) , SPMH_MAP_SAPRC07( 98) & / 'propene ', 103 / DATA MECH_NAM_SAPRC07( 98) , MECH_MAP_SAPRC07( 98) & / 'OLE1 ', 8 / DATA CONV_FAC_SAPRC07( 98) & / 1 / DATA SPMH_NAM_SAPRC07( 99) , SPMH_MAP_SAPRC07( 99) & / '2_methylprop_1_ene ', 95 / DATA MECH_NAM_SAPRC07( 99) , MECH_MAP_SAPRC07( 99) & / 'OLE1 ', 8 / DATA CONV_FAC_SAPRC07( 99) & / 1 / DATA SPMH_NAM_SAPRC07( 100) , SPMH_MAP_SAPRC07( 100) & / 'butene_c2 ', 98 / DATA MECH_NAM_SAPRC07( 100) , MECH_MAP_SAPRC07( 100) & / 'OLE2 ', 9 / DATA CONV_FAC_SAPRC07( 100) & / 1 / DATA SPMH_NAM_SAPRC07( 101) , SPMH_MAP_SAPRC07( 101) & / 'butene_t2 ', 99 / DATA MECH_NAM_SAPRC07( 101) , MECH_MAP_SAPRC07( 101) & / 'OLE2 ', 9 / DATA CONV_FAC_SAPRC07( 101) & / 1 / DATA SPMH_NAM_SAPRC07( 102) , SPMH_MAP_SAPRC07( 102) & / 'formaldehyde ', 113 / DATA MECH_NAM_SAPRC07( 102) , MECH_MAP_SAPRC07( 102) & / 'HCHO ', 16 / DATA CONV_FAC_SAPRC07( 102) & / 1 / DATA SPMH_NAM_SAPRC07( 103) , SPMH_MAP_SAPRC07( 103) & / 'met_heptenone ', 106 / DATA MECH_NAM_SAPRC07( 103) , MECH_MAP_SAPRC07( 103) & / 'IPRD ', 33 / DATA CONV_FAC_SAPRC07( 103) & / 1 / DATA SPMH_NAM_SAPRC07( 104) , SPMH_MAP_SAPRC07( 104) & / 'oxopentanal ', 114 / DATA MECH_NAM_SAPRC07( 104) , MECH_MAP_SAPRC07( 104) & / 'IPRD ', 33 / DATA CONV_FAC_SAPRC07( 104) & / 1 / DATA SPMH_NAM_SAPRC07( 105) , SPMH_MAP_SAPRC07( 105) & / 'geranyl_acetone ', 105 / DATA MECH_NAM_SAPRC07( 105) , MECH_MAP_SAPRC07( 105) & / 'IPRD ', 33 / DATA CONV_FAC_SAPRC07( 105) & / 1 / DATA SPMH_NAM_SAPRC07( 106) , SPMH_MAP_SAPRC07( 106) & / 'hexanal ', 141 / DATA MECH_NAM_SAPRC07( 106) , MECH_MAP_SAPRC07( 106) & / 'IPRD ', 33 / DATA CONV_FAC_SAPRC07( 106) & / 1 / DATA SPMH_NAM_SAPRC07( 107) , SPMH_MAP_SAPRC07( 107) & / 'hydrogen_cyanide ', 147 / DATA MECH_NAM_SAPRC07( 107) , MECH_MAP_SAPRC07( 107) & / 'HCN ', 37 / DATA CONV_FAC_SAPRC07( 107) & / 1 / DATA SPMH_NAM_SAPRC07( 108) , SPMH_MAP_SAPRC07( 108) & / 'linalool ', 150 / DATA MECH_NAM_SAPRC07( 108) , MECH_MAP_SAPRC07( 108) & / 'IPRD ', 33 / DATA CONV_FAC_SAPRC07( 108) & / 1 / DATA SPMH_NAM_SAPRC07( 109) , SPMH_MAP_SAPRC07( 109) & / 'methacrolein ', 153 / DATA MECH_NAM_SAPRC07( 109) , MECH_MAP_SAPRC07( 109) & / 'IPRD ', 33 / DATA CONV_FAC_SAPRC07( 109) & / 1 / DATA SPMH_NAM_SAPRC07( 110) , SPMH_MAP_SAPRC07( 110) & / 'met_vinylketone ', 158 / DATA MECH_NAM_SAPRC07( 110) , MECH_MAP_SAPRC07( 110) & / 'IPRD ', 33 / DATA CONV_FAC_SAPRC07( 110) & / 1 / DATA SPMH_NAM_SAPRC07( 111) , SPMH_MAP_SAPRC07( 111) & / 'hexanol_1 ', 142 / DATA MECH_NAM_SAPRC07( 111) , MECH_MAP_SAPRC07( 111) & / 'IPRD ', 33 / DATA CONV_FAC_SAPRC07( 111) & / 1 / DATA SPMH_NAM_SAPRC07( 112) , SPMH_MAP_SAPRC07( 112) & / 'met_salicylate ', 156 / DATA MECH_NAM_SAPRC07( 112) , MECH_MAP_SAPRC07( 112) & / 'IPRD ', 33 / DATA CONV_FAC_SAPRC07( 112) & / 1 / DATA SPMH_NAM_SAPRC07( 113) , SPMH_MAP_SAPRC07( 113) & / 'cineole_1_8 ', 133 / DATA MECH_NAM_SAPRC07( 113) , MECH_MAP_SAPRC07( 113) & / 'IPRD ', 33 / DATA CONV_FAC_SAPRC07( 113) & / 1 / DATA SPMH_NAM_SAPRC07( 114) , SPMH_MAP_SAPRC07( 114) & / 'hexenal_t2 ', 144 / DATA MECH_NAM_SAPRC07( 114) , MECH_MAP_SAPRC07( 114) & / 'IPRD ', 33 / DATA CONV_FAC_SAPRC07( 114) & / 1 / DATA SPMH_NAM_SAPRC07( 115) , SPMH_MAP_SAPRC07( 115) & / 'hexenol_c3 ', 145 / DATA MECH_NAM_SAPRC07( 115) , MECH_MAP_SAPRC07( 115) & / 'IPRD ', 33 / DATA CONV_FAC_SAPRC07( 115) & / 1 / DATA SPMH_NAM_SAPRC07( 116) , SPMH_MAP_SAPRC07( 116) & / 'hexenyl_ACT_c3 ', 146 / DATA MECH_NAM_SAPRC07( 116) , MECH_MAP_SAPRC07( 116) & / 'IPRD ', 33 / DATA CONV_FAC_SAPRC07( 116) & / 1 / DATA SPMH_NAM_SAPRC07( 117) , SPMH_MAP_SAPRC07( 117) & / 'hexenal_c3 ', 143 / DATA MECH_NAM_SAPRC07( 117) , MECH_MAP_SAPRC07( 117) & / 'IPRD ', 33 / DATA CONV_FAC_SAPRC07( 117) & / 1 / DATA SPMH_NAM_SAPRC07( 118) , SPMH_MAP_SAPRC07( 118) & / '2met_nonatriene ', 137 / DATA MECH_NAM_SAPRC07( 118) , MECH_MAP_SAPRC07( 118) & / 'IPRD ', 33 / DATA CONV_FAC_SAPRC07( 118) & / 1 / DATA SPMH_NAM_SAPRC07( 119) , SPMH_MAP_SAPRC07( 119) & / 'methane ', 184 / DATA MECH_NAM_SAPRC07( 119) , MECH_MAP_SAPRC07( 119) & / 'ALK1 ', 2 / DATA CONV_FAC_SAPRC07( 119) & / 1 / DATA SPMH_NAM_SAPRC07( 120) , SPMH_MAP_SAPRC07( 120) & / 'met_bromide ', 185 / DATA MECH_NAM_SAPRC07( 120) , MECH_MAP_SAPRC07( 120) & / 'CH3BR ', 38 / DATA CONV_FAC_SAPRC07( 120) & / 1 / DATA SPMH_NAM_SAPRC07( 121) , SPMH_MAP_SAPRC07( 121) & / 'met_chloride ', 186 / DATA MECH_NAM_SAPRC07( 121) , MECH_MAP_SAPRC07( 121) & / 'CH3CL ', 39 / DATA CONV_FAC_SAPRC07( 121) & / 1 / DATA SPMH_NAM_SAPRC07( 122) , SPMH_MAP_SAPRC07( 122) & / 'met_iodide ', 187 / DATA MECH_NAM_SAPRC07( 122) , MECH_MAP_SAPRC07( 122) & / 'CH3I ', 40 / DATA CONV_FAC_SAPRC07( 122) & / 1 / DATA SPMH_NAM_SAPRC07( 123) , SPMH_MAP_SAPRC07( 123) & / 'met_mercaptan ', 188 / DATA MECH_NAM_SAPRC07( 123) , MECH_MAP_SAPRC07( 123) & / 'TRS ', 41 / DATA CONV_FAC_SAPRC07( 123) & / 1 / DATA SPMH_NAM_SAPRC07( 124) , SPMH_MAP_SAPRC07( 124) & / 'carbon_2s ', 171 / DATA MECH_NAM_SAPRC07( 124) , MECH_MAP_SAPRC07( 124) & / 'TRS ', 41 / DATA CONV_FAC_SAPRC07( 124) & / 1 / DATA SPMH_NAM_SAPRC07( 125) , SPMH_MAP_SAPRC07( 125) & / '2met_s ', 176 / DATA MECH_NAM_SAPRC07( 125) , MECH_MAP_SAPRC07( 125) & / 'TRS ', 41 / DATA CONV_FAC_SAPRC07( 125) & / 1 / DATA SPMH_NAM_SAPRC07( 126) , SPMH_MAP_SAPRC07( 126) & / 'butanone_2 ', 170 / DATA MECH_NAM_SAPRC07( 126) , MECH_MAP_SAPRC07( 126) & / 'IPRD ', 33 / DATA CONV_FAC_SAPRC07( 126) & / 1 / DATA SPMH_NAM_SAPRC07( 127) , SPMH_MAP_SAPRC07( 127) & / 'terpinyl_ACT_a ', 197 / DATA MECH_NAM_SAPRC07( 127) , MECH_MAP_SAPRC07( 127) & / 'IPRD ', 33 / DATA CONV_FAC_SAPRC07( 127) & / 1 / DATA SPMH_NAM_SAPRC07( 128) , SPMH_MAP_SAPRC07( 128) & / 'pentane ', 193 / DATA MECH_NAM_SAPRC07( 128) , MECH_MAP_SAPRC07( 128) & / 'ALK4 ', 5 / DATA CONV_FAC_SAPRC07( 128) & / 1 / DATA SPMH_NAM_SAPRC07( 129) , SPMH_MAP_SAPRC07( 129) & / 'hexane ', 181 / DATA MECH_NAM_SAPRC07( 129) , MECH_MAP_SAPRC07( 129) & / 'ALK5 ', 6 / DATA CONV_FAC_SAPRC07( 129) & / 1 / DATA SPMH_NAM_SAPRC07( 130) , SPMH_MAP_SAPRC07( 130) & / 'decane ', 173 / DATA MECH_NAM_SAPRC07( 130) , MECH_MAP_SAPRC07( 130) & / 'ALK5 ', 6 / DATA CONV_FAC_SAPRC07( 130) & / 1 / DATA SPMH_NAM_SAPRC07( 131) , SPMH_MAP_SAPRC07( 131) & / 'heptane ', 179 / DATA MECH_NAM_SAPRC07( 131) , MECH_MAP_SAPRC07( 131) & / 'ALK5 ', 6 / DATA CONV_FAC_SAPRC07( 131) & / 1 / DATA SPMH_NAM_SAPRC07( 132) , SPMH_MAP_SAPRC07( 132) & / 'carbonyl_s ', 172 / DATA MECH_NAM_SAPRC07( 132) , MECH_MAP_SAPRC07( 132) & / 'TRS ', 41 / DATA CONV_FAC_SAPRC07( 132) & / 1 / DATA SPMH_NAM_SAPRC07( 133) , SPMH_MAP_SAPRC07( 133) & / '2met_2s ', 175 / DATA MECH_NAM_SAPRC07( 133) , MECH_MAP_SAPRC07( 133) & / 'TRS ', 41 / DATA CONV_FAC_SAPRC07( 133) & / 1 / DATA SPMH_NAM_SAPRC07( 134) , SPMH_MAP_SAPRC07( 134) & / 'undecane ', 199 / DATA MECH_NAM_SAPRC07( 134) , MECH_MAP_SAPRC07( 134) & / 'ALK5 ', 6 / DATA CONV_FAC_SAPRC07( 134) & / 1 / DATA SPMH_NAM_SAPRC07( 135) , SPMH_MAP_SAPRC07( 135) & / 'tetradecene_1 ', 198 / DATA MECH_NAM_SAPRC07( 135) , MECH_MAP_SAPRC07( 135) & / 'ALK5 ', 6 / DATA CONV_FAC_SAPRC07( 135) & / 1 / DATA SPMH_NAM_SAPRC07( 136) , SPMH_MAP_SAPRC07( 136) & / 'diallyl_2s ', 174 / DATA MECH_NAM_SAPRC07( 136) , MECH_MAP_SAPRC07( 136) & / 'TRS ', 41 / DATA CONV_FAC_SAPRC07( 136) & / 1 / DATA SPMH_NAM_SAPRC07( 137) , SPMH_MAP_SAPRC07( 137) & / 'PPPP_2s ', 194 / DATA MECH_NAM_SAPRC07( 137) , MECH_MAP_SAPRC07( 137) & / 'TRS ', 41 / DATA CONV_FAC_SAPRC07( 137) & / 1 / DATA SPMH_NAM_SAPRC07( 138) , SPMH_MAP_SAPRC07( 138) & / 'met_propenyl_2s ', 189 / DATA MECH_NAM_SAPRC07( 138) , MECH_MAP_SAPRC07( 138) & / 'TRS ', 41 / DATA CONV_FAC_SAPRC07( 138) & / 1 / DATA SPMH_NAM_SAPRC07( 139) , SPMH_MAP_SAPRC07( 139) & / 'hydrogen_s ', 182 / DATA MECH_NAM_SAPRC07( 139) , MECH_MAP_SAPRC07( 139) & / 'TRS ', 41 / DATA CONV_FAC_SAPRC07( 139) & / 1 / DATA SPMH_NAM_SAPRC07( 140) , SPMH_MAP_SAPRC07( 140) & / 'carbon_monoxide ', 200 / DATA MECH_NAM_SAPRC07( 140) , MECH_MAP_SAPRC07( 140) & / 'CO ', 35 / DATA CONV_FAC_SAPRC07( 140) & / 1 / DATA SPMH_NAM_SAPRC07( 141) , SPMH_MAP_SAPRC07( 141) & / 'nitric_OXD ', 201 / DATA MECH_NAM_SAPRC07( 141) , MECH_MAP_SAPRC07( 141) & / 'NO ', 42 / DATA CONV_FAC_SAPRC07( 141) & / 1 / DATA SPMH_NAM_SAPRC07( 142) , SPMH_MAP_SAPRC07( 142) & / 'pinene_a ', 3 / DATA MECH_NAM_SAPRC07( 142) , MECH_MAP_SAPRC07( 142) & / 'APIN ', 45 / DATA CONV_FAC_SAPRC07( 142) & / 1 / DATA SPMH_NAM_SAPRC07( 143) , SPMH_MAP_SAPRC07( 143) & / 'formaldehyde ', 113 / DATA MECH_NAM_SAPRC07( 143) , MECH_MAP_SAPRC07( 143) & / 'HCHO_PRIMARY', 46 / DATA CONV_FAC_SAPRC07( 143) & / 1 / DATA SPMH_NAM_SAPRC07( 144) , SPMH_MAP_SAPRC07( 144) & / 'acetaldehyde ', 90 / DATA MECH_NAM_SAPRC07( 144) , MECH_MAP_SAPRC07( 144) & / 'CCHO_PRIMARY', 47 / DATA CONV_FAC_SAPRC07( 144) & / 1 / ================================================ FILE: CCTM/src/biog/megan3/MAP_CV2SAPRC07T.EXT ================================================ CRESC======================================================================= C MAP_CV2SAPRC07.EXT C This include file contains conversion table for 201 speciated species C to SAPRC07 (CMAQ/CAMx) species C C C MEGAN v3 C C History: C Who When What C --------------------------------------------------------------------- C Tan 07/18/11 - Created for MEGANv2.10 C Ling Huang 06/13/17 - Updated for MEGANv3 C======================================================================= CHARACTER*16 MAP_SAPRC07TMECH PARAMETER (MAP_SAPRC07TMECH = 'SAPRC07T ') INTEGER N_SAPRC07T PARAMETER (N_SAPRC07T = 170) ! Number of map species CHARACTER*16 SPMH_NAM_SAPRC07T( N_SAPRC07T ) ! speciated species name INTEGER SPMH_MAP_SAPRC07T( N_SAPRC07T ) ! speciated species name ! mapped to SPC_SPCAT.EXT CHARACTER*16 MECH_NAM_SAPRC07T( N_SAPRC07T ) ! mechanism species INTEGER MECH_MAP_SAPRC07T( N_SAPRC07T ) ! mechanism species mapped REAL CONV_FAC_SAPRC07T( N_SAPRC07T ) ! conversion factor DATA SPMH_NAM_SAPRC07T( 1), SPMH_MAP_SAPRC07T( 1) / 'isoprene ', 1 / DATA MECH_NAM_SAPRC07T( 1), MECH_MAP_SAPRC07T( 1) / 'ISOPRENE ', 10 / DATA CONV_FAC_SAPRC07T( 1) / 1 / DATA SPMH_NAM_SAPRC07T( 2), SPMH_MAP_SAPRC07T( 2) / 'MBO_2m3e2ol ', 2 / DATA MECH_NAM_SAPRC07T( 2), MECH_MAP_SAPRC07T( 2) / 'OLE2 ', 9 / DATA CONV_FAC_SAPRC07T( 2) / 1 / DATA SPMH_NAM_SAPRC07T( 3), SPMH_MAP_SAPRC07T( 3) / 'pinene_b ', 4 / DATA MECH_NAM_SAPRC07T( 3), MECH_MAP_SAPRC07T( 3) / 'TERP ', 11 / DATA CONV_FAC_SAPRC07T( 3) / 1 / DATA SPMH_NAM_SAPRC07T( 4), SPMH_MAP_SAPRC07T( 4) / 'myrcene ', 5 / DATA MECH_NAM_SAPRC07T( 4), MECH_MAP_SAPRC07T( 4) / 'TERP ', 11 / DATA CONV_FAC_SAPRC07T( 4) / 1 / DATA SPMH_NAM_SAPRC07T( 5), SPMH_MAP_SAPRC07T( 5) / 'ocimene_al ', 6 / DATA MECH_NAM_SAPRC07T( 5), MECH_MAP_SAPRC07T( 5) / 'TERP ', 11 / DATA CONV_FAC_SAPRC07T( 5) / 1 / DATA SPMH_NAM_SAPRC07T( 6), SPMH_MAP_SAPRC07T( 6) / 'ocimene_c_b ', 7 / DATA MECH_NAM_SAPRC07T( 6), MECH_MAP_SAPRC07T( 6) / 'TERP ', 11 / DATA CONV_FAC_SAPRC07T( 6) / 1 / DATA SPMH_NAM_SAPRC07T( 7), SPMH_MAP_SAPRC07T( 7) / 'ocimene_t_b ', 8 / DATA MECH_NAM_SAPRC07T( 7), MECH_MAP_SAPRC07T( 7) / 'TERP ', 11 / DATA CONV_FAC_SAPRC07T( 7) / 1 / DATA SPMH_NAM_SAPRC07T( 8), SPMH_MAP_SAPRC07T( 8) / 'camphene ', 10 / DATA MECH_NAM_SAPRC07T( 8), MECH_MAP_SAPRC07T( 8) / 'TERP ', 11 / DATA CONV_FAC_SAPRC07T( 8) / 1 / DATA SPMH_NAM_SAPRC07T( 9), SPMH_MAP_SAPRC07T( 9) / 'bornene ', 9 / DATA MECH_NAM_SAPRC07T( 9), MECH_MAP_SAPRC07T( 9) / 'TERP ', 11 / DATA CONV_FAC_SAPRC07T( 9) / 1 / DATA SPMH_NAM_SAPRC07T( 10), SPMH_MAP_SAPRC07T( 10) / 'fenchene_a ', 12 / DATA MECH_NAM_SAPRC07T( 10), MECH_MAP_SAPRC07T( 10) / 'TERP ', 11 / DATA CONV_FAC_SAPRC07T( 10) / 1 / DATA SPMH_NAM_SAPRC07T( 11), SPMH_MAP_SAPRC07T( 11) / 'tricyclene ', 14 / DATA MECH_NAM_SAPRC07T( 11), MECH_MAP_SAPRC07T( 11) / 'TERP ', 11 / DATA CONV_FAC_SAPRC07T( 11) / 1 / DATA SPMH_NAM_SAPRC07T( 12), SPMH_MAP_SAPRC07T( 12) / 'carene_3 ', 11 / DATA MECH_NAM_SAPRC07T( 12), MECH_MAP_SAPRC07T( 12) / 'TERP ', 11 / DATA CONV_FAC_SAPRC07T( 12) / 1 / DATA SPMH_NAM_SAPRC07T( 13), SPMH_MAP_SAPRC07T( 13) / 'fenchene_b ', 13 / DATA MECH_NAM_SAPRC07T( 13), MECH_MAP_SAPRC07T( 13) / 'TERP ', 11 / DATA CONV_FAC_SAPRC07T( 13) / 1 / DATA SPMH_NAM_SAPRC07T( 14), SPMH_MAP_SAPRC07T( 14) / 'phellandrene_a ', 17 / DATA MECH_NAM_SAPRC07T( 14), MECH_MAP_SAPRC07T( 14) / 'TERP ', 11 / DATA CONV_FAC_SAPRC07T( 14) / 1 / DATA SPMH_NAM_SAPRC07T( 15), SPMH_MAP_SAPRC07T( 15) / 'terpinene_g ', 20 / DATA MECH_NAM_SAPRC07T( 15), MECH_MAP_SAPRC07T( 15) / 'TERP ', 11 / DATA CONV_FAC_SAPRC07T( 15) / 1 / DATA SPMH_NAM_SAPRC07T( 16), SPMH_MAP_SAPRC07T( 16) / 'terpinene_a ', 19 / DATA MECH_NAM_SAPRC07T( 16), MECH_MAP_SAPRC07T( 16) / 'TERP ', 11 / DATA CONV_FAC_SAPRC07T( 16) / 1 / DATA SPMH_NAM_SAPRC07T( 17), SPMH_MAP_SAPRC07T( 17) / 'limonene ', 15 / DATA MECH_NAM_SAPRC07T( 17), MECH_MAP_SAPRC07T( 17) / 'TERP ', 11 / DATA CONV_FAC_SAPRC07T( 17) / 1 / DATA SPMH_NAM_SAPRC07T( 18), SPMH_MAP_SAPRC07T( 18) / 'phellandrene_b ', 16 / DATA MECH_NAM_SAPRC07T( 18), MECH_MAP_SAPRC07T( 18) / 'TERP ', 11 / DATA CONV_FAC_SAPRC07T( 18) / 1 / DATA SPMH_NAM_SAPRC07T( 19), SPMH_MAP_SAPRC07T( 19) / 'terpinolene ', 21 / DATA MECH_NAM_SAPRC07T( 19), MECH_MAP_SAPRC07T( 19) / 'TERP ', 11 / DATA CONV_FAC_SAPRC07T( 19) / 1 / DATA SPMH_NAM_SAPRC07T( 20), SPMH_MAP_SAPRC07T( 20) / 'thujene_a ', 22 / DATA MECH_NAM_SAPRC07T( 20), MECH_MAP_SAPRC07T( 20) / 'TERP ', 11 / DATA CONV_FAC_SAPRC07T( 20) / 1 / DATA SPMH_NAM_SAPRC07T( 21), SPMH_MAP_SAPRC07T( 21) / 'sabinene ', 18 / DATA MECH_NAM_SAPRC07T( 21), MECH_MAP_SAPRC07T( 21) / 'TERP ', 11 / DATA CONV_FAC_SAPRC07T( 21) / 1 / DATA SPMH_NAM_SAPRC07T( 22), SPMH_MAP_SAPRC07T( 22) / 'verbenene ', 23 / DATA MECH_NAM_SAPRC07T( 22), MECH_MAP_SAPRC07T( 22) / 'TERP ', 11 / DATA CONV_FAC_SAPRC07T( 22) / 1 / DATA SPMH_NAM_SAPRC07T( 23), SPMH_MAP_SAPRC07T( 23) / 'cymene_p ', 25 / DATA MECH_NAM_SAPRC07T( 23), MECH_MAP_SAPRC07T( 23) / 'ARO2MN ', 14 / DATA CONV_FAC_SAPRC07T( 23) / 1 / DATA SPMH_NAM_SAPRC07T( 24), SPMH_MAP_SAPRC07T( 24) / 'cymene_o ', 24 / DATA MECH_NAM_SAPRC07T( 24), MECH_MAP_SAPRC07T( 24) / 'ARO2MN ', 14 / DATA CONV_FAC_SAPRC07T( 24) / 1 / DATA SPMH_NAM_SAPRC07T( 25), SPMH_MAP_SAPRC07T( 25) / 'meta-cymenene ', 26 / DATA MECH_NAM_SAPRC07T( 25), MECH_MAP_SAPRC07T( 25) / 'ARO2MN ', 14 / DATA CONV_FAC_SAPRC07T( 25) / 1 / DATA SPMH_NAM_SAPRC07T( 26), SPMH_MAP_SAPRC07T( 26) / 'p-cymenene ', 27 / DATA MECH_NAM_SAPRC07T( 26), MECH_MAP_SAPRC07T( 26) / 'ARO2MN ', 14 / DATA CONV_FAC_SAPRC07T( 26) / 1 / DATA SPMH_NAM_SAPRC07T( 27), SPMH_MAP_SAPRC07T( 27) / 'camphor ', 30 / DATA MECH_NAM_SAPRC07T( 27), MECH_MAP_SAPRC07T( 27) / 'MEK ', 21 / DATA CONV_FAC_SAPRC07T( 27) / 1 / DATA SPMH_NAM_SAPRC07T( 28), SPMH_MAP_SAPRC07T( 28) / 'bornyl_ACT ', 29 / DATA MECH_NAM_SAPRC07T( 28), MECH_MAP_SAPRC07T( 28) / 'ALK5 ', 6 / DATA CONV_FAC_SAPRC07T( 28) / 1 / DATA SPMH_NAM_SAPRC07T( 29), SPMH_MAP_SAPRC07T( 29) / 'piperitone ', 38 / DATA MECH_NAM_SAPRC07T( 29), MECH_MAP_SAPRC07T( 29) / 'TERP ', 11 / DATA CONV_FAC_SAPRC07T( 29) / 1 / DATA SPMH_NAM_SAPRC07T( 30), SPMH_MAP_SAPRC07T( 30) / 'terpineol_a ', 40 / DATA MECH_NAM_SAPRC07T( 30), MECH_MAP_SAPRC07T( 30) / 'TERP ', 11 / DATA CONV_FAC_SAPRC07T( 30) / 1 / DATA SPMH_NAM_SAPRC07T( 31), SPMH_MAP_SAPRC07T( 31) / 'octanol ', 36 / DATA MECH_NAM_SAPRC07T( 31), MECH_MAP_SAPRC07T( 31) / 'TERP ', 11 / DATA CONV_FAC_SAPRC07T( 31) / 1 / DATA SPMH_NAM_SAPRC07T( 32), SPMH_MAP_SAPRC07T( 32) / 'estragole ', 31 / DATA MECH_NAM_SAPRC07T( 32), MECH_MAP_SAPRC07T( 32) / 'TERP ', 11 / DATA CONV_FAC_SAPRC07T( 32) / 1 / DATA SPMH_NAM_SAPRC07T( 33), SPMH_MAP_SAPRC07T( 33) / 'borneol ', 28 / DATA MECH_NAM_SAPRC07T( 33), MECH_MAP_SAPRC07T( 33) / 'TERP ', 11 / DATA CONV_FAC_SAPRC07T( 33) / 1 / DATA SPMH_NAM_SAPRC07T( 34), SPMH_MAP_SAPRC07T( 34) / 'thujone_b ', 42 / DATA MECH_NAM_SAPRC07T( 34), MECH_MAP_SAPRC07T( 34) / 'TERP ', 11 / DATA CONV_FAC_SAPRC07T( 34) / 1 / DATA SPMH_NAM_SAPRC07T( 35), SPMH_MAP_SAPRC07T( 35) / 'thujone_a ', 41 / DATA MECH_NAM_SAPRC07T( 35), MECH_MAP_SAPRC07T( 35) / 'TERP ', 11 / DATA CONV_FAC_SAPRC07T( 35) / 1 / DATA SPMH_NAM_SAPRC07T( 36), SPMH_MAP_SAPRC07T( 36) / 'terpineol_4 ', 39 / DATA MECH_NAM_SAPRC07T( 36), MECH_MAP_SAPRC07T( 36) / 'TERP ', 11 / DATA CONV_FAC_SAPRC07T( 36) / 1 / DATA SPMH_NAM_SAPRC07T( 37), SPMH_MAP_SAPRC07T( 37) / 'myrtenal ', 35 / DATA MECH_NAM_SAPRC07T( 37), MECH_MAP_SAPRC07T( 37) / 'TERP ', 11 / DATA CONV_FAC_SAPRC07T( 37) / 1 / DATA SPMH_NAM_SAPRC07T( 38), SPMH_MAP_SAPRC07T( 38) / 'fenchone ', 32 / DATA MECH_NAM_SAPRC07T( 38), MECH_MAP_SAPRC07T( 38) / 'TERP ', 11 / DATA CONV_FAC_SAPRC07T( 38) / 1 / DATA SPMH_NAM_SAPRC07T( 39), SPMH_MAP_SAPRC07T( 39) / 'octenol_1e3ol ', 37 / DATA MECH_NAM_SAPRC07T( 39), MECH_MAP_SAPRC07T( 39) / 'TERP ', 11 / DATA CONV_FAC_SAPRC07T( 39) / 1 / DATA SPMH_NAM_SAPRC07T( 40), SPMH_MAP_SAPRC07T( 40) / 'ionone_b ', 33 / DATA MECH_NAM_SAPRC07T( 40), MECH_MAP_SAPRC07T( 40) / 'TERP ', 11 / DATA CONV_FAC_SAPRC07T( 40) / 1 / DATA SPMH_NAM_SAPRC07T( 41), SPMH_MAP_SAPRC07T( 41) / 'ipsenol ', 34 / DATA MECH_NAM_SAPRC07T( 41), MECH_MAP_SAPRC07T( 41) / 'TERP ', 11 / DATA CONV_FAC_SAPRC07T( 41) / 1 / DATA SPMH_NAM_SAPRC07T( 42), SPMH_MAP_SAPRC07T( 42) / 'caryophyllene_b ', 51 / DATA MECH_NAM_SAPRC07T( 42), MECH_MAP_SAPRC07T( 42) / 'SESQ ', 36 / DATA CONV_FAC_SAPRC07T( 42) / 1 / DATA SPMH_NAM_SAPRC07T( 43), SPMH_MAP_SAPRC07T( 43) / 'caryophyllene_c_i ', 52 / DATA MECH_NAM_SAPRC07T( 43), MECH_MAP_SAPRC07T( 43) / 'SESQ ', 36 / DATA CONV_FAC_SAPRC07T( 43) / 1 / DATA SPMH_NAM_SAPRC07T( 44), SPMH_MAP_SAPRC07T( 44) / 'cadinene_d ', 48 / DATA MECH_NAM_SAPRC07T( 44), MECH_MAP_SAPRC07T( 44) / 'SESQ ', 36 / DATA CONV_FAC_SAPRC07T( 44) / 1 / DATA SPMH_NAM_SAPRC07T( 45), SPMH_MAP_SAPRC07T( 45) / 'cadinene_d ', 48 / DATA MECH_NAM_SAPRC07T( 45), MECH_MAP_SAPRC07T( 45) / 'SESQ ', 36 / DATA CONV_FAC_SAPRC07T( 45) / 1 / DATA SPMH_NAM_SAPRC07T( 46), SPMH_MAP_SAPRC07T( 46) / 'bisabolene_b ', 47 / DATA MECH_NAM_SAPRC07T( 46), MECH_MAP_SAPRC07T( 46) / 'SESQ ', 36 / DATA CONV_FAC_SAPRC07T( 46) / 1 / DATA SPMH_NAM_SAPRC07T( 47), SPMH_MAP_SAPRC07T( 47) / 'farnescene_a ', 54 / DATA MECH_NAM_SAPRC07T( 47), MECH_MAP_SAPRC07T( 47) / 'SESQ ', 36 / DATA CONV_FAC_SAPRC07T( 47) / 1 / DATA SPMH_NAM_SAPRC07T( 48), SPMH_MAP_SAPRC07T( 48) / 'patchoulene_b ', 65 / DATA MECH_NAM_SAPRC07T( 48), MECH_MAP_SAPRC07T( 48) / 'SESQ ', 36 / DATA CONV_FAC_SAPRC07T( 48) / 1 / DATA SPMH_NAM_SAPRC07T( 49), SPMH_MAP_SAPRC07T( 49) / 'elemene_b ', 53 / DATA MECH_NAM_SAPRC07T( 49), MECH_MAP_SAPRC07T( 49) / 'SESQ ', 36 / DATA CONV_FAC_SAPRC07T( 49) / 1 / DATA SPMH_NAM_SAPRC07T( 50), SPMH_MAP_SAPRC07T( 50) / 'nerolidol_c ', 63 / DATA MECH_NAM_SAPRC07T( 50), MECH_MAP_SAPRC07T( 50) / 'SESQ ', 36 / DATA CONV_FAC_SAPRC07T( 50) / 1 / DATA SPMH_NAM_SAPRC07T( 51), SPMH_MAP_SAPRC07T( 51) / 'farnesol ', 56 / DATA MECH_NAM_SAPRC07T( 51), MECH_MAP_SAPRC07T( 51) / 'SESQ ', 36 / DATA CONV_FAC_SAPRC07T( 51) / 1 / DATA SPMH_NAM_SAPRC07T( 52), SPMH_MAP_SAPRC07T( 52) / 'humulene_a ', 59 / DATA MECH_NAM_SAPRC07T( 52), MECH_MAP_SAPRC07T( 52) / 'SESQ ', 36 / DATA CONV_FAC_SAPRC07T( 52) / 1 / DATA SPMH_NAM_SAPRC07T( 53), SPMH_MAP_SAPRC07T( 53) / 'muurolene_a ', 61 / DATA MECH_NAM_SAPRC07T( 53), MECH_MAP_SAPRC07T( 53) / 'SESQ ', 36 / DATA CONV_FAC_SAPRC07T( 53) / 1 / DATA SPMH_NAM_SAPRC07T( 54), SPMH_MAP_SAPRC07T( 54) / 'bergamotene_a ', 44 / DATA MECH_NAM_SAPRC07T( 54), MECH_MAP_SAPRC07T( 54) / 'SESQ ', 36 / DATA CONV_FAC_SAPRC07T( 54) / 1 / DATA SPMH_NAM_SAPRC07T( 55), SPMH_MAP_SAPRC07T( 55) / 'germacrene_B ', 57 / DATA MECH_NAM_SAPRC07T( 55), MECH_MAP_SAPRC07T( 55) / 'SESQ ', 36 / DATA CONV_FAC_SAPRC07T( 55) / 1 / DATA SPMH_NAM_SAPRC07T( 56), SPMH_MAP_SAPRC07T( 56) / 'selinene_b ', 66 / DATA MECH_NAM_SAPRC07T( 56), MECH_MAP_SAPRC07T( 56) / 'SESQ ', 36 / DATA CONV_FAC_SAPRC07T( 56) / 1 / DATA SPMH_NAM_SAPRC07T( 57), SPMH_MAP_SAPRC07T( 57) / 'calarene ', 50 / DATA MECH_NAM_SAPRC07T( 57), MECH_MAP_SAPRC07T( 57) / 'SESQ ', 36 / DATA CONV_FAC_SAPRC07T( 57) / 1 / DATA SPMH_NAM_SAPRC07T( 58), SPMH_MAP_SAPRC07T( 58) / 'farnescene_b ', 55 / DATA MECH_NAM_SAPRC07T( 58), MECH_MAP_SAPRC07T( 58) / 'SESQ ', 36 / DATA CONV_FAC_SAPRC07T( 58) / 1 / DATA SPMH_NAM_SAPRC07T( 59), SPMH_MAP_SAPRC07T( 59) / 'acoradiene ', 43 / DATA MECH_NAM_SAPRC07T( 59), MECH_MAP_SAPRC07T( 59) / 'SESQ ', 36 / DATA CONV_FAC_SAPRC07T( 59) / 1 / DATA SPMH_NAM_SAPRC07T( 60), SPMH_MAP_SAPRC07T( 60) / 'humulene_g ', 60 / DATA MECH_NAM_SAPRC07T( 60), MECH_MAP_SAPRC07T( 60) / 'SESQ ', 36 / DATA CONV_FAC_SAPRC07T( 60) / 1 / DATA SPMH_NAM_SAPRC07T( 61), SPMH_MAP_SAPRC07T( 61) / 'muurolene_g ', 62 / DATA MECH_NAM_SAPRC07T( 61), MECH_MAP_SAPRC07T( 61) / 'SESQ ', 36 / DATA CONV_FAC_SAPRC07T( 61) / 1 / DATA SPMH_NAM_SAPRC07T( 62), SPMH_MAP_SAPRC07T( 62) / 'germacrene_D ', 58 / DATA MECH_NAM_SAPRC07T( 62), MECH_MAP_SAPRC07T( 62) / 'SESQ ', 36 / DATA CONV_FAC_SAPRC07T( 62) / 1 / DATA SPMH_NAM_SAPRC07T( 63), SPMH_MAP_SAPRC07T( 63) / 'cadinene_g ', 49 / DATA MECH_NAM_SAPRC07T( 63), MECH_MAP_SAPRC07T( 63) / 'SESQ ', 36 / DATA CONV_FAC_SAPRC07T( 63) / 1 / DATA SPMH_NAM_SAPRC07T( 64), SPMH_MAP_SAPRC07T( 64) / 'nerolidol_t ', 64 / DATA MECH_NAM_SAPRC07T( 64), MECH_MAP_SAPRC07T( 64) / 'SESQ ', 36 / DATA CONV_FAC_SAPRC07T( 64) / 1 / DATA SPMH_NAM_SAPRC07T( 65), SPMH_MAP_SAPRC07T( 65) / 'bergamotene_b ', 45 / DATA MECH_NAM_SAPRC07T( 65), MECH_MAP_SAPRC07T( 65) / 'SESQ ', 36 / DATA CONV_FAC_SAPRC07T( 65) / 1 / DATA SPMH_NAM_SAPRC07T( 66), SPMH_MAP_SAPRC07T( 66) / 'bisabolene_a ', 46 / DATA MECH_NAM_SAPRC07T( 66), MECH_MAP_SAPRC07T( 66) / 'SESQ ', 36 / DATA CONV_FAC_SAPRC07T( 66) / 1 / DATA SPMH_NAM_SAPRC07T( 67), SPMH_MAP_SAPRC07T( 67) / 'cedrol ', 73 / DATA MECH_NAM_SAPRC07T( 67), MECH_MAP_SAPRC07T( 67) / 'SESQ ', 36 / DATA CONV_FAC_SAPRC07T( 67) / 1 / DATA SPMH_NAM_SAPRC07T( 68), SPMH_MAP_SAPRC07T( 68) / 'homosalate ', 78 / DATA MECH_NAM_SAPRC07T( 68), MECH_MAP_SAPRC07T( 68) / 'SESQ ', 36 / DATA CONV_FAC_SAPRC07T( 68) / 1 / DATA SPMH_NAM_SAPRC07T( 69), SPMH_MAP_SAPRC07T( 69) / '2ethyl_hexyl_salate ', 68 / DATA MECH_NAM_SAPRC07T( 69), MECH_MAP_SAPRC07T( 69) / 'SESQ ', 36 / DATA CONV_FAC_SAPRC07T( 69) / 1 / DATA SPMH_NAM_SAPRC07T( 70), SPMH_MAP_SAPRC07T( 70) / 'cedrene_a ', 72 / DATA MECH_NAM_SAPRC07T( 70), MECH_MAP_SAPRC07T( 70) / 'SESQ ', 36 / DATA CONV_FAC_SAPRC07T( 70) / 1 / DATA SPMH_NAM_SAPRC07T( 71), SPMH_MAP_SAPRC07T( 71) / 'thujopsene ', 83 / DATA MECH_NAM_SAPRC07T( 71), MECH_MAP_SAPRC07T( 71) / 'SESQ ', 36 / DATA CONV_FAC_SAPRC07T( 71) / 1 / DATA SPMH_NAM_SAPRC07T( 72), SPMH_MAP_SAPRC07T( 72) / 'longifolene ', 81 / DATA MECH_NAM_SAPRC07T( 72), MECH_MAP_SAPRC07T( 72) / 'SESQ ', 36 / DATA CONV_FAC_SAPRC07T( 72) / 1 / DATA SPMH_NAM_SAPRC07T( 73), SPMH_MAP_SAPRC07T( 73) / 'cadinol_a ', 71 / DATA MECH_NAM_SAPRC07T( 73), MECH_MAP_SAPRC07T( 73) / 'SESQ ', 36 / DATA CONV_FAC_SAPRC07T( 73) / 1 / DATA SPMH_NAM_SAPRC07T( 74), SPMH_MAP_SAPRC07T( 74) / 'zingiberene_a ', 85 / DATA MECH_NAM_SAPRC07T( 74), MECH_MAP_SAPRC07T( 74) / 'SESQ ', 36 / DATA CONV_FAC_SAPRC07T( 74) / 1 / DATA SPMH_NAM_SAPRC07T( 75), SPMH_MAP_SAPRC07T( 75) / 'isolongifolene ', 79 / DATA MECH_NAM_SAPRC07T( 75), MECH_MAP_SAPRC07T( 75) / 'SESQ ', 36 / DATA CONV_FAC_SAPRC07T( 75) / 1 / DATA SPMH_NAM_SAPRC07T( 76), SPMH_MAP_SAPRC07T( 76) / 'longicyclene ', 87 / DATA MECH_NAM_SAPRC07T( 76), MECH_MAP_SAPRC07T( 76) / 'SESQ ', 36 / DATA CONV_FAC_SAPRC07T( 76) / 1 / DATA SPMH_NAM_SAPRC07T( 77), SPMH_MAP_SAPRC07T( 77) / 'copaene_a ', 74 / DATA MECH_NAM_SAPRC07T( 77), MECH_MAP_SAPRC07T( 77) / 'SESQ ', 36 / DATA CONV_FAC_SAPRC07T( 77) / 1 / DATA SPMH_NAM_SAPRC07T( 78), SPMH_MAP_SAPRC07T( 78) / 'bourbonene_b ', 70 / DATA MECH_NAM_SAPRC07T( 78), MECH_MAP_SAPRC07T( 78) / 'SESQ ', 36 / DATA CONV_FAC_SAPRC07T( 78) / 1 / DATA SPMH_NAM_SAPRC07T( 79), SPMH_MAP_SAPRC07T( 79) / 'longipinene ', 82 / DATA MECH_NAM_SAPRC07T( 79), MECH_MAP_SAPRC07T( 79) / 'SESQ ', 36 / DATA CONV_FAC_SAPRC07T( 79) / 1 / DATA SPMH_NAM_SAPRC07T( 80), SPMH_MAP_SAPRC07T( 80) / 'cubebene_b ', 76 / DATA MECH_NAM_SAPRC07T( 80), MECH_MAP_SAPRC07T( 80) / 'SESQ ', 36 / DATA CONV_FAC_SAPRC07T( 80) / 1 / DATA SPMH_NAM_SAPRC07T( 81), SPMH_MAP_SAPRC07T( 81) / 'ylangene_a ', 84 / DATA MECH_NAM_SAPRC07T( 81), MECH_MAP_SAPRC07T( 81) / 'SESQ ', 36 / DATA CONV_FAC_SAPRC07T( 81) / 1 / DATA SPMH_NAM_SAPRC07T( 82), SPMH_MAP_SAPRC07T( 82) / 'cubebene_a ', 75 / DATA MECH_NAM_SAPRC07T( 82), MECH_MAP_SAPRC07T( 82) / 'SESQ ', 36 / DATA CONV_FAC_SAPRC07T( 82) / 1 / DATA SPMH_NAM_SAPRC07T( 83), SPMH_MAP_SAPRC07T( 83) / 'copaene_b ', 86 / DATA MECH_NAM_SAPRC07T( 83), MECH_MAP_SAPRC07T( 83) / 'SESQ ', 36 / DATA CONV_FAC_SAPRC07T( 83) / 1 / DATA SPMH_NAM_SAPRC07T( 84), SPMH_MAP_SAPRC07T( 84) / 'kaur_16_ene ', 80 / DATA MECH_NAM_SAPRC07T( 84), MECH_MAP_SAPRC07T( 84) / 'SESQ ', 36 / DATA CONV_FAC_SAPRC07T( 84) / 1 / DATA SPMH_NAM_SAPRC07T( 85), SPMH_MAP_SAPRC07T( 85) / 'gurjunene_b ', 77 / DATA MECH_NAM_SAPRC07T( 85), MECH_MAP_SAPRC07T( 85) / 'SESQ ', 36 / DATA CONV_FAC_SAPRC07T( 85) / 1 / DATA SPMH_NAM_SAPRC07T( 86), SPMH_MAP_SAPRC07T( 86) / 'aromadendrene ', 69 / DATA MECH_NAM_SAPRC07T( 86), MECH_MAP_SAPRC07T( 86) / 'SESQ ', 36 / DATA CONV_FAC_SAPRC07T( 86) / 1 / DATA SPMH_NAM_SAPRC07T( 87), SPMH_MAP_SAPRC07T( 87) / 'methanol ', 88 / DATA MECH_NAM_SAPRC07T( 87), MECH_MAP_SAPRC07T( 87) / 'MEOH ', 23 / DATA CONV_FAC_SAPRC07T( 87) / 1 / DATA SPMH_NAM_SAPRC07T( 88), SPMH_MAP_SAPRC07T( 88) / 'acetone ', 89 / DATA MECH_NAM_SAPRC07T( 88), MECH_MAP_SAPRC07T( 88) / 'ACETONE ', 20 / DATA CONV_FAC_SAPRC07T( 88) / 1 / DATA SPMH_NAM_SAPRC07T( 89), SPMH_MAP_SAPRC07T( 89) / 'ethanol ', 91 / DATA MECH_NAM_SAPRC07T( 89), MECH_MAP_SAPRC07T( 89) / 'ETOH ', 55 / DATA CONV_FAC_SAPRC07T( 89) / 1 / DATA SPMH_NAM_SAPRC07T( 90), SPMH_MAP_SAPRC07T( 90) / 'acetaldehyde ', 90 / DATA MECH_NAM_SAPRC07T( 90), MECH_MAP_SAPRC07T( 90) / 'CCHO ', 17 / DATA CONV_FAC_SAPRC07T( 90) / 1 / DATA SPMH_NAM_SAPRC07T( 91), SPMH_MAP_SAPRC07T( 91) / 'formic_acid ', 93 / DATA MECH_NAM_SAPRC07T( 91), MECH_MAP_SAPRC07T( 91) / 'HCOOH ', 24 / DATA CONV_FAC_SAPRC07T( 91) / 1 / DATA SPMH_NAM_SAPRC07T( 92), SPMH_MAP_SAPRC07T( 92) / 'acetic_acid ', 92 / DATA MECH_NAM_SAPRC07T( 92), MECH_MAP_SAPRC07T( 92) / 'CCOOH ', 25 / DATA CONV_FAC_SAPRC07T( 92) / 1 / DATA SPMH_NAM_SAPRC07T( 93), SPMH_MAP_SAPRC07T( 93) / 'ethane ', 100 / DATA MECH_NAM_SAPRC07T( 93), MECH_MAP_SAPRC07T( 93) / 'ALK1 ', 2 / DATA CONV_FAC_SAPRC07T( 93) / 1 / DATA SPMH_NAM_SAPRC07T( 94), SPMH_MAP_SAPRC07T( 94) / 'ethene ', 101 / DATA MECH_NAM_SAPRC07T( 94), MECH_MAP_SAPRC07T( 94) / 'ETHENE ', 7 / DATA CONV_FAC_SAPRC07T( 94) / 1 / DATA SPMH_NAM_SAPRC07T( 95), SPMH_MAP_SAPRC07T( 95) / 'propane ', 102 / DATA MECH_NAM_SAPRC07T( 95), MECH_MAP_SAPRC07T( 95) / 'ALK2 ', 3 / DATA CONV_FAC_SAPRC07T( 95) / 1 / DATA SPMH_NAM_SAPRC07T( 96), SPMH_MAP_SAPRC07T( 96) / 'butene ', 97 / DATA MECH_NAM_SAPRC07T( 96), MECH_MAP_SAPRC07T( 96) / 'OLE1 ', 8 / DATA CONV_FAC_SAPRC07T( 96) / 1 / DATA SPMH_NAM_SAPRC07T( 97), SPMH_MAP_SAPRC07T( 97) / '2_methylprop_1_ene ', 95 / DATA MECH_NAM_SAPRC07T( 97), MECH_MAP_SAPRC07T( 97) / 'OLE2 ', 9 / DATA CONV_FAC_SAPRC07T( 97) / 1 / DATA SPMH_NAM_SAPRC07T( 98), SPMH_MAP_SAPRC07T( 98) / 'butene_c2 ', 98 / DATA MECH_NAM_SAPRC07T( 98), MECH_MAP_SAPRC07T( 98) / 'OLE2 ', 9 / DATA CONV_FAC_SAPRC07T( 98) / 1 / DATA SPMH_NAM_SAPRC07T( 99), SPMH_MAP_SAPRC07T( 99) / 'butene_t2 ', 99 / DATA MECH_NAM_SAPRC07T( 99), MECH_MAP_SAPRC07T( 99) / 'OLE2 ', 9 / DATA CONV_FAC_SAPRC07T( 99) / 1 / DATA SPMH_NAM_SAPRC07T( 100), SPMH_MAP_SAPRC07T( 100) / 'formaldehyde ', 113 / DATA MECH_NAM_SAPRC07T( 100), MECH_MAP_SAPRC07T( 100) / 'HCHO ', 16 / DATA CONV_FAC_SAPRC07T( 100) / 1 / DATA SPMH_NAM_SAPRC07T( 101), SPMH_MAP_SAPRC07T( 101) / 'met_heptenone ', 106 / DATA MECH_NAM_SAPRC07T( 101), MECH_MAP_SAPRC07T( 101) / 'OLE2 ', 9 / DATA CONV_FAC_SAPRC07T( 101) / 1 / DATA SPMH_NAM_SAPRC07T( 102), SPMH_MAP_SAPRC07T( 102) / 'geranyl_acetone', 105 / DATA MECH_NAM_SAPRC07T( 102), MECH_MAP_SAPRC07T( 102) / 'OLE2 ', 9 / DATA CONV_FAC_SAPRC07T( 102) / 1 / DATA SPMH_NAM_SAPRC07T( 103), SPMH_MAP_SAPRC07T( 103) / 'hydrogen_cyanide ', 147 / DATA MECH_NAM_SAPRC07T( 103), MECH_MAP_SAPRC07T( 103) / 'HCN ', 37 / DATA CONV_FAC_SAPRC07T( 103) / 1 / DATA SPMH_NAM_SAPRC07T( 104), SPMH_MAP_SAPRC07T( 104) / 'linalool ', 150 / DATA MECH_NAM_SAPRC07T( 104), MECH_MAP_SAPRC07T( 104) / 'OLE2 ', 2 / DATA CONV_FAC_SAPRC07T( 104) / 1 / DATA SPMH_NAM_SAPRC07T( 105), SPMH_MAP_SAPRC07T( 105) / 'methacrolein ', 153 / DATA MECH_NAM_SAPRC07T( 105), MECH_MAP_SAPRC07T( 105) / 'MACR ', 31 / DATA CONV_FAC_SAPRC07T( 105) / 1 / DATA SPMH_NAM_SAPRC07T( 106), SPMH_MAP_SAPRC07T( 106) / 'met_vinylketone ', 158 / DATA MECH_NAM_SAPRC07T( 106), MECH_MAP_SAPRC07T( 106) / 'MVK ', 32 / DATA CONV_FAC_SAPRC07T( 106) / 1 / DATA SPMH_NAM_SAPRC07T( 107), SPMH_MAP_SAPRC07T( 107) / 'hexanol_1 ', 142 / DATA MECH_NAM_SAPRC07T( 107), MECH_MAP_SAPRC07T( 107) / 'ALK5 ', 6 / DATA CONV_FAC_SAPRC07T( 107) / 1 / DATA SPMH_NAM_SAPRC07T( 108), SPMH_MAP_SAPRC07T( 108) / 'met_salicylate ', 156 / DATA MECH_NAM_SAPRC07T( 108), MECH_MAP_SAPRC07T( 108) / 'CRES ', 30 / DATA CONV_FAC_SAPRC07T( 108) / 1 / DATA SPMH_NAM_SAPRC07T( 109), SPMH_MAP_SAPRC07T( 109) / 'cineole_1_8 ', 133 / DATA MECH_NAM_SAPRC07T( 109), MECH_MAP_SAPRC07T( 109) / 'TERP ', 11 / DATA CONV_FAC_SAPRC07T( 109) / 1 / DATA SPMH_NAM_SAPRC07T( 110), SPMH_MAP_SAPRC07T( 110) / 'hexenol_c3 ', 145 / DATA MECH_NAM_SAPRC07T( 110), MECH_MAP_SAPRC07T( 110) / 'ALK5 ', 6 / DATA CONV_FAC_SAPRC07T( 110) / 1 / DATA SPMH_NAM_SAPRC07T( 111), SPMH_MAP_SAPRC07T( 111) / 'hexenyl_ACT_c3 ', 146 / DATA MECH_NAM_SAPRC07T( 111), MECH_MAP_SAPRC07T( 111) / 'OLE2 ', 9 / DATA CONV_FAC_SAPRC07T( 111) / 1 / DATA SPMH_NAM_SAPRC07T( 112), SPMH_MAP_SAPRC07T( 112) / '2met_nonatriene ', 137 / DATA MECH_NAM_SAPRC07T( 112), MECH_MAP_SAPRC07T( 112) / 'OLE2 ', 9 / DATA CONV_FAC_SAPRC07T( 112) / 1 / DATA SPMH_NAM_SAPRC07T( 113), SPMH_MAP_SAPRC07T( 113) / 'methane ', 184 / DATA MECH_NAM_SAPRC07T( 113), MECH_MAP_SAPRC07T( 113) / 'CH4 ', 1 / DATA CONV_FAC_SAPRC07T( 113) / 1 / DATA SPMH_NAM_SAPRC07T( 114), SPMH_MAP_SAPRC07T( 114) / 'met_bromide ', 185 / DATA MECH_NAM_SAPRC07T( 114), MECH_MAP_SAPRC07T( 114) / 'CH3BR ', 38 / DATA CONV_FAC_SAPRC07T( 114) / 1 / DATA SPMH_NAM_SAPRC07T( 115), SPMH_MAP_SAPRC07T( 115) / 'met_chloride ', 186 / DATA MECH_NAM_SAPRC07T( 115), MECH_MAP_SAPRC07T( 115) / 'CH3CL ', 39 / DATA CONV_FAC_SAPRC07T( 115) / 1 / DATA SPMH_NAM_SAPRC07T( 116), SPMH_MAP_SAPRC07T( 116) / 'met_iodide ', 187 / DATA MECH_NAM_SAPRC07T( 116), MECH_MAP_SAPRC07T( 116) / 'CH3I ', 40 / DATA CONV_FAC_SAPRC07T( 116) / 1 / DATA SPMH_NAM_SAPRC07T( 117), SPMH_MAP_SAPRC07T( 117) / 'met_mercaptan ', 188 / DATA MECH_NAM_SAPRC07T( 117), MECH_MAP_SAPRC07T( 117) / 'TRS ', 41 / DATA CONV_FAC_SAPRC07T( 117) / 1 / DATA SPMH_NAM_SAPRC07T( 118), SPMH_MAP_SAPRC07T( 118) / 'carbon_2s ', 171 / DATA MECH_NAM_SAPRC07T( 118), MECH_MAP_SAPRC07T( 118) / 'TRS ', 41 / DATA CONV_FAC_SAPRC07T( 118) / 1 / DATA SPMH_NAM_SAPRC07T( 119), SPMH_MAP_SAPRC07T( 119) / '2met_s ', 176 / DATA MECH_NAM_SAPRC07T( 119), MECH_MAP_SAPRC07T( 119) / 'TRS ', 41 / DATA CONV_FAC_SAPRC07T( 119) / 1 / DATA SPMH_NAM_SAPRC07T( 120), SPMH_MAP_SAPRC07T( 120) / 'butanone_2 ', 170 / DATA MECH_NAM_SAPRC07T( 120), MECH_MAP_SAPRC07T( 120) / 'MEK ', 21 / DATA CONV_FAC_SAPRC07T( 120) / 1 / DATA SPMH_NAM_SAPRC07T( 121), SPMH_MAP_SAPRC07T( 121) / 'terpinyl_ACT_a ', 197 / DATA MECH_NAM_SAPRC07T( 121), MECH_MAP_SAPRC07T( 121) / 'TERP ', 11 / DATA CONV_FAC_SAPRC07T( 121) / 1 / DATA SPMH_NAM_SAPRC07T( 122), SPMH_MAP_SAPRC07T( 122) / 'pentane ', 193 / DATA MECH_NAM_SAPRC07T( 122), MECH_MAP_SAPRC07T( 122) / 'ALK4 ', 5 / DATA CONV_FAC_SAPRC07T( 122) / 1 / DATA SPMH_NAM_SAPRC07T( 123), SPMH_MAP_SAPRC07T( 123) / 'hexane ', 181 / DATA MECH_NAM_SAPRC07T( 123), MECH_MAP_SAPRC07T( 123) / 'ALK5 ', 6 / DATA CONV_FAC_SAPRC07T( 123) / 1 / DATA SPMH_NAM_SAPRC07T( 124), SPMH_MAP_SAPRC07T( 124) / 'decane ', 173 / DATA MECH_NAM_SAPRC07T( 124), MECH_MAP_SAPRC07T( 124) / 'ALK5 ', 6 / DATA CONV_FAC_SAPRC07T( 124) / 1 / DATA SPMH_NAM_SAPRC07T( 125), SPMH_MAP_SAPRC07T( 125) / 'heptane ', 179 / DATA MECH_NAM_SAPRC07T( 125), MECH_MAP_SAPRC07T( 125) / 'ALK5 ', 6 / DATA CONV_FAC_SAPRC07T( 125) / 1 / DATA SPMH_NAM_SAPRC07T( 126), SPMH_MAP_SAPRC07T( 126) / 'carbonyl_s ', 172 / DATA MECH_NAM_SAPRC07T( 126), MECH_MAP_SAPRC07T( 126) / 'TRS ', 41 / DATA CONV_FAC_SAPRC07T( 126) / 1 / DATA SPMH_NAM_SAPRC07T( 127), SPMH_MAP_SAPRC07T( 127) / '2met_2s ', 175 / DATA MECH_NAM_SAPRC07T( 127), MECH_MAP_SAPRC07T( 127) / 'TRS ', 41 / DATA CONV_FAC_SAPRC07T( 127) / 1 / DATA SPMH_NAM_SAPRC07T( 128), SPMH_MAP_SAPRC07T( 128) / 'undecane ', 199 / DATA MECH_NAM_SAPRC07T( 128), MECH_MAP_SAPRC07T( 128) / 'ALK5 ', 6 / DATA CONV_FAC_SAPRC07T( 128) / 1 / DATA SPMH_NAM_SAPRC07T( 129), SPMH_MAP_SAPRC07T( 129) / 'tetradecene_1 ', 198 / DATA MECH_NAM_SAPRC07T( 129), MECH_MAP_SAPRC07T( 129) / 'OLE1 ', 8 / DATA CONV_FAC_SAPRC07T( 129) / 1 / DATA SPMH_NAM_SAPRC07T( 130), SPMH_MAP_SAPRC07T( 130) / 'diallyl_2s ', 174 / DATA MECH_NAM_SAPRC07T( 130), MECH_MAP_SAPRC07T( 130) / 'TRS ', 41 / DATA CONV_FAC_SAPRC07T( 130) / 1 / DATA SPMH_NAM_SAPRC07T( 131), SPMH_MAP_SAPRC07T( 131) / 'PPPP_2s ', 194 / DATA MECH_NAM_SAPRC07T( 131), MECH_MAP_SAPRC07T( 131) / 'TRS ', 41 / DATA CONV_FAC_SAPRC07T( 131) / 1 / DATA SPMH_NAM_SAPRC07T( 132), SPMH_MAP_SAPRC07T( 132) / 'met_propenyl_2s ', 189 / DATA MECH_NAM_SAPRC07T( 132), MECH_MAP_SAPRC07T( 132) / 'TRS ', 41 / DATA CONV_FAC_SAPRC07T( 132) / 1 / DATA SPMH_NAM_SAPRC07T( 133), SPMH_MAP_SAPRC07T( 133) / 'hydrogen_s ', 182 / DATA MECH_NAM_SAPRC07T( 133), MECH_MAP_SAPRC07T( 133) / 'TRS ', 41 / DATA CONV_FAC_SAPRC07T( 133) / 1 / DATA SPMH_NAM_SAPRC07T( 134), SPMH_MAP_SAPRC07T( 134) / 'carbon_monoxide ', 200 / DATA MECH_NAM_SAPRC07T( 134), MECH_MAP_SAPRC07T( 134) / 'CO ', 35 / DATA CONV_FAC_SAPRC07T( 134) / 1 / DATA SPMH_NAM_SAPRC07T( 135), SPMH_MAP_SAPRC07T( 135) / 'nitric_OXD ', 201 / DATA MECH_NAM_SAPRC07T( 135), MECH_MAP_SAPRC07T( 135) / 'NO ', 42 / DATA CONV_FAC_SAPRC07T( 135) / 1 / DATA SPMH_NAM_SAPRC07T( 136), SPMH_MAP_SAPRC07T( 136) / 'pinene_a ', 3 / DATA MECH_NAM_SAPRC07T( 136), MECH_MAP_SAPRC07T( 136) / 'APIN ', 45 / DATA CONV_FAC_SAPRC07T( 136) / 1 / DATA SPMH_NAM_SAPRC07T( 137), SPMH_MAP_SAPRC07T( 137) / 'formaldehyde ', 113 / DATA MECH_NAM_SAPRC07T( 137), MECH_MAP_SAPRC07T( 137) / 'HCHO_PRIMARY', 46 / DATA CONV_FAC_SAPRC07T( 137) / 1 / DATA SPMH_NAM_SAPRC07T( 138), SPMH_MAP_SAPRC07T( 138) / 'acetaldehyde ', 90 / DATA MECH_NAM_SAPRC07T( 138), MECH_MAP_SAPRC07T( 138) / 'CCHO_PRIMARY', 47 / DATA CONV_FAC_SAPRC07T( 138) / 1 / DATA SPMH_NAM_SAPRC07T( 139), SPMH_MAP_SAPRC07T( 139) / 'hexanal ', 141 / DATA MECH_NAM_SAPRC07T( 139), MECH_MAP_SAPRC07T( 139) / 'RCHO', 18 / DATA CONV_FAC_SAPRC07T( 139) / 1 / DATA SPMH_NAM_SAPRC07T( 140), SPMH_MAP_SAPRC07T( 140) / 'hexanal_c3 ', 143 / DATA MECH_NAM_SAPRC07T( 140), MECH_MAP_SAPRC07T( 140) / 'RCHO', 18 / DATA CONV_FAC_SAPRC07T( 140) / 1 / DATA SPMH_NAM_SAPRC07T( 141), SPMH_MAP_SAPRC07T( 141) / 'hexanal_t2 ', 144 / DATA MECH_NAM_SAPRC07T( 141), MECH_MAP_SAPRC07T( 141) / 'RCHO', 18 / DATA CONV_FAC_SAPRC07T( 141) / 1 / DATA SPMH_NAM_SAPRC07T( 142), SPMH_MAP_SAPRC07T( 142) / 'heptanal ', 178 / DATA MECH_NAM_SAPRC07T( 142), MECH_MAP_SAPRC07T( 142) / 'RCHO', 18 / DATA CONV_FAC_SAPRC07T( 142) / 1 / DATA SPMH_NAM_SAPRC07T( 143), SPMH_MAP_SAPRC07T( 143) / 'decanal ', 104 / DATA MECH_NAM_SAPRC07T( 143), MECH_MAP_SAPRC07T( 143) / 'RCHO', 18 / DATA CONV_FAC_SAPRC07T( 143) / 1 / DATA SPMH_NAM_SAPRC07T( 144), SPMH_MAP_SAPRC07T( 144) / 'nonanal ', 108 / DATA MECH_NAM_SAPRC07T( 144), MECH_MAP_SAPRC07T( 144) / 'RCHO', 18 / DATA CONV_FAC_SAPRC07T( 144) / 1 / DATA SPMH_NAM_SAPRC07T( 145), SPMH_MAP_SAPRC07T( 145) / 'octanal ', 110 / DATA MECH_NAM_SAPRC07T( 145), MECH_MAP_SAPRC07T( 145) / 'RCHO', 18 / DATA CONV_FAC_SAPRC07T( 145) / 1 / DATA SPMH_NAM_SAPRC07T( 146), SPMH_MAP_SAPRC07T( 146) / 'pentanal ', 111 / DATA MECH_NAM_SAPRC07T( 146), MECH_MAP_SAPRC07T( 146) / 'RCHO', 18 / DATA CONV_FAC_SAPRC07T( 146) / 1 / DATA SPMH_NAM_SAPRC07T( 147), SPMH_MAP_SAPRC07T( 147) / 'oxopentanal ', 114 / DATA MECH_NAM_SAPRC07T( 147), MECH_MAP_SAPRC07T( 147) / 'RCHO', 18 / DATA CONV_FAC_SAPRC07T( 147) / 1 / DATA SPMH_NAM_SAPRC07T( 148), SPMH_MAP_SAPRC07T( 148) / 'xylene ', 166 / DATA MECH_NAM_SAPRC07T( 148), MECH_MAP_SAPRC07T( 148) / 'MXYL', 48 / DATA CONV_FAC_SAPRC07T( 148) / 0.334 / DATA SPMH_NAM_SAPRC07T( 149), SPMH_MAP_SAPRC07T( 149) / 'xylene ', 166 / DATA MECH_NAM_SAPRC07T( 149), MECH_MAP_SAPRC07T( 149) / 'OXYL', 49 / DATA CONV_FAC_SAPRC07T( 149) / 0.333 / DATA SPMH_NAM_SAPRC07T( 150), SPMH_MAP_SAPRC07T( 150) / 'xylene ', 166 / DATA MECH_NAM_SAPRC07T( 150), MECH_MAP_SAPRC07T( 150) / 'PXYL', 50 / DATA CONV_FAC_SAPRC07T( 150) / 0.333 / DATA SPMH_NAM_SAPRC07T( 151), SPMH_MAP_SAPRC07T( 151) / 'naphthalene ', 192 / DATA MECH_NAM_SAPRC07T( 151), MECH_MAP_SAPRC07T( 151) / 'NAPHTHALENE', 51 / DATA CONV_FAC_SAPRC07T( 151) / 1 / DATA SPMH_NAM_SAPRC07T( 152), SPMH_MAP_SAPRC07T( 152) / 'toluene ', 166 / DATA MECH_NAM_SAPRC07T( 152), MECH_MAP_SAPRC07T( 152) / 'TOLU', 53 / DATA CONV_FAC_SAPRC07T( 152) / 1 / DATA SPMH_NAM_SAPRC07T( 153), SPMH_MAP_SAPRC07T( 153) / 'phenol ', 166 / DATA MECH_NAM_SAPRC07T( 153), MECH_MAP_SAPRC07T( 153) / 'CRES', 30 / DATA CONV_FAC_SAPRC07T( 153) / 1 / DATA SPMH_NAM_SAPRC07T( 154), SPMH_MAP_SAPRC07T( 154) / 'eugenol ', 166 / DATA MECH_NAM_SAPRC07T( 154), MECH_MAP_SAPRC07T( 154) / 'CRES', 30 / DATA CONV_FAC_SAPRC07T( 154) / 1 / DATA SPMH_NAM_SAPRC07T( 155), SPMH_MAP_SAPRC07T( 155) / 'propene ', 103 / DATA MECH_NAM_SAPRC07T( 155), MECH_MAP_SAPRC07T( 155) / 'PROPENE', 54 / DATA CONV_FAC_SAPRC07T( 155) / 1 / DATA SPMH_NAM_SAPRC07T( 156), SPMH_MAP_SAPRC07T( 156) / 'pyruvic_acid', 94 / DATA MECH_NAM_SAPRC07T( 156), MECH_MAP_SAPRC07T( 156) / 'BACL', 29 / DATA CONV_FAC_SAPRC07T( 156) / 1 / DATA SPMH_NAM_SAPRC07T( 157), SPMH_MAP_SAPRC07T( 157) / 'indole', 183 / DATA MECH_NAM_SAPRC07T( 157), MECH_MAP_SAPRC07T( 157) / 'ARO1', 13 / DATA CONV_FAC_SAPRC07T( 157) / 1 / DATA SPMH_NAM_SAPRC07T( 158), SPMH_MAP_SAPRC07T( 158) / '3_metfuran', 119 / DATA MECH_NAM_SAPRC07T( 158), MECH_MAP_SAPRC07T( 158) / 'ALK5', 6 / DATA CONV_FAC_SAPRC07T( 158) / 1 / DATA SPMH_NAM_SAPRC07T( 159), SPMH_MAP_SAPRC07T( 159) / 'met_jasmonate', 155 / DATA MECH_NAM_SAPRC07T( 159), MECH_MAP_SAPRC07T( 159) / 'OLE2', 9 / DATA CONV_FAC_SAPRC07T( 159) / 1 / DATA SPMH_NAM_SAPRC07T( 160), SPMH_MAP_SAPRC07T( 160) / 'linalool_OXD_t', 155 / DATA MECH_NAM_SAPRC07T( 160), MECH_MAP_SAPRC07T( 160) / 'OLE1', 8 / DATA CONV_FAC_SAPRC07T( 160) / 1 / DATA SPMH_NAM_SAPRC07T( 161), SPMH_MAP_SAPRC07T( 161) / '1_petanol', 115 / DATA MECH_NAM_SAPRC07T( 161), MECH_MAP_SAPRC07T( 161) / 'ALK5', 6 / DATA CONV_FAC_SAPRC07T( 161) / 1 / DATA SPMH_NAM_SAPRC07T( 162), SPMH_MAP_SAPRC07T( 162) / '1_penten_3_one', 116 / DATA MECH_NAM_SAPRC07T( 162), MECH_MAP_SAPRC07T( 162) / 'MEK', 21 / DATA CONV_FAC_SAPRC07T( 162) / 1 / DATA SPMH_NAM_SAPRC07T( 163), SPMH_MAP_SAPRC07T( 163) / 't-2-octenal', 111 / DATA MECH_NAM_SAPRC07T( 163), MECH_MAP_SAPRC07T( 163) / 'RCHO', 48 / DATA CONV_FAC_SAPRC07T( 163) / 1 / DATA SPMH_NAM_SAPRC07T( 164), SPMH_MAP_SAPRC07T( 164) / 'neryl_acetone', 107 / DATA MECH_NAM_SAPRC07T( 164), MECH_MAP_SAPRC07T( 164) / 'OLE2 ', 9 / DATA CONV_FAC_SAPRC07T( 164) / 1 / DATA SPMH_NAM_SAPRC07T( 165), SPMH_MAP_SAPRC07T( 165) / 'MBO_3m3e1ol ', 191 / DATA MECH_NAM_SAPRC07T( 165), MECH_MAP_SAPRC07T( 165) / 'OLE2 ', 9 / DATA CONV_FAC_SAPRC07T( 165) / 1 / DATA SPMH_NAM_SAPRC07T( 166), SPMH_MAP_SAPRC07T( 166) / 'santene ', 195 / DATA MECH_NAM_SAPRC07T( 166), MECH_MAP_SAPRC07T( 166) / 'APIN ', 45 / DATA CONV_FAC_SAPRC07T( 166) / 1 / DATA SPMH_NAM_SAPRC07T( 167), SPMH_MAP_SAPRC07T( 167) / 'skatole ', 196 / DATA MECH_NAM_SAPRC07T( 167), MECH_MAP_SAPRC07T( 167) / 'ARO1 ', 13 / DATA CONV_FAC_SAPRC07T( 167) / 1 / DATA SPMH_NAM_SAPRC07T( 168), SPMH_MAP_SAPRC07T( 168) / 'dodecene_1 ', 177 / DATA MECH_NAM_SAPRC07T( 168), MECH_MAP_SAPRC07T( 168) / 'OLE1 ', 8 / DATA CONV_FAC_SAPRC07T( 168) / 1 / DATA SPMH_NAM_SAPRC07T( 169), SPMH_MAP_SAPRC07T( 169) / 'benzene ', 128 / DATA MECH_NAM_SAPRC07T( 169), MECH_MAP_SAPRC07T( 169) / 'BENZ ', 12 / DATA CONV_FAC_SAPRC07T( 169) / 1 / DATA SPMH_NAM_SAPRC07T( 170), SPMH_MAP_SAPRC07T( 170) / 'carbonyl_2s ', 171 / DATA MECH_NAM_SAPRC07T( 170), MECH_MAP_SAPRC07T( 170) / 'OCS ', 52 / DATA CONV_FAC_SAPRC07T( 170) / 1 / ================================================ FILE: CCTM/src/biog/megan3/MEGAN_DEFN.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! ! Used to calculate biogenic emissions. First available in CMAQ 5.4 C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: MODULE MEGAN_DEFN C----------------------------------------------------------------------- C Function: biogenics emissions interface to the chemistry-transport model USE RUNTIME_VARS USE MEGAN_FX IMPLICIT NONE REAL, ALLOCATABLE, SAVE :: VDEMIS_ME( :,:,: ) ! megan emis CONTAINS C======================================================================= FUNCTION MEGAN_INIT( JDATE, JTIME, TSTEP ) RESULT ( SUCCESS ) USE HGRD_DEFN USE CGRID_SPCS ! CGRID mechanism species USE BIOG_EMIS ! from beis USE centralized_io_module, only : soilinp_setup USE MEGAN_GSPRO #ifdef mpas USE utilio_defn #endif IMPLICIT NONE INTEGER JDATE, JTIME, TSTEP LOGICAL SUCCESS CHARACTER( 16 ) :: PNAME = 'MEGAN_INIT' CHARACTER( 80 ) :: VARDESC ! env variable description CHARACTER( 120 ) :: XMSG = ' ' INTEGER V, K, STATUS C----------------------------------------------------------------------- SUCCESS = .TRUE. C In-line biogenic emissions? CALL LOG_SUBHEADING( LOGDEV, 'Initialize Online Biogenic VOC Emissions Module ' ) C biogenics to gas-phase species map IF ( BIOGEMIS_MEGAN ) THEN CALL MEGAN_MAP XMSG = 'Using in-line biogenic emissions option (MEGAN)' DESID_EMVAR( IMIOGSRM )%LEN = NMGNSPC ALLOCATE( DESID_EMVAR( IMIOGSRM )%ARRY ( NMGNSPC ) ) ALLOCATE( DESID_EMVAR( IMIOGSRM )%UNITS( NMGNSPC ) ) ALLOCATE( DESID_EMVAR( IMIOGSRM )%MW ( NMGNSPC ) ) ALLOCATE( DESID_EMVAR( IMIOGSRM )%USED ( NMGNSPC ) ) ALLOCATE( DESID_EMVAR( IMIOGSRM )%CONV ( NMGNSPC ) ) ALLOCATE( DESID_EMVAR( IMIOGSRM )%BASIS( NMGNSPC ) ) ALLOCATE( DESID_EMVAR( IMIOGSRM )%LAREA( NMGNSPC ) ) ALLOCATE( DESID_EMVAR( IMIOGSRM )%LAREAADJ( NMGNSPC ) ) DESID_EMVAR( IMIOGSRM )%ARRY = MEGAN_NAMES DESID_EMVAR( IMIOGSRM )%UNITS = 'MOLES/S' DESID_EMVAR( IMIOGSRM )%MW = 1.0 DESID_EMVAR( IMIOGSRM )%USED = .FALSE. DESID_EMVAR( IMIOGSRM )%CONV = 1.0 DESID_EMVAR( IMIOGSRM )%BASIS = 'UNIT' DESID_EMVAR( IMIOGSRM )%LAREA = .FALSE. DESID_EMVAR( IMIOGSRM )%LAREAADJ = .FALSE. ALLOCATE( VDEMIS_ME( NMGNSPC,NCOLS,NROWS ), STAT = STATUS ) IF ( STATUS .NE. 0 ) THEN XMSG = 'VDEMIS_ME memory allocation failed' SUCCESS = .FALSE.; RETURN END IF #ifdef mpas call mio_setfile ('GR_EMIS_001') call mio_fcreate ('MEGAN_OUTPUT',512 ) ! 512 means clobber+netcdf64 if (BDSNP_MEGAN) then call mio_fcreate ('BDSNPOUT',512 ) ! 512 means clobber+netcdf64 call mio_fcreate ('BDSNP_DIAG',512 ) ! 512 means clobber+netcdf64 end if #endif END IF SUCCESS = .TRUE.; RETURN END FUNCTION MEGAN_INIT C======================================================================= SUBROUTINE GET_MEGAN ( JDATE, JTIME, TSTEP, L_DESID_DIAG ) USE centralized_io_module, only : ldf,ctf,t24y,sw24y,lai_m,lai_y USE centralized_io_util_module USE ASX_DATA_MOD USE hgrd_defn, only : ncols, nrows USE RUNTIME_VARS, only : NEW_START,IGNORE_SOILINP,logdev USE UTILIO_DEFN USE MEGAN_HRNO_MOD USE DESID_VARS, ONLY : DESID_N_ISTR, IMIOGSRM, & MAP_ISTRtoEMVAR, MAP_ISTRtoDIFF USE GRID_CONF, ONLY: GDTYP_GD, XCELL_GD, YCELL_GD, YORIG_GD, GL_NROWS USE MEGAN_GSPRO IMPLICIT NONE LOGICAL, INTENT( IN ) :: L_DESID_DIAG CHARACTER (20) :: TIME_STAMP INTEGER JDATE, JTIME, TSTEP( 3 ), ISTR, io_mode, LAYERS INTEGER I, J,MXLAI, LAIp_I,LAIc_i REAL JDAY, JYEAR, ZTIME REAL :: CURRHR ! current GMT hour REAL shadeleafTK(ncols,nrows,5) REAL sunleafTK(ncols,nrows,5) REAL sunfrac(ncols,nrows,5) REAL sunppfd(ncols,nrows,5) REAL shadeppfd(ncols,nrows,5) REAL er(ncols,nrows) REAL non_dimgarma(19,ncols,nrows) REAL out_to_cmaq(NMGNSPC,ncols,nrows) ! REAL CFNO(ncols,nrows) ! emission activity for crop REAL CFNOG(ncols,nrows) ! " " for grass REAL GAMSM(ncols,nrows) ! soil moisture activity for isop REAL GAMNO(ncols,nrows) ! final NO emission activity REAL BDSNP_NO_out(ncols,nrows) ! final NO emission activity from BDSNP REAL PRECADJ(ncols,nrows) REAL LAIP ( NCOLS, NROWS ) ! previous LAI REAL LAIC ( NCOLS, NROWS ) ! current LAI CHARACTER( 16 ) :: PNAME = 'MEGAN_DEFN' CHARACTER( 120 ) :: XMSG = ' ' INTEGER, SAVE :: MGN_IHR ! current simulation hour INTEGER MGN_NDX ! RAINFALL array timestep index ! Calculate cell area. ! Could be removed in favor of DESID changes REAL DX1, DX2 ! grid-cell width and length REAL, ALLOCATABLE :: LOC_CELL_AREA(:,:) ! grid-cell area [m2] REAL :: LOC_MSFX2(NCOLS,NROWS) INTEGER :: STAT if (.not. allocated(loc_cell_area)) then allocate (loc_cell_area(ncols, nrows), stat=stat) end if #ifdef mpas loc_msfx2 = 1.0 loc_cell_area = cell_area !output_step = time2sec(tstep(1)) !half_syn_step = time2sec(tstep(2)) / 2 JDAY = FLOAT( MOD( JDATE, 1000 ) ) JYEAR = FLOAT( JDATE / 1000 ) CURRHR = REAL ( TIME2SEC( JTIME ) ) / 3600.0 #else JDAY = FLOAT( MOD( JDATE, 1000 ) ) JYEAR = FLOAT( JDATE / 1000 ) CURRHR = REAL ( TIME2SEC( JTIME ) ) / 3600.0 ! *** Get length and width of each grid cell IF ( GDTYP_GD .EQ. LATGRD3 ) THEN DX1 = DG2M * XCELL_GD ! in m DX2 = DG2M * YCELL_GD & * COS( PI180*( YORIG_GD + YCELL_GD & * FLOAT( GL_NROWS/2 ) ) ) ! in m ELSE DX1 = XCELL_GD ! in m DX2 = YCELL_GD ! in m END IF LOC_CELL_AREA = DX1 * DX2 loc_msfx2 = msfx2 #endif non_dimgarma = 0. LAYERS = 5 ! canopy layers ! This option is only included for users who wish to confirm ! that their results match with offline MEGAN 3.2 IF (USE_MEGAN_LAI) THEN ! Read from the preprocessed file MXLAI = 46 ! 8-daily ! hard coded to avoid excessive environmental ! variables. MEGAN3.2 offers monthly and 10-day options. CALL FINDLAI( JDATE, MXLAI, MXLAI, LAIp_I, LAIc_I) laip(:,:) = lai_m(:,:,laip_i) laic(:,:) = lai_m(:,:,laic_i) ELSE ! Take daily values from WRF/MCI laip = LAI_Y laic = Met_data%LAI END IF ! Canopy light calculation CALL MEGCANOPY( JYEAR, LAYERS, JDAY,CURRHR, & grid_data%lat, grid_data%lon, laic, & met_data%TEMP2, met_data%rgrnd, met_data%wspd10, & met_data%prsfc, met_data%Q2, ctf(1:6,:,:), & ShadeleafTK, SunleafTK, SunFrac, SunPPFD, ShadePPFD) ! MEGAN_HRNO is here so we have rainfall/pulse/PRECADJ, temp and radiation ! for prev 24 hrs. Also used to get save daily LAI. precadj=0. CALL MEGAN_HRNO( JDATE, JTIME, TSTEP, L_DESID_DIAG,PRECADJ) ! SOIL NITROGEN CALCULATION ! We call MEGVSA for GAMSM if using BDSNP or ! turning on drought stress. Used for ! GAMNO if using MEGAN YL95 for soil NO CFNO = 0 CFNOG = 0 GAMNO = 0 bdsnp_no_out = 0. CALL MEGVSA (JDATE,JTIME,TSTEP,JYEAR,JDAY, & L_DESID_DIAG,Grid_Data%SLTYP, & ctf(1:6,:,:),laic, grid_data%lat, & met_data%TEMP2,Met_Data%SOIM1, Met_Data%SOIM2, & Met_Data%SOIT1,PRECADJ, & CFNO, CFNOG, GAMSM, GAMNO,BDSNP_NO_out) IF ( NEW_START .or. IGNORE_SOILINP) THEN t24y = met_data%temp2 ! use instantaneous values if no 24h avg sw24y = met_data%rgrnd laip = laic ! no veg growth for first day of simulation END IF ! Emission activity calculation CALL MEGVEA( LAYERS, JDATE, CURRHR, & laip,laic,ldf, & GAMSM, met_data%TEMP2,met_data%TEMP2, & met_data%wspd10, & t24y, sw24y, sunleaftk, shadeleaftk, & sunfrac, sunppfd, shadeppfd,ER, NON_DIMGARMA ) ! Speciate for mechanism if(bdsnp_megan) then CALL convert2mech(bdsnp_no_out,non_dimgarma,out_to_cmaq) else CALL convert2mech(gamno,non_dimgarma,out_to_cmaq) end if ! Units for use by EMIS_DEFN.F via vdemis_me: [moles/s/m2] do i=1,NMGNSPC vdemis_me(i,:,:) = out_to_cmaq(i,:,:)*loc_cell_area/loc_msfx2 end do #ifdef mpas call mio_time_format_conversion (jdate, jtime, time_stamp) IF (L_DESID_DIAG) THEN do i=1,NMGNSPC call mio_fwrite('MEGAN_OUTPUT',trim(MEGAN_NAMES(i)), pname, & out_to_cmaq(i,:,1),time_stamp) end do END IF #endif RETURN END SUBROUTINE GET_MEGAN END MODULE MEGAN_DEFN ================================================ FILE: CCTM/src/biog/megan3/SPC_CB05.EXT ================================================ C======================================================================= C SPC_CB05.EXT C This include file contains CB05 (CMAQ/CAMx) species and their MW. C C C Mechanism Name: CB05 (CMAQ/CAMx) C MEGAN v3 C INPUT version x.x C C History: C Who When What C --------------------------------------------------------------------- C bkoo 04/13/07 - Created C Ling Huang 06/08/17 - updated for MEGANv3 with new species C======================================================================= CHARACTER*16 SPC_CB05MECH PARAMETER (SPC_CB05MECH = 'CB05 ') INTEGER N_CB05_SPC PARAMETER (N_CB05_SPC = 29) CHARACTER*16 MECH_SPC_CB05( N_CB05_SPC ) ! Mechanism species name REAL MECH_MWT_CB05( N_CB05_SPC ) ! Mechanism species molecular weight DATA MECH_SPC_CB05( 1), MECH_MWT_CB05( 1) / 'ISOP ', 68.12 / DATA MECH_SPC_CB05( 2), MECH_MWT_CB05( 2) / 'TERP ', 136.23 / DATA MECH_SPC_CB05( 3), MECH_MWT_CB05( 3) / 'PAR ', 14.43 / DATA MECH_SPC_CB05( 4), MECH_MWT_CB05( 4) / 'XYL ', 106.17 / DATA MECH_SPC_CB05( 5), MECH_MWT_CB05( 5) / 'OLE ', 27.65 / DATA MECH_SPC_CB05( 6), MECH_MWT_CB05( 6) / 'NR ', 16.00 / DATA MECH_SPC_CB05( 7), MECH_MWT_CB05( 7) / 'MEOH ', 32.04 / DATA MECH_SPC_CB05( 8), MECH_MWT_CB05( 8) / 'CH4 ', 16.04 / DATA MECH_SPC_CB05( 9), MECH_MWT_CB05( 9) / 'NH3 ', 17.03 / DATA MECH_SPC_CB05( 10), MECH_MWT_CB05( 10) / 'NO ', 46.00 / DATA MECH_SPC_CB05( 11), MECH_MWT_CB05( 11) / 'ALD2 ', 44.05 / DATA MECH_SPC_CB05( 12), MECH_MWT_CB05( 12) / 'ETOH ', 46.07 / DATA MECH_SPC_CB05( 13), MECH_MWT_CB05( 13) / 'FORM ', 30.03 / DATA MECH_SPC_CB05( 14), MECH_MWT_CB05( 14) / 'ALDX ', 43.65 / DATA MECH_SPC_CB05( 15), MECH_MWT_CB05( 15) / 'TOL ', 92.14 / DATA MECH_SPC_CB05( 16), MECH_MWT_CB05( 16) / 'IOLE ', 56.11 / DATA MECH_SPC_CB05( 17), MECH_MWT_CB05( 17) / 'CO ', 28.01 / DATA MECH_SPC_CB05( 18), MECH_MWT_CB05( 18) / 'ETHA ', 30.07 / DATA MECH_SPC_CB05( 19), MECH_MWT_CB05( 19) / 'ETH ', 28.05 / DATA MECH_SPC_CB05( 20), MECH_MWT_CB05( 20) / 'AACD ', 60.05 / DATA MECH_SPC_CB05( 21), MECH_MWT_CB05( 21) / 'FACD ', 46.03 / DATA MECH_SPC_CB05( 22), MECH_MWT_CB05( 22) / 'HCN ', 27.03 / DATA MECH_SPC_CB05( 23), MECH_MWT_CB05( 23) / 'ISPD ', 70.09 / DATA MECH_SPC_CB05( 24), MECH_MWT_CB05( 24) / 'N2O ', 44.01 / DATA MECH_SPC_CB05( 25), MECH_MWT_CB05( 25) / 'SESQ ', 204.35 / DATA MECH_SPC_CB05( 26), MECH_MWT_CB05( 26) / 'TRS ', 34.08 / DATA MECH_SPC_CB05( 27), MECH_MWT_CB05( 27) / 'CH3BR ', 94.94 / DATA MECH_SPC_CB05( 28), MECH_MWT_CB05( 28) / 'CH3CL ', 50.49 / DATA MECH_SPC_CB05( 29), MECH_MWT_CB05( 29) / 'CH3I ', 141.94 / ================================================ FILE: CCTM/src/biog/megan3/SPC_CB6.EXT ================================================ C======================================================================= C SPC_CB6.EXT C This include file contains CB6 (CMAQ/CAMx) species and their MW. C C C Mechanism Name: CB6 (CMAQ/CAMx) C MEGAN v3 C INPUT version x.x C C History: C Who When What C --------------------------------------------------------------------- C bkoo 04/13/07 - Created C Tan 07/18/11 - Updated for MEGANv2.10 C Ling Huang 06/08/17 - updated for MEGANv3 with new species C======================================================================= CHARACTER*16 SPC_CB6MECH PARAMETER (SPC_CB6MECH = 'CB6 ') INTEGER N_CB6_SPC PARAMETER (N_CB6_SPC = 36) CHARACTER*16 MECH_SPC_CB6( N_CB6_SPC ) ! Mechanism species name REAL MECH_MWT_CB6( N_CB6_SPC ) ! Mechanism species molecular weight DATA MECH_SPC_CB6( 1), MECH_MWT_CB6( 1) / 'ISOP ', 68.12 / DATA MECH_SPC_CB6( 2), MECH_MWT_CB6( 2) / 'TERP ', 136.23 / DATA MECH_SPC_CB6( 3), MECH_MWT_CB6( 3) / 'PAR ', 14.43 / DATA MECH_SPC_CB6( 4), MECH_MWT_CB6( 4) / 'XYL ', 106.17 / DATA MECH_SPC_CB6( 5), MECH_MWT_CB6( 5) / 'OLE ', 27.65 / DATA MECH_SPC_CB6( 6), MECH_MWT_CB6( 6) / 'NR ', 16.00 / DATA MECH_SPC_CB6( 7), MECH_MWT_CB6( 7) / 'MEOH ', 32.04 / DATA MECH_SPC_CB6( 8), MECH_MWT_CB6( 8) / 'CH4 ', 16.04 / DATA MECH_SPC_CB6( 9), MECH_MWT_CB6( 9) / 'NH3 ', 17.03 / DATA MECH_SPC_CB6( 10), MECH_MWT_CB6( 10) / 'NO ', 46.00 / DATA MECH_SPC_CB6( 11), MECH_MWT_CB6( 11) / 'ALD2 ', 44.05 / DATA MECH_SPC_CB6( 12), MECH_MWT_CB6( 12) / 'ETOH ', 46.07 / DATA MECH_SPC_CB6( 13), MECH_MWT_CB6( 13) / 'FORM ', 30.03 / DATA MECH_SPC_CB6( 14), MECH_MWT_CB6( 14) / 'ALDX ', 43.65 / DATA MECH_SPC_CB6( 15), MECH_MWT_CB6( 15) / 'TOL ', 92.14 / DATA MECH_SPC_CB6( 16), MECH_MWT_CB6( 16) / 'IOLE ', 56.11 / DATA MECH_SPC_CB6( 17), MECH_MWT_CB6( 17) / 'CO ', 28.01 / DATA MECH_SPC_CB6( 18), MECH_MWT_CB6( 18) / 'ETHA ', 30.07 / DATA MECH_SPC_CB6( 19), MECH_MWT_CB6( 19) / 'ETH ', 28.05 / DATA MECH_SPC_CB6( 20), MECH_MWT_CB6( 20) / 'ETHY ', 26.04 / DATA MECH_SPC_CB6( 21), MECH_MWT_CB6( 21) / 'PRPA ', 44.10 / DATA MECH_SPC_CB6( 22), MECH_MWT_CB6( 22) / 'BENZ ', 78.11 / DATA MECH_SPC_CB6( 23), MECH_MWT_CB6( 23) / 'ACET ', 58.08 / DATA MECH_SPC_CB6( 24), MECH_MWT_CB6( 24) / 'KET ', 28.82 / DATA MECH_SPC_CB6( 25), MECH_MWT_CB6( 25) / 'AACD ', 60.05 / DATA MECH_SPC_CB6( 26), MECH_MWT_CB6( 26) / 'FACD ', 46.03 / DATA MECH_SPC_CB6( 27), MECH_MWT_CB6( 27) / 'HCN ', 27.03 / DATA MECH_SPC_CB6( 28), MECH_MWT_CB6( 28) / 'ISPD ', 70.09 / DATA MECH_SPC_CB6( 29), MECH_MWT_CB6( 29) / 'N2O ', 44.01 / DATA MECH_SPC_CB6( 30), MECH_MWT_CB6( 30) / 'SESQ ', 204.35 / DATA MECH_SPC_CB6( 31), MECH_MWT_CB6( 31) / 'TRS ', 34.08 / DATA MECH_SPC_CB6( 32), MECH_MWT_CB6( 32) / 'CH3BR ', 94.94 / DATA MECH_SPC_CB6( 33), MECH_MWT_CB6( 33) / 'CH3CL ', 50.49 / DATA MECH_SPC_CB6( 34), MECH_MWT_CB6( 34) / 'CH3I ', 141.94 / DATA MECH_SPC_CB6( 35), MECH_MWT_CB6( 35) / 'ALD2_PRIMARY ', 44.05 / DATA MECH_SPC_CB6( 36), MECH_MWT_CB6( 36) / 'FORM_PRIMARY ', 30.03 / ================================================ FILE: CCTM/src/biog/megan3/SPC_CB6_AE7.EXT ================================================ C======================================================================= C SPC_CB6.EXT C This include file contains CB6 (CMAQ/CAMx) species and their MW. C C C Mechanism Name: CB6 (CMAQ/CAMx) C MEGAN v3 C INPUT version x.x C C History: C Who When What C --------------------------------------------------------------------- C bkoo 04/13/07 - Created C Tan 07/18/11 - Updated for MEGANv2.10 C Ling Huang 06/08/17 - updated for MEGANv3 with new species C======================================================================= CHARACTER*16 SPC_CB6AE7MECH PARAMETER (SPC_CB6AE7MECH = 'CB6_ae7 ') INTEGER N_CB6_ae7_SPC PARAMETER (N_CB6_ae7_SPC = 37) CHARACTER*16 MECH_SPC_CB6_AE7( N_CB6_ae7_SPC ) ! Mechanism species name REAL MECH_MWT_CB6_AE7( N_CB6_ae7_SPC ) ! Mechanism species molecular weight DATA MECH_SPC_CB6_AE7( 1), MECH_MWT_CB6_AE7( 1) / 'ISOP ', 68.12 / DATA MECH_SPC_CB6_AE7( 2), MECH_MWT_CB6_AE7( 2) / 'TERP ', 136.23 / DATA MECH_SPC_CB6_AE7( 3), MECH_MWT_CB6_AE7( 3) / 'PAR ', 14.43 / DATA MECH_SPC_CB6_AE7( 4), MECH_MWT_CB6_AE7( 4) / 'XYL ', 106.17 / DATA MECH_SPC_CB6_AE7( 5), MECH_MWT_CB6_AE7( 5) / 'OLE ', 27.65 / DATA MECH_SPC_CB6_AE7( 6), MECH_MWT_CB6_AE7( 6) / 'NR ', 16.00 / DATA MECH_SPC_CB6_AE7( 7), MECH_MWT_CB6_AE7( 7) / 'MEOH ', 32.04 / DATA MECH_SPC_CB6_AE7( 8), MECH_MWT_CB6_AE7( 8) / 'CH4 ', 16.04 / DATA MECH_SPC_CB6_AE7( 9), MECH_MWT_CB6_AE7( 9) / 'NH3 ', 17.03 / DATA MECH_SPC_CB6_AE7( 10), MECH_MWT_CB6_AE7( 10) / 'NO ', 46.00 / DATA MECH_SPC_CB6_AE7( 11), MECH_MWT_CB6_AE7( 11) / 'ALD2 ', 44.05 / DATA MECH_SPC_CB6_AE7( 12), MECH_MWT_CB6_AE7( 12) / 'ETOH ', 46.07 / DATA MECH_SPC_CB6_AE7( 13), MECH_MWT_CB6_AE7( 13) / 'FORM ', 30.03 / DATA MECH_SPC_CB6_AE7( 14), MECH_MWT_CB6_AE7( 14) / 'ALDX ', 43.65 / DATA MECH_SPC_CB6_AE7( 15), MECH_MWT_CB6_AE7( 15) / 'TOL ', 92.14 / DATA MECH_SPC_CB6_AE7( 16), MECH_MWT_CB6_AE7( 16) / 'IOLE ', 56.11 / DATA MECH_SPC_CB6_AE7( 17), MECH_MWT_CB6_AE7( 17) / 'CO ', 28.01 / DATA MECH_SPC_CB6_AE7( 18), MECH_MWT_CB6_AE7( 18) / 'ETHA ', 30.07 / DATA MECH_SPC_CB6_AE7( 19), MECH_MWT_CB6_AE7( 19) / 'ETH ', 28.05 / DATA MECH_SPC_CB6_AE7( 20), MECH_MWT_CB6_AE7( 20) / 'ETHY ', 26.04 / DATA MECH_SPC_CB6_AE7( 21), MECH_MWT_CB6_AE7( 21) / 'PRPA ', 44.10 / DATA MECH_SPC_CB6_AE7( 22), MECH_MWT_CB6_AE7( 22) / 'BENZ ', 78.11 / DATA MECH_SPC_CB6_AE7( 23), MECH_MWT_CB6_AE7( 23) / 'ACET ', 58.08 / DATA MECH_SPC_CB6_AE7( 24), MECH_MWT_CB6_AE7( 24) / 'KET ', 28.82 / DATA MECH_SPC_CB6_AE7( 25), MECH_MWT_CB6_AE7( 25) / 'AACD ', 60.05 / DATA MECH_SPC_CB6_AE7( 26), MECH_MWT_CB6_AE7( 26) / 'FACD ', 46.03 / DATA MECH_SPC_CB6_AE7( 27), MECH_MWT_CB6_AE7( 27) / 'HCN ', 27.03 / DATA MECH_SPC_CB6_AE7( 28), MECH_MWT_CB6_AE7( 28) / 'ISPD ', 70.09 / DATA MECH_SPC_CB6_AE7( 29), MECH_MWT_CB6_AE7( 29) / 'N2O ', 44.01 / DATA MECH_SPC_CB6_AE7( 30), MECH_MWT_CB6_AE7( 30) / 'SESQ ', 204.35 / DATA MECH_SPC_CB6_AE7( 31), MECH_MWT_CB6_AE7( 31) / 'TRS ', 34.08 / DATA MECH_SPC_CB6_AE7( 32), MECH_MWT_CB6_AE7( 32) / 'CH3BR ', 94.94 / DATA MECH_SPC_CB6_AE7( 33), MECH_MWT_CB6_AE7( 33) / 'CH3CL ', 50.49 / DATA MECH_SPC_CB6_AE7( 34), MECH_MWT_CB6_AE7( 34) / 'CH3I ', 141.94 / DATA MECH_SPC_CB6_AE7( 35), MECH_MWT_CB6_AE7( 35) / 'APIN ', 136.24 / DATA MECH_SPC_CB6_AE7( 36), MECH_MWT_CB6_AE7( 36) / 'ALD2_PRIMARY ', 44.05 / DATA MECH_SPC_CB6_AE7( 37), MECH_MWT_CB6_AE7( 37) / 'FORM_PRIMARY ', 30.03 / ================================================ FILE: CCTM/src/biog/megan3/SPC_CRACMM1.EXT ================================================ C======================================================================= C SPC_CRACMM1.EXT C This include file contains CRACMM1 (CMAQ) species and their MW. C C Mechanism Name: CRACMM1 (CMAQ) C MEGAN v3 C INPUT version x.x C C History: C Who When What C --------------------------------------------------------------------- C Jeff Willison 05/17/22 - Created for MEGAN 3.2 in CMAQ C======================================================================= CHARACTER*16 SPC_CRACMM1MECH PARAMETER (SPC_CRACMM1MECH = 'CRACMM1 ') INTEGER N_CRACMM1_SPC PARAMETER (N_CRACMM1_SPC = 46) CHARACTER*16 MECH_SPC_CRACMM1( N_CRACMM1_SPC ) ! Mechanism species name REAL MECH_MWT_CRACMM1( N_CRACMM1_SPC ) ! Mechanism species molecular weight DATA MECH_SPC_CRACMM1( 1), MECH_MWT_CRACMM1( 1) / 'ISO ', 68.10 / DATA MECH_SPC_CRACMM1( 2), MECH_MWT_CRACMM1( 2) / 'OLT ', 42.00 / DATA MECH_SPC_CRACMM1( 3), MECH_MWT_CRACMM1( 3) / 'API ', 136.40 / DATA MECH_SPC_CRACMM1( 4), MECH_MWT_CRACMM1( 4) / 'LIM ', 136.30 / DATA MECH_SPC_CRACMM1( 5), MECH_MWT_CRACMM1( 5) / 'HC3 ', 44.10 / DATA MECH_SPC_CRACMM1( 6), MECH_MWT_CRACMM1( 6) / 'FURAN ', 96.10 / DATA MECH_SPC_CRACMM1( 7), MECH_MWT_CRACMM1( 7) / 'XYE ', 106.20 / DATA MECH_SPC_CRACMM1( 8), MECH_MWT_CRACMM1( 8) / 'VROCP6ARO ', 176.30 / DATA MECH_SPC_CRACMM1( 9), MECH_MWT_CRACMM1( 9) / 'XYM ', 106.20 / DATA MECH_SPC_CRACMM1( 10), MECH_MWT_CRACMM1( 10) / 'VROCIOXY ', 247.00 / DATA MECH_SPC_CRACMM1( 11), MECH_MWT_CRACMM1( 11) / 'KET ', 86.00 / DATA MECH_SPC_CRACMM1( 12), MECH_MWT_CRACMM1( 12) / 'SESQ ', 204.40 / DATA MECH_SPC_CRACMM1( 13), MECH_MWT_CRACMM1( 13) / 'VROCP5ARO ', 190.33 / DATA MECH_SPC_CRACMM1( 14), MECH_MWT_CRACMM1( 14) / 'VROCP2ALK ', 338.66 / DATA MECH_SPC_CRACMM1( 15), MECH_MWT_CRACMM1( 15) / 'VROCP5ALK ', 198.39 / DATA MECH_SPC_CRACMM1( 16), MECH_MWT_CRACMM1( 16) / 'VROCP1ALK ', 380.75 / DATA MECH_SPC_CRACMM1( 17), MECH_MWT_CRACMM1( 17) / 'VROCP4ALK ', 254.50 / DATA MECH_SPC_CRACMM1( 18), MECH_MWT_CRACMM1( 18) / 'MOH ', 32.00 / DATA MECH_SPC_CRACMM1( 19), MECH_MWT_CRACMM1( 19) / 'ACT ', 58.00 / DATA MECH_SPC_CRACMM1( 20), MECH_MWT_CRACMM1( 20) / 'ACD ', 44.00 / DATA MECH_SPC_CRACMM1( 21), MECH_MWT_CRACMM1( 21) / 'EOH ', 46.10 / DATA MECH_SPC_CRACMM1( 22), MECH_MWT_CRACMM1( 22) / 'ORA2 ', 60.20 / DATA MECH_SPC_CRACMM1( 23), MECH_MWT_CRACMM1( 23) / 'ORA1 ', 46.00 / DATA MECH_SPC_CRACMM1( 24), MECH_MWT_CRACMM1( 24) / 'OLI ', 70.10 / DATA MECH_SPC_CRACMM1( 25), MECH_MWT_CRACMM1( 25) / 'ETH ', 30.10 / DATA MECH_SPC_CRACMM1( 26), MECH_MWT_CRACMM1( 26) / 'ETE ', 28.10 / DATA MECH_SPC_CRACMM1( 27), MECH_MWT_CRACMM1( 27) / 'ALD ', 58.00 / DATA MECH_SPC_CRACMM1( 28), MECH_MWT_CRACMM1( 28) / 'UALD ', 84.10 / DATA MECH_SPC_CRACMM1( 29), MECH_MWT_CRACMM1( 29) / 'HCHO ', 30.00 / DATA MECH_SPC_CRACMM1( 30), MECH_MWT_CRACMM1( 30) / 'MGLY ', 72.00 / DATA MECH_SPC_CRACMM1( 31), MECH_MWT_CRACMM1( 31) / 'ROH ', 60.00 / DATA MECH_SPC_CRACMM1( 32), MECH_MWT_CRACMM1( 32) / 'BALD ', 106.00 / DATA MECH_SPC_CRACMM1( 33), MECH_MWT_CRACMM1( 33) / 'BEN ', 78.11 / DATA MECH_SPC_CRACMM1( 34), MECH_MWT_CRACMM1( 34) / 'CSL ', 136.20 / DATA MECH_SPC_CRACMM1( 35), MECH_MWT_CRACMM1( 35) / 'HC10 ', 142.28 / DATA MECH_SPC_CRACMM1( 36), MECH_MWT_CRACMM1( 36) / 'SLOWROC ', 75.40 / DATA MECH_SPC_CRACMM1( 37), MECH_MWT_CRACMM1( 37) / 'MACR ', 70.00 / DATA MECH_SPC_CRACMM1( 38), MECH_MWT_CRACMM1( 38) / 'MVK ', 70.10 / DATA MECH_SPC_CRACMM1( 39), MECH_MWT_CRACMM1( 39) / 'PHEN ', 110.10 / DATA MECH_SPC_CRACMM1( 40), MECH_MWT_CRACMM1( 40) / 'TOL ', 92.14 / DATA MECH_SPC_CRACMM1( 41), MECH_MWT_CRACMM1( 41) / 'MEK ', 72.10 / DATA MECH_SPC_CRACMM1( 42), MECH_MWT_CRACMM1( 42) / 'HC5 ', 72.10 / DATA MECH_SPC_CRACMM1( 43), MECH_MWT_CRACMM1( 43) / 'NO ', 30.00 / DATA MECH_SPC_CRACMM1( 44), MECH_MWT_CRACMM1( 44) / 'ECH4 ', 16.04 / DATA MECH_SPC_CRACMM1( 45), MECH_MWT_CRACMM1( 45) / 'NAPH ', 128.17 / DATA MECH_SPC_CRACMM1( 46), MECH_MWT_CRACMM1( 46) / 'CO ', 28.01 / ================================================ FILE: CCTM/src/biog/megan3/SPC_CRACMM2.EXT ================================================ C======================================================================= C SPC_CRACMM.EXT C This include file contains CRACMM (CMAQ) species and their MW. C C Mechanism Name: CRACMM (CMAQ) C MEGAN v3 C INPUT version x.x C C History: C Who When What C --------------------------------------------------------------------- C Jeff Willison 05/17/22 - Created for MEGAN 3.2 in CMAQ C======================================================================= CHARACTER*16 SPC_CRACMM2MECH PARAMETER (SPC_CRACMM2MECH = 'CRACMM2 ') INTEGER N_CRACMM2_SPC PARAMETER (N_CRACMM2_SPC = 46) CHARACTER*16 MECH_SPC_CRACMM2( N_CRACMM2_SPC ) ! Mechanism species name REAL MECH_MWT_CRACMM2( N_CRACMM2_SPC ) ! Mechanism species molecular weight DATA MECH_SPC_CRACMM2( 1), MECH_MWT_CRACMM2( 1) / 'ISO ', 68.10 / DATA MECH_SPC_CRACMM2( 2), MECH_MWT_CRACMM2( 2) / 'OLT ', 42.00 / DATA MECH_SPC_CRACMM2( 3), MECH_MWT_CRACMM2( 3) / 'API ', 136.40 / DATA MECH_SPC_CRACMM2( 4), MECH_MWT_CRACMM2( 4) / 'LIM ', 136.30 / DATA MECH_SPC_CRACMM2( 5), MECH_MWT_CRACMM2( 5) / 'HC3 ', 44.10 / DATA MECH_SPC_CRACMM2( 6), MECH_MWT_CRACMM2( 6) / 'FURAN ', 96.10 / DATA MECH_SPC_CRACMM2( 7), MECH_MWT_CRACMM2( 7) / 'XYL ', 106.20 / DATA MECH_SPC_CRACMM2( 8), MECH_MWT_CRACMM2( 8) / 'VROCP6ARO ', 176.30 / DATA MECH_SPC_CRACMM2( 9), MECH_MWT_CRACMM2( 9) / 'NAPH ', 128.17 / DATA MECH_SPC_CRACMM2( 10), MECH_MWT_CRACMM2( 10) / 'VROCIOXY ', 247.00 / DATA MECH_SPC_CRACMM2( 11), MECH_MWT_CRACMM2( 11) / 'KET ', 86.00 / DATA MECH_SPC_CRACMM2( 12), MECH_MWT_CRACMM2( 12) / 'SESQ ', 204.40 / DATA MECH_SPC_CRACMM2( 13), MECH_MWT_CRACMM2( 13) / 'VROCP5ARO ', 190.33 / DATA MECH_SPC_CRACMM2( 14), MECH_MWT_CRACMM2( 14) / 'VROCP1OXY1 ', 270.50 / DATA MECH_SPC_CRACMM2( 15), MECH_MWT_CRACMM2( 15) / 'VROCP1OXY3 ', 202.30 / DATA MECH_SPC_CRACMM2( 16), MECH_MWT_CRACMM2( 16) / 'VROCP2OXY2 ', 200.30 / DATA MECH_SPC_CRACMM2( 17), MECH_MWT_CRACMM2( 17) / 'VROCP4ALK ', 254.50 / DATA MECH_SPC_CRACMM2( 18), MECH_MWT_CRACMM2( 18) / 'VROCP5OXY1 ', 170.30 / DATA MECH_SPC_CRACMM2( 19), MECH_MWT_CRACMM2( 19) / 'MOH ', 32.00 / DATA MECH_SPC_CRACMM2( 20), MECH_MWT_CRACMM2( 20) / 'ACT ', 58.00 / DATA MECH_SPC_CRACMM2( 21), MECH_MWT_CRACMM2( 21) / 'ACD ', 44.00 / DATA MECH_SPC_CRACMM2( 22), MECH_MWT_CRACMM2( 22) / 'EOH ', 46.10 / DATA MECH_SPC_CRACMM2( 23), MECH_MWT_CRACMM2( 23) / 'ORA2 ', 60.20 / DATA MECH_SPC_CRACMM2( 24), MECH_MWT_CRACMM2( 24) / 'ORA1 ', 46.00 / DATA MECH_SPC_CRACMM2( 25), MECH_MWT_CRACMM2( 25) / 'OLI ', 70.10 / DATA MECH_SPC_CRACMM2( 26), MECH_MWT_CRACMM2( 26) / 'ETH ', 30.10 / DATA MECH_SPC_CRACMM2( 27), MECH_MWT_CRACMM2( 27) / 'ETE ', 28.10 / DATA MECH_SPC_CRACMM2( 28), MECH_MWT_CRACMM2( 28) / 'ALD ', 58.00 / DATA MECH_SPC_CRACMM2( 29), MECH_MWT_CRACMM2( 29) / 'UALD ', 84.10 / DATA MECH_SPC_CRACMM2( 30), MECH_MWT_CRACMM2( 30) / 'HCHO ', 30.00 / DATA MECH_SPC_CRACMM2( 31), MECH_MWT_CRACMM2( 31) / 'MGLY ', 72.00 / DATA MECH_SPC_CRACMM2( 32), MECH_MWT_CRACMM2( 32) / 'ROH ', 60.00 / DATA MECH_SPC_CRACMM2( 33), MECH_MWT_CRACMM2( 33) / 'BALD ', 106.00 / DATA MECH_SPC_CRACMM2( 34), MECH_MWT_CRACMM2( 34) / 'BEN ', 78.11 / DATA MECH_SPC_CRACMM2( 35), MECH_MWT_CRACMM2( 35) / 'CSL ', 136.20 / DATA MECH_SPC_CRACMM2( 36), MECH_MWT_CRACMM2( 36) / 'HC10 ', 142.28 / DATA MECH_SPC_CRACMM2( 37), MECH_MWT_CRACMM2( 37) / 'SLOWROC ', 75.40 / DATA MECH_SPC_CRACMM2( 38), MECH_MWT_CRACMM2( 38) / 'MACR ', 70.00 / DATA MECH_SPC_CRACMM2( 39), MECH_MWT_CRACMM2( 39) / 'MVK ', 70.10 / DATA MECH_SPC_CRACMM2( 40), MECH_MWT_CRACMM2( 40) / 'PHEN ', 110.10 / DATA MECH_SPC_CRACMM2( 41), MECH_MWT_CRACMM2( 41) / 'TOL ', 92.14 / DATA MECH_SPC_CRACMM2( 42), MECH_MWT_CRACMM2( 42) / 'MEK ', 72.10 / DATA MECH_SPC_CRACMM2( 43), MECH_MWT_CRACMM2( 43) / 'HC5 ', 72.10 / DATA MECH_SPC_CRACMM2( 44), MECH_MWT_CRACMM2( 44) / 'NO ', 30.00 / DATA MECH_SPC_CRACMM2( 45), MECH_MWT_CRACMM2( 45) / 'ECH4 ', 16.04 / DATA MECH_SPC_CRACMM2( 46), MECH_MWT_CRACMM2( 46) / 'CO ', 28.01 / ================================================ FILE: CCTM/src/biog/megan3/SPC_NOCONVER.EXT ================================================ !======================================================================= ! MGN_SPC.EXT ! MEGAN species class ! ! MEGAN v3 ! INPUT version 300 ! ! History: ! Who When What ! --------------------------------------------------------------------- ! Tan 12/02/06 - Creates this file ! Tan 08/14/07 - Move from MEGAN v2.0 to MEGAN v2.02 with no update. ! Ling Huang 03/17/17 - Updated this file for MEGAN3 based on Alex Guenther's ! "Descrption Class.xlsx" ! Ling Huang 04/17/21 - Updated this file for MEGAN3.2 based on Alex Guenther's ! "MEGAN3 Speciation32.xlsx" ! Reduce 20 categories to 19 categories (combine category 7 ! and category 8; move category 20 (NO) to category 8) !====================================================================== INTEGER,PARAMETER :: N_MGN_SPC = 19 CHARACTER*16 MGN_SPC(N_MGN_SPC) DATA MGN_SPC( 1) / 'ISOP '/ ! isoprene DATA MGN_SPC( 2) / 'MBO '/ ! MBO DATA MGN_SPC( 3) / 'MT_PINE '/ ! monoterpenes: pines (alpha and beta) DATA MGN_SPC( 4) / 'MT_ACYC '/ ! monoterpenes: acyclic, 3 = (e.g., myrcene, ocimenes) DATA MGN_SPC( 5) / 'MT_CAMP '/ ! monoterpenes: carene, camphene, others DATA MGN_SPC( 6) / 'MT_SABI '/ ! monoterpenes: sabinene, limonene, terpinenes, others DATA MGN_SPC( 7) / 'MT_AROM '/ ! C10 aromatic: cymenes, cymenenes & C8-C13 oxygenated (e.g. camphor) DATA MGN_SPC( 8) / 'NO '/ ! Nitric oxide DATA MGN_SPC( 9) / 'SQT_HR '/ ! Highly reactive SQT (e.g., caryophyllene) DATA MGN_SPC( 10) / 'SQT_LR '/ ! less reactive SQT (e.g., longifolene, copaene) and salates DATA MGN_SPC( 11) / 'MEOH '/ ! methanol DATA MGN_SPC( 12) / 'ACTO '/ ! acetone DATA MGN_SPC( 13) / 'ETOH '/ ! acetaldehyde and ethanol DATA MGN_SPC( 14) / 'ACID '/ ! organic acids: formic acid, acetic acid, pyruvic acid DATA MGN_SPC( 15) / 'LVOC '/ ! C2 to C4 HC (e.g., ethene, ethane) DATA MGN_SPC( 16) / 'OXPROD '/ ! oxidation products: aldehydes DATA MGN_SPC( 17) / 'STRESS '/ ! Stress compounds (e.g., linalool) DATA MGN_SPC( 18) / 'OTHER '/ ! other VOC (e.g., indole, pentane, methyl bromide) DATA MGN_SPC( 19) / 'CO '/ ! carbon monoxide !======================================================================= ! SPCAT_SPC.EXT ! MEGAN speciated species and their MW. ! ! MEGAN v3 ! INPUT version 3 ! ! History: ! Who When What ! --------------------------------------------------------------------- ! Tan 12/02/06 - Creates this file ! Tan 08/14/07 - Move from MEGAN v2.0 to MEGAN v2.02 with no update. ! Ling Huang 03/14/17 - Updated for MEGAN3 based on Alex Guenther's ! "Description Speciation.xlsx" !======================================================================= INTEGER,PARAMETER :: N_SPCA_SPC = 201 ! Number of speciated species CHARACTER*20 SPCA_SPC( N_SPCA_SPC ) ! speciated species name REAL SPCA_MWT( N_SPCA_SPC ) ! Mechanism species molecular weight !CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC ! _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 , ! COTHER= acetaldehyde , 3met = trimethyl !CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC ! Isoprene DATA SPCA_SPC( 1), SPCA_MWT( 1) / 'isoprene', 68.12 / ! MBO DATA SPCA_SPC( 2), SPCA_MWT( 2) / 'MBO_2m3e2ol', 84.12 / ! MT_PINE DATA SPCA_SPC( 3), SPCA_MWT( 3) / 'pinene_a', 136.24 / DATA SPCA_SPC( 4), SPCA_MWT( 4) / 'pinene_b', 136.24 / ! MT_ACYC DATA SPCA_SPC( 5), SPCA_MWT( 5) / 'myrcene', 136.24 / DATA SPCA_SPC( 6), SPCA_MWT( 6) / 'ocimene_al', 136.24 / DATA SPCA_SPC( 7), SPCA_MWT( 7) / 'ocimene_c_b', 136.24 / DATA SPCA_SPC( 8), SPCA_MWT( 8) / 'ocimene_t_b', 136.24 / ! MT_CAMP DATA SPCA_SPC( 9), SPCA_MWT( 9) / 'bornene', 136.24 / DATA SPCA_SPC( 10), SPCA_MWT( 10) / 'camphene', 136.24 / DATA SPCA_SPC( 11), SPCA_MWT( 11) / 'carene_3', 136.24 / DATA SPCA_SPC( 12), SPCA_MWT( 12) / 'fenchene_a', 136.24 / DATA SPCA_SPC( 13), SPCA_MWT( 13) / 'fenchene_b', 136.24 / DATA SPCA_SPC( 14), SPCA_MWT( 14) / 'tricyclene', 136.24 / ! MT_SABI DATA SPCA_SPC( 15), SPCA_MWT( 15) / 'limonene', 136.24 / DATA SPCA_SPC( 16), SPCA_MWT( 16) / 'phellandrene_b', 136.24 / DATA SPCA_SPC( 17), SPCA_MWT( 17) / 'phellandrene_a', 136.24 / DATA SPCA_SPC( 18), SPCA_MWT( 18) / 'sabinene', 136.24 / DATA SPCA_SPC( 19), SPCA_MWT( 19) / 'terpinene_a', 136.24 / DATA SPCA_SPC( 20), SPCA_MWT( 20) / 'terpinene_g', 136.24 / DATA SPCA_SPC( 21), SPCA_MWT( 21) / 'terpinolene', 136.24 / DATA SPCA_SPC( 22), SPCA_MWT( 22) / 'thujene_a', 136.24 / DATA SPCA_SPC( 23), SPCA_MWT( 23) / 'verbenene', 134.22 / ! MT_AROM DATA SPCA_SPC( 24), SPCA_MWT( 24) / 'cymene_o', 134.22 / DATA SPCA_SPC( 25), SPCA_MWT( 25) / 'cymene_p', 134.22 / DATA SPCA_SPC( 26), SPCA_MWT( 26) / 'meta-cymenene', 132.21 / DATA SPCA_SPC( 27), SPCA_MWT( 27) / 'p-cymenene', 132.21 / ! MT_OXY DATA SPCA_SPC( 28), SPCA_MWT( 28) / 'borneol', 154.25 / DATA SPCA_SPC( 29), SPCA_MWT( 29) / 'bornyl_ACT', 196.29 / DATA SPCA_SPC( 30), SPCA_MWT( 30) / 'camphor', 152.24 / DATA SPCA_SPC( 31), SPCA_MWT( 31) / 'estragole', 148.2 / DATA SPCA_SPC( 32), SPCA_MWT( 32) / 'fenchone', 152.24 / DATA SPCA_SPC( 33), SPCA_MWT( 33) / 'ionone_b', 192.3 / DATA SPCA_SPC( 34), SPCA_MWT( 34) / 'ipsenol', 154.25 / DATA SPCA_SPC( 35), SPCA_MWT( 35) / 'myrtenal', 150.22 / DATA SPCA_SPC( 36), SPCA_MWT( 36) / 'octanol', 128.21 / DATA SPCA_SPC( 37), SPCA_MWT( 37) / 'octenol_1e3ol', 128.21 / DATA SPCA_SPC( 38), SPCA_MWT( 38) / 'piperitone', 152.24 / DATA SPCA_SPC( 39), SPCA_MWT( 39) / 'terpineol_4', 154.25 / DATA SPCA_SPC( 40), SPCA_MWT( 40) / 'terpineol_a', 154.25 / DATA SPCA_SPC( 41), SPCA_MWT( 41) / 'thujone_a', 152.24 / DATA SPCA_SPC( 42), SPCA_MWT( 42) / 'thujone_b', 152.24 / ! SQT_HR DATA SPCA_SPC( 43), SPCA_MWT( 43) / 'acoradiene', 204.36 / DATA SPCA_SPC( 44), SPCA_MWT( 44) / 'bergamotene_a', 204.36 / DATA SPCA_SPC( 45), SPCA_MWT( 45) / 'bergamotene_b', 204.36 / DATA SPCA_SPC( 46), SPCA_MWT( 46) / 'bisabolene_a', 204.36 / DATA SPCA_SPC( 47), SPCA_MWT( 47) / 'bisabolene_b', 204.36 / DATA SPCA_SPC( 48), SPCA_MWT( 48) / 'cadinene_d', 204.36 / DATA SPCA_SPC( 49), SPCA_MWT( 49) / 'cadinene_g', 204.36 / DATA SPCA_SPC( 50), SPCA_MWT( 50) / 'calarene', 204.36 / DATA SPCA_SPC( 51), SPCA_MWT( 51) / 'caryophyllene_b', 204.36 / DATA SPCA_SPC( 52), SPCA_MWT( 52) / 'caryophyllene_c_i', 204.36 / DATA SPCA_SPC( 53), SPCA_MWT( 53) / 'elemene_b', 204.36 / DATA SPCA_SPC( 54), SPCA_MWT( 54) / 'farnescene_a', 204.36 / DATA SPCA_SPC( 55), SPCA_MWT( 55) / 'farnescene_b', 204.36 / DATA SPCA_SPC( 56), SPCA_MWT( 56) / 'farnesol', 222.37 / DATA SPCA_SPC( 57), SPCA_MWT( 57) / 'germacrene_B', 204.36 / DATA SPCA_SPC( 58), SPCA_MWT( 58) / 'germacrene_D', 204.36 / DATA SPCA_SPC( 59), SPCA_MWT( 59) / 'humulene_a', 204.36 / DATA SPCA_SPC( 60), SPCA_MWT( 60) / 'humulene_g', 204.36 / DATA SPCA_SPC( 61), SPCA_MWT( 61) / 'muurolene_a', 204.36 / DATA SPCA_SPC( 62), SPCA_MWT( 62) / 'muurolene_g', 204.36 / DATA SPCA_SPC( 63), SPCA_MWT( 63) / 'nerolidol_c', 222.37 / DATA SPCA_SPC( 64), SPCA_MWT( 64) / 'nerolidol_t', 222.37 / DATA SPCA_SPC( 65), SPCA_MWT( 65) / 'patchoulene_b', 204.36 / DATA SPCA_SPC( 66), SPCA_MWT( 66) / 'selinene_b', 204.36 / DATA SPCA_SPC( 67), SPCA_MWT( 67) / 'selinene_d', 204.36 / ! SQT_LR DATA SPCA_SPC( 68), SPCA_MWT( 68) / '2ethyl_hexyl_salate', 250.34 / DATA SPCA_SPC( 69), SPCA_MWT( 69) / 'aromadendrene', 204.36 / DATA SPCA_SPC( 70), SPCA_MWT( 70) / 'bourbonene_b', 204.36 / DATA SPCA_SPC( 71), SPCA_MWT( 71) / 'cadinol_a', 222.37 / DATA SPCA_SPC( 72), SPCA_MWT( 72) / 'cedrene_a', 204.36 / DATA SPCA_SPC( 73), SPCA_MWT( 73) / 'cedrol', 222.37 / DATA SPCA_SPC( 74), SPCA_MWT( 74) / 'copaene_a', 204.36 / DATA SPCA_SPC( 75), SPCA_MWT( 75) / 'cubebene_a', 204.36 / DATA SPCA_SPC( 76), SPCA_MWT( 76) / 'cubebene_b', 204.36 / DATA SPCA_SPC( 77), SPCA_MWT( 77) / 'gurjunene_b', 204.36 / DATA SPCA_SPC( 78), SPCA_MWT( 78) / 'homosalate', 262.35 / DATA SPCA_SPC( 79), SPCA_MWT( 79) / 'isolongifolene', 204.36 / DATA SPCA_SPC( 80), SPCA_MWT( 80) / 'kaur_16_ene', 272.47 / DATA SPCA_SPC( 81), SPCA_MWT( 81) / 'longifolene', 204.36 / DATA SPCA_SPC( 82), SPCA_MWT( 82) / 'longipinene', 204.36 / DATA SPCA_SPC( 83), SPCA_MWT( 83) / 'thujopsene', 204.36 / DATA SPCA_SPC( 84), SPCA_MWT( 84) / 'ylangene_a', 204.36 / DATA SPCA_SPC( 85), SPCA_MWT( 85) / 'zingiberene_a', 204.36 / DATA SPCA_SPC( 86), SPCA_MWT( 86) / 'copaene_b', 204.36 / DATA SPCA_SPC( 87), SPCA_MWT( 87) / 'longicyclene', 204.36 / ! METOH DATA SPCA_SPC( 88), SPCA_MWT( 88) / 'methanol', 32.04 / ! ACTO DATA SPCA_SPC( 89), SPCA_MWT( 89) / 'acetone', 58.08 / ! ETOH DATA SPCA_SPC( 90), SPCA_MWT( 90) / 'acetaldehyde', 44.05 / DATA SPCA_SPC( 91), SPCA_MWT( 91) / 'ethanol', 46.07 / ! ACID DATA SPCA_SPC( 92), SPCA_MWT( 92) / 'acetic_acid', 60.05 / DATA SPCA_SPC( 93), SPCA_MWT( 93) / 'formic_acid', 46.03 / DATA SPCA_SPC( 94), SPCA_MWT( 94) / 'pyruvic_acid', 88.06 / ! LVOC DATA SPCA_SPC( 95), SPCA_MWT( 95) / '2_methylprop_1_ene', 56.11 / DATA SPCA_SPC( 96), SPCA_MWT( 96) / 'butane', 58.12 / DATA SPCA_SPC( 97), SPCA_MWT( 97) / 'butene', 56.11 / DATA SPCA_SPC( 98), SPCA_MWT( 98) / 'butene_c2', 56.11 / DATA SPCA_SPC( 99), SPCA_MWT( 99) / 'butene_t2', 56.11 / DATA SPCA_SPC( 100), SPCA_MWT( 100) / 'ethane', 30.07 / DATA SPCA_SPC( 101), SPCA_MWT( 101) / 'ethene', 28.05 / DATA SPCA_SPC( 102), SPCA_MWT( 102) / 'propane', 44.1 / DATA SPCA_SPC( 103), SPCA_MWT( 103) / 'propene', 42.08 / ! OXPROD DATA SPCA_SPC( 104), SPCA_MWT( 104) / 'decanal', 156.27 / DATA SPCA_SPC( 105), SPCA_MWT( 105) / 'geranyl_acetone', 194.32 / DATA SPCA_SPC( 106), SPCA_MWT( 106) / 'met_heptenone', 126.2 / DATA SPCA_SPC( 107), SPCA_MWT( 107) / 'neryl_acetone', 194.32 / DATA SPCA_SPC( 108), SPCA_MWT( 108) / 'nonanal', 142.24 / DATA SPCA_SPC( 109), SPCA_MWT( 109) / 'nonenal', 140.23 / DATA SPCA_SPC( 110), SPCA_MWT( 110) / 'octanal', 128.21 / DATA SPCA_SPC( 111), SPCA_MWT( 111) / 'pentanal', 86.13 / DATA SPCA_SPC( 112), SPCA_MWT( 112) / 't-2-octenal', 126.2 / DATA SPCA_SPC( 113), SPCA_MWT( 113) / 'formaldehyde', 30.03 / DATA SPCA_SPC( 114), SPCA_MWT( 114) / 'oxopentanal', 100.12 / ! STRESS DATA SPCA_SPC( 115), SPCA_MWT( 115) / '1_pentanol', 88.15 / DATA SPCA_SPC( 116), SPCA_MWT( 116) / '1_penten_3_one', 84.12 / DATA SPCA_SPC( 117), SPCA_MWT( 117) / '2_met_butanenitrile', 83.13 / DATA SPCA_SPC( 118), SPCA_MWT( 118) / '2_pentene', 70.13 / DATA SPCA_SPC( 119), SPCA_MWT( 119) / '3_metfuran', 82.1 / DATA SPCA_SPC( 120), SPCA_MWT( 120) / '3_metthiophene', 98.17 / DATA SPCA_SPC( 121), SPCA_MWT( 121) / '3_pentanone', 86.13 / DATA SPCA_SPC( 122), SPCA_MWT( 122) / '3_penten_2_ol', 86.13 / DATA SPCA_SPC( 123), SPCA_MWT( 123) / '4_penten_1_ol', 86.13 / DATA SPCA_SPC( 124), SPCA_MWT( 124) / '8_heptadecene', 238.46 / DATA SPCA_SPC( 125), SPCA_MWT( 125) / 'acetophenone', 120.15 / DATA SPCA_SPC( 126), SPCA_MWT( 126) / 'anisole', 108.14 / DATA SPCA_SPC( 127), SPCA_MWT( 127) / 'benzaldehyde', 106.12 / DATA SPCA_SPC( 128), SPCA_MWT( 128) / 'benzene', 78.11 / DATA SPCA_SPC( 129), SPCA_MWT( 129) / 'benzyl_benzoate', 212.25 / DATA SPCA_SPC( 130), SPCA_MWT( 130) / 'benzyl_acetate', 150.18 / DATA SPCA_SPC( 131), SPCA_MWT( 131) / 'benzyl_alcohol', 108.14 / DATA SPCA_SPC( 132), SPCA_MWT( 132) / 'chavicol', 134.18 / DATA SPCA_SPC( 133), SPCA_MWT( 133) / 'cineole_1_8', 154.25 / DATA SPCA_SPC( 134), SPCA_MWT( 134) / 'cinnamaldehyde', 132.16 / DATA SPCA_SPC( 135), SPCA_MWT( 135) / 'cinnamic_acid', 148.16 / DATA SPCA_SPC( 136), SPCA_MWT( 136) / 'coniferyl_alcohol', 180.2 / DATA SPCA_SPC( 137), SPCA_MWT( 137) / '2met_nonatriene', 150.26 / DATA SPCA_SPC( 138), SPCA_MWT( 138) / 'ethyl_cinnamate', 176.22 / DATA SPCA_SPC( 139), SPCA_MWT( 139) / 'eugenol', 164.2 / DATA SPCA_SPC( 140), SPCA_MWT( 140) / 'guaiacol', 124.14 / DATA SPCA_SPC( 141), SPCA_MWT( 141) / 'hexanal', 100.16 / DATA SPCA_SPC( 142), SPCA_MWT( 142) / 'hexanol_1', 102.18 / DATA SPCA_SPC( 143), SPCA_MWT( 143) / 'hexenal_c3', 98.14 / DATA SPCA_SPC( 144), SPCA_MWT( 144) / 'hexenal_t2', 98.14 / DATA SPCA_SPC( 145), SPCA_MWT( 145) / 'hexenol_c3', 100.16 / DATA SPCA_SPC( 146), SPCA_MWT( 146) / 'hexenyl_ACT_c3', 142.2 / DATA SPCA_SPC( 147), SPCA_MWT( 147) / 'hydrogen_cyanide', 27.03 / DATA SPCA_SPC( 148), SPCA_MWT( 148) / 'isobutyronitrile', 69.11 / DATA SPCA_SPC( 149), SPCA_MWT( 149) / 'jasmone', 164.25 / DATA SPCA_SPC( 150), SPCA_MWT( 150) / 'linalool', 154.25 / DATA SPCA_SPC( 151), SPCA_MWT( 151) / 'linalool_OXD_c', 170.25 / DATA SPCA_SPC( 152), SPCA_MWT( 152) / 'linalool_OXD_t', 170.25 / DATA SPCA_SPC( 153), SPCA_MWT( 153) / 'methacrolein', 70.09 / DATA SPCA_SPC( 154), SPCA_MWT( 154) / 'met_benzoate', 136.15 / DATA SPCA_SPC( 155), SPCA_MWT( 155) / 'met_jasmonate', 224.3 / DATA SPCA_SPC( 156), SPCA_MWT( 156) / 'met_salicylate', 152.15 / DATA SPCA_SPC( 157), SPCA_MWT( 157) / 'met_acetate', 74.08 / DATA SPCA_SPC( 158), SPCA_MWT( 158) / 'met_vinylketone', 70.09 / DATA SPCA_SPC( 159), SPCA_MWT( 159) / 'p_coumaric_acid', 164.16 / DATA SPCA_SPC( 160), SPCA_MWT( 160) / 'phenol', 94.11 / DATA SPCA_SPC( 161), SPCA_MWT( 161) / 'phenylacetaldehyde', 120.15 / DATA SPCA_SPC( 162), SPCA_MWT( 162) / 'safrole', 162.19 / DATA SPCA_SPC( 163), SPCA_MWT( 163) / 'salicylaldehyde', 122.12 / DATA SPCA_SPC( 164), SPCA_MWT( 164) / 'toluene', 92.14 / DATA SPCA_SPC( 165), SPCA_MWT( 165) / '3met_3DCTT', 218.38 / DATA SPCA_SPC( 166), SPCA_MWT( 166) / 'xylene', 106.17 / DATA SPCA_SPC( 167), SPCA_MWT( 167) / 'z2_penten_1ol', 86.13 / DATA SPCA_SPC( 168), SPCA_MWT( 168) / 'z2_penten_3ol', 86.13 / DATA SPCA_SPC( 169), SPCA_MWT( 169) / 'z3_hexen_1yl_butyrate', 170.25 / ! OTHER DATA SPCA_SPC( 170), SPCA_MWT( 170) / 'butanone_2', 72.11 / DATA SPCA_SPC( 171), SPCA_MWT( 171) / 'carbon_2s', 76.14 / DATA SPCA_SPC( 172), SPCA_MWT( 172) / 'carbonyl_s', 60.08 / DATA SPCA_SPC( 173), SPCA_MWT( 173) / 'decane', 142.28 / DATA SPCA_SPC( 174), SPCA_MWT( 174) / 'diallyl_2s', 146.28 / DATA SPCA_SPC( 175), SPCA_MWT( 175) / '2met_2s', 94.2 / DATA SPCA_SPC( 176), SPCA_MWT( 176) / '2met_s', 62.14 / DATA SPCA_SPC( 177), SPCA_MWT( 177) / 'dodecene_1', 168.32 / DATA SPCA_SPC( 178), SPCA_MWT( 178) / 'heptanal', 114.19 / DATA SPCA_SPC( 179), SPCA_MWT( 179) / 'heptane', 100.2 / DATA SPCA_SPC( 180), SPCA_MWT( 180) / 'heptanone', 114.19 / DATA SPCA_SPC( 181), SPCA_MWT( 181) / 'hexane', 86.18 / DATA SPCA_SPC( 182), SPCA_MWT( 182) / 'hydrogen_s', 34.08 / DATA SPCA_SPC( 183), SPCA_MWT( 183) / 'indole', 117.15 / DATA SPCA_SPC( 184), SPCA_MWT( 184) / 'methane', 16.04 / DATA SPCA_SPC( 185), SPCA_MWT( 185) / 'met_bromide', 94.94 / DATA SPCA_SPC( 186), SPCA_MWT( 186) / 'met_chloride', 50.49 / DATA SPCA_SPC( 187), SPCA_MWT( 187) / 'met_iodide', 141.94 / DATA SPCA_SPC( 188), SPCA_MWT( 188) / 'met_mercaptan', 48.11 / DATA SPCA_SPC( 189), SPCA_MWT( 189) / 'met_propenyl_2s', 120.24 / DATA SPCA_SPC( 190), SPCA_MWT( 190) / 'MBO_3m2e1ol', 86.13 / DATA SPCA_SPC( 191), SPCA_MWT( 191) / 'MBO_3m3e1ol', 86.13 / DATA SPCA_SPC( 192), SPCA_MWT( 192) / 'naphthalene', 128.17 / DATA SPCA_SPC( 193), SPCA_MWT( 193) / 'pentane', 72.15 / DATA SPCA_SPC( 194), SPCA_MWT( 194) / 'PPPP_2s', 148.29 / DATA SPCA_SPC( 195), SPCA_MWT( 195) / 'santene', 122.21 / DATA SPCA_SPC( 196), SPCA_MWT( 196) / 'skatole', 131.18 / DATA SPCA_SPC( 197), SPCA_MWT( 197) / 'terpinyl_ACT_a', 196.29 / DATA SPCA_SPC( 198), SPCA_MWT( 198) / 'tetradecene_1', 196.38 / DATA SPCA_SPC( 199), SPCA_MWT( 199) / 'undecane', 156.31 / ! CO DATA SPCA_SPC( 200), SPCA_MWT( 200) / 'carbon_monoxide', 28.01 / ! NO DATA SPCA_SPC( 201), SPCA_MWT( 201) / 'nitric_OXD', 30.01 / !======================================================================= ! MAP_MGN20T201.EXT ! This include file contains conversion table for MEGAN species to ! 201 species ! ! MEGAN v3 ! INPUT version 3 ! ! History: ! Who When What ! --------------------------------------------------------------------- ! Tan 12/02/06 - Creates this file ! Tan 08/14/07 - Move from MEGAN v2.0 to MEGAN v2.02 with no update. ! Ling Huang 03/14/17 - Updated for MEGAN3 based on Alex Guenther's ! "Description Speciation.xlsx" !======================================================================= INTEGER,PARAMETER :: N_SMAP_SPC = 201 ! Number of map species CHARACTER*16 SPCA_NAM( N_SMAP_SPC ) ! speciated species name INTEGER SPCA_MAP( N_SMAP_SPC ) ! speciated species name ! mapped to SPCAT_SPC.EXT CHARACTER*16 MG20_NAM( N_SMAP_SPC ) ! MEGAN species INTEGER MG20_MAP( N_SMAP_SPC ) ! MEGAN species mapped to ! MGN_SPC.EXT REAL EFFS_ALL( N_SMAP_SPC ) ! speciated species fraction ! to MEGAN species !CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC ! _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 , ! COTHER= acetaldehyde , 3met = trimethhyl !CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC DATA SPCA_NAM( 1), SPCA_MAP( 1), MG20_NAM( 1), MG20_MAP( 1), EFFS_ALL( 1) & /'isoprene', 1 ,'ISOP', 1, 1 / DATA SPCA_NAM( 2), SPCA_MAP( 2), MG20_NAM( 2), MG20_MAP( 2), EFFS_ALL( 2) & /'MBO_2m3e2ol', 2 ,'MBO', 2, 1 / DATA SPCA_NAM( 3), SPCA_MAP( 3), MG20_NAM( 3), MG20_MAP( 3), EFFS_ALL( 3) & /'pinene_a', 3 ,'MT_PINE', 3, 1 / DATA SPCA_NAM( 4), SPCA_MAP( 4), MG20_NAM( 4), MG20_MAP( 4), EFFS_ALL( 4) & /'myrcene', 5 ,'MT_ACYC', 4, 0.5 / DATA SPCA_NAM( 5), SPCA_MAP( 5), MG20_NAM( 5), MG20_MAP( 5), EFFS_ALL( 5) & /'ocimene_al', 6 ,'MT_ACYC', 4, 0.01 / DATA SPCA_NAM( 6), SPCA_MAP( 6), MG20_NAM( 6), MG20_MAP( 6), EFFS_ALL( 6) & /'ocimene_c_b', 7 ,'MT_ACYC', 4, 0.09 / DATA SPCA_NAM( 7), SPCA_MAP( 7), MG20_NAM( 7), MG20_MAP( 7), EFFS_ALL( 7) & /'ocimene_t_b', 8 ,'MT_ACYC', 4, 0.4 / DATA SPCA_NAM( 8), SPCA_MAP( 8), MG20_NAM( 8), MG20_MAP( 8), EFFS_ALL( 8) & /'pinene_b', 4 ,'MT_CAMP', 5, 0.33 / DATA SPCA_NAM( 9), SPCA_MAP( 9), MG20_NAM( 9), MG20_MAP( 9), EFFS_ALL( 9) & /'camphene', 10 ,'MT_CAMP', 5, 0.18 / DATA SPCA_NAM( 10), SPCA_MAP( 10), MG20_NAM( 10), MG20_MAP( 10), EFFS_ALL( 10) & /'bornene', 9 ,'MT_CAMP', 5, 0.005 / DATA SPCA_NAM( 11), SPCA_MAP( 11), MG20_NAM( 11), MG20_MAP( 11), EFFS_ALL( 11) & /'fenchene_a', 12 ,'MT_CAMP', 5, 0.005 / DATA SPCA_NAM( 12), SPCA_MAP( 12), MG20_NAM( 12), MG20_MAP( 12), EFFS_ALL( 12) & /'carene_3', 11 ,'MT_CAMP', 5, 0.2 / DATA SPCA_NAM( 13), SPCA_MAP( 13), MG20_NAM( 13), MG20_MAP( 13), EFFS_ALL( 13) & /'fenchene_b', 13 ,'MT_CAMP', 5, 0.005 / DATA SPCA_NAM( 14), SPCA_MAP( 14), MG20_NAM( 14), MG20_MAP( 14), EFFS_ALL( 14) & /'tricyclene', 14 ,'MT_CAMP', 5, 0.02 / DATA SPCA_NAM( 15), SPCA_MAP( 15), MG20_NAM( 15), MG20_MAP( 15), EFFS_ALL( 15) & /'thujene_a', 22 ,'MT_CAMP', 5, 0.04 / DATA SPCA_NAM( 16), SPCA_MAP( 16), MG20_NAM( 16), MG20_MAP( 16), EFFS_ALL( 16) & /'sabinene', 18 ,'MT_CAMP', 5, 0.14 / DATA SPCA_NAM( 17), SPCA_MAP( 17), MG20_NAM( 17), MG20_MAP( 17), EFFS_ALL( 17) & /'terpineol_a', 40 ,'MT_CAMP', 5, 0.05 / DATA SPCA_NAM( 18), SPCA_MAP( 18), MG20_NAM( 18), MG20_MAP( 18), EFFS_ALL( 18) & /'terpineol_4', 39 ,'MT_CAMP', 5, 0.02 / DATA SPCA_NAM( 19), SPCA_MAP( 19), MG20_NAM( 19), MG20_MAP( 19), EFFS_ALL( 19) & /'terpinyl_ACT_a', 197 ,'MT_CAMP', 5, 0.005 / DATA SPCA_NAM( 20), SPCA_MAP( 20), MG20_NAM( 20), MG20_MAP( 20), EFFS_ALL( 20) & /'phellandrene_a', 17 ,'MT_SABI', 6, 0.06 / DATA SPCA_NAM( 21), SPCA_MAP( 21), MG20_NAM( 21), MG20_MAP( 21), EFFS_ALL( 21) & /'terpinene_g', 20 ,'MT_SABI', 6, 0.09 / DATA SPCA_NAM( 22), SPCA_MAP( 22), MG20_NAM( 22), MG20_MAP( 22), EFFS_ALL( 22) & /'terpinene_a', 19 ,'MT_SABI', 6, 0.07 / DATA SPCA_NAM( 23), SPCA_MAP( 23), MG20_NAM( 23), MG20_MAP( 23), EFFS_ALL( 23) & /'limonene', 15 ,'MT_SABI', 6, 0.6 / DATA SPCA_NAM( 24), SPCA_MAP( 24), MG20_NAM( 24), MG20_MAP( 24), EFFS_ALL( 24) & /'phellandrene_b', 16 ,'MT_SABI', 6, 0.1 / DATA SPCA_NAM( 25), SPCA_MAP( 25), MG20_NAM( 25), MG20_MAP( 25), EFFS_ALL( 25) & /'terpinolene', 21 ,'MT_SABI', 6, 0.075 / DATA SPCA_NAM( 26), SPCA_MAP( 26), MG20_NAM( 26), MG20_MAP( 26), EFFS_ALL( 26) & /'verbenene', 23 ,'MT_SABI', 6, 0.005 / DATA SPCA_NAM( 27), SPCA_MAP( 27), MG20_NAM( 27), MG20_MAP( 27), EFFS_ALL( 27) & /'cymene_p', 25 ,'MT_AROM', 7, 0.2 / DATA SPCA_NAM( 28), SPCA_MAP( 28), MG20_NAM( 28), MG20_MAP( 28), EFFS_ALL( 28) & /'cymene_o', 24 ,'MT_AROM', 7, 0.07 / DATA SPCA_NAM( 29), SPCA_MAP( 29), MG20_NAM( 29), MG20_MAP( 29), EFFS_ALL( 29) & /'meta-cymenene', 26 ,'MT_AROM', 7, 0.02 / DATA SPCA_NAM( 30), SPCA_MAP( 30), MG20_NAM( 30), MG20_MAP( 30), EFFS_ALL( 30) & /'p-cymenene', 27 ,'MT_AROM', 7, 0.05 / DATA SPCA_NAM( 31), SPCA_MAP( 31), MG20_NAM( 31), MG20_MAP( 31), EFFS_ALL( 31) & /'camphor', 30 ,'MT_AROM', 7, 0.08 / DATA SPCA_NAM( 32), SPCA_MAP( 32), MG20_NAM( 32), MG20_MAP( 32), EFFS_ALL( 32) & /'bornyl_ACT', 29 ,'MT_AROM', 7, 0.02 / DATA SPCA_NAM( 33), SPCA_MAP( 33), MG20_NAM( 33), MG20_MAP( 33), EFFS_ALL( 33) & /'piperitone', 38 ,'MT_AROM', 7, 0.01 / DATA SPCA_NAM( 34), SPCA_MAP( 34), MG20_NAM( 34), MG20_MAP( 34), EFFS_ALL( 34) & /'estragole', 31 ,'MT_AROM', 7, 0.02 / DATA SPCA_NAM( 35), SPCA_MAP( 35), MG20_NAM( 35), MG20_MAP( 35), EFFS_ALL( 35) & /'borneol', 28 ,'MT_AROM', 7, 0.05 / DATA SPCA_NAM( 36), SPCA_MAP( 36), MG20_NAM( 36), MG20_MAP( 36), EFFS_ALL( 36) & /'thujone_b', 42 ,'MT_AROM', 7, 0.02 / DATA SPCA_NAM( 37), SPCA_MAP( 37), MG20_NAM( 37), MG20_MAP( 37), EFFS_ALL( 37) & /'thujone_a', 41 ,'MT_AROM', 7, 0.03 / DATA SPCA_NAM( 38), SPCA_MAP( 38), MG20_NAM( 38), MG20_MAP( 38), EFFS_ALL( 38) & /'linalool', 150 ,'MT_AROM', 7, 0.2 / DATA SPCA_NAM( 39), SPCA_MAP( 39), MG20_NAM( 39), MG20_MAP( 39), EFFS_ALL( 39) & /'santene', 195 ,'MT_AROM', 7, 0.005 / DATA SPCA_NAM( 40), SPCA_MAP( 40), MG20_NAM( 40), MG20_MAP( 40), EFFS_ALL( 40) & /'coniferyl_alcohol', 136 ,'MT_AROM', 7, 0.005 / DATA SPCA_NAM( 41), SPCA_MAP( 41), MG20_NAM( 41), MG20_MAP( 41), EFFS_ALL( 41) & /'cineole_1_8', 133 ,'MT_AROM', 7, 0.2 / DATA SPCA_NAM( 42), SPCA_MAP( 42), MG20_NAM( 42), MG20_MAP( 42), EFFS_ALL( 42) & /'myrtenal', 35 ,'MT_AROM', 7, 0.005 / DATA SPCA_NAM( 43), SPCA_MAP( 43), MG20_NAM( 43), MG20_MAP( 43), EFFS_ALL( 43) & /'fenchone', 32 ,'MT_AROM', 7, 0.005 / DATA SPCA_NAM( 44), SPCA_MAP( 44), MG20_NAM( 44), MG20_MAP( 44), EFFS_ALL( 44) & /'ionone_b', 33 ,'MT_AROM', 7, 0.005 / DATA SPCA_NAM( 45), SPCA_MAP( 45), MG20_NAM( 45), MG20_MAP( 45), EFFS_ALL( 45) & /'ipsenol', 34 ,'MT_AROM', 7, 0.005 / DATA SPCA_NAM( 46), SPCA_MAP( 46), MG20_NAM( 46), MG20_MAP( 46), EFFS_ALL( 46) & /'carbon_monoxide', 200 ,'CO', 19, 1 / DATA SPCA_NAM( 47), SPCA_MAP( 47), MG20_NAM( 47), MG20_MAP( 47), EFFS_ALL( 47) & /'caryophyllene_b', 51 ,'SQT_HR', 9, 0.5 / DATA SPCA_NAM( 48), SPCA_MAP( 48), MG20_NAM( 48), MG20_MAP( 48), EFFS_ALL( 48) & /'caryophyllene_c_i', 52 ,'SQT_HR', 9, 0.005 / DATA SPCA_NAM( 49), SPCA_MAP( 49), MG20_NAM( 49), MG20_MAP( 49), EFFS_ALL( 49) & /'cadinene_d', 48 ,'SQT_HR', 9, 0.005 / DATA SPCA_NAM( 50), SPCA_MAP( 50), MG20_NAM( 50), MG20_MAP( 50), EFFS_ALL( 50) & /'cadinene_d', 48 ,'SQT_HR', 9, 0.005 / DATA SPCA_NAM( 51), SPCA_MAP( 51), MG20_NAM( 51), MG20_MAP( 51), EFFS_ALL( 51) & /'bisabolene_b', 47 ,'SQT_HR', 9, 0.02 / DATA SPCA_NAM( 52), SPCA_MAP( 52), MG20_NAM( 52), MG20_MAP( 52), EFFS_ALL( 52) & /'farnescene_a', 54 ,'SQT_HR', 9, 0.05 / DATA SPCA_NAM( 53), SPCA_MAP( 53), MG20_NAM( 53), MG20_MAP( 53), EFFS_ALL( 53) & /'patchoulene_b', 65 ,'SQT_HR', 9, 0.005 / DATA SPCA_NAM( 54), SPCA_MAP( 54), MG20_NAM( 54), MG20_MAP( 54), EFFS_ALL( 54) & /'elemene_b', 53 ,'SQT_HR', 9, 0.01 / DATA SPCA_NAM( 55), SPCA_MAP( 55), MG20_NAM( 55), MG20_MAP( 55), EFFS_ALL( 55) & /'nerolidol_c', 63 ,'SQT_HR', 9, 0.005 / DATA SPCA_NAM( 56), SPCA_MAP( 56), MG20_NAM( 56), MG20_MAP( 56), EFFS_ALL( 56) & /'farnesol', 56 ,'SQT_HR', 9, 0.005 / DATA SPCA_NAM( 57), SPCA_MAP( 57), MG20_NAM( 57), MG20_MAP( 57), EFFS_ALL( 57) & /'humulene_a', 59 ,'SQT_HR', 9, 0.1 / DATA SPCA_NAM( 58), SPCA_MAP( 58), MG20_NAM( 58), MG20_MAP( 58), EFFS_ALL( 58) & /'muurolene_a', 61 ,'SQT_HR', 9, 0.005 / DATA SPCA_NAM( 59), SPCA_MAP( 59), MG20_NAM( 59), MG20_MAP( 59), EFFS_ALL( 59) & /'bergamotene_a', 44 ,'SQT_HR', 9, 0.04 / DATA SPCA_NAM( 60), SPCA_MAP( 60), MG20_NAM( 60), MG20_MAP( 60), EFFS_ALL( 60) & /'germacrene_B', 57 ,'SQT_HR', 9, 0.005 / DATA SPCA_NAM( 61), SPCA_MAP( 61), MG20_NAM( 61), MG20_MAP( 61), EFFS_ALL( 61) & /'selinene_b', 66 ,'SQT_HR', 9, 0.08 / DATA SPCA_NAM( 62), SPCA_MAP( 62), MG20_NAM( 62), MG20_MAP( 62), EFFS_ALL( 62) & /'calarene', 50 ,'SQT_HR', 9, 0.005 / DATA SPCA_NAM( 63), SPCA_MAP( 63), MG20_NAM( 63), MG20_MAP( 63), EFFS_ALL( 63) & /'farnescene_b', 55 ,'SQT_HR', 9, 0.05 / DATA SPCA_NAM( 64), SPCA_MAP( 64), MG20_NAM( 64), MG20_MAP( 64), EFFS_ALL( 64) & /'acoradiene', 43 ,'SQT_HR', 9, 0.01 / DATA SPCA_NAM( 65), SPCA_MAP( 65), MG20_NAM( 65), MG20_MAP( 65), EFFS_ALL( 65) & /'humulene_g', 60 ,'SQT_HR', 9, 0.01 / DATA SPCA_NAM( 66), SPCA_MAP( 66), MG20_NAM( 66), MG20_MAP( 66), EFFS_ALL( 66) & /'muurolene_g', 62 ,'SQT_HR', 9, 0.03 / DATA SPCA_NAM( 67), SPCA_MAP( 67), MG20_NAM( 67), MG20_MAP( 67), EFFS_ALL( 67) & /'germacrene_D', 58 ,'SQT_HR', 9, 0.02 / DATA SPCA_NAM( 68), SPCA_MAP( 68), MG20_NAM( 68), MG20_MAP( 68), EFFS_ALL( 68) & /'cadinene_g', 49 ,'SQT_HR', 9, 0.005 / DATA SPCA_NAM( 69), SPCA_MAP( 69), MG20_NAM( 69), MG20_MAP( 69), EFFS_ALL( 69) & /'nerolidol_t', 64 ,'SQT_HR', 9, 0.005 / DATA SPCA_NAM( 70), SPCA_MAP( 70), MG20_NAM( 70), MG20_MAP( 70), EFFS_ALL( 70) & /'bergamotene_b', 45 ,'SQT_HR', 9, 0.02 / DATA SPCA_NAM( 71), SPCA_MAP( 71), MG20_NAM( 71), MG20_MAP( 71), EFFS_ALL( 71) & /'bisabolene_a', 46 ,'SQT_HR', 9, 0.005 / DATA SPCA_NAM( 72), SPCA_MAP( 72), MG20_NAM( 72), MG20_MAP( 72), EFFS_ALL( 72) & /'cedrol', 73 ,'SQT_LR', 10, 0.01 / DATA SPCA_NAM( 73), SPCA_MAP( 73), MG20_NAM( 73), MG20_MAP( 73), EFFS_ALL( 73) & /'homosalate', 78 ,'SQT_LR', 10, 0.15 / DATA SPCA_NAM( 74), SPCA_MAP( 74), MG20_NAM( 74), MG20_MAP( 74), EFFS_ALL( 74) & /'2ethyl_hexyl_salate', 68 ,'SQT_LR', 10, 0.08 / DATA SPCA_NAM( 75), SPCA_MAP( 75), MG20_NAM( 75), MG20_MAP( 75), EFFS_ALL( 75) & /'cedrene_a', 72 ,'SQT_LR', 10, 0.03 / DATA SPCA_NAM( 76), SPCA_MAP( 76), MG20_NAM( 76), MG20_MAP( 76), EFFS_ALL( 76) & /'thujopsene', 83 ,'SQT_LR', 10, 0.01 / DATA SPCA_NAM( 77), SPCA_MAP( 77), MG20_NAM( 77), MG20_MAP( 77), EFFS_ALL( 77) & /'longifolene', 81 ,'SQT_LR', 10, 0.15 / DATA SPCA_NAM( 78), SPCA_MAP( 78), MG20_NAM( 78), MG20_MAP( 78), EFFS_ALL( 78) & /'cadinol_a', 71 ,'SQT_LR', 10, 0.01 / DATA SPCA_NAM( 79), SPCA_MAP( 79), MG20_NAM( 79), MG20_MAP( 79), EFFS_ALL( 79) & /'zingiberene_a', 85 ,'SQT_LR', 10, 0.01 / DATA SPCA_NAM( 80), SPCA_MAP( 80), MG20_NAM( 80), MG20_MAP( 80), EFFS_ALL( 80) & /'isolongifolene', 79 ,'SQT_LR', 10, 0.01 / DATA SPCA_NAM( 81), SPCA_MAP( 81), MG20_NAM( 81), MG20_MAP( 81), EFFS_ALL( 81) & /'longicyclene', 87 ,'SQT_LR', 10, 0.01 / DATA SPCA_NAM( 82), SPCA_MAP( 82), MG20_NAM( 82), MG20_MAP( 82), EFFS_ALL( 82) & /'copaene_a', 74 ,'SQT_LR', 10, 0.2 / DATA SPCA_NAM( 83), SPCA_MAP( 83), MG20_NAM( 83), MG20_MAP( 83), EFFS_ALL( 83) & /'bourbonene_b', 70 ,'SQT_LR', 10, 0.01 / DATA SPCA_NAM( 84), SPCA_MAP( 84), MG20_NAM( 84), MG20_MAP( 84), EFFS_ALL( 84) & /'longipinene', 82 ,'SQT_LR', 10, 0.03 / DATA SPCA_NAM( 85), SPCA_MAP( 85), MG20_NAM( 85), MG20_MAP( 85), EFFS_ALL( 85) & /'cubebene_b', 76 ,'SQT_LR', 10, 0.02 / DATA SPCA_NAM( 86), SPCA_MAP( 86), MG20_NAM( 86), MG20_MAP( 86), EFFS_ALL( 86) & /'ylangene_a', 84 ,'SQT_LR', 10, 0.01 / DATA SPCA_NAM( 87), SPCA_MAP( 87), MG20_NAM( 87), MG20_MAP( 87), EFFS_ALL( 87) & /'cubebene_a', 75 ,'SQT_LR', 10, 0.05 / DATA SPCA_NAM( 88), SPCA_MAP( 88), MG20_NAM( 88), MG20_MAP( 88), EFFS_ALL( 88) & /'copaene_b', 86 ,'SQT_LR', 10, 0.03 / DATA SPCA_NAM( 89), SPCA_MAP( 89), MG20_NAM( 89), MG20_MAP( 89), EFFS_ALL( 89) & /'kaur_16_ene', 80 ,'SQT_LR', 10, 0.15 / DATA SPCA_NAM( 90), SPCA_MAP( 90), MG20_NAM( 90), MG20_MAP( 90), EFFS_ALL( 90) & /'gurjunene_b', 77 ,'SQT_LR', 10, 0.01 / DATA SPCA_NAM( 91), SPCA_MAP( 91), MG20_NAM( 91), MG20_MAP( 91), EFFS_ALL( 91) & /'aromadendrene', 69 ,'SQT_LR', 10, 0.02 / DATA SPCA_NAM( 92), SPCA_MAP( 92), MG20_NAM( 92), MG20_MAP( 92), EFFS_ALL( 92) & /'methanol', 88 ,'MEOH', 11, 1 / DATA SPCA_NAM( 93), SPCA_MAP( 93), MG20_NAM( 93), MG20_MAP( 93), EFFS_ALL( 93) & /'acetone', 89 ,'ACTO', 12, 1 / DATA SPCA_NAM( 94), SPCA_MAP( 94), MG20_NAM( 94), MG20_MAP( 94), EFFS_ALL( 94) & /'ethanol', 91 ,'ETOH', 13, 0.5 / DATA SPCA_NAM( 95), SPCA_MAP( 95), MG20_NAM( 95), MG20_MAP( 95), EFFS_ALL( 95) & /'acetaldehyde', 90 ,'ETOH', 13, 0.5 / DATA SPCA_NAM( 96), SPCA_MAP( 96), MG20_NAM( 96), MG20_MAP( 96), EFFS_ALL( 96) & /'formic_acid', 93 ,'ACID', 14, 0.8 / DATA SPCA_NAM( 97), SPCA_MAP( 97), MG20_NAM( 97), MG20_MAP( 97), EFFS_ALL( 97) & /'acetic_acid', 92 ,'ACID', 14, 0.19 / DATA SPCA_NAM( 98), SPCA_MAP( 98), MG20_NAM( 98), MG20_MAP( 98), EFFS_ALL( 98) & /'pyruvic_acid', 94 ,'ACID', 14, 0.01 / DATA SPCA_NAM( 99), SPCA_MAP( 99), MG20_NAM( 99), MG20_MAP( 99), EFFS_ALL( 99) & /'ethane', 100 ,'LVOC', 15, 0.18 / DATA SPCA_NAM( 100), SPCA_MAP( 100), MG20_NAM( 100), MG20_MAP( 100), EFFS_ALL( 100) & /'ethene', 101 ,'LVOC', 15, 0.36 / DATA SPCA_NAM( 101), SPCA_MAP( 101), MG20_NAM( 101), MG20_MAP( 101), EFFS_ALL( 101) & /'propane', 102 ,'LVOC', 15, 0.12 / DATA SPCA_NAM( 102), SPCA_MAP( 102), MG20_NAM( 102), MG20_MAP( 102), EFFS_ALL( 102) & /'butane', 96 ,'LVOC', 15, 0.005 / DATA SPCA_NAM( 103), SPCA_MAP( 103), MG20_NAM( 103), MG20_MAP( 103), EFFS_ALL( 103) & /'butene', 97 ,'LVOC', 15, 0.03 / DATA SPCA_NAM( 104), SPCA_MAP( 104), MG20_NAM( 104), MG20_MAP( 104), EFFS_ALL( 104) & /'propene', 103 ,'LVOC', 15, 0.28 / DATA SPCA_NAM( 105), SPCA_MAP( 105), MG20_NAM( 105), MG20_MAP( 105), EFFS_ALL( 105) & /'2_methylprop_1_ene', 95 ,'LVOC', 15, 0.01 / DATA SPCA_NAM( 106), SPCA_MAP( 106), MG20_NAM( 106), MG20_MAP( 106), EFFS_ALL( 106) & /'butene_c2', 98 ,'LVOC', 15, 0.01 / DATA SPCA_NAM( 107), SPCA_MAP( 107), MG20_NAM( 107), MG20_MAP( 107), EFFS_ALL( 107) & /'butene_t2', 99 ,'LVOC', 15, 0.005 / DATA SPCA_NAM( 108), SPCA_MAP( 108), MG20_NAM( 108), MG20_MAP( 108), EFFS_ALL( 108) & /'formaldehyde', 113 ,'OXPROD', 16, 0.9 / DATA SPCA_NAM( 109), SPCA_MAP( 109), MG20_NAM( 109), MG20_MAP( 109), EFFS_ALL( 109) & /'pentanal', 111 ,'OXPROD', 16, 0.005 / DATA SPCA_NAM( 110), SPCA_MAP( 110), MG20_NAM( 110), MG20_MAP( 110), EFFS_ALL( 110) & /'heptanal', 178 ,'OTHER', 18, 0.005 / DATA SPCA_NAM( 111), SPCA_MAP( 111), MG20_NAM( 111), MG20_MAP( 111), EFFS_ALL( 111) & /'met_heptenone', 106 ,'OXPROD', 16, 0.01 / DATA SPCA_NAM( 112), SPCA_MAP( 112), MG20_NAM( 112), MG20_MAP( 112), EFFS_ALL( 112) & /'decanal', 104 ,'OXPROD', 16, 0.005 / DATA SPCA_NAM( 113), SPCA_MAP( 113), MG20_NAM( 113), MG20_MAP( 113), EFFS_ALL( 113) & /'octanal', 110 ,'OXPROD', 16, 0.005 / DATA SPCA_NAM( 114), SPCA_MAP( 114), MG20_NAM( 114), MG20_MAP( 114), EFFS_ALL( 114) & /'nonanal', 108 ,'OXPROD', 16, 0.005 / DATA SPCA_NAM( 115), SPCA_MAP( 115), MG20_NAM( 115), MG20_MAP( 115), EFFS_ALL( 115) & /'oxopentanal', 114 ,'OXPROD', 16, 0.03 / DATA SPCA_NAM( 116), SPCA_MAP( 116), MG20_NAM( 116), MG20_MAP( 116), EFFS_ALL( 116) & /'nonenal', 109 ,'OXPROD', 16, 0.005 / DATA SPCA_NAM( 117), SPCA_MAP( 117), MG20_NAM( 117), MG20_MAP( 117), EFFS_ALL( 117) & /'t-2-octenal', 112 ,'OXPROD', 16, 0.005 / DATA SPCA_NAM( 118), SPCA_MAP( 118), MG20_NAM( 118), MG20_MAP( 118), EFFS_ALL( 118) & /'geranyl_acetone', 105 ,'OXPROD', 16, 0.02 / DATA SPCA_NAM( 119), SPCA_MAP( 119), MG20_NAM( 119), MG20_MAP( 119), EFFS_ALL( 119) & /'neryl_acetone', 107 ,'OXPROD', 16, 0.005 / DATA SPCA_NAM( 120), SPCA_MAP( 120), MG20_NAM( 120), MG20_MAP( 120), EFFS_ALL( 120) & /'hexanal', 141 ,'STRESS', 17, 0.06 / DATA SPCA_NAM( 121), SPCA_MAP( 121), MG20_NAM( 121), MG20_MAP( 121), EFFS_ALL( 121) & /'guaiacol', 140 ,'STRESS', 17, 0.005 / DATA SPCA_NAM( 122), SPCA_MAP( 122), MG20_NAM( 122), MG20_MAP( 122), EFFS_ALL( 122) & /'eugenol', 139 ,'STRESS', 17, 0.01 / DATA SPCA_NAM( 123), SPCA_MAP( 123), MG20_NAM( 123), MG20_MAP( 123), EFFS_ALL( 123) & /'phenylacetaldehyde', 161 ,'STRESS', 17, 0.005 / DATA SPCA_NAM( 124), SPCA_MAP( 124), MG20_NAM( 124), MG20_MAP( 124), EFFS_ALL( 124) & /'anisole', 126 ,'STRESS', 17, 0.01 / DATA SPCA_NAM( 125), SPCA_MAP( 125), MG20_NAM( 125), MG20_MAP( 125), EFFS_ALL( 125) & /'ethyl_cinnamate', 138 ,'STRESS', 17, 0.005 / DATA SPCA_NAM( 126), SPCA_MAP( 126), MG20_NAM( 126), MG20_MAP( 126), EFFS_ALL( 126) & /'cinnamaldehyde', 134 ,'STRESS', 17, 0.005 / DATA SPCA_NAM( 127), SPCA_MAP( 127), MG20_NAM( 127), MG20_MAP( 127), EFFS_ALL( 127) & /'cinnamic_acid', 135 ,'STRESS', 17, 0.005 / DATA SPCA_NAM( 128), SPCA_MAP( 128), MG20_NAM( 128), MG20_MAP( 128), EFFS_ALL( 128) & /'jasmone', 149 ,'STRESS', 17, 0.005 / DATA SPCA_NAM( 129), SPCA_MAP( 129), MG20_NAM( 129), MG20_MAP( 129), EFFS_ALL( 129) & /'chavicol', 132 ,'STRESS', 17, 0.02 / DATA SPCA_NAM( 130), SPCA_MAP( 130), MG20_NAM( 130), MG20_MAP( 130), EFFS_ALL( 130) & /'salicylaldehyde', 163 ,'STRESS', 17, 0.005 / DATA SPCA_NAM( 131), SPCA_MAP( 131), MG20_NAM( 131), MG20_MAP( 131), EFFS_ALL( 131) & /'p_coumaric_acid', 159 ,'STRESS', 17, 0.005 / DATA SPCA_NAM( 132), SPCA_MAP( 132), MG20_NAM( 132), MG20_MAP( 132), EFFS_ALL( 132) & /'linalool_OXD_c', 151 ,'STRESS', 17, 0.005 / DATA SPCA_NAM( 133), SPCA_MAP( 133), MG20_NAM( 133), MG20_MAP( 133), EFFS_ALL( 133) & /'linalool_OXD_t', 152 ,'STRESS', 17, 0.005 / DATA SPCA_NAM( 134), SPCA_MAP( 134), MG20_NAM( 134), MG20_MAP( 134), EFFS_ALL( 134) & /'2met_nonatriene', 137 ,'STRESS', 17, 0.05 / DATA SPCA_NAM( 135), SPCA_MAP( 135), MG20_NAM( 135), MG20_MAP( 135), EFFS_ALL( 135) & /'3met_3DCTT', 165 ,'STRESS', 17, 0.01 / DATA SPCA_NAM( 136), SPCA_MAP( 136), MG20_NAM( 136), MG20_MAP( 136), EFFS_ALL( 136) & /'1_pentanol', 115 ,'STRESS', 17, 0.005 / DATA SPCA_NAM( 137), SPCA_MAP( 137), MG20_NAM( 137), MG20_MAP( 137), EFFS_ALL( 137) & /'benzene', 128 ,'STRESS', 17, 0.005 / DATA SPCA_NAM( 138), SPCA_MAP( 138), MG20_NAM( 138), MG20_MAP( 138), EFFS_ALL( 138) & /'hydrogen_cyanide', 147 ,'STRESS', 17, 0.05 / DATA SPCA_NAM( 139), SPCA_MAP( 139), MG20_NAM( 139), MG20_MAP( 139), EFFS_ALL( 139) & /'isobutyronitrile', 148 ,'STRESS', 17, 0.005 / DATA SPCA_NAM( 140), SPCA_MAP( 140), MG20_NAM( 140), MG20_MAP( 140), EFFS_ALL( 140) & /'methacrolein', 153 ,'STRESS', 17, 0.05 / DATA SPCA_NAM( 141), SPCA_MAP( 141), MG20_NAM( 141), MG20_MAP( 141), EFFS_ALL( 141) & /'met_vinylketone', 158 ,'STRESS', 17, 0.05 / DATA SPCA_NAM( 142), SPCA_MAP( 142), MG20_NAM( 142), MG20_MAP( 142), EFFS_ALL( 142) & /'met_acetate', 157 ,'STRESS', 17, 0.01 / DATA SPCA_NAM( 143), SPCA_MAP( 143), MG20_NAM( 143), MG20_MAP( 143), EFFS_ALL( 143) & /'met_benzoate', 154 ,'STRESS', 17, 0.01 / DATA SPCA_NAM( 144), SPCA_MAP( 144), MG20_NAM( 144), MG20_MAP( 144), EFFS_ALL( 144) & /'safrole', 162 ,'STRESS', 17, 0.005 / DATA SPCA_NAM( 145), SPCA_MAP( 145), MG20_NAM( 145), MG20_MAP( 145), EFFS_ALL( 145) & /'3_pentanone', 121 ,'STRESS', 17, 0.005 / DATA SPCA_NAM( 146), SPCA_MAP( 146), MG20_NAM( 146), MG20_MAP( 146), EFFS_ALL( 146) & /'acetophenone', 125 ,'STRESS', 17, 0.01 / DATA SPCA_NAM( 147), SPCA_MAP( 147), MG20_NAM( 147), MG20_MAP( 147), EFFS_ALL( 147) & /'benzyl_alcohol', 131 ,'STRESS', 17, 0.01 / DATA SPCA_NAM( 148), SPCA_MAP( 148), MG20_NAM( 148), MG20_MAP( 148), EFFS_ALL( 148) & /'benzaldehyde', 127 ,'STRESS', 17, 0.01 / DATA SPCA_NAM( 149), SPCA_MAP( 149), MG20_NAM( 149), MG20_MAP( 149), EFFS_ALL( 149) & /'toluene', 164 ,'STRESS', 17, 0.01 / DATA SPCA_NAM( 150), SPCA_MAP( 150), MG20_NAM( 150), MG20_MAP( 150), EFFS_ALL( 150) & /'phenol', 160 ,'STRESS', 17, 0.01 / DATA SPCA_NAM( 151), SPCA_MAP( 151), MG20_NAM( 151), MG20_MAP( 151), EFFS_ALL( 151) & /'2_pentene', 118 ,'STRESS', 17, 0.005 / DATA SPCA_NAM( 152), SPCA_MAP( 152), MG20_NAM( 152), MG20_MAP( 152), EFFS_ALL( 152) & /'hexanol_1', 142 ,'STRESS', 17, 0.02 / DATA SPCA_NAM( 153), SPCA_MAP( 153), MG20_NAM( 153), MG20_MAP( 153), EFFS_ALL( 153) & /'met_salicylate', 156 ,'STRESS', 17, 0.09 / DATA SPCA_NAM( 154), SPCA_MAP( 154), MG20_NAM( 154), MG20_MAP( 154), EFFS_ALL( 154) & /'benzyl_benzoate', 129 ,'STRESS', 17, 0.005 / DATA SPCA_NAM( 155), SPCA_MAP( 155), MG20_NAM( 155), MG20_MAP( 155), EFFS_ALL( 155) & /'benzyl_acetate', 130 ,'STRESS', 17, 0.005 / DATA SPCA_NAM( 156), SPCA_MAP( 156), MG20_NAM( 156), MG20_MAP( 156), EFFS_ALL( 156) & /'hexenal_t2', 144 ,'STRESS', 17, 0.05 / DATA SPCA_NAM( 157), SPCA_MAP( 157), MG20_NAM( 157), MG20_MAP( 157), EFFS_ALL( 157) & /'3_metthiophene', 120 ,'STRESS', 17, 0.005 / DATA SPCA_NAM( 158), SPCA_MAP( 158), MG20_NAM( 158), MG20_MAP( 158), EFFS_ALL( 158) & /'4_penten_1_ol', 123 ,'STRESS', 17, 0.005 / DATA SPCA_NAM( 159), SPCA_MAP( 159), MG20_NAM( 159), MG20_MAP( 159), EFFS_ALL( 159) & /'hexenol_c3', 145 ,'STRESS', 17, 0.1 / DATA SPCA_NAM( 160), SPCA_MAP( 160), MG20_NAM( 160), MG20_MAP( 160), EFFS_ALL( 160) & /'3_metfuran', 119 ,'STRESS', 17, 0.01 / DATA SPCA_NAM( 161), SPCA_MAP( 161), MG20_NAM( 161), MG20_MAP( 161), EFFS_ALL( 161) & /'met_jasmonate', 155 ,'STRESS', 17, 0.01 / DATA SPCA_NAM( 162), SPCA_MAP( 162), MG20_NAM( 162), MG20_MAP( 162), EFFS_ALL( 162) & /'xylene', 166 ,'STRESS', 17, 0.005 / DATA SPCA_NAM( 163), SPCA_MAP( 163), MG20_NAM( 163), MG20_MAP( 163), EFFS_ALL( 163) & /'z2_penten_1ol', 167 ,'STRESS', 17, 0.005 / DATA SPCA_NAM( 164), SPCA_MAP( 164), MG20_NAM( 164), MG20_MAP( 164), EFFS_ALL( 164) & /'1_penten_3_one', 116 ,'STRESS', 17, 0.005 / DATA SPCA_NAM( 165), SPCA_MAP( 165), MG20_NAM( 165), MG20_MAP( 165), EFFS_ALL( 165) & /'hexenyl_ACT_c3', 146 ,'STRESS', 17, 0.09 / DATA SPCA_NAM( 166), SPCA_MAP( 166), MG20_NAM( 166), MG20_MAP( 166), EFFS_ALL( 166) & /'3_penten_2_ol', 122 ,'STRESS', 17, 0.005 / DATA SPCA_NAM( 167), SPCA_MAP( 167), MG20_NAM( 167), MG20_MAP( 167), EFFS_ALL( 167) & /'hexenal_c3', 143 ,'STRESS', 17, 0.1 / DATA SPCA_NAM( 168), SPCA_MAP( 168), MG20_NAM( 168), MG20_MAP( 168), EFFS_ALL( 168) & /'indole', 183 ,'STRESS', 17, 0.01 / DATA SPCA_NAM( 169), SPCA_MAP( 169), MG20_NAM( 169), MG20_MAP( 169), EFFS_ALL( 169) & /'8_heptadecene', 124 ,'STRESS', 17, 0.005 / DATA SPCA_NAM( 170), SPCA_MAP( 170), MG20_NAM( 170), MG20_MAP( 170), EFFS_ALL( 170) & /'z3_hexen_1yl_butyrate', 169 ,'STRESS', 17, 0.005 / DATA SPCA_NAM( 171), SPCA_MAP( 171), MG20_NAM( 171), MG20_MAP( 171), EFFS_ALL( 171) & /'2_met_butanenitrile', 117 ,'STRESS', 17, 0.005 / DATA SPCA_NAM( 172), SPCA_MAP( 172), MG20_NAM( 172), MG20_MAP( 172), EFFS_ALL( 172) & /'z2_penten_3ol', 168 ,'STRESS', 17, 0.005 / DATA SPCA_NAM( 173), SPCA_MAP( 173), MG20_NAM( 173), MG20_MAP( 173), EFFS_ALL( 173) & /'methane', 184 ,'OTHER', 18, 0.15 / DATA SPCA_NAM( 174), SPCA_MAP( 174), MG20_NAM( 174), MG20_MAP( 174), EFFS_ALL( 174) & /'met_bromide', 185 ,'OTHER', 18, 0.03 / DATA SPCA_NAM( 175), SPCA_MAP( 175), MG20_NAM( 175), MG20_MAP( 175), EFFS_ALL( 175) & /'met_chloride', 186 ,'OTHER', 18, 0.15 / DATA SPCA_NAM( 176), SPCA_MAP( 176), MG20_NAM( 176), MG20_MAP( 176), EFFS_ALL( 176) & /'met_iodide', 187 ,'OTHER', 18, 0.22 / DATA SPCA_NAM( 177), SPCA_MAP( 177), MG20_NAM( 177), MG20_MAP( 177), EFFS_ALL( 177) & /'met_mercaptan', 188 ,'OTHER', 18, 0.01 / DATA SPCA_NAM( 178), SPCA_MAP( 178), MG20_NAM( 178), MG20_MAP( 178), EFFS_ALL( 178) & /'octenol_1e3ol', 37 ,'OTHER', 18, 0.01 / DATA SPCA_NAM( 179), SPCA_MAP( 179), MG20_NAM( 179), MG20_MAP( 179), EFFS_ALL( 179) & /'octanol', 36 ,'OTHER', 18, 0.01 / DATA SPCA_NAM( 180), SPCA_MAP( 180), MG20_NAM( 180), MG20_MAP( 180), EFFS_ALL( 180) & /'carbon_2s', 171 ,'OTHER', 18, 0.01 / DATA SPCA_NAM( 181), SPCA_MAP( 181), MG20_NAM( 181), MG20_MAP( 181), EFFS_ALL( 181) & /'2met_s', 176 ,'OTHER', 18, 0.1 / DATA SPCA_NAM( 182), SPCA_MAP( 182), MG20_NAM( 182), MG20_MAP( 182), EFFS_ALL( 182) & /'butanone_2', 170 ,'OTHER', 18, 0.07 / DATA SPCA_NAM( 183), SPCA_MAP( 183), MG20_NAM( 183), MG20_MAP( 183), EFFS_ALL( 183) & /'skatole', 196 ,'OTHER', 18, 0.01 / DATA SPCA_NAM( 184), SPCA_MAP( 184), MG20_NAM( 184), MG20_MAP( 184), EFFS_ALL( 184) & /'naphthalene', 192 ,'OTHER', 18, 0.01 / DATA SPCA_NAM( 185), SPCA_MAP( 185), MG20_NAM( 185), MG20_MAP( 185), EFFS_ALL( 185) & /'pentane', 193 ,'OTHER', 18, 0.01 / DATA SPCA_NAM( 186), SPCA_MAP( 186), MG20_NAM( 186), MG20_MAP( 186), EFFS_ALL( 186) & /'heptanone', 180 ,'OTHER', 18, 0.01 / DATA SPCA_NAM( 187), SPCA_MAP( 187), MG20_NAM( 187), MG20_MAP( 187), EFFS_ALL( 187) & /'hexane', 181 ,'OTHER', 18, 0.01 / DATA SPCA_NAM( 188), SPCA_MAP( 188), MG20_NAM( 188), MG20_MAP( 188), EFFS_ALL( 188) & /'dodecene_1', 177 ,'OTHER', 18, 0.01 / DATA SPCA_NAM( 189), SPCA_MAP( 189), MG20_NAM( 189), MG20_MAP( 189), EFFS_ALL( 189) & /'decane', 173 ,'OTHER', 18, 0.01 / DATA SPCA_NAM( 190), SPCA_MAP( 190), MG20_NAM( 190), MG20_MAP( 190), EFFS_ALL( 190) & /'heptane', 179 ,'OTHER', 18, 0.01 / DATA SPCA_NAM( 191), SPCA_MAP( 191), MG20_NAM( 191), MG20_MAP( 191), EFFS_ALL( 191) & /'carbonyl_s', 172 ,'OTHER', 18, 0.03 / DATA SPCA_NAM( 192), SPCA_MAP( 192), MG20_NAM( 192), MG20_MAP( 192), EFFS_ALL( 192) & /'MBO_3m2e1ol', 190 ,'OTHER', 18, 0.01 / DATA SPCA_NAM( 193), SPCA_MAP( 193), MG20_NAM( 193), MG20_MAP( 193), EFFS_ALL( 193) & /'2met_2s', 175 ,'OTHER', 18, 0.01 / DATA SPCA_NAM( 194), SPCA_MAP( 194), MG20_NAM( 194), MG20_MAP( 194), EFFS_ALL( 194) & /'MBO_3m3e1ol', 191 ,'OTHER', 18, 0.01 / DATA SPCA_NAM( 195), SPCA_MAP( 195), MG20_NAM( 195), MG20_MAP( 195), EFFS_ALL( 195) & /'undecane', 199 ,'OTHER', 18, 0.01 / DATA SPCA_NAM( 196), SPCA_MAP( 196), MG20_NAM( 196), MG20_MAP( 196), EFFS_ALL( 196) & /'tetradecene_1', 198 ,'OTHER', 18, 0.01 / DATA SPCA_NAM( 197), SPCA_MAP( 197), MG20_NAM( 197), MG20_MAP( 197), EFFS_ALL( 197) & /'diallyl_2s', 174 ,'OTHER', 18, 0.01 / DATA SPCA_NAM( 198), SPCA_MAP( 198), MG20_NAM( 198), MG20_MAP( 198), EFFS_ALL( 198) & /'PPPP_2s', 194 ,'OTHER', 18, 0.01 / DATA SPCA_NAM( 199), SPCA_MAP( 199), MG20_NAM( 199), MG20_MAP( 199), EFFS_ALL( 199) & /'met_propenyl_2s', 189 ,'OTHER', 18, 0.01 / DATA SPCA_NAM( 200), SPCA_MAP( 200), MG20_NAM( 200), MG20_MAP( 200), EFFS_ALL( 200) & /'hydrogen_s', 182 ,'OTHER', 18, 0.05 / DATA SPCA_NAM( 201), SPCA_MAP( 201), MG20_NAM( 201), MG20_MAP( 201), EFFS_ALL( 201) & / 'nitric_OXD', 201 , 'NO ', 8 , 1 / ================================================ FILE: CCTM/src/biog/megan3/SPC_RACM2.EXT ================================================ C======================================================================= C SPC_RACM2.EXT C This include file contains RACM2 species and their MW. C C C Mechanism Name: RACM2 C MEGAN v3 C C History: C Who When What C --------------------------------------------------------------------- C Ling Huang 06/13/17 - Created for MEGANv3 C======================================================================= INTEGER,PARAMETER :: N_RACM2_SPC = 38 ! Number of mechanism species CHARACTER*26 MECH_SPC_RACM2( N_RACM2_SPC ) ! Mechanism species name REAL MECH_MWT_RACM2( N_RACM2_SPC ) ! Mechanism species mol. wt. DATA MECH_SPC_RACM2( 1), MECH_MWT_RACM2( 1) /'ISO ', 68.12 / DATA MECH_SPC_RACM2( 2), MECH_MWT_RACM2( 2) /'CH4 ', 16.04 / DATA MECH_SPC_RACM2( 3), MECH_MWT_RACM2( 3) /'ETH ', 30.00 / DATA MECH_SPC_RACM2( 4), MECH_MWT_RACM2( 4) /'HC3 ', 44.00 / DATA MECH_SPC_RACM2( 5), MECH_MWT_RACM2( 5) /'HC5 ', 72.00 / DATA MECH_SPC_RACM2( 6), MECH_MWT_RACM2( 6) /'HC8 ', 114.00 / DATA MECH_SPC_RACM2( 7), MECH_MWT_RACM2( 7) /'OL2 ', 28.00 / DATA MECH_SPC_RACM2( 8), MECH_MWT_RACM2( 8) /'OLI ', 68.00 / DATA MECH_SPC_RACM2( 9), MECH_MWT_RACM2( 9) /'OLT ', 42.00 / DATA MECH_SPC_RACM2( 10), MECH_MWT_RACM2( 10) /'ALD ', 44.05 / DATA MECH_SPC_RACM2( 11), MECH_MWT_RACM2( 11) /'KET ', 72.00 / DATA MECH_SPC_RACM2( 12), MECH_MWT_RACM2( 12) /'TOL ', 92.14 / DATA MECH_SPC_RACM2( 13), MECH_MWT_RACM2( 13) /'HCHO ', 30.00 / DATA MECH_SPC_RACM2( 14), MECH_MWT_RACM2( 14) /'ORA1 ', 46.00 / DATA MECH_SPC_RACM2( 15), MECH_MWT_RACM2( 15) /'ORA2 ', 60.00 / DATA MECH_SPC_RACM2( 16), MECH_MWT_RACM2( 16) /'API ', 136.00 / DATA MECH_SPC_RACM2( 17), MECH_MWT_RACM2( 17) /'LIM ', 136.00 / DATA MECH_SPC_RACM2( 18), MECH_MWT_RACM2( 18) /'CO ', 28.01 / DATA MECH_SPC_RACM2( 19), MECH_MWT_RACM2( 19) /'SO2 ', 64.00 / DATA MECH_SPC_RACM2( 20), MECH_MWT_RACM2( 20) /'NO ', 46.00 / DATA MECH_SPC_RACM2( 21), MECH_MWT_RACM2( 21) /'HNO3 ', 63.01 / DATA MECH_SPC_RACM2( 22), MECH_MWT_RACM2( 22) /'NO2 ', 46.00 / DATA MECH_SPC_RACM2( 23), MECH_MWT_RACM2( 23) /'NR ', 1.00 / DATA MECH_SPC_RACM2( 24), MECH_MWT_RACM2( 24) /'SESQ ', 204.35 / DATA MECH_SPC_RACM2( 25), MECH_MWT_RACM2( 25) /'MOH ', 32.04 / DATA MECH_SPC_RACM2( 26), MECH_MWT_RACM2( 26) /'ACT ', 58.08 / DATA MECH_SPC_RACM2( 27), MECH_MWT_RACM2( 27) /'EOH ', 46.07 / DATA MECH_SPC_RACM2( 28), MECH_MWT_RACM2( 28) /'ACD ', 44.00 / DATA MECH_SPC_RACM2( 29), MECH_MWT_RACM2( 29) /'ETE ', 28.00 / DATA MECH_SPC_RACM2( 30), MECH_MWT_RACM2( 30) /'MVK ', 70.09 / DATA MECH_SPC_RACM2( 31), MECH_MWT_RACM2( 31) /'HCN ', 27.03 / DATA MECH_SPC_RACM2( 32), MECH_MWT_RACM2( 32) /'MACR ', 70.09 / DATA MECH_SPC_RACM2( 33), MECH_MWT_RACM2( 33) /'CH3BR', 94.94 / DATA MECH_SPC_RACM2( 34), MECH_MWT_RACM2( 34) /'CH3CL', 50.49 / DATA MECH_SPC_RACM2( 35), MECH_MWT_RACM2( 35) /'CH3I ', 141.94 / DATA MECH_SPC_RACM2( 36), MECH_MWT_RACM2( 36) /'TRS ', 34.08 / DATA MECH_SPC_RACM2( 37), MECH_MWT_RACM2( 37) /'NH3 ', 17.03 / DATA MECH_SPC_RACM2( 38), MECH_MWT_RACM2( 38) /'N2O ', 44.01 / ================================================ FILE: CCTM/src/biog/megan3/SPC_SAPRC07.EXT ================================================ C======================================================================= C SPC_SAPRC07.EXT C This include file contains SAPRC07 species and their MW. C C C Mechanism Name: SAPRC07 C MEGAN v3 C INPUT version x.x C C History: C Who When What C --------------------------------------------------------------------- C Ling Huang 06/13/17 - Created for MEGAN3 C======================================================================= CHARACTER*16 SPC_SAPRC07MECH PARAMETER (SPC_SAPRC07MECH = 'SAPRC07 ') INTEGER N_SAPRC07_SPC PARAMETER (N_SAPRC07_SPC = 47) CHARACTER*16 MECH_SPC_SAPRC07( N_SAPRC07_SPC ) ! Mechanism species name REAL MECH_MWT_SAPRC07( N_SAPRC07_SPC ) ! Mechanism species molecular weight ! Note conversion between 134 species and SAPRC07 is done by 1:1 mole DATA MECH_SPC_SAPRC07( 1), MECH_MWT_SAPRC07( 1) / 'CH4 ', 16.04 / DATA MECH_SPC_SAPRC07( 2), MECH_MWT_SAPRC07( 2) / 'ALK1 ', 30.07 / DATA MECH_SPC_SAPRC07( 3), MECH_MWT_SAPRC07( 3) / 'ALK2 ', 36.73 / DATA MECH_SPC_SAPRC07( 4), MECH_MWT_SAPRC07( 4) / 'ALK3 ', 58.61 / DATA MECH_SPC_SAPRC07( 5), MECH_MWT_SAPRC07( 5) / 'ALK4 ', 77.60 / DATA MECH_SPC_SAPRC07( 6), MECH_MWT_SAPRC07( 6) / 'ALK5 ', 118.89 / DATA MECH_SPC_SAPRC07( 7), MECH_MWT_SAPRC07( 7) / 'ETHE ', 28.05 / DATA MECH_SPC_SAPRC07( 8), MECH_MWT_SAPRC07( 8) / 'OLE1 ', 72.34 / DATA MECH_SPC_SAPRC07( 9), MECH_MWT_SAPRC07( 9) / 'OLE2 ', 75.78 / DATA MECH_SPC_SAPRC07( 10), MECH_MWT_SAPRC07( 10) / 'ISOP ', 68.12 / DATA MECH_SPC_SAPRC07( 11), MECH_MWT_SAPRC07( 11) / 'TERP ', 136.24 / DATA MECH_SPC_SAPRC07( 12), MECH_MWT_SAPRC07( 12) / 'BENZ ', 78.11 / DATA MECH_SPC_SAPRC07( 13), MECH_MWT_SAPRC07( 13) / 'ARO1 ', 95.16 / DATA MECH_SPC_SAPRC07( 14), MECH_MWT_SAPRC07( 14) / 'ARO2 ', 118.72 / DATA MECH_SPC_SAPRC07( 15), MECH_MWT_SAPRC07( 15) / 'ACYE ', 26.04 / DATA MECH_SPC_SAPRC07( 16), MECH_MWT_SAPRC07( 16) / 'HCHO ', 30.03 / DATA MECH_SPC_SAPRC07( 17), MECH_MWT_SAPRC07( 17) / 'CCHO ', 44.05 / DATA MECH_SPC_SAPRC07( 18), MECH_MWT_SAPRC07( 18) / 'RCHO ', 58.08 / DATA MECH_SPC_SAPRC07( 19), MECH_MWT_SAPRC07( 19) / 'BALD ', 106.13 / DATA MECH_SPC_SAPRC07( 20), MECH_MWT_SAPRC07( 20) / 'ACET ', 58.08 / DATA MECH_SPC_SAPRC07( 21), MECH_MWT_SAPRC07( 21) / 'MEK ', 72.11 / DATA MECH_SPC_SAPRC07( 22), MECH_MWT_SAPRC07( 22) / 'PRD2 ', 116.16 / DATA MECH_SPC_SAPRC07( 23), MECH_MWT_SAPRC07( 23) / 'MEOH ', 32.04 / DATA MECH_SPC_SAPRC07( 24), MECH_MWT_SAPRC07( 24) / 'FACD ', 46.03 / DATA MECH_SPC_SAPRC07( 25), MECH_MWT_SAPRC07( 25) / 'AACD ', 60.05 / DATA MECH_SPC_SAPRC07( 26), MECH_MWT_SAPRC07( 26) / 'PACD ', 74.08 / DATA MECH_SPC_SAPRC07( 27), MECH_MWT_SAPRC07( 27) / 'GLY ', 58.04 / DATA MECH_SPC_SAPRC07( 28), MECH_MWT_SAPRC07( 28) / 'MGLY ', 72.07 / DATA MECH_SPC_SAPRC07( 29), MECH_MWT_SAPRC07( 29) / 'BACL ', 86.09 / DATA MECH_SPC_SAPRC07( 30), MECH_MWT_SAPRC07( 30) / 'CRES ', 108.14 / DATA MECH_SPC_SAPRC07( 31), MECH_MWT_SAPRC07( 31) / 'MACR ', 70.09 / DATA MECH_SPC_SAPRC07( 32), MECH_MWT_SAPRC07( 32) / 'MVK ', 70.09 / DATA MECH_SPC_SAPRC07( 33), MECH_MWT_SAPRC07( 33) / 'IPRD ', 70.09 / DATA MECH_SPC_SAPRC07( 34), MECH_MWT_SAPRC07( 34) / 'RNO3 ', 147.18 / DATA MECH_SPC_SAPRC07( 35), MECH_MWT_SAPRC07( 35) / 'CO ', 28.01 / DATA MECH_SPC_SAPRC07( 36), MECH_MWT_SAPRC07( 36) / 'SESQ ', 204.36 / DATA MECH_SPC_SAPRC07( 37), MECH_MWT_SAPRC07( 37) / 'HCN ', 27.03 / DATA MECH_SPC_SAPRC07( 38), MECH_MWT_SAPRC07( 38) / 'CH3BR ', 94.94 / DATA MECH_SPC_SAPRC07( 39), MECH_MWT_SAPRC07( 39) / 'CH3CL ', 50.49 / DATA MECH_SPC_SAPRC07( 40), MECH_MWT_SAPRC07( 40) / 'CH3I ', 141.94 / DATA MECH_SPC_SAPRC07( 41), MECH_MWT_SAPRC07( 41) / 'TRS ', 32.00 / DATA MECH_SPC_SAPRC07( 42), MECH_MWT_SAPRC07( 42) / 'NO ', 46.00 / DATA MECH_SPC_SAPRC07( 43), MECH_MWT_SAPRC07( 43) / 'NH3 ', 17.03 / DATA MECH_SPC_SAPRC07( 44), MECH_MWT_SAPRC07( 44) / 'N2O ', 44.01 / DATA MECH_SPC_SAPRC07( 45), MECH_MWT_SAPRC07( 45) / 'APIN ', 136.24 / DATA MECH_SPC_SAPRC07( 46), MECH_MWT_SAPRC07( 46) / 'HCHO_PRIMARY ', 30.03 / DATA MECH_SPC_SAPRC07( 47), MECH_MWT_SAPRC07( 47) / 'CCHO_PRIMARY ', 44.05 / ================================================ FILE: CCTM/src/biog/megan3/SPC_SAPRC07T.EXT ================================================ C======================================================================= C SPC_SAPRC07T.EXT C This include file contains SAPRC07T species and their MW. C C C Mechanism Name: SAPRC07T C MEGAN v3 C INPUT version x.x C C History: C Who When What C --------------------------------------------------------------------- C Ling Huang 06/13/17 - Created for MEGAN3 C======================================================================= CHARACTER*16 SPC_SAPRC07TMECH PARAMETER (SPC_SAPRC07TMECH = 'SAPRC07T ') INTEGER N_SAPRC07T_SPC PARAMETER (N_SAPRC07T_SPC = 56) CHARACTER*16 MECH_SPC_SAPRC07T( N_SAPRC07T_SPC ) ! Mechanism species name REAL MECH_MWT_SAPRC07T( N_SAPRC07T_SPC ) ! Mechanism species molecular weight ! Note conversion between 134 species and SAPRC07 is done by 1:1 mole DATA MECH_SPC_SAPRC07T( 1), MECH_MWT_SAPRC07T( 1) / 'CH4 ', 16.04 / DATA MECH_SPC_SAPRC07T( 2), MECH_MWT_SAPRC07T( 2) / 'ALK1 ', 30.07 / DATA MECH_SPC_SAPRC07T( 3), MECH_MWT_SAPRC07T( 3) / 'ALK2 ', 36.73 / DATA MECH_SPC_SAPRC07T( 4), MECH_MWT_SAPRC07T( 4) / 'ALK3 ', 58.61 / DATA MECH_SPC_SAPRC07T( 5), MECH_MWT_SAPRC07T( 5) / 'ALK4 ', 77.60 / DATA MECH_SPC_SAPRC07T( 6), MECH_MWT_SAPRC07T( 6) / 'ALK5 ', 118.89 / DATA MECH_SPC_SAPRC07T( 7), MECH_MWT_SAPRC07T( 7) / 'ETHENE ', 28.05 / DATA MECH_SPC_SAPRC07T( 8), MECH_MWT_SAPRC07T( 8) / 'OLE1 ', 72.34 / DATA MECH_SPC_SAPRC07T( 9), MECH_MWT_SAPRC07T( 9) / 'OLE2 ', 75.78 / DATA MECH_SPC_SAPRC07T( 10), MECH_MWT_SAPRC07T( 10) / 'ISOPRENE ', 68.12 / DATA MECH_SPC_SAPRC07T( 11), MECH_MWT_SAPRC07T( 11) / 'TERP ', 136.24 / DATA MECH_SPC_SAPRC07T( 12), MECH_MWT_SAPRC07T( 12) / 'BENZ ', 78.11 / DATA MECH_SPC_SAPRC07T( 13), MECH_MWT_SAPRC07T( 13) / 'ARO1 ', 95.16 / DATA MECH_SPC_SAPRC07T( 14), MECH_MWT_SAPRC07T( 14) / 'ARO2MN ', 118.72 / DATA MECH_SPC_SAPRC07T( 15), MECH_MWT_SAPRC07T( 15) / 'ACYE ', 26.04 / DATA MECH_SPC_SAPRC07T( 16), MECH_MWT_SAPRC07T( 16) / 'HCHO ', 30.03 / DATA MECH_SPC_SAPRC07T( 17), MECH_MWT_SAPRC07T( 17) / 'CCHO ', 44.05 / DATA MECH_SPC_SAPRC07T( 18), MECH_MWT_SAPRC07T( 18) / 'RCHO ', 58.08 / DATA MECH_SPC_SAPRC07T( 19), MECH_MWT_SAPRC07T( 19) / 'BALD ', 106.13 / DATA MECH_SPC_SAPRC07T( 20), MECH_MWT_SAPRC07T( 20) / 'ACETONE ', 58.08 / DATA MECH_SPC_SAPRC07T( 21), MECH_MWT_SAPRC07T( 21) / 'MEK ', 72.11 / DATA MECH_SPC_SAPRC07T( 22), MECH_MWT_SAPRC07T( 22) / 'PRD2 ', 116.16 / DATA MECH_SPC_SAPRC07T( 23), MECH_MWT_SAPRC07T( 23) / 'MEOH ', 32.04 / DATA MECH_SPC_SAPRC07T( 24), MECH_MWT_SAPRC07T( 24) / 'HCOOH ', 46.03 / DATA MECH_SPC_SAPRC07T( 25), MECH_MWT_SAPRC07T( 25) / 'CCOOH ', 60.05 / DATA MECH_SPC_SAPRC07T( 26), MECH_MWT_SAPRC07T( 26) / 'CCOOOH ', 74.08 / DATA MECH_SPC_SAPRC07T( 27), MECH_MWT_SAPRC07T( 27) / 'GLY ', 58.04 / DATA MECH_SPC_SAPRC07T( 28), MECH_MWT_SAPRC07T( 28) / 'MGLY ', 72.07 / DATA MECH_SPC_SAPRC07T( 29), MECH_MWT_SAPRC07T( 29) / 'BACL ', 86.09 / DATA MECH_SPC_SAPRC07T( 30), MECH_MWT_SAPRC07T( 30) / 'CRES ', 108.14 / DATA MECH_SPC_SAPRC07T( 31), MECH_MWT_SAPRC07T( 31) / 'MACR ', 70.09 / DATA MECH_SPC_SAPRC07T( 32), MECH_MWT_SAPRC07T( 32) / 'MVK ', 70.09 / DATA MECH_SPC_SAPRC07T( 33), MECH_MWT_SAPRC07T( 33) / 'IPRD ', 100.1 / DATA MECH_SPC_SAPRC07T( 34), MECH_MWT_SAPRC07T( 34) / 'RNO3 ', 147.18 / DATA MECH_SPC_SAPRC07T( 35), MECH_MWT_SAPRC07T( 35) / 'CO ', 28.01 / DATA MECH_SPC_SAPRC07T( 36), MECH_MWT_SAPRC07T( 36) / 'SESQ ', 204.36 / DATA MECH_SPC_SAPRC07T( 37), MECH_MWT_SAPRC07T( 37) / 'HCN ', 27.03 / DATA MECH_SPC_SAPRC07T( 38), MECH_MWT_SAPRC07T( 38) / 'CH3BR ', 94.94 / DATA MECH_SPC_SAPRC07T( 39), MECH_MWT_SAPRC07T( 39) / 'CH3CL ', 50.49 / DATA MECH_SPC_SAPRC07T( 40), MECH_MWT_SAPRC07T( 40) / 'CH3I ', 141.94 / DATA MECH_SPC_SAPRC07T( 41), MECH_MWT_SAPRC07T( 41) / 'TRS ', 32.00 / DATA MECH_SPC_SAPRC07T( 42), MECH_MWT_SAPRC07T( 42) / 'NO ', 46.00 / DATA MECH_SPC_SAPRC07T( 43), MECH_MWT_SAPRC07T( 43) / 'NH3 ', 17.03 / DATA MECH_SPC_SAPRC07T( 44), MECH_MWT_SAPRC07T( 44) / 'N2O ', 44.01 / DATA MECH_SPC_SAPRC07T( 45), MECH_MWT_SAPRC07T( 45) / 'APIN ', 136.24 / DATA MECH_SPC_SAPRC07T( 46), MECH_MWT_SAPRC07T( 46) / 'HCHO_PRIMARY ', 30.03 / DATA MECH_SPC_SAPRC07T( 47), MECH_MWT_SAPRC07T( 47) / 'CCHO_PRIMARY ', 44.05 / DATA MECH_SPC_SAPRC07T( 48), MECH_MWT_SAPRC07T( 48) / 'MXYL ', 70.09 / ! 1 DATA MECH_SPC_SAPRC07T( 49), MECH_MWT_SAPRC07T( 49) / 'OXYL ', 70.09 / ! 2 DATA MECH_SPC_SAPRC07T( 50), MECH_MWT_SAPRC07T( 50) / 'PXYL ', 70.09 / ! 3 DATA MECH_SPC_SAPRC07T( 51), MECH_MWT_SAPRC07T( 51) / 'NAPHTHALENE ', 128.2 / ! 4 DATA MECH_SPC_SAPRC07T( 52), MECH_MWT_SAPRC07T( 52) / 'OCS ', 60.07 / ! 5 DATA MECH_SPC_SAPRC07T( 53), MECH_MWT_SAPRC07T( 53) / 'TOLU ', 92.10 / ! 6 DATA MECH_SPC_SAPRC07T( 54), MECH_MWT_SAPRC07T( 54) / 'PROPENE ', 42.10 / ! 7 DATA MECH_SPC_SAPRC07T( 55), MECH_MWT_SAPRC07T( 55) / 'ETOH ', 46.07 / ! 8 DATA MECH_SPC_SAPRC07T( 56), MECH_MWT_SAPRC07T( 56) / 'PYRYACID ', 70.09 / ! 9 only saprc07tic assigned to BALD in saprc07t ================================================ FILE: CCTM/src/biog/megan3/megan_fx_mod.f90 ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! module megan_fx USE ASX_DATA_MOD, ONLY : Grid_Data USE HGRD_DEFN, ONLY: NCOLS,NROWS ! Aggregated code from MEGAN3.0 by Francis S.Binkowski ! with minor modifications where noted below. ! Implemented for CMAQ 5.4 and proofed by Jeff Willison. IMPLICIT NONE REAL , PARAMETER :: CONVERTWM2TOUMOLM2S = 4.5 , & SOLARCONSTANT = 1367. , & WATERAIRRATIO = 18.016/28.97 ! Ratio between water and air molecules ! Canopy characteristics for MEGCAN canopy types INTEGER , PARAMETER :: NRTYP = 6 ! Number of canopy types INTEGER , PARAMETER :: NRCHA = 17 ! Number of canopy characteristics ! 16 variables are assigned for each canopy type ! 1 = canopy depth ! 2 = leaf width ! 3 = leaf length ! 4 = canopy height ! 5 = scattering coefficient for PPFD ! 6 = scattering coefficient for near IR ! 7 = reflection coefficient for diffuse PPFD ! 8 = reflection coefficient for diffuse near IR ! 9 = clustering coefficient (accounts for leaf clumping influence on mean ! projected leaf area in the direction of the suns beam) ! 10 = leaf IR emissivity ! 11 = leaf stomata and cuticle factor: 1=hypostomatous, 2=amphistomatous, ! 1.25=hypostomatous but with some transpiration through cuticle ! 12 = daytime temperature lapse rate (K m-1) ! 13 = nighttime temperature lapse rate (K m-1) ! 14 = warm (>283K) canopy total humidity change (Pa) ! 15 = cool (>= 283K) canopy total humidity change (Pa) ! 16 = normalized canopy depth where wind is negligible ! 17 = canopy transparency ! ! Six canopy types currently used in MEGCAN: ! 1 = Needleleaf trees ! 2 = Tropical forest trees, ! 3 = Temperate broadleaf trees ! 4 = shrubs ! 5 = herbaceous ! 6 = crops REAL , DIMENSION(NRCHA,NRTYP) :: Canopychar = reshape((/16.,16., & 16.,1.,0.5,1.,0.005,0.05,0.05, & 0.015,0.01,0.02,0.1,0.1,0.1,0.1, & 0.15,0.15,24.,24.,24.,2.,0.5,1.0,& 0.2,0.2,0.2,0.2,0.2,0.2,0.8,0.8, & 0.8,0.8,0.8,0.8,0.057,0.057, & 0.057,0.057,0.057,0.057,0.389, & 0.389,0.389,0.389,0.389,0.389, & 0.85,1.1,0.9,0.85,0.7,0.65,0.95, & 0.95,0.95,0.95,0.95,0.95,1.25, & 1.25,1.25,1.,1.25,1.25,0.06,0.06,& 0.06,0.06,0.06,0.06,-0.06,-0.06, & -0.06,-0.06,-0.06,-0.06,700., & 700.,700.,700.,700.,700.,150., & 150.,150.,150.,150.,150.,0.7,0.7,& 0.7,0.7,0.7,0.7,0.2,0.2,0.2,0.2, & 0.2,0.2/),SHAPE=(/NRCHA,NRTYP/), & ORDER=(/2,1/)) ! for Soil NOx ! ======================================================================= ! MEGSEA.EXT ! This include file contains wilting point information ! for calculating soil moisture activity factor ! ! Created by Alex Guenther and Ling Huang in March 2017 !======================================================================= ! INTEGER, PARAMETER :: NrTyp = 6 ! Number of canopy types REAL, PARAMETER :: d1 = 0.04 !-- WWLT is wilting point (M^3/M^3) (JN90) ! REAL, PARAMETER :: WWLT(16) = (/ & ! 0.068, 0.075, 0.114, 0.179, & ! 0.155, 0.175, 0.218, 0.250, & ! 0.219, 0.283, 0.286, 0.286, & ! 0.286, 0.286, 0.286, 0.286 /) ! REAL, PARAMETER :: WWLT(16) = (/ ! 0.068, 0.075, 0.114, 0.179, & ! 0.150, 0.155, 0.175, 0.218, & ! 0.250, 0.219, 0.283, 0.286, & ! 0.155, 0.286, 0.286, 0.175 /) ! ! Based upon MEGVEA.EXT includes suggestions from CJC !======================================================================= ! MEGVEA.EXT ! This include file contains information required ! for running MEGEAV module for calculating emission activity responses ! Created by Alex Guenther and Ling Huang in Feb 2017 ! ! !======================================================================= !Number of emission classes INTEGER, PARAMETER :: NCLASS = 19 INTEGER, PARAMETER :: NEMIS = NCLASS ! number of emission classes ! CO2 related emission activity factor parameters REAL,PARAMETER :: CO2 = 400.0 REAL,PARAMETER :: ISmax = 1.344 REAL,PARAMETER :: CO2h = 1.4614 REAL,PARAMETER :: Cstar = 585.0 ! PSTD REAL,PARAMETER :: PSTD = 200 ! canopy depth emission response REAL,PARAMETER :: CCD1 = -0.2 REAL,PARAMETER :: CCD2 = 1.3 !Light and temperature emission activity response coefficients for each emission class !LDF: light dependent fraction REAL LDF(NCLASS) !CT1: temperature coefficient (emission type 1: light dependent) REAL CT1(NCLASS) !Cleo: temperature coefficient (emission type 1: light dependent) REAL Cleo(NCLASS) !beta: temperature coefficient (emission type 2: light independent) REAL beta(NCLASS) DATA beta(1),LDF(1),CT1(1),Cleo(1) / 0.13,1.0,95,2 / DATA beta(2),LDF(2),CT1(2),Cleo(2) / 0.13,1.0,95,2 / DATA beta(3),LDF(3),CT1(3),Cleo(3) / 0.10,0.6,80,1.83 / DATA beta(4),LDF(4),CT1(4),Cleo(4) / 0.10,0.9,80,1.83 / DATA beta(5),LDF(5),CT1(5),Cleo(5) / 0.10,0.2,80,1.83 / DATA beta(6),LDF(6),CT1(6),Cleo(6) / 0.10,0.4,80,1.83 / DATA beta(7),LDF(7),CT1(7),Cleo(7) / 0.10,0.1,80,1.83 / DATA beta(8),LDF(8),CT1(8),Cleo(8) / 0.10,0.0,80,1.83 / DATA beta(9),LDF(9),CT1(9),Cleo(9) / 0.17,0.5,130,2.37 / DATA beta(10),LDF(10),CT1(10),Cleo(10) / 0.17,0.4,130,2.37 / DATA beta(11),LDF(11),CT1(11),Cleo(11) / 0.08,0.8,60,1.6 / DATA beta(12),LDF(12),CT1(12),Cleo(12) / 0.10,0.2,80,1.83 / DATA beta(13),LDF(13),CT1(13),Cleo(13) / 0.13,0.8,95,2 / DATA beta(14),LDF(14),CT1(14),Cleo(14) / 0.13,0.8,95,2 / DATA beta(15),LDF(15),CT1(15),Cleo(15) / 0.10,0.2,80,1.83 / DATA beta(16),LDF(16),CT1(16),Cleo(16) / 0.10,0.2,80,1.83 / DATA beta(17),LDF(17),CT1(17),Cleo(17) / 0.10,0.8,80,1.83 / DATA beta(18),LDF(18),CT1(18),Cleo(18) / 0.10,0.1,80,1.83 / DATA beta(19),LDF(19),CT1(19),Cleo(19) / 0.08,1.0,60,1.6 / ! Parameters for leaf age algorithm for each emission activity classes REAL Anew(NCLASS) REAL Agro(NCLASS) REAL Amat(NCLASS) REAL Aold(NCLASS) DATA Anew( 1), Agro( 1), Amat( 1), Aold( 1) & / 0.05 , 0.6 , 1.0 , 0.9 / DATA Anew( 2), Agro( 2), Amat( 2), Aold( 2) & / 0.05 , 0.6 , 1.0 , 0.9 / DATA Anew( 3), Agro( 3), Amat( 3), Aold( 3) & / 2.0 , 1.8 , 1.0 , 1.05 / DATA Anew( 4), Agro( 4), Amat( 4), Aold( 4) & / 2.0 , 1.8 , 1.0 , 1.05 / DATA Anew( 5), Agro( 5), Amat( 5), Aold( 5) & / 2.0 , 1.8 , 1.0 , 1.05 / DATA Anew( 6), Agro( 6), Amat( 6), Aold( 6) & / 2.0 , 1.8 , 1.0 , 1.05 / DATA Anew( 7), Agro( 7), Amat( 7), Aold( 7) & / 2.0 , 1.8 , 1.0 , 1.05 / DATA Anew( 8), Agro( 8), Amat( 8), Aold( 8) & / 1.0 , 1.0 , 1.0 , 1.0 / DATA Anew( 9), Agro( 9), Amat( 9), Aold( 9) & / 0.4 , 0.6 , 1.0 , 0.95 / DATA Anew( 10), Agro( 10), Amat( 10), Aold( 10) & / 0.4 , 0.6 , 1.0 , 0.95 / DATA Anew( 11), Agro( 11), Amat( 11), Aold( 11) & / 3.5 , 3.0 , 1.0 , 1.2 / DATA Anew( 12), Agro( 12), Amat( 12), Aold( 12) & / 1.0 , 1.0 , 1.0 , 1.0 / DATA Anew( 13), Agro( 13), Amat( 13), Aold( 13) & / 1.0 , 1.0 , 1.0 , 1.0 / DATA Anew( 14), Agro( 14), Amat( 14), Aold( 14) & / 1.0 , 1.0 , 1.0 , 1.0 / DATA Anew( 15), Agro( 15), Amat( 15), Aold( 15) & / 1.0 , 1.0 , 1.0 , 1.0 / DATA Anew( 16), Agro( 16), Amat( 16), Aold( 16) & / 1.0 , 1.0 , 1.0 , 1.0 / DATA Anew( 17), Agro( 17), Amat( 17), Aold( 17) & / 1.0 , 1.0 , 1.0 , 1.0 / DATA Anew( 18), Agro( 18), Amat( 18), Aold( 18) & / 1.0 , 1.0 , 1.0 , 1.0 / DATA Anew( 19), Agro( 19), Amat( 19), Aold( 19) & / 1.0 , 1.0 , 1.0 , 1.0 / !stress emission activity response coefficients for each emission class !CAQ: coefficient for poor Air Quality stress REAL CAQ(NCLASS) !CHW: coefficient for high wind speed stress REAL CHW(NCLASS) !CHT: coefficient for high temperature stress REAL CHT(NCLASS) !CLT: coefficient for high temperature stress REAL CLT(NCLASS) DATA CAQ(1),CHW(1),CHT(1),CLT(1) / 1,1,1,1 / DATA CAQ(2),CHW(2),CHT(2),CLT(2) / 1,1,1,1 / DATA CAQ(3),CHW(3),CHT(3),CLT(3) / 1,5,1,1 / DATA CAQ(4),CHW(4),CHT(4),CLT(4) / 5,5,5,5 / DATA CAQ(5),CHW(5),CHT(5),CLT(5) / 1,5,1,1 / DATA CAQ(6),CHW(6),CHT(6),CLT(6) / 1,5,1,1 / DATA CAQ(7),CHW(7),CHT(7),CLT(7) / 1,5,1,1 / DATA CAQ(8),CHW(8),CHT(8),CLT(8) / 1,1,1,1 / DATA CAQ(9),CHW(9),CHT(9),CLT(9) / 5,5,5,5 / DATA CAQ(10),CHW(10),CHT(10),CLT(10) / 5,5,5,5 / DATA CAQ(11),CHW(11),CHT(11),CLT(11) / 1,1,1,1 / DATA CAQ(12),CHW(12),CHT(12),CLT(12) / 1,1,1,1 / DATA CAQ(13),CHW(13),CHT(13),CLT(13) / 1,1,1,1 / DATA CAQ(14),CHW(14),CHT(14),CLT(14) / 1,1,1,1 / DATA CAQ(15),CHW(15),CHT(15),CLT(15) / 1,1,1,1 / DATA CAQ(16),CHW(16),CHT(16),CLT(16) / 1,1,1,1 / DATA CAQ(17),CHW(17),CHT(17),CLT(17) / 5,5,5,5 / DATA CAQ(18),CHW(18),CHT(18),CLT(18) / 1,1,1,1 / DATA CAQ(19),CHW(19),CHT(19),CLT(19) / 1,1,1,1 / !TAQ: threshold for poor Air Quality stress (ppm-hours) REAL TAQ(NCLASS) !THW: threshold for high wind speed stress (m/s) REAL THW(NCLASS) !THT: threshold for high temperature stress (Celsius degree) REAL THT(NCLASS) !TLT: threshold for high temperature stress (Celsius degree) REAL TLT(NCLASS) DATA TAQ(1),THW(1),THT(1),TLT(1) / 20,12,40,10 / DATA TAQ(2),THW(2),THT(2),TLT(2) / 20,12,40,10 / DATA TAQ(3),THW(3),THT(3),TLT(3) / 20,12,40,10 / DATA TAQ(4),THW(4),THT(4),TLT(4) / 20,12,40,10 / DATA TAQ(5),THW(5),THT(5),TLT(5) / 20,12,40,10 / DATA TAQ(6),THW(6),THT(6),TLT(6) / 20,12,40,10 / DATA TAQ(7),THW(7),THT(7),TLT(7) / 20,12,40,10 / DATA TAQ(8),THW(8),THT(8),TLT(8) / 20,12,40,10 / DATA TAQ(9),THW(9),THT(9),TLT(9) / 20,12,40,10 / DATA TAQ(10),THW(10),THT(10),TLT(10) / 20,12,40,10 / DATA TAQ(11),THW(11),THT(11),TLT(11) / 20,12,40,10 / DATA TAQ(12),THW(12),THT(12),TLT(12) / 20,12,40,10 / DATA TAQ(13),THW(13),THT(13),TLT(13) / 20,12,40,10 / DATA TAQ(14),THW(14),THT(14),TLT(14) / 20,12,40,10 / DATA TAQ(15),THW(15),THT(15),TLT(15) / 20,12,40,10 / DATA TAQ(16),THW(16),THT(16),TLT(16) / 20,12,40,10 / DATA TAQ(17),THW(17),THT(17),TLT(17) / 20,12,40,10 / DATA TAQ(18),THW(18),THT(18),TLT(18) / 20,12,40,10 / DATA TAQ(19),THW(19),THT(19),TLT(19) / 20,12,40,10 / !stress emission activity delta thresholds for each emission class !DTAQ: delta threshold for poor Air Quality stress (ppm-hours) REAL DTAQ(NCLASS) !DTHW: delta threshold for high wind speed stress (m/s) REAL DTHW(NCLASS) !DTHT: delta threshold for high temperature stress (Celsius degree) REAL DTHT(NCLASS) !DTLT: delta threshold for low temperature stress (Celsius degree) REAL DTLT(NCLASS) DATA DTAQ(1),DTHW(1),DTHT(1),DTLT(1) / 30,8,8,8 / DATA DTAQ(2),DTHW(2),DTHT(2),DTLT(2) / 30,8,8,8 / DATA DTAQ(3),DTHW(3),DTHT(3),DTLT(3) / 30,8,8,8 / DATA DTAQ(4),DTHW(4),DTHT(4),DTLT(4) / 30,8,8,8 / DATA DTAQ(5),DTHW(5),DTHT(5),DTLT(5) / 30,8,8,8 / DATA DTAQ(6),DTHW(6),DTHT(6),DTLT(6) / 30,8,8,8 / DATA DTAQ(7),DTHW(7),DTHT(7),DTLT(7) / 30,8,8,8 / DATA DTAQ(8),DTHW(8),DTHT(8),DTLT(8) / 30,8,8,8 / DATA DTAQ(9),DTHW(9),DTHT(9),DTLT(9) / 30,8,8,8 / DATA DTAQ(10),DTHW(10),DTHT(10),DTLT(10) / 30,8,8,8 / DATA DTAQ(11),DTHW(11),DTHT(11),DTLT(11) / 30,8,8,8 / DATA DTAQ(12),DTHW(12),DTHT(12),DTLT(12) / 30,8,8,8 / DATA DTAQ(13),DTHW(13),DTHT(13),DTLT(13) / 30,8,8,8 / DATA DTAQ(14),DTHW(14),DTHT(14),DTLT(14) / 30,8,8,8 / DATA DTAQ(15),DTHW(15),DTHT(15),DTLT(15) / 30,8,8,8 / DATA DTAQ(16),DTHW(16),DTHT(16),DTLT(16) / 30,8,8,8 / DATA DTAQ(17),DTHW(17),DTHT(17),DTLT(17) / 30,8,8,8 / DATA DTAQ(18),DTHW(18),DTHT(18),DTLT(18) / 30,8,8,8 / DATA DTAQ(19),DTHW(19),DTHT(19),DTLT(19) / 30,8,8,8 / ! MEGAN species ! Based on Alex Guenther's "Description Class.xlsx" for MEGANv3 ! DATA MGN_SPC( 1) / 'ISOP '/ ! isoprene ! DATA MGN_SPC( 2) / 'MBO '/ ! MBO ! DATA MGN_SPC( 3) / 'MT_PINE '/ ! monoterpenes: pines (alpha and beta) ! DATA MGN_SPC( 4) / 'MT_ACYC '/ ! monoterpenes: acyclic, 3 = (e.g., myrcene, ocimenes) ! DATA MGN_SPC( 5) / 'MT_CAMP '/ ! monoterpenes: carene, camphene, others ! DATA MGN_SPC( 6) / 'MT_SABI '/ ! monoterpenes: sabinene, limonene, terpinenes, others ! DATA MGN_SPC( 7) / 'MT_AROM '/ ! C10 aromatic: cymenes, cymenenes & C8-C13 oxygenated (e.g., camphor) ! DATA MGN_SPC( 8) / 'NO '/ ! Nitric oxide ! DATA MGN_SPC( 9) / 'SQT_HR '/ ! Highly reactive SQT (e.g., caryophyllene) ! DATA MGN_SPC( 10) / 'SQT_LR '/ ! less reactive SQT (e.g., longifolene, copaene) and salates ! DATA MGN_SPC( 11) / 'MEOH '/ ! methanol ! DATA MGN_SPC( 12) / 'ACTO '/ ! acetone ! DATA MGN_SPC( 13) / 'ETOH '/ ! acetaldehyde and ethanol ! DATA MGN_SPC( 14) / 'ACID '/ ! organic acids: formicacid, acetic acid, pyruvic acid ! DATA MGN_SPC( 15) / 'LVOC '/ ! C2 to C4 HC (e.g.,ethene, ethane) ! DATA MGN_SPC( 16) / 'OXPROD '/ ! oxidation products:aldehydes ! DATA MGN_SPC( 17) / 'STRESS '/ ! Stress compounds(e.g., linalool) ! DATA MGN_SPC( 18) / 'OTHER '/ ! other VOC (e.g.,indole, pentane, methyl bromide) ! DATA MGN_SPC( 19) / 'CO '/ ! carbon monoxide CONTAINS !!-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- ! ______________ SUBROUTINE get_CBETA_____________ ! This subroutine calculates the solar zenith angle , its sine and the eccentricity ! INPUT variables: ! JD current Julian Day. ! LAT current latitude [deg] ! HOUR current hour [ hr ] ! OUTPUT variables: ! BETA curent solar zenith angle ! SINBETA Sine of zenith angle ! ECCEBTRICITY orbital eccentricity (solar distance) [ AU ] ! coded by Dr. Francis S.Binkowski on April 2, 2019, modified Abril 4, 2019 ! based upon earlier code and updated to latest algorithms from USNO ! Reference: ! The algorithm for the solar position are from ! https://aa.usno.navy.mil/faq/docs/SunApprox.php ! Us NAVAL OBSERVATORY The acuracy is good for two centuries ! before and after 2000 CE. SUBROUTINE get_BETA( JD, LAT, HOUR, BETA, SINBETA, ECCENTRICITY ) IMPLICIT NONE !*--CALCBETA575 ! INPUTS: REAL, INTENT(IN) :: JD ! True Julian day of interest REAL, INTENT(IN) :: LAT ! Latitude [ degrees ] REAL, INTENT(IN) :: HOUR ! local standard time ! OUTPUT: REAL, INTENT(OUT) :: BETA ! the zenith angle of the sun at lat, hour in degrees REAL, INTENT(OUT) :: SINBETA ! sine of BETA REAL, INTENT(OUT) :: ECCENTRICITY ! orbital eccentricity ! earth distance from sun {AU} ! LOCAL VARIBLES REAL :: sindelta , cosdelta , a , b , D, R, num, den, decl REAL :: sinepsilon, cosepsilon, sinlamda, coslamda, RA, EQT, hangle REAL :: g, q, L, lamda, epsilon, e, sing, singsq, sin2g, cosg, cos2g, latrad REAL, PARAMETER :: PI = 4.0 * ATAN(1.0), twopi = 2.0 * PI REAL, PARAMETER :: twopi_24 = twopi / 24.0 ! eliminates runtime division REAL, PARAMETER :: RAD2DEG = 180.0 / PI, DEG2RAD = 1.0 / RAD2DEG REAL, PARAMETER :: JD0 = 2451545.5 ! True Julian day for January 1, 2000 REAL, PARAMETER :: ONE15 = 1.0 / 15.0 REAL, PARAMETER :: RADCONV = RAD2DEG * ONE15 !-------------------------------------------------------------------- D = JD - JD0 g = 357.529 + 0.98560028 * D ! Mean anomaly of the Sun g = MODULO(g,360.0) IF ( g.LT.0.0 ) g = g + 360.0 g = deg2RAD * g ! g in radians now ! calculate trig functions of g using identities ! this speeds up the calculations sing = SIN(g) singsq = sing * sing cosg = sqrt( 1 - singsq) sin2g = 2.0 * sing * cosg cos2g = cosg*cosg - sing*sing q = 280.459 + 0.98564736 * D ! Mean longitude of the Sun: ! *** now force L to be betweeon 0.0 and 360. degrees q = MODULO( q,360.0) IF ( q.LT.0.0 ) q = q + 360.0 lamda = q + 1.915 * sing + 0.020 * sin2g ! apparent longitude of the sun lamda = MODULO(lamda,360.0) IF ( lamda.LT.0.0 ) lamda = lamda + 360.0 ! epsilon = 23.429 - 4.0E-7 * D ! obliquity of ecliptic epsilon = 23.439 - 3.6e-7 * D ! obliquity of ecliptic ! convert to radian epsilon = DEG2RAD * epsilon lamda = DEG2RAD * lamda sinepsilon = SIN(epsilon) sinlamda = SIN(lamda) coslamda = SQRT( 1.0 - sinlamda *sinlamda ) sindelta = sinepsilon * sinlamda ! sine of solar declination cosdelta = SQRT(1.0 - sindelta * sindelta) ! cosine of solar declination cosepsilon = SQRT( 1.0 - sinepsilon * sinepsilon ) ! calculate Right Ascension of the sun num = cosepsilon * sinlamda den = coslamda RA = atan2(num,den) ! Ignore EQT. It adds at most plus or minus 16 minutes over the year ! hangle = (twopi * (HOUR-12.0) / 24.0 ) ! hour angle in radians ! eliminate runtime division to save time hangle = (twopi_24 * (HOUR-12.0) ) ! hour angle in radians latrad = DEG2RAD * LAT a = SIN(latrad) * sindelta b = COS(Latrad) * cosdelta SINBETA = a + b * COS( hangle) BETA = ASIN(SINBETA) * RAD2DEG ! [ degrees] ! calculate solar distance [ Astronomical Units ] This does ! change over the seasons and more importantly over ! annual and longer time scales because it is a function of ! the Mean anomaly of the Sun. R = 1.00014 - 0.01671*cosg - 0.00014*cos2g ECCENTRICITY = R RETURN END SUBROUTINE get_BETA REAL FUNCTION getJD (YEAR,MONTH,DAY) ! !---COMPUTES THE JULIAN DATE (JD) GIVEN A GREGORIAN CALENDAR ! DATE (YEAR,MONTH,DAY). ! REFERENCE: ! Reda,Ibrahim, and Andreas Afshin, 2008, Solar position algorithm for solar ! radiation applications, NREL/TP-550-34302, Revised January 2008l, National ! Renewable Energy Laboratory, Golden CO. ! Coded April 10, 2019 by Dr. Francis S. Binkowski REAL YEAR,MONTH,DAY,Y, M, D, A, B, JD ! Y = YEAR M = MONTH D = DAY ! The following is from Equation (4) on Page 3 of the reference. A = AINT( Y / 100.0) B = 2.0 -A +AINT(A/4) getJD = AINT( 365.25 *( Y + 4716.0 ) ) + AINT( 30.6001*( M + 1.0) ) + D & + B - 1524.5 ! RETURN END FUNCTION getJD !///////////////_______----------------------- ! This SUBROUTINE converts a date on the Gregorian ! calendar to a day of the year. ! REFERENCE: ! Original Programmer: David G. Simpson ! NASA Goddard Space Flight Center ! Greenbelt, Maryland 2077 Date: November 20, 2001 ! Modified April 13, 2019 by Dr Francis S. Binkowski to do only Gregorian years SUBROUTINE get_DOY( YEAR, MONTH, DAY, DOY) IMPLICIT NONE ! INPUT: REAL, INTENT(IN) :: YEAR, MONTH, DAY ! GREGORIAN DATE ! OUTPUT: INTEGER, INTENT(OUT) :: DOY ! DAY OF the YEAR ! LOCAL: INTEGER :: Y ! year INTEGER :: M ! month (1-12) INTEGER :: D ! day of month INTEGER :: K LOGICAL :: LEAP ! BEGIN CODE: Y = YEAR M = MONTH D = DAY LEAP = .FALSE. ! TEST FOR LEAP YEARS IF ( MOD(Y,4) .EQ. 0) LEAP = .TRUE. IF ( MOD(Y,100) .EQ. 0) LEAP = .FALSE. IF (MOD(Y,400) .EQ. 0) LEAP = .TRUE. IF (LEAP) THEN K = 1 ELSE K = 2 END IF ! CALCULATE DAY OF THE YEAR using INTEGER arithmetic DOY = ( ( 275 * M) / 9 ) - K * ( ( M + 9) / 12 ) + D - 30 RETURN END SUBROUTINE get_DOY SUBROUTINE get_date(YEAR,DOY,MM,DD) !=============WHEN GIVEN A VALID YEAR, YYYY, AND DAY OF THE ! YEAR, DDD, RETURNS THE MONTH, MM, AND DAY OF THE ! MONTH, DD. ! REference: ! SEE ACM ALGORITHM 398, TABLELESS DATE CONVERSION, BY ! {*filter*} STONE, CACM 13(10):621.ACM 1970; DOI:10.1145/355598.362779. 7. ! Summary We have introduced a formalism which allows us to ! explicate certain rather gross properties of language ... ! Modified to f90 by Dr. Francis S. Binkowski on April 13, 2019 ! INPUT: REAL, INTENT(in) :: YEAR, DOY ! year and day of year ! OUTPUT: INTEGER, INTENT(out) :: MM , DD ! LOCAL: INTEGER :: T INTEGER :: YYYY , DDD ! Start code YYYY = YEAR DDD = DOY T = 0 IF( MOD(YYYY,4) .EQ. 0) T = 1 ! test for leap year !-----------THE FOLLOWING STATEMENT IS NECESSARY IF YYYY IS LESS TNAN ! 1900 OR GREATER THAN 2100. IF( MOD(YYYY,400) .NE.0 .AND. MOD(YYYY,100) .EQ. 0 ) T = 0 DD = DDD IF( DDD.GT. 59 + T ) DD = DD + 2 - T MM = ( (DD + 91 ) * 100 ) / 3055 DD = ( DD + 91 ) - ( MM * 3055 ) / 100 MM = MM - 2 !----------MM WILL BE CORRECT IFF DDD IS CORRECT FOR YYYY. RETURN END SUBROUTINE get_date ! These subroutines are from MEGCAN !ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo ! ! SUBROUTINE GaussianDist ! !ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo SUBROUTINE GAUSSIANDIST(Distgauss,Layers) IMPLICIT NONE !*--GAUSSIANDIST91 INTEGER , INTENT(IN) :: Layers REAL , DIMENSION(Layers) , INTENT(OUT) :: Distgauss ! local variables INTEGER :: i !---------------------------------------------------------------- IF ( Layers.EQ.1 ) THEN Distgauss(1) = 0.5 ELSEIF ( Layers.EQ.3 ) THEN Distgauss(1) = 0.112702 Distgauss(2) = 0.5 Distgauss(3) = 0.887298 ELSEIF ( Layers.EQ.5 ) THEN Distgauss(1) = 0.0469101 Distgauss(2) = 0.2307534 Distgauss(3) = 0.5 Distgauss(4) = 0.7692465 Distgauss(5) = 0.9530899 ELSE DO i = 1 , Layers Distgauss(i) = (i-0.5)/Layers ENDDO ENDIF RETURN END SUBROUTINE GAUSSIANDIST !ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo ! ! SUBROUTINE SolarFractions ! Based on actual and potential max solar radiation: ! Determine the fraction of solar radiation that is ! diffuse PPFD, direct PPFD, diffuse near IR, direct near IR ! ! Originally developed by Alex Guenther in 1990s ! Modified in 2010 !ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo SUBROUTINE SOLARFRACTIONS(Solar,Maxsolar,Qdiffv,Qbeamv,Qdiffn, & & Qbeamn) IMPLICIT NONE !*--SOLARFRACTIONS137 REAL , INTENT(IN) :: Solar , Maxsolar REAL , INTENT(OUT) :: Qdiffv , Qbeamv , Qdiffn , Qbeamn REAL :: fracdiff , ppfdfrac , ppfddiffrac , qv , qn ! internal variables REAL :: transmis !----------------------------------------------------- IF ( Maxsolar<=0 ) THEN transmis = 0.5 ELSEIF ( Maxsolar1.0 ) ppfddiffrac = 1.0 qv = ppfdfrac*Solar Qdiffv = qv*ppfddiffrac Qbeamv = qv - Qdiffv qn = Solar - qv Qdiffn = qn*fracdiff Qbeamn = qn - Qdiffn RETURN END SUBROUTINE SOLARFRACTIONS !ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo! ! Subroutine CanopyRad ! ! Canopy light environment model ! Code originally developed by Alex Guenther in 1990s ! Coded into FORTRAN by Xuemei Wang ! based on Spitters et al. (1986), ! Goudrian and van Laar (1994), Leuning (1997) ! Initial code 8-99, ! modified 7-2000, 12-2001, 1-2017 ! !ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo SUBROUTINE CanopyRad(Distgauss, Layers, LAI, Sinbeta, & Qbeamv, Qdiffv, Qbeamn, Qdiffn, Cantype, & Canopychar, Sunfrac, QbAbsV, QdAbsV, QsAbsV, & QbAbsn, QdAbsn, QsAbsn, SunQv, & ShadeQv, SunQn, ShadeQn, SunPPFD, ShadePPFD, & NrCha, NrTyp) IMPLICIT NONE ! input INTEGER,INTENT(IN) :: Layers, NrCha, NrTyp, Cantype REAL,INTENT(IN) :: Qbeamv,Qdiffv,Sinbeta,LAI,Qbeamn,Qdiffn REAL,DIMENSION(Layers),INTENT(IN) :: Distgauss ! output REAL,INTENT(OUT) :: QbAbsV, QbAbsn REAL,DIMENSION(Layers),INTENT(OUT) :: ShadePPFD, SunPPFD, & QdAbsv, QsAbsv, QsAbsn, ShadeQv, SunQn, & QdAbsn, SunQv, ShadeQn, Sunfrac REAL,DIMENSION(NrCha,NrTyp), INTENT(IN) :: Canopychar ! internal variables INTEGER :: i REAL :: ScatV, ScatN, RefldV, RefldN, ReflbV, ReflbN, & Kb, Kd, KbpV, KbpN, KdpV, KdpN, LAIdepth, Cluster,& QdAbsVL, QsAbsVL, QdAbsNL, QsAbsNL, CANTRAN, LAIadj ! Stefan-boltzman constant W m-2 K-4 REAL,PARAMETER :: Sb = 0.0000000567 REAL,PARAMETER :: ConvertShadePPFD = 4.6 REAL,PARAMETER :: ConvertSunPPFD = 4.0 !--------------------------------------------------------------------- ! adjust LAI for canopy transparency CANTRAN = Canopychar(17,Cantype) LAIadj = LAI / ( 1 - CANTRAN ) IF (((Qbeamv + Qdiffv ) > 0.001) .AND. & (Sinbeta > 0.002) .AND. & (LAIadj > 0.001)) THEN ! Daytime ! Scattering coefficients (scatV,scatN), diffuse and beam reflection ! coefficients (ref..) for visible or near IR ScatV = Canopychar(5,Cantype) ScatN = Canopychar(6,Cantype) RefldV = Canopychar(7,Cantype) RefldN = Canopychar(8,Cantype) Cluster = Canopychar(9,Cantype) ! print*,'cluster', Cluster ! Extinction coefficients for black leaves for beam (kb) or diffuse (kd) Kb = Cluster * 0.5 / Sinbeta ! (0.5 assumes a spherical leaf angle distribution (0.5 = cos (60 deg)) Kd = 0.8 * Cluster ! (0.8 assumes a spherical leaf angle distribution) Call CalcExtCoeff(Qbeamv,ScatV,Kb,Kd,ReflbV,KbpV,KdpV,QbAbsV) Call CalcExtCoeff(Qbeamn,ScatN,Kb,Kd,ReflbN,KbpN,KdpN,QbAbsn) DO i = 1,layers ! LAI depth at this layer LAIdepth = LAIadj * Distgauss(i) !fraction of leaves that are sunlit Sunfrac(i) = EXP(-Kb * LAIdepth) Call CalcRadComponents(Qdiffv , Qbeamv , kdpV, & kbpV, kb, scatV, refldV, & reflbV, LAIdepth, QdAbsVL, QsAbsVL) Call CalcRadComponents(Qdiffn , Qbeamn , kdpN, & kbpN, kb, scatN, refldN, & reflbN, LAIdepth, QdAbsNL, QsAbsNL) ShadePPFD(i) = (QdAbsVL + QsAbsVL) * ConvertShadePPFD/(1 - scatV) SunPPFD(i) = ShadePPFD(i) + (QbAbsV* ConvertSunPPFD/(1 - scatV)) QdAbsV(i) = QdAbsVL QsAbsV(i) = QsAbsVL QdAbsn(i) = QdAbsNL QsAbsn(i) = QsAbsNL ShadeQv(i) = QdAbsVL + QsAbsVL SunQv(i) = ShadeQv(i) + QbAbsV ShadeQn(i) = QdAbsNL + QsAbsNL SunQn(i) = ShadeQn(i) + QbAbsn ENDDO ELSE ! Night time QbAbsV = 0 QbAbsn = 0 Sunfrac(:) = 0.2 SunQn(:) = 0 ShadeQn(:) = 0 SunQv(:) = 0 ShadeQv(:) = 0 SunPPFD(:) = 0 ShadePPFD(:) = 0 QdAbsV(:) = 0 QsAbsV(:) = 0 QdAbsn(:) = 0 QsAbsn(:) = 0 ENDIF RETURN END SUBROUTINE CanopyRad !ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo ! ! Subroutine CalcExtCoeff ! Calculate light extinction coefficients ! Code originally developed by Alex Guenther in 1990s ! Coded into FORTRAN by Xuemei Wang ! !ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo SUBROUTINE CALCEXTCOEFF(Qbeam,Scat,Kb,Kd,Reflb,Kbp,Kdp, & & Qbeamabsorb) IMPLICIT NONE !*--CALCEXTCOEFF308 REAL , INTENT(IN) :: Qbeam , Scat , Kb , Kd REAL , INTENT(OUT) :: Reflb , Kbp , Kdp , Qbeamabsorb ! local variables REAL :: p !------------------------------------------------------------------- p = (1-Scat)**0.5 Reflb = 1 - EXP((-2*((1-p)/(1+p))*Kb)/(1+Kb)) ! Extinction coefficients Kbp = Kb*p Kdp = Kd*p ! Absorbed beam radiation Qbeamabsorb = Kb*Qbeam*(1-Scat) RETURN END SUBROUTINE CALCEXTCOEFF !ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo ! ! Subroutine CalcRadComponents ! Code originally developed by Alex Guenther in 1990s ! Coded into FORTRAN by Xuemei Wang ! !ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo SUBROUTINE CALCRADCOMPONENTS(Qdiff,Qbeam,Kdp,Kbp,Kb,Scat,Refld, & Reflb,Laidepth,Qdabs,Qsabs) IMPLICIT NONE !*--CALCRADCOMPONENTS340 REAL , INTENT(IN) :: Qdiff , Qbeam , Kdp , Kbp , Kb , Scat , & Refld , Reflb , Laidepth REAL , INTENT(OUT) :: Qdabs , Qsabs !------------------------------------------------------------------- Qdabs = Qdiff*Kdp*(1-Refld)*EXP(-Kdp*Laidepth) Qsabs = Qbeam*((Kbp*(1-Reflb)*EXP(-Kbp*Laidepth)) & -(Kb*(1-Scat)*EXP(-Kb*Laidepth))) RETURN END SUBROUTINE CALCRADCOMPONENTS !ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo ! ! Subroutine CanopyEB ! ! Canopy energy balance model for estimating leaf temperature ! Coded into FORTRAN by Xuemei Wang ! Code developed by Alex Guenther in 1990s ! based on Goudrian and Laar (1994) and Leuning (1997) ! Initial code 8-99, modified 7-2000 and 12-2001 ! Modified in 1-2017 by Alex Guenther and Ling Huang ! to correct IR balance and atmos. emissivity ! Note: i denotes an array containing a vertical profile ! through the canopy with 0 (above canopy conditions) ! plus 1 to number of canopy layers !ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo SUBROUTINE CANOPYEB(Trate,Layers,Distgauss,Canopychar,Cantype, & Tairk,Humidairpa,Ws,Sunppfd,Shadeppfd,Sunqv, & Shadeqv,Sunqn,Shadeqn,Sunleaftk,Sunleafsh, & Sunleaflh,Sunleafir,Shadeleaftk,Shadeleafsh, & Shadeleaflh,Shadeleafir,Nrcha,Nrtyp,Ws0, & Tairk0,Humidairpa0) IMPLICIT NONE !*--CANOPYEB377 ! inputs INTEGER , INTENT(IN) :: Nrcha , Nrtyp , Layers , Cantype REAL , INTENT(IN) :: Trate , Tairk0 , Humidairpa0 , Ws0 REAL , DIMENSION(Layers) , INTENT(IN) :: Distgauss , Sunqv , & Shadeqv , Sunqn , Shadeqn , & Sunppfd , Shadeppfd REAL , DIMENSION(Nrcha,Nrtyp) , INTENT(IN) :: Canopychar ! outputs REAL , DIMENSION(Layers) , INTENT(OUT) :: Humidairpa , Ws , & Sunleaftk , Sunleafsh , & Sunleaflh , Sunleafir , Tairk , & Shadeleaftk , Shadeleafsh , & Shadeleaflh , Shadeleafir ! local variables INTEGER :: i ! & Deltah, UnexposedLeafIRin, ExposedLeafIRin, IRin,IRout REAL :: cdepth , lwidth , llength , cheight , eps , & transpiretype , deltah , emissatm , irin , irout REAL , DIMENSION(Layers) :: ldepth , wsh, wsh1 !----------------------------------------------------------------------- cdepth = Canopychar(1,Cantype) lwidth = Canopychar(2,Cantype) llength = Canopychar(3,Cantype) cheight = Canopychar(4,Cantype) eps = Canopychar(10,Cantype) transpiretype = Canopychar(11,Cantype) IF ( Tairk0>288 ) THEN ! Pa m-1 (humidity profile for T < 288) deltah = Canopychar(14,Cantype)/cheight ELSEIF ( Tairk0>278 ) THEN deltah = (Canopychar(14,Cantype)-((288-Tairk0)/10) & *(Canopychar(14,Cantype)-Canopychar(15,Cantype))) & /cheight ELSE ! Pa m-1 (humidity profile for T <278) deltah = Canopychar(15,Cantype)/cheight ENDIF ldepth(:) = cdepth*Distgauss(:) Tairk(:) = Tairk0 + (Trate*ldepth(:)) ! check this Humidairpa(:) = Humidairpa0 + (deltah*ldepth(:)) wsh(:) = (cheight-ldepth(:)) - (Canopychar(16,Cantype)*cheight) wsh1(:) = wsh(:) WHERE(wsh(:)<0.001)Wsh1(:) = 0.0009 ! to avoid undef for LOG(negative) Ws(:) = (Ws0*LOG(wsh1(:))/LOG(cheight-Canopychar(16,Cantype)* & & cheight)) WHERE(wsh(:)<0.001)Ws(:) = 0.05 DO i = 1 , Layers ! REVISE - Replace UnexposedLeafIR with LeafIR ! IRin = UnexposedLeafIRin(TairK(i), Eps) ! ShadeleafIR(i) = 2 * IRin ! SunleafIR(i) = 0.5*ExposedLeafIRin(HumidairPa0,TairK0)+1.5*IRin ! Apparent atmospheric emissivity for clear skies: ! function of water vapor pressure (Pa) ! and ambient Temperature (K) based on Brutsaert(1975) ! referenced in Leuning (1997) emissatm = 0.642*(Humidairpa(i)/Tairk(i))**(1./7.) irin = LEAFIR(Tairk(i),emissatm) Shadeleafir(i) = irin Sunleafir(i) = irin ! Sun CALL LEAFEB(Sunppfd(i),Sunqv(i)+Sunqn(i),Sunleafir(i),eps, & transpiretype,lwidth,llength,Tairk(i),Humidairpa(i)& ,Ws(i),Sunleaftk(i),Sunleafsh(i),Sunleaflh(i), & irout) Sunleafir(i) = Sunleafir(i) - irout ! Shade CALL LEAFEB(Shadeppfd(i),Shadeqv(i)+Shadeqn(i),Shadeleafir(i), & eps,transpiretype,lwidth,llength,Tairk(i), & Humidairpa(i),Ws(i),Shadeleaftk(i),Shadeleafsh(i), & Shadeleaflh(i),irout) Shadeleafir(i) = Shadeleafir(i) - irout ENDDO RETURN END SUBROUTINE CANOPYEB !ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo ! ! Subroutine LeafEB ! ! Leaf energy balance ! Code originally developed by Alex Guenther in 1990s ! Coded into FORTRAN by Xuemei Wang ! !ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo SUBROUTINE LEAFEB(Ppfd,Q,Irin,Eps,Transpiretype,Lwidth,Llength, & Tairk,Humidairpa,Ws,Tleaf,Sh,Lh,Irout) IMPLICIT NONE !*--LEAFEB480 REAL , INTENT(IN) :: Eps , Transpiretype , Lwidth , Llength , & Ppfd , Q , Irin , Tairk , Humidairpa , Ws REAL , INTENT(OUT) :: Irout , Tleaf , Sh , Lh ! local variables INTEGER :: i ! & LHairT,Tdelt,Balance,LeafBLC,LeafH,LeafLE,LeafIRout, REAL :: humidairkgm3 , ghforced , stomres , iroutairt , & lathv , ws1 , lhairt , tdelt , balance , gh1 , sh1 , lh1 , e1 , & irout1 , gh !---------------------------------------------------- IF ( Ws<=0 ) THEN ws1 = 0.001 ELSE ws1 = Ws ENDIF ! Air vapor density kg m-3 humidairkgm3 = CONVERTHUMIDITYPA2KGM3(Humidairpa,Tairk) ! Heat convection coefficient (W m-2 K-1) for forced convection. ! Nobel page 366 ghforced = 0.0259/(0.004*((Llength/Ws1)**0.5)) ! Stomatal resistence s m-1 stomres = RESSC(Ppfd) ! REVISE - Replace LeafIRout with LeafIR ! IRoutairT = LeafIROut(tairK, eps) ! iroutairt = LEAFIR(Tairk+tdelt,Eps) IRoutairT = LeafIR(TairK, Eps) ! Latent heat of vaporization (J Kg-1) lathv = LHV(Tairk) ! Latent heat flux lhairt = LEAFLE(Tairk,humidairkgm3,lathv,ghforced,stomres, & Transpiretype) e1 = (Q+Irin-iroutairt-lhairt) IF ( e1.EQ.0. ) e1 = -1. tdelt = 1. balance = 10. DO i = 1 , 10 IF ( ABS(balance)>2 ) THEN ! Boundary layer conductance gh1 = LEAFBLC(ghforced,tdelt,Llength) ! Convective heat flux sh1 = LEAFH(tdelt,gh1) ! Latent heat of vaporization (J Kg-1) lathv = LHV(Tairk+tdelt) Lh = LEAFLE(Tairk+tdelt,humidairkgm3,lathv,gh1,stomres, & Transpiretype) lh1 = Lh - lhairt ! REVISE - Replace LeafIROut with LeafIR ! IRout = LeafIROut(TairK + Tdelt, Eps) Irout = LEAFIR(Tairk+tdelt,Eps) irout1 = Irout - iroutairt tdelt = e1/((sh1+lh1+irout1)/tdelt) balance = Q + Irin - Irout - sh1 - Lh ENDIF ENDDO IF ( tdelt>10 ) tdelt = 10 IF ( tdelt<-10 ) tdelt = -10 Tleaf = Tairk + tdelt gh = LEAFBLC(ghforced,Tleaf-Tairk,Llength) Sh = LEAFH(Tleaf-Tairk,gh) Lh = LEAFLE(Tleaf,humidairkgm3,lathv,gh,stomres,Transpiretype) ! REVISE - Replace LeafIROut with LeafIR ! IRout = LeafIROut(Tleaf, Eps) Irout = LEAFIR(Tleaf,Eps) RETURN END SUBROUTINE LEAFEB !ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo ! ! FUNCTION Calcbeta ! Calculates the solar zenith angle ! Code originally developed by Alex Guenther in 1990s ! Coded into FORTRAN by Xuemei Wang ! !ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo FUNCTION CALCBETA(Day,Lat,Hour) IMPLICIT NONE !*--CALCBETA575 REAL :: Day REAL :: Hour , Lat , sindelta , cosdelta , a , b , sinbeta , & CALCBETA REAL , PARAMETER :: PI = 3.14159 , RPI180 = 57.29578 !-------------------------------------------------------------------- !sindelta = -SIN(0.40907*COS(6.28*(Day+10)/(365))) sindelta = -SIN(0.40907)*COS(6.28*(Day+10)/(365)) cosdelta = (1-sindelta**2.)**0.5 a = SIN(Lat/RPI180)*sindelta b = COS(Lat/RPI180)*cosdelta sinbeta = a + b*COS(2*PI*(Hour-12)/24) CALCBETA = ASIN(sinbeta)*57.29578 END FUNCTION CALCBETA ! The following is the original code for eccentricity. !ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo ! ! FUNCTION CalcEccentricity ! !ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo FUNCTION CALCECCENTRICITY(Day) IMPLICIT NONE !*--CALCECCENTRICITY605 REAL :: Day REAL :: CALCECCENTRICITY !---------------------------------------------------------------- CALCECCENTRICITY = 1 + 0.033*COS(2*3.14*(Day-10)/365) END FUNCTION CALCECCENTRICITY !ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo ! ! FUNCTION WaterVapPres ! ! Convert water mixing ratio (kg/kg) to water vapor pressure ! (Pa or Kpa depending on units of input ) ! Mixing ratio (kg/kg), temp (C), pressure (KPa) ! !ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo FUNCTION WATERVAPPRES(Dens,Pres,Waterairratio) IMPLICIT NONE !*--WATERVAPPRES627 REAL :: Dens , Pres , WATERVAPPRES , Waterairratio !---------------------------------------------------------------- WATERVAPPRES = (Dens/(Dens+Waterairratio))*Pres END FUNCTION WATERVAPPRES !ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo ! ! FUNCTION Stability ! !ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo FUNCTION STABILITY(Canopychar,Cantype,Solar,Nrcha,Nrtyp) IMPLICIT NONE !*--STABILITY644 INTEGER :: Cantype , Nrcha , Nrtyp REAL :: Solar , trateboundary , STABILITY REAL , DIMENSION(Nrcha,Nrtyp) :: Canopychar !---------------------------------------------------------------- trateboundary = 500 IF ( Solar>trateboundary ) THEN ! Daytime temperature lapse rate STABILITY = Canopychar(12,Cantype) ELSEIF ( Solar>0 ) THEN STABILITY = Canopychar(12,Cantype) & - ((trateboundary-Solar)/trateboundary) & *(Canopychar(12,Cantype)-Canopychar(13,Cantype)) ELSE ! Nightime temperature lapse rate STABILITY = Canopychar(13,Cantype) ENDIF END FUNCTION STABILITY !ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo ! ! FUNCTION ConvertHumidityPa2kgm3 ! ! Saturation vapor density (kg/m3) ! !ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo FUNCTION CONVERTHUMIDITYPA2KGM3(Pa,Tk) IMPLICIT NONE !*--CONVERTHUMIDITYPA2KGM3677 REAL :: CONVERTHUMIDITYPA2KGM3 , Pa , Tk !-------------------------------------------------------------------- CONVERTHUMIDITYPA2KGM3 = 0.002165*Pa/Tk END FUNCTION CONVERTHUMIDITYPA2KGM3 !ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo ! ! FUNCTION ResSC ! ! Leaf stomatal cond. resistance s m-1 ! !ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo FUNCTION RESSC(Par) IMPLICIT NONE !*--RESSC696 REAL :: Par , scadj , RESSC !---------------------------------------------------------------- scadj = ((0.0027*1.066*Par)/((1+0.0027*0.0027*Par**2.)**0.5)) IF ( scadj<0.1 ) THEN RESSC = 2000.0 ELSE RESSC = 200.0/scadj ENDIF END FUNCTION RESSC !ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo ! ! FUNCTION LeafIR ! ! Calculate IR transfer between leaf and air ! Added by Alex Guenther and Ling Huang to replace previous ! MEGAN2.1 IR balance functions !ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo FUNCTION LEAFIR(Tk,Eps) IMPLICIT NONE !*--LEAFIR723 REAL :: Eps , Tk , LEAFIR ! Stefan-boltzman constant W m-2 K-4 REAL , PARAMETER :: SB = 0.0000000567 !---------------------------------------------------------------- LEAFIR = Eps*SB*(2*(Tk**4.)) END FUNCTION LEAFIR !ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo ! ! FUNCTION LHV ! ! Latent Heat of vaporization(J Kg-1) from Stull p641 ! !ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo FUNCTION LHV(Tk) IMPLICIT NONE !*--LHV745 REAL :: Tk , LHV !---------------------------------------------------------------- ! REVISE - Replace 273 with 273.15 ! LHV = 2501000 - (2370 * (Tk - 273)) LHV = 2501000 - (2370*(Tk-273.15)) END FUNCTION LHV !ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo ! ! FUNCTION LeafLE ! ! Latent energy term in Energy balance ! !ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo FUNCTION LEAFLE(Tleaf,Ambvap,Lathv,Gh,Stomres,Transpiretype) IMPLICIT NONE !*--LEAFLE766 REAL :: Tleaf , Ambvap , Lathv , Gh , Stomres , Transpiretype , & leafres , vapdeficit , LEAFLE , le !---------------------------------------------------------------- leafres = (1/(1.075*(Gh/1231))) + Stomres vapdeficit = (SVDTK(Tleaf)-Ambvap) ! Latent heat of vap (J Kg-1) * vap deficit(Kg m-3) / ! leaf resistence (s m-1) le = Transpiretype*(1/leafres)*Lathv*vapdeficit IF ( le<0 ) THEN LEAFLE = 0 ELSE LEAFLE = le ENDIF END FUNCTION LEAFLE !ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo ! ! FUNCTION LeafBLC ! ! Boundary layer conductance ! !ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo FUNCTION LEAFBLC(Ghforced,Tdelta,Llength) IMPLICIT NONE !*--LEAFBLC796 REAL :: Ghforced , Tdelta , Llength , ghfree , LEAFBLC !---------------------------------------------------------------- ! This is based on Leuning 1995 p.1198 except using molecular ! conductivity (.00253 W m-1 K-1 Stull p 640) instead of molecular ! diffusivity so that you end up with a heat convection coefficient ! (W m-2 K-1) instead of a conductance for free convection IF ( Tdelta>=0 ) THEN ghfree = 0.5*0.00253*((160000000*Tdelta/(Llength**3.))**0.25) & /Llength ELSE ghfree = 0 ENDIF LEAFBLC = Ghforced + ghfree END FUNCTION LEAFBLC !ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo ! ! FUNCTION LeafH ! ! Convective energy term in Energy balance (W m-2 heat flux ! from both sides of leaf) ! !ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo FUNCTION LEAFH(Tdelta,Gh) IMPLICIT NONE !*--LEAFH827 REAL :: Tdelta , Gh , LEAFH !---------------------------------------------------------------- ! 2 sides X conductance X Temperature gradient LEAFH = 2.0 * Gh * Tdelta END FUNCTION LEAFH !ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo ! ! FUNCTION SvdTk ! ! Saturation vapor density (kg/m3) ! !ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo FUNCTION SVDTK(Tk) IMPLICIT NONE !*--SVDTK847 REAL :: Tk , svp , SVDTK !---------------------------------------------------------------- ! Saturation vapor pressure (millibars) svp = 10**((-2937.4/Tk)-(4.9283*LOG10(Tk))+23.5518) SVDTK = 0.2165*svp/Tk END FUNCTION SVDTK ! These subroutines were in file megvea.f !---------------------------------------------------------------- ! ! SUBROUTINE GAMMA_CD ! Emission response to canopy depath !---------------------------------------------------------------- SUBROUTINE GAMMA_CD(NCOLS,NROWS,Layers,LAI,CDEA) IMPLICIT NONE ! input INTEGER,INTENT(IN) :: NCOLS,NROWS,Layers REAL,DIMENSION(NCOLS,NROWS),INTENT(IN) :: LAI ! output REAL,DIMENSION(NCOLS,NROWS,Layers),INTENT(OUT) :: CDEA ! local REAL,DIMENSION(Layers) :: Cdepth REAL :: LAIdepth INTEGER :: I,J,K IF ( Layers .EQ. 5 ) THEN Cdepth (1) = 0.0469101 Cdepth (2) = 0.2307534 Cdepth (3) = 0.5 Cdepth (4) = 0.7692465 Cdepth (5) = 0.9530899 ELSE DO K = 1,Layers Cdepth(K) =(K - 0.5) /Layers END DO ENDIF DO K = 1, Layers DO J = 1, NROWS DO I = 1, NCOLS LAIdepth = MIN( LAI(I,J) * Cdepth(K), 3.0 ) CDEA(I,J,K) = CCD1 * LAIdepth + CCD2 END DO END DO END DO RETURN END SUBROUTINE GAMMA_CD !---------------------------------------------------------------- !---------------------------------------------------------------- ! ! FUNCTION GAMTLD ! EA Temperature response (light dependent emission) !---------------------------------------------------------------- FUNCTION GAMTLD(T1,T24,S) IMPLICIT NONE REAL,PARAMETER :: Ct2 = 230 INTEGER :: S REAL :: T1,T24,T240,Topt, X, Eopt, GAMTLD T240 = T24 IF (T1 < 260.0) THEN GAMTLD = 0.0 ELSE ! Temperature at which maximum emission occurs Topt = 312.5 + 0.6 * (T240 - 297.0) X = ((1.0 / Topt) - (1.0 / T1)) / 0.00831 ! Maximum emission (relative to emission at 30 C) Eopt = Cleo(S) * EXP(0.05 * (T24 - 297.0)) * & Exp(0.05*(T240-297.0)) GAMTLD= Eopt * Ct2 * Exp(Ct1(S) * X) / & (Ct2 - Ct1(S) * (1.0 - EXP(Ct2 * X))) ENDIF END FUNCTION GAMTLD !---------------------------------------------------------------- !---------------------------------------------------------------- ! ! FUNCTION GAMTLI ! EA Temperature response (light independent emission) !---------------------------------------------------------------- FUNCTION GAMTLI(temp,S) IMPLICIT NONE REAL :: temp, GAMTLI REAL,PARAMETER :: Ts = 303.15 INTEGER :: S GAMTLI = exp( beta(S)*(temp-Ts) ) END FUNCTION GAMTLI !---------------------------------------------------------------- !---------------------------------------------------------------- ! ! FUNCTION GAMP ! EA Light response !---------------------------------------------------------------- FUNCTION GAMP(PPFD1,PPFD24) IMPLICIT NONE REAL :: PPFD1, PPFD24, Alpha, C1, GAMP IF (PPFD24 < 0.01) THEN GAMP= 0.0 ELSE Alpha = 0.004 ! C1 = 0.0468 * EXP(0.0005 * (PPFD24 - PSTD)) ! & * (PPFD24 ** 0.6) C1 = 1.03 ! GAMP= (Alpha * C1 * PPFD1) / ((1 + Alpha**2. * PPFD1**2.)**0.5) ! use SQRT her for clarity and efficiency GAMP= (Alpha * C1 * PPFD1) / SQRT(1.0 + Alpha**2 * PPFD1**2) ENDIF END FUNCTION GAMP !---------------------------------------------------------------- ! ! SUBROUTINE GAMMA_HT ! EA response to high temperature ! !---------------------------------------------------------------- SUBROUTINE GAMMA_HT(NCOLS, NROWS, S, MaxT, GAMHT) IMPLICIT NONE ! input INTEGER,INTENT(IN) :: NCOLS, NROWS, S REAL,DIMENSION(NCOLS,NROWS),INTENT(IN) :: MaxT ! output REAL,DIMENSION(NCOLS,NROWS),INTENT(OUT) :: GAMHT ! local INTEGER :: I,J REAL :: THTK, t1 DO J = 1,NROWS DO I = 1,NCOLS THTK = 273.15 + THT(S) t1 = THTK + DTHT(S) IF (MaxT(I,J) <= THTK) THEN GAMHT(I,J) = 1.0 ELSE IF ( MaxT(I,J) < t1) THEN GAMHT(I,J) = 1.0 + (CHT(S) - 1.0)* (MaxT(I,J) - THTK)/DTHT(S) ELSE GAMHT(I,J) = CHT(S) ENDIF END DO END DO RETURN END SUBROUTINE GAMMA_HT !---------------------------------------------------------------- !---------------------------------------------------------------- ! ! SUBROUTINE GAMMA_LT ! EA response to low temperature ! !---------------------------------------------------------------- SUBROUTINE GAMMA_LT(NCOLS, NROWS, S, MinT, GAMLT) IMPLICIT NONE ! input INTEGER,INTENT(IN) :: NCOLS, NROWS, S REAL,DIMENSION(NCOLS,NROWS),INTENT(IN) :: MinT ! output REAL,DIMENSION(NCOLS,NROWS),INTENT(OUT) :: GAMLT ! local INTEGER :: I,J REAL :: TLTK, t1 DO J = 1,NROWS DO I = 1,NCOLS TLTK = 273.15 + TLT(S) t1 = TLTK - DTLT(S) IF (MinT(I,J) >= TLTK) THEN GAMLT(I,J) = 1.0 ELSE IF ( MinT(I,J) > t1) THEN GAMLT(I,J) = 1.0 + (CLT(S) - 1.0)* (TLTK - MinT(I,J))/DTLT(S) ELSE GAMLT(I,J) = CLT(S) ENDIF END DO END DO RETURN END SUBROUTINE GAMMA_LT !---------------------------------------------------------------- !---------------------------------------------------------------- ! ! SUBROUTINE GAMMA_HW ! EA response to high wind speed ! !---------------------------------------------------------------- SUBROUTINE GAMMA_HW(NCOLS, NROWS, S, MaxWS, GAMHW) IMPLICIT NONE ! input INTEGER,INTENT(IN) :: NCOLS, NROWS, S REAL,DIMENSION(NCOLS,NROWS),INTENT(IN) :: MaxWS ! output REAL,DIMENSION(NCOLS,NROWS),INTENT(OUT) :: GAMHW ! local INTEGER :: I,J REAL :: t1 DO J = 1,NROWS DO I = 1,NCOLS t1 = THW(S) + DTHW(S) IF (MaxWS(I,J) <= THW(S)) THEN GAMHW(I,J) = 1.0 ELSE IF ( MaxWS(I,J) < t1) THEN GAMHW(I,J) = 1.0 + (CHW(S) - 1.0)* (MaxWs(I,J) - THW(S))/ DTHW(S) ELSE GAMHW(I,J) = CHW(S) ENDIF END DO END DO RETURN END SUBROUTINE GAMMA_HW !---------------------------------------------------------------- !---------------------------------------------------------------- ! ! SUBROUTINE GAMMA_AQ ! EA response to air quality ! !---------------------------------------------------------------- SUBROUTINE GAMMA_AQ(NCOLS, NROWS, S, AQI, GAMAQ) IMPLICIT NONE ! input INTEGER, INTENT(IN) :: NCOLS, NROWS, S REAL, DIMENSION(NCOLS,NROWS),INTENT(IN) :: AQI ! output REAL, DIMENSION(NCOLS,NROWS),INTENT(OUT) :: GAMAQ ! local INTEGER :: I,J REAL :: t1 DO J = 1, NROWS DO I = 1, NCOLS t1 = TAQ(S) + DTAQ(S) IF (AQI(I,J) <= TAQ(S)) THEN GAMAQ(I,J) = 1.0 ELSE IF ( AQI(I,J) < t1) THEN GAMAQ(I,J) = 1.0 + (CAQ(S) - 1.0)* (AQI(I,J) - TAQ(S))/DTAQ(S) ELSE GAMAQ(I,J) = CAQ(S) ENDIF END DO END DO RETURN END SUBROUTINE GAMMA_AQ !----------------------------------------------------------------------- !----------------------------------------------------------------------- ! ! Subroutine GAMMA_CO2 !----------------------------------------------------------------------- !From Alex Guenther 2017-03-11 SUBROUTINE GAMMA_CO2( NCOLS, NROWS, GAMCO2 ) IMPLICIT NONE INTEGER, INTENT(IN) :: NCOLS, NROWS REAL,DIMENSION(NCOLS,NROWS),INTENT(OUT) :: GAMCO2 ! local REAL :: Ci, CO2temp, cxxx, cyyy INTEGER :: C, R CO2temp = CO2 Ci = 0.7 * CO2 IF ( CO2 .EQ. 400.0 ) THEN GAMCO2 = 1.0 ELSE DO R = 1, NROWS DO C = 1, NCOLS ! set common factors for pipeline cxxx = Ci**CO2h cyyy = Cstar**CO2h ! GAMCO2 = ISmax- ((ISmax * Ci**CO2h ) / (Cstar**CO2h + Ci **CO2h)) GAMCO2(C,R) = ISmax- ((ISmax * cxxx) / (cyyy + cxxx)) END DO END DO END IF RETURN END SUBROUTINE GAMMA_CO2 !----------------------------------------------------------------------- !----------------------------------------------------------------------- ! ! Subroutine GAMMA_LAIbidir(gam_LAIbidir,LAI) !----------------------------------------------------------------------- !From Alex Guenther 2010-01-26 !If lai < 2 Then !gammaLAIbidir= 0.5 * lai !ElseIf lai <= 6 Then !gammaLAIbidir= 1 - 0.0625 * (lai - 2) !Else !gammaLAIbidir= 0.75 !End If ! ! SUBROUTINE GAMMA_LAIbidir returns the gam_LAIbidir values ! Xuemei Wang-2010-01-28 ! !----------------------------------------------------------------------- SUBROUTINE GAMMA_LAIbidir(NCOLS, NROWS,LAI,GAMBD) IMPLICIT NONE ! input INTEGER,INTENT(IN) :: NCOLS, NROWS REAL,DIMENSION(NCOLS, NROWS),INTENT(IN) :: LAI ! output REAL,DIMENSION(NCOLS, NROWS),INTENT(OUT) :: GAMBD ! local INTEGER :: I,J DO J = 1, NROWS DO I = 1, NCOLS IF(LAI(I,J) < 2) THEN GAMBD(I,J) = 0.5 * LAI(I,J) ELSEIF (LAI(I,J) .LE. 6 ) THEN GAMBD(I,J) = 1 - 0.0625 * (LAI(I,J) - 2) ELSE GAMBD(I,J) = 0.75 ENDIF END DO END DO RETURN END SUBROUTINE GAMMA_LAIbidir !---------------------------------------------------------------- !---------------------------------------------------------------- ! ! SUBROUTINE GAMLA ! ! EA leaf age response !---------------------------------------------------------------- ! ! GAMLA = Fnew*Anew + Fgro*Agro + Fmat*Amat + Fold*Aold ! where Fnew = new foliage fraction ! Fgro = growing foliage fraction ! Fmat = mature foliage fraction ! Fold = old foliage fraction ! Anew = emission activity for new foliage ! Agro = emission activity for growing foliage ! Amat = emission activity for mature foliage ! Aold = emission activity for old foliage ! Age class fractions are determined from LAI changes ! LAIc = current LAI ! LAIp = past LAI ! t = length of the time step (days) ! ti = days between budbreak and emission induction ! tm = days between budbreak and peak emission ! Tt = average above canopy temperature (K) ! !---------------------------------------------------------------- SUBROUTINE GAMMA_A( NCOLS, NROWS, S, & LAIp, LAIc, D_TEMP, GAMLA ) USE RUNTIME_VARS, ONLY: USE_MEGAN_LAI IMPLICIT NONE ! input INTEGER,INTENT(IN) :: NCOLS,NROWS, S REAL,DIMENSION(NCOLS,NROWS),INTENT(IN) :: D_TEMP, LAIp, LAIc ! output REAL,DIMENSION(NCOLS,NROWS),INTENT(OUT) :: GAMLA INTEGER :: C, R REAL :: Fnew, Fgro, Fmat, Fold REAL :: ti,tm REAL :: Tt REAL :: TSTLEN !Time step of LAI data if (USE_MEGAN_LAI) THEN TSTLEN = 8.0 ! 8 daily from MEGAN file else TSTLEN = 1.0 ! 1 Daily from soilout/metcro end if !--------------------------------------------------- ! local parameter arrays DO R = 1, NROWS DO C = 1, NCOLS Tt = D_TEMP(C,R) !... Calculate foliage fraction IF (LAIp(C,R) .LT. LAIc(C,R)) THEN ! Calculate ti and tm IF (Tt .LE. 303.0) THEN ti = 5.0 + 0.7*(300-Tt) ELSE ti = 2.9 END IF tm = 2.3*ti ! Calculate Fnew and Fmat, then Fgro and Fold ! Fnew IF (ti .GE. TSTLEN) THEN Fnew = 1.0 - (LAIp(C,R)/LAIc(C,R)) ELSE Fnew = (ti/TSTLEN) * ( 1-(LAIp(C,R)/LAIc(C,R)) ) END IF ! Fmat IF (tm .GE. TSTLEN) THEN Fmat = LAIp(C,R)/LAIc(C,R) ELSE Fmat = (LAIp(C,R)/LAIc(C,R)) + & ( (TSTLEN-tm)/TSTLEN ) * ( 1-(LAIp(C,R)/LAIc(C,R)) ) END IF Fgro = 1.0 - Fnew - Fmat Fold = 0.0 ELSE IF (LAIp(C,R) .EQ. LAIc(C,R)) THEN Fnew = 0.0 Fgro = 0.1 Fmat = 0.8 Fold = 0.1 ELSE IF (LAIp(C,R) .GT. LAIc(C,R)) THEN Fnew = 0.0 Fgro = 0.0 Fold = ( LAIp(C,R)-LAIc(C,R) ) / LAIp(C,R) Fmat = 1-Fold END IF !... Calculate GAMLA GAMLA(C,R) = Fnew*Anew(S) + Fgro*Agro(S) + Fmat*Amat(S) + Fold*Aold(S) END DO END DO RETURN END SUBROUTINE GAMMA_A ! subroutines used by MEGSEA !======================================================================= !======================================================================= REAL FUNCTION FERTLZ_ADJ( DATE, LAT ) !*********************************************************************** ! DESCRIPTION: ! This internal function computes a fertilizer adjustment factor ! for the given date in yyyyddd format. If it is not growing ! season, the adjustment factor is 0; otherwise, it ranges from ! 0.0 to 1.0. ! ! CALL: ! GROWSEASON ! ! HISTORY: ! 07/21/11 : Imported from SMOKE-BEIS v3.14 and modified (Tan) !*********************************************************************** IMPLICIT NONE !.... Function arguments INTEGER, INTENT(IN) :: DATE REAL, INTENT(IN) :: LAT !.... Local variables INTEGER GDAY, GLEN CHARACTER(256) MESG ! message buffer !----------------------------------------------------------------------------- CALL GROWSEASON( DATE, LAT, GDAY, GLEN ) FERTLZ_ADJ = 0. !INITIALIZE IF( GDAY == 0 ) THEN FERTLZ_ADJ = 0. ELSE IF( GDAY >= 1 .AND. GDAY < 30 ) THEN ! first month of growing season FERTLZ_ADJ = 1. ELSE IF( GDAY >= 30 .AND. GDAY <= 366) THEN ! later month of growing season FERTLZ_ADJ = 1. + 30. / FLOAT(GLEN) - FLOAT(GDAY) / FLOAT(GLEN) ENDIF !****************** FORMAT STATEMENTS ****************************** 94010 FORMAT( A, F10.2, 1X, A, I3, ',', I3 ) RETURN END FUNCTION FERTLZ_ADJ !======================================================================= !======================================================================= !======================================================================= !======================================================================= REAL FUNCTION VEG_ADJ( LAI ) !*********************************************************************** ! DESCRIPTION ! This internal function computes a vegetation adjustment factor ! based on LAIv. See Yienger and Levy 1995 ! VEG_ADJ = (EXP(-0.24*LAIv)+EXP(-0.0525*LAIv))*0.5 ! ! CALL ! NONE ! ! HISTORY: !*********************************************************************** IMPLICIT NONE !... Function arguments REAL, INTENT(IN) :: LAI !----------------------------------------------------------------------------- VEG_ADJ = 0.0 VEG_ADJ = (EXP(-0.24*LAI)+EXP(-0.0525*LAI))*0.5 !****************** FORMAT STATEMENTS ****************************** RETURN END FUNCTION VEG_ADJ !======================================================================= !======================================================================= !======================================================================= !======================================================================= !======================================================================= !======================================================================= SUBROUTINE GROWSEASON ( DATE, LAT, GDAY, GLEN ) !*********************************************************************** ! DESCRIPTION ! This internal function computes the day of the growing season ! corresponding to the given date in yyyyddd format. ! ! CALL ! G2J ! ! HISTORY: ! 07/21/11 : Imported from SMOKE-BEIS v3.14 and modified (Tan) ! Variation of growing season depends on latitude ! (Guenther) ! 04/22/2019 Converted to 90 format and redid error repotring ! modified G2j to be completely internal. ! DR. FRANCIS S. BINKOWSKI, IE, UNC-CHAPEL HILL !*********************************************************************** IMPLICIT NONE !....... Function arguments INTEGER, INTENT(IN) :: DATE REAL, INTENT(IN) :: LAT INTEGER, INTENT(OUT) :: GDAY, GLEN !....... External functions !....... Local parameters INTEGER :: GSEASON_START INTEGER :: GSEASON_END !....... Local variables INTEGER YEAR, MONTH, DAY INTEGER JDAY INTEGER GSJULIAN_START INTEGER GSJULIAN_END !----------------------------------------------------------------------------- ! NOTE: The use of "julian Day" to describe the day of tHE year is ! technically incorrect. ! The Julian Day Number (JDN) is the integer assigned to a whole solar ! day in the Julian day count starting from noon Universal time, with ! Julian day number 0 assigned to the day starting at noon on Monday, ! January 1, 4713 BCE, proleptic Julian calendar (November 24, 4714 BCE, ! in the proleptic Gregorian calendar), a date at which three ! multi-year cycles started (which are: Indiction, Solar, and Lunar cycles) ! and which preceded any dates in recorded history. ! ! For example for January 1st, 2000 CE at 00:00:00.0 UT1 the Julian Day ! is 2451544.500000 according to the U.S. Naval Observatory. YEAR = INT( FLOAT( DATE ) / 1000. ) JDAY = DATE - YEAR * 1000 IF ( LAT .LE. 23.0 .AND. LAT .GE. -23.0 ) THEN ! tropical regions, year round GSEASON_START = 0101 GSEASON_END = 1231 GSJULIAN_START = G2J(YEAR, GSEASON_START) GSJULIAN_END = G2J(YEAR, GSEASON_END) GDAY = JDAY - GSJULIAN_START + 1 GLEN = GSJULIAN_END - GSJULIAN_START + 1 ELSE IF ( LAT .LT. -23.0 ) THEN ! southern hemisphere IF ( LAT .LT. -60.0 ) THEN ! antarctic start = 0 end = 0, no growing GDAY = 0 GLEN = 0 ELSE ! southern hemisphere temperate, NOV, DEC, JAN-MAY IF (JDAY .GE. 1101 .AND. JDAY .LE. 1231 ) THEN GSEASON_START = 1101 GSEASON_END = 1231 GSJULIAN_START = G2J(YEAR, GSEASON_START) GSJULIAN_END = G2J(YEAR, GSEASON_END) GDAY = JDAY - GSJULIAN_START + 1 ELSE IF (JDAY .GE. 0101 .AND. JDAY .LE. 0531) THEN GSEASON_START = 0101 GSEASON_END = 0531 GSJULIAN_START = G2J(YEAR, GSEASON_START) GSJULIAN_END = G2J(YEAR, GSEASON_END) GDAY = JDAY - GSJULIAN_START + 1 + 61 ELSE GDAY = 0 ENDIF GLEN = 30 + 31 + G2J(YEAR,0531) - G2J(YEAR,0101) + 1 ENDIF ELSE IF ( LAT .GT. 23.0 ) THEN ! northern hemisphere IF ( LAT .GT. 65.0 ) THEN ! arctic start = 0 end = 0, no growing season GDAY = 0 GLEN = 0 ELSE ! northern hemisphere temperate ! start= (lat-23)*4.5 189 ! end = 365 -((lat-23)*3.3) 226 GSEASON_START = 0 GSEASON_END = 1231 GSJULIAN_START = 0 GSJULIAN_END = G2J(YEAR, GSEASON_END) GSJULIAN_START = INT( (LAT-23.0) * 4.5 ) GSJULIAN_END = GSJULIAN_END - INT( (LAT-23.0) * 3.3 ) ! UNC added to avoid GDAY excede 366 IF ( JDAY == 366 .AND. GSJULIAN_START==0 ) GSJULIAN_END = GSJULIAN_END - 1 IF (JDAY .GE. GSJULIAN_START .AND. JDAY .LE. GSJULIAN_END) THEN GDAY = JDAY - GSJULIAN_START + 1 ELSE GDAY = 0 ENDIF GLEN = GSJULIAN_END - GSJULIAN_START + 1 ENDIF ENDIF RETURN END SUBROUTINE GROWSEASON !======================================================================= !======================================================================= ! This is a modified version of function G2J. INTEGER FUNCTION G2J( YYYY, MMDD ) IMPLICIT NONE !....... Function arguments INTEGER, INTENT(IN) :: YYYY INTEGER, INTENT(IN) :: MMDD !....... Local parameters INTEGER :: MM INTEGER :: DD INTEGER :: K INTEGER :: DOY LOGICAL :: LEAP MM = INT( FLOAT( MMDD ) / 100.0 ) DD = MMDD - MM * 100 ! use internal code to get G2j ! G2J = JULIAN( YYYY, MM , DD ) ! The following code is taken from NASA subroutine get_DOY ! Original Programmer: David G. Simpson ! NASA Goddard Space Flight Center ! Greenbelt, Maryland 2077 Date: November 20, 2001 ! Modified April 13, 2019 by Dr Francis S. Binkowski to do only Gregorian years LEAP = .FALSE. ! TEST FOR LEAP YEARS IF ( MOD(YYYY,4) .EQ. 0) LEAP = .TRUE. IF ( MOD(YYYY,100) .EQ. 0) LEAP = .FALSE. IF (MOD(YYYY,400) .EQ. 0) LEAP = .TRUE. IF (LEAP) THEN K = 1 ELSE K = 2 END IF ! CALCULATE DAY OF THE YEAR DOY = ( ( 275 * MM) / 9 ) - K * ( ( MM + 9) / 12 ) + DD - 30 G2J = DOY END FUNCTION G2J !======================================================================= SUBROUTINE SOILNOX( JDATE, JTIME, NX, NY, & TA, LSOIL, ISLTYP, SOILM, SOILT, & LAIc, LAT, & PRECADJ, & CFNO, CFNOG ) !*********************************************************************** ! DESCRIPTION: ! ! Uses new NO algorithm NO = Normalized*Tadj*Padj*Fadj*Cadj ! to estimate NO emissions ! Information needed to estimate NO emissions ! Julian Day (integer) JDATE ! Surface Temperature (MCIP field) TA (K) ! Soil Moisture (MCIP field) SOILM (M**3/M**3) (LSOIL) ! (ratio of volume of water per volume of soil) ! Soil Temperature (MCIP field) SOILT (K) (LSOIL) ! Soil Type (MCIP field) ISLTYP (LSOIL) ! ! saturation values for soil types (constants) (LSOIL) ! FOR PX Version, the Temperature adjustment factor accounts for wet and dry soils ! and the precipitation adjustment factor accounts for saturated soils ! FOR the non-PX version, the basic algorithm remains with a temperature adjustment factor (dry soil) ! and no adjustment for saturated soils ! ! ! The following arrays are updated after each call to SOILNOX ! PULTYPE type of NO emission pulse ! PULSEDATE julian date for the beginning of an NO pulse ! PULSETIME time for the beginning of an NO pulse ! ! The calculation are based on the following paper by J.J. Yienger and H. Levy II ! J.J. Yienger and H. Levy II, Journal of Geophysical Research, vol 100,11447-11464,1995 ! ! The Temperature Adjustment Factor is based on section 4.2 for wet and dry soils with ! the following modification (PX version): ! Instead of classifying soils as either 'wet' or 'dry', the wet and dry adjustment is ! calculated at each grid cell. A linear interpolation between the wet and dry adjustment ! factor is made using the relative amount of soil moisture in the top layer (1cm) ! as the interpolating factor. The relative amount of soil moisture is determined by ! taking the MCIP soil moisture field and dividing by the saturation value defined for each ! soil type in the PX version of MCIP ! the soil temperature is used in PX version ! ! The Precipation Adjustment factor is based on section 4.1 with the following modifications. ! The rainrate is computed from the MCIP directly using a 24 hr daily total. ! THe types of Pulses as described in YL95 were used to estimate the NO emission ! rate. ! ! Also see the following paper for more information: ! Proceedings of the Air and Waste Management Association/U.S. Environmental Protection ! Agency EMission Inventory Conference, Raleigh October 26-28, 1999 Raleigh NC ! by Tom Pierce and Lucille Bender ! ! REFERENCES ! ! JACQUEMIN B. AND NOILHAN J. (1990), BOUND.-LAYER METEOROL., 52, 93-134. ! J.J. Yienger and H. Levy II, Journal of Geophysical Research, vol 100,11447-11464,1995 ! T. Pierce and L. Bender, Examining the Temporal Variability of Ammonia and Nitric Oxide Emissions from Agricultural Processes ! Proceedings of the Air and Waste Management Association/U.S. Environmental Protection ! Agency EMission Inventory Conference, Raleigh October 26-28, 1999 Raleigh NC ! ! PRECONDITIONS REQUIRED: ! Normalized NO emissions, Surface Temperature, Soil Moisture, Soil type, ! NO emission pulse type, soil moisture from previous time step, julian date ! of NO emission pulse start, time of NO emission pulse start, ! soil type, SOIL TYPES, Land use data ! ! SUBROUTINES AND FUNCTIONS CALLED (directly or indirectly): ! FERTILIZER_ADJ computes fertlizer adjustment factor ! VEG_ADJ computes vegatation adjustment factor ! GROWSEASON computes day of growing season ! ! REVISION HISTORY: ! 10/01 : Prototype by GAP ! 10/03 : modified transition to non growing season for jul-oct of the year ! 08/04 : Converted to SMOKE code style by C. Seppanen ! 07/21/11 : Imported form SMOKE-BEIS v3.14 for MEGAN v2.10 ! MAY 13, 2019 made inot f90 format and improved efficiency - ! !*********************************************************************** ! USE SOILNOX_FX IMPLICIT NONE !......... ARGUMENTS and their descriptions INTEGER, INTENT (IN) :: JDATE ! current simulation date (YYYYDDD) INTEGER, INTENT (IN) :: JTIME ! current simulation time (HHMMSS) INTEGER, INTENT (IN) :: NX ! no. columns INTEGER, INTENT (IN) :: NY ! no. rows REAL, INTENT (IN) :: TA ( NX, NY ) ! air temperature (K) REAL, INTENT (IN) :: SOILM ( NX, NY ) ! soil moisture (m3/m3) REAL, INTENT (IN) :: SOILT ( NX, NY ) ! soil temperature (K) REAL, INTENT (IN) :: PRECADJ ( NX, NY ) ! precip adjustment REAL, INTENT (IN) :: LAIc ( NX, NY ) ! soil temperature (K) REAL, INTENT (IN) :: LAT ( NX, NY ) ! Latitude REAL, INTENT (IN OUT) :: CFNO ( NX, NY ) ! NO correction factor REAL, INTENT (IN OUT) :: CFNOG ( NX, NY ) ! NO correction factor for grass INTEGER, INTENT (IN) :: ISLTYP ( NX, NY ) ! soil type LOGICAL, INTENT (IN) :: LSOIL ! true: using PX version of MCIP !......... Local ARRAYS ! Saturation values for 11 soil types from pxpbl.F (MCIP PX version) ! PLEIM-XIU LAND-SURFACE AND PBL MODEL (PX-LSM) ! See JACQUEMIN B. AND NOILHAN J. (1990), BOUND.-LAYER METEOROL., 52, 93-134. INTEGER, PARAMETER :: MAXSTYPES = 16 ! REAL, PARAMETER :: SATURATION( MAXSTYPES ) = (/ & ! 0.395, 0.410, 0.435, 0.485, & ! 0.451, 0.420, 0.477, 0.476, & ! 0.426, 0.482, 0.482 /) !......... SCRATCH LOCAL VARIABLES and their descriptions: INTEGER :: R, C, L ! counters INTEGER :: SOILCAT ! soil category REAL :: CF ! NO correction factor REAL :: CFG ! NO correction factor for grasslands REAL :: TAIR ! surface temperature REAL :: TSOI ! soil temperature REAL :: CFNOWET, CFNODRY, RATIO, FAC1, FAC2 REAL, PARAMETER :: const1 = (1. / 3.0 ) * (1.0 / 30.0) REAL, PARAMETER :: const2 =EXP(-0.103 * 30.0) CHARACTER(256) MESG ! message buffer CHARACTER(16) :: PROGNAME = 'SOILNOX' ! program name !*********************************************************************** !..... Loop through cells DO R = 1, NY DO C = 1, NX TAIR = TA( C, R ) ! unit in degree K !....... Check max bounds for temperature IF (TAIR > 315.0 ) THEN TAIR = 315.0 END IF !....... CFNOG IF( TAIR > 303.00 ) TAIR = 303.00 IF ( TAIR > 268.8690 ) THEN CFG = EXP( 0.04686 * TAIR - 14.30579 ) ! grass (from BEIS2) ELSE CFG = 0.0 END IF CFNOG(C,R) = CFG ! pre calculate common factors FAC2 = const2 !....... CFNO IF( .NOT. LSOIL ) THEN ! no soil TSOI = 0.72 * TAIR + 82.28 IF (TSOI <= 273.16) TSOI = 273.16 IF (TSOI >= 303.16) TSOI = 303.16 FAC1 = (TSOI- 273.16) ! CFNODRY = (1./3.) * (1./30.) * (TSOI-273.16) ! see YL 1995 Equa 9a p. 11452 CFNODRY = const1 * FAC1 ! see YL 1995 Equa 9a p. 11452 IF (TSOI <= 283.16) THEN ! linear cold case ! CFNOWET = (TSOI-273.16)*EXP(-0.103*30.0)*0.28 ! see YL 1995 Equ 7b CFNOWET = FAC1 * FAC2 * 0.28 ! see YL 1995 Equ 7b ELSE ! exponential case ! CFNOWET = EXP(0.103 * (TSOI-273.16)) * EXP(-0.103 * 30.0) CFNOWET = EXP(0.103 * FAC1) * FAC2 END IF CF = 0.5 * CFNOWET + 0.5 * CFNODRY ELSE ! soil TSOI = SOILT( C,R ) IF (TSOI <= 273.16) TSOI = 273.16 IF (TSOI >= 303.16) TSOI = 303.16 FAC1 = (TSOI- 273.16) ! CFNODRY = (1./3.)*(1./30.)*(TSOI-273.16) ! see YL 1995 Equa 9a p. 11452 CFNODRY = const1 * FAC1 ! see YL 1995 Equa 9a p. 11452 IF (TSOI <= 283.16) THEN ! linear cold case ! CFNOWET = (TSOI-273.16)*EXP(-0.103*30.0)*0.28 ! see YL 1995 Equ 7b CFNOWET = FAC1 * FAC2 * 0.28 ! see YL 1995 Equ 7b ELSE ! exponential case ! CFNOWET = EXP(0.103 * (TSOI-273.16)) * EXP(-0.103 * 30.0) CFNOWET = EXP(0.103 * FAC1 ) * FAC2 END IF SOILCAT = INT( ISLTYP( C,R ) ) IF( SOILCAT > 0 .AND. SOILCAT <= MAXSTYPES ) THEN IF(Grid_Data%WSAT(C,R) .eq. 0) THEN ! first ldesid diag call. Do nothing. CF = 0. ELSE RATIO = SOILM( C,R ) / Grid_Data%WSAT( C,R ) CF = RATIO*CFNOWET + (1.0 - RATIO ) * CFNODRY END IF ELSE CF = 0.0 END IF END IF ! Endif LSOIL ! CFNO(C,R) = CF * & ! FERTLZ_ADJ( JDATE, LAT(C,R) ) * & ! VEG_ADJ( LAIc(C,R) ) * PRECADJ(C,R) CFNO(C,R) = CF * & FERTLZ_ADJ( JDATE, LAT(C,R) ) * & VEG_ADJ( LAIc(C,R) ) * PRECADJ(C,R) if(cfno(c,r) .lt. 0) then cfno(c,r) = 0 end if END DO ! loop over columns END DO ! loop over rows RETURN END SUBROUTINE SOILNOX ! /////////////////////////////////////////////////////////////////////////// SUBROUTINE MEGCANOPY( YEAR, LAYERS, DOY, ZTIME, & LAT, LONG, LAIc, TEMP, PAR, WIND, PRES, QV, CTF, & ShadeleafTK, SunleafTK, SunFrac, SunPPFD, ShadePPFD ) ! ! ---------------------------------------------------------------------------- ! START subroutine MEGCANOPY ! Coded March 19, 2019 by Dr. Francis S. Binkowski ! modifies 05/07/2019 by to correct loop order ! Institue for the Environment UNC, Chapel Hill ! Based upon PROGRAM MEGCAN ! Based on code initiated by Alex Guenther in 1990s ! Coded in FORTRAN by Xuemei Wang--Nov. 2007 ! Revised by Alex Guenther and Ling Huang in Feb 2017 ! to correct, modify, and update the code and make it ! a stand-alone program ! !***************************************************************** ! !***************************************************************** ! Input varibles ! ! NROWs, NCOLS grid location ! LAYERS number of vertical layers in canopy ! DOY day of the year ! Lat Latitude ! Long Longitude ! ZTIME Hour of the day (UTC/GMT) ! TEMP Temperature [K] ! PAR Photosynthetically active radiation [ W/m**2] ! Wind Wind speed [m s-1] ! Humidity Relative humidity [%] ! Cantype Defines set of canopy characteristics ! LAI Leaf area index [m2 per m2 ground area] ! Pres Pressure [Pa] ! !***************************************************************** ! Variables used ! PPFD Incoming photosynthetic active radiation [umol/m2/s1] ! PPFDfrac Fraction of solar radiation that is PPFD ! Solar Solar radiation [W/m2] ! Maxsolar Maximum of solar radiation ! Sinbeta Sine of solar angle above horizon ! Beta Solar angle above horizon ! TairK0 Above canopy air temperature [K] ! TairK Array of canopy air temperature [K] ! Ws0 Above canopy wind speed [m/s] ! Ws Array of canopy wind speed [m/s] ! HumidairPA0 Above canopy ambient humidity [Pa] ! HumidairPa Array of canopy ambient humidity in [Pa] ! Transmis Transmission of PPFD that is diffuse ! Difffrac Fraction of PPFD that is diffuse ! PPFDfrac Fraction of solar rad that is PPFD ! Trate temperature vertical profile ! QbAbsV, QbAbsN Absorbed direct beam visible/near IR ! QdAbsV, QdAbsN Absorbed diffuse visible/near IR ! QsAbsV, QsAbsN Absorbed scattered visible//near IR ! QBeamV, QBeamN Above canopy direct beam visible/near IR ! QDiffV, QDiffN Above canopy diffuse visible/near IR ! ! Arrays with values for each canopy layer (vertical profile) ! SunleafSH sensible heat flux for sun leaves [W/m2] ! SunleafLH latent heat flux for sun leaves [W/m2] ! SunleafIR infrared flux for sun leaves [W/m2] ! ShadeleafSH sensible heat for shade leaves [W/m2] ! ShadeleafLH latent heat flux for shade leaves [W/m2] ! ShadeleafIR infrared flux for shade leaves [W/m2] ! VPgausDis gaussian weighting factors for distance ! SunQv visible radiation on sun leaves ! ShadeQv visible radiation on shade leaves ! SunQn near IR radiation on sun leaves ! ShadeQn near IR radiation on shade leaves ! sun_ppfd Array of incoming (NOT absorbed) PPFD on a sun leaf [umol/m2/s] ! shade_ppfd Array of incoming (NOT absorbed) PPFD on a shade leaf [umol/m2/s] ! sun_tk Array of leaf temperature for sun leaves [K] ! shade_tk Array of leaf temperature for shade leaves [K] ! sun_frac Array of the fraction of sun leaves. i = 1 is the top canopy layer, 2 is the next layer, etc. !***************************************************************** ! OUTPUT ! For each time step and location ! Each variable is an array with a value for each canopy layer ! (vertical profile) ! i = 1 is the top canopy layer, 2 is the next layer down , etc. ! ShadeleafTK leaf temperature for shade leaves [K] (weighted by canopy type) ! SunleafTK leaf temperature for sun leaves [K] (weighted by canopy type) ! SunFrac fraction of sun leaves (weighted by canopy type) ! SunPPFD PPFD on a sun leaf [umol/m2/s] (weighted by canopy type) ! ShadePPFD PPFD on a shade leaf [umol/m2/s] (weighted by canopy type) ! !***************************************************************** ! FUNCTION S ! Calcbeta Calculation of solar zenith angle ! WaterVapPres Convert water mixing ratio (kg/kg) to water vapor ! pressure ! Stability Temperature lapse rate in canopy ! get_BETA solar position ! IMPLICIT NONE ! INPUT VARIABLES INTEGER, INTENT(IN) :: LAYERS REAL, INTENT(IN) :: YEAR REAl, INTENT(IN) :: DOY REAL, INTENT(IN) :: ZTIME REAL, INTENT(IN) :: LAT ( NCOLS, NROWS ) REAL, INTENT(IN) :: LONG( NCOLS, NROWS ) REAL, INTENT(IN) :: LAIc( NCOLS, NROWS ) REAL, INTENT(IN) :: TEMP( NCOLS, NROWS ) REAL, INTENT(IN) :: PAR ( NCOLS, NROWS ) ! comes in as rgrnd from ASX REAL, INTENT(IN) :: WIND( NCOLS, NROWS ) REAL, INTENT(IN) :: PRES( NCOLS, NROWS ) REAL, INTENT(IN) :: QV ( NCOLS, NROWS ) REAL, INTENT(IN) :: CTF(NrTyp, NCOLS, NROWS ) ! Canopy type factor array ! OUTPUT VARIABLES REAL, INTENT(OUT) :: ShadeleafTK ( NCOLS, NROWS, LAYERS ) REAL, INTENT(OUT) :: SunleafTK ( NCOLS, NROWS, LAYERS ) REAL, INTENT(OUT) :: SunFrac ( NCOLS, NROWS, LAYERS ) REAL, INTENT(OUT) :: SunPPFD ( NCOLS, NROWS, LAYERS ) REAL, INTENT(OUT) :: ShadePPFD ( NCOLS, NROWS, LAYERS ) ! LOCAL VARIABLES INTEGER :: I, I_CT, J, MM, DD INTEGER :: IDAY ! For using original solar method REAL :: PPFD(NCOLS, NROWS) REAL :: TotalCT REAL :: month, Date, JDAY REAL :: Sinbeta, Beta, HOUR, DAY REAL,DIMENSION(LAYERS) :: VPgausWt, VPgausDis2, & VPgausDis, VPslwWT, QdAbsV, QsAbsV, QdAbsn, & QsAbsn, SunQv, ShadeQv, SunQn, ShadeQn, & TairK, HumidairPa, Ws, SunleafSH, sun_ppfd,shade_ppfd, & SunleafLH,SunleafIR, ShadeleafSH, sun_tk,shade_tk,sun_frac, & ShadeleafLH,ShadeleafIR, sun_ppfd_total, shade_ppfd_total, & sun_tk_total, shade_tk_total, sun_frac_total REAL :: Solar, Maxsolar, Eccentricity, & Difffrac, PPFDfrac, QbAbsn, & Trate, Qbeamv,Qdiffv, Qbeamn, Qdiffn, & QbAbsV,Ea1tCanopy, Ea1pCanopy, & TairK0, HumidairPa0, Ws0, SH ! REAL :: CalcEccentricity,WaterVapPres, & ! Stability, Calcbeta ! Start code ! calculate the date from Year and day of the year call get_date(YEAR, DOY, MM, DD) MONTH = MM ! conver to REAL DATE = DD ! conver to REAL ! Get authentic Julian Day Number JDAY = getJD (YEAR,MONTH,Date) DAY = DOY ppfd=par*4.5*0.45 ! ppfd = par * 4.5 ! par = rgrnd * 0.45 DO I=1, NCOLS DO J=1, NROWS SunleafTK(I,J,:) = TEMP(I,J) ShadeleafTK(I,J,:) = TEMP(I,J) SunPPFD(I,J,:) = PPFD(I,J) ShadePPFD(I,J,:) = PPFD(I,J) SunFrac(I,J,:) = 1.0 TotalCT = 0.0 DO I_CT = 1,NRTYP !canopy types TotalCT = TotalCT + CTF(I_CT,I,J) * 0.01 ENDDO ! ENDDO I_CT IF (TotalCT .GT. 0.0 .AND. LAIc(I,J) .GT. 0.0) THEN ! only invoke canopy model when both CT and LAI are valid sun_ppfd_total = 0.0 shade_ppfd_total = 0.0 sun_tk_total = 0.0 shade_tk_total = 0.0 sun_frac_total = 0.0 DO I_CT = 1,NRTYP !canopy types IF (CTF(I_CT,I,J) .NE. 0.0) THEN sun_ppfd = 0.0 shade_ppfd = 0.0 sun_tk = 0.0 shade_tk = 0.0 sun_frac = 0.0 ! Convert from XXXXXX format to XX.XX (solar hour) ! HOUR = 0 -> 23.xx ! Solar hour Hour = ZTIME + LONG(I,J) / 15.0 IF ( Hour .LT. 0.0 ) THEN Hour = Hour + 24.0 Day = Doy - 1 ELSEIF ( Hour .GT. 24.0 ) THEN Hour = Hour - 24.0 Day = Doy + 1 ENDIF ! Solar angle Beta = Calcbeta(Day , Lat(I,J) , Hour ) Sinbeta = SIN(Beta / 57.29578) TairK0 = TEMP(I,J) Ws0 = WIND(I,J) ! Solar = PPFD(I,J)/ConvertWm2toUmolm2s*2 Solar = PPFD(I,J)/2.25 Maxsolar = Sinbeta * SolarConstant * CalcEccentricity(Day ) Call GaussianDist(VPgausDis, Layers) Call SolarFractions(Solar, Maxsolar, Qdiffv,Qbeamv,Qdiffn,Qbeamn) Call CanopyRad(VPgausDis, Layers, LAIc(I,J), Sinbeta, Qbeamv, & Qdiffv, Qbeamn, Qdiffn,I_CT ,Canopychar, sun_frac,& QbAbsV, QdAbsV, QsAbsV, QbAbsn, QdAbsn, QsAbsn, SunQv,& ShadeQv, SunQn, ShadeQn, sun_ppfd, shade_ppfd,& NrCha,NrTyp) HumidairPa0 = WaterVapPres(QV(I,J), PRES(I,J), WaterAirRatio) Trate = Stability(Canopychar, I_CT, Solar , NrCha, NrTyp) Call CanopyEB(Trate, Layers, VPgausDis, Canopychar, I_CT,& TairK, HumidairPa, Ws, sun_ppfd,& shade_ppfd, SunQv, ShadeQv, SunQn, ShadeQn,& sun_tk, SunleafSH, SunleafLH, SunleafIR,& shade_tk,ShadeleafSH,ShadeleafLH,ShadeleafIR,& NrCha, NrTyp, Ws0, TairK0, HumidairPa0) sun_ppfd_total(:) = sun_ppfd_total(:) + & 0.01*CTF(I_CT,I,J)*sun_ppfd(:) shade_ppfd_total(:) = shade_ppfd_total(:) +& 0.01*CTF(I_CT,I,J)*shade_ppfd(:) sun_tk_total(:) = sun_tk_total(:) +& 0.01*CTF(I_CT,I,J)*sun_tk(:) shade_tk_total(:) = shade_tk_total(:) +& 0.01*CTF(I_CT,I,J)*shade_tk(:) sun_frac_total(:) = sun_frac_total(:) + & 0.01*CTF(I_CT,I,J)*sun_frac(:) ENDIF ENDDO ! ENDDO I_CT SunleafTK(I,J,:) = sun_tk_total(:)/TotalCT ShadeleafTK(I,J,:) = shade_tk_total(:)/TotalCT SunPPFD(I,J,:) = sun_ppfd_total(:)/TotalCT ShadePPFD(I,J,:) = shade_ppfd_total(:)/TotalCT SunFrac(I,J,:) = sun_frac_total(:)/TotalCT ELSEIF( TotalCT .LT. 0.0) THEN ELSE ! total CT is zero SunleafTK(I,J,:) = TEMP(I,J) ShadeleafTK(I,J,:) = TEMP(I,J) SunPPFD(I,J,:) = PPFD(I,J) ShadePPFD(I,J,:) = PPFD(I,J) SunFrac(I,J,:) = 1 ENDIF ENDDO ! ENDDO J ENDDO ! ENDDO I RETURN END SUBROUTINE MEGCANOPY !////////////////////////////////////////////////////////////////// SUBROUTINE MEGVEA( LAYERS, JDATE, ZTIME, & LAIp, LAIc,LDF_in, & GAMSM_in, MaxT, MinT, & MaxWS, & !AQI, D_TEMP, D_PPFD, SUNT, SHAT, & SUNF, SUNP, SHAP,ER, NON_DIMGARMA ) ! PURPOSE: Calculate Vegetation emission activity (EA) for each emission ! class as the product of EA for individual drivers ! calculated by the following functions ! ! Vegetation Emission Activity (EA) algorithm FUNCTIONS ! ! GAMTLD: EA Temperature response (light dependent emission) ! GAMTLI: EA Temperature response (light independent emission) ! GAMP: EA Light response ! GAMTP: combines GAMLD, GAMLI, GAMP to get canopy average ! ! GAMLA: EA leaf age response ! GAMBD: EA bidirectional exchange LAI response ! ! CDEA: Canopy depth emission response ! ! GAMHW: EA response to high wind storms ! GAMHT: EA resposne to high temperature ! GAMLT: EA response to low temperature ! ! GAMAQ: EA response to air pollution ! ! GAMCO2: EA CO2 response (only applied to isoprene) ! GAMSM: EA response to soil moisture (multiplied with LDF) ! ! INCLUDE FILES ! 'PARMS3.EXT' ! I/O API parameters ! 'IODECL3.EXT' ! I/O API function declarations ! 'FDESC3.EXT' ! I/O API file desc. data structures ! 'MEGVEA.EXT' ! coefficients ! ! INPUT Files ! Single value for each location ! LDF: Light dependent fraction (for categories other than ! monoterpene, use constant values from MEGVEA.EXT) ! AQ: Air Quality indicator ! Time series for each location ! LAI: Leaf Area Index ! GAMSM: emission activity response to soil moisture ! MaxT: Daily maximum temperature (K) ! MinT: Daily minimum temperature (K) ! MaxWS: Daily mximum wind speed (m/s) ! D_TEMP: Daily average temperature (K) ! D_PPFD: Daily averaged PPFD (umol/m2.s) ! Hourly time series for each canopy layer in each location ! sunfrac: fraction of leaves that are sunlit ! SUNT: leaf Temperature of sunlit leaves (K) ! SUNP: sun leaf PPFD visible light (micromol/m2/s) ! SHAT: leaf Temperature of shade leaves (K) ! SHAP: shade leaf PPFD visible light (micromol/m2/s) ! ! OUTPUT Files ! Hourly time series for each location ! Emission activity for each of the 20 emission types ! ! ! HISTORY: ! Based on code initiated by Alex Guenther in 1990s ! Coded in FORTRAN as ! MEGAN: Jack Chen 11/04 ! MEGANv2.04: Tan 11/21/06 ! MEGANv2.1: X. Wang 11/04/2007 ! Modified by Julia Lee-Taylor 03/18/2008 ! Modified by Xuemei Wang 09/30/2008 ! Modified by Tan 07/28/2011 ! MEGAN3.0: ! Alex Guenther and Ling Huang Feb 2017 ! converted program to subroutine IMPLICIT NONE ! INPUT VARIABLES INTEGER, INTENT(IN) :: LAYERS INTEGER, INTENT(IN) :: JDATE REAL, INTENT(IN) :: ZTIME REAL, INTENT(IN) :: LAIp ( NCOLS, NROWS ) REAL, INTENT(IN) :: LAIc ( NCOLS, NROWS ) REAL, INTENT(IN) :: LDF_in ( NCOLS, NROWS , 4 ) !only 4 use maps REAL, INTENT(IN) :: GAMSM_in ( NCOLS, NROWS ) REAL, INTENT(IN) :: MaxT ( NCOLS, NROWS ) REAL, INTENT(IN) :: MinT ( NCOLS, NROWS ) REAL, INTENT(IN) :: MaxWS ( NCOLS, NROWS ) ! REAL, INTENT(IN) :: AQI ( NCOLS, NROWS ) REAL, INTENT(IN) :: D_TEMP ( NCOLS, NROWS ) REAL, INTENT(IN) :: D_PPFD ( NCOLS, NROWS ) ! comes in as rgrnd REAL, INTENT(IN) :: SUNT ( NCOLS, NROWS, LAYERS ) REAL, INTENT(IN) :: SHAT ( NCOLS, NROWS, LAYERS ) REAL, INTENT(IN) :: SUNF ( NCOLS, NROWS, LAYERS ) REAL, INTENT(IN) :: SUNP ( NCOLS, NROWS, LAYERS ) REAL, INTENT(IN) :: SHAP ( NCOLS, NROWS, LAYERS ) ! OUTPUT VARIABLES REAL, INTENT(OUT) :: ER(NCOLS, NROWS ) REAL, INTENT(OUT) :: NON_DIMGARMA (NCLASS,NCOLS, NROWS) !LOCAL VARIABLES LOGICAL, PARAMETER :: GAMBD_YN = .false. LOGICAL, PARAMETER :: GAMAQ_YN = .false. ! For the CMAQ implementation of MEGAN we refer to soil moisture ! at layer 2, which is 1 meter for PX and 0.5 m for NOAH. ! Keep this in mind when enabling the GAMSM stress. LOGICAL, PARAMETER :: GAMSM_YN = .false. LOGICAL, PARAMETER :: GAMHT_YN = .false. LOGICAL, PARAMETER :: GAMLT_YN = .false. LOGICAL, PARAMETER :: GAMHW_YN = .false. LOGICAL, PARAMETER :: GAMCO2_YN = .false. REAL :: VPGWT(LAYERS), Ea1L, Ea2L REAL :: CDEA ( NCOLS, NROWS, LAYERS ) ! Emission response to canopy depth REAL :: YEAR REAl :: DOY REAL :: GAMLA ( NCOLS, NROWS ) ! EA leaf age response REAL :: GAMAQ ( NCOLS, NROWS ) ! EA response to air pollution REAL :: GAMBD ( NCOLS, NROWS ) ! EA bidirectional exchange LAI response REAL :: GAMHT ( NCOLS, NROWS ) ! EA response to high temperature REAL :: GAMLT ( NCOLS, NROWS ) ! EA response to low temperature REAL :: GAMHW ( NCOLS, NROWS ) ! EA response to high wind speed REAL :: GAMSM ( NCOLS, NROWS ) ! EA response to soil moisture REAL :: GAMCO2 ( NCOLS, NROWS ) ! EA response to CO2 REAL :: GAMTP ! combines GAMLD, GAMLI, GAMP to get canopy average REAL :: LDFMAP ( NCOLS, NROWS ) ! light depenedent fraction map REAL :: SUM1, SUM2 ! loop indices !INTEGER :: IDATE, ITIME INTEGER :: S, T, I, J, K ! YEAR = FLOAT( MOD( JDATE, 1000 ) ) ! DOY = FLOAT( JDATE / 1000 ) ! these are backwards I think. don't need them anyway ! EA response to canopy temperature/light IF ( Layers .EQ. 5 ) THEN VPGWT(1) = 0.1184635 VPGWT(2) = 0.2393144 VPGWT(3) = 0.284444444 VPGWT(4) = 0.2393144 VPGWT(5) = 0.1184635 ELSE DO K = 1,Layers VPGWT(K) = 1.0 / FLOAT( Layers ) END DO ENDIF ! First process Factors independent of species emission classes S : ! Emission response to canopy depth CALL GAMMA_CD( NCOLS, NROWS, Layers, LAIc, CDEA ) ! EA bidirectional exchange LAI response IF ( GAMBD_YN ) THEN CALL GAMMA_LAIbidir(NCOLS, NROWS, LAIc, GAMBD) ELSE GAMBD = 1.0 ENDIF IF ( GAMCO2_YN ) THEN CALL GAMMA_CO2(NCOLS, NROWS, GAMCO2) ELSE GAMCO2 = 1.0 ENDIF ! Now process all factors dependent on S: DO S = 1,NEMIS ! Loop over all the emission classes IF ( S .EQ. 3 .OR. S .EQ. 4 .OR. S .EQ. 5 .OR. S .EQ. 6 ) THEN ! otherwise use the input values. LDFMAP = LDF_IN(:,:,S-2) ! only LDF 3, 4, 5, and 6 in file ELSE ! For these species, Read LDF from previous MEGVEA.EXT LDFMAP = LDF(S) ENDIF ! leaf age activity factor: dependent upon S CALL GAMMA_A( NCOLS, NROWS, S, LAIp, LAIc, D_TEMP, GAMLA ) ! emission activity response to air quality IF ( GAMAQ_YN ) THEN ! CALL GAMMA_AQ(NCOLS, NROWS, S, AQI, GAMAQ) ELSE GAMAQ = 1.0 ENDIF IF ( GAMSM_YN ) THEN GAMSM = GAMSM_in ELSE GAMSM = 1.0 ENDIF ! EA response to high temperature IF ( GAMHT_YN ) THEN CALL GAMMA_HT(NCOLS, NROWS, S, MaxT, GAMHT) ELSE GAMHT = 1.0 ENDIF ! EA response to low temperature IF ( GAMLT_YN ) THEN CALL GAMMA_LT(NCOLS, NROWS, S, MinT, GAMLT) ELSE GAMLT = 1.0 ENDIF ! EA response to high wind speed IF ( GAMHW_YN ) THEN CALL GAMMA_HW(NCOLS, NROWS, S, MaxWS, GAMHW) ELSE GAMHW = 1.0 ENDIF ! ! THe following code has bee revised for efficiency and clarity. ! DO I = 1, NCOLS ! DO J = 1, NROWS ! ! DO K = 1, Layers ! ! ! Ea1L(K) = CDEA(I,J,K) * & ! GAMTLD(SunT(I,J,K),D_TEMP(I,J),S) * & ! GAMP(SunP(I,J,K),D_PPFD(I,J)) * SunF(I,J,K) + & ! GAMTLD(ShaT(I,J,K),D_TEMP(I,J),S) * & ! GAMP(ShaP(I,J,K),D_PPFD(I,J)) & ! * (1-SunF(I,J,K)) ! ! Ea2L(K) = GAMTLI(SunT(I,J,K),S)* SunF(I,J,K)+ & ! GAMTLI(ShaT(I,J,K),S)*(1-SunF(I,J,K)) ! ! ENDDO ! ENDDO canopy layers ! ! GAMTP(I,J)=SUM((Ea1L(:)*LDFMAP(I,J) + & ! Ea2L(:)*(1-LDFMAP(I,J)))* VPGWT( : )) ) ! ENDDO ! NROWS ! ENDDO ! NCOLS DO J = 1, NROWS DO I = 1, NCOLS! Preserve stride 1 for output arrays SUM1 = 0.0 SUM2 = 0.0 DO K = 1, Layers ! 2.025 is the conversion to PPFD. ! SWDNB*.45 = PAR (Wm-2) ! PAR*4.5 = PPFD (umol/m2/s) Ea1L = CDEA(I,J,K) * & GAMTLD(SunT(I,J,K),D_TEMP(I,J),S) * & GAMP(SunP(I,J,K),D_PPFD(I,J)*2.025) * SunF(I,J,K) + & GAMTLD(ShaT(I,J,K),D_TEMP(I,J),S) * & GAMP(ShaP(I,J,K),D_PPFD(I,J)*2.025) & * (1.0-SunF(I,J,K)) SUM1 = SUM1 + Ea1L*VPGWT(K) Ea2L = GAMTLI(SunT(I,J,K),S)* SunF(I,J,K) + & GAMTLI(ShaT(I,J,K),S)*(1.0-SunF(I,J,K)) SUM2 = SUM2 + Ea2L*VPGWT(K) END DO ! END DO canopy layers GAMTP = SUM1*LDFMAP(I,J) + SUM2*( 1.0-LDFMAP(I,J) ) ! ... Calculate emission activity factors IF ( S .EQ. 1 ) THEN ! GAMCO2 only applied to isoprene ER(:,:) = LAIc(I,J) * GAMTP * GAMCO2(I,J) * GAMLA(I,J) * & GAMHW(I,J) * GAMAQ(I,J) * GAMHT(I,J) * GAMLT(I,J) * & GAMSM(I,J) ELSE IF ( S .EQ. 13 ) THEN ! GAMBD only applied to ethanol and acetaldehyde ER(I,J) = LAIc(I,J) * GAMTP * GAMBD(I,J) * GAMLA(I,J) * & GAMHW(I,J) * GAMAQ(I,J) * GAMHT(I,J) * GAMLT(I,J) * & GAMSM(I,J) ELSE ! Process remaining species ER(I,J) = LAIc(I,J) * GAMTP * GAMLA(I,J) * & GAMHW(I,J) * GAMAQ(I,J) * GAMHT(I,J) * GAMLT(I,J) * & GAMSM(I,J) END IF IF ( ER(I,J).GT.0.0 ) THEN NON_DIMGARMA (S,I,J) = ER(I,J) ELSE NON_DIMGARMA (S,I,J) = 0.0 END IF END DO ! NCOLS END DO ! NROWS END DO ! End loop of species (S) RETURN END SUBROUTINE MEGVEA ! /////////////////////////////////////////////////////////////////////////// SUBROUTINE MEGVSA (IDATE,ITIME,TSTEP,JYEAR,JDAY, & L_DESID_DIAG,SLTYP, CTF,LAIc, LAT, & TEMP, SOILM1,SOILM2, SOILT, PRECADJ, & CFNO, CFNOG, GAMSM, GAMNO, BDSNP_NO ) !*********************************************************************** ! This subroutine computes soil NO emission activity factor and isoprene ! soil moisture activity using MCIP output variables. ! ! DESCRIPTION: ! ! Uses new NO algorithm NO = Normalized*Tadj*Padj*Fadj*Cadj ! to estimate NO emissions ! Information needed to estimate NO emissions ! Julian Day (integer) JDATE ! Surface Temperature (MCIP field) TA (K) ! Soil Moisture (MCIP field) SOILM (M**3/M**3) (LSOIL) ! (ratio of volume of water per volume of soil) ! Soil Temperature (MCIP field) SOILT (K) (LSOIL) ! Soil Type (MCIP field) ISLTYP (LSOIL) ! ! saturation values for soil types (constants) (LSOIL) ! FOR PX Version, the Temperature adjustment factor accounts for wet ! and dry soils ! and the precipitation adjustment factor accounts for ! saturated soils ! FOR the non-PX version, the basic algorithm remains with a ! temperature adjustment factor (dry soil) ! and no adjustment for saturated soils ! ! The following arrays are updated after each call to SOILNOX ! PULTYPE type of NO emission pulse ! PULSEDATE julian date for the beginning of an NO pulse ! PULSETIME time for the beginning of an NO pulse ! ! The calculation are based on the following paper by J.J. Yienger ! and H. Levy II ! J.J. Yienger and H. Levy II, Journal of Geophysical Research, vol ! 100,11447-11464,1995 ! ! The Temperature Adjustment Factor is based on section 4.2 for wet ! and dry soils with the following modification (PX version): ! Instead of classifying soils as either 'wet' or 'dry', the wet ! and dry adjustment is calculated at each grid cell. A linear ! interpolation between the wet and dry adjustment factor is made ! using the relative amount of soil moisture in the top layer (1cm) ! as the interpolating factor. The relative amount of soil moisture ! is determined by taking the MCIP soil moisture field and dividing by the ! saturation value defined for each soil type in the PX version of MCIP ! the soil temperature is used in PX version ! ! The Precipation Adjustment factor is based on section 4.1 with the ! following modifications. ! The rainrate is computed from the MCIP directly using a 24 hr daily total. ! THe types of Pulses as described in YL95 were used to estimate ! the NO emission rate. ! ! Also see the following paper for more information: ! Proceedings of the Air and Waste Management Association/U.S. Environmental Protection ! Agency EMission Inventory Conference, Raleigh October 26-28, 1999 Raleigh NC ! by Tom Pierce and Lucille Bender ! ! REFERENCES ! ! JACQUEMIN B. AND NOILHAN J. (1990), BOUND.-LAYER METEOROL., 52, 93-134. ! J.J. Yienger and H. Levy II, Journal of Geophysical Research, vol 100,11447-11464,1995 ! T. Pierce and L. Bender, Examining the Temporal Variability of Ammonia and ! Nitric Oxide Emissions from Agricultural Proc Proceedings of the Air and Waste ! Management Association/U.S. Environmental Protection Agency EMission Inventory ! Conference, Raleigh October 26-28, 1999 Raleigh NC ! PRECONDITIONS REQUIRED: ! Normalized NO emissions, Surface Temperature, Soil Moisture, Soil type, ! NO emission pulse type, soil moisture from previous time step, julian date ! of NO emission pulse start, time of NO emission pulse start, soil type, ! SOIL TYPES, Land use data ! ! SUBROUTINES AND FUNCTIONS CALLED (directly or indirectly): ! FERTILIZER_ADJ computes fertlizer adjustment factor ! VEG_ADJ computes vegatation adjustment factor ! GROWSEASON computes day of growing season ! ! HISTORY: ! 07/21/11: Imported from SMOKE-BEIS v3.14 for MEGEAN v2.10 (Tan) ! 03/19/17: Make as an indpendent program (MEGSEA) (Ling Huang) ! 03/31/17: Add calculation for soil moisture activity (Ling Huang) ! 06/10/19: Add an option to use BDSNP model to calculate soil NO ! emissions (Ling Huang) !********************************************************************* USE BDSNP_MOD USE RUNTIME_VARS, ONLY: BDSNP_MEGAN IMPLICIT NONE ! input variables INTEGER, INTENT(IN) :: IDATE, ITIME, TSTEP(3) LOGICAL, INTENT( IN ) :: L_DESID_DIAG INTEGER, INTENT(IN) :: SLTYP (NCOLS, NROWS) ! soil type REAL, INTENT(IN) :: JYEAR, JDAY REAL, INTENT(IN) :: CTF( NrTyp, NCOLS, NROWS ) ! Canopy type factor arra REAL, INTENT(IN) :: LAIc( NCOLS, NROWS ) ! Current time step LAI REAL, INTENT(IN) :: LAT (NCOLS, NROWS ) ! Latitude REAL, INTENT(IN) :: TEMP (NCOLS, NROWS) ! Temperautre (K) REAL, INTENT(IN) :: SOILM1 (NCOLS, NROWS) ! soil moisture REAL, INTENT(IN) :: SOILM2 (NCOLS, NROWS) ! soil moisture REAL, INTENT(IN) :: SOILT (NCOLS, NROWS) ! soil temperature REAL, INTENT(IN) :: PRECADJ (NCOLS, NROWS) ! output variable REAL, INTENT(OUT) :: CFNO (NCOLS, NROWS) ! Emission activity for crop REAL, INTENT(OUT) :: CFNOG (NCOLS, NROWS) ! Emission activity for grass REAL, INTENT(OUT) :: GAMSM (NCOLS, NROWS) ! Soil moisture activity for isoprene REAL, INTENT(OUT) :: GAMNO (NCOLS, NROWS) ! Final NO emission activity REAL, INTENT(OUT) :: BDSNP_NO (NCOLS, NROWS) ! BDSNP NO emissions(nmol/s/m2) ! Local variables and their descriptions: CHARACTER*16 :: GDNAM CHARACTER*16 :: CNAME ! Coord name INTEGER :: GDAY, GLEN INTEGER :: MXLAI,MXCT REAL :: t1,wilt,TMO1,TMO2 LOGICAL :: LSOIL = .TRUE. INTEGER :: T,I,J,MM,DD,I_CT CFNO = 0.0 ! INITIALIZE CFNOG = 0.0 ! INITIALIZE if (BDSNP_MEGAN) then call get_date(JYEAR, JDAY, MM, DD) CALL HRNOBDSNP( IDATE,ITIME,TSTEP,MM, & L_DESID_DIAG,SOILM1,SOILT,SLTYP,LAIc, & bdsnp_no) else CALL SOILNOX(IDATE,ITIME,NCOLS,NROWS, & TEMP,LSOIL,SLTYP, SOILM1, SOILT, & LAIc, LAT, PRECADJ, & CFNO, CFNOG ) DO I = 1,NCOLS DO J = 1,NROWS CALL GROWSEASON(IDATE,LAT(I,J),GDAY,GLEN) IF (GDAY .EQ. 0) THEN ! non growing season ! CFNOG for everywhere GAMNO(I,J) = CFNOG(I,J) ELSE IF (GDAY .GT. 0 .AND. GDAY .LE. 366) THEN ! growing season ! CFNOG for everywhere except crops TMO1 = 0. TMO2 = 0. DO I_CT = 1,5 TMO1 = TMO1 + CTF(I_CT,I,J) TMO2 = TMO2 + CTF(I_CT,I,J) * CFNOG(I,J) ENDDO ! CFNO for crops TMO1 = TMO1 + CTF(6,I,J) TMO2 = TMO2 + CTF(6,I,J) * CFNO(I,J) IF (TMO1 .EQ. 0.0) THEN GAMNO(I,J) = 0.0 ELSE GAMNO(I,J) = TMO2 / TMO1 ENDIF ENDIF ENDDO !NCOLS ENDDO !NROWS END IF ! YL or BDSNP DO I = 1, NCOLS DO J = 1, NROWS !wilt = WWLT(SLTYP(I,J)) wilt = Grid_Data%WWLT(I,J) t1 = wilt + d1 IF ( SOILM2(I,J) < wilt ) THEN GAMSM(I,J) = 0 ELSE IF ( SOILM2(I,J) >= wilt .AND. SOILM2(I,J) < t1 ) THEN GAMSM(I,J) = (SOILM2(I,J) - wilt)/d1 ELSE GAMSM(I,J) = 1 END IF END DO ! NCOLS END DO ! NROWS END SUBROUTINE MEGVSA subroutine convert2mech(no_in,inper,outer) USE centralized_io_module use hgrd_defn, only : ncols, nrows USE MEGAN_GSPRO !*********************************************************************** ! This program does chemical speciation and MECHANISM conversion. ! The output from megan.f is converted from 19 to 201 species which ! are then lumped according to the MECHANISM assigned in the run script. ! The program loops through all timesteps of the input file. ! ! Procedure ! 1) File set up and assign I/O parameters ! 2) Conversion from MGN 19 to speciated 201 ! 3) Conversion from speciated species to MECHANISM species ! 4) Convert to tonne/hour if needed ! ! The input file gives variables in units of g-species/sec. ! All outputs are in mole/sec or tonne/hr depending on assignment. ! ! ! INPUT: ! 1) MEGVEA output (netCDF-ioapi) ! 2) MEGSEA output (netCDF-ioapi) ! ! OUTPUT: ! 1) MEGAN speciation or MECHANISM species (netCDF-ioapi) ! ! Requirement: ! Requires libnetcdf.a and libioapi.a to compile ! ! setenv MGERFILE ! setenv OUTPFILE ! ! CALLS: CHECKMEM ! ! Originally created by Jack Chen 11/04 for MEGAN v.0 ! For MEGAN v2.0 created by Tan 12/01/06 ! For MEGAN v2.1 created by Xuemei Wang 11/04/07 ! For MEGAN v2.1 to use 150 species created by Xuemei Wang 09/30/09 ! For MEGAN v3 to use 201 species created by Alex Guenther 03/19/17 ! ! History: ! 08/14/07 Tan - Move to MEGANv2.02 with no update ! 08/29/07 modified by A. Guenther to correct error in assigning ! emission factor. This version is called MEGANv2.03 ! 10/29/07 modified by A. Guenther to correct omission of diurnal variation ! factor. This version is called MEGANv2.04 ! 11/04/07 modified by Xuemei Wang to give two options for MAP or lookup table for ! the emission factors. Also gives options for different chemical MECHANISMs ! in the code: user modifies the external script to assign MECHANISM. ! This version is called MEGANv2.1.0 ! 06/04/08 modified by J. Lee-Taylor to accept vegetation-dependent speciation factors ! in table format (RESHAPE tables) rather than from DATA statements. ! 09/30/08 modified by Xuemei Wang to give options for input file and test different mechanisms ! 09/27/11 Tan&Xuemei MEGANv2.10 includes soil NOx adjustment and a lot of updates ! 03/19/17 Ling Huang MEGANv3 (a) updates vegetation emission factors and ! add additional compounds; (b) emission factor unit from ! ug/m2/hr to nanomoles/m2/s; (c) fix NO emission bug ! 06/08/17 Ling Huang updated/added new mechanism for MEGAN3 ! 08/10/19 Ling Huang updated for BDSNP option for MEGAN3.1 !*********************************************************************** USE RUNTIME_VARS, ONLY: BDSNP_MEGAN IMPLICIT NONE !... Program I/O files ! Program name CHARACTER*16 :: PROGNAME = 'MGN2MECH' !... Internal parameters ! internal paramters (status and buffer) ! local variables and their descriptions: INTEGER :: t, s, I, N ! Counters INTEGER :: nmpmg, nmpsp, nmpmc ! Counters REAL, ALLOCATABLE :: tmper(:,:,:) ! Temp emission buffer REAL :: GAMNO(ncols,nrows) ! NO emission factor REAL :: BDSNP_NO(ncols,nrows) ! NO emissions for BDSNP algorithm (nanomol/m^2/s) REAL, INTENT(IN) :: inper (19, NCOLS, NROWS ) REAL, INTENT(IN) :: NO_IN (NCOLS, NROWS ) REAL, INTENT(OUT) :: outer (NMGNSPC, NCOLS, NROWS ) ! CB6 INTEGER :: INO,ios REAL, PARAMETER :: nmol2mol = 1E-9 ! convert nanomoles to moles !*********************************************************************** !======================================================================= !... Begin program !======================================================================= !.....2) Conversion from MGN 20 to speciated 201 !----------------------------------------------------------------------- !... Allocate memory ALLOCATE ( tmper( n_spca_spc, ncols, nrows ), STAT = ios ) INO = 8 ! this was 20 for megan 3.1 tmper = 0. outer = 0. IF ( .NOT. BDSNP_MEGAN ) THEN GAMNO = NO_IN ELSE BDSNP_NO = NO_IN ENDIF DO s = 1, N_SMAP_SPC nmpmg = mg20_map(s) nmpsp = spca_map(s) IF ( nmpmg .NE. INO ) then !... Not NO tmper(nmpsp,:,:) = inper(nmpmg,:,:) * efmaps(:,:,nmpmg) & * effs_all(s) ELSEIF ( nmpmg .EQ. INO ) then !!-----------------NO Stuff----------------------- IF ( .NOT. BDSNP_MEGAN ) THEN ! GAMNO is emission activity factor tmper(nmpsp,:,:) = GAMNO(:,:) * efmaps(:,:,INO) & * effs_all(s) ELSE ! directly use BDSNP soil NO tmper(nmpsp,:,:) = BDSNP_NO(:,:) ENDIF !-----------------end of NO---------------------- ENDIF !IF ( nmpmg .NE. INO ) then ENDDO ! End species loop !----------------------------------------------------------------------- !.....3) Conversion from speciated species to MECHANISM species !----------------------------------------------------------------------- DO s = 1, n_spca_spc tmper(s,:,:) = tmper(s,:,:) * nmol2mol ENDDO ! lumping to MECHANISM species DO s = 1, n_scon_spc nmpsp = spmh_map(s) ! Mapping value for SPCA nmpmc = mech_map(s) ! Mapping value for MECHANISM IF ( nmpmc .NE. 999 ) THEN outer(nmpmc,:,:) = outer(nmpmc,:,:) + & (tmper(nmpsp,:,:) * conv_fac(s)) ENDIF ENDDO ! End species loop end subroutine convert2mech !----------------------------------------------------------------------- ! Created by Tan 07/28/11 ! Updated by Ling Huang 02/18/17 for MEGAN3: LAI data is saved as ! LAI1, LAI2, ... LAIS92, instead of one variable with multiple time ! step. !----------------------------------------------------------------------- SUBROUTINE FINDLAI( IDATE, MXLAI, NLAI, LAIp_I, LAIc_I) IMPLICIT NONE ! input INTEGER,INTENT(IN) :: IDATE ! YYYYJJJ INTEGER,INTENT(IN) :: MXLAI, NLAI ! output INTEGER,INTENT(OUT) :: LAIp_I, LAIc_I ! Local INTEGER :: JJJ REAL :: XXX ! Calculation JJJ = MOD(IDATE,1000) IF ( NLAI .EQ. 46 ) THEN XXX = JJJ/8.0 LAIc_I = CEILING(XXX) ELSE IF ( NLAI .EQ. 37 ) THEN XXX = JJJ/10.0 LAIc_I = CEILING(XXX) !ELSE IF ( NLAI .EQ. 12 ) THEN ! CALL DAYMON(IDATE, MM, DAY) ! LAIc_I = MM ENDIF IF (LAIc_I .EQ. 1) THEN LAIp_I = MXLAI ELSE LAIp_I = LAIc_I - 1 ENDIF RETURN END SUBROUTINE FINDLAI !-----------------------------------------------------------------------` end module megan_fx ================================================ FILE: CCTM/src/biog/megan3/megan_gspro.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! MODULE MEGAN_GSPRO ! ! This module determines the speciation map files to use and populates ! the MEGAN_NAMES array. This array is used in EMIS_DEFN.F via the ! variable vdemis_me in the MIOG stream. ! IMPLICIT NONE INTEGER, SAVE :: NMGNSPC INTEGER, SAVE :: n_scon_spc CHARACTER( 16 ), ALLOCATABLE :: MEGAN_NAMES(:) INTEGER, ALLOCATABLE :: spmh_map(:),mech_map(:) ! speciated species name REAL, ALLOCATABLE :: conv_fac(:) REAL,ALLOCATABLE :: mech_mwt(:) CHARACTER( 16 ), ALLOCATABLE :: mech_spc(:) INCLUDE 'SPC_NOCONVER.EXT' INCLUDE 'SPC_CB05.EXT' INCLUDE 'SPC_CB6.EXT' INCLUDE 'SPC_CB6_AE7.EXT' INCLUDE 'SPC_RACM2.EXT' ! new in MEGAN3 INCLUDE 'SPC_CRACMM1.EXT' ! new in CMAQ 5.4 INCLUDE 'SPC_CRACMM2.EXT' ! new in CMAQ 5.5 INCLUDE 'MAP_CV2CB05.EXT' INCLUDE 'SPC_SAPRC07.EXT' ! new in MEGAN3 INCLUDE 'SPC_SAPRC07T.EXT' ! new in MEGAN3 INCLUDE 'MAP_CV2CB6.EXT' INCLUDE 'MAP_CV2CB6_AE7.EXT' INCLUDE 'MAP_CV2RACM2.EXT' INCLUDE 'MAP_CV2CRACMM1.EXT' INCLUDE 'MAP_CV2CRACMM2.EXT' INCLUDE 'MAP_CV2SAPRC07.EXT' INCLUDE 'MAP_CV2SAPRC07T.EXT' CONTAINS subroutine MEGAN_MAP USE RXNS_DATA, ONLY : MECHNAME USE RUNTIME_VARS, ONLY : LOGDEV USE UTILIO_DEFN IMPLICIT NONE CHARACTER( 16 ) :: MECHANISM ! Mechanism name INTEGER ios,INDX INTEGER, PARAMETER :: NMECHS = 17 ! dimension for number of mechanisms considered INTEGER I CHARACTER( 256 ) :: XMSG LOGICAL :: EFLAG TYPE MIOG_MECH_TYPE CHARACTER( 32 ) :: CHEMMECH CHARACTER( 16 ) :: MIOGMECH END TYPE MIOG_MECH_TYPE TYPE( MIOG_MECH_TYPE ) :: MIOG_MECH_MAP( NMECHS ) = (/ & MIOG_MECH_TYPE( 'CB05E51_AE6_AQ ','CB05 '), & MIOG_MECH_TYPE( 'CB05EH51_AE6_AQ ','CB05 '), & MIOG_MECH_TYPE( 'CB05MP51_AE6_AQ ','CB05 '), & MIOG_MECH_TYPE( 'CB05TUCL51_AE6_AQ ','CB05 '), & MIOG_MECH_TYPE( 'CB6R3_AE6_AQ ','CB6 '), & MIOG_MECH_TYPE( 'CB6MP_AE6_AQ ','CB6 '), & MIOG_MECH_TYPE( 'CB6R5HAP_AE7_AQ ','CB6_ae7 '), & MIOG_MECH_TYPE( 'CB6R3_AE7_AQ ','CB6_ae7 '), & MIOG_MECH_TYPE( 'CB6R5_AE7_AQ ','CB6_ae7 '), & MIOG_MECH_TYPE( 'CB6R5M_AE7_AQ ','CB6_ae7 '), & MIOG_MECH_TYPE( 'RACM2_AE6_AQ ','RACM2 '), & MIOG_MECH_TYPE( 'SAPRC07TC_AE6_AQ ','SAPRC07T'), & MIOG_MECH_TYPE( 'SAPRC07TIC_AE7I_AQ ','SAPRC07T'), & MIOG_MECH_TYPE( 'SAPRC07TIC_AE7I_AQKMT2 ','SAPRC07T'), & MIOG_MECH_TYPE( 'CRACMM1_AQ ','CRACMM1 '), & MIOG_MECH_TYPE( 'CRACMM1AMORE_AQ ','CRACMM1 '), & MIOG_MECH_TYPE( 'CRACMM2 ','CRACMM2 ') /) INDX = INDEX1( MECHNAME, NMECHS, MIOG_MECH_MAP%CHEMMECH ) MECHANISM = MIOG_MECH_MAP( INDX )%MIOGMECH EFLAG = .FALSE. SELECT CASE ( TRIM(MECHANISM) ) CASE ('SAPRC07') n_scon_spc = n_saprc07 NMGNSPC = n_saprc07_spc CASE ('SAPRC07T') n_scon_spc = n_saprc07t NMGNSPC = n_saprc07t_spc CASE ('CB05') n_scon_spc = n_cb05 NMGNSPC = n_cb05_spc CASE ('CB6') n_scon_spc = n_cb6 ! 145 NMGNSPC = n_cb6_spc ! 34 CASE ('RACM2') n_scon_spc = n_racm2 NMGNSPC = n_racm2_spc CASE ('CB6_ae7') n_scon_spc = n_cb6_ae7 NMGNSPC = n_cb6_ae7_spc CASE ('CRACMM1') n_scon_spc = n_cracmm1 NMGNSPC = n_cracmm1_spc CASE ('CRACMM2') n_scon_spc = n_cracmm2 NMGNSPC = n_cracmm2_spc CASE DEFAULT EFLAG = .TRUE. XMSG = "Mechanism," // TRIM( MECHNAME ) & // ", is not identified." WRITE(LOGDEV,'(A)')TRIM( XMSG ) ENDSELECT ALLOCATE ( MEGAN_NAMES(NMGNSPC), STAT = ios ) ALLOCATE ( spmh_map(n_scon_spc), STAT = ios ) ALLOCATE ( mech_map(n_scon_spc), STAT = ios ) ALLOCATE ( conv_fac(n_scon_spc), STAT = ios ) ALLOCATE ( mech_spc(NMGNSPC ), STAT = ios ) ALLOCATE ( mech_mwt(NMGNSPC ), STAT = ios ) SELECT CASE ( TRIM(MECHANISM) ) CASE ('CB05') spmh_map(1:n_scon_spc) = spmh_map_cb05(1:n_scon_spc) mech_map(1:n_scon_spc) = mech_map_cb05(1:n_scon_spc) conv_fac(1:n_scon_spc) = conv_fac_cb05(1:n_scon_spc) mech_spc(1:NMGNSPC) = mech_spc_cb05(1:NMGNSPC) mech_mwt(1:NMGNSPC) = mech_mwt_cb05(1:NMGNSPC) MEGAN_NAMES(1:NMGNSPC) = mech_spc(1:NMGNSPC) CASE ('CB6') spmh_map(1:n_scon_spc) = spmh_map_cb6(1:n_scon_spc) mech_map(1:n_scon_spc) = mech_map_cb6(1:n_scon_spc) conv_fac(1:n_scon_spc) = conv_fac_cb6(1:n_scon_spc) mech_spc(1:NMGNSPC) = mech_spc_cb6(1:NMGNSPC) mech_mwt(1:NMGNSPC) = mech_mwt_cb6(1:NMGNSPC) MEGAN_NAMES(1:NMGNSPC) = mech_spc(1:NMGNSPC) CASE ('RACM2') spmh_map(1:n_scon_spc) = spmh_map_racm2(1:n_scon_spc) mech_map(1:n_scon_spc) = mech_map_racm2(1:n_scon_spc) conv_fac(1:n_scon_spc) = conv_fac_racm2(1:n_scon_spc) mech_spc(1:NMGNSPC) = mech_spc_racm2(1:NMGNSPC) mech_mwt(1:NMGNSPC) = mech_mwt_racm2(1:NMGNSPC) MEGAN_NAMES(1:NMGNSPC) = mech_spc(1:NMGNSPC) CASE ('SAPRC07') spmh_map(1:n_scon_spc) = spmh_map_saprc07(1:n_scon_spc) mech_map(1:n_scon_spc) = mech_map_saprc07(1:n_scon_spc) conv_fac(1:n_scon_spc) = conv_fac_saprc07(1:n_scon_spc) mech_spc(1:NMGNSPC) = mech_spc_saprc07(1:NMGNSPC) mech_mwt(1:NMGNSPC) = mech_mwt_saprc07(1:NMGNSPC) MEGAN_NAMES(1:NMGNSPC) = mech_spc(1:NMGNSPC) CASE ('SAPRC07T') spmh_map(1:n_scon_spc) = spmh_map_saprc07t(1:n_scon_spc) mech_map(1:n_scon_spc) = mech_map_saprc07t(1:n_scon_spc) conv_fac(1:n_scon_spc) = conv_fac_saprc07t(1:n_scon_spc) mech_spc(1:NMGNSPC) = mech_spc_saprc07t(1:NMGNSPC) mech_mwt(1:NMGNSPC) = mech_mwt_saprc07t(1:NMGNSPC) MEGAN_NAMES(1:NMGNSPC) = mech_spc(1:NMGNSPC) CASE ('CB6_ae7') spmh_map(1:n_scon_spc) = spmh_map_cb6_ae7(1:n_scon_spc) mech_map(1:n_scon_spc) = mech_map_cb6_ae7(1:n_scon_spc) conv_fac(1:n_scon_spc) = conv_fac_cb6_ae7(1:n_scon_spc) mech_spc(1:NMGNSPC) = mech_spc_cb6_ae7(1:NMGNSPC) mech_mwt(1:NMGNSPC) = mech_mwt_cb6_ae7(1:NMGNSPC) MEGAN_NAMES(1:NMGNSPC) = mech_spc(1:NMGNSPC) CASE ('CRACMM1') spmh_map(1:n_scon_spc) = spmh_map_cracmm1(1:n_scon_spc) mech_map(1:n_scon_spc) = mech_map_cracmm1(1:n_scon_spc) conv_fac(1:n_scon_spc) = conv_fac_cracmm1(1:n_scon_spc) mech_spc(1:NMGNSPC) = mech_spc_cracmm1(1:NMGNSPC) mech_mwt(1:NMGNSPC) = mech_mwt_cracmm1(1:NMGNSPC) MEGAN_NAMES(1:NMGNSPC) = mech_spc(1:NMGNSPC) CASE ('CRACMM2') spmh_map(1:n_scon_spc) = spmh_map_cracmm2(1:n_scon_spc) mech_map(1:n_scon_spc) = mech_map_cracmm2(1:n_scon_spc) conv_fac(1:n_scon_spc) = conv_fac_cracmm2(1:n_scon_spc) mech_spc(1:NMGNSPC) = mech_spc_cracmm2(1:NMGNSPC) mech_mwt(1:NMGNSPC) = mech_mwt_cracmm2(1:NMGNSPC) MEGAN_NAMES(1:NMGNSPC) = mech_spc(1:NMGNSPC) CASE DEFAULT EFLAG = .TRUE. XMSG = "Mapping for Mechanism," // TRIM( MECHNAME ) & // ", is unspecified." WRITE(LOGDEV,'(A)')TRIM( XMSG ) ENDSELECT IF( EFLAG )THEN XMSG = 'Above Error(s) detected' CALL M3EXIT('MAP_MEGAN', 0, 0, XMSG, XSTAT1 ) END IF End subroutine MEGAN_MAP END MODULE MEGAN_GSPRO ================================================ FILE: CCTM/src/biog/megan3/megan_hrno_mod.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! MODULE MEGAN_HRNO_MOD CONTAINS C:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE MEGAN_HRNO( JDATE, JTIME, TSTEP, L_DESID_DIAG, PRECADJ) C----------------------------------------------------------------------- C Description: C Similar to HRNO.F, this module outputs hourly rainfall to C a soilout file at the end of the day. It also outputs LAI for daily C growth calculations that are needed by MEGAN, and hourly C shortwave radiation and 2m temperature for daily averaging. C Lastly, it calculates PRECADJ for use in megan_fx.f90. The C soil NO emissions are calculated in megan_fx.f90 and the YL95 C implementation varies in minor ways from in BEIS. C There are three parts to this subroutine: C Part 1: keeping track of rainfall pulses C Part 2: calculating precadj C Part 3: writing to the soilout file C Please see documentation for more information. C----------------------------------------------------------------------- USE RUNTIME_VARS USE HGRD_DEFN ! horizontal domain specifications USE BIOG_EMIS, ONLY: NSEF ! beis USE ASX_DATA_MOD USE UTILIO_DEFN #ifndef mpas #ifdef parallel USE SE_MODULES ! stenex (using SE_UTIL_MODULE) #else USE NOOP_MODULES ! stenex (using NOOP_UTIL_MODULE) #endif #endif USE centralized_io_module IMPLICIT NONE C Includes: C Arguments: INTEGER, INTENT( IN ) :: JDATE ! current simulation date (YYYYDDD) INTEGER, INTENT( IN ) :: JTIME ! current simulation time (HHMMSS) INTEGER, INTENT( IN ) :: TSTEP( 3 ) ! time step vector (HHMMSS) LOGICAL, INTENT( IN ) :: L_DESID_DIAG REAL, INTENT( OUT ) :: PRECADJ( :,: ) ! output precip adjustment #ifdef mpas integer, save :: output_step, half_syn_step ! values are in seconds #endif C External Functions LOGICAL, EXTERNAL :: CHKGRID C Parameters: INTEGER, PARAMETER :: MXRHRS = 24 ! no. of rainfall hours for YL95 algorithm INTEGER, PARAMETER :: LSM_WATER = 14 C Saturation values for 11 soil types from pxpbl.F (MCIP PX version) C In LSM_MOD:WSAT C Pleim-Xiu Land-Surface and PBL Model (PX-LSM) C See Jacquemin B. and Noilhan J. (1990), Bound.-Layer Meteorol., 52, 93-134. C Local Variables: CHARACTER( 16 ), SAVE :: MNAME ! logical name for MET_CRO_2D CHARACTER( 16 ), SAVE :: SOILINP ! logical name for input NO soil data CHARACTER( 16 ), SAVE :: SOILOUT = 'MEGAN_SOILOUT' ! logical name for output NO soil data CHARACTER( 33 ), SAVE :: DESCSTR = 'hrly cnv. & non-cnv. rainfall for' CHARACTER( 33 ), SAVE :: DESCSTRSW = 'hrly instantaneous rgrnd for' CHARACTER( 33 ), SAVE :: DESCSTRT2M = 'hrly instantaneous 2m temp for' CHARACTER( 33 ), SAVE :: DESCSTRLAI = 'LAI for day' CHARACTER( 16 ) :: VAR ! variable name INTEGER, SAVE :: IHR ! current simulation hour INTEGER NDX ! RAINFALL array timestep index REAL, ALLOCATABLE, SAVE :: C_RAINFALL ( :,: ) ! rainfall for current hour REAL, ALLOCATABLE, SAVE :: RNTOT ( :,: ) ! RN + RC INTEGER, SAVE :: RHOURS ! SOILINP(OUT) file no. of RAINFALL hour variables INTEGER, SAVE :: RDATE ! date to update rainfall INTEGER, SAVE :: RTIME ! time to update rainfall INTEGER, SAVE :: EDATE ! end scenario date INTEGER, SAVE :: ETIME ! end scenario time INTEGER, SAVE :: NDATE ! test date to update rainfall INTEGER, SAVE :: NTIME ! test time to update rainfall LOGICAL, SAVE :: INITIAL_DAY = .FALSE. ! true: 1st 24 hours; no previous data ! false: previous 24 hours of rainfall ! are available for HRNO INTEGER SOILCAT ! soil category INTEGER, SAVE :: MSTEPS ! run no. of steps INTEGER I, J, K, R, C, L ! counters INTEGER IOS ! IO or memory allocation status INTEGER, SAVE :: METSTEP ! met_cro_2d time step REAL FAC2 LOGICAL, SAVE :: FIRSTIME = .TRUE. CHARACTER( 256 ) :: MESG ! message buffer CHARACTER( 16 ) :: PNAME = 'MEG_HRNO' ! procedure name #ifdef mpas integer :: io_mode CHARACTER( 20 ) :: time_stamp #endif LOGICAL, EXTERNAL :: FLUSH3 C----------------------------------------------------------------------------- C--- Part 1: Keeping track of rainfall pulses C----------------------------------------------------------------------------- PRECADJ = 0.0 IF ( FIRSTIME ) THEN ! FIRSTIME = .FALSE. C Determine last timestamp EDATE = STDATE; ETIME = STTIME CALL NEXTIME( EDATE, ETIME, RUNLEN ) ! end date & time MSTEPS = TIME2SEC( RUNLEN ) / TIME2SEC( TSTEP( 1 ) ) #ifdef mpas if (ncd_64bit_offset) then io_mode = ior (nf90_noclobber, nf90_64bit_offset) else io_mode = nf90_noclobber end if call mio_fcreate (SOILOUT, io_mode) METSTEP = TSTEP(3) output_step = time2sec(tstep(1)) half_syn_step = time2sec(tstep(2)) / 2 #else C Open met file MNAME = PROMPTMFILE( & 'Enter name for gridded met input file', & FSREAD3, 'MET_CRO_2D', PNAME ) C Get description of met file IF ( .NOT. DESC3( MNAME ) ) THEN MESG = 'Could not get description of file "' & // TRIM( MNAME ) // '"' CALL M3EXIT( PNAME, JDATE, JTIME, MESG, XSTAT2 ) END IF METSTEP = TSTEP3D C Check that grid description matches B3GRD file IF ( .NOT. CHKGRID( MNAME ) ) THEN MESG = 'Grid in file "' // TRIM( MNAME ) & // '" does not match grid in file ' // TRIM( MNAME ) // '"' #ifdef twoway CALL M3WARN( PNAME, 0, 0, MESG ) #else CALL M3EXIT( PNAME, JDATE, JTIME, MESG, XSTAT2 ) #endif END IF #endif ALLOCATE( RNTOT( NCOLS,NROWS ), STAT=IOS ) CALL CHECKMEM( IOS, 'RNTOT', PNAME ) C Initial run until a full 24 hours has been recorded on the SOIL(OUT/INP) file C for the Yienger and Levy algorithm WRITE( LOGDEV,'(/5X, A)' ) 'Temporal BEIS ...' RHOURS = MXRHRS C If initial run, initialize some variables, otherwise get them from file IF ( NEW_START .or. IGNORE_SOILINP ) THEN PULSEDATE = 0 ! array PULSETIME = 0 ! array PTYPE = 0 ! array END IF ! initial run ALLOCATE( C_RAINFALL( NCOLS,NROWS ), STAT=IOS ) CALL CHECKMEM( IOS, 'RAINFALL', PNAME ) C_RAINFALL = 0.0 ! array RDATE = STDATE; RTIME = STTIME ! IHR = 0 END IF ! FIRSTIME C Non-convective (RN) and convective (RC) rain is the total amount for the met C preprocessor's (typically MCIP) output timestep (typically one hour). It doesn't C make sense to time-interpolate these values, since rain generally does not fall C at a constant rate for an output timestep. IF ( .NOT. CURRSTEP( JDATE, JTIME, STDATE, STTIME, METSTEP, & NDATE, NTIME ) ) THEN MESG = 'Cannot get step date and time' CALL M3EXIT( PNAME, JDATE, JTIME, MESG, XSTAT3 ) END IF C Store current time step rainfall totals IF ( NDATE .EQ. RDATE .AND. NTIME .EQ. RTIME ) THEN ! on the METSTEP IF ( FIRSTIME ) THEN FIRSTIME = .FALSE. IHR = MOD( RTIME / 10000 + 23, 24 ) ! previous hour bin, ! to accommodate non-zero start hour END IF C For the first hour of the simulation day, use the previous 24 hour C data to compute precip adjustment NDX = 1 + MOD( IHR, MXRHRS ) C_RAINFALL = C_RAINFALL + MET_DATA%RN + MET_DATA%RC WRITE( DDTTM( NDX ),'(I8,":",I6.6)' ) RDATE, RTIME #ifdef mpas call mio_time_format_conversion (ndate, ntime, time_stamp) #endif IF ( MOD( NTIME, 10000 ) .EQ. 0 ) THEN ! at the hourly mark RAINFALL( :,:,NDX ) = C_RAINFALL C_RAINFALL = 0.0 HRNO_SW( :,:,NDX ) = MET_DATA%RGRND HRNO_T2M( :,:,NDX ) = MET_DATA%TEMP2 IHR = IHR + 1 #ifdef mpas call mio_fwrite ('MEGAN_SOILOUT', 'RAINFALL', pname,RAINFALL(:,1,ndx), time_stamp) call mio_fwrite ('MEGAN_SOILOUT', 'T24', pname, HRNO_T2M(:,1,ndx),time_stamp) call mio_fwrite ('MEGAN_SOILOUT', 'SW24', pname, HRNO_SW(:,1,ndx),time_stamp) #endif END IF ! CALL NEXTIME( RDATE, RTIME, TSTEP( 1 ) ) CALL NEXTIME( RDATE, RTIME, METSTEP ) RNTOT = 0.0 ! array assignment IF ( NEW_START .or. IGNORE_SOILINP) THEN IF ( IHR .LT. MXRHRS ) THEN INITIAL_DAY = .TRUE. ELSE INITIAL_DAY = .FALSE. END IF ELSE ! store accumulated rain in RNTOT array DO I = 1, MXRHRS RNTOT = RNTOT + RAINFALL( :,:,I ) END DO END IF write( logdev,* ) 'hrno - INITIAL_DAY, IHR: ', initial_day, ihr #ifdef verbose_hrno write( logdev,* ) 'hrno - INITIAL_DAY, IHR: ', initial_day, ihr #endif END IF ! on the METSTEP C----------------------------------------------------------------------------- C--- Part 2: CALCULATING PRECADJ C----------------------------------------------------------------------------- ! just calculate FAC2 always. MEGAN YL95 will work out if it's growseason DO R = 1, NROWS DO C = 1, NCOLS IF ( PX_LSM .OR. CLM_LSM .OR. NOAH_LSM ) THEN IF ( INITIAL_DAY ) THEN FAC2 = 1.0 PTYPE( C,R ) = 0 PULSEDATE( C,R ) = 0 PULSETIME( C,R ) = 0 ELSE FAC2 = PRECIP_ADJ_PX( JDATE, JTIME, RNTOT( C,R ), & MET_DATA%SOIM1( C,R ), & Grid_Data%WSAT( C,R ), PTYPE( C,R ), & PULSEDATE( C,R ), PULSETIME( C,R ) ) PRECADJ( C,R) = FAC2 END IF ELSE IF ( INITIAL_DAY ) THEN FAC2 = 1.0 PTYPE( C,R ) = 0 PULSEDATE( C,R ) = 0 PULSETIME( C,R ) = 0 ELSE FAC2 = PRECIP_ADJ( JDATE, JTIME, RNTOT( C,R ), & PTYPE( C,R ), PULSEDATE( C,R ), & PULSETIME( C,R ) ) PRECADJ( C,R) = FAC2 END IF END IF ! PX version check END DO ! columns END DO ! rows C----------------------------------------------------------------------------- C--- Part 3: Writing to soilout file C----------------------------------------------------------------------------- #ifdef mpas IF ( MOD((TIME2SEC( JTIME ) - half_syn_step), output_step) .EQ. 0 .and. .not. l_desid_diag) then ! at the hourly mark ! continue to write else RETURN end if #else IF ( SECSDIFF( JDATE,JTIME, EDATE,ETIME ) .GT. TIME2SEC( TSTEP( 2 ) ) .OR. L_DESID_DIAG ) RETURN #endif C Create rain data file for soil NO C Final timestamp NDATE = EDATE; NTIME = ETIME #ifndef mpas C Build description for, and create/open soil NO emissions output file FTYPE3D = GRDDED3 SDATE3D = NDATE STIME3D = NTIME TSTEP3D = 0 ! make it a time-independent file NCOLS3D = GL_NCOLS NROWS3D = GL_NROWS NLAYS3D = 1 NVARS3D = 52 + RHOURS MXREC3D = 1 NTHIK3D = 1 GDTYP3D = GDTYP_GD P_ALP3D = P_ALP_GD P_BET3D = P_BET_GD P_GAM3D = P_GAM_GD XORIG3D = XORIG_GD YORIG3D = YORIG_GD XCENT3D = XCENT_GD YCENT3D = YCENT_GD XCELL3D = XCELL_GD YCELL3D = YCELL_GD VGTYP3D = VGTYP_GD VGTOP3D = VGTOP_GD DO L = 1, NLAYS3D + 1 VGLVS3D( L ) = VGLVS_GD( L ) END DO GDNAM3D = GRID_NAME ! from HGRD_DEFN VNAME3D = ' ' VNAME3D( 1 ) = 'PTYPE' VNAME3D( 2 ) = 'PULSEDATE' VNAME3D( 3 ) = 'PULSETIME' DO I = 1, RHOURS WRITE( VAR, '(A8,I2.2)' ) 'RAINFALL', I VNAME3D( I+3 ) = VAR WRITE( VAR, '(A2,I2.2)' ) 'SW', I VNAME3D( I+27 ) = VAR WRITE( VAR, '(A3,I2.2)' ) 'T2M', I VNAME3D( I+51 ) = VAR END DO VNAME3D( 52+RHOURS ) = 'LAI' UNITS3D = ' ' UNITS3D( 1 ) = 'INTEGER' UNITS3D( 2 ) = 'YYYYDDD' UNITS3D( 3 ) = 'HHMMSS' UNITS3D( 4:RHOURS+3 ) = 'cm' VDESC3D( 1 ) = 'NO emission pulse type' VDESC3D( 2 ) = 'CMAQ starting date for NO emission pulse' VDESC3D( 3 ) = 'CMAQ starting time for NO emission pulse' VDESC3D( 4:RHOURS+3 ) = 'hourly convective and non-convective rainfall' DO I = 1, RHOURS VDESC3D( I+3 ) = DESCSTR // DDTTM( I ) VDESC3D( I+27 ) = DESCSTRSW // DDTTM( I ) VDESC3D( I+51 ) = DESCSTRT2M // DDTTM( I ) END DO VDESC3D( I+52 ) = DESCSTRLAI VTYPE3D = 0 VTYPE3D( 1 ) = M3INT VTYPE3D( 2 ) = M3INT VTYPE3D( 3 ) = M3INT VTYPE3D( 4:RHOURS+52 ) = M3REAL FDESC3D = ' ' FDESC3D( 1 ) = 'Gridded rainfall data for soil NO emissions' FDESC3D( 2 ) = '/From/ ' // PNAME FDESC3D( 3 ) = '/Version/ CMAQ' C Open NO rain data save file IF ( IO_PE_INCLUSIVE ) THEN IF ( .NOT. OPEN3( SOILOUT, FSNEW3, PNAME ) ) THEN MESG = 'Could not open "' // TRIM( SOILOUT ) // '" file' CALL M3EXIT( PNAME, JDATE, JTIME, MESG, XSTAT1 ) END IF END IF #ifdef parallel_io IF ( IO_PE_INCLUSIVE ) THEN IF ( .NOT. FLUSH3 ( SOILOUT ) ) THEN MESG = 'Could not sync to disk ' // TRIM( SOILOUT ) CALL M3EXIT( PNAME, JDATE, JTIME, MESG, XSTAT2 ) END IF END IF CALL SE_BARRIER IF ( .NOT. IO_PE_INCLUSIVE ) THEN IF ( .NOT. OPEN3( SOILOUT, FSREAD3, PNAME ) ) THEN MESG = 'Could not open ' // TRIM( SOILOUT ) CALL M3EXIT( PNAME, JDATE, JTIME, MESG, XSTAT2 ) END IF END IF #endif C Write soil NO rain data file VAR = 'PTYPE' IF ( .NOT. WRITE3( SOILOUT, VAR, NDATE, NTIME, PTYPE ) ) THEN MESG = 'Could not write "' // TRIM( VAR ) // & '" to file "' // TRIM( SOILOUT ) // '"' CALL M3EXIT( PNAME, JDATE, JTIME, MESG, XSTAT2 ) END IF VAR = 'PULSEDATE' IF ( .NOT. WRITE3( SOILOUT, VAR, NDATE, NTIME, PULSEDATE ) ) THEN MESG = 'Could not write "' // TRIM( VAR ) // & '" to file "' // TRIM( SOILOUT ) // '"' CALL M3EXIT( PNAME, JDATE, JTIME, MESG, XSTAT2 ) END IF VAR = 'PULSETIME' IF ( .NOT. WRITE3( SOILOUT, VAR, NDATE, NTIME, PULSETIME ) ) THEN MESG = 'Could not write "' // TRIM( VAR ) // & '" to file "' // TRIM( SOILOUT ) // '"' CALL M3EXIT( PNAME, JDATE, JTIME, MESG, XSTAT2 ) END IF NDX = 1 + MOD( IHR, MXRHRS ) RAINFALL( :,:,NDX ) = C_RAINFALL DO I = 1, RHOURS WRITE( VAR, '(A8,I2.2)' ) 'RAINFALL', I IF ( .NOT. WRITE3( SOILOUT, VAR, NDATE, NTIME, RAINFALL( :,:,I ) ) ) THEN MESG = 'Could not write "' // TRIM( VAR ) // & '" to file "' // TRIM( SOILOUT ) // '"' CALL M3EXIT( PNAME, JDATE, JTIME, MESG, XSTAT2 ) END IF WRITE( VAR, '(A2,I2.2)' ) 'SW', I IF ( .NOT. WRITE3( SOILOUT, VAR, NDATE, NTIME, HRNO_SW( :,:,I ) ) ) THEN MESG = 'Could not write "' // TRIM( VAR ) // & '" to file "' // TRIM( SOILOUT ) // '"' CALL M3EXIT( PNAME, JDATE, JTIME, MESG, XSTAT2 ) END IF WRITE( VAR, '(A3,I2.2)' ) 'T2M', I IF ( .NOT. WRITE3( SOILOUT, VAR, NDATE, NTIME, HRNO_T2M( :,:,I ) ) ) THEN MESG = 'Could not write "' // TRIM( VAR ) // & '" to file "' // TRIM( SOILOUT ) // '"' CALL M3EXIT( PNAME, JDATE, JTIME, MESG, XSTAT2 ) END IF END DO IF ( .NOT. WRITE3( SOILOUT, 'LAI', NDATE, NTIME, Met_data%LAI )) THEN MESG = 'Could not write "' // TRIM( VAR ) // & '" to file "' // TRIM( SOILOUT ) // '"' CALL M3EXIT( PNAME, JDATE, JTIME, MESG, XSTAT2 ) END IF #else ! write MPAS end of day variables ==jwilliso call mio_fwrite ('MEGAN_SOILOUT', 'PTYPE', pname,PTYPE(:,1),time_stamp) call mio_fwrite ('MEGAN_SOILOUT', 'PULSEDATE', pname, PULSEDATE(:,1),time_stamp) call mio_fwrite ('MEGAN_SOILOUT', 'PULSETIME', pname, PULSETIME(:,1),time_stamp) call mio_fwrite ('MEGAN_SOILOUT', 'LAI', pname,Met_data%LAI(:,1),time_stamp) #endif WRITE( LOGDEV,94040 ) & 'Timestep written to', SOILOUT, & 'for date and time', NDATE, NTIME RETURN 94010 FORMAT( A, F10.2, 1X, A, I3, ',', I3 ) 94040 FORMAT( /5X, 3( A, :, 1X ), I8, ":", I6.6 ) C----------------------------------------------------------------------- CONTAINS REAL FUNCTION PRECIP_ADJ_PX( JDATE, JTIME, RAIN, SOILM, WSAT, & PTYPE, PULSEDATE, PULSETIME ) C----------------------------------------------------------------------- C Description: C Compute precipitation adjustment factor for estimate of NO emissions C Uses: julian day, time, soil moisture C Requires the use of three arrays that are re-used each time step: C PTYPE, PULSEDATE, PULSETIME C These arrays store the type of NO pulse initiated by the rainfall C and the starting date and time of the pulse. C Preconditions: C Soil Moisture current time, Soil Moisture previous time, C Soil type, Land Use, PTYPE, PULSEDATE, PULSETIME C Subroutines and Functions Called: C precipfact - computes precip adjustment factor from rainrate and time C since pulse initiation C pulsetype - determines type & duration of NO emission pulse from rainrate C Revision History: C 11/01 : Prototype by GAP C 3/05 : create separate functions for PX vs non-PX versions C 1/10 : J.Young - restructure C 7/31/19 J. Pleim : Corrected Soil Types and Simplified Code C----------------------------------------------------------------------- USE UTILIO_DEFN IMPLICIT NONE C Function arguments: INTEGER, INTENT( IN ) :: JDATE, JTIME REAL, INTENT( IN ) :: RAIN REAL, INTENT( IN ) :: SOILM ! only avilable if PX version REAL, INTENT( IN ) :: WSAT ! only tested for PX and CLM versions INTEGER, INTENT( INOUT ) :: PTYPE ! pulse type INTEGER, INTENT( INOUT ) :: PULSEDATE ! date of pulse start INTEGER, INTENT( INOUT ) :: PULSETIME ! date of pulse end C External functions: C Parameters: REAL, PARAMETER :: SAT_THRES = 0.95 C Local variables: INTEGER SOILCAT ! soil type category INTEGER PTYPE_TEST C----------------------------------------------------------------------- C Summary of algorithm C 1. compute rate of change of soil moisture from soil moisture C 2. estimate rainrate from soil moisture and soil moisture rate C 3. compute adjustment using pulsetype, rainrate, ptype, and date/time C if stronger NO pulse compared to previous time step, then C start a new NO emission pulse, C otherwise continue present NO pulse C 4. override adjustment for saturated soils SOILCAT = GRID_DATA%SLTYP( C,R ) IF ( SOILCAT .NE. LSM_WATER ) THEN IF ( SOILM .GE. SAT_THRES * WSAT ) THEN PRECIP_ADJ_PX = 0.0 ELSE PTYPE_TEST = PULSETYPE( RAIN ) IF ( PTYPE_TEST .GT. PTYPE ) THEN ! Rainfall class type increases PULSEDATE = JDATE ! (NO emission pulse generated) PULSETIME = JTIME PTYPE = PTYPE_TEST END IF PRECIP_ADJ_PX = PRECIPFAC( JDATE, JTIME, PULSEDATE, PULSETIME, PTYPE ) END IF ELSE PRECIP_ADJ_PX = 0.0 END IF RETURN END FUNCTION PRECIP_ADJ_PX C----------------------------------------------------------------------- REAL FUNCTION PRECIP_ADJ( JDATE, JTIME, RAIN, & PTYPE, PULSEDATE, PULSETIME ) C----------------------------------------------------------------------- C Description: C Compute precipitation adjustment factor for estimate of NO emissions C Uses: julian day, time, soil moisture C Requires the use of three arrays that are re-used each time step: C PTYPE, PULSEDATE, PULSETIME C These arrays store the type of NO pulse initiated by the rainfall C and the starting date and time of the pulse. C Preconditions: C Soil Moisture current time, Soil Moisture previous time, C Soil type, Land Use, PTYPE, PULSEDATE, PULSETIME C Subroutines and Functions Called: C precipfact - computes precip adjustment factor from rainrate and time C since pulse initiation C pulsetype - determines type & duration of NO emission pulse from rainrate C Revision History: C 11/01 : Prototype by GAP C 3/05 : created a non-PX version of this function C 1/10 : J.Young - restructure C----------------------------------------------------------------------- USE UTILIO_DEFN IMPLICIT NONE C Function arguments: INTEGER, INTENT( IN ) :: JDATE, JTIME REAL, INTENT( IN ) :: RAIN INTEGER, INTENT( INOUT ) :: PTYPE ! pulse type INTEGER, INTENT( INOUT ) :: PULSEDATE ! date of pulse start INTEGER, INTENT( INOUT ) :: PULSETIME ! time of pulse start C External functions: C Local variable INTEGER PTYPE_TEST C----------------------------------------------------------------------- C Summary of algorithm C 1. if no rainfall or new rainfall class less than current one, continue C existing NO emission pulse C 2. if new rainfall that increases rainfall class, then create new NO C emission pulse using pulsetype, rainrate, ptype, and date/time - C if stronger NO pulse compared to previous time step, then start C a new NO emission pulse PTYPE_TEST = PULSETYPE( RAIN ) IF ( PTYPE_TEST .GT. PTYPE ) THEN ! Rainfall class type increases PULSEDATE = JDATE ! (NO emission pulse generated) PULSETIME = JTIME PTYPE = PTYPE_TEST END IF PRECIP_ADJ = PRECIPFAC( JDATE, JTIME, PULSEDATE, PULSETIME, PTYPE ) RETURN END FUNCTION PRECIP_ADJ C----------------------------------------------------------------------- REAL FUNCTION PRECIPFAC( JDATE, JTIME, PDATE, PTIME, PTYPE ) C Compute a precipitation adjustment factor from a previous 24 hour rainfall C based on YL 1995 C The pulse type is an integer ranging from 0 to 3 indicating the type of C rainfall rate: C If rainfall < 0.1 cm in last 24 hr, "reset" C Else if rainfall < 0.5 cm in last 24 hr, and time since last pulse is .ge. 2 days, C reset; else, precipfact=11.19*... C Else if rainfall < 1.5 cm in last 24 hr, and time since last pulse is .ge. 6 days, C reset; else, precipfact=14.68*... C Else if rainfall >=1.5 cm in last 24 hr, and time since last pulse is .ge. 13 days, C reset; else, precipfact=18.46*... USE UTILIO_DEFN IMPLICIT NONE C Function arguments: INTEGER, INTENT( IN ) :: JDATE, JTIME, PDATE, PTIME INTEGER, INTENT( INOUT ) :: PTYPE C External functions: C Parameters: REAL, PARAMETER :: DAYPERSEC = 1.0 / ( 24.0 * 3600.0 ) ! = 0.000011574074074 C Local variables: REAL DAYDIFF, DAYDIF1 C----------------------------------------------------------------------- DAYDIFF = FLOAT( SECSDIFF( PDATE, PTIME, JDATE, JTIME ) ) * DAYPERSEC DAYDIF1 = DAYDIFF + 1.0 SELECT CASE( PTYPE ) CASE( 0 ) PRECIPFAC = 1.0 CASE( 1 ) IF ( ( DAYDIFF ) .LT. 2.0 ) THEN PRECIPFAC = 11.19 * EXP( -0.805 * DAYDIF1 ) ELSE PTYPE = 0 PRECIPFAC = 1.0 END IF CASE( 2 ) IF ( ( DAYDIFF ) .LT. 6.0 ) THEN PRECIPFAC = 14.68 * EXP( -0.384 * DAYDIF1 ) ELSE PTYPE = 0 PRECIPFAC = 1.0 END IF CASE( 3 ) IF ( ( DAYDIFF ) .LT. 13.0 ) THEN PRECIPFAC = 18.46 * EXP( -0.208 * DAYDIF1 ) ELSE PTYPE = 0 PRECIPFAC = 1.0 END IF CASE DEFAULT WRITE( MESG,'( A, I6 )' ) 'Invalid Pulse Type specified ', & PTYPE CALL M3EXIT( PNAME, 0, 0, MESG, 2 ) END SELECT RETURN END FUNCTION PRECIPFAC C----------------------------------------------------------------------- INTEGER FUNCTION PULSETYPE( RAIN ) C Compute the pulse type from the rainfall rate (see YL 1995). IMPLICIT NONE C Function arguments REAL, INTENT( IN ) :: RAIN ! [cm/24hr] C----------------------------------------------------------------------- IF ( RAIN .LT. 0.1 ) THEN PULSETYPE = 0 ELSE IF ( RAIN .LT. 0.5 ) THEN PULSETYPE = 1 ELSE IF ( RAIN .LT. 1.5 ) THEN PULSETYPE = 2 ELSE PULSETYPE = 3 END IF RETURN END FUNCTION PULSETYPE C----------------------------------------------------------------------- END SUBROUTINE MEGAN_HRNO END MODULE MEGAN_HRNO_MOD ================================================ FILE: CCTM/src/cio/centralized_io_module.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! !------------------------------------------------------------------------! ! This module contains essential data structure and functions for ! centralized I/O implementation ! Revision History: ! 02/01/19, D. Wong: initial implementation ! 02/11/19, D. Wong: Updated to accommodate STAGE option ! 03/06/19, D. Wong: fixed a bug to handle 3D emission data structure ! correctly and fixed a bug to deal with the case of ! ABFLUX turned off ! 04/01/19, D. Wong: -- enhanced robustness to handle time independent or ! dependent boundary condition file ! -- used two different CPP flags, m3dry_opt and stage_opt ! to distinguish these two deposition options ! -- reorganized the code to read in certain files when ! they are available as well as based on environmental ! variable setting ! 05/02/19, D. Wong: -- added a logic to call soilinp_setup when BIOGEMIS is true ! 05/03/19, D. Wong: -- reorganized the flow of reading in LUS data ! 05/06/19, D. Wong: -- added a new logic to read in INIT_MEDC_1 when it is not NEW_START ! 05/07/19, D. Wong: -- removed duplicated array allocation for NH4ps1 and NH4ps2 ! 05/13/19, D. Wong: -- expanded implementation to hanndle ISAM model ! 05/15/19, D. Wong: -- used USE_MARINE_GAS_EMISSION variable defined in RUNTIME_VAR.F ! to turn on a block of code related to marine gas emssion ! 06/18/19, D. Wong: -- modified cio implementation to handle: ! * emission file date is differ from simulation date ! * region files for scaling purposes ! 06/19/19, D. Wong: -- fixed a bug in the EMIS regions subroutine ! 07/08/19, F. Sidi: -- Renamed E2C_FERT -> E2C_CHEM & BELD4_LU -> E2C_LU ! 07/09/19, T. Spero: -- Changed file for fractional land use from ! GRIDCRO2D to LUFRAC_CRO. Allow backward ! compatibility. ! 07/17/19, R. Gilliam:- Removed the FPAR file call for windblow dust. MCIP VEG is used. ! 08/12/19, F. Sidi: -- Allowed lus_setup to use fractional land use from ! GRIDCRO2D or LUFRAC_CRO. Allows backward compatibility. ! 08/01/19, D. Wong:- Made modification so centralized I/O works with two-way model ! - used new variable type descriptor ! 09/10/19, D. Wong:- Extended to handle BC file with non 1-hr time step ! 09/19/19, D. Wong:- Used the start simulation time to pick up the very first emission ! data point rather than the start time in the emission file ! 09/20/19, D. Wong:- Extended the capability to handle 3D emission files with various ! number of layers less than of equal to the model number of layers ! 10/04/19, D. Wong:- fixed the time advancement, NEXTIME, for a multi-day run ! 11/22/19, F. Sidi:- Updated cio with new algorithm (developed by D. Wong) ! to enable running CMAQ with different files having ! different time steps, cleaned up code no longer needed ! & two-way model bugfixes ! 01/30/20, D. Wong:- fixed IC file interpolation time stamp issue by bypassing the ! check whether the new request falls within the circular buffer ! for IC variable which only has one time step of data. ! 02/10/20, F. Sidi:- Changed file_tstep from tstep3d to met_tstep an environment ! variable the flexlible allows users to toggle the temporal ! frequency of their input meterology. ! 03/05/20, D. Wong: Expanded CIO functionalities to MPAS as well ! 07/24/20, D. Wong: Fixed a bug, the code did not handle calling NEXTIME properly in ! an extreme case, i.e. simulation runs in a hourly basis, in the ! retrieve_boundary_data subroutine. ! 08/06/20, D. Wong:- fixed excessive reading of time independent boundary file data ! 02/23/21, D. Wong:- used KZMIN setting to determine reading in PURB or not ! 03/23/21. D. Wong:- modified code to accommodate a flexibility to allow each input ! can have different XORIG and YORIG settings than the simulation ! domain if it can be overlapped with the simulation domain ! perfectly w.r.t. domain resolution ! 11/17/21, G. Sarwar: Changed minimum values from 0.0 to 0.001 for ocean and szone ! to ensure values are nonnegative and greater than 0.001 ! 01/17/22, D. Wong: Added SAVE attribute to variable FIRSTIME ! 03/31/22, J. Willison: Removed wb_dust_setup and modified lus_setup to remove ! BELD as an option for desert land information. ! 04/12/22, G. Sarwar: Revised to include "DMS" into cb6r5_ae7_aq !------------------------------------------------------------------------! !------------------------------------------------------------------------! ! Variable type notation: ! 'mc2' denote met cro 2d variable ! 'mc3' denote 3d variable ! 'md3' denote dot variable ! 'wb' denote wind blown dust ! 'ic' denote initial condition variable ! 'is' denote ISAM initial condition variable ! 'e2d' denote emission 2d variable ! 'e3d' denote emission 3d variable ! 'lnt' denote lightning variable ! 'mb' denote met 3D boundary variable ! 'bct' denote time dependent 3D boundary variable ! 'bc' denote time independent 3D boundary variable !------------------------------------------------------------------------! MODULE CENTRALIZED_IO_MODULE use RUNTIME_VARS, only : LTNG_NO, STDATE, STTIME, ABFLUX, MOSAIC, & NPTGRPS, USE_MARINE_GAS_EMISSION, logdev, & CONVECTIVE_SCHEME, EMIS_SYM_DATE use CENTRALIZED_IO_UTIL_MODULE use get_env_module USE UTILIO_DEFN #ifdef mpas use coupler_module use mio_module #endif implicit none integer, parameter :: max_nfiles = 500 character (20), parameter :: biogemis_fname = 'BEIS_NORM_EMIS' ! to recognize the time step in each file could be different, in the new revised ! implementation will address that and here is the algorithm. When open a new file, ! n_opened_file will be incremented by one to keep track of how many have been ! opened. Each file has a unique f_name except met files which will be shared with ! one f_met since their tsteps should be the same. Then n_opened_file is assigned ! to an opened time dependent file (defined below) and time information will be ! stored accordingly. integer :: n_opened_file = 0 integer :: f_met, f_ltng, f_bcon, f_icon, f_is_icon, f_mbiog integer, allocatable :: f_emis(:), f_stk_emis(:) integer :: file_sdate(max_nfiles) = -1 integer :: file_stime(max_nfiles) = -1 integer :: file_tstep(max_nfiles) = -1 real*8 :: file_xcell(max_nfiles) = 0.0d0 real*8 :: file_ycell(max_nfiles) = 0.0d0 logical :: file_sym_date(max_nfiles) CHARACTER( 40 ), parameter :: NLDN_STRIKES = 'NLDN_STRIKES' CHARACTER( 40 ), parameter :: ICFILE = 'INIT_CONC_1' CHARACTER( 40 ), parameter :: BCFILE = 'BNDY_CONC_1' CHARACTER( 40 ), parameter :: ISAM_PREVDAY = 'ISAM_PREVDAY' ! time independent data real, allocatable :: MSFX2(:,:), ! from GRID_CRO_2D data & LWMASK(:,:), ! from GRID_CRO_2D data & HT(:,:), ! from GRID_CRO_2D data & LAT(:,:), ! from GRID_CRO_2D data & LON(:,:), ! from GRID_CRO_2D data & PURB(:,:), ! from GRID_CRO_2D data & LUFRAC(:,:,:), ! from LUFRAC_CRO data & SOILCAT_A(:,:), ! from MET_CRO_2D & MSFD2(:,:), ! from GRID_DOT_2D data & X3HT0M(:,:), ! from GRID_CRO_3D data & X3HT0F(:,:), ! from GRID_CRO_3D data & ocean(:,:), ! from OCEAN data & szone(:,:), ! from OCEAN data & chlr(:,:), ! from OCEAN data & dmsl(:,:), ! from OCEAN data & OCEAN_MASK(:,:), ! from LTNG parameter data & SLOPE(:,:), ! from LTNG parameter data & INTERCEPT(:,:), ! from LTNG parameter data & SLOPE_lg(:,:), ! from LTNG parameter data & INTERCEPT_lg(:,:), ! from LTNG parameter data & ICCG_SUM(:,:), ! from LTNG parameter data & ICCG_WIN(:,:), ! from LTNG parameter data & AVGEMIS(:,:,:,:), ! from BIOGEMIS data & GROWAGNO(:,:), ! from BEIS_NORM_EMIS data & NGROWAGNO(:,:), ! from BEIS_NORM_EMIS data & NONAGNO(:,:), ! from BEIS_NORM_EMIS data & RAINFALL(:,:,:), ! from SOILINP data & HRNO_SW(:,:,:), ! from SOILINP data & HRNO_T2M(:,:,:), ! from SOILINP data & LDF(:,:,:), ! from MEGANMAP data & LAI_M(:,:,:), ! from MEGANMAP data & EFMAPS(:,:,:), ! from MEGANMAP data & CTF(:,:,:), ! from MEGANMAP data & BDSNP_NDEP(:,:,:), ! from MEGAN_BDSNP data & BDSNP_FERT(:,:), ! from MEGAN_BDSNP data & DRYPERIOD(:,:), ! from BDSNPINP data & NDEPRES(:,:), ! from BDSNPINP data & NDEPRATE(:,:), ! from BDSNPINP data & PFACTOR(:,:), ! from BDSNPINP data & SOILMPREV(:,:), ! from BDSNPINP data & T24y(:,:), ! from MEGAN_SOILINP data & SW24y(:,:), ! from MEGAN_SOILINP data & lai_y(:,:) ! from MEGAN_SOILINP data integer, allocatable :: PTYPE(:,:), ! from SOILINP data & PULSEDATE(:,:), ! from SOILINP data & PULSETIME(:,:), ! from SOILINP data & BDSNP_LANDTYPE(:,:), ! from MEGAN_BDSNP data & BDSNP_ARID(:,:), ! from MEGAN_BDSNP data & BDSNP_NONARID(:,:) ! from MEGAN_BDSNP data character( 16 ), allocatable :: DDTTM( : ) ! for SOILINP data, description date and time ! time dependent data: ! gridded integer :: n_grid_cro_data_vars integer :: n_cio_grid_vars real, allocatable :: cio_grid_data(:) character (24), allocatable :: cio_grid_var_name(:,:) ! stores variable name, variable type and met variable ! or not information for each variable integer, allocatable :: cio_grid_data_inx (:,:,:), & head_grid(:), tail_grid(:), ! head and tail of the gridded data circular buffer & cio_grid_data_tstamp(:,:,:) character (16) :: cio_dust_land_scheme character (20), allocatable :: cio_mpas_grid_data_tstamp(:,:) ! boundary data integer :: n_cio_bndy_vars, n_cio_bc_file_vars real, allocatable :: cio_bndy_data(:) character (16), allocatable :: cio_bndy_var_name(:,:), cio_bc_file_var_name(:) integer, allocatable :: cio_bndy_data_inx (:,:,:), & head_bndy(:), tail_bndy(:), ! head and tail of the boundary data circular buffer & cio_bndy_data_tstamp(:,:,:) ! emission data ! - gridded emission data character (16), allocatable :: cio_emis_file_name(:), & cio_emis_var_name(:,:) integer, allocatable :: cio_emis_file_loc(:) integer, allocatable :: cio_emis_nvars(:) integer, allocatable :: cio_emis_file_layer(:) integer, allocatable :: cio_emis_file_startcol(:) integer, allocatable :: cio_emis_file_endcol(:) integer, allocatable :: cio_emis_file_startrow(:) integer, allocatable :: cio_emis_file_endrow(:) integer :: cio_emis_nlays ! max value among cio_emis_file_layer ! this is for MPAS only integer, allocatable :: num_dist_layers(:,:) ! number of layers in MPAS grid has re-distributed emission data real, allocatable :: dist_frac(:,:,:) ! calculated layer distribution fraction real, allocatable :: emis_file_layer_frac(:,:) ! given layer faction information integer :: mpas_tstep ! this is assigned in CMAQ_DRIVER ! - stack emission data real, allocatable :: cio_stack_data(:) character (16), allocatable :: cio_stack_file_name(:), & cio_stack_var_name(:,:), & STKGNAME( : ), ! stack groups file name & cio_mpas_stack_emis_timestamp(:) ! for MPAS only integer, allocatable :: n_cio_stack_emis_vars(:), & cio_stack_file_loc(:), & n_cio_stack_emis_lays(:), & n_cio_stack_emis_pts(:), & cio_stack_emis_data_inx (:,:,:,:), & head_stack_emis(:,:), tail_stack_emis(:,:), ! head and tail of the stack emis data circular buffer & cio_stack_emis_data_tstamp(:,:,:,:) integer :: modis_data_sdate ! modis dust data start date integer :: cio_model_sdate, & cio_model_stime ! model start date and time logical, private :: cio_LTNG_NO real :: CONVPA ! Pressure conversion factor file units to Pa Real :: P0 ! reference pressure (100000.0 Pa) for Potential Temperature, ! note that in meteorology they do not use the SI 1 ATM. ! availability of various variable logical :: CFRAC_3D_AVAIL = .true., ! CFRAC_3D is available or not & PV_AVAIL = .false., ! Potential Vorticity is available or not & TSEASFC_AVAIL = .false., ! SST is available or not & WSPD10_AVAIL, ! WSPD10 is available or not & UWINDC_AVAIL, ! UWINDC is available in DOT file or not & VWINDC_AVAIL, ! VWINDC is available in DOT file or not & QG_AVAIL = .true., ! flag for QG available in MET_CRO_3D & QI_AVAIL, ! flag for QI available in MET_CRO_3D & QS_AVAIL, ! flag for QS available in MET_CRO_3D & QC_AVAIL = .true., ! flag for QC and it is always set to .true. & JACOBF_AVAIL, ! flag for JACOBF available in MET_CRO_3D & RNA_AVAIL = .false., ! flag for RNA available in MET_CRO_2D & RCA_AVAIL = .false., ! flag for RCA available in MET_CRO_2D & RA_RS_AVAIL = .true., ! flag for RA and RS available in MET_CRO_2D & Q2_AVAIL = .true., ! flag for Q2, two meter mixing ratio available in MET_CRO_2D & LH_AVAIL, ! flag for LH, two meter mixing ratio available in MET_CRO_2D & HAS_SEAICE, ! flag for SEAICE in MET_CRO_2D & WR_AVAIL = .true., ! flag for WR, canopy wetness available in MET_CRO_2D & MEDC_AVAIL = .true., ! file INIT_MEDC_1 is available & E2C_CHEM_AVAIL = .true., ! file E2C_CHEM is available & GMN_AVAIL = .false., ! variable GMN available in E2C_CHEM or not & LUCRO_AVAIL, ! file LUFRAC_CRO is available & PXSOIL_AVAIL ! flag for WRFv4.1+ PX LSM soil extras in MET_CRO_2D ! Met data is large enough to cover boundary and no MET_BDY_3D will be used logical :: window logical :: east_pe, south_pe, west_pe, north_pe INTEGER :: TEMPG_LOC INTEGER :: TSEASFC_LOC integer :: STRTCOLSTD, ENDCOLSTD, STRTROWSTD, ENDROWSTD, ! this is for standard domain useful for coupled model & STRTCOLMC2, ENDCOLMC2, STRTROWMC2, ENDROWMC2, & STRTCOLMC2x, ENDCOLMC2x, STRTROWMC2x, ENDROWMC2x, ! extension setup for READMC2 & STRTCOLMC3, ENDCOLMC3, STRTROWMC3, ENDROWMC3, & STRTCOLMD3, ENDCOLMD3, STRTROWMD3, ENDROWMD3, & STRTCOLMD3x, ENDCOLMD3x, STRTROWMD3x, ENDROWMD3x, ! extension setup for READMD3 & STRTCOLIC, ENDCOLIC, STRTROWIC, ENDROWIC, ! for ICFILE & STRTCOLISIC, ENDCOLISIC, STRTROWISIC, ENDROWISIC, ! for ISAM ICFILE & STRTCOLLNT, ENDCOLLNT, STRTROWLNT, ENDROWLNT ! for lightning strike file private :: gridded_files_setup, & retrieve_lufrac_cro_data #ifdef mpas & ,retrieve_ocean_data_mpas #else & ,boundary_files_setup, & retrieve_grid_cro_2d_data, & retrieve_grid_dot_2d_data, & retrieve_ocean_data #endif integer, private :: count = 0 integer, private :: cio_logdev, & size_s2d, ! standard 2d cro file size (in twoway model, size_s2d not equal to size_c2d & size_s3d, ! standard 3d file size & n_c2d, size_c2d, ! cro 2d file info: # of variables and a variable size & size_c2dx, ! extended cro 2d variable size & size_d2d, ! a 2d dot variable size & size_d2dx, ! extended 2d dot variable spatial size & n_c3d, size_c3d, ! cro 3d file info: # of variables and a variable size & n_d3d, size_d3d, ! dot 3d file info: # of variables and a variable size & size_d3dx, ! extended dot 3d variable size & n_i3d, ! # of initial condition 3d variables & n_is3d, ! # of initial condition 3d variables for ISAM & n_e2d, ! # of 2d emission variables & n_e3d, size_e3d, ! # of 3d emission variables and a variable size & n_mb3d, ! # of 3d met boundary variables & n_b3d, ! # of 3d boundary variables & size_b3d, ! a 3d boundary variable size & size_b2d, ! a 2d boundary variable size & n_l2d, ! # of lightning strikes file variables & size_lt ! lightning file variable size integer, private :: cro_ncols, cro_nrows, ! cro file nools and nrows & w_cro_ncols, w_cro_nrows, ! window cro file nools and nrows & x_cro_ncols, x_cro_nrows, ! extended cro file nools and nrows & s_cro_ncols, s_cro_nrows, ! standard cro file nools and nrows (this is used to distinguish ! met cro and regular cro file in twoway coupled model & dot_ncols, dot_nrows, ! dot file nools and nrows & x_dot_ncols, x_dot_nrows ! extended dot file nools and nrows integer, private :: cio_LTLYRS ! number of layers in lightning strike dataset CHARACTER( 16 ) :: LT_NAME ! LNT name: old Cis NLDNstrk and new is LNT interface interpolate_var #ifdef mpas module procedure r_interpolate_var_1ds_mpas, & r_interpolate_var_2d_mpas, & i_interpolate_var_2d_mpas, & r_interpolate_var_3d_mpas #else module procedure r_interpolate_var_1ds, ! Interpolation for Stack Group Real 1-D Data & r_interpolate_var_2d, ! Interpolation for generic Real 2-D Data & i_interpolate_var_2d, ! Interpolation for generic Integer 2-D Data & r_interpolate_var_2db, ! Interpolation for Boundary Real 2-D Data & r_interpolate_var_3d ! Interpolation for generic Real 3-D Data #endif end interface ! MPAS only routines: ! stack_files_setup_mpas ! retrieve_stack_data_mpas ! retrieve_ocean_data_mpas ! r_interpolate_var_1d_mpas ??? ! r_interpolate_var_1ds_mpas ! r_interpolate_var_2d_mpas ! i_interpolate_var_2d_mpas ! r_interpolate_var_2dx_mpas ??? ! r_interpolate_var_3d_mpas ! Non MPAS routines: ! boundary_files_setup ! stack_files_setup ! biogemis_setup ! beis_norm_emis_setup ! depv_data_setup ! medc_file_setup ! retrieve_grid_cro_2d_data ! retrieve_grid_dot_2d_data ! retrieve_ocean_data ! retrieve_ltng_param_data ! retrieve_boundary_data ! retrieve_stack_data ! r_interpolate_var_1ds ! r_interpolate_var_2d ! i_interpolate_var_2d ! r_interpolate_var_2db ! r_interpolate_var_3d ! Common routines: ! centralized_io_init ! gridded_files_setup ! retrieve_time_dep_gridded_data ! retrieve_lufrac_cro_data ! DESID_INIT_REGIONS ! DESID_READ_NAMELIST ! soilinp_setup ! lus_setup ! megan_setup contains ! ------------------------------------------------------------------------- subroutine centralized_io_init (in_ncols) use lsm_mod, only: n_lufrac, init_lsm USE UTILIO_DEFN USE RUNTIME_VARS, only: log_heading, logdev #ifdef mpas use hgrd_defn, only : ncols use RUNTIME_VARS, only : WB_DUST, ocean_chem, BIOGEMIS_MEGAN, BIOGEMIS_BEIS use lus_defn, only : lus_init #else USE HGRD_DEFN use cgrid_spcs, only : GC_DDEP, N_GC_DDEP ! use util_module, only : index1 INCLUDE SUBST_FILES_ID ! file name parameters #endif integer, intent(in), optional :: in_ncols Character( 40 ), parameter :: pname = 'centralized_io_init' logical, save :: first_time = .true. INTEGER :: STAT CHARACTER( 120 ) :: XMSG = ' ' Character( 16 ) :: vname if (first_time) then first_time = .false. call log_heading( logdev, 'Opening CMAQ Input Files' ) #ifdef mpas call gridded_files_setup call retrieve_lufrac_cro_data if (wb_dust) then call lus_setup end if ! cio_logdev = 6 if ( WB_DUST ) then if (.not. lus_init (mminlu_mpas, lufrac_data) ) then print *, ' Error: Cannot initialize Land Use category' stop end if end if allocate (lwmask(in_ncols, 1), & lat(in_ncols, 1), & lon(in_ncols, 1), & ht(in_ncols, 1), & stat=stat) lon = g2ddata(:,:,lon_ind) lat = g2ddata(:,:,lat_ind) ht = g2ddata(:,:,ht_ind) lwmask = g2ddata(:,:,lwmask_ind) call retrieve_ocean_data_mpas cio_model_sdate = stdate cio_model_stime = sttime call stack_files_setup_mpas if (BIOGEMIS_MEGAN) then call megan_setup end if #else cio_logdev = init3() cio_model_sdate = STDATE cio_model_stime = STTIME east_pe = (mod(mype, npcol) .eq. npcol - 1) west_pe = (mod(mype, npcol) .eq. 0) north_pe = (mype .ge. npcol * (nprow - 1)) south_pe = (mype .lt. npcol) cio_LTNG_NO = LTNG_NO MEDC_AVAIL = .true. If ( .Not. Open3( INIT_MEDC_1, fsread3, pname ) ) Then MEDC_AVAIL = .false. if (abflux) then E2C_CHEM_AVAIL = .true. If ( .Not. Open3( E2C_CHEM, fsread3, pname ) ) Then XMSG = 'Open failure for ' // E2C_CHEM Call M3EXIT( PNAME, 0, 0, XMSG, XSTAT1 ) E2C_CHEM_AVAIL = .false. END IF n_opened_file = n_opened_file + 1 else E2C_CHEM_AVAIL = .false. end if END IF if (MEDC_AVAIL) then n_opened_file = n_opened_file + 1 end if call gridded_files_setup call boundary_files_setup call stack_files_setup if (BIOGEMIS_BEIS) then call biogemis_setup call beis_norm_emis_setup end if if (BIOGEMIS_MEGAN) then call megan_setup end if if (ABFLUX) then call depv_data_setup end if if (LUCRO_AVAIL) then call retrieve_lufrac_cro_data end if if (WB_DUST) then if (.not. PX_LSM) then XMSG = 'WB_DUST requires PX LSM (PX_VERSION Y)' Call M3EXIT( PNAME, 0, 0, XMSG, XSTAT1 ) end if call lus_setup end if if (HGBIDI .and. (.not. NEW_START)) then ! two level check, 1. environment variable and then GC_DDEP species list if ( index1 ( 'HG', N_GC_DDEP, GC_DDEP) .gt. 0 ) then call medc_file_setup end if end if call retrieve_grid_cro_2d_data call retrieve_grid_dot_2d_data call retrieve_ocean_data if (cio_LTNG_NO) then call retrieve_ltng_param_data end if #endif if (BIOGEMIS_BEIS .or. BIOGEMIS_MEGAN) then call soilinp_setup end if end if call retrieve_time_dep_gridded_data (cio_model_sdate, cio_model_stime) #ifdef mpas call retrieve_stack_data_mpas (cio_model_sdate, cio_model_stime) #else call retrieve_boundary_data (cio_model_sdate, cio_model_stime) call retrieve_stack_data (cio_model_sdate, cio_model_stime) #endif end subroutine centralized_io_init ! ------------------------------------------------------------------------- subroutine gridded_files_setup USE UTILIO_DEFN use HGRD_DEFN, only : ncols, nrows, mype, colsx_pe, rowsx_pe USE VGRD_DEFN, only : VGTYP_GD, nlays USE RUNTIME_VARS, only : N_FILE_GR, & STDATE, WB_DUST, ISAM_NEW_START, & local_tstep, met_tstep, NLDNSTRIKE, & LPVO3 use LSM_Mod, only : LAND_SCHEME use cgrid_spcs, only : n_gc_spcd, n_ae_spc #ifdef mpas use centralized_io_util_module, only : ext_layer_info, cal_distribution , & binary_search, quicksort use util_module, only : sec2time, nextime, index1, secsdiff #endif INCLUDE SUBST_FILES_ID ! file name parameters Character( 40 ), parameter :: pname = 'gridded_files_setup' CHARACTER( 120 ) :: XMSG = ' ' INTEGER :: GXOFF, GYOFF, stat, n, v, d_size, begin, end, adj, & n_dust_vars, idx, t, ldate, ltime, & nl, s, e, c, time, floc character( 32 ) :: tname, fname character( 24 ), allocatable :: c2d_name(:, :), c3d_name(:, :), & d3d_name(:,:), emis_name(:,:), & i3d_name(:,:), is3d_name(:,:), & l2d_name(:,:), medc_name(:,:) logical :: done = .false. logical :: found integer, allocatable :: bottom(:), top(:) integer :: emis_file_dist_layer, tdate(2), ttime(2), diffsec logical :: layer_exist #ifdef mpas n_c2d = 0 n_c3d = 0 n_d3d = 0 size_d3dx = 1 if (binary_search( 'LH', vname_2d, n2d_data) .gt. 0) then lh_avail = .true. else lh_avail = .false. end if n_opened_file = n_opened_file + 1 f_met = n_opened_file file_tstep(f_met) = mpas_tstep wspd10_avail = .true. P0 = 100000.0 QI_AVAIL = .true. QS_AVAIL = .true. JACOBF_AVAIL = .false. #else ! met grid cro 2d file IF ( .NOT. OPEN3( GRID_CRO_2D, FSREAD3, PNAME ) ) THEN XMSG = 'Could not open '// GRID_CRO_2D // ' file' CALL M3EXIT ( PNAME, 0, 0, XMSG, XSTAT1 ) END IF IF ( .NOT. DESC3( GRID_CRO_2D ) ) THEN XMSG = 'Could not get ' // GRID_CRO_2D //' file description' CALL M3EXIT ( PNAME, 0, 0, XMSG, XSTAT1 ) END IF n_grid_cro_data_vars = nvars3d LAND_SCHEME = 'UNKNOWN' v = 0 DO WHILE ((v .LT. NVARS3D) .and. (.not. done)) v = v + 1 IF ( VNAME3D( v ) .EQ. 'DLUSE' ) THEN IF ( INDEX( VDESC3D( v ), 'USGS24' ) .NE. 0 ) THEN LAND_SCHEME = 'USGS24' cio_dust_land_scheme = 'USGS24' ELSE IF ( INDEX( VDESC3D( v ), 'NLCD40' ) .NE. 0 ) THEN LAND_SCHEME = 'NLCD40' cio_dust_land_scheme = 'NLCD40' ELSE IF ( INDEX( VDESC3D( v ), 'NLCD50' ) .NE. 0 ) THEN LAND_SCHEME = 'NLCD50' cio_dust_land_scheme = 'NLCD50' ELSE IF ( INDEX( VDESC3D( v ), 'NLCD-MODIS' ) .NE. 0 ) THEN LAND_SCHEME = 'NLCD50' cio_dust_land_scheme = 'NLCD-MODIS' ELSE IF ( INDEX( VDESC3D( v ), 'MODIS' ) .NE. 0 ) THEN LAND_SCHEME = 'MODIS' IF ( INDEX( VDESC3D( v ), 'MODIS NOAH' ) .ne. 0) THEN cio_dust_land_scheme = 'MODIS_NOAH' ELSE cio_dust_land_scheme = 'MODIS' END IF END IF done = .true. END IF END DO IF ( .NOT. OPEN3( GRID_DOT_2D, FSREAD3, PNAME ) ) THEN XMSG = 'Could not open '// GRID_DOT_2D // ' file' CALL M3EXIT ( PNAME, 0, 0, XMSG, XSTAT1 ) END IF ! lufrac cro file IF ( .NOT. OPEN3( LUFRAC_CRO, FSREAD3, PNAME ) ) THEN XMSG = 'Could not open '// LUFRAC_CRO // ' file' CALL M3WARN ( PNAME, 0, 0, XMSG ) LUCRO_AVAIL = .FALSE. XMSG = 'Solution: Reading Land Use Fractions from GRID_CRO_2D file' WRITE(LOGDEV,'(5X,A)')TRIM( XMSG ) ELSE n_opened_file = n_opened_file + 1 LUCRO_AVAIL = .TRUE. IF ( .NOT. DESC3( LUFRAC_CRO ) ) THEN XMSG = 'Could not get ' // LUFRAC_CRO //' file description' CALL M3EXIT ( PNAME, 0, 0, XMSG, XSTAT1 ) END IF END IF ! met cro 2d file IF ( .NOT. OPEN3( MET_CRO_2D, FSREAD3, PNAME ) ) THEN XMSG = 'Could not open '// MET_CRO_2D // ' file' CALL M3EXIT ( PNAME, 0, 0, XMSG, XSTAT1 ) END IF n_opened_file = n_opened_file + 1 f_met = n_opened_file IF ( .NOT. DESC3( MET_CRO_2D ) ) THEN XMSG = 'Could not get ' // MET_CRO_2D //' file description' CALL M3EXIT ( PNAME, 0, 0, XMSG, XSTAT1 ) END IF file_sdate(f_met) = sdate3d file_stime(f_met) = stime3d #ifdef twoway file_tstep(f_met) = tstep3d #else file_tstep(f_met) = met_tstep ! offline model controlled by runtime var MET_TSTEP #endif file_xcell(f_met) = xcell3d file_ycell(f_met) = ycell3d IF (INDEX1( 'TSEASFC', NVARS3D, VNAME3D ) .gt. 0) then TSEASFC_AVAIL = .true. adj = 0 else TSEASFC_AVAIL = .false. adj = 1 end if HAS_SEAICE = (INDEX1( 'SEAICE', NVARS3D, VNAME3D ) .gt. 0) ! include an additional variable TSEASFC when MET_CRO_2D does not have it and CMAQ code is looking for it n_c2d = nvars3d + adj allocate (c2d_name(n_c2d, 3), stat=stat) if (stat .ne. 0) then xmsg = 'Failure allocating c2d_name ' call m3exit (pname, 0, 0, xmsg, xstat1 ) end if ! only met data has 'm' distinction and since twoway model does not provide ! boundary data, so this distinction only apply to non boundary met data c2d_name(1:nvars3d,1) = vname3d(1:nvars3d) c2d_name(:,2) = 'mc2' ! denote 2d variable c2d_name(:,3) = 'm' ! denote met variable if (adj .eq. 1) then c2d_name(n_c2d,1) = 'TSEASFC' end if WSPD10_AVAIL = (INDEX1( 'WSPD10', NVARS3D, VNAME3D ) .gt. 0) RNA_AVAIL = (INDEX1( 'RNA', NVARS3D, VNAME3D ) .gt. 0) RCA_AVAIL = (INDEX1( 'RCA', NVARS3D, VNAME3D ) .gt. 0) RA_RS_AVAIL = (INDEX1( 'RA', NVARS3D, VNAME3D ) .gt. 0) WR_AVAIL = (INDEX1( 'WR', NVARS3D, VNAME3D ) .gt. 0) Q2_AVAIL = (INDEX1( 'Q2', NVARS3D, VNAME3D ) .gt. 0) LH_AVAIL = (INDEX1( 'LH', NVARS3D, VNAME3D ) .gt. 0) PXSOIL_AVAIL = (INDEX1( 'CLAY_PX', NVARS3D, VNAME3D ) .gt. 0) CALL SUBHFILE ( MET_CRO_2D, GXOFF, GYOFF, & STRTCOLMC2, ENDCOLMC2, STRTROWMC2, ENDROWMC2 ) #ifdef twoway STRTCOLMC2x = STRTCOLMC2 STRTROWMC2x = STRTROWMC2 ENDCOLMC2x = ENDCOLMC2 ENDROWMC2x = ENDROWMC2 #else STRTCOLMC2x = STRTCOLMC2 STRTROWMC2x = STRTROWMC2 if (north_pe .and. east_pe) then ENDCOLMC2x = ENDCOLMC2 ENDROWMC2x = ENDROWMC2 else if (north_pe) then ENDCOLMC2x = ENDCOLMC2 + 1 ENDROWMC2x = ENDROWMC2 else if (east_pe) then ENDCOLMC2x = ENDCOLMC2 ENDROWMC2x = ENDROWMC2 + 1 else ENDROWMC2x = ENDROWMC2 + 1 ENDCOLMC2x = ENDCOLMC2 + 1 end if #endif ! met cro 3d file IF ( .NOT. OPEN3( MET_CRO_3D, FSREAD3, PNAME ) ) THEN XMSG = 'Could not open '// MET_CRO_3D // ' file' CALL M3EXIT ( PNAME, 0, 0, XMSG, XSTAT1 ) END IF IF ( .NOT. DESC3( MET_CRO_3D ) ) THEN XMSG = 'Could not get ' // MET_CRO_3D //' file description' CALL M3EXIT ( PNAME, 0, 0, XMSG, XSTAT1 ) END IF n_c3d = nvars3d allocate (c3d_name(n_c3d, 3), stat=stat) if (stat .ne. 0) then xmsg = 'Failure allocating c3d_name ' call m3exit (pname, 0, 0, xmsg, xstat1 ) end if c3d_name(:,1) = vname3d(1:n_c3d) c3d_name(:,2) = 'mc3' ! denote 3d variable c3d_name(:,3) = 'm' ! denote met variable CFRAC_3D_AVAIL = (INDEX1( 'CFRAC_3D', NVARS3D, VNAME3D ) .gt. 0) PV_AVAIL = (INDEX1( 'PV', NVARS3D, VNAME3D ) .gt. 0) IF ( .NOT. PV_AVAIL .AND. LPVO3 ) THEN XMSG = 'PV, potential vorticity, not found in ' // MET_CRO_3D & // ' but CTM_PVO3 option set to Yes in run-script' CALL M3EXIT ( PNAME, 0, 0, XMSG, XSTAT1 ) END IF QI_AVAIL = (INDEX1( 'QI', NVARS3D, VNAME3D ) .gt. 0) QS_AVAIL = (INDEX1( 'QS', NVARS3D, VNAME3D ) .gt. 0) QG_AVAIL = (INDEX1( 'QG', NVARS3D, VNAME3D ) .gt. 0) JACOBF_AVAIL = (INDEX1( 'JACOBF', NVARS3D, VNAME3D ) .gt. 0) QC_AVAIL = .true. CALL SUBHFILE ( MET_CRO_3D, GXOFF, GYOFF, & STRTCOLMC3, ENDCOLMC3, STRTROWMC3, ENDROWMC3 ) IF ( (ENDCOLMC3 - STRTCOLMC3 + 1) .NE. NCOLS .OR. & (ENDROWMC3 - STRTROWMC3 + 1) .NE. NROWS ) THEN WRITE( XMSG,'( A, 4I8 )' ) 'Local Columns or Rows incorrect', & (ENDCOLMC3 - STRTCOLMC3 + 1), NCOLS, (ENDROWMC3 - STRTROWMC3 + 1), NROWS CALL M3EXIT ( PNAME, cio_model_sdate, cio_model_stime, XMSG, XSTAT1 ) END IF #ifdef twoway window = .TRUE. STRTCOLMC3 = STRTCOLMC3 - 1 ENDCOLMC3 = ENDCOLMC3 + 1 STRTROWMC3 = STRTROWMC3 - 1 ENDROWMC3 = ENDROWMC3 + 1 w_cro_ncols = ENDCOLMC3 - STRTCOLMC3 + 1 w_cro_nrows = ENDROWMC3 - STRTROWMC3 + 1 #else IF ( GXOFF .NE. 0 .AND. GYOFF .NE. 0 ) THEN window = .TRUE. ! windowing from file STRTCOLMC3 = STRTCOLMC3 - 1 ENDCOLMC3 = ENDCOLMC3 + 1 STRTROWMC3 = STRTROWMC3 - 1 ENDROWMC3 = ENDROWMC3 + 1 w_cro_ncols = ENDCOLMC3 - STRTCOLMC3 + 1 w_cro_nrows = ENDROWMC3 - STRTROWMC3 + 1 ELSE window = .FALSE. w_cro_ncols = -1 w_cro_nrows = -1 if (.not. east_pe) then ENDCOLMC3 = ENDCOLMC3 + 1 end if if (.not. north_pe) then ENDROWMC3 = ENDROWMC3 + 1 end if END IF #endif V = INDEX1( 'PRES', NVARS3D, VNAME3D ) If ( V .eq. 0 ) Then XMSG = 'Could not get variable PRES from ' // MET_CRO_3D Call M3EXIT( PNAME, 0, 0, XMSG, XSTAT1 ) End If Select Case (UNITS3D( V )) Case ( 'PASCAL','pascal','Pascal','PA','pa','Pa' ) CONVPA = 1.0 P0 = 100000.0 Case ( 'MILLIBAR','millibar','Millibar','MB','mb','Mb' ) CONVPA = 1.0E-02 P0 = 100000.0 * CONVPA Case ( 'CENTIBAR','centibar','Centibar','CB','cb','Cb' ) CONVPA = 1.0E-03 P0 = 100000.0 * CONVPA Case Default XMSG = 'PRES units incorrect on ' // MET_CRO_3D Call M3EXIT( PNAME, 0, 0, XMSG, XSTAT1 ) End Select ! met dot 3d file IF ( .NOT. OPEN3( MET_DOT_3D, FSREAD3, PNAME ) ) THEN XMSG = 'Could not open '// MET_DOT_3D // ' file' CALL M3EXIT ( PNAME, 0, 0, XMSG, XSTAT1 ) END IF IF ( .NOT. DESC3( MET_DOT_3D ) ) THEN XMSG = 'Could not get description of file '// MET_DOT_3D CALL M3EXIT ( PNAME, 0, 0, XMSG, XSTAT1 ) END IF n_d3d = nvars3d allocate (d3d_name(n_d3d, 3), stat=stat) if (stat .ne. 0) then xmsg = 'Failure allocating d3d_name ' call m3exit (pname, 0, 0, xmsg, xstat1 ) end if d3d_name(:,1) = vname3d(1:n_d3d) d3d_name(:,2) = 'md3' ! denote dot variable d3d_name(:,3) = 'm' ! denote met variable CALL SUBHFILE ( MET_DOT_3D, GXOFF, GYOFF, & STRTCOLMD3, ENDCOLMD3, STRTROWMD3, ENDROWMD3 ) #ifdef twoway STRTCOLMD3x = STRTCOLMD3 STRTROWMD3x = STRTROWMD3 ENDROWMD3x = ENDROWMD3 ENDCOLMD3x = ENDCOLMD3 #else STRTCOLMD3x = STRTCOLMD3 STRTROWMD3x = STRTROWMD3 if (north_pe .and. east_pe) then ENDCOLMD3x = ENDCOLMD3 ENDROWMD3x = ENDROWMD3 else if (north_pe) then ENDCOLMD3x = ENDCOLMD3 + 1 ENDROWMD3x = ENDROWMD3 else if (east_pe) then ENDCOLMD3x = ENDCOLMD3 ENDROWMD3x = ENDROWMD3 + 1 else ENDROWMD3x = ENDROWMD3 + 1 ENDCOLMD3x = ENDCOLMD3 + 1 end if #endif dot_ncols = ENDCOLMD3 - STRTCOLMD3 + 1 dot_nrows = ENDROWMD3 - STRTROWMD3 + 1 size_d3d = dot_ncols * dot_nrows * nlays x_dot_ncols = ENDCOLMD3x - STRTCOLMD3x + 1 x_dot_nrows = ENDROWMD3x - STRTROWMD3x + 1 size_d2dx = x_dot_ncols * x_dot_nrows size_d3dx = size_d2dx * nlays UWINDC_AVAIL = (INDEX1( 'UWINDC', NVARS3D, VNAME3D ) .gt. 0) VWINDC_AVAIL = (INDEX1( 'VWINDC', NVARS3D, VNAME3D ) .gt. 0) #endif ! emission file, could be one or multiple layer call desid_read_namelist() call desid_init_regions() allocate (cio_emis_file_name(N_FILE_GR), & cio_emis_file_loc(N_FILE_GR), & cio_emis_nvars(N_FILE_GR), #ifdef mpas & num_dist_layers(ncols, n_file_gr), & dist_frac(nlays, ncols, n_file_gr), & bottom(nlays), & top(nlays), & emis_file_layer_frac(nlays, n_file_gr), #else & cio_emis_file_startcol(N_FILE_GR), & cio_emis_file_endcol(N_FILE_GR), & cio_emis_file_startrow(N_FILE_GR), & cio_emis_file_endrow(N_FILE_GR), #endif & f_emis(N_FILE_GR), & stat=stat) n_e2d = 0 n_e3d = 0 do n = 1, N_FILE_GR n_opened_file = n_opened_file + 1 f_emis(n) = n_opened_file ! Check whether file is a representative day type file_sym_date(f_emis(n)) = emis_sym_date ! Master switch to change default write (fname, '(a15, i3.3)') "GR_EM_SYM_DATE_", n call get_env(file_sym_date(f_emis(n)), fname, & file_sym_date(f_emis(n)), logdev ) write (fname, '(a8, i3.3)') "GR_EMIS_", n cio_emis_file_name(n) = fname #ifdef mpas floc = mio_search (cio_emis_file_name(n)) cio_emis_file_loc(n) = floc call mio_time_format_conversion (mio_file_data(floc)%timestamp(1), tdate(1), ttime(1)) call mio_time_format_conversion (mio_file_data(floc)%timestamp(2), tdate(2), ttime(2)) file_sdate(f_emis(n)) = tdate(1) file_stime(f_emis(n)) = ttime(1) diffsec = secsdiff (tdate(1), ttime(1), tdate(2), ttime(2)) file_tstep(f_emis(n)) = sec2time(diffsec) mio_file_data(floc)%tstep = file_tstep(f_emis(n)) layer_exist = .false. do v = 1, mio_file_data(floc)%n_global_atts if (mio_file_data(floc)%glo_att_name(v) .eq. 'layers') then layer_exist = .true. s = mio_file_data(floc)%glo_att_crange(2*v-1) e = mio_file_data(floc)%glo_att_crange(2*v) call ext_layer_info (mio_file_data(floc)%glo_att_cval(s:e), & emis_file_dist_layer, bottom, top, & emis_file_layer_frac(:,n)) end if end do if (layer_exist) then do c = 1, ncols call cal_distribution (bottom, top, g3ddata(c,1,:,zh_ind), & emis_file_layer_frac(:,n), & emis_file_dist_layer, & num_dist_layers(c,n), & dist_frac(:,c,n)) end do else num_dist_layers(:,n) = 1 dist_frac(:,:,n) = 1.0 end if cio_emis_nvars(n) = mio_file_data(floc)%nvars if (mio_file_data(floc)%nlays .eq. 1) then n_e2d = n_e2d + cio_emis_nvars(n) else n_e3d = n_e3d + cio_emis_nvars(n) end if call mio_time_format_conversion (mio_file_data(floc)%timestamp(1), file_sdate(f_emis(n)), time) #else IF ( .NOT. OPEN3( fname, FSREAD3, PNAME ) ) THEN XMSG = 'Could not open '// fname // ' file' CALL M3EXIT ( PNAME, 0, 0, XMSG, XSTAT1 ) END IF IF ( .NOT. DESC3( fname ) ) THEN XMSG = 'Could not get description of file '// fname CALL M3EXIT ( PNAME, 0, 0, XMSG, XSTAT1 ) END IF call subhfile ( cio_emis_file_name(n), gxoff, gyoff, & cio_emis_file_startcol(n), cio_emis_file_endcol(n), & cio_emis_file_startrow(n), cio_emis_file_endrow(n) ) file_sdate(f_emis(n)) = sdate3d file_stime(f_emis(n)) = stime3d file_tstep(f_emis(n)) = tstep3d file_xcell(f_emis(n)) = xcell3d file_ycell(f_emis(n)) = ycell3d found = .false. ldate = sdate3d ltime = stime3d if (ldate == stdate) then found = .true. else t = 1 do while ((t < mxrec3d) .and. (.not. found)) call nextime (ldate, ltime, tstep3d) if (ldate == stdate) then found = .true. end if t = t + 1 end do end if cio_emis_nvars(n) = nvars3d if (nlays3d .eq. 1) then n_e2d = n_e2d + cio_emis_nvars(n) else n_e3d = n_e3d + cio_emis_nvars(n) end if #endif end do #ifdef mpas deallocate (bottom, top) n_dust_vars = 0 #else ! Wind blown dust data n_dust_vars = 0 #endif n_e2d = n_e2d + n_dust_vars allocate (emis_name(n_e2d+n_e3d, 3), stat=stat) if (stat .ne. 0) then xmsg = 'Failure allocating emis_name ' call m3exit (pname, 0, 0, xmsg, xstat1 ) end if #ifndef mpas ! setup initial condition file n_i3d = 0 IF ( .NOT. OPEN3( ICFILE, FSREAD3, PNAME ) ) THEN XMSG = 'Open failure for ' // ICFILE Call M3EXIT( PNAME, 0, 0, XMSG, XSTAT1 ) END IF n_opened_file = n_opened_file + 1 f_icon = n_opened_file IF ( .NOT. DESC3( ICFILE ) ) THEN XMSG = 'Could not get description of file '// ICFILE CALL M3EXIT ( PNAME, 0, 0, XMSG, XSTAT1 ) END IF call subhfile ( ICFILE, gxoff, gyoff, & STRTCOLIC, ENDCOLIC, STRTROWIC, ENDROWIC ) ! remove duplicate name from MET_CRO_3D file adj = nvars3d do v = nvars3d, 1, -1 n = index1 (vname3d(v), n_c3d, c3d_name) if (n .gt. 0) then do idx = v+1, adj vname3d(idx-1) = vname3d(idx) end do adj = adj - 1 end if end do n_i3d = adj allocate (i3d_name(n_i3d, 3), stat=stat) if (stat .ne. 0) then xmsg = 'Failure allocating i3d_name ' call m3exit (pname, 0, 0, xmsg, xstat1 ) end if i3d_name(:,1) = vname3d(1:n_i3d) i3d_name(:,2) = 'ic' ! denote initial condition variable i3d_name(:,3) = ' ' ! denote non met variable ! setup initial condition file for ISAM n_is3d = 0 if (ISAM_NEW_START == 'N') then IF ( .NOT. OPEN3( ISAM_PREVDAY, FSREAD3, PNAME ) ) THEN XMSG = 'Open failure for ' // ISAM_PREVDAY Call M3EXIT( PNAME, 0, 0, XMSG, XSTAT1 ) END IF n_opened_file = n_opened_file + 1 f_is_icon = n_opened_file IF ( .NOT. DESC3( ISAM_PREVDAY ) ) THEN XMSG = 'Could not get description of file '// ISAM_PREVDAY CALL M3EXIT ( PNAME, 0, 0, XMSG, XSTAT1 ) END IF call subhfile ( ISAM_PREVDAY, gxoff, gyoff, & STRTCOLISIC, ENDCOLISIC, STRTROWISIC, ENDROWISIC ) n_is3d = nvars3d allocate (is3d_name(n_is3d, 3), stat=stat) if (stat .ne. 0) then xmsg = 'Failure allocating i3d_name ' call m3exit (pname, 0, 0, xmsg, xstat1 ) end if is3d_name(:,1) = vname3d(1:n_is3d) is3d_name(:,2) = 'is' ! denote ISAM initial condition variable is3d_name(:,3) = ' ' ! denote non met variable file_sdate(f_is_icon) = sdate3d file_stime(f_is_icon) = stime3d file_tstep(f_is_icon) = tstep3d file_xcell(f_is_icon) = xcell3d file_ycell(f_is_icon) = ycell3d end if ! ISAM_NEW_START #endif ! setup gridded emission file end = 0 allocate (cio_emis_file_layer(N_FILE_GR), stat=stat) do n = 1, N_FILE_GR WRITE (fname, '(a8, i3.3)') "GR_EMIS_", n #ifdef mpas floc = cio_emis_file_loc(n) nl = mio_file_data(floc)%nlays #else IF ( .NOT. DESC3( fname ) ) THEN XMSG = 'Could not get description of file '// fname CALL M3EXIT ( PNAME, 0, 0, XMSG, XSTAT1 ) END IF nl = nlays3d #endif begin = end + 1 write (tname, '(a1, i3.3)') '_', n #ifdef mpas do v = 1, mio_file_data(floc)%nvars end = end + 1 emis_name(end,1) = trim(mio_file_data(floc)%var_name(v)) // tname end do #else do v = 1, nvars3d end = end + 1 emis_name(end,1) = trim(vname3d(v)) // tname end do #endif if (nl .eq. 1) then emis_name(begin:end, 2) = 'e2d' ! e denote emission 2d variable else emis_name(begin:end, 2) = 'e3d' ! E denote emission 3d variable end if emis_name(begin:end, 3) = ' ' ! denote non met variable cio_emis_file_layer(n) = nl end do cio_emis_nlays = maxval(cio_emis_file_layer) ! If there are 3D (inline point or Lightning) sources, ! revise the top to be the model top. IF ( NPTGRPS .GT. 0 .OR. LTNG_NO ) cio_emis_nlays = NLAYS ! Make sure the top is not greater than the model top cio_emis_nlays = MAX( MIN( cio_emis_nlays, NLAYS ), 1 ) WRITE( LOGDEV,1009 ) cio_emis_nlays, NLAYS 1009 FORMAT( 5X, 'Number of Emissions Layers: ', I3 & / 5X, 'out of total Number of Model Layers:', I3 ) ! lightning file n_l2d = 0 #ifndef mpas if (NLDNSTRIKE) then IF ( .NOT. OPEN3( NLDN_STRIKES, FSREAD3, PNAME ) ) THEN XMSG = 'Open failure for ' // NLDN_STRIKES Call M3EXIT( PNAME, 0, 0, XMSG, XSTAT1 ) END IF n_opened_file = n_opened_file + 1 f_ltng = n_opened_file IF ( .NOT. DESC3( NLDN_STRIKES ) ) THEN XMSG = 'Could not get description of file '// NLDN_STRIKES CALL M3EXIT ( PNAME, 0, 0, XMSG, XSTAT1 ) END IF call subhfile ( NLDN_STRIKES, gxoff, gyoff, & STRTCOLLNT, ENDCOLLNT, STRTROWLNT, ENDROWLNT) file_sdate(f_ltng) = sdate3d file_stime(f_ltng) = stime3d file_tstep(f_ltng) = tstep3d file_xcell(f_ltng) = xcell3d file_ycell(f_ltng) = ycell3d n_l2d = nvars3d cio_LTLYRS = nlays3d allocate (l2d_name(n_l2d, 3), stat=stat) if (stat .ne. 0) then xmsg = 'Failure allocating l2d_name ' call m3exit (pname, 0, 0, xmsg, xstat1 ) end if l2d_name(:,1) = vname3d(1:n_l2d) l2d_name(:,2) = 'lnt' ! denote lightning variable l2d_name(:,3) = ' ' ! denote non met variable ! Check to see what the lightning variable name is called ! backwards (NLDNstrk) & forwards compatible (LNT) if ( index1('NLDNstrk', n_l2d ,l2d_name(:,1)) .gt. 0 ) then lt_name = 'NLDNstrk' else lt_name = 'LNT' end if end if #endif ! combining all files n_cio_grid_vars = n_c2d + n_c3d + n_d3d + n_e2d + n_e3d + n_l2d + n_i3d + n_is3d #ifdef mpas cro_ncols = ncols cro_nrows = 1 size_c2dx = 1 ! for standard domain s_cro_ncols = ncols s_cro_nrows = 1 #else cro_ncols = ENDCOLMC2 - STRTCOLMC2 + 1 cro_nrows = ENDROWMC2 - STRTROWMC2 + 1 ! for standard domain STRTCOLSTD = COLSX_PE( 1, MYPE+1 ) ENDCOLSTD = COLSX_PE( 2, MYPE+1 ) STRTROWSTD = ROWSX_PE( 1, MYPE+1 ) ENDROWSTD = ROWSX_PE( 2, MYPE+1 ) s_cro_ncols = ENDCOLSTD - STRTCOLSTD + 1 s_cro_nrows = ENDROWSTD - STRTROWSTD + 1 #endif size_c2d = cro_ncols * cro_nrows size_s2d = s_cro_ncols * s_cro_nrows if ((cro_ncols .ne. ncols) .or. (cro_nrows .ne. nrows)) then call m3exit( 'Centralized I/O',0,0,' ==d== NO ncols nrows ',1 ) end if x_cro_ncols = ENDCOLMC2x - STRTCOLMC2x + 1 x_cro_nrows = ENDROWMC2x - STRTROWMC2x + 1 size_c2dx = x_cro_ncols * x_cro_nrows size_d2d = dot_ncols * dot_nrows if (window) then size_c3d = w_cro_ncols * w_cro_nrows * nlays else size_c3d = size_c2dx * nlays end if size_e3d = size_s2d * cio_emis_nlays size_s3d = size_s2d * nlays size_lt = size_s2d * cio_LTLYRS allocate (cio_grid_var_name(n_cio_grid_vars, 3), & cio_grid_data_inx(2, 0:2, n_cio_grid_vars), & head_grid(n_cio_grid_vars), & tail_grid(n_cio_grid_vars), & cio_grid_data_tstamp(2, 0:2, n_cio_grid_vars), & cio_grid_data( size_c2dx * 3 * n_c2d ! 2d met data & + size_c2d * 3 * n_e2d ! 2d emis data & + size_c3d * 3 * n_c3d ! 3D met data & + size_e3d * 3 * n_e3d ! 3d emis data & + size_s3d * 3 * n_i3d ! 3d initial condition data & + size_s3d * 3 * n_is3d ! 3d ISAM initial condition data & + size_d3dx * 3 * n_d3d ! 3d dot data & + size_lt * 3 * n_l2d), ! lightning data & stat = stat) if (stat .ne. 0) then xmsg = 'Failure allocating cio_grid_var_name and associated arrays ' call m3exit (pname, 0, 0, xmsg, xstat1 ) end if cio_grid_data = 0.0 #ifdef mpas end = 0 allocate (cio_mpas_grid_data_tstamp(0:2, n_cio_grid_vars), & stat = stat) #else begin = 1 end = n_c2d cio_grid_var_name(begin:end, :) = c2d_name begin = end + 1 end = end + n_c3d cio_grid_var_name(begin:end, :) = c3d_name begin = end + 1 end = end + n_d3d cio_grid_var_name(begin:end, :) = d3d_name #endif begin = end + 1 end = end + n_e2d + n_e3d cio_grid_var_name(begin:end, :) = emis_name #ifndef mpas begin = end + 1 end = end + n_i3d cio_grid_var_name(begin:end, :) = i3d_name if (ISAM_NEW_START == 'N') then begin = end + 1 end = end + n_is3d cio_grid_var_name(begin:end, :) = is3d_name end if if (NLDNSTRIKE) then begin = end + 1 end = end + n_l2d cio_grid_var_name(begin:end, :) = l2d_name deallocate (l2d_name) end if deallocate (c2d_name, c3d_name, i3d_name) if (ISAM_NEW_START == 'N') then deallocate (is3d_name) end if if (.not. window) then deallocate (d3d_name) end if #endif deallocate (emis_name) call quicksort(cio_grid_var_name, 1, n_cio_grid_vars) begin = 1 do v = 1, n_cio_grid_vars ! locate certain species if (cio_grid_var_name(v,1) .eq. 'TEMPG') then tempg_loc = v else if (cio_grid_var_name(v,1) .eq. 'TSEASFC') then tseasfc_loc = v end if if (cio_grid_var_name(v,2) .eq. 'mc2') then d_size = size_c2dx else if (cio_grid_var_name(v,2) .eq. 'e2d') then d_size = size_s2d else if (cio_grid_var_name(v,2) .eq. 'mc3') then d_size = size_c3d else if (cio_grid_var_name(v,2) .eq. 'e3d') then d_size = size_e3d else if ((cio_grid_var_name(v,2) .eq. 'ic') .or. & (cio_grid_var_name(v,2) .eq. 'is')) then d_size = size_s3d else if (cio_grid_var_name(v,2) .eq. 'md3') then d_size = size_d3dx else if ((cio_grid_var_name(v,2) .eq. 'lnt') .or. & (cio_grid_var_name(v,2) .eq. 'wb')) then d_size = size_s2d else call m3exit( 'Centralized I/O',0,0,' ==d== UNKOWN',1 ) end if do n = 0, 2 cio_grid_data_inx(1, n, v) = begin end = begin + d_size - 1 cio_grid_data_inx(2, n, v) = end begin = end + 1 end do ! this is for checking purposes ! write (logdev, '(a12, i5, 1x, a16, 2a4, 10i10)') ' ==d== file ', v, ! & cio_grid_var_name(v,:), cio_grid_data_inx(:,:,v) end do end subroutine gridded_files_setup ! ------------------------------------------------------------------------- subroutine retrieve_time_dep_gridded_data (jdate, jtime, vname) USE UTILIO_DEFN USE HGRD_DEFN USE VGRD_DEFN, ONLY : NLAYS USE CGRID_SPCS use get_env_module #ifdef mpas use mio_module use util_module, only : nextime use coupler_module, only : cell_area ! use centralized_io_util_module, only : binary_search !#else ! use centralized_io_util_module, only : binary_search #endif use centralized_io_util_module, only : binary_search INCLUDE SUBST_FILES_ID ! file name parameters integer, intent(in) :: jdate, jtime character (*), intent(in), optional :: vname Character( 40 ), parameter :: pname = 'retrieve_time_dep_gridded_data' LOGICAL, SAVE :: firstime = .true. INTEGER :: STAT, i, j, k, begin, end, buf_loc, iterations, iter, & data_jdate, data_jtime, & v, beg_v, end_v, fnum, str_len, & t_beg, t_end, floc integer, allocatable :: tdata(:), loc_jdate(:), loc_jtime(:) character (16) :: loc_vname character (20) :: fname character (20), allocatable, save :: mpas_loc_time_stamp(:) CHARACTER( 120 ) :: XMSG = ' ' #ifdef mpas real, save, allocatable :: mpas_tdata(:,:), temp_data_1d(:), temp_data_2d(:,:) character (20) :: loc_mpas_time_stamp ! this is for mpas only character (20), save :: mpas_time_stamp ! this is for mpas only integer, save :: pre_jdate, pre_jtime ! this is fore mpas only character( 40 ), save :: exception1, exception2 #endif allocate (loc_jdate(n_opened_file), loc_jtime(n_opened_file), STAT=STAT) if (firstime) then #ifdef mpas allocate (mpas_loc_time_stamp(n_opened_file), STAT=STAT) do k = 1, N_FILE_GR write (fname, '(a8, i3.3)') "GR_EMIS_", k i = mio_search (fname) mpas_loc_time_stamp(f_emis(k)) = mio_file_data(i)%timestamp(1) end do pre_jdate = -1 pre_jtime = -1 call get_env (exception1, 'exception1', ' ') call get_env (exception2, 'exception2', ' ') #else allocate (SOILCAT_A(ncols, nrows), STAT=STAT) IF ( STAT .NE. 0 ) THEN XMSG = 'Failure allocating SLTYP array' CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT3 ) END IF #ifdef twoway If ( .Not. INTERPX( MET_CRO_2D, 'SLTYP', PNAME, & STRTCOLMC2, ENDCOLMC2,STRTROWMC2, ENDROWMC2, 1, 1, & jdate, jtime, SOILCAT_A ) ) THEN XMSG = ' Error interpolating variable SLTYP from ' // MET_CRO_2D Call M3EXIT( PNAME, 0, 0, XMSG, XSTAT1 ) END IF #else If ( .Not. XTRACT3( MET_CRO_2D, 'SLTYP', & 1, 1, STRTROWMC2, ENDROWMC2, STRTCOLMC2, ENDCOLMC2, & jdate, jtime, SOILCAT_A ) ) THEN XMSG = ' Error interpolating variable SLTYP from ' // MET_CRO_2D Call M3EXIT( PNAME, 0, 0, XMSG, XSTAT1 ) END IF #endif #endif head_grid = -1 tail_grid = -1 iterations = 2 else iterations = 1 end if ! firstime if (present(vname)) then beg_v = binary_search (vname, cio_grid_var_name(:,1), n_cio_grid_vars) end_v = beg_v else beg_v = 1 end_v = n_cio_grid_vars end if loc_jdate = jdate loc_jtime = jtime do iter = 1, iterations do v = beg_v, end_v buf_loc = mod((tail_grid(v) + iter), 2) begin = cio_grid_data_inx(1,buf_loc,v) end = cio_grid_data_inx(2,buf_loc,v) if (cio_grid_var_name(v,2) == 'mc2') then #ifndef mpas data_jdate = loc_jdate(f_met) data_jtime = loc_jtime(f_met) if ((cio_grid_var_name(v,1) .ne. 'TSEASFC') .or. TSEASFC_AVAIL) then #ifdef twoway IF ( .NOT. INTERPX( MET_CRO_2D, cio_grid_var_name(v,1), PNAME, & STRTCOLMC2x, ENDCOLMC2x, STRTROWMC2x, ENDROWMC2x, 1, 1, & data_jdate, data_jtime, cio_grid_data(begin:end) ) ) THEN XMSG = 'Could not extract ' // MET_CRO_2D // ' file' CALL M3EXIT ( PNAME, DATA_JDATE, DATA_JTIME, XMSG, XSTAT1 ) END IF #else IF ( .NOT. XTRACT3( MET_CRO_2D, cio_grid_var_name(v,1), & 1, 1, STRTROWMC2x, ENDROWMC2x, STRTCOLMC2x, ENDCOLMC2x, & data_jdate, data_jtime, cio_grid_data(begin:end) ) ) THEN XMSG = 'Could not extract ' // MET_CRO_2D // ' file' CALL M3EXIT ( PNAME, DATA_JDATE, DATA_JTIME, XMSG, XSTAT1 ) END IF #endif END IF ! deal with convective scheme if ((cio_grid_var_name(v,1) .eq. 'RC') .or. & (cio_grid_var_name(v,1) .eq. 'RCA')) then if (maxval(cio_grid_data(begin:end)) .lt. 0.0) then convective_scheme = .false. cio_grid_data(begin:end) = 0.0 XMSG = 'MCIP files indicate no convective parameterization was ' & // 'used in the WRF simulation' CALL M3WARN (PNAME, JDATE, JTIME, XMSG) XMSG = 'Processing will continue without subgrid clouds' CALL M3MESG (XMSG) else where (cio_grid_data(begin:end) .lt. 0.0) cio_grid_data(begin:end) = 0.0 end if end if else if (cio_grid_var_name(v,2) == 'mc3') then data_jdate = loc_jdate(f_met) data_jtime = loc_jtime(f_met) #ifdef twoway IF ( .NOT. INTERPX( MET_CRO_3D, cio_grid_var_name(v,1), PNAME, & STRTCOLMC3, ENDCOLMC3, STRTROWMC3, ENDROWMC3, 1, nlays, & data_jdate, data_jtime, cio_grid_data(begin:end) ) ) THEN XMSG = 'Could not extract ' // MET_CRO_3D // ' file' CALL M3EXIT ( PNAME, data_jdate, data_jtime, XMSG, XSTAT1 ) END IF #else IF ( .NOT. XTRACT3( MET_CRO_3D, cio_grid_var_name(v,1), & 1, nlays, STRTROWMC3, ENDROWMC3, STRTCOLMC3, ENDCOLMC3, & data_jdate, data_jtime, cio_grid_data(begin:end) ) ) THEN XMSG = 'Could not extract ' // MET_CRO_3D // ' file' CALL M3EXIT ( PNAME, data_jdate, data_jtime, XMSG, XSTAT1 ) END IF #endif else if (cio_grid_var_name(v,2) == 'md3') then data_jdate = loc_jdate(f_met) data_jtime = loc_jtime(f_met) #ifdef twoway IF ( .NOT. INTERPX( MET_DOT_3D, cio_grid_var_name(v,1), PNAME, & STRTCOLMD3x, ENDCOLMD3x, STRTROWMD3x, ENDROWMD3x, 1, nlays, & data_jdate, data_jtime, cio_grid_data(begin:end) ) ) THEN XMSG = 'Could not extract ' // MET_DOT_3D // ' file' CALL M3EXIT ( PNAME, data_jdate, data_jtime, XMSG, XSTAT1 ) END IF #else IF ( .NOT. XTRACT3( MET_DOT_3D, cio_grid_var_name(v,1), & 1, nlays, STRTROWMD3x, ENDROWMD3x, STRTCOLMD3x, ENDCOLMD3x, & data_jdate, data_jtime, cio_grid_data(begin:end) ) ) THEN XMSG = 'Could not extract ' // MET_DOT_3D // ' file' CALL M3EXIT ( PNAME, data_jdate, data_jtime, XMSG, XSTAT1 ) END IF #endif #endif else if (cio_grid_var_name(v,2) == 'e2d') then str_len = len_trim(cio_grid_var_name(v,1)) read (cio_grid_var_name(v,1)(str_len-2:str_len), *) fnum loc_vname = cio_grid_var_name(v,1)(1:str_len-4) #ifdef mpas floc = cio_emis_file_loc(fnum) if (.not. allocated(mpas_tdata)) then allocate (mpas_tdata(ncols, nlays), & temp_data_1d(ncols), & stat=stat) end if loc_mpas_time_stamp = mpas_loc_time_stamp(f_emis(fnum)) call mio_fread (cio_emis_file_name(fnum), & loc_vname, & pname, & mpas_tdata, & loc_mpas_time_stamp) ! de-normalized the data mpas_tdata = 0.0 if ((cio_emis_file_name(fnum) .eq. exception1) .or. & (cio_emis_file_name(fnum) .eq. exception2)) then do i = 1, ncols do k = 1, num_dist_layers(i,fnum) mpas_tdata(i,k) = temp_data_1d(i) * dist_frac(k,i,fnum) end do end do else do i = 1, ncols do k = 1, num_dist_layers(i,fnum) mpas_tdata(i,k) = temp_data_1d(i) * dist_frac(k,i,fnum) !* cell_area(i,1) end do end do end if ! do i = 1, ncols ! mpas_tdata(i,:) = mpas_tdata(i,:) * cell_area(i,1) ! end do cio_grid_data(begin:end) = reshape(mpas_tdata, (/ end-begin+1 /)) #else ! Check if its a representative day on start-up (every other time it will ! be managed by the emissions processing) if (firstime) then if (file_sym_date(f_emis(fnum))) loc_jdate(f_emis(fnum)) = file_sdate(f_emis(fnum)) end if data_jdate = loc_jdate(f_emis(fnum)) data_jtime = loc_jtime(f_emis(fnum)) IF ( .NOT. XTRACT3( cio_emis_file_name(fnum), loc_vname, 1, 1, & cio_emis_file_startrow(fnum), cio_emis_file_endrow(fnum), & cio_emis_file_startcol(fnum), cio_emis_file_endcol(fnum), & data_jdate, data_jtime, cio_grid_data(begin:end) ) ) THEN XMSG = 'Could not extract ' // cio_emis_file_name(fnum) // ' file' CALL M3EXIT ( PNAME, data_jdate, data_jtime, XMSG, XSTAT1 ) END IF #endif else if (cio_grid_var_name(v,2) == 'e3d') then str_len = len_trim(cio_grid_var_name(v,1)) read (cio_grid_var_name(v,1)(str_len-2:str_len), *) fnum loc_vname = cio_grid_var_name(v,1)(1:str_len-4) #ifdef mpas floc = cio_emis_file_loc(fnum) if (.not. allocated(mpas_tdata)) then allocate (mpas_tdata(ncols, nlays), & temp_data_1d(ncols), & stat=stat) end if file_tstep(f_emis(fnum)) = mio_file_data(floc)%tstep ! Check if its a representative day on start-up (every other ! time it will be managed by the emissions processing) if (firstime) then if (file_sym_date(f_emis(fnum))) loc_jdate(f_emis(fnum)) = file_sdate(f_emis(fnum)) end if data_jdate = loc_jdate(f_emis(fnum)) data_jtime = loc_jtime(f_emis(fnum)) call mio_time_format_conversion (data_jdate, data_jtime, loc_mpas_time_stamp) call mio_fread (cio_emis_file_name(fnum), & loc_vname, & pname, & temp_data_1d, & loc_mpas_time_stamp) cio_mpas_grid_data_tstamp(buf_loc, v) = loc_mpas_time_stamp call mio_time_format_conversion (loc_mpas_time_stamp, data_jdate, data_jtime) ! de-normalized the data mpas_tdata = 0.0 do i = 1, ncols do k = 1, num_dist_layers(i,fnum) ! mpas_tdata(i,k) = temp_data_1d(i) * dist_frac(k,i,fnum) mpas_tdata(i,k) = temp_data_1d(i) * dist_frac(k,i,fnum) * cell_area(i,1) end do end do t_beg = begin t_end = begin + ncols - 1 do k = 1, nlays cio_grid_data(t_beg:t_end) = mpas_tdata(:,k) t_beg = t_end + 1 t_end = t_end + ncols end do #else ! Check if its a representative day on start-up (every other time it will ! be managed by the emissions processing) if (firstime) then if (file_sym_date(f_emis(fnum))) loc_jdate(f_emis(fnum)) = file_sdate(f_emis(fnum)) end if data_jdate = loc_jdate(f_emis(fnum)) data_jtime = loc_jtime(f_emis(fnum)) IF ( .NOT. XTRACT3( cio_emis_file_name(fnum), loc_vname, & 1, cio_emis_file_layer(fnum), & cio_emis_file_startrow(fnum), cio_emis_file_endrow(fnum), & cio_emis_file_startcol(fnum), cio_emis_file_endcol(fnum), & data_jdate, data_jtime, cio_grid_data(begin:end) ) ) THEN XMSG = 'Could not extract ' // cio_emis_file_name(fnum) // ' file' CALL M3EXIT ( PNAME, data_jdate, data_jtime, XMSG, XSTAT1 ) END IF #endif else if (cio_grid_var_name(v,2) == 'ic') then #ifndef mpas data_jdate = loc_jdate(f_icon) data_jtime = loc_jtime(f_icon) if (iter == 1) then IF ( .NOT. XTRACT3( ICFILE, cio_grid_var_name(v,1), & 1, nlays, STRTROWIC, ENDROWIC, STRTCOLIC, ENDCOLIC, & data_jdate, data_jtime, cio_grid_data(begin:end) ) ) THEN XMSG = 'Could not extract ' // ICFILE // ' file' CALL M3EXIT ( PNAME, data_jdate, data_jtime, XMSG, XSTAT1 ) END IF end if #endif else if (cio_grid_var_name(v,2) == 'is') then #ifndef mpas data_jdate = loc_jdate(f_is_icon) data_jtime = loc_jtime(f_is_icon) if ((iter == 1) .and. (ISAM_NEW_START == 'N')) then IF ( .NOT. XTRACT3( ISAM_PREVDAY, cio_grid_var_name(v,1), & 1, nlays, STRTROWISIC, ENDROWISIC, STRTCOLISIC, ENDCOLISIC, & data_jdate, data_jtime, cio_grid_data(begin:end) ) ) THEN XMSG = 'Could not extract ' // ISAM_PREVDAY // ' file' CALL M3EXIT ( PNAME, data_jdate, data_jtime, XMSG, XSTAT1 ) END IF end if #endif else if (cio_grid_var_name(v,2) == 'lnt') then #ifndef mpas data_jdate = loc_jdate(f_ltng) data_jtime = loc_jtime(f_ltng) IF ( .NOT. XTRACT3( NLDN_STRIKES, cio_grid_var_name(v,1), & 1, cio_LTLYRS, STRTROWLNT, ENDROWLNT, STRTCOLLNT, ENDCOLLNT, & data_jdate, data_jtime, cio_grid_data(begin:end) ) ) THEN XMSG = 'Could not extract ' // NLDN_STRIKES // ' file' CALL M3EXIT ( PNAME, data_jdate, data_jtime, XMSG, XSTAT1 ) END IF #endif else CALL M3EXIT( 'Centralized I/O',0,0,' ==d== UNKOWN Type of File',1 ) end if cio_grid_data_tstamp(1, buf_loc, v) = data_jdate cio_grid_data_tstamp(2, buf_loc, v) = data_jtime end do #ifndef mpas ! assign TEMPG to TSEASFC when TSEASFC is not available in the input file if (.not. TSEASFC_AVAIL) then begin = cio_grid_data_inx(1,buf_loc,tempg_loc) end = cio_grid_data_inx(2,buf_loc,tempg_loc) i = cio_grid_data_inx(1,buf_loc,tseasfc_loc) j = cio_grid_data_inx(2,buf_loc,tseasfc_loc) cio_grid_data(i:j) = cio_grid_data(begin:end) end if CALL NEXTIME ( loc_jdate(f_met), loc_jtime(f_met), file_tstep(f_met) ) if (NLDNSTRIKE) then CALL NEXTIME ( loc_jdate(f_ltng), loc_jtime(f_ltng), file_tstep(f_ltng) ) end if CALL NEXTIME ( loc_jdate(f_bcon), loc_jtime(f_bcon), file_tstep(f_bcon) ) #endif do i = 1, N_FILE_GR CALL NEXTIME ( loc_jdate(f_emis(i)), loc_jtime(f_emis(i)), file_tstep(f_emis(i)) ) end do end do ! end iter if (firstime) then firstime = .false. head_grid = 0 tail_grid = 1 else do v = beg_v, end_v head_grid(v) = mod(head_grid(v)+1, 2) tail_grid(v) = mod(tail_grid(v)+1, 2) end do end if #ifdef mpas pre_jdate = jdate pre_jtime = jtime #endif deallocate (loc_jdate, loc_jtime) end subroutine retrieve_time_dep_gridded_data ! ------------------------------------------------------------------------- subroutine retrieve_lufrac_cro_data USE UTILIO_DEFN USE HGRD_DEFN USE LSM_Mod, ONLY: n_lufrac, init_lsm INCLUDE SUBST_FILES_ID ! file name parameters Character( 40 ), parameter :: pname = 'retrieve_lufrac_cro_data' integer :: startcol, endcol, startrow, endrow, gxoff, gyoff CHARACTER( 120 ) :: XMSG = ' ' INTEGER :: STAT, n, c CALL INIT_LSM( 0, 0 ) allocate (LUFRAC(ncols, nrows, n_lufrac), STAT=STAT) IF ( STAT .NE. 0 ) THEN XMSG = 'Failure allocating LUFRAC array' CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT3 ) END IF #ifdef mpas do n = 1, n_lufrac do c = 1, ncols lufrac(c,1,n) = lufrac_data(n,c) end do end do #else CALL SUBHFILE ( LUFRAC_CRO, GXOFF, GYOFF, & startcol, endcol, startrow, endrow ) IF ( .Not. XTRACT3( LUFRAC_CRO, 'LUFRAC', & 1, n_lufrac, startrow, endrow, startcol, endcol, & 0, 0, LUFRAC ) ) THEN XMSG = 'Error interpolating variable LUFRAC from ' // LUFRAC_CRO Call M3EXIT( PNAME, 0, 0, XMSG, XSTAT1 ) END IF #endif end subroutine retrieve_lufrac_cro_data !----------------------------------------------------------------------- SUBROUTINE DESID_INIT_REGIONS( ) ! ! This subroutine defines several hardcoded rules for emissions ! scaling that will apply by default. These include subtracting NH3 ! from fertilizer emissions if BiDi is turned on, moving all ! sulfuric acid vapor to the particle phase upon emission and ! splitting up the coarse mode anthropogenic emissions mass into ! speciated compounds. !----------------------------------------------------------------------- USE GRID_CONF USE UTILIO_DEFN USE desid_param_module USE UTIL_FAMILY_MODULE USE UTILIO_DEFN #ifdef mpas USE util_module, only : index1, upcase #else #ifdef parallel USE SE_MODULES ! stenex (using SE_UTIL_MODULE,SE_DATA_COPY_MODULE) #else USE NOOP_MODULES ! stenex (using NOOP_UTIL_MODULE,NOOP_DATA_COPY_MODULE) #endif #endif #ifdef sens USE DDM3D_DEFN, ONLY: NP, NPMAX, S_NRGN, S_RGNLBL, IREGION #endif IMPLICIT NONE TYPE( DESID_REG_TYPE) :: DESID_REG_READ( DESID_MAX_REG ) INTEGER, PARAMETER :: NFILE0 = 200 CHARACTER( 32 ) :: FILENAMES( NFILE0 ) = '' CHARACTER( 32 ) :: VNAME INTEGER :: IRGN, NFILE, IDX, IFILE, IREAD, IVAR, IFAM, JRGN INTEGER :: GXOFF, GYOFF, ENDCOL, ENDROW, STARTCOL, STARTROW INTEGER :: N_REG_RULE CHARACTER( 16 ) :: PNAME = "DESID_INIT_REGIONS" CHARACTER( 250) :: XMSG REAL, ALLOCATABLE :: REG_FACI(:,:), REG_FACJ(:,:) integer :: ldate, ltime, floc CHARACTER( 16 ) :: lvname ! Find the total number of regions to be processed N_REG_RULE = 0 ! The first region is the entire domain DO IRGN = 1,DESID_MAX_REG IF ( DESID_REG_NML( IRGN )%LABEL .EQ. '' ) EXIT N_REG_RULE = N_REG_RULE + 1 END DO ! Allocate Vectors and Arrays for Each Region ALLOCATE( DESID_REG( DESID_MAX_REG ) ) DESID_REG( 1 )%LABEL = 'EVERYWHERE' DESID_REG( 1 )%FILE = 'N/A' DESID_REG( 1 )%VAR = 'N/A' DESID_REG( 1 )%FILENUM = 1 DESID_N_REG = 1 ALLOCATE( DESID_REG_FAC( NCOLS,NROWS,DESID_MAX_REG ) ) DESID_REG_FAC = 0.0 DESID_REG_FAC( :,:,1 ) = 1.0 ! Populate global Region properties structure. Also assign each ! region a number according to the file it comes from. 1 = ! domain-wide. NFILE = 1 FILENAMES( 1 ) = 'N/A' IF ( N_REG_RULE .GT. 0 ) THEN DO IREAD = 1,N_REG_RULE CALL UPCASE( DESID_REG_NML( IREAD )%LABEL ) CALL UPCASE( DESID_REG_NML( IREAD )%FILE ) CALL UPCASE( DESID_REG_NML( IREAD )%VAR ) DESID_REG_READ( IREAD )%LABEL = DESID_REG_NML( IREAD )%LABEL ! Region Name DESID_REG_READ( IREAD )%FILE = DESID_REG_NML( IREAD )%FILE ! Logical filename DESID_REG_READ( IREAD )%VAR = DESID_REG_NML( IREAD )%VAR ! Variable from file ! used to inform mask IDX = INDEX1( DESID_REG_READ( IREAD )%FILE, NFILE, FILENAMES(1:NFILE) ) IF ( IDX .NE. 0 ) THEN DESID_REG_READ( IREAD )%FILENUM = IDX ELSE NFILE = NFILE + 1 DESID_REG_READ( IREAD )%FILENUM = NFILE FILENAMES( NFILE ) = DESID_REG_READ( IREAD )%FILE END IF END DO ! Process each region by looping through the pertinent files, ! look up maps and save the data in a global array DO IFILE = 1,NFILE IF ( FILENAMES( IFILE ) .EQ. 'N/A' ) CYCLE #ifdef mpas floc = mio_search (filenames( ifile )) ldate = 0 ltime = 0 #else ! Get domain decomp info from the emissions file CALL SUBHFILE ( FILENAMES( IFILE ), GXOFF, GYOFF, & STARTCOL, ENDCOL, STARTROW, ENDROW ) ! Open input file IF ( .NOT. OPEN3( FILENAMES( IFILE ), FSREAD3, PNAME ) ) THEN XMSG = 'Could not open '// FILENAMES( IFILE ) // ' file' CALL M3EXIT( PNAME, STDATE, STTIME, XMSG, XSTAT1 ) END IF n_opened_file = n_opened_file + 1 ! Retrieve File Header Information IF ( .NOT. DESC3( FILENAMES( IFILE ) ) ) THEN XMSG = 'Could not get ' // FILENAMES( IFILE ) // ' file description' CALL M3EXIT( PNAME, STDATE, STTIME, XMSG, XSTAT1 ) END IF #endif ! Read data from regions file into region array DO IREAD = 1,N_REG_RULE IF ( DESID_REG_READ( IREAD )%FILENUM .EQ. IFILE ) THEN IF ( DESID_REG_READ( IREAD )%VAR .EQ. 'ALL' ) THEN ! Populate the region array with all of the ! variables on this file IF ( DESID_REG_READ( IREAD )%LABEL .NE. 'ALL' ) THEN XMSG = 'Error reading Region input in Emissions Control file.'// & 'If the variable name is set to "ALL", then the label must'// & 'also be set to "ALL".' CALL M3EXIT( PNAME, STDATE, STTIME, XMSG, XSTAT1 ) ELSE #ifdef mpas DO IVAR = 1, cio_emis_nvars(ifile) lvname = mio_file_data(floc)%var_name(ivar) #else DO IVAR = 1,NVARS3D lvname = vname3d( ivar ) #endif DESID_N_REG = DESID_N_REG + 1 DESID_REG( DESID_N_REG )%LABEL = lvname DESID_REG( DESID_N_REG )%VAR = lvname DESID_REG( DESID_N_REG )%FILE = DESID_REG_READ( IREAD )%FILE DESID_REG( DESID_N_REG )%FILENUM = DESID_REG_READ( IREAD )%FILENUM #ifdef mpas call mio_fread (FILENAMES(IFILE), lvname, pname, DESID_REG_FAC(:,1,DESID_N_REG)) #else IF ( .NOT. XTRACT3( FILENAMES( IFILE ), VNAME3D(IVAR), 1, 1, & STARTROW, ENDROW, STARTCOL, ENDCOL, & 0, 0, DESID_REG_FAC( 1,1,DESID_N_REG ) ) ) Then XMSG = 'Could not read ' // VNAME3D(IVAR) // & 'from file ' // FILENAMES( IFILE ) CALL M3WARN ( PNAME, 0, 0, XMSG ) End If #endif END DO END IF ELSE ! Populate the region array with only this variable DESID_N_REG = DESID_N_REG + 1 DESID_REG( DESID_N_REG ) = DESID_REG_READ( IREAD ) VNAME = DESID_REG_READ( IREAD )%VAR #ifdef mpas call mio_fread (FILENAMES(IFILE), VNAME, pname, DESID_REG_FAC(:,1,DESID_N_REG)) #else IF ( .NOT. XTRACT3( FILENAMES( IFILE ), VNAME, 1, 1, & STARTROW, ENDROW, STARTCOL, ENDCOL, & 0, 0, DESID_REG_FAC( 1,1,DESID_N_REG ) ) ) Then XMSG = 'Could not read ' // VNAME // & 'from file ' // FILENAMES( IFILE ) CALL M3WARN ( PNAME, 0, 0, XMSG ) End If #endif END IF END IF END DO #ifndef mpas ! Close Regions File IF ( .NOT. CLOSE3( FILENAMES( IFILE ) ) ) THEN XMSG = 'Could not close ' // FILENAMES( IFILE ) CALL M3EXIT( PNAME, SDATE3D, STIME3D, XMSG, XSTAT1 ) END IF #endif ! Error Check the Regions Array ! Any Negatives? DO IRGN = 1,DESID_N_REG IF ( ANY( DESID_REG_FAC( :,:,IRGN ) .LT. 0.0 ) ) THEN XMSG = 'Region ' // TRIM( DESID_REG( IRGN )%LABEL) // ' on file ' // & TRIM( FILENAMES( IFILE )) // ' contains a ' // & 'negative value. The expected range is 0-1.' CALL M3EXIT( PNAME, STDATE, STTIME, XMSG, 1 ) ELSE IF ( ANY( DESID_REG_FAC( :,:,IRGN ) .GT. 1.01 ) ) THEN XMSG = 'Region ' // TRIM( DESID_REG( IRGN )%LABEL) // ' on file ' // & TRIM( FILENAMES( IFILE )) // ' contains a ' // & 'value greater than 1. The expected range is 0-1.' CALL M3EXIT( PNAME, STDATE, STTIME, XMSG, 1 ) END IF ! Condition mask values to be at most 1.0 DESID_REG_FAC( :,:,IRGN ) = MIN( 1.0, DESID_REG_FAC( :,:,IRGN ) ) END DO END DO ! IFILE ! Augment Emission Region Structure with Region Families DO IFAM = 1,Desid_N_Reg_Fams DESID_N_REG = DESID_N_REG + 1 CALL UPCASE( RegionFamilyName( IFAM ) ) DESID_REG( DESID_N_REG )%LABEL = RegionFamilyName( IFAM ) DESID_REG( DESID_N_REG )%VAR = 'Family' DESID_REG( DESID_N_REG )%FILE = 'Family' DESID_REG( DESID_N_REG )%FILENUM = 0 DO IRGN = 1,RegionFamilyNum( IFAM ) CALL UPCASE( RegionFamilyMembers( IFAM,IRGN ) ) JRGN = INDEX1( RegionFamilyMembers( IFAM,IRGN ), DESID_N_REG-1, & DESID_REG( 1:(DESID_N_REG-1) )%VAR ) IF ( JRGN .GT. 0 ) & DESID_REG_FAC( :,:,DESID_N_REG ) = & MIN( 1.0, DESID_REG_FAC( :,:,DESID_N_REG ) + & DESID_REG_FAC( :,:,JRGN ) ) END DO END DO END IF DESID_REG = DESID_REG( 1:DESID_N_REG ) DESID_REG_FAC = DESID_REG_FAC( :,:,1:DESID_N_REG ) ! Determine Which Regions are Subsets of Larger Regions and ! save special relationship for use in EMISS_SCALING. ALLOCATE( DESID_REG_SUB( DESID_N_REG, DESID_N_REG ) ) DESID_REG_SUB(:,:) = .FALSE. ! Initialize with no region subsets DESID_REG_SUB(1,:) = .TRUE. ! All regions are a subset of Region 1 (Everywhere) DESID_REG_SUB(1,1) = .FALSE. ! No regions are subsets of themselves ALLOCATE( REG_FACI(GL_NCOLS,GL_NROWS), & REG_FACJ(GL_NCOLS,GL_NROWS) ) DO IRGN = 2,DESID_N_REG #ifndef mpas #ifdef parallel CALL SUBST_GLOBAL_GATHER( DESID_REG_FAC(:,:,IRGN), REG_FACI ) #else REG_FACI = DESID_REG_FAC(:,:,IRGN) #endif #endif DO JRGN = 1,DESID_N_REG #ifndef mpas #ifdef parallel CALL SUBST_GLOBAL_GATHER( DESID_REG_FAC(:,:,JRGN), REG_FACJ ) #else REG_FACJ = DESID_REG_FAC(:,:,JRGN) #endif #endif IF ( MYPE .EQ. 0 ) THEN IF ( JRGN .NE. IRGN .AND. & ANY( REG_FACJ(:,:) .GT. 0. ) .AND. & ALL( REG_FACI(:,:)+1.0E-6 .GT. & REG_FACJ(:,:) ) ) THEN ! Assume JRGN is a subset of IRGN. Both have to be ! non-zero somewhere in the domain. DESID_REG_SUB( IRGN,JRGN ) = .TRUE. END IF END IF ! Only perform algorithm on main processor END DO END DO DEALLOCATE( REG_FACI, REG_FACJ ) #ifndef mpas #ifdef parallel CALL SUBST_GLOBAL_BCAST( DESID_REG_SUB ) #endif #endif #ifdef sens ! Populate IREGION(NCOLS,NROW,NLAYS,NPMAX) with regions data if specified !' DO NP = 1, NPMAX IF ( S_NRGN( NP ) .GT. 0 .AND. S_NRGN( NP ) .LT. 99 ) THEN ! DO IRGN = 1, S_NRGN( NP ) IREAD = INDEX1( S_RGNLBL(NP,IRGN), DESID_N_REG, DESID_REG%LABEL ) ! identify region IF ( IREAD .EQ. 0 ) THEN XMSG = " User specified DDM3D region - " // & TRIM( S_RGNLBL(NP,IRGN) ) // & " - not found in available emissions regions. " // & " Check sensinput.dat file " WRITE(LOGDEV,*) " Available region definitions: " DO IFILE = 1, DESID_N_REG WRITE(LOGDEV,*) IFILE, DESID_REG( IFILE )%LABEL END DO CALL M3EXIT( PNAME, 1, 1, XMSG, XSTAT1 ) ELSE IREGION(:,:,1,NP) = IREGION( :,:,1,NP ) & + DESID_REG_FAC( :,:,IREAD ) END IF END DO ! Limit IREGION to < 1.0 incase some regions overlap. IREGION(:,:,:,NP) = MIN ( IREGION(:,:,:,NP), 1.0 ) ! Copy up to layers above DO IFILE = 1, NLAYS IREGION(:,:,IFILE,NP) = IREGION(:,:,1,NP) END DO END IF END DO #endif END SUBROUTINE DESID_INIT_REGIONS !----------------------------------------------------------------------- SUBROUTINE DESID_READ_NAMELIST( ) ! ! This subroutine opens and reads the Emissions Control Namelist. It ! attempts to deal with errors like missing file or missing file ! sections by error checking and setting defaults. !----------------------------------------------------------------------- use desid_param_module use util_family_module use RUNTIME_VARS, only: MISC_CTRL, DESID_CTRL, DESID_CHEM_CTRL, & logdev, log_message, log_subheading use PA_DEFN, ONLY : BudgetVariables, MAX_BUDGET_VARS_NML, BUDGET_DIAG #ifdef mpas use util_module, only : junit, upcase #endif use utilio_defn IMPLICIT NONE ! Define Dummy Variables for Opening Emission Control Namelist CHARACTER( 300 ) :: XMSG INTEGER :: Desid_N_Diag_Rules, Desid_Max_Area, Desid_Max_Sd INTEGER :: FUNIT INTEGER :: IOST, IFAM, INUM, IRULE CHARACTER( 200 ) :: TMPLINE ! Define Namelist Input from Control Files ! CMAQ Control Util Namelist / Budget_Options / Budget_Diag, BudgetVariables ! DESID Chem Control Namelist / Desid_ScalingVars / Desid_Max_Rules Namelist / Desid_Scaling / Desid_Rules_Nml ! DESID Control Namelist / Desid_Options / Desid_MaxLays Namelist / Desid_AreaNormVars / Desid_Max_Area Namelist / Desid_AreaNorm / Desid_Area_Nml Namelist / Desid_SizeDistVars / Desid_Max_Sd Namelist / Desid_SizeDist / Desid_Sd_Nml Namelist / Desid_RegionDefVars / Desid_Max_Reg, & Desid_N_Reg_Fams, & Desid_Max_Reg_Fam_Members Namelist / Desid_RegionDef / Desid_Reg_Nml Namelist / Desid_DiagVars / Desid_N_Diag_Rules, & Desid_Max_Diag_Streams, & Desid_Max_Diag_Spec Namelist / Desid_Diag / Desid_Diag_Streams_Nml, & Desid_Diag_Fmt_Nml, & Desid_Diag_Spec_Nml CALL LOG_MESSAGE( LOGDEV, ' ' ) CALL LOG_SUBHEADING( LOGDEV, 'Reading Emission Control Namelist') !!! Budget Options !!! ! Allocate and Initialize Budget Variables Budget_Diag = .FALSE. ALLOCATE( BudgetVariables( Max_Budget_Vars_Nml ) ) BudgetVariables = '' ! Retrieve the Name of the Emission Control File IF ( MISC_CTRL .EQ. "MISC_CTRL_NML" ) THEN XMSG = 'You have chosen not to indicate the location of an' // & 'CMAQ Control namelist file. You must give a value ' // & 'for the MISC_CTRL variable in the CMAQ runscript.' CALL M3EXIT( 'DESID_READ_NAMELIST',0,0,XMSG,1 ) END IF ! Open Emission Control Namelist File FUNIT = JUNIT() OPEN( FILE = MISC_CTRL, UNIT = FUNIT, STATUS = 'OLD', & POSITION = 'REWIND', FORM='FORMATTED', IOSTAT = IOST ) ! Check for Error in File Open Process IF ( IOST .NE. 0 ) THEN WRITE( XMSG, '(A,A,A)' ),'ERROR: Could not read ', & 'CMAQ control namelist file: ',TRIM( MISC_CTRL ) CALL M3EXIT( 'DESID_READ_NAMELIST',0,0,XMSG,1 ) END IF ! Read Budget Variables Specification Section REWIND( FUNIT ) READ( NML = Budget_Options, UNIT = FUNIT, IOSTAT= IOST ) IF ( IOST .EQ. -1 ) THEN WRITE( LOGDEV, "(5x,A,/,5x,A,/,5x,A,/,5x,A)" ), & 'Note: The BudgetOptions section of the Emissions Control ', & 'Namelist is missing. Default values for this section will be ', & 'assumed.' Budget_Diag = .FALSE. BudgetVariables = 'ALL' ELSE IF ( IOST .NE. 0 ) THEN ! Read Error Detected for BudgetOptions backspace( FUNIT ) read( FUNIT, fmt='(A)' ) tmpline XMSG = 'ERROR: There was a syntax error reading the Budget_Options '// & 'variable in the CMAQ control namelist. Please check the format of '// & 'each line for syntax errors. The invalid line was likely: ' CALL LOG_MESSAGE( LOGDEV, ' ') CALL LOG_MESSAGE( LOGDEV, XMSG ) WRITE( LOGDEV, '(8x,A)' ) TMPLINE CALL M3EXIT ( 'DESID_READ_NAMELIST', 0, 0, 'CMAQ must Crash until you '// & 'fix the Budget Variables specification', 1 ) END IF ! Capitalize All Budget Variables Names DO IFAM = 1,Max_Budget_Vars_Nml CALL UPCASE( BudgetVariables( IFAM ) ) END DO CLOSE( FUNIT ) !----------------------------! !!! DESID Chemical Mapping !!! ! Retrieve the Name of the Emission Control File IF ( DESID_CHEM_CTRL .EQ. "DESID_CHEM_CTRL_NML" ) THEN XMSG = 'You have chosen not to indicate the location of an' // & 'Emission Control namelist file. You must give a value ' // & 'for the DESID_CHEM_CTRL variable in the CMAQ runscript.' CALL M3EXIT( 'DESID_READ_NAMELIST',0,0,XMSG,1 ) END IF ! Open Emission Control Namelist File FUNIT = JUNIT() OPEN( FILE = DESID_CHEM_CTRL, UNIT = FUNIT, STATUS = 'OLD', & POSITION = 'REWIND', FORM='FORMATTED', IOSTAT = IOST ) ! Check for Error in File Open Process IF ( IOST .NE. 0 ) THEN WRITE( XMSG, '(A,A,A)' ),'ERROR: Could not read ', & 'emissions control namelist file: ',TRIM( DESID_CHEM_CTRL ) CALL M3EXIT( 'DESID_READ_NAMELIST',0,0,XMSG,1 ) END IF ! Read the number of Max Emissions Rules to inform scaling operations REWIND( FUNIT ) READ( NML = Desid_ScalingVars, UNIT = FUNIT, IOSTAT=IOST ) IF ( IOST .EQ. -1 ) THEN ! The DESID_Max_Rules Variable was completely missing XMSG = 'WARNING: Maximum Number of DESID Scaling Rules was not specified. '// & 'If you intended to specify Desid_Max_Rules, check the DESID_CHEM_CTRL file.' CALL LOG_MESSAGE( LOGDEV, ' ') CALL LOG_MESSAGE( LOGDEV, XMSG ) DESID_MAX_RULES = 500 ELSE IF ( IOST .NE. 0 ) THEN ! Read Error Detected for DESID_RULES_NML backspace( FUNIT ) read( FUNIT, fmt='(A)' ) tmpline XMSG = 'ERROR: There was a syntax error reading ithe max number of '// & 'Emission Scaling Rules for use by the DESID module. Please '// & 'check the format of each line for syntax errors. The '// & 'invalid line was likely: ' CALL LOG_MESSAGE( LOGDEV, ' ') CALL LOG_MESSAGE( LOGDEV, XMSG ) WRITE( LOGDEV, '(8x,A)' ) TMPLINE CALL M3EXIT ( 'DESID_READ_NAMELIST', 0, 0, 'CMAQ must Crash until you '// & 'fix Desid_Max_Rules', 1 ) END IF ! Allocate Initialize Namelist Variables ALLOCATE( DESID_RULES_NML( DESID_MAX_RULES ), STAT=IOST ) CALL CHECKMEM( IOST, 'DESID_RULES_NML','DESID_READ_NAMELIST') DESID_RULES_NML%REGION = '' DESID_RULES_NML%STREAM = '' DESID_RULES_NML%EMVAR = '' DESID_RULES_NML%SPEC = '' DESID_RULES_NML%PHASE = '' DESID_RULES_NML%OP = '' DESID_RULES_NML%BASIS = '' DESID_RULES_NML%FAC = 0. ! Read the Emissions Rules to inform scaling operations REWIND( FUNIT ) READ( NML = Desid_Scaling, UNIT = FUNIT, IOSTAT=IOST ) IF ( IOST .EQ. -1 ) THEN ! The DESID_RULES_NML Variable was completely missing XMSG = 'WARNING: There were no valid Emission Scaling Rules specified '// & 'for use by the DESID module. If you intended to specify '// & 'rules in the emission control file, check the file you have '// & 'provided for DESID_CHEM_CTRL.' CALL LOG_MESSAGE( LOGDEV, ' ') CALL LOG_MESSAGE( LOGDEV, XMSG ) DESID_RULES_NML%REGION = '' DESID_RULES_NML%STREAM = '' DESID_RULES_NML%EMVAR = '' DESID_RULES_NML%SPEC = '' DESID_RULES_NML%PHASE = '' DESID_RULES_NML%OP = '' DESID_RULES_NML%BASIS = '' DESID_RULES_NML%FAC = 0. ELSE IF ( IOST .NE. 0 ) THEN ! Read Error Detected for DESID_RULES_NML backspace( FUNIT ) read( FUNIT, fmt='(A)' ) tmpline XMSG = 'ERROR: There was a syntax error reading Emission Scaling '// & 'Rules for use by the DESID module. Please check the format of '// & 'each line for syntax errors. The invalid line was likely: ' CALL LOG_MESSAGE( LOGDEV, ' ') CALL LOG_MESSAGE( LOGDEV, XMSG ) WRITE( LOGDEV, '(8x,A)' ) TMPLINE CALL M3EXIT ( 'DESID_READ_NAMELIST', 0, 0, 'CMAQ must Crash until you '// & 'fix the Emission Scaling Rules', 1 ) END IF CALL LOG_MESSAGE( LOGDEV,' ' ) CALL LOG_MESSAGE( LOGDEV,'Performing Basic Error Checks for Emission Scaling Rules' ) ! Check that the operator field is correct since it has not so ! many possible values. DO IRULE = 1,DESID_MAX_RULES IF( DESID_RULES_NML( IRULE )%SPEC .EQ. '' ) EXIT IF( DESID_RULES_NML( IRULE )%OP .NE. 'a' .AND. DESID_RULES_NML( IRULE )%OP .NE. 'A' .AND. & DESID_RULES_NML( IRULE )%OP .NE. 'o' .AND. DESID_RULES_NML( IRULE )%OP .NE. 'O'.AND. & DESID_RULES_NML( IRULE )%OP .NE. 'm' .AND. DESID_RULES_NML( IRULE )%OP .NE. 'M' ) THEN WRITE( XMSG, '(A23,I4,A27,A3)'),'Emission Scaling Rule #',IRULE, & ' has a bad operator value: ',DESID_RULES_NML(IRULE)%OP call m3exit ( 'DESID_READ_NAMELIST', 0, 0, XMSG, 1 ) END IF ENDDO CLOSE( FUNIT ) !-----------------------------! !!! Open DESID Control File !!! !-----------------------------! ! Retrieve the Name of the Emission Control File IF ( DESID_CTRL .EQ. "DESID_CTRL_NML" ) THEN XMSG = 'You have chosen not to indicate the location of an' // & 'Emission Control namelist file. You must give a value ' // & 'for the DESID_CTRL variable in the CMAQ runscript.' CALL M3EXIT( 'DESID_READ_NAMELIST',0,0,XMSG,1 ) END IF ! Open Emission Control Namelist File FUNIT = JUNIT() OPEN( FILE = DESID_CTRL, UNIT = FUNIT, STATUS = 'OLD', & POSITION = 'REWIND', FORM='FORMATTED', IOSTAT = IOST ) ! Check for Error in File Open Process IF ( IOST .NE. 0 ) THEN WRITE( XMSG, '(A,A,A)' ),'ERROR: Could not read ', & 'emissions control namelist file: ',TRIM( DESID_CTRL ) CALL M3EXIT( 'DESID_READ_NAMELIST',0,0,XMSG,1 ) END IF !----------------------! !!! DESID Top Layer !!! ! Read the Maximum Emissions Layer REWIND( FUNIT ) READ( NML = Desid_Options, UNIT = FUNIT, IOSTAT=IOST ) IF ( IOST .EQ. -1 ) THEN ! The Desid_Max_Lays Variable was completely missing XMSG = 'WARNING: Maximum Layer for emissions input was not specified. '// & 'If you intended to specify Desid_Max_Lays, check the DESID_CTRL file.' CALL LOG_MESSAGE( LOGDEV, ' ') CALL LOG_MESSAGE( LOGDEV, XMSG ) Desid_MaxLays = 0 ELSE IF ( IOST .NE. 0 ) THEN ! Read Error Detected for Desid_Max_Lays backspace( FUNIT ) read( FUNIT, fmt='(A)' ) tmpline XMSG = 'ERROR: There was a syntax error reading the max number of '// & 'Emission Layers for use by the DESID module. Please '// & 'check the format of each line for syntax errors. The '// & 'invalid line was likely: ' CALL LOG_MESSAGE( LOGDEV, ' ') CALL LOG_MESSAGE( LOGDEV, XMSG ) WRITE( LOGDEV, '(8x,A)' ) TMPLINE CALL M3EXIT ( 'DESID_READ_NAMELIST', 0, 0, 'CMAQ must Crash until you '// & 'fix Desid_Max_Lays', 1 ) END IF !------------------------------! !!! DESID Area Normalization !!! ! Read the number of Max Emissions Rules to inform scaling operations REWIND( FUNIT ) READ( NML = Desid_AreaNormVars, UNIT = FUNIT, IOSTAT=IOST ) IF ( IOST .EQ. -1 ) THEN ! The DESID_Max_Rules Variable was completely missing XMSG = 'WARNING: Maximum Number of DESID Area Normalization Rules was not specified. '// & 'If you intended to specify Desid_Max_Area, check the DESID_CTRL file.' CALL LOG_MESSAGE( LOGDEV, ' ') CALL LOG_MESSAGE( LOGDEV, XMSG ) DESID_MAX_AREA = 30 ELSE IF ( IOST .NE. 0 ) THEN ! Read Error Detected for DESID_RULES_NML backspace( FUNIT ) read( FUNIT, fmt='(A)' ) tmpline XMSG = 'ERROR: There was a syntax error reading the max number of '// & 'Emission Area Normalization Rules for use by the DESID module. Please '// & 'check the format of each line for syntax errors. The '// & 'invalid line was likely: ' CALL LOG_MESSAGE( LOGDEV, ' ') CALL LOG_MESSAGE( LOGDEV, XMSG ) WRITE( LOGDEV, '(8x,A)' ) TMPLINE CALL M3EXIT ( 'DESID_READ_NAMELIST', 0, 0, 'CMAQ must Crash until you '// & 'fix Desid_Max_Area', 1 ) END IF ! Allocate Initialize Namelist Variables ALLOCATE( DESID_AREA_NML( DESID_MAX_AREA ), STAT=IOST ) CALL CHECKMEM( IOST, 'DESID_AREA_NML','DESID_READ_NAMELIST') DESID_AREA_NML%STREAM = 'ALL' DESID_AREA_NML%AREA = 'AUTO' DESID_AREA_NML%ADJ = 'AUTO' ! Read the Area Normalization Registry REWIND( FUNIT ) READ( NML = Desid_AreaNorm, UNIT = FUNIT, IOSTAT=IOST ) IF ( IOST .EQ. -1 ) THEN XMSG = 'Note: The Area Normalization section of the Emissions Control '// & 'Interface is missing. Default values for this section will be '// & 'assumed.' CALL LOG_MESSAGE( LOGDEV,' ') CALL LOG_MESSAGE( LOGDEV, XMSG ) DESID_AREA_NML%STREAM = 'ALL' DESID_AREA_NML%AREA = 'AUTO' DESID_AREA_NML%ADJ = 'AUTO' ELSE IF ( IOST .NE. 0 ) THEN ! Read Error Detected for DESID_AREA_NML backspace( FUNIT ) read( FUNIT, fmt='(A)' ) tmpline XMSG = 'ERROR: There was a syntax error reading the Area Normalization '// & 'variable for use by the DESID module. Please check the format of '// & 'each line for syntax errors. The invalid line was likely: ' CALL LOG_MESSAGE( LOGDEV, ' ') CALL LOG_MESSAGE( LOGDEV, XMSG ) WRITE( LOGDEV, '(8x,A)' ) TMPLINE CALL M3EXIT ( 'DESID_READ_NAMELIST', 0, 0, 'CMAQ must Crash until you '// & 'fix the Area Normalization section', 1 ) END IF !-----------------------------! !!! DESID Region Definition !!! ! Read the number of Max Emissions Rules to inform scaling operations REWIND( FUNIT ) READ( NML = Desid_RegionDefVars, UNIT = FUNIT, IOSTAT=IOST ) IF ( IOST .EQ. -1 ) THEN ! The DESID_Max_Rules Variable was completely missing XMSG = 'WARNING: Maximum Number of DESID Region Def Variables was not specified. '// & 'If you intended to specify Desid_Max_Reg, check the DESID_CTRL file.' CALL LOG_MESSAGE( LOGDEV, ' ') CALL LOG_MESSAGE( LOGDEV, XMSG ) DESID_MAX_REG = 30 ELSE IF ( IOST .NE. 0 ) THEN ! Read Error Detected for DESID_RULES_NML backspace( FUNIT ) read( FUNIT, fmt='(A)' ) tmpline XMSG = 'ERROR: There was a syntax error reading the max number of '// & 'Region Definitions for use by the DESID module. Please '// & 'check the format of each line for syntax errors. The '// & 'invalid line was likely: ' CALL LOG_MESSAGE( LOGDEV, ' ') CALL LOG_MESSAGE( LOGDEV, XMSG ) WRITE( LOGDEV, '(8x,A)' ) TMPLINE CALL M3EXIT ( 'DESID_READ_NAMELIST', 0, 0, 'CMAQ must Crash until you '// & 'fix Desid_Max_Reg', 1 ) END IF ! Allocate and Initialize Namelist Variables ALLOCATE( DESID_REG_NML( DESID_MAX_REG ), STAT=IOST ) CALL CHECKMEM( IOST, 'DESID_REG_NML','DESID_READ_NAMELIST') DESID_REG_NML%LABEL = '' DESID_REG_NML%FILE = '' DESID_REG_NML%VAR = '' ! Read the Regions Registry REWIND( FUNIT ) READ( NML = Desid_RegionDef, UNIT = FUNIT, IOSTAT=IOST ) IF ( IOST .EQ. -1 ) THEN XMSG = 'Note: The Desid_RegionDef component of the Emissions Control '// & 'Interface is missing. Default values for this section will be '// & 'assumed.' CALL LOG_MESSAGE( LOGDEV,' ') CALL LOG_MESSAGE( LOGDEV, XMSG ) DESID_REG_NML%LABEL = '' DESID_REG_NML%FILE = '' DESID_REG_NML%VAR = '' ELSE IF ( IOST .NE. 0 ) THEN ! Read Error Detected for DESID_REG_NML backspace( FUNIT ) read( FUNIT, fmt='(A)' ) tmpline XMSG = 'ERROR: There was a syntax error reading the Desid_RegionDef '// & 'variable for use by the DESID module. Please check the format of '// & 'each line for syntax errors. The invalid line was likely: ' CALL LOG_MESSAGE( LOGDEV, ' ') CALL LOG_MESSAGE( LOGDEV, XMSG ) WRITE( LOGDEV, '(8x,A)' ) TMPLINE CALL M3EXIT ( 'DESID_READ_NAMELIST', 0, 0, 'CMAQ must Crash until you '// & 'fix Desid_RegionDef', 1 ) END IF !------------------------------! !!! DESID Size Distributions !!! ! Read the number of Max Size Dist Rules to inform scaling operations REWIND( FUNIT ) READ( NML = Desid_SizeDistVars, UNIT = FUNIT, IOSTAT=IOST ) IF ( IOST .EQ. -1 ) THEN ! The DESID_Max_Sd Variable was completely missing XMSG = 'WARNING: Maximum Number of DESID Size Dist Rules was not specified. '// & 'If you intended to specify Desid_Max_Sd, check the DESID_CTRL file.' CALL LOG_MESSAGE( LOGDEV, ' ') CALL LOG_MESSAGE( LOGDEV, XMSG ) DESID_MAX_SD = 10 ELSE IF ( IOST .NE. 0 ) THEN ! Read Error Detected for DESID_RULES_NML backspace( FUNIT ) read( FUNIT, fmt='(A)' ) tmpline XMSG = 'ERROR: There was a syntax error reading the max number of '// & 'Size Distribution RUles for use by the DESID module. Please '// & 'check the format of each line for syntax errors. The '// & 'invalid line was likely: ' CALL LOG_MESSAGE( LOGDEV, ' ') CALL LOG_MESSAGE( LOGDEV, XMSG ) WRITE( LOGDEV, '(8x,A)' ) TMPLINE CALL M3EXIT ( 'DESID_READ_NAMELIST', 0, 0, 'CMAQ must Crash until you '// & 'fix Desid_Max_Sd', 1 ) END IF ! Allocate and Initialize Namelist Variables ALLOCATE( DESID_SD_NML( DESID_MAX_SD ), STAT=IOST ) CALL CHECKMEM( IOST, 'DESID_SD_NML','DESID_READ_NAMELIST') DESID_SD_NML%STREAM = '' DESID_SD_NML%MODE = '' DESID_SD_NML%MODE_REF = '' !!! Read the size distribution specification section REWIND( FUNIT ) READ( NML = Desid_SizeDist, UNIT = FUNIT, IOSTAT=IOST ) IF ( IOST .EQ. -1 ) THEN XMSG = 'Note: The Desid_SizeDist component of the Emissions Control '// & 'Interface is missing. Default values for this section '// & 'will be assumed.' CALL LOG_MESSAGE( LOGDEV,' ') CALL LOG_MESSAGE( LOGDEV, XMSG ) DESID_SD_NML%STREAM = '' DESID_SD_NML%MODE = '' DESID_SD_NML%MODE_REF = '' ELSE IF ( IOST .NE. 0 ) THEN ! Read Error Detected for DESID_SD_NML backspace( FUNIT ) read( FUNIT, fmt='(A)' ) tmpline XMSG = 'ERROR: There was a syntax error reading the Desid_SizeDist '// & 'variable for use by the DESID module. Please check the format of '// & 'each line for syntax errors. The invalid line was likely: ' CALL LOG_MESSAGE( LOGDEV, ' ') CALL LOG_MESSAGE( LOGDEV, XMSG ) WRITE( LOGDEV, '(8x,A)' ) TMPLINE CALL M3EXIT ( 'DESID_READ_NAMELIST', 0, 0, 'CMAQ must Crash until you '// & 'fix the Size Distribution Rule', 1 ) END IF !----------------------------------! !!! DESID Diagnostic File Inputs !!! ! Read the number of Max Emissions Rules to inform scaling operations REWIND( FUNIT ) READ( NML = Desid_DiagVars, UNIT = FUNIT, IOSTAT=IOST ) IF ( IOST .EQ. -1 ) THEN ! The DESID_N_Diag_Rules Variable was completely missing XMSG = 'WARNING: Number of DESID Diagnostic Rules was not specified. '// & 'If you intended to specify Desid_N_Diag_Rules, check the DESID_CTRL file.' CALL LOG_MESSAGE( LOGDEV, ' ') CALL LOG_MESSAGE( LOGDEV, XMSG ) DESID_N_DIAG_RULES = 0 DESID_MAX_DIAG_STREAMS = 0 DESID_MAX_DIAG_SPEC = 0 ELSE IF ( IOST .NE. 0 ) THEN ! Read Error Detected for DESID_N_DIAG_RULES backspace( FUNIT ) read( FUNIT, fmt='(A)' ) tmpline XMSG = 'ERROR: There was a syntax error reading the number of '// & 'Diagnostic Rules for use by the DESID module. Please '// & 'check the format of each line for syntax errors. The '// & 'invalid line was likely: ' CALL LOG_MESSAGE( LOGDEV, ' ') CALL LOG_MESSAGE( LOGDEV, XMSG ) WRITE( LOGDEV, '(8x,A)' ) TMPLINE CALL M3EXIT ( 'DESID_READ_NAMELIST', 0, 0, 'CMAQ must Crash until you '// & 'fix Desid_N_Diag_Rules', 1 ) END IF ! Allocate and Initialize Namelist Variables ALLOCATE( DESID_DIAG_STREAMS_NML( DESID_N_DIAG_RULES,DESID_MAX_DIAG_SPEC ), & DESID_DIAG_FMT_NML( DESID_N_DIAG_RULES ), & DESID_DIAG_SPEC_NML( DESID_N_DIAG_RULES,DESID_MAX_DIAG_SPEC ), & STAT=IOST ) CALL CHECKMEM( IOST, 'DESID_DIAG_NML','DESID_READ_NAMELIST') Desid_Diag_Streams_Nml = '' Desid_Diag_Fmt_Nml = '' Desid_Diag_Spec_Nml = '' ! Read the Emissions Diagnostic Section REWIND( FUNIT ) READ( NML = Desid_Diag, UNIT = FUNIT, IOSTAT=IOST ) IF ( IOST .EQ. -1 ) THEN ! The Emissions Diagnostic Section was completely missing XMSG = 'WARNING: There were no valid Emission Diagnostic Values specified '// & 'for use by the DESID module. If you intended to specify '// & 'diagnostic output in the emission control interface, check the '// & 'file you have provided for DESID_CTRL_NML.' CALL LOG_MESSAGE( LOGDEV, ' ') CALL LOG_MESSAGE( LOGDEV, XMSG ) Desid_Diag_Streams_Nml = '' Desid_Diag_Fmt_Nml = '' Desid_Diag_Spec_Nml = '' ELSE IF ( IOST .NE. 0 ) THEN ! Read Error for Emissions Diagnostic backspace( FUNIT ) read( FUNIT, fmt='(A)' ) tmpline XMSG = 'ERROR: There was a syntax error reading Emission Diagnostic '// & 'Variables for output by the DESID module. Please check the format of '// & 'each line for syntax errors. The invalid line was likely: ' CALL LOG_MESSAGE( LOGDEV, ' ') CALL LOG_MESSAGE( LOGDEV, XMSG ) WRITE( LOGDEV, '(8x,A)' ) TMPLINE CALL M3EXIT ( 'DESID_READ_NAMELIST', 0, 0, 'CMAQ must Crash until you '// & 'fix the Emission Diagnostic Specification.', 1 ) END IF CLOSE( UNIT = FUNIT ) END SUBROUTINE DESID_READ_NAMELIST ! ------------------------------------------------------------------------- subroutine soilinp_setup USE UTILIO_DEFN use HGRD_DEFN, only : ncols, nrows use RUNTIME_VARS, only : NEW_START, BIOGEMIS_MEGAN, BIOGEMIS_BEIS, & BDSNP_MEGAN, IGNORE_SOILINP INCLUDE SUBST_FILES_ID ! file name parameters integer, parameter :: mxhrs = 24 Character( 40 ), parameter :: pname = 'soilinp_setup' character( 20 ) :: loc_time_stamp Character( 40 ), parameter :: msoilinp = 'MEGAN_SOILINP' Character( 40 ), parameter :: bsoilinp = 'BEIS_SOILINP' Character( 40 ), parameter :: bdsnpinp = 'BDSNPINP' CHARACTER( 16 ) :: var CHARACTER( 256 ) :: mesg integer :: stat, i, j, k, fnumb, fnumm real, allocatable :: t24sum(:,:), sw24sum(:,:) ALLOCATE( PTYPE( NCOLS,NROWS ), & PULSEDATE( NCOLS,NROWS ), & PULSETIME( NCOLS,NROWS ), & RAINFALL( NCOLS,NROWS, mxhrs ), & DDTTM( mxhrs ), & STAT=STAT ) if (stat .ne. 0) then CALL M3EXIT (PNAME, 0, 0, "allocation error", 1) end if RAINFALL = 0.0 DDTTM = ' ' ! array if (BIOGEMIS_MEGAN) then ALLOCATE (t24y ( ncols,nrows ), & sw24y ( ncols,nrows ), & lai_y ( ncols,nrows ), & HRNO_SW ( NCOLS,NROWS, mxhrs ), & HRNO_T2M ( NCOLS,NROWS, mxhrs ), & t24sum ( ncols,nrows ), & sw24sum ( ncols,nrows ), & stat=stat) IF ( STAT .NE. 0 ) THEN MESG = 'Failure BIOGEMIS_MEGAN arrays' CALL M3EXIT( PNAME, 0, 0, MESG, XSTAT3 ) END IF t24y = 0.0 sw24y = 0.0 lai_y = 0.0 HRNO_SW = 0.0 HRNO_T2M = 0.0 sw24sum = 0.0 t24sum = 0.0 end if if (BDSNP_MEGAN) then ALLOCATE (PFACTOR ( ncols,nrows ), & DRYPERIOD ( ncols,nrows ), & NDEPRES ( ncols,nrows ), & NDEPRATE ( ncols,nrows ), & SOILMPREV ( ncols,nrows ), & stat=stat) IF ( STAT .NE. 0 ) THEN MESG = 'Failure BDSNP_MEGAN arrays' CALL M3EXIT( PNAME, 0, 0, MESG, XSTAT3 ) END IF pfactor = 0.0 dryperiod = 0.0 soilmprev = 0.0 ndepres = 0.0 ndeprate = 0.0 end if if (BIOGEMIS_BEIS .and. .not. NEW_START .and. .not. IGNORE_SOILINP) then #ifdef mpas ! file will be opened automatically when it is indicated in FILE_INFO call mio_fread (BSOILINP, 'PTYPE', pname, ptype(:,1)) call mio_fread (BSOILINP, 'PULSEDATE', pname, pulsedate(:,1)) call mio_fread (BSOILINP, 'PULSETIME', pname, pulsetime(:,1)) fnumb = mio_search (BSOILINP) #else IF ( .NOT. OPEN3( BSOILINP, FSREAD3, PNAME ) ) THEN mesg = 'Open failure for ' // BSOILINP Call M3EXIT( PNAME, 0, 0, mesg, XSTAT1 ) END IF n_opened_file = n_opened_file + 1 ! Get description of NO rain data file IF ( .NOT. DESC3( BSOILINP ) ) THEN MESG = 'Could not get description of file "' // & TRIM( BSOILINP ) // '"' CALL M3EXIT( PNAME, 0, 0, MESG, XSTAT2 ) END IF ! Check that the file start date and time are consistent IF ( SDATE3D .NE. cio_model_sdate ) THEN WRITE( MESG, 94011 ) 'Cannot use BEIS_SOILINP file; ' // & 'found date ', SDATE3D, ' expecting ', cio_model_sdate CALL M3EXIT( PNAME, 0, 0, MESG, XSTAT2 ) END IF IF ( STIME3D .NE. cio_model_stime ) THEN WRITE( MESG, 94011 ) 'Cannot use BEIS_SOILINP file; ' // & 'found time ', STIME3D, ' expecting ', cio_model_stime CALL M3EXIT( PNAME, 0, 0, MESG, XSTAT2 ) END IF 94011 FORMAT( A, F10.2, 1X, A, I3, ',', I3 ) VAR = 'PTYPE' IF ( .NOT. XTRACT3( BSOILINP, 'PTYPE', 1, 1, & STRTROWSTD, ENDROWSTD, STRTCOLSTD, ENDCOLSTD, & 0, 0, PTYPE ) ) THEN MESG = 'Could not read "' // TRIM( VAR ) // & '" from file "' // TRIM( BSOILINP ) // '"' CALL M3EXIT( PNAME, 0, 0, MESG, XSTAT2 ) END IF VAR = 'PULSEDATE' IF ( .NOT. XTRACT3( BSOILINP, VAR, 1, 1, & STRTROWSTD, ENDROWSTD, STRTCOLSTD, ENDCOLSTD, & 0, 0, PULSEDATE ) ) THEN MESG = 'Could not read "' // TRIM( VAR ) // & '" from file "' // TRIM( BSOILINP ) // '"' CALL M3EXIT( PNAME, 0, 0, MESG, XSTAT2 ) END IF VAR = 'PULSETIME' IF ( .NOT. XTRACT3( BSOILINP, VAR, 1, 1, & STRTROWSTD, ENDROWSTD, STRTCOLSTD, ENDCOLSTD, & 0, 0, PULSETIME ) ) THEN MESG = 'Could not read "' // TRIM( VAR ) // & '" from file "' // TRIM( BSOILINP ) // '"' CALL M3EXIT( PNAME, 0, 0, MESG, XSTAT2 ) END IF #endif RAINFALL = 0.0 DDTTM = ' ' ! array DO I = 1, mxhrs WRITE ( VAR, '(A8,I2.2)' ) 'RAINFALL', I #ifdef mpas loc_time_stamp = mio_file_data(fnumb)%timestamp(i) call mio_fread (BSOILINP, 'RAINFALL', pname, & rainfall(:,1,i), loc_time_stamp) #else IF ( .NOT. XTRACT3( BSOILINP, VAR, 1, 1, & STRTROWSTD, ENDROWSTD, STRTCOLSTD, ENDCOLSTD, & 0, 0, RAINFALL( :,:,I ) ) ) THEN MESG = 'Could not read "' // TRIM( VAR ) // & '" from file "' // TRIM( BSOILINP ) // '"' CALL M3EXIT( PNAME, 0, 0, MESG, XSTAT2 ) END IF J = INDEX( VDESC3D( I+3 ), 'for' ) + 3 K = LEN_TRIM( VDESC3D( I+3 ) ) DDTTM( I ) = VDESC3D( I+3 )( J:K ) #endif END DO end if ! end beis section if (BIOGEMIS_MEGAN .and. .not. NEW_START .and. .not. IGNORE_SOILINP) then #ifdef mpas ! file will be opened automatically when it is indicated in FILE_INFO fnumm = mio_search (MSOILINP) ! Use final time step of each variable loc_time_stamp = mio_file_data(fnumm)%timestamp(24) call mio_fread (MSOILINP, 'PTYPE', pname, ptype(:,1),loc_time_stamp) call mio_fread (MSOILINP, 'PULSEDATE', pname,pulsedate(:,1),loc_time_stamp) call mio_fread (MSOILINP, 'PULSETIME', pname,pulsetime(:,1),loc_time_stamp) call mio_fread (MSOILINP, 'LAI', pname,LAI_y(:,1),loc_time_stamp) #else IF ( .NOT. OPEN3( MSOILINP, FSREAD3, PNAME ) ) THEN mesg = 'Open failure for ' // MSOILINP Call M3EXIT( PNAME, 0, 0, mesg, XSTAT1 ) END IF n_opened_file = n_opened_file + 1 ! Get description of NO rain data file IF ( .NOT. DESC3( MSOILINP ) ) THEN MESG = 'Could not get description of file "' // & TRIM( MSOILINP ) // '"' CALL M3EXIT( PNAME, 0, 0, MESG, XSTAT2 ) END IF ! Check that the file start date and time are consistent IF ( SDATE3D .NE. cio_model_sdate ) THEN WRITE( MESG, 94010 ) 'Cannot use MEGAN_SOILINP file; ' // & 'found date ', SDATE3D, ' expecting ', cio_model_sdate CALL M3EXIT( PNAME, 0, 0, MESG, XSTAT2 ) END IF IF ( STIME3D .NE. cio_model_stime ) THEN WRITE( MESG, 94010 ) 'Cannot use MEGAN_SOILINP file; ' // & 'found time ', STIME3D, ' expecting ', cio_model_stime CALL M3EXIT( PNAME, 0, 0, MESG, XSTAT2 ) END IF 94010 FORMAT( A, F10.2, 1X, A, I3, ',', I3 ) VAR = 'PTYPE' IF ( .NOT. XTRACT3( MSOILINP, 'PTYPE', 1, 1, & STRTROWSTD, ENDROWSTD, STRTCOLSTD, ENDCOLSTD, & 0, 0, PTYPE ) ) THEN MESG = 'Could not read "' // TRIM( VAR ) // & '" from file "' // TRIM( MSOILINP ) // '"' CALL M3EXIT( PNAME, 0, 0, MESG, XSTAT2 ) END IF VAR = 'PULSEDATE' IF ( .NOT. XTRACT3( MSOILINP, VAR, 1, 1, & STRTROWSTD, ENDROWSTD, STRTCOLSTD, ENDCOLSTD, & 0, 0, PULSEDATE ) ) THEN MESG = 'Could not read "' // TRIM( VAR ) // & '" from file "' // TRIM( MSOILINP ) // '"' CALL M3EXIT( PNAME, 0, 0, MESG, XSTAT2 ) END IF VAR = 'PULSETIME' IF ( .NOT. XTRACT3( MSOILINP, VAR, 1, 1, & STRTROWSTD, ENDROWSTD, STRTCOLSTD, ENDCOLSTD, & 0, 0, PULSETIME ) ) THEN MESG = 'Could not read "' // TRIM( VAR ) // & '" from file "' // TRIM( MSOILINP ) // '"' CALL M3EXIT( PNAME, 0, 0, MESG, XSTAT2 ) END IF IF ( .NOT. XTRACT3( MSOILINP, 'LAI', 1, 1, & STRTROWSTD, ENDROWSTD, STRTCOLSTD,ENDCOLSTD, & 0, 0, lai_y( :,: ) ) ) THEN MESG = 'Could not read "' // 'LAI' // & '" from file "' // TRIM( MSOILINP ) // '"' CALL M3EXIT( PNAME, 0, 0, MESG, XSTAT2 ) END IF #endif sw24sum = 0.0 t24sum = 0.0 RAINFALL = 0.0 DDTTM = ' ' ! array DO I = 1, mxhrs WRITE( VAR, '(A8,I2.2)' ) 'RAINFALL', I #ifdef mpas loc_time_stamp = mio_file_data(fnumm)%timestamp(i) call mio_fread (MSOILINP, 'RAINFALL', pname, & rainfall(:,1,i), loc_time_stamp) call mio_fread (MSOILINP, 'T24', pname, & t24y(:,1), loc_time_stamp) call mio_fread (MSOILINP, 'SW24', pname, & sw24y(:,1), loc_time_stamp) #else IF ( .NOT. XTRACT3( MSOILINP, VAR, 1, 1, & STRTROWSTD, ENDROWSTD, STRTCOLSTD, ENDCOLSTD, & 0, 0, RAINFALL( :,:,I ) ) ) THEN MESG = 'Could not read "' // TRIM( VAR ) // & '" from file "' // TRIM( MSOILINP ) // '"' CALL M3EXIT( PNAME, 0, 0, MESG, XSTAT2 ) END IF J = INDEX( VDESC3D( I+3 ), 'for' ) + 3 K = LEN_TRIM( VDESC3D( I+3 ) ) DDTTM( I ) = VDESC3D( I+3 )( J:K ) WRITE( VAR, '(A2,I2.2)' ) 'SW', I IF ( .NOT. XTRACT3( MSOILINP, VAR, 1, 1, & STRTROWSTD, ENDROWSTD, STRTCOLSTD,ENDCOLSTD, & 0, 0, sw24y( :,: ) ) ) THEN MESG = 'Could not read "' // TRIM( VAR ) // & '" from file "' // TRIM( MSOILINP ) // '"' CALL M3EXIT( PNAME, 0, 0, MESG, XSTAT2 ) END IF WRITE( VAR, '(A3,I2.2)' ) 'T2M', I IF ( .NOT. XTRACT3( MSOILINP, VAR, 1, 1, & STRTROWSTD, ENDROWSTD, STRTCOLSTD,ENDCOLSTD, & 0, 0, t24y( :,: ) ) ) THEN MESG = 'Could not read "' // TRIM( VAR ) // & '" from file "' // TRIM( MSOILINP ) // '"' CALL M3EXIT( PNAME, 0, 0, MESG, XSTAT2 ) END IF #endif sw24sum = sw24y + sw24sum t24sum = t24y + t24sum END DO ! looping over 24 hrs sw24y = sw24sum/mxhrs t24y = t24sum/mxhrs if (BDSNP_MEGAN) then ! BDSNP daily inputs #ifdef mpas fnumm = mio_search (BDSNPINP) loc_time_stamp = mio_file_data(fnumm)%timestamp(24) call mio_fread (BDSNPINP, 'SOILMPREV', pname, SOILMPREV(:,1), loc_time_stamp) call mio_fread (BDSNPINP, 'DRYPERIOD', pname, DRYPERIOD(:,1), loc_time_stamp) call mio_fread (BDSNPINP, 'PFACTOR', pname, PFACTOR(:,1), loc_time_stamp) call mio_fread (BDSNPINP, 'NDEPRES', pname, NDEPRES(:,1), loc_time_stamp) #else IF ( .NOT. OPEN3( BDSNPINP, FSREAD3, PNAME ) ) THEN mesg = 'Open failure for ' // BDSNPINP Call M3EXIT( PNAME, 0, 0, mesg, XSTAT1 ) END IF IF ( .NOT. DESC3( BDSNPINP ) ) THEN MESG = 'Could not get description of file "' // & TRIM( BDSNPINP ) // '"' CALL M3EXIT( PNAME, 0, 0, MESG, XSTAT1 ) END IF IF ( .NOT. XTRACT3( BDSNPINP, 'DRYPERIOD', & 1, 1, STRTROWSTD, ENDROWSTD, STRTCOLSTD,ENDCOLSTD, & 0, 0, dryperiod(:,:) ) ) THEN mesg = 'Could not extract ' // BDSNPINP // ' file' CALL M3EXIT ( PNAME, 0, 0, mesg, XSTAT1 ) END IF IF ( .NOT. XTRACT3( BDSNPINP, 'NDEPRES', & 1, 1, STRTROWSTD, ENDROWSTD, STRTCOLSTD,ENDCOLSTD, & 0, 0, ndepres(:,:) ) ) THEN mesg = 'Could not extract ' // BDSNPINP // ' file' CALL M3EXIT ( PNAME, 0, 0, mesg, XSTAT1 ) END IF IF ( .NOT. XTRACT3( BDSNPINP, 'NDEPRATE_DIAG', & 1, 1, STRTROWSTD, ENDROWSTD, STRTCOLSTD,ENDCOLSTD, & 0, 0, ndeprate(:,:) ) ) THEN mesg = 'Could not extract ' // BDSNPINP // ' file' CALL M3EXIT ( PNAME, 0, 0, mesg, XSTAT1 ) END IF IF ( .NOT. XTRACT3( BDSNPINP, 'PFACTOR', & 1, 1, STRTROWSTD, ENDROWSTD, STRTCOLSTD,ENDCOLSTD, & 0, 0, pfactor(:,:) ) ) THEN mesg = 'Could not extract ' // BDSNPINP // ' file' CALL M3EXIT ( PNAME, 0, 0, mesg, XSTAT1 ) END IF IF ( .NOT. XTRACT3( BDSNPINP, 'SOILMPREV', & 1, 1, STRTROWSTD, ENDROWSTD,STRTCOLSTD,ENDCOLSTD, & 0, 0, soilmprev(:,:) ) ) THEN mesg = 'Could not extract ' // BDSNPINP // ' file' CALL M3EXIT ( PNAME, 0, 0, mesg, XSTAT1 ) END IF #endif end if ! bdsnp check end if ! megan check if (BIOGEMIS_MEGAN) then deallocate (t24sum, sw24sum) end if end subroutine soilinp_setup ! ------------------------------------------------------------------------- subroutine lus_setup ! Function: ! Set-up land-use categories for dust. Allocate and fill in: ! -- lut array --> landuse category fraction ! -- ladut array --> % of desertland use RUNTIME_VARS ! use UTILIO_DEFN use lus_data_module ! Data module that contains info. on different land schemes use HGRD_DEFN, only : ncols, nrows #ifdef twoway use twoway_data_module #endif INCLUDE SUBST_FILES_ID ! file name parameters character (24), parameter :: strg = 'incorrect num_land_cat, ' character (40), parameter :: pname = 'lus_setup' character (256) :: xmsg integer :: i, err, strtcol1,endcol1, strtrow1, endrow1, & strtcol2, endcol2, strtrow2, endrow2, gxoff1, & gyoff1, gxoff2, gyoff2 lufile( 1 ) = grid_cro_2d #ifndef mpas if ( .not. lucro_avail ) then ! TRUE if LUFRAC file isn't there if ( .not. open3( lufile( 1 ), fsread3, pname ) ) then xmsg = 'could not open ' // trim( lufile( 1 ) ) call m3exit ( pname, 0, 0, xmsg, xstat1 ) end if n_opened_file = n_opened_file + 1 ! Retrieve domain decomposition offsets for first lufile call subhfile( lufile( 1 ), gxoff1, gyoff1, strtcol1, & endcol1, strtrow1, endrow1 ) end if #endif ! determine land_scheme from GRID_CRO_2D #ifdef mpas dust_land_scheme = mminlu_mpas #else dust_land_scheme = cio_dust_land_scheme ! land scheme found from grid_cro_2D 'DLUSE' var-desc #ifdef twoway C mminlu and num_land_cat are WRF global variables select case( mminlu ) case( 'USGS24' ) if ( num_land_cat .ne. 24 ) then write( xmsg, '(a, i3, a )' ) strg, num_land_cat, & ' for ' // trim( mminlu ) call m3exit ( pname, stdate, sttime, xmsg, xstat1 ) end if dust_land_scheme = 'USGS24' case( 'NLCD40' ) if ( num_land_cat .ne. 40 ) then write( xmsg, '(a, i3, a )' ) strg, num_land_cat, & ' for ' // trim( mminlu ) call m3exit ( pname, stdate, sttime, xmsg, xstat1 ) end if dust_land_scheme = 'NLCD40' case( 'NLCD-MODIS' ) if ( num_land_cat .ne. 50 ) then write( xmsg, '(a, i3, a )' ) strg, num_land_cat, & ' for ' // trim( mminlu ) call m3exit ( pname, stdate, sttime, xmsg, xstat1 ) end if dust_land_scheme = 'NLCD-MODIS' case( 'MODIFIED_IGBP_MODIS_NOAH' ) if ( num_land_cat .ne. 20 ) then write( xmsg, '(a, i3, a )' ) strg, num_land_cat, & ' for ' // trim( mminlu ) call m3exit ( pname, stdate, sttime, xmsg, xstat1 ) end if dust_land_scheme = 'MODIS_NOAH' case( 'MODIS' ) if ( num_land_cat .ne. 20 ) then write( xmsg, '(a, i3, a )' ) strg, num_land_cat, & ' for ' // trim( mminlu ) call m3exit ( pname, stdate, sttime, xmsg, xstat1 ) end if dust_land_scheme = 'MODIS' case default xmsg = 'Land use scheme not supported' call m3exit ( pname, stdate, sttime, xmsg, xstat1 ) end select #endif #endif select case( dust_land_scheme ) ! After land scheme is determined allocate number of land use categories & number of dustland categories from lus_data_module case( 'USGS24' ) ! If USGS34 n_lucat = n_lucat_usgs24 n_dlcat = n_dlcat_usgs24 allocate( vnmlu( n_lucat ), & vnmld( n_dlcat ), & dmsk( n_dlcat ), & dmap( n_dlcat+1 ), stat = err ) if ( err .ne. 0 ) then xmsg = '*** Error allocating vnmlu, vnmld, dmsk or dmap' call m3exit ( pname, stdate, sttime, xmsg, xstat1 ) end if vnmlu = vnmlu_usgs24 ! array assignment vnmld = vnmld_usgs24 ! array assignment dmsk = dmsk_usgs24 ! array assignment dmap = dmap_usgs24 ! array assignment case( 'MODIS' ) ! If MODIS n_lucat = n_lucat_modis n_dlcat = n_dlcat_modis allocate( vnmlu( n_lucat ), & vnmld( n_dlcat ), & dmsk( n_dlcat ), & dmap( n_dlcat+1 ), stat = err ) if ( err .ne. 0 ) then xmsg = '*** Error allocating vnmlu, vnmld, dmsk or dmap' call m3exit ( pname, stdate, sttime, xmsg, xstat1 ) end if vnmlu = vnmlu_modis ! array assignment vnmld = vnmld_modis ! array assignment dmsk = dmsk_modis ! array assignment dmap = dmap_modis ! array assignment case( 'NLCD40' ) ! If NLCD40 n_lucat = n_lucat_nlcd40 n_dlcat = n_dlcat_nlcd40 allocate( vnmlu( n_lucat ), & vnmld( n_dlcat ), & dmsk( n_dlcat ), & dmap( n_dlcat+1 ), stat = err ) if ( err .ne. 0 ) then xmsg = '*** Error allocating vnmlu, vnmld, dmsk or dmap' call m3exit ( pname, stdate, sttime, xmsg, xstat1 ) end if vnmlu = vnmlu_nlcd40 ! array assignment vnmld = vnmld_nlcd40 ! array assignment dmsk = dmsk_nlcd40 ! array assignment dmap = dmap_nlcd40 ! array assignment case( 'NLCD-MODIS', 'NLCD50' ) ! If NCLD-MODIS or NCLD50 n_lucat = n_lucat_nlcd_modis n_dlcat = n_dlcat_nlcd_modis allocate( vnmlu( n_lucat ), & vnmld( n_dlcat ), & dmsk( n_dlcat ), & dmap( n_dlcat+1 ), stat = err ) if ( err .ne. 0 ) then xmsg = '*** Error allocating vnmlu, vnmld, dmsk or dmap' call m3exit ( pname, stdate, sttime, xmsg, xstat1 ) end if vnmlu = vnmlu_nlcd_modis ! array assignment vnmld = vnmld_nlcd_modis ! array assignment dmsk = dmsk_nlcd_modis ! array assignment dmap = dmap_nlcd_modis ! array assignment case( 'MODIS_NOAH' ) ! If MODIS-NOAH n_lucat = n_lucat_modis_noah n_dlcat = n_dlcat_modis_noah allocate( vnmlu( n_lucat ), & vnmld( n_dlcat ), & dmsk( n_dlcat ), & dmap( n_dlcat+1 ), stat = err ) if ( err .ne. 0 ) then xmsg = '*** Error allocating vnmlu, vnmld, dmsk or dmap' call m3exit ( pname, stdate, sttime, xmsg, xstat1 ) end if vnmlu = vnmlu_modis_noah ! array assignment vnmld = vnmld_modis_noah ! array assignment dmsk = dmsk_modis_noah ! array assignment dmap = dmap_modis_noah ! array assignment case default ! Other land-schemes not supported xmsg = 'Land use scheme not supported' call m3exit ( pname, stdate, sttime, xmsg, xstat1 ) end select ! Writing Landuse categories to logfiles write( logdev,* ) ' ' write( logdev,* ) ' Land use scheme is ', trim( dust_land_scheme ) write( logdev,* ) ' n_lucat,n_dlcat: ', n_lucat, n_dlcat write( logdev,* ) ' desert land categories ------------------------' do i = 1, n_dlcat write( logdev,* ) ' ', trim( vnmld( i )%name ), ' ', trim( vnmld( i )%desc ) end do write( logdev,* ) ' land use categories ---------------------------' do i = 1, n_lucat write( logdev,* ) ' ', trim( vnmlu( i )%name ), ' ', trim( vnmlu( i )%desc ) end do write( logdev,* ) ' ' allocate( ladut( ncols,nrows,n_dlcat ), & lut( ncols,nrows,n_lucat ), & uland( ncols,nrows,4 ), stat = err ) if ( err .ne. 0 ) then xmsg = '*** Error allocating ladut, lut or uland' call m3exit ( pname, stdate, sttime, xmsg, xstat1 ) end if if ( .not. lucro_avail ) then ! TRUE if LUFRAC file isn't there or the land scheme is beld #ifdef mpas do i = 1, n_dlcat ! Loop through the number of desertland categories and fill in ladut array ladut( :,:,i) = lufrac( :,:,vnmld( i )%lu_idx ) ! Use mapped index in LUFRAC from lus_data_module to fill in ladut end do lut = lufrac ! landuse category fraction is lufrac that is already been extracted #else ! Get desert land (fraction) data (assume if BELD, all desert types are in file 1) do i = 1, n_dlcat #ifdef twoway if ( .not. interpx( lufile( 1 ), vnmld( i )%name, pname, & strtcol1, endcol1, strtrow1, endrow1, & 1, 1, 0, 0, ladut( :,:,i ) ) ) then #else if ( .not. xtract3( lufile( 1 ), vnmld( i )%name, 1,1, & strtrow1, endrow1,strtcol1, endcol1, & 0, 0, ladut( :,:,i ) ) ) then #endif xmsg = 'Could not read ' // trim( vnmld( i )%name ) & // ' from ' // trim( lufile( 1 ) ) call m3exit( pname, cio_model_sdate, cio_model_stime, xmsg, xstat1 ) end if end do ! Get land use (fraction) data do i = 1, n_lucat-1 #ifdef twoway if ( .not. interpx( lufile( 1 ), vnmlu( i )%name, pname, & strtcol1, endcol1, strtrow1, endrow1, & 1, 1, 0, 0, lut( :,:,i ) ) ) then #else if ( .not. xtract3( lufile( 1 ), vnmlu( i )%name, 1,1, & strtrow1, endrow1,strtcol1, endcol1, & 0, 0, lut( :,:,i ) ) ) then #endif xmsg = 'Could not read ' // trim( vnmlu( i )%name ) & // ' from ' // trim( lufile( 1 ) ) call m3exit( pname, cio_model_sdate, cio_model_stime, xmsg, xstat1 ) end if end do i = n_lucat #ifdef twoway if ( .not. interpx( lufile( 1 ), vnmlu( i )%name, pname, & strtcol1, endcol1, strtrow1, endrow1, & 1, 1, 0, 0, lut( :,:,i ) ) ) then #else if ( .not. xtract3( lufile( 1 ), vnmlu( i )%name, 1,1, & strtrow1, endrow1,strtcol1, endcol1, & 0, 0, lut( :,:,i ) ) ) then #endif xmsg = 'Could not read ' // trim( vnmlu( i )%name ) & // ' from ' // trim( lufile( 1 ) ) call m3exit( pname, cio_model_sdate, cio_model_stime, xmsg, xstat1 ) end if #endif else ! IF LUFRAC is there do i = 1, n_dlcat ! Loop through the number of desertland categories and fill in ladut array ladut( :,:,i) = lufrac( :,:,vnmld( i )%lu_idx ) ! Use mapped index in LUFRAC from lus_data_module to fill in ladut end do lut = lufrac ! landuse category fraction is lufrac that is already been extracted end if end subroutine lus_setup ! ------------------------------------------------------------------------- subroutine megan_setup ! reads in variables use hgrd_defn, only : ncols,nrows use RUNTIME_VARS, only : logdev, USE_MEGAN_LAI, BDSNP_MEGAN, & MGN_ONLN_DEP Use, intrinsic :: ieee_arithmetic, only: isnan => ieee_is_nan USE UTILIO_DEFN #ifdef mpas use util_module, only : nextime integer fnum #endif integer :: stat, i, megan_hr, megan_day, strtcol, & endcol, strtrow, endrow, gxoff, gyoff, & nsteps, nvars character( 20 ) :: loc_time_stamp real :: t24sum(ncols),sw24sum(ncols) character( 40 ), parameter :: pname = 'megan_setup' character( 40 ), parameter :: MEGAN_LDF = 'MEGAN_LDF' character( 40 ), parameter :: MEGAN_LAI = 'MEGAN_LAI' character( 40 ), parameter :: MEGAN_EFS = 'MEGAN_EFS' character( 40 ), parameter :: MEGAN_CTS = 'MEGAN_CTS' character( 40 ), parameter :: BDSNP_NFILE = 'BDSNP_NFILE' character( 40 ), parameter :: BDSNP_AFILE = 'BDSNP_AFILE' character( 40 ), parameter :: BDSNP_NAFILE = 'BDSNP_NAFILE' character( 40 ), parameter :: BDSNP_FFILE = 'BDSNP_FFILE' character( 40 ), parameter :: BDSNP_LFILE = 'BDSNP_LFILE' character( 256 ) :: mesg character( 40 ) :: var if (BDSNP_MEGAN) then allocate (bdsnp_fert( ncols,nrows), & bdsnp_arid( ncols,nrows), & bdsnp_nonarid( ncols,nrows), & bdsnp_landtype( ncols,nrows), & bdsnp_ndep( ncols,nrows,12), & stat=stat) IF ( STAT .NE. 0 ) THEN MESG = 'Failure BIOGEMIS_MEGAN arrays in megan_setup' CALL M3EXIT( PNAME, 0, 0, MESG, XSTAT3 ) END IF bdsnp_fert = 0. bdsnp_arid = 0. bdsnp_nonarid = 0. bdsnp_landtype = 0. bdsnp_ndep = 0. end if #ifdef mpas fnum = mio_search (MEGAN_CTS) nsteps = mio_file_data(fnum)%nsteps #else IF ( .NOT. OPEN3( MEGAN_CTS, FSREAD3, PNAME ) ) THEN mesg = 'Open failure for ' // MEGAN_CTS Call M3EXIT( PNAME, 0, 0, mesg, XSTAT1 ) END IF n_opened_file = n_opened_file + 1 f_mbiog = n_opened_file IF ( .NOT. DESC3( MEGAN_CTS ) ) THEN MESG = 'Could not get description of file "' // & TRIM( MEGAN_CTS ) // '"' CALL M3EXIT( PNAME, 0, 0, MESG, XSTAT1 ) END IF file_sdate(f_mbiog) = sdate3d file_stime(f_mbiog) = stime3d file_tstep(f_mbiog) = tstep3d file_xcell(f_mbiog) = xcell3d file_ycell(f_mbiog) = ycell3d nsteps = mxrec3d #endif allocate (ctf(6,ncols,nrows), stat = stat) if (stat .ne. 0) then mesg = 'Failure allocating MEGAN input arrays' call m3exit (pname, 0, 0, mesg, xstat1 ) end if #ifdef mpas do I = 1,6 call mio_fread (MEGAN_CTS, 'CTS', pname, ctf(I,:,1), mio_file_data(fnum)%timestamp(i)) end do #else call subhfile( megan_cts , gxoff, gyoff, strtcol, & endcol, strtrow, endrow ) megan_day = sdate3d megan_hr = stime3d megan_hr = 0 do I = 1, mxrec3d IF ( .NOT. XTRACT3( MEGAN_CTS, 'CTS', & 1, 1, strtrow, endrow, strtcol, endcol, & 0, megan_hr, ctf(I,:,:) ) ) THEN mesg = 'Could not extract ' // MEGAN_CTS // ' file' CALL M3EXIT ( PNAME, megan_day, megan_hr, mesg, XSTAT1 ) END IF megan_hr = megan_hr + 10000 ! call nextime (megan_day, megan_hr, tstep3d) end do #endif WHERE ( isnan( ctf ) ) ctf = 0.0 ! ensure no NaNs #ifdef mpas fnum = mio_search (MEGAN_EFS) nvars = mio_file_data(fnum)%nvars #else IF ( .NOT. OPEN3( MEGAN_EFS, FSREAD3, PNAME ) ) THEN mesg = 'Open failure for ' // MEGAN_EFS Call M3EXIT( PNAME, 0, 0, mesg, XSTAT1 ) END IF IF ( .NOT. DESC3( MEGAN_EFS ) ) THEN MESG = 'Could not get description of file "' // & TRIM( MEGAN_EFS ) // '"' CALL M3EXIT( PNAME, 0, 0, MESG, XSTAT1 ) END IF nvars = nvars3d #endif allocate (efmaps(ncols,nrows,nvars), stat = stat) if (stat .ne. 0) then mesg = 'Failure allocating MEGAN input arrays' call m3exit (pname, 0, 0, mesg, xstat1 ) end if #ifdef mpas call mio_fread ('MEGAN_EFS', 'EF_ISOP', pname, efmaps(:,1, 1)) call mio_fread ('MEGAN_EFS', 'EF_MBO', pname, efmaps(:,1, 2)) call mio_fread ('MEGAN_EFS', 'EF_MT_PINE', pname, efmaps(:,1, 3)) call mio_fread ('MEGAN_EFS', 'EF_MT_ACYC', pname, efmaps(:,1, 4)) call mio_fread ('MEGAN_EFS', 'EF_MT_CAMP', pname, efmaps(:,1, 5)) call mio_fread ('MEGAN_EFS', 'EF_MT_SABI', pname, efmaps(:,1, 6)) call mio_fread ('MEGAN_EFS', 'EF_MT_AROM', pname, efmaps(:,1, 7)) call mio_fread ('MEGAN_EFS', 'EF_NO', pname, efmaps(:,1, 8)) call mio_fread ('MEGAN_EFS', 'EF_SQT_HR', pname, efmaps(:,1, 9)) call mio_fread ('MEGAN_EFS', 'EF_SQT_LR', pname, efmaps(:,1,10)) call mio_fread ('MEGAN_EFS', 'EF_MEOH', pname, efmaps(:,1,11)) call mio_fread ('MEGAN_EFS', 'EF_ACTO', pname, efmaps(:,1,12)) call mio_fread ('MEGAN_EFS', 'EF_ETOH', pname, efmaps(:,1,13)) call mio_fread ('MEGAN_EFS', 'EF_ACID', pname, efmaps(:,1,14)) call mio_fread ('MEGAN_EFS', 'EF_LVOC', pname, efmaps(:,1,15)) call mio_fread ('MEGAN_EFS', 'EF_OXPROD', pname, efmaps(:,1,16)) call mio_fread ('MEGAN_EFS', 'EF_STRESS', pname, efmaps(:,1,17)) call mio_fread ('MEGAN_EFS', 'EF_OTHER', pname, efmaps(:,1,18)) call mio_fread ('MEGAN_EFS', 'EF_CO', pname, efmaps(:,1,19)) #else call subhfile( megan_efs, gxoff, gyoff, strtcol, & endcol, strtrow, endrow ) megan_day = sdate3d megan_hr = stime3d IF ( .NOT. XTRACT3( MEGAN_EFS, ALLVAR3, & 1, 1, strtrow, endrow, strtcol, endcol, & megan_day, megan_hr, efmaps(:,:,:) ) ) THEN mesg = 'Could not extract ' // MEGAN_EFS // ' file' CALL M3EXIT ( PNAME, 0, megan_hr, mesg, XSTAT1 ) END IF #endif IF ( USE_MEGAN_LAI) THEN #ifdef mpas fnum = mio_search (MEGAN_LAI) nvars = mio_file_data(fnum)%nvars #else IF ( .NOT. OPEN3( MEGAN_LAI, FSREAD3, PNAME ) ) THEN mesg = 'Open failure for ' // MEGAN_LAI Call M3EXIT( PNAME, 0, 0, mesg, XSTAT1 ) END IF IF ( .NOT. DESC3( MEGAN_LAI ) ) THEN MESG = 'Could not get description of file "' // & TRIM( MEGAN_LAI ) // '"' CALL M3EXIT( PNAME, 0, 0, MESG, XSTAT1 ) END IF nvars = nvars3d #endif allocate (lai_m(ncols,nrows,nvars-2), stat = stat) if (stat .ne. 0) then mesg = 'Failure allocating MEGAN input arrays' call m3exit (pname, 0, 0, mesg, xstat1 ) end if lai_m = 0.0 #ifdef mpas do i = 1, nvars WRITE( VAR, '(A3,I2.2)' ) 'LAI', I call mio_fread (MEGAN_LAI, var, pname, lai_m(:,1,i)) end do #else call subhfile( megan_lai, gxoff, gyoff, strtcol, & endcol, strtrow, endrow ) megan_day = sdate3d megan_hr = stime3d do I = 1, nvars3d-2 ! lat/lon excluded WRITE( VAR, '(A3,I2.2)' ) 'LAI', I IF ( .NOT. XTRACT3( MEGAN_LAI, VAR, & 1, 1, strtrow, endrow, strtcol, endcol, & megan_day, megan_hr, lai_m(:,:,I) ) ) THEN mesg = 'Could not extract ' // MEGAN_LAI // ' file' CALL M3EXIT ( PNAME, 0, 0, mesg, XSTAT1 ) END IF end do #endif END IF ! USE_MEGAN_LAI #ifdef mpas fnum = mio_search (MEGAN_LDF) nvars = mio_file_data(fnum)%nvars #else IF ( .NOT. OPEN3( MEGAN_LDF, FSREAD3, PNAME ) ) THEN mesg = 'Open failure for ' // MEGAN_LDF Call M3EXIT( PNAME, 0, 0, mesg, XSTAT1 ) END IF IF ( .NOT. DESC3( MEGAN_LDF ) ) THEN MESG = 'Could not get description of file "' // & TRIM( MEGAN_LDF ) // '"' CALL M3EXIT( PNAME, 0, 0, MESG, XSTAT1 ) END IF nvars = nvars3d #endif allocate (ldf(ncols,nrows,4), stat = stat) if (stat .ne. 0) then mesg = 'Failure allocating MEGAN input arrays' call m3exit (pname, 0, 0, mesg, xstat1 ) end if #ifdef mpas do i = 3,6 write( var, '(A3,I2.2)' ) 'LDF', i call mio_fread ('MEGAN_LDF', var, pname, ldf(:,1,i-2)) end do #else call subhfile( megan_ldf, gxoff, gyoff, strtcol, & endcol, strtrow, endrow ) megan_day = sdate3d megan_hr = stime3d IF ( .NOT. XTRACT3( MEGAN_LDF, 'ALL', & 1, 1, strtrow, endrow, strtcol, endcol, & megan_day, megan_hr, LDF(:,:,:) ) ) THEN mesg = 'Could not extract ' // MEGAN_LDF // ' file' CALL M3EXIT ( PNAME, 0, megan_hr, mesg, XSTAT1 ) END IF #endif if (BDSNP_MEGAN) then ! Optional BDSNP nitrogen input if (.not. MGN_ONLN_DEP) then #ifdef mpas do i = 1, 12 write( var, '(A8,I2.2)' ) 'NITROGEN', i call mio_fread (BDSNP_NFILE, var, pname, bdsnp_ndep(:,1,i)) end do #else IF ( .NOT. OPEN3( BDSNP_NFILE, FSREAD3, PNAME ) ) THEN mesg = 'Open failure for ' // BDSNP_NFILE Call M3EXIT( PNAME, 0, 0, mesg, XSTAT1 ) END IF IF ( .NOT. DESC3( BDSNP_NFILE ) ) THEN MESG = 'Could not get description of file "' // & TRIM( BDSNP_NFILE ) // '"' CALL M3EXIT( PNAME, 0, 0, MESG, XSTAT1 ) END IF call subhfile( BDSNP_NFILE, gxoff, gyoff, strtcol, & endcol, strtrow, endrow ) megan_day = sdate3d megan_hr = stime3d do i = 1,12 write( var, '(A8,I2.2)' ) 'NITROGEN', i IF ( .NOT. XTRACT3( BDSNP_NFILE, var, & 1, 1, strtrow, endrow, strtcol, endcol, & megan_day, megan_hr, bdsnp_ndep(:,:,i) ) ) THEN mesg = 'Could not extract ' // BDSNP_NFILE // ' file' CALL M3EXIT ( PNAME, 0, megan_hr, mesg, XSTAT1 ) END IF end do #endif end if ! BDSNP fertilizer input #ifdef mpas i = FLOAT( MOD( STDATE, 1000 ) ) write( var, '(A4,I3.3)' ) 'FERT', i call mio_fread (BDSNP_FFILE, var, pname, bdsnp_fert(:,1)) call mio_fread (BDSNP_AFILE, 'ARID', pname, bdsnp_arid(:,1)) call mio_fread (BDSNP_NAFILE, 'NONARID', pname, bdsnp_nonarid(:,1)) call mio_fread (BDSNP_LFILE, 'LANDTYPE', pname, bdsnp_landtype(:,1)) #else IF ( .NOT. OPEN3( BDSNP_FFILE, FSREAD3, PNAME ) ) THEN mesg = 'Open failure for ' // BDSNP_FFILE Call M3EXIT( PNAME, 0, 0, mesg, XSTAT1 ) END IF IF ( .NOT. DESC3( BDSNP_FFILE ) ) THEN MESG = 'Could not get description of file "' // & TRIM( BDSNP_FFILE ) // '"' CALL M3EXIT( PNAME, 0, 0, MESG, XSTAT1 ) END IF call subhfile( BDSNP_FFILE, gxoff, gyoff, strtcol, & endcol, strtrow, endrow ) i = FLOAT( MOD( STDATE, 1000 ) ) write( var, '(A4,I3.3)' ) 'FERT', i IF ( .NOT. XTRACT3( BDSNP_FFILE, var, & 1, 1, strtrow, endrow, strtcol, endcol, & megan_day, megan_hr, bdsnp_fert(:,:) ) ) THEN mesg = 'Could not extract ' // BDSNP_FFILE // ' file' CALL M3EXIT ( PNAME, 0, megan_hr, mesg, XSTAT1 ) END IF ! BDSNP arid input IF ( .NOT. OPEN3( BDSNP_AFILE, FSREAD3, PNAME ) ) THEN mesg = 'Open failure for ' // BDSNP_AFILE Call M3EXIT( PNAME, 0, 0, mesg, XSTAT1 ) END IF IF ( .NOT. DESC3( BDSNP_AFILE ) ) THEN MESG = 'Could not get description of file "' // & TRIM( BDSNP_AFILE ) // '"' CALL M3EXIT( PNAME, 0, 0, MESG, XSTAT1 ) END IF call subhfile( BDSNP_AFILE, gxoff, gyoff, strtcol, & endcol, strtrow, endrow ) IF ( .NOT. XTRACT3( BDSNP_AFILE, 'ARID', & 1, 1, strtrow, endrow, strtcol, endcol, & megan_day, megan_hr, bdsnp_arid(:,:) ) ) THEN mesg = 'Could not extract ' // BDSNP_AFILE // ' file' CALL M3EXIT ( PNAME, 0, megan_hr, mesg, XSTAT1 ) END IF ! BDSNP nonarid input IF ( .NOT. OPEN3( BDSNP_NAFILE, FSREAD3, PNAME ) ) THEN mesg = 'Open failure for ' // BDSNP_NAFILE Call M3EXIT( PNAME, 0, 0, mesg, XSTAT1 ) END IF IF ( .NOT. DESC3( BDSNP_NAFILE ) ) THEN MESG = 'Could not get description of file "' // & TRIM( BDSNP_NAFILE ) // '"' CALL M3EXIT( PNAME, 0, 0, MESG, XSTAT1 ) END IF call subhfile( BDSNP_NAFILE, gxoff, gyoff, strtcol, & endcol, strtrow, endrow ) IF ( .NOT. XTRACT3( BDSNP_NAFILE, 'NONARID', & 1, 1, strtrow, endrow, strtcol, endcol, & megan_day, megan_hr, bdsnp_nonarid(:,:) ) ) THEN mesg = 'Could not extract ' // BDSNP_NAFILE // ' file' CALL M3EXIT ( PNAME, 0, megan_hr, mesg, XSTAT1 ) END IF ! BDSNP landtype input IF ( .NOT. OPEN3( BDSNP_LFILE, FSREAD3, PNAME ) ) THEN mesg = 'Open failure for ' // BDSNP_LFILE Call M3EXIT( PNAME, 0, 0, mesg, XSTAT1 ) END IF IF ( .NOT. DESC3( BDSNP_LFILE ) ) THEN MESG = 'Could not get description of file "' // & TRIM( BDSNP_LFILE ) // '"' CALL M3EXIT( PNAME, 0, 0, MESG, XSTAT1 ) END IF call subhfile( BDSNP_LFILE, gxoff, gyoff, strtcol, & endcol, strtrow, endrow ) IF ( .NOT. XTRACT3( BDSNP_LFILE, 'LANDTYPE', & 1, 1, strtrow, endrow, strtcol, endcol, & megan_day, megan_hr, bdsnp_landtype(:,:) ) ) THEN mesg = 'Could not extract ' // BDSNP_LFILE // ' file' CALL M3EXIT ( PNAME, 0, megan_hr, mesg, XSTAT1 ) END IF #endif end if ! BDSNP_MEGAN end subroutine megan_setup ! MPAS only routines: #ifdef mpas ! ------------------------------------------------------------------------- subroutine stack_files_setup_mpas ! USE UTILIO_DEFN use stk_prms use stack_group_data_module use get_env_module use hgrd_defn, only : ncols, mype use vgrd_defn, only : nlays use coupler_module, only : pres_ind, g3ddata use centralized_io_util_module, only : quicksort use util_module, only : index1 use RUNTIME_VARS, only : emis_sym_date use mydata_module include SUBST_FILES_ID ! file name parameters character( 40 ), parameter :: pname = 'stack_files_setup_mpas' character( 120 ) :: xmsg = ' ' character( 500 ) :: map_fname, fname integer :: n, v, pt, max_nsrc_pts, max_nvars, begin, end, stat, delta, & num_mesh_points, my_num_mesh_points, t_nvars, floc integer, allocatable :: d_size(:), pt_size(:), & stk_gp_sdate(:), stk_gp_stime(:), & stk_gp_nlays(:), mpas_map(:), my_mpas_map_index(:), & tdata_1di(:) real, allocatable :: tdata_1dr(:) call get_env (map_fname, 'mpas_dmap_file', ' ') call get_env (num_mesh_points, 'num_mesh_points', 1) allocate (cio_stack_file_name(nptgrps), & cio_stack_file_loc(nptgrps), & n_cio_stack_emis_vars(nptgrps), & n_cio_stack_emis_lays(nptgrps), & n_cio_stack_emis_pts(nptgrps), & cio_mpas_stack_emis_timestamp(nptgrps), & stkgname(nptgrps), & d_size(nptgrps), & pt_size(nptgrps), & stk_gp_sdate(nptgrps), & stk_gp_stime(nptgrps), & stk_gp_nlays(nptgrps), & fire_on(nptgrps), & nsrc(nptgrps), & mpas_map(num_mesh_points), & my_mpas_map_index(num_mesh_points), ! my mesh point & stat=stat) if (stat .ne. 0) then xmsg = 'Failure allocating cio_stack_file_name and other arrays' call prog_interrupt (pname, 0, 0, xmsg, 1) end if my_data = .false. my_cell_num = -1 open (unit = 97, file = map_fname, status = 'old') my_num_mesh_points = 0 do n = 1, num_mesh_points read (97, *) mpas_map(n) if (mpas_map(n) == mype) then my_num_mesh_points = my_num_mesh_points + 1 my_mpas_map_index(my_num_mesh_points) = n end if end do close (97) fire_on = .false. ! array assignment ! go through all stack group one time to figure out max number of source points stkgname = ' ' ! array do n = 1, nptgrps write( stkgname( n ),'( "STK_GRPS_",I3.3 )' ) n end do if ( .not. stk_prms_init( stkgname ) ) then write (cio_logdev, *) 'Could not initialize stack parameters' stop end if do n = 1, nptgrps floc = mio_search(stkgname(n)) ! stk_gp_sdate(n) = mio_file_data(floc)%var_name(ivar) ! stk_gp_stime(n) = mio_file_data(floc)%var_name(ivar) stk_gp_nlays(n) = mio_file_data(floc)%dim_value(3) nsrc( n ) = mio_file_data(floc)%dim_value(5) do v = 1, mio_file_data(floc)%nvars if ( mio_file_data(floc)%var_name(v) .eq. 'ACRESBURNED' ) fire_on( n ) = .true. end do end do max_nsrc_pts = maxval(nsrc) allocate (stkid(max_nsrc_pts, nptgrps), & my_nsrc_index(max_nsrc_pts, nptgrps), ! my source number & my_nsrc_mesh_index(max_nsrc_pts, nptgrps), ! my source w.r.t. to my mesh point & my_nsrc_pressure(nlays, max_nsrc_pts, nptgrps), ! my source pressure & stat = stat) if (stat .ne. 0) then xmsg = 'Failure allocating other stack group variable arrays' call prog_interrupt (pname, cio_model_sdate, cio_model_stime, xmsg, 1) end if ! read in stack group data do n = 1, nptgrps allocate (tdata_1di(nsrc(n)), stat = stat) call mio_fread (stkgname(n), 'ROW', pname, tdata_1di) my_nsrc(n) = 0 do v = 1, nsrc(n) pt = index1 (tdata_1di(v), my_num_mesh_points, my_mpas_map_index) if (pt .gt. 0) then my_nsrc(n) = my_nsrc(n) + 1 my_nsrc_index(my_nsrc(n), n) = v my_nsrc_mesh_index(my_nsrc(n), n) = pt end if end do deallocate (tdata_1di) end do allocate ( my_stkbuff ( maxval( my_nsrc ) ), & my_colbuff ( maxval( my_nsrc ) ), & my_rowbuff ( maxval( my_nsrc ) ), & stat=stat ) my_strt_src = 0 do n = 1, nptgrps if ( my_nsrc( n ) .gt. 0 ) then my_strt_src(n) = 1 my_end_src(n) = my_nsrc(n) stkdiam(n)%len = my_nsrc(n) stkht(n)%len = my_nsrc(n) stktk(n)%len = my_nsrc(n) stkvel(n)%len = my_nsrc(n) allocate (stkdiam(n)%arry(my_nsrc(n)), & stkht(n)%arry(my_nsrc(n)), & stktk(n)%arry(my_nsrc(n)), & stkvel(n)%arry(my_nsrc(n)), & tdata_1dr(nsrc(n)), & stat=stat ) if ( fire_on(n) ) then acres_burned(n)%len = my_nsrc(n) allocate (acres_burned(n)%arry(my_nsrc(n)), & stat=stat ) end if call mio_fread (stkgname(n), 'STKDM', pname, tdata_1dr) do v = 1, my_nsrc(n) stkdiam( n )%arry(v) = tdata_1dr(my_nsrc_index(v, n)) my_nsrc_pressure(:,v,n) = g3ddata(my_nsrc_mesh_index(v, n),1,:,pres_ind) end do call mio_fread (stkgname(n), 'STKHT', pname, tdata_1dr) do v = 1, my_nsrc(n) stkht( n )%arry(v) = tdata_1dr(my_nsrc_index(v, n)) end do call mio_fread (stkgname(n), 'STKTK', pname, tdata_1dr) do v = 1, my_nsrc(n) stktk( n )%arry(v) = tdata_1dr(my_nsrc_index(v, n)) end do call mio_fread (stkgname(n), 'STKVE', pname, tdata_1dr) do v = 1, my_nsrc(n) stkvel( n )%arry(v) = tdata_1dr(my_nsrc_index(v, n)) end do if ( fire_on( n ) ) then call mio_fread (stkgname(n), 'ACRESBURNED', pname, tdata_1dr) do v = 1, my_nsrc(n) acres_burned( n )%arry(v) = tdata_1dr(my_nsrc_index(v, n)) end do end if deallocate (tdata_1dr) end if end do ! process stack emission files max_nvars = 0 d_size = 0 do pt = 1, nptgrps write( cio_stack_file_name(pt), '( "STK_EMIS_",I3.3 )' ) pt floc = mio_search(cio_stack_file_name(pt)) cio_stack_file_loc(pt) = floc n_cio_stack_emis_vars(pt) = mio_file_data(floc)%nvars n_cio_stack_emis_lays(pt) = mio_file_data(floc)%nlays n_cio_stack_emis_pts(pt) = nsrc( pt ) cio_mpas_stack_emis_timestamp(pt) = mio_file_data(floc)%timestamp(1) if (max_nvars .lt. mio_file_data(floc)%nvars) then max_nvars = mio_file_data(floc)%nvars end if if (my_strt_src(pt) .gt. 0) then pt_size(pt) = (my_end_src(pt) - my_strt_src(pt) + 1) * n_cio_stack_emis_lays(pt) d_size(pt) = mio_file_data(floc)%nvars * pt_size(pt) * 3 else pt_size(pt) = 0 d_size(pt) = 0 end if end do allocate (cio_stack_var_name(max_nvars, nptgrps), & head_stack_emis(max_nvars, nptgrps), & tail_stack_emis(max_nvars, nptgrps), & cio_stack_emis_data_inx(2, 0:2, max_nvars, nptgrps), & cio_stack_emis_data_tstamp(2, 0:2, max_nvars, nptgrps), & cio_stack_data(sum(d_size)), & f_stk_emis(NPTGRPS), & stat = stat) if (stat .ne. 0) then xmsg = 'Failure allocating other stack arrays' call prog_interrupt (pname, 0, 0, xmsg, 1) end if begin = 1 cio_stack_emis_data_inx = -1 do pt = 1, nptgrps floc = cio_stack_file_loc(pt) n_opened_file = n_opened_file + 1 f_stk_emis(pt) = n_opened_file ! Check whether file is a representative day type write (fname, '(a16, i3.3)') "STK_EM_SYM_DATE_", pt file_sym_date(f_stk_emis(pt)) = emis_sym_date ! Master switch to change default call get_env(file_sym_date(f_stk_emis(pt)), fname, & file_sym_date(f_stk_emis(pt)), logdev) file_sdate(f_stk_emis(pt)) = mio_file_data(floc)%tflag(1,1) file_stime(f_stk_emis(pt)) = mio_file_data(floc)%tflag(2,1) file_tstep(f_stk_emis(pt)) = mio_file_data(floc)%tstep t_nvars = mio_file_data(floc)%nvars cio_stack_var_name(1:t_nvars, pt) = mio_file_data(floc)%var_name(1:t_nvars) call quicksort(cio_stack_var_name(1:t_nvars,pt), 1, t_nvars) if (my_nsrc(pt) .gt. 0) then do v = 1, mio_file_data(floc)%nvars do n = 0, 2 cio_stack_emis_data_inx(1,n,v,pt) = begin end = begin + pt_size(pt) - 1 cio_stack_emis_data_inx(2,n,v,pt) = end begin = end + 1 end do end do end if end do deallocate (d_size) end subroutine stack_files_setup_mpas ! ------------------------------------------------------------------------- subroutine retrieve_stack_data_mpas (jdate, jtime, fname, vname) ! USE UTILIO_DEFN use stk_prms, only : my_strt_src, my_end_src, my_nsrc, my_nsrc_index use stack_group_data_module, only : nsrc use util_module, only : NEXTIME use centralized_io_util_module, only : binary_search include SUBST_FILES_ID ! file name parameters integer, intent(in) :: jdate, jtime character (*), intent(in), optional :: fname, vname character( 40 ), parameter :: pname = 'retrieve_stack_data_mpas' logical, save :: firstime = .true. integer :: stat, i, j, begin, end, buf_loc, iterations, & iter, loc_jdate, loc_jtime, v, beg_v, end_v, & beg_gp, end_gp, gp, fnum real, allocatable :: tdata_1dr(:) character (20) :: mpas_time_stamp character (20), allocatable, save :: mpas_stack_loc_time_stamp(:) character( 120 ) :: xmsg = ' ' if (firstime) then allocate (mpas_stack_loc_time_stamp(nptgrps), stat=stat) do i = 1, nptgrps j = mio_search (cio_stack_file_name(i)) mpas_stack_loc_time_stamp(i) = mio_file_data(j)%timestamp(1) end do head_stack_emis = -1 tail_stack_emis = -1 iterations = 2 else iterations = 1 end if if (present(vname)) then beg_gp = binary_search (fname, cio_stack_file_name, nptgrps) end_gp = beg_gp beg_v = binary_search (vname, cio_stack_var_name(:,beg_gp), n_cio_stack_emis_vars(beg_gp)) end_v = beg_v else beg_gp = 1 end_gp = nptgrps end if do gp = beg_gp, end_gp allocate (tdata_1dr(nsrc(gp)), stat = stat) if (firstime) then loc_jdate = jdate if (file_sym_date(f_stk_emis(gp))) loc_jdate = file_sdate(f_stk_emis(gp)) ! Representative day check loc_jtime = jtime else loc_jdate = jdate loc_jtime = jtime end if if (.not. present(vname)) then beg_v = 1 end_v = n_cio_stack_emis_vars(gp) end if ! cio_stack_emis_data_inx do iter = 1, iterations call mio_time_format_conversion (loc_jdate, loc_jtime, mpas_time_stamp) do v = beg_v, end_v buf_loc = mod((tail_stack_emis(v, gp) + iter), 2) cio_stack_emis_data_tstamp(1, buf_loc, v, gp) = loc_jdate cio_stack_emis_data_tstamp(2, buf_loc, v, gp) = loc_jtime begin = cio_stack_emis_data_inx(1, buf_loc, v, gp) end = cio_stack_emis_data_inx(2, buf_loc, v, gp) if ((begin .gt. 0) .and. (my_nsrc(gp) .gt. 0)) then call mio_fread (cio_stack_file_name(gp), & cio_stack_var_name(v, gp), & pname, & tdata_1dr, & mpas_time_stamp) do i = 1, my_nsrc(gp) cio_stack_data(begin+i-1) = tdata_1dr(my_nsrc_index(i, gp)) end do end if end do call nextime ( loc_jdate, loc_jtime, file_tstep(f_stk_emis(gp)) ) end do ! end iter deallocate (tdata_1dr) end do if (firstime) then firstime = .false. head_stack_emis = 0 tail_stack_emis = 1 else do gp = beg_gp, end_gp do v = beg_v, end_v head_stack_emis(v, gp) = mod(head_stack_emis(v, gp)+1, 2) tail_stack_emis(v, gp) = mod(tail_stack_emis(v, gp)+1, 2) end do end do end if end subroutine retrieve_stack_data_mpas ! ------------------------------------------------------------------------- subroutine retrieve_ocean_data_mpas USE HGRD_DEFN USE mio_module, only : mio_search character (30), parameter :: pname = 'retrieve_ocean_data_mpas' character (20) :: ocean_file = 'OCEAN_1' character (120) :: xmsg = ' ' character (1000) :: fname integer :: floc, stat logical :: exist call get_env (fname, ocean_file, ' ') inquire (file=fname, exist=exist) allocate (ocean(ncols, nrows), & szone(ncols, nrows), & chlr(ncols, nrows), & dmsl(ncols, nrows), & STAT=STAT) if (stat .ne. 0) then xmsg = 'Failure allocating OPEN, SURF, CHLO, DMS array' call M3EXIT (PNAME, 0, 0, XMSG, 1) end if if (ocean_chem) then ! if OCEAN file does not exist, g2ddata with open_ind and surf_ind have ! been setup in subroutne mpas_cmaq_coupler, mpas_atmchem_interface.F if (exist) then floc = mio_search (ocean_file) call mio_fread (ocean_file, & 'OPEN', & pname, & g2ddata(:, 1, open_ind), & mio_file_data(floc)%timestamp(1)) call mio_fread (ocean_file, & 'SURF', & pname, & g2ddata(:, 1, surf_ind), & mio_file_data(floc)%timestamp(1)) call mio_fread (ocean_file, & 'CHLO', & pname, & g2ddata(:, 1, chlo_ind), & mio_file_data(floc)%timestamp(1)) call mio_fread (ocean_file, & 'DMS', & pname, & g2ddata(:, 1, dms_ind), & mio_file_data(floc)%timestamp(1)) end if ocean(:,1) = g2ddata(:,1,open_ind) szone(:,1) = g2ddata(:,1,surf_ind) dmsl(:,1) = g2ddata(:,1,dms_ind) chlr(:,1) = g2ddata(:,1,chlo_ind) else ocean = 0.0 szone = 0.0 dmsl = 0.0 chlr = 0.0 end if end subroutine retrieve_ocean_data_mpas ! ------------------------------------------------------------------------- subroutine r_interpolate_var_1d_mpas (vname, date, time, data) use hgrd_defn, only : ncols, nrows use vgrd_defn, only : nlays use centralized_io_util_module, only : binary_search character (*), intent(in) :: vname integer, intent(in) :: date, time real, intent(out) :: data(:) integer :: var_loc character (40) :: msg var_loc = binary_search (vname, vname_2d, n2d_data) if (var_loc .gt. 0) then data = g2ddata(:,1,var_loc) else write (msg, *) ' Error: Cannot find species ', trim(vname) call prog_interrupt ( 'interpolate_var', 0, 0, msg, 1) end if end subroutine r_interpolate_var_1d_mpas ! ------------------------------------------------------------------------- subroutine r_interpolate_var_1ds_mpas (fname, vname, date, time, data) use stk_prms, only : my_strt_src, my_end_src, my_nsrc use util_module, only : nextime , secsdiff use centralized_io_util_module, only : binary_search use util_module, only : time2sec character (*), intent(in) :: fname, vname integer, intent(in) :: date, time real, intent(out) :: data(:) integer :: head_beg_ind, head_end_ind, & tail_beg_ind, tail_end_ind, & store_beg_ind, store_end_ind, & var_loc, loc_head, loc_tail, m, r, c, & loc_jdate, loc_jtime, dsize, pt, loc_tstep integer, save :: prev_time = -1 integer, save :: prev_head_time = -1 integer, save :: prev_tail_time = -1 integer, save :: lcount = 0 real, save :: ratio1, ratio2 character(200) :: xmsg pt = binary_search (fname, cio_stack_file_name, NPTGRPS) var_loc = binary_search (vname, cio_stack_var_name(:,pt), n_cio_stack_emis_vars(pt)) if (var_loc .lt. 0) then write (cio_logdev, '(a9, a, a33)') 'Warning: ', trim(vname), ' is not available in a stack file.' write (xmsg, '(A9,A,A,A)' ) 'ERROR: ',trim(vname), ' is not available ', & 'on a Stack Emisison file. Simulation will now terminate.' call M3EXIT ( 'Centralized I/O Module', date, time, xmsg, 1 ) else dsize = my_nsrc(pt) loc_tstep = file_tstep(f_stk_emis(pt)) loc_head = head_stack_emis(var_loc, pt) loc_tail = tail_stack_emis(var_loc, pt) if ((cio_stack_emis_data_tstamp(1, loc_tail, var_loc, pt) .lt. date) .or. & ((cio_stack_emis_data_tstamp(1, loc_tail, var_loc, pt) .eq. date) .and. & (cio_stack_emis_data_tstamp(2, loc_tail, var_loc, pt) .eq. 0)) .or. & ((cio_stack_emis_data_tstamp(2, loc_tail, var_loc, pt) .lt. time) .and. & (cio_stack_emis_data_tstamp(1, loc_tail, var_loc, pt) .eq. date))) then loc_jdate = cio_stack_emis_data_tstamp(1, loc_tail, var_loc, pt) loc_jtime = cio_stack_emis_data_tstamp(2, loc_tail, var_loc, pt) CALL NEXTIME ( loc_jdate, loc_jtime, loc_tstep ) call retrieve_stack_data_mpas (loc_jdate, loc_jtime, fname, vname) loc_head = head_stack_emis(var_loc, pt) loc_tail = tail_stack_emis(var_loc, pt) end if if ((cio_stack_emis_data_tstamp(1, 2, var_loc, pt) .eq. date) .and. & (cio_stack_emis_data_tstamp(2, 2, var_loc, pt) .eq. time)) then count = count + 1 else cio_stack_emis_data_tstamp(1, 2, var_loc, pt) = date cio_stack_emis_data_tstamp(2, 2, var_loc, pt) = time if ((prev_time .ne. time) .or. & (prev_head_time .ne. cio_stack_emis_data_tstamp(2, loc_head, var_loc, pt)) .or. & (prev_tail_time .ne. cio_stack_emis_data_tstamp(2, loc_tail, var_loc, pt))) then if (cio_stack_emis_data_tstamp(1, loc_head, var_loc, pt) .eq. date) then ratio2 = real(secsdiff(time, cio_stack_emis_data_tstamp(2, loc_head, var_loc, pt))) & / real(time2sec(loc_tstep)) ratio1 = 1.0 - ratio2 else ratio2 = real(secsdiff(240000, cio_stack_emis_data_tstamp(2, loc_head, var_loc, pt))) & / real(time2sec(loc_tstep)) ratio1 = 1.0 - ratio2 end if prev_time = time prev_head_time = cio_stack_emis_data_tstamp(2, loc_head, var_loc, pt) prev_tail_time = cio_stack_emis_data_tstamp(2, loc_tail, var_loc, pt) if ( (ratio1 .lt. 0) .or. (ratio2 .lt. 0) & .or. (ratio1 .gt. 1) .or. (ratio2 .gt. 1)) then write(logdev,'(5X,a,a)'), & 'ERROR: Incorrect Interpolation in 1-D Stack Interpolation for variable: ', & trim(vname) write(logdev,'(5X,a,i7,a,i6)'), & 'Requested TIME & DATE: ',date,':',time write(logdev,'(5X,a,i7,a,i6,a,i7,a,i6)'), & 'Interpolation Bounds ',cio_stack_emis_data_tstamp(1,0,var_loc,pt), & ':',cio_stack_emis_data_tstamp(2,0,var_loc,pt),' to ', & cio_stack_emis_data_tstamp(1,1,var_loc,pt),':',cio_stack_emis_data_tstamp(2,1,var_loc,pt) call M3EXIT( 'Centralized I/O',date,time,'',1 ) write(logdev,'(5X,a)'), & 'ERROR: Program EXIT in subroutine r_interpolate_var_1ds in module centralized io' end if else lcount = lcount + 1 end if head_beg_ind = cio_stack_emis_data_inx(1,loc_head,var_loc, pt) head_end_ind = cio_stack_emis_data_inx(2,loc_head,var_loc, pt) tail_beg_ind = cio_stack_emis_data_inx(1,loc_tail,var_loc, pt) tail_end_ind = cio_stack_emis_data_inx(2,loc_tail,var_loc, pt) store_beg_ind = cio_stack_emis_data_inx(1,2,var_loc, pt) store_end_ind = cio_stack_emis_data_inx(2,2,var_loc, pt) cio_stack_data(store_beg_ind:store_end_ind) = cio_stack_data(head_beg_ind:head_end_ind) * ratio1 & + cio_stack_data(tail_beg_ind:tail_end_ind) * ratio2 end if store_beg_ind = cio_stack_emis_data_inx(1,2,var_loc, pt) data(1:dsize) = cio_stack_data(store_beg_ind:store_beg_ind+dsize-1) end if end subroutine r_interpolate_var_1ds_mpas ! ------------------------------------------------------------------------- subroutine r_interpolate_var_2d_mpas (vname, date, time, data, & scol, ecol, srow, erow, slay) use hgrd_defn, only : ncols, nrows use vgrd_defn, only : nlays use centralized_io_util_module, only : binary_search character (*), intent(in) :: vname integer, intent(in) :: date, time real, intent(out) :: data(:,:) integer, intent(in), optional :: scol, ecol, srow, erow, slay integer :: var_loc character (40) :: msg var_loc = binary_search (vname, vname_2d, n2d_data) if (var_loc .gt. 0) then data = g2ddata(:,:,var_loc) else write (msg, *) ' Error: Cannot find species ', trim(vname) call prog_interrupt ( 'interpolate_var', 0, 0, msg, 1) end if end subroutine r_interpolate_var_2d_mpas ! ------------------------------------------------------------------------- subroutine i_interpolate_var_2d_mpas (vname, date, time, data) use hgrd_defn, only : ncols, nrows use vgrd_defn, only : nlays use centralized_io_util_module, only : binary_search character (*), intent(in) :: vname integer, intent(in) :: date, time integer, intent(out) :: data(:,:) integer :: var_loc character (40) :: msg var_loc = binary_search (vname, vname_2d, n2d_data) if (var_loc .gt. 0) then data = g2ddata(:,:,var_loc) else write (msg, *) ' Error: Cannot find species ', trim(vname) call prog_interrupt ( 'interpolate_var', 0, 0, msg, 1) end if end subroutine i_interpolate_var_2d_mpas ! ------------------------------------------------------------------------- subroutine r_interpolate_var_2dx_mpas (vname, date, time, data, flag) use hgrd_defn, only : ncols, nrows use vgrd_defn, only : nlays use centralized_io_util_module, only : binary_search character (*), intent(in) :: vname integer, intent(in) :: date, time logical, intent(in) :: flag real, intent(out) :: data(:,:) integer :: var_loc character (40) :: msg var_loc = binary_search (vname, vname_2d, n2d_data) if (var_loc .gt. 0) then data = g2ddata(:,:,var_loc) else write (msg, *) ' Error: Cannot find species ', trim(vname) call prog_interrupt ( 'interpolate_var', 0, 0, msg, 1) end if end subroutine r_interpolate_var_2dx_mpas ! ------------------------------------------------------------------------- subroutine r_interpolate_var_3d_mpas (vname, date, time, data, fname) use hgrd_defn, only : ncols, nrows use util_module, only : nextime use centralized_io_util_module, only : binary_search, time_diff use util_module, only : time2sec character (*), intent(in) :: vname integer, intent(in) :: date, time real, intent(out) :: data(:,:,:) character (*), intent(in), optional :: fname integer :: var_loc, slen, loc_head, loc_tail, & loc_jdate, loc_jtime, beg_k, end_k, & m, k, r, c, & head_beg_ind, head_end_ind, & tail_beg_ind, tail_end_ind, & store_beg_ind, store_end_ind, loc_tstep, fnum integer, save :: prev_time = -1 integer, save :: prev_head_time = -1 integer, save :: lcount = 0 real, save :: ratio1, ratio2 character (40) :: msg, loc_vname character (20) :: loc_mpas_time_stamp if (present(fname)) then slen = len_trim(fname) loc_vname = trim(vname) // fname(slen-3:slen) else loc_vname = vname end if var_loc = binary_search (loc_vname, vname_3d, n3d_data) if (var_loc .gt. 0) then data = g3ddata(:,:,:,var_loc) else var_loc = binary_search (loc_vname, cio_grid_var_name(:,1), n_cio_grid_vars) if (var_loc .lt. 0) then write (msg, *) ' Error: Cannot find species ', trim(vname) call prog_interrupt ( 'interpolate_var', 0, 0, msg, 1) else loc_head = head_grid(var_loc) loc_tail = tail_grid(var_loc) if (cio_grid_var_name(var_loc,3) == 'm') then loc_tstep = file_tstep(f_met) else if ((cio_grid_var_name(var_loc,2) == 'e2d') .or. & (cio_grid_var_name(var_loc,2) == 'e3d')) then slen = len_trim(cio_grid_var_name(var_loc,1)) read (cio_grid_var_name(var_loc,1)(slen-2:slen), *) fnum loc_tstep = file_tstep(f_emis(fnum)) else if (cio_grid_var_name(var_loc,2) == 'lnt') then loc_tstep = file_tstep(f_ltng) else if (cio_grid_var_name(var_loc,2) == 'ic') then loc_tstep = file_tstep(f_icon) else if (cio_grid_var_name(var_loc,2) == 'bct') then loc_tstep = file_tstep(f_bcon) else if (cio_grid_var_name(var_loc,2) == 'is') then loc_tstep = file_tstep(f_is_icon) end if call mio_time_format_conversion (date, time, loc_mpas_time_stamp) if (cio_mpas_grid_data_tstamp(loc_tail, var_loc) .lt. loc_mpas_time_stamp) then call mio_time_format_conversion (cio_mpas_grid_data_tstamp(loc_tail, var_loc), loc_jdate, loc_jtime) call retrieve_time_dep_gridded_data (loc_jdate, loc_jtime, loc_vname) loc_head = head_grid(var_loc) loc_tail = tail_grid(var_loc) end if if ((cio_grid_data_tstamp(1, 2, var_loc) .eq. date) .and. & (cio_grid_data_tstamp(2, 2, var_loc) .eq. time)) then count = count + 1 else cio_grid_data_tstamp(1, 2, var_loc) = date cio_grid_data_tstamp(2, 2, var_loc) = time if ((prev_time .ne. time) .or. & (prev_head_time .ne. cio_grid_data_tstamp(2, loc_head, var_loc))) then if (cio_grid_data_tstamp(1, loc_head, var_loc) .eq. date) then ratio2 = real(time_diff(time, cio_grid_data_tstamp(2, loc_head, var_loc))) & / real(time2sec(loc_tstep)) ratio1 = 1.0 - ratio2 else ratio2 = real(time_diff(240000, cio_grid_data_tstamp(2, loc_head, var_loc))) & / real(time2sec(loc_tstep)) ratio1 = 1.0 - ratio2 end if prev_time = time prev_head_time = cio_grid_data_tstamp(2, loc_head, var_loc) else lcount = lcount + 1 end if head_beg_ind = cio_grid_data_inx(1,loc_head,var_loc) head_end_ind = cio_grid_data_inx(2,loc_head,var_loc) tail_beg_ind = cio_grid_data_inx(1,loc_tail,var_loc) tail_end_ind = cio_grid_data_inx(2,loc_tail,var_loc) store_beg_ind = cio_grid_data_inx(1,2,var_loc) store_end_ind = cio_grid_data_inx(2,2,var_loc) cio_grid_data(store_beg_ind:store_end_ind) = cio_grid_data(head_beg_ind:head_end_ind) * ratio1 & + cio_grid_data(tail_beg_ind:tail_end_ind) * ratio2 end if beg_k = 1 if (cio_grid_var_name(var_loc, 2) .eq. 'e2d') then end_k = 1 else end_k = size(data,3) end if store_beg_ind = cio_grid_data_inx(1,2,var_loc) m = store_beg_ind - 1 do k = beg_k, end_k do r = 1, size(data,2) do c = 1, size(data,1) m = m + 1 data(c,r,k) = cio_grid_data(m) end do end do end do end if end if end subroutine r_interpolate_var_3d_mpas #else ! ------------------------------------------------------------------------- subroutine boundary_files_setup USE UTILIO_DEFN use HGRD_DEFN, only : ncols, nrows USE VGRD_DEFN, only : VGTYP_GD, nlays use centralized_io_util_module, only : quicksort INCLUDE SUBST_FILES_ID ! file name parameters Character( 40 ), parameter :: pname = 'boundary_files_setup' CHARACTER( 120 ) :: XMSG = ' ' INTEGER :: GXOFF, GYOFF, stat, n, v, d_size, begin, end character( 16 ), allocatable :: b3d_name(:,:) character( 16 ) :: mb3d_name(2, 2) ! MET_BDY_3D file, need to be opened when window is F if (.not. window) then #ifndef twoway IF ( .NOT. OPEN3( MET_BDY_3D, FSREAD3, PNAME ) ) THEN XMSG = 'Could not open '// MET_BDY_3D // ' file' CALL M3EXIT ( PNAME, 0, 0, XMSG, XSTAT1 ) END IF IF ( .NOT. DESC3( MET_BDY_3D ) ) THEN XMSG = 'Could not get file description from '// MET_BDY_3D CALL M3EXIT ( PNAME, 0, 0, XMSG, XSTAT1 ) END IF #endif n_mb3d = 2 mb3d_name = 'mb' ! denote met 3D boundary variable mb3d_name(1,1) = 'DENSA_J' mb3d_name(2,1) = 'JACOBM' else n_mb3d = 0 end if ! BCON file IF ( .NOT. OPEN3( BCFILE, FSREAD3, PNAME ) ) THEN XMSG = 'Could not open '// BCFILE // ' file' CALL M3EXIT ( PNAME, 0, 0, XMSG, XSTAT1 ) END IF n_opened_file = n_opened_file + 1 f_bcon = n_opened_file IF ( .NOT. DESC3( BCFILE ) ) THEN XMSG = 'Could not get description of file '// BCFILE CALL M3EXIT ( PNAME, 0, 0, XMSG, XSTAT1 ) END IF file_sdate(f_bcon) = sdate3d file_stime(f_bcon) = stime3d file_tstep(f_bcon) = tstep3d file_xcell(f_bcon) = xcell3d file_ycell(f_bcon) = ycell3d n_b3d = nvars3d size_b2d = (ncols3d + nrows3d + 2 * nthik3d) * 2 * nthik3d size_b3d = size_b2d * nlays allocate (b3d_name(n_b3d, 2), & cio_bc_file_var_name(nvars3d), & stat=stat) if (stat .ne. 0) then xmsg = 'Failure allocating mb3d_name ' call m3exit (pname, 0, 0, xmsg, xstat1 ) end if if (tstep3d == 0) then b3d_name = 'bc' ! denote time independent 3D boundary variable else b3d_name = 'bct' ! denote time dependent 3D boundary variable end if b3d_name(:,1) = vname3d(1:nvars3d) cio_bc_file_var_name = vname3d(1:nvars3d) n_cio_bc_file_vars = nvars3d ! combining all files n_cio_bndy_vars = n_mb3d + n_b3d allocate (cio_bndy_var_name(n_cio_bndy_vars, 2), & cio_bndy_data_inx(2, 0:2, n_cio_bndy_vars), & head_bndy(n_cio_bndy_vars), & tail_bndy(n_cio_bndy_vars), & cio_bndy_data_tstamp(2, 0:2, n_cio_bndy_vars), & cio_bndy_data(size_b3d * 3 * (n_mb3d + n_b3d)), ! boundary data & stat = stat) if (stat .ne. 0) then xmsg = 'Failure allocating cio_bndy_var_name and associated arrays ' call m3exit (pname, 0, 0, xmsg, xstat1 ) end if begin = 1 end = n_b3d cio_bndy_var_name(begin:end, :) = b3d_name if (.not. window) then begin = end + 1 end = end + 2 cio_bndy_var_name(begin:end, :) = mb3d_name end if deallocate (b3d_name) call quicksort(cio_bndy_var_name, 1, n_cio_bndy_vars) begin = 1 do v = 1, n_cio_bndy_vars do n = 0, 2 cio_bndy_data_inx(1, n, v) = begin end = begin + size_b3d - 1 cio_bndy_data_inx(2, n, v) = end begin = end + 1 end do ! this is for checking purposes ! write (logdev, '(a13, i5, 1x, a16, a4, 10i10)') ' ==d== bfile ', v, ! & cio_bndy_var_name(v,:), cio_bndy_data_inx(:,:,v) end do end subroutine boundary_files_setup ! ------------------------------------------------------------------------- subroutine stack_files_setup USE UTILIO_DEFN USE STK_PRMS USE stack_group_data_module USE HGRD_DEFN, only : XORIG_GD, YORIG_GD, XCELL_GD, YCELL_GD INCLUDE SUBST_FILES_ID ! file name parameters Character( 40 ), parameter :: pname = 'stack_files_setup' Character( 32 ) :: fname CHARACTER( 120 ) :: XMSG = ' ' integer :: n, v, pt, max_nsrc_pts, max_nvars, begin, end, stat, delta integer, allocatable :: d_size(:), pt_size(:), & stk_gp_sdate(:), stk_gp_stime(:), & stk_gp_nlays(:) integer :: ldate, ltime, t logical :: found, done allocate (cio_stack_file_name(NPTGRPS), & n_cio_stack_emis_vars(NPTGRPS), & n_cio_stack_emis_lays(NPTGRPS), & n_cio_stack_emis_pts(NPTGRPS), & STKGNAME(NPTGRPS), & d_size(NPTGRPS), & pt_size(NPTGRPS), & stk_gp_sdate(NPTGRPS), & stk_gp_stime(NPTGRPS), & stk_gp_nlays(NPTGRPS), & FIRE_ON(NPTGRPS), & NSRC(NPTGRPS), & stat=stat) if (stat .ne. 0) then xmsg = 'Failure allocating cio_stack_file_name and other arrays' call m3exit (pname, 0, 0, xmsg, xstat1 ) end if FIRE_ON = .FALSE. ! array assignment ! go through all stack group one time to figure out max number of source points STKGNAME = ' ' ! array DO N = 1, NPTGRPS WRITE( STKGNAME( N ),'( "STK_GRPS_",I3.3 )' ) N END DO do N = 1, NPTGRPS IF ( .NOT. OPEN3( STKGNAME( N ), FSREAD3, PNAME ) ) THEN XMSG = 'Could not open '// TRIM( STKGNAME( N ) ) // ' file' call m3exit (pname, cio_model_sdate, cio_model_stime, xmsg, xstat1 ) END IF n_opened_file = n_opened_file + 1 IF ( .NOT. DESC3( STKGNAME( N ) ) ) THEN XMSG = 'Could not get ' // TRIM( STKGNAME( N ) ) // ' file description' call m3exit (pname, cio_model_sdate, cio_model_stime, xmsg, xstat1 ) END IF stk_gp_sdate(n) = sdate3d stk_gp_stime(n) = stime3d stk_gp_nlays(n) = nlays3d NSRC( N ) = NROWS3D DO V = 1, NVARS3D IF ( VNAME3D( V ) .EQ. 'ACRESBURNED' ) FIRE_ON( N ) = .TRUE. END DO end do max_nsrc_pts = maxval(NSRC) allocate (xloca(max_nsrc_pts, NPTGRPS), & yloca(max_nsrc_pts, NPTGRPS), & stkid(max_nsrc_pts, NPTGRPS), & f_stk_emis(NPTGRPS), & stat = stat) if (stat .ne. 0) then xmsg = 'Failure allocating other stack group variable arrays' call m3exit (pname, cio_model_sdate, cio_model_stime, xmsg, xstat1 ) end if ! read in stack group data do N = 1, NPTGRPS IF ( .NOT. READ3( STKGNAME( N ), 'XLOCA', ALLAYS3, & stk_gp_sdate(n), stk_gp_stime(n), XLOCA(:,N) ) ) THEN XMSG = 'Could not read XLOCA from ' // TRIM( STKGNAME( N)) call m3exit (pname, stk_gp_sdate(n), stk_gp_stime(n), xmsg, xstat1 ) END IF IF ( .NOT. READ3( STKGNAME( N ), 'YLOCA', ALLAYS3, & stk_gp_sdate(n), stk_gp_stime(n), YLOCA(:,N) ) ) THEN XMSG = 'Could not read YLOCA from ' // TRIM( STKGNAME( N)) call m3exit (pname, stk_gp_sdate(n), stk_gp_stime(n), xmsg, xstat1 ) END IF IF ( .NOT. READ3( STKGNAME( N ), 'ISTACK', ALLAYS3, & stk_gp_sdate(n), stk_gp_stime(n), STKID(:,N) ) ) THEN XMSG = 'Could not read ISTACK from ' // TRIM( STKGNAME( N) ) call m3exit (pname, stk_gp_sdate(n), stk_gp_stime(n), xmsg, xstat1 ) END IF end do IF ( .NOT. STK_PRMS_INIT( STKGNAME ) ) THEN xmsg = 'Could not initialize stack parameters' call m3exit( 'Stack Files Setup', 0, 0, xmsg, 2 ) END IF do N = 1, NPTGRPS IF ( MY_NSRC( N ) .GT. 0 ) THEN IF ( .NOT. XTRACT3( STKGNAME( N ), 'STKDM', 1, stk_gp_nlays(n), & MY_STRT_SRC( N ), MY_END_SRC( N ), & 1, 1, stk_gp_sdate(n), stk_gp_stime(n), STKDIAM( N )%ARRY) ) THEN XMSG = 'Could not read STKDM from ' // TRIM( STKGNAME( N ) ) call m3exit (pname, stk_gp_sdate(n), stk_gp_stime(n), xmsg, xstat1 ) END IF IF ( .NOT. XTRACT3( STKGNAME( N ), 'STKHT', 1, stk_gp_nlays(n), & MY_STRT_SRC( N ), MY_END_SRC( N ), & 1, 1, stk_gp_sdate(n), stk_gp_stime(n), STKHT( N )%ARRY) ) THEN XMSG = 'Could not read STKHT from ' // TRIM( STKGNAME( N ) ) call m3exit (pname, stk_gp_sdate(n), stk_gp_stime(n), xmsg, xstat1 ) END IF IF ( .NOT. XTRACT3( STKGNAME( N ), 'STKTK', 1, stk_gp_nlays(n), & MY_STRT_SRC( N ), MY_END_SRC( N ), & 1, 1, stk_gp_sdate(n), stk_gp_stime(n), STKTK( N )%ARRY) ) THEN XMSG = 'Could not read STKTK from ' // TRIM( STKGNAME( N ) ) call m3exit (pname, stk_gp_sdate(n), stk_gp_stime(n), xmsg, xstat1 ) END IF IF ( .NOT. XTRACT3( STKGNAME( N ), 'STKVE', 1, stk_gp_nlays(n), & MY_STRT_SRC( N ), MY_END_SRC( N ), & 1, 1, stk_gp_sdate(n), stk_gp_stime(n), STKVEL( N )%ARRY) ) THEN XMSG = 'Could not read STKVE from ' // TRIM( STKGNAME( N ) ) call m3exit (pname, stk_gp_sdate(n), stk_gp_stime(n), xmsg, xstat1 ) END IF IF ( FIRE_ON( N ) ) THEN IF ( .NOT. XTRACT3( STKGNAME( N ), 'ACRESBURNED', 1, stk_gp_nlays(n), & MY_STRT_SRC( N ), MY_END_SRC( N ), & 1, 1, stk_gp_sdate(n), stk_gp_stime(n), ACRES_BURNED( N )%ARRY) ) THEN XMSG = 'Could not read ACRESBURNED from ' // TRIM( STKGNAME( N ) ) call m3exit (pname, stk_gp_sdate(n), stk_gp_stime(n), xmsg, xstat1 ) END IF END IF END IF end do ! process stack emission files max_nvars = 0 d_size = 0 do pt = 1, NPTGRPS WRITE( cio_stack_file_name(pt), '( "STK_EMIS_",I3.3 )' ) pt IF ( .NOT. OPEN3( cio_stack_file_name( pt ), FSREAD3, PNAME ) ) THEN XMSG = 'Could not open '// TRIM( cio_stack_file_name( pt ) ) // ' file' CALL M3MESG( XMSG ) END IF n_opened_file = n_opened_file + 1 f_stk_emis(pt) = n_opened_file IF ( .NOT. DESC3( cio_stack_file_name( pt ) ) ) THEN XMSG = 'Could not get ' // TRIM( cio_stack_file_name( pt ) ) // ' file description' CALL M3MESG( XMSG ) END IF n_cio_stack_emis_vars(pt) = nvars3d n_cio_stack_emis_lays(pt) = nlays3d n_cio_stack_emis_pts(pt) = nrows3d file_sdate(f_stk_emis(pt)) = sdate3d file_stime(f_stk_emis(pt)) = stime3d file_tstep(f_stk_emis(pt)) = tstep3d file_xcell(f_stk_emis(pt)) = xcell3d file_ycell(f_stk_emis(pt)) = ycell3d ! Check whether file is a representative day type write (fname, '(a16, i3.3)') "STK_EM_SYM_DATE_", pt file_sym_date(f_stk_emis(pt)) = emis_sym_date ! Master switch to change default call get_env(file_sym_date(f_stk_emis(pt)), fname, & file_sym_date(f_stk_emis(pt)), logdev) found = .false. ldate = sdate3d ltime = stime3d if ((ldate == stdate) .and. (mxrec3d > 1)) then found = .true. else t = 1 do while ((t < mxrec3d) .and. (.not. found)) call nextime (ldate, ltime, tstep3d) if (ldate == stdate) then found = .true. end if t = t + 1 end do end if if (max_nvars .lt. nvars3d) then max_nvars = nvars3d end if if (MY_STRT_SRC(pt) .gt. 0) then pt_size(pt) = (MY_END_SRC(pt) - MY_STRT_SRC(pt) + 1) * n_cio_stack_emis_lays(pt) d_size(pt) = nvars3d * pt_size(pt) * 3 else pt_size(pt) = 0 d_size(pt) = 0 end if end do allocate (cio_stack_var_name(max_nvars, NPTGRPS), & head_stack_emis(max_nvars, NPTGRPS), & tail_stack_emis(max_nvars, NPTGRPS), & cio_stack_emis_data_inx(2, 0:2, max_nvars, NPTGRPS), & cio_stack_emis_data_tstamp(2, 0:2, max_nvars, NPTGRPS), & cio_stack_data(sum(d_size)), & stat = stat) if (stat .ne. 0) then xmsg = 'Failure allocating other stack arrays' call m3exit (pname, 0, 0, xmsg, xstat1 ) end if begin = 1 cio_stack_emis_data_inx = -1 do pt = 1, NPTGRPS IF ( .NOT. DESC3( cio_stack_file_name( pt ) ) ) THEN XMSG = 'Could not get ' // TRIM( cio_stack_file_name( pt ) ) // ' file description' CALL M3MESG( XMSG ) END IF cio_stack_var_name(1:nvars3d, pt) = vname3d(1:nvars3d) call quicksort(cio_stack_var_name(:,pt), 1, nvars3d) if (MY_NSRC(pt) .gt. 0) then do v = 1, nvars3d do n = 0, 2 cio_stack_emis_data_inx(1,n,v,pt) = begin end = begin + pt_size(pt) - 1 cio_stack_emis_data_inx(2,n,v,pt) = end begin = end + 1 end do end do end if end do deallocate (d_size) end subroutine stack_files_setup ! ------------------------------------------------------------------------- subroutine biogemis_setup USE UTILIO_DEFN use HGRD_DEFN, only : ncols, nrows USE biog_emis_param_module INCLUDE SUBST_FILES_ID ! file name parameters Character( 40 ), parameter :: pname = 'biogemis_setup' CHARACTER( 120 ) :: XMSG = ' ' CHARACTER( 256 ) :: MESG CHARACTER( 16 ) :: VAR INTEGER :: STAT, i, j, k integer :: startcol, endcol, startrow, endrow, gxoff, gyoff ALLOCATE( AVGEMIS( NCOLS,NROWS,NSEF-1,NSEASONS ), & STAT=STAT ) IF ( .NOT. OPEN3( biogemis_fname, FSREAD3, PNAME ) ) THEN XMSG = 'Could not open ' // trim(biogemis_fname) // ' file' CALL M3MESG( XMSG ) END IF n_opened_file = n_opened_file + 1 IF ( .NOT. DESC3( biogemis_fname ) ) THEN XMSG = 'Could not get ' // trim(biogemis_fname) // ' file description' CALL M3MESG( XMSG ) END IF call subhfile ( biogemis_fname, gxoff, gyoff, & startcol, endcol, startrow, endrow ) C Read the various categories of normalized emissions DO I = 1, NSEASONS DO J = 1, NSEF-1 VAR = 'AVG_' // TRIM( BIOTYPES( J ) ) // SEASON( I ) IF ( .NOT. XTRACT3( biogemis_fname, VAR, & 1,1, startrow, endrow, startcol, endcol, & 0, 0, AVGEMIS( :,:,J,I ) ) ) THEN MESG = 'Could not read "' // TRIM( VAR ) // & '" from file "' // TRIM( biogemis_fname ) // '"' CALL M3EXIT( PNAME, 0, 0, MESG, XSTAT2 ) END IF END DO END DO ! end loop over seasons end subroutine biogemis_setup ! ------------------------------------------------------------------------- subroutine beis_norm_emis_setup USE UTILIO_DEFN use HGRD_DEFN, only : ncols, nrows Character( 40 ), parameter :: pname = 'beis_norm_emis_setup' Character( 40 ), parameter :: fname = 'BEIS_NORM_EMIS' CHARACTER( 256 ) :: MESG CHARACTER( 16 ) :: VAR INTEGER :: STAT integer :: startcol, endcol, startrow, endrow, gxoff, gyoff ALLOCATE( GROWAGNO( NCOLS,NROWS ), & NGROWAGNO( NCOLS,NROWS ), & NONAGNO( NCOLS,NROWS ), & STAT=STAT ) IF ( .NOT. OPEN3( fname, FSREAD3, PNAME ) ) THEN MESG = 'Could not open ' // trim(fname) // ' file ' CALL M3MESG( MESG ) END IF n_opened_file = n_opened_file + 1 call subhfile ( fname, gxoff, gyoff, & startcol, endcol, startrow, endrow ) VAR = 'AVG_NOAG_GROW' IF ( .NOT. XTRACT3( fname, VAR, & 1,1, startrow, endrow, startcol, endcol, & 0, 0, GROWAGNO ) ) THEN MESG = 'Could not read "' // TRIM( VAR ) // & '" from file "' // TRIM( fname ) // '"' CALL M3EXIT( PNAME, 0, 0, MESG, XSTAT2 ) END IF VAR = 'AVG_NOAG_NONGROWNB3' IF ( .NOT. XTRACT3( fname, VAR, & 1,1, startrow, endrow, startcol, endcol, & 0, 0, NGROWAGNO ) ) THEN MESG = 'Could not read "' // TRIM( VAR ) // & '" from file "' // TRIM( fname ) // '"' CALL M3EXIT( PNAME, 0, 0, MESG, XSTAT2 ) END IF VAR = 'AVG_NONONAG' IF ( .NOT. XTRACT3( fname, VAR, & 1,1, startrow, endrow, startcol, endcol, & 0, 0, NONAGNO ) ) THEN MESG = 'Could not read "' // TRIM( VAR ) // & '" from file "' // TRIM( fname ) // '"' CALL M3EXIT( PNAME, 0, 0, MESG, XSTAT2 ) END IF end subroutine beis_norm_emis_setup ! ------------------------------------------------------------------------- subroutine depv_data_setup USE UTILIO_DEFN use HGRD_DEFN, only : ncols, nrows use depv_data_module ! use util_module, only : index1 INCLUDE SUBST_FILES_ID ! file name parameters Character( 40 ), parameter :: pname = 'depv_data_setup' CHARACTER( 256 ) :: MESG CHARACTER( 16 ) :: vname INTEGER :: STAT, i, j, k, jdate_yest integer :: startcol, endcol, startrow, endrow, gxoff, gyoff Allocate ( Beld_ag ( ncols, nrows, e2c_cats ), & pHs1 ( ncols, nrows, e2c_cats ), ! for E2C_SOIL file & pHs2 ( ncols, nrows, e2c_cats ), ! for E2C_SOIL file & NH4ps1 ( ncols, nrows, e2c_cats ), ! for E2C_CHEM file & NH4ps2 ( ncols, nrows, e2c_cats ), ! for E2C_CHEM file & STAT=STAT ) IF ( .NOT. OPEN3( E2C_LU, FSREAD3, PNAME ) ) THEN mesg = 'Could not open ' // trim(E2C_LU) // ' file' CALL M3MESG( mesg ) END IF n_opened_file = n_opened_file + 1 call subhfile ( E2C_LU, gxoff, gyoff, & startcol, endcol, startrow, endrow ) Do k = 1, e2c_cats vname = BELD_Names(k) IF ( .NOT. XTRACT3( E2C_LU, vname, & 1, 1, startrow, endrow, startcol, endcol, & 0, 0, Beld_ag( :,:,k ) ) ) Then MESG = 'Could not read "' // TRIM( vname ) // & '" from file "' // TRIM( E2C_LU ) // '"' CALL M3EXIT( PNAME, 0, 0, MESG, XSTAT2 ) End If End Do ! for E2C_SOIL file If ( .Not. Open3( E2C_SOIL, fsread3, pname ) ) Then mesg = 'Could not open '// E2C_SOIL // ' file' Call M3exit ( pname, 0, 0, mesg, xstat1 ) End If n_opened_file = n_opened_file + 1 call subhfile ( E2C_SOIL, gxoff, gyoff, & startcol, endcol, startrow, endrow ) vname = 'L1_PH' If ( .Not. Xtract3 ( E2C_SOIL, vname, 1, e2c_cats, startrow, endrow, & startcol, endcol, 0, 0, pHs1 ) ) Then MESG = 'Could not read "' // TRIM( vname ) // & '" from file "' // TRIM( E2C_SOIL ) // '"' CALL M3EXIT( PNAME, 0, 0, MESG, XSTAT2 ) End If vname = 'L2_PH' If ( .Not. Xtract3 ( E2C_SOIL, vname, 1, e2c_cats, startrow, endrow, & startcol, endcol, 0, 0, pHs2 ) ) Then MESG = 'Could not read "' // TRIM( vname ) // & '" from file "' // TRIM( E2C_SOIL ) // '"' CALL M3EXIT( PNAME, 0, 0, MESG, XSTAT2 ) End If #ifdef m3dry_opt Allocate ( por1 ( ncols, nrows, e2c_cats ), & por2 ( ncols, nrows, e2c_cats ), & wp1 ( ncols, nrows, e2c_cats ), & wp2 ( ncols, nrows, e2c_cats ), & cec1 ( ncols, nrows, e2c_cats ), & cec2 ( ncols, nrows, e2c_cats ), & STAT=STAT ) vname = 'L1_Porosity' If ( .Not. Xtract3 ( E2C_SOIL, vname, 1, e2c_cats, startrow, endrow, & startcol, endcol, 0, 0, por1 ) ) Then MESG = 'Could not read "' // TRIM( vname ) // & '" from file "' // TRIM( E2C_SOIL ) // '"' CALL M3EXIT( PNAME, 0, 0, MESG, XSTAT2 ) End If vname = 'L2_Porosity' If ( .Not. Xtract3 ( E2C_SOIL, vname, 1, e2c_cats, startrow, endrow, & startcol, endcol, 0, 0, por2 ) ) Then MESG = 'Could not read "' // TRIM( vname ) // & '" from file "' // TRIM( E2C_SOIL ) // '"' CALL M3EXIT( PNAME, 0, 0, MESG, XSTAT2 ) End If vname = 'L1_Wilt_P' If ( .Not. Xtract3 ( E2C_SOIL, vname, 1, e2c_cats, startrow, endrow, & startcol, endcol, 0, 0, wp1 ) ) Then MESG = 'Could not read "' // TRIM( vname ) // & '" from file "' // TRIM( E2C_SOIL ) // '"' CALL M3EXIT( PNAME, 0, 0, MESG, XSTAT2 ) End If vname = 'L2_Wilt_P' If ( .Not. Xtract3 ( E2C_SOIL, vname, 1, e2c_cats, startrow, endrow, & startcol, endcol, 0, 0, wp2 ) ) Then MESG = 'Could not read "' // TRIM( vname ) // & '" from file "' // TRIM( E2C_SOIL ) // '"' CALL M3EXIT( PNAME, 0, 0, MESG, XSTAT2 ) End If vname = 'L1_Cation' If ( .Not. Xtract3 ( E2C_SOIL, vname, 1, e2c_cats, startrow, endrow, & startcol, endcol, 0, 0, cec1 ) ) Then MESG = 'Could not read "' // TRIM( vname ) // & '" from file "' // TRIM( E2C_SOIL ) // '"' CALL M3EXIT( PNAME, 0, 0, MESG, XSTAT2 ) End If vname = 'L2_Cation' If ( .Not. Xtract3 ( E2C_SOIL, vname, 1, e2c_cats, startrow, endrow, & startcol, endcol, 0, 0, cec2 ) ) Then MESG = 'Could not read "' // TRIM( vname ) // & '" from file "' // TRIM( E2C_SOIL ) // '"' CALL M3EXIT( PNAME, 0, 0, MESG, XSTAT2 ) End If #endif ! for E2C_CHEM file If ( .Not. Open3( E2C_CHEM, fsread3, pname ) ) Then mesg = 'Could not open '// E2C_CHEM // ' file' Call M3exit ( pname, 0, 0, mesg, xstat1 ) End If n_opened_file = n_opened_file + 1 IF ( .NOT. DESC3( E2C_CHEM ) ) THEN MESG = 'Could not get description of file "' // & TRIM( E2C_CHEM ) // '"' CALL M3EXIT( PNAME, 0, 0, MESG, XSTAT2 ) END IF call subhfile ( E2C_CHEM, gxoff, gyoff, & startcol, endcol, startrow, endrow ) GMN_AVAIL = .false. if (index1 ('GMN', nvars3d, vname3d) .gt. 0) then GMN_AVAIL = .true. end if vname = 'L1_NH3' If ( .Not. Xtract3 (E2C_CHEM, vname, 1, e2c_cats, startrow, endrow, & startcol, endcol, cio_model_sdate, 0, NH4ps1) ) Then MESG = 'Could not read "' // TRIM( vname ) // & '" from file "' // TRIM( E2C_CHEM ) // '"' CALL M3EXIT( PNAME, 0, 0, MESG, XSTAT2 ) End If vname = 'L2_NH3' If ( .Not. Xtract3 (E2C_CHEM, vname, 1, e2c_cats, startrow, endrow, & startcol, endcol, cio_model_sdate, 0, NH4ps2) ) Then MESG = 'Could not read "' // TRIM( vname ) // & '" from file "' // TRIM( E2C_CHEM ) // '"' CALL M3EXIT( PNAME, 0, 0, MESG, XSTAT2 ) End If #ifdef m3dry_opt Allocate ( wep1 ( ncols, nrows, e2c_cats ), & wep2 ( ncols, nrows, e2c_cats ), & dep2 ( ncols, nrows, e2c_cats ), & STAT=STAT ) vname = 'L1_SW' If ( .Not. Xtract3 (E2C_CHEM, vname, 1, e2c_cats, startrow, endrow, & startcol, endcol, cio_model_sdate, 0, wep1)) Then MESG = 'Could not read "' // TRIM( vname ) // & '" from file "' // TRIM( E2C_CHEM ) // '"' CALL M3EXIT( PNAME, 0, 0, MESG, XSTAT2 ) End If vname = 'L2_SW' If ( .Not. Xtract3 (E2C_CHEM, vname, 1, e2c_cats, startrow, endrow, & startcol, endcol, cio_model_sdate, 0, wep2)) Then MESG = 'Could not read "' // TRIM( vname ) // & '" from file "' // TRIM( E2C_CHEM ) // '"' CALL M3EXIT( PNAME, 0, 0, MESG, XSTAT2 ) End If vname = 'L2_DEP' If ( .Not. Xtract3 (E2C_CHEM, vname, 1, e2c_cats, startrow, endrow, & startcol, endcol, cio_model_sdate, 0, dep2)) Then MESG = 'Could not read "' // TRIM( vname ) // & '" from file "' // TRIM( E2C_CHEM ) // '"' CALL M3EXIT( PNAME, 0, 0, MESG, XSTAT2 ) End If #else #ifdef stage_opt Allocate( Nit1 ( ncols,nrows,e2c_cats ), & Nit2 ( ncols,nrows,e2c_cats ), & L1_ON ( ncols,nrows,e2c_cats ), & L2_ON ( ncols,nrows,e2c_cats ), & BDc1 ( ncols,nrows,e2c_cats ), & BDc2 ( ncols,nrows,e2c_cats ), & STAT=STAT ) vname = 'L1_NITR' If ( .Not. Xtract3 (E2C_CHEM, vname, 1, e2c_cats, startrow, endrow, & startcol, endcol, cio_model_sdate, 0, Nit1 ) ) Then Write( mesg,9001 ) vname, E2C_CHEM CALL M3EXIT( PNAME, 0, 0, MESG, XSTAT2 ) End If vname = 'L2_NITR' If ( .Not. Xtract3 (E2C_CHEM, vname, 1, e2c_cats, startrow, endrow, & startcol, endcol, cio_model_sdate, 0, Nit2 ) ) Then Write( mesg,9001 ) vname, E2C_CHEM CALL M3EXIT( PNAME, 0, 0, MESG, XSTAT2 ) End If vname = 'L1_ON' If ( .Not. Xtract3 (E2C_CHEM, vname, 1, e2c_cats, startrow, endrow, & startcol, endcol, cio_model_sdate, 0, L1_ON ) ) Then Write( mesg,9001 ) vname, E2C_CHEM CALL M3EXIT( PNAME, 0, 0, MESG, XSTAT2 ) End If vname = 'L2_ON' If ( .Not. Xtract3 (E2C_CHEM, vname, 1, e2c_cats, startrow, endrow, & startcol, endcol, cio_model_sdate, 0, L2_ON ) ) Then Write( mesg,9001 ) vname, E2C_CHEM CALL M3EXIT( PNAME, 0, 0, MESG, XSTAT2 ) End If vname = 'L1_BD' If ( .Not. Xtract3 (E2C_CHEM, vname, 1, e2c_cats, startrow, endrow, & startcol, endcol, cio_model_sdate, 0, BDc1 ) ) Then Write( mesg,9001 ) vname, E2C_CHEM CALL M3EXIT( PNAME, 0, 0, MESG, XSTAT2 ) End If vname = 'L2_BD' If ( .Not. Xtract3 (E2C_CHEM, vname, 1, e2c_cats, startrow, endrow, & startcol, endcol, cio_model_sdate, 0, BDc2 ) ) Then Write( mesg,9001 ) vname, E2C_CHEM CALL M3EXIT( PNAME, 0, 0, MESG, XSTAT2 ) End If If ( GMN_AVAIL ) Then ! Using Fest-C 1.4 output Allocate( GMN ( ncols,nrows,e2c_cats ), STAT = STAT ) If ( STAT .Ne. 0 ) Then mesg = 'Failure allocating GMN' CALL M3EXIT( PNAME, 0, 0, MESG, XSTAT2 ) End If vname = 'GMN' If ( .Not. Xtract3 (E2C_CHEM, vname, 1, e2c_cats, startrow, endrow, & startcol, endcol, cio_model_sdate, 0, GMN ) ) Then Write( mesg,9001 ) vname, E2C_CHEM CALL M3EXIT( PNAME, 0, 0, MESG, XSTAT2 ) End If End If Allocate( gamma1 ( ncols,nrows ), & gamma2 ( ncols,nrows ), & F1_NH4 ( ncols,nrows,e2c_cats ), & F2_NH4 ( ncols,nrows,e2c_cats ), & STAT=STAT ) if ( MEDC_AVAIL ) then call subhfile ( INIT_MEDC_1, gxoff, gyoff, & startcol, endcol, startrow, endrow ) vname = 'Gamma1' If ( .Not. Xtract3 ( INIT_MEDC_1, vname, 1, 1, startrow, endrow, & startcol, endcol, cio_model_sdate, 0, gamma1 ) ) Then Write( mesg,9001 ) vname, INIT_MEDC_1 CALL M3EXIT( PNAME, 0, 0, MESG, XSTAT2 ) End If vname = 'Gamma2' If ( .Not. Xtract3 ( INIT_MEDC_1, vname, 1, 1, startrow, endrow, & startcol, endcol, cio_model_sdate, 0, gamma2 ) ) Then Write( mesg,9001 ) vname, INIT_MEDC_1 CALL M3EXIT( PNAME, 0, 0, MESG, XSTAT2 ) End If vname = 'L1_ANH3' If ( .Not. Xtract3 ( E2C_CHEM, vname, 1, e2c_cats, startrow, endrow, & startcol, endcol, cio_model_sdate, 0, F1_NH4 ) ) Then Write( mesg,9001 ) vname, E2C_CHEM CALL M3EXIT( PNAME, 0, 0, MESG, XSTAT2 ) End If vname = 'L2_ANH3' If ( .Not. Xtract3 ( E2C_CHEM, vname, 1, e2c_cats, startrow, endrow, & startcol, endcol, cio_model_sdate, 0, F2_NH4 ) ) Then Write( mesg,9001 ) vname, E2C_CHEM CALL M3EXIT( PNAME, 0, 0, MESG, XSTAT2 ) End If If( .not. GMN_AVAIL ) Then Allocate( L1_ON_Yest ( ncols,nrows,e2c_cats ), & L2_ON_Yest ( ncols,nrows,e2c_cats ), & F1_ON ( ncols,nrows,e2c_cats ), & F2_ON ( ncols,nrows,e2c_cats ), & STAT = STAT ) If ( STAT .Ne. 0 ) Then mesg = 'Failure allocating organic N vars' Call M3EXIT( PNAME, 0, 0, mesg, XSTAT1 ) End If If( MOD(cio_model_sdate,1000) .Eq. 1 ) Then If( MOD(cio_model_sdate,4000) .Eq. 0 .And. & MOD(cio_model_sdate,100000) .Ne. 0 ) Then jdate_yest = (INT(cio_model_sdate/1000)-1)*1000+366 Else If( MOD(cio_model_sdate,400000) .Eq. 0) Then jdate_yest = (INT(cio_model_sdate/1000)-1)*1000+366 Else ! not a leap year jdate_yest = (INT(cio_model_sdate/1000)-1)*1000+365 End If Else jdate_yest = cio_model_sdate-1 End If If ( .Not. Open3( E2C_CHEM_YEST, fsread3, pname ) ) Then mesg = 'Could not open '// E2C_CHEM_YEST // ' file' Call M3exit ( pname, 0, 0, mesg, xstat1 ) End If n_opened_file = n_opened_file + 1 IF ( .NOT. DESC3( E2C_CHEM_YEST ) ) THEN MESG = 'Could not get description of file "' // & TRIM( E2C_CHEM_YEST ) // '"' CALL M3EXIT( PNAME, 0, 0, MESG, XSTAT2 ) END IF call subhfile ( E2C_CHEM, gxoff, gyoff, & startcol, endcol, startrow, endrow ) vname = 'L1_AON' If ( .Not. Xtract3 (E2C_CHEM, vname, 1, e2c_cats, startrow, endrow, & startcol, endcol, cio_model_sdate, 0, F1_ON ) ) Then Write( mesg,9001 ) vname, E2C_CHEM CALL M3EXIT( PNAME, 0, 0, MESG, XSTAT2 ) End If vname = 'L2_AON' If ( .Not. Xtract3 (E2C_CHEM, vname, 1, e2c_cats, startrow, endrow, & startcol, endcol, cio_model_sdate, 0, F2_ON ) ) Then Write( mesg,9001 ) vname, E2C_CHEM CALL M3EXIT( PNAME, 0, 0, MESG, XSTAT2 ) End If call subhfile ( E2C_CHEM_YEST, gxoff, gyoff, & startcol, endcol, startrow, endrow ) vname = 'L1_ON' If ( .Not. Xtract3 (E2C_CHEM_YEST, vname, 1, e2c_cats, startrow, endrow, & startcol, endcol, jdate_yest, 0, L1_ON_Yest ) ) Then Write( mesg,9001 ) vname, E2C_CHEM CALL M3EXIT( PNAME, 0, 0, MESG, XSTAT2 ) End If vname = 'L2_ON' If ( .Not. Xtract3 (E2C_CHEM_YEST, vname, 1, e2c_cats, startrow, endrow, & startcol, endcol, jdate_yest, 0, L2_ON_Yest ) ) Then Write( mesg,9001 ) vname, E2C_CHEM CALL M3EXIT( PNAME, 0, 0, MESG, XSTAT2 ) End If end if ! .not. GMN_AVAIL end if ! MEDC_AVAIL 9001 Format( 'Failure reading ', a, 1x, 'from ', a ) #endif ! end if stage option #endif ! end if m3dry option end subroutine depv_data_setup ! ------------------------------------------------------------------------- subroutine medc_file_setup USE UTILIO_DEFN use bidi_mod INCLUDE SUBST_FILES_ID ! file name parameters Character( 40 ), parameter :: pname = 'medc_file_setup' CHARACTER( 256 ) :: xmsg integer :: v integer :: startcol, endcol, startrow, endrow, gxoff, gyoff CALL INIT_BIDI( ) IF ( .NOT. OPEN3( INIT_MEDC_1, FSREAD3, PNAME ) ) THEN XMSG = 'Open failure for ' // INIT_MEDC_1 Call M3EXIT( PNAME, 0, 0, XMSG, XSTAT1 ) END IF n_opened_file = n_opened_file + 1 call subhfile ( INIT_MEDC_1, gxoff, gyoff, & startcol, endcol, startrow, endrow ) DO v = 1, Hg_TOT IF ( .NOT. Xtract3( INIT_MEDC_1, MEDIA_NAMES( V ), 1, 1, & startrow, endrow, startcol, endcol, & cio_model_sdate, 0, CMEDIA(:,:,v) ) )THEN xmsg = 'Could not read ' // trim( MEDIA_NAMES( V ) ) & // ' from ' // trim( INIT_MEDC_1 ) call m3exit( pname, cio_model_sdate, 0, xmsg, xstat1 ) END IF END DO end subroutine medc_file_setup ! ------------------------------------------------------------------------- subroutine retrieve_grid_cro_2d_data USE UTILIO_DEFN USE HGRD_DEFN USE LSM_Mod, ONLY: n_lufrac, init_lsm INCLUDE SUBST_FILES_ID ! file name parameters Character( 40 ), parameter :: pname = 'retrieve_grid_cro_2d_data' integer :: gxoff, gyoff, & STRTCOLGC2, ENDCOLGC2, STRTROWGC2, ENDROWGC2 CHARACTER( 120 ) :: XMSG = ' ' Character( 16 ) :: vname INTEGER :: STAT, L allocate (MSFX2(ncols, nrows), & LWMASK(ncols, nrows), & HT(ncols, nrows), & LAT(ncols, nrows), & LON(ncols, nrows), & PURB(ncols, nrows), & STAT=STAT) IF ( STAT .NE. 0 ) THEN XMSG = 'Failure allocating MSFX2 or other arrays' CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT3 ) END IF CALL SUBHFILE ( GRID_CRO_2D, GXOFF, GYOFF, & STRTCOLGC2, ENDCOLGC2, STRTROWGC2, ENDROWGC2 ) #ifdef twoway IF ( .NOT. INTERPX( GRID_CRO_2D, 'MSFX2', PNAME, & STRTCOLGC2, ENDCOLGC2, STRTROWGC2, ENDROWGC2, 1, 1, & 0, 0, MSFX2 ) ) THEN XMSG = ' Error interpolating variable MSFX2 from ' // GRID_CRO_2D Call M3EXIT( PNAME, 0, 0, XMSG, XSTAT1 ) END IF IF ( .NOT. INTERPX( GRID_CRO_2D, 'LWMASK', PNAME, & STRTCOLGC2, ENDCOLGC2, STRTROWGC2, ENDROWGC2, 1, 1, & 0, 0, LWMASK ) ) THEN XMSG = ' Error interpolating variable LWMASK from ' // GRID_CRO_2D Call M3EXIT( PNAME, 0, 0, XMSG, XSTAT1 ) END IF IF ( .NOT. INTERPX( GRID_CRO_2D, 'HT', PNAME, & STRTCOLGC2, ENDCOLGC2, STRTROWGC2, ENDROWGC2, 1, 1 , & 0, 0, HT ) ) THEN XMSG = ' Error interpolating variable HT from ' // GRID_CRO_2D Call M3EXIT( PNAME, 0, 0, XMSG, XSTAT1 ) END IF IF ( .NOT. INTERPX( GRID_CRO_2D, 'LAT', PNAME, & STRTCOLGC2, ENDCOLGC2, STRTROWGC2, ENDROWGC2, 1, 1 , & 0, 0, LAT ) ) THEN XMSG = ' Error interpolating variable LAT from ' // GRID_CRO_2D Call M3EXIT( PNAME, 0, 0, XMSG, XSTAT1 ) END IF IF ( .NOT. INTERPX( GRID_CRO_2D, 'LON', PNAME, & STRTCOLGC2, ENDCOLGC2, STRTROWGC2, ENDROWGC2, 1, 1 , & 0, 0, LON ) ) THEN XMSG = ' Error interpolating variable LON from ' // GRID_CRO_2D Call M3EXIT( PNAME, 0, 0, XMSG, XSTAT1 ) END IF if (minkz) then IF ( .NOT. INTERPX( GRID_CRO_2D, 'PURB', PNAME, & STRTCOLGC2, ENDCOLGC2, STRTROWGC2, ENDROWGC2, 1, 1 , & 0, 0, PURB ) ) THEN XMSG = ' Error interpolating variable PURB from ' // GRID_CRO_2D Call M3EXIT( PNAME, 0, 0, XMSG, XSTAT1 ) END IF else purb = 0.0 end if IF ( .NOT. LUCRO_AVAIL ) THEN CALL INIT_LSM( 0, 0 ) allocate (LUFRAC(ncols, nrows, n_lufrac), STAT=STAT) IF ( STAT .NE. 0 ) THEN XMSG = 'Failure allocating LUFRAC array' CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT3 ) END IF DO l = 1, n_lufrac Write( vname,'( "LUFRAC_",I2.2 )' ) l IF ( .Not. INTERPX( GRID_CRO_2D, VNAME, PNAME, & STRTCOLGC2, ENDCOLGC2, STRTROWGC2, ENDROWGC2, 1, 1, & 0, 0, LUFRAC( :,:,l ) ) ) THEN XMSG = 'Error interpolating variable' // TRIM( VNAME ) // ' from ' // GRID_CRO_2D Call M3EXIT( PNAME, 0, 0, XMSG, XSTAT1 ) END IF END DO END IF #else IF ( .NOT. XTRACT3( GRID_CRO_2D, 'MSFX2', & 1, 1, STRTROWGC2, ENDROWGC2, STRTCOLGC2, ENDCOLGC2, & 0, 0, MSFX2 ) ) THEN XMSG = ' Error interpolating variable MSFX2 from ' // GRID_CRO_2D Call M3EXIT( PNAME, 0, 0, XMSG, XSTAT1 ) END IF IF ( .NOT. XTRACT3( GRID_CRO_2D, 'LWMASK', & 1, 1, STRTROWGC2, ENDROWGC2, STRTCOLGC2, ENDCOLGC2, & 0, 0, LWMASK ) ) THEN XMSG = ' Error interpolating variable LWMASK from ' // GRID_CRO_2D Call M3EXIT( PNAME, 0, 0, XMSG, XSTAT1 ) END IF IF ( .NOT. XTRACT3( GRID_CRO_2D, 'HT', & 1, 1, STRTROWGC2, ENDROWGC2, STRTCOLGC2, ENDCOLGC2, & 0, 0, HT ) ) THEN XMSG = ' Error interpolating variable HT from ' // GRID_CRO_2D Call M3EXIT( PNAME, 0, 0, XMSG, XSTAT1 ) END IF IF ( .NOT. XTRACT3( GRID_CRO_2D, 'LAT', & 1, 1, STRTROWGC2, ENDROWGC2, STRTCOLGC2, ENDCOLGC2, & 0, 0, LAT ) ) THEN XMSG = ' Error interpolating variable LAT from ' // GRID_CRO_2D Call M3EXIT( PNAME, 0, 0, XMSG, XSTAT1 ) END IF IF ( .NOT. XTRACT3( GRID_CRO_2D, 'LON', & 1, 1, STRTROWGC2, ENDROWGC2, STRTCOLGC2, ENDCOLGC2, & 0, 0, LON ) ) THEN XMSG = ' Error interpolating variable LON from ' // GRID_CRO_2D Call M3EXIT( PNAME, 0, 0, XMSG, XSTAT1 ) END IF if (minkz) then IF ( .NOT. XTRACT3( GRID_CRO_2D, 'PURB', & 1, 1, STRTROWGC2, ENDROWGC2, STRTCOLGC2, ENDCOLGC2, & 0, 0, PURB ) ) THEN XMSG = ' Error interpolating variable PURB from ' // GRID_CRO_2D Call M3EXIT( PNAME, 0, 0, XMSG, XSTAT1 ) END IF else purb = 0.0 end if IF ( .NOT. LUCRO_AVAIL ) THEN CALL INIT_LSM( 0, 0 ) allocate (LUFRAC(ncols, nrows, n_lufrac), STAT=STAT) IF ( STAT .NE. 0 ) THEN XMSG = 'Failure allocating LUFRAC array' CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT3 ) END IF DO l = 1, n_lufrac Write( vname,'( "LUFRAC_",I2.2 )' ) l IF ( .Not. XTRACT3( GRID_CRO_2D, VNAME, & 1, 1, STRTROWGC2, ENDROWGC2, STRTCOLGC2, ENDCOLGC2, & 0, 0, LUFRAC( :,:,l ) ) ) THEN XMSG = 'Error interpolating variable' // TRIM( VNAME ) // ' from ' // GRID_CRO_2D Call M3EXIT( PNAME, 0, 0, XMSG, XSTAT1 ) END IF END DO END IF #endif end subroutine retrieve_grid_cro_2d_data ! ------------------------------------------------------------------------- subroutine retrieve_grid_dot_2d_data USE UTILIO_DEFN USE HGRD_DEFN INCLUDE SUBST_FILES_ID ! file name parameters Character( 40 ), parameter :: pname = 'retrieve_grid_dot_2d_data' INTEGER :: STAT CHARACTER( 120 ) :: XMSG = ' ' INTEGER :: gxoff, gyoff, & STRTCOLGD2, ENDCOLGD2, STRTROWGD2, ENDROWGD2 ALLOCATE ( MSFD2( NCOLS+1, NROWS+1 ), STAT = STAT ) IF ( STAT .NE. 0 ) THEN XMSG = 'Failure allocating MSFD2 array' CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT3 ) END IF CALL SUBHFILE ( GRID_DOT_2D, GXOFF, GYOFF, & STRTCOLGD2, ENDCOLGD2, STRTROWGD2, ENDROWGD2 ) #ifdef twoway IF ( .NOT. INTERPX( GRID_DOT_2D, 'MSFD2', PNAME, & STRTCOLGD2, ENDCOLGD2, STRTROWGD2, ENDROWGD2, 1, 1, & 0, 0, MSFD2 ) ) THEN XMSG = 'Could not interpolate MSFD2 from ' // GRID_DOT_2D CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT1 ) END IF #else IF ( .NOT. XTRACT3( GRID_DOT_2D, 'MSFD2', & 1, 1, STRTROWGD2, ENDROWGD2, STRTCOLGD2, ENDCOLGD2, & 0, 0, MSFD2 ) ) THEN XMSG = 'Could not interpolate MSFD2 from ' // GRID_DOT_2D CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT1 ) END IF #endif end subroutine retrieve_grid_dot_2d_data ! ------------------------------------------------------------------------- subroutine retrieve_ocean_data USE RXNS_DATA, ONLY : MECHNAME USE UTILIO_DEFN USE HGRD_DEFN INCLUDE SUBST_FILES_ID ! file name parameters Character( 40 ), parameter :: pname = 'retrieve_ocean_data' integer :: startcol, endcol, startrow, endrow, gxoff, gyoff INTEGER :: STAT CHARACTER( 120 ) :: XMSG = ' ' allocate (ocean(ncols, nrows), & szone(ncols, nrows), & chlr(ncols, nrows), & dmsl(ncols, nrows), & STAT=STAT) IF ( STAT .NE. 0 ) THEN XMSG = 'Failure allocating OPEN, SURF, CHLO, DMS array' CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT3 ) END IF IF ( .NOT. OCEAN_CHEM ) THEN WRITE( LOGDEV, '(/,5x,A,/,5x,A,/5x,A)' ), & 'CTM_OCEAN_CHEM set to FALSE. Open ocean and surf zone', & 'fractions will be set to 0. There will be no oceanic', & 'halogen-mediated loss of ozone, dms chemistry, or sea spray aerosol emissions.' ocean = 0.0 szone = 0.0 dmsl = 0.0 chlr = 0.0 If ( INDEX( MECHNAME, 'CB6R5M_AE7_AQ' ) .GT. 0 ) then XMSG = 'CTM_OCEAN_CHEM must be set to TRUE when using CB6R5M_AE7_AQ mechanism' Call M3EXIT( PNAME, 0, 0, XMSG, XSTAT1 ) endif ELSEIF ( OCEAN_CHEM .AND. .NOT. USE_MARINE_GAS_EMISSION ) THEN IF ( .NOT. OPEN3( OCEAN_1, FSREAD3, PNAME ) ) THEN XMSG = 'Could not open ' // OCEAN_1 Call M3EXIT( PNAME, 0, 0, XMSG, XSTAT1 ) ELSE n_opened_file = n_opened_file + 1 call subhfile ( OCEAN_1, gxoff, gyoff, & startcol, endcol, startrow, endrow ) IF ( .NOT. XTRACT3( OCEAN_1, 'OPEN', & 1, 1, startrow, endrow, startcol, endcol, & 0, 0, ocean ) ) Then XMSG = 'Could not read OPEN from ' // OCEAN_1 CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT1 ) END IF IF ( .NOT. XTRACT3( OCEAN_1, 'SURF', & 1, 1, startrow, endrow, startcol, endcol, & 0, 0, szone ) ) Then XMSG = 'Could not interpolate SURF from ' // OCEAN_1 CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT1 ) END IF WHERE ( ocean .LT. 0.001 ) ocean = 0.0 ! ensure values are nonnegative and greater than 0.001 WHERE ( szone .LT. 0.001 ) szone = 0.0 ! ensure values are nonnegative and greater than 0.001 dmsl = 0.0 chlr = 0.0 ENDIF ELSEIF ( OCEAN_CHEM .AND. USE_MARINE_GAS_EMISSION ) THEN IF ( .NOT. OPEN3( OCEAN_1, FSREAD3, PNAME ) ) THEN XMSG = 'Could not open ' // OCEAN_1 Call M3EXIT( PNAME, 0, 0, XMSG, XSTAT1 ) ELSE n_opened_file = n_opened_file + 1 call subhfile ( OCEAN_1, gxoff, gyoff, & startcol, endcol, startrow, endrow ) IF ( .NOT. XTRACT3( OCEAN_1, 'OPEN', & 1, 1, startrow, endrow, startcol, endcol, & 0, 0, ocean ) ) Then XMSG = 'Could not read OPEN from ' // OCEAN_1 CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT1 ) END IF IF ( .NOT. XTRACT3( OCEAN_1, 'SURF', & 1, 1, startrow, endrow, startcol, endcol, & 0, 0, szone ) ) Then XMSG = 'Could not interpolate SURF from ' // OCEAN_1 CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT1 ) END IF WHERE ( ocean .LT. 0.001 ) ocean = 0.0 ! ensure values are nonnegative and greater than 0.001 WHERE ( szone .LT. 0.001 ) szone = 0.0 ! ensure values are nonnegative and greater than 0.001 If ( INDEX( MECHNAME, 'CB6R5M_AE7_AQ' ) .GT. 0 ) then If ( .Not. XTRACT3( OCEAN_1, 'CHLO', & 1, 1, startrow, endrow, startcol, endcol, & 0, 0, chlr ) ) Then XMSG = 'Could not read CHLO from ' // OCEAN_1 Call M3EXIT( PNAME, 0, 0, XMSG, XSTAT1 ) End If If ( .Not. XTRACT3( OCEAN_1, 'DMS', & 1, 1, startrow, endrow, startcol, endcol, & 0, 0, dmsl ) ) Then XMSG = 'Could not read DMS from ' // OCEAN_1 Call M3EXIT( PNAME, 0, 0, XMSG, XSTAT1 ) End If ELSEIF ( INDEX( MECHNAME, 'CB6R5_AE7_AQ' ) .GT. 0 ) then chlr = 0.0 If ( .Not. XTRACT3( OCEAN_1, 'DMS', & 1, 1, startrow, endrow, startcol, endcol, & 0, 0, dmsl ) ) Then XMSG = 'Could not read DMS from ' // OCEAN_1 Call M3EXIT( PNAME, 0, 0, XMSG, XSTAT1 ) End If END IF END IF END IF end subroutine retrieve_ocean_data ! ------------------------------------------------------------------------- subroutine retrieve_ltng_param_data USE UTILIO_DEFN USE HGRD_DEFN INCLUDE SUBST_FILES_ID ! file name parameters Character( 40 ), parameter :: pname = 'retrieve_ltng_param_data' Character( 40 ), parameter :: LTNGPARMS_FILE = 'LTNGPARMS_FILE' INTEGER :: STAT CHARACTER( 120 ) :: XMSG = ' ' integer :: startcol, endcol, startrow, endrow, gxoff, gyoff allocate (OCEAN_MASK(ncols, nrows), & SLOPE(ncols, nrows), & INTERCEPT(ncols, nrows), & SLOPE_lg(ncols, nrows), & INTERCEPT_lg(ncols, nrows), & ICCG_SUM(ncols, nrows), & ICCG_WIN(ncols, nrows), & STAT=STAT) IF ( STAT .NE. 0 ) THEN XMSG = 'Failure allocating ltng parameter arrays' CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT3 ) END IF IF ( .NOT. OPEN3( LTNGPARMS_FILE, FSREAD3, PNAME ) ) THEN XMSG = 'Open failure for ' // LTNGPARMS_FILE Call M3EXIT( PNAME, 0, 0, XMSG, XSTAT1 ) END IF n_opened_file = n_opened_file + 1 call subhfile ( LTNGPARMS_FILE, gxoff, gyoff, & startcol, endcol, startrow, endrow ) IF ( .NOT. XTRACT3( LTNGPARMS_FILE, "OCNMASK", 1, 1, & startrow, endrow, startcol, endcol, & 0, 0, OCEAN_MASK ) ) Then XMSG = 'Could not interpolate OPEN from ' // LTNGPARMS_FILE Call M3EXIT( PNAME, 0, 0, XMSG, XSTAT1 ) End If IF ( .NOT. XTRACT3( LTNGPARMS_FILE, "SLOPE", 1, 1, & startrow, endrow, startcol, endcol, & 0, 0, SLOPE ) ) Then XMSG = 'Could not interpolate OPEN from ' // LTNGPARMS_FILE Call M3EXIT( PNAME, 0, 0, XMSG, XSTAT1 ) End If IF ( .NOT. XTRACT3( LTNGPARMS_FILE, "INTERCEPT", 1, 1, & startrow, endrow, startcol, endcol, & 0, 0, INTERCEPT ) ) Then XMSG = 'Could not interpolate OPEN from ' // LTNGPARMS_FILE Call M3EXIT( PNAME, 0, 0, XMSG, XSTAT1 ) End If IF ( .NOT. XTRACT3( LTNGPARMS_FILE, "SLOPE_lg", 1, 1, & startrow, endrow, startcol, endcol, & 0, 0, SLOPE_lg ) ) Then XMSG = 'Could not interpolate OPEN from ' // LTNGPARMS_FILE Call M3EXIT( PNAME, 0, 0, XMSG, XSTAT1 ) End If IF ( .NOT. XTRACT3( LTNGPARMS_FILE, "INTERCEPT_lg", 1, 1, & startrow, endrow, startcol, endcol, & 0, 0, INTERCEPT_lg ) ) Then XMSG = 'Could not interpolate OPEN from ' // LTNGPARMS_FILE Call M3EXIT( PNAME, 0, 0, XMSG, XSTAT1 ) End If IF ( .NOT. XTRACT3( LTNGPARMS_FILE, "ICCG_SUM", 1, 1, & startrow, endrow, startcol, endcol, & 0, 0, ICCG_SUM ) ) Then XMSG = 'Could not interpolate OPEN from ' // LTNGPARMS_FILE Call M3EXIT( PNAME, 0, 0, XMSG, XSTAT1 ) End If IF ( .NOT. XTRACT3( LTNGPARMS_FILE, "ICCG_WIN", 1, 1, & startrow, endrow, startcol, endcol, & 0, 0, ICCG_WIN ) ) Then XMSG = 'Could not interpolate OPEN from ' // LTNGPARMS_FILE Call M3EXIT( PNAME, 0, 0, XMSG, XSTAT1 ) End If end subroutine retrieve_ltng_param_data ! ------------------------------------------------------------------------- subroutine retrieve_boundary_data (jdate, jtime, vname) USE UTILIO_DEFN USE HGRD_DEFN USE VGRD_DEFN, ONLY : NLAYS USE CGRID_SPCS INCLUDE SUBST_FILES_ID ! file name parameters integer, intent(in) :: jdate, jtime character (*), intent(in), optional :: vname Character( 40 ), parameter :: pname = 'retrieve_boundary_data' LOGICAL, SAVE :: firstime = .true. INTEGER :: STAT, i, j, begin, end, buf_loc, iterations, & iter, loc_jdate_met, loc_jdate, loc_jtime_met, & loc_jtime, v, beg_v, end_v CHARACTER( 120 ) :: XMSG = ' ' if (firstime) then head_bndy = -1 tail_bndy = -1 end if ! firstime if (firstime) then iterations = 2 else iterations = 1 end if if (present(vname)) then beg_v = binary_search (vname, cio_bndy_var_name(:,1), n_cio_bndy_vars) end_v = beg_v else beg_v = 1 end_v = n_cio_bndy_vars end if loc_jdate = jdate loc_jdate_met = jdate loc_jtime = jtime loc_jtime_met = jtime do iter = 1, iterations do v = beg_v, end_v buf_loc = mod((tail_bndy(v) + iter), 2) cio_bndy_data_tstamp(1, buf_loc, v) = loc_jdate if (cio_bndy_var_name(v,2) == 'mb') then cio_bndy_data_tstamp(2, buf_loc, v) = loc_jtime_met else cio_bndy_data_tstamp(2, buf_loc, v) = loc_jtime end if begin = cio_bndy_data_inx(1,buf_loc,v) end = cio_bndy_data_inx(2,buf_loc,v) if (cio_bndy_var_name(v,2) == 'mb') then #ifdef twoway cio_bndy_data(begin:end) = 0.0 #else if (.not. read3 (MET_BDY_3D, cio_bndy_var_name(v,1), -1, & loc_jdate_met, loc_jtime_met, cio_bndy_data(begin:end) ) ) THEN XMSG = 'Could not read ' // MET_BDY_3D // ' file' CALL M3EXIT ( PNAME, loc_jdate_met, loc_jtime_met, XMSG, XSTAT1 ) END IF #endif else if (cio_bndy_var_name(v,2) == 'bct') then if (.not. read3 (BCFILE, cio_bndy_var_name(v,1), -1, & loc_jdate, loc_jtime, cio_bndy_data(begin:end) ) ) THEN XMSG = 'Could not read ' // BCFILE // ' file' CALL M3EXIT ( PNAME, loc_jdate, loc_jtime, XMSG, XSTAT1 ) END IF else if (cio_bndy_var_name(v,2) == 'bc') then if (iter == 1) then if (.not. read3 (BCFILE, cio_bndy_var_name(v,1), -1, & loc_jdate, loc_jtime, cio_bndy_data(begin:end) ) ) THEN XMSG = 'Could not read ' // BCFILE // ' file' CALL M3EXIT ( PNAME, loc_jdate, loc_jtime, XMSG, XSTAT1 ) END IF else cio_bndy_data_tstamp(1, buf_loc, v) = jdate + 999 ! this will ensure future never falls out of the circular buffer end if else call m3exit( 'Centralized I/O',0,0,' ==d== UNKOWNi Type of File',1 ) end if end do CALL NEXTIME ( loc_jdate_met, loc_jtime_met, file_tstep(f_met)) CALL NEXTIME ( loc_jdate, loc_jtime, file_tstep(f_bcon)) end do ! end iter if (firstime) then firstime = .false. head_bndy = 0 tail_bndy = 1 else do v = beg_v, end_v head_bndy(v) = mod(head_bndy(v)+1, 2) tail_bndy(v) = mod(tail_bndy(v)+1, 2) end do end if end subroutine retrieve_boundary_data ! ------------------------------------------------------------------------- subroutine retrieve_stack_data (jdate, jtime, fname, vname) USE UTILIO_DEFN USE STK_PRMS, only : MY_STRT_SRC, MY_END_SRC INCLUDE SUBST_FILES_ID ! file name parameters integer, intent(in) :: jdate, jtime character (*), intent(in), optional :: fname, vname Character( 40 ), parameter :: pname = 'retrieve_stack_data' LOGICAL, SAVE :: firstime = .true. INTEGER :: STAT, i, j, begin, end, buf_loc, iterations, & iter, loc_jdate, loc_jtime, v, beg_v, end_v, & beg_pt, end_pt, pt, fnum CHARACTER( 120 ) :: XMSG = ' ' if (firstime) then head_stack_emis = -1 tail_stack_emis = -1 iterations = 2 else iterations = 1 end if if (present(vname)) then beg_pt = binary_search (fname, cio_stack_file_name, NPTGRPS) end_pt = beg_pt beg_v = binary_search (vname, cio_stack_var_name(:,beg_pt), n_cio_stack_emis_vars(beg_pt)) end_v = beg_v else beg_pt = 1 end_pt = NPTGRPS end if do pt = beg_pt, end_pt if (firstime) then loc_jdate = jdate if (file_sym_date(f_stk_emis(pt))) loc_jdate = file_sdate(f_stk_emis(pt)) ! Representative day check loc_jtime = jtime else loc_jdate = jdate loc_jtime = jtime end if if (.not. present(vname)) then beg_v = 1 end_v = n_cio_stack_emis_vars(pt) end if ! cio_stack_emis_data_inx do iter = 1, iterations do v = beg_v, end_v buf_loc = mod((tail_stack_emis(v, pt) + iter), 2) cio_stack_emis_data_tstamp(1, buf_loc, v, pt) = loc_jdate cio_stack_emis_data_tstamp(2, buf_loc, v, pt) = loc_jtime begin = cio_stack_emis_data_inx(1, buf_loc, v, pt) end = cio_stack_emis_data_inx(2, buf_loc, v, pt) if (begin .gt. 0) then IF ( .NOT. XTRACT3( cio_stack_file_name(pt), cio_stack_var_name(v, pt), & 1,1, MY_STRT_SRC( pt ),MY_END_SRC( pt), 1,1, & loc_jdate, loc_jtime, cio_stack_data(begin:end) ) ) THEN XMSG = 'Could not extract ' // cio_stack_file_name(pt) // ' file' CALL M3EXIT ( PNAME, loc_jdate, loc_jtime, XMSG, XSTAT1 ) END IF end if end do CALL NEXTIME ( loc_jdate, loc_jtime, file_tstep(f_stk_emis(pt)) ) end do ! end iter end do if (firstime) then firstime = .false. head_stack_emis = 0 tail_stack_emis = 1 else do pt = beg_pt, end_pt do v = beg_v, end_v head_stack_emis(v, pt) = mod(head_stack_emis(v, pt)+1, 2) tail_stack_emis(v, pt) = mod(tail_stack_emis(v, pt)+1, 2) end do end do end if end subroutine retrieve_stack_data ! ------------------------------------------------------------------------- subroutine r_interpolate_var_1ds (fname, vname, date, time, data) ! Function: Interpolation for Stack Group Real 1-D Data USE UTILIO_DEFN USE STK_PRMS, only : MY_STRT_SRC, MY_END_SRC character (*), intent(in) :: fname, vname integer, intent(in) :: date, time real, intent(out) :: data(:) integer :: head_beg_ind, head_end_ind, & tail_beg_ind, tail_end_ind, & store_beg_ind, store_end_ind, & var_loc, loc_head, loc_tail, m, r, c, & loc_jdate, loc_jtime, dsize, pt, loc_tstep integer, save :: prev_time = -1 integer, save :: prev_head_time = -1 integer, save :: prev_tail_time = -1 integer, save :: lcount = 0 real, save :: ratio1, ratio2 character(200) :: xmsg pt = binary_search (fname, cio_stack_file_name, NPTGRPS) var_loc = binary_search (vname, cio_stack_var_name(:,pt), n_cio_stack_emis_vars(pt)) if (var_loc .lt. 0) then write (cio_logdev, '(a9, a, a33)') 'Warning: ', trim(vname), ' is not available in a stack file.' write (xmsg, '(A9,A,A,A)' ) 'ERROR: ',trim(vname), ' is not available ', & 'on a Stack Emisison file. Simulation will now terminate.' call m3exit ( 'Centralized I/O Module', date, time, xmsg, 1 ) else dsize = MY_END_SRC( pt ) - MY_STRT_SRC( pt ) + 1 loc_tstep = file_tstep(f_stk_emis(pt)) loc_head = head_stack_emis(var_loc, pt) loc_tail = tail_stack_emis(var_loc, pt) if ((cio_stack_emis_data_tstamp(1, loc_tail, var_loc, pt) .eq. date) .and. & (cio_stack_emis_data_tstamp(2, loc_tail, var_loc, pt) .eq. time)) then ! do nothing since it is an exact date time data exist else if ((cio_stack_emis_data_tstamp(1, loc_tail, var_loc, pt) .lt. date) .or. & ((cio_stack_emis_data_tstamp(1, loc_tail, var_loc, pt) .eq. date) .and. & (cio_stack_emis_data_tstamp(2, loc_tail, var_loc, pt) .eq. 0)) .or. & ((cio_stack_emis_data_tstamp(2, loc_tail, var_loc, pt) .lt. time) .and. & (cio_stack_emis_data_tstamp(1, loc_tail, var_loc, pt) .eq. date))) then loc_jdate = cio_stack_emis_data_tstamp(1, loc_tail, var_loc, pt) loc_jtime = cio_stack_emis_data_tstamp(2, loc_tail, var_loc, pt) CALL NEXTIME ( loc_jdate, loc_jtime, loc_tstep ) call retrieve_stack_data (loc_jdate, loc_jtime, fname, vname) loc_head = head_stack_emis(var_loc, pt) loc_tail = tail_stack_emis(var_loc, pt) end if end if if ((cio_stack_emis_data_tstamp(1, 2, var_loc, pt) .eq. date) .and. & (cio_stack_emis_data_tstamp(2, 2, var_loc, pt) .eq. time)) then count = count + 1 else cio_stack_emis_data_tstamp(1, 2, var_loc, pt) = date cio_stack_emis_data_tstamp(2, 2, var_loc, pt) = time if ((prev_time .ne. time) .or. & (prev_head_time .ne. cio_stack_emis_data_tstamp(2, loc_head, var_loc, pt)) .or. & (prev_tail_time .ne. cio_stack_emis_data_tstamp(2, loc_tail, var_loc, pt))) then if (cio_stack_emis_data_tstamp(1, loc_head, var_loc, pt) .eq. date) then ratio2 = real(time_diff(time, cio_stack_emis_data_tstamp(2, loc_head, var_loc, pt))) & / real(time2sec(loc_tstep)) ratio1 = 1.0 - ratio2 else ratio2 = real(time_diff(240000, cio_stack_emis_data_tstamp(2, loc_head, var_loc, pt))) & / real(time2sec(loc_tstep)) ratio1 = 1.0 - ratio2 end if prev_time = time prev_head_time = cio_stack_emis_data_tstamp(2, loc_head, var_loc, pt) prev_tail_time = cio_stack_emis_data_tstamp(2, loc_tail, var_loc, pt) #ifdef verbose_cio if ( (ratio1 .lt. 0) .or. (ratio2 .lt. 0) & .or. (ratio1 .gt. 1) .or. (ratio2 .gt. 1)) then write(logdev,'(5X,a,a)'), & 'ERROR: Incorrect Interpolation in 1-D Stack Interpolation for variable: ', & trim(vname) write(logdev,'(5X,a,i7,a,i6)'), & 'Requested TIME & DATE: ',date,':',time write(logdev,'(5X,a,i7,a,i6,a,i7,a,i6)'), & 'Interpolation Bounds ',cio_stack_emis_data_tstamp(1,0,var_loc,pt), & ':',cio_stack_emis_data_tstamp(2,0,var_loc,pt),' to ', & cio_stack_emis_data_tstamp(1,1,var_loc,pt),':',cio_stack_emis_data_tstamp(2,1,var_loc,pt) call m3exit( 'Centralized I/O',date,time,'',1 ) write(logdev,'(5X,a)'), & 'ERROR: Program EXIT in subroutine r_interpolate_var_1ds in module centralized io' end if #endif else lcount = lcount + 1 end if head_beg_ind = cio_stack_emis_data_inx(1,loc_head,var_loc, pt) head_end_ind = cio_stack_emis_data_inx(2,loc_head,var_loc, pt) tail_beg_ind = cio_stack_emis_data_inx(1,loc_tail,var_loc, pt) tail_end_ind = cio_stack_emis_data_inx(2,loc_tail,var_loc, pt) store_beg_ind = cio_stack_emis_data_inx(1,2,var_loc, pt) store_end_ind = cio_stack_emis_data_inx(2,2,var_loc, pt) cio_stack_data(store_beg_ind:store_end_ind) = cio_stack_data(head_beg_ind:head_end_ind) * ratio1 & + cio_stack_data(tail_beg_ind:tail_end_ind) * ratio2 end if store_beg_ind = cio_stack_emis_data_inx(1,2,var_loc, pt) data(1:dsize) = cio_stack_data(store_beg_ind:store_beg_ind+dsize-1) end if end subroutine r_interpolate_var_1ds ! ------------------------------------------------------------------------- subroutine r_interpolate_var_2d (vname, date, time, data, & scol, ecol, srow, erow, slay) ! Function: Interpolation for generic Real 2-D Data USE UTILIO_DEFN use HGRD_DEFN, only : ncols, nrows USE VGRD_DEFN, ONLY : NLAYS character (*), intent(in) :: vname integer, intent(in) :: date, time real, intent(out) :: data(:,:) integer, intent(in), optional :: scol, ecol, srow, erow, slay integer :: head_beg_ind, head_end_ind, & tail_beg_ind, tail_end_ind, & store_beg_ind, store_end_ind, & var_loc, loc_head, loc_tail, m, r, c, & loc_jdate, loc_jtime, adj_lvl, adj1, adj2, & loc_size_spatial, loc_tstep, str_len, fnum integer, save :: prev_time = -1 integer, save :: prev_head_time = -1 integer, save :: prev_tail_time = -1 integer, save :: lcount = 0 real, save :: ratio1, ratio2 character(200) :: xmsg var_loc = binary_search (vname, cio_grid_var_name(:,1), n_cio_grid_vars) if (var_loc .lt. 0) then write (xmsg, '(A9,A,A,A)' ) 'ERROR: ',trim(vname), ' is not available ', & 'on any 2D file. Simulation will now terminate.' call m3exit ( 'Centralized I/O Module', date, time, xmsg, 1 ) else loc_head = head_grid(var_loc) loc_tail = tail_grid(var_loc) if (cio_grid_var_name(var_loc,3) == 'm') then loc_tstep = file_tstep(f_met) else if ((cio_grid_var_name(var_loc,2) == 'e2d') .or. & (cio_grid_var_name(var_loc,2) == 'e3d')) then str_len = len_trim(cio_grid_var_name(var_loc,1)) read (cio_grid_var_name(var_loc,1)(str_len-2:str_len), *) fnum loc_tstep = file_tstep(f_emis(fnum)) else if (cio_grid_var_name(var_loc,2) == 'lnt') then loc_tstep = file_tstep(f_ltng) else if (cio_grid_var_name(var_loc,2) == 'ic') then loc_tstep = file_tstep(f_icon) else if (cio_grid_var_name(var_loc,2) == 'bct') then loc_tstep = file_tstep(f_bcon) else if (cio_grid_var_name(var_loc,2) == 'is') then loc_tstep = file_tstep(f_is_icon) end if if (cio_grid_var_name(var_loc,2) .eq. 'md3') then loc_size_spatial = size_d2dx else loc_size_spatial = size_c3d / nlays end if if ((cio_grid_data_tstamp(1, loc_tail, var_loc) .lt. date) .or. & ((cio_grid_data_tstamp(2, loc_tail, var_loc) .lt. time) .and. & (cio_grid_data_tstamp(1, loc_tail, var_loc) .eq. date))) then loc_jdate = cio_grid_data_tstamp(1, loc_tail, var_loc) loc_jtime = cio_grid_data_tstamp(2, loc_tail, var_loc) CALL NEXTIME ( loc_jdate, loc_jtime, loc_tstep ) call retrieve_time_dep_gridded_data (loc_jdate, loc_jtime, vname) loc_head = head_grid(var_loc) loc_tail = tail_grid(var_loc) end if if ((cio_grid_data_tstamp(1, 2, var_loc) .eq. date) .and. & (cio_grid_data_tstamp(2, 2, var_loc) .eq. time)) then count = count + 1 else cio_grid_data_tstamp(1, 2, var_loc) = date cio_grid_data_tstamp(2, 2, var_loc) = time if ((prev_time .ne. time) .or. & (prev_head_time .ne. cio_grid_data_tstamp(2, loc_head, var_loc)) .or. & (prev_tail_time .ne. cio_grid_data_tstamp(2, loc_tail, var_loc))) then if (cio_grid_data_tstamp(1, loc_head, var_loc) .eq. date) then ratio2 = real(time_diff(time, cio_grid_data_tstamp(2, loc_head, var_loc))) & / real(time2sec(loc_tstep)) ratio1 = 1.0 - ratio2 else ratio2 = real(time_diff(240000, cio_grid_data_tstamp(2, loc_head, var_loc))) & / real(time2sec(loc_tstep)) ratio1 = 1.0 - ratio2 end if prev_time = time prev_head_time = cio_grid_data_tstamp(2, loc_head, var_loc) prev_tail_time = cio_grid_data_tstamp(2, loc_tail, var_loc) #ifdef verbose_cio if ( (ratio1 .lt. 0) .or. (ratio2 .lt. 0) & .or. (ratio1 .gt. 1) .or. (ratio2 .gt. 1)) then write(logdev,'(5X,a,a)'), & 'ERROR: Incorrect Interpolation in 2-D Generic Real Interpolation for variable: ', & trim(vname) write(logdev,'(5X,a,i7,a,i6)'), & 'Requested TIME & DATE: ',date,':',time write(logdev,'(5X,a,i7,a,i6,a,i7,a,i6)'), & 'Interpolation Bounds ',cio_grid_data_tstamp(1,0,var_loc), & ':',cio_grid_data_tstamp(2,0,var_loc),' to ', & cio_grid_data_tstamp(1,1,var_loc),':',cio_grid_data_tstamp(2,1,var_loc) write(logdev,'(5X,a)'), & 'ERROR: Program EXIT in subroutine r_interpolate_var_2d in module centralized io' call m3exit( 'Centralized I/O',date,time,'',1 ) end if #endif else lcount = lcount + 1 end if head_beg_ind = cio_grid_data_inx(1,loc_head,var_loc) head_end_ind = cio_grid_data_inx(2,loc_head,var_loc) tail_beg_ind = cio_grid_data_inx(1,loc_tail,var_loc) tail_end_ind = cio_grid_data_inx(2,loc_tail,var_loc) store_beg_ind = cio_grid_data_inx(1,2,var_loc) store_end_ind = cio_grid_data_inx(2,2,var_loc) cio_grid_data(store_beg_ind:store_end_ind) = cio_grid_data(head_beg_ind:head_end_ind) * ratio1 & + cio_grid_data(tail_beg_ind:tail_end_ind) * ratio2 end if adj_lvl = 0 adj1 = 0 adj2 = 0 if (present(slay)) then if (cio_grid_var_name(var_loc,2) .eq. 'mc3') then if ((window) .and. & ((size(data,1) - ncols) .eq. 0)) then adj1 = ncols + 3 adj2 = 2 end if adj_lvl = (slay - 1) * loc_size_spatial else if (cio_grid_var_name(var_loc,2) .eq. 'md3') then adj_lvl = (slay - 1) * size_d2dx #ifndef twoway if (.not. east_pe) then adj2 = 1 end if #endif end if else if (cio_grid_var_name(var_loc,2) .eq. 'mc2') then #ifndef twoway if (.not. east_pe) then adj2 = 1 end if #endif end if store_beg_ind = cio_grid_data_inx(1,2,var_loc) m = store_beg_ind - 1 + adj_lvl + adj1 do r = 1, size(data,2) do c = 1, size(data,1) m = m + 1 data(c,r) = cio_grid_data(m) end do m = m + adj2 end do end if end subroutine r_interpolate_var_2d ! ------------------------------------------------------------------------- subroutine i_interpolate_var_2d (vname, date, time, data) ! Function: Interpolation for generic 4 byte Integer 2-D Data USE UTILIO_DEFN use HGRD_DEFN, only : ncols, nrows USE VGRD_DEFN, ONLY : NLAYS character (*), intent(in) :: vname integer, intent(in) :: date, time integer, intent(out) :: data(:,:) integer :: head_beg_ind, head_end_ind, & tail_beg_ind, tail_end_ind, & store_beg_ind, store_end_ind, & var_loc, loc_head, loc_tail, m, r, c, & loc_jdate, loc_jtime, adj_lvl, adj1, adj2, & loc_size_spatial, loc_tstep, str_len, fnum integer, save :: prev_time = -1 integer, save :: prev_head_time = -1 integer, save :: prev_tail_time = -1 integer, save :: lcount = 0 real, save :: ratio1, ratio2 character(200) :: xmsg var_loc = binary_search (vname, cio_grid_var_name(:,1), n_cio_grid_vars) if (var_loc .lt. 0) then write (xmsg, '(A9,A,A,A)' ) 'ERROR: ',trim(vname), ' is not available ', & 'on any 2D file. Simulation will now terminate.' call m3exit ( 'Centralized I/O Module', date, time, xmsg, 1 ) else loc_head = head_grid(var_loc) loc_tail = tail_grid(var_loc) if (cio_grid_var_name(var_loc,3) == 'm') then loc_tstep = file_tstep(f_met) else if ((cio_grid_var_name(var_loc,2) == 'e2d') .or. & (cio_grid_var_name(var_loc,2) == 'e3d')) then str_len = len_trim(cio_grid_var_name(var_loc,1)) read (cio_grid_var_name(var_loc,1)(str_len-2:str_len), *) fnum loc_tstep = file_tstep(f_emis(fnum)) else if (cio_grid_var_name(var_loc,2) == 'lnt') then loc_tstep = file_tstep(f_ltng) else if (cio_grid_var_name(var_loc,2) == 'ic') then loc_tstep = file_tstep(f_icon) else if (cio_grid_var_name(var_loc,2) == 'bct') then loc_tstep = file_tstep(f_bcon) else if (cio_grid_var_name(var_loc,2) == 'is') then loc_tstep = file_tstep(f_is_icon) end if if (cio_grid_var_name(var_loc,2) .eq. 'md3') then loc_size_spatial = size_d2dx else loc_size_spatial = size_c3d / nlays end if if ((cio_grid_data_tstamp(1, loc_tail, var_loc) .lt. date) .or. & ((cio_grid_data_tstamp(2, loc_tail, var_loc) .lt. time) .and. & (cio_grid_data_tstamp(1, loc_tail, var_loc) .eq. date))) then loc_jdate = cio_grid_data_tstamp(1, loc_tail, var_loc) loc_jtime = cio_grid_data_tstamp(2, loc_tail, var_loc) CALL NEXTIME ( loc_jdate, loc_jtime, loc_tstep ) call retrieve_time_dep_gridded_data (loc_jdate, loc_jtime, vname) loc_head = head_grid(var_loc) loc_tail = tail_grid(var_loc) end if if ((cio_grid_data_tstamp(1, 2, var_loc) .eq. date) .and. & (cio_grid_data_tstamp(2, 2, var_loc) .eq. time)) then count = count + 1 else cio_grid_data_tstamp(1, 2, var_loc) = date cio_grid_data_tstamp(2, 2, var_loc) = time if ((prev_time .ne. time) .or. & (prev_head_time .ne. cio_grid_data_tstamp(2, loc_head, var_loc)) .or. & (prev_tail_time .ne. cio_grid_data_tstamp(2, loc_tail, var_loc))) then if (cio_grid_data_tstamp(1, loc_head, var_loc) .eq. date) then ratio2 = real(time_diff(time, cio_grid_data_tstamp(2, loc_head, var_loc))) & / real(time2sec(loc_tstep)) ratio1 = 1.0 - ratio2 else ratio2 = real(time_diff(240000, cio_grid_data_tstamp(2, loc_head, var_loc))) & / real(time2sec(loc_tstep)) ratio1 = 1.0 - ratio2 end if prev_time = time prev_head_time = cio_grid_data_tstamp(2, loc_head, var_loc) prev_tail_time = cio_grid_data_tstamp(2, loc_tail, var_loc) #ifdef verbose_cio if ( (ratio1 .lt. 0) .or. (ratio2 .lt. 0) & .or. (ratio1 .gt. 1) .or. (ratio2 .gt. 1)) then write(logdev,'(5X,a,a)'), & 'ERROR: Incorrect Interpolation in 2-D Generic Integer Interpolation for variable: ', & trim(vname) write(logdev,'(5X,a,i7,a,i6)'), & 'Requested TIME & DATE: ',date,':',time write(logdev,'(5X,a,i7,a,i6,a,i7,a,i6)'), & 'Interpolation Bounds ',cio_grid_data_tstamp(1,0,var_loc), & ':',cio_grid_data_tstamp(2,0,var_loc),' to ', & cio_grid_data_tstamp(1,1,var_loc),':',cio_grid_data_tstamp(2,1,var_loc) call m3exit( 'Centralized I/O',date,time,'',1 ) write(logdev,'(5X,a)'), & 'ERROR: Program EXIT in subroutine i_interpolate_var_2d in module centralized io' end if #endif else lcount = lcount + 1 end if head_beg_ind = cio_grid_data_inx(1,loc_head,var_loc) head_end_ind = cio_grid_data_inx(2,loc_head,var_loc) tail_beg_ind = cio_grid_data_inx(1,loc_tail,var_loc) tail_end_ind = cio_grid_data_inx(2,loc_tail,var_loc) store_beg_ind = cio_grid_data_inx(1,2,var_loc) store_end_ind = cio_grid_data_inx(2,2,var_loc) cio_grid_data(store_beg_ind:store_end_ind) = cio_grid_data(head_beg_ind:head_end_ind) * ratio1 & + cio_grid_data(tail_beg_ind:tail_end_ind) * ratio2 end if adj_lvl = 0 adj1 = 0 adj2 = 0 store_beg_ind = cio_grid_data_inx(1,2,var_loc) m = store_beg_ind - 1 + adj_lvl + adj1 do r = 1, size(data,2) do c = 1, size(data,1) m = m + 1 data(c,r) = int(cio_grid_data(m)) end do m = m + adj2 end do end if end subroutine i_interpolate_var_2d ! ------------------------------------------------------------------------- subroutine r_interpolate_var_2db (vname, date, time, data, type, lvl) ! Function: Interpolation for Boundary Real 2-D Data USE UTILIO_DEFN USE HGRD_DEFN USE VGRD_DEFN, ONLY : NLAYS character (*), intent(in) :: vname character (1), intent(in) :: type integer, intent(in) :: date, time real, intent(out) :: data(:,:) integer, intent(in), optional :: lvl integer :: head_beg_ind, head_end_ind, & tail_beg_ind, tail_end_ind, & store_beg_ind, store_end_ind, & var_loc, loc_head, loc_tail, m, r, c,k, ib, & loc_jdate, loc_jtime, starting_pt, mype_p1, & beg_k, end_k, loc_tstep integer, save :: lns_size, lew_size, gns_size, gew_size, & ls_start, ls_end, ln_start, ln_end, & le_start, le_end, lw_start, lw_end, & gs_skip, ge_skip, gn_skip, gw_skip logical, save :: loc_firstime = .true. integer, save :: prev_time = -1 real :: ratio1, ratio2 character(200) :: xmsg if (loc_firstime) then loc_firstime = .false. mype_p1 = mype + 1 LNS_SIZE = NTHIK * ( NCOLS + NTHIK ) LEW_SIZE = NTHIK * ( NROWS + NTHIK ) LS_START = 1 LS_END = LNS_SIZE LE_START = LS_END + 1 LE_END = LE_START + LEW_SIZE - 1 LN_START = LE_END + 1 LN_END = LN_START + LNS_SIZE - 1 LW_START = LN_END + 1 LW_END = LW_START + LEW_SIZE - 1 GNS_SIZE = NTHIK * ( GL_NCOLS + NTHIK ) GEW_SIZE = NTHIK * ( GL_NROWS + NTHIK ) GS_SKIP = NTHIK*( COLSX_PE( 1, mype_p1 ) - 1 ) - LS_START + 1 GE_SKIP = GNS_SIZE + NTHIK*( ROWSX_PE( 1, mype_p1 ) - 1 ) - LE_START + 1 GN_SKIP = GNS_SIZE + GEW_SIZE + NTHIK*( COLSX_PE( 1, mype_p1 ) - 1 ) - LN_START + 1 GW_SKIP = 2*GNS_SIZE + GEW_SIZE + NTHIK*( ROWSX_PE( 1, mype_p1 ) - 1 ) - LW_START + 1 end if var_loc = binary_search (vname, cio_bndy_var_name(:,1), n_cio_bndy_vars) if (var_loc .lt. 0) then write (xmsg, '(A9,A,A,A)' ) 'ERROR: ',trim(vname), ' is not available ', & 'on any BNDY file. Simulation will now terminate.' call m3exit ( 'Centralized I/O Module', date, time, xmsg, 1 ) else loc_head = head_bndy(var_loc) loc_tail = tail_bndy(var_loc) if (cio_bndy_var_name(var_loc,2) == 'mb') then loc_tstep = file_tstep(f_met) else loc_tstep = file_tstep(f_bcon) end if if (cio_bndy_var_name(var_loc, 2) .ne. 'bc') then if ((cio_bndy_data_tstamp(1, loc_tail, var_loc) .lt. date) .or. & ((cio_bndy_data_tstamp(2, loc_tail, var_loc) .lt. time) .and. & (cio_bndy_data_tstamp(1, loc_tail, var_loc) .eq. date))) then loc_jdate = cio_bndy_data_tstamp(1, loc_tail, var_loc) loc_jtime = cio_bndy_data_tstamp(2, loc_tail, var_loc) CALL NEXTIME ( loc_jdate, loc_jtime, loc_tstep ) call retrieve_boundary_data (loc_jdate, loc_jtime, vname) loc_head = head_bndy(var_loc) loc_tail = tail_bndy(var_loc) end if end if if ((cio_bndy_data_tstamp(1, 2, var_loc) .eq. date) .and. & (cio_bndy_data_tstamp(2, 2, var_loc) .eq. time)) then count = count + 1 else cio_bndy_data_tstamp(1, 2, var_loc) = date cio_bndy_data_tstamp(2, 2, var_loc) = time head_beg_ind = cio_bndy_data_inx(1,loc_head,var_loc) head_end_ind = cio_bndy_data_inx(2,loc_head,var_loc) tail_beg_ind = cio_bndy_data_inx(1,loc_tail,var_loc) tail_end_ind = cio_bndy_data_inx(2,loc_tail,var_loc) store_beg_ind = cio_bndy_data_inx(1,2,var_loc) store_end_ind = cio_bndy_data_inx(2,2,var_loc) if (cio_bndy_var_name(var_loc, 2) == 'bc') then cio_bndy_data(store_beg_ind:store_end_ind) = cio_bndy_data(head_beg_ind:head_end_ind) else if (cio_bndy_data_tstamp(1, loc_head, var_loc) .eq. date) then ratio2 = real(time_diff(time, cio_bndy_data_tstamp(2, loc_head, var_loc))) & / real(time2sec(loc_tstep)) ratio1 = 1.0 - ratio2 else ratio2 = real(time_diff(240000, cio_bndy_data_tstamp(2, loc_head, var_loc))) & / real(time2sec(loc_tstep)) ratio1 = 1.0 - ratio2 end if prev_time = time #ifdef verbose_cio if ( (ratio1 .lt. 0) .or. (ratio2 .lt. 0) & .or. (ratio1 .gt. 1) .or. (ratio2 .gt. 1)) then write(logdev,'(5X,a)'), & 'ERROR: Incorrect Interpolation in 2-D Boundary Interpolation for variable: ', & trim(vname) write(logdev,'(5X,a,i7,a,i6)'), & 'Requested TIME & DATE: ',date,':',time write(logdev,'(5X,a,i7,a,i6,a,i7,a,i6)'), & 'Interpolation Bounds ',cio_bndy_data_tstamp(1,0,var_loc), & ':',cio_bndy_data_tstamp(2,0,var_loc),' to ', & cio_bndy_data_tstamp(1,1,var_loc),':',cio_bndy_data_tstamp(2,1,var_loc) call m3exit( 'Centralized I/O',date,time,'',1 ) write(logdev,'(5X,a)'), & 'ERROR: Program EXIT in subroutine r_interpolate_var_2db in module centralized io' end if #endif cio_bndy_data(store_beg_ind:store_end_ind) = cio_bndy_data(head_beg_ind:head_end_ind) * ratio1 & + cio_bndy_data(tail_beg_ind:tail_end_ind) * ratio2 end if end if if (present(lvl)) then beg_k = lvl end_k = lvl else beg_k = 1 end_k = nlays end if data = 0.0 store_beg_ind = cio_bndy_data_inx(1,2,var_loc) DO k = beg_k, end_k starting_pt = store_beg_ind + (k - 1) * size_b2d - 1 ! Construct SOUTH boundary IF ( SOUTH_PE ) THEN m = starting_pt + GS_SKIP DO IB = LS_START, LS_END data( IB,k ) = cio_bndy_data( m+IB ) END DO END IF ! Construct EAST boundary IF ( EAST_PE ) THEN m = starting_pt + GE_SKIP DO IB = LE_START, LE_END data( IB,k ) = cio_bndy_data( m+IB) END DO END IF ! Construct NORTH boundary IF ( NORTH_PE ) THEN m = starting_pt + GN_SKIP DO IB = LN_START, LN_END data( IB,k ) = cio_bndy_data( m+IB) END DO END IF ! Construct WEST boundary IF ( WEST_PE ) THEN m = starting_pt + GW_SKIP DO IB = LW_START, LW_END data( IB,k ) = cio_bndy_data( m+IB) END DO END IF END DO end if end subroutine r_interpolate_var_2db ! ------------------------------------------------------------------------- subroutine r_interpolate_var_3d (vname, date, time, data, fname) !Function: Interpolation for generic Real 3-D Data USE UTILIO_DEFN use HGRD_DEFN, only : ncols, nrows character (*), intent(in) :: vname integer, intent(in) :: date, time real, intent(out) :: data(:,:,:) character (*), intent(in), optional :: fname integer :: head_beg_ind, head_end_ind, & tail_beg_ind, tail_end_ind, & store_beg_ind, store_end_ind, & var_loc, loc_head, loc_tail, m, r, c, k, & loc_jdate, loc_jtime, beg_k, end_k, dot, & col_size, extra_c, extra_r, adj1, adj2, adj3, & slen, str_len, fnum, loc_tstep character (20) :: loc_vname integer, save :: prev_time = -1 integer, save :: prev_head_time = -1 integer, save :: prev_tail_time = -1 integer, save :: lcount = 0 real, save :: ratio1, ratio2 character(200) :: xmsg if (present(fname)) then slen = len_trim(fname) loc_vname = trim(vname) // fname(slen-3:slen) else loc_vname = vname end if var_loc = binary_search (loc_vname, cio_grid_var_name(:,1), n_cio_grid_vars) if (var_loc .lt. 0) then write (xmsg, '(A9,A,A,A)' ) 'ERROR: ',trim(vname), ' is not available ', & 'on any 3D file. Simulation will now terminate.' call m3exit ( 'Centralized I/O Module', date, time, xmsg, 1 ) else loc_head = head_grid(var_loc) loc_tail = tail_grid(var_loc) if (cio_grid_var_name(var_loc,3) == 'm') then loc_tstep = file_tstep(f_met) else if ((cio_grid_var_name(var_loc,2) == 'e2d') .or. & (cio_grid_var_name(var_loc,2) == 'e3d')) then str_len = len_trim(cio_grid_var_name(var_loc,1)) read (cio_grid_var_name(var_loc,1)(str_len-2:str_len), *) fnum loc_tstep = file_tstep(f_emis(fnum)) else if (cio_grid_var_name(var_loc,2) == 'lnt') then loc_tstep = file_tstep(f_ltng) else if (cio_grid_var_name(var_loc,2) == 'ic') then loc_tstep = file_tstep(f_icon) else if (cio_grid_var_name(var_loc,2) == 'bct') then loc_tstep = file_tstep(f_bcon) else if (cio_grid_var_name(var_loc,2) == 'is') then loc_tstep = file_tstep(f_is_icon) end if if (cio_grid_var_name(var_loc,2) .ne. 'ic') then if ((cio_grid_data_tstamp(1, loc_tail, var_loc) .lt. date) .or. & ((cio_grid_data_tstamp(2, loc_tail, var_loc) .lt. time) .and. & (cio_grid_data_tstamp(1, loc_tail, var_loc) .eq. date))) then loc_jdate = cio_grid_data_tstamp(1, loc_tail, var_loc) loc_jtime = cio_grid_data_tstamp(2, loc_tail, var_loc) CALL NEXTIME ( loc_jdate, loc_jtime, loc_tstep ) call retrieve_time_dep_gridded_data (loc_jdate, loc_jtime, loc_vname) loc_head = head_grid(var_loc) loc_tail = tail_grid(var_loc) end if end if if ((cio_grid_data_tstamp(1, 2, var_loc) .eq. date) .and. & (cio_grid_data_tstamp(2, 2, var_loc) .eq. time)) then count = count + 1 else head_beg_ind = cio_grid_data_inx(1,loc_head,var_loc) head_end_ind = cio_grid_data_inx(2,loc_head,var_loc) tail_beg_ind = cio_grid_data_inx(1,loc_tail,var_loc) tail_end_ind = cio_grid_data_inx(2,loc_tail,var_loc) store_beg_ind = cio_grid_data_inx(1,2,var_loc) store_end_ind = cio_grid_data_inx(2,2,var_loc) if ((cio_grid_var_name(var_loc, 2) .eq. 'ic') .or. & (cio_grid_var_name(var_loc, 2) .eq. 'is')) then cio_grid_data(store_beg_ind:store_end_ind) = cio_grid_data(head_beg_ind:head_end_ind) else cio_grid_data_tstamp(1, 2, var_loc) = date cio_grid_data_tstamp(2, 2, var_loc) = time if ((prev_time .ne. time) .or. & (prev_head_time .ne. cio_grid_data_tstamp(2, loc_head, var_loc)) .or. & (prev_tail_time .ne. cio_grid_data_tstamp(2, loc_tail, var_loc))) then if (cio_grid_data_tstamp(1, loc_head, var_loc) .eq. date) then ratio2 = real(time_diff(time, cio_grid_data_tstamp(2, loc_head, var_loc))) & / real(time_to_sec(loc_tstep)) ratio1 = 1.0 - ratio2 else ratio2 = real(time_diff(240000, cio_grid_data_tstamp(2, loc_head, var_loc))) & / real(time_to_sec(loc_tstep)) ratio1 = 1.0 - ratio2 end if prev_time = time prev_head_time = cio_grid_data_tstamp(2, loc_head, var_loc) prev_tail_time = cio_grid_data_tstamp(2, loc_tail, var_loc) #ifdef verbose_cio if ( (ratio1 .lt. 0) .or. (ratio2 .lt. 0) & .or. (ratio1 .gt. 1) .or. (ratio2 .gt. 1)) then write(logdev,'(5X,a)'), & 'ERROR: Incorrect Interpolation in 3-D Generic Interpolation for variable: ', & trim(vname) write(logdev,'(5X,a,i7,a,i6)'), & 'Requested TIME & DATE: ',date,':',time write(logdev,'(5X,a,i7,a,i6,a,i7,a,i6)'), & 'Interpolation Bounds ',cio_grid_data_tstamp(1,0,var_loc), & ':',cio_grid_data_tstamp(2,0,var_loc),' to ', & cio_grid_data_tstamp(1,1,var_loc),':',cio_grid_data_tstamp(2,1,var_loc) call m3exit( 'Centralized I/O',date,time,'',1 ) write(logdev,'(5X,a)'), & 'ERROR: Program EXIT in subroutine r_interpolate_var_3d in module centralized io' end if #endif else lcount = lcount + 1 end if cio_grid_data(store_beg_ind:store_end_ind) = cio_grid_data(head_beg_ind:head_end_ind) * ratio1 & + cio_grid_data(tail_beg_ind:tail_end_ind) * ratio2 end if end if beg_k = 1 if (cio_grid_var_name(var_loc, 2) .eq. 'e2d') then end_k = 1 else end_k = size(data,3) end if adj1 = 0 adj2 = 0 adj3 = 0 if (window) then if (((size(data,1) - ncols) .eq. 0) .and. & (cio_grid_var_name(var_loc, 2) .eq. 'mc3')) then adj1 = ncols + 3 adj2 = 2 adj3 = 2 * ncols + 4 else if (cio_grid_var_name(var_loc, 2) .eq. 'md3') then adj1 = 0 if (.not. east_pe) then adj2 = 1 else adj2 = 0 end if if (north_pe .and. east_pe) then adj3 = 0 else if (north_pe) then adj3 = 1 else if (east_pe) then adj3 = x_dot_ncols else adj3 = x_dot_ncols + 1 end if #ifdef twoway adj2 = 0 adj3 = 0 #endif end if else extra_c = 0 extra_r = 0 if (cio_grid_var_name(var_loc, 2) .eq. 'md3') then extra_c = x_dot_ncols - size(data, 1) extra_r = x_dot_nrows - size(data, 2) col_size = dot_ncols dot = 1 else extra_c = x_cro_ncols - size(data, 1) extra_r = x_cro_nrows - size(data, 2) col_size = cro_ncols dot = 0 end if if ((cio_grid_var_name(var_loc, 2) .ne. 'e2d') .and. & (cio_grid_var_name(var_loc, 2) .ne. 'e3d') .and. & (cio_grid_var_name(var_loc, 2) .ne. 'ic') .and. & (cio_grid_var_name(var_loc, 2) .ne. 'is')) then adj2 = extra_c adj3 = extra_r * col_size + extra_c if (north_pe .and. east_pe) then adj3 = 0 else if (north_pe) then adj3 = adj3 - 1 end if end if end if store_beg_ind = cio_grid_data_inx(1,2,var_loc) m = store_beg_ind - 1 + adj1 do k = beg_k, end_k do r = 1, size(data,2) do c = 1, size(data,1) m = m + 1 data(c,r,k) = cio_grid_data(m) end do m = m + adj2 end do if (window .and. (cio_grid_var_name(var_loc, 2) .eq. 'md3')) then m = m - adj2 + adj3 else m = m + adj3 end if end do end if end subroutine r_interpolate_var_3d #endif END MODULE CENTRALIZED_IO_MODULE ================================================ FILE: CCTM/src/cio/centralized_io_util_module.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! !------------------------------------------------------------------------! ! This module contains utility functions to support centralized I/O ! implementation ! Revision History: ! 02/01/19, D. Wong: initial implementation ! 04/23/19, D. Wong: added two new subroutines: leap_year and ! julian_to_mpas_date_time ! 08/01/19, D. Wong: modified code to work with two-way model ! 11/20/19, F. Sidi: Modified time to sec to handle negative numbers ! 03/05/20, D. Wong: Expanded CIO functionalities to MPAS as well ! 07/07/20, D. Wong: Formulated a robust routine to compute JDATE1 - JDATE2 ! and JDATE + NDAYS ! 01/12/21, D. Wong: Modified character declaration legnth from 20 to ! * for intent(out) mpas_time_stamp in subroutine ! julian_to_mpas_date_time and put in some error ! checking for jdate !------------------------------------------------------------------------! module centralized_io_util_module implicit none interface time_diff module procedure time_diff_i, & time_diff_str end interface interface binary_search module procedure binary_search_char, & binary_search_int end interface interface quicksort module procedure quicksort_c1d, & quicksort_c2d end interface interface search module procedure search_c, & search_i end interface contains ! ---------------------------------------------------------------------- ! this is for mpas extracting layer distribution information store in an emission file subroutine ext_layer_info (buf, layer, bot, top, factor) implicit none character (*), intent(in) :: buf integer, intent(out) :: bot(:), top(:), layer real, intent(out) :: factor(:) integer :: index(5), loc, str_len, n, start, t_lay logical :: zero zero = .true. str_len = len_trim(buf) start = 27 do while (start .lt. str_len) loc = start n = 1 index(1) = loc do while (n < 5) loc = loc + 1 if (buf(loc:loc) == ',') then n = n + 1 index(n) = loc else if (buf(loc:loc) == ';') then n = n + 1 index(n) = loc - 1 else if (loc == str_len) then n = n + 1 index(n) = loc + 1 end if end do start = loc + 1 read (buf(index(1):index(2)-1), *) t_lay read (buf(index(2)+1:index(3)-1), *) bot(t_lay) read (buf(index(3)+1:index(4)-1), *) top(t_lay) read (buf(index(4)+1:index(5)), *) factor(t_lay) if (factor(t_lay) .gt. 0) then zero = .false. else if ((factor(t_lay) .eq. 0) .and. (.not. zero)) then start = str_len + 1 end if end do layer = t_lay - 1 end subroutine ext_layer_info ! ---------------------------------------------------------------------- subroutine cal_distribution (bottom, top, atmo_height, factor, layer, & num_dist_layers, new_factor) implicit none integer, intent(in) :: bottom(:), top(:), layer real, intent(in) :: atmo_height(:), factor(:) integer, intent(out) :: num_dist_layers real, intent(out) :: new_factor(:) integer :: e_lay, a_lay, n_lay, state, stat, i, j, k, lvl real :: ratio, remaining, diff integer, allocatable :: distribution(:,:) real, allocatable :: distribution_factor(:,:) allocate (distribution(0:5, size(atmo_height)), & distribution_factor(5, size(atmo_height)), & stat=stat) distribution = 0 distribution_factor = 0.0 remaining = 0.0 e_lay = 1 a_lay = 1 n_lay = 0 remaining = 1.0 ratio = 0.0 if (top(1) < atmo_height(1)) then state = 0 ! considering distribution height < model height else state = 1 ! considering distribution height > model height end if do while (e_lay .le. layer) if (top(e_lay) < atmo_height(a_lay)) then n_lay = n_lay + 1 distribution(n_lay, a_lay) = e_lay if (state == 0) then remaining = 1.0 end if distribution_factor(n_lay, a_lay) = remaining distribution(0, a_lay) = n_lay e_lay = e_lay + 1 state = 0 else if (state == 0) then diff = atmo_height(a_lay) - bottom(e_lay) ratio = diff / (top(e_lay) - bottom(e_lay)) remaining = 1.0 - ratio else if (a_lay == 1) then ratio = atmo_height(1) / top(e_lay) remaining = 1.0 - ratio else diff = atmo_height(a_lay) - atmo_height(a_lay-1) ratio = diff / (top(e_lay) - bottom(e_lay)) remaining = remaining - ratio end if end if n_lay = n_lay + 1 distribution(n_lay, a_lay) = e_lay distribution_factor(n_lay, a_lay) = ratio distribution(0, a_lay) = n_lay a_lay = a_lay + 1 n_lay = 0 state = 1 end if end do if (remaining > 0.0) then distribution(n_lay, a_lay) = e_lay - 1 distribution_factor(n_lay, a_lay) = remaining distribution(0, a_lay) = n_lay end if num_dist_layers = a_lay new_factor = 0.0 do k = 1, a_lay do j = 1, distribution(0, k) lvl = distribution(j, k) new_factor(k) = new_factor(k) + distribution_factor(j, k) * factor(lvl) end do end do deallocate (distribution, distribution_factor) end subroutine cal_distribution ! ------------------------------------------------------------------------- recursive subroutine quicksort_c1d (name, begin, end) character (*), intent(out) :: name(:) integer, intent(in) :: begin, end integer :: i, j character (50) :: str1, str2 logical :: done str1 = name( (begin + end) / 2 ) i = begin j = end done = .false. do while (.not. done) do while (name(i) < str1) i = i + 1 end do do while (str1 < name(j)) j = j - 1 end do if (i .ge. j) then done = .true. else str2 = name(i) name(i) = name(j) name(j) = str2 i = i + 1 j = j - 1 end if end do if (begin < i-1) call quicksort(name, begin, i-1) if (j+1 < end) call quicksort(name, j+1, end) end subroutine quicksort_c1d ! ------------------------------------------------------------------------- recursive subroutine quicksort_c2d (name, begin, end) character (*), intent(out) :: name(:,:) integer, intent(in) :: begin, end integer :: i, j, dsize character (50) :: str1, str2(3) logical :: done dsize = size(name,2) str1 = name( (begin + end) / 2, 1 ) i = begin j = end done = .false. do while (.not. done) do while (name(i,1) < str1) i = i + 1 end do do while (str1 < name(j, 1)) j = j - 1 end do if (i .ge. j) then done = .true. else str2(1:dsize) = name(i,:) name(i,:) = name(j,:) name(j,:) = str2(1:dsize) i = i + 1 j = j - 1 end if end do if (begin < i-1) call quicksort(name, begin, i-1) if (j+1 < end) call quicksort(name, j+1, end) end subroutine quicksort_c2d ! ------------------------------------------------------------------------- function binary_search_char (name, list, n) result (loc) use RUNTIME_VARS character (*), intent(in) :: name, list(:) integer, intent(in) :: n integer :: loc logical :: found integer :: mid_loc, start_loc, end_loc start_loc = 1 end_loc = n found = .false. do while ((start_loc .le. end_loc) .and. (.not. found)) mid_loc = start_loc + (end_loc - start_loc) / 2 if (name .lt. list(mid_loc)) then end_loc = mid_loc - 1 else if (name .gt. list(mid_loc)) then start_loc = mid_loc + 1 else found = .true. end if end do if (found) then loc = mid_loc else loc = -1 end if end function binary_search_char ! ------------------------------------------------------------------------- function binary_search_int (name, list, n) result (loc) integer, intent(in) :: name, list(:) integer, intent(in) :: n integer :: loc logical :: found integer :: mid_loc, start_loc, end_loc start_loc = 1 end_loc = n found = .false. do while ((start_loc .le. end_loc) .and. (.not. found)) mid_loc = start_loc + (end_loc - start_loc) / 2 if (name .lt. list(mid_loc)) then end_loc = mid_loc - 1 else if (name .gt. list(mid_loc)) then start_loc = mid_loc + 1 else found = .true. end if end do if (found) then loc = mid_loc else loc = -1 end if end function binary_search_int ! ------------------------------------------------------------------------- function search_c (name, list, n) result (loc) character (*), intent(in) :: name, list(:) integer, intent(in) :: n integer :: loc logical :: found integer :: lloc lloc = 0 found = .false. do while ((lloc .lt. n) .and. (.not. found)) lloc = lloc + 1 if (name .eq. list(lloc)) then found = .true. end if end do if (found) then loc = lloc else loc = -1 end if end function search_c ! ------------------------------------------------------------------------- function search_i (data, list, n) result (loc) integer, intent(in) :: data, list(:) integer, intent(in) :: n integer :: loc logical :: found integer :: lloc lloc = 0 found = .false. do while ((lloc .lt. n) .and. (.not. found)) lloc = lloc + 1 if (data .eq. list(lloc)) then found = .true. end if end do if (found) then loc = lloc else loc = -1 end if end function search_i ! ------------------------------------------------------------------------- integer function time_to_sec (time) integer, intent(in) :: time ! in hhmmss format integer :: neg_time integer :: time_in_sec, hr, min, sec if (time .gt. 0) then hr = time / 10000 min = mod(time/100, 100) sec = mod(time, 100) time_to_sec = hr * 3600 + min * 60 + sec else neg_time = abs(time) hr = neg_time / 10000 min = mod(neg_time/100, 100) sec = mod(neg_time, 100) time_to_sec = -1*(hr * 3600 + min * 60 + sec) end if end function time_to_sec ! ------------------------------------------------------------------------- integer function time_diff_i (time1, time2) integer, intent(in) :: time1, time2 ! in hhmmss format time_diff_i = time_to_sec(time1) - time_to_sec(time2) end function time_diff_i ! ------------------------------------------------------------------------- integer function time_diff_str (time1, time2) character (64), intent(in) :: time1, time2 ! in yyyy-mm-dd_hh:mm:ss format integer :: hr1, min1, sec1, hr2, min2, sec2, hr, min, sec, diff, str_len ! for current implementation, assume yyyy-mm-dd are the same str_len = len_trim(time1) read (time1(str_len-7:str_len), '(i2, 1x, i2, 1x, i2)') hr1, min1, sec1 str_len = len_trim(time2) read (time2(str_len-7:str_len), '(i2, 1x, i2, 1x, i2)') hr2, min2, sec2 diff = (hr1 - hr2) * 3600 + (min1 - min2) * 60 + (sec1 - sec2) hr = diff / 3600 diff = diff - hr * 3600 min = diff / 60 sec = diff - min * 60 time_diff_str = hr * 10000 + min * 100 + sec end function time_diff_str ! -------------------------------------------------------------------------------- logical function leap_year (year) integer, intent(in) :: year logical :: temp_leap_year if (mod(year, 4) .ne. 0) then temp_leap_year = .false. else if (mod(year, 400) .eq. 0) then temp_leap_year = .true. else if (mod(year, 100) .eq. 0) then temp_leap_year = .false. else temp_leap_year = .true. endif leap_year = temp_leap_year end function leap_year ! ------------------------------------------------------------------------- subroutine julian_to_mpas_date_time (jdate, jtime, mpas_time_stamp) integer, intent(in) :: jdate, jtime character (*), intent(out) :: mpas_time_stamp integer, parameter :: num_days (12, 2) = & reshape ((/ 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334, 365, & 31, 60, 91, 121, 152, 182, 213, 244, 274, 305, 335, 366 /), (/12, 2/)) integer :: ind, t_date, i, year, month, day, hour, minute, sec logical :: found year = jdate / 1000 t_date = mod(jdate, 1000) if (leap_year(year)) then if (t_date > 366) then write (6, *) ' Error: JDATE > 366 for a leap year', jdate stop end if ind = 2 else if (t_date > 365) then write (6, *) ' Error: JDATE > 365 for a non leap year', jdate stop end if ind = 1 end if found = .false. i = 12 do while ((.not. found) .and. (i > 0)) if (t_date > num_days(i, ind)) then found = .true. else i = i - 1 end if end do month = i + 1 if (i == 0) then day = t_date else day = t_date - num_days(i, ind) end if hour = jtime / 10000 minute = mod(jtime, 10000) / 100 sec = mod(jtime, 100) write (mpas_time_stamp, '(i4, 5(a1, i2.2))') $ year, '-', month, '-', day, '_', hour, ':', minute, ':', sec end subroutine julian_to_mpas_date_time ! ------------------------------------------------------------------------- subroutine mpas_date_time_to_julian (mpas_time_stamp, jdate, jtime) character (20), intent(in) :: mpas_time_stamp integer, intent(out) :: jdate, jtime integer, parameter :: num_days (12, 2) = & reshape ((/ 0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334, & 0, 31, 60, 91, 121, 152, 182, 213, 244, 274, 305, 335 /), (/12, 2/)) integer :: ind, year, month, day, hour, minute, sec read (mpas_time_stamp, '(i4, 5(1x, i2))') year, month, day, hour, minute, sec if (leap_year(year)) then ind = 2 else ind = 1 end if jdate = year * 1000 + num_days(month, ind) + day jtime = hour * 10000 + minute * 100 + sec end subroutine mpas_date_time_to_julian !-------------------------------------------------------------------------- integer function next_day (jday) ! This function determermins the next day for time interpolation implicit none integer, intent(in) :: jday integer year, day day = MOD(jday,1000) year = INT(jday/1000) If( day .LT. 365 ) Then next_day = jday+1 Else If( MOD(year,4) .Eq. 0 .And. MOD(year,100) .Ne. 0 ) Then ! Leap Year If( day .Eq. 365 ) Then next_day = jday + 1 Else next_day = (INT(jday/1000)+1)*1000+1 End If Else If(MOD(year,400) .Eq. 0 ) Then ! also a leap year, e.g. 2000 but not 2100 If( day .Eq. 365 ) Then next_day = jday + 1 Else next_day = (INT(jday/1000)+1)*1000+1 End If Else ! not a leap year next_day = (INT(jday/1000)+1)*1000+1 End If End If end function next_day end module centralized_io_util_module ================================================ FILE: CCTM/src/cloud/acm_ae6/AQ_DATA.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: Module aq_data C Defines gas and aerosol surrogate data. C this module replace the AQ_PARAMS.EXT include file C C Revision History: C First version was coded in May 2010 by Steve Howard with C Prakash Bhave, Jeff Young, and Sergey Napelenok. C Feb 2011: Steve Howard, Shawn Roselle, Prakash Bhave, Bill Hutzell - C Mar 2011: Sergey Napelenok - AE6 update for Ca/Mg/K/Fe/Mn C indexing, density, variable names C Mar 2011: Shawn Roselle, replaced I/O API include files with UTILIO_DEFN C Sep 2011: B.Hutzell: adapted for mercury and HAP mechanisms C Jun 2012: J.Young: remove full character blank padding for GNU Fortran (GCC) 4.1.2 C Oct 2014: B.Hutzell:forcing to skip mapping if aerosol species C index equals the values for H3OP species as for aerosol water C species C----------------------------------------------------------------------- Use aero_data, Only: n_aerolist, n_aerospc, conmin Use runtime_vars #ifdef mpas Use util_module, only : index1 #endif Implicit None Integer, Parameter :: ngas = 15 ! number of gas-phase species for AQCHEM ! Integer, Parameter :: naddaer = 7 ! number of additional aerosol surrogate species for AQCHEM Integer, Parameter :: naddaer = 2 ! number of additional aerosol surrogate species for AQCHEM Integer, Parameter :: nadd_tx = 6 ! number of surrogates for HAPS aerosol species for AQCHEM Integer, Parameter :: max_naer = n_aerolist + naddaer + nadd_tx ! max number aero surrogates Integer, Save :: naer ! number of aerosol surrogate species for AQCHEM Integer, Parameter :: nliqs = 64 ! number of liquid-phase species in AQCHEM Integer, Parameter :: nmodes = 3 ! number of aerosol modes Integer, Parameter :: mxsrg = 70 ! maximum number of species for surrogate integer, parameter :: akn = 1 ! number for Aitken mode Integer, Parameter :: acc = 2 ! number for Accumulation mode Integer, Parameter :: cor = 3 ! number for Coarse mode CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC C...Gas surrogates species CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC Type sur_gas_type Character( 16 ) :: name ! surrogate name Real :: backgnd ! background value End Type sur_gas_type Type ( sur_gas_type ), Parameter :: srggas( ngas ) = (/ C Name Background C ---------- ---------- & sur_gas_type( 'SO2 ', 0.0 ), & sur_gas_type( 'HNO3 ', 0.0 ), & sur_gas_type( 'N2O5 ', 0.0 ), & sur_gas_type( 'CO2 ', 340.0 ), & sur_gas_type( 'NH3 ', 0.0 ), & sur_gas_type( 'H2O2 ', 0.0 ), & sur_gas_type( 'O3 ', 0.0 ), & sur_gas_type( 'FOA ', 0.0 ), & sur_gas_type( 'MHP ', 0.0 ), & sur_gas_type( 'PAA ', 0.0 ), & sur_gas_type( 'H2SO4 ', 0.0 ), & sur_gas_type( 'HCL ', 0.0 ), & sur_gas_type( 'GLY ', 0.0 ), & sur_gas_type( 'MGLY ', 0.0 ), & sur_gas_type( 'HO ', 0.0 ) / ) C...Required gas species Character( 16 ), Parameter, Private :: req_so2 = 'SO2' Character( 16 ), Parameter, Private :: req_hno3 = 'HNO3' Character( 16 ), Parameter, Private :: req_n2o5 = 'N2O5' Character( 16 ), Parameter, Private :: req_co2 = 'CO2' Character( 16 ), Parameter, Private :: req_nh3 = 'NH3' Character( 16 ), Parameter, Private :: req_h2o2 = 'H2O2' Character( 16 ), Parameter, Private :: req_o3 = 'O3' Character( 16 ), Parameter, Private :: req_foa = 'FOA' Character( 16 ), Parameter, Private :: req_mhp = 'MHP' Character( 16 ), Parameter, Private :: req_paa = 'PAA' Character( 16 ), Parameter, Private :: req_h2so4 = 'H2SO4' Character( 16 ), Parameter, Private :: req_hcl = 'HCL' Character( 16 ), Parameter, Private :: req_gly = 'GLY' Character( 16 ), Parameter, Private :: req_mgly = 'MGLY' Character( 16 ), Parameter, Private :: req_ho = 'HO' C...Pointers for the AQCHEM array GAS Integer :: lso2 ! Sulfur Dioxide Integer :: lhno3 ! Nitric Acid Integer :: ln2o5 ! Dinitrogen Pentoxide Integer :: lco2 ! Carbon Dioxide Integer :: lnh3 ! Ammonia Integer :: lh2o2 ! Hydrogen Peroxide Integer :: lo3 ! Ozone Integer :: lfoa ! Formic Acid Integer :: lmhp ! Methyl Hydrogen Peroxide Integer :: lpaa ! Peroxyacetic Acid Integer :: lh2so4 ! Sulfuric Acid Integer :: lhcl ! Hydrogen Chloride Integer :: lgly ! Glyoxal Integer :: lmgly ! Methylglyoxal Integer :: lho ! OH, hydroxyl radical CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC C...Aerosol surrogates species CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC Type sur_aer_type Character( 16 ) :: name( nmodes ) ! surrogate name Real :: backgnd ! background value Real :: molwt ! molecular weight Real :: density ! density [kg m-3] End Type sur_aer_type Type ( sur_aer_type ), Allocatable, Save :: srgaer( : ) C... Additional Aerosol surrogate species to add to aerosol list Type ( sur_aer_type ), private :: addsrgaer( naddaer ) = (/ C Aitken Accum Coarse Background MolWt Density C ------------- ------------- ------------- ---------- ----- ------ ! & sur_aer_type((/' ', ' ', 'CACO3 '/), 0.0, 100.1, 2200.0), ! & sur_aer_type((/' ', ' ', 'MGCO3 '/), 0.0, 84.3, 2200.0), ! & sur_aer_type((/' ', ' ', 'A3FE '/), 0.0, 55.8, 2000.0), ! & sur_aer_type((/' ', ' ', 'B2MN '/), 0.0, 54.9, 2000.0), ! & sur_aer_type((/' ', ' ', 'K '/), 0.0, 39.1, 2200.0), & sur_aer_type((/'NUM_AITKEN ', 'NUM_ACCUM ', 'NUM_COARSE '/), 0.0, 0.0, 1.0), & sur_aer_type((/'SRF_AITKEN ', 'SRF_ACCUM ', 'SRF_COARSE '/), 0.0, 0.0, 1.0)/) C...TX and other species added to Aerosol surrogate if not found in AE namelist file Type ( sur_aer_type ), private :: srgaer_addtx( nadd_tx ) = (/ C Aitken Accum Coarse Background MolWt Density C ------------- ------------- ------------- ---------- ----- ------ & sur_aer_type((/'TRACER_AITKEN ', ' ', ' '/), 0.0, 100.0, 2200.0), & sur_aer_type((/' ', 'TRACER_ACCUM ', ' '/), 0.0, 100.0, 2200.0), & sur_aer_type((/' ', ' ', 'TRACER_COARSE '/), 0.0, 100.0, 2200.0), & sur_aer_type((/'PHG_AITKEN ', ' ', ' '/), 0.0, 200.5, 2200.0), & sur_aer_type((/' ', 'PHG_ACCUM ', ' '/), 0.0, 200.5, 2200.0), & sur_aer_type((/' ', ' ', 'PHG_COARSE '/), 0.0, 200.5, 2200.0)/) C...Required aerosol species Character( 16 ), Parameter, Private :: req_aso4 = 'SO4_ACCUM' Character( 16 ), Parameter, Private :: req_anh4 = 'NH4_ACCUM' Character( 16 ), Parameter, Private :: req_ano3 = 'NO3_ACCUM' Character( 16 ), Parameter, Private :: req_asoa = 'SOA_ACCUM' Character( 16 ), Parameter, Private :: req_aorgc = 'AORGC_ACCUM' Character( 16 ), Parameter, Private :: req_apoa = 'POA_ACCUM' Character( 16 ), Parameter, Private :: req_aec = 'EC_ACCUM' Character( 16 ), Parameter, Private :: req_apri = 'PRI_ACCUM' ! Character( 16 ), Parameter, Private :: req_apric = 'PRI_COARSE' ! SLN 16March2011 Character( 16 ), Parameter, Private :: req_ana = 'NA_ACCUM' Character( 16 ), Parameter, Private :: req_acl = 'CL_ACCUM' Character( 16 ), Parameter, Private :: req_acaco3 = 'CACO3' Character( 16 ), Parameter, Private :: req_amgco3 = 'MGCO3' Character( 16 ), Parameter, Private :: req_aa3fe = 'A3FE' Character( 16 ), Parameter, Private :: req_ab2mn = 'B2MN' Character( 16 ), Parameter, Private :: req_ak = 'K' Character( 16 ), Parameter, Private :: req_num = 'NUM_ACCUM' Character( 16 ), Parameter, Private :: req_srf = 'SRF_ACCUM' Character( 16 ), Parameter, Private :: req_caacc = 'CA_ACCUM' ! SLN 16March2011 Character( 16 ), Parameter, Private :: req_mgacc = 'MG_ACCUM' ! SLN 16March2011 Character( 16 ), Parameter, Private :: req_kacc = 'K_ACCUM' ! SLN 16March2011 Character( 16 ), Parameter, Private :: req_feacc = 'FE_ACCUM' ! SLN 22March2011 Character( 16 ), Parameter, Private :: req_mnacc = 'MN_ACCUM' ! SLN 22March2011 Character( 16 ), Parameter, Private :: req_soilc = 'SOIL_COARSE' ! SLN 16March2011 Character( 16 ), Parameter, Private :: req_anthc = 'ANTH_COARSE' ! SLN 16March2011 Character( 16 ), Parameter, Private :: req_seasc = 'SEAS_COARSE' ! SLN 16March2011 C...For TX version Character( 16 ), Parameter, Private :: req_traceri = 'TRACER_AITKEN' Character( 16 ), Parameter, Private :: req_tracerj = 'TRACER_ACCUM' Character( 16 ), Parameter, Private :: req_tracerk = 'TRACER_COARSE' Character( 16 ), Parameter, Private :: req_phgi = 'PHG_AITKEN' Character( 16 ), Parameter, Private :: req_phgj = 'PHG_ACCUM' Character( 16 ), Parameter, Private :: req_phgk = 'PHG_COARSE' C...For Sulfur tracking Character( 16 ), Parameter, Private :: req_aso4aqh2o2 = 'SO4_AQH2O2_ACCUM' Character( 16 ), Parameter, Private :: req_aso4aqo3 = 'SO4_AQO3_ACCUM' Character( 16 ), Parameter, Private :: req_aso4aqfemn = 'SO4_AQFEMN_ACCUM' Character( 16 ), Parameter, Private :: req_aso4aqmhp = 'SO4_AQMHP_ACCUM' Character( 16 ), Parameter, Private :: req_aso4aqpaa = 'SO4_AQPAA_ACCUM' C...Pointers for the AQCHEM array AEROSOL Integer :: lso4 ! Sulfate Integer :: lnh4 ! Ammonium Integer :: lno3 ! Nitrate Integer :: lsoa ! SOA Integer :: lorgc ! SOA (anthropogenic organic oligomers) Integer :: lpoa ! Primary organic aerosol Integer :: lec ! Elemental carbon Integer :: lpri ! Primary aerosol (Aitken and Accumulation) ! Integer :: lpricor ! Primary aerosol (coarse) Integer :: lna ! Sodium Integer :: lcl ! Chloride ion ! Integer :: lcaco3 ! Calcium Carbonate aerosol (place holder) ! Integer :: lmgco3 ! Magnesium Carbonate aerosol (place holder) ! Integer :: la3fe ! Iron aerosol (place holder) ! Integer :: lb2mn ! Manganese aerosol (place holder) ! Integer :: lk ! Potassium aerosol (Cl- tracked separately) (place holder) Integer :: lnum ! Number Integer :: lsrf ! Surface area C...TXHG aersosols Integer :: ltracer_akn ! Tracer aerosols (Aitken) Integer :: ltracer_acc ! Tracer aerosols (Accumulation) Integer :: ltracer_cor ! Tracer aerosols (Coarse) Integer :: lphg_akn ! Mercuric aerosols (Aitken and Accumulation) Integer :: lphg_acc ! Mercuric aerosols (Aitken and Accumulation) Integer :: lphg_cor ! Mercuric aerosols (Coarse) C...Sulfur Tracking Model Integer :: lso4aqh2o2 ! Sulfate from aq H2O2 rxn Integer :: lso4aqo3 ! Sulfate from aq O3 rxn Integer :: lso4aqfemn ! Sulfate from aq rxn catalyzed by FE&MN Integer :: lso4aqmhp ! Sulfate from aq MHP rxn Integer :: lso4aqpaa ! Sulfate from aq PAA rxn Integer :: lcaacc ! Ca in Accumulation mode (AE6) SLN 16March2011 Integer :: lmgacc ! Mg in Accumulation mode (AE6) SLN 16March2011 Integer :: lkacc ! K in Accumulation mode (AE6) SLN 16March2011 Integer :: lfeacc ! Fe in Accumulation mode (AE6) SLN 22March2011 Integer :: lmnacc ! Mn in Accumulation mode (AE6) SLN 22March2011 Integer :: lsoilc ! SOIL in Coarse mode (AE6) SLN 16March2011 Integer :: lanthc ! CORS in Coarse mode (AE6) SLN 16March2011 Integer :: lseasc ! SEAS in Coarse mode (AE6) SLN 16March2011 C...Pointers for the AQCHEM arrays LIQUID and WETDEP Integer, Parameter :: lacl = 01 ! Hydrogen ion Integer, Parameter :: lnh4accl = 02 ! Ammonium(attributed to accum. mode) Integer, Parameter :: lcacorl = 03 ! coarse mode Calcium Integer, Parameter :: lnaaccl = 04 ! Sodium Integer, Parameter :: lohl = 05 ! Hydroxyl radical Integer, Parameter :: lso4accl = 06 ! Sulfate (attributed to accumulation mode) Integer, Parameter :: lhso4accl = 07 ! bisulfate (attributed to accumulation mode) Integer, Parameter :: lso3l = 08 ! sulfite Integer, Parameter :: lhso3l = 09 ! bisulfite Integer, Parameter :: lso2l = 10 ! sulfur dioxide Integer, Parameter :: lco3l = 11 ! carbonate Integer, Parameter :: lhco3l = 12 ! bicarbonate Integer, Parameter :: lco2l = 13 ! carbon dioxide Integer, Parameter :: lno3accl = 14 ! nitrate(attributed to accumulation mode) Integer, Parameter :: lnh3l = 15 ! ammonia Integer, Parameter :: lclaccl = 16 ! chloride ion (attributed to accumulation mode) Integer, Parameter :: lh2o2l = 17 ! hydrogen peroxide Integer, Parameter :: lo3l = 18 ! ozone Integer, Parameter :: lfecorl = 19 ! iron Integer, Parameter :: lmncorl = 20 ! Manganese Integer, Parameter :: lal = 21 ! generalized anion associated with iron Integer, Parameter :: lfoal = 22 ! Formic acid Integer, Parameter :: lhco2l = 23 ! HCOO- ion Integer, Parameter :: lmhpl = 24 ! Methyl hydrogen peroxide Integer, Parameter :: lpaal = 25 ! Peroxyacidic acid Integer, Parameter :: lhcll = 26 ! Hydrogen chloride Integer, Parameter :: lpriml = 27 ! primary aerosol Integer, Parameter :: lmgcorl = 28 ! coarse mode Magnesium Integer, Parameter :: lkcorl = 29 ! coarse mode Potassium Integer, Parameter :: lbl = 30 ! generalized anion associated with manganese Integer, Parameter :: lhno3l = 31 ! nitric acid ! Integer, Parameter :: lprimcorl = 32 ! coarse-mode primary aerosol Integer, Parameter :: lnumcorl = 32 ! coarse-mode number Integer, Parameter :: lts6corl = 33 ! sulfate (attributed to coarse mode) Integer, Parameter :: lnacorl = 34 ! sodium (attributed to coarse mode) Integer, Parameter :: lclcorl = 35 ! chloride ion (attributed to coarse mode) Integer, Parameter :: lno3corl = 36 ! nitrate (attributed to coarse mode) Integer, Parameter :: lnh4corl = 37 ! ammonium (attributed to coarse mode) Integer, Parameter :: lsoal = 38 ! secondary organic aerosols Integer, Parameter :: lorgcl = 39 ! in-cloud soa integer, parameter :: lpoal = 40 ! primary organic aerosols Integer, Parameter :: lecl = 41 ! elemental carbon Integer, Parameter :: lglyl = 42 ! glyoxal Integer, Parameter :: lmglyl = 43 ! methylglyoxal Integer, Parameter :: lcaaccl = 44 ! accumulation mode Calcium (AE6) SLN 16March2011 Integer, Parameter :: lmgaccl = 45 ! accumulation mode Magnesium (AE6) SLN 16March2011 Integer, Parameter :: lkaccl = 46 ! accumulation mode Potassium (AE6) SLN 16March2011 Integer, Parameter :: lsoilcl = 47 ! coarse mode SOIL (AE6) SLN 16March2011 Integer, Parameter :: lanthcl = 48 ! coarse mode CORS (lol) (AE6) SLN 16March2011 Integer, Parameter :: lseascl = 49 ! coarse mode SEAS (AE6) SLN 16March2011 Integer, Parameter :: lfeaccl = 50 ! accumulation mode Iron (AE6) SLN 22March2011 Integer, Parameter :: lmnaccl = 51 ! accumulation mode Manganese (AE6) SLN 22March2011 C for TX version integer, parameter :: ltracerl = 52 ! TRACER integer, parameter :: ltracercorl = 53 ! Coarse-mode TRACER integer, parameter :: lphgfinel = 54 ! Fine-mode Mercury Tracer integer, parameter :: lphgcorl = 55 ! Coarse-mode Mercury Tracer C for sulfur tracking model Integer, Parameter :: lts6aqh2o2l = 56 ! total S(VI) from aq H2O2 rxn Integer, Parameter :: lts6aqo3l = 57 ! total S(VI) from aq O3 rxn Integer, Parameter :: lts6aqfemnl = 58 ! total S(VI) from aq FE&MN catalyzed rxn Integer, Parameter :: lts6aqmhpl = 59 ! total S(VI) from aq MHP rxn Integer, Parameter :: lts6aqpaal = 60 ! total S(VI) from aq PAA rxn Integer, Parameter :: ltracil = 61 Integer, Parameter :: lpoail = 62 Integer, Parameter :: lpriil = 63 Integer, Parameter :: lsoail = 64 Integer :: nsrggas( ngas ) ! # surrogates in CGRID for each gas Integer :: lsrggas( ngas,mxsrg ) Integer, Allocatable, Save :: nsrgaer( :,: ) ! # surrogates in CGRID for each aerosol Integer, Allocatable, Save :: lsrgaer( :,:,: ) Integer, Allocatable, Save :: aknsrg( :,: ) Integer, Allocatable, Save :: cgrid2aq_map( : ) ! allocated in AQ_DATA_INIT Character( 16 ), Allocatable, Save :: cgrid2aq_name( : ) ! allocated in AQ_DATA_INIT Real( 8 ) :: jh2o2_hydrometeors ! H2O2 photolysis rate in condensed water [sec-1] Real( 8 ) :: jhno3_hydrometeors ! HNO3 photolysis rate in condensed water [sec-1] Logical, Private, Save :: mapped = .False. Contains C------------------------------------------------------------------------ Subroutine aq_data_init() C Defines mapping from CGRID for species concentration and moments. C Revision History: C First version was coded in May 2010 by Steve Howard with C Prakash Bhave, Jeff Young, and Sergey Napelenok. C Jan 2017: Additional error check added to avoid array out of C bounds when additional aerosol species are added. HOT Pye. C----------------------------------------------------------------------- Use cgrid_spcs ! CGRID mechanism species Use utilio_defn Use aero_data Use phot_mod, Only: init_phot_shared ! set-up shared photolysis arrays Implicit None C Functions: Integer, External :: indexn C Local Variables: Character( 100 ) :: xmsg Character( 16 ), Allocatable, Save :: aename( : ) Character( 16 ), Allocatable, Save :: cgrid2aq( : ) Character( 10 ) :: bkground Integer :: igas Integer :: iaer Integer :: isrg Integer :: spc Integer :: mode Integer :: i Integer :: n Integer :: var Logical :: new, Jexist Integer :: lsrg( mxsrg ) Integer :: n_cgrid2aq Integer :: ios C Local Variable used to determine what optional TX to add to surrogates !Logical :: found_all_modes !Integer :: n_missing_tx !Integer :: n_which_txadd( nadd_tx ) CHARACTER(16) :: NAMEI, NAMEJ INTEGER LS2, LS1, LS3, LS4, ISRG2, ISRGI, IAERI, SPCI Logical, Save :: Firstcall = .True. C----------------------------------------------------------------------- If ( Firstcall ) Then Firstcall = .False. Else Return End if Call init_phot_shared() Allocate ( aename( n_ae_a2aq ), stat = ios ) If ( ios .Ne. 0 ) Then xmsg = '*** Error allocating aename' Call m3exit( 'aq_data_init', 0, 0, xmsg, xstat3 ) End If C...Build array of AE names that are mapped to AE_A2AQ Do spc = 1, n_ae_a2aq aename( spc ) = ae_spc( ae_a2aq_map( spc ) ) End Do C...Set number of species in CGRID and used in Aqueous module n_cgrid2aq = n_gc_g2aq + n_ae_a2aq + n_nr_n2aq + n_tr_t2aq ! Allocate ( cgrid2aq( n_cgrid2aq ), ! & cgrid2aq_map( n_cgrid2aq ), stat = ios ) ! If ( ios .Ne. 0 ) Then ! xmsg = '*** Error allocating cgrid2aq or cgrid2aq_map' ! Call m3exit( 'aq_data_init', 0, 0, xmsg, xstat3 ) ! End If Allocate ( cgrid2aq( n_cgrid2aq ), stat = ios ) If ( ios .Ne. 0 ) Then xmsg = '*** Error allocating cgrid2aq' Call m3exit( 'aq_data_init', 0, 0, xmsg, xstat3 ) End If Allocate ( cgrid2aq_map( n_cgrid2aq ), stat = ios ) If ( ios .Ne. 0 ) Then xmsg = '*** Error allocating cgrid2aq_map' Call m3exit( 'aq_data_init', 0, 0, xmsg, xstat3 ) End If Allocate ( cgrid2aq_name( n_cgrid2aq ), stat = ios ) If ( ios .Ne. 0 ) Then xmsg = '*** Error allocating cgrid2aq_name' Call m3exit( 'aq_data_init', 0, 0, xmsg, xstat3 ) End If C...Map aero species Call map_aero() naer = n_aerospc + naddaer + nadd_tx Allocate ( srgaer( naer ), stat = ios ) If ( ios .Ne. 0 ) Then xmsg = '*** Error allocating srgaer' Call m3exit( 'aq_data_init', 0, 0, xmsg, xstat3 ) End If Allocate ( nsrgaer( naer,nmodes ), stat = ios ) If ( ios .Ne. 0 ) Then xmsg = '*** Error allocating nsrgaer' Call m3exit( 'aq_data_init', 0, 0, xmsg, xstat3 ) End If Allocate ( lsrgaer( naer,nmodes,mxsrg ), stat = ios ) If ( ios .Ne. 0 ) Then xmsg = '*** Error allocating lsrgaer' Call m3exit( 'aq_data_init', 0, 0, xmsg, xstat3 ) End If Allocate ( aknsrg( naer,mxsrg ), stat = ios ) If ( ios .Ne. 0 ) Then xmsg = '*** Error allocating aknsrg' Call m3exit( 'aq_data_init', 0, 0, xmsg, xstat3 ) End If C...Populate optional aerosol surrogate species (e.g. C TRACER_AITKEN, TRACER_ACCUM, TRACER_COARSE, C PHG_AITKEN, PHG_ACCUM, PHG_COARSE ) Do spc = 1, nadd_tx srgaer( spc ) = srgaer_addtx( spc ) End Do C...Initialize aerosol surrogate species from AERO_DATA table Do var = 1, n_aerospc spc = nadd_tx + var srgaer( spc ) = sur_aer_type( (/' ',' ',' '/), 0.0, 0.0, 0.0 ) ! Skip H2O, H2OP, and SOIL species If ( var .Eq. ah2o_idx .Or. var .Eq. ah3op_idx ) Then write(xmsg,'(4(A,1x))')'Skipping AQ surrogate for AEROSPC ', & aerospc( spc-nadd_tx )%name( 1:n_mode ) Call m3warn( 'aq_data_init', 0, 0, xmsg ) Cycle End if Do mode = 1, n_mode n = index1( aerospc( var )%name( mode ), n_ae_a2aq, aename ) If ( n .Gt. 0 ) Then ! Verify that surrogate is new new = .True. Do i = 1, spc If ( ae_a2aq( n ) .Eq. srgaer( i )%name( mode ) ) Then new = .False.; Exit End If Jexist = .false. ! Does J mode exist for a new I mode species? If ( mode .eq. 1) then spci = spc ls1 = len_trim(ae_a2aq(n)) ls2 = len_trim(srgaer(i)%name(2)) namei = ae_a2aq(n) namei = namei(1:ls1-7) ! Remove "_AITKEN" to get base name for I mode namej = srgaer(i)%name(2) namej = namej(1:ls2-6) ! Remove "_ACCUM" to get base name for J mode If (trim(namei) .eq. trim(namej)) then spci = i Jexist = .true.; Exit End If End If End Do If ( new ) Then If (Jexist) then srgaer( spci )%name( mode ) = ae_a2aq( n ) srgaer( spci )%density = aerospc( var )%density srgaer( spci )%molwt = aerospc_mw( var ) Else srgaer( spc )%name( mode ) = ae_a2aq( n ) srgaer( spc )%density = aerospc( var )%density srgaer( spc )%molwt = aerospc_mw( var ) End If End If End If End Do ! mode End Do ! spc C...Initialize aerosol moment surrogates (i.e. C NUM_AITKEN, NUM_ACCUM, NUM_COARSE, C SRF_AITKEB, SRF_ACCUM, SRF_COARSE ) Do n = 1, naddaer spc = n_aerospc + nadd_tx + n srgaer( spc ) = addsrgaer( n ) End Do #ifdef verbose_cloud C...write out SRGGAS and SRGAER to verify Write( logdev, 1005 )ngas Do spc = 1, ngas Write( logdev,1007 ) srggas( spc )%name, srggas( spc )%backgnd End Do Write( logdev,1009 ) naer Do spc = 1, naer Write( logdev,1111 ) srgaer( spc )%name, srgaer( spc )%density, & srgaer( spc )%molwt, srgaer( spc )%backgnd End Do #endif C...Prepare indices for aqueous species C...CGRID map to aqueous species pointers for the gases spc = 0 Do var = 1, n_gc_g2aq spc = spc + 1 cgrid2aq( spc ) = gc_g2aq( var ) cgrid2aq_map( spc ) = gc_g2aq_map( var ) + gc_strt - 1 cgrid2aq_name( spc ) = gc_spc( gc_g2aq_map( var ) ) End Do C...CGRID map to aqueous species pointers for the aerosols Do var = 1, n_ae_a2aq spc = spc + 1 cgrid2aq( spc ) = ae_a2aq( var ) cgrid2aq_map( spc ) = ae_a2aq_map( var ) + ae_strt - 1 cgrid2aq_name( spc ) = ae_spc( ae_a2aq_map( var ) ) End Do C...CGRID map to aqueous species pointers for the non-reactives Do var = 1, n_nr_n2aq spc = spc + 1 cgrid2aq( spc ) = nr_n2aq( var ) cgrid2aq_map( spc ) = nr_n2aq_map( var ) + nr_strt - 1 cgrid2aq_name( spc ) = nr_spc( nr_n2aq_map( var ) ) End Do C...CGRID map to aqueous species pointers for the tracers Do var = 1, n_tr_t2aq spc = spc + 1 cgrid2aq( spc ) = tr_t2aq( var ) cgrid2aq_map( spc ) = tr_t2aq_map( var ) + tr_strt - 1 cgrid2aq_name( spc ) = tr_spc( tr_t2aq_map( var ) ) End Do write(logdev, 1114) C...Create the pointers from CGRID to the gaseous species needed by AQCHEM nsrggas = 0 Do igas = 1, ngas nsrggas( igas ) = indexn( srggas( igas )%name, n_cgrid2aq, cgrid2aq, lsrg ) If ( nsrggas( igas ) .Eq. 0 ) Then Write ( bkground, '(F8.4)' ) srggas( igas )%backgnd xmsg = trim( srggas( igas )%name ) & // ' is not in GC or NR namelist so using background value of ' & // trim( bkground ) Call m3mesg( xmsg ) Else Do isrg = 1, nsrggas( igas ) lsrggas( igas,isrg ) = lsrg( isrg ) #ifdef verbose_cloud write( logdev,1113 ) cgrid2aq_name( lsrggas( igas,isrg ) ), & cgrid2aq_map( lsrggas( igas,isrg ) ), srggas( igas )%name, & igas,lsrggas( igas,isrg ) #endif End Do End If End Do C...Create the pointers from CGRID to the aerosol species needed by AQCHEM nsrgaer = 0 aknsrg = 0 write(logdev, 1114) Do iaer = 1, naer Do n = 1, nmodes If ( srgaer( iaer )%name( n ) .Ne. ' ' ) Then nsrgaer( iaer,n ) = indexn( srgaer( iaer )%name( n ), n_cgrid2aq, & cgrid2aq, lsrg ) If ( nsrgaer( iaer,n ) .Eq. 0 ) Then Write ( bkground, '(f8.4)' ) srgaer( iaer )%backgnd xmsg = trim( srgaer( iaer )%name( n ) ) & // ' is not in AE namelist so using background value of ' & // trim( bkground ) Call m3mesg( xmsg ) Else Do isrg = 1, nsrgaer( iaer,n ) If ( isrg .Gt. mxsrg ) Then xmsg = 'lsrg will index out of bounds. Increase mxsrg in AQ_DATA.F' Call m3exit( 'AQ_DATA', 0, 0, xmsg, xstat3 ) End If lsrgaer( iaer,n,isrg ) = lsrg( isrg ) #ifdef verbose_cloud write( logdev,1113 ) cgrid2aq_name( lsrgaer( iaer,n,isrg ) ), & cgrid2aq_map( lsrgaer( iaer,n,isrg ) ), srgaer( iaer )%name( n ), & iaer, lsrgaer( iaer,n,isrg ) #endif End Do End If End If End Do End Do C...Create the pointers for required gas surrogate species needed by AQCHEM lso2 = findSgrGas( req_so2 ) ! Sulfur Dioxide lhno3 = findSgrGas( req_hno3 ) ! Nitric Acid ln2o5 = findSgrGas( req_n2o5 ) ! Dinitrogen Pentoxide lco2 = findSgrGas( req_co2 ) ! Carbon Dioxide lnh3 = findSgrGas( req_nh3 ) ! Ammonia lh2o2 = findSgrGas( req_h2o2 ) ! Hydrogen Perioxide lo3 = findSgrGas( req_o3 ) ! Ozone lfoa = findSgrGas( req_foa ) ! Formic Acid lmhp = findSgrGas( req_mhp ) ! Methyl Hydrogen Peroxide lpaa = findSgrGas( req_paa ) ! Peroxyacidic Acid lh2so4 = findSgrGas( req_h2so4 ) ! Sulfuric Acid lhcl = findSgrGas( req_hcl ) ! Hydrogen Chloride lgly = findSgrGas( req_gly ) ! Glyoxal lmgly = findSgrGas( req_mgly ) ! Methylglyoxal lho = findSgrGas( req_ho ) ! OH, hydroxyl radical C...Create the pointers for required aerosol surrogate species needed by AQCHEM lso4 = findSgrAer( req_aso4 ) ! Sulfate lnh4 = findSgrAer( req_anh4 ) ! Ammonium lno3 = findSgrAer( req_ano3 ) ! Nitrate lsoa = findSgrAer( req_asoa ) ! SOA lorgc = findSgrAer( req_aorgc ) ! SOA (anthropogenic organic oligomers) lpoa = findSgrAer( req_apoa ) ! Primary organic aerosol lec = findSgrAer( req_aec ) ! Elemental carbon lpri = findSgrAer( req_apri ) ! Primary aerosol (Aitken and Accumulation) ! lpricor= findSgrAer( req_apric ) ! Primary aerosol (coarse) lna = findSgrAer( req_ana ) ! Sodium lcl = findSgrAer( req_acl ) ! Chloride ion ! lcaco3 = findSgrAer( req_acaco3 ) ! Calcium Carbonate aerosol (place holder) ! lmgco3 = findSgrAer( req_amgco3 ) ! Magnesium Carbonate aerosol (place holder) ! la3fe = findSgrAer( req_aa3fe ) ! Iron aerosol (place holder) ! lb2mn = findSgrAer( req_ab2mn ) ! Manganese aerosol (place holder) ! lk = findSgrAer( req_ak ) ! Potassium aerosol (Cl- tracked separately) lnum = findSgrAer( req_num ) ! Number lsrf = findSgrAer( req_srf ) ! Surface area lcaacc = findSgrAer( req_caacc ) ! Ca in Accumulation mode (AE6) SLN 16March2011 lmgacc = findSgrAer( req_mgacc ) ! Mg in Accumulation mode (AE6) SLN 16March2011 lkacc = findSgrAer( req_kacc ) ! K in Accumulation mode (AE6) SLN 16March2011 lfeacc = findSgrAer( req_feacc ) ! Fe in Accumulation mode (AE6) SLN 22March2011 lmnacc = findSgrAer( req_mnacc ) ! Mn in Accumulation mode (AE6) SLN 22March2011 lsoilc = findSgrAer( req_soilc ) ! SOIL in Coarse mode (AE6) SLN 16March2011 lanthc = findSgrAer( req_anthc ) ! CORS in Coarse mode (AE6) SLN 16March2011 lseasc = findSgrAer( req_seasc ) ! SEAS in Coarse mode (AE6) SLN 16March2011 C...For TXHG version ltracer_akn = findSgrAer( req_traceri ) ! Tracer aitken mode ltracer_acc = findSgrAer( req_tracerj ) ! Tracer accumation mode ltracer_cor = findSgrAer( req_tracerk ) ! Tracer coarse mode lphg_akn = findSgrAer( req_phgi ) ! Mercuric aitken and accumulation modes lphg_acc = findSgrAer( req_phgj ) ! Mercuric aitken and accumulation modes lphg_cor = findSgrAer( req_phgk ) ! Mercuric coarse mode C...For sulfur tracking model If ( stm ) Then lso4aqh2o2 = findSgrAer( req_aso4aqh2o2 ) ! Sulfate from aq H2O2 rxn lso4aqo3 = findSgrAer( req_aso4aqo3 ) ! Sulfate from aq O3 rxn lso4aqfemn = findSgrAer( req_aso4aqfemn ) ! Sulfate from aq rxn catalyzed by FE&MN lso4aqmhp = findSgrAer( req_aso4aqmhp ) ! Sulfate from aq MHP rxn lso4aqpaa = findSgrAer( req_aso4aqpaa ) ! Sulfate from aq PAA rxn End If mapped = .True. C...Match ACC mode surrogate indices to their AKN mode counterparts DO IAER = 1, NAER DO ISRG = 1, NSRGAER( IAER,2 ) NAMEJ = CGRID2AQ_NAME( LSRGAER( IAER,2,ISRG ) ) LS1 = LEN_TRIM(NAMEJ) LS2 = 0 DO I = 1, LS1 IF(NAMEJ(I:I) .NE. ' ') THEN LS2 = LS2+1 END IF END DO ISRGI = 0 IF(IAER .EQ. LTRACER_ACC) THEN IAERI = LTRACER_AKN ELSE IAERI = IAER END IF LOOP_SRGI: DO ISRG2 = 1, NSRGAER( IAERI, 1 ) NAMEI = CGRID2AQ_NAME( LSRGAER( IAERI,1,ISRG2 ) ) LS3 = LEN_TRIM(NAMEI) LS4 = 0 DO I = 1, LS3 IF(NAMEI(I:I) .NE. ' ') THEN LS4 = LS4+1 END IF END DO IF( TRIM(NAMEJ(1:LS2-1)) .EQ. TRIM(NAMEI(1:LS4-1)) ) THEN ISRGI = ISRG2 EXIT LOOP_SRGI END IF END DO LOOP_SRGI AKNSRG(IAER, ISRG) = ISRGI END DO END DO #ifdef verbose_cloud Write( logdev,'( /5x, a )' ) 'AQCHEM gas surrogate species' Write( logdev,'( 5x, a, i4 )' ) 'lso2: ', lso2 Write( logdev,'( 5x, a, i4 )' ) 'lhno3: ', lhno3 Write( logdev,'( 5x, a, i4 )' ) 'ln2o5: ', ln2o5 Write( logdev,'( 5x, a, i4 )' ) 'lco2: ', lco2 Write( logdev,'( 5x, a, i4 )' ) 'lnh3: ', lnh3 Write( logdev,'( 5x, a, i4 )' ) 'lh2o2: ', lh2o2 Write( logdev,'( 5x, a, i4 )' ) 'lo3: ', lo3 Write( logdev,'( 5x, a, i4 )' ) 'lfoa: ', lfoa Write( logdev,'( 5x, a, i4 )' ) 'lmhp: ', lmhp Write( logdev,'( 5x, a, i4 )' ) 'lpaa: ', lpaa Write( logdev,'( 5x, a, i4 )' ) 'lh2so4: ', lh2so4 Write( logdev,'( 5x, a, i4 )' ) 'lhcl: ', lhcl Write( logdev,'( 5x, a, i4 )' ) 'lgly: ', lgly Write( logdev,'( 5x, a, i4 )' ) 'lmgly: ', lmgly Write( logdev,'( 5x, a, i4 )' ) 'lho: ', lho Write( logdev,'( /5x, a )' ) 'AQCHEM aer osol surrogate species' Write( logdev,'( 5x, a, i4 )' ) 'lso4: ', lso4 Write( logdev,'( 5x, a, i4 )' ) 'lnh4: ', lnh4 Write( logdev,'( 5x, a, i4 )' ) 'lno3: ', lno3 Write( logdev,'( 5x, a, i4 )' ) 'lsoa: ', lsoa Write( logdev,'( 5x, a, i4 )' ) 'lorgc: ', lorgc Write( logdev,'( 5x, a, i4 )' ) 'lpoa: ', lpoa Write( logdev,'( 5x, a, i4 )' ) 'lec: ', lec Write( logdev,'( 5x, a, i4 )' ) 'lpri: ', lpri Write( logdev,'( 5x, a, i4 )' ) 'lna: ', lna Write( logdev,'( 5x, a, i4 )' ) 'lcl: ', lcl Write( logdev,'( 5x, a, i4 )' ) 'lnum: ', lnum Write( logdev,'( 5x, a, i4 )' ) 'lsrf: ', lsrf Write( logdev,'( 5x, a, i4 )' ) 'lcaacc: ', lcaacc Write( logdev,'( 5x, a, i4 )' ) 'lmgacc: ', lmgacc Write( logdev,'( 5x, a, i4 )' ) 'lkacc: ', lkacc Write( logdev,'( 5x, a, i4 )' ) 'lfeacc: ', lfeacc Write( logdev,'( 5x, a, i4 )' ) 'lmnacc: ', lmnacc Write( logdev,'( 5x, a, i4 )' ) 'lsoilc: ', lsoilc Write( logdev,'( 5x, a, i4 )' ) 'lanthc: ', lanthc Write( logdev,'( 5x, a, i4 )' ) 'lseasc: ', lseasc Write( logdev,'( 5x, a, i4 )' ) 'ltracer_akn: ', ltracer_akn Write( logdev,'( 5x, a, i4 )' ) 'ltracer_acc: ', ltracer_acc Write( logdev,'( 5x, a, i4 )' ) 'ltracer_cor: ', ltracer_cor Write( logdev,'( 5x, a, i4 )' ) 'lphg_akn: ', lphg_akn Write( logdev,'( 5x, a, i4 )' ) 'lphg_acc: ', lphg_acc Write( logdev,'( 5x, a, i4 )' ) 'lphg_cor: ', lphg_cor If ( stm ) Then Write( logdev,'( 5x, a, i4 )' ) 'lso4aqh2o2:', lso4aqh2o2 Write( logdev,'( 5x, a, i4 )' ) 'lso4aqo3: ', lso4aqo3 Write( logdev,'( 5x, a, i4 )' ) 'lso4aqfemn:', lso4aqfemn Write( logdev,'( 5x, a, i4 )' ) 'lso4aqmhp: ', lso4aqmhp Write( logdev,'( 5x, a, i4 )' ) 'lso4aqpaa: ', lso4aqpaa End If #endif Write( logdev,'( / 5x, a / )' ) ' --- AQCHEM Gas and Aerosol Species Mapped ---' C1005 Format( / "GASES" / "NGAS = ", i3 / " name "," backgrd" // ) C1007 Format( a16, 1x, f8.2 ) C1009 Format( / "AEROSOLS" / "NAER = ", i3 / " name(1) ", " name(2) ", C & " name(3) ", " dens ", " backgrd" // ) C1111 Format( 3(a16,1x), f6.0, 2(1x, f8.2) ) C1113 Format( a16, 1x, i4, 1x, a16, 1x, i4, 1x, i4) 1114 Format( / " CGRID_SPC ", 1x, "SPC ", 1x, " SURROGATE ", 1x, "ISRG", 1x, "IDX " ) Return End Subroutine aq_data_init C----------------------------------------------------------------------- Function findSgrGas( vname ) Result ( idx ) C Finds the index of 'required' gas surrogate species in the srggas list C Revision History: C First version was coded in April 2010 by Steve Howard with C Prakash Bhave, Jeff Young, and Sergey Napelenok. C----------------------------------------------------------------------- Use utilio_defn Implicit None C Arguments: Character( 16 ) :: vname Integer idx C Local Variables: Character( 80 ) :: xmsg Integer spc idx = 0 Do spc = 1, ngas If ( srggas( spc )%name .Eq. vname ) Then idx = spc ! Write( *,'(a,i5)' ) vname, idx Return End If End Do xmsg = 'Required Species ' // Trim( vname ) // ' Not found in SgrGas names array' Call m3exit( 'AQ_DATA', 0, 0, xmsg, xstat3 ) Return End Function findSgrGas C----------------------------------------------------------------------- Function findSgrAer( vname ) Result ( idx ) C Finds the index of 'required' Aerosol surrogate species in the srgaer list C Revision History: C First version was coded in April 2010 by Steve Howard with C Prakash Bhave, Jeff Young, and Sergey Napelenok. C----------------------------------------------------------------------- Use utilio_defn Implicit None C Arguments: Character( 16 ) :: vname Integer idx C Local Variables: Character( 80 ) :: xmsg Integer spc, n idx = 0 Do spc = 1, naer Do n = 1, nmodes ! Write( *,'(a,i5)' ) vname, spc If ( srgaer( spc )%name( n ) .Eq. vname ) Then idx = spc ! Write( *,'(a,i5)' ) vname, idx Return End If End Do End Do xmsg = 'Required Species ' // Trim( vname ) // ' Not found in SgrAer names array' Call m3exit( 'AQ_DATA', 0, 0, xmsg, xstat3 ) Return End Function findSgrAer C----------------------------------------------------------------------- Subroutine set_aeconcmin( aeconcmin ) C----------------------------------------------------------------------- C C Function: C set minimum concentrations for aerosol species C routine called from convcld_acm C C Preconditions: C Dates and times represented YYYYDDD:HHMMSS. C C Revision History: C 5/05 copied code from aero_depv to begin subroutine C 4/08 J.Kelly: added code to set min for coarse surface area C 21 Jun 10 J.Young: convert for Namelist redesign C----------------------------------------------------------------------- Use cgrid_spcs ! CGRID mechanism species Use aero_data Use utilio_defn Implicit None C..Includes: Include SUBST_CONST ! constants C..Functions: C..Arguments: Real, Intent( Out ) :: aeconcmin( : ) ! array of minimum concentrations C..Local Variables: !Character( 16 ) :: pname = 'SET_AECONCMIN' ! program name Integer m ! mode loop counter Integer n ! aerospc loop counter Integer spc ! species loop counter ! compute minimums for numbers and surfaces Do m = 1, n_mode spc = index1( aeromode( m )%num_name, n_ae_spc, ae_spc ) aeconcmin( spc ) = aeromode_minNum( m ) * mwair * 1.0E-3 spc = index1( aeromode( m )%srf_name, n_ae_spc, ae_spc ) aeconcmin( spc ) = aeromode_minM2( m ) * mwair * 1.0E-3 End Do ! compute minimums for aerosol species Do m = 1, n_mode Do n = 1, n_aerospc If ( .NOT. aero_missing(n,m) ) Then spc = index1( aerospc( n )%name( m ), n_ae_spc, ae_spc ) If ( spc .Ne. 0 ) Then aeconcmin( spc ) = aerospc( n )%min_conc( m ) * mwair * 1.0E-9 / ae_molwt( spc ) End If End If End Do End Do Return End Subroutine set_aeconcmin End Module aq_data ================================================ FILE: CCTM/src/cloud/acm_ae6/acmcld.f ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE ACMCLD ( NSP, NLAYS, F, C, DZH, CBELOW, CLBASE, CLTOP, & FRAC, TCLIFE, DTCLD ) C----------------------------------------------------------------------- C C FUNCTION: Subroutine to compute convective mixing in the CBL C according to the Asymmetrical Convective Model (ACM). C Ref: Pleim and Chang (1992) C C SUMMARY: C ACM is based on the Blackadar non-local convective model which is C used in HIRPBL where upward mixing similar to Blackadar but C downward mixing is to the next lower level representing more C realistic gradual subsidence. C C REVISION HISTORY: C Date Who What C -------- --- ----------------------------------------- C 06/2005 J.Pleim Initial version C 07/2005 J.Young Clean up for CMAQ-F C 05/2015 J.Young Clean up for CMAQv5.1 C 01/2018 J.Pleim Convert from sigma to Z for MPAS C-----------------------------------------------------------------------\ IMPLICIT NONE C Arguments INTEGER, INTENT( IN ) :: NSP ! no. of species INTEGER, INTENT( IN ) :: NLAYS ! no. of model layers REAL, INTENT( IN ) :: F( : ) ! entrainment fraction REAL, INTENT( INOUT ) :: C( :, : ) ! species concentration REAL, INTENT( IN ) :: DZH( : ) REAL, INTENT( INOUT ) :: CBELOW( : ) ! spec conc in layer below cld base INTEGER, INTENT( IN ) :: CLBASE INTEGER, INTENT( IN ) :: CLTOP REAL, INTENT( IN ) :: FRAC ! grid cell fractional cloud cover REAL, INTENT( IN ) :: TCLIFE ! cloud lifetime (s) REAL, INTENT( IN ) :: DTCLD ! cloud integration time step C Parameters REAL, PARAMETER :: HALF = 0.5 REAL, PARAMETER :: CRANKP = 0.5 C Local variables INTEGER NLP, K, NL, S ! index variables INTEGER KB REAL DTLIM, F1 REAL DTS, DELC, M1UP REAL( 8 ), ALLOCATABLE, SAVE :: AI( : ), BI( : ), EI( : ) REAL( 8 ), ALLOCATABLE, SAVE :: DI( : ), UI( : ) REAL( 8 ) :: ALPHA, BETA, GAMA REAL, ALLOCATABLE, SAVE :: VCI( :,: ) REAL, ALLOCATABLE, SAVE :: MBARKS( : ), MDWN( : ) !--Local Arrays for MPAS implementation REAL, ALLOCATABLE, SAVE :: DZHI ( : ) ! 1/DZH INTEGER :: ALLOCSTAT LOGICAL, SAVE :: FIRSTIME = .TRUE. CHARACTER (LEN = 80) :: XMSG C----------------------------------------------------------------------- IF (FIRSTIME) THEN ALLOCATE (AI( NLAYS ), & BI( NLAYS ), & EI( NLAYS ), & DI( NLAYS ), & UI( NLAYS ), & VCI( NLAYS,NSP ), & MBARKS( NLAYS ), & MDWN( NLAYS ), & DZHI ( NLAYS ), & STAT=ALLOCSTAT) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'EXIT: Failure allocating AI, BI, EI, DI, UI, VCI, MBARKS, MDWN or DZHI' write (6, *) trim(xmsg); stop END IF FIRSTIME = .FALSE. END IF DTLIM = DTCLD MDWN ( CLTOP + 1 ) = 0.0 M1UP = 0.0 DZHI = 1.0 / DZH ! array assignment KB = CLBASE - 1 DZHI( KB ) = 1.0 / DZH( KB ) C Compute ACM mixing rate DO K = CLTOP, CLBASE, -1 MBARKS( K ) = ( 1.0 - F( K ) ) * FRAC / TCLIFE MDWN ( K ) = MBARKS( K ) + MDWN( K + 1 ) * DZH( K + 1 ) * DZHI( K ) M1UP = M1UP + MBARKS( K ) * DZH( K ) DTLIM = MIN( HALF / ( M1UP * DZHI( K ) ), DTLIM ) END DO DTLIM = MIN( HALF / ( M1UP * DZHI( KB ) ), DTLIM ) DO S = 1, NSP VCI( KB, S ) = CBELOW( S ) VCI( CLTOP+1,S ) = 9999.0 DO K = CLBASE, CLTOP VCI( K,S ) = C( S,K ) UI( K ) = 0.0 ! init variable for use below END DO END DO NLP = INT( DTCLD / DTLIM + 1.0 ) DTS = ( DTCLD / NLP ) DO 2000 NL = 1, NLP ! loop over sub timestep DO 1000 S = 1, NSP ! loop over species C Compute tendency of CBL concentrations - Semi-Implicit solution DO K = CLBASE, CLTOP DELC = DTS & * ( MBARKS( K ) * VCI( KB,S ) & - MDWN( K ) * VCI( K,S ) & + DZH( K+1 ) * DZHI( K ) * MDWN( K+1 ) * VCI( K+1,S ) ) DI( K ) = VCI( K,S ) + ( 1.0 - CRANKP ) * DELC EI( K ) = -CRANKP * MDWN( K ) * DTS * DZH( K ) * DZHI( K-1 ) BI( K ) = 1.0 + CRANKP * MDWN( K ) * DTS AI( K ) = -CRANKP * MBARKS( K ) * DTS END DO BI( KB ) = 1.0 + CRANKP * M1UP * DTS * DZHI( KB ) F1 = M1UP * VCI( KB,S ) & - MDWN( CLBASE ) * VCI( CLBASE,S ) * DZH( CLBASE ) DI( KB ) = VCI( KB,S ) - ( 1.0 - CRANKP ) * F1 * DZHI( KB ) * DTS C Define arrays A,B,E which make up matrix and D which is RHS BETA = DI( KB ) GAMA = BI( KB ) ALPHA = 1.0 DO K = CLBASE, CLTOP ALPHA = -ALPHA * EI( K ) / BI( K ) BETA = ALPHA * DI( K ) + BETA GAMA = ALPHA * AI( K ) + GAMA END DO UI( KB ) = BETA / GAMA UI( CLTOP ) = ( DI( CLTOP ) - AI( CLTOP ) * UI( KB ) ) / BI( CLTOP ) BETA = DI( KB ) GAMA = BI( KB ) ALPHA = 1.0 C Back substitution: DO K = CLTOP - 1, CLBASE, -1 UI( K ) = ( DI( K ) - AI( K ) * UI( KB ) - EI( K+1 ) * UI( K+1 ) ) & / BI( K ) END DO C Update concentrations DO K = KB, CLTOP VCI( K,S ) = REAL( UI( K ), 4 ) END DO 1000 CONTINUE ! end loop for species 2000 CONTINUE ! end timestep loop DO S = 1, NSP CBELOW( S ) = VCI( KB,S ) DO K = CLBASE, CLTOP C( S,K ) = VCI( K,S ) END DO END DO RETURN END ================================================ FILE: CCTM/src/cloud/acm_ae6/aq_map.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE AQ_MAP ( JDATE, JTIME, WTBAR, WCBAR, TBARC, PBARC, & CTHK1, AIRM, PRATE1, TAUCLD, POLC, CEND, & REMOV, REMOVAC, ALFA0, ALFA2, ALFA3, COSZ ) C----------------------------------------------------------------------- C DESCRIPTION: This is an interface processor between the cloud dynamics C module(s) and the aqueous chemistry module. It uses indices to C map species from their order in the array POLC, CEND, REMOV to C the species that are expected for AQCHEM, ie GAS and AEROSOL. C Revision History: C No Date Who What C -- -------- --- ----------------------------------------- C 0 01/15/98 sjr created program C 1 02/13/98 sjr modified/generalized the mapping procedure C Dec 00 Jeff move CGRID_MAP into f90 module C 3 06/07/05 sjr added logic for coarse sulfate C 4 04/11/08 jtk added logic for coarse ammonium C 5 10/10/10 yoj update to use aero_reeng by Steve Howard, Prakash Bhave, C Jeff Young, Sergey Napelenok, and Shawn Roselle C 6 03/01/11 sjr replaced I/O API include files with UTILIO_DEFN; C 7 07/01/01 gs calculate zenith angle to determine daytime and nightime C needed for sulfur oxidation via metal catalysis C 8 09/10/11 wth adapted for multiple pollutant model, i.e., Gas phase mercury C PM mercury and tracer species C 07 Jul 14 wth: replaced mechanism include file(s) with fortran module C 01 Feb 19 D.Wong: replaced run time dynamic arrays with allocatable arrays C 30 Dec 19 S.Napelenok: ddm-3d implementation for v 5.3.1 C Called by: RADMCLD and RESCLD C Calls the following subroutines: AQCHEM C ARGUMENTS TYPE I/O DESCRIPTION C --------- ------- ------ -------------------------------- C JDATE integer input current model julian date (yyyyddd) C JTIME integer input current model time (hhmmss) C WTBAR real input avg total water content (kg/m3) C WCBAR real input avg liquid water content (kg/m3) C TBARC real input avg cloud temperature (K) C PBARC real input avg cloud pressure (Pa) C CTHK1 real input cloud thickness (m) C AIRM real input total air mass (moles/m2) in cloudy air C PRATE1 real input precipitation rate (mm/hr) C TAUCLD real input cloud lifetime (s) C POLC real input ave vert conc incloud (moles sp/ mole air) C CEND real output ending incloud conc (moles/mole) C REMOV real output moles/m2 or mm*mol/lit scavenged C REMOVAC real output variable storing H+ deposition C ALFA0 real input scav coef for aitken aerosol number C ALFA2 real input scav coef for aitken aerosol surface area C ALFA3 real input scav coef for aitken aerosol mass C COSZ real input cosine solar zenith angle C----------------------------------------------------------------------- USE CGRID_SPCS ! CGRID mechanism species USE AERO_DATA ! aerosol shared parameters USE AQ_DATA ! aqueous chemistry shared parameters USE UTILIO_DEFN #ifdef sens USE DDM3D_DEFN, ONLY : NP, NPMAX, S_POLC, S_CEND, S_REMOV, & S_REMOVAC, S_HPWDEP, S_GAS, S_GASWDEP, & S_AEROSOL, S_AERWDEP #endif IMPLICIT NONE INCLUDE SUBST_CONST ! for PI CHARACTER( 120 ) :: XMSG = ' ' ! Exit status message C Parameters: INTEGER, SAVE :: MXSPCS ! Number of species in CGRID REAL, PARAMETER :: ONETHIRD = 1.0 / 3.0 REAL, PARAMETER :: TWOTHIRDS = 2.0 / 3.0 C Arguments: INTEGER, INTENT( IN ) :: JDATE ! current model date, coded YYYYDDD INTEGER, INTENT( IN ) :: JTIME ! current model time, coded HHMMSS REAL, INTENT( IN ) :: WTBAR ! total wat cont (kg/m2) int. thru cld REAL, INTENT( IN ) :: WCBAR ! liq water content of cloud (kg/m3) REAL, INTENT( IN ) :: TBARC ! mean cloud temp (K) REAL, INTENT( IN ) :: PBARC ! mean cloud pressure (Pa) REAL, INTENT( IN ) :: CTHK1 ! aq chem calc cloud thickness REAL, INTENT( IN ) :: AIRM ! total air mass (moles/m2) in cloudy air REAL, INTENT( IN ) :: PRATE1 ! storm rainfall rate (mm/hr) REAL, INTENT( IN ) :: TAUCLD ! cloud lifetime REAL, INTENT( IN ) :: POLC ( : ) ! avg vert conc incloud (moles/mole) REAL, INTENT( INOUT ) :: CEND ( : ) ! ending incloud conc (moles/mole) REAL, INTENT( INOUT ) :: REMOV( : ) ! moles/m2 or mm*mol/lit scavenged REAL, INTENT( INOUT ) :: REMOVAC ! variable storing H+ deposition REAL, INTENT( IN ) :: ALFA0 ! scav coef for aitken aerosol number REAL, INTENT( IN ) :: ALFA2 ! scav coef for aitken aerosol sfc area REAL, INTENT( IN ) :: ALFA3 ! scav coef for aitken aerosol mass REAL, INTENT( IN ) :: COSZ ! cosine solar zenith angle C Local Variables (scalars): LOGICAL, SAVE :: FIRSTIME = .TRUE. ! flag for first pass thru CHARACTER(16), SAVE :: PNAME = 'AQ_MAP' ! program name INTEGER IAER ! aerosol loop counter INTEGER IMODE ! aerosol mode loop counter INTEGER IGAS ! gas loop counter INTEGER ISRG ! surrogate loop counter INTEGER PNTR ! relative pointer variable INTEGER SPC ! liquid species loop counter INTEGER :: STAT REAL( 8 ) :: BETASO4 REAL :: EALFA2T ! EXP( -ALFA2 * TAUCLD ) REAL( 8 ) :: M3NEW( NMODES ) ! modal mass at time t REAL( 8 ) :: M3OLD( NMODES ) ! modal mass at time 0 REAL( 8 ) :: Dens_wmean_old( NMODES ) ! concentration weighted molecular weight g/mol REAL( 8 ) :: Dens_wmean_new( NMODES ) ! concentration weighted molecular weight g/mol REAL :: HPWDEP ! hydrogen wet dep (mm mol/liter) REAL( 8 ), ALLOCATABLE, SAVE :: GAS ( : ) ! gas phase conc (mol/mol) REAL( 8 ), ALLOCATABLE, SAVE :: GASWDEP( : ) ! gas phase wet dep array (mm mol/liter) REAL( 8 ), ALLOCATABLE, SAVE :: AEROSOL( :, :) ! aerosol conc (mol/mol) REAL( 8 ), ALLOCATABLE, SAVE :: AERWDEP( :, :) ! aerosol wet dep array (mm mol/liter) REAL( 8 ) :: WSRGGAS( NGAS, MXSRG) ! weights for surrogate REAL( 8 ) :: WSRGAER( MAX_NAER, NMODES, MXSRG) ! weights for surrogate REAL( 8 ) :: FRACTR, FRACPOA, FRACPRI, FRACSOA INTEGER IAERI C External Functions: INTEGER, EXTERNAL :: INDEXN ! external func to get species pointers INTERFACE SUBROUTINE AQCHEM ( JDATE, JTIME, TEMP, PRES_PA, TAUCLD, PRCRATE, & WCAVG, WTAVG, AIRM, ALFA0, ALFA2, ALFA3, GAS, & AEROSOL, GASWDEP, AERWDEP, HPWDEP, BETASO4, COSZ, & FRACTR, FRACPOA, FRACPRI, FRACSOA ) INTEGER, INTENT( IN ) :: JDATE ! current model date, coded YYYYDDD INTEGER, INTENT( IN ) :: JTIME ! current model time, coded HHMMSS REAL, INTENT( IN ) :: AIRM ! total air mass in cloudy layers (mol/m2) REAL, INTENT( IN ) :: ALFA0 ! scav coef for aitken aerosol number REAL, INTENT( IN ) :: ALFA2 ! scav coef for aitken aerosol sfc area REAL, INTENT( IN ) :: ALFA3 ! scav coef for aitken aerosol mass REAL, INTENT( OUT ) :: HPWDEP ! hydrogen wet deposition (mm mol/liter) REAL( 8 ), INTENT( OUT ) :: BETASO4 REAL, INTENT( IN ) :: PRCRATE ! precip rate (mm/hr) REAL, INTENT( IN ) :: PRES_PA ! pressure (Pa) REAL, INTENT( IN ) :: TAUCLD ! timestep for cloud (s) REAL, INTENT( IN ) :: TEMP ! temperature (K) REAL, INTENT( IN ) :: WCAVG ! liquid water content (kg/m3) REAL, INTENT( IN ) :: WTAVG ! total water content (kg/m3) REAL( 8 ), INTENT( INOUT ) :: GAS ( : ) ! gas phase concentrations (mol/molV) REAL( 8 ), INTENT( INOUT ) :: AEROSOL( :,: ) ! aerosol concentrations (mol/molV) REAL( 8 ), INTENT( INOUT ) :: GASWDEP( : ) ! gas phase wet deposition array (mm mol/liter) REAL( 8 ), INTENT( INOUT ) :: AERWDEP( :,: ) ! aerosol wet deposition array (mm mol/liter) REAL( 8 ), INTENT( OUT ) :: FRACTR ! Fraction of J mode tracer scavenged from I mode REAL( 8 ), INTENT( OUT ) :: FRACPOA ! Fraction of J mode POA scavenged from I mode REAL( 8 ), INTENT( OUT ) :: FRACPRI ! Fraction of J mode PRI scavenged from I mode REAL( 8 ), INTENT( OUT ) :: FRACSOA ! Fraction of J mode SOA scavenged from I mode REAL, INTENT( IN ) :: COSZ ! cosine solar zenith angle END SUBROUTINE AQCHEM END INTERFACE C----------------------------------------------------------------------- C...Initialization C... event-statistics variables. IF ( FIRSTIME ) THEN FIRSTIME = .FALSE. CALL AQ_DATA_INIT() ALLOCATE ( GAS ( NGAS ), & GASWDEP( NGAS ), & AEROSOL( NAER, NMODES), & AERWDEP( NAER, NMODES), & STAT = STAT) IF (STAT .NE. 0) THEN XMSG = 'Memory allocation failure' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF #ifdef sens C... Allocate sensitivity arrays ALLOCATE ( S_HPWDEP( NPMAX ), STAT = STAT ) IF ( STAT .NE. 0 ) THEN XMSG = 'Failure allocating S_HPWDEP' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF ALLOCATE ( S_GAS( NPMAX,NGAS ), S_GASWDEP( NPMAX,NGAS ), STAT = STAT ) IF ( STAT .NE. 0 ) THEN XMSG = 'Failure allocating S_GAS or S_GASWDEP' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF ALLOCATE ( S_AEROSOL( NPMAX,NAER,NMODES ), S_AERWDEP( NPMAX,NAER,NMODES ), STAT = STAT ) IF ( STAT .NE. 0 ) THEN XMSG = 'Failure allocating S_AEROSOL or S_AERWDEP' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF #endif END IF C...for subsequent calls, check to make sure some surrogates were C... specified, otherwise there is no need to perform aqueous chemistry IF ( SIZE( CGRID2AQ_MAP ) .EQ. 0 ) THEN RETURN END IF C...load gas-phase concentrations GAS = 0.0D0 WSRGGAS = 0.0D0 GASWDEP = 0.0D0 #ifdef sens S_GAS = 0.0D0 S_GASWDEP = 0.0D0 #endif DO IGAS = 1, NGAS DO ISRG = 1, NSRGGAS( IGAS ) PNTR = CGRID2AQ_MAP( LSRGGAS( IGAS, ISRG ) ) GAS( IGAS ) = GAS( IGAS ) + REAL( POLC( PNTR ), 8 ) #ifdef sens DO NP = 1, NPMAX S_GAS( NP, IGAS ) = S_GAS( NP, IGAS ) + S_POLC ( NP, PNTR ) ENDDO #endif END DO IF ( GAS( IGAS ) .GT. 0.0D0 ) THEN DO ISRG = 1, NSRGGAS( IGAS ) PNTR = CGRID2AQ_MAP( LSRGGAS( IGAS, ISRG ) ) WSRGGAS( IGAS, ISRG ) = REAL( POLC( PNTR ), 8 ) / GAS( IGAS ) END DO ELSE DO ISRG = 1, NSRGGAS( IGAS ) WSRGGAS( IGAS, ISRG ) = 1.0D0 / REAL( NSRGGAS( IGAS ), 8 ) END DO END IF C...set background values for gases if no surrogates were specified IF ( NSRGGAS( IGAS ) .EQ. 0 ) THEN GAS( IGAS ) = REAL( SRGGAS( IGAS )%BACKGND, 8 ) * 1.0D-6 #ifdef sens DO NP =1, NPMAX S_GAS( NP, IGAS ) = 0.0D0 ENDDO #endif END IF END DO C...load aerosol concentrations AEROSOL = 0.0D0 WSRGAER = 0.0D0 AERWDEP = 0.0D0 #ifdef sens S_AEROSOL = 0.0D0 S_AERWDEP = 0.0D0 #endif DO IAER = 1, NAER DO IMODE = 1, NMODES IF ( SRGAER( IAER )%NAME( IMODE ) .NE. ' ' ) THEN AEROSOL( IAER, IMODE ) = 0.0D0 #ifdef sens DO NP =1, NPMAX S_AEROSOL( NP, IAER, IMODE ) = 0.0D0 ENDDO #endif DO ISRG = 1, NSRGAER( IAER, IMODE ) PNTR = CGRID2AQ_MAP( LSRGAER( IAER, IMODE, ISRG ) ) AEROSOL( IAER, IMODE ) = AEROSOL( IAER, IMODE ) + REAL( POLC( PNTR ), 8 ) #ifdef sens DO NP = 1, NPMAX S_AEROSOL( NP, IAER, IMODE ) = S_AEROSOL( NP, IAER, IMODE ) + S_POLC( NP, PNTR ) ENDDO #endif END DO IF ( AEROSOL( IAER, IMODE ) .GT. 0.0D0 ) THEN DO ISRG = 1, NSRGAER( IAER, IMODE ) PNTR = CGRID2AQ_MAP( LSRGAER( IAER, IMODE, ISRG ) ) WSRGAER( IAER, IMODE, ISRG ) = REAL( POLC( PNTR ), 8 ) & / REAL( AEROSOL( IAER, IMODE ), 8 ) END DO ELSE DO ISRG = 1, NSRGAER( IAER, IMODE ) WSRGAER( IAER, IMODE, ISRG ) = 1.0D0 / REAL( NSRGAER( IAER, IMODE ), 8 ) END DO END IF C...set background values for aerosols if no surrogates were specified IF ( NSRGAER( IAER, IMODE ) .EQ. 0 ) THEN IF ( SRGAER( IAER )%MOLWT .GT. 0.0 ) THEN AEROSOL( IAER, IMODE ) = REAL( SRGAER( IAER )%BACKGND * 1.0E-6 * CTHK1, 8 ) & / REAL( SRGAER( IAER )%MOLWT * AIRM, 8 ) ELSE AEROSOL( IAER, IMODE ) = REAL( SRGAER( IAER )%BACKGND * CTHK1 / AIRM, 8 ) END IF #ifdef sens DO NP = 1, NPMAX S_AEROSOL( NP, IAER, IMODE ) = 0.0D0 ENDDO #endif END IF END IF END DO END DO C *** extract grid cell concentrations of aero species from CGRID C into aerospc_conc in aero_data module #ifdef sens CALL EXTRACT_AERO ( POLC, .FALSE., REAL(S_POLC,4), .TRUE. ) #else CALL EXTRACT_AERO ( POLC, .FALSE. ) #endif C *** Calculate pseudo aerosol 3rd moment (ignore factors that cancel in the division) C ... M3OLD is in units of m3/kmol_air M3OLD = 0.0 Dens_wmean_old = 0.0 DO IMODE = 2, N_MODE DO SPC = 1, N_AEROSPC IF ( AEROSPC( SPC )%TRACER ) CYCLE IF ( ( AEROSPC( SPC )%NAME( IMODE ) .NE. ' ' ) .AND. & ( .NOT. AEROSPC( SPC )%NO_M2WET ) ) THEN M3OLD( IMODE ) = M3OLD( IMODE ) & + ( AEROSPC_CONC( SPC,IMODE ) * AEROSPC_MW( SPC ) & / AEROSPC( SPC )%DENSITY ) Dens_wmean_old( IMODE ) = Dens_wmean_old( IMODE ) & + AEROSPC_CONC( SPC,IMODE ) * AEROSPC_MW( SPC ) END IF END DO END DO Dens_wmean_old(2:N_MODE) = Dens_wmean_old(2:N_MODE) / M3OLD(2:N_MODE) C...perform aqueous-phase chemistry calculations CALL AQCHEM ( JDATE, JTIME, TBARC, PBARC, TAUCLD, PRATE1, & WCBAR, WTBAR, AIRM, ALFA0, ALFA2, ALFA3, GAS, & AEROSOL, GASWDEP, AERWDEP, HPWDEP, BETASO4, COSZ, & FRACTR, FRACPOA, FRACPRI, FRACSOA ) C... compute the scavenging coefficient EALFA2T = EXP( -ALFA2 * TAUCLD ) C...store the amount of hydrogen deposition REMOVAC = HPWDEP #ifdef sens DO NP = 1, NPMAX S_REMOVAC( NP ) = S_HPWDEP( NP ) END DO #endif C...Now, re-apportion mass back into cend/remov (cgrid-type) array DO IGAS = 1, NGAS DO ISRG = 1, NSRGGAS( IGAS ) PNTR = CGRID2AQ_MAP( LSRGGAS( IGAS, ISRG ) ) CEND ( PNTR ) = GAS ( IGAS ) * WSRGGAS( IGAS, ISRG ) REMOV( PNTR ) = GASWDEP( IGAS ) * WSRGGAS( IGAS, ISRG ) #ifdef sens DO NP = 1, NPMAX S_CEND ( NP, PNTR ) = S_GAS ( NP, IGAS ) * WSRGGAS( IGAS, ISRG ) S_REMOV( NP, PNTR ) = S_GASWDEP( NP, IGAS ) * WSRGGAS( IGAS, ISRG ) ENDDO #endif END DO END DO DO IAER = 1, NAER DO IMODE = 1, NMODES IF(IAER .eq. LTRACER_ACC) THEN IAERI = LTRACER_AKN ELSE IAERI = IAER END IF IF( SRGAER( IAER )%NAME( IMODE ) .NE. ' ' ) THEN DO ISRG = 1, NSRGAER( IAER, IMODE ) PNTR = CGRID2AQ_MAP( LSRGAER( IAER, IMODE, ISRG ) ) CEND ( PNTR ) = AEROSOL( IAER, IMODE ) * WSRGAER( IAER, IMODE, ISRG ) REMOV( PNTR ) = AERWDEP( IAER, IMODE ) * WSRGAER( IAER, IMODE, ISRG ) #ifdef sens DO NP = 1, NPMAX S_CEND ( NP, PNTR ) = S_AEROSOL( NP, IAER, IMODE ) * WSRGAER( IAER, IMODE, ISRG ) S_REMOV( NP, PNTR ) = S_AERWDEP( NP, IAER, IMODE ) * WSRGAER( IAER, IMODE, ISRG ) ENDDO #endif IF( IMODE .EQ. 2 ) THEN IF( IAER .EQ. LPOA ) THEN IF( AKNSRG( IAER,ISRG ) .GT. 0 ) THEN CEND ( PNTR ) = (1.d0 - FRACPOA) * AEROSOL( IAER, IMODE ) * & WSRGAER( IAER, IMODE, ISRG ) + FRACPOA * & AEROSOL( IAER, IMODE ) * WSRGAER( IAERI, 1, AKNSRG(IAER,ISRG) ) REMOV( PNTR ) = (1.d0 - FRACPOA) * AERWDEP( IAER, IMODE ) * & WSRGAER( IAER, IMODE, ISRG ) + FRACPOA * & AERWDEP( IAER, IMODE ) * WSRGAER( IAERI, 1, AKNSRG(IAER,ISRG) ) #ifdef sens DO NP = 1, NPMAX S_CEND ( NP, PNTR ) = (1.d0 - FRACPOA) * S_AEROSOL( NP, IAER, IMODE ) * & WSRGAER( IAER, IMODE, ISRG ) + FRACPOA * & S_AEROSOL( NP, IAER, IMODE ) * WSRGAER( IAERI, 1, AKNSRG(IAER,ISRG) ) S_REMOV( NP, PNTR ) = (1.d0 - FRACPOA) * S_AERWDEP( NP, IAER, IMODE ) * & WSRGAER( IAER, IMODE, ISRG ) + FRACPOA * & S_AERWDEP( NP, IAER, IMODE ) * WSRGAER( IAERI, 1, AKNSRG(IAER,ISRG) ) ENDDO #endif ELSE CEND ( PNTR ) = (1.d0 - FRACPOA) * AEROSOL( IAER, IMODE ) * & WSRGAER( IAER, IMODE, ISRG ) REMOV( PNTR ) = (1.d0 - FRACPOA) * AERWDEP( IAER, IMODE ) * & WSRGAER( IAER, IMODE, ISRG ) #ifdef sens DO NP = 1, NPMAX S_CEND ( NP, PNTR ) = (1.d0 - FRACPOA) * S_AEROSOL( NP, IAER, IMODE ) * & WSRGAER( IAER, IMODE, ISRG ) S_REMOV( NP, PNTR ) = (1.d0 - FRACPOA) * S_AERWDEP( NP, IAER, IMODE ) * & WSRGAER( IAER, IMODE, ISRG ) END DO #endif END IF ELSE IF ( IAER .EQ. LPRI ) THEN IF(AKNSRG(IAER,ISRG) .GT. 0) THEN CEND ( PNTR ) = (1.d0 - FRACPRI) * AEROSOL( IAER, IMODE ) * & WSRGAER( IAER, IMODE, ISRG ) + FRACPRI * & AEROSOL( IAER, IMODE ) * WSRGAER( IAERI, 1, AKNSRG(IAER,ISRG) ) REMOV( PNTR ) = (1.d0 - FRACPRI) * AERWDEP( IAER, IMODE ) * & WSRGAER( IAER, IMODE, ISRG ) + FRACPRI * & AERWDEP( IAER, IMODE ) * WSRGAER( IAERI, 1, AKNSRG(IAER,ISRG) ) #ifdef sens DO NP = 1, NPMAX S_CEND ( NP, PNTR ) = (1.d0 - FRACPRI) * S_AEROSOL( NP, IAER, IMODE ) * & WSRGAER( IAER, IMODE, ISRG ) + FRACPRI * & S_AEROSOL( NP, IAER, IMODE ) * WSRGAER( IAERI, 1, AKNSRG(IAER,ISRG) ) S_REMOV( NP, PNTR ) = (1.d0 - FRACPRI) * S_AERWDEP( NP, IAER, IMODE ) * & WSRGAER( IAER, IMODE, ISRG ) + FRACPRI * & S_AERWDEP( NP, IAER, IMODE ) * WSRGAER( IAERI, 1, AKNSRG(IAER,ISRG) ) END DO #endif ELSE CEND ( PNTR ) = (1.d0 - FRACPRI) * AEROSOL( IAER, IMODE ) * & WSRGAER( IAER, IMODE, ISRG ) REMOV( PNTR ) = (1.d0 - FRACPRI) * AERWDEP( IAER, IMODE ) * & WSRGAER( IAER, IMODE, ISRG ) #ifdef sens DO NP = 1, NPMAX S_CEND ( NP, PNTR ) = (1.d0 - FRACPRI) * S_AEROSOL( NP, IAER, IMODE ) * & WSRGAER( IAER, IMODE, ISRG ) S_REMOV( NP, PNTR ) = (1.d0 - FRACPRI) * S_AERWDEP( NP, IAER, IMODE ) * & WSRGAER( IAER, IMODE, ISRG ) END DO #endif END IF ELSE IF ( IAER .EQ. LTRACER_ACC ) THEN IF(AKNSRG(IAER,ISRG) .GT. 0) THEN CEND ( PNTR ) = (1.d0 - FRACTR) * AEROSOL( IAER, IMODE ) * & WSRGAER( IAER, IMODE, ISRG ) + FRACTR * & AEROSOL( IAER, IMODE ) * WSRGAER( IAERI, 1, AKNSRG(IAER,ISRG) ) REMOV( PNTR ) = (1.d0 - FRACTR) * AERWDEP( IAER, IMODE ) * & WSRGAER( IAER, IMODE, ISRG ) + FRACTR * & AERWDEP( IAER, IMODE ) * WSRGAER( IAERI, 1, AKNSRG(IAER,ISRG) ) #ifdef sens DO NP = 1, NPMAX S_CEND ( NP, PNTR ) = (1.d0 - FRACTR) * S_AEROSOL( NP, IAER, IMODE ) * & WSRGAER( IAER, IMODE, ISRG ) + FRACTR * & S_AEROSOL( NP,IAER, IMODE ) * WSRGAER( IAERI, 1, AKNSRG(IAER,ISRG) ) S_REMOV( NP, PNTR ) = (1.d0 - FRACTR) * S_AERWDEP( NP, IAER, IMODE ) * & WSRGAER( IAER, IMODE, ISRG ) + FRACTR * & S_AERWDEP( NP, IAER, IMODE ) * WSRGAER( IAERI, 1, AKNSRG(IAER,ISRG) ) END DO #endif ELSE CEND ( PNTR ) = (1.d0 - FRACTR) * AEROSOL( IAER, IMODE ) * & WSRGAER( IAER, IMODE, ISRG ) REMOV( PNTR ) = (1.d0 - FRACTR) * AERWDEP( IAER, IMODE ) * & WSRGAER( IAER, IMODE, ISRG ) #ifdef sens DO NP = 1, NPMAX S_CEND ( NP, PNTR ) = (1.d0 - FRACTR) * S_AEROSOL( NP, IAER, IMODE ) * & WSRGAER( IAER, IMODE, ISRG ) S_REMOV( NP,PNTR ) = (1.d0 - FRACTR) * S_AERWDEP( NP, IAER, IMODE ) * & WSRGAER( IAER, IMODE, ISRG ) END DO #endif END IF ELSE IF ( IAER .EQ. LSOA ) THEN IF(AKNSRG(IAER,ISRG) .GT. 0) THEN CEND ( PNTR ) = (1.d0 - FRACSOA) * AEROSOL( IAER, IMODE ) * & WSRGAER( IAER, IMODE, ISRG ) + FRACSOA * & AEROSOL( IAER, IMODE ) * WSRGAER( IAERI, 1, AKNSRG(IAER,ISRG) ) REMOV( PNTR ) = (1.d0 - FRACSOA) * AERWDEP( IAER, IMODE ) * & WSRGAER( IAER, IMODE, ISRG ) + FRACSOA * & AERWDEP( IAER, IMODE ) * WSRGAER( IAERI, 1, AKNSRG(IAER,ISRG) ) #ifdef sens DO NP = 1, NPMAX S_CEND ( NP,PNTR ) = (1.d0 - FRACSOA) * S_AEROSOL( NP, IAER, IMODE ) * & WSRGAER( IAER, IMODE, ISRG ) + FRACSOA * & S_AEROSOL( NP, IAER, IMODE ) * WSRGAER( IAERI, 1, AKNSRG(IAER,ISRG) ) S_REMOV( NP,PNTR ) = (1.d0 - FRACSOA) * S_AERWDEP( NP, IAER, IMODE ) * & WSRGAER( IAER, IMODE, ISRG ) + FRACSOA * & S_AERWDEP( NP, IAER, IMODE ) * WSRGAER( IAERI, 1, AKNSRG(IAER,ISRG) ) END DO #endif ELSE CEND ( PNTR ) = (1.d0 - FRACSOA) * AEROSOL( IAER, IMODE ) * & WSRGAER( IAER, IMODE, ISRG ) REMOV( PNTR ) = (1.d0 - FRACSOA) * AERWDEP( IAER, IMODE ) * & WSRGAER( IAER, IMODE, ISRG ) #ifdef sens DO NP = 1, NPMAX S_CEND ( NP, PNTR ) = (1.d0 - FRACSOA) * S_AEROSOL( NP, IAER, IMODE ) * & WSRGAER( IAER, IMODE, ISRG ) S_REMOV( NP, PNTR ) = (1.d0 - FRACSOA) * S_AERWDEP( NP, IAER, IMODE ) * & WSRGAER( IAER, IMODE, ISRG ) END DO #endif END IF END IF END IF cifdef sens c DO NP = 1, NPMAX c S_CEND ( NP, PNTR ) = S_AEROSOL( NP, IAER, IMODE ) * WSRGAER( IAER, IMODE, ISRG ) c S_REMOV( NP, PNTR ) = S_AERWDEP( NP, IAER, IMODE ) * WSRGAER( IAER, IMODE, ISRG ) c ENDDO cendif END DO END IF END DO END DO C *** extract grid cell concentrations of aero species from CGRID C into aerospc_conc in aero_data module #ifdef sens CALL EXTRACT_AERO ( CEND, .FALSE., REAL(S_CEND,4), .TRUE. ) #else CALL EXTRACT_AERO ( CEND, .FALSE. ) #endif C *** Calculate pseudo aerosol 3rd moment (ignore factors that cancel in the division) C ... M3NEW is in units of m3/kmol_air M3NEW = 0.0 Dens_wmean_new = 0.0 DO IMODE = 2, NMODES DO SPC = 1, N_AEROSPC IF ( AEROSPC( SPC )%TRACER ) CYCLE IF ( ( AEROSPC( SPC )%NAME( IMODE ) .NE. ' ' ) .AND. & ( .NOT. AEROSPC( SPC )%NO_M2WET ) ) THEN M3NEW( IMODE ) = M3NEW( IMODE ) & + ( AEROSPC_CONC( SPC,IMODE ) * AEROSPC_MW( SPC ) & / AEROSPC( SPC )%DENSITY ) Dens_wmean_new( IMODE ) = Dens_wmean_new( IMODE ) & + AEROSPC_CONC( SPC,IMODE ) * AEROSPC_MW( SPC ) END IF END DO END DO C...Update aerosol number CEND( AERONUM_MAP( 1 ) ) = MAX( CEND( AERONUM_MAP( 1 ) ), aeromode_minNum( 1 )/ (AIRM/CTHK1) ) CEND( AERONUM_MAP( 2 ) ) = MAX( CEND( AERONUM_MAP( 2 ) ), aeromode_minNum( 2 )/ (AIRM/CTHK1) ) CEND( AERONUM_MAP( 3 ) ) = MAX( CEND( AERONUM_MAP( 3 ) ), aeromode_minNum( 3 )/ (AIRM/CTHK1) ) #ifdef sens C... Remove number sensitivity calculations for now S_CEND( :, AERONUM_MAP( 1 ) ) = 0.0 S_CEND( :, AERONUM_MAP( 2 ) ) = 0.0 S_CEND( :, AERONUM_MAP( 3 ) ) = 0.0 #endif C...check for minimums C...ug/m3*m3/mol_air*1e3 mol_air/kmol_air*1e-9kg/ug*m3/kg=> m3/kmol_air DO IMODE = 2, NMODES IF ( M3NEW( IMODE ) .GT. 0.0D0 ) THEN ! Dens_wmean_new will be .GT. 0 also Dens_wmean_new( IMODE ) = Dens_wmean_new( IMODE ) / M3NEW( IMODE ) M3OLD( IMODE ) = MAX( M3OLD( IMODE ), CONMIND * 1.0d-6 / ( Dens_wmean_old( IMODE ) * AIRM / CTHK1 ) ) M3NEW( IMODE ) = MAX( M3NEW( IMODE ), CONMIND * 1.0d-6 / ( Dens_wmean_new( IMODE ) * AIRM / CTHK1 ) ) END IF END DO C...Update surface area CEND( AEROSRF_MAP( 1 ) ) = POLC( AEROSRF_MAP( 1 ) ) * EALFA2T CEND( AEROSRF_MAP( 1 ) ) = MAX( CEND( AEROSRF_MAP( 1 ) ), aeromode_minM2( 1 ) * PI / (AIRM/CTHK1) ) CEND( AEROSRF_MAP( 2 ) ) = POLC( AEROSRF_MAP( 2 ) ) & * EXP( -BETASO4 * TAUCLD * ONETHIRD ) & * ( M3NEW( 2 ) / M3OLD( 2 ) ) ** TWOTHIRDS CEND( AEROSRF_MAP( 2 ) ) = MAX( CEND( AEROSRF_MAP( 2 ) ), aeromode_minM2( 2 ) * PI / (AIRM/CTHK1) ) CEND( AEROSRF_MAP( 3 ) ) = POLC( AEROSRF_MAP( 3 ) ) & * ( CEND( AERONUM_MAP( 3 ) ) & / POLC( AERONUM_MAP( 3 ) ) ) ** ONETHIRD & * ( M3NEW( 3 ) / M3OLD( 3 ) ) ** TWOTHIRDS CEND( AEROSRF_MAP( 3 ) ) = MAX( CEND( AEROSRF_MAP( 3 ) ), aeromode_minM2( 3 ) * PI / (AIRM/CTHK1) ) #ifdef sens C... Remove surface area sensitivity calculations for now S_CEND( :, AEROSRF_MAP( 1 ) ) = 0.0 S_CEND( :, AEROSRF_MAP( 2 ) ) = 0.0 S_CEND( :, AEROSRF_MAP( 3 ) ) = 0.0 #endif RETURN END ================================================ FILE: CCTM/src/cloud/acm_ae6/aqchem.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE AQCHEM ( JDATE, JTIME, TEMP, PRES_PA, TAUCLD, PRCRATE, & WCAVG, WTAVG, AIRM, ALFA0, ALFA2, ALFA3, GAS, & AEROSOL, GASWDEP, AERWDEP, HPWDEP, BETASO4, COSZ, & FRACTR, FRACPOA, FRACPRI, FRACSOA ) C----------------------------------------------------------------------- C Description: C Compute concentration changes in cloud due to aqueous chemistry, C scavenging and wet deposition amounts. C C Revision History: C No Date Who What C -- -------- --- ----------------------------------------- C 0 / /86 CW BEGIN PROGRAM - Walceks's Original Code C 1 / /86 RB INCORPORATE INTO RADM C 2 03/23/87 DH REFORMAT C 3 04/11/88 SJR STREAMLINED CODE - ADDED COMMENTS C 4 08/27/88 SJR COMMENTS, MODIFIED FOR RPM C 4a 03/15/96 FSB Scanned hard copy to develop Models3 C Version. C 5 04/24/96 FSB Made into Models3 Format C 6 02/18/97 SJR Revisions to link with Models3 C 7 08/12/97 SJR Revised for new concentration units (moles/mole) C and new treatment of nitrate and nitric acid C 8 01/15/98 sjr revised to add new aitken mode scavenging C and aerosol number scavenging C 9 12/15/98 David Wong at LM: C -- change division of XL, TEMP to multiplication of XL, TEMP C reciprocal, respectively C -- change / TOTOX / TSIV to / ( TOTOX * TSIV ) C 10 03/18/99 David Wong at LM: C -- removed "* 1.0" redundant calculation at TEMP1 calculation C 11 04/27/00 sjr Added aerosol surface area as modeled species C 12 12/02 sjr changed calls to HLCONST and updated the dissociation C constants C 13 06/26/03 sjr revised calculations of DTW based on CMAS website C discussions C 14 08/05/03 sjr revision made to the coarse aerosol number washout C 15 04/20/05 us revisions to add sea salt species in the fine and C coarse aerosol modes, and HCl dissolution/dissociation C 08/01/05 sjr Modified for sulfate tracking model C 16 10/13/05 sjr fixed bug in the integration time step calculation C (reported by Bonyoung Koo) C 17 03/01/06 sjr added elemental carbon aerosol; organic aerosols C replaced with primary, secondary biogenic, and C secondary anthropogenic; fixed 3rd moment calc to C include EC and primary organics (not secondary); C re-arranged logic for setting Cl & Na ending conc; C added pointers/indirect addressing for arrays WETDEP C and LIQUID C 16 03/30/07 sjr Limit integration timestep by cloud washout time C 17 04/10/07 sjr increased loop limits as follows: I20C <10000, C I7777C <10000, I30C <10000, ICNTAQ <60000 C 18 01/10/07 agc added organic chemistry for GLY and MGLY oxidation C 19 09/10/07 sln updated SOA species list for AE5 C 20 01/29/08 agc updated DOHDT calculation C 21 04/14/08 jtk added coding for coarse NH4 and scavenging of c coarse surface area C 22 05/20/08 agc for CB05, use the Henry's Law constant for glyoxal C as a surrogate for methyl glyoxal C 23 04/15/09 sjr& Several changes made to improve mass conservation in the C agc solver. (1) OH concentration is now considered to be C steady state; (2) only allow sulfur oxidation to affect C time step; (3) implemented mass conservation checks - C limit oxidation rates by the available mass for the C specified timestep. C 10 Oct 10 J.Young: update to use aero_reeng by Steve Howard, Prakash Bhave, C Jeff Young, Sergey Napelenok, and Shawn Roselle C 01 Mar 11 S.Roselle: replaced I/O API include files with UTILIO_DEFN C 9 Mar 11 S.Napelenok: update for AE6 - pH calculation now expanded to C include Ca Mg K SOIL CORS SEAS C 23 May 11 G.Sarwar: update S(VI) production rate via H2O2, O3, MHP, PAA C pathways (Jacobson 1997) C 23 May 11 G.Sarwar: update S(VI) production rate via O2 pathway (metal C catalysis) (Martin and Goodman, 1991) C 01 Jul 11 G.Sarwar: Incorporate day and night dependent Fe III oxidation C state (Alexander et al., 2009) C 12 Aug 11 G.Sarwar: Revise Fe and Mn solubility based on C Alexander et al., 2009 C C 8 Mar 12 J.Bash: FE_OX and MN_OX were calculated from FE and MN before C a floor value of 0.0 was established for these C concentrations sometimes resulting in negative C concentrations and model crashes. The code used to C estimate FE_OX and MN_OX was moved to be after a floor C value for FE and MN was set. Also the washout rate was C removed from the calculation of the estimate for doubling C the time step based on sulfur oxidized < 5%. C 28 Nov 12 G.Sarwar: Sulfate inhibition effect is implemented in the metal catalysis pathway C 07 Jul 14 B.Hutzell: replaced mechanism include file(s) with fortran module C 12 Feb 15 B.Hutzell: reduced number of exp(...) calculations for scavenging aitken C aerosols to improve efficiency C 15 Jun 15 J.Young: Fixed bug found by Martin Otte in calculations for scavenging C aitken aerosols C 15 Apr 16 J.Young: Use aerosol factors from AERO_DATA module named constants C 19 Apr 18 K.Fahey: For species with both gas phase and coarse mode aerosol components, avoid C introducing extra mass when the coarse mode concentration is greater than C the total amount left in the aqueous phase after redistribution between the C phases. C 26 Nov 18 S.Napelenok: ISAM implementation C 31 Dec 19 S.Napelenok: DDM-3D implementation for version 5.3.1 C C References: C Walcek & Taylor, 1986, A theoretical Method for computing C vertical distributions of acidity and sulfate within cumulus C clouds, J. Atmos Sci., Vol. 43, no. 4 pp 339 - 355 C Carlton, A.G., B.J. Turpin, K.E. Altieri, S.P. Seitzinger, R. Mathur, C S.J. Roselle, and R.J. Weber, CMAQ Model Performance Enhanced When C In-Cloud Secondary Organic Aerosol is Included: Comparison of Organic C Carbon Predictions with Measurements, Environ. Sci. Technol., 42(23), C 8798-8802, 2008. C Jacobson, M., Development and application of a new air pollution modeling C system II. Aerosol module structure and design, Atmospheric C Environment, 31, 131-144, 1997 C Martin, R.L. and T.W. Good, catalyzed oxidation of sulfur dioxide in C solution: the iron-manganese synercism, Atmospheric Environment, 25A, C 2395-2399, 1991 C Alexander, B., R.J. Park, D.J. jacob, S. Gong, Transition metal-catalyzed C oxidation of atmospheric sulfur: global implications for the sulfur C budget, GRL, 114, D02309, 2009 C Called by: AQMAP C Calls the following subroutines: none C Calls the following functions: HLCONST C Arguments Type I/O Description C --------- ---- ------------ -------------------------------- C GAS(ngas) real input&output Concentration for species i=1,15 C GASWDEP(ngas) real output wet deposition for species C AEROSOL(naer,nmodes) real input&output Concentration for species i=1,51 C AERWDEP(naer,nmodes) real output wet deposition for species C----------------------------------------------------------------------- USE RXNS_DATA ! chemical mechanism data USE AQ_DATA ! doesn't inherit; gets only n_aerospc, conmin from AERO_DATA USE AERO_DATA USE UTILIO_DEFN #ifdef isam USE SA_DEFN, ONLY: DEPSUM_SAVE, DS4_SAVE, REMOV_SAVE, & DEPSUM_AORGC_SAVE, DGLY1_SAVE, DMGLY1_SAVE, & REMOV_AORGC_SAVE #endif #ifdef sens USE DDM3D_DEFN, ONLY : NP, NPMAX, S_POLC, S_CEND, S_REMOV, & S_REMOVAC, S_HPWDEP, S_GAS, S_GASWDEP, & S_AEROSOL, S_AERWDEP, IHIGH, IPT #endif IMPLICIT NONE INCLUDE SUBST_CONST ! constants CHARACTER( 120 ) :: XMSG = ' ' ! Exit status message C...........Parameters: INTEGER, PARAMETER :: NUMOX = 5 ! number of oxidation reactions REAL( 8 ), PARAMETER :: H2ODENS = 1000.0D0 ! water density at 20 C and 1 ATM (kg/m3) REAL( 8 ), PARAMETER :: SEC2HR = 1.0D0 / 3600.0D0 ! convert seconds to hours REAL( 8 ), PARAMETER :: SCVEFF = 100.0D0 ! Scavenging efficiency (%) C...........Arguments: INTEGER, INTENT( IN ) :: JDATE ! current model date, coded YYYYDDD INTEGER, INTENT( IN ) :: JTIME ! current model time, coded HHMMSS REAL, INTENT( IN ) :: AIRM ! total air mass in cloudy layers (mol/m2) REAL, INTENT( IN ) :: ALFA0 ! scav coef for aitken aerosol number REAL, INTENT( IN ) :: ALFA2 ! scav coef for aitken aerosol sfc area REAL, INTENT( IN ) :: ALFA3 ! scav coef for aitken aerosol mass REAL, INTENT( OUT ) :: HPWDEP ! hydrogen wet deposition (mm mol/liter) REAL( 8 ), INTENT( OUT ) :: BETASO4 REAL, INTENT( IN ) :: PRCRATE ! precip rate (mm/hr) REAL, INTENT( IN ) :: PRES_PA ! pressure (Pa) REAL, INTENT( IN ) :: TAUCLD ! timestep for cloud (s) REAL, INTENT( IN ) :: TEMP ! temperature (K) REAL, INTENT( IN ) :: WCAVG ! liquid water content (kg/m3) REAL, INTENT( IN ) :: WTAVG ! total water content (kg/m3) REAL( 8 ), INTENT( INOUT ) :: GAS ( : ) ! gas phase concentrations (mol/molV) REAL( 8 ), INTENT( INOUT ) :: AEROSOL( :,: ) ! aerosol concentrations (mol/molV) REAL( 8 ), INTENT( INOUT ) :: GASWDEP( : ) ! gas phase wet deposition array (mm mol/liter) REAL( 8 ), INTENT( INOUT ) :: AERWDEP( :,: ) ! aerosol wet deposition array (mm mol/liter) REAL, INTENT( IN ) :: COSZ ! cosine solar zenith angle REAL( 8 ), INTENT( OUT ) :: FRACTR ! Fraction of J mode tracer scavenged from I mode REAL( 8 ), INTENT( OUT ) :: FRACPOA ! Fraction of J mode poa scavenged from I mode REAL( 8 ), INTENT( OUT ) :: FRACPRI ! Fraction of J mode pri scavenged from I mode REAL( 8 ), INTENT( OUT ) :: FRACSOA ! Fraction of J mode soa scavenged from I mode C...........Local Variables (scalars): LOGICAL, SAVE :: FIRSTIME = .TRUE. ! flag for first pass thru LOGICAL :: DARK CHARACTER( 16 ), SAVE :: PNAME = 'AQCHEM' ! driver program name CHARACTER( 16 ), SAVE :: MGLYSUR = 'METHYL_GLYOXAL ' ! Henry's law surrogate for MGLY INTEGER ISPC ! loop counter for species INTEGER I20C ! loop counter for do loop 20 INTEGER I30C ! loop counter for do loop 30 INTEGER ITERAT ! # iterations of aqueous chemistry solver INTEGER I7777C ! aqueous chem iteration counter INTEGER ICNTAQ ! aqueous chem iteration counter INTEGER LIQ ! loop counter for liquid species INTEGER IGAS ! loop counter for gas species INTEGER IOX ! index over oxidation reactions REAL( 8 ) :: DEPSUM REAL( 8 ) :: A ! iron's anion concentration REAL( 8 ) :: HPLUS ! H+ concentration in cloudwater (mol/liter) REAL( 8 ) :: ACT1 ! activity correction factor, single ions REAL( 8 ) :: ACT2 ! activity factor correction, double ions REAL( 8 ) :: ACTB ! REAL( 8 ) :: AE ! guess for H+ conc in cloudwater (mol/liter) REAL( 8 ) :: B ! manganese's anion concentration REAL( 8 ) :: PRES_ATM ! pressure (Atm) REAL( 8 ) :: BB ! lower limit guess of cloudwater pH REAL( 8 ) :: CA ! Calcium conc in cloudwater (mol/liter) REAL( 8 ) :: CL ! total Cl- conc in cloudwater (mol/liter) REAL( 8 ) :: CLACC ! fine Cl- in cloudwater (mol/liter) REAL( 8 ) :: CLCOR ! coarse Cl- conc in cloudwater (mol/liter) REAL( 8 ) :: CO2H ! Henry's Law constant for CO2 REAL( 8 ) :: CO21 ! First dissociation constant for CO2 REAL( 8 ) :: CO22 ! Second dissociation constant for CO2 REAL( 8 ) :: CO212 ! CO21*CO22 REAL( 8 ) :: CO212H ! CO2H*CO21*CO22 REAL( 8 ) :: CO21H ! CO2H*CO21 REAL( 8 ) :: CO2L ! CO2 conc in cloudwater (mol/liter) REAL( 8 ) :: CO3 ! CO3= conc in cloudwater (mol/liter) REAL( 8 ) :: CTHK1 ! cloud thickness (m) REAL( 8 ) :: DSIV_SCALE ! mass conservation scale factor for S(IV) REAL( 8 ) :: DTRMV ! REAL( 8 ) :: DTS6 ! REAL( 8 ) :: DGLYDT ! change in GLY (mol/liter/sec) REAL( 8 ) :: DMGLYDT ! change in MGLY (mol/liter/sec) ! REAL( 8 ) :: DOHDT ! change in OH REAL( 8 ) :: DGLY1 ! change due to Rxn. in GLY for DTW(0) time step REAL( 8 ) :: DMGLY1 ! change due to Rxn. in MGLY for DTW(0) time step ! REAL( 8 ) :: DOH1 ! change in OH for DTW(0) time step REAL( 8 ) :: DORGC ! change in ORGC for DTW(0) time step (mol/liter) REAL( 8 ) :: EBETASO4T ! EXP( -BETASO4 * TAUCLD ) REAL( 8 ) :: EALFA0T ! EXP( -ALFA0 * TAUCLD ) REAL( 8 ) :: EALFA2T ! EXP( -ALFA2 * TAUCLD ) REAL( 8 ) :: EALFA3T ! EXP( -ALFA3 * TAUCLD ) REAL( 8 ) :: EC ! elemental carbon acc+akn aerosol in cloudwater (mol/liter) REAL( 8 ) :: FA ! functional value ?? REAL( 8 ) :: FB ! functional value ?? REAL( 8 ) :: FCLCOR ! frac weight of coarse CL to (acc+coarse) CL REAL( 8 ) :: FE ! Fe+++ conc in cloudwater (mol/liter) REAL( 8 ) :: FHNO3 ! frac weight of HNO3 to total NO3 REAL( 8 ) :: FNH3 ! frac weight of NH3 to total ammonia REAL( 8 ) :: FNH4ACC ! frac weight of NH4 acc to total ammonia REAL( 8 ) :: FNH4COR ! frac weight of coarse NH4 to (acc+coarse) NH4 REAL( 8 ) :: FNO3ACC ! frac weight of NO3 acc to total NO3 REAL( 8 ) :: FNO3COR ! frac weight of coarse NO3 to (acc+coarse) NO3 REAL( 8 ) :: FRACLIQ ! fraction of water in liquid form REAL( 8 ) :: FOA1 ! First dissociation constant for FOA (Formic Acid) REAL( 8 ) :: FOAH ! Henry's Law constant for FOA REAL( 8 ) :: FOA1H ! FOAH*FOA1 REAL( 8 ) :: FOAL ! FOA conc in cloudwater (mol/liter) REAL( 8 ) :: FTST ! REAL( 8 ) :: GLYH ! Henry's Law constant for glyoxal REAL( 8 ) :: GLYL ! glyoxal conc in cloud water (mol/liter) REAL( 8 ) :: GM ! REAL( 8 ) :: GM1 ! REAL( 8 ) :: GM1LOG ! REAL( 8 ) :: GM2 ! activity correction factor REAL( 8 ) :: GM2LOG ! REAL( 8 ) :: HA ! REAL( 8 ) :: HB ! REAL( 8 ) :: H2OW ! REAL( 8 ) :: H2O2H ! Henry's Law Constant for H2O2 REAL( 8 ) :: H2O2L ! H2O2 conc in cloudwater (mol/liter) REAL( 8 ) :: HCLH ! Henry's Law Constant for HCL REAL( 8 ) :: HCL1 ! First dissociation constant for HCL REAL( 8 ) :: HCL1H ! HCL1*HCLH REAL( 8 ) :: HCLL ! HCl conc in cloudwater (mol/liter) REAL( 8 ) :: HCO2 ! HCO2 conc in cloudwater (mol/liter) REAL( 8 ) :: HCO3 ! HCO3 conc in cloudwater (mol/liter) REAL( 8 ) :: HNO3H ! Henry's Law Constant for HNO3 REAL( 8 ) :: HNO31 ! First dissociation constant for HNO3 REAL( 8 ) :: HNO31H ! REAL( 8 ) :: HNO3L ! HNO3 conc in cloudwater (mol/liter) REAL( 8 ) :: HOH ! Henry's Law Constant for HO REAL( 8 ) :: HSO3 ! HSO3 conc in cloudwater (mol/liter) REAL( 8 ) :: HSO4 ! HSO4 concn in cloudwater (mol/liter) REAL( 8 ) :: HSO4ACC ! accumulation mode HSO4 concn in cloudwater (mol/liter) REAL( 8 ) :: HSO4COR ! coarse HSO4 concn in cloudwater (mol/liter) REAL( 8 ) :: HTST ! REAL( 8 ) :: K ! K conc in cloudwater (mol/liter) !REAL( 8 ) :: LGTEMP ! log of TEMP REAL( 8 ) :: MG ! REAL( 8 ) :: MGLYH ! Henry's Law Constant for methylglyoxal REAL( 8 ) :: MGLYL ! MGLY conc in cloud water (mol/liter) REAL( 8 ) :: MHPH ! Henry's Law Constant for MHP REAL( 8 ) :: MHPL ! MHP conc in cloudwater (mol/liter) REAL( 8 ) :: MN ! Mn++ conc in cloudwater (mol/liter) REAL( 8 ) :: NA ! Na conc in cloudwater (mol/liter) REAL( 8 ) :: NAACC ! Na in cloudwater (mol/liter) REAL( 8 ) :: NACOR ! coarse Na in cloudwater (mol/liter) REAL( 8 ) :: NH31 ! First dissociation constant for NH3 REAL( 8 ) :: NH3H ! Henry's Law Constant for NH3 REAL( 8 ) :: NH3DH20 ! REAL( 8 ) :: NH31HDH ! REAL( 8 ) :: NH3L ! NH3 conc in cloudwater (mol/liter) REAL( 8 ) :: NH4 ! NH4+ conc in cloudwater (mol/liter) REAL( 8 ) :: NH4ACC ! NH4 acc conc in cloudwater (mol/liter) REAL( 8 ) :: NH4COR ! NH4 coarse conc in cloudwater (mol/liter) !REAL( 8 ) :: NITAER ! total aerosol nitrate REAL( 8 ) :: NO3 ! NO3 conc in cloudwater (mol/liter) REAL( 8 ) :: NO3ACC ! NO3 acc conc in cloudwater (mol/liter) REAL( 8 ) :: NO3COR ! NO3 coarse conc in cloudwater (mol/liter) REAL( 8 ) :: NUMCOR ! coarse aerosol number in cloudwater (mol/liter) REAL( 8 ) :: O3H ! Henry's Law Constant for O3 REAL( 8 ) :: O3L ! O3 conc in cloudwater (mol/liter) REAL( 8 ) :: OH ! OH conc in cloudwater (mol/liter) REAL( 8 ) :: OHL ! OH radical conc in cloudwater (mol/liter) REAL( 8 ) :: SOA ! secondary organic aerosol in cloudwater (mol/liter) REAL( 8 ) :: ORGC ! cloud-produced SOA in cloudwater (treated as primary) REAL( 8 ) :: POA ! primary organic aerosol in cloudwater (mol/liter) REAL( 8 ) :: PAAH ! Henry's Law Constant for PAA REAL( 8 ) :: PAAL ! PAA conc in cloudwater (mol/liter) REAL( 8 ) :: PCO2F ! gas only CO2 partial pressure (atm) REAL( 8 ) :: PFOAF ! gas only ORGANIC ACID partial press (atm) REAL( 8 ) :: PGLYF ! gas only GLY partial pressure (atm) REAL( 8 ) :: PH2O2F ! gas only H2O2 partial pressure (atm) REAL( 8 ) :: PHCLF ! gas only HCL partial pressure (atm) REAL( 8 ) :: PHNO3F ! gas only HNO3 partial pressure (atm) REAL( 8 ) :: PHOF ! gas only HO partial pressure (atm) REAL( 8 ) :: PMGLYF ! gas only MGLY parital pressure (atm) REAL( 8 ) :: PMHPF ! gas only MHP partial pressure (atm) REAL( 8 ) :: PNH3F ! gas only NH3 partial pressure (atm) REAL( 8 ) :: PO3F ! gas only O3 partial pressure (atm) REAL( 8 ) :: PPAAF ! gas only PAA partial pressure (atm) REAL( 8 ) :: PRIM ! PRIMARY acc+akn aerosol in cloudwater (mol/liter) ! REAL( 8 ) :: PRIMCOR ! PRIMARY coarse aerosol in cloudwater (mol/liter) REAL( 8 ) :: PSO2F ! gas only SO2 partial pressure (atm) !REAL( 8 ) :: RATE ! REAL( 8 ) :: RECIPA1 ! REAL( 8 ) :: RECIPA2 ! REAL( 8 ) :: RECIPAP1 ! one over pressure (/atm) REAL( 8 ) :: RGLY3 ! liter/(mol sec) REAL( 8 ) :: RH2O2 ! REAL( 8 ) :: RMGLY3 ! liter/(mol sec) REAL( 8 ) :: RMHP ! REAL( 8 ) :: RPAA ! REAL( 8 ) :: RT ! gas const * temperature (liter atm/mol) REAL( 8 ) :: SIV ! dissolved so2 in cloudwater (mol/liter) REAL( 8 ) :: SK6 ! REAL( 8 ) :: SK6TS6 ! REAL( 8 ) :: SO21 ! First dissociation constant for SO2 REAL( 8 ) :: SO22 ! Second dissociation constant for SO2 REAL( 8 ) :: SO2H ! Henry's Law Constant for SO2 REAL( 8 ) :: SO212 ! SO21*SO22 REAL( 8 ) :: SO212H ! SO21*SO22*SO2H REAL( 8 ) :: SO21H ! SO21*SO2H REAL( 8 ) :: SO2L ! SO2 conc in cloudwater (mol/liter) REAL( 8 ) :: SO3 ! SO3= conc in cloudwater (mol/liter) REAL( 8 ) :: SO4 ! SO4= conc in cloudwater (mol/liter) REAL( 8 ) :: SO4ACC ! accumulation mode SO4= conc in cloudwater (mol/liter) REAL( 8 ) :: SO4COR ! coarse SO4= conc in cloudwater (mol/liter) REAL( 8 ) :: STION ! ionic strength REAL( 8 ) :: TAC ! REAL( 8 ) :: TCLa ! sum of accumulation and coarse mode chloride REAL( 8 ) :: TEMP1 ! (1/T) - (1/298) (1/K) REAL( 8 ) :: TIMEW ! cloud chemistry clock (sec) ! REAL( 8 ) :: THO ! total hydroxyl radical available for oxidation REAL( 8 ) :: TGLY ! total glyoxal available for oxidation REAL( 8 ) :: TMGLY ! total methylglyoxal available for oxidation !REAL( 8 ) :: TOTOX ! REAL( 8 ) :: TH2O2 REAL( 8 ) :: TO3 REAL( 8 ) :: TMHP REAL( 8 ) :: TNH4a ! sum of accumulation and coarse mode ammonium REAL( 8 ) :: TNO3a ! sum of accumulation and coarse mode nitrate REAL( 8 ) :: TPAA REAL( 8 ) :: TOTAMM ! total ammonium REAL( 8 ) :: TOTNIT ! total nitrate (excluding coarse mode) REAL( 8 ) :: TS6 ! SO4 conc in cloudwater (mol/liter) REAL( 8 ) :: TS6ACC ! SO4 acc conc in cloudwater (mol/liter) REAL( 8 ) :: TS6COR ! coarse SO4 conc in cloudwater (mol/liter) C...for sulfur tracking REAL( 8 ) :: TS6AQH2O2 ! SO4 conc from reaction 1 (mol/liter) REAL( 8 ) :: TS6AQO3 ! SO4 conc from reaction 2 (mol/liter) REAL( 8 ) :: TS6AQFEMN ! SO4 conc from reaction 3 (mol/liter) REAL( 8 ) :: TS6AQMHP ! SO4 conc from reaction 4 (mol/liter) REAL( 8 ) :: TS6AQPAA ! SO4 conc from reaction 5 (mol/liter) REAL( 8 ) :: TSIV ! total S(iv) available for oxidation REAL( 8 ) :: TST ! REAL( 8 ) :: TWASH ! washout time for clouds (sec) REAL( 8 ) :: WETFAC ! converts mol/l to mm-mol/l based on precip REAL( 8 ) :: XC1 ! (/mm) REAL( 8 ) :: XC2 ! (liter-atm/mol/mm) REAL( 8 ) :: XL ! conversion factor (liter-atm/mol) REAL( 8 ) :: ONE_OVER_XL ! 1.0 / XL REAL( 8 ) :: PRES_ATM_OVER_XL ! PRES_ATM / XL REAL( 8 ) :: SCAVENGED ! aitken scavenging factor by cloud water REAL( 8 ) :: XLCO2 ! REAL( 8 ) :: XLH2O2 ! REAL( 8 ) :: XLHCL ! const in calc of HCL final partial pres REAL( 8 ) :: XLHNO3 ! REAL( 8 ) :: XLMHP ! REAL( 8 ) :: XLNH3 ! REAL( 8 ) :: XLO3 ! REAL( 8 ) :: XLPAA ! REAL( 8 ) :: XLSO2 ! REAL( 8 ) :: CAACC ! accumulation mode Calcium (AE6) SLN 16March2011 REAL( 8 ) :: MGACC ! accumulation mode Magnesium (AE6) SLN 16March2011 REAL( 8 ) :: KACC ! accumulation mode Potassium (AE6) SLN 16March2011 REAL( 8 ) :: CACOR ! coarse mode Calcium (AE6) SLN 16March2011 REAL( 8 ) :: MGCOR ! coarse mode Magnesium (AE6) SLN 16March2011 REAL( 8 ) :: KCOR ! coarse mode Potassium (AE6) SLN 16March2011 REAL( 8 ) :: SOILCOR ! coarse mode SOIL (AE6) SLN 16March2011 REAL( 8 ) :: ANTHCOR ! coarse mode CORS (AE6) SLN 16March2011 REAL( 8 ) :: SEASCOR ! coarse mode SEAS (AE6) SLN 16March2011 REAL( 8 ) :: FEACC ! accumulation mode Fe (AE6) SLN 22March2011 REAL( 8 ) :: MNACC ! accumulation mode Mn (AE6) SLN 22March2011 REAL( 8 ) :: FECOR ! coarse mode Fe (AE6) SLN 22March2011 REAL( 8 ) :: MNCOR ! coarse mode Mn (AE6) SLN 22March2011 REAL( 8 ) :: FE_OX ! Fe(III) available for sulfate oxidation REAL( 8 ) :: MN_OX ! Mn(II) available for sulfate oxidation REAL( 8 ) :: FE_III ! Fractional Fe(III) partitioning, GS - July 1, 2011 REAL( 8 ) :: MN_II ! Fractional Mn(II) partitioning, GS - July 1, 2011 REAL( 8 ) :: FE_SOL ! Fractional Fe solubility, GS - July 1, 2011 REAL( 8 ) :: MN_SOL ! Fractional Mn solubility, GS - July 1, 2011 REAL( 8 ) :: TRACI, POAI, PRII, SOAI REAL( 8 ), SAVE :: SOIL_FE_FAC ! Fe molar fraction of ASOIL REAL( 8 ), SAVE :: CORS_FE_FAC ! Fe molar fraction of ACORS REAL( 8 ), SAVE :: SOIL_MN_FAC ! etc. REAL( 8 ), SAVE :: CORS_MN_FAC REAL( 8 ), SAVE :: SEAS_NA_FAC ! Na molar fraction of ASEACAT REAL( 8 ), SAVE :: SOIL_NA_FAC REAL( 8 ), SAVE :: CORS_NA_FAC REAL( 8 ), SAVE :: SEAS_MG_FAC REAL( 8 ), SAVE :: SOIL_MG_FAC REAL( 8 ), SAVE :: CORS_MG_FAC REAL( 8 ), SAVE :: SEAS_CA_FAC REAL( 8 ), SAVE :: SOIL_CA_FAC REAL( 8 ), SAVE :: CORS_CA_FAC REAL( 8 ), SAVE :: SEAS_K_FAC REAL( 8 ), SAVE :: SOIL_K_FAC REAL( 8 ), SAVE :: CORS_K_FAC C...........Local Variables (arrays): REAL( 8 ) :: LOADING( MAX_NAER, NMODES ) ! aerosol loading (mol/liter) REAL( 8 ) :: INITGAS( NGAS ) ! initial gas partial pressure (atm) REAL( 8 ) :: LIQUID( NLIQS ) ! wet deposition array (mm mol/liter) REAL( 8 ) :: WETDEP( NLIQS ) ! wet deposition array (mm mol/liter) REAL( 8 ) :: DSIVDT( 0:NUMOX ) ! rate of so2 oxid incloud (mol/liter/sec) REAL( 8 ) :: DS4 ( 0:NUMOX ) ! S(IV) oxidized over timestep DTW(0) REAL( 8 ) :: DTW ( 0:NUMOX ) ! cloud chemistry timestep (sec) REAL( 8 ) :: ONE_OVER_TEMP ! 1.0 / TEMP C...........External Functions: REAL, EXTERNAL :: HLCONST !For Varaible used by TXHG Version !LOGICAL, SAVE :: TRUST_TXHG_CHEM = .TRUE. ! allow effects for TXHG version on ion and ph REAL( 8 ) :: TRACER ! TRACER acc+akn aerosol in cloudwater (mol/liter) REAL( 8 ) :: TRACERCOR ! TRACER coarse aerosol in cloudwater (mol/liter) REAL( 8 ) :: HGFINE ! mercury PM acc+akn aerosol in cloudwater (mol/liter) REAL( 8 ) :: HGCOR ! mercury PM coarse aerosol in cloudwater (mol/liter) #ifdef sens INCLUDE 'AQCHEM_DDM3D.EXT' ! ddm-3d variables #endif C********************************************************************* C...Initialization IF ( FIRSTIME ) THEN FIRSTIME = .FALSE. C... set MW ratios and speciation factors for molar concentrations of coarse C... soluble aerosols SOIL_FE_FAC = ASOIL_FE_FAC * REAL( AEROSPC_MW( ASOIL_IDX ), 8 ) & / REAL( AEROSPC_MW( AFE_IDX ), 8 ) / ASOIL_RENORM CORS_FE_FAC = ACORS_FE_FAC * REAL( AEROSPC_MW( ACORS_IDX ), 8 ) & / REAL( AEROSPC_MW( AFE_IDX ), 8 ) / ACORSEM_RENORM SOIL_MN_FAC = ASOIL_MN_FAC * REAL( AEROSPC_MW( ASOIL_IDX ), 8 ) & / REAL( AEROSPC_MW( AMN_IDX ), 8 ) / ASOIL_RENORM CORS_MN_FAC = ACORS_MN_FAC * REAL( AEROSPC_MW( ACORS_IDX ), 8 ) & / REAL( AEROSPC_MW( AMN_IDX ), 8 ) / ACORSEM_RENORM SEAS_NA_FAC = ASCAT_NA_FAC * REAL( AEROSPC_MW( ASEACAT_IDX ), 8 ) & / REAL( AEROSPC_MW( ANA_IDX ), 8 ) SOIL_NA_FAC = ASOIL_NA_FAC * REAL( AEROSPC_MW( ASOIL_IDX ), 8 ) & / REAL( AEROSPC_MW( ANA_IDX ), 8 ) / ASOIL_RENORM CORS_NA_FAC = ACORS_NA_FAC * REAL( AEROSPC_MW( ACORS_IDX ), 8 ) & / REAL( AEROSPC_MW( ANA_IDX ), 8 ) / ACORSEM_RENORM SEAS_MG_FAC = ASCAT_MG_FAC * REAL( AEROSPC_MW( ASEACAT_IDX ), 8 ) & / REAL( AEROSPC_MW( AMG_IDX ), 8 ) SOIL_MG_FAC = ASOIL_MG_FAC * REAL( AEROSPC_MW( ASOIL_IDX ), 8 ) & / REAL( AEROSPC_MW( AMG_IDX ), 8 ) / ASOIL_RENORM CORS_MG_FAC = ACORS_MG_FAC * REAL( AEROSPC_MW( ACORS_IDX ), 8 ) & / REAL( AEROSPC_MW( AMG_IDX ), 8 ) / ACORSEM_RENORM SEAS_CA_FAC = ASCAT_CA_FAC * REAL( AEROSPC_MW( ASEACAT_IDX ), 8 ) & / REAL( AEROSPC_MW( ACA_IDX ), 8 ) SOIL_CA_FAC = ASOIL_CA_FAC * REAL( AEROSPC_MW( ASOIL_IDX ), 8 ) & / REAL( AEROSPC_MW( ACA_IDX ), 8 ) / ASOIL_RENORM CORS_CA_FAC = ACORS_CA_FAC * REAL( AEROSPC_MW( ACORS_IDX ), 8 ) & / REAL( AEROSPC_MW( ACA_IDX ), 8 ) / ACORSEM_RENORM SEAS_K_FAC = ASCAT_K_FAC * REAL( AEROSPC_MW( ASEACAT_IDX ), 8 ) & / REAL( AEROSPC_MW( AK_IDX ), 8 ) SOIL_K_FAC = ASOIL_K_FAC * REAL( AEROSPC_MW( ASOIL_IDX ), 8 ) & / REAL( AEROSPC_MW( AK_IDX ), 8 ) / ASOIL_RENORM CORS_K_FAC = ACORS_K_FAC * REAL( AEROSPC_MW( ACORS_IDX ), 8 ) & / REAL( AEROSPC_MW( AK_IDX ), 8 ) / ACORSEM_RENORM END IF ! FIRSTIME ONE_OVER_TEMP = 1.0D0 / TEMP C...check for bad temperature, cloud air mass, or pressure IF ( TEMP .LE. 0.0D0 .OR. AIRM .LE. 0.0D0 .OR. PRES_PA .LE. 0.0D0 ) THEN XMSG = 'MET DATA ERROR' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT2 ) END IF C... determine day or night from cosine of zenith angle for the cell; Golam Sarwar IF ( COSZ .LE. 0.0 ) THEN DARK = .TRUE. ! night ELSE DARK = .FALSE. ! day END IF C...initialize counters and compute several conversion factors ICNTAQ = 0 ITERAT = 0 DSIV_SCALE = 1.0D0 RT = ( MOLVOL / STDTEMP ) * TEMP ! R * T (liter atm / mol) PRES_ATM = PRES_PA / STDATMPA ! pressure (atm) CTHK1 = AIRM * RT / ( PRES_ATM * 1000.0D0 ) ! cloud thickness (m) XL = WCAVG * RT / H2ODENS ! conversion factor (l-atm/mol) ONE_OVER_XL = 1.0D0 / XL PRES_ATM_OVER_XL = PRES_ATM / XL TST = 0.999D0 GM = SCVEFF / 100.0D0 ACT1 = 1.0D0 ACT2 = 1.0D0 GM2 = 1.0D0 TIMEW = 0.0D0 RECIPAP1 = 1.0D0 / PRES_ATM XC1 = 1.0D0 / ( WCAVG * CTHK1 ) XC2 = RT / ( 1000.0D0 * CTHK1 ) FRACLIQ = WCAVG / WTAVG TWASH = WTAVG * 1000.0D0 * CTHK1 * 3600.0D0 & / ( H2ODENS * MAX( 1.0D-20, REAL( PRCRATE,8 ) ) ) C...set equilibrium constants as a function of temperature C... Henry`s law constants SO2H = HLCONST( 'SO2 ', TEMP, .FALSE., 0.0 ) CO2H = HLCONST( 'CO2 ', TEMP, .FALSE., 0.0 ) NH3H = HLCONST( 'NH3 ', TEMP, .FALSE., 0.0 ) H2O2H = HLCONST( 'H2O2 ', TEMP, .FALSE., 0.0 ) O3H = HLCONST( 'O3 ', TEMP, .FALSE., 0.0 ) HCLH = HLCONST( 'HCL ', TEMP, .FALSE., 0.0 ) HNO3H = HLCONST( 'HNO3 ', TEMP, .FALSE., 0.0 ) MHPH = HLCONST( 'METHYLHYDROPEROX', TEMP, .FALSE., 0.0 ) PAAH = HLCONST( 'PEROXYACETIC_ACI', TEMP, .FALSE., 0.0 ) FOAH = HLCONST( 'FORMIC_ACID ', TEMP, .FALSE., 0.0 ) GLYH = HLCONST( 'GLYOXAL ', TEMP, .FALSE., 0.0 ) MGLYH = HLCONST( MGLYSUR, TEMP, .FALSE., 0.0 ) HOH = HLCONST( 'OH ', TEMP, .FALSE., 0.0 ) TEMP1 = ONE_OVER_TEMP - 1.0D0 / 298.0D0 C...dissociation constants FOA1 = 1.80D-04 * EXP( -2.00D+01 * TEMP1 ) ! Martell and Smith (1977) SK6 = 1.02D-02 * EXP( 2.72D+03 * TEMP1 ) ! Smith and Martell (1976) SO21 = 1.30D-02 * EXP( 1.96D+03 * TEMP1 ) ! Smith and Martell (1976) SO22 = 6.60D-08 * EXP( 1.50D+03 * TEMP1 ) ! Smith and Martell (1976) CO21 = 4.30D-07 * EXP( -1.00D+03 * TEMP1 ) ! Smith and Martell (1976) CO22 = 4.68D-11 * EXP( -1.76D+03 * TEMP1 ) ! Smith and Martell (1976) H2OW = 1.00D-14 * EXP( -6.71D+03 * TEMP1 ) ! Smith and Martell (1976) NH31 = 1.70D-05 * EXP( -4.50D+02 * TEMP1 ) ! Smith and Martell (1976) HCL1 = 1.74D+06 * EXP( 6.90D+03 * TEMP1 ) ! Marsh and McElroy (1985) HNO31 = 1.54D+01 * EXP( 8.70D+03 * TEMP1 ) ! Schwartz (1984) C...Kinetic oxidation rates C... From Jacobson (1997) RH2O2 = 7.45D+07 * EXP( -15.96D0 * ( ( 298.0D0 / TEMP ) - 1.0D0 ) ) C... From Jacobson, 1997 RMHP = 1.90D+07 * EXP( -12.75D0 * ( ( 298.0D0 / TEMP ) - 1.0D0 ) ) RPAA = 3.60D+07 * EXP( -13.42D0 * ( ( 298.0D0 / TEMP ) - 1.0D0 ) ) C...From Carlton et al. (2007) RGLY3 = 3.0D+10 ! rate constant measured at 298K RMGLY3 = 3.0D+10 ! assumed to be the same as GLY C...make initializations WETDEP = 0.0D0 LOADING = 0.0D0 INITGAS = 0.0D0 DSIVDT = 0.0D0 DTW = 0.0D0 DS4 = 0.0D0 DGLY1 = 0.0D0 DMGLY1 = 0.0D0 DORGC = 0.0D0 ! DOH1 = 0.0 #ifdef sens S_WETDEP = 0.0D0 S_LOADING = 0.0D0 S_INITGAS = 0.0D0 S_DSIVDT = 0.0D0 S_DS4 = 0.0D0 S_DGLY1 = 0.0D0 S_DMGLY1 = 0.0D0 S_DORGC = 0.0D0 #endif #ifdef isam DGLY1_SAVE = 0.0D0 DMGLY1_SAVE = 0.0D0 #endif C...compute fractional weights for several species TOTNIT = GAS( LHNO3 ) + AEROSOL( LNO3, ACC ) IF ( TOTNIT .GT. 0.0D0 ) THEN FHNO3 = GAS( LHNO3 ) / TOTNIT FNO3ACC = AEROSOL( LNO3, ACC ) / TOTNIT ELSE FHNO3 = 1.0D0 FNO3ACC = 0.0D0 END IF TOTAMM = GAS( LNH3 ) + AEROSOL( LNH4, ACC ) IF ( TOTAMM .GT. 0.0D0 ) THEN FNH3 = GAS( LNH3 ) / TOTAMM FNH4ACC = AEROSOL( LNH4, ACC ) / TOTAMM ELSE FNH3 = 1.0D0 FNH4ACC = 0.0D0 END IF TNO3a = AEROSOL( LNO3, ACC ) + AEROSOL( LNO3, COR ) IF ( TNO3a .GT. 0.0D0) THEN FNO3COR = AEROSOL( LNO3, COR ) / TNO3a ELSE FNO3COR = 0.0D0 END IF TNH4a = AEROSOL( LNH4, ACC ) + AEROSOL( LNH4, COR ) IF ( TNH4a .GT. 0.0D0) THEN FNH4COR = AEROSOL( LNH4, COR ) / TNH4a ELSE FNH4COR = 0.0D0 END IF TCLa = AEROSOL( LCL, ACC ) + AEROSOL( LCL, COR ) IF ( TCLa .GT. 0.0D0) THEN FCLCOR = AEROSOL( LCL, COR ) / TCLa ELSE FCLCOR = 0.0D0 END IF #ifdef sens DO NP = 1, NPMAX S_TOTNIT( NP ) = S_GAS( NP, LHNO3 ) + S_AEROSOL( NP, LNO3, ACC ) IF ( S_TOTNIT( NP ) .NE. 0.0D0 ) THEN S_FHNO3( NP ) = S_GAS( NP,LHNO3 ) / S_TOTNIT( NP ) S_FNO3ACC( NP ) = S_AEROSOL( NP,LNO3, ACC ) / S_TOTNIT( NP ) ELSE S_FHNO3( NP ) = 1.0D0 S_FNO3ACC( NP ) = 0.0D0 END IF S_TOTAMM( NP ) = S_GAS( NP, LNH3 ) + S_AEROSOL( NP, LNH4, ACC ) IF ( S_TOTAMM( NP ) .NE. 0.0D0 ) THEN S_FNH3( NP ) = S_GAS( NP, LNH3 ) / S_TOTAMM( NP ) S_FNH4ACC( NP ) = S_AEROSOL( NP, LNH4, ACC ) / S_TOTAMM( NP ) ELSE S_FNH3( NP ) = 1.0D0 S_FNH4ACC( NP ) = 0.0D0 END IF END DO #endif C...Assign fraction partitioning of FE(III) and MN(II) IF ( DARK ) THEN FE_III = 0.9D0 ! Night time, GS 01July2011 ELSE FE_III = 0.1D0 ! Day time, GS 01July2011 END IF MN_II = 1.0D0 ! Same for day and night, GS 01July2011 C...Assign solubility of Fe and Mn FE_SOL = 0.1D0 ! GS 01July2011 MN_SOL = 0.5D0 ! GS 28July2011 C...initial concentration from accumulation-mode aerosol loading (mol/liter) C... an assumption is made that all of the accumulation-mode C... aerosol mass in incorporated into the cloud droplets DO ISPC = 1, NAER LOADING( ISPC, ACC ) = AEROSOL( ISPC, ACC ) * PRES_ATM_OVER_XL END DO LOADING( LSO4, ACC ) = ( AEROSOL( LSO4, ACC ) + GAS( LH2SO4 ) ) * PRES_ATM_OVER_XL #ifdef sens DO NP = 1, NPMAX DO ISPC = 1, NAER S_LOADING( NP,ISPC, ACC ) = S_AEROSOL( NP,ISPC, ACC ) * PRES_ATM_OVER_XL END DO S_LOADING( NP,LSO4, ACC ) = ( S_AEROSOL( NP,LSO4, ACC ) + S_GAS( NP,LH2SO4 ) ) * PRES_ATM_OVER_XL END DO #endif C...initial concentration from coarse-mode aerosol loading (mol/liter) C... an assumption is made that all of the coarse-mode C... aerosol mass in incorporated into the cloud droplets DO ISPC = 1, NAER LOADING( ISPC, COR ) = AEROSOL( ISPC, COR ) * PRES_ATM_OVER_XL END DO ! LOADING( LCACO3, COR ) = ( AEROSOL( LCACO3, COR ) + AEROSOL( LMGCO3, COR ) ) ! & * PRES_ATM_OVER_XL #ifdef sens DO NP = 1, NPMAX DO ISPC = 1, NAER S_LOADING( NP, ISPC, COR ) = S_AEROSOL( NP,ISPC, COR ) * PRES_ATM_OVER_XL END DO END DO #endif C...set constant factors that will be used in later multiplications (moles/atm) XLH2O2 = H2O2H * XL XLO3 = O3H * XL XLMHP = MHPH * XL XLPAA = PAAH * XL XLSO2 = SO2H * XL XLNH3 = NH3H * XL XLHCL = HCLH * XL XLHNO3 = HNO3H * XL XLCO2 = CO2H * XL SO212 = SO21 * SO22 SO21H = SO21 * SO2H SO212H = SO212 * SO2H CO212 = CO21 * CO22 CO21H = CO21 * CO2H CO212H = CO22 * CO21H NH3DH20 = NH31 / H2OW NH31HDH = NH3H * NH3DH20 FOA1H = FOA1 * FOAH HCL1H = HCL1 * HCLH HNO31H = HNO31 * HNO3H C...loop If kinetic calculations are made, return to this point DO I20C = 1, 10001 IF ( I20C .GE. 10000 ) THEN XMSG = 'EXCESSIVE LOOPING AT I20C' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT2 ) END IF C...set aitken-mode aerosol loading (mol/liter) SCAVENGED = PRES_ATM_OVER_XL * ( 1.0D0 - EXP( -REAL( ALFA3, 8 ) * TIMEW ) ) DO ISPC = 1, NAER LOADING( ISPC, AKN ) = AEROSOL( ISPC, AKN ) * SCAVENGED END DO #ifdef sens DO NP = 1, NPMAX DO ISPC = 1, NAER S_LOADING( NP, ISPC, AKN ) = S_AEROSOL( NP, ISPC, AKN ) * SCAVENGED END DO END DO #endif C...Initial gas phase partial pressures (atm) C... = initial partial pressure - amount deposited partial pressure INITGAS( LSO2 ) = GAS( LSO2 ) * PRES_ATM & + DS4( 0 ) * XL & - ( WETDEP( LSO3L ) + WETDEP( LHSO3L ) + WETDEP( LSO2L ) ) * XC2 INITGAS( LNH3 ) = GAS( LNH3 ) * PRES_ATM & + ( LOADING( LNH4, ACC ) + LOADING( LNH4, COR ) + LOADING( LNH4, AKN ) ) * XL & - ( WETDEP( LNH4ACCL ) + WETDEP( LNH3L ) + WETDEP( LNH4CORL ) ) * XC2 INITGAS( LHNO3 ) = ( GAS( LHNO3 ) + 2.0 * GAS( LN2O5 ) ) * PRES_ATM & + ( LOADING( LNO3, ACC ) + LOADING( LNO3, COR ) + LOADING( LNO3, AKN ) ) * XL & - ( WETDEP( LNO3ACCL ) + WETDEP( LHNO3L ) + WETDEP( LNO3CORL ) ) * XC2 INITGAS( LHCL ) = GAS( LHCL ) * PRES_ATM & + ( LOADING( LCL, ACC ) + LOADING( LCL, COR ) + LOADING( LCL, AKN ) ) * XL ! new for sea salt & - ( WETDEP( LCLACCL ) + WETDEP( LHCLL ) + WETDEP( LCLCORL ) ) * XC2 INITGAS( LH2O2 ) = GAS( LH2O2 ) * PRES_ATM - WETDEP( LH2O2L ) * XC2 INITGAS( LO3 ) = GAS( LO3 ) * PRES_ATM - WETDEP( LO3L ) * XC2 INITGAS( LFOA ) = GAS( LFOA ) * PRES_ATM & - ( WETDEP( LFOAL ) + WETDEP( LHCO2L ) ) * XC2 INITGAS( LMHP ) = GAS( LMHP ) * PRES_ATM - WETDEP( LMHPL ) * XC2 INITGAS( LPAA ) = GAS( LPAA ) * PRES_ATM - WETDEP( LPAAL ) * XC2 INITGAS( LCO2 ) = GAS( LCO2 ) * PRES_ATM ! & + ( LOADING( LCACO3, COR ) + LOADING( LMGCO3, COR ) ) * XL & - ( WETDEP( LCO3L ) + WETDEP( LHCO3L ) + WETDEP( LCO2L ) ) * XC2 INITGAS( LGLY ) = GAS( LGLY ) * PRES_ATM & + DGLY1 * XL & - WETDEP( LGLYL ) * XC2 INITGAS( LMGLY ) = GAS( LMGLY ) * PRES_ATM & + DMGLY1 * XL & - WETDEP( LMGLYL ) * XC2 INITGAS( LHO ) = GAS( LHO ) * PRES_ATM !steadystate & + DOH1 * XL !steadystate & - WETDEP( LOHL ) * XC2 #ifdef sens DO NP = 1, NPMAX S_INITGAS( NP, LSO2 ) = S_GAS( NP, LSO2 ) * PRES_ATM & + S_DS4( NP, 0 ) * XL & - ( S_WETDEP( NP, LSO3L ) + S_WETDEP( NP, LHSO3L ) + S_WETDEP( NP, LSO2L ) ) * XC2 S_INITGAS( NP, LNH3 ) = S_GAS( NP,LNH3 ) * PRES_ATM & + ( S_LOADING( NP, LNH4, ACC ) + S_LOADING( NP, LNH4, COR ) + S_LOADING( NP, LNH4, AKN ) ) * XL & - ( S_WETDEP( NP, LNH4ACCL ) + S_WETDEP( NP, LNH3L ) + S_WETDEP( NP, LNH4CORL ) ) * XC2 S_INITGAS( NP, LHNO3 ) = ( S_GAS( NP, LHNO3 ) + 2.0 * S_GAS( NP, LN2O5 ) ) * PRES_ATM & + ( S_LOADING( NP, LNO3, ACC ) + S_LOADING( NP, LNO3, COR ) + S_LOADING( NP, LNO3, AKN ) ) * XL & - ( S_WETDEP( NP, LNO3ACCL ) + S_WETDEP( NP, LHNO3L ) + S_WETDEP( NP, LNO3CORL ) ) * XC2 S_INITGAS( NP, LHCL ) = S_GAS( NP, LHCL ) * PRES_ATM & + ( S_LOADING( NP, LCL, ACC ) + S_LOADING( NP, LCL, COR ) + S_LOADING( NP, LCL, AKN ) ) * XL ! new for sea salt & - ( S_WETDEP( NP, LCLACCL ) + S_WETDEP( NP, LHCLL ) + S_WETDEP( NP, LCLCORL ) ) * XC2 S_INITGAS( NP, LH2O2 ) = S_GAS( NP, LH2O2 ) * PRES_ATM - S_WETDEP( NP, LH2O2L ) * XC2 S_INITGAS( NP, LO3 ) = S_GAS( NP, LO3 ) * PRES_ATM - S_WETDEP( NP, LO3L ) * XC2 S_INITGAS( NP, LFOA ) = S_GAS( NP, LFOA ) * PRES_ATM & - ( S_WETDEP( NP, LFOAL ) + S_WETDEP( NP, LHCO2L ) ) * XC2 S_INITGAS( NP, LMHP ) = S_GAS( NP, LMHP ) * PRES_ATM - S_WETDEP( NP, LMHPL ) * XC2 S_INITGAS( NP, LPAA ) = S_GAS( NP, LPAA ) * PRES_ATM - S_WETDEP( NP, LPAAL ) * XC2 S_INITGAS( NP, LCO2 ) = S_GAS( NP, LCO2 ) * PRES_ATM & - ( S_WETDEP( NP, LCO3L ) + S_WETDEP( NP, LHCO3L ) + S_WETDEP( NP, LCO2L ) ) * XC2 S_INITGAS( NP, LGLY ) = S_GAS( NP, LGLY ) * PRES_ATM & + S_DGLY1( NP ) * XL & - S_WETDEP( NP, LGLYL ) * XC2 S_INITGAS( NP, LMGLY ) = S_GAS( NP, LMGLY ) * PRES_ATM & + S_DMGLY1( NP ) * XL & - S_WETDEP( NP, LMGLYL ) * XC2 S_INITGAS( NP, LHO ) = S_GAS( NP, LHO ) * PRES_ATM END DO #endif C...don`t allow gas concentrations to go below zero C...Molar concentrations of soluble aerosols C... = Initial amount - amount deposited (mol/liter) TS6COR = MAX( LOADING( LSO4, COR ) - WETDEP( LTS6CORL ) * XC1, 0.0D0 ) NO3COR = MAX( LOADING( LNO3, COR ) - WETDEP( LNO3CORL ) * XC1, 0.0D0 ) ! NACOR = MAX( LOADING( LNA, COR ) - WETDEP( LNACORL ) * XC1, 0.0D0 ) ! SLN 29March2011 CLCOR = MAX( LOADING( LCL, COR ) - WETDEP( LCLCORL ) * XC1, 0.0D0 ) NH4COR = MAX( LOADING( LNH4, COR ) - WETDEP( LNH4CORL ) * XC1, 0.0D0 ) SOILCOR = MAX( LOADING( LSOILC,COR ) - WETDEP( LSOILCL ) * XC1, 0.0D0 ) ! SLN 16March2011 ANTHCOR = MAX( LOADING( LANTHC,COR ) - WETDEP( LANTHCL ) * XC1, 0.0D0 ) ! SLN 16March2011 SEASCOR = MAX( LOADING( LSEASC,COR ) - WETDEP( LSEASCL ) * XC1, 0.0D0 ) ! SLN 16March2011 FECOR = SOIL_FE_FAC * SOILCOR + CORS_FE_FAC * ANTHCOR ! SLN 22Mar2011 MNCOR = SOIL_MN_FAC * SOILCOR + CORS_MN_FAC * ANTHCOR NACOR = SEAS_NA_FAC * SEASCOR + SOIL_NA_FAC * SOILCOR + CORS_NA_FAC * ANTHCOR MGCOR = SEAS_MG_FAC * SEASCOR + SOIL_MG_FAC * SOILCOR + CORS_MG_FAC * ANTHCOR CACOR = SEAS_CA_FAC * SEASCOR + SOIL_CA_FAC * SOILCOR + CORS_CA_FAC * ANTHCOR KCOR = SEAS_K_FAC * SEASCOR + SOIL_K_FAC * SOILCOR + CORS_K_FAC * ANTHCOR TS6 = LOADING( LSO4, AKN ) + LOADING( LSO4, ACC ) + TS6COR & - ( WETDEP( LSO4ACCL ) + WETDEP( LHSO4ACCL ) ) * XC1 & - DS4( 0 ) IF ( STM ) THEN TS6AQH2O2 = LOADING( LSO4AQH2O2, ACC ) - WETDEP( LTS6AQH2O2L ) * XC1 & - DS4( 1 ) TS6AQO3 = LOADING( LSO4AQO3, ACC ) - WETDEP( LTS6AQO3L ) * XC1 & - DS4( 2 ) TS6AQFEMN = LOADING( LSO4AQFEMN, ACC ) - WETDEP( LTS6AQFEMNL ) * XC1 & - DS4( 3 ) TS6AQMHP = LOADING( LSO4AQMHP, ACC ) - WETDEP( LTS6AQMHPL ) * XC1 & - DS4( 4 ) TS6AQPAA = LOADING( LSO4AQPAA, ACC ) - WETDEP( LTS6AQPAAL ) * XC1 & - DS4( 5 ) END IF NA = LOADING( LNA, ACC ) + LOADING( LNA, AKN ) + NACOR & - WETDEP( LNAACCL ) * XC1 ! CA = LOADING( LCACO3,COR ) - WETDEP( LCAL ) * XC1 ! MG = LOADING( LMGCO3,COR ) - WETDEP( LMGL ) * XC1 ! K = LOADING( LK, COR ) - WETDEP( LKL ) * XC1 ! FE = LOADING( LA3FE, COR ) - WETDEP( LFEL ) * XC1 ! MN = LOADING( LB2MN, COR ) - WETDEP( LMNL ) * XC1 CA = LOADING( LCAACC, ACC) - WETDEP( LCAACCL ) * XC1 + CACOR MG = LOADING( LMGACC, ACC) - WETDEP( LMGACCL ) * XC1 + MGCOR K = LOADING( LKACC, ACC) - WETDEP( LKACCL ) * XC1 + KCOR FE = LOADING( LFEACC, ACC) - WETDEP( LFEACCL ) * XC1 + FECOR MN = LOADING( LMNACC, ACC) - WETDEP( LMNACCL ) * XC1 + MNCOR SOA = LOADING( LSOA, ACC ) + LOADING( LSOA, AKN ) - WETDEP( LSOAL ) * XC1 ORGC = LOADING( LORGC, ACC ) + DORGC - WETDEP( LORGCL ) * XC1 ! new in-cloud organic POA = LOADING( LPOA, ACC ) + LOADING( LPOA, AKN ) - WETDEP( LPOAL ) * XC1 EC = LOADING( LEC, ACC ) + LOADING( LEC, AKN ) - WETDEP( LECL ) * XC1 PRIM = LOADING( LPRI, ACC ) + LOADING( LPRI, AKN ) - WETDEP( LPRIML ) * XC1 ! PRIMCOR = LOADING( LPRICOR, COR ) - WETDEP( LPRIMCORL ) * XC1 NUMCOR = LOADING( LNUM, COR ) - WETDEP( LNUMCORL ) * XC1 ! A = 3.0D0 * FE ! B = 2.0D0 * MN TRACI = LOADING( LTRACER_AKN, AKN ) - WETDEP( LTRACIL ) * XC1 POAI = LOADING( LPOA, AKN ) - WETDEP( LPOAIL ) * XC1 PRII = LOADING( LPRI, AKN ) - WETDEP( LPRIIL ) * XC1 SOAI = LOADING( LSOA, AKN ) - WETDEP( LSOAIL ) * XC1 ! FE_OX = 0.5D0 * 0.62D0 * FE ! SLN 28March2011 ! MN_OX = 1.0D0 * 0.84D0 * MN ! SLN 28March2011 # ifdef sens DO NP = 1, NPMAX S_TS6COR(NP) = S_LOADING( NP, LSO4, COR ) - S_WETDEP( NP, LTS6CORL ) * XC1 S_NO3COR(NP) = S_LOADING( NP, LNO3, COR ) - S_WETDEP( NP, LNO3CORL ) * XC1 S_CLCOR(NP) = S_LOADING( NP, LCL, COR ) - S_WETDEP( NP, LCLCORL ) * XC1 S_NH4COR(NP) = S_LOADING( NP, LNH4, COR ) - S_WETDEP( NP, LNH4CORL ) * XC1 S_SOILCOR(NP) = S_LOADING( NP, LSOILC,COR ) - S_WETDEP( NP, LSOILCL ) * XC1 S_ANTHCOR(NP) = S_LOADING( NP, LANTHC,COR ) - S_WETDEP( NP, LANTHCL ) * XC1 S_SEASCOR(NP) = S_LOADING( NP, LSEASC,COR ) - S_WETDEP( NP, LSEASCL ) * XC1 S_FECOR(NP) = SOIL_FE_FAC * S_SOILCOR( NP ) + CORS_FE_FAC * S_ANTHCOR( NP ) S_MNCOR(NP) = SOIL_MN_FAC * S_SOILCOR( NP ) + CORS_MN_FAC * S_ANTHCOR( NP ) S_NACOR(NP) = SEAS_NA_FAC * S_SEASCOR( NP ) + SOIL_NA_FAC * S_SOILCOR( NP ) + CORS_NA_FAC * S_ANTHCOR( NP ) S_MGCOR(NP) = SEAS_MG_FAC * S_SEASCOR( NP ) + SOIL_MG_FAC * S_SOILCOR( NP ) + CORS_MG_FAC * S_ANTHCOR( NP ) S_CACOR(NP) = SEAS_CA_FAC * S_SEASCOR( NP ) + SOIL_CA_FAC * S_SOILCOR( NP ) + CORS_CA_FAC * S_ANTHCOR( NP ) S_KCOR(NP) = SEAS_K_FAC * S_SEASCOR( NP ) + SOIL_K_FAC * S_SOILCOR( NP ) + CORS_K_FAC * S_ANTHCOR( NP ) S_TS6(NP) = S_LOADING( NP, LSO4, AKN ) + S_LOADING( NP, LSO4, ACC ) + S_TS6COR( NP ) & - ( S_WETDEP( NP, LSO4ACCL ) + S_WETDEP( NP, LHSO4ACCL ) ) * XC1 & - S_DS4( NP, 0 ) S_NA(NP) = S_LOADING( NP, LNA, ACC ) + S_LOADING( NP, LNA, AKN ) + S_NACOR( NP ) & - S_WETDEP( NP, LNAACCL ) * XC1 S_CA(NP) = S_LOADING( NP, LCAACC, ACC) - S_WETDEP( NP, LCAACCL ) * XC1 + S_CACOR( NP ) S_MG(NP) = S_LOADING( NP, LMGACC, ACC) - S_WETDEP( NP, LMGACCL ) * XC1 + S_MGCOR( NP ) S_K(NP) = S_LOADING( NP, LKACC, ACC) - S_WETDEP( NP, LKACCL ) * XC1 + S_KCOR( NP ) S_FE(NP) = S_LOADING( NP, LFEACC, ACC) - S_WETDEP( NP, LFEACCL ) * XC1 + S_FECOR( NP ) S_MN(NP) = S_LOADING( NP, LMNACC, ACC) - S_WETDEP( NP, LMNACCL ) * XC1 + S_MNCOR( NP ) S_SOA(NP) = S_LOADING( NP, LSOA, ACC ) + S_LOADING( NP, LSOA, AKN ) - S_WETDEP( NP, LSOAL ) * XC1 S_ORGC(NP) = S_LOADING( NP, LORGC, ACC ) + S_DORGC( NP ) - S_WETDEP( NP, LORGCL ) * XC1 S_POA(NP) = S_LOADING( NP, LPOA, ACC ) + S_LOADING( NP, LPOA, AKN ) - S_WETDEP( NP, LPOAL ) * XC1 S_EC(NP) = S_LOADING( NP, LEC, ACC ) + S_LOADING( NP, LEC, AKN ) - S_WETDEP( NP, LECL ) * XC1 S_PRIM(NP) = S_LOADING( NP, LPRI, ACC ) + S_LOADING( NP, LPRI, AKN ) - S_WETDEP( NP, LPRIML ) * XC1 S_NUMCOR(NP) = S_LOADING( NP, LNUM, COR ) - S_WETDEP( NP, LNUMCORL ) * XC1 END DO #endif C...don't allow aerosol concentrations to go below zero TS6 = MAX( TS6, 0.0D0 ) IF ( STM ) THEN TS6AQH2O2 = MAX( TS6AQH2O2, 0.0D0 ) TS6AQO3 = MAX( TS6AQO3, 0.0D0 ) TS6AQFEMN = MAX( TS6AQFEMN, 0.0D0 ) TS6AQMHP = MAX( TS6AQMHP, 0.0D0 ) TS6AQPAA = MAX( TS6AQPAA, 0.0D0 ) END IF NA = MAX( NA, 0.0D0 ) CA = MAX( CA, 0.0D0 ) MG = MAX( MG, 0.0D0 ) K = MAX( K, 0.0D0 ) FE = MAX( FE, 0.0D0 ) MN = MAX( MN, 0.0D0 ) SOA = MAX( SOA, 0.0D0 ) ORGC = MAX( ORGC, 0.0D0 ) POA = MAX( POA, 0.0D0 ) EC = MAX( EC, 0.0D0 ) PRIM = MAX( PRIM, 0.0D0 ) ! PRIMCOR = MAX( PRIMCOR, 0.0D0 ) NUMCOR = MAX( NUMCOR, 0.0D0 ) TRACI = MAX( TRACI, 0.0D0 ) POAI = MAX( POAI, 0.0D0 ) PRII = MAX( PRII, 0.0D0 ) SOAI = MAX( SOAI, 0.0D0 ) FE_OX = FE_III * FE_SOL * FE ! GS 01July2011 MN_OX = MN_II * MN_SOL * MN ! GS 01July2011 A = 3.0D0 * FE_OX B = 2.0D0 * MN_OX SK6TS6 = SK6 * TS6 #ifdef sens IF ( TS6 .EQ. 0.0D0 ) THEN DO NP =1 , NPMAX S_TS6( NP ) = 0.0D0 END DO END IF IF ( NA .EQ. 0.0D0 ) THEN DO NP = 1, NPMAX S_NA( NP ) = 0.0D0 END DO END IF IF ( CA .EQ. 0.0D0 ) THEN DO NP = 1, NPMAX S_CA( NP ) = 0.0D0 END DO END IF IF ( MG .EQ. 0.0D0 ) THEN DO NP = 1, NPMAX S_MG( NP ) = 0.0D0 END DO END IF IF ( K .EQ. 0.0D0 ) THEN DO NP = 1, NPMAX S_K( NP ) = 0.0D0 END DO END IF IF ( FE .EQ. 0.0D0 ) THEN DO NP = 1, NPMAX S_FE( NP ) = 0.0D0 END DO END IF IF ( MN .EQ. 0.0D0 ) THEN DO NP = 1, NPMAX S_MN( NP ) = 0.0D0 END DO END IF IF ( SOA .EQ. 0.0D0 ) THEN DO NP = 1, NPMAX S_SOA( NP ) = 0.0D0 END DO END IF IF ( ORGC .EQ. 0.0D0 ) THEN DO NP = 1, NPMAX S_ORGC( NP ) = 0.0D0 END DO END IF IF ( POA .EQ. 0.0D0 ) THEN DO NP = 1, NPMAX S_POA( NP ) = 0.0D0 END DO END IF IF ( EC .EQ. 0.0D0 ) THEN DO NP = 1, NPMAX S_EC( NP ) = 0.0D0 END DO END IF IF ( PRIM .EQ. 0.0D0 ) THEN DO NP = 1, NPMAX S_PRIM( NP ) = 0.0D0 END DO END IF IF ( NUMCOR .EQ. 0.0D0 ) THEN DO NP = 1, NPMAX S_NUMCOR( NP ) = 0.0D0 END DO END IF DO NP = 1, NPMAX S_FE_OX( NP ) = FE_III * FE_SOL * S_FE( NP ) S_MN_OX( NP ) = MN_II * MN_SOL * S_MN( NP ) S_A( NP ) = 3.0D0 * S_FE_OX( NP ) S_B( NP ) = 2.0D0 * S_MN_OX( NP ) S_SK6TS6( NP ) = SK6 * S_TS6( NP ) END DO #endif C...find solution of the equation using a method of reiterative C... bisections Make initial guesses for pH: between .01 to 10. HA = 0.01D0 HB = 10.0D0 C...don't allow gas concentrations to go below zero DO IGAS = 1, NGAS INITGAS( IGAS ) = MAX( INITGAS( IGAS ), 0.0D0 ) END DO #ifdef sens DO IGAS = 1, NGAS IF ( INITGAS( IGAS ) .EQ. 0.0D0 ) THEN DO NP = 1, NPMAX S_INITGAS( NP, IGAS ) = 0.0D0 END DO END IF END DO #endif C...Aerosol specific to TXHG Versions TRACER = LOADING( LTRACER_ACC, ACC ) + LOADING( LTRACER_AKN, AKN ) & - WETDEP( LTRACERL ) * XC1 TRACER = MAX( TRACER, 0.0D0 ) TRACERCOR = LOADING( LTRACER_COR, COR ) - WETDEP( LTRACERCORL ) * XC1 TRACERCOR = MAX( TRACERCOR, 0.0D0 ) HGFINE = LOADING( LPHG_ACC, ACC ) + LOADING( LPHG_AKN, AKN ) & - WETDEP( LPHGFINEL ) * XC1 HGFINE = MAX( HGFINE, 0.0D0 ) HGCOR = LOADING( LPHG_COR, COR ) - WETDEP( LPHGCORL ) * XC1 HGCOR = MAX( HGCOR , 0.0D0 ) DO I7777C = 1, 10001 IF ( I7777C .GE. 10000 ) THEN XMSG = 'EXCESSIVE LOOPING AT I7777C' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT2 ) END IF HA = MAX( HA - 0.8D0, 0.1D0 ) HB = MIN( HB + 0.8D0, 9.9D0 ) AE = 10.0D0 ** ( -HA ) RECIPA1 = 1.0D0 / ( AE * ACT1 ) RECIPA2 = 1.0D0 / ( AE * AE * ACT2 ) C...calculate final gas phase partial pressure of SO2, NH3, HNO3 C... HCOOH, and CO2 (atm) PSO2F = INITGAS( LSO2 ) / ( 1.0D0 + XLSO2 * ( 1.0D0 + SO21 * RECIPA1 & + SO212 * RECIPA2 ) ) PNH3F = INITGAS( LNH3 ) / ( 1.0D0 + XLNH3 * ( 1.0D0 + NH3DH20 * AE ) ) PHCLF = INITGAS( LHCL ) / ( 1.0D0 + XLHCL * ( 1.0D0 + HCL1 * RECIPA1 ) ) PFOAF = INITGAS( LFOA ) / ( 1.0D0 + XL * ( FOAH + FOA1H * RECIPA1 ) ) PHNO3F = INITGAS( LHNO3 ) / ( 1.0D0 + XLHNO3 * ( 1.0D0 + HNO31 * RECIPA1 ) ) PCO2F = INITGAS( LCO2 ) / ( 1.0D0 + XLCO2 * ( 1.0D0 + CO21 * RECIPA1 & + CO212 * RECIPA2 ) ) C...calculate liquid phase concentrations (moles/liter) SO4 = SK6TS6 / ( AE * GM2 + SK6 ) HSO4 = TS6 - SO4 SO3 = SO212H * PSO2F * RECIPA2 HSO3 = SO21H * PSO2F * RECIPA1 CO3 = CO212H * PCO2F * RECIPA2 HCO3 = CO21H * PCO2F * RECIPA1 OH = H2OW * RECIPA1 NH4 = NH31HDH * PNH3F * AE HCO2 = FOA1H * PFOAF * RECIPA1 NO3 = HNO31H * PHNO3F * RECIPA1 CL = HCL1H * PHCLF * RECIPA1 ! new for sea salt C...compute functional value ! FA = AE + NH4 + NA + 2.0D0 * ( CA + MG - CO3 - SO3 - SO4 ) ! & - OH - HCO3 - HSO3 - NO3 - HSO4 - HCO2 - CL FA = AE + NH4 + NA + K + 2.0D0 * ( CA + MG - CO3 - SO3 - SO4 ) ! SLN 16March2011 & - OH - HCO3 - HSO3 - NO3 - HSO4 - HCO2 - CL C...Start iteration and bisection ****************<<<<<<< DO I30C = 1, 10000 IF ( I30C .GE. 10000 ) THEN XMSG = 'EXCESSIVE LOOPING AT I30C' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT2 ) END IF BB = ( HA + HB ) / 2.0D0 AE = 10.0D0 ** ( -BB ) ICNTAQ = ICNTAQ + 1 IF ( ICNTAQ .GE. 60000 ) THEN XMSG = 'Maximum AQCHEM total iterations exceeded' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT2 ) END IF RECIPA1 = 1.0D0 / ( AE * ACT1 ) RECIPA2 = 1.0D0 / ( AE * AE * ACT2 ) C...calculate final gas phase partial pressure of SO2, NH3, HCL, HNO3 C... HCOOH, and CO2 (atm) PSO2F = INITGAS( LSO2 ) / ( 1.0D0 + XLSO2 & * ( 1.0D0 + SO21 * RECIPA1 + SO212 * RECIPA2 ) ) PNH3F = INITGAS( LNH3 ) / ( 1.0D0 + XLNH3 * ( 1.0D0 + NH3DH20 * AE ) ) PHCLF = INITGAS( LHCL ) / ( 1.0D0 + XLHCL * ( 1.0D0 + HCL1 * RECIPA1 ) ) PHNO3F = INITGAS( LHNO3 ) / ( 1.0D0 + XLHNO3 * ( 1.0D0 + HNO31 * RECIPA1 ) ) PFOAF = INITGAS( LFOA ) / ( 1.0D0 + XL * ( FOAH + FOA1H * RECIPA1 ) ) PCO2F = INITGAS( LCO2 ) / ( 1.0D0 + XLCO2 * ( 1.0D0 + CO21 * RECIPA1 & + CO212 * RECIPA2 ) ) C...calculate liquid phase concentrations (moles/liter) SO4 = SK6TS6 / ( AE * GM2 + SK6 ) HSO4 = TS6 - SO4 SO3 = SO212H * PSO2F * RECIPA2 HSO3 = SO21H * PSO2F * RECIPA1 CO3 = CO212H * PCO2F * RECIPA2 HCO3 = CO21H * PCO2F * RECIPA1 OH = H2OW * RECIPA1 NH4 = NH31HDH * PNH3F * AE HCO2 = FOA1H * PFOAF * RECIPA1 NO3 = HNO31H * PHNO3F * RECIPA1 CL = HCL1H * PHCLF * RECIPA1 ! new for sea salt C...compute functional value ! FB = AE + NH4 + NA + 2.0D0 * ( CA + MG - CO3 - SO3 - SO4 ) ! & - OH - HCO3 - HSO3 - NO3 - HSO4 - HCO2 - CL FB = AE + NH4 + NA + K + 2.0D0 * ( CA + MG - CO3 - SO3 - SO4 ) ! SLN 16March2011 & - OH - HCO3 - HSO3 - NO3 - HSO4 - HCO2 - CL C...Calculate and check the sign of the product of the two functional values FTST = FA * FB IF ( FTST .LE. 0.0D0 ) THEN HB = BB ELSE HA = BB FA = FB END IF C...Check convergence of solutions HTST = HA / HB IF ( HTST .GT. TST ) EXIT ! exit loop I30C END DO ! I30C C...end of zero-finding routine ****************<<<<<<<<<<<< C...compute Ionic strength and activity coefficient by the Davies equation STION = 0.5D0 & * ( AE + NH4 + OH + HCO3 + HSO3 & + 4.0D0 * ( SO4 + CO3 + SO3 + CA + MG + MN_OX ) & + NO3 + HSO4 + 9.0D0 * FE_OX + NA + K + CL + A + B + HCO2 ) ! KMF 08September2011 C & + 4.0D0 * ( SO4 + CO3 + SO3 + CA + MG + MN ) C & + NO3 + HSO4 + 9.0D0 * FE + NA + K + CL + A + B + HCO2 ) GM1LOG = -0.509D0 * ( SQRT( STION ) & / ( 1.0D0 + SQRT( STION ) ) - 0.2D0 * STION ) GM2LOG = GM1LOG * 4.0D0 GM1 = 10.0D0 ** GM1LOG GM2 = MAX( 10.0D0 ** GM2LOG, 1.0D-30 ) ACTB = ACT1 ACT1 = MAX( GM1 * GM1, 1.0D-30 ) ACT2 = MAX( GM1 * GM1 * GM2, 1.0D-30 ) #ifdef verbose if ( stion .gt. 1.0 ) then write( logdev,'( /5x, a, 2i4, i10.6 )' ) & 'aqchem-I7777C,I20C: ', i7777c, i20c, jtime write( logdev,'( 5x, a, e10.3 )' ) 'stion: ', stion write( logdev,'( 5x, a, e10.3 )' ) 'AE: ', ae write( logdev,'( 5x, a, e10.3 )' ) 'NH4: ', nh4 write( logdev,'( 5x, a, e10.3 )' ) 'OH: ', oh write( logdev,'( 5x, a, e10.3 )' ) 'HCO3: ', hco3 write( logdev,'( 5x, a, e10.3 )' ) 'HSO3: ', hso3 write( logdev,'( 5x, a, e10.3 )' ) 'SO4: ', so4 write( logdev,'( 5x, a, e10.3 )' ) 'CO3: ', co3 write( logdev,'( 5x, a, e10.3 )' ) 'SO3: ', so3 write( logdev,'( 5x, a, e10.3 )' ) 'CA: ', ca write( logdev,'( 5x, a, e10.3 )' ) 'MG: ', mg write( logdev,'( 5x, a, e10.3 )' ) 'MN: ', mn write( logdev,'( 5x, a, e10.3 )' ) 'NO3: ', no3 write( logdev,'( 5x, a, e10.3 )' ) 'HSO4: ', hso4 write( logdev,'( 5x, a, e10.3 )' ) 'FE: ', fe write( logdev,'( 5x, a, e10.3 )' ) 'NA: ', na write( logdev,'( 5x, a, e10.3 )' ) 'K: ', k write( logdev,'( 5x, a, e10.3 )' ) 'CL: ', cl write( logdev,'( 5x, a, e10.3 )' ) 'A: ', a write( logdev,'( 5x, a, e10.3 )' ) 'B: ', b write( logdev,'( 5x, a, e10.3 )' ) 'HCO2: ', hco2 write( logdev,'( 5x, a, e10.3 )' ) 'gm1log:', gm1log write( logdev,'( 5x, a, e10.3 )' ) 'gm2log:', gm2log write( logdev,'( 5x, a, e10.3 )' ) 'gm1: ', gm1 write( logdev,'( 5x, a, e10.3 )' ) 'gm2: ', gm2 write( logdev,'( 5x, a, e10.3 )' ) 'actb: ', actb write( logdev,'( 5x, a, e10.3 )' ) 'act1: ', act1 write( logdev,'( 5x, a, e10.3 )' ) 'act2: ', act2 end if #endif C...check for convergence and possibly go to I7777C, to recompute C... Gas and liquid phase concentrations TAC = ABS( ACTB - ACT1 ) / ACTB IF ( TAC .LT. 1.0D-2 ) EXIT ! exit loop I7777C END DO ! end of do loop I7777C C...return an error if the pH is not in range IF ( ( HA .LT. 0.1D0 ) .OR. ( HA .GT. 9.9D0 ) ) THEN ! write( logdev,* ) ha XMSG = 'PH VALUE OUT OF RANGE' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT2 ) END IF #ifdef sens DO NP = 1, NPMAX C...calculate final gas phase partial pressure of SO2, NH3, HCL, HNO3 C... HCOOH, and CO2 (atm) S_PSO2F( NP ) = S_INITGAS( NP, LSO2 ) / ( 1.0D0 + XLSO2 & * ( 1.0D0 + SO21 * RECIPA1 + SO212 * RECIPA2 ) ) S_PNH3F( NP ) = S_INITGAS( NP, LNH3 ) / ( 1.0D0 + XLNH3 * ( 1.0D0 + NH3DH20 * AE ) ) S_PHCLF( NP ) = S_INITGAS( NP, LHCL ) / ( 1.0D0 + XLHCL * ( 1.0D0 + HCL1 * RECIPA1 ) ) S_PHNO3F( NP ) = S_INITGAS( NP, LHNO3 ) / ( 1.0D0 + XLHNO3 * ( 1.0D0 + HNO31 * RECIPA1 ) ) S_PFOAF( NP ) = S_INITGAS( NP, LFOA ) / ( 1.0D0 + XL * ( FOAH + FOA1H * RECIPA1 ) ) S_PCO2F( NP ) = S_INITGAS( NP, LCO2 ) / ( 1.0D0 + XLCO2 * ( 1.0D0 + CO21 * RECIPA1 & + CO212 * RECIPA2 ) ) C...calculate liquid phase concentrations (moles/liter) S_SO4( NP ) = S_SK6TS6( NP ) / ( AE * GM2 + SK6 ) S_HSO4( NP ) = S_TS6( NP ) - S_SO4( NP ) S_SO3( NP ) = SO212H * S_PSO2F( NP ) * RECIPA2 S_HSO3( NP ) = SO21H * S_PSO2F( NP ) * RECIPA1 S_CO3( NP ) = CO212H * S_PCO2F( NP ) * RECIPA2 S_HCO3( NP ) = CO21H * S_PCO2F( NP ) * RECIPA1 S_NH4( NP ) = NH31HDH * S_PNH3F( NP ) * AE S_HCO2( NP ) = FOA1H * S_PFOAF( NP ) * RECIPA1 S_NO3( NP ) = HNO31H * S_PHNO3F( NP ) * RECIPA1 S_CL( NP ) = HCL1H * S_PHCLF( NP ) * RECIPA1 C...compute functional value c FB = AE + NH4 + NA + K + 2.0D0 * ( CA + MG - CO3 - SO3 - SO4 ) c & - OH - HCO3 - HSO3 - NO3 - HSO4 - HCO2 - CL END DO #endif C...Make those concentration calculations which can be made outside C... of the function. SO2L = SO2H * PSO2F HPLUS = 10.0D0 ** ( -BB ) SIV = SO3 + HSO3 + SO2L C...Calculate final gas phase concentrations of oxidants (atm) PH2O2F = ( INITGAS( LH2O2 ) + XL * DS4( 1 ) ) / ( 1.0D0 + XLH2O2 ) PO3F = ( INITGAS( LO3 ) + XL * DS4( 2 ) ) / ( 1.0D0 + XLO3 ) PMHPF = ( INITGAS( LMHP ) + XL * DS4( 4 ) ) / ( 1.0D0 + XLMHP ) PPAAF = ( INITGAS( LPAA ) + XL * DS4( 5 ) ) / ( 1.0D0 + XLPAA ) PGLYF = ( INITGAS( LGLY ) ) / ( 1.0D0 + GLYH * XL ) PMGLYF = ( INITGAS( LMGLY ) ) / ( 1.0D0 + MGLYH * XL ) PHOF = ( INITGAS( LHO ) ) / ( 1.0D0 + HOH * XL) PH2O2F = MAX( PH2O2F, 0.0D0 ) PO3F = MAX( PO3F, 0.0D0 ) PMHPF = MAX( PMHPF, 0.0D0 ) PPAAF = MAX( PPAAF, 0.0D0 ) C...Calculate liquid phase concentrations of oxidants (moles/liter) H2O2L = PH2O2F * H2O2H O3L = PO3F * O3H MHPL = PMHPF * MHPH PAAL = PPAAF * PAAH FOAL = PFOAF * FOAH NH3L = PNH3F * NH3H CO2L = PCO2F * CO2H HCLL = PHCLF * HCLH HNO3L = PHNO3F * HNO3H GLYL = PGLYF * GLYH MGLYL = PMGLYF * MGLYH OHL = PHOF * HOH C...compute modal concentrations SO4COR = SK6 * TS6COR / ( AE * GM2 + SK6 ) HSO4COR = MAX( TS6COR - SO4COR, 0.0D0 ) TS6ACC = MAX( TS6 - TS6COR, 0.0D0 ) SO4ACC = MAX( SO4 - SO4COR, 0.0D0 ) HSO4ACC = MAX( HSO4 - HSO4COR, 0.0D0 ) NAACC = MAX( NA - NACOR, 0.0D0 ) CAACC = MAX( CA - CACOR, 0.0D0 ) ! AE6 MGACC = MAX( MG - MGCOR, 0.0D0 ) ! AE6 KACC = MAX( K - KCOR, 0.0D0 ) ! AE6 FEACC = MAX( FE - FECOR, 0.0D0 ) ! AE6 MNACC = MAX( MN - MNCOR, 0.0D0 ) ! AE6 #ifdef sens DO NP = 1, NPMAX S_SO2L( NP ) = SO2H * S_PSO2F( NP ) S_SIV( NP ) = S_SO3( NP ) + S_HSO3( NP ) + S_SO2L( NP ) S_PH2O2F( NP ) = ( S_INITGAS( NP, LH2O2 ) + XL * S_DS4( NP, 1 ) ) / ( 1.0D0 + XLH2O2 ) S_PO3F( NP ) = ( S_INITGAS( NP, LO3 ) + XL * S_DS4( NP, 2 ) ) / ( 1.0D0 + XLO3 ) S_PMHPF( NP ) = ( S_INITGAS( NP, LMHP ) + XL * S_DS4( NP, 4 ) ) / ( 1.0D0 + XLMHP ) S_PPAAF( NP ) = ( S_INITGAS( NP, LPAA ) + XL * S_DS4( NP, 5 ) ) / ( 1.0D0 + XLPAA ) S_PGLYF( NP ) = ( S_INITGAS( NP, LGLY ) ) / ( 1.0D0 + GLYH * XL ) S_PMGLYF( NP ) = ( S_INITGAS( NP, LMGLY ) ) / ( 1.0D0 + MGLYH * XL ) S_PHOF( NP ) = ( S_INITGAS( NP, LHO ) ) / ( 1.0D0 + HOH * XL) END DO IF ( PH2O2F .EQ. 0.0D0 ) THEN DO NP = 1, NPMAX S_PH2O2F( NP ) = 0.0D0 END DO END IF IF ( PO3F .EQ. 0.0D0 ) THEN DO NP = 1, NPMAX S_PO3F( NP ) = 0.0D0 END DO END IF IF ( PMHPF .EQ. 0.0D0 ) THEN DO NP = 1, NPMAX S_PMHPF( NP ) = 0.0D0 END DO END IF IF ( PPAAF .EQ. 0.0D0 ) THEN DO NP = 1, NPMAX S_PPAAF( NP ) = 0.0D0 END DO END IF DO NP = 1, NPMAX S_H2O2L( NP ) = S_PH2O2F( NP ) * H2O2H S_O3L( NP ) = S_PO3F( NP ) * O3H S_MHPL( NP ) = S_PMHPF( NP ) * MHPH S_PAAL( NP ) = S_PPAAF( NP ) * PAAH S_FOAL( NP ) = S_PFOAF( NP ) * FOAH S_NH3L( NP ) = S_PNH3F( NP ) * NH3H S_CO2L( NP ) = S_PCO2F( NP ) * CO2H S_HCLL( NP ) = S_PHCLF( NP ) * HCLH S_HNO3L( NP ) = S_PHNO3F( NP ) * HNO3H S_GLYL( NP ) = S_PGLYF( NP ) * GLYH S_MGLYL( NP ) = S_PMGLYF( NP ) * MGLYH S_OHL( NP ) = S_PHOF( NP ) * HOH S_SO4COR( NP ) = SK6 * S_TS6COR( NP ) / ( AE * GM2 + SK6 ) S_HSO4COR( NP ) = S_TS6COR( NP ) - S_SO4COR( NP ) S_TS6ACC( NP ) = S_TS6( NP ) - S_TS6COR( NP ) S_SO4ACC( NP ) = S_SO4( NP ) - S_SO4COR( NP ) S_HSO4ACC( NP ) = S_HSO4( NP ) - S_HSO4COR( NP ) S_NO3ACC( NP ) = S_NO3( NP ) - S_NO3COR( NP ) S_NAACC( NP ) = S_NA( NP ) - S_NACOR( NP ) S_CLACC( NP ) = S_CL( NP ) - S_CLCOR( NP ) S_NH4ACC( NP ) = S_NH4( NP ) - S_NH4COR( NP ) S_CAACC( NP ) = S_CA( NP ) - S_CACOR( NP ) S_MGACC( NP ) = S_MG( NP ) - S_MGCOR( NP ) S_KACC( NP ) = S_K( NP ) - S_KCOR( NP ) S_FEACC( NP ) = S_FE( NP ) - S_FECOR( NP ) S_MNACC( NP ) = S_MN( NP ) - S_MNCOR( NP ) END DO c IF ( HSO4COR .EQ. 0.0D0 ) THEN c DO NP = 1, NPMAX c S_HSO4COR( NP ) = 0.0D0 c END DO c END IF IF ( TS6ACC .EQ. 0.0D0 ) THEN DO NP = 1, NPMAX S_TS6ACC( NP ) = 0.0D0 END DO END IF IF ( SO4ACC .EQ. 0.0D0 ) THEN DO NP = 1, NPMAX S_SO4ACC( NP ) = 0.0D0 END DO END IF IF ( HSO4ACC .EQ. 0.0D0 ) THEN DO NP = 1, NPMAX S_HSO4ACC( NP ) = 0.0D0 END DO END IF c IF ( NO3ACC .EQ. 0.0D0 ) THEN c DO NP = 1, NPMAX c S_NO3ACC( NP ) = 0.0D0 c END DO c END IF IF ( NAACC .EQ. 0.0D0 ) THEN DO NP = 1, NPMAX S_NAACC( NP ) = 0.0D0 END DO END IF c IF ( CLACC .EQ. 0.0D0 ) THEN c DO NP = 1, NPMAX c S_CLACC( NP ) = 0.0D0 c END DO c END IF c IF ( NH4ACC .EQ. 0.0D0 ) THEN c DO NP = 1, NPMAX c S_NH4ACC( NP ) = 0.0D0 c END DO c END IF IF ( CAACC .EQ. 0.0D0 ) THEN DO NP = 1, NPMAX S_CAACC( NP ) = 0.0D0 END DO END IF IF ( MGACC .EQ. 0.0D0 ) THEN DO NP = 1, NPMAX S_MGACC( NP ) = 0.0D0 END DO END IF IF ( KACC .EQ. 0.0D0 ) THEN DO NP = 1, NPMAX S_KACC( NP ) = 0.0D0 END DO END IF IF ( FEACC .EQ. 0.0D0 ) THEN DO NP = 1, NPMAX S_FEACC( NP ) = 0.0D0 END DO END IF IF ( MNACC .EQ. 0.0D0 ) THEN DO NP = 1, NPMAX S_MNACC( NP ) = 0.0D0 END DO END IF #endif C...Avoid adding mass when the coarse mode concentration is greater C... than the total amount left in the aqueous phase after redistribution C... of a species between the gas/aqueous phases IF ( NO3COR .GT. NO3 ) then NO3ACC = (1.0D0 - FNO3COR) * NO3 NO3COR = FNO3COR * NO3 ELSE NO3ACC = MAX( NO3 - NO3COR, 0.0D0 ) END IF IF ( CLCOR .GT. CL ) then CLACC = (1.0D0 - FCLCOR) * CL CLCOR = FCLCOR * CL ELSE CLACC = MAX( CL - CLCOR, 0.0D0 ) END IF IF ( NH4COR .GT. NH4 ) THEN NH4ACC = (1.0D0 - FNH4COR) * NH4 NH4COR = FNH4COR * NH4 ELSE NH4ACC = MAX( NH4 - NH4COR, 0.0D0 ) END IF C...load the liquid concentration array with current values LIQUID( LACL ) = HPLUS LIQUID( LNH4ACCL ) = NH4ACC LIQUID( LCACORL ) = CACOR LIQUID( LNAACCL ) = NAACC LIQUID( LOHL ) = OHL LIQUID( LSO4ACCL ) = SO4ACC LIQUID( LHSO4ACCL ) = HSO4ACC LIQUID( LSO3L ) = SO3 LIQUID( LHSO3L ) = HSO3 LIQUID( LSO2L ) = SO2L LIQUID( LCO3L ) = CO3 LIQUID( LHCO3L ) = HCO3 LIQUID( LCO2L ) = CO2L LIQUID( LNO3ACCL ) = NO3ACC LIQUID( LNH3L ) = NH3L LIQUID( LCLACCL ) = CLACC LIQUID( LH2O2L ) = H2O2L LIQUID( LO3L ) = O3L LIQUID( LFECORL ) = FECOR LIQUID( LMNCORL ) = MNCOR LIQUID( LAL ) = A LIQUID( LFOAL ) = FOAL LIQUID( LHCO2L ) = HCO2 LIQUID( LMHPL ) = MHPL LIQUID( LPAAL ) = PAAL LIQUID( LHCLL ) = HCLL LIQUID( LPRIML ) = PRIM LIQUID( LMGCORL ) = MGCOR LIQUID( LKCORL ) = KCOR LIQUID( LBL ) = B LIQUID( LHNO3L ) = HNO3L ! LIQUID( LPRIMCORL ) = PRIMCOR LIQUID( LNUMCORL ) = NUMCOR LIQUID( LTS6CORL ) = TS6COR LIQUID( LNACORL ) = NACOR LIQUID( LCLCORL ) = CLCOR LIQUID( LNO3CORL ) = NO3COR LIQUID( LNH4CORL ) = NH4COR LIQUID( LPOAL ) = POA LIQUID( LECL ) = EC LIQUID( LSOAL ) = SOA LIQUID( LORGCL ) = ORGC LIQUID( LGLYL ) = GLYL LIQUID( LMGLYL ) = MGLYL LIQUID( LCAACCL ) = CAACC ! AE6 - SLN 16March2011 LIQUID( LMGACCL ) = MGACC ! AE6 - SLN 16March2011 LIQUID( LKACCL ) = KACC ! AE6 - SLN 16March2011 LIQUID( LSOILCL ) = SOILCOR ! AE6 - SLN 16March2011 LIQUID( LANTHCL ) = ANTHCOR ! AE6 - SLN 16March2011 LIQUID( LSEASCL ) = SEASCOR ! AE6 - SLN 16March2011 LIQUID( LFEACCL ) = FEACC ! AE6 - SLN 22March2011 LIQUID( LMNACCL ) = MNACC ! AE6 - SLN 22March2011 LIQUID( LTRACIL ) = TRACI LIQUID( LPOAIL ) = POAI LIQUID( LPRIIL ) = PRII LIQUID( LSOAIL ) = SOAI IF ( STM ) THEN LIQUID( LTS6AQH2O2L ) = TS6AQH2O2 LIQUID( LTS6AQO3L ) = TS6AQO3 LIQUID( LTS6AQFEMNL ) = TS6AQFEMN LIQUID( LTS6AQMHPL ) = TS6AQMHP LIQUID( LTS6AQPAAL ) = TS6AQPAA END IF #ifdef sens S_LIQUID = 0.0D0 DO NP = 1, NPMAX c S_LIQUID( NP, LACL ) = S_AC( NP ) S_LIQUID( NP, LNH4ACCL ) = S_NH4ACC( NP) S_LIQUID( NP, LCACORL ) = S_CACOR( NP ) S_LIQUID( NP, LNAACCL ) = S_NAACC( NP ) S_LIQUID( NP, LOHL ) = S_OHL( NP ) S_LIQUID( NP, LSO4ACCL ) = S_SO4ACC( NP ) S_LIQUID( NP, LHSO4ACCL ) = S_HSO4ACC( NP ) S_LIQUID( NP, LSO3L ) = S_SO3( NP ) S_LIQUID( NP, LHSO3L ) = S_HSO3( NP ) S_LIQUID( NP, LSO2L ) = S_SO2L( NP ) S_LIQUID( NP, LCO3L ) = S_CO3( NP ) S_LIQUID( NP, LHCO3L ) = S_HCO3( NP ) S_LIQUID( NP, LCO2L ) = S_CO2L( NP ) S_LIQUID( NP, LNO3ACCL ) = S_NO3ACC( NP ) S_LIQUID( NP, LNH3L ) = S_NH3L( NP ) S_LIQUID( NP, LCLACCL ) = S_CLACC( NP ) S_LIQUID( NP, LH2O2L ) = S_H2O2L( NP ) S_LIQUID( NP, LO3L ) = S_O3L( NP ) S_LIQUID( NP, LFECORL ) = S_FECOR( NP ) S_LIQUID( NP, LMNCORL ) = S_MNCOR( NP ) c S_LIQUID( NP, LAL ) = S_A( NP ) S_LIQUID( NP, LFOAL ) = S_FOAL( NP ) S_LIQUID( NP, LHCO2L ) = S_HCO2( NP ) S_LIQUID( NP, LMHPL ) = S_MHPL( NP ) S_LIQUID( NP, LPAAL ) = S_PAAL( NP ) S_LIQUID( NP, LHCLL ) = S_HCLL( NP ) S_LIQUID( NP, LPRIML ) = S_PRIM( NP ) S_LIQUID( NP, LMGCORL ) = S_MGCOR( NP ) S_LIQUID( NP, LKCORL ) = S_KCOR( NP ) c S_LIQUID( NP, LBL ) = S_B( NP ) S_LIQUID( NP, LHNO3L ) = S_HNO3L( NP ) S_LIQUID( NP, LNUMCORL ) = S_NUMCOR( NP ) S_LIQUID( NP, LTS6CORL ) = S_TS6COR( NP ) S_LIQUID( NP, LNACORL ) = S_NACOR( NP ) S_LIQUID( NP, LCLCORL ) = S_CLCOR( NP ) S_LIQUID( NP, LNO3CORL ) = S_NO3COR( NP ) S_LIQUID( NP, LNH4CORL ) = S_NH4COR( NP ) S_LIQUID( NP, LPOAL ) = S_POA( NP ) S_LIQUID( NP, LECL ) = S_EC( NP ) S_LIQUID( NP, LSOAL ) = S_SOA( NP ) S_LIQUID( NP, LORGCL ) = S_ORGC( NP ) S_LIQUID( NP, LGLYL ) = S_GLYL( NP ) S_LIQUID( NP, LMGLYL ) = S_MGLYL( NP ) S_LIQUID( NP, LCAACCL ) = S_CAACC( NP ) S_LIQUID( NP, LMGACCL ) = S_MGACC( NP ) S_LIQUID( NP, LKACCL ) = S_KACC( NP ) S_LIQUID( NP, LSOILCL ) = S_SOILCOR( NP ) S_LIQUID( NP, LANTHCL ) = S_ANTHCOR( NP ) S_LIQUID( NP, LSEASCL ) = S_SEASCOR( NP ) S_LIQUID( NP, LFEACCL ) = S_FEACC( NP ) S_LIQUID( NP, LMNACCL ) = S_MNACC( NP ) END DO #endif C...Load array variable TXHG Version LIQUID( LTRACERL ) = TRACER LIQUID( LTRACERCORL ) = TRACERCOR LIQUID( LPHGFINEL ) = HGFINE LIQUID( LPHGCORL ) = HGCOR C...if the maximum cloud lifetime has not been reached, then compute C... the next timestep, else exit loop 20. IF ( TIMEW .GE. TAUCLD ) EXIT ! exit 20 loop C...make kinetics calculations C... note: DS4(i) and DSIV(I) are negative numbers! DTRMV = TAUCLD / 3.0D0 IF ( ( CTHK1 .GT. 1.0D-10 ) .AND. ( PRCRATE .GT. 1.0D-10 ) ) & DTRMV = 3.6D0 * WTAVG * 1000.0D0 * CTHK1 / PRCRATE ! << mol / mol air IF ( CGRID_MASK_AERO( I ) .AND. & .NOT. CGRID_MASK_NUM( I ) .AND. & .NOT. CGRID_MASK_SRF( I ) ) THEN FAC( :,:,LAY ) = CNV1 / DENS( :,:,LAY) / CGRID_MW( I ) CGRD( :,:,LAY,I ) = FAC(:,:,LAY) * MAX( CGRID( :,:,LAY,I ),1.0E-30/FAC(:,:,LAY) ) #ifdef sens DO ROW = 1,NROWS DO COL = 1,NCOLS IF ( CGRD( COL,ROW,LAY,I ) .LE. 1.0E-30 ) THEN SENGRID( COL,ROW,LAY,:,I ) = 0.0 ELSE SENGRID( COL,ROW,LAY,:,I ) = FAC(COL,ROW,LAY) * & SENGRID( COL,ROW,LAY,:,I ) ENDIF END DO END DO #endif END IF ! Aerosol Number: N m-3 -> N / mol air ! Aerosol Surface Area: m2 m-3 -> m2 / mol air IF ( CGRID_MASK_NUM( I ) .OR. & CGRID_MASK_SRF( I ) ) THEN FAC(:,:,LAY) = CNV2 / DENS(:,:,LAY) CGRD( :,:,LAY,I) = FAC(:,:,LAY) * MAX( CGRID( :,:,LAY, I ),1.0E-30/FAC(:,:,LAY) ) #ifdef sens DO ROW = 1,NROWS DO COL = 1,NCOLS IF ( CGRD( COL,ROW,LAY,I ) .LE. 1.0E-30 ) THEN SENGRID( COL,ROW,LAY,:,I ) = 0.0 ELSE SENGRID( COL,ROW,LAY,:,I ) = FAC(COL,ROW,LAY) * & SENGRID( COL,ROW,LAY,:,I ) ENDIF END DO END DO #endif END IF END DO END DO #ifdef isam c ISAM unit conversion DO SPC = 1, NSPC_SA VAR = MAP_SAtoCGR(SPC) IF ( VAR .EQ. RHOJ_LOC ) CYCLE ! RHOJ IF ( VAR .LE. N_GC_SPC .OR. VAR .GE. NR_STRT ) THEN ! this is not an aerosol DO ITAG = 1, NTAG_SA DO LAY = 1, NLAYS DO ROW = 1, NROWS DO COL = 1, NCOLS ISAM( COL,ROW,LAY,SPC, ITAG ) = ISAM(COL,ROW,LAY,SPC,ITAG ) * 1.0E-6 ISAM( COL,ROW,LAY,SPC, ITAG ) = MAX ( ISAM( COL,ROW,LAY,SPC, ITAG ), 1.0E-30 ) c IF ( ISAM( COL,ROW,LAY,SPC, ITAG ) .LT. 1.0E-10 ) THEN c ISAM( COL,ROW,LAY,SPC, ITAG ) = 0.0 c ENDIF END DO END DO END DO END DO ELSE ! this is an aerosol FAC(:,:,:) = CNV1 / DENS(:,:,:) / CGRID_MW( VAR ) DO ITAG = 1, NTAG_SA DO LAY = 1, NLAYS DO ROW = 1, NROWS DO COL = 1, NCOLS ISAM( COL,ROW,LAY,SPC, ITAG ) = ISAM( COL,ROW,LAY,SPC,ITAG ) * FAC(COL,ROW,LAY) ISAM( COL,ROW,LAY,SPC, ITAG ) = MAX ( ISAM(COL,ROW,LAY,SPC, ITAG ), 1.0E-30 ) c IF ( ISAM( COL,ROW,LAY,SPC, ITAG ) .LT. 1.0E-10 ) THEN c ISAM( COL,ROW,LAY,SPC, ITAG ) = 0.0 c ENDIF END DO END DO END DO END DO ENDIF END DO #endif C...compute cloud effects for the resolved clouds and resolved rainwater CALL RESCLD ( CGRD, JDATE, JTIME, TSTEP, & TOT_DEP, RESTRANS ) C...compute cloud effects for convective (subgrid) clouds CALL CONVCLD_ACM ( CGRD, JDATE, JTIME, TSTEP, & CONV_DEP, SUBTRANS ) C...now check to see if it's time to write the deposition file WSTEP = WSTEP + TIME2SEC( TSTEP( 2 ) ) IF ( WSTEP .GE. TIME2SEC( TSTEP( 1 ) ) ) THEN NDATE = JDATE NTIME = JTIME CALL NEXTIME( NDATE, NTIME, TSTEP( 2 ) ) WSTEP = 0 DO VAR = 1, N_SPC_WDEP + 1 DO ROW = 1, NROWS DO COL = 1, NCOLS TOT_DEP( COL, ROW, VAR ) = TOT_DEP ( COL, ROW, VAR ) & + CONV_DEP( COL, ROW, VAR ) #ifdef sens DO NP = 1, NPMAX S_TOTDEP( COL, ROW, NP, VAR ) = & S_TOTDEP( COL, ROW, NP, VAR ) & + S_CONDEP( COL, ROW, NP, VAR ) END DO #endif END DO END DO END DO DO ROW = 1, NROWS DO COL = 1, NCOLS VAR = N_SPC_WDEP + 8 + 1 CONV_DEP( COL, ROW, VAR ) = SUBTRANS( COL, ROW, 1 ) VAR = VAR + 1 CONV_DEP( COL, ROW, VAR ) = SUBTRANS( COL, ROW, 2 ) VAR = VAR + 1 CONV_DEP( COL, ROW, VAR ) = RESTRANS( COL, ROW ) VAR = VAR + 1 CONV_DEP( COL, ROW, VAR ) = SUBTRANS( COL, ROW, 1 ) & * SUBTRANS( COL, ROW, 2 ) & * RESTRANS( COL, ROW ) END DO END DO RESTRANS = 1.0 SUBTRANS = 1.0 #ifdef isam Ckrt Sum up the wetdep from both resolved and convective clouds Ckrt for the tagged species as well.... DO SPC = 1, N_SPCTAG DO ROW = 1, NROWS DO COL = 1, NCOLS TOT_SADEP( COL,ROW,S_SPCTAG( SPC ),T_SPCTAG( SPC ) ) = & TOT_SADEP( COL,ROW,S_SPCTAG( SPC ),T_SPCTAG( SPC ) ) + & CONV_SADEP( COL,ROW,S_SPCTAG( SPC ),T_SPCTAG( SPC ) ) END DO ! col END DO ! row END DO ! n_spctag #endif #ifdef mpas if ((loc_n > 0) .and. mpas_diag) then time_stamp = ctm_out_clock DO VAR = 1, N_SPC_WDEP k = index1( WDEP_SPC( VAR ), loc_n, name_list) if (k .gt. 0) then oname = 'WD_' // WDEP_SPC( VAR ) call mio_fwrite ('CTM_OUT', oname, pname, TOT_DEP ( :,1, VAR ), TIME_STAMP) end if ENDDO end if #else C...write data to the normal wet deposition file IF ( .NOT. WRITE3( CTM_WET_DEP_1, ALLVAR3, NDATE, & NTIME, TOT_DEP ) ) THEN XMSG = 'Could not write ' // CTM_WET_DEP_1 // ' file' CALL M3EXIT ( PNAME, NDATE, NTIME, XMSG, XSTAT1 ) END IF #endif WRITE( LOGDEV, '( /5X, 3( A, :, 1X ), I8, ":", I6.6 )' ) & 'Timestep written to', CTM_WET_DEP_1, & 'for date and time', NDATE, NTIME #ifdef sens C...write data to the sensitivity wet deposition file c gas species DO NP = 1, NPMAX DO SPC = 1, ( N_SPC_WDEP + 1 ) SENNUM = ( SPC - 1 ) * NPMAX + NP S_DEPWRT(:,:,SENNUM) = S_TOTDEP( :,:,NP,SPC ) END DO END DO IF ( .NOT. WRITE3( CTM_SWETDEP_1, ALLVAR3, NDATE, & NTIME, S_DEPWRT ) ) THEN XMSG = 'Could not write ' // CTM_SWETDEP_1 // ' file' CALL M3EXIT ( PNAME, NDATE, NTIME, XMSG, XSTAT1 ) END IF WRITE( LOGDEV, '( /5X, 3( A, :, 1X ), I8, ":", I6.6)' ) & 'Timestep written to', CTM_SWETDEP_1, & 'for date and time', NDATE, NTIME #endif C...write data to the diagnostic file if requested by the user IF ( CLD_DIAG ) THEN #ifdef mpas if ((loc_n > 0) .and. mpas_diag) then call mio_setfile (CTM_WET_DEP_2) do spc = 1, mio_file_data(mio_cfile)%nvars VNAME = mio_file_data(mio_cfile)%var_name(spc) call mio_fwrite (CTM_WET_DEP_2, VNAME, pname, real(CONV_DEP(:,1,spc), 4), TIME_STAMP) end do end if #else IF ( .NOT. WRITE3( CTM_WET_DEP_2, ALLVAR3, NDATE, & NTIME, CONV_DEP ) ) THEN XMSG = 'Could not write ' // CTM_WET_DEP_2 // ' file' CALL M3EXIT ( PNAME, NDATE, NTIME, XMSG, XSTAT1 ) END IF #endif WRITE( LOGDEV, '( /5X, 3( A, :, 1X ), I8, ":", I6.6 )' ) & 'Timestep written to', CTM_WET_DEP_2, & 'for date and time', NDATE, NTIME END IF ! CLD_DIAG C...reinitialize deposition array TOT_DEP = 0.0 CONV_DEP = 0.0 #ifdef sens S_TOTDEP = 0.0 S_CONDEP = 0.0 #endif #ifdef isam BUFF2 = 0.0 DO SPC = 1, N_SPCTAG DO ROW = 1, NROWS DO COL = 1, NCOLS BUFF2( COL,ROW ) = TOT_SADEP( COL,ROW,S_SPCTAG( SPC ),T_SPCTAG( SPC ) ) END DO ! col END DO ! row IF ( .NOT. WRITE3( SA_WD_1, VNAM_SPCTAG( SPC ), & NDATE, NTIME, BUFF2 ) ) THEN XMSG = 'Could not write ' // SA_WD_1 // ' file' CALL M3EXIT ( PNAME, NDATE, NTIME, XMSG, XSTAT1 ) END IF END DO ! n_spctag TOT_SADEP = 0.0 CONV_SADEP = 0.0 #endif END IF ! time to write C...convert units on cgrid back to original units C... convert to ppmV gas DO LAY = 1, NLAYS DO I = 1,N_CGRID_SPC ! Gas - Convert to PPMV IF ( CGRID_MASK_GAS( I ) .OR. & CGRID_MASK_NR( I ) .OR. & CGRID_MASK_TRAC( I ) ) THEN CGRID( :, :, LAY, I ) = CGRD( :, :, LAY, I ) * 1.0E+6 #ifdef sens DO NP = 1, NPMAX SENGRID( :,:,LAY,NP,I ) = SENGRID( :,:,LAY,NP,I ) * 1.0E+6 END DO #endif END IF ! Aerosol Mass: mol / mol air -> ug m-3 IF ( CGRID_MASK_AERO( I ) .AND. & .NOT. CGRID_MASK_NUM( I ) .AND. & .NOT. CGRID_MASK_SRF( I ) ) THEN FAC(:,:,LAY) = CNV1I * DENS( :,:,LAY ) CGRID( :,:,LAY,I ) = FAC(:,:,LAY) * CGRD( :,:,LAY,I ) * CGRID_MW(I) #ifdef sens DO NP = 1, NPMAX SENGRID( :,:,LAY,NP,I ) = FAC(:,:,LAY) * SENGRID( :,:,LAY,NP,I ) * CGRID_MW(I) END DO #endif END IF ! Aerosol Number: N / mol air -> N m-3 ! Aerosol Surface Area: m2 / mol air -> m2 m-3 IF ( CGRID_MASK_NUM( I ) .OR. & CGRID_MASK_SRF( I ) ) THEN FAC(:,:,LAY) = CNV2I * DENS( :,:,LAY ) CGRID( :,:,LAY,I ) = FAC(:,:,LAY) * CGRD( :,:,LAY,I ) #ifdef sens DO NP = 1, NPMAX SENGRID( :,:,LAY,NP,I ) = FAC(:,:,LAY) * SENGRID( :,:,LAY,NP,I ) END DO #endif END IF END DO END DO #ifdef isam c ISAM unit conversion DO SPC = 1, NSPC_SA VAR = MAP_SAtoCGR(SPC) IF ( VAR .EQ. RHOJ_LOC ) CYCLE ! RHOJ IF ( .NOT. CGRID_MASK_AERO( VAR ) ) THEN ! this is not an aerosol DO ITAG = 1, NTAG_SA DO LAY = 1, NLAYS DO ROW = 1, NROWS DO COL = 1, NCOLS ISAM( COL,ROW,LAY,SPC, ITAG ) = ISAM( COL,ROW,LAY,SPC,ITAG ) * 1.0E+6 IF ( ISAM( COL,ROW,LAY,SPC, ITAG ) .LT. 1.0E-18 ) THEN ISAM( COL,ROW,LAY,SPC, ITAG ) = 0.0 END IF END DO END DO END DO END DO ELSE ! this is an aerosol DO ITAG = 1, NTAG_SA FAC(:,:,:) = CNV1I * DENS( :,:,: ) * CGRID_MW( VAR ) DO LAY = 1, NLAYS DO ROW = 1, NROWS DO COL = 1, NCOLS ISAM( COL,ROW,LAY,SPC,ITAG ) = ISAM( COL,ROW,LAY,SPC,ITAG ) * & FAC( COL,ROW,LAY ) IF ( ISAM( COL,ROW,LAY,SPC, ITAG ) .LT. 1.0E-18 ) THEN ISAM( COL,ROW,LAY,SPC, ITAG ) = 0.0 END IF END DO END DO END DO END DO ENDIF END DO #endif RETURN END ================================================ FILE: CCTM/src/cloud/acm_ae6/convcld_acm.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! !::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE CONVCLD_ACM ( CGRD, JDATE, JTIME, TSTEP, & CONV_DEP, SUBTRANS ) C----------------------------------------------------------------------- C C FUNCTION: Convective cloud processor Models-3 science process: C MAIN ROUTINE calculates cloud characteristics, and uses them C to generate cumulative and net timestep deposition, cloud top, C cloud bottom, and pressure at the lifting level. C C ICLDTYPE = 1 => computes raining cloud physics, mixing, chemistry, C wet dep C ICLDTYPE = 2 => does the same for non-precip clouds utilizing saved C info from RNCLD in the case of co-existing clouds C C PRECONDITIONS REQUIRED: C Dates and times represented YYYYDDD:HHMMSS. C C IDEA: Aqueous chemistry operates on the half-hour for an internal C time step of one hour. C C REVISION HISTORY: C Adapted 3/93 by CJC from science module template C Version 3/3/93 with complete LCM aqueous chem by JNY. C Modified 6/3-7/93 by CJC & JNY to correct treatment of half layers C vs. full layers in loop 255: calculation of DTDP centered at C quarter-layers using PSTAR; corresponding revisions to TLCL, TSAT. C Uses 4th order R-K solver there. C Version 6/5/93 by CJC using relative rainout rates. C Version 7/6/93 by CJC using INTERP3() C Adapted from LCM aqueous chemistry, initial version, 9/93 C by JNY and CJC C Completion of EM cloud mixing, JNY 12/93 C Inclusion of EM aqueous chemistry JNY 12/93 C UPGRADE TO FULL RADM CLOUD MODULE EMULATION, JNY 4/94 C 8/16/94 by Dongming Hwang Configuration management template C Adapted 10/96 by S.Roselle for Models-3 C 1/97 s.roselle added McHenry`s well mixed assumption code C 8/97 S.Roselle revised cgrid units, pressure units, rainfall C to hourly amounts, built indices for wet dep species, C scavenged species, and aqueous species, built wrapper C around aqueous chemistry module C 10/97 S.Roselle removed McHenry`s well mixed assumption code C and put back the below cloud concentration scaling C 11/97 S.Roselle moved the wet deposition output to the calling C routine--CLDPROC C 01/98 S.Roselle moved indexing code to AQINTER, also C moved scavenging to SCAVWDEP C 03/98 S.Roselle read sub-hourly rainfall data C 12/98 David Wong at LM: C -- changed division of 8000, 2, 1000 to its corresponding C reciprocal C -- added INT in the expression STEP * 0.5 when calling SEC2TIME C 03/99 David Wong at LM: C -- replaced "/ FRAC * .001" by "/ ( FRAC * 1000.0 )" to minimize C lost of significant digits in calculation C Jeff - Dec 00 - move CGRID_MAP into f90 module C Jeff - Sep 01 - Dyn Alloc - Use HGRD_DEFN C 4/02 S.Roselle changed minimum horizontal resolution for subgrid C clouds from 12km to 8km. C 1/05 J.Young: dyn alloc - establish both horizontal & vertical C domain specifications in one module C 5/05 J.Pleim Replaced cloud mixing algorithm with ACM C 6/05 S.Roselle added new cloud diagnostic variables C 7/05 J.Young: clean up and mod for CMAQ-F C 7/06 S.Roselle Modified for sulfate tracking model C 8/10 J.Young: replace chem mechanism include files with namelists C and accomodate Shawn Roselle`s, Sergey Napelenok`s C and Steve Howard`s aerosol reengineering C 3/11 S.Roselle: replaced I/O API include files with UTILIO_DEFN C 5/11/11 D.Wong: incorporated twoway model implementation C 7/11 G. Sarwar: calculate zenith angle to determine daytime and nightime C needed for sulfur oxidation via metal catalysis C 9/11 S.Roselle: enable CMAQ subgrid cloud model only when met. driver C uses a convective cloud parameterization (removed minimum C horizontal grid resolution restriction) C 02Aug12 S.Roselle: instrumented to calculate and return C transmissivity for convective clouds C 04Apr14 B.Hutzell: Added routine call to capture cloud fractions, C water, and ice mixing ratios C 11Feb15 J.Young: Updated call to czangle.F which uses the ASX_DATA_MOD shared C data module (Implemented by J.Bash on 07 Nov 14) C 09/04/15 D.Wong: - Made variable declaration method consistent in the caller C and calling routines C - Used a variable rather than an array in calculation to C reduce memory footprint and to increase code efficiency C 28May15 J.Young: cleanup C 12Jun15 B.Hutzell: Moved call to CLEAR_ACM_CLOUD to after FIRSTIME block to C insure results from previous time step are removed C 12Jan16 D.Wong: Fixed a bug that causes different result when code run with C different domain decomposition C 4Apr16 J.Bash Calculate the Sundqvist et al. 1989 threshold humidities C for cloud formation based on Mocko and Cotton (1995) to be C More consistent with WRF C 7May 18 D. Schwede: Removed call to CZANGLE. COSZEN now calculated in ASX_DATA_MOD C Aug 2018 J. Pleim: convert to Z coords C Oct 2018 D. Wong: Declared array, F as allocatable and added subroutine ACMCLD C in the interface block C 26 Nov 2018 S. Napelenok: ISAM implementation C Feb 2019 D. Wong: Implemented centralized I/O approach, removed all MY_N C clauses C 01 AUG 19 D.Wong: Modified code to work with two-way model and C 11 Nov 19 F. Sidi: Changed MSTEP to accomdate Centralized I/O changes C 30 Dec 19 S.L.Napelenok: ddm-3d implementaiton for version 5.3.1 C 10 Jun 21 G. Sarwar: Replaced CB6R3M with CB6R5M C----------------------------------------------------------------------- USE RUNTIME_VARS, ONLY: STM, CONVECTIVE_SCHEME USE GRID_CONF ! horizontal & vertical domain specifications USE CGRID_SPCS ! CGRID mechanism species USE UTILIO_DEFN USE AQ_DATA USE AERO_DATA, ONLY : ASO4_IDX, ASO4AQH2O2_IDX, ASO4AQO3_IDX, & ASO4AQFEMN_IDX, ASO4AQMHP_IDX, ASO4AQPAA_IDX, & ASO4GAS_IDX, ASO4EMIS_IDX, ASO4ICBC_IDX, & OSO4AQH2O2_IDX, OSO4AQO3_IDX, OSO4AQFEMN_IDX, & OSO4AQMHP_IDX, OSO4AQPAA_IDX, OSO4_IDX, & OSO4GAS_IDX, OSO4EMIS_IDX, OSO4ICBC_IDX, & AEROSPC_MAP, N_MODE, AE6ISOA, MAP_AERO USE PRECURSOR_DATA, ONLY: SULF_IDX, PRECURSOR_MAP, MAP_PRECURSOR USE RXNS_DATA, ONLY: MECHNAME ! chemical mechanism data USE ASX_DATA_MOD, ONLY: GRID_DATA, MET_DATA USE PHOT_MOD, ONLY: RJ, RJ_RES, RJ_SUB, LH2O2_PHOTOLYSIS => LH2O2, & LHNO3_PHOTOLYSIS => LHNO3 USE CENTRALIZED_IO_MODULE #ifdef isam USE SA_DEFN, ONLY: ISAM, NSPC_SA, NTAG_SA, MAP_SAtoCGR, OTHRTAG, & ISAM_SPEC, DEPSUM_SAVE, DS4_SAVE, REMOV_SAVE, & ITAG, CONV_SADEP, & DEPSUM_AORGC_SAVE, DGLY1_SAVE, DMGLY1_SAVE, & REMOV_AORGC_SAVE #endif #ifdef sens USE DDM3D_DEFN, ONLY: SENGRID, NP, NPMAX, S_CONDEP, S_POLC, & S_CEND, S_REMOV, S_REMOVAC, S_CONDEP, & S_TOTDEP, S_CCR, S_CBELOW, IPT, & S_CONC, S_BMOL, S_CBASE0, S_CBASEF, & S_BCLDWT, S_INCLOUD, S_OUTCLOUD, S_PCLD, & S_CONDIS, DDM3D_CONCMINL #endif #ifdef mpas use util_module, only : nextime, time2sec, sec2time, secsdiff, currstep #endif IMPLICIT NONE C...........INCLUDES INCLUDE SUBST_CONST ! constants INCLUDE SUBST_FILES_ID ! file name parameters C...........Arguments REAL, INTENT( INOUT ) :: CGRD( :,:,:,: ) INTEGER, INTENT( IN ) :: JDATE INTEGER, INTENT( IN ) :: JTIME INTEGER, INTENT( IN ) :: TSTEP( 3 ) #ifdef mpas integer, save :: mpas_cmaq_freq #endif REAL, INTENT( INOUT ) :: CONV_DEP( :,:,: ) REAL, INTENT( OUT ) :: SUBTRANS( :,:,: ) C...........Parameters #ifdef mpas C critical rel humidity for land (fraction) REAL, ALLOCATABLE, SAVE :: RCRITL(:,:) C critical rel humidity for water (fraction) REAL, ALLOCATABLE, SAVE :: RCRITW(:,:) #else C critical rel humidity for land (fraction) REAL, SAVE :: RCRITL C critical rel humidity for water (fraction) REAL, SAVE :: RCRITW #endif C intermediate factor REAL :: XKM C factor convert 1/min to 1/sec REAL, PARAMETER :: MINPERSEC = 1.0 / 60.0 C param contlng sidewall entrainment function for raining clouds REAL, PARAMETER :: SIDEFAC = 0.5 C storm rainout efficiency REAL, PARAMETER :: STORME = 0.3 C emp sat vapor press constant from RADM REAL, PARAMETER :: C303 = 19.83 C emp sat vapor press constant from RADM REAL, PARAMETER :: C302 = 5417.4 C g/kg REAL, PARAMETER :: GPKG = 1.0E+03 C 1 hectare = 1.0e4 m**2 REAL, PARAMETER :: M2PHA = 1.0E+04 REAL, PARAMETER :: M2PHA_OVER_GPKG = 10.0 C subgrid scale temp perturb (deg K) REAL, PARAMETER :: PERT = 1.5 C wvp mix ratio perturb (dimensionless) REAL, PARAMETER :: PERQ = 1.5E-3 C rainfall threshold (mm/hr) REAL, PARAMETER :: RTHRESH = 0.1 C vapor press of water at 0 C (Pa) REAL, PARAMETER :: VP0PA = 611.2 C 1.0 / (vapor press of water @ 0 C) (1/Pa) REAL, PARAMETER :: VPINV = 1.0 / VP0PA C converg. crit. for entrainment solver REAL, PARAMETER :: TST = 0.01 C assumed cloud lifetime for convective clouds (sec) REAL, PARAMETER :: TCLIFE = 3600.0 C ratio of mol wt of water vapor to mol wt of air REAL, PARAMETER :: MVOMA = MWWAT / MWAIR C ratio of dry gas const to specific heat REAL, PARAMETER :: ROVCP = RDGAS / CPD C ratio of latent heat of vap to specific heat REAL, PARAMETER :: LVOCP = LV0 / CPD C dry adiabatic lapse rate (deg K/m) REAL, PARAMETER :: DALR = GRAV / CPD C Number of species in CGRID INTEGER, SAVE :: MXSPCS C parameter to control frequency of convective cloud processing C SYNCCLD=.TRUE. : every synchronization timestep C SYNCCLD=.FALSE. : every hour on the half hour LOGICAL, PARAMETER :: SYNCCLD = .TRUE. ! default to sync timestep INTEGER ICLDTYPE ! 1: raining, 2: either CNP or PFW C...........Local Variables C-------for ACM version - jp 2/05 REAL DPB REAL, ALLOCATABLE, SAVE :: DZH( : ) REAL, ALLOCATABLE, SAVE :: CCR ( :,: ) REAL, ALLOCATABLE, SAVE :: CONC( :,: ) REAL, ALLOCATABLE, SAVE :: CBELOW( : ) C------------------------------------------- LOGICAL, SAVE :: FIRSTIME = .TRUE. ! flag for first pass thru CHARACTER( 16 ) :: PNAME = 'CONVCLD_ACM' ! process name CHARACTER( 16 ) :: VARNM ! variable name for IOAPI to get CHARACTER( 16 ), SAVE :: RC_NAME ! RC name: old is RC and new is RCA INTEGER, ALLOCATABLE, SAVE :: SURCLDMX( : ) ! cloud mixing surrogate for stm INTEGER ATIME ! time diff from half-hour INTEGER CLTOP ! model LAY containing cloud top INTEGER COL ! column loop counter INTEGER ROW ! row loop counter INTEGER CTOP ! dummy variable for cloud top layer INTEGER FINI ! ending position INTEGER I599C ! entrainment solver iteration counter INTEGER LAY ! layer loop counter INTEGER M ! mode index INTEGER MDATE ! process date INTEGER MTIME ! process time (half-hour) INTEGER, SAVE :: MSTEP ! met file time step (hhmmss) INTEGER, SAVE :: SDATE ! met file start date INTEGER SPC ! liquid species loop counter INTEGER STEP ! step loop counter INTEGER STRT ! starting position INTEGER, SAVE :: STIME ! met file start time INTEGER VAR ! variable loop counter INTEGER I ! variable loop counter INTEGER CLBASE ! cld base layer INTEGER CLTOPUSTBL ! unstable cld top layer INTEGER ISOUND ! flag for sounding stability INTEGER SRCLAY ! cloud source level vert index REAL AIRM ! total air mass (mol/m2) in cloudy air REAL AIRMB0 ! mol/m2 air below cloud REAL AIRMBI ! inverse mol/m2 air below cloud REAL ALFA0 ! aitken mode number scavenging coef REAL ALFA2 ! aitken mode sfc area scavenging coef REAL ALFA3 ! aitken mode mass scavenging coef REAL ARPRES ! ave cloud pres in atm REAL CONDIS ! REAL CTHK ! cloud thickness (m) REAL CTHK1 ! aq chem calc cloud thickness REAL DAMDP ! dry adiabatic minus dew point lapse rate REAL DP ! pressure increment along moist adiabat REAL DPLR ! dew point lapse rate REAL DQI ! change in ice mix ratio due to melting caused by entrainment REAL DQL ! change in liq wat mix ratio due to evap caused by entrainment REAL DTCLD ! cloud integration timestep (s) REAL DTDP ! moist adiabatic lapse rate REAL DZLCL ! height increment to LCL above source level REAL ZLCL ! height of LCL above ground REAL EMAX ! water vapor pressure at source level REAL EQTH ! parcel equivalent potential temperature REAL EQTHM ! parcel equivalent potential temp REAL FA ! entrainment functional value at TEMPA REAL FB ! entrainment functional value at TEMPB REAL FRAC ! cloud fractional coverage REAL FTST ! functional product in Walcek bisection solver REAL HTST ! temp diff in Walcek bisection solver REAL JH2O2_BAR ! mean H2O2 photolysis rate in subgrid cloud, 1/min REAL JHNO3_BAR ! mean HNO3 photolysis rate in subgrid cloud, 1/min REAL, SAVE :: METSTEP ! timestep on the met file REAL P1 ! intermediate pressure used in calculating WL REAL P2 ! intermediate pressure used in calculating WL REAL P3 ! intermediate pressure used in calculating WL REAL PBAR ! mean pressure in vertical increments up from LCL along moist adiabat REAL PBARC ! mean cloud pressure (Pa) REAL PMAX ! parcel pressure REAL PP ! scratch pressure variable REAL PRATE ! total rainfall (mm/hr) REAL PRATE1 ! storm rainfall rate (mm/hr) REAL QENT ! wat vap mix ratio due to cld sidewall entrainmt REAL QP ! perturbed water vap mix ratio of parcel REAL QXS ! int. excess wat ov grid cell needed for rainout REAL REMOVAC ! variable storing H+ deposition REAL RHOAIR ! air density in kg/m3 REAL RLH ! relative humidity REAL RLHSRC ! relative humidity at cld src level REAL RTCH ! chemical gas const times temp REAL T1 ! perturbed temp to calc neutral buoyancy also used as max temp in cell comparing cloud with environment REAL TBAR ! mean temp in vertical increments up from LCL along moist adiabat REAL TBARC ! mean cloud temp (K) REAL TBASE ! iterative temp along moist adiabat REAL TDMAX ! dew point at source level REAL TEMPA ! lower limit on temp for entrainment solver REAL TEMPB ! upper limit on temp for entrainment solver REAL TEMPC ! scratch temp solved for cloudy air parcel REAL TENT ! temp accounting for cld sidewall entrainment REAL THMAX ! parcel potential temperature REAL TI ! init temp of cloud air before evap of water REAL TLCL ! temp at LCL REAL TMAX ! perturbed temp of parcel REAL TP ! perturbed temp of parcel REAL TTOP ! scr vbl used in application of Eq. 7, W&T REAL TWC ! tot wat cont in cloud (kg H2O/m3 air) REAL WCBAR ! liq water content of cloud (kg/m3) REAL WL ! Warner profile (an earlier version appears appears in Walcek and Taylor (JAS, 1986) REAL WTBAR ! total wat cont (kg/m2) int. thru cloud depth REAL X1 ! intermediate vbles in lapse rate calculation X1 also reused as scratch vble in mixing REAL QDIF ! scratch vbl used in entrainment solver REAL CLOD REAL LWP REAL STRNS ! intermediate to set subgrid cld transmissivity REAL, ALLOCATABLE, SAVE :: AECONCMIN( : ) ! array of minimum concentrations REAL, ALLOCATABLE, SAVE :: BMOL ( : ) ! mol/m2 species below cloud REAL, ALLOCATABLE, SAVE :: CBASE0 ( : ) ! initial ave trace gas mix rat below cld REAL, ALLOCATABLE, SAVE :: CBASEF ( : ) ! final ave trac gas mix rat blw cld (mol/mol) REAL, ALLOCATABLE, SAVE :: CEND ( : ) ! ending equiv gas phase conc (mol/mol) REAL, ALLOCATABLE, SAVE :: POLC ( : ) ! ave vert conc incloud mol sp/m2 and mol sp/ mol air REAL, ALLOCATABLE, SAVE :: REMOV ( : ) ! mol/m2 or mm*mol/lit scavenged REAL :: DENSL( NLAYS ) ! air density (kg/m3) REAL, ALLOCATABLE, SAVE :: F ( : ) ! cloud entrainment fraction to be solved for REAL :: FSIDE( NLAYS ) ! sidewall entrainment vertical profile REAL :: LWC ( NLAYS ) ! liq wat cont of cloud in kg H2O/m3 air REAL, ALLOCATABLE, SAVE :: QICE ( : ) ! ice mixing ratio in cloud REAL, ALLOCATABLE, SAVE :: QLQD ( : ) ! actual liq. wat. mix ratio in cloud REAL :: QVC ( NLAYS ) ! saturation wat vap mix ratio at T1 REAL :: QWAT ( NLAYS ) ! liq wat mix rat, taken as total condensed water (ice + liq) profile (Eq.4, W&T) REAL :: RHOM2( NLAYS ) ! mol/m2 air REAL :: TCLD ( NLAYS ) ! temp of cloudy air parcel REAL FRACMAX ! max frac cov for NP cld REAL PLCL ! pressure at LCL REAL QMAX ! pertbd w.. mix rat of parcel REAL :: RAIN( NCOLS,NROWS ) ! this timestep rainfall (mm/hr) REAL BCLDWT ! below cloud weighting function REAL, ALLOCATABLE, SAVE :: CONCMINL( :,: ) ! minimum concentrations for each species and layer REAL INCLOUD ! final conc in cloud after mix and chem [mol/mol] REAL OUTCLOUD ! final conc outside " " " " " REAL, ALLOCATABLE, SAVE :: PCLD ( :,: ) ! mol sp/mol air in cloud REAL :: RC ( NCOLS,NROWS ) ! hourly convective rainfall (cm) REAL :: PBL ( NCOLS,NROWS ) ! PBL height (m) REAL :: DZZ ( NCOLS,NROWS,NLAYS ) ! computed gridded vble REAL :: DZZL ( NLAYS ) ! grid cell delta Z REAL :: PRES ( NCOLS,NROWS,NLAYS ) ! file gridded vble REAL :: PRESL( NLAYS ) ! grid cell pressure REAL :: JH2O2( NLAYS ) ! H2O2 photolysis rate (1/min) REAL :: JHNO3( NLAYS ) ! HNO3 photolysis rate (1/min) REAL :: QAD ( NLAYS ) ! moist adiab. sat. mix ratio REAL :: QV ( NCOLS,NROWS,NLAYS ) ! input gridded vble REAL :: QVL ( NLAYS ) ! grid cell sp. hum. REAL :: TA ( NCOLS,NROWS,NLAYS ) ! input gridded vble REAL :: TAL ( NLAYS ) ! grid cell temp REAL :: TSAT ( NLAYS ) ! parcel temp along moist adiabat @ half levels REAL :: ZH ( NCOLS,NROWS,NLAYS ) ! mid-layer height (m) REAL :: ZF ( NCOLS,NROWS,NLAYS ) ! level/layer-face height (m) INTEGER ALLOCSTAT C Gridded meteorology data: Golam Sarwar, July 1, 2011 C Latitude and longitude for zenith angle calculation: REAL COSZ ! local cosine of zenith angle CHARACTER( 120 ) :: XMSG = ' ' ! Exit status message C...........Statement Functions REAL ESAT ! sat vap pres (Pa) as fn of T (deg K) REAL QSAT ! sat water vapor mixing ratio REAL T ! temperature dummy arg REAL E ! sat vapor pressure dummy arg REAL P ! pressure dummy arg #ifdef isam REAL, ALLOCATABLE, SAVE :: SA_BASE0 ( :,: ) REAL, ALLOCATABLE, SAVE :: SA_POLC ( :,: ) REAL, ALLOCATABLE, SAVE :: SA_CEND ( :,: ) REAL, ALLOCATABLE, SAVE :: SA_PCLD ( :,:,: ) REAL, ALLOCATABLE, SAVE :: SA_BASEF ( :,: ) REAL, ALLOCATABLE, SAVE :: SA_CCR ( :,:,: ) REAL, ALLOCATABLE, SAVE :: SA_CBELOW ( :,: ) REAL, ALLOCATABLE, SAVE :: SA_REMOV ( :,: ) REAL, ALLOCATABLE, SAVE :: SA_BMOL ( :,: ) REAL, ALLOCATABLE, SAVE :: SA_CONC ( :,:,: ) REAL, ALLOCATABLE, SAVE :: SA_DS4 ( : ) REAL, ALLOCATABLE, SAVE :: SA_INCLOUD( : ) INTEGER, SAVE :: S_SO2, S_SO4J, S_SULF, S_N2O5 INTEGER, SAVE :: C_SO2, C_SO4J, C_SULF INTEGER, SAVE :: S_GLY, S_MGLY, S_AORGCJ INTEGER, SAVE :: C_GLY, C_MGLY, C_AORGCJ REAL, ALLOCATABLE, SAVE :: SA_DCSOA_GLY ( : ) REAL, ALLOCATABLE, SAVE :: SA_DCSOA_MGLY ( : ) INTEGER CSPC REAL BLNC REAL :: SA_SUM #endif INTERFACE SUBROUTINE ACMCLD ( NSP, NLAYS, F, C, DZH, CBELOW, CLBASE, CLTOP, & FRAC, TCLIFE, DTCLD ) INTEGER, INTENT( IN ) :: NSP INTEGER, INTENT( IN ) :: NLAYS REAL, INTENT( IN ) :: F( : ) REAL, INTENT( INOUT ) :: C( :, : ) REAL, INTENT( IN ) :: DZH( : ) REAL, INTENT( INOUT ) :: CBELOW( : ) INTEGER, INTENT( IN ) :: CLBASE INTEGER, INTENT( IN ) :: CLTOP REAL, INTENT( IN ) :: FRAC REAL, INTENT( IN ) :: TCLIFE REAL, INTENT( IN ) :: DTCLD END SUBROUTINE ACMCLD SUBROUTINE SCAVWDEP ( JDATE, JTIME, WTBAR, WCBAR, TBARC, PBARC, & CTHK1, AIRM, PRATE1, TAUCLD, POLC, CEND, & REMOV, REMOVAC, ALFA0, ALFA2, ALFA3 ) INTEGER, INTENT( IN ) :: JDATE, JTIME REAL, INTENT( IN ) :: WTBAR, WCBAR, TBARC, PBARC, & CTHK1, AIRM, PRATE1, TAUCLD REAL, INTENT( IN ) :: POLC ( : ) REAL, INTENT( OUT ) :: CEND( : ), REMOV( : ) REAL, INTENT( OUT ) :: REMOVAC REAL, INTENT( OUT ) :: ALFA0, ALFA2, ALFA3 END SUBROUTINE SCAVWDEP SUBROUTINE AQ_MAP( JDATE, JTIME, WTBAR, WCBAR, TBARC, PBARC, & CTHK1, AIRM, PRATE1, TAUCLD, POLC, CEND, & REMOV, REMOVAC, ALFA0, ALFA2, ALFA3, COSZ ) INTEGER, INTENT( IN ) :: JDATE, JTIME REAL, INTENT( IN ) :: WTBAR, WCBAR, TBARC, PBARC, & CTHK1, AIRM, PRATE1, TAUCLD REAL, INTENT( IN ) :: POLC ( : ) REAL, INTENT( INOUT ) :: CEND( : ), REMOV( : ) REAL, INTENT( INOUT ) :: REMOVAC REAL, INTENT( IN ) :: ALFA0, ALFA2, ALFA3, COSZ END SUBROUTINE AQ_MAP END INTERFACE ESAT( T ) = VP0PA * EXP( C303 - ( C302 / T ) ) QSAT( E, P ) = MVOMA * ( E / ( P - E ) ) C----------------------------------------------------------------------- C begin body of subroutine CONVCLD_ACM C...INITIALIZATION for the CONVCLD_ACM module: C... event-statistics variables. IF ( FIRSTIME ) THEN FIRSTIME = .FALSE. C...Sulfur tracking IF ( STM ) THEN CALL MAP_AERO() CALL MAP_PRECURSOR() END IF IF ( N_AE_SPC .GT. 0 ) THEN ALLOCATE ( AECONCMIN( N_AE_SPC ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating AECONCMIN' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF CALL SET_AECONCMIN ( AECONCMIN ) END IF C cccccccccccccccccccc enable backward compatiblity ccccccccccccccccccccc IF (RCA_AVAIL) THEN RC_NAME = 'RCA' ELSE RC_NAME = 'RC' END IF C...store met file time, date, and step information and compute C... the met timestep in hours SDATE = cio_model_sdate STIME = cio_model_stime MSTEP = file_tstep(f_met) #ifdef mpas call get_env (mpas_cmaq_freq, 'mpas_cmaq_freq', 1) METSTEP = (FLOAT( TIME2SEC( MSTEP ) )/FLOAT(mpas_cmaq_freq)) / 3600.0 !metstep is coupling frequency but rain is per mpas time step #else METSTEP = FLOAT( TIME2SEC( MSTEP ) ) / 3600.0 #endif C...check convective precipitation on met files to determine if WRF used C... a convective parameterization C...in coordination with MCIPv4.0, negative values will be loaded into the RC C... field if a convective parameterization was not used in the WRF simulation call interpolate_var (RC_NAME, sdate, stime, RC) IF ( .NOT. CONVECTIVE_SCHEME) RETURN C...allocate saved arrays ALLOCATE ( F( NLAYS ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating F' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF ALLOCATE ( DZH( NLAYS ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating DZH' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF MXSPCS = NSPCSD ALLOCATE ( CCR ( MXSPCS,NLAYS ), & CONC ( MXSPCS,NLAYS ), & CBELOW( MXSPCS ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating CCR, CONC or CBELOW' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF ALLOCATE ( BMOL ( MXSPCS ), & CBASE0 ( MXSPCS ), & CBASEF ( MXSPCS ), & CEND ( MXSPCS ), & POLC ( MXSPCS ), & REMOV ( MXSPCS ), & QLQD ( NLAYS ), & QICE ( NLAYS ), & STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating BMOL, CBASE0, CBASEF, CEND, POLC, REMOV,' & // ' QLQD or QICE' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF ALLOCATE ( CONCMINL( MXSPCS,NLAYS ), & PCLD ( MXSPCS,NLAYS ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating CONCMINL or PCLD' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF C...Calculate the Sundqvist et al. 1989 threshold humidities for cloud formation based on C...Mocko and Cotton (1995) #ifdef mpas ALLOCATE ( RCRITL( NCOLS,NROWS ), & RCRITW( NCOLS,NROWS ), & STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'EXIT: Failure allocating RCRITL, RCRITW' call prog_interrupt (PNAME, JDATE, JTIME, XMSG, 1) END IF DO ROW = 1, NROWS DO COL = 1, NCOLS XKM = (cell_area(COL,ROW)**0.5)/1000 RCRITW(COL,ROW) = 0.879 + SQRT( 1.0 / ( 100.0 + XKM * XKM )) RCRITL(COL,ROW) = 0.839 + SQRT( 1.0 / ( 50.0 + 0.5 * XKM ** 3 ) ) END DO END DO #else XKM = REAL( XCELL_GD / 1000 ) RCRITW = 0.879 + SQRT( 1.0 / ( 100.0 + XKM * XKM ) ) RCRITL = 0.839 + SQRT( 1.0 / ( 50.0 + 0.5 * XKM ** 3 ) ) #endif C...Sulfur tracking IF ( STM ) THEN C...initialize surrogate array ALLOCATE ( SURCLDMX( MXSPCS ), STAT = ALLOCSTAT ) DO SPC = 1, NSPCSD SURCLDMX( SPC ) = SPC END DO C...set cloud mixing surrogates for the sulfate tracking species DO M = 1, N_MODE SURCLDMX( AEROSPC_MAP( ASO4GAS_IDX, M ) ) = AEROSPC_MAP( ASO4_IDX,M ) SURCLDMX( AEROSPC_MAP( ASO4EMIS_IDX,M ) ) = AEROSPC_MAP( ASO4_IDX,M ) SURCLDMX( AEROSPC_MAP( ASO4ICBC_IDX,M ) ) = AEROSPC_MAP( ASO4_IDX,M ) C... for the accumulation mode, add aqueous tracked species IF ( M .EQ. 2 ) THEN SURCLDMX( AEROSPC_MAP( ASO4AQH2O2_IDX,M ) ) = AEROSPC_MAP( ASO4_IDX,M ) SURCLDMX( AEROSPC_MAP( ASO4AQO3_IDX, M ) ) = AEROSPC_MAP( ASO4_IDX,M ) SURCLDMX( AEROSPC_MAP( ASO4AQFEMN_IDX,M ) ) = AEROSPC_MAP( ASO4_IDX,M ) SURCLDMX( AEROSPC_MAP( ASO4AQMHP_IDX, M ) ) = AEROSPC_MAP( ASO4_IDX,M ) SURCLDMX( AEROSPC_MAP( ASO4AQPAA_IDX, M ) ) = AEROSPC_MAP( ASO4_IDX,M ) END IF IF ( ( AE6ISOA ) .OR. & ( INDEX( MECHNAME, 'CRACMM' ) .GT. 0 ) .OR. & ( INDEX( MECHNAME, 'CB6R3_AE7' ) .GT. 0 ) .OR. & ( INDEX( MECHNAME, 'CB6R5_AE7' ) .GT. 0 ) .OR. & ( INDEX( MECHNAME, 'CB6R5M_AE7' ) .GT. 0 ) ) THEN C... for the accumulation mode, add aqueous tracked species IF ( M .EQ. 2 ) THEN SURCLDMX( AEROSPC_MAP( OSO4GAS_IDX, M ) ) = AEROSPC_MAP( OSO4_IDX,M ) SURCLDMX( AEROSPC_MAP( OSO4EMIS_IDX, M ) ) = AEROSPC_MAP( OSO4_IDX,M ) SURCLDMX( AEROSPC_MAP( OSO4ICBC_IDX, M ) ) = AEROSPC_MAP( OSO4_IDX,M ) SURCLDMX( AEROSPC_MAP( OSO4AQH2O2_IDX,M ) ) = AEROSPC_MAP( OSO4_IDX,M ) SURCLDMX( AEROSPC_MAP( OSO4AQO3_IDX, M ) ) = AEROSPC_MAP( OSO4_IDX,M ) SURCLDMX( AEROSPC_MAP( OSO4AQFEMN_IDX,M ) ) = AEROSPC_MAP( OSO4_IDX,M ) SURCLDMX( AEROSPC_MAP( OSO4AQMHP_IDX, M ) ) = AEROSPC_MAP( OSO4_IDX,M ) SURCLDMX( AEROSPC_MAP( OSO4AQPAA_IDX, M ) ) = AEROSPC_MAP( OSO4_IDX,M ) END IF END IF END DO SPC = 0 STRT = AE_STRT FINI = AE_STRT - 1 + N_AE_SPC DO VAR = STRT, FINI SPC = SPC + 1 WRITE( XMSG, '(i6,1x,A16,1x,i6,1x,a16)') VAR, AE_SPC( SPC ), SURCLDMX( VAR ), AE_SPC( SURCLDMX( VAR )-AE_STRT+1 ) CALL M3MESG ( XMSG ) END DO END IF ! stm #ifdef isam C Move this to a better place later S_SO2 = INDEX1( 'SO2', NSPC_SA, ISAM_SPEC(:,OTHRTAG) ) S_SO4J = INDEX1( 'ASO4J', NSPC_SA, ISAM_SPEC(:,OTHRTAG) ) S_SULF = INDEX1( 'SULF', NSPC_SA, ISAM_SPEC(:,OTHRTAG) ) S_N2O5 = INDEX1( 'N2O5', NSPC_SA, ISAM_SPEC(:,OTHRTAG) ) C_SO2 = INDEX1( 'SO2', N_GC_SPC, GC_SPC ) C_SO4J = INDEX1( 'ASO4J', N_AE_SPC, AE_SPC ) + 1 + N_GC_SPC C_SULF = INDEX1( 'SULF', N_GC_SPC, GC_SPC ) ALLOCATE ( SA_BASE0 ( NSPC_SA, NTAG_SA ), & SA_BASEF ( NSPC_SA, NTAG_SA ), & SA_POLC ( NSPC_SA, NTAG_SA ), & SA_CEND ( NSPC_SA, NTAG_SA ), & SA_PCLD ( NSPC_SA, NLAYS, NTAG_SA ), & SA_CCR ( NSPC_SA, NLAYS, NTAG_SA ), & SA_CBELOW ( NSPC_SA, NTAG_SA ), & SA_REMOV ( NSPC_SA, NTAG_SA ), & SA_BMOL ( NSPC_SA, NTAG_SA ), & SA_CONC ( NSPC_SA, NLAYS, NTAG_SA ), & SA_DS4 ( NTAG_SA ), & SA_INCLOUD( NTAG_SA ), & STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating SA arrays' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF S_GLY = INDEX1( 'GLY', NSPC_SA, ISAM_SPEC(:,OTHRTAG) ) S_MGLY = INDEX1( 'MGLY', NSPC_SA, ISAM_SPEC(:,OTHRTAG) ) S_AORGCJ = INDEX1( 'AORGCJ', NSPC_SA, ISAM_SPEC(:,OTHRTAG) ) C_GLY = INDEX1( 'GLY', N_GC_SPC, GC_SPC ) C_MGLY = INDEX1( 'MGLY', N_GC_SPC, GC_SPC ) C_AORGCJ = INDEX1( 'AORGCJ', N_AE_SPC, AE_SPC ) + 1 + N_GC_SPC ALLOCATE ( SA_DCSOA_GLY ( NTAG_SA ), & SA_DCSOA_MGLY ( NTAG_SA ), & STAT = ALLOCSTAT ) #endif #ifdef sens IF ( .NOT. ALLOCATED( S_CEND ) ) ALLOCATE ( S_CEND ( NPMAX, MXSPCS ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating S_CEND' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF IF ( .NOT. ALLOCATED( S_POLC ) ) ALLOCATE ( S_POLC ( NPMAX, MXSPCS ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating S_POLC' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF IF ( .NOT. ALLOCATED( S_REMOV ) ) ALLOCATE ( S_REMOV ( NPMAX, MXSPCS ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating S_REMOV' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF IF ( .NOT. ALLOCATED( S_REMOVAC ) ) ALLOCATE ( S_REMOVAC ( NPMAX ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating S_REMOVAC' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF S_REMOVAC = 0.0 IF ( .NOT. ALLOCATED( S_CCR ) ) ALLOCATE ( S_CCR ( NPMAX,MXSPCS,NLAYS ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating S_CCR' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF S_CCR = 0.0D0 IF ( .NOT. ALLOCATED( S_CBELOW ) ) ALLOCATE ( S_CBELOW ( NPMAX,MXSPCS ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating S_REMOVAC' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF S_CBELOW = 0.0D0 ALLOCATE ( S_CONC ( NPMAX,MXSPCS,NLAYS ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating S_CONC' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF ALLOCATE ( S_BMOL ( NPMAX,MXSPCS ), & S_CBASE0 ( NPMAX,MXSPCS ), & S_CBASEF ( NPMAX,MXSPCS ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating S_BMOL, S_CBASE0, or S_CBASEF' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF ALLOCATE ( S_BCLDWT ( NPMAX,MXSPCS,NLAYS ), & S_INCLOUD ( NPMAX,MXSPCS,NLAYS ), & S_OUTCLOUD( NPMAX,MXSPCS,NLAYS ), & S_PCLD ( NPMAX,MXSPCS,NLAYS ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating S_BCLDWT, S_INCLOUD, S_OUTCLOUD or S_PCLD' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF #endif END IF ! Firstime IF ( .NOT. CONVECTIVE_SCHEME) RETURN C...check option for processing clouds on the synchronization timestep IF ( SYNCCLD ) THEN MDATE = JDATE MTIME = JTIME C...set the cloud timestep (=adv timestep) STEP = TIME2SEC( TSTEP( 2 ) ) ! synchronization timestep DTCLD = REAL( STEP ) C...set time to the midpoint of this timestep for data interpolation CALL NEXTIME ( MDATE, MTIME, SEC2TIME( STEP / 2 ) ) C...otherwise, revert back to processing convective cloud once per hour C... on the half hour ELSE C...Check to see if this time step contains the half-hour C... if it does not, then return MDATE = JDATE MTIME = 10000 * ( JTIME / 10000 ) ! on the current hour STEP = TIME2SEC( TSTEP( 2 ) ) ! synchronization timestep DTCLD = TCLIFE C... set mdate:mtime to one-half step before the half-hour CALL NEXTIME ( MDATE, MTIME, SEC2TIME( 1800 - ( STEP / 2 ) ) ) ATIME = SECSDIFF( MDATE, MTIME, JDATE, JTIME ) IF ( ( ATIME .LT. 0 ) .OR. ( ATIME .GE. STEP ) ) RETURN C...the current timestep overlaps the half hour point C... set the time to the half hour for data interpolation MTIME = 10000 * ( JTIME / 10000 ) + 3000 END IF C...clear arrays that capture ACM cloud results C...ACTUAL SCIENCE PROCESS (loop on internal process time steps): C... Interpolate time dependent layered input variables C... (reading those variables for which it is necessary) C... Get ambient temperature (K) call interpolate_var ('TA', mdate, mtime, TA) C...Get specific humidity (kg H2O / kg air) call interpolate_var ('QV', mdate, mtime, QV) C...Get level heights / layer faces (m) call interpolate_var ('ZF', mdate, mtime, ZF) C...Get mid-layer heights (m) call interpolate_var ('ZH', mdate, mtime, ZH) C...Get pressure (Pa) call interpolate_var ('PRES', mdate, mtime, PRES) C...compute layer thicknesses (m) DO ROW = 1, NROWS DO COL = 1, NCOLS DZZ( COL,ROW, 1 ) = ZF( COL,ROW, 1 ) DO LAY = 2, NLAYS DZZ( COL,ROW,LAY ) = ZF( COL,ROW,LAY ) - ZF( COL,ROW,LAY - 1 ) END DO END DO END DO C...Get PBL height (m) call interpolate_var ('PBL', mdate, mtime, PBL) C...advance the MDATE and MTIME to the next time on the met file C... to get ready to read the precipitation amounts. C... Precipitation data WILL NOT BE INTERPOLATED! Precipitation data C... on the input file are amounts within the metfiles timestep. IF ( .NOT. CURRSTEP( JDATE, JTIME, SDATE, STIME, MSTEP, & MDATE, MTIME ) ) THEN XMSG = 'Cannot get step-starting date and time' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT3 ) END IF CALL NEXTIME ( MDATE, MTIME, MSTEP ) ! set mdate:mtime to the hour C...Get convective precipitation amount (cm) call interpolate_var (RC_NAME, mdate, mtime, RC) C...Convert the rainfall rate into mm/hr, then set a flag noting the C... presence of raining clouds if the rainfall is above the specified C... threshold DO ROW = 1, NROWS DO COL = 1, NCOLS RAIN( COL,ROW ) = 10.0 * RC( COL,ROW ) / METSTEP END DO END DO IF ( MINVAL( RAIN ) .LT. 0.0 ) THEN XMSG = 'NEGATIVE RAIN...PROBABLY BAD MET DATA... in' // MET_CRO_2D CALL M3EXIT ( PNAME, MDATE, MTIME, XMSG, XSTAT1 ) END IF WHERE ( RAIN .GE. RTHRESH ) CONV_DEP( :,:,N_SPC_WDEP + 6 ) = 1.0 C...Loop through all grid cells DO ROW = 1, NROWS DO COL = 1, NCOLS QLQD = 0.0 QICE = 0.0 CLBASE = NLAYS CLTOPUSTBL = NLAYS QMAX = 0.0 PLCL = 0.0 SRCLAY = NLAYS DO LAY = 1, NLAYS QAD( LAY ) = 0.0 PRESL( LAY ) = PRES( COL,ROW,LAY ) TAL( LAY ) = TA( COL,ROW,LAY ) QVL( LAY ) = QV( COL,ROW,LAY ) DZZL( LAY ) = DZZ( COL,ROW,LAY ) DENSL( LAY ) = PRESL( LAY ) & / ( RDGAS * TAL( LAY ) * ( 1.0 + RWVAP * QVL( LAY ) / RDGAS ) ) JH2O2( LAY ) = RJ_SUB( COL,ROW,LAY,LH2O2_PHOTOLYSIS ) JHNO3( LAY ) = RJ_SUB( COL,ROW,LAY,LHNO3_PHOTOLYSIS ) END DO C...load aerosol minimum concentrations into the "CONCMINL" array C... initialize all species to CMIN ! CONCMINL = CMIN CONCMINL = 1.0E-25 #ifdef sens DDM3D_CONCMINL = 1.0D-15 #endif C... set minimum for aerosol species SPC = 0 STRT = AE_STRT FINI = AE_STRT - 1 + N_AE_SPC DO VAR = STRT, FINI SPC = SPC + 1 DO LAY = 1, NLAYS CONCMINL( VAR,LAY ) = AECONCMIN( SPC ) / DENSL( LAY ) END DO END DO DO LAY = 1, NLAYS DO SPC = 1, NSPCSD CONC( SPC,LAY ) = MAX( CGRD( COL,ROW,LAY,SPC ), & CONCMINL( SPC,LAY ) ) #ifdef sens DO NP = 1, NPMAX IF ( CGRD( COL,ROW,LAY,SPC ) .LT. CONCMINL( SPC, LAY ) ) THEN S_CONC( NP, SPC, LAY ) = 0.0D0 ELSE S_CONC( NP, SPC, LAY ) = REAL ( SENGRID( COL, ROW, LAY, NP, SPC ), 8 ) END IF END DO #endif END DO END DO #ifdef isam DO SPC = 1, NSPC_SA CSPC = MAP_SAtoCGR(SPC) DO ITAG = 1, NTAG_SA DO LAY = 1, NLAYS SA_CONC( SPC,LAY,ITAG ) = MAX( ISAM( COL,ROW,LAY,SPC,ITAG ), c & CONCMINL( CSPC,LAY ) ) & 1.0E-30 ) END DO END DO END DO #endif C...Test for raining clouds C...If the rainfall amount is below the specified threshold, then set C... values for some of the parameters which will be used when the C... routine is called again for non-precipitating clouds...then C... skip to the next grid cell. IF ( RAIN( COL,ROW ) .GE. RTHRESH ) THEN ICLDTYPE = 1 PRATE = RAIN( COL,ROW ) FRACMAX = 0.0 ELSE ICLDTYPE = 2 FRACMAX = 0.5 END IF C...Determine cloud source level by determining equivalent C... potential temperature profile given perturbed temperature C... and water vapor to account for local hot spots which C... initiate convection. Layer with maximum equivalent C... potential temperature is cloud source layer. SRCLAY = 1 TMAX = TAL( 1 ) + PERT QMAX = QVL( 1 ) + PERQ PMAX = PRESL( 1 ) THMAX = TMAX * ( 1.0E+05 / PMAX ) ** ROVCP EQTHM = THMAX * EXP( LVOCP * QMAX / TMAX ) DO LAY = 2, NLAYS PP = PRESL( LAY ) IF ( ZH( COL,ROW,LAY ) .GT. 3000.0 ) EXIT ! 650 mb TP = TAL( LAY ) + PERT QP = QVL( LAY ) + PERQ THMAX = TP * ( 1.0E+05 / PP ) ** ROVCP EQTH = THMAX * EXP( LVOCP * QP / TP ) IF ( EQTH .GT. EQTHM ) THEN TMAX = TP SRCLAY = LAY QMAX = QP PMAX = PP EQTHM = EQTH END IF END DO C...Equivalent potential temp max is now known between LAY 1 C... and 650 mb. We now proceed to compute lifting condensation C... level. First, compute vapor pressure at the source level. C... Find dewpoint using empirical relationship, avoiding C... supersaturation. Then compute dew point lapse rate - C... see Walcek and Taylor, 1986. EMAX = QMAX * PMAX / ( MVOMA + QMAX ) TDMAX = C302 / ( C303 - LOG( EMAX * VPINV ) ) TDMAX = MIN( TDMAX, TMAX ) DPLR = ( GRAV * TDMAX * TDMAX ) / ( MVOMA * LV0 * TMAX ) c...Compute difference between dry adiabatic and dew point lapse C... rate, height increment above source level to reach LCL, C... then calculate value of pressure at LCL. Save result C... in CONV_DEP( *,*,N_SPC_WDEP+2 ). DAMDP = DALR - DPLR IF ( DAMDP .LE. 0.0 ) THEN DZLCL = 0.0 PLCL = PMAX C...walcek formula TLCL = TMAX C...walcek formula ELSE DZLCL = ( TMAX - TDMAX ) / DAMDP C...walcek formula TLCL = TMAX - DALR * DZLCL C...walcek formula TBAR = TMAX - 0.5 * DALR * DZLCL ! midpt of TMAX, TLCL TBAR = MAX( TBAR , 150.0 ) PLCL = PMAX * EXP( -( GRAV / RDGAS ) * DZLCL / TBAR ) ZLCL = DZLCL + ZH( COL,ROW, SRCLAY ) END IF CONV_DEP( COL,ROW, N_SPC_WDEP + 2 ) = PLCL C...Determine cloud base at LAY in which LCL resides, C... but not below layer 2. C...plcl above middle of top layer IF ( PRESL( NLAYS ) .GE. PLCL ) THEN PLCL = PRESL( NLAYS ) CLBASE = NLAYS CLTOP = CLBASE WRITE( LOGDEV,* ) ' WARNING: PLCL above top: Continuing' C...search loop to find CLBASE ELSE CLBASE = NLAYS DO LAY = NLAYS, 2, -1 IF ( PRESL( LAY ) .LE. PLCL ) CLBASE = LAY END DO END IF ! if plcl < ptop or , or ... C...CLBASE is LAY of LCL. Now, determine cloud top by following C... moist adiabat up from CLBASE. Assume a stable sounding C... (ISOUND=0) at first. Moist adiabat solver calculates C... saturation temperatures TF at the full levels and TSAT( COL,ROW,LAY ) C... at the half-levels, using a 2nd order Runge method employing C... temperatures and pressures at the quarter-levels. ISOUND = 0 DO 255 LAY = CLBASE, NLAYS C...walcek formulas DP = PRESL( LAY - 1 ) - PRESL( LAY ) PBAR = PRESL( LAY - 1 ) - DP * 0.5 IF ( LAY .EQ. CLBASE ) THEN DP = PLCL - PRESL( LAY ) PBAR = PLCL - DP * 0.5 TBASE = TLCL END IF TBAR = MAX( TBASE - 0.00065 * DP, 150.0 ) X1 = LV0 * QSAT( ESAT( TBAR ), PBAR ) / ( RDGAS * TBAR ) ! Walcek's DTDP = ( ( RDGAS * TBAR ) / ( PBAR * CPD ) ) ! original & * ( ( 1.0 + X1 ) ! formulas & / ( 1.0 + ( 0.622 * LVOCP / TBAR ) * X1 ) ) TSAT( LAY ) = MAX( TBASE - DP * DTDP, 150.0 ) QAD ( LAY ) = QSAT( ESAT( TSAT( LAY ) ), PRESL( LAY ) ) TBASE = TSAT( LAY ) C...end Walcek formulas C...QAD is the moist adiabatic saturation mixing ratio, needed C... for the entrainment solver C... Now make choice on stability of sounding, comparing parcel C... temperature TSAT with environmental temperature TA. C... ISOUND is index for sounding stability. If ISOUND=0, C... moist adiabat never warmer than environment (stable). C... ISOUND=1, moist adiabat becomes warmer than environment C... (unstable). IF ( ISOUND .EQ. 0 ) THEN IF ( TSAT( LAY ) .GT. TAL( LAY ) ) ISOUND = 1 ELSE ! cloud top determined by neutral bouyancy T1 = TSAT( LAY ) ! - 0.5 * PERT IF ( T1 .LT. TAL( LAY ) ) THEN CLTOP = LAY - 1 GO TO 256 END IF END IF 255 CONTINUE ! end loop following moist adiabat CLTOP = NLAYS - 1 ! if you get here: cloud stable or no top 256 CONTINUE C...At this point, if ISOUND has not been set to 1, we have a C... "stable" cloud. In this case, we find cloud top by relative C... humidity criterion, or, not let cloud top go above 600mb. IF ( ISOUND .EQ. 0 ) THEN IF ( ICLDTYPE .NE. 1 ) CYCLE ! Loop to next row-column coordinate DO 265 LAY = CLBASE + 1, NLAYS IF ( PRESL( LAY ) .LE. 60000.0 ) THEN CLTOP = LAY - 1 GO TO 267 ! loop exit END IF RLH = QVL( LAY ) / QSAT( ESAT( TAL( LAY ) ), PRESL( LAY ) ) IF ( RLH .LT. 0.65 ) THEN CLTOP = LAY - 1 GO TO 267 ! loop exit END IF 265 CONTINUE CLTOP = NLAYS - 1 ! if you get here: top never found ELSE CLTOPUSTBL = CLTOP ! store unstable cloud top END IF 267 CONTINUE ! loop exit target CONV_DEP( COL,ROW, N_SPC_WDEP + 3 ) = FLOAT( CLBASE ) IF ( ICLDTYPE .EQ. 1 ) THEN ! store raining cloud top and proceed CONV_DEP( COL,ROW, N_SPC_WDEP + 4 ) = FLOAT( CLTOP ) ELSE ! get cloud top for either CNP or PFW IF ( ZLCL .GT. PBL( COL,ROW ) ) CYCLE ! Loop to next row-column coordinate C...compute relative humidity at the cloud source level RLHSRC = MIN( 1.0, QVL( SRCLAY ) & / QSAT( ESAT( TAL( SRCLAY ) ), PRESL( SRCLAY ) ) ) C...If all tests pass, then a CNP or PFW cloud exists C... Proceed to find CLTOP for CNP or PFW; don`t allow C... cloud top to exceed 500mb, or, when RH falls below C... 65%, cloud top found C...Distiguish between CNP and PFW by whether rain is falling C... in the cell; if PFW, limit depth and find new CLTOP, C... else leave CLTOP alone IF ( CLTOP .EQ. CLBASE ) THEN GO TO 322 ELSE ! confine PFW to 1500 meters CTOP = CLTOP DO LAY = CTOP, CLBASE, -1 IF ( ZH( COL,ROW,LAY ) - ZH( COL,ROW,CLBASE ) .LE. 3000.0 ) THEN CLTOP = LAY GO TO 322 ! exit loop END IF END DO END IF 322 CONTINUE ! loop exit for PFW cloud C...If unstable CNP or PFW, limit CLTOP to CLTOPUSTBL so that C... QAD profile is known through cloud depth for entrainment C... solver IF ( ISOUND .EQ. 1 ) CLTOP = MIN( CLTOP, CLTOPUSTBL ) C...Now compute fractional coverage for either CNP or PFW: C...Now based on Sunqdvist et al. 1989 DOI: 10.1175/1520-0493(1989)117<1641:CACPSW>2.0.CO;2 FRAC = 0.0 IF ( GRID_DATA%LWMASK( COL,ROW ) .EQ. 1.0 ) THEN ! land #ifdef mpas IF ( RLHSRC .GE. RCRITL(COL,ROW) ) & FRAC = 1.0 - SQRT( ( 1.0 - RLHSRC ) / ( 1.0 - RCRITL(COL,ROW) ) ) ELSE ! water IF ( RLHSRC .GE. RCRITW(COL,ROW) ) & FRAC = 1.0 - SQRT( ( 1.0 - RLHSRC ) / ( 1.0 - RCRITW(COL,ROW) ) ) #else IF ( RLHSRC .GE. RCRITL ) & FRAC = 1.0 - SQRT( ( 1.0 - RLHSRC ) / ( 1.0 - RCRITL ) ) ELSE ! water IF ( RLHSRC .GE. RCRITW ) & FRAC = 1.0 - SQRT( ( 1.0 - RLHSRC ) / ( 1.0 - RCRITW ) ) #endif END IF FRAC = MAX( 0.0, MIN( FRAC, 0.95 ) ) IF ( FRAC .LT. 0.01 ) CYCLE ! Loop to next row-column coordinate CONV_DEP( COL,ROW, N_SPC_WDEP + 5 ) = FLOAT( CLTOP ) ! store NP cloud top CONV_DEP( COL,ROW, N_SPC_WDEP + 8 ) = FRAC END IF ! end of existence, depth and frac cov calc for ! either PFW or CNP clouds C...Now cloud existence is established, initialize various C... variables needed for rest of computations C...First, get mol air/m2 at each layer, initialize FSIDE DO LAY = 1, NLAYS RHOM2( LAY ) = DENSL( LAY ) * DZZL( LAY ) * 1.0E3 / MWAIR FSIDE( LAY ) = 0.0 END DO DO SPC = 1, NSPCSD REMOV( SPC ) = 0.0 ! mol/m2 or mm*mol/lit scavenged CEND ( SPC ) = 0.0 ! ending equiv gas phase conc (mol/mol) BMOL ( SPC ) = 0.0 ! mol/m2 species below cloud POLC ( SPC ) = 0.0 ! mol/m2 species in cloud DO LAY = 1, NLAYS PCLD( SPC,LAY ) = 0.0 ! mol sp/mol air in cloud END DO END DO #ifdef sens S_REMOV = 0.0D0 S_CEND = 0.0D0 S_BMOL = 0.0D0 S_POLC = 0.0D0 S_BCLDWT = 0.0D0 S_PCLD = 0.0D0 #endif C...compute no. of moles air below cloud base and inverse AIRMB0 = 0.0 DO LAY = 1, CLBASE - 1 AIRMB0 = AIRMB0 + RHOM2( LAY ) END DO C...take the inverse AIRMBI = 1.0 / AIRMB0 C...below cloud base DO LAY = 1, CLBASE - 1 C...determine no. of mol/m2 of trace gas DO SPC = 1, NSPCSD BMOL( SPC ) = BMOL( SPC ) + CONC( SPC,LAY ) * RHOM2( LAY ) #ifdef sens DO NP = 1, NPMAX S_BMOL( NP,SPC ) = S_BMOL( NP,SPC ) & + S_CONC( NP,SPC,LAY ) * REAL ( RHOM2( LAY ), 8 ) END DO #endif END DO END DO C...determine average trace gas mixing ratio below cloud level DO SPC = 1, NSPCSD CBASE0( SPC ) = BMOL( SPC ) * AIRMBI CBASEF( SPC ) = CBASE0( SPC ) #ifdef sens DO NP = 1, NPMAX S_CBASE0( NP,SPC ) = S_BMOL( NP,SPC ) * REAL ( AIRMBI, 8 ) S_CBASEF( NP,SPC ) = S_CBASE0( NP,SPC ) END DO #endif END DO #ifdef isam SA_BMOL = 0.0 SA_REMOV = 0.0 SA_CEND = 0.0 SA_PCLD = 0.0 SA_POLC = 0.0 DO ITAG = 1, NTAG_SA DO LAY = 1, CLBASE - 1 DO SPC = 1, NSPC_SA SA_BMOL( SPC,ITAG ) = SA_BMOL( SPC,ITAG ) + & + SA_CONC( SPC,LAY,ITAG ) & * RHOM2( LAY ) END DO END DO END DO DO ITAG = 1, NTAG_SA DO SPC = 1, NSPC_SA SA_BASE0(SPC,ITAG) = SA_BMOL( SPC,ITAG ) * AIRMBI SA_BASEF(SPC,ITAG) = SA_BASE0(SPC,ITAG) END DO END DO #endif C...Initialize variables needed for entrainment and in-cloud properties solver QXS = 0.0 ! integrated excess water over grid cell nec. for rnout AIRM = 0.0 ! total air mass (mol/m2) in cloudy layers PBARC = 0.0 ! in-cloud average pressure CTHK = 0.0 ! cloud thickness (m) WCBAR = 0.0 ! condensed wat cont (kg/m2) integ. thru cloud depth WTBAR = 0.0 ! total wat cont (kg/m2) integrated thru cloud depth TBARC = 0.0 ! cloud mean temp (K) JH2O2_BAR = 0.0 ! cloud H2O2 photolysis, 1/min JHNO3_BAR = 0.0 ! cloud HNO3 photolysis, 1/min C...Determine condensed water content and entrainment at each cloud level C...Determine FSIDE profile for raining clouds; side entrainment C... only for PFW and CNP clouds IF ( ICLDTYPE .EQ. 1 ) THEN ! raining cloud IF ( CLBASE .EQ. CLTOP ) THEN FSIDE( CLBASE ) = 1.0 ELSE DO LAY = CLBASE, CLTOP FSIDE( LAY ) = 1.0 END DO END IF ELSE ! CNP or PFW DO LAY = CLBASE, CLTOP FSIDE( LAY ) = 1.0 END DO END IF C...Use Warner profile to close system of conservation and C... thermodynamic equations solved iteratively, using Secant solver DO LAY = CLBASE, CLTOP WL = 0.7 * EXP( ( PRESL( LAY ) - PLCL ) * 0.000125 ) + 0.2 IF ( LAY .EQ. CLBASE ) THEN P1 = 0.5 * ( PRESL( LAY ) + PRESL( LAY - 1 ) ) IF ( PLCL .LT. P1 ) THEN P2 = 0.5 * ( PRESL( LAY + 1 ) + PRESL( LAY ) ) P3 = ( P2 + PLCL ) * 0.5 WL = 0.7 * EXP( ( P3 - PLCL ) * 0.000125 ) + 0.2 END IF END IF c...original Walcek bisection solver QWAT( LAY ) = WL * ( QMAX - QAD( LAY ) ) QWAT( LAY ) = MAX( QWAT( LAY ), 1.0E-20 ) TEMPA = TSAT( LAY ) - 20.0 TEMPB = TSAT( LAY ) + 10.0 QENT = FSIDE( LAY ) * QVL( LAY ) & + ( 1.0 - FSIDE( LAY ) ) * QVL( CLTOP ) QDIF = QENT - QMAX IF ( QDIF .EQ. 0.0 ) QDIF = 1.0E-10 F( LAY ) = ( QSAT( ESAT( TEMPA ), PRESL( LAY ) ) & + QWAT( LAY ) - QMAX ) / QDIF F( LAY ) = MIN( F( LAY ), 1.0 ) F( LAY ) = MAX( F( LAY ), 0.0 ) TTOP = TAL( CLTOP ) * ( PRESL( LAY ) / PRESL( CLTOP ) ) ** ROVCP TENT = TTOP * ( 1.0 - FSIDE( LAY ) ) + TAL( LAY ) * FSIDE( LAY ) TI = TSAT( LAY ) * ( 1.0 - F( LAY ) ) + TENT * F( LAY ) DQL = ( QMAX - QAD( LAY ) ) * ( 1.0 - F( LAY ) - WL ) DQI = 0.0 IF ( TEMPA .LT. 273.15 ) THEN DQI = -QWAT( LAY ) * ( TEMPA - 273.15 ) / 18.0 IF ( TEMPA .LE. 255.15 ) DQI = QWAT( LAY ) END IF FA = CPD * ( TEMPA - TI ) + LV0 * DQL + LF0 * DQI C...test for convergence, then cut the interval in half I599C = 0 599 CONTINUE HTST = TEMPB - TEMPA IF ( HTST .LT. TST ) GO TO 595 ! convergence I599C = I599C + 1 IF ( I599C .GT. 1000 ) THEN WRITE( XMSG, 91010 ) & 'NO CONVERGENCE IN ENTRAINMENT SOLVER AT COL= ', & COL, ' ROW= ', ROW, ' ICLDTYPE= ', ICLDTYPE CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT2 ) END IF TEMPC = ( TEMPA + TEMPB ) * 0.5 QENT = FSIDE( LAY ) * QVL( LAY ) & + ( 1.0 - FSIDE( LAY ) ) * QVL( CLTOP ) QDIF = QENT - QMAX IF ( QDIF .EQ. 0.0 ) QDIF = 1.0E-10 F( LAY ) = ( QSAT( ESAT( TEMPC ), PRESL( LAY ) ) & + QWAT( LAY ) - QMAX ) / QDIF F( LAY ) = MIN( F( LAY ), 0.99 ) F( LAY ) = MAX( F( LAY ), 0.01 ) TTOP = TAL( CLTOP ) * ( PRESL( LAY ) / PRESL( CLTOP ) ) ** ROVCP TENT = TTOP * ( 1.0 - FSIDE( LAY ) ) + TAL( LAY ) * FSIDE( LAY ) TI = TSAT( LAY ) * ( 1.0 - F( LAY ) ) + TENT * F( LAY ) DQL = ( QMAX - QAD( LAY ) ) * ( 1.0 - F( LAY ) - WL ) DQI = 0.0 IF ( TEMPC .LT. 273.15 ) THEN DQI = -QWAT( LAY ) * ( TEMPC - 273.15 ) / 18.0 IF ( TEMPC .LE. 255.15 ) DQI = QWAT( LAY ) END IF FB = CPD * ( TEMPC - TI ) + LV0 * DQL + LF0 * DQI FTST = FA * FB C...if fa*fb < 0 then zero lies between ta & tc C...if fa*fb > 0 then zero lies between tc & tb IF ( FTST .LE. 0.0 ) THEN TEMPB = TEMPC ELSE TEMPA = TEMPC END IF GO TO 599 595 CONTINUE ! exit from iterator, convergence achieved C...we have obtained parcel temp TEMPC at layer LAY C...and entrainment fraction F(LAY) C...end of Walcek bisection solver TCLD( LAY ) = MAX( TEMPC, 150.0 ) C...ice load in cloud is a function of temperature below freezing IF ( TCLD( LAY ) .LT. 273.15 ) THEN QICE( LAY ) = -QWAT( LAY ) * ( TCLD( LAY ) - 273.15 ) / 18.0 IF ( TCLD( LAY ) .LE. 255.15 ) QICE( LAY ) = QWAT( LAY ) END IF C...After determining the ice fraction, compute the actual C... liquid water mixing ratio: QLQD( LAY ) = QWAT( LAY ) - QICE( LAY ) C...compute the Liquid Water Content (LWC) by taking the C... product of the liquid wat mix ratio and the air density C... LWC in kg H2O per m**3 air: RHOAIR = PRESL( LAY ) / ( RDGAS * TCLD( LAY ) ) LWC( LAY ) = QLQD( LAY ) * RHOAIR LWC( LAY ) = MAX( 5.0E-6, LWC( LAY ) ) ! lower limit TWC = QWAT( LAY ) * RHOAIR ! total water content C...Now perform vertical integration, weighting by liquid water C... content so that averaged quantities (used in Aqueous C... Chemistry) get the greatest weight where the liquid C... water content is greatest. C...weighted cloud temp TBARC = TBARC + TCLD( LAY ) * DZZL( LAY ) * LWC( LAY ) C...weighted cloud pres PBARC = PBARC + PRESL( LAY ) * DZZL( LAY ) * LWC( LAY ) C...weighted photolysis rate JH2O2_BAR = JH2O2_BAR + JH2O2( LAY ) * DZZL( LAY ) * LWC( LAY ) JHNO3_BAR = JHNO3_BAR + JHNO3( LAY ) * DZZL( LAY ) * LWC( LAY ) C...integrated liquid water content (kg/m3) WCBAR = WCBAR + DZZL( LAY ) * LWC( LAY ) C...integrated total water content WTBAR = WTBAR + DZZL( LAY ) * TWC CTHK = CTHK + DZZL( LAY ) ! Cloud thickness C...Now compute integrated excess water over grid cell C... average necessary for rainout, through cloud depth. C... First, get max temp in the cell (either in cloud or env.) T1 = MAX( TCLD( LAY ), TAL( LAY ) ) C...get saturation water vapor mixing ratio at that temp: QVC( LAY ) = QSAT( ESAT( T1 ), PRESL( LAY ) ) C...excess water is the sum of total condensed and saturated C... vapor minus grid cell average mixing ratio: QXS in kg/m2: C... integrated through cloud depth QXS = QXS & + ( QWAT( LAY ) + QVC( LAY ) - QVL( LAY ) ) & * RHOAIR * DZZL( LAY ) C...get total air mass in cloudy layers: AIRM = AIRM + RHOM2( LAY ) END DO C...Now begin to split calculations for non-raining and raining C... clouds depending on inner loop index ICLDTYPE (1 = raining, C... 2 = nonraining: either CNP of PFW:) IF ( ICLDTYPE .EQ. 2 ) THEN ! no precip or excess water PRATE1 = 1.0E-30 PRATE = 1.0E-30 QXS = 1.0E-30 ELSE C...continue here for raining cloud... C...get PRATE1, storm rainout rate in mm/hour, noting that 1 kg C... of water occupies a 1 mm thick layer of water in a square meter C... of ground (accounts for density of water = 1000 kg/m3) PRATE1 = STORME * QXS * 3600.0 / TCLIFE IF ( PRATE1 .LE. 1.001 * PRATE ) THEN FRAC = 0.999 ! Changed back to .999 - jp 6/05 PRATE1 = PRATE / FRAC ELSE FRAC = PRATE / PRATE1 END IF IF ( FRAC .LT. 0.01 ) CYCLE ! Loop to next row-column coordinate C...for raining cloud, compute water properties of interest C... below cloud base. First, parameterize total water content TWC = ( 0.067 * PRATE ** ( 0.846 ) ) / ( FRAC * 1000.0 ) ! tot wat cont kg/m3 DO LAY = 1, CLBASE - 1 TCLD( LAY ) = TAL( LAY ) RHOAIR = PRESL( LAY ) / ( RDGAS * TCLD( LAY ) ) QWAT( LAY ) = TWC / RHOAIR ! kg H2O / kg air C...again partition into ice and liquid IF ( TCLD( LAY ) .LT. 273.15 ) THEN QICE( LAY) = -QWAT( LAY ) * ( TCLD( LAY ) - 273.15 ) / 18.0 IF ( TCLD( LAY ) .LE. 255.15 ) QICE( LAY ) = QWAT( LAY ) END IF QLQD( LAY ) = QWAT( LAY ) - QICE( LAY ) LWC ( LAY ) = QLQD( LAY ) * RHOAIR LWC ( LAY ) = MAX( 5.0E-06, LWC( LAY ) ) ! lower limit PBARC = PBARC + PRESL( LAY ) * DZZL( LAY ) * LWC( LAY ) TBARC = TBARC + TCLD( LAY ) * DZZL( LAY ) * LWC( LAY ) WCBAR = WCBAR + DZZL( LAY ) * LWC( LAY ) WTBAR = WTBAR + DZZL( LAY ) * TWC CTHK = CTHK + DZZL( LAY ) JH2O2_BAR = JH2O2_BAR + JH2O2( LAY ) * DZZL( LAY ) * LWC( LAY ) JHNO3_BAR = JHNO3_BAR + JHNO3( LAY ) * DZZL( LAY ) * LWC( LAY ) C...excess water is all rain QXS = QXS + QWAT( LAY ) * RHOAIR * DZZL( LAY ) END DO C...Final calc of storm rainfall rate and frac area (raining clds) PRATE1 = STORME * QXS * 3600.0 / TCLIFE IF ( PRATE1 .LE. 1.001 * PRATE ) THEN FRAC = 0.999 ! Changed back to .999 - jp 6/05 PRATE1 = PRATE / FRAC ELSE FRAC = PRATE / PRATE1 END IF IF ( FRAC .LT. 0.01 ) CYCLE ! Loop to next row-column coordinate CONV_DEP( COL,ROW, N_SPC_WDEP + 7 ) = FRAC END IF ! target of cloudtype split C...Begin mixing section, perform first for raining clouds using C... modified form of original Walcek mixing for RADM: mixing C... limited to 1 layer above cloud top; next for CNP or PFW clouds C... using direct exchange mixing mechanism by McHenry. DO SPC = 1, MXSPCS DO LAY = 1, NLAYS CCR( SPC, LAY ) = CONC( SPC,LAY ) #ifdef sens DO NP = 1, NPMAX S_CCR( NP,SPC, LAY ) = S_CONC( NP,SPC,LAY ) END DO #endif END DO CBELOW( SPC ) = CBASE0( SPC ) #ifdef sens DO NP = 1, NPMAX S_CBELOW( NP,SPC ) = S_CBASE0( NP,SPC ) END DO #endif END DO ! -- Need to use dens * delz for ACM mixing DO LAY = 1, NLAYS DZH(LAY) = RHOM2( LAY ) ENDDO LAY = CLBASE - 1 DZH(LAY) = AIRMB0 #ifdef isam DO ITAG = 1, NTAG_SA DO SPC = 1, NSPC_SA DO LAY = 1, NLAYS SA_CCR( SPC, LAY,ITAG ) = SA_CONC( SPC,LAY,ITAG ) END DO SA_CBELOW( SPC,ITAG ) = SA_BASE0( SPC, ITAG ) END DO END DO #endif CALL ACMCLD ( NSPCSD, NLAYS, F, CCR, DZH, CBELOW, CLBASE, CLTOP, & FRAC, TCLIFE, DTCLD ) #ifdef isam DO ITAG = 1, NTAG_SA CALL ACMCLD ( NSPC_SA, NLAYS, F, SA_CCR(:,:,ITAG), DZH, & SA_CBELOW(:,ITAG), CLBASE, CLTOP, & FRAC, TCLIFE, DTCLD ) END DO #endif DO SPC = 1, MXSPCS CBASEF( SPC ) = CBELOW( SPC ) #ifdef sens DO NP = 1, NPMAX S_CBASEF( NP,SPC ) = S_CBELOW( NP,SPC ) END DO #endif END DO #ifdef isam DO ITAG = 1, NTAG_SA DO SPC = 1, NSPC_SA SA_BASEF( SPC,ITAG ) = SA_CBELOW( SPC,ITAG ) END DO END DO #endif DO LAY = CLTOP, CLBASE, -1 DO SPC = 1, NSPCSD CONDIS = CONC( SPC,LAY ) PCLD( SPC,LAY ) = F( LAY ) * ( FSIDE( LAY ) * CONDIS ) & + ( 1.0 - F( LAY ) ) * CBASE0( SPC ) PCLD( SPC,LAY ) = MIN( PCLD( SPC,LAY ), CCR( SPC,LAY ) / FRAC ) #ifdef sens DO NP = 1, NPMAX S_CONDIS = S_CONC( NP, SPC, LAY ) S_PCLD( NP, SPC, LAY ) = F( LAY ) * ( FSIDE( LAY ) * S_CONDIS ) & + ( 1.0 - F( LAY ) ) * S_CBASE0( NP,SPC ) IF ( PCLD( SPC, LAY ) .EQ. ( CCR( SPC, LAY ) / FRAC ) ) THEN S_PCLD( NP, SPC, LAY ) = S_CCR( NP, SPC, LAY ) / FRAC END IF END DO #endif C...POLC in mol sp/m2 POLC( SPC ) = POLC( SPC ) & + PCLD( SPC,LAY ) * RHOM2( LAY ) #ifdef isam CSPC = 0 CSPC = INDEXINT1(SPC,NSPC_SA,MAP_SAtoCGR(:)) IF ( CSPC .NE. 0) THEN DO ITAG = 1, NTAG_SA CONDIS = SA_CONC( CSPC,LAY,ITAG ) SA_PCLD( CSPC,LAY,ITAG ) = F( LAY ) * ( FSIDE( LAY ) * CONDIS ) & + ( 1.0 - F( LAY ) ) * SA_BASE0( CSPC,ITAG ) c IF ( ( CCR( SPC,LAY ) / FRAC) .EQ. PCLD( SPC,LAY ) ) THEN c SA_PCLD( CSPC,LAY,ITAG ) = SA_CCR( CSPC,LAY,ITAG ) / FRAC c END IF SA_PCLD( CSPC,LAY,ITAG ) = MIN( SA_PCLD( CSPC,LAY,ITAG ), SA_CCR( CSPC,LAY,ITAG ) / FRAC ) SA_POLC( CSPC,ITAG ) = SA_POLC( CSPC,ITAG ) & + SA_PCLD( CSPC,LAY,ITAG ) * RHOM2( LAY ) END DO END IF #endif #ifdef sens DO NP = 1, NPMAX S_POLC( NP, SPC ) = S_POLC( NP, SPC ) & + S_PCLD( NP, SPC, LAY ) * REAL ( RHOM2( LAY ), 8 ) END DO #endif END DO END DO C...Now compute for raining region below cloud which is also considered C... to be part of the aqueous reaction chamber DO LAY = 1, CLBASE - 1 AIRM = AIRM + RHOM2( LAY ) DO SPC = 1, NSPCSD IF ( CBASE0( SPC ) .GT. 0.0 ) THEN BCLDWT = CONC( SPC,LAY ) / MAX( CBASE0( SPC ), 1.0E-30 ) #ifdef sens DO NP = 1, NPMAX IF ( CBASE0( SPC ) .GT. 1.0E-30 ) THEN IF ( S_CBASE0( NP, SPC ) .LT. DDM3D_CONCMINL ) THEN c S_BCLDWT( NP, SPC, LAY ) = 1.0D0 S_BCLDWT( NP, SPC, LAY ) = 0.0D0 ELSE S_BCLDWT( NP, SPC, LAY ) = S_CONC( NP, SPC,LAY ) & / S_CBASE0( NP, SPC ) END IF ELSE c S_BCLDWT( NP, SPC, LAY ) = S_CONC( NP, SPC, LAY) c & / DDM3D_CONCMINL c S_BCLDWT( NP, SPC, LAY ) = 1.0D0 S_BCLDWT( NP, SPC, LAY ) = 0.0D0 END IF END DO #endif ELSE BCLDWT = 1.0 #ifdef sens DO NP = 1, NPMAX S_BCLDWT( NP, SPC, LAY ) = 1.0 END DO #endif END IF IF ( STM ) THEN IF ( SPC .NE. SURCLDMX( SPC ) ) THEN ! use its mixing surrogate IF ( CBASE0( SURCLDMX( SPC ) ) .GT. 0.0 ) THEN BCLDWT = CONC( SURCLDMX( SPC ),LAY ) / MAX( CBASE0( SURCLDMX( SPC ) ), 1.0E-30 ) ELSE BCLDWT = 1.0 END IF END IF END IF ! stm PCLD( SPC,LAY ) = BCLDWT * CBASEF( SPC ) #ifdef sens DO NP = 1, NPMAX S_PCLD( NP, SPC, LAY ) = S_CBASEF( NP, SPC ) * S_BCLDWT( NP, SPC, LAY ) END DO #endif C...Necessary because CBASEF and CBASE0 are the ending vertical averages C... below cloud concentrations in mol sp/mol air IF ( ICLDTYPE .EQ. 1 ) THEN POLC( SPC ) = POLC( SPC ) + PCLD( SPC, LAY ) * RHOM2( LAY ) #ifdef sens DO NP = 1, NPMAX S_POLC( NP, SPC ) = S_POLC( NP, SPC ) & + S_PCLD( NP, SPC, LAY ) * REAL ( RHOM2( LAY ), 8 ) END DO #endif END IF #ifdef isam CSPC = 0 CSPC = INDEXINT1(SPC,NSPC_SA,MAP_SAtoCGR(:)) IF ( CSPC .NE. 0) THEN DO ITAG = 1, NTAG_SA c BCLDWT = SA_CONC( CSPC,LAY,ITAG ) / MAX( SA_BASE0( CSPC, ITAG ),1.0E-30 ) SA_PCLD( CSPC,LAY, ITAG ) = BCLDWT * SA_BASEF( CSPC,ITAG ) IF ( ICLDTYPE .EQ. 1 ) THEN SA_POLC( CSPC, ITAG ) = SA_POLC( CSPC, ITAG ) & + SA_PCLD( CSPC, LAY, ITAG) & * RHOM2( LAY ) END IF END DO END IF #endif END DO END DO C...Compute cloud mean quantities AIRM = MAX( AIRM, 1.0E-30 ) ! tot. air mass in cloudy layers in mol/m2 WCBAR = MAX( WCBAR, 1.0E-30 ) ! liq.wat. content in kg/m3 * CTHK WTBAR = MAX( WTBAR, 1.0E-30 ) ! condensed wat cnt: kg/m3 * CTHK CTHK = MAX( CTHK, 1.0E-30 ) ! cloud thickness, meters TBARC = TBARC / WCBAR ! deg K (note WCBAR has hidden factor CTHK in it) PBARC = PBARC / WCBAR ! avg cloud pres, Pa JH2O2_BAR = JH2O2_BAR / WCBAR ! avg H2O2 photolysis, 1/min JHNO3_BAR = JHNO3_BAR / WCBAR ! avg HNO3 photolysis, 1/min WCBAR = WCBAR / CTHK ! avg liq wat content in kg/m3 WTBAR = WTBAR / CTHK ! avg con wat content in kg/m3 C...Calculate the cloud optical depth using a formula derived from C... Stephens (1978), JAS(35), pp2111-2132. C... only calculate the cloud optical depth when the liquid water C... path is >= 10 g/m2 LWP = WTBAR * CTHK * 1000.0 ! converts to g/m2 IF ( LWP .GE. 10.0 ) THEN CLOD = 10.0 ** ( 0.2633 + 1.7095 * LOG( LOG10( LWP ) ) ) ELSE CLOD = 0.0 END IF C...If no cloud or optical depth < 5, set clear sky values. C... (i.e. don`t do anything) IF ( CLOD .GE. 5.0 ) THEN STRNS = 1.0 + FRAC * ( ( 5.0 - EXP ( -CLOD ) ) & / ( 4.0 + 0.42 * CLOD ) - 1.0 ) IF ( ICLDTYPE .EQ. 1 ) THEN ! precipitating cloud SUBTRANS( COL,ROW,1 ) = STRNS ELSE SUBTRANS( COL,ROW,2 ) = STRNS END IF END IF C...Finally, get in cloud pollutant concentrations in mol sp per mol air DO SPC = 1, NSPCSD POLC ( SPC ) = POLC( SPC ) / AIRM CEND ( SPC ) = POLC( SPC ) REMOV( SPC ) = 0.0 #ifdef sens DO NP = 1, NPMAX S_POLC ( NP, SPC ) = S_POLC( NP, SPC ) / REAL ( AIRM, 8 ) S_CEND ( NP, SPC ) = S_POLC( NP, SPC ) S_REMOV( NP, SPC ) = 0.0D0 END DO #endif END DO REMOVAC = 0.0 #ifdef sens S_REMOVAC = 0.0D0 #endif ARPRES = PBARC / STDATMPA RTCH = ( MOLVOL / STDTEMP ) * TBARC CTHK1 = AIRM * RTCH / ( ARPRES * 1000.0 ) #ifdef isam DO SPC = 1, NSPC_SA DO ITAG = 1, NTAG_SA SA_POLC( SPC, ITAG ) = SA_POLC( SPC, ITAG ) / AIRM SA_CEND( SPC, ITAG ) = SA_POLC( SPC, ITAG ) END DO END DO SA_REMOV = 0.0 #endif CALL SCAVWDEP ( JDATE, JTIME, WTBAR, & WCBAR, TBARC, PBARC, & CTHK1, AIRM, PRATE1, DTCLD, POLC, CEND, & REMOV, REMOVAC, ALFA0, ALFA2, ALFA3 ) #ifdef isam DO SPC = 1, NSPC_SA CSPC = MAP_SAtoCGR(SPC) SA_SUM = SUM ( SA_POLC( SPC,: ) ) c IF ( POLC( CSPC ) .GT. 1.0E-30 .AND. CEND( CSPC ) .GT. 1.0E-09 ) THEN c IF ( POLC( CSPC ) .GT. 1.0E-30 ) THEN IF ( SA_SUM .GT. 1.0E-25 ) THEN DO ITAG = 1, NTAG_SA SA_CEND( SPC, ITAG ) = SA_POLC( SPC, ITAG ) & * ( CEND( CSPC ) c & / POLC( CSPC ) ) & / SA_SUM ) SA_REMOV( SPC, ITAG ) = SA_POLC( SPC, ITAG ) & * ( REMOV( CSPC ) c & / POLC( CSPC ) ) & / SA_SUM ) END DO ELSE DO ITAG = 1, NTAG_SA SA_CEND( SPC, ITAG ) = 0.0 SA_REMOV( SPC, ITAG ) = 0.0 END DO END IF END DO #endif C...if the liquid water content is above the specified threshold C... then perform the aqueous chemistry within the cloud and C... re-adjust the ending and removed amounts for those species C... that participated in cloud chemistry IF ( WCBAR .GT. 1.0E-05 ) THEN C... determine day or night from cosine of zenith angle for the cell; Golam Sarwar COSZ = MET_DATA%COSZEN( COL,ROW ) IF ( COSZ .LE. 0.0 ) THEN C...set mean photolysis rates to zero JH2O2_HYDROMETEORS = 0.0D0 JHNO3_HYDROMETEORS = 0.0D0 ELSE C...convert mean photolysis rates to 1/sec JH2O2_HYDROMETEORS = REAL( JH2O2_BAR * MINPERSEC, 8 ) JHNO3_HYDROMETEORS = REAL( JHNO3_BAR * MINPERSEC, 8 ) END IF C...in aqchem, H2SO4 gas is added to ASO4J C... mimic this for the ASO4GASJ tracking species IF ( STM ) THEN POLC( AEROSPC_MAP( ASO4GAS_IDX, 2 ) ) = POLC( AEROSPC_MAP( ASO4GAS_IDX, 2 ) ) & + POLC( PRECURSOR_MAP( SULF_IDX ) ) CEND( AEROSPC_MAP( ASO4GAS_IDX, 2 ) ) = POLC( AEROSPC_MAP( ASO4GAS_IDX, 2 ) ) END IF CALL AQ_MAP ( JDATE, JTIME, WTBAR, WCBAR, TBARC, PBARC, & CTHK1, AIRM, PRATE1, DTCLD, POLC, CEND, & REMOV, REMOVAC, ALFA0, ALFA2, ALFA3, COSZ ) #ifdef isam DO SPC = 1, NSPC_SA ! general case CSPC = MAP_SAtoCGR(SPC) SA_SUM = SUM ( SA_POLC( SPC,: ) ) DO ITAG = 1, NTAG_SA c IF ( POLC( CSPC ) .GT. 1.0E-30 ) THEN IF ( SA_SUM .GT. 1.0E-25 ) THEN SA_CEND( SPC,ITAG ) = SA_POLC( SPC,ITAG ) & * ( CEND( CSPC ) c & / MAX( 1.0E-26,POLC( CSPC ) ) ) & / SA_SUM ) SA_REMOV( SPC,ITAG ) = SA_POLC( SPC, ITAG ) & * ( REMOV( CSPC ) c & / MAX( 1.0E-25, POLC( CSPC ) )) & / SA_SUM ) ELSE SA_CEND( SPC,ITAG ) = 0.0 SA_REMOV( SPC,ITAG ) = 0.0 END IF END DO END DO IF ( S_N2O5 .NE. 0 ) THEN DO ITAG = 1, NTAG_SA SA_CEND( S_N2O5,ITAG ) = 0.0 END DO END IF IF (S_SO4J .NE. 0 ) THEN ! sulfate case DO ITAG = 1, NTAG_SA ! sulfate from H2SO4 SA_DS4( ITAG ) = SA_POLC( S_SULF,ITAG ) SA_CEND( S_SULF,ITAG ) = 1.0E-30 END DO DO ITAG = 1, NTAG_SA SA_DS4( ITAG ) = SA_DS4( ITAG ) + DS4_SAVE ! total sulfate produced & * ( SA_POLC( S_SO2,ITAG ) & / SUM ( SA_POLC( S_SO2,: ) ) ) SA_CEND( S_SO4J,ITAG ) = SA_POLC( S_SO4J,ITAG ) ! sulfate before removal & + SA_DS4( ITAG ) END DO SA_SUM = SUM ( SA_CEND( S_SO4J,: ) ) ! total apportioned sulfate before removal DO ITAG = 1, NTAG_SA ! final sulfate removal and concentration SA_REMOV( S_SO4J,ITAG ) = REMOV_SAVE & * ( SA_CEND( S_SO4J,ITAG ) & / SA_SUM ) SA_CEND( S_SO4J,ITAG ) = SA_CEND( S_SO4J,ITAG ) & - DEPSUM_SAVE & * ( SA_CEND( S_SO4J,ITAG ) & / SA_SUM ) SA_CEND( S_SO4J,ITAG ) = MAX ( SA_CEND( S_SO4J,ITAG ), 1.0E-30 ) END DO END IF IF (S_AORGCJ .NE. 0 ) THEN ! AORGCJ case SA_DCSOA_GLY = 0.0 SA_DCSOA_MGLY = 0.0 DO ITAG = 1, NTAG_SA IF ( S_GLY .NE. 0 ) THEN SA_DCSOA_GLY( ITAG ) = DGLY1_SAVE & * SA_POLC( S_GLY,ITAG ) & / MAX( 1.0E-25, SUM ( SA_POLC( S_GLY,: ) ) ) END IF IF ( S_MGLY .NE. 0 ) THEN SA_DCSOA_MGLY( ITAG ) = DMGLY1_SAVE & * SA_POLC( S_MGLY,ITAG ) & / MAX( 1.0E-25, SUM ( SA_POLC( S_MGLY,: ) ) ) END IF SA_CEND( S_AORGCJ,ITAG ) = SA_POLC( S_AORGCJ,ITAG ) ! AORGCJ before removal & + SA_DCSOA_GLY( ITAG ) & + SA_DCSOA_MGLY( ITAG ) END DO SA_SUM = MAX( 1.0E-25, SUM ( SA_CEND( S_AORGCJ,: ) ) ) ! total apportioned AORGCJ before removal DO ITAG = 1, NTAG_SA ! final AORGCJ removal and concentration SA_REMOV( S_AORGCJ,ITAG ) = REMOV_AORGC_SAVE & * SA_CEND( S_AORGCJ,ITAG ) & / SA_SUM SA_CEND( S_AORGCJ,ITAG ) = SA_CEND( S_AORGCJ,ITAG ) & - DEPSUM_AORGC_SAVE & * SA_CEND( S_AORGCJ,ITAG ) & / SA_SUM SA_CEND( S_AORGCJ,ITAG ) = MAX ( SA_CEND( S_AORGCJ,ITAG ), 1.0E-30 ) END DO END IF #endif END IF DO SPC = 1, N_CGRID_SPC IF ( CEND( SPC ) .LT. 0.0 ) & WRITE( LOGDEV,* ) ' CEND,R,C,SP=', & CEND( SPC ), ROW, COL, SPC END DO C...weight the removed amount by the cloud fraction and convert C... from mol/m2 to kg/m2 and kg/m2 to kg/hectare C...convert removal change from moles/m**2 to kg/m**2 and kg/m**2 to kg/hectare DO I = 1,N_CGRID_SPC IF ( CGRID_MASK_NUM( I ) .OR. & CGRID_MASK_SRF( I ) ) THEN ! Aerosol Number (N m-2 -> N ha-1) ! Aerosol Surface Area (m2 m-2 -> m2 ha-1) REMOV( I ) = REMOV( I ) * M2PHA * FRAC #ifdef sens DO NP = 1, NPMAX S_REMOV( NP,I ) = S_REMOV( NP,I ) * REAL( M2PHA * FRAC, 8 ) END DO #endif ! ISAM does not track aerosol number or surface ! area ELSE ! Gas and Aerosol Mass (moles m-2 -> kg ha-1) REMOV( I ) = REMOV( I ) * CGRID_MW( I ) * M2PHA_OVER_GPKG * FRAC #ifdef sens DO NP = 1, NPMAX S_REMOV( NP,I ) = S_REMOV( NP,I ) * CGRID_MW( I ) * M2PHA_OVER_GPKG * FRAC END DO #endif #ifdef isam CSPC = 0 CSPC = INDEXINT1(I,NSPC_SA,MAP_SAtoCGR(:)) IF ( CSPC .GT. 0 ) THEN DO ITAG = 1, NTAG_SA SA_REMOV( CSPC,ITAG ) = SA_REMOV( CSPC,ITAG ) * CGRID_MW( I ) & * M2PHA_OVER_GPKG * FRAC END DO END IF #endif END IF END DO C...add deposition amounts into the DEP array DO VAR = 1, N_SPC_WDEP CONV_DEP( COL,ROW,VAR ) = CONV_DEP( COL,ROW,VAR ) & + REMOV( MAP_WDEPtoCGRID( VAR ) ) #ifdef sens DO NP = 1, NPMAX S_CONDEP( COL, ROW, NP, VAR ) = S_CONDEP( COL, ROW, NP,VAR ) & + S_REMOV( NP, MAP_WDEPtoCGRID( VAR ) ) END DO #endif END DO C... and load H+ concentration into the deposition array as well CONV_DEP( COL,ROW,N_SPC_WDEP+1 ) = CONV_DEP( COL,ROW,N_SPC_WDEP+1 ) & + REMOVAC #ifdef sens DO NP = 1, NPMAX S_CONDEP( COL,ROW,NP,N_SPC_WDEP+1 ) = S_CONDEP( COL,ROW,NP,N_SPC_WDEP+1 ) & + S_REMOVAC( NP ) END DO #endif #ifdef isam DO ITAG = 1, NTAG_SA DO SPC = 1, NSPC_SA CONV_SADEP( COL,ROW,SPC,ITAG ) = CONV_SADEP( COL,ROW,SPC,ITAG ) & + SA_REMOV( SPC,ITAG ) END DO END DO #endif C...Compute concentration changes in the grid column resulting C... from subgrid scale vertical mixing: C...first, below cloud base, C... include raining region below cld base IF ( ICLDTYPE .EQ. 1 ) THEN ! raining cloud DO LAY = 1, CLBASE - 1 DO SPC = 1, NSPCSD IF ( SPC .NE. N_GC_SPCD ) THEN INCLOUD = PCLD( SPC,LAY ) * CEND( SPC ) & / MAX( POLC( SPC ), CONCMINL( SPC,LAY ) ) IF ( STM ) THEN IF ( SPC .NE. SURCLDMX( SPC ) ) THEN ! use its surrogate IF ( POLC( SURCLDMX( SPC ) ) .GT. 0.0 ) THEN INCLOUD = PCLD( SURCLDMX( SPC ),LAY ) * CEND( SPC ) & / MAX( POLC( SURCLDMX( SPC ) ), CONCMINL( SURCLDMX( SPC ),LAY ) ) ELSE INCLOUD = CEND( SPC ) END IF END IF END IF ! stm OUTCLOUD = PCLD( SPC,LAY ) CGRD( COL,ROW,LAY,SPC ) = FRAC * INCLOUD & + ( 1.0 - FRAC ) * OUTCLOUD #ifdef sens DO NP = 1, NPMAX IF( ABS( S_POLC( NP, SPC ) ) .LT. DDM3D_CONCMINL ) THEN S_INCLOUD( NP, SPC, LAY ) = 0.0D0 ELSE S_INCLOUD( NP, SPC, LAY ) = S_PCLD( NP,SPC,LAY ) * S_CEND( NP,SPC ) & / S_POLC( NP, SPC ) ENDIF S_OUTCLOUD( NP, SPC, LAY ) = S_PCLD( NP,SPC, LAY ) SENGRID( COL, ROW, LAY, NP, SPC ) = & S_INCLOUD ( NP, SPC, LAY ) * FRAC & + S_OUTCLOUD( NP, SPC, LAY ) * ( 1.0 - FRAC ) END DO #endif END IF END DO #ifdef isam DO SPC = 1, NSPC_SA ! general case CSPC = MAP_SAtoCGR(SPC) IF ( CEND( CSPC ) .GT. 1.0E-09) THEN DO ITAG = 1, NTAG_SA INCLOUD = SA_PCLD( SPC, LAY, ITAG ) & * ( SA_CEND( SPC, ITAG ) & / MAX( SA_POLC( SPC, ITAG ), CONCMINL( CSPC,LAY ) ) ) OUTCLOUD = SA_PCLD( SPC, LAY, ITAG ) ISAM( COL,ROW,LAY,SPC,ITAG ) = FRAC * INCLOUD & + ( 1.0 - FRAC ) * OUTCLOUD END DO END IF END DO IF (S_SO4J .NE. 0 ) THEN ! sulfate case CONDIS = 0.0 DO ITAG = 1, NTAG_SA SA_INCLOUD( ITAG ) = PCLD( C_SO4J,LAY ) * ( SA_CEND( S_SO4J,ITAG ) & / MAX( POLC( C_SO4J ), CONCMINL( C_SO4J,LAY ) ) ) & - ( PCLD( C_SO4J,LAY ) * CEND( C_SO4J ) / MAX( POLC( C_SO4J ), CONCMINL( C_SO4J,LAY ) ) ) & * SA_POLC( S_SO4J,ITAG ) / MAX( POLC( C_SO4J ), CONCMINL( C_SO4J,LAY ) ) & + SA_PCLD( S_SO4J,LAY,ITAG ) * CEND( C_SO4J ) / MAX( POLC( C_SO4J ), CONCMINL( C_SO4J,LAY ) ) IF ( SA_INCLOUD( ITAG ) .LT. 0.0 ) THEN CONDIS = CONDIS + SA_INCLOUD( ITAG ) SA_INCLOUD( ITAG ) = 0.0 END IF END DO IF ( CONDIS .NE. 0.0 ) THEN BLNC = ( CONDIS + SUM( SA_INCLOUD( : ) ) ) / MAX( SUM( SA_INCLOUD( : ) ), CONCMINL( C_SO4J,LAY ) ) DO ITAG = 1, NTAG_SA IF ( SA_INCLOUD( ITAG ) .GT. 0.0 ) THEN SA_INCLOUD( ITAG ) = BLNC * SA_INCLOUD( ITAG ) END IF END DO END IF DO ITAG = 1, NTAG_SA OUTCLOUD = SA_PCLD( S_SO4J,LAY,ITAG ) ISAM( COL,ROW,LAY,S_SO4J,ITAG ) = FRAC * SA_INCLOUD( ITAG ) & + ( 1.0 - FRAC ) * OUTCLOUD ISAM( COL,ROW,LAY,S_SO4J,ITAG ) = MAX( ISAM( COL,ROW,LAY,S_SO4J,ITAG ), 1.0E-30 ) END DO END IF IF (S_AORGCJ .NE. 0 ) THEN ! AORGCJ case CONDIS = 0.0 DO ITAG = 1, NTAG_SA SA_INCLOUD( ITAG ) = PCLD( C_AORGCJ,LAY ) * ( SA_CEND( S_AORGCJ,ITAG ) & / MAX( POLC( C_AORGCJ ), CONCMINL( C_AORGCJ,LAY ) ) ) & - ( PCLD( C_AORGCJ,LAY ) * CEND( C_AORGCJ ) / MAX( POLC( C_AORGCJ ), CONCMINL( C_AORGCJ,LAY ) ) ) & * SA_POLC( S_AORGCJ,ITAG ) / MAX( POLC( C_AORGCJ ), CONCMINL( C_AORGCJ,LAY ) ) & + SA_PCLD( S_AORGCJ,LAY,ITAG ) * CEND( C_AORGCJ ) / MAX( POLC( C_AORGCJ ), CONCMINL( C_AORGCJ,LAY ) ) IF ( SA_INCLOUD( ITAG ) .LT. 0.0 ) THEN CONDIS = CONDIS + SA_INCLOUD( ITAG ) SA_INCLOUD( ITAG ) = 0.0 END IF END DO IF ( CONDIS .NE. 0.0 ) THEN BLNC = ( CONDIS + SUM( SA_INCLOUD( : ) ) ) / MAX( SUM( SA_INCLOUD( : ) ), CONCMINL( C_AORGCJ,LAY ) ) DO ITAG = 1, NTAG_SA IF ( SA_INCLOUD( ITAG ) .GT. 0.0 ) THEN SA_INCLOUD( ITAG ) = BLNC * SA_INCLOUD( ITAG ) END IF END DO END IF DO ITAG = 1, NTAG_SA INCLOUD = SA_PCLD( S_AORGCJ,LAY,ITAG ) * SA_CEND( S_AORGCJ,ITAG ) & / MAX( SA_POLC( S_AORGCJ,ITAG ), CONCMINL( SPC,LAY ) ) c INCLOUD = MAX( INCLOUD, CONCMINL( C_AORGCJ,LAY ) ) OUTCLOUD = SA_PCLD( S_AORGCJ,LAY,ITAG ) ISAM( COL,ROW,LAY,S_AORGCJ,ITAG ) = FRAC * SA_INCLOUD( ITAG ) & + ( 1.0 - FRAC ) * OUTCLOUD ISAM( COL,ROW,LAY,S_AORGCJ,ITAG ) = MAX( ISAM( COL,ROW,LAY,S_AORGCJ,ITAG ), 1.0E-30 ) END DO END IF #endif END DO ELSE DO LAY = 1, CLBASE - 1 DO SPC = 1, NSPCSD CGRD( COL,ROW,LAY,SPC ) = PCLD( SPC,LAY ) #ifdef sens DO NP = 1, NPMAX SENGRID( COL, ROW, LAY, NP, SPC ) = REAL ( S_PCLD( NP, SPC, LAY ), 4 ) END DO #endif END DO #ifdef isam DO SPC = 1, NSPC_SA c IF (PCLD( MAP_SAtoCGR(SPC),LAY ) .GT. 1.0E-09) THEN DO ITAG = 1, NTAG_SA ISAM( COL,ROW,LAY,SPC,ITAG ) = SA_PCLD( SPC, LAY, ITAG ) END DO c END IF END DO #endif END DO END IF C...Now do changes in cloudy layers: DO LAY = CLBASE, CLTOP DO SPC = 1, NSPCSD IF ( SPC .NE. N_GC_SPCD ) THEN INCLOUD = PCLD( SPC,LAY ) * CEND( SPC ) & / MAX( POLC( SPC ), CONCMINL( SPC,LAY ) ) IF ( STM ) THEN IF ( SPC .NE. SURCLDMX( SPC ) ) THEN ! use its surrogate IF ( POLC( SURCLDMX( SPC ) ) .GT. 0.0 ) THEN INCLOUD = PCLD( SURCLDMX( SPC ),LAY ) * CEND( SPC ) & / MAX( POLC( SURCLDMX( SPC ) ), CONCMINL( SURCLDMX( SPC ),LAY ) ) ELSE INCLOUD = CEND( SPC ) END IF END IF END IF ! stm OUTCLOUD = ( CCR( SPC,LAY ) - FRAC * PCLD( SPC,LAY ) ) & / ( 1.0 - FRAC ) OUTCLOUD = MAX( OUTCLOUD, CONCMINL( SPC,LAY ) ) CGRD( COL,ROW,LAY,SPC ) = FRAC * INCLOUD & + ( 1.0 - FRAC ) * OUTCLOUD #ifdef sens DO NP = 1, NPMAX IF( ABS( S_POLC( NP, SPC ) ) .LT. DDM3D_CONCMINL ) THEN S_INCLOUD( NP, SPC, LAY ) = 0.0D0 ELSE S_INCLOUD( NP, SPC, LAY ) = S_PCLD( NP,SPC,LAY ) * S_CEND( NP,SPC ) & / S_POLC( NP, SPC ) END IF S_OUTCLOUD( NP, SPC, LAY ) = ( S_CCR( NP, SPC, LAY ) - S_PCLD( NP, SPC,LAY ) * REAL( FRAC, 8 ) ) & / ( 1.0D0 - REAL ( FRAC, 8 ) ) IF ( OUTCLOUD .EQ. CONCMINL( SPC, LAY ) ) THEN S_OUTCLOUD( NP, SPC, LAY ) = 0.0D0 END IF SENGRID( COL, ROW, LAY, NP, SPC ) = & S_INCLOUD ( NP, SPC, LAY ) * FRAC & + S_OUTCLOUD( NP, SPC, LAY ) * ( 1.0 - FRAC ) END DO #endif END IF END DO #ifdef isam DO SPC = 1, NSPC_SA ! general case CSPC = MAP_SAtoCGR(SPC) c IF (CEND( MAP_SAtoCGR(SPC) ) .GT. 1.0E-09) THEN DO ITAG = 1, NTAG_SA INCLOUD = SA_PCLD( SPC,LAY,ITAG ) * ( SA_CEND( SPC,ITAG ) & / MAX( SA_POLC( SPC,ITAG ), CONCMINL( CSPC,LAY ) ) ) OUTCLOUD = ( SA_CCR( SPC,LAY,ITAG ) - FRAC * SA_PCLD( SPC,LAY,ITAG ) ) & / ( 1.0 - FRAC ) OUTCLOUD = MAX( OUTCLOUD, CONCMINL( CSPC,LAY ) ) ISAM( COL,ROW,LAY,SPC,ITAG ) = FRAC * INCLOUD & + ( 1.0 - FRAC ) * OUTCLOUD END DO c END IF END DO IF (S_SO4J .NE. 0 ) THEN ! sulfate case DO ITAG = 1, NTAG_SA INCLOUD = PCLD( C_SO4J,LAY ) * SA_CEND( S_SO4J,ITAG ) / MAX( POLC( C_SO4J ), CONCMINL( C_SO4J,LAY ) ) & - ( PCLD( C_SO4J,LAY ) * CEND( C_SO4J ) / MAX( POLC( C_SO4J ), CONCMINL( C_SO4J,LAY ) ) ) & * SA_POLC( S_SO4J,ITAG ) / MAX( POLC( C_SO4J ), CONCMINL( C_SO4J,LAY ) ) & + SA_PCLD( S_SO4J,LAY,ITAG ) * CEND( C_SO4J ) / MAX( POLC( C_SO4J ), CONCMINL( C_SO4J,LAY ) ) INCLOUD = MAX( INCLOUD, CONCMINL( C_SO4J,LAY ) ) OUTCLOUD = ( SA_CCR( S_SO4J,LAY,ITAG ) - FRAC * SA_PCLD( S_SO4J,LAY,ITAG ) ) & / ( 1.0 - FRAC ) OUTCLOUD = MAX( OUTCLOUD, CONCMINL( CSPC,LAY ) ) ISAM( COL,ROW,LAY,S_SO4J,ITAG ) = FRAC * INCLOUD & + ( 1.0 - FRAC ) * OUTCLOUD END DO END IF IF (S_AORGCJ .NE. 0 ) THEN ! AORGCJ case DO ITAG = 1, NTAG_SA INCLOUD = PCLD( C_AORGCJ,LAY ) * SA_CEND( S_AORGCJ,ITAG ) / MAX( POLC( C_AORGCJ ), CONCMINL( C_AORGCJ,LAY ) ) & - ( PCLD( C_AORGCJ,LAY ) * CEND( C_AORGCJ ) / MAX( POLC( C_AORGCJ ), CONCMINL( C_AORGCJ,LAY ) ) ) & * SA_POLC( S_AORGCJ,ITAG ) / MAX( POLC( C_AORGCJ ), CONCMINL( C_AORGCJ,LAY ) ) & + SA_PCLD( S_AORGCJ,LAY,ITAG ) * CEND( C_AORGCJ ) / MAX( POLC( C_AORGCJ ), CONCMINL( C_AORGCJ,LAY ) ) INCLOUD = SA_PCLD( S_AORGCJ,LAY,ITAG ) * SA_CEND( S_AORGCJ,ITAG ) & / MAX( SA_POLC( S_AORGCJ,ITAG ), CONCMINL( SPC,LAY ) ) c INCLOUD = MAX( INCLOUD, CONCMINL( C_AORGCJ,LAY ) ) OUTCLOUD = ( SA_CCR( S_AORGCJ,LAY,ITAG ) - FRAC * SA_PCLD( S_AORGCJ,LAY,ITAG ) ) & / ( 1.0 - FRAC ) OUTCLOUD = MAX( OUTCLOUD, CONCMINL( CSPC,LAY ) ) ISAM( COL,ROW,LAY,S_AORGCJ,ITAG ) = FRAC * INCLOUD & + ( 1.0 - FRAC ) * OUTCLOUD END DO END IF #endif END DO END DO ! end loop on columns COL END DO ! end loop on rows ROW RETURN ! from main routine CLDPROC 91010 FORMAT( 3( A, :, I3, : ) ) END ================================================ FILE: CCTM/src/cloud/acm_ae6/getalpha.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE GETALPHA ( NUMI, MASSI, SURFI, & LWC, T, P, RHOAIR, ALFA0, ALFA2, ALFA3 ) C----------------------------------------------------------------------- C Description: C Calculate the in-cloud scavenging coefficients for number (alfa0), C surface area (alfa2) and mass (alfa3). This code combines the RPM C codes getcld.f, and pandkcd.f C Revision History: C Date Who What C -------- ------------------------- ------------------------------- C 12/16/97 Dr. Francis S. Binkowski. Coded C 12/22/97 S.Roselle Revised to comply with M3 Coding C standards C 02/10/99 Binkowski Added provision for 2nd moment C and variable geometric C standard deviation C 09/25/00 S.Roselle Modified to enable backwards C compatibility with aerosol C model version 1 C 08/23/2005 Binkowski Changed check on MASSI to C be 1.0e-6 [ug/M**3] rather than C to avoid difficulties causing NAN's C as found by Bonyoung Koo C I have also commented out some lines C code that are unnecessary in this C implementation C----------------------------------------------------------------------- USE AERO_DATA IMPLICIT NONE INCLUDE SUBST_CONST ! PI, RGASUNIV, AVO, GRAV C...........Parameters: REAL, PARAMETER :: SIGC = 1.2 ! geometric standard deviation for cloud droplets REAL, PARAMETER :: P0 = 101325.0 ! Standard pressure [ Pa ] REAL, PARAMETER :: T0 = 288.0 REAL, PARAMETER :: ONE3 = 1.0 / 3.0 REAL, PARAMETER :: TWO3 = 2.0 / 3.0 REAL, PARAMETER :: KBOLTZ = RGASUNIV / AVO ! 1.38065E-23 [ J/K ] REAL, PARAMETER :: RHOPART = 1.0E3 ! particle density [ kg/ m**3 ] !sjr REAL, PARAMETER :: AERCONST = 6.0E-9 / ( RHOPART * PI / 6.0 ) REAL, PARAMETER :: AERCONST = 1.0E-9 / ( RHOPART * PI / 6.0 ) REAL, PARAMETER :: RHO_WATER = 1.0E3 ! density of water at 20 C & 1 ATM [ kg/m**3 ] C...........Arguments: REAL NUMI ! total number concentration for the Aitken mode [ #/m**3 ] REAL MASSI ! total mass concentration in AItken mode [ ug/m**3 ] REAL SURFI ! total surface area in Aitken mode [ m**2 / m**3 ] REAL LWC ! cloud liquid water content [ kg/m**3 ] REAL T ! average cloud temperature [ K ] REAL P ! average cloud pressure [ Pa ] REAL RHOAIR ! average cloud density [ kg/m**3 ] REAL ALFA0 ! scavenging coefficient for number [ 1/s ] REAL ALFA2 ! scavenging coefficient for surface area [ 1/s ] REAL ALFA3 ! scavenging coefficient for mass [ 1/s ] C...........Local Variables (scalars): REAL DGNI ! geometric mean diameter for AItken mode [ m ] REAL L2SGI ! square of the log of the ! Aitken mode geometric standard deviation ! REAL XXFN ! fraction for computing L2SGI c *** ranges for acceptable values of LOG( sigma_g). REAL, SAVE :: MINL2SG ! minimum value of L2SG REAL, SAVE :: MAXL2SG ! maximum value of L2SG REAL, SAVE :: DEFL2SG ! default value of L2SG if no surface area REAL NC ! total cloud droplet number concentration [ #/m**3 ] REAL DGC ! geometric mean diameter for cloud droplet [ m ] REAL ESG4 ! exp(0.5 * L2SGI ) REAL ESG16 ! exp(2.0 * L2SGI ) REAL ESG36 ! exp(4.5 * L2SGI ) REAL DG2 ! square of geometic mean diameter REAL AMM2 ! -2nd moment of the Aitken mode distribution REAL AMM1 ! -1st moment of the Aitken mode distribution REAL AM1 ! 1st moment of the Aitken mode distribution REAL AM0 ! alternative name for Aitken mode number [ #/m**3] REAL AM2 ! 2nd moment of the Aitken mode distribution REAL AM3 ! 3rd moment of the Aitken mode distribution REAL M0C ! moments of the cloud droplet distribution REAL M1C ! moments of the cloud droplet distribution REAL M2C ! moments of the cloud droplet distribution REAL LSGC, LSGC2 ! log and square of log of SIGC REAL, SAVE :: ESGC4 ! REAL, SAVE :: ESGC16 ! REAL COEF ! !REAL DIFF0 ! aerosol diffusivities !REAL DIFF2 ! aerosol diffusivities REAL DIFF3 ! aerosol diffusivities !REAL PE0 ! Peclet numbers !REAL PE2 ! Peclet numers REAL PE3 ! Peclet numbers REAL COEF2 ! REAL COEF3 ! REAL COEF4 ! REAL VSETTL ! settling velocity for cloud drops REAL LAMDA ! mean free path of air [ m ] REAL MU ! dynamic viscosity [ kg/(m*s) ] REAL NU ! kinematic viscosity [ m**2/s ] REAL CUBRT ! cube root REAL XX ! dummy arguement for cube root REAL, SAVE :: CLCONST ! LOGICAL, SAVE :: FIRSTIME = .TRUE. ! flag for first pass thru C...........Statement Functions: CUBRT( XX ) = EXP( ONE3 * LOG( XX ) ) C----------------------------------------------------------------------- C begin body of subroutine GETALPHA IF ( FIRSTIME ) THEN FIRSTIME = .FALSE. C...compute special variables for moments C... of cloud droplet distribution LSGC = LOG( SIGC ) LSGC2 = LSGC * LSGC ESGC4 = EXP( 0.5 * LSGC2 ) ESGC16 = EXP( 2.0 * LSGC2 ) C...compute constant for obtaining dgc CLCONST = 6.0 / ( RHO_WATER * PI * EXP( 4.5 * LOG( SIGC ) ** 2 ) ) MINL2SG = LOG( MIN_SIGMA_G ) ** 2.0 ! minimum sigma_g = 1.05 (2.380480e-3) MAXL2SG = LOG( MAX_SIGMA_G ) ** 2.0 ! maximum sigma_g = 2.5 (8.395887e-1) DEFL2SG = LOG( DEF_SIGMA_G( 1 ) ) ** 2.0 ! default sigma_g = 1.7 (2.815663e-1) END IF ! check on firstime C...check to make sure that there is aerosol mass and number before C... proceeding, if not set alphas to zero !cc FSB IF ( ( NUMI .LE. 0.0 ) .OR. ( MASSI .LE. 0.0 ) .OR. !cc FSB & ( LWC .LE. 0.0 ) ) THEN C FSB mass check changed to be 1.0e-6 [ug/m**3] - 08/23/2005 C to avoid AM3 becomming too small. With this change C AM3 is no smaller than 1.0e-18 IF ( ( NUMI .LE. 0.0 ) .OR. ( MASSI .LE. 1.0e-6 ) .OR. & ( LWC .LE. 0.0 ) ) THEN !cc & ( SURFI .LE. 0.0 ) .OR. ( LWC .LE. 0.0 ) ) THEN ALFA0 = 0.0 ALFA2 = 0.0 ALFA3 = 0.0 RETURN END IF C...get cloud characteristics C... reference: Bower, K.N. and T.W. Choularton, 1992, C... " A parameterisation of the effective radius of ice C... free clouds for use in global climate models" C... Atmospheric Research, 27, 305-339, figures 10 & 11. C... C... data in Bower & Choularton fit with quadratic function C... for droplet number as a function of lwc C...calculate the total number concentration of cloud droplets. IF ( LWC .LE. 3.0E-3 ) THEN NC = 4.80E11 * LWC - 8.0E13 * LWC * LWC ELSE NC = 7.20E8 END IF C...calculate dgc DGC = CUBRT( CLCONST * LWC / NC ) C...get m0c cloud droplet number and 1st and 2nd moments C... of cloud droplet distribution M0C = NC M1C = M0C * DGC * ESGC4 M2C = M0C * DGC * DGC * ESGC16 C...set values for the 0th and 3rd moments AM3 = AERCONST * MASSI AM0 = NUMI C...Check to see if surface area exists and process accordingly IF ( SURFI .GT. 0.0 ) THEN C...set the 2nd moment value AM2 = SURFI / PI C...get square of the log of the geometric standard deviation L2SGI C... The following method is much more robust, even if it uses three log calls. L2SGI = ONE3 * LOG( AM0 ) + & TWO3 * LOG( AM3 ) - & LOG( AM2 ) L2SGI = MAX( MINL2SG, L2SGI ) L2SGI = MIN( MAXL2SG, L2SGI ) ELSE C...set the standard deviation to a fixed value (e.g. 1.7) L2SGI = DEFL2SG C...calculate the 2nd moment based on the fixed standard deviation AM2 = EXP( TWO3 * LOG( AM3 ) + & ONE3 * LOG( AM0 ) - & L2SGI ) END IF C...compute special variables for moments C... of Aitken mode distribution ESG4 = EXP( 0.5 * L2SGI ) ESG16 = EXP( 2.0 * L2SGI ) ESG36 = ESG4 * ESG16 * ESG16 C...calculate dgni from numi and m3i DGNI = CUBRT( AM3 / ( AM0 * ESG36 ) ) DG2 = DGNI * DGNI C...now get other aerosol moments AMM2 = AM0 * ESG16 / DG2 AMM1 = AM0 * ESG4 / DGNI AM1 = AM0 * DGNI * ESG4 C...calculate: C... lamda mean free path of air [ m ] C... mu dynamic viscosity [ kg/(m*s) ] C... nu kinematic viscosity [ m**2/s ] MU = 1.458E-6 * T * SQRT( T ) / ( T + 110.4 ) LAMDA = 6.6328E-8 * ( P0 / P ) * ( T / T0 ) NU = MU / RHOAIR C...implement Pruppacher and Klett method for scavenging coefficients C... calculates scavenging coefficients for number and mass C... of interstitial aerosol with a variable sigma_g. C... this method uses Brownian diffusion with convective enhancement. C... reference: C... Pruppacher & Klett "Microphysics of Clouds & Precipitation" C... pp 380 - 384, 1978, D. Reidel COEF = KBOLTZ * ( T / ( 3.0 * PI * MU ) ) C...get aerosol diffusivities !cc FSB these values are not used !cc DIFF0 = COEF * ( AMM1 + 2.492 * LAMDA * AMM2 ) / AM0 !cc DIFF2 = COEF * ( AM1 + 2.492 * LAMDA * AM0 ) / AM2 DIFF3 = COEF * ( ( AM2 + 2.492 * LAMDA * AM1 ) / AM3 ) C...set up coefficient coef2 for settling velocity of cloud drops COEF2 = ( GRAV / ( 18.0 * NU ) ) * ( RHOPART / RHOAIR ) C...get settling velocity for cloud drops VSETTL = COEF2 * M2C / M0C C...set up for Peclet numbers COEF3 = VSETTL * DGC C...calculate Peclet numbers !cc FSB because these Peclet numbers are not used, I have commented !cc these lines of code - Binkowski 08/23/2005 !cc PE0 = COEF3 / DIFF0 !cc PE2 = COEF3 / DIFF2 PE3 = COEF3 / DIFF3 C...now get in-cloud scavenging coefficients C... including convective enhancement COEF4 = 2.0 * PI * M1C !cc FSB use a common value, that for 3rd moment. !cc !cc ALFA0 = COEF4 * DIFF0 * ( 1.0 + 0.5 * CUBRT( PE0 ) ) !cc ALFA2 = COEF4 * DIFF2 * ( 1.0 + 0.5 * CUBRT( PE2 ) ) ALFA3 = COEF4 * DIFF3 * ( 1.0 + 0.5 * CUBRT( PE3 ) ) ALFA0 = ALFA3 ALFA2 = ALFA3 RETURN END ================================================ FILE: CCTM/src/cloud/acm_ae6/hlconst.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! REAL FUNCTION HLCONST ( CNAME, TEMP, EFFECTIVE, HPLUS ) C----------------------------------------------------------------------- C C FUNCTION: return the Henry's law constant for the specified substance C at the given temperature C C References: C C 1. Nguyen, T. B., Coggon, M. M., Bates, K. H., Zhang, X., Schwantes, C R. H., Schilling, K. A., Loza, C. L., Flagan, R. C., Wennberg, P. O., C and Seinfeld, J. H.: Organic aerosol formation from the reactive C uptake of isoprene epoxydiols (IEPOX) onto non-acidified inorganic C seeds, Atmos. Chem. Phys., 14, 3497-3510, C doi:10.5194/acp-14-3497-2014, 2014. C C revision history: C who when what C --------- -------- ------------------------------------- C S.Roselle 08/15/97 code written for Models-3 C J.Gipson 06/18/01 added Henry's Law constants 50-55 for saprc99 C W.Hutzell 07/03/01 added Henry's Law constants 56-57 for Atrazine C and the daughter products from Atrazine and OH C reactions. C J.Gipson. 09/06/02 added Henry's Law constants 59-73 for toxics C S.Roselle 11/07/02 added capability for calculating the effective C Henry's law constant and updated coefficients C in Henry's law constant table C J.Gipson 08/06/03 added Henry's Law constants 77-79 C G.Sarwar 11/21/04 added constants for chlorine chemistry (Henry's C law constants 80-85 and dissociation constants C 14-16 C R.Bullock 07/05/05 added Henry's Law constants 86-87 for mercury C with enthalpy calculated from cited laboratory C data fit to an Arrhenius equation C W.Hutzell 02/14/06 added HLC 88 to 116, dissociation constant for C 17 (hydrazine) C A.Carlton 09/20/06 updated Henry's Law constants for 1,7,19,20,21,30 C O3, NO3, hexane, octane, nonane, methanol and C isoprene reference C S.Roselle 10/10/07 changed pointers to parameters; reformatted C variable declarations C W.Hutzell 03/07/08 added Henry's Law constants for 117 to 120 C W.Hutzell 01/01/09 added Henry's Law constants for 121 to 125 for C for SAPRC07T mechanism C Y.Xie 6/11/10 added Henry's Law constants for 126 to 130 for C isoprene chemistry in SAPRC07 C S.Roselle 03/01/11 replaced I/O API include files with UTILIO_DEFN; C removed deprecated TRIMLEN C W.Hutzell 08/16/12 updated IOAPI and Henry Constant names to V5.01 C standards C W.Hutzell 01/30/13 updated PHENOL, and add values for CATECHOL and C XYLENOL C H.Pye 02/05/13 added Henry's Law 133-134 for IEPOX and IMAE C G.Sarwar 12/18/13 added Henry's Law constants for 135 to 140 C W.Hutzell 07/11/14 correct error in DATA from last revision C D.Luecken 07/11/14 added 141 through 144 for nitrates C H.Pye 05/05/15 added monoterpene and isoprene nitrates C H.Pye 01/26/2016 added SOA SVOCs C G.Sarwar 03/24/15 added iodine and bromine species C H.Pye 05/31/16 updated IEPOX H-law from 2.7e6 to 3.0e7 M/atm C to reflect Nguyen et al. 2014. C W.Hutzell 09/16/16 1) removed HCHO dissociation because its henry's C constant already accounts for the effect. C 2) added henry's constant for compounds 194 thru C 199 representing several toxic air pollutants C C D. Luecken 09/21/2016 C 1. added HAPs in 194-200; C 2. modified existing HEXANE (19),N-HEXANE (117), and STYRENE (119); C 3. removed dissociation calculation for formaldedhyde because the listed value C is already an effective rate (Sander ACP, 2015, note 187) C 4. added dissociation constant for acrylic acid (LACRYACID) (via B. Hutzell) C H.Pye 06/2017 added semivolatile monoterpene products C G.Sarwar 08/2018 added Henry's Law constant for ClNO3, FMBR, IBR, and updated iodine and bromine species C G. Sarwar 11/2018 added Henry's Law constant for CLO C H.Pye 09/2021 added CRACMM emission weighted surrogates C----------------------------------------------------------------------- USE UTILIO_DEFN IMPLICIT NONE C...........ARGUMENTS and their descriptions CHARACTER*(*), INTENT ( IN ) :: CNAME ! name of substance REAL, INTENT ( IN ) :: TEMP ! temperature (K) LOGICAL, INTENT ( IN ) :: EFFECTIVE ! true=compute the effective henry's law constant REAL, INTENT ( IN ) :: HPLUS ! hydrogen ion concentration (mol/l) C...........INCLUDES and their descriptions C...........PARAMETERS and their descriptions: INTEGER, PARAMETER :: MXSPCS = 277 ! Number of substances INTEGER, PARAMETER :: MXDSPCS = 19 ! Number of dissociating species C...pointers for the dissociation constants (array B and D) INTEGER, PARAMETER :: LSO2 = 1 ! SO2 INTEGER, PARAMETER :: LHSO3 = 2 ! HSO3 INTEGER, PARAMETER :: LHNO2 = 3 ! HNO3 INTEGER, PARAMETER :: LHNO3 = 4 ! HNO3 INTEGER, PARAMETER :: LCO2 = 5 ! CO2 INTEGER, PARAMETER :: LHCO3 = 6 ! HCO3 INTEGER, PARAMETER :: LH2O2 = 7 ! H2O2 INTEGER, PARAMETER :: LHCOOH = 8 ! HCOOH INTEGER, PARAMETER :: LHO2 = 9 ! HO2 INTEGER, PARAMETER :: LNH4OH = 10 ! NH4OH INTEGER, PARAMETER :: LH2O = 11 ! H2O INTEGER, PARAMETER :: LATRA = 12 ! Atrazine INTEGER, PARAMETER :: LCL2 = 13 ! CL2 INTEGER, PARAMETER :: LHOCL = 14 ! HOCL INTEGER, PARAMETER :: LHCL = 15 ! HCL INTEGER, PARAMETER :: LHYDRAZINE = 16 ! Hydrazine INTEGER, PARAMETER :: LHBR = 17 ! HBR INTEGER, PARAMETER :: LHI = 18 ! HI INTEGER, PARAMETER :: LACRYACID = 19 ! CCH3COOH C...........SCRATCH LOCAL VARIABLES and their descriptions: CHARACTER( 16 ), SAVE :: PNAME = 'HLCONST' ! program name CHARACTER( 16 ), SAVE :: SUBNAME( MXSPCS ) ! list of substance names CHARACTER( 120 ) :: XMSG = ' ' ! exit status message string INTEGER S ! loop index INTEGER SPC ! species index REAL HPLUSI ! 1 / HPLUS REAL HPLUS2I ! 1 / HPLUS**2 REAL CLMINUS ! chlorine ion conc [CL-] REAL CLMINUSI ! 1 / CLMINUS REAL TFAC ! (298-T)/(T*298) REAL AKEQ1 ! temp var for dissociation constant REAL AKEQ2 ! temp var for dissociation constant REAL OHION ! OH ion concentration REAL KH ! temp var for henry's law constant C...Henry's law constant data taken mostly from Rolf Sanders' Compilation of C... Henry's Law Constants for Inorganic and Organic Species of Potential C... Importance in Environment Chemistry 1999 REAL, SAVE :: A( MXSPCS ) ! Henry's law constants at 298.15K (M/atm) REAL, SAVE :: E( MXSPCS ) ! enthalpy (like activation energy) (K) C...dissociation constant data taken mostly from 6.A.1 of Seinfeld and Pandis C... Atmospheric Chemistry and Physics, 1997 REAL, SAVE :: B( MXDSPCS ) ! dissociation constant at 298.15K (M or M2) REAL, SAVE :: D( MXDSPCS ) ! -dH/R (K) DATA SUBNAME( 1), A( 1), E( 1) / 'O3 ', 1.14E-02, 2.3E+03 / ! Kosak 1983 DATA SUBNAME( 2), A( 2), E( 2) / 'HO2 ', 4.0E+03, 5.9E+03 / ! Hanson et al. 1992 DATA SUBNAME( 3), A( 3), E( 3) / 'H2O2 ', 1.1E+05, 7.4E+03 / ! E: O'Sullivan et al. 1996, A: Sander 1999 as used in Nguyen et al. 2015 PNAS DATA SUBNAME( 4), A( 4), E( 4) / 'NH3 ', 6.1E+01, 4.2E+03 / ! Clegg and Brimblecombe 1989 DATA SUBNAME( 5), A( 5), E( 5) / 'NO ', 1.9E-03, 1.4E+03 / ! Lide and Frederikse 1995 DATA SUBNAME( 6), A( 6), E( 6) / 'NO2 ', 1.2E-02, 2.5E+03 / ! Chameides 1984 DATA SUBNAME( 7), A( 7), E( 7) / 'NO3 ', 0.6E+00, 0.0E+00 / ! Rudich, Talukdar et al.1996 DATA SUBNAME( 8), A( 8), E( 8) / 'N2O5 ', 1.0E+30, 0.0E+00 / ! "inf" Sander and Crutzen 1996 DATA SUBNAME( 9), A( 9), E( 9) / 'HNO2 ', 5.0E+01, 4.9E+03 / ! Becker et al. 1996 DATA SUBNAME( 10), A( 10), E( 10) / 'HNO3 ', 2.1E+05, 8.7E+03 / ! Leieveld and Crutzen 1991 DATA SUBNAME( 11), A( 11), E( 11) / 'HNO4 ', 1.2E+04, 6.9E+03 / ! Regimbal and Mozurkewich 1997 DATA SUBNAME( 12), A( 12), E( 12) / 'SO2 ', 1.4E+00, 2.9E+03 / ! Linde and Frederikse 1995 DATA SUBNAME( 13), A( 13), E( 13) / 'H2SO4 ', 1.0E+30, 0.0E+00 / ! infinity DATA SUBNAME( 14), A( 14), E( 14) / 'METHANE ', 1.4E-03, 1.6E+03 / ! Linde and Frederikse 1995 DATA SUBNAME( 15), A( 15), E( 15) / 'ETHANE ', 1.9E-03, 2.3E+03 / ! Linde and Frederikse 1995 DATA SUBNAME( 16), A( 16), E( 16) / 'PROPANE ', 1.5E-03, 2.7E+03 / ! Linde and Frederikse 1995 DATA SUBNAME( 17), A( 17), E( 17) / 'BUTANE ', 1.1E-03, 0.0E+00 / ! Mackay and Shiu 1981 DATA SUBNAME( 18), A( 18), E( 18) / 'PENTANE ', 8.1E-04, 0.0E+00 / ! Mackay and Shiu 1981 DATA SUBNAME( 19), A( 19), E( 19) / 'HEXANE ', 6.18E-04,3.8E+03 / ! Sander, ACP, 2015; Abraham Matteoli (1988) DATA SUBNAME( 20), A( 20), E( 20) / 'OCTANE ', 2.9E-03, 7.8E+03 / ! Hansen et al. 1993 DATA SUBNAME( 21), A( 21), E( 21) / 'NONANE ', 2.4E-03, 2.1E+02 / ! Ashworth, Howe et al 1988 DATA SUBNAME( 22), A( 22), E( 22) / 'DECANE ', 1.4E-04, 0.0E+00 / ! Mackay and Shiu 1981 DATA SUBNAME( 23), A( 23), E( 23) / 'ETHENE ', 4.7E-03, 0.0E+00 / ! Mackay and Shiu 1981 DATA SUBNAME( 24), A( 24), E( 24) / 'PROPENE ', 4.8E-03, 0.0E+00 / ! Mackay and Shiu 1981 DATA SUBNAME( 25), A( 25), E( 25) / 'ISOPRENE ', 2.8E-02, 0.0E+00 / ! Karl, Lindinger et al 2003 DATA SUBNAME( 26), A( 26), E( 26) / 'ACETYLENE ', 4.1E-02, 1.8E+03 / ! Wilhelm et al. 1977 DATA SUBNAME( 27), A( 27), E( 27) / 'BENZENE ', 1.6E-01, 4.1E+03 / ! Staudinger and Roberts 1996 DATA SUBNAME( 28), A( 28), E( 28) / 'TOLUENE ', 1.5E-01, 4.0E+03 / ! Staudinger and Roberts 1996 DATA SUBNAME( 29), A( 29), E( 29) / 'O-XYLENE ', 1.9E-01, 4.0E+03 / ! Staudinger and Roberts 1996 DATA SUBNAME( 30), A( 30), E( 30) / 'METHANOL ', 2.2E+02, 5.2E+03 / ! Snider and Dawson 1985 DATA SUBNAME( 31), A( 31), E( 31) / 'ETHANOL ', 1.9E+02, 6.6E+03 / ! Snider and Dawson 1985 DATA SUBNAME( 32), A( 32), E( 32) / '2-CRESOL ', 8.2E+02, 0.0E+00 / ! Betterton 1992 DATA SUBNAME( 33), A( 33), E( 33) / '4-CRESOL ', 1.3E+02, 0.0E+00 / ! Betterton 1992 DATA SUBNAME( 34), A( 34), E( 34) / 'METHYLHYDROPEROX', 3.1E+02, 5.2E+03 / ! O'Sullivan et al. 1996 DATA SUBNAME( 35), A( 35), E( 35) / 'FORMALDEHYDE ', 3.2E+03, 6.8E+03 / ! Staudinger and Roberts 1996 DATA SUBNAME( 36), A( 36), E( 36) / 'ACETALDEHYDE ', 1.4E+01, 5.6E+03 / ! Staudinger and Roberts 1996 DATA SUBNAME( 37), A( 37), E( 37) / 'GENERIC_ALDEHYDE', 4.2E+03, 0.0E+00 / ! Graedel and Goldberg 1983 DATA SUBNAME( 38), A( 38), E( 38) / 'GLYOXAL ', 3.6E+05, 0.0E+00 / ! Zhou and Mopper 1990 DATA SUBNAME( 39), A( 39), E( 39) / 'ACETONE ', 3.0E+01, 4.6E+03 / ! Staudinger and Roberts 1996 DATA SUBNAME( 40), A( 40), E( 40) / 'FORMIC_ACID ', 8.9E+03, 6.1E+03 / ! Johnson et al. 1996 DATA SUBNAME( 41), A( 41), E( 41) / 'ACETIC_ACID ', 4.1E+03, 6.3E+03 / ! Johnson et al. 1996 DATA SUBNAME( 42), A( 42), E( 42) / 'METHYL_GLYOXAL ', 3.2E+04, 0.0E+00 / ! Zhou and Mopper 1990 DATA SUBNAME( 43), A( 43), E( 43) / 'CO ', 9.9E-04, 1.3E+03 / ! Linde and Frederikse 1995 DATA SUBNAME( 44), A( 44), E( 44) / 'CO2 ', 3.6E-02, 2.2E+03 / ! Zheng et al. 1997 DATA SUBNAME( 45), A( 45), E( 45) / 'PAN ', 2.8E+00, 6.5E+03 / ! Kames et al. 1991 DATA SUBNAME( 46), A( 46), E( 46) / 'MPAN ', 1.7E+00, 0.0E+00 / ! Kames and Schurath 1995 DATA SUBNAME( 47), A( 47), E( 47) / 'OH ', 3.0E+01, 4.5E+03 / ! Hanson et al. 1992 DATA SUBNAME( 48), A( 48), E( 48) / 'METHYLPEROXY_RAD', 2.0E+03, 6.6E+03 / ! Lelieveld and Crutzen 1991 DATA SUBNAME( 49), A( 49), E( 49) / 'PEROXYACETIC_ACI', 8.4E+02, 5.3E+03 / ! O'Sullivan et al. 1996 DATA SUBNAME( 50), A( 50), E( 50) / 'PROPANOIC_ACID ', 5.7E+03, 0.0E+00 / ! Kahn et al. 1995 DATA SUBNAME( 51), A( 51), E( 51) / '2-NITROPHENOL ', 7.0E+01, 4.6E+03 / ! USEPA 1982 DATA SUBNAME( 52), A( 52), E( 52) / 'PHENOL ', 3.3E+03, 3.6E+03 / ! Meylan and Howard (1991) DATA SUBNAME( 53), A( 53), E( 53) / 'BIACETYL ', 7.4E+01, 5.7E+03 / ! Betteron 1991 DATA SUBNAME( 54), A( 54), E( 54) / 'BENZALDEHYDE ', 3.9E+01, 4.8E+03 / ! Staudinger and Roberts 1996 DATA SUBNAME( 55), A( 55), E( 55) / 'PINENE ', 4.9E-02, 0.0E+00 / ! Karl and Lindinger 1997 DATA SUBNAME( 56), A( 56), E( 56) / 'ATRA ', 4.1E+05, 6.0E+03 / ! CIBA Corp (1989) and Scholtz (1999) DATA SUBNAME( 57), A( 57), E( 57) / 'DATRA ', 4.1E+05, 6.0E+03 / ! assumed same as Atrazine DATA SUBNAME( 58), A( 58), E( 58) / 'ADIPIC_ACID ', 2.0E+08, 0.0E+00 / ! Saxena and Hildemann (1996) DATA SUBNAME( 59), A( 59), E( 59) / 'ACROLEIN ', 8.2E+00, 0.0E+00 / ! Meylan and Howard (1991) DATA SUBNAME( 60), A( 60), E( 60) / '13-BUTADIENE ', 1.4E-02, 0.0E+00 / ! Mackay and Shiu (1981) DATA SUBNAME( 61), A( 61), E( 61) / 'ACRYLONITRILE ', 7.3E+00, 0.0E+00 / ! Meylan and Howard (1991) DATA SUBNAME( 62), A( 62), E( 62) / 'CARBONTETRACHLOR', 3.4E-02, 4.2E+03 / ! Staudinger and Roberts (1996) DATA SUBNAME( 63), A( 63), E( 63) / 'PROPYLENE_DICHLO', 3.4E-01, 4.3E+03 / ! Staudinger and Roberts (1996) DATA SUBNAME( 64), A( 64), E( 64) / '13DICHLOROPROPEN', 6.5E-01, 4.2E+03 / ! Wright et al (1992b) DATA SUBNAME( 65), A( 65), E( 65) / '1122-CL4ETHANE ', 2.4E+00, 3.2E+03 / ! Staudinger and Roberts (1996) DATA SUBNAME( 66), A( 66), E( 66) / 'CHLOROFORM ', 2.5E-01, 4.5E+03 / ! Staudinger and Roberts (1996) DATA SUBNAME( 67), A( 67), E( 67) / '12DIBROMOETHANE ', 1.5E+00, 3.9E+03 / ! Ashworth et al (1988) DATA SUBNAME( 68), A( 68), E( 68) / '12DICHLOROETHANE', 7.3E-01, 4.2E+03 / ! Staudinger and Roberts (1996) DATA SUBNAME( 69), A( 69), E( 69) / 'METHYLENE_CHLORI', 3.6E-01, 4.1E+03 / ! Staudinger and Roberts (1996) DATA SUBNAME( 70), A( 70), E( 70) / 'PERCHLOROETHYLEN', 5.9E-02, 4.8E+03 / ! Staudinger and Roberts (1996) DATA SUBNAME( 71), A( 71), E( 71) / 'TRICHLOROETHENE ', 1.0E-01, 4.6E+03 / ! Staudinger and Roberts (1996) DATA SUBNAME( 72), A( 72), E( 72) / 'VINYL_CHLORIDE ', 3.9E-02, 3.1E+03 / ! Staudinger and Roberts (1996) DATA SUBNAME( 73), A( 73), E( 73) / 'ETHYLENE_OXIDE ', 8.4E+00, 0.0E+00 / ! CRC DATA SUBNAME( 74), A( 74), E( 74) / 'PPN ', 2.9E+00, 0.0E+00 / ! Kames and Schurath (1995) DATA SUBNAME( 75), A( 75), E( 75) / 'NAPHTHALENE ', 2.0E+00, 3.6E+03 / ! USEPA 1982 DATA SUBNAME( 76), A( 76), E( 76) / 'QUINOLINE ', 3.7E+03, 5.4E+03 / ! USEPA 1982 DATA SUBNAME( 77), A( 77), E( 77) / 'MEK ', 2.0E+01, 5.0E+03 / ! Zhou and Mopper 1990 DATA SUBNAME( 78), A( 78), E( 78) / 'MVK ', 4.1E+01, 0.0E+00 / ! Iraci et al. 1998 DATA SUBNAME( 79), A( 79), E( 79) / 'METHACROLEIN ', 6.5E+00, 0.0E+00 / ! Iraci et al. 1998 DATA SUBNAME( 80), A( 80), E( 80) / 'CL2 ', 8.6E-02, 2.0E+03 / ! ROLF SANDERS COMPILATION (1999)/KAVANAUGH AND TRUSSELL (1980) DATA SUBNAME( 81), A( 81), E( 81) / 'HOCL ', 6.6E+02, 5.9E+03 / ! ROLF SANDERS COMPILATION (1999)/HUTHWELKER ET AL (1995) DATA SUBNAME( 82), A( 82), E( 82) / 'HCL ', 1.9E+01, 6.0E+02 / ! ROLF SANDERS COMPILATION (1999)/DEAN (1992) DATA SUBNAME( 83), A( 83), E( 83) / 'FMCL ', 1.1E+00, 0.0E+00 / ! EPA SUITE PROGRAM/UNIT CONVERTED TO MATCH THE DEFINITION BY ROLF SANDERS. DATA SUBNAME( 84), A( 84), E( 84) / 'ICL1 ', 6.9E+01, 0.0E+00 / ! EPA SUITE PROGRAM/UNIT CONVERTED TO MATCH THE DEFINITION BY ROLF SANDERS. DATA SUBNAME( 85), A( 85), E( 85) / 'ICL2 ', 6.9E+01, 0.0E+00 / ! EPA SUITE PROGRAM/ASSUMED EQUAL TO THAT OF ICL1 DATA SUBNAME( 86), A( 86), E( 86) / 'HG ', 1.11E-01, 4.97E+03 /! Elemental Mercury from Clever et al. (1985) DATA SUBNAME( 87), A( 87), E( 87) / 'HGIIGAS ', 1.41E+06, 5.26E+03 /! Hg(II) gas as mercuric chloride from Lindqvist and Rodhe (1985) DATA SUBNAME( 88), A( 88), E( 88) / 'TECDD_2378 ', 5.1E+00, 3.6E+03 / ! Paasivirta et al. (1999) DATA SUBNAME( 89), A( 89), E( 89) / 'PECDD_12378 ', 4.6E+00, 3.2E+03 / ! Paasivirta et al. (1999) DATA SUBNAME( 90), A( 90), E( 90) / 'HXCDD_123478 ', 8.1E+00, 2.9E+03 / ! Paasivirta et al. (1999) DATA SUBNAME( 91), A( 91), E( 91) / 'HXCDD_123678 ', 2.9E+00, 2.8E+03 / ! Paasivirta et al. (1999) DATA SUBNAME( 92), A( 92), E( 92) / 'HXCDD_123789 ', 6.5E+00, 2.7E+03 / ! Paasivirta et al. (1999) DATA SUBNAME( 93), A( 93), E( 93) / 'HPCDD_1234678 ', 1.2E+01, 2.4E+03 / ! Paasivirta et al. (1999) DATA SUBNAME( 94), A( 94), E( 94) / 'OTCDD ', 9.8E+00, 2.3E+03 / ! Paasivirta et al. (1999) DATA SUBNAME( 95), A( 95), E( 95) / 'TECDF_2378 ', 8.5E+01, 3.7E+03 / ! Paasivirta et al. (1999) DATA SUBNAME( 96), A( 96), E( 96) / 'PECDF_12378 ', 5.2E+01, 2.9E+03 / ! Paasivirta et al. (1999) DATA SUBNAME( 97), A( 97), E( 97) / 'PECDF_23478 ', 1.8E+02, 3.0E+03 / ! Paasivirta et al. (1999) DATA SUBNAME( 98), A( 98), E( 98) / 'HXCDF_123478 ', 3.8E+01, 2.4E+03 / ! Paasivirta et al. (1999) DATA SUBNAME( 99), A( 99), E( 99) / 'HXCDF_123678 ', 9.0E+01, 2.9E+03 / ! Paasivirta et al. (1999) DATA SUBNAME(100), A(100), E(100) / 'HXCDF_234678 ', 1.0E+02, 2.6E+03 / ! Paasivirta et al. (1999) DATA SUBNAME(101), A(101), E(101) / 'HXCDF_123789 ', 5.6E+01, 2.6E+03 / ! Paasivirta et al. (1999) DATA SUBNAME(102), A(102), E(102) / 'HPCDF_1234678 ', 2.8E+01, 1.6E+03 / ! Paasivirta et al. (1999) DATA SUBNAME(103), A(103), E(103) / 'HPCDF_1234789 ', 8.0E+01, 2.1E+03 / ! Paasivirta et al. (1999) DATA SUBNAME(104), A(104), E(104) / 'OTCDF ', 7.6E+01, 2.4E+03 / ! Paasivirta et al. (1999) DATA SUBNAME(105), A(105), E(105) / 'NAPHTHOL ', 3.60E+03, 0.0E+00 / ! Eabraham et al. (1994) DATA SUBNAME(106), A(106), E(106) / '1NITRONAPHTHALEN', 5.68E+02, 0.0E+00 / ! Altschuh et al. (1999) DATA SUBNAME(107), A(107), E(107) / '2NITRONAPHTHALEN', 6.42E+02, 0.0E+00 / ! HENRYWIN v3.10 (Meylan and Howard, 1991) DATA SUBNAME(108), A(108), E(108) / '14NAPHTHOQUINONE', 5.08E+05, 0.0E+00 / ! HENRYWIN v3.10 (Meylan and Howard, 1991) DATA SUBNAME(109), A(109), E(109) / '24-TOLUENE_DIIS ', 7.25E+00, 0.0E+00 / ! HENRYWIN v3.10 (Meylan and Howard, 1991) DATA SUBNAME(110), A(110), E(110) / 'HEXAMETHYLE_DIIS', 2.08E+01, 0.0E+00 / ! HENRYWIN v3.10 (Meylan and Howard, 1991) DATA SUBNAME(111), A(111), E(111) / 'HYDRAZINE ', 1.14E+03, 0.0E+00 / ! Daubert and Danner (1989), and Amoore and Hautala (1983) DATA SUBNAME(112), A(112), E(112) / 'MALEIC_ANHYDRIDE', 2.54E+02, 0.0E+00 / ! HENRYWIN v3.10 (Meylan and Howard, 1991) DATA SUBNAME(113), A(113), E(113) / 'TRIETHYLAMINE ', 6.71E+00, 0.0E+00 / ! Yalkowsky and Dannenfelser (1992), and Riddick et al. (1986) DATA SUBNAME(114), A(114), E(114) / 'P_DICHLOROBENZEN', 2.38E+00, 0.0E+00 / ! MacKay and Shiu (1981), measured DATA SUBNAME(115), A(115), E(115) / 'M-XYLENE ', 1.43E-01, 3.9E+03 / ! Staudinger and Roberts (2001) DATA SUBNAME(116), A(116), E(116) / 'P-XYLENE ', 1.35E-01, 3.7E+03 / ! Staudinger and Roberts (2001) DATA SUBNAME(117), A(117), E(117) / 'N-HEXANE ', 6.18E-04, 3.8E+03 / ! Sander, ACP, 2015, Abraham Matteoli (1988) DATA SUBNAME(118), A(118), E(118) / 'PROPANAL ', 1.64E+00, 5.4E+03 / ! Staudinger and Roberts (2001) DATA SUBNAME(119), A(119), E(119) / 'STYRENE ', 2.74E-01, 0.0E+00 / ! Sander, ACP, 2015, Kim and Kim (2014) DATA SUBNAME(120), A(120), E(120) / '124TRIMETH_BENZE', 1.50E-01, 4.3E+03 / ! Hanson et al. (1995) DATA SUBNAME(121), A(121), E(121) / 'CHLOROACETALDEHY', 4.18E+01, 0.0E+00 / ! Bond Estimate by EPA SUITE PROGRAM (2007) DATA SUBNAME(122), A(122), E(122) / 'CHLOROACETONE ', 3.82E-01, 0.0E+00 / ! Staudinger and Roberts (2001) DATA SUBNAME(123), A(123), E(123) / 'NITROSYL_CHLORID', 5.10E-01, 0.0E+00 / ! Bond Estimate by EPA SUITE PROGRAM (2007) DATA SUBNAME(124), A(124), E(124) / 'NITRYL_CHLORIDE ', 2.43E-02, 0.0E+00 / ! Behnke et al. (1997), JGR, D102, 3795-3804 DATA SUBNAME(125), A(125), E(125) / 'HEXYL_HYDROPEROX', 1.23E+01, 0.0E+00 / ! Bond Estimated by EPA SUITE PROGRAM (2007) DATA SUBNAME(126), A(126), E(126) / 'HYDROXY_NITRATES', 1.70E+04, 9.20E+03 / ! Shepson et al. (1996), Treves et al. (2000) DATA SUBNAME(127), A(127), E(127) / 'HYDROXY_PEROXIDE', 8.30E+04, 7.40E+03 / ! using value for H2O2 DATA SUBNAME(128), A(128), E(128) / 'PROPNN ', 1.00E+04, 0.00E+00 / ! Nguyen et al. (2015) PNAS using Shepson (1996) DATA SUBNAME(129), A(129), E(129) / 'HACET ', 2.93E+03, 0.00E+00 / ! Spaulding et al. (2002) DATA SUBNAME(130), A(130), E(130) / 'PYRUVIC_ACID ', 3.00E+05, 5.20E+03 / ! Staudinger and Roberts (1996) DATA SUBNAME(131), A(131), E(131) / 'XYLENOL ', 1.05E+03, 0.00E+03 / ! experimental value from EPA SUITE PROGRAM (2008) DATA SUBNAME(132), A(132), E(132) / 'CATECHOL ', 3.16E+05, 0.00E+03 / ! experimental value from EPA SUITE PROGRAM (2008) DATA SUBNAME(133), A(133), E(133) / 'IEPOX ', 3.0E+07, 0.00E+00 / ! Nguyen et al. ACP (2014) DATA SUBNAME(134), A(134), E(134) / 'IMAE ', 1.2E+05, 0.00E+00 / ! Pye et al. ES&T (2013) DATA SUBNAME(135), A(135), E(135) / 'DIETHYLKETONE ', 2.00E+01, 9.2E+03 / ! ROLF SANDERS COMPILATION (1999)/JANINI AND QUADDORA (1986) DATA SUBNAME(136), A(136), E(136) / 'N-PROPANOL ', 1.10E+02, 0.0E+00 / ! ROLF SANDERS COMPILATION (1999)/YAWS AND YANG (1992) DATA SUBNAME(137), A(137), E(137) / 'ETHYLENEGLYCOL ', 4.00E+06, 0.0E+00 / ! ROLF SANDERS COMPILATION (1999)/BONE ET AL. (1983) DATA SUBNAME(138), A(138), E(138) / 'HYDROXY-ACETONE ', 2.00E+04, 0.0E+00 / ! MATSUNAGA ET AL., 41, 790-796, AE, (2007) DATA SUBNAME(139), A(139), E(139) / '2NITRO_1BUTNL ', 6.30E+03, 9.6E+03 / ! Shepson et al., 1992 DATA SUBNAME(140), A(140), E(140) / 'PYROCATECHOL ', 4.60E+03, 0.0E+00 / ! Mackay et al., 1995 DATA SUBNAME(141), A(141), E(141) / 'NTR_ALK ', 6.50E-01, 5.4E+03 / ! 2-butylnitrate, from Sander DATA SUBNAME(142), A(142), E(142) / 'NTR_OH ', 6.50E+03, 9.5E+03 / ! 3-nitrooxy-butanol, from Sander DATA SUBNAME(143), A(143), E(143) / 'DINTR ', 1.80E+01, 0.0E+00 / ! 2,3-pentanedinitrate DATA SUBNAME(144), A(144), E(144) / 'NTR_PX ', 3.40E+02, 6.0E+03 / ! ethylhydroperoxide DATA SUBNAME(145), A(145), E(145) / 'MTNO3 ', 1.5E+06, 0.0E+00 / ! monoterpene nitrates HenryWin v3.2 DATA SUBNAME(146), A(146), E(146) / 'ISOPNN ', 4.5E+08, 0.0E+00 / ! isoprene dinitrate HenryWin v3.2 DATA SUBNAME(147), A(147), E(147) / 'SVALK1 ', 6.2E+08, 6.0E+03 / ! Pye 2016 est based on Hodzic 2014 GRL DATA SUBNAME(148), A(148), E(148) / 'SVALK2 ', 4.5E+06, 6.0E+03 / ! Pye 2016 est based on Hodzic 2014 GRL DATA SUBNAME(149), A(149), E(149) / 'SVBNZ1 ', 2.1E+08, 6.0E+03 / ! Pye 2016 est based on Hodzic 2014 GRL DATA SUBNAME(150), A(150), E(150) / 'SVBNZ2 ', 2.0E+06, 6.0E+03 / ! Pye 2016 est based on Hodzic 2014 GRL DATA SUBNAME(151), A(151), E(151) / 'SVISO1 ', 4.3E+07, 6.0E+03 / ! Pye 2016 est based on Hodzic 2014 GRL DATA SUBNAME(152), A(152), E(152) / 'SVISO2 ', 3.7E+09, 6.0E+03 / ! Pye 2016 est based on Hodzic 2014 GRL DATA SUBNAME(153), A(153), E(153) / 'SVPAH1 ', 5.1E+07, 6.0E+03 / ! Pye 2016 est based on Hodzic 2014 GRL DATA SUBNAME(154), A(154), E(154) / 'SVPAH2 ', 7.2E+05, 6.0E+03 / ! Pye 2016 est based on Hodzic 2014 GRL DATA SUBNAME(155), A(155), E(155) / 'SVSQT ', 6.2E+08, 6.0E+03 / ! Pye 2016 est based on Hodzic 2014 GRL DATA SUBNAME(156), A(156), E(156) / 'SVTOL1 ', 4.2E+07, 6.0E+03 / ! Pye 2016 est based on Hodzic 2014 GRL DATA SUBNAME(157), A(157), E(157) / 'SVTOL2 ', 7.3E+06, 6.0E+03 / ! Pye 2016 est based on Hodzic 2014 GRL DATA SUBNAME(158), A(158), E(158) / 'SVTRP1 ', 9.9E+08, 6.0E+03 / ! Pye 2016 est based on Hodzic 2014 GRL DATA SUBNAME(159), A(159), E(159) / 'SVTRP2 ', 1.4E+08, 6.0E+03 / ! Pye 2016 est based on Hodzic 2014 GRL DATA SUBNAME(160), A(160), E(160) / 'SVXYL1 ', 6.2E+07, 6.0E+03 / ! Pye 2016 est based on Hodzic 2014 GRL DATA SUBNAME(161), A(161), E(161) / 'SVXYL2 ', 4.0E+06, 6.0E+03 / ! Pye 2016 est based on Hodzic 2014 GRL DATA SUBNAME(162), A(162), E(162) / 'I2 ', 3.10E+00, 4.6E+03 / ! ROLF SANDERS COMPILATION (1999)/Berdnikov and Bazhin (1970) DATA SUBNAME(163), A(163), E(163) / 'I ', 6.30E-03, 2.3E+03 / ! ROLF SANDERS COMPILATION (1999)/Berdnikov and Bazhin (1970) DATA SUBNAME(164), A(164), E(164) / 'IO ', 4.50E+02, 0.0E+00 / ! Saiz-Lopez et al., ACPD, 2014 DATA SUBNAME(165), A(165), E(165) / 'OIO ', 1.00E+04, 0.0E+00 / ! Saiz-Lopez et al., ACPD, 2014 DATA SUBNAME(166), A(166), E(166) / 'I2O2 ', 1.00E+30, 0.0E+00 / ! Sherwen et al., 2016 DATA SUBNAME(167), A(167), E(167) / 'I2O3 ', 1.00E+30, 0.0E+00 / ! Sherwen et al., 2016 DATA SUBNAME(168), A(168), E(168) / 'I2O4 ', 1.00E+30, 0.0E+00 / ! Sherwen et al., 2016 DATA SUBNAME(169), A(169), E(169) / 'HI ', 2.50E+00, 5.3E+03 / ! Schweitzer et al. (2000) DATA SUBNAME(170), A(170), E(170) / 'HOI ', 1.53E+04, 8.3E+03 / ! Sherwen et al., 2016 DATA SUBNAME(171), A(171), E(171) / 'INO ', 5.00E-02, 0.0E+00 / ! Same as ClNO which is from ROLF SANDERS COMPILATION (1999)/Scheer et al. (1997) DATA SUBNAME(172), A(172), E(172) / 'INO2 ', 3.00E-01, 0.0E+00 / ! Same as BRNO2 which is from ROLF SANDERS COMPILATION (1999)/Frenzel et al. (1998) DATA SUBNAME(173), A(173), E(173) / 'INO3 ', 1.00E+30, 0.0E+00 / ! Same as BRNO3; BRNO3 from Sander (2015) DATA SUBNAME(174), A(174), E(174) / 'CH3I ', 1.40E-01, 4.3E+03 / ! ROLF SANDERS COMPILATION (1999)/Moore et al. (1995) DATA SUBNAME(175), A(175), E(175) / 'MIC ', 8.90E-01, 4.3E+03 / ! ROLF SANDERS COMPILATION (1999)/Moore et al. (1995) DATA SUBNAME(176), A(176), E(176) / 'MIB ', 8.90E-01, 4.3E+03 / ! Same as MIC, Final Report to TCEQ, Environ International, 2012 DATA SUBNAME(177), A(177), E(177) / 'MI2 ', 2.30E+00, 5.0E+03 / ! ROLF SANDERS COMPILATION (1999)/Moore et al. (1995) DATA SUBNAME(178), A(178), E(178) / 'BRO ', 7.10E-01, 0.0E+00 / ! Parrella et al. (2012) DATA SUBNAME(179), A(179), E(179) / 'HOBR ', 6.10E+03, 6.0E+03 / ! Sherwen et al., 2016 DATA SUBNAME(180), A(180), E(180) / 'HBR ', 7.50E-01, 6.1E+03 / ! A from Schweitzer et al. (2000) and E from Chmeides and Stelson (1992) - ROLF SANDERS COMPILATION (1999) DATA SUBNAME(181), A(181), E(181) / 'BR2 ', 7.60E-01, 4.1E+03 / ! Dean et al. (1992) DATA SUBNAME(182), A(182), E(182) / 'BRNO3 ', 1.00E+30, 0.0E+00 / ! Sander (2015) DATA SUBNAME(183), A(183), E(183) / 'MB3 ', 1.40E+00, 5.0E+03 / ! ROLF SANDERS COMPILATION (1999)/Moore et al. (1995) DATA SUBNAME(184), A(184), E(184) / 'CH3BR ', 1.50E-01, 0.0E+00 / ! ROLF SANDERS COMPILATION (1999)/Yaws and Yang et al. (1992) DATA SUBNAME(185), A(185), E(185) / 'MB2 ', 9.30E-01, 4.4E+03 / ! ROLF SANDERS COMPILATION (1999)/Moore et al. (1995) DATA SUBNAME(186), A(186), E(186) / 'MB2C ', 7.30E-01, 4.9E+03 / ! ROLF SANDERS COMPILATION (1999)/Moore et al. (1995) DATA SUBNAME(187), A(187), E(187) / 'MBC2 ', 4.00E-01, 4.7E+03 / ! ROLF SANDERS COMPILATION (1999)/Moore et al. (1995) DATA SUBNAME(188), A(188), E(188) / 'MBC ', 8.90E-01, 4.3E+03 / ! Same as MIC DATA SUBNAME(189), A(189), E(189) / 'BRNO2 ', 3.00E-01, 0.0E+00 / ! Frenzel et al. (1998) DATA SUBNAME(190), A(190), E(190) / 'BRCL ', 9.70E-01, 0.0E+00 / ! Sherwen et al., 2016 DATA SUBNAME(191), A(191), E(191) / 'ICL ', 1.10E+02, 2.1E+03 / ! Sherwen et al., 2016 DATA SUBNAME(192), A(192), E(192) / 'DMS ', 4.80E-01, 3.1E+03 / ! ROLF SANDERS COMPILATION (1999)/De Bryuyn et al. (1995) DATA SUBNAME(193), A(193), E(193) / 'MSA ', 7.70E+04, 0.0E+00 / ! Meylan and Howard (1991), inverse of the value is used due to unit conversion DATA SUBNAME(194), A(194), E(194) / 'XYLENE ', 1.90E-01, 4.2E+03 / ! .35/.3/.35 m/o/p, Sander ACP 2015, Staudinger and Roberts (2001) for m; Fogg and Sangster (2003) for o and p DATA SUBNAME(195), A(195), E(195) / 'ETHYLBENZENE ', 1.42E-01, 4.8E+03 / ! Sander ACP 2015, Fogg Sangster (2003) DATA SUBNAME(196), A(196), E(196) / 'ACRYACID ', 3.141E+03, 0.0E+00 / ! Sander ACP 2015, Lide Frederikse (1995) DATA SUBNAME(197), A(197), E(197) / 'ACETONITRILE ', 5.269E+01, 4.0E+03 / ! Sander ACP 2015, Sander et al (2011) DATA SUBNAME(198), A(198), E(198) / 'CHLOROPRENE ', 4.760E+00, 0.0E+00 / ! Sander ACP 2015, Mackay et al. (1993) DATA SUBNAME(199), A(199), E(199) / 'METHCHLORIDE ', 1.320E-01, 3.3E+03 / ! Sander ACP 2015, Sander et al. (2011) DATA SUBNAME(200), A(200), E(200) / 'CARBSULFIDE ', 2.130E-02, 3.3E+03 / ! Sander ACP 2015, Warneck Williams (2012) DATA SUBNAME(201), A(201), E(201) / '6_NITRO_O_CRESOL', 2.938E+01, 0.0E+00 / ! 6-methyl-2-nitrophenol from Sander ACP 2015, Tremp et. al (1992) DATA SUBNAME(202), A(202), E(202) / 'SVMT1 ', 7.1E+11, 6.0E+03 / ! est based on Hodzic 2014 GRL DATA SUBNAME(203), A(203), E(203) / 'SVMT2 ', 8.9E+10, 6.0E+03 / ! est based on Hodzic 2014 GRL DATA SUBNAME(204), A(204), E(204) / 'SVMT3 ', 1.1E+10, 6.0E+03 / ! est based on Hodzic 2014 GRL DATA SUBNAME(205), A(205), E(205) / 'SVMT4 ', 1.4E+09, 6.0E+03 / ! est based on Hodzic 2014 GRL DATA SUBNAME(206), A(206), E(206) / 'SVMT5 ', 1.8E+08, 6.0E+03 / ! est based on Hodzic 2014 GRL DATA SUBNAME(207), A(207), E(207) / 'SVMT6 ', 2.2E+07, 6.0E+03 / ! est based on Hodzic 2014 GRL DATA SUBNAME(208), A(208), E(208) / 'SVMT7 ', 2.8E+06, 6.0E+03 / ! est based on Hodzic 2014 GRL DATA SUBNAME(209), A(209), E(209) / 'SVAVB1 ', 5.5E+09, 6.0E+03 / ! est based on Hodzic 2014 GRL DATA SUBNAME(210), A(210), E(210) / 'SVAVB2 ', 7.9E+07, 6.0E+03 / ! est based on Hodzic 2014 GRL DATA SUBNAME(211), A(211), E(211) / 'SVAVB3 ', 1.2E+07, 6.0E+03 / ! est based on Hodzic 2014 GRL DATA SUBNAME(212), A(212), E(212) / 'SVAVB4 ', 1.8E+06, 6.0E+03 / ! est based on Hodzic 2014 GRL DATA SUBNAME(213), A(213), E(213) / 'CLNO3 ', 1.00E+30, 0.0E+00 / ! Sander (2015) DATA SUBNAME(214), A(214), E(214) / 'IBR ', 2.43E+01, 4.9E+03 / ! Sherwen et al., 2016 DATA SUBNAME(215), A(215), E(215) / 'FMBR ', 7.40E+01, 0.0E+00 / ! Sander, R. ACP (2015), krysztofiak et al. (2012) DATA SUBNAME(216), A(216), E(216) / 'CLO ', 7.00E-03, 0.0E+00 / ! Sander et al., ACP, 2015 DATA SUBNAME(217), A(217), E(217) / 'BENAPY ', 2.00E+03, 4.7E+03 / ! benzo[a]pyrene Ma et al. (2010) and ten Hulscher et al. (1992) in Sander et al., ACP, 2015 DATA SUBNAME(218), A(218), E(218) / 'XYEOPERA ', 1.27E-01, 4.0E+03 / ! O-xylene T dep from Staudinger and Roberts 1996, CRACMM RepCmp (OPERA SAR) DATA SUBNAME(219), A(219), E(219) / 'ROCIOXYOPERA ', 8.12E+00, 0.0E+00 / ! emission wt. CRACMM value (OPERA SAR) DATA SUBNAME(220), A(220), E(220) / 'UALDOPERA ', 44.0E+00, 0.0E+00 / ! CRACMM RepCmp value (OPERA SAR) DATA SUBNAME(221), A(221), E(221) / 'OLTOPERA ', 5.09E-03, 0.0E+00 / ! CRACMM RepCmp value (OPERA SAR) DATA SUBNAME(222), A(222), E(222) / 'OLIOPERA ', 4.85E-03, 0.0E+00 / ! CRACMM RepCmp value (OPERA SAR) DATA SUBNAME(223), A(223), E(223) / 'BENOPERA ', 0.18E+00, 0.0E+00 / ! CRACMM RepCmp value (OPERA SAR) DATA SUBNAME(224), A(224), E(224) / 'PHENOPERA ', 1.83E+04, 0.0E+00 / ! CRACMM RepCmp value (OPERA SAR) DATA SUBNAME(225), A(225), E(225) / 'TOLOPERA ', 0.15E+00, 0.0E+00 / ! CRACMM RepCmp value (OPERA SAR) DATA SUBNAME(226), A(226), E(226) / 'CSLOPERA ', 1.42E+03, 0.0E+00 / ! CRACMM RepCmp value (OPERA SAR) DATA SUBNAME(227), A(227), E(227) / 'XYMOPERA ', 0.14E+00, 0.0E+00 / ! CRACMM RepCmp value (OPERA SAR) DATA SUBNAME(228), A(228), E(228) / 'ISOOPERA ', 1.86E-02, 0.0E+00 / ! CRACMM RepCmp value (OPERA SAR) DATA SUBNAME(229), A(229), E(229) / 'APIOPERA ', 7.49E-03, 0.0E+00 / ! CRACMM RepCmp value (OPERA SAR) DATA SUBNAME(230), A(230), E(230) / 'LIMOPERA ', 4.44E-02, 0.0E+00 / ! CRACMM RepCmp value (OPERA SAR) DATA SUBNAME(231), A(231), E(231) / 'ORA2OPERA ', 9.95E+03, 0.0E+00 / ! CRACMM RepCmp value (OPERA SAR) DATA SUBNAME(232), A(232), E(232) / 'ACROOPERA ', 8.28E+00, 0.0E+00 / ! CRACMM RepCmp value (OPERA SAR) DATA SUBNAME(233), A(233), E(233) / 'BDE13OPERA ', 2.42E-02, 0.0E+00 / ! CRACMM RepCmp value (OPERA SAR) DATA SUBNAME(234), A(234), E(234) / 'PROGOPERA ', 1.65E+04, 0.0E+00 / ! CRACMM RepCmp value (OPERA SAR) DATA SUBNAME(235), A(235), E(235) / 'FURANOPERA ', 5.11E+03, 0.0E+00 / ! CRACMM RepCmp value (OPERA SAR) DATA SUBNAME(236), A(236), E(236) / 'SLOWROCOPERA ', 1.95E+00, 0.0E+00 / ! emission wt. CRACMM value (OPERA SAR) DATA SUBNAME(237), A(237), E(237) / 'SESQOPERA ', 1.07E-01, 0.0E+00 / ! CRACMM RepCmp value (OPERA SAR) DATA SUBNAME(238), A(238), E(238) / 'NAPHOPERA ', 2.28E+00, 0.0E+00 / ! CRACMM RepCmp value (OPERA SAR) DATA SUBNAME(239), A(239), E(239) / 'HC3OPERA ', 2.55E-03, 0.0E+00 / ! CRACMM RepCmp value (OPERA SAR) DATA SUBNAME(240), A(240), E(240) / 'HC5OPERA ', 8.04E-04, 0.0E+00 / ! CRACMM RepCmp value (OPERA SAR) DATA SUBNAME(241), A(241), E(241) / 'HC10OPERA ', 6.52E-03, 0.0E+00 / ! CRACMM RepCmp value (OPERA SAR) DATA SUBNAME(242), A(242), E(242) / 'ORA1OPERA ', 5.95E+03, 0.0E+00 / ! CRACMM RepCmp value (OPERA SAR) DATA SUBNAME(243), A(243), E(243) / 'MCTOPERA ', 5.80E+03, 0.0E+00 / ! CRACMM RepCmp value (OPERA SAR) DATA SUBNAME(244), A(244), E(244) / 'FURANONEOPERA ', 7.87E+04, 0.0E+00 / ! CRACMM RepCmp value (OPERA SAR) DATA SUBNAME(245), A(245), E(245) / 'IPCOPERA ', 4.72E+05, 0.0E+00 / ! CRACMM RepCMP value (OPERA SAR) DATA SUBNAME(246), A(246), E(246) / 'IPNOPERA ', 4.69E+04, 0.0E+00 / ! CRACMM RepCMP value (OPERA SAR) DATA SUBNAME(247), A(247), E(247) / 'VROCN2OXY2OPERA ', 1.15E+05, 0.0E+00 / ! CRACMM RepCMP value (OPERA SAR) DATA SUBNAME(248), A(248), E(248) / 'VROCN2OXY4OPERA ', 9.71E+05, 0.0E+00 / ! CRACMM RepCMP value (OPERA SAR) DATA SUBNAME(249), A(249), E(249) / 'VROCN2OXY8OPERA ', 3.80E+06, 0.0E+00 / ! CRACMM RepCMP value (OPERA SAR) DATA SUBNAME(250), A(250), E(250) / 'VROCN1OXY1OPERA ', 2.14E+04, 0.0E+00 / ! CRACMM RepCMP value (OPERA SAR) DATA SUBNAME(251), A(251), E(251) / 'VROCN1OXY3OPERA ', 2.87E+06, 0.0E+00 / ! CRACMM RepCMP value (OPERA SAR) DATA SUBNAME(252), A(252), E(252) / 'VROCN1OXY6OPERA ', 1.01E+06, 0.0E+00 / ! CRACMM RepCMP value (OPERA SAR) DATA SUBNAME(253), A(253), E(253) / 'VROCP0OXY2OPERA ', 4.03E+05, 0.0E+00 / ! CRACMM RepCMP value (OPERA SAR) DATA SUBNAME(254), A(254), E(254) / 'VROCP0OXY4OPERA ', 8.55E+05, 0.0E+00 / ! CRACMM RepCMP value (OPERA SAR) DATA SUBNAME(255), A(255), E(255) / 'VROCP1OXY1OPERA ', 4.52E+04, 0.0E+00 / ! CRACMM RepCMP value (OPERA SAR) DATA SUBNAME(256), A(256), E(256) / 'VROCP1OXY3OPERA ', 1.02E+04, 0.0E+00 / ! CRACMM RepCMP value (OPERA SAR) DATA SUBNAME(257), A(257), E(257) / 'VROCP2OXY2OPERA ', 4.93E+03, 0.0E+00 / ! CRACMM RepCMP value (OPERA SAR) DATA SUBNAME(258), A(258), E(258) / 'VROCP3OXY2OPERA ', 1.10E+02, 0.0E+00 / ! CRACMM RepCMP value (OPERA SAR) DATA SUBNAME(259), A(259), E(259) / 'VROCP4OXY2OPERA ', 6.45E+02, 0.0E+00 / ! CRACMM RepCMP value (OPERA SAR) DATA SUBNAME(260), A(260), E(260) / 'VROCP5OXY1OPERA ', 1.57E+00, 0.0E+00 / ! CRACMM RepCMP value (OPERA SAR) DATA SUBNAME(261), A(261), E(261) / 'VROCP6OXY1OPERA ', 1.37E+00, 0.0E+00 / ! CRACMM RepCMP value (OPERA SAR) DATA SUBNAME(262), A(262), E(262) / 'VROCP5AROOPERA ', 4.15E-01, 0.0E+00 / ! CRACMM RepCmp value (OPERA SAR) DATA SUBNAME(263), A(263), E(263) / 'VROCP6AROOPERA ', 1.87E-01, 0.0E+00 / ! CRACMM RepCmp value (OPERA SAR) DATA SUBNAME(264), A(264), E(264) / 'VROCN2ALKOPERA ', 1.34E+03, 0.0E+00 / ! CRACMM RepCmp value (OPERA SAR) DATA SUBNAME(265), A(265), E(265) / 'VROCN1ALKOPERA ', 1.34E+03, 0.0E+00 / ! CRACMM RepCmp value (OPERA SAR) DATA SUBNAME(266), A(266), E(266) / 'VROCP0ALKOPERA ', 1.33E+03, 0.0E+00 / ! CRACMM RepCmp value (OPERA SAR) DATA SUBNAME(267), A(267), E(267) / 'VROCP1ALKOPERA ', 1.33E+03, 0.0E+00 / ! CRACMM RepCmp value (OPERA SAR) DATA SUBNAME(268), A(268), E(268) / 'VROCP2ALKOPERA ', 1.17E+03, 0.0E+00 / ! CRACMM RepCmp value (OPERA SAR) DATA SUBNAME(269), A(269), E(269) / 'VROCP3ALKOPERA ', 6.10E+02, 0.0E+00 / ! CRACMM RepCmp value (OPERA SAR) DATA SUBNAME(270), A(270), E(270) / 'VROCP4ALKOPERA ', 2.94E+01, 0.0E+00 / ! CRACMM RepCmp value (OPERA SAR) DATA SUBNAME(271), A(271), E(271) / 'VROCP5ALKOPERA ', 5.41E-02, 0.0E+00 / ! CRACMM RepCmp value (OPERA SAR) DATA SUBNAME(272), A(272), E(272) / 'VROCP6ALKOPERA ', 6.90E-03, 0.0E+00 / ! CRACMM RepCmp value (OPERA SAR) DATA SUBNAME(273), A(273), E(273) / 'STYOPERA ', 3.89E-01, 0.0E+00 / ! CRACMM RepCmp value (OPERA SAR) DATA SUBNAME(274), A(274), E(274) / 'EBZOPERA ', 1.27E-01, 4.0E+03 / ! O-xylene T dep from Staudinger and Roberts 1996, CRACMM RepCmp (OPERA SAR) DATA SUBNAME(275), A(275), E(275) / 'XYLOPERA ', 0.14E+00, 0.0E+00 / ! CRACMM RepCmp value (OPERA SAR) DATA SUBNAME(276), A(276), E(276) / 'INALDOPERA ', 1.00E+05, 0.0E+00 / ! CRACMM RepCMP value (OPERA SAR) DATA SUBNAME(277), A(277), E(277) / 'IPXOPERA ', 1.55E+07, 0.0E+00 / ! CRACMM RepCMP value (OPERA SAR) DATA B( LSO2 ), D( LSO2 ) / 1.30E-02, 1.96E+03 / ! SO2*H2O<=>HSO3+H : Smith and Martell (1976) DATA B( LHSO3 ), D( LHSO3 ) / 6.60E-08, 1.50E+03 / ! HSO3<=>SO3+H : Smith and Martell (1976) DATA B( LHNO2 ), D( LHNO2 ) / 5.10E-04, -1.26E+03 / ! HNO2(aq)<=>NO2+H : Schwartz and White (1981) DATA B( LHNO3 ), D( LHNO3 ) / 1.54E+01, 8.70E+03 / ! HNO3(aq)<=>NO3+H : Schwartz (1984) DATA B( LCO2 ), D( LCO2 ) / 4.30E-07, -1.00E+03 / ! CO2*H2O<=>HCO3+H : Smith and Martell (1976) DATA B( LHCO3 ), D( LHCO3 ) / 4.68E-11, -1.76E+03 / ! HCO3<=>CO3+H : Smith and Martell (1976) DATA B( LH2O2 ), D( LH2O2 ) / 2.20E-12, -3.73E+03 / ! H2O2(aq)<=>HO2+H : Smith and Martell (1976) DATA B( LHCOOH ), D( LHCOOH ) / 1.80E-04, -2.00E+01 / ! HCOOH(aq)<=>HCOO+H : Martell and Smith (1977) DATA B( LHO2 ), D( LHO2 ) / 3.50E-05, 0.00E+00 / ! HO2(aq)<=>H+O2 : Perrin (1982) DATA B( LNH4OH ), D( LNH4OH ) / 1.70E-05, -4.50E+02 / ! NH4*OH<=>NH4+OH : Smith and Martell (1976) DATA B( LH2O ), D( LH2O ) / 1.00E-14, -6.71E+03 / ! H2O<=>H+OH : Smith and Martell (1976) DATA B( LATRA ), D( LATRA ) / 2.09E-02, 0.00E+00 / ! C8H14ClN5<=>C8H13ClN5+H : Weber (1970) DATA B( LCL2 ), D( LCL2 ) / 5.01E-04, 0.00E+00 / ! CL2*H2O <=> HOCL + H + CL : LIN AND PEHKONEN, JGR, 103, D21, 28093-28102, NOVEMBER 20, 1998. ALSO SEE NOTE BELOW DATA B( LHOCL ), D( LHOCL ) / 3.16E-08, 0.00E+00 / ! HOCL <=>H + OCL : LIN AND PEHKONEN, JGR, 103, D21, 28093-28102, NOVEMBER 20, 1998 DATA B( LHCL ), D( LHCL ) / 1.74E+06, 6.90E+03 / ! HCL <=> H + CL : Marsh and McElroy (1985) DATA B( LHYDRAZINE), D( LHYDRAZINE) / 1.11E-08, 0.00E+00 / ! HYDRAZINE <=> HYDRAZINE+ + OH- : Moliner and Street (1989) DATA B( LHBR ), D( LHBR ) / 1.00E+09, 0.00E+00 / ! HBR <=> H + BR : Schweitzer et al. (2000) DATA B( LHI ), D( LHI ) / 3.20E+09, 0.00E+00 / ! HI <=> H + I : Schweitzer et al. (2000) DATA B( LACRYACID ), D( LACRYACID ) / 5.62E-05, 0.00E+00 / ! CH3C(O)OH <=> H + CH3C(O)O : Riddick et al. (1985) !------------------------------------------------------------------------------- ! Note for dissociation constant for equation 14: CL2*H2O <=> HOCL + H + CL ! Need aqueous [CL-] concentration to calculate effective henry's law coefficient ! Used a value of 2.0 mM following Lin and Pehkonen, JGR, 103, D21, 28093-28102, November 20, 1998 !------------------------------------------------------------------------------- C...........EXTERNAL FUNCTIONS: C----------------------------------------------------------------------- SPC = 0 DO S = 1, MXSPCS IF( CNAME .EQ. SUBNAME( S ) )THEN SPC = S EXIT END IF END DO C...error if species not found in table IF ( SPC .LE. 0 ) THEN XMSG = TRIM( CNAME ) // ' not found in Henry''s '// & ' Law Constant table in routine HLCONST.' CALL M3EXIT ( PNAME, 0, 0, XMSG, XSTAT2 ) END IF C...compute the Henry's Law Constant TFAC = ( 298.0 - TEMP) / ( 298.0 * TEMP ) KH = A( SPC ) * EXP( E( SPC ) * TFAC ) HLCONST = KH C...compute the effective Henry's law constants IF ( EFFECTIVE ) THEN IF ( HPLUS .LE. 0.0 ) THEN XMSG = 'Negative or Zero [H+] concentration specified ' // & 'in HLCONST ' CALL M3EXIT ( PNAME, 0, 0, XMSG, XSTAT2 ) END IF HPLUSI = 1.0 / HPLUS HPLUS2I = HPLUSI * HPLUSI C...assign a value for clminus. use 2.0 mM based on Lin and Pehkonene, 1998, JGR CLMINUS = 2.0E-03 ! chlorine ion conc [CL-] CLMINUSI = 1.0 / CLMINUS ! 1 / CLMINUS CHECK_NAME: SELECT CASE ( CNAME ) CASE ('SO2') ! SO2H2O <=> HSO3- + H+ ! & HSO3- <=> SO3= + H+ AKEQ1 = B( LSO2 ) * EXP( D( LSO2 ) * TFAC ) AKEQ2 = B( LHSO3 ) * EXP( D( LHSO3 ) * TFAC ) HLCONST = KH * ( 1.0 + AKEQ1 * HPLUSI + AKEQ1 * AKEQ2 * HPLUS2I ) CASE ('HNO2') ! HNO2(aq) <=> NO2- + H+ AKEQ1 = B( LHNO2 ) * EXP( D( LHNO2 ) * TFAC ) HLCONST = KH * ( 1.0 + AKEQ1 * HPLUSI ) CASE ('HNO3') ! HNO3(aq) <=> NO3- + H+ AKEQ1 = B( LHNO3 ) * EXP( D( LHNO3 ) * TFAC ) HLCONST = KH * ( 1.0 + AKEQ1 * HPLUSI ) CASE ('CO2') ! CO2H2O <=> HCO3- + H+ ! & HCO3- <=> CO3= + H+ AKEQ1 = B( LCO2 ) * EXP( D( LCO2 ) * TFAC ) AKEQ2 = B( LHCO3 ) * EXP( D( LHCO3 ) * TFAC ) HLCONST = KH & * ( 1.0 + AKEQ1 * HPLUSI + AKEQ1 * AKEQ2 * HPLUS2I ) CASE ('H2O2') ! H2O2(aq) <=> HO2- + H+ AKEQ1 = B( LH2O2 ) * EXP( D( LH2O2 ) * TFAC ) HLCONST = KH * ( 1.0 + AKEQ1 * HPLUSI ) CASE ('FORMIC_ACID') ! HCOOH(aq) <=> HCOO- + H+ AKEQ1 = B( LHCOOH ) * EXP( D( LHCOOH ) * TFAC ) HLCONST = KH * ( 1.0 + AKEQ1 * HPLUSI ) CASE ('HO2') ! HO2(aq) <=> H+ + O2- AKEQ1 = B( LHO2 ) * EXP( D( LHO2 ) * TFAC ) HLCONST = KH * ( 1.0 + AKEQ1 * HPLUSI ) CASE ('NH3') ! NH4OH <=> NH4+ + OH- AKEQ1 = B( LNH4OH ) * EXP( D( LNH4OH ) * TFAC ) AKEQ2 = B( LH2O ) * EXP( D( LH2O ) * TFAC ) OHION = AKEQ2 * HPLUSI HLCONST = KH * ( 1.0 + AKEQ1 / OHION ) CASE ('HYDRAZINE') ! HYDRAZINE <=> HYDRAZINE+ + OH- AKEQ1 = B( LHYDRAZINE ) * EXP( D( LHYDRAZINE ) * TFAC ) AKEQ2 = B( LH2O ) * EXP( D( LH2O ) * TFAC ) OHION = AKEQ2 * HPLUSI HLCONST = KH * ( 1.0 + AKEQ1 / OHION ) CASE ('ATRA', 'DATRA') ! ATRA(aq) <=> ATRA- + H ! or DATRA(aq) <=> DATRA- + H AKEQ1 = B( LATRA ) * EXP( D( LATRA ) * TFAC ) HLCONST = KH * ( 1.0 + AKEQ1 * HPLUSI ) CASE ( 'CL2' ) ! CL2*H2O <=> HOCL + H + CL ! HOCL <=>H + OCL AKEQ1 = B( LCL2 ) * EXP( D( LCL2 ) * TFAC ) AKEQ2 = B( LHOCL ) * EXP( D( LHOCL ) * TFAC ) HLCONST = KH * ( 1.0 + AKEQ1 * HPLUSI * CLMINUSI & + AKEQ1 * AKEQ2 * HPLUS2I * CLMINUSI ) CASE ( 'HCL' ) ! HCL <=> H+ + CL- AKEQ1 = B( LHCL ) * EXP( D( LHCL ) * TFAC ) HLCONST = KH * ( 1.0 + AKEQ1 * HPLUSI ) CASE ( 'HOCL' ) ! HOCL <=> H+ + OCL- AKEQ1 = B( LHOCL ) * EXP( D( LHOCL ) * TFAC ) HLCONST = KH * ( 1.0 + AKEQ1 * HPLUSI ) CASE ( 'HBR' ) ! HBR <=> H+ + BR- AKEQ1 = B( LHBR ) * EXP( D( LHBR ) * TFAC ) HLCONST = KH * ( 1.0 + AKEQ1 * HPLUSI ) CASE ( 'HI' ) ! HI <=> H+ + I- AKEQ1 = B( LHI ) * EXP( D( LHI ) * TFAC ) HLCONST = KH * ( 1.0 + AKEQ1 * HPLUSI ) CASE ( 'ACRYACID' ) ! CH3C(O)OH <=> H + CH3C(O)O AKEQ1 = B( LACRYACID ) * EXP( D( LACRYACID ) * TFAC ) HLCONST = KH * ( 1.0 + AKEQ1 * HPLUSI ) END SELECT CHECK_NAME END IF RETURN END ================================================ FILE: CCTM/src/cloud/acm_ae6/indexn.f ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! INTEGER FUNCTION INDEXN ( NAME1, N, NAME2, INDICES ) C*********************************************************************** C C FUNCTION: C C This routine searches for all occurrences of NAME1 in list NAME2 C C REVISION HISTORY: C C 5/88 Modified for ROMNET C C ARGUMENT LIST DESCRIPTION: C C Input arguments: C C NAME1 Character string being searched for C N Length of array to be searched C NAME2 Character array to be searched C INDICES Index array of all occurrences C C Output arguments: C C INDEXN The number of occurrences of NAME1 within the NAME2 C array. If string was not found, INDEXN = 0 C C LOCAL VARIABLE DESCRIPTION: C C None C C*********************************************************************** IMPLICIT NONE INTEGER N INTEGER I INTEGER INDICES(*) CHARACTER*(*) NAME1 CHARACTER*(*) NAME2(*) C...Assume NAME1 is not in list NAME2 INDEXN = 0 DO I = 1, N IF ( INDEX( NAME2( I ), NAME1 ) .GT. 0 ) THEN INDEXN = INDEXN + 1 INDICES( INDEXN ) = I END IF END DO RETURN END ================================================ FILE: CCTM/src/cloud/acm_ae6/opwdep.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! !::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE OPWDEP ( JDATE, JTIME, TSTEP ) !----------------------------------------------------------------------- ! ! FUNCTION: Open wet dep file(s) ! ! PRECONDITIONS: ! Dates and times represented YYYYDDD:HHMMSS. ! ! REVISION HISTORY: ! Date Who What ! -------- --- ----------------------------------------- ! 07/17/15 D. Wong initial version ! 12/30/19 S. Napelenok ddm-3d implemenation for v5.3.1 !----------------------------------------------------------------------- USE GRID_CONF ! horizontal & vertical domain specifications USE CGRID_SPCS ! CGRID mechanism species USE UTILIO_DEFN #ifdef sens USE DDM3D_DEFN, ONLY : NP, NPMAX, SEN_PAR, SENNUM, S_WETDEPSPC #endif IMPLICIT NONE !...........INCLUDES INCLUDE SUBST_CONST ! constants INCLUDE SUBST_FILES_ID ! file name parameters CHARACTER( 120 ) :: XMSG = ' ' ! exit message string !...........PARAMETERS !...........ARGUMENTS INTEGER, INTENT (IN) :: JDATE ! current model date, coded YYYYDDD INTEGER, INTENT (IN) :: JTIME ! current model time, coded HHMMSS INTEGER, INTENT (IN) :: TSTEP ! model time step, coded HHMMSS !...........Local Variables CHARACTER( 16 ), SAVE :: PNAME = 'OPWDEP' ! driver program name INTEGER FINI ! ending position INTEGER L ! loop counter INTEGER SPC ! species subscript indices INTEGER STRT ! starting position INTEGER VAR ! variable subscript indices !----------------------------------------------------------------------- !...Initialization !...first check to make sure that some species in CGRID were specified !...for output in the wet deposition array, otherwise notify the user !...and return IF ( N_SPC_WDEP .LE. 0 ) THEN XMSG = 'No species were specified for wet deposition ' // & 'tracking' CALL M3WARN ( PNAME, JDATE, JTIME, XMSG ) XMSG = 'ONLY CLOUD DIAGNOSTICS WILL BE WRITTEN TO THE ' // & 'WETDEP OUTPUT FILE!' CALL M3MESG ( XMSG ) END IF #ifndef mpas C Try to open existing wet deposition file for update IF ( IO_PE_INCLUSIVE ) THEN WRITE( LOGDEV, * ) IF ( .NOT. OPEN3( CTM_WET_DEP_1, FSRDWR3, PNAME ) ) THEN XMSG = 'Could not open ' // CTM_WET_DEP_1 // ' file for update - ' & // 'try to open new' CALL M3MESG( XMSG ) !...Create wet deposition file: !... copy most of header description from !... MET_CRO_2D and initialize depositions to zero. !...open MET_CRO_2D IF ( .NOT. OPEN3( MET_CRO_2D, FSREAD3, PNAME ) ) THEN XMSG = 'Could not open '// MET_CRO_2D // ' file' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF !...get description from the met file IF ( .NOT. DESC3( MET_CRO_2D ) ) THEN XMSG = 'Could not get ' // MET_CRO_2D //' file description' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF NCOLS3D = GL_NCOLS NROWS3D = GL_NROWS XORIG3D = XORIG_GD YORIG3D = YORIG_GD !...advance to time variable for the output file to the next hour SDATE3D = JDATE STIME3D = 10000 * ( JTIME / 10000 ) ! clear MMSS fields TSTEP3D = TSTEP CALL NEXTIME ( SDATE3D, STIME3D, TSTEP3D ) ! on the next hour NVARS3D = N_SPC_WDEP + 1 !...define wet deposition output descriptors for gaseous species SPC = 0 STRT = 1 FINI = N_GC_WDEP DO VAR = STRT, FINI SPC = SPC + 1 VTYPE3D ( VAR ) = M3REAL VNAME3D ( VAR ) = GC_WDEP( SPC ) UNITS3D ( VAR ) = 'kg ha-1' VDESC3D ( VAR ) = 'hourly wet deposition values' END DO !...define wet deposition output descriptors for aerosol species SPC = 0 STRT = N_GC_WDEP + 1 FINI = N_GC_WDEP + N_AE_WDEP DO VAR = STRT, FINI SPC = SPC + 1 VTYPE3D ( VAR ) = M3REAL VNAME3D ( VAR ) = AE_WDEP( SPC ) IF ( INDEX( AE_WDEP( SPC ), 'NUM' ) .GT. 0 ) THEN UNITS3D ( VAR ) = 'ha-1' ELSE IF ( INDEX( AE_WDEP( SPC ), 'SRF' ) .GT. 0 ) THEN UNITS3D ( VAR ) = 'm2 ha-1' ELSE UNITS3D ( VAR ) = 'kg ha-1' END IF VDESC3D ( VAR ) = 'hourly wet deposition values' END DO !...define wet deposition output descriptors for non-reactive species SPC = 0 STRT = N_GC_WDEP + N_AE_WDEP + 1 FINI = N_GC_WDEP + N_AE_WDEP + N_NR_WDEP DO VAR = STRT, FINI SPC = SPC + 1 VTYPE3D ( VAR ) = M3REAL VNAME3D ( VAR ) = NR_WDEP( SPC ) UNITS3D ( VAR ) = 'kg ha-1' VDESC3D ( VAR ) = 'hourly wet deposition values' END DO !...define wet deposition output descriptors for tracer species SPC = 0 STRT = N_GC_WDEP + N_AE_WDEP + N_NR_WDEP + 1 FINI = N_GC_WDEP + N_AE_WDEP + N_NR_WDEP + N_TR_WDEP DO VAR = STRT, FINI SPC = SPC + 1 VTYPE3D ( VAR ) = M3REAL VNAME3D ( VAR ) = TR_WDEP( SPC ) UNITS3D ( VAR ) = 'kg ha-1' VDESC3D ( VAR ) = 'hourly wet deposition values' END DO !...define output descriptor for hydrogen concentration VAR = N_GC_WDEP + N_AE_WDEP + N_NR_WDEP + N_TR_WDEP + 1 VTYPE3D( VAR ) = M3REAL VNAME3D( VAR ) = 'HPLUS' UNITS3D( VAR ) = 'kg ha-1' VDESC3D( VAR ) = 'hourly wet deposition values' !...initialize the file descriptors FDESC3D( 1 ) = 'hourly 1-layer cross-point wet deposition' & // ' from all cloud types' DO L = 2 , MXDESC3 FDESC3D( L ) = ' ' END DO GDNAM3D = GRID_NAME ! from HGRD_DEFN !...try to open the output file new IF ( .NOT. OPEN3( CTM_WET_DEP_1, FSNEW3, PNAME ) ) THEN XMSG = 'Could not create '// CTM_WET_DEP_1 // ' file' CALL M3EXIT ( PNAME, SDATE3D, STIME3D, XMSG, XSTAT1 ) END IF END IF ! open CTM_WET_DEP_1 read/write #ifdef sens IF ( .NOT. OPEN3( CTM_SWETDEP_1, FSRDWR3, PNAME ) ) THEN XMSG = 'Could not open ' // CTM_SWETDEP_1 // & ' file for update - try to open new' CALL M3MESG( XMSG ) C...Create sensitivity wet deposition file: NVARS3D = ( N_SPC_WDEP + 1 ) * NPMAX ALLOCATE ( S_WETDEPSPC( NVARS3D ) ) S_WETDEPSPC = 'blank' VTYPE3D = M3REAL VDESC3D = 'Sens of hourly wet dep values' C...define sens wet deposition output descriptors for gaseous species SPC = 0 STRT = 1 FINI = N_GC_WDEP DO VAR = STRT, FINI SPC = SPC + 1 DO NP = 1, NPMAX SENNUM = ( SPC - 1 ) * NPMAX + NP VNAME3D ( SENNUM ) = TRIM( GC_WDEP( SPC )( 1:12 ) ) //'_'// SEN_PAR( NP ) UNITS3D ( SENNUM ) = 'kg/hectare' S_WETDEPSPC ( SENNUM ) = VNAME3D ( SENNUM ) END DO END DO C...define wet deposition output descriptors for aerosol species SPC = 0 STRT = N_GC_WDEP + 1 FINI = N_GC_WDEP + N_AE_WDEP DO VAR = STRT, FINI SPC = SPC + 1 DO NP = 1, NPMAX SENNUM = ( NPMAX * N_GC_WDEP ) + ( SPC - 1 ) *NPMAX + NP VNAME3D ( SENNUM ) = TRIM( AE_WDEP( SPC )( 1:12 ) ) //'_'// SEN_PAR( NP ) IF ( INDEX( AE_WDEP( SPC ), 'NUM' ) .GT. 0 ) THEN UNITS3D ( SENNUM ) = 'number/hectare' ELSE IF ( INDEX( AE_WDEP( SPC ), 'SRF' ) .GT. 0 ) THEN UNITS3D ( SENNUM ) = 'm2/hectare' ELSE UNITS3D ( SENNUM ) = 'kg/hectare' END IF S_WETDEPSPC ( SENNUM ) = VNAME3D ( SENNUM ) END DO END DO C...define wet deposition output descriptors for non-reactive species SPC = 0 STRT = N_GC_WDEP + N_AE_WDEP + 1 FINI = N_GC_WDEP + N_AE_WDEP + N_NR_WDEP DO VAR = STRT, FINI SPC = SPC + 1 DO NP = 1, NPMAX SENNUM = NPMAX * ( N_GC_WDEP + N_AE_WDEP ) + ( SPC - 1 ) * NPMAX + NP VNAME3D ( SENNUM ) = TRIM( NR_WDEP( SPC )( 1:12 ) ) //'_'// SEN_PAR( NP ) UNITS3D ( SENNUM ) = 'kg/hectare' S_WETDEPSPC ( SENNUM ) = VNAME3D ( SENNUM ) END DO END DO C...define wet deposition output descriptors for tracer species SPC = 0 STRT = N_GC_WDEP + N_AE_WDEP + N_NR_WDEP + 1 FINI = N_GC_WDEP + N_AE_WDEP + N_NR_WDEP + N_TR_WDEP DO VAR = STRT, FINI SPC = SPC + 1 DO NP = 1, NPMAX SENNUM = NPMAX * ( N_GC_WDEP + N_AE_WDEP + N_NR_WDEP ) + ( SPC - 1 ) * NPMAX + NP VNAME3D ( SENNUM ) = TRIM( TR_WDEP( SPC )( 1:12 ) ) //'_'// SEN_PAR( NP ) UNITS3D ( SENNUM ) = 'kg/hectare' S_WETDEPSPC ( SENNUM ) = VNAME3D ( SENNUM ) END DO END DO C...define output descriptor for hydrogen concentration VAR = N_GC_WDEP + N_AE_WDEP + N_NR_WDEP + N_TR_WDEP DO NP = 1, NPMAX SENNUM = NPMAX * VAR + NP VNAME3D ( SENNUM ) = 'HPLUS_' // SEN_PAR( NP ) UNITS3D ( SENNUM ) = 'kg/hectare' S_WETDEPSPC ( SENNUM ) = VNAME3D ( SENNUM ) END DO C...initialize the file descriptors FDESC3D = ' ' FDESC3D( 1 ) = 'Sensitivity of hourly 1-layer ' & // 'cross-point wet deposition ' & // 'from all cloud types' C...try to open the output file new IF ( .NOT. OPEN3( CTM_SWETDEP_1, FSNEW3, PNAME ) ) THEN XMSG = 'Could not create '// CTM_SWETDEP_1 // ' file' CALL M3EXIT ( PNAME, SDATE3D, STIME3D, XMSG, XSTAT1 ) END IF END IF ! open CTM_SWETDEP_1 read/write #endif !...open the diagnostic file if user asked for it IF ( CLD_DIAG ) THEN !...Try to open existing file for update WRITE( LOGDEV, * ) IF ( .NOT. OPEN3( CTM_WET_DEP_2, FSRDWR3, PNAME ) ) THEN XMSG = 'Could not open ' // CTM_WET_DEP_2 // ' file for update - ' & // 'try to open new' CALL M3MESG( XMSG ) !...copy most of header description from !...CTM_WET_DEP_1 and initialize depositions to zero. !...get description from the other wet dep file IF ( .NOT. DESC3( CTM_WET_DEP_1 ) ) THEN XMSG = 'Could not get ' // CTM_WET_DEP_1 //' file description' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF !...advance to time variable for the output file to the next hour SDATE3D = JDATE STIME3D = 10000 * ( JTIME / 10000 ) ! clear MMSS fields TSTEP3D = TSTEP CALL NEXTIME ( SDATE3D, STIME3D, TSTEP3D ) ! on the next hour NVARS3D = N_SPC_WDEP + 8 + 4 !...define output descriptor for pressure at the lifting condensation !...level (LCL) VAR = N_GC_WDEP + N_AE_WDEP + N_NR_WDEP + N_TR_WDEP + 2 VTYPE3D( VAR ) = M3REAL VNAME3D( VAR ) = 'PLCL' UNITS3D( VAR ) = 'Pa' VDESC3D( VAR ) = 'pressure at lifting condensation level, ' & // 'or MISSING = -9999.9' !...define output descriptor for cloud bottom layer number VAR = VAR + 1 VTYPE3D( VAR ) = M3REAL VNAME3D( VAR ) = 'CLOUD_BOTTOM' UNITS3D( VAR ) = '' VDESC3D( VAR ) = 'layer number containing bottom of cloud, or MISSING = -9999.9' !...define output descriptor for precipitating cloud top layer number VAR = VAR + 1 VTYPE3D( VAR ) = M3REAL VNAME3D( VAR ) = 'PR_CLOUDTOP' UNITS3D( VAR ) = '' VDESC3D( VAR ) = 'layer number containing top of PR cloud, or MISSING = -9999.9' !...define output descriptor for non-precipitating cloud top layer number VAR = VAR + 1 VTYPE3D( VAR ) = M3REAL VNAME3D( VAR ) = 'NP_CLOUDTOP' UNITS3D( VAR ) = '' VDESC3D( VAR ) = 'layer number containing top of NP cloud, or MISSING = -9999.9' !...define output descriptor for rain event flag VAR = VAR + 1 VTYPE3D( VAR ) = M3REAL VNAME3D( VAR ) = 'RAIN_FLAG' UNITS3D( VAR ) = '' VDESC3D( VAR ) = 'Rain-event flag (values: 1,0)' !...define output descriptor for precitating cloud fraction VAR = VAR + 1 VTYPE3D( VAR ) = M3REAL VNAME3D( VAR ) = 'PR_CLDFRAC' UNITS3D( VAR ) = '1' VDESC3D( VAR ) = 'Precipitating cloud fraction' !...define output descriptor for non-precipitating cloud fraction VAR = VAR + 1 VTYPE3D( VAR ) = M3REAL VNAME3D( VAR ) = 'NP_CLDFRAC' UNITS3D( VAR ) = '1' VDESC3D( VAR ) = 'Non-precipitating cloud fraction' !...define output descriptor for precipitating cloud transmissivity VAR = VAR + 1 VTYPE3D( VAR ) = M3REAL VNAME3D( VAR ) = 'PR_TRANS' UNITS3D( VAR ) = '1' VDESC3D( VAR ) = 'Precipitating cloud transmissivity' !...define output descriptor for non-precipitating cloud transmissivity VAR = VAR + 1 VTYPE3D( VAR ) = M3REAL VNAME3D( VAR ) = 'NP_TRANS' UNITS3D( VAR ) = '1' VDESC3D( VAR ) = 'Non-precipitating cloud transmissivity' !...define output descriptor for resolved cloud transmissivity VAR = VAR + 1 VTYPE3D( VAR ) = M3REAL VNAME3D( VAR ) = 'RES_TRANS' UNITS3D( VAR ) = '1' VDESC3D( VAR ) = 'Resolved cloud transmissivity' !...define output descriptor for overall cloud transmissivity VAR = VAR + 1 VTYPE3D( VAR ) = M3REAL VNAME3D( VAR ) = 'CLD_TRANS' UNITS3D( VAR ) = '1' VDESC3D( VAR ) = 'Total cloud transmissivity' !...initialize the file descriptors FDESC3D( 1 ) = 'hourly 1-layer cross-point wet deposition ' & // 'from sub-grid clouds and cloud data' DO L = 2 , MXDESC3 FDESC3D( L ) = ' ' END DO !...try to open the diagnostic output file IF ( .NOT. OPEN3( CTM_WET_DEP_2, FSNEW3, PNAME ) ) THEN XMSG = 'Could not create '// CTM_WET_DEP_2 // ' file' CALL M3EXIT ( PNAME, SDATE3D, STIME3D, XMSG, XSTAT1 ) END IF END IF ! open CTM_WET_DEP_2 read/write END IF ! CLD_DIAG END IF ! IO_PE_INCLUSIVE #endif END SUBROUTINE OPWDEP ================================================ FILE: CCTM/src/cloud/acm_ae6/rescld.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE RESCLD ( CGRD, JDATE, JTIME, TSTEP, & DEP, RESTRANS ) C----------------------------------------------------------------------- C FUNCTION: Resolved-scale CLOUD processor Models-3 science process: C Revision History: C No Date Who What C -- -------- --- ----------------------------------------- C 0 01/15/98 sjr created program C 1 03/09/98 sjr made several revisions: fix to read sub-hourly C rainfall data, reordered some of the code C 2 12/15/98 David Wong at LM C -- changed division of GPKG to multiplication of GPKG reciprocal C -- interchanged loops structure in line 317 C 3 03/18/99 David Wong at LM C -- replace "* M2PHA * ONE_OVER_GPKG" by "* M2PHA_OVER_GPKG" which C is a new constant defined as M2PHA / GPKG C 4 08/30/99 sjr revised for new aerosol model (with 2nd moments) C 5 Dec 00 Jeff move CGRID_MAP into f90 module C 6 01/04/01 sjr added QS and QI to total water content calcul. C 7 Sep 01 Jeff Dyn Alloc - Use HGRD_DEFN C 8 12/18/03 sjr & jp added QG in the water content calc C 9 07 Dec 04 J.Young: Vert Dyn Alloc - Use VGRD_DEFN C 10 31 Jan 05 J.Young: dyn alloc - establish both horizontal & vertical C domain specifications in one module C 11 25 Mar 08 sjr fixed bug in the precipitation flux calculation: C layer thickness now included in column integrated C water content and in precipitation flux C calculations (bug reported by Raymond D Wright) C 12 12 Aug 10 J.Young: replace CGRID mechanism include files with C namelists and merge Shawn Roselle's, Sergey Napelenok's C and Steve Howard's aerosol reengineering C 13 01 Mar 11 S.Roselle: replaced I/O API include files with UTILIO_DEFN; C removed deprecated TRIMLEN C 14 11 May D.Wong: incorporated twoway model implementation C 15 01 Jul 11 G. Sarwar: calculate zenith angle to determine daytime and C nightime needed for sulfur oxidation via metal catalysis C 16 02Aug12 S.Roselle: instrumented to calculate and return C transmissivity for resolved clouds C 07 Nov 14 J.Bash: Updated call to czangle.F for the ASX_DATA_MOD shared data module. C 07 May 18 D. Schwede: Removed call to CZANGLE. COSZEN now calculated in ASX_DATA_MOD C 26 Nov 18 S. Napelenok: ISAM implementation C 1 Feb 19 D. Wong: Implemented centralized I/O approach, removed all MY_N C clauses C 01 AUG 19 D. Wong: Modified code to work with two-way model C 11 Nov 19 F. Sidi: Changed MSTEP to accomdate Centralized I/O changesC C 30 Dec 19 S. Napelenok: ddm-3d implementaiton for version 5.3.1 C Called by: CLDPROC C Calls the following subroutines: SCAVWDEP and AQ_MAP C----------------------------------------------------------------------- USE RUNTIME_VARS, ONLY: STM USE GRID_CONF ! horizontal & vertical domain specifications USE CGRID_SPCS ! CGRID mechanism species USE UTILIO_DEFN USE AQ_DATA, ONLY: JH2O2_HYDROMETEORS, JHNO3_HYDROMETEORS USE AERO_DATA, ONLY : ASO4GAS_IDX, MAP_AERO, AEROSPC_MAP USE PRECURSOR_DATA, ONLY: SULF_IDX, PRECURSOR_MAP, MAP_PRECURSOR USE ASX_DATA_MOD, ONLY: MET_DATA USE PHOT_MOD, ONLY: RJ, RJ_RES, RJ_SUB, LH2O2, LHNO3 USE CENTRALIZED_IO_MODULE #ifdef isam USE SA_DEFN, ONLY: ISAM, NSPC_SA, NTAG_SA, MAP_SAtoCGR, OTHRTAG, & ISAM_SPEC, DEPSUM_SAVE, DS4_SAVE, REMOV_SAVE, & ITAG,TOT_SADEP, & DEPSUM_AORGC_SAVE, DGLY1_SAVE, DMGLY1_SAVE, & REMOV_AORGC_SAVE #endif #ifdef sens USE DDM3D_DEFN, ONLY: SENGRID, NP, NPMAX, S_CONDEP, S_POLC, & S_CEND, S_REMOV, S_REMOVAC, S_CONDEP, & S_TOTDEP #endif #ifdef mpas use util_module, only : nextime, sec2time, TIME2SEC, currstep #endif IMPLICIT NONE C...........Includes: INCLUDE SUBST_CONST ! constants INCLUDE SUBST_FILES_ID ! file name parameters C...........Arguments: REAL, INTENT( INOUT ) :: CGRD( :,:,:,: ) ! concentrations INTEGER, INTENT( IN ) :: JDATE ! current model date, coded YYYYDDD INTEGER, INTENT( IN ) :: JTIME ! current model time, coded HHMMSS INTEGER, INTENT( IN ) :: TSTEP( 3 ) ! model time steps, coded HHMMSS REAL, INTENT( INOUT ) :: DEP( :,:,: ) ! wet deposition REAL, INTENT( OUT ) :: RESTRANS( :,: ) ! resolved cloud transmissivity CHARACTER( 120 ) :: XMSG = ' ' ! Exit status message C...........Parameters: REAL, PARAMETER :: PERMIN_TO_PERSEC = 1.0 / 60.0 REAL, PARAMETER :: GPKG = 1.0E+03 ! g/kg REAL, PARAMETER :: M2PHA = 1.0E+04 ! 1 hectare = 1.0e4 m**2 REAL, PARAMETER :: M2PHA_OVER_GPKG = M2PHA / GPKG C Number of species in CGRID INTEGER, SAVE :: MXSPCS C...........Local Variables: LOGICAL, SAVE :: FIRSTIME = .TRUE. ! flag for first pass thru CHARACTER( 16 ), SAVE :: PNAME = 'RESCLD' ! process name CHARACTER( 16 ), SAVE :: VNAME_RN INTEGER COL ! column loop counter INTEGER ROW ! row loop counter INTEGER LAY ! layer loop counter INTEGER FINI ! ending position INTEGER MDATE ! process date (yyyyddd) INTEGER, SAVE :: MSTEP ! met file time step (hhmmss) INTEGER MTIME ! process time (hhmmss) INTEGER, SAVE :: SDATE ! met file start date INTEGER SPC ! liquid species loop counter INTEGER STRT ! starting position INTEGER, SAVE :: STIME ! met file start time INTEGER TCLD ! cloud lifetime (sec) INTEGER VAR ! variable loop counter INTEGER ALLOCSTAT ! memory allocation status INTEGER I REAL AIRM ! total airmass (mol/m2) in cloudy air REAL ALFA0 ! aitken mode number scavenging coef REAL ALFA2 ! aitken mode sfc area scavenging coef REAL ALFA3 ! aitken mode mass scavenging coef REAL CTHK1 ! cloud thickness (m) REAL METSTEP ! timestep on the met file (hr) SAVE METSTEP REAL PBARC ! mean cloud pressure (Pa) REAL PRATE1 ! storm rainfall rate (mm/hr) REAL QCRGCOL ! vert column integrated liquid water content REAL QCRISGCOL ! vert column integrated total water content REAL QRSGCOL ! vert column integrated precip content REAL QCICOL ! vert column integrated cloud content REAL RAIN ! non-conv rainfall rate (mm/hr) REAL REMOVAC ! variable storing H+ deposition REAL TAUCLD ! cloud lifetime (sec) REAL TBARC ! mean cloud temp (K) REAL WCBAR ! liq water content of cloud (kg/m3) REAL WPBAR ! precipitation water content (kg/m3) REAL WTBAR ! total water content of cloud (kg/m3) REAL LWP, CLOD REAL, ALLOCATABLE, SAVE :: POLC ( : ) ! incloud conc (mol/mol) REAL, ALLOCATABLE, SAVE :: CEND ( : ) ! ending conc (mol/mol) REAL, ALLOCATABLE, SAVE :: REMOV( : ) ! moles/m2 or mm*mol/lit scavenged REAL RN ( NCOLS, NROWS ) ! non-convective rainfall (cm) REAL DENS ( NCOLS, NROWS, NLAYS ) ! air density (kg/m3) REAL DZZ ( NCOLS, NROWS, NLAYS ) ! layer thickness (m) REAL PRES ( NCOLS, NROWS, NLAYS ) ! air pressure (Pa) REAL QC ( NCOLS, NROWS, NLAYS ) ! cloud water content (kg/kg) REAL QG ( NCOLS, NROWS, NLAYS ) ! graupel content (kg/kg) REAL QI ( NCOLS, NROWS, NLAYS ) ! ice content (kg/kg) REAL QR ( NCOLS, NROWS, NLAYS ) ! rain water content (kg/kg) REAL QS ( NCOLS, NROWS, NLAYS ) ! snow content (kg/kg) REAL TA ( NCOLS, NROWS, NLAYS ) ! air temperature (K) REAL ZF ( NCOLS, NROWS, NLAYS ) ! level/layer-face height (m) C Gridded meteorology data: C Latitude and longitude for zenith angle calculation: Golam Sarwar * July 1, 2011 REAL COSZ ! local cosine of zenith angle REAL JH2O2 ! H2O2 photolysis rate, 1/min REAL JHNO3 ! HNO3 photolysis rate, 1/min #ifdef isam INTEGER, SAVE :: S_SO2, S_SO4J, S_SULF INTEGER, SAVE :: C_SO2, C_SO4J, C_SULF REAL, ALLOCATABLE, SAVE :: SA_POLC ( :,: ) REAL, ALLOCATABLE, SAVE :: SA_CEND ( :,: ) INTEGER :: CSPC REAL, ALLOCATABLE, SAVE :: SA_DS4 ( : ) REAL :: SA_SUM REAL, ALLOCATABLE, SAVE :: SA_REMOV ( :,: ) INTEGER, SAVE :: S_GLY, S_MGLY, S_AORGCJ INTEGER, SAVE :: C_GLY, C_MGLY, C_AORGCJ REAL, ALLOCATABLE, SAVE :: SA_DCSOA_GLY ( : ) REAL, ALLOCATABLE, SAVE :: SA_DCSOA_MGLY ( : ) #endif C...........External Functions: INTERFACE SUBROUTINE SCAVWDEP ( JDATE, JTIME, WTBAR, WCBAR, TBARC, PBARC, & CTHK1, AIRM, PRATE1, TAUCLD, POLC, CEND, & REMOV, REMOVAC, ALFA0, ALFA2, ALFA3 ) INTEGER, INTENT( IN ) :: JDATE, JTIME REAL, INTENT( IN ) :: WTBAR, WCBAR, TBARC, PBARC, & CTHK1, AIRM, PRATE1, TAUCLD REAL, INTENT( IN ) :: POLC ( : ) REAL, INTENT( OUT ) :: REMOVAC REAL, INTENT( OUT ) :: CEND( : ), REMOV( : ) REAL, INTENT( OUT ) :: ALFA0, ALFA2, ALFA3 END SUBROUTINE SCAVWDEP SUBROUTINE AQ_MAP( JDATE, JTIME, WTBAR, WCBAR, TBARC, PBARC, & CTHK1, AIRM, PRATE1, TAUCLD, POLC, CEND, & REMOV, REMOVAC, ALFA0, ALFA2, ALFA3, COSZ ) INTEGER, INTENT( IN ) :: JDATE, JTIME REAL, INTENT( IN ) :: WTBAR, WCBAR, TBARC, PBARC, & CTHK1, AIRM, PRATE1, TAUCLD REAL, INTENT( IN ) :: POLC ( : ) REAL, INTENT( INOUT ) :: REMOVAC REAL, INTENT( INOUT ) :: CEND( : ), REMOV( : ) REAL, INTENT( IN ) :: ALFA0, ALFA2, ALFA3, COSZ END SUBROUTINE AQ_MAP END INTERFACE C----------------------------------------------------------------------- C...Initialization IF ( FIRSTIME ) THEN FIRSTIME = .FALSE. C...Sulfur tracking IF ( STM ) THEN CALL MAP_AERO() CALL MAP_PRECURSOR() END IF IF (RNA_AVAIL) THEN VNAME_RN = 'RNA' ELSE VNAME_RN = 'RN' END IF C...store met file time, date, and step information and compute C... the met timestep in hours SDATE = cio_model_sdate STIME = cio_model_stime MSTEP = file_tstep(f_met) METSTEP = FLOAT( TIME2SEC( MSTEP ) ) / 3600.0 if ( .not. QI_AVAIL) then write (logdev, '(a)') 'Parameter QI (cloud ice) was not found on file ' WRITE( LOGDEV, '(3(/10X,A),(/10X,3(A,1X)),(/10X,A))' ) & 'YOU SHOULD VERIFY that the cloud microphysics scheme used', & 'in the Meteorological Model did not include ice/snow. If', & 'it did, then you need to reprocess the meteorological data', & 'through MCIP and pass QI to file ', & TRIM( MET_CRO_3D ), ' to avoid', & 'errors in the wet deposition.' WRITE( LOGDEV, '((/5X,A),/)' ) & 'Processing will continue with QI set to ZERO. <<---<<' END IF if ( .not. QS_AVAIL) then write (logdev, '(a)') 'Parameter QS (snow) was not found on file ' WRITE( LOGDEV, '(3(/10X,A),(/10X,3(A,1X)),(/10X,A))' ) & 'YOU SHOULD VERIFY that the cloud microphysics scheme used', & 'in the Meteorological Model did not include ice/snow. If', & 'it did, then you need to reprocess the meteorological data', & 'through MCIP and pass QS to file ', & TRIM( MET_CRO_3D ), ' to avoid', & 'errors in the wet deposition.' WRITE( LOGDEV, '((/5X,A),/)' ) & 'Processing will continue with QS set to ZERO. <<--<<' END IF MXSPCS = N_GC_SPCD + N_AE_SPC + N_NR_SPC + N_TR_SPC ALLOCATE ( CEND ( MXSPCS ), & POLC ( MXSPCS ), & REMOV( MXSPCS ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating CEND, POLC or REMOV' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF #ifdef isam ! move all this somewhere else eventually S_SO2 = INDEX1( 'SO2', NSPC_SA, ISAM_SPEC(:,OTHRTAG) ) S_SO4J = INDEX1( 'ASO4J', NSPC_SA, ISAM_SPEC(:,OTHRTAG) ) S_SULF = INDEX1( 'SULF', NSPC_SA, ISAM_SPEC(:,OTHRTAG) ) C_SO2 = INDEX1( 'SO2', N_GC_SPC, GC_SPC ) C_SO4J = INDEX1( 'ASO4J', N_AE_SPC, AE_SPC ) + 1 + N_GC_SPC C_SULF = INDEX1( 'SULF', N_GC_SPC, GC_SPC ) ALLOCATE ( SA_POLC ( NSPC_SA, NTAG_SA ), & SA_CEND ( NSPC_SA, NTAG_SA ), & SA_DS4 ( NTAG_SA ), & SA_REMOV ( NSPC_SA, NTAG_SA ), & STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating SA_POLC or SA_CEND' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF S_GLY = INDEX1( 'GLY', NSPC_SA, ISAM_SPEC(:,OTHRTAG) ) S_MGLY = INDEX1( 'MGLY', NSPC_SA, ISAM_SPEC(:,OTHRTAG) ) S_AORGCJ = INDEX1( 'AORGCJ', NSPC_SA, ISAM_SPEC(:,OTHRTAG) ) C_GLY = INDEX1( 'GLY', N_GC_SPC, GC_SPC ) C_MGLY = INDEX1( 'MGLY', N_GC_SPC, GC_SPC ) C_AORGCJ = INDEX1( 'AORGCJ', N_AE_SPC, AE_SPC ) + 1 + N_GC_SPC ALLOCATE ( SA_DCSOA_GLY ( NTAG_SA ), & SA_DCSOA_MGLY ( NTAG_SA ), & STAT = ALLOCSTAT ) #endif #ifdef sens IF ( .NOT. ALLOCATED( S_CEND ) ) ALLOCATE ( S_CEND ( NPMAX, MXSPCS ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating S_CEND' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF IF ( .NOT. ALLOCATED( S_POLC ) ) ALLOCATE ( S_POLC ( NPMAX, MXSPCS ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating S_POLC' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF IF ( .NOT. ALLOCATED( S_REMOV ) ) ALLOCATE ( S_REMOV ( NPMAX, MXSPCS ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating S_REMOV' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF IF ( .NOT. ALLOCATED( S_REMOVAC ) ) ALLOCATE ( S_REMOVAC ( NPMAX ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating S_REMOVAC' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF S_REMOVAC = 0.0 #endif END IF ! FIRSTIME MDATE = JDATE MTIME = JTIME C...set the cloud lifetime (=adv timestep) TCLD = TIME2SEC( TSTEP( 2 ) ) TAUCLD = REAL( TCLD ) C...set time to the midpoint of this timestep for data interpolation CALL NEXTIME ( MDATE, MTIME, SEC2TIME( TCLD / 2 ) ) C...Actual Science Process (loop on internal process time steps): C... Interpolate time dependent layered input variables C... (reading those variables for which it is necessary) C... Get ambient temperature (K) call interpolate_var ('TA', mdate, mtime, TA) C...Get resolved cloud water mixing ratio (kg H2O / kg air) call interpolate_var ('QC', MDATE, MTIME, QC ) C...Get resolved rain water mixing ratio (kg H2O / kg air) call interpolate_var ('QR', MDATE, MTIME, QR ) C...read resolved ice mixing ratio (kg H2O / kg air) from the met C... file if it is available IF ( QI_AVAIL ) THEN call interpolate_var ('QI', MDATE, MTIME, QI ) ELSE QI = 0.0 ! otherwise fill the array with zeros END IF C...read resolved snow mixing ratio (kg H2O / kg air) from the met C... file if it is available IF ( QS_AVAIL ) THEN call interpolate_var ('QS', MDATE, MTIME, QS ) ELSE QS = 0.0 ! otherwise fill the array with zeros END IF C...read graupel mixing ratio (kg H2O / kg air) from the met C... file if it is available IF ( QG_AVAIL ) THEN call interpolate_var ('QG', MDATE, MTIME, QG ) ELSE QG = 0.0 ! otherwise fill the array with zeros END IF C...Get level heights / layer faces (m) call interpolate_var ('ZF', MDATE, MTIME, ZF ) C...Get pressure (Pa) call interpolate_var ('PRES', MDATE, MTIME, PRES ) C...Get air density (kg/m3) call interpolate_var ('DENS', MDATE, MTIME, DENS ) C...compute layer thicknesses (m) DO ROW = 1, NROWS DO COL = 1, NCOLS DZZ( COL, ROW, 1 ) = ZF( COL, ROW, 1 ) DO LAY = 2, NLAYS DZZ( COL, ROW, LAY ) = ZF( COL, ROW, LAY ) & - ZF( COL, ROW, LAY - 1 ) END DO END DO END DO C...advance the MDATE and MTIME to the next time on the met file C... to get ready to read the precipitation amounts. C... Precipitation data WILL NOT BE INTERPOLATED! Precipitation data C... on the input file are amounts within the metfiles timestep. IF ( .NOT. CURRSTEP( JDATE, JTIME, SDATE, STIME, MSTEP, & MDATE, MTIME ) ) THEN XMSG = 'Cannot get step-starting date and time' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT3 ) END IF CALL NEXTIME ( MDATE, MTIME, MSTEP ) ! set mdate:mtime to the hour C...Get nonconvective precipitation amount (cm) call interpolate_var (VNAME_RN, MDATE, MTIME, RN ) C...Loop through all grid cells DO ROW = 1, NROWS DO COL = 1, NCOLS C...Convert the rainfall into a rainfall rate (mm/hr) RAIN = 10.0 * RN( COL, ROW ) / METSTEP IF ( RAIN .LT. 0.0 ) THEN XMSG = 'NEGATIVE RAIN...PROBABLE BAD MET DATA...' & // MET_CRO_2D CALL M3EXIT ( PNAME, MDATE, MTIME, XMSG, XSTAT1 ) END IF C...calculate the integrated column cloud+rain water content C... JP & SJR: treat graupel as rainwater until we have a more C... advanced cloud microphysics scheme C... include layer thickness in the column integration QCRGCOL = 0.0 QCRISGCOL = 0.0 QRSGCOL = 0.0 QCICOL = 0.0 DO LAY = 1, NLAYS QC( COL, ROW, LAY ) = MAX( QC( COL, ROW, LAY ), 0.0 ) QR( COL, ROW, LAY ) = MAX( QR( COL, ROW, LAY ), 0.0 ) QI( COL, ROW, LAY ) = MAX( QI( COL, ROW, LAY ), 0.0 ) QS( COL, ROW, LAY ) = MAX( QS( COL, ROW, LAY ), 0.0 ) QG( COL, ROW, LAY ) = MAX( QG( COL, ROW, LAY ), 0.0 ) QCRGCOL = QCRGCOL + DENS( COL, ROW, LAY ) & * DZZ( COL, ROW, LAY ) & * ( QC( COL, ROW, LAY ) + QR( COL, ROW, LAY ) & + QG( COL, ROW, LAY ) ) QCRISGCOL = QCRISGCOL + DENS( COL, ROW, LAY ) & * DZZ( COL, ROW, LAY ) & * ( QC( COL, ROW, LAY ) + QR( COL, ROW, LAY ) & + QI( COL, ROW, LAY ) + QS( COL, ROW, LAY ) & + QG( COL, ROW, LAY ) ) QRSGCOL = QRSGCOL + DENS( COL, ROW, LAY ) & * DZZ( COL, ROW, LAY ) & * ( QR( COL, ROW, LAY ) + QS( COL, ROW, LAY ) & + QG( COL, ROW, LAY ) ) QCICOL = QCICOL + DENS( COL, ROW, LAY ) & * DZZ( COL, ROW, LAY ) & * ( QC( COL, ROW, LAY ) + QI( COL, ROW, LAY ) ) END DO C...Calculate the cloud optical depth using a formula derived from C... Stephens (1978), JAS(35), pp2111-2132. C... only calculate the cloud optical depth when the liquid water C... path is >= 10 g/m2 LWP = QCICOL * 1000.0 ! converts to g/m2 IF ( LWP .GE. 10.0 ) THEN CLOD = 10.0**( 0.2633 + 1.7095 * LOG( LOG10( LWP ) ) ) ELSE CLOD = 0.0 END IF C...If no cloud or optical depth < 5, set clear sky values. C... (i.e. don't do anything) IF ( CLOD .GE. 5.0 ) THEN RESTRANS( COL, ROW ) = ( 5.0 - EXP ( -CLOD ) ) / ( 4.0 + 0.42 * CLOD ) END IF C...loop through layers IF ( QCRGCOL .GT. 0.0 ) THEN DO LAY = 1, NLAYS C...Compute cloud quantities IF ( ( QC( COL, ROW, LAY ) + QR( COL, ROW, LAY ) & + QG( COL, ROW, LAY ) ) .GT. 0.00005 ) THEN TBARC = TA( COL, ROW, LAY ) PBARC = PRES( COL, ROW, LAY ) CTHK1 = DZZ( COL, ROW, LAY ) AIRM = PBARC * CTHK1 * 1.0E3 / ( RDGAS * MWAIR * TBARC ) WCBAR = ( QC( COL, ROW, LAY ) + QR( COL, ROW, LAY ) & + QG( COL, ROW, LAY ) ) * DENS( COL, ROW, LAY ) WTBAR = ( QC( COL, ROW, LAY ) + QR( COL, ROW, LAY ) & + QI( COL, ROW, LAY ) + QS( COL, ROW, LAY ) & + QG( COL, ROW, LAY ) ) * DENS( COL, ROW, LAY ) C...Compute precipitation flux C... include layer thickness in the calculation IF ( QRSGCOL .GT. 0.0 ) THEN WPBAR = ( QR( COL, ROW, LAY ) + QS( COL, ROW, LAY ) & + QG( COL, ROW, LAY ) ) * DENS( COL, ROW, LAY ) PRATE1 = RAIN * WPBAR * CTHK1 / QRSGCOL ! convert to mm/hr ELSE PRATE1 = RAIN * WTBAR * CTHK1 / QCRISGCOL ! convert to mm/hr END IF C...Finally, get in-cloud pollutant concentrations in moles sp C... per mole air DO SPC = 1, NSPCSD POLC ( SPC ) = CGRD( COL, ROW, LAY, SPC ) CEND ( SPC ) = POLC( SPC ) REMOV( SPC ) = 0.0 END DO #ifdef isam DO SPC = 1, NSPC_SA DO ITAG = 1, NTAG_SA SA_POLC( SPC, ITAG ) = ISAM( COL,ROW,LAY,SPC,ITAG ) SA_CEND( SPC, ITAG ) = SA_POLC( SPC, ITAG ) SA_REMOV( SPC, ITAG ) = 0.0 END DO END DO #endif #ifdef sens DO NP = 1, NPMAX DO SPC = 1, NSPCSD S_POLC ( NP, SPC ) = SENGRID( COL, ROW, LAY, NP, SPC ) S_CEND ( NP, SPC ) = S_POLC( NP, SPC) S_REMOV( NP, SPC ) = 0.0 END DO END DO #endif C...perform scavenging and aqueous chemistry within the cloud C... and re-adjust the ending and removed amounts for those species C... that were scavenged or that participated in cloud chemistry CALL SCAVWDEP ( JDATE, JTIME, WTBAR, WCBAR, TBARC, & PBARC, CTHK1, AIRM, PRATE1, TAUCLD, & POLC, CEND, REMOV, REMOVAC, ALFA0, & ALFA2, ALFA3 ) #ifdef isam DO SPC = 1, NSPC_SA CSPC = MAP_SAtoCGR(SPC) SA_SUM = SUM ( SA_POLC( SPC,: ) ) c IF ( POLC( CSPC ) .GT. 1.0E-30 .AND. CEND( CSPC ) .GT. 1.0E-09 ) THEN c IF ( POLC( CSPC ) .GT. 1.0E-30 ) THEN IF ( SA_SUM .GT. 1.0E-25 ) THEN DO ITAG = 1, NTAG_SA SA_CEND( SPC, ITAG ) = SA_POLC( SPC, ITAG ) & * ( CEND( CSPC ) c & / POLC( CSPC ) ) & / SA_SUM ) SA_REMOV( SPC, ITAG ) = SA_POLC( SPC, ITAG ) & * ( REMOV( CSPC ) c & / POLC( CSPC ) ) & / SA_SUM ) END DO ELSE ! no update DO ITAG = 1, NTAG_SA SA_CEND( SPC, ITAG ) = 0.0 SA_REMOV( SPC, ITAG ) = 0.0 END DO END IF END DO #endif C...if the liquid water content is above the specified threshold C... then perform the aqueous chemistry within the cloud and C... re-adjust the ending and removed amounts for those species C... that participated in cloud chemistry IF ( WCBAR .GT. 1.0E-5 ) THEN C... calculate cosine of zenith angle for the cell and determine day or night; Golam Sarwar COSZ = MET_DATA%COSZEN( COL, ROW ) IF ( COSZ .LE. 0.0 ) THEN JH2O2_HYDROMETEORS = 0.0D0 JHNO3_HYDROMETEORS = 0.0D0 ELSE JH2O2 = RJ_RES( COL, ROW, LAY, LH2O2 ) JHNO3 = RJ_RES( COL, ROW, LAY, LHNO3 ) JH2O2_HYDROMETEORS = REAL( JH2O2*PERMIN_TO_PERSEC, 8 ) JHNO3_HYDROMETEORS = REAL( JHNO3*PERMIN_TO_PERSEC, 8 ) END IF C...in aqchem, H2SO4 gas is added to ASO4J C... mimic this for the ASO4GASJ tracking species IF ( STM ) THEN POLC( AEROSPC_MAP( ASO4GAS_IDX, 2 ) ) = POLC( AEROSPC_MAP( ASO4GAS_IDX, 2 ) ) & + POLC( PRECURSOR_MAP( SULF_IDX ) ) CEND( AEROSPC_MAP( ASO4GAS_IDX, 2 ) ) = POLC( AEROSPC_MAP( ASO4GAS_IDX, 2 ) ) END IF CALL AQ_MAP ( JDATE, JTIME, WTBAR, WCBAR, TBARC, & PBARC, CTHK1, AIRM, PRATE1, TAUCLD, & POLC, CEND, REMOV, REMOVAC, ALFA0, & ALFA2, ALFA3, COSZ ) #ifdef isam DO SPC = 1, NSPC_SA ! general case CSPC = MAP_SAtoCGR(SPC) SA_SUM = SUM ( SA_POLC( SPC,: ) ) DO ITAG = 1, NTAG_SA c IF ( POLC( CSPC ) .GT. 1.0E-30 ) THEN IF ( SA_SUM .GT. 1.0E-25 ) THEN SA_CEND( SPC, ITAG ) = SA_POLC( SPC,ITAG ) & * ( CEND( CSPC ) c & / MAX( 1.0E-25, POLC( CSPC ) ) ) & / SA_SUM ) SA_REMOV( SPC, ITAG ) = SA_POLC( SPC, ITAG ) & * ( REMOV( CSPC ) c & / MAX( 1.0E-25, POLC( CSPC ) ) ) & / SA_SUM ) ELSE ! SA_CEND( SPC, ITAG ) = 0.0 SA_REMOV( SPC, ITAG ) = 0.0 END IF END DO END DO IF (S_SO4J .NE. 0 ) THEN ! sulfate case DO ITAG = 1, NTAG_SA ! sulfate from H2SO4 SA_DS4( ITAG ) = SA_POLC( S_SULF,ITAG ) SA_CEND( S_SULF,ITAG ) = 1.0E-30 END DO DO ITAG = 1, NTAG_SA SA_DS4( ITAG ) = SA_DS4( ITAG ) + DS4_SAVE ! total sulfate produced & * SA_POLC( S_SO2,ITAG ) & / SUM ( SA_POLC( S_SO2,: ) ) SA_CEND( S_SO4J,ITAG ) = SA_POLC( S_SO4J,ITAG ) ! sulfate before removal & + SA_DS4( ITAG ) END DO SA_SUM = SUM ( SA_CEND( S_SO4J,: ) ) ! total apportioned sulfate before removal DO ITAG = 1, NTAG_SA ! final sulfate removal and concentration SA_REMOV( S_SO4J,ITAG ) = REMOV_SAVE & * SA_CEND( S_SO4J,ITAG ) & / SA_SUM SA_CEND( S_SO4J,ITAG ) = SA_CEND( S_SO4J,ITAG ) & - DEPSUM_SAVE & * SA_CEND( S_SO4J,ITAG ) & / SA_SUM SA_CEND( S_SO4J,ITAG ) = MAX ( SA_CEND( S_SO4J,ITAG ), 1.0E-30 ) END DO END IF IF (S_AORGCJ .NE. 0 ) THEN ! AORGCJ case SA_DCSOA_GLY = 0.0 SA_DCSOA_MGLY = 0.0 DO ITAG = 1, NTAG_SA IF ( S_GLY .NE. 0 ) THEN SA_DCSOA_GLY( ITAG ) = DGLY1_SAVE & * SA_POLC( S_GLY,ITAG ) & / MAX( 1.0E-25, SUM ( SA_POLC( S_GLY,: ) ) ) END IF IF ( S_MGLY .NE. 0 ) THEN SA_DCSOA_MGLY( ITAG ) = DMGLY1_SAVE & * SA_POLC( S_MGLY,ITAG ) & / MAX( 1.0E-25, SUM ( SA_POLC( S_MGLY,: ) ) ) END IF SA_CEND( S_AORGCJ,ITAG ) = SA_POLC( S_AORGCJ,ITAG ) ! AORGCJ before removal & + SA_DCSOA_GLY( ITAG ) & + SA_DCSOA_MGLY( ITAG ) END DO SA_SUM = MAX( 1.0E-25, SUM ( SA_CEND( S_AORGCJ,: ) ) ) ! total apportioned AORGCJ before removal DO ITAG = 1, NTAG_SA ! final AORGCJ removal and concentration SA_REMOV( S_AORGCJ,ITAG ) = REMOV_AORGC_SAVE & * SA_CEND( S_AORGCJ,ITAG ) & / SA_SUM SA_CEND( S_AORGCJ,ITAG ) = SA_CEND( S_AORGCJ,ITAG ) & - DEPSUM_AORGC_SAVE & * SA_CEND( S_AORGCJ,ITAG ) & / SA_SUM SA_CEND( S_AORGCJ,ITAG ) = MAX ( SA_CEND( S_AORGCJ,ITAG ), 1.0E-30 ) END DO END IF #endif END IF C...convert removal change from moles/m**2 to kg/m**2 and kg/m**2 to kg/hectare DO I = 1,N_CGRID_SPC IF ( CGRID_MASK_NUM( I ) .OR. & CGRID_MASK_SRF( I ) ) THEN ! Aerosol Number (N m-2 -> N ha-1) ! Aerosol Surface Area (m2 m-2 -> m2 ha-1) REMOV( I ) = REMOV( I ) * M2PHA #ifdef sens DO NP = 1, NPMAX S_REMOV( NP,I ) = S_REMOV( NP,I ) * M2PHA END DO #endif ! ISAM does not track aerosol number or surface ! area ELSE ! Gas and Aerosol Mass (moles m-2 -> kg ha-1) REMOV( I ) = REMOV( I ) * CGRID_MW( I ) * M2PHA_OVER_GPKG #ifdef sens DO NP = 1, NPMAX S_REMOV( NP,I ) = S_REMOV( NP,I ) * CGRID_MW( I ) * M2PHA_OVER_GPKG END DO #endif #ifdef isam CSPC = 0 CSPC = INDEXINT1(I,NSPC_SA,MAP_SAtoCGR(:)) IF ( CSPC .GT. 0 ) THEN DO ITAG = 1, NTAG_SA SA_REMOV( CSPC,ITAG ) = SA_REMOV( CSPC,ITAG ) * CGRID_MW( I ) & * M2PHA_OVER_GPKG END DO END IF #endif END IF END DO C...load deposition amounts into the DEP array DO VAR = 1, N_SPC_WDEP DEP( COL, ROW, VAR ) = DEP( COL, ROW, VAR ) & + REMOV( MAP_WDEPtoCGRID( VAR ) ) END DO C...load H+ concentration into the deposition array as well DEP( COL, ROW, N_SPC_WDEP+1 ) = & DEP( COL, ROW, N_SPC_WDEP+1 ) + REMOVAC C...set cgrid to the ending concentrations DO SPC = 1, NSPCSD IF ( SPC .NE. N_GC_SPCD ) THEN CGRD( COL, ROW, LAY, SPC ) = CEND( SPC ) END IF END DO #ifdef isam DO SPC = 1, NSPC_SA DO ITAG = 1, NTAG_SA TOT_SADEP( COL, ROW, SPC, ITAG ) = TOT_SADEP( COL, ROW, SPC, ITAG ) & + SA_REMOV( SPC, ITAG ) ISAM( COL,ROW,LAY,SPC,ITAG ) = SA_CEND( SPC, ITAG ) END DO END DO #endif #ifdef sens DO NP = 1, NPMAX DO VAR = 1, N_SPC_WDEP S_TOTDEP( COL, ROW, NP, VAR ) = S_TOTDEP( COL, ROW, NP, VAR ) & + S_REMOV( NP, MAP_WDEPtoCGRID( VAR ) ) END DO S_TOTDEP( COL, ROW, NP, N_SPC_WDEP+1 ) = & S_TOTDEP( COL, ROW, NP, N_SPC_WDEP+1 ) + S_REMOVAC( NP ) DO SPC = 1, NSPCSD IF ( SPC .NE. N_GC_SPCD ) THEN SENGRID( COL, ROW, LAY, NP, SPC ) = S_CEND( NP, SPC ) END IF END DO END DO #endif END IF ! Sum( QC,QR,QG ) > 0.00005 ? END DO ! lay END IF ! QCRGCOL > 0 ? END DO ! col END DO ! row RETURN END ================================================ FILE: CCTM/src/cloud/acm_ae6/scavwdep.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/CCTM/src/cloud/cloud_acm_ae5/scavwdep.F,v 1.7 2011/10/21 16:10:28 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE SCAVWDEP ( JDATE, JTIME, WTBAR, WCBAR, TBARC, PBARC, & CTHK1, AIRM, PRATE1, TAUCLD, POLC, CEND, & REMOV, REMOVAC, ALFA0, ALFA2, ALFA3 ) C----------------------------------------------------------------------- C Description: Compute simplistic incloud scavenging and wet removal C Revision History: C No Date Who What C -- -------- --- ----------------------------------------- C 0 01/15/98 sjr created program C 1 07/27/99 sjr added scavenging coefficient scaling factors C 3 Dec 00 Jeff move CGRID_MAP into f90 module C 4 Dec 02 sjr revised calls to HLCONST C 5 Jun 10 J.Young: convert for Namelist redesign C 6 Mar 11 S.Roselle: replaced I/O API include files with UTILIO_DEFN; C removed deprecated TRIMLEN C 6 Mar 11 B.Hutzell: added TRACER string for AE_SPCs to omit while C computing Aitken mode mass C 1 Dec 15 S.L.Napelenok: ddm-3d implementaiton for version 5.1.1 C Called by: RADMCLD and RESCLD C Calls the following subroutines: GETALPHA C Calls the following functions: HLCONST C Arguments Type I/O Description C --------- ------- ------ -------------------------------- C JDATE integer input current model julian date (yyyyddd) C JTIME integer input current model time (hhmmss) C WTBAR real input avg total water content (kg/m3) C WCBAR real input avg liquid water content (kg/m3) C TBARC real input avg cloud temperature (K) C PBARC real input avg cloud pressure (Pa) C CTHK1 real input cloud thickness (m) C AIRM real input total air mass (moles/m2) in cloudy air C PRATE1 real input precipitation rate (mm/hr) C TAUCLD real input cloud lifetime (s) C POLC real input ave vert conc incloud (moles sp/ mole air) C CEND real output ending incloud conc (moles/mole) C REMOV real output moles/m2 or mm*mol/lit scavenged C REMOVAC real output variable storing H+ deposition C ALFA0 real output scav coef for aitken aerosol number C ALFA2 real output scav coef for aitken mode sfc area C ALFA3 real output scav coef for aitken aerosol mass C----------------------------------------------------------------------- USE CGRID_SPCS ! CGRID mechanism species USE UTILIO_DEFN #ifdef sens USE DDM3D_DEFN, ONLY : NP, NPMAX, S_POLC, S_CEND, S_REMOV, S_REMOVAC #endif IMPLICIT NONE C...........Includes: INCLUDE SUBST_CONST ! constants CHARACTER( 120 ) :: XMSG = ' ' ! Exit status message C...........Parameters: REAL, PARAMETER :: H2ODENS = 1000.0 ! density of water at 20 C ! and 1 ATM (kg/m3) C Number of species in CGRID INTEGER, SAVE :: MXSPCS C Number of species scavenged INTEGER, SAVE :: N_SPC_SCAV REAL, PARAMETER :: TWOTHIRDS = 2.0 / 3.0 REAL, PARAMETER :: KGPG = 1.0E-03 ! kilograms per gram C...........Arguments: INTEGER, INTENT( IN ) :: JDATE ! current model date, coded YYYYDDD INTEGER, INTENT( IN ) :: JTIME ! current model time, coded HHMMSS REAL, INTENT( IN ) :: WTBAR ! total wat cont (kg/m2) int. thru cloud depth REAL, INTENT( IN ) :: WCBAR ! liq water content of cloud (kg/m3) REAL, INTENT( IN ) :: TBARC ! mean cloud temp (K) REAL, INTENT( IN ) :: PBARC ! mean cloud pressure (Pa) REAL, INTENT( IN ) :: CTHK1 ! aq chem calc cloud thickness REAL, INTENT( IN ) :: AIRM ! total air mass (moles/m2) in cloudy air REAL, INTENT( IN ) :: PRATE1 ! storm rainfall rate (mm/hr) REAL, INTENT( IN ) :: TAUCLD ! cloud lifetime REAL, INTENT( OUT ) :: ALFA0 ! scav coef for aitken aerosol number REAL, INTENT( OUT ) :: ALFA2 ! scav coef for aitken aerosol sfc area REAL, INTENT( OUT ) :: ALFA3 ! scav coef for aitken aerosol mass REAL, INTENT( OUT ) :: REMOVAC ! variable storing H+ deposition REAL, INTENT( IN ) :: POLC ( : ) ! avg vert conc incloud (moles/mole) REAL, INTENT( OUT ) :: CEND ( : ) ! ending incloud conc (moles/mole) REAL, INTENT( OUT ) :: REMOV( : ) ! moles/m2 or mm*mol/lit scavenged C...........Local Variables: LOGICAL, SAVE :: FIRSTIME = .TRUE. ! flag for first pass thru CHARACTER( 16 ), SAVE :: PNAME = 'SCAVWDEP' ! program name CHARACTER( 16 ), ALLOCATABLE, SAVE :: SCAV_SPC( : ) ! CGRID species scavenged INTEGER, ALLOCATABLE, SAVE :: SCAV_MAP( : ) ! CGRID map to scavenged spc REAL, ALLOCATABLE, SAVE :: SCAV_FAC( : ) ! CGRID scav coef factors LOGICAL, ALLOCATABLE, SAVE :: SCAV_MASK_GAS( : ) ! Mask for Gases on Scav list LOGICAL, ALLOCATABLE, SAVE :: SCAV_MASK_AERO( : ) ! Mask for Aerosols on Scav list LOGICAL, ALLOCATABLE, SAVE :: SCAV_MASK_AITKEN( : )! Mask for Aitken PM on Scav list LOGICAL, ALLOCATABLE, SAVE :: SCAV_MASK_NUM( : ) ! Mask for Aero Number on Scav list LOGICAL, ALLOCATABLE, SAVE :: SCAV_MASK_SRF( : ) ! Mask for Aero Surface on Scav list LOGICAL, ALLOCATABLE, SAVE :: SCAV_MASK_NR( : ) ! Mask for Non-Reactives on Scav list LOGICAL, ALLOCATABLE, SAVE :: SCAV_MASK_TRAC( : ) ! Mask for Tracers on Scav list INTEGER, ALLOCATABLE, SAVE :: L_NUMAKN( : ) ! pointers to aitken aerosol # INTEGER, ALLOCATABLE, SAVE :: L_MASAKN( : ) ! pointers to aitken aerosols INTEGER, ALLOCATABLE, SAVE :: L_SRFAKN( : ) ! pntrs to aitken aerosol surface area INTEGER ASTAT INTEGER I INTEGER, SAVE :: N_NUMAKN ! # aitken aerosol number species INTEGER, SAVE :: N_MASAKN ! # aitken aerosol mass species INTEGER, SAVE :: N_SRFAKN ! # aitken aerosol sfc area species INTEGER PNTR ! relative pointer variable INTEGER SPC ! liquid species loop counter INTEGER VAR ! variable loop counter REAL ALFA ! scavenging coefficient (1/s) REAL KH ! Henry's law constant (mol/l/atm) REAL NUMAKN ! Aitken mode aerosol # (#/m3) REAL MASAKN ! Total Aitken mode mass (ug/m3) REAL(8) MASAKN_D ! Double-precision verson of MASAKN REAL SRFAKN REAL ONE_OVER_TWASH ! 1 / TWASH REAL, SAVE :: HPLUS = 1.0E-4 ! typical value hydrogen ion concentration [mol/l] REAL RHOAIR ! air density in kg/m3 REAL RTCH ! chemical gas const times temp REAL TWASH ! washout time for clouds (sec) with low liq wat content REAL TWF ! washout scaling factor (mol/l/atm) C...........External Functions: INTEGER, EXTERNAL :: INDEXN REAL, EXTERNAL :: HLCONST C----------------------------------------------------------------------- C...INITIALIZATION SCAVWDEP module: C... event-statistics variables. Open output files. IF ( FIRSTIME ) THEN FIRSTIME = .FALSE. N_SPC_SCAV = N_GC_SCAV + N_AE_SCAV + N_NR_SCAV + N_TR_SCAV C...first check to make sure that some species in CGRID were specified C... for scavenging, otherwise notify the user and return IF ( N_SPC_SCAV .LE. 0 ) THEN XMSG = 'No species were specified for scavenging by cloud ' // & 'or rain water...SCAVENGING WILL NOT BE PERFORMED!' CALL M3WARN ( PNAME, JDATE, JTIME, XMSG ) RETURN END IF ALLOCATE ( SCAV_SPC( N_SPC_SCAV ), & SCAV_MAP( N_SPC_SCAV ), & SCAV_FAC( N_SPC_SCAV ), & SCAV_MASK_GAS( N_SPC_SCAV ), & SCAV_MASK_AERO( N_SPC_SCAV ), & SCAV_MASK_AITKEN( N_SPC_SCAV ), & SCAV_MASK_NUM( N_SPC_SCAV ), & SCAV_MASK_SRF( N_SPC_SCAV ), & SCAV_MASK_NR( N_SPC_SCAV ), & SCAV_MASK_TRAC( N_SPC_SCAV ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN XMSG = 'Failure allocating SCAV_SPC, SCAV_MAP or SCAV_FAC' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF MXSPCS = N_GC_SPCD + N_AE_SPC + N_NR_SPC + N_TR_SPC ALLOCATE ( L_NUMAKN( MXSPCS ), & L_MASAKN( MXSPCS ), & L_SRFAKN( MXSPCS ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN XMSG = 'Failure allocating L_NUMAKN, L_MASAKN or L_SRFAKN' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF C...prepare indices for scavenged species SCAV_SPC = '' SCAV_MAP = 0 SCAV_FAC = 0 SCAV_MASK_GAS = .FALSE. SCAV_MASK_AERO = .FALSE. SCAV_MASK_AITKEN = .FALSE. SCAV_MASK_NUM = .FALSE. SCAV_MASK_SRF = .FALSE. SCAV_MASK_NR = .FALSE. SCAV_MASK_TRAC = .FALSE. C... load the CGRID to scavenged species pointers for the gases SPC = 0 DO VAR=1, N_GC_SCAV SPC = SPC + 1 SCAV_SPC( SPC ) = GC_SCAV( VAR ) SCAV_MAP( SPC ) = GC_SCAV_MAP( VAR ) + GC_STRT - 1 SCAV_FAC( SPC ) = GC_SCAV_FAC( VAR ) SCAV_MASK_GAS( SPC ) = .TRUE. END DO C... load the CGRID to scavenged species pointers for the aerosols DO VAR=1, N_AE_SCAV SPC = SPC + 1 SCAV_SPC( SPC ) = AE_SCAV( VAR ) SCAV_MAP( SPC ) = AE_SCAV_MAP( VAR ) + AE_STRT - 1 SCAV_FAC( SPC ) = AE_SCAV_FAC( VAR ) IF ( INDEX( SCAV_SPC( SPC ), 'NUM' ) .NE. 0 ) SCAV_MASK_NUM( SPC ) = .TRUE. IF ( INDEX( SCAV_SPC( SPC ), 'SRF' ) .NE. 0 ) SCAV_MASK_SRF( SPC ) = .TRUE. IF ( INDEX( SCAV_SPC( SPC ), 'AITKEN' ) .NE. 0 ) SCAV_MASK_AITKEN( SPC ) = .TRUE. SCAV_MASK_AERO( SPC ) = .TRUE. END DO C... load the CGRID to scavenged species pointers for the non-reactives DO VAR=1, N_NR_SCAV SPC = SPC + 1 SCAV_SPC( SPC ) = NR_SCAV( VAR ) SCAV_MAP( SPC ) = NR_SCAV_MAP( VAR ) + NR_STRT - 1 SCAV_FAC( SPC ) = NR_SCAV_FAC( VAR ) SCAV_MASK_NR( SPC ) = .TRUE. END DO C... load the CGRID to scavenged species pointers for the tracers DO VAR=1, N_TR_SCAV SPC = SPC + 1 SCAV_SPC( SPC ) = TR_SCAV( VAR ) SCAV_MAP( SPC ) = TR_SCAV_MAP( VAR ) + TR_STRT - 1 SCAV_FAC( SPC ) = TR_SCAV_FAC( VAR ) SCAV_MASK_TRAC( SPC ) = .TRUE. END DO C...create the pointers from CGRID to the species needed by AQCHEM N_NUMAKN = INDEXN( 'NUM_AITKEN', N_SPC_SCAV, SCAV_SPC, L_NUMAKN ) N_MASAKN = INDEXN( 'AITKEN ', N_SPC_SCAV, SCAV_SPC, L_MASAKN ) N_SRFAKN = INDEXN( 'SRF_AITKEN', N_SPC_SCAV, SCAV_SPC, L_SRFAKN ) END IF C...for subsequent calls, check to make sure some species were C... specified, otherwise there is no need to perform scavenging IF ( N_SPC_SCAV .LE. 0 ) RETURN RTCH = ( MOLVOL / STDTEMP ) * TBARC TWASH = WTBAR * 1000.0 * CTHK1 * 3600.0 & / ( H2ODENS * AMAX1( 1.0E-20, PRATE1 ) ) ccc TWASH = AMAX1( TWASH, TAUCLD / 60.0 ) ! m3/kmol_air DO IMODE = 2, N_MODE IF ( M3NEW( IMODE ) .GT. 0.0D0 ) THEN ! Dens_wmean_new will be .GT. 0 also Dens_wmean_new( IMODE ) = Dens_wmean_new( IMODE ) / M3NEW( IMODE ) M3OLD( IMODE ) = MAX( M3OLD( IMODE ), CONMIND * 1.0d-6 / ( Dens_wmean_old( IMODE ) * AIRM / CTHK1 ) ) M3NEW( IMODE ) = MAX( M3NEW( IMODE ), CONMIND * 1.0d-6 / ( Dens_wmean_new( IMODE ) * AIRM / CTHK1 ) ) END IF END DO C...Update surface area CEND( AEROSRF_MAP( 1 ) ) = POLC( AEROSRF_MAP( 1 ) ) * EALFA2T CEND( AEROSRF_MAP( 1 ) ) = MAX( CEND( AEROSRF_MAP( 1 ) ), aeromode_minM2( 1 ) * PI / (AIRM/CTHK1) ) CEND( AEROSRF_MAP( 2 ) ) = POLC( AEROSRF_MAP( 2 ) ) & * EXP( -BETASO4 * TAUCLD * ONETHIRD ) & * ( M3NEW( 2 ) / M3OLD( 2 ) ) ** TWOTHIRDS CEND( AEROSRF_MAP( 2 ) ) = MAX( CEND( AEROSRF_MAP( 2 ) ), aeromode_minM2( 2 ) * PI / (AIRM/CTHK1) ) CEND( AEROSRF_MAP( 3 ) ) = POLC( AEROSRF_MAP( 3 ) ) & * ( CEND( AERONUM_MAP( 3 ) ) & / POLC( AERONUM_MAP( 3 ) ) ) ** ONETHIRD & * ( M3NEW( 3 ) / M3OLD( 3 ) ) ** TWOTHIRDS CEND( AEROSRF_MAP( 3 ) ) = MAX( CEND( AEROSRF_MAP( 3 ) ), aeromode_minM2( 3 ) * PI / (AIRM/CTHK1) ) RETURN END ================================================ FILE: CCTM/src/cloud/acm_ae6_mp/aqchem.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE AQCHEM ( JDATE, JTIME, TEMP, PRES_PA, TAUCLD, PRCRATE, & WCAVG, WTAVG, AIRM, ALFA0, ALFA2, ALFA3, GAS, & AEROSOL, GASWDEP, AERWDEP, HPWDEP, BETASO4, DARK, & FRACTR, FRACPOA, FRACPRI, FRACSOA ) C----------------------------------------------------------------------- C Description: C Compute concentration changes in cloud due to aqueous chemistry, C scavenging and wet deposition amounts. C C Revision History: C No Date Who What C -- -------- --- ----------------------------------------- C 0 / /86 CW BEGIN PROGRAM - Walceks's Original Code C 1 / /86 RB INCORPORATE INTO RADM C 2 03/23/87 DH REFORMAT C 3 04/11/88 SJR STREAMLINED CODE - ADDED COMMENTS C 4 08/27/88 SJR COMMENTS, MODIFIED FOR RPM C 4a 03/15/96 FSB Scanned hard copy to develop Models3 C Version. C 5 04/24/96 FSB Made into Models3 Format C 6 02/18/97 SJR Revisions to link with Models3 C 7 08/12/97 SJR Revised for new concentration units (moles/mole) C and new treatment of nitrate and nitric acid C 8 01/15/98 sjr revised to add new aitken mode scavenging C and aerosol number scavenging C 9 12/15/98 David Wong at LM: C -- change division of XL, TEMP to multiplication of XL, TEMP C reciprocal, respectively C -- change / TOTOX / TSIV to / ( TOTOX * TSIV ) C 10 03/18/99 David Wong at LM: C -- removed "* 1.0" redundant calculation at TEMP1 calculation C 11 04/27/00 sjr Added aerosol surface area as modeled species C 12 12/02 sjr changed calls to HLCONST and updated the dissociation C constants C 13 06/26/03 sjr revised calculations of DTW based on CMAS website C discussions C 14 08/05/03 sjr revision made to the coarse aerosol number washout C 15 04/20/05 us revisions to add sea salt species in the fine and C coarse aerosol modes, and HCl dissolution/dissociation C 16 10/13/05 sjr fixed bug in the integration time step calculation C (reported by Bonyoung Koo) C 17 03/01/06 sjr added elemental carbon aerosol; organic aerosols C replaced with primary, secondary biogenic, and C secondary anthropogenic; fixed 3rd moment calc to C include EC and primary organics (not secondary); C re-arranged logic for setting Cl & Na ending conc; C added pointers/indirect addressing for arrays WETDEP C and LIQUID C 16 03/30/07 sjr Limit integration timestep by cloud washout time C 17 04/10/07 sjr increased loop limits as follows: I20C <10000, C I7777C <10000, I30C <10000, ICNTAQ <60000 C 18 01/10/07 agc added organic chemistry for GLY and MGLY oxidation C 19 09/10/07 sln updated SOA species list for AE5 C 20 01/29/08 agc updated DOHDT calculation C 21 04/14/08 jtk added coding for coarse NH4 and scavenging of c coarse surface area C 22 05/20/08 agc for CB05, use the Henry's Law constant for glyoxal C as a surrogate for methyl glyoxal C 23 04/15/09 sjr& Several changes made to improve mass conservation in the C agc solver. (1) OH concentration is now considered to be C steady state; (2) only allow sulfur oxidation to affect C time step; (3) implemented mass conservation checks - C limit oxidation rates by the available mass for the C specified timestep. C 10 Oct 10 J.Young: update to use aero_reeng by Steve Howard, Prakash Bhave, C Jeff Young, Sergey Napelenok, and Shawn Roselle C 01 Mar 11 S.Roselle: replaced I/O API include files with UTILIO_DEFN C 9 Mar 11 S.Napelenok: update for AE6 - pH calculation now expanded to C include Ca Mg K SOIL CORS SEAS C 23 May 11 G.Sarwar: update S(VI) production rate via H2O2, O3, MHP, PAA C pathways (Jacobson 1997) C 23 May 11 G.Sarwar: update S(VI) production rate via O2 pathway (metal C catalysis) (Martin and Goodman, 1991) C 01 Jul 11 G.Sarwar: Incorporate day and night dependent Fe III oxidation C state (Alexander et al., 2009) C 12 Aug 11 G.Sarwar: Revise Fe and Mn solubility based on C Alexander et al., 2009 C 15 Aug 11 B.Hutzell: adapted for TXHG version by adding aerosol tracers and C mercury-chlorine chemistry from CMAQ version 4.71 C C 8 Mar 12 J.Bash: FE_OX and MN_OX were calculated from FE and MN before C a floor value of 0.0 was established for these C concentrations sometimes resulting in negative C concentrations and model crashes. The code used to C estimate FE_OX and MN_OX was moved to be after a floor C value for FE and MN was set. Also the washout rate was C removed from the calculation of the estimate for doubling C the time step based on sulfur oxidized < 5%. C C 28 Nov 12 G.Sarwar: Sulfate inhibition effect is implemented in the metal catalysis pathway C 07 Jul 14 B.Hutzell: replaced mechanism include file(s) with fortran module C 12 Feb 15 B.Hutzell: reduced number of exp(...) calculations for scavenging aitken C aerosols to improve efficiency C 15 Jun 15 J.Young: Fixed bug found by Martin Otte in calculations for scavenging C aitken aerosols C 15 Apr 16 J.Young: Use aerosol factors from AERO_DATA module named constants C 19 Apr 18 K.Fahey: For species with both gas phase and coarse mode aerosol components, avoid C introducing extra mass when the coarse mode concentration is greater than C the total amount left in the aqueous phase after redistribution between the C phases. C C References: C Walcek & Taylor, 1986, A theoretical Method for computing C vertical distributions of acidity and sulfate within cumulus C clouds, J. Atmos Sci., Vol. 43, no. 4 pp 339 - 355 C Carlton, A.G., B.J. Turpin, K.E. Altieri, S.P. Seitzinger, R. Mathur, C S.J. Roselle, and R.J. Weber, CMAQ Model Performance Enhanced When C In-Cloud Secondary Organic Aerosol is Included: Comparison of Organic C Carbon Predictions with Measurements, Environ. Sci. Technol., 42(23), C 8798-8802, 2008. C Jacobson, M., Development and application of a new air pollution modeling C system II. Aerosol module structure and design, Atmospheric C Environment, 31, 131-144, 1997 C Martin, R.L. and T.W. Good, catalyzed oxidation of sulfur dioxide in C solution: the iron-manganese synercism, Atmospheric Environment, 25A, C 2395-2399, 1991 C Alexander, B., R.J. Park, D.J. jacob, S. Gong, Transition metal-catalyzed C oxidation of atmospheric sulfur: global implications for the sulfur C budget, GRL, 114, D02309, 2009 C Called by: AQMAP C Calls the following subroutines: none C Calls the following functions: HLCONST C Arguments Type I/O Description C --------- ---- ------------ -------------------------------- C GAS(ngas) real input&output Concentration for species i=1,15 C GASWDEP(ngas) real output wet deposition for species C AEROSOL(naer,nmodes) real input&output Concentration for species i=1,51 C AERWDEP(naer,nmodes) real output wet deposition for species C----------------------------------------------------------------------- USE RXNS_DATA ! chemical mechanism data USE AQ_DATA USE AERO_DATA USE HG_AQCHEM_DATA USE UTILIO_DEFN IMPLICIT NONE INCLUDE SUBST_CONST ! constants CHARACTER( 120 ) :: XMSG = ' ' ! Exit status message C...........Parameters: INTEGER, PARAMETER :: NUMOX = 5 ! number of oxidation reactions REAL( 8 ), PARAMETER :: H2ODENS = 1000.0D0 ! water density at 20 C and 1 ATM (kg/m3) REAL( 8 ), PARAMETER :: SEC2HR = 1.0D0 / 3600.0D0 ! convert seconds to hours REAL( 8 ), PARAMETER :: SCVEFF = 100.0D0 ! Scavenging efficiency (%) C...........Arguments: INTEGER, INTENT( IN ) :: JDATE ! current model date, coded YYYYDDD INTEGER, INTENT( IN ) :: JTIME ! current model time, coded HHMMSS REAL, INTENT( IN ) :: AIRM ! total air mass in cloudy layers (mol/m2) REAL, INTENT( IN ) :: ALFA0 ! scav coef for aitken aerosol number REAL, INTENT( IN ) :: ALFA2 ! scav coef for aitken aerosol sfc area REAL, INTENT( IN ) :: ALFA3 ! scav coef for aitken aerosol mass REAL, INTENT( OUT ) :: HPWDEP ! hydrogen wet deposition (mm mol/liter) REAL( 8 ), INTENT( OUT ) :: BETASO4 REAL, INTENT( IN ) :: PRCRATE ! precip rate (mm/hr) REAL, INTENT( IN ) :: PRES_PA ! pressure (Pa) REAL, INTENT( IN ) :: TAUCLD ! timestep for cloud (s) REAL, INTENT( IN ) :: TEMP ! temperature (K) REAL, INTENT( IN ) :: WCAVG ! liquid water content (kg/m3) REAL, INTENT( IN ) :: WTAVG ! total water content (kg/m3) REAL( 8 ), INTENT( INOUT ) :: GAS ( : ) ! gas phase concentrations (mol/molV) REAL( 8 ), INTENT( INOUT ) :: AEROSOL( :,: ) ! aerosol concentrations (mol/molV) REAL( 8 ), INTENT( INOUT ) :: GASWDEP( : ) ! gas phase wet deposition array (mm mol/liter) REAL( 8 ), INTENT( INOUT ) :: AERWDEP( :,: ) ! aerosol wet deposition array (mm mol/liter) LOGICAL, INTENT( IN ) :: DARK ! DARK = TRUE is night, DARK = FALSE is day REAL( 8 ), INTENT( OUT ) :: FRACTR ! Fraction of J mode tracer scavenged from I mode REAL( 8 ), INTENT( OUT ) :: FRACPOA ! Fraction of J mode poa scavenged from I mode REAL( 8 ), INTENT( OUT ) :: FRACPRI ! Fraction of J mode pri scavenged from I mode REAL( 8 ), INTENT( OUT ) :: FRACSOA ! Fraction of J mode soa scavenged from I mode C...........Local Variables (scalars): LOGICAL, SAVE :: FIRSTIME = .TRUE. ! flag for first pass thru CHARACTER( 16 ), SAVE :: PNAME = 'AQCHEM' ! driver program name CHARACTER( 16 ), SAVE :: MGLYSUR = 'METHYL_GLYOXAL ' ! Henry's law surrogate for MGLY INTEGER ISPC ! loop counter for species INTEGER I20C ! loop counter for do loop 20 INTEGER I30C ! loop counter for do loop 30 INTEGER ITERAT ! # iterations of aqueous chemistry solver INTEGER I7777C ! aqueous chem iteration counter INTEGER ICNTAQ ! aqueous chem iteration counter INTEGER LIQ ! loop counter for liquid species INTEGER IGAS ! loop counter for gas species INTEGER IOX ! index over oxidation reactions REAL( 8 ) :: DEPSUM REAL( 8 ) :: A ! iron's anion concentration REAL( 8 ) :: HPLUS ! H+ concentration in cloudwater (mol/liter) REAL( 8 ) :: ACT1 ! activity correction factor, single ions REAL( 8 ) :: ACT2 ! activity factor correction, double ions REAL( 8 ) :: ACTB ! REAL( 8 ) :: AE ! guess for H+ conc in cloudwater (mol/liter) REAL( 8 ) :: B ! manganese's anion concentration REAL( 8 ) :: PRES_ATM ! pressure (Atm) REAL( 8 ) :: BB ! lower limit guess of cloudwater pH REAL( 8 ) :: CA ! Calcium conc in cloudwater (mol/liter) REAL( 8 ) :: CL ! total Cl- conc in cloudwater (mol/liter) REAL( 8 ) :: CLACC ! fine Cl- in cloudwater (mol/liter) REAL( 8 ) :: CLCOR ! coarse Cl- conc in cloudwater (mol/liter) REAL( 8 ) :: CO2H ! Henry's Law constant for CO2 REAL( 8 ) :: CO21 ! First dissociation constant for CO2 REAL( 8 ) :: CO22 ! Second dissociation constant for CO2 REAL( 8 ) :: CO212 ! CO21*CO22 REAL( 8 ) :: CO212H ! CO2H*CO21*CO22 REAL( 8 ) :: CO21H ! CO2H*CO21 REAL( 8 ) :: CO2L ! CO2 conc in cloudwater (mol/liter) REAL( 8 ) :: CO3 ! CO3= conc in cloudwater (mol/liter) REAL( 8 ) :: CTHK1 ! cloud thickness (m) REAL( 8 ) :: DSIV_SCALE ! mass conservation scale factor for S(IV) REAL( 8 ) :: DTRMV ! REAL( 8 ) :: DTS6 ! REAL( 8 ) :: DGLYDT ! change in GLY (mol/liter/sec) REAL( 8 ) :: DMGLYDT ! change in MGLY (mol/liter/sec) ! REAL( 8 ) :: DOHDT ! change in OH REAL( 8 ) :: DGLY1 ! change due to Rxn. in GLY for DTW(0) time step REAL( 8 ) :: DMGLY1 ! change due to Rxn. in MGLY for DTW(0) time step ! REAL( 8 ) :: DOH1 ! change in OH for DTW(0) time step REAL( 8 ) :: DORGC ! change in ORGC for DTW(0) time step (mol/liter) REAL( 8 ) :: EBETASO4T ! EXP( -BETASO4 * TAUCLD ) REAL( 8 ) :: EALFA0T ! EXP( -ALFA0 * TAUCLD ) REAL( 8 ) :: EALFA2T ! EXP( -ALFA2 * TAUCLD ) REAL( 8 ) :: EALFA3T ! EXP( -ALFA3 * TAUCLD ) REAL( 8 ) :: EC ! elemental carbon acc+akn aerosol in cloudwater (mol/liter) REAL( 8 ) :: FA ! functional value ?? REAL( 8 ) :: FB ! functional value ?? REAL( 8 ) :: FCLCOR ! frac weight of coarse CL to (acc+coarse) CL REAL( 8 ) :: FE ! Fe+++ conc in cloudwater (mol/liter) REAL( 8 ) :: FNH3 ! frac weight of NH3 to total ammonia REAL( 8 ) :: FNH4ACC ! frac weight of NH4 acc to total ammonia REAL( 8 ) :: FNH4COR ! frac weight of coarse NH4 to (acc+coarse) NH4 REAL( 8 ) :: FHNO3 ! frac weight of HNO3 to total NO3 REAL( 8 ) :: FNO3ACC ! frac weight of NO3 acc to total NO3 REAL( 8 ) :: FNO3COR ! frac weight of coarse NO3 to (acc+coarse) NO3 REAL( 8 ) :: FRACLIQ ! fraction of water in liquid form REAL( 8 ) :: FOA1 ! First dissociation constant for FOA (Formic Acid) REAL( 8 ) :: FOAH ! Henry's Law constant for FOA REAL( 8 ) :: FOA1H ! FOAH*FOA1 REAL( 8 ) :: FOAL ! FOA conc in cloudwater (mol/liter) REAL( 8 ) :: FTST ! REAL( 8 ) :: GLYH ! Henry's Law constant for glyoxal REAL( 8 ) :: GLYL ! glyoxal conc in cloud water (mol/liter) REAL( 8 ) :: GM ! REAL( 8 ) :: GM1 ! REAL( 8 ) :: GM1LOG ! REAL( 8 ) :: GM2 ! activity correction factor REAL( 8 ) :: GM2LOG ! REAL( 8 ) :: HA ! REAL( 8 ) :: HB ! REAL( 8 ) :: H2OW ! REAL( 8 ) :: H2O2H ! Henry's Law Constant for H2O2 REAL( 8 ) :: H2O2L ! H2O2 conc in cloudwater (mol/liter) REAL( 8 ) :: HCLH ! Henry's Law Constant for HCL REAL( 8 ) :: HCL1 ! First dissociation constant for HCL REAL( 8 ) :: HCL1H ! HCL1*HCLH REAL( 8 ) :: HCLL ! HCl conc in cloudwater (mol/liter) REAL( 8 ) :: HCO2 ! HCO2 conc in cloudwater (mol/liter) REAL( 8 ) :: HCO3 ! HCO3 conc in cloudwater (mol/liter) REAL( 8 ) :: HNO3H ! Henry's Law Constant for HNO3 REAL( 8 ) :: HNO31 ! First dissociation constant for HNO3 REAL( 8 ) :: HNO31H ! REAL( 8 ) :: HNO3L ! HNO3 conc in cloudwater (mol/liter) REAL( 8 ) :: HOH ! Henry's Law Constant for HO REAL( 8 ) :: HSO3 ! HSO3 conc in cloudwater (mol/liter) REAL( 8 ) :: HSO4 ! HSO4 concn in cloudwater (mol/liter) REAL( 8 ) :: HSO4ACC ! accumulation mode HSO4 concn in cloudwater (mol/liter) REAL( 8 ) :: HSO4COR ! coarse HSO4 concn in cloudwater (mol/liter) REAL( 8 ) :: HTST ! REAL( 8 ) :: K ! K conc in cloudwater (mol/liter) REAL( 8 ) :: LGTEMP ! log of TEMP REAL( 8 ) :: MG ! REAL( 8 ) :: MGLYH ! Henry's Law Constant for methylglyoxal REAL( 8 ) :: MGLYL ! MGLY conc in cloud water (mol/liter) REAL( 8 ) :: MHPH ! Henry's Law Constant for MHP REAL( 8 ) :: MHPL ! MHP conc in cloudwater (mol/liter) REAL( 8 ) :: MN ! Mn++ conc in cloudwater (mol/liter) REAL( 8 ) :: NA ! Na conc in cloudwater (mol/liter) REAL( 8 ) :: NAACC ! Na in cloudwater (mol/liter) REAL( 8 ) :: NACOR ! coarse Na in cloudwater (mol/liter) REAL( 8 ) :: NH31 ! First dissociation constant for NH3 REAL( 8 ) :: NH3H ! Henry's Law Constant for NH3 REAL( 8 ) :: NH3DH20 ! REAL( 8 ) :: NH31HDH ! REAL( 8 ) :: NH3L ! NH3 conc in cloudwater (mol/liter) REAL( 8 ) :: NH4 ! NH4+ conc in cloudwater (mol/liter) REAL( 8 ) :: NH4ACC ! NH4 acc conc in cloudwater (mol/liter) REAL( 8 ) :: NH4COR ! NH4 coarse conc in cloudwater (mol/liter) REAL( 8 ) :: NITAER ! total aerosol nitrate REAL( 8 ) :: NO3 ! NO3 conc in cloudwater (mol/liter) REAL( 8 ) :: NO3ACC ! NO3 acc conc in cloudwater (mol/liter) REAL( 8 ) :: NO3COR ! NO3 coarse conc in cloudwater (mol/liter) REAL( 8 ) :: NUMCOR ! coarse aerosol number in cloudwater (mol/liter) REAL( 8 ) :: O3H ! Henry's Law Constant for O3 REAL( 8 ) :: O3L ! O3 conc in cloudwater (mol/liter) REAL( 8 ) :: OH ! OH conc in cloudwater (mol/liter) REAL( 8 ) :: OHL ! OH radical conc in cloudwater (mol/liter) REAL( 8 ) :: SOA ! secondary organic aerosol in cloudwater (mol/liter) REAL( 8 ) :: ORGC ! cloud-produced SOA in cloudwater (treated as primary) REAL( 8 ) :: POA ! primary organic aerosol in cloudwater (mol/liter) REAL( 8 ) :: PAAH ! Henry's Law Constant for PAA REAL( 8 ) :: PAAL ! PAA conc in cloudwater (mol/liter) REAL( 8 ) :: PCO2F ! gas only CO2 partial pressure (atm) REAL( 8 ) :: PFOAF ! gas only ORGANIC ACID partial press (atm) REAL( 8 ) :: PGLYF ! gas only GLY partial pressure (atm) REAL( 8 ) :: PH2O2F ! gas only H2O2 partial pressure (atm) REAL( 8 ) :: PHCLF ! gas only HCL partial pressure (atm) REAL( 8 ) :: PHNO3F ! gas only HNO3 partial pressure (atm) REAL( 8 ) :: PHOF ! gas only HO partial pressure (atm) REAL( 8 ) :: PMGLYF ! gas only MGLY parital pressure (atm) REAL( 8 ) :: PMHPF ! gas only MHP partial pressure (atm) REAL( 8 ) :: PNH3F ! gas only NH3 partial pressure (atm) REAL( 8 ) :: PO3F ! gas only O3 partial pressure (atm) REAL( 8 ) :: PPAAF ! gas only PAA partial pressure (atm) REAL( 8 ) :: PRIM ! PRIMARY acc+akn aerosol in cloudwater (mol/liter) ! REAL( 8 ) :: PRIMCOR ! PRIMARY coarse aerosol in cloudwater (mol/liter) REAL( 8 ) :: PSO2F ! gas only SO2 partial pressure (atm) REAL( 8 ) :: RATE ! REAL( 8 ) :: RECIPA1 ! REAL( 8 ) :: RECIPA2 ! REAL( 8 ) :: RECIPAP1 ! one over pressure (/atm) REAL( 8 ) :: RGLY3 ! liter/(mol sec) REAL( 8 ) :: RH2O2 ! REAL( 8 ) :: RMGLY3 ! liter/(mol sec) REAL( 8 ) :: RMHP ! REAL( 8 ) :: RPAA ! REAL( 8 ) :: RT ! gas const * temperature (liter atm/mol) REAL( 8 ) :: SIV ! dissolved so2 in cloudwater (mol/liter) REAL( 8 ) :: SK6 ! REAL( 8 ) :: SK6TS6 ! REAL( 8 ) :: SO21 ! First dissociation constant for SO2 REAL( 8 ) :: SO22 ! Second dissociation constant for SO2 REAL( 8 ) :: SO2H ! Henry's Law Constant for SO2 REAL( 8 ) :: SO212 ! SO21*SO22 REAL( 8 ) :: SO212H ! SO21*SO22*SO2H REAL( 8 ) :: SO21H ! SO21*SO2H REAL( 8 ) :: SO2L ! SO2 conc in cloudwater (mol/liter) REAL( 8 ) :: SO3 ! SO3= conc in cloudwater (mol/liter) REAL( 8 ) :: SO4 ! SO4= conc in cloudwater (mol/liter) REAL( 8 ) :: SO4ACC ! accumulation mode SO4= conc in cloudwater (mol/liter) REAL( 8 ) :: SO4COR ! coarse SO4= conc in cloudwater (mol/liter) REAL( 8 ) :: STION ! ionic strength REAL( 8 ) :: TAC ! REAL( 8 ) :: TCLa ! sum of accumulation and coarse mode chloride REAL( 8 ) :: TEMP1 ! (1/T) - (1/298) (1/K) REAL( 8 ) :: TIMEW ! cloud chemistry clock (sec) ! REAL( 8 ) :: THO ! total hydroxyl radical available for oxidation REAL( 8 ) :: TGLY ! total glyoxal available for oxidation REAL( 8 ) :: TMGLY ! total methylglyoxal available for oxidation REAL( 8 ) :: TOTOX ! REAL( 8 ) :: TH2O2 REAL( 8 ) :: TO3 REAL( 8 ) :: TMHP REAL( 8 ) :: TNH4a ! sum of accumulation and coarse mode ammonium REAL( 8 ) :: TNO3a ! sum of accumulation and coarse mode nitrate REAL( 8 ) :: TPAA REAL( 8 ) :: TOTAMM ! total ammonium REAL( 8 ) :: TOTNIT ! total nitrate (excluding coarse mode) REAL( 8 ) :: TS6 ! SO4 conc in cloudwater (mol/liter) REAL( 8 ) :: TS6ACC ! SO4 acc conc in cloudwater (mol/liter) REAL( 8 ) :: TS6COR ! coarse SO4 conc in cloudwater (mol/liter) REAL( 8 ) :: TSIV ! total S(iv) available for oxidation REAL( 8 ) :: TST ! REAL( 8 ) :: TWASH ! washout time for clouds (sec) REAL( 8 ) :: WETFAC ! converts mol/l to mm-mol/l based on precip REAL( 8 ) :: XC1 ! (/mm) REAL( 8 ) :: XC2 ! (liter-atm/mol/mm) REAL( 8 ) :: XL ! conversion factor (liter-atm/mol) REAL( 8 ) :: ONE_OVER_XL ! 1.0 / XL REAL( 8 ) :: PRES_ATM_OVER_XL ! PRES_ATM / XL REAL( 8 ) :: SCAVENGED ! aitken scavenging factor by cloud water REAL( 8 ) :: XLCO2 ! REAL( 8 ) :: XLH2O2 ! REAL( 8 ) :: XLHCL ! const in calc of HCL final partial pres REAL( 8 ) :: XLHNO3 ! REAL( 8 ) :: XLMHP ! REAL( 8 ) :: XLNH3 ! REAL( 8 ) :: XLO3 ! REAL( 8 ) :: XLPAA ! REAL( 8 ) :: XLSO2 ! REAL( 8 ) :: CAACC ! accumulation mode Calcium (AE6) SLN 16March2011 REAL( 8 ) :: MGACC ! accumulation mode Magnesium (AE6) SLN 16March2011 REAL( 8 ) :: KACC ! accumulation mode Potassium (AE6) SLN 16March2011 REAL( 8 ) :: CACOR ! coarse mode Calcium (AE6) SLN 16March2011 REAL( 8 ) :: MGCOR ! coarse mode Magnesium (AE6) SLN 16March2011 REAL( 8 ) :: KCOR ! coarse mode Potassium (AE6) SLN 16March2011 REAL( 8 ) :: SOILCOR ! coarse mode SOIL (AE6) SLN 16March2011 REAL( 8 ) :: ANTHCOR ! coarse mode CORS (AE6) SLN 16March2011 REAL( 8 ) :: SEASCOR ! coarse mode SEAS (AE6) SLN 16March2011 REAL( 8 ) :: FEACC ! accumulation mode Fe (AE6) SLN 22March2011 REAL( 8 ) :: MNACC ! accumulation mode Mn (AE6) SLN 22March2011 REAL( 8 ) :: FECOR ! coarse mode Fe (AE6) SLN 22March2011 REAL( 8 ) :: MNCOR ! coarse mode Mn (AE6) SLN 22March2011 REAL( 8 ) :: FE_OX ! Fe(III) available for sulfate oxidation REAL( 8 ) :: MN_OX ! Mn(II) available for sulfate oxidation REAL( 8 ) :: FE_III ! Fractional Fe(III) partitioning, GS - July 1, 2011 REAL( 8 ) :: MN_II ! Fractional Mn(II) partitioning, GS - July 1, 2011 REAL( 8 ) :: FE_SOL ! Fractional Fe solubility, GS - July 1, 2011 REAL( 8 ) :: MN_SOL ! Fractional Mn solubility, GS - July 1, 2011 REAL( 8 ) :: TRACI, POAI, PRII, SOAI REAL( 8 ), SAVE :: SOIL_FE_FAC ! Fe molar fraction of ASOIL REAL( 8 ), SAVE :: CORS_FE_FAC ! Fe molar fraction of ACORS REAL( 8 ), SAVE :: SOIL_MN_FAC ! etc. REAL( 8 ), SAVE :: CORS_MN_FAC REAL( 8 ), SAVE :: SEAS_NA_FAC ! Na molar fraction of ASEACAT REAL( 8 ), SAVE :: SOIL_NA_FAC REAL( 8 ), SAVE :: CORS_NA_FAC REAL( 8 ), SAVE :: SEAS_MG_FAC REAL( 8 ), SAVE :: SOIL_MG_FAC REAL( 8 ), SAVE :: CORS_MG_FAC REAL( 8 ), SAVE :: SEAS_CA_FAC REAL( 8 ), SAVE :: SOIL_CA_FAC REAL( 8 ), SAVE :: CORS_CA_FAC REAL( 8 ), SAVE :: SEAS_K_FAC REAL( 8 ), SAVE :: SOIL_K_FAC REAL( 8 ), SAVE :: CORS_K_FAC C...........Local Variables (arrays): REAL( 8 ) :: LOADING( MAX_NAER, NMODES ) ! aerosol loading (mol/liter) REAL( 8 ) :: INITGAS( NGAS ) ! initial gas partial pressure (atm) REAL( 8 ) :: LIQUID( NLIQS ) ! wet deposition array (mm mol/liter) REAL( 8 ) :: WETDEP( NLIQS ) ! wet deposition array (mm mol/liter) REAL( 8 ) :: DSIVDT( 0:NUMOX ) ! rate of so2 oxid incloud (mol/liter/sec) REAL( 8 ) :: DS4 ( 0:NUMOX ) ! S(IV) oxidized over timestep DTW(0) REAL( 8 ) :: DTW ( 0:NUMOX ) ! cloud chemistry timestep (sec) REAL( 8 ) :: ONE_OVER_TEMP ! 1.0 / TEMP C...........External Functions: REAL, EXTERNAL :: HLCONST !For Varaible used by TXHG Version LOGICAL, SAVE :: TRUST_TXHG_CHEM = .TRUE. ! allow effects for TXHG version on ion and ph REAL( 8 ) :: DCL2DT ! change in CL2 REAL( 8 ) :: DCL21 ! change in CL2 for DTW(0) time step REAL( 8 ) :: HO21 ! Dissociation constant for HO2 REAL( 8 ) :: HO2H ! Henry's Law Constant for HO2 REAL( 8 ) :: O2 ! O2- in cloudwater (mol/liter) REAL( 8 ) :: HO2L ! HO2 radical conc in cloudwater (mol/liter) REAL( 8 ) :: CL2L ! molecular chlorine in cloudwater (mol/liter) REAL( 8 ) :: HOCL_L ! hypochlorous acid in cloudwater (mol/liter) REAL( 8 ) :: OCL ! OCL- conc in cloudwater (mol/liter) REAL( 8 ) :: OCL_TOTAL ! OCL- conc in cloudwater (mol/liter) REAL( 8 ) :: CL2H ! Henry's Law constant for CL2 REAL( 8 ) :: CL2H_COF ! Coefficient converting CL2H to HEFFCL2 REAL( 8 ) :: HEFFCL2 ! Effective Henry's Law constant for CL2 REAL( 8 ) :: RECIPCL1 ! reciprocal of CL ion times ACT1 REAL( 8 ) :: RECIPCL2 ! reciprocal of CL ion squared times ACT2 REAL( 8 ) :: HOCLH ! Henry's Law constant for HOCL REAL( 8 ) :: HOCL1 ! Dissociation constant for HOCL REAL( 8 ) :: CL21 ! Dissociation constant for CL2 REAL( 8 ) :: CL2_HOCL1 ! equals CL21*HOCL1 REAL( 8 ) :: PCL20 ! total CL2 partial pressure (atm) REAL( 8 ) :: PCL2F ! gas only CL2 partial pressure (atm) REAL( 8 ) :: CL_SAFE ! CL ion protect by MIN test REAL( 8 ) :: CL_TOTAL ! CL ion protect by MIN test REAL( 8 ) :: PHOCL0 ! total HOCL partial pressure (atm) REAL( 8 ) :: PHOCLF ! gas only HOCL partial pressure (atm) REAL( 8 ) :: CL_VIA_PCL2 ! liquid Cl ion from dissolved CL2 REAL( 8 ) :: OCL_VIA_PCL2 ! liquid OCl ion from dissolved CL2 REAL( 8 ) :: PHOCL_VIA_PCL2 ! total gas HOCL from dissociated CL2 REAL( 8 ) :: LHOCL_VIA_LCL2 ! Liquid HOCL from dissociated CL2 REAL( 8 ) :: DEPHOCL_VIA_LCL2 ! HOCL deposition via dissociated CL2 (mm mol/liter) REAL( 8 ) :: DEPCL_VIA_LCL2 ! CL ion deposition via dissociated CL2 (mm mol/liter) REAL( 8 ) :: PHO2F ! Resultant gas only HO2 partial pressure (atm) REAL( 8 ) :: PHGIIGASF ! Resultant vapor pressure from liquid phase HGII (atm) REAL( 8 ) :: PHGF ! Resultant vapor pressure from HG (atm) REAL( 8 ) :: TRACER ! TRACER acc+akn aerosol in cloudwater (mol/liter) REAL( 8 ) :: TRACERCOR ! TRACER coarse aerosol in cloudwater (mol/liter) REAL( 8 ) :: HGII_FINE ! mercury PM acc+akn aerosol in cloudwater (mol/liter) REAL( 8 ) :: HGCOR ! mercury PM coarse aerosol in cloudwater (mol/liter) REAL( 8 ) :: XLHO2 ! converted henry's law const to calc HCL final partial pres REAL( 8 ) :: XLCL2 ! converted henry's law const to calc CL2 final partial pres REAL( 8 ) :: XLHOCL ! converted henry's law const to calc HOCL final partial pres REAL( 8 ) :: PREV_HGII_FINE ! Previous values of divalent HG in Fine Particulates (mol/liter) REAL( 8 ) :: DELT_HGII_FINE ! Change in divalent HG in Fine Particulates (mol/liter) REAL( 8 ) :: DELTA_HGO ! change in gaseous elemental mercury in liquid phases (mol/liter) REAL( 8 ) :: DELTA_HGIIGAS ! change in gaseous divalent mercury in liquid phases (mol/liter) REAL( 8 ) :: DELTA_ADS_HG ! change in adsorbed (aerosol) divalent mercury in cloud water (mol/liter) REAL( 8 ) :: DELTA_DADS_HG ! change in deadsorbed (dissolved) mercury in cloud water (mol/liter) REAL( 8 ) :: WETDEP_ADS_HG ! total wet deposition of adsorbed (aerosol) divalent mercury in liquid phases (mol/liter) REAL( 8 ) :: SPECIATE ! speciation factor or component to partition adsorbed HGII (Dimensionaless or mol/liter) REAL( 8 ) :: ADSORBED_HG ! Total mercury species absorbed onto elemental carbon REAL( 8 ) :: TOTAL_LHGIIGAS ! Total dissolved elemental mercury ! statement function for intrinsic Cl2 Henry's Law Constant ! based on Figure A2 in Lin and Pehkonen (JGR,1998) REAL( 8 ) :: HINTCL2 REAL( 8 ), PARAMETER :: A_HINTCL2 = 5.67D-8 REAL( 8 ), PARAMETER :: B_HINTCL2 = 2.50D-5 REAL( 8 ), PARAMETER :: C_HINTCL2 = 3.59D-3 REAL( 8 ), PARAMETER :: D_HINTCL2 = 1.49D-1 REAL( 8 ) :: TEMPC ! Temperature deg Celsius HINTCL2( TEMPC ) = A_HINTCL2 * TEMPC ** 3 & + B_HINTCL2 * TEMPC ** 2 & - C_HINTCL2 * TEMPC & + D_HINTCL2 C********************************************************************* C...Initialization IF ( FIRSTIME ) THEN FIRSTIME = .FALSE. C...Make sure an AE6 version of the mechanism is being used IF ( INDEX ( MECHNAME, 'AE6' ) .LE. 0 ) THEN XMSG = 'This version of AQCHEM requires an AE6 chemical mechanism' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT3 ) END IF !...Make sure STM option is not set IF ( STM ) THEN XMSG = 'STM option not implemented in multipollutant version of AQCHEM' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT3 ) END IF #ifdef isam XMSG = 'Source Apportionment is not implemented in multipollutant version of AQCHEM' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT3 ) #endif C... set MW ratios and speciation factors for molar concentrations of coarse C... soluble aerosols SOIL_FE_FAC = ASOIL_FE_FAC * REAL( AEROSPC_MW( ASOIL_IDX ), 8 ) & / REAL( AEROSPC_MW( AFE_IDX ), 8 ) / ASOIL_RENORM CORS_FE_FAC = ACORS_FE_FAC * REAL( AEROSPC_MW( ACORS_IDX ), 8 ) & / REAL( AEROSPC_MW( AFE_IDX ), 8 ) / ACORSEM_RENORM SOIL_MN_FAC = ASOIL_MN_FAC * REAL( AEROSPC_MW( ASOIL_IDX ), 8 ) & / REAL( AEROSPC_MW( AMN_IDX ), 8 ) / ASOIL_RENORM CORS_MN_FAC = ACORS_MN_FAC * REAL( AEROSPC_MW( ACORS_IDX ), 8 ) & / REAL( AEROSPC_MW( AMN_IDX ), 8 ) / ACORSEM_RENORM SEAS_NA_FAC = ASCAT_NA_FAC * REAL( AEROSPC_MW( ASEACAT_IDX ), 8 ) & / REAL( AEROSPC_MW( ANA_IDX ), 8 ) SOIL_NA_FAC = ASOIL_NA_FAC * REAL( AEROSPC_MW( ASOIL_IDX ), 8 ) & / REAL( AEROSPC_MW( ANA_IDX ), 8 ) / ASOIL_RENORM CORS_NA_FAC = ACORS_NA_FAC * REAL( AEROSPC_MW( ACORS_IDX ), 8 ) & / REAL( AEROSPC_MW( ANA_IDX ), 8 ) / ACORSEM_RENORM SEAS_MG_FAC = ASCAT_MG_FAC * REAL( AEROSPC_MW( ASEACAT_IDX ), 8 ) & / REAL( AEROSPC_MW( AMG_IDX ), 8 ) SOIL_MG_FAC = ASOIL_MG_FAC * REAL( AEROSPC_MW( ASOIL_IDX ), 8 ) & / REAL( AEROSPC_MW( AMG_IDX ), 8 ) / ASOIL_RENORM CORS_MG_FAC = ACORS_MG_FAC * REAL( AEROSPC_MW( ACORS_IDX ), 8 ) & / REAL( AEROSPC_MW( AMG_IDX ), 8 ) / ACORSEM_RENORM SEAS_CA_FAC = ASCAT_CA_FAC * REAL( AEROSPC_MW( ASEACAT_IDX ), 8 ) & / REAL( AEROSPC_MW( ACA_IDX ), 8 ) SOIL_CA_FAC = ASOIL_CA_FAC * REAL( AEROSPC_MW( ASOIL_IDX ), 8 ) & / REAL( AEROSPC_MW( ACA_IDX ), 8 ) / ASOIL_RENORM CORS_CA_FAC = ACORS_CA_FAC * REAL( AEROSPC_MW( ACORS_IDX ), 8 ) & / REAL( AEROSPC_MW( ACA_IDX ), 8 ) / ACORSEM_RENORM SEAS_K_FAC = ASCAT_K_FAC * REAL( AEROSPC_MW( ASEACAT_IDX ), 8 ) & / REAL( AEROSPC_MW( AK_IDX ), 8 ) SOIL_K_FAC = ASOIL_K_FAC * REAL( AEROSPC_MW( ASOIL_IDX ), 8 ) & / REAL( AEROSPC_MW( AK_IDX ), 8 ) / ASOIL_RENORM CORS_K_FAC = ACORS_K_FAC * REAL( AEROSPC_MW( ACORS_IDX ), 8 ) & / REAL( AEROSPC_MW( AK_IDX ), 8 ) / ACORSEM_RENORM END IF ! FIRSTIME ONE_OVER_TEMP = 1.0D0 / TEMP C...check for bad temperature, cloud air mass, or pressure IF ( TEMP .LE. 0.0D0 .OR. AIRM .LE. 0.0D0 .OR. PRES_PA .LE. 0.0D0 ) THEN XMSG = 'MET DATA ERROR' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT2 ) END IF C...initialize counters and compute several conversion factors ICNTAQ = 0 ITERAT = 0 DSIV_SCALE = 1.0D0 RT = ( MOLVOL / STDTEMP ) * TEMP ! R * T (liter atm / mol) PRES_ATM = PRES_PA / STDATMPA ! pressure (atm) CTHK1 = AIRM * RT / ( PRES_ATM * 1000.0D0 ) ! cloud thickness (m) XL = WCAVG * RT / H2ODENS ! conversion factor (l-atm/mol) ONE_OVER_XL = 1.0D0 / XL PRES_ATM_OVER_XL = PRES_ATM / XL TST = 0.999D0 GM = SCVEFF / 100.0D0 ACT1 = 1.0D0 ACT2 = 1.0D0 GM2 = 1.0D0 TIMEW = 0.0D0 RECIPAP1 = 1.0D0 / PRES_ATM XC1 = 1.0D0 / ( WCAVG * CTHK1 ) XC2 = RT / ( 1000.0D0 * CTHK1 ) FRACLIQ = WCAVG / WTAVG TWASH = WTAVG * 1000.0D0 * CTHK1 * 3600.0D0 & / ( H2ODENS * MAX( 1.0D-20, REAL( PRCRATE,8 ) ) ) C...set equilibrium constants as a function of temperature C... Henry`s law constants SO2H = HLCONST( 'SO2 ', TEMP, .FALSE., 0.0 ) CO2H = HLCONST( 'CO2 ', TEMP, .FALSE., 0.0 ) NH3H = HLCONST( 'NH3 ', TEMP, .FALSE., 0.0 ) H2O2H = HLCONST( 'H2O2 ', TEMP, .FALSE., 0.0 ) O3H = HLCONST( 'O3 ', TEMP, .FALSE., 0.0 ) HCLH = HLCONST( 'HCL ', TEMP, .FALSE., 0.0 ) HNO3H = HLCONST( 'HNO3 ', TEMP, .FALSE., 0.0 ) MHPH = HLCONST( 'METHYLHYDROPEROX', TEMP, .FALSE., 0.0 ) PAAH = HLCONST( 'PEROXYACETIC_ACI', TEMP, .FALSE., 0.0 ) FOAH = HLCONST( 'FORMIC_ACID ', TEMP, .FALSE., 0.0 ) GLYH = HLCONST( 'GLYOXAL ', TEMP, .FALSE., 0.0 ) MGLYH = HLCONST( MGLYSUR, TEMP, .FALSE., 0.0 ) HOH = HLCONST( 'OH ', TEMP, .FALSE., 0.0 ) TEMP1 = ONE_OVER_TEMP - 1.0D0 / 298.0D0 C...dissociation constants FOA1 = 1.80D-04 * EXP( -2.00D+01 * TEMP1 ) ! Martell and Smith (1977) SK6 = 1.02D-02 * EXP( 2.72D+03 * TEMP1 ) ! Smith and Martell (1976) SO21 = 1.30D-02 * EXP( 1.96D+03 * TEMP1 ) ! Smith and Martell (1976) SO22 = 6.60D-08 * EXP( 1.50D+03 * TEMP1 ) ! Smith and Martell (1976) CO21 = 4.30D-07 * EXP( -1.00D+03 * TEMP1 ) ! Smith and Martell (1976) CO22 = 4.68D-11 * EXP( -1.76D+03 * TEMP1 ) ! Smith and Martell (1976) H2OW = 1.00D-14 * EXP( -6.71D+03 * TEMP1 ) ! Smith and Martell (1976) NH31 = 1.70D-05 * EXP( -4.50D+02 * TEMP1 ) ! Smith and Martell (1976) HCL1 = 1.74D+06 * EXP( 6.90D+03 * TEMP1 ) ! Marsh and McElroy (1985) HNO31 = 1.54D+01 * EXP( 8.70D+03 * TEMP1 ) ! Schwartz (1984) C...Kinetic oxidation rates C... From Jacobson (1997) RH2O2 = 7.45D+07 * EXP( -15.96D0 * ( ( 298.0D0 / TEMP ) - 1.0D0 ) ) C... From Jacobson, 1997 RMHP = 1.90D+07 * EXP( -12.75D0 * ( ( 298.0D0 / TEMP ) - 1.0D0 ) ) RPAA = 3.60D+07 * EXP( -13.42D0 * ( ( 298.0D0 / TEMP ) - 1.0D0 ) ) C...From Carlton et al. (2007) RGLY3 = 3.0D+10 ! rate constant measured at 298K RMGLY3 = 3.0D+10 ! assumed to be the same as GLY C...make initializations WETDEP = 0.0D0 LOADING = 0.0D0 INITGAS = 0.0D0 DSIVDT = 0.0D0 DTW = 0.0D0 DS4 = 0.0D0 DGLY1 = 0.0D0 DMGLY1 = 0.0D0 DORGC = 0.0D0 ! DOH1 = 0.0 C...compute fractional weights for several species TOTNIT = GAS( LHNO3 ) + AEROSOL( LNO3, ACC ) IF ( TOTNIT .GT. 0.0D0 ) THEN FHNO3 = GAS( LHNO3 ) / TOTNIT FNO3ACC = AEROSOL( LNO3, ACC ) / TOTNIT ELSE FHNO3 = 1.0D0 FNO3ACC = 0.0D0 END IF TOTAMM = GAS( LNH3 ) + AEROSOL( LNH4, ACC ) IF ( TOTAMM .GT. 0.0D0 ) THEN FNH3 = GAS( LNH3 ) / TOTAMM FNH4ACC = AEROSOL( LNH4, ACC ) / TOTAMM ELSE FNH3 = 1.0D0 FNH4ACC = 0.0D0 END IF TNO3a = AEROSOL( LNO3, ACC ) + AEROSOL( LNO3, COR ) IF ( TNO3a .GT. 0.0D0) THEN FNO3COR = AEROSOL( LNO3, COR ) / TNO3a ELSE FNO3COR = 0.0D0 END IF TNH4a = AEROSOL( LNH4, ACC ) + AEROSOL( LNH4, COR ) IF ( TNH4a .GT. 0.0D0) THEN FNH4COR = AEROSOL( LNH4, COR ) / TNH4a ELSE FNH4COR = 0.0D0 END IF TCLa = AEROSOL( LCL, ACC ) + AEROSOL( LCL, COR ) IF ( TCLa .GT. 0.0D0) THEN FCLCOR = AEROSOL( LCL, COR ) / TCLa ELSE FCLCOR = 0.0D0 END IF C...Assign fraction partitioning of FE(III) and MN(II) IF ( DARK ) THEN FE_III = 0.9D0 ! Night time, GS 01July2011 ELSE FE_III = 0.1D0 ! Day time, GS 01July2011 END IF MN_II = 1.0D0 ! Same for day and night, GS 01July2011 C...Assign solubility of Fe and Mn FE_SOL = 0.1D0 ! GS 01July2011 MN_SOL = 0.5D0 ! GS 28July2011 C...initial concentration from accumulation-mode aerosol loading (mol/liter) C... an assumption is made that all of the accumulation-mode C... aerosol mass in incorporated into the cloud droplets DO ISPC = 1, NAER LOADING( ISPC, ACC ) = AEROSOL( ISPC, ACC ) * PRES_ATM_OVER_XL END DO LOADING( LSO4, ACC ) = ( AEROSOL( LSO4, ACC ) + GAS( LH2SO4 ) ) * PRES_ATM_OVER_XL C...initial concentration from coarse-mode aerosol loading (mol/liter) C... an assumption is made that all of the coarse-mode C... aerosol mass in incorporated into the cloud droplets DO ISPC = 1, NAER LOADING( ISPC, COR ) = AEROSOL( ISPC, COR ) * PRES_ATM_OVER_XL END DO ! LOADING( LCACO3, COR ) = ( AEROSOL( LCACO3, COR ) + AEROSOL( LMGCO3, COR ) ) ! & * PRES_ATM_OVER_XL C...set constant factors that will be used in later multiplications (moles/atm) XLH2O2 = H2O2H * XL XLO3 = O3H * XL XLMHP = MHPH * XL XLPAA = PAAH * XL XLSO2 = SO2H * XL XLNH3 = NH3H * XL XLHCL = HCLH * XL XLHNO3 = HNO3H * XL XLCO2 = CO2H * XL SO212 = SO21 * SO22 SO21H = SO21 * SO2H SO212H = SO212 * SO2H CO212 = CO21 * CO22 CO21H = CO21 * CO2H CO212H = CO22 * CO21H NH3DH20 = NH31 / H2OW NH31HDH = NH3H * NH3DH20 FOA1H = FOA1 * FOAH HCL1H = HCL1 * HCLH HNO31H = HNO31 * HNO3H C...Initialize for TXHG Version TEMPC = REAL( ( TEMP - 273.15 ), 8 ) HO2H = HLCONST( 'HO2 ', TEMP, .FALSE., 0.0 ) CL2H = HINTCL2( TEMPC ) HOCLH = HLCONST( 'HOCL ', TEMP, .FALSE., 0.0 ) XLCL2 = CL2H * XL XLHO2 = HO2H * XL XLHOCL = HOCLH * XL C...dissociation constants HO21 = 3.50D-05 ! Perrin (1982) CL21 = 5.01D-04 ! LIN AND PEHKONEN (1998), JGR, 103, D21, 28093-28102. HOCL1 = 3.16D-08 ! LIN AND PEHKONEN (1998), JGR, 103, D21, 28093-28102. CL2_HOCL1 = HOCL1 * CL21 ! needed for effective Henry's Constant of CL2 C...used by solution for CL2 and HOCL PHOCL_VIA_PCL2 = 0.0D0 LHOCL_VIA_LCL2 = 0.0D0 CL_VIA_PCL2 = 0.0D0 OCL_VIA_PCL2 = 0.0D0 DCL2DT = 0.0D0 DCL21 = 0.0D0 C...used to track change in oxidized gaseous and particulate mercury PREV_HGII_FINE = 0.0D0 DELT_HGII_FINE = 0.0D0 DELTA_HGO = 0.0D0 DELTA_HGIIGAS = 0.0D0 DELTA_ADS_HG = 0.0D0 DELTA_DADS_HG = 0.0D0 WETDEP_ADS_HG = 0.0D0 C...forms of mercuric adsorbed onto elemental carbon SHGCL2 = 0.0D0 SHGSO3 = 0.0D0 SHGDISULF = 0.0D0 SHGII = 0.0D0 SHGOHP = 0.0D0 SHGHY = 0.0D0 SHGOHCL = 0.0D0 ADSORBED_HG = 0.0D0 C...initialize mercury chemistry parameters CALL INIT_AQCHEM_HG ( TEMP, WCAVG, JDATE, JTIME, DARK ) C...loop If kinetic calculations are made, return to this point DO I20C = 1, 10001 IF ( I20C .GE. 10000 ) THEN XMSG = 'EXCESSIVE LOOPING AT I20C' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT2 ) END IF C...set aitken-mode aerosol loading (mol/liter) SCAVENGED = PRES_ATM_OVER_XL * ( 1.0D0 - EXP( -REAL( ALFA3, 8 ) * TIMEW ) ) DO ISPC = 1, NAER LOADING( ISPC, AKN ) = AEROSOL( ISPC, AKN ) * SCAVENGED END DO C...Initial gas phase partial pressures (atm) C... = initial partial pressure - amount deposited partial pressure INITGAS( LSO2 ) = GAS( LSO2 ) * PRES_ATM & + DS4( 0 ) * XL & - ( WETDEP( LSO3L ) + WETDEP( LHSO3L ) + WETDEP( LSO2L ) ) * XC2 INITGAS( LNH3 ) = GAS( LNH3 ) * PRES_ATM & + ( LOADING( LNH4, ACC ) + LOADING( LNH4, COR ) + LOADING( LNH4, AKN ) ) * XL & - ( WETDEP( LNH4ACCL ) + WETDEP( LNH3L ) + WETDEP( LNH4CORL ) ) * XC2 INITGAS( LHNO3 ) = ( GAS( LHNO3 ) + 2.0 * GAS( LN2O5 ) ) * PRES_ATM & + ( LOADING( LNO3, ACC ) + LOADING( LNO3, COR ) + LOADING( LNO3, AKN ) ) * XL & - ( WETDEP( LNO3ACCL ) + WETDEP( LHNO3L ) + WETDEP( LNO3CORL ) ) * XC2 INITGAS( LHCL ) = GAS( LHCL ) * PRES_ATM & + ( LOADING( LCL, ACC ) + LOADING( LCL, COR ) + LOADING( LCL, AKN ) ) * XL ! new for sea salt & - ( WETDEP( LCLACCL ) + WETDEP( LHCLL ) + WETDEP( LCLCORL ) ) * XC2 INITGAS( LH2O2 ) = GAS( LH2O2 ) * PRES_ATM - WETDEP( LH2O2L ) * XC2 INITGAS( LO3 ) = GAS( LO3 ) * PRES_ATM - WETDEP( LO3L ) * XC2 INITGAS( LFOA ) = GAS( LFOA ) * PRES_ATM & - ( WETDEP( LFOAL ) + WETDEP( LHCO2L ) ) * XC2 INITGAS( LMHP ) = GAS( LMHP ) * PRES_ATM - WETDEP( LMHPL ) * XC2 INITGAS( LPAA ) = GAS( LPAA ) * PRES_ATM - WETDEP( LPAAL ) * XC2 INITGAS( LCO2 ) = GAS( LCO2 ) * PRES_ATM ! & + ( LOADING( LCACO3, COR ) + LOADING( LMGCO3, COR ) ) * XL & - ( WETDEP( LCO3L ) + WETDEP( LHCO3L ) + WETDEP( LCO2L ) ) * XC2 INITGAS( LGLY ) = GAS( LGLY ) * PRES_ATM & + DGLY1 * XL & - WETDEP( LGLYL ) * XC2 INITGAS( LMGLY ) = GAS( LMGLY ) * PRES_ATM & + DMGLY1 * XL & - WETDEP( LMGLYL ) * XC2 INITGAS( LHO ) = GAS( LHO ) * PRES_ATM !steadystate & + DOH1 * XL !steadystate & - WETDEP( LOHL ) * XC2 C...Molar concentrations of soluble aerosols C... = Initial amount - amount deposited (mol/liter) TS6COR = MAX( LOADING( LSO4, COR ) - WETDEP( LTS6CORL ) * XC1, 0.0D0 ) NO3COR = MAX( LOADING( LNO3, COR ) - WETDEP( LNO3CORL ) * XC1, 0.0D0 ) ! NACOR = MAX( LOADING( LNA, COR ) - WETDEP( LNACORL ) * XC1, 0.0D0 ) ! SLN 29March2011 CLCOR = MAX( LOADING( LCL, COR ) - WETDEP( LCLCORL ) * XC1, 0.0D0 ) NH4COR = MAX( LOADING( LNH4, COR ) - WETDEP( LNH4CORL ) * XC1, 0.0D0 ) SOILCOR = MAX( LOADING( LSOILC,COR ) - WETDEP( LSOILCL ) * XC1, 0.0D0 ) ! SLN 16March2011 ANTHCOR = MAX( LOADING( LANTHC,COR ) - WETDEP( LANTHCL ) * XC1, 0.0D0 ) ! SLN 16March2011 SEASCOR = MAX( LOADING( LSEASC,COR ) - WETDEP( LSEASCL ) * XC1, 0.0D0 ) ! SLN 16March2011 FECOR = SOIL_FE_FAC * SOILCOR + CORS_FE_FAC * ANTHCOR ! SLN 22Mar2011 MNCOR = SOIL_MN_FAC * SOILCOR + CORS_MN_FAC * ANTHCOR NACOR = SEAS_NA_FAC * SEASCOR + SOIL_NA_FAC * SOILCOR + CORS_NA_FAC * ANTHCOR MGCOR = SEAS_MG_FAC * SEASCOR + SOIL_MG_FAC * SOILCOR + CORS_MG_FAC * ANTHCOR CACOR = SEAS_CA_FAC * SEASCOR + SOIL_CA_FAC * SOILCOR + CORS_CA_FAC * ANTHCOR KCOR = SEAS_K_FAC * SEASCOR + SOIL_K_FAC * SOILCOR + CORS_K_FAC * ANTHCOR TS6 = LOADING( LSO4, AKN ) + LOADING( LSO4, ACC ) + TS6COR & - ( WETDEP( LSO4ACCL ) + WETDEP( LHSO4ACCL ) ) * XC1 & - DS4( 0 ) NA = LOADING( LNA, ACC ) + LOADING( LNA, AKN ) + NACOR & - WETDEP( LNAACCL ) * XC1 ! CA = LOADING( LCACO3,COR ) - WETDEP( LCAL ) * XC1 ! MG = LOADING( LMGCO3,COR ) - WETDEP( LMGL ) * XC1 ! K = LOADING( LK, COR ) - WETDEP( LKL ) * XC1 ! FE = LOADING( LA3FE, COR ) - WETDEP( LFEL ) * XC1 ! MN = LOADING( LB2MN, COR ) - WETDEP( LMNL ) * XC1 CA = LOADING( LCAACC, ACC) - WETDEP( LCAACCL ) * XC1 + CACOR MG = LOADING( LMGACC, ACC) - WETDEP( LMGACCL ) * XC1 + MGCOR K = LOADING( LKACC, ACC) - WETDEP( LKACCL ) * XC1 + KCOR FE = LOADING( LFEACC, ACC) - WETDEP( LFEACCL ) * XC1 + FECOR MN = LOADING( LMNACC, ACC) - WETDEP( LMNACCL ) * XC1 + MNCOR SOA = LOADING( LSOA, ACC ) + LOADING( LSOA, AKN ) - WETDEP( LSOAL ) * XC1 ORGC = LOADING( LORGC, ACC ) + DORGC - WETDEP( LORGCL ) * XC1 ! new in-cloud organic POA = LOADING( LPOA, ACC ) + LOADING( LPOA, AKN ) - WETDEP( LPOAL ) * XC1 EC = LOADING( LEC, ACC ) + LOADING( LEC, AKN ) - WETDEP( LECL ) * XC1 PRIM = LOADING( LPRI, ACC ) + LOADING( LPRI, AKN ) - WETDEP( LPRIML ) * XC1 ! PRIMCOR = LOADING( LPRICOR, COR ) - WETDEP( LPRIMCORL ) * XC1 NUMCOR = LOADING( LNUM, COR ) - WETDEP( LNUMCORL ) * XC1 ! A = 3.0D0 * FE ! B = 2.0D0 * MN TRACI = LOADING( LTRACER_AKN, AKN ) - WETDEP( LTRACIL ) * XC1 POAI = LOADING( LPOA, AKN ) - WETDEP( LPOAIL ) * XC1 PRII = LOADING( LPRI, AKN ) - WETDEP( LPRIIL ) * XC1 SOAI = LOADING( LSOA, AKN ) - WETDEP( LSOAIL ) * XC1 ! FE_OX = 0.5D0 * 0.62D0 * FE ! SLN 28March2011 ! MN_OX = 1.0D0 * 0.84D0 * MN ! SLN 28March2011 C...don't allow aerosol concentrations to go below zero TS6 = MAX( TS6, 0.0D0 ) NA = MAX( NA, 0.0D0 ) CA = MAX( CA, 0.0D0 ) MG = MAX( MG, 0.0D0 ) K = MAX( K, 0.0D0 ) FE = MAX( FE, 0.0D0 ) MN = MAX( MN, 0.0D0 ) SOA = MAX( SOA, 0.0D0 ) ORGC = MAX( ORGC, 0.0D0 ) POA = MAX( POA, 0.0D0 ) EC = MAX( EC, 0.0D0 ) PRIM = MAX( PRIM, 0.0D0 ) ! PRIMCOR = MAX( PRIMCOR, 0.0D0 ) NUMCOR = MAX( NUMCOR, 0.0D0 ) TRACI = MAX( TRACI, 0.0D0 ) POAI = MAX( POAI, 0.0D0 ) PRII = MAX( PRII, 0.0D0 ) SOAI = MAX( SOAI, 0.0D0 ) FE_OX = FE_III * FE_SOL * FE ! GS 01July2011 MN_OX = MN_II * MN_SOL * MN ! GS 01July2011 A = 3.0D0 * FE_OX B = 2.0D0 * MN_OX SK6TS6 = SK6 * TS6 C...find solution of the equation using a method of reiterative C... bisections Make initial guesses for pH: between .01 to 10. HA = 0.01D0 HB = 10.0D0 C...For TXHG Version perturb HCL with CL2 dissociation INITGAS( LHCL ) = INITGAS( LHCL ) + CL_VIA_PCL2 * XL C...Gas Species specific to TXHG Versions INITGAS( LHO2 ) = GAS( LHO2 ) * PRES_ATM & - WETDEP( LHO2L ) * XC2 INITGAS( LCL2 ) = GAS( LCL2 ) * PRES_ATM & - WETDEP( LCL2L ) * XC2 & - XL * LHOCL_VIA_LCL2 INITGAS( LHOCL ) = GAS( LHOCL ) * PRES_ATM & - WETDEP( LHOCLL ) * XC2 & + XL * LHOCL_VIA_LCL2 INITGAS( LHG ) = GAS( LHG ) * PRES_ATM & + DELTA_HGO * XL & - WETDEP( LHGL ) * XC2 INITGAS( LHGIIGAS ) = GAS( LHGIIGAS ) * PRES_ATM & + DELTA_HGIIGAS * XL & - WETDEP( LHGIIGASL ) * XC2 C...don't allow gas concentrations to go below zero DO IGAS = 1, NGAS INITGAS( IGAS ) = MAX( INITGAS( IGAS ), 0.0D0 ) END DO C...Aerosol specific to TXHG Versions TRACER = LOADING( LTRACER_ACC, ACC ) + LOADING( LTRACER_AKN, AKN ) & - WETDEP( LTRACERL ) * XC1 TRACERCOR = LOADING( LTRACER_COR, COR ) - WETDEP( LTRACERCORL ) * XC1 C...Concentrations of sorbed Hg species = Initial amount - amount deposited (mol/liter) SHGCL2 = DHG( ISHGCL2 ) - DHG( IDHGCL2 ) & - WETDEP( LSHGCL2L ) * XC1 SHGSO3 = DHG( ISHGSO3 ) - DHG( IDHGSO3 ) & - WETDEP(LSHGSO3L) * XC1 SHGDISULF = DHG( ISHGDISULF ) - DHG( IDHGDISULF ) & - WETDEP(LSHGDISULFL) * XC1 SHGII = DHG( ISHGII ) - DHG( IDHGII ) & - WETDEP( LSHGIIL ) * XC1 SHGOHP = DHG( ISHGOHP ) - DHG( IDHGOHP ) & - WETDEP(LSHGOHPL) * XC1 SHGHY = DHG( ISHGHY ) - DHG( IDHGHY ) & - WETDEP( LSHGHYL ) * XC1 SHGOHCL = DHG( ISHGOHCL ) - DHG( IDHGOHCL ) & - WETDEP( LSHGOHCLL ) * XC1 SHGCL2 = MAX( SHGCL2, 0.0D0 ) SHGSO3 = MAX( SHGSO3, 0.0D0 ) SHGDISULF = MAX( SHGDISULF, 0.0D0 ) SHGII = MAX( SHGII, 0.0D0 ) SHGOHP = MAX( SHGOHP, 0.0D0 ) SHGHY = MAX( SHGHY, 0.0D0 ) SHGOHCL = MAX( SHGOHCL, 0.0D0 ) WETDEP_ADS_HG = WETDEP( LSHGCL2L ) & + WETDEP( LSHGSO3L ) & + WETDEP( LSHGDISULFL ) & + WETDEP( LSHGIIL ) & + WETDEP( LSHGOHPL ) & + WETDEP( LSHGHYL ) & + WETDEP( LSHGOHCLL ) HGCOR = LOADING( LPHG_COR, COR ) - WETDEP( LPHGCORL ) * XC1 HGCOR = MAX( HGCOR , 0.0D0 ) TRACER = MAX( TRACER, 0.0D0 ) TRACERCOR = MAX( TRACERCOR, 0.0D0 ) C...Determine the change in HGII_FINE and update previous value C...HGII_FINE deposition is accounted above by the depostion of adsorbed mercury. HGII_FINE = LOADING( LPHG, ACC ) + LOADING( LPHG, AKN ) ! DELT_HGII_FINE = MAX(HGII_FINE - PREV_HGII_FINE, 0.0D0) DELT_HGII_FINE = HGII_FINE - PREV_HGII_FINE PREV_HGII_FINE = HGII_FINE DO I7777C = 1, 10001 IF ( I7777C .GE. 10000 ) THEN XMSG = 'EXCESSIVE LOOPING AT I7777C' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT2 ) END IF HA = MAX( HA - 0.8D0, 0.1D0 ) HB = MIN( HB + 0.8D0, 9.9D0 ) AE = 10.0D0 ** ( -HA ) RECIPA1 = 1.0D0 / ( AE * ACT1 ) RECIPA2 = 1.0D0 / ( AE * AE * ACT2 ) C...calculate final gas phase partial pressure of SO2, NH3, HNO3 C... HCOOH, and CO2 (atm) PSO2F = INITGAS( LSO2 ) / ( 1.0D0 + XLSO2 * ( 1.0D0 + SO21 * RECIPA1 & + SO212 * RECIPA2 ) ) PNH3F = INITGAS( LNH3 ) / ( 1.0D0 + XLNH3 * ( 1.0D0 + NH3DH20 * AE ) ) PHCLF = INITGAS( LHCL ) / ( 1.0D0 + XLHCL * ( 1.0D0 + HCL1 * RECIPA1 ) ) PFOAF = INITGAS( LFOA ) / ( 1.0D0 + XL * ( FOAH + FOA1H * RECIPA1 ) ) PHNO3F = INITGAS( LHNO3 ) / ( 1.0D0 + XLHNO3 * ( 1.0D0 + HNO31 * RECIPA1 ) ) PCO2F = INITGAS( LCO2 ) / ( 1.0D0 + XLCO2 * ( 1.0D0 + CO21 * RECIPA1 & + CO212 * RECIPA2 ) ) C...calculate liquid phase concentrations (moles/liter) SO4 = SK6TS6 / ( AE * GM2 + SK6 ) HSO4 = TS6 - SO4 SO3 = SO212H * PSO2F * RECIPA2 HSO3 = SO21H * PSO2F * RECIPA1 CO3 = CO212H * PCO2F * RECIPA2 HCO3 = CO21H * PCO2F * RECIPA1 OH = H2OW * RECIPA1 NH4 = NH31HDH * PNH3F * AE HCO2 = FOA1H * PFOAF * RECIPA1 NO3 = HNO31H * PHNO3F * RECIPA1 CL = HCL1H * PHCLF * RECIPA1 ! new for sea salt C...compute functional value ! FA = AE + NH4 + NA + 2.0D0 * ( CA + MG - CO3 - SO3 - SO4 ) ! & - OH - HCO3 - HSO3 - NO3 - HSO4 - HCO2 - CL FA = AE + NH4 + NA + K + 2.0D0 * ( CA + MG - CO3 - SO3 - SO4 ) ! SLN 16March2011 & - OH - HCO3 - HSO3 - NO3 - HSO4 - HCO2 - CL C...For TXHG Version gases PHO2F = INITGAS( LHO2 ) / ( 1.0D0 + XLHO2 * ( 1.0D0 + HO21 * RECIPA1 ) ) PHOCLF = INITGAS( LHOCL ) / ( 1.0D0 + XLHOCL * ( 1.0D0 + HOCL1 * RECIPA1 ) ) C...compute dissolved O2 ion O2 = HO21 * HO2H * PHO2F * RECIPA1 C..calculate how CL ion and pH effect on PCL2 CL_SAFE = MAX( CL, 1.0D-10) RECIPCL1 = 1.0D0 / ( CL_SAFE * ACT1 ) RECIPCL2 = 1.0D0 / ( CL_SAFE * CL_SAFE * ACT2 ) CL2H_COF = 1.0D0 & + CL21 * RECIPCL1 * RECIPA1 & + CL2_HOCL1 * RECIPCL1 * RECIPA2 HEFFCL2 = CL2H * CL2H_COF PCl2F = INITGAS( LCL2 ) / ( 1.0D0 + XL * CL2H * CL2H_COF ) CL_VIA_PCL2 = CL2H * ( CL2H_COF - 1.0D0 ) * PCL2F OCL_VIA_PCL2 = CL2_HOCL1 * CL2H * RECIPCL1 * RECIPA2 * PCL2F C...Correct CL and calculate OCL CL_TOTAL = ( CL + CL_VIA_PCL2 ) CL_SAFE = MAX( CL_TOTAL, 1.0D-10 ) RECIPCL1 = 1.0D0 / ( CL_SAFE * ACT1 ) RECIPCL2 = 1.0D0 / ( CL_SAFE * CL_SAFE * ACT2 ) OCL = HOCL1 * HOCLH * PHOCLF * RECIPA1 OCL_TOTAL = OCL + OCL_VIA_PCL2 C...Calculate Mercury Gas to Liquid Partitioning HEFFHGCL2 = XLHGCL2 & * HGCL2_FACTOR_HLCONST( SO3, OH, CL_TOTAL, ACT2 ) PHGIIGASF = INITGAS( LHGIIGAS ) / ( 1.0D0 + HEFFHGCL2 ) PHGF = INITGAS( LHG ) / ( 1.0D0 + XLHG ) C...adjust functional value for CL2 effects FA = FA - CL_VIA_PCL2 - O2 - OCL_TOTAL C...Start iteration and bisection ****************<<<<<<< DO I30C = 1, 10000 IF ( I30C .GE. 10000 ) THEN XMSG = 'EXCESSIVE LOOPING AT I30C' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT2 ) END IF BB = ( HA + HB ) / 2.0D0 AE = 10.0D0 ** ( -BB ) ICNTAQ = ICNTAQ + 1 IF ( ICNTAQ .GE. 60000 ) THEN XMSG = 'Maximum AQCHEM total iterations exceeded' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT2 ) END IF RECIPA1 = 1.0D0 / ( AE * ACT1 ) RECIPA2 = 1.0D0 / ( AE * AE * ACT2 ) C...calculate final gas phase partial pressure of SO2, NH3, HCL, HNO3 C... HCOOH, and CO2 (atm) PSO2F = INITGAS( LSO2 ) / ( 1.0D0 + XLSO2 & * ( 1.0D0 + SO21 * RECIPA1 + SO212 * RECIPA2 ) ) PNH3F = INITGAS( LNH3 ) / ( 1.0D0 + XLNH3 * ( 1.0D0 + NH3DH20 * AE ) ) PHCLF = INITGAS( LHCL ) / ( 1.0D0 + XLHCL * ( 1.0D0 + HCL1 * RECIPA1 ) ) PHNO3F = INITGAS( LHNO3 ) / ( 1.0D0 + XLHNO3 * ( 1.0D0 + HNO31 * RECIPA1 ) ) PFOAF = INITGAS( LFOA ) / ( 1.0D0 + XL * ( FOAH + FOA1H * RECIPA1 ) ) PCO2F = INITGAS( LCO2 ) / ( 1.0D0 + XLCO2 * ( 1.0D0 + CO21 * RECIPA1 & + CO212 * RECIPA2 ) ) C...calculate liquid phase concentrations (moles/liter) SO4 = SK6TS6 / ( AE * GM2 + SK6 ) HSO4 = TS6 - SO4 SO3 = SO212H * PSO2F * RECIPA2 HSO3 = SO21H * PSO2F * RECIPA1 CO3 = CO212H * PCO2F * RECIPA2 HCO3 = CO21H * PCO2F * RECIPA1 OH = H2OW * RECIPA1 NH4 = NH31HDH * PNH3F * AE HCO2 = FOA1H * PFOAF * RECIPA1 NO3 = HNO31H * PHNO3F * RECIPA1 CL = HCL1H * PHCLF * RECIPA1 ! new for sea salt C...compute functional value ! FB = AE + NH4 + NA + 2.0D0 * ( CA + MG - CO3 - SO3 - SO4 ) ! & - OH - HCO3 - HSO3 - NO3 - HSO4 - HCO2 - CL FB = AE + NH4 + NA + K + 2.0D0 * ( CA + MG - CO3 - SO3 - SO4 ) ! SLN 16March2011 & - OH - HCO3 - HSO3 - NO3 - HSO4 - HCO2 - CL C...For TXHG Version PHO2F = INITGAS( LHO2 ) / ( 1.0D0 + XLHO2 * ( 1.0D0 + HO21 * RECIPA1 ) ) PHOCLF = INITGAS( LHOCL ) / ( 1.0D0 + XLHOCL * ( 1.0D0 + HOCL1 * RECIPA1 ) ) C...compute dissolved O2 ion O2 = HO21 * HO2H * PHO2F * RECIPA1 !..calculate how CL ion and pH effect on PCL2 CL_SAFE = MAX( CL, 1.0D-10 ) RECIPCL1 = 1.0D0 / ( CL_SAFE * ACT1 ) RECIPCL2 = 1.0D0 / ( CL_SAFE * CL_SAFE * ACT2 ) CL2H_COF = 1.0D0 & + CL21 * RECIPCL1 * RECIPA1 & + CL2_HOCL1 * RECIPCL1 * RECIPA2 HEFFCL2 = CL2H * CL2H_COF PCl2F = INITGAS( LCL2 ) / ( 1.0D0 + XL * CL2H * CL2H_COF ) CL_VIA_PCL2 = CL2H * ( CL2H_COF - 1.0D0 ) * PCL2F OCL_VIA_PCL2 = CL2_HOCL1 * CL2H * RECIPCL1 * RECIPA2 * PCL2F C...Correct CL and calculate OCL CL_TOTAL = ( CL + CL_VIA_PCL2 ) CL_SAFE = MAX( CL_TOTAL, 1.0D-10 ) RECIPCL1 = 1.0D0 / ( CL_SAFE * ACT1 ) RECIPCL2 = 1.0D0 / ( CL_SAFE * CL_SAFE * ACT2 ) OCL = HOCL1 * HOCLH * PHOCLF * RECIPA1 OCL_TOTAL = OCL + OCL_VIA_PCL2 C...Calculate Mercuric Gas to Liquid Partitioning HEFFHGCL2 = XLHGCL2 & * HGCL2_FACTOR_HLCONST( SO3, OH, CL_TOTAL, ACT2 ) PHGIIGASF = INITGAS( LHGIIGAS ) / ( 1.0D0 + HEFFHGCL2 ) PHGF = INITGAS( LHG ) / ( 1.0D0 + XLHG ) C...adjust functional value for CL2 effects FB = FB - CL_VIA_PCL2 - O2 - OCL_TOTAL C...Calculate and check the sign of the product of the two functional values FTST = FA * FB IF ( FTST .LE. 0.0D0 ) THEN HB = BB ELSE HA = BB FA = FB END IF C...Check convergence of solutions HTST = HA / HB IF ( HTST .GT. TST ) EXIT ! exit loop I30C END DO ! I30C C...end of zero-finding routine ****************<<<<<<<<<<<< C...compute Ionic strength and activity coefficient by the Davies equation STION = 0.5D0 & * ( AE + NH4 + OH + HCO3 + HSO3 & + 4.0D0 * ( SO4 + CO3 + SO3 + CA + MG + MN_OX ) & + NO3 + HSO4 + 9.0D0 * FE_OX + NA + K + CL + A + B + HCO2 ) ! KMF 08September2011 C & + 4.0D0 * ( SO4 + CO3 + SO3 + CA + MG + MN ) C & + NO3 + HSO4 + 9.0D0 * FE + NA + K + CL + A + B + HCO2 ) C...for TXHG Version ionic stength for CL2 effects STION = STION + ( 0.5D0 * ( O2 + CL_VIA_PCL2 + OCL_TOTAL ) ) GM1LOG = -0.509D0 * ( SQRT( STION ) & / ( 1.0D0 + SQRT( STION ) ) - 0.2D0 * STION ) GM2LOG = GM1LOG * 4.0D0 GM1 = 10.0D0 ** GM1LOG GM2 = MAX( 10.0D0 ** GM2LOG, 1.0D-30 ) ACTB = ACT1 ACT1 = MAX( GM1 * GM1, 1.0D-30 ) ACT2 = MAX( GM1 * GM1 * GM2, 1.0D-30 ) #ifdef verbose_cloud if ( stion .gt. 1.0 ) then write( logdev,'( /5x, a, 2i4, i10.6 )' ) & 'aqchem-I7777C,I20C: ', i7777c, i20c, jtime write( logdev,'( 5x, a, e10.3 )' ) 'stion: ', stion write( logdev,'( 5x, a, e10.3 )' ) 'AE: ', ae write( logdev,'( 5x, a, e10.3 )' ) 'NH4: ', nh4 write( logdev,'( 5x, a, e10.3 )' ) 'OH: ', oh write( logdev,'( 5x, a, e10.3 )' ) 'HCO3: ', hco3 write( logdev,'( 5x, a, e10.3 )' ) 'HSO3: ', hso3 write( logdev,'( 5x, a, e10.3 )' ) 'SO4: ', so4 write( logdev,'( 5x, a, e10.3 )' ) 'CO3: ', co3 write( logdev,'( 5x, a, e10.3 )' ) 'SO3: ', so3 write( logdev,'( 5x, a, e10.3 )' ) 'CA: ', ca write( logdev,'( 5x, a, e10.3 )' ) 'MG: ', mg write( logdev,'( 5x, a, e10.3 )' ) 'MN: ', mn write( logdev,'( 5x, a, e10.3 )' ) 'NO3: ', no3 write( logdev,'( 5x, a, e10.3 )' ) 'HSO4: ', hso4 write( logdev,'( 5x, a, e10.3 )' ) 'FE: ', fe write( logdev,'( 5x, a, e10.3 )' ) 'NA: ', na write( logdev,'( 5x, a, e10.3 )' ) 'K: ', k write( logdev,'( 5x, a, e10.3 )' ) 'CL: ', cl write( logdev,'( 5x, a, e10.3 )' ) 'CL from CL2: ', CL_VIA_PCL2 write( logdev,'( 5x, a, e10.3 )' ) 'O2-: ', O2 write( logdev,'( 5x, a, e10.3 )' ) 'OCL: ', OCL_TOTAL write( logdev,'( 5x, a, e10.3 )' ) 'A: ', a write( logdev,'( 5x, a, e10.3 )' ) 'B: ', b write( logdev,'( 5x, a, e10.3 )' ) 'HCO2: ', hco2 write( logdev,'( 5x, a, e10.3 )' ) 'gm1log:', gm1log write( logdev,'( 5x, a, e10.3 )' ) 'gm2log:', gm2log write( logdev,'( 5x, a, e10.3 )' ) 'gm1: ', gm1 write( logdev,'( 5x, a, e10.3 )' ) 'gm2: ', gm2 write( logdev,'( 5x, a, e10.3 )' ) 'actb: ', actb write( logdev,'( 5x, a, e10.3 )' ) 'act1: ', act1 write( logdev,'( 5x, a, e10.3 )' ) 'act2: ', act2 end if #endif C...check for convergence and possibly go to I7777C, to recompute C... Gas and liquid phase concentrations TAC = ABS( ACTB - ACT1 ) / ACTB IF ( TAC .LT. 1.0D-2 ) EXIT ! exit loop I7777C END DO ! end of do loop I7777C C...return an error if the pH is not in range IF ( ( HA .LT. 0.1D0 ) .OR. ( HA .GT. 9.9D0 ) ) THEN ! write( logdev,* ) ha XMSG = 'PH VALUE OUT OF RANGE' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT2 ) END IF C...Make those concentration calculations which can be made outside C... of the function. SO2L = SO2H * PSO2F HPLUS = 10.0D0 ** ( -BB ) SIV = SO3 + HSO3 + SO2L C...Calculate final gas phase concentrations of oxidants (atm) PH2O2F = ( INITGAS( LH2O2 ) + XL * DS4( 1 ) ) / ( 1.0D0 + XLH2O2 ) PO3F = ( INITGAS( LO3 ) + XL * DS4( 2 ) ) / ( 1.0D0 + XLO3 ) PMHPF = ( INITGAS( LMHP ) + XL * DS4( 4 ) ) / ( 1.0D0 + XLMHP ) PPAAF = ( INITGAS( LPAA ) + XL * DS4( 5 ) ) / ( 1.0D0 + XLPAA ) PGLYF = ( INITGAS( LGLY ) ) / ( 1.0D0 + GLYH * XL ) PMGLYF = ( INITGAS( LMGLY ) ) / ( 1.0D0 + MGLYH * XL ) PHOF = ( INITGAS( LHO ) ) / ( 1.0D0 + HOH * XL) PH2O2F = MAX( PH2O2F, 0.0D0 ) PO3F = MAX( PO3F, 0.0D0 ) PMHPF = MAX( PMHPF, 0.0D0 ) PPAAF = MAX( PPAAF, 0.0D0 ) C...Calculate liquid phase concentrations of oxidants (moles/liter) H2O2L = PH2O2F * H2O2H O3L = PO3F * O3H MHPL = PMHPF * MHPH PAAL = PPAAF * PAAH FOAL = PFOAF * FOAH NH3L = PNH3F * NH3H CO2L = PCO2F * CO2H HCLL = PHCLF * HCLH HNO3L = PHNO3F * HNO3H GLYL = PGLYF * GLYH MGLYL = PMGLYF * MGLYH OHL = PHOF * HOH C...Calculate liquid phase oxidant for TXHG Version HO2L = PHO2F * HO2H CL2L = PCL2F * CL2H HOCL_L = PHOCLF * HOCLH C... Mercuric liquid phase concentrations (moles/liter) HGL = PHGF * HGH HGCL2L = PHGIIGASF * HGCL2H HGII = HGCL2L * HGCL21 * RECIPCL2 HGSO3 = HGII * SO3 * HGSO31I HGDISULF = HGSO3 * SO3 * HGDISULF1I HGOHP = HGII * OH * HGOHP1I HGHY = HGOHP * OH * HGHY1I HGOHCL = HGOHP * CL_TOTAL * HGOHCL1I TOTAL_LHGIIGAS = HGCL2L + HGDISULF + HGSO3 + HGOHP & + HGOHCL + HGHY + HGII ADSORBED_HG = ADSORBED_HG + DELT_HGII_FINE C...Speciate liquid particulate phase mercury into adsorbed species C...and add to change array IF ( TOTAL_LHGIIGAS .GT. 0.0D0 ) THEN C....based on speciation of liquid HGII via HGIIGAS SPECIATE = DELT_HGII_FINE / TOTAL_LHGIIGAS AHGCL2 = SPECIATE * HGCL2L AHGII = SPECIATE * HGII AHGSO3 = SPECIATE * HGSO3 AHGDISULF = SPECIATE * HGDISULF AHGOHP = SPECIATE * HGOHP AHGHY = SPECIATE * HGHY AHGOHCL = SPECIATE * HGOHCL ELSE ! evenly into various species SPECIATE = DELT_HGII_FINE / 7.0D0 AHGCL2 = SPECIATE AHGII = SPECIATE AHGSO3 = SPECIATE AHGDISULF = SPECIATE AHGOHP = SPECIATE AHGHY = SPECIATE AHGOHCL = SPECIATE END IF C...Update adsorbed species and their differentials SHGCL2 = SHGCL2 + AHGCL2 SHGII = SHGII + AHGII SHGSO3 = SHGSO3 + AHGSO3 SHGDISULF = SHGDISULF + AHGDISULF SHGOHP = SHGOHP + AHGOHP SHGHY = SHGHY + AHGHY SHGOHCL = SHGOHCL + AHGOHCL DHG( ISHGCL2 ) = DHG( ISHGCL2 ) + AHGCL2 DHG( ISHGII ) = DHG( ISHGII ) + AHGII DHG( ISHGSO3 ) = DHG( ISHGSO3 ) + AHGSO3 DHG( ISHGDISULF ) = DHG( ISHGDISULF ) + AHGDISULF DHG( ISHGOHP ) = DHG( ISHGOHP ) + AHGOHP DHG( ISHGHY ) = DHG( ISHGHY ) + AHGHY DHG( ISHGOHCL ) = DHG( ISHGOHCL ) + AHGOHCL C...compute modal concentrations SO4COR = SK6 * TS6COR / ( AE * GM2 + SK6 ) HSO4COR = MAX( TS6COR - SO4COR, 0.0D0 ) TS6ACC = MAX( TS6 - TS6COR, 0.0D0 ) SO4ACC = MAX( SO4 - SO4COR, 0.0D0 ) HSO4ACC = MAX( HSO4 - HSO4COR, 0.0D0 ) NAACC = MAX( NA - NACOR, 0.0D0 ) CAACC = MAX( CA - CACOR, 0.0D0 ) ! AE6 MGACC = MAX( MG - MGCOR, 0.0D0 ) ! AE6 KACC = MAX( K - KCOR, 0.0D0 ) ! AE6 FEACC = MAX( FE - FECOR, 0.0D0 ) ! AE6 MNACC = MAX( MN - MNCOR, 0.0D0 ) ! AE6 C...Avoid adding mass when the coarse mode concentration is greater C... than the total amount left in the aqueous phase after redistribution C... of a species between the gas/aqueous phases IF ( NO3COR .GT. NO3 ) then NO3ACC = (1.0D0 - FNO3COR) * NO3 NO3COR = FNO3COR * NO3 ELSE NO3ACC = MAX( NO3 - NO3COR, 0.0D0 ) END IF IF ( CLCOR .GT. CL ) then CLACC = (1.0D0 - FCLCOR) * CL CLCOR = FCLCOR * CL ELSE CLACC = MAX( CL - CLCOR, 0.0D0 ) END IF IF ( NH4COR .GT. NH4 ) THEN NH4ACC = (1.0D0 - FNH4COR) * NH4 NH4COR = FNH4COR * NH4 ELSE NH4ACC = MAX( NH4 - NH4COR, 0.0D0 ) END IF C...load the liquid concentration array with current values LIQUID( LACL ) = HPLUS LIQUID( LNH4ACCL ) = NH4ACC LIQUID( LCACORL ) = CACOR LIQUID( LNAACCL ) = NAACC LIQUID( LOHL ) = OHL LIQUID( LSO4ACCL ) = SO4ACC LIQUID( LHSO4ACCL ) = HSO4ACC LIQUID( LSO3L ) = SO3 LIQUID( LHSO3L ) = HSO3 LIQUID( LSO2L ) = SO2L LIQUID( LCO3L ) = CO3 LIQUID( LHCO3L ) = HCO3 LIQUID( LCO2L ) = CO2L LIQUID( LNO3ACCL ) = NO3ACC LIQUID( LNH3L ) = NH3L LIQUID( LCLACCL ) = CLACC LIQUID( LH2O2L ) = H2O2L LIQUID( LO3L ) = O3L LIQUID( LFECORL ) = FECOR LIQUID( LMNCORL ) = MNCOR LIQUID( LAL ) = A LIQUID( LFOAL ) = FOAL LIQUID( LHCO2L ) = HCO2 LIQUID( LMHPL ) = MHPL LIQUID( LPAAL ) = PAAL LIQUID( LHCLL ) = HCLL LIQUID( LPRIML ) = PRIM LIQUID( LMGCORL ) = MGCOR LIQUID( LKCORL ) = KCOR LIQUID( LBL ) = B LIQUID( LHNO3L ) = HNO3L ! LIQUID( LPRIMCORL ) = PRIMCOR LIQUID( LNUMCORL ) = NUMCOR LIQUID( LTS6CORL ) = TS6COR LIQUID( LNACORL ) = NACOR LIQUID( LCLCORL ) = CLCOR LIQUID( LNO3CORL ) = NO3COR LIQUID( LNH4CORL ) = NH4COR LIQUID( LPOAL ) = POA LIQUID( LECL ) = EC LIQUID( LSOAL ) = SOA LIQUID( LORGCL ) = ORGC LIQUID( LGLYL ) = GLYL LIQUID( LMGLYL ) = MGLYL LIQUID( LCAACCL ) = CAACC ! AE6 - SLN 16March2011 LIQUID( LMGACCL ) = MGACC ! AE6 - SLN 16March2011 LIQUID( LKACCL ) = KACC ! AE6 - SLN 16March2011 LIQUID( LSOILCL ) = SOILCOR ! AE6 - SLN 16March2011 LIQUID( LANTHCL ) = ANTHCOR ! AE6 - SLN 16March2011 LIQUID( LSEASCL ) = SEASCOR ! AE6 - SLN 16March2011 LIQUID( LFEACCL ) = FEACC ! AE6 - SLN 22March2011 LIQUID( LMNACCL ) = MNACC ! AE6 - SLN 22March2011 LIQUID( LTRACIL ) = TRACI LIQUID( LPOAIL ) = POAI LIQUID( LPRIIL ) = PRII LIQUID( LSOAIL ) = SOAI C...Load array variable TXHG Version LIQUID( LTRACERL ) = TRACER LIQUID( LTRACERCORL ) = TRACERCOR LIQUID( LPHGCORL ) = HGCOR LIQUID( LHO2L ) = HO2L + O2 LIQUID( LCL2L ) = CL2L LIQUID( LHOCLL ) = HOCL_L + OCL LIQUID( LHGDISULFL ) = HGDISULF LIQUID( LHGL ) = HGL LIQUID( LHGIIGASL ) = HGCL2L LIQUID( LHGIIL ) = HGII LIQUID( LHGOHPL ) = HGOHP LIQUID( LHGHYL ) = HGHY LIQUID( LHGOHCLL ) = HGOHCL LIQUID( LSHGCL2L ) = SHGCL2 LIQUID( LSHGSO3L ) = SHGSO3 LIQUID( LSHGDISULFL ) = SHGDISULF LIQUID( LSHGIIL ) = SHGII LIQUID( LSHGOHPL ) = SHGOHP LIQUID( LSHGHYL ) = SHGHY LIQUID( LSHGOHCLL ) = SHGOHCL C...Update for CL2 effects LHOCL_VIA_LCL2 = LHOCL_VIA_LCL2 + CL2H * ( CL2H_COF - 1.0 ) * PCL2F CL_VIA_PCL2 = LHOCL_VIA_LCL2 HOCL_L = HOCL_L + CL2H * ( CL2H_COF - 1.0D0 ) * PCL2F OCL = OCL + CL2H * CL2_HOCL1 * RECIPCL1 * RECIPA2 * PCL2F C...if the maximum cloud lifetime has not been reached, then compute C... the next timestep, else exit loop 20. IF ( TIMEW .GE. TAUCLD ) EXIT ! exit 20 loop C...make kinetics calculations C... note: DS4(i) and DSIV(I) are negative numbers! DTRMV = TAUCLD / 3.0D0 IF ( ( CTHK1 .GT. 1.0D-10 ) .AND. ( PRCRATE .GT. 1.0D-10 ) ) & DTRMV = 3.6D0 * WTAVG * 1000.0D0 * CTHK1 / PRCRATE ! << ppmV ! REAL, PARAMETER :: CNV3 = CNV2 / AVO ! -> mol/mol REAL, PARAMETER :: CNV3 = CNV2 ! -> #/mol REAL, PARAMETER :: CNV3I = 1.0 / CNV3 C...........ARGUMENTS ! REAL CGRID( NCOLS, NROWS, NLAYS, * ) ! concentrations ! REAL :: CGRID( :,:,:,: ) ! concentrations REAL, POINTER :: CGRID( :,:,:,: ) ! concentrations INTEGER JDATE ! current model date, coded YYYYDDD INTEGER JTIME ! current model time, coded HHMMSS INTEGER TSTEP( 3 ) ! model time step, coded HHMMSS C...........Local Variables LOGICAL, SAVE :: FIRSTIME = .TRUE. ! flag for first pass thru CHARACTER( 16 ), SAVE :: PNAME = 'CLDPROC' ! driver program name CHARACTER( 16 ) :: VNAME ! input variable name list INTEGER COL ! column subscript indices INTEGER FINI ! ending position INTEGER L ! loop counter INTEGER LAY ! layer subscript indices INTEGER MDATE ! middle of this time step INTEGER MTIME ! middle of this time step INTEGER NDATE ! middle of this time step INTEGER NTIME ! middle of this time step INTEGER, SAVE :: WSTEP = 0 ! local write counter INTEGER, SAVE :: NNAE ! number of #/m3 species INTEGER, SAVE :: NQAE ! number of ug/m3 species INTEGER, SAVE :: NSAE ! number of m2/m3 species INTEGER ROW ! row subscript indices INTEGER SPC ! species subscript indices INTEGER STRT ! starting position INTEGER VAR ! variable subscript indices INTEGER ALLOCSTAT INTEGER, ALLOCATABLE, SAVE :: WDEP_MAP( : ) ! wet deposition map to CGRID INTEGER, ALLOCATABLE, SAVE :: QAE( : ) ! CGRID pointer to ug/m3 species INTEGER, ALLOCATABLE, SAVE :: NAE( : ) ! CGRID pointer to #/m3 species INTEGER, ALLOCATABLE, SAVE :: SAE( : ) ! CGRID pointer to m2/m3 species ! REAL DENS ( NCOLS,NROWS,NLAYS ) ! air density (kg/m3) ! REAL CONV_DEP( NCOLS,NROWS,N_SPC_WDEP+8 ) ! convective wdep only ! REAL TOT_DEP ( NCOLS,NROWS,N_SPC_WDEP+1 ) ! total wdep REAL, ALLOCATABLE, SAVE :: DENS ( :,:,: ) ! air density (kg/m3) REAL, ALLOCATABLE, SAVE :: CONV_DEP( :,:,: ) ! convective wdep only REAL, ALLOCATABLE, SAVE :: TOT_DEP ( :,:,: ) ! total wdep REAL, ALLOCATABLE, SAVE :: RESTRANS( :,: ) ! resolved cloud transmissivity REAL, ALLOCATABLE, SAVE :: SUBTRANS( :,:,: ) ! subgrid cloud transmissivity REAL ACCM_WDEP ! accumulated wet dep for Hg bidi REAL FAC ! temp conversion factor REAL CCMIN C...........EXTERNAL FUNCTIONS INTERFACE SUBROUTINE RESCLD ( CGRID, JDATE, JTIME, TSTEP, & N_SPC_WDEP, WDEP_MAP, DEP, RESTRANS ) REAL, POINTER :: CGRID( :,:,:,: ) INTEGER, INTENT( IN ) :: JDATE INTEGER, INTENT( IN ) :: JTIME INTEGER, INTENT( IN ) :: TSTEP( 3 ) INTEGER, INTENT( IN ) :: N_SPC_WDEP INTEGER, INTENT( IN ) :: WDEP_MAP( : ) REAL, INTENT( INOUT ) :: DEP( :,:,: ) REAL, INTENT( OUT ) :: RESTRANS( :,: ) END SUBROUTINE RESCLD SUBROUTINE CONVCLD_ACM ( CGRID, JDATE, JTIME, TSTEP, & N_SPC_WDEP, WDEP_MAP, CONV_DEP, SUBTRANS ) REAL, POINTER :: CGRID( :,:,:,: ) INTEGER, INTENT( IN ) :: JDATE INTEGER, INTENT( IN ) :: JTIME INTEGER, INTENT( IN ) :: TSTEP( 3 ) INTEGER, INTENT( IN ) :: N_SPC_WDEP INTEGER, INTENT( IN ) :: WDEP_MAP( : ) REAL, INTENT( INOUT ) :: CONV_DEP( :,:,: ) REAL, INTENT( OUT ) :: SUBTRANS( :,:,: ) END SUBROUTINE CONVCLD_ACM END INTERFACE C----------------------------------------------------------------------- C begin body of subroutine CLDPROC C...Initialization IF ( FIRSTIME ) THEN FIRSTIME = .FALSE. C...first check to make sure that some species in CGRID were specified C...for output in the wet deposition array, otherwise notify the user C...and return N_SPC_WDEP = N_GC_WDEP + N_AE_WDEP + N_NR_WDEP + N_TR_WDEP ALLOCATE ( WDEP_MAP( N_SPC_WDEP ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating WDEP_MAP' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF IF ( N_SPC_WDEP .LE. 0 ) THEN XMSG = 'No species were specified for wet deposition ' // & 'tracking' CALL M3WARN ( PNAME, JDATE, JTIME, XMSG ) XMSG = 'ONLY CLOUD DIAGNOSTICS WILL BE WRITTEN TO THE ' // & 'WETDEP OUTPUT FILE!' CALL M3MESG ( XMSG ) END IF C...check to see if user wants to output extra diagnostic files SPC = 0 STRT = 1 FINI = N_GC_WDEP DO VAR = STRT, FINI SPC = SPC + 1 WDEP_MAP( VAR ) = GC_STRT - 1 + GC_WDEP_MAP( SPC ) END DO SPC = 0 STRT = N_GC_WDEP + 1 FINI = N_GC_WDEP + N_AE_WDEP DO VAR = STRT, FINI SPC = SPC + 1 WDEP_MAP( VAR ) = AE_STRT - 1 + AE_WDEP_MAP( SPC ) END DO SPC = 0 STRT = N_GC_WDEP + N_AE_WDEP + 1 FINI = N_GC_WDEP + N_AE_WDEP + N_NR_WDEP DO VAR = STRT, FINI SPC = SPC + 1 WDEP_MAP( VAR ) = NR_STRT - 1 + NR_WDEP_MAP( SPC ) END DO SPC = 0 STRT = N_GC_WDEP + N_AE_WDEP + N_NR_WDEP + 1 FINI = N_GC_WDEP + N_AE_WDEP + N_NR_WDEP + N_TR_WDEP DO VAR = STRT, FINI SPC = SPC + 1 WDEP_MAP( VAR ) = TR_STRT - 1 + TR_WDEP_MAP( SPC ) END DO IF ( N_AE_SPC .GT. 0 ) THEN C...create aerosol species pointers to distinguish micro-grams / m**3 C... # / m**3 (number density), and m**2 / m**3 (surface area) units ALLOCATE ( QAE( N_AE_SPC ), & NAE( N_AE_SPC ), & SAE( N_AE_SPC ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating QAE, NAE, or SAE' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF NQAE = 0 ! number of ug/m3 species NNAE = 0 ! number of #/m3 species NSAE = 0 ! number of m2/m3 species DO VAR = 1, N_AE_SPC IF ( AE_SPC( VAR )( 1:3 ) .EQ. 'NUM' ) THEN NNAE = NNAE + 1 NAE( NNAE ) = AE_STRT - 1 + VAR ELSE IF ( AE_SPC( VAR )( 1:3 ) .EQ. 'SRF' ) THEN NSAE = NSAE + 1 SAE( NSAE ) = AE_STRT - 1 + VAR ELSE NQAE = NQAE + 1 QAE( NQAE ) = AE_STRT - 1 + VAR END IF END DO END IF C...initialize the deposition array before processing clouds ALLOCATE ( TOT_DEP ( NCOLS,NROWS,N_SPC_WDEP+1 ), & STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating TOT_DEP' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF TOT_DEP = 0.0 ! array assignment ALLOCATE ( CONV_DEP( NCOLS,NROWS,N_SPC_WDEP+8+4 ), & STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating CONV_DEP' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF CONV_DEP = 0.0 ! array assignment ALLOCATE ( RESTRANS ( NCOLS,NROWS ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating RESTRANS' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF RESTRANS = 1.0 ! array assignment ALLOCATE ( SUBTRANS ( NCOLS,NROWS,2 ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating SUBTRANS' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF SUBTRANS = 1.0 ! array assignment ALLOCATE ( DENS( NCOLS,NROWS,NLAYS ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating DENS' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF #ifdef parallel_io IF ( .NOT. IO_PE_INCLUSIVE ) THEN IF ( .NOT. OPEN3( CTM_WET_DEP_1, FSREAD3, PNAME ) ) THEN XMSG = 'Could not open ' // TRIM( CTM_WET_DEP_1 ) CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF END IF IF ( CLD_DIAG ) THEN IF ( .NOT. IO_PE_INCLUSIVE ) THEN IF ( .NOT. OPEN3( CTM_WET_DEP_2, FSREAD3, PNAME ) ) THEN XMSG = 'Could not open ' // TRIM( CTM_WET_DEP_2 ) CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF END IF END IF #endif END IF ! FIRSTIME MDATE = JDATE MTIME = JTIME call interpolate_var ('DENS', mdate, mtime, DENS) C...convert units on cgrid to molar mixing ratio (by volume) C... determine no. of moles of gas per moles of air by volume STRT = GC_STRT FINI = GC_STRT + N_GC_SPC - 1 DO SPC = STRT, FINI DO LAY = 1, NLAYS DO ROW = 1, NROWS DO COL = 1, NCOLS CGRID( COL, ROW, LAY, SPC ) = MAX( CGRID( COL, ROW, LAY, SPC ) & * 1.0E-6, 1.0E-36 ) END DO END DO END DO END DO C...for aerosol mass concentration C... convert to moles of aerosol per mole of air by volume STRT = 1 FINI = NQAE DO VAR = STRT, FINI SPC = QAE( VAR ) DO LAY = 1, NLAYS DO ROW = 1, NROWS DO COL = 1, NCOLS FAC = CNV1 / DENS( COL, ROW, LAY ) / AE_MOLWT( SPC - AE_STRT + 1 ) CCMIN = MAX( CGRID( COL, ROW, LAY, SPC ), 1.0E-30/FAC ) CGRID( COL, ROW, LAY, SPC ) = FAC * CCMIN END DO END DO END DO END DO C...for aerosol number concentration C... convert to # per mole of air by volume STRT = 1 FINI = NNAE DO VAR = STRT, FINI SPC = NAE( VAR ) DO LAY = 1, NLAYS DO ROW = 1, NROWS DO COL = 1, NCOLS FAC = CNV3 / DENS( COL, ROW, LAY ) CCMIN = MAX( CGRID( COL, ROW, LAY, SPC ), 1.0E-30/FAC ) CGRID( COL, ROW, LAY, SPC ) = FAC * CCMIN END DO END DO END DO END DO C...for aerosol surface area C... convert to m2 per mole of air by volume STRT = 1 FINI = NSAE DO VAR = STRT, FINI SPC = SAE( VAR ) DO LAY = 1, NLAYS DO ROW = 1, NROWS DO COL = 1, NCOLS FAC = CNV2 / DENS( COL, ROW, LAY ) CCMIN = MAX( CGRID( COL, ROW, LAY, SPC ), 1.0E-30/FAC ) CGRID( COL, ROW, LAY, SPC ) = FAC * CCMIN END DO END DO END DO END DO C...determine no. of moles of non-reactive gas per moles of air by volume STRT = NR_STRT FINI = NR_STRT + N_NR_SPC - 1 DO SPC = STRT, FINI DO LAY = 1, NLAYS DO ROW = 1, NROWS DO COL = 1, NCOLS CGRID( COL, ROW, LAY, SPC ) = MAX( CGRID( COL, ROW, LAY, SPC ) & * 1.0E-6, 1.0E-36 ) END DO END DO END DO END DO C...determine no. of moles of tracer gas per moles of air by volume STRT = TR_STRT FINI = TR_STRT + N_TR_SPC - 1 DO SPC = STRT, FINI DO LAY = 1, NLAYS DO ROW = 1, NROWS DO COL = 1, NCOLS CGRID( COL, ROW, LAY, SPC ) = MAX( CGRID( COL, ROW, LAY, SPC ) & * 1.0E-6, 1.0E-36 ) END DO END DO END DO END DO C...compute cloud effects for the resolved clouds and resolved rainwater CALL RESCLD ( CGRID, JDATE, JTIME, TSTEP, & N_SPC_WDEP, WDEP_MAP, TOT_DEP, RESTRANS ) C...compute cloud effects for convective (subgrid) clouds CALL CONVCLD_ACM ( CGRID, JDATE, JTIME, TSTEP, & N_SPC_WDEP, WDEP_MAP, CONV_DEP, SUBTRANS ) C...share wet deposition with bidirectional surface exchange algorithms IF ( HGBIDI ) THEN DO VAR = 1, N_GC_WDEP IF ( GC_WDEP( VAR ) .EQ. 'HG' ) THEN DO ROW = 1, NROWS DO COL = 1, NCOLS ACCM_WDEP = TOT_DEP( COL, ROW, VAR ) & + CONV_DEP( COL, ROW, VAR ) CALL GET_WDEP ( 'HG ', ACCM_WDEP, COL, ROW ) END DO END DO END IF IF ( GC_WDEP( VAR ) .EQ. 'HGIIGAS' ) THEN DO ROW = 1, NROWS DO COL = 1, NCOLS ACCM_WDEP = TOT_DEP( COL, ROW, VAR ) & + CONV_DEP( COL, ROW, VAR ) CALL GET_WDEP ( 'HGIIGAS ', ACCM_WDEP, COL, ROW ) END DO END DO END IF END DO END IF C...now check to see if it's time to write the deposition file WSTEP = WSTEP + TIME2SEC( TSTEP( 2 ) ) IF ( WSTEP .GE. TIME2SEC( TSTEP( 1 ) ) ) THEN NDATE = JDATE NTIME = JTIME CALL NEXTIME( NDATE, NTIME, TSTEP( 2 ) ) WSTEP = 0 DO VAR = 1, N_SPC_WDEP + 1 DO ROW = 1, NROWS DO COL = 1, NCOLS TOT_DEP( COL, ROW, VAR ) = TOT_DEP ( COL, ROW, VAR ) & + CONV_DEP( COL, ROW, VAR ) END DO END DO END DO DO ROW = 1, NROWS DO COL = 1, NCOLS VAR = N_SPC_WDEP + 8 + 1 CONV_DEP( COL, ROW, VAR ) = SUBTRANS( COL, ROW, 1 ) VAR = VAR + 1 CONV_DEP( COL, ROW, VAR ) = SUBTRANS( COL, ROW, 2 ) VAR = VAR + 1 CONV_DEP( COL, ROW, VAR ) = RESTRANS( COL, ROW ) VAR = VAR + 1 CONV_DEP( COL, ROW, VAR ) = SUBTRANS( COL, ROW, 1 ) & * SUBTRANS( COL, ROW, 2 ) & * RESTRANS( COL, ROW ) END DO END DO RESTRANS = 1.0 SUBTRANS = 1.0 C...write data to the normal wet deposition file IF ( .NOT. WRITE3( CTM_WET_DEP_1, ALLVAR3, NDATE, & NTIME, TOT_DEP ) ) THEN XMSG = 'Could not write ' // CTM_WET_DEP_1 // ' file' CALL M3EXIT ( PNAME, NDATE, NTIME, XMSG, XSTAT1 ) END IF WRITE( LOGDEV, '( /5X, 3( A, :, 1X ), I8, ":", I6.6 )' ) & 'Timestep written to', CTM_WET_DEP_1, & 'for date and time', NDATE, NTIME C...write data to the diagnostic file if requested by the user IF ( CLD_DIAG ) THEN IF ( .NOT. WRITE3( CTM_WET_DEP_2, ALLVAR3, NDATE, & NTIME, CONV_DEP ) ) THEN XMSG = 'Could not write ' // CTM_WET_DEP_2 // ' file' CALL M3EXIT ( PNAME, NDATE, NTIME, XMSG, XSTAT1 ) END IF WRITE( LOGDEV, '( /5X, 3( A, :, 1X ), I8, ":", I6.6 )' ) & 'Timestep written to', CTM_WET_DEP_2, & 'for date and time', NDATE, NTIME END IF ! CLD_DIAG C...reinitialize deposition array TOT_DEP = 0.0 CONV_DEP = 0.0 END IF ! time to write C...convert units on cgrid back to original units C... convert to ppmV gas STRT = GC_STRT FINI = GC_STRT + N_GC_SPC - 1 DO SPC = STRT, FINI DO LAY = 1, NLAYS DO ROW = 1, NROWS DO COL = 1, NCOLS CGRID( COL, ROW, LAY, SPC ) = CGRID( COL, ROW, LAY, SPC ) & * 1.0E+6 END DO END DO END DO END DO C...convert to ug/m3 of aerosol mass STRT = 1 FINI = NQAE DO VAR = STRT, FINI SPC = QAE( VAR ) DO LAY = 1, NLAYS DO ROW = 1, NROWS DO COL = 1, NCOLS FAC = CNV1I * DENS( COL, ROW, LAY ) CGRID( COL, ROW, LAY, SPC ) = FAC * CGRID( COL, ROW, LAY, SPC ) & * AE_MOLWT( SPC - AE_STRT + 1 ) END DO END DO END DO END DO C...convert to #/m3 of aerosol number STRT = 1 FINI = NNAE DO VAR = STRT, FINI SPC = NAE( VAR ) DO LAY = 1, NLAYS DO ROW = 1, NROWS DO COL = 1, NCOLS FAC = CNV3I * DENS( COL, ROW, LAY ) CGRID( COL, ROW, LAY, SPC ) = FAC * CGRID( COL, ROW, LAY, SPC ) END DO END DO END DO END DO C...convert to m2/m3 of aerosol surface area STRT = 1 FINI = NSAE DO VAR = STRT, FINI SPC = SAE( VAR ) DO LAY = 1, NLAYS DO ROW = 1, NROWS DO COL = 1, NCOLS FAC = CNV2I * DENS( COL, ROW, LAY ) CGRID( COL, ROW, LAY, SPC ) = FAC * CGRID( COL, ROW, LAY, SPC ) END DO END DO END DO END DO C...convert to ppmV non-reactive gas STRT = NR_STRT FINI = NR_STRT + N_NR_SPC - 1 DO SPC = STRT, FINI DO LAY = 1, NLAYS DO ROW = 1, NROWS DO COL = 1, NCOLS CGRID( COL, ROW, LAY, SPC ) = CGRID( COL, ROW, LAY, SPC ) & * 1.0E+6 END DO END DO END DO END DO C...convert to ppmV tracer gas STRT = TR_STRT FINI = TR_STRT + N_TR_SPC - 1 DO SPC = STRT, FINI DO LAY = 1, NLAYS DO ROW = 1, NROWS DO COL = 1, NCOLS CGRID( COL, ROW, LAY, SPC ) = CGRID( COL, ROW, LAY, SPC ) & * 1.0E+6 END DO END DO END DO END DO RETURN END ================================================ FILE: CCTM/src/cloud/acm_ae6_mp/convcld_acm.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! !::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE CONVCLD_ACM ( CGRID, JDATE, JTIME, TSTEP, & N_SPC_WDEP, WDEP_MAP, CONV_DEP, SUBTRANS ) C----------------------------------------------------------------------- C C FUNCTION: Convective cloud processor Models-3 science process: C MAIN ROUTINE calculates cloud characteristics, and uses them C to generate cumulative and net timestep deposition, cloud top, C cloud bottom, and pressure at the lifting level. C C ICLDTYPE = 1 => computes raining cloud physics, mixing, chemistry, C wet dep C ICLDTYPE = 2 => does the same for non-precip clouds utilizing saved C info from RNCLD in the case of co-existing clouds C C PRECONDITIONS REQUIRED: C Dates and times represented YYYYDDD:HHMMSS. C C IDEA: Aqueous chemistry operates on the half-hour for an internal C time step of one hour. C C REVISION HISTORY: C Adapted 3/93 by CJC from science module template C Version 3/3/93 with complete LCM aqueous chem by JNY. C Modified 6/3-7/93 by CJC & JNY to correct treatment of half layers C vs. full layers in loop 255: calculation of DTDP centered at C quarter-layers using PSTAR; corresponding revisions to TLCL, TSAT. C Uses 4th order R-K solver there. C Version 6/5/93 by CJC using relative rainout rates. C Version 7/6/93 by CJC using INTERP3() C Adapted from LCM aqueous chemistry, initial version, 9/93 C by JNY and CJC C Completion of EM cloud mixing, JNY 12/93 C Inclusion of EM aqueous chemistry JNY 12/93 C UPGRADE TO FULL RADM CLOUD MODULE EMULATION, JNY 4/94 C 8/16/94 by Dongming Hwang Configuration management template C Adapted 10/96 by S.Roselle for Models-3 C 1/97 s.roselle added McHenry`s well mixed assumption code C 8/97 S.Roselle revised cgrid units, pressure units, rainfall C to hourly amounts, built indices for wet dep species, C scavenged species, and aqueous species, built wrapper C around aqueous chemistry module C 10/97 S.Roselle removed McHenry`s well mixed assumption code C and put back the below cloud concentration scaling C 11/97 S.Roselle moved the wet deposition output to the calling C routine--CLDPROC C 01/98 S.Roselle moved indexing code to AQINTER, also C moved scavenging to SCAVWDEP C 03/98 S.Roselle read sub-hourly rainfall data C 12/98 David Wong at LM: C -- changed division of 8000, 2, 1000 to its corresponding C reciprocal C -- added INT in the expression STEP * 0.5 when calling SEC2TIME C 03/99 David Wong at LM: C -- replaced "/ FRAC * .001" by "/ ( FRAC * 1000.0 )" to minimize C lost of significant digits in calculation C Jeff - Dec 00 - move CGRID_MAP into f90 module C Jeff - Sep 01 - Dyn Alloc - Use HGRD_DEFN C 4/02 S.Roselle changed minimum horizontal resolution for subgrid C clouds from 12km to 8km. C 1/05 J.Young: dyn alloc - establish both horizontal & vertical C domain specifications in one module C 5/05 J.Pleim Replaced cloud mixing algorithm with ACM C 6/05 S.Roselle added new cloud diagnostic variables C 7/05 J.Young: clean up and mod for CMAQ-F C 8/10 J.Young: replace chem mechanism include files with namelists C and accomodate Shawn Roselle`s, Sergey Napelenok`s C and Steve Howard`s aerosol reengineering C 3/11 S.Roselle: replaced I/O API include files with UTILIO_DEFN C 5/11/11 D.Wong: incorporated twoway model implementation C 7/11 G. Sarwar: calculate zenith angle to determine daytime and nightime C needed for sulfur oxidation via metal catalysis C 9/11 S.Roselle: enable CMAQ subgrid cloud model only when met. driver C uses a convective cloud parameterization (removed minimum C horizontal grid resolution restriction) C 02Aug12 S.Roselle: instrumented to calculate and return C transmissivity for convective clouds C 04Apr14 B.Hutzell: Added routine call to capture cloud fractions, C water, and ice mixing ratios C 11Feb15 J.Young: Updated call to czangle.F which uses the ASX_DATA_MOD shared C data module (Implemented by J.Bash on 07 Nov 14) C 09/04/15 D.Wong: - Made variable declaration method consistent in the caller C and calling routines C - Used a variable rather than an array in calculation to C reduce memory footprint and to increase code efficiency C 28May15 J.Young: cleanup C 12Jun15 B.Hutzell: Moved call to CLEAR_ACM_CLOUD to after FIRSTIME block to C insure results from previous time step are removed C 12Jan16 D.Wong: Fixed a bug that causes different result when code run with C different domain decomposition C 4Apr16 J.Bash Calculate the Sundqvist et al. 1989 threshold humidities C for cloud formation based on Mocko and Cotton (1995) to be C More consistent with WRF C 7May 18 D. Schwede: Removed call to CZANGLE. COSZEN now calculated in ASX_DATA_MOD C Aug 2018 J. Pleim: convert to Z coords C Oct 2018 D. Wong: Declared array, F as allocatable and added subroutine ACMCLD C in the interface block C Feb 2019 D. Wong: Implemented centralized I/O approach, removed all MY_N C clauses C 01 AUG 19 D.Wong: Modified code to work with two-way model and C introduced convective scheme logical C 11 Nov 19 F. Sidi: Changed MSTEP to accomdate Centralized I/O changes C----------------------------------------------------------------------- USE GRID_CONF ! horizontal & vertical domain specifications USE CGRID_SPCS ! CGRID mechanism species USE UTILIO_DEFN USE AQ_DATA USE HG_AQCHEM_DATA ! mercury chemistry parameters and constants USE ASX_DATA_MOD, ONLY: GRID_DATA, MET_DATA USE PHOT_MOD, ONLY: RJ, RJ_RES, RJ_SUB, LH2O2_PHOTOLYSIS => LH2O2, & LHNO3_PHOTOLYSIS => LHNO3 USE CENTRALIZED_IO_MODULE USE RUNTIME_VARS, ONLY: CONVECTIVE_SCHEME IMPLICIT NONE C...........INCLUDES INCLUDE SUBST_CONST ! constants INCLUDE SUBST_FILES_ID ! file name parameters C...........Arguments REAL, POINTER :: CGRID( :,:,:,: ) INTEGER, INTENT( IN ) :: JDATE INTEGER, INTENT( IN ) :: JTIME INTEGER, INTENT( IN ) :: TSTEP( 3 ) INTEGER, INTENT( IN ) :: N_SPC_WDEP INTEGER, INTENT( IN ) :: WDEP_MAP( : ) REAL, INTENT( INOUT ) :: CONV_DEP( :,:,: ) REAL, INTENT( OUT ) :: SUBTRANS( :,:,: ) C...........Parameters C critical rel humidity for land (fraction) REAL, SAVE :: RCRITL C critical rel humidity for water (fraction) REAL, SAVE :: RCRITW C intermediate factor REAL :: XKM C factor convert 1/min to 1/sec REAL, PARAMETER :: MINPERSEC = 1.0 / 60.0 C param contlng sidewall entrainment function for raining clouds REAL, PARAMETER :: SIDEFAC = 0.5 C storm rainout efficiency REAL, PARAMETER :: STORME = 0.3 C emp sat vapor press constant from RADM REAL, PARAMETER :: C303 = 19.83 C emp sat vapor press constant from RADM REAL, PARAMETER :: C302 = 5417.4 C g/kg REAL, PARAMETER :: GPKG = 1.0E+03 C 1 hectare = 1.0e4 m**2 REAL, PARAMETER :: M2PHA = 1.0E+04 C subgrid scale temp perturb (deg K) REAL, PARAMETER :: PERT = 1.5 C wvp mix ratio perturb (dimensionless) REAL, PARAMETER :: PERQ = 1.5E-3 C rainfall threshold (mm/hr) REAL, PARAMETER :: RTHRESH = 0.1 C vapor press of water at 0 C (Pa) REAL, PARAMETER :: VP0PA = 611.2 C 1.0 / (vapor press of water @ 0 C) (1/Pa) REAL, PARAMETER :: VPINV = 1.0 / VP0PA C converg. crit. for entrainment solver REAL, PARAMETER :: TST = 0.01 C assumed cloud lifetime for convective clouds (sec) REAL, PARAMETER :: TCLIFE = 3600.0 C ratio of mol wt of water vapor to mol wt of air REAL, PARAMETER :: MVOMA = MWWAT / MWAIR C ratio of dry gas const to specific heat REAL, PARAMETER :: ROVCP = RDGAS / CPD C ratio of latent heat of vap to specific heat REAL, PARAMETER :: LVOCP = LV0 / CPD C dry adiabatic lapse rate (deg K/m) REAL, PARAMETER :: DALR = GRAV / CPD C Number of species in CGRID INTEGER, SAVE :: MXSPCS C parameter to control frequency of convective cloud processing C SYNCCLD=.TRUE. : every synchronization timestep C SYNCCLD=.FALSE. : every hour on the half hour LOGICAL, PARAMETER :: SYNCCLD = .TRUE. ! default to sync timestep INTEGER ICLDTYPE ! 1: raining, 2: either CNP or PFW C...........Local Variables C-------for ACM version - jp 2/05 REAL DPB REAL, ALLOCATABLE, SAVE :: DZH( : ) REAL, ALLOCATABLE, SAVE :: CCR ( :,: ) REAL, ALLOCATABLE, SAVE :: CONC( :,: ) REAL, ALLOCATABLE, SAVE :: CBELOW( : ) C------------------------------------------- LOGICAL, SAVE :: FIRSTIME = .TRUE. ! flag for first pass thru ! LOGICAL, SAVE :: CONVCLD = .TRUE. ! flag for modeling convective clds CHARACTER( 16 ) :: PNAME = 'CONVCLD_ACM' ! process name CHARACTER( 16 ) :: VARNM ! variable name for IOAPI to get CHARACTER( 16 ), SAVE :: RC_NAME ! RC name: old is RC and new is RCA INTEGER ATIME ! time diff from half-hour INTEGER CLTOP ! model LAY containing cloud top INTEGER COL ! column loop counter INTEGER ROW ! row loop counter INTEGER CTOP ! dummy variable for cloud top layer INTEGER FINI ! ending position INTEGER I599C ! entrainment solver iteration counter INTEGER LAY ! layer loop counter INTEGER MDATE ! process date INTEGER MTIME ! process time (half-hour) INTEGER, SAVE :: MSTEP ! met file time step (hhmmss) INTEGER, SAVE :: SDATE ! met file start date INTEGER SPC ! liquid species loop counter INTEGER STEP ! step loop counter INTEGER STRT ! starting position INTEGER, SAVE :: STIME ! met file start time INTEGER VAR ! variable loop counter INTEGER CLBASE ! cld base layer INTEGER CLTOPUSTBL ! unstable cld top layer INTEGER ISOUND ! flag for sounding stability INTEGER SRCLAY ! cloud source level vert index REAL AIRM ! total air mass (mol/m2) in cloudy air REAL AIRMB0 ! mol/m2 air below cloud REAL AIRMBI ! inverse mol/m2 air below cloud REAL ALFA0 ! aitken mode number scavenging coef REAL ALFA2 ! aitken mode sfc area scavenging coef REAL ALFA3 ! aitken mode mass scavenging coef REAL ARPRES ! ave cloud pres in atm REAL CONDIS ! REAL CTHK ! cloud thickness (m) REAL CTHK1 ! aq chem calc cloud thickness REAL DAMDP ! dry adiabatic minus dew point lapse rate REAL DP ! pressure increment along moist adiabat REAL DPLR ! dew point lapse rate REAL DQI ! change in ice mix ratio due to melting caused by entrainment REAL DQL ! change in liq wat mix ratio due to evap caused by entrainment REAL DTCLD ! cloud integration timestep (s) REAL DTDP ! moist adiabatic lapse rate REAL DZLCL ! height increment to LCL above source level REAL ZLCL ! height of LCL above ground REAL EMAX ! water vapor pressure at source level REAL EQTH ! parcel equivalent potential temperature REAL EQTHM ! parcel equivalent potential temp REAL FA ! entrainment functional value at TEMPA REAL FB ! entrainment functional value at TEMPB REAL FRAC ! cloud fractional coverage REAL FTST ! functional product in Walcek bisection solver REAL HTST ! temp diff in Walcek bisection solver REAL JH2O2_BAR ! mean H2O2 photolysis rate in subgrid cloud, 1/min REAL JHNO3_BAR ! mean HNO3 photolysis rate in subgrid cloud, 1/min REAL, SAVE :: METSTEP ! timestep on the met file REAL P1 ! intermediate pressure used in calculating WL REAL P2 ! intermediate pressure used in calculating WL REAL P3 ! intermediate pressure used in calculating WL REAL PBAR ! mean pressure in vertical increments up from LCL along moist adiabat REAL PBARC ! mean cloud pressure (Pa) REAL PMAX ! parcel pressure REAL PP ! scratch pressure variable REAL PRATE ! total rainfall (mm/hr) REAL PRATE1 ! storm rainfall rate (mm/hr) REAL QENT ! wat vap mix ratio due to cld sidewall entrainmt REAL QP ! perturbed water vap mix ratio of parcel REAL QXS ! int. excess wat ov grid cell needed for rainout REAL REMOVAC ! variable storing H+ deposition REAL RHOAIR ! air density in kg/m3 REAL RLH ! relative humidity REAL RLHSRC ! relative humidity at cld src level REAL RTCH ! chemical gas const times temp REAL T1 ! perturbed temp to calc neutral buoyancy also used as max temp in cell comparing cloud with environment REAL TBAR ! mean temp in vertical increments up from LCL along moist adiabat REAL TBARC ! mean cloud temp (K) REAL TBASE ! iterative temp along moist adiabat REAL TDMAX ! dew point at source level REAL TEMPA ! lower limit on temp for entrainment solver REAL TEMPB ! upper limit on temp for entrainment solver REAL TEMPC ! scratch temp solved for cloudy air parcel REAL TENT ! temp accounting for cld sidewall entrainment REAL THMAX ! parcel potential temperature REAL TI ! init temp of cloud air before evap of water REAL TLCL ! temp at LCL REAL TMAX ! perturbed temp of parcel REAL TP ! perturbed temp of parcel REAL TTOP ! scr vbl used in application of Eq. 7, W&T REAL TWC ! tot wat cont in cloud (kg H2O/m3 air) REAL WCBAR ! liq water content of cloud (kg/m3) REAL WL ! Warner profile (an earlier version appears appears in Walcek and Taylor (JAS, 1986) REAL WTBAR ! total wat cont (kg/m2) int. thru cloud depth REAL X1 ! intermediate vbles in lapse rate calculation X1 also reused as scratch vble in mixing REAL QDIF ! scratch vbl used in entrainment solver REAL CLOD REAL LWP REAL STRNS ! intermediate to set subgrid cld transmissivity REAL, ALLOCATABLE, SAVE :: AECONCMIN( : ) ! array of minimum concentrations REAL, ALLOCATABLE, SAVE :: BMOL ( : ) ! mol/m2 species below cloud REAL, ALLOCATABLE, SAVE :: CBASE0 ( : ) ! initial ave trace gas mix rat below cld REAL, ALLOCATABLE, SAVE :: CBASEF ( : ) ! final ave trac gas mix rat blw cld (mol/mol) REAL, ALLOCATABLE, SAVE :: CEND ( : ) ! ending equiv gas phase conc (mol/mol) REAL, ALLOCATABLE, SAVE :: POLC ( : ) ! ave vert conc incloud mol sp/m2 and mol sp/ mol air REAL, ALLOCATABLE, SAVE :: REMOV ( : ) ! mol/m2 or mm*mol/lit scavenged REAL :: DENSL( NLAYS ) ! air density (kg/m3) REAL, ALLOCATABLE, SAVE :: F ( : ) ! cloud entrainment fraction to be solved for REAL :: FSIDE( NLAYS ) ! sidewall entrainment vertical profile REAL :: LWC ( NLAYS ) ! liq wat cont of cloud in kg H2O/m3 air REAL, ALLOCATABLE, SAVE :: QICE ( : ) ! ice mixing ratio in cloud REAL, ALLOCATABLE, SAVE :: QLQD ( : ) ! actual liq. wat. mix ratio in cloud REAL :: QVC ( NLAYS ) ! saturation wat vap mix ratio at T1 REAL :: QWAT ( NLAYS ) ! liq wat mix rat, taken as total condensed water (ice + liq) profile (Eq.4, W&T) REAL :: RHOM2( NLAYS ) ! mol/m2 air REAL :: TCLD ( NLAYS ) ! temp of cloudy air parcel REAL FRACMAX ! max frac cov for NP cld REAL PLCL ! pressure at LCL REAL QMAX ! pertbd w.. mix rat of parcel REAL :: RAIN( NCOLS,NROWS ) ! this timestep rainfall (mm/hr) REAL BCLDWT ! below cloud weighting function REAL, ALLOCATABLE, SAVE :: CONCMINL( :,: ) ! minimum concentrations for each species and layer REAL INCLOUD ! final conc in cloud after mix and chem [mol/mol] REAL OUTCLOUD ! final conc outside " " " " " REAL, ALLOCATABLE, SAVE :: PCLD ( :,: ) ! mol sp/mol air in cloud REAL :: RC ( NCOLS,NROWS ) ! hourly convective rainfall (cm) REAL :: PBL ( NCOLS,NROWS ) ! PBL height (m) REAL :: DZZ ( NCOLS,NROWS,NLAYS ) ! computed gridded vble REAL :: DZZL ( NLAYS ) ! grid cell delta Z REAL :: PRES ( NCOLS,NROWS,NLAYS ) ! file gridded vble REAL :: PRESL( NLAYS ) ! grid cell pressure REAL :: JH2O2( NLAYS ) ! H2O2 photolysis rate (1/min) REAL :: JHNO3( NLAYS ) ! HNO3 photolysis rate (1/min) REAL :: QAD ( NLAYS ) ! moist adiab. sat. mix ratio REAL :: QV ( NCOLS,NROWS,NLAYS ) ! input gridded vble REAL :: QVL ( NLAYS ) ! grid cell sp. hum. REAL :: TA ( NCOLS,NROWS,NLAYS ) ! input gridded vble REAL :: TAL ( NLAYS ) ! grid cell temp REAL :: TSAT ( NLAYS ) ! parcel temp along moist adiabat @ half levels REAL :: ZH ( NCOLS,NROWS,NLAYS ) ! mid-layer height (m) REAL :: ZF ( NCOLS,NROWS,NLAYS ) ! level/layer-face height (m) INTEGER ALLOCSTAT C Gridded meteorology data: Golam Sarwar, July 1, 2011 C Latitude and longitude for zenith angle calculation: REAL COSZ ! local cosine of zenith angle LOGICAL DARK ! DARK = TRUE is night, DARK = FALSE is day CHARACTER( 120 ) :: XMSG = ' ' ! Exit status message C...........Statement Functions REAL ESAT ! sat vap pres (Pa) as fn of T (deg K) REAL QSAT ! sat water vapor mixing ratio REAL T ! temperature dummy arg REAL E ! sat vapor pressure dummy arg REAL P ! pressure dummy arg INTERFACE SUBROUTINE ACMCLD ( NSP, NLAYS, F, C, DZH, CBELOW, CLBASE, CLTOP, & FRAC, TCLIFE, DTCLD ) INTEGER, INTENT( IN ) :: NSP INTEGER, INTENT( IN ) :: NLAYS REAL, INTENT( IN ) :: F( : ) REAL, INTENT( INOUT ) :: C( :, : ) REAL, INTENT( IN ) :: DZH( : ) REAL, INTENT( INOUT ) :: CBELOW( : ) INTEGER, INTENT( IN ) :: CLBASE INTEGER, INTENT( IN ) :: CLTOP REAL, INTENT( IN ) :: FRAC REAL, INTENT( IN ) :: TCLIFE REAL, INTENT( IN ) :: DTCLD END SUBROUTINE ACMCLD SUBROUTINE SCAVWDEP ( JDATE, JTIME, WTBAR, WCBAR, TBARC, PBARC, & CTHK1, AIRM, PRATE1, TAUCLD, POLC, CEND, & REMOV, REMOVAC, ALFA0, ALFA2, ALFA3 ) INTEGER, INTENT( IN ) :: JDATE, JTIME REAL, INTENT( IN ) :: WTBAR, WCBAR, TBARC, PBARC, & CTHK1, AIRM, PRATE1, TAUCLD REAL, INTENT( IN ) :: POLC ( : ) REAL, INTENT( OUT ) :: CEND( : ), REMOV( : ) REAL, INTENT( OUT ) :: REMOVAC REAL, INTENT( OUT ) :: ALFA0, ALFA2, ALFA3 END SUBROUTINE SCAVWDEP SUBROUTINE AQ_MAP( JDATE, JTIME, WTBAR, WCBAR, TBARC, PBARC, & CTHK1, AIRM, PRATE1, TAUCLD, POLC, CEND, & REMOV, REMOVAC, ALFA0, ALFA2, ALFA3, DARK ) INTEGER, INTENT( IN ) :: JDATE, JTIME REAL, INTENT( IN ) :: WTBAR, WCBAR, TBARC, PBARC, & CTHK1, AIRM, PRATE1, TAUCLD REAL, INTENT( IN ) :: POLC ( : ) REAL, INTENT( INOUT ) :: CEND( : ), REMOV( : ) REAL, INTENT( INOUT ) :: REMOVAC REAL, INTENT( IN ) :: ALFA0, ALFA2, ALFA3 LOGICAL, INTENT( IN ) :: DARK END SUBROUTINE AQ_MAP END INTERFACE ESAT( T ) = VP0PA * EXP( C303 - ( C302 / T ) ) QSAT( E, P ) = MVOMA * ( E / ( P - E ) ) C----------------------------------------------------------------------- C begin body of subroutine CONVCLD_ACM C...INITIALIZATION for the CONVCLD_ACM module: C... event-statistics variables. IF ( FIRSTIME ) THEN FIRSTIME = .FALSE. IF ( N_AE_SPC .GT. 0 ) THEN ALLOCATE ( AECONCMIN( N_AE_SPC ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating AECONCMIN' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF CALL SET_AECONCMIN ( AECONCMIN ) END IF C cccccccccccccccccccc enable backward compatiblity ccccccccccccccccccccc IF (RCA_AVAIL) THEN RC_NAME = 'RCA' ELSE RC_NAME = 'RC' END IF C...store met file time, date, and step information and compute C... the met timestep in hours SDATE = cio_model_sdate STIME = cio_model_stime MSTEP = file_tstep(f_met) METSTEP = FLOAT( TIME2SEC( MSTEP ) ) / 3600.0 C...check convective precipitation on met files to determine if WRF used C... a convective parameterization C...in coordination with MCIPv4.0, negative values will be loaded into the RC C... field if a convective parameterization was not used in the WRF simulation call interpolate_var (RC_NAME, sdate, stime, RC) IF ( .NOT. CONVECTIVE_SCHEME ) RETURN C...allocate saved arrays ALLOCATE ( F( NLAYS ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating F' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF ALLOCATE ( DZH( NLAYS ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating DZH' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF MXSPCS = NSPCSD ALLOCATE ( CCR ( MXSPCS,NLAYS ), & CONC ( MXSPCS,NLAYS ), & CBELOW( MXSPCS ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating CCR, CONC or CBELOW' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF ALLOCATE ( BMOL ( MXSPCS ), & CBASE0 ( MXSPCS ), & CBASEF ( MXSPCS ), & CEND ( MXSPCS ), & POLC ( MXSPCS ), & REMOV ( MXSPCS ), & QLQD ( NLAYS ), & QICE ( NLAYS ), & STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating BMOL, CBASE0, CBASEF, CEND, POLC, REMOV,' & // ' QLQD or QICE' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF ALLOCATE ( CONCMINL( MXSPCS,NLAYS ), & PCLD ( MXSPCS,NLAYS ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating CONCMINL or PCLD' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF C...Calculate the Sundqvist et al. 1989 threshold humidities for cloud formation based on C...Mocko and Cotton (1995) XKM = REAL( XCELL_GD / 1000 ) RCRITW = 0.879 + SQRT( 1.0 / ( 100.0 + XKM * XKM ) ) RCRITL = 0.839 + SQRT( 1.0 / ( 50.0 + 0.5 * XKM ** 3 ) ) END IF ! Firstime IF ( .NOT. CONVECTIVE_SCHEME) RETURN C...check option for processing clouds on the synchronization timestep IF ( SYNCCLD ) THEN MDATE = JDATE MTIME = JTIME C...set the cloud timestep (=adv timestep) STEP = TIME2SEC( TSTEP( 2 ) ) ! synchronization timestep DTCLD = REAL( STEP ) C...set time to the midpoint of this timestep for data interpolation CALL NEXTIME ( MDATE, MTIME, SEC2TIME( STEP / 2 ) ) C...otherwise, revert back to processing convective cloud once per hour C... on the half hour ELSE C...Check to see if this time step contains the half-hour C... if it does not, then return MDATE = JDATE MTIME = 10000 * ( JTIME / 10000 ) ! on the current hour STEP = TIME2SEC( TSTEP( 2 ) ) ! synchronization timestep DTCLD = TCLIFE C... set mdate:mtime to one-half step before the half-hour CALL NEXTIME ( MDATE, MTIME, SEC2TIME( 1800 - ( STEP / 2 ) ) ) ATIME = SECSDIFF( MDATE, MTIME, JDATE, JTIME ) IF ( ( ATIME .LT. 0 ) .OR. ( ATIME .GE. STEP ) ) RETURN C...the current timestep overlaps the half hour point C... set the time to the half hour for data interpolation MTIME = 10000 * ( JTIME / 10000 ) + 3000 END IF C...clear arrays that capture ACM cloud results C...ACTUAL SCIENCE PROCESS (loop on internal process time steps): C... Interpolate time dependent layered input variables C... (reading those variables for which it is necessary) C... Get ambient temperature (K) call interpolate_var ('TA', mdate, mtime, TA) C...Get specific humidity (kg H2O / kg air) call interpolate_var ('QV', mdate, mtime, QV) C...Get level heights / layer faces (m) call interpolate_var ('ZF', mdate, mtime, ZF) C...Get mid-layer heights (m) call interpolate_var ('ZH', mdate, mtime, ZH) C...Get pressure (Pa) call interpolate_var ('PRES', mdate, mtime, PRES) C...compute layer thicknesses (m) DO ROW = 1, NROWS DO COL = 1, NCOLS DZZ( COL,ROW, 1 ) = ZF( COL,ROW, 1 ) DO LAY = 2, NLAYS DZZ( COL,ROW,LAY ) = ZF( COL,ROW,LAY ) - ZF( COL,ROW,LAY - 1 ) END DO END DO END DO C...Get PBL height (m) call interpolate_var ('PBL', mdate, mtime, PBL) C...advance the MDATE and MTIME to the next time on the met file C... to get ready to read the precipitation amounts. C... Precipitation data WILL NOT BE INTERPOLATED! Precipitation data C... on the input file are amounts within the metfiles timestep. IF ( .NOT. CURRSTEP( JDATE, JTIME, SDATE, STIME, MSTEP, & MDATE, MTIME ) ) THEN XMSG = 'Cannot get step-starting date and time' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT3 ) END IF CALL NEXTIME ( MDATE, MTIME, MSTEP ) ! set mdate:mtime to the hour C...Get convective precipitation amount (cm) call interpolate_var (RC_NAME, mdate, mtime, RC) C...Convert the rainfall rate into mm/hr, then set a flag noting the C... presence of raining clouds if the rainfall is above the specified C... threshold DO ROW = 1, NROWS DO COL = 1, NCOLS RAIN( COL,ROW ) = 10.0 * RC( COL,ROW ) / METSTEP END DO END DO IF ( MINVAL( RAIN ) .LT. 0.0 ) THEN XMSG = 'NEGATIVE RAIN...PROBABLY BAD MET DATA... in' // MET_CRO_2D CALL M3EXIT ( PNAME, MDATE, MTIME, XMSG, XSTAT1 ) END IF WHERE ( RAIN .GE. RTHRESH ) CONV_DEP( :,:,N_SPC_WDEP + 6 ) = 1.0 C...Loop through all grid cells DO 311 ROW = 1, NROWS DO 301 COL = 1, NCOLS QLQD = 0.0 QICE = 0.0 CLBASE = NLAYS CLTOPUSTBL = NLAYS QMAX = 0.0 PLCL = 0.0 SRCLAY = NLAYS DO LAY = 1, NLAYS QAD( LAY ) = 0.0 PRESL( LAY ) = PRES( COL,ROW,LAY ) TAL( LAY ) = TA( COL,ROW,LAY ) QVL( LAY ) = QV( COL,ROW,LAY ) DZZL( LAY ) = DZZ( COL,ROW,LAY ) DENSL( LAY ) = PRESL( LAY ) & / ( RDGAS * TAL( LAY ) * ( 1.0 + RWVAP * QVL( LAY ) / RDGAS ) ) JH2O2( LAY ) = RJ_SUB( COL,ROW,LAY,LH2O2_PHOTOLYSIS ) JHNO3( LAY ) = RJ_SUB( COL,ROW,LAY,LHNO3_PHOTOLYSIS ) END DO C...load aerosol minimum concentrations into the "CONCMINL" array C... initialize all species to CMIN ! CONCMINL = CMIN CONCMINL = 1.0E-25 C... set minimum for aerosol species SPC = 0 STRT = AE_STRT FINI = AE_STRT - 1 + N_AE_SPC DO VAR = STRT, FINI SPC = SPC + 1 DO LAY = 1, NLAYS CONCMINL( VAR,LAY ) = AECONCMIN( SPC ) / DENSL( LAY ) END DO END DO DO LAY = 1, NLAYS DO SPC = 1, NSPCSD CONC( SPC,LAY ) = MAX( CGRID( COL,ROW,LAY,SPC ), & CONCMINL( SPC,LAY ) ) END DO END DO C...Test for raining clouds C...If the rainfall amount is below the specified threshold, then set C... values for some of the parameters which will be used when the C... routine is called again for non-precipitating clouds...then C... skip to the next grid cell. IF ( RAIN( COL,ROW ) .GE. RTHRESH ) THEN ICLDTYPE = 1 PRATE = RAIN( COL,ROW ) FRACMAX = 0.0 ELSE ICLDTYPE = 2 FRACMAX = 0.5 END IF C...Determine cloud source level by determining equivalent C... potential temperature profile given perturbed temperature C... and water vapor to account for local hot spots which C... initiate convection. Layer with maximum equivalent C... potential temperature is cloud source layer. SRCLAY = 1 TMAX = TAL( 1 ) + PERT QMAX = QVL( 1 ) + PERQ PMAX = PRESL( 1 ) THMAX = TMAX * ( 1.0E+05 / PMAX ) ** ROVCP EQTHM = THMAX * EXP( LVOCP * QMAX / TMAX ) DO LAY = 2, NLAYS PP = PRESL( LAY ) IF ( ZH( COL,ROW,LAY ) .GT. 3000.0 ) EXIT ! 650 mb TP = TAL( LAY ) + PERT QP = QVL( LAY ) + PERQ THMAX = TP * ( 1.0E+05 / PP ) ** ROVCP EQTH = THMAX * EXP( LVOCP * QP / TP ) IF ( EQTH .GT. EQTHM ) THEN TMAX = TP SRCLAY = LAY QMAX = QP PMAX = PP EQTHM = EQTH END IF END DO C...Equivalent potential temp max is now known between LAY 1 C... and 650 mb. We now proceed to compute lifting condensation C... level. First, compute vapor pressure at the source level. C... Find dewpoint using empirical relationship, avoiding C... supersaturation. Then compute dew point lapse rate - C... see Walcek and Taylor, 1986. EMAX = QMAX * PMAX / ( MVOMA + QMAX ) TDMAX = C302 / ( C303 - LOG( EMAX * VPINV ) ) TDMAX = MIN( TDMAX, TMAX ) DPLR = ( GRAV * TDMAX * TDMAX ) / ( MVOMA * LV0 * TMAX ) c...Compute difference between dry adiabatic and dew point lapse C... rate, height increment above source level to reach LCL, C... then calculate value of pressure at LCL. Save result C... in CONV_DEP( *,*,N_SPC_WDEP+2 ). DAMDP = DALR - DPLR IF ( DAMDP .LE. 0.0 ) THEN DZLCL = 0.0 PLCL = PMAX C...walcek formula TLCL = TMAX C...walcek formula ELSE DZLCL = ( TMAX - TDMAX ) / DAMDP C...walcek formula TLCL = TMAX - DALR * DZLCL C...walcek formula TBAR = TMAX - 0.5 * DALR * DZLCL ! midpt of TMAX, TLCL TBAR = MAX( TBAR , 150.0 ) PLCL = PMAX * EXP( -( GRAV / RDGAS ) * DZLCL / TBAR ) ZLCL = DZLCL + ZH( COL,ROW, SRCLAY ) END IF CONV_DEP( COL,ROW, N_SPC_WDEP + 2 ) = PLCL C...Determine cloud base at LAY in which LCL resides, C... but not below layer 2. C...plcl above middle of top layer IF ( PRESL( NLAYS ) .GE. PLCL ) THEN PLCL = PRESL( NLAYS ) CLBASE = NLAYS CLTOP = CLBASE WRITE( LOGDEV,* ) ' WARNING: PLCL above top: Continuing' C...search loop to find CLBASE ELSE DO LAY = 2, NLAYS IF ( PRESL( LAY ) .LE. PLCL ) THEN CLBASE = LAY GO TO 245 END IF END DO CLBASE = NLAYS ! if you get here base never found 245 CONTINUE END IF ! if plcl < ptop or , or ... C...CLBASE is LAY of LCL. Now, determine cloud top by following C... moist adiabat up from CLBASE. Assume a stable sounding C... (ISOUND=0) at first. Moist adiabat solver calculates C... saturation temperatures TF at the full levels and TSAT( COL,ROW,LAY ) C... at the half-levels, using a 2nd order Runge method employing C... temperatures and pressures at the quarter-levels. ISOUND = 0 DO 255 LAY = CLBASE, NLAYS C...walcek formulas DP = PRESL( LAY - 1 ) - PRESL( LAY ) PBAR = PRESL( LAY - 1 ) - DP * 0.5 IF ( LAY .EQ. CLBASE ) THEN DP = PLCL - PRESL( LAY ) PBAR = PLCL - DP * 0.5 TBASE = TLCL END IF TBAR = MAX( TBASE - 0.00065 * DP, 150.0 ) X1 = LV0 * QSAT( ESAT( TBAR ), PBAR ) / ( RDGAS * TBAR ) ! Walcek's DTDP = ( ( RDGAS * TBAR ) / ( PBAR * CPD ) ) ! original & * ( ( 1.0 + X1 ) ! formulas & / ( 1.0 + ( 0.622 * LVOCP / TBAR ) * X1 ) ) TSAT( LAY ) = MAX( TBASE - DP * DTDP, 150.0 ) QAD ( LAY ) = QSAT( ESAT( TSAT( LAY ) ), PRESL( LAY ) ) TBASE = TSAT( LAY ) C...end Walcek formulas C...QAD is the moist adiabatic saturation mixing ratio, needed C... for the entrainment solver C... Now make choice on stability of sounding, comparing parcel C... temperature TSAT with environmental temperature TA. C... ISOUND is index for sounding stability. If ISOUND=0, C... moist adiabat never warmer than environment (stable). C... ISOUND=1, moist adiabat becomes warmer than environment C... (unstable). IF ( ISOUND .EQ. 0 ) THEN IF ( TSAT( LAY ) .GT. TAL( LAY ) ) ISOUND = 1 ELSE ! cloud top determined by neutral bouyancy T1 = TSAT( LAY ) ! - 0.5 * PERT IF ( T1 .LT. TAL( LAY ) ) THEN CLTOP = LAY - 1 GO TO 256 END IF END IF 255 CONTINUE ! end loop following moist adiabat CLTOP = NLAYS - 1 ! if you get here: cloud stable or no top 256 CONTINUE C...At this point, if ISOUND has not been set to 1, we have a C... "stable" cloud. In this case, we find cloud top by relative C... humidity criterion, or, not let cloud top go above 600mb. IF ( ISOUND .EQ. 0 ) THEN IF ( ICLDTYPE .NE. 1 ) GO TO 299 DO 265 LAY = CLBASE + 1, NLAYS IF ( PRESL( LAY ) .LE. 60000.0 ) THEN CLTOP = LAY - 1 GO TO 267 ! loop exit END IF RLH = QVL( LAY ) / QSAT( ESAT( TAL( LAY ) ), PRESL( LAY ) ) IF ( RLH .LT. 0.65 ) THEN CLTOP = LAY - 1 GO TO 267 ! loop exit END IF 265 CONTINUE CLTOP = NLAYS - 1 ! if you get here: top never found ELSE CLTOPUSTBL = CLTOP ! store unstable cloud top END IF 267 CONTINUE ! loop exit target CONV_DEP( COL,ROW, N_SPC_WDEP + 3 ) = FLOAT( CLBASE ) IF ( ICLDTYPE .EQ. 1 ) THEN ! store raining cloud top and proceed CONV_DEP( COL,ROW, N_SPC_WDEP + 4 ) = FLOAT( CLTOP ) ELSE ! get cloud top for either CNP or PFW IF ( ZLCL .GT. PBL( COL,ROW ) ) GO TO 299 C...compute relative humidity at the cloud source level RLHSRC = MIN( 1.0, QVL( SRCLAY ) & / QSAT( ESAT( TAL( SRCLAY ) ), PRESL( SRCLAY ) ) ) C...If all tests pass, then a CNP or PFW cloud exists C... Proceed to find CLTOP for CNP or PFW; don`t allow C... cloud top to exceed 500mb, or, when RH falls below C... 65%, cloud top found C...Distiguish between CNP and PFW by whether rain is falling C... in the cell; if PFW, limit depth and find new CLTOP, C... else leave CLTOP alone IF ( CLTOP .EQ. CLBASE ) THEN GO TO 322 ELSE ! confine PFW to 1500 meters CTOP = CLTOP DO LAY = CTOP, CLBASE, -1 IF ( ZH( COL,ROW,LAY ) - ZH( COL,ROW,CLBASE ) .LE. 3000.0 ) THEN CLTOP = LAY GO TO 322 ! exit loop END IF END DO END IF 322 CONTINUE ! loop exit for PFW cloud C...If unstable CNP or PFW, limit CLTOP to CLTOPUSTBL so that C... QAD profile is known through cloud depth for entrainment C... solver IF ( ISOUND .EQ. 1 ) CLTOP = MIN( CLTOP, CLTOPUSTBL ) C...Now compute fractional coverage for either CNP or PFW: C...Now based on Sunqdvist et al. 1989 DOI: 10.1175/1520-0493(1989)117<1641:CACPSW>2.0.CO;2 FRAC = 0.0 IF ( NINT( GRID_DATA%LWMASK( COL,ROW ) ) .EQ. 1 ) THEN ! land IF ( RLHSRC .GE. RCRITL ) & FRAC = 1.0 - SQRT( ( 1.0 - RLHSRC ) / ( 1.0 - RCRITL ) ) ELSE ! water IF ( RLHSRC .GE. RCRITW ) & FRAC = 1.0 - SQRT( ( 1.0 - RLHSRC ) / ( 1.0 - RCRITW ) ) END IF FRAC = MAX( 0.0, MIN( FRAC, 0.95 ) ) IF ( FRAC .LT. 0.01 ) GO TO 299 CONV_DEP( COL,ROW, N_SPC_WDEP + 5 ) = FLOAT( CLTOP ) ! store NP cloud top CONV_DEP( COL,ROW, N_SPC_WDEP + 8 ) = FRAC END IF ! end of existence, depth and frac cov calc for ! either PFW or CNP clouds C...Now cloud existence is established, initialize various C... variables needed for rest of computations C...First, get mol air/m2 at each layer, initialize FSIDE DO LAY = 1, NLAYS RHOM2( LAY ) = DENSL( LAY ) * DZZL( LAY ) * 1.0E3 / MWAIR FSIDE( LAY ) = 0.0 END DO DO SPC = 1, NSPCSD REMOV( SPC ) = 0.0 ! mol/m2 or mm*mol/lit scavenged CEND ( SPC ) = 0.0 ! ending equiv gas phase conc (mol/mol) BMOL ( SPC ) = 0.0 ! mol/m2 species below cloud POLC ( SPC ) = 0.0 ! mol/m2 species in cloud DO LAY = 1, NLAYS PCLD( SPC,LAY ) = 0.0 ! mol sp/mol air in cloud END DO END DO C...compute no. of moles air below cloud base and inverse AIRMB0 = 0.0 DO LAY = 1, CLBASE - 1 AIRMB0 = AIRMB0 + RHOM2( LAY ) END DO C...take the inverse AIRMBI = 1.0 / AIRMB0 C...below cloud base DO LAY = 1, CLBASE - 1 C...determine no. of mol/m2 of trace gas DO SPC = 1, NSPCSD BMOL( SPC ) = BMOL( SPC ) + CONC( SPC,LAY ) * RHOM2( LAY ) END DO END DO C...determine average trace gas mixing ratio below cloud level DO SPC = 1, NSPCSD CBASE0( SPC ) = BMOL( SPC ) * AIRMBI CBASEF( SPC ) = CBASE0( SPC ) END DO C...Initialize variables needed for entrainment and in-cloud properties solver QXS = 0.0 ! integrated excess water over grid cell nec. for rnout AIRM = 0.0 ! total air mass (mol/m2) in cloudy layers PBARC = 0.0 ! in-cloud average pressure CTHK = 0.0 ! cloud thickness (m) WCBAR = 0.0 ! condensed wat cont (kg/m2) integ. thru cloud depth WTBAR = 0.0 ! total wat cont (kg/m2) integrated thru cloud depth TBARC = 0.0 ! cloud mean temp (K) JH2O2_BAR = 0.0 ! cloud H2O2 photolysis, 1/min JHNO3_BAR = 0.0 ! cloud HNO3 photolysis, 1/min C...Determine condensed water content and entrainment at each cloud level C...Determine FSIDE profile for raining clouds; side entrainment C... only for PFW and CNP clouds IF ( ICLDTYPE .EQ. 1 ) THEN ! raining cloud IF ( CLBASE .EQ. CLTOP ) THEN FSIDE( CLBASE ) = 1.0 ELSE DO LAY = CLBASE, CLTOP FSIDE( LAY ) = 1.0 END DO END IF ELSE ! CNP or PFW DO LAY = CLBASE, CLTOP FSIDE( LAY ) = 1.0 END DO END IF C...Use Warner profile to close system of conservation and C... thermodynamic equations solved iteratively, using Secant solver DO LAY = CLBASE, CLTOP WL = 0.7 * EXP( ( PRESL( LAY ) - PLCL ) * 0.000125 ) + 0.2 IF ( LAY .EQ. CLBASE ) THEN P1 = 0.5 * ( PRESL( LAY ) + PRESL( LAY - 1 ) ) IF ( PLCL .LT. P1 ) THEN P2 = 0.5 * ( PRESL( LAY + 1 ) + PRESL( LAY ) ) P3 = ( P2 + PLCL ) * 0.5 WL = 0.7 * EXP( ( P3 - PLCL ) * 0.000125 ) + 0.2 END IF END IF c...original Walcek bisection solver QWAT( LAY ) = WL * ( QMAX - QAD( LAY ) ) QWAT( LAY ) = MAX( QWAT( LAY ), 1.0E-20 ) TEMPA = TSAT( LAY ) - 20.0 TEMPB = TSAT( LAY ) + 10.0 QENT = FSIDE( LAY ) * QVL( LAY ) & + ( 1.0 - FSIDE( LAY ) ) * QVL( CLTOP ) QDIF = QENT - QMAX IF ( QDIF .EQ. 0.0 ) QDIF = 1.0E-10 F( LAY ) = ( QSAT( ESAT( TEMPA ), PRESL( LAY ) ) & + QWAT( LAY ) - QMAX ) / QDIF F( LAY ) = MIN( F( LAY ), 1.0 ) F( LAY ) = MAX( F( LAY ), 0.0 ) TTOP = TAL( CLTOP ) * ( PRESL( LAY ) / PRESL( CLTOP ) ) ** ROVCP TENT = TTOP * ( 1.0 - FSIDE( LAY ) ) + TAL( LAY ) * FSIDE( LAY ) TI = TSAT( LAY ) * ( 1.0 - F( LAY ) ) + TENT * F( LAY ) DQL = ( QMAX - QAD( LAY ) ) * ( 1.0 - F( LAY ) - WL ) DQI = 0.0 IF ( TEMPA .LT. 273.15 ) THEN DQI = -QWAT( LAY ) * ( TEMPA - 273.15 ) / 18.0 IF ( TEMPA .LE. 255.15 ) DQI = QWAT( LAY ) END IF FA = CPD * ( TEMPA - TI ) + LV0 * DQL + LF0 * DQI C...test for convergence, then cut the interval in half I599C = 0 599 CONTINUE HTST = TEMPB - TEMPA IF ( HTST .LT. TST ) GO TO 595 ! convergence I599C = I599C + 1 IF ( I599C .GT. 1000 ) THEN WRITE( XMSG, 91010 ) & 'NO CONVERGENCE IN ENTRAINMENT SOLVER AT COL= ', & COL, ' ROW= ', ROW, ' ICLDTYPE= ', ICLDTYPE CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT2 ) END IF TEMPC = ( TEMPA + TEMPB ) * 0.5 QENT = FSIDE( LAY ) * QVL( LAY ) & + ( 1.0 - FSIDE( LAY ) ) * QVL( CLTOP ) QDIF = QENT - QMAX IF ( QDIF .EQ. 0.0 ) QDIF = 1.0E-10 F( LAY ) = ( QSAT( ESAT( TEMPC ), PRESL( LAY ) ) & + QWAT( LAY ) - QMAX ) / QDIF F( LAY ) = MIN( F( LAY ), 0.99 ) F( LAY ) = MAX( F( LAY ), 0.01 ) TTOP = TAL( CLTOP ) * ( PRESL( LAY ) / PRESL( CLTOP ) ) ** ROVCP TENT = TTOP * ( 1.0 - FSIDE( LAY ) ) + TAL( LAY ) * FSIDE( LAY ) TI = TSAT( LAY ) * ( 1.0 - F( LAY ) ) + TENT * F( LAY ) DQL = ( QMAX - QAD( LAY ) ) * ( 1.0 - F( LAY ) - WL ) DQI = 0.0 IF ( TEMPC .LT. 273.15 ) THEN DQI = -QWAT( LAY ) * ( TEMPC - 273.15 ) / 18.0 IF ( TEMPC .LE. 255.15 ) DQI = QWAT( LAY ) END IF FB = CPD * ( TEMPC - TI ) + LV0 * DQL + LF0 * DQI FTST = FA * FB C...if fa*fb < 0 then zero lies between ta & tc C...if fa*fb > 0 then zero lies between tc & tb IF ( FTST .LE. 0.0 ) THEN TEMPB = TEMPC ELSE TEMPA = TEMPC END IF GO TO 599 595 CONTINUE ! exit from iterator, convergence achieved C...we have obtained parcel temp TEMPC at layer LAY C...and entrainment fraction F(LAY) C...end of Walcek bisection solver TCLD( LAY ) = MAX( TEMPC, 150.0 ) C...ice load in cloud is a function of temperature below freezing IF ( TCLD( LAY ) .LT. 273.15 ) THEN QICE( LAY ) = -QWAT( LAY ) * ( TCLD( LAY ) - 273.15 ) / 18.0 IF ( TCLD( LAY ) .LE. 255.15 ) QICE( LAY ) = QWAT( LAY ) END IF C...After determining the ice fraction, compute the actual C... liquid water mixing ratio: QLQD( LAY ) = QWAT( LAY ) - QICE( LAY ) C...compute the Liquid Water Content (LWC) by taking the C... product of the liquid wat mix ratio and the air density C... LWC in kg H2O per m**3 air: RHOAIR = PRESL( LAY ) / ( RDGAS * TCLD( LAY ) ) LWC( LAY ) = QLQD( LAY ) * RHOAIR LWC( LAY ) = MAX( 5.0E-6, LWC( LAY ) ) ! lower limit TWC = QWAT( LAY ) * RHOAIR ! total water content C...Now perform vertical integration, weighting by liquid water C... content so that averaged quantities (used in Aqueous C... Chemistry) get the greatest weight where the liquid C... water content is greatest. C...weighted cloud temp TBARC = TBARC + TCLD( LAY ) * DZZL( LAY ) * LWC( LAY ) C...weighted cloud pres PBARC = PBARC + PRESL( LAY ) * DZZL( LAY ) * LWC( LAY ) C...weighted photolysis rate JH2O2_BAR = JH2O2_BAR + JH2O2( LAY ) * DZZL( LAY ) * LWC( LAY ) JHNO3_BAR = JHNO3_BAR + JHNO3( LAY ) * DZZL( LAY ) * LWC( LAY ) C...integrated liquid water content (kg/m3) WCBAR = WCBAR + DZZL( LAY ) * LWC( LAY ) C...integrated total water content WTBAR = WTBAR + DZZL( LAY ) * TWC CTHK = CTHK + DZZL( LAY ) ! Cloud thickness C...Now compute integrated excess water over grid cell C... average necessary for rainout, through cloud depth. C... First, get max temp in the cell (either in cloud or env.) T1 = MAX( TCLD( LAY ), TAL( LAY ) ) C...get saturation water vapor mixing ratio at that temp: QVC( LAY ) = QSAT( ESAT( T1 ), PRESL( LAY ) ) C...excess water is the sum of total condensed and saturated C... vapor minus grid cell average mixing ratio: QXS in kg/m2: C... integrated through cloud depth QXS = QXS & + ( QWAT( LAY ) + QVC( LAY ) - QVL( LAY ) ) & * RHOAIR * DZZL( LAY ) C...get total air mass in cloudy layers: AIRM = AIRM + RHOM2( LAY ) END DO C...Now begin to split calculations for non-raining and raining C... clouds depending on inner loop index ICLDTYPE (1 = raining, C... 2 = nonraining: either CNP of PFW:) IF ( ICLDTYPE .EQ. 2 ) THEN ! no precip or excess water PRATE1 = 1.0E-30 PRATE = 1.0E-30 QXS = 1.0E-30 GO TO 7000 ! branch for further CNP or PFW calculations END IF C...continue here for raining cloud... C...get PRATE1, storm rainout rate in mm/hour, noting that 1 kg C... of water occupies a 1 mm thick layer of water in a square meter C... of ground (accounts for density of water = 1000 kg/m3) PRATE1 = STORME * QXS * 3600.0 / TCLIFE IF ( PRATE1 .LE. 1.001 * PRATE ) THEN FRAC = 0.999 ! Changed back to .999 - jp 6/05 PRATE1 = PRATE / FRAC ELSE FRAC = PRATE / PRATE1 END IF IF ( FRAC .LT. 0.01 ) GO TO 299 C...for raining cloud, compute water properties of interest C... below cloud base. First, parameterize total water content TWC = ( 0.067 * PRATE ** ( 0.846 ) ) / ( FRAC * 1000.0 ) ! tot wat cont kg/m3 DO LAY = 1, CLBASE - 1 TCLD( LAY ) = TAL( LAY ) RHOAIR = PRESL( LAY ) / ( RDGAS * TCLD( LAY ) ) QWAT( LAY ) = TWC / RHOAIR ! kg H2O / kg air C...again partition into ice and liquid IF ( TCLD( LAY ) .LT. 273.15 ) THEN QICE( LAY) = -QWAT( LAY ) * ( TCLD( LAY ) - 273.15 ) / 18.0 IF ( TCLD( LAY ) .LE. 255.15 ) QICE( LAY ) = QWAT( LAY ) END IF QLQD( LAY ) = QWAT( LAY ) - QICE( LAY ) LWC ( LAY ) = QLQD( LAY ) * RHOAIR LWC ( LAY ) = MAX( 5.0E-06, LWC( LAY ) ) ! lower limit PBARC = PBARC + PRESL( LAY ) * DZZL( LAY ) * LWC( LAY ) TBARC = TBARC + TCLD( LAY ) * DZZL( LAY ) * LWC( LAY ) WCBAR = WCBAR + DZZL( LAY ) * LWC( LAY ) WTBAR = WTBAR + DZZL( LAY ) * TWC CTHK = CTHK + DZZL( LAY ) JH2O2_BAR = JH2O2_BAR + JH2O2( LAY ) * DZZL( LAY ) * LWC( LAY ) JHNO3_BAR = JHNO3_BAR + JHNO3( LAY ) * DZZL( LAY ) * LWC( LAY ) C...excess water is all rain QXS = QXS + QWAT( LAY ) * RHOAIR * DZZL( LAY ) END DO C...Final calc of storm rainfall rate and frac area (raining clds) PRATE1 = STORME * QXS * 3600.0 / TCLIFE IF ( PRATE1 .LE. 1.001 * PRATE ) THEN FRAC = 0.999 ! Changed back to .999 - jp 6/05 PRATE1 = PRATE / FRAC ELSE FRAC = PRATE / PRATE1 END IF IF ( FRAC .LT. 0.01 ) GO TO 299 CONV_DEP( COL,ROW, N_SPC_WDEP + 7 ) = FRAC 7000 CONTINUE ! target of cloudtype split C...Begin mixing section, perform first for raining clouds using C... modified form of original Walcek mixing for RADM: mixing C... limited to 1 layer above cloud top; next for CNP or PFW clouds C... using direct exchange mixing mechanism by McHenry. DO SPC = 1, MXSPCS DO LAY = 1, NLAYS CCR( SPC, LAY ) = CONC( SPC,LAY ) END DO CBELOW( SPC ) = CBASE0( SPC ) END DO ! -- Need to use dens * delz for ACM mixing DO LAY = 1, NLAYS DZH(LAY) = RHOM2( LAY ) ENDDO LAY = CLBASE - 1 DZH(LAY) = AIRMB0 CALL ACMCLD ( NSPCSD, NLAYS, F, CCR, DZH, CBELOW, CLBASE, CLTOP, & FRAC, TCLIFE, DTCLD ) DO SPC = 1, MXSPCS CBASEF( SPC ) = CBELOW( SPC ) END DO DO LAY = CLTOP, CLBASE, -1 DO SPC = 1, NSPCSD CONDIS = CONC( SPC,LAY ) PCLD( SPC,LAY ) = F( LAY ) * ( FSIDE( LAY ) * CONDIS ) & + ( 1.0 - F( LAY ) ) * CBASE0( SPC ) PCLD( SPC,LAY ) = MIN( PCLD( SPC,LAY ), CCR( SPC,LAY ) / FRAC ) C...POLC in mol sp/m2 POLC( SPC ) = POLC( SPC ) & + PCLD( SPC,LAY ) * RHOM2( LAY ) END DO END DO C...Now compute for raining region below cloud which is also considered C... to be part of the aqueous reaction chamber DO LAY = 1, CLBASE - 1 AIRM = AIRM + RHOM2( LAY ) DO SPC = 1, NSPCSD IF ( CBASE0( SPC ) .EQ. 0.0 ) THEN BCLDWT = 1.0 / CLBASE ELSE BCLDWT = CONC( SPC,LAY ) / MAX( CBASE0( SPC ), 1.0E-30 ) END IF PCLD( SPC,LAY ) = BCLDWT * CBASEF( SPC ) C...Necessary because CBASEF and CBASE0 are the ending vertical averages C... below cloud concentrations in mol sp/mol air IF ( ICLDTYPE .EQ. 1 ) THEN POLC( SPC ) = POLC( SPC ) + PCLD( SPC, LAY ) * RHOM2( LAY ) END IF END DO END DO C...Compute cloud mean quantities AIRM = MAX( AIRM, 1.0E-30 ) ! tot. air mass in cloudy layers in mol/m2 WCBAR = MAX( WCBAR, 1.0E-30 ) ! liq.wat. content in kg/m3 * CTHK WTBAR = MAX( WTBAR, 1.0E-30 ) ! condensed wat cnt: kg/m3 * CTHK CTHK = MAX( CTHK, 1.0E-30 ) ! cloud thickness, meters TBARC = TBARC / WCBAR ! deg K (note WCBAR has hidden factor CTHK in it) PBARC = PBARC / WCBAR ! avg cloud pres, Pa JH2O2_BAR = JH2O2_BAR / WCBAR ! avg H2O2 photolysis, 1/min JHNO3_BAR = JHNO3_BAR / WCBAR ! avg HNO3 photolysis, 1/min WCBAR = WCBAR / CTHK ! avg liq wat content in kg/m3 WTBAR = WTBAR / CTHK ! avg con wat content in kg/m3 C...Calculate the cloud optical depth using a formula derived from C... Stephens (1978), JAS(35), pp2111-2132. C... only calculate the cloud optical depth when the liquid water C... path is >= 10 g/m2 LWP = WTBAR * CTHK * 1000.0 ! converts to g/m2 IF ( LWP .GE. 10.0 ) THEN CLOD = 10.0 ** ( 0.2633 + 1.7095 * LOG( LOG10( LWP ) ) ) ELSE CLOD = 0.0 END IF C...If no cloud or optical depth < 5, set clear sky values. C... (i.e. don`t do anything) IF ( CLOD .GE. 5.0 ) THEN STRNS = 1.0 + FRAC * ( ( 5.0 - EXP ( -CLOD ) ) & / ( 4.0 + 0.42 * CLOD ) - 1.0 ) IF ( ICLDTYPE .EQ. 1 ) THEN ! precipitating cloud SUBTRANS( COL,ROW,1 ) = STRNS ELSE SUBTRANS( COL,ROW,2 ) = STRNS END IF END IF C...Finally, get in cloud pollutant concentrations in mol sp per mol air DO SPC = 1, NSPCSD POLC ( SPC ) = POLC( SPC ) / AIRM CEND ( SPC ) = POLC( SPC ) REMOV( SPC ) = 0.0 END DO REMOVAC = 0.0 ARPRES = PBARC / STDATMPA RTCH = ( MOLVOL / STDTEMP ) * TBARC CTHK1 = AIRM * RTCH / ( ARPRES * 1000.0 ) CALL SCAVWDEP ( JDATE, JTIME, WTBAR, & WCBAR, TBARC, PBARC, & CTHK1, AIRM, PRATE1, DTCLD, POLC, CEND, & REMOV, REMOVAC, ALFA0, ALFA2, ALFA3 ) C...if the liquid water content is above the specified threshold C... then perform the aqueous chemistry within the cloud and C... re-adjust the ending and removed amounts for those species C... that participated in cloud chemistry IF ( WCBAR .GT. 1.0E-05 ) THEN C... determine day or night from cosine of zenith angle for the cell; Golam Sarwar COSZ = MET_DATA%COSZEN( COL,ROW ) IF ( COSZ .LE. 0.0 ) THEN DARK = .TRUE. ! night C...set mean photolysis rates to zero JH2O2_HYDROMETEORS = 0.0D0 JHNO3_HYDROMETEORS = 0.0D0 ELSE DARK = .FALSE. ! day C...convert mean photolysis rates to 1/sec JH2O2_HYDROMETEORS = REAL( JH2O2_BAR * MINPERSEC, 8 ) JHNO3_HYDROMETEORS = REAL( JHNO3_BAR * MINPERSEC, 8 ) END IF C... update variables used in hg_aqchem_data modules COSINE_ZENITH = REAL( COSZ, 8 ) C *** Golam Sarwar CALL AQ_MAP ( JDATE, JTIME, WTBAR, WCBAR, TBARC, PBARC, & CTHK1, AIRM, PRATE1, DTCLD, POLC, CEND, & REMOV, REMOVAC, ALFA0, ALFA2, ALFA3, DARK ) END IF DO SPC = 1, NSPCSD IF ( CEND( SPC ) .LT. 0.0 ) WRITE( LOGDEV,* ) ' CEND,R,C,SP=', & CEND( SPC ), ROW, COL, SPC END DO C...weight the removed amount by the cloud fraction and convert C... from mol/m2 to kg/m2 and kg/m2 to kg/hectare C... for gases SPC = 0 STRT = GC_STRT FINI = GC_STRT - 1 + N_GC_SPC DO VAR = STRT, FINI SPC = SPC + 1 REMOV( VAR ) = REMOV( VAR ) * GC_MOLWT( SPC ) & * M2PHA / GPKG * FRAC END DO C... for aerosols SPC = 0 STRT = AE_STRT FINI = AE_STRT - 1 + N_AE_SPC DO VAR = STRT, FINI SPC = SPC + 1 IF ( ( INDEX( AE_SPC( SPC ), 'NUM' ) .EQ. 0 ) .AND. & ( INDEX( AE_SPC( SPC ), 'SRF' ) .EQ. 0 ) ) THEN REMOV( VAR ) = REMOV( VAR ) * AE_MOLWT( SPC ) & * M2PHA / GPKG * FRAC ELSE REMOV( VAR ) = REMOV( VAR ) * M2PHA * FRAC END IF END DO C... for non-reactives SPC = 0 STRT = NR_STRT FINI = NR_STRT - 1 + N_NR_SPC DO VAR = STRT, FINI SPC = SPC + 1 REMOV( VAR ) = REMOV( VAR ) * NR_MOLWT( SPC ) & * M2PHA / GPKG * FRAC END DO C... for tracers SPC = 0 STRT = TR_STRT FINI = TR_STRT - 1 + N_TR_SPC DO VAR = STRT, FINI SPC = SPC + 1 REMOV( VAR ) = REMOV( VAR ) * TR_MOLWT( SPC ) & * M2PHA / GPKG * FRAC END DO C...add deposition amounts into the DEP array DO VAR = 1, N_SPC_WDEP CONV_DEP( COL,ROW,VAR ) = CONV_DEP( COL,ROW,VAR ) & + REMOV( WDEP_MAP( VAR ) ) END DO C... and load H+ concentration into the deposition array as well CONV_DEP( COL,ROW,N_SPC_WDEP+1 ) = CONV_DEP( COL,ROW,N_SPC_WDEP+1 ) & + REMOVAC C...Compute concentration changes in the grid column resulting C... from subgrid scale vertical mixing: C...first, below cloud base, C... include raining region below cld base IF ( ICLDTYPE .EQ. 1 ) THEN ! raining cloud DO LAY = 1, CLBASE - 1 DO SPC = 1, NSPCSD IF ( SPC .NE. N_GC_SPCD ) THEN INCLOUD = PCLD( SPC,LAY ) * CEND( SPC ) & / MAX( POLC( SPC ), CONCMINL( SPC,LAY ) ) OUTCLOUD = PCLD( SPC,LAY ) CGRID( COL,ROW,LAY,SPC ) = FRAC * INCLOUD & + ( 1.0 - FRAC ) * OUTCLOUD END IF END DO END DO ELSE DO LAY = 1, CLBASE - 1 DO SPC = 1, NSPCSD CGRID( COL,ROW,LAY,SPC ) = PCLD( SPC,LAY ) END DO END DO END IF C...Now do changes in cloudy layers: DO LAY = CLBASE, CLTOP DO SPC = 1, NSPCSD IF ( SPC .NE. N_GC_SPCD ) THEN INCLOUD = PCLD( SPC,LAY ) * CEND( SPC ) & / MAX( POLC( SPC ), CONCMINL( SPC,LAY ) ) OUTCLOUD = ( CCR( SPC,LAY ) - FRAC * PCLD( SPC,LAY ) ) & / ( 1.0 - FRAC ) OUTCLOUD = MAX( OUTCLOUD, CONCMINL( SPC,LAY ) ) CGRID( COL,ROW,LAY,SPC ) = FRAC * INCLOUD & + ( 1.0 - FRAC ) * OUTCLOUD END IF END DO END DO GO TO 301 299 CONTINUE 301 CONTINUE ! end loop on columns COL 311 CONTINUE ! end loop on rows ROW RETURN ! from main routine CLDPROC 91010 FORMAT( 3( A, :, I3, : ) ) END ================================================ FILE: CCTM/src/cloud/acm_ae6_mp/hg_aqchem_data.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/CCTM/src/cloud/cloud_acm_ae6_mp/hg_aqchem_data.F,v 1.3 2011/10/21 16:10:27 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% MODULE HG_AQCHEM_DATA C----------------------------------------------------------------------- C Function: Sets up Data for mercury cloud chemistry and contain subroutine to C calculate rates and minimum time steps of its reactions. C Revision History: C 27 Aug 2008 B.Hutzell: initial implementation C 06 Jul 2009 J.Bash: Replaced the Hg(II) reduction by HO2 with the C reduction mechanism by dicaboxylic acids of C Si and Ariya 2008 ES&T C 10 Sep 2011 B.Hutzell: updated for CMAQ version 5.0 C----------------------------------------------------------------------- IMPLICIT NONE INTEGER, PARAMETER :: NPR = 10 ! number of Hg reactions exclude adsorb/absorb INTEGER, PARAMETER :: NUMOX_v46 = 5 ! number of oxidizing reactions INTEGER, PARAMETER :: NHgRXN = 24 ! number of Hg reactions INTEGER, PARAMETER :: NRXN = NUMOX_v46 + NHgRXN ! number of all reactions C... INDICES FOR MERCURIC REDOX REACTIONS INTEGER :: IHG ! counter index over Hg rxns INTEGER, SAVE :: IHG_OX = 1 ! Hg(aq) + O3(aq) => HgO(aq) ' INTEGER, SAVE :: IHGSO3 = 2 ! HgSO3 => Hg(aq) + S(IV) van Loon et al. ' INTEGER, SAVE :: IHGHY = 3 ! Hg(OH)2 => Hg + products ' INTEGER, SAVE :: IOHRAD = 4 ! Hg(aq) + OHRAD(aq) => Hg(II) ' INTEGER, SAVE :: ICLI = 5 ! oxidation by CL2 dissocations products (HOCL and OCL) INTEGER, SAVE :: IORGC = 6 ! Reduction of all Hg(II) species by oxalate RXN 6 C Hg(II) + R(CO2)2 => Hg+ + products C Hg+ + HORCO2 => Hg(aq) + products INTEGER, SAVE :: IHGDISULF = 7 ! Reduction of Hg(SO3)2 by oxalate RXN 7 INTEGER, SAVE :: IHGOHP = 8 ! Reduction of HgOHp by oxalate RXN 8 INTEGER, SAVE :: IHGOHCL = 9 ! Reduction of HgOHCL by oxalate RXN 9 INTEGER, SAVE :: IHGCL2 = 10 ! Reduction of HgCL2 by oxalate RXN 9 INTEGER, SAVE :: ISHGCL2 = NPR + 1 ! index for HgCl2 sorption INTEGER, SAVE :: ISHGSO3 = NPR + 3 ! index for HgSO3 sorption INTEGER, SAVE :: ISHGHY = NPR + 5 ! index for HgHY sorption INTEGER, SAVE :: ISHGDISULF = NPR + 7 ! index for Hg(SO3)2-- sorption INTEGER, SAVE :: ISHGOHP = NPR + 9 ! index for HgOH sorption INTEGER, SAVE :: ISHGOHCL = NPR + 11 ! index for HgOHCl sorption INTEGER, SAVE :: ISHGII = NPR + 13 ! index for Hg(II) sorption INTEGER, SAVE :: IDHGCL2 = NPR + 2 ! index for HgCl2 desorption INTEGER, SAVE :: IDHGSO3 = NPR + 4 ! index for HgSO3 desorption INTEGER, SAVE :: IDHGHY = NPR + 6 ! index for HgHY desorption INTEGER, SAVE :: IDHGDISULF = NPR + 8 ! index for Hg(SO3)2-- desorption INTEGER, SAVE :: IDHGOHP = NPR + 10 ! index for HgOH desorption INTEGER, SAVE :: IDHGOHCL = NPR + 12 ! index for HgOHCl desorption INTEGER, SAVE :: IDHGII = NPR + 14 ! index for Hg(II) desorption REAL( 8 ) :: COSINE_ZENITH ! solar zenith anagle REAL( 8 ) :: PHGCL20 ! total HgCl2 partial pressure (atm) REAL( 8 ) :: PHGCL2F ! gas only HgCl2 partial pressure (atm) C...Aqueous Species REAL( 8 ) :: CLI ! Cl(I) conc in cloudwater (mol/liter), from Cl2(aq) REAL( 8 ) :: HGII ! Hg(II) conc in cloudwater (mol/liter) REAL( 8 ) :: HGH ! Henry's Law Constant for Hg REAL( 8 ) :: HGL ! Hg conc in cloudwater (mol/liter) REAL( 8 ) :: HGOHP ! HgOH+ conc in cloudwater (mol/liter) REAL( 8 ) :: PHGAKNA ! aitken mercury aerosol in water (moles/L) REAL( 8 ) :: PHGACCA ! accum mercury aerosol in water (moles/L) REAL( 8 ) :: PHG_AEROSOL_BAK ! previous sorbed Hg(II) in liquid phase REAL( 8 ) :: PHG_AEROSOL_NOW ! current sorbed Hg(II) in liquid phase REAL( 8 ) :: PHG_AEROSOL_DEL ! PHG_AEROSOL_NOW - PHG_AEROSOL_BAK REAL( 8 ) :: SHGCL2 ! Sorbed HgCl2 conc in cloudwater (mol/liter) REAL( 8 ) :: SHGSO3 ! Sorbed HgSO3 conc in cloudwater (mol/liter) REAL( 8 ) :: SHGDISULF ! Sorbed Hg(SO3)2-- conc in cloudwater (mol/liter) REAL( 8 ) :: SHGOHP ! Sorbed HgOHp conc in cloudwater (mol/liter) REAL( 8 ) :: SHGHY ! Sorbed Hg(OH)2 conc in cloudwater (mol/liter) REAL( 8 ) :: SHGOHCL ! Sorbed HgOHCl conc in cloudwater (mol/liter) REAL( 8 ) :: SHGII ! Sorbed HgII conc in cloudwater (mol/liter) REAL( 8 ) :: SORBED_HG_INIT ! Initial total sorbed Hg in cloudwater (mol/liter) REAL( 8 ) :: AHGCL2 ! additional mass from RGMS to add to SHgCl2 REAL( 8 ) :: AHGSO3 ! additional mass from RGMS to add to SHgSO3 REAL( 8 ) :: AHGDISULF ! additional mass from RGMS to add to SHgdisulf REAL( 8 ) :: AHGOHP ! additional mass from RGMS to add to SHgOHp REAL( 8 ) :: AHGHY ! additional mass from RGMS to add to SHgHY REAL( 8 ) :: AHGOHCL ! additional mass from RGMS to add to SHgOHCl REAL( 8 ) :: AHGII ! additional mass from RGMS to add to SHgII C...Henry's Law and Dissociation Constant REAL( 8 ) :: HGOHP1 ! First dissociation constant for HgOH+ REAL( 8 ) :: HGOHP1I ! Inverse HgOHp1 REAL( 8 ) :: HGOHCL ! HgOHCl conc in cloudwater (mol/liter) REAL( 8 ) :: HGOHCL1 ! First dissociation constant for HgOHCl REAL( 8 ) :: HGOHCL1I ! Inverse HgOHCl1 REAL( 8 ) :: HGCL21 ! First dissociation constant for HgCl2 REAL( 8 ) :: HGCL21I ! Inverse HgCl21 REAL( 8 ) :: HGCL2H ! Henry's Law Constant for HgCl2 REAL( 8 ) :: HEFFHGCL2 ! Effective Henry's Law Constant for HgCl2 REAL( 8 ) :: HGCL21H ! HgCl21 * HgCl2H REAL( 8 ) :: HGCL2L ! HgCl2(aq) conc in cloudwater (mol/liter) REAL( 8 ) :: HGHY ! Hg(OH)2 conc in cloudwater (mol/liter) REAL( 8 ) :: HGHY1 ! Equilibrium constant for Hg(OH)2 REAL( 8 ) :: HGHY1I ! Inverse HgHY1 REAL( 8 ) :: HGSO3 ! HgSO3 conc in cloudwater (mol/liter) REAL( 8 ) :: HGSO31 ! Equilibrium constant for HgSO3 REAL( 8 ) :: HGSO31I ! Inverse HgSO31 REAL( 8 ) :: HGDISULF ! Hg(SO3)2-- conc in cloudwater (mol/liter) REAL( 8 ) :: HGDISULF1 ! Equilibrium constant for Hg(SO3)2-- REAL( 8 ) :: HGDISULF1I ! Inverse Hgdisulf1 C...reaction rates REAL( 8 ) :: K1K2I ! HgSO31I * Hgdisulf1I REAL( 8 ) :: K4K5I ! HgOHp1I * HgHY1I REAL( 8 ) :: K4K6I ! HgOHp1I * HgOHCl1I REAL( 8 ) :: K6A ! Rate constant used in ox of Hg by chlorine REAL( 8 ) :: K6B ! Rate constant used in ox of Hg by chlorine REAL( 8 ) :: KORGC ! Rate constant used in redux of all HgII by R(CO2)2 REAL( 8 ) :: RHG6 ! '' Hg with chlorine REAL( 8 ) :: RHG_OX ! '' Hg ox by O3 REAL( 8 ) :: RHGSO3 ! '' REAL( 8 ) :: RHGSO3I ! '' , inverse REAL( 8 ) :: RHGHY ! '' REAL( 8 ) :: RHGHYI ! '' , inverse REAL( 8 ) :: ROHRAD ! '' REAL( 8 ) :: SOVERL ! Ratio of sorbed to dissolved Hg(II) REAL( 8 ) :: XLHG ! REAL( 8 ) :: XLHGCL2 ! C...derivatives, differential, and timesteps REAL( 8 ) :: DHGDT( NHGRXN ) ! rate of Hg spcs prod in cld (mol/liter/sec) REAL( 8 ) :: DHG ( NHGRXN ) ! Hg species product produced over tstep DTWHG(0) REAL( 8 ) :: DTWHG_MIN ! safe timestep for mercury chemistry REAL( 8 ) :: DTWHG( NRXN ) ! timesteps for mercury chemistry C...data used for using chemistry diagnositic file INTEGER, SAVE :: HG_AQCHEM_LOG CHARACTER( 30 ) :: HG_ACHEM_RXN ( NHgRXN ) ! Hg reaction description C...........INSORB is a logical variable used to initialize the fraction C of aqueous Hg(II) sorbed to suspended carbon LOGICAL :: INSORB c these vars based on jproc method of zenith calculation CONTAINS SUBROUTINE INIT_AQCHEM_HG(TEMP, WCAVG, JULIAN_DATE, ITIME, DARK) ! USE AQ_DATA, ONLY : AQCHEM_LAT, AQCHEM_LON USE UTILIO_DEFN IMPLICIT NONE INCLUDE SUBST_CONST ! commonly used constants REAL( 8 ), PARAMETER :: H2ODENS = 1000.0D+0 ! density of water (kg/m3) at 20 C and 1 ATM C...Arguments REAL, INTENT( IN ) :: TEMP ! AIR TEMP (K) REAL, INTENT( IN ) :: WCAVG ! liquid water content (kg/m3) INTEGER, INTENT( IN ) :: JULIAN_DATE ! Julian data, YYYYMMM INTEGER, INTENT( IN ) :: ITIME ! time, HHMMSS (GMT) LOGICAL, INTENT( IN ) :: DARK ! DARK = TRUE is night, DARK = FALSE is day C...Local REAL( 8 ) :: XL ! conversion factor (liter-atm/mol) REAL( 8 ) :: DBLE_TEMP ! TEMP converted to double precision REAL :: COSZEN ! cosine of solar zenith angle (dimensionaless) REAL :: GMT ! Greenwich mean time (dec.milt) CHARACTER( 4 ) :: PE_STRING CHARACTER( 80 ) :: HG_AQCHEM_LOGFILE LOGICAL, SAVE :: FIRSTCALL = .TRUE. C.. EXTERNAL FUNCTIONS and their descriptions: REAL, EXTERNAL :: HLCONST IF( FIRSTCALL )THEN FIRSTCALL = .FALSE. END IF GMT = REAL( ITIME, 4 )/8.64E+4 HGH = REAL( HLCONST( 'HG ', TEMP, .FALSE., 0.0 ), 8) HGCL2H = REAL( HLCONST( 'HGIIGAS ', TEMP, .FALSE., 0.0 ), 8) ! XL = REAL( MOLVOL*(WCAVG/H2ODENS)*(TEMP/STDTEMP), 8) ! conversion factor (l-atm/mol) XL = REAL( (MOLVOL*WCAVG*TEMP/STDTEMP), 8) / H2ODENS XLHG = HGH * XL XLHGCL2 = HGCL2H * XL C...dissociation constant for dissolved mercury species C K1: HGSO31 = 2.0D-13 ! (M) HGSO31I= 1.0D+0/HGSO31 ! (M**-1) C K2: HGDISULF1 = 4.D-12 ! (M) HGDISULF1I= 1.0D+0/HGDISULF1 C K3: HGCL21 = 1.D-14 ! (M**2) HGCL21I = 1.0D+0/HGCL21 ! (M**-2) HGCL21H = HGCL21 * HGCL2H !RB: HGCL21H IS NEVER USED C K4: HGOHP1 = 2.510D-11 ! (M) HGOHP1I = 1.0D+0/HGOHP1 C K5: HGHY1 = 6.310D-12 ! (M) HGHY1I = 1.0D+0/HGHY1 C K6: HGOHCL1 = 3.720D-8 ! (M) HGOHCL1I = 1.0D+0/3.720D-8 K1K2I = HGSO31I * HGDISULF1I K4K5I = HGOHP1I * HGHY1I K4K6I = HGOHP1I * HGOHCL1I C...Hg reaction rates RXN C Hg(aq) + O3(aq) => HgO(aq) RXN 1 4.7E7 RHG_OX = 4.7D+7 DBLE_TEMP = REAL( TEMP, 8) C HgSO3 => Hg(aq) + S(IV) RXN 2 from Van Loon et al. RHGSO3 = DBLE_TEMP * DEXP( (31.971D+0*DBLE_TEMP - 12595.0D+0)/DBLE_TEMP ) RHGSO3I = 1.0D+0/RHGSO3 IHGSO3 = 2 C Hg(OH)2 => Hg + products RXN 3 3.00D-7 IF ( .NOT. DARK ) THEN RHGHY = 6.00D-7 * COSINE_ZENITH ! RATE NORMALIZED TO SOLAR FLUX RHGHYI = 1.0D+0/RHGHY ELSE RHGHY = 0.0D+0 RHGHYI = 0.0D+0 ! NOT USED IF RHGHY = 0 END IF C Hg(aq) + OHRAD(aq) => Hg(II) RXN 4 2.0E9 ROHRAD = 2.0D+9 C OXIDATION OF Hg(aq) BY CHLORINE (HOCl and OCl-) RXN 5 C Hg(aq) + HOCl(aq) => Hg(II) + products C Hg(aq) + OCl- --(H+)--> Hg(II) + products C HOCl <=> H+ + OCl- K = 10**-7.5 K6A = 2.09D+6 K6B = 1.99D+6 C Reduction of all Hg(II) species by R(CO2)2 RXN 6 C Hg(II) + R(CO2)2 => Hg+ + products C Hg+ + HORCO2 => Hg(aq) + products C Overall: Hg(II) + R(CO2)2 => Hg(aq) + products IF ( COSINE_ZENITH .GT. 0.0D+0 ) THEN KORGC = 1.2D+4 * COSINE_ZENITH ! 1/(M S) ELSE KORGC = 0.0D+0 END IF C ADSORPTION AND DESORPTION: RXN 7-20 C C All Hg(II) species sorb/desorb at the same time rate C C HgCl2L => SHgCl2 RXN 7 adsorb = RHgad C SHgCl2 => HgCl2L RXN 8 desorb = RHgde C HgSO3 => SHgSO3 RXN 9 adsorb = RHgad C SHgSO3 => HgSO3 RXN 10 desorb = RHgde C HgHY => SHgHY RXN 11 adsorb = RHgad C SHgHY => HgHY RXN 12 desorb = RHgde C Hgdisulf => SHgdisulf RXN 13 adsorb = RHgad C SHgdisulf => Hgdisulf RXN 14 desorb = RHgde C HgOHp => SHgOHp RXN 15 adsorb = RHgad C SHgOHp => HgOHp RXN 16 desorb = RHgad C HgOHCl => SHgOHCl RXN 17 adsorb = RHgad C SHgOHCl => HgOHCl RXN 18 desorb = RHgad C HgII => SHgII RXN 19 adsorb = RHgad C SHgII => HgII RXN 20 desorb = RHgad DO IHG = 1, NHGRXN DHGDT( IHG ) = 0.0D+0 DHG ( IHG ) = 0.0D+0 END DO SORBED_HG_INIT = 0.0D+0 c...set history rgms to 0 hg before the time loop begins. PHG_AEROSOL_BAK = 0.0D+0 1001 FORMAT(65(1x, A16)) RETURN END SUBROUTINE REAL( 8 ) FUNCTION HGCL2_FACTOR_HLCONST( SO3, OH, CL, ACT_SQU) RESULT (HLCONST_FACTOR) IMPLICIT NONE C Inputs: REAL( 8 ), INTENT ( IN ) :: SO3 ! SO3= conc in cloudwater (mol/liter) REAL( 8 ), INTENT ( IN ) :: OH ! OH conc in cloudwater (mol/liter) REAL( 8 ), INTENT ( IN ) :: CL ! total Cl- conc in cloudwater (mol/liter) REAL( 8 ), INTENT ( IN ) :: ACT_SQU ! activity factor correction for squared ions conc. ( dimensionaless ) C Result: REAL( 8 ) HLCONST_EFECTIVE ! Effective Henry's Law Constant for Mercuric Chloride C Local: REAL( 8 ) CL_SAFE ! CL ion filtered by MIN test REAL( 8 ) RECIPCL2 ! reciprocal of CL ion times ACT2 CL_SAFE = MAX( CL, 1.0D-10) RECIPCL2 = 1.0D+0 / (CL_SAFE*CL_SAFE*ACT_SQU) HLCONST_FACTOR = (1.0D+0 + HGCL21*RECIPCl2 & * (1.0D+0 + HGSO31I*SO3 + K1K2I*SO3*SO3 & + HGOHP1I*OH +K4K5I*OH*OH & + K4K6I*OH*CL_SAFE )) RETURN END FUNCTION HGCL2_FACTOR_HLCONST C SUBROUTINE MERCURY_RATES(WCAVG, DTRMV, EC, O3L, HPLUS, OHRAD, ORGC, & HOCL, OCL) IMPLICIT NONE INCLUDE SUBST_CONST ! commonly used constants REAL, INTENT( IN ) :: WCAVG ! Liquid water content (kg/m3) REAL( 8 ), INTENT( IN ) :: EC ! elemental carbon acc+akn aerosol in cloudwater (mol/liter) REAL( 8 ), INTENT( IN ) :: DTRMV ! Minimum time step required REAL( 8 ), INTENT( IN ) :: O3L ! ozone dissolved in cloud water (mol/liter) REAL( 8 ), INTENT( IN ) :: HPLUS ! hydrogen ion concentration (mol/liter) REAL( 8 ), INTENT( IN ) :: OHRAD ! OH ion concentration (mol/liter) REAL( 8 ), INTENT( IN ) :: ORGC ! Assumed Oxalic acid concentration (mol/liter) REAL( 8 ), INTENT( IN ) :: HOCL ! HOCL in cloud water (mol/liter) REAL( 8 ), INTENT( IN ) :: OCL ! OCL in cloud water (mol/liter) REAL( 8 ) SOVD ! sorbed Hg(II) / desorbed Hg(II) REAL( 8 ) SF ! fraction of aqueous Hg(II) sorbed to E.C. REAL( 8 ) ECW ! elem. carbon suspended in water (g / liter) REAL( 8 ) EC5 ! EC * 5 REAL( 8 ) RHGAD ! HG overall adsorption REAL( 8 ) RHGADI ! '' , inverse REAL( 8 ) RHGDE ! HG overall desorption REAL( 8 ) RHGDEI ! '' , inverse REAL( 8 ) KEQHOCL ! equilib constant used in ox of Hg by chlorine REAL( 8 ) MINCARB ! 1.00D-18/WCAVG in g/Liter REAL( 8 ) DHGPROLOSS ! sum of mercury species production and loss terms over dt REAL( 8 ) DHG_SCALE ! Rate scale to preserve mass under S controled time step REAL( 8 ) LOSS_HG_SPECIES ! sum of reaction rates controling an aqueous species REAL( 8 ), PARAMETER :: KP = 900.0D+0 ! sorption coeff. from Seigneur et al.(1998) REAL( 8 ), PARAMETER :: TFOLD = 3600.0D+0 ! e-folding time for adsorption equilibrium (sec) REAL( 8 ), PARAMETER :: FAC_ADS = 1.0D+0 ! toggle factor on adsportion DTWHG( 1:NRXN ) = DTRMV DTWHG_MIN = DTRMV C... first Hg reaction: Hg(aq) + O3(aq) => HgO(aq) DHGDT(IHG_OX) = RHG_OX * O3L * HGL c IF ((DHgDT(IHg_ox) .EQ. 0.0D+0).OR.( HgL .LE. 1.00D-30 ) ) THEN c DTWHG(IHg_ox + NUMOX_v46) = DTRMV c ELSE cC at completion, dtw*dhgdt=min(O3L, HgL) (limiting reagent) c DTWHG(IHg_ox + NUMOX_v46) = 0.1D+0 * (MIN(O3L, HgL))/DHgDT(IHg_ox ) c END IF C...second Hg reaction: HgSO3 => Hg(aq) + S(IV) !WTH:(08/14/09): includes ORGC reduction reaction DHGDT(IHGSO3) = (RHGSO3 + KORGC * ORGC) * HGSO3 IF ( ( DHGDT(IHGSO3) .EQ. 0.0D+0 ).OR.(HGSO3 .LE. 1.00D-30) ) THEN DTWHG(IHGSO3 + NUMOX_V46 ) = DTRMV ELSE DTWHG(IHGSO3 + NUMOX_V46 ) = 0.1D+0 * RHGSO3I END IF C...third Hg reaction: Hg(OH)2 => Hg + products !WTH:(08/14/09): includes ORGC reduction reaction DHGDT(IHGHY) = (RHGHY + KORGC * ORGC) * HGHY IF ( ( DHGDT(IHGHY) .EQ. 0.0D+0 ) .OR. ( HGHY .LE. 1.00D-30 ) ) THEN DTWHG(IHGHY + NUMOX_V46 ) = DTRMV ELSE DTWHG(IHGHY + NUMOX_V46 ) = 0.1D+0 * RHGHYI END IF C...fourth Hg reaction: Hg(aq) + OHRAD(aq) => Hg(II) DHGDT(IOHRAD) = ROHRAD * OHRAD * HGL c IF ( ( DHgDT(IOHRAD) .EQ. 0.0D+0 ) .OR. ( HgL .LE. 1.00D-30 ) .OR. c & ( OHRAD .LE. 1.00D-30 ) ) THEN c DTWHG(IOHRAD + NUMOX_v46 ) = DTRMV c ELSE c at completion, dtw*dhgdt=min(OHRAD, HgL) (limiting reagent) c DTWHG(IOHRAD + NUMOX_v46 ) = 0.1D+0 * (MIN(OHRAD, HgL))/DHgDT(IOHRAD) c END IF C...fifth Hg reaction: OXIDATION OF Hg(aq) BY CHLORINE (HOCl and OCl-) C C Hg(aq) + HOCl(aq) => Hg(II) + products C Hg(aq) + OCl- --(H+)--> Hg(II) + products C HOCl <=> H+ + OCl- K = 10**-7.5 C KEQHOCL = 3.16230D-8 ! EQUALS 10**(-7.5) RHG6 = K6A*HOCL + K6B*OCL DHGDT(ICLI) = RHG6 * HGL c IF ( ( DHgDT(IClI) .EQ. 0.0D+0 ) .OR. ( HgL .LE. 1.00D-30 ) ) THEN c DTWHG(IClI + NUMOX_v46 ) = DTRMV c ELSE c DTWHG(IClI+ NUMOX_v46 ) = 0.1D+0 * (MIN(HgL, ClI))/DHgDT(IClI) c END IF c if(DTWHG(IClI+ NUMOX_v46 ) .lt. 0.1D+0 ) then !temporary check c DTWHG(IClI+ NUMOX_v46 ) = DTRMV c print*,"Warning: DTW too short for Chlorine ox. of Hg(0)" c end if C...sixth Hg reaction: REDUCTION OF Hg(II) by R(CO2)2 C C Hg(II) + R(CO2)2 => Hg+ + products C Hg+ + HORCO2 => Hg(aq) + products C Overall: Hg(II) + R(CO2)2 => Hg(aq) + products C DHGDT(IORGC) = KORGC * ORGC * HGII IF ( ( DHGDT(IORGC) .EQ. 0.0D+0 ) .OR.( HGII .LE. 1.00D-30 ) ) THEN DTWHG(IORGC + NUMOX_V46 ) = DTRMV ELSE DTWHG(IORGC+ NUMOX_V46 ) = 0.1D+0 * (MIN(ORGC, HGII ))/DHGDT(IORGC) END IF DHGDT(IHGDISULF) = KORGC * ORGC * HGDISULF IF ( ( DHGDT(IHGDISULF) .EQ. 0.0D+0 ) .OR.( HGDISULF .LE. 1.00D-30 ) ) THEN DTWHG(IHGDISULF + NUMOX_V46 ) = DTRMV ELSE DTWHG(IHGDISULF+ NUMOX_V46 ) = 0.1D+0 * (MIN(ORGC, HGDISULF ))/DHGDT(IHGDISULF) END IF DHGDT(IHGOHP) = KORGC * ORGC * HGOHP IF ( ( DHGDT(IHGOHP) .EQ. 0.0D+0 ) .OR.( HGOHP .LE. 1.00D-30 ) ) THEN DTWHG(IHGOHP + NUMOX_V46 ) = DTRMV ELSE DTWHG(IHGOHP+ NUMOX_V46 ) = 0.1D+0 * (MIN(ORGC, HGOHP ))/DHGDT(IHGOHP) END IF DHGDT(IHGOHCL) = KORGC * ORGC * HGOHCL IF ( ( DHGDT(IHGOHCL) .EQ. 0.0D+0 ) .OR.( HGOHCL .LE. 1.00D-30 ) ) THEN DTWHG(IHGOHCL + NUMOX_V46 ) = DTRMV ELSE DTWHG(IHGOHCL+ NUMOX_V46 ) = 0.1D+0 * (MIN(ORGC, HGOHCL ))/DHGDT(IHGOHCL) END IF DHGDT(IHGCL2) = KORGC * ORGC * HGCL2L IF ( ( DHGDT(IHGCL2) .EQ. 0.0D+0 ) .OR.( HGCL2L .LE. 1.00D-30 ) ) THEN DTWHG(IHGCL2 + NUMOX_V46 ) = DTRMV ELSE DTWHG(IHGCL2+ NUMOX_V46 ) = 0.1D+0 * (MIN(ORGC, HGCL2L ))/DHGDT(IHGCL2) END IF C...new sorption/desorption code to allow adjustable elemental carbon C aerosol air concentrations (Russ Bullock, 09/19/2000) c using carbon aerosol within water c EC here in moles/liter of water c c times 5 to estimate amount of elem carbon avail if 5% of pm2.5 rather c than 1% had been set to elem carbon originally in aero_driver.F of c EC5 = max(0.0, (EC * 5.0)) ! moles/L EC5 = MAX(0.0D+0, EC) ! moles/l c set min carb as equivilant to 1.0D-12 microg/m**3, and convert this c to grams carbon/Liter of water. 1.0D-12 microg/m**3 is c 1.0D-18g/m**3, which is (1.0D-18g/m**3)/WCAVG grams/Liter, c where WCAVG is liquid water content (kg/m3) c (1.0D-18g carb)/m**3 / [(?Kg H20)/m**3] = (1.0D-18g carb) /(?Kg H20) c = (1.0D-18g carb) /(?Liters H20) c (density of H20 is assumed to be close to 1kg/Liter) ECW = EC5 * 12.01D+0 ! MOLES/LITER * 12G PER MOLE = G/LITER MINCARB = 1.00D-18 / WCAVG ! IN G/L ECW = MAX(ECW, MINCARB) ! FORCED MIN OF 1.0D-12UG/M**3 AS G/LITER SOVD = KP * ECW ! SORBED HG(II) / DESORBED HG(II) SF = SOVD / (1.0D+0 + SOVD) ! FRACTION SORBED AT EQUILIBRIUM RHGAD = SF / TFOLD ! ADSORB RATE FOR E-FOLDING TIME RHGADI = 1.0D+0 / RHGAD RHGDE = RHGAD / SOVD ! DESORB RATE TO YIELD SF AT EQUILIBRIUM RHGDEI = 1.0D+0 / RHGDE RHGDE = FAC_ADS * RHGDE RHGDEI = FAC_ADS * RHGDEI RHGAD = FAC_ADS * RHGAD RHGADI = FAC_ADS * RHGADI C Adsorption of Hg Species HgSO3 -> SHgSO3 DHGDT(ISHGSO3) = RHGAD * HGSO3 c IF ((DHgDT(ISHgSO3) .EQ. 0.0 ).OR.(HgSO3 .LE. 1.00D-30 ))THEN c DTWHG(ISHgSO3 + NUMOX_v46 ) = DTRMV c ELSE c DTWHG(ISHgSO3 + NUMOX_v46 ) = .1* RHgadI c END IF C Desorption of Hg Species SHgSO3 -> HgSO3 DHGDT(IDHGSO3) = RHGDE * SHGSO3 c IF ( ( DHgDT(IDHgSO3).EQ.0.0).OR.(SHgSO3.LE.1.00D-30 ) ) THEN c DTWHG(IDHgSO3 + NUMOX_v46 ) = DTRMV c ELSE c DTWHG(IDHgSO3 + NUMOX_v46 ) = 0.1D+0* RHgdeI c END IF C Adsorption of Hg Species HgCl2L -> SHgCl2 DHGDT(ISHGCL2) = RHGAD * HGCL2L c IF ((DHgDT(ISHgCl2) .EQ. 0.0D+0) .OR. (HgCl2L .LE. 1.00D-30)) THEN c DTWHG(ISHgCl2 + NUMOX_v46 ) = DTRMV c ELSE c DTWHG(ISHgCl2 + NUMOX_v46 ) = 0.1D+0 * RHgadI c END IF C Desorption of Hg Species SHgCl2 -> HgCl2L DHGDT(IDHGCL2) = RHGDE * SHGCL2 c IF ((DHgDT(IDHgCl2) .EQ. 0.0D+0 ).OR.( SHgCl2 .LE. 1.00D-30 ))THEN c DTWHG(IDHgCl2 + NUMOX_v46 ) = DTRMV c ELSE c DTWHG(IDHgCl2 + NUMOX_v46 ) = 0.1D+0* RHgdeI c END IF C Adsorption and Loss of Hg Species Hgdisulf -> SHgdisulf DHGDT(ISHGDISULF) = RHGAD * HGDISULF c IF ((DHgDT(ISHgdisulf).EQ.0.0D+0 ).OR.(Hgdisulf.LE.1.00D-30))THEN c DTWHG(ISHgdisulf + NUMOX_v46 ) = DTRMV c ELSE c DTWHG(ISHgdisulf + NUMOX_v46 ) = .1* RHgadI c END IF C Desorption of Hg Species SHgdisulf -> Hgdisulf DHGDT(IDHGDISULF) = RHGDE * SHGDISULF c IF ((DHgDT(IDHgdisulf).EQ.0.0D+0).OR.(SHgdisulf.LE.1.00D-30))THEN c DTWHG(IDHgdisulf + NUMOX_v46 ) = DTRMV c ELSE c DTWHG(IDHgdisulf + NUMOX_v46 ) = .1* RHgdeI c END IF C Adsorption and Loss of Hg Species HgOHp -> SHgOHp DHGDT(ISHGOHP) = RHGAD * HGOHP c IF ( (DHgDT(ISHgOHp) .EQ. 0.0D+0 ).OR.( HgOHp .LE. 1.00D-30))THEN c DTWHG(ISHgOHp + NUMOX_v46 ) = DTRMV c ELSE c DTWHG(ISHgOHp + NUMOX_v46 ) = .1* RHgadI c END IF C Desorption of Hg Species SHgOHp -> HgOHp DHGDT(IDHGOHP) = RHGDE * SHGOHP c IF (( DHgDT(IDHgOHp) .EQ. 0.0 ).OR.( SHgOHp .LE.1.00D-30) )THEN c DTWHG(IDHgOHp + NUMOX_v46 ) = DTRMV c ELSE c DTWHG(IDHgOHp + NUMOX_v46 ) = .1* RHgdeI c END IF C Adsorption and Loss of Hg Species HgOHCl -> SHgOHCl DHGDT(ISHGOHCL) = RHGAD * HGOHCL c IF ((DHgDT(ISHgOHCl).EQ.0.0D+0 ).OR.( HgOHCl .LE. 1.00D-30 ) )THEN c DTWHG(ISHgOHCl + NUMOX_v46 ) = DTRMV c ELSE c DTWHG(ISHgOHCl + NUMOX_v46 ) = .1* RHgadI c END IF C Desorption of Hg Species SHgOHCl -> HgOHCl DHGDT(IDHGOHCL) = RHGDE * SHGOHCL c IF (( DHgDT(IDHgOHCl).EQ.0.0).OR.(SHgOHCl.LE. 1.00D-30 ) )THEN c DTWHG(IDHgOHCl + NUMOX_v46 ) = DTRMV c ELSE c DTWHG(IDHgOHCl + NUMOX_v46 ) = .1* RHgdeI c END IF C Adsorption of Hg Species HgHY -> SHgHY DHGDT(ISHGHY) = RHGAD * HGHY c IF ((DHgDT(ISHgHY).EQ.0.0D+0 ) .OR. ( HgHY .LE. 1.00D-30 ) ) THEN c DTWHG(ISHgHY + NUMOX_v46 ) = DTRMV c ELSE c DTWHG(ISHgHY + NUMOX_v46 ) = .1* RHgadI c END IF C Desorption of Hg Species SHgHY -> HgHY DHGDT(IDHGHY) = RHGDE * SHGHY c IF ((DHgDT(IDHgHY) .EQ. 0.0 ).OR.( SHgHY .LE. 1.00D-30 ) ) THEN c DTWHG(IDHgHY + NUMOX_v46 ) = DTRMV c ELSE c DTWHG(IDHgHY + NUMOX_v46 ) = .1* RHgdeI c END IF C Adsorption of Hg Species HgII -> SHGII DHgDT(ISHgII) = RHgad * HgII c IF (( DHgDT(ISHgII).EQ.0.0 ) .OR. ( HgII .LE. 1.00D-30 ) ) THEN c DTWHG(ISHgII + NUMOX_v46 ) = DTRMV c ELSE c DTWHG(ISHgII + NUMOX_v46 ) = .1* RHgadI c END IF C Desorption of Hg Species SHgII -> HgII DHGDT(IDHGII) = RHGDE * SHGII c IF ((DHgDT(IDHgII) .EQ. 0.0 ).OR.( SHgII .LE. 1.00D-30 ) ) THEN c DTWHG(IDHgII + NUMOX_v46 ) = DTRMV c ELSE c DTWHG(IDHgII + NUMOX_v46 ) = .1* RHgdeI c END IF C Don't allow any aqeuous mercury species concentrations to become negative ! If the losses of HgII are greater than the produciton terms scale ! the losses to zero out the HgII concentration in the time step DTWHG_MIN = MINVAL(DTWHG) LOSS_HG_SPECIES = DHGDT(IHG_OX) + DHGDT(IOHRAD) + DHGDT(ICLI) IF ( HGL .LT. LOSS_HG_SPECIES * DTRMV ) THEN DHG_SCALE = HGL / ( LOSS_HG_SPECIES * DTRMV ) DHGDT(IHG_OX) = DHGDT(IHG_OX) * DHG_SCALE DHGDT(IOHRAD) = DHGDT(IOHRAD) * DHG_SCALE DHGDT(ICLI) = DHGDT(ICLI) * DHG_SCALE END IF LOSS_HG_SPECIES = DHGDT(IHGSO3) + DHGDT(ISHGSO3) IF ( HGSO3 .LT. LOSS_HG_SPECIES * DTRMV ) THEN DHG_SCALE = HGSO3 / ( LOSS_HG_SPECIES * DTRMV ) DHGDT(IHGSO3) = DHGDT(IHGSO3) * DHG_SCALE DHGDT(ISHGSO3) = DHGDT(ISHGSO3) * DHG_SCALE END IF LOSS_HG_SPECIES = DHGDT(IHGHY) + DHGDT(ISHGHY) IF ( HGHY .LT. LOSS_HG_SPECIES * DTRMV ) THEN DHG_SCALE = HGHY / ( LOSS_HG_SPECIES * DTRMV ) DHGDT(IHGHY) = DHGDT(IHGHY) * DHG_SCALE DHGDT(ISHGHY) = DHGDT(ISHGHY) * DHG_SCALE END IF LOSS_HG_SPECIES = DHGDT(IORGC) + DHGDT(ISHGII) IF ( HGII .LT. LOSS_HG_SPECIES * DTRMV ) THEN DHG_SCALE = HGII / ( LOSS_HG_SPECIES * DTRMV ) DHGDT(IORGC) = DHGDT(IORGC) * DHG_SCALE DHGDT(ISHGII) = DHGDT(ISHGII) * DHG_SCALE END IF LOSS_HG_SPECIES = DHGDT(IHGDISULF) + DHGDT(ISHGDISULF) IF ( HGDISULF .LT. LOSS_HG_SPECIES * DTRMV ) THEN DHG_SCALE = HGDISULF / ( LOSS_HG_SPECIES * DTRMV ) DHGDT(IHGDISULF) = DHGDT(IHGDISULF) * DHG_SCALE DHGDT(ISHGDISULF) = DHGDT(ISHGDISULF) * DHG_SCALE END IF LOSS_HG_SPECIES = DHGDT(IHGOHP) + DHGDT(ISHGOHP) IF ( HGOHP .LT. LOSS_HG_SPECIES * DTRMV ) THEN DHG_SCALE = HGOHP / ( LOSS_HG_SPECIES * DTRMV ) DHGDT(IHGOHP) = DHGDT(IHGOHP) * DHG_SCALE DHGDT(ISHGOHP) = DHGDT(ISHGOHP) * DHG_SCALE END IF LOSS_HG_SPECIES = DHGDT(IHGOHCL) + DHGDT(ISHGOHCL) IF ( HGOHCL .LT. LOSS_HG_SPECIES * DTRMV ) THEN DHG_SCALE = HGOHCL / ( LOSS_HG_SPECIES * DTRMV ) DHGDT(IHGOHCL) = DHGDT(IHGOHCL) * DHG_SCALE DHGDT(ISHGOHCL) = DHGDT(ISHGOHCL) * DHG_SCALE END IF LOSS_HG_SPECIES = DHGDT(IHGCL2) + DHGDT(ISHGCL2) IF ( HGCL2L .LT. LOSS_HG_SPECIES * DTRMV ) THEN DHG_SCALE = HGCL2L / ( LOSS_HG_SPECIES * DTRMV ) DHGDT(IHGCL2) = DHGDT(IHGCL2) * DHG_SCALE DHGDT(ISHGCL2) = DHGDT(ISHGCL2) * DHG_SCALE END IF DHGDT(IDHGSO3) = MIN( SHGSO3 / DTRMV, DHGDT(IDHGSO3) ) DHGDT(IDHGHY) = MIN( SHGHY / DTRMV, DHGDT(IDHGHY) ) DHGDT(IDHGII) = MIN( SHGII / DTRMV, DHGDT(IDHGII) ) DHGDT(IDHGCL2) = MIN( SHGCL2 / DTRMV, DHGDT(IDHGCL2) ) DHGDT(IDHGDISULF) = MIN( SHGDISULF / DTRMV, DHGDT(IDHGDISULF) ) DHGDT(IDHGOHP) = MIN( SHGOHP / DTRMV, DHGDT(IDHGOHP) ) DHGDT(IDHGOHCL) = MIN( SHGOHCL / DTRMV, DHGDT(IDHGOHCL) ) DHGDT(ISHGCL2) = MIN( HGCL2L / DTRMV, DHGDT(ISHGCL2) ) DHGDT(ISHGDISULF) = MIN( HGDISULF / DTRMV, DHGDT(ISHGDISULF) ) DHGDT(ISHGOHP) = MIN( HGOHP / DTRMV, DHGDT(ISHGOHP) ) DHGDT(ISHGOHCL) = MIN( HGOHCL / DTRMV, DHGDT(ISHGOHCL) ) END SUBROUTINE MERCURY_RATES END MODULE HG_AQCHEM_DATA ================================================ FILE: CCTM/src/cloud/acm_ae6_mp/rescld.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE RESCLD ( CGRID, JDATE, JTIME, TSTEP, & N_SPC_WDEP, WDEP_MAP, DEP, RESTRANS ) C----------------------------------------------------------------------- C FUNCTION: Resolved-scale CLOUD processor Models-3 science process: C Revision History: C No Date Who What C -- -------- --- ----------------------------------------- C 0 01/15/98 sjr created program C 1 03/09/98 sjr made several revisions: fix to read sub-hourly C rainfall data, reordered some of the code C 2 12/15/98 David Wong at LM C -- changed division of GPKG to multiplication of GPKG reciprocal C -- interchanged loops structure in line 317 C 3 03/18/99 David Wong at LM C -- replace "* M2PHA * ONE_OVER_GPKG" by "* M2PHA_OVER_GPKG" which C is a new constant defined as M2PHA / GPKG C 4 08/30/99 sjr revised for new aerosol model (with 2nd moments) C 5 Dec 00 Jeff move CGRID_MAP into f90 module C 6 01/04/01 sjr added QS and QI to total water content calcul. C 7 Sep 01 Jeff Dyn Alloc - Use HGRD_DEFN C 8 12/18/03 sjr & jp added QG in the water content calc C 9 07 Dec 04 J.Young: Vert Dyn Alloc - Use VGRD_DEFN C 10 31 Jan 05 J.Young: dyn alloc - establish both horizontal & vertical C domain specifications in one module C 11 25 Mar 08 sjr fixed bug in the precipitation flux calculation: C layer thickness now included in column integrated C water content and in precipitation flux C calculations (bug reported by Raymond D Wright) C 12 12 Aug 10 J.Young: replace CGRID mechanism include files with C namelists and merge Shawn Roselle's, Sergey Napelenok's C and Steve Howard's aerosol reengineering C 13 01 Mar 11 S.Roselle: replaced I/O API include files with UTILIO_DEFN; C removed deprecated TRIMLEN C 14 11 May D.Wong: incorporated twoway model implementation C 15 01 Jul 11 G. Sarwar: calculate zenith angle to determine daytime and C nightime needed for sulfur oxidation via metal catalysis C 16 02Aug12 S.Roselle: instrumented to calculate and return C transmissivity for resolved clouds C 07 Nov 14 J.Bash: Updated call to czangle.F for the ASX_DATA_MOD shared data module. C 07 May 18 D. Schwede: Removed call to CZANGLE. COSZEN now calculated in ASX_DATA_MOD C 1 Feb 19 D. Wong: Implemented centralized I/O approach, removed all MY_N C clauses C 01 AUG 19 D.Wong: Modified code to work with two-way model C 11 Nov 19 F. Sidi: Changed MSTEP to accomdate Centralized I/O changes C Called by: CLDPROC C Calls the following subroutines: SCAVWDEP and AQ_MAP C----------------------------------------------------------------------- USE GRID_CONF ! horizontal & vertical domain specifications USE CGRID_SPCS ! CGRID mechanism species USE UTILIO_DEFN USE AQ_DATA, ONLY: JH2O2_HYDROMETEORS, JHNO3_HYDROMETEORS USE HG_AQCHEM_DATA ! mercury chemistry parameters and constants USE ASX_DATA_MOD, ONLY: MET_DATA USE PHOT_MOD, ONLY: RJ, RJ_RES, RJ_SUB, LH2O2, LHNO3 USE CENTRALIZED_IO_MODULE IMPLICIT NONE C...........Includes: INCLUDE SUBST_CONST ! constants INCLUDE SUBST_FILES_ID ! file name parameters C...........Arguments: REAL, POINTER :: CGRID( :,:,:,: ) ! concentrations INTEGER, INTENT( IN ) :: JDATE ! current model date, coded YYYYDDD INTEGER, INTENT( IN ) :: JTIME ! current model time, coded HHMMSS INTEGER, INTENT( IN ) :: TSTEP( 3 ) ! model time steps, coded HHMMSS INTEGER, INTENT( IN ) :: N_SPC_WDEP ! # of wet deposition species INTEGER, INTENT( IN ) :: WDEP_MAP( : ) ! wet deposition species map to CGRID REAL, INTENT( INOUT ) :: DEP( :,:,: ) ! wet deposition REAL, INTENT( OUT ) :: RESTRANS( :,: ) ! resolved cloud transmissivity CHARACTER( 120 ) :: XMSG = ' ' ! Exit status message C...........Parameters: REAL, PARAMETER :: MINPERSEC = 1.0 / 60.0 REAL, PARAMETER :: GPKG = 1.0E+03 ! g/kg REAL, PARAMETER :: M2PHA = 1.0E+04 ! 1 hectare = 1.0e4 m**2 REAL, PARAMETER :: M2PHA_OVER_GPKG = M2PHA / GPKG C Number of species in CGRID INTEGER, SAVE :: MXSPCS C...........Local Variables: LOGICAL, SAVE :: FIRSTIME = .TRUE. ! flag for first pass thru CHARACTER( 16 ), SAVE :: PNAME = 'RESCLD' ! process name CHARACTER( 16 ), SAVE :: VNAME_RN INTEGER COL ! column loop counter INTEGER ROW ! row loop counter INTEGER LAY ! layer loop counter INTEGER FINI ! ending position INTEGER MDATE ! process date (yyyyddd) INTEGER, SAVE :: MSTEP ! met file time step (hhmmss) INTEGER MTIME ! process time (hhmmss) INTEGER, SAVE :: SDATE ! met file start date INTEGER SPC ! liquid species loop counter INTEGER STRT ! starting position INTEGER, SAVE :: STIME ! met file start time INTEGER TCLD ! cloud lifetime (sec) INTEGER VAR ! variable loop counter INTEGER ALLOCSTAT ! memory allocation status REAL AIRM ! total airmass (mol/m2) in cloudy air REAL ALFA0 ! aitken mode number scavenging coef REAL ALFA2 ! aitken mode sfc area scavenging coef REAL ALFA3 ! aitken mode mass scavenging coef REAL CTHK1 ! cloud thickness (m) REAL METSTEP ! timestep on the met file (hr) SAVE METSTEP REAL PBARC ! mean cloud pressure (Pa) REAL PRATE1 ! storm rainfall rate (mm/hr) REAL QCRGCOL ! vert column integrated liquid water content REAL QCRISGCOL ! vert column integrated total water content REAL QRSGCOL ! vert column integrated precip content REAL QCICOL ! vert column integrated cloud content REAL RAIN ! non-conv rainfall rate (mm/hr) REAL REMOVAC ! variable storing H+ deposition REAL TAUCLD ! cloud lifetime (sec) REAL TBARC ! mean cloud temp (K) REAL WCBAR ! liq water content of cloud (kg/m3) REAL WPBAR ! precipitation water content (kg/m3) REAL WTBAR ! total water content of cloud (kg/m3) REAL LWP, CLOD REAL, ALLOCATABLE, SAVE :: POLC ( : ) ! incloud conc (mol/mol) REAL, ALLOCATABLE, SAVE :: CEND ( : ) ! ending conc (mol/mol) REAL, ALLOCATABLE, SAVE :: REMOV( : ) ! moles/m2 or mm*mol/lit scavenged REAL RN ( NCOLS, NROWS ) ! non-convective rainfall (cm) REAL DENS ( NCOLS, NROWS, NLAYS ) ! air density (kg/m3) REAL DZZ ( NCOLS, NROWS, NLAYS ) ! layer thickness (m) REAL PRES ( NCOLS, NROWS, NLAYS ) ! air pressure (Pa) REAL QC ( NCOLS, NROWS, NLAYS ) ! cloud water content (kg/kg) REAL QG ( NCOLS, NROWS, NLAYS ) ! graupel content (kg/kg) REAL QI ( NCOLS, NROWS, NLAYS ) ! ice content (kg/kg) REAL QR ( NCOLS, NROWS, NLAYS ) ! rain water content (kg/kg) REAL QS ( NCOLS, NROWS, NLAYS ) ! snow content (kg/kg) REAL TA ( NCOLS, NROWS, NLAYS ) ! air temperature (K) REAL ZF ( NCOLS, NROWS, NLAYS ) ! level/layer-face height (m) C Gridded meteorology data: C Latitude and longitude for zenith angle calculation: Golam Sarwar * July 1, 2011 REAL COSZ ! local cosine of zenith angle REAL JH2O2 ! H2O2 photolysis rate, 1/min REAL JHNO3 ! HNO3 photolysis rate, 1/min LOGICAL DARK ! DARK = TRUE is night, DARK = FALSE is day C...........External Functions: INTERFACE SUBROUTINE SCAVWDEP ( JDATE, JTIME, WTBAR, WCBAR, TBARC, PBARC, & CTHK1, AIRM, PRATE1, TAUCLD, POLC, CEND, & REMOV, REMOVAC, ALFA0, ALFA2, ALFA3 ) INTEGER, INTENT( IN ) :: JDATE, JTIME REAL, INTENT( IN ) :: WTBAR, WCBAR, TBARC, PBARC, & CTHK1, AIRM, PRATE1, TAUCLD REAL, INTENT( IN ) :: POLC ( : ) REAL, INTENT( OUT ) :: REMOVAC REAL, INTENT( OUT ) :: CEND( : ), REMOV( : ) REAL, INTENT( OUT ) :: ALFA0, ALFA2, ALFA3 END SUBROUTINE SCAVWDEP SUBROUTINE AQ_MAP( JDATE, JTIME, WTBAR, WCBAR, TBARC, PBARC, & CTHK1, AIRM, PRATE1, TAUCLD, POLC, CEND, & REMOV, REMOVAC, ALFA0, ALFA2, ALFA3, DARK ) INTEGER, INTENT( IN ) :: JDATE, JTIME REAL, INTENT( IN ) :: WTBAR, WCBAR, TBARC, PBARC, & CTHK1, AIRM, PRATE1, TAUCLD REAL, INTENT( IN ) :: POLC ( : ) REAL, INTENT( INOUT ) :: REMOVAC REAL, INTENT( INOUT ) :: CEND( : ), REMOV( : ) REAL, INTENT( IN ) :: ALFA0, ALFA2, ALFA3 LOGICAL, INTENT( IN ) :: DARK !Golam Sarwar, July 1, 2011 END SUBROUTINE AQ_MAP END INTERFACE C----------------------------------------------------------------------- C...Initialization IF ( FIRSTIME ) THEN FIRSTIME = .FALSE. IF (RNA_AVAIL) THEN VNAME_RN = 'RNA' ELSE VNAME_RN = 'RN' END IF C...store met file time, date, and step information and compute C... the met timestep in hours SDATE = cio_model_sdate STIME = cio_model_stime MSTEP = file_tstep(f_met) METSTEP = FLOAT( TIME2SEC( MSTEP ) ) / 3600.0 IF ( .not. QI_AVAIL ) THEN XMSG = 'Parameter QI (cloud ice) was not found on file ' & // MET_CRO_3D CALL M3WARN ( PNAME, JDATE, JTIME, XMSG ) WRITE( LOGDEV, '(3(/10X,A),(/10X,3(A,1X)),(/10X,A))' ) & 'YOU SHOULD VERIFY that the cloud microphysics scheme used', & 'in the Meteorological Model did not include ice/snow. If', & 'it did, then you need to reprocess the meteorological data', & 'through MCIP and pass QI to file ', & TRIM( MET_CRO_3D ), ' to avoid', & 'errors in the wet deposition.' WRITE( LOGDEV, '((/5X,A),/)' ) & 'Processing will continue with QI set to ZERO. <<---<<' END IF IF ( .not. QS_AVAIL ) THEN XMSG = 'Parameter QS (snow) was not found on file ' // MET_CRO_3D CALL M3WARN ( PNAME, JDATE, JTIME, XMSG ) WRITE( LOGDEV, '(3(/10X,A),(/10X,3(A,1X)),(/10X,A))' ) & 'YOU SHOULD VERIFY that the cloud microphysics scheme used', & 'in the Meteorological Model did not include ice/snow. If', & 'it did, then you need to reprocess the meteorological data', & 'through MCIP and pass QS to file ', & TRIM( MET_CRO_3D ), ' to avoid', & 'errors in the wet deposition.' WRITE( LOGDEV, '((/5X,A),/)' ) & 'Processing will continue with QS set to ZERO. <<--<<' END IF MXSPCS = N_GC_SPCD + N_AE_SPC + N_NR_SPC + N_TR_SPC ALLOCATE ( CEND ( MXSPCS ), & POLC ( MXSPCS ), & REMOV( MXSPCS ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating CEND, POLC or REMOV' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF END IF ! FIRSTIME MDATE = JDATE MTIME = JTIME C...set the cloud lifetime (=adv timestep) TCLD = TIME2SEC( TSTEP( 2 ) ) TAUCLD = REAL( TCLD ) C...set time to the midpoint of this timestep for data interpolation CALL NEXTIME ( MDATE, MTIME, SEC2TIME( TCLD / 2 ) ) C...Actual Science Process (loop on internal process time steps): C... Interpolate time dependent layered input variables C... (reading those variables for which it is necessary) C... Get ambient temperature (K) call interpolate_var ('TA', mdate, mtime, TA) C...Get resolved cloud water mixing ratio (kg H2O / kg air) call interpolate_var ('QC', MDATE, MTIME, QC ) C...Get resolved rain water mixing ratio (kg H2O / kg air) call interpolate_var ('QR', MDATE, MTIME, QR ) C...read resolved ice mixing ratio (kg H2O / kg air) from the met C... file if it is available IF ( QI_AVAIL ) THEN call interpolate_var ('QI', MDATE, MTIME, QI ) ELSE QI = 0.0 ! otherwise fill the array with zeros END IF C...read resolved snow mixing ratio (kg H2O / kg air) from the met C... file if it is available IF ( QS_AVAIL ) THEN call interpolate_var ('QS', MDATE, MTIME, QS ) ELSE QS = 0.0 ! otherwise fill the array with zeros END IF C...read graupel mixing ratio (kg H2O / kg air) from the met C... file if it is available IF ( QG_AVAIL ) THEN call interpolate_var ('QG', MDATE, MTIME, QG ) ELSE QG = 0.0 ! otherwise fill the array with zeros END IF C...Get level heights / layer faces (m) call interpolate_var ('ZF', MDATE, MTIME, ZF ) C...Get pressure (Pa) call interpolate_var ('PRES', MDATE, MTIME, PRES ) C...Get air density (kg/m3) call interpolate_var ('DENS', MDATE, MTIME, DENS ) C...compute layer thicknesses (m) DO ROW = 1, NROWS DO COL = 1, NCOLS DZZ( COL, ROW, 1 ) = ZF( COL, ROW, 1 ) DO LAY = 2, NLAYS DZZ( COL, ROW, LAY ) = ZF( COL, ROW, LAY ) & - ZF( COL, ROW, LAY - 1 ) END DO END DO END DO C...advance the MDATE and MTIME to the next time on the met file C... to get ready to read the precipitation amounts. C... Precipitation data WILL NOT BE INTERPOLATED! Precipitation data C... on the input file are amounts within the metfiles timestep. IF ( .NOT. CURRSTEP( JDATE, JTIME, SDATE, STIME, MSTEP, & MDATE, MTIME ) ) THEN XMSG = 'Cannot get step-starting date and time' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT3 ) END IF CALL NEXTIME ( MDATE, MTIME, MSTEP ) ! set mdate:mtime to the hour C...Get nonconvective precipitation amount (cm) call interpolate_var (VNAME_RN, MDATE, MTIME, RN ) C...Loop through all grid cells DO ROW = 1, NROWS DO COL = 1, NCOLS C...Convert the rainfall into a rainfall rate (mm/hr) RAIN = 10.0 * RN( COL, ROW ) / METSTEP IF ( RAIN .LT. 0.0 ) THEN XMSG = 'NEGATIVE RAIN...PROBABLE BAD MET DATA...' & // MET_CRO_2D CALL M3EXIT ( PNAME, MDATE, MTIME, XMSG, XSTAT1 ) END IF C...calculate the integrated column cloud+rain water content C... JP & SJR: treat graupel as rainwater until we have a more C... advanced cloud microphysics scheme C... include layer thickness in the column integration QCRGCOL = 0.0 QCRISGCOL = 0.0 QRSGCOL = 0.0 QCICOL = 0.0 DO LAY = 1, NLAYS QC( COL, ROW, LAY ) = MAX( QC( COL, ROW, LAY ), 0.0 ) QR( COL, ROW, LAY ) = MAX( QR( COL, ROW, LAY ), 0.0 ) QI( COL, ROW, LAY ) = MAX( QI( COL, ROW, LAY ), 0.0 ) QS( COL, ROW, LAY ) = MAX( QS( COL, ROW, LAY ), 0.0 ) QG( COL, ROW, LAY ) = MAX( QG( COL, ROW, LAY ), 0.0 ) QCRGCOL = QCRGCOL + DENS( COL, ROW, LAY ) & * DZZ( COL, ROW, LAY ) & * ( QC( COL, ROW, LAY ) + QR( COL, ROW, LAY ) & + QG( COL, ROW, LAY ) ) QCRISGCOL = QCRISGCOL + DENS( COL, ROW, LAY ) & * DZZ( COL, ROW, LAY ) & * ( QC( COL, ROW, LAY ) + QR( COL, ROW, LAY ) & + QI( COL, ROW, LAY ) + QS( COL, ROW, LAY ) & + QG( COL, ROW, LAY ) ) QRSGCOL = QRSGCOL + DENS( COL, ROW, LAY ) & * DZZ( COL, ROW, LAY ) & * ( QR( COL, ROW, LAY ) + QS( COL, ROW, LAY ) & + QG( COL, ROW, LAY ) ) QCICOL = QCICOL + DENS( COL, ROW, LAY ) & * DZZ( COL, ROW, LAY ) & * ( QC( COL, ROW, LAY ) + QI( COL, ROW, LAY ) ) END DO C...Calculate the cloud optical depth using a formula derived from C... Stephens (1978), JAS(35), pp2111-2132. C... only calculate the cloud optical depth when the liquid water C... path is >= 10 g/m2 LWP = QCICOL * 1000.0 ! converts to g/m2 IF ( LWP .GE. 10.0 ) THEN CLOD = 10.0**( 0.2633 + 1.7095 * LOG( LOG10( LWP ) ) ) ELSE CLOD = 0.0 END IF C...If no cloud or optical depth < 5, set clear sky values. C... (i.e. don't do anything) IF ( CLOD .GE. 5.0 ) THEN RESTRANS( COL, ROW ) = ( 5.0 - EXP ( -CLOD ) ) / ( 4.0 + 0.42 * CLOD ) END IF C...loop through layers IF ( QCRGCOL .GT. 0.0 ) THEN DO LAY = 1, NLAYS C...Compute cloud quantities IF ( ( QC( COL, ROW, LAY ) + QR( COL, ROW, LAY ) & + QG( COL, ROW, LAY ) ) .GT. 0.00005 ) THEN TBARC = TA( COL, ROW, LAY ) PBARC = PRES( COL, ROW, LAY ) CTHK1 = DZZ( COL, ROW, LAY ) AIRM = PBARC * CTHK1 * 1.0E3 / ( RDGAS * MWAIR * TBARC ) WCBAR = ( QC( COL, ROW, LAY ) + QR( COL, ROW, LAY ) & + QG( COL, ROW, LAY ) ) * DENS( COL, ROW, LAY ) WTBAR = ( QC( COL, ROW, LAY ) + QR( COL, ROW, LAY ) & + QI( COL, ROW, LAY ) + QS( COL, ROW, LAY ) & + QG( COL, ROW, LAY ) ) * DENS( COL, ROW, LAY ) C...Compute precipitation flux C... include layer thickness in the calculation IF ( QRSGCOL .GT. 0.0 ) THEN WPBAR = ( QR( COL, ROW, LAY ) + QS( COL, ROW, LAY ) & + QG( COL, ROW, LAY ) ) * DENS( COL, ROW, LAY ) PRATE1 = RAIN * WPBAR * CTHK1 / QRSGCOL ! convert to mm/hr ELSE PRATE1 = RAIN * WTBAR * CTHK1 / QCRISGCOL ! convert to mm/hr END IF C...Finally, get in-cloud pollutant concentrations in moles sp C... per mole air DO SPC = 1, NSPCSD POLC ( SPC ) = CGRID( COL, ROW, LAY, SPC ) CEND ( SPC ) = POLC( SPC ) REMOV( SPC ) = 0.0 END DO C...perform scavenging and aqueous chemistry within the cloud C... and re-adjust the ending and removed amounts for those species C... that were scavenged or that participated in cloud chemistry CALL SCAVWDEP ( JDATE, JTIME, WTBAR, WCBAR, TBARC, & PBARC, CTHK1, AIRM, PRATE1, TAUCLD, & POLC, CEND, REMOV, REMOVAC, ALFA0, & ALFA2, ALFA3 ) C...if the liquid water content is above the specified threshold C... then perform the aqueous chemistry within the cloud and C... re-adjust the ending and removed amounts for those species C... that participated in cloud chemistry IF ( WCBAR .GT. 0.00001 ) THEN COSZ = MET_DATA%COSZEN( COL, ROW ) C... update variables used in hg_aqchem_data modules COSINE_ZENITH = REAL(COSZ, 8) IF ( COSZ .LE. 0.0 ) THEN DARK = .TRUE. ! night JH2O2_HYDROMETEORS = 0.0D0 JHNO3_HYDROMETEORS = 0.0D0 ELSE DARK = .FALSE. ! day JH2O2 = RJ_RES( COL, ROW, LAY, LH2O2 ) JHNO3 = RJ_RES( COL, ROW, LAY, LHNO3 ) JH2O2_HYDROMETEORS = REAL( JH2O2 * MINPERSEC, 8 ) JHNO3_HYDROMETEORS = REAL( JHNO3 * MINPERSEC, 8 ) END IF CALL AQ_MAP ( JDATE, JTIME, WTBAR, WCBAR, TBARC, & PBARC, CTHK1, AIRM, PRATE1, TAUCLD, & POLC, CEND, REMOV, REMOVAC, ALFA0, & ALFA2, ALFA3, DARK ) END IF C...convert from moles/m**2 to kg/m**2 and kg/m**2 to kg/hectare C... for gases SPC = 0 STRT = GC_STRT FINI = GC_STRT - 1 + N_GC_SPC DO VAR = STRT, FINI SPC = SPC + 1 REMOV( VAR ) = REMOV( VAR ) * GC_MOLWT( SPC ) & * M2PHA_OVER_GPKG END DO C... for aerosols SPC = 0 STRT = AE_STRT FINI = AE_STRT - 1 + N_AE_SPC DO VAR = STRT, FINI SPC = SPC + 1 IF (( INDEX( AE_SPC( SPC ), 'NUM' ) .EQ. 0 ) .AND. & ( INDEX( AE_SPC( SPC ), 'SRF' ) .EQ. 0 )) THEN REMOV( VAR ) = REMOV( VAR ) * AE_MOLWT( SPC ) & * M2PHA_OVER_GPKG ELSE REMOV( VAR ) = REMOV( VAR ) * M2PHA END IF END DO C... for non-reactives SPC = 0 STRT = NR_STRT FINI = NR_STRT - 1 + N_NR_SPC DO VAR = STRT, FINI SPC = SPC + 1 REMOV( VAR ) = REMOV( VAR ) * NR_MOLWT( SPC ) & * M2PHA_OVER_GPKG END DO C... for tracers SPC = 0 STRT = TR_STRT FINI = TR_STRT - 1 + N_TR_SPC DO VAR = STRT, FINI SPC = SPC + 1 REMOV( VAR ) = REMOV( VAR ) * TR_MOLWT( SPC ) & * M2PHA_OVER_GPKG END DO C...load deposition amounts into the DEP array DO VAR = 1, N_SPC_WDEP DEP( COL, ROW, VAR ) = DEP( COL, ROW, VAR ) & + REMOV( WDEP_MAP( VAR ) ) END DO C...load H+ concentration into the deposition array as well DEP( COL, ROW, N_SPC_WDEP+1 ) = & DEP( COL, ROW, N_SPC_WDEP+1 ) + REMOVAC C...set cgrid to the ending concentrations DO SPC = 1, NSPCSD IF ( SPC .NE. N_GC_SPCD ) THEN CGRID( COL, ROW, LAY, SPC ) = CEND( SPC ) END IF END DO END IF END DO END IF END DO ! col END DO ! row RETURN END ================================================ FILE: CCTM/src/cloud/acm_ae7_kmt2/AQ_DATA.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: Module aq_data C Defines gas and aerosol surrogate data. C this module replace the AQ_PARAMS.EXT include file C C Revision History: C First version was coded in May 2010 by Steve Howard with C Prakash Bhave, Jeff Young, and Sergey Napelenok. C Feb 2011: Steve Howard, Shawn Roselle, Prakash Bhave, Bill Hutzell - C Mar 2011: Sergey Napelenok - AE6 update for Ca/Mg/K/Fe/Mn C indexing, density, variable names C Mar 2011: Shawn Roselle, replaced I/O API include files with UTILIO_DEFN C Sep 2011: B.Hutzell: adapted for mercury and HAP mechanisms C Jun 2012: J.Young: remove full character blank padding for GNU Fortran (GCC) 4.1.2 C Jul 2014: K.Fahey: Added IEPOX/MAE/HMML and associated aerosol species C Oct 2014: B.Hutzell:forcing to skip mapping if aerosol species C index equals the values for H3OP species as for aerosol water C species C Aug 2018: K.Fahey: Added gas/aero species for KMT2 C----------------------------------------------------------------------- Use aero_data, Only: n_aerolist, n_aerospc, conmin Implicit None Integer, Parameter :: ngas = 29 ! number of gas-phase species for AQCHEM ! Integer, Parameter :: naddaer = 7 ! number of additional aerosol surrogate species for AQCHEM Integer, Parameter :: naddaer = 2 ! number of additional aerosol surrogate species for AQCHEM Integer, Parameter :: nadd_tx = 6 ! number of surrogates for HAPS aerosol species for AQCHEM Integer, Parameter :: nadd_i = 6 ! number of surrogates for AEI aerosol species for AQCHEM Integer, Parameter :: max_naer = n_aerolist + naddaer + nadd_tx + nadd_i ! max number aero surrogates Integer, Save :: naer ! number of aerosol surrogate species for AQCHEM Integer, Parameter :: nliqs = 55 ! number of liquid-phase species in AQCHEM Integer, Parameter :: nmodes = 3 ! number of aerosol modes Integer, Parameter :: mxsrg = 70 ! maximum number of species for surrogate integer, parameter :: akn = 1 ! number for Aitken mode Integer, Parameter :: acc = 2 ! number for Accumulation mode Integer, Parameter :: cor = 3 ! number for Coarse mode CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC C...Gas surrogates species CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC Type sur_gas_type Character( 16 ) :: name ! surrogate name Real :: backgnd ! background value End Type sur_gas_type Type ( sur_gas_type ), Parameter :: srggas( ngas ) = (/ C Name Background C ---------- ---------- & sur_gas_type( 'SO2 ', 0.0 ), & sur_gas_type( 'HNO3 ', 0.0 ), & sur_gas_type( 'N2O5 ', 0.0 ), & sur_gas_type( 'CO2 ', 340.0 ), & sur_gas_type( 'NH3 ', 0.0 ), & sur_gas_type( 'H2O2 ', 0.0 ), & sur_gas_type( 'O3 ', 0.0 ), & sur_gas_type( 'FOA ', 0.0 ), & sur_gas_type( 'MHP ', 0.0 ), & sur_gas_type( 'PAA ', 0.0 ), & sur_gas_type( 'H2SO4 ', 0.0 ), & sur_gas_type( 'HCL ', 0.0 ), & sur_gas_type( 'GLY ', 0.0 ), & sur_gas_type( 'MGLY ', 0.0 ), & sur_gas_type( 'HO ', 0.0 ), & sur_gas_type( 'IEPOX ', 0.0 ), & sur_gas_type( 'IMAE ', 0.0 ), & sur_gas_type( 'IHMML ', 0.0 ), & sur_gas_type( 'HO2 ', 0.0 ), & sur_gas_type( 'NO2 ', 0.0 ), & sur_gas_type( 'HONO ', 0.0 ), & sur_gas_type( 'HNO4 ', 0.0 ), & sur_gas_type( 'GCOL ', 0.0 ), & sur_gas_type( 'CCOOH ', 0.0 ), & sur_gas_type( 'HCHO ', 0.0 ), & sur_gas_type( 'NO3RAD ', 0.0 ), & sur_gas_type( 'CH3O2 ', 0.0 ), & sur_gas_type( 'HCHOP ', 0.0 ), & sur_gas_type( 'PYRUV ', 0.0 ) / ) C...Required gas species Character( 16 ), Parameter, Private :: req_so2 = 'SO2' Character( 16 ), Parameter, Private :: req_hno3 = 'HNO3' Character( 16 ), Parameter, Private :: req_n2o5 = 'N2O5' Character( 16 ), Parameter, Private :: req_co2 = 'CO2' Character( 16 ), Parameter, Private :: req_nh3 = 'NH3' Character( 16 ), Parameter, Private :: req_h2o2 = 'H2O2' Character( 16 ), Parameter, Private :: req_o3 = 'O3' Character( 16 ), Parameter, Private :: req_foa = 'FOA' Character( 16 ), Parameter, Private :: req_mhp = 'MHP' Character( 16 ), Parameter, Private :: req_paa = 'PAA' Character( 16 ), Parameter, Private :: req_h2so4 = 'H2SO4' Character( 16 ), Parameter, Private :: req_hcl = 'HCL' Character( 16 ), Parameter, Private :: req_gly = 'GLY' Character( 16 ), Parameter, Private :: req_mgly = 'MGLY' Character( 16 ), Parameter, Private :: req_ho = 'HO' Character( 16 ), Parameter, Private :: req_iepox = 'IEPOX' Character( 16 ), Parameter, Private :: req_imae = 'IMAE' Character( 16 ), Parameter, Private :: req_ihmml = 'IHMML' Character( 16 ), Parameter, Private :: req_ho2 = 'HO2' Character( 16 ), Parameter, Private :: req_no2 = 'NO2' Character( 16 ), Parameter, Private :: req_hono = 'HONO' Character( 16 ), Parameter, Private :: req_hno4 = 'HNO4' Character( 16 ), Parameter, Private :: req_gcol = 'GCOL' Character( 16 ), Parameter, Private :: req_ccooh = 'CCOOH' Character( 16 ), Parameter, Private :: req_hcho = 'HCHO' Character( 16 ), Parameter, Private :: req_no3rad = 'NO3RAD' Character( 16 ), Parameter, Private :: req_ch3o2 = 'CH3O2' Character( 16 ), Parameter, Private :: req_hchop = 'HCHOP' Character( 16 ), Parameter, Private :: req_pyruv = 'PYRUV' C...Pointers for the AQCHEM array GAS Integer :: lso2 ! Sulfur Dioxide Integer :: lhno3 ! Nitric Acid Integer :: ln2o5 ! Dinitrogen Pentoxide Integer :: lco2 ! Carbon Dioxide Integer :: lnh3 ! Ammonia Integer :: lh2o2 ! Hydrogen Peroxide Integer :: lo3 ! Ozone Integer :: lfoa ! Formic Acid Integer :: lmhp ! Methyl Hydrogen Peroxide Integer :: lpaa ! Peroxyacetic Acid Integer :: lh2so4 ! Sulfuric Acid Integer :: lhcl ! Hydrogen Chloride Integer :: lgly ! Glyoxal Integer :: lmgly ! Methylglyoxal Integer :: lho ! OH, hydroxyl radical Integer :: liepox ! Isoprene epoxydiols Integer :: limae ! Methacrylic acid epoxide Integer :: lihmml ! Hydroxymethyl-methyl-alpha-lactone Integer :: lho2 ! HO2 Integer :: lno2 ! NO2 Integer :: lhono ! HONO Integer :: lhno4 ! HNO4 Integer :: lgcol ! Glycolaldehyde Integer :: lccooh ! Acetic acid Integer :: lhcho ! Formaldehyde Integer :: lno3rad ! NO3 Integer :: lch3o2 ! CH3O2 Integer :: lhchop ! Primary Formaldehyde Integer :: lpyruv ! Pyruvic Acid CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC C...Aerosol surrogates species CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC Type sur_aer_type Character( 16 ) :: name( nmodes ) ! surrogate name Real :: backgnd ! background value Real :: molwt ! molecular weight Real :: density ! density [kg m-3] End Type sur_aer_type Type ( sur_aer_type ), Allocatable, Save :: srgaer( : ) C... Additional Aerosol surrogate species to add to aerosol list Type ( sur_aer_type ), private :: addsrgaer( naddaer ) = (/ C Aitken Accum Coarse Background MolWt Density C ------------- ------------- ------------- ---------- ----- ------ ! & sur_aer_type((/' ', ' ', 'CACO3 '/), 0.0, 100.1, 2200.0), ! & sur_aer_type((/' ', ' ', 'MGCO3 '/), 0.0, 84.3, 2200.0), ! & sur_aer_type((/' ', ' ', 'A3FE '/), 0.0, 55.8, 2000.0), ! & sur_aer_type((/' ', ' ', 'B2MN '/), 0.0, 54.9, 2000.0), ! & sur_aer_type((/' ', ' ', 'K '/), 0.0, 39.1, 2200.0), & sur_aer_type((/'NUM_AITKEN ', 'NUM_ACCUM ', 'NUM_COARSE '/), 0.0, 0.0, 1.0), & sur_aer_type((/'SRF_AITKEN ', 'SRF_ACCUM ', 'SRF_COARSE '/), 0.0, 0.0, 1.0)/) C...TX and other species added to Aerosol surrogate if not found in AE namelist file Type ( sur_aer_type ), private :: srgaer_addtx( nadd_tx ) = (/ C Aitken Accum Coarse Background MolWt Density C ------------- ------------- ------------- ---------- ----- ------ & sur_aer_type((/'TRACER_AITKEN ', ' ', ' '/), 0.0, 100.0, 2200.0), & sur_aer_type((/' ', 'TRACER_ACCUM ', ' '/), 0.0, 100.0, 2200.0), & sur_aer_type((/' ', ' ', 'TRACER_COARSE '/), 0.0, 100.0, 2200.0), & sur_aer_type((/'PHG_AITKEN ', ' ', ' '/), 0.0, 200.5, 2200.0), & sur_aer_type((/' ', 'PHG_ACCUM ', ' '/), 0.0, 200.5, 2200.0), & sur_aer_type((/' ', ' ', 'PHG_COARSE '/), 0.0, 200.5, 2200.0)/) C...I species added to Aerosol surrogate if not found in AE namelist file Type ( sur_aer_type ), private :: srgaer_addi( nadd_i ) = (/ C Aitken Accum Coarse Background MolWt Density C ------------- ------------- ------------- ---------- ----- ------ & sur_aer_type((/' ', 'IETET_ACCUM ', ' '/), 0.0, 136.15, 1400.0), & sur_aer_type((/' ', 'IEOS_ACCUM ', ' '/), 0.0, 216.2, 1400.0), & sur_aer_type((/' ', 'IMGA_ACCUM ', ' '/), 0.0, 120.1, 1400.0), & sur_aer_type((/' ', 'IMOS_ACCUM ', ' '/), 0.0, 200.16, 1400.0), & sur_aer_type((/' ', 'DIMER_ACCUM ', ' '/), 0.0, 248.23, 1400.0), & sur_aer_type((/' ', 'ISO3_ACCUM ', ' '/), 0.0, 168.2, 1400.0)/) C...Required aerosol species Character( 16 ), Parameter, Private :: req_aso4 = 'SO4_ACCUM' Character( 16 ), Parameter, Private :: req_anh4 = 'NH4_ACCUM' Character( 16 ), Parameter, Private :: req_ano3 = 'NO3_ACCUM' Character( 16 ), Parameter, Private :: req_asoa = 'SOA_ACCUM' Character( 16 ), Parameter, Private :: req_aorgc = 'AORGC_ACCUM' Character( 16 ), Parameter, Private :: req_apoa = 'POA_ACCUM' Character( 16 ), Parameter, Private :: req_aec = 'EC_ACCUM' Character( 16 ), Parameter, Private :: req_apri = 'PRI_ACCUM' ! Character( 16 ), Parameter, Private :: req_apric = 'PRI_COARSE' ! SLN 16March2011 Character( 16 ), Parameter, Private :: req_ana = 'NA_ACCUM' Character( 16 ), Parameter, Private :: req_acl = 'CL_ACCUM' Character( 16 ), Parameter, Private :: req_acaco3 = 'CACO3' Character( 16 ), Parameter, Private :: req_amgco3 = 'MGCO3' Character( 16 ), Parameter, Private :: req_aa3fe = 'A3FE' Character( 16 ), Parameter, Private :: req_ab2mn = 'B2MN' Character( 16 ), Parameter, Private :: req_ak = 'K' Character( 16 ), Parameter, Private :: req_num = 'NUM_ACCUM' Character( 16 ), Parameter, Private :: req_srf = 'SRF_ACCUM' Character( 16 ), Parameter, Private :: req_caacc = 'CA_ACCUM' ! SLN 16March2011 Character( 16 ), Parameter, Private :: req_mgacc = 'MG_ACCUM' ! SLN 16March2011 Character( 16 ), Parameter, Private :: req_kacc = 'K_ACCUM' ! SLN 16March2011 Character( 16 ), Parameter, Private :: req_feacc = 'FE_ACCUM' ! SLN 22March2011 Character( 16 ), Parameter, Private :: req_mnacc = 'MN_ACCUM' ! SLN 22March2011 Character( 16 ), Parameter, Private :: req_soilc = 'SOIL_COARSE' ! SLN 16March2011 Character( 16 ), Parameter, Private :: req_anthc = 'ANTH_COARSE' ! SLN 16March2011 Character( 16 ), Parameter, Private :: req_seasc = 'SEAS_COARSE' ! SLN 16March2011 Character( 16 ), Parameter, Private :: req_aietet = 'IETET_ACCUM' Character( 16 ), Parameter, Private :: req_aieos = 'IEOS_ACCUM' Character( 16 ), Parameter, Private :: req_adimer = 'DIMER_ACCUM' Character( 16 ), Parameter, Private :: req_aimga = 'IMGA_ACCUM' Character( 16 ), Parameter, Private :: req_aimos = 'IMOS_ACCUM' Character( 16 ), Parameter, Private :: req_aiso3 = 'ISO3_ACCUM' C...For TX version Character( 16 ), Parameter, Private :: req_traceri = 'TRACER_AITKEN' Character( 16 ), Parameter, Private :: req_tracerj = 'TRACER_ACCUM' Character( 16 ), Parameter, Private :: req_tracerk = 'TRACER_COARSE' Character( 16 ), Parameter, Private :: req_phgi = 'PHG_AITKEN' Character( 16 ), Parameter, Private :: req_phgj = 'PHG_ACCUM' Character( 16 ), Parameter, Private :: req_phgk = 'PHG_COARSE' C...Pointers for the AQCHEM array AEROSOL Integer :: lso4 ! Sulfate Integer :: lnh4 ! Ammonium Integer :: lno3 ! Nitrate Integer :: lsoa ! SOA Integer :: lorgc ! SOA (anthropogenic organic oligomers) Integer :: lpoa ! Primary organic aerosol Integer :: lec ! Elemental carbon Integer :: lpri ! Primary aerosol (Aitken and Accumulation) ! Integer :: lpricor ! Primary aerosol (coarse) Integer :: lna ! Sodium Integer :: lcl ! Chloride ion ! Integer :: lcaco3 ! Calcium Carbonate aerosol (place holder) ! Integer :: lmgco3 ! Magnesium Carbonate aerosol (place holder) ! Integer :: la3fe ! Iron aerosol (place holder) ! Integer :: lb2mn ! Manganese aerosol (place holder) ! Integer :: lk ! Potassium aerosol (Cl- tracked separately) (place holder) Integer :: lnum ! Number Integer :: lsrf ! Surface area C...TXHG aersosols Integer :: ltracer_akn ! Tracer aerosols (Aitken) Integer :: ltracer_acc ! Tracer aerosols (Accumulation) Integer :: ltracer_cor ! Tracer aerosols (Coarse) Integer :: lphg_akn ! Mercuric aerosols (Aitken and Accumulation) Integer :: lphg_acc ! Mercuric aerosols (Aitken and Accumulation) Integer :: lphg_cor ! Mercuric aerosols (Coarse) Integer :: lcaacc ! Ca in Accumulation mode (AE6) SLN 16March2011 Integer :: lmgacc ! Mg in Accumulation mode (AE6) SLN 16March2011 Integer :: lkacc ! K in Accumulation mode (AE6) SLN 16March2011 Integer :: lfeacc ! Fe in Accumulation mode (AE6) SLN 22March2011 Integer :: lmnacc ! Mn in Accumulation mode (AE6) SLN 22March2011 Integer :: lsoilc ! SOIL in Coarse mode (AE6) SLN 16March2011 Integer :: lanthc ! CORS in Coarse mode (AE6) SLN 16March2011 Integer :: lseasc ! SEAS in Coarse mode (AE6) SLN 16March2011 Integer :: lietet ! 2-Methyltetrols Integer :: lieos ! IEPOX-derived orgranosulfates Integer :: ldimer ! Dimers Integer :: limga ! 2-Methylglyceric acid Integer :: limos ! MAE/HMML-derived-organosulfates Integer :: liso3 ! AISO3 C...Pointers for the AQCHEM arrays LIQUID and WETDEP Integer, Parameter :: lacl = 01 ! Hydrogen ion Integer, Parameter :: lnh4accl = 02 ! Ammonium(attributed to accum. mode) Integer, Parameter :: lcacorl = 03 ! coarse mode Calcium Integer, Parameter :: lnaaccl = 04 ! Sodium Integer, Parameter :: lohl = 05 ! Hydroxyl radical Integer, Parameter :: lso4accl = 06 ! Sulfate (attributed to accumulation mode) Integer, Parameter :: lhso4accl = 07 ! bisulfate (attributed to accumulation mode) Integer, Parameter :: lso3l = 08 ! sulfite Integer, Parameter :: lhso3l = 09 ! bisulfite Integer, Parameter :: lso2l = 10 ! sulfur dioxide Integer, Parameter :: lco3l = 11 ! carbonate Integer, Parameter :: lhco3l = 12 ! bicarbonate Integer, Parameter :: lco2l = 13 ! carbon dioxide Integer, Parameter :: lno3accl = 14 ! nitrate(attributed to accumulation mode) Integer, Parameter :: lnh3l = 15 ! ammonia Integer, Parameter :: lclaccl = 16 ! chloride ion (attributed to accumulation mode) Integer, Parameter :: lh2o2l = 17 ! hydrogen peroxide Integer, Parameter :: lo3l = 18 ! ozone Integer, Parameter :: lfecorl = 19 ! iron Integer, Parameter :: lmncorl = 20 ! Manganese Integer, Parameter :: lal = 21 ! generalized anion associated with iron Integer, Parameter :: lfoal = 22 ! Formic acid Integer, Parameter :: lhco2l = 23 ! HCOO- ion Integer, Parameter :: lmhpl = 24 ! Methyl hydrogen peroxide Integer, Parameter :: lpaal = 25 ! Peroxyacidic acid Integer, Parameter :: lhcll = 26 ! Hydrogen chloride Integer, Parameter :: lpriml = 27 ! primary aerosol Integer, Parameter :: lmgcorl = 28 ! coarse mode Magnesium Integer, Parameter :: lkcorl = 29 ! coarse mode Potassium Integer, Parameter :: lbl = 30 ! generalized anion associated with manganese Integer, Parameter :: lhno3l = 31 ! nitric acid ! Integer, Parameter :: lprimcorl = 32 ! coarse-mode primary aerosol Integer, Parameter :: lnumcorl = 32 ! coarse-mode number Integer, Parameter :: lts6corl = 33 ! sulfate (attributed to coarse mode) Integer, Parameter :: lnacorl = 34 ! sodium (attributed to coarse mode) Integer, Parameter :: lclcorl = 35 ! chloride ion (attributed to coarse mode) Integer, Parameter :: lno3corl = 36 ! nitrate (attributed to coarse mode) Integer, Parameter :: lnh4corl = 37 ! ammonium (attributed to coarse mode) Integer, Parameter :: lsoal = 38 ! secondary organic aerosols Integer, Parameter :: lorgcl = 39 ! in-cloud soa integer, parameter :: lpoal = 40 ! primary organic aerosols Integer, Parameter :: lecl = 41 ! elemental carbon Integer, Parameter :: lglyl = 42 ! glyoxal Integer, Parameter :: lmglyl = 43 ! methylglyoxal Integer, Parameter :: lcaaccl = 44 ! accumulation mode Calcium (AE6) SLN 16March2011 Integer, Parameter :: lmgaccl = 45 ! accumulation mode Magnesium (AE6) SLN 16March2011 Integer, Parameter :: lkaccl = 46 ! accumulation mode Potassium (AE6) SLN 16March2011 Integer, Parameter :: lsoilcl = 47 ! coarse mode SOIL (AE6) SLN 16March2011 Integer, Parameter :: lanthcl = 48 ! coarse mode CORS (lol) (AE6) SLN 16March2011 Integer, Parameter :: lseascl = 49 ! coarse mode SEAS (AE6) SLN 16March2011 Integer, Parameter :: lfeaccl = 50 ! accumulation mode Iron (AE6) SLN 22March2011 Integer, Parameter :: lmnaccl = 51 ! accumulation mode Manganese (AE6) SLN 22March2011 C for TX version integer, parameter :: ltracerl = 52 ! TRACER integer, parameter :: ltracercorl = 53 ! Coarse-mode TRACER integer, parameter :: lphgfinel = 54 ! Fine-mode Mercury Tracer integer, parameter :: lphgcorl = 55 ! Coarse-mode Mercury Tracer Integer :: nsrggas( ngas ) ! # surrogates in CGRID for each gas Integer :: lsrggas( ngas,mxsrg ) Integer, Allocatable, Save :: nsrgaer( :,: ) ! # surrogates in CGRID for each aerosol Integer, Allocatable, Save :: lsrgaer( :,:,: ) Integer, Allocatable, Save :: aknsrg( :,: ) Integer, Allocatable, Save :: cgrid2aq_map( : ) ! allocated in AQ_DATA_INIT Character( 16 ), Allocatable, Save :: cgrid2aq_name( : ) ! allocated in AQ_DATA_INIT Real( 8 ) :: jh2o2_hydrometeors ! H2O2 photolysis rate in condensed water [sec-1] Real( 8 ) :: jhno3_hydrometeors ! HNO3 photolysis rate in condensed water [sec-1] Logical, Private, Save :: mapped = .False. Contains C------------------------------------------------------------------------ Subroutine aq_data_init() C Defines mapping from CGRID for species concentration and moments. C Revision History: C First version was coded in May 2010 by Steve Howard with C Prakash Bhave, Jeff Young, and Sergey Napelenok. C Jan 2017: Additional error check added to avoid array out of C bounds when additional aerosol species are added. HOT Pye. C----------------------------------------------------------------------- Use cgrid_spcs ! CGRID mechanism species Use utilio_defn Use aero_data Use phot_mod, Only: init_phot_shared ! set-up shared photolysis arrays Implicit None C Functions: Integer, External :: indexn C Local Variables: Character( 100 ) :: xmsg Character( 16 ), Allocatable, Save :: aename( : ) Character( 16 ), Allocatable, Save :: cgrid2aq( : ) Character( 10 ) :: bkground Integer :: igas Integer :: iaer Integer :: isrg Integer :: spc Integer :: mode Integer :: i Integer :: n Integer :: var Logical :: new, Jexist Integer :: lsrg( mxsrg ) Integer :: n_cgrid2aq Integer :: ios C Local Variable used to determine what optional TX to add to surrogates !Logical :: found_all_modes !Integer :: n_missing_tx !Integer :: n_which_txadd( nadd_tx ) CHARACTER(16) :: NAMEI, NAMEJ INTEGER LS2, LS1, LS3, LS4, ISRG2, ISRGI, IAERI, SPCI Logical, Save :: Firstcall = .True. C----------------------------------------------------------------------- If ( Firstcall ) Then Firstcall = .False. Else Return End if Call init_phot_shared() Allocate ( aename( n_ae_a2aq ), stat = ios ) If ( ios .Ne. 0 ) Then xmsg = '*** Error allocating aename' Call m3exit( 'aq_data_init', 0, 0, xmsg, xstat3 ) End If C...Build array of AE names that are mapped to AE_A2AQ Do spc = 1, n_ae_a2aq aename( spc ) = ae_spc( ae_a2aq_map( spc ) ) End Do C...Set number of species in CGRID and used in Aqueous module n_cgrid2aq = n_gc_g2aq + n_ae_a2aq + n_nr_n2aq + n_tr_t2aq ! Allocate ( cgrid2aq( n_cgrid2aq ), ! & cgrid2aq_map( n_cgrid2aq ), stat = ios ) ! If ( ios .Ne. 0 ) Then ! xmsg = '*** Error allocating cgrid2aq or cgrid2aq_map' ! Call m3exit( 'aq_data_init', 0, 0, xmsg, xstat3 ) ! End If Allocate ( cgrid2aq( n_cgrid2aq ), stat = ios ) If ( ios .Ne. 0 ) Then xmsg = '*** Error allocating cgrid2aq' Call m3exit( 'aq_data_init', 0, 0, xmsg, xstat3 ) End If Allocate ( cgrid2aq_map( n_cgrid2aq ), stat = ios ) If ( ios .Ne. 0 ) Then xmsg = '*** Error allocating cgrid2aq_map' Call m3exit( 'aq_data_init', 0, 0, xmsg, xstat3 ) End If Allocate ( cgrid2aq_name( n_cgrid2aq ), stat = ios ) If ( ios .Ne. 0 ) Then xmsg = '*** Error allocating cgrid2aq_name' Call m3exit( 'aq_data_init', 0, 0, xmsg, xstat3 ) End If C...Map aero species Call map_aero() naer = n_aerospc + naddaer + nadd_tx + nadd_i Allocate ( srgaer( naer ), stat = ios ) If ( ios .Ne. 0 ) Then xmsg = '*** Error allocating srgaer' Call m3exit( 'aq_data_init', 0, 0, xmsg, xstat3 ) End If Allocate ( nsrgaer( naer,nmodes ), stat = ios ) If ( ios .Ne. 0 ) Then xmsg = '*** Error allocating nsrgaer' Call m3exit( 'aq_data_init', 0, 0, xmsg, xstat3 ) End If Allocate ( lsrgaer( naer,nmodes,mxsrg ), stat = ios ) If ( ios .Ne. 0 ) Then xmsg = '*** Error allocating lsrgaer' Call m3exit( 'aq_data_init', 0, 0, xmsg, xstat3 ) End If Allocate ( aknsrg( naer,mxsrg ), stat = ios ) If ( ios .Ne. 0 ) Then xmsg = '*** Error allocating aknsrg' Call m3exit( 'aq_data_init', 0, 0, xmsg, xstat3 ) End If C...Populate optional aerosol surrogate species (e.g. C TRACER_AITKEN, TRACER_ACCUM, TRACER_COARSE, C PHG_AITKEN, PHG_ACCUM, PHG_COARSE ) Do spc = 1, nadd_tx srgaer( spc ) = srgaer_addtx( spc ) End Do Do var = 1, nadd_i spc = nadd_tx + var srgaer( spc ) = srgaer_addi( spc-nadd_tx ) End Do C...Initialize aerosol surrogate species from AERO_DATA table Do var = 1, n_aerospc spc = nadd_tx + nadd_i + var srgaer( spc ) = sur_aer_type( (/' ',' ',' '/), 0.0, 0.0, 0.0 ) ! Skip H2O, H2OP, and SOIL species If ( var .Eq. ah2o_idx .Or. var .Eq. ah3op_idx ) Then write(xmsg,'(4(A,1x))')'Skipping AQ surrogate for AEROSPC ', & aerospc( spc-nadd_tx-nadd_i )%name( 1:n_mode ) Call m3warn( 'aq_data_init', 0, 0, xmsg ) Cycle End if Do mode = 1, n_mode n = index1( aerospc( var )%name( mode ), n_ae_a2aq, aename ) If ( n .Gt. 0 ) Then ! Verify that surrogate is new new = .True. Do i = 1, spc If ( ae_a2aq( n ) .Eq. srgaer( i )%name( mode ) ) Then new = .False.; Exit End If Jexist = .false. ! Does J mode exist for a new I mode species? If ( mode .eq. 1) then spci = spc ls1 = len_trim(ae_a2aq(n)) ls2 = len_trim(srgaer(i)%name(2)) namei = ae_a2aq(n) namei = namei(1:ls1-7) ! Remove "_AITKEN" to get base name for I mode namej = srgaer(i)%name(2) namej = namej(1:ls2-6) ! Remove "_ACCUM" to get base name for J mode If (trim(namei) .eq. trim(namej)) then spci = i Jexist = .true.; Exit End If End If End Do If ( new ) Then If (Jexist) then srgaer( spci )%name( mode ) = ae_a2aq( n ) srgaer( spci )%density = aerospc( var )%density srgaer( spci )%molwt = aerospc_mw( var ) Else srgaer( spc )%name( mode ) = ae_a2aq( n ) srgaer( spc )%density = aerospc( var )%density srgaer( spc )%molwt = aerospc_mw( var ) End If End If End If End Do ! mode End Do ! spc C...Initialize aerosol moment surrogates (i.e. C NUM_AITKEN, NUM_ACCUM, NUM_COARSE, C SRF_AITKEB, SRF_ACCUM, SRF_COARSE ) Do n = 1, naddaer spc = n_aerospc + nadd_tx + nadd_i + n srgaer( spc ) = addsrgaer( n ) End Do #ifdef verbose_cloud C...write out SRGGAS and SRGAER to verify Write( logdev, 1005 )ngas Do spc = 1, ngas Write( logdev,1007 ) srggas( spc )%name, srggas( spc )%backgnd End Do Write( logdev,1009 ) naer Do spc = 1, naer Write( logdev,1111 ) srgaer( spc )%name, srgaer( spc )%density, & srgaer( spc )%molwt, srgaer( spc )%backgnd End Do #endif C...Prepare indices for aqueous species C...CGRID map to aqueous species pointers for the gases spc = 0 Do var = 1, n_gc_g2aq spc = spc + 1 cgrid2aq( spc ) = gc_g2aq( var ) cgrid2aq_map( spc ) = gc_g2aq_map( var ) + gc_strt - 1 cgrid2aq_name( spc ) = gc_spc( gc_g2aq_map( var ) ) End Do C...CGRID map to aqueous species pointers for the aerosols Do var = 1, n_ae_a2aq spc = spc + 1 cgrid2aq( spc ) = ae_a2aq( var ) cgrid2aq_map( spc ) = ae_a2aq_map( var ) + ae_strt - 1 cgrid2aq_name( spc ) = ae_spc( ae_a2aq_map( var ) ) End Do C...CGRID map to aqueous species pointers for the non-reactives Do var = 1, n_nr_n2aq spc = spc + 1 cgrid2aq( spc ) = nr_n2aq( var ) cgrid2aq_map( spc ) = nr_n2aq_map( var ) + nr_strt - 1 cgrid2aq_name( spc ) = nr_spc( nr_n2aq_map( var ) ) End Do C...CGRID map to aqueous species pointers for the tracers Do var = 1, n_tr_t2aq spc = spc + 1 cgrid2aq( spc ) = tr_t2aq( var ) cgrid2aq_map( spc ) = tr_t2aq_map( var ) + tr_strt - 1 cgrid2aq_name( spc ) = tr_spc( tr_t2aq_map( var ) ) End Do write(logdev, 1114) C...Create the pointers from CGRID to the gaseous species needed by AQCHEM nsrggas = 0 aknsrg = 0 Do igas = 1, ngas nsrggas( igas ) = indexn( srggas( igas )%name, n_cgrid2aq, cgrid2aq, lsrg ) If ( nsrggas( igas ) .Eq. 0 ) Then Write ( bkground, '(F8.4)' ) srggas( igas )%backgnd xmsg = trim( srggas( igas )%name ) & // ' is not in GC or NR namelist so using background value of ' & // trim( bkground ) Call m3mesg( xmsg ) Else Do isrg = 1, nsrggas( igas ) lsrggas( igas,isrg ) = lsrg( isrg ) #ifdef verbose_cloud write( logdev,1113 ) cgrid2aq_name( lsrggas( igas,isrg ) ), & cgrid2aq_map( lsrggas( igas,isrg ) ), srggas( igas )%name, & igas,lsrggas( igas,isrg ) #endif End Do End If End Do C...Create the pointers from CGRID to the aerosol species needed by AQCHEM nsrgaer = 0 write(logdev, 1114) Do iaer = 1, naer Do n = 1, nmodes If ( srgaer( iaer )%name( n ) .Ne. ' ' ) Then nsrgaer( iaer,n ) = indexn( srgaer( iaer )%name( n ), n_cgrid2aq, & cgrid2aq, lsrg ) If ( nsrgaer( iaer,n ) .Eq. 0 ) Then Write ( bkground, '(f8.4)' ) srgaer( iaer )%backgnd xmsg = trim( srgaer( iaer )%name( n ) ) & // ' is not in AE namelist so using background value of ' & // trim( bkground ) Call m3mesg( xmsg ) Else Do isrg = 1, nsrgaer( iaer,n ) If ( isrg .Gt. mxsrg ) Then xmsg = 'lsrg will index out of bounds. Increase mxsrg in AQ_DATA.F' Call m3exit( 'AQ_DATA', 0, 0, xmsg, xstat3 ) End If lsrgaer( iaer,n,isrg ) = lsrg( isrg ) #ifdef verbose_cloud write( logdev,1113 ) cgrid2aq_name( lsrgaer( iaer,n,isrg ) ), & cgrid2aq_map( lsrgaer( iaer,n,isrg ) ), srgaer( iaer )%name( n ), & iaer, lsrgaer( iaer,n,isrg ) #endif End Do End If End If End Do End Do C...Create the pointers for required gas surrogate species needed by AQCHEM lso2 = findSgrGas( req_so2 ) ! Sulfur Dioxide lhno3 = findSgrGas( req_hno3 ) ! Nitric Acid ln2o5 = findSgrGas( req_n2o5 ) ! Dinitrogen Pentoxide lco2 = findSgrGas( req_co2 ) ! Carbon Dioxide lnh3 = findSgrGas( req_nh3 ) ! Ammonia lh2o2 = findSgrGas( req_h2o2 ) ! Hydrogen Perioxide lo3 = findSgrGas( req_o3 ) ! Ozone lfoa = findSgrGas( req_foa ) ! Formic Acid lmhp = findSgrGas( req_mhp ) ! Methyl Hydrogen Peroxide lpaa = findSgrGas( req_paa ) ! Peroxyacidic Acid lh2so4 = findSgrGas( req_h2so4 ) ! Sulfuric Acid lhcl = findSgrGas( req_hcl ) ! Hydrogen Chloride lgly = findSgrGas( req_gly ) ! Glyoxal lmgly = findSgrGas( req_mgly ) ! Methylglyoxal lho = findSgrGas( req_ho ) ! OH, hydroxyl radical liepox = findSgrGas( req_iepox ) ! Isoprene epoxydiols limae = findSgrGas( req_imae ) ! Methacrylic acid epoxide lihmml = findSgrGas( req_ihmml ) ! Hydroxymethyl-methyl-alpha-lactone lho2 = findSgrGas( req_ho2 ) ! HO2 lno2 = findSgrGas( req_no2 ) ! NO2 lhono = findSgrGas( req_hono ) ! HONO lhno4 = findSgrGas( req_hno4 ) ! HNO4 lgcol = findSgrGas( req_gcol ) ! Glycolaldehyde lccooh = findSgrGas( req_ccooh ) ! Acetic acid lhcho = findSgrGas( req_hcho ) ! Formaldehyde lno3rad = findSgrGas( req_no3rad ) ! NO3 lch3o2 = findSgrGas( req_ch3o2 ) ! CH3O2 lhchop = findSgrGas( req_hchop ) ! Primary formaldehyde lpyruv = findSgrGas( req_pyruv ) ! Pyruvic acid C...Create the pointers for required aerosol surrogate species needed by AQCHEM lso4 = findSgrAer( req_aso4 ) ! Sulfate lnh4 = findSgrAer( req_anh4 ) ! Ammonium lno3 = findSgrAer( req_ano3 ) ! Nitrate lsoa = findSgrAer( req_asoa ) ! SOA lorgc = findSgrAer( req_aorgc ) ! SOA (anthropogenic organic oligomers) lpoa = findSgrAer( req_apoa ) ! Primary organic aerosol lec = findSgrAer( req_aec ) ! Elemental carbon lpri = findSgrAer( req_apri ) ! Primary aerosol (Aitken and Accumulation) ! lpricor= findSgrAer( req_apric ) ! Primary aerosol (coarse) lna = findSgrAer( req_ana ) ! Sodium lcl = findSgrAer( req_acl ) ! Chloride ion ! lcaco3 = findSgrAer( req_acaco3 ) ! Calcium Carbonate aerosol (place holder) ! lmgco3 = findSgrAer( req_amgco3 ) ! Magnesium Carbonate aerosol (place holder) ! la3fe = findSgrAer( req_aa3fe ) ! Iron aerosol (place holder) ! lb2mn = findSgrAer( req_ab2mn ) ! Manganese aerosol (place holder) ! lk = findSgrAer( req_ak ) ! Potassium aerosol (Cl- tracked separately) lnum = findSgrAer( req_num ) ! Number lsrf = findSgrAer( req_srf ) ! Surface area lcaacc = findSgrAer( req_caacc ) ! Ca in Accumulation mode (AE6) SLN 16March2011 lmgacc = findSgrAer( req_mgacc ) ! Mg in Accumulation mode (AE6) SLN 16March2011 lkacc = findSgrAer( req_kacc ) ! K in Accumulation mode (AE6) SLN 16March2011 lfeacc = findSgrAer( req_feacc ) ! Fe in Accumulation mode (AE6) SLN 22March2011 lmnacc = findSgrAer( req_mnacc ) ! Mn in Accumulation mode (AE6) SLN 22March2011 lsoilc = findSgrAer( req_soilc ) ! SOIL in Coarse mode (AE6) SLN 16March2011 lanthc = findSgrAer( req_anthc ) ! CORS in Coarse mode (AE6) SLN 16March2011 lseasc = findSgrAer( req_seasc ) ! SEAS in Coarse mode (AE6) SLN 16March2011 lietet = findSgrAer( req_aietet ) ! 2-Methyltetrols lieos = findSgrAer( req_aieos ) ! IEPOX-derived orgranosulfates ldimer = findSgrAer( req_adimer ) ! Dimers limga = findSgrAer( req_aimga ) ! 2-Methylglyceric acid limos = findSgrAer( req_aimos ) ! MAE/HMML-derived-organosulfates liso3 = findSgrAer( req_aiso3 ) ! 2-Methyltetrols etc C...For TXHG version ltracer_akn = findSgrAer( req_traceri ) ! Tracer aitken mode ltracer_acc = findSgrAer( req_tracerj ) ! Tracer accumation mode ltracer_cor = findSgrAer( req_tracerk ) ! Tracer coarse mode lphg_akn = findSgrAer( req_phgi ) ! Mercuric aitken and accumulation modes lphg_acc = findSgrAer( req_phgj ) ! Mercuric aitken and accumulation modes lphg_cor = findSgrAer( req_phgk ) ! Mercuric coarse mode mapped = .True. C...Match ACC mode surrogate indices to their AKN mode counterparts DO IAER = 1, NAER DO ISRG = 1, NSRGAER( IAER,2 ) NAMEJ = CGRID2AQ_NAME( LSRGAER( IAER,2,ISRG ) ) LS1 = LEN_TRIM(NAMEJ) LS2 = 0 DO I = 1, LS1 IF(NAMEJ(I:I) .NE. ' ') THEN LS2 = LS2+1 END IF END DO ISRGI = 0 IF(IAER .EQ. LTRACER_ACC) THEN IAERI = LTRACER_AKN ELSE IAERI = IAER END IF LOOP_SRGI: DO ISRG2 = 1, NSRGAER( IAERI, 1 ) NAMEI = CGRID2AQ_NAME( LSRGAER( IAERI,1,ISRG2 ) ) LS3 = LEN_TRIM(NAMEI) LS4 = 0 DO I = 1, LS3 IF(NAMEI(I:I) .NE. ' ') THEN LS4 = LS4+1 END IF END DO IF( TRIM(NAMEJ(1:LS2-1)) .EQ. TRIM(NAMEI(1:LS4-1)) ) THEN ISRGI = ISRG2 EXIT LOOP_SRGI END IF END DO LOOP_SRGI AKNSRG(IAER, ISRG) = ISRGI END DO END DO #ifdef verbose_cloud Write( logdev,'( /5x, a )' ) 'AQCHEM gas surrogate species' Write( logdev,'( 5x, a, i4 )' ) 'lso2: ', lso2 Write( logdev,'( 5x, a, i4 )' ) 'lhno3: ', lhno3 Write( logdev,'( 5x, a, i4 )' ) 'ln2o5: ', ln2o5 Write( logdev,'( 5x, a, i4 )' ) 'lco2: ', lco2 Write( logdev,'( 5x, a, i4 )' ) 'lnh3: ', lnh3 Write( logdev,'( 5x, a, i4 )' ) 'lh2o2: ', lh2o2 Write( logdev,'( 5x, a, i4 )' ) 'lo3: ', lo3 Write( logdev,'( 5x, a, i4 )' ) 'lfoa: ', lfoa Write( logdev,'( 5x, a, i4 )' ) 'lmhp: ', lmhp Write( logdev,'( 5x, a, i4 )' ) 'lpaa: ', lpaa Write( logdev,'( 5x, a, i4 )' ) 'lh2so4: ', lh2so4 Write( logdev,'( 5x, a, i4 )' ) 'lhcl: ', lhcl Write( logdev,'( 5x, a, i4 )' ) 'lgly: ', lgly Write( logdev,'( 5x, a, i4 )' ) 'lmgly: ', lmgly Write( logdev,'( 5x, a, i4 )' ) 'lho: ', lho Write( logdev,'( 5x, a, i4 )' ) 'liepox: ', liepox Write( logdev,'( 5x, a, i4 )' ) 'limae: ', limae Write( logdev,'( 5x, a, i4 )' ) 'lihmml: ', lihmml Write( logdev,'( 5x, a, i4 )' ) 'lho2: ', lho2 Write( logdev,'( 5x, a, i4 )' ) 'lno2: ', lno2 Write( logdev,'( 5x, a, i4 )' ) 'lhono: ', lhono Write( logdev,'( 5x, a, i4 )' ) 'lhno4: ', lhno4 Write( logdev,'( 5x, a, i4 )' ) 'lgcol: ', lgcol Write( logdev,'( 5x, a, i4 )' ) 'lccooh: ', lccooh Write( logdev,'( 5x, a, i4 )' ) 'lhcho: ', lhcho Write( logdev,'( 5x, a, i4 )' ) 'lno3rad: ', lno3rad Write( logdev,'( 5x, a, i4 )' ) 'lch3o2: ', lch3o2 Write( logdev,'( 5x, a, i4 )' ) 'lhchop: ', lhchop Write( logdev,'( 5x, a, i4 )' ) 'lpyruv: ', lpyruv Write( logdev,'( /5x, a )' ) 'AQCHEM aer osol surrogate species' Write( logdev,'( 5x, a, i4 )' ) 'lso4: ', lso4 Write( logdev,'( 5x, a, i4 )' ) 'lnh4: ', lnh4 Write( logdev,'( 5x, a, i4 )' ) 'lno3: ', lno3 Write( logdev,'( 5x, a, i4 )' ) 'lsoa: ', lsoa Write( logdev,'( 5x, a, i4 )' ) 'lorgc: ', lorgc Write( logdev,'( 5x, a, i4 )' ) 'lpoa: ', lpoa Write( logdev,'( 5x, a, i4 )' ) 'lec: ', lec Write( logdev,'( 5x, a, i4 )' ) 'lpri: ', lpri Write( logdev,'( 5x, a, i4 )' ) 'lna: ', lna Write( logdev,'( 5x, a, i4 )' ) 'lcl: ', lcl Write( logdev,'( 5x, a, i4 )' ) 'lnum: ', lnum Write( logdev,'( 5x, a, i4 )' ) 'lsrf: ', lsrf Write( logdev,'( 5x, a, i4 )' ) 'lcaacc: ', lcaacc Write( logdev,'( 5x, a, i4 )' ) 'lmgacc: ', lmgacc Write( logdev,'( 5x, a, i4 )' ) 'lkacc: ', lkacc Write( logdev,'( 5x, a, i4 )' ) 'lfeacc: ', lfeacc Write( logdev,'( 5x, a, i4 )' ) 'lmnacc: ', lmnacc Write( logdev,'( 5x, a, i4 )' ) 'lsoilc: ', lsoilc Write( logdev,'( 5x, a, i4 )' ) 'lanthc: ', lanthc Write( logdev,'( 5x, a, i4 )' ) 'lseasc: ', lseasc Write( logdev,'( 5x, a, i4 )' ) 'lietet: ', lietet Write( logdev,'( 5x, a, i4 )' ) 'lieos: ', lieos Write( logdev,'( 5x, a, i4 )' ) 'ldimer: ', ldimer Write( logdev,'( 5x, a, i4 )' ) 'limga: ', limga Write( logdev,'( 5x, a, i4 )' ) 'limos: ', limos Write( logdev,'( 5x, a, i4 )' ) 'liso3: ', liso3 Write( logdev,'( 5x, a, i4 )' ) 'ltracer_akn: ', ltracer_akn Write( logdev,'( 5x, a, i4 )' ) 'ltracer_acc: ', ltracer_acc Write( logdev,'( 5x, a, i4 )' ) 'ltracer_cor: ', ltracer_cor Write( logdev,'( 5x, a, i4 )' ) 'lphg_akn: ', lphg_akn Write( logdev,'( 5x, a, i4 )' ) 'lphg_acc: ', lphg_acc Write( logdev,'( 5x, a, i4 )' ) 'lphg_cor: ', lphg_cor #endif Write( logdev,'( / 5x, a / )' ) ' --- AQCHEM Gas and Aerosol Species Mapped ---' 1005 Format( / "GASES" / "NGAS = ", i3 / " name "," backgrd" // ) 1007 Format( a16, 1x, f8.2 ) 1009 Format( / "AEROSOLS" / "NAER = ", i3 / " name(1) ", " name(2) ", & " name(3) ", " dens ", " backgrd" // ) 1111 Format( 3(a16,1x), f6.0, 2(1x, f8.2) ) 1113 Format( a16, 1x, i4, 1x, a16, 1x, i4, 1x, i4) 1114 Format( / " CGRID_SPC ", 1x, "SPC ", 1x, " SURROGATE ", 1x, "ISRG", 1x, "IDX " ) Return End Subroutine aq_data_init C----------------------------------------------------------------------- Function findSgrGas( vname ) Result ( idx ) C Finds the index of 'required' gas surrogate species in the srggas list C Revision History: C First version was coded in April 2010 by Steve Howard with C Prakash Bhave, Jeff Young, and Sergey Napelenok. C----------------------------------------------------------------------- Use utilio_defn Implicit None C Arguments: Character( 16 ) :: vname Integer idx C Local Variables: Character( 80 ) :: xmsg Integer spc Do spc = 1, ngas If ( srggas( spc )%name .Eq. vname ) Then idx = spc ! Write( *,'(a,i5)' ) vname, idx Return End If End Do xmsg = 'Required Species ' // Trim( vname ) // ' Not found in SgrGas names array' Call m3exit( 'AQ_DATA', 0, 0, xmsg, xstat3 ) Return End Function findSgrGas C----------------------------------------------------------------------- Function findSgrAer( vname ) Result ( idx ) C Finds the index of 'required' Aerosol surrogate species in the srgaer list C Revision History: C First version was coded in April 2010 by Steve Howard with C Prakash Bhave, Jeff Young, and Sergey Napelenok. C----------------------------------------------------------------------- Use utilio_defn Implicit None C Arguments: Character( 16 ) :: vname Integer idx C Local Variables: Character( 80 ) :: xmsg Integer spc, n Do spc = 1, naer Do n = 1, nmodes ! Write( *,'(a,i5)' ) vname, spc If ( srgaer( spc )%name( n ) .Eq. vname ) Then idx = spc ! Write( *,'(a,i5)' ) vname, idx Return End If End Do End Do xmsg = 'Required Species ' // Trim( vname ) // ' Not found in SgrAer names array' Call m3exit( 'AQ_DATA', 0, 0, xmsg, xstat3 ) Return End Function findSgrAer C----------------------------------------------------------------------- Subroutine set_aeconcmin( aeconcmin ) C----------------------------------------------------------------------- C C Function: C set minimum concentrations for aerosol species C routine called from convcld_acm C C Preconditions: C Dates and times represented YYYYDDD:HHMMSS. C C Revision History: C 5/05 copied code from aero_depv to begin subroutine C 4/08 J.Kelly: added code to set min for coarse surface area C 21 Jun 10 J.Young: convert for Namelist redesign C----------------------------------------------------------------------- Use cgrid_spcs ! CGRID mechanism species Use aero_data Use utilio_defn Implicit None C..Includes: Include SUBST_CONST ! constants C..Functions: C..Parameters: C..Arguments: Real, Intent( Out ) :: aeconcmin( : ) ! array of minimum concentrations C..Local Variables: !Character( 16 ) :: pname = 'SET_AECONCMIN' ! program name Integer m ! mode loop counter Integer n ! aerospc loop counter Integer spc ! species loop counter ! compute minimums for numbers and surfaces Do m = 1, n_mode spc = index1( aeromode( m )%num_name, n_ae_spc, ae_spc ) aeconcmin( spc ) = aeromode_minNum( m ) * mwair * 1.0E-3 spc = index1( aeromode( m )%srf_name, n_ae_spc, ae_spc ) aeconcmin( spc ) = aeromode_minM2( m ) * mwair * 1.0E-3 End Do ! compute minimums for aerosol species Do m = 1, n_mode Do n = 1, n_aerospc If ( .NOT. aero_missing(n,m) ) Then spc = index1( aerospc( n )%name( m ), n_ae_spc, ae_spc ) If ( spc .Ne. 0 ) Then aeconcmin( spc ) = aerospc( n )%min_conc( m ) * mwair * 1.0E-9 / ae_molwt( spc ) End If End If End Do End Do Return End Subroutine set_aeconcmin End Module aq_data ================================================ FILE: CCTM/src/cloud/acm_ae7_kmt2/aqchem_Function.F90 ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ! ! The ODE Function of Chemical Model File ! ! Generated by KPP-2.2.3 symbolic chemistry Kinetics PreProcessor ! (http://www.cs.vt.edu/~asandu/Software/KPP) ! KPP is distributed under GPL, the general public licence ! (http://www.gnu.org/copyleft/gpl.html) ! (C) 1995-1997, V. Damian & A. Sandu, CGRER, Univ. Iowa ! (C) 1997-2005, A. Sandu, Michigan Tech, Virginia Tech ! With important contributions from: ! M. Damian, Villanova University, USA ! R. Sander, Max-Planck Institute for Chemistry, Mainz, Germany ! ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ MODULE aqchem_Function USE aqchem_Parameters IMPLICIT NONE ! A - Rate for each equation REAL(kind=dp) :: A(NREACT) CONTAINS ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ! ! Fun - time derivatives of variables - Agregate form ! Arguments : ! V - Concentrations of variable species (local) ! F - Concentrations of fixed species (local) ! RCT - Rate constants (local) ! Vdot - Time derivative of variable species concentrations ! ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ SUBROUTINE Fun ( V, F, RCT, Vdot ) ! V - Concentrations of variable species (local) REAL(kind=dp) :: V(NVAR) ! F - Concentrations of fixed species (local) REAL(kind=dp) :: F(NFIX) ! RCT - Rate constants (local) REAL(kind=dp) :: RCT(NREACT) ! Vdot - Time derivative of variable species concentrations REAL(kind=dp) :: Vdot(NVAR) ! Computation of equation rates A(1) = RCT(1)*V(100) A(2) = RCT(2)*V(86) A(3) = RCT(3)*V(87) A(4) = RCT(4)*V(88) A(5) = RCT(5)*V(85) A(6) = RCT(6)*V(89) A(7) = RCT(7)*V(90) A(8) = RCT(8)*V(91) A(9) = RCT(9)*V(92) A(10) = RCT(10)*V(93) A(11) = RCT(11)*V(94) A(12) = RCT(12)*V(95) A(13) = RCT(13)*V(82) A(14) = RCT(14)*V(96) A(15) = RCT(15)*V(74) A(16) = RCT(16)*V(97) A(17) = RCT(17)*V(145) A(18) = RCT(18)*V(107) A(19) = RCT(19)*V(125) A(20) = RCT(20)*V(108) A(21) = RCT(21)*V(146) A(22) = RCT(22)*V(158) A(23) = RCT(23)*V(142) A(24) = RCT(24)*V(121) A(25) = RCT(25)*V(122) A(26) = RCT(26)*V(111) A(27) = RCT(27)*V(106) A(28) = RCT(28)*V(113) A(29) = RCT(29)*V(155) A(30) = RCT(30)*V(159) A(31) = RCT(31)*V(126) A(32) = RCT(32)*V(150) A(33) = RCT(33)*V(1) A(34) = RCT(34)*V(2) A(35) = RCT(35)*V(3) A(36) = RCT(36)*V(4) A(37) = RCT(37)*V(5) A(38) = RCT(38)*V(6) A(39) = RCT(39)*V(7) A(40) = RCT(40)*V(8) A(41) = RCT(41)*V(145) A(42) = RCT(42)*V(157) A(43) = RCT(43)*V(107) A(44) = RCT(44)*V(125) A(45) = RCT(45)*V(115) A(46) = RCT(46)*V(108) A(47) = RCT(47)*V(142) A(48) = RCT(48)*V(111) A(49) = RCT(49)*F(1) A(50) = RCT(50)*V(110) A(51) = RCT(51)*V(124) A(52) = RCT(52)*V(155) A(53) = RCT(53)*V(126) A(54) = RCT(54)*V(150) A(55) = RCT(55)*V(156)*V(157) A(56) = RCT(56)*V(156)*V(160) A(57) = RCT(57)*V(147)*V(156) A(58) = RCT(58)*V(115)*V(156) A(59) = RCT(59)*V(114)*V(156) A(60) = RCT(60)*V(109)*V(153) A(61) = RCT(61)*V(138)*V(156) A(62) = RCT(62)*V(112)*V(156) A(63) = RCT(63)*V(153)*V(156) A(64) = RCT(64)*V(124)*V(156) A(65) = RCT(65)*V(154)*V(156) A(66) = RCT(66)*V(151)*V(156) A(67) = RCT(67)*V(152)*V(156) A(68) = RCT(68)*V(130)*V(156) A(69) = RCT(69)*V(146)*V(156)*V(157) A(70) = RCT(70)*V(145)*V(158) A(71) = RCT(71)*V(157)*V(158) A(72) = RCT(72)*V(158)*V(160) A(73) = RCT(73)*V(14)*V(145) A(74) = RCT(74)*V(14)*V(157) A(75) = RCT(75)*V(14)*V(160) A(76) = RCT(76)*V(13)*V(145) A(77) = RCT(77)*V(13)*V(157) A(78) = RCT(78)*V(13)*V(160) A(79) = RCT(79)*V(13)*V(14)*V(145) A(80) = RCT(80)*V(13)*V(14)*V(157) A(81) = RCT(81)*V(13)*V(14)*V(160) A(82) = RCT(82)*V(121)*V(156)*V(157) A(83) = RCT(83)*V(122)*V(156)*V(157) A(84) = RCT(84)*V(122)*V(157) A(85) = RCT(85)*V(155)*V(155) A(86) = RCT(86)*V(151)*V(155) A(87) = RCT(87)*V(151)*V(158) A(88) = RCT(88)*V(145)*V(159) A(89) = RCT(89)*V(157)*V(159) A(90) = RCT(90)*V(159)*V(160) A(91) = RCT(91)*V(150)*V(157) A(92) = RCT(92)*V(130) A(93) = RCT(93)*V(152)*V(158) A(94) = RCT(94)*V(152)*V(161) A(95) = RCT(95)*V(126)*V(161) A(96) = RCT(96)*V(145) A(97) = RCT(97)*V(107) A(98) = RCT(98)*V(125) A(99) = RCT(99)*V(108) A(100) = RCT(100)*V(146) A(101) = RCT(101)*V(158) A(102) = RCT(102)*V(142) A(103) = RCT(103)*V(121) A(104) = RCT(104)*V(122) A(105) = RCT(105)*V(110) A(106) = RCT(106)*V(111) A(107) = RCT(107)*V(106) A(108) = RCT(108)*V(113) A(109) = RCT(109)*V(154) A(110) = RCT(110)*V(147) A(111) = RCT(111)*V(109) A(112) = RCT(112)*V(112) A(113) = RCT(113)*V(9) A(114) = RCT(114)*V(10) A(115) = RCT(115)*V(11) A(116) = RCT(116)*V(12) A(117) = RCT(117)*V(15) A(118) = RCT(118)*V(16) A(119) = RCT(119)*V(17) A(120) = RCT(120)*V(18) A(121) = RCT(121)*V(13) A(122) = RCT(122)*V(14) A(123) = RCT(123)*V(156) A(124) = RCT(124)*V(153) A(125) = RCT(125)*V(157) A(126) = RCT(126)*V(160) A(127) = RCT(127)*V(115) A(128) = RCT(128)*V(114) A(129) = RCT(129)*V(138) A(130) = RCT(130)*V(124) A(131) = RCT(131)*V(151) A(132) = RCT(132)*V(155) A(133) = RCT(133)*V(159) A(134) = RCT(134)*V(126) A(135) = RCT(135)*V(152) A(136) = RCT(136)*V(130) A(137) = RCT(137)*V(150) A(138) = RCT(138)*F(2) A(139) = RCT(139)*V(161) A(140) = RCT(140)*V(161) A(141) = RCT(141)*V(101) A(142) = RCT(142)*V(75) A(143) = RCT(143)*V(77) A(144) = RCT(144)*V(116) A(145) = RCT(145)*V(76) A(146) = RCT(146)*V(78) A(147) = RCT(147)*V(116)*F(1) A(148) = RCT(148)*V(116)*V(154) A(149) = RCT(149)*V(102)*V(116) A(150) = RCT(150)*V(103)*V(116) A(151) = RCT(151)*V(116)*F(1) A(152) = RCT(152)*V(116)*V(154) A(153) = RCT(153)*V(116)*V(147) A(154) = RCT(154)*V(76)*F(1) A(155) = RCT(155)*V(76)*V(154) A(156) = RCT(156)*V(78)*F(1) A(157) = RCT(157)*V(78)*V(154) A(158) = RCT(158)*V(116) A(159) = RCT(159)*V(102) A(160) = RCT(160)*V(103) A(161) = RCT(161)*V(56) A(162) = RCT(162)*V(76) A(163) = RCT(163)*V(78) A(164) = RCT(164)*V(60) A(165) = RCT(165)*V(62) A(166) = RCT(166)*V(53) A(167) = RCT(167)*V(79) A(168) = RCT(168)*V(80) A(169) = RCT(169)*V(81) A(170) = RCT(170)*V(84) A(171) = RCT(171)*V(83) A(172) = RCT(172)*V(105) A(173) = RCT(173)*V(135) A(174) = RCT(174)*V(144) A(175) = RCT(175)*V(119) A(176) = RCT(176)*V(134) A(177) = RCT(177)*V(137) A(178) = RCT(178)*V(129) A(179) = RCT(179)*V(132) A(180) = RCT(180)*V(134) A(181) = RCT(181)*V(139) A(182) = RCT(182)*V(135) A(183) = RCT(183)*V(141)*V(156) A(184) = RCT(184)*V(132)*V(156) A(185) = RCT(185)*V(131)*V(156) A(186) = RCT(186)*V(133)*V(156) A(187) = RCT(187)*V(140)*V(156) A(188) = RCT(188)*V(136)*V(156) A(189) = RCT(189)*V(144)*F(1) A(190) = RCT(190)*V(149) A(191) = RCT(191)*V(119)*F(1) A(192) = RCT(192)*V(117) A(193) = RCT(193)*V(146) A(194) = RCT(194)*V(105)*V(161) A(195) = RCT(195)*V(105)*V(161) A(196) = RCT(196)*V(139)*V(161) A(197) = RCT(197)*V(140)*V(161) A(198) = RCT(198)*V(106)*V(161) A(199) = RCT(199)*V(137)*V(161) A(200) = RCT(200)*V(141)*V(161) A(201) = RCT(201)*V(129)*V(161) A(202) = RCT(202)*V(132)*V(161) A(203) = RCT(203)*V(131)*V(161) A(204) = RCT(204)*V(113)*V(161) A(205) = RCT(205)*V(134)*V(161) A(206) = RCT(206)*V(133)*V(161) A(207) = RCT(207)*V(135)*V(161) A(208) = RCT(208)*V(136)*V(161) A(209) = RCT(209)*V(149)*V(161) A(210) = RCT(210)*V(142)*V(161) A(211) = RCT(211)*V(117)*V(161) A(212) = RCT(212)*V(137) A(213) = RCT(213)*V(141) A(214) = RCT(214)*V(129) A(215) = RCT(215)*V(132) A(216) = RCT(216)*V(131) A(217) = RCT(217)*V(134) A(218) = RCT(218)*V(133) A(219) = RCT(219)*V(135) A(220) = RCT(220)*V(136) A(221) = RCT(221)*V(149) A(222) = RCT(222)*V(105) A(223) = RCT(223)*V(139) A(224) = RCT(224)*V(140) A(225) = RCT(225)*V(144) A(226) = RCT(226)*V(119) A(227) = RCT(227)*V(117) A(228) = RCT(228)*V(98) A(229) = RCT(229)*V(99) A(230) = RCT(230)*V(127) A(231) = RCT(231)*V(120) A(232) = RCT(232)*V(147) A(233) = RCT(233)*V(161)*V(161) A(234) = RCT(234)*V(155)*V(161) A(235) = RCT(235)*V(151)*V(161) A(236) = RCT(236)*V(146)*V(161) A(237) = RCT(237)*V(157)*V(161) A(238) = RCT(238)*V(155)*V(159) A(239) = RCT(239)*V(151)*V(159) A(240) = RCT(240)*V(150) A(241) = RCT(241)*V(127)*V(154) A(242) = RCT(242)*V(127)*V(157) A(243) = RCT(243)*V(104)*F(3) A(244) = RCT(244)*V(143)*V(155) A(245) = RCT(245)*V(143)*V(143) A(246) = RCT(246)*V(128)*V(156)*V(157) A(247) = RCT(247)*V(123)*F(1) A(248) = RCT(248)*V(120)*V(120) A(249) = RCT(249)*V(120)*V(157) A(250) = RCT(250)*V(138)*V(161) A(251) = RCT(251)*V(144)*V(157) A(252) = RCT(252)*V(144)*V(160) A(253) = RCT(253)*V(148) A(254) = RCT(254)*V(148)*V(153) A(255) = RCT(255)*V(148)*V(161) A(256) = RCT(256)*V(119)*V(157) A(257) = RCT(257)*V(119)*V(160) A(258) = RCT(258)*V(118) A(259) = RCT(259)*V(118)*V(153) A(260) = RCT(260)*V(118)*V(161) A(261) = RCT(261)*V(127) A(262) = RCT(262)*V(120) A(263) = RCT(263)*V(123) A(264) = RCT(264)*V(104) A(265) = RCT(265)*V(148) A(266) = RCT(266)*V(143) A(267) = RCT(267)*V(128) A(268) = RCT(268)*V(22) A(269) = RCT(269)*V(118) ! Aggregate function Vdot(1) = -A(33) Vdot(2) = -A(34) Vdot(3) = -A(35) Vdot(4) = -A(36) Vdot(5) = -A(37) Vdot(6) = -A(38) Vdot(7) = -A(39) Vdot(8) = -A(40) Vdot(9) = A(40)-A(113) Vdot(10) = A(38)-A(114) Vdot(11) = -A(115) Vdot(12) = A(39)-A(116) Vdot(13) = -A(121) Vdot(14) = -A(122) Vdot(15) = -A(117) Vdot(16) = -A(118) Vdot(17) = -A(119) Vdot(18) = A(36)-A(120) Vdot(19) = A(96)+A(125)+A(126)+A(263)+A(264)+A(265)+A(266)+A(267) Vdot(20) = A(97) Vdot(21) = A(98)+A(127)+A(128)+A(268) Vdot(22) = A(202)+A(203)-A(268) Vdot(23) = A(99) Vdot(24) = A(100) Vdot(25) = A(101) Vdot(26) = A(102)+A(129) Vdot(27) = A(103) Vdot(28) = A(104) Vdot(29) = A(105)+A(109)+A(130) Vdot(30) = A(106) Vdot(31) = A(107) Vdot(32) = A(108) Vdot(33) = A(140) Vdot(34) = A(110) Vdot(35) = A(111) Vdot(36) = A(112) Vdot(37) = A(113) Vdot(38) = A(121) Vdot(39) = A(122) Vdot(40) = A(114) Vdot(41) = A(115) Vdot(42) = A(116) Vdot(43) = A(123) Vdot(44) = A(117) Vdot(45) = A(118) Vdot(46) = A(119) Vdot(47) = A(120) Vdot(48) = A(133) Vdot(49) = A(134)+A(135) Vdot(50) = A(136)+A(137) Vdot(51) = A(158) Vdot(52) = A(159)+A(166) Vdot(53) = A(151)+A(152)+A(153)-A(166) Vdot(54) = A(160) Vdot(55) = A(161) Vdot(56) = A(149)+A(150)-A(161) Vdot(57) = A(162) Vdot(58) = A(163) Vdot(59) = A(164) Vdot(60) = A(154)+A(156)-A(164) Vdot(61) = A(165) Vdot(62) = A(155)+A(157)-A(165) Vdot(63) = A(212)+A(213) Vdot(64) = A(214)+A(215)+A(216) Vdot(65) = A(217)+A(218) Vdot(66) = A(219)+A(220) Vdot(67) = A(221)+A(225)+A(265) Vdot(68) = A(131)+A(132) Vdot(69) = A(222) Vdot(70) = A(223)+A(224) Vdot(71) = A(226)+A(227)+A(269) Vdot(72) = A(261) Vdot(73) = A(262) Vdot(74) = -A(15)+A(31) Vdot(75) = -A(142)+A(145) Vdot(76) = A(142)-A(145)-A(154)-A(155)-A(162) Vdot(77) = -A(143)+A(146) Vdot(78) = A(143)-A(146)-A(156)-A(157)-A(163) Vdot(79) = -A(167)+A(172) Vdot(80) = -A(168)+A(173) Vdot(81) = -A(169)+A(174) Vdot(82) = -A(13)+A(29) Vdot(83) = -A(171)+A(176) Vdot(84) = -A(170)+A(175) Vdot(85) = -A(5)+A(21) Vdot(86) = -A(2)+A(18) Vdot(87) = -A(3)+A(19) Vdot(88) = -A(4)+A(20) Vdot(89) = -A(6)+A(22) Vdot(90) = -A(7)+A(23) Vdot(91) = -A(8)+A(24) Vdot(92) = -A(9)+A(25) Vdot(93) = -A(10)+A(26) Vdot(94) = -A(11)+A(27) Vdot(95) = -A(12)+A(28) Vdot(96) = -A(14)+A(30) Vdot(97) = -A(16)+A(32) Vdot(98) = -A(228)+A(230) Vdot(99) = -A(229)+A(231) Vdot(100) = -A(1)+A(17) Vdot(101) = -A(141)+A(144) Vdot(102) = A(147)-A(149)-A(159) Vdot(103) = A(148)-A(150)-A(160) Vdot(104) = A(237)+A(242)-A(243)+A(249)-A(264) Vdot(105) = A(167)-A(172)-A(194)-A(195)-A(222) Vdot(106) = A(11)-A(27)-A(107)+A(195)-A(198) Vdot(107) = A(2)-A(18)-A(43)+A(57)-A(97) Vdot(108) = A(4)-A(20)-A(46)+A(60)-A(99) Vdot(109) = A(34)+A(46)-A(60)-A(111) Vdot(110) = -A(50)+A(64)-A(105) Vdot(111) = A(10)-A(26)-A(48)+A(62)-A(106) Vdot(112) = A(35)+A(48)-A(62)-A(112) Vdot(113) = A(12)-A(28)-A(108)-A(204) Vdot(114) = A(45)-A(59)-A(128) Vdot(115) = A(44)-A(45)-A(58)+A(59)-A(127) Vdot(116) = A(141)-A(144)-A(147)-A(148)-A(149)-A(150)-A(151)-A(152)-A(153)-A(158) Vdot(117) = A(191)-A(192)-A(211)-A(227)+A(259) Vdot(118) = A(256)+A(257)-A(258)-A(259)-A(260)-A(269) Vdot(119) = A(170)-A(175)-A(191)+A(192)-A(226)-A(256)-A(257)+A(258) Vdot(120) = A(229)-A(231)-2*A(248)-A(249)-A(262) Vdot(121) = A(8)-A(24)-A(82)-A(103)+A(249) Vdot(122) = A(9)-A(25)-A(83)-A(84)-A(104) Vdot(123) = A(241)+2*A(245)-A(247)-A(263) Vdot(124) = A(50)-A(51)-A(64)+A(65)-A(130)+A(247) Vdot(125) = A(3)-A(19)-A(44)+A(58)-A(98)+2*A(201)+A(202)+A(203)+A(205)+A(206)+A(210)+A(250) Vdot(126) = A(15)-A(31)-A(53)+A(67)-A(95)-A(134) Vdot(127) = A(228)-A(230)-A(241)-A(242)-A(261) Vdot(128) = A(244)-A(246)-A(267) Vdot(129) = -A(178)+A(184)+A(199)-A(201)-A(214) Vdot(130) = A(54)-A(68)-A(92)-A(136)+A(239) Vdot(131) = A(179)-A(185)-A(203)-A(216) Vdot(132) = A(178)-A(179)-A(184)+A(185)+A(200)-A(202)-A(215) Vdot(133) = A(180)-A(186)+0.92*A(204)-A(206)-A(218) Vdot(134) = A(171)-A(176)-A(180)+A(186)-A(205)-A(217) Vdot(135) = A(168)-A(173)-A(182)+A(188)+A(205)-A(207)-A(219) Vdot(136) = A(182)-A(188)+A(206)-A(208)-A(220) Vdot(137) = -A(177)+A(183)+A(198)-A(199)+0.85*A(207)-A(212) Vdot(138) = A(47)-A(61)-A(129)-A(250) Vdot(139) = -A(181)+A(187)+A(194)-A(196)-A(223) Vdot(140) = A(181)-A(187)-A(197)-A(224) Vdot(141) = A(177)-A(183)+A(196)+A(197)-A(200)+0.08*A(204)+0.85*A(208)-A(213) Vdot(142) = A(7)-A(23)-A(47)+A(61)-A(102)+A(209)-A(210)+A(255) Vdot(143) = A(243)-A(244)-2*A(245)-A(266) Vdot(144) = A(169)-A(174)-A(189)+A(190)-A(225)+2*A(248)-A(251)-A(252)+A(253) Vdot(145) = A(1)-A(17)-A(41)+A(55)-A(70)-A(73)-A(76)-A(79)-A(88)-A(96) Vdot(146) = A(5)-A(21)-A(69)+A(85)+A(86)-A(100)-A(193)+A(233)-A(236) Vdot(147) = A(33)+A(43)-A(57)+A(91)+A(93)-A(110)-A(153)-A(232)+A(241)+A(242) Vdot(148) = A(251)+A(252)-A(253)-A(254)-A(255)-A(265) Vdot(149) = A(189)-A(190)+0.15*A(207)+0.15*A(208)-A(209)-A(221)+A(254) Vdot(150) = A(16)-A(32)-A(54)+A(68)-A(91)-A(137)+A(238)-A(240) Vdot(151) = A(52)-A(66)-A(86)-A(87)-A(131)-A(235)-A(239) Vdot(152) = A(53)-A(67)+2*A(88)+2*A(89)+2*A(90)+A(92)-A(93)-A(94)-A(135) Vdot(153) = A(46)+A(49)-A(60)-A(63)+A(86)+A(87)+A(94)-A(124)+A(203)+A(232)+A(235)+A(250)+A(252)-A(254) Vdot(154) = A(37)+A(51)-A(65)+A(69)+A(70)+A(71)+A(72)+A(73)+A(74)+A(75)+A(76)+A(77)+A(78)+A(79)+A(80)+A(81)+A(82)& &+A(83)+A(84)+A(88)+A(89)+A(90)+A(91)-A(109)-A(148)-A(152)-A(155)-A(157)-A(241)+2*A(246) Vdot(155) = A(13)-A(29)-A(52)+A(66)-2*A(85)-A(86)-A(132)+A(194)+A(195)+A(196)+A(197)+A(198)+A(199)+A(200)+A(204)& &+A(205)+A(206)+A(209)+A(210)-A(234)+A(236)-A(238)+A(240)-A(244)+2*A(248)+A(250)+A(255) Vdot(156) = A(41)+A(42)+A(43)+A(44)+A(45)+A(47)+A(48)+A(49)+A(50)+A(51)+A(52)+A(53)+A(54)-A(55)-A(56)-A(57)-A(58)& &-A(59)-A(61)-A(62)-A(63)-A(64)-A(65)-A(66)-A(67)-A(68)+A(69)+2*A(70)+A(71)+2*A(73)+A(74)+2*A(76)+A(77)+2& &*A(79)+A(80)+A(82)+A(83)+A(84)+4*A(88)+3*A(89)+2*A(90)+2*A(91)-A(123)+A(177)+A(178)+A(179)+A(180)+A(181)& &+A(182)-A(183)-A(184)-A(185)-A(186)-A(187)-A(188)+A(196)+A(242)+2*A(246) Vdot(157) = A(41)-A(42)-A(55)+A(56)-A(69)-A(71)-A(74)-A(77)-A(80)-A(82)-A(83)-A(84)-A(89)-A(91)-A(125)-A(237)-A(242)& &-A(246)-A(249)-A(251)+A(253)+A(255) Vdot(158) = A(6)-A(22)-A(70)-A(71)-A(72)-A(87)-A(93)-A(101) Vdot(159) = A(14)-A(30)-2*A(88)-2*A(89)-2*A(90)+A(94)+A(95)-A(133)+A(232)-A(238)-A(239)+A(240) Vdot(160) = A(42)-A(56)-A(72)-A(75)-A(78)-A(81)-A(90)-A(126)-A(252)+A(254) Vdot(161) = A(87)-A(94)-A(95)+A(138)-A(139)-A(140)+2*A(193)-A(194)-A(195)-A(196)-A(197)-A(198)-A(199)-A(200)-2*A(201)& &-A(202)-A(203)-A(204)-A(205)-A(206)-A(207)-A(208)-A(209)-A(210)+A(232)-2*A(233)-A(234)-A(235)-A(236)-A(237)& &+A(247)-A(250)-A(255) END SUBROUTINE Fun ! End of Fun function ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ END MODULE aqchem_Function ================================================ FILE: CCTM/src/cloud/acm_ae7_kmt2/aqchem_Global.F90 ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ! ! Global Data Module File ! ! Generated by KPP-2.2.3 symbolic chemistry Kinetics PreProcessor ! (http://www.cs.vt.edu/~asandu/Software/KPP) ! KPP is distributed under GPL, the general public licence ! (http://www.gnu.org/copyleft/gpl.html) ! (C) 1995-1997, V. Damian & A. Sandu, CGRER, Univ. Iowa ! (C) 1997-2005, A. Sandu, Michigan Tech, Virginia Tech ! With important contributions from: ! M. Damian, Villanova University, USA ! R. Sander, Max-Planck Institute for Chemistry, Mainz, Germany ! ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ MODULE aqchem_Global USE aqchem_Parameters, ONLY: dp, NSPEC, NVAR, NFIX, NREACT PUBLIC SAVE ! Declaration of global variables ! C - Concentration of all species REAL(kind=dp) :: C(NSPEC) ! VAR - Concentrations of variable species (global) REAL(kind=dp) :: VAR(NVAR) ! FIX - Concentrations of fixed species (global) REAL(kind=dp) :: FIX(NFIX) ! VAR, FIX are chunks of array C ! EQUIVALENCE( C(1),VAR(1) ) ! EQUIVALENCE( C(162),FIX(1) ) ! RCONST - Rate constants (global) REAL(kind=dp) :: RCONST(NREACT) ! TIME - Current integration time REAL(kind=dp) :: TIME ! SUN - Sunlight intensity between [0,1] REAL(kind=dp) :: SUN ! TEMP - Temperature REAL(kind=dp) :: TEMP ! RTOLS - (scalar) Relative tolerance REAL(kind=dp) :: RTOLS ! TSTART - Integration start time REAL(kind=dp) :: TSTART ! TEND - Integration end time REAL(kind=dp) :: TEND ! DT - Integration step REAL(kind=dp) :: DT ! ATOL - Absolute tolerance REAL(kind=dp) :: ATOL(NVAR) ! RTOL - Relative tolerance REAL(kind=dp) :: RTOL(NVAR) ! STEPMIN - Lower bound for integration step REAL(kind=dp) :: STEPMIN ! STEPMAX - Upper bound for integration step REAL(kind=dp) :: STEPMAX ! CFACTOR - Conversion factor for concentration units REAL(kind=dp) :: CFACTOR ! INLINED global variable declarations ! REAL( kind=dp ), PARAMETER :: PHI = 6.0221413D17 ! Conversion factor ! (molec_m3/(mol_cm3)) REAL( kind=dp ), PARAMETER :: DAQ = 1.0D-9 ! Aqueous phase diffusion ! coefficient (m2/s) REAL( kind=dp ) :: INV_TEMP ! Reciprocal of air temperature (1/K) REAL( kind=dp ) :: PRESS ! Pressure (atm) REAL( kind=dp ) :: TEMP_KPP ! Temperature (K) REAL( kind=dp ) :: LWC_KPP ! Liquid water content (kg H2O / m3 air) REAL( kind=dp ) :: LWCFRAC ! Liquid water content fraction REAL( kind=dp ) :: ALFA3_KPP ! Aitken scavenging coefficient (mass) REAL( kind=dp ) :: ALFA0_KPP ! Aitken scavenging coefficient (number) REAL( kind=dp ) :: WETFAC_KPP ! Wet deposition rate coefficient REAL( kind=dp ) :: FE_III ! Fe(3+) fraction of Fe total REAL( kind=dp ) :: MN_II ! Mn(2+) fraction of Mn total REAL( kind=dp ) :: FE_SOL ! Fraction of soluble Fe REAL( kind=dp ) :: MN_SOL ! Fraction of soluble Mn REAL( kind=dp ) :: DDIAM ! Droplet Diameter (m) REAL( kind=dp ) :: PHI2, INVPHI2 ! conversion factor (and inverse) ! (M/(molec/cm3air)) REAL( kind=dp ) :: STION ! Ionic strength REAL( kind=dp ) :: GM1LOG, GM2LOG, GM1, GM2 ! Activity correction REAL( kind=dp ) :: DELINVT ! 1/T - 1/298 REAL( kind=dp ) :: SO2H ! SO2 H Law coef - from HLCONST REAL( kind=dp ) :: CO2H ! CO2 H Law coef - from HLCONST REAL( kind=dp ) :: NH3H ! NH3 H Law coef - from HLCONST REAL( kind=dp ) :: H2O2H ! H2O2 H Law coef - from HLCONST REAL( kind=dp ) :: O3H ! O3 H Law coef - from HLCONST REAL( kind=dp ) :: HCLH ! HCL H Law coef - from HLCONST REAL( kind=dp ) :: HNO3H ! HNO3 H Law coef - from HLCONST REAL( kind=dp ) :: MHPH ! MHP H Law coef - from HLCONST REAL( kind=dp ) :: PAAH ! PAA H Law coef - from HLCONST REAL( kind=dp ) :: FOAH ! FOA H Law coef - from HLCONST REAL( kind=dp ) :: GLYH ! GLY H Law coef - from HLCONST REAL( kind=dp ) :: MGLYH ! MGLY H Law coef - from HLCONST ! --gas phase mech dependent REAL( kind=dp ) :: HOH ! HO H Law coef - from HLCONST REAL( kind=dp ) :: GCOLH ! GCOL H Law coef - from HLCONST REAL( kind=dp ) :: CCOOHH ! CCOOH H Law coef - from HLCONST REAL( kind=dp ) :: HCHOH ! HCHO H Law coef - from HLCONST REAL( kind=dp ) :: HO2H ! HO2 H Law coef - from HLCONST REAL( kind=dp ) :: NO2H ! NO2 H Law coef - from HLCONST REAL( kind=dp ) :: HONOH ! HONO H Law coef - from HLCONST REAL( kind=dp ) :: HNO4H ! HNO4 H Law coef - from HLCONST REAL( kind=dp ) :: NO3H ! NO3 H Law coef - from HLCONST REAL( kind=dp ) :: CH3O2H ! CH3O2 H Law coef - from HLCONST REAL( kind=dp ) :: HIEPOX ! IEPOX H Law coef - from HLCONST REAL( kind=dp ) :: HMAE ! MAE H Law coef - from HLCONST REAL( kind=dp ) :: HHMML ! HMML H Law coef - from HLCONST REAL( kind=dp ) :: PYRACH ! Pyruvic acid H Law coef - from HLCONST REAL( kind=dp ) CZEN_KPP ! For alternative SOA chemistry REAL( kind=dp ) :: JH2O2 ! H2O2 photolysis rate REAL( kind=dp ) :: JHNO3 ! HNO3 photolysis rate REAL( kind=dp ) :: PHOTO ! 1 or 0 whether to use simple photolysis ! rate if not calculated externally INTEGER JDATEKPP INTEGER JTIMEKPP INTEGER ISPC8 INTEGER MTPYRAC ! INLINED global variable declarations END MODULE aqchem_Global ================================================ FILE: CCTM/src/cloud/acm_ae7_kmt2/aqchem_Initialize.F90 ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ! ! Initialization File ! ! Generated by KPP-2.2.3 symbolic chemistry Kinetics PreProcessor ! (http://www.cs.vt.edu/~asandu/Software/KPP) ! KPP is distributed under GPL, the general public licence ! (http://www.gnu.org/copyleft/gpl.html) ! (C) 1995-1997, V. Damian & A. Sandu, CGRER, Univ. Iowa ! (C) 1997-2005, A. Sandu, Michigan Tech, Virginia Tech ! With important contributions from: ! M. Damian, Villanova University, USA ! R. Sander, Max-Planck Institute for Chemistry, Mainz, Germany ! ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ MODULE aqchem_Initialize USE aqchem_Parameters USE aqchem_Global IMPLICIT NONE CONTAINS !kf Moved functions and rate coefficients that only need to be calculated once !kf per call to cloud chem from aqchem_Rates to aqchem_Initialize REAL( kind=dp )FUNCTION KMTF ( ACCOM, DG, MW ) IMPLICIT NONE REAL( kind=dp ) ACCOM ! accommodation coefficient (unitless) REAL( kind=dp ) DG ! gas molecular diffusion coef (m2/s) REAL( kind=dp ) MW ! molecular weight (g/mol) REAL( kind=dp ) KMT, RHO1, RAD, R, PI, V RHO1 = 1.0D0 ! density of H2O (g/mL) RAD = DDIAM * 0.5D0 ! droplet radius (m) R = 8.3145D0 ! ideal gas constant (J/mol-K) PI = 3.1415926536 V = SQRT( 8 * R * TEMP_KPP * 1000.0D0 / PI / MW ) ! m/s KMT = ( RAD*RAD ) / ( 3 * DG ) KMT = KMT + ( 4 * RAD / ( 3 * V * ACCOM ) ) KMT = 1.0D0 / KMT ! mass transfer coefficient from Schwartz, 1986 KMTF = KMT * LWC_KPP / 1000.D0 ! implied division by RHO1 (=1) RETURN END FUNCTION KMTF REAL( kind=dp )FUNCTION KMTB ( HLCONST, ACCOM, DG, MW ) IMPLICIT NONE REAL( kind=dp ) ACCOM ! accommodation coefficient (unitless) REAL( kind=dp ) DG ! gas molecular diffusion coef (m2/s) REAL( kind=dp ) MW ! molecular weight (g/mol) REAL( kind=dp ) HLCONST, RHO1, RAD, R, PI, KMT, V, R2 RAD = DDIAM * 0.5D0 ! droplet radius (m) R = 8.3145D0 ! ideal gas constant (J/mol-K) R2 = 0.08206D0 ! ideal gas constant (L-atm/mol-K) ! (= R/101325) PI = 3.1415926536 V = SQRT( 8 * R * TEMP_KPP * 1000.0D0 / PI / MW ) ! m/s KMT = ( RAD * RAD ) / ( 3 * DG ) KMT = KMT + ( 4 * RAD / ( 3 * V * ACCOM ) ) KMT = 1.0D0 / KMT ! mass transfer coefficient from Schwartz, 1986 KMTB = KMT / ( R2 * TEMP_KPP * HLCONST ) RETURN END FUNCTION KMTB REAL( kind=dp )FUNCTION HYDF ( KF, DH ) IMPLICIT NONE REAL( kind=dp ) DH, KF HYDF = KF * EXP( DH * DELINVT ) HYDF = HYDF * PHI2 RETURN END FUNCTION HYDF REAL( kind=dp )FUNCTION ORG ( KORG ) IMPLICIT NONE REAL( kind=dp ) KORG ORG = KORG ORG = ORG * PHI2 RETURN END FUNCTION ORG REAL( kind=dp )FUNCTION KPHOT ( MAXC, JVAL ) IMPLICIT NONE REAL( kind=dp ) MAXC ! photolysis rate constant max REAL( kind=dp ) JVAL ! photolysis rate calculated externally IF ( JVAL .LT. 0.0) THEN KPHOT = MAXC IF (CZEN_KPP .GT. 0.001_dp) THEN KPHOT = PHOTO*2.718281828_dp*(MAXC)*EXP(-1/CZEN_KPP) ELSE KPHOT = 0.0_dp END IF ELSE KPHOT = JVAL END IF RETURN END FUNCTION KPHOT ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ! ! Initialize - function to initialize concentrations ! Arguments : ! ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ! SUBROUTINE Initialize ( ) SUBROUTINE Initialize ( TEMP2, PRES_PA, TAUCLD, PRCRATE, & WCAVG, WTAVG, AIRM, ALFA0, ALFA3, GAS, & AEROSOL, CTHK1, DARK, COSZEN, & SOIL_FE_FAC, CORS_FE_FAC, SOIL_MN_FAC, & CORS_MN_FAC, SEAS_NA_FAC, SOIL_NA_FAC, & CORS_NA_FAC, SEAS_MG_FAC, SOIL_MG_FAC, & CORS_MG_FAC, SEAS_CA_FAC, SOIL_CA_FAC, & CORS_CA_FAC, SEAS_K_FAC, SOIL_K_FAC, & CORS_K_FAC ) USE aqchem_Global USE AQ_DATA USE UTILIO_DEFN INTEGER :: i REAL(kind=dp) :: x !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !...........Arguments: REAL, INTENT( IN ) :: AIRM ! Total air mass in cloudy layers (mol/m2) REAL, INTENT( IN ) :: ALFA0 ! Scav coef for aitken aerosol number REAL, INTENT( IN ) :: ALFA3 ! Scav coef for aitken aerosol mass REAL, INTENT( IN ) :: PRCRATE ! Precip rate (mm/hr) REAL, INTENT( IN ) :: PRES_PA ! Pressure (Pa) REAL, INTENT( IN ) :: TAUCLD ! Timestep for cloud (s) REAL, INTENT( IN ) :: TEMP2 ! Temperature (K) REAL, INTENT( IN ) :: WCAVG ! Liquid water content (kg/m3) REAL, INTENT( IN ) :: WTAVG ! Total water content (kg/m3) LOGICAL, INTENT( IN ) :: DARK ! DARK = TRUE is night, DARK = FALSE is day REAL( 8 ), INTENT( IN ) :: GAS ( : ) ! Gas phase concentrations (mol/molV) REAL( 8 ), INTENT( IN ) :: AEROSOL( :, : ) ! Aerosol concentrations (mol/molV) REAL( 8 ), INTENT( IN ) :: CTHK1 REAL, INTENT( IN ) :: COSZEN ! Cosine solar zenith angle REAL( 8 ), INTENT( IN ) :: SOIL_FE_FAC ! Fe molar fraction of ASOIL REAL( 8 ), INTENT( IN ) :: CORS_FE_FAC ! Fe molar fraction of ACORS REAL( 8 ), INTENT( IN ) :: SOIL_MN_FAC ! Mn molar fraction of ASOIL REAL( 8 ), INTENT( IN ) :: CORS_MN_FAC ! Fe molar fraction of ACORS REAL( 8 ), INTENT( IN ) :: SEAS_NA_FAC ! Na molar fraction of ASEACAT REAL( 8 ), INTENT( IN ) :: SOIL_NA_FAC ! Fe molar fraction of ASOIL REAL( 8 ), INTENT( IN ) :: CORS_NA_FAC ! Fe molar fraction of ACORS REAL( 8 ), INTENT( IN ) :: SEAS_MG_FAC ! Na molar fraction of ASEACAT REAL( 8 ), INTENT( IN ) :: SOIL_MG_FAC ! Fe molar fraction of ASOIL REAL( 8 ), INTENT( IN ) :: CORS_MG_FAC ! Fe molar fraction of ACORS REAL( 8 ), INTENT( IN ) :: SEAS_CA_FAC ! Na molar fraction of ASEACAT REAL( 8 ), INTENT( IN ) :: SOIL_CA_FAC ! Fe molar fraction of ASOIL REAL( 8 ), INTENT( IN ) :: CORS_CA_FAC ! Fe molar fraction of ACORS REAL( 8 ), INTENT( IN ) :: SEAS_K_FAC ! Na molar fraction of ASEACAT REAL( 8 ), INTENT( IN ) :: SOIL_K_FAC ! Fe molar fraction of ASOIL REAL( 8 ), INTENT( IN ) :: CORS_K_FAC ! Fe molar fraction of ACORS !...........Local Variables: REAL( 8 ) :: TWASH REAL( 8 ) :: FECOR REAL( 8 ) :: MNCOR REAL( 8 ) :: NACOR REAL( 8 ) :: MGCOR REAL( 8 ) :: CACOR REAL( 8 ) :: KCOR REAL( 8 ) :: SUMPOS REAL( 8 ) :: SUMNEG REAL( 8 ) :: Kw REAL( 8 ) :: CHGBAL CHARACTER( 16 ), SAVE :: PNAME = 'AQCHEM_INIT' CHARACTER( 120 ) :: XMSG = ' ' ! Exit status message !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! CFACTOR = 1.000000e+00_dp x = (0.0)*CFACTOR DO i = 1, NVAR VAR(i) = x END DO x = (0.0)*CFACTOR DO i = 1, NFIX FIX(i) = x END DO ! constant rate coefficients ! END constant rate coefficients ! INLINED initializations TSTART = 0.0D0 DT = TAUCLD TEND = TSTART + DT RTOL = 1.0D-02 ATOL = 1.0D-02 ! was 1.d-02 RTOL( ind_L_H2O2 ) = 1.0d-3 RTOL( ind_L_GLY ) = 1.0d-3 RTOL( ind_L_MGLY ) = 1.0d-3 RTOL( ind_L_IETET ) = 1.0d-3 DDIAM = 1.6D-5 ! Droplet diameter (meters) TEMP_KPP = TEMP2 PRESS = PRES_PA / 101325.D0 ! Pressure (ATM) LWC_KPP = WCAVG LWCFRAC = LWC_KPP * 1.D-3 ! L H2O / L AIR INV_TEMP = 1.0D0 / TEMP_KPP DELINVT = ( 298.D0 - TEMP_KPP ) / ( 298.D0 * TEMP_KPP ) TWASH = WTAVG * 1000.0D0 * CTHK1 * 3600.0D0 / & ( 1000.0D0 * MAX( 1.0D-20, REAL( PRCRATE, 8 ) ) ) IF(PRCRATE .GT. 0.0) THEN WETFAC_KPP = 1.D0 / TWASH ELSE WETFAC_KPP = 0.D0 END IF ALFA3_KPP = ALFA3 ALFA0_KPP = ALFA0 PHI2 = 1000.0D0 / 6.022d23 / LWCFRAC INVPHI2 = 1 / PHI2 CZEN_KPP = REAL( COSZEN, 8 ) ! Fraction partitioning to FE(III) and MN(II) IF ( DARK ) THEN FE_III = 0.9D0 ! Night time, GS 01July2011 ELSE FE_III = 0.1D0 ! Day time, GS 01July2011 END IF MN_II = 1.0D0 ! Solubility of Fe and Mn FE_SOL = 0.1D0 MN_SOL = 0.5D0 ! Set initial dynamic concentrations based on input gas and ! aerosol concentrations VAR( ind_G_SO2 ) = GAS( LSO2 ) VAR( ind_G_HNO3 ) = GAS( LHNO3 ) + 2.0D0 * GAS( LN2O5 ) ! N2O5 transf. ! to HNO3 VAR( ind_G_CO2 ) = GAS( LCO2 ) VAR( ind_G_NH3 ) = GAS( LNH3 ) VAR( ind_G_H2O2 ) = GAS( LH2O2 ) VAR( ind_G_O3 ) = GAS( LO3 ) VAR( ind_G_HCOOH ) = GAS( LFOA ) VAR( ind_G_MHP ) = GAS( LMHP ) VAR( ind_G_PAA ) = GAS( LPAA ) VAR( ind_G_HCL ) = GAS( LHCL ) VAR( ind_G_GLY ) = GAS( LGLY ) VAR( ind_G_MGLY ) = GAS( LMGLY ) ! VAR( ind_G_HO ) = GAS( LHO ) VAR( ind_G_IEPOX ) = GAS( LIEPOX ) IF( ISPC8 .gt. 0 ) THEN VAR( ind_G_IMAE ) = GAS( LIMAE ) VAR( ind_G_IHMML ) = GAS( LIHMML ) END IF VAR( ind_G_NO2 ) = GAS( LNO2 ) VAR( ind_G_HONO ) = GAS( LHONO ) VAR( ind_G_HNO4 ) = GAS( LHNO4 ) VAR( ind_G_NO3 ) = GAS( LNO3RAD ) VAR( ind_G_CH3O2 ) = GAS( LCH3O2 ) VAR(ind_G_GCOL) = GAS( LGCOL) VAR(ind_G_CCOOH) = GAS( LCCOOH ) VAR(ind_G_HCHO) = GAS( LHCHO ) VAR(ind_G_HO2) = GAS( LHO2 ) VAR(ind_G_HCHOP) = GAS( LHCHOP ) IF( MTPYRAC .gt. 0 ) THEN VAR(ind_G_PYRAC) = GAS( LPYRUV ) END IF !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! VAR( ind_A_NO3AKN ) = AEROSOL( LNO3, AKN ) VAR( ind_A_NH4AKN ) = AEROSOL( LNH4, AKN ) VAR( ind_A_CLAKN ) = AEROSOL( LCL, AKN ) VAR( ind_A_NAAKN ) = AEROSOL( LNA, AKN ) VAR( ind_A_SO4AKN ) = AEROSOL( LSO4, AKN ) VAR( ind_A_PECAKN ) = AEROSOL( LEC, AKN ) VAR( ind_A_POAAKN ) = AEROSOL( LPOA, AKN ) VAR( ind_A_PRIAKN ) = AEROSOL( LPRI, AKN ) ! Instantaneous droplet activation of ACC and COR modes and dissolution of H2SO4 ! Initial dynamic aqueous species represent the sum of ACC and COR mode ! concentrations. VAR( ind_L_SO4MIN2 ) = AEROSOL( LSO4, ACC ) + AEROSOL( LSO4, COR ) VAR( ind_L_NO3MIN ) = AEROSOL( LNO3, ACC ) + AEROSOL( LNO3, COR ) VAR( ind_L_NH4PLUS ) = AEROSOL( LNH4, ACC ) + AEROSOL( LNH4, COR ) VAR( ind_L_CLMIN ) = AEROSOL( LCL, ACC ) + AEROSOL( LCL, COR ) VAR( ind_L_PRIACC ) = AEROSOL( LPRI, ACC ) VAR( ind_L_NAPLUS ) = AEROSOL( LNA, ACC ) VAR( ind_L_CAPLUS2 ) = AEROSOL( LCAACC, ACC ) VAR( ind_L_MGPLUS2 ) = AEROSOL( LMGACC, ACC ) VAR( ind_L_KPLUS ) = AEROSOL( LKACC, ACC ) VAR( ind_L_PECACC ) = AEROSOL( LEC, ACC ) ! VAR( ind_L_ORGC ) = AEROSOL( LORGC, ACC ) VAR( ind_L_ORGC ) = 0.2*AEROSOL( LORGC, ACC ) VAR( ind_L_OXLACMIN2 ) = 0.8*AEROSOL( LORGC, ACC ) / & ( 90.03 / 177. ) ! Assume 80% of AORGC is oxalate -- ! based on average results from CMAQ ! simulations where cloud generated ! org acid species were tracked VAR( ind_L_POAACC ) = AEROSOL( LPOA, ACC ) IF( ISPC8 .gt. 0 ) THEN VAR( ind_L_IETET ) = AEROSOL( LIETET, ACC ) VAR( ind_L_IEOS ) = AEROSOL( LIEOS, ACC ) VAR( ind_L_DIMER ) = AEROSOL( LDIMER, ACC ) VAR( ind_L_IMGA ) = AEROSOL( LIMGA, ACC ) VAR( ind_L_IMOS ) = AEROSOL( LIMOS, ACC ) ELSE VAR( ind_L_ISO3 ) = AEROSOL( LISO3, ACC ) END IF VAR( ind_L_SO4MIN2 ) = VAR( ind_L_SO4MIN2 ) + GAS( LH2SO4 ) ! Coarse crustal species from SOILCOR, ANTHCOR, SEASCOR FECOR = SOIL_FE_FAC * AEROSOL(LSOILC,COR) + CORS_FE_FAC & * AEROSOL(LANTHC,COR) MNCOR = SOIL_MN_FAC * AEROSOL(LSOILC,COR) + CORS_MN_FAC & * AEROSOL(LANTHC,COR) NACOR = SEAS_NA_FAC * AEROSOL(LSEASC,COR) + SOIL_NA_FAC & * AEROSOL(LSOILC,COR) & + CORS_NA_FAC * AEROSOL(LANTHC,COR) MGCOR = SEAS_MG_FAC * AEROSOL(LSEASC,COR) + SOIL_MG_FAC & * AEROSOL(LSOILC,COR) & + CORS_MG_FAC * AEROSOL(LANTHC,COR) CACOR = SEAS_CA_FAC * AEROSOL(LSEASC,COR) + SOIL_CA_FAC & * AEROSOL(LSOILC,COR) & + CORS_CA_FAC * AEROSOL(LANTHC,COR) KCOR = SEAS_K_FAC * AEROSOL(LSEASC,COR) + SOIL_K_FAC & * AEROSOL(LSOILC,COR) & + CORS_K_FAC * AEROSOL(LANTHC,COR) ! Cloudwater cations VAR( ind_L_NAPLUS ) = VAR( ind_L_NAPLUS ) + NACOR VAR( ind_L_CAPLUS2 ) = VAR( ind_L_CAPLUS2 ) + CACOR VAR( ind_L_MGPLUS2 ) = VAR( ind_L_MGPLUS2 ) + MGCOR VAR( ind_L_KPLUS ) = VAR( ind_L_KPLUS ) + KCOR ! Fe3+ and Mn2+ for SIV oxidation VAR( ind_L_FEPLUS3 ) = FE_SOL * FE_III & * ( AEROSOL( LFEACC, ACC ) + FECOR ) VAR( ind_L_MNPLUS2 ) = MN_SOL * MN_II & * ( AEROSOL( LMNACC, ACC ) + MNCOR ) ! Convert concententrations from input units mol/mol air --> molec/cm3 air CFACTOR = PRES_PA / ( TEMP_KPP * 8.314510 ) * PHI DO I = 1, NVAR VAR( I ) = CFACTOR * VAR( I ) ! Dynamic species END DO DO I = 1, NFIX FIX( I ) = CFACTOR * FIX( I ) ! Fixed species END DO ! FIX( indf_L_H2O ) = 1.D0 * INVPHI2 ! set to 1 M -- Kw includes [H2O] FIX( indf_L_H2O ) = 55.5D0 * INVPHI2 ! Kw in dynamic calcs does not ! include [H2O] !! FIX( indf_L_HO ) = ( GAS( LHO ) * PRESS * 30.D0 * EXP( 4.5D3 * & !! DELINVT ) ) * INVPHI2 ! FIX( indf_L_HO ) = INVPHI2 * ( ( GAS( LHO ) * PRESS * HOH ) / & ! ( 1.d0 + HOH * WCAVG * 0.08206D0 * TEMP_KPP & ! / 1000.d0 ) ) !initial HO(aq) calculated based ! !on Henry's Law equil. ! !with initial/input HOg ! !representing amount of total ! !HO (gas+aq) available FIX( indf_G_HO ) = GAS( LHO )*CFACTOR FIX( indf_L_O2 ) = 0.21 * PRESS * 1.3D-3 * EXP( 1500.D0 * DELINVT ) * INVPHI2 ! Calculate initial H+ and OH- from electroneutrality and Kw ! ! Sum of positive ions + H+ = Sum of negative ions + OH- ! ! [H+] * [OH-] = Kw ! [H+] = Kw / [OH-] ! ! SUMPOS + Kw / [OH-] = SUMNEG + [OH-] --> ! [OH-]**2 - (SUMPOS - SUMNEG)*[OH-] - Kw ! Solve for [OH-] with quadratic formula and use Kw to get initial [H+] Kw = 1.00D-14 * EXP( -6.955D+03 * DELINVT ) ! includes conc of H2O SUMPOS = 2.D0 * ( VAR( ind_L_CAPLUS2) + VAR( ind_L_MGPLUS2 ) ) & + VAR( ind_L_NAPLUS ) + & VAR( ind_L_KPLUS ) + VAR( ind_L_NH4PLUS ) SUMNEG = 2.D0 * ( VAR( ind_L_SO4MIN2 ) + VAR(ind_L_OXLACMIN2) ) + VAR( ind_L_NO3MIN ) & + VAR( ind_L_CLMIN ) SUMPOS = SUMPOS * PHI2 SUMNEG = SUMNEG * PHI2 CHGBAL = SUMPOS - SUMNEG VAR( ind_L_OHMIN ) = ( CHGBAL + SQRT( CHGBAL * CHGBAL & + 4.D0 * Kw ) ) * 0.5D0 IF( VAR( ind_L_OHMIN ) .gt. 0.D0 ) THEN ! If [OH-] is (+), calculate [H+] VAR( ind_L_HPLUS ) = Kw / VAR( ind_L_OHMIN ) ELSE XMSG = 'ERROR IN INITIAL PH CALC -- [OH-] <= 0.' CALL M3EXIT ( PNAME, JDATEKPP, JTIMEKPP, XMSG, XSTAT2 ) END IF VAR( ind_L_OHMIN ) = VAR( ind_L_OHMIN ) * INVPHI2 ! convert to molec/cm3 VAR( ind_L_HPLUS ) = VAR( ind_L_HPLUS ) * INVPHI2 ! convert to molec/cm3 ! End INLINED initializations RCONST(1) = ((KMTF(0.11D0,1.28D-5,64.064D0))) RCONST(2) = ((KMTF(0.0868D0,1.32D-5,63.013D0))) RCONST(3) = ((KMTF(0.00015D0,1.55D-5,44.01D0))) RCONST(4) = ((KMTF(0.091D0,2.3D-5,17.031D0))) RCONST(5) = ((KMTF(0.1532D0,1.46D-5,34.015D0))) RCONST(6) = ((KMTF(0.1D0,1.48D-5,47.998D0))) RCONST(7) = ((KMTF(0.0229D0,1.53D-5,46.025D0))) RCONST(8) = ((KMTF(0.006758D0,1.31D-5,48.04D0))) RCONST(9) = ((KMTF(0.019D0,1.02D-5,76.05D0))) RCONST(10) = ((KMTF(0.1158D0,1.89D-5,36.461D0))) RCONST(11) = ((KMTF(0.023D0,1.15D-5,58.04D0))) RCONST(12) = ((KMTF(0.023D0,1.15D-5,72.06D0))) RCONST(13) = ((KMTF(0.01D0,1.04D-5,33.01D0))) RCONST(14) = ((KMTF(0.0015D0,1.92D-5,46.01D0))) RCONST(15) = ((KMTF(0.5D0,1.3D-5,47.01D0))) RCONST(16) = ((KMTF(0.1D0,1.3D-5,79.01D0))) RCONST(17) = ((KMTB(SO2H,0.11D0,1.28D-5,64.064D0))) RCONST(18) = ((KMTB(HNO3H,0.0868D0,1.32D-5,63.013D0))) RCONST(19) = ((KMTB(CO2H,0.00015D0,1.55D-5,44.01D0))) RCONST(20) = ((KMTB(NH3H,0.091D0,2.3D-5,17.031D0))) RCONST(21) = ((KMTB(H2O2H,0.1532D0,1.46D-5,34.015D0))) RCONST(22) = ((KMTB(O3H,0.1D0,1.48D-5,47.998D0))) RCONST(23) = ((KMTB(FOAH,0.0229D0,1.53D-5,46.025D0))) RCONST(24) = ((KMTB(MHPH,0.006758D0,1.31D-5,48.04D0))) RCONST(25) = ((KMTB(PAAH,0.019D0,1.02D-5,76.05D0))) RCONST(26) = ((KMTB(HCLH,0.1158D0,1.89D-5,36.461D0))) RCONST(27) = ((KMTB(GLYH,0.023D0,1.15D-5,58.04D0))) RCONST(28) = ((KMTB(MGLYH,0.023D0,1.15D-5,72.06D0))) RCONST(29) = ((KMTB(HO2H,0.01D0,1.04D-5,33.01D0))) RCONST(30) = ((KMTB(NO2H,0.0015D0,1.92D-5,46.01D0))) RCONST(31) = ((KMTB(HONOH,0.5D0,1.3D-5,47.01D0))) RCONST(32) = ((KMTB(HNO4H,0.1D0,1.3D-5,79.01D0))) RCONST(33) = (ALFA3_KPP) RCONST(34) = (ALFA3_KPP) RCONST(35) = (ALFA3_KPP) RCONST(36) = (ALFA3_KPP) RCONST(37) = (ALFA3_KPP) RCONST(38) = (ALFA3_KPP) RCONST(39) = (ALFA3_KPP) RCONST(40) = (ALFA3_KPP) RCONST(92) = ((1.1d0)) RCONST(96) = (WETFAC_KPP) RCONST(97) = (WETFAC_KPP) RCONST(98) = (WETFAC_KPP) RCONST(99) = (WETFAC_KPP) RCONST(100) = (WETFAC_KPP) RCONST(101) = (WETFAC_KPP) RCONST(102) = (WETFAC_KPP) RCONST(103) = (WETFAC_KPP) RCONST(104) = (WETFAC_KPP) RCONST(105) = (WETFAC_KPP) RCONST(106) = (WETFAC_KPP) RCONST(107) = (WETFAC_KPP) RCONST(108) = (WETFAC_KPP) RCONST(109) = (WETFAC_KPP) RCONST(110) = (WETFAC_KPP) RCONST(111) = (WETFAC_KPP) RCONST(112) = (WETFAC_KPP) RCONST(113) = (WETFAC_KPP) RCONST(114) = (WETFAC_KPP) RCONST(115) = (WETFAC_KPP) RCONST(116) = (WETFAC_KPP) RCONST(117) = (WETFAC_KPP) RCONST(118) = (WETFAC_KPP) RCONST(119) = (WETFAC_KPP) RCONST(120) = (WETFAC_KPP) RCONST(121) = (WETFAC_KPP) RCONST(122) = (WETFAC_KPP) RCONST(123) = (WETFAC_KPP) RCONST(124) = (WETFAC_KPP) RCONST(125) = (WETFAC_KPP) RCONST(126) = (WETFAC_KPP) RCONST(127) = (WETFAC_KPP) RCONST(128) = (WETFAC_KPP) RCONST(129) = (WETFAC_KPP) RCONST(130) = (WETFAC_KPP) RCONST(131) = (WETFAC_KPP) RCONST(132) = (WETFAC_KPP) RCONST(133) = (WETFAC_KPP) RCONST(134) = (WETFAC_KPP) RCONST(135) = (WETFAC_KPP) RCONST(136) = (WETFAC_KPP) RCONST(137) = (WETFAC_KPP) RCONST(138) = ((KMTF(0.05D0,1.53D-5,17.007D0))) RCONST(139) = ((KMTB(HOH,0.05D0,1.53D-5,17.007D0))) RCONST(140) = (WETFAC_KPP) RCONST(141) = ((KMTF(0.02D0,1.0D-5,118.13D0))) RCONST(142) = ((KMTF(0.02D0,1.0D-5,102.0D0))) RCONST(143) = ((KMTF(0.02D0,1.0D-5,102.0D0))) RCONST(144) = ((KMTB(HIEPOX,0.02D0,1.0D-5,118.13D0))) RCONST(145) = ((KMTB(HMAE,0.02D0,1.0D-5,102.0D0))) RCONST(146) = ((KMTB(HHMML,0.02D0,1.0D-5,102.0D0))) RCONST(158) = (WETFAC_KPP) RCONST(159) = (WETFAC_KPP) RCONST(160) = (WETFAC_KPP) RCONST(161) = (WETFAC_KPP) RCONST(162) = (WETFAC_KPP) RCONST(163) = (WETFAC_KPP) RCONST(164) = (WETFAC_KPP) RCONST(165) = (WETFAC_KPP) RCONST(166) = (WETFAC_KPP) RCONST(167) = ((KMTF(0.023D0,1.15D-5,60.052D0))) RCONST(168) = ((KMTF(0.0322D0,1.24D-5,60.052D0))) RCONST(169) = ((KMTF(0.02D0,1.64D-5,30.03D0))) RCONST(170) = ((KMTF(0.02D0,1.64D-5,30.03D0))) RCONST(171) = ((MTPYRAC*KMTF(0.0322D0,1.24D-5,88.06D0))) RCONST(172) = ((KMTB(GCOLH,0.023D0,1.15D-5,60.052D0))) RCONST(173) = ((KMTB(CCOOHH,0.0322D0,1.24D-5,60.052D0))) RCONST(174) = ((KMTB(HCHOH,0.02D0,1.64D-5,30.03D0))) RCONST(175) = ((KMTB(HCHOH,0.02D0,1.64D-5,30.03D0))) RCONST(176) = ((MTPYRAC*KMTB(PYRACH,0.0322D0,1.24D-5,88.06D0))) RCONST(189) = ((HYDF(1.8D-1,4.03D+3))) RCONST(190) = (5.1D-3) RCONST(191) = ((HYDF(1.8D-1,4.03D+3))) RCONST(192) = (5.1D-3) RCONST(193) = ((KPHOT(4.6D-6,JH2O2))) RCONST(212) = (WETFAC_KPP) RCONST(213) = (WETFAC_KPP) RCONST(214) = (WETFAC_KPP) RCONST(215) = (WETFAC_KPP) RCONST(216) = (WETFAC_KPP) RCONST(217) = (WETFAC_KPP) RCONST(218) = (WETFAC_KPP) RCONST(219) = (WETFAC_KPP) RCONST(220) = (WETFAC_KPP) RCONST(221) = (WETFAC_KPP) RCONST(222) = (WETFAC_KPP) RCONST(223) = (WETFAC_KPP) RCONST(224) = (WETFAC_KPP) RCONST(225) = (WETFAC_KPP) RCONST(226) = (WETFAC_KPP) RCONST(227) = (WETFAC_KPP) RCONST(228) = ((KMTF(0.05D0,1.D-5,62.0D0))) RCONST(229) = ((KMTF(0.05D0,1.35D-5,49.0D0))) RCONST(230) = ((KMTB(NO3H,0.05D0,1.D-5,62.0D0))) RCONST(231) = ((KMTB(CH3O2H,0.05D0,1.35D-5,49.0D0))) RCONST(232) = ((KPHOT(5.6D-7,-1.d0))) RCONST(261) = (WETFAC_KPP) RCONST(262) = (WETFAC_KPP) RCONST(263) = (WETFAC_KPP) RCONST(264) = (WETFAC_KPP) RCONST(265) = (WETFAC_KPP) RCONST(266) = (WETFAC_KPP) RCONST(267) = (WETFAC_KPP) RCONST(268) = (WETFAC_KPP) RCONST(269) = (WETFAC_KPP) END SUBROUTINE Initialize ! End of Initialize function ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ END MODULE aqchem_Initialize ================================================ FILE: CCTM/src/cloud/acm_ae7_kmt2/aqchem_Integrator.F90 ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ! ! Numerical Integrator (Time-Stepping) File ! ! Generated by KPP-2.2.3 symbolic chemistry Kinetics PreProcessor ! (http://www.cs.vt.edu/~asandu/Software/KPP) ! KPP is distributed under GPL, the general public licence ! (http://www.gnu.org/copyleft/gpl.html) ! (C) 1995-1997, V. Damian & A. Sandu, CGRER, Univ. Iowa ! (C) 1997-2005, A. Sandu, Michigan Tech, Virginia Tech ! With important contributions from: ! M. Damian, Villanova University, USA ! R. Sander, Max-Planck Institute for Chemistry, Mainz, Germany ! ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ! ! INTEGRATE - Integrator routine ! Arguments : ! TIN - Start Time for Integration ! TOUT - End Time for Integration ! ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~! ! Rosenbrock - Implementation of several Rosenbrock methods: ! ! * Ros2 ! ! * Ros3 ! ! * Ros4 ! ! * Rodas3 ! ! * Rodas4 ! ! By default the code employs the KPP sparse linear algebra routines ! ! Compile with -DFULL_ALGEBRA to use full linear algebra (LAPACK) ! ! ! ! (C) Adrian Sandu, August 2004 ! ! Virginia Polytechnic Institute and State University ! ! Contact: sandu@cs.vt.edu ! ! Revised by Philipp Miehe and Adrian Sandu, May 2006 ! ! ! This implementation is part of KPP - the Kinetic PreProcessor ! !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~! MODULE aqchem_Integrator USE aqchem_Parameters, ONLY: NVAR, NFIX, NSPEC, LU_NONZERO USE aqchem_Global IMPLICIT NONE PUBLIC SAVE !~~~> Statistics on the work performed by the Rosenbrock method INTEGER, PARAMETER :: Nfun=1, Njac=2, Nstp=3, Nacc=4, & Nrej=5, Ndec=6, Nsol=7, Nsng=8, & Ntexit=1, Nhexit=2, Nhnew = 3 CONTAINS SUBROUTINE INTEGRATE( TIN, TOUT, & ICNTRL_U, RCNTRL_U, ISTATUS_U, RSTATUS_U, IERR_U ) IMPLICIT NONE REAL(kind=dp), INTENT(IN) :: TIN ! Start Time REAL(kind=dp), INTENT(IN) :: TOUT ! End Time ! Optional input parameters and statistics INTEGER, INTENT(IN), OPTIONAL :: ICNTRL_U(20) REAL(kind=dp), INTENT(IN), OPTIONAL :: RCNTRL_U(20) INTEGER, INTENT(OUT), OPTIONAL :: ISTATUS_U(20) REAL(kind=dp), INTENT(OUT), OPTIONAL :: RSTATUS_U(20) INTEGER, INTENT(OUT), OPTIONAL :: IERR_U REAL(kind=dp) :: RCNTRL(20), RSTATUS(20) INTEGER :: ICNTRL(20), ISTATUS(20), IERR INTEGER, SAVE :: Ntotal = 0 ICNTRL(:) = 0 RCNTRL(:) = 0.0_dp ISTATUS(:) = 0 RSTATUS(:) = 0.0_dp !~~~> fine-tune the integrator: ICNTRL(1) = 0 ! 0 - non-autonomous, 1 - autonomous ICNTRL(2) = 0 ! 0 - vector tolerances, 1 - scalars ! If optional parameters are given, and if they are >0, ! then they overwrite default settings. IF (PRESENT(ICNTRL_U)) THEN WHERE(ICNTRL_U(:) > 0) ICNTRL(:) = ICNTRL_U(:) END IF IF (PRESENT(RCNTRL_U)) THEN WHERE(RCNTRL_U(:) > 0) RCNTRL(:) = RCNTRL_U(:) END IF CALL Rosenbrock(NVAR,VAR,TIN,TOUT, & ATOL,RTOL, & RCNTRL,ICNTRL,RSTATUS,ISTATUS,IERR) !~~~> Debug option: show no of steps ! Ntotal = Ntotal + ISTATUS(Nstp) ! PRINT*,'NSTEPS=',ISTATUS(Nstp),' (',Ntotal,')',' O3=', VAR(ind_O3) STEPMIN = RSTATUS(Nhexit) ! if optional parameters are given for output they ! are updated with the return information IF (PRESENT(ISTATUS_U)) ISTATUS_U(:) = ISTATUS(:) IF (PRESENT(RSTATUS_U)) RSTATUS_U(:) = RSTATUS(:) IF (PRESENT(IERR_U)) IERR_U = IERR END SUBROUTINE INTEGRATE !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ SUBROUTINE Rosenbrock(N,Y,Tstart,Tend, & AbsTol,RelTol, & RCNTRL,ICNTRL,RSTATUS,ISTATUS,IERR) !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ! ! Solves the system y'=F(t,y) using a Rosenbrock method defined by: ! ! G = 1/(H*gamma(1)) - Jac(t0,Y0) ! T_i = t0 + Alpha(i)*H ! Y_i = Y0 + \sum_{j=1}^{i-1} A(i,j)*K_j ! G * K_i = Fun( T_i, Y_i ) + \sum_{j=1}^S C(i,j)/H * K_j + ! gamma(i)*dF/dT(t0, Y0) ! Y1 = Y0 + \sum_{j=1}^S M(j)*K_j ! ! For details on Rosenbrock methods and their implementation consult: ! E. Hairer and G. Wanner ! "Solving ODEs II. Stiff and differential-algebraic problems". ! Springer series in computational mathematics, Springer-Verlag, 1996. ! The codes contained in the book inspired this implementation. ! ! (C) Adrian Sandu, August 2004 ! Virginia Polytechnic Institute and State University ! Contact: sandu@cs.vt.edu ! Revised by Philipp Miehe and Adrian Sandu, May 2006 ! This implementation is part of KPP - the Kinetic PreProcessor !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ! !~~~> INPUT ARGUMENTS: ! !- Y(N) = vector of initial conditions (at T=Tstart) !- [Tstart,Tend] = time range of integration ! (if Tstart>Tend the integration is performed backwards in time) !- RelTol, AbsTol = user precribed accuracy !- SUBROUTINE Fun( T, Y, Ydot ) = ODE function, ! returns Ydot = Y' = F(T,Y) !- SUBROUTINE Jac( T, Y, Jcb ) = Jacobian of the ODE function, ! returns Jcb = dFun/dY !- ICNTRL(1:20) = integer inputs parameters !- RCNTRL(1:20) = real inputs parameters !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ! !~~~> OUTPUT ARGUMENTS: ! !- Y(N) -> vector of final states (at T->Tend) !- ISTATUS(1:20) -> integer output parameters !- RSTATUS(1:20) -> real output parameters !- IERR -> job status upon return ! success (positive value) or ! failure (negative value) !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ! !~~~> INPUT PARAMETERS: ! ! Note: For input parameters equal to zero the default values of the ! corresponding variables are used. ! ! ICNTRL(1) = 1: F = F(y) Independent of T (AUTONOMOUS) ! = 0: F = F(t,y) Depends on T (NON-AUTONOMOUS) ! ! ICNTRL(2) = 0: AbsTol, RelTol are N-dimensional vectors ! = 1: AbsTol, RelTol are scalars ! ! ICNTRL(3) -> selection of a particular Rosenbrock method ! = 0 : Rodas3 (default) ! = 1 : Ros2 ! = 2 : Ros3 ! = 3 : Ros4 ! = 4 : Rodas3 ! = 5 : Rodas4 ! ! ICNTRL(4) -> maximum number of integration steps ! For ICNTRL(4)=0) the default value of 100000 is used ! ! RCNTRL(1) -> Hmin, lower bound for the integration step size ! It is strongly recommended to keep Hmin = ZERO ! RCNTRL(2) -> Hmax, upper bound for the integration step size ! RCNTRL(3) -> Hstart, starting value for the integration step size ! ! RCNTRL(4) -> FacMin, lower bound on step decrease factor (default=0.2) ! RCNTRL(5) -> FacMax, upper bound on step increase factor (default=6) ! RCNTRL(6) -> FacRej, step decrease factor after multiple rejections ! (default=0.1) ! RCNTRL(7) -> FacSafe, by which the new step is slightly smaller ! than the predicted value (default=0.9) !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ! ! ! OUTPUT ARGUMENTS: ! ----------------- ! ! T -> T value for which the solution has been computed ! (after successful return T=Tend). ! ! Y(N) -> Numerical solution at T ! ! IDID -> Reports on successfulness upon return: ! = 1 for success ! < 0 for error (value equals error code) ! ! ISTATUS(1) -> No. of function calls ! ISTATUS(2) -> No. of jacobian calls ! ISTATUS(3) -> No. of steps ! ISTATUS(4) -> No. of accepted steps ! ISTATUS(5) -> No. of rejected steps (except at very beginning) ! ISTATUS(6) -> No. of LU decompositions ! ISTATUS(7) -> No. of forward/backward substitutions ! ISTATUS(8) -> No. of singular matrix decompositions ! ! RSTATUS(1) -> Texit, the time corresponding to the ! computed Y upon return ! RSTATUS(2) -> Hexit, last accepted step before exit ! RSTATUS(3) -> Hnew, last predicted step (not yet taken) ! For multiple restarts, use Hnew as Hstart ! in the subsequent run ! !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ USE aqchem_Parameters USE aqchem_LinearAlgebra IMPLICIT NONE !~~~> Arguments INTEGER, INTENT(IN) :: N REAL(kind=dp), INTENT(INOUT) :: Y(N) REAL(kind=dp), INTENT(IN) :: Tstart,Tend REAL(kind=dp), INTENT(IN) :: AbsTol(N),RelTol(N) INTEGER, INTENT(IN) :: ICNTRL(20) REAL(kind=dp), INTENT(IN) :: RCNTRL(20) INTEGER, INTENT(INOUT) :: ISTATUS(20) REAL(kind=dp), INTENT(INOUT) :: RSTATUS(20) INTEGER, INTENT(OUT) :: IERR !~~~> Parameters of the Rosenbrock method, up to 6 stages INTEGER :: ros_S, rosMethod INTEGER, PARAMETER :: RS2=1, RS3=2, RS4=3, RD3=4, RD4=5, RG3=6 REAL(kind=dp) :: ros_A(15), ros_C(15), ros_M(6), ros_E(6), & ros_Alpha(6), ros_Gamma(6), ros_ELO LOGICAL :: ros_NewF(6) CHARACTER(LEN=12) :: ros_Name !~~~> Local variables REAL(kind=dp) :: Roundoff, FacMin, FacMax, FacRej, FacSafe REAL(kind=dp) :: Hmin, Hmax, Hstart REAL(kind=dp) :: Texit INTEGER :: i, UplimTol, Max_no_steps LOGICAL :: Autonomous, VectorTol !~~~> Parameters REAL(kind=dp), PARAMETER :: ZERO = 0.0_dp, ONE = 1.0_dp REAL(kind=dp), PARAMETER :: DeltaMin = 1.0E-5_dp !~~~> Initialize statistics ISTATUS(1:8) = 0 RSTATUS(1:3) = ZERO !~~~> Autonomous or time dependent ODE. Default is time dependent. Autonomous = .NOT.(ICNTRL(1) == 0) !~~~> For Scalar tolerances (ICNTRL(2).NE.0) the code uses AbsTol(1) and RelTol(1) ! For Vector tolerances (ICNTRL(2) == 0) the code uses AbsTol(1:N) and RelTol(1:N) IF (ICNTRL(2) == 0) THEN VectorTol = .TRUE. UplimTol = N ELSE VectorTol = .FALSE. UplimTol = 1 END IF !~~~> Initialize the particular Rosenbrock method selected SELECT CASE (ICNTRL(3)) CASE (1) CALL Ros2 CASE (2) CALL Ros3 CASE (3) CALL Ros4 CASE (0,4) CALL Rodas3 CASE (5) CALL Rodas4 CASE (6) CALL Rang3 CASE DEFAULT PRINT * , 'Unknown Rosenbrock method: ICNTRL(3)=',ICNTRL(3) CALL ros_ErrorMsg(-2,Tstart,ZERO,IERR) RETURN END SELECT !~~~> The maximum number of steps admitted IF (ICNTRL(4) == 0) THEN Max_no_steps = 200000 ELSEIF (ICNTRL(4) > 0) THEN Max_no_steps=ICNTRL(4) ELSE PRINT * ,'User-selected max no. of steps: ICNTRL(4)=',ICNTRL(4) CALL ros_ErrorMsg(-1,Tstart,ZERO,IERR) RETURN END IF !~~~> Unit roundoff (1+Roundoff>1) Roundoff = WLAMCH('E') !~~~> Lower bound on the step size: (positive value) IF (RCNTRL(1) == ZERO) THEN Hmin = ZERO ELSEIF (RCNTRL(1) > ZERO) THEN Hmin = RCNTRL(1) ELSE PRINT * , 'User-selected Hmin: RCNTRL(1)=', RCNTRL(1) CALL ros_ErrorMsg(-3,Tstart,ZERO,IERR) RETURN END IF !~~~> Upper bound on the step size: (positive value) IF (RCNTRL(2) == ZERO) THEN Hmax = ABS(Tend-Tstart) ELSEIF (RCNTRL(2) > ZERO) THEN Hmax = MIN(ABS(RCNTRL(2)),ABS(Tend-Tstart)) ELSE PRINT * , 'User-selected Hmax: RCNTRL(2)=', RCNTRL(2) CALL ros_ErrorMsg(-3,Tstart,ZERO,IERR) RETURN END IF !~~~> Starting step size: (positive value) IF (RCNTRL(3) == ZERO) THEN Hstart = MAX(Hmin,DeltaMin) ELSEIF (RCNTRL(3) > ZERO) THEN Hstart = MIN(ABS(RCNTRL(3)),ABS(Tend-Tstart)) ELSE PRINT * , 'User-selected Hstart: RCNTRL(3)=', RCNTRL(3) CALL ros_ErrorMsg(-3,Tstart,ZERO,IERR) RETURN END IF !~~~> Step size can be changed s.t. FacMin < Hnew/Hold < FacMax IF (RCNTRL(4) == ZERO) THEN FacMin = 0.2_dp ELSEIF (RCNTRL(4) > ZERO) THEN FacMin = RCNTRL(4) ELSE PRINT * , 'User-selected FacMin: RCNTRL(4)=', RCNTRL(4) CALL ros_ErrorMsg(-4,Tstart,ZERO,IERR) RETURN END IF IF (RCNTRL(5) == ZERO) THEN FacMax = 6.0_dp ELSEIF (RCNTRL(5) > ZERO) THEN FacMax = RCNTRL(5) ELSE PRINT * , 'User-selected FacMax: RCNTRL(5)=', RCNTRL(5) CALL ros_ErrorMsg(-4,Tstart,ZERO,IERR) RETURN END IF !~~~> FacRej: Factor to decrease step after 2 succesive rejections IF (RCNTRL(6) == ZERO) THEN FacRej = 0.1_dp ELSEIF (RCNTRL(6) > ZERO) THEN FacRej = RCNTRL(6) ELSE PRINT * , 'User-selected FacRej: RCNTRL(6)=', RCNTRL(6) CALL ros_ErrorMsg(-4,Tstart,ZERO,IERR) RETURN END IF !~~~> FacSafe: Safety Factor in the computation of new step size IF (RCNTRL(7) == ZERO) THEN FacSafe = 0.9_dp ELSEIF (RCNTRL(7) > ZERO) THEN FacSafe = RCNTRL(7) ELSE PRINT * , 'User-selected FacSafe: RCNTRL(7)=', RCNTRL(7) CALL ros_ErrorMsg(-4,Tstart,ZERO,IERR) RETURN END IF !~~~> Check if tolerances are reasonable DO i=1,UplimTol IF ( (AbsTol(i) <= ZERO) .OR. (RelTol(i) <= 10.0_dp*Roundoff) & .OR. (RelTol(i) >= 1.0_dp) ) THEN PRINT * , ' AbsTol(',i,') = ',AbsTol(i) PRINT * , ' RelTol(',i,') = ',RelTol(i) CALL ros_ErrorMsg(-5,Tstart,ZERO,IERR) RETURN END IF END DO !~~~> CALL Rosenbrock method CALL ros_Integrator(Y, Tstart, Tend, Texit, & AbsTol, RelTol, & ! Integration parameters Autonomous, VectorTol, Max_no_steps, & Roundoff, Hmin, Hmax, Hstart, & FacMin, FacMax, FacRej, FacSafe, & ! Error indicator IERR) !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ CONTAINS ! SUBROUTINES internal to Rosenbrock !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ SUBROUTINE ros_ErrorMsg(Code,T,H,IERR) !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ! Handles all error messages !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ USE UTILIO_DEFN REAL(kind=dp), INTENT(IN) :: T, H INTEGER, INTENT(IN) :: Code INTEGER, INTENT(OUT) :: IERR CHARACTER( 120 ) :: XMSG = ' ' ! Exit status message CHARACTER( 16 ), SAVE :: PNAME = 'AQCHEM_Integ' IERR = Code !kf PRINT * , & !kf 'Forced exit from Rosenbrock due to the following error:' SELECT CASE (Code) CASE (-1) !kf PRINT * , '--> Improper value for maximal no of steps' XMSG = 'Ros ERROR: Improper value for maximal no of steps' CASE (-2) !kf PRINT * , '--> Selected Rosenbrock method not implemented' XMSG = 'Ros ERROR: Selected Rosenbrock method not implemented' CASE (-3) !kf PRINT * , '--> Hmin/Hmax/Hstart must be positive' XMSG = 'Ros ERROR: Hmin/Hmax/Hstart must be positive' CASE (-4) !kf PRINT * , '--> FacMin/FacMax/FacRej must be positive' XMSG = 'Ros ERROR: FacMin/FacMax/FacRej must be positive' CASE (-5) !kf PRINT * , '--> Improper tolerance values' XMSG = 'Ros ERROR: Improper tolerance values' CASE (-6) !kf PRINT * , '--> No of steps exceeds maximum bound' XMSG = 'Ros ERROR: No of steps exceeds maximum bound' CASE (-7) !kf PRINT * , '--> Step size too small: T + 10*H = T', & !kf ' or H < Roundoff' XMSG = 'Ros ERROR: Step size too small' CASE (-8) !kf PRINT * , '--> Matrix is repeatedly singular' XMSG = 'Ros ERROR: Matrix is repeatedly singular' CASE DEFAULT !kf PRINT *, 'Unknown Error code: ', Code XMSG = 'Ros ERROR: Unknown Error code' END SELECT CALL M3EXIT ( PNAME, JDATEKPP, JTIMEKPP, XMSG, XSTAT2 ) !kf PRINT *, "T=", T, "and H=", H END SUBROUTINE ros_ErrorMsg !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ SUBROUTINE ros_Integrator (Y, Tstart, Tend, T, & AbsTol, RelTol, & !~~~> Integration parameters Autonomous, VectorTol, Max_no_steps, & Roundoff, Hmin, Hmax, Hstart, & FacMin, FacMax, FacRej, FacSafe, & !~~~> Error indicator IERR ) !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ! Template for the implementation of a generic Rosenbrock method ! defined by ros_S (no of stages) ! and its coefficients ros_{A,C,M,E,Alpha,Gamma} !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ IMPLICIT NONE !~~~> Input: the initial condition at Tstart; Output: the solution at T REAL(kind=dp), INTENT(INOUT) :: Y(N) !~~~> Input: integration interval REAL(kind=dp), INTENT(IN) :: Tstart,Tend !~~~> Output: time at which the solution is returned (T=Tend if success) REAL(kind=dp), INTENT(OUT) :: T !~~~> Input: tolerances REAL(kind=dp), INTENT(IN) :: AbsTol(N), RelTol(N) !~~~> Input: integration parameters LOGICAL, INTENT(IN) :: Autonomous, VectorTol REAL(kind=dp), INTENT(IN) :: Hstart, Hmin, Hmax INTEGER, INTENT(IN) :: Max_no_steps REAL(kind=dp), INTENT(IN) :: Roundoff, FacMin, FacMax, FacRej, FacSafe !~~~> Output: Error indicator INTEGER, INTENT(OUT) :: IERR ! ~~~~ Local variables REAL(kind=dp) :: Ynew(N), Fcn0(N), Fcn(N) REAL(kind=dp) :: K(N*ros_S), dFdT(N) #ifdef FULL_ALGEBRA REAL(kind=dp) :: Jac0(N,N), Ghimj(N,N) #else REAL(kind=dp) :: Jac0(LU_NONZERO), Ghimj(LU_NONZERO) #endif REAL(kind=dp) :: H, Hnew, HC, HG, Fac, Tau REAL(kind=dp) :: Err, Yerr(N) INTEGER :: Pivot(N), Direction, ioffset, j, istage LOGICAL :: RejectLastH, RejectMoreH, Singular !~~~> Local parameters REAL(kind=dp), PARAMETER :: ZERO = 0.0_dp, ONE = 1.0_dp REAL(kind=dp), PARAMETER :: DeltaMin = 1.0E-5_dp !~~~> Locally called functions ! REAL(kind=dp) WLAMCH ! EXTERNAL WLAMCH !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ !~~~> Initial preparations T = Tstart RSTATUS(Nhexit) = ZERO H = MIN( MAX(ABS(Hmin),ABS(Hstart)) , ABS(Hmax) ) IF (ABS(H) <= 10.0_dp*Roundoff) H = DeltaMin IF (Tend >= Tstart) THEN Direction = +1 ELSE Direction = -1 END IF H = Direction*H RejectLastH=.FALSE. RejectMoreH=.FALSE. !~~~> Time loop begins below !kfTimeLoop: DO WHILE ( (Direction > 0).AND.((T-Tend)+Roundoff <= ZERO) & !kf .OR. (Direction < 0).AND.((Tend-T)+Roundoff <= ZERO) ) TimeLoop: DO WHILE ( ABS(T-Tend) >= Roundoff ) !kf Original loop criterion failed when !kf implemented in CMAQ (multiple processors). IF ( ISTATUS(Nstp) > Max_no_steps ) THEN ! Too many steps CALL ros_ErrorMsg(-6,T,H,IERR) RETURN END IF IF ( ((T+0.1_dp*H) == T).OR.(H <= Roundoff) ) THEN ! Step size too small CALL ros_ErrorMsg(-7,T,H,IERR) RETURN END IF !~~~> Limit H if necessary to avoid going beyond Tend H = MIN(H,ABS(Tend-T)) !~~~> Compute the function at current time CALL FunTemplate(T,Y,Fcn0) ISTATUS(Nfun) = ISTATUS(Nfun) + 1 !~~~> Compute the function derivative with respect to T IF (.NOT.Autonomous) THEN CALL ros_FunTimeDerivative ( T, Roundoff, Y, & Fcn0, dFdT ) END IF !~~~> Compute the Jacobian at current time CALL JacTemplate(T,Y,Jac0) ISTATUS(Njac) = ISTATUS(Njac) + 1 !~~~> Repeat step calculation until current step accepted UntilAccepted: DO CALL ros_PrepareMatrix(H,Direction,ros_Gamma(1), & Jac0,Ghimj,Pivot,Singular) IF (Singular) THEN ! More than 5 consecutive failed decompositions CALL ros_ErrorMsg(-8,T,H,IERR) RETURN END IF !~~~> Compute the stages Stage: DO istage = 1, ros_S ! Current istage offset. Current istage vector is K(ioffset+1:ioffset+N) ioffset = N*(istage-1) ! For the 1st istage the function has been computed previously IF ( istage == 1 ) THEN !slim: CALL WCOPY(N,Fcn0,1,Fcn,1) Fcn(1:N) = Fcn0(1:N) ! istage>1 and a new function evaluation is needed at the current istage ELSEIF ( ros_NewF(istage) ) THEN !slim: CALL WCOPY(N,Y,1,Ynew,1) Ynew(1:N) = Y(1:N) DO j = 1, istage-1 CALL WAXPY(N,ros_A((istage-1)*(istage-2)/2+j), & K(N*(j-1)+1),1,Ynew,1) END DO Tau = T + ros_Alpha(istage)*Direction*H CALL FunTemplate(Tau,Ynew,Fcn) ISTATUS(Nfun) = ISTATUS(Nfun) + 1 END IF ! if istage == 1 elseif ros_NewF(istage) !slim: CALL WCOPY(N,Fcn,1,K(ioffset+1),1) K(ioffset+1:ioffset+N) = Fcn(1:N) DO j = 1, istage-1 HC = ros_C((istage-1)*(istage-2)/2+j)/(Direction*H) CALL WAXPY(N,HC,K(N*(j-1)+1),1,K(ioffset+1),1) END DO IF ((.NOT. Autonomous).AND.(ros_Gamma(istage).NE.ZERO)) THEN HG = Direction*H*ros_Gamma(istage) CALL WAXPY(N,HG,dFdT,1,K(ioffset+1),1) END IF CALL ros_Solve(Ghimj, Pivot, K(ioffset+1)) END DO Stage !~~~> Compute the new solution !slim: CALL WCOPY(N,Y,1,Ynew,1) Ynew(1:N) = Y(1:N) DO j=1,ros_S CALL WAXPY(N,ros_M(j),K(N*(j-1)+1),1,Ynew,1) END DO !~~~> Compute the error estimation !slim: CALL WSCAL(N,ZERO,Yerr,1) Yerr(1:N) = ZERO DO j=1,ros_S CALL WAXPY(N,ros_E(j),K(N*(j-1)+1),1,Yerr,1) END DO Err = ros_ErrorNorm ( Y, Ynew, Yerr, AbsTol, RelTol, VectorTol ) !~~~> New step size is bounded by FacMin <= Hnew/H <= FacMax Fac = MIN(FacMax,MAX(FacMin,FacSafe/Err**(ONE/ros_ELO))) Hnew = H*Fac !~~~> Check the error magnitude and adjust step size ISTATUS(Nstp) = ISTATUS(Nstp) + 1 IF ( (Err <= ONE).OR.(H <= Hmin) ) THEN !~~~> Accept step ISTATUS(Nacc) = ISTATUS(Nacc) + 1 !slim: CALL WCOPY(N,Ynew,1,Y,1) ! DO j = 1,N ! Y(j) = MAX(Ynew(j),ZERO) ! posdef ! END DO Y(1:N) = Ynew(1:N) T = T + Direction*H Hnew = MAX(Hmin,MIN(Hnew,Hmax)) IF (RejectLastH) THEN ! No step size increase after a rejected step Hnew = MIN(Hnew,H) END IF RSTATUS(Nhexit) = H RSTATUS(Nhnew) = Hnew RSTATUS(Ntexit) = T RejectLastH = .FALSE. RejectMoreH = .FALSE. H = Hnew EXIT UntilAccepted ! EXIT THE LOOP: WHILE STEP NOT ACCEPTED ELSE !~~~> Reject step IF (RejectMoreH) THEN Hnew = H*FacRej END IF RejectMoreH = RejectLastH RejectLastH = .TRUE. H = Hnew IF (ISTATUS(Nacc) >= 1) ISTATUS(Nrej) = ISTATUS(Nrej) + 1 END IF ! Err <= 1 END DO UntilAccepted END DO TimeLoop !~~~> Succesful exit IERR = 1 !~~~> The integration was successful END SUBROUTINE ros_Integrator !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ REAL(kind=dp) FUNCTION ros_ErrorNorm ( Y, Ynew, Yerr, & AbsTol, RelTol, VectorTol ) !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ !~~~> Computes the "scaled norm" of the error vector Yerr !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ IMPLICIT NONE ! Input arguments REAL(kind=dp), INTENT(IN) :: Y(N), Ynew(N), & Yerr(N), AbsTol(N), RelTol(N) LOGICAL, INTENT(IN) :: VectorTol ! Local variables REAL(kind=dp) :: Err, Scale, Ymax INTEGER :: i REAL(kind=dp), PARAMETER :: ZERO = 0.0_dp Err = ZERO DO i=1,N Ymax = MAX(ABS(Y(i)),ABS(Ynew(i))) IF (VectorTol) THEN Scale = AbsTol(i)+RelTol(i)*Ymax ELSE Scale = AbsTol(1)+RelTol(1)*Ymax END IF Err = Err+(Yerr(i)/Scale)**2 END DO Err = SQRT(Err/N) ros_ErrorNorm = MAX(Err,1.0d-10) END FUNCTION ros_ErrorNorm !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ SUBROUTINE ros_FunTimeDerivative ( T, Roundoff, Y, & Fcn0, dFdT ) !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ !~~~> The time partial derivative of the function by finite differences !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ IMPLICIT NONE !~~~> Input arguments REAL(kind=dp), INTENT(IN) :: T, Roundoff, Y(N), Fcn0(N) !~~~> Output arguments REAL(kind=dp), INTENT(OUT) :: dFdT(N) !~~~> Local variables REAL(kind=dp) :: Delta REAL(kind=dp), PARAMETER :: ONE = 1.0_dp, DeltaMin = 1.0E-6_dp Delta = SQRT(Roundoff)*MAX(DeltaMin,ABS(T)) CALL FunTemplate(T+Delta,Y,dFdT) ISTATUS(Nfun) = ISTATUS(Nfun) + 1 CALL WAXPY(N,(-ONE),Fcn0,1,dFdT,1) CALL WSCAL(N,(ONE/Delta),dFdT,1) END SUBROUTINE ros_FunTimeDerivative !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ SUBROUTINE ros_PrepareMatrix ( H, Direction, gam, & Jac0, Ghimj, Pivot, Singular ) ! --- --- --- --- --- --- --- --- --- --- --- --- --- ! Prepares the LHS matrix for stage calculations ! 1. Construct Ghimj = 1/(H*ham) - Jac0 ! "(Gamma H) Inverse Minus Jacobian" ! 2. Repeat LU decomposition of Ghimj until successful. ! -half the step size if LU decomposition fails and retry ! -exit after 5 consecutive fails ! --- --- --- --- --- --- --- --- --- --- --- --- --- IMPLICIT NONE !~~~> Input arguments #ifdef FULL_ALGEBRA REAL(kind=dp), INTENT(IN) :: Jac0(N,N) #else REAL(kind=dp), INTENT(IN) :: Jac0(LU_NONZERO) #endif REAL(kind=dp), INTENT(IN) :: gam INTEGER, INTENT(IN) :: Direction !~~~> Output arguments #ifdef FULL_ALGEBRA REAL(kind=dp), INTENT(OUT) :: Ghimj(N,N) #else REAL(kind=dp), INTENT(OUT) :: Ghimj(LU_NONZERO) #endif LOGICAL, INTENT(OUT) :: Singular INTEGER, INTENT(OUT) :: Pivot(N) !~~~> Inout arguments REAL(kind=dp), INTENT(INOUT) :: H ! step size is decreased when LU fails !~~~> Local variables INTEGER :: i, ISING, Nconsecutive REAL(kind=dp) :: ghinv REAL(kind=dp), PARAMETER :: ONE = 1.0_dp, HALF = 0.5_dp Nconsecutive = 0 Singular = .TRUE. DO WHILE (Singular) !~~~> Construct Ghimj = 1/(H*gam) - Jac0 #ifdef FULL_ALGEBRA !slim: CALL WCOPY(N*N,Jac0,1,Ghimj,1) !slim: CALL WSCAL(N*N,(-ONE),Ghimj,1) Ghimj = -Jac0 ghinv = ONE/(Direction*H*gam) DO i=1,N Ghimj(i,i) = Ghimj(i,i)+ghinv END DO #else !slim: CALL WCOPY(LU_NONZERO,Jac0,1,Ghimj,1) !slim: CALL WSCAL(LU_NONZERO,(-ONE),Ghimj,1) Ghimj(1:LU_NONZERO) = -Jac0(1:LU_NONZERO) ghinv = ONE/(Direction*H*gam) DO i=1,N Ghimj(LU_DIAG(i)) = Ghimj(LU_DIAG(i))+ghinv END DO #endif !~~~> Compute LU decomposition CALL ros_Decomp( Ghimj, Pivot, ISING ) IF (ISING == 0) THEN !~~~> If successful done Singular = .FALSE. ELSE ! ISING .ne. 0 !~~~> If unsuccessful half the step size; if 5 consecutive fails then return ISTATUS(Nsng) = ISTATUS(Nsng) + 1 Nconsecutive = Nconsecutive+1 Singular = .TRUE. PRINT*,'Warning: LU Decomposition returned ISING = ',ISING IF (Nconsecutive <= 5) THEN ! Less than 5 consecutive failed decompositions H = H*HALF ELSE ! More than 5 consecutive failed decompositions RETURN END IF ! Nconsecutive END IF ! ISING END DO ! WHILE Singular END SUBROUTINE ros_PrepareMatrix !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ SUBROUTINE ros_Decomp( A, Pivot, ISING ) !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ! Template for the LU decomposition !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ IMPLICIT NONE !~~~> Inout variables #ifdef FULL_ALGEBRA REAL(kind=dp), INTENT(INOUT) :: A(N,N) #else REAL(kind=dp), INTENT(INOUT) :: A(LU_NONZERO) #endif !~~~> Output variables INTEGER, INTENT(OUT) :: Pivot(N), ISING #ifdef FULL_ALGEBRA CALL DGETRF( N, N, A, N, Pivot, ISING ) #else CALL KppDecomp ( A, ISING ) Pivot(1) = 1 #endif ISTATUS(Ndec) = ISTATUS(Ndec) + 1 END SUBROUTINE ros_Decomp !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ SUBROUTINE ros_Solve( A, Pivot, b ) !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ! Template for the forward/backward substitution (using pre-computed LU decomposition) !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ IMPLICIT NONE !~~~> Input variables #ifdef FULL_ALGEBRA REAL(kind=dp), INTENT(IN) :: A(N,N) INTEGER :: ISING #else REAL(kind=dp), INTENT(IN) :: A(LU_NONZERO) #endif INTEGER, INTENT(IN) :: Pivot(N) !~~~> InOut variables REAL(kind=dp), INTENT(INOUT) :: b(N) #ifdef FULL_ALGEBRA CALL DGETRS( 'N', N , 1, A, N, Pivot, b, N, ISING ) IF ( Info < 0 ) THEN PRINT*,"Error in DGETRS. ISING=",ISING END IF #else CALL KppSolve( A, b ) #endif ISTATUS(Nsol) = ISTATUS(Nsol) + 1 END SUBROUTINE ros_Solve !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ SUBROUTINE Ros2 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ! --- AN L-STABLE METHOD, 2 stages, order 2 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ IMPLICIT NONE DOUBLE PRECISION g g = 1.0_dp + 1.0_dp/SQRT(2.0_dp) rosMethod = RS2 !~~~> Name of the method ros_Name = 'ROS-2' !~~~> Number of stages ros_S = 2 !~~~> The coefficient matrices A and C are strictly lower triangular. ! The lower triangular (subdiagonal) elements are stored in row-wise order: ! A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc. ! The general mapping formula is: ! A(i,j) = ros_A( (i-1)*(i-2)/2 + j ) ! C(i,j) = ros_C( (i-1)*(i-2)/2 + j ) ros_A(1) = (1.0_dp)/g ros_C(1) = (-2.0_dp)/g !~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) ! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) ros_NewF(1) = .TRUE. ros_NewF(2) = .TRUE. !~~~> M_i = Coefficients for new step solution ros_M(1)= (3.0_dp)/(2.0_dp*g) ros_M(2)= (1.0_dp)/(2.0_dp*g) ! E_i = Coefficients for error estimator ros_E(1) = 1.0_dp/(2.0_dp*g) ros_E(2) = 1.0_dp/(2.0_dp*g) !~~~> ros_ELO = estimator of local order - the minimum between the ! main and the embedded scheme orders plus one ros_ELO = 2.0_dp !~~~> Y_stage_i ~ Y( T + H*Alpha_i ) ros_Alpha(1) = 0.0_dp ros_Alpha(2) = 1.0_dp !~~~> Gamma_i = \sum_j gamma_{i,j} ros_Gamma(1) = g ros_Gamma(2) =-g END SUBROUTINE Ros2 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ SUBROUTINE Ros3 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ! --- AN L-STABLE METHOD, 3 stages, order 3, 2 function evaluations !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ IMPLICIT NONE rosMethod = RS3 !~~~> Name of the method ros_Name = 'ROS-3' !~~~> Number of stages ros_S = 3 !~~~> The coefficient matrices A and C are strictly lower triangular. ! The lower triangular (subdiagonal) elements are stored in row-wise order: ! A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc. ! The general mapping formula is: ! A(i,j) = ros_A( (i-1)*(i-2)/2 + j ) ! C(i,j) = ros_C( (i-1)*(i-2)/2 + j ) ros_A(1)= 1.0_dp ros_A(2)= 1.0_dp ros_A(3)= 0.0_dp ros_C(1) = -0.10156171083877702091975600115545E+01_dp ros_C(2) = 0.40759956452537699824805835358067E+01_dp ros_C(3) = 0.92076794298330791242156818474003E+01_dp !~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) ! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) ros_NewF(1) = .TRUE. ros_NewF(2) = .TRUE. ros_NewF(3) = .FALSE. !~~~> M_i = Coefficients for new step solution ros_M(1) = 0.1E+01_dp ros_M(2) = 0.61697947043828245592553615689730E+01_dp ros_M(3) = -0.42772256543218573326238373806514_dp ! E_i = Coefficients for error estimator ros_E(1) = 0.5_dp ros_E(2) = -0.29079558716805469821718236208017E+01_dp ros_E(3) = 0.22354069897811569627360909276199_dp !~~~> ros_ELO = estimator of local order - the minimum between the ! main and the embedded scheme orders plus 1 ros_ELO = 3.0_dp !~~~> Y_stage_i ~ Y( T + H*Alpha_i ) ros_Alpha(1)= 0.0_dp ros_Alpha(2)= 0.43586652150845899941601945119356_dp ros_Alpha(3)= 0.43586652150845899941601945119356_dp !~~~> Gamma_i = \sum_j gamma_{i,j} ros_Gamma(1)= 0.43586652150845899941601945119356_dp ros_Gamma(2)= 0.24291996454816804366592249683314_dp ros_Gamma(3)= 0.21851380027664058511513169485832E+01_dp END SUBROUTINE Ros3 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ SUBROUTINE Ros4 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ! L-STABLE ROSENBROCK METHOD OF ORDER 4, WITH 4 STAGES ! L-STABLE EMBEDDED ROSENBROCK METHOD OF ORDER 3 ! ! E. HAIRER AND G. WANNER, SOLVING ORDINARY DIFFERENTIAL ! EQUATIONS II. STIFF AND DIFFERENTIAL-ALGEBRAIC PROBLEMS. ! SPRINGER SERIES IN COMPUTATIONAL MATHEMATICS, ! SPRINGER-VERLAG (1990) !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ IMPLICIT NONE rosMethod = RS4 !~~~> Name of the method ros_Name = 'ROS-4' !~~~> Number of stages ros_S = 4 !~~~> The coefficient matrices A and C are strictly lower triangular. ! The lower triangular (subdiagonal) elements are stored in row-wise order: ! A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc. ! The general mapping formula is: ! A(i,j) = ros_A( (i-1)*(i-2)/2 + j ) ! C(i,j) = ros_C( (i-1)*(i-2)/2 + j ) ros_A(1) = 0.2000000000000000E+01_dp ros_A(2) = 0.1867943637803922E+01_dp ros_A(3) = 0.2344449711399156_dp ros_A(4) = ros_A(2) ros_A(5) = ros_A(3) ros_A(6) = 0.0_dp ros_C(1) =-0.7137615036412310E+01_dp ros_C(2) = 0.2580708087951457E+01_dp ros_C(3) = 0.6515950076447975_dp ros_C(4) =-0.2137148994382534E+01_dp ros_C(5) =-0.3214669691237626_dp ros_C(6) =-0.6949742501781779_dp !~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) ! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) ros_NewF(1) = .TRUE. ros_NewF(2) = .TRUE. ros_NewF(3) = .TRUE. ros_NewF(4) = .FALSE. !~~~> M_i = Coefficients for new step solution ros_M(1) = 0.2255570073418735E+01_dp ros_M(2) = 0.2870493262186792_dp ros_M(3) = 0.4353179431840180_dp ros_M(4) = 0.1093502252409163E+01_dp !~~~> E_i = Coefficients for error estimator ros_E(1) =-0.2815431932141155_dp ros_E(2) =-0.7276199124938920E-01_dp ros_E(3) =-0.1082196201495311_dp ros_E(4) =-0.1093502252409163E+01_dp !~~~> ros_ELO = estimator of local order - the minimum between the ! main and the embedded scheme orders plus 1 ros_ELO = 4.0_dp !~~~> Y_stage_i ~ Y( T + H*Alpha_i ) ros_Alpha(1) = 0.0_dp ros_Alpha(2) = 0.1145640000000000E+01_dp ros_Alpha(3) = 0.6552168638155900_dp ros_Alpha(4) = ros_Alpha(3) !~~~> Gamma_i = \sum_j gamma_{i,j} ros_Gamma(1) = 0.5728200000000000_dp ros_Gamma(2) =-0.1769193891319233E+01_dp ros_Gamma(3) = 0.7592633437920482_dp ros_Gamma(4) =-0.1049021087100450_dp END SUBROUTINE Ros4 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ SUBROUTINE Rodas3 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ! --- A STIFFLY-STABLE METHOD, 4 stages, order 3 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ IMPLICIT NONE rosMethod = RD3 !~~~> Name of the method ros_Name = 'RODAS-3' !~~~> Number of stages ros_S = 4 !~~~> The coefficient matrices A and C are strictly lower triangular. ! The lower triangular (subdiagonal) elements are stored in row-wise order: ! A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc. ! The general mapping formula is: ! A(i,j) = ros_A( (i-1)*(i-2)/2 + j ) ! C(i,j) = ros_C( (i-1)*(i-2)/2 + j ) ros_A(1) = 0.0_dp ros_A(2) = 2.0_dp ros_A(3) = 0.0_dp ros_A(4) = 2.0_dp ros_A(5) = 0.0_dp ros_A(6) = 1.0_dp ros_C(1) = 4.0_dp ros_C(2) = 1.0_dp ros_C(3) =-1.0_dp ros_C(4) = 1.0_dp ros_C(5) =-1.0_dp ros_C(6) =-(8.0_dp/3.0_dp) !~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) ! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) ros_NewF(1) = .TRUE. ros_NewF(2) = .FALSE. ros_NewF(3) = .TRUE. ros_NewF(4) = .TRUE. !~~~> M_i = Coefficients for new step solution ros_M(1) = 2.0_dp ros_M(2) = 0.0_dp ros_M(3) = 1.0_dp ros_M(4) = 1.0_dp !~~~> E_i = Coefficients for error estimator ros_E(1) = 0.0_dp ros_E(2) = 0.0_dp ros_E(3) = 0.0_dp ros_E(4) = 1.0_dp !~~~> ros_ELO = estimator of local order - the minimum between the ! main and the embedded scheme orders plus 1 ros_ELO = 3.0_dp !~~~> Y_stage_i ~ Y( T + H*Alpha_i ) ros_Alpha(1) = 0.0_dp ros_Alpha(2) = 0.0_dp ros_Alpha(3) = 1.0_dp ros_Alpha(4) = 1.0_dp !~~~> Gamma_i = \sum_j gamma_{i,j} ros_Gamma(1) = 0.5_dp ros_Gamma(2) = 1.5_dp ros_Gamma(3) = 0.0_dp ros_Gamma(4) = 0.0_dp END SUBROUTINE Rodas3 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ SUBROUTINE Rodas4 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ! STIFFLY-STABLE ROSENBROCK METHOD OF ORDER 4, WITH 6 STAGES ! ! E. HAIRER AND G. WANNER, SOLVING ORDINARY DIFFERENTIAL ! EQUATIONS II. STIFF AND DIFFERENTIAL-ALGEBRAIC PROBLEMS. ! SPRINGER SERIES IN COMPUTATIONAL MATHEMATICS, ! SPRINGER-VERLAG (1996) !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ IMPLICIT NONE rosMethod = RD4 !~~~> Name of the method ros_Name = 'RODAS-4' !~~~> Number of stages ros_S = 6 !~~~> Y_stage_i ~ Y( T + H*Alpha_i ) ros_Alpha(1) = 0.000_dp ros_Alpha(2) = 0.386_dp ros_Alpha(3) = 0.210_dp ros_Alpha(4) = 0.630_dp ros_Alpha(5) = 1.000_dp ros_Alpha(6) = 1.000_dp !~~~> Gamma_i = \sum_j gamma_{i,j} ros_Gamma(1) = 0.2500000000000000_dp ros_Gamma(2) =-0.1043000000000000_dp ros_Gamma(3) = 0.1035000000000000_dp ros_Gamma(4) =-0.3620000000000023E-01_dp ros_Gamma(5) = 0.0_dp ros_Gamma(6) = 0.0_dp !~~~> The coefficient matrices A and C are strictly lower triangular. ! The lower triangular (subdiagonal) elements are stored in row-wise order: ! A(2,1) = ros_A(1), A(3,1)=ros_A(2), A(3,2)=ros_A(3), etc. ! The general mapping formula is: A(i,j) = ros_A( (i-1)*(i-2)/2 + j ) ! C(i,j) = ros_C( (i-1)*(i-2)/2 + j ) ros_A(1) = 0.1544000000000000E+01_dp ros_A(2) = 0.9466785280815826_dp ros_A(3) = 0.2557011698983284_dp ros_A(4) = 0.3314825187068521E+01_dp ros_A(5) = 0.2896124015972201E+01_dp ros_A(6) = 0.9986419139977817_dp ros_A(7) = 0.1221224509226641E+01_dp ros_A(8) = 0.6019134481288629E+01_dp ros_A(9) = 0.1253708332932087E+02_dp ros_A(10) =-0.6878860361058950_dp ros_A(11) = ros_A(7) ros_A(12) = ros_A(8) ros_A(13) = ros_A(9) ros_A(14) = ros_A(10) ros_A(15) = 1.0_dp ros_C(1) =-0.5668800000000000E+01_dp ros_C(2) =-0.2430093356833875E+01_dp ros_C(3) =-0.2063599157091915_dp ros_C(4) =-0.1073529058151375_dp ros_C(5) =-0.9594562251023355E+01_dp ros_C(6) =-0.2047028614809616E+02_dp ros_C(7) = 0.7496443313967647E+01_dp ros_C(8) =-0.1024680431464352E+02_dp ros_C(9) =-0.3399990352819905E+02_dp ros_C(10) = 0.1170890893206160E+02_dp ros_C(11) = 0.8083246795921522E+01_dp ros_C(12) =-0.7981132988064893E+01_dp ros_C(13) =-0.3152159432874371E+02_dp ros_C(14) = 0.1631930543123136E+02_dp ros_C(15) =-0.6058818238834054E+01_dp !~~~> M_i = Coefficients for new step solution ros_M(1) = ros_A(7) ros_M(2) = ros_A(8) ros_M(3) = ros_A(9) ros_M(4) = ros_A(10) ros_M(5) = 1.0_dp ros_M(6) = 1.0_dp !~~~> E_i = Coefficients for error estimator ros_E(1) = 0.0_dp ros_E(2) = 0.0_dp ros_E(3) = 0.0_dp ros_E(4) = 0.0_dp ros_E(5) = 0.0_dp ros_E(6) = 1.0_dp !~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) ! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) ros_NewF(1) = .TRUE. ros_NewF(2) = .TRUE. ros_NewF(3) = .TRUE. ros_NewF(4) = .TRUE. ros_NewF(5) = .TRUE. ros_NewF(6) = .TRUE. !~~~> ros_ELO = estimator of local order - the minimum between the ! main and the embedded scheme orders plus 1 ros_ELO = 4.0_dp END SUBROUTINE Rodas4 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ SUBROUTINE Rang3 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ! STIFFLY-STABLE W METHOD OF ORDER 3, WITH 4 STAGES ! ! J. RANG and L. ANGERMANN ! NEW ROSENBROCK W-METHODS OF ORDER 3 ! FOR PARTIAL DIFFERENTIAL ALGEBRAIC ! EQUATIONS OF INDEX 1 ! BIT Numerical Mathematics (2005) 45: 761-787 ! DOI: 10.1007/s10543-005-0035-y ! Table 4.1-4.2 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ IMPLICIT NONE rosMethod = RG3 !~~~> Name of the method ros_Name = 'RANG-3' !~~~> Number of stages ros_S = 4 ros_A(1) = 5.09052051067020d+00; ros_A(2) = 5.09052051067020d+00; ros_A(3) = 0.0d0; ros_A(4) = 4.97628111010787d+00; ros_A(5) = 2.77268164715849d-02; ros_A(6) = 2.29428036027904d-01; ros_C(1) = -1.16790812312283d+01; ros_C(2) = -1.64057326467367d+01; ros_C(3) = -2.77268164715850d-01; ros_C(4) = -8.38103960500476d+00; ros_C(5) = -8.48328409199343d-01; ros_C(6) = 2.87009860433106d-01; ros_M(1) = 5.22582761233094d+00; ros_M(2) = -5.56971148154165d-01; ros_M(3) = 3.57979469353645d-01; ros_M(4) = 1.72337398521064d+00; ros_E(1) = -5.16845212784040d+00; ros_E(2) = -1.26351942603842d+00; ros_E(3) = -1.11022302462516d-16; ros_E(4) = 2.22044604925031d-16; ros_Alpha(1) = 0.0d00; ros_Alpha(2) = 2.21878746765329d+00; ros_Alpha(3) = 2.21878746765329d+00; ros_Alpha(4) = 1.55392337535788d+00; ros_Gamma(1) = 4.35866521508459d-01; ros_Gamma(2) = -1.78292094614483d+00; ros_Gamma(3) = -2.46541900496934d+00; ros_Gamma(4) = -8.05529997906370d-01; !~~~> Does the stage i require a new function evaluation (ros_NewF(i)=TRUE) ! or does it re-use the function evaluation from stage i-1 (ros_NewF(i)=FALSE) ros_NewF(1) = .TRUE. ros_NewF(2) = .TRUE. ros_NewF(3) = .TRUE. ros_NewF(4) = .TRUE. !~~~> ros_ELO = estimator of local order - the minimum between the ! main and the embedded scheme orders plus 1 ros_ELO = 3.0_dp END SUBROUTINE Rang3 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ! End of the set of internal Rosenbrock subroutines !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ END SUBROUTINE Rosenbrock !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ SUBROUTINE FunTemplate( T, Y, Ydot ) !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ! Template for the ODE function call. ! Updates the rate coefficients (and possibly the fixed species) at each call !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ USE aqchem_Parameters, ONLY: NVAR, LU_NONZERO USE aqchem_Global, ONLY: FIX, RCONST, TIME USE aqchem_Function, ONLY: Fun USE aqchem_Rates, ONLY: Update_SUN, Update_RCONST !~~~> Input variables REAL(kind=dp) :: T, Y(NVAR) !~~~> Output variables REAL(kind=dp) :: Ydot(NVAR) !~~~> Local variables REAL(kind=dp) :: Told Told = TIME TIME = T CALL Update_SUN() CALL Update_RCONST() CALL Fun( Y, FIX, RCONST, Ydot ) TIME = Told END SUBROUTINE FunTemplate !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ SUBROUTINE JacTemplate( T, Y, Jcb ) !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ! Template for the ODE Jacobian call. ! Updates the rate coefficients (and possibly the fixed species) at each call !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ USE aqchem_Parameters, ONLY: NVAR, LU_NONZERO USE aqchem_Global, ONLY: FIX, RCONST, TIME USE aqchem_Jacobian, ONLY: Jac_SP, LU_IROW, LU_ICOL USE aqchem_LinearAlgebra USE aqchem_Rates, ONLY: Update_SUN, Update_RCONST !~~~> Input variables REAL(kind=dp) :: T, Y(NVAR) !~~~> Output variables #ifdef FULL_ALGEBRA REAL(kind=dp) :: JV(LU_NONZERO), Jcb(NVAR,NVAR) #else REAL(kind=dp) :: Jcb(LU_NONZERO) #endif !~~~> Local variables REAL(kind=dp) :: Told #ifdef FULL_ALGEBRA INTEGER :: i, j #endif Told = TIME TIME = T CALL Update_SUN() CALL Update_RCONST() #ifdef FULL_ALGEBRA CALL Jac_SP(Y, FIX, RCONST, JV) DO j=1,NVAR DO i=1,NVAR Jcb(i,j) = 0.0_dp END DO END DO DO i=1,LU_NONZERO Jcb(LU_IROW(i),LU_ICOL(i)) = JV(i) END DO #else CALL Jac_SP( Y, FIX, RCONST, Jcb ) #endif TIME = Told END SUBROUTINE JacTemplate END MODULE aqchem_Integrator ! End of INTEGRATE function ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ================================================ FILE: CCTM/src/cloud/acm_ae7_kmt2/aqchem_Jacobian.F90 ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ! ! The ODE Jacobian of Chemical Model File ! ! Generated by KPP-2.2.3 symbolic chemistry Kinetics PreProcessor ! (http://www.cs.vt.edu/~asandu/Software/KPP) ! KPP is distributed under GPL, the general public licence ! (http://www.gnu.org/copyleft/gpl.html) ! (C) 1995-1997, V. Damian & A. Sandu, CGRER, Univ. Iowa ! (C) 1997-2005, A. Sandu, Michigan Tech, Virginia Tech ! With important contributions from: ! M. Damian, Villanova University, USA ! R. Sander, Max-Planck Institute for Chemistry, Mainz, Germany ! ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ MODULE aqchem_Jacobian USE aqchem_Parameters USE aqchem_JacobianSP IMPLICIT NONE CONTAINS ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ! ! Jac_SP - the Jacobian of Variables in sparse matrix representation ! Arguments : ! V - Concentrations of variable species (local) ! F - Concentrations of fixed species (local) ! RCT - Rate constants (local) ! JVS - sparse Jacobian of variables ! ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ SUBROUTINE Jac_SP ( V, F, RCT, JVS ) ! V - Concentrations of variable species (local) REAL(kind=dp) :: V(NVAR) ! F - Concentrations of fixed species (local) REAL(kind=dp) :: F(NFIX) ! RCT - Rate constants (local) REAL(kind=dp) :: RCT(NREACT) ! JVS - sparse Jacobian of variables REAL(kind=dp) :: JVS(LU_NONZERO) ! Local variables ! B - Temporary array REAL(kind=dp) :: B(374) ! B(1) = dA(1)/dV(100) B(1) = RCT(1) ! B(2) = dA(2)/dV(86) B(2) = RCT(2) ! B(3) = dA(3)/dV(87) B(3) = RCT(3) ! B(4) = dA(4)/dV(88) B(4) = RCT(4) ! B(5) = dA(5)/dV(85) B(5) = RCT(5) ! B(6) = dA(6)/dV(89) B(6) = RCT(6) ! B(7) = dA(7)/dV(90) B(7) = RCT(7) ! B(8) = dA(8)/dV(91) B(8) = RCT(8) ! B(9) = dA(9)/dV(92) B(9) = RCT(9) ! B(10) = dA(10)/dV(93) B(10) = RCT(10) ! B(11) = dA(11)/dV(94) B(11) = RCT(11) ! B(12) = dA(12)/dV(95) B(12) = RCT(12) ! B(13) = dA(13)/dV(82) B(13) = RCT(13) ! B(14) = dA(14)/dV(96) B(14) = RCT(14) ! B(15) = dA(15)/dV(74) B(15) = RCT(15) ! B(16) = dA(16)/dV(97) B(16) = RCT(16) ! B(17) = dA(17)/dV(145) B(17) = RCT(17) ! B(18) = dA(18)/dV(107) B(18) = RCT(18) ! B(19) = dA(19)/dV(125) B(19) = RCT(19) ! B(20) = dA(20)/dV(108) B(20) = RCT(20) ! B(21) = dA(21)/dV(146) B(21) = RCT(21) ! B(22) = dA(22)/dV(158) B(22) = RCT(22) ! B(23) = dA(23)/dV(142) B(23) = RCT(23) ! B(24) = dA(24)/dV(121) B(24) = RCT(24) ! B(25) = dA(25)/dV(122) B(25) = RCT(25) ! B(26) = dA(26)/dV(111) B(26) = RCT(26) ! B(27) = dA(27)/dV(106) B(27) = RCT(27) ! B(28) = dA(28)/dV(113) B(28) = RCT(28) ! B(29) = dA(29)/dV(155) B(29) = RCT(29) ! B(30) = dA(30)/dV(159) B(30) = RCT(30) ! B(31) = dA(31)/dV(126) B(31) = RCT(31) ! B(32) = dA(32)/dV(150) B(32) = RCT(32) ! B(33) = dA(33)/dV(1) B(33) = RCT(33) ! B(34) = dA(34)/dV(2) B(34) = RCT(34) ! B(35) = dA(35)/dV(3) B(35) = RCT(35) ! B(36) = dA(36)/dV(4) B(36) = RCT(36) ! B(37) = dA(37)/dV(5) B(37) = RCT(37) ! B(38) = dA(38)/dV(6) B(38) = RCT(38) ! B(39) = dA(39)/dV(7) B(39) = RCT(39) ! B(40) = dA(40)/dV(8) B(40) = RCT(40) ! B(41) = dA(41)/dV(145) B(41) = RCT(41) ! B(42) = dA(42)/dV(157) B(42) = RCT(42) ! B(43) = dA(43)/dV(107) B(43) = RCT(43) ! B(44) = dA(44)/dV(125) B(44) = RCT(44) ! B(45) = dA(45)/dV(115) B(45) = RCT(45) ! B(46) = dA(46)/dV(108) B(46) = RCT(46) ! B(47) = dA(47)/dV(142) B(47) = RCT(47) ! B(48) = dA(48)/dV(111) B(48) = RCT(48) ! B(50) = dA(50)/dV(110) B(50) = RCT(50) ! B(51) = dA(51)/dV(124) B(51) = RCT(51) ! B(52) = dA(52)/dV(155) B(52) = RCT(52) ! B(53) = dA(53)/dV(126) B(53) = RCT(53) ! B(54) = dA(54)/dV(150) B(54) = RCT(54) ! B(55) = dA(55)/dV(156) B(55) = RCT(55)*V(157) ! B(56) = dA(55)/dV(157) B(56) = RCT(55)*V(156) ! B(57) = dA(56)/dV(156) B(57) = RCT(56)*V(160) ! B(58) = dA(56)/dV(160) B(58) = RCT(56)*V(156) ! B(59) = dA(57)/dV(147) B(59) = RCT(57)*V(156) ! B(60) = dA(57)/dV(156) B(60) = RCT(57)*V(147) ! B(61) = dA(58)/dV(115) B(61) = RCT(58)*V(156) ! B(62) = dA(58)/dV(156) B(62) = RCT(58)*V(115) ! B(63) = dA(59)/dV(114) B(63) = RCT(59)*V(156) ! B(64) = dA(59)/dV(156) B(64) = RCT(59)*V(114) ! B(65) = dA(60)/dV(109) B(65) = RCT(60)*V(153) ! B(66) = dA(60)/dV(153) B(66) = RCT(60)*V(109) ! B(67) = dA(61)/dV(138) B(67) = RCT(61)*V(156) ! B(68) = dA(61)/dV(156) B(68) = RCT(61)*V(138) ! B(69) = dA(62)/dV(112) B(69) = RCT(62)*V(156) ! B(70) = dA(62)/dV(156) B(70) = RCT(62)*V(112) ! B(71) = dA(63)/dV(153) B(71) = RCT(63)*V(156) ! B(72) = dA(63)/dV(156) B(72) = RCT(63)*V(153) ! B(73) = dA(64)/dV(124) B(73) = RCT(64)*V(156) ! B(74) = dA(64)/dV(156) B(74) = RCT(64)*V(124) ! B(75) = dA(65)/dV(154) B(75) = RCT(65)*V(156) ! B(76) = dA(65)/dV(156) B(76) = RCT(65)*V(154) ! B(77) = dA(66)/dV(151) B(77) = RCT(66)*V(156) ! B(78) = dA(66)/dV(156) B(78) = RCT(66)*V(151) ! B(79) = dA(67)/dV(152) B(79) = RCT(67)*V(156) ! B(80) = dA(67)/dV(156) B(80) = RCT(67)*V(152) ! B(81) = dA(68)/dV(130) B(81) = RCT(68)*V(156) ! B(82) = dA(68)/dV(156) B(82) = RCT(68)*V(130) ! B(83) = dA(69)/dV(146) B(83) = RCT(69)*V(156)*V(157) ! B(84) = dA(69)/dV(156) B(84) = RCT(69)*V(146)*V(157) ! B(85) = dA(69)/dV(157) B(85) = RCT(69)*V(146)*V(156) ! B(86) = dA(70)/dV(145) B(86) = RCT(70)*V(158) ! B(87) = dA(70)/dV(158) B(87) = RCT(70)*V(145) ! B(88) = dA(71)/dV(157) B(88) = RCT(71)*V(158) ! B(89) = dA(71)/dV(158) B(89) = RCT(71)*V(157) ! B(90) = dA(72)/dV(158) B(90) = RCT(72)*V(160) ! B(91) = dA(72)/dV(160) B(91) = RCT(72)*V(158) ! B(92) = dA(73)/dV(14) B(92) = RCT(73)*V(145) ! B(93) = dA(73)/dV(145) B(93) = RCT(73)*V(14) ! B(94) = dA(74)/dV(14) B(94) = RCT(74)*V(157) ! B(95) = dA(74)/dV(157) B(95) = RCT(74)*V(14) ! B(96) = dA(75)/dV(14) B(96) = RCT(75)*V(160) ! B(97) = dA(75)/dV(160) B(97) = RCT(75)*V(14) ! B(98) = dA(76)/dV(13) B(98) = RCT(76)*V(145) ! B(99) = dA(76)/dV(145) B(99) = RCT(76)*V(13) ! B(100) = dA(77)/dV(13) B(100) = RCT(77)*V(157) ! B(101) = dA(77)/dV(157) B(101) = RCT(77)*V(13) ! B(102) = dA(78)/dV(13) B(102) = RCT(78)*V(160) ! B(103) = dA(78)/dV(160) B(103) = RCT(78)*V(13) ! B(104) = dA(79)/dV(13) B(104) = RCT(79)*V(14)*V(145) ! B(105) = dA(79)/dV(14) B(105) = RCT(79)*V(13)*V(145) ! B(106) = dA(79)/dV(145) B(106) = RCT(79)*V(13)*V(14) ! B(107) = dA(80)/dV(13) B(107) = RCT(80)*V(14)*V(157) ! B(108) = dA(80)/dV(14) B(108) = RCT(80)*V(13)*V(157) ! B(109) = dA(80)/dV(157) B(109) = RCT(80)*V(13)*V(14) ! B(110) = dA(81)/dV(13) B(110) = RCT(81)*V(14)*V(160) ! B(111) = dA(81)/dV(14) B(111) = RCT(81)*V(13)*V(160) ! B(112) = dA(81)/dV(160) B(112) = RCT(81)*V(13)*V(14) ! B(113) = dA(82)/dV(121) B(113) = RCT(82)*V(156)*V(157) ! B(114) = dA(82)/dV(156) B(114) = RCT(82)*V(121)*V(157) ! B(115) = dA(82)/dV(157) B(115) = RCT(82)*V(121)*V(156) ! B(116) = dA(83)/dV(122) B(116) = RCT(83)*V(156)*V(157) ! B(117) = dA(83)/dV(156) B(117) = RCT(83)*V(122)*V(157) ! B(118) = dA(83)/dV(157) B(118) = RCT(83)*V(122)*V(156) ! B(119) = dA(84)/dV(122) B(119) = RCT(84)*V(157) ! B(120) = dA(84)/dV(157) B(120) = RCT(84)*V(122) ! B(121) = dA(85)/dV(155) B(121) = RCT(85)*2*V(155) ! B(122) = dA(86)/dV(151) B(122) = RCT(86)*V(155) ! B(123) = dA(86)/dV(155) B(123) = RCT(86)*V(151) ! B(124) = dA(87)/dV(151) B(124) = RCT(87)*V(158) ! B(125) = dA(87)/dV(158) B(125) = RCT(87)*V(151) ! B(126) = dA(88)/dV(145) B(126) = RCT(88)*V(159) ! B(127) = dA(88)/dV(159) B(127) = RCT(88)*V(145) ! B(128) = dA(89)/dV(157) B(128) = RCT(89)*V(159) ! B(129) = dA(89)/dV(159) B(129) = RCT(89)*V(157) ! B(130) = dA(90)/dV(159) B(130) = RCT(90)*V(160) ! B(131) = dA(90)/dV(160) B(131) = RCT(90)*V(159) ! B(132) = dA(91)/dV(150) B(132) = RCT(91)*V(157) ! B(133) = dA(91)/dV(157) B(133) = RCT(91)*V(150) ! B(134) = dA(92)/dV(130) B(134) = RCT(92) ! B(135) = dA(93)/dV(152) B(135) = RCT(93)*V(158) ! B(136) = dA(93)/dV(158) B(136) = RCT(93)*V(152) ! B(137) = dA(94)/dV(152) B(137) = RCT(94)*V(161) ! B(138) = dA(94)/dV(161) B(138) = RCT(94)*V(152) ! B(139) = dA(95)/dV(126) B(139) = RCT(95)*V(161) ! B(140) = dA(95)/dV(161) B(140) = RCT(95)*V(126) ! B(141) = dA(96)/dV(145) B(141) = RCT(96) ! B(142) = dA(97)/dV(107) B(142) = RCT(97) ! B(143) = dA(98)/dV(125) B(143) = RCT(98) ! B(144) = dA(99)/dV(108) B(144) = RCT(99) ! B(145) = dA(100)/dV(146) B(145) = RCT(100) ! B(146) = dA(101)/dV(158) B(146) = RCT(101) ! B(147) = dA(102)/dV(142) B(147) = RCT(102) ! B(148) = dA(103)/dV(121) B(148) = RCT(103) ! B(149) = dA(104)/dV(122) B(149) = RCT(104) ! B(150) = dA(105)/dV(110) B(150) = RCT(105) ! B(151) = dA(106)/dV(111) B(151) = RCT(106) ! B(152) = dA(107)/dV(106) B(152) = RCT(107) ! B(153) = dA(108)/dV(113) B(153) = RCT(108) ! B(154) = dA(109)/dV(154) B(154) = RCT(109) ! B(155) = dA(110)/dV(147) B(155) = RCT(110) ! B(156) = dA(111)/dV(109) B(156) = RCT(111) ! B(157) = dA(112)/dV(112) B(157) = RCT(112) ! B(158) = dA(113)/dV(9) B(158) = RCT(113) ! B(159) = dA(114)/dV(10) B(159) = RCT(114) ! B(160) = dA(115)/dV(11) B(160) = RCT(115) ! B(161) = dA(116)/dV(12) B(161) = RCT(116) ! B(162) = dA(117)/dV(15) B(162) = RCT(117) ! B(163) = dA(118)/dV(16) B(163) = RCT(118) ! B(164) = dA(119)/dV(17) B(164) = RCT(119) ! B(165) = dA(120)/dV(18) B(165) = RCT(120) ! B(166) = dA(121)/dV(13) B(166) = RCT(121) ! B(167) = dA(122)/dV(14) B(167) = RCT(122) ! B(168) = dA(123)/dV(156) B(168) = RCT(123) ! B(169) = dA(124)/dV(153) B(169) = RCT(124) ! B(170) = dA(125)/dV(157) B(170) = RCT(125) ! B(171) = dA(126)/dV(160) B(171) = RCT(126) ! B(172) = dA(127)/dV(115) B(172) = RCT(127) ! B(173) = dA(128)/dV(114) B(173) = RCT(128) ! B(174) = dA(129)/dV(138) B(174) = RCT(129) ! B(175) = dA(130)/dV(124) B(175) = RCT(130) ! B(176) = dA(131)/dV(151) B(176) = RCT(131) ! B(177) = dA(132)/dV(155) B(177) = RCT(132) ! B(178) = dA(133)/dV(159) B(178) = RCT(133) ! B(179) = dA(134)/dV(126) B(179) = RCT(134) ! B(180) = dA(135)/dV(152) B(180) = RCT(135) ! B(181) = dA(136)/dV(130) B(181) = RCT(136) ! B(182) = dA(137)/dV(150) B(182) = RCT(137) ! B(184) = dA(139)/dV(161) B(184) = RCT(139) ! B(185) = dA(140)/dV(161) B(185) = RCT(140) ! B(186) = dA(141)/dV(101) B(186) = RCT(141) ! B(187) = dA(142)/dV(75) B(187) = RCT(142) ! B(188) = dA(143)/dV(77) B(188) = RCT(143) ! B(189) = dA(144)/dV(116) B(189) = RCT(144) ! B(190) = dA(145)/dV(76) B(190) = RCT(145) ! B(191) = dA(146)/dV(78) B(191) = RCT(146) ! B(192) = dA(147)/dV(116) B(192) = RCT(147)*F(1) ! B(194) = dA(148)/dV(116) B(194) = RCT(148)*V(154) ! B(195) = dA(148)/dV(154) B(195) = RCT(148)*V(116) ! B(196) = dA(149)/dV(102) B(196) = RCT(149)*V(116) ! B(197) = dA(149)/dV(116) B(197) = RCT(149)*V(102) ! B(198) = dA(150)/dV(103) B(198) = RCT(150)*V(116) ! B(199) = dA(150)/dV(116) B(199) = RCT(150)*V(103) ! B(200) = dA(151)/dV(116) B(200) = RCT(151)*F(1) ! B(202) = dA(152)/dV(116) B(202) = RCT(152)*V(154) ! B(203) = dA(152)/dV(154) B(203) = RCT(152)*V(116) ! B(204) = dA(153)/dV(116) B(204) = RCT(153)*V(147) ! B(205) = dA(153)/dV(147) B(205) = RCT(153)*V(116) ! B(206) = dA(154)/dV(76) B(206) = RCT(154)*F(1) ! B(208) = dA(155)/dV(76) B(208) = RCT(155)*V(154) ! B(209) = dA(155)/dV(154) B(209) = RCT(155)*V(76) ! B(210) = dA(156)/dV(78) B(210) = RCT(156)*F(1) ! B(212) = dA(157)/dV(78) B(212) = RCT(157)*V(154) ! B(213) = dA(157)/dV(154) B(213) = RCT(157)*V(78) ! B(214) = dA(158)/dV(116) B(214) = RCT(158) ! B(215) = dA(159)/dV(102) B(215) = RCT(159) ! B(216) = dA(160)/dV(103) B(216) = RCT(160) ! B(217) = dA(161)/dV(56) B(217) = RCT(161) ! B(218) = dA(162)/dV(76) B(218) = RCT(162) ! B(219) = dA(163)/dV(78) B(219) = RCT(163) ! B(220) = dA(164)/dV(60) B(220) = RCT(164) ! B(221) = dA(165)/dV(62) B(221) = RCT(165) ! B(222) = dA(166)/dV(53) B(222) = RCT(166) ! B(223) = dA(167)/dV(79) B(223) = RCT(167) ! B(224) = dA(168)/dV(80) B(224) = RCT(168) ! B(225) = dA(169)/dV(81) B(225) = RCT(169) ! B(226) = dA(170)/dV(84) B(226) = RCT(170) ! B(227) = dA(171)/dV(83) B(227) = RCT(171) ! B(228) = dA(172)/dV(105) B(228) = RCT(172) ! B(229) = dA(173)/dV(135) B(229) = RCT(173) ! B(230) = dA(174)/dV(144) B(230) = RCT(174) ! B(231) = dA(175)/dV(119) B(231) = RCT(175) ! B(232) = dA(176)/dV(134) B(232) = RCT(176) ! B(233) = dA(177)/dV(137) B(233) = RCT(177) ! B(234) = dA(178)/dV(129) B(234) = RCT(178) ! B(235) = dA(179)/dV(132) B(235) = RCT(179) ! B(236) = dA(180)/dV(134) B(236) = RCT(180) ! B(237) = dA(181)/dV(139) B(237) = RCT(181) ! B(238) = dA(182)/dV(135) B(238) = RCT(182) ! B(239) = dA(183)/dV(141) B(239) = RCT(183)*V(156) ! B(240) = dA(183)/dV(156) B(240) = RCT(183)*V(141) ! B(241) = dA(184)/dV(132) B(241) = RCT(184)*V(156) ! B(242) = dA(184)/dV(156) B(242) = RCT(184)*V(132) ! B(243) = dA(185)/dV(131) B(243) = RCT(185)*V(156) ! B(244) = dA(185)/dV(156) B(244) = RCT(185)*V(131) ! B(245) = dA(186)/dV(133) B(245) = RCT(186)*V(156) ! B(246) = dA(186)/dV(156) B(246) = RCT(186)*V(133) ! B(247) = dA(187)/dV(140) B(247) = RCT(187)*V(156) ! B(248) = dA(187)/dV(156) B(248) = RCT(187)*V(140) ! B(249) = dA(188)/dV(136) B(249) = RCT(188)*V(156) ! B(250) = dA(188)/dV(156) B(250) = RCT(188)*V(136) ! B(251) = dA(189)/dV(144) B(251) = RCT(189)*F(1) ! B(253) = dA(190)/dV(149) B(253) = RCT(190) ! B(254) = dA(191)/dV(119) B(254) = RCT(191)*F(1) ! B(256) = dA(192)/dV(117) B(256) = RCT(192) ! B(257) = dA(193)/dV(146) B(257) = RCT(193) ! B(258) = dA(194)/dV(105) B(258) = RCT(194)*V(161) ! B(259) = dA(194)/dV(161) B(259) = RCT(194)*V(105) ! B(260) = dA(195)/dV(105) B(260) = RCT(195)*V(161) ! B(261) = dA(195)/dV(161) B(261) = RCT(195)*V(105) ! B(262) = dA(196)/dV(139) B(262) = RCT(196)*V(161) ! B(263) = dA(196)/dV(161) B(263) = RCT(196)*V(139) ! B(264) = dA(197)/dV(140) B(264) = RCT(197)*V(161) ! B(265) = dA(197)/dV(161) B(265) = RCT(197)*V(140) ! B(266) = dA(198)/dV(106) B(266) = RCT(198)*V(161) ! B(267) = dA(198)/dV(161) B(267) = RCT(198)*V(106) ! B(268) = dA(199)/dV(137) B(268) = RCT(199)*V(161) ! B(269) = dA(199)/dV(161) B(269) = RCT(199)*V(137) ! B(270) = dA(200)/dV(141) B(270) = RCT(200)*V(161) ! B(271) = dA(200)/dV(161) B(271) = RCT(200)*V(141) ! B(272) = dA(201)/dV(129) B(272) = RCT(201)*V(161) ! B(273) = dA(201)/dV(161) B(273) = RCT(201)*V(129) ! B(274) = dA(202)/dV(132) B(274) = RCT(202)*V(161) ! B(275) = dA(202)/dV(161) B(275) = RCT(202)*V(132) ! B(276) = dA(203)/dV(131) B(276) = RCT(203)*V(161) ! B(277) = dA(203)/dV(161) B(277) = RCT(203)*V(131) ! B(278) = dA(204)/dV(113) B(278) = RCT(204)*V(161) ! B(279) = dA(204)/dV(161) B(279) = RCT(204)*V(113) ! B(280) = dA(205)/dV(134) B(280) = RCT(205)*V(161) ! B(281) = dA(205)/dV(161) B(281) = RCT(205)*V(134) ! B(282) = dA(206)/dV(133) B(282) = RCT(206)*V(161) ! B(283) = dA(206)/dV(161) B(283) = RCT(206)*V(133) ! B(284) = dA(207)/dV(135) B(284) = RCT(207)*V(161) ! B(285) = dA(207)/dV(161) B(285) = RCT(207)*V(135) ! B(286) = dA(208)/dV(136) B(286) = RCT(208)*V(161) ! B(287) = dA(208)/dV(161) B(287) = RCT(208)*V(136) ! B(288) = dA(209)/dV(149) B(288) = RCT(209)*V(161) ! B(289) = dA(209)/dV(161) B(289) = RCT(209)*V(149) ! B(290) = dA(210)/dV(142) B(290) = RCT(210)*V(161) ! B(291) = dA(210)/dV(161) B(291) = RCT(210)*V(142) ! B(292) = dA(211)/dV(117) B(292) = RCT(211)*V(161) ! B(293) = dA(211)/dV(161) B(293) = RCT(211)*V(117) ! B(294) = dA(212)/dV(137) B(294) = RCT(212) ! B(295) = dA(213)/dV(141) B(295) = RCT(213) ! B(296) = dA(214)/dV(129) B(296) = RCT(214) ! B(297) = dA(215)/dV(132) B(297) = RCT(215) ! B(298) = dA(216)/dV(131) B(298) = RCT(216) ! B(299) = dA(217)/dV(134) B(299) = RCT(217) ! B(300) = dA(218)/dV(133) B(300) = RCT(218) ! B(301) = dA(219)/dV(135) B(301) = RCT(219) ! B(302) = dA(220)/dV(136) B(302) = RCT(220) ! B(303) = dA(221)/dV(149) B(303) = RCT(221) ! B(304) = dA(222)/dV(105) B(304) = RCT(222) ! B(305) = dA(223)/dV(139) B(305) = RCT(223) ! B(306) = dA(224)/dV(140) B(306) = RCT(224) ! B(307) = dA(225)/dV(144) B(307) = RCT(225) ! B(308) = dA(226)/dV(119) B(308) = RCT(226) ! B(309) = dA(227)/dV(117) B(309) = RCT(227) ! B(310) = dA(228)/dV(98) B(310) = RCT(228) ! B(311) = dA(229)/dV(99) B(311) = RCT(229) ! B(312) = dA(230)/dV(127) B(312) = RCT(230) ! B(313) = dA(231)/dV(120) B(313) = RCT(231) ! B(314) = dA(232)/dV(147) B(314) = RCT(232) ! B(315) = dA(233)/dV(161) B(315) = RCT(233)*2*V(161) ! B(316) = dA(234)/dV(155) B(316) = RCT(234)*V(161) ! B(317) = dA(234)/dV(161) B(317) = RCT(234)*V(155) ! B(318) = dA(235)/dV(151) B(318) = RCT(235)*V(161) ! B(319) = dA(235)/dV(161) B(319) = RCT(235)*V(151) ! B(320) = dA(236)/dV(146) B(320) = RCT(236)*V(161) ! B(321) = dA(236)/dV(161) B(321) = RCT(236)*V(146) ! B(322) = dA(237)/dV(157) B(322) = RCT(237)*V(161) ! B(323) = dA(237)/dV(161) B(323) = RCT(237)*V(157) ! B(324) = dA(238)/dV(155) B(324) = RCT(238)*V(159) ! B(325) = dA(238)/dV(159) B(325) = RCT(238)*V(155) ! B(326) = dA(239)/dV(151) B(326) = RCT(239)*V(159) ! B(327) = dA(239)/dV(159) B(327) = RCT(239)*V(151) ! B(328) = dA(240)/dV(150) B(328) = RCT(240) ! B(329) = dA(241)/dV(127) B(329) = RCT(241)*V(154) ! B(330) = dA(241)/dV(154) B(330) = RCT(241)*V(127) ! B(331) = dA(242)/dV(127) B(331) = RCT(242)*V(157) ! B(332) = dA(242)/dV(157) B(332) = RCT(242)*V(127) ! B(333) = dA(243)/dV(104) B(333) = RCT(243)*F(3) ! B(335) = dA(244)/dV(143) B(335) = RCT(244)*V(155) ! B(336) = dA(244)/dV(155) B(336) = RCT(244)*V(143) ! B(337) = dA(245)/dV(143) B(337) = RCT(245)*2*V(143) ! B(338) = dA(246)/dV(128) B(338) = RCT(246)*V(156)*V(157) ! B(339) = dA(246)/dV(156) B(339) = RCT(246)*V(128)*V(157) ! B(340) = dA(246)/dV(157) B(340) = RCT(246)*V(128)*V(156) ! B(341) = dA(247)/dV(123) B(341) = RCT(247)*F(1) ! B(343) = dA(248)/dV(120) B(343) = RCT(248)*2*V(120) ! B(344) = dA(249)/dV(120) B(344) = RCT(249)*V(157) ! B(345) = dA(249)/dV(157) B(345) = RCT(249)*V(120) ! B(346) = dA(250)/dV(138) B(346) = RCT(250)*V(161) ! B(347) = dA(250)/dV(161) B(347) = RCT(250)*V(138) ! B(348) = dA(251)/dV(144) B(348) = RCT(251)*V(157) ! B(349) = dA(251)/dV(157) B(349) = RCT(251)*V(144) ! B(350) = dA(252)/dV(144) B(350) = RCT(252)*V(160) ! B(351) = dA(252)/dV(160) B(351) = RCT(252)*V(144) ! B(352) = dA(253)/dV(148) B(352) = RCT(253) ! B(353) = dA(254)/dV(148) B(353) = RCT(254)*V(153) ! B(354) = dA(254)/dV(153) B(354) = RCT(254)*V(148) ! B(355) = dA(255)/dV(148) B(355) = RCT(255)*V(161) ! B(356) = dA(255)/dV(161) B(356) = RCT(255)*V(148) ! B(357) = dA(256)/dV(119) B(357) = RCT(256)*V(157) ! B(358) = dA(256)/dV(157) B(358) = RCT(256)*V(119) ! B(359) = dA(257)/dV(119) B(359) = RCT(257)*V(160) ! B(360) = dA(257)/dV(160) B(360) = RCT(257)*V(119) ! B(361) = dA(258)/dV(118) B(361) = RCT(258) ! B(362) = dA(259)/dV(118) B(362) = RCT(259)*V(153) ! B(363) = dA(259)/dV(153) B(363) = RCT(259)*V(118) ! B(364) = dA(260)/dV(118) B(364) = RCT(260)*V(161) ! B(365) = dA(260)/dV(161) B(365) = RCT(260)*V(118) ! B(366) = dA(261)/dV(127) B(366) = RCT(261) ! B(367) = dA(262)/dV(120) B(367) = RCT(262) ! B(368) = dA(263)/dV(123) B(368) = RCT(263) ! B(369) = dA(264)/dV(104) B(369) = RCT(264) ! B(370) = dA(265)/dV(148) B(370) = RCT(265) ! B(371) = dA(266)/dV(143) B(371) = RCT(266) ! B(372) = dA(267)/dV(128) B(372) = RCT(267) ! B(373) = dA(268)/dV(22) B(373) = RCT(268) ! B(374) = dA(269)/dV(118) B(374) = RCT(269) ! Construct the Jacobian terms from B's ! JVS(1) = Jac_FULL(1,1) JVS(1) = -B(33) ! JVS(2) = Jac_FULL(2,2) JVS(2) = -B(34) ! JVS(3) = Jac_FULL(3,3) JVS(3) = -B(35) ! JVS(4) = Jac_FULL(4,4) JVS(4) = -B(36) ! JVS(5) = Jac_FULL(5,5) JVS(5) = -B(37) ! JVS(6) = Jac_FULL(6,6) JVS(6) = -B(38) ! JVS(7) = Jac_FULL(7,7) JVS(7) = -B(39) ! JVS(8) = Jac_FULL(8,8) JVS(8) = -B(40) ! JVS(9) = Jac_FULL(9,8) JVS(9) = B(40) ! JVS(10) = Jac_FULL(9,9) JVS(10) = -B(158) ! JVS(11) = Jac_FULL(10,6) JVS(11) = B(38) ! JVS(12) = Jac_FULL(10,10) JVS(12) = -B(159) ! JVS(13) = Jac_FULL(11,11) JVS(13) = -B(160) ! JVS(14) = Jac_FULL(12,7) JVS(14) = B(39) ! JVS(15) = Jac_FULL(12,12) JVS(15) = -B(161) ! JVS(16) = Jac_FULL(13,13) JVS(16) = -B(166) ! JVS(17) = Jac_FULL(14,14) JVS(17) = -B(167) ! JVS(18) = Jac_FULL(15,15) JVS(18) = -B(162) ! JVS(19) = Jac_FULL(16,16) JVS(19) = -B(163) ! JVS(20) = Jac_FULL(17,17) JVS(20) = -B(164) ! JVS(21) = Jac_FULL(18,4) JVS(21) = B(36) ! JVS(22) = Jac_FULL(18,18) JVS(22) = -B(165) ! JVS(23) = Jac_FULL(19,19) JVS(23) = 0 ! JVS(24) = Jac_FULL(19,104) JVS(24) = B(369) ! JVS(25) = Jac_FULL(19,123) JVS(25) = B(368) ! JVS(26) = Jac_FULL(19,128) JVS(26) = B(372) ! JVS(27) = Jac_FULL(19,143) JVS(27) = B(371) ! JVS(28) = Jac_FULL(19,145) JVS(28) = B(141) ! JVS(29) = Jac_FULL(19,148) JVS(29) = B(370) ! JVS(30) = Jac_FULL(19,157) JVS(30) = B(170) ! JVS(31) = Jac_FULL(19,160) JVS(31) = B(171) ! JVS(32) = Jac_FULL(20,20) JVS(32) = 0 ! JVS(33) = Jac_FULL(20,107) JVS(33) = B(142) ! JVS(34) = Jac_FULL(21,21) JVS(34) = 0 ! JVS(35) = Jac_FULL(21,22) JVS(35) = B(373) ! JVS(36) = Jac_FULL(21,114) JVS(36) = B(173) ! JVS(37) = Jac_FULL(21,115) JVS(37) = B(172) ! JVS(38) = Jac_FULL(21,125) JVS(38) = B(143) ! JVS(39) = Jac_FULL(22,22) JVS(39) = -B(373) ! JVS(40) = Jac_FULL(22,131) JVS(40) = B(276) ! JVS(41) = Jac_FULL(22,132) JVS(41) = B(274) ! JVS(42) = Jac_FULL(22,161) JVS(42) = B(275)+B(277) ! JVS(43) = Jac_FULL(23,23) JVS(43) = 0 ! JVS(44) = Jac_FULL(23,108) JVS(44) = B(144) ! JVS(45) = Jac_FULL(24,24) JVS(45) = 0 ! JVS(46) = Jac_FULL(24,146) JVS(46) = B(145) ! JVS(47) = Jac_FULL(25,25) JVS(47) = 0 ! JVS(48) = Jac_FULL(25,158) JVS(48) = B(146) ! JVS(49) = Jac_FULL(26,26) JVS(49) = 0 ! JVS(50) = Jac_FULL(26,138) JVS(50) = B(174) ! JVS(51) = Jac_FULL(26,142) JVS(51) = B(147) ! JVS(52) = Jac_FULL(27,27) JVS(52) = 0 ! JVS(53) = Jac_FULL(27,121) JVS(53) = B(148) ! JVS(54) = Jac_FULL(28,28) JVS(54) = 0 ! JVS(55) = Jac_FULL(28,122) JVS(55) = B(149) ! JVS(56) = Jac_FULL(29,29) JVS(56) = 0 ! JVS(57) = Jac_FULL(29,110) JVS(57) = B(150) ! JVS(58) = Jac_FULL(29,124) JVS(58) = B(175) ! JVS(59) = Jac_FULL(29,154) JVS(59) = B(154) ! JVS(60) = Jac_FULL(30,30) JVS(60) = 0 ! JVS(61) = Jac_FULL(30,111) JVS(61) = B(151) ! JVS(62) = Jac_FULL(31,31) JVS(62) = 0 ! JVS(63) = Jac_FULL(31,106) JVS(63) = B(152) ! JVS(64) = Jac_FULL(32,32) JVS(64) = 0 ! JVS(65) = Jac_FULL(32,113) JVS(65) = B(153) ! JVS(66) = Jac_FULL(33,33) JVS(66) = 0 ! JVS(67) = Jac_FULL(33,161) JVS(67) = B(185) ! JVS(68) = Jac_FULL(34,34) JVS(68) = 0 ! JVS(69) = Jac_FULL(34,147) JVS(69) = B(155) ! JVS(70) = Jac_FULL(35,35) JVS(70) = 0 ! JVS(71) = Jac_FULL(35,109) JVS(71) = B(156) ! JVS(72) = Jac_FULL(36,36) JVS(72) = 0 ! JVS(73) = Jac_FULL(36,112) JVS(73) = B(157) ! JVS(74) = Jac_FULL(37,9) JVS(74) = B(158) ! JVS(75) = Jac_FULL(37,37) JVS(75) = 0 ! JVS(76) = Jac_FULL(38,13) JVS(76) = B(166) ! JVS(77) = Jac_FULL(38,38) JVS(77) = 0 ! JVS(78) = Jac_FULL(39,14) JVS(78) = B(167) ! JVS(79) = Jac_FULL(39,39) JVS(79) = 0 ! JVS(80) = Jac_FULL(40,10) JVS(80) = B(159) ! JVS(81) = Jac_FULL(40,40) JVS(81) = 0 ! JVS(82) = Jac_FULL(41,11) JVS(82) = B(160) ! JVS(83) = Jac_FULL(41,41) JVS(83) = 0 ! JVS(84) = Jac_FULL(42,12) JVS(84) = B(161) ! JVS(85) = Jac_FULL(42,42) JVS(85) = 0 ! JVS(86) = Jac_FULL(43,43) JVS(86) = 0 ! JVS(87) = Jac_FULL(43,156) JVS(87) = B(168) ! JVS(88) = Jac_FULL(44,15) JVS(88) = B(162) ! JVS(89) = Jac_FULL(44,44) JVS(89) = 0 ! JVS(90) = Jac_FULL(45,16) JVS(90) = B(163) ! JVS(91) = Jac_FULL(45,45) JVS(91) = 0 ! JVS(92) = Jac_FULL(46,17) JVS(92) = B(164) ! JVS(93) = Jac_FULL(46,46) JVS(93) = 0 ! JVS(94) = Jac_FULL(47,18) JVS(94) = B(165) ! JVS(95) = Jac_FULL(47,47) JVS(95) = 0 ! JVS(96) = Jac_FULL(48,48) JVS(96) = 0 ! JVS(97) = Jac_FULL(48,159) JVS(97) = B(178) ! JVS(98) = Jac_FULL(49,49) JVS(98) = 0 ! JVS(99) = Jac_FULL(49,126) JVS(99) = B(179) ! JVS(100) = Jac_FULL(49,152) JVS(100) = B(180) ! JVS(101) = Jac_FULL(50,50) JVS(101) = 0 ! JVS(102) = Jac_FULL(50,130) JVS(102) = B(181) ! JVS(103) = Jac_FULL(50,150) JVS(103) = B(182) ! JVS(104) = Jac_FULL(51,51) JVS(104) = 0 ! JVS(105) = Jac_FULL(51,116) JVS(105) = B(214) ! JVS(106) = Jac_FULL(52,52) JVS(106) = 0 ! JVS(107) = Jac_FULL(52,53) JVS(107) = B(222) ! JVS(108) = Jac_FULL(52,102) JVS(108) = B(215) ! JVS(109) = Jac_FULL(53,53) JVS(109) = -B(222) ! JVS(110) = Jac_FULL(53,116) JVS(110) = B(200)+B(202)+B(204) ! JVS(111) = Jac_FULL(53,147) JVS(111) = B(205) ! JVS(112) = Jac_FULL(53,154) JVS(112) = B(203) ! JVS(113) = Jac_FULL(54,54) JVS(113) = 0 ! JVS(114) = Jac_FULL(54,103) JVS(114) = B(216) ! JVS(115) = Jac_FULL(55,55) JVS(115) = 0 ! JVS(116) = Jac_FULL(55,56) JVS(116) = B(217) ! JVS(117) = Jac_FULL(56,56) JVS(117) = -B(217) ! JVS(118) = Jac_FULL(56,102) JVS(118) = B(196) ! JVS(119) = Jac_FULL(56,103) JVS(119) = B(198) ! JVS(120) = Jac_FULL(56,116) JVS(120) = B(197)+B(199) ! JVS(121) = Jac_FULL(57,57) JVS(121) = 0 ! JVS(122) = Jac_FULL(57,76) JVS(122) = B(218) ! JVS(123) = Jac_FULL(58,58) JVS(123) = 0 ! JVS(124) = Jac_FULL(58,78) JVS(124) = B(219) ! JVS(125) = Jac_FULL(59,59) JVS(125) = 0 ! JVS(126) = Jac_FULL(59,60) JVS(126) = B(220) ! JVS(127) = Jac_FULL(60,60) JVS(127) = -B(220) ! JVS(128) = Jac_FULL(60,76) JVS(128) = B(206) ! JVS(129) = Jac_FULL(60,78) JVS(129) = B(210) ! JVS(130) = Jac_FULL(61,61) JVS(130) = 0 ! JVS(131) = Jac_FULL(61,62) JVS(131) = B(221) ! JVS(132) = Jac_FULL(62,62) JVS(132) = -B(221) ! JVS(133) = Jac_FULL(62,76) JVS(133) = B(208) ! JVS(134) = Jac_FULL(62,78) JVS(134) = B(212) ! JVS(135) = Jac_FULL(62,154) JVS(135) = B(209)+B(213) ! JVS(136) = Jac_FULL(63,63) JVS(136) = 0 ! JVS(137) = Jac_FULL(63,137) JVS(137) = B(294) ! JVS(138) = Jac_FULL(63,141) JVS(138) = B(295) ! JVS(139) = Jac_FULL(64,64) JVS(139) = 0 ! JVS(140) = Jac_FULL(64,129) JVS(140) = B(296) ! JVS(141) = Jac_FULL(64,131) JVS(141) = B(298) ! JVS(142) = Jac_FULL(64,132) JVS(142) = B(297) ! JVS(143) = Jac_FULL(65,65) JVS(143) = 0 ! JVS(144) = Jac_FULL(65,133) JVS(144) = B(300) ! JVS(145) = Jac_FULL(65,134) JVS(145) = B(299) ! JVS(146) = Jac_FULL(66,66) JVS(146) = 0 ! JVS(147) = Jac_FULL(66,135) JVS(147) = B(301) ! JVS(148) = Jac_FULL(66,136) JVS(148) = B(302) ! JVS(149) = Jac_FULL(67,67) JVS(149) = 0 ! JVS(150) = Jac_FULL(67,144) JVS(150) = B(307) ! JVS(151) = Jac_FULL(67,148) JVS(151) = B(370) ! JVS(152) = Jac_FULL(67,149) JVS(152) = B(303) ! JVS(153) = Jac_FULL(68,68) JVS(153) = 0 ! JVS(154) = Jac_FULL(68,151) JVS(154) = B(176) ! JVS(155) = Jac_FULL(68,155) JVS(155) = B(177) ! JVS(156) = Jac_FULL(69,69) JVS(156) = 0 ! JVS(157) = Jac_FULL(69,105) JVS(157) = B(304) ! JVS(158) = Jac_FULL(70,70) JVS(158) = 0 ! JVS(159) = Jac_FULL(70,139) JVS(159) = B(305) ! JVS(160) = Jac_FULL(70,140) JVS(160) = B(306) ! JVS(161) = Jac_FULL(71,71) JVS(161) = 0 ! JVS(162) = Jac_FULL(71,117) JVS(162) = B(309) ! JVS(163) = Jac_FULL(71,118) JVS(163) = B(374) ! JVS(164) = Jac_FULL(71,119) JVS(164) = B(308) ! JVS(165) = Jac_FULL(72,72) JVS(165) = 0 ! JVS(166) = Jac_FULL(72,127) JVS(166) = B(366) ! JVS(167) = Jac_FULL(73,73) JVS(167) = 0 ! JVS(168) = Jac_FULL(73,120) JVS(168) = B(367) ! JVS(169) = Jac_FULL(74,74) JVS(169) = -B(15) ! JVS(170) = Jac_FULL(74,126) JVS(170) = B(31) ! JVS(171) = Jac_FULL(75,75) JVS(171) = -B(187) ! JVS(172) = Jac_FULL(75,76) JVS(172) = B(190) ! JVS(173) = Jac_FULL(76,75) JVS(173) = B(187) ! JVS(174) = Jac_FULL(76,76) JVS(174) = -B(190)-B(206)-B(208)-B(218) ! JVS(175) = Jac_FULL(76,154) JVS(175) = -B(209) ! JVS(176) = Jac_FULL(77,77) JVS(176) = -B(188) ! JVS(177) = Jac_FULL(77,78) JVS(177) = B(191) ! JVS(178) = Jac_FULL(78,77) JVS(178) = B(188) ! JVS(179) = Jac_FULL(78,78) JVS(179) = -B(191)-B(210)-B(212)-B(219) ! JVS(180) = Jac_FULL(78,154) JVS(180) = -B(213) ! JVS(181) = Jac_FULL(79,79) JVS(181) = -B(223) ! JVS(182) = Jac_FULL(79,105) JVS(182) = B(228) ! JVS(183) = Jac_FULL(80,80) JVS(183) = -B(224) ! JVS(184) = Jac_FULL(80,135) JVS(184) = B(229) ! JVS(185) = Jac_FULL(81,81) JVS(185) = -B(225) ! JVS(186) = Jac_FULL(81,144) JVS(186) = B(230) ! JVS(187) = Jac_FULL(82,82) JVS(187) = -B(13) ! JVS(188) = Jac_FULL(82,155) JVS(188) = B(29) ! JVS(189) = Jac_FULL(83,83) JVS(189) = -B(227) ! JVS(190) = Jac_FULL(83,134) JVS(190) = B(232) ! JVS(191) = Jac_FULL(84,84) JVS(191) = -B(226) ! JVS(192) = Jac_FULL(84,119) JVS(192) = B(231) ! JVS(193) = Jac_FULL(85,85) JVS(193) = -B(5) ! JVS(194) = Jac_FULL(85,146) JVS(194) = B(21) ! JVS(195) = Jac_FULL(86,86) JVS(195) = -B(2) ! JVS(196) = Jac_FULL(86,107) JVS(196) = B(18) ! JVS(197) = Jac_FULL(87,87) JVS(197) = -B(3) ! JVS(198) = Jac_FULL(87,125) JVS(198) = B(19) ! JVS(199) = Jac_FULL(88,88) JVS(199) = -B(4) ! JVS(200) = Jac_FULL(88,108) JVS(200) = B(20) ! JVS(201) = Jac_FULL(89,89) JVS(201) = -B(6) ! JVS(202) = Jac_FULL(89,158) JVS(202) = B(22) ! JVS(203) = Jac_FULL(90,90) JVS(203) = -B(7) ! JVS(204) = Jac_FULL(90,142) JVS(204) = B(23) ! JVS(205) = Jac_FULL(91,91) JVS(205) = -B(8) ! JVS(206) = Jac_FULL(91,121) JVS(206) = B(24) ! JVS(207) = Jac_FULL(92,92) JVS(207) = -B(9) ! JVS(208) = Jac_FULL(92,122) JVS(208) = B(25) ! JVS(209) = Jac_FULL(93,93) JVS(209) = -B(10) ! JVS(210) = Jac_FULL(93,111) JVS(210) = B(26) ! JVS(211) = Jac_FULL(94,94) JVS(211) = -B(11) ! JVS(212) = Jac_FULL(94,106) JVS(212) = B(27) ! JVS(213) = Jac_FULL(95,95) JVS(213) = -B(12) ! JVS(214) = Jac_FULL(95,113) JVS(214) = B(28) ! JVS(215) = Jac_FULL(96,96) JVS(215) = -B(14) ! JVS(216) = Jac_FULL(96,159) JVS(216) = B(30) ! JVS(217) = Jac_FULL(97,97) JVS(217) = -B(16) ! JVS(218) = Jac_FULL(97,150) JVS(218) = B(32) ! JVS(219) = Jac_FULL(98,98) JVS(219) = -B(310) ! JVS(220) = Jac_FULL(98,127) JVS(220) = B(312) ! JVS(221) = Jac_FULL(99,99) JVS(221) = -B(311) ! JVS(222) = Jac_FULL(99,120) JVS(222) = B(313) ! JVS(223) = Jac_FULL(100,100) JVS(223) = -B(1) ! JVS(224) = Jac_FULL(100,145) JVS(224) = B(17) ! JVS(225) = Jac_FULL(101,101) JVS(225) = -B(186) ! JVS(226) = Jac_FULL(101,116) JVS(226) = B(189) ! JVS(227) = Jac_FULL(102,102) JVS(227) = -B(196)-B(215) ! JVS(228) = Jac_FULL(102,116) JVS(228) = B(192)-B(197) ! JVS(229) = Jac_FULL(103,103) JVS(229) = -B(198)-B(216) ! JVS(230) = Jac_FULL(103,116) JVS(230) = B(194)-B(199) ! JVS(231) = Jac_FULL(103,154) JVS(231) = B(195) ! JVS(232) = Jac_FULL(104,104) JVS(232) = -B(333)-B(369) ! JVS(233) = Jac_FULL(104,120) JVS(233) = B(344) ! JVS(234) = Jac_FULL(104,127) JVS(234) = B(331) ! JVS(235) = Jac_FULL(104,157) JVS(235) = B(322)+B(332)+B(345) ! JVS(236) = Jac_FULL(104,161) JVS(236) = B(323) ! JVS(237) = Jac_FULL(105,79) JVS(237) = B(223) ! JVS(238) = Jac_FULL(105,105) JVS(238) = -B(228)-B(258)-B(260)-B(304) ! JVS(239) = Jac_FULL(105,161) JVS(239) = -B(259)-B(261) ! JVS(240) = Jac_FULL(106,94) JVS(240) = B(11) ! JVS(241) = Jac_FULL(106,105) JVS(241) = B(260) ! JVS(242) = Jac_FULL(106,106) JVS(242) = -B(27)-B(152)-B(266) ! JVS(243) = Jac_FULL(106,161) JVS(243) = B(261)-B(267) ! JVS(244) = Jac_FULL(107,86) JVS(244) = B(2) ! JVS(245) = Jac_FULL(107,107) JVS(245) = -B(18)-B(43)-B(142) ! JVS(246) = Jac_FULL(107,147) JVS(246) = B(59) ! JVS(247) = Jac_FULL(107,156) JVS(247) = B(60) ! JVS(248) = Jac_FULL(108,88) JVS(248) = B(4) ! JVS(249) = Jac_FULL(108,108) JVS(249) = -B(20)-B(46)-B(144) ! JVS(250) = Jac_FULL(108,109) JVS(250) = B(65) ! JVS(251) = Jac_FULL(108,153) JVS(251) = B(66) ! JVS(252) = Jac_FULL(109,2) JVS(252) = B(34) ! JVS(253) = Jac_FULL(109,108) JVS(253) = B(46) ! JVS(254) = Jac_FULL(109,109) JVS(254) = -B(65)-B(156) ! JVS(255) = Jac_FULL(109,153) JVS(255) = -B(66) ! JVS(256) = Jac_FULL(110,110) JVS(256) = -B(50)-B(150) ! JVS(257) = Jac_FULL(110,124) JVS(257) = B(73) ! JVS(258) = Jac_FULL(110,156) JVS(258) = B(74) ! JVS(259) = Jac_FULL(111,93) JVS(259) = B(10) ! JVS(260) = Jac_FULL(111,111) JVS(260) = -B(26)-B(48)-B(151) ! JVS(261) = Jac_FULL(111,112) JVS(261) = B(69) ! JVS(262) = Jac_FULL(111,156) JVS(262) = B(70) ! JVS(263) = Jac_FULL(112,3) JVS(263) = B(35) ! JVS(264) = Jac_FULL(112,111) JVS(264) = B(48) ! JVS(265) = Jac_FULL(112,112) JVS(265) = -B(69)-B(157) ! JVS(266) = Jac_FULL(112,156) JVS(266) = -B(70) ! JVS(267) = Jac_FULL(113,95) JVS(267) = B(12) ! JVS(268) = Jac_FULL(113,113) JVS(268) = -B(28)-B(153)-B(278) ! JVS(269) = Jac_FULL(113,161) JVS(269) = -B(279) ! JVS(270) = Jac_FULL(114,114) JVS(270) = -B(63)-B(173) ! JVS(271) = Jac_FULL(114,115) JVS(271) = B(45) ! JVS(272) = Jac_FULL(114,156) JVS(272) = -B(64) ! JVS(273) = Jac_FULL(115,114) JVS(273) = B(63) ! JVS(274) = Jac_FULL(115,115) JVS(274) = -B(45)-B(61)-B(172) ! JVS(275) = Jac_FULL(115,125) JVS(275) = B(44) ! JVS(276) = Jac_FULL(115,156) JVS(276) = -B(62)+B(64) ! JVS(277) = Jac_FULL(116,101) JVS(277) = B(186) ! JVS(278) = Jac_FULL(116,102) JVS(278) = -B(196) ! JVS(279) = Jac_FULL(116,103) JVS(279) = -B(198) ! JVS(280) = Jac_FULL(116,116) JVS(280) = -B(189)-B(192)-B(194)-B(197)-B(199)-B(200)-B(202)-B(204)-B(214) ! JVS(281) = Jac_FULL(116,147) JVS(281) = -B(205) ! JVS(282) = Jac_FULL(116,154) JVS(282) = -B(195)-B(203) ! JVS(283) = Jac_FULL(117,117) JVS(283) = -B(256)-B(292)-B(309) ! JVS(284) = Jac_FULL(117,118) JVS(284) = B(362) ! JVS(285) = Jac_FULL(117,119) JVS(285) = B(254) ! JVS(286) = Jac_FULL(117,153) JVS(286) = B(363) ! JVS(287) = Jac_FULL(117,161) JVS(287) = -B(293) ! JVS(288) = Jac_FULL(118,118) JVS(288) = -B(361)-B(362)-B(364)-B(374) ! JVS(289) = Jac_FULL(118,119) JVS(289) = B(357)+B(359) ! JVS(290) = Jac_FULL(118,153) JVS(290) = -B(363) ! JVS(291) = Jac_FULL(118,157) JVS(291) = B(358) ! JVS(292) = Jac_FULL(118,160) JVS(292) = B(360) ! JVS(293) = Jac_FULL(118,161) JVS(293) = -B(365) ! JVS(294) = Jac_FULL(119,84) JVS(294) = B(226) ! JVS(295) = Jac_FULL(119,117) JVS(295) = B(256) ! JVS(296) = Jac_FULL(119,118) JVS(296) = B(361) ! JVS(297) = Jac_FULL(119,119) JVS(297) = -B(231)-B(254)-B(308)-B(357)-B(359) ! JVS(298) = Jac_FULL(119,153) JVS(298) = 0 ! JVS(299) = Jac_FULL(119,157) JVS(299) = -B(358) ! JVS(300) = Jac_FULL(119,160) JVS(300) = -B(360) ! JVS(301) = Jac_FULL(119,161) JVS(301) = 0 ! JVS(302) = Jac_FULL(120,99) JVS(302) = B(311) ! JVS(303) = Jac_FULL(120,120) JVS(303) = -B(313)-2*B(343)-B(344)-B(367) ! JVS(304) = Jac_FULL(120,157) JVS(304) = -B(345) ! JVS(305) = Jac_FULL(121,91) JVS(305) = B(8) ! JVS(306) = Jac_FULL(121,120) JVS(306) = B(344) ! JVS(307) = Jac_FULL(121,121) JVS(307) = -B(24)-B(113)-B(148) ! JVS(308) = Jac_FULL(121,156) JVS(308) = -B(114) ! JVS(309) = Jac_FULL(121,157) JVS(309) = -B(115)+B(345) ! JVS(310) = Jac_FULL(122,92) JVS(310) = B(9) ! JVS(311) = Jac_FULL(122,122) JVS(311) = -B(25)-B(116)-B(119)-B(149) ! JVS(312) = Jac_FULL(122,156) JVS(312) = -B(117) ! JVS(313) = Jac_FULL(122,157) JVS(313) = -B(118)-B(120) ! JVS(314) = Jac_FULL(123,123) JVS(314) = -B(341)-B(368) ! JVS(315) = Jac_FULL(123,127) JVS(315) = B(329) ! JVS(316) = Jac_FULL(123,143) JVS(316) = 2*B(337) ! JVS(317) = Jac_FULL(123,154) JVS(317) = B(330) ! JVS(318) = Jac_FULL(124,110) JVS(318) = B(50) ! JVS(319) = Jac_FULL(124,123) JVS(319) = B(341) ! JVS(320) = Jac_FULL(124,124) JVS(320) = -B(51)-B(73)-B(175) ! JVS(321) = Jac_FULL(124,127) JVS(321) = 0 ! JVS(322) = Jac_FULL(124,143) JVS(322) = 0 ! JVS(323) = Jac_FULL(124,154) JVS(323) = B(75) ! JVS(324) = Jac_FULL(124,156) JVS(324) = -B(74)+B(76) ! JVS(325) = Jac_FULL(125,87) JVS(325) = B(3) ! JVS(326) = Jac_FULL(125,115) JVS(326) = B(61) ! JVS(327) = Jac_FULL(125,125) JVS(327) = -B(19)-B(44)-B(143) ! JVS(328) = Jac_FULL(125,129) JVS(328) = 2*B(272) ! JVS(329) = Jac_FULL(125,131) JVS(329) = B(276) ! JVS(330) = Jac_FULL(125,132) JVS(330) = B(274) ! JVS(331) = Jac_FULL(125,133) JVS(331) = B(282) ! JVS(332) = Jac_FULL(125,134) JVS(332) = B(280) ! JVS(333) = Jac_FULL(125,138) JVS(333) = B(346) ! JVS(334) = Jac_FULL(125,142) JVS(334) = B(290) ! JVS(335) = Jac_FULL(125,156) JVS(335) = B(62) ! JVS(336) = Jac_FULL(125,161) JVS(336) = 2*B(273)+B(275)+B(277)+B(281)+B(283)+B(291)+B(347) ! JVS(337) = Jac_FULL(126,74) JVS(337) = B(15) ! JVS(338) = Jac_FULL(126,126) JVS(338) = -B(31)-B(53)-B(139)-B(179) ! JVS(339) = Jac_FULL(126,152) JVS(339) = B(79) ! JVS(340) = Jac_FULL(126,156) JVS(340) = B(80) ! JVS(341) = Jac_FULL(126,161) JVS(341) = -B(140) ! JVS(342) = Jac_FULL(127,98) JVS(342) = B(310) ! JVS(343) = Jac_FULL(127,127) JVS(343) = -B(312)-B(329)-B(331)-B(366) ! JVS(344) = Jac_FULL(127,154) JVS(344) = -B(330) ! JVS(345) = Jac_FULL(127,157) JVS(345) = -B(332) ! JVS(346) = Jac_FULL(128,128) JVS(346) = -B(338)-B(372) ! JVS(347) = Jac_FULL(128,143) JVS(347) = B(335) ! JVS(348) = Jac_FULL(128,155) JVS(348) = B(336) ! JVS(349) = Jac_FULL(128,156) JVS(349) = -B(339) ! JVS(350) = Jac_FULL(128,157) JVS(350) = -B(340) ! JVS(351) = Jac_FULL(129,129) JVS(351) = -B(234)-B(272)-B(296) ! JVS(352) = Jac_FULL(129,132) JVS(352) = B(241) ! JVS(353) = Jac_FULL(129,137) JVS(353) = B(268) ! JVS(354) = Jac_FULL(129,156) JVS(354) = B(242) ! JVS(355) = Jac_FULL(129,161) JVS(355) = B(269)-B(273) ! JVS(356) = Jac_FULL(130,130) JVS(356) = -B(81)-B(134)-B(181) ! JVS(357) = Jac_FULL(130,150) JVS(357) = B(54) ! JVS(358) = Jac_FULL(130,151) JVS(358) = B(326) ! JVS(359) = Jac_FULL(130,156) JVS(359) = -B(82) ! JVS(360) = Jac_FULL(130,159) JVS(360) = B(327) ! JVS(361) = Jac_FULL(131,131) JVS(361) = -B(243)-B(276)-B(298) ! JVS(362) = Jac_FULL(131,132) JVS(362) = B(235) ! JVS(363) = Jac_FULL(131,156) JVS(363) = -B(244) ! JVS(364) = Jac_FULL(131,161) JVS(364) = -B(277) ! JVS(365) = Jac_FULL(132,129) JVS(365) = B(234) ! JVS(366) = Jac_FULL(132,131) JVS(366) = B(243) ! JVS(367) = Jac_FULL(132,132) JVS(367) = -B(235)-B(241)-B(274)-B(297) ! JVS(368) = Jac_FULL(132,137) JVS(368) = 0 ! JVS(369) = Jac_FULL(132,141) JVS(369) = B(270) ! JVS(370) = Jac_FULL(132,156) JVS(370) = -B(242)+B(244) ! JVS(371) = Jac_FULL(132,161) JVS(371) = B(271)-B(275) ! JVS(372) = Jac_FULL(133,113) JVS(372) = 0.92*B(278) ! JVS(373) = Jac_FULL(133,133) JVS(373) = -B(245)-B(282)-B(300) ! JVS(374) = Jac_FULL(133,134) JVS(374) = B(236) ! JVS(375) = Jac_FULL(133,156) JVS(375) = -B(246) ! JVS(376) = Jac_FULL(133,161) JVS(376) = 0.92*B(279)-B(283) ! JVS(377) = Jac_FULL(134,83) JVS(377) = B(227) ! JVS(378) = Jac_FULL(134,133) JVS(378) = B(245) ! JVS(379) = Jac_FULL(134,134) JVS(379) = -B(232)-B(236)-B(280)-B(299) ! JVS(380) = Jac_FULL(134,156) JVS(380) = B(246) ! JVS(381) = Jac_FULL(134,161) JVS(381) = -B(281) ! JVS(382) = Jac_FULL(135,80) JVS(382) = B(224) ! JVS(383) = Jac_FULL(135,134) JVS(383) = B(280) ! JVS(384) = Jac_FULL(135,135) JVS(384) = -B(229)-B(238)-B(284)-B(301) ! JVS(385) = Jac_FULL(135,136) JVS(385) = B(249) ! JVS(386) = Jac_FULL(135,156) JVS(386) = B(250) ! JVS(387) = Jac_FULL(135,161) JVS(387) = B(281)-B(285) ! JVS(388) = Jac_FULL(136,133) JVS(388) = B(282) ! JVS(389) = Jac_FULL(136,134) JVS(389) = 0 ! JVS(390) = Jac_FULL(136,135) JVS(390) = B(238) ! JVS(391) = Jac_FULL(136,136) JVS(391) = -B(249)-B(286)-B(302) ! JVS(392) = Jac_FULL(136,156) JVS(392) = -B(250) ! JVS(393) = Jac_FULL(136,161) JVS(393) = B(283)-B(287) ! JVS(394) = Jac_FULL(137,106) JVS(394) = B(266) ! JVS(395) = Jac_FULL(137,135) JVS(395) = 0.85*B(284) ! JVS(396) = Jac_FULL(137,136) JVS(396) = 0 ! JVS(397) = Jac_FULL(137,137) JVS(397) = -B(233)-B(268)-B(294) ! JVS(398) = Jac_FULL(137,141) JVS(398) = B(239) ! JVS(399) = Jac_FULL(137,156) JVS(399) = B(240) ! JVS(400) = Jac_FULL(137,161) JVS(400) = B(267)-B(269)+0.85*B(285) ! JVS(401) = Jac_FULL(138,138) JVS(401) = -B(67)-B(174)-B(346) ! JVS(402) = Jac_FULL(138,142) JVS(402) = B(47) ! JVS(403) = Jac_FULL(138,156) JVS(403) = -B(68) ! JVS(404) = Jac_FULL(138,161) JVS(404) = -B(347) ! JVS(405) = Jac_FULL(139,105) JVS(405) = B(258) ! JVS(406) = Jac_FULL(139,139) JVS(406) = -B(237)-B(262)-B(305) ! JVS(407) = Jac_FULL(139,140) JVS(407) = B(247) ! JVS(408) = Jac_FULL(139,156) JVS(408) = B(248) ! JVS(409) = Jac_FULL(139,161) JVS(409) = B(259)-B(263) ! JVS(410) = Jac_FULL(140,139) JVS(410) = B(237) ! JVS(411) = Jac_FULL(140,140) JVS(411) = -B(247)-B(264)-B(306) ! JVS(412) = Jac_FULL(140,156) JVS(412) = -B(248) ! JVS(413) = Jac_FULL(140,161) JVS(413) = -B(265) ! JVS(414) = Jac_FULL(141,113) JVS(414) = 0.08*B(278) ! JVS(415) = Jac_FULL(141,136) JVS(415) = 0.85*B(286) ! JVS(416) = Jac_FULL(141,137) JVS(416) = B(233) ! JVS(417) = Jac_FULL(141,139) JVS(417) = B(262) ! JVS(418) = Jac_FULL(141,140) JVS(418) = B(264) ! JVS(419) = Jac_FULL(141,141) JVS(419) = -B(239)-B(270)-B(295) ! JVS(420) = Jac_FULL(141,156) JVS(420) = -B(240) ! JVS(421) = Jac_FULL(141,161) JVS(421) = B(263)+B(265)-B(271)+0.08*B(279)+0.85*B(287) ! JVS(422) = Jac_FULL(142,90) JVS(422) = B(7) ! JVS(423) = Jac_FULL(142,138) JVS(423) = B(67) ! JVS(424) = Jac_FULL(142,142) JVS(424) = -B(23)-B(47)-B(147)-B(290) ! JVS(425) = Jac_FULL(142,148) JVS(425) = B(355) ! JVS(426) = Jac_FULL(142,149) JVS(426) = B(288) ! JVS(427) = Jac_FULL(142,156) JVS(427) = B(68) ! JVS(428) = Jac_FULL(142,161) JVS(428) = B(289)-B(291)+B(356) ! JVS(429) = Jac_FULL(143,104) JVS(429) = B(333) ! JVS(430) = Jac_FULL(143,120) JVS(430) = 0 ! JVS(431) = Jac_FULL(143,127) JVS(431) = 0 ! JVS(432) = Jac_FULL(143,143) JVS(432) = -B(335)-2*B(337)-B(371) ! JVS(433) = Jac_FULL(143,154) JVS(433) = 0 ! JVS(434) = Jac_FULL(143,155) JVS(434) = -B(336) ! JVS(435) = Jac_FULL(143,157) JVS(435) = 0 ! JVS(436) = Jac_FULL(143,161) JVS(436) = 0 ! JVS(437) = Jac_FULL(144,81) JVS(437) = B(225) ! JVS(438) = Jac_FULL(144,120) JVS(438) = 2*B(343) ! JVS(439) = Jac_FULL(144,144) JVS(439) = -B(230)-B(251)-B(307)-B(348)-B(350) ! JVS(440) = Jac_FULL(144,148) JVS(440) = B(352) ! JVS(441) = Jac_FULL(144,149) JVS(441) = B(253) ! JVS(442) = Jac_FULL(144,157) JVS(442) = -B(349) ! JVS(443) = Jac_FULL(144,160) JVS(443) = -B(351) ! JVS(444) = Jac_FULL(145,13) JVS(444) = -B(98)-B(104) ! JVS(445) = Jac_FULL(145,14) JVS(445) = -B(92)-B(105) ! JVS(446) = Jac_FULL(145,100) JVS(446) = B(1) ! JVS(447) = Jac_FULL(145,145) JVS(447) = -B(17)-B(41)-B(86)-B(93)-B(99)-B(106)-B(126)-B(141) ! JVS(448) = Jac_FULL(145,156) JVS(448) = B(55) ! JVS(449) = Jac_FULL(145,157) JVS(449) = B(56) ! JVS(450) = Jac_FULL(145,158) JVS(450) = -B(87) ! JVS(451) = Jac_FULL(145,159) JVS(451) = -B(127) ! JVS(452) = Jac_FULL(146,85) JVS(452) = B(5) ! JVS(453) = Jac_FULL(146,146) JVS(453) = -B(21)-B(83)-B(145)-B(257)-B(320) ! JVS(454) = Jac_FULL(146,151) JVS(454) = B(122) ! JVS(455) = Jac_FULL(146,155) JVS(455) = B(121)+B(123) ! JVS(456) = Jac_FULL(146,156) JVS(456) = -B(84) ! JVS(457) = Jac_FULL(146,157) JVS(457) = -B(85) ! JVS(458) = Jac_FULL(146,161) JVS(458) = B(315)-B(321) ! JVS(459) = Jac_FULL(147,1) JVS(459) = B(33) ! JVS(460) = Jac_FULL(147,107) JVS(460) = B(43) ! JVS(461) = Jac_FULL(147,116) JVS(461) = -B(204) ! JVS(462) = Jac_FULL(147,127) JVS(462) = B(329)+B(331) ! JVS(463) = Jac_FULL(147,147) JVS(463) = -B(59)-B(155)-B(205)-B(314) ! JVS(464) = Jac_FULL(147,150) JVS(464) = B(132) ! JVS(465) = Jac_FULL(147,152) JVS(465) = B(135) ! JVS(466) = Jac_FULL(147,154) JVS(466) = B(330) ! JVS(467) = Jac_FULL(147,156) JVS(467) = -B(60) ! JVS(468) = Jac_FULL(147,157) JVS(468) = B(133)+B(332) ! JVS(469) = Jac_FULL(147,158) JVS(469) = B(136) ! JVS(470) = Jac_FULL(148,144) JVS(470) = B(348)+B(350) ! JVS(471) = Jac_FULL(148,148) JVS(471) = -B(352)-B(353)-B(355)-B(370) ! JVS(472) = Jac_FULL(148,149) JVS(472) = 0 ! JVS(473) = Jac_FULL(148,153) JVS(473) = -B(354) ! JVS(474) = Jac_FULL(148,157) JVS(474) = B(349) ! JVS(475) = Jac_FULL(148,160) JVS(475) = B(351) ! JVS(476) = Jac_FULL(148,161) JVS(476) = -B(356) ! JVS(477) = Jac_FULL(149,135) JVS(477) = 0.15*B(284) ! JVS(478) = Jac_FULL(149,136) JVS(478) = 0.15*B(286) ! JVS(479) = Jac_FULL(149,144) JVS(479) = B(251) ! JVS(480) = Jac_FULL(149,148) JVS(480) = B(353) ! JVS(481) = Jac_FULL(149,149) JVS(481) = -B(253)-B(288)-B(303) ! JVS(482) = Jac_FULL(149,153) JVS(482) = B(354) ! JVS(483) = Jac_FULL(149,156) JVS(483) = 0 ! JVS(484) = Jac_FULL(149,157) JVS(484) = 0 ! JVS(485) = Jac_FULL(149,160) JVS(485) = 0 ! JVS(486) = Jac_FULL(149,161) JVS(486) = 0.15*B(285)+0.15*B(287)-B(289) ! JVS(487) = Jac_FULL(150,97) JVS(487) = B(16) ! JVS(488) = Jac_FULL(150,130) JVS(488) = B(81) ! JVS(489) = Jac_FULL(150,150) JVS(489) = -B(32)-B(54)-B(132)-B(182)-B(328) ! JVS(490) = Jac_FULL(150,151) JVS(490) = 0 ! JVS(491) = Jac_FULL(150,155) JVS(491) = B(324) ! JVS(492) = Jac_FULL(150,156) JVS(492) = B(82) ! JVS(493) = Jac_FULL(150,157) JVS(493) = -B(133) ! JVS(494) = Jac_FULL(150,159) JVS(494) = B(325) ! JVS(495) = Jac_FULL(151,151) JVS(495) = -B(77)-B(122)-B(124)-B(176)-B(318)-B(326) ! JVS(496) = Jac_FULL(151,155) JVS(496) = B(52)-B(123) ! JVS(497) = Jac_FULL(151,156) JVS(497) = -B(78) ! JVS(498) = Jac_FULL(151,158) JVS(498) = -B(125) ! JVS(499) = Jac_FULL(151,159) JVS(499) = -B(327) ! JVS(500) = Jac_FULL(151,161) JVS(500) = -B(319) ! JVS(501) = Jac_FULL(152,126) JVS(501) = B(53) ! JVS(502) = Jac_FULL(152,130) JVS(502) = B(134) ! JVS(503) = Jac_FULL(152,145) JVS(503) = 2*B(126) ! JVS(504) = Jac_FULL(152,150) JVS(504) = 0 ! JVS(505) = Jac_FULL(152,151) JVS(505) = 0 ! JVS(506) = Jac_FULL(152,152) JVS(506) = -B(79)-B(135)-B(137)-B(180) ! JVS(507) = Jac_FULL(152,155) JVS(507) = 0 ! JVS(508) = Jac_FULL(152,156) JVS(508) = -B(80) ! JVS(509) = Jac_FULL(152,157) JVS(509) = 2*B(128) ! JVS(510) = Jac_FULL(152,158) JVS(510) = -B(136) ! JVS(511) = Jac_FULL(152,159) JVS(511) = 2*B(127)+2*B(129)+2*B(130) ! JVS(512) = Jac_FULL(152,160) JVS(512) = 2*B(131) ! JVS(513) = Jac_FULL(152,161) JVS(513) = -B(138) ! JVS(514) = Jac_FULL(153,108) JVS(514) = B(46) ! JVS(515) = Jac_FULL(153,109) JVS(515) = -B(65) ! JVS(516) = Jac_FULL(153,131) JVS(516) = B(276) ! JVS(517) = Jac_FULL(153,132) JVS(517) = 0 ! JVS(518) = Jac_FULL(153,137) JVS(518) = 0 ! JVS(519) = Jac_FULL(153,138) JVS(519) = B(346) ! JVS(520) = Jac_FULL(153,141) JVS(520) = 0 ! JVS(521) = Jac_FULL(153,142) JVS(521) = 0 ! JVS(522) = Jac_FULL(153,144) JVS(522) = B(350) ! JVS(523) = Jac_FULL(153,147) JVS(523) = B(314) ! JVS(524) = Jac_FULL(153,148) JVS(524) = -B(353) ! JVS(525) = Jac_FULL(153,149) JVS(525) = 0 ! JVS(526) = Jac_FULL(153,150) JVS(526) = 0 ! JVS(527) = Jac_FULL(153,151) JVS(527) = B(122)+B(124)+B(318) ! JVS(528) = Jac_FULL(153,152) JVS(528) = B(137) ! JVS(529) = Jac_FULL(153,153) JVS(529) = -B(66)-B(71)-B(169)-B(354) ! JVS(530) = Jac_FULL(153,154) JVS(530) = 0 ! JVS(531) = Jac_FULL(153,155) JVS(531) = B(123) ! JVS(532) = Jac_FULL(153,156) JVS(532) = -B(72) ! JVS(533) = Jac_FULL(153,157) JVS(533) = 0 ! JVS(534) = Jac_FULL(153,158) JVS(534) = B(125) ! JVS(535) = Jac_FULL(153,159) JVS(535) = 0 ! JVS(536) = Jac_FULL(153,160) JVS(536) = B(351) ! JVS(537) = Jac_FULL(153,161) JVS(537) = B(138)+B(277)+B(319)+B(347) ! JVS(538) = Jac_FULL(154,5) JVS(538) = B(37) ! JVS(539) = Jac_FULL(154,13) JVS(539) = B(98)+B(100)+B(102)+B(104)+B(107)+B(110) ! JVS(540) = Jac_FULL(154,14) JVS(540) = B(92)+B(94)+B(96)+B(105)+B(108)+B(111) ! JVS(541) = Jac_FULL(154,76) JVS(541) = -B(208) ! JVS(542) = Jac_FULL(154,78) JVS(542) = -B(212) ! JVS(543) = Jac_FULL(154,116) JVS(543) = -B(194)-B(202) ! JVS(544) = Jac_FULL(154,121) JVS(544) = B(113) ! JVS(545) = Jac_FULL(154,122) JVS(545) = B(116)+B(119) ! JVS(546) = Jac_FULL(154,124) JVS(546) = B(51) ! JVS(547) = Jac_FULL(154,127) JVS(547) = -B(329) ! JVS(548) = Jac_FULL(154,128) JVS(548) = 2*B(338) ! JVS(549) = Jac_FULL(154,143) JVS(549) = 0 ! JVS(550) = Jac_FULL(154,145) JVS(550) = B(86)+B(93)+B(99)+B(106)+B(126) ! JVS(551) = Jac_FULL(154,146) JVS(551) = B(83) ! JVS(552) = Jac_FULL(154,147) JVS(552) = 0 ! JVS(553) = Jac_FULL(154,150) JVS(553) = B(132) ! JVS(554) = Jac_FULL(154,151) JVS(554) = 0 ! JVS(555) = Jac_FULL(154,152) JVS(555) = 0 ! JVS(556) = Jac_FULL(154,154) JVS(556) = -B(75)-B(154)-B(195)-B(203)-B(209)-B(213)-B(330) ! JVS(557) = Jac_FULL(154,155) JVS(557) = 0 ! JVS(558) = Jac_FULL(154,156) JVS(558) = -B(76)+B(84)+B(114)+B(117)+2*B(339) ! JVS(559) = Jac_FULL(154,157) JVS(559) = B(85)+B(88)+B(95)+B(101)+B(109)+B(115)+B(118)+B(120)+B(128)+B(133)+2*B(340) ! JVS(560) = Jac_FULL(154,158) JVS(560) = B(87)+B(89)+B(90) ! JVS(561) = Jac_FULL(154,159) JVS(561) = B(127)+B(129)+B(130) ! JVS(562) = Jac_FULL(154,160) JVS(562) = B(91)+B(97)+B(103)+B(112)+B(131) ! JVS(563) = Jac_FULL(154,161) JVS(563) = 0 ! JVS(564) = Jac_FULL(155,82) JVS(564) = B(13) ! JVS(565) = Jac_FULL(155,105) JVS(565) = B(258)+B(260) ! JVS(566) = Jac_FULL(155,106) JVS(566) = B(266) ! JVS(567) = Jac_FULL(155,113) JVS(567) = B(278) ! JVS(568) = Jac_FULL(155,120) JVS(568) = 2*B(343) ! JVS(569) = Jac_FULL(155,133) JVS(569) = B(282) ! JVS(570) = Jac_FULL(155,134) JVS(570) = B(280) ! JVS(571) = Jac_FULL(155,137) JVS(571) = B(268) ! JVS(572) = Jac_FULL(155,138) JVS(572) = B(346) ! JVS(573) = Jac_FULL(155,139) JVS(573) = B(262) ! JVS(574) = Jac_FULL(155,140) JVS(574) = B(264) ! JVS(575) = Jac_FULL(155,141) JVS(575) = B(270) ! JVS(576) = Jac_FULL(155,142) JVS(576) = B(290) ! JVS(577) = Jac_FULL(155,143) JVS(577) = -B(335) ! JVS(578) = Jac_FULL(155,146) JVS(578) = B(320) ! JVS(579) = Jac_FULL(155,148) JVS(579) = B(355) ! JVS(580) = Jac_FULL(155,149) JVS(580) = B(288) ! JVS(581) = Jac_FULL(155,150) JVS(581) = B(328) ! JVS(582) = Jac_FULL(155,151) JVS(582) = B(77)-B(122) ! JVS(583) = Jac_FULL(155,153) JVS(583) = 0 ! JVS(584) = Jac_FULL(155,154) JVS(584) = 0 ! JVS(585) = Jac_FULL(155,155) JVS(585) = -B(29)-B(52)-2*B(121)-B(123)-B(177)-B(316)-B(324)-B(336) ! JVS(586) = Jac_FULL(155,156) JVS(586) = B(78) ! JVS(587) = Jac_FULL(155,157) JVS(587) = 0 ! JVS(588) = Jac_FULL(155,158) JVS(588) = 0 ! JVS(589) = Jac_FULL(155,159) JVS(589) = -B(325) ! JVS(590) = Jac_FULL(155,160) JVS(590) = 0 ! JVS(591) = Jac_FULL(155,161) JVS(591) = B(259)+B(261)+B(263)+B(265)+B(267)+B(269)+B(271)+B(279)+B(281)+B(283)+B(289)+B(291)-B(317)+B(321)+B(347)& &+B(356) ! JVS(592) = Jac_FULL(156,13) JVS(592) = 2*B(98)+B(100)+2*B(104)+B(107) ! JVS(593) = Jac_FULL(156,14) JVS(593) = 2*B(92)+B(94)+2*B(105)+B(108) ! JVS(594) = Jac_FULL(156,107) JVS(594) = B(43) ! JVS(595) = Jac_FULL(156,110) JVS(595) = B(50) ! JVS(596) = Jac_FULL(156,111) JVS(596) = B(48) ! JVS(597) = Jac_FULL(156,112) JVS(597) = -B(69) ! JVS(598) = Jac_FULL(156,114) JVS(598) = -B(63) ! JVS(599) = Jac_FULL(156,115) JVS(599) = B(45)-B(61) ! JVS(600) = Jac_FULL(156,121) JVS(600) = B(113) ! JVS(601) = Jac_FULL(156,122) JVS(601) = B(116)+B(119) ! JVS(602) = Jac_FULL(156,124) JVS(602) = B(51)-B(73) ! JVS(603) = Jac_FULL(156,125) JVS(603) = B(44) ! JVS(604) = Jac_FULL(156,126) JVS(604) = B(53) ! JVS(605) = Jac_FULL(156,127) JVS(605) = B(331) ! JVS(606) = Jac_FULL(156,128) JVS(606) = 2*B(338) ! JVS(607) = Jac_FULL(156,129) JVS(607) = B(234) ! JVS(608) = Jac_FULL(156,130) JVS(608) = -B(81) ! JVS(609) = Jac_FULL(156,131) JVS(609) = -B(243) ! JVS(610) = Jac_FULL(156,132) JVS(610) = B(235)-B(241) ! JVS(611) = Jac_FULL(156,133) JVS(611) = -B(245) ! JVS(612) = Jac_FULL(156,134) JVS(612) = B(236) ! JVS(613) = Jac_FULL(156,135) JVS(613) = B(238) ! JVS(614) = Jac_FULL(156,136) JVS(614) = -B(249) ! JVS(615) = Jac_FULL(156,137) JVS(615) = B(233) ! JVS(616) = Jac_FULL(156,138) JVS(616) = -B(67) ! JVS(617) = Jac_FULL(156,139) JVS(617) = B(237)+B(262) ! JVS(618) = Jac_FULL(156,140) JVS(618) = -B(247) ! JVS(619) = Jac_FULL(156,141) JVS(619) = -B(239) ! JVS(620) = Jac_FULL(156,142) JVS(620) = B(47) ! JVS(621) = Jac_FULL(156,143) JVS(621) = 0 ! JVS(622) = Jac_FULL(156,145) JVS(622) = B(41)+2*B(86)+2*B(93)+2*B(99)+2*B(106)+4*B(126) ! JVS(623) = Jac_FULL(156,146) JVS(623) = B(83) ! JVS(624) = Jac_FULL(156,147) JVS(624) = -B(59) ! JVS(625) = Jac_FULL(156,148) JVS(625) = 0 ! JVS(626) = Jac_FULL(156,149) JVS(626) = 0 ! JVS(627) = Jac_FULL(156,150) JVS(627) = B(54)+2*B(132) ! JVS(628) = Jac_FULL(156,151) JVS(628) = -B(77) ! JVS(629) = Jac_FULL(156,152) JVS(629) = -B(79) ! JVS(630) = Jac_FULL(156,153) JVS(630) = -B(71) ! JVS(631) = Jac_FULL(156,154) JVS(631) = -B(75) ! JVS(632) = Jac_FULL(156,155) JVS(632) = B(52) ! JVS(633) = Jac_FULL(156,156) JVS(633) = -B(55)-B(57)-B(60)-B(62)-B(64)-B(68)-B(70)-B(72)-B(74)-B(76)-B(78)-B(80)-B(82)+B(84)+B(114)+B(117)-B(168)& &-B(240)-B(242)-B(244)-B(246)-B(248)-B(250)+2*B(339) ! JVS(634) = Jac_FULL(156,157) JVS(634) = B(42)-B(56)+B(85)+B(88)+B(95)+B(101)+B(109)+B(115)+B(118)+B(120)+3*B(128)+2*B(133)+B(332)+2*B(340) ! JVS(635) = Jac_FULL(156,158) JVS(635) = 2*B(87)+B(89) ! JVS(636) = Jac_FULL(156,159) JVS(636) = 4*B(127)+3*B(129)+2*B(130) ! JVS(637) = Jac_FULL(156,160) JVS(637) = -B(58)+2*B(131) ! JVS(638) = Jac_FULL(156,161) JVS(638) = B(263) ! JVS(639) = Jac_FULL(157,13) JVS(639) = -B(100)-B(107) ! JVS(640) = Jac_FULL(157,14) JVS(640) = -B(94)-B(108) ! JVS(641) = Jac_FULL(157,120) JVS(641) = -B(344) ! JVS(642) = Jac_FULL(157,121) JVS(642) = -B(113) ! JVS(643) = Jac_FULL(157,122) JVS(643) = -B(116)-B(119) ! JVS(644) = Jac_FULL(157,127) JVS(644) = -B(331) ! JVS(645) = Jac_FULL(157,128) JVS(645) = -B(338) ! JVS(646) = Jac_FULL(157,143) JVS(646) = 0 ! JVS(647) = Jac_FULL(157,144) JVS(647) = -B(348) ! JVS(648) = Jac_FULL(157,145) JVS(648) = B(41) ! JVS(649) = Jac_FULL(157,146) JVS(649) = -B(83) ! JVS(650) = Jac_FULL(157,148) JVS(650) = B(352)+B(355) ! JVS(651) = Jac_FULL(157,149) JVS(651) = 0 ! JVS(652) = Jac_FULL(157,150) JVS(652) = -B(132) ! JVS(653) = Jac_FULL(157,151) JVS(653) = 0 ! JVS(654) = Jac_FULL(157,153) JVS(654) = 0 ! JVS(655) = Jac_FULL(157,154) JVS(655) = 0 ! JVS(656) = Jac_FULL(157,155) JVS(656) = 0 ! JVS(657) = Jac_FULL(157,156) JVS(657) = -B(55)+B(57)-B(84)-B(114)-B(117)-B(339) ! JVS(658) = Jac_FULL(157,157) JVS(658) = -B(42)-B(56)-B(85)-B(88)-B(95)-B(101)-B(109)-B(115)-B(118)-B(120)-B(128)-B(133)-B(170)-B(322)-B(332)-B(340)& &-B(345)-B(349) ! JVS(659) = Jac_FULL(157,158) JVS(659) = -B(89) ! JVS(660) = Jac_FULL(157,159) JVS(660) = -B(129) ! JVS(661) = Jac_FULL(157,160) JVS(661) = B(58) ! JVS(662) = Jac_FULL(157,161) JVS(662) = -B(323)+B(356) ! JVS(663) = Jac_FULL(158,89) JVS(663) = B(6) ! JVS(664) = Jac_FULL(158,145) JVS(664) = -B(86) ! JVS(665) = Jac_FULL(158,151) JVS(665) = -B(124) ! JVS(666) = Jac_FULL(158,152) JVS(666) = -B(135) ! JVS(667) = Jac_FULL(158,155) JVS(667) = 0 ! JVS(668) = Jac_FULL(158,156) JVS(668) = 0 ! JVS(669) = Jac_FULL(158,157) JVS(669) = -B(88) ! JVS(670) = Jac_FULL(158,158) JVS(670) = -B(22)-B(87)-B(89)-B(90)-B(125)-B(136)-B(146) ! JVS(671) = Jac_FULL(158,159) JVS(671) = 0 ! JVS(672) = Jac_FULL(158,160) JVS(672) = -B(91) ! JVS(673) = Jac_FULL(158,161) JVS(673) = 0 ! JVS(674) = Jac_FULL(159,96) JVS(674) = B(14) ! JVS(675) = Jac_FULL(159,126) JVS(675) = B(139) ! JVS(676) = Jac_FULL(159,145) JVS(676) = -2*B(126) ! JVS(677) = Jac_FULL(159,147) JVS(677) = B(314) ! JVS(678) = Jac_FULL(159,150) JVS(678) = B(328) ! JVS(679) = Jac_FULL(159,151) JVS(679) = -B(326) ! JVS(680) = Jac_FULL(159,152) JVS(680) = B(137) ! JVS(681) = Jac_FULL(159,154) JVS(681) = 0 ! JVS(682) = Jac_FULL(159,155) JVS(682) = -B(324) ! JVS(683) = Jac_FULL(159,156) JVS(683) = 0 ! JVS(684) = Jac_FULL(159,157) JVS(684) = -2*B(128) ! JVS(685) = Jac_FULL(159,158) JVS(685) = 0 ! JVS(686) = Jac_FULL(159,159) JVS(686) = -B(30)-2*B(127)-2*B(129)-2*B(130)-B(178)-B(325)-B(327) ! JVS(687) = Jac_FULL(159,160) JVS(687) = -2*B(131) ! JVS(688) = Jac_FULL(159,161) JVS(688) = B(138)+B(140) ! JVS(689) = Jac_FULL(160,13) JVS(689) = -B(102)-B(110) ! JVS(690) = Jac_FULL(160,14) JVS(690) = -B(96)-B(111) ! JVS(691) = Jac_FULL(160,144) JVS(691) = -B(350) ! JVS(692) = Jac_FULL(160,148) JVS(692) = B(353) ! JVS(693) = Jac_FULL(160,149) JVS(693) = 0 ! JVS(694) = Jac_FULL(160,153) JVS(694) = B(354) ! JVS(695) = Jac_FULL(160,154) JVS(695) = 0 ! JVS(696) = Jac_FULL(160,155) JVS(696) = 0 ! JVS(697) = Jac_FULL(160,156) JVS(697) = -B(57) ! JVS(698) = Jac_FULL(160,157) JVS(698) = B(42) ! JVS(699) = Jac_FULL(160,158) JVS(699) = -B(90) ! JVS(700) = Jac_FULL(160,159) JVS(700) = -B(130) ! JVS(701) = Jac_FULL(160,160) JVS(701) = -B(58)-B(91)-B(97)-B(103)-B(112)-B(131)-B(171)-B(351) ! JVS(702) = Jac_FULL(160,161) JVS(702) = 0 ! JVS(703) = Jac_FULL(161,105) JVS(703) = -B(258)-B(260) ! JVS(704) = Jac_FULL(161,106) JVS(704) = -B(266) ! JVS(705) = Jac_FULL(161,113) JVS(705) = -B(278) ! JVS(706) = Jac_FULL(161,123) JVS(706) = B(341) ! JVS(707) = Jac_FULL(161,126) JVS(707) = -B(139) ! JVS(708) = Jac_FULL(161,127) JVS(708) = 0 ! JVS(709) = Jac_FULL(161,129) JVS(709) = -2*B(272) ! JVS(710) = Jac_FULL(161,131) JVS(710) = -B(276) ! JVS(711) = Jac_FULL(161,132) JVS(711) = -B(274) ! JVS(712) = Jac_FULL(161,133) JVS(712) = -B(282) ! JVS(713) = Jac_FULL(161,134) JVS(713) = -B(280) ! JVS(714) = Jac_FULL(161,135) JVS(714) = -B(284) ! JVS(715) = Jac_FULL(161,136) JVS(715) = -B(286) ! JVS(716) = Jac_FULL(161,137) JVS(716) = -B(268) ! JVS(717) = Jac_FULL(161,138) JVS(717) = -B(346) ! JVS(718) = Jac_FULL(161,139) JVS(718) = -B(262) ! JVS(719) = Jac_FULL(161,140) JVS(719) = -B(264) ! JVS(720) = Jac_FULL(161,141) JVS(720) = -B(270) ! JVS(721) = Jac_FULL(161,142) JVS(721) = -B(290) ! JVS(722) = Jac_FULL(161,143) JVS(722) = 0 ! JVS(723) = Jac_FULL(161,146) JVS(723) = 2*B(257)-B(320) ! JVS(724) = Jac_FULL(161,147) JVS(724) = B(314) ! JVS(725) = Jac_FULL(161,148) JVS(725) = -B(355) ! JVS(726) = Jac_FULL(161,149) JVS(726) = -B(288) ! JVS(727) = Jac_FULL(161,150) JVS(727) = 0 ! JVS(728) = Jac_FULL(161,151) JVS(728) = B(124)-B(318) ! JVS(729) = Jac_FULL(161,152) JVS(729) = -B(137) ! JVS(730) = Jac_FULL(161,153) JVS(730) = 0 ! JVS(731) = Jac_FULL(161,154) JVS(731) = 0 ! JVS(732) = Jac_FULL(161,155) JVS(732) = -B(316) ! JVS(733) = Jac_FULL(161,156) JVS(733) = 0 ! JVS(734) = Jac_FULL(161,157) JVS(734) = -B(322) ! JVS(735) = Jac_FULL(161,158) JVS(735) = B(125) ! JVS(736) = Jac_FULL(161,159) JVS(736) = 0 ! JVS(737) = Jac_FULL(161,160) JVS(737) = 0 ! JVS(738) = Jac_FULL(161,161) JVS(738) = -B(138)-B(140)-B(184)-B(185)-B(259)-B(261)-B(263)-B(265)-B(267)-B(269)-B(271)-2*B(273)-B(275)-B(277)-B(279)& &-B(281)-B(283)-B(285)-B(287)-B(289)-B(291)-2*B(315)-B(317)-B(319)-B(321)-B(323)-B(347)-B(356) END SUBROUTINE Jac_SP ! End of Jac_SP function ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ! ! Jac_SP_Vec - function for sparse multiplication: sparse Jacobian times vector ! Arguments : ! JVS - sparse Jacobian of variables ! UV - User vector for variables ! JUV - Jacobian times user vector ! ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ SUBROUTINE Jac_SP_Vec ( JVS, UV, JUV ) ! JVS - sparse Jacobian of variables REAL(kind=dp) :: JVS(LU_NONZERO) ! UV - User vector for variables REAL(kind=dp) :: UV(NVAR) ! JUV - Jacobian times user vector REAL(kind=dp) :: JUV(NVAR) JUV(1) = JVS(1)*UV(1) JUV(2) = JVS(2)*UV(2) JUV(3) = JVS(3)*UV(3) JUV(4) = JVS(4)*UV(4) JUV(5) = JVS(5)*UV(5) JUV(6) = JVS(6)*UV(6) JUV(7) = JVS(7)*UV(7) JUV(8) = JVS(8)*UV(8) JUV(9) = JVS(9)*UV(8)+JVS(10)*UV(9) JUV(10) = JVS(11)*UV(6)+JVS(12)*UV(10) JUV(11) = JVS(13)*UV(11) JUV(12) = JVS(14)*UV(7)+JVS(15)*UV(12) JUV(13) = JVS(16)*UV(13) JUV(14) = JVS(17)*UV(14) JUV(15) = JVS(18)*UV(15) JUV(16) = JVS(19)*UV(16) JUV(17) = JVS(20)*UV(17) JUV(18) = JVS(21)*UV(4)+JVS(22)*UV(18) JUV(19) = JVS(23)*UV(19)+JVS(24)*UV(104)+JVS(25)*UV(123)+JVS(26)*UV(128)+JVS(27)*UV(143)+JVS(28)*UV(145)+JVS(29)& &*UV(148)+JVS(30)*UV(157)+JVS(31)*UV(160) JUV(20) = JVS(32)*UV(20)+JVS(33)*UV(107) JUV(21) = JVS(34)*UV(21)+JVS(35)*UV(22)+JVS(36)*UV(114)+JVS(37)*UV(115)+JVS(38)*UV(125) JUV(22) = JVS(39)*UV(22)+JVS(40)*UV(131)+JVS(41)*UV(132)+JVS(42)*UV(161) JUV(23) = JVS(43)*UV(23)+JVS(44)*UV(108) JUV(24) = JVS(45)*UV(24)+JVS(46)*UV(146) JUV(25) = JVS(47)*UV(25)+JVS(48)*UV(158) JUV(26) = JVS(49)*UV(26)+JVS(50)*UV(138)+JVS(51)*UV(142) JUV(27) = JVS(52)*UV(27)+JVS(53)*UV(121) JUV(28) = JVS(54)*UV(28)+JVS(55)*UV(122) JUV(29) = JVS(56)*UV(29)+JVS(57)*UV(110)+JVS(58)*UV(124)+JVS(59)*UV(154) JUV(30) = JVS(60)*UV(30)+JVS(61)*UV(111) JUV(31) = JVS(62)*UV(31)+JVS(63)*UV(106) JUV(32) = JVS(64)*UV(32)+JVS(65)*UV(113) JUV(33) = JVS(66)*UV(33)+JVS(67)*UV(161) JUV(34) = JVS(68)*UV(34)+JVS(69)*UV(147) JUV(35) = JVS(70)*UV(35)+JVS(71)*UV(109) JUV(36) = JVS(72)*UV(36)+JVS(73)*UV(112) JUV(37) = JVS(74)*UV(9)+JVS(75)*UV(37) JUV(38) = JVS(76)*UV(13)+JVS(77)*UV(38) JUV(39) = JVS(78)*UV(14)+JVS(79)*UV(39) JUV(40) = JVS(80)*UV(10)+JVS(81)*UV(40) JUV(41) = JVS(82)*UV(11)+JVS(83)*UV(41) JUV(42) = JVS(84)*UV(12)+JVS(85)*UV(42) JUV(43) = JVS(86)*UV(43)+JVS(87)*UV(156) JUV(44) = JVS(88)*UV(15)+JVS(89)*UV(44) JUV(45) = JVS(90)*UV(16)+JVS(91)*UV(45) JUV(46) = JVS(92)*UV(17)+JVS(93)*UV(46) JUV(47) = JVS(94)*UV(18)+JVS(95)*UV(47) JUV(48) = JVS(96)*UV(48)+JVS(97)*UV(159) JUV(49) = JVS(98)*UV(49)+JVS(99)*UV(126)+JVS(100)*UV(152) JUV(50) = JVS(101)*UV(50)+JVS(102)*UV(130)+JVS(103)*UV(150) JUV(51) = JVS(104)*UV(51)+JVS(105)*UV(116) JUV(52) = JVS(106)*UV(52)+JVS(107)*UV(53)+JVS(108)*UV(102) JUV(53) = JVS(109)*UV(53)+JVS(110)*UV(116)+JVS(111)*UV(147)+JVS(112)*UV(154) JUV(54) = JVS(113)*UV(54)+JVS(114)*UV(103) JUV(55) = JVS(115)*UV(55)+JVS(116)*UV(56) JUV(56) = JVS(117)*UV(56)+JVS(118)*UV(102)+JVS(119)*UV(103)+JVS(120)*UV(116) JUV(57) = JVS(121)*UV(57)+JVS(122)*UV(76) JUV(58) = JVS(123)*UV(58)+JVS(124)*UV(78) JUV(59) = JVS(125)*UV(59)+JVS(126)*UV(60) JUV(60) = JVS(127)*UV(60)+JVS(128)*UV(76)+JVS(129)*UV(78) JUV(61) = JVS(130)*UV(61)+JVS(131)*UV(62) JUV(62) = JVS(132)*UV(62)+JVS(133)*UV(76)+JVS(134)*UV(78)+JVS(135)*UV(154) JUV(63) = JVS(136)*UV(63)+JVS(137)*UV(137)+JVS(138)*UV(141) JUV(64) = JVS(139)*UV(64)+JVS(140)*UV(129)+JVS(141)*UV(131)+JVS(142)*UV(132) JUV(65) = JVS(143)*UV(65)+JVS(144)*UV(133)+JVS(145)*UV(134) JUV(66) = JVS(146)*UV(66)+JVS(147)*UV(135)+JVS(148)*UV(136) JUV(67) = JVS(149)*UV(67)+JVS(150)*UV(144)+JVS(151)*UV(148)+JVS(152)*UV(149) JUV(68) = JVS(153)*UV(68)+JVS(154)*UV(151)+JVS(155)*UV(155) JUV(69) = JVS(156)*UV(69)+JVS(157)*UV(105) JUV(70) = JVS(158)*UV(70)+JVS(159)*UV(139)+JVS(160)*UV(140) JUV(71) = JVS(161)*UV(71)+JVS(162)*UV(117)+JVS(163)*UV(118)+JVS(164)*UV(119) JUV(72) = JVS(165)*UV(72)+JVS(166)*UV(127) JUV(73) = JVS(167)*UV(73)+JVS(168)*UV(120) JUV(74) = JVS(169)*UV(74)+JVS(170)*UV(126) JUV(75) = JVS(171)*UV(75)+JVS(172)*UV(76) JUV(76) = JVS(173)*UV(75)+JVS(174)*UV(76)+JVS(175)*UV(154) JUV(77) = JVS(176)*UV(77)+JVS(177)*UV(78) JUV(78) = JVS(178)*UV(77)+JVS(179)*UV(78)+JVS(180)*UV(154) JUV(79) = JVS(181)*UV(79)+JVS(182)*UV(105) JUV(80) = JVS(183)*UV(80)+JVS(184)*UV(135) JUV(81) = JVS(185)*UV(81)+JVS(186)*UV(144) JUV(82) = JVS(187)*UV(82)+JVS(188)*UV(155) JUV(83) = JVS(189)*UV(83)+JVS(190)*UV(134) JUV(84) = JVS(191)*UV(84)+JVS(192)*UV(119) JUV(85) = JVS(193)*UV(85)+JVS(194)*UV(146) JUV(86) = JVS(195)*UV(86)+JVS(196)*UV(107) JUV(87) = JVS(197)*UV(87)+JVS(198)*UV(125) JUV(88) = JVS(199)*UV(88)+JVS(200)*UV(108) JUV(89) = JVS(201)*UV(89)+JVS(202)*UV(158) JUV(90) = JVS(203)*UV(90)+JVS(204)*UV(142) JUV(91) = JVS(205)*UV(91)+JVS(206)*UV(121) JUV(92) = JVS(207)*UV(92)+JVS(208)*UV(122) JUV(93) = JVS(209)*UV(93)+JVS(210)*UV(111) JUV(94) = JVS(211)*UV(94)+JVS(212)*UV(106) JUV(95) = JVS(213)*UV(95)+JVS(214)*UV(113) JUV(96) = JVS(215)*UV(96)+JVS(216)*UV(159) JUV(97) = JVS(217)*UV(97)+JVS(218)*UV(150) JUV(98) = JVS(219)*UV(98)+JVS(220)*UV(127) JUV(99) = JVS(221)*UV(99)+JVS(222)*UV(120) JUV(100) = JVS(223)*UV(100)+JVS(224)*UV(145) JUV(101) = JVS(225)*UV(101)+JVS(226)*UV(116) JUV(102) = JVS(227)*UV(102)+JVS(228)*UV(116) JUV(103) = JVS(229)*UV(103)+JVS(230)*UV(116)+JVS(231)*UV(154) JUV(104) = JVS(232)*UV(104)+JVS(233)*UV(120)+JVS(234)*UV(127)+JVS(235)*UV(157)+JVS(236)*UV(161) JUV(105) = JVS(237)*UV(79)+JVS(238)*UV(105)+JVS(239)*UV(161) JUV(106) = JVS(240)*UV(94)+JVS(241)*UV(105)+JVS(242)*UV(106)+JVS(243)*UV(161) JUV(107) = JVS(244)*UV(86)+JVS(245)*UV(107)+JVS(246)*UV(147)+JVS(247)*UV(156) JUV(108) = JVS(248)*UV(88)+JVS(249)*UV(108)+JVS(250)*UV(109)+JVS(251)*UV(153) JUV(109) = JVS(252)*UV(2)+JVS(253)*UV(108)+JVS(254)*UV(109)+JVS(255)*UV(153) JUV(110) = JVS(256)*UV(110)+JVS(257)*UV(124)+JVS(258)*UV(156) JUV(111) = JVS(259)*UV(93)+JVS(260)*UV(111)+JVS(261)*UV(112)+JVS(262)*UV(156) JUV(112) = JVS(263)*UV(3)+JVS(264)*UV(111)+JVS(265)*UV(112)+JVS(266)*UV(156) JUV(113) = JVS(267)*UV(95)+JVS(268)*UV(113)+JVS(269)*UV(161) JUV(114) = JVS(270)*UV(114)+JVS(271)*UV(115)+JVS(272)*UV(156) JUV(115) = JVS(273)*UV(114)+JVS(274)*UV(115)+JVS(275)*UV(125)+JVS(276)*UV(156) JUV(116) = JVS(277)*UV(101)+JVS(278)*UV(102)+JVS(279)*UV(103)+JVS(280)*UV(116)+JVS(281)*UV(147)+JVS(282)*UV(154) JUV(117) = JVS(283)*UV(117)+JVS(284)*UV(118)+JVS(285)*UV(119)+JVS(286)*UV(153)+JVS(287)*UV(161) JUV(118) = JVS(288)*UV(118)+JVS(289)*UV(119)+JVS(290)*UV(153)+JVS(291)*UV(157)+JVS(292)*UV(160)+JVS(293)*UV(161) JUV(119) = JVS(294)*UV(84)+JVS(295)*UV(117)+JVS(296)*UV(118)+JVS(297)*UV(119)+JVS(299)*UV(157)+JVS(300)*UV(160) JUV(120) = JVS(302)*UV(99)+JVS(303)*UV(120)+JVS(304)*UV(157) JUV(121) = JVS(305)*UV(91)+JVS(306)*UV(120)+JVS(307)*UV(121)+JVS(308)*UV(156)+JVS(309)*UV(157) JUV(122) = JVS(310)*UV(92)+JVS(311)*UV(122)+JVS(312)*UV(156)+JVS(313)*UV(157) JUV(123) = JVS(314)*UV(123)+JVS(315)*UV(127)+JVS(316)*UV(143)+JVS(317)*UV(154) JUV(124) = JVS(318)*UV(110)+JVS(319)*UV(123)+JVS(320)*UV(124)+JVS(323)*UV(154)+JVS(324)*UV(156) JUV(125) = JVS(325)*UV(87)+JVS(326)*UV(115)+JVS(327)*UV(125)+JVS(328)*UV(129)+JVS(329)*UV(131)+JVS(330)*UV(132)& &+JVS(331)*UV(133)+JVS(332)*UV(134)+JVS(333)*UV(138)+JVS(334)*UV(142)+JVS(335)*UV(156)+JVS(336)*UV(161) JUV(126) = JVS(337)*UV(74)+JVS(338)*UV(126)+JVS(339)*UV(152)+JVS(340)*UV(156)+JVS(341)*UV(161) JUV(127) = JVS(342)*UV(98)+JVS(343)*UV(127)+JVS(344)*UV(154)+JVS(345)*UV(157) JUV(128) = JVS(346)*UV(128)+JVS(347)*UV(143)+JVS(348)*UV(155)+JVS(349)*UV(156)+JVS(350)*UV(157) JUV(129) = JVS(351)*UV(129)+JVS(352)*UV(132)+JVS(353)*UV(137)+JVS(354)*UV(156)+JVS(355)*UV(161) JUV(130) = JVS(356)*UV(130)+JVS(357)*UV(150)+JVS(358)*UV(151)+JVS(359)*UV(156)+JVS(360)*UV(159) JUV(131) = JVS(361)*UV(131)+JVS(362)*UV(132)+JVS(363)*UV(156)+JVS(364)*UV(161) JUV(132) = JVS(365)*UV(129)+JVS(366)*UV(131)+JVS(367)*UV(132)+JVS(369)*UV(141)+JVS(370)*UV(156)+JVS(371)*UV(161) JUV(133) = JVS(372)*UV(113)+JVS(373)*UV(133)+JVS(374)*UV(134)+JVS(375)*UV(156)+JVS(376)*UV(161) JUV(134) = JVS(377)*UV(83)+JVS(378)*UV(133)+JVS(379)*UV(134)+JVS(380)*UV(156)+JVS(381)*UV(161) JUV(135) = JVS(382)*UV(80)+JVS(383)*UV(134)+JVS(384)*UV(135)+JVS(385)*UV(136)+JVS(386)*UV(156)+JVS(387)*UV(161) JUV(136) = JVS(388)*UV(133)+JVS(390)*UV(135)+JVS(391)*UV(136)+JVS(392)*UV(156)+JVS(393)*UV(161) JUV(137) = JVS(394)*UV(106)+JVS(395)*UV(135)+JVS(397)*UV(137)+JVS(398)*UV(141)+JVS(399)*UV(156)+JVS(400)*UV(161) JUV(138) = JVS(401)*UV(138)+JVS(402)*UV(142)+JVS(403)*UV(156)+JVS(404)*UV(161) JUV(139) = JVS(405)*UV(105)+JVS(406)*UV(139)+JVS(407)*UV(140)+JVS(408)*UV(156)+JVS(409)*UV(161) JUV(140) = JVS(410)*UV(139)+JVS(411)*UV(140)+JVS(412)*UV(156)+JVS(413)*UV(161) JUV(141) = JVS(414)*UV(113)+JVS(415)*UV(136)+JVS(416)*UV(137)+JVS(417)*UV(139)+JVS(418)*UV(140)+JVS(419)*UV(141)& &+JVS(420)*UV(156)+JVS(421)*UV(161) JUV(142) = JVS(422)*UV(90)+JVS(423)*UV(138)+JVS(424)*UV(142)+JVS(425)*UV(148)+JVS(426)*UV(149)+JVS(427)*UV(156)& &+JVS(428)*UV(161) JUV(143) = JVS(429)*UV(104)+JVS(432)*UV(143)+JVS(434)*UV(155) JUV(144) = JVS(437)*UV(81)+JVS(438)*UV(120)+JVS(439)*UV(144)+JVS(440)*UV(148)+JVS(441)*UV(149)+JVS(442)*UV(157)& &+JVS(443)*UV(160) JUV(145) = JVS(444)*UV(13)+JVS(445)*UV(14)+JVS(446)*UV(100)+JVS(447)*UV(145)+JVS(448)*UV(156)+JVS(449)*UV(157)& &+JVS(450)*UV(158)+JVS(451)*UV(159) JUV(146) = JVS(452)*UV(85)+JVS(453)*UV(146)+JVS(454)*UV(151)+JVS(455)*UV(155)+JVS(456)*UV(156)+JVS(457)*UV(157)& &+JVS(458)*UV(161) JUV(147) = JVS(459)*UV(1)+JVS(460)*UV(107)+JVS(461)*UV(116)+JVS(462)*UV(127)+JVS(463)*UV(147)+JVS(464)*UV(150)& &+JVS(465)*UV(152)+JVS(466)*UV(154)+JVS(467)*UV(156)+JVS(468)*UV(157)+JVS(469)*UV(158) JUV(148) = JVS(470)*UV(144)+JVS(471)*UV(148)+JVS(473)*UV(153)+JVS(474)*UV(157)+JVS(475)*UV(160)+JVS(476)*UV(161) JUV(149) = JVS(477)*UV(135)+JVS(478)*UV(136)+JVS(479)*UV(144)+JVS(480)*UV(148)+JVS(481)*UV(149)+JVS(482)*UV(153)& &+JVS(486)*UV(161) JUV(150) = JVS(487)*UV(97)+JVS(488)*UV(130)+JVS(489)*UV(150)+JVS(491)*UV(155)+JVS(492)*UV(156)+JVS(493)*UV(157)& &+JVS(494)*UV(159) JUV(151) = JVS(495)*UV(151)+JVS(496)*UV(155)+JVS(497)*UV(156)+JVS(498)*UV(158)+JVS(499)*UV(159)+JVS(500)*UV(161) JUV(152) = JVS(501)*UV(126)+JVS(502)*UV(130)+JVS(503)*UV(145)+JVS(506)*UV(152)+JVS(508)*UV(156)+JVS(509)*UV(157)& &+JVS(510)*UV(158)+JVS(511)*UV(159)+JVS(512)*UV(160)+JVS(513)*UV(161) JUV(153) = JVS(514)*UV(108)+JVS(515)*UV(109)+JVS(516)*UV(131)+JVS(519)*UV(138)+JVS(522)*UV(144)+JVS(523)*UV(147)& &+JVS(524)*UV(148)+JVS(527)*UV(151)+JVS(528)*UV(152)+JVS(529)*UV(153)+JVS(531)*UV(155)+JVS(532)*UV(156)& &+JVS(534)*UV(158)+JVS(536)*UV(160)+JVS(537)*UV(161) JUV(154) = JVS(538)*UV(5)+JVS(539)*UV(13)+JVS(540)*UV(14)+JVS(541)*UV(76)+JVS(542)*UV(78)+JVS(543)*UV(116)+JVS(544)& &*UV(121)+JVS(545)*UV(122)+JVS(546)*UV(124)+JVS(547)*UV(127)+JVS(548)*UV(128)+JVS(550)*UV(145)+JVS(551)& &*UV(146)+JVS(553)*UV(150)+JVS(556)*UV(154)+JVS(558)*UV(156)+JVS(559)*UV(157)+JVS(560)*UV(158)+JVS(561)& &*UV(159)+JVS(562)*UV(160) JUV(155) = JVS(564)*UV(82)+JVS(565)*UV(105)+JVS(566)*UV(106)+JVS(567)*UV(113)+JVS(568)*UV(120)+JVS(569)*UV(133)& &+JVS(570)*UV(134)+JVS(571)*UV(137)+JVS(572)*UV(138)+JVS(573)*UV(139)+JVS(574)*UV(140)+JVS(575)*UV(141)& &+JVS(576)*UV(142)+JVS(577)*UV(143)+JVS(578)*UV(146)+JVS(579)*UV(148)+JVS(580)*UV(149)+JVS(581)*UV(150)& &+JVS(582)*UV(151)+JVS(585)*UV(155)+JVS(586)*UV(156)+JVS(589)*UV(159)+JVS(591)*UV(161) JUV(156) = JVS(592)*UV(13)+JVS(593)*UV(14)+JVS(594)*UV(107)+JVS(595)*UV(110)+JVS(596)*UV(111)+JVS(597)*UV(112)& &+JVS(598)*UV(114)+JVS(599)*UV(115)+JVS(600)*UV(121)+JVS(601)*UV(122)+JVS(602)*UV(124)+JVS(603)*UV(125)& &+JVS(604)*UV(126)+JVS(605)*UV(127)+JVS(606)*UV(128)+JVS(607)*UV(129)+JVS(608)*UV(130)+JVS(609)*UV(131)& &+JVS(610)*UV(132)+JVS(611)*UV(133)+JVS(612)*UV(134)+JVS(613)*UV(135)+JVS(614)*UV(136)+JVS(615)*UV(137)& &+JVS(616)*UV(138)+JVS(617)*UV(139)+JVS(618)*UV(140)+JVS(619)*UV(141)+JVS(620)*UV(142)+JVS(622)*UV(145)& &+JVS(623)*UV(146)+JVS(624)*UV(147)+JVS(627)*UV(150)+JVS(628)*UV(151)+JVS(629)*UV(152)+JVS(630)*UV(153)& &+JVS(631)*UV(154)+JVS(632)*UV(155)+JVS(633)*UV(156)+JVS(634)*UV(157)+JVS(635)*UV(158)+JVS(636)*UV(159)& &+JVS(637)*UV(160)+JVS(638)*UV(161) JUV(157) = JVS(639)*UV(13)+JVS(640)*UV(14)+JVS(641)*UV(120)+JVS(642)*UV(121)+JVS(643)*UV(122)+JVS(644)*UV(127)& &+JVS(645)*UV(128)+JVS(647)*UV(144)+JVS(648)*UV(145)+JVS(649)*UV(146)+JVS(650)*UV(148)+JVS(652)*UV(150)& &+JVS(657)*UV(156)+JVS(658)*UV(157)+JVS(659)*UV(158)+JVS(660)*UV(159)+JVS(661)*UV(160)+JVS(662)*UV(161) JUV(158) = JVS(663)*UV(89)+JVS(664)*UV(145)+JVS(665)*UV(151)+JVS(666)*UV(152)+JVS(669)*UV(157)+JVS(670)*UV(158)& &+JVS(672)*UV(160) JUV(159) = JVS(674)*UV(96)+JVS(675)*UV(126)+JVS(676)*UV(145)+JVS(677)*UV(147)+JVS(678)*UV(150)+JVS(679)*UV(151)& &+JVS(680)*UV(152)+JVS(682)*UV(155)+JVS(684)*UV(157)+JVS(686)*UV(159)+JVS(687)*UV(160)+JVS(688)*UV(161) JUV(160) = JVS(689)*UV(13)+JVS(690)*UV(14)+JVS(691)*UV(144)+JVS(692)*UV(148)+JVS(694)*UV(153)+JVS(697)*UV(156)& &+JVS(698)*UV(157)+JVS(699)*UV(158)+JVS(700)*UV(159)+JVS(701)*UV(160) JUV(161) = JVS(703)*UV(105)+JVS(704)*UV(106)+JVS(705)*UV(113)+JVS(706)*UV(123)+JVS(707)*UV(126)+JVS(709)*UV(129)& &+JVS(710)*UV(131)+JVS(711)*UV(132)+JVS(712)*UV(133)+JVS(713)*UV(134)+JVS(714)*UV(135)+JVS(715)*UV(136)& &+JVS(716)*UV(137)+JVS(717)*UV(138)+JVS(718)*UV(139)+JVS(719)*UV(140)+JVS(720)*UV(141)+JVS(721)*UV(142)& &+JVS(723)*UV(146)+JVS(724)*UV(147)+JVS(725)*UV(148)+JVS(726)*UV(149)+JVS(728)*UV(151)+JVS(729)*UV(152)& &+JVS(732)*UV(155)+JVS(734)*UV(157)+JVS(735)*UV(158)+JVS(738)*UV(161) END SUBROUTINE Jac_SP_Vec ! End of Jac_SP_Vec function ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ! ! JacTR_SP_Vec - sparse multiplication: sparse Jacobian transposed times vector ! Arguments : ! JVS - sparse Jacobian of variables ! UV - User vector for variables ! JTUV - Jacobian transposed times user vector ! ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ SUBROUTINE JacTR_SP_Vec ( JVS, UV, JTUV ) ! JVS - sparse Jacobian of variables REAL(kind=dp) :: JVS(LU_NONZERO) ! UV - User vector for variables REAL(kind=dp) :: UV(NVAR) ! JTUV - Jacobian transposed times user vector REAL(kind=dp) :: JTUV(NVAR) JTUV(1) = JVS(1)*UV(1)+JVS(459)*UV(147) JTUV(2) = JVS(2)*UV(2)+JVS(252)*UV(109) JTUV(3) = JVS(3)*UV(3)+JVS(263)*UV(112) JTUV(4) = JVS(4)*UV(4)+JVS(21)*UV(18) JTUV(5) = JVS(5)*UV(5)+JVS(538)*UV(154) JTUV(6) = JVS(6)*UV(6)+JVS(11)*UV(10) JTUV(7) = JVS(7)*UV(7)+JVS(14)*UV(12) JTUV(8) = JVS(8)*UV(8)+JVS(9)*UV(9) JTUV(9) = JVS(10)*UV(9)+JVS(74)*UV(37) JTUV(10) = JVS(12)*UV(10)+JVS(80)*UV(40) JTUV(11) = JVS(13)*UV(11)+JVS(82)*UV(41) JTUV(12) = JVS(15)*UV(12)+JVS(84)*UV(42) JTUV(13) = JVS(16)*UV(13)+JVS(76)*UV(38)+JVS(444)*UV(145)+JVS(539)*UV(154)+JVS(592)*UV(156)+JVS(639)*UV(157)+JVS(689)& &*UV(160) JTUV(14) = JVS(17)*UV(14)+JVS(78)*UV(39)+JVS(445)*UV(145)+JVS(540)*UV(154)+JVS(593)*UV(156)+JVS(640)*UV(157)+JVS(690)& &*UV(160) JTUV(15) = JVS(18)*UV(15)+JVS(88)*UV(44) JTUV(16) = JVS(19)*UV(16)+JVS(90)*UV(45) JTUV(17) = JVS(20)*UV(17)+JVS(92)*UV(46) JTUV(18) = JVS(22)*UV(18)+JVS(94)*UV(47) JTUV(19) = JVS(23)*UV(19) JTUV(20) = JVS(32)*UV(20) JTUV(21) = JVS(34)*UV(21) JTUV(22) = JVS(35)*UV(21)+JVS(39)*UV(22) JTUV(23) = JVS(43)*UV(23) JTUV(24) = JVS(45)*UV(24) JTUV(25) = JVS(47)*UV(25) JTUV(26) = JVS(49)*UV(26) JTUV(27) = JVS(52)*UV(27) JTUV(28) = JVS(54)*UV(28) JTUV(29) = JVS(56)*UV(29) JTUV(30) = JVS(60)*UV(30) JTUV(31) = JVS(62)*UV(31) JTUV(32) = JVS(64)*UV(32) JTUV(33) = JVS(66)*UV(33) JTUV(34) = JVS(68)*UV(34) JTUV(35) = JVS(70)*UV(35) JTUV(36) = JVS(72)*UV(36) JTUV(37) = JVS(75)*UV(37) JTUV(38) = JVS(77)*UV(38) JTUV(39) = JVS(79)*UV(39) JTUV(40) = JVS(81)*UV(40) JTUV(41) = JVS(83)*UV(41) JTUV(42) = JVS(85)*UV(42) JTUV(43) = JVS(86)*UV(43) JTUV(44) = JVS(89)*UV(44) JTUV(45) = JVS(91)*UV(45) JTUV(46) = JVS(93)*UV(46) JTUV(47) = JVS(95)*UV(47) JTUV(48) = JVS(96)*UV(48) JTUV(49) = JVS(98)*UV(49) JTUV(50) = JVS(101)*UV(50) JTUV(51) = JVS(104)*UV(51) JTUV(52) = JVS(106)*UV(52) JTUV(53) = JVS(107)*UV(52)+JVS(109)*UV(53) JTUV(54) = JVS(113)*UV(54) JTUV(55) = JVS(115)*UV(55) JTUV(56) = JVS(116)*UV(55)+JVS(117)*UV(56) JTUV(57) = JVS(121)*UV(57) JTUV(58) = JVS(123)*UV(58) JTUV(59) = JVS(125)*UV(59) JTUV(60) = JVS(126)*UV(59)+JVS(127)*UV(60) JTUV(61) = JVS(130)*UV(61) JTUV(62) = JVS(131)*UV(61)+JVS(132)*UV(62) JTUV(63) = JVS(136)*UV(63) JTUV(64) = JVS(139)*UV(64) JTUV(65) = JVS(143)*UV(65) JTUV(66) = JVS(146)*UV(66) JTUV(67) = JVS(149)*UV(67) JTUV(68) = JVS(153)*UV(68) JTUV(69) = JVS(156)*UV(69) JTUV(70) = JVS(158)*UV(70) JTUV(71) = JVS(161)*UV(71) JTUV(72) = JVS(165)*UV(72) JTUV(73) = JVS(167)*UV(73) JTUV(74) = JVS(169)*UV(74)+JVS(337)*UV(126) JTUV(75) = JVS(171)*UV(75)+JVS(173)*UV(76) JTUV(76) = JVS(122)*UV(57)+JVS(128)*UV(60)+JVS(133)*UV(62)+JVS(172)*UV(75)+JVS(174)*UV(76)+JVS(541)*UV(154) JTUV(77) = JVS(176)*UV(77)+JVS(178)*UV(78) JTUV(78) = JVS(124)*UV(58)+JVS(129)*UV(60)+JVS(134)*UV(62)+JVS(177)*UV(77)+JVS(179)*UV(78)+JVS(542)*UV(154) JTUV(79) = JVS(181)*UV(79)+JVS(237)*UV(105) JTUV(80) = JVS(183)*UV(80)+JVS(382)*UV(135) JTUV(81) = JVS(185)*UV(81)+JVS(437)*UV(144) JTUV(82) = JVS(187)*UV(82)+JVS(564)*UV(155) JTUV(83) = JVS(189)*UV(83)+JVS(377)*UV(134) JTUV(84) = JVS(191)*UV(84)+JVS(294)*UV(119) JTUV(85) = JVS(193)*UV(85)+JVS(452)*UV(146) JTUV(86) = JVS(195)*UV(86)+JVS(244)*UV(107) JTUV(87) = JVS(197)*UV(87)+JVS(325)*UV(125) JTUV(88) = JVS(199)*UV(88)+JVS(248)*UV(108) JTUV(89) = JVS(201)*UV(89)+JVS(663)*UV(158) JTUV(90) = JVS(203)*UV(90)+JVS(422)*UV(142) JTUV(91) = JVS(205)*UV(91)+JVS(305)*UV(121) JTUV(92) = JVS(207)*UV(92)+JVS(310)*UV(122) JTUV(93) = JVS(209)*UV(93)+JVS(259)*UV(111) JTUV(94) = JVS(211)*UV(94)+JVS(240)*UV(106) JTUV(95) = JVS(213)*UV(95)+JVS(267)*UV(113) JTUV(96) = JVS(215)*UV(96)+JVS(674)*UV(159) JTUV(97) = JVS(217)*UV(97)+JVS(487)*UV(150) JTUV(98) = JVS(219)*UV(98)+JVS(342)*UV(127) JTUV(99) = JVS(221)*UV(99)+JVS(302)*UV(120) JTUV(100) = JVS(223)*UV(100)+JVS(446)*UV(145) JTUV(101) = JVS(225)*UV(101)+JVS(277)*UV(116) JTUV(102) = JVS(108)*UV(52)+JVS(118)*UV(56)+JVS(227)*UV(102)+JVS(278)*UV(116) JTUV(103) = JVS(114)*UV(54)+JVS(119)*UV(56)+JVS(229)*UV(103)+JVS(279)*UV(116) JTUV(104) = JVS(24)*UV(19)+JVS(232)*UV(104)+JVS(429)*UV(143) JTUV(105) = JVS(157)*UV(69)+JVS(182)*UV(79)+JVS(238)*UV(105)+JVS(241)*UV(106)+JVS(405)*UV(139)+JVS(565)*UV(155)& &+JVS(703)*UV(161) JTUV(106) = JVS(63)*UV(31)+JVS(212)*UV(94)+JVS(242)*UV(106)+JVS(394)*UV(137)+JVS(566)*UV(155)+JVS(704)*UV(161) JTUV(107) = JVS(33)*UV(20)+JVS(196)*UV(86)+JVS(245)*UV(107)+JVS(460)*UV(147)+JVS(594)*UV(156) JTUV(108) = JVS(44)*UV(23)+JVS(200)*UV(88)+JVS(249)*UV(108)+JVS(253)*UV(109)+JVS(514)*UV(153) JTUV(109) = JVS(71)*UV(35)+JVS(250)*UV(108)+JVS(254)*UV(109)+JVS(515)*UV(153) JTUV(110) = JVS(57)*UV(29)+JVS(256)*UV(110)+JVS(318)*UV(124)+JVS(595)*UV(156) JTUV(111) = JVS(61)*UV(30)+JVS(210)*UV(93)+JVS(260)*UV(111)+JVS(264)*UV(112)+JVS(596)*UV(156) JTUV(112) = JVS(73)*UV(36)+JVS(261)*UV(111)+JVS(265)*UV(112)+JVS(597)*UV(156) JTUV(113) = JVS(65)*UV(32)+JVS(214)*UV(95)+JVS(268)*UV(113)+JVS(372)*UV(133)+JVS(414)*UV(141)+JVS(567)*UV(155)& &+JVS(705)*UV(161) JTUV(114) = JVS(36)*UV(21)+JVS(270)*UV(114)+JVS(273)*UV(115)+JVS(598)*UV(156) JTUV(115) = JVS(37)*UV(21)+JVS(271)*UV(114)+JVS(274)*UV(115)+JVS(326)*UV(125)+JVS(599)*UV(156) JTUV(116) = JVS(105)*UV(51)+JVS(110)*UV(53)+JVS(120)*UV(56)+JVS(226)*UV(101)+JVS(228)*UV(102)+JVS(230)*UV(103)& &+JVS(280)*UV(116)+JVS(461)*UV(147)+JVS(543)*UV(154) JTUV(117) = JVS(162)*UV(71)+JVS(283)*UV(117)+JVS(295)*UV(119) JTUV(118) = JVS(163)*UV(71)+JVS(284)*UV(117)+JVS(288)*UV(118)+JVS(296)*UV(119) JTUV(119) = JVS(164)*UV(71)+JVS(192)*UV(84)+JVS(285)*UV(117)+JVS(289)*UV(118)+JVS(297)*UV(119) JTUV(120) = JVS(168)*UV(73)+JVS(222)*UV(99)+JVS(233)*UV(104)+JVS(303)*UV(120)+JVS(306)*UV(121)+JVS(438)*UV(144)& &+JVS(568)*UV(155)+JVS(641)*UV(157) JTUV(121) = JVS(53)*UV(27)+JVS(206)*UV(91)+JVS(307)*UV(121)+JVS(544)*UV(154)+JVS(600)*UV(156)+JVS(642)*UV(157) JTUV(122) = JVS(55)*UV(28)+JVS(208)*UV(92)+JVS(311)*UV(122)+JVS(545)*UV(154)+JVS(601)*UV(156)+JVS(643)*UV(157) JTUV(123) = JVS(25)*UV(19)+JVS(314)*UV(123)+JVS(319)*UV(124)+JVS(706)*UV(161) JTUV(124) = JVS(58)*UV(29)+JVS(257)*UV(110)+JVS(320)*UV(124)+JVS(546)*UV(154)+JVS(602)*UV(156) JTUV(125) = JVS(38)*UV(21)+JVS(198)*UV(87)+JVS(275)*UV(115)+JVS(327)*UV(125)+JVS(603)*UV(156) JTUV(126) = JVS(99)*UV(49)+JVS(170)*UV(74)+JVS(338)*UV(126)+JVS(501)*UV(152)+JVS(604)*UV(156)+JVS(675)*UV(159)& &+JVS(707)*UV(161) JTUV(127) = JVS(166)*UV(72)+JVS(220)*UV(98)+JVS(234)*UV(104)+JVS(315)*UV(123)+JVS(343)*UV(127)+JVS(462)*UV(147)& &+JVS(547)*UV(154)+JVS(605)*UV(156)+JVS(644)*UV(157) JTUV(128) = JVS(26)*UV(19)+JVS(346)*UV(128)+JVS(548)*UV(154)+JVS(606)*UV(156)+JVS(645)*UV(157) JTUV(129) = JVS(140)*UV(64)+JVS(328)*UV(125)+JVS(351)*UV(129)+JVS(365)*UV(132)+JVS(607)*UV(156)+JVS(709)*UV(161) JTUV(130) = JVS(102)*UV(50)+JVS(356)*UV(130)+JVS(488)*UV(150)+JVS(502)*UV(152)+JVS(608)*UV(156) JTUV(131) = JVS(40)*UV(22)+JVS(141)*UV(64)+JVS(329)*UV(125)+JVS(361)*UV(131)+JVS(366)*UV(132)+JVS(516)*UV(153)& &+JVS(609)*UV(156)+JVS(710)*UV(161) JTUV(132) = JVS(41)*UV(22)+JVS(142)*UV(64)+JVS(330)*UV(125)+JVS(352)*UV(129)+JVS(362)*UV(131)+JVS(367)*UV(132)& &+JVS(610)*UV(156)+JVS(711)*UV(161) JTUV(133) = JVS(144)*UV(65)+JVS(331)*UV(125)+JVS(373)*UV(133)+JVS(378)*UV(134)+JVS(388)*UV(136)+JVS(569)*UV(155)& &+JVS(611)*UV(156)+JVS(712)*UV(161) JTUV(134) = JVS(145)*UV(65)+JVS(190)*UV(83)+JVS(332)*UV(125)+JVS(374)*UV(133)+JVS(379)*UV(134)+JVS(383)*UV(135)& &+JVS(570)*UV(155)+JVS(612)*UV(156)+JVS(713)*UV(161) JTUV(135) = JVS(147)*UV(66)+JVS(184)*UV(80)+JVS(384)*UV(135)+JVS(390)*UV(136)+JVS(395)*UV(137)+JVS(477)*UV(149)& &+JVS(613)*UV(156)+JVS(714)*UV(161) JTUV(136) = JVS(148)*UV(66)+JVS(385)*UV(135)+JVS(391)*UV(136)+JVS(415)*UV(141)+JVS(478)*UV(149)+JVS(614)*UV(156)& &+JVS(715)*UV(161) JTUV(137) = JVS(137)*UV(63)+JVS(353)*UV(129)+JVS(397)*UV(137)+JVS(416)*UV(141)+JVS(571)*UV(155)+JVS(615)*UV(156)& &+JVS(716)*UV(161) JTUV(138) = JVS(50)*UV(26)+JVS(333)*UV(125)+JVS(401)*UV(138)+JVS(423)*UV(142)+JVS(519)*UV(153)+JVS(572)*UV(155)& &+JVS(616)*UV(156)+JVS(717)*UV(161) JTUV(139) = JVS(159)*UV(70)+JVS(406)*UV(139)+JVS(410)*UV(140)+JVS(417)*UV(141)+JVS(573)*UV(155)+JVS(617)*UV(156)& &+JVS(718)*UV(161) JTUV(140) = JVS(160)*UV(70)+JVS(407)*UV(139)+JVS(411)*UV(140)+JVS(418)*UV(141)+JVS(574)*UV(155)+JVS(618)*UV(156)& &+JVS(719)*UV(161) JTUV(141) = JVS(138)*UV(63)+JVS(369)*UV(132)+JVS(398)*UV(137)+JVS(419)*UV(141)+JVS(575)*UV(155)+JVS(619)*UV(156)& &+JVS(720)*UV(161) JTUV(142) = JVS(51)*UV(26)+JVS(204)*UV(90)+JVS(334)*UV(125)+JVS(402)*UV(138)+JVS(424)*UV(142)+JVS(576)*UV(155)& &+JVS(620)*UV(156)+JVS(721)*UV(161) JTUV(143) = JVS(27)*UV(19)+JVS(316)*UV(123)+JVS(347)*UV(128)+JVS(432)*UV(143)+JVS(577)*UV(155) JTUV(144) = JVS(150)*UV(67)+JVS(186)*UV(81)+JVS(439)*UV(144)+JVS(470)*UV(148)+JVS(479)*UV(149)+JVS(522)*UV(153)& &+JVS(647)*UV(157)+JVS(691)*UV(160) JTUV(145) = JVS(28)*UV(19)+JVS(224)*UV(100)+JVS(447)*UV(145)+JVS(503)*UV(152)+JVS(550)*UV(154)+JVS(622)*UV(156)& &+JVS(648)*UV(157)+JVS(664)*UV(158)+JVS(676)*UV(159) JTUV(146) = JVS(46)*UV(24)+JVS(194)*UV(85)+JVS(453)*UV(146)+JVS(551)*UV(154)+JVS(578)*UV(155)+JVS(623)*UV(156)& &+JVS(649)*UV(157)+JVS(723)*UV(161) JTUV(147) = JVS(69)*UV(34)+JVS(111)*UV(53)+JVS(246)*UV(107)+JVS(281)*UV(116)+JVS(463)*UV(147)+JVS(523)*UV(153)& &+JVS(624)*UV(156)+JVS(677)*UV(159)+JVS(724)*UV(161) JTUV(148) = JVS(29)*UV(19)+JVS(151)*UV(67)+JVS(425)*UV(142)+JVS(440)*UV(144)+JVS(471)*UV(148)+JVS(480)*UV(149)& &+JVS(524)*UV(153)+JVS(579)*UV(155)+JVS(650)*UV(157)+JVS(692)*UV(160)+JVS(725)*UV(161) JTUV(149) = JVS(152)*UV(67)+JVS(426)*UV(142)+JVS(441)*UV(144)+JVS(481)*UV(149)+JVS(580)*UV(155)+JVS(726)*UV(161) JTUV(150) = JVS(103)*UV(50)+JVS(218)*UV(97)+JVS(357)*UV(130)+JVS(464)*UV(147)+JVS(489)*UV(150)+JVS(553)*UV(154)& &+JVS(581)*UV(155)+JVS(627)*UV(156)+JVS(652)*UV(157)+JVS(678)*UV(159) JTUV(151) = JVS(154)*UV(68)+JVS(358)*UV(130)+JVS(454)*UV(146)+JVS(495)*UV(151)+JVS(527)*UV(153)+JVS(582)*UV(155)& &+JVS(628)*UV(156)+JVS(665)*UV(158)+JVS(679)*UV(159)+JVS(728)*UV(161) JTUV(152) = JVS(100)*UV(49)+JVS(339)*UV(126)+JVS(465)*UV(147)+JVS(506)*UV(152)+JVS(528)*UV(153)+JVS(629)*UV(156)& &+JVS(666)*UV(158)+JVS(680)*UV(159)+JVS(729)*UV(161) JTUV(153) = JVS(251)*UV(108)+JVS(255)*UV(109)+JVS(286)*UV(117)+JVS(290)*UV(118)+JVS(473)*UV(148)+JVS(482)*UV(149)& &+JVS(529)*UV(153)+JVS(630)*UV(156)+JVS(694)*UV(160) JTUV(154) = JVS(59)*UV(29)+JVS(112)*UV(53)+JVS(135)*UV(62)+JVS(175)*UV(76)+JVS(180)*UV(78)+JVS(231)*UV(103)+JVS(282)& &*UV(116)+JVS(317)*UV(123)+JVS(323)*UV(124)+JVS(344)*UV(127)+JVS(466)*UV(147)+JVS(556)*UV(154)+JVS(631)& &*UV(156) JTUV(155) = JVS(155)*UV(68)+JVS(188)*UV(82)+JVS(348)*UV(128)+JVS(434)*UV(143)+JVS(455)*UV(146)+JVS(491)*UV(150)& &+JVS(496)*UV(151)+JVS(531)*UV(153)+JVS(585)*UV(155)+JVS(632)*UV(156)+JVS(682)*UV(159)+JVS(732)*UV(161) JTUV(156) = JVS(87)*UV(43)+JVS(247)*UV(107)+JVS(258)*UV(110)+JVS(262)*UV(111)+JVS(266)*UV(112)+JVS(272)*UV(114)& &+JVS(276)*UV(115)+JVS(308)*UV(121)+JVS(312)*UV(122)+JVS(324)*UV(124)+JVS(335)*UV(125)+JVS(340)*UV(126)& &+JVS(349)*UV(128)+JVS(354)*UV(129)+JVS(359)*UV(130)+JVS(363)*UV(131)+JVS(370)*UV(132)+JVS(375)*UV(133)& &+JVS(380)*UV(134)+JVS(386)*UV(135)+JVS(392)*UV(136)+JVS(399)*UV(137)+JVS(403)*UV(138)+JVS(408)*UV(139)& &+JVS(412)*UV(140)+JVS(420)*UV(141)+JVS(427)*UV(142)+JVS(448)*UV(145)+JVS(456)*UV(146)+JVS(467)*UV(147)& &+JVS(492)*UV(150)+JVS(497)*UV(151)+JVS(508)*UV(152)+JVS(532)*UV(153)+JVS(558)*UV(154)+JVS(586)*UV(155)& &+JVS(633)*UV(156)+JVS(657)*UV(157)+JVS(697)*UV(160) JTUV(157) = JVS(30)*UV(19)+JVS(235)*UV(104)+JVS(291)*UV(118)+JVS(299)*UV(119)+JVS(304)*UV(120)+JVS(309)*UV(121)& &+JVS(313)*UV(122)+JVS(345)*UV(127)+JVS(350)*UV(128)+JVS(442)*UV(144)+JVS(449)*UV(145)+JVS(457)*UV(146)& &+JVS(468)*UV(147)+JVS(474)*UV(148)+JVS(493)*UV(150)+JVS(509)*UV(152)+JVS(559)*UV(154)+JVS(634)*UV(156)& &+JVS(658)*UV(157)+JVS(669)*UV(158)+JVS(684)*UV(159)+JVS(698)*UV(160)+JVS(734)*UV(161) JTUV(158) = JVS(48)*UV(25)+JVS(202)*UV(89)+JVS(450)*UV(145)+JVS(469)*UV(147)+JVS(498)*UV(151)+JVS(510)*UV(152)& &+JVS(534)*UV(153)+JVS(560)*UV(154)+JVS(635)*UV(156)+JVS(659)*UV(157)+JVS(670)*UV(158)+JVS(699)*UV(160)& &+JVS(735)*UV(161) JTUV(159) = JVS(97)*UV(48)+JVS(216)*UV(96)+JVS(360)*UV(130)+JVS(451)*UV(145)+JVS(494)*UV(150)+JVS(499)*UV(151)& &+JVS(511)*UV(152)+JVS(561)*UV(154)+JVS(589)*UV(155)+JVS(636)*UV(156)+JVS(660)*UV(157)+JVS(686)*UV(159)& &+JVS(700)*UV(160) JTUV(160) = JVS(31)*UV(19)+JVS(292)*UV(118)+JVS(300)*UV(119)+JVS(443)*UV(144)+JVS(475)*UV(148)+JVS(512)*UV(152)& &+JVS(536)*UV(153)+JVS(562)*UV(154)+JVS(637)*UV(156)+JVS(661)*UV(157)+JVS(672)*UV(158)+JVS(687)*UV(159)& &+JVS(701)*UV(160) JTUV(161) = JVS(42)*UV(22)+JVS(67)*UV(33)+JVS(236)*UV(104)+JVS(239)*UV(105)+JVS(243)*UV(106)+JVS(269)*UV(113)+JVS(287)& &*UV(117)+JVS(293)*UV(118)+JVS(336)*UV(125)+JVS(341)*UV(126)+JVS(355)*UV(129)+JVS(364)*UV(131)+JVS(371)& &*UV(132)+JVS(376)*UV(133)+JVS(381)*UV(134)+JVS(387)*UV(135)+JVS(393)*UV(136)+JVS(400)*UV(137)+JVS(404)& &*UV(138)+JVS(409)*UV(139)+JVS(413)*UV(140)+JVS(421)*UV(141)+JVS(428)*UV(142)+JVS(458)*UV(146)+JVS(476)& &*UV(148)+JVS(486)*UV(149)+JVS(500)*UV(151)+JVS(513)*UV(152)+JVS(537)*UV(153)+JVS(591)*UV(155)+JVS(638)& &*UV(156)+JVS(662)*UV(157)+JVS(688)*UV(159)+JVS(738)*UV(161) END SUBROUTINE JacTR_SP_Vec ! End of JacTR_SP_Vec function ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ END MODULE aqchem_Jacobian ================================================ FILE: CCTM/src/cloud/acm_ae7_kmt2/aqchem_JacobianSP.F90 ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ! ! Sparse Jacobian Data Structures File ! ! Generated by KPP-2.2.3 symbolic chemistry Kinetics PreProcessor ! (http://www.cs.vt.edu/~asandu/Software/KPP) ! KPP is distributed under GPL, the general public licence ! (http://www.gnu.org/copyleft/gpl.html) ! (C) 1995-1997, V. Damian & A. Sandu, CGRER, Univ. Iowa ! (C) 1997-2005, A. Sandu, Michigan Tech, Virginia Tech ! With important contributions from: ! M. Damian, Villanova University, USA ! R. Sander, Max-Planck Institute for Chemistry, Mainz, Germany ! ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ MODULE aqchem_JacobianSP PUBLIC SAVE ! Sparse Jacobian Data INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_0 = (/ & 1, 2, 3, 4, 5, 6, 7, 8, 9, 9, 10, 10, & 11, 12, 12, 13, 14, 15, 16, 17, 18, 18, 19, 19, & 19, 19, 19, 19, 19, 19, 19, 20, 20, 21, 21, 21, & 21, 21, 22, 22, 22, 22, 23, 23, 24, 24, 25, 25, & 26, 26, 26, 27, 27, 28, 28, 29, 29, 29, 29, 30, & 30, 31, 31, 32, 32, 33, 33, 34, 34, 35, 35, 36, & 36, 37, 37, 38, 38, 39, 39, 40, 40, 41, 41, 42, & 42, 43, 43, 44, 44, 45, 45, 46, 46, 47, 47, 48, & 48, 49, 49, 49, 50, 50, 50, 51, 51, 52, 52, 52, & 53, 53, 53, 53, 54, 54, 55, 55, 56, 56, 56, 56, & 57, 57, 58, 58, 59, 59, 60, 60, 60, 61, 61, 62, & 62, 62, 62, 63, 63, 63, 64, 64, 64, 64, 65, 65, & 65, 66, 66, 66, 67, 67, 67, 67, 68, 68, 68, 69, & 69, 70, 70, 70, 71, 71, 71, 71, 72, 72, 73, 73, & 74, 74, 75, 75, 76, 76, 76, 77, 77, 78, 78, 78, & 79, 79, 80, 80, 81, 81, 82, 82, 83, 83, 84, 84, & 85, 85, 86, 86, 87, 87, 88, 88, 89, 89, 90, 90, & 91, 91, 92, 92, 93, 93, 94, 94, 95, 95, 96, 96, & 97, 97, 98, 98, 99, 99,100,100,101,101,102,102, & 103,103,103,104,104,104,104,104,105,105,105,106, & 106,106,106,107,107,107,107,108,108,108,108,109, & 109,109,109,110,110,110,111,111,111,111,112,112, & 112,112,113,113,113,114,114,114,115,115,115,115, & 116,116,116,116,116,116,117,117,117,117,117,118, & 118,118,118,118,118,119,119,119,119,119,119,119, & 119,120,120,120,121,121,121,121,121,122,122,122, & 122,123,123,123,123,124,124,124,124,124,124,124, & 125,125,125,125,125,125,125,125,125,125,125,125, & 126,126,126,126,126,127,127,127,127,128,128,128, & 128,128,129,129,129,129,129,130,130,130,130,130 /) INTEGER, PARAMETER, DIMENSION(360) :: LU_IROW_1 = (/ & 131,131,131,131,132,132,132,132,132,132,132,133, & 133,133,133,133,134,134,134,134,134,135,135,135, & 135,135,135,136,136,136,136,136,136,137,137,137, & 137,137,137,137,138,138,138,138,139,139,139,139, & 139,140,140,140,140,141,141,141,141,141,141,141, & 141,142,142,142,142,142,142,142,143,143,143,143, & 143,143,143,143,144,144,144,144,144,144,144,145, & 145,145,145,145,145,145,145,146,146,146,146,146, & 146,146,147,147,147,147,147,147,147,147,147,147, & 147,148,148,148,148,148,148,148,149,149,149,149, & 149,149,149,149,149,149,150,150,150,150,150,150, & 150,150,151,151,151,151,151,151,152,152,152,152, & 152,152,152,152,152,152,152,152,152,153,153,153, & 153,153,153,153,153,153,153,153,153,153,153,153, & 153,153,153,153,153,153,153,153,153,154,154,154, & 154,154,154,154,154,154,154,154,154,154,154,154, & 154,154,154,154,154,154,154,154,154,154,154,155, & 155,155,155,155,155,155,155,155,155,155,155,155, & 155,155,155,155,155,155,155,155,155,155,155,155, & 155,155,155,156,156,156,156,156,156,156,156,156, & 156,156,156,156,156,156,156,156,156,156,156,156, & 156,156,156,156,156,156,156,156,156,156,156,156, & 156,156,156,156,156,156,156,156,156,156,156,156, & 156,156,157,157,157,157,157,157,157,157,157,157, & 157,157,157,157,157,157,157,157,157,157,157,157, & 157,157,158,158,158,158,158,158,158,158,158,158, & 158,159,159,159,159,159,159,159,159,159,159,159, & 159,159,159,159,160,160,160,160,160,160,160,160, & 160,160,160,160,160,160,161,161,161,161,161,161, & 161,161,161,161,161,161,161,161,161,161,161,161 /) INTEGER, PARAMETER, DIMENSION(18) :: LU_IROW_2 = (/ & 161,161,161,161,161,161,161,161,161,161,161,161, & 161,161,161,161,161,161 /) INTEGER, PARAMETER, DIMENSION(738) :: LU_IROW = (/& LU_IROW_0, LU_IROW_1, LU_IROW_2 /) INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_0 = (/ & 1, 2, 3, 4, 5, 6, 7, 8, 8, 9, 6, 10, & 11, 7, 12, 13, 14, 15, 16, 17, 4, 18, 19,104, & 123,128,143,145,148,157,160, 20,107, 21, 22,114, & 115,125, 22,131,132,161, 23,108, 24,146, 25,158, & 26,138,142, 27,121, 28,122, 29,110,124,154, 30, & 111, 31,106, 32,113, 33,161, 34,147, 35,109, 36, & 112, 9, 37, 13, 38, 14, 39, 10, 40, 11, 41, 12, & 42, 43,156, 15, 44, 16, 45, 17, 46, 18, 47, 48, & 159, 49,126,152, 50,130,150, 51,116, 52, 53,102, & 53,116,147,154, 54,103, 55, 56, 56,102,103,116, & 57, 76, 58, 78, 59, 60, 60, 76, 78, 61, 62, 62, & 76, 78,154, 63,137,141, 64,129,131,132, 65,133, & 134, 66,135,136, 67,144,148,149, 68,151,155, 69, & 105, 70,139,140, 71,117,118,119, 72,127, 73,120, & 74,126, 75, 76, 75, 76,154, 77, 78, 77, 78,154, & 79,105, 80,135, 81,144, 82,155, 83,134, 84,119, & 85,146, 86,107, 87,125, 88,108, 89,158, 90,142, & 91,121, 92,122, 93,111, 94,106, 95,113, 96,159, & 97,150, 98,127, 99,120,100,145,101,116,102,116, & 103,116,154,104,120,127,157,161, 79,105,161, 94, & 105,106,161, 86,107,147,156, 88,108,109,153, 2, & 108,109,153,110,124,156, 93,111,112,156, 3,111, & 112,156, 95,113,161,114,115,156,114,115,125,156, & 101,102,103,116,147,154,117,118,119,153,161,118, & 119,153,157,160,161, 84,117,118,119,153,157,160, & 161, 99,120,157, 91,120,121,156,157, 92,122,156, & 157,123,127,143,154,110,123,124,127,143,154,156, & 87,115,125,129,131,132,133,134,138,142,156,161, & 74,126,152,156,161, 98,127,154,157,128,143,155, & 156,157,129,132,137,156,161,130,150,151,156,159 /) INTEGER, PARAMETER, DIMENSION(360) :: LU_ICOL_1 = (/ & 131,132,156,161,129,131,132,137,141,156,161,113, & 133,134,156,161, 83,133,134,156,161, 80,134,135, & 136,156,161,133,134,135,136,156,161,106,135,136, & 137,141,156,161,138,142,156,161,105,139,140,156, & 161,139,140,156,161,113,136,137,139,140,141,156, & 161, 90,138,142,148,149,156,161,104,120,127,143, & 154,155,157,161, 81,120,144,148,149,157,160, 13, & 14,100,145,156,157,158,159, 85,146,151,155,156, & 157,161, 1,107,116,127,147,150,152,154,156,157, & 158,144,148,149,153,157,160,161,135,136,144,148, & 149,153,156,157,160,161, 97,130,150,151,155,156, & 157,159,151,155,156,158,159,161,126,130,145,150, & 151,152,155,156,157,158,159,160,161,108,109,131, & 132,137,138,141,142,144,147,148,149,150,151,152, & 153,154,155,156,157,158,159,160,161, 5, 13, 14, & 76, 78,116,121,122,124,127,128,143,145,146,147, & 150,151,152,154,155,156,157,158,159,160,161, 82, & 105,106,113,120,133,134,137,138,139,140,141,142, & 143,146,148,149,150,151,153,154,155,156,157,158, & 159,160,161, 13, 14,107,110,111,112,114,115,121, & 122,124,125,126,127,128,129,130,131,132,133,134, & 135,136,137,138,139,140,141,142,143,145,146,147, & 148,149,150,151,152,153,154,155,156,157,158,159, & 160,161, 13, 14,120,121,122,127,128,143,144,145, & 146,148,149,150,151,153,154,155,156,157,158,159, & 160,161, 89,145,151,152,155,156,157,158,159,160, & 161, 96,126,145,147,150,151,152,154,155,156,157, & 158,159,160,161, 13, 14,144,148,149,153,154,155, & 156,157,158,159,160,161,105,106,113,123,126,127, & 129,131,132,133,134,135,136,137,138,139,140,141 /) INTEGER, PARAMETER, DIMENSION(18) :: LU_ICOL_2 = (/ & 142,143,146,147,148,149,150,151,152,153,154,155, & 156,157,158,159,160,161 /) INTEGER, PARAMETER, DIMENSION(738) :: LU_ICOL = (/& LU_ICOL_0, LU_ICOL_1, LU_ICOL_2 /) INTEGER, PARAMETER, DIMENSION(162) :: LU_CROW = (/ & 1, 2, 3, 4, 5, 6, 7, 8, 9, 11, 13, 14, & 16, 17, 18, 19, 20, 21, 23, 32, 34, 39, 43, 45, & 47, 49, 52, 54, 56, 60, 62, 64, 66, 68, 70, 72, & 74, 76, 78, 80, 82, 84, 86, 88, 90, 92, 94, 96, & 98,101,104,106,109,113,115,117,121,123,125,127, & 130,132,136,139,143,146,149,153,156,158,161,165, & 167,169,171,173,176,178,181,183,185,187,189,191, & 193,195,197,199,201,203,205,207,209,211,213,215, & 217,219,221,223,225,227,229,232,237,240,244,248, & 252,256,259,263,267,270,273,277,283,288,294,302, & 305,310,314,318,325,337,342,346,351,356,361,365, & 372,377,382,388,394,401,405,410,414,422,429,437, & 444,452,459,470,477,487,495,501,514,538,564,592, & 639,663,674,689,703,739 /) INTEGER, PARAMETER, DIMENSION(162) :: LU_DIAG = (/ & 1, 2, 3, 4, 5, 6, 7, 8, 10, 12, 13, 15, & 16, 17, 18, 19, 20, 22, 23, 32, 34, 39, 43, 45, & 47, 49, 52, 54, 56, 60, 62, 64, 66, 68, 70, 72, & 75, 77, 79, 81, 83, 85, 86, 89, 91, 93, 95, 96, & 98,101,104,106,109,113,115,117,121,123,125,127, & 130,132,136,139,143,146,149,153,156,158,161,165, & 167,169,171,174,176,179,181,183,185,187,189,191, & 193,195,197,199,201,203,205,207,209,211,213,215, & 217,219,221,223,225,227,229,232,238,242,245,249, & 254,256,260,265,268,270,274,280,283,288,297,303, & 307,311,314,320,327,338,343,346,351,356,361,367, & 373,379,384,391,397,401,406,411,419,424,432,439, & 447,453,463,471,481,489,495,506,529,556,585,633, & 658,670,686,701,738,739 /) END MODULE aqchem_JacobianSP ================================================ FILE: CCTM/src/cloud/acm_ae7_kmt2/aqchem_LinearAlgebra.F90 ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ! ! Linear Algebra Data and Routines File ! ! Generated by KPP-2.2.3 symbolic chemistry Kinetics PreProcessor ! (http://www.cs.vt.edu/~asandu/Software/KPP) ! KPP is distributed under GPL, the general public licence ! (http://www.gnu.org/copyleft/gpl.html) ! (C) 1995-1997, V. Damian & A. Sandu, CGRER, Univ. Iowa ! (C) 1997-2005, A. Sandu, Michigan Tech, Virginia Tech ! With important contributions from: ! M. Damian, Villanova University, USA ! R. Sander, Max-Planck Institute for Chemistry, Mainz, Germany ! ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ MODULE aqchem_LinearAlgebra USE aqchem_Parameters USE aqchem_JacobianSP IMPLICIT NONE CONTAINS ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ! ! SPARSE_UTIL - SPARSE utility functions ! Arguments : ! ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ SUBROUTINE KppDecomp( JVS, IER ) ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ! Sparse LU factorization ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ USE aqchem_Parameters USE aqchem_JacobianSP INTEGER :: IER REAL(kind=dp) :: JVS(LU_NONZERO), W(NVAR), a INTEGER :: k, kk, j, jj a = 0. ! mz_rs_20050606 IER = 0 DO k=1,NVAR ! mz_rs_20050606: don't check if real value == 0 ! IF ( JVS( LU_DIAG(k) ) .EQ. 0. ) THEN IF ( ABS(JVS(LU_DIAG(k))) < TINY(a) ) THEN IER = k RETURN END IF DO kk = LU_CROW(k), LU_CROW(k+1)-1 W( LU_ICOL(kk) ) = JVS(kk) END DO DO kk = LU_CROW(k), LU_DIAG(k)-1 j = LU_ICOL(kk) a = -W(j) / JVS( LU_DIAG(j) ) W(j) = -a DO jj = LU_DIAG(j)+1, LU_CROW(j+1)-1 W( LU_ICOL(jj) ) = W( LU_ICOL(jj) ) + a*JVS(jj) END DO END DO DO kk = LU_CROW(k), LU_CROW(k+1)-1 JVS(kk) = W( LU_ICOL(kk) ) END DO END DO END SUBROUTINE KppDecomp ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ SUBROUTINE KppDecompCmplx( JVS, IER ) ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ! Sparse LU factorization, complex ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ USE aqchem_Parameters USE aqchem_JacobianSP INTEGER :: IER DOUBLE COMPLEX :: JVS(LU_NONZERO), W(NVAR), a REAL(kind=dp) :: b = 0.0 INTEGER :: k, kk, j, jj IER = 0 DO k=1,NVAR IF ( ABS(JVS(LU_DIAG(k))) < TINY(b) ) THEN IER = k RETURN END IF DO kk = LU_CROW(k), LU_CROW(k+1)-1 W( LU_ICOL(kk) ) = JVS(kk) END DO DO kk = LU_CROW(k), LU_DIAG(k)-1 j = LU_ICOL(kk) a = -W(j) / JVS( LU_DIAG(j) ) W(j) = -a DO jj = LU_DIAG(j)+1, LU_CROW(j+1)-1 W( LU_ICOL(jj) ) = W( LU_ICOL(jj) ) + a*JVS(jj) END DO END DO DO kk = LU_CROW(k), LU_CROW(k+1)-1 JVS(kk) = W( LU_ICOL(kk) ) END DO END DO END SUBROUTINE KppDecompCmplx ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ SUBROUTINE KppDecompCmplxR( JVSR, JVSI, IER ) ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ! Sparse LU factorization, complex ! (Real and Imaginary parts are used instead of complex data type) ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ USE aqchem_Parameters USE aqchem_JacobianSP INTEGER :: IER REAL(kind=dp) :: JVSR(LU_NONZERO), JVSI(LU_NONZERO) REAL(kind=dp) :: WR(NVAR), WI(NVAR), ar, ai, den INTEGER :: k, kk, j, jj IER = 0 ar = 0.0 DO k=1,NVAR IF ( ( ABS(JVSR(LU_DIAG(k))) < TINY(ar) ) .AND. & ( ABS(JVSI(LU_DIAG(k))) < TINY(ar) ) ) THEN IER = k RETURN END IF DO kk = LU_CROW(k), LU_CROW(k+1)-1 WR( LU_ICOL(kk) ) = JVSR(kk) WI( LU_ICOL(kk) ) = JVSI(kk) END DO DO kk = LU_CROW(k), LU_DIAG(k)-1 j = LU_ICOL(kk) den = JVSR(LU_DIAG(j))**2 + JVSI(LU_DIAG(j))**2 ar = -(WR(j)*JVSR(LU_DIAG(j)) + WI(j)*JVSI(LU_DIAG(j)))/den ai = -(WI(j)*JVSR(LU_DIAG(j)) - WR(j)*JVSI(LU_DIAG(j)))/den WR(j) = -ar WI(j) = -ai DO jj = LU_DIAG(j)+1, LU_CROW(j+1)-1 WR( LU_ICOL(jj) ) = WR( LU_ICOL(jj) ) + ar*JVSR(jj) - ai*JVSI(jj) WI( LU_ICOL(jj) ) = WI( LU_ICOL(jj) ) + ar*JVSI(jj) + ai*JVSR(jj) END DO END DO DO kk = LU_CROW(k), LU_CROW(k+1)-1 JVSR(kk) = WR( LU_ICOL(kk) ) JVSI(kk) = WI( LU_ICOL(kk) ) END DO END DO END SUBROUTINE KppDecompCmplxR ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ SUBROUTINE KppSolveIndirect( JVS, X ) ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ! Sparse solve subroutine using indirect addressing ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ USE aqchem_Parameters USE aqchem_JacobianSP INTEGER :: i, j REAL(kind=dp) :: JVS(LU_NONZERO), X(NVAR), sum DO i=1,NVAR DO j = LU_CROW(i), LU_DIAG(i)-1 X(i) = X(i) - JVS(j)*X(LU_ICOL(j)); END DO END DO DO i=NVAR,1,-1 sum = X(i); DO j = LU_DIAG(i)+1, LU_CROW(i+1)-1 sum = sum - JVS(j)*X(LU_ICOL(j)); END DO X(i) = sum/JVS(LU_DIAG(i)); END DO END SUBROUTINE KppSolveIndirect ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ SUBROUTINE KppSolveTRIndirect( JVS, X ) ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ! Complex sparse solve transpose subroutine using indirect addressing ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ USE aqchem_Parameters USE aqchem_JacobianSP INTEGER :: i, j REAL(kind=dp) :: JVS(LU_NONZERO), X(NVAR) DO i=1,NVAR X(i) = X(i)/JVS(LU_DIAG(i)) ! subtract all nonzero elements in row i of JVS from X DO j=LU_DIAG(i)+1,LU_CROW(i+1)-1 X(LU_ICOL(j)) = X(LU_ICOL(j))-JVS(j)*X(i) END DO END DO DO i=NVAR, 1, -1 ! subtract all nonzero elements in row i of JVS from X DO j=LU_CROW(i),LU_DIAG(i)-1 X(LU_ICOL(j)) = X(LU_ICOL(j))-JVS(j)*X(i) END DO END DO END SUBROUTINE KppSolveTRIndirect ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ SUBROUTINE KppSolveCmplx( JVS, X ) ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ! Complex sparse solve subroutine using indirect addressing ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ USE aqchem_Parameters USE aqchem_JacobianSP INTEGER :: i, j DOUBLE COMPLEX :: JVS(LU_NONZERO), X(NVAR), sum DO i=1,NVAR DO j = LU_CROW(i), LU_DIAG(i)-1 X(i) = X(i) - JVS(j)*X(LU_ICOL(j)); END DO END DO DO i=NVAR,1,-1 sum = X(i); DO j = LU_DIAG(i)+1, LU_CROW(i+1)-1 sum = sum - JVS(j)*X(LU_ICOL(j)); END DO X(i) = sum/JVS(LU_DIAG(i)); END DO END SUBROUTINE KppSolveCmplx ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ SUBROUTINE KppSolveCmplxR( JVSR, JVSI, XR, XI ) ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ! Complex sparse solve subroutine using indirect addressing ! (Real and Imaginary parts are used instead of complex data type) ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ USE aqchem_Parameters USE aqchem_JacobianSP INTEGER :: i, j REAL(kind=dp) :: JVSR(LU_NONZERO), JVSI(LU_NONZERO), XR(NVAR), XI(NVAR), sumr, sumi, den DO i=1,NVAR DO j = LU_CROW(i), LU_DIAG(i)-1 XR(i) = XR(i) - (JVSR(j)*XR(LU_ICOL(j)) - JVSI(j)*XI(LU_ICOL(j))) XI(i) = XI(i) - (JVSR(j)*XI(LU_ICOL(j)) + JVSI(j)*XR(LU_ICOL(j))) END DO END DO DO i=NVAR,1,-1 sumr = XR(i); sumi = XI(i) DO j = LU_DIAG(i)+1, LU_CROW(i+1)-1 sumr = sumr - (JVSR(j)*XR(LU_ICOL(j)) - JVSI(j)*XI(LU_ICOL(j))) sumi = sumi - (JVSR(j)*XI(LU_ICOL(j)) + JVSI(j)*XR(LU_ICOL(j))) END DO den = JVSR(LU_DIAG(i))**2 + JVSI(LU_DIAG(i))**2 XR(i) = (sumr*JVSR(LU_DIAG(i)) + sumi*JVSI(LU_DIAG(i)))/den XI(i) = (sumi*JVSR(LU_DIAG(i)) - sumr*JVSI(LU_DIAG(i)))/den END DO END SUBROUTINE KppSolveCmplxR ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ SUBROUTINE KppSolveTRCmplx( JVS, X ) ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ! Complex sparse solve transpose subroutine using indirect addressing ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ USE aqchem_Parameters USE aqchem_JacobianSP INTEGER :: i, j DOUBLE COMPLEX :: JVS(LU_NONZERO), X(NVAR) DO i=1,NVAR X(i) = X(i)/JVS(LU_DIAG(i)) ! subtract all nonzero elements in row i of JVS from X DO j=LU_DIAG(i)+1,LU_CROW(i+1)-1 X(LU_ICOL(j)) = X(LU_ICOL(j))-JVS(j)*X(i) END DO END DO DO i=NVAR, 1, -1 ! subtract all nonzero elements in row i of JVS from X DO j=LU_CROW(i),LU_DIAG(i)-1 X(LU_ICOL(j)) = X(LU_ICOL(j))-JVS(j)*X(i) END DO END DO END SUBROUTINE KppSolveTRCmplx ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ SUBROUTINE KppSolveTRCmplxR( JVSR, JVSI, XR, XI ) ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ! Complex sparse solve transpose subroutine using indirect addressing ! (Real and Imaginary parts are used instead of complex data type) ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ USE aqchem_Parameters USE aqchem_JacobianSP INTEGER :: i, j REAL(kind=dp) :: JVSR(LU_NONZERO), JVSI(LU_NONZERO), XR(NVAR), XI(NVAR), den DO i=1,NVAR den = JVSR(LU_DIAG(i))**2 + JVSI(LU_DIAG(i))**2 XR(i) = (XR(i)*JVSR(LU_DIAG(i)) + XI(i)*JVSI(LU_DIAG(i)))/den XI(i) = (XI(i)*JVSR(LU_DIAG(i)) - XR(i)*JVSI(LU_DIAG(i)))/den ! subtract all nonzero elements in row i of JVS from X DO j=LU_DIAG(i)+1,LU_CROW(i+1)-1 XR(LU_ICOL(j)) = XR(LU_ICOL(j))-(JVSR(j)*XR(i) - JVSI(j)*XI(i)) XI(LU_ICOL(j)) = XI(LU_ICOL(j))-(JVSI(j)*XR(i) + JVSR(j)*XI(i)) END DO END DO DO i=NVAR, 1, -1 ! subtract all nonzero elements in row i of JVS from X DO j=LU_CROW(i),LU_DIAG(i)-1 XR(LU_ICOL(j)) = XR(LU_ICOL(j))-(JVSR(j)*XR(i) - JVSI(j)*XI(i)) XI(LU_ICOL(j)) = XI(LU_ICOL(j))-(JVSI(j)*XR(i) + JVSR(j)*XI(i)) END DO END DO END SUBROUTINE KppSolveTRCmplxR ! ! Next few commented subroutines perform sparse big linear algebra ! !! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ !SUBROUTINE KppDecompBig( JVS, IP, IER ) !! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ !! Sparse LU factorization !! for the Runge Kutta (3n)x(3n) linear system !! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ! ! USE aqchem_Parameters ! USE aqchem_JacobianSP ! ! INTEGER :: IP3(3), IER, IP(3,NVAR) ! REAL(kind=dp) :: JVS(3,3,LU_NONZERO), W(3,3,NVAR), a(3,3), E(3,3) ! INTEGER :: k, kk, j, jj ! ! a = 0.0d0 ! IER = 0 ! DO k=1,NVAR ! DO kk = LU_CROW(k), LU_CROW(k+1)-1 ! W( 1:3,1:3,LU_ICOL(kk) ) = JVS(1:3,1:3,kk) ! END DO ! DO kk = LU_CROW(k), LU_DIAG(k)-1 ! j = LU_ICOL(kk) ! E(1:3,1:3) = JVS( 1:3,1:3,LU_DIAG(j) ) ! ! CALL DGETRF(3,3,E,3,IP3,IER) ! CALL FAC3(E,IP3,IER) ! IF ( IER /= 0 ) RETURN ! ! a = W(j) / JVS( LU_DIAG(j) ) ! a(1:3,1:3) = W( 1:3,1:3,j ) ! ! CALL DGETRS ('N',3,3,E,3,IP3,a,3,IER) ! CALL SOL3('N',E,IP3,a(1,1)) ! CALL SOL3('N',E,IP3,a(1,2)) ! CALL SOL3('N',E,IP3,a(1,3)) ! W(1:3,1:3,j) = a(1:3,1:3) ! DO jj = LU_DIAG(j)+1, LU_CROW(j+1)-1 ! W( 1:3,1:3,LU_ICOL(jj) ) = W( 1:3,1:3,LU_ICOL(jj) ) & ! - MATMUL( a(1:3,1:3) , JVS(1:3,1:3,jj) ) ! END DO ! END DO ! DO kk = LU_CROW(k), LU_CROW(k+1)-1 ! JVS(1:3,1:3,kk) = W( 1:3,1:3,LU_ICOL(kk) ) ! END DO ! END DO ! ! DO k=1,NVAR ! ! CALL WGEFA(JVS(1,1,LU_DIAG(k)),3,3,IP(1,k),IER) ! ! CALL DGETRF(3,3,JVS(1,1,LU_DIAG(k)),3,IP(1,k),IER) ! CALL FAC3(JVS(1,1,LU_DIAG(k)),IP(1,k),IER) ! IF ( IER /= 0 ) RETURN ! END DO ! !END SUBROUTINE KppDecompBig ! ! !! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ !SUBROUTINE KppSolveBig( JVS, IP, X ) !! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ !! Sparse solve subroutine using indirect addressing !! for the Runge Kutta (3n)x(3n) linear system !! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ! ! USE aqchem_Parameters ! USE aqchem_JacobianSP ! ! INTEGER :: i, j, k, m, IP3(3), IP(3,NVAR), IER ! REAL(kind=dp) :: JVS(3,3,LU_NONZERO), X(3,NVAR), sum(3) ! ! DO i=1,NVAR ! DO j = LU_CROW(i), LU_DIAG(i)-1 ! !X(1:3,i) = X(1:3,i) - MATMUL(JVS(1:3,1:3,j),X(1:3,LU_ICOL(j))); ! DO k=1,3 ! DO m=1,3 ! X(k,i) = X(k,i) - JVS(k,m,j)*X(m,LU_ICOL(j)) ! END DO ! END DO ! END DO ! END DO ! ! DO i=NVAR,1,-1 ! sum(1:3) = X(1:3,i); ! DO j = LU_DIAG(i)+1, LU_CROW(i+1)-1 ! !sum(1:3) = sum(1:3) - MATMUL(JVS(1:3,1:3,j),X(1:3,LU_ICOL(j))); ! DO k=1,3 ! DO m=1,3 ! sum(k) = sum(k) - JVS(k,m,j)*X(m,LU_ICOL(j)) ! END DO ! END DO ! END DO ! ! X(i) = sum/JVS(LU_DIAG(i)); ! ! CALL DGETRS ('N',3,1,JVS(1:3,1:3,LU_DIAG(i)),3,IP(1,i),sum,3,0) ! ! CALL WGESL('N',JVS(1,1,LU_DIAG(i)),3,3,IP(1,i),sum) ! CALL SOL3('N',JVS(1,1,LU_DIAG(i)),IP(1,i),sum) ! X(1:3,i) = sum(1:3) ! END DO ! !END SUBROUTINE KppSolveBig ! ! !! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ !SUBROUTINE KppSolveBigTR( JVS, IP, X ) !! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ !! Big sparse transpose solve using indirect addressing !! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ! ! USE aqchem_Parameters ! USE aqchem_JacobianSP ! ! INTEGER :: i, j, k, m, IP(3,NVAR) ! REAL(kind=dp) :: JVS(3,3,LU_NONZERO), X(3,NVAR) ! ! DO i=1,NVAR ! ! X(i) = X(i)/JVS(LU_DIAG(i)) ! CALL SOL3('T',JVS(1,1,LU_DIAG(i)),IP(1,i),X(1,i)) ! DO j=LU_DIAG(i)+1,LU_CROW(i+1)-1 ! !X(1:3,LU_ICOL(j)) = X(1:3,LU_ICOL(j)) & ! ! - MATMUL( TRANSPOSE(JVS(1:3,1:3,j)), X(1:3,i) ) ! DO k=1,3 ! DO m=1,3 ! X(k,LU_ICOL(j)) = X(k,LU_ICOL(j)) - JVS(m,k,j)*X(m,i) ! END DO ! END DO ! END DO ! END DO ! ! DO i=NVAR, 1, -1 ! DO j=LU_CROW(i),LU_DIAG(i)-1 ! !X(1:3,LU_ICOL(j)) = X(1:3,LU_ICOL(j)) & ! ! - MATMUL( TRANSPOSE(JVS(1:3,1:3,j)), X(1:3,i) ) ! DO k=1,3 ! DO m=1,3 ! X(k,LU_ICOL(j)) = X(k,LU_ICOL(j)) - JVS(m,k,j)*X(m,i) ! END DO ! END DO ! END DO ! END DO ! !END SUBROUTINE KppSolveBigTR ! ! ! !! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ !SUBROUTINE FAC3(A,IPVT,INFO) !! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ !! FAC3 FACTORS THE MATRIX A (3,3) BY !! GAUSS ELIMINATION WITH PARTIAL PIVOTING !! LINPACK - LIKE !! !! Remove comments to perform pivoting !! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ !! ! REAL(kind=dp) :: A(3,3) ! INTEGER :: IPVT(3),INFO !! INTEGER :: L !! REAL(kind=dp) :: t, dmax, da, TMP(3) ! REAL(kind=dp), PARAMETER :: ZERO = 0.0, ONE = 1.0 ! ! info = 0 !! t = TINY(da) !! !! da = ABS(A(1,1)); L = 1 !! IF ( ABS(A(2,1))>da ) THEN !! da = ABS(A(2,1)); L = 2 !! IF ( ABS(A(3,1))>da ) THEN !! L = 3 !! END IF !! END IF !! IPVT(1) = L !! IF (L /=1 ) THEN !! TMP(1:3) = A(L,1:3) !! A(L,1:3) = A(1,1:3) !! A(1,1:3) = TMP(1:3) !! END IF !! IF (ABS(A(1,1)) < t) THEN !! info = 1 !! return !! END IF !! ! A(2,1) = A(2,1)/A(1,1) ! A(2,2) = A(2,2) - A(2,1)*A(1,2) ! A(2,3) = A(2,3) - A(2,1)*A(1,3) ! A(3,1) = A(3,1)/A(1,1) ! A(3,2) = A(3,2) - A(3,1)*A(1,2) ! A(3,3) = A(3,3) - A(3,1)*A(1,3) ! !! IPVT(2) = 2 !! IF (ABS(A(3,2))>ABS(A(2,2))) THEN !! IPVT(2) = 3 !! TMP(2:3) = A(3,2:3) !! A(3,2:3) = A(2,2:3) !! A(2,2:3) = TMP(2:3) !! END IF !! IF (ABS(A(2,2)) < t) THEN !! info = 1 !! return !! END IF !! ! A(3,2) = A(3,2)/A(2,2) ! A(3,3) = A(3,3) - A(3,2)*A(2,3) ! IPVT(3) = 3 ! !END SUBROUTINE FAC3 ! ! !! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ !SUBROUTINE SOL3(Trans,A,IPVT,b) !! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ !! SOL3 solves the system 3x3 !! A * x = b or trans(a) * x = b !! using the factors computed by WGEFA. !! !! Trans = 'N' to solve A*x = b , !! = 'T' to solve transpose(A)*x = b !! LINPACK - LIKE !! !! Remove comments to use pivoting !! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ! ! CHARACTER :: Trans ! REAL(kind=dp) :: a(3,3),b(3) ! INTEGER :: IPVT(3) !! INTEGER :: L !! REAL(kind=dp) :: TMP ! ! SELECT CASE (Trans) ! ! CASE ('n','N') ! Solve A * x = b ! !! Solve L*y = b !! L = IPVT(1) !! IF (L /= 1) THEN !! TMP = B(1); B(1) = B(L); B(L) = TMP !! END IF ! b(2) = b(2)-A(2,1)*b(1) ! b(3) = b(3)-A(3,1)*b(1) ! !! L = IPVT(2) !! IF (L /= 2) THEN !! TMP = B(2); B(2) = B(L); B(L) = TMP !! END IF ! b(3) = b(3)-A(3,2)*b(2) ! !! Solve U*x = y ! b(3) = b(3)/A(3,3) ! b(2) = (b(2)-A(2,3)*b(3))/A(2,2) ! b(1) = (b(1)-A(1,3)*b(3)-A(1,2)*b(2))/A(1,1) ! ! ! CASE ('t','T') ! Solve transpose(A) * x = b ! !! Solve transpose(U)*y = b ! b(1) = b(1)/A(1,1) ! b(2) = (b(2)-A(1,2)*b(1))/A(2,2) ! b(3) = (b(3)-A(1,3)*b(1)-A(2,3)*b(2))/A(3,3) ! !! Solve transpose(L)*x = y ! b(2) = b(2)-A(3,2)*b(3) !! L = ipvt(2) !! IF (L /= 2) THEN !! TMP = B(2); B(2) = B(L); B(L) = TMP !! END IF ! b(1) = b(1)-A(3,1)*b(3)-A(2,1)*b(2) !! L = ipvt(1) !! IF (L /= 1) THEN !! TMP = B(1); B(1) = B(L); B(L) = TMP !! END IF ! ! END SELECT ! !END SUBROUTINE SOL3 ! End of SPARSE_UTIL function ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ! ! KppSolve - sparse back substitution ! Arguments : ! JVS - sparse Jacobian of variables ! X - Vector for variables ! ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ SUBROUTINE KppSolve ( JVS, X ) ! JVS - sparse Jacobian of variables REAL(kind=dp) :: JVS(LU_NONZERO) ! X - Vector for variables REAL(kind=dp) :: X(NVAR) X(9) = X(9)-JVS(9)*X(8) X(10) = X(10)-JVS(11)*X(6) X(12) = X(12)-JVS(14)*X(7) X(18) = X(18)-JVS(21)*X(4) X(37) = X(37)-JVS(74)*X(9) X(38) = X(38)-JVS(76)*X(13) X(39) = X(39)-JVS(78)*X(14) X(40) = X(40)-JVS(80)*X(10) X(41) = X(41)-JVS(82)*X(11) X(42) = X(42)-JVS(84)*X(12) X(44) = X(44)-JVS(88)*X(15) X(45) = X(45)-JVS(90)*X(16) X(46) = X(46)-JVS(92)*X(17) X(47) = X(47)-JVS(94)*X(18) X(76) = X(76)-JVS(173)*X(75) X(78) = X(78)-JVS(178)*X(77) X(105) = X(105)-JVS(237)*X(79) X(106) = X(106)-JVS(240)*X(94)-JVS(241)*X(105) X(107) = X(107)-JVS(244)*X(86) X(108) = X(108)-JVS(248)*X(88) X(109) = X(109)-JVS(252)*X(2)-JVS(253)*X(108) X(111) = X(111)-JVS(259)*X(93) X(112) = X(112)-JVS(263)*X(3)-JVS(264)*X(111) X(113) = X(113)-JVS(267)*X(95) X(115) = X(115)-JVS(273)*X(114) X(116) = X(116)-JVS(277)*X(101)-JVS(278)*X(102)-JVS(279)*X(103) X(119) = X(119)-JVS(294)*X(84)-JVS(295)*X(117)-JVS(296)*X(118) X(120) = X(120)-JVS(302)*X(99) X(121) = X(121)-JVS(305)*X(91)-JVS(306)*X(120) X(122) = X(122)-JVS(310)*X(92) X(124) = X(124)-JVS(318)*X(110)-JVS(319)*X(123) X(125) = X(125)-JVS(325)*X(87)-JVS(326)*X(115) X(126) = X(126)-JVS(337)*X(74) X(127) = X(127)-JVS(342)*X(98) X(132) = X(132)-JVS(365)*X(129)-JVS(366)*X(131) X(133) = X(133)-JVS(372)*X(113) X(134) = X(134)-JVS(377)*X(83)-JVS(378)*X(133) X(135) = X(135)-JVS(382)*X(80)-JVS(383)*X(134) X(136) = X(136)-JVS(388)*X(133)-JVS(389)*X(134)-JVS(390)*X(135) X(137) = X(137)-JVS(394)*X(106)-JVS(395)*X(135)-JVS(396)*X(136) X(139) = X(139)-JVS(405)*X(105) X(140) = X(140)-JVS(410)*X(139) X(141) = X(141)-JVS(414)*X(113)-JVS(415)*X(136)-JVS(416)*X(137)-JVS(417)*X(139)-JVS(418)*X(140) X(142) = X(142)-JVS(422)*X(90)-JVS(423)*X(138) X(143) = X(143)-JVS(429)*X(104)-JVS(430)*X(120)-JVS(431)*X(127) X(144) = X(144)-JVS(437)*X(81)-JVS(438)*X(120) X(145) = X(145)-JVS(444)*X(13)-JVS(445)*X(14)-JVS(446)*X(100) X(146) = X(146)-JVS(452)*X(85) X(147) = X(147)-JVS(459)*X(1)-JVS(460)*X(107)-JVS(461)*X(116)-JVS(462)*X(127) X(148) = X(148)-JVS(470)*X(144) X(149) = X(149)-JVS(477)*X(135)-JVS(478)*X(136)-JVS(479)*X(144)-JVS(480)*X(148) X(150) = X(150)-JVS(487)*X(97)-JVS(488)*X(130) X(152) = X(152)-JVS(501)*X(126)-JVS(502)*X(130)-JVS(503)*X(145)-JVS(504)*X(150)-JVS(505)*X(151) X(153) = X(153)-JVS(514)*X(108)-JVS(515)*X(109)-JVS(516)*X(131)-JVS(517)*X(132)-JVS(518)*X(137)-JVS(519)*X(138)& &-JVS(520)*X(141)-JVS(521)*X(142)-JVS(522)*X(144)-JVS(523)*X(147)-JVS(524)*X(148)-JVS(525)*X(149)-JVS(526)& &*X(150)-JVS(527)*X(151)-JVS(528)*X(152) X(154) = X(154)-JVS(538)*X(5)-JVS(539)*X(13)-JVS(540)*X(14)-JVS(541)*X(76)-JVS(542)*X(78)-JVS(543)*X(116)-JVS(544)& &*X(121)-JVS(545)*X(122)-JVS(546)*X(124)-JVS(547)*X(127)-JVS(548)*X(128)-JVS(549)*X(143)-JVS(550)*X(145)& &-JVS(551)*X(146)-JVS(552)*X(147)-JVS(553)*X(150)-JVS(554)*X(151)-JVS(555)*X(152) X(155) = X(155)-JVS(564)*X(82)-JVS(565)*X(105)-JVS(566)*X(106)-JVS(567)*X(113)-JVS(568)*X(120)-JVS(569)*X(133)& &-JVS(570)*X(134)-JVS(571)*X(137)-JVS(572)*X(138)-JVS(573)*X(139)-JVS(574)*X(140)-JVS(575)*X(141)-JVS(576)& &*X(142)-JVS(577)*X(143)-JVS(578)*X(146)-JVS(579)*X(148)-JVS(580)*X(149)-JVS(581)*X(150)-JVS(582)*X(151)& &-JVS(583)*X(153)-JVS(584)*X(154) X(156) = X(156)-JVS(592)*X(13)-JVS(593)*X(14)-JVS(594)*X(107)-JVS(595)*X(110)-JVS(596)*X(111)-JVS(597)*X(112)-JVS(598)& &*X(114)-JVS(599)*X(115)-JVS(600)*X(121)-JVS(601)*X(122)-JVS(602)*X(124)-JVS(603)*X(125)-JVS(604)*X(126)& &-JVS(605)*X(127)-JVS(606)*X(128)-JVS(607)*X(129)-JVS(608)*X(130)-JVS(609)*X(131)-JVS(610)*X(132)-JVS(611)& &*X(133)-JVS(612)*X(134)-JVS(613)*X(135)-JVS(614)*X(136)-JVS(615)*X(137)-JVS(616)*X(138)-JVS(617)*X(139)& &-JVS(618)*X(140)-JVS(619)*X(141)-JVS(620)*X(142)-JVS(621)*X(143)-JVS(622)*X(145)-JVS(623)*X(146)-JVS(624)& &*X(147)-JVS(625)*X(148)-JVS(626)*X(149)-JVS(627)*X(150)-JVS(628)*X(151)-JVS(629)*X(152)-JVS(630)*X(153)& &-JVS(631)*X(154)-JVS(632)*X(155) X(157) = X(157)-JVS(639)*X(13)-JVS(640)*X(14)-JVS(641)*X(120)-JVS(642)*X(121)-JVS(643)*X(122)-JVS(644)*X(127)-JVS(645)& &*X(128)-JVS(646)*X(143)-JVS(647)*X(144)-JVS(648)*X(145)-JVS(649)*X(146)-JVS(650)*X(148)-JVS(651)*X(149)& &-JVS(652)*X(150)-JVS(653)*X(151)-JVS(654)*X(153)-JVS(655)*X(154)-JVS(656)*X(155)-JVS(657)*X(156) X(158) = X(158)-JVS(663)*X(89)-JVS(664)*X(145)-JVS(665)*X(151)-JVS(666)*X(152)-JVS(667)*X(155)-JVS(668)*X(156)& &-JVS(669)*X(157) X(159) = X(159)-JVS(674)*X(96)-JVS(675)*X(126)-JVS(676)*X(145)-JVS(677)*X(147)-JVS(678)*X(150)-JVS(679)*X(151)& &-JVS(680)*X(152)-JVS(681)*X(154)-JVS(682)*X(155)-JVS(683)*X(156)-JVS(684)*X(157)-JVS(685)*X(158) X(160) = X(160)-JVS(689)*X(13)-JVS(690)*X(14)-JVS(691)*X(144)-JVS(692)*X(148)-JVS(693)*X(149)-JVS(694)*X(153)-JVS(695)& &*X(154)-JVS(696)*X(155)-JVS(697)*X(156)-JVS(698)*X(157)-JVS(699)*X(158)-JVS(700)*X(159) X(161) = X(161)-JVS(703)*X(105)-JVS(704)*X(106)-JVS(705)*X(113)-JVS(706)*X(123)-JVS(707)*X(126)-JVS(708)*X(127)& &-JVS(709)*X(129)-JVS(710)*X(131)-JVS(711)*X(132)-JVS(712)*X(133)-JVS(713)*X(134)-JVS(714)*X(135)-JVS(715)& &*X(136)-JVS(716)*X(137)-JVS(717)*X(138)-JVS(718)*X(139)-JVS(719)*X(140)-JVS(720)*X(141)-JVS(721)*X(142)& &-JVS(722)*X(143)-JVS(723)*X(146)-JVS(724)*X(147)-JVS(725)*X(148)-JVS(726)*X(149)-JVS(727)*X(150)-JVS(728)& &*X(151)-JVS(729)*X(152)-JVS(730)*X(153)-JVS(731)*X(154)-JVS(732)*X(155)-JVS(733)*X(156)-JVS(734)*X(157)& &-JVS(735)*X(158)-JVS(736)*X(159)-JVS(737)*X(160) X(161) = X(161)/JVS(738) X(160) = (X(160)-JVS(702)*X(161))/(JVS(701)) X(159) = (X(159)-JVS(687)*X(160)-JVS(688)*X(161))/(JVS(686)) X(158) = (X(158)-JVS(671)*X(159)-JVS(672)*X(160)-JVS(673)*X(161))/(JVS(670)) X(157) = (X(157)-JVS(659)*X(158)-JVS(660)*X(159)-JVS(661)*X(160)-JVS(662)*X(161))/(JVS(658)) X(156) = (X(156)-JVS(634)*X(157)-JVS(635)*X(158)-JVS(636)*X(159)-JVS(637)*X(160)-JVS(638)*X(161))/(JVS(633)) X(155) = (X(155)-JVS(586)*X(156)-JVS(587)*X(157)-JVS(588)*X(158)-JVS(589)*X(159)-JVS(590)*X(160)-JVS(591)*X(161))& &/(JVS(585)) X(154) = (X(154)-JVS(557)*X(155)-JVS(558)*X(156)-JVS(559)*X(157)-JVS(560)*X(158)-JVS(561)*X(159)-JVS(562)*X(160)& &-JVS(563)*X(161))/(JVS(556)) X(153) = (X(153)-JVS(530)*X(154)-JVS(531)*X(155)-JVS(532)*X(156)-JVS(533)*X(157)-JVS(534)*X(158)-JVS(535)*X(159)& &-JVS(536)*X(160)-JVS(537)*X(161))/(JVS(529)) X(152) = (X(152)-JVS(507)*X(155)-JVS(508)*X(156)-JVS(509)*X(157)-JVS(510)*X(158)-JVS(511)*X(159)-JVS(512)*X(160)& &-JVS(513)*X(161))/(JVS(506)) X(151) = (X(151)-JVS(496)*X(155)-JVS(497)*X(156)-JVS(498)*X(158)-JVS(499)*X(159)-JVS(500)*X(161))/(JVS(495)) X(150) = (X(150)-JVS(490)*X(151)-JVS(491)*X(155)-JVS(492)*X(156)-JVS(493)*X(157)-JVS(494)*X(159))/(JVS(489)) X(149) = (X(149)-JVS(482)*X(153)-JVS(483)*X(156)-JVS(484)*X(157)-JVS(485)*X(160)-JVS(486)*X(161))/(JVS(481)) X(148) = (X(148)-JVS(472)*X(149)-JVS(473)*X(153)-JVS(474)*X(157)-JVS(475)*X(160)-JVS(476)*X(161))/(JVS(471)) X(147) = (X(147)-JVS(464)*X(150)-JVS(465)*X(152)-JVS(466)*X(154)-JVS(467)*X(156)-JVS(468)*X(157)-JVS(469)*X(158))& &/(JVS(463)) X(146) = (X(146)-JVS(454)*X(151)-JVS(455)*X(155)-JVS(456)*X(156)-JVS(457)*X(157)-JVS(458)*X(161))/(JVS(453)) X(145) = (X(145)-JVS(448)*X(156)-JVS(449)*X(157)-JVS(450)*X(158)-JVS(451)*X(159))/(JVS(447)) X(144) = (X(144)-JVS(440)*X(148)-JVS(441)*X(149)-JVS(442)*X(157)-JVS(443)*X(160))/(JVS(439)) X(143) = (X(143)-JVS(433)*X(154)-JVS(434)*X(155)-JVS(435)*X(157)-JVS(436)*X(161))/(JVS(432)) X(142) = (X(142)-JVS(425)*X(148)-JVS(426)*X(149)-JVS(427)*X(156)-JVS(428)*X(161))/(JVS(424)) X(141) = (X(141)-JVS(420)*X(156)-JVS(421)*X(161))/(JVS(419)) X(140) = (X(140)-JVS(412)*X(156)-JVS(413)*X(161))/(JVS(411)) X(139) = (X(139)-JVS(407)*X(140)-JVS(408)*X(156)-JVS(409)*X(161))/(JVS(406)) X(138) = (X(138)-JVS(402)*X(142)-JVS(403)*X(156)-JVS(404)*X(161))/(JVS(401)) X(137) = (X(137)-JVS(398)*X(141)-JVS(399)*X(156)-JVS(400)*X(161))/(JVS(397)) X(136) = (X(136)-JVS(392)*X(156)-JVS(393)*X(161))/(JVS(391)) X(135) = (X(135)-JVS(385)*X(136)-JVS(386)*X(156)-JVS(387)*X(161))/(JVS(384)) X(134) = (X(134)-JVS(380)*X(156)-JVS(381)*X(161))/(JVS(379)) X(133) = (X(133)-JVS(374)*X(134)-JVS(375)*X(156)-JVS(376)*X(161))/(JVS(373)) X(132) = (X(132)-JVS(368)*X(137)-JVS(369)*X(141)-JVS(370)*X(156)-JVS(371)*X(161))/(JVS(367)) X(131) = (X(131)-JVS(362)*X(132)-JVS(363)*X(156)-JVS(364)*X(161))/(JVS(361)) X(130) = (X(130)-JVS(357)*X(150)-JVS(358)*X(151)-JVS(359)*X(156)-JVS(360)*X(159))/(JVS(356)) X(129) = (X(129)-JVS(352)*X(132)-JVS(353)*X(137)-JVS(354)*X(156)-JVS(355)*X(161))/(JVS(351)) X(128) = (X(128)-JVS(347)*X(143)-JVS(348)*X(155)-JVS(349)*X(156)-JVS(350)*X(157))/(JVS(346)) X(127) = (X(127)-JVS(344)*X(154)-JVS(345)*X(157))/(JVS(343)) X(126) = (X(126)-JVS(339)*X(152)-JVS(340)*X(156)-JVS(341)*X(161))/(JVS(338)) X(125) = (X(125)-JVS(328)*X(129)-JVS(329)*X(131)-JVS(330)*X(132)-JVS(331)*X(133)-JVS(332)*X(134)-JVS(333)*X(138)& &-JVS(334)*X(142)-JVS(335)*X(156)-JVS(336)*X(161))/(JVS(327)) X(124) = (X(124)-JVS(321)*X(127)-JVS(322)*X(143)-JVS(323)*X(154)-JVS(324)*X(156))/(JVS(320)) X(123) = (X(123)-JVS(315)*X(127)-JVS(316)*X(143)-JVS(317)*X(154))/(JVS(314)) X(122) = (X(122)-JVS(312)*X(156)-JVS(313)*X(157))/(JVS(311)) X(121) = (X(121)-JVS(308)*X(156)-JVS(309)*X(157))/(JVS(307)) X(120) = (X(120)-JVS(304)*X(157))/(JVS(303)) X(119) = (X(119)-JVS(298)*X(153)-JVS(299)*X(157)-JVS(300)*X(160)-JVS(301)*X(161))/(JVS(297)) X(118) = (X(118)-JVS(289)*X(119)-JVS(290)*X(153)-JVS(291)*X(157)-JVS(292)*X(160)-JVS(293)*X(161))/(JVS(288)) X(117) = (X(117)-JVS(284)*X(118)-JVS(285)*X(119)-JVS(286)*X(153)-JVS(287)*X(161))/(JVS(283)) X(116) = (X(116)-JVS(281)*X(147)-JVS(282)*X(154))/(JVS(280)) X(115) = (X(115)-JVS(275)*X(125)-JVS(276)*X(156))/(JVS(274)) X(114) = (X(114)-JVS(271)*X(115)-JVS(272)*X(156))/(JVS(270)) X(113) = (X(113)-JVS(269)*X(161))/(JVS(268)) X(112) = (X(112)-JVS(266)*X(156))/(JVS(265)) X(111) = (X(111)-JVS(261)*X(112)-JVS(262)*X(156))/(JVS(260)) X(110) = (X(110)-JVS(257)*X(124)-JVS(258)*X(156))/(JVS(256)) X(109) = (X(109)-JVS(255)*X(153))/(JVS(254)) X(108) = (X(108)-JVS(250)*X(109)-JVS(251)*X(153))/(JVS(249)) X(107) = (X(107)-JVS(246)*X(147)-JVS(247)*X(156))/(JVS(245)) X(106) = (X(106)-JVS(243)*X(161))/(JVS(242)) X(105) = (X(105)-JVS(239)*X(161))/(JVS(238)) X(104) = (X(104)-JVS(233)*X(120)-JVS(234)*X(127)-JVS(235)*X(157)-JVS(236)*X(161))/(JVS(232)) X(103) = (X(103)-JVS(230)*X(116)-JVS(231)*X(154))/(JVS(229)) X(102) = (X(102)-JVS(228)*X(116))/(JVS(227)) X(101) = (X(101)-JVS(226)*X(116))/(JVS(225)) X(100) = (X(100)-JVS(224)*X(145))/(JVS(223)) X(99) = (X(99)-JVS(222)*X(120))/(JVS(221)) X(98) = (X(98)-JVS(220)*X(127))/(JVS(219)) X(97) = (X(97)-JVS(218)*X(150))/(JVS(217)) X(96) = (X(96)-JVS(216)*X(159))/(JVS(215)) X(95) = (X(95)-JVS(214)*X(113))/(JVS(213)) X(94) = (X(94)-JVS(212)*X(106))/(JVS(211)) X(93) = (X(93)-JVS(210)*X(111))/(JVS(209)) X(92) = (X(92)-JVS(208)*X(122))/(JVS(207)) X(91) = (X(91)-JVS(206)*X(121))/(JVS(205)) X(90) = (X(90)-JVS(204)*X(142))/(JVS(203)) X(89) = (X(89)-JVS(202)*X(158))/(JVS(201)) X(88) = (X(88)-JVS(200)*X(108))/(JVS(199)) X(87) = (X(87)-JVS(198)*X(125))/(JVS(197)) X(86) = (X(86)-JVS(196)*X(107))/(JVS(195)) X(85) = (X(85)-JVS(194)*X(146))/(JVS(193)) X(84) = (X(84)-JVS(192)*X(119))/(JVS(191)) X(83) = (X(83)-JVS(190)*X(134))/(JVS(189)) X(82) = (X(82)-JVS(188)*X(155))/(JVS(187)) X(81) = (X(81)-JVS(186)*X(144))/(JVS(185)) X(80) = (X(80)-JVS(184)*X(135))/(JVS(183)) X(79) = (X(79)-JVS(182)*X(105))/(JVS(181)) X(78) = (X(78)-JVS(180)*X(154))/(JVS(179)) X(77) = (X(77)-JVS(177)*X(78))/(JVS(176)) X(76) = (X(76)-JVS(175)*X(154))/(JVS(174)) X(75) = (X(75)-JVS(172)*X(76))/(JVS(171)) X(74) = (X(74)-JVS(170)*X(126))/(JVS(169)) X(73) = (X(73)-JVS(168)*X(120))/(JVS(167)) X(72) = (X(72)-JVS(166)*X(127))/(JVS(165)) X(71) = (X(71)-JVS(162)*X(117)-JVS(163)*X(118)-JVS(164)*X(119))/(JVS(161)) X(70) = (X(70)-JVS(159)*X(139)-JVS(160)*X(140))/(JVS(158)) X(69) = (X(69)-JVS(157)*X(105))/(JVS(156)) X(68) = (X(68)-JVS(154)*X(151)-JVS(155)*X(155))/(JVS(153)) X(67) = (X(67)-JVS(150)*X(144)-JVS(151)*X(148)-JVS(152)*X(149))/(JVS(149)) X(66) = (X(66)-JVS(147)*X(135)-JVS(148)*X(136))/(JVS(146)) X(65) = (X(65)-JVS(144)*X(133)-JVS(145)*X(134))/(JVS(143)) X(64) = (X(64)-JVS(140)*X(129)-JVS(141)*X(131)-JVS(142)*X(132))/(JVS(139)) X(63) = (X(63)-JVS(137)*X(137)-JVS(138)*X(141))/(JVS(136)) X(62) = (X(62)-JVS(133)*X(76)-JVS(134)*X(78)-JVS(135)*X(154))/(JVS(132)) X(61) = (X(61)-JVS(131)*X(62))/(JVS(130)) X(60) = (X(60)-JVS(128)*X(76)-JVS(129)*X(78))/(JVS(127)) X(59) = (X(59)-JVS(126)*X(60))/(JVS(125)) X(58) = (X(58)-JVS(124)*X(78))/(JVS(123)) X(57) = (X(57)-JVS(122)*X(76))/(JVS(121)) X(56) = (X(56)-JVS(118)*X(102)-JVS(119)*X(103)-JVS(120)*X(116))/(JVS(117)) X(55) = (X(55)-JVS(116)*X(56))/(JVS(115)) X(54) = (X(54)-JVS(114)*X(103))/(JVS(113)) X(53) = (X(53)-JVS(110)*X(116)-JVS(111)*X(147)-JVS(112)*X(154))/(JVS(109)) X(52) = (X(52)-JVS(107)*X(53)-JVS(108)*X(102))/(JVS(106)) X(51) = (X(51)-JVS(105)*X(116))/(JVS(104)) X(50) = (X(50)-JVS(102)*X(130)-JVS(103)*X(150))/(JVS(101)) X(49) = (X(49)-JVS(99)*X(126)-JVS(100)*X(152))/(JVS(98)) X(48) = (X(48)-JVS(97)*X(159))/(JVS(96)) X(47) = X(47)/JVS(95) X(46) = X(46)/JVS(93) X(45) = X(45)/JVS(91) X(44) = X(44)/JVS(89) X(43) = (X(43)-JVS(87)*X(156))/(JVS(86)) X(42) = X(42)/JVS(85) X(41) = X(41)/JVS(83) X(40) = X(40)/JVS(81) X(39) = X(39)/JVS(79) X(38) = X(38)/JVS(77) X(37) = X(37)/JVS(75) X(36) = (X(36)-JVS(73)*X(112))/(JVS(72)) X(35) = (X(35)-JVS(71)*X(109))/(JVS(70)) X(34) = (X(34)-JVS(69)*X(147))/(JVS(68)) X(33) = (X(33)-JVS(67)*X(161))/(JVS(66)) X(32) = (X(32)-JVS(65)*X(113))/(JVS(64)) X(31) = (X(31)-JVS(63)*X(106))/(JVS(62)) X(30) = (X(30)-JVS(61)*X(111))/(JVS(60)) X(29) = (X(29)-JVS(57)*X(110)-JVS(58)*X(124)-JVS(59)*X(154))/(JVS(56)) X(28) = (X(28)-JVS(55)*X(122))/(JVS(54)) X(27) = (X(27)-JVS(53)*X(121))/(JVS(52)) X(26) = (X(26)-JVS(50)*X(138)-JVS(51)*X(142))/(JVS(49)) X(25) = (X(25)-JVS(48)*X(158))/(JVS(47)) X(24) = (X(24)-JVS(46)*X(146))/(JVS(45)) X(23) = (X(23)-JVS(44)*X(108))/(JVS(43)) X(22) = (X(22)-JVS(40)*X(131)-JVS(41)*X(132)-JVS(42)*X(161))/(JVS(39)) X(21) = (X(21)-JVS(35)*X(22)-JVS(36)*X(114)-JVS(37)*X(115)-JVS(38)*X(125))/(JVS(34)) X(20) = (X(20)-JVS(33)*X(107))/(JVS(32)) X(19) = (X(19)-JVS(24)*X(104)-JVS(25)*X(123)-JVS(26)*X(128)-JVS(27)*X(143)-JVS(28)*X(145)-JVS(29)*X(148)-JVS(30)& &*X(157)-JVS(31)*X(160))/(JVS(23)) X(18) = X(18)/JVS(22) X(17) = X(17)/JVS(20) X(16) = X(16)/JVS(19) X(15) = X(15)/JVS(18) X(14) = X(14)/JVS(17) X(13) = X(13)/JVS(16) X(12) = X(12)/JVS(15) X(11) = X(11)/JVS(13) X(10) = X(10)/JVS(12) X(9) = X(9)/JVS(10) X(8) = X(8)/JVS(8) X(7) = X(7)/JVS(7) X(6) = X(6)/JVS(6) X(5) = X(5)/JVS(5) X(4) = X(4)/JVS(4) X(3) = X(3)/JVS(3) X(2) = X(2)/JVS(2) X(1) = X(1)/JVS(1) END SUBROUTINE KppSolve ! End of KppSolve function ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ! ! KppSolveTR - sparse, transposed back substitution ! Arguments : ! JVS - sparse Jacobian of variables ! X - Vector for variables ! XX - Vector for output variables ! ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ SUBROUTINE KppSolveTR ( JVS, X, XX ) ! JVS - sparse Jacobian of variables REAL(kind=dp) :: JVS(LU_NONZERO) ! X - Vector for variables REAL(kind=dp) :: X(NVAR) ! XX - Vector for output variables REAL(kind=dp) :: XX(NVAR) XX(1) = X(1)/JVS(1) XX(2) = X(2)/JVS(2) XX(3) = X(3)/JVS(3) XX(4) = X(4)/JVS(4) XX(5) = X(5)/JVS(5) XX(6) = X(6)/JVS(6) XX(7) = X(7)/JVS(7) XX(8) = X(8)/JVS(8) XX(9) = X(9)/JVS(10) XX(10) = X(10)/JVS(12) XX(11) = X(11)/JVS(13) XX(12) = X(12)/JVS(15) XX(13) = X(13)/JVS(16) XX(14) = X(14)/JVS(17) XX(15) = X(15)/JVS(18) XX(16) = X(16)/JVS(19) XX(17) = X(17)/JVS(20) XX(18) = X(18)/JVS(22) XX(19) = X(19)/JVS(23) XX(20) = X(20)/JVS(32) XX(21) = X(21)/JVS(34) XX(22) = (X(22)-JVS(35)*XX(21))/(JVS(39)) XX(23) = X(23)/JVS(43) XX(24) = X(24)/JVS(45) XX(25) = X(25)/JVS(47) XX(26) = X(26)/JVS(49) XX(27) = X(27)/JVS(52) XX(28) = X(28)/JVS(54) XX(29) = X(29)/JVS(56) XX(30) = X(30)/JVS(60) XX(31) = X(31)/JVS(62) XX(32) = X(32)/JVS(64) XX(33) = X(33)/JVS(66) XX(34) = X(34)/JVS(68) XX(35) = X(35)/JVS(70) XX(36) = X(36)/JVS(72) XX(37) = X(37)/JVS(75) XX(38) = X(38)/JVS(77) XX(39) = X(39)/JVS(79) XX(40) = X(40)/JVS(81) XX(41) = X(41)/JVS(83) XX(42) = X(42)/JVS(85) XX(43) = X(43)/JVS(86) XX(44) = X(44)/JVS(89) XX(45) = X(45)/JVS(91) XX(46) = X(46)/JVS(93) XX(47) = X(47)/JVS(95) XX(48) = X(48)/JVS(96) XX(49) = X(49)/JVS(98) XX(50) = X(50)/JVS(101) XX(51) = X(51)/JVS(104) XX(52) = X(52)/JVS(106) XX(53) = (X(53)-JVS(107)*XX(52))/(JVS(109)) XX(54) = X(54)/JVS(113) XX(55) = X(55)/JVS(115) XX(56) = (X(56)-JVS(116)*XX(55))/(JVS(117)) XX(57) = X(57)/JVS(121) XX(58) = X(58)/JVS(123) XX(59) = X(59)/JVS(125) XX(60) = (X(60)-JVS(126)*XX(59))/(JVS(127)) XX(61) = X(61)/JVS(130) XX(62) = (X(62)-JVS(131)*XX(61))/(JVS(132)) XX(63) = X(63)/JVS(136) XX(64) = X(64)/JVS(139) XX(65) = X(65)/JVS(143) XX(66) = X(66)/JVS(146) XX(67) = X(67)/JVS(149) XX(68) = X(68)/JVS(153) XX(69) = X(69)/JVS(156) XX(70) = X(70)/JVS(158) XX(71) = X(71)/JVS(161) XX(72) = X(72)/JVS(165) XX(73) = X(73)/JVS(167) XX(74) = X(74)/JVS(169) XX(75) = X(75)/JVS(171) XX(76) = (X(76)-JVS(122)*XX(57)-JVS(128)*XX(60)-JVS(133)*XX(62)-JVS(172)*XX(75))/(JVS(174)) XX(77) = X(77)/JVS(176) XX(78) = (X(78)-JVS(124)*XX(58)-JVS(129)*XX(60)-JVS(134)*XX(62)-JVS(177)*XX(77))/(JVS(179)) XX(79) = X(79)/JVS(181) XX(80) = X(80)/JVS(183) XX(81) = X(81)/JVS(185) XX(82) = X(82)/JVS(187) XX(83) = X(83)/JVS(189) XX(84) = X(84)/JVS(191) XX(85) = X(85)/JVS(193) XX(86) = X(86)/JVS(195) XX(87) = X(87)/JVS(197) XX(88) = X(88)/JVS(199) XX(89) = X(89)/JVS(201) XX(90) = X(90)/JVS(203) XX(91) = X(91)/JVS(205) XX(92) = X(92)/JVS(207) XX(93) = X(93)/JVS(209) XX(94) = X(94)/JVS(211) XX(95) = X(95)/JVS(213) XX(96) = X(96)/JVS(215) XX(97) = X(97)/JVS(217) XX(98) = X(98)/JVS(219) XX(99) = X(99)/JVS(221) XX(100) = X(100)/JVS(223) XX(101) = X(101)/JVS(225) XX(102) = (X(102)-JVS(108)*XX(52)-JVS(118)*XX(56))/(JVS(227)) XX(103) = (X(103)-JVS(114)*XX(54)-JVS(119)*XX(56))/(JVS(229)) XX(104) = (X(104)-JVS(24)*XX(19))/(JVS(232)) XX(105) = (X(105)-JVS(157)*XX(69)-JVS(182)*XX(79))/(JVS(238)) XX(106) = (X(106)-JVS(63)*XX(31)-JVS(212)*XX(94))/(JVS(242)) XX(107) = (X(107)-JVS(33)*XX(20)-JVS(196)*XX(86))/(JVS(245)) XX(108) = (X(108)-JVS(44)*XX(23)-JVS(200)*XX(88))/(JVS(249)) XX(109) = (X(109)-JVS(71)*XX(35)-JVS(250)*XX(108))/(JVS(254)) XX(110) = (X(110)-JVS(57)*XX(29))/(JVS(256)) XX(111) = (X(111)-JVS(61)*XX(30)-JVS(210)*XX(93))/(JVS(260)) XX(112) = (X(112)-JVS(73)*XX(36)-JVS(261)*XX(111))/(JVS(265)) XX(113) = (X(113)-JVS(65)*XX(32)-JVS(214)*XX(95))/(JVS(268)) XX(114) = (X(114)-JVS(36)*XX(21))/(JVS(270)) XX(115) = (X(115)-JVS(37)*XX(21)-JVS(271)*XX(114))/(JVS(274)) XX(116) = (X(116)-JVS(105)*XX(51)-JVS(110)*XX(53)-JVS(120)*XX(56)-JVS(226)*XX(101)-JVS(228)*XX(102)-JVS(230)*XX(103))& &/(JVS(280)) XX(117) = (X(117)-JVS(162)*XX(71))/(JVS(283)) XX(118) = (X(118)-JVS(163)*XX(71)-JVS(284)*XX(117))/(JVS(288)) XX(119) = (X(119)-JVS(164)*XX(71)-JVS(192)*XX(84)-JVS(285)*XX(117)-JVS(289)*XX(118))/(JVS(297)) XX(120) = (X(120)-JVS(168)*XX(73)-JVS(222)*XX(99)-JVS(233)*XX(104))/(JVS(303)) XX(121) = (X(121)-JVS(53)*XX(27)-JVS(206)*XX(91))/(JVS(307)) XX(122) = (X(122)-JVS(55)*XX(28)-JVS(208)*XX(92))/(JVS(311)) XX(123) = (X(123)-JVS(25)*XX(19))/(JVS(314)) XX(124) = (X(124)-JVS(58)*XX(29)-JVS(257)*XX(110))/(JVS(320)) XX(125) = (X(125)-JVS(38)*XX(21)-JVS(198)*XX(87)-JVS(275)*XX(115))/(JVS(327)) XX(126) = (X(126)-JVS(99)*XX(49)-JVS(170)*XX(74))/(JVS(338)) XX(127) = (X(127)-JVS(166)*XX(72)-JVS(220)*XX(98)-JVS(234)*XX(104)-JVS(315)*XX(123)-JVS(321)*XX(124))/(JVS(343)) XX(128) = (X(128)-JVS(26)*XX(19))/(JVS(346)) XX(129) = (X(129)-JVS(140)*XX(64)-JVS(328)*XX(125))/(JVS(351)) XX(130) = (X(130)-JVS(102)*XX(50))/(JVS(356)) XX(131) = (X(131)-JVS(40)*XX(22)-JVS(141)*XX(64)-JVS(329)*XX(125))/(JVS(361)) XX(132) = (X(132)-JVS(41)*XX(22)-JVS(142)*XX(64)-JVS(330)*XX(125)-JVS(352)*XX(129)-JVS(362)*XX(131))/(JVS(367)) XX(133) = (X(133)-JVS(144)*XX(65)-JVS(331)*XX(125))/(JVS(373)) XX(134) = (X(134)-JVS(145)*XX(65)-JVS(190)*XX(83)-JVS(332)*XX(125)-JVS(374)*XX(133))/(JVS(379)) XX(135) = (X(135)-JVS(147)*XX(66)-JVS(184)*XX(80))/(JVS(384)) XX(136) = (X(136)-JVS(148)*XX(66)-JVS(385)*XX(135))/(JVS(391)) XX(137) = (X(137)-JVS(137)*XX(63)-JVS(353)*XX(129)-JVS(368)*XX(132))/(JVS(397)) XX(138) = (X(138)-JVS(50)*XX(26)-JVS(333)*XX(125))/(JVS(401)) XX(139) = (X(139)-JVS(159)*XX(70))/(JVS(406)) XX(140) = (X(140)-JVS(160)*XX(70)-JVS(407)*XX(139))/(JVS(411)) XX(141) = (X(141)-JVS(138)*XX(63)-JVS(369)*XX(132)-JVS(398)*XX(137))/(JVS(419)) XX(142) = (X(142)-JVS(51)*XX(26)-JVS(204)*XX(90)-JVS(334)*XX(125)-JVS(402)*XX(138))/(JVS(424)) XX(143) = (X(143)-JVS(27)*XX(19)-JVS(316)*XX(123)-JVS(322)*XX(124)-JVS(347)*XX(128))/(JVS(432)) XX(144) = (X(144)-JVS(150)*XX(67)-JVS(186)*XX(81))/(JVS(439)) XX(145) = (X(145)-JVS(28)*XX(19)-JVS(224)*XX(100))/(JVS(447)) XX(146) = (X(146)-JVS(46)*XX(24)-JVS(194)*XX(85))/(JVS(453)) XX(147) = (X(147)-JVS(69)*XX(34)-JVS(111)*XX(53)-JVS(246)*XX(107)-JVS(281)*XX(116))/(JVS(463)) XX(148) = (X(148)-JVS(29)*XX(19)-JVS(151)*XX(67)-JVS(425)*XX(142)-JVS(440)*XX(144))/(JVS(471)) XX(149) = (X(149)-JVS(152)*XX(67)-JVS(426)*XX(142)-JVS(441)*XX(144)-JVS(472)*XX(148))/(JVS(481)) XX(150) = (X(150)-JVS(103)*XX(50)-JVS(218)*XX(97)-JVS(357)*XX(130)-JVS(464)*XX(147))/(JVS(489)) XX(151) = (X(151)-JVS(154)*XX(68)-JVS(358)*XX(130)-JVS(454)*XX(146)-JVS(490)*XX(150))/(JVS(495)) XX(152) = (X(152)-JVS(100)*XX(49)-JVS(339)*XX(126)-JVS(465)*XX(147))/(JVS(506)) XX(153) = (X(153)-JVS(251)*XX(108)-JVS(255)*XX(109)-JVS(286)*XX(117)-JVS(290)*XX(118)-JVS(298)*XX(119)-JVS(473)& &*XX(148)-JVS(482)*XX(149))/(JVS(529)) XX(154) = (X(154)-JVS(59)*XX(29)-JVS(112)*XX(53)-JVS(135)*XX(62)-JVS(175)*XX(76)-JVS(180)*XX(78)-JVS(231)*XX(103)& &-JVS(282)*XX(116)-JVS(317)*XX(123)-JVS(323)*XX(124)-JVS(344)*XX(127)-JVS(433)*XX(143)-JVS(466)*XX(147)& &-JVS(530)*XX(153))/(JVS(556)) XX(155) = (X(155)-JVS(155)*XX(68)-JVS(188)*XX(82)-JVS(348)*XX(128)-JVS(434)*XX(143)-JVS(455)*XX(146)-JVS(491)*XX(150)& &-JVS(496)*XX(151)-JVS(507)*XX(152)-JVS(531)*XX(153)-JVS(557)*XX(154))/(JVS(585)) XX(156) = (X(156)-JVS(87)*XX(43)-JVS(247)*XX(107)-JVS(258)*XX(110)-JVS(262)*XX(111)-JVS(266)*XX(112)-JVS(272)*XX(114)& &-JVS(276)*XX(115)-JVS(308)*XX(121)-JVS(312)*XX(122)-JVS(324)*XX(124)-JVS(335)*XX(125)-JVS(340)*XX(126)& &-JVS(349)*XX(128)-JVS(354)*XX(129)-JVS(359)*XX(130)-JVS(363)*XX(131)-JVS(370)*XX(132)-JVS(375)*XX(133)& &-JVS(380)*XX(134)-JVS(386)*XX(135)-JVS(392)*XX(136)-JVS(399)*XX(137)-JVS(403)*XX(138)-JVS(408)*XX(139)& &-JVS(412)*XX(140)-JVS(420)*XX(141)-JVS(427)*XX(142)-JVS(448)*XX(145)-JVS(456)*XX(146)-JVS(467)*XX(147)& &-JVS(483)*XX(149)-JVS(492)*XX(150)-JVS(497)*XX(151)-JVS(508)*XX(152)-JVS(532)*XX(153)-JVS(558)*XX(154)& &-JVS(586)*XX(155))/(JVS(633)) XX(157) = (X(157)-JVS(30)*XX(19)-JVS(235)*XX(104)-JVS(291)*XX(118)-JVS(299)*XX(119)-JVS(304)*XX(120)-JVS(309)*XX(121)& &-JVS(313)*XX(122)-JVS(345)*XX(127)-JVS(350)*XX(128)-JVS(435)*XX(143)-JVS(442)*XX(144)-JVS(449)*XX(145)& &-JVS(457)*XX(146)-JVS(468)*XX(147)-JVS(474)*XX(148)-JVS(484)*XX(149)-JVS(493)*XX(150)-JVS(509)*XX(152)& &-JVS(533)*XX(153)-JVS(559)*XX(154)-JVS(587)*XX(155)-JVS(634)*XX(156))/(JVS(658)) XX(158) = (X(158)-JVS(48)*XX(25)-JVS(202)*XX(89)-JVS(450)*XX(145)-JVS(469)*XX(147)-JVS(498)*XX(151)-JVS(510)*XX(152)& &-JVS(534)*XX(153)-JVS(560)*XX(154)-JVS(588)*XX(155)-JVS(635)*XX(156)-JVS(659)*XX(157))/(JVS(670)) XX(159) = (X(159)-JVS(97)*XX(48)-JVS(216)*XX(96)-JVS(360)*XX(130)-JVS(451)*XX(145)-JVS(494)*XX(150)-JVS(499)*XX(151)& &-JVS(511)*XX(152)-JVS(535)*XX(153)-JVS(561)*XX(154)-JVS(589)*XX(155)-JVS(636)*XX(156)-JVS(660)*XX(157)& &-JVS(671)*XX(158))/(JVS(686)) XX(160) = (X(160)-JVS(31)*XX(19)-JVS(292)*XX(118)-JVS(300)*XX(119)-JVS(443)*XX(144)-JVS(475)*XX(148)-JVS(485)*XX(149)& &-JVS(512)*XX(152)-JVS(536)*XX(153)-JVS(562)*XX(154)-JVS(590)*XX(155)-JVS(637)*XX(156)-JVS(661)*XX(157)& &-JVS(672)*XX(158)-JVS(687)*XX(159))/(JVS(701)) XX(161) = (X(161)-JVS(42)*XX(22)-JVS(67)*XX(33)-JVS(236)*XX(104)-JVS(239)*XX(105)-JVS(243)*XX(106)-JVS(269)*XX(113)& &-JVS(287)*XX(117)-JVS(293)*XX(118)-JVS(301)*XX(119)-JVS(336)*XX(125)-JVS(341)*XX(126)-JVS(355)*XX(129)& &-JVS(364)*XX(131)-JVS(371)*XX(132)-JVS(376)*XX(133)-JVS(381)*XX(134)-JVS(387)*XX(135)-JVS(393)*XX(136)& &-JVS(400)*XX(137)-JVS(404)*XX(138)-JVS(409)*XX(139)-JVS(413)*XX(140)-JVS(421)*XX(141)-JVS(428)*XX(142)& &-JVS(436)*XX(143)-JVS(458)*XX(146)-JVS(476)*XX(148)-JVS(486)*XX(149)-JVS(500)*XX(151)-JVS(513)*XX(152)& &-JVS(537)*XX(153)-JVS(563)*XX(154)-JVS(591)*XX(155)-JVS(638)*XX(156)-JVS(662)*XX(157)-JVS(673)*XX(158)& &-JVS(688)*XX(159)-JVS(702)*XX(160))/(JVS(738)) XX(161) = XX(161) XX(160) = XX(160)-JVS(737)*XX(161) XX(159) = XX(159)-JVS(700)*XX(160)-JVS(736)*XX(161) XX(158) = XX(158)-JVS(685)*XX(159)-JVS(699)*XX(160)-JVS(735)*XX(161) XX(157) = XX(157)-JVS(669)*XX(158)-JVS(684)*XX(159)-JVS(698)*XX(160)-JVS(734)*XX(161) XX(156) = XX(156)-JVS(657)*XX(157)-JVS(668)*XX(158)-JVS(683)*XX(159)-JVS(697)*XX(160)-JVS(733)*XX(161) XX(155) = XX(155)-JVS(632)*XX(156)-JVS(656)*XX(157)-JVS(667)*XX(158)-JVS(682)*XX(159)-JVS(696)*XX(160)-JVS(732)& &*XX(161) XX(154) = XX(154)-JVS(584)*XX(155)-JVS(631)*XX(156)-JVS(655)*XX(157)-JVS(681)*XX(159)-JVS(695)*XX(160)-JVS(731)& &*XX(161) XX(153) = XX(153)-JVS(583)*XX(155)-JVS(630)*XX(156)-JVS(654)*XX(157)-JVS(694)*XX(160)-JVS(730)*XX(161) XX(152) = XX(152)-JVS(528)*XX(153)-JVS(555)*XX(154)-JVS(629)*XX(156)-JVS(666)*XX(158)-JVS(680)*XX(159)-JVS(729)& &*XX(161) XX(151) = XX(151)-JVS(505)*XX(152)-JVS(527)*XX(153)-JVS(554)*XX(154)-JVS(582)*XX(155)-JVS(628)*XX(156)-JVS(653)& &*XX(157)-JVS(665)*XX(158)-JVS(679)*XX(159)-JVS(728)*XX(161) XX(150) = XX(150)-JVS(504)*XX(152)-JVS(526)*XX(153)-JVS(553)*XX(154)-JVS(581)*XX(155)-JVS(627)*XX(156)-JVS(652)& &*XX(157)-JVS(678)*XX(159)-JVS(727)*XX(161) XX(149) = XX(149)-JVS(525)*XX(153)-JVS(580)*XX(155)-JVS(626)*XX(156)-JVS(651)*XX(157)-JVS(693)*XX(160)-JVS(726)& &*XX(161) XX(148) = XX(148)-JVS(480)*XX(149)-JVS(524)*XX(153)-JVS(579)*XX(155)-JVS(625)*XX(156)-JVS(650)*XX(157)-JVS(692)& &*XX(160)-JVS(725)*XX(161) XX(147) = XX(147)-JVS(523)*XX(153)-JVS(552)*XX(154)-JVS(624)*XX(156)-JVS(677)*XX(159)-JVS(724)*XX(161) XX(146) = XX(146)-JVS(551)*XX(154)-JVS(578)*XX(155)-JVS(623)*XX(156)-JVS(649)*XX(157)-JVS(723)*XX(161) XX(145) = XX(145)-JVS(503)*XX(152)-JVS(550)*XX(154)-JVS(622)*XX(156)-JVS(648)*XX(157)-JVS(664)*XX(158)-JVS(676)& &*XX(159) XX(144) = XX(144)-JVS(470)*XX(148)-JVS(479)*XX(149)-JVS(522)*XX(153)-JVS(647)*XX(157)-JVS(691)*XX(160) XX(143) = XX(143)-JVS(549)*XX(154)-JVS(577)*XX(155)-JVS(621)*XX(156)-JVS(646)*XX(157)-JVS(722)*XX(161) XX(142) = XX(142)-JVS(521)*XX(153)-JVS(576)*XX(155)-JVS(620)*XX(156)-JVS(721)*XX(161) XX(141) = XX(141)-JVS(520)*XX(153)-JVS(575)*XX(155)-JVS(619)*XX(156)-JVS(720)*XX(161) XX(140) = XX(140)-JVS(418)*XX(141)-JVS(574)*XX(155)-JVS(618)*XX(156)-JVS(719)*XX(161) XX(139) = XX(139)-JVS(410)*XX(140)-JVS(417)*XX(141)-JVS(573)*XX(155)-JVS(617)*XX(156)-JVS(718)*XX(161) XX(138) = XX(138)-JVS(423)*XX(142)-JVS(519)*XX(153)-JVS(572)*XX(155)-JVS(616)*XX(156)-JVS(717)*XX(161) XX(137) = XX(137)-JVS(416)*XX(141)-JVS(518)*XX(153)-JVS(571)*XX(155)-JVS(615)*XX(156)-JVS(716)*XX(161) XX(136) = XX(136)-JVS(396)*XX(137)-JVS(415)*XX(141)-JVS(478)*XX(149)-JVS(614)*XX(156)-JVS(715)*XX(161) XX(135) = XX(135)-JVS(390)*XX(136)-JVS(395)*XX(137)-JVS(477)*XX(149)-JVS(613)*XX(156)-JVS(714)*XX(161) XX(134) = XX(134)-JVS(383)*XX(135)-JVS(389)*XX(136)-JVS(570)*XX(155)-JVS(612)*XX(156)-JVS(713)*XX(161) XX(133) = XX(133)-JVS(378)*XX(134)-JVS(388)*XX(136)-JVS(569)*XX(155)-JVS(611)*XX(156)-JVS(712)*XX(161) XX(132) = XX(132)-JVS(517)*XX(153)-JVS(610)*XX(156)-JVS(711)*XX(161) XX(131) = XX(131)-JVS(366)*XX(132)-JVS(516)*XX(153)-JVS(609)*XX(156)-JVS(710)*XX(161) XX(130) = XX(130)-JVS(488)*XX(150)-JVS(502)*XX(152)-JVS(608)*XX(156) XX(129) = XX(129)-JVS(365)*XX(132)-JVS(607)*XX(156)-JVS(709)*XX(161) XX(128) = XX(128)-JVS(548)*XX(154)-JVS(606)*XX(156)-JVS(645)*XX(157) XX(127) = XX(127)-JVS(431)*XX(143)-JVS(462)*XX(147)-JVS(547)*XX(154)-JVS(605)*XX(156)-JVS(644)*XX(157)-JVS(708)& &*XX(161) XX(126) = XX(126)-JVS(501)*XX(152)-JVS(604)*XX(156)-JVS(675)*XX(159)-JVS(707)*XX(161) XX(125) = XX(125)-JVS(603)*XX(156) XX(124) = XX(124)-JVS(546)*XX(154)-JVS(602)*XX(156) XX(123) = XX(123)-JVS(319)*XX(124)-JVS(706)*XX(161) XX(122) = XX(122)-JVS(545)*XX(154)-JVS(601)*XX(156)-JVS(643)*XX(157) XX(121) = XX(121)-JVS(544)*XX(154)-JVS(600)*XX(156)-JVS(642)*XX(157) XX(120) = XX(120)-JVS(306)*XX(121)-JVS(430)*XX(143)-JVS(438)*XX(144)-JVS(568)*XX(155)-JVS(641)*XX(157) XX(119) = XX(119) XX(118) = XX(118)-JVS(296)*XX(119) XX(117) = XX(117)-JVS(295)*XX(119) XX(116) = XX(116)-JVS(461)*XX(147)-JVS(543)*XX(154) XX(115) = XX(115)-JVS(326)*XX(125)-JVS(599)*XX(156) XX(114) = XX(114)-JVS(273)*XX(115)-JVS(598)*XX(156) XX(113) = XX(113)-JVS(372)*XX(133)-JVS(414)*XX(141)-JVS(567)*XX(155)-JVS(705)*XX(161) XX(112) = XX(112)-JVS(597)*XX(156) XX(111) = XX(111)-JVS(264)*XX(112)-JVS(596)*XX(156) XX(110) = XX(110)-JVS(318)*XX(124)-JVS(595)*XX(156) XX(109) = XX(109)-JVS(515)*XX(153) XX(108) = XX(108)-JVS(253)*XX(109)-JVS(514)*XX(153) XX(107) = XX(107)-JVS(460)*XX(147)-JVS(594)*XX(156) XX(106) = XX(106)-JVS(394)*XX(137)-JVS(566)*XX(155)-JVS(704)*XX(161) XX(105) = XX(105)-JVS(241)*XX(106)-JVS(405)*XX(139)-JVS(565)*XX(155)-JVS(703)*XX(161) XX(104) = XX(104)-JVS(429)*XX(143) XX(103) = XX(103)-JVS(279)*XX(116) XX(102) = XX(102)-JVS(278)*XX(116) XX(101) = XX(101)-JVS(277)*XX(116) XX(100) = XX(100)-JVS(446)*XX(145) XX(99) = XX(99)-JVS(302)*XX(120) XX(98) = XX(98)-JVS(342)*XX(127) XX(97) = XX(97)-JVS(487)*XX(150) XX(96) = XX(96)-JVS(674)*XX(159) XX(95) = XX(95)-JVS(267)*XX(113) XX(94) = XX(94)-JVS(240)*XX(106) XX(93) = XX(93)-JVS(259)*XX(111) XX(92) = XX(92)-JVS(310)*XX(122) XX(91) = XX(91)-JVS(305)*XX(121) XX(90) = XX(90)-JVS(422)*XX(142) XX(89) = XX(89)-JVS(663)*XX(158) XX(88) = XX(88)-JVS(248)*XX(108) XX(87) = XX(87)-JVS(325)*XX(125) XX(86) = XX(86)-JVS(244)*XX(107) XX(85) = XX(85)-JVS(452)*XX(146) XX(84) = XX(84)-JVS(294)*XX(119) XX(83) = XX(83)-JVS(377)*XX(134) XX(82) = XX(82)-JVS(564)*XX(155) XX(81) = XX(81)-JVS(437)*XX(144) XX(80) = XX(80)-JVS(382)*XX(135) XX(79) = XX(79)-JVS(237)*XX(105) XX(78) = XX(78)-JVS(542)*XX(154) XX(77) = XX(77)-JVS(178)*XX(78) XX(76) = XX(76)-JVS(541)*XX(154) XX(75) = XX(75)-JVS(173)*XX(76) XX(74) = XX(74)-JVS(337)*XX(126) XX(73) = XX(73) XX(72) = XX(72) XX(71) = XX(71) XX(70) = XX(70) XX(69) = XX(69) XX(68) = XX(68) XX(67) = XX(67) XX(66) = XX(66) XX(65) = XX(65) XX(64) = XX(64) XX(63) = XX(63) XX(62) = XX(62) XX(61) = XX(61) XX(60) = XX(60) XX(59) = XX(59) XX(58) = XX(58) XX(57) = XX(57) XX(56) = XX(56) XX(55) = XX(55) XX(54) = XX(54) XX(53) = XX(53) XX(52) = XX(52) XX(51) = XX(51) XX(50) = XX(50) XX(49) = XX(49) XX(48) = XX(48) XX(47) = XX(47) XX(46) = XX(46) XX(45) = XX(45) XX(44) = XX(44) XX(43) = XX(43) XX(42) = XX(42) XX(41) = XX(41) XX(40) = XX(40) XX(39) = XX(39) XX(38) = XX(38) XX(37) = XX(37) XX(36) = XX(36) XX(35) = XX(35) XX(34) = XX(34) XX(33) = XX(33) XX(32) = XX(32) XX(31) = XX(31) XX(30) = XX(30) XX(29) = XX(29) XX(28) = XX(28) XX(27) = XX(27) XX(26) = XX(26) XX(25) = XX(25) XX(24) = XX(24) XX(23) = XX(23) XX(22) = XX(22) XX(21) = XX(21) XX(20) = XX(20) XX(19) = XX(19) XX(18) = XX(18)-JVS(94)*XX(47) XX(17) = XX(17)-JVS(92)*XX(46) XX(16) = XX(16)-JVS(90)*XX(45) XX(15) = XX(15)-JVS(88)*XX(44) XX(14) = XX(14)-JVS(78)*XX(39)-JVS(445)*XX(145)-JVS(540)*XX(154)-JVS(593)*XX(156)-JVS(640)*XX(157)-JVS(690)*XX(160) XX(13) = XX(13)-JVS(76)*XX(38)-JVS(444)*XX(145)-JVS(539)*XX(154)-JVS(592)*XX(156)-JVS(639)*XX(157)-JVS(689)*XX(160) XX(12) = XX(12)-JVS(84)*XX(42) XX(11) = XX(11)-JVS(82)*XX(41) XX(10) = XX(10)-JVS(80)*XX(40) XX(9) = XX(9)-JVS(74)*XX(37) XX(8) = XX(8)-JVS(9)*XX(9) XX(7) = XX(7)-JVS(14)*XX(12) XX(6) = XX(6)-JVS(11)*XX(10) XX(5) = XX(5)-JVS(538)*XX(154) XX(4) = XX(4)-JVS(21)*XX(18) XX(3) = XX(3)-JVS(263)*XX(112) XX(2) = XX(2)-JVS(252)*XX(109) XX(1) = XX(1)-JVS(459)*XX(147) END SUBROUTINE KppSolveTR ! End of KppSolveTR function ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ! ! BLAS_UTIL - BLAS-LIKE utility functions ! Arguments : ! ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ !-------------------------------------------------------------- ! ! BLAS/LAPACK-like subroutines used by the integration algorithms ! It is recommended to replace them by calls to the optimized ! BLAS/LAPACK library for your machine ! ! (C) Adrian Sandu, Aug. 2004 ! Virginia Polytechnic Institute and State University !-------------------------------------------------------------- !-------------------------------------------------------------- SUBROUTINE WCOPY(N,X,incX,Y,incY) !-------------------------------------------------------------- ! copies a vector, x, to a vector, y: y <- x ! only for incX=incY=1 ! after BLAS ! replace this by the function from the optimized BLAS implementation: ! CALL SCOPY(N,X,1,Y,1) or CALL DCOPY(N,X,1,Y,1) !-------------------------------------------------------------- ! USE aqchem_Precision INTEGER :: i,incX,incY,M,MP1,N REAL(kind=dp) :: X(N),Y(N) IF (N.LE.0) RETURN M = MOD(N,8) IF( M .NE. 0 ) THEN DO i = 1,M Y(i) = X(i) END DO IF( N .LT. 8 ) RETURN END IF MP1 = M+1 DO i = MP1,N,8 Y(i) = X(i) Y(i + 1) = X(i + 1) Y(i + 2) = X(i + 2) Y(i + 3) = X(i + 3) Y(i + 4) = X(i + 4) Y(i + 5) = X(i + 5) Y(i + 6) = X(i + 6) Y(i + 7) = X(i + 7) END DO END SUBROUTINE WCOPY !-------------------------------------------------------------- SUBROUTINE WAXPY(N,Alpha,X,incX,Y,incY) !-------------------------------------------------------------- ! constant times a vector plus a vector: y <- y + Alpha*x ! only for incX=incY=1 ! after BLAS ! replace this by the function from the optimized BLAS implementation: ! CALL SAXPY(N,Alpha,X,1,Y,1) or CALL DAXPY(N,Alpha,X,1,Y,1) !-------------------------------------------------------------- INTEGER :: i,incX,incY,M,MP1,N REAL(kind=dp) :: X(N),Y(N),Alpha REAL(kind=dp), PARAMETER :: ZERO = 0.0_dp IF (Alpha .EQ. ZERO) RETURN IF (N .LE. 0) RETURN M = MOD(N,4) IF( M .NE. 0 ) THEN DO i = 1,M Y(i) = Y(i) + Alpha*X(i) END DO IF( N .LT. 4 ) RETURN END IF MP1 = M + 1 DO i = MP1,N,4 Y(i) = Y(i) + Alpha*X(i) Y(i + 1) = Y(i + 1) + Alpha*X(i + 1) Y(i + 2) = Y(i + 2) + Alpha*X(i + 2) Y(i + 3) = Y(i + 3) + Alpha*X(i + 3) END DO END SUBROUTINE WAXPY !-------------------------------------------------------------- SUBROUTINE WSCAL(N,Alpha,X,incX) !-------------------------------------------------------------- ! constant times a vector: x(1:N) <- Alpha*x(1:N) ! only for incX=incY=1 ! after BLAS ! replace this by the function from the optimized BLAS implementation: ! CALL SSCAL(N,Alpha,X,1) or CALL DSCAL(N,Alpha,X,1) !-------------------------------------------------------------- INTEGER :: i,incX,M,MP1,N REAL(kind=dp) :: X(N),Alpha REAL(kind=dp), PARAMETER :: ZERO=0.0_dp, ONE=1.0_dp IF (Alpha .EQ. ONE) RETURN IF (N .LE. 0) RETURN M = MOD(N,5) IF( M .NE. 0 ) THEN IF (Alpha .EQ. (-ONE)) THEN DO i = 1,M X(i) = -X(i) END DO ELSEIF (Alpha .EQ. ZERO) THEN DO i = 1,M X(i) = ZERO END DO ELSE DO i = 1,M X(i) = Alpha*X(i) END DO END IF IF( N .LT. 5 ) RETURN END IF MP1 = M + 1 IF (Alpha .EQ. (-ONE)) THEN DO i = MP1,N,5 X(i) = -X(i) X(i + 1) = -X(i + 1) X(i + 2) = -X(i + 2) X(i + 3) = -X(i + 3) X(i + 4) = -X(i + 4) END DO ELSEIF (Alpha .EQ. ZERO) THEN DO i = MP1,N,5 X(i) = ZERO X(i + 1) = ZERO X(i + 2) = ZERO X(i + 3) = ZERO X(i + 4) = ZERO END DO ELSE DO i = MP1,N,5 X(i) = Alpha*X(i) X(i + 1) = Alpha*X(i + 1) X(i + 2) = Alpha*X(i + 2) X(i + 3) = Alpha*X(i + 3) X(i + 4) = Alpha*X(i + 4) END DO END IF END SUBROUTINE WSCAL !-------------------------------------------------------------- REAL(kind=dp) FUNCTION WLAMCH( C ) !-------------------------------------------------------------- ! returns epsilon machine ! after LAPACK ! replace this by the function from the optimized LAPACK implementation: ! CALL SLAMCH('E') or CALL DLAMCH('E') !-------------------------------------------------------------- ! USE aqchem_Precision CHARACTER :: C INTEGER :: i REAL(kind=dp), SAVE :: Eps REAL(kind=dp) :: Suma REAL(kind=dp), PARAMETER :: ONE=1.0_dp, HALF=0.5_dp LOGICAL, SAVE :: First=.TRUE. IF (First) THEN First = .FALSE. Eps = HALF**(16) DO i = 17, 80 Eps = Eps*HALF CALL WLAMCH_ADD(ONE,Eps,Suma) IF (Suma.LE.ONE) GOTO 10 END DO PRINT*,'ERROR IN WLAMCH. EPS < ',Eps RETURN 10 Eps = Eps*2 i = i-1 END IF WLAMCH = Eps END FUNCTION WLAMCH SUBROUTINE WLAMCH_ADD( A, B, Suma ) ! USE aqchem_Precision REAL(kind=dp) A, B, Suma Suma = A + B END SUBROUTINE WLAMCH_ADD !-------------------------------------------------------------- !-------------------------------------------------------------- SUBROUTINE SET2ZERO(N,Y) !-------------------------------------------------------------- ! copies zeros into the vector y: y <- 0 ! after BLAS !-------------------------------------------------------------- INTEGER :: i,M,MP1,N REAL(kind=dp) :: Y(N) REAL(kind=dp), PARAMETER :: ZERO = 0.0d0 IF (N.LE.0) RETURN M = MOD(N,8) IF( M .NE. 0 ) THEN DO i = 1,M Y(i) = ZERO END DO IF( N .LT. 8 ) RETURN END IF MP1 = M+1 DO i = MP1,N,8 Y(i) = ZERO Y(i + 1) = ZERO Y(i + 2) = ZERO Y(i + 3) = ZERO Y(i + 4) = ZERO Y(i + 5) = ZERO Y(i + 6) = ZERO Y(i + 7) = ZERO END DO END SUBROUTINE SET2ZERO !-------------------------------------------------------------- REAL(kind=dp) FUNCTION WDOT (N, DX, incX, DY, incY) !-------------------------------------------------------------- ! dot produce: wdot = x(1:N)*y(1:N) ! only for incX=incY=1 ! after BLAS ! replace this by the function from the optimized BLAS implementation: ! CALL SDOT(N,X,1,Y,1) or CALL DDOT(N,X,1,Y,1) !-------------------------------------------------------------- ! USE messy_mecca_kpp_Precision !-------------------------------------------------------------- IMPLICIT NONE INTEGER :: N, incX, incY REAL(kind=dp) :: DX(N), DY(N) INTEGER :: i, IX, IY, M, MP1, NS WDOT = 0.0D0 IF (N .LE. 0) RETURN IF (incX .EQ. incY) IF (incX-1) 5,20,60 ! ! Code for unequal or nonpositive increments. ! 5 IX = 1 IY = 1 IF (incX .LT. 0) IX = (-N+1)*incX + 1 IF (incY .LT. 0) IY = (-N+1)*incY + 1 DO i = 1,N WDOT = WDOT + DX(IX)*DY(IY) IX = IX + incX IY = IY + incY END DO RETURN ! ! Code for both increments equal to 1. ! ! Clean-up loop so remaining vector length is a multiple of 5. ! 20 M = MOD(N,5) IF (M .EQ. 0) GO TO 40 DO i = 1,M WDOT = WDOT + DX(i)*DY(i) END DO IF (N .LT. 5) RETURN 40 MP1 = M + 1 DO i = MP1,N,5 WDOT = WDOT + DX(i)*DY(i) + DX(i+1)*DY(i+1) + DX(i+2)*DY(i+2) + & DX(i+3)*DY(i+3) + DX(i+4)*DY(i+4) END DO RETURN ! ! Code for equal, positive, non-unit increments. ! 60 NS = N*incX DO i = 1,NS,incX WDOT = WDOT + DX(i)*DY(i) END DO END FUNCTION WDOT !-------------------------------------------------------------- SUBROUTINE WADD(N,X,Y,Z) !-------------------------------------------------------------- ! adds two vectors: z <- x + y ! BLAS - like !-------------------------------------------------------------- ! USE aqchem_Precision INTEGER :: i, M, MP1, N REAL(kind=dp) :: X(N),Y(N),Z(N) IF (N.LE.0) RETURN M = MOD(N,5) IF( M /= 0 ) THEN DO i = 1,M Z(i) = X(i) + Y(i) END DO IF( N < 5 ) RETURN END IF MP1 = M+1 DO i = MP1,N,5 Z(i) = X(i) + Y(i) Z(i + 1) = X(i + 1) + Y(i + 1) Z(i + 2) = X(i + 2) + Y(i + 2) Z(i + 3) = X(i + 3) + Y(i + 3) Z(i + 4) = X(i + 4) + Y(i + 4) END DO END SUBROUTINE WADD !-------------------------------------------------------------- SUBROUTINE WGEFA(N,A,Ipvt,info) !-------------------------------------------------------------- ! WGEFA FACTORS THE MATRIX A (N,N) BY ! GAUSS ELIMINATION WITH PARTIAL PIVOTING ! LINPACK - LIKE !-------------------------------------------------------------- ! INTEGER :: N,Ipvt(N),info REAL(kind=dp) :: A(N,N) REAL(kind=dp) :: t, dmax, da INTEGER :: j,k,l REAL(kind=dp), PARAMETER :: ZERO = 0.0, ONE = 1.0 info = 0 size: IF (n > 1) THEN col: DO k = 1, n-1 ! find l = pivot index ! l = idamax(n-k+1,A(k,k),1) + k - 1 l = k; dmax = abs(A(k,k)) DO j = k+1,n da = ABS(A(j,k)) IF (da > dmax) THEN l = j; dmax = da END IF END DO Ipvt(k) = l ! zero pivot implies this column already triangularized IF (ABS(A(l,k)) < TINY(ZERO)) THEN info = k return ELSE IF (l /= k) THEN t = A(l,k); A(l,k) = A(k,k); A(k,k) = t END IF t = -ONE/A(k,k) CALL WSCAL(n-k,t,A(k+1,k),1) DO j = k+1, n t = A(l,j) IF (l /= k) THEN A(l,j) = A(k,j); A(k,j) = t END IF CALL WAXPY(n-k,t,A(k+1,k),1,A(k+1,j),1) END DO END IF END DO col END IF size Ipvt(N) = N IF (ABS(A(N,N)) == ZERO) info = N END SUBROUTINE WGEFA !-------------------------------------------------------------- SUBROUTINE WGESL(Trans,N,A,Ipvt,b) !-------------------------------------------------------------- ! WGESL solves the system ! a * x = b or trans(a) * x = b ! using the factors computed by WGEFA. ! ! Trans = 'N' to solve A*x = b , ! = 'T' to solve transpose(A)*x = b ! LINPACK - LIKE !-------------------------------------------------------------- INTEGER :: N,Ipvt(N) CHARACTER :: trans REAL(kind=dp) :: A(N,N),b(N) REAL(kind=dp) :: t INTEGER :: k,kb,l SELECT CASE (Trans) CASE ('n','N') ! Solve A * x = b ! first solve L*y = b IF (n >= 2) THEN DO k = 1, n-1 l = Ipvt(k) t = b(l) IF (l /= k) THEN b(l) = b(k) b(k) = t END IF CALL WAXPY(n-k,t,a(k+1,k),1,b(k+1),1) END DO END IF ! now solve U*x = y DO kb = 1, n k = n + 1 - kb b(k) = b(k)/a(k,k) t = -b(k) CALL WAXPY(k-1,t,a(1,k),1,b(1),1) END DO CASE ('t','T') ! Solve transpose(A) * x = b ! first solve trans(U)*y = b DO k = 1, n t = WDOT(k-1,a(1,k),1,b(1),1) b(k) = (b(k) - t)/a(k,k) END DO ! now solve trans(L)*x = y IF (n >= 2) THEN DO kb = 1, n-1 k = n - kb b(k) = b(k) + WDOT(n-k,a(k+1,k),1,b(k+1),1) l = Ipvt(k) IF (l /= k) THEN t = b(l); b(l) = b(k); b(k) = t END IF END DO END IF END SELECT END SUBROUTINE WGESL ! End of BLAS_UTIL function ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ END MODULE aqchem_LinearAlgebra ================================================ FILE: CCTM/src/cloud/acm_ae7_kmt2/aqchem_Model.F90 ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! MODULE aqchem_Model !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ! Completely defines the model aqchem ! by using all the associated modules !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ USE aqchem_Precision USE aqchem_Parameters USE aqchem_Global USE aqchem_Function USE aqchem_Integrator USE aqchem_Rates USE aqchem_Jacobian USE aqchem_LinearAlgebra ! USE aqchem_Monitor ! USE aqchem_Util END MODULE aqchem_Model ================================================ FILE: CCTM/src/cloud/acm_ae7_kmt2/aqchem_Parameters.F90 ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ! ! Parameter Module File ! ! Generated by KPP-2.2.3 symbolic chemistry Kinetics PreProcessor ! (http://www.cs.vt.edu/~asandu/Software/KPP) ! KPP is distributed under GPL, the general public licence ! (http://www.gnu.org/copyleft/gpl.html) ! (C) 1995-1997, V. Damian & A. Sandu, CGRER, Univ. Iowa ! (C) 1997-2005, A. Sandu, Michigan Tech, Virginia Tech ! With important contributions from: ! M. Damian, Villanova University, USA ! R. Sander, Max-Planck Institute for Chemistry, Mainz, Germany ! ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ MODULE aqchem_Parameters USE aqchem_Precision PUBLIC SAVE ! NSPEC - Number of chemical species INTEGER, PARAMETER :: NSPEC = 165 ! NVAR - Number of Variable species INTEGER, PARAMETER :: NVAR = 161 ! NVARACT - Number of Active species INTEGER, PARAMETER :: NVARACT = 111 ! NFIX - Number of Fixed species INTEGER, PARAMETER :: NFIX = 4 ! NREACT - Number of reactions INTEGER, PARAMETER :: NREACT = 269 ! NVARST - Starting of variables in conc. vect. INTEGER, PARAMETER :: NVARST = 1 ! NFIXST - Starting of fixed in conc. vect. INTEGER, PARAMETER :: NFIXST = 162 ! NONZERO - Number of nonzero entries in Jacobian INTEGER, PARAMETER :: NONZERO = 670 ! LU_NONZERO - Number of nonzero entries in LU factoriz. of Jacobian INTEGER, PARAMETER :: LU_NONZERO = 738 ! CNVAR - (NVAR+1) Number of elements in compressed row format INTEGER, PARAMETER :: CNVAR = 162 ! NLOOKAT - Number of species to look at INTEGER, PARAMETER :: NLOOKAT = 165 ! NMONITOR - Number of species to monitor INTEGER, PARAMETER :: NMONITOR = 0 ! NMASS - Number of atoms to check mass balance INTEGER, PARAMETER :: NMASS = 1 ! Index declaration for variable species in C and VAR ! VAR(ind_spc) = C(ind_spc) INTEGER, PARAMETER :: ind_A_NO3AKN = 1 INTEGER, PARAMETER :: ind_A_NH4AKN = 2 INTEGER, PARAMETER :: ind_A_CLAKN = 3 INTEGER, PARAMETER :: ind_A_NAAKN = 4 INTEGER, PARAMETER :: ind_A_SO4AKN = 5 INTEGER, PARAMETER :: ind_A_PECAKN = 6 INTEGER, PARAMETER :: ind_A_POAAKN = 7 INTEGER, PARAMETER :: ind_A_PRIAKN = 8 INTEGER, PARAMETER :: ind_L_PRIACC = 9 INTEGER, PARAMETER :: ind_L_PECACC = 10 INTEGER, PARAMETER :: ind_L_ORGC = 11 INTEGER, PARAMETER :: ind_L_POAACC = 12 INTEGER, PARAMETER :: ind_L_FEPLUS3 = 13 INTEGER, PARAMETER :: ind_L_MNPLUS2 = 14 INTEGER, PARAMETER :: ind_L_CAPLUS2 = 15 INTEGER, PARAMETER :: ind_L_MGPLUS2 = 16 INTEGER, PARAMETER :: ind_L_KPLUS = 17 INTEGER, PARAMETER :: ind_L_NAPLUS = 18 INTEGER, PARAMETER :: ind_WD_SO2 = 19 INTEGER, PARAMETER :: ind_WD_HNO3 = 20 INTEGER, PARAMETER :: ind_WD_CO2 = 21 INTEGER, PARAMETER :: ind_L_CO2MIN = 22 INTEGER, PARAMETER :: ind_WD_NH4OH = 23 INTEGER, PARAMETER :: ind_WD_H2O2 = 24 INTEGER, PARAMETER :: ind_WD_O3 = 25 INTEGER, PARAMETER :: ind_WD_HCOOH = 26 INTEGER, PARAMETER :: ind_WD_MHP = 27 INTEGER, PARAMETER :: ind_WD_PAA = 28 INTEGER, PARAMETER :: ind_WD_H2SO4 = 29 INTEGER, PARAMETER :: ind_WD_HCL = 30 INTEGER, PARAMETER :: ind_WD_GLY = 31 INTEGER, PARAMETER :: ind_WD_MGLY = 32 INTEGER, PARAMETER :: ind_WD_HO = 33 INTEGER, PARAMETER :: ind_WD_NO3MIN = 34 INTEGER, PARAMETER :: ind_WD_NH4PLUS = 35 INTEGER, PARAMETER :: ind_WD_CLMIN = 36 INTEGER, PARAMETER :: ind_WD_PRIACC = 37 INTEGER, PARAMETER :: ind_WD_FEPLUS3 = 38 INTEGER, PARAMETER :: ind_WD_MNPLUS2 = 39 INTEGER, PARAMETER :: ind_WD_PECACC = 40 INTEGER, PARAMETER :: ind_WD_ORGC = 41 INTEGER, PARAMETER :: ind_WD_POAACC = 42 INTEGER, PARAMETER :: ind_WD_HPLUS = 43 INTEGER, PARAMETER :: ind_WD_CAPLUS2 = 44 INTEGER, PARAMETER :: ind_WD_MGPLUS2 = 45 INTEGER, PARAMETER :: ind_WD_KPLUS = 46 INTEGER, PARAMETER :: ind_WD_NAPLUS = 47 INTEGER, PARAMETER :: ind_WD_NO2 = 48 INTEGER, PARAMETER :: ind_WD_HONO = 49 INTEGER, PARAMETER :: ind_WD_HNO4 = 50 INTEGER, PARAMETER :: ind_WD_IEPOX = 51 INTEGER, PARAMETER :: ind_WD_IETET = 52 INTEGER, PARAMETER :: ind_L_ISO3 = 53 INTEGER, PARAMETER :: ind_WD_IEOS = 54 INTEGER, PARAMETER :: ind_WD_DIMER = 55 INTEGER, PARAMETER :: ind_L_DIMER = 56 INTEGER, PARAMETER :: ind_WD_IMAE = 57 INTEGER, PARAMETER :: ind_WD_IHMML = 58 INTEGER, PARAMETER :: ind_WD_IMGA = 59 INTEGER, PARAMETER :: ind_L_IMGA = 60 INTEGER, PARAMETER :: ind_WD_IMOS = 61 INTEGER, PARAMETER :: ind_L_IMOS = 62 INTEGER, PARAMETER :: ind_WD_GLYAC = 63 INTEGER, PARAMETER :: ind_WD_OXLAC = 64 INTEGER, PARAMETER :: ind_WD_PYRAC = 65 INTEGER, PARAMETER :: ind_WD_CCOOH = 66 INTEGER, PARAMETER :: ind_WD_CH2OHYD = 67 INTEGER, PARAMETER :: ind_WD_HO2 = 68 INTEGER, PARAMETER :: ind_WD_GCOL = 69 INTEGER, PARAMETER :: ind_WD_GCOLAC = 70 INTEGER, PARAMETER :: ind_WD_CH2OHYDP = 71 INTEGER, PARAMETER :: ind_WD_NO3 = 72 INTEGER, PARAMETER :: ind_WD_CH3O2 = 73 INTEGER, PARAMETER :: ind_G_HONO = 74 INTEGER, PARAMETER :: ind_G_IMAE = 75 INTEGER, PARAMETER :: ind_L_IMAE = 76 INTEGER, PARAMETER :: ind_G_IHMML = 77 INTEGER, PARAMETER :: ind_L_IHMML = 78 INTEGER, PARAMETER :: ind_G_GCOL = 79 INTEGER, PARAMETER :: ind_G_CCOOH = 80 INTEGER, PARAMETER :: ind_G_HCHO = 81 INTEGER, PARAMETER :: ind_G_HO2 = 82 INTEGER, PARAMETER :: ind_G_PYRAC = 83 INTEGER, PARAMETER :: ind_G_HCHOP = 84 INTEGER, PARAMETER :: ind_G_H2O2 = 85 INTEGER, PARAMETER :: ind_G_HNO3 = 86 INTEGER, PARAMETER :: ind_G_CO2 = 87 INTEGER, PARAMETER :: ind_G_NH3 = 88 INTEGER, PARAMETER :: ind_G_O3 = 89 INTEGER, PARAMETER :: ind_G_HCOOH = 90 INTEGER, PARAMETER :: ind_G_MHP = 91 INTEGER, PARAMETER :: ind_G_PAA = 92 INTEGER, PARAMETER :: ind_G_HCL = 93 INTEGER, PARAMETER :: ind_G_GLY = 94 INTEGER, PARAMETER :: ind_G_MGLY = 95 INTEGER, PARAMETER :: ind_G_NO2 = 96 INTEGER, PARAMETER :: ind_G_HNO4 = 97 INTEGER, PARAMETER :: ind_G_NO3 = 98 INTEGER, PARAMETER :: ind_G_CH3O2 = 99 INTEGER, PARAMETER :: ind_G_SO2 = 100 INTEGER, PARAMETER :: ind_G_IEPOX = 101 INTEGER, PARAMETER :: ind_L_IETET = 102 INTEGER, PARAMETER :: ind_L_IEOS = 103 INTEGER, PARAMETER :: ind_L_SO3MIN = 104 INTEGER, PARAMETER :: ind_L_GCOL = 105 INTEGER, PARAMETER :: ind_L_GLY = 106 INTEGER, PARAMETER :: ind_L_HNO3 = 107 INTEGER, PARAMETER :: ind_L_NH4OH = 108 INTEGER, PARAMETER :: ind_L_NH4PLUS = 109 INTEGER, PARAMETER :: ind_L_H2SO4 = 110 INTEGER, PARAMETER :: ind_L_HCL = 111 INTEGER, PARAMETER :: ind_L_CLMIN = 112 INTEGER, PARAMETER :: ind_L_MGLY = 113 INTEGER, PARAMETER :: ind_L_CO3MIN2 = 114 INTEGER, PARAMETER :: ind_L_HCO3MIN = 115 INTEGER, PARAMETER :: ind_L_IEPOX = 116 INTEGER, PARAMETER :: ind_L_CH2OHYDP = 117 INTEGER, PARAMETER :: ind_L_HMSMINP = 118 INTEGER, PARAMETER :: ind_L_HCHOP = 119 INTEGER, PARAMETER :: ind_L_CH3O2 = 120 INTEGER, PARAMETER :: ind_L_MHP = 121 INTEGER, PARAMETER :: ind_L_PAA = 122 INTEGER, PARAMETER :: ind_L_SO4MIN = 123 INTEGER, PARAMETER :: ind_L_HSO4MIN = 124 INTEGER, PARAMETER :: ind_L_H2CO3 = 125 INTEGER, PARAMETER :: ind_L_HONO = 126 INTEGER, PARAMETER :: ind_L_NO3 = 127 INTEGER, PARAMETER :: ind_L_HSO5MIN = 128 INTEGER, PARAMETER :: ind_L_OXLAC = 129 INTEGER, PARAMETER :: ind_L_NO4MIN = 130 INTEGER, PARAMETER :: ind_L_OXLACMIN2 = 131 INTEGER, PARAMETER :: ind_L_OXLACMIN = 132 INTEGER, PARAMETER :: ind_L_PYRACMIN = 133 INTEGER, PARAMETER :: ind_L_PYRAC = 134 INTEGER, PARAMETER :: ind_L_CCOOH = 135 INTEGER, PARAMETER :: ind_L_CCOOHMIN = 136 INTEGER, PARAMETER :: ind_L_GLYAC = 137 INTEGER, PARAMETER :: ind_L_HCOOMIN = 138 INTEGER, PARAMETER :: ind_L_GCOLAC = 139 INTEGER, PARAMETER :: ind_L_GCOLACMIN = 140 INTEGER, PARAMETER :: ind_L_GLYACMIN = 141 INTEGER, PARAMETER :: ind_L_HCOOH = 142 INTEGER, PARAMETER :: ind_L_SO5MIN = 143 INTEGER, PARAMETER :: ind_L_HCHO = 144 INTEGER, PARAMETER :: ind_L_SO2 = 145 INTEGER, PARAMETER :: ind_L_H2O2 = 146 INTEGER, PARAMETER :: ind_L_NO3MIN = 147 INTEGER, PARAMETER :: ind_L_HMSMIN = 148 INTEGER, PARAMETER :: ind_L_CH2OHYD = 149 INTEGER, PARAMETER :: ind_L_HNO4 = 150 INTEGER, PARAMETER :: ind_L_O2MIN = 151 INTEGER, PARAMETER :: ind_L_NO2MIN = 152 INTEGER, PARAMETER :: ind_L_OHMIN = 153 INTEGER, PARAMETER :: ind_L_SO4MIN2 = 154 INTEGER, PARAMETER :: ind_L_HO2 = 155 INTEGER, PARAMETER :: ind_L_HPLUS = 156 INTEGER, PARAMETER :: ind_L_HSO3MIN = 157 INTEGER, PARAMETER :: ind_L_O3 = 158 INTEGER, PARAMETER :: ind_L_NO2 = 159 INTEGER, PARAMETER :: ind_L_SO3MIN2 = 160 INTEGER, PARAMETER :: ind_L_HO = 161 ! Index declaration for fixed species in C ! C(ind_spc) INTEGER, PARAMETER :: ind_L_H2O = 162 INTEGER, PARAMETER :: ind_G_HO = 163 INTEGER, PARAMETER :: ind_L_O2 = 164 INTEGER, PARAMETER :: ind_DUMMY = 165 ! Index declaration for dummy species ! Index declaration for fixed species in FIX ! FIX(indf_spc) = C(ind_spc) = C(NVAR+indf_spc) INTEGER, PARAMETER :: indf_L_H2O = 1 INTEGER, PARAMETER :: indf_G_HO = 2 INTEGER, PARAMETER :: indf_L_O2 = 3 INTEGER, PARAMETER :: indf_DUMMY = 4 END MODULE aqchem_Parameters ================================================ FILE: CCTM/src/cloud/acm_ae7_kmt2/aqchem_Precision.F90 ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! MODULE aqchem_Precision ! ! Definition of different levels of accuracy ! for REAL variables using KIND parameterization ! ! KPP SP - Single precision kind INTEGER, PARAMETER :: sp = SELECTED_REAL_KIND(6,30) ! KPP DP - Double precision kind INTEGER, PARAMETER :: dp = SELECTED_REAL_KIND(14,300) ! KPP QP - Quadruple precision kind INTEGER, PARAMETER :: qp = SELECTED_REAL_KIND(18,400) END MODULE aqchem_Precision ================================================ FILE: CCTM/src/cloud/acm_ae7_kmt2/aqchem_Rates.F90 ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ! ! The Reaction Rates File ! ! Generated by KPP-2.2.3 symbolic chemistry Kinetics PreProcessor ! (http://www.cs.vt.edu/~asandu/Software/KPP) ! KPP is distributed under GPL, the general public licence ! (http://www.gnu.org/copyleft/gpl.html) ! (C) 1995-1997, V. Damian & A. Sandu, CGRER, Univ. Iowa ! (C) 1997-2005, A. Sandu, Michigan Tech, Virginia Tech ! With important contributions from: ! M. Damian, Villanova University, USA ! R. Sander, Max-Planck Institute for Chemistry, Mainz, Germany ! ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ MODULE aqchem_Rates USE aqchem_Parameters USE aqchem_Global IMPLICIT NONE CONTAINS ! Begin Rate Law Functions from KPP_HOME/util/UserRateLaws !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ! User-defined Rate Law functions ! Note: the default argument type for rate laws, as read from the equations file, is single precision ! but all the internal calculations are performed in double precision !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ !~~~> Arrhenius REAL(kind=dp) FUNCTION ARR( A0,B0,C0 ) REAL A0,B0,C0 ARR = DBLE(A0) * EXP(-DBLE(B0)/TEMP) * (TEMP/300.0_dp)**DBLE(C0) END FUNCTION ARR !~~~> Simplified Arrhenius, with two arguments !~~~> Note: The argument B0 has a changed sign when compared to ARR REAL(kind=dp) FUNCTION ARR2( A0,B0 ) REAL A0,B0 ARR2 = DBLE(A0) * EXP( DBLE(B0)/TEMP ) END FUNCTION ARR2 REAL(kind=dp) FUNCTION EP2(A0,C0,A2,C2,A3,C3) REAL A0,C0,A2,C2,A3,C3 REAL(kind=dp) K0,K2,K3 K0 = DBLE(A0) * EXP(-DBLE(C0)/TEMP) K2 = DBLE(A2) * EXP(-DBLE(C2)/TEMP) K3 = DBLE(A3) * EXP(-DBLE(C3)/TEMP) K3 = K3*CFACTOR*1.0E6_dp EP2 = K0 + K3/(1.0_dp+K3/K2 ) END FUNCTION EP2 REAL(kind=dp) FUNCTION EP3(A1,C1,A2,C2) REAL A1, C1, A2, C2 REAL(kind=dp) K1, K2 K1 = DBLE(A1) * EXP(-DBLE(C1)/TEMP) K2 = DBLE(A2) * EXP(-DBLE(C2)/TEMP) EP3 = K1 + K2*(1.0E6_dp*CFACTOR) END FUNCTION EP3 REAL(kind=dp) FUNCTION FALL ( A0,B0,C0,A1,B1,C1,CF) REAL A0,B0,C0,A1,B1,C1,CF REAL(kind=dp) K0, K1 K0 = DBLE(A0) * EXP(-DBLE(B0)/TEMP)* (TEMP/300.0_dp)**DBLE(C0) K1 = DBLE(A1) * EXP(-DBLE(B1)/TEMP)* (TEMP/300.0_dp)**DBLE(C1) K0 = K0*CFACTOR*1.0E6_dp K1 = K0/K1 FALL = (K0/(1.0_dp+K1))* & DBLE(CF)**(1.0_dp/(1.0_dp+(LOG10(K1))**2)) END FUNCTION FALL !--------------------------------------------------------------------------- ELEMENTAL REAL(kind=dp) FUNCTION k_3rd(temp,cair,k0_300K,n,kinf_300K,m,fc) INTRINSIC LOG10 REAL(kind=dp), INTENT(IN) :: temp ! temperature [K] REAL(kind=dp), INTENT(IN) :: cair ! air concentration [molecules/cm3] REAL, INTENT(IN) :: k0_300K ! low pressure limit at 300 K REAL, INTENT(IN) :: n ! exponent for low pressure limit REAL, INTENT(IN) :: kinf_300K ! high pressure limit at 300 K REAL, INTENT(IN) :: m ! exponent for high pressure limit REAL, INTENT(IN) :: fc ! broadening factor (usually fc=0.6) REAL(kind=dp) :: zt_help, k0_T, kinf_T, k_ratio zt_help = 300._dp/temp k0_T = k0_300K * zt_help**(n) * cair ! k_0 at current T kinf_T = kinf_300K * zt_help**(m) ! k_inf at current T k_ratio = k0_T/kinf_T k_3rd = k0_T/(1._dp+k_ratio)*fc**(1._dp/(1._dp+LOG10(k_ratio)**2)) END FUNCTION k_3rd !--------------------------------------------------------------------------- ELEMENTAL REAL(kind=dp) FUNCTION k_arr (k_298,tdep,temp) ! Arrhenius function REAL, INTENT(IN) :: k_298 ! k at T = 298.15K REAL, INTENT(IN) :: tdep ! temperature dependence REAL(kind=dp), INTENT(IN) :: temp ! temperature INTRINSIC EXP k_arr = k_298 * EXP(tdep*(1._dp/temp-3.3540E-3_dp)) ! 1/298.15=3.3540e-3 END FUNCTION k_arr !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ! End of User-defined Rate Law functions !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ! End Rate Law Functions from KPP_HOME/util/UserRateLaws ! Begin INLINED Rate Law Functions REAL( kind=dp )FUNCTION DISF ( KEQ, DH, KB, G1 ) IMPLICIT NONE REAL( kind=dp ) DH, KEQ, KB INTEGER G1 DISF = KB * ( KEQ * EXP( DH * DELINVT ) ) IF( G1 .eq. 1 ) DISF = DISF * ( GM1 ) RETURN END FUNCTION DISF REAL( kind=dp )FUNCTION DISB ( KB, G1 ) IMPLICIT NONE REAL( kind=dp ) KB INTEGER G1 DISB = KB IF( G1 .eq. 1 ) DISB = DISB * GM1 * GM2 IF( G1 .eq. 2 ) DISB = DISB * GM1 * GM1 DISB = DISB * PHI2 RETURN END FUNCTION DISB REAL( kind=dp )FUNCTION KRXN ( KR, DH, RTYPE, QY, METAL ) IMPLICIT NONE REAL( kind=dp ) KR, DH REAL( kind=dp ) Q, q1, COTHq, SVIinh REAL( kind=dp ) kO31, kO32, kO33, kO3T INTEGER QY, RTYPE, METAL SVIinh = 1.0D0 + 75.0D0 * ((VAR(ind_L_H2SO4) & + VAR(ind_L_HSO4MIN) + VAR(ind_L_SO4MIN2)) & * PHI2)**0.67D0 !SO4 inhibition of metal catalysis KRXN = KR * EXP( DH * DELINVT) IF ( RTYPE .EQ. 1 ) THEN ! SO2 - H2O2 OXIDATION KRXN = (KRXN / (1.0D0 + 13.0D0*VAR(ind_L_HPLUS) * PHI2)) * PHI2 ! ELSE IF ( RTYPE .EQ. 2 ) then ! SO2 - PAA OXIDATION ! KRXN = KRXN * (VAR(ind_L_HPLUS) * PHI2) + 7.00D2 ELSE IF ( RTYPE .EQ. 3 ) then ! SO2 - Fe3/Mn2 synergism and KRXN = KRXN * PHI2 ! MHP and PAA reaction ELSE IF ( RTYPE .EQ. 4 ) then ! only one reactant KRXN = KRXN / PHI2 END IF IF (METAL .GT. 0) KRXN = KRXN / SVIinh !SO4 inhibition only for !metal-catalyzed oxidation ! Ionic strength impact on SIV-O3 reaction rate ! IF (QY .GT. 0) THEN ! KRXN = KRXN * (1.0D0 + 2.5 * STION) ! END IF ! Aqueous diffusion limitation for O3 q1 = 0.0D0 Q = 1.0D0 IF( QY .GE. 1 ) THEN kO31 = 2.4D+4 * EXP( 0.0D0 * DELINVT) kO32 = 3.7D+5 * EXP( -5530.88D0 * DELINVT) kO33 = 1.5D+9 * EXP( -5280.56D0 * DELINVT) kO3T = ( kO31 * VAR( ind_L_SO2 ) + kO32 & * VAR( ind_L_HSO3MIN ) & + kO33 * VAR( ind_L_SO3MIN2 ) ) * PHI2 IF(kO3T .LT. 0.d0) THEN q1 = 0.d0 ELSE q1 = DDIAM / 2.0D0 * SQRT( kO3T / DAQ ) ! diffuso-reactive parameter END IF IF ( q1 .GT. 1.0D-3 ) THEN IF ( q1 .LE. 100.0D0 ) THEN COTHq = ( EXP( 2 * q1 ) + 1 ) / ( EXP( 2 * q1 ) - 1 ) Q = 3 * ( ( COTHq / q1 ) - ( 1 / ( q1 * q1 ) ) ) IF ( Q .GT. 1.0D0 ) Q = 1.0D0 ELSE Q = 3.d0/q1 END IF ELSE Q = 1.0D0 END IF KRXN = KRXN * Q END IF KRXN = KRXN * PHI2 RETURN END FUNCTION KRXN REAL( kind=dp )FUNCTION KIEPOX ( KH, KHSO4, TYPE ) IMPLICIT NONE REAL( kind=dp ) KH, KHSO4 REAL( kind=dp ) K1, K2 REAL( kind=dp ) KIEPOXT, KMAET REAL( kind=dp ) Q, q1, COTHq INTEGER TYPE IF( ISPC8 .LE. 0 ) THEN IF( TYPE .GT. 0 ) THEN KIEPOX = 0.d0 RETURN END IF ELSE IF( TYPE .LT. 1 ) THEN KIEPOX = 0.d0 RETURN END IF END IF K1 = KH * VAR( ind_L_HPLUS ) * PHI2 K2 = KHSO4 * VAR( ind_L_HSO4MIN ) * PHI2 KIEPOX = K1 + K2 ! ! Aqueous diffusion limitation for IEPOX and MAE ! ! q1 = 0.0D0 Q = 1.0D0 IF( TYPE .le. 1 ) THEN ! FOR IEPOX K1 = 9.0D-4 * VAR( ind_L_HPLUS ) * PHI2 K2 = 1.31D-5 * VAR( ind_L_HSO4MIN ) * PHI2 KIEPOXT = (K1 + K2) * FIX( indf_L_H2O ) * PHI2 ! IEPOX + H2O K1 = 8.83D-3 * VAR( ind_L_HPLUS ) * PHI2 K2 = 2.92D-6 * VAR( ind_L_HSO4MIN ) * PHI2 KIEPOXT = KIEPOXT + (K1 + K2) * VAR( ind_L_SO4MIN2 ) & * PHI2 ! IEPOX + SO4 K1 = 2.0D-4 * VAR( ind_L_HPLUS ) * PHI2 K2 = 2.92D-6 * VAR( ind_L_HSO4MIN ) * PHI2 IF( ISPC8 .LE. 0 ) THEN KIEPOXT = KIEPOXT + (K1 + K2) * VAR( ind_L_NO3MIN ) * PHI2 ELSE KIEPOXT = KIEPOXT + (K1 + K2) * VAR( ind_L_IETET ) & * PHI2 ! IEPOX + IETET KIEPOXT = KIEPOXT + (K1 + K2) * VAR( ind_L_IEOS ) & * PHI2 ! IEPOX + IEOS ENDIF IF(KIEPOXT .LT. 0.d0) THEN q1 = 0.d0 ELSE q1 = DDIAM/2.0D0 * SQRT( KIEPOXT / DAQ ) ! diffuso-reactive parameter END IF IF ( q1 .GT. 1.0D-3 ) THEN IF ( q1 .LE. 100.0D0 ) THEN COTHq = ( EXP( 2 * q1 ) + 1 ) / ( EXP( 2 * q1 ) - 1 ) Q = 3 * ( ( COTHq / q1 ) - ( 1 / ( q1 * q1 ) ) ) IF ( Q .GT. 1.0D0 ) Q = 1.0D0 ELSE Q = 3.d0/q1 END IF ELSE Q = 1.0D0 END IF ELSE ! FOR MAE OR HMML K1 = 9.0D-4 * VAR( ind_L_HPLUS ) * PHI2 K2 = 1.31D-5 * VAR( ind_L_HSO4MIN ) * PHI2 KMAET = (K1 + K2) * FIX( indf_L_H2O ) & * PHI2 ! MAE/HMML + H2O K1 = 2.0D-4 * VAR( ind_L_HPLUS ) * PHI2 K2 = 2.92D-6 * VAR( ind_L_HSO4MIN ) * PHI2 KMAET = KMAET + (K1 + K2) * VAR( ind_L_SO4MIN2 ) & * PHI2 ! MAE/HMML + SO4 IF(KMAET .LT. 0.d0) THEN q1 = 0.d0 ELSE q1 = DDIAM/2.0D0 * SQRT( KMAET / DAQ ) ! diffuso-reactive parameter END IF IF ( q1 .GT. 1.0D-3 ) THEN IF ( q1 .LE. 100.0D0 ) THEN COTHq = ( EXP( 2 * q1 ) + 1 ) / ( EXP( 2 * q1 ) - 1 ) Q = 3 * ( ( COTHq / q1 ) - ( 1 / ( q1 * q1 ) ) ) IF ( Q .GT. 1.0D0 ) Q = 1.0D0 ELSE Q = 3.d0/q1 END IF ELSE Q = 1.0D0 END IF END IF KIEPOX = KIEPOX * Q KIEPOX = KIEPOX * PHI2 RETURN END FUNCTION KIEPOX ! End INLINED Rate Law Functions ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ! ! Update_SUN - update SUN light using TIME ! Arguments : ! ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ SUBROUTINE Update_SUN() !USE aqchem_Parameters !USE aqchem_Global IMPLICIT NONE REAL(kind=dp) :: SunRise, SunSet REAL(kind=dp) :: Thour, Tlocal, Ttmp ! PI - Value of pi REAL(kind=dp), PARAMETER :: PI = 3.14159265358979d0 SunRise = 4.5_dp SunSet = 19.5_dp Thour = TIME/3600.0_dp Tlocal = Thour - (INT(Thour)/24)*24 IF ((Tlocal>=SunRise).AND.(Tlocal<=SunSet)) THEN Ttmp = (2.0*Tlocal-SunRise-SunSet)/(SunSet-SunRise) IF (Ttmp.GT.0) THEN Ttmp = Ttmp*Ttmp ELSE Ttmp = -Ttmp*Ttmp END IF SUN = ( 1.0_dp + COS(PI*Ttmp) )/2.0_dp ELSE SUN = 0.0_dp END IF END SUBROUTINE Update_SUN ! End of Update_SUN function ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ! ! Update_RCONST - function to update rate constants ! Arguments : ! ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ SUBROUTINE Update_RCONST ( ) ! Begin INLINED RCONST STION = 0.5D0 & * ( VAR( ind_L_HPLUS ) + VAR( ind_L_NH4PLUS ) & + VAR( ind_L_OHMIN ) & + VAR( ind_L_HCO3MIN ) + VAR( ind_L_O2MIN ) & + VAR( ind_L_NO2MIN ) & + VAR( ind_L_NO4MIN ) + VAR( ind_L_GLYACMIN ) & + VAR( ind_L_OXLACMIN ) & + VAR( ind_L_PYRACMIN ) + VAR( ind_L_GCOLACMIN ) & + VAR( ind_L_CCOOHMIN ) & + VAR( ind_L_HSO3MIN ) + VAR( ind_L_HCOOMIN ) & + VAR( ind_L_NO3MIN ) & + VAR( ind_L_HSO4MIN ) + VAR( IND_L_HMSMIN) & + VAR( ind_L_NAPLUS ) + VAR( ind_L_KPLUS ) + VAR( ind_L_CLMIN ) & + VAR( ind_L_SO4MIN ) + VAR( ind_L_SO3MIN ) + & + VAR( ind_L_HMSMIN ) + VAR( ind_L_SO5MIN ) + & + VAR( ind_L_HSO5MIN ) + VAR( ind_L_CO2MIN ) + & + 3.0D0 * VAR( ind_L_FEPLUS3 ) + 2.0D0 * VAR( ind_L_MNPLUS2 ) & + 4.0D0 * ( VAR( ind_L_SO4MIN2 ) + VAR( ind_L_CO3MIN2 ) & + VAR( ind_L_OXLACMIN2 ) & + VAR( ind_L_SO3MIN2 ) + VAR( ind_L_MNPLUS2 ) & + VAR( ind_L_CAPLUS2 ) & + VAR( ind_L_MGPLUS2 ) ) & + 9.0D0 * VAR( ind_L_FEPLUS3 ) ) * PHI2 !includes anions for !Fe3+ and Mn2+ GM1LOG = -0.509D0 * ( SQRT( STION ) & / ( 1.0D0 + SQRT( STION ) ) - 0.2D0 * STION ) GM2LOG = GM1LOG * 4.0D0 GM1 = 10.0D0**GM1LOG GM2 = MAX( 10.0D0**GM2LOG, 1.0d-30 ) ! End INLINED RCONST RCONST(41) = ((DISF(1.39D-02,1.87D+03,2.0D8,0))) RCONST(42) = ((DISF(6.72D-08,3.55D+02,5.0D10,1))) RCONST(43) = ((DISF(1.7D+01,0.0D0,5.0D10,0))) RCONST(44) = ((DISF(4.30D-07,-9.95D+02,6.4D4,0))) RCONST(45) = ((DISF(4.68D-11,-1.785D+03,5.0D10,1))) RCONST(46) = ((DISF(1.77D-5,-7.10D+02,3.4D10,0))) RCONST(47) = ((DISF(1.80D-4,-2.00D+01,5.0D10,0))) RCONST(48) = ((DISF(1.74D+06,6.89D+03,5.0D10,0))) RCONST(49) = ((DISF(1.80D-16,-6.955D+03,1.4D11,0))) RCONST(50) = ((DISF(1000.0D0,0.0D0,5.0D10,0))) RCONST(51) = ((DISF(1.02D-2,2.445D+03,1.0D11,1))) RCONST(52) = ((DISF(1.6D-5,0.0D0,5.0D10,0))) RCONST(53) = ((DISF(5.3D-4,-1760.D0,5.0D10,0))) RCONST(54) = ((DISF(1.0D-5,0.D0,5.0D10,0))) RCONST(55) = ((DISB(2.0D8,2))) RCONST(56) = ((DISB(5.0D10,1))) RCONST(57) = ((DISB(5.0D10,2))) RCONST(58) = ((DISB(6.4D4,2))) RCONST(59) = ((DISB(5.0D10,1))) RCONST(60) = ((DISB(3.4D10,2))) RCONST(61) = ((DISB(5.0D10,2))) RCONST(62) = ((DISB(5.0D10,2))) RCONST(63) = ((DISB(1.4D11,2))) RCONST(64) = ((DISB(5.0D10,2))) RCONST(65) = ((DISB(1.0D11,1))) RCONST(66) = ((DISB(5.0D10,2))) RCONST(67) = ((DISB(5.0D10,2))) RCONST(68) = ((DISB(5.0D10,2))) RCONST(69) = ((KRXN(7.45D+7,-4756.08D0,1,0,0))) RCONST(70) = ((KRXN(2.4D+4,0.0D0,0,1,0))) RCONST(71) = ((KRXN(3.7D+5,-5530.88D0,0,2,0))) RCONST(72) = ((KRXN(1.5D+9,-5280.56D0,0,3,0))) RCONST(73) = ((KRXN(750.D0,0.0D0,0,0,1))) RCONST(74) = ((KRXN(750.D0,0.0D0,0,0,1))) RCONST(75) = ((KRXN(750.D0,0.0D0,0,0,1))) RCONST(76) = ((KRXN(2600.D0,0.0D0,0,0,1))) RCONST(77) = ((KRXN(2600.D0,0.0D0,0,0,1))) RCONST(78) = ((KRXN(2600.D0,0.0D0,0,0,1))) RCONST(79) = ((KRXN(1.0D10,0.0D0,3,0,1))) RCONST(80) = ((KRXN(1.0D10,0.0D0,3,0,1))) RCONST(81) = ((KRXN(1.0D10,0.0D0,3,0,1))) RCONST(82) = ((KRXN(1.90D+07,-3799.5D0,3,0,0))) RCONST(83) = ((KRXN(3.60D+07,-3999.2D0,3,0,0))) RCONST(84) = ((KRXN(7.0D+02,0.0D0,0,0,0))) RCONST(85) = ((KRXN(8.3D5,-2700.D0,0,0,0))) RCONST(86) = ((KRXN(9.6D7,-910.D0,0,0,0))) RCONST(87) = ((KRXN(1.5D9,-1500.D0,0,0,0))) RCONST(88) = ((KRXN(2.0D6,0.D0,0,0,0))) RCONST(89) = ((KRXN(2.0D6,0.D0,0,0,0))) RCONST(90) = ((KRXN(2.0D6,0.D0,0,0,0))) RCONST(91) = ((KRXN(3.3D5,0.D0,0,0,0))) RCONST(93) = ((KRXN(5.D5,-7000.D0,0,0,0))) RCONST(94) = ((KRXN(1.D10,0.D0,0,0,0))) RCONST(95) = ((KRXN(1.D10,0.D0,0,0,0))) RCONST(147) = ((KIEPOX(9.0D-4,1.31D-5,1))) RCONST(148) = ((KIEPOX(8.83D-3,2.92D-6,1))) RCONST(149) = ((KIEPOX(2.0D-4,2.92D-6,1))) RCONST(150) = ((KIEPOX(2.0D-4,2.92D-6,1))) RCONST(151) = ((KIEPOX(9.0D-4,1.31D-5,0))) RCONST(152) = ((KIEPOX(8.83D-3,2.92D-6,0))) RCONST(153) = ((KIEPOX(2.0D-4,2.92D-6,0))) RCONST(154) = ((KIEPOX(9.0D-4,1.31D-5,2))) RCONST(155) = ((KIEPOX(2.0D-4,2.92D-6,2))) RCONST(156) = ((KIEPOX(9.0D-4,1.31D-5,2))) RCONST(157) = ((KIEPOX(2.0D-4,2.92D-6,2))) RCONST(177) = ((DISF(3.47D-4,-2.67D+2,2.D+10,0))) RCONST(178) = ((DISF(5.6D-2,-4.53D+2,5.D+10,0))) RCONST(179) = ((DISF(5.42D-5,-8.05D+2,5.D+10,1))) RCONST(180) = ((DISF(3.2D-3,0.d0,2.D+10,0))) RCONST(181) = ((DISF(1.48D-4,-8.05D+1,2.D+10,0))) RCONST(182) = ((DISF(1.75D-5,4.6D+1,5.D+10,0))) RCONST(183) = ((DISB(2.D10,2))) RCONST(184) = ((DISB(5.D10,2))) RCONST(185) = ((DISB(5.D10,1))) RCONST(186) = ((DISB(2.D10,2))) RCONST(187) = ((DISB(2.D10,2))) RCONST(188) = ((DISB(5.D10,2))) RCONST(194) = ((KRXN(5.0D+8,0.D0,0,0,0))) RCONST(195) = ((KRXN(1.0D+9,0.D0,0,0,0))) RCONST(196) = ((KRXN(6.0D+8,0.D0,0,0,0))) RCONST(197) = ((KRXN(8.6D+8,0.D0,0,0,0))) RCONST(198) = ((KRXN(1.1D+9,-1516.D0,0,0,0))) RCONST(199) = ((KRXN(1.5D+8,0.D0,0,0,0))) RCONST(200) = ((KRXN(1.2D+9,0.D0,0,0,0))) RCONST(201) = ((KRXN(1.4D+6,0.D0,0,0,0))) RCONST(202) = ((KRXN(4.7D+7,0.D0,0,0,0))) RCONST(203) = ((KRXN(7.7D+6,0.D0,0,0,0))) RCONST(204) = ((KRXN(7.0D+8,0.D0,0,0,0))) RCONST(205) = ((KRXN(6.0D+7,0.D0,0,0,0))) RCONST(206) = ((KRXN(6.0D+7,0.D0,0,0,0))) RCONST(207) = ((KRXN(1.6D+7,0.D0,0,0,0))) RCONST(208) = ((KRXN(8.5D+7,0.D0,0,0,0))) RCONST(209) = ((KRXN(1.1D+9,-1020.D0,0,0,0))) RCONST(210) = ((KRXN(1.2D+8,-990.D0,0,0,0))) RCONST(211) = ((KRXN(1.1D+9,-1020.D0,0,0,0))) RCONST(233) = ((KRXN(3.6D+9,-930.D0,0,0,0))) RCONST(234) = ((KRXN(2.8D+10,0.D0,0,0,0))) RCONST(235) = ((KRXN(3.5D+10,-720.D0,0,0,0))) RCONST(236) = ((KRXN(3.2D+7,-1700.D0,0,0,0))) RCONST(237) = ((KRXN(2.7D+9,0.D0,0,0,0))) RCONST(238) = ((KRXN(1.8D+9,0.D0,0,0,0))) RCONST(239) = ((KRXN(4.5D+9,0.D0,0,0,0))) RCONST(240) = ((KRXN(2.6D-2,0.D0,4,0,0))) RCONST(241) = ((KRXN(1.0D+5,0.D0,0,0,0))) RCONST(242) = ((KRXN(1.3D+9,-2200.D0,0,0,0))) RCONST(243) = ((KRXN(1.1D+9,0.D0,0,0,0))) RCONST(244) = ((KRXN(1.7D+9,0.D0,0,0,0))) RCONST(245) = ((KRXN(2.2D+8,-2600.D0,0,0,0))) RCONST(246) = ((KRXN(7.1D+6,0.D0,3,0,0))) RCONST(247) = ((KRXN(4.6D+2,-1100.D0,0,0,0))) RCONST(248) = ((KRXN(1.7D+8,-2200.D0,0,0,0))) RCONST(249) = ((KRXN(5.0D+5,0.D0,0,0,0))) RCONST(250) = ((KRXN(3.4D+9,-1200.D0,0,0,0))) RCONST(251) = ((KRXN(7.9D+2,-2900.D0,0,0,0))) RCONST(252) = ((KRXN(2.5D+7,-2450.D0,0,0,0))) RCONST(253) = ((KRXN(7.7D-3,-9200.D0,4,0,0))) RCONST(254) = ((KRXN(3.7D3,0.D0,0,0,0))) RCONST(255) = ((KRXN(3.0D8,0.D0,0,0,0))) RCONST(256) = ((KRXN(7.9D+2,-2900.D0,0,0,0))) RCONST(257) = ((KRXN(2.5D+7,-2450.D0,0,0,0))) RCONST(258) = ((KRXN(7.7D-3,-9200.D0,4,0,0))) RCONST(259) = ((KRXN(3.7D3,0.D0,0,0,0))) RCONST(260) = ((KRXN(3.0D8,0.D0,0,0,0))) END SUBROUTINE Update_RCONST ! End of Update_RCONST function ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ! ! Update_PHOTO - function to update photolytical rate constants ! Arguments : ! ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ SUBROUTINE Update_PHOTO ( ) USE aqchem_Global END SUBROUTINE Update_PHOTO ! End of Update_PHOTO function ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ END MODULE aqchem_Rates ================================================ FILE: CCTM/src/cloud/acm_ae7_kmt2/aqchem_kmt.F90 ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! !::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE AQCHEM ( JDATE, JTIME, TEMP2, PRES_PA, TAUCLD, PRCRATE, & WCAVG, WTAVG, AIRM, ALFA0, ALFA2, ALFA3, GAS, & AEROSOL, GASWDEP, AERWDEP, HPWDEP, BETASO4, COSZEN, & FRACTR, FRACPOA, FRACPRI, FRACSOA ) !----------------------------------------------------------------------- ! Description: ! Compute concentration changes in cloud due to aqueous chemistry, ! scavenging and wet deposition amounts. This is the "KMT" version ! of AQCHEM, which includes the treatment of kinetic mass transfer ! between the gas and aqueous phases and the implementation of the ! RODAS3 solver to simultaneously integrate phase transfer, scavenging, ! deposition, dissociation, and chemical kinetic processes. ! The additional subroutines of "AQCHEM-KMT" used in the integration of ! the system of aqueous ODEs were generated using the Kinetic ! PreProcessor, version 2.2.3 (Damian et al., 2002). ! ! Revision History: ! No Date Who What ! -- -------- --- ----------------------------------------- ! 0 / /86 CW BEGIN PROGRAM - Walceks's Original Code ! 1 / /86 RB INCORPORATE INTO RADM ! 2 03/23/87 DH REFORMAT ! 3 04/11/88 SJR STREAMLINED CODE - ADDED COMMENTS ! 4 08/27/88 SJR COMMENTS, MODIFIED FOR RPM ! 4a 03/15/96 FSB Scanned hard copy to develop Models3 ! Version. ! 5 04/24/96 FSB Made into Models3 Format ! 6 02/18/97 SJR Revisions to link with Models3 ! 7 08/12/97 SJR Revised for new concentration units (moles/mole) ! and new treatment of nitrate and nitric acid ! 8 01/15/98 sjr revised to add new aitken mode scavenging ! and aerosol number scavenging ! 9 12/15/98 David Wong at LM: ! -- change division of XL, TEMP to multiplication of XL, TEMP ! reciprocal, respectively ! -- change / TOTOX / TSIV to / ( TOTOX * TSIV ) ! 10 03/18/99 David Wong at LM: ! -- removed "* 1.0" redundant calculation at TEMP1 calculation ! 11 04/27/00 sjr Added aerosol surface area as modeled species ! 12 12/02 sjr changed calls to HLCONST and updated the dissociation ! constants ! 13 06/26/03 sjr revised calculations of DTW based on CMAS website ! discussions ! 14 08/05/03 sjr revision made to the coarse aerosol number washout ! 15 04/20/05 us revisions to add sea salt species in the fine and ! coarse aerosol modes, and HCl dissolution/dissociation ! 16 10/13/05 sjr fixed bug in the integration time step calculation ! (reported by Bonyoung Koo) ! 17 03/01/06 sjr added elemental carbon aerosol; organic aerosols ! replaced with primary, secondary biogenic, and ! secondary anthropogenic; fixed 3rd moment calc to ! include EC and primary organics (not secondary); ! re-arranged logic for setting Cl & Na ending conc; ! added pointers/indirect addressing for arrays WETDEP ! and LIQUID ! 16 03/30/07 sjr Limit integration timestep by cloud washout time ! 17 04/10/07 sjr increased loop limits as follows: I20C <10000, ! I7777C <10000, I30C <10000, ICNTAQ <60000 ! 18 01/10/07 agc added organic chemistry for GLY and MGLY oxidation ! 19 09/10/07 sln updated SOA species list for AE5 ! 20 01/29/08 agc updated DOHDT calculation ! 21 04/14/08 jtk added coding for coarse NH4 and scavenging of ! coarse surface area ! 22 05/20/08 agc for CB05, use the Henry's Law constant for glyoxal ! as a surrogate for methyl glyoxal ! 23 04/15/09 sjr& Several changes made to improve mass conservation in the ! agc solver. (1) OH concentration is now considered to be ! steady state; (2) only allow sulfur oxidation to affect ! time step; (3) implemented mass conservation checks - ! limit oxidation rates by the available mass for the ! specified timestep. ! 10 Oct 10 J.Young: update to use aero_reeng by Steve Howard, Prakash Bhave, ! Jeff Young, Sergey Napelenok, and Shawn Roselle ! 01 Mar 11 S.Roselle: replaced I/O API include files with UTILIO_DEFN ! 9 Mar 11 S.Napelenok: update for AE6 - pH calculation now expanded to ! include Ca Mg K SOIL CORS SEAS ! 23 May 11 G.Sarwar: update S(VI) production rate via H2O2, O3, MHP, PAA ! pathways (Jacobson 1997) ! 23 May 11 G.Sarwar: update S(VI) production rate via O2 pathway (metal ! catalysis) (Martin and Goodman, 1991) ! 01 Jul 11 G.Sarwar: Incorporate day and night dependent Fe III oxidation ! state (Alexander et al., 2009) ! 12 Aug 11 G.Sarwar: Revise Fe and Mn solubility based on ! Alexander et al., 2009 ! 8 Mar 12 J.Bash: FE_OX and MN_OX were calculated from FE and MN before ! a floor value of 0.0 was established for these ! concentrations sometimes resulting in negative ! concentrations and model crashes. The code used to ! estimate FE_OX and MN_OX was moved to be after a floor ! value for FE and MN was set. Also the washout rate was ! removed from the calculation of the estimate for doubling ! the time step based on sulfur oxidized < 5%. ! 28 Nov 12 G.Sarwar: Sulfate inhibition effect is implemented in the metal catalysis pathway ! 04 Mar 14 K. Fahey: Used the Kinetic PreProcessor to generate the RODAS3 solver ! for the CMAQ aqueous phase chemistry mechanism (Damian et al., 2002). ! Aitken scavenging, mass transfer between the phases, dissociation, ! chemical kinetics, and wet deposition are solved dynamically ! and simultaneously. The mass transfer between the phases is ! based on the resistance model of Schwartz (Schwartz, 1986). The SIV-O3 ! oxidation reaction has been corrected for potential aqueous ! diffusion limitations. ! 07 Jul 14 B.Hutzell: replaced mechanism include file(s) with fortran module ! 15 Jul 14 K. Fahey: Added IEPOX/MAE SOA chemistry based on Pye et al., 2013 ! 31 Mar 16 K. Fahey: Replaced yield-based SOA parameterization from GLY/MGLY + OH with the SOA ! chemistry scheme provided by Neha Sareen and Annmarie Carlton (based on ! Lim et al., 2005) ! 03 May 16 K.Fahey: Reinstated usage of HLCONST function to calculate Henry's law ! coefficients (rather than calculating in mass transfer coefficient ! function) [changes in aqchem_kmt, aqchem_Initialize, aqchem_Global]; ! updated to use AERO_DATA constants in calculation of coarse cations ! following J. Young updates in AQCHEM.F [changes in aqchem_kmt, ! aqchem_Initialize] ! 26 May 16 K.Fahey: Added Hg/toxic tracers to be consistent with AQCHEM.F updates ! 31 Aug 17 K.Fahey: Incorporated additional reactions for S, N, O-H, and C species ! (Leriche et al., 2013; Lim et al., 2005; Ervens et al., 2003) ! ! References: ! Walcek & Taylor, 1986, A theoretical Method for computing ! vertical distributions of acidity and sulfate within cumulus ! clouds, J. Atmos Sci., Vol. 43, no. 4 pp 339 - 355 ! Carlton, A.G., B.J. Turpin, K.E. Altieri, S.P. Seitzinger, R. Mathur, ! S.J. Roselle, and R.J. Weber, CMAQ Model Performance Enhanced When ! In-Cloud Secondary Organic Aerosol is Included: Comparison of Organic ! Carbon Predictions with Measurements, Environ. Sci. Technol., 42(23), ! 8798-8802, 2008. ! Jacobson, M., Development and application of a new air pollution modeling ! system II. Aerosol module structure and design, Atmospheric ! Environment, 31, 131-144, 1997 ! Martin, R.L. and T.W. Good, catalyzed oxidation of sulfur dioxide in ! solution: the iron-manganese synergism, Atmospheric Environment, 25A, ! 2395-2399, 1991 ! Alexander, B., R.J. Park, D.J. Jacob, S. Gong, Transition metal-catalyzed ! oxidation of atmospheric sulfur: global implications for the sulfur ! budget, GRL, 114, D02309, 2009 ! Damian, V., A. Sandu, M. Damian, F. Potra, and G.R. Carmichael, The Kinetic ! PreProcessor KPP -- A Software Environment for Solving Chemical Kinetics, ! Computers and Chemical Engineering, 26(11), 1567-1579, 2002. ! Schwartz, S.E., Mass transport considerations pertinent to aqueous-phase ! reactions of gases in liquid water clouds. In Chemistry of multiphase ! atmospheric systems, NATO ASI Series, G6, 415-471, 1986. ! Leriche, M., J.-P. Pinty, C. Mari, and D. Gazen, A cloud chemistry module for ! the 3-D cloud-resolving mesoscale model Meso-NH with application to idealized ! cases, Geosci. Model Dev., 6, 1275-1298, 2013 ! Lim, H.-J., A.G. Carlton, and B.J. Turpin, Isoprene forms secondary organic ! aerosol through cloud processing: model simulations, Environ. Sci. Technol., ! 39, 4441-4446, 2005 ! Ervens,B., C. George, J.E. Williams, G.V. Buxton, G.A. Salmon, M. Bydder, ! F. Wilkinson, F. Dentener, P. Mirabel, and H. Herrmann, CAPRAM 2.4 (MODAC ! mechanism): An extended and condensed tropospheric aqueous phase mechanism ! and its application, J. Geophys. Res., 108 (D14), 4426, 2003 ! ! Called by: AQMAP ! ! Calls the following subroutines: Initialize, Update_RCONST, INTEGRATE ! ! Calls the following functions: none !----------------------------------------------------------------------- USE RXNS_DATA ! chemical mechanism data USE AQ_DATA USE AERO_DATA USE UTILIO_DEFN USE aqchem_Model USE aqchem_Initialize, ONLY: Initialize IMPLICIT NONE CHARACTER( 120 ) :: XMSG = ' ' ! Exit status message !..........Parameters: !...........Arguments: INTEGER, INTENT( IN ) :: JDATE ! current model date, coded YYYYDDD INTEGER, INTENT( IN ) :: JTIME ! current model time, coded HHMMSS REAL, INTENT( IN ) :: AIRM ! total air mass in cloudy layers (mol/m2) REAL, INTENT( IN ) :: ALFA0 ! scav coef for aitken aerosol number REAL, INTENT( IN ) :: ALFA2 ! scav coef for aitken aerosol sfc area REAL, INTENT( IN ) :: ALFA3 ! scav coef for aitken aerosol mass REAL, INTENT( OUT ) :: HPWDEP ! hydrogen wet deposition (mm mol/liter) REAL( 8 ), INTENT( OUT ) :: BETASO4 REAL, INTENT( IN ) :: PRCRATE ! precip rate (mm/hr) REAL, INTENT( IN ) :: PRES_PA ! pressure (Pa) REAL, INTENT( IN ) :: TAUCLD ! timestep for cloud (s) REAL, INTENT( IN ) :: TEMP2 ! temperature (K) REAL, INTENT( IN ) :: WCAVG ! liquid water content (kg/m3) REAL, INTENT( IN ) :: WTAVG ! total water content (kg/m3) REAL, INTENT( IN ) :: COSZEN ! Cosine solar zenith angle ! LOGICAL, INTENT( IN ) :: DARK ! DARK = TRUE is night, DARK = FALSE is day REAL( 8 ), INTENT( INOUT ) :: GAS ( : ) ! gas phase concentrations (mol/molV) REAL( 8 ), INTENT( INOUT ) :: AEROSOL( :, : ) ! aerosol concentrations (mol/molV) REAL( 8 ), INTENT( INOUT ) :: GASWDEP( : ) ! gas phase wet deposition array (mm mol/liter) REAL( 8 ), INTENT( INOUT ) :: AERWDEP( :, : ) ! aerosol wet deposition array (mm mol/liter) REAL( 8 ), INTENT( OUT ) :: FRACTR ! Fraction of J mode tracer scavenged from I mode REAL( 8 ), INTENT( OUT ) :: FRACPOA ! Fraction of J mode poa scavenged from I mode REAL( 8 ), INTENT( OUT ) :: FRACPRI ! Fraction of J mode pri scavenged from I mode REAL( 8 ), INTENT( OUT ) :: FRACSOA ! Fraction of J mode soa scavenged from I mode REAL( 8 ), SAVE :: SOIL_FE_FAC ! Fe molar fraction of ASOIL REAL( 8 ), SAVE :: CORS_FE_FAC ! Fe molar fraction of ACORS REAL( 8 ), SAVE :: SOIL_MN_FAC ! Mn molar fraction of ASOIL REAL( 8 ), SAVE :: CORS_MN_FAC ! Fe molar fraction of ACORS REAL( 8 ), SAVE :: SEAS_NA_FAC ! Na molar fraction of ASEACAT REAL( 8 ), SAVE :: SOIL_NA_FAC ! Fe molar fraction of ASOIL REAL( 8 ), SAVE :: CORS_NA_FAC ! Fe molar fraction of ACORS REAL( 8 ), SAVE :: SEAS_MG_FAC ! Na molar fraction of ASEACAT REAL( 8 ), SAVE :: SOIL_MG_FAC ! Fe molar fraction of ASOIL REAL( 8 ), SAVE :: CORS_MG_FAC ! Fe molar fraction of ACORS REAL( 8 ), SAVE :: SEAS_CA_FAC ! Na molar fraction of ASEACAT REAL( 8 ), SAVE :: SOIL_CA_FAC ! Fe molar fraction of ASOIL REAL( 8 ), SAVE :: CORS_CA_FAC ! Fe molar fraction of ACORS REAL( 8 ), SAVE :: SEAS_K_FAC ! Na molar fraction of ASEACAT REAL( 8 ), SAVE :: SOIL_K_FAC ! Fe molar fraction of ASOIL REAL( 8 ), SAVE :: CORS_K_FAC ! Fe molar fraction of ACORS !...........Local Variables (scalars): LOGICAL, SAVE :: FIRSTIME = .TRUE. ! flag for first pass thru LOGICAL, SAVE :: AEI = .TRUE. ! flag for AE6I and AE7I mechanisms LOGICAL, SAVE :: STIC = .FALSE. ! flag for SAPRC07TIC mechanisms LOGICAL :: DARK ! DARK = TRUE is night, DARK = FALSE is day CHARACTER( 16 ), SAVE :: PNAME = 'AQCHEM' ! Driver program name CHARACTER( 16 ), SAVE :: MGLYSUR = 'METHYL_GLYOXAL ' ! Henry's law surrogate for MGLY REAL( 8 ) :: CTHK1 ! Cloud thickness (m) REAL( 8 ) :: ONE_OVER_TEMP ! 1 / Temperature (1/K) REAL( 8 ) :: WFACTOR ! Convert dyn wet dep values to mm mol / L REAL( 8 ) :: INVCFAC ! Conversion: molec/cm3 air --> mol/mol REAL( 8 ) :: DEPSUM ! SO4 deposition, used to calculate SO4 scav coefficient REAL( 8 ) :: EXPWET ! EXP( -WETFAC_KPP * TAUCLD ) REAL( 8 ) :: TOTNIT, TOTAMM, TOTCL ! Total nitrate, ammonium, and chloride (excluding coarse mode) REAL( 8 ) :: FNH3, FNH4ACC ! Initial fraction NH3 gas of TOTAMM, fraction acc mode of aerosol NH4 REAL( 8 ) :: FHNO3, FNO3ACC ! Initial fraction HNO3 gas of TOTNIT, fraction acc mode of aerosol NO3 REAL( 8 ) :: FHCL, FCLACC ! Initial fraction HCl gas of TOTCL, fraction acc mode of aerosol CL REAL( 8 ) :: NACOR, CACOR, MGCOR, KCOR, FECOR, MNCOR ! Coarse crustal cation concentrations REAL( 8 ) :: WDNACOR, WDCACOR, WDMGCOR, WDKCOR, WDFECOR, WDMNCOR ! Coarse crustal cation wet deposition REAL( 8 ) :: WDPYRAC, APYRAC ! Pyruvic acid deposited and evaporated as aerosol species (gas mech dependent) REAL( 8 ) :: STARTM(4), ENDM(4), MBAL(4) REAL( 8 ) :: OLIGGLY, OLIGMGLY ! If considering oligomerization, fraction of GLY/MGLY that remains in aerosol ! upon droplet evaporation REAL( 8 ) :: POAIinit, PRIIinit, TRACIinit, POAJinit, SOAIinit REAL(kind=dp) :: T, DVAL(NSPEC) ! KPP integrator variables REAL(kind=dp) :: RSTATE(20) ! KPP integrator variables INTEGER :: I, IGAS, IAER, IMOD, count, J, OLIG !...........External Functions: REAL, EXTERNAL :: HLCONST !********************************************************************* !...Initialization IF ( FIRSTIME ) THEN FIRSTIME = .FALSE. !...Is an AE6I or AE7I version of the mechanism is being used? !...This will include IETET, IMGA, etc. (rather than ISO3) and the IEPOX, !...IMAE, etc., precursors (rather than just EPOX) IF ( ( INDEX ( MECHNAME, 'AE6I' ) .LE. 0 ) .AND. & ( INDEX ( MECHNAME, 'AE7I' ) .LE. 0 ) ) THEN AEI = .FALSE. END IF !...Is a SAPRC07TIC or CB6 mechanism is being used? IF ( INDEX ( MECHNAME, 'CB6' ) .LE. 0 .AND. & ( INDEX ( MECHNAME, 'SAPRC07TIC' ) .LE. 0 ) ) THEN XMSG = 'This version of AQCHEM requires SAPRC07TIC or a CB6 gas mech' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT3 ) END IF IF ( INDEX ( MECHNAME, 'SAPRC07TIC' ) .GT. 0 ) THEN STIC = .TRUE. END IF !...Make sure STM option is not set IF ( STM ) THEN XMSG = 'STM option not implemented in KMT AQCHEM' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT3 ) END IF #ifdef isam XMSG = 'Source Apportionment is not implemented in KMT AQCHEM' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT3 ) #endif !... set MW ratios and speciation factors for molar concentrations of coarse !... soluble aerosols SOIL_FE_FAC = ASOIL_FE_FAC * REAL( AEROSPC_MW( ASOIL_IDX ), 8 ) & / REAL( AEROSPC_MW( AFE_IDX ), 8 ) / ASOIL_RENORM CORS_FE_FAC = ACORS_FE_FAC * REAL( AEROSPC_MW( ACORS_IDX ), 8 ) & / REAL( AEROSPC_MW( AFE_IDX ), 8 ) / ACORSEM_RENORM SOIL_MN_FAC = ASOIL_MN_FAC * REAL( AEROSPC_MW( ASOIL_IDX ), 8 ) & / REAL( AEROSPC_MW( AMN_IDX ), 8 ) / ASOIL_RENORM CORS_MN_FAC = ACORS_MN_FAC * REAL( AEROSPC_MW( ACORS_IDX ), 8 ) & / REAL( AEROSPC_MW( AMN_IDX ), 8 ) / ACORSEM_RENORM SEAS_NA_FAC = ASCAT_NA_FAC * REAL( AEROSPC_MW( ASEACAT_IDX ), 8 ) & / REAL( AEROSPC_MW( ANA_IDX ), 8 ) SOIL_NA_FAC = ASOIL_NA_FAC * REAL( AEROSPC_MW( ASOIL_IDX ), 8 ) & / REAL( AEROSPC_MW( ANA_IDX ), 8 ) / ASOIL_RENORM CORS_NA_FAC = ACORS_NA_FAC * REAL( AEROSPC_MW( ACORS_IDX ), 8 ) & / REAL( AEROSPC_MW( ANA_IDX ), 8 ) / ACORSEM_RENORM SEAS_MG_FAC = ASCAT_MG_FAC * REAL( AEROSPC_MW( ASEACAT_IDX ), 8 ) & / REAL( AEROSPC_MW( AMG_IDX ), 8 ) SOIL_MG_FAC = ASOIL_MG_FAC * REAL( AEROSPC_MW( ASOIL_IDX ), 8 ) & / REAL( AEROSPC_MW( AMG_IDX ), 8 ) / ASOIL_RENORM CORS_MG_FAC = ACORS_MG_FAC * REAL( AEROSPC_MW( ACORS_IDX ), 8 ) & / REAL( AEROSPC_MW( AMG_IDX ), 8 ) / ACORSEM_RENORM SEAS_CA_FAC = ASCAT_CA_FAC * REAL( AEROSPC_MW( ASEACAT_IDX ), 8 ) & / REAL( AEROSPC_MW( ACA_IDX ), 8 ) SOIL_CA_FAC = ASOIL_CA_FAC * REAL( AEROSPC_MW( ASOIL_IDX ), 8 ) & / REAL( AEROSPC_MW( ACA_IDX ), 8 ) / ASOIL_RENORM CORS_CA_FAC = ACORS_CA_FAC * REAL( AEROSPC_MW( ACORS_IDX ), 8 ) & / REAL( AEROSPC_MW( ACA_IDX ), 8 ) / ACORSEM_RENORM SEAS_K_FAC = ASCAT_K_FAC * REAL( AEROSPC_MW( ASEACAT_IDX ), 8 ) & / REAL( AEROSPC_MW( AK_IDX ), 8 ) SOIL_K_FAC = ASOIL_K_FAC * REAL( AEROSPC_MW( ASOIL_IDX ), 8 ) & / REAL( AEROSPC_MW( AK_IDX ), 8 ) / ASOIL_RENORM CORS_K_FAC = ACORS_K_FAC * REAL( AEROSPC_MW( ACORS_IDX ), 8 ) & / REAL( AEROSPC_MW( AK_IDX ), 8 ) / ACORSEM_RENORM END IF ! FIRSTIME !...Set Henry's Law coefficients and other options SO2H = HLCONST( 'SO2 ', TEMP2, .FALSE., 0.0 ) CO2H = HLCONST( 'CO2 ', TEMP2, .FALSE., 0.0 ) NH3H = HLCONST( 'NH3 ', TEMP2, .FALSE., 0.0 ) H2O2H = HLCONST( 'H2O2 ', TEMP2, .FALSE., 0.0 ) O3H = HLCONST( 'O3 ', TEMP2, .FALSE., 0.0 ) HCLH = HLCONST( 'HCL ', TEMP2, .FALSE., 0.0 ) HNO3H = HLCONST( 'HNO3 ', TEMP2, .FALSE., 0.0 ) MHPH = HLCONST( 'METHYLHYDROPEROX', TEMP2, .FALSE., 0.0 ) PAAH = HLCONST( 'PEROXYACETIC_ACI', TEMP2, .FALSE., 0.0 ) FOAH = HLCONST( 'FORMIC_ACID ', TEMP2, .FALSE., 0.0 ) GLYH = HLCONST( 'GLYOXAL ', TEMP2, .FALSE., 0.0 ) MGLYH = HLCONST( MGLYSUR, TEMP2, .FALSE., 0.0 ) HOH = HLCONST( 'OH ', TEMP2, .FALSE., 0.0 ) GCOLH = 4.1D+04 * EXP( 4.6D+03 * ( ( 298.D0 - TEMP2 ) / ( 298.D0 * TEMP2 ) ) ) ! Sander (2015) CCOOHH = HLCONST( 'ACETIC_ACID ', TEMP2, .FALSE., 0.0 ) HCHOH = 2.5D0 !HLCONST( 'FORMALDEHYDE ', TEMP2, .FALSE., 0.0 ) ! Seinfeld and Pandis (2016) HO2H = HLCONST( 'HO2 ', TEMP2, .FALSE., 0.0 ) NO2H = HLCONST( 'NO2 ', TEMP2, .FALSE., 0.0 ) HONOH = HLCONST( 'HNO2 ', TEMP2, .FALSE., 0.0 ) HNO4H = HLCONST( 'HNO4 ', TEMP2, .FALSE., 0.0 ) HIEPOX = HLCONST( 'IEPOX ', TEMP2, .FALSE., 0.0 ) HMAE = HLCONST( 'IMAE ', TEMP2, .FALSE., 0.0 ) HHMML = HLCONST( 'IMAE ', TEMP2, .FALSE., 0.0 ) NO3H = HLCONST( 'NO3 ', TEMP2, .FALSE., 0.0 ) CH3O2H = 2.7D0 * EXP( 2.03D+03 * ( ( 298.D0 - TEMP2 ) / ( 298.D0 * TEMP2 ) ) ) ! Leriche et al., 2013 PYRACH = HLCONST( 'PYRUVIC_ACID ', TEMP2, .FALSE., 0.0 ) ONE_OVER_TEMP = 1.0D0 / TEMP2 JH2O2 = jh2o2_hydrometeors ! H2O2 photolysis rate calculated for gas phase chemistry !...AE6I and AE7I includes AIETETJ, AIEOSJ, ADIMJ, AIMGAJ, and AIMOSJ species. AE6/7 uses AISO3J to represent IEPOX SOA. ISPC8 = 0 IF(AEI) ISPC8 = 1 !...SAPRC07TIC includes pyruvic acid in the gas phase mech. For that mech, allow pyruvic acid to transfer between phases MTPYRAC = 0 IF(STIC) MTPYRAC = 1 !...Flag to keep a fraction of aqueous glyoxal and methylglyoxal in aerosol phase upon droplet evaporation. OLIG = 0 !OLIGOMERIZATION OF GLY/MGLY UPON DROPLET EVAPORATION !1= ON, 0 = OFF -- Default = 0 !Could consider if SOA species were explicitly tracked OLIGGLY = OLIG * 3.3D-1 !(De Haan et al., 2009; Liu et al., 2012) OLIGMGLY = OLIG * 1.9D-1 !...Flag to consider a simply estimated photolysis rate for those rates not previously calculated for gas phase chemistry PHOTO = 0 ! =1 to estimate photolysis rate(s) with a single value modulated by COSZEN ! =0 to ignore photolysis rates not calculated externally in photolysis module (default) !...Check for bad temperature, cloud air mass, or pressure IF ( TEMP2 .LE. 0.0D0 .OR. AIRM .LE. 0.0D0 .OR. PRES_PA .LE. 0.0D0 ) THEN XMSG = 'MET DATA ERROR' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT2 ) END IF JDATEKPP = JDATE JTIMEKPP = JTIME !...Compute fractional weights for several species TOTNIT = GAS( LHNO3 ) + AEROSOL( LNO3, ACC ) IF ( TOTNIT .GT. 0.0D0 ) THEN FHNO3 = GAS( LHNO3 ) / TOTNIT ELSE FHNO3 = 1.0D0 END IF IF ( AEROSOL( LNO3, ACC ) + AEROSOL( LNO3, COR ) .GT. 0.0D0 ) THEN FNO3ACC = AEROSOL( LNO3, ACC ) / (AEROSOL( LNO3, ACC ) + AEROSOL( LNO3, COR )) !just aerosol ELSE FNO3ACC = 1.d0 END IF TOTAMM = GAS( LNH3 ) + AEROSOL( LNH4, ACC ) IF ( TOTAMM .GT. 0.0D0 ) THEN FNH3 = GAS( LNH3 ) / TOTAMM ELSE FNH3 = 1.0D0 END IF IF ( AEROSOL( LNH4, ACC ) + AEROSOL( LNH4, COR ) .GT. 0.0D0 ) THEN FNH4ACC = AEROSOL( LNH4, ACC ) / (AEROSOL( LNH4, ACC ) + AEROSOL( LNH4, COR )) !just aerosol ELSE FNH4ACC = 1.d0 END IF TOTCL = GAS( LHCL ) + AEROSOL( LCL, ACC ) IF ( TOTCL .GT. 0.0D0 ) THEN FHCL = GAS( LHCL ) / TOTCL ELSE FHCL = 1.0D0 END IF IF ( AEROSOL( LCL, ACC ) + AEROSOL( LCL, COR ) .GT. 0.0D0 ) THEN FCLACC = AEROSOL( LCL, ACC ) / (AEROSOL( LCL, ACC ) + AEROSOL( LCL, COR )) !just aerosol ELSE FCLACC = 1.d0 END IF IF ( COSZEN .LE. 0.0 ) THEN DARK = .TRUE. ! night ELSE DARK = .FALSE. ! day END IF !...Mass balance check - start STARTM = 0.d0 ENDM = 0.d0 MBAL = 0.d0 STARTM(1) = (GAS(LSO2) + GAS(LH2SO4)) * 32.06 STARTM(2) = (GAS(LHNO3) + 2*GAS(LN2O5) + GAS(LNO2) + GAS(LHONO) + & GAS(LHNO4) + GAS(LNO3RAD))*14.007 ! STARTM(3) = GAS(LNH3)*14.007 STARTM(4) = GAS(LHCL)*35.5 DO I = 1,NMODES STARTM(1) = STARTM(1) + AEROSOL(LSO4, I)*32.06 STARTM(2) = STARTM(2) + AEROSOL(LNO3, I)*14.007 STARTM(3) = STARTM(3) + AEROSOL(LNH4, I)*14.007 STARTM(4) = STARTM(4) + AEROSOL(LCL, I)*35.5 ENDDO POAIinit = AEROSOL(LPOA, AKN) PRIIinit = AEROSOL(LPRI, AKN) TRACIinit = AEROSOL(LTRACER_AKN, AKN) SOAIinit = AEROSOL(LSOA, AKN) POAJinit = AEROSOL(LPOA, ACC) !...Initialize dynamic species, rel/abs tolerances, and other specifications before calling integrator CTHK1 = AIRM * TEMP2 * 0.08206D0 / ( PRES_PA / 101325.D0 * 1000.0D0 ) ! cloud thickness (m) CALL Initialize( TEMP2, PRES_PA, TAUCLD, PRCRATE, & WCAVG, WTAVG, AIRM, ALFA0, ALFA3, & GAS, AEROSOL, CTHK1, DARK, COSZEN, & SOIL_FE_FAC, CORS_FE_FAC, SOIL_MN_FAC, & CORS_MN_FAC, SEAS_NA_FAC, SOIL_NA_FAC, & CORS_NA_FAC, SEAS_MG_FAC, SOIL_MG_FAC, & CORS_MG_FAC, SEAS_CA_FAC, SOIL_CA_FAC, & CORS_CA_FAC, SEAS_K_FAC, SOIL_K_FAC, & CORS_K_FAC ) INVCFAC = 1.d0 / CFACTOR STEPMIN = 0.0d0 !...Integrate equations describing mass transfer, scavenging, dissociation, kinetics, and deposition T = TSTART kron: DO WHILE (T < TEND) TIME = T CALL Update_RCONST() CALL INTEGRATE( TIN = T, TOUT = T+DT, RSTATUS_U = RSTATE, & ICNTRL_U = (/ 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 /)) !, & ! RCNTRL_U= (/ 0.d0,0.d0,1.d-1,0.d0,0.d0,0.d0,0.d0,0.d0,0.d0, & ! 0.d0,0.d0,0.d0,0.d0,0.d0,0.d0,0.d0,0.d0,0.d0,0.d0,0.d0 /)) ! rodas3 T = RSTATE(1) END DO kron TIME = T !...Convert units and redistribute dynamic species to gas, aerosol, and deposition arrays and return GASWDEP = 0.d0 AERWDEP = 0.d0 WFACTOR = WCAVG * CTHK1 * PHI2 !Conversion factor for wet deposition species EXPWET = EXP( -WETFAC_KPP * TAUCLD ) !...AEROSOL species, Aitken Mode AEROSOL( LNO3, AKN ) = VAR( ind_A_NO3AKN ) * INVCFAC AEROSOL( LNH4, AKN ) = VAR( ind_A_NH4AKN ) * INVCFAC AEROSOL( LCL, AKN ) = VAR( ind_A_CLAKN ) * INVCFAC AEROSOL( LNA, AKN ) = VAR( ind_A_NAAKN ) * INVCFAC AEROSOL( LSO4, AKN ) = VAR( ind_A_SO4AKN ) * INVCFAC AEROSOL( LEC, AKN ) = VAR( ind_A_PECAKN ) * INVCFAC AEROSOL( LPOA, AKN ) = VAR( ind_A_POAAKN ) * INVCFAC AEROSOL( LPRI, AKN ) = VAR( ind_A_PRIAKN ) * INVCFAC AEROSOL( LNUM, AKN ) = AEROSOL( LNUM, AKN ) * EXP(-ALFA0 * TAUCLD) !...Simple treatment for Hg/toxic tracer species AEROSOL( LTRACER_ACC, ACC ) = AEROSOL( LTRACER_ACC, ACC ) + & AEROSOL( LTRACER_AKN, AKN ) * (1.d0-EXP(-ALFA3 * TAUCLD)) AEROSOL( LPHG_ACC, ACC ) = AEROSOL( LPHG_ACC, ACC ) + & AEROSOL( LPHG_AKN, AKN ) * (1.d0-EXP(-ALFA3 * TAUCLD)) AEROSOL( LTRACER_AKN, AKN ) = AEROSOL( LTRACER_AKN, AKN ) * EXP(-ALFA3 * TAUCLD) AEROSOL( LPHG_AKN, AKN ) = AEROSOL( LPHG_AKN, AKN ) * EXP(-ALFA3 * TAUCLD) AERWDEP( LTRACER_ACC, ACC ) = AEROSOL( LTRACER_ACC,ACC ) * ( 1.d0 - EXPWET ) * CFACTOR AERWDEP( LPHG_ACC, ACC ) = AEROSOL( LPHG_ACC,ACC ) * ( 1.d0 - EXPWET ) * CFACTOR AERWDEP( LTRACER_COR, COR ) = AEROSOL( LTRACER_COR,COR ) * ( 1.d0 - EXPWET ) * CFACTOR AERWDEP( LPHG_COR, COR ) = AEROSOL( LPHG_COR,COR ) * ( 1.d0 - EXPWET ) * CFACTOR AEROSOL( LTRACER_ACC, ACC ) = AEROSOL( LTRACER_ACC, ACC ) * EXPWET AEROSOL( LPHG_ACC, ACC ) = AEROSOL( LPHG_ACC, ACC ) * EXPWET AEROSOL( LTRACER_COR, COR ) = AEROSOL( LTRACER_COR, COR ) * EXPWET AEROSOL( LPHG_COR, COR ) = AEROSOL( LPHG_COR, COR ) * EXPWET !...SOA (it now can have an AKN mode) AEROSOL( LSOA, ACC ) = AEROSOL( LSOA, ACC ) + & AEROSOL( LSOA, AKN ) * (1.d0-EXP(-ALFA3 * TAUCLD)) AEROSOL( LSOA, AKN ) = AEROSOL( LSOA, AKN ) * EXP(-ALFA3 * TAUCLD) AERWDEP( LSOA, ACC ) = AEROSOL( LSOA, ACC ) * ( 1.d0 - EXPWET ) * CFACTOR AEROSOL( LSOA, ACC ) = AEROSOL( LSOA, ACC ) * EXPWET ! As in standard "AQCHEM", the assumption is made here that final coarse mode ! concentrations are updated due to wet deposition alone (i.e., no mass ! change due to chemistry or phase transfer) !...AERWDEP species, coarse mode AERWDEP( LSOILC, COR ) = AEROSOL( LSOILC,COR ) * ( 1.d0 - EXPWET ) * CFACTOR AERWDEP( LSEASC, COR ) = AEROSOL( LSEASC,COR ) * ( 1.d0 - EXPWET ) * CFACTOR AERWDEP( LANTHC, COR ) = AEROSOL( LANTHC,COR ) * ( 1.d0 - EXPWET ) * CFACTOR AERWDEP( LSO4, COR ) = AEROSOL( LSO4,COR ) * ( 1.d0 - EXPWET ) * CFACTOR AERWDEP( LNH4, COR ) = AEROSOL( LNH4,COR ) * ( 1.d0 - EXPWET ) * CFACTOR AERWDEP( LNO3, COR ) = AEROSOL( LNO3,COR ) * ( 1.d0 - EXPWET ) * CFACTOR AERWDEP( LCL, COR ) = AEROSOL( LCL,COR ) * ( 1.d0 - EXPWET ) * CFACTOR !...AEROSOL species, coarse mode AEROSOL( LNUM, COR ) = AEROSOL( LNUM, COR ) * EXPWET AEROSOL( LSOILC, COR ) = AEROSOL( LSOILC, COR ) * EXPWET AEROSOL( LSEASC, COR ) = AEROSOL( LSEASC, COR ) * EXPWET AEROSOL( LANTHC, COR ) = AEROSOL( LANTHC, COR ) * EXPWET AEROSOL( LSO4, COR ) = AEROSOL( LSO4, COR ) * EXPWET AEROSOL( LNH4, COR ) = AEROSOL( LNH4, COR ) * EXPWET AEROSOL( LNO3, COR ) = AEROSOL( LNO3, COR ) * EXPWET AEROSOL( LCL, COR ) = AEROSOL( LCL, COR ) * EXPWET !...AERWDEP species, accumulation mode ! AERWDEP( LSOA, ACC ) = AEROSOL( LSOA, ACC ) * ( 1 - EXPWET) * CFACTOR ! SOA is only impacted by wet dep process ! ! and not included in the list of dynamic ! ! species, VAR WDFECOR = SOIL_FE_FAC * AERWDEP( LSOILC, COR ) + CORS_FE_FAC * AERWDEP( LANTHC, COR ) WDMNCOR = SOIL_MN_FAC * AERWDEP( LSOILC, COR ) + CORS_MN_FAC * AERWDEP( LANTHC, COR ) WDNACOR = SEAS_NA_FAC * AERWDEP( LSEASC, COR ) + SOIL_NA_FAC * AERWDEP( LSOILC, COR ) & + CORS_NA_FAC * AERWDEP( LANTHC, COR ) WDMGCOR = SEAS_MG_FAC * AERWDEP( LSEASC, COR ) + SOIL_MG_FAC * AERWDEP( LSOILC, COR ) & + CORS_MG_FAC * AERWDEP( LANTHC, COR ) WDCACOR = SEAS_CA_FAC * AERWDEP( LSEASC, COR ) + SOIL_CA_FAC * AERWDEP( LSOILC, COR ) & + CORS_CA_FAC * AERWDEP( LANTHC, COR ) WDKCOR = SEAS_K_FAC * AERWDEP( LSEASC, COR ) + SOIL_K_FAC * AERWDEP( LSOILC, COR ) & + CORS_K_FAC * AERWDEP( LANTHC, COR ) ! For aerosol species with both accumulation mode and coarse mode components, the accumulation ! mode wet deposition amount is determined by subtracting the analytically determined ! coarse mode deposition amount from the total (accumulation+coarse mode) species wet ! deposition amount AERWDEP( LFEACC, ACC ) = MAX( ( VAR( ind_WD_FEPLUS3 ) / FE_III / FE_SOL) - WDFECOR, 0.0d0 ) AERWDEP( LMNACC, ACC ) = MAX( ( VAR( ind_WD_MNPLUS2 ) / MN_II / MN_SOL) - WDMNCOR, 0.0d0 ) AERWDEP( LNA, ACC ) = MAX( VAR( ind_WD_NAPLUS ) - WDNACOR, 0.0d0 ) AERWDEP( LCAACC, ACC ) = MAX( VAR( ind_WD_CAPLUS2 ) - WDCACOR, 0.0d0 ) AERWDEP( LMGACC, ACC ) = MAX( VAR( ind_WD_MGPLUS2 ) - WDMGCOR, 0.0d0 ) AERWDEP( LKACC, ACC ) = MAX( VAR( ind_WD_KPLUS ) - WDKCOR, 0.0d0 ) AERWDEP( LSO4, ACC ) = MAX( VAR( ind_WD_H2SO4 ) - AERWDEP( LSO4, COR ), 0.0d0 ) AERWDEP( LNH4, ACC ) = MAX( VAR( ind_WD_NH4PLUS ) - AERWDEP( LNH4, COR ), 0.0d0 ) AERWDEP( LNO3, ACC ) = MAX( VAR( ind_WD_NO3MIN ) - AERWDEP( LNO3, COR ), 0.0d0 ) AERWDEP( LCL, ACC ) = MAX( VAR( ind_WD_CLMIN ) - AERWDEP( LCL, COR ), 0.0d0 ) AERWDEP( LPRI, ACC ) = VAR( ind_WD_PRIACC ) AERWDEP( LEC, ACC ) = VAR( ind_WD_PECACC ) AERWDEP( LORGC, ACC ) = VAR( ind_WD_ORGC ) AERWDEP( LPOA, ACC ) = VAR( ind_WD_POAACC ) IF(ISPC8 .gt. 0) THEN AERWDEP( LIETET, ACC ) = VAR( ind_WD_IETET ) AERWDEP( LIEOS, ACC ) = VAR( ind_WD_IEOS ) AERWDEP( LDIMER, ACC ) = VAR( ind_WD_DIMER ) AERWDEP( LIMGA, ACC ) = VAR( ind_WD_IMGA ) AERWDEP( LIMOS, ACC ) = VAR( ind_WD_IMOS ) ELSE AERWDEP( LISO3, ACC ) = VAR( ind_WD_IETET ) END IF ! For volatile species represented in the coarse mode -- make sure you are ! not depositing more mass from the coarse mode than was calculated for the total IF( AERWDEP( LNH4, COR ) .GT. VAR( ind_WD_NH4PLUS ) ) THEN AERWDEP( LNH4, COR ) = ( 1.0d0 - FNH4ACC ) * VAR( ind_WD_NH4PLUS ) AERWDEP( LNH4, ACC ) = FNH4ACC * VAR( ind_WD_NH4PLUS ) AEROSOL( LNH4, COR ) = ( 1.0d0 - FNH4ACC ) * ( VAR( ind_L_NH4OH ) + & VAR( ind_L_NH4PLUS ) ) * INVCFAC END IF IF( AERWDEP( LNO3, COR ) .GT. VAR( ind_WD_NO3MIN ) ) THEN AERWDEP( LNO3, COR ) = ( 1.0d0 - FNO3ACC ) * VAR( ind_WD_NO3MIN ) AERWDEP( LNO3, ACC ) = FNO3ACC * VAR( ind_WD_NO3MIN ) AEROSOL( LNO3, COR ) = ( 1.0d0 - FNO3ACC ) * ( VAR( ind_L_HNO3 ) + & VAR( ind_L_NO3MIN ) ) * INVCFAC END IF IF( AERWDEP( LCL, COR) .GT. VAR( ind_WD_CLMIN ) ) THEN AERWDEP( LCL, COR) = ( 1.0d0 - FCLACC ) * VAR( ind_WD_CLMIN ) AERWDEP( LCL, ACC) = FCLACC * VAR( ind_WD_CLMIN ) AEROSOL( LCL, COR) = ( 1.0d0 - FCLACC ) * VAR( ind_L_CLMIN ) * INVCFAC END IF !...AEROSOL species, accumulation mode AEROSOL( LPRI, ACC ) = VAR( ind_L_PRIACC ) * INVCFAC AEROSOL( LEC, ACC ) = VAR( ind_L_PECACC ) * INVCFAC AEROSOL( LORGC, ACC ) = VAR( ind_L_ORGC ) * INVCFAC AEROSOL( LPOA, ACC ) = VAR( ind_L_POAACC ) * INVCFAC ! AEROSOL( LSOA, ACC ) = AEROSOL( LSOA, ACC ) * EXPWET ! SOA is only impacted by wet dep process ! ! and not included in the list of dynamic ! ! species, VAR IF( AEROSOL(LTRACER_ACC, ACC) .GT. 0.d0 ) THEN FRACTR = MIN(((TRACIinit - AEROSOL(LTRACER_AKN, AKN))*EXPWET) / & AEROSOL( LTRACER_ACC, ACC ), 1.0D0) ELSE FRACTR = 0.d0 END IF IF( AEROSOL(LPOA, ACC) .GT. 0.d0 ) THEN FRACPOA = MIN(((POAIinit - AEROSOL(LPOA, AKN))*EXPWET) / & AEROSOL( LPOA, ACC ), 1.0D0) ELSE FRACPOA = 0.d0 END IF IF( AEROSOL(LPRI, ACC) .GT. 0.d0 ) THEN FRACPRI = MIN(((PRIIinit - AEROSOL(LPRI, AKN))*EXPWET) / & AEROSOL( LPRI, ACC ), 1.0D0) ELSE FRACPRI = 0.d0 END IF IF( AEROSOL(LSOA, ACC) .GT. 0.d0 ) THEN FRACSOA = MIN(((SOAIinit - AEROSOL(LSOA, AKN))*EXPWET) / & AEROSOL( LSOA, ACC ), 1.0D0) ELSE FRACSOA = 0.d0 END IF IF(ISPC8 .gt. 0) THEN AEROSOL( LIETET, ACC ) = VAR( ind_L_IETET ) * INVCFAC AEROSOL( LIEOS, ACC ) = VAR( ind_L_IEOS ) * INVCFAC AEROSOL( LDIMER, ACC ) = VAR( ind_L_DIMER ) * INVCFAC AEROSOL( LIMGA, ACC ) = VAR( ind_L_IMGA ) * INVCFAC AEROSOL( LIMOS, ACC ) = VAR( ind_L_IMOS ) * INVCFAC ELSE AEROSOL( LISO3, ACC ) = ( VAR( ind_L_ISO3 ) ) * INVCFAC END IF FECOR = SOIL_FE_FAC * AEROSOL( LSOILC, COR ) + CORS_FE_FAC * AEROSOL( LANTHC, COR ) MNCOR = SOIL_MN_FAC * AEROSOL( LSOILC, COR ) + CORS_MN_FAC * AEROSOL( LANTHC, COR ) NACOR = SEAS_NA_FAC * AEROSOL( LSEASC, COR ) + SOIL_NA_FAC * AEROSOL( LSOILC, COR ) & + CORS_NA_FAC * AEROSOL( LANTHC, COR ) MGCOR = SEAS_MG_FAC * AEROSOL( LSEASC, COR ) + SOIL_MG_FAC * AEROSOL( LSOILC, COR) & + CORS_MG_FAC * AEROSOL( LANTHC, COR ) CACOR = SEAS_CA_FAC * AEROSOL( LSEASC, COR ) + SOIL_CA_FAC * AEROSOL( LSOILC, COR) & + CORS_CA_FAC * AEROSOL( LANTHC, COR ) KCOR = SEAS_K_FAC * AEROSOL( LSEASC, COR ) + SOIL_K_FAC * AEROSOL( LSOILC, COR ) & + CORS_K_FAC * AEROSOL( LANTHC, COR ) AEROSOL( LFEACC, ACC ) = MAX( ( VAR( ind_L_FEPLUS3 ) / FE_III / FE_SOL - FECOR * CFACTOR ) * & INVCFAC, 0.0d0 ) AEROSOL( LMNACC, ACC ) = MAX( ( VAR( ind_L_MNPLUS2 ) / MN_II / MN_SOL - MNCOR * CFACTOR ) * & INVCFAC, 0.0d0 ) AEROSOL( LNA, ACC ) = MAX( ( VAR( ind_L_NAPLUS ) - NACOR * CFACTOR ) * INVCFAC, 0.0d0 ) AEROSOL( LCAACC, ACC ) = MAX( ( VAR( ind_L_CAPLUS2 ) - CACOR * CFACTOR ) * INVCFAC, 0.0d0 ) AEROSOL( LMGACC, ACC ) = MAX( ( VAR( ind_L_MGPLUS2 ) - MGCOR * CFACTOR ) * INVCFAC, 0.0d0 ) AEROSOL( LKACC, ACC ) = MAX( ( VAR( ind_L_KPLUS ) - KCOR * CFACTOR ) * INVCFAC, 0.0d0 ) AEROSOL( LSO4, ACC ) = MAX( ( (VAR( ind_L_H2SO4 ) + VAR( ind_L_SO4MIN2 ) + & VAR( ind_L_HSO4MIN ) ) * INVCFAC ) - AEROSOL( LSO4, COR ), 0.0d0 ) AEROSOL( LCL, ACC ) = MAX( ( VAR( ind_L_CLMIN ) * INVCFAC ) - AEROSOL (LCL, COR ), 0.0d0 ) TOTAMM = VAR( ind_G_NH3 ) + VAR( ind_L_NH4OH ) + VAR( ind_L_NH4PLUS ) - & AEROSOL( LNH4, COR ) * CFACTOR TOTNIT = VAR( ind_G_HNO3 ) + VAR( ind_L_HNO3 ) + VAR( ind_L_NO3MIN ) - & AEROSOL( LNO3, COR ) * CFACTOR TOTAMM = MAX( TOTAMM, 0.0d0 ) TOTNIT = MAX( TOTNIT, 0.0d0 ) AEROSOL( LNO3, ACC ) = ( ( 1.0d0 - FHNO3 ) * TOTNIT ) * INVCFAC AEROSOL (LNH4, ACC ) = ( ( 1.0d0 - FNH3 ) * TOTAMM ) * INVCFAC !...Gas phase species GAS(LSO2) = ( VAR( ind_G_SO2 ) + VAR( ind_L_SO2 ) + VAR( ind_L_HSO3MIN ) + & VAR( ind_L_SO3MIN2 ) + VAR( ind_L_HMSMIN ) + VAR( ind_L_SO3MIN ) + & VAR( ind_L_SO5MIN ) + VAR( ind_L_HSO5MIN ) + VAR( ind_L_SO4MIN )) * INVCFAC GAS(LN2O5) = 0.0D0 GAS(LCO2) = ( VAR( ind_G_CO2 ) + VAR( ind_L_H2CO3 ) + VAR( ind_L_HCO3MIN ) + & VAR( ind_L_CO3MIN2 ) + VAR( ind_L_CO2MIN )) * INVCFAC GAS(LH2O2) = ( VAR( ind_G_H2O2 ) + VAR( ind_L_H2O2 ) ) * INVCFAC GAS(LO3) = ( VAR( ind_G_O3 ) + VAR( ind_L_O3 ) ) * INVCFAC GAS(LFOA) = ( VAR( ind_G_HCOOH ) + VAR( ind_L_HCOOH ) + VAR( ind_L_HCOOMIN ) ) * INVCFAC GAS(LMHP) = ( VAR( ind_G_MHP ) + VAR( ind_L_MHP ) ) * INVCFAC GAS(LPAA) = ( VAR( ind_G_PAA ) + VAR( ind_L_PAA ) ) * INVCFAC GAS(LH2SO4) = 0.0D0 GAS(LHCL) = ( VAR( ind_G_HCL ) + VAR( ind_L_HCL ) ) * INVCFAC GAS(LGLY) = ( VAR( ind_G_GLY ) + VAR( ind_L_GLY )*(1.d0-OLIGGLY) ) * INVCFAC GAS(LMGLY) = ( VAR( ind_G_MGLY ) + VAR( ind_L_MGLY ) *(1.d0-OLIGMGLY)) * INVCFAC GAS(LHNO3) = ( FHNO3 * TOTNIT ) * INVCFAC GAS(LNH3) = ( FNH3 * TOTAMM ) * INVCFAC ! Fixed OHg vs variable GAS(LHO) = ( FIX( indf_G_HO ) ) * INVCFAC ! GAS(LHO) = ( VAR( ind_G_HO ) + VAR( ind_L_HO ) ) * INVCFAC GAS( LIEPOX ) = ( VAR( ind_G_IEPOX ) + VAR( ind_L_IEPOX ) ) * INVCFAC IF( ISPC8 .GT. 0 ) THEN GAS( LIMAE ) = ( VAR( ind_G_IMAE ) + VAR( ind_L_IMAE ) ) * INVCFAC GAS( LIHMML ) = ( VAR( ind_G_IHMML ) + VAR( ind_L_IHMML ) ) * INVCFAC END IF GAS(LHO2) = ( VAR( ind_G_HO2 ) + VAR( ind_L_HO2 ) + VAR( ind_L_O2MIN ) ) * INVCFAC GAS(LNO2) = ( VAR( ind_G_NO2 ) + VAR( ind_L_NO2 ) ) * INVCFAC GAS(LHONO) = ( VAR( ind_G_HONO ) + VAR( ind_L_HONO ) + VAR( ind_L_NO2MIN ) ) * INVCFAC GAS(LHNO4) = ( VAR( ind_G_HNO4 ) + VAR( ind_L_HNO4 ) + VAR( ind_L_NO4MIN ) ) * INVCFAC GAS(LNO3RAD) = ( VAR( ind_G_NO3 ) + VAR( ind_L_NO3 ) ) * INVCFAC GAS(LCH3O2) = ( VAR( ind_G_CH3O2 ) + VAR( ind_L_CH3O2 ) ) * INVCFAC GAS(LCCOOH) = ( VAR(ind_G_CCOOH) + VAR(ind_L_CCOOH) + VAR(ind_L_CCOOHMIN) )*INVCFAC GAS(LHCHO) = (VAR(ind_G_HCHO) + VAR(ind_L_CH2OHYD) + VAR(ind_L_HCHO) + VAR(ind_L_HMSMIN) )*INVCFAC GAS(LGCOL) = (VAR(ind_G_GCOL) + VAR(ind_L_GCOL) )*INVCFAC GAS(LHCHOP) = (VAR(ind_G_HCHOP) + VAR(ind_L_CH2OHYDP) + VAR(ind_L_HCHOP) + VAR(ind_L_HMSMINP) )*INVCFAC !...Gas phase species deposition amounts GASWDEP( LSO2 ) = VAR( ind_WD_SO2 ) GASWDEP( LHNO3 ) = VAR( ind_WD_HNO3 ) GASWDEP( LN2O5 ) = 0.0D0 ! already transferred to HNO3 GASWDEP( LCO2 ) = VAR( ind_WD_CO2 ) GASWDEP( LNH3 ) = VAR( ind_WD_NH4OH ) GASWDEP( LH2O2 ) = VAR( ind_WD_H2O2 ) GASWDEP( LO3 ) = VAR( ind_WD_O3 ) GASWDEP( LFOA ) = VAR( ind_WD_HCOOH ) GASWDEP( LMHP ) = VAR( ind_WD_MHP ) GASWDEP( LPAA ) = VAR( ind_WD_PAA ) GASWDEP( LH2SO4 ) = 0.0D0 ! already transferred to SO4 GASWDEP( LHCL ) = VAR( ind_WD_HCL ) GASWDEP( LGLY ) = VAR( ind_WD_GLY ) * (1.d0-OLIGGLY) GASWDEP( LMGLY ) = VAR( ind_WD_MGLY ) * (1.d0-OLIGMGLY) GASWDEP( LHO ) = VAR( ind_WD_HO ) GASWDEP( LIEPOX ) = VAR( ind_WD_IEPOX ) IF( ISPC8 .GT. 0 ) THEN GASWDEP( LIMAE ) = VAR( ind_WD_IMAE ) GASWDEP( LIHMML ) = VAR( ind_WD_IHMML ) END IF GASWDEP( LNO2 ) = VAR( ind_WD_NO2 ) GASWDEP( LHONO ) = VAR( ind_WD_HONO ) GASWDEP( LHNO4 ) = VAR( ind_WD_HNO4 ) GASWDEP( LNO3RAD ) = VAR( ind_WD_NO3 ) GASWDEP( LCH3O2 ) = VAR( ind_WD_CH3O2 ) GASWDEP( LGCOL) = VAR( ind_WD_GCOL ) GASWDEP( LCCOOH ) = VAR( ind_WD_CCOOH ) GASWDEP( LHCHO ) = VAR( ind_WD_CH2OHYD ) GASWDEP( LHO2 ) = VAR( ind_WD_HO2 ) GASWDEP( LHCHOP ) = VAR( ind_WD_CH2OHYDP ) APYRAC = 0.d0 WDPYRAC = 0.d0 IF( MTPYRAC .GT. 0 ) THEN GAS( LPYRUV ) = ( VAR( ind_G_PYRAC ) + VAR( ind_L_PYRAC ) )*INVCFAC ! returning G_PYRAC and L_PYRAC ! to the gas phase when gas phase ! pyruvic acid species exists in ! gas phase mechanism GASWDEP( LPYRUV ) = VAR( ind_WD_PYRAC ) WDPYRAC = 0 APYRAC = VAR( ind_L_PYRACMIN ) ELSE WDPYRAC = VAR(ind_WD_PYRAC) APYRAC = VAR( ind_L_PYRAC ) + VAR( ind_L_PYRACMIN ) END IF AEROSOL(LORGC,ACC) = (VAR(ind_L_ORGC) + ((74.04/177.)*VAR(ind_L_GLYAC)) + ((90.03/177.)*VAR(ind_L_OXLAC)) & + ((90.03/177.)*VAR(ind_L_OXLACMIN)) + ((90.03/177.)*VAR(ind_L_OXLACMIN2)) + ((88.06/177.)* APYRAC ) & + ((76.05/177.)*VAR(ind_L_GCOLAC)) + ((74.04/177.)*VAR(ind_L_GLYACMIN)) & + ((76.05/177.)*VAR(ind_L_GCOLACMIN)) & + (58.04/177.)*OLIGGLY*VAR(ind_L_GLY) + (72.06/177.)*OLIGMGLY*VAR(ind_L_MGLY))*INVCFAC AERWDEP(LORGC,ACC) = VAR(ind_WD_ORGC) + ((74.04/177.)*VAR(ind_WD_GLYAC)) + & ((90.03/177.)*VAR(ind_WD_OXLAC)) + & ((88.06/177.)* WDPYRAC) + & ((76.05/177.)*VAR(ind_WD_GCOLAC)) + & (58.04/177.)*OLIGGLY*VAR(ind_WD_GLY) + (72.06/177.)*OLIGMGLY*VAR(ind_WD_MGLY) !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !...Convert to appropriate units (mol / m2) DO I = 1,NGAS GASWDEP( I ) = GASWDEP( I ) * WFACTOR END DO DO J = 1, NMODES DO I = 1, NAER AERWDEP( I, J ) = AERWDEP( I, J ) * WFACTOR END DO END DO DO I = 1, NGAS IF( GAS( I ) .LT. 0.0d0 ) GAS( I ) = 0.0d0 IF( GASWDEP( I ) .LT. 0.0d0 ) GASWDEP( I ) = 0.0d0 END DO DO J =1, NMODES DO I =1, NAER IF( AEROSOL( I, J ) .LT. 0.d0 ) AEROSOL( I, J ) = 0.d0 IF( AERWDEP( I, J ) .LT. 0.d0 ) AERWDEP( I, J ) = 0.d0 END DO END DO !...Store the amount of hydrogen deposition HPWDEP = VAR( ind_WD_HPLUS ) * WFACTOR BETASO4 = 0.0D0 DEPSUM = AERWDEP( LSO4, ACC ) / WFACTOR IF( AEROSOL( LSO4, ACC ) * CFACTOR + DEPSUM .GT. 0.0d0 ) THEN BETASO4 = DEPSUM / ( AEROSOL( LSO4, ACC ) * CFACTOR + DEPSUM ) / & TAUCLD ELSE BETASO4 = 0.d0 END IF AEROSOL( LNUM, ACC ) = AEROSOL( LNUM, ACC ) * EXP( -BETASO4 * TAUCLD ) !...Mass balance check - end ENDM(1) = (GAS(LSO2) + GAS(LH2SO4) + (GASWDEP(LSO2) + & GASWDEP(LH2SO4))/WFACTOR/CFACTOR) * 32.06 ENDM(2) = (GAS(LHNO3) + 2*GAS(LN2O5) + GAS(LNO2) + GAS(LHONO) + & GAS(LHNO4) + GAS(LNO3RAD)+(GASWDEP(LHNO3) + GASWDEP(LNO2) + GASWDEP(LHONO) + & GASWDEP(LHNO4) + GASWDEP(LNO3RAD))/WFACTOR/CFACTOR)*14.007 ! ENDM(3) = (GAS(LNH3)+ GASWDEP(LNH3)/WFACTOR/CFACTOR)*14.007 ENDM(4) = (GAS(LHCL)+GASWDEP(LHCL)/WFACTOR/CFACTOR)*35.5 DO I = 1,NMODES ENDM(1) = ENDM(1) + AEROSOL(LSO4, I)*32.06 ENDM(2) = ENDM(2) + AEROSOL(LNO3, I)*14.007 ENDM(3) = ENDM(3) + AEROSOL(LNH4, I)*14.007 ENDM(4) = ENDM(4) + AEROSOL(LCL, I)*35.5 ENDDO DO I = 1,NMODES ENDM(1) = ENDM(1) + (AERWDEP(LSO4,I)/WFACTOR/CFACTOR)*32.06 ENDM(2) = ENDM(2) + (AERWDEP(LNO3,I)/WFACTOR/CFACTOR)*14.007 ENDM(3) = ENDM(3) + (AERWDEP(LNH4,I)/WFACTOR/CFACTOR)*14.007 ENDM(4) = ENDM(4) + (AERWDEP(LCL,I)/WFACTOR/CFACTOR)*35.5 ENDDO DO I = 1,4 IF(STARTM(I) .GT. 0.d0) THEN MBAL(I) = 100*(STARTM(I) - ENDM(I)) / STARTM(I) ELSE MBAL(I) = 0.d0 END IF IF( ABS(MBAL(I)) .GT. 0.5 ) THEN write(logdev,*) 'POTL MBAL PROB IN AQCHEM' write(logdev,*) '1=S, 2=N(not NH3), 3=NH3/4, 4=CL' write(logdev,*) 'I, START, END' write(logdev,*) I, STARTM(I), ENDM(I) XMSG = 'Mass balance problem in KMT?' CALL M3WARN ( PNAME, JDATE, JTIME, XMSG ) END IF END DO RETURN !...formats END ================================================ FILE: CCTM/src/couple/gencoor_local_cons/couple.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE COUPLE ( CGRID, JDATE, JTIME, TSTEP ) C----------------------------------------------------------------------- C Function: C Convert units and couple concentration values in CGRID for transport C Preconditions: C Subroutines and functions called: C M3EXIT C Revision History: C Jeff Sep 97 - leave gas chem, non-reactive and tracer species in C standard (ppmV) units for transport C 2 October, 1998 by Al Bourgeois at LM: parallel implementation C Jeff - Dec 00 - move CGRID_MAP into f90 module C 30 Mar 01 J.Young: dyn alloc - Use HGRD_DEFN; replace INTERP3 with INTERPX C - Jun 01 - update units conversion calls and comments C 31 Jan 05 J.Young: dyn alloc - establish both horizontal & vertical C domain specifications in one module C 21 Jun 10 J.Young: convert for Namelist redesign C 16 Feb 11 S.Roselle: replaced I/O API include files with UTILIO_DEFN; C removed deprecated TRIMLEN C 11 May 11 D.Wong: incorporated twoway model implementation C 11 Oct 11 J.Young: eliminate ppmv_msmr C 08 July 19 F. Sidi: Updated subroutine with CIO changes C 09 Dec 19 S.L.Napelenok: ddm-3d implementation for cmaq v5.3.1 C----------------------------------------------------------------------- USE GRID_CONF ! horizontal & vertical domain specifications USE CGRID_SPCS ! CGRID mechanism species USE UTILIO_DEFN USE CENTRALIZED_IO_MODULE, only : interpolate_var #ifdef isam USE SA_DEFN, ONLY: ISAM, NSPC_SA, NTAG_SA, MAP_SAtoCGR, & TRANSPORT_SPC, ITAG #endif #ifdef sens USE DDM3D_DEFN, ONLY:SENGRID, NPMAX, NP #endif IMPLICIT NONE C Include files: INCLUDE SUBST_FILES_ID ! file name parameters C Arguments: ! REAL :: CGRID( :,:,:,: ) ! concentrations REAL, POINTER :: CGRID( :,:,:,: ) ! concentrations INTEGER, INTENT( IN ) :: JDATE ! current model date, coded YYYYDDD INTEGER, INTENT( IN ) :: JTIME ! current model time, coded HHMMSS INTEGER, INTENT( IN ) :: TSTEP( 3 ) ! time step vector (HHMMSS) ! TSTEP(1) = local output step ! TSTEP(2) = sciproc sync. step (chem) ! TSTEP(3) = twoway model time step w.r.t. wrf time ! step and wrf/cmaq call frequency C Parameters: REAL, PARAMETER :: GPKG = 1.0E+03 ! g/kg REAL, PARAMETER :: MGPG = 1.0E+06 ! micro-g/g REAL, PARAMETER :: CONV = GPKG * MGPG C External Functions: C File Variables: REAL JACOBM( NCOLS,NROWS,NLAYS ) !"total" Jacobian REAL RHOJ ( NCOLS,NROWS,NLAYS ) !"total" Jacobian * air density C Local Variables: CHARACTER( 16 ) :: PNAME = 'COUPLE' CHARACTER( 16 ) :: VNAME CHARACTER( 96 ) :: XMSG = ' ' LOGICAL, SAVE :: FIRSTIME = .TRUE. INTEGER, SAVE :: NQAE ! number of micro-grams/m**3 species INTEGER, SAVE :: NNAE ! number of #/m**3 species INTEGER, SAVE :: NSAE ! number of m**2/m**3 species INTEGER, ALLOCATABLE, SAVE :: QAE( : ) ! CGRID pointer to micro-grams/m**3 species INTEGER, ALLOCATABLE, SAVE :: NAE( : ) ! CGRID pointer to #/m**3 species INTEGER, ALLOCATABLE, SAVE :: SAE( : ) ! CGRID pointer to m**2/m**3 species INTEGER ALLOCSTAT INTEGER OFF ! loop offset to CGRID species INTEGER C, R, L, SPC, V ! loop counters #ifdef isam INTEGER :: SPC_CGRID #endif C----------------------------------------------------------------------- C If ISPCA .ne. 0, then air is advected and concs. are adjusted IF ( FIRSTIME ) THEN FIRSTIME = .FALSE. IF ( N_AE_SPC .GT. 0 ) THEN C create aerosol species pointers to distinguish micro-grams/m**3, C #/m**3 (number density), and m**2/m**3 (surface area) species ALLOCATE ( QAE( N_AE_SPC ), & NAE( N_AE_SPC ), & SAE( N_AE_SPC ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating QAE, NAE, or SAE' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF NQAE = 0 ! no. of micro-grams/m**3 species NNAE = 0 ! no. of #/m**3 species NSAE = 0 ! no. of m**2/m**3 species ! OFF = AE_STRT - 1 OFF = 0 DO SPC = 1, N_AE_SPC IF ( AE_SPC( SPC )( 1:3 ) .EQ. 'NUM' ) THEN NNAE = NNAE + 1 NAE( NNAE ) = OFF + SPC ELSE IF ( AE_SPC( SPC )( 1:3 ) .EQ. 'SRF' ) THEN NSAE = NSAE + 1 SAE( NSAE ) = OFF + SPC ELSE NQAE = NQAE + 1 QAE( NQAE ) = OFF + SPC END IF END DO 2009 format( 5x, 2i4, 2x, a ) END IF END IF ! if firstime C Read Jacobian X Air Density (Jacobian = sq. root det. metric tensor) call interpolate_var ('DENSA_J', JDATE, JTIME, RHOJ) call interpolate_var ('JACOBM', JDATE, JTIME, JACOBM) C couple for advection - use density times the square root of the determinant C of the metric tensor (the Jacobian) = RHOJ C CGRID in mixing ratio [ppmV] -> (air density X "total" Jacobian) X mixing ratio [ppmV] IF ( N_GC_SPC .GT. 0 ) THEN OFF = GC_STRT - 1 DO V = 1, N_GC_SPC SPC = OFF + V DO L = 1, NLAYS DO R = 1, NROWS DO C = 1, NCOLS CGRID( C,R,L,SPC ) = CGRID( C,R,L,SPC ) * RHOJ( C,R,L ) #ifdef sens DO NP = 1, NPMAX SENGRID( C,R,L,NP,SPC ) = SENGRID(C,R,L,NP,SPC) * RHOJ( C,R,L ) END DO #endif END DO END DO END DO END DO END IF OFF = AE_STRT - 1 C CGRID in ug/m**3 -> ("total" Jacobian [m]) X [Kg/m**3] IF ( NQAE .GT. 0 ) THEN DO V = 1, NQAE SPC = OFF + QAE( V ) DO L = 1, NLAYS DO R = 1, NROWS DO C = 1, NCOLS CGRID( C,R,L,SPC ) = CGRID( C,R,L,SPC ) * JACOBM( C,R,L ) / CONV #ifdef sens DO NP = 1, NPMAX SENGRID( C,R,L,NP,SPC ) = SENGRID(C,R,L,NP,SPC) * JACOBM( C,R,L ) / CONV END DO #endif END DO END DO END DO END DO END IF C CGRID in #/m**3 -> ("total" Jacobian [m]) X [#/m**3] IF ( NNAE .GT. 0 ) THEN DO V = 1, NNAE SPC = OFF + NAE( V ) DO L = 1, NLAYS DO R = 1, NROWS DO C = 1, NCOLS CGRID( C,R,L,SPC ) = CGRID( C,R,L,SPC ) * JACOBM( C,R,L ) #ifdef sens DO NP = 1, NPMAX SENGRID( C,R,L,NP,SPC ) = SENGRID(C,R,L,NP,SPC) * JACOBM( C,R,L ) END DO #endif END DO END DO END DO END DO END IF C CGRID in m**2/m**3 -> ("total" Jacobian [m]) X [m**2/m**3] IF ( NSAE .GT. 0 ) THEN DO V = 1, NSAE SPC = OFF + SAE( V ) DO L = 1, NLAYS DO R = 1, NROWS DO C = 1, NCOLS CGRID( C,R,L,SPC ) = CGRID( C,R,L,SPC ) * JACOBM( C,R,L ) #ifdef sens DO NP = 1, NPMAX SENGRID( C,R,L,NP,SPC ) = SENGRID(C,R,L,NP,SPC) * JACOBM( C,R,L ) END DO #endif END DO END DO END DO END DO END IF C CGRID in mixing ratio [ppmV] -> (air density X "total" Jacobian) X mixing ratio [ppmV] IF ( N_NR_SPC .GT. 0 ) THEN OFF = NR_STRT - 1 DO V = 1, N_NR_SPC SPC = OFF + V DO L = 1, NLAYS DO R = 1, NROWS DO C = 1, NCOLS CGRID( C,R,L,SPC ) = CGRID( C,R,L,SPC ) * RHOJ( C,R,L ) #ifdef sens DO NP = 1, NPMAX SENGRID( C,R,L,NP,SPC ) = SENGRID(C,R,L,NP,SPC) * RHOJ( C,R,L ) END DO #endif END DO END DO END DO END DO END IF C CGRID in mixing ratio [ppmV] -> (air density X "total" Jacobian) X mixing ratio [ppmV] IF ( N_TR_SPC .GT. 0 ) THEN OFF = TR_STRT - 1 DO V = 1, N_TR_SPC SPC = OFF + V DO L = 1, NLAYS DO R = 1, NROWS DO C = 1, NCOLS CGRID( C,R,L,SPC ) = CGRID( C,R,L,SPC ) * RHOJ( C,R,L ) #ifdef sens DO NP = 1, NPMAX SENGRID( C,R,L,NP,SPC ) = SENGRID(C,R,L,NP,SPC) * RHOJ( C,R,L ) END DO #endif END DO END DO END DO END DO END IF #ifdef isam DO SPC = 1, NSPC_SA IF ( TRANSPORT_SPC( SPC ) ) THEN SPC_CGRID = MAP_SAtoCGR(SPC) IF ( SPC_CGRID .LE. N_GC_SPC .OR. SPC_CGRID .GE. NR_STRT ) THEN ! this is not an aerosol DO ITAG = 1, NTAG_SA DO L = 1, NLAYS DO R = 1, NROWS DO C = 1, NCOLS ISAM( C,R,L,SPC,ITAG ) = ISAM( C,R,L,SPC,ITAG ) * RHOJ( C,R,L ) END DO END DO END DO END DO ELSE ! this is an aerosol (mass only) DO ITAG = 1, NTAG_SA DO L = 1, NLAYS DO R = 1, NROWS DO C = 1, NCOLS ISAM( C,R,L,SPC,ITAG ) = JACOBM( C,R,L ) * ISAM( C,R,L,SPC,ITAG ) / CONV END DO END DO END DO END DO END IF ENDIF END DO #endif RETURN C............................................................................ C entry DECOUPLE ENTRY DECOUPLE ( CGRID, JDATE, JTIME, TSTEP ) IF ( FIRSTIME ) THEN FIRSTIME = .FALSE. IF ( N_AE_SPC .GT. 0 ) THEN C create aerosol species pointers to distinguish micro-grams/m**3, C #/m**3 (number density), and m**2/m**3 (surface area) species ALLOCATE ( QAE( N_AE_SPC ), & NAE( N_AE_SPC ), & SAE( N_AE_SPC ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating QAE, NAE, or SAE' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF NQAE = 0 ! no. of micro-grams/m**3 species NNAE = 0 ! no. of #/m**3 species NSAE = 0 ! no. of m**2/m**3 species ! OFF = AE_STRT - 1 OFF = 0 DO SPC = 1, N_AE_SPC IF ( AE_SPC( SPC )( 1:3 ) .EQ. 'NUM' ) THEN NNAE = NNAE + 1 NAE( NNAE ) = OFF + SPC ELSE IF ( AE_SPC( SPC )( 1:3 ) .EQ. 'SRF' ) THEN NSAE = NSAE + 1 SAE( NSAE ) = OFF + SPC ELSE NQAE = NQAE + 1 QAE( NQAE ) = OFF + SPC END IF END DO END IF END IF ! if firstime call interpolate_var ('DENSA_J', JDATE, JTIME, RHOJ) call interpolate_var ('JACOBM', JDATE, JTIME, JACOBM) C decouple for chemistry and diffusion C CGRID in mixing ratio [ppmV] X (air density X "total" Jacobian) -> mixing ratio [ppmV] IF ( N_GC_SPC .GT. 0 ) THEN OFF = GC_STRT - 1 DO V = 1, N_GC_SPC SPC = OFF + V DO L = 1, NLAYS DO R = 1, NROWS DO C = 1, NCOLS CGRID( C,R,L,SPC ) = CGRID( C,R,L,SPC ) / RHOJ( C,R,L ) #ifdef sens DO NP = 1, NPMAX SENGRID( C,R,L,NP,SPC ) = SENGRID(C,R,L,NP,SPC) / RHOJ( C,R,L ) END DO #endif END DO END DO END DO END DO END IF OFF = AE_STRT - 1 C CGRID in Jacobian [m] X [Kg/m**3] -> [ug/m**3] IF ( NQAE .GT. 0 ) THEN DO V = 1, NQAE SPC = OFF + QAE( V ) DO L = 1, NLAYS DO R = 1, NROWS DO C = 1, NCOLS CGRID( C,R,L,SPC ) = CONV * CGRID( C,R,L,SPC ) / JACOBM( C,R,L ) #ifdef sens DO NP = 1, NPMAX SENGRID( C,R,L,NP,SPC ) = CONV * SENGRID(C,R,L,NP,SPC) / JACOBM( C,R,L ) END DO #endif END DO END DO END DO END DO END IF C CGRID in Jacobian [m] X [#/m**3] -> #/m**3 IF ( NNAE .GT. 0 ) THEN DO V = 1, NNAE SPC = OFF + NAE( V ) DO L = 1, NLAYS DO R = 1, NROWS DO C = 1, NCOLS CGRID( C,R,L,SPC ) = CGRID( C,R,L,SPC ) / JACOBM( C,R,L ) #ifdef sens DO NP = 1, NPMAX SENGRID( C,R,L,NP,SPC ) = SENGRID(C,R,L,NP,SPC) / JACOBM( C,R,L ) END DO #endif END DO END DO END DO END DO END IF C CGRID in Jacobian [m] X [m**2/m**3] -> m**2/m**3 IF ( NSAE .GT. 0 ) THEN DO V = 1, NSAE SPC = OFF + SAE( V ) DO L = 1, NLAYS DO R = 1, NROWS DO C = 1, NCOLS CGRID( C,R,L,SPC ) = CGRID( C,R,L,SPC ) / JACOBM( C,R,L ) #ifdef sens DO NP = 1, NPMAX SENGRID( C,R,L,NP,SPC ) = SENGRID(C,R,L,NP,SPC) / JACOBM( C,R,L ) END DO #endif END DO END DO END DO END DO END IF C CGRID in mixing ratio [ppmV] X (air density X "total" jacobian) -> mixing ratio [ppmV] IF ( N_NR_SPC .GT. 0 ) THEN OFF = NR_STRT - 1 DO V = 1, N_NR_SPC SPC = OFF + V DO L = 1, NLAYS DO R = 1, NROWS DO C = 1, NCOLS CGRID( C,R,L,SPC ) = CGRID( C,R,L,SPC ) / RHOJ( C,R,L ) #ifdef sens DO NP = 1, NPMAX SENGRID( C,R,L,NP,SPC ) = SENGRID(C,R,L,NP,SPC) / RHOJ( C,R,L ) END DO #endif END DO END DO END DO END DO END IF C CGRID in mixing ratio [ppmV] X (air density X "total" jacobian) -> mixing ratio [ppmV] IF ( N_TR_SPC .GT. 0 ) THEN OFF = TR_STRT - 1 DO V = 1, N_TR_SPC SPC = OFF + V DO L = 1, NLAYS DO R = 1, NROWS DO C = 1, NCOLS CGRID( C,R,L,SPC ) = CGRID( C,R,L,SPC ) / RHOJ( C,R,L ) #ifdef sens DO NP = 1, NPMAX SENGRID( C,R,L,NP,SPC ) = SENGRID(C,R,L,NP,SPC) / RHOJ( C,R,L ) END DO #endif END DO END DO END DO END DO END IF #ifdef isam DO SPC = 1, NSPC_SA IF ( TRANSPORT_SPC( SPC ) ) THEN SPC_CGRID = MAP_SAtoCGR(SPC) IF ( SPC_CGRID .LE. N_GC_SPC .OR. SPC_CGRID .GE. NR_STRT ) THEN ! this is not an aerosol DO ITAG = 1, NTAG_SA DO L = 1, NLAYS DO R = 1, NROWS DO C = 1, NCOLS ISAM( C,R,L,SPC,ITAG ) = ISAM( C,R,L,SPC,ITAG ) / RHOJ( C,R,L ) END DO END DO END DO END DO ELSE ! this is an aerosol (mass only) DO ITAG = 1, NTAG_SA DO L = 1, NLAYS DO R = 1, NROWS DO C = 1, NCOLS ISAM( C,R,L,SPC,ITAG ) = CONV * ISAM( C,R,L,SPC,ITAG ) / JACOBM( C,R,L ) END DO END DO END DO END DO END IF END IF END DO #endif RETURN END ================================================ FILE: CCTM/src/couple/gencoor_wrf_cons/couplewrf.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE COUPLE ( CGRID, JDATE, JTIME, TSTEP ) C----------------------------------------------------------------------- C Function: C Convert units and couple concentration values in CGRID for transport C Preconditions: C Subroutines and functions called: C INTERPX, M3EXIT C Revision History: C Jeff Sep 97 - leave gas chem, non-reactive and tracer species in C standard (ppmV) units for transport C 2 October, 1998 by Al Bourgeois at LM: parallel implementation C Jeff - Dec 00 - move CGRID_MAP into f90 module C 30 Mar 01 J.Young: dyn alloc - Use HGRD_DEFN; replace INTERP3 with INTERPX C - Jun 01 - update units conversion calls and comments C 31 Jan 05 J.Young: dyn alloc - establish both horizontal & vertical C domain specifications in one module C 21 Jun 10 J.Young: convert for Namelist redesign C 16 Feb 11 S.Roselle: replaced I/O API include files with UTILIO_DEFN; C removed deprecated TRIMLEN C 16 Sep 11 S.Roselle: for Pleim`s zadv-wrf blend C 11 Oct 11 J.Young: eliminate ppmv_msmr C 15 Nov 2018: L.Zhou, S.Napelenok: isam implementation C 01 Feb 19 D.Wong: Implemented centralized I/O approach, removed all C MY_N clauses C 10 July 19 F. Sidi: Renamed Subroutine C 09 Dec 19 S.L.Napelenok: ddm-3d implementation for cmaq v5.3.1 C----------------------------------------------------------------------- USE GRID_CONF ! horizontal & vertical domain specifications USE CGRID_SPCS ! CGRID mechanism species USE UTILIO_DEFN use CENTRALIZED_IO_MODULE, only : interpolate_var USE PA_DEFN, ONLY : COUPLE_WRF #ifdef isam USE SA_DEFN, ONLY: ISAM, NSPC_SA, NTAG_SA, MAP_SAtoCGR, TRANSPORT_SPC, ITAG #endif #ifdef sens USE DDM3D_DEFN, ONLY:SENGRID, NPMAX, NP #endif IMPLICIT NONE C Include files: INCLUDE SUBST_FILES_ID ! file name parameters C Arguments: ! REAL :: CGRID( :,:,:,: ) ! concentrations REAL, POINTER :: CGRID( :,:,:,: ) ! concentrations INTEGER, INTENT( IN ) :: JDATE ! current model date, coded YYYYDDD INTEGER, INTENT( IN ) :: JTIME ! current model time, coded HHMMSS INTEGER, INTENT( IN ) :: TSTEP( 3 ) ! time step vector (HHMMSS) ! TSTEP(1) = local output step ! TSTEP(2) = sciproc sync. step (chem) ! TSTEP(3) = twoway model time step w.r.t. ! wrf time step and wrf/cmaq call frequency C Parameters: REAL, PARAMETER :: GPKG = 1.0E+03 ! g/kg REAL, PARAMETER :: MGPG = 1.0E+06 ! micro-g/g REAL, PARAMETER :: CONV = GPKG * MGPG C External Functions: C File Variables: REAL :: JACOBM( NCOLS,NROWS,NLAYS ) !"total" Jacobian REAL :: RHOJ ( NCOLS,NROWS,NLAYS ) !"total" Jacobian * air density C Local Variables: CHARACTER( 16 ) :: PNAME = 'COUPLE' CHARACTER( 16 ) :: VNAME CHARACTER( 96 ) :: XMSG = ' ' LOGICAL, SAVE :: FIRSTIME = .TRUE. INTEGER, SAVE :: NQAE ! number of micro-grams/m**3 species INTEGER, SAVE :: NNAE ! number of #/m**3 species INTEGER, SAVE :: NSAE ! number of m**2/m**3 species INTEGER, ALLOCATABLE, SAVE :: QAE( : ) ! CGRID pointer to micro-grams/m**3 species INTEGER, ALLOCATABLE, SAVE :: NAE( : ) ! CGRID pointer to #/m**3 species INTEGER, ALLOCATABLE, SAVE :: SAE( : ) ! CGRID pointer to m**2/m**3 species INTEGER ALLOCSTAT INTEGER OFF ! loop offset to CGRID species INTEGER C, R, L, SPC, V ! loop counters #ifdef isam INTEGER :: SPC_CGRID #endif C----------------------------------------------------------------------- C If ISPCA .ne. 0, then air is advected and concs. are adjusted IF ( FIRSTIME ) THEN FIRSTIME = .FALSE. COUPLE_WRF = .TRUE. IF ( N_AE_SPC .GT. 0 ) THEN C create aerosol species pointers to distinguish micro-grams/m**3, C #/m**3 (number density), and m**2/m**3 (surface area) species ALLOCATE ( QAE( N_AE_SPC ), & NAE( N_AE_SPC ), & SAE( N_AE_SPC ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating QAE, NAE, or SAE' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF NQAE = 0 ! no. of micro-grams/m**3 species NNAE = 0 ! no. of #/m**3 species NSAE = 0 ! no. of m**2/m**3 species ! OFF = AE_STRT - 1 OFF = 0 DO SPC = 1, N_AE_SPC IF ( AE_SPC( SPC )( 1:3 ) .EQ. 'NUM' ) THEN NNAE = NNAE + 1 NAE( NNAE ) = OFF + SPC ELSE IF ( AE_SPC( SPC )( 1:3 ) .EQ. 'SRF' ) THEN NSAE = NSAE + 1 SAE( NSAE ) = OFF + SPC ELSE NQAE = NQAE + 1 QAE( NQAE ) = OFF + SPC END IF END DO END if END IF ! if firstime C Read Jacobian X Air Density (Jacobian = sq. root det. metric tensor) call interpolate_var ('DENSA_J', jdate, jtime, RHOJ) call interpolate_var ('JACOBM', jdate, jtime, JACOBM) C couple for advection - use density times the square root of the determinant C of the metric tensor (the Jacobian) = RHOJ C CGRID in mixing ratio [ppmV] -> (air density X "total" Jacobian) X mixing ratio [ppmV] IF ( N_GC_SPC .GT. 0 ) THEN OFF = GC_STRT - 1 DO V = 1, N_GC_TRNS SPC = OFF + GC_TRNS_MAP( V ) DO L = 1, NLAYS DO R = 1, NROWS DO C = 1, NCOLS CGRID( C,R,L,SPC ) = CGRID( C,R,L,SPC ) * RHOJ( C,R,L ) #ifdef sens DO NP = 1, NPMAX SENGRID( C,R,L,NP,SPC ) = SENGRID(C,R,L,NP,SPC) * RHOJ( C,R,L ) END DO #endif END DO END DO END DO END DO END IF C initialize RhoJ from MCIP - done once per sync step DO L = 1, NLAYS DO R = 1, NROWS DO C = 1, NCOLS CGRID( C,R,L,RHOJ_LOC ) = RHOJ( C,R,L ) #ifdef sens DO NP = 1, NPMAX SENGRID( C,R,L,NP,RHOJ_LOC ) = 0.0 END DO #endif END DO END DO END DO OFF = AE_STRT - 1 C CGRID in ug/m**3 -> ("total" Jacobian [m]) X [Kg/m**3] IF ( NQAE .GT. 0 ) THEN DO V = 1, NQAE SPC = OFF + AE_TRNS_MAP( QAE( V ) ) DO L = 1, NLAYS DO R = 1, NROWS DO C = 1, NCOLS CGRID( C,R,L,SPC ) = JACOBM( C,R,L ) * CGRID( C,R,L,SPC ) / CONV #ifdef sens DO NP = 1, NPMAX SENGRID( C,R,L,NP,SPC ) = JACOBM( C,R,L ) * SENGRID(C,R,L,NP,SPC) / CONV END DO #endif END DO END DO END DO END DO END IF C CGRID in #/m**3 -> ("total" Jacobian [m]) X [#/m**3] IF ( NNAE .GT. 0 ) THEN DO V = 1, NNAE SPC = OFF + AE_TRNS_MAP( NAE( V ) ) DO L = 1, NLAYS DO R = 1, NROWS DO C = 1, NCOLS CGRID( C,R,L,SPC ) = JACOBM( C,R,L ) * CGRID( C,R,L,SPC ) #ifdef sens DO NP = 1, NPMAX SENGRID( C,R,L,NP,SPC ) = JACOBM( C,R,L ) * SENGRID(C,R,L,NP,SPC) END DO #endif END DO END DO END DO END DO END IF C CGRID in m**2/m**3 -> ("total" Jacobian [m]) X [m**2/m**3] IF ( NSAE .GT. 0 ) THEN DO V = 1, NSAE SPC = OFF + AE_TRNS_MAP( SAE( V ) ) DO L = 1, NLAYS DO R = 1, NROWS DO C = 1, NCOLS CGRID( C,R,L,SPC ) = JACOBM( C,R,L ) * CGRID( C,R,L,SPC ) #ifdef sens DO NP = 1, NPMAX SENGRID( C,R,L,NP,SPC ) = JACOBM( C,R,L ) * SENGRID(C,R,L,NP,SPC) END DO #endif END DO END DO END DO END DO END IF C CGRID in mixing ratio [ppmV] -> (air density X "total" Jacobian) X mixing ratio [ppmV] IF ( N_NR_SPC .GT. 0 ) THEN OFF = NR_STRT - 1 DO V = 1, N_NR_TRNS SPC = OFF + NR_TRNS_MAP( V ) DO L = 1, NLAYS DO R = 1, NROWS DO C = 1, NCOLS CGRID( C,R,L,SPC ) = CGRID( C,R,L,SPC ) * RHOJ( C,R,L ) #ifdef sens DO NP = 1, NPMAX SENGRID( C,R,L,NP,SPC ) = SENGRID(C,R,L,NP,SPC)* RHOJ( C,R,L ) END DO #endif END DO END DO END DO END DO END IF C CGRID in mixing ratio [ppmV] -> (air density X "total" Jacobian) X mixing ratio [ppmV] IF ( N_TR_SPC .GT. 0 ) THEN OFF = TR_STRT - 1 DO V = 1, N_TR_SPC SPC = OFF + V DO L = 1, NLAYS DO R = 1, NROWS DO C = 1, NCOLS CGRID( C,R,L,SPC ) = CGRID( C,R,L,SPC ) * RHOJ( C,R,L ) #ifdef sens DO NP = 1, NPMAX SENGRID( C,R,L,NP,SPC ) = SENGRID(C,R,L,NP,SPC) * RHOJ( C,R,L ) END DO #endif END DO END DO END DO END DO END IF #ifdef isam DO SPC = 1, NSPC_SA IF ( TRANSPORT_SPC( SPC ) ) THEN SPC_CGRID = MAP_SAtoCGR(SPC) IF ( SPC_CGRID .LE. N_GC_SPC .OR. SPC_CGRID .GE. NR_STRT ) THEN ! this is not an aerosol DO ITAG = 1, NTAG_SA DO L = 1, NLAYS DO R = 1, NROWS DO C = 1, NCOLS ISAM( C,R,L,SPC,ITAG ) = ISAM( C,R,L,SPC,ITAG ) * RHOJ( C,R,L ) END DO END DO END DO END DO ELSE ! this is an aerosol (mass only) DO ITAG = 1, NTAG_SA DO L = 1, NLAYS DO R = 1, NROWS DO C = 1, NCOLS ISAM( C,R,L,SPC,ITAG ) = JACOBM( C,R,L ) * ISAM( C,R,L,SPC,ITAG ) / CONV END DO END DO END DO END DO END IF ENDIF END DO #endif RETURN C............................................................................ C entry DECOUPLE ENTRY DECOUPLE ( CGRID, JDATE, JTIME, TSTEP ) call interpolate_var ('JACOBM', jdate, jtime, JACOBM) C retrieve transported RhoJ DO L = 1, NLAYS DO R = 1, NROWS DO C = 1, NCOLS RHOJ( C,R,L ) = CGRID( C,R,L,RHOJ_LOC ) END DO END DO END DO !call interpolate_var ('DENSA_J', JDATE, JTIME, RHOJ) C decouple for chemistry and diffusion C CGRID in mixing ratio [ppmV] X (air density X "total" Jacobian) -> mixing ratio [ppmV] IF ( N_GC_SPC .GT. 0 ) THEN OFF = GC_STRT - 1 DO V = 1, N_GC_TRNS SPC = OFF + GC_TRNS_MAP( V ) DO L = 1, NLAYS DO R = 1, NROWS DO C = 1, NCOLS CGRID( C,R,L,SPC ) = CGRID( C,R,L,SPC ) / RHOJ( C,R,L ) #ifdef sens DO NP = 1, NPMAX SENGRID( C,R,L,NP,SPC ) = SENGRID(C,R,L,NP,SPC) / RHOJ( C,R,L ) END DO #endif END DO END DO END DO END DO END IF OFF = AE_STRT - 1 C CGRID in Jacobian [m]) X [Kg/m**3] -> [ug/m**3] IF ( NQAE .GT. 0 ) THEN DO V = 1, NQAE SPC = OFF + AE_TRNS_MAP( QAE( V ) ) DO L = 1, NLAYS DO R = 1, NROWS DO C = 1, NCOLS CGRID( C,R,L,SPC ) = CONV * CGRID( C,R,L,SPC ) / JACOBM( C,R,L ) #ifdef sens DO NP = 1, NPMAX SENGRID( C,R,L,NP,SPC ) = CONV * SENGRID(C,R,L,NP,SPC) / JACOBM( C,R,L ) END DO #endif END DO END DO END DO END DO END IF C CGRID in Jacobian [m] X [#/m**3] -> #/m**3 IF ( NNAE .GT. 0 ) THEN DO V = 1, NNAE SPC = OFF + AE_TRNS_MAP( NAE( V ) ) DO L = 1, NLAYS DO R = 1, NROWS DO C = 1, NCOLS CGRID( C,R,L,SPC ) = CGRID( C,R,L,SPC ) / JACOBM( C,R,L ) #ifdef sens DO NP = 1, NPMAX SENGRID( C,R,L,NP,SPC ) = SENGRID(C,R,L,NP,SPC) / JACOBM( C,R,L ) END DO #endif END DO END DO END DO END DO END IF C CGRID in Jacobian [m] X [m**2/m**3] -> m**2/m**3 IF ( NSAE .GT. 0 ) THEN DO V = 1, NSAE SPC = OFF + AE_TRNS_MAP( SAE( V ) ) DO L = 1, NLAYS DO R = 1, NROWS DO C = 1, NCOLS CGRID( C,R,L,SPC ) = CGRID( C,R,L,SPC ) / JACOBM( C,R,L ) #ifdef sens DO NP = 1, NPMAX SENGRID( C,R,L,NP,SPC ) = SENGRID(C,R,L,NP,SPC) / JACOBM( C,R,L ) END DO #endif END DO END DO END DO END DO END IF C CGRID in mixing ratio [ppmV] X (air density X "total" jacobian) -> mixing ratio [ppmV] IF ( N_NR_SPC .GT. 0 ) THEN OFF = NR_STRT - 1 DO V = 1, N_NR_TRNS SPC = OFF + NR_TRNS_MAP( V ) DO L = 1, NLAYS DO R = 1, NROWS DO C = 1, NCOLS CGRID( C,R,L,SPC ) = CGRID( C,R,L,SPC ) / RHOJ( C,R,L ) #ifdef sens DO NP = 1, NPMAX SENGRID( C,R,L,NP,SPC ) = SENGRID(C,R,L,NP,SPC) / RHOJ( C,R,L ) END DO #endif END DO END DO END DO END DO END IF C CGRID in mixing ratio [ppmV] X (air density X "total" jacobian) -> mixing ratio [ppmV] IF ( N_TR_SPC .GT. 0 ) THEN OFF = TR_STRT - 1 DO V = 1, N_TR_SPC SPC = OFF + V DO L = 1, NLAYS DO R = 1, NROWS DO C = 1, NCOLS CGRID( C,R,L,SPC ) = CGRID( C,R,L,SPC ) / RHOJ( C,R,L ) #ifdef sens DO NP = 1, NPMAX SENGRID( C,R,L,NP,SPC ) = SENGRID(C,R,L,NP,SPC) / RHOJ( C,R,L ) END DO #endif END DO END DO END DO END DO END IF #ifdef isam DO SPC = 1, NSPC_SA IF ( TRANSPORT_SPC( SPC ) ) THEN SPC_CGRID = MAP_SAtoCGR(SPC) IF ( SPC_CGRID .LE. N_GC_SPC .OR. SPC_CGRID .GE. NR_STRT ) THEN ! this is not an aerosol DO ITAG = 1, NTAG_SA DO L = 1, NLAYS DO R = 1, NROWS DO C = 1, NCOLS ISAM( C,R,L,SPC,ITAG ) = ISAM( C,R,L,SPC,ITAG ) / RHOJ( C,R,L ) END DO END DO END DO END DO ELSE ! this is an aerosol (mass only) DO ITAG = 1, NTAG_SA DO L = 1, NLAYS DO R = 1, NROWS DO C = 1, NCOLS ISAM( C,R,L,SPC,ITAG ) = CONV * ISAM( C,R,L,SPC,ITAG ) / JACOBM( C,R,L ) END DO END DO END DO END DO END IF END IF END DO #endif RETURN END ================================================ FILE: CCTM/src/ddm3d/AERO_DDM3D.F ================================================ #ifdef sens C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: Module aero_ddm3d C----------------------------------------------------------------------- C 15 Aug 13 S.L.Napelenok: initial version C 30 Dec 19 S.L.Napelenok: update for cmaq 5.3.1 C----------------------------------------------------------------------- Use ddm3d_defn, Only : npmax Implicit None c These parameters have to match what is found in the following modules: c aero_data, precursor_data, soa_defn Real( 8 ), Allocatable, Save :: s_aerospc_conc( :,:,: ) ! aero species sensitivity [ ug/m^3 ] Real( 8 ), Allocatable, Save :: s_precursor_conc( :,: ) ! precursor sensitivity [ug/m^3] Real( 8 ), Allocatable, Save :: s_so4rate( : ) Real( 8 ), Allocatable, Save :: s_phg_rate( : ) ! particulate mercury gas-phase production rate [ug/m^3*s] c Real( 8 ), Allocatable, Save :: s_xh2so4( : ) Real( 8 ), Allocatable, Save :: og_sens( :,: ) ! vapors sensitivity Real( 8 ), Allocatable, Save :: rog_dsens( :,: ) ! reaction counters senstivity Logical, Save :: ae_ddm3d_ready = .False. Real( 8 ) :: cbsens Logical, Save :: wrt_flag = .False. Contains C----------------------------------------------------------------------- Subroutine init_aero_ddm3d Use UTILIO_DEFN Implicit None Character( 96 ) :: xmsg = '' Integer allocstat Integer logdev logdev = init3() Allocate ( s_so4rate( npmax ), stat = allocstat ) If ( allocstat .Ne. 0 ) then xmsg = 'Failure allocating s_so4rate' Call m3exit ( 'init_aero_ddm3d', 0, 0, xmsg, xstat2 ) End If Allocate ( s_phg_rate( npmax ), stat = allocstat ) If ( allocstat .Ne. 0 ) then xmsg = 'Failure allocating s_phg_rate' Call m3exit ( 'init_aero_ddm3d', 0, 0, xmsg, xstat2 ) End If c Allocate ( s_xh2so4( npmax ), stat = allocstat ) c If ( allocstat .Ne. 0 ) then c xmsg = 'Failure allocating s_xh2so4' c Call m3exit ( 'init_aero_ddm3d', 0, 0, xmsg, xstat2 ) c End If ae_ddm3d_ready = .True. Return End Subroutine init_aero_ddm3d C----------------------------------------------------------------------- End Module aero_ddm3d #endif ================================================ FILE: CCTM/src/ddm3d/AQCHEM_DDM3D.EXT ================================================ ! 16 Jul 13 S.Napelenok: initial version for ddm-3d implementation for cmaq5.0.1 ! 9 Sep 22 S.Napelenok: comment out currently unused variables c REAL( 8 ) :: S_DEPSUM( NPMAX ) REAL( 8 ) :: S_A( NPMAX ) ! iron's anion concentration c REAL( 8 ) :: S_AC( NPMAX ) ! H+ concentration in cloudwater (mol/liter) c REAL( 8 ) :: S_ACT1( NPMAX ) ! activity correction factor, single ions c REAL( 8 ) :: S_ACT2( NPMAX ) ! activity factor correction, double ions c REAL( 8 ) :: S_ACTB( NPMAX ) ! c REAL( 8 ) :: S_AE( NPMAX ) ! guess for H+ conc in cloudwater (mol/liter) REAL( 8 ) :: S_B( NPMAX ) ! manganese's anion concentration c REAL( 8 ) :: S_PRES_ATM( NPMAX ) ! pressure (Atm) c REAL( 8 ) :: S_BB( NPMAX ) ! lower limit guess of cloudwater pH REAL( 8 ) :: S_CA( NPMAX ) ! Calcium conc in cloudwater (mol/liter) REAL( 8 ) :: S_CL( NPMAX ) ! total Cl- conc in cloudwater (mol/liter) REAL( 8 ) :: S_CLACC( NPMAX ) ! fine Cl- in cloudwater (mol/liter) REAL( 8 ) :: S_CLCOR( NPMAX ) ! coarse Cl- conc in cloudwater (mol/liter) c REAL( 8 ) :: S_CO2H( NPMAX ) ! Henry's Law constant for CO2 c REAL( 8 ) :: S_CO21( NPMAX ) ! First dissociation constant for CO2 c REAL( 8 ) :: S_CO22( NPMAX ) ! Second dissociation constant for CO2 c REAL( 8 ) :: S_CO212( NPMAX ) ! CO21*CO22 c REAL( 8 ) :: S_CO212H( NPMAX ) ! CO2H*CO21*CO22 c REAL( 8 ) :: S_CO21H( NPMAX ) ! CO2H*CO21 REAL( 8 ) :: S_CO2L( NPMAX ) ! CO2 conc in cloudwater (mol/liter) REAL( 8 ) :: S_CO3( NPMAX ) ! CO3= conc in cloudwater (mol/liter) c REAL( 8 ) :: S_CTHK1( NPMAX ) ! cloud thickness (m) c REAL( 8 ) :: S_DSIV_SCALE( NPMAX ) ! mass conservation scale factor for S(IV) c REAL( 8 ) :: S_DTRMV( NPMAX ) ! REAL( 8 ) :: S_DTS6( NPMAX ) ! REAL( 8 ) :: S_DGLYDT( NPMAX ) ! change in GLY (mol/liter/sec) REAL( 8 ) :: S_DMGLYDT( NPMAX ) ! change in MGLY (mol/liter/sec) REAL( 8 ) :: S_DGLY1( NPMAX ) ! change due to Rxn. in GLY for DTW(0) time step REAL( 8 ) :: S_DMGLY1( NPMAX ) ! change due to Rxn. in MGLY for DTW(0) time step REAL( 8 ) :: S_DORGC( NPMAX ) ! change in ORGC for DTW(0) time step (mol/liter) c REAL( 8 ) :: S_EBETASO4T( NPMAX ) ! EXP( -BETASO4 * TAUCLD ) c REAL( 8 ) :: S_EALFA0T( NPMAX ) ! EXP( -ALFA0 * TAUCLD ) c REAL( 8 ) :: S_EALFA2T( NPMAX ) ! EXP( -ALFA2 * TAUCLD ) c REAL( 8 ) :: S_EALFA3T( NPMAX ) ! EXP( -ALFA3 * TAUCLD ) REAL( 8 ) :: S_EC( NPMAX ) ! elemental carbon acc+akn aerosol in cloudwater (mol/liter) c REAL( 8 ) :: S_FA( NPMAX ) ! functional value ?? c REAL( 8 ) :: S_FB( NPMAX ) ! functional value ?? REAL( 8 ) :: S_FE( NPMAX ) ! Fe+++ conc in cloudwater (mol/liter) REAL( 8 ) :: S_FNH3( NPMAX ) ! frac weight of NH3 to total ammonia REAL( 8 ) :: S_FNH4ACC( NPMAX ) ! frac weight of NH4 acc to total ammonia REAL( 8 ) :: S_FHNO3( NPMAX ) ! frac weight of HNO3 to total NO3 REAL( 8 ) :: S_FNO3ACC( NPMAX ) ! frac weight of NO3 acc to total NO3 c REAL( 8 ) :: S_FRACLIQ( NPMAX ) ! fraction of water in liquid form c REAL( 8 ) :: S_FOA1( NPMAX ) ! First dissociation constant for FOA (Formic Acid) c REAL( 8 ) :: S_FOAH( NPMAX ) ! Henry's Law constant for FOA c REAL( 8 ) :: S_FOA1H( NPMAX ) ! FOAH*FOA1 REAL( 8 ) :: S_FOAL( NPMAX ) ! FOA conc in cloudwater (mol/liter) c REAL( 8 ) :: S_FTST( NPMAX ) ! c REAL( 8 ) :: S_GLYH( NPMAX ) ! Henry's Law constant for glyoxal REAL( 8 ) :: S_GLYL( NPMAX ) ! glyoxal conc in cloud water (mol/liter) c REAL( 8 ) :: S_GM( NPMAX ) ! c REAL( 8 ) :: S_GM1( NPMAX ) ! c REAL( 8 ) :: S_GM1LOG( NPMAX ) ! c REAL( 8 ) :: S_GM2( NPMAX ) ! activity correction factor c REAL( 8 ) :: S_GM2LOG( NPMAX ) ! c REAL( 8 ) :: S_HA( NPMAX ) ! c REAL( 8 ) :: S_HB( NPMAX ) ! c REAL( 8 ) :: S_H2OW( NPMAX ) ! c REAL( 8 ) :: S_H2O2H( NPMAX ) ! Henry's Law Constant for H2O2 REAL( 8 ) :: S_H2O2L( NPMAX ) ! H2O2 conc in cloudwater (mol/liter) c REAL( 8 ) :: S_HCLH( NPMAX ) ! Henry's Law Constant for HCL c REAL( 8 ) :: S_HCL1( NPMAX ) ! First dissociation constant for HCL c REAL( 8 ) :: S_HCL1H( NPMAX ) ! HCL1*HCLH REAL( 8 ) :: S_HCLL( NPMAX ) ! HCl conc in cloudwater (mol/liter) REAL( 8 ) :: S_HCO2( NPMAX ) ! HCO2 conc in cloudwater (mol/liter) REAL( 8 ) :: S_HCO3( NPMAX ) ! HCO3 conc in cloudwater (mol/liter) c REAL( 8 ) :: S_HNO3H( NPMAX ) ! Henry's Law Constant for HNO3 c REAL( 8 ) :: S_HNO31( NPMAX ) ! First dissociation constant for HNO3 c REAL( 8 ) :: S_HNO31H( NPMAX ) ! REAL( 8 ) :: S_HNO3L( NPMAX ) ! HNO3 conc in cloudwater (mol/liter) c REAL( 8 ) :: S_HOH( NPMAX ) ! Henry's Law Constant for HO REAL( 8 ) :: S_HSO3( NPMAX ) ! HSO3 conc in cloudwater (mol/liter) REAL( 8 ) :: S_HSO4( NPMAX ) ! HSO4 concn in cloudwater (mol/liter) REAL( 8 ) :: S_HSO4ACC( NPMAX ) ! accumulation mode HSO4 concn in cloudwater (mol/liter) REAL( 8 ) :: S_HSO4COR( NPMAX ) ! coarse HSO4 concn in cloudwater (mol/liter) c REAL( 8 ) :: S_HTST( NPMAX ) ! REAL( 8 ) :: S_K( NPMAX ) ! K conc in cloudwater (mol/liter) c REAL( 8 ) :: S_LGTEMP( NPMAX ) ! log of TEMP REAL( 8 ) :: S_MG( NPMAX ) ! c REAL( 8 ) :: S_MGLYH( NPMAX ) ! Henry's Law Constant for methylglyoxal REAL( 8 ) :: S_MGLYL( NPMAX ) ! MGLY conc in cloud water (mol/liter) c REAL( 8 ) :: S_MHPH( NPMAX ) ! Henry's Law Constant for MHP REAL( 8 ) :: S_MHPL( NPMAX ) ! MHP conc in cloudwater (mol/liter) REAL( 8 ) :: S_MN( NPMAX ) ! Mn++ conc in cloudwater (mol/liter) REAL( 8 ) :: S_NA( NPMAX ) ! Na conc in cloudwater (mol/liter) REAL( 8 ) :: S_NAACC( NPMAX ) ! Na in cloudwater (mol/liter) REAL( 8 ) :: S_NACOR( NPMAX ) ! coarse Na in cloudwater (mol/liter) c REAL( 8 ) :: S_NH31( NPMAX ) ! First dissociation constant for NH3 c REAL( 8 ) :: S_NH3H( NPMAX ) ! Henry's Law Constant for NH3 c REAL( 8 ) :: S_NH3DH20( NPMAX ) ! c REAL( 8 ) :: S_NH31HDH( NPMAX ) ! REAL( 8 ) :: S_NH3L( NPMAX ) ! NH3 conc in cloudwater (mol/liter) REAL( 8 ) :: S_NH4( NPMAX ) ! NH4+ conc in cloudwater (mol/liter) REAL( 8 ) :: S_NH4ACC( NPMAX ) ! NH4 acc conc in cloudwater (mol/liter) REAL( 8 ) :: S_NH4COR( NPMAX ) ! NH4 coarse conc in cloudwater (mol/liter) c REAL( 8 ) :: S_NITAER( NPMAX ) ! total aerosol nitrate REAL( 8 ) :: S_NO3( NPMAX ) ! NO3 conc in cloudwater (mol/liter) REAL( 8 ) :: S_NO3ACC( NPMAX ) ! NO3 acc conc in cloudwater (mol/liter) REAL( 8 ) :: S_NO3COR( NPMAX ) ! NO3 coarse conc in cloudwater (mol/liter) REAL( 8 ) :: S_NUMCOR( NPMAX ) ! coarse aerosol number in cloudwater (mol/liter) c REAL( 8 ) :: S_O3H( NPMAX ) ! Henry's Law Constant for O3 REAL( 8 ) :: S_O3L( NPMAX ) ! O3 conc in cloudwater (mol/liter) c REAL( 8 ) :: S_OH( NPMAX ) ! OH conc in cloudwater (mol/liter) REAL( 8 ) :: S_OHL( NPMAX ) ! OH radical conc in cloudwater (mol/liter) REAL( 8 ) :: S_SOA( NPMAX ) ! secondary organic aerosol in cloudwater (mol/liter) REAL( 8 ) :: S_ORGC( NPMAX ) ! cloud-produced SOA in cloudwater (treated as primary) REAL( 8 ) :: S_POA( NPMAX ) ! primary organic aerosol in cloudwater (mol/liter) c REAL( 8 ) :: S_PAAH( NPMAX ) ! Henry's Law Constant for PAA REAL( 8 ) :: S_PAAL( NPMAX ) ! PAA conc in cloudwater (mol/liter) REAL( 8 ) :: S_PCO2F( NPMAX ) ! gas only CO2 partial pressure (atm) REAL( 8 ) :: S_PFOAF( NPMAX ) ! gas only ORGANIC ACID partial press (atm) REAL( 8 ) :: S_PGLYF( NPMAX ) ! gas only GLY partial pressure (atm) REAL( 8 ) :: S_PH2O2F( NPMAX ) ! gas only H2O2 partial pressure (atm) REAL( 8 ) :: S_PHCLF( NPMAX ) ! gas only HCL partial pressure (atm) REAL( 8 ) :: S_PHNO3F( NPMAX ) ! gas only HNO3 partial pressure (atm) REAL( 8 ) :: S_PHOF( NPMAX ) ! gas only HO partial pressure (atm) REAL( 8 ) :: S_PMGLYF( NPMAX ) ! gas only MGLY parital pressure (atm) REAL( 8 ) :: S_PMHPF( NPMAX ) ! gas only MHP partial pressure (atm) REAL( 8 ) :: S_PNH3F( NPMAX ) ! gas only NH3 partial pressure (atm) REAL( 8 ) :: S_PO3F( NPMAX ) ! gas only O3 partial pressure (atm) REAL( 8 ) :: S_PPAAF( NPMAX ) ! gas only PAA partial pressure (atm) REAL( 8 ) :: S_PRIM( NPMAX ) ! PRIMARY acc+akn aerosol in cloudwater (mol/liter) REAL( 8 ) :: S_PSO2F( NPMAX ) ! gas only SO2 partial pressure (atm) c REAL( 8 ) :: S_RATE( NPMAX ) ! c REAL( 8 ) :: S_RECIPA1( NPMAX ) ! c REAL( 8 ) :: S_RECIPA2( NPMAX ) ! c REAL( 8 ) :: S_RECIPAP1( NPMAX ) ! one over pressure (/atm) c REAL( 8 ) :: S_RGLY3( NPMAX ) ! liter/(mol sec) c REAL( 8 ) :: S_RH2O2( NPMAX ) ! c REAL( 8 ) :: S_RMGLY3( NPMAX ) ! liter/(mol sec) c REAL( 8 ) :: S_RMHP( NPMAX ) ! c REAL( 8 ) :: S_RPAA( NPMAX ) ! c REAL( 8 ) :: S_RT( NPMAX ) ! gas const * temperature (liter atm/mol) c REAL( 8 ),SAVE :: S_SCVEFF( NPMAX ) = 100.0D0 ! Scavenging efficiency (%) REAL( 8 ) :: S_SIV( NPMAX ) ! dissolved so2 in cloudwater (mol/liter) c REAL( 8 ) :: S_SK6( NPMAX ) ! REAL( 8 ) :: S_SK6TS6( NPMAX ) ! c REAL( 8 ) :: S_SO21( NPMAX ) ! First dissociation constant for SO2 c REAL( 8 ) :: S_SO22( NPMAX ) ! Second dissociation constant for SO2 c REAL( 8 ) :: S_SO2H( NPMAX ) ! Henry's Law Constant for SO2 c REAL( 8 ) :: S_SO212( NPMAX ) ! SO21*SO22 c REAL( 8 ) :: S_SO212H( NPMAX ) ! SO21*SO22*SO2H c REAL( 8 ) :: S_SO21H( NPMAX ) ! SO21*SO2H REAL( 8 ) :: S_SO2L( NPMAX ) ! SO2 conc in cloudwater (mol/liter) REAL( 8 ) :: S_SO3( NPMAX ) ! SO3= conc in cloudwater (mol/liter) REAL( 8 ) :: S_SO4( NPMAX ) ! SO4= conc in cloudwater (mol/liter) REAL( 8 ) :: S_SO4ACC( NPMAX ) ! accumulation mode SO4= conc in cloudwater (mol/liter) REAL( 8 ) :: S_SO4COR( NPMAX ) ! coarse SO4= conc in cloudwater (mol/liter) c REAL( 8 ) :: S_STION( NPMAX ) ! ionic strength c REAL( 8 ) :: S_TAC( NPMAX ) ! c REAL( 8 ) :: S_TEMP1( NPMAX ) ! (1/T) - (1/298) (1/K) c REAL( 8 ) :: S_TIMEW( NPMAX ) ! cloud chemistry clock (sec) REAL( 8 ) :: S_TGLY( NPMAX ) ! total glyoxal available for oxidation REAL( 8 ) :: S_TMGLY( NPMAX ) ! total methylglyoxal available for oxidation c REAL( 8 ) :: S_TOTOX( NPMAX ) ! REAL( 8 ) :: S_TH2O2( NPMAX ) REAL( 8 ) :: S_TO3( NPMAX ) REAL( 8 ) :: S_TMHP( NPMAX ) REAL( 8 ) :: S_TPAA( NPMAX ) REAL( 8 ) :: S_TOTAMM( NPMAX ) ! total ammonium REAL( 8 ) :: S_TOTNIT( NPMAX ) ! total nitrate (excluding coarse mode) REAL( 8 ) :: S_TS6( NPMAX ) ! SO4 conc in cloudwater (mol/liter) REAL( 8 ) :: S_TS6ACC( NPMAX ) ! SO4 acc conc in cloudwater (mol/liter) REAL( 8 ) :: S_TS6COR( NPMAX ) ! coarse SO4 conc in cloudwater (mol/liter) REAL( 8 ) :: S_TSIV( NPMAX ) ! total S(iv) available for oxidation c REAL( 8 ) :: S_TST( NPMAX ) ! c REAL( 8 ) :: S_TWASH( NPMAX ) ! washout time for clouds (sec) c REAL( 8 ) :: S_WETFAC( NPMAX ) ! converts mol/l to mm-mol/l based on precip c REAL( 8 ) :: S_XC1( NPMAX ) ! (/mm) c REAL( 8 ) :: S_XC2( NPMAX ) ! (liter-atm/mol/mm) c REAL( 8 ) :: S_XL( NPMAX ) ! conversion factor (liter-atm/mol) c REAL( 8 ) :: S_ONE_OVER_XL( NPMAX ) ! 1.0 / XL c REAL( 8 ) :: S_PRES_ATM_OVER_XL( NPMAX ) ! PRES_ATM / XL c REAL( 8 ) :: S_XLCO2( NPMAX ) ! c REAL( 8 ) :: S_XLH2O2( NPMAX ) ! c REAL( 8 ) :: S_XLHCL( NPMAX ) ! const in calc of HCL final partial pres c REAL( 8 ) :: S_XLHNO3( NPMAX ) ! c REAL( 8 ) :: S_XLMHP( NPMAX ) ! c REAL( 8 ) :: S_XLNH3( NPMAX ) ! c REAL( 8 ) :: S_XLO3( NPMAX ) ! c REAL( 8 ) :: S_XLPAA( NPMAX ) ! c REAL( 8 ) :: S_XLSO2( NPMAX ) ! REAL( 8 ) :: S_CAACC( NPMAX ) ! accumulation mode Calcium (AE6) SLN 16March2011 REAL( 8 ) :: S_MGACC( NPMAX ) ! accumulation mode Magnesium (AE6) SLN 16March2011 REAL( 8 ) :: S_KACC( NPMAX ) ! accumulation mode Potassium (AE6) SLN 16March2011 REAL( 8 ) :: S_CACOR( NPMAX ) ! coarse mode Calcium (AE6) SLN 16March2011 REAL( 8 ) :: S_MGCOR( NPMAX ) ! coarse mode Magnesium (AE6) SLN 16March2011 REAL( 8 ) :: S_KCOR( NPMAX ) ! coarse mode Potassium (AE6) SLN 16March2011 REAL( 8 ) :: S_SOILCOR( NPMAX ) ! coarse mode SOIL (AE6) SLN 16March2011 REAL( 8 ) :: S_ANTHCOR( NPMAX ) ! coarse mode CORS (AE6) SLN 16March2011 REAL( 8 ) :: S_SEASCOR( NPMAX ) ! coarse mode SEAS (AE6) SLN 16March2011 REAL( 8 ) :: S_FEACC( NPMAX ) ! accumulation mode Fe (AE6) SLN 22March2011 REAL( 8 ) :: S_MNACC( NPMAX ) ! accumulation mode Fe (AE6) SLN 22March2011 REAL( 8 ) :: S_FECOR( NPMAX ) ! coarse mode Mn (AE6) SLN 22March2011 REAL( 8 ) :: S_MNCOR( NPMAX ) ! coarse mode Mn (AE6) SLN 22March2011 REAL( 8 ) :: S_FE_OX( NPMAX ) ! Fe(III) available for sulfate oxidation REAL( 8 ) :: S_MN_OX( NPMAX ) ! Mn(II) available for sulfate oxidation c REAL( 8 ) :: S_FE_III( NPMAX ) ! Fractional Fe(III) partitioning, GS - July 1, 2011 c REAL( 8 ) :: S_MN_II( NPMAX ) ! Fractional Mn(II) partitioning, GS - July 1, 2011 c REAL( 8 ) :: S_FE_SOL( NPMAX ) ! Fractional Fe solubility, GS - July 1, 2011 c REAL( 8 ) :: S_MN_SOL( NPMAX ) ! Fractional Mn solubility, GS - July 1, 2011 REAL( 8 ) :: S_LIQUID( NPMAX, NLIQS ) ! wet deposition array (mm mol/liter) REAL( 8 ) :: S_WETDEP( NPMAX, NLIQS ) ! wet deposition array (mm mol/liter) REAL( 8 ) :: S_LOADING( NPMAX, NAER, NMODES ) ! aerosol loading (mol/liter) REAL( 8 ) :: S_INITGAS( NPMAX, NGAS ) ! initial gas partial pressure (atm) REAL( 8 ) :: S_DSIVDT( NPMAX, 0:NUMOX ) ! rate of so2 oxid incloud (mol/liter/sec) REAL( 8 ) :: S_DS4 ( NPMAX, 0:NUMOX ) ! S(IV) oxidized over timestep DTW(0) c REAL( 8 ) :: S_DTW ( NPMAX, 0:NUMOX ) ! cloud chemistry timestep (sec) REAL( 8 ) :: C1 REAL( 8 ) :: C2 REAL( 8 ) :: C3 REAL( 8 ) :: pwr1D REAL( 8 ) :: pwr1 INTEGER IP1, IP2 ================================================ FILE: CCTM/src/ddm3d/DDM3D_CHEM.F ================================================ #ifdef sens C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: Module DDM3D_CHEM C----------------------------------------------------------------------- C 9 Nov 15 S.L.Napelenok: initial version for cmaq5.1.1 C 16 Jun 16 S.L.Napelenok: update for cmaq5.2 and het chem inclusion C----------------------------------------------------------------------- Use DDM3D_DEFN, Only: NPMAX Implicit None Real(8), Allocatable, Save :: YCHECK( : ) ! Concs used by DDM Real(8), Allocatable, Save :: YCDDM( : ) ! Concs used by DDM ! (avg of pre- and post-chem, ! or mid-chemstep concs, ! depending on implementation) Logical, Allocatable, Save :: DDM_CHECK( : ) ! check YCDDM set for all species Logical, Allocatable, Save :: RXNFLAG( : ) INTEGER RXN Real*8, Allocatable, Save :: SRK( : ) ! rate constants Real, Allocatable, Save :: A( :, : ) ! An upper triangular matrix and the ! multipliers used to obtain it ! (See s_lu.F) Real, Allocatable, Save :: A1( :, : ) Real, Allocatable, Save :: PDT( :, : ) Real, Allocatable, Save :: PRD( : ) Real, Allocatable, Save :: PRD_RATE( : ) ! Contribution to PRD from rxn rate sens Real, Allocatable, Save :: SOLD( : ) Integer, Allocatable, Save :: IPVT ( : ) ! an integer vector of pivot indices. Integer, Allocatable :: SENS_INDEX( : ) ! CGRID_INDEX translated by JNEW2OLD Integer, Allocatable :: MECH_INDEX( : ) ! CGRID_INDEX translated by JNEW2OLD C Variables used for hddm-3d Real(8), Allocatable, Save :: SRK2 ( : ) ! rate constants LOGICAL, Allocatable, Save :: ORDER1 ( : ) ! true if order 1; else, false Real, Allocatable, Save :: PDT2( :, : ) ! Used for 2nd order call of JAC Real, Allocatable, Save :: SMID( :, : ) ! SENGRID in middle of timestep Real(8), Allocatable, Save :: SEND( :, : ) ! SENGRID at end of timestep Real(8), Allocatable, Save :: SMIDJAC( : ) ! SMID for the relevant 1st order ! sensitivity parameter Real(8), Allocatable, Save :: RK ( : ) Integer N_EBI_MID ! the midpoint ebi step; half of N_EBI_STEPS Logical ODD_STEPS ! true if N_EBI_STEPS is odd Contains C----------------------------------------------------------------------- Subroutine INIT_DDM3D_CHEM Use RXNS_DATA, Only: NUMB_MECH_SPC, NRXNS, CGRID_INDEX Use UTILIO_DEFN ! IOAPI parameters and functions declarations Implicit None Character( 16 ), Save :: PNAME = 'INIT_DDM3D_CHEM' Integer :: LOGDEV Character( 96 ) :: XMSG = ' ' Integer :: ALLOCSTAT Integer :: ISPC LOGDEV = INIT3 () ALLOCATE( YCHECK ( NUMB_MECH_SPC), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating YCHECK' CALL M3EXIT ( PNAME, 0, 0, XMSG, XSTAT2 ) END IF ALLOCATE( YCDDM ( NUMB_MECH_SPC), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating YCDDM' CALL M3EXIT ( PNAME, 0, 0, XMSG, XSTAT2 ) END IF ALLOCATE( DDM_CHECK( NUMB_MECH_SPC), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating DDM_CHECK' CALL M3EXIT ( PNAME, 0, 0, XMSG, XSTAT2 ) END IF ALLOCATE( RXNFLAG( NPMAX ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating RXNFLAG' CALL M3EXIT ( PNAME, 0, 0, XMSG, XSTAT2 ) END IF ALLOCATE( SRK( NRXNS ), & SRK2 ( NRXNS ), & RK ( NRXNS ), & ORDER1 ( NRXNS ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating SRK, SRK2, RK, or ORDER1' CALL M3EXIT ( PNAME, 0, 0, XMSG, XSTAT2 ) END IF ALLOCATE( A( NUMB_MECH_SPC, NUMB_MECH_SPC ), & A1( NUMB_MECH_SPC, NUMB_MECH_SPC ), & PDT( NUMB_MECH_SPC, NUMB_MECH_SPC ), & PDT2( NUMB_MECH_SPC, NUMB_MECH_SPC ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating A, A1, PDT, or PDT2' CALL M3EXIT ( PNAME, 0, 0, XMSG, XSTAT2 ) END IF ALLOCATE( SMID( NUMB_MECH_SPC,NPMAX ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating SMID' CALL M3EXIT ( PNAME, 0, 0, XMSG, XSTAT2 ) END IF ALLOCATE( SEND( 1,NUMB_MECH_SPC ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating SEND' CALL M3EXIT ( PNAME, 0, 0, XMSG, XSTAT2 ) END IF SEND = 0.0D0 ALLOCATE( PRD( NUMB_MECH_SPC ), & SOLD( NUMB_MECH_SPC ), & IPVT ( NUMB_MECH_SPC ), & PRD_RATE( NUMB_MECH_SPC ), & SMIDJAC( NUMB_MECH_SPC ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating PRD, SOLD, IPVT, PRD_RATE,or SMIDJAC' CALL M3EXIT ( PNAME, 0, 0, XMSG, XSTAT2 ) END IF ALLOCATE( SENS_INDEX( NUMB_MECH_SPC ), & MECH_INDEX( NUMB_MECH_SPC ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating SENS_INDEX or MECH_INDEX' CALL M3EXIT ( PNAME, 0, 0, XMSG, XSTAT2 ) END IF DO ISPC = 1, NUMB_MECH_SPC MECH_INDEX(ISPC) = CGRID_INDEX(ISPC) SENS_INDEX(ISPC) = CGRID_INDEX(ISPC) END DO Return End Subroutine INIT_DDM3D_CHEM C----------------------------------------------------------------------- Subroutine SOLVE_DDM3D_CHEM( C,R,L,CHEMSTEP,OLD2NEW,NEW2OLD ) Use DDM3D_DEFN, Only: SENGRID, NPMAX, NP, DATENUM, IPT, & IDATE, HIGH, IREGION, IRXN, IPARM, STARTDATE Use RXNS_DATA, Only: NRXNS, NREACT, NPRDCT, SC, IRR, CGRID_INDEX, NUMB_MECH_SPC, & RXLABEL, CHEMISTRY_SPC Use MECHANISM_FUNCTIONS Use UTILIO_DEFN ! IOAPI parameters and functions declarations Implicit None Character( 16 ), Save :: PNAME = 'SOLVE_DDM3D_CHEM' Integer, Intent( In ) :: C,R,L Real( 8 ), Intent( In ) :: CHEMSTEP Integer, Optional, Intent( In ) :: OLD2NEW( :,: ) Integer, Optional, Intent( In ) :: NEW2OLD( :,: ) Integer I,J,S,N Integer JROW, JCOL Integer INFO ! see s_lu.F Real(8) SUMAT Real(8) SUMSP Real(8) TOTAL Real(8) DIFF Real(8) DIFFSP Real IREGTEMP ! Holds relevant value of IREGION Real KSTEP ! Holds k times timestep(in min) Real RXNMULT ! Holds product of concs of reactants Integer NRCT ! Counter over reactants Integer NPROD ! Counter over products Integer IREACT ! index for reaction reactant Integer IPROD ! index for reaction produce Integer HIPARM( 2 ) ! index numbers of the 1st order sens ! parameters to which ! we're taking ! 2nd order sensitivity Integer HITMP1 Integer HITMP2 Logical, Save :: FIRSTIME = .TRUE. Logical, Save :: REORDER = .TRUE. ! reorder YCDDM Integer, Save :: LOGDEV Character( 96 ) :: XMSG = ' ' IF ( FIRSTIME ) THEN FIRSTIME = .FALSE. LOGDEV = INIT3() DDM_LOG = LOGDEV ERROR_LOG = LOGDEV CALL SET_MECHANISM( ) ! determine formulas for Mechanism Jacobain and Species Rate of Change IF( PRESENT( OLD2NEW ) .AND. PRESENT( OLD2NEW ) )THEN REORDER = .FALSE. ! no reordering because YCDMM is already redeorderd by chemsolver ! YCHECK = 0.0D0 ! DO I = 1,NUMB_MECH_SPC ! S = NEW2OLD( I,1 ) ! YCHECK( S ) = YCDDM( I ) ! SEND(1,I) = YCDDM( I ) ! WRITE(LOGDEV,'(A,A,ES16.4)')' ORIG: ' // CHEMISTRY_SPC(I),' = ',YCHECK(S) ! END DO ! DO I = 1,NUMB_MECH_SPC ! S = NEW2OLD( I,1 ) ! WRITE(LOGDEV,'(A,A,2(ES16.4,1X))')' SORT: ' // CHEMISTRY_SPC(S),' = ',YCDDM( I ),YCHECK(S)-YCDDM( I ) ! END DO ! CALL EVALUATE_F_JAC_MECH( YCHECK, SRK, PDT2 ) ! Evaluate Jacobian based on YCDDM and SKR values ! overwrite reordering using chemsolver conversing maps JNEW2OLD(1:NUMB_MECH_SPC,1) = NEW2OLD(1:NUMB_MECH_SPC,1) JOLD2NEW(1:NUMB_MECH_SPC,1) = OLD2NEW(1:NUMB_MECH_SPC,1) RESET_JACOBIAN = .TRUE. DO RXN = 1, NRXNS DO NRCT = 1, NREACT( RXN ) IREACT = ISPECIES_REACTION( NRCT,RXN ) ISPECIES_REACTION( NRCT,RXN ) = OLD2NEW( IREACT,1 ) END DO DO NPROD = 1, NPRDCT( RXN ) IPROD = ISPECIES_REACTION( NPROD+3,RXN ) ISPECIES_REACTION( NPROD+3,RXN ) = OLD2NEW( IPROD,1 ) END DO END DO ! DO S = 1, NUMB_MECH_SPC ! MECH_INDEX(S) = CGRID_INDEX(JOLD2NEW(S,1)) ! SENS_INDEX(S) = CGRID_INDEX(JNEW2OLD(S,1)) ! END DO ! ELSE ! ! DO S = 1, NUMB_MECH_SPC ! MECH_INDEX(S) = CGRID_INDEX(JOLD2NEW(S,1)) ! SENS_INDEX(S) = CGRID_INDEX(JNEW2OLD(S,1)) ! END DO ! DO I = 1,NUMB_MECH_SPC ! S = JOLD2NEW( I,1 ) ! YCHECK( S ) = YCDDM( I ) ! WRITE(LOGDEV,'(A,A,ES16.4)')' SORT: ' // CHEMISTRY_SPC(I),' = ',YCHECK(S) ! END DO ! DO I = 1,NUMB_MECH_SPC ! S = JNEW2OLD( I,1 ) ! WRITE(LOGDEV,'(A,A,2(ES16.4,1X))')' ORIGINAL: ' // CHEMISTRY_SPC(S),' = ',YCDDM( S ),YCHECK(I)-YCDDM( S ) ! END DO ! YCDDM = YCHECK END IF ! DO RXN = 1, NRXNS ! WRITE(LOGDEV,'(A,1X,I4,1X,A)')'For reaction number and label,',RXN, ! & TRIM(RXLABEL(RXN)) ! WRITE(LOGDEV,*)'Reactants' ! WRITE(LOGDEV,'(10X,40(A,", "))') ! & (CHEMISTRY_SPC(JNEW2OLD(ISPECIES_REACTION( NRCT,RXN ),1)),NRCT = 1, NREACT( RXN )) ! WRITE(LOGDEV,*)'Products' ! WRITE(LOGDEV,'(10X,40(A,", "))') ! & (CHEMISTRY_SPC(JNEW2OLD(ISPECIES_REACTION( NPROD+3,RXN ),1)),NPROD = 1, NPRDCT( RXN )) ! END DO ! WRITE(LOGDEV,*)'Original order: chemistry species, cgrid index' ! DO S = 1, NUMB_MECH_SPC ! WRITE(LOGDEV,'(A16,1X,I4)')CHEMISTRY_SPC(S),CGRID_INDEX(S) ! END DO ! WRITE(LOGDEV,*)'Sort ordered: chemistry species, cgrid index' ! DO S = 1, NUMB_MECH_SPC ! WRITE(LOGDEV,'(A16,1X,I4)')CHEMISTRY_SPC(JOLD2NEW(S,1)),MECH_INDEX(S) ! END DO END IF IF ( REORDER ) THEN ! reorder to speed-up LU decomposition of Jacobian DO I = 1,NUMB_MECH_SPC S = JOLD2NEW( I,1 ) YCHECK( S ) = YCDDM( I ) END DO YCDDM = YCHECK END IF CALL EVALUATE_F_JAC_MECH( YCDDM, SRK, PDT ) ! Evaluate Jacobian based on YCDDM and SKR values DO 433 J = 1, NUMB_MECH_SPC DO 434 I = 1, NUMB_MECH_SPC A( I, J ) = 0.0 A1( I, J ) = 0.0 A( I, J ) = -0.5 * CHEMSTEP * PDT( I, J ) A1( I, J ) = 0.5 * CHEMSTEP * PDT( I, J ) IF ( I .EQ. J ) THEN A( I, J ) = 1.0 + A( I, J ) A1( I, J ) = 1.0 + A1( I, J ) END IF 434 CONTINUE 433 CONTINUE C Factor matrix A by Gaussian elimination CALL SGEFA(A, NUMB_MECH_SPC, NUMB_MECH_SPC, IPVT,INFO) DO 495 NP = 1, NPMAX IF ( IPT( NP ) .NE. 4 ) THEN DO S = 1, NUMB_MECH_SPC PRD( S ) = 0.0 PRD_RATE( S ) = 0.0 J = JOLD2NEW(S,1) SOLD(J) = SENGRID( C, R, L, NP,CGRID_INDEX(S)) IF ( ABS(SOLD( J )) .LT. 1.e-25 ) SOLD(J) = 0.0 END DO C Begin code specific to reaction rate sensitivities IF ( RXNFLAG( NP ) ) THEN ! RXNFLAG is true if IPT= 5 and time, date within bounds IREGTEMP = IREGION( C, R, L, NP ) DO RXN = 1, NRXNS IF ( IRXN( NP, RXN ) .EQ. 1 ) THEN ! This checks if it's a reaction in the sens parameter KSTEP = SRK( RXN ) * CHEMSTEP ! KSTEP = k * timestep(in min) ! RXNMULT is the product of the concs of ! the reactants ! Note that the first 3 slots of IRR are ! for reactants, ! and slots 4- are for products IF ( NREACT( RXN ) .EQ. 1 ) THEN RXNMULT = KSTEP & * YCDDM( ISPECIES_REACTION( 1,RXN ) ) ELSE IF ( NREACT( RXN ) .EQ. 2 ) THEN RXNMULT = KSTEP & * YCDDM( ISPECIES_REACTION( 1,RXN ) ) & * YCDDM( ISPECIES_REACTION( 2,RXN ) ) ELSE IF ( NREACT( RXN ) .EQ. 3 ) THEN RXNMULT = KSTEP & * YCDDM( ISPECIES_REACTION( 1,RXN ) ) & * YCDDM( ISPECIES_REACTION( 2,RXN ) ) & * YCDDM( ISPECIES_REACTION( 3,RXN ) ) ELSE XMSG = 'NREACT out of expected bounds of 1-3.' CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT1 ) END IF DO NRCT = 1, NREACT( RXN ) ! Loop over the reactants PRD_RATE( ISPECIES_REACTION( NRCT,RXN ) ) = PRD_RATE( ISPECIES_REACTION( NRCT,RXN ) ) & - RXNMULT * IREGTEMP ! Subtract RXNMULT from PRD_RATE for reactant species END DO DO NPROD = 1, NPRDCT( RXN ) ! Loop over the products ! Add RXNMULT to PRD_RATE for product ! species ! The +3 reflects that slots >=4 of IRR ! are for products ! SC are the stoichiometric ! coefficients of products ! and do not need the +3 (see ! RXDT.EXT) PRD_RATE( ISPECIES_REACTION( 3+NPROD,RXN ) ) = PRD_RATE( ISPECIES_REACTION( 3+NPROD,RXN ) ) & + ( RXNMULT * SC( RXN, NPROD ) * IREGTEMP ) END DO END IF END DO ! RXN END IF ! RXNFLAG C End code specific to reaction rate sensitivities DO S = 1, NUMB_MECH_SPC TOTAL = 0.0D0 DO J = 1, NUMB_MECH_SPC TOTAL = TOTAL + A1( S, J ) * SOLD( J ) END DO C edits by A.Digar PRD( S ) = TOTAL + PRD_RATE( S ) C end edit END DO CALL SGESL( A, NUMB_MECH_SPC, NUMB_MECH_SPC, IPVT, PRD, 0 ) DO S = 1, NUMB_MECH_SPC J = CGRID_INDEX(JNEW2OLD(S,1)) IF ( ABS ( PRD ( S ) ) .LT. 1.e-25 ) THEN IF ( HIGH ) THEN SMID( S,NP ) = 0.5 * SOLD(S) END IF SENGRID( C, R, L, NP,J ) = 0.0 ELSE IF ( HIGH ) THEN ! SMID is the average of SENGRID before and after chemistry SMID( S,NP ) = 0.5 * ( SOLD(S) + PRD( S) ) END IF SENGRID( C, R, L, NP,J ) = PRD( S ) END IF END DO ELSE ! IPT( NP ) = 4 2nd order sensitivity HIPARM( 1 ) = 0 HIPARM( 2 ) = 0 DO J = 1, NP - 1 IF ( IPARM( NP, J ) .EQ. 1 ) THEN HIPARM( 1 ) = J ELSE IF ( IPARM( NP, J ) .EQ. 2 ) THEN HIPARM( 2 ) = J ELSE IF ( IPARM( NP, J ) .EQ. 3 ) THEN HIPARM( 1 ) = J HIPARM( 2 ) = J END IF END DO DO S = 1, NUMB_MECH_SPC SMIDJAC( S ) = SMID( S,HIPARM( 1 ) ) END DO C Added by A.Digar DO S = 1, NUMB_MECH_SPC PRD(S) = 0.0 J = JOLD2NEW(S,1) SOLD(J) = SENGRID( C, R, L, NP, CGRID_INDEX(S) ) IF (ABS(SOLD( J )) .LT. 1.e-25 ) SOLD(J) = 0.0 END DO cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C Begin code specific to high-order sensitivity with one/more 1st order C term/s C being reaction rate sensitivity C added by A.Digar cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc HITMP1 = HIPARM( 1 ) HITMP2 = HIPARM( 2 ) DO N = 1, 2 ! loop for two 1st-order sens parameters IF ( ( IPT( HITMP1 ) .EQ. 5 ) .AND. ( RXNFLAG( HITMP1 ) ) ) THEN ! check for rate constant sens, date & time IREGTEMP = IREGION ( C, R, L, HITMP1 ) DO RXN = 1, NRXNS ! keeping the rate terms that contain only ! the ! rate constants of interest and setting ! rest to zero RK( RXN ) = SRK( RXN ) * IRXN( HITMP1, RXN ) END DO ! Jacobian for first-order, ! called with sensitivities and ! rxn rates with 1st order rxns effective CALL EVALUATE_F_JAC_MECH( YCDDM, RK, PDT ) ! Evaluate Jacobian based on YCDDM and RK values DO S = 1, NUMB_MECH_SPC DO J = 1, NUMB_MECH_SPC PRD( S ) = PRD( S ) + CHEMSTEP * PDT( S,J ) * SMID( J,HITMP2 ) * IREGTEMP END DO END DO IF ( IPT( HITMP1 ) .eq. IPT( HITMP2 ) ) THEN PRD = 2.0 * PRD EXIT ENDIF ENDIF HITMP1 = HIPARM( 2 ) HITMP2 = HIPARM( 1 ) END DO C End of modification by A.Digar ! Jacobian for higher-order, ! called with sensitivities and ! rxn rates with 1st order rxns removed CALL EVALUATE_F_JAC_MECH( SMIDJAC, SRK2, PDT2 ) ! Evaluate Jacobian based on SMIDJAC and SKR2 values DO S = 1, NUMB_MECH_SPC TOTAL = 0.0 DO J = 1, NUMB_MECH_SPC TOTAL = TOTAL + A1( S, J ) * SOLD( J ) & + CHEMSTEP * PDT2( S,J ) * SMID( J,HIPARM( 2 ) ) END DO C edits by A.Digar PRD( S ) = TOTAL + PRD( S ) C end of edits END DO CALL SGESL( A, NUMB_MECH_SPC, NUMB_MECH_SPC, IPVT, PRD, 0 ) DO S = 1, NUMB_MECH_SPC IF ( ABS ( PRD ( S ) ) .LT. 1.e-25 ) THEN SENGRID( C, R, L, NP, CGRID_INDEX(JNEW2OLD(S,1)) ) = 0.0 ELSE SENGRID( C, R, L, NP, CGRID_INDEX(JNEW2OLD(S,1)) ) = PRD( S ) END IF END DO END IF 495 CONTINUE ! End of do loop over NP Return End Subroutine SOLVE_DDM3D_CHEM C----------------------------------------------------------------------- End Module DDM3D_CHEM #endif ================================================ FILE: CCTM/src/ddm3d/DDM3D_DEFN.F ================================================ #ifdef sens C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: Module DDM3D_DEFN C----------------------------------------------------------------------- C 8 Nov 12 S.L.Napelenok: initial version C 15 Oct 15 S.L.Napelenok: ddm-3d implementation for cmaq5.1.1 C 29 Jun 16 S.L.Napelenok: update for cmaq5.2, include SPCNAME here C 20 Nov 19 S.L.Napelenok: update for cmaq 5.3.1 C C----------------------------------------------------------------------- C C variables C NPMAX - Max # of sens parameters allowed C IPT - Type of sensitivity: C 1 = INIT; 2 = BOUN; C 3 = EMIS; 4 = HIGH C 5 = RATE; 6 = PVO3 C IPARM - ARRAY FOR PARAMETER TYPE AND SPECIES ORDER # C set to 1 if sens to that species, 0 otherwise C IAMOUNT - Amount by which emissions are perturbed in a sens param, C ( NPMAX, MXSPCS, 25 ), the 25th slot is 1 if emis C amounts specified, 0 otherwise C ILAYER - Layers included in sens parameter C ( NPMAX, NLAYS ), 1 if layer's emis included, 0 C otherwise, only used if emis amount specified, C otherwise set to 1 for all layers C IDATE and ITIME - Dates and times included in sens parameter, C if not all dates & times are included; Note: to span C midnight, begin time may be larger than endtime C IREGION - Region of emission (1 = domainwide) C IRXN - Which chemical reaction for reaction rate sensitivities C 1 if sens to that reaction rate; 0 otherwise C SEN_PAR - Names of sensitivity parameters C NDAYS - No of dates in model run Use CGRID_SPCS, Only: NSPCSD, N_GC_SPC ! CGRID species number and offsets Implicit None Real, Save, Pointer :: SENGRID( :,:,:,:,: ) Real, Save, Pointer :: SENGRID_TEMP( :,:,:,: ) Real, Save, Allocatable :: SAGRID( :,:,:,:,: ) Integer, Save :: NPMAX = 1 Integer, Save :: NDAYS = 1 Integer, Allocatable, Save, Target :: TGT_IPT( : ) Integer, Pointer :: IPT (:) Integer, Allocatable, Save, Target :: TGT_IPARM( :,: ) Integer, Pointer :: IPARM ( :,: ) CHARACTER( 16 ), Allocatable, Save, Target :: TGT_GRID_FILE( :,: ) CHARACTER( 16 ), POINTER :: GRID_FILE( :,: ) ! ( NPMAX, 9 ) Integer, Allocatable, Save, Target :: TGT_GRID_NUM( : ) Integer, Pointer :: GRID_NUM( : ) CHARACTER( 16 ), Allocatable, Save, Target :: TGT_PT3D_FILE(:,:,:) CHARACTER( 16 ), POINTER :: PT3D_FILE( :,:,: ) ! ( NPMAX, 2, 9 ) Integer, Allocatable, Save, Target :: TGT_PT3D_NUM( : ) Integer, Pointer :: PT3D_NUM( : ) REAL, Allocatable, Save, Target :: TGT_IAMOUNT( :,:,: ) REAL, POINTER :: IAMOUNT( :,:,: ) Integer, Allocatable, Save, Target :: TGT_ILAYER( :,: ) Integer, Pointer :: ILAYER( :,: ) Integer, Allocatable, Save, Target :: TGT_IRXN( :,: ) Integer, Pointer :: IRXN( :,: ) Integer, Allocatable, Save, Target :: TGT_IDATE( :,: ) Integer, Pointer :: IDATE( :,: ) Integer, Allocatable, Save, Target :: TGT_ITIME( :,: ) Integer, Pointer :: ITIME( :,: ) Real, Allocatable, Save, Target :: TGT_IREGION( :,:,:,:) Real, Pointer :: IREGION( :,:,:,: ) Character( 8 ), Allocatable, Save, Target :: TGT_SENPAR( : ) Character( 8 ), Pointer :: SEN_PAR( : ) Real, Allocatable, Save :: BSEN( :,:,: ) ! boundary sens - equivalent to BCON in hadvypmm.F Logical, Save :: RST ! Flag for using restart file Logical, Save :: BCS ! Flag for reading in boundary sensitivities Logical, Save :: HIGH ! Flag for higher order sensitivities c Logical, Save :: RGN ! Flag for using regions files c Logical, Save :: ES ! Flag for pre-merged emissions Integer, Save :: STARTDATE ! copy from STDATE and save for ddm to use Integer :: DATENUM ! 1 + jdate - stdate Integer NP, SENNUM Integer, Allocatable, Save, Target :: TGT_IHIGH( :,: ) Integer, Pointer :: IHIGH ( :,: ) ! 2nd order mapping; IHIGH(NP,1) is 1st term; IHIGH(NP,2) is 2nd term CHARACTER( 16 ) :: SPCNAME c Cloud module variables REAL( 8 ), ALLOCATABLE, SAVE :: S_CONDEP( :,:,:,: ) ! sens of conv wdep REAL( 8 ), ALLOCATABLE, SAVE :: S_TOTDEP( :,:,:,: ) ! sens of tot dep REAL( 4 ), ALLOCATABLE, SAVE :: S_DEPWRT( :,:,: ) ! wdep write array REAL( 8 ), ALLOCATABLE, SAVE :: S_POLC ( :,: ) ! sens of incloud conc (mol/mol) REAL( 8 ), ALLOCATABLE, SAVE :: S_CEND ( :,: ) ! sens of ending conc (mol/mol) REAL( 8 ), ALLOCATABLE, SAVE :: S_REMOV( :,: ) ! sens of moles/m2 or mm*mol/lit scavenged REAL( 8 ), ALLOCATABLE, SAVE :: S_REMOVAC( : ) ! sens of variable storing H+ deposition REAL, ALLOCATABLE, SAVE :: S_HPWDEP ( : ) ! hydrogen wet dep (mm mol/liter) REAL( 8 ), ALLOCATABLE, SAVE :: S_GAS ( :,: ) ! gas phase conc (mol/mol) REAL( 8 ), ALLOCATABLE, SAVE :: S_GASWDEP( :,: ) ! gas phase wet dep array (mm mol/liter) REAL( 8 ), ALLOCATABLE, SAVE :: S_AEROSOL( :,:,: ) ! aerosol conc (mol/mol) REAL( 8 ), ALLOCATABLE, SAVE :: S_AERWDEP( :,:,: ) ! aerosol wet dep array (mm mol/liter) REAL( 8 ), ALLOCATABLE, SAVE :: S_CCR ( :,:,: ) REAL( 8 ), ALLOCATABLE, SAVE :: S_CBELOW ( :,: ) Character( 16 ), Allocatable, Save :: S_WETDEPSPC( : ) ! List of variable names in sens wet dep file REAL( 8 ), ALLOCATABLE, SAVE :: S_CONC ( :,:,: ) REAL( 8 ), ALLOCATABLE, SAVE :: S_BMOL ( :,: ) ! moles/m2 species below cloud REAL( 8 ), ALLOCATABLE, SAVE :: S_CBASE0 ( :,: ) ! initial ave trace gas mix rat below cld REAL( 8 ), ALLOCATABLE, SAVE :: S_CBASEF ( :,: ) ! final ave trac gas mix rat blw cld (moles/mole) REAL( 8 ), ALLOCATABLE, SAVE :: S_BCLDWT ( :,:,: ) ! below cloud weighting function REAL( 8 ), ALLOCATABLE, SAVE :: S_INCLOUD ( :,:,: ) ! fin. in cloud conc. after mix and chem moles/mole REAL( 8 ), ALLOCATABLE, SAVE :: S_OUTCLOUD( :,:,: ) ! fin. outside cld conc. " " " " moles/mole REAL( 8 ), ALLOCATABLE, SAVE :: S_PCLD ( :,:,: ) ! moles sp/mole air in cloud REAL( 8 ) S_CONDIS REAL( 8 ) DDM3D_CONCMINL ! the conc small number is too small even with real(8)!!!! c VDIFF module variables REAL, ALLOCATABLE, SAVE :: SNGRD( :,:,:,:,: ) ! sengrid replacement REAL, ALLOCATABLE, SAVE :: S_DDEP( :,:,:,: ) ! ddep sens accumulator REAL, ALLOCATABLE, SAVE :: SENS( :,:,: ) ! secondary SENGRID expression REAL, ALLOCATABLE, SAVE :: S_EMIS( :,:,: ) ! stores SVDEMIS*DTS REAL, ALLOCATABLE, SAVE :: S_DD ( :,:,: ) ! DD for sens REAL, ALLOCATABLE, SAVE :: S_UU ( :,:,: ) ! UU for sens REAL, ALLOCATABLE, SAVE :: S_DDBF( :,: ) ! incremental SENDDEP REAL, ALLOCATABLE, SAVE :: S_POL( :,: ) REAL S_DELC REAL, ALLOCATABLE, SAVE :: S_PLDV_HONO( : ) c Emissisons module variables Integer, Allocatable, Save :: S_NSTREAMS( : ) ! Number of emissions streams per parameter Character( 32 ), Allocatable, Save :: S_STREAMLBL( :,: ) ! Emissions stream names per parameter (max = 99) Integer, Allocatable, Save :: S_NRGN( : ) ! Number of emissions streams per parameter Character( 16 ), Allocatable, Save :: S_RGNLBL( :,: ) ! Emissions stream names per parameter (max = 99) Character( 16 ), Allocatable, Save :: S_SPCLIST( :,: ) ! User-specified species list REAL, ALLOCATABLE :: SVDEMIS_DIFF( :,:,:,:,: ) ! sensitivity emissions array mapped to diffused species INTEGER, ALLOCATABLE, SAVE :: SENS_PER_STREAM( : ) ! number of senstivity parameters using the numbered stream INTEGER, ALLOCATABLE, SAVE :: STREAM_TO_SENS( :,: ) ! mapping c DEPV_DEF/m3dry variables REAL, ALLOCATABLE, SAVE :: S_PVD( :,:,:,: ) REAL, ALLOCATABLE, SAVE :: S_CGRIDL1( :,:,:,: ) c REAL, ALLOCATABLE, SAVE :: S_CMP ( :,:,:,: ) REAL, ALLOCATABLE, SAVE :: S_PLDV( :,:,:,: ) c I/O variables Integer, Save :: N_ASENS_VARS = 0 Contains C----------------------------------------------------------------------- Subroutine INIT_DDM3D Use UTILIO_DEFN Use HGRD_DEFN, Only: NCOLS, NROWS Use VGRD_DEFN, Only: NLAYS Use RXNS_DATA, Only: NRXNS Implicit None c Include SUBST_RXCMMN c Integer STDATE, STTIME ! Starting date/time Character( 16 ) :: PNAME = 'INIT_DDM3D' Character( 16 ) :: CTM_NPMAX = 'CTM_NPMAX' Character( 16 ) :: CTM_STTIME = 'CTM_STTIME' Character( 16 ) :: CTM_RUNLEN = 'CTM_RUNLEN' Character( 16 ) :: DDM3D_RST = 'DDM3D_RST' ! switch for sens restart file Character( 16 ) :: DDM3D_BCS = 'DDM3D_BCS' ! switch for reading boundary sensitivities Character( 16 ) :: DDM3D_HIGH = 'DDM3D_HIGH' ! switch for higher order sensitivities c Character( 16 ) :: DDM3D_RGN = 'DDM3D_RGN' ! switch for using regions files c Character( 16 ) :: DDM3D_ES = 'DDM3D_ES' ! switch for pre-merged emissions Integer RUNLEN, BGNTIME Integer STATUS Character( 80 ) :: VARDESC Integer LOGDEV ! FORTRAN unit number for log file Character( 96 ) :: XMSG = ' ' Integer ALLOCSTAT LOGDEV = INIT3 () c STARTDATE = STDATE c Determine number of parameters VARDESC = 'Max number of sens parameters.' NPMAX = ENVINT( CTM_NPMAX, VARDESC, NPMAX, STATUS ) IF ( STATUS .NE. 0 ) WRITE( LOGDEV, '(5X, A)' ) VARDESC IF ( STATUS .EQ. 1 ) THEN XMSG = 'Environment variable improperly formatted' CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT2 ) ELSE IF ( STATUS .EQ. -1 ) THEN XMSG = 'Envt variable set, but empty...Using default:' WRITE( LOGDEV, '(5X, A, I9)' ) XMSG, 0 ELSE IF ( STATUS .EQ. -2 ) THEN XMSG = 'Environment variable not set ... Using default:' WRITE( LOGDEV, '(5X, A, I9)' ) XMSG, 0 END IF C Use the begin time and run length to determine how many C dates are in the model run, for use in dimensioning IDATE BGNTIME = 000000 ! default VARDESC = 'Scenario Starting Time (HHMMSS)' BGNTIME = ENVINT( CTM_STTIME, VARDESC, BGNTIME, STATUS ) IF ( STATUS .NE. 0 ) WRITE( LOGDEV, '(5X, A)' ) VARDESC IF ( STATUS .EQ. 1 ) THEN XMSG = 'Environment variable improperly formatted' CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT2 ) ELSE IF ( STATUS .EQ. -1 ) THEN XMSG = 'Envirnmt variable set, but empty ... Using default:' WRITE( LOGDEV, '(5X, A, I9)' ) XMSG, BGNTIME ELSE IF ( STATUS .EQ. -2 ) THEN XMSG = 'Environment variable not set ... Using default:' WRITE( LOGDEV, '(5X, A, I9)' ) XMSG, BGNTIME END IF RUNLEN = 240000 ! default VARDESC = 'Scenario Run Duration (HHMMSS)' RUNLEN = ENVINT( CTM_RUNLEN, VARDESC, RUNLEN, STATUS ) IF ( STATUS .NE. 0 ) WRITE( LOGDEV, '(5X, A)' ) VARDESC IF ( STATUS .EQ. 1 ) THEN XMSG = 'Environment variable improperly formatted' CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT2 ) ELSE IF ( STATUS .EQ. -1 ) THEN XMSG = 'Envirnmt variable set, but empty ... Using default:' WRITE( LOGDEV, '(5X, A, I9)' ) XMSG, BGNTIME ELSE IF ( STATUS .EQ. -2 ) THEN XMSG = 'Environment variable not set ... Using default:' WRITE( LOGDEV, '(5X, A, I9)' ) XMSG, BGNTIME END IF NDAYS = 1 + FLOOR( REAL( BGNTIME + RUNLEN ) / 240000.0 ) c Allocate sensitivy arrays c IREGION ALLOCATE ( TGT_IREGION( NCOLS,NROWS,NLAYS,NPMAX ), & STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating TGT_IREGION' CALL M3EXIT ( 'TGT_IREGION', 0, 0, XMSG, XSTAT2 ) END IF TGT_IREGION = 0.0 IREGION => TGT_IREGION c IPT ALLOCATE ( TGT_IPT( NPMAX ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating TGT_IPT' CALL M3EXIT ( 'TGT_IPT', 0, 0, XMSG, XSTAT2 ) END IF TGT_IPT = 0 IPT => TGT_IPT c IPARM ALLOCATE ( TGT_IPARM( NPMAX, NSPCSD ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating TGT_IPARM' CALL M3EXIT ( 'TGT_IPARM', 0, 0, XMSG, XSTAT2 ) END IF TGT_IPARM = 0 IPARM => TGT_IPARM c GRID_FILE ALLOCATE ( TGT_GRID_FILE( NPMAX, 9 ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating TGT_GRID_FILE' CALL M3EXIT ( 'TGT_GRID_FILE', 0, 0, XMSG, XSTAT2 ) END IF TGT_GRID_FILE = ' ' GRID_FILE => TGT_GRID_FILE c PT3D_FILE ALLOCATE ( TGT_PT3D_FILE( NPMAX, 2, 9 ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating TGT_PT3D_FILE' CALL M3EXIT ( 'TGT_PT3D_FILE', 0, 0, XMSG, XSTAT2 ) END IF TGT_PT3D_FILE = ' ' PT3D_FILE => TGT_PT3D_FILE c GRID_NUM ALLOCATE ( TGT_GRID_NUM( NPMAX ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating TGT_GRID_NUM' CALL M3EXIT ( 'TGT_GRID_NUM', 0, 0, XMSG, XSTAT2 ) END IF TGT_GRID_NUM = 0 GRID_NUM => TGT_GRID_NUM c PT3D_NUM ALLOCATE ( TGT_PT3D_NUM( NPMAX ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating TGT_PT3D_NUM' CALL M3EXIT ( 'TGT_PT3D_NUM', 0, 0, XMSG, XSTAT2 ) END IF TGT_PT3D_NUM = 0 PT3D_NUM => TGT_PT3D_NUM c IAMOUNT ALLOCATE ( TGT_IAMOUNT( NPMAX, NSPCSD, 25 ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating TGT_IAMOUNT' CALL M3EXIT ( 'TGT_IAMOUNT', 0, 0, XMSG, XSTAT2 ) END IF TGT_IAMOUNT = 0.0 IAMOUNT => TGT_IAMOUNT c ILAYER ALLOCATE ( TGT_ILAYER( NPMAX, NLAYS), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating TGT_ILAYER' CALL M3EXIT ( 'TGT_ILAYER', 0, 0, XMSG, XSTAT2 ) END IF TGT_ILAYER = 0 ILAYER => TGT_ILAYER c IRXN ALLOCATE ( TGT_IRXN( NPMAX,NRXNS ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating TGT_IRXN' CALL M3EXIT ( 'TGT_IRXN', 0, 0, XMSG, XSTAT2 ) END IF TGT_IRXN = 0 IRXN => TGT_IRXN c IDATE ALLOCATE ( TGT_IDATE( NPMAX, NDAYS ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating TGT_IDATE' CALL M3EXIT ( 'TGT_IDATE', 0, 0, XMSG, XSTAT2 ) END IF TGT_IDATE = 0 IDATE => TGT_IDATE c ITIME ALLOCATE ( TGT_ITIME( NPMAX, 2 ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating TGT_ITIME' CALL M3EXIT ( 'TGT_ITIME', 0, 0, XMSG, XSTAT2 ) END IF TGT_ITIME = 0 ITIME => TGT_ITIME c SENPAR ALLOCATE ( TGT_SENPAR( NPMAX ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating TGT_SENPAR' CALL M3EXIT ( 'TGT_SENPAR', 0, 0, XMSG, XSTAT2 ) END IF TGT_SENPAR = ' ' SEN_PAR => TGT_SENPAR c Using restart file? RST = .TRUE. ! default VARDESC = 'Flag for using sensitivity restart files' RST = ENVYN( DDM3D_RST, VARDESC, RST, STATUS ) IF ( STATUS .NE. 0 ) WRITE( LOGDEV, '(5X, A)' ) VARDESC IF ( STATUS .EQ. 1 ) THEN XMSG = 'Environment variable improperly formatted' CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT2 ) ELSE IF ( STATUS .EQ. -1 ) THEN XMSG = 'Environment variable set, but empty ... Using default:' WRITE( LOGDEV, '(5X, A, A16, L5)' ) XMSG, DDM3D_RST, RST ELSE IF ( STATUS .EQ. -2 ) THEN XMSG = 'Environment variable not set ... Using default:' WRITE( LOGDEV, '(5X, A, A16, L5)' ) XMSG, DDM3D_RST, RST END IF c Reading sensitivity boundaries BCS = .FALSE. ! default VARDESC='Flag for using sensitivities BCs' BCS = ENVYN( DDM3D_BCS, VARDESC, BCS, STATUS ) IF ( STATUS .NE. 0 ) WRITE( LOGDEV, '(5X, A)' ) VARDESC IF ( STATUS .EQ. 1 ) THEN XMSG = 'Environment variable improperly formatted' CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT2 ) ELSE IF ( STATUS .EQ. -1 ) THEN XMSG = 'Environment variable set, but empty ... Using default:' WRITE( LOGDEV, '(5X, A, A16, L5)' ) XMSG, DDM3D_BCS, BCS ELSE IF ( STATUS .EQ. -2 ) THEN XMSG = 'Environment variable not set ... Using default:' WRITE( LOGDEV, '(5X, A, A16, L5)' ) XMSG, DDM3D_BCS, BCS END IF c Computing higher order sensitivities HIGH = .FALSE. ! default VARDESC='Flag for computing higher order sensitivities' HIGH = ENVYN( DDM3D_HIGH, VARDESC, HIGH, STATUS ) IF ( STATUS .NE. 0 ) WRITE( LOGDEV, '(5X, A)' ) VARDESC IF ( STATUS .EQ. 1 ) THEN XMSG = 'Environment variable improperly formatted' CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT2 ) ELSE IF ( STATUS .EQ. -1 ) THEN XMSG = 'Environment variable set, but empty ... Using default:' WRITE( LOGDEV, '(5X, A, A16, L5)' ) XMSG, DDM3D_HIGH, HIGH ELSE IF ( STATUS .EQ. -2 ) THEN XMSG = 'Environment variable not set ... Using default:' WRITE( LOGDEV, '(5X, A, A16, L5)' ) XMSG, DDM3D_HIGH, HIGH END IF c ALLOCATE( YCDDM (N_GC_SPC), STAT = ALLOCSTAT ) c IF ( ALLOCSTAT .NE. 0 ) THEN c XMSG = 'Failure allocating YCDDM' c CALL M3EXIT ( 'YCDDM', 0, 0, XMSG, XSTAT2 ) c END IF c IHIGH ALLOCATE ( TGT_IHIGH( NPMAX, 2 ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating TGT_IHIGH' CALL M3EXIT ( 'TGT_IHIGH', 0, 0, XMSG, XSTAT2 ) END IF TGT_IHIGH = 0 IHIGH => TGT_IHIGH c Emissions ALLOCATE ( S_NSTREAMS( NPMAX ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating S_NSTREAMS(NPMAX)' CALL M3EXIT ( 'INIT_DDM3D', 0, 0, XMSG, XSTAT2 ) END IF S_NSTREAMS = 0 ALLOCATE ( S_STREAMLBL( NPMAX, 99 ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating S_STREAMLBL(NPMAX,99)' CALL M3EXIT ( 'INIT_DDM3D', 0, 0, XMSG, XSTAT2 ) END IF S_STREAMLBL = 'empty' ALLOCATE ( S_NRGN( NPMAX ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating S_NRGN(NPMAX)' CALL M3EXIT ( 'INIT_DDM3D', 0, 0, XMSG, XSTAT2 ) END IF S_NRGN = 0 ALLOCATE ( S_RGNLBL( NPMAX,99 ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating S_RGNLBL(NPMAX,99)' CALL M3EXIT ( 'INIT_DDM3D', 0, 0, XMSG, XSTAT2 ) END IF S_RGNLBL = 'empty' ALLOCATE ( S_SPCLIST( NPMAX, 999 ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating S_SPCLIST( NPMAX, 999 )' CALL M3EXIT ( 'INIT_DDM3D', 0, 0, XMSG, XSTAT2 ) END IF S_SPCLIST = '' c Get sensitivity parameter information from control file CALL SINPUT( 0, 0 ) Return End Subroutine INIT_DDM3D C----------------------------------------------------------------------- Subroutine CKTIME( JDATE,JTIME,PRM,TIMEFLAG ) C----------------------------------------------------------------------- C Function: C CKTIME determines whether the current model time, JTIME, is C within the time range ITIME specified in sensinput.dat. C Returns TIMEFLAG as TRUE or FALSE. C Called by advection and diffusion routines in sensitivity analysis. C Revision History: C Created July 02 Daniel Cohan C 15th March 2006: SRTonse, LBL, if time period straddles midnight C then both dates need to be set as true and only the hours connected C to the straddling period are set with TIMEFLAG TRUE C 18 Jun 13 S.Napelenok: ddm-3d implementation for cmaq5.0.1; C moved into this module from a separate file C----------------------------------------------------------------------- Use UTILIO_DEFN Implicit None Integer, Intent(In) :: JDATE ! current date Integer, Intent(In) :: JTIME ! current model time, coded HHMMSS Integer, Intent(In) :: PRM ! number of current sensitivity parameter Logical, Intent(Out) :: TIMEFLAG ! check for valide date/time Integer :: NAD, I TIMEFLAG = .False. C time period does not straddle midnight IF ( ( JTIME .GE. ITIME ( PRM,1 )) .AND. (JTIME .LE. ITIME(PRM,2 ))) THEN TIMEFLAG = .TRUE. C time period straddles midnight ELSE IF ( ITIME ( PRM,1 ) .GT. ITIME ( PRM,2 ) ) THEN C count number of active dates set NAD = 0 DO I = 1,NDAYS IF(IDATE(PRM,I) .EQ. 1)NAD = NAD + 1 END DO C if all dates set true do not bother to test on date, test on time only IF(NAD .EQ. NDAYS)THEN TIMEFLAG = & (JTIME .GE. ITIME(PRM,1) .AND. JTIME .LE. 240000) .OR. & (JTIME .LE. ITIME(PRM,2) .AND. JTIME .GE. 0 ) ELSE C test on date, and only pick times that straddle 2 active dates I = 1 + JDATE - STARTDATE !date index in IDATE array TIMEFLAG = & (JTIME.GE.ITIME(PRM,1) .AND. JTIME .LE. 240000 & .AND. IDATE(PRM,I).EQ.1 .AND. IDATE(PRM,I+1).EQ.1) & .OR. & (JTIME.LE.ITIME(PRM,2) .AND. JTIME .GE. 0 & .AND. IDATE(PRM,I-1).EQ.1 .AND. IDATE(PRM,I).EQ.1) END IF END IF Return End Subroutine CKTIME C----------------------------------------------------------------------- End Module DDM3D_DEFN #endif ================================================ FILE: CCTM/src/ddm3d/MECHANISM_FUNCTIONS.F ================================================ #ifdef sens MODULE MECHANISM_FUNCTIONS IMPLICIT NONE INTEGER :: JDATE = 2011188 ! current Julian date (YYYYDDD) INTEGER :: JTIME = 000000 ! current time (HHMMSS) REAL( 8 ), ALLOCATABLE :: FORWARD_CONV( : ) ! CGRID to CHEM Species conversion factor REAL( 8 ), ALLOCATABLE :: REVERSE_CONV( : ) ! CHEM to CGRID Species conversion factor INTEGER :: NUMB_CHEM_SPC = 0 REAL( 8 ), ALLOCATABLE :: CONC( : ) ! concentration, ppmV REAL( 8 ), ALLOCATABLE :: DYDT( : ) ! time derivative of species REAL( 8 ), ALLOCATABLE :: JACOBIAN( :,: ) ! mechanism's jacobain matrix INTEGER, PARAMETER :: MAX_NCELLS = 1 CHARACTER( 16 ), ALLOCATABLE :: SPECIES( : ) TYPE SPECIES_BUDGET CHARACTER(16) :: SPECIES_NAME = ' ' INTEGER :: NREACTIONS = 0 INTEGER, ALLOCATABLE :: IREACTION( : ) REAL(8), ALLOCATABLE :: COEFF_NET( : ) INTEGER :: NRXNS_PROD = 0 INTEGER, ALLOCATABLE :: IRXN_PROD( : ) REAL(8), ALLOCATABLE :: COEFF_POS( : ) INTEGER :: NRXNS_LOSS = 0 INTEGER, ALLOCATABLE :: IRXN_LOSS( : ) REAL(8), ALLOCATABLE :: COEFF_NEG( : ) END TYPE SPECIES_BUDGET TYPE REACTION_EFFECTS CHARACTER(16) :: REACTION_LABEL = ' ' LOGICAL :: LIGHT_DEPENDENT = .FALSE. REAL( 8 ) :: RATE = 0.0D0 INTEGER :: NREACTANTS = 0 INTEGER :: REACTANT( 3 ) = 0 INTEGER :: NSPECIES_DESTROYED = 0 INTEGER, ALLOCATABLE :: ISPECIES_DESTROYED( : ) REAL(8), ALLOCATABLE :: COEFF_LOSS( : ) INTEGER :: NSPECIES_PRODUCED = 0 INTEGER, ALLOCATABLE :: ISPECIES_PRODUCED( : ) REAL(8), ALLOCATABLE :: COEFF_PROD( : ) INTEGER :: NSPECIES_NPRODUCED = 0 INTEGER, ALLOCATABLE :: ISPECIES_NPRODUCED( : ) REAL(8), ALLOCATABLE :: COEFF_NPROD( : ) INTEGER :: JACOB_OCCURANCES INTEGER, ALLOCATABLE :: JACOB_PARTIAL_INDEX( : ) INTEGER, ALLOCATABLE :: JACOB_PARTIAL_VECTOR( : ) INTEGER, ALLOCATABLE :: JACOB_PARTIAL_ROW( : ) INTEGER, ALLOCATABLE :: JACOB_PARTIAL_COL( : ) REAL(8), ALLOCATABLE :: JACOB_PARTIAL_COEFF( : ) END TYPE REACTION_EFFECTS INTEGER :: JACOBIAN_TERMS = 0 TYPE(REACTION_EFFECTS), ALLOCATABLE :: REACTION_CHART ( : ) INTEGER :: IDX_FMCL = 0 INTEGER :: DDM_LOG = 6 ! Unit number of output log INTEGER :: ERROR_LOG = 6 LOGICAL :: CHECK_MECHANISM = .FALSE. ! write out Jacobian and derivatives values LOGICAL :: CHECK_SORTING = .FALSE. ! write out result of mechanism species sorting #ifdef verbose_ddm3d LOGICAL :: REPORT_CHART = .TRUE. ! write out species derivations and mechanism jacobian #else LOGICAL :: REPORT_CHART = .FALSE. ! do not write out species derivations and mechanism jacobian #endif !!!!!!REAL( 8 ), ALLOCATABLE :: RKI( : ) ! Rate constants REAL( 8 ), ALLOCATABLE :: RKI_SAV( :,: ) ! Rate constants REAL( 8 ), ALLOCATABLE :: SYC( :, : ) ! Species concentrations REAL( 8 ), ALLOCATABLE :: RXRAT( : ) ! Reaction rates REAL( 8 ), ALLOCATABLE :: RTOL( : ) ! Species tolerances REAL( 8 ), ALLOCATABLE :: PROD( : ) ! Prod of species REAL( 8 ), ALLOCATABLE :: LOSS( : ) ! Loss of species REAL( 8 ), ALLOCATABLE :: LOSSF( : ) ! Loss Frequency of species INTEGER, ALLOCATABLE :: JOLD2NEW( :,: ) ! YC species map INTEGER, ALLOCATABLE :: JNEW2OLD( :,: ) ! YC species map INTEGER, ALLOCATABLE :: ISPECIES_REACTION( :,: ) ! species index for each reaction INTEGER :: CHANGING_SPECIES = 0 ! mechanism species affected by reactions INTEGER :: STEADY_SPECIES = 0 ! mechanism species not affected by reactions LOGICAL, ALLOCATABLE :: JACOBIAN_FILLED( :,:,: ) ! Is Jacobian position nonzero LOGICAL :: LSUNLIGHT = .TRUE. REAL( 8 ), ALLOCATABLE, PRIVATE :: ATMPRES ( : ) ! Cell pressure, Atm REAL( 8 ), ALLOCATABLE, PRIVATE :: H2O ( : ) ! Cell H2O mixing ratio (ppmV) REAL( 8 ), ALLOCATABLE, PRIVATE :: TEMP ( : ) ! Cell Temperature REAL( 8 ), ALLOCATABLE, PRIVATE :: DENS ( : ) ! Cell mass density (kg/m3) REAL( 8 ), ALLOCATABLE, PRIVATE :: HET ( :, : ) ! cell heterogeneous reaction rates REAL( 8 ), ALLOCATABLE, PRIVATE :: RJIN ( :, : ) ! J-values for a cell LOGICAL, ALLOCATABLE, PRIVATE :: LAND ( : ) ! land_zone value for specific cell LOGICAL :: RESET_JACOBIAN = .FALSE. CONTAINS SUBROUTINE SET_MECHANISM( ) USE RXNS_DATA USE RXNS_FUNCTION USE UTILIO_DEFN C Initialize arrays and maps that store reaction rates in each grid cell and that C relate ISAM species to chemistry species C C Called by chemistry driver IMPLICIT NONE C..Includes: ! INCLUDE SUBST_CONST ! CMAQ constants CHARACTER( 16 ), PARAMETER :: PNAME = 'SET_MECHANISM' ! Program name C..arguments: C..Parameters: INTEGER :: I, J, RXN, IP, IPNEG, IL, ISPC INTEGER :: NCELL INTEGER :: IOS INTEGER :: C, L, R, S ! Loop indices INTEGER :: SPC ! array index INTEGER :: MIN_NEW_SPECIES ! Index holder for sort routine INTEGER :: MIN_OLD_SPECIES ! Index holder for sort routine INTEGER :: MIN_COUNT ! Current minimum number of PD terms in sort INTEGER INEW, JNEW ! Index for sorted species number INTEGER IOLD, JOLD ! Index for old species number INTEGER IMINNEW ! Index holder for sort routine INTEGER IMINOLD ! Index holder for sort routine INTEGER MINVALU ! Current number of PD terms in sort LOGICAL :: EXISTS LOGICAL :: EFLAG LOGICAL :: SWAPPING LOGICAL, SAVE :: INITIALIZED = .FALSE. CHARACTER( 132 ) :: MSG ! Message text CHARACTER( 32 ) :: SWAPPED_NAME REAL :: HEIGHT REAL( 8 ) :: FACTOR ! conversion factor INTEGER, ALLOCATABLE :: SORTED_COUNT ( : ) ! # of Jacobain partial derivations per species INTEGER, ALLOCATABLE :: JACOBIAN_COUNT( : ) ! # of Jacobain partial derivations per species CHARACTER( 32 ), ALLOCATABLE :: SWAPPED_NAMES( : ) IF ( INITIALIZED ) RETURN EFLAG = .FALSE. ERROR_LOG = DDM_LOG INITIALIZED = .TRUE. !!!!!!!!!!!!ALLOCATE( RKI( NRXNS ), ALLOCATE( & RXRAT( NRXNS ), & PROD( NUMB_MECH_SPC), & LOSS( NUMB_MECH_SPC), & LOSSF( NUMB_MECH_SPC), & STAT = IOS ) IF ( IOS .NE. 0 ) THEN !!!!!!!!!!!!!!!MSG = 'Error allocating RKI, RXRAT, PROD, LOSS' MSG = 'Error allocatin RXRAT, PROD, LOSS' WRITE(ERROR_LOG,*)TRIM(MSG) EFLAG = .TRUE. END IF ALLOCATE( ATMPRES( MAX_NCELLS ), & H2O ( MAX_NCELLS ), & TEMP ( MAX_NCELLS ), & DENS ( MAX_NCELLS ), & HET ( MAX_NCELLS, NHETERO ), & RJIN ( MAX_NCELLS, NPHOTAB ), & LAND ( MAX_NCELLS ) , & STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating ATMPRES, H2O, TEMP, HET, RJIN, LAND ' WRITE(ERROR_LOG,*)TRIM(MSG) EFLAG = .TRUE. END IF IF( NSPECIAL .GT. 0 )THEN ALLOCATE( SYC( MAX_NCELLS, NUMB_MECH_SPC ), STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating SYC' WRITE(ERROR_LOG,*)TRIM(MSG) EFLAG = .TRUE. END IF ALLOCATE( RKI_SAV( NRXNS,MAX_NCELLS ), STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating RKI_SAV' WRITE(ERROR_LOG,*)TRIM(MSG) EFLAG = .TRUE. END IF END IF ALLOCATE( JOLD2NEW( NUMB_MECH_SPC,1 ), & JNEW2OLD( NUMB_MECH_SPC,1 ), STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating JOLD2NEW or JNEW2OLD' WRITE(ERROR_LOG,*)TRIM(MSG) EFLAG = .TRUE. ELSE MSG = 'JOLD2NEW or JNEW2OLD allocated' WRITE(ERROR_LOG,*)TRIM(MSG) END IF DO I = 1, NUMB_MECH_SPC JOLD2NEW( I,1 ) = I JNEW2OLD( I,1 ) = I END DO ALLOCATE( SORTED_COUNT( NUMB_MECH_SPC), & JACOBIAN_COUNT( NUMB_MECH_SPC), STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating JACOBIAN_COUNT' WRITE(ERROR_LOG,*)TRIM(MSG) EFLAG = .TRUE. END IF JACOBIAN_COUNT = 0 SORTED_COUNT = 0 ALLOCATE( SWAPPED_NAMES( NUMB_MECH_SPC), STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating SWAPPED_NAMES' WRITE(ERROR_LOG,*)TRIM(MSG) EFLAG = .TRUE. END IF SWAPPED_NAMES = 'BLANK' ALLOCATE( ISPECIES_REACTION(MXPRD+3,NRXNS), STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating ISPECIES_REACTION' WRITE(ERROR_LOG,*)TRIM(MSG) EFLAG = .TRUE. END IF DO RXN = 1,NRXNS DO SPC = 1,MXPRD+3 ISPECIES_REACTION( SPC,RXN ) = IRR( RXN,SPC ) END DO END DO ALLOCATE( DYDT( NUMB_MECH_SPC ), STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating DYDT array' WRITE(ERROR_LOG,*)TRIM(MSG) EFLAG = .TRUE. END IF IF ( EFLAG ) THEN MSG = 'Above Fatal Error encountered ' WRITE(ERROR_LOG,*)TRIM(MSG) CALL M3EXIT ( PNAME, 0, 0, MSG, XSTAT2 ) END IF ! map species time derivative and jacobian array CALL CHART_IRR ! Set the number of Partial derivative terms in the Jacobian and ! count the number of terms for each species DO I = 1, NUMB_MECH_SPC DO J = 1, NUMB_MECH_SPC IF ( JACOBIAN_FILLED( J,I,1 ) ) THEN JACOBIAN_COUNT( J ) = JACOBIAN_COUNT( J ) + 1 END IF END DO END DO ! Sort the species, putting all with zero partial derivative ! terms at the bottom and those with fewest PD terms at top. ! Set arrays for species with zero PD terms STEADY_SPECIES = NUMB_MECH_SPC DO JOLD = 1, NUMB_MECH_SPC IF ( JACOBIAN_COUNT( JOLD ) .GT. 0 ) THEN CHANGING_SPECIES = CHANGING_SPECIES + 1 JNEW = CHANGING_SPECIES JNEW2OLD( JNEW,1 ) = JOLD JOLD2NEW( JOLD,1 ) = JNEW ELSE JNEW2OLD( CHANGING_SPECIES,1 ) = JOLD JOLD2NEW( JOLD,1 ) = STEADY_SPECIES STEADY_SPECIES = STEADY_SPECIES - 1 END IF END DO STEADY_SPECIES = NUMB_MECH_SPC-CHANGING_SPECIES IF (CHECK_SORTING )THEN WRITE( DDM_LOG,'(A)')'Initial Mechanism Species sorted based on their mechanism activity' WRITE( DDM_LOG,'(A,2(I4,1X))')'Changeing Species, Steady State Species ',CHANGING_SPECIES, & STEADY_SPECIES WRITE( DDM_LOG,'(A16,1X,4(A16,1X))')'ISPECIES', 'Original','Sorted','Check','JCOUNT' DO ISPC = 1, CHANGING_SPECIES I = JOLD2NEW( ISPC,1 ) J = JNEW2OLD( I,1 ) WRITE(DDM_LOG,'(I4,13X,3(A16,1X),I16)')ISPC, & CHEMISTRY_SPC(ISPC),CHEMISTRY_SPC(I),CHEMISTRY_SPC(J),JACOBIAN_COUNT(I) END DO END IF ! Now sort by number of PD terms, fewest at position 1, most at ! the end position. DO JNEW = 1, CHANGING_SPECIES c Uncomment the following three lines to turn off species ordering; c not recommended since computational efficiency reduced ! INEW2OLD( JNEW,NCS ) = JNEW ! IOLD2NEW( JNEW,NCS ) = JNEW ! IF ( JNEW .NE. 0 ) CYCLE JOLD = JNEW2OLD( JNEW,1 ) MINVALU = JACOBIAN_COUNT( JOLD ) IMINOLD = JOLD IMINNEW = JNEW DO INEW = JNEW + 1, CHANGING_SPECIES IOLD = JNEW2OLD( INEW,1 ) IF ( JACOBIAN_COUNT( IOLD ) .LT. MINVALU ) THEN MINVALU = JACOBIAN_COUNT( IOLD ) IMINOLD = IOLD IMINNEW = INEW END IF END DO JNEW2OLD( IMINNEW,1 ) = JOLD JNEW2OLD( JNEW,1 ) = IMINOLD JOLD2NEW( JOLD,1 ) = IMINNEW JOLD2NEW( IMINOLD,1 ) = JNEW END DO DO J = 1,NUMB_MECH_SPC JNEW = JOLD2NEW( J,1 ) SORTED_COUNT(JNEW) = JACOBIAN_COUNT( J ) END DO JACOBIAN_COUNT = SORTED_COUNT ! Alternative method for sorting species for species names ! SWAPPED_NAMES = CHEMISTRY_SPC ! DO J = CHANGING_SPECIES-1,1,-1 ! SWAPPING = .FALSE. ! DO I = 1,J ! IF ( JACOBIAN_COUNT(I) .GT. JACOBIAN_COUNT(I+1) )THEN ! MINVALU = JACOBIAN_COUNT(I+1) ! JACOBIAN_COUNT(I+1) = JACOBIAN_COUNT(I) ! JACOBIAN_COUNT(I) = MINVALU ! SWAPPED_NAME = SWAPPED_NAMES(I+1) ! SWAPPED_NAMES(I+1) = SWAPPED_NAMES(I) ! SWAPPED_NAMES(I) = SWAPPED_NAME ! SWAPPING = .TRUE. ! END IF ! END DO ! IF( .NOT. SWAPPING ) EXIT ! END DO ! DO I = 1, NUMB_MECH_SPC ! WRITE(DDM_LOG,'(I4,1X,A)')I,SWAPPED_NAMES(I) ! END DO ! DO J = 1,CHANGING_SPECIES ! DO I = 1,CHANGING_SPECIES ! IF( TRIM(CHEMISTRY_SPC(J)) .EQ. TRIM( SWAPPED_NAMES(I) ) )THEN ! JOLD2NEW(J,1) = I ! JNEW2OLD(I,1) = J ! WRITE(DDM_LOG,'(I4,1X,A,2(1X,I4))')J,CHEMISTRY_SPC(J),JOLD2NEW(J,1),JNEW2OLD(I,1) ! END IF ! END DO ! END DO IF (CHECK_SORTING )THEN ! Write sorting results WRITE( DDM_LOG,'(A)')'Mechanism Species sorted based on their mechanism activity' WRITE( DDM_LOG,'(A,2(I4,1X))')'Changeing Species, Steady State Species ',CHANGING_SPECIES, & STEADY_SPECIES WRITE( DDM_LOG,'(A16,1X,4(A16,1X))')'ISPECIES', 'Original','Sorted','Check','JCOUNT' DO ISPC = 1, NUMB_MECH_SPC I = JOLD2NEW( ISPC,1 ) J = JNEW2OLD( I,1 ) S = JNEW2OLD( ISPC,1 ) WRITE(DDM_LOG,'(I4,13X,3(A16,1X),I16)')ISPC, & CHEMISTRY_SPC(ISPC),CHEMISTRY_SPC(S),CHEMISTRY_SPC(J),JACOBIAN_COUNT(ISPC) END DO END IF RESET_JACOBIAN = .TRUE. ! Reset the ISPECIES_REACTION array using the new species order developed above. DO RXN = 1, NRXNS DO I = 1, NREACT( RXN ) J = ISPECIES_REACTION( I,RXN ) ISPECIES_REACTION( I,RXN ) = JOLD2NEW( J,1 ) END DO DO I = 1, NPRDCT( RXN ) J = ISPECIES_REACTION( I+3,RXN ) ISPECIES_REACTION( I+3,RXN ) = JOLD2NEW( J,1 ) END DO END DO DEALLOCATE( JACOBIAN_COUNT, SORTED_COUNT ) IF( CHECK_MECHANISM )CHECK_MECHANISM = .FALSE. 95000 FORMAT(I4,1X,A16,' = ',4(ES12.4,', ')) 95001 FORMAT('At JDATE, JTIME, DTSTEP = ',(I7.7,1X,I6.6,1X,I6.6)) 95002 FORMAT('At JDATE, JTIME, DTSTEP = ',(I7.7,1X,I6.6,1X,I6.6), & ': Sun Down, Photolysis off') 95003 FORMAT('At JDATE, JTIME, DTSTEP = ',(I7.7,1X,I6.6,1X,I6.6), & ': Sun Up, Photolysis on') END SUBROUTINE SET_MECHANISM SUBROUTINE CHART_IRR() USE RXNS_DATA USE UTILIO_DEFN C Initialize arrays and maps that store reaction rates in each grid cell and that C relate ISAM species to chemistry species C C Called by chemistry driver IMPLICIT NONE C..Includes: ! INCLUDE SUBST_CONST ! CMAQ constants CHARACTER( 16 ), PARAMETER :: PNAME = 'CHART_IRR' ! Program name INTEGER :: I, J, RXN, IP, IPNEG, IL INTEGER :: IPROD, ILOSS, IREACT INTEGER :: IOSTAT INTEGER :: C, L, R, S ! Loop indices INTEGER :: SPC ! array index INTEGER :: IOS REAL(8) :: COEFF CHARACTER( 132 ) :: MSG ! Message text ! temporary variables to define REACTION_CHART INTEGER, ALLOCATABLE :: ISPECIES_NPROD( : ) INTEGER, ALLOCATABLE :: ISPECIES_PROD( : ) INTEGER, ALLOCATABLE :: ISPECIES_LOSS( : ) INTEGER, ALLOCATABLE :: COEFF_NPROD( : ) REAL(8), ALLOCATABLE :: COEFF_PROD( : ) REAL(8), ALLOCATABLE :: COEFF_LOSS( : ) INTEGER :: JACOB_OCCURANCES INTEGER, ALLOCATABLE :: JACOB_PARTIAL_INDEX( : ) INTEGER, ALLOCATABLE :: JACOB_PARTIAL_ROW( : ) INTEGER, ALLOCATABLE :: JACOB_PARTIAL_COL( : ) REAL(8), ALLOCATABLE :: JACOB_PARTIAL_COEFF( : ) C======================================================= !DDM_LOG = 6 ALLOCATE( ISPECIES_NPROD( MXPRD ), & ISPECIES_PROD( MXPRD ), & ISPECIES_LOSS( 3 ), & COEFF_NPROD( MXPRD ), & COEFF_PROD( MXPRD ), & COEFF_LOSS( 3 ), STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating IREACTION and COEFF_NET arrays' CALL M3EXIT ( PNAME, 0, 0, MSG, XSTAT2 ) END IF ALLOCATE( JACOB_PARTIAL_INDEX(3*NUMB_MECH_SPC*NRXNS), & JACOB_PARTIAL_COEFF(3*NUMB_MECH_SPC*NRXNS), & JACOB_PARTIAL_ROW(3*NUMB_MECH_SPC*NRXNS), & JACOB_PARTIAL_COL(3*NUMB_MECH_SPC*NRXNS), STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating JACOB arrays' CALL M3EXIT ( PNAME, 0, 0, MSG, XSTAT2 ) END IF ! set matrix noting where day/night jacobian of chemistry ODE is always zero. ALLOCATE( JACOBIAN_FILLED( NUMB_MECH_SPC,NUMB_MECH_SPC,2 ), STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating YDOT array' CALL M3EXIT ( PNAME, 0, 0, MSG, XSTAT2 ) END IF JACOBIAN_FILLED = .FALSE. DO I = 1, NUMB_MECH_SPC ! set diagonal to to true JACOBIAN_FILLED(I,I,1:2) = .TRUE. END DO ! find each reaction affect each reactant and product ALLOCATE( REACTION_CHART( NRXNS ), STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating MECHANISM_BUDGET' CALL M3EXIT ( PNAME, 0, 0, MSG, XSTAT2 ) END IF DO R = 1, NRXNS IP = 0 IL = 0 IPNEG = 0 JACOB_OCCURANCES = 0 JACOB_PARTIAL_INDEX = 0 JACOB_PARTIAL_COEFF = 0.0D0 JACOB_PARTIAL_ROW = 0 JACOB_PARTIAL_COL = 0 DO SPC = 1, NUMB_MECH_SPC COEFF = ASSESS_REACTION( SPC, R, ILOSS, IPROD ) IF( ABS( COEFF ) .GT. 1.0D-8 )THEN IF( COEFF .GT. 0.0D0 )THEN IP = IP + 1 ISPECIES_PROD( IP ) = SPC COEFF_PROD ( IP ) = COEFF ELSE IF( COEFF .LT. 0.0D0 )THEN IF( ILOSS .GT. 0 )THEN IL = IL + 1 ISPECIES_LOSS( IL ) = SPC COEFF_LOSS ( IL ) = COEFF ELSE IP = IP + 1 IPNEG = IPNEG + 1 ISPECIES_PROD( IP ) = SPC COEFF_PROD ( IP ) = COEFF ISPECIES_NPROD( IPNEG ) = SPC COEFF_NPROD ( IPNEG ) = COEFF END IF END IF DO IREACT = 1, NREACT( R ) JACOB_OCCURANCES = JACOB_OCCURANCES + 1 JACOB_PARTIAL_ROW(JACOB_OCCURANCES) = SPC JACOB_PARTIAL_COL(JACOB_OCCURANCES) = IRR(R,IREACT) JACOBIAN_FILLED( SPC, IRR(R,IREACT), 1 ) = .TRUE. IF ( KTYPE( R ) .NE. 0 .AND. KTYPE( R ) .NE. 12 ) THEN JACOBIAN_FILLED( SPC, IRR(R,IREACT), 2 ) = .TRUE. ELSE REACTION_CHART( R )%LIGHT_DEPENDENT = .TRUE. END IF JACOB_PARTIAL_INDEX(JACOB_OCCURANCES) = IREACT JACOB_PARTIAL_COEFF(JACOB_OCCURANCES) = COEFF END DO END IF END DO IF( JACOB_OCCURANCES .GT. 0 ) THEN REACTION_CHART( R )%JACOB_OCCURANCES = JACOB_OCCURANCES JACOBIAN_TERMS = JACOBIAN_TERMS + JACOB_OCCURANCES ALLOCATE( REACTION_CHART( R )%JACOB_PARTIAL_INDEX ( JACOB_OCCURANCES ), & REACTION_CHART( R )%JACOB_PARTIAL_ROW ( JACOB_OCCURANCES ), & REACTION_CHART( R )%JACOB_PARTIAL_VECTOR( JACOB_OCCURANCES ), & REACTION_CHART( R )%JACOB_PARTIAL_COEFF ( JACOB_OCCURANCES ), & REACTION_CHART( R )%JACOB_PARTIAL_COL ( JACOB_OCCURANCES ), STAT = IOS ) DO S = 1, JACOB_OCCURANCES REACTION_CHART( R )%JACOB_PARTIAL_ROW( S ) = JACOB_PARTIAL_ROW( S ) REACTION_CHART( R )%JACOB_PARTIAL_COL( S ) = JACOB_PARTIAL_COL( S ) REACTION_CHART( R )%JACOB_PARTIAL_INDEX ( S ) = JACOB_PARTIAL_INDEX( S ) REACTION_CHART( R )%JACOB_PARTIAL_VECTOR( S ) = 0 REACTION_CHART( R )%JACOB_PARTIAL_COEFF ( S ) = JACOB_PARTIAL_COEFF( S ) END DO END IF REACTION_CHART( R )%NREACTANTS = NREACT( R ) REACTION_CHART( R )%REACTANT( 1:3 ) = IRR( R,1:3 ) IF( IP .GT. 0 )THEN REACTION_CHART( R )%NSPECIES_PRODUCED = IP ALLOCATE( REACTION_CHART( R )%ISPECIES_PRODUCED( IP ), & REACTION_CHART( R )%COEFF_PROD( IP ), STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating production MECHANISM_BUDGET arrays' CALL M3EXIT ( PNAME, 0, 0, MSG, XSTAT2 ) END IF REACTION_CHART( R )%ISPECIES_PRODUCED( 1:IP ) = ISPECIES_PROD( 1:IP ) REACTION_CHART( R )%COEFF_PROD( 1:IP ) = COEFF_PROD( 1:IP ) END IF IF( IPNEG .GT. 0 )THEN REACTION_CHART( R )%NSPECIES_NPRODUCED = IPNEG ALLOCATE( REACTION_CHART( R )%ISPECIES_NPRODUCED( IPNEG ), & REACTION_CHART( R )%COEFF_NPROD( IPNEG ), STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating production MECHANISM_BUDGET arrays' CALL M3EXIT ( PNAME, 0, 0, MSG, XSTAT2 ) END IF REACTION_CHART( R )%ISPECIES_NPRODUCED( 1:IPNEG ) = ISPECIES_NPROD( 1:IPNEG ) REACTION_CHART( R )%COEFF_NPROD( 1:IPNEG ) = COEFF_NPROD( 1:IPNEG ) END IF IF( IL .GT. 0 )THEN REACTION_CHART( R )%NSPECIES_DESTROYED = IL ALLOCATE( REACTION_CHART( R )%ISPECIES_DESTROYED( IL ), & REACTION_CHART( R )%COEFF_LOSS( IL ), STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating production MECHANISM_BUDGET arrays' CALL M3EXIT ( PNAME, 0, 0, MSG, XSTAT2 ) END IF REACTION_CHART( R )%ISPECIES_DESTROYED( 1:IL ) = ISPECIES_LOSS( 1:IL ) REACTION_CHART( R )%COEFF_LOSS( 1:IL ) = COEFF_LOSS( 1:IL ) END IF END DO DEALLOCATE( ISPECIES_LOSS, & ISPECIES_PROD, & ISPECIES_NPROD, & COEFF_PROD, & COEFF_NPROD, & COEFF_LOSS ) IF ( REPORT_CHART ) THEN ! report budget for mechanism reaction chart CALL REPORT_REACTION_CHART( DDM_LOG ) END IF END SUBROUTINE CHART_IRR SUBROUTINE REPORT_REACTION_CHART( OUT_UNIT ) ! purpose writes out USE RXNS_DATA IMPLICIT NONE !..Arguments: INTEGER, INTENT( IN ) :: OUT_UNIT ! output unit # INTEGER SPC, ISPC, JSPC, KSPC, LSPC INTEGER IL, IR, IRXN, NR REAL(8) FACTOR CHARACTER( 56 ), ALLOCATABLE :: RXN_STRING CHARACTER( 56 ), ALLOCATABLE :: REACTION_STRING( : ) LOGICAL, SAVE :: REACTION_AFFECTS = .FALSE. ALLOCATE( REACTION_STRING( NRXNS ) ) IF ( REACTION_AFFECTS ) THEN DO IRXN = 1, NRXNS RXN_STRING = RXLABEL( IRXN ) DO NR = 1, NREACT( IRXN ) IR = IRR( IRXN,NR ) !IR = JNEW2OLD( IR,1 ) IF( NR .EQ. 1 )THEN RXN_STRING = TRIM( RXN_STRING ) & // ': ' // TRIM( CHEMISTRY_SPC( IR ) ) ELSE RXN_STRING = TRIM( RXN_STRING ) & // ' + ' // TRIM( CHEMISTRY_SPC( IR ) ) END IF END DO WRITE(OUT_UNIT,'(A)')TRIM( RXN_STRING ) // ' has below net coefficients and species ' WRITE(OUT_UNIT,'(4X,A)')'Reactants Lost:' DO NR = 1, REACTION_CHART( IRXN )%NSPECIES_DESTROYED IR = REACTION_CHART( IRXN )%ISPECIES_DESTROYED( NR ) !IR = JNEW2OLD( IR,1 ) WRITE(OUT_UNIT,97001)REACTION_CHART( IRXN )%COEFF_LOSS( NR ),CHEMISTRY_SPC( IR ) END DO IF( REACTION_CHART( IRXN )%NSPECIES_NPRODUCED .GT. 0 )THEN WRITE(OUT_UNIT,'(4X,A)')'Products Yielded (Note Negative Product Coefficients):' ELSE WRITE(OUT_UNIT,'(4X,A)')'Products Yielded:' END IF DO NR = 1, REACTION_CHART( IRXN )%NSPECIES_PRODUCED IR = REACTION_CHART( IRXN )%ISPECIES_PRODUCED( NR ) !IR = JNEW2OLD( IR,1 ) WRITE(OUT_UNIT,97001)REACTION_CHART( IRXN )%COEFF_PROD( NR ),CHEMISTRY_SPC( IR ) END DO END DO END IF ! create string containing reactants for individual reactions DO IRXN = 1, NRXNS REACTION_STRING( IRXN ) = RXLABEL( IRXN ) DO NR = 1, NREACT( IRXN ) IR = IRR( IRXN,NR ) !IR = JNEW2OLD( IR,1 ) IF( NR .EQ. 1 )THEN REACTION_STRING( IRXN ) = TRIM( REACTION_STRING( IRXN ) ) & // ': ' // TRIM( CHEMISTRY_SPC( IR ) ) ELSE REACTION_STRING( IRXN ) = TRIM( REACTION_STRING( IRXN ) ) & // ' + ' // TRIM( CHEMISTRY_SPC( IR ) ) END IF END DO END DO ! write out species loss and production rates DO ISPC = 1, NUMB_MECH_SPC JSPC = ISPC ! JNEW2OLD( ISPC,1 ) WRITE(OUT_UNIT,*)"ISPC, JSPC: ",ISPC,JSPC WRITE(OUT_UNIT,'(A)')'LOSS(' // TRIM( CHEMISTRY_SPC( JSPC ) ) // ') = 0.0 ' DO IRXN = 1, NRXNS DO NR = 1, REACTION_CHART( IRXN )%NSPECIES_DESTROYED IR = REACTION_CHART( IRXN )%ISPECIES_DESTROYED( NR ) !IR = JNEW2OLD( IR,1 ) IF ( IR .EQ. JSPC ) THEN FACTOR = REACTION_CHART( IRXN )%COEFF_LOSS( NR ) IF( FACTOR .GT. 0.0D0 )THEN WRITE(OUT_UNIT,97002)'& + ',abs(FACTOR), & '*Reaction(' // TRIM( RXLABEL( IRXN ) ) // ') ! ' & // TRIM( REACTION_STRING( IRXN ) ) ELSE WRITE(OUT_UNIT,97002)'& - ',abs(FACTOR), & '*Reaction(' // TRIM( RXLABEL( IRXN ) ) // ') ! ' & // TRIM( REACTION_STRING( IRXN ) ) END IF END IF END DO END DO WRITE(OUT_UNIT,'(A)')'PROD(' // TRIM( CHEMISTRY_SPC( JSPC ) ) // ') = 0.0 ' DO IRXN = 1, NRXNS DO NR = 1, REACTION_CHART( IRXN )%NSPECIES_PRODUCED IR = REACTION_CHART( IRXN )%ISPECIES_PRODUCED( NR ) !IR = JNEW2OLD( IR,1 ) IF ( IR .EQ. JSPC ) THEN FACTOR = REACTION_CHART( IRXN )%COEFF_PROD( NR ) IF( FACTOR .GT. 0.0D0 )THEN WRITE(OUT_UNIT,97002)'& + ',abs(FACTOR), & '*Reaction(' // TRIM( RXLABEL( IRXN ) ) // ') ! ' & // TRIM( REACTION_STRING( IRXN ) ) ELSE WRITE(OUT_UNIT,97002)'& - ',abs(FACTOR), & '*Reaction(' // TRIM( RXLABEL( IRXN ) ) // ') ! ' & // TRIM( REACTION_STRING( IRXN ) ) END IF END IF END DO END DO END DO ! write out Jacobian(i,j) values DO ISPC = 1, NUMB_MECH_SPC KSPC = ISPC ! JNEW2OLD( ISPC,1 ) DO JSPC = 1, NUMB_MECH_SPC LSPC = JSPC ! JNEW2OLD( JSPC,1 ) WRITE(OUT_UNIT,'(A)')'JACOBIAN( ' // TRIM( CHEMISTRY_SPC( KSPC ) ) & // ',' // TRIM( CHEMISTRY_SPC( LSPC ) ) // ' ) = 0.0 ' DO IRXN = 1, NRXNS DO IL = 1, REACTION_CHART( IRXN )%JACOB_OCCURANCES IF( REACTION_CHART( IRXN )%JACOB_PARTIAL_ROW( IL ) .EQ. KSPC & .AND. REACTION_CHART( IRXN )%JACOB_PARTIAL_COL( IL ) .EQ. LSPC )THEN SPC = REACTION_CHART( IRXN )%JACOB_PARTIAL_INDEX( IL ) !SPC = JNEW2OLD( SPC,1 ) IF( REACTION_CHART( IRXN )%JACOB_PARTIAL_COEFF( IL ) .GT. 0.0 )THEN WRITE(OUT_UNIT,97002)'& + ', & abs( REACTION_CHART( IRXN )%JACOB_PARTIAL_COEFF( IL ) ), & '*dReaction(' ,TRIM( RXLABEL( IRXN ) ),')/d' // TRIM( CHEMISTRY_SPC( IRR(IRXN,SPC) ) ) ELSE WRITE(OUT_UNIT,97002)'& - ',abs(REACTION_CHART( IRXN )%JACOB_PARTIAL_COEFF( IL )), & '*dReaction(',TRIM( RXLABEL( IRXN ) ),')/d' // TRIM( CHEMISTRY_SPC( IRR(IRXN,SPC) ) ) END IF END IF END DO END DO END DO END DO 97001 FORMAT(7X,F7.4,'*',A) 97002 FORMAT(5X,A,F8.5,A,A,A) END SUBROUTINE REPORT_REACTION_CHART SUBROUTINE EVALUATE_F_JAC_MECH( YIN, RKI, JAC ) C*********************************************************************** C C Function: Compute the Jacobian matrix, [J] ( Jij = d[dCi/dt]/dCj ) C C Preconditions: None C C Key Subroutines/Functions Called: None C C*********************************************************************** USE RXNS_DATA IMPLICIT NONE C..Includes: C..Arguments: REAL( 8 ), INTENT( IN ) :: YIN( : ) ! species concs, ppm REAL( 8 ), INTENT( IN ) :: RKI( : ) ! Rate constants so reaction rates are ppm//min REAL( 4 ), INTENT(OUT) :: JAC( :,:) ! jacobian values C..Parameters: None C..External Functions: None C..Local Variables: INTEGER JR1, JR2, JR3 ! Pointer to reactant species conc. INTEGER JROW ! Jacobian Row INTEGER JCOL ! Jacobian Column INTEGER NP ! Loop index over partial derivation terms INTEGER IPART ! index for partial derivation of reaction INTEGER NRK ! Reaction number INTEGER IOS REAL( 8 ) :: CR2 ! Temporary product for 3 reactant reaction REAL( 8 ) :: FRACN ! Stoichiometric coefficient REAL( 8 ) :: EXPLIC( 3 ) ! Reaction partial derivatives LOGICAL, SAVE :: INITIALIZE = .TRUE. INTEGER, ALLOCATABLE :: JACOBIAN_COL( : ) INTEGER, ALLOCATABLE :: JACOBIAN_ROW( : ) CHARACTER(16), ALLOCATABLE :: JACOBIAN_COL_SPECIES( : ) CHARACTER(16), ALLOCATABLE :: JACOBIAN_ROW_SPECIES( : ) C*********************************************************************** IF( RESET_JACOBIAN )THEN ! reroder row and columns of Jacobian ! using sorted species maps DO NRK = 1, NRXNS DO NP = 1, REACTION_CHART( NRK )%JACOB_OCCURANCES JROW = REACTION_CHART( NRK )%JACOB_PARTIAL_ROW( NP ) JCOL = REACTION_CHART( NRK )%JACOB_PARTIAL_COL( NP ) JROW = JOLD2NEW( JROW,1 ) JCOL = JOLD2NEW( JCOL,1 ) REACTION_CHART( NRK )%JACOB_PARTIAL_ROW( NP ) = JROW REACTION_CHART( NRK )%JACOB_PARTIAL_COL( NP ) = JCOL END DO END DO DO NRK = 1, NRXNS DO NP = 1,REACTION_CHART( NRK )%NREACTANTS JR1 = JOLD2NEW( REACTION_CHART( NRK )%REACTANT( NP ),1 ) REACTION_CHART( NRK )%REACTANT( NP ) = JR1 END DO END DO RESET_JACOBIAN = .FALSE. END IF IF( INITIALIZE )THEN INITIALIZE = .FALSE. END IF c...initialize Jacobian JAC( :,: ) = 0.0 cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Loop over reaction rates adding partial derivatives; EXPLIC c holds the values according to number of reactants cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc LOOP_REACTIONS: DO NRK = 1, NRXNS IF( REACTION_CHART( NRK )%LIGHT_DEPENDENT .AND. .NOT. LSUNLIGHT )CYCLE c...partial derivatives for reactions with 1 reactant SELECT CASE ( REACTION_CHART( NRK )%NREACTANTS ) CASE( 1 ) EXPLIC( 1 ) = RKI( NRK ) c...partial derivatives for reactions with 2 reactants CASE( 2 ) JR1 = REACTION_CHART( NRK )%REACTANT( 1 ) JR2 = REACTION_CHART( NRK )%REACTANT( 2 ) EXPLIC( 1 ) = RKI( NRK ) & * YIN( JR2 ) EXPLIC( 2 ) = RKI( NRK ) & * YIN( JR1 ) c.....partial derivatives for reactions with 3 reactants CASE( 3 ) JR1 = REACTION_CHART( NRK )%REACTANT( 1 ) JR2 = REACTION_CHART( NRK )%REACTANT( 2 ) JR3 = REACTION_CHART( NRK )%REACTANT( 3 ) CR2 = RKI( NRK ) * YIN( JR2 ) EXPLIC( 1 ) = CR2 * YIN( JR3 ) EXPLIC( 2 ) = RKI( NRK ) & * YIN( JR1 ) & * YIN( JR3 ) EXPLIC( 3 ) = CR2 * YIN( JR1 ) END SELECT cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Add Reaction's Partial Derivative to Jacobian cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc DO NP = 1, REACTION_CHART( NRK )%JACOB_OCCURANCES JROW = REACTION_CHART( NRK )%JACOB_PARTIAL_ROW( NP ) JCOL = REACTION_CHART( NRK )%JACOB_PARTIAL_COL( NP ) FRACN = REACTION_CHART( NRK )%JACOB_PARTIAL_COEFF( NP ) IPART = REACTION_CHART( NRK )%JACOB_PARTIAL_INDEX( NP ) JAC( JROW, JCOL ) = JAC( JROW, JCOL ) + REAL(FRACN * EXPLIC( IPART ) ) END DO END DO LOOP_REACTIONS IF( .NOT. CHECK_MECHANISM )RETURN DO JROW = 1, NUMB_MECH_SPC JR1 = JROW ! JOLD2NEW( JROW,1 ) DO JCOL = 1, NUMB_MECH_SPC JR2 = JCOL ! JOLD2NEW( JCOL,1 ) WRITE(6,'(2(I4,1X),A32,ES16.6)')JR1,JR2, & 'JACOBIAN( ' // TRIM( CHEMISTRY_SPC( JROW ) ) & // ',' // TRIM( CHEMISTRY_SPC( JCOL ) ) // ' ) = ', JAC( JR1, JR2 ) END DO END DO RETURN END SUBROUTINE EVALUATE_F_JAC_MECH SUBROUTINE EVALUATE_F_MECH( YIN, TAIR, DAIR, RKI, YDOT ) C*********************************************************************** C C Function: Compute YDOT = dc/dt for each species. YDOT is the C net rate of change in species concentrations resulting C from chemical production minus chemical loss. C C Preconditions: None C C Key Subroutines/Functions Called: None C C*********************************************************************** USE RXNS_DATA USE RXNS_FUNCTION IMPLICIT NONE C..Includes: C..Arguments: REAL( 8 ), INTENT( IN ) :: YIN ( : ) ! Species concs, ppm REAL( 8 ), INTENT( IN ) :: TAIR ! air temperature, K REAL( 8 ), INTENT( IN ) :: DAIR ! air density, Kg/m3 REAL( 8 ), INTENT( INOUT ) :: RKI ( : ) ! Rate constants so reaction rates are ppm//min REAL( 8 ), INTENT( OUT ) :: YDOT( : ) ! Species rates of change, ppm/min C..Parameters: None C..External FUNCTIONS: None C..Local Variables: INTEGER :: ISP ! Loop index for species INTEGER :: ISP1, ISP2, ISP3 ! Pointers to species numbers INTEGER :: NP ! Loop index for number of products INTEGER :: NR ! Loop index for number of reactants INTEGER :: NRK ! Loop index for number of reactions INTEGER :: NCELL C*********************************************************************** IF ( NSPECIAL_RXN .GT. 0 ) THEN ! calculate special rate coefficients SYC( NCELL, 1:NUMB_MECH_SPC ) = YIN( 1:NUMB_MECH_SPC ) TEMP = TAIR DENS = DAIR CALL SPECIAL_RATES( 1, SYC, TEMP, DENS, RKI_SAV ) RKI( 1:NRXNS ) = RKI_SAV( NCELL, 1:NRXNS ) END IF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Initialize dc/dt cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc ! YDOT = 0.0D0 PROD = 0.0D0 LOSS = 0.0D0 cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Loop over reactions to calculate dc/dt cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc LOOP_REACTIONS: DO NRK = 1, NRXNS c..Calculate reaction rate SELECT CASE ( REACTION_CHART( NRK )%NREACTANTS ) CASE( 1 ) ISP1 = REACTION_CHART( NRK )%REACTANT( 1 ) RXRAT( NRK ) = RKI( NRK ) * YIN( ISP1 ) CASE( 2 ) c... reactions with 2 reactants ISP1 = REACTION_CHART( NRK )%REACTANT( 1 ) ISP2 = REACTION_CHART( NRK )%REACTANT( 2 ) RXRAT( NRK ) = RKI( NRK ) & * YIN( ISP1 ) & * YIN( ISP2 ) CASE( 3 ) c..... reactions with 3 reactants ISP1 = REACTION_CHART( NRK )%REACTANT( 1 ) ISP2 = REACTION_CHART( NRK )%REACTANT( 2 ) ISP3 = REACTION_CHART( NRK )%REACTANT( 3 ) RXRAT( NRK) = RKI( NRK ) & * YIN( ISP1 ) & * YIN( ISP2 ) & * YIN( ISP3 ) END SELECT c..Subtract loss terms from dc/dt for this reaction DO NR = 1, REACTION_CHART( NRK )%NSPECIES_DESTROYED ISP = REACTION_CHART( NRK )%ISPECIES_DESTROYED( NR ) LOSS( ISP ) = LOSS( ISP ) & + REACTION_CHART( NRK )%COEFF_LOSS( NR ) & * RXRAT( NRK ) END DO WHERE( YIN .GT. 1.000001D-30 ) LOSSF = ABS(LOSS) / YIN ELSE WHERE LOSSF = 0.0D0 END WHERE c..Add production terms to dc/dt for this reaction DO NP = 1, REACTION_CHART( NRK )%NSPECIES_PRODUCED ISP = REACTION_CHART( NRK )%ISPECIES_PRODUCED( NP ) PROD( ISP ) = PROD( ISP ) & + REACTION_CHART( NRK )%COEFF_PROD( NP) & * RXRAT( NRK ) END DO END DO LOOP_REACTIONS YDOT = PROD + LOSS IF( .NOT. CHECK_MECHANISM )RETURN !DYDT = YDOT DO ISP = 1, NUMB_MECH_SPC ISP1 = ISP ! JNEW2OLD (ISP,1) WRITE( DDM_LOG,95001 )CHEMISTRY_SPC( ISP1 ),YDOT(ISP),YIN( ISP ) ! PROD( ISP ),LOSS(ISP) END DO 95001 FORMAT( 'YDOT(',A16,') = ',ES16.6,1X,'; CONC = ',ES16.6,1X,ES16.6 ) RETURN END SUBROUTINE EVALUATE_F_MECH REAL(8) FUNCTION EFFECT_REACTION( NAMINDX, NRX, OCCURS ) C----------------------------------------------------------------------- C Function: To find net effect on the number of species molecules from a reaction C Preconditions: None C Key Subroutines/Functions Called: None C Revision History: C Prototype created by Bill Hutzell, May, 2018 C----------------------------------------------------------------------- USE RXNS_DATA IMPLICIT NONE C Includes: None C Arguments: INTEGER, INTENT(IN ) :: NAMINDX ! Index for chemistry species INTEGER, INTENT(IN ) :: NRX ! Reaction number INTEGER, INTENT(INOUT) :: OCCURS ! Number of products and reaction C Parameters: None C External Functions: None C Local Variables: CHARACTER( 16 ) :: SPECIS ! Species name to check INTEGER INDX ! Pointer to reactant or product in CHEMISTRY_SPC array INTEGER IRRPNTR ! Pointer to reactant or product in IRR array INTEGER N ! Loop index over IRR array REAL(8) TOTAL ! Sum of molecular production and loss coeffecients C----------------------------------------------------------------------- OCCURS = 0 TOTAL = 0.0D0 SPECIS = CHEMISTRY_SPC( NAMINDX ) c..Subtract the number of species molecules lost in this reaction DO N = 1, NREACT( NRX ) INDX = IRR( NRX, N ) IF ( INDX .EQ. NAMINDX ) THEN TOTAL = TOTAL - 1.0D0 OCCURS = OCCURS + 1 END IF END DO c..Add the number of species molecules produced in this reaction DO N = 1, NPRDCT( NRX ) IRRPNTR = N + 3 INDX = IRR( NRX, IRRPNTR ) IF ( INDX .EQ. NAMINDX ) THEN TOTAL = TOTAL + REAL( SC( NRX,N ), 8) OCCURS = OCCURS + 1 END IF END DO EFFECT_REACTION = TOTAL RETURN END FUNCTION EFFECT_REACTION REAL(8) FUNCTION ASSESS_REACTION( NAMINDX, NRX, OCCUR_R, OCCUR_P ) C----------------------------------------------------------------------- C Function: To find net effect on the number of species molecules from a reaction C Preconditions: None C Key Subroutines/Functions Called: None C Revision History: C Prototype created by Bill Hutzell, May, 2018 C----------------------------------------------------------------------- USE RXNS_DATA IMPLICIT NONE C Includes: None C Arguments: INTEGER, INTENT(IN ) :: NAMINDX ! Index for chemistry species INTEGER, INTENT(IN ) :: NRX ! Reaction number INTEGER, INTENT(INOUT) :: OCCUR_R ! Number of reactant occurances INTEGER, INTENT(INOUT) :: OCCUR_P ! Number of product occurances C Parameters: None C External Functions: None C Local Variables: CHARACTER( 16 ) :: SPECIS ! Species name to check INTEGER INDX ! Pointer to reactant or product in CHEMISTRY_SPC array INTEGER IRRPNTR ! Pointer to reactant or product in IRR array INTEGER N ! Loop index over IRR array REAL(8) TOTAL ! Sum of molecular production and loss coeffecients C----------------------------------------------------------------------- OCCUR_P = 0 OCCUR_R = 0 TOTAL = 0.0D0 SPECIS = CHEMISTRY_SPC( NAMINDX ) c..Subtract the number of species molecules lost in this reaction DO N = 1, NREACT( NRX ) INDX = IRR( NRX, N ) IF ( INDX .EQ. NAMINDX ) THEN TOTAL = TOTAL - 1.0D0 OCCUR_R = OCCUR_R + 1 END IF END DO c..Add the number of species molecules produced in this reaction DO N = 1, NPRDCT( NRX ) IRRPNTR = N + 3 INDX = IRR( NRX, IRRPNTR ) IF ( INDX .EQ. NAMINDX ) THEN TOTAL = TOTAL + REAL( SC( NRX,N ), 8) OCCUR_P = OCCUR_P + 1 END IF END DO ASSESS_REACTION = TOTAL RETURN END FUNCTION ASSESS_REACTION !============================================================================================== SUBROUTINE WRITE_OUTPUT(T, Y, NAMES, N_ROWS, N_COLS, FNAME) !============================================================================================== ! This subroutine saves the output data from the integration solver such that the first ! column contains the time data, and the other columns correspond to the values of ! the unknowns at the corresponding times. ! ! input: ! t, double precision, dimension(:) ! the times the solution was evaluated [n_rows] ! y, double precision, dimension(:,:) ! the approximate solution at the respetive times [n_rows, n_cols] ! n_rows, integer ! the number of rows in the approximate solution to write ! n_cols, integer ! the number of columns in the approximate solution to write ! fname, character(len=*) ! the file name USE UTILIO_DEFN IMPLICIT NONE DOUBLE PRECISION, INTENT(IN) :: T(:), Y( :,: ) CHARACTER(16), INTENT(IN) :: NAMES( : ) INTEGER, INTENT(IN) :: N_ROWS, N_COLS CHARACTER*(*), INTENT(IN) :: FNAME INTEGER :: I, J ! loop counters INTEGER :: IOUT ! unit number of output file INTEGER :: IOS IOUT = 101 OPEN(UNIT=IOUT, FILE=FNAME, STATUS='UNKNOWN', IOSTAT=IOS, ERR=1000) IF ( IOS .NE. 0 ) THEN WRITE(ERROR_LOG,95102) CALL M3EXIT ( 'WRITE_OUTPUT', 0, 0, ' ', XSTAT2 ) END IF ! write the data DO I=1, N_ROWS IF( I .EQ. 1 )THEN WRITE(IOUT,95100)(NAMES(J),J=1,N_COLS) END IF WRITE(IOUT,95101)I,T(I),(Y(I,J),J=1,N_COLS) END DO CLOSE(IOUT) RETURN 1000 WRITE(ERROR_LOG,95102) CALL M3EXIT ( 'WRITE_OUTPUT', 0, 0, ' ', XSTAT2 ) 95100 FORMAT(16X,"T(I)",1001(A16,1X)) 95101 FORMAT(I3,1X,1001(ES16.6,1X)) 95102 FORMAT('WRITE_OUTPUT: Error opening ASCII initial concentration file') END SUBROUTINE WRITE_OUTPUT END MODULE #endif ================================================ FILE: CCTM/src/ddm3d/S_PCGRID_DEFN.F ================================================ C*********************************************************************** C Portions of Models-3/CMAQ software were developed or based on * C information from various groups: Federal Government employees, * C contractors working on a United States Government contract, and * C non-Federal sources (including research institutions). These * C research institutions have given the Government permission to * C use, prepare derivative works, and distribute copies of their * C work in Models-3/CMAQ to the public and to permit others to do * C so. EPA therefore grants similar permissions for use of the * C Models-3/CMAQ software, but users are requested to provide copies * C of derivative works to the Government without restrictions as to * C use by others. Users are responsible for acquiring their own * C copies of commercial software associated with Models-3/CMAQ and * C for complying with vendor requirements. Software copyrights by * C the MCNC Environmental Modeling Center are used with their * C permissions subject to the above restrictions. * C*********************************************************************** C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/work/rep/CCTM/src/driver/yamo_ddm3d/S_PCGRID_DEFN.F,v 1.1.1.1 2009/09/29 12:58:45 sjr Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: MODULE S_PCGRID_DEFN C----------------------------------------------------------------------- C Function: C Create SENGRID target, S_PCGRID. C Preconditions: C Horizontal domain extents must be set (subroutine PAR_INIT -> HGRD_DEFN) C Number of species in the species groups must be available (include files C in CGRID_SPCS) C This module is referenced in driver and sciproc. driver must call HGRD_INIT, C CGRID_MAP, and PAR_INIT prior to calling PCGRID_INIT (below). C Subroutines and functions called: C Revision history: C Apr 00 - Al, David, Jeff - initial implementation C Dec 00 - Jeff - add CGRID_MAP "method" C Jan 01 - Jeff - remove CGRID_MAP "method" - now in module CGRID_SPCS C Nov 01 - Jeff - correct pointer reference for ping C Jul 02 - D. Cohan - created this based on PCGRID_DEFN, for use C in sensitivity analysis C Jan 04 - D. Cohan - modified for compatibility with Intel compiler C Jul 06 - D. Cohan - modified to reflect changes in PCGRID_DEFN.F: C Dec 04 - Jeff - dyn alloc - USE VGRD_DEFN C Jan 05 - Jeff - dyn alloc - establish both horizontal & vertical C domain specifications in one module C Nov 12 - S.L. Napelenok - update for cmaq 5.0 C Oct 15 - S.L. Napelenok - update for cmaq 5.1.1 C----------------------------------------------------------------------- USE GRID_CONF ! horizontal & vertical domain specifications USE CGRID_SPCS, ONLY: NSPCSD ! CGRID species number and offsets IMPLICIT NONE REAL, ALLOCATABLE, SAVE, TARGET :: S_PCGRID( :,:,:,:,: ) REAL, ALLOCATABLE, SAVE, TARGET :: S_PCGRID_TEMP( :,:,:,: ) CONTAINS FUNCTION S_PCGRID_IN ( NPMAX ) RESULT ( SUCCESS ) USE UTILIO_DEFN INTEGER :: NPMAX LOGICAL :: SUCCESS INTEGER :: ALLOCSTAT INTEGER, SAVE :: LOGDEV LOGICAL, SAVE :: FIRSTIME = .TRUE. CHARACTER( 120 ) :: XMSG = ' ' C PCGRID extents INTEGER :: LCOL INTEGER :: HCOL INTEGER :: LROW INTEGER :: HROW SUCCESS = .TRUE. IF ( FIRSTIME ) THEN FIRSTIME = .FALSE. LOGDEV = INIT3() #ifdef parallel LCOL = 1 - NTHIK HCOL = NCOLS + NTHIK LROW = 1 - NTHIK HROW = NROWS + NTHIK #else LCOL = 1 HCOL = NCOLS LROW = 1 HROW = NROWS #endif ALLOCATE & ( S_PCGRID( LCOL:HCOL,LROW:HROW,NLAYS,NPMAX,NSPCSD ), & S_PCGRID_TEMP( LCOL:HCOL,LROW:HROW,NLAYS,NSPCSD ), & STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating S_PCGRID or S_PCGRID_TEMP' CALL M3WARN ( 'S_PCGRID_IN', 0, 0, XMSG ) SUCCESS = .FALSE.; RETURN END IF S_PCGRID = 0.0 ! PCGRID = -999.999 ELSE XMSG = 'S_PCGRID or S_PCGRID_TEMP already ALLOCATED' CALL M3WARN ( 'S_PCGRID_IN', 0, 0, XMSG ) SUCCESS = .FALSE.; RETURN END IF RETURN END FUNCTION S_PCGRID_IN END MODULE S_PCGRID_DEFN ================================================ FILE: CCTM/src/ddm3d/aero_sens_calc1.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C =================================================================== C This subroutine calculates first-order sensitivity of ISORROPIAII C C Written by Wenxian Zhang in August 2011 C C 27 September 2013: Sergey L. Napelenok C --- implemented into CMAQv5.0.2 C 08 September 2014: Sergey L. Napelenok C --- some bug fixes and better error reporting c 27 February 2015: Sergey L. Napelenok c -- disable DGAMA impacts due to instability and fix minor issues C C Reference: C Zhang, W., Capps, S. L., Hu, Y., Nenes, A., Napelenok, S. L., & C Russell, A. G. (2012). Development of the high-order decoupled C direct method in three dimensions for particulate matter: C enabling advanced sensitivity analysis in air quality models. C Geoscientific Model Development, 5(2), 355-368. C doi: 10.5194/gmd-5-355-2012 C =================================================================== #ifdef sens SUBROUTINE AERO_SENS_CALC1(STOT,SENS,SENSD,SCASI,FCOL) c USE DDM3D_DEFN, ONLY : WRFLAG Use aero_ddm3d, ONLY : cbsens USE UTILIO_DEFN ! I/O API c IMPLICIT NONE INCLUDE 'isrpia.inc' INCLUDE 'aero_sens_data.inc' DOUBLE PRECISION, INTENT( IN ) :: STOT( : ) ! (input) gas+pm total sensitivity DOUBLE PRECISION, INTENT( OUT ) :: SENS( : ) ! (output) partitioned SENSITIVITIES DOUBLE PRECISION, INTENT( OUT ) :: SENSD( : ) ! (output) partitioned SENSITIVITIES BEFORE MINOR CHARACTER( 15 ), INTENT( IN ) :: SCASI ! (input) subcase number from ISOROPIA INTEGER, INTENT( IN ) :: FCOL( : ) ! Flags for matrix reduction INTEGER FROW( NSEN ) ! Flags for matrix reduction DOUBLE PRECISION COEF(NSEN,NSEN) ! COEFFICIENT MATRIX DOUBLE PRECISION DGAMA(NIONSPC,NPAIR) ! dGAMA/dA c LOGICAL, SAVE :: FIRSTIME = .TRUE. c IF ( FIRSTIME ) THEN c FIRSTIME = .FALSE. c LOGDEV = INIT3 () c ENDIF INTEGER I CC = SCASI(1:1) C sln 13feb2015 prevent small number from messing up the matrix solution DO I = 1,NIONS MOLALD(I) = MAX(MOLALD(I),1.0D-12) END DO GNH3D = MAX(GNH3D,1.0D-15) GHNO3D = MAX(GHNO3D,1.0D-15) GHCLD = MAX(GHCLD,1.0D-15) C *** INITIALIZE SINI *** DO I = 1,NSEN SINI(I) = 0.0D0 ENDDO SINI(iMBNA) = STOT(1) SINI(iMBSO4) = STOT(2) SINI(iMBNH4) = STOT(3) SINI(iMBNO3) = STOT(4) SINI(iMBCL) = STOT(5) SINI(iMBCA) = STOT(6) SINI(iMBK) = STOT(7) SINI(iMBMG) = STOT(8) c SINI(iCB) = cbsens c *** SET ROW AND COL FLAGS *** CALL FLAGS( FROW, FCOL ) C *** CALCULATE DGAMA *** c IF (CC.EQ.'A'.OR.CC.EQ.'B'.OR.CC.EQ.'C'.OR. c & CC.EQ.'D'.OR.CC.EQ.'E'.OR.CC.EQ.'F'.OR. c & CC.EQ.'G'.OR.CC.EQ.'H'.OR.CC.EQ.'I'.OR. c & CC.EQ.'J') THEN c CALL DELGAMA1( DGAMA ) c ELSE c CALL DELGAMA2( DGAMA,frow ) c ENDIF DGAMA = 0.0D0 ! set to ignore activity C *** CALCULATE COEFFICIENT MATRIX *** CALL AMAT( COEF, FROW, FCOL, DGAMA ) C *** SOLVE SENSITIVITIES *** CALL EQNSLV( FROW, FCOL, COEF, SENS, SENSD ) C *** ADJUST FOR MINOR SPECIES *** c DO I = 1,NPAIR c SGAMA(I) = 0.D0 c DO J = 1,NIONSPC c SGAMA(I) = SGAMA(I)+DGAMA(J,I)*SENS(J) c ENDDO c ENDDO SGAMA = 0.0D0 ! set to ignore activity c IF (CC.EQ.'B'.OR.CC.EQ.'C') THEN c CALL DCALCNH3(SENS) c ELSEIF (CC.EQ.'E'.OR.CC.EQ.'F') THEN c CALL DCALCNA(SENS) c ELSEIF (CC.EQ.'I'.OR.CC.EQ.'J'.OR. c & CC.EQ.'L'.OR.CC.EQ.'K') THEN c CALL DCALCNHA(SENS) c CALL DCALCNH3(SENS) c ELSEIF (CC.EQ.'D'.OR.CC.EQ.'G'.OR.CC.EQ.'H'.OR. c & CC.EQ.'O'.OR.CC.EQ.'M'.OR.CC.EQ.'P') THEN c CALL DCALCHS4(SENS) c ENDIF C *** END OF DDMSENS *** RETURN END SUBROUTINE AERO_SENS_CALC1 C ============================================================================ C SET FLAGS FOR MATRIX SUBSTRACTION C ============================================================================ SUBROUTINE FLAGS(FROW,FCOL) c USE DDM3D_DEFN, ONLY : WRFLAG USE UTILIO_DEFN ! I/O API c IMPLICIT NONE INCLUDE 'isrpia.inc' INCLUDE 'aero_sens_data.inc' INTEGER FROW(NSEN),FCOL(NSEN) c INTEGER, SAVE :: LOGDEV c LOGICAL, SAVE :: FIRSTIME = .TRUE. c IF ( FIRSTIME ) THEN c FIRSTIME = .FALSE. c LOGDEV = INIT3 () c ENDIF INTEGER I,J,K C *** CLEAR FLAGS *** DO I = 1,NSEN FROW(I) = 0 FCOL(I) = 0 ENDDO CC = SCASE(1:1) IF (CC.EQ.'A') THEN FROW(iK1) = 1 FROW(iK2) = 1 FROW(iMBSO4) = 1 FROW(iMBNH4) = 1 FROW(iCB) = 1 FROW(iZSR) = 1 FCOL(jNH3) = 1 FCOL(jNH4) = 1 FCOL(jH) = 1 FCOL(jH2O) = 1 FCOL(jSO4) = 1 FCOL(jHSO4) = 1 ELSEIF (CC.EQ.'B'.OR.CC.EQ.'C'.OR.CC.EQ.'E'.OR. & CC.EQ.'F') THEN FROW(iK1) = 1 FROW(iMBSO4) = 1 FROW(iMBNH4) = 1 FROW(iCB) = 1 FROW(iZSR) = 1 FCOL(jNH4) = 1 FCOL(jH) = 1 FCOL(jH2O) = 1 FCOL(jSO4) = 1 FCOL(jHSO4) = 1 ELSEIF (CC.EQ.'D') THEN IF (NONPYS.EQ.1) THEN FROW(iK17) = 1 ELSE FROW(iK4) = 1 ENDIF FROW(iK2) = 1 FROW(iMBNO3) = 1 FROW(iMBSO4) = 1 FROW(iMBNH4) = 1 FROW(iCB) = 1 FROW(iZSR) = 1 FCOL(jNH3) = 1 FCOL(jNH4) = 1 FCOL(jH) = 1 FCOL(jH2O) = 1 FCOL(jSO4) = 1 FCOL(jNO3) = 1 FCOL(jHNO3) = 1 ELSEIF (CC.EQ.'G'.OR.CC.EQ.'H') THEN FROW(iK2) = 1 FROW(iK3) = 1 FROW(iK4) = 1 FROW(iMBNO3) = 1 FROW(iMBSO4) = 1 FROW(iMBNH4) = 1 FROW(iMBCL) = 1 FROW(iMBNA) = 1 FROW(iCB) = 1 FROW(iZSR) = 1 FCOL(jNH3) = 1 FCOL(jNH4) = 1 FCOL(jH) = 1 FCOL(jH2O) = 1 FCOL(jSO4) = 1 FCOL(jNO3) = 1 FCOL(jHNO3) = 1 FCOL(jNA) = 1 FCOL(jCL) = 1 FCOL(jHCL) = 1 ELSEIF (CC.EQ.'I'.OR.CC.EQ.'J') THEN FROW(iK1) = 1 FROW(iMBSO4) = 1 FROW(iMBNH4) = 1 FROW(iMBNA) = 1 FROW(iCB) = 1 FROW(iZSR) = 1 FCOL(jNH4) = 1 FCOL(jH) = 1 FCOL(jH2O) = 1 FCOL(jSO4) = 1 FCOL(jHSO4) = 1 FCOL(jNA) = 1 ELSEIF (CC.EQ.'K'.OR.CC.EQ.'L') THEN FROW(iK1) = 1 FROW(iMBSO4) = 1 FROW(iMBNH4) = 1 FROW(iMBNA) = 1 FROW(iMBK) = 1 FROW(iMBMG) = 1 FROW(iCB) = 1 FROW(iZSR) = 1 FCOL(jNH4) = 1 FCOL(jH) = 1 FCOL(jH2O) = 1 FCOL(jSO4) = 1 FCOL(jHSO4) = 1 FCOL(jNA) = 1 FCOL(jK) = 1 FCOL(jMG) = 1 ELSEIF (CC.EQ.'O'.OR.CC.EQ.'M'.OR. & CC.EQ.'P') THEN FROW(iK2) = 1 FROW(iK3) = 1 FROW(iK4) = 1 FROW(iMBNO3) = 1 FROW(iMBSO4) = 1 FROW(iMBNH4) = 1 FROW(iMBCL) = 1 FROW(iMBNA) = 1 FROW(iMBK) = 1 FROW(iMBMG) = 1 FROW(iCB) = 1 FROW(iZSR) = 1 FCOL(jNH3) = 1 FCOL(jNH4) = 1 FCOL(jH) = 1 FCOL(jH2O) = 1 FCOL(jSO4) = 1 FCOL(jNO3) = 1 FCOL(jHNO3) = 1 FCOL(jNA) = 1 FCOL(jCL) = 1 FCOL(jHCL) = 1 FCOL(jK) = 1 FCOL(jMG) = 1 ENDIF FROW(iZSR) = 0 ! set to ignore water FCOL(jH2O) = 0 ! set to ignore water c sln 11april2017 chlorine partitioning seems to blow up, possibly due to lack of charge balance in isorropia c FROW(iK3) = 0 c FCOL(jHCL) = 0 c FCOL(jCL) = 0 c FROW(iMBCL) = 0 NDIM = 0 DO I = 1,NSEN IF (FROW(I).EQ.1) NDIM = NDIM + 1 ENDDO RETURN END C ============================================================================ C CALCULATE dGAMA/dA, A IS IONIC SPECIES FOR A-J CASES C ============================================================================ SUBROUTINE DELGAMA1 ( DGAMA ) c IMPLICIT NONE INCLUDE 'isrpia.inc' INCLUDE 'aero_sens_data.inc' INCLUDE 'dact.inc' DOUBLE PRECISION DF1(NIONSPC,3),DF2(NIONSPC,4) DOUBLE PRECISION ZPL,ZMI,XPL,XMI DOUBLE PRECISION XIJ,YJI,DXIJ,DYJI DOUBLE PRECISION DGAMA(NIONSPC,NPAIR) DOUBLE PRECISION SION DOUBLE PRECISION CH c INTEGER, SAVE :: LOGDEV c LOGICAL, SAVE :: FIRSTIME = .TRUE. c IF ( FIRSTIME ) THEN c FIRSTIME = .FALSE. c LOGDEV = INIT3 () c ENDIF INTEGER I,J,K C C *** Mapping of electrolyte to ion index *** C IJMAP(1,1) = mHCL IJMAP(1,2) = mH2SO4 IJMAP(1,3) = mHHSO4 IJMAP(1,4) = mHNO3 IJMAP(2,1) = mNACL IJMAP(2,2) = mNA2SO4 IJMAP(2,3) = mNAHSO4 IJMAP(2,4) = mNANO3 IJMAP(3,1) = mNH4CL IJMAP(3,2) = mNH42S4 IJMAP(3,3) = mNH4HS4 IJMAP(3,4) = mNH4NO3 C C *** dI/dA *** C IF (IONIC.GE.100.d0) THEN DO I = 1, NIONSPC DI(I) = 0.0 ENDDO ELSE DI(jH2O) = 0.0 DO I = 1, NIONS DI(I) = 0.5*Z(I)*Z(I)/WATER DI(jH2O) = DI(jH2O) + MOLALD(I)*Z(I)*Z(I) ENDDO DI(jH2O) = -0.5*DI(jH2O)/(WATER*WATER) ENDIF C C *** dG0/dA *** C CALL DKMFUL (NIONSPC,NPAIR,IONIC,SNGL(TEMP),DI,G0P,DG0) C C *** MULTICOMPONENT ACTIVITY COEFFICIENT *** C AGAMA = 0.511*(298.0/TEMP)**1.5 ! Debye Huckel const. at T SION = SQRT(IONIC) H = AGAMA*SION/(1+SION) DH = 0.5*AGAMA/(SION*(1.+SION)*(1.+SION)) DO K = 1, NIONSPC DO I=1,3 DF1(K,I)=0.0D0 DF2(K,I)=0.0D0 ENDDO DF2(K,4)=0.0D0 DO I = 1, NPAIR DGAMA(K,I) = 0.0D0 ENDDO ENDDO DO 100 I=1,3 ZPL = Z(I) XPL = MOLALD(I)/WATER DO 100 J=1,4 ZMI = Z(J+3) XMI = MOLALD(J+3)/WATER CH = 0.25*(ZPL+ZMI)*(ZPL+ZMI)/IONIC XIJ = CH*XPL YJI = CH*XMI X(I,J) = XIJ Y(I,J) = YJI DO K = 1, NIONSPC DXIJ = -XPL*DI(K)/IONIC DYJI = -XMI*DI(K)/IONIC IF (K.EQ.I) THEN DXIJ = DXIJ + 1./WATER ELSEIF (K.EQ.J+3) THEN DYJI = DYJI + 1./WATER ELSEIF (K.EQ.jH2O) THEN DXIJ = DXIJ - XPL/WATER DYJI = DYJI - XMI/WATER ENDIF DXIJ = CH*DXIJ DYJI = CH*DYJI DX(K,I,J) = DXIJ DY(K,I,J) = DYJI DF1(K,I) = DF1(K,I) & + G0P(IJMAP(I,J)) * DYJI & + YJI * DG0(K,IJMAP(I,J)) & + ZPL*ZMI*DH * YJI * DI(K) & + ZPL*ZMI*H * DYJI DF2(K,J) = DF2(K,J) & + G0P(IJMAP(I,J)) * DXIJ & + XIJ * DG0(K,IJMAP(I,J)) & + ZPL*ZMI*DH * XIJ * DI(K) & + ZPL*ZMI*H * DXIJ ENDDO 100 CONTINUE C C d log10(GAMA)/dA C DO 110 I=1,3 ZPL = Z(I) DO 110 J=1,4 ZMI = Z(J+3) DO K = 1, NIONSPC DGAMA(K,IJMAP(I,J)) = ZPL*ZMI * ( & (DF1(K,I)/ZPL + DF2(K,J)/ZMI) / (ZPL+ZMI) & - DH * DI(K) ) ENDDO 110 CONTINUE DO K = 1, NIONSPC DGAMA(K,mLC) = 0.20 * ( 3.0*DGAMA(K,mNH42S4) & + 2.0*DGAMA(K,mNH4HS4) ) ENDDO DO I = 1, NPAIR IF (GAMA(I).LE.1.d-5 .OR. GAMA(I).GE.1.d5) THEN DO K = 1, NIONSPC DGAMA(K,I) = 0.0 ENDDO ENDIF ENDDO C C *** END OF SUBROUTINE DELGAMA1 *** C RETURN END C ============================================================================ C CALCULATE dGAMA/dA, A IS IONIC SPECIES FOR O-K CASES C ============================================================================ SUBROUTINE DELGAMA2 ( DGAMA,frow ) c IMPLICIT NONE INCLUDE 'isrpia.inc' INCLUDE 'aero_sens_data.inc' INCLUDE 'dact.inc' DOUBLE PRECISION DF1(NIONSPC,6),DF2A(NIONSPC,4),DF2B(NIONSPC,4) DOUBLE PRECISION ZPL,ZMI,XPL,XMI DOUBLE PRECISION XIJ,YJI,DXIJ,DYJI DOUBLE PRECISION DGAMA(NIONSPC,NPAIR) DOUBLE PRECISION SION DOUBLE PRECISION CH integer frow(nsen) INTEGER I,J,K C C *** Mapping of electrolyte to ion index *** C IJMAP(1,1) = mHCL IJMAP(1,2) = mH2SO4 IJMAP(1,3) = mHHSO4 IJMAP(1,4) = mHNO3 IJMAP(2,1) = mNACL IJMAP(2,2) = mNA2SO4 IJMAP(2,3) = mNAHSO4 IJMAP(2,4) = mNANO3 IJMAP(3,1) = mNH4CL IJMAP(3,2) = mNH42S4 IJMAP(3,3) = mNH4HS4 IJMAP(3,4) = mNH4NO3 IJMAP(4,1) = mCACL2 IJMAP(4,2) = mCASO4 IJMAP(4,3) = 0 IJMAP(4,4) = mCANO32 IJMAP(5,1) = mKCL IJMAP(5,2) = mK2SO4 IJMAP(5,3) = mKHSO4 IJMAP(5,4) = mKNO3 IJMAP(6,1) = mMGCL2 IJMAP(6,2) = mMGSO4 IJMAP(6,3) = 0 IJMAP(6,4) = mMGNO32 C C *** dI/dA *** C IF (IONIC.GE.100.d0) THEN DO I = 1, NIONSPC DI(I) = 0.0 ENDDO ELSE DI(jH2O) = 0.0 DO I = 1, NIONS DI(I) = 0.5*Z(I)*Z(I)/WATER DI(jH2O) = DI(jH2O) + MOLALD(I)*Z(I)*Z(I) ENDDO DI(jH2O) = -0.5*DI(jH2O)/(WATER*WATER) ENDIF C C *** dG0/dA *** C CALL DKMFUL2 (NIONSPC,NPAIR,IONIC,SNGL(TEMP),DI,G0P,DG0) C C *** MULTICOMPONENT ACTIVITY COEFFICIENT *** C AGAMA = 0.511*(298.0/TEMP)**1.5 ! Debye Huckel const. at T SION = SQRT(IONIC) H = AGAMA*SION/(1+SION) DH = 0.5*AGAMA/(SION*(1.+SION)*(1.+SION)) DO K = 1, NIONSPC DO I=1,4 DF1(K,I)=0.0 DF2A(K,I)=0.0 DF2B(K,I)=0.0 ENDDO DF1(K,5)=0.0 DF1(K,6)=0.0 DO I = 1, NPAIR DGAMA(K,I) = 0.0 ENDDO ENDDO DO 100 I=1,3 ZPL = Z(I) XPL = MOLALD(I)/WATER DO 100 J=1,4 ZMI = Z(J+3) XMI = MOLALD(J+3)/WATER CH = 0.25*(ZPL+ZMI)*(ZPL+ZMI)/IONIC XIJ = CH*XPL YJI = CH*XMI X(I,J) = XIJ Y(I,J) = YJI DO K = 1, NIONSPC DXIJ = -XPL*DI(K)/IONIC DYJI = -XMI*DI(K)/IONIC IF (K.EQ.I) THEN DXIJ = DXIJ + 1./WATER ELSEIF (K.EQ.J+3) THEN DYJI = DYJI + 1./WATER ELSEIF (K.EQ.jH2O) THEN DXIJ = DXIJ - XPL/WATER DYJI = DYJI - XMI/WATER ENDIF DXIJ = CH*DXIJ DYJI = CH*DYJI DX(K,I,J) = DXIJ DY(K,I,J) = DYJI DF1(K,I) = DF1(K,I) & + G0P(IJMAP(I,J)) * DYJI & + YJI * DG0(K,IJMAP(I,J)) & + ZPL*ZMI*DH * YJI * DI(K) & + ZPL*ZMI*H * DYJI DF2A(K,J) = DF2A(K,J) & + G0P(IJMAP(I,J)) * DXIJ & + XIJ * DG0(K,IJMAP(I,J)) & + ZPL*ZMI*DH * XIJ * DI(K) & + ZPL*ZMI*H * DXIJ ENDDO 100 CONTINUE DO 110 I=1,3 ZPL = Z(I) DO 110 J=1,4 ZMI = Z(J+3) DO K = 1, NIONSPC DGAMA(K,IJMAP(I,J)) = ZPL*ZMI * ( & (DF1(K,I)/ZPL + DF2A(K,J)/ZMI) / (ZPL+ZMI) & - DH * DI(K) ) ENDDO 110 CONTINUE DO 120 I=4,6 ZPL = Z(I+4) XPL = MOLALD(I+4)/WATER DO 120 J=1,4 ZMI = Z(J+3) IF(J.EQ.3.AND.I.EQ.4) GOTO 120 IF(J.EQ.3.AND.I.EQ.6) GOTO 120 IF(J.EQ.2.AND.I.EQ.4) GOTO 120 XMI = MOLALD(J+3)/WATER CH = 0.25*(ZPL+ZMI)*(ZPL+ZMI)/IONIC XIJ = CH*XPL YJI = CH*XMI X(I,J) = XIJ Y(I,J) = YJI DO K = 1, NIONSPC DXIJ = -XPL*DI(K)/IONIC DYJI = -XMI*DI(K)/IONIC IF (K.EQ.I) THEN DXIJ = DXIJ + 1./WATER ELSEIF (K.EQ.J+3) THEN DYJI = DYJI + 1./WATER ELSEIF (K.EQ.jH2O) THEN DXIJ = DXIJ - XPL/WATER DYJI = DYJI - XMI/WATER ENDIF DXIJ = CH*DXIJ DYJI = CH*DYJI DX(K,I,J) = DXIJ DY(K,I,J) = DYJI DF1(K,I) = DF1(K,I) & + G0P(IJMAP(I,J)) * DYJI & + YJI * DG0(K,IJMAP(I,J)) & + ZPL*ZMI*DH * YJI * DI(K) & + ZPL*ZMI*H * DYJI DF2B(K,J) = DF2B(K,J) & + G0P(IJMAP(I,J)) * DXIJ & + XIJ * DG0(K,IJMAP(I,J)) & + ZPL*ZMI*DH * XIJ * DI(K) & + ZPL*ZMI*H * DXIJ ENDDO 120 CONTINUE DO 130 I= 4,6 ZPL = Z(I+4) DO 130 J=1,4 ZMI = Z(J+3) IF(J.EQ.3.AND.I.EQ.4) GOTO 130 IF(J.EQ.3.AND.I.EQ.6) GOTO 130 DO K = 1, NIONSPC DGAMA(K,IJMAP(I,J)) = ZPL*ZMI * ( & (DF1(K,I)/ZPL + DF2B(K,J)/ZMI) / (ZPL+ZMI) & - DH * DI(K) ) ENDDO 130 CONTINUE DO K = 1, NIONSPC DGAMA(K,mLC) = 0.20 * ( 3.0*DGAMA(K,mNH42S4) & + 2.0*DGAMA(K,mNH4HS4) ) ENDDO DO I = 1, NPAIR IF (GAMA(I).LE.1.d-5 .OR. GAMA(I).GE.1.d5) THEN DO K = 1, NIONSPC DGAMA(K,I) = 0.0 ENDDO ENDIF ENDDO C C *** END OF SUBROUTINE DELGAMA2 *** C RETURN END C ============================================================================= C CALCULATE dG0/dA, CASES A - J C ============================================================================= SUBROUTINE DKMFUL (N,NPAIRS,IONIC,TEMP,DELI,G0,DELG0) IMPLICIT NONE INTEGER N, NPAIRS REAL IONIC,SION,CUBI,TEMP DOUBLE PRECISION DELI(N), G0(NPAIRS), DELG0(N,NPAIRS) DOUBLE PRECISION TI, CF1, CF2, CF2D INTEGER NPAIRD, I, J, K PARAMETER (NPAIRD=10) ! Number of ion pairs whose Q value is available INTEGER, SAVE :: IG(NPAIRD) DATA IG / 1,2,3,4,5,6,7,8,10,11 / REAL, SAVE :: ZI(NPAIRD) ! Mapping of Q to the internal order of ion pairs DATA ZI / 1., 2., 1., 2., 1., 1., 2., 1., 1., 1. / REAL, SAVE :: Q(NPAIRD) ! Kusik-Meissner parameters (see KMFUL) DATA Q / 2.23,-0.19,-0.39,-0.25,-1.15,0.82,-0.1, & 8.0,2.6,6.0 / C SION = SQRT(IONIC) CUBI = IONIC*IONIC*IONIC C C *** Coefficients at 25 oC C DO I = 1, NPAIRD CALL DMKBI(N,Q(I),IONIC,SION,CUBI,ZI(I),G0(IG(I)),DELI, & DELG0(1,IG(I))) ENDDO C C *** Correct for T other than 298 K C TI = TEMP-273.0 IF (ABS(TI-25.0) .GT. 1.0) THEN CF1 = 1.125-0.005*TI CF2 = (CF1-1.)*(0.039*IONIC**0.92-0.41*SION/(1.+SION)) CF2D = (CF1-1.)*( .03588/IONIC**.08 & -.205/(SION*(1.+SION)*(1.+SION)) ) DO I = 1, NPAIRD G0(IG(I)) = CF1*G0(IG(I)) - CF2*ZI(I) DO K = 1, N DELG0(K,IG(I)) = CF1*DELG0(K,IG(I)) - ZI(I)*CF2D*DELI(K) ENDDO ENDDO ENDIF C G0( 9) = G0( 6) + G0( 8) - G0(11) G0(12) = G0( 1) + G0( 8) - G0(11) DO K = 1, N DELG0(K, 9) = DELG0(K, 6) + DELG0(K, 8) - DELG0(K,11) DELG0(K,12) = DELG0(K, 1) + DELG0(K, 8) - DELG0(K,11) ENDDO RETURN C C *** END OF SUBROUTINE DDMKMFUL C END C ============================================================================= C CALCULATE dG0/dA, CASES O - K C ============================================================================= SUBROUTINE DKMFUL2 (N,NPAIRS,IONIC,TEMP,DELI,G0,DELG0) IMPLICIT NONE INTEGER N, NPAIRS REAL IONIC,SION,CUBI,TEMP DOUBLE PRECISION DELI(N), G0(NPAIRS), DELG0(N,NPAIRS) DOUBLE PRECISION TI, CF1, CF2, CF2D INTEGER NPAIRD, I, K PARAMETER (NPAIRD=18) ! Number of ion pairs whose Q value is available INTEGER, SAVE :: IG(NPAIRD) DATA IG / 1,2,3,4,5,6,7,8,10,11,15,16,17,19,20,21,22,23 / REAL, SAVE :: ZI(NPAIRD) ! Mapping of Q to the internal order of ion pairs DATA ZI / 1., 2., 1., 2., 1., 1., 2., 1., 1., 1., 2., 2., & 2., 1., 1., 4., 2., 2. / REAL, SAVE :: Q(NPAIRD) ! Kusik-Meissner parameters (see KMFUL) DATA Q / 2.23,-0.19,-0.39,-0.25,-1.15,0.82,-0.1,8.0,2.6,6.0, & 0.93,2.4,-0.25,-2.33,0.92,0.15,2.32,2.9 / C C SION = SQRT(IONIC) CUBI = IONIC*IONIC*IONIC C C *** Coefficients at 25 oC C DO I = 1, NPAIRD CALL DMKBI(N,Q(I),IONIC,SION,CUBI,ZI(I),G0(IG(I)),DELI, & DELG0(1,IG(I))) ENDDO C C *** Correct for T other than 298 K C TI = TEMP-273.0 IF (ABS(TI-25.0) .GT. 1.0) THEN CF1 = 1.125-0.005*TI CF2 = (CF1-1.)*(0.039*IONIC**0.92-0.41*SION/(1.+SION)) CF2D = (CF1-1.)*( .03588/IONIC**.08 & -.205/(SION*(1.+SION)*(1.+SION)) ) DO I = 1, NPAIRD G0(IG(I)) = CF1*G0(IG(I)) - CF2*ZI(I) DO K = 1, N DELG0(K,IG(I)) = CF1*DELG0(K,IG(I)) - ZI(I)*CF2D*DELI(K) ENDDO ENDDO ENDIF C G0( 9) = G0( 6) + G0( 8) - G0(11) G0(12) = G0( 1) + G0( 8) - G0(11) G0(18) = G0( 8) + G0(20) - G0(11) DO K = 1, N DELG0(K, 9) = DELG0(K, 6) + DELG0(K, 8) - DELG0(K,11) DELG0(K,12) = DELG0(K, 1) + DELG0(K, 8) - DELG0(K,11) DELG0(K,18) = DELG0(K, 8) + DELG0(K,20) - DELG0(K,11) ENDDO RETURN C C *** END OF SUBROUTINE DKMFUL2 C END C ============================================================================= C dG0/dA AT 25C C ============================================================================= SUBROUTINE DMKBI (N,Q,IONIC,SION,CUBI,ZIP,G,DELI,DELG) C IMPLICIT NONE INTEGER N, K REAL IONIC, SION, CUBI, Q, ZIP DOUBLE PRECISION G, DELI(N), DELG(N) DOUBLE PRECISION B, C, XX, BI, XX1, XX2, XX3, XX4 DOUBLE PRECISION LN10 PARAMETER (LN10=2.30258509299404568402D0) C B=.75-.065*Q C= 1.0 IF (IONIC.LT.6.0) C=1.+.055*Q*EXP(-.023*CUBI) XX=-0.5107*SION/(1.+C*SION) BI=(1.+B*(1.+.1*IONIC)**Q-B) G =ZIP*LOG10(BI) + ZIP*XX XX1 = .1*B*Q*(1.+.1*IONIC)**(Q-1.)/(BI*LN10) IF (IONIC.LT.6.0) THEN XX2 = 0.5/SION+.003795*Q*CUBI*EXP(-.023*CUBI) ELSE XX2 = 0.5/SION ENDIF XX3 = (1.+C*SION)*(1.+C*SION) XX4 = ZIP*(XX1-.5107*XX2/XX3) DO K = 1, N DELG(K) = XX4 * DELI(K) ENDDO C C *** END OF SUBROUTINE DDMMKBI C RETURN END C ============================================================================= C PREPARE COEFFICIENT MATRIX C ============================================================================= SUBROUTINE AMAT(AM,FROW,FCOL,DGAMA) USE UTILIO_DEFN c USE DDM3D_DEFN, ONLY : WRFLAG c IMPLICIT NONE INCLUDE 'isrpia.inc' INCLUDE 'aero_sens_data.inc' INTEGER FROW(NSEN),FCOL(NSEN) DOUBLE PRECISION AM(NSEN,NSEN) DOUBLE PRECISION DGAMA(NIONSPC,NPAIR) DOUBLE PRECISION AM_TEMP(NSEN) c INTEGER, SAVE :: LOGDEV c LOGICAL, SAVE :: FIRSTIME = .TRUE. c IF ( FIRSTIME ) THEN c FIRSTIME = .FALSE. c LOGDEV = INIT3 () c ENDIF c DO I = 1,NSEN c DO J = 1,NSEN c AM(I,J) = 0.D0 c ENDDO c ENDDO INTEGER I,J,K, iEQ REAL*8 C1, C2 AM = 0.D0 iEQ = iK1 IF (FROW(iEQ).EQ.1) THEN C1 = 3.*LN10 C2 = -2.*LN10 DO I = 1, NIONSPC AM(iEQ,I) = C1*DGAMA(I,mH2SO4)+C2*DGAMA(I,mHHSO4) ENDDO AM(iEQ,jH) = AM(iEQ,jH) + ONE/MOLALD(jH) AM(iEQ,jSO4) = AM(iEQ,jSO4) + ONE/MOLALD(jSO4) AM(iEQ,jHSO4) = AM(iEQ,jHSO4) - ONE/MOLALD(jHSO4) AM(iEQ,JH2O) = AM(iEQ,JH2O) - ONE/WATER ENDIF iEQ = iK2 IF (FROW(iEQ).EQ.1) THEN IF (CC.EQ.'A') THEN C1 = 2.*LN10 C2 = -2.*LN10 DO I = 1, NIONSPC AM(iEQ,I) = C1*DGAMA(I,mNH4HS4)+C2*DGAMA(I,mHHSO4) ENDDO ELSE C1 = 2.*LN10 C2 = -2.*LN10 DO I = 1, NIONSPC AM(iEQ,I) = C1*DGAMA(I,mNH4NO3)+C2*DGAMA(I,mHNO3) ENDDO ENDIF AM(iEQ,jH) = AM(iEQ,jH) - ONE/MOLALD(jH) AM(iEQ,jNH3) = - ONE/GNH3D AM(iEQ,jNH4) = AM(iEQ,jNH4) + ONE/MOLALD(jNH4) ENDIF iEQ = iK3 IF (FROW(iEQ).EQ.1) THEN C1 = 2.*LN10 DO I = 1, NIONSPC AM(iEQ,I) = C1*DGAMA(I,mHCL) ENDDO AM(iEQ,jH) = AM(iEQ,jH) + ONE/MOLALD(jH) AM(iEQ,jCL) = AM(iEQ,jCL) + ONE/MOLALD(jCL) AM(iEQ,jHCL) = - ONE/GHCLD AM(iEQ,JH2O) = AM(iEQ,JH2O) - 2.*ONE/WATER ENDIF iEQ = iK4 IF (FROW(iEQ).EQ.1) THEN C1 = 2.*LN10 DO I = 1, NIONSPC AM(iEQ,I) = C1*DGAMA(I,mHNO3) ENDDO AM(iEQ,jH) = AM(iEQ,jH) + ONE/MOLALD(jH) AM(iEQ,jNO3) = AM(iEQ,jNO3) + ONE/MOLALD(jNO3) AM(iEQ,jHNO3) = - ONE/GHNO3D AM(iEQ,JH2O) = AM(iEQ,JH2O) - 2.*ONE/WATER ENDIF iEQ = iK5 IF (FROW(iEQ).EQ.1) THEN C1 = 3.*LN10 DO I = 1, NIONSPC AM(iEQ,I) = C1*DGAMA(I,mNA2SO4) ENDDO AM(iEQ,jNA) = AM(iEQ,jNA) + 2.*ONE/MAX(MOLALD(jNA),TINY) AM(iEQ,jSO4) = AM(iEQ,jSO4) + ONE/MOLALD(jSO4) AM(iEQ,JH2O) = AM(iEQ,JH2O) - 3.*ONE/WATER ENDIF iEQ = iK6 IF (FROW(iEQ).EQ.1) THEN AM(iEQ,jHCL) = ONE/GHCLD AM(iEQ,jNH3) = ONE/GNH3D ENDIF iEQ = iK7 IF (FROW(iEQ).EQ.1) THEN C1 = 3.*LN10 DO I = 1, NIONSPC AM(iEQ,I) = C1*DGAMA(I,mNH42S4) ENDDO AM(iEQ,jNH4) = AM(iEQ,jNH4) + 2.*ONE/MOLALD(jNH4) AM(iEQ,jSO4) = AM(iEQ,jSO4) + ONE/MOLALD(jSO4) AM(iEQ,JH2O) = AM(iEQ,JH2O) - 3.*ONE/WATER ENDIF iEQ = iK8 IF (FROW(iEQ).EQ.1) THEN C1 = 2.*LN10 DO I = 1, NIONSPC AM(iEQ,I) = C1*DGAMA(I,mNACL) ENDDO AM(iEQ,jNA) = AM(iEQ,jNA) + ONE/MAX(MOLALD(jNA),TINY) AM(iEQ,jCL) = AM(iEQ,jCL) + ONE/MOLALD(jCL) AM(iEQ,JH2O) = AM(iEQ,JH2O) - 2.*ONE/WATER ENDIF iEQ = iK9 IF (FROW(iEQ).EQ.1) THEN C1 = 2.*LN10 DO I = 1, NIONSPC AM(iEQ,I) = C1*DGAMA(I,mNANO3) ENDDO AM(iEQ,jNA) = AM(iEQ,jNA) + ONE/MAX(MOLALD(jNA),TINY) AM(iEQ,jNO3) = AM(iEQ,jNO3) + ONE/MOLALD(jNO3) AM(iEQ,JH2O) = AM(iEQ,JH2O) - 2.*ONE/WATER ENDIF iEQ = iK10 IF (FROW(iEQ).EQ.1) THEN AM(iEQ,jHNO3) = ONE/GHNO3D AM(iEQ,jNH3) = ONE/GNH3D ENDIF iEQ = iK11 IF (FROW(iEQ).EQ.1) THEN C1 = 2.*LN10 DO I = 1, NIONSPC AM(iEQ,I) = C1*DGAMA(I,mNAHSO4) ENDDO AM(iEQ,jNA) = AM(iEQ,jNA) + ONE/MAX(MOLALD(jNA),TINY) AM(iEQ,jHSO4) = AM(iEQ,jHSO4) + ONE/MOLALD(jHSO4) AM(iEQ,JH2O) = AM(iEQ,JH2O) - 2.*ONE/WATER ENDIF iEQ = iK12 IF (FROW(iEQ).EQ.1) THEN C1 = 2.*LN10 DO I = 1, NIONSPC AM(iEQ,I) = C1*DGAMA(I,mNH4HS4) ENDDO AM(iEQ,jNH4) = AM(iEQ,jNH4) + ONE/MOLALD(jNH4) AM(iEQ,jHSO4) = AM(iEQ,jHSO4) + ONE/MOLALD(jHSO4) AM(iEQ,JH2O) = AM(iEQ,JH2O) - 2.*ONE/WATER ENDIF iEQ = iK13 IF (FROW(iEQ).EQ.1) THEN C1 = 5.*LN10 DO I = 1, NIONSPC AM(iEQ,I) = C1*DGAMA(I,mLC) ENDDO AM(iEQ,jNH4) = AM(iEQ,jNH4) + 3.*ONE/MOLALD(jNH4) AM(iEQ,jHSO4) = AM(iEQ,jHSO4) + ONE/MOLALD(jHSO4) AM(iEQ,jSO4) = AM(iEQ,jSO4) + ONE/MOLALD(jSO4) AM(iEQ,JH2O) = AM(iEQ,JH2O) - 5.*ONE/WATER ENDIF iEQ = iK14 IF (FROW(iEQ).EQ.1) THEN C1 = 3.*LN10 DO I = 1, NIONSPC AM(iEQ,I) = C1*DGAMA(I,mCANO32) ENDDO AM(iEQ,jCA) = AM(iEQ,jCA) + ONE/MOLALD(jCA) AM(iEQ,jNO3) = AM(iEQ,jNO3) + 2.*ONE/MOLALD(jNO3) AM(iEQ,JH2O) = AM(iEQ,JH2O) - 3.*ONE/WATER ENDIF iEQ = iK15 IF (FROW(iEQ).EQ.1) THEN C1 = 3.*LN10 DO I = 1, NIONSPC AM(iEQ,I) = C1*DGAMA(I,mCACL2) ENDDO AM(iEQ,jCA) = AM(iEQ,jCA) + ONE/MOLALD(jCA) AM(iEQ,jCL) = AM(iEQ,jCL) + 2.*ONE/MOLALD(jCL) AM(iEQ,JH2O) = AM(iEQ,JH2O) - 3.*ONE/WATER ENDIF iEQ = iK16 IF (FROW(iEQ).EQ.1) THEN C1 = 3.*LN10 DO I = 1, NIONSPC AM(iEQ,I) = C1*DGAMA(I,mK2SO4) ENDDO AM(iEQ,jK) = AM(iEQ,jK) + 2.*ONE/MAX(MOLALD(jK),TINY) AM(iEQ,jSO4) = AM(iEQ,jSO4) + ONE/MOLALD(jSO4) AM(iEQ,JH2O) = AM(iEQ,JH2O) - 3.*ONE/WATER ENDIF iEQ = iK17 IF (FROW(iEQ).EQ.1) THEN C1 = 2.*LN10 DO I = 1, NIONSPC AM(iEQ,I) = C1*DGAMA(I,mKHSO4) ENDDO AM(iEQ,jK) = AM(iEQ,jK) + ONE/MAX(MOLALD(jK),TINY) AM(iEQ,jHSO4) = AM(iEQ,jHSO4) + ONE/MOLALD(jHSO4) AM(iEQ,JH2O) = AM(iEQ,JH2O) - 2.*ONE/WATER ENDIF iEQ = iK18 IF (FROW(iEQ).EQ.1) THEN C1 = 2.*LN10 DO I = 1, NIONSPC AM(iEQ,I) = C1*DGAMA(I,mKNO3) ENDDO AM(iEQ,jK) = AM(iEQ,jK) + ONE/MAX(MOLALD(jK),TINY) AM(iEQ,jNO3) = AM(iEQ,jNO3) + ONE/MOLALD(jNO3) AM(iEQ,JH2O) = AM(iEQ,JH2O) - 2.*ONE/WATER ENDIF iEQ = iK19 IF (FROW(iEQ).EQ.1) THEN C1 = 2.*LN10 DO I = 1, NIONSPC AM(iEQ,I) = C1*DGAMA(I,mKCL) ENDDO AM(iEQ,jK) = AM(iEQ,jK) + ONE/MAX(MOLALD(jK),TINY) AM(iEQ,jCL) = AM(iEQ,jCL) + ONE/MOLALD(jCL) AM(iEQ,JH2O) = AM(iEQ,JH2O) - 2.*ONE/WATER ENDIF iEQ = iK20 IF (FROW(iEQ).EQ.1) THEN C1 = 2.*LN10 DO I = 1, NIONSPC AM(iEQ,I) = C1*DGAMA(I,mMGSO4) ENDDO AM(iEQ,jMG) = AM(iEQ,jMG) + ONE/MOLALD(jMG) AM(iEQ,jSO4) = AM(iEQ,jSO4) + ONE/MOLALD(jSO4) AM(iEQ,JH2O) = AM(iEQ,JH2O) - 2.*ONE/WATER ENDIF iEQ = iK21 IF (FROW(iEQ).EQ.1) THEN C1 = 3.*LN10 DO I = 1, NIONSPC AM(iEQ,I) = C1*DGAMA(I,mMGNO32) ENDDO AM(iEQ,jMG) = AM(iEQ,jMG) + ONE/MOLALD(jMG) AM(iEQ,jNO3) = AM(iEQ,jNO3) + 2.*ONE/MOLALD(jNO3) AM(iEQ,JH2O) = AM(iEQ,JH2O) - 3.*ONE/WATER ENDIF iEQ = iK22 IF (FROW(iEQ).EQ.1) THEN C1 = 3.*LN10 DO I = 1, NIONSPC AM(iEQ,I) = C1*DGAMA(I,mMGCL2) ENDDO AM(iEQ,jMG) = AM(iEQ,jMG) + ONE/MOLALD(jMG) AM(iEQ,jCL) = AM(iEQ,jCL) + 2.*ONE/MOLALD(jCL) AM(iEQ,JH2O) = AM(iEQ,JH2O) - 3.*ONE/WATER ENDIF iEQ = iMBNA IF (FROW(iEQ).EQ.1) THEN AM(iEQ,jNA) = 1. AM(iEQ,jNACL) = 1. AM(iEQ,jNA2SO4) = 2. AM(iEQ,jNAHSO4) = 1. AM(iEQ,jNANO3) = 1. ENDIF iEQ = iMBSO4 IF (FROW(iEQ).EQ.1) THEN AM(iEQ,jSO4) = 1. AM(iEQ,jHSO4) = 1. AM(iEQ,jNH42S4) = 1. AM(iEQ,jNH4HS4) = 1. AM(iEQ,jNA2SO4) = 1. AM(iEQ,jNAHSO4) = 1. AM(iEQ,jLC) = 2. AM(iEQ,jK2SO4) = 1. AM(iEQ,jKHSO4) = 1. AM(iEQ,jMGSO4) = 1. AM(iEQ,jCASO4) = 1. ENDIF iEQ = iMBNH4 IF (FROW(iEQ).EQ.1) THEN AM(iEQ,jNH3) = 1. AM(iEQ,jNH4) = 1. AM(iEQ,jNH4CL) = 1. AM(iEQ,jNH42S4) = 2. AM(iEQ,jNH4HS4) = 1. AM(iEQ,jNH4NO3) = 1. AM(iEQ,jLC) = 3. ENDIF iEQ = iMBNO3 IF (FROW(iEQ).EQ.1) THEN AM(iEQ,jHNO3) = 1. AM(iEQ,jNO3) = 1. AM(iEQ,jNH4NO3) = 1. AM(iEQ,jNANO3) = 1. AM(iEQ,jCANO32) = 2. AM(iEQ,jKNO3) = 1. AM(iEQ,jMGNO32) = 2. ENDIF iEQ = iMBCL IF (FROW(iEQ).EQ.1) THEN AM(iEQ,jHCL) = 1. AM(iEQ,jCL) = 1. AM(iEQ,jNH4CL) = 1. AM(iEQ,jNACL) = 1. AM(iEQ,jCACL2) = 2. AM(iEQ,jKCL) = 1. AM(iEQ,jMGCL2) = 2. ENDIF iEQ = iMBCA IF (FROW(iEQ).EQ.1) THEN AM(iEQ,jCA) = 1. AM(iEQ,jCACL2) = 1. AM(iEQ,jCASO4) = 1. AM(iEQ,jCANO32) = 1. ENDIF iEQ = iMBK IF (FROW(iEQ).EQ.1) THEN AM(iEQ,jK) = 1. AM(iEQ,jKCL) = 1. AM(iEQ,jK2SO4) = 2. AM(iEQ,jKHSO4) = 1. AM(iEQ,jKNO3) = 1. ENDIF iEQ = iMBMG IF (FROW(iEQ).EQ.1) THEN AM(iEQ,jMG) = 1. AM(iEQ,jMGCL2) = 1. AM(iEQ,jMGSO4) = 1. AM(iEQ,jMGNO32) = 1. ENDIF iEQ = iCB IF(MOLALD(jH).LT.TINY) THEN AM(iEQ,jH) = 1. AM(iEQ,jH2O) = 0 ELSE AM(iEQ,jH) = 1. + XKW*RH*(WATER/MOLALD(jH))**2. AM(iEQ,jH2O) = -2.*XKW*RH*WATER/MOLALD(jH) ENDIF AM(iEQ,jNA) = 1. AM(iEQ,jNH4) = 1. AM(iEQ,jMG) = 2. AM(iEQ,jCA) = 2. AM(iEQ,jK) = 1. AM(iEQ,jSO4) = -2. AM(iEQ,jHSO4) = -1. AM(iEQ,jCL) = -1. AM(iEQ,jNO3) = -1. iEQ = iZSR DO I = 1, NSEN AM_TEMP(I) = AM(iEQ,I) END DO CALL DZSR(AM_TEMP) DO I = 1, NSEN AM(iEQ,I) = AM_TEMP(I) END DO C C *** END OF SUBROUTINE AMAT *** C RETURN END SUBROUTINE DZSR(SW) c IMPLICIT NONE INCLUDE 'isrpia.inc' INCLUDE 'aero_sens_data.inc' DOUBLE PRECISION SW(NSEN),TSW(NSEN),RHS DOUBLE PRECISION SO4I ,HSOI ,AML5 DOUBLE PRECISION FRNH4 ,FRCA ,FRK ,FRMG ,FRSO4 ,FRCL ,FRNO3, & DFRNH4,DFRCA,DFRK,DFRMG,DFRSO4,DFRCL,DFRNO3 DOUBLE PRECISION HSO4I, FRNA, DFRNA, DDRCL SW(jH2O) = -1.D0 RHS = 0.D0 FRNH4 = ZERO FRCA = ZERO FRK = ZERO FRMG = ZERO FRSO4 = ZERO FRCL = ZERO FRNO3 = ZERO IF (CC.EQ.'A') THEN SW(jSO4) = 1./M0(mNH42S4) SW(jHSO4) = 1./M0(mNH42S4) ELSEIF (CC.EQ.'C'.OR.CC.EQ.'F'.OR. & CC.EQ.'J'.OR.CC.EQ.'K') THEN SW(jSO4) = 1./M0(mH2SO4) SW(jHSO4) = 1./M0(mH2SO4) SW(jNH4) = -1./M0(mH2SO4) +1./M0(mNH4HS4) SW(jNA) = -1./M0(mH2SO4) +1./M0(mNAHSO4) SW(jCA) = -1./M0(mH2SO4) +1./M0(mCASO4) SW(jK) = -1./M0(mH2SO4) +1./M0(mKHSO4) SW(jMG) = -1./M0(mH2SO4) +1./M0(mMGSO4) ELSEIF (CC.EQ.'B'.OR.CC.EQ.'E') THEN SO4I = MOLALD(jSO4 ) -MOLALD(jH) HSO4I = MOLALD(jHSO4) +MOLALD(jH) IF (SO4I.LT.HSO4I) THEN SW(jSO4) = 1./M0(mLC) -1./M0(mNH4HS4) SW(jHSO4) = 1./M0(mNH4HS4) SW(jH) = -1./M0(mLC) +2./M0(mNH4HS4) ELSE SW(jSO4) = 1./M0(mNH42S4) SW(jHSO4) = 1./M0(mLC) -1./M0(mNH42S4) SW(jH) = 1./M0(mLC) -2./M0(mNH42S4) ENDIF ELSEIF (CC.EQ.'D') THEN SW(jSO4) = 1./M0(mNH42S4) SW(jHSO4) = 1./M0(mNH42S4) AML5 = MOLALD(3)-2.D0*(MOLALD(jSO4)+MOLALD(jHSO4)) IF(AML5.LT.MOLALD(jNO3)) THEN SW(jNH4) = 1./M0(mNH4NO3) SW(jSO4) = SW(jSO4) -2./M0(mNH4NO3) SW(jHSO4) = SW(jHSO4) -2./M0(mNH4NO3) ELSE SW(jNO3) = 1./M0(mNH4NO3) ENDIF ELSEIF (CC.EQ.'G'.OR.CC.EQ.'O') THEN SW(jNA) = 0.5/M0(mNA2SO4) -0.5/M0(mNH42S4) SW(jK) = 0.5/M0(mK2SO4) -0.5/M0(mNH42S4) SW(jMG) = 1.0/M0(mMGSO4) -1.0/M0(mNH42S4) SW(jSO4) = 1./M0(mNH42S4) SW(jHSO4) = 1./M0(mNH42S4) FRNH4 = MOLALD(jNH4)+MOLALD(jNA)+MOLALD(jK) & +MOLALD(jMG)-2.D0*(MOLALD(jSO4)+MOLALD(jHSO4)) IF (FRNH4.LT.MOLAL(jNO3)) THEN SW(jNH4) = 1./M0(mNH4NO3) SW(jNA) = SW(jNA) +1./M0(mNH4NO3) SW(jSO4) = SW(jSO4) -2./M0(mNH4NO3) SW(jHSO4) = SW(jHSO4) -2./M0(mNH4NO3) ELSE SW(jNO3) = 1./M0(mNH4NO3) FRNH4 = FRNH4 - MOLALD(jNO3) IF (FRNH4.LT.MOLALD(jCL)) THEN SW(jNH4 ) = 1./M0(mNH4CL) SW(jNA ) = SW(jNA ) +1./M0(mNH4CL) SW(jSO4 ) = SW(jSO4 ) -2./M0(mNH4CL) SW(jHSO4) = SW(jHSO4) -2./M0(mNH4CL) SW(jNO3 ) = SW(jNO3 ) +1./M0(mNH4CL) ELSE SW(jCL) = 1./M0(mNH4CL) ENDIF ENDIF ELSEIF (CC.EQ.'H'.OR.CC.EQ.'M') THEN RHS = 0.5*SINI(iMBK )/M0(mK2SO4 ) SW(jK2SO4) = -1./M0(mK2SO4 ) RHS = RHS +SINI(iMBMG )/M0(mMGSO4 ) SW(jMGSO4) = -1./M0(mMGSO4 ) RHS = RHS +SINI(iMBSO4)/M0(mNA2SO4) & -SINI(iMBCA )/M0(mNA2SO4) & -0.5*SINI(iMBK )/M0(mNA2SO4) & -SINI(iMBMG )/M0(mNA2SO4) SW(jNA2SO4) = -1./M0(mNA2SO4) FRNA = W(jTNA) -2.*W(jTSO4) DFRNA = SINI(iMBNA) -2.*SINI(iMBSO4) IF (FRNA.LT.W(jTNO3)) THEN !1) RHS = RHS +DFRNA/M0(mNANO3) SW(jNANO3) = -1./M0(mNANO3) FRNO3 = MOLALD(jNO3) -FRNA + CNANO3 IF (FRNO3.GT.ZERO) THEN !2) IF (FRNO3.LT.MOLALD(jNH4)) THEN !3) RHS = RHS -DFRNA/M0(mNH4NO3) SW(jNO3) = 1./M0(mNH4NO3) SW(jNANO3) = SW(jNANO3) +1./M0(mNH4NO3) FRNH4 = MOLALD(jNH4) -FRNO3 IF (FRNH4.LT.MOLALD(jCL)) THEN !4) RHS = RHS +DFRNA/M0(mNH4CL) SW(jNH4) = 1./M0(mNH4CL) SW(jNO3) = SW(jNO3) -1./M0(mNH4CL) SW(jNANO3) = SW(jNANO3) -1./M0(mNH4CL) ELSE !4) SW(jCL) = 1./M0(mNH4CL) ENDIF !4) ELSE !3) SW(jNH4) = 1./M0(mNH4NO3) ENDIF !3) ELSE !2) IF (MOLALD(jCL).LT.MOLALD(jNH4)) THEN !3) SW(jCL) = 1./M0(mNH4CL) ELSE !3) SW(jNH4) = 1./M0(mNH4CL) ENDIF !3) ENDIF !2) ELSE !1) RHS = RHS + SINI(iMBNO3)/M0(mNANO3) SW(jNANO3) = -1./M0(mNANO3) FRNA = FRNA - W(jTNO3) DFRNA = DFRNA - SINI(iMBNO3) IF (FRNA.LT.W(jTCL)) THEN !2) RHS = RHS +DFRNA/M0(mNACL) SW(jNACL) = -1./M0(mNACL) FRCL = MOLALD(jCL) -FRNA +CNACL FRNH4 = MOLALD(jNH4) IF (FRCL.GT.ZERO) THEN !3) IF (FRCL.LT.FRNH4) THEN !4) RHS = RHS -DFRNA/M0(mNH4CL) SW(jCL) = 1./M0(mNH4CL) SW(jNACL) = SW(jNACL) +1./M0(mNH4CL) ELSE !4) SW(jNH4) = 1./M0(mNH4CL) ENDIF !4) ENDIF !3) ELSE !2) RHS = RHS + SINI(iMBCL)/M0(mNACL) SW(jNACL) = -1./M0(mNACL) ENDIF !2) ENDIF !1) ELSEIF (CC.EQ.'I') THEN CALL DCALCI1A(TSW) RHS = TSW(jNA2SO4)/M0(mNA2SO4) +TSW(jNAHSO4)/M0(mNAHSO4) & +TSW(jNH42S4)/M0(mNH42S4) +TSW(jNH4HS4)/M0(mNH4HS4) & +TSW(jLC) /M0(mLC) SW(jNA2SO4) = -1./M0(mNA2SO4) SW(jNAHSO4) = -1./M0(mNAHSO4) SW(jNH42S4) = -1./M0(mNH42S4) SW(jNH4HS4) = -1./M0(mNH4HS4) SW(jLC) = -1./M0(mLC) ELSEIF (CC.EQ.'P') THEN IF(W(jTSO4).LT.W(jTCA)) THEN !CASO4,K2SO4,MGSO4 FRCA = W(jTCA)-W(jTSO4) DFRCA = SINI(iMBCA)-SINI(iMBSO4) FRK = W(jTK) DFRK = SINI(iMBK) FRMG = W(jTMG) DFRMG = SINI(iMBMG) ELSE FRCA = ZERO FRSO4 = W(jTSO4)-W(jTCA) DFRSO4 = SINI(iMBSO4) -SINI(iMBCA) IF(FRSO4.LT.0.5*W(jTK)) THEN RHS = DFRSO4/M0(mK2SO4) FRK = W(jTK)-2.*FRSO4 DFRK = SINI(iMBK) -2.*DFRSO4 FRMG = W(jTMG) DFRMG = SINI(iMBMG) ELSE RHS = 0.5*SINI(iMBK)/M0(mK2SO4) FRK = ZERO FRSO4 = FRSO4 -0.5*W(jTK) DFRSO4 = DFRSO4 -0.5*SINI(iMBK) RHS = RHS +DFRSO4/M0(mMGSO4) FRMG = W(jTMG)-FRSO4 DFRMG = SINI(iMBMG) -DFRSO4 ENDIF ENDIF IF(W(jTNA).LT.W(jTCL)) THEN !NACL FRNA = ZERO DFRNA = ZERO FRCL = W(jTCL) -W(jTNA) DFRCL = SINI(iMBCL) -SINI(iMBNA) RHS = RHS +SINI(iMBNA)/M0(mNACL) ELSE FRCL = ZERO DDRCL = ZERO FRNA = W(jTNA) -W(jTCL) DFRNA = SINI(iMBNA) -SINI(iMBCL) RHS = RHS +SINI(iMBCL)/M0(mNACL) ENDIF IF(FRCA.GT.ZERO) THEN !CANO32 IF(FRCA.LT.0.5*W(jTNO3)) THEN RHS = RHS + DFRCA/M0(mCANO32) FRCA = ZERO DFRCA = ZERO FRNO3 = W(jTNO3) - 2.*FRCA DFRNO3 = SINI(iMBNO3) - 2.*DFRCA ELSE RHS = RHS + 0.5*SINI(iMBNO3)/M0(mCANO32) FRNO3 = ZERO DFRNO3 = ZERO FRCA = FRCA - 0.5*W(jTNO3) DFRCA = DFRCA - 0.5*SINI(iMBNO3) ENDIF ENDIF IF(FRCA.GT.ZERO.AND.FRCL.GT.ZERO) THEN !CACL2 IF(FRCA.LT.0.5*FRCL) THEN RHS = RHS + DFRCA/M0(mCACL2) FRCA = ZERO DFRCA = ZERO FRCL = FRCL - 2.*FRCA DFRCL = DFRCL - 2.*DFRCA ELSE RHS = RHS + 0.5*DFRCL/M0(mCACL2) FRCL = ZERO DFRCL = ZERO FRCA = FRCA - 0.5*FRCL DFRCA = DFRCA - 0.5*DFRCL ENDIF ENDIF IF(FRMG.GT.ZERO.AND.FRNO3.GT.ZERO) THEN !MGNO32 IF(FRMG.LT.0.5*FRNO3) THEN RHS = RHS +DFRMG/M0(mMGNO32) FRMG = ZERO DFRMG = ZERO FRNO3 = FRNO3 -2.*FRMG DFRNO3 = DFRNO3 -2.*DFRMG ELSE RHS = RHS + 0.5*DFRNO3/M0(mMGNO32) FRNO3 = ZERO DFRNO3 = ZERO FRMG = FRMG - 0.5*FRNO3 DFRMG = DFRMG - 0.5*DFRNO3 ENDIF ENDIF IF(FRMG.GT.ZERO.AND.FRCL.GT.ZERO) THEN !MGCL2 IF(FRMG.LT.0.5*FRCL) THEN RHS = RHS + DFRMG/M0(mMGCL2) FRMG = ZERO DFRMG = ZERO FRCL = FRCL - 2.*FRMG DFRCL = DFRCL - 2.*DFRMG ELSE RHS = RHS + 0.5*DFRCL/M0(mMGCL2) FRCL = 0.0 DFRCL = 0.0 FRMG = FRMG - 0.5*FRCL DFRMG = DFRMG - 0.5*DFRCL ENDIF ENDIF IF(FRNA.GT.ZERO.AND.FRNO3.GT.ZERO) THEN !NANO3 IF(FRNA.LT.FRNO3) THEN RHS = RHS + DFRNA/M0(mNANO3) FRNA = ZERO DFRNA = ZERO FRNO3 = FRNO3 - FRNA DFRNO3 = DFRNO3 - DFRNA ELSE RHS = RHS + DFRNO3/M0(mNANO3) FRNO3 = ZERO DFRNO3 = ZERO FRNA = FRNA - FRNO3 DFRNA = DFRNA - DFRNO3 ENDIF ENDIF IF(FRK.GT.ZERO.AND.FRCL.GT.ZERO) THEN !KCL IF(FRK.LT.FRCL) THEN RHS = RHS + DFRK/M0(mKCL) FRK = ZERO DFRK = ZERO FRCL = FRCL - FRK DFRCL = DFRCL - DFRK ELSE RHS = RHS + DFRCL/M0(mKCL) FRCL = ZERO DFRCL = ZERO FRK = FRK - FRCL DFRK = DFRK - DFRCL ENDIF ENDIF IF(FRK.GT.ZERO.AND.FRNO3.GT.ZERO) THEN !KNO3 IF(FRK.LT.FRNO3) THEN RHS = RHS + DFRK/M0(mKNO3) FRK = ZERO DFRK = ZERO FRNO3 = FRNO3 - FRK DFRNO3 = DFRNO3 - DFRK ELSE RHS = RHS + DFRNO3/M0(mKNO3) FRNO3 = ZERO DFRNO3 = ZERO FRK = FRK - FRNO3 DFRK = DFRK - DFRNO3 ENDIF ENDIF ELSEIF(CC.EQ.'L') THEN CALL DCALCL1A(TSW) RHS = TSW(jNA2SO4)/M0(mNA2SO4) +TSW(jNAHSO4)/M0(mNAHSO4) & +TSW(jNH42S4)/M0(mNH42S4) +TSW(jNH4HS4)/M0(mNH4HS4) & +TSW(jLC) /M0(mLC) +TSW(jK2SO4 )/M0(mK2SO4 ) & +TSW(jMGSO4 )/M0(mMGSO4 ) +TSW(jKHSO4 )/M0(mKHSO4 ) SW(jNA2SO4) = -1./M0(mNA2SO4) SW(jNAHSO4) = -1./M0(mNAHSO4) SW(jNH42S4) = -1./M0(mNH42S4) SW(jNH4HS4) = -1./M0(mNH4HS4) SW(jLC ) = -1./M0(mLC ) SW(jK2SO4 ) = -1./M0(mK2SO4 ) SW(jMGSO4 ) = -1./M0(mMGSO4 ) SW(jKHSO4 ) = -1./M0(mKHSO4 ) ENDIF SINI(iZSR) = -RHS C C *** END OF SUBROUTINE DZSR C RETURN END SUBROUTINE DCALCI1A(TSW) c IMPLICIT NONE INCLUDE 'isrpia.inc' INCLUDE 'aero_sens_data.inc' DOUBLE PRECISION TSW(NSEN) DOUBLE PRECISION FRSO4 INTEGER I,J,K DO I = 1, NSEN TSW(I) = 0.0 ENDDO TSW(jNA2SO4) = .5*SINI(iMBNA) FRSO4 = W(jTSO4) -0.5D0*W(jTNA) -2.D0*W(jTNH4)/3.D0 IF (FRSO4.LE.TINY) THEN TSW(jLC) = 2.*SINI(iMBSO4) -SINI(iMBNA) -SINI(iMBNH4) TSW(jNH42S4) = 2.*SINI(iMBNH4) -3.*SINI(iMBSO4) +1.5*SINI(iMBNA) ELSE IF (FRSO4.LE.W(jTNH4)/3.D0) THEN TSW(jNH4HS4) = 3.*SINI(iMBSO4) -1.5*SINI(iMBNA) & -2.*SINI(iMBNH4) TSW(jLC) = SINI(iMBNH4) -SINI(iMBSO4) +.5*SINI(iMBNA) ELSE TSW(jNH4HS4) = SINI(iMBNH4) IF (0.5D0*W(jTNA).GT.TINY) THEN TSW(jNAHSO4) = 2.*SINI(iMBSO4) -SINI(iMBNA) -2.*SINI(iMBNH4) TSW(jNA2SO4) = SINI(iMBNH4) +SINI(iMBNA) -SINI(iMBSO4) ENDIF ENDIF ENDIF C C *** END OF DCALCI1A C RETURN END SUBROUTINE DCALCL1A(TSW) c IMPLICIT NONE INCLUDE 'isrpia.inc' INCLUDE 'aero_sens_data.inc' DOUBLE PRECISION TSW(NSEN) DOUBLE PRECISION FRSO4 INTEGER I,J,K DOUBLE PRECISION DFRSO4, FRSO4T, DFRSO4T DO I = 1, NSEN TSW(I) = 0.0 ENDDO FRSO4 = W(jTSO4) -W(jTCA) DFRSO4 = SINI(iMBSO4) -SINI(iMBCA) TSW(jK2SO4) = 0.5D0*SINI(iMBK) FRSO4 = FRSO4 -0.5D0*W(jTK) DFRSO4 = DFRSO4 -0.5D0*SINI(iMBK) TSW(jNA2SO4) = 0.5D0*SINI(iMBNA) FRSO4 = FRSO4 -0.5D0*W(jTNA) DFRSO4 = DFRSO4 -0.5D0*SINI(iMBNA) TSW(jMGSO4) = SINI(iMBMG) FRSO4 = FRSO4 -W(jTMG) DFRSO4 = DFRSO4 -SINI(iMBMG) FRSO4T = FRSO4 -2.D0*W(jTNH4)/3.D0 DFRSO4T = DFRSO4 -2.D0*SINI(iMBNH4)/3.D0 IF (FRSO4T.LE.TINY) THEN TSW(jLC) = 2.D0*DFRSO4 -SINI(iMBNH4) TSW(jNH42S4) = 2.D0*SINI(iMBNH4) -3.D0*DFRSO4 ELSE FRSO4 = FRSO4T DFRSO4 = DFRSO4T IF (FRSO4T.LE.W(jTNH4)/3.D0) THEN TSW(jNH4HS4) = 3.D0*DFRSO4 TSW(jLC) = SINI(iMBNH4)/3.D0 -DFRSO4 ELSE TSW(jNH4HS4) = SINI(iMBNH4) IF (0.5D0*W(jTNA).GT.TINY) THEN FRSO4 = FRSO4 - W(jTNH4)/3.D0 IF (FRSO4.GT.ZERO) THEN DFRSO4 = DFRSO4 -SINI(iMBNH4)/3.D0 TSW(jNAHSO4) = 2.D0*DFRSO4 TSW(jNA2SO4) = TSW(jNA2SO4)-DFRSO4 ENDIF ENDIF IF (0.5D0*W(jTK).GT.TINY) THEN FRSO4 = FRSO4 - W(jTNH4)/3.D0 IF (FRSO4.GT.ZERO) THEN DFRSO4 = DFRSO4 -SINI(iMBNH4)/3.D0 TSW(jKHSO4 ) = 2.D0*DFRSO4 TSW(jK2SO4 ) = TSW(jK2SO4)-DFRSO4 ENDIF ENDIF ENDIF ENDIF C C *** END OF DCALCI1A C RETURN END SUBROUTINE EQNSLV(FROW,FCOL,COEF,SENS,SENSD) c USE DDM3D_DEFN, ONLY : WRFLAG USE UTILIO_DEFN ! I/O API USE RUNTIME_VARS, ONLY: LOGDEV c IMPLICIT NONE INCLUDE 'isrpia.inc' INCLUDE 'aero_sens_data.inc' INTEGER FROW(NSEN),FCOL(NSEN) DOUBLE PRECISION COEF(NSEN,NSEN) DOUBLE PRECISION SENS(NSEN),SENSD(NSEN) DIMENSION IPVT(NDIM) DOUBLE PRECISION AA(NDIM,NDIM),BB(NDIM) DOUBLE PRECISION AAT(NDIM*NDIM) INTEGER I,J,K INTEGER ICOL, INFO, IROW, IPVT c INTEGER, SAVE :: LOGDEV c LOGICAL, SAVE :: FIRSTIME = .TRUE. c IF ( FIRSTIME ) THEN c FIRSTIME = .FALSE. c LOGDEV = INIT3 () c ENDIF C C *** ELIMINATE A-MATRIX AND B-VECTOR *** C I = 0 DO IROW = 1,NSEN IF(FROW(IROW).EQ.1) THEN I = I+1 J = 0 DO ICOL = 1,NSEN IF(FCOL(ICOL).EQ.1) THEN J = J+1 AA(I,J) = COEF(IROW,ICOL) ENDIF ENDDO BB(I) = SINI(IROW) ENDIF ENDDO C C *** LU-DECOMPOSITION *** C K = 0 DO J = 1,NDIM DO I = 1,NDIM K = K+1 AAT(K) = AA(I,J) ENDDO ENDDO INFO = 0 CALL dgefa(AAT,NDIM,NDIM,IPVT,INFO) IF (INFO.NE.0) THEN WRITE(LOGDEV,*) 'ERROR IN DGEFA' write(LOGDEV,*) 'IONS', MOLALD write(LOGDEV,*) 'GASES', GNH3, GHNO3, GHCL, GNH3D, GHNO3D, GHCLD write(LOGDEV,*) 'WATER', WATER WRITE(LOGDEV,*) 'ISOROPIA case = ',SCASE WRITE(LOGDEV,*) 'ISOROPIA W =',W WRITE(LOGDEV,*) 'ndim = ',ndim WRITE(LOGDEV,*) 'frow = ',frow WRITE(LOGDEV,*) 'fcol = ',fcol WRITE(LOGDEV,*) 'AA = ' do i = 1,ndim write(LOGDEV,*), i write(LOGDEV,*) (AA(i,j),j=1,ndim) enddo write(LOGDEV,*) 'BB = ',(BB(i),i=1,ndim) STOP ENDIF C C *** SOLVE THE EQUATION SYSTEM *** C CALL dgesl(AAT,NDIM,NDIM,IPVT,BB,0) C C *** MAP SENSITIVITIES *** C I = 0 DO ICOL = 1,NSEN IF(FCOL(ICOL).EQ.1) THEN I = I+1 SENSD(ICOL) = BB(I) SENS(ICOL ) = BB(I) ENDIF ENDDO C C *** END OF EQNSLV *** C RETURN END SUBROUTINE DCALCNH3(SENS) c IMPLICIT NONE INCLUDE 'isrpia.inc' INCLUDE 'aero_sens_data.inc' DOUBLE PRECISION SENS(NSEN) DOUBLE PRECISION DPSI,GR,C,SR c INTEGER, SAVE :: LOGDEV c LOGICAL, SAVE :: FIRSTIME = .TRUE. c IF ( FIRSTIME ) THEN c FIRSTIME = .FALSE. c LOGDEV = INIT3 () c ENDIF c IF (WATER.LE.TINY) RETURN IF ( WATER .LE. TINY .OR. & MOLAL(jNH4) .LE. TINY .OR. & MOLAL(jH) .LE. TINY .OR. & GNH3 .LE. TINY ) THEN RETURN ENDIF GR = -2.D0*LN10*(SGAMA(mHNO3)-SGAMA(mNH4NO3)) !GAMA RELATED C = ONE/MOLAL(jNH4) +ONE/MOLAL(jH) +ONE/GNH3 SR = SENS(jNH4)/MOLAL(jNH4) -SENS(jH)/MOLAL(jH) !SENS RELATED DPSI = (SR +GR)/C SENS(jNH3) = DPSI SENS(jNH4) = SENS(jNH4) -DPSI SENS(jH ) = SENS(JH ) -DPSI RETURN END SUBROUTINE DCALCNA(SENS) c IMPLICIT NONE INCLUDE 'isrpia.inc' INCLUDE 'aero_sens_data.inc' DOUBLE PRECISION SENS(NSEN) DOUBLE PRECISION DELT,GR,SR,WR,C c IF (WTAER.LE.TINY) RETURN IF ( WATER .LE. TINY .OR. & MOLAL(jH) .LE. TINY .OR. & MOLAL(jNO3).LE. TINY ) RETURN WR = 2.D0*SENS(jH2O)/WATER GR = -2.D0*LN10*SGAMA(mHNO3) SR = -SENS(jH)/MOLAL(jH) +SINI(iMBNO3)/GHNO3 C = ONE/MOLAL(jH) +ONE/MOLAL(jNO3) +ONE/GHNO3 DELT = (SR +WR +GR)/C IF (GHNO3.EQ.ZERO) THEN SENS(jHNO3) = ZERO ELSE SENS(jHNO3) = SINI(iMBNO3) -DELT ENDIF SENS(jNO3) = DELT SENS(jH ) = SENS(jH) +DELT RETURN END SUBROUTINE DCALCNHA(SENS) c IMPLICIT NONE INCLUDE 'isrpia.inc' INCLUDE 'aero_sens_data.inc' DOUBLE PRECISION SENS(NSEN) DOUBLE PRECISION DNO,DCL,C11,C12,C21,C22,B1,B2,SR,WR,GR c INTEGER, SAVE :: LOGDEV c LOGICAL, SAVE :: FIRSTIME = .TRUE. c IF ( FIRSTIME ) THEN c FIRSTIME = .FALSE. c LOGDEV = INIT3 () c ENDIF IF (WATER.LE.TINY) THEN SENS(jHNO3) = SINI(iMBNO3) SENS(jHCL ) = SINI(iMBCL ) RETURN ELSEIF (W(jTCL).LE.TINY.AND.W(jTNO3).LE.TINY) THEN RETURN ELSEIF (W(jTCL).LE.TINY) THEN CALL DCALCNA(SENS) ELSEIF (W(jTNO3).LE.TINY) THEN CALL DCALCHA(SENS) ENDIF IF ( MOLAL(jH) .LE. TINY .OR. & MOLAL(jNO3) .LE. TINY .OR. & GHNO3 .LE. TINY .OR. & MOLAL(jCL) .LE. TINY .OR. & GHCL .LE. TINY ) THEN DCL = ZERO DNO = ZERO RETURN ENDIF C11 = ONE/MOLAL(jH) +ONE/MOLAL(jNO3) +ONE/GHNO3 C12 = ONE/MOLAL(jH) C21 = C12 C22 = ONE/MOLAL(jH) +ONE/MOLAL(jCL) +ONE/GHCL SR =-SENS(jH)/MOLAL(jH) +SINI(iMBNO3)/GHNO3 WR = 2.D0*SENS(jH2O)/WATER GR =-2.D0*LN10*SGAMA(mHNO3) B1 = SR +WR +GR SR =-SENS(jH)/MOLAL(jH) +SINI(iMBCL)/GHCL GR =-2.D0*LN10*SGAMA(mHCL) B2 = SR +WR +GR DCL = (B1*C21 -B2*C11)/(C21*C12 -C22*C11) IF (MOLAL(jCL).EQ.W(jTCL)) DCL = SINI(iMBCL) DNO = (B1 -C12*DCL)/C11 IF (MOLAL(jNO3).EQ.W(jTNO3)) DNO = SINI(iMBNO3) c IF (MOLAL(jCL).EQ.TINY.AND.MOLAL(jNO3).EQ.TINY) THEN IF (MOLAL(jCL).LE.TINY.AND.MOLAL(jNO3).LE.TINY) THEN DCL = ZERO DNO = ZERO ENDIF SENS(jH) = SENS(jH) +DCL +DNO SENS(jCL) = DCL SENS(jNO3) = DNO SENS(jHCL) = SINI(jCL) -DCL SENS(jHNO3) = SINI(jNO3) -DNO RETURN END SUBROUTINE DCALCHA(SENS) c IMPLICIT NONE INCLUDE 'isrpia.inc' INCLUDE 'aero_sens_data.inc' DOUBLE PRECISION SENS(NSEN) DOUBLE PRECISION DELT,GR,SR,WR,C c IF (WTAER.LE.TINY) RETURN IF (WATER .LE. TINY .OR. & MOLAL(jH) .LE. TINY .OR. & MOLAL(jCL) .LE. TINY ) RETURN WR = 2.D0*SENS(jH2O)/WATER GR = -2.D0*LN10*SGAMA(mHCL) SR = -SENS(jH)/MOLAL(jH) +SINI(iMBCL)/GHCL C = ONE/MOLAL(jH) +ONE/MOLAL(jCL) +ONE/GHCL DELT = (SR +WR +GR)/C IF (GHCL.EQ.ZERO) THEN SENS(jHCL) = 0.D0 ELSE SENS(jHCL) = SINI(iMBCL) -DELT END IF SENS(jCL ) = DELT SENS(jH ) = SENS(jH) +DELT RETURN END SUBROUTINE DCALCHS4(SENS) c IMPLICIT NONE INCLUDE 'isrpia.inc' INCLUDE 'aero_sens_data.inc' DOUBLE PRECISION SENS(NSEN) DOUBLE PRECISION DELTA,GR,SR,WR,C c IF (WATER.LE.1D1*TINY) RETURN c IF (MOLAL(jHSO4).EQ.ZERO) RETURN IF ( WATER.LE.1D1*TINY .OR. & MOLAL(jHSO4) .LE. TINY .OR. & MOLAL(jH) .LE. TINY .OR. & MOLAL(jSO4) .LE. TINY ) RETURN WR = ONE*SENS(jH2O)/WATER GR = 2.D0*LN10*SGAMA(mHHSO4)-3.D0*LN10*SGAMA(mH2SO4) SR = -SENS(jH)/MOLAL(jH) -SENS(jSO4)/MOLAL(jSO4) C = -ONE/MOLAL(jH) -ONE/MOLAL(jSO4) -ONE/MOLAL(jHSO4) DELTA = (WR +GR +SR)/C SENS(jH) = SENS(jH) -DELTA SENS(jSO4) = SENS(jSO4) -DELTA SENS(jHSO4) = DELTA RETURN END subroutine dgefa(a,lda,n,ipvt,info) implicit none integer lda,n,ipvt(n),info double precision a(lda,n) c c dgefa factors a double precision matrix by gaussian elimination. c c dgefa is usually called by dgeco, but it can be called c directly with a saving in time if rcond is not needed. c (time for dgeco) = (1 + 9/n)*(time for dgefa) . c c on entry c c a double precision(lda, n) c the matrix to be factored. c c lda integer c the leading dimension of the array a . c c n integer c the order of the matrix a . c c on return c c a an upper triangular matrix and the multipliers c which were used to obtain it. c the factorization can be written a = l*u where c l is a product of permutation and unit lower c triangular matrices and u is upper triangular. c c ipvt integer(n) c an integer vector of pivot indices. c c info integer c = 0 normal value. c = k if u(k,k) .eq. 0.0 . this is not an error c condition for this subroutine, but it does c indicate that dgesl or dgedi will divide by zero c if called. use rcond in dgeco for a reliable c indication of singularity. c c linpack. this version dated 08/14/78 . c cleve moler, university of new mexico, argonne national lab. c c subroutines and functions c c blas daxpy,dscal,idamax c c internal variables c double precision t integer idamax,j,k,kp1,l,nm1 c c c gaussian elimination with partial pivoting c info = 0 nm1 = n - 1 if (nm1 .lt. 1) go to 70 do 60 k = 1, nm1 kp1 = k + 1 c c find l = pivot index c l = idamax(n-k+1,a(k,k),1) + k - 1 ipvt(k) = l c c zero pivot implies this column already triangularized c if (a(l,k) .eq. 0.0d0) go to 40 c c interchange if necessary c if (l .eq. k) go to 10 t = a(l,k) a(l,k) = a(k,k) a(k,k) = t 10 continue c c compute multipliers c t = -1.0d0/a(k,k) call dscal(n-k,t,a(k+1,k),1) c c row elimination with column indexing c do 30 j = kp1, n t = a(l,j) if (l .eq. k) go to 20 a(l,j) = a(k,j) a(k,j) = t 20 continue call daxpy(n-k,t,a(k+1,k),1,a(k+1,j),1) 30 continue go to 50 40 continue info = k 50 continue 60 continue 70 continue ipvt(n) = n if (a(n,n) .eq. 0.0d0) info = n return end c ................................................................. subroutine dgesl(a,lda,n,ipvt,b,job) implicit none integer lda,n,ipvt(n),job double precision a(lda,n),b(n) c c dgesl solves the double precision system c a * x = b or trans(a) * x = b c using the factors computed by dgeco or dgefa. c c on entry c c a double precision(lda, n) c the output from dgeco or dgefa. c c lda integer c the leading dimension of the array a . c c n integer c the order of the matrix a . c c ipvt integer(n) c the pivot vector from dgeco or dgefa. c c b double precision(n) c the right hand side vector. c c job integer c = 0 to solve a*x = b , c = nonzero to solve trans(a)*x = b where c trans(a) is the transpose. c c on return c c b the solution vector x . c c error condition c c a division by zero will occur if the input factor contains a c zero on the diagonal. technically this indicates singularity c but it is often caused by improper arguments or improper c setting of lda . it will not occur if the subroutines are c called correctly and if dgeco has set rcond .gt. 0.0 c or dgefa has set info .eq. 0 . c c to compute inverse(a) * c where c is a matrix c with p columns c call dgeco(a,lda,n,ipvt,rcond,z) c if (rcond is too small) go to ... c do 10 j = 1, p c call dgesl(a,lda,n,ipvt,c(1,j),0) c 10 continue c c linpack. this version dated 08/14/78 . c cleve moler, university of new mexico, argonne national lab. c c subroutines and functions c c blas daxpy,ddot c c internal variables c double precision ddot,t integer k,kb,l,nm1 c nm1 = n - 1 if (job .ne. 0) go to 50 c c job = 0 , solve a * x = b c first solve l*y = b c if (nm1 .lt. 1) go to 30 do 20 k = 1, nm1 l = ipvt(k) t = b(l) if (l .eq. k) go to 10 b(l) = b(k) b(k) = t 10 continue call daxpy(n-k,t,a(k+1,k),1,b(k+1),1) 20 continue 30 continue c c now solve u*x = y c do 40 kb = 1, n k = n + 1 - kb b(k) = b(k)/a(k,k) t = -b(k) call daxpy(k-1,t,a(1,k),1,b(1),1) 40 continue go to 100 50 continue c c job = nonzero, solve trans(a) * x = b c first solve trans(u)*y = b c do 60 k = 1, n t = ddot(k-1,a(1,k),1,b(1),1) b(k) = (b(k) - t)/a(k,k) 60 continue c c now solve trans(l)*x = y c if (nm1 .lt. 1) go to 90 do 80 kb = 1, nm1 k = n - kb b(k) = b(k) + ddot(n-k,a(k+1,k),1,b(k+1),1) l = ipvt(k) if (l .eq. k) go to 70 t = b(l) b(l) = b(k) b(k) = t 70 continue 80 continue 90 continue 100 continue return end c ................................................................. subroutine daxpy(n,da,dx,incx,dy,incy) c c constant times a vector plus a vector. c uses unrolled loops for increments equal to one. c jack dongarra, linpack, 3/11/78. c modified 12/3/93, array(1) declarations changed to array(*) c implicit none double precision dx(*),dy(*),da integer i,incx,incy,ix,iy,m,mp1,n c if(n.le.0)return if (da .eq. 0.0d0) return if(incx.eq.1.and.incy.eq.1)go to 20 c c code for unequal increments or equal increments c not equal to 1 c ix = 1 iy = 1 if(incx.lt.0)ix = (-n+1)*incx + 1 if(incy.lt.0)iy = (-n+1)*incy + 1 do 10 i = 1,n dy(iy) = dy(iy) + da*dx(ix) ix = ix + incx iy = iy + incy 10 continue return c c code for both increments equal to 1 c c c clean-up loop c 20 m = mod(n,4) if( m .eq. 0 ) go to 40 do 30 i = 1,m dy(i) = dy(i) + da*dx(i) 30 continue if( n .lt. 4 ) return 40 mp1 = m + 1 do 50 i = mp1,n,4 dy(i) = dy(i) + da*dx(i) dy(i + 1) = dy(i + 1) + da*dx(i + 1) dy(i + 2) = dy(i + 2) + da*dx(i + 2) dy(i + 3) = dy(i + 3) + da*dx(i + 3) 50 continue return end c ................................................................. double precision function ddot(n,dx,incx,dy,incy) c c forms the dot product of two vectors. c uses unrolled loops for increments equal to one. c jack dongarra, linpack, 3/11/78. c modified 12/3/93, array(1) declarations changed to array(*) c double precision dx(*),dy(*),dtemp integer i,incx,incy,ix,iy,m,mp1,n c ddot = 0.0d0 dtemp = 0.0d0 if(n.le.0)return if(incx.eq.1.and.incy.eq.1)go to 20 c c code for unequal increments or equal increments c not equal to 1 c ix = 1 iy = 1 if(incx.lt.0)ix = (-n+1)*incx + 1 if(incy.lt.0)iy = (-n+1)*incy + 1 do 10 i = 1,n dtemp = dtemp + dx(ix)*dy(iy) ix = ix + incx iy = iy + incy 10 continue ddot = dtemp return c c code for both increments equal to 1 c c c clean-up loop c 20 m = mod(n,5) if( m .eq. 0 ) go to 40 do 30 i = 1,m dtemp = dtemp + dx(i)*dy(i) 30 continue if( n .lt. 5 ) go to 60 40 mp1 = m + 1 do 50 i = mp1,n,5 dtemp = dtemp + dx(i)*dy(i) + dx(i + 1)*dy(i + 1) + * dx(i + 2)*dy(i + 2) + dx(i + 3)*dy(i + 3) + dx(i + 4)*dy(i + 4) 50 continue 60 ddot = dtemp return end c ................................................................. subroutine dscal(n,da,dx,incx) c c scales a vector by a constant. c uses unrolled loops for increment equal to one. c jack dongarra, linpack, 3/11/78. c modified 3/93 to return if incx .le. 0. c modified 12/3/93, array(1) declarations changed to array(*) c implicit none double precision da,dx(*) integer i,incx,m,mp1,n,nincx c if( n.le.0 .or. incx.le.0 )return if(incx.eq.1)go to 20 c c code for increment not equal to 1 c nincx = n*incx do 10 i = 1,nincx,incx dx(i) = da*dx(i) 10 continue return c c code for increment equal to 1 c c c clean-up loop c 20 m = mod(n,5) if( m .eq. 0 ) go to 40 do 30 i = 1,m dx(i) = da*dx(i) 30 continue if( n .lt. 5 ) return 40 mp1 = m + 1 do 50 i = mp1,n,5 dx(i) = da*dx(i) dx(i + 1) = da*dx(i + 1) dx(i + 2) = da*dx(i + 2) dx(i + 3) = da*dx(i + 3) dx(i + 4) = da*dx(i + 4) 50 continue return end c ................................................................. integer function idamax(n,dx,incx) c c finds the index of element having max. absolute value. c jack dongarra, linpack, 3/11/78. c modified 3/93 to return if incx .le. 0. c modified 12/3/93, array(1) declarations changed to array(*) c double precision dx(*),dmax integer i,incx,ix,n c idamax = 0 if( n.lt.1 .or. incx.le.0 ) return idamax = 1 if(n.eq.1)return if(incx.eq.1)go to 20 c c code for increment not equal to 1 c ix = 1 dmax = dabs(dx(1)) ix = ix + incx do 10 i = 2,n if(dabs(dx(ix)).le.dmax) go to 5 idamax = i dmax = dabs(dx(ix)) 5 ix = ix + incx 10 continue return c c code for increment equal to 1 c 20 dmax = dabs(dx(1)) do 30 i = 2,n if(dabs(dx(i)).le.dmax) go to 30 idamax = i dmax = dabs(dx(i)) 30 continue return end #endif ================================================ FILE: CCTM/src/ddm3d/aero_sens_calc2.F ================================================ #ifdef sens !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C =================================================================== C This subroutine calculates second-order sensitivity of ISORROPIAII C C Written by Wenxian Zhang in August 2011 C C 27 September 2013: Sergey L. Napelenok C --- implemented into CMAQv5.0.2 C --- disabled hddm activity and water sensitivity calculations C --- to finish code development for these C 08 September 2014: Sergey L. Napelenok C --- some minor bug fixes C C Reference: C Zhang, W., Capps, S. L., Hu, Y., Nenes, A., Napelenok, S. L., & C Russell, A. G. (2012). Development of the high-order decoupled C direct method in three dimensions for particulate matter: C enabling advanced sensitivity analysis in air quality models. C Geoscientific Model Development, 5(2), 355-368. C doi: 10.5194/gmd-5-355-2012 C =================================================================== SUBROUTINE AERO_SENS_CALC2(STOT,SENS,S1,S2,S1D,S2D,SCASI,FCOL) c USE DDM3D_DEFN, ONLY : WRFLAG c IMPLICIT NONE INCLUDE 'isrpia.inc' INCLUDE 'aero_sens_data.inc' INTEGER, INTENT (INOUT) :: FCOL( : ) DOUBLE PRECISION, INTENT( IN ) :: STOT( : ) DOUBLE PRECISION, INTENT( OUT ) :: SENS( : ) !OUTPUT, HDDM DOUBLE PRECISION, INTENT( IN ) :: S1( : ) !INPUT, 1ST ORDER SENS DOUBLE PRECISION, INTENT( IN ) :: S2( : ) !INPUT, 2ND ORDER SENS DOUBLE PRECISION, INTENT( IN ) :: S1D( : ) !INPUT, 1ST ORDER SENS DOUBLE PRECISION, INTENT( IN ) :: S2D( : ) !INPUT, 2ND ORDER SENS CHARACTER( 15 ), INTENT( IN ) :: SCASI ! (input) subcase number from ISOROPIA INTEGER FROW(NSEN) DOUBLE PRECISION :: COEF(NSEN,NSEN) !COEFFICIENT MATRIX DOUBLE PRECISION SENSD(NSEN) DOUBLE PRECISION DGAMA(NIONSPC,NPAIR) !dGAMA/dA DOUBLE PRECISION RGAMA(NPAIR) ! RHS FROM 2ND-ORDER GAMA SENSITIVITIES c INTEGER, SAVE :: LOGDEV c LOGICAL, SAVE :: FIRSTIME = .TRUE. c IF ( FIRSTIME ) THEN c FIRSTIME = .FALSE. c LOGDEV = INIT3 () c ENDIF INTEGER I CC = SCASI(1:1) C *** INITIALIZE SINI *** DO I = 1,NSEN SINI(I) = 0.D0 ENDDO SINI(iMBNA) = STOT(1) SINI(iMBSO4) = STOT(2) SINI(iMBNH4) = STOT(3) SINI(iMBNO3) = STOT(4) SINI(iMBCL) = STOT(5) SINI(iMBCA) = STOT(6) SINI(iMBK) = STOT(7) SINI(iMBMG) = STOT(8) c *** SET ROW AND COL FLAGS *** CALL FLAGS( FROW, FCOL ) C *** CALCULATE DGAMA *** c IF (CC.EQ.'A'.OR.CC.EQ.'B'.OR.CC.EQ.'C'.OR. c & CC.EQ.'D'.OR.CC.EQ.'E'.OR.CC.EQ.'F'.OR. c & CC.EQ.'G'.OR.CC.EQ.'H'.OR.CC.EQ.'I'.OR. c & CC.EQ.'J') THEN c CALL DELGAMA1( DGAMA ) c CALL RHSGAMA1( RGAMA, S1D, S2D ) c ELSE c CALL DELGAMA2( DGAMA,frow ) c CALL RHSGAMA2( RGAMA, S1D, S2D ) c ENDIF DGAMA = 0.0D0 ! set to ignore activity RGAMA = 0.0D0 ! set to ignore activity C *** CALCULATE COEFFICIENT MATRIX *** CALL AMAT( COEF, FROW, FCOL, DGAMA ) C *** CREATE THE RIGHT HAND SIDE *** CALL RHS( S1D, S2D, RGAMA, FROW ) C *** SOLVE SENSITIVITIES *** CALL EQNSLV( FROW, FCOL, COEF, SENS, SENSD ) C *** ADJUST FOR MINOR SPECIES *** c DO I = 1,NPAIR c SGAMA(I) = 0.D0 c DO J = 1,NIONSPC c SGAMA(I) = SGAMA(I)+DGAMA(J,I)*SENS(J) c ENDDO c SGAMA(I) = SGAMA(I) + RGAMA(I) c ENDDO SGAMA = 0.0D0 ! set to ignore activity c IF (CC.EQ.'B'.OR.CC.EQ.'C') THEN c CALL HDCALCNH3(SENS, S1, S2) c ELSEIF (CC.EQ.'E'.OR.CC.EQ.'F') THEN c CALL HDCALCNA( SENS, S1, S2) c ELSEIF (CC.EQ.'I'.OR.CC.EQ.'J'.OR. c & CC.EQ.'L'.OR.CC.EQ.'K') THEN c CALL HDCALCNHA(SENS, S1, S2) c CALL HDCALCNH3(SENS, S1, S2) c ELSEIF (CC.EQ.'D'.OR.CC.EQ.'G'.OR.CC.EQ.'H'.OR. c & CC.EQ.'O'.OR.CC.EQ.'M'.OR.CC.EQ.'P') THEN c CALL HDCALCHS4(SENS, S1, S2) c ENDIF C *** END OF HDDMSENS *** RETURN END SUBROUTINE AERO_SENS_CALC2 SUBROUTINE RHSGAMA1( RG, S1, S2 ) c IMPLICIT NONE INCLUDE 'isrpia.inc' INCLUDE 'aero_sens_data.inc' INCLUDE 'dact.inc' DOUBLE PRECISION RG(NPAIR) DOUBLE PRECISION S1(NSEN),S2(NSEN) DOUBLE PRECISION RI, RHG DOUBLE PRECISION RG0(NPAIR) DOUBLE PRECISION RX(3,4), RY(3,4) DOUBLE PRECISION RF1(3), RF2(4) DOUBLE PRECISION ISR, IM5, IM1, IM15 DOUBLE PRECISION SUMZS1, SUMZS2, DN, DN2, DN3 INTEGER I, J DOUBLE PRECISION ZPL, XPL, ZMI, XMI, CH, RXIJ, RYJI SUMZS1 = 0.D0 SUMZS2 = 0.D0 c DO I = 1, NIONSPC DO I = 1, NIONS SUMZS1 = SUMZS1 +Z(I)*Z(I)*S1(I) SUMZS2 = SUMZS2 +Z(I)*Z(I)*S2(I) ENDDO IF (IONIC.GE.100.d0) THEN RI = 0.D0 ELSE RI = 2.D0 *IONIC*S1(jH2O)*S2(jH2O) & +0.5D0*SUMZS1*S2(jH2O) & +0.5D0*SUMZS2*S1(jH2O) RI = RI/WATER/WATER ENDIF ISR = SQRT(IONIC) IM5 = IONIC**(-0.5D0) IM1 = IONIC**(-1.D0) IM15 = IONIC**(-1.5D0) DN = 1.D0+ISR DN2 = DN**2.D0 DN3 = DN**3.D0 RHG = IM5*RI/DN2 -(0.5D0*IM15+1.5D0*IM1)*SI1*SI2/DN3 CALL RDKMFUL(RG0,NPAIR,IONIC,SNGL(TEMP),RI,RHG,SI1,SI2) DO I = 1, 3 ZPL = Z(I) XPL = MOLALD(I)/WATER DO J = 1, 4 ZMI = Z(J+3) XMI = MOLALD(J+3)/WATER CH = 0.25*(ZPL+ZMI)*(ZPL+ZMI)/IONIC RXIJ = -XPL*RI/IONIC & - (S2(jH2O)*S1(I) +S1(jH2O)*S2(I))/WATER/WATER & - (SI2*S1(I) +SI1*S2(I))/WATER/IONIC & + XPL*(S2(jH2O)*SI1 +S1(jH2O)*SI2)/WATER/IONIC & + 2.D0*XPL*S1(jH2O)*S2(jH2O)/WATER/WATER & + 2.D0*XPL*SI1*SI2/IONIC/IONIC RYJI = -XMI*RI/IONIC & - (S2(jH2O)*S1(J+3) +S1(jH2O)*S2(J+3))/WATER/WATER & - (SI2*S1(J+3) +SI1*S2(J+3))/WATER/IONIC & + XMI*(S2(jH2O)*SI1 +S1(jH2O)*SI2)/WATER/IONIC & + 2.D0*XMI*S1(jH2O)*S2(jH2O)/WATER/WATER & + 2.D0*XMI*SI1*SI2/IONIC/IONIC RX(I,J) = CH*RXIJ RY(I,J) = CH*RYJI RF1(I) = SY2(I,J)*(SG01(IJMAP(I,J)) +ZPL*ZMI*SH1) & + SY1(I,J)*(SG02(IJMAP(I,J)) +ZPL*ZMI*SH2) & + Y(I,J) * RG0(IJMAP(I,J)) & + Y(I,J) * RHG *ZPL *ZMI & + RY(I,J) *(G0P(IJMAP(I,J)) +ZPL*ZMI*H) RF2(J) = SX2(I,J)*(SG01(IJMAP(I,J)) +ZPL*ZMI*SH1) & + SX1(I,J)*(SG02(IJMAP(I,J)) +ZPL*ZMI*SH2) & + X(I,J) * RG0(IJMAP(I,J)) & + X(I,J) * RHG *ZPL *ZMI & + RX(I,J) *(G0P(IJMAP(I,J)) +ZPL*ZMI*H) RG(IJMAP(I,J)) = ZPL*ZMI*( & (RF1(I)/ZPL + RF2(J)/ZMI)/(ZPL + ZMI) -RHG) ENDDO ENDDO RG(mLC) = 0.2 *(3.0 *RG(mNH42S4) + 2.0 *RG(mNH4HS4)) DO I = 1, NPAIR IF (GAMA(I).LE.1.d-5 .OR. GAMA(I).GE.1.d5) THEN RG(I) = 0.0 ENDIF ENDDO RETURN END SUBROUTINE RHSGAMA2( RG, S1, S2 ) c IMPLICIT NONE INCLUDE 'isrpia.inc' INCLUDE 'aero_sens_data.inc' INCLUDE 'dact.inc' DOUBLE PRECISION RG(NPAIR) DOUBLE PRECISION S1(NSEN),S2(NSEN) DOUBLE PRECISION RI, RHG DOUBLE PRECISION RG0(NPAIR) DOUBLE PRECISION RX(6,4), RY(6,4) DOUBLE PRECISION RF1(6), RF2A(4), RF2B(4) DOUBLE PRECISION ISR, IM5, IM1, IM15 INTEGER I, J DOUBLE PRECISION ZPL, XPL, SUMZS1, SUMZS2, DN, DN2, DN3, ZMI, XMI DOUBLE PRECISION CH, RXIJ, RYJI SUMZS1 = 0.D0 SUMZS2 = 0.D0 c DO I = 1, NIONSPC DO I = 1, NIONS SUMZS1 = SUMZS1 +Z(I)*Z(I)*S1(I) SUMZS2 = SUMZS2 +Z(I)*Z(I)*S2(I) ENDDO IF (IONIC.GE.100.d0) THEN RI = 0.D0 ELSE RI = 2.D0 *IONIC*S1(jH2O)*S2(jH2O) & +0.5D0*SUMZS1*S2(jH2O) & +0.5D0*SUMZS2*S1(jH2O) RI = RI/WATER/WATER ENDIF ISR = SQRT(IONIC) IM5 = IONIC**(-0.5D0) IM1 = IONIC**(-1.D0) IM15 = IONIC**(-1.5D0) DN = 1.D0+ISR DN2 = DN**2.D0 DN3 = DN**3.D0 RHG = IM5*RI/DN2 -(0.5D0*IM15+1.5D0*IM1)*SI1*SI2/DN3 CALL RDKMFUL2(RG0,NPAIR,IONIC,SNGL(TEMP),RI,RHG,SI1,SI2) DO I = 1, 3 ZPL = Z(I) XPL = MOLALD(I)/WATER DO J = 1, 4 ZMI = Z(J+3) XMI = MOLALD(J+3)/WATER CH = 0.25*(ZPL+ZMI)*(ZPL+ZMI)/IONIC RXIJ = -XPL*RI/IONIC & - (S2(jH2O)*S1(I) +S1(jH2O)*S2(I))/WATER/WATER & - (SI2*S1(I) +SI1*S2(I))/WATER/IONIC & + XPL*(S2(jH2O)*SI1 +S1(jH2O)*SI2)/WATER/IONIC & + 2.D0*XPL*S1(jH2O)*S2(jH2O)/WATER/WATER & + 2.D0*XPL*SI1*SI2/IONIC/IONIC RYJI = -XMI*RI/IONIC & - (S2(jH2O)*S1(J+3) +S1(jH2O)*S2(J+3))/WATER/WATER & - (SI2*S1(J+3) +SI1*S2(J+3))/WATER/IONIC & + XMI*(S2(jH2O)*SI1 +S1(jH2O)*SI2)/WATER/IONIC & + 2.D0*XMI*S1(jH2O)*S2(jH2O)/WATER/WATER & + 2.D0*XMI*SI1*SI2/IONIC/IONIC RX(I,J) = CH*RXIJ RY(I,J) = CH*RYJI RF1(I) = SY2(I,J)*(SG01(IJMAP(I,J)) +ZPL*ZMI*SH1) & + SY1(I,J)*(SG02(IJMAP(I,J)) +ZPL*ZMI*SH2) & + Y(I,J) * RG0(IJMAP(I,J)) & + Y(I,J) * RHG *ZPL *ZMI & + RY(I,J) *(G0P(IJMAP(I,J)) +ZPL*ZMI*H) RF2A(J) = SX2(I,J)*(SG01(IJMAP(I,J)) +ZPL*ZMI*SH1) & + SX1(I,J)*(SG02(IJMAP(I,J)) +ZPL*ZMI*SH2) & + X(I,J) * RG0(IJMAP(I,J)) & + X(I,J) * RHG *ZPL *ZMI & + RX(I,J) *(G0P(IJMAP(I,J)) +ZPL*ZMI*H) RG(IJMAP(I,J)) = ZPL*ZMI*( & (RF1(I)/ZPL + RF2A(J)/ZMI)/(ZPL + ZMI) -RHG) ENDDO ENDDO DO 100 I = 4, 6 ZPL = Z(I+4) XPL = MOLALD(I+4)/WATER DO 100 J = 1, 4 IF(J.EQ.3.AND.I.EQ.4) GOTO 100 IF(J.EQ.3.AND.I.EQ.6) GOTO 100 IF(J.EQ.2.AND.I.EQ.4) GOTO 100 ZMI = Z(J+3) XMI = MOLALD(J+3)/WATER CH = 0.25*(ZPL+ZMI)*(ZPL+ZMI)/IONIC RXIJ = -XPL*RI/IONIC & - (S2(jH2O)*S1(I+4) +S1(jH2O)*S2(I+4))/WATER/WATER & - (SI2*S1(I+4) +SI1*S2(I+4))/WATER/IONIC & + XPL*(S2(jH2O)*SI1 +S1(jH2O)*SI2)/WATER/IONIC & + 2.D0*XPL*S1(jH2O)*S2(jH2O)/WATER/WATER & + 2.D0*XPL*SI1*SI2/IONIC/IONIC RYJI = -XMI*RI/IONIC & - (S2(jH2O)*S1(J+3) +S1(jH2O)*S2(J+3))/WATER/WATER & - (SI2*S1(J+3) +SI1*S2(J+3))/WATER/IONIC & + XMI*(S2(jH2O)*SI1 +S1(jH2O)*SI2)/WATER/IONIC & + 2.D0*XMI*S1(jH2O)*S2(jH2O)/WATER/WATER & + 2.D0*XMI*SI1*SI2/IONIC/IONIC RX(I,J) = CH*RXIJ RY(I,J) = CH*RYJI RF1(I) = SY2(I,J)*(SG01(IJMAP(I,J)) +ZPL*ZMI*SH1) & + SY1(I,J)*(SG02(IJMAP(I,J)) +ZPL*ZMI*SH2) & + Y(I,J) * RG0(IJMAP(I,J)) & + Y(I,J) * RHG *ZPL *ZMI & + RY(I,J) *(G0P(IJMAP(I,J)) +ZPL*ZMI*H) RF2B(J) = SX2(I,J)*(SG01(IJMAP(I,J)) +ZPL*ZMI*SH1) & + SX1(I,J)*(SG02(IJMAP(I,J)) +ZPL*ZMI*SH2) & + X(I,J) * RG0(IJMAP(I,J)) & + X(I,J) * RHG *ZPL *ZMI & + RX(I,J) *(G0P(IJMAP(I,J)) +ZPL*ZMI*H) RG(IJMAP(I,J)) = ZPL*ZMI*( & (RF1(I)/ZPL + RF2B(J)/ZMI)/(ZPL + ZMI) -RHG) 100 CONTINUE RG(mCASO4) = 0.0 RG(mLC) = 0.2 *(3.0 *RG(mNH42S4) + 2.0 *RG(mNH4HS4)) DO I = 1, NPAIR IF (GAMA(I).LE.1.d-5 .OR. GAMA(I).GE.1.d5) THEN RG(I) = 0.0 ENDIF ENDDO RETURN END SUBROUTINE RDKMFUL(RG0,NPAIRS,IONIC,TEMP,RI,RHG,SI1,SI2) IMPLICIT NONE INTEGER N,NPAIRS REAL IONIC,TEMP DOUBLE PRECISION RI, RHG, RG0(NPAIRS) DOUBLE PRECISION SI1, SI2 INTEGER NPAIRD, I, J, K PARAMETER (NPAIRD=10) ! Number of ion pairs whose Q value is available INTEGER IG(NPAIRD) DATA IG / 1,2,3,4,5,6,7,8,10,11 / REAL ZI(NPAIRD) ! Mapping of Q to the internal order of ion pairs DATA ZI / 1., 2., 1., 2., 1., 1., 2., 1., 1., 1. / REAL Q(NPAIRD) ! Kusik-Meissner parameters (see KMFUL) DATA Q / 2.23,-0.19,-0.39,-0.25,-1.15,0.82,-0.1, & 8.0,2.6,6.0 / REAL SION ! sln 13sep13 REAL AGAMA ! sln 23sep13 REAL*8 TI, CF1, CF2, RCF2 SION = SQRT(IONIC) ! sln 13sep13 AGAMA = 0.511*(298.0/TEMP)**1.5 ! Debye Huckel const. at T ! sln 23sep13 DO I = 1, NPAIRD CALL RDMKBI(RG0(IG(I)), IONIC, Q(I), ZI(I), RI, RHG, & SI1, SI2) ENDDO TI = TEMP-273.0 IF (ABS(TI-25.0) .GT. 1.0) THEN CF1 = 1.125-0.005*TI CF2 = (CF1-1.)*(0.039*IONIC**0.92-0.41*SION/(1.+SION)) RCF2 = (CF1-1.)*(-.00287*IONIC**(-1.08)*SI1*SI2 & +.03588*RI & -.41*RHG/AGAMA) DO I = 1, NPAIRD RG0(IG(I)) = CF1*RG0(IG(I)) - RCF2*ZI(I) ENDDO ENDIF RG0( 9) = RG0( 6) + RG0( 8) - RG0(11) RG0(12) = RG0( 1) + RG0( 8) - RG0(11) RETURN END SUBROUTINE RDKMFUL2(RG0,NPAIRS,IONIC,TEMP,RI,RHG,SI1,SI2) IMPLICIT NONE INTEGER N,NPAIRS REAL IONIC,TEMP DOUBLE PRECISION RI, RHG, RG0(NPAIRS) DOUBLE PRECISION SI1, SI2 INTEGER NPAIRD, I, J, K PARAMETER (NPAIRD=10) ! Number of ion pairs whose Q value is available INTEGER IG(NPAIRD) DATA IG / 1,2,3,4,5,6,7,8,10,11 / REAL ZI(NPAIRD) ! Mapping of Q to the internal order of ion pairs DATA ZI / 1., 2., 1., 2., 1., 1., 2., 1., 1., 1. / REAL Q(NPAIRD) ! Kusik-Meissner parameters (see KMFUL) DATA Q / 2.23,-0.19,-0.39,-0.25,-1.15,0.82,-0.1, & 8.0,2.6,6.0 / REAL SION ! sln 13sep13 REAL AGAMA ! sln 23sep13 REAL*8 TI, CF1, CF2, RCF2 SION = SQRT(IONIC) ! sln 13sep13 AGAMA = 0.511*(298.0/TEMP)**1.5 ! Debye Huckel const. at T ! sln 23sep13 DO I = 1, NPAIRD CALL RDMKBI(RG0(IG(I)), IONIC, Q(I), ZI(I), RI, RHG, & SI1, SI2) ENDDO TI = TEMP-273.0 IF (ABS(TI-25.0) .GT. 1.0) THEN CF1 = 1.125-0.005*TI CF2 = (CF1-1.)*(0.039*IONIC**0.92-0.41*SION/(1.+SION)) RCF2 = (CF1-1.)*(-.00287*IONIC**(-1.08)*SI1*SI2 & +.03588*RI & -.41*RHG/AGAMA) DO I = 1, NPAIRD RG0(IG(I)) = CF1*RG0(IG(I)) - RCF2*ZI(I) ENDDO ENDIF RG0( 9) = RG0( 6) + RG0( 8) - RG0(11) RG0(12) = RG0( 1) + RG0( 8) - RG0(11) RETURN END SUBROUTINE RDMKBI(RG0, IONIC, Q, ZIP, RI, RHG, SI1, SI2) IMPLICIT NONE REAL IONIC, Q, ZIP DOUBLE PRECISION RI, RHG, RI1, RI2, RG0 DOUBLE PRECISION SI1, SI2 ! sln 4sep14 REAL B, BI, XX1, XX2 DOUBLE PRECISION RB DOUBLE PRECISION LN10 PARAMETER (LN10=2.30258509299404568402D0) B = .75 -.065*Q BI = 1. +B*(1.+.1*IONIC)**Q -B XX1 = .1*B*Q*(1.+.1*IONIC)**(Q-1.)/(BI*LN10) XX2 = .1*(Q-1.)/(1.+.1*IONIC) RB = XX1*(XX2*SI1*SI2 +RI) RG0 = ZIP*(RB -RHG) RETURN END SUBROUTINE RHS(S1, S2, RG, FROW) c IMPLICIT NONE INCLUDE 'isrpia.inc' INCLUDE 'aero_sens_data.inc' DOUBLE PRECISION S1(NSEN), S2(NSEN) DOUBLE PRECISION RG(NPAIR) INTEGER FROW(NSEN) INTEGER iEQ DOUBLE PRECISION C1, C2 DOUBLE PRECISION CNA, CK, CMG iEQ = iK1 IF (FROW(iEQ).EQ.1) THEN C1 = -3.*LN10 C2 = 2.*LN10 SINI(iEQ) = C1*RG(mH2SO4) +C2*RG(mHHSO4) & + S1( jH) *S2( jH)/MOLALD( jH)/MOLALD( jH) & + S1( jSO4) *S2( jSO4)/MOLALD( jSO4)/MOLALD( jSO4) & - S1(jHSO4) *S2(jHSO4)/MOLALD(jHSO4)/MOLALD(jHSO4) & - S1( jH2O) *S2( jH2O)/WATER/WATER ENDIF iEQ = iK2 IF (FROW(iEQ).EQ.1) THEN IF (CC.EQ.'A') THEN C1 = -2.*LN10 C2 = 2.*LN10 SINI(iEQ) = C1*RG(mNH4HS4) +C2*RG(mHHSO4) ELSE C1 = -2.*LN10 C2 = 2.*LN10 SINI(iEQ) = C1*RG(mNH4NO3) +C2*RG(mHNO3) ENDIF SINI(iEQ) = SINI(iEQ) & + S1(jNH4)*S2(jNH4)/MOLALD(jNH4)/MOLALD(jNH4) & - S1( jH)*S2( jH)/MOLALD( jH)/MOLALD( jH) & - S1(jNH3)*S2(jNH3)/GNH3D/GNH3D ENDIF iEQ = iK3 IF (FROW(iEQ).EQ.1) THEN C1 = -2.*LN10 SINI(iEQ) = C1*RG(mHCL) & + S1( jH)*S2( jH)/MOLALD( jH)/MOLALD( jH) & + S1( jCL)*S2( jCL)/MOLALD( jCL)/MOLALD( jCL) & - S1(jHCL)*S2(jHCL)/GHCLD/GHCLD & - 2.*S1(jH2O)*S2(jH2O)/WATER/WATER ENDIF iEQ = iK4 IF (FROW(iEQ).EQ.1) THEN C1 = -2.*LN10 SINI(iEQ) = C1*RG(mHNO3) & + S1( jH)*S2( jH)/MOLALD( jH)/MOLALD( jH) & + S1( jNO3)*S2( jNO3)/MOLALD( jNO3)/MOLALD( jNO3) & - S1(jHNO3)*S2(jHNO3)/GHNO3D/GHNO3D & - 2.*S1( jH2O)*S2( jH2O)/WATER/WATER ENDIF iEQ = iK5 IF (FROW(iEQ).EQ.1) THEN C1 = -3.*LN10 CNA = MAX(MOLALD(jNA), TINY) SINI(iEQ) = C1*RG(mNA2SO4) & + 2.*S1( jNA)*S2( jNA)/CNA/CNA & + S1(jSO4)*S2(jSO4)/MOLALD(jSO4)/MOLALD(jSO4) & - 3.*S1(jH2O)*S2(jH2O)/WATER/WATER ENDIF iEQ = iK6 IF (FROW(iEQ).EQ.1) THEN SINI(iEQ) = S1(jHCL)*S2(jHCL)/GHCLD/GHCLD & + S1(jNH3)*S2(jNH3)/GNH3D/GNH3D ENDIF iEQ = iK7 IF (FROW(iEQ).EQ.1) THEN C1 = -3.*LN10 SINI(iEQ) = C1*RG(mNH42S4) & + 2.*S1(jNH4)*S2(jNH4)/MOLALD(jNH4)/MOLALD(jNH4) & + S1(jSO4)*S2(jSO4)/MOLALD(jSO4)/MOLALD(jSO4) & - 3.*S1(jH2O)*S2(jH2O)/WATER/WATER ENDIF iEQ = iK8 IF (FROW(iEQ).EQ.1) THEN C1 = -2.*LN10 CNA = MAX(MOLALD(jNA),TINY) SINI(iEQ) = C1*RG(mNACL) & + S1( jNA)*S2( jNA)/CNA/CNA & + S1( jCL)*S2( jCL)/MOLALD(jCL)/MOLALD(jCL) & - 2.*S1(jH2O)*S2(jH2O)/WATER/WATER ENDIF iEQ = iK9 IF (FROW(iEQ).EQ.1) THEN C1 = -2.*LN10 CNA = MAX(MOLALD(jNA),TINY) SINI(iEQ) = C1*RG(mNANO3) & + S1( jNA)*S2( jNA)/CNA/CNA & + S1(jNO3)*S2(jNO3)/MOLALD(jNO3)/MOLALD(jNO3) & - 2.*S1(jH2O)*S2(jH2O)/WATER/WATER ENDIF iEQ = iK10 IF (FROW(iEQ).EQ.1) THEN SINI(iEQ) = S1( jNH3)*S2( jNH3)/ GNH3D/ GNH3D & + S1(jHNO3)*S2(jHNO3)/GHNO3D/GHNO3D ENDIF iEQ = iK11 IF (FROW(iEQ).EQ.1) THEN C1 = -2.*LN10 CNA = MAX(MOLALD(jNA),TINY) SINI(iEQ) = C1*RG(mNAHSO4) & + S1( jNA)*S2( jNA)/CNA/CNA & + S1(jHSO4)*S2(jHSO4)/MOLALD(jHSO4)/MOLALD(jHSO4) & - 2.*S1( jH2O)*S2( jH2O)/WATER/WATER ENDIF iEQ = iK12 IF (FROW(iEQ).EQ.1) THEN C1 = -2.*LN10 SINI(iEQ) = C1*RG(mNH4HS4) & + S1( jNH4)*S2( jNH4)/MOLALD( jNH4)/MOLALD( jNH4) & + S1(jHSO4)*S2(jHSO4)/MOLALD(jHSO4)/MOLALD(jHSO4) & - 2.*S1( jH2O)*S2( jH2O)/WATER/WATER ENDIF iEQ = iK13 IF (FROW(iEQ).EQ.1) THEN C1 = -5.*LN10 SINI(iEQ) = C1*RG(mLC) & + 3.*S1( jNH4)*S2( jNH4)/MOLALD( jNH4)/MOLALD( jNH4) & + S1(jHSO4)*S2(jHSO4)/MOLALD(jHSO4)/MOLALD(jHSO4) & + S1( jSO4)*S2( jSO4)/MOLALD( jSO4)/MOLALD( jSO4) & - 5.*S1( jH2O)*S2( jH2O)/WATER/WATER ENDIF iEQ = iK14 IF (FROW(iEQ).EQ.1) THEN C1 = -3.*LN10 SINI(iEQ) = C1*RG(mCANO32) & + S1( jCA)*S2( jCA)/MOLALD( jCA)/MOLALD( jCA) & + 2.*S1(jNO3)*S2(jNO3)/MOLALD(jNO3)/MOLALD(jNO3) & - 3.*S1(jH2O)*S2(jH2O)/WATER/WATER ENDIF iEQ = iK15 IF (FROW(iEQ).EQ.1) THEN C1 = -3.*LN10 SINI(iEQ) = C1*RG(mCACL2) & + S1( jCA)*S2( jCA)/MOLALD( jCA)/MOLALD( jCA) & + 2.*S1( jCL)*S2( jCL)/MOLALD( jCL)/MOLALD( jCL) & - 3.*S1(jH2O)*S2(jH2O)/WATER/WATER ENDIF iEQ = iK16 IF (FROW(iEQ).EQ.1) THEN C1 = -3.*LN10 CK = MAX(MOLALD(jK),TINY) SINI(iEQ) = C1*RG(mK2SO4) & + 2.*S1( jK)*S2( jK)/CK/CK & + S1(jSO4)*S2(jSO4)/MOLALD(jSO4)/MOLALD(jSO4) & - 3.*S1(jH2O)*S2(jH2O)/WATER/WATER ENDIF iEQ = iK17 IF (FROW(iEQ).EQ.1) THEN C1 = -2.*LN10 CK = MAX(MOLALD(jK),TINY) SINI(iEQ) = C1*RG(mKHSO4) & + S1( jK)*S2( jK)/CK/CK & + S1(jHSO4)*S2(jHSO4)/MOLALD(jHSO4)/MOLALD(jHSO4) & - 2.*S1( jH2O)*S2( jH2O)/WATER/WATER ENDIF iEQ = iK18 IF (FROW(iEQ).EQ.1) THEN C1 = -2.*LN10 CK = MAX(MOLALD(jK),TINY) SINI(iEQ) = C1*RG(mKNO3) & + S1( jK)*S2( jK)/CK/CK & + S1(jNO3)*S2(jNO3)/MOLALD(jNO3)/MOLALD(jNO3) & - 2.*S1(jH2O)*S2(jH2O)/WATER/WATER ENDIF iEQ = iK19 IF (FROW(iEQ).EQ.1) THEN C1 = -2.*LN10 CK = MAX(MOLALD(jK),TINY) SINI(iEQ) = C1*RG(mKCL) & + S1( jK)*S2( jK)/CK/CK & + S1( jCL)*S2( jCL)/MOLALD(jCL)/MOLALD(jCL) & - 2.*S1(jH2O)*S2(jH2O)/WATER/WATER ENDIF iEQ = iK20 IF (FROW(iEQ).EQ.1) THEN C1 = -2.*LN10 CMG = MAX(MOLALD(jMG),TINY) SINI(iEQ) = C1*RG(mMGSO4) & + S1( jMG)*S2( jMG)/CMG/CMG & + S1(jSO4)*S2(jSO4)/MOLALD(jSO4)/MOLALD(jSO4) & - 2.*S1(jH2O)*S2(jH2O)/WATER/WATER ENDIF iEQ = iK21 IF (FROW(iEQ).EQ.1) THEN C1 = -3.*LN10 CMG = MAX(MOLALD(jMG),TINY) SINI(iEQ) = C1*RG(mMGNO32) & + S1( jMG)*S2( jMG)/CMG/CMG & + 2.*S1(jNO3)*S2(jNO3)/MOLALD(jNO3)/MOLALD(jNO3) & - 3.*S1(jH2O)*S2(jH2O)/WATER/WATER ENDIF iEQ = iK22 IF (FROW(iEQ).EQ.1) THEN C1 = -3.*LN10 CMG = MAX(MOLALD(jMG),TINY) SINI(iEQ) = C1*RG(mMGCL2) & + S1( jMG)*S2( jMG)/CMG/CMG & + 2.*S1( jCL)*S2( jCL)/MOLALD(jCL)/MOLALD(jCL) & - 3.*S1(jH2O)*S2(jH2O)/WATER/WATER ENDIF RETURN END SUBROUTINE HDCALCNH3(SENS, S1, S2) c IMPLICIT NONE INCLUDE 'isrpia.inc' INCLUDE 'aero_sens_data.inc' DOUBLE PRECISION SENS(NSEN), S1(NSEN), S2(NSEN) DOUBLE PRECISION DPSI,GR,C,SR c IF (WATER.LE.TINY) RETURN IF ( WATER .LE. TINY .OR. & MOLAL(jNH4) .LE. TINY .OR. & MOLAL(jH) .LE. TINY .OR. & GNH3 .LE. TINY ) THEN RETURN ENDIF GR = -2.D0*LN10*(SGAMA(mHNO3)-SGAMA(mNH4NO3)) !GAMA RELATED C = ONE/MOLAL(jNH4) +ONE/MOLAL(jH) +ONE/GNH3 SR = SENS(jNH4)/MOLAL(jNH4) & - SENS( jH)/MOLAL( jH) & - S1(jNH4)*S2(jNH4)/MOLAL(jNH4)/MOLAL(jNH4) & + S1( jH)*S2( jH)/MOLAL( jH)/MOLAL( jH) & + S1(jNH3)*S2(jNH3)/GNH3/GNH3 !SENS RELATED DPSI = (SR +GR)/C SENS(jNH3) = DPSI SENS(jNH4) = SENS(jNH4) -DPSI SENS(jH ) = SENS(JH ) -DPSI RETURN END SUBROUTINE HDCALCNA(SENS, S1, S2) c IMPLICIT NONE INCLUDE 'isrpia.inc' INCLUDE 'aero_sens_data.inc' DOUBLE PRECISION SENS(NSEN), S1(NSEN), S2(NSEN) DOUBLE PRECISION DELT,GR,SR,WR,C c IF (WTAER.LE.TINY) RETURN IF ( WATER .LE. TINY .OR. & MOLAL(jH) .LE. TINY .OR. & MOLAL(jNO3).LE. TINY ) RETURN WR = 2.D0*SENS(jH2O)/WATER -2.*S1(jH2O)*S2(jH2O)/WATER/WATER GR = -2.D0*LN10*SGAMA(mHNO3) SR = - SENS(jH)/MOLAL(jH) +SINI(iMBNO3)/GHNO3 & +S1( jH)*S2( jH)/MOLAL( jH)/MOLAL( jH) & +S1( jNO3)*S2( jNO3)/MOLAL(jNO3)/MOLAL(jNO3) & -S1(jHNO3)*S2(jHNO3)/ GHNO3/ GHNO3 C = ONE/MOLAL(jH) +ONE/MOLAL(jNO3) +ONE/GHNO3 DELT = (SR +WR +GR)/C IF (GHNO3.EQ.ZERO) THEN SENS(jHNO3) = ZERO ELSE SENS(jHNO3) = SINI(iMBNO3) -DELT ENDIF SENS(jNO3) = DELT SENS(jH ) = SENS(jH) +DELT RETURN END SUBROUTINE HDCALCHA(SENS, S1, S2) c IMPLICIT NONE INCLUDE 'isrpia.inc' INCLUDE 'aero_sens_data.inc' DOUBLE PRECISION SENS(NSEN), S1(NSEN), S2(NSEN) DOUBLE PRECISION DELT,GR,SR,WR,C DOUBLE PRECISION DCL, DNO c IF (WTAER.LE.TINY) RETURN IF (WATER.LE.TINY) RETURN IF ( MOLAL(jH) .LE. TINY .OR. & MOLAL(jNO3) .LE. TINY .OR. & GHNO3 .LE. TINY .OR. & MOLAL(jCL) .LE. TINY .OR. & GHCL .LE. TINY ) THEN DCL = ZERO DNO = ZERO RETURN ENDIF WR = 2.D0*SENS(jH2O)/WATER -2.*S1(jH2O)*S2(jH2O)/WATER/WATER GR = -2.D0*LN10*SGAMA(mHCL) SR = - SENS(jH)/MOLAL(jH) +SINI(iMBCL)/GHCL & +S1( jH)*S2( jH)/MOLAL( jH)/MOLAL( jH) & +S1( jCL)*S2( jCL)/MOLAL(jCL)/MOLAL(jCL) & -S1(jHCL)*S2(jHCL)/GHCL/GHCL C = ONE/MOLAL(jH) +ONE/MOLAL(jCL) +ONE/GHCL DELT = (SR +WR +GR)/C IF (GHCL.EQ.ZERO) THEN SENS(jHCL) = 0.D0 ELSE SENS(jHCL) = SINI(iMBCL) -DELT END IF SENS(jCL ) = DELT SENS(jH ) = SENS(jH) +DELT RETURN END SUBROUTINE HDCALCNHA(SENS, S1, S2) c IMPLICIT NONE INCLUDE 'isrpia.inc' INCLUDE 'aero_sens_data.inc' DOUBLE PRECISION SENS(NSEN), S1(NSEN), S2(NSEN) DOUBLE PRECISION DNO,DCL,C11,C12,C21,C22,B1,B2,SR,WR,GR IF (WATER.LE.TINY) THEN SENS(jHNO3) = SINI(iMBNO3) SENS(jHCL ) = SINI(iMBCL ) RETURN ELSEIF (W(jTCL).LE.TINY.AND.W(jTNO3).LE.TINY) THEN RETURN ELSEIF (W(jTCL).LE.TINY) THEN CALL HDCALCNA(SENS, S1, S2) ELSEIF (W(jTNO3).LE.TINY) THEN CALL HDCALCHA(SENS, S1, S2) ENDIF IF( MOLAL(jH) .LE. TINY .OR. & MOLAL(jNO3) .LE. TINY .OR. & GHNO3 .LE. TINY .OR. & GHCL .LE. TINY .OR. & MOLAL(jCL) .LE. TINY ) RETURN C11 = ONE/MOLAL(jH) +ONE/MOLAL(jNO3) +ONE/GHNO3 C12 = ONE/MOLAL(jH) C21 = C12 C22 = ONE/MOLAL(jH) +ONE/MOLAL(jCL) +ONE/GHCL SR =-SENS(jH)/MOLAL(jH) +SINI(iMBNO3)/GHNO3 & +S1( jH)*S2( jH)/MOLAL( jH)/MOLAL( jH) & +S1( jNO3)*S2( jNO3)/MOLAL(jNO3)/MOLAL(jNO3) & -S1(jHNO3)*S2(jHNO3)/GHNO3/GHNO3 WR = 2.D0*SENS(jH2O)/WATER -2.*S1(jH2O)*S2(jH2O)/WATER/WATER GR =-2.D0*LN10*SGAMA(mHNO3) B1 = SR +WR +GR SR =-SENS(jH)/MOLAL(jH) +SINI(iMBCL)/GHCL & +S1( jH)*S2( jH)/MOLAL( jH)/MOLAL( jH) & +S1( jCL)*S2( jCL)/MOLAL(jCL)/MOLAL(jCL) & -S1(jHCL)*S2(jHCL)/GHCL/GHCL GR =-2.D0*LN10*SGAMA(mHCL) B2 = SR +WR +GR DCL = (B1*C21 -B2*C11)/(C21*C12 -C22*C11) IF (MOLAL(jCL).EQ.W(jTCL)) DCL = SINI(iMBCL) DNO = (B1 -C12*DCL)/C11 IF (MOLAL(jNO3).EQ.W(jTNO3)) DNO = SINI(iMBNO3) IF (MOLAL(jCL).EQ.TINY.AND.MOLAL(jNO3).EQ.TINY) THEN DCL = ZERO DNO = ZERO ENDIF SENS(jH) = SENS(jH) +DCL +DNO SENS(jCL) = DCL SENS(jNO3) = DNO SENS(jHCL) = SINI(jCL) -DCL SENS(jHNO3) = SINI(jNO3) -DNO RETURN END SUBROUTINE HDCALCHS4(SENS, S1, S2) c IMPLICIT NONE INCLUDE 'isrpia.inc' INCLUDE 'aero_sens_data.inc' DOUBLE PRECISION SENS(NSEN), S1(NSEN), S2(NSEN) DOUBLE PRECISION DELTA,GR,SR,WR,C c IF (WATER.LE.1D1*TINY) RETURN c IF (MOLAL(jHSO4).EQ.ZERO) RETURN IF ( WATER.LE.1D1*TINY .OR. & MOLAL(jHSO4) .LE. TINY .OR. & MOLAL(jH) .LE. TINY .OR. & MOLAL(jSO4) .LE. TINY ) RETURN WR = -SENS(jH2O)/WATER +S1(jH2O)*S2(jH2O)/WATER/WATER GR = -2.D0*LN10*SGAMA(mHHSO4)+3.D0*LN10*SGAMA(mH2SO4) SR = SENS(jH)/MOLAL(jH) +SENS( jSO4)/MOLAL( jSO4) & - S1( jSO4)*S2( jSO4)/MOLAL( jSO4)/MOLAL( jSO4) & - S1( jH)*S2( jH)/MOLAL( jH)/MOLAL( jH) & + S1(jHSO4)*S2(jHSO4)/MOLAL(jHSO4)/MOLAL(jHSO4) C = ONE/MOLAL(jH) +ONE/MOLAL(jSO4) +ONE/MOLAL(jHSO4) DELTA = (WR +GR +SR)/C SENS(jH) = SENS(jH) -DELTA SENS(jSO4) = SENS(jSO4) -DELTA SENS(jHSO4) = DELTA RETURN END #endif ================================================ FILE: CCTM/src/ddm3d/aero_sens_data.inc ================================================ C =================================================================== C This subroutine is the include file for DDM of ISORROPIAII C C Written by Wenxian Zhang in August 2011 C C Reference: C Zhang, W., Capps, S. L., Hu, Y., Nenes, A., Napelenok, S. L., & C Russell, A. G. (2012). Development of the high-order decoupled C direct method in three dimensions for particulate matter: C enabling advanced sensitivity analysis in air quality models. C Geoscientific Model Development, 5(2), 355-368. C doi: 10.5194/gmd-5-355-2012 C =================================================================== INTEGER NSEN,NDIM PARAMETER ( NSEN = 33 ) INTEGER NIONSPC PARAMETER ( NIONSPC = NIONS + 1) DOUBLE PRECISION LN10 PARAMETER (LN10=2.30258509299404568402D0) INTEGER jTNA, jTSO4, jTNH4, jTNO3, jTCL, jTCA, jTK,jTMG PARAMETER( jTNA = 1, & jTSO4 = 2, & jTNH4 = 3, & jTNO3 = 4, & jTCL = 5, & jTCA = 6, & jTK = 7, & jTMG = 8) INTEGER jH , jNA , jNH4 , jCL , jSO4 , jHSO4 , & jNO3 , jCA , jK , jMG , jH2O , jNH3 , & jHCL , jHNO3 , jNH42S4, jNH4HS4, jNACL , jNA2SO4, & jNANO3 , jNH4NO3, jNH4CL , jNAHSO4, jLC , jCASO4 , & jCANO32, jCACL2 , jK2SO4 , jKHSO4 , jKNO3 , jKCL , & jMGSO4 , jMGNO32, jMGCL2 PARAMETER( jH = 1, ! IONS & jNA = 2, & jNH4 = 3, & jCL = 4, & jSO4 = 5, & jHSO4 = 6, & jNO3 = 7, & jCA = 8, & jK = 9, & jMG = 10, & jH2O = 11, ! WATER & jNH3 = 12, ! GASES & jHCL = 13, & jHNO3 = 14, & jNH42S4 = 15, ! SOLIDS & jNH4HS4 = 16, & jNACL = 17, & jNA2SO4 = 18, & jNANO3 = 19, & jNH4NO3 = 20, & jNH4CL = 21, & jNAHSO4 = 22, & jLC = 23, & jCASO4 = 24, & jCANO32 = 25, & jCACL2 = 26, & jK2SO4 = 27, & jKHSO4 = 28, & jKNO3 = 29, & jKCL = 30, & jMGSO4 = 31, & jMGNO32 = 32, & jMGCL2 = 33) INTEGER mNACL , mNA2SO4, mNANO3 , mNH42S4, mNH4NO3, mNH4CL , & mH2SO4 , mHHSO4 , mNH4HS4, mHNO3 , mHCL , mNAHSO4, & mLC , mCASO4 , mCANO32, mCACL2 , mK2SO4 , mKHSO4 , & mKNO3 , mKCL , mMGSO4 , mMGNO32, mMGCL2 PARAMETER( mNACL = 1, ! ION PAIRS & mNA2SO4 = 2, & mNANO3 = 3, & mNH42S4 = 4, & mNH4NO3 = 5, & mNH4CL = 6, & mH2SO4 = 7, & mHHSO4 = 8, & mNH4HS4 = 9, & mHNO3 = 10, & mHCL = 11, & mNAHSO4 = 12, & mLC = 13, & mCASO4 = 14, & mCANO32 = 15, & mCACL2 = 16, & mK2SO4 = 17, & mKHSO4 = 18, & mKNO3 = 19, & mKCL = 20, & mMGSO4 = 21, & mMGNO32 = 22, & mMGCL2 = 23 ) INTEGER iK1 , iK2 , iK3 , iK4 , iK5 , iK6 , & iK7 , iK8 , iK9 , iK10 , iK11 , iK12 , & iK13 , iMBNA , iMBSO4 , iMBNH4 , iMBNO3 , iMBCL , & iCB , iZSR , iK14 , iK15 , iK16 , iK17 , & iK18 , iK19 , iK20 , iK21 , iK22 , iK23 , & iMBCA , iMBK , iMBMG PARAMETER( iK1 = 1, ! HSO4(aq) <==> H(aq) + SO4(aq) & iK2 = 2, ! NH3(aq) <==> NH4(aq) + OH(aq) & iK3 = 3, ! HCL(g) <==> H(aq) + CL(aq) & iK4 = 4, ! HNO3(g) <==> H(aq) + NO3(aq) & iK5 = 5, ! NA2SO4(s)<==> 2*NA(aq) + SO4(aq) & iK6 = 6, ! NH4CL(s) <==> NH3(g) + HCL(g) & iK7 = 7, ! (NH4)2SO4(s) <==> 2*NH4(aq) + SO4(aq) & iK8 = 8, ! NACL(s) <==> NA(aq) + CL(aq) & iK9 = 9, ! NANO3(s) <==> NA(aq) + NO3(aq) & iK10 = 10, ! NH4NO3(s) <==> NH3(g) + HNO3(g) & iK11 = 11, ! NAHSO4(s) <==> NA(aq) + HSO4(aq) & iK12 = 12, ! NH4HSO4(s) <==> NH4(aq) + HSO4(aq) & iK13 = 13, ! LC <==> 3*NH4(aq) + HSO4(aq) + SO4(aq) & iK14 = 14, ! CA(NO3)2(s) <==> CA(aq) + 2NO3(aq) & iK15 = 15, ! CACL2(s) <==> CA(aq) + 2CL(aq) & iK16 = 16, ! K2SO4(s) <==> 2K(aq) + SO4(aq) & iK17 = 17, ! KHSO4(s) <==> K(aq) + HSO4(aq) & iK18 = 18, ! KNO3(s) <==> K(aq) + NO3(aq) & iK19 = 19, ! KCL(s) <==> K(aq) + CL(aq) & iK20 = 20, ! MGS04(s) <==> MG(aq) + SO4(aq) & iK21 = 21, ! MG(NO3)2(s) <==> MG(aq) + 2NO3(aq) & iK22 = 22, ! MGCL2(s) <==> MG(aq) + 2CL(aq) & iK23 = 23, & iMBNA = 24, ! Mass Balances & iMBSO4 = 25, & iMBNH4 = 26, & iMBNO3 = 27, & iMBCL = 28, & iMBCA = 29, & iMBK = 30, & iMBMG = 31, & iCB = 32, ! Charge Balance & iZSR = 33 )! ZSR CHARACTER CC*1 DOUBLE PRECISION SINI(NSEN) !INITIAL SENSITIVITIES DOUBLE PRECISION SGAMA(NPAIR) DOUBLE PRECISION SI1, SH1, SY1(6,4),SX1(6,4),SG01(NPAIR) DOUBLE PRECISION SI2, SH2, SY2(6,4),SX2(6,4),SG02(NPAIR) COMMON /DDMISO/ CC, SINI, SGAMA, NDIM, & SI1, SH1, SY1, SX1, SG01, & SI2, SH2, SY2, SX2, SG02 c DOUBLE PRECISION MOLALD c COMMON /MINOR/ MOLALD(NIONS) c INTEGER NONPYS,SAT c COMMON /FILT/ NONPYS,SAT ================================================ FILE: CCTM/src/ddm3d/aero_sens_driver.F ================================================ #ifdef sens !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE AERO_SENS( SCASI, W ) c c Jim Boylan, Yeuh-Jin Yang, Ted Russell, and others at Georgia Tech - Aug 99 c -- derived the aerosol equilibrium sensitivity equations for ISORROPIA c -- implemented and tested for URM-1ATM model c c Sergey L. Napelenok - Apr 03 c -- adapted for the CMAQ ver4.3 c c Sergey L. Napelenok - Jul 06 c -- updated for CMAQ ver4.5 c c Sergey L. Napelenok - May 08 c -- updated for CMAQ ver4.7 c -- changed the call structure (now called from AEROPROC) c -- now accepts the SBLK array assigned in AERO c -- now uses AERO_INFO to get index assignments c -- cleared a bunch of unused variables c c Wenxian Zhang - Sep 2013 c -- restructure for new ddm and hddm calculations c c Sergey L. Napelenok - May 2014 c -- implementation for CMAQ ver 5.0.2 c c Sergey L. Napelenok - Feb 2015 c -- remove limiting checks for stot and psen c c Variables passed from ISORROPIA: c c W total concentration vector (mole/m3-air) c WI(1) - sodium c WI(2) - sulfate c WI(3) - ammonium c WI(4) - nitrate c WI(5) - chloride c WI(6) - calcium c WI(7) - potassium c WI(8) - MG c c SCASI - ISORROPIA case name c c Variables calculated: c c asen speciated aerosol sensitivities (total of I & J modes) c asen(1) aerosol sulfate c asen(2) aerosol nitrate c asen(3) aerosol ammonia c asen(4) aerosol sodium c asen(5) aerosol chlorine c asen(6) aerosol hydrogen USE AERO_DATA, ONLY : aerospc_conc, aerospc_mw, ASO4_IDX, ANH4_IDX, ANO3_IDX, n_aerospc USE DDM3D_DEFN, ONLY : NPMAX, IPT, IPARM, HIGH, SEN_PAR, IHIGH Use aero_ddm3d, ONLY : s_precursor_conc, s_aerospc_conc, cbsens USE UTILIO_DEFN IMPLICIT NONE C sln =-=-=-=-=-=-= DDM-3D sensitivity variables CHARACTER( 15 ), INTENT( IN ) :: SCASI ! (INPUT) subcase number output REAL(KIND=8), INTENT( IN ) :: W( : ) ! (INPUT) WI concentrations REAL, PARAMETER :: cmin = 1.0E-25 ! minimum concentration INTEGER, PARAMETER :: nsize = 33 ! full matrix size INTEGER, PARAMETER :: ncomp = 8 REAL(KIND=8), DIMENSION(nsize) :: s1 !First-order sensitivity to p1 REAL(KIND=8), DIMENSION(nsize) :: s2 !First-order sensitivity to p2 REAL(KIND=8), DIMENSION(nsize) :: s1d !First-order sensitivity to p1 before adjusting minor species REAL(KIND=8), DIMENSION(nsize) :: s2d !First-order sensitivity to p2 before adjusting minor species REAL(KIND=8), DIMENSION(nsize) :: psen !Temporary vector for storing solved sensitiities REAL(KIND=8), DIMENSION(nsize) :: psend !Temporary vector for storing solved sensitiities before adjusting minor species REAL(KIND=8), ALLOCATABLE, SAVE :: sens1( :,: ) REAL(KIND=8), ALLOCATABLE, SAVE :: sens1d( :,: ) INTEGER i, j, k, ip, ip1, ip2 INTEGER FCOL(nsize) ! Flags for matrix reduction REAL(KIND=8), DIMENSION(ncomp) :: stot REAL(KIND=8), DIMENSION(n_aerospc) :: fi ! Size distribution for concentration REAL(KIND=8) fji ! INTEGER, SAVE :: LOGDEV LOGICAL, SAVE :: FIRSTIME = .TRUE. CHARACTER( 96 ) :: XMSG = ' ' INTEGER ALLOCSTAT INTERFACE SUBROUTINE AERO_SENS_CALC1(STOT,SENS,SENSD,SCASI,FCOL) DOUBLE PRECISION, INTENT( IN ) :: STOT( : ) ! (input) gas+pm total sensitivity DOUBLE PRECISION, INTENT( OUT ) :: SENS( : ) ! (output) partitioned SENSITIVITIES DOUBLE PRECISION, INTENT( OUT ) :: SENSD( : ) ! (output) partitioned SENSITIVITIES BEFORE MINOR CHARACTER( 15 ), INTENT( IN ) :: SCASI ! (input) subcase number from ISOROPIA INTEGER, INTENT( IN ) :: FCOL( : ) ! Flags for matrix reduction END SUBROUTINE AERO_SENS_CALC1 SUBROUTINE AERO_SENS_CALC2(STOT,SENS,S1,S2,S1D,S2D,SCASI,FCOL) INTEGER, INTENT (INOUT) :: FCOL( : ) DOUBLE PRECISION, INTENT( IN ) :: STOT( : ) DOUBLE PRECISION, INTENT( OUT ) :: SENS( : ) !OUTPUT, HDDM DOUBLE PRECISION, INTENT( IN ) :: S1( : ) !INPUT, 1ST ORDER SENS DOUBLE PRECISION, INTENT( IN ) :: S2( : ) !INPUT, 2ND ORDER SENS DOUBLE PRECISION, INTENT( IN ) :: S1D( : ) !INPUT, 1ST ORDER SENS DOUBLE PRECISION, INTENT( IN ) :: S2D( : ) !INPUT, 2ND ORDER SENS CHARACTER( 15 ), INTENT( IN ) :: SCASI ! (input) subcase number from ISOROPIA END SUBROUTINE AERO_SENS_CALC2 END INTERFACE C sln =-=-=-=-=-=-= end DDM-3D sensitivity variables c----------------------------------------------------------------------------------------------------------------------- IF ( FIRSTIME ) THEN FIRSTIME = .FALSE. LOGDEV = INIT3 () ALLOCATE( sens1 ( nsize, NPMAX ), & sens1d( nsize, NPMAX ), & STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating sens1 or sens1d' CALL M3EXIT( 'aero_sens', 0 , 0, XMSG, XSTAT2 ) END IF END IF c calculate modal fractions fi = 0.0D0 do i = 1, n_aerospc fji = ( aerospc_conc( i,1 ) + aerospc_conc( i,2 ) ) if ( fji .lt. cmin ) then fi(i) = 0.0D0 else fi(i) = min( (aerospc_conc( i,1 ) / fji), 1.0d0 ) end if end do c loop through all sensitivity parameters sens1 = 0.0D0 sens1d = 0.0D0 do ip = 1,NPMAX stot = 0.0D0 psen = 0.0D0 psend = 0.0D0 call total_sens(stot,ncomp,ip) c do j = 1,ncomp c if(abs(stot(j)).gt.W(j)) then c if (stot(j).gt.0.d0) stot(j) = 0.10d0*W(j) c if (stot(j).lt.0.d0) stot(j) =-0.10d0*W(j) c end if c end do if(IPT(ip).eq.4) then ! calculate second-order sensitivities cycle ! DISABLE HIGHER ORDER PM SENSITIVITY FOR NOW if ( HIGH ) then ip1 = IHIGH(ip,1) ip2 = IHIGH(ip,2) do j = 1,nsize s1(j) = sens1(j,ip1) s2(j) = sens1(j,ip2) s1d(j) = sens1d(j,ip1) s2d(j) = sens1d(j,ip2) enddo call aero_sens_calc2(stot,psen,s1,s2,s1d,s2d,SCASI,FCOL) else XMSG = 'DDM-3D HIGH option not enabled - check runscript' CALL M3EXIT ( 'aero_sens', 0, 0, XMSG, XSTAT3 ) endif else ! calculate first-order sensitivities call aero_sens_calc1(stot,psen,psend,SCASI,FCOL) if ( HIGH ) then ! store for use in hddm calculations do i = 1, nsize sens1d(i,ip) = psend(i) sens1(i,ip) = psen(i) enddo end if endif c do j = 1,ncomp c bflag(j) = 0 c enddo c if(abs(psen(3)) .gt.1.5D0*W(3)) bflag(3) = 1 c if(abs(psen(5)) .gt.1.5D0*W(2).or.abs(psen(6)).gt.2.0D0*W(2)) bflag(2) = 1 c if(abs(psen(7)) .gt.1.5D0*W(4)) bflag(4) = 1 c if(abs(psen(2)) .gt.1.5D0*W(1)) bflag(1) = 1 c if(abs(psen(4)) .gt.1.5D0*W(5)) bflag(5) = 1 c if(abs(psen(8)) .gt.1.5D0*W(6)) bflag(6) = 1 c if(abs(psen(9)) .gt.1.5D0*W(7)) bflag(7) = 1 c if(abs(psen(10)).gt.1.5D0*W(8)) bflag(8) = 1 c call asupdt(psen,fji,nsize,bflag,ip,ncomp) call asupdt(psen,fi,ncomp,nsize,ip, FCOL) end do return end c----------------------------------------------------------------------------------------------------------------------- subroutine total_sens(stot,ncomp,ip) USE AERO_DATA, ONLY : aerospc_mw, n_aerospc, n_mode, & ASO4_IDX, ANO3_IDX, ANH4_IDX, ANA_IDX, ACL_IDX, AK_IDX, ACA_IDX, AMG_IDX USE PRECURSOR_DATA, ONLY : precursor_mw, HNO3_IDX, NH3_IDX, SULPRD_IDX, HCL_IDX USE AERO_DDM3D, ONLY : s_aerospc_conc, s_precursor_conc Use aero_ddm3d, ONLY : cbsens USE UTILIO_DEFN c USE DDM3D_DEFN, ONLY : WRFLAG implicit none integer ncomp integer ip integer i real(kind=8), dimension(ncomp) :: stot INTEGER, SAVE :: LOGDEV LOGICAL, SAVE :: FIRSTIME = .TRUE. c----------------------------------------------------------------------------------------------------------------------- IF ( FIRSTIME ) THEN FIRSTIME = .FALSE. LOGDEV = INIT3 () END IF stot = 0.0d0 stot(1) = ( s_aerospc_conc( ANA_IDX,1,ip ) ! ANAI & + s_aerospc_conc( ANA_IDX,2,ip ) ) ! ANAJ & * 1.0d-6 / REAL( aerospc_mw(ANA_IDX), 8 ) stot(2) = ( s_aerospc_conc( ASO4_IDX,1,ip ) ! ASO4I & + s_aerospc_conc( ASO4_IDX,2,ip ) ) ! ASO4J & * 1.0d-6 / REAL( aerospc_mw(ASO4_IDX), 8 ) & + s_precursor_conc( SULPRD_IDX,ip ) ! H2SO4 & * 1.0d-6 / REAL ( precursor_mw( SULPRD_IDX ), 8 ) stot(3) = ( s_aerospc_conc( ANH4_IDX,1,ip ) ! ANH4I & + s_aerospc_conc( ANH4_IDX,2,ip ) ) ! ANH4J & * 1.0d-6 / REAL( aerospc_mw(ANH4_IDX), 8 ) & + s_precursor_conc( NH3_IDX,ip ) ! NH3 & * 1.0d-6 / REAL ( precursor_mw( NH3_IDX ), 8 ) stot(4) = ( s_aerospc_conc( ANO3_IDX,1,ip ) ! ANO3I & + s_aerospc_conc( ANO3_IDX,2,ip ) ) ! ANO3J & * 1.0d-6 / REAL( aerospc_mw(ANO3_IDX), 8 ) & + s_precursor_conc( HNO3_IDX,ip ) ! HNO3 & * 1.0d-6 / REAL ( precursor_mw( HNO3_IDX ), 8 ) stot(5) = ( s_aerospc_conc( ACL_IDX,1,ip ) ! ACLI & + s_aerospc_conc( ACL_IDX,2,ip ) ) ! ACLJ & * 1.0d-6 / REAL( aerospc_mw(ACL_IDX), 8 ) & + s_precursor_conc( HCL_IDX,ip ) ! HCL & * 1.0d-6 / REAL ( precursor_mw( HCL_IDX ), 8 ) stot(6) = ( s_aerospc_conc( ACA_IDX,1,ip ) ! ACAI & + s_aerospc_conc( ACA_IDX,2,ip ) ) ! ACAJ & * 1.0d-6 / REAL( aerospc_mw(ACA_IDX), 8 ) stot(7) = ( s_aerospc_conc( AK_IDX,1,ip ) ! AKI & + s_aerospc_conc( AK_IDX,2,ip ) ) ! AKJ & * 1.0d-6 / REAL( aerospc_mw(AK_IDX), 8 ) stot(8) = ( s_aerospc_conc( AMG_IDX,1,ip ) ! AMGI & + s_aerospc_conc( AMG_IDX,2,ip ) ) ! AMGJ & * 1.0d-6 / REAL( aerospc_mw(ANA_IDX), 8 ) cbsens = stot(1) - 2.0D0*stot(2) & + ( s_aerospc_conc( ANH4_IDX,1,ip ) + s_aerospc_conc( ANH4_IDX,2,ip ) ) & * 1.0d-6 / REAL( aerospc_mw(ANH4_IDX), 8 ) & - ( s_aerospc_conc( ANO3_IDX,1,ip ) + s_aerospc_conc( ANO3_IDX,2,ip ) ) & * 1.0d-6 / REAL( aerospc_mw(ANO3_IDX), 8 ) & - ( s_aerospc_conc( ACL_IDX,1,ip ) + s_aerospc_conc( ACL_IDX,2,ip ) ) & * 1.0d-6 / REAL( aerospc_mw(ACL_IDX), 8 ) & + 2.0D0*stot(6) + stot(7) + 2.0D0*stot(8) return end c----------------------------------------------------------------------------------------------------------------------- c subroutine asupdt(csens,fji,nsize,bflag,ip,ncomp) subroutine asupdt(csens,fi,ncomp, nsize, ip, FCOL) c 22 MAR 2017: S.L.Napelenok do updates only if case was solved. USE AERO_DDM3D, ONLY : s_precursor_conc, s_aerospc_conc USE AERO_DATA, ONLY : aerospc_mw, ASO4_IDX, ANH4_IDX, ANO3_IDX, ANA_IDX, ACL_IDX, & ACA_IDX, AK_IDX, AMG_IDX, n_aerospc USE PRECURSOR_DATA, ONLY : precursor_mw, HNO3_IDX, NH3_IDX, SULPRD_IDX, HCL_IDX USE UTILIO_DEFN c USE DDM3D_DEFN, ONLY : WRFLAG implicit none integer ncomp integer nsize INTEGER FCOL(nsize) ! Flags for matrix reduction integer ip CHARACTER( 15 ) :: SCASI ! (INPUT) subcase number output integer m real(kind=8), dimension(nsize) :: csens real(kind=8), dimension(ncomp) :: asen real(kind=8) :: f REAL(KIND=8), DIMENSION(n_aerospc) :: fi ! Size distribution for concentration integer, parameter :: jCL = 4 integer, parameter :: jNO3 = 7 integer, parameter :: jHCL = 13 integer, parameter :: jHNO3 = 14 INTEGER, SAVE :: LOGDEV LOGICAL, SAVE :: FIRSTIME = .TRUE. IF ( FIRSTIME ) THEN FIRSTIME = .FALSE. LOGDEV = INIT3 () ENDIF c Filter very small numbers do m = 1, nsize if ( csens(m) .gt. 0.0d0 .and. csens(m) .lt. 1.0d-21 ) then csens(m) = 0.0d0 endif if ( csens(m) .lt. 0.0d0 .and. csens(m) .gt. 1.0d-21 ) then csens(m) = 0.0d0 endif end do f = 1.0D6 asen(1) = (csens(5) + csens(6)) * f * dble(aerospc_mw(aso4_idx)) asen(2) = csens(3) * f * dble(aerospc_mw(anh4_idx)) asen(3) = csens(7) * f * dble(aerospc_mw(ano3_idx)) c asen(4) = csens(2) * f * dble(aerospc_mw(ana_idx)) asen(5) = csens(4) * f * dble(aerospc_mw(acl_idx)) c asen(6) = csens(8) * f * dble(aerospc_mw(aca_idx)) c asen(7) = csens(9) * f * dble(aerospc_mw(ak_idx)) c asen(8) = csens(10) * f * dble(aerospc_mw(amg_idx)) c SO4 - solved in every case s_precursor_conc( SULPRD_IDX, ip ) = 0.0D0 s_aerospc_conc( ASO4_IDX,1,ip ) = asen(1) * fi(ASO4_IDX) s_aerospc_conc( ASO4_IDX,2,ip ) = asen(1) - s_aerospc_conc( ASO4_IDX,1,ip ) c NH4 - solved in every case s_aerospc_conc( ANH4_IDX,1,ip ) = asen(2) * fi(ANH4_IDX) s_aerospc_conc( ANH4_IDX,2,ip ) = asen(2) - s_aerospc_conc( ANH4_IDX,1,ip ) s_precursor_conc( NH3_idx,ip ) = csens(12) * f * REAL( precursor_mw(NH3_idx),8 ) c NO3 if (FCOL(jNO3) .eq. 1 ) then s_aerospc_conc( ANO3_IDX,1,ip ) = asen(3) * fi(ANO3_IDX) s_aerospc_conc( ANO3_IDX,2,ip ) = asen(3) - s_aerospc_conc( ANO3_IDX,1,ip ) endif if (FCOL(jHNO3) .eq. 1 ) then s_precursor_conc( HNO3_idx,ip ) = csens(14) * f * REAL( precursor_mw(HNO3_idx),8 ) endif c CL c if (FCOL(jCL) .eq. 1 ) then c s_aerospc_conc( ACL_IDX,1,ip ) = asen(5) * fji c s_aerospc_conc( ACL_IDX,2,ip ) = asen(5) - s_aerospc_conc( ACL_IDX,1,ip ) c endif c if (FCOL(jHCL) .eq. 1 ) then c s_precursor_conc( HCL_idx,ip ) = csens(13) * f * REAL( precursor_mw(HCL_idx),8 ) c endif c sln 5april2017 the species below can't possibly change due to mass balance constraints. c NA c if (FCOL(jNA) .eq. 1 ) then c s_aerospc_conc( ANA_IDX,1,ip ) = asen(4) * fji c s_aerospc_conc( ANA_IDX,2,ip ) = asen(4) - s_aerospc_conc( ANA_IDX,1,ip ) c endif c CA c if (FCOL(jCA) .eq. 1 ) then c s_aerospc_conc( ACA_IDX,1,ip ) = asen(6) * fji c s_aerospc_conc( ACA_IDX,2,ip ) = asen(6) - s_aerospc_conc( ACA_IDX,1,ip ) c endif c MG c if (FCOL(jMG) .eq. 1 ) then c s_aerospc_conc( AMG_IDX,1,ip ) = asen(8) * fji c s_aerospc_conc( AMG_IDX,2,ip ) = asen(8) - s_aerospc_conc( AMG_IDX,1,ip ) c endif c K c if (FCOL(jK) .eq. 1 ) then c s_aerospc_conc( AK_IDX,1,ip ) = asen(7) * fji c s_aerospc_conc( AK_IDX,2,ip ) = asen(7) - s_aerospc_conc( AK_IDX,1,ip ) c endif return end #endif ================================================ FILE: CCTM/src/ddm3d/dact.inc ================================================ C =================================================================== C This file is the include file for calculating sensitivity of C the activity coefficient of ISORROPIAII C C Written by Wenxian Zhang in August 2011 C C Reference: C Zhang, W., Capps, S. L., Hu, Y., Nenes, A., Napelenok, S. L., & C Russell, A. G. (2012). Development of the high-order decoupled C direct method in three dimensions for particulate matter: C enabling advanced sensitivity analysis in air quality models. C Geoscientific Model Development, 5(2), 355-368. C doi: 10.5194/gmd-5-355-2012 C =================================================================== DOUBLE PRECISION DI(NIONSPC) DOUBLE PRECISION G0P(NPAIR) DOUBLE PRECISION DG0(NIONSPC,NPAIR) DOUBLE PRECISION H,DH DOUBLE PRECISION X(6,4), Y(6,4) DOUBLE PRECISION DX(NIONSPC,6,4),DY(NIONSPC,6,4) INTEGER IJMAP(6,4) DOUBLE PRECISION AGAMA COMMON /HDDMISO/ H, G0P, X, Y, & DI, DY, DX, DG0, DH, & AGAMA, IJMAP ================================================ FILE: CCTM/src/ddm3d/load_sengrid.F ================================================ #ifdef sens !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/work/rep/arc/CCTM/src/init/yamo/load_cgrid.F,v 1.9 2012/01/19 14:47:23 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE LOAD_SENGRID ( FNAME, JDATE, JTIME, SPC_CAT ) C----------------------------------------------------------------------- C Function: C Initialize the model CGRID array from file data C Revision history: C 29 Nov 12 S.L.Napelenok: adapted from load_cgrid for cmaq 5.0 C 12 Dec 19 S.L.Napelenok: ddm-3d implementation for version 5.3.1 C----------------------------------------------------------------------- USE GRID_CONF ! horizontal & vertical domain specifications USE CGRID_SPCS ! CGRID mechanism species USE UTILIO_DEFN USE DDM3D_DEFN, ONLY: NP, NPMAX, SENNUM, SPCNAME, SEN_PAR, SENGRID IMPLICIT NONE INCLUDE SUBST_CONST ! constants INCLUDE SUBST_FILES_ID ! file name parameters C Arguments: CHARACTER( 16 ) :: FNAME INTEGER JDATE INTEGER JTIME CHARACTER( 2 ) :: SPC_CAT C Parameters: C minimum aerosol sulfate concentration [ ug/m**3 ] c REAL, PARAMETER :: AEROCONCMIN = 0.001 C The following two factors assume that sulfate density is 1.8e3 [ kg/m**3 ] C and that the geometric mean diameter and geometric standard deviations C for the Aitken mode are 0.01e-6 [ m ] and 1.7 respectively C and are 0.07e-6 and 2.0 respectively for the accumulation mode. C factor to calculate aerosol number concentration from aerosol sulfate mass C concentration in the Aitken mode [ ug ]. c REAL, PARAMETER :: NUMFACT_I = 2.988524 E11 C factor to calculate aerosol number concentration from aerosol sulfate mass C concentration in the Accumulation mode [ ug ]. c REAL, PARAMETER :: NUMFACT_J = 3.560191 E08 C fraction of sulfuric acid vapor taken as aerosol for first time step c REAL, PARAMETER :: SO4VAPTOAER = 0.999 C initial fraction of total aerosol sulfate in the Aitken mode c REAL, PARAMETER :: IFRACATKN = 0.04 INTEGER, SAVE :: MXSPC INTEGER ASTAT C File variables: c REAL :: DENS( NCOLS,NROWS,NLAYS ) ! air density (kg/m^3) REAL :: RHOJ( NCOLS,NROWS,NLAYS ) ! air density X Jacobian (kg/m^2) C External Functions: c INTEGER, EXTERNAL :: FINDEX ! looks up number in table. C Local Variables c REAL MWH2SO4 ! H2SO4 molec. wt. c REAL H2SO4CONV ! ppm -> ug/m**3 c INTEGER LSULF ! Gas chem CGRID index c INTEGER ISO4AJ, ISO4AI, INUMATKN, INUMACC ! CGRID aerosol indices INTEGER GXOFF, GYOFF ! global origin offset from file C for XTRACT3 INTEGER, SAVE :: STRTCOLMC3, ENDCOLMC3, STRTROWMC3, ENDROWMC3 INTEGER :: STRTCOLINI, ENDCOLINI, STRTROWINI, ENDROWINI REAL :: DBUFF( NCOLS,NROWS,NLAYS ) INTEGER SPC_STRT INTEGER N_SPCS ! no. of species for this call INTEGER NDX ! loop copy of INDX c INTEGER ISUR ! surrogate index INTEGER, ALLOCATABLE, SAVE :: INDX( : ) ! Variable indices for all IC species c REAL, ALLOCATABLE, SAVE :: ICBC_FAC( : ) ! Factor to be applied to ICs INTEGER C, R, L, SPC, V ! loop counters INTEGER ASPC ! CGRID RHOJ pointer c INTEGER NCOLSDENS, NROWSDENS ! local for DENS CHARACTER( 16 ) :: PNAME = 'LOAD_SENGRID' CHARACTER( 16 ) :: VNAME c CHARACTER( 16 ) :: CONCMIN CHARACTER( 96 ) :: XMSG = ' ' CHARACTER( 40 ) :: CHWARN = 'Domain extents dfrnt from model for ' c CHARACTER( 24 ) :: ESTR1 = 'No IC found for species ' c CHARACTER( 34 ) :: ESTR2 = ' ' LOGICAL, SAVE :: FIRSTIME = .TRUE. c INTEGER, SAVE :: LOGDEV c INTEGER SENNUM c CHARACTER( 8 ) :: SPCNAME c CHARACTER( 16) :: SENNAME C----------------------------------------------------------------------- IF ( FIRSTIME ) THEN FIRSTIME = .FALSE. LOGDEV = INIT3 () CALL SUBHFILE ( MET_CRO_3D, GXOFF, GYOFF, & STRTCOLMC3, ENDCOLMC3, STRTROWMC3, ENDROWMC3 ) C IOFDESC common now loaded with MET_CRO_3D header MXSPC = N_GC_SPC + N_AE_SPC + N_NR_SPC + N_TR_SPC + 1 ALLOCATE ( INDX( MXSPC*NPMAX ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN XMSG = 'ERROR allocating INDX' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT2 ) END IF END IF c WRITE( CONCMIN,'(1PE8.2)' ) CMIN write(logdev,*) "BEFORE OPEN load_sengrid" IF ( .NOT. OPEN3( FNAME, FSREAD3, PNAME ) ) THEN XMSG = 'Could not open ' // FNAME // ' file' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF IF ( .NOT. DESC3( FNAME ) ) THEN XMSG = 'Could not get ' // FNAME // ' file description' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF IF ( GL_NCOLS .NE. NCOLS3D ) THEN WRITE( LOGDEV,* ) ' ' WRITE( LOGDEV,* ) ' WARNING: ' // CHWARN // FNAME WRITE( LOGDEV,* ) '>> GL_NCOLS: ', GL_NCOLS, ' NCOLS3D: ', NCOLS3D END IF IF ( GL_NROWS .NE. NROWS3D ) THEN WRITE( LOGDEV,* ) ' ' WRITE( LOGDEV,* ) ' WARNING: ' // CHWARN // FNAME WRITE( LOGDEV,* ) '>> GL_NROWS: ', GL_NROWS, ' NROWS3D: ', NROWS3D END IF IF ( NLAYS .NE. NLAYS3D ) THEN XMSG = 'Wrong number of layers in ' // FNAME // ' file' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF c ESTR2 = ' in ' // TRIM( FNAME ) // '; set to ' // TRIM( CONCMIN ) C Get INDX ! INDX = 0 ! array assignment DO SPC = 1, MXSPC*NPMAX INDX( SPC ) = 0 END DO write(logdev,*) "load_sengrid", SPC_CAT IF ( SPC_CAT .EQ. 'GC' ) THEN WRITE( LOGDEV,1009 ) 'transported gas-phase species' SPC_STRT = GC_STRT N_SPCS = N_GC_SPC DO SPC = 1, N_SPCS c SPCNAME = GC_SPC( SPC )( 1:12 ) DO NP = 1, NPMAX SPCNAME = GC_SPC( SPC )( 1:12 ) SPCNAME = TRIM(SPCNAME) // '_' // SEN_PAR( NP ) SENNUM = ( SPC - 1 ) * NPMAX + NP NDX = INDEX1( SPCNAME, NVARS3D, VNAME3D ) INDX( SENNUM ) = NDX IF ( NDX .EQ. 0 ) THEN XMSG = 'No IC found for sensitivity ' & // SPCNAME // ' in ' // TRIM(FNAME) & // ' Set to zero.' CALL M3MESG ( XMSG ) END IF IF ( INDX( SENNUM ) .GT. 0 ) & WRITE( LOGDEV,1013 ) INDX( SPC ), GC_SPC( SPC ) END DO END DO ELSE IF ( SPC_CAT .EQ. 'AE' ) THEN WRITE( LOGDEV,1009 ) 'transported aerosol species' SPC_STRT = AE_STRT N_SPCS = N_AE_SPC DO SPC = 1, N_SPCS c SPCNAME = AE_SPC( SPC )( 1:12 ) DO NP = 1, NPMAX SPCNAME = AE_SPC( SPC )( 1:12 ) SENNUM = ( SPC + SPC_STRT - 2 ) * NPMAX + NP SPCNAME = TRIM(SPCNAME) // '_' // SEN_PAR( NP ) NDX = INDEX1( SPCNAME, NVARS3D, VNAME3D ) INDX( SENNUM ) = NDX IF ( NDX .EQ. 0 ) THEN XMSG = 'No IC found for sensitivity ' & // SPCNAME // ' in ' // TRIM(FNAME) & // ' Set to zero.' CALL M3MESG ( XMSG ) END IF IF ( INDX( SENNUM ) .GT. 0 ) & WRITE( LOGDEV,1013 ) INDX( SPC ), AE_SPC( SPC ) END DO END DO ELSE IF ( SPC_CAT .EQ. 'NR' ) THEN WRITE( LOGDEV,1009 ) 'transported non-reactive gas species' SPC_STRT = NR_STRT N_SPCS = N_NR_SPC DO SPC = 1, N_SPCS c SPCNAME = NR_SPC( SPC )( 1:12 ) DO NP = 1, NPMAX SPCNAME = NR_SPC( SPC )( 1:12 ) SENNUM = ( SPC + SPC_STRT - 2 ) * NPMAX + NP SPCNAME = TRIM(SPCNAME) // '_' // SEN_PAR( NP ) NDX = INDEX1( SPCNAME, NVARS3D, VNAME3D ) INDX( SENNUM ) = NDX IF ( NDX .EQ. 0 ) THEN XMSG = 'No IC found for sensitivity ' & // SPCNAME // ' in ' // TRIM(FNAME) & // ' Set to zero.' CALL M3MESG ( XMSG ) END IF IF ( INDX( SENNUM ) .GT. 0 ) & WRITE( LOGDEV,1013 ) INDX( SPC ), NR_SPC( SPC ) END DO END DO ELSE IF ( SPC_CAT .EQ. 'TR' ) THEN WRITE( LOGDEV,1009 ) 'transported inert tracer gas species' SPC_STRT = TR_STRT N_SPCS = N_TR_SPC DO SPC = 1, N_SPCS c SPCNAME = TR_SPC( SPC )( 1:12 ) DO NP = 1, NPMAX SPCNAME = TR_SPC( SPC )( 1:12 ) SENNUM = ( SPC + SPC_STRT - 2 ) * NPMAX + NP SPCNAME = TRIM(SPCNAME) // '_' // SEN_PAR( NP ) NDX = INDEX1( SPCNAME, NVARS3D, VNAME3D ) INDX( SENNUM ) = NDX IF ( NDX .EQ. 0 ) THEN XMSG = 'No IC found for sensitivity ' & // SPCNAME // ' in ' // TRIM(FNAME) & // ' Set to zero.' CALL M3MESG ( XMSG ) END IF IF ( INDX( SENNUM ) .GT. 0 ) & WRITE( LOGDEV,1013 ) INDX( SPC ), NR_SPC( SPC ) END DO END DO ELSE IF ( SPC_CAT .EQ. 'RJ' ) THEN N_SPCS = 0 ! WRITE( LOGDEV,'(/ 5X, A)' ) 'loading Density*Jacobian into CGRID' ELSE XMSG = 'Species categories incorrect for CGRID ' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT2 ) END IF C Read into SENGRID CALL SUBHFILE ( FNAME, GXOFF, GYOFF, & STRTCOLINI, ENDCOLINI, STRTROWINI, ENDROWINI ) C IOFDESC common now loaded with FNAME header DO SPC = 1, N_SPCS V = SPC_STRT - 1 + SPC DO NP = 1, NPMAX SENNUM = ( SPC_STRT - 2 + SPC ) * NPMAX + NP NDX = INDX( SENNUM ) IF ( NDX .GT. 0 ) THEN IF ( .NOT. XTRACT3( FNAME, VNAME3D ( NDX ), & 1,NLAYS, STRTROWINI,ENDROWINI, STRTCOLINI,ENDCOLINI, & JDATE, JTIME, DBUFF ) ) THEN XMSG = 'Could not read ' // TRIM( VNAME3D( NDX ) ) & // ' from ' // FNAME CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF DO L = 1, NLAYS DO R = 1, NROWS DO C = 1, NCOLS SENGRID( C,R,L,NP,V ) = DBUFF( C,R,L ) END DO END DO END DO ELSE DO L = 1, NLAYS DO R = 1, NROWS DO C = 1, NCOLS SENGRID( C,R,L,NP,V ) = 0.0 END DO END DO END DO END IF ! INDX .GT. 0 END DO END DO IF ( N_SPCS .NE. 0 ) WRITE( LOGDEV,'(/ 5X, A)' ) & SPC_CAT // ' loaded into SENGRID' IF ( SPC_CAT .EQ. 'RJ' ) THEN C Load RHOJ for transport and mixing ratio advection adjustment VNAME = 'DENSA_J' IF ( .NOT. XTRACT3( MET_CRO_3D, VNAME, & 1,NLAYS, STRTROWMC3,ENDROWMC3, STRTCOLMC3,ENDCOLMC3, & JDATE, JTIME, RHOJ ) ) THEN XMSG = 'Could not read DENSA_J from ' // MET_CRO_3D CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF ASPC = GC_STRT - 1 + N_GC_SPCD DO NP = 1, NPMAX DO L = 1, NLAYS DO R = 1, NROWS DO C = 1, NCOLS SENGRID( C,R,L,NP,ASPC ) = RHOJ( C,R,L ) END DO END DO END DO END DO WRITE( LOGDEV,'(/ 5X, A)' ) 'Dens*Jacobian loaded into SENGRID' END IF C Close the file ! IF ( .NOT. CLOSE3( FNAME ) ) THEN ! XMSG = 'Could not close ' // FNAME // ' file' ! CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) ! END IF RETURN 1009 FORMAT( / 5X, 'IC/BC Factors used for ', A ) 1013 FORMAT( 5X, I3, 2X, A, 1PG13.5 ) END #endif ================================================ FILE: CCTM/src/ddm3d/opasens.F ================================================ #ifdef sens !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! !::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE OPASENS ( JDATE, JTIME, TSTEP ) ! Revision History: ! D. Wong - July 15: initial version ! D. Wong 19 May 2016 - renamed ACONC_END_TIME to AVG_FILE_ENDTIME ! F. Sidi 09 Sep 2019 - Replaced L_ACONC_WVEL(depreciated) with W_VEL C S.Napelenok 26 Nov 2019 - create from opaconc.f for cmaq-ddm3d-v5.3.1 !----------------------------------------------------------------------- USE GRID_CONF ! horizontal & vertical domain specifications USE AVG_CONC ! integral average CONC USE UTILIO_DEFN USE RUNTIME_VARS #ifdef parallel USE SE_MODULES ! stenex (using SE_UTIL_MODULE) #else USE NOOP_MODULES ! stenex (using NOOP_UTIL_MODULE) #endif USE DDM3D_DEFN, ONLY: NP, NPMAX, SEN_PAR, N_ASENS_VARS IMPLICIT NONE ! Include Files: INCLUDE SUBST_FILES_ID ! file name parameters INTEGER, INTENT (IN ) :: JDATE ! current model date, coded YYYYDDD INTEGER, INTENT (IN ) :: JTIME ! current model time, coded HHMMSS INTEGER, INTENT (IN ) :: TSTEP ! output timestep (HHMMSS) ! Local variables: INTEGER MDATE ! modified model date, coded YYYYDDD INTEGER MTIME ! modified model time, coded HHMMSS CHARACTER( 16 ) :: PNAME = 'OPASENS' CHARACTER( 80 ) :: VARDESC = ' ' CHARACTER( 96 ) :: XMSG = ' ' LOGICAL, SAVE :: FIRSTIME = .TRUE. LOGICAL OK INTEGER L, K, KD, VAR, SPC ! loop counters INTEGER STATUS INTEGER TSTEP_RF, NTHIK_RF, NCOLS_RF, NROWS_RF, GDTYP_RF REAL( 8 ) :: P_ALP_RF, P_BET_RF, P_GAM_RF REAL( 8 ) :: XCENT_RF, YCENT_RF REAL( 8 ) :: XORIG_RF, YORIG_RF REAL( 8 ) :: XCELL_RF, YCELL_RF INTEGER VGTYP_RF REAL VGTOP_RF !----------------------------------------------------------------------- ! Define N_ASENS_VARS when a subset of species is requested and it is ! not defined elsewhere IF ( N_ASENS_VARS .EQ. 0 ) THEN ! this happens when 'ALL' keyword !is not specified in the run script IF ( W_VEL ) THEN N_ASENS_VARS = N_ACONC_VARS - 1 ELSE N_ASENS_VARS = N_ACONC_VARS END IF END IF ! Change output date/time to starting date/time - e.g. timestamp 1995196:090000 ! represents data computed from time 1995196:090000 to 1995196:100000 ! Override default beginning time timestamp for ASENS? IF ( END_TIME ) THEN ! ending time timestamp MDATE = JDATE; MTIME = JTIME CALL NEXTIME ( MDATE, MTIME, TSTEP ) ELSE ! beginning time timestamp MDATE = JDATE; MTIME = JTIME END IF ! Try to open existing file for update OK = OPEN3( A_SENS_1, FSRDWR3, PNAME ) CALL SUBST_GLOBAL_LOGICAL( OK, 'AND' ) IF ( .NOT. OK ) THEN #ifndef twoway BACKSPACE( LOGDEV ) #endif XMSG = 'Could not open ' // TRIM( A_SENS_1 ) & // ' file for update - try to open new' CALL M3MESG( XMSG ) IF ( IO_PE_INCLUSIVE ) THEN ! Get default file header attibutes from CONC file (assumes file already open) IF ( .NOT. DESC3( CTM_CONC_1 ) ) THEN XMSG = 'Could not get ' & // TRIM( CTM_CONC_1 ) & // ' file description' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF ! Set file header attributes that differ from CONC and open the file SDATE3D = MDATE STIME3D = MTIME TSTEP3D = TSTEP NVARS3D = N_ASENS_VARS * NPMAX NLAYS3D = A_NLYS L = 0 DO K = ACONC_BLEV, ACONC_ELEV + 1 L = L + 1 VGLVS3D( L ) = VGLVS_GD( K ) END DO ! GDNAM3D = GDNAME_GD GDNAM3D = GRID_NAME ! from HGRD_DEFN FDESC3D( 1 ) = 'DDM3D Sensitivity file output ' FDESC3D( 2 ) = 'Averaged over the synchronization time steps ' FDESC3D( 3 ) = 'Timestamp represents beginning computed date/time ' FDESC3D( 4 ) = 'Layer mapping (SENGRID to SAGRID):' KD = 4 VAR = ACONC_BLEV L = 0 DO K = KD + 1, MIN ( A_NLYS + KD, MXDESC3 ) L = L + 1 WRITE( FDESC3D( K ),'( "Layer", I3, " to", I3, " " )' ) & VAR + L - 1, L END DO IF ( ( KD + 1 + L ) .LT. MXDESC3 ) THEN DO K = KD + 1 + L, MXDESC3 FDESC3D( K ) = ' ' END DO END IF WRITE( LOGDEV,* ) WRITE( LOGDEV, '(5x,A)' )'Avg Sens File Header Description:' DO K = 1, KD + L WRITE( LOGDEV,'(7x,A)' ) TRIM( FDESC3D( K ) ) END DO VAR = 0 DO SPC = 1, N_A_GC_SPC DO NP = 1, NPMAX VAR = VAR + 1 VTYPE3D( VAR ) = M3REAL VNAME3D( VAR ) = TRIM(A_GC_SPC( SPC )(1:12)) & // '_' // SEN_PAR(NP) UNITS3D( VAR ) = 'ppmV' VDESC3D( VAR ) = 'Sensitivity of ' // A_GC_SPC( SPC ) & // ' to ' // SEN_PAR(NP) END DO END DO DO SPC = 1, N_A_AE_SPC DO NP = 1, NPMAX VAR = VAR + 1 VTYPE3D( VAR ) = M3REAL VNAME3D( VAR ) = TRIM(A_AE_SPC( SPC )(1:12)) & // '_' // SEN_PAR(NP) IF ( VNAME3D( VAR )(1:3) .EQ. 'NUM' ) THEN UNITS3D( VAR ) = 'm-3' ELSE IF ( VNAME3D( VAR )(1:3) .EQ. 'SRF' ) THEN UNITS3D( VAR ) = 'm2 m-3' ELSE UNITS3D( VAR ) = 'ug m-3' END IF VDESC3D( VAR ) = 'Sensitivity of ' // A_AE_SPC( SPC ) & // ' to ' // SEN_PAR(NP) END DO END DO DO SPC = 1, N_A_NR_SPC DO NP = 1, NPMAX VAR = VAR + 1 VTYPE3D( VAR ) = M3REAL VNAME3D( VAR ) = TRIM(A_NR_SPC( SPC )(1:12)) & // '_' // SEN_PAR(NP) UNITS3D( VAR ) = 'ppmV' VDESC3D( VAR ) = 'Sensitivity of ' // A_NR_SPC( SPC ) & // ' to ' // SEN_PAR(NP) END DO END DO DO SPC = 1, N_A_TR_SPC DO NP = 1, NPMAX VAR = VAR + 1 VTYPE3D( VAR ) = M3REAL VNAME3D( VAR ) = TRIM(A_TR_SPC( SPC )(1:12)) & // '_' // SEN_PAR(NP) UNITS3D( VAR ) = 'ppmV' VDESC3D( VAR ) = 'Sensitivity of ' // A_TR_SPC( SPC ) & // ' to ' // SEN_PAR(NP) END DO END DO DO SPC = 1, VAR WRITE( LOGDEV,'( 7X, "=> VNAME3D(", I5, " ): ", A )' ) & SPC, VNAME3D( SPC ) END DO IF ( .NOT. OPEN3( A_SENS_1, FSNEW3, PNAME ) ) THEN XMSG = 'Could not open ' & // TRIM( A_SENS_1 ) // ' file' CALL M3EXIT( PNAME, MDATE, MTIME, XMSG, XSTAT1 ) END IF END IF ! MYPE = 0 ELSE ! File exists. Make sure it matches requested output. IF ( .NOT. DESC3( CTM_CONC_1 ) ) THEN XMSG = 'Could not get ' & // TRIM( CTM_CONC_1 ) & // ' file description' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF TSTEP_RF = TSTEP3D NTHIK_RF = NTHIK3D NCOLS_RF = NCOLS3D NROWS_RF = NROWS3D GDTYP_RF = GDTYP3D P_ALP_RF = P_ALP3D P_BET_RF = P_BET3D P_GAM_RF = P_GAM3D XCENT_RF = XCENT3D YCENT_RF = YCENT3D XORIG_RF = XORIG3D YORIG_RF = YORIG3D XCELL_RF = XCELL3D YCELL_RF = YCELL3D VGTYP_RF = VGTYP3D VGTOP_RF = VGTOP3D IF ( .NOT. DESC3( A_SENS_1 ) ) THEN XMSG = 'Could not get ' & // TRIM( A_SENS_1 ) & // ' file description' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF IF ( N_ACONC_VARS*NPMAX .NE. NVARS3D ) THEN WRITE( XMSG, '( A, 2I6 )' ) & 'Number of variables don''t match file: ', N_ACONC_VARS*NPMAX, NVARS3D CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT2 ) END IF c DO SPC = 1, N_ASPCS c DO VAR = 1, NVARS3D c IF ( ACONC_FILE_SPCS( SPC ) .EQ. VNAME3D( VAR ) ) GO TO 101 c END DO c XMSG = 'Could not find ' // ACONC_FILE_SPCS( SPC ) c CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT2 ) c101 CONTINUE c END DO IF ( A_NLYS .NE. NLAYS3D ) THEN WRITE( XMSG, '( A, 2I6 )' ) & 'Number of layers don''t match file: ', A_NLYS, NLAYS3D CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT2 ) END IF ! Check other header data with CONC file as reference IF ( TSTEP_RF .NE. TSTEP3D .OR. & NTHIK_RF .NE. NTHIK3D .OR. & NCOLS_RF .NE. NCOLS3D .OR. & NROWS_RF .NE. NROWS3D .OR. & GDTYP_RF .NE. GDTYP3D ) THEN XMSG = 'Header inconsistent on existing A_CONC_1' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT2 ) END IF IF ( P_ALP_RF .NE. P_ALP3D .OR. & P_BET_RF .NE. P_BET3D .OR. & P_GAM_RF .NE. P_GAM3D ) THEN XMSG = 'Header inconsistent on existing A_CONC_1' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT2 ) END IF IF ( XCENT_RF .NE. XCENT3D .OR. & YCENT_RF .NE. YCENT3D ) THEN XMSG = 'Header inconsistent on existing A_CONC_1' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT2 ) END IF IF ( XORIG_RF .NE. XORIG3D .OR. & YORIG_RF .NE. YORIG3D ) THEN XMSG = 'Header inconsistent on existing A_CONC_1' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT2 ) END IF IF ( XCELL_RF .NE. XCELL3D .OR. & YCELL_RF .NE. YCELL3D ) THEN XMSG = 'Header inconsistent on existing A_CONC_1' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT2 ) END IF IF ( VGTYP_RF .NE. VGTYP3D ) THEN XMSG = 'Header inconsistent on existing A_CONC_1' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT2 ) END IF IF ( VGTOP_RF .NE. VGTOP3D ) THEN XMSG = 'Header inconsistent on existing A_CONC_1' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT2 ) END IF END IF ! .NOT. OPEN A_SENS_1 END SUBROUTINE OPASENS #endif ================================================ FILE: CCTM/src/ddm3d/s_lu.F ================================================ C*********************************************************************** C Portions of Models-3/CMAQ software were developed or based on * C information from various groups: Federal Government employees, * C contractors working on a United States Government contract, and * C non-Federal sources (including research institutions). These * C research institutions have given the Government permission to * C use, prepare derivative works, and distribute copies of their * C work in Models-3/CMAQ to the public and to permit others to do * C so. EPA therefore grants similar permissions for use of the * C Models-3/CMAQ software, but users are requested to provide copies * C of derivative works to the Government without restrictions as to * C use by others. Users are responsible for acquiring their own * C copies of commercial software associated with Models-3/CMAQ and * C for complying with vendor requirements. Software copyrights by * C the MCNC Environmental Modeling Center are used with their * C permissions subject to the above restrictions. * C*********************************************************************** C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/work/rep/CCTM/src/init/yamo_ddm3d/s_lu.F,v 1.1.1.1 2009/09/29 13:49:13 sjr Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% subroutine sgeco(a,lda,n,ipvt,rcond,z) integer lda,n,ipvt(*) real a(lda,*),z(*) real rcond c c sgeco factors a real matrix by gaussian elimination c and estimates the condition of the matrix. c c if rcond is not needed, sgefa is slightly faster. c to solve a*x = b , follow sgeco by sgesl. c to compute inverse(a)*c , follow sgeco by sgesl. c to compute determinant(a) , follow sgeco by sgedi. c to compute inverse(a) , follow sgeco by sgedi. c c on entry c c a real(lda, n) c the matrix to be factored. c c lda integer c the leading dimension of the array a . c c n integer c the order of the matrix a . c c on return c c a an upper triangular matrix and the multipliers c which were used to obtain it. c the factorization can be written a = l*u where c l is a product of permutation and unit lower c triangular matrices and u is upper triangular. c c ipvt integer(n) c an integer vector of pivot indices. c c rcond real c an estimate of the reciprocal condition of a . c for the system a*x = b , relative perturbations c in a and b of size epsilon may cause c relative perturbations in x of size epsilon/rcond . c if rcond is so small that the logical expression c 1.0 + rcond .eq. 1.0 c is true, then a may be singular to working c precision. in particular, rcond is zero if c exact singularity is detected or the estimate c underflows. c c z real(n) c a work vector whose contents are usually unimportant. c if a is close to a singular matrix, then z is c an approximate null vector in the sense that c norm(a*z) = rcond*norm(a)*norm(z) . c c linpack. this version dated 08/14/78 . c cleve moler, university of new mexico, argonne national lab. c c subroutines and functions c c linpack sgefa c blas saxpy,sdot,sscal,sasum c fortran abs,amax1,sign c c internal variables c real sdot,ek,t,wk,wkm real anorm,s,sasum,sm,ynorm integer info,j,k,kb,kp1,l c c c compute 1-norm of a c anorm = 0.0e0 do 10 j = 1, n anorm = amax1(anorm,sasum(n,a(1,j),1)) 10 continue c c factor c call sgefa(a,lda,n,ipvt,info) c c rcond = 1/(norm(a)*(estimate of norm(inverse(a)))) . c estimate = norm(z)/norm(y) where a*z = y and trans(a)*y = e . c trans(a) is the transpose of a . the components of e are c chosen to cause maximum local growth in the elements of w where c trans(u)*w = e . the vectors are frequently rescaled to avoid c overflow. c c solve trans(u)*w = e c ek = 1.0e0 do 20 j = 1, n z(j) = 0.0e0 20 continue do 100 k = 1, n if (z(k) .ne. 0.0e0) ek = sign(ek,-z(k)) if (abs(ek-z(k)) .le. abs(a(k,k))) go to 30 s = abs(a(k,k))/abs(ek-z(k)) call sscal(n,s,z,1) ek = s*ek 30 continue wk = ek - z(k) wkm = -ek - z(k) s = abs(wk) sm = abs(wkm) if (a(k,k) .eq. 0.0e0) go to 40 wk = wk/a(k,k) wkm = wkm/a(k,k) go to 50 40 continue wk = 1.0e0 wkm = 1.0e0 50 continue kp1 = k + 1 if (kp1 .gt. n) go to 90 do 60 j = kp1, n sm = sm + abs(z(j)+wkm*a(k,j)) z(j) = z(j) + wk*a(k,j) s = s + abs(z(j)) 60 continue if (s .ge. sm) go to 80 t = wkm - wk wk = wkm do 70 j = kp1, n z(j) = z(j) + t*a(k,j) 70 continue 80 continue 90 continue z(k) = wk 100 continue s = 1.0e0/sasum(n,z,1) call sscal(n,s,z,1) c c solve trans(l)*y = w c do 120 kb = 1, n k = n + 1 - kb if (k .lt. n) z(k) = z(k) + sdot(n-k,a(k+1,k),1,z(k+1),1) if (abs(z(k)) .le. 1.0e0) go to 110 s = 1.0e0/abs(z(k)) call sscal(n,s,z,1) 110 continue l = ipvt(k) t = z(l) z(l) = z(k) z(k) = t 120 continue s = 1.0e0/sasum(n,z,1) call sscal(n,s,z,1) c ynorm = 1.0e0 c c solve l*v = y c do 140 k = 1, n l = ipvt(k) t = z(l) z(l) = z(k) z(k) = t if (k .lt. n) call saxpy(n-k,t,a(k+1,k),1,z(k+1),1) if (abs(z(k)) .le. 1.0e0) go to 130 s = 1.0e0/abs(z(k)) call sscal(n,s,z,1) ynorm = s*ynorm 130 continue 140 continue s = 1.0e0/sasum(n,z,1) call sscal(n,s,z,1) ynorm = s*ynorm c c solve u*z = v c do 160 kb = 1, n k = n + 1 - kb if (abs(z(k)) .le. abs(a(k,k))) go to 150 s = abs(a(k,k))/abs(z(k)) call sscal(n,s,z,1) ynorm = s*ynorm 150 continue if (a(k,k) .ne. 0.0e0) z(k) = z(k)/a(k,k) if (a(k,k) .eq. 0.0e0) z(k) = 1.0e0 t = -z(k) call saxpy(k-1,t,a(1,k),1,z(1),1) 160 continue c make znorm = 1.0 s = 1.0e0/sasum(n,z,1) call sscal(n,s,z,1) ynorm = s*ynorm c if (anorm .ne. 0.0e0) rcond = ynorm/anorm if (anorm .eq. 0.0e0) rcond = 0.0e0 return end C C SUBROUTINE SAXPY(N,SA,SX,INCX,SY,INCY) C CONSTANT TIMES A VECTOR PLUS A VECTOR. C USES UNROLLED LOOPS FOR INCREMENTS EQUAL TO ONE. C JACK DONGARRA, LINPACK, 3/11/78. C REAL SX(*),SY(*),SA INTEGER I,INCX,INCY,IX,IY,M,MP1,N C IF(N.LE.0)RETURN IF (SA .EQ. 0.0) RETURN IF(INCX.EQ.1.AND.INCY.EQ.1)GO TO 20 C C CODE FOR UNEQUAL INCREMENTS OR EQUAL INCREMENTS C NOT EQUAL TO 1 C IX = 1 IY = 1 IF(INCX.LT.0)IX = (-N+1)*INCX + 1 IF(INCY.LT.0)IY = (-N+1)*INCY + 1 DO 10 I = 1,N SY(IY) = SY(IY) + SA*SX(IX) IX = IX + INCX IY = IY + INCY 10 CONTINUE RETURN C C CODE FOR BOTH INCREMENTS EQUAL TO 1 C C C CLEAN-UP LOOP C 20 M = MOD(N,4) IF( M .EQ. 0 ) GO TO 40 DO 30 I = 1,M SY(I) = SY(I) + SA*SX(I) 30 CONTINUE IF( N .LT. 4 ) RETURN 40 MP1 = M + 1 DO 50 I = MP1,N,4 SY(I) = SY(I) + SA*SX(I) SY(I + 1) = SY(I + 1) + SA*SX(I + 1) SY(I + 2) = SY(I + 2) + SA*SX(I + 2) SY(I + 3) = SY(I + 3) + SA*SX(I + 3) 50 CONTINUE RETURN END C C C SUBROUTINE SGEFA(A,LDA,N,IPVT,INFO) INTEGER LDA,N,IPVT(*),INFO REAL A(LDA,*) C C DGEFA FACTORS A MATRIX BY GAUSSIAN ELIMINATION. C C DGEFA IS USUALLY CALLED BY DGECO, BUT IT CAN BE CALLED C DIRECTLY WITH A SAVING IN TIME IF RCOND IS NOT NEEDED. C (TIME FOR DGECO) = (1 + 9/N)*(TIME FOR DGEFA) . C C ON ENTRY C C A (LDA, N) C THE MATRIX TO BE FACTORED. C C LDA INTEGER C THE LEADING DIMENSION OF THE ARRAY A . C C N INTEGER C THE ORDER OF THE MATRIX A . C C ON RETURN C C A AN UPPER TRIANGULAR MATRIX AND THE MULTIPLIERS C WHICH WERE USED TO OBTAIN IT. C THE FACTORIZATION CAN BE WRITTEN A = L*U WHERE C L IS A PRODUCT OF PERMUTATION AND UNIT LOWER C TRIANGULAR MATRICES AND U IS UPPER TRIANGULAR. C C IPVT INTEGER(N) C AN INTEGER VECTOR OF PIVOT INDICES. C C INFO INTEGER C = 0 NORMAL VALUE. C = K IF U(K,K) .EQ. 0.0 . THIS IS NOT AN ERROR C CONDITION FOR THIS SUBROUTINE, BUT IT DOES C INDICATE THAT SGESL OR SGEDI WILL DIVIDE BY ZERO C IF CALLED. USE RCOND IN DGECO FOR A RELIABLE C INDICATION OF SINGULARITY. C C LINPACK. THIS VERSION DATED 08/14/78 . C CLEVE MOLER, UNIVERSITY OF NEW MEXICO, ARGONNE NATIONAL LAB. C C SUBROUTINES AND FUNCTIONS C C BLAS SAXPY,SSCAL,ISAMAX C C INTERNAL VARIABLES C REAL T INTEGER ISAMAX,J,K,KP1,L,NM1 C C C GAUSSIAN ELIMINATION WITH PARTIAL PIVOTING C INFO = 0 NM1 = N - 1 IF (NM1 .LT. 1) GO TO 70 DO 60 K = 1, NM1 KP1 = K + 1 C C FIND L = PIVOT INDEX C L = ISAMAX(N-K+1,A(K,K),1) + K - 1 IPVT(K) = L C C ZERO PIVOT IMPLIES THIS COLUMN ALREADY TRIANGULARIZED C IF (A(L,K) .EQ. 0.0E0) GO TO 40 C C INTERCHANGE IF NECESSARY C IF (L .EQ. K) GO TO 10 T = A(L,K) A(L,K) = A(K,K) A(K,K) = T 10 CONTINUE C C COMPUTE MULTIPLIERS C T = -1.0E0/A(K,K) CALL SSCAL(N-K,T,A(K+1,K),1) C C ROW ELIMINATION WITH COLUMN INDEXING C DO 30 J = KP1, N T = A(L,J) IF (L .EQ. K) GO TO 20 A(L,J) = A(K,J) A(K,J) = T 20 CONTINUE CALL SAXPY(N-K,T,A(K+1,K),1,A(K+1,J),1) 30 CONTINUE GO TO 50 40 CONTINUE INFO = K 50 CONTINUE 60 CONTINUE 70 CONTINUE IPVT(N) = N IF (A(N,N) .EQ. 0.0E0) INFO = N RETURN END SUBROUTINE SSCAL(N,SA,SX,INCX) C C SCALES A VECTOR BY A CONSTANT. C USES UNROLLED LOOPS FOR INCREMENT EQUAL TO ONE. C JACK DONGARRA, LINPACK, 3/11/78. C REAL SA, SX(*) INTEGER I,INCX,M,MP1,N,NINCX C IF(N.LE.0)RETURN IF(INCX.EQ.1)GO TO 20 C C CODE FOR INCREMENT NOT EQUAL TO 1 C NINCX = N*INCX DO 10 I = 1,NINCX,INCX SX(I) = SA*SX(I) 10 CONTINUE RETURN C C CODE FOR INCREMENT EQUAL TO 1 C C C CLEAN-UP LOOP C 20 M = MOD(N,5) IF( M .EQ. 0 ) GO TO 40 DO 30 I = 1,M SX(I) = SA*SX(I) 30 CONTINUE IF( N .LT. 5 ) RETURN 40 MP1 = M + 1 DO 50 I = MP1,N,5 SX(I) = SA*SX(I) SX(I + 1) = SA*SX(I + 1) SX(I + 2) = SA*SX(I + 2) SX(I + 3) = SA*SX(I + 3) SX(I + 4) = SA*SX(I + 4) 50 CONTINUE RETURN END INTEGER FUNCTION ISAMAX(N,SX,INCX) C C FINDS THE INDEX OF ELEMENT HAVING MAX. ABSOLUTE VALUE. C JACK DONGARRA, LINPACK, 3/11/78. C REAL SX(*),SMAX INTEGER I,INCX,IX,N C ISAMAX = 0 IF( N .LT. 1 ) RETURN ISAMAX = 1 IF(N.EQ.1)RETURN IF(INCX.EQ.1)GO TO 20 C C CODE FOR INCREMENT NOT EQUAL TO 1 C IX = 1 SMAX = ABS(SX(1)) IX = IX + INCX DO 10 I = 2,N IF(ABS(SX(IX)).LE.SMAX) GO TO 5 ISAMAX = I SMAX = ABS(SX(IX)) 5 IX = IX + INCX 10 CONTINUE RETURN C C CODE FOR INCREMENT EQUAL TO 1 C 20 SMAX = ABS(SX(1)) DO 30 I = 2,N IF(ABS(SX(I)).LE.SMAX) GO TO 30 ISAMAX = I SMAX = ABS(SX(I)) 30 CONTINUE RETURN END SUBROUTINE SGESL(A,LDA,N,IPVT,B,JOB) INTEGER LDA,N,IPVT(*),JOB REAL A(LDA,*),B(*) C C SGESL SOLVES THE REAL SYSTEM C A * X + B OR TRANS(A) * X + B C USING THE FACTORS COMPUTED BY SGECO OR SGEFA. C C ON ENTRY C C A REAL(LDA, N) C THE OUTPUT FROM SGECO OR SGEFA. C C LDA INTEGER C THE LEADING DIMENSION OF THE ARRAY A. C C N INTEGER C THE PIVOT VECTOR FROM SGECO OR SGEFA. C C B REAL(N) C THE RIGHT HAND SIDE VECTOR. C C JOB INTEGER C = 0 TO SOLVE A*X + B, C = NONZERO TO SOLVE TRANS(A)*X = B WHERE C TRANS(A) IS THE TRANSPOSE. C ON RETURN C C B THE SOLUTION VECTOR X. C C ERROR CONDITION C C A DIVISION BY ZERO WILL OCCUR IF THE INPUT FACTOR CONTAINS A C ZERO ON THE DIADONAL. TECHNICALLY THIS INDICATES SINGULARITY C BUT IT IS OFTEN CUASED BY IMPROPER ARGUMENTS OR IMPROPER C SETTING OF LDA . IT WILL NOT OCCUR IF THE SUBROUTINES ARE C CALLED CORRECTLY AND IF SGECO HAS SET RCOND .GT. 0.0 C OR SGEFA HAS SET INFO .EQ. 0 . C C TO COMPUTE INVERSE(A) * C WHERE C IS A MATRIX C WITH P COLUMNS C CALL SGECO(A,LDA,N,IPVT,RCOND,Z) C IF (RCOND IS TOO SMALL) GO TO ... C DO 10 J = 1, P C CALL SGESL(A,LDA,N,IPVT,C(1,J),0) C 10 CONTINUE C LINPACK. THIS VERSION DATED 08/14/78 . C CLEVE MOLER, UNIVERSITY OF NEW MEXICO, ARGONNE NATIONAL LAB. C C SUBROUTINES AND FUNCTIONS C C BLAS SAXPY,SDOT C C INTERNAL VARIABLES C REAL SDOT,T INTEGER K,KB,L,NM1 C NM1 = N -1 IF (JOB .NE. 0) GO TO 50 C C JOB = 0 , SOLVE A * X = B C FIRST SOLVE L*Y = B C IF (NM1 .LT. 1) GO TO 30 DO 20 K =1, NM1 L = IPVT(K) T = B(L) IF (L .EQ. K) GO TO 10 B(L) = B(K) B(K) = T 10 CONTINUE CALL SAXPY(N-K,T,A(K+1,K),1,B(K+1),1) 20 CONTINUE 30 CONTINUE C C NOW SOLVE U*X = Y C DO 40 KB = 1, N K = N + 1 - KB B(K) = B(K)/A(K,K) T = -B(K) CALL SAXPY(K-1,T,A(1,K),1,B(1),1) 40 CONTINUE GO TO 100 50 CONTINUE C C JOB = NONZERO, SOLVE TRANS(A) * X + B C FIRST SOLVE TRANS(U)*Y = B C DO 60 K = 1, N T = SDOT(K-1,A(1,K),1,B(1),1) B(K) = (B(K) - T)/A(K,K) 60 CONTINUE C C NOW SOLVE TRANS(L)*X = Y C IF (NM1 .LT. 1) GO TO 90 DO 80 KB = 1, NM1 K = N - KB B(K) = B(K) + SDOT(N-K,A(K+1,K),1,B(K+1),1) L = IPVT(K) IF (L .EQ. K) GO TO 70 T = B(L) B(L) = B(K) B(K) = T 70 CONTINUE 80 CONTINUE 90 CONTINUE 100 CONTINUE RETURN END C C REAL FUNCTION SDOT(N,SX,INCX,SY,INCY) C C FORMS THE DOT PRODUCT OF TWO VECTORS. C USES UNROLLED LOOPS FOR INCREMENTS EQUAL TO ONE. C JACK DONGARRA, LINPACK, 3/11/78. C REAL SX(*),SY(*),STEMP INTEGER I,INCX,INCY,IX,IY,M,MP1,N C STEMP = 0.0E0 SDOT = 0.0E0 IF(N.LE.0) RETURN IF(INCX .EQ. 1 .AND. INCY .EQ. 1) GO TO 20 C C CODE FOR UNEQUAL INCRMENTS OR EQUAL INCREMENTS C NOT EQUAL TO 1 C IX = 1 IY = 1 IF(INCX.LT.0)IX = (-N+1)*INCX + 1 IF(INCY.LT.0)IY = (-N+1)*INCY + 1 DO 10 I = 1,N STEMP = STEMP + SX(IX)*SY(IY) IX = IX + INCX IY = IY + INCY 10 CONTINUE SDOT = STEMP RETURN C C CODE FOR BOTH INCREMENTS EQUAL To 1 C C C CLEAN-UP LOOP C 20 M = MOD(N,5) IF( M .EQ. 0) GO TO 40 DO 30 I = 1,M STEMP = STEMP + SX(I)*SY(I) 30 CONTINUE IF( N .LT. 5) GO TO 60 40 MP1 = M + 1 DO 50 I = MP1,N,5 STEMP = STEMP + SX(I)*SY(I) + SX(I + 1)*SY(I + 1) + & SX(I + 2)*SY(I + 2) + SX(I + 3)*SY(I + 3) + SX(I + 4)*SY(I + 4) 50 CONTINUE 60 SDOT = STEMP RETURN END C C REAL FUNCTION SASUM(N,X,INCX) C C TAKES THE SUM OF THE ABSOLUTE VALUES. C JACK DONGARRA, LINPACK, 3/11/78. C REAL X(*),TEMP INTEGER I,INCX,M,MP1,N,NINCX C SASUM = 0.0E0 TEMP = 0.0E0 IF(N.LE.0)RETURN IF(INCX.EQ.1)GO TO 20 C C CODE FOR INCREMENT NOT EQUAL TO 1 C NINCX = N*INCX DO 10 I = 1,NINCX,INCX TEMP = TEMP + ABS(X(I)) 10 CONTINUE SASUM = TEMP RETURN C C CODE FOR INCREMENT EQUAL TO 1 C C C CLEAN-UP LOOP C 20 M = MOD(N,6) IF( M .EQ. 0 ) GO TO 40 DO 30 I = 1,M TEMP = TEMP + ABS(X(I)) 30 CONTINUE IF( N .LT. 6 ) GO TO 60 40 MP1 = M + 1 DO 50 I = MP1,N,6 TEMP = TEMP + ABS(X(I)) + ABS(X(I + 1)) + ABS(X(I + 2)) * + ABS(X(I + 3)) + ABS(X(I + 4)) + ABS(X(I + 5)) 50 CONTINUE 60 SASUM = TEMP RETURN END ================================================ FILE: CCTM/src/ddm3d/s_zfdbc.f ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/CCTM/src/hadv/yamo/zfdbc.f,v 1.2 2011/10/21 16:11:21 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: REAL FUNCTION S_ZFDBC (C1, C2, V1, V2) c Zero Flux Divergence Boundary Condition (See Jon Pleim's JGR (1991) paper) c To eliminate reflections and other boundary anomolies C Problem if V1 is outflow, but V2 is inflow c For sensitivity, negative values are possible, so MAX statement removed. IMPLICIT NONE REAL SMALL PARAMETER (SMALL = 1.0E-03 ) ! for small wind speed (m/s) REAL C1, C2, V1, V2 IF ( ABS( V1 ) .GE. SMALL ) THEN IF ( V1 * V2 .GT. 0.0 ) THEN c ZFDBC = MAX (0.0, C1 - V2 / V1 * (C2 - C1)) S_ZFDBC = C1 - V2 / V1 * (C2 - C1) ELSE S_ZFDBC = C1 ! nothing changes for wind divergence at edge END IF ELSE S_ZFDBC = C1 ! nothing changes for small wind speed END IF RETURN END ================================================ FILE: CCTM/src/ddm3d/sinput.F ================================================ #ifdef sens C*********************************************************************** C Portions of Models-3/CMAQ software were developed or based on * C information from various groups: Federal Government employees, * C contractors working on a United States Government contract, and * C non-Federal sources (including research institutions). These * C research institutions have given the Government permission to * C use, prepare derivative works, and distribute copies of their * C work in Models-3/CMAQ to the public and to permit others to do * C so. EPA therefore grants similar permissions for use of the * C Models-3/CMAQ software, but users are requested to provide copies * C of derivative works to the Government without restrictions as to * C use by others. Users are responsible for acquiring their own * C copies of commercial software associated with Models-3/CMAQ and * C for complying with vendor requirements. Software copyrights by * C the MCNC Environmental Modeling Center are used with their * C permissions subject to the above restrictions. * C*********************************************************************** C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/work/rep/CCTM/src/init/yamo_ddm3d/sinput.F,v 1.1.1.1 2009/09/29 13:49:13 sjr Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% SUBROUTINE SINPUT( STDATE, STTIME ) C-------------------------------------------------------------------- C Function: SINPUT C Reads from the sensitivity input file to determine the desired C number of sensitivity parameters, their type (e.g., sens to emissions C or sens to init conditions) and associated species (IPARM) C C Adapted by Daniel Cohan, Jan 2002, from code written for MAQSIP by C Amir Hakami C Updated for compatibility with Intel compiler, Jan. 2004, which C involved major changes to define variables as pointers. C REGIONS file is now read within sinput rather than in rdregion, C and SENS.EXT and REGIONS.EXT files are no longer needed. C Changed MAXDATES to NDAYS. C Updated Aug 2006 for reaction rate sensitivities. C 11 Aug 2011 S.L. Napelenok: restructured emissions options for inline C 20 Nov 2012 S.L. Napelenok: update for cmaq 5.0.1 C 21 Oct 2015 S.L. Napelenok: update for cmaq 5.1.1 C shorten SEN_PAR to only 3 characters due C to long species names C 20 Nov 2019 S.L. Napelenok: update for cmaq 5.3.1 C remove MY_N*; clean-up variable declarations; C update regional and emissions tream logic; C C C-------------------------------------------------------------------- USE UTILIO_DEFN USE DDM3D_DEFN USE HGRD_DEFN, ONLY: NCOLS, NROWS, GL_NCOLS, GL_NROWS, COLSX_PE, ROWSX_PE, MYPE USE VGRD_DEFN, ONLY: NLAYS USE RXNS_DATA, ONLY: NRXNS USE RUNTIME_VARS, ONLY: LPVO3 IMPLICIT NONE INCLUDE SUBST_FILES_ID ! file name parameters CHARACTER( 256 ) :: TXT, TXT2, EMISTYPE INTEGER STDATE ! starting date, format YYYYDDD INTEGER STTIME ! starting time, format HHMMSS INTEGER NSPC( NPMAX ) ! number of species chosen ! for that sensitivity parameter INTEGER SPCORDER( NPMAX, NSPCSD ) ! holds the species numbers ! in the order in which they ! are specified in the input file REAL AMOUNT ! used to read in emission rate INTEGER HOUR ! counter over the hours INTEGER LAYER ! used to read in layer INTEGER RXN ! used to read in reaction number INTEGER TIME1, TIME2 ! used to read in begin & end time INTEGER DATE ! used to read in desired date INTEGER NDATE ! counter over the dates INTEGER NUMDATES ! number of dates for that sens INTEGER LASTDATE ! STDATE + NDAYS; ! note that this may be gt the actual ! enddate of the simulation INTEGER NPSEN ! num of sens parameters INTEGER JVUNIT INTEGER NUM ! spc indx num returned by ! SEN_NUM or REAC_NUM INTEGER SPC, S, P, ROW CHARACTER( 255) :: INFLNAME ! input file name CHARACTER( 16 ) :: SEN_INPUT = 'SEN_INPUT ' ! input file name CHARACTER( 1 ) :: BLANK = ' ' CHARACTER( 2 ) :: BLANK2 = ' ' CHARACTER( 3 ) :: BLANK3 = ' ' CHARACTER( 10 ) :: BLANK10= ' ' CHARACTER( 1 ) :: JUNK c CHARACTER( 1 ) :: JUNKA c CHARACTER( 1 ) :: JUNKB, JUNKC, JUNKD c CHARACTER( 2 ) :: JUNK2 CHARACTER( 16 ), SAVE :: PNAME = 'SINPUT' CHARACTER( 120) :: XMSG = ' ' INTEGER ALLOCSTAT CHARACTER( 80 ) :: VARDESC ! environment variable description INTEGER STATUS ! ENVYN status INTEGER LOGDEV c INTEGER I C Variables used for hddm-3d INTEGER CHECK INTERFACE SUBROUTINE SEN_NUM( TEMP, NUM ) CHARACTER( * ), INTENT( IN ) :: TEMP INTEGER, INTENT( OUT ) :: NUM END SUBROUTINE SEN_NUM SUBROUTINE REAC_NUM( TEMP, NUM ) CHARACTER( * ), INTENT( IN ) :: TEMP INTEGER, INTENT( OUT ) :: NUM END SUBROUTINE REAC_NUM END INTERFACE CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCc LOGDEV = INIT3 () C Initialize IPT, IPARM, IREGION, IRXN to 0; C SEN_PAR to blank GRID_FILE = ' ' PT3D_FILE = ' ' GRID_NUM = 0 PT3D_NUM = 0 IPT = 0 NSPC = 0 SEN_PAR = BLANK IRXN = 0 IPARM = 0 IAMOUNT = 0.0 IDATE = 0 ITIME( :,1 ) = 0 ITIME( :,2 ) = 240000 ILAYER = 1 IREGION = 0.0 S_NSTREAMS = 0 S_STREAMLBL = 'empty' S_NRGN = 0 S_RGNLBL = 'empty' NPSEN = 0 C Open input file SEN_INPUT CALL NAMEVAL ( SEN_INPUT, INFLNAME ) JVUNIT = JUNIT( ) OPEN ( UNIT = JVUNIT, FILE=INFLNAME, STATUS = 'OLD') ! Read in name of sensitivity READ(JVUNIT,'(A80)',END=999) TXT IF ( TXT( 1:3 ) .EQ. 'END' ) THEN GOTO 999 END IF IF ( TXT( :1 ) .EQ. BLANK ) THEN XMSG = 'Expecting sensitivity name. ' // & 'Cannot begin with a space.' CALL M3EXIT( PNAME, STDATE, STTIME, XMSG, XSTAT1 ) END IF 20 CONTINUE NPSEN = NPSEN + 1 IF ( NPSEN .GT. NPMAX ) THEN XMSG = 'NPSEN exceeds NPMAX. Change NPMAX in run script.' write(logdev,*) 'NPSEN counter up to ', NPSEN, ' NPMAX = ', NPMAX CALL M3EXIT( PNAME, STDATE, STTIME, XMSG, XSTAT1 ) END IF SEN_PAR( NPSEN ) = TXT( 1:3 ) ! Read in the type of sensitivity ! (only ICON, EMIS, BCON, RATE, HIGH, and PVO3 implemented so far) READ( JVUNIT, '(A80)', END = 999 ) TXT CCCCCCC Sensitivity to Emissions CCCCCCCCCCCCCCCCCCCCCCCCCCCCC IF ( INDEX( TXT, 'EMIS' ) .NE. 0 ) THEN IPT( NPSEN ) = 3 S_NSTREAMS( NPSEN ) = 99 ! assume all streams at first S_STREAMLBL( NPSEN,: ) = 'all' 30 CONTINUE ! Check if an emissions label has been specified. Otherwise, assume total. READ( JVUNIT, '(A80)', END = 999 ) EMISTYPE IF ( INDEX(EMISTYPE,'SPECIES') .NE. 0 ) THEN ! start reading species GOTO 35 ! ELSE IF ( INDEX(EMISTYPE,'TOTA') .NE. 0 ) THEN ! all streams GOTO 30 ELSE ! S_STREAMLBL( NPSEN,: ) = 'empty' S_NSTREAMS( NPSEN ) = 1 + COUNT(TRANSFER(EMISTYPE, 'A', LEN(EMISTYPE)) == "," ) READ(EMISTYPE,*) S_STREAMLBL( NPSEN, 1:S_NSTREAMS( NPSEN ) ) GOTO 30 END IF CCCCCCC Sensitivity to vorticity CCCCCCCCCCCCCCCCCCCCC ELSE IF ( INDEX( TXT, 'PVO3' ) .NE. 0 ) THEN IF ( LPVO3 ) THEN IPT( NPSEN ) = 6 ELSE XMSG = 'Set CTM_PVO3 option to Y in the runscript ' // & 'to calculate potential vorticity sensitivity' CALL M3EXIT( PNAME,STDATE,STTIME,XMSG,XSTAT1 ) END IF READ( JVUNIT, '(A80)', END = 999 ) TXT IF ( TXT ( :8 ) .NE. ' SPECIES' ) THEN XMSG = 'Expecting header SPECIES ' // & '(allcap, 1 leading space).' CALL M3EXIT( PNAME,STDATE,STTIME,XMSG,XSTAT1 ) END IF CCCCCCC Sensitivity to initial conditions CCCCCCCCCCCCCCCCCCCCC ELSE IF ( INDEX( TXT, 'ICON' ) .NE. 0 ) THEN IPT( NPSEN ) = 1 READ( JVUNIT, '(A80)', END = 999 ) TXT IF ( TXT ( :8 ) .NE. ' SPECIES' ) THEN XMSG = 'Expecting header SPECIES ' // & '(allcap, 1 leading space).' CALL M3EXIT( PNAME,STDATE,STTIME,XMSG,XSTAT1 ) END IF CCCCCCC Sensitivity to boundary conditions CCCCCCCCCCCCCCCCCC ELSE IF ( INDEX( TXT, 'BCON' ) .NE. 0 ) THEN IPT( NPSEN ) = 2 READ( JVUNIT, '(A80)', END = 999 ) TXT IF ( TXT ( :8 ) .NE. ' SPECIES' ) THEN XMSG = 'Expecting header SPECIES ' // & '(allcap, 1 leading space).' CALL M3EXIT( PNAME,STDATE,STTIME,XMSG,XSTAT1 ) END IF CCCCCCC Higher-order sensitivity CCCCCCCCCCCCCCCCCCCCCCCCCCCC ELSE IF ( INDEX( TXT, 'HIGH' ) .NE. 0 ) THEN IF ( .NOT. HIGH ) THEN XMSG = 'hddm-3d option not set' CALL M3EXIT( PNAME,STDATE,STTIME,XMSG,XSTAT1 ) END IF IPT( NPSEN ) = 4 CHECK = 0 ! Read the first part of the 2nd order derivative ! and match it with an existing parameter READ( JVUNIT, '(A80)', END = 999 ) TXT ! Set IPARM( NPSEN, P ) to 1 for the P matching the ! existing parameter DO P = 1, NPSEN - 1 IF ( TXT( 2:4 ) .EQ. SEN_PAR( P ) ) THEN IPARM( NPSEN, P ) = 1 CHECK = CHECK + 1 END IF END DO IF ( CHECK .NE. 1 ) THEN XMSG = 'Could not match sensitivity name ' // & TXT( 2:9 ) // & ' for higher-order sens.' CALL M3EXIT( PNAME,STDATE,STTIME,XMSG,XSTAT1 ) END IF CHECK = 0 ! Read the second part of the 2nd order derivative ! and match it with an existing parameter READ( JVUNIT, '(A80)', END = 999 ) TXT ! Set IPARM( NPSEN, P ) to 2 if this is different ! from the first part of the derivative ! ( e.g., d2(O3)/{d(NOx)d(VOC)} ) ! and to 3 if it is the same parameter (e.g., d2(O3)/d(NOx)2) DO P = 1, NPSEN - 1 IF ( TXT( 2:4 ) .EQ. SEN_PAR( P ) ) THEN IPARM( NPSEN, P ) = IPARM( NPSEN, P ) + 2 CHECK = CHECK + 1 END IF END DO IF ( CHECK .NE. 1 ) THEN XMSG = 'Could not match sensitivity name ' // & TXT( 2:9 ) // & ' for higher-order sens.' CALL M3EXIT( PNAME,STDATE,STTIME,XMSG,XSTAT1 ) END IF 32 CONTINUE READ( JVUNIT, '(A80)', END = 999 ) TXT IF ( TXT( :10 ) .EQ. BLANK10 ) GOTO 32 IF ( TXT( :3 ) .EQ. 'END' ) GOTO 999 IF ( TXT( :1 ) .NE. BLANK ) THEN GOTO 20 ELSE XMSG = 'Unexpected text ' // TXT CALL M3EXIT( PNAME,STDATE,STTIME,XMSG,XSTAT1 ) END IF CCCCCCC Sensitivity to a chemical reaction rate constant CCCCC ELSE IF ( INDEX( TXT, 'RATE' ) .NE. 0 ) THEN IPT( NPSEN ) = 5 READ( JVUNIT, '(A80)', END = 999 ) TXT IF ( TXT ( :9 ) .NE. ' REACTION' ) THEN XMSG = 'Expecting header REACTION ' // & '(allcap, 1 leading space).' CALL M3EXIT( PNAME,STDATE,STTIME,XMSG,XSTAT1 ) END IF ! Which reaction? READ( JVUNIT, '(A80)', END = 999 ) TXT IF ( TXT( :2 ) .NE. BLANK2 ) THEN XMSG = 'Expected two blanks before reaction name.' CALL M3EXIT( PNAME,STDATE,STTIME,XMSG,XSTAT1 ) END IF 33 CONTINUE ! REAC_NUM finds the reaction number corresponding to the input name CALL REAC_NUM( TXT( 3:18 ), NUM ) IRXN( NPSEN, NUM ) = 1 34 CONTINUE ! Check if there is more than 1 reaction READ( JVUNIT, '(A80)', END = 999 ) TXT IF ( TXT( :10 ) .EQ. BLANK10 ) GOTO 34 IF ( TXT( :2 ) .EQ. BLANK2 ) THEN GOTO 33 ! Another reaction ELSE GOTO 50 ! Not another reaction, so check for ! other specifications or new sens parameter END IF CCCCCCC Unrecognized or non-implemented sens type CCCCCCCCCCCC ELSE XMSG = 'Sentype not recognized: ' // TXT // & '. Use EMIS, ICON, BCON, RATE, HIGH, or PVO3 ' CALL M3EXIT( PNAME,STDATE,STTIME,XMSG,XSTAT1 ) END IF ! Finished setting sentype 35 CONTINUE CCCCCCC Which species? CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC READ( JVUNIT, '(A256)', END = 999 ) TXT IF ( TXT( :2 ) .NE. BLANK2 ) THEN XMSG = 'Need two leading spaces before a species.' CALL M3EXIT( PNAME,STDATE,STTIME,XMSG,XSTAT1 ) END IF IF ( INDEX( TXT, 'ALL' ) .NE. 0 ) THEN ! all CMAQ species NSPC( NPSEN ) = NSPCSD DO SPC = 1, NSPCSD IPARM( NPSEN, SPC ) = 1 SPCORDER( NPSEN, SPC ) = SPC END DO GOTO 45 ELSE ! Map specified species NSPC( NPSEN ) = 1+COUNT(TRANSFER(TXT, 'A', LEN(TXT)) == ",") READ(TXT,*) S_SPCLIST( NPSEN, 1:NSPC( NPSEN ) ) DO SPC = 1, NSPC( NPSEN ) CALL SEN_NUM( S_SPCLIST( NPSEN,SPC), NUM ) IPARM( NPSEN, NUM ) = 1 SPCORDER( NPSEN, NSPC( NPSEN ) ) = NUM END DO END IF 45 CONTINUE READ( JVUNIT, '(A80)', END = 999 ) TXT IF ( TXT( :10 ) .EQ. BLANK10 ) GOTO 45 c IF ( TXT( :2 ) .EQ. BLANK2 ) GOTO 40 ! Another species CCCCCCC Specify emission amount? CCCCCCCCCCCCCCCCCCCCCCCCC IF ( TXT( :7 ) .EQ. ' AMOUNT' ) THEN ! The 25th slot is a flag indicating amount has been specified DO SPC = 1, NSPCSD IAMOUNT ( NPSEN, SPC, 25 ) = 1.0 * IPARM( NPSEN, SPC ) END DO IF ( IPT( NPSEN ) .NE. 3 ) THEN XMSG = 'Amount specification only implemented ' // & 'for emissions so far.' CALL M3EXIT( PNAME,STDATE,STTIME,XMSG,XSTAT1 ) END IF IF ( S_NSTREAMS( NPSEN ) .NE. 99 ) THEN XMSG = 'Amount can only be specified for total emissions.' CALL M3EXIT( PNAME,STDATE,STTIME,XMSG,XSTAT1 ) END IF DO S = 1, NSPC( NPSEN ) SPC = SPCORDER( NPSEN, S ) READ( JVUNIT, '( a2, f8.2 )', END = 999 ) & TXT, AMOUNT IF ( TXT( :2 ) .NE. BLANK2 ) THEN XMSG = 'Expected two blanks before specifying amount.' CALL M3EXIT( PNAME,STDATE,STTIME,XMSG,XSTAT1 ) END IF IF ( AMOUNT .GE. 0 ) THEN IAMOUNT( NPSEN, SPC, 1:24 ) = AMOUNT ELSE DO HOUR = 1, 24 READ( JVUNIT, '( a2, f8.2 )', END = 999 ) & TXT, AMOUNT IF ( TXT( :2 ) .NE. BLANK2 ) THEN XMSG = 'Expected two blanks before specifying amount.' CALL M3EXIT( PNAME,STDATE,STTIME,XMSG,XSTAT1 ) END IF IF ( AMOUNT .LT. 0 ) THEN XMSG = 'Amount must be non-negative.' CALL M3EXIT( PNAME,STDATE,STTIME,XMSG,XSTAT1 ) ELSE IAMOUNT( NPSEN, SPC, HOUR ) = AMOUNT END IF END DO END IF END DO ! S 48 CONTINUE READ( JVUNIT, '(A80)', END = 999 ) TXT IF ( TXT( :10 ) .EQ. BLANK10 ) GOTO 48 ! Which layer? IF ( TXT( :7 ) .EQ. ' LAYER' ) THEN READ( JVUNIT, '( a3, i3 )', END = 999 ) & TXT, LAYER IF ( TXT( :3 ) .NE. BLANK3 ) THEN XMSG = 'Expected three blanks before layer number.' CALL M3EXIT( PNAME,STDATE,STTIME,XMSG,XSTAT1 ) END IF IF ( ( LAYER .LT. 1 ) .OR. ( LAYER .GT. NLAYS ) ) THEN XMSG = 'Layer out of range.' CALL M3EXIT( PNAME,STDATE,STTIME,XMSG,XSTAT1 ) ELSE ! Set the layer to 1, all others to 0 ILAYER( NPSEN, 1:NLAYS ) = 0 ILAYER( NPSEN, LAYER ) = 1 ENDIF 49 CONTINUE READ( JVUNIT, '(A80)', END = 999 ) TXT IF ( TXT( :10 ) .EQ. BLANK10 ) GOTO 49 ELSE ! If layer not specified, assume ground-level emissions ILAYER( NPSEN, 1 ) = 1 ILAYER( NPSEN, 2:NLAYS ) = 0 END IF END IF CCCCCCC What date(s)? CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 50 CONTINUE IF ( TXT( :5 ) .EQ. ' DATE' ) THEN IF ( IPT( NPSEN ) .EQ. 1 ) THEN XMSG = 'Cannot specify date for initial condition.' CALL M3EXIT( PNAME,STDATE,STTIME,XMSG,XSTAT1 ) END IF READ( JVUNIT, '( a2, i7 )', END = 999 ) & TXT, NUMDATES IF ( TXT( :2 ) .NE. BLANK2 ) THEN XMSG = 'Expected two blanks before specifying date.' CALL M3EXIT( PNAME,STDATE,STTIME,XMSG,XSTAT1 ) END IF IF ( ( NUMDATES .LT. 1 ) .OR. & ( NUMDATES .GT. NDAYS ) ) THEN XMSG = 'Number of dates out of bounds.' CALL M3EXIT( PNAME,STDATE,STTIME,XMSG,XSTAT1 ) END IF LASTDATE = STDATE + NDAYS DO NDATE = 1, NUMDATES READ( JVUNIT, '( a2, i7 )', END = 999 ) TXT, DATE IF ( ( DATE .LT. STDATE ) .OR. & ( DATE .GT. LASTDATE ) ) THEN XMSG = 'Date out of bounds.' CALL M3EXIT( PNAME,STDATE,STTIME,XMSG,XSTAT1 ) ELSE IDATE( NPSEN, 1 + DATE - STDATE ) = 1 END IF END DO 52 CONTINUE READ( JVUNIT, '(A80)', END = 999 ) TXT IF ( TXT( :10) .EQ. BLANK10 ) GOTO 52 ELSE ! If DATES keyword not specified, set all to 1 IDATE( NPSEN, 1:NDAYS ) = 1 ENDIF CCCCCCC What time? CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC IF ( TXT( :5 ) .EQ. ' TIME' ) THEN IF ( IPT( NPSEN ) .EQ. 1 ) THEN XMSG = 'Cannot specify time for initial condition.' CALL M3EXIT( PNAME,STDATE,STTIME,XMSG,XSTAT1 ) END IF READ( JVUNIT, '(a2,i6,a1,i6)', END = 999 ) & TXT, TIME1, JUNK, TIME2 IF ( TXT( :2 ) .NE. BLANK2 ) THEN XMSG = 'Expected two blanks before specifying time.' CALL M3EXIT( PNAME,STDATE,STTIME,XMSG,XSTAT1 ) END IF IF ( JUNK .NE. BLANK ) THEN XMSG = 'Expected a space between begin time & end time.' CALL M3EXIT( PNAME,STDATE,STTIME,XMSG,XSTAT1 ) END IF IF ( ( TIME1 .LT. 0 ) .OR. ( TIME1 .GT. 240000 ) ) THEN XMSG = 'Begin time must be between 0 and 240000.' CALL M3EXIT( PNAME,STDATE,STTIME,XMSG,XSTAT1 ) END IF IF ( ( TIME2 .LT. 0 ) .OR. ( TIME2 .GT. 240000 ) ) THEN XMSG = 'End time must be between 0 and 240000.' CALL M3EXIT( PNAME,STDATE,STTIME,XMSG,XSTAT1 ) END IF ITIME( NPSEN, 1 ) = TIME1 ITIME( NPSEN, 2 ) = TIME2 55 CONTINUE READ( JVUNIT, '(A80)', END = 999 ) TXT IF ( TXT( :10) .EQ. BLANK10 ) GOTO 55 END IF CCCCCCC Which region(s) ? CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC ! If true, then region and gridcell not specified, ! so set as domainwide and go to next sensitivity IF ( TXT( :1 ) .NE. BLANK ) THEN S_NRGN( NPSEN ) = 99 S_RGNLBL( NPSEN, : ) = 'all' IREGION( :,:,:,NPSEN ) = 1.0 IF ( TXT( :3 ) .EQ. 'END' ) THEN GOTO 999 ELSE ! New sensitivity GOTO 20 END IF END IF IF ( INDEX( TXT, 'REGION' ) .NE. 0 ) THEN READ( JVUNIT, '(A80)' ) TXT S_NRGN( NPSEN ) = 1+COUNT(TRANSFER(TXT, 'A', LEN(TXT)) == "," ) READ(TXT,*) S_RGNLBL( NPSEN, 1:S_NRGN( NPSEN ) ) ! Process these regions in central_io_module after the regions ! file is opened. Populate IREGION there also. END IF ! TXT .EQ. REGION CCCCCCC End REGION CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 150 CONTINUE READ( JVUNIT, '(A80)' ) TXT IF ( TXT( :10 ) .EQ. BLANK10 ) GOTO 150 IF ( TXT( 1:3 ) .EQ. 'END' ) THEN GOTO 999 ELSE IF ( TXT( :1 ) .NE. BLANK ) THEN GOTO 20 ELSE XMSG = 'Text not recognized. Expecting ' // & 'END, a new sensitivity name, ' // & 'or a blank line.' CALL M3EXIT( PNAME,STDATE,STTIME,XMSG,XSTAT1 ) END IF 999 CONTINUE ! Sens parameter input file must contain exact number ! of sensitivity parameters indicated by NPMAX in runscript. IF ( NPSEN .NE. NPMAX ) THEN XMSG = 'Wrong number of sens specified. Does not match NPMAX.' CALL M3EXIT( PNAME, STDATE, STTIME, XMSG, XSTAT1 ) END IF Write(LOGDEV,*) " " Write(LOGDEV,*) "Sensitivity parameters in this simulation:" Write(LOGDEV,*) "=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=" Write(LOGDEV,'(a2,1x,a4,1x,a4,1x,a10)') "#","name","type" Do NP = 1, NPMAX Write(LOGDEV,'(i2,1x,a4,1x,i4.4,9(1x,i2.2))') NP,SEN_PAR(NP),IPT(NP) End Do Write(LOGDEV,*) " " c Calculate 2nd order mapping IHIGH = 0 If ( HIGH ) then Do NP = 1, NPMAX If ( IPT(NP) .Eq. 4 ) Then Do ROW = 1, NP - 1 If ( IPARM(NP,ROW) .eq. 1 ) Then IHIGH(NP,1) = ROW Else If ( IPARM(NP,ROW) .eq. 2 ) Then IHIGH(NP,2) = ROW Else If ( IPARM(NP,ROW) .eq. 3 ) Then IHIGH(NP,1) = ROW IHIGH(NP,2) = ROW End If End Do If ( IHIGH(NP,1) .Eq. 0 .Or. IHIGH(NP,2) .Eq. 0 ) Then XMSG = 'Required 1st order parameters not found' & // ' for parameter = > ' // SEN_PAR(NP) CALL M3EXIT( 'sinput', 0 , 0, XMSG, XSTAT2 ) End If End If End Do c Else c XMSG = 'DDM-3D HIGH option not enabled - check runscript' c CALL M3EXIT ( 'sinput', 0, 0, XMSG, XSTAT2 ) End If RETURN END CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC SUBROUTINE SEN_NUM(TEMP, NUM ) C------------------------------------------------------------ C Function: Assigns to NUM the species number corresponding C to the input string "TEMP" C------------------------------------------------------------ USE CGRID_SPCS USE UTILIO_DEFN IMPLICIT NONE INCLUDE SUBST_FILES_ID ! file name parameters CHARACTER*8 TEMP CHARACTER*16 TEMP2 INTEGER NUM, ISP CHARACTER*16 PNAME DATA PNAME / 'SEN_NUM' / SAVE PNAME CHARACTER*120 XMSG DATA XMSG / ' ' / C NUM = 0 DO 10 ISP = 1, N_GC_SPC TEMP2 = GC_SPC(ISP) IF(TEMP .EQ. TEMP2(:8))THEN NUM = ISP RETURN ENDIF 10 CONTINUE DO 20 ISP = 1, N_AE_SPC TEMP2 = AE_SPC( ISP ) IF ( TEMP .EQ. TEMP2(:8)) THEN NUM = N_GC_SPC + 1 + ISP RETURN ENDIF 20 CONTINUE DO 30 ISP = 1, N_NR_SPC TEMP2 = NR_SPC( ISP ) IF ( TEMP .EQ. TEMP2(:8)) THEN NUM = N_GC_SPC + 1 + N_AE_SPC + ISP RETURN ENDIF 30 CONTINUE IF(NUM .EQ. 0) THEN XMSG = 'Sensitivity parameter ' // TEMP // & 'not found in species name array' CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT1 ) ENDIF RETURN END CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC SUBROUTINE REAC_NUM( TEMP, NUM ) C------------------------------------------------------------ C Function: Assigns to NUM the reaction number corresponding C to the input string "TEMP" C------------------------------------------------------------ USE UTILIO_DEFN USE RXNS_DATA, Only: NRXNS, RXLABEL IMPLICIT NONE INCLUDE SUBST_FILES_ID ! file name parameters CHARACTER*16 TEMP CHARACTER*16 TEMP2 INTEGER NUM, RXN CHARACTER*16 PNAME DATA PNAME / 'REAC_NUM' / SAVE PNAME CHARACTER*120 XMSG DATA XMSG / ' ' / NUM = 0 DO RXN = 1, NRXNS TEMP2 = RXLABEL(RXN) IF(TEMP .EQ. TEMP2) THEN NUM = RXN RETURN ENDIF END DO IF(NUM .EQ. 0) THEN XMSG = 'Sensitivity parameter ' // TEMP // & 'not found in RXLABEL array' CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT1 ) ENDIF RETURN END #endif ================================================ FILE: CCTM/src/ddm3d/wr_asens.F ================================================ #ifdef sens !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/CCTM/src/driver/yamo/wr_aconc.F,v 1.6 2011/10/21 16:10:43 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE WR_ASENS ( JDATE, JTIME, TSTEP ) C Revision History: C Jeff - July 01 C Note: If previous A_CONC exists, check that user hasn't changed what C species/layers to save (or domain). C 30 Mar 01 J.Young: dyn alloc - Use HGRD_DEFN C 31 Jan 05 J.Young: dyn alloc - establish both horizontal & vertical C domain specifications in one module C 16 Feb 11 S.Roselle: replaced I/O API include files with UTILIO_DEFN; C removed deprecated TRIMLEN C 20 Jul 11 J.Young: added option for ending time timestamp C 12 Aug 15 D.Wong: Extracted section of code that deals with creating C A_CONC_1 and put it in opaconc.F C Added a section of code to allow non IO processors C to open A_CONC_1 C 19 May 16 D.Wong: renamed ACONC_END_TIME to AVG_FILE_ENDTIME C 27 Mar 17 D.Wong: removed redundant parallel_io ifdef construct C 26 Nov 19 S.Napelenok: create from WR_ACONC.F for cmaq-ddm3d-v5.3.1 C----------------------------------------------------------------------- USE GRID_CONF ! horizontal & vertical domain specifications USE AVG_CONC ! integral average CONC USE UTILIO_DEFN #ifdef parallel USE SE_MODULES ! stenex (using SE_UTIL_MODULE) #else USE NOOP_MODULES ! stenex (using NOOP_UTIL_MODULE) #endif USE DDM3D_DEFN, ONLY: NP, NPMAX, SPCNAME, SEN_PAR, SAGRID IMPLICIT NONE C Include Files: INCLUDE SUBST_FILES_ID ! file name parameters INTEGER JDATE ! current model date, coded YYYYDDD INTEGER JTIME ! current model time, coded HHMMSS INTEGER TSTEP ! output timestep (HHMMSS) C Local variables: INTEGER MDATE ! modified model date, coded YYYYDDD INTEGER MTIME ! modified model time, coded HHMMSS CHARACTER( 16 ) :: PNAME = 'WR_ASENS' CHARACTER( 16 ) :: AVG_FILE_ENDTIME = 'AVG_FILE_ENDTIME' CHARACTER( 80 ) :: VARDESC = ' ' CHARACTER( 96 ) :: XMSG = ' ' c INTEGER, SAVE :: LOGDEV ! FORTRAN unit number for log file LOGICAL, SAVE :: FIRSTIME = .TRUE. LOGICAL OK c LOGICAL, SAVE :: END_TIME = .FALSE. INTEGER L, K, VAR, SPC ! loop counters INTEGER STATUS CHARACTER( 16 ), ALLOCATABLE, SAVE :: VARNAME_ASENS( :,: ) INTEGER, SAVE :: N_ASENS_SPC Integer ALLOCSTAT, IDX C----------------------------------------------------------------------- C Change output date/time to starting date/time - e.g. timestamp 1995196:090000 C represents data computed from time 1995196:090000 to 1995196:100000 IF ( FIRSTIME ) THEN FIRSTIME = .FALSE. LOGDEV = INIT3 () C Override default beginning time timestamp for ACONC? VARDESC = 'Flag to Override default beginning time timestamp for ACONC' END_TIME = ENVYN( AVG_FILE_ENDTIME, VARDESC, END_TIME, STATUS ) IF ( STATUS .EQ. 1 ) THEN XMSG = 'Environment variable improperly formatted' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) ELSE IF ( STATUS .NE. 0 ) THEN WRITE( LOGDEV, '(5X, A)' ) VARDESC XMSG = '... Using default:' WRITE( LOGDEV, '(5X, A, I9)' ) XMSG, JTIME END IF IF ( .NOT. IO_PE_INCLUSIVE ) THEN IF ( .NOT. OPEN3( A_SENS_1, FSREAD3, PNAME ) ) THEN XMSG = 'Could not open ' // A_SENS_1 // ' file for update' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF END IF c Create a species name list of ASENS file N_ASENS_SPC = N_A_GC_SPC + N_A_AE_SPC + N_A_NR_SPC + N_A_TR_SPC ALLOCATE( VARNAME_ASENS( NPMAX, N_ASENS_SPC ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating VARNAME_ASENS(NPMAX,N_ASENS_SPC)' CALL M3EXIT ( 'PNAME', 0, 0, XMSG, XSTAT2 ) END IF VARNAME_ASENS = '' DO NP = 1, NPMAX DO SPC = 1, N_A_GC_SPC IDX = SPC VARNAME_ASENS( NP, IDX ) = TRIM( A_GC_SPC( SPC )( 1:12 ) ) & // '_' // SEN_PAR( NP ) END DO DO SPC = 1, N_A_AE_SPC IDX = SPC + N_A_GC_SPC VARNAME_ASENS( NP, IDX ) = TRIM( A_AE_SPC( SPC )( 1:12 ) ) & // '_' // SEN_PAR( NP ) END DO DO SPC = 1, N_A_NR_SPC IDX = SPC + N_A_GC_SPC + N_A_AE_SPC VARNAME_ASENS( NP, IDX ) = TRIM( A_NR_SPC( SPC )( 1:12 ) ) & // '_' // SEN_PAR( NP ) END DO DO SPC = 1, N_A_TR_SPC IDX = SPC + N_A_GC_SPC + N_A_AE_SPC + N_A_NR_SPC VARNAME_ASENS( NP, IDX ) = TRIM( A_TR_SPC( SPC )( 1:12 ) ) & // '_' // SEN_PAR( NP ) END DO END DO END IF ! FIRSTIME IF ( END_TIME ) THEN ! ending time timestamp MDATE = JDATE; MTIME = JTIME ELSE ! beginning time timestamp MDATE = JDATE; MTIME = JTIME CALL NEXTIME ( MDATE, MTIME, -TSTEP ) END IF DO SPC = 1, N_ASENS_SPC DO NP = 1, NPMAX IF ( .NOT. WRITE3( A_SENS_1, VARNAME_ASENS( NP, SPC ), & MDATE, MTIME, SAGRID( :,:,:,NP,SPC ) ) ) THEN XMSG = 'Could not write '// VARNAME_ASENS( NP, SPC ) & // ' to ' // A_SENS_1 CALL M3EXIT( PNAME, MDATE, MTIME, XMSG, XSTAT1 ) END IF END DO END DO WRITE( LOGDEV, '( /5X, 3( A, :, 1X ), I8, ":", I6.6 )' ) & 'Timestep written to', A_SENS_1, & 'for date and time', MDATE, MTIME RETURN END #endif ================================================ FILE: CCTM/src/ddm3d/wr_sengrid.F ================================================ #ifdef sens C*********************************************************************** C Portions of Models-3/CMAQ software were developed or based on * C information from various groups: Federal Government employees, * C contractors working on a United States Government contract, and * C non-Federal sources (including research institutions). These * C research institutions have given the Government permission to * C use, prepare derivative works, and distribute copies of their * C work in Models-3/CMAQ to the public and to permit others to do * C so. EPA therefore grants similar permissions for use of the * C Models-3/CMAQ software, but users are requested to provide copies * C of derivative works to the Government without restrictions as to * C use by others. Users are responsible for acquiring their own * C copies of commercial software associated with Models-3/CMAQ and * C for complying with vendor requirements. Software copyrights by * C the MCNC Environmental Modeling Center are used with their * C permissions subject to the above restrictions. * C*********************************************************************** C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/work/rep/CCTM/src/driver/yamo_ddm3d/wr_sengrid.F,v 1.1 2009/09/29 13:53:40 sjr Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE WR_SENGRID ( JDATE, JTIME, TSTEP ) C----------------------------------------------------------------------- C Function: C Save the instantaneous state of SENGRID in an I/O-API "circular buffer" C file to use for restart/continuation for subsequent simulation. C Revision History: C Aug 08 S.L.Napelenok: initial (based on WR_CGRID) C 09 Nov 12 S.L.Napelenok: update for cmaq 5.0.1 C 14 Oct 15 S.L.Napelenok: update for cmaq 5.1 C----------------------------------------------------------------------- USE GRID_CONF ! horizontal & vertical domain specifications USE CGRID_SPCS ! CGRID species number and offsets USE UTILIO_DEFN #ifdef parallel USE SE_MODULES ! stenex (using SE_UTIL_MODULE) #else USE NOOP_MODULES ! stenex (using NOOP_UTIL_MODULE) #endif USE DDM3D_DEFN IMPLICIT NONE C Include Files: INCLUDE SUBST_FILES_ID ! file name parameters INTEGER JDATE ! current model date, coded YYYYDDD INTEGER JTIME ! current model time, coded HHMMSS INTEGER TSTEP ! output timestep (HHMMSS) C Local variables: CHARACTER( 16 ) :: PNAME = 'WR_SENGRID' CHARACTER( 96 ) :: XMSG = ' ' INTEGER K, MXK, SPC, VAR INTEGER ALLOCSTAT INTEGER TSTEP_RF, NTHIK_RF, NCOLS_RF, NROWS_RF, GDTYP_RF REAL( 8 ) :: P_ALP_RF, P_BET_RF, P_GAM_RF REAL( 8 ) :: XCENT_RF, YCENT_RF REAL( 8 ) :: XORIG_RF, YORIG_RF REAL( 8 ) :: XCELL_RF, YCELL_RF INTEGER VGTYP_RF REAL VGTOP_RF c INTEGER, SAVE :: LOGDEV ! FORTRAN unit number for log file LOGICAL, SAVE :: FIRSTIME = .TRUE. LOGICAL OK c CHARACTER( 8 ) :: SPCNAME REAL, POINTER :: WRBUFF(:,:,:,:) INTEGER :: c, r, s, d, i LOGICAL, EXTERNAL :: FLUSH3 C----------------------------------------------------------------------- IF ( FIRSTIME ) THEN FIRSTIME = .FALSE. LOGDEV = INIT3 () ALLOCATE ( WRBUFF( NCOLS,NROWS,NLAYS,NSPCSD*NPMAX ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'WRBUFF memory allocation failed' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF C Try to open existing file for update CALL SUBST_BARRIER OK = OPEN3( CTM_SENS_1, FSRDWR3, PNAME ) CALL SUBST_GLOBAL_LOGICAL( OK, 'AND' ) IF ( .NOT. OK ) THEN XMSG = 'Could not open ' // TRIM( CTM_SENS_1 ) & // ' file for update - try to open new' CALL M3MESG( XMSG ) c IF ( MYPE .EQ. 0 ) THEN IF ( IO_PE_INCLUSIVE ) THEN C Get default file header attibutes from CONC file (assumes file already open) IF ( .NOT. DESC3( CTM_CONC_1 ) ) THEN XMSG = 'Could not get ' & // TRIM( CTM_CONC_1 ) & // ' file description' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF SDATE3D = JDATE STIME3D = JTIME C Get SENGRID nvars NVARS3D = NSPCSD * NPMAX NLAYS3D = NLAYS C Set file header attributes that differ from ASENS and open the file FDESC3D = ' ' FDESC3D( 1 ) = 'Computational grid instantaneous sensitivities' FDESC3D( 2 ) = '- for scenario continuation.' WRITE( LOGDEV,* ) ' ' WRITE( LOGDEV,* ) ' State SENGRID File Header Description:' DO K = 1, 2 WRITE( LOGDEV,* ) ' => ', & TRIM( FDESC3D( K ) ) END DO C Create the names of the sensitivity outputs C Gas species VAR = 0 DO SPC = 1, N_GC_SPC SPCNAME = GC_SPC( SPC )( 1:12 ) DO NP = 1, NPMAX VAR = VAR + 1 VTYPE3D( VAR ) = M3REAL VNAME3D( VAR ) = TRIM(SPCNAME) // '_' // SEN_PAR( NP ) UNITS3D( VAR ) = 'ppmV' VDESC3D( VAR ) = 'Sens of ' // SPCNAME // ' to ' // SEN_PAR( NP ) END DO END DO C RHOJ - should be zero SPCNAME = 'RHOJ' DO NP = 1, NPMAX VAR = VAR + 1 VTYPE3D( VAR ) = M3REAL VNAME3D( VAR ) = TRIM(SPCNAME) // '_' // SEN_PAR( NP ) UNITS3D( VAR ) = 'm*Kg/m**3' VDESC3D( VAR ) = 'Sens of ' // SPCNAME // ' to ' // SEN_PAR( NP ) END DO C Aerosol species DO SPC = 1, N_AE_SPC SPCNAME = AE_SPC( SPC )( 1:12 ) DO NP = 1, NPMAX VAR = VAR + 1 VTYPE3D( VAR ) = M3REAL VNAME3D( VAR ) = TRIM(SPCNAME) // '_' // SEN_PAR( NP ) IF ( VNAME3D( VAR )(1:3) .EQ. 'NUM' ) THEN UNITS3D( VAR ) = 'number/m**3' ELSE IF ( VNAME3D( VAR )(1:3) .EQ. 'SRF' ) THEN UNITS3D( VAR ) = 'm**2/m**3' ELSE UNITS3D( VAR ) = 'micrograms/m**3' END IF VDESC3D( VAR ) = 'Sens of ' // SPCNAME // ' to ' // SEN_PAR( NP ) END DO END DO C NR species DO SPC = 1, N_NR_SPC SPCNAME = NR_SPC( SPC )( 1:12 ) DO NP = 1, NPMAX VAR = VAR + 1 VTYPE3D( VAR ) = M3REAL VNAME3D( VAR ) = TRIM(SPCNAME) // '_' // SEN_PAR( NP ) UNITS3D( VAR ) = 'ppmV' VDESC3D( VAR ) = 'Sens of ' // SPCNAME // ' to ' // SEN_PAR( NP ) END DO END DO c TR species DO SPC = 1, N_TR_SPC SPCNAME = TR_SPC( SPC )( 1:12 ) DO NP = 1, NPMAX VAR = VAR + 1 VTYPE3D( VAR ) = M3REAL VNAME3D( VAR ) = TRIM(SPCNAME) // '_' // SEN_PAR( NP ) UNITS3D( VAR ) = 'ppmV' VDESC3D( VAR ) = 'Sens of ' // SPCNAME // ' to ' // SEN_PAR( NP ) END DO END DO c open the file IF ( .NOT. OPEN3( CTM_SENS_1, FSNEW3, PNAME ) ) THEN XMSG = 'Could not open ' & // TRIM( CTM_SENS_1 ) // ' file' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF END IF ! MYPE = 0 ELSE C File exists. Check header data with CONC file as reference. Currently only C proc 0 has CTM_CONC_1 open c IF ( MYPE .EQ. 0 ) THEN IF ( IO_PE_INCLUSIVE ) THEN IF ( .NOT. DESC3( CTM_CONC_1 ) ) THEN XMSG = 'Could not get ' & // TRIM( CTM_CONC_1 ) & // ' file description' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF TSTEP_RF = TSTEP3D NTHIK_RF = NTHIK3D NCOLS_RF = NCOLS3D NROWS_RF = NROWS3D GDTYP_RF = GDTYP3D P_ALP_RF = P_ALP3D P_BET_RF = P_BET3D P_GAM_RF = P_GAM3D XCENT_RF = XCENT3D YCENT_RF = YCENT3D XORIG_RF = XORIG3D YORIG_RF = YORIG3D XCELL_RF = XCELL3D YCELL_RF = YCELL3D VGTYP_RF = VGTYP3D VGTOP_RF = VGTOP3D IF ( .NOT. DESC3( CTM_SENS_1 ) ) THEN XMSG = 'Could not get ' & // TRIM( CTM_SENS_1 ) & // ' file description' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF IF ( TSTEP_RF .NE. ABS( TSTEP3D ) .OR. & NTHIK_RF .NE. NTHIK3D .OR. & NCOLS_RF .NE. NCOLS3D .OR. & NROWS_RF .NE. NROWS3D .OR. & GDTYP_RF .NE. GDTYP3D ) THEN XMSG = 'Header inconsistent on existing CTM_SENS_1' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT2 ) END IF IF ( P_ALP_RF .NE. P_ALP3D .OR. & P_BET_RF .NE. P_BET3D .OR. & P_GAM_RF .NE. P_GAM3D ) THEN XMSG = 'Header inconsistent on existing CTM_SENS_1' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT2 ) END IF IF ( XCENT_RF .NE. XCENT3D .OR. & YCENT_RF .NE. YCENT3D ) THEN XMSG = 'Header inconsistent on existing CTM_SENS_1' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT2 ) END IF IF ( XORIG_RF .NE. XORIG3D .OR. & YORIG_RF .NE. YORIG3D ) THEN XMSG = 'Header inconsistent on existing CTM_SENS_1' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT2 ) END IF IF ( XCELL_RF .NE. XCELL3D .OR. & YCELL_RF .NE. YCELL3D ) THEN XMSG = 'Header inconsistent on existing CTM_SENS_1' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT2 ) END IF IF ( VGTYP_RF .NE. VGTYP3D ) THEN XMSG = 'Header inconsistent on existing CTM_SENS_1' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT2 ) END IF IF ( VGTOP_RF .NE. VGTOP3D ) THEN XMSG = 'Header inconsistent on existing CTM_SENS_1' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT2 ) END IF END IF ! MYPE = 0 END IF ! .NOT. OPEN CTM_SENS_1 c CALL SUBST_BARRIER END IF ! FIRSTIME i = 0 do s = 1, NSPCSD do d = 1, NPMAX i = i + 1 do k = 1, NLAYS do r = 1, NROWS do c = 1, NCOLS WRBUFF(c,r,k,i) = SENGRID(c,r,k,d,s) end do end do end do end do end do #ifdef parallel_io IF ( IO_PE_INCLUSIVE ) THEN IF ( .NOT. FLUSH3 ( CTM_SENS_1 ) ) THEN XMSG = 'Could not flush ' // TRIM(CTM_SENS_1) CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF END IF CALL SE_BARRIER IF ( .NOT. IO_PE_INCLUSIVE ) THEN IF ( .NOT. OPEN3( CTM_SENS_1, FSNONIO, PNAME ) ) THEN XMSG = 'Could not open ' // TRIM(CTM_SENS_1) CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF END IF IF ( .NOT. WRITE3( CTM_SENS_1, ALLVAR3, JDATE, JTIME, WRBUFF ) ) THEN XMSG = 'Could not write CTM_SENS_1' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF #else #ifdef parallel IF ( .NOT. PTRWRITE3( CTM_SENS_1, ALLVAR3, JDATE, JTIME, WRBUFF ) ) THEN XMSG = 'Could not write SENGRID' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF #else IF ( .NOT. WRITE3( CTM_SENS_1, ALLVAR3, JDATE, JTIME, WRBUFF ) ) THEN XMSG = 'Could not write SENGRID' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF #endif #endif WRITE( LOGDEV, '( /5X, 3( A, :, 1X ), I8, ":", I6.6 )' ) & 'Timestep written to', CTM_SENS_1, & 'for date and time', JDATE, JTIME RETURN END #endif ================================================ FILE: CCTM/src/depv/m3dry/ABFLUX_MOD.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! !::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: Module ABFlux_Mod ! Contains the shared variables and subroutines needed for the bidirectional ! NH3 flux model in CMAQ ! ! INIT_ABFLUX - Intitializes the NH3 flux routines, allocates arrays, reads in ! intial soil NH3 & H concentrations, and fertilizer application ! amounts and timing for the model run ! ! Revision History: J. Bash Dec 08 10: Created ! J. Bash May 11 11: Updated for CMAQ 5.0 ! J.Young Oct 26 11: KIND=16->KIND=8 for Portland Group compiler (pgi) ! IsNaN function " " " " ! (This Module must be compiled w/ -Kieee if pgi) ! J. Bash Jan 31 12: New daily EPIC output now includes soil NH3 from ! mineralization of organic and no longer includes ! the monthly fertilizer totals. The initialization ! of soil NH3 was rewritten to reflect this. ! J. Bash Apr 19 12: Set bounds on the soil moisture from the met. model ! to be between saturation and residual soil moisture ! to avoid errors in the soil resistance from rounding ! errors. Corrected a units conversion error in the ! coupling of the soil NH4 to the atmospheric NH3. ! This will maintain a better mass balance and have ! a small impact on the model results ~ 1% of the ! ambient NH3 concentrations. ! J. Bash Apr 19 12: The apoplast compensation point for agricultural land use ! is now a function of the soil ammonium concentration ! following Massad et al. 2010 doi:10.5194/acp-10-10359-2010 ! J. Bash Aug 29 12: The subroutine was modified to utilize new EPIC output that ! estimates the ammonium content of fertilizer applied to the ! 1cm and 5cm soil layers. ! D. Schwede Sept 12 12: Added code for NLCD40 land use classification ! J. Bash Apr 4 13: Brought in new water, agriculture and snow land use ! classification in LSM_MOD to simplify the case structures C J. Bash: Nov 7 14: Modified for the restructuring of vidff. ! J. Pleim Dec 2016: Revised bidi using gamma from EPIC every day with no mosaic ! J. Pleim April 2018: Estimate available NH3 frac according to EPIC ! D. Wong Feb. 1 19: Implemented centralized I/O approach, removed all MY_N ! clauses, and created a new module depv_data_module ! (model_data_module.F) to hold some of information ! originally stored here to avoid cyclic dependence C------------------------------------------------------------------------------- Implicit None ! shared variables Real, Save, Allocatable :: fcec1 ( :,: ) ! Volatility function of CEC from EPIC (Williams 1995) in L1 Real, Save, Allocatable :: fcec2 ( :,: ) ! Volatility function of CEC from EPIC (Williams 1995) in L2 Real, Save, Private :: C_gam ! Canadian fertilizer facter Real, Parameter, Private :: maxgam = 1.0e6 ! removed 200000 limit since I can't find any justification Real, Parameter, Private :: natgam = 20.0 ! Background soil gamma Contains Subroutine Init_ABFlux( jdate, jtime) Use HGRD_DEFN ! horizontal grid specifications Use UTILIO_DEFN Use Bidi_Mod, Only: gamma1, gamma2, MHp1, MHp2 Use depv_data_module Use, intrinsic :: ieee_arithmetic, only: isnan => ieee_is_nan Implicit None ! Includes Include SUBST_CONST ! constants Include SUBST_FILES_ID ! file name parameters ! Local Variables Integer, Intent( In ) :: jdate Integer, Intent( In ) :: jtime Integer :: c,r,l,k Integer :: gxoff, gyoff ! global origin offset from file integer :: strtcol, endcol, strtrow, endrow integer :: strtcol_medi, endcol_medi, strtrow_medi, endrow_medi integer :: strtcol_fert, endcol_fert, strtrow_fert, endrow_fert integer :: strtcol_beld, endcol_beld, strtrow_beld, endrow_beld Real :: Tot_Ag ! total ag in the grid cell Real, Parameter :: conv = 7.142857e-06 ! ha/m**2 * mol/g N Real :: pHfac1 Real :: pHfac2 Real, Parameter :: d1 = 0.01 ! Top soil layer depth (1 cm); Assume constant for all grid cells Real wres1, wres2 Real tcec1, tcec2 Character( 16 ), Parameter :: pname = 'Init_ABFlux' Character( 16 ) :: vname Character( 96 ) :: xmsg = ' ' ! Find the Canadian fertilizer factor based off of Sheppard et al 2010 Canadian J. Soil Sci. & ! Zhang et al. 2010 JGR Select Case( jdate ) Case( 60:90 ) C_gam = 811.5 Case( 91:120 ) C_gam = 3447.3 Case( 121:151 ) C_gam = 8702.8 Case( 152:181 ) C_gam = 1269.3 Case( 182:212 ) C_gam = 667.1 Case( 213:243 ) C_gam = 704.2 Case( 244:273 ) C_gam = 811.5 Case( 274:304 ) C_gam = 1376.7 Case( 305:334 ) C_gam = 1079.6 Case Default C_gam = 630.0 End Select Beld_ag = 0.01 * Beld_ag ! convert to fraction ! Allocate variable needed soil processes If ( .Not. Allocated ( gamma1 ) ) Then Allocate ( gamma1 ( ncols,nrows ) ) End If gamma1 = 0.0 If ( .Not. Allocated ( gamma2 ) ) Then Allocate ( gamma2 ( ncols,nrows ) ) End If gamma2 = 0.0 If ( .Not. Allocated ( MHp1 ) ) Then Allocate ( MHp1 ( ncols,nrows ) ) End If MHp1 = 0.0 If ( .Not. Allocated ( MHp2 ) ) Then Allocate ( MHp2 ( ncols,nrows ) ) End If MHp2 = 0.0 If ( .Not. Allocated ( fcec1 ) ) Then Allocate ( fcec1 ( ncols,nrows ) ) End If fcec1 = 0.0 If ( .Not. Allocated ( fcec2 ) ) Then Allocate ( fcec2 ( ncols,nrows ) ) End If fcec2 = 0.0 ! parameters Do r = 1, nrows Do c = 1, ncols Tot_Ag = 0.0 tcec1 = 0.0 tcec2 = 0.0 Do l = 1, e2c_cats If( .Not. IsNaN( pHs1( c,r,l ) ) .And. & .Not. IsNaN( pHs2( c,r,l ) ) .And. & .Not. IsNaN( NH4ps1( c,r,l ) ) .And. & .Not. IsNaN( NH4ps2( c,r,l ) ) .And. & Beld_ag( c,r,l ) .Gt. 0.0 ) Then If( pHs1( c,r,l ) .Gt. 0.0 ) Then pHfac1 = 10.0 ** (-pHs1( c,r,l ) ) pHfac2 = 10.0 ** (-pHs2( c,r,l ) ) Else pHfac1 = 1.0 pHfac2 = 1.0 End If ! convert units from kg/ha N to mol/l If ( pHs1( c,r,l ) .Gt. 4.0 .And. & pHs2( c,r,l ) .Gt. 4.0 .And. & pHs1( c,r,l ) .Lt. 9.0 .And. & pHs2( c,r,l ) .Lt. 9.0 .And. & NH4ps1( c,r,l ) .Gt. 0.0 .And. & NH4ps2( c,r,l ) .Gt. 0.0 ) Then wep1(c,r,l) = min (wep1(c,r,l),d1*1000.*por1(c,r,l)) ! don't let SM exceed saturation wep2(c,r,l) = min (wep2(c,r,l),dep2(c,r,l)*1000.*por2(c,r,l)) wres1 = 0.0065757 + 0.24909 * wp1(c,r,l) wres2 = 0.0065757 + 0.24909 * wp2(c,r,l) wep1(c,r,l) = max (wep1(c,r,l),d1*1000.*wres1) ! don't let SM below Wres wep2(c,r,l) = max (wep2(c,r,l),dep2(c,r,l)*1000.*wres2) Tot_Ag = Tot_Ag + Beld_ag( c,r,l ) gamma1( c,r ) = gamma1( c,r ) + conv * NH4ps1( c,r,l ) & * 1000.0 / (wep1(c,r,l) * pHfac1) * Beld_ag( c,r,l ) MHp1( c,r ) = MHp1( c,r ) + Beld_ag( c,r,l ) * pHfac1 gamma2( c,r ) = gamma2( c,r ) + conv * NH4ps2( c,r,l ) & * 1000.0 / (wep2(c,r,l) * pHfac2) * Beld_ag( c,r,l ) MHp2( c,r ) = MHp2( c,r ) + Beld_ag( c,r,l ) * pHfac2 tcec1 = tcec1 + Beld_ag( c,r,l ) * cec1(c,r,l) tcec2 = tcec2 + Beld_ag( c,r,l ) * cec2(c,r,l) End If End If End Do ! e2c_cats If ( Tot_Ag .ge. 1.0e-6 ) then If ( MHp1( c,r ) / Tot_Ag .Gt. 1.0e-9 .And. & MHp1( c,r ) / Tot_Ag .Lt. 1.0e-4 .And. & MHp2( c,r ) / Tot_Ag .Gt. 1.0e-9 .And. & MHp2( c,r ) / Tot_Ag .Lt. 1.0e-4 ) Then ! get the agricultrual only relevant number MHp1( c,r ) = MHp1( c,r ) / Tot_Ag MHp2( c,r ) = MHp2( c,r ) / Tot_Ag gamma1( c,r ) = gamma1( c,r ) / Tot_Ag gamma2( c,r ) = gamma2( c,r ) / Tot_Ag ! Set a minimum Gamma for Ag based off of Zhang et al. 2010 ! gamma1( c,r ) = max( gamma1( c,r ), 630.0 ) ! gamma2( c,r ) = max( gamma2( c,r ), 630.0 ) ! NaN trap for debugging ! If ( IsNaN( gamma1( c,r ) ) .Or. IsNaN( gamma2( c,r ) ) .Or. ! & IsNaN( MHp2( c,r ) ) .Or. IsNaN( MHp2( c,r ) ) ) Then ! xmsg = 'NaN in grid cell Gamma Calculation' ! Call M3exit( pname, jdate, jtime, xmsg, xstat1 ) ! End If tcec1 = tcec1 / Tot_Ag tcec2 = tcec2 / Tot_Ag fcec1(c,r) = max(0.3, 1.0-0.038*tcec1) ! from EPIC (Wiliams 1995) fcec2(c,r) = max(0.3, 1.0-0.038*tcec2) ! if(r.eq.18.and.c.eq.27) then ! Write(Logdev,*) ' Bidi-Epic soil data' ! Write(Logdev,*) gamma1(c,r),gamma2(c,r),fcec1(c,r),tcec1 ! Endif Else MHp1( c,r ) = 0.0 MHp2( c,r ) = 0.0 gamma1( c,r ) = 0.0 gamma2( c,r ) = 0.0 Endif Else MHp1( c,r ) = 0.0 MHp2( c,r ) = 0.0 gamma1( c,r ) = 0.0 gamma2( c,r ) = 0.0 End If End Do ! c End Do ! r Return !------------------------------------------------------------------------------ ! Error handling section !------------------------------------------------------------------------------ 1001 Continue Call M3exit( pname, jdate, jtime, xmsg, xstat1 ) C------------------------------------------------------------------------------- C Format statements. C------------------------------------------------------------------------------- 9001 Format( 'Failure reading ', a, 1x, 'from ', a ) Return End Subroutine Init_ABFlux !------------------------------------------------------------------------------ ! Subroutine to get the soil and canopy compensation point !------------------------------------------------------------------------------ Subroutine Get_Flux( cNH3, rwetsfc, rgw, r, c, l, pvd, lnh3, & rb,rinc,rstom, delta,rgnd,femis,fdep) Use UTILIO_DEFN Use Bidi_Mod, Only: gamma1, gamma2, MHp1, MHp2 Use ASX_DATA_MOD Use LSM_MOD Implicit None Include SUBST_FILES_ID ! file name parameters Real, Intent( IN ) :: cNH3 Real, Intent( IN ) :: rwetsfc Real, Intent( IN ) :: rgw Real, Intent( IN ) :: rb Real, Intent( IN ) :: rinc Real, Intent( IN ) :: rstom Real, Intent( IN ) :: delta Real, Intent( IN ) :: rgnd Integer, Intent( IN ) :: r Integer, Intent( IN ) :: c Integer, Intent( IN ) :: l ! species index Real, Intent( OUT ) :: pvd Real, Intent( OUT ) :: lnh3 Real, Intent( OUT ) :: femis Real, Intent( OUT ) :: fdep Real( 8 ) :: aq ! Quadradic equation variable Real( 8 ) :: bq ! Quadradic equation variable Real :: cnh3c ! In canopy NH3 concentration [ppm] Real :: cnh3g1, cnh3g2, cnh3g ! NH3 compensation concentration for ground [ppm] Real :: cnh3s ! NH3 compensation concentration for stomatal [ppm] Real :: cnh3g1j, cnh3g2j, cnh3sj Real( 8 ) :: cq ! Quadradic equation variable Real :: del0 ! for Rbg Real( 8 ) :: ga ! Ga = 1/Ra [m/s] Real :: gammas ! [NH4+]/[H+] Real( 8 ) :: gcw Real( 8 ) :: gg1 !( n_lufrac ) ! Gg = 1/(Rgnd(nh3)+Rinc) [m/s] Real( 8 ) :: gsb ! Gsb = 1/(Rstom(nh3)+Rb(nh3)) [m/s] Real( 8 ) :: gt Real( 8 ) :: qq ! intermediate variable Real :: rbg !j( n_lufrac ) ! Real, Parameter :: rwm = 35.0 ! Minimum NH3 cuticle resistance [s/m] Real, Parameter :: rwm = 20.0 ! Minimum NH3 cuticle resistance [s/m] Real :: rwmb ! Rwmb = Rwm + Rb Real :: rwx ! Rw = Rwm + Rwx * CNH3C [s/m] Real :: scn ! for Rbg Real :: ustg ! for Rbg Real :: vdg ! Vd(nh3) to non-veg part [m/s] Real :: w5cm ! soil moisture in top 5 cm (vol frc) Real, Parameter :: d1 = 0.01 ! Top soil layer depth (1 cm) Real, Parameter :: twothree = 2.0/3.0 Real, Parameter :: onethree = 1.0/3.0 Real, Parameter :: MolN = 14.007 ! g/mol N ! Real, Parameter :: MolNH3 = 17.01 ! g/mol NH3 Real( 8 ) :: ldry Real( 8 ) :: dp Real( 8 ) :: rsoil1 Real( 8 ) :: rsoil2 Real( 8 ) :: a1 Real :: agfrac Real( 8 ) :: ddd Real :: watfrac ! water fraction Integer :: k,j Real :: canfrac Real :: frac_sol1 ! Fraction of NHx in solution layer 1 Real :: frac_sol2 ! Fraction of NHx in solution layer 2 Real :: cnh3cdep Real :: cnh3cemis, rcut, gwd canfrac = 0.5 !exp(-1.) !> Compute quasi-laminar boundary layer resistance at the soil surface scn = kvis / dif0( l ) ustg = max( MET_DATA%USTAR( c,r ) * EXP( -MET_DATA%LAI( c,r ) ), 0.001 ) del0 = 1.0E-4 * kvis / ( karman * ustg ) rbg = ( scn - LOG( 10.0 * del0 ) ) / ( karman * ustg ) !-- Compute soil resitance using soil moitsure in soil layer 1 (1 cm) from WRF ldry= d1 * ( Exp( ( 1.0 - MET_DATA%SOIM1( c,r ) / GRID_DATA%WSAT( c,r ) ) ** 5 ) - 1.0 ) / 1.718 dp = dif0( l ) * 1.0E-4 * GRID_DATA%WSAT( c,r )**2 & * ( 1.0 - GRID_DATA%WRES(c,r) / GRID_DATA%WSAT(c,r) ) ** ( 2.0 + 3.0 / GRID_DATA%BSLP(c,r) ) rsoil1 = ldry / dp w5cm = 0.2 * MET_DATA%SOIM1( c,r ) + 0.8 * MET_DATA%SOIM2( c,r ) w5cm = Min( w5cm, GRID_DATA%WSAT( c,r ) ) w5cm = Max( w5cm, GRID_DATA%WRES( c,r ) ) agfrac = 0.0 watfrac = 0.0 pvd = 0.0 lnh3 = 0.0 !> If the soil is frozen assume not evasive flux and skip calculation of comp. points If ( MET_DATA%Tempg( c,r ) .Le. 273.15 ) Then cnh3s = 0.0 cnh3g = 0.0 Go To 101 End If !> Compute compensation point. gamma is specified according to the amount of !> cultivated vegetation a1 = 161512.0d0 / real( MET_DATA%tempg( c,r ), 8 ) & * 10.0d0 ** ( -4507.11d0 / real( MET_DATA%tempg( c,r ), 8 ) ) a1 = a1 * 17.0d9 ! microgram/m3 24.5d0 * 1.0d6 ! ppm !> Set a maximum [NH4]/[H+] ratio at 200,000 based on output from the AIM aerosol !> model any [NH4] in excess of this ratio is assumed to partition into the solid !> phase. Canada soil gamma taken from Zhang et al 2010 JGR Table 5 cnh3g1 = 0.0 cnh3g2 = 0.0 cnh3s = 0.0 !---- removed division of gamma by soil moisture -- jep 12/16 Do j = 1, n_lufrac If ( GRID_DATA%LUFRAC( c,r,j ) .Gt. 0.0 ) Then cnh3sj = a1 * luf_fac( j ) Select Case( cat_lu( j ) ) Case( 'WATER' ) ! water cnh3g1j = 0.0 cnh3g2j = 0.0 cnh3sj =0.0 watfrac = watfrac + GRID_DATA%LUFRAC( c,r,j ) Case( 'SNOWICE' ) ! ice or snow cnh3g1j = 0.0 cnh3g2j = 0.0 cnh3sj =0.0 !---- Gamma soil Case( 'AG','AGMOS' ) ! Ag if (fcec1(c,r).gt. 0.299 ) Then frac_sol1= fcec1(c,r) frac_sol2= fcec2(c,r) else frac_sol1= 0.55 frac_sol2= 0.55 endif if( cat_lu( j ).eq.'AG' ) then ! Ag cnh3g1j = Min( Max( frac_sol1*gamma1( c,r ), C_gam / MET_DATA%SOIM1( c,r ) ), & maxgam) cnh3g2j = Min( Max( frac_sol2*gamma2( c,r ), C_gam / w5cm), & maxgam ) agfrac = agfrac + GRID_DATA%LUFRAC( c,r,j ) else ! Ag mosaic 67% ag 33% mosaic cnh3g1j = Min( Max( frac_sol1*gamma1( c,r ), C_gam / MET_DATA%SOIM1( c,r )) & * twothree + onethree * natgam , maxgam ) cnh3g2j = Min( Max( frac_sol2*gamma2( c,r ), C_gam / w5cm ) & * twothree + onethree * natgam , maxgam ) agfrac = agfrac + twothree * GRID_DATA%LUFRAC( c,r,j ) endif Case Default ! not ag cnh3g1j = Min( natgam , maxgam ) cnh3g2j = Min( natgam , maxgam ) End Select cnh3g1 = cnh3g1 + GRID_DATA%LUFRAC( c,r,j ) * cnh3g1j cnh3g2 = cnh3g2 + GRID_DATA%LUFRAC( c,r,j ) * cnh3g2j cnh3s = cnh3s + GRID_DATA%LUFRAC( c,r,j ) * cnh3sj End If End Do cnh3g1 = a1 * Max( cnh3g1, 0.01 ) / (1.0 - watfrac) ! Land only (microgram/m3) cnh3g2 = a1 * Max( cnh3g2, 0.01 ) / (1.0 - watfrac) ! Land only (microgram/m3) cnh3g = Max (cnh3g1, cnh3g2) ! use greater of layer concs cnh3s = cnh3s / (1.0 - watfrac) ! Land only (microgram/m3) ! if(agfrac.GT.0.5.and.gamma1( c,r ).gt.50000.) then ! write(logdev,*) ' frac_sol1',frac_sol1,' cnh3g1',cnh3g1,' gamma1',gamma1( c,r ) ! write(logdev,*) ' c,r=',c,r,' gamma2',gamma2( c,r ) ! endif 101 Continue !> Cuticle resistance : rw = rwx * cnh3c + rwm If ( MET_DATA%LAI( c,r ) .Gt. 0.0 ) Then rwx = rwetsfc rwmb = rwm + rwx + (100.0-max(MET_DATA%RH2( c,r ),60.0) + Rb) * MET_DATA%LAI( c,r ) ! from Pleim et al 2013 JGR ga = 1.0 / ( MET_DATA%RA( c,r ) + canfrac * rinc ) ! gsb = 1.0 / ( rstom + rb ) gg1 = 1.0 / ( rbg + (1.-canfrac) * rinc + rsoil1 ) gcw = 1.0 / ( rb + rwetsfc/MET_DATA%LAI( c,r ) ) gt = gsb + gg1 + ga + delta * gcw ! single soil layer qq = ga * cnh3 + gsb * cnh3s + gg1 * cnh3g aq = rwx * gt bq = rwmb * gt + MET_DATA%LAI( c,r ) * ( 1.0 - delta ) - rwx * qq cq = -rwmb * qq ! Microg/m3 cnh3c = (-bq + sqrt( bq**2 - 4.0d0 * aq * cq))/(2.0d0 * aq) ! this should always yield non-negative result ! if the compensation point less than zero reset it to zero cnh3c = max( cnh3c, 0.0 ) !-- Compute deposition part assuming cnh3g and cnh3s = 0 qq = ga * cnh3 bq = rwmb * gt + MET_DATA%LAI( c,r ) * ( 1.0 - delta ) - rwx * qq cq = -rwmb * qq cnh3cdep = (-bq + sqrt( bq**2 - 4.0d0 * aq * cq))/(2.0d0 * aq) !-- compute emission component using cnh3c from bidi flux for Rcut ! rcut = rwm + rwx*(cnh3c+1.) + (100.0-max(MET_DATA%RH( c,r ),60.0) + Rb) * MET_DATA%LAI( c,r ) rcut = rwmb + rwx* cnh3c gwd = ( 1.0 - delta )* MET_DATA%LAI( c,r )/rcut cnh3cemis = (gsb * cnh3s + gg1 * cnh3g)/( gt + gwd) else cnh3c = 0.0 cnh3cemis = 0.0 End If ! lai > 0.0 ddd = ( 1.0 - delta ) / rgnd & + delta / rgw vdg = 1.0 / ( MET_DATA%RA( c,r ) + rb + 1.0 / ddd ) pvd = cnh3c * ga * MET_DATA%VEG( c,r ) ! microg/m2/s lnh3 = vdg + MET_DATA%VEG( c,r ) * ( ga - vdg ) femis = ga*(cnh3cemis)*MET_DATA%VEG( c,r ) fdep = lnh3*cnh3 - ga*cnh3cdep*MET_DATA%VEG( c,r ) ! if(r.eq.18.and.c.eq.27) then ! Write(Logdev,*) ' Bidi-Epic conc' ! Write(Logdev,*) cnh3g1,cnh3g2,cnh3g,cnh3s,cnh3c,cnh3 ! Write(Logdev,*) agfrac,rsoil1,MET_DATA%VEG( c,r ),ga,rbg ! Endif Return End Subroutine Get_Flux End Module ABFlux_Mod ================================================ FILE: CCTM/src/depv/m3dry/BIDI_MOD.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! c::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: Module Bidi_Mod C Contains the shared variables and subrountes needed for the bidirectional C NH3 flux model in CMAQ C C OPASX_MEDIA - Opens the output file for NH4+ and H+ in the soil water solution C C Revision History: J. Bash Mar 15 11: Created C J. Bash May 11 11: Updated for CMAQ 5.0 C D. Wong 1 Feb 19: removed MY_N clauses USE RUNTIME_VARS Implicit None ! Private variables Integer, Parameter, Private :: NHx_AQ_CONC = 4 Integer, Parameter, Private :: NHx_GAS_CONC = 0 Integer, Parameter, Private :: NHx_SOL_CONC = 0 Integer, Parameter, Private :: NHx_TOT = NHx_AQ_CONC + NHx_GAS_CONC + NHx_SOL_CONC Integer, Parameter, Private :: HG_AQ_CONC = 3 Integer, Parameter, Private :: HG_GAS_CONC = 1 Integer, Parameter, Private :: HG_SOL_CONC = 2 Integer, Save, Private :: N_Hg Character( 96 ), Private :: XMSG = ' ' ! shared variables Character( 16 ), Save , Allocatable :: MEDIA_NAMES( : ) Character( 16 ), Save , Allocatable :: MEDIA_UNITS( : ) Character( 80 ), Save , Allocatable :: MEDIA_DESCR( : ) Integer, Parameter :: HG_TOT = HG_AQ_CONC + HG_GAS_CONC + HG_SOL_CONC Integer, Save :: N_TOT Real, Save, Allocatable :: gamma1 ( :,: ) ! soil NH4/H Real, Save, Allocatable :: gamma2 ( :,: ) ! soil NH4/H Real, Save, Allocatable :: MHp1 ( :,: ) ! molar H+ Real, Save, Allocatable :: MHp2 ( :,: ) ! molar H+ Real, Save, Allocatable :: CMEDIA ( :,:,: ) ! surface layer concs Logical, Save :: INIT_LAI Logical, Save :: INIT_ATX Logical, Save :: INIT_ASX Contains Subroutine INIT_BIDI( ) Use GRID_CONF Use CGRID_SPCS ! CGRID mechanism species Use UTILIO_DEFN #ifdef mpas Use util_module, only : index1 #endif Implicit None C... Local: Character( 16 ) :: PNAME = 'INIT_BIDI ' Character( 80 ) :: VARDESC Integer :: STATUS Logical, SAVE :: INITIALIZED = .FALSE. C-------------------------------------------------------------------------- C Prevent initializing the code twice If ( INITIALIZED ) Return INITIALIZED = .TRUE. ! Set Mercury BiDi Processing Flag equal to false if there is ! no mercury gas-phase species. If ( INDEX1( 'HG', N_GC_DDEP, GC_DDEP ) .EQ. 0 ) HGBIDI = .FALSE. ! Define Media Concentration Output Variables and Descriptions If ( ABFLUX .And. .Not. HGBIDI ) Then N_TOT = NHx_TOT N_Hg = 0 Allocate( MEDIA_NAMES( N_TOT ), MEDIA_UNITS( N_TOT ), MEDIA_DESCR( N_TOT ) ) MEDIA_NAMES( 1 ) = 'Gamma1 ' MEDIA_UNITS( 1 ) = ' ' MEDIA_DESCR( 1 ) = 'NH4+/H+ in Soil layer 1' MEDIA_NAMES( 2 ) = 'Gamma2 ' MEDIA_UNITS( 2 ) = ' ' MEDIA_DESCR( 2 ) = 'NH4+/H+ in Soil layer 2' MEDIA_NAMES( 3 ) = 'MHpsl1 ' MEDIA_UNITS( 3 ) = 'mol/l' MEDIA_DESCR( 3 ) = 'Molar H+ in Soil layer 1' MEDIA_NAMES( 4 ) = 'MHpsl2 ' MEDIA_UNITS( 4 ) = 'mol/l' MEDIA_DESCR( 4 ) = 'Molar H+ in Soil layer 2' Else If ( .Not. ABFLUX .And. HGBIDI ) Then N_TOT = HG_TOT N_Hg = HG_TOT Allocate( MEDIA_NAMES( HG_TOT ), MEDIA_UNITS( N_TOT ), MEDIA_DESCR( N_TOT ) ) MEDIA_NAMES( 1 ) = 'DGM ' ! Dissolved gaseous Hg MEDIA_UNITS( 1 ) = 'umol/mol' MEDIA_DESCR( 1 ) = 'Surface water dissolved Hg(0)' MEDIA_NAMES( 2 ) = 'DRM ' ! Dissolved reactive Hg MEDIA_UNITS( 2 ) = 'umol/mol' MEDIA_DESCR( 2 ) = 'Surface water dissolved Hg(II)' MEDIA_NAMES( 3 ) = 'HGSOIL ' MEDIA_UNITS( 3 ) = 'umol/mol' MEDIA_DESCR( 3 ) = 'Soil water dissolved Hg(0)' MEDIA_NAMES( 4 ) = 'HGZ0 ' MEDIA_UNITS( 4 ) = 'ppmV' MEDIA_DESCR( 4 ) = 'Hg(0) compensation point' MEDIA_NAMES( 5 ) = 'HGMES ' ! mesophyll Hg MEDIA_UNITS( 5 ) = 'umol/g' MEDIA_DESCR( 5 ) = 'Hg(0) bound to leaf mesophyll' MEDIA_NAMES( 6 ) = 'HGCUT ' ! cuticular Hg MEDIA_UNITS( 6 ) = 'umol/g' MEDIA_DESCR( 6 ) = 'Hg(0) bound to vegetation surfaces' Else If ( ABFLUX .And. HGBIDI ) Then N_TOT = HG_TOT + NHx_TOT N_Hg = HG_TOT Allocate( MEDIA_NAMES( N_TOT ), MEDIA_UNITS( N_TOT ), MEDIA_DESCR( N_TOT ) ) MEDIA_NAMES( 1 ) = 'DGM ' ! Dissolved gaseous Hg MEDIA_UNITS( 1 ) = 'umol/mol' MEDIA_DESCR( 1 ) = 'Surface water dissolved Hg(0)' MEDIA_NAMES( 2 ) = 'DRM ' ! Dissolved reactive Hg MEDIA_UNITS( 2 ) = 'umol/mol' MEDIA_DESCR( 2 ) = 'Surface water dissolved Hg(II)' MEDIA_NAMES( 3 ) = 'HGSOIL ' MEDIA_UNITS( 3 ) = 'umol/mol' MEDIA_DESCR( 3 ) = 'Soil water dissolved Hg(0)' MEDIA_NAMES( 4 ) = 'HGZ0 ' MEDIA_UNITS( 4 ) = 'ppmV' MEDIA_DESCR( 4 ) = 'Hg(0) compensation point' MEDIA_NAMES( 5 ) = 'HGMES ' ! mesophyll Hg MEDIA_UNITS( 5 ) = 'umol/g' MEDIA_DESCR( 5 ) = 'Hg(0) bound to leaf mesophyll' MEDIA_NAMES( 6 ) = 'HGCUT ' ! cuticular Hg MEDIA_UNITS( 6 ) = 'umol/g' MEDIA_DESCR( 6 ) = 'Hg(0) bound to vegetation surfaces' MEDIA_NAMES( 7 ) = 'Gamma1 ' MEDIA_UNITS( 7 ) = ' ' MEDIA_DESCR( 7 ) = 'NH4+/H+ in Soil layer 1' MEDIA_NAMES( 8 ) = 'Gamma2 ' MEDIA_UNITS( 8 ) = ' ' MEDIA_DESCR( 8 ) = 'NH4+/H+ in Soil layer 2' MEDIA_NAMES( 9 ) = 'MHpsl1' MEDIA_UNITS( 9 ) = 'mol/l' MEDIA_DESCR( 9 ) = 'Molar H+ in Soil layer 1' MEDIA_NAMES( 10 ) = 'MHpsl2 ' MEDIA_UNITS( 10 ) = 'mol/l' MEDIA_DESCR( 10 ) = 'Molar H+ in Soil layer 2' End If ! allocate the media array variable If ( .Not. Allocated ( CMEDIA ) ) Then Allocate ( CMEDIA( NCOLS,NROWS,N_TOT ) ) CMEDIA = 0.0 End If Return End Subroutine INIT_BIDI !***************************************************************************** !************** Iput / output section of the module ************************** !***************************************************************************** Subroutine OPASX_MEDIA( JDATE, JTIME, TSTEP ) Use GRID_CONF Use CGRID_SPCS ! CGRID mechanism species Use UTILIO_DEFN Implicit None Include SUBST_FILES_ID ! file name parameters Integer, Intent( In ) :: JDATE Integer, Intent( In ) :: JTIME Integer, Intent( In ) :: TSTEP Character( 16 ) :: PNAME = 'OPASX_MEDIA ' Character( 80 ) :: VARDESC Character( 96 ) :: MSG = ' ' Integer N, V, L C-------------------------------------------------------------------------- #ifndef mpas If ( ABFLUX .And. .Not. HGBIDI) Then If ( .Not. OPEN3( MEDIA_CONC, FSRDWR3, PNAME ) ) Then XMSG = 'Could not open ' // MEDIA_CONC // ' file for update - ' & // 'try to open new' Call M3MESG( XMSG ) FTYPE3D = GRDDED3 SDATE3D = JDATE STIME3D = JTIME TSTEP3D = TSTEP Call NEXTIME( SDATE3D, STIME3D, TSTEP3D ) ! start the next hour NVARS3D = N_TOT NCOLS3D = GL_NCOLS NROWS3D = GL_NROWS NLAYS3D = 1 NTHIK3D = 1 GDTYP3D = GDTYP_GD P_ALP3D = P_ALP_GD P_BET3D = P_BET_GD P_GAM3D = P_GAM_GD XORIG3D = XORIG_GD YORIG3D = YORIG_GD XCENT3D = XCENT_GD YCENT3D = YCENT_GD XCELL3D = XCELL_GD YCELL3D = YCELL_GD VGTYP3D = VGTYP_GD VGTOP3D = VGTOP_GD Do L = 1, NLAYS3D + 1 VGLVS3D( L ) = VGLVS_GD( L ) End Do GDNAM3D = GRID_NAME ! from HGRD_DEFN FDESC3D = ' ' ! array FDESC3D( 1 ) = 'Multimedia concentration estimates from integrated ambient ' & // 'NH3 concentrations and surface exchange algorithms' N = 0 Do V = 1, NHx_AQ_CONC N = N + 1 VTYPE3D( N ) = M3REAL VNAME3D( N ) = MEDIA_NAMES( N ) UNITS3D( N ) = 'mol L-1' VDESC3D( N ) = 'aqueous phase concentration' End Do N = NHx_AQ_CONC Do V = 1, NHx_GAS_CONC N = N + 1 VTYPE3D( N ) = M3REAL VNAME3D( N ) = MEDIA_NAMES( N ) UNITS3D( N ) = 'ppmV g-1' VDESC3D( N ) = 'gas phase concentration' End Do N = NHx_AQ_CONC + NHx_GAS_CONC Do V = 1, NHx_SOL_CONC N = N + 1 VTYPE3D( N ) = M3REAL VNAME3D( N ) = MEDIA_NAMES( N ) UNITS3D( N ) = 'umol g-1' VDESC3D( N ) = 'Solid phase concentration' End Do End If Else If ( .Not. ABFLUX .And. HGBIDI ) Then If ( .Not. OPEN3( MEDIA_CONC, FSRDWR3, PNAME ) ) Then! XMSG = 'Could not open ' // MEDIA_CONC // ' file for update - ' & // 'try to open new' Call M3MESG( XMSG ) FTYPE3D = GRDDED3 SDATE3D = JDATE STIME3D = JTIME TSTEP3D = TSTEP Call NEXTIME( SDATE3D, STIME3D, TSTEP3D ) ! start the next hour NVARS3D = N_TOT NCOLS3D = GL_NCOLS NROWS3D = GL_NROWS NLAYS3D = 1 NTHIK3D = 1 GDTYP3D = GDTYP_GD P_ALP3D = P_ALP_GD P_BET3D = P_BET_GD P_GAM3D = P_GAM_GD XORIG3D = XORIG_GD YORIG3D = YORIG_GD XCENT3D = XCENT_GD YCENT3D = YCENT_GD XCELL3D = XCELL_GD YCELL3D = YCELL_GD VGTYP3D = VGTYP_GD VGTOP3D = VGTOP_GD FDESC3D = ' ' ! array FDESC3D( 1 ) = 'Multimedia concentration estimates from integrated ambient ' & // 'HG concentrations and surface exchange algorithms' NLAYS3D = 1 N = 0 Do V = 1, HG_AQ_CONC N = N + 1 VTYPE3D( N ) = M3REAL VNAME3D( N ) = MEDIA_NAMES( N ) UNITS3D( N ) = 'umol mol-1' VDESC3D( N ) = 'aqueous phase concentration' End Do N = HG_AQ_CONC Do V = 1, HG_GAS_CONC N = N + 1 VTYPE3D( N ) = M3REAL VNAME3D( N ) = MEDIA_NAMES( N ) UNITS3D( N ) = 'ppmV g' VDESC3D( N ) = 'gas phase concentration' End Do N = HG_AQ_CONC + HG_GAS_CONC Do V = 1, HG_SOL_CONC N = N + 1 VTYPE3D( N ) = M3REAL VNAME3D( N ) = MEDIA_NAMES( N ) UNITS3D( N ) = 'umol g-1' VDESC3D( N ) = 'Solid phase concentration' End Do End If Else If ( ABFLUX .And. HGBIDI ) Then If ( .Not. OPEN3( MEDIA_CONC, FSRDWR3, PNAME ) ) Then XMSG = 'Could not open ' // MEDIA_CONC // ' file for update - ' & // 'try to open new' Call M3MESG( XMSG ) FTYPE3D = GRDDED3 SDATE3D = JDATE STIME3D = JTIME TSTEP3D = TSTEP Call NEXTIME( SDATE3D, STIME3D, TSTEP3D ) ! start the next hour NVARS3D = N_TOT NCOLS3D = GL_NCOLS NROWS3D = GL_NROWS NLAYS3D = 1 NTHIK3D = 1 GDTYP3D = GDTYP_GD P_ALP3D = P_ALP_GD P_BET3D = P_BET_GD P_GAM3D = P_GAM_GD XORIG3D = XORIG_GD YORIG3D = YORIG_GD XCENT3D = XCENT_GD YCENT3D = YCENT_GD XCELL3D = XCELL_GD YCELL3D = YCELL_GD VGTYP3D = VGTYP_GD VGTOP3D = VGTOP_GD FDESC3D = ' ' ! array FDESC3D( 1 ) = 'Multimedia concentration estimates from integrated ambient ' & // 'NH3 and HG concentrations and surface exchange algorithms' NLAYS3D = 1 N = 0 Do V = 1, HG_AQ_CONC N = N + 1 VTYPE3D( N ) = M3REAL VNAME3D( N ) = MEDIA_NAMES( N ) UNITS3D( N ) = 'umol mol-1' VDESC3D( N ) = 'aqueous phase concentration' End Do N = HG_AQ_CONC Do V = 1, HG_GAS_CONC N = N + 1 VTYPE3D( N ) = M3REAL VNAME3D( N ) = MEDIA_NAMES( N ) UNITS3D( N ) = 'ppmV g' VDESC3D( N ) = 'gas phase concentration' End Do N = HG_AQ_CONC + HG_GAS_CONC Do V = 1, HG_SOL_CONC N = N + 1 VTYPE3D( N ) = M3REAL VNAME3D( N ) = MEDIA_NAMES( N ) UNITS3D( N ) = 'umol g-1' VDESC3D( N ) = 'Solid phase concentration' End Do N = HG_TOT Do V = 1, NHx_AQ_CONC N = N + 1 VTYPE3D( N ) = M3REAL VNAME3D( N ) = MEDIA_NAMES( N ) UNITS3D( N ) = 'mol L-1' VDESC3D( N ) = 'aqueous phase concentration' End Do N = HG_TOT + NHx_AQ_CONC Do V = 1, NHx_GAS_CONC N = N + 1 VTYPE3D( N ) = M3REAL VNAME3D( N ) = MEDIA_NAMES( N ) UNITS3D( N ) = 'ppmV g' VDESC3D( N ) = 'gas phase concentration' End Do N = HG_TOT + NHx_AQ_CONC + NHx_GAS_CONC Do V = 1, NHx_SOL_CONC N = N + 1 VTYPE3D( N ) = M3REAL VNAME3D( N ) = MEDIA_NAMES( N ) UNITS3D( N ) = 'umol g-1' VDESC3D( N ) = 'Solid phase concentration' End Do End If End If ! Open file, then close it for subsequent open by all processors If ( .Not. OPEN3( MEDIA_CONC, FSNEW3, PNAME ) ) Then XMSG = 'Could not create '// TRIM( MEDIA_CONC) // ' file' Call M3EXIT( PNAME, SDATE3D, STIME3D, XMSG, XSTAT1 ) End If #endif Return End Subroutine OPASX_MEDIA !**************************************************************************** Subroutine WRASX_MEDIA( MDATE, MTIME ) ! Revision History. ! Aug 12, 15 D. Wong: added code to handle parallel I/O implementation ! Jan 16, 16 J. Young: update log file once per output; consistent tokens Use GRID_CONF ! horizontal grid specifications Use UTILIO_DEFN Implicit None Include SUBST_FILES_ID ! file name parameters Integer, Intent( In ) :: MDATE Integer, Intent( In ) :: MTIME Logical, Save :: FIRSTIME = .TRUE. Real WRMC( NCols,NRows ) ! media write buffer Integer V, R, C Character( 16 ) :: PNAME = 'WRASX_MEDIA ' !***************************************************************************** If ( HGBIDI ) Then INIT_LAI = .FALSE. INIT_ATX = .FALSE. INIT_ASX = .FALSE. End If If ( ABFLUX ) Then Do R = 1, NRows Do C = 1, NCols CMedia( C,R,N_Hg+1 ) = Gamma1( C,R ) CMedia( C,R,N_Hg+2 ) = Gamma2( C,R ) CMedia( C,R,N_Hg+3 ) = MHp1( C,R ) CMedia( C,R,N_Hg+4 ) = MHp2( C,R ) End Do End Do End If #ifdef parallel_io If ( FIRSTIME ) Then FIRSTIME = .FALSE. If ( .Not. IO_PE_INCLUSIVE ) Then If ( .Not. OPEN3( MEDIA_CONC, FSREAD3, PNAME ) ) Then XMSG = 'Could not open ' // TRIM( MEDIA_CONC ) Call M3EXIT( PNAME, MDATE, MTIME, XMSG, XSTAT1 ) End If End If End If #endif Do V = 1, N_TOT ! species/media loop Do R = 1, NRows ! row loop Do C = 1,NCols ! column loop WRMC( C, R ) = CMEDIA( C,R,V ) End Do End Do #ifndef mpas If ( .Not. WRITE3( MEDIA_CONC, MEDIA_NAMES( V ), MDATE, MTIME, & WRMC ) ) Then XMSG = 'Could not write ' // MEDIA_CONC // ' file' Call M3EXIT( PNAME, MDATE, MTIME, XMSG, XSTAT1 ) End If #endif End Do Write( LOGDEV, '( /5X, A, I8, ":", I6.6 )' ) & 'Timestep written to "' // TRIM( MEDIA_CONC ) // & '" for date and time', MDATE, MTIME Return End Subroutine WRASX_MEDIA End Module Bidi_Mod ================================================ FILE: CCTM/src/depv/m3dry/DEPVVARS.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/CCTM/src/depv/m3dry/DEPVVARS.F,v 1.7 2012/01/19 14:21:45 yoj Exp $ C:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: MODULE DEPVVARS C----------------------------------------------------------------------- C Name: Dry Deposition Variables C Purpose: Contains arrays specific to dry deposition species. C Initializes dry deposition arrays. C Revised: 19 Aug 2005 Original version. (T. Otte and W. Hutzell) C 25 Nov 2006 J.Young: combine C 30 Apr 2008 Removed references to RADMDRY. Added five air C toxic species to LTOTG. (T. Otte and W. Hutzell) C 16 Feb 2011 S.Roselle: replaced I/O API include files with C UTILIO_DEFN C 11 May 2011 J.Bash: Updated for NH3 bidirectional exchange C 04 Jan 2012 J.Young: Initialize char variables with blank padding C 28 Aug 2014 G. Sarwar: added deposition for CLNO2 C 07 Nov 14 J.Bash: Updated for the ASX_DATA_MOD shared data module. C 05 May 2015: H.Pye: Added ISOPNN and MTNO3 with Donna Schwede C 24 Aug 2015: H.Pye: Added IEPOX and HACET with Donna Schwede C 26 Jan 2016: H. Pye added info for SOA SVOCs C 24 Mar 2016: G. Sarwar: added iodine and bromine species C 26 Sep 2016: D. Wong: removed unnecessary use module statements C 29 Dec 2015: H.Pye: added new monoterpene SOA surrogates C 06 Aug 2018: M.Qin: added new lumped anthropogenic semivolatiles C 16 Aug 2018: G. Sarwar: added ClNO3 and FMBR, and updated INO3 and BRNO3 name changes C 21 Nov 2018: G. Sarwar: added several halogen species C 09 Jan 2021: G. Sarwar: removed CH3BR C----------------------------------------------------------------------- INTEGER, PARAMETER :: LDDEP = 4 INTEGER, PARAMETER :: LTOTG = 265 INTEGER, PARAMETER :: LCMP = 8 CHARACTER( 16 ) :: DEPV_METHOD C----------------------------------------------------------------------- C General dry deposition arrays. C----------------------------------------------------------------------- INTEGER, SAVE :: N_USE_DEPSPC LOGICAL, SAVE :: USE_DEPSPC( LTOTG ) CHARACTER( 16 ), SAVE :: DEPSPC( LTOTG ) C---------------------------------------------------------------------- C local deposition velocites [ m/s ] C---------------------------------------------------------------------- CONTAINS FUNCTION DEPVVARS_INIT( ) RESULT ( SUCCESS ) IMPLICIT NONE LOGICAL SUCCESS INTEGER ALLOCSTAT CHARACTER( 96 ) :: XMSG SUCCESS = .TRUE. C------------------------------------------------------------------------------- C For M3DRY, set up core species, and include toxic and chlorine compounds. C------------------------------------------------------------------------------- DEPV_METHOD = 'M3DRY ' DEPSPC( 1 ) = 'SO2 ' DEPSPC( 2 ) = 'SULF ' DEPSPC( 3 ) = 'NO2 ' DEPSPC( 4 ) = 'NO ' DEPSPC( 5 ) = 'O3 ' DEPSPC( 6 ) = 'HNO3 ' DEPSPC( 7 ) = 'H2O2 ' DEPSPC( 8 ) = 'ALD ' DEPSPC( 9 ) = 'HCHO ' DEPSPC( 10 ) = 'OP ' DEPSPC( 11 ) = 'PAA ' DEPSPC( 12 ) = 'ORA ' DEPSPC( 13 ) = 'NH3 ' DEPSPC( 14 ) = 'PAN ' DEPSPC( 15 ) = 'HONO ' DEPSPC( 16 ) = 'CO ' DEPSPC( 17 ) = 'METHANOL ' DEPSPC( 18 ) = 'N2O5 ' DEPSPC( 19 ) = 'NO3 ' DEPSPC( 20 ) = 'GEN_ALD ' DEPSPC( 21 ) = 'CL2 ' DEPSPC( 22 ) = 'HOCL ' DEPSPC( 23 ) = 'HCL ' DEPSPC( 24 ) = 'FMCL ' DEPSPC( 25 ) = 'HG ' DEPSPC( 26 ) = 'HGIIGAS ' DEPSPC( 27 ) = 'TECDD_2378 ' DEPSPC( 28 ) = 'PECDD_12378 ' DEPSPC( 29 ) = 'HXCDD_123478 ' DEPSPC( 30 ) = 'HXCDD_123678 ' DEPSPC( 31 ) = 'HXCDD_123789 ' DEPSPC( 32 ) = 'HPCDD_1234678 ' DEPSPC( 33 ) = 'OTCDD ' DEPSPC( 34 ) = 'TECDF_2378 ' DEPSPC( 35 ) = 'PECDF_12378 ' DEPSPC( 36 ) = 'PECDF_23478 ' DEPSPC( 37 ) = 'HXCDF_123478 ' DEPSPC( 38 ) = 'HXCDF_123678 ' DEPSPC( 39 ) = 'HXCDF_234678 ' DEPSPC( 40 ) = 'HXCDF_123789 ' DEPSPC( 41 ) = 'HPCDF_1234678 ' DEPSPC( 42 ) = 'HPCDF_1234789 ' DEPSPC( 43 ) = 'OTCDF ' DEPSPC( 44 ) = 'NAPHTHALENE ' DEPSPC( 45 ) = '1NITRONAPHTHA ' DEPSPC( 46 ) = '2NITRONAPHTHA ' DEPSPC( 47 ) = '14NAPHTHOQUIN ' DEPSPC( 48 ) = 'HEXMETH_DIIS ' DEPSPC( 49 ) = 'HYDRAZINE ' DEPSPC( 50 ) = 'MAL_ANHYDRIDE ' DEPSPC( 51 ) = 'TOLUENE_DIIS ' DEPSPC( 52 ) = 'TRIETHYLAMINE ' DEPSPC( 53 ) = 'NTR ' DEPSPC( 54 ) = 'NTRM ' DEPSPC( 55 ) = 'MPAN ' DEPSPC( 56 ) = 'PPN ' DEPSPC( 57 ) = 'ISPD ' DEPSPC( 58 ) = 'NTRDN ' DEPSPC( 59 ) = 'NTRALK ' DEPSPC( 60 ) = 'NTROH ' DEPSPC( 61 ) = 'NTRPX ' DEPSPC( 62 ) = 'PROPNN ' DEPSPC( 63 ) = 'CLNO2 ' DEPSPC( 64 ) = 'ISOPNN ' DEPSPC( 65 ) = 'MTNO3 ' DEPSPC( 66 ) = 'IEPOX ' DEPSPC( 67 ) = 'HACET ' DEPSPC( 68 ) = 'SVALK1 ' DEPSPC( 69 ) = 'SVALK2 ' DEPSPC( 70 ) = 'SVBNZ1 ' DEPSPC( 71 ) = 'SVBNZ2 ' DEPSPC( 72 ) = 'SVISO1 ' DEPSPC( 73 ) = 'SVISO2 ' DEPSPC( 74 ) = 'SVPAH1 ' DEPSPC( 75 ) = 'SVPAH2 ' DEPSPC( 76 ) = 'SVSQT ' DEPSPC( 77 ) = 'SVTOL1 ' DEPSPC( 78 ) = 'SVTOL2 ' DEPSPC( 79 ) = 'SVTRP1 ' DEPSPC( 80 ) = 'SVTRP2 ' DEPSPC( 81 ) = 'SVXYL1 ' DEPSPC( 82 ) = 'SVXYL2 ' DEPSPC( 83 ) = 'IO ' DEPSPC( 84 ) = 'OIO ' DEPSPC( 85 ) = 'I2O2 ' DEPSPC( 86 ) = 'I2O3 ' DEPSPC( 87 ) = 'I2O4 ' DEPSPC( 88 ) = 'HI ' DEPSPC( 89 ) = 'HOI ' DEPSPC( 90 ) = 'INO ' DEPSPC( 91 ) = 'INO2 ' DEPSPC( 92 ) = 'INO3 ' DEPSPC( 93 ) = 'BRO ' DEPSPC( 94 ) = 'HOBR ' DEPSPC( 95 ) = 'HBR ' DEPSPC( 96 ) = 'BRNO3 ' DEPSPC( 97 ) = 'BRNO2 ' DEPSPC( 98 ) = 'BRCL ' DEPSPC( 99 ) = 'DMS ' DEPSPC( 100) = 'MSA ' DEPSPC( 101) = 'METHANE ' DEPSPC( 102) = 'ACRYACID ' DEPSPC( 103) = 'CARBSULFIDE ' DEPSPC( 104) = 'ACETONITRILE ' DEPSPC( 105) = 'METH_NIT_PHEN ' ! 6-methyl-2-nitrophenol aka 6-nitro-o-cresol DEPSPC( 106) = 'PCVOC ' DEPSPC( 107) = 'INTR ' DEPSPC( 108) = 'ISPX ' DEPSPC( 109) = 'ROOH ' DEPSPC( 110) = 'LVPCSOG ' DEPSPC( 111) = 'VIVPO1 ' DEPSPC( 112) = 'VLVOO1 ' DEPSPC( 113) = 'VLVOO2 ' DEPSPC( 114) = 'VLVPO1 ' DEPSPC( 115) = 'VSVOO1 ' DEPSPC( 116) = 'VSVOO2 ' DEPSPC( 117) = 'VSVOO3 ' DEPSPC( 118) = 'VSVPO1 ' DEPSPC( 119) = 'VSVPO2 ' DEPSPC( 120) = 'VSVPO3 ' DEPSPC( 121) = 'FACD ' DEPSPC( 122) = 'KET ' DEPSPC( 123) = 'ETH ' DEPSPC( 124) = 'PNA ' DEPSPC( 125) = 'GLY ' DEPSPC( 126) = 'GLYD ' DEPSPC( 127) = 'MGLY ' DEPSPC( 128) = 'ETHA ' DEPSPC( 129) = 'ETOH ' DEPSPC( 130) = 'PAR ' DEPSPC( 131) = 'ACET ' DEPSPC( 132) = 'PRPA ' DEPSPC( 133) = 'ETHY ' DEPSPC( 134) = 'OLE ' DEPSPC( 135) = 'IOLE ' DEPSPC( 136) = 'IEPOX ' DEPSPC( 137) = 'BENZ ' DEPSPC( 138) = 'CRES ' DEPSPC( 139) = 'TOL ' DEPSPC( 140) = 'XYLMN ' DEPSPC( 141) = 'NAPH ' DEPSPC( 142) = 'CAT1 ' DEPSPC( 143) = 'SESQ ' DEPSPC( 144) = 'TERP ' DEPSPC( 145) = 'ISOP ' DEPSPC( 146) = 'OPEN ' DEPSPC( 147) = 'XOPN ' DEPSPC( 148) = 'SOAALK ' DEPSPC( 149) = 'BUTADIENE13 ' DEPSPC( 150) = 'ACROLEIN ' DEPSPC( 151) = 'SVMT1 ' DEPSPC( 152) = 'SVMT2 ' DEPSPC( 153) = 'SVMT3 ' DEPSPC( 154) = 'SVMT4 ' DEPSPC( 155) = 'SVMT5 ' DEPSPC( 156) = 'SVMT6 ' DEPSPC( 157) = 'SVMT7 ' DEPSPC( 158) = 'SVAVB1 ' DEPSPC( 159) = 'SVAVB2 ' DEPSPC( 160) = 'SVAVB3 ' DEPSPC( 161) = 'SVAVB4 ' DEPSPC( 162) = 'CLNO3 ' DEPSPC( 163) = 'FMBR ' DEPSPC( 164) = 'I2 ' DEPSPC( 165) = 'CH3I ' DEPSPC( 166) = 'ICL ' DEPSPC( 167) = 'IBR ' DEPSPC( 168) = 'MI2 ' DEPSPC( 169) = 'MIB ' DEPSPC( 170) = 'MIC ' DEPSPC( 171) = 'BR2 ' DEPSPC( 172) = 'MB3 ' DEPSPC( 173) = 'MB2 ' DEPSPC( 174) = 'MB2C ' DEPSPC( 175) = 'MBC2 ' DEPSPC( 176) = 'MBC ' DEPSPC( 177) = 'CLO ' DEPSPC( 178) = 'ACD ' DEPSPC( 179) = 'ACE ' DEPSPC( 180) = 'ACRO ' DEPSPC( 181) = 'ACT ' DEPSPC( 182) = 'API ' DEPSPC( 183) = 'BALD ' DEPSPC( 184) = 'BDE13 ' DEPSPC( 185) = 'BEN ' DEPSPC( 186) = 'CSL ' DEPSPC( 187) = 'DCB1 ' DEPSPC( 188) = 'DCB2 ' DEPSPC( 189) = 'DCB3 ' DEPSPC( 190) = 'EOH ' DEPSPC( 191) = 'ETE ' DEPSPC( 192) = 'ETEG ' DEPSPC( 193) = 'FURAN ' DEPSPC( 194) = 'FURANONE ' DEPSPC( 195) = 'HC10 ' DEPSPC( 196) = 'HC3 ' DEPSPC( 197) = 'HC5 ' DEPSPC( 198) = 'HKET ' DEPSPC( 199) = 'ISHP ' DEPSPC( 200) = 'ISO ' DEPSPC( 201) = 'ISON ' DEPSPC( 202) = 'LIM ' DEPSPC( 203) = 'LIMAL ' DEPSPC( 204) = 'MACR ' DEPSPC( 205) = 'MAHP ' DEPSPC( 206) = 'MCT ' DEPSPC( 207) = 'MEK ' DEPSPC( 208) = 'MOH ' DEPSPC( 209) = 'MVK ' DEPSPC( 210) = 'NALD ' DEPSPC( 211) = 'OLI ' DEPSPC( 212) = 'OLT ' DEPSPC( 213) = 'ONIT ' DEPSPC( 214) = 'OP1 ' DEPSPC( 215) = 'OP2 ' DEPSPC( 216) = 'OPB ' DEPSPC( 217) = 'ORA1 ' DEPSPC( 218) = 'ORA2 ' DEPSPC( 219) = 'PHEN ' DEPSPC( 220) = 'PINAL ' DEPSPC( 221) = 'PROG ' DEPSPC( 222) = 'VROCIOXY ' DEPSPC( 223) = 'VROCP4ALK ' DEPSPC( 224) = 'VROCP4OXY2 ' DEPSPC( 225) = 'VROCP5ALK ' DEPSPC( 226) = 'VROCP5ARO ' DEPSPC( 227) = 'VROCP5OXY1 ' DEPSPC( 228) = 'VROCP6ALK ' DEPSPC( 229) = 'VROCP6ARO ' DEPSPC( 230) = 'VROCP6OXY1 ' DEPSPC( 231) = 'ROH ' DEPSPC( 232) = 'SLOWROC ' DEPSPC( 233) = 'TRPN ' DEPSPC( 234) = 'UALD ' DEPSPC( 235) = 'XYE ' DEPSPC( 236) = 'XYM ' DEPSPC( 237) = 'ELHOM ' DEPSPC( 238) = 'HOM ' DEPSPC( 239) = 'OP3 ' DEPSPC( 240) = 'VROCN1ALK ' DEPSPC( 241) = 'VROCN1OXY1 ' DEPSPC( 242) = 'VROCN1OXY3 ' DEPSPC( 243) = 'VROCN1OXY6 ' DEPSPC( 244) = 'VROCN2ALK ' DEPSPC( 245) = 'VROCN2OXY2 ' DEPSPC( 246) = 'VROCN2OXY4 ' DEPSPC( 247) = 'VROCN2OXY8 ' DEPSPC( 248) = 'VROCP0ALK ' DEPSPC( 249) = 'VROCP0OXY2 ' DEPSPC( 250) = 'VROCP0OXY4 ' DEPSPC( 251) = 'VROCP1ALK ' DEPSPC( 252) = 'VROCP1OXY1 ' DEPSPC( 253) = 'VROCP1OXY3 ' DEPSPC( 254) = 'VROCP2ALK ' DEPSPC( 255) = 'VROCP2OXY2 ' DEPSPC( 256) = 'VROCP3ALK ' DEPSPC( 257) = 'VROCP3OXY2 ' DEPSPC( 258) = 'IPN ' DEPSPC( 259) = 'IPC ' DEPSPC( 260) = 'EBZ ' DEPSPC( 261) = 'XYL ' DEPSPC( 262) = 'STY ' DEPSPC( 263) = 'IPX ' DEPSPC( 264) = 'INALD ' DEPSPC( 265) = 'HONIT ' N_USE_DEPSPC = 0 USE_DEPSPC = .FALSE. ! array RETURN END FUNCTION DEPVVARS_INIT END MODULE DEPVVARS ================================================ FILE: CCTM/src/depv/m3dry/DEPV_DEFN.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! !::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: MODULE DEPV_DEFN !----------------------------------------------------------------------- C Function: deposition velocity interface to the chemistry-transport model C Revision History: C 24 Nov 2006 J.Young: initial implementation using Bill Hutzell's and C Tanya Otte's work C 29 Jan 2010 D. Wong: Eliminate potential race condition at the MYPE = 0 C to open the diagnostic file. Eliminate the BARRIER C and the CLOSE3 and OPEN3. C 21 Jun 2010 J.Young: convert for Namelist redesign C 27 Jan 2011 J.Young: remove references to AERO3 and AERO4 C 20 Jan 2011 J. Bash: Passed the component fluxes and tstep between vdiff C & m3dry C 16 Feb 2011 S.Roselle: replaced I/O API include files with UTILIO_DEFN C 5 May 2011 J.Young: remove writing diagnostic output for initial call C 22 Sep 2011 D. Wong: - incorporated twoway model implemenation C - used a robust way to compute WTIME C 11 Oct 2011 J.Young: PUBLIC/PRIVATE sections, re-do WTIME computation C and WTIME computation for MOSAIC C 13 Dec 2011 J.Young: removed separate SOA variables - no longer used C 18 Sep 2012 D. Wong: invoke INIT_LSM regardless of MOSAIC or ABFLUX option C 07 Jul 14 B.Hutzell: replaced mechanism include file(s) with fortran module C 7 Nov 2014 J. Bash: Modified for the restructuring of vidff. Moved constants and data to C ASX_DATA_MOD. C Aug 2015 D. Wong: Replaced MYPE with IO_PE_INCLUSIVE to facilitate C parallel I/O implementation C Added a block of code to let non I/O processors to C open CTM_DEPV_DIAG in parallel I/O implementation C 1 Feb 19 David Wong: Implemented centralized I/O approach, removed all MY_N C clauses C 12 Dec 19 S.L.Napelenok: ddm-3d implementation for version 5.3.1 C August 2020 J Pleim: Fixed timestep in call to m3dry. Corrects NH3 bidi emis, dep outputs C------------------------------------------------------------------------------- USE RUNTIME_VARS USE CGRID_SPCS, ONLY : N_SPC_DEPV #ifdef sens USE DDM3D_DEFN, ONLY : NP, NPMAX, S_PVD, S_CGRIDL1, S_PLDV #endif IMPLICIT NONE C model depositon velocites array REAL, ALLOCATABLE, SAVE :: DEPV( :,:,: ) C no. of deposition velocity model species INTEGER, SAVE :: N_GAS_DEPV C ddep spc conversion factors REAL, ALLOCATABLE, SAVE :: DD_CONV( : ) C model-oriented bi-directional production [ppm-m/s] REAL, ALLOCATABLE, SAVE :: PLDV( :,:,: ) C Dry dep flux of NH3 for bidi [kg/ha hr] REAL, ALLOCATABLE, SAVE :: NH3_EMIS( :,: ) REAL, ALLOCATABLE, SAVE :: NH3_DDEP( :,: ) !C flag for mosaic - luc specific deposition - within in-lining depv ! LOGICAL, SAVE :: MOSAIC = .FALSE. !C flag for mosaic - luc specific deposition - stomatal flux only - within in-lining depv ! LOGICAL, SAVE :: FST = .FALSE. ! PUBLIC DEPV, DEPVJ, DEPVJ_FST, DD_CONV, PLDV, CMP, ! & ILDEPV, SFC_HONO, ABFLUX, MOSAIC, FST, N_GAS_DEPV, ! & DEPV_INIT, GET_DEPV PUBLIC DEPV, N_SPC_DEPV, DD_CONV, PLDV, N_GAS_DEPV, & DEPV_INIT, GET_DEPV, NH3_EMIS, NH3_DDEP PRIVATE C gas species (gas-phase and gas non-reactive) deposition velocities REAL, ALLOCATABLE, SAVE :: DEPVEL_GAS( :,:,: ) C m3dry-oriented bi-directional production [ppm-m/s] REAL, ALLOCATABLE, SAVE :: PVD( :,:,: ) C CGRID for m3dry bi-directional flux calculation REAL, ALLOCATABLE, SAVE :: CGRIDL1( :,:,: ) C flag for diagnostic DEPV file INTEGER, SAVE :: N_UNIQUE_GDEPV ! gas depv CHARACTER( 16 ), ALLOCATABLE, SAVE :: UNIQUE_GDEPV( : ) INTEGER, ALLOCATABLE, SAVE :: GAS_DEPV_SUR( : ) LOGICAL, ALLOCATABLE, SAVE :: GAS_DEPV_FOUND( : ) INTEGER, SAVE :: N_UNIQUE_ADEPV ! aero depv CHARACTER( 16 ), ALLOCATABLE, SAVE :: UNIQUE_ADEPV( : ) INTEGER, ALLOCATABLE, SAVE :: AER_DEPV_SUR( : ) INTEGER, SAVE :: NR_OFFSET ! Offset to NR start in CGRID REAL, ALLOCATABLE, SAVE :: ADEPV( :,:,: ) ! Aerosol dep vel from ! subroutine AERO_DEPV REAL, ALLOCATABLE, SAVE :: DBUFF( :,: ) ! diagnostic output buffer REAL, ALLOCATABLE, SAVE :: DBUFF3( :,:,: ) ! diagnostic output buffer with 3 dimensions REAL, ALLOCATABLE, SAVE :: UCROSS( :,:,:) REAL, ALLOCATABLE, SAVE :: VCROSS( :,:,:) REAL, ALLOCATABLE, SAVE :: DLUSE( :,: ) CONTAINS C----------------------------------------------------------------------- FUNCTION DEPV_INIT( JDATE, JTIME, TSTEP, CGRID ) RESULT ( SUCCESS ) USE HGRD_DEFN USE RXNS_DATA ! chemical mechanism data USE CGRID_SPCS ! CGRID mechanism species USE DEPVVARS USE UTILIO_DEFN ! USE MOSAIC_MOD, Only: Init_Mosaic USE LSM_MOD, Only: Init_LSM !, n_lufrac USE BIDI_MOD, Only: Init_Bidi, HgBidi IMPLICIT NONE C Includes: INCLUDE SUBST_CONST ! constants INCLUDE SUBST_FILES_ID ! file name parameters C Arguments: INTEGER JDATE, JTIME, TSTEP( 3 ) REAL, POINTER :: CGRID( :,:,:,: ) LOGICAL SUCCESS C External Functions: INTEGER, EXTERNAL :: FINDEX ! finds index of a number in a list C Parameters: REAL, PARAMETER :: RGAS1 = 1.0 / RGASUNIV ! univ. gas constant reciprocal REAL, PARAMETER :: M2PHA = 1.0E+04 ! 1 hectare = 1.0e4 m**2 REAL, PARAMETER :: CMLMR = 1.0E+06 ! ppmV/Molar Mixing Ratio REAL, PARAMETER :: CNVTD = M2PHA / CMLMR / MWAIR ! combined ddep conv factor C Local variables: CHARACTER( 16 ), ALLOCATABLE :: ALL_GAS_DEPV( : ) LOGICAL, ALLOCATABLE :: AE_DEPV_FOUND( : ) C variables for deposition velocities diagnostic file INTEGER :: STATUS ! ENV... status CHARACTER( 80 ) :: VARDESC ! environment variable description C environment variable for diagnostic DEPV file CHARACTER( 16 ) :: CTM_DEPV_FILE = 'CTM_DEPV_FILE' CHARACTER( 16 ) :: PNAME = 'DEPV_INIT' CHARACTER( 120 ) :: XMSG = ' ' INTEGER NDX, NDX2, NDX3 ! Temp index INTEGER ALLOCSTAT INTEGER J, L, N, S, V, STRT INTEGER, SAVE :: n_spc_m3dry = ltotg ! from DEPVVARS module INTERFACE SUBROUTINE OPDEPV_DIAG ( JDATE, JTIME, TSTEP, & N_GDEPV_NAMES, GDEPV_NAMES, & N_ADEPV_NAMES, ADEPV_NAMES ) INTEGER, INTENT( IN ) :: JDATE, JTIME, TSTEP INTEGER, INTENT( IN ) :: N_GDEPV_NAMES CHARACTER( 16 ), INTENT( IN ) :: GDEPV_NAMES( : ) INTEGER, INTENT( IN ) :: N_ADEPV_NAMES CHARACTER( 16 ), INTENT( IN ) :: ADEPV_NAMES( : ) END SUBROUTINE OPDEPV_DIAG SUBROUTINE GAS_DEPV_MAP ( N_DEPV_NAMES, DEPV_NAMES, DEPV_SUR ) INTEGER, INTENT( IN ) :: N_DEPV_NAMES CHARACTER( 16 ), INTENT( INOUT ) :: DEPV_NAMES( : ) INTEGER, INTENT( OUT ) :: DEPV_SUR( : ) END SUBROUTINE GAS_DEPV_MAP END INTERFACE C----------------------------------------------------------------------- SUCCESS = .TRUE. N_GAS_DEPV = N_GC_DEPV + N_NR_DEPV + N_TR_DEPV ALLOCATE ( DEPV( N_SPC_DEPV+1,NCOLS,NROWS ), & PLDV( N_SPC_DEPV,NCOLS,NROWS ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating DEPV or PLDV arrays' CALL M3WARN( PNAME, JDATE, JTIME, XMSG ) SUCCESS = .FALSE.; RETURN END IF #ifdef sens ALLOCATE ( S_PLDV( NPMAX,N_SPC_DEPV,NCOLS,NROWS ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating S_PLDV array' CALL M3WARN( PNAME, JDATE, JTIME, XMSG ) SUCCESS = .FALSE.; RETURN END IF S_PLDV = 0.0 ! array assignment #endif ALLOCATE ( DEPVEL_GAS( N_GAS_DEPV,NCOLS,NROWS ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating DEPVEL_GAS array' CALL M3WARN( PNAME, JDATE, JTIME, XMSG ) SUCCESS = .FALSE.; RETURN END IF C Initialize deposition velocities for nondeposited species to zero: C setting DEPV( N_SPC_DEPV+1,C,R ) = 0.0 accounts for dry dep. species names C as a subset of the vert. diffused species list DEPV = 0.0 ! array assignment PLDV = 0.0 ! array assignment ALLOCATE ( DD_CONV( N_SPC_DEPV+1 ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating DD_CONV' CALL M3WARN( PNAME, JDATE, JTIME, XMSG ) SUCCESS = .FALSE.; RETURN END IF C set dry dep conversion factor (done here so that vdiff doesn`t need the include files) S = 0 DO V = 1, N_GC_DEPV S = S + 1 DD_CONV( S ) = CNVTD * GC_MOLWT( GC_DEPV_MAP( V ) ) END DO DO V = 1, N_AE_DEPV S = S + 1 IF ( AE_SPC( AE_DEPV_MAP( V ) )( 1:3 ) .EQ. 'NUM' ) THEN DD_CONV( S ) = M2PHA * 1.0E+3 / MWAIR ! --> #/Ha ELSE IF ( AE_SPC( AE_DEPV_MAP( V ) )( 1:3 ) .EQ. 'SRF' ) THEN DD_CONV( S ) = M2PHA * 1.0E+03 / MWAIR ! --> M**2/Ha ELSE DD_CONV( S ) = CNVTD * AE_MOLWT( AE_DEPV_MAP( V ) ) END IF END DO DO V = 1, N_NR_DEPV S = S + 1 DD_CONV( S ) = CNVTD * NR_MOLWT( NR_DEPV_MAP( V ) ) END DO DO V = 1, N_TR_DEPV S = S + 1 DD_CONV( S ) = CNVTD * TR_MOLWT( TR_DEPV_MAP( V ) ) END DO C Initialize IF ( N_AE_DEPV .GT. 0 ) THEN ALLOCATE ( ADEPV( N_AE_DEPV,NCOLS,NROWS ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating ADEPV' CALL M3WARN( PNAME, JDATE, JTIME, XMSG ) SUCCESS = .FALSE.; RETURN END IF END IF INIT_GAS_DV: & IF ( N_GAS_DEPV .GT. 0 ) THEN ALLOCATE ( ALL_GAS_DEPV( N_GAS_DEPV ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating ALL_GAS_DEPV' CALL M3WARN( PNAME, JDATE, JTIME, XMSG ) SUCCESS = .FALSE.; RETURN END IF DO V = 1, N_GC_DEPV ALL_GAS_DEPV( V ) = GC_DEPV( V ) END DO STRT = N_GC_DEPV DO V = 1, N_NR_DEPV ALL_GAS_DEPV( V + STRT ) = NR_DEPV( V ) END DO STRT = N_GC_DEPV + N_NR_DEPV DO V = 1, N_TR_DEPV ALL_GAS_DEPV( V + STRT ) = TR_DEPV( V ) END DO C Identify and remove multiple occurrences of gas deposition velocities ALLOCATE( GAS_DEPV_FOUND( N_GAS_DEPV ), & GAS_DEPV_SUR ( N_GAS_DEPV ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating GAS_DEPV_FOUND or GAS_DEPV_SUR' CALL M3WARN( PNAME, JDATE, JTIME, XMSG ) SUCCESS = .FALSE.; RETURN END IF GAS_DEPV_FOUND = .FALSE. N_UNIQUE_GDEPV = 0 LOOP_UNIQUE: & DO N = 1, N_GAS_DEPV IF ( GAS_DEPV_FOUND( N ) ) CYCLE LOOP_UNIQUE DO V = 1, N_GAS_DEPV IF ( ALL_GAS_DEPV( N ) .EQ. ALL_GAS_DEPV( V ) ) THEN IF ( GAS_DEPV_FOUND( V ) ) CYCLE LOOP_UNIQUE N_UNIQUE_GDEPV = N_UNIQUE_GDEPV + 1 GAS_DEPV_FOUND( V ) = .TRUE. CYCLE LOOP_UNIQUE END IF END DO END DO LOOP_UNIQUE ALLOCATE( UNIQUE_GDEPV( N_UNIQUE_GDEPV ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating UNIQUE_GDEPV' CALL M3WARN( PNAME, JDATE, JTIME, XMSG ) SUCCESS = .FALSE.; RETURN END IF #ifdef Verbose write( logdev,* ) ' ' write( logdev,* ) ' All Gas DEPVs Requested Gas DEPV' #endif V = 1 DO N = 1, N_GAS_DEPV IF ( GAS_DEPV_FOUND( N ) ) THEN UNIQUE_GDEPV( V ) = ALL_GAS_DEPV( N ) #ifdef Verbose write( logdev,1019 ) n, all_gas_depv( n ), v, unique_gdepv( v ) 1019 format( 2x, i5, 1x, a16, 2x, i5, 1x, a16 ) #endif V = V + 1 #ifdef Verbose else write( logdev,1019 ) n, all_gas_depv( n ), -1, ' ' #endif END IF END DO C Get pointers to model species (GAS_DEPV_SUR) CALL GAS_DEPV_MAP ( N_UNIQUE_GDEPV, UNIQUE_GDEPV, GAS_DEPV_SUR ) C Identify and remove multiple occurrences of aerosol deposition velocities ALLOCATE( AE_DEPV_FOUND( N_AE_DEPV ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating AE_DEPV_FOUND' CALL M3WARN( PNAME, JDATE, JTIME, XMSG ) SUCCESS = .FALSE.; RETURN END IF AE_DEPV_FOUND = .FALSE. N_UNIQUE_ADEPV = 0 AERO_UNIQUE: & DO N = 1, N_AE_DEPV IF ( AE_DEPV_FOUND( N ) ) CYCLE AERO_UNIQUE DO V = 1, N_AE_DEPV IF ( AE_DEPV( N ) .EQ. AE_DEPV( V ) ) THEN IF ( AE_DEPV_FOUND( V ) ) CYCLE AERO_UNIQUE N_UNIQUE_ADEPV = N_UNIQUE_ADEPV + 1 AE_DEPV_FOUND( V ) = .TRUE. CYCLE AERO_UNIQUE END IF END DO END DO AERO_UNIQUE ALLOCATE( UNIQUE_ADEPV( N_UNIQUE_ADEPV ) ) ALLOCATE( AER_DEPV_SUR( N_UNIQUE_ADEPV ) ) #ifdef Verbose write( logdev,* ) ' ' write( logdev,* ) ' Requested Aerosol DEPV and pointer' #endif V = 1 DO N = 1, N_AE_DEPV IF ( AE_DEPV_FOUND( N ) ) THEN UNIQUE_ADEPV( V ) = AE_DEPV( N ) AER_DEPV_SUR( V ) = N #ifdef Verbose write( logdev,1021 ) n, v, unique_adepv( v ), aer_depv_sur( v ) 1021 format( 2i5, 1x, a16, i5 ) #endif V = V + 1 END IF END DO #ifdef Verbose write( logdev,* ) ' ' #endif ALLOCATE ( CGRIDL1( N_GAS_DEPV,NCOLS,NROWS ), & PVD ( N_GAS_DEPV,NCOLS,NROWS ), & NH3_EMIS( NCOLS,NROWS), & NH3_DDEP(NCOLS,NROWS), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating CGRIDL1, CMP or PVD arrays' CALL M3WARN( PNAME, JDATE, JTIME, XMSG ) SUCCESS = .FALSE.; RETURN END IF CGRIDL1 = 0.0 ! array assignment (PVD initalized in m3dry) NH3_EMIS = 0.0 NH3_DDEP = 0.0 #ifdef sens ALLOCATE ( S_CGRIDL1( NPMAX,N_GAS_DEPV,NCOLS,NROWS ), & S_PVD ( NPMAX,N_GAS_DEPV,NCOLS,NROWS ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating S_CGRIDL1 or S_PVD arrays' CALL M3WARN( PNAME, JDATE, JTIME, XMSG ) SUCCESS = .FALSE.; RETURN END IF S_CGRIDL1 = 0.0 #endif END IF INIT_GAS_DV WRITE( LOGDEV,'( 5X, A / )' ) 'DEPV_INIT: completed INIT_GAS_DV block ' IF ( DEPV_DIAG ) THEN ALLOCATE ( DBUFF( NCOLS,NROWS ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating DBUFF' CALL M3WARN( PNAME, JDATE, JTIME, XMSG ) SUCCESS = .FALSE.; RETURN END IF IF ( IO_PE_INCLUSIVE ) THEN CALL OPDEPV_DIAG ( JDATE, JTIME, TSTEP( 1 ), & N_UNIQUE_GDEPV, UNIQUE_GDEPV, & N_UNIQUE_ADEPV, UNIQUE_ADEPV ) END IF END IF END FUNCTION DEPV_INIT C----------------------------------------------------------------------- SUBROUTINE GET_DEPV( JDATE, JTIME, TSTEP, CGRID) C----------------------------------------------------------------------- USE HGRD_DEFN USE CGRID_SPCS ! CGRID mechanism species USE DEPVVARS USE UTILIO_DEFN USE ASX_DATA_MOD, Only: GRID_DATA !, MOSAIC_DATA #ifdef mpas Use util_module, only : time2sec, nextime, currstep use mio_module #endif IMPLICIT NONE C Arguments: INTEGER, INTENT( IN ) :: JDATE, JTIME ! simulation date&time, tstep INTEGER, INTENT( IN ) :: TSTEP( 3 ) ! time step vector (HHMMSS) ! TSTEP(1) = local output step ! TSTEP(2) = sciproc sync. step (chem) ! TSTEP(3) = twoway model time step w.r.t. wrf time ! step and wrf/cmaq call frequency REAL, POINTER :: CGRID( :,:,:,: ) ! concentrations INCLUDE SUBST_CONST ! constants INCLUDE SUBST_FILES_ID ! file name parameters C Parameters: REAL, PARAMETER :: RGAS1 = 1.0 / RGASUNIV ! univ. gas constant reciprocal REAL, PARAMETER :: H_VAP = 156.0E+03 ! enthalpy of vaporization (J/mol) REAL, PARAMETER :: TREF = 298.0 ! Reference temperature for Cstar REAL, PARAMETER :: TREF1 = 1.0 / TREF ! Reciprocal ref temperature C Local variables: INTEGER STRT, FINI LOGICAL :: WRITE_TIME ! write to file flag LOGICAL :: WRITE_TIME_MOS ! write to file flag INTEGER, SAVE :: WSTEP = 0 ! local write counter [HHMMSS] INTEGER, SAVE :: WSTEP_MOS = 0 ! local write counter [HHMMSS] INTEGER :: CDATE, CTIME ! step beginning date and time INTEGER :: WDATE, WTIME ! write date and time REAL DTSEC CHARACTER( 16 ) :: PNAME = 'GET_DEPV ' CHARACTER( 120 ) :: XMSG = ' ' INTEGER C, R, N, V, NDX, J LOGICAL, SAVE :: FIRSTIME = .TRUE. CHARACTER (20) :: TIME_STAMP integer :: year, month, day, hour, minute #ifdef Verbose integer cw, rw #endif INTERFACE SUBROUTINE RDDEPV ( JDATE, JTIME, DEPV ) INTEGER, INTENT( IN ) :: JDATE, JTIME REAL, INTENT( OUT ) :: DEPV( :,:,: ) END SUBROUTINE RDDEPV SUBROUTINE CGRID_DEPV( GAS_DEPV_FOUND, GAS_DEPV_SUR, CGRID, CGRIDL1 ) LOGICAL, INTENT( IN ) :: GAS_DEPV_FOUND( : ) INTEGER, INTENT( IN ) :: GAS_DEPV_SUR( : ) REAL, POINTER :: CGRID( :,:,:,: ) REAL, INTENT( OUT ) :: CGRIDL1( :,:,: ) END SUBROUTINE CGRID_DEPV SUBROUTINE M3DRY ( JDATE, JTIME, DTSEC, & CGRIDL1, DEPVEL_GAS, PVD, NH3_DDEP) INTEGER, INTENT( IN ) :: JDATE, JTIME REAL, INTENT( IN ) :: dtsec REAL, INTENT( IN ) :: CGRIDL1( :,:,: ) REAL, INTENT( OUT ) :: DEPVEL_GAS( :,:,: ), PVD( :,:,: ),NH3_DDEP(:,:) END SUBROUTINE M3DRY SUBROUTINE AERO_DEPV ( CGRID, JDATE, JTIME, TSTEP, ADEPV ) REAL, POINTER :: CGRID( :,:,:,: ) INTEGER, INTENT( IN ) :: JDATE, JTIME, TSTEP REAL, INTENT( OUT ) :: ADEPV( :,:,: ) END SUBROUTINE AERO_DEPV END INTERFACE C----------------------------------------------------------------------- DEPV = 0.0 ! Made default for Hg bidi JOB 9/12/11 CALL CGRID_DEPV( GAS_DEPV_FOUND, GAS_DEPV_SUR, CGRID, CGRIDL1 ) DTSEC = FLOAT( TIME2SEC( TSTEP( 2 ) ) ) CALL M3DRY ( JDATE, JTIME, DTSEC, & CGRIDL1, DEPVEL_GAS, PVD, NH3_DDEP ) #ifdef Verbose cw = ncols/2; rw = nrows/2 ! cw = 17; rw = 43 write( logdev,1033 ) cw, rw 1033 format( /5x, 'Depv diagnostics for my_col, my_row:', i4, ', ', i4 & /6x, 'v', 3x, 'n', 1x, 'variable', 10x, 'ndx', & 2x, 'depvel_gas', 4x, 'depv', 9x, 'pvd', 10x, 'pldv' ) #endif N = 0 STRT = 1 FINI = N_GC_DEPV DO V = STRT, FINI N = N + 1 NDX = GAS_DEPV_SUR( N ) DO R = 1, NROWS DO C = 1, NCOLS DEPV( V,C,R ) = GC_DEPV_FAC( N ) * DEPVEL_GAS( NDX,C,R ) PLDV( V,C,R ) = PVD( NDX,C,R ) #ifdef sens DO NP = 1, NPMAX S_PLDV( NP,V,C,R ) = S_PVD( NP,NDX,C,R ) END DO #endif #ifdef Verbose if ( c .eq. cw .and. r .eq. rw ) then write( logdev,1039 ) v, n, gc_depv( n ), ndx, & depvel_gas( ndx,c,r ), depv( v,c,r ), & pvd( ndx,c,r ), pldv( v,c,r ) 1039 format( 3x, 2i4, 1x, a16, 1x, i3, 4( 1x, 1pe12.4 ) ) end if #endif END DO END DO END DO N = 0 STRT = N_GC_DEPV + N_AE_DEPV + 1 FINI = N_GC_DEPV + N_AE_DEPV + N_NR_DEPV DO V = STRT, FINI N = N + 1 NDX = GAS_DEPV_SUR( N+N_GC_DEPV ) DO R = 1, NROWS DO C = 1, NCOLS DEPV( V,C,R ) = NR_DEPV_FAC( N ) * DEPVEL_GAS( NDX,C,R ) PLDV( V,C,R ) = PVD( NDX,C,R ) #ifdef sens DO NP = 1, NPMAX S_PLDV( NP,V,C,R ) = S_PVD( NP,NDX,C,R ) END DO #endif #ifdef Verbose if ( c == cw .and. r == rw ) then write( logdev,1039 ) v, n, nr_depv( n ), ndx, & depvel_gas( ndx,c,r ), depv( v,c,r ), & pvd( ndx,c,r ), pldv( v,c,r ) end if #endif END DO END DO END DO N = 0 STRT = N_GC_DEPV + N_AE_DEPV + N_NR_DEPV + 1 FINI = N_GC_DEPV + N_AE_DEPV + N_NR_DEPV + N_TR_DEPV DO V = STRT, FINI N = N + 1 NDX = GAS_DEPV_SUR( N + N_GC_DEPV + N_NR_DEPV ) DO R = 1, NROWS DO C = 1, NCOLS DEPV( V,C,R ) = TR_DEPV_FAC( N ) * DEPVEL_GAS( NDX,C,R ) PLDV( V,C,R ) = PVD( NDX,C,R ) #ifdef sens DO NP = 1, NPMAX S_PLDV( NP,V,C,R ) = S_PVD( NP,NDX,C,R ) END DO #endif #ifdef Verbose if ( c == cw .and. r == rw ) then write( logdev,1039 ) v, n, tr_depv( n ), ndx, & depvel_gas( ndx,c,r ), depv( v,c,r ), & pvd( ndx,c,r ), pldv( v,c,r ) end if #endif END DO END DO END DO IF ( N_AE_DEPV .GT. 0 ) THEN CALL AERO_DEPV( CGRID, JDATE, JTIME, TSTEP( 1 ), ADEPV ) STRT = N_GC_DEPV + 1 FINI = N_GC_DEPV + N_AE_DEPV DO R = 1, NROWS DO C = 1, NCOLS N = 0 DO V = STRT, FINI N = N + 1 DEPV( V,C,R ) = AE_DEPV_FAC( N ) * ADEPV( N,C,R ) END DO END DO END DO END IF IF ( DEPV_DIAG ) THEN WRITE_TIME = .FALSE. WSTEP = WSTEP + TIME2SEC( TSTEP( 2 ) ) IF ( WSTEP .GE. TIME2SEC( TSTEP( 1 ) ) ) THEN WDATE = JDATE; WTIME = JTIME CALL NEXTIME( WDATE, WTIME, TSTEP( 2 ) ) IF ( .NOT. CURRSTEP( WDATE, WTIME, STDATE, STTIME, TSTEP( 1 ), & CDATE, CTIME ) ) THEN XMSG = 'Cannot get step date and time' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT3 ) END IF WDATE = CDATE; WTIME = CTIME WSTEP = 0 WRITE_TIME = .TRUE. END IF IF ( WRITE_TIME ) THEN #ifdef mpas call mio_time_format_conversion (wdate, wtime, time_stamp) #else #ifdef parallel_io IF ( FIRSTIME ) THEN FIRSTIME = .FALSE. IF ( DEPV_DIAG ) THEN IF ( .NOT. IO_PE_INCLUSIVE ) THEN IF ( .NOT. OPEN3( CTM_DEPV_DIAG, FSREAD3, PNAME ) ) THEN XMSG = 'Could not open ' // TRIM( CTM_DEPV_DIAG ) CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF END IF END IF END IF #endif #endif N = 0 DO V = 1, N_GC_DEPV N = N + 1 IF ( GAS_DEPV_FOUND( N ) ) THEN NDX = GAS_DEPV_SUR( N ) DO R = 1, NROWS DO C = 1, NCOLS DBUFF( C,R ) = 100.0 * DEPV( N,C,R ) ! cm/sec END DO END DO #ifdef mpas call mio_fwrite (CTM_DEPV_DIAG, UNIQUE_GDEPV( NDX), pname, & real(DBUFF(:,1), 4), TIME_STAMP) #else IF ( .NOT. WRITE3( CTM_DEPV_DIAG, UNIQUE_GDEPV( NDX ), & WDATE, WTIME, DBUFF ) ) THEN XMSG = 'Could not write ' // CTM_DEPV_DIAG // ' file' CALL M3EXIT ( PNAME, WDATE, WTIME, XMSG, XSTAT1 ) END IF #endif END IF END DO DO V = 1, N_NR_DEPV N = N + 1 IF ( GAS_DEPV_FOUND( N ) ) THEN NDX = GAS_DEPV_SUR( N ) DO R = 1, NROWS DO C = 1, NCOLS DBUFF( C,R ) = 100.0 * DEPV( N+N_AE_DEPV,C,R ) ! cm/sec END DO END DO #ifdef mpas call mio_fwrite (CTM_DEPV_DIAG, UNIQUE_GDEPV( NDX), pname, & real(DBUFF(:,1), 4), TIME_STAMP) #else IF ( .NOT. WRITE3( CTM_DEPV_DIAG, UNIQUE_GDEPV( NDX ), & WDATE, WTIME, DBUFF ) ) THEN XMSG = 'Could not write ' // CTM_DEPV_DIAG // ' file' CALL M3EXIT ( PNAME, WDATE, WTIME, XMSG, XSTAT1 ) END IF #endif END IF END DO DO N = 1, N_UNIQUE_ADEPV NDX = AER_DEPV_SUR( N ) DO R = 1, NROWS DO C = 1, NCOLS DBUFF( C,R ) = 100.0 * ADEPV( NDX,C,R ) ! cm/sec END DO END DO #ifdef mpas call mio_fwrite (CTM_DEPV_DIAG, UNIQUE_ADEPV( N ), pname, & real(DBUFF(:,1), 4), TIME_STAMP) #else IF ( .NOT. WRITE3( CTM_DEPV_DIAG, UNIQUE_ADEPV( N ), & WDATE, WTIME, DBUFF ) ) THEN XMSG = 'Could not write ' // CTM_DEPV_DIAG // ' file' CALL M3EXIT ( PNAME, WDATE, WTIME, XMSG, XSTAT1 ) END IF #endif END DO END IF ! write_time END IF ! DEPV_DIAG END SUBROUTINE GET_DEPV END MODULE DEPV_DEFN ================================================ FILE: CCTM/src/depv/m3dry/HGSIM.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: MODULE HGSIM C----------------------------------------------------------------------- C Function: This module contains the code to predict bidirectional C exchanges between the atmosphere and surface media using a two C layer resistance-capacitance model. Fluxes are parameterized by C applying Fick's law across the atmospheric surface media C concentration gradient. C C Revision History: C 12 Aug 2008 J. Bash initial implementation C 2 Apr 2009 J. Bash for solar irradation on the order of 1e-3 w/m2 C the mercury surface water photo redox scheme C became unstable. A conditional statement was C added to correct this instability. C 4 June 2009 J. Bash Corrected the time stamp on WRASX_MEDIA to be C consistant with other CMAQ modules reported by C (T.Myers) C 22 Oct 2009 J. Bash Corrected a units conversion error in ASWX and ATX C reported by (P. Pongprueksa) and added a more C robust soil diffusion model adapted from the C Community Land Model 3.5. C 13 Sept 2011 J. Bash Updated the Hg bidi model to share data with the C NH3 bidirectional exchange model in a more general C framework using BIDI_MOD.F and LSM_MOD.F modules. C Hg bidirectional exchange is now a run time option. C 17 Jan 2012 J. Bash Removed the dependence on the LAPACK libraries C and found analytical solutions to all the Hg C exchange equations. C 14 Feb 2013 J. Bash Added support for the NLCD 40 (2006) land use data C 15 Oct 2018 D. wong Moved INIT_MEDC_1 data extraction code to centralized_io_module.F C 01 Feb 2019 David Wong: Implemented centralized I/O approach, removed all MY_N clauses C C References: C C Bash, J.O. 2010, Description and initial simulaiton of a dynamic bi-directional C surface exchange model for mercury in CMAQ, J. Geophys. C Res., 115, D06305 C Mason, R.P., J.R. Reinfelder, F.M.M. Morel, 1996, Uptake, toxicity, and C trophic transfer of mercury in a coastal diatom, Environ. Sci. Technol. C 30, 1835-1845 C Scholtz, M.T., B.J. Van Heyst, W.H. Schroeder, 2003, Modelling of mercury C emissions from background soils, Sci. Tot. Environ. 304, 185-207 C Trapp S. and Matthies, 1995, Generic one-compartment model for uptake of C organic chemicals by foliar vegetations. Environ. Sci. Technol. 29, C 2333-2338 C Trapp, S., 2004, Plant uptake and transport for netural and ionic chemicals, C Environ. Sci. Pollut. Res. 11, 33-39 C Whalin, L., E.-H. Kim, R. Mason, 2007, Factors influencing the oxidation, C reduciton, methylation and demethylation of mercury species in costal C water, Marine Chem. 107, 278-294 C----------------------------------------------------------------------- IMPLICIT NONE ! Shared variables ! Private variables used in this routine and REAL(8), ALLOCATABLE, PRIVATE :: HgLU_Fac(:) REAL(8), ALLOCATABLE, SAVE, PRIVATE :: fevgrn(:,:) ! fraction of evergreen land use REAL(8), PARAMETER, PRIVATE :: zsurf = 1d+0 ! ocean slab depth (m) REAL(8), PARAMETER, PRIVATE :: ZG = 5d-2 CHARACTER( 96 ), PRIVATE :: XMSG = ' ' CHARACTER( 80 ), SAVE, Private :: LAND_SCHEME ! variable needed for analytical solutions of exchange equations REAL(8), ALLOCATABLE, PRIVATE :: KO(:,:) REAL(8), ALLOCATABLE, PRIVATE :: EIVAL(:) REAL(8), ALLOCATABLE, PRIVATE :: VR(:,:) REAL(8), PRIVATE :: ax ! coefficients used of the REAL(8), PRIVATE :: bx ! quadratic and cubic equations REAL(8), PRIVATE :: cx ! ATX and ASWX REAL(8), PRIVATE :: Qx ! coefficients used to solve for REAL(8), PRIVATE :: Rx ! the roots of the cubic equation REAL(8), PRIVATE :: ThetaX ! in ATX REAL(8), PRIVATE :: ev1 ! Temporary variables used to REAL(8), PRIVATE :: ev2 ! calculate the eigen vectors REAL(8), PRIVATE :: ev3 ! in ATX and ASWX REAL(8), PRIVATE :: evmax ! REAL(8), PRIVATE :: DetKO ! Variables used to solve for the REAL(8), PRIVATE :: DetK1 ! non-homogeneous part of the solution REAL(8), PRIVATE :: DetK2 ! a system of equations in ATX and REAL(8), PRIVATE :: DetK3 ! ASWX using Cramer's Rule REAL(8), PRIVATE :: DetEV ! Variables used to solve for the REAL(8), PRIVATE :: DetE1 ! integration constants in the REAL(8), PRIVATE :: DetE2 ! system of equations in ATX and REAL(8), PRIVATE :: DetE3 ! ASWX using Cramer's Rule INTEGER, PRIVATE :: NC INTEGER, PRIVATE :: i INTEGER, PRIVATE :: j REAL(8), ALLOCATABLE, PRIVATE :: B( : ) ! Surface media concentration vector REAL(8), ALLOCATABLE, PRIVATE :: NHS( : ) ! non-homogenious solution INTEGER, SAVE, PRIVATE :: dt ! internal model time step C input/output parameters INTEGER, PRIVATE :: N_AQ_CONC ! aqueous media concentrations INTEGER, PRIVATE :: N_GAS_CONC ! gaseous media concentrations INTEGER, PRIVATE :: N_SOL_CONC ! solid media concentrations CHARACTER( 16 ), ALLOCATABLE, PRIVATE :: MEDIA_NAMES( : ) REAL(8), ALLOCATABLE, PRIVATE :: MLAI( :,: ) ! used to track change in LAI CONTAINS SUBROUTINE INIT_HGSIM( JDATE, JTIME ) USE HGRD_DEFN ! horizontal grid specifications USE UTILIO_DEFN USE ASX_DATA_MOD USE LSM_MOD USE Bidi_Mod IMPLICIT NONE INCLUDE SUBST_FILES_ID ! file name parameters INTEGER, INTENT( IN ) :: JDATE INTEGER, INTENT( IN ) :: JTIME INTEGER GXOFF, GYOFF ! global origin offset from file integer, save :: loc_strtcol, loc_endcol, loc_strtrow, loc_endrow INTEGER, SAVE :: loc_STRTCOLGC2, loc_ENDCOLGC2, loc_STRTROWGC2, loc_ENDROWGC2 CHARACTER( 16 ) :: PNAME = 'INIT_HGSIM' CHARACTER( 96 ) :: MSG = ' ' INTEGER V, L, C, R C-------------------------------------------------------------------------- INIT_LAI = .TRUE. IF( .NOT. ALLOCATED (MLAI) ) THEN ALLOCATE( MLAI(NCOLS,NROWS) ) MLAI( :,: ) = 0.0 END IF IF ( .NOT. ALLOCATED ( fevgrn ) ) THEN ALLOCATE ( fevgrn( NCOLS,NROWS ) ) fevgrn( :,: ) = 0.0 END IF ! SELECT CASE( LAND_SCHEME ) ! CASE( 'USGS24' ) ! ALLOCATE ( Hglu_fac( n_lufrac ) ) ! Hglu_fac = HGLU_FAC_USGS DO C = 1, NCOLS DO R = 1, NROWS DO L = 1, N_LUFRAC IF(CAT_LU(L) .EQ. 'EVEFOR') THEN fevgrn(c,r) = fevgrn(c,r) + Grid_Data%lufrac(c,r,l) End IF IF(CAT_LU(L) .EQ. 'MIXFOR') THEN fevgrn(c,r) = fevgrn(c,r) + Grid_Data%lufrac(c,r,l) End IF END DO END DO END DO ! CASE( 'MODIS' ) ! ALLOCATE ( Hglu_fac( n_lufrac ) ) ! Hglu_fac = HGLU_FAC_MODIS ! DO C = 1, NCOLS ! DO R = 1, NROWS ! fevgrn(c,r) = lufrac(1,c,r)+lufrac(2,c,r)+0.5*lufrac(5,c,r) ! END DO ! END DO ! CASE( 'NLCD40' ) ! ALLOCATE ( Hglu_fac( n_lufrac ) ) ! Hglu_fac = HGLU_FAC_NLCD40 ! DO C = 1, NCOLS ! DO R = 1, NROWS ! fevgrn(c,r) = lufrac(1,c,r) + lufrac(2,c,r) + ! & 0.5*lufrac(5,c,r) + lufrac(29,c,r) + ! & 0.5*lufrac(30,c,r) ! END DO ! END DO ! CASE( 'NLCD50' ) ! ALLOCATE ( Hglu_fac( n_lufrac ) ) ! Hglu_fac = HGLU_FAC_NLCD50 ! DO C = 1, NCOLS ! DO R = 1, NROWS ! fevgrn(c,r) = lufrac(10,c,r) + 0.5*lufrac(11,c,r) + ! & lufrac(32,c,r) + lufrac(32,c,r) + ! & 0.5*lufrac(36,c,r) ! END DO ! END DO ! CASE DEFAULT ! xmsg = 'Land use scheme not supported' ! CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT2 ) ! END SELECT C **** Read in saved surface layer concentrations #ifdef mpas INIT_ASX = .FALSE. INIT_ATX = .FALSE. #else IF ( .NOT. MEDC_AVAIL ) THEN INIT_ASX = .TRUE. INIT_ATX = .TRUE. ELSE INIT_ASX = .FALSE. INIT_ATX = .FALSE. END IF ! load surface arrays #endif RETURN !------------------------------------------------------------------------------ ! Error handeling section !------------------------------------------------------------------------------ 1001 CONTINUE CALL M3EXIT( pname, jdate, jtime, xmsg, xstat1 ) C------------------------------------------------------------------------------- C Format statements. C------------------------------------------------------------------------------- 9001 FORMAT( 'Failure reading ', a, 1x, 'from ', a ) RETURN END SUBROUTINE INIT_HGSIM SUBROUTINE ATX (rbc, rcut, rwetsfc, rinc, rsnow, rgw, ifsnow, xm, & dvel, HG, H, dpvd, del, tstep, c, r, l, jdate, jtime ) ! test program to find and return eigenvalues and eigenvectors for a coupled ! land - surface echange model using Intels math kernel library (MKL) linear ! algebra functions USE HGRD_DEFN ! horizontal grid specifications USE DEPVVARS USE LSM_MOD USE UTILIO_DEFN USE BIDI_MOD USE ASX_DATA_MOD C Includes: ! INCLUDE SUBST_CONST ! constants INCLUDE SUBST_FILES_ID ! file name parameters C Arguments passed to and from m3dry REAL, INTENT( IN ) :: rbc ! laminar boundary layer resistance REAL, INTENT( IN ) :: rcut ! cuticle resistance REAL, INTENT( IN ) :: rwetsfc ! wet surface resistance REAL, INTENT( IN ) :: rinc ! in canopy resistance REAL, INTENT( IN ) :: rsnow REAL, INTENT( IN ) :: rgw ! wet soil resistance REAL, INTENT( IN ) :: xm REAL, INTENT( IN ) :: HG REAL, INTENT( IN ) :: H REAL, INTENT( IN ) :: del REAL, INTENT( OUT ) :: dpvd ! evasion REAL, INTENT( OUT ) :: dvel ! deposition velocity INTEGER, INTENT( IN ) :: c INTEGER, INTENT( IN ) :: r INTEGER, INTENT( IN ) :: l INTEGER, INTENT( IN ) :: jdate INTEGER, INTENT( IN ) :: jtime INTEGER, INTENT( IN ) :: tstep INTEGER, INTENT( IN ) :: ifsnow CHARACTER( 96 ) :: XMSG = ' ' CHARACTER( 16 ), PARAMETER :: pname = 'ATX' REAL(8) :: vdHG ! Elemental Hg deposition velocity REAL(8) :: vdHGct ! Hg cuticular transfer velocity REAL(8) :: vdHGst ! stomatal transfer velocity REAL(8) :: vdHGsl REAL(8) :: pdHgsl REAL(8) :: rgnd REAL(8) :: ZC, ZM ! depth of model surface media !Model concentrations REAL(8), SAVE :: Cc ! cuticular Hg(0) concentrations REAL(8), SAVE :: Cm ! mesophyll Hg(0) concentrations REAL(8), SAVE :: CgHg ! Soil Hg(0) concentrations REAL(8), SAVE :: CHgzo ! Hg(0) concentrations at z = zo REAL(8), SAVE :: CgHgII0 ! Soil Hg(II) concentrations REAL(8) :: vdHgt ! sum of Hg deposition velocities !********* reduction and partioning terms ******************************* REAL(8) :: kr ! soil divalent mercury reduction term REAL(8) :: Kam ! air mesophyll partitioning coefficient for Hg(II) REAL(8) :: Kac ! air cuticule partitioning coeffiecient for Hg(II) REAL(8) :: Kow ! HgCl2 Octanol water partioning coefficient REAL(8) :: Kpwc ! Hg(0) air-vegetation surface partitioning coefficient REAL(8) :: Kpwm ! Hg(0) air-mesophyll partitioning coefficient !********* vegetation poperties ***************************************** REAL(8) :: lm ! leaf mesophyll lipid fraction REAL(8) :: lc ! cuticular wax mesophyll lipid fraction REAL(8) :: Wp ! water content fraction of the leaf REAL(8) :: bc ! Emprical coefficeint to describe differences in plant lipids REAL(8) :: flai ! Factor in mercury accumulation due to biodilution or scenescence !********* Intermediate concentration variables ********************* REAL, SAVE :: Hgm REAL, SAVE :: Hgc REAL, SAVE :: Hgs !******** soil properties *********************************************** REAL(8), PARAMETER :: kvis_d = REAL(kvis,8) ! [cm^2 / s] at 273.15K REAL(8) :: wg_min ! minimum soil moisture content REAL(8) :: ldry ! diffusion length Real(8) :: rbg ! soil boundary layer resistance REAL(8) :: scn ! for Rbg REAL(8) :: ustg ! for Rbg REAL(8) :: del0 ! for Rbg Real(8) :: dp ! for Rsoil INTEGER :: ist ! soil type !********* Unit conversions ********************* REAL(8) :: M3MOLVOL ! molar volume of air at stp m3/mol !********* Variables used to handle an over determined system LOGICAL :: EV23 ! eigen values 1 and 3 are the same M3MOLVOL = MOLVOL/1.0D3 IF( INIT_LAI ) THEN MLAI( c,r ) = Met_Data%LAI(c,r) flai = 1.0D0 END IF IF( INIT_ATX ) THEN ! Equilibrium Hg(0) mesophyll concentration in a 5 month box model simulation ! umol/g leaf dry matter Cm = fevgrn(c,r)*6.0D-6 + (1.0D0-fevgrn(c,r))*CMEDIA(c,r,5) ! Cuticular Hg(0) concentration in a 5 month box model simulation Cc = fevgrn(c,r)*6.0D-7 + (1.0D0-fevgrn(c,r))*CMEDIA(c,r,6) ! Initialize at ambient concentration (zero flux condition) CgHg = HG ! ng/g bulk soil concentration CHgzo = HG ! ppm compensation point ELSE IF( MLAI(c,r) .EQ. 0.0 ) THEN flai = 1.0D0 ELSE flai = max(Met_Data%LAI(c,r)/MLAI( c,r ),1.0D0) ! bio dilution END IF IF(flai .GT. 3.0) WRITE(Logdev,*) 'LAI factor: ', flai MLAI( c,r ) = Met_Data%LAI(c,r) Cm = CMEDIA( c,r,5 )/flai ! ng/g bulk leaf concentration Cc = CMEDIA( c,r,6 )/flai ! ng/g bulk leaf concentration CgHg = CMEDIA( c,r,3 ) ! ng/g bulk soil concentration END IF dt = tstep ! Model layer depths ZC = 7.1D1* REAL(Met_Data%LAI(c,r),8) ! g/m**2 based off of leaf litter fall ZM = 7.1D1* REAL(Met_Data%LAI(c,r),8) ! measurements at UCONN's experimental ! forest Bash and Miller 2009 Atmos. Environ. !***************** canopy parameters ********************************* Kow = 4.15D0 ! For Hg, Mason 1996 lm = 2.0D-2 ! From Trapp and Matthis 1995 lc = 2.0D-2 ! Assumed cuticular wax lipid content Wp = 8.0D-1 ! leaf water fraction, Trapp and Mathis 1996 bc = 9.5D-1 ! For barley, Trapp and Mathis 1996 Kpwc = (Wp+lc*1.0D0/8.22D-1*Kow**bc)*MWWAT ! g/umol Kpwm = (Wp+lm*1.0D0/8.22D-1*Kow**bc)*MWWAT ! g/umol ! Partitioning coeficients following the methodology of the PEM model kac = (Kpwc*(1.0D0-del)) + ! evasion from dry cuticles & Kpwc*del*H ! g/mol cuticle surface kam = Kpwm*H ! g/mol apoplast solution !**************** soil parameters ************************************ ! Compute quasi-laminar boundary layer resistance at the soil surface scn = kvis / dif0(l) ustg = max(Met_Data%Ustar(c,r) * EXP(-REAL(Met_Data%LAI(c,r),8)), 1.0D-3) del0 = 1.0D-4 * kvis / ( karman * ustg ) rbg = ( scn - LOG( 1.0D1 * del0 ) ) / ( karman * ustg ) ! Compute soil resistance ist = Grid_Data%SLTYP(c,r) wg_min = REAL(MAX(Met_Data%SOIM1(c,r),Grid_Data%Wres(c,r)),8) ldry= MAX(ZG*(EXP((1.0D0-wg_min/Grid_Data%Wsat(c,r))**5)-1.0D0)/1.718D0,1.0D-12) dp = dif0(l)*1.D-4 * Grid_Data%Wsat(c,r)**2 & *(1.0D0-Grid_Data%Wres(c,r)/Grid_Data%Wsat(c,r))**(2.0D0+3.0D0/Grid_Data%Bslp(c,r)) ! Soil divalent mercury reduction rate following Scholz et al 2003 IF(Met_Data%SOIT1(c,r) .GT. 273.15) THEN kr = 8.0D-11 rgnd = ldry/dp ELSE ! if the soil is frozen limit diffusion and reduction kr = 0.0D0 rgnd = 1.0D6 END IF cgHgII0 = 0.0D0 DO i = 1, n_lufrac cgHgII0 = cgHgII0+hglu_fac(i)*Grid_data%lufrac(c,r,i) END DO C Set floor to smallest terrestrial value cgHgII0 = MAX( cgHgII0, 1.8D1 ) C diffusion through soil from Scholtz et al. 2003 vdHg = 1/(REAL(Met_Data%RA(c,r),8)+5.0D-1*rinc) vdHgst = 1.0D0/( rbc + REAL(Met_Data%RS(c,r),8) ) vdHgct = REAL(Met_Data%LAI(c,r),8)*(( 1.0D0 - del )/( rbc + rcut ) & + ( del )/(rbc + rwetsfc )) vdHgsl = REAL(Met_Data%VEG(c,r),8)/( rbg + rgnd + 5.0D-1*rinc) & + ((1-ifsnow) *( 1.0D0 - REAL(Met_Data%VEG(c,r),8) )*( 1.0D0-del ))/(rbg + rgnd ) & + (del * (1.0D0-ifsnow))/(rbg + rgw ) & + (ifsnow*(1.0D0 - xm))/( rbg + rsnow ) & + (xm*ifsnow)/(rbc + rsndiff + rgw) pdHgsl = 1.0D0/(REAL(Met_Data%RA(c,r),8) + 1.0D0/vdHgsl ) ! production term with no canopy vdHgt = vdHg + vdHgst + vdHgct + vdHgsl CHgzo = (vdHg*Hg+vdHgst/kam*Cm+vdHgct/kac*Cc+vdHgsl/H*cgHg) & /vdHgt dpvd = Met_Data%veg(c,r) * vdHg * CHgzo + (1.0D0-REAL(Met_Data%VEG(c,r),8)) * pdHgsl/H * CgHg dvel = pdHgsl + REAL(Met_Data%VEG(c,r),8) *(vdhg-pdHgsl) ! Load array A NC = 3 ALLOCATE ( KO(NC,NC), VR(NC,NC), EIVAL(NC)) KO = 0.0D0 KO(1,1) = -vdHgst/(ZM*kam*M3MOLVOL)*(1.0D0-vdHgst/(kam*vdHgt)) KO(1,2) = vdHgst/(ZM*M3MOLVOL)*vdHgct/(kac*vdHgt) KO(1,3) = vdHgst/(ZM*M3MOLVOL)*vdHgsl/(H*vdHgt) KO(2,1) = vdHgct/(ZC*M3MOLVOL)*vdHgst/(kam*vdHgt) KO(2,2) = -vdHgct/(ZC*kac*M3MOLVOL)*(1.0D0-vdHgct/(kac*vdHgt)) KO(2,3) = vdHgct/(ZC*M3MOLVOL)*vdHgsl/(H*vdHgt) KO(3,1) = vdHgsl/(ZG*wg_min)*vdHgst/(kam*vdHgt) KO(3,2) = vdHgsl/(ZG*wg_min)*vdHgct/(kac*vdHgt) KO(3,3) = -vdHgsl/(ZG*wg_min*H)*(1.0D0-vdHgsl/(H*vdHgt)) ALLOCATE( NHS(NC)) NHS = 0.0D0 ! load the non-homogenious part of the system of equations NHS(1) = -vdHgst/ZM*(vdHg*HG/M3MOLVOL)/vdHgt NHS(2) = -vdHgct/ZC*(vdHg*HG/M3MOLVOL)/vdHgt NHS(3) = -vdHgsl/(ZG*wg_min)*(vdHg*HG)/vdHgt & -kr*rhob(ist)*cgHgII0*(ZG)/(1.0D3*2.0059D2) ALLOCATE( B(NC)) B = 0.0D0 ! Load the initial conditions B(1) = real( Cm, 8 ) B(2) = real( Cc, 8 ) B(3) = real( CgHg, 8 ) !***************************************************************************** ! Get eigen values and vectors where the cubic equation is: ! lambda**3+ax*lambda**2+bx*lambda+cx = 0 ! and is solved following Numerical recipies for Fortran equations 5.6.10-5.6.12 !***************************************************************************** ax = -(KO(1,1)+KO(2,2)+KO(3,3)) bx = -(KO(2,3)*KO(3,2)+KO(2,1)*KO(1,2)+ & KO(3,1)*KO(1,3)-KO(1,1)*KO(2,2)- & KO(1,1)*KO(3,3)-KO(2,2)*KO(3,3)) cx = (KO(1,1)*KO(2,3)*KO(3,2)+ & KO(3,1)*KO(1,3)*KO(2,2)+ & KO(2,1)*KO(1,2)*KO(3,3)- & KO(3,1)*KO(1,2)*KO(2,3)- & KO(2,1)*KO(1,3)*KO(3,2)- & KO(1,1)*KO(2,2)*KO(3,3)) Qx = (ax**2.0D0-3.0D0*bx)/9.0D0 Rx = (2.0D0*ax**3.0D0-9.0D0*ax*bx+27.0D0*cx)/54.0D0 ! There will always be three real roots in this system ! so we can use the simple geometric solution for a ! cubic equation. IF( Rx/DSQRT(Qx**3) .LT. 1.0D0 ) THEN ThetaX = DACOS(Rx/DSQRT(Qx**3)) EIVAL(1) = -2.0D0*sqrt(Qx)*DCOS(ThetaX/3.0D0)-ax/3.0D0 EIVAL(2) = -2.0D0*sqrt(Qx)*DCOS((ThetaX+2.0D0*Pi)/3.0D0)-ax/3.0D0 EIVAL(3) = -2.0D0*sqrt(Qx)*DCOS((ThetaX-2.0D0*Pi)/3.0D0)-ax/3.0D0 ! Solve for the eigenvectors by setting the first element to 1 and using ! Cramer's rule to solve the second and third elements using the first ! two equations DO i = 1, NC ev1 = 1.0D0 ev2 = (KO(2,1)*KO(1,3)-(KO(1,1)-EIVAL(i))*KO(2,3))/ & (KO(1,2)*KO(2,3)-(KO(2,2)-EIVAL(i))*KO(1,3)) ev3 = ((KO(1,1)-EIVAL(i))*(KO(2,2)-EIVAL(i))-KO(2,1)*KO(1,2))/ & (KO(1,2)*KO(2,3)-(KO(2,2)-EIVAL(i))*KO(1,3)) evmax = max(abs(ev1),abs(ev2),abs(ev3)) ! scale the eigenvector VR(1,i) = ev1/evmax VR(2,i) = ev2/evmax VR(3,i) = ev3/evmax END DO ! Rounding error can lead to Rx**2 > Qx**2 this usually indicates that two of the Eigen values are ! equivalent Rx**2 = Qx**3 or there are complex roots in which the model will crash ELSE ThetaX = 0.0D0 EIVAL(1) = -2.0D0*sqrt(Qx)*DCOS(ThetaX/3.0D0)-ax/3.0D0 EIVAL(2) = -2.0D0*sqrt(Qx)*DCOS((ThetaX+2.0D0*Pi)/3.0D0)-ax/3.0D0 EIVAL(3) = -2.0D0*sqrt(Qx)*DCOS((ThetaX-2.0D0*Pi)/3.0D0)-ax/3.0D0 DO i = 1, NC ev1 = 1.0D0 ev2 = (KO(2,1)*KO(1,3)-(KO(1,1)-EIVAL(i))*KO(2,3))/ & (KO(1,2)*KO(2,3)-(KO(2,2)-EIVAL(i))*KO(1,3)) ev3 = ((KO(1,1)-EIVAL(i))*(KO(2,2)-EIVAL(i))-KO(2,1)*KO(1,2))/ & (KO(1,2)*KO(2,3)-(KO(2,2)-EIVAL(i))*KO(1,3)) evmax = max(abs(ev1),abs(ev2),abs(ev3)) ! scale the eigenvector VR(1,i) = ev1/evmax VR(2,i) = ev2/evmax VR(3,i) = ev3/evmax END DO ! Two roots are the same and independent eigenvectors need to be found ! simply select a different element of the vector to be unity ev1 = ( KO(1,3)*( KO(2,2)-EIVAL(3))-KO(1,2)*KO(2,3))/ & ((KO(1,1)-EIVAL(3))*KO(2,3)- KO(1,3)*KO(2,1)) ev2 = -1.0D0 ev3 = ( KO(2,1)* KO(1,2)-(KO(1,1)-EIVAL(3))*(KO(2,2)-EIVAL(3)))/ & ((KO(1,1)-EIVAL(3))*KO(2,3)- KO(1,3)* KO(2,1)) evmax = max(abs(ev1),abs(ev2),abs(ev3)) ! scale the eigenvector VR(1,3) = ev1/evmax VR(2,3) = ev2/evmax VR(3,3) = ev3/evmax END IF C****************************************************************************** C******* Find the non homogenious solution ************************************ C****************************************************************************** ! solve for KO*x = NHS using Cramer's Rule DetKO = KO(1,1)*KO(2,2)*KO(3,3)-KO(1,1)*KO(3,2)*KO(2,3)+ & KO(2,1)*KO(3,2)*KO(1,3)-KO(2,1)*KO(1,2)*KO(3,3)+ & KO(3,1)*KO(1,2)*KO(2,3)-KO(3,1)*KO(2,2)*KO(1,3) DetK1 = NHS(1)*KO(2,2)*KO(3,3)-NHS(1)*KO(3,2)*KO(2,3)+ & NHS(2)*KO(3,2)*KO(1,3)-NHS(2)*KO(1,2)*KO(3,3)+ & NHS(3)*KO(1,2)*KO(2,3)-NHS(3)*KO(2,2)*KO(1,3) DetK2 = KO(1,1)*NHS(2)*KO(3,3)-KO(1,1)*NHS(3)*KO(2,3)+ & KO(2,1)*NHS(3)*KO(1,3)-KO(2,1)*NHS(1)*KO(3,3)+ & KO(3,1)*NHS(1)*KO(2,3)-KO(3,1)*NHS(2)*KO(1,3) DetK3 = KO(1,1)*KO(2,2)*NHS(3)-KO(1,1)*KO(3,2)*NHS(2)+ & KO(2,1)*KO(3,2)*NHS(1)-KO(2,1)*KO(1,2)*NHS(3)+ & KO(3,1)*KO(1,2)*NHS(2)-KO(3,1)*KO(2,2)*NHS(1) NHS(1) = DetK1/DetKO NHS(2) = DetK2/DetKO NHS(3) = DetK3/DetKO C****************************************************************************** C*** Update the IC's for the Non-homogenious solutions and solve the system *** C****************************************************************************** ! Subtract the non-homogenious solution from the DO i = 1, NC B(i) = B(i)-NHS(i) END DO ! Solve x for VR*x=B using Cramer's Rule DetEV = VR(1,1)*VR(2,2)*VR(3,3)-VR(1,1)*VR(3,2)*VR(2,3)+ & VR(2,1)*VR(3,2)*VR(1,3)-VR(2,1)*VR(1,2)*VR(3,3)+ & VR(3,1)*VR(1,2)*VR(2,3)-VR(3,1)*VR(2,2)*VR(1,3) DetE1 = B(1)*VR(2,2)*VR(3,3)-B(1)*VR(3,2)*VR(2,3)+ & B(2)*VR(3,2)*VR(1,3)-B(2)*VR(1,2)*VR(3,3)+ & B(3)*VR(1,2)*VR(2,3)-B(3)*VR(2,2)*VR(1,3) DetE2 = VR(1,1)*B(2)*VR(3,3)-VR(1,1)*B(3)*VR(2,3)+ & VR(2,1)*B(3)*VR(1,3)-VR(2,1)*B(1)*VR(3,3)+ & VR(3,1)*B(1)*VR(2,3)-VR(3,1)*B(2)*VR(1,3) DetE3 = VR(1,1)*VR(2,2)*B(3)-VR(1,1)*VR(3,2)*B(2)+ & VR(2,1)*VR(3,2)*B(1)-VR(2,1)*VR(1,2)*B(3)+ & VR(3,1)*VR(1,2)*B(2)-VR(3,1)*VR(2,2)*B(1) B(1) = DetE1/DetEV B(2) = DetE2/DetEV B(3) = DetE3/DetEV ! update the surface array Hgm = 0.0 Hgc = 0.0 Hgs = 0.0 DO i = 1, NC Hgm = Hgm + B(i) * VR(1,i) * DEXP( EIVAL(i) * dt ) Hgc = Hgc + B(i) * VR(2,i) * DEXP( EIVAL(i) * dt ) Hgs = Hgs + B(i) * VR(3,i) * DEXP( EIVAL(i) * dt ) END DO Hgm = Hgm + NHS(1) Hgc = Hgc + NHS(2) Hgs = Hgs + NHS(3) IF ( Hgm .LT. 0.0 ) THEN XMSG = '*** Negative concentration in Hgm resetting it to zero ***' CALL M3WARN( PNAME, JDATE, JTIME, XMSG ) Hgm = max(Hgm,0.0) END IF IF ( Hgc .LT. 0.0 ) THEN XMSG = '*** Negative concentration in Hgc resetting it to zero ***' CALL M3WARN( PNAME, JDATE, JTIME, XMSG ) Hgc = max(Hgc, 0.0) END IF IF ( Hgs .LT. 0.0 ) THEN ! This can happen when the soil moisture approaches zero limiting the Hg that ! can evade from this source. XMSG = '*** Negative concentration in Hgs resetting it to zero flux condition ***' CALL M3WARN( PNAME, JDATE, JTIME, XMSG ) WRITE(LOGDEV,*) 'wg :',wg_min, 'Hgs :', Hgs, 'H :',H WRITE(LOGDEV,*) 'Col :',c, 'Row :', r Hgs = CHgzo*H END IF IF ( Hgm .NE. Hgm .OR. Hgc .NE. Hgc .OR. Hgs .NE. Hgs ) THEN XMSG = '*** NaN in Hgs, Hgc, or Hgm ***' WRITE(LOGDEV,*) 'Col',c,'Row',r WRITE(LOGDEV,*) 'Hgm',Hgm,'Hgc',Hgc,'Hgs',Hgs WRITE(LOGDEV,*) 'B :',B WRITE(LOGDEV,*) 'NHS :',NHS WRITE(LOGDEV,*) 'KO :',KO WRITE(LOGDEV,*) 'cgHgII0: ',cgHgII0 CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1) END IF CMEDIA( c,r,1 ) = 0.0 ! water CMEDIA( c,r,2 ) = 0.0 ! water CMEDIA( c,r,3 ) = Hgs CMEDIA( c,r,4 ) = CHgzo CMEDIA( c,r,5 ) = Hgm CMEDIA( c,r,6 ) = Hgc DEALLOCATE( KO, VR, EIVAL ) DEALLOCATE( B, NHS ) RETURN END SUBROUTINE ATX C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: C::::::: Air surface water exchange subroutine ::::::::::::::::::::::::::: C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE ASWX( Hg, HgIIgas, vdHg, vdHgII, awhg, & dpvd, c, r, JDATE, JTIME, TSTEP ) USE HGRD_DEFN ! horizontal grid specifications USE DEPVVARS USE UTILIO_DEFN USE BIDI_MOD USE ASX_DATA_MOD C Includes: ! INCLUDE SUBST_CONST ! constants INCLUDE SUBST_FILES_ID ! file name parameters INTEGER, INTENT( IN ) :: JDATE INTEGER, INTENT( IN ) :: JTIME INTEGER, INTENT( IN ) :: TSTEP REAL, INTENT( IN ) :: Hg REAL, INTENT( IN ) :: HgIIgas REAL, INTENT( IN ) :: vdHg REAL, INTENT( IN ) :: vdHgII REAL, INTENT( IN ) :: awhg REAL, INTENT( OUT ) :: dpvd INTEGER, INTENT( IN ) :: c INTEGER, INTENT( IN ) :: r CHARACTER( 16 ), PARAMETER :: pname = 'ASWX' C*************************** Ocean box parameters *********************** REAL(8), PARAMETER :: satten = 7.58d-1 C*************************** Model concentrations *********************** REAL(8), SAVE :: cDGM REAL(8), SAVE :: cHgIIaq C***** reduction and partioning terms from Whalin et al 2007 ************ REAL(8), PARAMETER :: rref = 240d+0 ! referance incoming radiation ! for redox measurements (w/m2) REAL(8), PARAMETER :: kphot = 6.5d-4 ! drm photoreduction rate 1/s REAL(8), PARAMETER :: kox = 7.2d-4 ! dgm photo-oxidation rate 1/s C********* Intermediate concentration variables ********************* REAL(8), SAVE :: DGM REAL(8), SAVE :: DRM IF (INIT_ASX ) THEN cDGM = Hg*awhg*3 ! assume 3x eq con. cHgIIaq = 3.57e-6 ! from Whalin et al 2007 ELSE cDGM = CMEDIA( c,r,1 ) cHgIIaq = CMEDIA( c,r,2 ) END IF dt = TSTEP dpvd = cDGM * vdHg/awhg IF ( Met_Data%RGRND(c,r) .LT. 1e-3 ) THEN C the aqueous elemental and divalent Hg pools become decoupled and the C matrices become singular warrenting an alternative solution C Find a simple one box solution for elemental Hg DGM = Hg*awhg + (cDGM - Hg*awhg)*DEXP(-vdHg/(ZSURF*awhg)*dt) C in the absence of photo-redox reactions divalent Hg accumulates DRM = cHgIIaq + vdHgII/ZSURF*HgIIgas*dt ELSE NC = 2 ALLOCATE ( KO(NC,NC), VR(NC,NC), EIVAL(NC) ) KO = 0.0D0 C 240 w/m**2 is the 'typical light spectrum' from Whalin et al 2007 Marine Chem. C attenuation at 1 m = 1/K (1-exp(-K Z)) = 0.758 using a K of 0.58 KO( 1,1 ) = -vdhg / ( ZSURF * awhg ) & -kox * satten * Met_Data%RGRND(c,r)/rref KO( 1,2 ) = kphot * satten * Met_Data%RGRND(c,r)/rref KO( 2,1 ) = kox * satten * Met_Data%RGRND(c,r)/rref KO( 2,2 ) = -kphot * satten * Met_Data%RGRND(c,r)/rref ALLOCATE( NHS(NC)) NHS = 0.0 NHS(1) = -vdHg/ZSURF*HG NHS(2) = -vdHgII/ZSURF*HgIIgas ALLOCATE( B(NC)) B = 0.0 B( 1 ) = REAL( cDGM, 8) B( 2 ) = REAL( cHgIIaq, 8) C***************************************************************************** ! Get eigen values and vectors where the cubic equation is: ! ax*lambda**2+bx*lambda+cx = 0 ! and is solved following Numerical recipies for Fortran equations 5.6.2-5.6.5 C***************************************************************************** ax = 1.0D0 bx = -(KO(1,1)+KO(2,2)) cx = KO(1,1)*KO(2,2)-KO(1,2)*KO(2,1) Qx = -5.0D-1*(bx+SIGN(1.0D0,bx)*DSQRT(bx**2-4.0D0*ax*cx)) EIVAL(1) = Qx/ax EIVAL(2) = cx/Qx ! Solve for the eigenvectors DO i = 1, NC ev1 = 1.0D0 ev2 = -(KO(2,1)*ev1)/(KO(2,2)-EIVAL(i)) evmax = max(abs(ev1),abs(ev2)) ! scale the eigenvector VR(1,i) = ev1/evmax VR(2,i) = ev2/evmax END DO C****************************************************************************** C******* Do the non homogenious part ****************************************** C****************************************************************************** ! solve for x in KO*x = NHS using Cramer's Rule DetKO = KO(1,1)*KO(2,2)-KO(1,2)*KO(2,1) DetK1 = NHS(1)*KO(2,2)-NHS(2)*KO(1,2) DetK2 = NHS(2)*KO(1,1)-NHS(1)*KO(2,1) NHS(1) = DetK1/DetKO NHS(2) = DetK2/DetKO C****************************************************************************** C*** Update the IC's for the Non-homogenious solutions and solve the system *** C****************************************************************************** DO i = 1, NC B(i) = B(i) - NHS(i) END DO ! Solve for x in VR*x=B using Cramer's Rule DetEV = VR(1,1)*VR(2,2)-VR(1,2)*VR(2,1) DetE1 = B(1)*VR(2,2)-B(2)*VR(1,2) DetE2 = B(2)*VR(1,1)-B(1)*VR(2,1) B(1) = DetE1/DetEV B(2) = DetE2/DetEV ! update the surface array DGM = 0.0D0 DRM = 0.0D0 DO i = 1, NC DGM = DGM + B(i) * VR(1,i) * DEXP( EIVAL(i) * dt ) DRM = DRM + B(i) * VR(2,i) * DEXP( EIVAL(i) * dt ) END DO DGM = DGM + NHS(1) DRM = DRM + NHS(2) DEALLOCATE( KO, VR, EIVAL ) DEALLOCATE( B, NHS ) END IF IF ( DGM .LT. 0.0 .OR. DRM .LT. 0.0 ) THEN XMSG = '*** Negative concentration ***' WRITE(LOGDEV,*) 'awhg',awhg,'HG',HG WRITE(LOGDEV,*) 'DGM',DGM,'DRM',DRM CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT2 ) END IF CMEDIA( c,r,1 ) = DGM CMEDIA( c,r,2 ) = DRM CMEDIA( c,r,3 ) = 0.0 ! land CMEDIA( c,r,4 ) = 0.0 ! land CMEDIA( c,r,5 ) = 0.0 ! land CMEDIA( c,r,6 ) = 0.0 ! land RETURN END SUBROUTINE ASWX C------------------------------------------------------------------------------ SUBROUTINE GET_WDEP( CSE, WDEP, C, R ) Use ASX_DATA_MOD, Only: Grid_Data USE BIDI_MOD, Only: CMedia IMPLICIT NONE INCLUDE SUBST_CONST ! constants CHARACTER( 8 ), INTENT( IN ) :: CSE ! wet dep sepcies REAL, INTENT( IN ) :: WDEP ! wet deposition in kg/ha INTEGER, INTENT( IN ) :: C INTEGER, INTENT( IN ) :: R REAL, PARAMETER :: HAOM2 = 1.0e-4 ! ha/m^2 conversion REAL, PARAMETER :: MWHG = 200.59 ! molecular weight of Hg REAL, PARAMETER :: UGOKG = 1.0e9 ! ug/kg conversion REAL, PARAMETER :: GH2ONM3 = 1.0e6 ! g H2O in M^3 H2O REAL WDEP_LOAD ! loading due to wet deposition IF ( NINT( Grid_Data%lwmask( c,r ) ) .EQ. 0 ) THEN ! water ! convert to umol/m2 pulse input WDEP_LOAD = WDEP*HAOM2*UGOKG/MWHG ! convert to added concentration in ppm assuming it remains at the surface WDEP_LOAD = WDEP_LOAD/ZSURF/GH2ONM3*MWWAT IF( CSE .EQ. 'HG ' ) THEN CMEDIA( C,R,1 ) = CMEDIA( C,R,1 ) + WDEP_LOAD END IF IF( CSE .EQ. 'HGIIGAS ' ) THEN CMEDIA( C,R,2 ) = CMEDIA( C,R,2 ) + WDEP_LOAD END IF END IF ! water RETURN END SUBROUTINE GET_WDEP END MODULE HGSIM ================================================ FILE: CCTM/src/depv/m3dry/LSM_MOD.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/work/rep/arc/CCTM/src/depv/m3dry/LSM_MOD.F,v 1.5 2012/01/19 14:23:58 yoj Exp $ C:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: Module LSM_Mod C------------------------------------------------------------------------------ C Revision History: C June 16 11 Created by J. Bash C April 19 12 J. Bash Updated the LU_FAC data arrays to be a function C of the annual total N deposition following C Massad et al 2010 doi:10.5194/acp-10-10359-2010 C The annual 2002 deposition filed from a previous bi- C directional model run using values ~ 100 was used. C The model is not very sensitive to this paramater C and using different annual deposition fileds would C result in small changes. C Sept 12 12 D. Schwede Added NLCD40 land use classification. C Also some changes made to values in tables for NLCD50. C Maintain compatability with previous versions of MCIP and detect NLCD-MODIS C as the same as NLCD50 C Nov 5 12 D. Schwede Modified albedo for NLCD pasture and grass categories so that they are more C consistent with the MODIS and USGS values C Apr 4 13 J. Bash Added general water, forest, shrub, grass, snow/ice, C agricultural land use classification in a land use type C to simplify how bidirecitonal NH3 code handles different C land use data sets. C Aug 22 14 J. Bash Moved all the data to defined data types for easier updates and data access. C June 2018 j. pleim Removed all LSM specific data C Feb. 2019 D. Wong Implemented centralized I/O approach C 25 Jul 19 D.Wong Based on logical variable WRF_V4P defined in RUNTIME_VARS to handle C various number of soil type from different WRF version C------------------------------------------------------------------------------ Implicit None INTEGER, PARAMETER :: N_SOIL_TYPE_WRFV4P = 16 INTEGER, PARAMETER :: N_SOIL_TYPE_WRFV3 = 11 INTEGER :: N_SOIL_TYPE REAL, ALLOCATABLE :: wwlt (:) REAL, ALLOCATABLE :: wsat (:) REAL, ALLOCATABLE :: bslp (:) REAL, ALLOCATABLE :: wres (:) REAL, ALLOCATABLE :: wfc (:) REAL, ALLOCATABLE :: rhob (:) REAL, SAVE, ALLOCATABLE :: LUF_FAC ( : ) REAL, SAVE, ALLOCATABLE :: HGLU_FAC ( : ) INTEGER, SAVE :: n_lufrac CHARACTER( 80 ), SAVE :: LAND_SCHEME CHARACTER( 16 ), SAVE, ALLOCATABLE :: cat_lu( : ) CHARACTER( 16 ), SAVE, ALLOCATABLE :: name_lu( : ) INTEGER, PRIVATE, PARAMETER :: n_modis = 20 INTEGER, PRIVATE, PARAMETER :: n_nlcd50 = 50 INTEGER, PRIVATE, PARAMETER :: n_nlcd40 = 40 INTEGER, PRIVATE, PARAMETER :: n_usgs = 24 INTEGER, PRIVATE :: ALLOCSTAT TYPE lu_type CHARACTER( 16 ) :: name CHARACTER( 16 ) :: lu_cat REAL :: LUF_FAC ! NH3 bidi stomatal gamma REAL :: HGLU_FAC ! Hg bidi soil conc END TYPE lu_type C------------------------------------------------------------------------------- C Soil Characteristics by Type for WRFV38 C C # SOIL TYPE WSAT WFC WWLT BSLP CGSAT JP AS C2R C1SAT WRES C _ _________ ____ ___ ____ ____ _____ ___ ___ ___ _____ ____ C 1 SAND .395 .135 .068 4.05 3.222 4 .387 3.9 .082 .020 C 2 LOAMY SAND .410 .150 .075 4.38 3.057 4 .404 3.7 .098 .035 C 3 SANDY LOAM .435 .195 .114 4.90 3.560 4 .219 1.8 .132 .041 C 4 SILT LOAM .485 .255 .179 5.30 4.418 6 .105 0.8 .153 .015 C 5 LOAM .451 .240 .155 5.39 4.111 6 .148 0.8 .191 .027 C 6 SND CLY LM .420 .255 .175 7.12 3.670 6 .135 0.8 .213 .068 C 7 SLT CLY LM .477 .322 .218 7.75 3.593 8 .127 0.4 .385 .040 C 8 CLAY LOAM .476 .325 .250 8.52 3.995 10 .084 0.6 .227 .075 C 9 SANDY CLAY .426 .310 .219 10.40 3.058 8 .139 0.3 .421 .109 C 10 SILTY CLAY .482 .370 .283 10.40 3.729 10 .075 0.3 .375 .056 C 11 CLAY .482 .367 .286 11.40 3.600 12 .083 0.3 .342 .090 C C------------------------------------------------------------------------------- !-- WSAT is saturated soil moisture (M^3/M^3) (JN90) REAL, PARAMETER :: WSAT_WRFV3(N_SOIL_TYPE_WRFV3) = & (/ 0.395, 0.410, 0.435, 0.485, 0.451, 0.420, 0.477, & 0.476, 0.426, 0.482, 0.482 /) !-- WFC is soil field capacity (Rawls et al 1982) REAL, PARAMETER :: WFC_WRFV3(N_SOIL_TYPE_WRFV3) = & (/ 0.135, 0.150, 0.195, 0.255, 0.240, 0.255, 0.322, & 0.325, 0.310, 0.370, 0.367 /) !-- WWLT is wilting point (M^3/M^3) (JN90) REAL, PARAMETER :: WWLT_WRFV3(N_SOIL_TYPE_WRFV3) = & (/ 0.068, 0.075, 0.114, 0.179, 0.155, 0.175, 0.218, & 0.250, 0.219, 0.283, 0.286 /) !-- B is slop of the retention curve (NP89) REAL, PARAMETER :: BSLP_WRFV3(N_SOIL_TYPE_WRFV3) = & (/ 4.05, 4.38, 4.90, 5.30, 5.39, 7.12, 7.75, & 8.52, 10.40, 10.40, 11.40 /) !-- WRES is residual soil moisture (Rawls et al 1982) REAL, PARAMETER :: WRES_WRFV3(N_SOIL_TYPE_WRFV3) = & (/ 0.020, 0.035, 0.041, 0.015, 0.027, 0.068, 0.040, & 0.075, 0.109, 0.056, 0.090 /) ! -- RHOB is the soil bulk dnesity following Lyons et al 1997 REAL, PARAMETER :: RHOB_WRFV3(N_SOIL_TYPE_WRFV3) = & (/ 1.59e6, 1.55e6, 1.53e6, 1.53e6, 1.55e6, 1.62e6, 1.67e6, & 1.66e6, 1.83e6, 1.78e6, 1.83e6 /) C------------------------------------------------------------------------------- C Soil Characteristics by Type for WRF4+ C C # SOIL TYPE WSAT WFC WWLT BSLP CGSAT JP AS C2R C1SAT WRES C _ _________ ____ ___ ____ ____ _____ ___ ___ ___ _____ ____ C 1 SAND .395 .135 .068 4.05 3.222 4 .387 3.9 .082 .020 C 2 LOAMY SAND .410 .150 .075 4.38 3.057 4 .404 3.7 .098 .035 C 3 SANDY LOAM .435 .195 .114 4.90 3.560 4 .219 1.8 .132 .041 C 4 SILT LOAM .485 .255 .179 5.30 4.418 6 .105 0.8 .153 .015 C 5 SILT .480 .260 .150 5.30 4.418 6 .105 0.8 .153 .020 C 6 LOAM .451 .240 .155 5.39 4.111 6 .148 0.8 .191 .027 C 7 SND CLY LM .420 .255 .175 7.12 3.670 6 .135 0.8 .213 .068 C 8 SLT CLY LM .477 .322 .218 7.75 3.593 8 .127 0.4 .385 .040 C 9 CLAY LOAM .476 .325 .250 8.52 3.995 10 .084 0.6 .227 .075 C 10 SANDY CLAY .426 .310 .219 10.40 3.058 8 .139 0.3 .421 .109 C 11 SILTY CLAY .482 .370 .283 10.40 3.729 10 .075 0.3 .375 .056 C 12 CLAY .482 .367 .286 11.40 3.600 12 .083 0.3 .342 .090 C 13 ORGANICMAT .451 .240 .155 5.39 4.111 6 .148 0.8 .191 .027 C 14 WATER .482 .367 .286 11.40 3.600 12 .083 0.3 .342 .090 C 15 BEDROCK .482 .367 .286 11.40 3.600 12 .083 0.3 .342 .090 C 16 OTHER .420 .255 .175 7.12 3.670 6 .135 0.8 .213 .068 C------------------------------------------------------------------------------- !-- WSAT is saturated soil moisture (M^3/M^3) (JN90) REAL, PARAMETER :: WSAT_WRFV4P(N_SOIL_TYPE_WRFV4P) = & (/ 0.395, 0.410, 0.435, 0.485, 0.480, 0.451, 0.420, 0.477, & 0.476, 0.426, 0.482, 0.482, 0.451, 0.482, 0.482, 0.420 /) !-- WFC is soil field capacity (Rawls et al 1982) REAL, PARAMETER :: WFC_WRFV4P(N_SOIL_TYPE_WRFV4P) = & (/ 0.135, 0.150, 0.195, 0.255, 0.260, 0.240, 0.255, 0.322, & 0.325, 0.310, 0.370, 0.367, 0.240, 0.367, 0.367, 0.255 /) !-- WWLT is wilting point (M^3/M^3) (JN90) REAL, PARAMETER :: WWLT_WRFV4P(N_SOIL_TYPE_WRFV4P) = & (/ 0.068, 0.075, 0.114, 0.179, 0.150, 0.155, 0.175, 0.218, & 0.250, 0.219, 0.283, 0.286, 0.155, 0.286, 0.286, 0.175 /) !-- B is slop of the retention curve (NP89) REAL, PARAMETER :: BSLP_WRFV4P(N_SOIL_TYPE_WRFV4P) = & (/ 4.05, 4.38, 4.90, 5.30, 5.30, 5.39, 7.12, 7.75, & 8.52, 10.40, 10.40, 11.40, 5.39, 11.40, 11.40, 7.12 /) !-- WRES is residual soil moisture (Rawls et al 1982) REAL, PARAMETER :: WRES_WRFV4P(N_SOIL_TYPE_WRFV4P) = & (/ 0.020, 0.035, 0.041, 0.015, 0.020, 0.027, 0.068, 0.040, & 0.075, 0.109, 0.056, 0.090, 0.027, 0.090, 0.090, 0.068 /) ! -- RHOB is the soil bulk dnesity following Lyons et al 1997 REAL, PARAMETER :: RHOB_WRFV4P(N_SOIL_TYPE_WRFV4P) = & (/ 1.59e6, 1.55e6, 1.53e6, 1.53e6, 1.53e6, 1.55e6, 1.62e6, 1.67e6, & 1.66e6, 1.83e6, 1.78e6, 1.83e6, 1.62e6, 1.83e6, 1.83e6, 1.67e6 /) !***************************************************************************** !***************************************************************************** ! MODIS-ONLY (1XX)/MODIS (2XX) LU characterization ... reclassified by NCEP !------------------------------------------------------------------------------- TYPE( lu_type ),PRIVATE, PARAMETER :: MODIS( n_modis ) = (/ ! -Name--- -LU cat - LUF_FAC HGLU_FAC Cat Desc. & lu_type('NCEP_1 ', 'EVEFOR ', 246.0, 40.0), ! 1 Evergreen Needleleaf Forest & lu_type('NCEP_2 ', 'EVEFOR ', 247.0, 130.0), ! 2 Evergreen Broadleaf Forest & lu_type('NCEP_3 ', 'DECFOR ', 267.0, 81.0), ! 3 Deciduous Needleleaf Forest & lu_type('NCEP_4 ', 'DECFOR ', 268.0, 81.0), ! 4 Deciduous Broadleaf Forest & lu_type('NCEP_5 ', 'MIXFOR ', 252.0, 139.0), ! 5 Mixed Forest & lu_type('NCEP_6 ', 'SHRUB ', 246.0, 125.0), ! 6 Closed Shrublands & lu_type('NCEP_7 ', 'SHRUB ', 246.0, 125.0), ! 7 Open Shrublands & lu_type('NCEP_8 ', 'MIXFOR ', 246.0, 125.0), ! 8 Woody Savanna & lu_type('NCEP_9 ', 'MIXFOR ', 246.0, 125.0), ! 9 Savanna & lu_type('NCEP_10', 'GRASS ', 247.0, 20.0), ! 10 Grasslands & lu_type('NCEP_11', 'WETLAND', 260.0, 125.0), ! 11 Perminent Wetlands & lu_type('NCEP_12', 'AG ', 340.0, 81.0), ! 12 Croplands & lu_type('NCEP_13', 'BUILT ', 338.0, 190.0), ! 13 Urban and Built-up & lu_type('NCEP_14', 'AGMOS ', 298.0, 50.0), ! 14 Crop/Natural Mosaic & lu_type('NCEP_15', 'SNOWICE', 0.0, 0.0), ! 15 Snow and Ice & lu_type('NCEP_16', 'BARREN ', 246.0, 125.0), ! 16 Sparsely Vegetated & lu_type('NCEP_17', 'WATER ', 0.0, 0.0), ! 17 IGBP water & lu_type('NCEP_18', 'EVEFOR ', 246.0, 62.0), ! 18 Wooded Tundra & lu_type('NCEP_19', 'SHRUB ', 246.0, 62.0), ! 19 Mixed Tundra & lu_type('NCEP_20', 'GRASS ', 246.0, 18.0)/) ! 20 Barren Tundra !**************************************************************************************** !**************************************************************************************** ! 50 CLASS NLCD (US only, cats 1-30)/MODIS (Outside US, cats 31-50) LU characterization !--------------------------------------------------------------------------------------- TYPE( lu_type ),PRIVATE, PARAMETER :: NLCD50( n_nlcd50 ) = (/ ! -Name--- -LU cat - LUF_FAC HGLU_FAC Cat Desc. & lu_type('NLCD_11 ', 'WATER ', 0.0, 0.0), ! 1 Open water & lu_type('NLCD_12 ', 'SNOWICE', 0.0, 0.0), ! 2 Perennial Ice/snow & lu_type('NLCD_21 ', 'BUILT ', 312.0, 130.0), ! 3 Developed, Open space & lu_type('NLCD_22 ', 'BUILT ', 305.0, 150.0), ! 4 Developed, Low Intensity & lu_type('NLCD_23 ', 'BUILT ', 331.0, 170.0), ! 5 Developed, Medium Intensity & lu_type('NLCD_24 ', 'BUILT ', 402.0, 190.0), ! 6 Developed, High Intensity & lu_type('NLCD_31 ', 'BARREN ', 246.0, 125.0), ! 7 Barren land & lu_type('NLCD_32 ', 'BARREN ', 248.0, 0.0), ! 8 Unconsolidated Shore & lu_type('NLCD_41 ', 'DECFOR ', 274.0, 81.0), ! 9 Deciduous Forest & lu_type('NLCD_42 ', 'EVEFOR ', 246.0, 81.0), ! 10 Evergreen Forest & lu_type('NLCD_43 ', 'MIXFOR ', 254.0, 139.0), ! 11 Mixed Forest & lu_type('NLCD_51 ', 'SHRUB ', 246.0, 73.0), ! 12 Dwarf Scrub & lu_type('NLCD_52 ', 'SHRUB ', 246.0, 125.0), ! 13 Shrub/Scrub & lu_type('NLCD_71 ', 'GRASS ', 247.0, 20.0), ! 14 Grassland/Herbaceous & lu_type('NLCD_72 ', 'GRASS ', 246.0, 125.0), ! 15 Sedge/Herbaceous & lu_type('NLCD_73 ', 'BARREN ', 0.0, 18.0), ! 16 Lichens & lu_type('NLCD_74 ', 'BARREN ', 0.0, 18.0), ! 17 Moss & lu_type('NLCD_75 ', 'BARREN ', 246.0, 62.0), ! 18 Tundra & lu_type('NLCD_81 ', 'AG ', 344.0, 50.0), ! 19 Pasture/Hay & lu_type('NLCD_82 ', 'AG ', 340.0, 80.0), ! 20 Cultivated Crops & lu_type('NLCD_90 ', 'WETLAND', 271.0, 125.0), ! 21 Woody Wetland & lu_type('NLCD_91 ', 'WETLAND', 267.0, 125.0), ! 22 Palustrine Forested Wetland & lu_type('NLCD_92 ', 'WETLAND', 254.0, 125.0), ! 23 Palustrine Shrub Wetland & lu_type('NLCD_93 ', 'WETLAND', 267.0, 125.0), ! 24 Estuarine Forested Wetland & lu_type('NLCD_94 ', 'WETLAND', 267.0, 125.0), ! 25 Estuarine Shrub Wetland & lu_type('NLCD_95 ', 'WETLAND', 248.0, 125.0), ! 26 Emergent Herbaceous Wetland & lu_type('NLCD_96 ', 'WETLAND', 269.0, 125.0), ! 27 Palustrine Emergent Wetland & lu_type('NLCD_97 ', 'WETLAND', 262.0, 125.0), ! 28 Estuarine Emergent Wetland & lu_type('NLCD_98 ', 'WETLAND', 277.0, 125.0), ! 29 Palustrine Aquatic Bed & lu_type('NLCD_99 ', 'WETLAND', 247.0, 125.0), ! 30 Estuarine Aquatic Bed & lu_type('MODIS_0 ', 'WATER ', 0.0, 0.0), ! 31 Open water (mapped to 1) & lu_type('MODIS_1 ', 'EVEFOR ', 246.0, 40.0), ! 32 Evergreen Needleleaf Forest & lu_type('MODIS_2 ', 'EVEFOR ', 247.0, 130.0), ! 33 Evergreen Broadleaf Forest & lu_type('MODIS_3 ', 'DECFOR ', 267.0, 81.0), ! 34 Deciduous Needleleaf Forest & lu_type('MODIS_4 ', 'DECFOR ', 268.0, 81.0), ! 35 Deciduous Broadleaf Forest & lu_type('MODIS_5 ', 'MIXFOR ', 252.0, 139.0), ! 36 Mixed Forest & lu_type('MODIS_6 ', 'SHRUB ', 246.0, 125.0), ! 37 Closed Shrublands & lu_type('MODIS_7 ', 'SHRUB ', 246.0, 125.0), ! 38 Open Shrublands & lu_type('MODIS_8 ', 'MIXFOR ', 246.0, 125.0), ! 39 Woody Savanna & lu_type('MODIS_9 ', 'MIXFOR ', 246.0, 125.0), ! 40 Savanna & lu_type('MODIS_10 ', 'GRASS ', 247.0, 20.0), ! 41 Grasslands & lu_type('MODIS_11 ', 'WETLAND', 260.0, 125.0), ! 42 Perminent Wetlands & lu_type('MODIS_12 ', 'AG ', 340.0, 81.0), ! 43 Croplands & lu_type('MODIS_13 ', 'BUILT ', 338.0, 190.0), ! 44 Urban and Built-up & lu_type('MODIS_14 ', 'AGMOS ', 298.0, 50.0), ! 45 Crop/Natural Mosaic & lu_type('MODIS_15 ', 'SNOWICE', 0.0, 0.0), ! 46 Snow and Ice & lu_type('MODIS_16 ', 'BARREN ', 246.0, 125.0), ! 47 Sparsely Vegetated & lu_type('MODIS_0 ', 'WATER ', 0.0, 0.0), ! 48 IGBP water & lu_type('MODIS_255', 'SNOWICE', 0.0, 0.0), ! 49 unclassified & lu_type('MODIS_255', 'WATER ', 0.0, 0.0)/) ! 50 fill (normally ocean water) !**************************************************************************************** !**************************************************************************************** ! 40 CLASS MODIS (Outside US, cats 1-20)/NLCD (US only, cats 21-40) LU characterization !------------------------------------------------------------------------------- TYPE( lu_type ),PRIVATE, PARAMETER :: NLCD40( n_nlcd40 ) = (/ ! -Name--- -LU cat - LUF_FAC HGLU_FAC Cat Desc. & lu_type('MODIS_1 ', 'EVEFOR ', 246.0, 40.0), ! 1 Evergreen Needleleaf Forest & lu_type('MODIS_2 ', 'EVEFOR ', 247.0, 130.0), ! 2 Evergreen Broadleaf Forest & lu_type('MODIS_3 ', 'DECFOR ', 267.0, 81.0), ! 3 Deciduous Needleleaf Forest & lu_type('MODIS_4 ', 'DECFOR ', 268.0, 81.0), ! 4 Deciduous Broadleaf Forest & lu_type('MODIS_5 ', 'MIXFOR ', 252.0, 139.0), ! 5 Mixed Forest & lu_type('MODIS_6 ', 'SHRUB ', 246.0, 125.0), ! 6 Closed Shrublands & lu_type('MODIS_7 ', 'SHRUB ', 246.0, 125.0), ! 7 Open Shrublands & lu_type('MODIS_8 ', 'MIXFOR ', 246.0, 125.0), ! 8 Woody Savanna & lu_type('MODIS_9 ', 'MIXFOR ', 246.0, 125.0), ! 9 Savanna & lu_type('MODIS_10 ', 'GRASS ', 247.0, 20.0), ! 10 Grasslands & lu_type('MODIS_11 ', 'WETLAND', 260.0, 125.0), ! 11 Perminent Wetlands & lu_type('MODIS_12 ', 'AG ', 340.0, 81.0), ! 12 Croplands & lu_type('MODIS_13 ', 'BUILT ', 338.0, 190.0), ! 13 Urban and Built-up & lu_type('MODIS_14 ', 'AGMOS ', 298.0, 50.0), ! 14 Crop/Natural Mosaic & lu_type('MODIS_15 ', 'SNOWICE', 0.0, 0.0), ! 15 Snow and Ice & lu_type('MODIS_16 ', 'BARREN ', 246.0, 125.0), ! 16 Sparsely Vegetated & lu_type('MODIS_0 ', 'WATER ', 0.0, 0.0), ! 17 IGBP water & lu_type('MODIS_255', 'WATER ', 0.0, 0.0), ! 18 unclassified & lu_type('MODIS_255', 'WATER ', 0.0, 0.0), ! 19 fill (normally ocean water) & lu_type('MODIS_255', 'WATER ', 0.0, 0.0), ! 20 unclassified & lu_type('NLCD_11 ', 'WATER ', 0.0, 0.0), ! 21 Open water & lu_type('NLCD_12 ', 'SNOWICE', 0.0, 0.0), ! 22 Perennial Ice/snow & lu_type('NLCD_21 ', 'BUILT ', 312.0, 130.0), ! 23 Developed, Open space & lu_type('NLCD_22 ', 'BUILT ', 305.0, 150.0), ! 24 Developed, Low Intensity & lu_type('NLCD_23 ', 'BUILT ', 331.0, 170.0), ! 25 Developed, Medium Intensity & lu_type('NLCD_24 ', 'BUILT ', 402.0, 190.0), ! 26 Developed, High Intensity & lu_type('NLCD_31 ', 'BARREN ', 246.0, 125.0), ! 27 Barren land & lu_type('NLCD_41 ', 'DECFOR ', 274.0, 81.0), ! 28 Deciduous Forest & lu_type('NLCD_42 ', 'EVEFOR ', 246.0, 81.0), ! 29 Evergreen Forest & lu_type('NLCD_43 ', 'MIXFOR ', 254.0, 139.0), ! 30 Mixed Forest & lu_type('NLCD_51 ', 'SHRUB ', 246.0, 73.0), ! 31 Dwarf Scrub & lu_type('NLCD_52 ', 'SHRUB ', 246.0, 125.0), ! 32 Shrub/Scrub & lu_type('NLCD_71 ', 'GRASS ', 247.0, 20.0), ! 33 Grassland/Herbaceous & lu_type('NLCD_72 ', 'GRASS ', 246.0, 125.0), ! 34 Sedge/Herbaceous & lu_type('NLCD_73 ', 'BARREN ', 0.0, 18.0), ! 35 Lichens & lu_type('NLCD_74 ', 'BARREN ', 0.0, 18.0), ! 36 Moss & lu_type('NLCD_81 ', 'AG ', 344.0, 50.0), ! 37 Pasture/Hay & lu_type('NLCD_82 ', 'AG ', 340.0, 80.0), ! 38 Cultivated Crops & lu_type('NLCD_90 ', 'WETLAND', 271.0, 125.0), ! 39 Woody Wetland & lu_type('NLCD_95 ', 'WETLAND', 248.0, 125.0)/) ! 40 Emergent Herbaceous Wetland !***************************************************************************** !***************************************************************************** ! USGS LU characterization -- note below may not match those for the same category in a diff ! classification system. This was done to maintain compatibility with MM5. !----------------------------------------------------------------------------- TYPE( lu_type ), PRIVATE, PARAMETER :: USGS24( n_usgs ) = (/ ! ---Name--- -LU cat - LUF_FAC HGLU_FAC Cat Desc. & lu_type('USGS_Urban', 'BUILT ', 338.0, 190.0), ! 1 Urban or Built-up Land & lu_type('USGS_DrCrp', 'AG ', 340.0, 80.0), ! 2 Dryland Crop and Pasture & lu_type('USGS_IrCrp', 'AG ', 340.0, 32.0), ! 3 Irr. Cropland and Pasture & lu_type('USGS_MixCp', 'AG ', 340.0, 56.0), ! 4 Mixed Dry/Irr Crop and Past & lu_type('USGS_CrGrM', 'AGMOS ', 298.0, 50.0), ! 5 Grassland/Cropland Mosaic & lu_type('USGS_CrWdM', 'AGMOS ', 298.0, 26.0), ! 6 Woodland/Cropland Mosaic & lu_type('USGS_GrsLd', 'GRASS ', 247.0, 20.0), ! 7 Grassland & lu_type('USGS_ShrLd', 'SHRUB ', 246.0, 125.0), ! 8 Shrubland & lu_type('USGS_ShrGr', 'SHRUB ', 246.0, 73.0), ! 9 Mixed Shrubland/Grassland & lu_type('USGS_Savan', 'MIXFOR ', 246.0, 51.0), ! 10 Savanna & lu_type('USGS_DBFst', 'DECFOR ', 268.0, 81.0), ! 11 Broadleaf Deciduous Forest & lu_type('USGS_DNFst', 'DECFOR ', 267.0, 81.0), ! 12 Deciduous Coniferous Forest & lu_type('USGS_EBFst', 'EVEFOR ', 247.0, 130.0), ! 13 Evergreen Broadleaf Forest & lu_type('USGS_ENFst', 'EVEFOR ', 246.0, 40.0), ! 14 Evergreen Coniferous Forest & lu_type('USGS_MxFst', 'MIXFOR ', 252.0, 139.0), ! 15 Mixed forest & lu_type('USGS_Water', 'WATER ', 0.0, 0.0), ! 16 Water & lu_type('USGS_HWtld', 'WETLAND ', 248.0, 125.0), ! 17 Herbaceous Wetland & lu_type('USGS_WWtld', 'WETLAND ', 260.0, 125.0), ! 18 Forested Wetlands & lu_type('USGS_BarSp', 'BARREN ', 246.0, 26.0), ! 19 Barren or Sparsely Vegetated & lu_type('USGS_HrTun', 'GRASS ', 246.0, 62.0), ! 20 Herbaceous Tundra & lu_type('USGS_WdTun', 'SHRUB ', 246.0, 62.0), ! 21 Shrub and Brush Tundra & lu_type('USGS_MxTun', 'SHRUB ', 246.0, 62.0), ! 22 Mixed Tundra & lu_type('USGS_BGTun', 'BARREN ', 246.0, 18.0), ! 23 Bare Ground Tundra & lu_type('USGS_SnwIc', 'SNOWICE ', 0.0, 0.0)/) ! 24 Snowfields or Glaciers CONTAINS SUBROUTINE INIT_LSM( JDate, JTime ) USE HGRD_DEFN USE UTILIO_DEFN USE RUNTIME_VARS, ONLY : WRF_V4P #ifdef twoway USE twoway_data_module, ONLY : num_land_cat #endif IMPLICIT NONE INCLUDE SUBST_FILES_ID ! file name parameters INTEGER, INTENT( In ) :: jdate INTEGER, INTENT( In ) :: jtime CHARACTER( 240 ) :: XMSG = ' ' CHARACTER( 16 ), SAVE :: PNAME = 'Init_LSM' INTEGER l INTEGER :: STAT LOGICAL, SAVE :: INITIALIZED = .FALSE. IF( INITIALIZED ) RETURN INITIALIZED = .TRUE. IF (WRF_V4P) THEN N_SOIL_TYPE = N_SOIL_TYPE_WRFV4P ELSE N_SOIL_TYPE = N_SOIL_TYPE_WRFV3 END IF ALLOCATE (WSAT(N_SOIL_TYPE), & WFC(N_SOIL_TYPE), & WWLT(N_SOIL_TYPE), & BSLP(N_SOIL_TYPE), & WRES(N_SOIL_TYPE), & RHOB(N_SOIL_TYPE), & STAT=STAT) IF (WRF_V4P) THEN WSAT = WSAT_WRFV4P WFC = WFC_WRFV4P WWLT = WWLT_WRFV4P BSLP = BSLP_WRFV4P WRES = WRES_WRFV4P RHOB = RHOB_WRFV4P ELSE WSAT = WSAT_WRFV3 WFC = WFC_WRFV3 WWLT = WWLT_WRFV3 BSLP = BSLP_WRFV3 WRES = WRES_WRFV3 RHOB = RHOB_WRFV3 END IF #ifdef twoway IF ( NUM_LAND_CAT .EQ. 24 ) THEN LAND_SCHEME = 'USGS24' ELSE IF ( NUM_LAND_CAT .EQ. 20 ) THEN LAND_SCHEME = 'MODIS' ELSE IF ( NUM_LAND_CAT .EQ. 50 ) THEN LAND_SCHEME = 'NLCD50' ELSE IF ( NUM_LAND_CAT .EQ. 40 ) THEN LAND_SCHEME = 'NLCD40' END IF #endif ! Write( *,* ) 'Land use scheme is ', TRIM(LAND_SCHEME) SELECT CASE( LAND_SCHEME ) CASE( 'USGS24' ) n_lufrac = n_usgs If ( .Not. Allocated ( cat_lu ) ) Then Allocate ( cat_lu ( n_lufrac ), & name_lu ( n_lufrac ), & LUF_FAC ( n_lufrac ), & HGLU_FAC ( n_lufrac ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating land use data' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF End If cat_lu = USGS24%lu_cat name_lu = USGS24%name LUF_FAC = USGS24%LUF_FAC HGLU_FAC = USGS24%HGLU_FAC CASE( 'MODIS' ) n_lufrac = n_modis If ( .Not. Allocated ( cat_lu ) ) Then Allocate ( cat_lu ( n_lufrac ), & name_lu ( n_lufrac ), & LUF_FAC ( n_lufrac ), & HGLU_FAC ( n_lufrac ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating land use data' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF End If cat_lu = MODIS%lu_cat name_lu = MODIS%name LUF_FAC = MODIS%LUF_FAC HGLU_FAC = MODIS%HGLU_FAC CASE( 'NLCD50' ) n_lufrac = n_nlcd50 If ( .Not. Allocated ( cat_lu ) ) Then Allocate ( cat_lu ( n_lufrac ), & name_lu ( n_lufrac ), & LUF_FAC ( n_lufrac ), & HGLU_FAC ( n_lufrac ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating land use data' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF End If cat_lu = NLCD50%lu_cat name_lu = NLCD50%name LUF_FAC = NLCD50%LUF_FAC HGLU_FAC = NLCD50%HGLU_FAC CASE( 'NLCD40' ) n_lufrac = n_nlcd40 If ( .Not. Allocated ( cat_lu ) ) Then Allocate ( cat_lu ( n_lufrac ), & name_lu ( n_lufrac ), & LUF_FAC ( n_lufrac ), & HGLU_FAC ( n_lufrac ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating land use data' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF End If cat_lu = NLCD40%lu_cat name_lu = NLCD40%name LUF_FAC = NLCD40%LUF_FAC HGLU_FAC = NLCD40%HGLU_FAC CASE DEFAULT xmsg = 'Land use scheme not supported' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT2 ) END SELECT END SUBROUTINE Init_LSM END MODULE LSM_Mod ================================================ FILE: CCTM/src/depv/m3dry/cgrid_depv.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE CGRID_DEPV( GAS_DEPV_FOUND, GAS_DEPV_SUR, CGRID, CGRIDL1 ) C----------------------------------------------------------------------- C Return layer one CGRID concentrations for the gas depv species with species C first in the dimensions order - called by GET_DEPV [DEPV_DEFN module] to C use for bi-directional flux calculations in m3dry C Revision History: C Jeff Young 11 Jan 07: created C 21 Jun 10 J.Young: convert for Namelist redesign C 16 Feb 11 S.Roselle: replaced I/O API include files with UTILIO_DEFN; C 1 Feb 19 David Wong: removed MY_N clauses C----------------------------------------------------------------------- USE CGRID_SPCS ! CGRID mechanism species USE HGRD_DEFN ! horizontal domain specifications USE UTILIO_DEFN C Arguments: LOGICAL, INTENT( IN ) :: GAS_DEPV_FOUND( : ) INTEGER, INTENT( IN ) :: GAS_DEPV_SUR( : ) REAL, POINTER :: CGRID( :,:,:,: ) REAL, INTENT( OUT ) :: CGRIDL1( :,:,: ) C Local Variables: LOGICAL, SAVE :: FIRSTIME = .TRUE. INTEGER C, R, S, N, V, NDX, STRT C----------------------------------------------------------------------- IF ( FIRSTIME ) THEN FIRSTIME = .FALSE. END IF N = 0 STRT = 0 DO V = 1, N_GC_DEPV N = N + 1 IF ( GAS_DEPV_FOUND( N ) ) THEN NDX = GAS_DEPV_SUR( N ) S = STRT + GC_DEPV_MAP( V ) DO R = 1, NROWS DO C = 1, NCOLS CGRIDL1( NDX,C,R ) = CGRID( C,R,1,S ) END DO END DO END IF END DO STRT = N_GC_SPC + 1 + N_AE_SPC ! +1 for RHOJ DO V = 1, N_NR_DEPV N = N + 1 IF ( GAS_DEPV_FOUND( N ) ) THEN NDX = GAS_DEPV_SUR( N ) S = STRT + NR_DEPV_MAP( V ) DO R = 1, NROWS DO C = 1, NCOLS CGRIDL1( NDX,C,R ) = CGRID( C,R,1,S ) END DO END DO END IF END DO STRT = N_GC_SPC + 1 + N_AE_SPC + N_NR_SPC DO V = 1, N_TR_DEPV N = N + 1 IF ( GAS_DEPV_FOUND( N ) ) THEN NDX = GAS_DEPV_SUR( N ) S = STRT + TR_DEPV_MAP( V ) DO R = 1, NROWS DO C = 1, NCOLS CGRIDL1( NDX,C,R ) = CGRID( C,R,1,S ) END DO END DO END IF END DO END SUBROUTINE CGRID_DEPV C for cb05: C strt v n ndx s GAS_DEPV_FOUND GAS_DEPV_SUR C 0 1 1 3 1 (1) .true. 3 VD_NO2 C 0 2 2 4 2 (2) .true. 4 VD_NO C 0 3 3 5 4 (3) .true. 5 VD_O3 C 0 4 4 19 5 (4) .true. 19 VD_NO3 C 0 5 5 18 9 (5) .true. 18 VD_N2O5 C 0 6 6 6 10 (6) .true. 6 VD_HNO3 C 0 7 7 15 11 (7) .true. 15 VD_HONO C 0 8 8 7 13 (8) .true. 7 VD_H2O2 C 0 9 9 14 16 (9) .true. 14 VD_PAN C 0 10 10 10 17 (10) .true. 10 VD_OP C 0 11 11 9 18 (11) .true. 9 VD_HCHO C 0 12 12 8 19 (12) .true. 8 VD_ALD C 0 13 13 20 20 (13) .true. 20 VD_GEN_ALD C 0 14 14 16 22 (14) .true. 16 VD_CO C x 0 15 15 16 22 (15) .false. 10 VD_OP C 0 16 16 17 25 (16) .true. 17 VD_METHANOL C 0 17 17 12 27 (17) .true. 12 VD_ORA C x 0 18 18 12 27 (18) .false. 14 VD_PAN C 0 19 19 11 30 (19) .true. 11 VD_PAA C x 0 20 20 11 30 (20) .false. 12 VD_ORA C x 0 21 21 11 30 (21) .false. 14 VD_PAN C 0 22 22 1 52 (22) .true. 1 VD_SO2 C 0 23 23 2 53 (23) .true. 2 VD_SULF C 91 1 24 13 92 (24) .true. 13 VD_NH3 C x 91 2 25 13 92 (25) .false. 12 VD_ORA C x 91 3 26 13 92 (26) .false. 12 VD_ORA C x 91 4 27 13 92 (27) .false. 12 VD_ORA C x 91 5 28 13 92 (28) .false. 12 VD_ORA C x 91 6 29 13 92 (29) .false. 12 VD_ORA C x 91 7 30 13 92 (30) .false. 12 VD_ORA C x 91 8 31 13 92 (31) .false. 12 VD_ORA C x 91 9 32 13 92 (32) .false. 12 VD_ORA C x 91 10 33 13 92 (33) .false. 12 VD_ORA C x 91 11 34 13 92 (34) .false. 12 VD_ORA C 91 12 35 21 103 (35) .true. 21 VD_HCL C for cb05cl: C strt v n ndx s GAS_DEPV_FOUND GAS_DEPV_SUR C 0 1 1 3 1 .true. 3 VD_NO2 C 0 2 2 4 2 .true. 4 VD_NO C 0 3 3 5 4 .true. 5 VD_O3 C 0 4 4 19 5 .true. 19 VD_NO3 C 0 5 5 18 9 .true. 18 VD_N2O5 C 0 6 6 6 10 .true. 6 VD_HNO3 C 0 7 7 15 11 .true. 15 VD_HONO C 0 8 8 7 13 .true. 7 VD_H2O2 C 0 9 9 14 16 .true. 14 VD_PAN C 0 10 10 10 17 .true. 10 VD_OP C 0 11 11 9 18 .true. 9 VD_HCHO C 0 12 12 8 19 .true. 8 VD_ALD C 0 13 13 20 20 .true. 20 VD_GEN_ALD C 0 14 14 16 22 .true. 16 VD_CO C 0 15 15 16 22 .false. 10 VD_OP C 0 16 16 17 25 .true. 17 VD_METHANOL C 0 17 17 12 27 .true. 12 VD_ORA C 0 18 18 12 27 .false. 14 VD_PAN C 0 19 19 11 30 .true. 11 VD_PAA C 0 20 20 11 30 .false. 12 VD_ORA C 0 21 21 11 30 .false. 14 VD_PAN C 0 22 22 1 52 .true. 1 VD_SO2 C 0 23 23 2 53 .true. 2 VD_SULF C 0 24 24 21 57 .true. 21 VD_CL2 C 0 25 25 22 59 .true. 22 VD_HOCL C 0 26 26 24 61 .true. 24 VD_FMCL C 0 27 27 23 62 .true. 23 VD_HCL C 122 1 28 13 123 .true. 13 VD_NH3 C 122 2 29 13 123 .false. 12 VD_ORA C 122 3 30 13 123 .false. 12 VD_ORA C 122 4 31 13 123 .false. 12 VD_ORA C 122 5 32 13 123 .false. 12 VD_ORA C 122 6 33 13 123 .false. 12 VD_ORA C 122 7 34 13 123 .false. 12 VD_ORA C 122 8 35 13 123 .false. 12 VD_ORA C 122 9 36 13 123 .false. 12 VD_ORA C 122 10 37 13 123 .false. 12 VD_ORA C 122 11 38 13 123 .false. 12 VD_ORA C 122 12 39 13 123 .false. 12 VD_ORA C 122 13 40 13 123 .false. 12 VD_ORA ================================================ FILE: CCTM/src/depv/m3dry/depv_data_module.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! !------------------------------------------------------------------------! ! This module contains key component from ABFLUX_MOD.F to facilitate ! centralized I/O implementation by avoiding cyclic data dependence ! Revision History: ! 01 Feb 2019 D.Wong initial implementation, !------------------------------------------------------------------------! module depv_data_module implicit none integer, parameter :: e2c_cats = 42 ! number of crop catigories ! Some compilers do not pad with blank characters in data initialization ! '12345678901234567890' character( 20 ), parameter :: Beld_Names( e2c_cats ) = & (/ 'Hay ', ! 1 & 'Hay_ir ', ! 2 & 'Alfalfa ', ! 3 & 'Alfalfa_ir ', ! 4 & 'Other_Grass ', ! 5 & 'Other_Grass_ir ', ! 6 & 'Barley ', ! 7 & 'Barley_ir ', ! 8 & 'BeansEdible ', ! 9 & 'BeansEdible_ir ', ! 10 & 'CornGrain ', ! 11 & 'CornGrain_ir ', ! 12 & 'CornSilage ', ! 13 & 'CornSilage_ir ', ! 14 & 'Cotton ', ! 15 & 'Cotton_ir ', ! 16 & 'Oats ', ! 17 & 'Oats_ir ', ! 18 & 'Peanuts ', ! 19 & 'Peanuts_ir ', ! 20 & 'Potatoes ', ! 21 & 'Potatoes_ir ', ! 22 & 'Rice ', ! 23 & 'Rice_ir ', ! 24 & 'Rye ', ! 25 & 'Rye_ir ', ! 26 & 'SorghumGrain ', ! 27 & 'SorghumGrain_ir ', ! 28 & 'SorghumSilage ', ! 29 & 'SorghumSilage_ir ', ! 30 & 'Soybeans ', ! 31 & 'Soybeans_ir ', ! 32 & 'Wheat_Spring ', ! 33 & 'Wheat_Spring_ir ', ! 34 & 'Wheat_Winter ', ! 35 & 'Wheat_Winter_ir ', ! 36 & 'Other_Crop ', ! 37 & 'Other_Crop_ir ', ! 38 & 'Canola ', ! 39 & 'Canola_ir ', ! 40 & 'Beans ', ! 41 & 'Beans_ir ' ! 42 & /) real, allocatable :: Beld_ag ( :,:,: ) ! for E2C_SOIL file real, allocatable :: pHs1 ( :,:,: ) real, allocatable :: pHs2 ( :,:,: ) real, allocatable :: por1 ( :,:,: ) real, allocatable :: por2 ( :,:,: ) real, allocatable :: wp1 ( :,:,: ) real, allocatable :: wp2 ( :,:,: ) real, allocatable :: cec1 ( :,:,: ) real, allocatable :: cec2 ( :,:,: ) ! for E2C_CHEM file real, Allocatable :: NH4ps1 ( :,:,: ) ! Total Soil NH4 from EPIC real, Allocatable :: NH4ps2 ( :,:,: ) real, Allocatable :: wep1 ( :,:,: ) real, Allocatable :: wep2 ( :,:,: ) real, Allocatable :: dep2 ( :,:,: ) end module depv_data_module ================================================ FILE: CCTM/src/depv/m3dry/gas_depv_map.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE GAS_DEPV_MAP ( N_DEPV_NAMES, DEPV_NAMES, DEPV_SUR ) C---------------------------------------------------------------------- C 21 Jun 10 J.Young: convert for Namelist redesign C 16 Feb 2011 S.Roselle: replaced I/O API include files with UTILIO_DEFN C---------------------------------------------------------------------- USE CGRID_SPCS ! CGRID mechanism species USE DEPVVARS USE UTILIO_DEFN #ifdef mpas USE util_module, only : index1 #endif IMPLICIT NONE C Arguments: INTEGER, INTENT( IN ) :: N_DEPV_NAMES ! number of unique dep vel species CHARACTER( 16 ), INTENT( INOUT ) :: DEPV_NAMES( : ) ! names of dep vel species INTEGER, INTENT( OUT ) :: DEPV_SUR( : ) ! pointers to model species for ! calculated deposition velocities ! (surrogate dep vels [m/s**2]) C Local variables: INTEGER :: JDATE = 0 INTEGER :: JTIME = 0 CHARACTER( 16 ), SAVE :: PNAME = 'GAS_DEPV_MAP' CHARACTER( 96 ) :: XMSG = ' ' CHARACTER( 16 ) :: VNAME ! scratch string INTEGER ALLOCSTAT INTEGER V, N INTEGER STRT, FINI C---------------------------------------------------------------------- IF ( ( N_GC_SPC + N_NR_SPC + N_TR_SPC ) .LE. 0 ) THEN XMSG = 'Model not compiled for gases' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF C Set up names and indices IF ( .NOT. DEPVVARS_INIT( ) ) THEN XMSG = 'Failure initializing depvvars module' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF C Set up the DEPV pointers to calculated deposition velocities #ifdef Verbose WRITE( LOGDEV,* ) ' ' WRITE( LOGDEV,* ) ' > Unique DEPV versus DEPSPC' #endif DO V = 1, N_DEPV_NAMES VNAME = DEPV_NAMES( V )( 4:LEN_TRIM( DEPV_NAMES( V ) ) ) N = INDEX1( VNAME, LTOTG, DEPSPC ) IF ( N .NE. 0 ) THEN IF ( .NOT. USE_DEPSPC( N ) ) THEN USE_DEPSPC( N ) = .TRUE. N_USE_DEPSPC = N_USE_DEPSPC + 1 #ifdef Verbose WRITE( LOGDEV,1005 ) V, DEPV_NAMES( V ), N, DEPSPC( N ) #endif END IF ELSE XMSG = 'Could not find ' // TRIM( DEPV_NAMES( V ) ) // & ' in ' // TRIM( DEPV_METHOD ) // & ' surrogate table.' ! & ' surrogate table. >>> Dep vel set to zero <<< ' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF END DO C Sort DEPV_NAMES based on the order in DEPSPC (DEPVVARS module) #ifdef Verbose WRITE( LOGDEV,* ) ' ' WRITE( LOGDEV,* ) ' > Sorted DEPV names (1st index from total m3dry list)' #endif N = 0 DO V = 1, LTOTG ! IF ( .NOT. USE_DEPSPC( V ) ) CYCLE IF ( .NOT. USE_DEPSPC( V ) ) THEN #ifdef Verbose WRITE( LOGDEV,1009 ) V, USE_DEPSPC( v ), 0, ' ' #endif ELSE N = N + 1 VNAME = 'VD_' // DEPSPC( V )( 1:LEN_TRIM( DEPSPC( V ) ) ) DEPV_NAMES( N ) = VNAME #ifdef Verbose WRITE( LOGDEV,1009 ) V, USE_DEPSPC( V ), N, DEPV_NAMES( N ) #endif END IF END DO C Locate model species' DEPVs in the unique DEPV_NAMES list DO V = 1, N_GC_DEPV VNAME = GC_DEPV( V ) N = INDEX1( VNAME, N_DEPV_NAMES, DEPV_NAMES ) IF ( N .NE. 0 ) THEN DEPV_SUR( V ) = N ELSE XMSG = 'Could not find ' // TRIM( GC_DEPV( V ) ) & // ' in DEPV table.' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF END DO STRT = N_GC_DEPV + 1 FINI = N_GC_DEPV + N_NR_DEPV DO V = STRT, FINI VNAME = NR_DEPV( V - ( STRT-1 ) ) N = INDEX1( VNAME, N_DEPV_NAMES, DEPV_NAMES ) IF ( N .NE. 0 ) THEN DEPV_SUR( V ) = N ELSE XMSG = 'Could not find ' // TRIM( NR_DEPV( V ) ) & // ' in DEPV table.' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF END DO STRT = N_GC_DEPV + N_NR_DEPV + 1 FINI = N_GC_DEPV + N_NR_DEPV + N_TR_DEPV DO V = STRT, FINI VNAME = TR_DEPV( V - (STRT-1) ) N = INDEX1( VNAME, N_DEPV_NAMES, DEPV_NAMES ) IF ( N .NE. 0 ) THEN DEPV_SUR( V ) = N ELSE XMSG = 'Could not find ' // TRIM( TR_DEPV( V ) ) & // ' in DEPV table.' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF END DO #ifdef Verbose WRITE( LOGDEV,* ) ' ' WRITE( LOGDEV,* ) ' > ', PNAME, 'Final Gas DEPV Map' STRT = 0 DO V = 1, N_GC_DEPV WRITE( LOGDEV,1019 ) V, GC_DEPV( V ), DEPV_SUR( V+STRT ), & DEPV_NAMES( DEPV_SUR( V+STRT) ) END DO STRT = N_GC_DEPV DO V = 1, N_NR_DEPV WRITE( LOGDEV,1019 ) V, NR_DEPV( V ), DEPV_SUR( V+STRT ), & DEPV_NAMES( DEPV_SUR( V+STRT) ) END DO STRT = N_GC_DEPV + N_NR_DEPV DO V = 1, N_TR_DEPV WRITE( LOGDEV,1019 ) V, TR_DEPV( V ), DEPV_SUR( V+STRT ), & DEPV_NAMES( DEPV_SUR( V+STRT) ) END DO #endif RETURN RETURN 1005 FORMAT( I5, 1X, A16, I3, 1X, A16 ) !009 FORMAT( I5, 1X, I4, 1X, A16 ) 1009 FORMAT( I5, 1X, L3, 1X, I4, 1X, A16 ) 1019 FORMAT( 3( I3, 1X, A16, 1X ) ) END SUBROUTINE GAS_DEPV_MAP ================================================ FILE: CCTM/src/depv/m3dry/m3dry.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/work/rep/arc/CCTM/src/depv/m3dry/m3dry.F,v 1.12 2012/01/19 14:19:43 yoj Exp $ C:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE m3dry ( jdate, jtime, dtsec, cgridl1, depvel_gas, pvd, nh3_ddep) C------------------------------------------------------------------------------- C Name: Models-3 Dry Deposition C Purpose: Computes dry deposition velocities using Rst and Ra, and C elements of ADOM DD model. C Revised: 21 Jan 1998 Original version. (J. Pleim and A. Bourgeois) C 18 Sep 2001 Made general for USGS 24-category system. C (T. Otte, J. Pleim, and W. Hutzell) C 14 Jan 2002 Added temperature dependence to Henry's Law C constants. Added temperature and pressure C dependence to diffusivity. Added new dry C deposition species, methanol. (Y. Wu and T. Otte) C 18 Jan 2002 Changed the reference wet cuticle resistance. C (J. Pleim) C 09 Jun 2003 Added logic for modeling snow covered surfaces. C Changed the reactivities for SO2, HNO3 and NH3. C Changed pH values to have an east-west variation. C Using the Henry's law constant function from CMAQ in C place of local code. Also changed the code for C deposition to water to use a pH of 8.1 and the C temperature of water in calculating the Henry's law C constant. Adjusted values of RSNOW0 = 1000 and C A(NH3) = 20. Added new dry deposition species: N2O5, C NO3, Generic_aldehyde. Corrected diffusivities of C chemicals and water and viscosity of air to all be at C the same temperature (273.15K). Temperature and C pressure adjustments to the values are not needed C because the diffusivities and viscosity are always used C as ratios, so the temperature-pressure dependence was C removed. Removed dry deposition species, ATRA and C ATRAP, from output. (D. Schwede, J. Pleim, and C T. Otte) C 28 Feb 2005 Added optional dry deposition species for chlorine C and mercury. (G. Sarwar, R. Bullock, and T. Otte) C 02 Feb 2006 Added mesophyll resistance to dry deposition velocity C calculation, and defined non-zero value for mercury. C (D. Schwede, J. Pleim, and R. Bullock) C 01 Aug 2007 Added a non-zero mesophyll resistance for NO, NO2, and C CO. Restored wet cuticle resistance for O3 based on C field study measurements. Added wet ground resistance. C Changed ground resistance to include partitioning of C wet and dry ground. Updated pH of rain water for C eastern United States and outside of North America. C Changed reactivity for PAN. Removed dry deposition C velocity calculations for obsolete chlorine species C ICL1 and ICL2. Corrected error in the calculation of C surface resistance over water where (Sc/Pr)**(2/3) had C been inadvertently omitted from the numerator. C Surface resistance over water is now a function of C species. Surface resistance over water now uses wet C bulb temperature rather than ground (water) temperature C in the calculation of the effective Henry's law C constant, and the algorithm has been updated. Changed C (Sc/Pr)**(2/3) over water to a species-dependent, C meteorologically dependent variable. Effective Henry's C law constant over land now uses 2-m temperature rather C than layer 1 temperature. Changed ES C into ES_AIR and ES_GRND, and changed QSS into QSS_AIR C and QSS_GRND to clarify usage. (J. Pleim, E. Cooter, C J. Bash, T. Otte, and G. Sarwar) C 07 Dec 2007 Add into CMAQ for in-line deposition velocities. C (W. Hutzell, J. Young and T. Otte) C 07 Jan 2008 Changed the value of d3, the scaling parameter used to C estimate the friction velocity in surface waters from C the atmospheric friction velocity to a value following C Slinn et al. (1978) and Fairall et al. (2007). C (J. Bash) C 01 Feb 2008 Added bidirectional NH3 flux calculations. (J. Pleim and C J. Young) C 20 Mar 2008 Added a trap for undefined dry deposition velocities C (e.g., NaN's). (T. Otte) C 21 Mar 2008 Added heterogeneous reaction for HONO. It affects HONO, NO2 C and HNO3 (G. Sarwar) C 30 Apr 2008 Added five air toxic species to output. (W. Hutzell C and T. Otte) C August 2008 Applied a minimum value to ustg (0.001 m/s) to prevent C negative rbg values in the bidi calculation (J. Pleim) C 05 Oct 2009 Added condition that vegetation fraction must be C greater than zero to be considered a land point. This C works around intermittent inconsistencies in surface C fields in some WRF data sets. (T. Otte) C Dec 2009 Revised bidirectional NH3 flux calculations to use soil C Gamma values read from gridded file. Bidi flux calcs C based on comparisons with Lillington, NC corn data 2007 (J. Pleim) C 30 Mar 2010 Modified to output the NH3 bidi stomtal, cuticle and soil component C fluxes and chaged NH3 bidi variables used in estimating the compensation C point double. (J. Bash) C 16 Feb 2011 S.Roselle: replaced I/O API include files with UTILIO_DEFN C 20 May 2011 D.Schwede: add MOSAIC processing C 14 Jul 2011 Replaced dw25 calculation with Hayduk and Laudie method. C LeBas molar volumes are from the Schroeder additive method C with the exception of HGIIGAS (modeled as HgCl2) which was C obtained using the Tyn and Calus method. Also, ICL1 and ICL2 C were removed. (D. Schwede) C 27 Jul 2011 J.Bash: Parmaterized the mesophyll resistance as a function C of solubility following Wesely 1989 Atmos Environ. C 15 Aug 2011 Modified HONO calculation so that deposition velocity for NO2 C that is output in DEPV file does not include the loss due to C the heterogeneous reaction. This additional loss is now C accounted for in vdiff.F (D. Schwede and G. Sarwar) C 29 Aug 2011 Added NH3 bidirectional flux variables and modules and integrated C NH3 bidi algorithms with MOSAIC algorithms. NH3 bidi routines now C read in foratted EPIC output and maintain a soil NH4 budget and C fluxes are calculated for individual land cover types. C (J. Bash and D. Schwede) C 22 Sep 2011 -- incorporated twoway model implementation C -- removed non-use dluse array C (David Wong) C 26 Sep 2011 -- made the number of actual and dummy arguments the same in C calling subroutine Init_ABFlux C (David Wong) C 7 Jun 2012 Allow read of C-staggered (UWINDC and VWINDC) wind and B-staggered C (UWIND and VWIND) from MET_DOT_3D to maintain compatibility with C current and previous versions of MCIP (J. Bash) C 12 Sep 2012 Added code for NLCD40 land use classification (D. Schwede) C 20 May 2013 Added code for increased ozone deposition to oceans due to iodide (D. Schwede) C 30 Jul 2013 Added new organic N species for explicit deposition due to differences in Henry's Law C 14 Nov 2013 Added MPAN as an explicit species, separating it from PANX C 28 Aug 2014 G. Sarwar: added deposition data for CLNO2 C 7 Nov 2014 J. Bash: Modified for the restructuring of vidff. Moved constants and data to C ASX_DATA_MOD. C June 2018 revised for v5.3 - removed mosaic, new epic-bidi - j pleim C 01 Feb 2019 D. Wong: Implemented centralized I/O approach, removed all MY_N clauses C 12 Dec 2019 S.L.Napelenok: update for cmaq 5.3.1 C August 2020 J Pleim: corrected TSTEP to be DTSEC. Corrects NH3 bidi emis, dep outputs C------------------------------------------------------------------------------- USE RUNTIME_VARS USE HGRD_DEFN ! horizontal grid specifications USE DEPVVARS USE VGRD_DEFN ! to get VGTYP_GD USE UTILIO_DEFN #ifdef mpas Use util_module, only : secsdiff #else #ifdef parallel USE SE_MODULES ! stenex (using SE_COMM_MODULE) #else USE NOOP_MODULES ! stenex (using NOOP_COMM_MODULE) #endif #endif Use ABFlux_Mod ! bidi NH3 exchange routines Use ASX_DATA_MOD ! contains CONSTANTS include Use BIDI_MOD, only:HGBIDI ! contains CONSTANTS include Use HGSIM #ifdef twoway USE twoway_data_module, only : num_land_cat #endif Use CENTRALIZED_IO_MODULE, only : WR_AVAIL #ifdef sens USE DDM3D_DEFN, ONLY : NP, NPMAX, S_PVD, S_CGRIDL1 #endif IMPLICIT NONE C Includes: INCLUDE SUBST_FILES_ID ! file name parameters INCLUDE SUBST_PE_COMM ! PE communication displacement and direction C Arguments: INTEGER, INTENT( IN ) :: jdate INTEGER, INTENT( IN ) :: jtime REAL, INTENT( IN ) :: dtsec ! model time step (sec) REAL, INTENT( IN ) :: cgridl1( :,:,: ) ! layer 1 concentrations REAL, INTENT( OUT ) :: depvel_gas( :,:,: ) REAL, INTENT( OUT ) :: pvd( :,:,: ) REAL, INTENT( OUT ) :: nh3_ddep(:,:) C Local Variables: INTEGER :: c,r,l,n ! loop variables INTEGER :: elapsedsec,idt INTEGER :: ifsnow ! 1=snow INTEGER, SAVE, ALLOCATABLE :: lstwetdate( :,: ) INTEGER, SAVE, ALLOCATABLE :: lstwettime( :,: ) REAL :: cp_air ! specific heat of moist air REAL :: ctemp2 ! temp2 [C] REAL :: dw REAL :: dw25 ! diffusivity of water at 298.15 k REAL :: hcan REAL :: heff ! effective Henry's Law constant REAL :: heff_ap ! Henry's Law constant for leaf apoplast M/atm REAL :: hplus REAL :: kvisw ! kinematic viscosity of water [cm^2/s] REAL :: lv ! latent heat of vaporization REAL :: laicr ! col row lai REAL :: q2p0cr ! cell 2.0 m water vapor mix ratio REAL :: rac REAL :: rbc REAL :: rci REAL :: rcut REAL :: rgnd REAL :: rgndc REAL :: rgw ! resist for water-covered sfc REAL :: rh_grnd ! rel humidity (ground) REAL :: rinc REAL :: rsnow REAL :: rstom REAL :: rsurf REAL :: rwet ! wet sfc resist (cuticle or grnd) REAL :: rwetsfc REAL :: scw_pr_23 ! (scw/pr)**2/3 REAL :: temp2p0cr ! cell 2.0-m temp REAL :: tempgcr ! cell ground temp REAL :: tw ! wet bulb temp. REAL :: ustarcr ! cell friction velocity REAL :: vegcr ! cell veg coverage fraction REAL :: wrmax REAL, SAVE :: xcent REAL, SAVE :: ycent REAL :: xm ! liquid water mass frac REAL :: rh_func ! Simple RH function for the development of a water film on leaf cuticles Real, Parameter :: MolNH3 = 17.01 ! g/mol NH3 for NH3 bidi to convert to microg/m3 Real, Parameter :: MolAir = 29.97 ! g/mol dry air Real :: cnh3,tpvd,lnh3,femis,fdep REAL, SAVE, ALLOCATABLE :: delta ( :,: ) REAL, EXTERNAL :: hlconst ! [M / atm] LOGICAL :: effective ! true=compute effective Henry's Law const LOGICAL, SAVE :: first_call = .TRUE. CHARACTER( 16 ), PARAMETER :: pname = 'M3DRY' CHARACTER( 96 ) :: xmsg = ' ' REAL, SAVE :: scc_pr_23( ltotg ) ! (SCC/PR)**2/3, fn of DIF0 C------------------------------------------------------------------------------- C gas phase species indexes Integer, Save :: n_HONO Integer, Save :: l_HONO ! m3dry map Integer, Save :: n_NO2 ! CGRID map Integer, Save :: l_NO2 Integer, Save :: n_O3 ! CGRID map Integer, Save :: l_O3 Integer, Save :: n_NH3 ! CGRID map Integer, Save :: l_NH3 Integer, Save :: n_HG ! CGRID map Integer, Save :: l_HG Integer, Save :: n_HGII ! CGRID map Integer, Save :: l_HGII C------------------------------------------------------------------------------- C For ozone exchange over the ocean REAL :: pchang ! p value used in equation (12) in Chang et al( 2004) REAL :: kwchang ! kw value used in Chang et al (2004) REAL :: ciodide ! iodide concentration (umol/L) REAL :: qiodide ! q in Chang et al (2004) C------------------------------------------------------------------------------- C For heterogenous hono on surfaces REAL :: conc_no2 ! concentration of NO2 REAL :: kno2 ! first order rate constant for the heterogenous reaction [1/s] REAL :: surf_bldg ! Surface area of bldgs to volume of air [-] REAL :: surf_leaf ! Surface area of leaves to volume of air [-] #ifdef sens REAL :: s_conc_no2( NPMAX ) #endif C------------------------------------------------------------------------------- C For Mercury bidirectional flux REAL :: chg ! gem layer one concentration REAL :: awhg ! GEM Oswald solubility coeff REAL :: chgIIgas ! rgm layer one concentration REAL :: vdHgII ! divalent mercury deposition velocity REAL :: vdHg ! elemental mercury deposition velocity REAL :: dpvd ! dummy pvd variable passed to the hgasx subroutine REAL :: dvel ! dummy depvel_gas returned from ATX C------------------------------------------------------------------------------- IF ( first_call ) THEN first_call = .FALSE. DO l = 1, n_spc_m3dry IF ( dif0( l ) > 0.0 ) THEN scc_pr_23( l ) = ( ( kvis / dif0( l ) ) / pr ) ** twothirds ELSE scc_pr_23( l ) = 0.0 END IF END DO #ifdef mpas xcent = 0.0 ycent = 0.0 #else IF ( .NOT. desc3( met_cro_2d ) ) THEN xmsg = 'Could not get met_cro_2d file description' CALL m3exit( pname, jdate, jtime, xmsg, xstat2 ) END IF xcent = real( xcent3d, 4 ) ycent = real( ycent3d, 4 ) #endif IF ( abflux ) THEN CALL Init_ABFlux( jdate, jtime ) END IF IF ( .NOT. ALLOCATED ( delta ) ) THEN ALLOCATE ( delta( ncols,nrows ) ) delta( :,: ) = 0.0 END IF IF ( .NOT. ALLOCATED ( lstwetdate ) .AND. .NOT. WR_AVAIL ) THEN ALLOCATE ( lstwetdate( ncols,nrows ) ) lstwetdate( :,: ) = 0 END IF IF ( .NOT. ALLOCATED ( lstwettime ) .AND. .NOT. WR_AVAIL ) THEN ALLOCATE ( lstwettime( ncols,nrows ) ) lstwettime( :,: ) = 0 END IF C----------------------------------------------------------------- C Species maps C----------------------------------------------------------------- l_HONO = 0 n_HONO = 0 l_NO2 = 0 n_NO2 = 0 l_O3 = 0 n_O3 = 0 l_NH3 = 0 n_NH3 = 0 l_HG = 0 n_HG = 0 l_HGII = 0 n_HGII = 0 n = 0 maploop: DO l = 1, n_spc_m3dry IF ( .NOT. use_depspc( l ) ) CYCLE maploop n = n + 1 If ( depspc( l ) .EQ. 'NO2' ) THEN l_NO2 = l n_NO2 = n End If If ( depspc( l ) .EQ. 'HONO' ) THEN l_HONO = l n_HONO = n End If If ( depspc( l ) .EQ. 'O3' ) THEN l_O3 = l n_O3 = n End If If ( depspc( l ) .EQ. 'NH3' ) THEN l_NH3 = l n_NH3 = n End If If ( depspc( l ) .EQ. 'HG' ) THEN l_HG = l n_HG = n End If If ( depspc( l ) .EQ. 'HGIIGAS' ) THEN l_HGII = l n_HGII = n End If END DO maploop END IF ! first_call C------------------------------------------------------------------------------- C Loop over grid cells and calculate dry deposition. C------------------------------------------------------------------------------- effective = .TRUE. idt = nint(dtsec) depvel_gas( :,:,: ) = 0.0 ! initialize for this time period pvd ( :,:,: ) = 0.0 ! " " " " " #ifdef sens s_pvd ( :,:,:,: ) = 0.0 #endif DO r = 1, nrows DO c = 1, ncols laicr = MET_DATA%LAI ( c,r ) q2p0cr = MET_DATA%Q2 ( c,r ) temp2p0cr = MET_DATA%TEMP2 ( c,r ) tempgcr = MET_DATA%TEMPG ( c,r ) ustarcr = MET_DATA%USTAR ( c,r ) vegcr = MET_DATA%VEG ( c,r ) ifsnow = MAX( 0, NINT( MET_DATA%SNOCOV( c,r ) ) ) ! Calculate the relative humidity of air and ground. rh_grnd = 100.0 * q2p0cr / MET_DATA%QSS_GRND( c,r ) rh_grnd = MIN( 100.0, rh_grnd ) IF ( ( NINT(GRID_DATA%LWMASK( c,r )) .NE. 0 ) .AND. ( vegcr .GT. 0.0 ) ) THEN ! land IF ( .NOT. WR_AVAIL ) THEN ! approx canopy wetness - dew from Wesely ! canopy is wet if > trace precip. or moist with light winds IF ( ( MET_DATA%RN( c,r ) + MET_DATA%RC( c,r ) .GT. 0.025 ) .OR. & ( (0.6 + MET_DATA%WSPD10( c,r ))*(100.0-rh_grnd) .LE. 19.0 ) ) THEN delta( c,r ) = 1.0 lstwetdate( c,r ) = jdate lstwettime( c,r ) = jtime ELSE IF ( MET_DATA%RGRND( c,r ) .GT. 5.0 ) THEN ! day (if at night, persist delta) ! Determine if canopy was recently wet. IF ( ( lstwetdate( c,r ) .GT. 0 ) .AND. & ( lstwettime( c,r ) .GT. 0 ) ) THEN ! canopy recently wet elapsedsec = secsdiff ( lstwetdate( c,r ), & lstwettime( c,r ), & jdate, jtime ) IF ( ( elapsedsec .GT. 0 ) .AND. ! assume canopy stays & ( elapsedsec .LE. 7200 ) ) THEN ! wet for 2 h delta( c,r ) = 1.0 ELSE IF ( ( elapsedsec .GT. 7200 ) .AND. ! ramp down DELTA & ( elapsedsec .LT. 10800 ) ) THEN ! between 2 & 3 h delta( c,r ) = ( 10800.0 - FLOAT( elapsedsec ) ) / 3600.0 ELSE delta( c,r ) = 0.0 lstwetdate( c,r ) = 0 lstwettime( c,r ) = 0 END IF END IF END IF END IF ELSE ! Already have canopy wetness explicitly from met model wrmax = 0.2e-3 * vegcr * laicr ! [m] IF ( MET_DATA%WR( c,r ) .LE. 0.0 ) THEN delta( c,r ) = 0.0 ELSE delta( c,r ) = MET_DATA%WR( c,r ) / wrmax ! refer to SiB model delta( c,r ) = MIN( delta( c,r ), 1.0 ) END IF END IF ! canopy wetness ! Assign a pH for rain water based on longitude if US simulation. ! Otherwise use default pH. Use pH value in HPLUS calculation. #ifdef mpas hplus = hplus_def #else IF ( ( ycent .GE. 30.0 ) .AND. ( ycent .LE. 45.0 ) .AND. & ( xcent .GE. -120.0 ) .AND. ( xcent .LE. -70.0 ) ) THEN IF ( GRID_DATA%LON( c,r ) .GT. -100.0 ) THEN hplus = hplus_east ELSE hplus = hplus_west END IF ELSE hplus = hplus_def END IF #endif ELSE ! water ! Calculate the water surface film temperature: wet bulb temperature. ! Wet bulb temperature based on eqn in Fritschen and Gay (1979). ctemp2 = temp2p0cr - stdtemp lv = lv0 - dlvdt * ctemp2 cp_air = 1004.67 * ( 1.0 + 0.84 * q2p0cr ) ! [J/kg/K] tw = ( ( 4.71e4 * cp_air / lv ) - 0.870 ) + stdtemp ! [K] END IF ! land or water ! Loop over species to calculate dry deposition velocities. n = 0 ddloop: DO l = 1, n_spc_m3dry IF ( .NOT. use_depspc( l ) ) CYCLE ddloop n = n + 1 ! IF ( ( NINT(GRID_DATA%LWMASK( c,r )) .EQ. 0 ) .OR. ( vegcr .EQ. 0.0 ) ) THEN ! water IF ( NINT(GRID_DATA%LWMASK( c,r )) .EQ. 0 ) THEN ! water IF ( l .EQ. l_HG ) THEN ! elemental mercury gas ! calculate and save Henry's constant for use in HGSIM IF( HGBIDI ) THEN awhg = hlconst( subname( l ), tw, effective, hplus_h2o )* 0.08205 * tw ELSE rsurf = 1.0e30 END IF ELSE ! any species other than elemental mercury gas ! Use CMAQ function for calculating the effective Henry's Law ! constant. Note that original M3DRY wants inverse, non- ! dimensional Henry's Law (caq/cg). Water pH is different ! than rain, and we need to use the water temperature. heff = hlconst( subname( l ), tw, effective, hplus_h2o ) ! Make Henry's Law constant non-dimensional. heff = heff * 0.08205 * tw ! from Hayduk and Laudie dw25 = 13.26e-5 / ( 0.8904**1.14 * lebas( l )**0.589 ) kvisw = 0.017 * EXP( -0.025 * ( tw - stdtemp ) ) dw = dw25 * ( tw * rt25inK ) * ( 0.009025 / kvisw ) scw_pr_23 = ( ( kvisw / dw ) / pr ) ** twothirds IF ( l .EQ. l_O3 ) THEN !implement Chang et al(2004) c pChang is a/H or alpha/H which would be 1/H in current model c note that in Chang et al (2004) and Garland et al (1980) their H is Cair/Cwater with is c the inverse of heff pChang = 1.75 kwChang = (d3*ustarcr)/scw_pr_23 c If a file of chlorophyll concentrations is provided, Iodide concentration are estimated from c a fit to the Rebello et al 1990 data. The slope and correlation are given in the paper c but not the intercept, so the data in Tables 3 & 4 were fit to get the relationship below. c The regression gives the concentration in umol/L and is converted to mol/L for use in Chang et al eq. c The slope and correlation are a slightly different than in Table 5. c If chlorophyll concs are not available, a constant value for [I-] of 100e-9 mol/l is used c Use ocean file variables to determine if the water cell is ocean or lake; method is only for ocean cells IF (((GRID_DATA%OCEAN(c,r) + GRID_DATA%SZONE(c,r)) .GT. 0) .AND. (MET_DATA%SEAICE(c,r) .LE. 0)) THEN c Iodide in sea-water based on SST (mol /dm-3) ciodide = 1.46E6 * EXP( -9134.0 / tempgcr) qiodide = ( ( 2.0e9 * ciodide * dw * 1e-4 ) ** 0.5 ) * heff rgw = 1.0 / ( pChang * kwchang + qiodide ) ELSE ! O3 over land rgw = scw_pr_23 / ( heff * d3 * ustarcr ) END IF ELSE ! other chems rgw = scw_pr_23 / ( heff * d3 * ustarcr ) END IF rsurf = rgw END IF ! Hg ELSE ! land ! Use CMAQ function for calculating the effective Henry's Law ! constant. Note that original M3DRY wants inverse, ! non-dimensional Henry's Law (caq/cg). heff = hlconst( subname( l ), temp2p0cr, effective, hplus ) ! Make Henry's Law constant non-dimensional. heff = heff * 0.08205 * temp2p0cr ! Wet surface resistance. (Note DELTA = CWC in ADOM lingo.) ! This now applies to cuticle and ground. IF ( l .Ne. l_O3 ) THEN rwet = rcw0 / heff ! wet cuticle ELSE ! Canopy level wet resistence Rwet to ozone was found to be about 200 s/m on basis of Keysburg exp ! Using LAI(1-sided) of about 6.25 measured at Keysburg gives leaf level rwet about 1250 s/m rwet = 1250.0 ! s/m ! Leaf level rwet estimated from Altimir et al 2006 gives about 1350 s/m END IF ! Dry snow resistance. rsnow = rsnow0 * a0 / ar( l ) ! If the surface is cold and wet, use dry snow. IF ( tempgcr .LT. stdtemp ) THEN rwetsfc = rsnow ELSE rwetsfc = rwet END IF ! Dry cuticle resistance. IF( l .Eq. l_O3 ) THEN rh_func = max( 0.0,( MET_DATA%RH2( c,r ) - 70.0 )/30.0 ) rcut = rcut0 * a0 / ar( l ) * ( 1.0 -rh_func) + rwetsfc * rh_func ELSE IF ( l .Eq. l_NH3 ) THEN ! rcut = 4000.0 * EXP( -0.054 * MET_DATA%RH( c,r ) ) rcut = rwetsfc + (100.0-max(MET_DATA%RH2( c,r ),60.0))*laicr ! consistant with bidi ELSE rcut = rcut0 * a0 / ar( l ) END IF ! Dry ground resistance. (revised according to Erisman). Canopy height is assumed to be 10 * z0 according to PX-LSM hcan = MET_DATA%Z0( c,r ) * 10.0 rinc = 14.0 * laicr * hcan / ustarcr IF ( depspc( l ) .NE. 'O3' ) THEN rgnd = rg0 * a0 / ar( l ) rgw = rgwet0 / heff ! wet ground ELSE ! Ozone soil resistence depends on soil moisture (Meszaros et al 2009, Biogeosci; Massman 2004, AE, Ran et al 2016, CMAS) IF ( tempgcr .GE. stdtemp ) THEN rgnd = 200. + 300. * MET_DATA%SOIM1(c,r)/GRID_DATA%WFC (c,r) rgnd = min (500.0, rgnd) rgw = 500. ! wet ground for ozone (Massman 2004) ELSE rgnd = 200. + (rsnow-200.) * MET_DATA%SOIM1(c,r)/GRID_DATA%WFC (c,r) rgnd = min (rsnow, rgnd) endif END IF IF ( tempgcr .LT. stdtemp ) THEN ! frozen ground water = ice rgw = rsnow END IF ! Determine the snow liquid water mass fraction (0.0 to 0.5). xm = 0.02 * ( temp2p0cr - ( stdtemp - 1.0 ) )**2 xm = MIN (xm, 0.5) xm = MAX (xm, 0.0) IF ( temp2p0cr .LT. ( stdtemp - 1.0 ) ) xm = 0.0 ! pathway through canopy to ground, either wet, dry, or snow rgndc = rinc + 1.0 / (real( 1-ifsnow )*( ( 1.0 - delta( c,r ) ) / & rgnd + delta( c,r ) / rgw ) + real( ifsnow ) & * ( (1.0 - xm) / rsnow + xm / (rsndiff + rgw) ) ) ! Bulk stomatal resistance; include mesophyll resistance. heff_ap = hlconst( subname( l ), temp2p0cr, effective, hplus_ap ) rstom = MET_DATA%RS( c,r ) * dwat / dif0( l ) & + 1.0 / ( heff_ap / 3000.0 + 100.0 * meso( l ) ) / laicr ! Bulk surface resistance. rci = vegcr & * ( 1.0/rstom + (1.0-delta( c,r ) ) * laicr / rcut & + ( delta( c,r ) * laicr / rwetsfc ) + 1.0 / rgndc ) & + (1.0 - vegcr) * ( real( 1-ifsnow ) * ( (1.0-delta( c,r ) ) / & rgnd + delta( c,r ) / rgw) & + real( ifsnow ) * ( (1.0 - xm) / rsnow + xm / (rsndiff + rgw) ) ) rsurf = 1.0 / rci END IF ! land or water cell ! Compute dry deposition velocity. rbc = 5.0 / ustarcr * scc_pr_23( l ) rac = MET_DATA%RA( c,r ) + rbc depvel_gas( n,c,r ) = 1.0 / ( rsurf + rac ) C-------------------------------------------------------------------------- IF ( abflux .And. l .Eq. l_NH3 ) THEN ! Ammonia Bidirectional Flux cnh3 = cgridl1( n,c,r ) * MolNH3/MolAir * 1000.0 * Met_Data%DENS1( C,R ) ! convert to micrograms/m3 IF ( NINT( GRID_DATA%LWMASK( c,r ) ) .NE. 0 .and. ifsnow .EQ. 0 ) THEN ! land CALL Get_Flux( cnh3,rwetsfc,rgw,r,c,l,tpvd,lnh3, rbc, rinc, > rstom, delta(c,r),rgnd,femis,fdep ) pvd( n,c,r ) = tpvd * 0.001 * MolAir / (MolNH3 * Met_Data%DENS1( C,R )) nh3_ddep(c,r) = nh3_ddep(c,r) + fdep * dtsec * 1.0e-5 ! convert from microg/m2 to kg/ha ! nh3_emis(c,r) = nh3_emis(c,r) + depvel_gas( n,c,r ) * cnh3* dtsec * 1.0e-5 depvel_gas( n,c,r ) = lnh3 ELSE ! water or snow covered ! ddep_nh3(c,r) = ddep_nh3(c,r) + depvel_gas( n,c,r ) * cnh3 * dt(2) * 1.0e-5 nh3_ddep(c,r) = nh3_ddep(c,r) + depvel_gas( n,c,r ) * cnh3* dtsec * 1.0e-5 END IF END IF ! 'abflux' C-------------------------------------------------------------------------- IF ( sfc_hono ) THEN C HONO production via heterogeneous reaction on ground surfaces, C 2NO2 = HONO + HNO3 C Rate constant for the reaction = (3.0E-3/60)* (A/V), C where A/V is surface area/volume ratio C HONO is produced and released into the atmosphere C NO2 is lost via chemical reaction C HNO3 is sticky and stays on the surfaces C Calculate A/V for leaves. C LAI was multiplied by 2 to account for the fact that surface area C is provided by both sides of the leaves. C Matthews Jones, Ammonia deposition to semi-natural vegetation, C PhD dissertation, University of Dundee, Scotland, 2006 surf_leaf = 2.0 * laicr / MET_DATA%ZF( c,r,1 ) C Calculate A/V for buildings and other structures. C Buildings and other structures can provide additional surfaces in C urban areas for the heterogeneous reaction to occur. However, such C information is not readily available; in the absence of such information, C it is scaled to purb(c,r). Svensson et al., (1987) suggests a typical value C of 0.2 for A/V for buildings in urban environments. A maximum value of 0.2 C for A/V for buildings is assigned to the grid cell containing the highest C purb(c,r) i.e., 100.0. A/V for buildings for other grid-cell is calculated C as purb(c,r)*(0.2/100.0); Cai et al. (2006) used a value of 1.0 for their C study at New York (total A/V) surf_bldg = GRID_DATA%PURB( c,r ) * 0.002 C Calculate rate constant for the reaction (psudeo-first order reaction, C unit per second). Calculate pseudo-first order rate constant using Eq 1 C of Vogel et al. (2003). Unit of KNO2 is in 1/min in the paper; divide it C by 60 to convert it into 1/sec. ! kno2 = MAX( 0.0, 3.0E-3 * (surf_leaf + surf_bldg) / 60.0 ) kno2 = MAX( 0.0, 5.0E-5 * (surf_leaf + surf_bldg) ) C Determine NO2 concentration needed for HONO production term. IF ( l .EQ. l_NO2 ) THEN conc_no2 = cgridl1( n,c,r ) #ifdef sens DO NP = 1, NPMAX s_conc_no2( NP ) = s_cgridl1( NP, n,c,r ) END DO #endif C Loss of NO2 via the heterogeneous reaction is accounted as additional C depositional loss. Add the loss of NO2 via the heterogeneous reaction C to the regular deposition velocity (increased dep. vel.). This will C reduce the NO2 conc. in the atmosphere. Dep vel is adjusted back to the C original value in vdiffacm2 after NO2 conc is reduced but before calculating C depositional loss. ! depvel_gas( n,c,r ) = depvel_gas( n,c,r ) + 2.0 * kno2 * zf( c,r ) END IF C Calculate production (pvd) for HONO; unit = ppm * m/s IF ( l .EQ. l_HONO) & pvd( n,c,r ) = kno2 * conc_no2 * MET_DATA%ZF( c,r,1 ) #ifdef sens IF ( l .EQ. l_HONO) THEN DO NP = 1, NPMAX s_pvd( NP,n,c,r ) = kno2 * s_conc_no2( NP ) * MET_DATA%ZF( c,r,1 ) END DO END IF #endif END IF C-------------------------------------------------------------------------- C Bidirectional mercury flux section C-------------------------------------------------------------------------- IF ( HGBIDI .AND. l .EQ. l_HG ) THEN chg = cgridl1( n_HG,c,r ) IF ( NINT( GRID_DATA%LWMASK( c,r ) ) .EQ. 0 .AND. ( vegcr .EQ. 0.0 )) THEN ! water depvel_gas( n_Hg,c,r ) = 1.0 / ( rsurf + rac ) vdhg = depvel_gas( n_Hg,c,r ) pvd( n_Hg,c,r ) = 0.0 ! in the nether regions of LU/LC ELSE ! terrestrial awhg = hlconst( subname( l ), temp2p0cr, effective, hplus )* 0.08205 * temp2p0cr C************* Call the Hg air surface exchange subroutine ************************************************* CALL ATX(rbc, rcut, rwetsfc, rinc,rsnow, rgw, ifsnow, xm, dvel, chg, awhg, & dpvd, delta( c,r ),idt, c, r, l_HG, jdate, jtime ) pvd( n_HG,c,r ) = dpvd depvel_gas( n_HG,c,r ) = dvel END IF ! water END IF ! 'HG' ! Check for negative values or NaN's IF ( depvel_gas( n,c,r ) .LT. 0.0 .OR. & depvel_gas( n,c,r ) .NE. depvel_gas( n,c,r ) ) GO TO 999 END DO ddloop ! (l = 1, n_spc_m3dry) IF ( HGBIDI .AND. NINT( GRID_DATA%LWMASK( c,r ) ) .EQ. 0 .AND. ( vegcr .EQ. 0.0 )) THEN ! water chgIIgas = cgridl1( n_HGII,c,r ) vdhgII = depvel_gas( n_HGII,c,r ) CALL ASWX( chg, chgIIgas, vdhg, vdhgII, awhg, & dpvd, c, r, jdate, jtime, idt ) pvd( n_Hg,c,r ) = dpvd END IF ! water END DO ! c END DO ! r RETURN C------------------------------------------------------------------------------- C Error-handling section. C------------------------------------------------------------------------------- 999 CONTINUE WRITE( logdev,9003 ) c, r, TRIM( subname( l ) ), depvel_gas( n,c,r ) xmsg = 'ABORT' 1001 CONTINUE CALL m3exit( pname, jdate, jtime, xmsg, xstat1 ) RETURN C------------------------------------------------------------------------------- C Format statements. C------------------------------------------------------------------------------- 6501 FORMAT(/ 1x, 70('='), & / 1x, '--- Subroutine: M3DRY', & / 1x, '--- Found canopy wetness (WR) in MET_CRO_2D ', & / 1x, 70('=') /) 6503 FORMAT(/ 1x, 70('='), & / 1x, '--- Subroutine: M3DRY', & / 1x, '--- Found 2-m water vapor mixing ratio (Q2) in MET_CRO_2D', & / 1x, 70('=') /) 9001 FORMAT( 'Failure reading ', a, 1x, 'from ', a ) 9003 FORMAT(/ 1x, 70('*'), & / 1x, '*** Subroutine: M3DRY', & / 1x, '*** NEGATIVE or UNDEFINED Dry Deposition Velocity', & / 1x, '*** Point = ', 2i5, & / 1x, '*** Species = ', a, & / 1x, '*** Vd = ', e13.6, & / 1x, 70('*') /) 9005 FORMAT(/ 1x, 70('*'), & / 1x, '*** Subroutine: M3DRY', & / 1x, '*** Bidirectional flux for ammonia assumes ', & / 1x, '*** USGS 24-category land use.', & / 1x, '*** Need to update N_LUFRAC, LUF_FAC, and other places', & / 1x, '*** Land use description is: ', a, & / 1x, 70('*') /) 9033 FORMAT(/ 1x, 70('*'), & / 1x, '*** Subroutine: M3DRY', & / 1x, '*** NEGATIVE or UNDEFINED Land use specific Dry Deposition Velocity', & / 1x, '*** Column = ', i5, & / 1x, '*** Row = ', i5, & / 1x, '*** Luc = ', i5, & / 1x, '*** Species = ', a, & / 1x, '*** Vd = ', e13.6, & / 1x, '*** lai = ', g10.3, & / 1x, '*** z0 = ', g10.3, & / 1x, '*** ustar = ', g10.3, & / 1x, '*** rgndc = ', g10.3, & / 1x, '*** Ra = ', g10.3, & / 1x, '*** Rbc = ', g10.3, & / 1x, '*** Rsurf = ', g10.3, & / 1x, '*** Rstom = ', g10.3, & / 1x, '*** Rcut = ', g10.3, & / 1x, '*** Rwetsfc = ', g10.3, & / 1x, '*** Rgnd = ', g10.3, & / 1x, '*** Rgw = ', g10.3, & / 1x, '*** Delta = ', g10.3, & / 1x, '*** Veg = ', g10.3, & / 1x, '*** Xm = ', g10.3, & / 1x, '*** Rsndiff = ', g10.3, & / 1x, '*** ifsnow = ', i6 & / 1x, 70('*') /) 9034 FORMAT(/ 1x, 70('*'), & / 1x, '*** Subroutine: M3DRY', & / 1x, '*** NEGATIVE or UNDEFINED Land use specific Dry Deposition Velocity', & / 1x, '*** Column = ', i5, & / 1x, '*** Row = ', i5, & / 1x, '*** Luc = ', i5, & / 1x, '*** Species = ', a, & / 1x, '*** Vdfstj = ', e13.6, & / 1x, '*** Rcanj = ', e13.6, & / 1x, '*** Rstcj = ', e13.6, & / 1x, '*** Rstomj = ', e13.6, & / 1x, 70('*') /) END SUBROUTINE m3dry ================================================ FILE: CCTM/src/depv/m3dry/opdepv_diag.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE OPDEPV_DIAG ( JDATE, JTIME, TSTEP, & N_GDEPV_NAMES, GDEPV_NAMES, & N_ADEPV_NAMES, ADEPV_NAMES ) ! & N_SDEPV_NAMES, SDEPV_NAMES) C 2006-Jun-30 - created by W Hutzell C 2006-Dec-05 - modified by J.Young C 2010-Jan-29 - removed unneccesary CLOSE3 statement for CTM_DEPV_DIAG file C to eliminate potential MPI race condition (D.Wong) C 2011-Feb-16 - replaced I/O API include files with UTILIO_DEFN (S.Roselle) C 2011-May-20 - modified diagnostic file header creation (D.Schwede) C 2015-Aug - added a conditional statement to allow only I/O C processors to open CTM_DEPV_DIAG file (D. Wong) USE GRID_CONF ! horizontal & vertical domain specifications USE DEPVVARS USE UTILIO_DEFN ! USE pio_module IMPLICIT NONE INCLUDE SUBST_FILES_ID ! file name parameters C Arguments: INTEGER, INTENT( IN ) :: JDATE ! current model date, coded YYYYDDD INTEGER, INTENT( IN ) :: JTIME ! current model time, coded HHMMSS INTEGER, INTENT( IN ) :: TSTEP ! output time step C number and names of gas deposition velocities INTEGER, INTENT( IN ) :: N_GDEPV_NAMES CHARACTER( 16 ), INTENT( IN ) :: GDEPV_NAMES( : ) C number and names of aerosol deposition velocities INTEGER, INTENT( IN ) :: N_ADEPV_NAMES CHARACTER( 16 ), INTENT( IN ) :: ADEPV_NAMES( : ) C number and names of (SOA+aerosol) species deposition velocities ! INTEGER, INTENT( IN ) :: N_SDEPV_NAMES ! CHARACTER( 16 ), INTENT( IN ) :: SDEPV_NAMES( : ) C Local variables: CHARACTER( 16 ) :: PNAME = 'OPDDEP_DIAG' CHARACTER( 96 ) :: XMSG = ' ' INTEGER V, N, L ! loop induction variables C----------------------------------------------------------------------- #ifndef mpas C Try to open existing file for update IF ( IO_PE_INCLUSIVE ) THEN ! open new IF ( .NOT. OPEN3( CTM_DEPV_DIAG, FSRDWR3, PNAME ) ) THEN XMSG = 'Could not open ' // CTM_DEPV_DIAG // ' file for update - ' & // 'try to open new' CALL M3MESG( XMSG ) C Set output file characteristics based on GRIDDESC and open the dep velocity dignostic file SDATE3D = JDATE STIME3D = JTIME TSTEP3D = TSTEP CALL NEXTIME( SDATE3D, STIME3D, TSTEP3D ) ! start the next hour FTYPE3D = GRDDED3 ! NVARS3D = N_GDEPV_NAMES + N_ADEPV_NAMES + N_SDEPV_NAMES NVARS3D = N_GDEPV_NAMES + N_ADEPV_NAMES NCOLS3D = GL_NCOLS NROWS3D = GL_NROWS NLAYS3D = 1 NTHIK3D = 1 GDTYP3D = GDTYP_GD P_ALP3D = P_ALP_GD P_BET3D = P_BET_GD P_GAM3D = P_GAM_GD XORIG3D = XORIG_GD YORIG3D = YORIG_GD XCENT3D = XCENT_GD YCENT3D = YCENT_GD XCELL3D = XCELL_GD YCELL3D = YCELL_GD VGTYP3D = VGTYP_GD VGTOP3D = VGTOP_GD DO L = 1, NLAYS3D + 1 VGLVS3D( L ) = VGLVS_GD( L ) END DO GDNAM3D = GRID_NAME ! from HGRD_DEFN FDESC3D = ' ' ! array L = LEN_TRIM( DEPV_METHOD ) FDESC3D( 1 ) = 'Instanteous values of dry deposition velocities:' & // ' the gas phase velocities are' FDESC3D( 2 ) = 'estimated by the ' & // DEPV_METHOD( 1:L ) // ' algorithm.' N = 0 DO V = 1, N_GDEPV_NAMES N = N + 1 VTYPE3D( V ) = M3REAL VNAME3D( V ) = GDEPV_NAMES( V ) UNITS3D( V ) = 'cm s-1' VDESC3D( V ) = 'gas phase dry deposition velocity' END DO N = N_GDEPV_NAMES DO V = 1, N_ADEPV_NAMES N = N + 1 VTYPE3D( N ) = M3REAL VNAME3D( N ) = ADEPV_NAMES( V ) UNITS3D( N ) = 'cm s-1' VDESC3D( N ) = 'aerosol phase dry deposition velocity' END DO ! N = N_GDEPV_NAMES + N_ADEPV_NAMES ! DO V = 1, N_SDEPV_NAMES ! N = N + 1 ! VTYPE3D( N ) = M3REAL ! VNAME3D( N ) = SDEPV_NAMES( V ) ! UNITS3D( N ) = 'cm s-1' ! VDESC3D( N ) = 'deposition velocity for (GAS-AEROSOL) ' ! & // ' semi-volatile compound' ! END DO C Open diagnostic file, then close it for subsequent open by all processors IF ( .NOT. OPEN3( CTM_DEPV_DIAG, FSNEW3, PNAME ) ) THEN XMSG = 'Could not create '// TRIM( CTM_DEPV_DIAG ) // ' file' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF END IF END IF ! IO_PE_INCLUSIVE #endif RETURN END ================================================ FILE: CCTM/src/depv/stage/BIDI_MOD.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! c::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: Module Bidi_Mod C Contains the shared variables and subroutines needed for the bidirectional C flux models in CMAQ C C OPASX_MEDIA - Opens the output file for NH4+ and H+ in the soil water solution C C Revision History: J. Bash Mar 15 11: Created C J. Bash May 11 11: Updated for CMAQ 5.0 C D. Wong Feb 01 19: removed all MY_N clauses Implicit None ! Private variables Integer, Parameter, Private :: NHx_AQ_CONC = 4 Integer, Parameter, Private :: NHx_GAS_CONC = 0 Integer, Parameter, Private :: NHx_SOL_CONC = 0 Integer, Parameter, Private :: NHx_TOT = NHx_AQ_CONC + NHx_GAS_CONC + NHx_SOL_CONC Integer, Parameter, Private :: HG_AQ_CONC = 3 Integer, Parameter, Private :: HG_GAS_CONC = 1 Integer, Parameter, Private :: HG_SOL_CONC = 2 Integer, Save, Private :: N_Hg Character( 96 ), Private :: XMSG = ' ' ! shared variables Character( 16 ), Save , Allocatable :: MEDIA_NAMES( : ) Character( 16 ), Save , Allocatable :: MEDIA_UNITS( : ) Character( 80 ), Save , Allocatable :: MEDIA_DESCR( : ) Integer, Parameter :: HG_TOT = HG_AQ_CONC + HG_GAS_CONC + HG_SOL_CONC Integer, Save :: N_TOT Real, Save, Allocatable :: gamma1 ( :,: ) ! soil NH4/H Real, Save, Allocatable :: gamma2 ( :,: ) ! soil NH4/H Real, Save, Allocatable :: MHp1 ( :,: ) ! molar H+ Real, Save, Allocatable :: MHp2 ( :,: ) ! molar H+ Real, Save, Allocatable :: CMEDIA ( :,:,: ) ! surface layer concs Logical, Save :: INIT_LAI Logical, Save :: INIT_COMP Contains Subroutine INIT_BIDI() Use GRID_CONF Use CGRID_SPCS ! CGRID mechanism species Use UTILIO_DEFN Use RUNTIME_VARS Implicit None C... Local: Character( 16 ) :: PNAME = 'INIT_BIDI ' Integer :: STATUS Logical, SAVE :: INITIALIZED = .FALSE. C-------------------------------------------------------------------------- C Prevent initializing the code twice If ( INITIALIZED ) Return INITIALIZED = .TRUE. If ( ABFLUX .And. .Not. HGBIDI ) Then N_TOT = NHx_TOT N_Hg = 0 Allocate( MEDIA_NAMES( N_TOT ), MEDIA_UNITS( N_TOT ), MEDIA_DESCR( N_TOT ) ) MEDIA_NAMES( 1 ) = 'Gamma1 ' MEDIA_UNITS( 1 ) = ' ' MEDIA_DESCR( 1 ) = 'NH4+/H+ in Soil layer 1' MEDIA_NAMES( 2 ) = 'Gamma2 ' MEDIA_UNITS( 2 ) = ' ' MEDIA_DESCR( 2 ) = 'NH4+/H+ in Soil layer 2' MEDIA_NAMES( 3 ) = 'MHpsl1 ' MEDIA_UNITS( 3 ) = 'mol/l' MEDIA_DESCR( 3 ) = 'Molar H+ in Soil layer 1' MEDIA_NAMES( 4 ) = 'MHpsl2 ' MEDIA_UNITS( 4 ) = 'mol/l' MEDIA_DESCR( 4 ) = 'Molar H+ in Soil layer 2' Else If ( .Not. ABFLUX .And. HGBIDI ) Then N_TOT = HG_TOT N_Hg = HG_TOT Allocate( MEDIA_NAMES( HG_TOT ), MEDIA_UNITS( N_TOT ), MEDIA_DESCR( N_TOT ) ) MEDIA_NAMES( 1 ) = 'DGM ' ! Dissolved gaseous Hg MEDIA_UNITS( 1 ) = 'umol mol-1' MEDIA_DESCR( 1 ) = 'Surface water dissolved Hg(0)' MEDIA_NAMES( 2 ) = 'DRM ' ! Dissolved reactive Hg MEDIA_UNITS( 2 ) = 'umol mol-1' MEDIA_DESCR( 2 ) = 'Surface water dissolved Hg(II)' MEDIA_NAMES( 3 ) = 'HGSOIL ' MEDIA_UNITS( 3 ) = 'umol mol-1' MEDIA_DESCR( 3 ) = 'Soil water dissolved Hg(0)' MEDIA_NAMES( 4 ) = 'HGZ0 ' MEDIA_UNITS( 4 ) = 'ppmV' MEDIA_DESCR( 4 ) = 'Hg(0) compensation point' MEDIA_NAMES( 5 ) = 'HGMES ' ! mesophyll Hg MEDIA_UNITS( 5 ) = 'umol g-1' MEDIA_DESCR( 5 ) = 'Hg(0) bound to leaf mesophyll' MEDIA_NAMES( 6 ) = 'HGCUT ' ! cuticular Hg MEDIA_UNITS( 6 ) = 'umol g-1' MEDIA_DESCR( 6 ) = 'Hg(0) bound to vegetation surfaces' Else If ( ABFLUX .And. HGBIDI ) Then N_TOT = HG_TOT + NHx_TOT N_Hg = HG_TOT Allocate( MEDIA_NAMES( N_TOT ), MEDIA_UNITS( N_TOT ), MEDIA_DESCR( N_TOT ) ) MEDIA_NAMES( 1 ) = 'DGM ' ! Dissolved gaseous Hg MEDIA_UNITS( 1 ) = 'umol mol-1' MEDIA_DESCR( 1 ) = 'Surface water dissolved Hg(0)' MEDIA_NAMES( 2 ) = 'DRM ' ! Dissolved reactive Hg MEDIA_UNITS( 2 ) = 'umol mol-1' MEDIA_DESCR( 2 ) = 'Surface water dissolved Hg(II)' MEDIA_NAMES( 3 ) = 'HGSOIL ' MEDIA_UNITS( 3 ) = 'umol mol-1' MEDIA_DESCR( 3 ) = 'Soil water dissolved Hg(0)' MEDIA_NAMES( 4 ) = 'HGZ0 ' MEDIA_UNITS( 4 ) = 'ppmV' MEDIA_DESCR( 4 ) = 'Hg(0) compensation point' MEDIA_NAMES( 5 ) = 'HGMES ' ! mesophyll Hg MEDIA_UNITS( 5 ) = 'umol g-1' MEDIA_DESCR( 5 ) = 'Hg(0) bound to leaf mesophyll' MEDIA_NAMES( 6 ) = 'HGCUT ' ! cuticular Hg MEDIA_UNITS( 6 ) = 'umol g-1' MEDIA_DESCR( 6 ) = 'Hg(0) bound to vegetation surfaces' MEDIA_NAMES( 7 ) = 'Gamma1 ' MEDIA_UNITS( 7 ) = '' MEDIA_DESCR( 7 ) = 'NH4+/H+ in Soil layer 1' MEDIA_NAMES( 8 ) = 'Gamma2 ' MEDIA_UNITS( 8 ) = '' MEDIA_DESCR( 8 ) = 'NH4+/H+ in Soil layer 2' MEDIA_NAMES( 9 ) = 'MHpsl1' MEDIA_UNITS( 9 ) = 'mol L-1' MEDIA_DESCR( 9 ) = 'Molar H+ in Soil layer 1' MEDIA_NAMES( 10 ) = 'MHpsl2 ' MEDIA_UNITS( 10 ) = 'mol L-1' MEDIA_DESCR( 10 ) = 'Molar H+ in Soil layer 2' End If ! allocate the media array variable If ( .Not. Allocated ( CMEDIA ) ) Then Allocate ( CMEDIA( NCOLS,NROWS,N_TOT ) ) CMEDIA = 0.0 End If Return End Subroutine INIT_BIDI !***************************************************************************** !************** Iput / output section of the module ************************** !***************************************************************************** Subroutine OPASX_MEDIA( JDATE, JTIME, TSTEP ) Use GRID_CONF Use CGRID_SPCS ! CGRID mechanism species Use UTILIO_DEFN Implicit None Include SUBST_FILES_ID ! file name parameters Integer, Intent( In ) :: JDATE Integer, Intent( In ) :: JTIME Integer, Intent( In ) :: TSTEP Character( 16 ) :: PNAME = 'OPASX_MEDIA ' Character( 96 ) :: MSG = ' ' Integer N, V, L C-------------------------------------------------------------------------- If ( ABFLUX .And. .Not. HGBIDI) Then If ( .Not. OPEN3( MEDIA_CONC, FSRDWR3, PNAME ) ) Then XMSG = 'Could not open ' // MEDIA_CONC // ' file for update - ' & // 'try to open new' Call M3MESG( XMSG ) FTYPE3D = GRDDED3 SDATE3D = JDATE STIME3D = JTIME TSTEP3D = TSTEP Call NEXTIME( SDATE3D, STIME3D, TSTEP3D ) ! start the next hour NVARS3D = N_TOT NCOLS3D = GL_NCOLS NROWS3D = GL_NROWS NLAYS3D = 1 NTHIK3D = 1 GDTYP3D = GDTYP_GD P_ALP3D = P_ALP_GD P_BET3D = P_BET_GD P_GAM3D = P_GAM_GD XORIG3D = XORIG_GD YORIG3D = YORIG_GD XCENT3D = XCENT_GD YCENT3D = YCENT_GD XCELL3D = XCELL_GD YCELL3D = YCELL_GD VGTYP3D = VGTYP_GD VGTOP3D = VGTOP_GD Do L = 1, NLAYS3D + 1 VGLVS3D( L ) = VGLVS_GD( L ) End Do GDNAM3D = GRID_NAME ! from HGRD_DEFN FDESC3D = ' ' ! array FDESC3D( 1 ) = 'Multimedia concentration estimates from integrated ambient ' & // 'NH3 concentrations and surface exchange algorithms' N = 0 Do V = 1, NHx_AQ_CONC N = N + 1 VTYPE3D( N ) = M3REAL VNAME3D( N ) = MEDIA_NAMES( N ) UNITS3D( N ) = 'mol L-1' VDESC3D( N ) = 'aqueous phase concentration' End Do N = NHx_AQ_CONC Do V = 1, NHx_GAS_CONC N = N + 1 VTYPE3D( N ) = M3REAL VNAME3D( N ) = MEDIA_NAMES( N ) UNITS3D( N ) = 'ppmV' VDESC3D( N ) = 'gas phase concentration' End Do N = NHx_AQ_CONC + NHx_GAS_CONC Do V = 1, NHx_SOL_CONC N = N + 1 VTYPE3D( N ) = M3REAL VNAME3D( N ) = MEDIA_NAMES( N ) UNITS3D( N ) = 'umol g-1' VDESC3D( N ) = 'Solid phase concentration' End Do End If Else If ( .Not. ABFLUX .And. HGBIDI ) Then If ( .Not. OPEN3( MEDIA_CONC, FSRDWR3, PNAME ) ) Then! XMSG = 'Could not open ' // MEDIA_CONC // ' file for update - ' & // 'try to open new' Call M3MESG( XMSG ) FTYPE3D = GRDDED3 SDATE3D = JDATE STIME3D = JTIME TSTEP3D = TSTEP Call NEXTIME( SDATE3D, STIME3D, TSTEP3D ) ! start the next hour NVARS3D = N_TOT NCOLS3D = GL_NCOLS NROWS3D = GL_NROWS NLAYS3D = 1 NTHIK3D = 1 GDTYP3D = GDTYP_GD P_ALP3D = P_ALP_GD P_BET3D = P_BET_GD P_GAM3D = P_GAM_GD XORIG3D = XORIG_GD YORIG3D = YORIG_GD XCENT3D = XCENT_GD YCENT3D = YCENT_GD XCELL3D = XCELL_GD YCELL3D = YCELL_GD VGTYP3D = VGTYP_GD VGTOP3D = VGTOP_GD FDESC3D = ' ' ! array FDESC3D( 1 ) = 'Multimedia concentration estimates from integrated ambient ' & // 'HG concentrations and surface exchange algorithms' NLAYS3D = 1 N = 0 Do V = 1, HG_AQ_CONC N = N + 1 VTYPE3D( N ) = M3REAL VNAME3D( N ) = MEDIA_NAMES( N ) UNITS3D( N ) = 'umol mol-1' VDESC3D( N ) = 'aqueous phase concentration' End Do N = HG_AQ_CONC Do V = 1, HG_GAS_CONC N = N + 1 VTYPE3D( N ) = M3REAL VNAME3D( N ) = MEDIA_NAMES( N ) UNITS3D( N ) = 'ppmV' VDESC3D( N ) = 'gas phase concentration' End Do N = HG_AQ_CONC + HG_GAS_CONC Do V = 1, HG_SOL_CONC N = N + 1 VTYPE3D( N ) = M3REAL VNAME3D( N ) = MEDIA_NAMES( N ) UNITS3D( N ) = 'umol g-1' VDESC3D( N ) = 'Solid phase concentration' End Do End If Else If ( ABFLUX .And. HGBIDI ) Then If ( .Not. OPEN3( MEDIA_CONC, FSRDWR3, PNAME ) ) Then XMSG = 'Could not open ' // MEDIA_CONC // ' file for update - ' & // 'try to open new' Call M3MESG( XMSG ) FTYPE3D = GRDDED3 SDATE3D = JDATE STIME3D = JTIME TSTEP3D = TSTEP Call NEXTIME( SDATE3D, STIME3D, TSTEP3D ) ! start the next hour NVARS3D = N_TOT NCOLS3D = GL_NCOLS NROWS3D = GL_NROWS NLAYS3D = 1 NTHIK3D = 1 GDTYP3D = GDTYP_GD P_ALP3D = P_ALP_GD P_BET3D = P_BET_GD P_GAM3D = P_GAM_GD XORIG3D = XORIG_GD YORIG3D = YORIG_GD XCENT3D = XCENT_GD YCENT3D = YCENT_GD XCELL3D = XCELL_GD YCELL3D = YCELL_GD VGTYP3D = VGTYP_GD VGTOP3D = VGTOP_GD FDESC3D = ' ' ! array FDESC3D( 1 ) = 'Multimedia concentration estimates from integrated ambient ' & // 'NH3 and HG concentrations and surface exchange algorithms' NLAYS3D = 1 N = 0 Do V = 1, HG_AQ_CONC N = N + 1 VTYPE3D( N ) = M3REAL VNAME3D( N ) = MEDIA_NAMES( N ) UNITS3D( N ) = 'umol mol-1' VDESC3D( N ) = 'aqueous phase concentration' End Do N = HG_AQ_CONC Do V = 1, HG_GAS_CONC N = N + 1 VTYPE3D( N ) = M3REAL VNAME3D( N ) = MEDIA_NAMES( N ) UNITS3D( N ) = 'ppmV' VDESC3D( N ) = 'gas phase concentration' End Do N = HG_AQ_CONC + HG_GAS_CONC Do V = 1, HG_SOL_CONC N = N + 1 VTYPE3D( N ) = M3REAL VNAME3D( N ) = MEDIA_NAMES( N ) UNITS3D( N ) = 'umol g-1' VDESC3D( N ) = 'Solid phase concentration' End Do N = HG_TOT Do V = 1, NHx_AQ_CONC N = N + 1 VTYPE3D( N ) = M3REAL VNAME3D( N ) = MEDIA_NAMES( N ) UNITS3D( N ) = 'mol L-1' VDESC3D( N ) = 'aqueous phase concentration' End Do N = HG_TOT + NHx_AQ_CONC Do V = 1, NHx_GAS_CONC N = N + 1 VTYPE3D( N ) = M3REAL VNAME3D( N ) = MEDIA_NAMES( N ) UNITS3D( N ) = 'ppmV' VDESC3D( N ) = 'gas phase concentration' End Do N = HG_TOT + NHx_AQ_CONC + NHx_GAS_CONC Do V = 1, NHx_SOL_CONC N = N + 1 VTYPE3D( N ) = M3REAL VNAME3D( N ) = MEDIA_NAMES( N ) UNITS3D( N ) = 'umol g-1' VDESC3D( N ) = 'Solid phase concentration' End Do End If End If ! Open file, then close it for subsequent open by all processors If ( .Not. OPEN3( MEDIA_CONC, FSNEW3, PNAME ) ) Then XMSG = 'Could not create '// TRIM( MEDIA_CONC) // ' file' Call M3EXIT( PNAME, SDATE3D, STIME3D, XMSG, XSTAT1 ) End If Return End Subroutine OPASX_MEDIA !**************************************************************************** Subroutine WRASX_MEDIA( MDATE, MTIME ) ! Revision History. ! Aug 12, 15 D. Wong: added code to handle parallel I/O implementation ! Jan 16, 16 J. Young: update log file once per output; consistent tokens Use GRID_CONF ! horizontal grid specifications Use UTILIO_DEFN Implicit None Include SUBST_FILES_ID ! file name parameters Integer, Intent( In ) :: MDATE Integer, Intent( In ) :: MTIME Logical, Save :: FIRSTIME = .TRUE. Real WRMC( NCols,NRows ) ! media write buffer Integer V, R, C Character( 16 ) :: PNAME = 'WRASX_MEDIA ' !***************************************************************************** If ( HGBIDI ) Then INIT_LAI = .FALSE. INIT_COMP = .FALSE. End If If ( ABFLUX ) Then Do R = 1, NRows Do C = 1, NCols CMedia( C,R,N_Hg+1 ) = Gamma1( C,R ) CMedia( C,R,N_Hg+2 ) = Gamma2( C,R ) CMedia( C,R,N_Hg+3 ) = MHp1( C,R ) CMedia( C,R,N_Hg+4 ) = MHp2( C,R ) End Do End Do End If #ifdef parallel_io If ( FIRSTIME ) Then FIRSTIME = .FALSE. If ( .Not. IO_PE_INCLUSIVE ) Then If ( .Not. OPEN3( MEDIA_CONC, FSREAD3, PNAME ) ) Then XMSG = 'Could not open ' // TRIM( MEDIA_CONC ) Call M3EXIT( PNAME, MDATE, MTIME, XMSG, XSTAT1 ) End If End If End If #endif Do V = 1, N_TOT ! species/media loop Do R = 1, NRows ! row loop Do C = 1,NCols ! column loop WRMC( C, R ) = CMEDIA( C,R,V ) End Do End Do If ( .Not. WRITE3( MEDIA_CONC, MEDIA_NAMES( V ), MDATE, MTIME, & WRMC ) ) Then XMSG = 'Could not write ' // MEDIA_CONC // ' file' Call M3EXIT( PNAME, MDATE, MTIME, XMSG, XSTAT1 ) End If End Do Write( LOGDEV, '( /5X, A, I8, ":", I6.6 )' ) & 'Timestep written to "' // TRIM( MEDIA_CONC ) // & '" for date and time', MDATE, MTIME Return End Subroutine WRASX_MEDIA End Module Bidi_Mod ================================================ FILE: CCTM/src/depv/stage/CMAQ_Control_STAGE.nml ================================================ !------------------------------------------------------------------------------! ! This namelist contains the master deposition species table and is used to ! ! match deposition species with the deposited species in the GC, TR, and NR ! ! namelists. The columns contain the deposited species name, its relative ! ! reactivity, the f0 of the Wesely (1989) mesophyll resistance model, its ! ! molar volume in L mol-1, and mass accommodation coefficient. The relative ! ! reactivity describes the bulk resistance to vegetation and soil due to ! ! condensation, e.g. low vapor pressure organic compounds, or heterogeneous ! ! surface reactions, e.g. oxidation. f0 is used to calculate the mesophyll ! ! resistance where observations indicate that stomatal deposition is faster ! ! than can be described by trace gas solubility, e.g. O3 or NO2. The mesophyll ! ! resistance is estimated using the ! ! following empirical form: ! ! ! ! Rmes = 1.0 / ( H / 3000.0 + 100.0 * f0) ! ! ! ! Where H is the dimensionless Henry’s constant for solubility in the mesophyll! ! solution. The mass accommodation coefficient is used in the resistance of ! ! deposition to wet surfaces and provides an upper limit on the transfer of ! ! mass from the gas to aqueous phases. ! ! ! ! Deposition species can be added to the STAGE model here by matching the ! ! species name here with the DRYDEP SURR column in the GC, NR, or TR namelist. ! ! Where in VD_{SPC_NAME} in the GR, NR, or TR namelist, SPC_NAME corresponds to! ! the species name column here. ! ! ! ! Wesely, M.L., Parameterization of surface resistances to gaseous dry ! ! deposition in regional-scale numerical models, Atmos. Environ. 23(6) ! ! 1293-1304, https://doi.org/10.1016/0004-6981(89)90153-4, 1989 ! !------------------------------------------------------------------------------! &STAGE_DATA STAGE_CHEM_DATA= ! Species name | rel_rx | f0 | Molar Vol | Mass accommodation coeff ! | | | cm**3 mol-1 | 'SO2 ', 32.8, 0.0, 35.0, 0.11, 'SULF ', 8000.0, 0.0, 49.0, 0.12, 'NO2 ', 2.0, 0.1, 21.0, 1.5e-3, 'NO ', 2.0, 0.0, 14.0, 1.0e-3, 'O3 ', 12.0, 1.0, 21.0, 0.10, 'HNO3 ', 8000.0, 0.0, 35.0, 0.087, 'H2O2 ', 34000.0, 1.0, 28.0, 0.10, 'ALD ', 10.0, 0.0, 56.0, 0.03, 'HCHO ', 10.0, 0.0, 35.0, 0.02, 'OP ', 10.0, 0.3, 49.0, 6.8e-3, 'PAA ', 20.0, 0.1, 70.0, 0.019, 'ORA ', 20.0, 0.0, 63.0, 0.032, 'NH3 ', 20.0, 0.0, 28.0, 0.091, 'PAN ', 16.0, 0.1, 91.0, 0.019, 'HONO ', 20.0, 0.1, 28.0, 0.500, 'CO ', 5.0, 0.0, 14.0, 1.5e-4, 'METHANOL ', 2.0, 0.0, 42.0, 0.027, 'N2O5 ', 5000.0, 0.0, 49.0, 0.018, 'NO3 ', 5000.0, 0.0, 28.0, 4.0e-3, 'GEN_ALD ', 10.0, 0.0, 56.0, 0.012, 'CL2 ', 10.0, 0.0, 49.0, 0.030, 'HOCL ', 10.0, 0.0, 38.5, 0.116, 'HCL ', 8000.0, 0.0, 31.5, 0.116, 'FMCL ', 10.0, 0.0, 45.5, 0.420, 'HGIIGAS ', 8000.0, 0.0, 95.0, 0.420, 'HG ', 0.1, 0.0, 14.8, 0.420, 'TECDD_2378 ', 2.0, 0.0, 217.0, 0.420, 'PECDD_12378 ', 2.0, 0.0, 234.5, 0.420, 'HXCDD_123478 ', 2.0, 0.0, 252.0, 0.420, 'HXCDD_123678 ', 2.0, 0.0, 252.0, 0.420, 'HXCDD_123478 ', 2.0, 0.0, 252.0, 0.420, 'HPCDD_1234678', 2.0, 0.0, 269.5, 0.420, 'OTCDD ', 2.0, 0.0, 287.0, 0.420, 'TECDF_2378 ', 2.0, 0.0, 210.0, 0.420, 'PECDF_12378 ', 2.0, 0.0, 227.5, 0.420, 'PECDF_23478 ', 2.0, 0.0, 227.5, 0.420, 'HXCDF_123478 ', 2.0, 0.0, 245.0, 0.420, 'HXCDF_123678 ', 2.0, 0.0, 245.0, 0.420, 'HXCDF_234678 ', 2.0, 0.0, 245.0, 0.420, 'HXCDF_123789 ', 2.0, 0.0, 245.0, 0.420, 'HPCDF_1234678', 2.0, 0.0, 262.5, 0.420, 'HPCDF_1234789', 2.0, 0.0, 262.5, 0.420, 'OTCDF ', 2.0, 0.0, 280.0, 0.420, 'NAPHTHALENE ', 4.0, 0.0, 119.0, 0.960, '1NITRONAPHTHA', 4.0, 0.0, 133.0, 0.960, '2NITRONAPHTHA', 4.0, 0.0, 133.0, 0.960, '14NAPHTHOQUIN', 4.0, 0.0, 119.0, 0.960, 'HEXMETH_DIIS ', 10.0, 0.0, 196.0, 0.960, 'HYDRAZINE ', 20.0, 0.0, 42.0, 0.420, 'MAL_ANHYDRIDE', 10.0, 0.0, 70.0, 0.420, 'TOLUENE_DIIS ', 10.0, 0.0, 154.0, 0.420, 'TRIETHYLAMINE', 20.0, 0.0, 154.0, 0.420, 'NTR ', 16.0, 0.0, 160.0, 0.420, 'NTRM ', 16.0, 0.0, 156.1, 0.420, 'MPAN ', 16.0, 0.1, 133.0, 0.019, 'PPN ', 16.0, 0.1, 118.2, 0.019, 'ISPD ', 8.0, 1.0, 88.8, 0.420, 'NTRDN ', 16.0, 0.1, 169.8, 0.420, 'NTRALK ', 16.0, 0.1, 133.0, 0.420, 'NTROH ', 16.0, 0.1, 140.4, 0.420, 'NTRPX ', 16.0, 0.0, 147.8, 0.420, 'PROPNN ', 16.0, 0.0, 133.0, 0.420, 'CLNO2 ', 8.0, 0.0, 45.5, 0.420, 'ISOPNN ', 275.9, 0.0, 206.8, 0.795, 'MTNO3 ', 96.2, 0.0, 251.2, 0.762, 'IEPOX ', 8.0, 0.0, 110.8, 0.420, 'HACET ', 8.0, 0.0, 72.6, 0.420, 'SVALK1 ', 4572.8, 0.0, 280.5, 0.908, 'SVALK2 ', 12.9, 0.0, 275.6, 0.523, 'SVBNZ1 ', 20671.2, 0.0, 134.1, 0.906, 'SVBNZ2 ', 52.5, 0.0, 127.5, 0.438, 'SVISO1 ', 50.6, 0.0, 126.3, 0.434, 'SVISO2 ', 10009.0, 0.0, 123.8, 0.901, 'SVPAH1 ', 772.1, 0.0, 235.7, 0.886, 'SVPAH2 ', 4.8, 0.0, 231.5, 0.420, 'SVSQT ', 10.3, 0.0, 346.5, 0.652, 'SVTOL1 ', 1928.3, 0.0, 153.7, 0.877, 'SVTOL2 ', 111.6, 0.0, 194.1, 0.679, 'SVTRP1 ', 160.1, 0.0, 194.9, 0.735, 'SVTRP2 ', 13.0, 0.0, 218.8, 0.429, 'SVXYL1 ', 3586.7, 0.0, 154.6, 0.891, 'SVXYL2 ', 72.2, 0.0, 194.6, 0.594, 'IO ', 8.0, 0.0, 44.4, 0.420, 'OIO ', 8.0, 0.0, 51.8, 0.420, 'I2O2 ', 8.0, 0.0, 88.8, 0.420, 'I2O3 ', 8.0, 0.0, 96.2, 0.420, 'I2O4 ', 8.0, 0.0, 103.6, 0.420, 'HI ', 8.0, 0.0, 40.7, 0.420, 'HOI ', 8.0, 0.0, 48.1, 0.420, 'INO ', 8.0, 0.0, 60.9, 0.420, 'INO2 ', 20.0, 0.0, 69.2, 0.420, 'INO3 ', 8.0, 0.0, 77.5, 0.420, 'BRO ', 1.0, 0.0, 34.4, 0.420, 'HOBR ', 1.0, 0.0, 38.1, 0.420, 'HBR ', 2.0, 0.0, 30.7, 0.420, 'BRNO3 ', 1.0, 0.0, 67.5, 0.420, 'BRNO2 ', 1.0, 0.0, 59.2, 0.420, 'BRCL ', 1.0, 0.0, 51.6, 0.420, 'DMS ', 2.0, 0.0, 77.4, 0.420, 'MSA ', 2.0, 0.0, 77.4, 0.420, 'METHANE ', 2.0, 0.0, 29.6, 5.0e-5, 'ACRYACID ', 2.0, 0.0, 63.2, 0.420, 'CARBSULFIDE ', 5.0, 0.0, 51.5, 0.420, 'ACETONITRILE ', 5.0, 0.0, 52.3, 0.420, 'METH_NIT_PHEN', 16.0, 0.0, 155.0, 0.420, 'PCVOC ', 10.0, 0.0, 56.0, 0.420, 'INTR ', 16.0, 0.1, 140.4, 0.420, 'ISPX ', 10.0, 0.3, 49.0, 0.420, 'ROOH ', 10.0, 0.3, 49.0, 0.420, 'LVPCSOG ', 90000.0, 0.0, 63.0, 0.910, 'VIVPO1 ', 4.2, 0.0, 63.0, 0.909, 'VLVOO1 ', 71624.8, 0.0, 63.0, 0.910, 'VLVOO2 ', 9042.0, 0.0, 63.0, 0.909, 'VLVPO1 ', 13818.0, 0.0, 63.0, 0.420, 'VSVOO1 ', 1133.9, 0.0, 63.0, 0.896, 'VSVOO2 ', 18.1, 0.0, 63.0, 0.444, 'VSVOO3 ', 2.3, 0.0, 63.0, 0.420, 'VSVPO1 ', 1830.5, 0.0, 63.0, 0.896, 'VSVPO2 ', 241.0, 0.0, 63.0, 0.783, 'VSVPO3 ', 31.8, 0.0, 63.0, 0.444, 'FACD ', 20.0, 0.0, 63.0, 0.023, 'KET ', 1.0, 0.0, 108.2, 0.420, 'ETH ', 1.0, 0.0, 58.1, 1.0e-4, 'PNA ', 1.0, 0.0, 45.2, 0.100, 'GLY ', 1.0, 0.0, 56.2, 0.023, 'GLYD ', 1.0, 0.0, 56.4, 0.023, 'MGLY ', 1.0, 0.0, 72.5, 0.023, 'ETHA ', 1.0, 0.0, 61.5, 1.0e-4, 'ETOH ', 1.0, 0.0, 59.1, 0.018, 'PAR ', 1.0, 0.0, 111.1, 0.420, 'ACET ', 1.0, 0.0, 75.2, 5.4e-3, 'PRPA ', 1.0, 0.0, 78.1, 0.420, 'ETHY ', 1.0, 0.0, 45.8, 0.420, 'OLE ', 1.0, 0.0, 73.1, 0.420, 'IOLE ', 1.0, 0.0, 89.5, 0.420, 'BENZ ', 1.0, 0.0, 89.4, 0.420, 'CRES ', 1.0, 0.0, 108.1, 0.420, 'TOL ', 1.0, 0.0, 105.7, 0.420, 'XYLMN ', 1.0, 0.0, 122.0, 0.420, 'NAPH ', 1.0, 0.0, 123.5, 0.420, 'CAT1 ', 1.0, 0.0, 102.6, 0.420, 'SESQ ', 1.0, 0.0, 251.5, 0.420, 'TERP ', 1.0, 0.0, 136.2, 0.420, 'ISOP ', 1.0, 0.0, 136.2, 0.420, 'OPEN ', 1.0, 0.0, 69.6, 0.420, 'XOPN ', 1.0, 0.0, 81.7, 0.420, 'SOAALK ', 1.0, 0.0, 142.8, 0.420, 'BUTADIENE13 ', 1.0, 0.0, 84.8, 0.420, 'ACROLEIN ', 1.0, 0.0, 70.5, 0.420, 'SVMT1 ',145839.6, 0.0, 355.2, 0.910, 'SVMT2 ', 12788.1, 0.0, 236.8, 0.909, 'SVMT3 ', 1512.4, 0.0, 214.6, 0.896, 'SVMT4 ', 189.1, 0.0, 229.4, 0.783, 'SVMT5 ', 22.2, 0.0, 207.2, 0.444, 'SVMT6 ', 2.8, 0.0, 222.0, 0.420, 'SVMT7 ', 1.0, 0.0, 199.8, 0.420, 'SVAVB1 ',100388.0, 0.0, 163.1, 0.910, 'SVAVB2 ', 1461.2, 0.0, 163.2, 0.896, 'SVAVB3 ', 175.2, 0.0, 163.0, 0.783, 'SVAVB4 ', 20.8, 0.0, 162.7, 0.444, 'CLNO3 ', 8.0, 0.0, 65.1, 0.420, 'FMBR ', 10.0, 0.0, 52.9, 0.420, 'I2 ', 4.0, 0.0, 77.0, 0.420, 'CH3I ', 2.0, 0.0, 66.5, 0.420, 'ICL ', 4.0, 0.0, 63.0, 0.420, 'IBR ', 4.0, 0.0, 70.0, 0.420, 'MI2 ', 2.0, 0.0, 98.0, 0.420, 'MIB ', 2.0, 0.0, 91.0, 0.420, 'MIC ', 2.0, 0.0, 84.0, 0.420, 'BR2 ', 2.0, 0.0, 63.0, 0.420, 'BR3 ', 2.0, 0.0, 108.5, 0.420, 'CH3BR ', 2.0, 0.0, 59.5, 0.420, 'MB2 ', 2.0, 0.0, 84.0, 0.420, 'MB2C ', 2.0, 0.0, 101.5, 0.420, 'MBC2 ', 2.0, 0.0, 94.5, 0.420, 'MBC ', 2.0, 0.0, 77.0, 0.420, 'CLO ', 8.0, 0.0, 31.5, 0.420, 'ACD ', 1.0, 0.0, 58.9, 0.88, 'ACE ', 1.0, 0.0, 45.8, 0.88, 'ACRO ', 1.0, 0.0, 70.5, 0.88, 'ACT ', 1.0, 0.0, 75.2, 0.88, 'API ', 1.0, 0.0, 154.9, 0.88, 'BALD ', 1.0, 0.0, 101.1, 0.88, 'BDE13 ', 1.0, 0.0, 84.8, 0.88, 'BEN ', 1.0, 0.0, 89.4, 0.88, 'CSL ', 1.0, 0.0, 137.1, 0.88, 'DCB1 ', 1.0, 0.0, 100.6, 0.88, 'DCB2 ', 1.0, 0.0, 115.4, 0.88, 'DCB3 ', 1.0, 0.0, 82.8, 0.88, 'EOH ', 1.0, 0.0, 59.1, 0.88, 'ETE ', 1.0, 0.0, 58.1, 0.88, 'ETEG ', 1.0, 0.0, 56.6, 0.88, 'FURAN ', 1.0, 0.0, 83.9, 0.88, 'FURANONE ', 1.0, 0.0, 66.5, 0.88, 'HC10 ', 1.0, 0.0, 194, 0.88, 'HC3 ', 1.0, 0.0, 78.1, 0.88, 'HC5 ', 1.0, 0.0, 111, 0.88, 'HKET ', 1.0, 0.0, 72.7, 0.88, 'ISHP ', 1.0, 0.3, 107.6, 0.88, 'ISO ', 1.0, 0.0, 101, 0.88, 'ISON ', 1.0, 0.1, 125.4, 0.88, 'LIM ', 1.0, 0.0, 163, 0.88, 'LIMAL ', 1.0, 0.0, 183.3, 0.88, 'MACR ', 1.0, 0.0, 86.8, 0.88, 'MAHP ', 1.0, 0.3, 84.1, 0.88, 'MCT ', 1.71, 0.0, 103, 0.88, 'MEK ', 1.0, 0.0, 91.7, 0.88, 'MOH ', 1.0, 0.0, 42.5, 0.88, 'MVK ', 1.0, 0.0, 86.8, 0.88, 'NALD ', 1.0, 0.1, 78, 0.88, 'OLI ', 1.0, 0.0, 104, 0.88, 'OLT ', 1.0, 0.0, 73.1, 0.88, 'ONIT ', 1.0, 0.1, 114, 0.88, 'OP1 ', 1.0, 0.3, 48.9, 0.88, 'OP2 ', 1.0, 0.3, 65.4, 0.88, 'OPB ', 1.0, 0.3, 162.4, 0.88, 'ORA1 ', 1.0, 0.0, 39.9, 0.88, 'ORA2 ', 1.0, 0.0, 56.2, 0.88, 'PHEN ', 3.4, 0.0, 86.3, 0.88, 'PINAL ', 1.0, 0.0, 175.5, 0.88, 'PROG ', 1.0, 0.0, 73.4, 0.88, 'VROCIOXY ', 1.0, 0.0, 384, 0.88, 'VROCP4ALK ', 1.0, 0.0, 326, 0.88, 'VROCP4OXY2 ', 1.0, 0.0, 172, 0.88, 'VROCP5ALK ', 1.0, 0.0, 260, 0.88, 'VROCP5ARO ', 1.0, 0.0, 221, 0.88, 'VROCP5OXY1 ', 1.0, 0.0, 207, 0.88, 'VROCP6ALK ', 1.0, 0.0, 243, 0.88, 'VROCP6ARO ', 1.0, 0.0, 205, 0.88, 'VROCP6OXY1 ', 1.0, 0.0, 174, 0.88, 'ROH ', 1.0, 0.0, 75.6, 0.88, 'SLOWROC ', 1.0, 0.1, 38.9, 0.88, 'TRPN ', 5.16, 0.1, 123.5, 0.88, 'HONIT ', 216903, 0.1, 152.2, 0.88, 'UALD ', 1.0, 0.0, 102, 0.88, 'XYE ', 1.0, 0.0, 122, 0.88, 'XYM ', 1.0, 0.0, 122, 0.88, 'EBZ ', 1.0, 0.0, 122, 0.88, 'XYL ', 1.0, 0.0, 122, 0.88, 'STY ', 1.0, 0.0, 115.4, 0.88, 'ELHOM ', 49000, 0.3, 237, 0.88, 'HOM ', 711, 0.3, 157.7, 0.88, 'OP3 ', 783, 0.3, 153.1, 0.88, 'VROCN1ALK ', 218, 0.0, 508, 0.88, 'VROCN1OXY1 ', 8450, 0.0, 353, 0.88, 'VROCN1OXY3 ', 2550, 0.0, 216, 0.88, 'VROCN1OXY6 ', 182, 0.0, 147.7, 0.88, 'VROCN2ALK ', 28400, 0.0, 524, 0.88, 'VROCN2OXY2 ', 696, 0.0, 285.4, 0.88, 'VROCN2OXY4 ', 1440, 0.0, 197, 0.88, 'VROCN2OXY8 ', 2060000, 0.0, 130, 0.88, 'VROCP0ALK ', 36.8, 0.0, 491, 0.88, 'VROCP0OXY2 ', 130, 0.0, 251, 0.88, 'VROCP0OXY4 ', 5520, 0.0, 183, 0.88, 'VROCP1ALK ', 6.77, 0.0, 474, 0.88, 'VROCP1OXY1 ', 583, 0.0, 304, 0.88, 'VROCP1OXY3 ', 2820, 0.0, 202, 0.88, 'VROCP2ALK ', 1.09, 0.0, 425, 0.88, 'VROCP2OXY2 ', 9.60, 0.0, 221, 0.88, 'VROCP3ALK ', 1.0, 0.0, 375, 0.88, 'VROCP3OXY2 ', 1.0, 0.0, 198.7, 0.88, 'IPN ', 86.6, 0.3, 104.8, 0.88, 'IPC ', 1.0, 0.3, 99.3, 0.88, 'IPX ', 1.0, 0.3, 99.3, 0.88, 'INALD ', 1.0, 0.1, 78, 0.88, !------------------------------------------------------------------------------! ! Below is an example of how to add a deposited species to STAGE. The variable ! ! $name, here $name = ISOPOOH, must match a VD_$name in the GC namelist ! ! DRYDEP SURR column. In the GC, TR, or NR namelists the species must have a ! ! valid WET-SCAV SURR and DDEP and TRNS set to 'yes'. ! !------------------------------------------------------------------------------! ! 'ISOPOOH ', 16.0, 1.0, 140.4, 0.420, / !------------------------------------------------------------------------------! ! STAGE Land Use ! ! This section contains the STAGE default tiled land use. These land uses ! ! consist of plant functional types, water, snow and ice, barren, and urban ! ! (essentially high roughness barren) categories. Other land use ! ! types in the MODIS International Geosphere-Biosphere Programme (IGBP: ! ! https://fluxnet.org/data/badm-data-templates/igbp-classification/) or NLCD! ! Anderson classification scheme (https://www.mrlc.gov/data/legends/national! ! -land-cover-database-class-legend-and-description) are combinations of ! ! land use types in this table. To maintain maximum consistency with the ! ! driving meteorological model, the vegetation and momentum variables from ! ! these land use types are normalized to the meteorological grid scale ! ! value, e.g. the land use weighted stomatal conductance will equal the grid! ! scale value. The only exception to this is if the meteorological model is ! ! missing a vegetation parameter when the land use indicates vegetation ! ! coverage due to assumptions regarding the land and water coverage in the ! ! meteorological model. In these cases, vegetation parameters are estimated ! ! following WRF 3.8.1 parameterizations. Maximum LAI data is from Asner et ! ! al 2003 Table 2 (https://doi.org/10.1046/j.1466-822X.2003.00026.x) and ! ! vegetation coverage is taken from the IGBP classification. The composition! ! of urban land cover was taken from the observations of Nowak and ! ! Greenfield 2020 (https://doi.org/10.1016/j.ufug.2020.126638). MODIS and ! ! USGS categories used the Nowak and Greenfield 2020 data from table 2 and ! ! the NLCD urban categories used the impervious data from the NLCD legend ! ! and split the vegetation categories following Nowak and Greenfield 2020. ! ! For PFTs for which observations of leaf litter and stomatal NH3 ! ! compensation points are unavailable, values are estimated by correlating ! ! AMON site survey NH3 compensation points with %N observations from the ! ! TRY global plant trait database. The close relationships between leaf ! ! mass per area and leaf %N are widely reported Wright et al. 2004 ! ! (https://doi.org/10.1038/nature02403). It is assumed that the vegetation ! ! present in snow/ice and barren land uses are grass/herbaceous. ! !------------------------------------------------------------------------------! &STAGE_LU STAGE_LU_DATA= ! Land Use Name | Land use | RSMIN | Z0 | Max | Min | Max | Min | Ground | Veg | Soil | Leaf | Alpha | Pleim et al. 2022 Aero Depv | LU | ! | Tag | | | VEG | VEG | LAI | LAI | NH3 Gam | NH3 Gam | Hg | Width | | BAI | Ahair | Fhair | Aleaf | Index| ! | unitless | s/m | m | % | % |m2/m2|m2/m2| mol/mol | mol/mol | umol/g| m |unitless|m2/m2| m | ratio | m | | 'Water', 'WATER', 9999.0, 1.0e-3, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 1.0, 1.0e-6, 8.0e-3, 1.0e-3, 1, 'Ice', 'SNOWICE', 100.0, 1.2e-2, 10.0, 0.1, 1.7, 0.1, 438.0, 797.0, 0.0, 1.05e-2, 1.2, 1.0, 5.0e-7, 2.0e-3, 5.0e-4, 2, 'Barren', 'BARREN', 100.0, 5.0e-2, 10.0, 0.5, 1.7, 0.1, 438.0, 797.0, 125.0, 1.05e-2, 1.2, 1.0, 5.0e-7, 2.0e-3, 5.0e-4, 3, 'Urban', 'URBAN', 9999.0, 1.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 2.0, 1.0e-6, 8.0e-3, 1.0e-3, 4, 'Grassland', 'GRASS', 100.0, 7.0e-2, 90.0, 10.0, 1.7, 1.7, 438.0, 797.0, 20.0, 1.05e-2, 1.2, 1.0, 5.0e-7, 2.0e-3, 5.0e-4, 5, 'Cropland', 'AG', 70.0, 1.0e-1, 90.0, 10.0, 3.6, 1.5, 438.0, 797.0, 81.0, 1.05e-2, 1.2, 1.0, 1.0e-6, 8.0e-3, 4.0e-3, 6, 'Shrub', 'SHRUB', 200.0, 1.5e-1, 90.0, 10.0, 2.1, 1.0, 52.0, 81.0, 125.0, 2.04e-3, 1.3, 1.0, 1.0e-6, 8.0e-3, 3.0e-3, 7, 'EvrgrnNeedleLeaf', 'EVEFORN', 175.0, 1.0, 93.0, 93.0, 5.5, 3.5, 13.0, 18.0, 40.0, 9.00e-4, 1.0, 1.0, 5.0e-7, 8.0e-3, 2.0e-3, 8, 'EvrgrnBroadLeaf', 'EVEFORB', 120.0, 9.0e-1, 92.0, 92.0, 5.7, 3.6, 46.0, 71.0, 130.0, 1.10e-2, 1.0, 1.0, 1.0e-6, 8.0e-3, 1.0e-2, 9, 'DecNeedleLeaf', 'DECFORN', 175.0, 1.0, 90.0, 60.0, 4.6, 1.5, 67.0, 107.0, 81.0, 7.20e-4, 0.8, 1.0, 5.0e-7, 8.0e-3, 2.0e-3, 10, 'DecBroadLeaf', 'DECFORB', 200.0, 1.0, 91.0, 91.0, 5.1, 1.5, 198.0, 340.0, 81.0, 3.88e-2, 1.0, 1.0, 1.0e-6, 8.0e-3, 1.0e-2, 11, / !------------------------------------------------------------------------------! ! STAGE Land Use Mapping ! ! The following namelists map the meteorological land use to the 11 category! ! STAGE land use. Common land uses are included here, MODIS, NLCD, and USGS.! ! There is a custom option allowing the user to create the map between the ! ! meteorological model and STAGE. In the mapping table, the 'Factor' field ! ! describes the fraction of a meteorological land-use type (Met_LU_Name) ! ! that is described by the STAGE land use type (STAGE_LU_Name). For example,! ! MODIS_05 is half deciduous broadleaf (DecBroadLeaf) and half evergreen ! ! needle leaf (EvrgrnNeedleLeaf). The sum of 'Factor' for a given ! ! Met_LU_Name must sum to 1. ! !------------------------------------------------------------------------------! &STAGE_MODIS_20 MET_TO_STAGE_LU = ! Met_LU_Name | Met_Index | STAGE_LU_name | STAGE_Index | Factor | Description 'MODIS_01', 1, 'EvrgrnNeedleLeaf', 8, 1.0, 'Evergreen Needleleaf Forest', 'MODIS_02', 2, 'EvrgrnBroadLeaf', 9, 1.0, 'Evergreen Broadleaf Forest', 'MODIS_03', 3, 'DecNeedleLeaf', 10, 1.0, 'Deciduous Needleleaf Forest', 'MODIS_04', 4, 'DecBroadLeaf', 11, 1.0, 'Deciduous Broadleaf Forest', 'MODIS_05', 5, 'DecBroadLeaf', 11, 0.5, 'Mixed Forest', 'MODIS_05', 5, 'EvrgrnNeedleLeaf', 8, 0.5, 'Mixed Forest', 'MODIS_06', 6, 'Shrub', 7, 1.0, 'Closed Shrublands', 'MODIS_07', 7, 'Shrub', 7, 1.0, 'Open Shrublands', 'MODIS_08', 8, 'DecBroadLeaf', 11, 0.45, 'Woody Savannas', 'MODIS_08', 8, 'Grassland', 5, 0.55, 'Woody Savannas', 'MODIS_09', 9, 'DecBroadLeaf', 11, 0.2, 'Savannas', 'MODIS_09', 9, 'Grassland', 5, 0.8, 'Savannas', 'MODIS_10', 10, 'Grassland', 5, 1.0, 'Grassland', 'MODIS_11', 11, 'Grassland', 5, 0.3, 'Permanent Wetland', 'MODIS_11', 11, 'DecBroadLeaf', 11, 0.7, 'Permanent Wetland', 'MODIS_12', 12, 'Cropland', 6, 1.0, 'Croplands', 'MODIS_13', 13, 'DecBroadLeaf', 11, 0.31, 'Urban', 'MODIS_13', 13, 'Grassland', 5, 0.35, 'Urban', 'MODIS_13', 13, 'Urban', 4, 0.34, 'Urban', 'MODIS_14', 14, 'Cropland', 6, 0.5, 'Cropland/natural mosaic', 'MODIS_14', 14, 'Grassland', 5, 0.25, 'Cropland/natural mosaic', 'MODIS_14', 14, 'DecBroadLeaf', 11, 0.25, 'Cropland/natural mosaic', 'MODIS_15', 15, 'Ice', 2, 1.0, 'Snow/ice', 'MODIS_16', 16, 'Barren', 3, 1.0, 'Barren', 'MODIS_17', 17, 'Water', 1, 1.0, 'Water', 'MODIS_18', 18, 'Shrub', 7, 0.45, 'Wooded Tundra', 'MODIS_18', 18, 'Grassland', 5, 0.55, 'Wooded Tundra', 'MODIS_19', 19, 'Shrub', 7, 0.2, 'Mixed Tundra', 'MODIS_19', 19, 'Grassland', 5, 0.8, 'Mixed Tundra', 'MODIS_20', 20, 'Barren', 3, 1.0, 'Barren Tundra', / ! MODIS 21 high resolution lakes example &STAGE_CUSTOM MET_TO_STAGE_LU = ! Met_LU_Name | Met_Index | STAGE_LU_name | STAGE_Index | Factor | Description 'MODIS_01', 1, 'EvrgrnNeedleLeaf', 8, 1.0, 'Evergreen Needleleaf Forest', 'MODIS_02', 2, 'EvrgrnBroadLeaf', 9, 1.0, 'Evergreen Broadleaf Forest', 'MODIS_03', 3, 'DecNeedleLeaf', 10, 1.0, 'Deciduous Needleleaf Forest', 'MODIS_04', 4, 'DecBroadLeaf', 11, 1.0, 'Deciduous Broadleaf Forest', 'MODIS_05', 5, 'DecBroadLeaf', 11, 0.5, 'Mixed Forest', 'MODIS_05', 5, 'EvrgrnNeedleLeaf', 8, 0.5, 'Mixed Forest', 'MODIS_06', 6, 'Shrub', 7, 1.0, 'Closed Shrublands', 'MODIS_07', 7, 'Shrub', 7, 1.0, 'Open Shrublands', 'MODIS_08', 8, 'DecBroadLeaf', 11, 0.45, 'Woody Savannas', 'MODIS_08', 8, 'Grassland', 5, 0.55, 'Woody Savannas', 'MODIS_09', 9, 'DecBroadLeaf', 11, 0.2, 'Savannas', 'MODIS_09', 9, 'Grassland', 5, 0.8, 'Savannas', 'MODIS_10', 10, 'Grassland', 5, 1.0, 'Grassland', 'MODIS_11', 11, 'Grassland', 5, 0.3, 'Permanent Wetland', 'MODIS_11', 11, 'DecBroadLeaf', 11, 0.7, 'Permanent Wetland', 'MODIS_12', 12, 'Cropland', 6, 1.0, 'Croplands', 'MODIS_13', 13, 'DecBroadLeaf', 11, 0.31, 'Urban', 'MODIS_13', 13, 'Grassland', 5, 0.35, 'Urban', 'MODIS_13', 13, 'Urban', 4, 0.34, 'Urban', 'MODIS_14', 14, 'Cropland', 6, 0.5, 'Cropland/natural mosaic', 'MODIS_14', 14, 'Grassland', 5, 0.25, 'Cropland/natural mosaic', 'MODIS_14', 14, 'DecBroadLeaf', 11, 0.25, 'Cropland/natural mosaic', 'MODIS_15', 15, 'Ice', 2, 1.0, 'Snow/ice', 'MODIS_16', 16, 'Barren', 3, 1.0, 'Barren', 'MODIS_17', 17, 'Water', 1, 1.0, 'Water', 'MODIS_18', 18, 'Shrub', 7, 0.45, 'Wooded Tundra', 'MODIS_18', 18, 'Grassland', 5, 0.55, 'Wooded Tundra', 'MODIS_19', 19, 'Shrub', 7, 0.2, 'Mixed Tundra', 'MODIS_19', 19, 'Grassland', 5, 0.8, 'Mixed Tundra', 'MODIS_20', 20, 'Barren', 3, 1.0, 'Barren Tundra', 'MODIS_21', 21, 'Water', 1, 1.0, 'Lakes', / &STAGE_NLCD_40 MET_TO_STAGE_LU = ! Met_LU_Name | Met_Index | STAGE_LU_name | STAGE_Index | Factor | Description 'MODIS_01', 1, 'EvrgrnNeedleLeaf', 8, 1.0, 'Evergreen Needleleaf Forest', 'MODIS_02', 2, 'EvrgrnBroadLeaf', 9, 1.0, 'Evergreen Broadleaf Forest', 'MODIS_03', 3, 'DecNeedleLeaf', 10, 1.0, 'Deciduous Needleleaf Forest', 'MODIS_04', 4, 'DecBroadLeaf', 11, 1.0, 'Deciduous Broadleaf Forest', 'MODIS_05', 5, 'DecBroadLeaf', 11, 0.5, 'Mixed Forest', 'MODIS_05', 5, 'EvrgrnNeedleLeaf', 8, 0.5, 'Mixed Forest', 'MODIS_06', 6, 'Shrub', 7, 1.0, 'Closed Shrublands', 'MODIS_07', 7, 'Shrub', 7, 1.0, 'Open Shrublands', 'MODIS_08', 8, 'DecBroadLeaf', 11, 0.45, 'Woody Savannas', 'MODIS_08', 8, 'Grassland', 5, 0.55, 'Woody Savannas', 'MODIS_09', 9, 'DecBroadLeaf', 11, 0.2, 'Savannas', 'MODIS_09', 9, 'Grassland', 5, 0.8, 'Savannas', 'MODIS_10', 10, 'Grassland', 5, 1.0, 'Grassland', 'MODIS_11', 11, 'Grassland', 5, 0.3, 'Permanent Wetland', 'MODIS_11', 11, 'DecBroadLeaf', 11, 0.7, 'Permanent Wetland', 'MODIS_12', 12, 'Cropland', 6, 1.0, 'Croplands', 'MODIS_13', 13, 'DecBroadLeaf', 11, 0.31, 'Urban', 'MODIS_13', 13, 'Grassland', 5, 0.35, 'Urban', 'MODIS_13', 13, 'Urban', 4, 0.34, 'Urban', 'MODIS_14', 14, 'Cropland', 6, 0.5, 'Cropland/natural mosaic', 'MODIS_14', 14, 'Grassland', 5, 0.25, 'Cropland/natural mosaic', 'MODIS_14', 14, 'DecBroadLeaf', 11, 0.25, 'Cropland/natural mosaic', 'MODIS_15', 15, 'Ice', 2, 1.0, 'Snow/ice', 'MODIS_16', 16, 'Barren', 3, 1.0, 'Barren', 'MODIS_17', 17, 'Water', 1, 1.0, 'Water', 'MODIS_253', 18, 'Water', 1, 1.0, 'Unclassified Fill', 'MODIS_254', 19, 'Water', 1, 1.0, 'Unclassified Fill', 'MODIS_255', 20, 'Water', 1, 1.0, 'Unclassified Fill', 'NLCD_11', 21, 'Water', 1, 1.0, 'Water', 'NLCD_12', 22, 'Ice', 2, 1.0, 'Snow/ice', 'NLCD_21', 23, 'DecBroadLeaf', 11, 0.45, 'Developed, Open space', 'NLCD_21', 23, 'Grassland', 5, 0.45, 'Developed, Open space', 'NLCD_21', 23, 'Urban', 4, 0.1, 'Developed, Open space', 'NLCD_22', 24, 'DecBroadLeaf', 11, 0.32, 'Developed, Low Intensity', 'NLCD_22', 24, 'Grassland', 5, 0.33, 'Developed, Low Intensity', 'NLCD_22', 24, 'Urban', 4, 0.35, 'Developed, Low Intensity', 'NLCD_23', 25, 'DecBroadLeaf', 11, 0.17, 'Developed, Medium Intensity', 'NLCD_23', 25, 'Grassland', 5, 0.18, 'Developed, Medium Intensity', 'NLCD_23', 25, 'Urban', 4, 0.65, 'Developed, Medium Intensity', 'NLCD_24', 26, 'DecBroadLeaf', 11, 0.05, 'Developed, High Intensity', 'NLCD_24', 26, 'Grassland', 5, 0.05, 'Developed, High Intensity', 'NLCD_24', 26, 'Urban', 4, 0.9, 'Developed, High Intensity', 'NLCD_31', 27, 'Barren', 3, 1.0, 'Barren', 'NLCD_41', 28, 'DecBroadLeaf', 11, 1.0, 'Deciduous Forest', 'NLCD_42', 29, 'EvrgrnNeedleLeaf', 8, 1.0, 'Evergreen Forest', 'NLCD_43', 30, 'DecBroadLeaf', 11, 0.5, 'Mixed Forest', 'NLCD_43', 30, 'EvrgrnNeedleLeaf', 8, 0.5, 'Mixed Forest', 'NLCD_51', 31, 'Shrub', 7, 0.6, 'Dwarf Scrub', 'NLCD_51', 31, 'Grassland', 5, 0.4, 'Dwarf Scrub', 'NLCD_52', 32, 'Shrub', 7, 1.0, 'Shrub/scrub', 'NLCD_71', 33, 'Grassland', 5, 1.0, 'Grassland', 'NLCD_72', 34, 'Grassland', 5, 1.0, 'Grassland', 'NLCD_73', 35, 'Barren', 3, 1.0, 'Lichens', 'NLCD_74', 36, 'Barren', 3, 1.0, 'Moss', 'NLCD_81', 37, 'Cropland', 6, 1.0, 'Pasture/Hay', 'NLCD_82', 38, 'Cropland', 6, 1.0, 'Cultivated Crops', 'NLCD_90', 39, 'DecBroadLeaf', 11, 1.0, 'Woody Wetland', 'NLCD_95', 40, 'Grassland', 5, 1.0, 'Emergent Herbaceous Wetland', / &STAGE_NLCD_50 MET_TO_STAGE_LU = ! Met_LU_Name | Met_Index | STAGE_LU_name | STAGE_Index | Factor | Description 'NLCD_11', 1, 'Water', 1, 1.00, 'Water', 'NLCD_12', 2, 'Ice', 2, 1.00, 'Snow/ice', 'NLCD_21', 3, 'DecBroadLeaf', 11, 0.45, 'Developed, Open space', 'NLCD_21', 3, 'Grassland', 5, 0.45, 'Developed, Open space', 'NLCD_21', 3, 'Urban', 4, 0.10, 'Developed, Open space', 'NLCD_22', 4, 'DecBroadLeaf', 11, 0.32, 'Developed, Low Intensity', 'NLCD_22', 4, 'Grassland', 5, 0.33, 'Developed, Low Intensity', 'NLCD_22', 4, 'Urban', 4, 0.35, 'Developed, Low Intensity', 'NLCD_23', 5, 'DecBroadLeaf', 11, 0.17, 'Developed, Medium Intensity', 'NLCD_23', 5, 'Grassland', 5, 0.18, 'Developed, Medium Intensity', 'NLCD_23', 5, 'Urban', 4, 0.65, 'Developed, Medium Intensity', 'NLCD_24', 6, 'DecBroadLeaf', 11, 0.05, 'Developed, High Intensity', 'NLCD_24', 6, 'Grassland', 5, 0.05, 'Developed, High Intensity' 'NLCD_24', 6, 'Urban', 4, 0.90, 'Developed, High Intensity', 'NLCD_31', 7, 'Barren', 3, 1.00, 'Barren', 'NLCD_32', 8, 'Barren', 3, 1.00, 'Unconsolidated Shore', 'NLCD_41', 9, 'DecBroadLeaf', 11, 1.00, 'Deciduous Forest', 'NLCD_42', 10, 'EvrgrnNeedleLeaf', 8, 1.00, 'Evergreen Forest', 'NLCD_43', 11, 'DecBroadLeaf', 11, 0.50, 'Mixed Forest', 'NLCD_43', 11, 'EvrgrnNeedleLeaf', 8, 0.50, 'Mixed Forest', 'NLCD_51', 12, 'Shrub', 7, 0.60, 'Dwarf Scrub', 'NLCD_51', 12, 'Grassland', 5, 0.40, 'Dwarf Scrub', 'NLCD_52', 13, 'Shrub', 7, 1.00, 'Shrub/scrub', 'NLCD_71', 14, 'Grassland', 5, 1.00, 'Grassland', 'NLCD_72', 15, 'Grassland', 5, 1.00, 'Grassland', 'NLCD_73', 16, 'Barren', 3, 1.00, 'Lichens', 'NLCD_74', 17, 'Barren', 3, 1.00, 'Moss', 'NLCD_75', 18, 'Shrub', 7, 0.60, 'Tundra', 'NLCD_75', 18, 'Grassland', 5, 0.40, 'Tundra', 'NLCD_81', 19, 'Cropland', 6, 1.00, 'Pasture/Hay', 'NLCD_82', 20, 'Cropland', 6, 1.00, 'Cultivated Crops', 'NLCD_90', 21, 'DecBroadLeaf', 11, 1.00, 'Woody Wetland', 'NLCD_91', 22, 'DecBroadLeaf', 11, 0.50, 'Palustrine Forested Wetland', 'NLCD_91', 22, 'EvrgrnNeedleLeaf', 8, 0.50, 'Palustrine Forested Wetland', 'NLCD_92', 23, 'Shrub', 7, 1.00, 'Palustrine Shrub/Scrub Wetland', 'NLCD_93', 24, 'DecBroadLeaf', 11, 0.50, 'Estuarin Forested Wetland', 'NLCD_93', 24, 'EvrgrnNeedleLeaf', 8, 0.50, 'Estuarin Forested Wetland', 'NLCD_94', 25, 'Shrub', 7, 1.00, 'Estuarin Shrub/Scrub Wetland', 'NLCD_95', 26, 'Grassland', 5, 1.00, 'Emergent Herbaceous Wetland', 'NLCD_96', 27, 'Grassland', 5, 1.00, 'Palustrine Emergent Wetland', 'NLCD_97', 28, 'Grassland', 5, 1.00, 'Estuarine Emergent Wetland', 'NLCD_98', 29, 'Grassland', 5, 1.00, 'Palustrine Aquatic Bed', 'NLCD_99', 30, 'Grassland', 5, 1.00, 'Estuarine Aquatic Bed', 'MODIS_00', 31, 'Water', 1, 1.00, 'Water', 'MODIS_01', 32, 'EvrgrnNeedleLeaf', 8, 1.00, 'Evergreen Needleleaf Forest', 'MODIS_02', 33, 'EvrgrnBroadLeaf', 9, 1.00, 'Evergreen Broadleaf Forest', 'MODIS_03', 34, 'DecNeedleLeaf', 10, 1.00, 'Deciduous Needleleaf Forest', 'MODIS_04', 35, 'DecBroadLeaf', 11, 1.00, 'Deciduous Broadleaf Forest', 'MODIS_05', 36, 'DecBroadLeaf', 11, 0.50, 'Mixed Forest', 'MODIS_05', 36, 'EvrgrnNeedleLeaf', 8, 0.50, 'Mixed Forest', 'MODIS_06', 37, 'Shrub', 7, 1.00, 'Closed Shrublands', 'MODIS_07', 38, 'Shrub', 7, 1.00, 'Open Shrublands', 'MODIS_08', 39, 'DecBroadLeaf', 11, 0.45, 'Woody Savannas', 'MODIS_08', 39, 'Grassland', 5, 0.55, 'Woody Savannas', 'MODIS_09', 40, 'DecBroadLeaf', 11, 0.20, 'Savannas', 'MODIS_09', 40, 'Grassland', 5, 0.80, 'Savannas', 'MODIS_10', 41, 'Grassland', 5, 1.00, 'Grassland', 'MODIS_11', 42, 'Grassland', 5, 0.30, 'Permanent Wetland', 'MODIS_11', 42, 'DecBroadLeaf', 11, 0.70, 'Permanent Wetland', 'MODIS_12', 43, 'Cropland', 6, 1.00, 'Croplands', 'MODIS_13', 44, 'DecBroadLeaf', 11, 0.31, 'Urban', 'MODIS_13', 44, 'Grassland', 5, 0.35, 'Urban', 'MODIS_13', 44, 'Urban', 4, 0.34, 'Urban', 'MODIS_14', 45, 'Cropland', 6, 0.50, 'Cropland/natural mosaic', 'MODIS_14', 45, 'Grassland', 5, 0.25, 'Cropland/natural mosaic', 'MODIS_14', 45, 'DecBroadLeaf', 11, 0.25, 'Cropland/natural mosaic', 'MODIS_15', 46, 'Ice', 2, 1.00, 'Snow/ice', 'MODIS_16', 47, 'Barren', 3, 1.00, 'Barren', 'MODIS_17', 48, 'Water', 1, 1.00, 'Water', 'MODIS_253', 49, 'Water', 1, 1.00, 'Unclasified Fill', 'MODIS_254', 50, 'Water', 1, 1.00, 'Unclasified Fill', / &STAGE_USGS_24 MET_TO_STAGE_LU = ! Met_LU_Name | Met_Index | STAGE_LU_name | STAGE_Index | Factor | Description 'USGS_Urban', 1, 'DecBroadLeaf', 11, 0.31, 'Urban', 'USGS_Urban', 1, 'Grassland', 5, 0.35, 'Urban', 'USGS_Urban', 1, 'Urban', 4, 0.34, 'Urban', 'USGS_DrCrp', 2, 'Cropland', 6, 1.00, 'Dry Croplands', 'USGS_IrCrp', 3, 'Cropland', 6, 1.00, 'Irrigated Croplands', 'USGS_MixCrp', 4, 'Cropland', 6, 1.00, 'Dry and Irrigated', 'USGS_CrGrM', 5, 'Cropland', 6, 0.50, 'Grassland Crop Mosaic', 'USGS_CrGrM', 5, 'Grassland', 5, 0.50, 'Grassland Crop Mosaic' 'USGS_CrWdM', 6, 'Cropland', 6, 0.50, 'Forest Crop Mosaic', 'USGS_CrWdM', 6, 'DecBroadLeaf', 11, 0.50, 'Forest Crop Mosaic', 'USGS_GrsLd', 7, 'Grassland', 5, 1.00, 'Grasslands', 'USGS_ShrLd', 8, 'Shrub', 7, 1.00, 'Shrublands', 'USGS_ShrGr', 9, 'Shrub', 7, 0.50, 'Shrublands', 'USGS_ShrGr', 9, 'Grassland', 5, 0.50, 'Shrublands', 'USGS_Savan', 10, 'Grassland', 5, 0.50, 'Savannas', 'USGS_Savan', 10, 'DecBroadLeaf', 11, 0.50, 'Savannas', 'USGS_DBFst', 11, 'DecBroadLeaf', 11, 1.00, 'Deciduous Broadleaf Forest', 'USGS_DNFst', 12, 'DecNeedleLeaf', 10, 1.00, 'Deciduous Needleleaf Forest', 'USGS_EBFst', 13, 'EvrgrnBroadLeaf', 9, 1.00, 'Evergreen Broadleaf', 'USGS_ENFst', 14, 'EvrgrnNeedleLeaf', 8, 1.00, 'Evergreen Needleleaf', 'USGS_MxFst', 15, 'DecBroadLeaf', 11, 0.50, 'Mixed Forest', 'USGS_MxFst', 15, 'EvrgrnNeedleLeaf', 8, 0.50, 'Mixed Forest', 'USGS_Water', 16, 'Water', 1, 1.00, 'Water', 'USGS_HWtld', 17, 'Grassland', 5, 1.00, 'Herbaceous Wetland', 'USGS_WWtld', 18, 'DecBroadLeaf', 11, 0.50, 'Wooded Wetland', 'USGS_WWtld', 18, 'EvrgrnNeedleLeaf', 8, 0.50, 'Wooded Wetland', 'USGS_BarSp', 19, 'Barren', 3, 1.00, 'Barren', 'USGS_HrTun', 20, 'Grassland', 5, 1.00, 'Herbaceous Tundra', 'USGS_WdTun', 21, 'Shrub', 7, 1.00, 'Wooded Tundra', 'USGS_MxTun', 22, 'Grassland', 5, 0.50, 'Mixed Tundra', 'USGS_MxTun', 22, 'Shrub', 7, 0.50, 'Mixed Tundra', 'USGS_BGTun', 23, 'Barren', 3, 1.00, 'Barren Tundra', 'USGS_SnwIc', 24, 'Ice', 2, 1.00, 'Snow/Ice', / ================================================ FILE: CCTM/src/depv/stage/DEPV_DEFN.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: MODULE DEPV_DEFN C----------------------------------------------------------------------- C Function: deposition velocity interface to the chemistry-transport model C Revision History: C 24 Nov 2006 J.Young: initial implementation using Bill Hutzell's and C Tanya Otte's work C 29 Jan 2010 D. Wong: Eliminate potential race condition at the MYPE = 0 C to open the diagnostic file. Eliminate the BARRIER C and the CLOSE3 and OPEN3. C 21 Jun 2010 J.Young: convert for Namelist redesign C 27 Jan 2011 J.Young: remove references to AERO3 and AERO4 C 20 Jan 2011 J. Bash: Passed the component fluxes and tstep between vdiff C & m3dry C 16 Feb 2011 S.Roselle: replaced I/O API include files with UTILIO_DEFN C 5 May 2011 J.Young: remove writing diagnostic output for initial call C 22 Sep 2011 D. Wong: - incorporated twoway model implemenation C - used a robust way to compute WTIME C 11 Oct 2011 J.Young: PUBLIC/PRIVATE sections, re-do WTIME computation C and WTIME computation for MOSAIC C 13 Dec 2011 J.Young: removed separate SOA variables - no longer used C 18 Sep 2012 D. Wong: invoke INIT_LSM regardless of MOSAIC or ABFLUX option C 07 Jul 14 B.Hutzell: replaced mechanism include file(s) with fortran module C 7 Nov 2014 J. Bash: Modified for the restructuring of vidff. Moved constants and data to C ASX_DATA_MOD. C Aug 2015 D. Wong: Replaced MYPE with IO_PE_INCLUSIVE to facilitate C parallel I/O implementation C Added a block of code to let non I/O processors to C open CTM_DEPV_DIAG in parallel I/O implementation C Feb 2019 D. Wong: removed all MY_N clauses C------------------------------------------------------------------------------- USE RUNTIME_VARS USE CGRID_SPCS, ONLY : N_SPC_DEPV IMPLICIT NONE C no. of deposition velocity model species INTEGER, SAVE :: N_GAS_DEPV C ddep spc conversion factors REAL, ALLOCATABLE, SAVE :: DD_CONV( : ) PUBLIC DD_CONV, N_GAS_DEPV, DEPV_INIT, GET_DEPV PRIVATE C CGRID for m3dry bi-directional flux calculation REAL, ALLOCATABLE, SAVE :: CGRIDL1( :,:,: ) REAL, SAVE :: DTSEC C flag for diagnostic DEPV file INTEGER, SAVE :: N_UNIQUE_GDEPV ! gas depv CHARACTER( 16 ), ALLOCATABLE, SAVE :: UNIQUE_GDEPV( : ) INTEGER, ALLOCATABLE, SAVE :: GAS_DEPV_SUR( : ) LOGICAL, ALLOCATABLE, SAVE :: GAS_DEPV_FOUND( : ) INTEGER, SAVE :: N_UNIQUE_ADEPV ! aero depv CHARACTER( 16 ), ALLOCATABLE, SAVE :: UNIQUE_ADEPV( : ) INTEGER, ALLOCATABLE, SAVE :: AER_DEPV_SUR( : ) INTEGER, SAVE :: NR_OFFSET ! Offset to NR start in CGRID INTEGER :: GXOFF, GYOFF ! global origin offset from file C for INTERPX INTEGER, SAVE :: STRTCOLMC2, ENDCOLMC2, STRTROWMC2, ENDROWMC2 INTEGER, SAVE :: STRTCOLMC3, ENDCOLMC3, STRTROWMC3, ENDROWMC3 REAL, ALLOCATABLE, SAVE :: UCROSS( :,:,:) REAL, ALLOCATABLE, SAVE :: VCROSS( :,:,:) REAL, ALLOCATABLE, SAVE :: DLUSE( :,: ) CONTAINS C----------------------------------------------------------------------- FUNCTION DEPV_INIT( JDATE, JTIME, TSTEP, CGRID ) RESULT ( SUCCESS ) USE HGRD_DEFN USE RXNS_DATA ! chemical mechanism data USE CGRID_SPCS ! CGRID mechanism species USE STAGE_DATA USE UTILIO_DEFN USE LSM_MOD, Only: Init_LSM USE MOSAIC_MOD, Only: Tile_Data USE BIDI_MOD, Only: Init_Bidi USE STAGE_MOD, Only: INIT_STAGE USE STAGE_OUTPUT IMPLICIT NONE C Includes: INCLUDE SUBST_CONST ! constants INCLUDE SUBST_FILES_ID ! file name parameters C Arguments: INTEGER JDATE, JTIME, TSTEP( 3 ) REAL, POINTER :: CGRID( :,:,:,: ) LOGICAL SUCCESS C Parameters: REAL, PARAMETER :: RGAS1 = 1.0 / RGASUNIV ! univ. gas constant reciprocal REAL, PARAMETER :: M2PHA = 1.0E+04 ! 1 hectare = 1.0e4 m**2 REAL, PARAMETER :: CMLMR = 1.0E+06 ! ppmV/Molar Mixing Ratio REAL, PARAMETER :: CNVTD = M2PHA / CMLMR / MWAIR ! combined ddep conv factor C Local variables: CHARACTER( 16 ), ALLOCATABLE :: ALL_GAS_DEPV( : ) LOGICAL, ALLOCATABLE :: AE_DEPV_FOUND( : ) CHARACTER( 16 ) :: PNAME = 'DEPV_INIT' CHARACTER( 120 ) :: XMSG = ' ' INTEGER NDX, NDX2, NDX3 ! Temp index INTEGER ALLOCSTAT INTEGER J, L, N, S, V, STRT, FINI C----------------------------------------------------------------------- SUCCESS = .TRUE. N_GAS_DEPV = N_GC_DEPV + N_NR_DEPV + N_TR_DEPV N_SPC_DEPV = N_GAS_DEPV + N_AE_DEPV C Initialize deposition velocities for nondeposited species to zero: C setting DEPV( N_SPC_DEPV+1,C,R ) = 0.0 accounts for dry dep. species names C as a subset of the vert. diffused species list ALLOCATE ( DD_CONV( N_SPC_DEPV ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating DD_CONV' CALL M3WARN( PNAME, JDATE, JTIME, XMSG ) SUCCESS = .FALSE.; RETURN END IF C set dry dep conversion factor (done here so that vdiff doesn`t need the include files) S = 0 DO V = 1, N_GC_DEPV S = S + 1 DD_CONV( S ) = CNVTD * GC_MOLWT( GC_DEPV_MAP( V ) ) END DO DO V = 1, N_AE_DEPV S = S + 1 IF ( AE_SPC( AE_DEPV_MAP( V ) )( 1:3 ) .EQ. 'NUM' ) THEN DD_CONV( S ) = M2PHA * 1.0E+03 / MWAIR ! --> #/Ha ELSE IF ( AE_SPC( AE_DEPV_MAP( V ) )( 1:3 ) .EQ. 'SRF' ) THEN DD_CONV( S ) = M2PHA * 1.0E+03 / MWAIR ! --> M**2/Ha ELSE DD_CONV( S ) = CNVTD * AE_MOLWT( AE_DEPV_MAP( V ) ) END IF END DO DO V = 1, N_NR_DEPV S = S + 1 DD_CONV( S ) = CNVTD * NR_MOLWT( NR_DEPV_MAP( V ) ) END DO DO V = 1, N_TR_DEPV S = S + 1 DD_CONV( S ) = CNVTD * TR_MOLWT( TR_DEPV_MAP( V ) ) END DO CALL SUBHFILE ( MET_CRO_2D, GXOFF, GYOFF, & STRTCOLMC2, ENDCOLMC2, STRTROWMC2, ENDROWMC2 ) CALL SUBHFILE ( MET_CRO_3D, GXOFF, GYOFF, & STRTCOLMC3, ENDCOLMC3, STRTROWMC3, ENDROWMC3 ) INIT_GAS_DV: & IF ( N_GAS_DEPV .GT. 0 ) THEN ALLOCATE ( ALL_GAS_DEPV( N_GAS_DEPV ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating ALL_GAS_DEPV' CALL M3WARN( PNAME, JDATE, JTIME, XMSG ) SUCCESS = .FALSE.; RETURN END IF DO V = 1, N_GC_DEPV ALL_GAS_DEPV( V ) = GC_DEPV( V ) END DO STRT = N_GC_DEPV DO V = 1, N_NR_DEPV ALL_GAS_DEPV( V + STRT ) = NR_DEPV( V ) END DO STRT = N_GC_DEPV + N_NR_DEPV DO V = 1, N_TR_DEPV ALL_GAS_DEPV( V + STRT ) = TR_DEPV( V ) END DO C Identify and remove multiple occurrences of gas deposition velocities ALLOCATE( GAS_DEPV_FOUND( N_GAS_DEPV ), & GAS_DEPV_SUR ( N_GAS_DEPV ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating GAS_DEPV_FOUND or GAS_DEPV_SUR' CALL M3WARN( PNAME, JDATE, JTIME, XMSG ) SUCCESS = .FALSE.; RETURN END IF GAS_DEPV_FOUND = .FALSE. N_UNIQUE_GDEPV = 0 LOOP_UNIQUE: & DO N = 1, N_GAS_DEPV IF ( GAS_DEPV_FOUND( N ) ) CYCLE LOOP_UNIQUE DO V = 1, N_GAS_DEPV IF ( ALL_GAS_DEPV( N ) .EQ. ALL_GAS_DEPV( V ) ) THEN IF ( GAS_DEPV_FOUND( V ) ) CYCLE LOOP_UNIQUE N_UNIQUE_GDEPV = N_UNIQUE_GDEPV + 1 GAS_DEPV_FOUND( V ) = .TRUE. CYCLE LOOP_UNIQUE END IF END DO END DO LOOP_UNIQUE ALLOCATE( UNIQUE_GDEPV( N_UNIQUE_GDEPV ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating UNIQUE_GDEPV' CALL M3WARN( PNAME, JDATE, JTIME, XMSG ) SUCCESS = .FALSE.; RETURN END IF #ifdef Verbose write( logdev,* ) ' ' write( logdev,* ) ' All Gas DEPVs Requested Gas DEPV' #endif V = 1 DO N = 1, N_GAS_DEPV IF ( GAS_DEPV_FOUND( N ) ) THEN UNIQUE_GDEPV( V ) = ALL_GAS_DEPV( N ) #ifdef Verbose write( logdev,1019 ) n, all_gas_depv( n ), v, unique_gdepv( v ) 1019 format( 2x, i5, 1x, a16, 2x, i5, 1x, a16 ) #endif V = V + 1 #ifdef Verbose else write( logdev,1019 ) n, all_gas_depv( n ), -1, ' ' #endif END IF END DO ! Read the CMAQ_Control_STAGE namelist and map deposition species to the ! gas species namelists, and map surrogate species Call Map_Stage ( N_UNIQUE_GDEPV, UNIQUE_GDEPV, GAS_DEPV_SUR ) C Identify and remove multiple occurrences of aerosol deposition velocities ALLOCATE( AE_DEPV_FOUND( N_AE_DEPV ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating AE_DEPV_FOUND' CALL M3WARN( PNAME, JDATE, JTIME, XMSG ) SUCCESS = .FALSE.; RETURN END IF AE_DEPV_FOUND = .FALSE. N_UNIQUE_ADEPV = 0 ! use this for mosaic dry deposition AERO_UNIQUE: & DO N = 1, N_AE_DEPV IF ( AE_DEPV_FOUND( N ) ) CYCLE AERO_UNIQUE DO V = 1, N_AE_DEPV IF ( AE_DEPV( N ) .EQ. AE_DEPV( V ) ) THEN IF ( AE_DEPV_FOUND( V ) ) CYCLE AERO_UNIQUE N_UNIQUE_ADEPV = N_UNIQUE_ADEPV + 1 AE_DEPV_FOUND( V ) = .TRUE. CYCLE AERO_UNIQUE END IF END DO END DO AERO_UNIQUE ALLOCATE( UNIQUE_ADEPV( N_UNIQUE_ADEPV ) ) ALLOCATE( AER_DEPV_SUR( N_UNIQUE_ADEPV ) ) #ifdef Verbose write( logdev,* ) ' ' write( logdev,* ) ' Requested Aerosol DEPV and pointer' #endif V = 1 DO N = 1, N_AE_DEPV IF ( AE_DEPV_FOUND( N ) ) THEN UNIQUE_ADEPV( V ) = AE_DEPV( N ) AER_DEPV_SUR( V ) = N #ifdef Verbose write( logdev,1021 ) n, v, unique_adepv( v ), aer_depv_sur( v ) 1021 format( 2i5, 1x, a16, i5 ) #endif V = V + 1 END IF END DO #ifdef Verbose write( logdev,* ) ' ' #endif ALLOCATE ( CGRIDL1 ( N_GAS_DEPV,NCOLS,NROWS ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating CGRIDL1 array' CALL M3WARN( PNAME, JDATE, JTIME, XMSG ) SUCCESS = .FALSE.; RETURN END IF CGRIDL1 = 0.0 END IF INIT_GAS_DV Tile_Data%Vd_name = 'Empty' Tile_Data%Vd_Out = .FALSE. Tile_Data%n_Vd = 0 N = 0 STRT = 1 FINI = N_GC_DEPV DO V = STRT, FINI N = N + 1 NDX = GAS_DEPV_SUR( N ) Tile_Data%Vd_Name ( NDX ) = GC_DEPV( N ) Tile_Data%Vd_Fac ( NDX ) = GC_DEPV_FAC( N ) Tile_Data%dep2vdiff ( V ) = NDX END DO N = 0 STRT = N_GC_DEPV + N_AE_DEPV + 1 FINI = N_GC_DEPV + N_AE_DEPV + N_NR_DEPV DO V = STRT, FINI N = N + 1 NDX = GAS_DEPV_SUR( N+N_GC_DEPV ) Tile_Data%Vd_Name ( NDX ) = NR_DEPV( N ) Tile_Data%Vd_Fac ( NDX ) = NR_DEPV_FAC( N ) Tile_Data%dep2vdiff ( V ) = NDX END DO N = 0 STRT = N_GC_DEPV + N_AE_DEPV + N_NR_DEPV + 1 FINI = N_GC_DEPV + N_AE_DEPV + N_NR_DEPV + N_TR_DEPV DO V = STRT, FINI N = N + 1 NDX = GAS_DEPV_SUR( N + N_GC_DEPV + N_NR_DEPV ) Tile_Data%Vd_Name ( NDX ) = TR_DEPV( N ) Tile_Data%Vd_Fac ( NDX ) = TR_DEPV_FAC( N ) Tile_Data%dep2vdiff ( V ) = NDX END DO IF ( N_AE_DEPV .GT. 0 ) THEN STRT = N_GC_DEPV + 1 FINI = N_GC_DEPV + N_AE_DEPV N = 0 DO V = STRT, FINI N = N + 1 NDX = N_GC_DEPV + N_NR_DEPV + N_TR_DEPV + N Tile_Data%Vd_Name ( NDX ) = AE_DEPV( N ) Tile_Data%Vd_Fac ( NDX ) = AE_DEPV_FAC( N ) Tile_Data%dep2vdiff ( V ) = NDX END DO DEP_UNIQUE: DO N = 1, N_SPC_DEPV IF( Tile_Data%Vd_Out( N ) ) CYCLE DEP_UNIQUE DO V = 1, N_SPC_DEPV IF ( Tile_Data%Vd_Name( N ) .EQ. Tile_Data%Vd_NAME( V ) .AND. & Tile_Data%Vd_Name( V ) .NE. 'Empty') THEN IF ( Tile_Data%Vd_Out( V ) ) CYCLE DEP_UNIQUE Tile_Data%n_Vd = Tile_Data%n_Vd + 1 Tile_Data%Vd_Out( V ) = .TRUE. CYCLE DEP_UNIQUE END IF End DO END DO DEP_UNIQUE END IF !***************************** Call INIT_STAGE( JDATE, JTIME ) IF ( ( DEPV_DIAG .Or. MOSAIC ) .And. IO_PE_INCLUSIVE ) THEN CALL OPEN_DEPV( JDATE, JTIME, TSTEP( 1 ) ) END IF END FUNCTION DEPV_INIT C----------------------------------------------------------------------- SUBROUTINE GET_DEPV( JDATE, JTIME, TSTEP, CGRID ) C----------------------------------------------------------------------- USE HGRD_DEFN USE CGRID_SPCS ! CGRID mechanism species USE UTILIO_DEFN USE Mosaic_Mod USE ASX_DATA_MOD, Only: GRID_DATA, MOSAIC_DATA Use STAGE_OUTPUT Use STAGE_MOD, Only: GAS_X, AERO_X IMPLICIT NONE C Arguments: INTEGER, INTENT( IN ) :: JDATE, JTIME ! simulation date&time, tstep INTEGER, INTENT( IN ) :: TSTEP( 3 ) ! time step vector (HHMMSS) ! TSTEP(1) = local output step ! TSTEP(2) = sciproc sync. step (chem) ! TSTEP(3) = twoway model time step w.r.t. wrf time ! step and wrf/cmaq call frequency REAL, POINTER :: CGRID( :,:,:,: ) ! concentrations INCLUDE SUBST_CONST ! constants INCLUDE SUBST_FILES_ID ! file name parameters C Parameters: REAL, PARAMETER :: RGAS1 = 1.0 / RGASUNIV ! univ. gas constant reciprocal REAL, PARAMETER :: H_VAP = 156.0E+03 ! enthalpy of vaporization (J/mol) REAL, PARAMETER :: TREF = 298.0 ! Reference temperature for Cstar REAL, PARAMETER :: TREF1 = 1.0 / TREF ! Reciprocal ref temperature C Local variables: INTEGER STRT, FINI LOGICAL :: WRITE_TIME_MOS ! write to file flag INTEGER, SAVE :: WSTEP = 0 ! local write counter [HHMMSS] INTEGER, SAVE :: WSTEP_MOS = 0 ! local write counter [HHMMSS] INTEGER :: CDATE, CTIME ! step beginning date and time INTEGER :: WDATE, WTIME ! write date and time CHARACTER( 16 ) :: PNAME = 'GET_DEPV ' CHARACTER( 120 ) :: XMSG = ' ' INTEGER C, R, N, V, NDX, J LOGICAL, SAVE :: FIRSTIME = .TRUE. #ifdef Verbose integer cw, rw #endif INTERFACE SUBROUTINE CGRID_DEPV( GAS_DEPV_FOUND, GAS_DEPV_SUR, CGRID, CGRIDL1 ) LOGICAL, INTENT( IN ) :: GAS_DEPV_FOUND( : ) INTEGER, INTENT( IN ) :: GAS_DEPV_SUR( : ) REAL, POINTER :: CGRID( :,:,:,: ) REAL, INTENT( OUT ) :: CGRIDL1( :,:,: ) END SUBROUTINE CGRID_DEPV END INTERFACE C----------------------------------------------------------------------- ! Made default for Hg bidi JOB 9/12/11 CALL CGRID_DEPV( GAS_DEPV_FOUND, GAS_DEPV_SUR, CGRID, CGRIDL1 ) DTSEC = FLOAT( TIME2SEC( TSTEP( 2 ) ) ) DO R = 1, NROWS DO C = 1, NCOLS CALL GAS_X ( JDATE, JTIME, DTSEC, C, R, CGRIDL1( :,C, R ) ) IF ( N_AE_DEPV .GT. 0 ) CALL AERO_X( CGRID, C, R ) END DO END DO IF ( DEPV_DIAG .Or. MOSAIC ) THEN WSTEP = WSTEP + TIME2SEC( TSTEP( 2 ) ) IF ( Write_time( WSTEP, TIME2SEC( TSTEP( 1 ) ) ) ) THEN WDATE = JDATE; WTIME = JTIME CALL NEXTIME( WDATE, WTIME, TSTEP( 2 ) ) IF ( .NOT. CURRSTEP( WDATE, WTIME, STDATE, STTIME, TSTEP( 1 ), & CDATE, CTIME ) ) THEN XMSG = 'Cannot get step date and time' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT3 ) END IF WDATE = CDATE; WTIME = CTIME WSTEP = 0 #ifdef parallel_io IF ( FIRSTIME ) THEN FIRSTIME = .FALSE. IF ( DEPV_DIAG ) THEN IF ( .NOT. IO_PE_INCLUSIVE ) THEN IF ( .NOT. OPEN3( CTM_DEPV_DIAG, FSREAD3, PNAME ) ) THEN XMSG = 'Could not open ' // TRIM( CTM_DEPV_DIAG ) CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF END IF END IF IF ( MOSAIC ) THEN IF ( .NOT. IO_PE_INCLUSIVE ) THEN IF ( .NOT. OPEN3( CTM_DEPV_MOS, FSREAD3, PNAME ) ) THEN XMSG = 'Could not open ' // TRIM( CTM_DEPV_MOS ) CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF END IF END IF END IF #endif Call Write_depv( WDATE, WTIME ) END IF ! Write time END IF ! DEPV_DIAG .Or. MOSAIC END SUBROUTINE GET_DEPV END MODULE DEPV_DEFN ================================================ FILE: CCTM/src/depv/stage/HGSIM.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/CCTM/src/depv/m3dry_mp/HGSIM.F,v 1.3 2012/01/24 21:15:18 sjr Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: MODULE HGSIM C----------------------------------------------------------------------- C Function: This module contains the code to predict bidirectional C exchanges between the atmosphere and surface media using a two C layer resistance-capacitance model. Fluxes are parameterized by C applying Fick's law across the atmospheric surface media C concentration gradient. C C Revision History: C 12 Aug 2008 J. Bash initial implementation C 2 Apr 2009 J. Bash for solar irradation on the order of 1e-3 w/m2 C the mercury surface water photo redox scheme C became unstable. A conditional statement was C added to correct this instability. C 4 June 2009 J. Bash Corrected the time stamp on WRASX_MEDIA to be C consistant with other CMAQ modules reported by C (T.Myers) C 22 Oct 2009 J. Bash Corrected a units conversion error in ASWX and ATX C reported by (P. Pongprueksa) and added a more C robust soil diffusion model adapted from the C Community Land Model 3.5. C 13 Sept 2011 J. Bash Updated the Hg bidi model to share data with the C NH3 bidirectional exchange model in a more general C framework using BIDI_MOD.F and LSM_MOD.F modules. C Hg bidirectional exchange is now a run time option. C 17 Jan 2012 J. Bash Removed the dependence on the LAPACK libraries C and found analytical solutions to all the Hg C exchange equations. C 14 Feb 2013 J. Bash Added support for the NLCD 40 (2006) land use data C 10 Feb 2019 D. Wong Implemented centralized I/O approach, removed all MY_N clauses C C References: C C Bash, J.O. 2010, Description and initial simulaiton of a dynamic bi-directional C surface exchange model for mercury in CMAQ, J. Geophys. C Res., 115, D06305 C Mason, R.P., J.R. Reinfelder, F.M.M. Morel, 1996, Uptake, toxicity, and C trophic transfer of mercury in a coastal diatom, Environ. Sci. Technol. C 30, 1835-1845 C Scholtz, M.T., B.J. Van Heyst, W.H. Schroeder, 2003, Modelling of mercury C emissions from background soils, Sci. Tot. Environ. 304, 185-207 C Trapp S. and Matthies, 1995, Generic one-compartment model for uptake of C organic chemicals by foliar vegetations. Environ. Sci. Technol. 29, C 2333-2338 C Trapp, S., 2004, Plant uptake and transport for netural and ionic chemicals, C Environ. Sci. Pollut. Res. 11, 33-39 C Whalin, L., E.-H. Kim, R. Mason, 2007, Factors influencing the oxidation, C reduciton, methylation and demethylation of mercury species in costal C water, Marine Chem. 107, 278-294 C----------------------------------------------------------------------- IMPLICIT NONE ! Shared variables ! Private variables used in this routine and REAL, ALLOCATABLE, SAVE, PRIVATE :: fevgrn(:,:) ! fraction of evergreen land use REAL, ALLOCATABLE, SAVE, PRIVATE :: f_wat(:,:) ! fraction of water land use REAL, PARAMETER, PRIVATE :: zsurf = 1.0 ! ocean slab depth (m) REAL, PARAMETER, PRIVATE :: ZG = 1.0e-2 REAL, PARAMETER, PRIVATE :: MWHG = 200.6 REAL, PARAMETER, PRIVATE :: MWHGII = 271.5 CHARACTER( 96 ), PRIVATE :: XMSG = ' ' CHARACTER( 80 ), SAVE, Private :: LAND_SCHEME REAL, SAVE, PRIVATE :: ZC, ZM ! g/m2 of model surface media REAL, SAVE, PRIVATE :: kam ! Leaf Water partitioning coef mol water g-1 leaf dry mass REAL, SAVE, PRIVATE :: kac ! mol air g-1 leaf dry mass REAL, SAVE, PRIVATE :: MV_air ! variable needed for analytical solutions of exchange equations REAL, PRIVATE :: KO(2,2) REAL, PRIVATE :: EIVAL(2) REAL, PRIVATE :: VR(2,2) REAL, PRIVATE :: ax ! coefficients used of the REAL, PRIVATE :: bx ! quadratic and cubic equations REAL, PRIVATE :: cx ! ATX and ASWX REAL, PRIVATE :: Qx ! coefficients used to solve for REAL, PRIVATE :: Rx ! the roots of the cubic equation REAL, PRIVATE :: ev1 ! Temporary variables used to REAL, PRIVATE :: ev2 ! calculate the eigen vectors REAL, PRIVATE :: ev3 ! in ATX and ASWX REAL, PRIVATE :: evmax ! REAL, PRIVATE :: DetKO ! Variables used to solve for the REAL, PRIVATE :: DetK1 ! non-homogeneous part of the solution REAL, PRIVATE :: DetK2 ! a system of equations REAL, PRIVATE :: DetEV ! Variables used to solve for the REAL, PRIVATE :: DetE1 ! integration constants in the REAL, PRIVATE :: DetE2 ! system of equations using Cramer's Rule INTEGER, PRIVATE :: NC INTEGER, PRIVATE :: i INTEGER, PRIVATE :: j REAL, PRIVATE :: B( 2 ) ! Surface media concentration vector REAL, PRIVATE :: NHS( 2 ) ! non-homogenious solution C input/output parameters INTEGER, PRIVATE :: N_AQ_CONC ! aqueous media concentrations INTEGER, PRIVATE :: N_GAS_CONC ! gaseous media concentrations INTEGER, PRIVATE :: N_SOL_CONC ! solid media concentrations CHARACTER( 16 ), ALLOCATABLE, PRIVATE :: MEDIA_NAMES( : ) CONTAINS SUBROUTINE INIT_HGSIM( JDATE, JTIME ) USE HGRD_DEFN ! horizontal grid specifications USE UTILIO_DEFN USE ASX_DATA_MOD USE LSM_MOD USE Bidi_Mod Use MOSAIC_MOD, Only: Tile_Data IMPLICIT NONE INCLUDE SUBST_FILES_ID ! file name parameters INTEGER, INTENT( IN ) :: JDATE INTEGER, INTENT( IN ) :: JTIME CHARACTER( 16 ) :: PNAME = 'INIT_HGSIM' CHARACTER( 96 ) :: MSG = ' ' INTEGER V, L, C, R C-------------------------------------------------------------------------- IF ( .NOT. ALLOCATED ( fevgrn ) ) THEN ALLOCATE ( fevgrn( NCOLS,NROWS ) ) fevgrn( :,: ) = 0.0 END IF IF ( .NOT. ALLOCATED ( f_wat ) ) THEN ALLOCATE ( f_wat( NCOLS,NROWS ) ) f_wat( :,: ) = 0.0 END IF DO C = 1, NCOLS DO R = 1, NROWS DO L = 1, Tile_data%N_LUFRAC IF(Tile_data%CAT_LU(L) .EQ. 'EVEFORN' .Or. & Tile_data%CAT_LU(L) .EQ. 'EVEFORB' ) THEN fevgrn(c,r) = fevgrn(c,r) + Tile_data%lufrac(c,r,l) End IF IF(Tile_data%CAT_LU(L) .EQ. 'MIXFOR') THEN fevgrn(c,r) = fevgrn(c,r) + Tile_data%lufrac(c,r,l) End IF IF(Tile_data%CAT_LU(L) .EQ. 'WATER') THEN f_wat(c,r) = f_wat(c,r) + Tile_data%lufrac(c,r,l) END IF END DO END DO END DO RETURN !------------------------------------------------------------------------------ ! Error handling section !------------------------------------------------------------------------------ 1001 CONTINUE CALL M3EXIT( pname, jdate, jtime, xmsg, xstat1 ) C------------------------------------------------------------------------------- C Format statements. C------------------------------------------------------------------------------- 9001 FORMAT( 'Failure reading ', a, 1x, 'from ', a ) RETURN END SUBROUTINE INIT_HGSIM !------------------------------------------------------------------------------ ! Gets compensation points for STAGE !------------------------------------------------------------------------------ Subroutine Get_Hg_Comp( Hg_st, Hg_cut, Hg_grnd, Hg_wat, Hg_atm, H_wat, H_soil, r, c ) USE BIDI_MOD USE ASX_DATA_MOD IMPLICIT NONE REAL, INTENT( IN ) :: H_wat, H_soil ! Effective H for Hg(0) REAL, INTENT( IN ) :: Hg_atm ! atm conc and land use fractions INTEGER, INTENT( IN ) :: c,r ! column and row REAL, INTENT( OUT ) :: Hg_st, Hg_cut, Hg_grnd, Hg_wat ! compensation points !********* reduction and partioning terms ******************************* REAL :: Kow ! Hg(0) Octanol water partioning coefficient REAL :: Kpwc ! Hg(0) air-vegetation surface partitioning coefficient REAL :: Kpwm ! Hg(0) air-mesophyll partitioning coefficient !********* vegetation poperties ***************************************** REAL :: lm ! leaf mesophyll lipid fraction REAL :: lc ! cuticular wax mesophyll lipid fraction REAL :: Wp ! water content fraction of the leaf REAL :: bc ! Emprical coefficeint to describe differences in plant lipids !************************************************************************ Real :: del If ( Met_Data%WR( c,r ) .LE. 0.0 ) Then del = 0.0 Else del = Met_Data%WR( c,r ) / ( 0.2e-3 * Met_Data%Veg( c,r ) * Met_Data%LAI( c,r ) ) ! refer to SiB model del = min(del,1.0) End If !***************** canopy parameters ********************************* Kow = 4.15 ! For Hg, Mason 1996 lm = 2.0e-2 ! From Trapp and Matthis 1995 lc = 2.0e-2 ! Assumed cuticular wax lipid content Wp = 0.80 ! leaf water fraction, Trapp and Mathis 1996 bc = 0.95 ! For barley, Trapp and Mathis 1996 Kpwc = (Wp+lc*1.0/0.822*Kow**bc) ! unitless Kpwm = (Wp+lm*1.0/0.822*Kow**bc) ! unitless ! Partitioning coeficients following the methodology of the PEM model kac = Kpwc*(1.0-del) + ! evasion from dry cuticles & Kpwc*del*H_soil ! unitless cuticle surface kam = Kpwm*H_soil ! unitless apoplast solution C Flux unit conversions ZM = 71.0 * Met_Data%LAI(c,r) / ( 10.0 * Met_Data%Z0(c,r) )! measurements at UCONN's experimental ZC = 71.0 * Met_Data%LAI(c,r) / ( 10.0 * Met_Data%Z0(c,r) )! g/m**3 based off of leaf litter fall MV_air = MWAIR / MET_DATA%DENS1( C,R ) / 1.0e3 ! m3/mol !**************** soil parameters ************************************ IF( INIT_COMP ) THEN ! Equilibrium Hg(0) mesophyll concentration in a 5 month box model simulation If( f_wat( c,r ) .eq. 1.0 ) Then CMEDIA( c,r,5 ) = 0.0 ! umol/g bulk leaf concentration CMEDIA( c,r,6 ) = 0.0 ! umol/g bulk leaf concentration CMEDIA( c,r,3 ) = 0.0 ! umol/g bulk soil concentration CMEDIA( c,r,2 ) = 3.57e-6 ! from Whalin et al 2007 CMEDIA( c,r,1 ) = Hg_atm * 3.0 ! assume 3x eq con. Else if( f_wat( c,r ) .gt. 0.0 ) Then CMEDIA( c,r,5 ) = fevgrn(c,r)*6.0e-6 + (1.0-fevgrn(c,r))*CMEDIA(c,r,5) ! umol/g bulk leaf concentration CMEDIA( c,r,6 ) = fevgrn(c,r)*6.0e-7 + (1.0-fevgrn(c,r))*CMEDIA(c,r,6) ! umol/g bulk leaf concentration CMEDIA( c,r,3 ) = Hg_atm ! umol/g bulk soil concentration CMEDIA( c,r,2 ) = 3.57e-6 ! from Whalin et al 2007 CMEDIA( c,r,1 ) = Hg_atm * 3.0 ! assume 3x eq con. Else CMEDIA( c,r,5 ) = fevgrn(c,r)*6.0e-6 + (1.0-fevgrn(c,r))*CMEDIA(c,r,5) ! umol g-1 bulk leaf concentration CMEDIA( c,r,6 ) = fevgrn(c,r)*6.0e-7 + (1.0-fevgrn(c,r))*CMEDIA(c,r,6) ! umol g-1 bulk leaf concentration CMEDIA( c,r,3 ) = Hg_atm ! ppm bulk soil concentration CMEDIA( c,r,2 ) = 0.0 CMEDIA( c,r,1 ) = 0.0 End If End If Hg_st = CMEDIA( c,r,5 ) / kam * ZM * MV_air ! umol g-1 bulk leaf concentration * g m-3 leaf * m3 mol-1 Hg_cut = CMEDIA( c,r,6 ) / kac * ZC * MV_air ! umol g-1 bulk leaf concentration * g m-3 leaf * m3 mol-1 Hg_grnd = CMEDIA( c,r,3 ) / H_soil ! ppm bulk soil concentration Hg_wat = CMEDIA( c,r,1 ) / H_wat ! ppm Return End Subroutine Get_Hg_Comp !------------------------------------------------------------------------------ ! Updates Hg surface concentrations in STAGE !------------------------------------------------------------------------------ SUBROUTINE Hg_Surf_Update (flx_stom, flx_cut, flx_grnd, flx_wat, flx_hgII, & H_wat, H_soil, dt, c, r, Jdate, Jtime ) USE BIDI_MOD USE ASX_DATA_MOD USE UTILIO_DEFN Use MOSAIC_MOD, Only: Tile_Data IMPLICIT NONE REAL, INTENT( IN ) :: flx_stom, flx_cut, flx_grnd, flx_wat, flx_hgII ! fluxes ppm*m/s REAL, INTENT( IN ) :: H_wat, H_soil ! Soil and surface water H REAL, INTENT( IN ) :: dt ! Intigration time step INTEGER, INTENT( IN ) :: c,r ! column and row INTEGER, INTENT( IN ) :: Jdate, Jtime ! Time info REAL :: flux_st, flux_cut, flux_grnd, flux_wat, flux_hgII ! fluxes ppm*m/s REAL :: Hg_st, Hg_cut, Hg_grnd, Hg_wat ! compensation points REAL, SAVE :: HgII_grnd, HgII_wat ! Soil and water Hg(II) concentrations !********* reduction and partioning terms ******************************* REAL :: kr ! soil divalent mercury reduction term REAL :: Prod ! Production umol/s REAL :: K_loss ! Loss Rate 1/s REAL :: K_Prod, K_Prod_HgII ! Relative Production Rate 1/s !********* Unit conversions ********************* ! REAL, Parameter :: M3MOLVOL = MOLVOL/1.0e3 ! molar volume of air at stp m3/mol C*************************** Ocean box parameters *********************** REAL, PARAMETER :: satten = 7.58-1 C***** reduction and partioning terms from Whalin et al 2007 ************ REAL, PARAMETER :: rref = 240.0 ! referance incoming radiation ! for redox measurements (w/m2) REAL, PARAMETER :: kphot = 6.5-4 ! drm photoreduction rate 1/s REAL, PARAMETER :: kox = 7.2-4 ! dgm photo-oxidation rate 1/s CHARACTER( 16 ), PARAMETER :: pname = 'Hg_Surf_Update' Hg_st = CMEDIA( c,r,5 ) ! umol/g bulk leaf concentration Hg_cut = CMEDIA( c,r,6 ) ! umol/g bulk leaf concentration Hg_grnd = CMEDIA( c,r,3 ) ! umol/g bulk soil concentration Hg_wat = CMEDIA( c,r,1 ) ! ppm HgII_wat = CMEDIA( c,r,2 ) ! ppm HgII_grnd = 0.0 DO i = 1, Tile_Data%n_lufrac HgII_grnd = HgII_grnd+Tile_Data%Hg_grnd(i)*Tile_Data%lufrac(c,r,i) END DO C Set floor to smallest terrestrial value HgII_grnd = MAX( HgII_grnd, 1.8e1 ) ! ppm m / s to umol/g/s If(ZM .gt. 0.0 )Then flux_st = flx_stom / MV_air / ZM flux_cut = flx_cut / MV_air / ZM Else flux_st = 0.0 flux_cut = 0.0 End If ! ppm m/s to ppm/s flux_grnd = flx_grnd / ZG flux_wat = flx_wat / zsurf flux_hgII = flx_HgII / zsurf If( f_wat( c,r ) .gt. 0.0 ) Then ! Water C in the absence of photo-redox reactions divalent Hg accumulates IF ( Met_Data%RGRND(c,r) .LT. 1e-3 ) THEN HgII_wat = HgII_wat - flux_hgII / ( f_wat( c,r ) ) * dt C Find a simple one box solution for elemental Hg If( flux_wat .le. 0.0 ) Then ! Deposition Prod = -flux_wat / ( f_wat( c,r ) ) Hg_wat = Hg_wat + Prod * dt Else K_loss = min(flux_wat / ( CMEDIA( c,r, 1 ) * f_wat( c,r ) ), 0.99) K_loss = -log(1.0 - K_loss ) Hg_wat = Hg_wat * exp( -K_loss * dt ) End If ELSE If( CMEDIA( c,r,2 ) .Gt. 0.0 ) Then ! photo-redox reactions K_Prod_HgII = -flux_hgII / ( f_wat( c,r ) * CMEDIA( c,r,2 ) ) K_Prod_HgII = log(1.0+K_Prod_HgII) If( flux_wat .le. 0.0 ) Then ! Deposition Prod = -flux_wat/ ( f_wat( c,r ) ) K_Prod = log(1.0+Prod/CMEDIA( c,r, 1 )) K_loss = 0.0 Else Prod = 0.0 K_Prod = 0.0 K_loss = min( flux_wat / ( CMEDIA( c,r, 1 ) * f_wat( c,r ) ), 0.99 ) K_loss = -log(1.0-K_loss) End If KO = 0.0 C 240 w/m**2 is the 'typical light spectrum' from Whalin et al 2007 Marine Chem. C attenuation at 1 m = 1/K (1-exp(-K Z)) = 0.758 using a K of 0.58 KO( 1,1 ) = -K_loss - kox * satten * Met_Data%RGRND(c,r)/( rref ) + K_prod KO( 1,2 ) = kphot * satten * Met_Data%RGRND(c,r)/( rref ) KO( 2,1 ) = kox * satten * Met_Data%RGRND(c,r)/( rref ) KO( 2,2 ) = -kphot * satten * Met_Data%RGRND(c,r)/( rref ) + K_Prod_HgII NHS = 0.0 NHS(1) = 0.0!-Prod NHS(2) = 0.0!flux_hgII/( f_wat( c,r ) ) B = 0.0 B( 1 ) = Hg_wat B( 2 ) = HgII_wat C***************************************************************************** ! Get eigen values and vectors where the cubic equation is: ! ax*lambda**2+bx*lambda+cx = 0 ! and is solved following Numerical recipies for Fortran equations 5.6.2-5.6.5 C***************************************************************************** ax = 1.0 bx = -(KO(1,1)+KO(2,2)) cx = KO(1,1)*KO(2,2)-KO(1,2)*KO(2,1) Qx = -0.5*(bx+SIGN(1.0,bx)*SQRT(bx**2-4.0*ax*cx)) EIVAL(1) = Qx/ax EIVAL(2) = cx/Qx ! Solve for the eigenvectors DO i = 1, NC ev1 = 1.0 ev2 = -(KO(2,1)*ev1)/(KO(2,2)-EIVAL(i)) evmax = max(abs(ev1),abs(ev2)) ! scale the eigenvector VR(1,i) = ev1/evmax VR(2,i) = ev2/evmax END DO ! update the surface array Hg_wat = 0.0 HgII_wat = 0.0 DO i = 1, NC Hg_wat = Hg_wat + B(i) * VR(1,i) * EXP( EIVAL(i) * dt ) HgII_wat = HgII_wat + B(i) * VR(2,i) * EXP( EIVAL(i) * dt ) END DO Hg_wat = Hg_wat + NHS(1) HgII_wat = HgII_wat + NHS(2) END IF IF ( HgII_wat .LT. 0.0 .OR. Hg_wat .LT. 0.0 ) THEN XMSG = '*** Negative concentration ***' WRITE(LOGDEV,*) 'Hg_wat',Hg_wat,'HgII_wat',HgII_wat Write(logdev,*) 'K_loss', K_loss Write(logdev,*) 'EIVAL', EIVAL(1), EIVAL(2) Write(logdev,*) 'EIVEC', VR(1,1), VR(2,2) Write(logdev,*) 'NHS', NHS(1), NHS(2) CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT2 ) END IF CMEDIA( c,r,1 ) = Hg_wat ! ppm CMEDIA( c,r,2 ) = HgII_wat ! ppm End If If( f_wat( c,r ) .lt. 1.0 ) Then ! land ! Soil divalent mercury reduction rate following Scholz et al 2003 IF(Met_Data%SOIT1(c,r) .GT. 273.15) THEN kr = 8.0e-11 ELSE ! if the soil is frozen limit diffusion and reduction kr = 0.0 END IF If( Met_Data%LAI(c,r) .Gt. 0.0 ) Then ! Stomatal flux If( flux_st .le. 0.0 ) Then ! deposition Prod = -flux_st / ( (1.0 - f_wat( c,r ) ) ) Hg_st = Hg_st + Prod * dt Else K_loss = min( flux_st / ( Hg_st * (1.0 - f_wat( c,r ) ) ), 0.99 ) K_loss = -log(1.0 - K_loss) Hg_st = Hg_st * exp( - K_loss * dt ) End If CMEDIA( c,r,5 ) = Hg_st ! Cuticular flux If( flux_cut .le. 0.0 ) Then ! deposition Prod = -flux_cut / ( (1.0 - f_wat( c,r ) ) ) Hg_cut = Hg_cut + Prod * dt Else K_loss = min(flux_cut / ( Hg_cut * (1.0 - f_wat( c,r ) ) ), 0.99 ) K_loss = -log(1.0 - K_loss ) Hg_cut = Hg_cut * exp( - K_loss * dt ) End If CMEDIA( c,r,6 ) = Hg_cut End If ! soil flux If( flux_grnd .le. 0.0 ) Then ! deposition Prod = kr * Grid_Data%RHOB( c,r ) * HgII_grnd * ZG /( 1.0e3 * 200.59 ) - & flux_grnd / max((1.0 - f_wat( c,r )),0.001 ) Hg_grnd = Hg_grnd + Prod * dt Else Prod = kr * Grid_Data%RHOB( c,r ) * HgII_grnd * ZG /( 1.0e3 * 200.59 ) K_loss = min( flux_grnd / ( Hg_grnd * max((1.0 - f_wat( c,r )),0.001 ) ), 0.99 ) K_loss = -log(1.0 - K_loss) If( K_loss .eq. 0.0 ) Then ! due to numerical rounding Hg_grnd = Hg_grnd + Prod * dt Else Hg_grnd = Prod / K_loss + ( Hg_grnd - Prod / K_loss ) * exp( -K_loss * dt ) End If End If CMEDIA( c,r,3 ) = Hg_grnd ! Model layer depths End If Return End Subroutine Hg_Surf_Update C------------------------------------------------------------------------------ SUBROUTINE GET_WDEP( CSE, WDEP, C, R ) Use ASX_DATA_MOD, Only: Grid_Data USE BIDI_MOD, Only: CMedia IMPLICIT NONE INCLUDE SUBST_CONST ! constants CHARACTER( 8 ), INTENT( IN ) :: CSE ! wet dep sepcies REAL, INTENT( IN ) :: WDEP ! wet deposition in kg/ha INTEGER, INTENT( IN ) :: C INTEGER, INTENT( IN ) :: R REAL, PARAMETER :: HAOM2 = 1.0e-4 ! ha/m^2 conversion REAL, PARAMETER :: MWHG = 200.59 ! molecular weight of Hg REAL, PARAMETER :: UGOKG = 1.0e9 ! ug/kg conversion REAL, PARAMETER :: GH2ONM3 = 1.0e6 ! g H2O in M^3 H2O REAL WDEP_LOAD ! loading due to wet deposition IF ( f_wat( c,r ) .Gt. 0 ) THEN ! water ! convert to umol/m2 pulse input WDEP_LOAD = WDEP*HAOM2*UGOKG/MWHG*f_wat( c,r ) ! convert to added concentration in ppm assuming it remains at the surface WDEP_LOAD = WDEP_LOAD/ZSURF/GH2ONM3*MWWAT IF( CSE .EQ. 'HG ' ) THEN CMEDIA( C,R,1 ) = CMEDIA( C,R,1 ) + WDEP_LOAD END IF IF( CSE .EQ. 'HGIIGAS ' ) THEN CMEDIA( C,R,2 ) = CMEDIA( C,R,2 ) + WDEP_LOAD END IF END IF ! water RETURN END SUBROUTINE GET_WDEP END MODULE HGSIM ================================================ FILE: CCTM/src/depv/stage/LSM_MOD.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/work/rep/arc/CCTM/src/depv/m3dry/LSM_MOD.F,v 1.5 2012/01/19 14:23:58 yoj Exp $ C:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: Module LSM_Mod C------------------------------------------------------------------------------ C Revision History: C June 16 11 Created by J. Bash C April 19 12 J. Bash Updated the LU_FAC data arrays to be a function C of the annual total N deposition following C Massad et al 2010 doi:10.5194/acp-10-10359-2010 C The annual 2002 deposition fields from a previous bi- C directional model run using values ~ 100 was used. C The model is not very sensitive to this parameter C and using different annual deposition fileds would C result in small changes. C Sept 12 12 D. Schwede Added NLCD40 land use classification. C Also some changes made to values in tables for NLCD50. C Maintain compatability with previous versions of MCIP and detect NLCD-MODIS C as the same as NLCD50 C Nov 5 12 D. Schwede Modified albedo for NLCD pasture and grass categories so that they are more C consistent with the MODIS and USGS values C Apr 4 13 J. Bash Added general water, forest, shrub, grass, snow/ice, C agricultural land use classification in a land use type C to simplify how bidirectional NH3 code handles different C land use data sets. C Aug 22 14 J. Bash Moved all the data to defined data types for easier updates and data access. C Feb. 2019 D. Wong Implemented centralized I/O approach C 25 Jul 19 D.Wong Based on logical variable WRF_V4P defined in RUNTIME_VARS to handle C various number of soil type from different WRF version C References: C Noilhan, J., Planton, S., A Simple Parameterization of Land Surface Processes for Meteorological Models C Monthly Weather Review, 117(3), 536-549, https://doi.org/10.1175/1520-0493(1989)117%3C0536:ASPOLS%3E2.0.CO;2 C 1989 C Jacquemin, B., Noilhan, J., Sensitivity study and validation of a land surface parameterization using the HAPEX-MOBILHY C data set, Boundary-Layer Meteorology, 52, 93-234, https://doi.org/10.1007/BF00123180, 1990 C Campbell, G.S., Norman, J.M., An Introduction to Environmental Biophysics, Springer, New York, NY, 286 pages, C ISBN: 978-1-4612-1626-1 C------------------------------------------------------------------------------ Implicit None INTEGER, PARAMETER :: N_SOIL_TYPE_WRFV4P = 16 INTEGER, PARAMETER :: N_SOIL_TYPE_WRFV3 = 11 INTEGER :: N_SOIL_TYPE REAL, ALLOCATABLE :: wwlt_px (:) ! Soil volumetric wilting point (m3/m3) REAL, ALLOCATABLE :: wsat_px (:) ! Soil volumetric saturation (m3/m3) REAL, ALLOCATABLE :: bslp_px (:) ! Slope of the soil water retention curve on a loglog scale REAL, ALLOCATABLE :: wres_px (:) ! Soil volumetric residual moisture (m3/m3) REAL, ALLOCATABLE :: wfc_px (:) ! Soil volumetric field capacity (m3/m3) REAL, ALLOCATABLE :: rhob_px (:) ! Soil bulk density (kg/L) REAL, ALLOCATABLE :: psi_sat (:) ! Soil matric potential at saturation (kPa) REAL, SAVE :: wwlt_clm (19) ! Soil volumetric wilting point (m3/m3) REAL, SAVE :: wsat_clm (19) ! Soil volumetric saturation (m3/m3) REAL, SAVE :: bslp_clm (19) ! Slope of the soil water retention curve on a loglog scale REAL, SAVE :: wres_clm (19) ! Soil volumetric residual moisture (m3/m3) REAL, SAVE :: wfc_clm (19) ! Soil volumetric field capacity (m3/m3) REAL, SAVE :: rhob_clm (19) ! Soil bulk density (kg/L) REAL, SAVE :: wwlt_noah (19) ! Soil volumetric wilting point (m3/m3) REAL, SAVE :: wsat_noah (19) ! Soil volumetric saturation (m3/m3) REAL, SAVE :: bslp_noah (19) ! Slope of the soil water retention curve on a loglog scale REAL, SAVE :: wres_noah (19) ! Soil volumetric residual moisture (m3/m3) REAL, SAVE :: wfc_noah (19) ! Soil volumetric field capacity (m3/m3) REAL, SAVE :: rhob_noah (19) ! Soil bulk density (kg/L) INTEGER, SAVE :: n_lufrac CHARACTER( 80 ), SAVE :: LAND_SCHEME INTEGER, SAVE :: n_xref_lu INTEGER, SAVE :: n_stage_lu INTEGER, PRIVATE, PARAMETER :: N_Map_Max = 200 INTEGER, PRIVATE :: ALLOCSTAT TYPE DEP_MOD_LU_DATA Character( 16 ) :: LU_Name CHARACTER( 16 ) :: lu_cat Real :: RSMIN ! Minimum stomatal resistance (s/m) Real :: Z00 ! Momentum roughness length (cm) Real :: VEG0 ! Maximum vegetation fraction (%) Real :: VEGMN0 ! Minimum vegetation fraction (%) Real :: LAI0 ! Maximum single sided LAI (m2/m2) Real :: LAIMN0 ! Minimum single sided LAI (m2/m2) Real :: Gamma_NH3_grnd ! Under canopy NH3 emission potential ([mol NH4+]/[mol H+]) Real :: Gamma_NH3_st ! Vegetation NH3 emission potential ([mol NH4+]/[mol H+]) Real :: Hg_grnd ! Soil Hg concentration (umol/g) Real :: l_width ! leaf width (m) Real :: Alpha ! Zhang et al. 2003/Emerson et al. 2020 empirical land use parameter (unitless) Real :: BAI ! Building area index (m2/m2) Real :: Ahair ! Leaf hair width (m) Real :: Fhair ! Leaf hair fraction (ratio) Real :: Aleaf ! Leaf aerodynamic width (m) Integer :: LU_Index END TYPE TYPE( DEP_MOD_LU_DATA ) STAGE_LU_DATA( N_Map_Max ) TYPE MET_MOD_LU_DATA Character(20) :: Met_LU_Name Integer :: Met_Index Character(20) :: Dep_LU_Name Integer :: Dep_Index Real :: Factor Character(30) :: Description END TYPE TYPE( MET_MOD_LU_DATA ) MET_TO_STAGE_LU( N_Map_Max ) C------------------------------------------------------------------------------- C Soil Characteristics by Type from WRF 3.8.1 PX C C # SOIL TYPE WSAT WFC WWLT BSLP CGSAT JP AS C2R C1SAT WRES C _ _________ ____ ___ ____ ____ _____ ___ ___ ___ _____ ____ C 1 SAND .395 .135 .068 4.05 3.222 4 .387 3.9 .082 .020 C 2 LOAMY SAND .410 .150 .075 4.38 3.057 4 .404 3.7 .098 .035 C 3 SANDY LOAM .435 .195 .114 4.90 3.560 4 .219 1.8 .132 .041 C 4 SILT LOAM .485 .255 .179 5.30 4.418 6 .105 0.8 .153 .015 C 5 LOAM .451 .240 .155 5.39 4.111 6 .148 0.8 .191 .027 C 6 SND CLY LM .420 .255 .175 7.12 3.670 6 .135 0.8 .213 .068 C 7 SLT CLY LM .477 .322 .218 7.75 3.593 8 .127 0.4 .385 .040 C 8 CLAY LOAM .476 .325 .250 8.52 3.995 10 .084 0.6 .227 .075 C 9 SANDY CLAY .426 .310 .219 10.40 3.058 8 .139 0.3 .421 .109 C 10 SILTY CLAY .482 .370 .283 10.40 3.729 10 .075 0.3 .375 .056 C 11 CLAY .482 .367 .286 11.40 3.600 12 .083 0.3 .342 .090 C C------------------------------------------------------------------------------- !-- WSAT is saturated soil moisture (M^3/M^3) (JN90) REAL, PARAMETER :: WSAT_PX_WRFV3(N_SOIL_TYPE_WRFV3) = & (/ 0.395, 0.410, 0.435, 0.485, 0.451, 0.420, 0.477, & 0.476, 0.426, 0.482, 0.482 /) !-- WWLT is wilting point (M^3/M^3) (JN90) REAL, PARAMETER :: WWLT_PX_WRFV3(N_SOIL_TYPE_WRFV3) = & (/ 0.068, 0.075, 0.114, 0.179, 0.155, 0.175, 0.218, & 0.250, 0.219, 0.283, 0.286 /) !-- B is slope of the retention curve (NP89) REAL, PARAMETER :: BSLP_PX_WRFV3(N_SOIL_TYPE_WRFV3) = & (/ 4.05, 4.38, 4.90, 5.30, 5.39, 7.12, 7.75, & 8.52, 10.40, 10.40, 11.40 /) ! -- RHOB is the soil bulk density REAL, PARAMETER :: RHOB_PX_WRFV3(N_SOIL_TYPE_WRFV3) = & (/ 1.59e6, 1.55e6, 1.53e6, 1.53e6, 1.55e6, 1.62e6, 1.67e6, & 1.66e6, 1.83e6, 1.78e6, 1.83e6 /) C------------------------------------------------------------------------------- C Soil Characteristics by Type for WRF4+ PX C C # SOIL TYPE WSAT WFC WWLT BSLP CGSAT JP AS C2R C1SAT WRES C _ _________ ____ ___ ____ ____ _____ ___ ___ ___ _____ ____ C 1 SAND .395 .135 .068 4.05 3.222 4 .387 3.9 .082 .020 C 2 LOAMY SAND .410 .150 .075 4.38 3.057 4 .404 3.7 .098 .035 C 3 SANDY LOAM .435 .195 .114 4.90 3.560 4 .219 1.8 .132 .041 C 4 SILT LOAM .485 .255 .179 5.30 4.418 6 .105 0.8 .153 .015 C 5 SILT .480 .260 .150 5.30 4.418 6 .105 0.8 .153 .020 C 6 LOAM .451 .240 .155 5.39 4.111 6 .148 0.8 .191 .027 C 7 SND CLY LM .420 .255 .175 7.12 3.670 6 .135 0.8 .213 .068 C 8 SLT CLY LM .477 .322 .218 7.75 3.593 8 .127 0.4 .385 .040 C 9 CLAY LOAM .476 .325 .250 8.52 3.995 10 .084 0.6 .227 .075 C 10 SANDY CLAY .426 .310 .219 10.40 3.058 8 .139 0.3 .421 .109 C 11 SILTY CLAY .482 .370 .283 10.40 3.729 10 .075 0.3 .375 .056 C 12 CLAY .482 .367 .286 11.40 3.600 12 .083 0.3 .342 .090 C 13 ORGANICMAT .451 .240 .155 5.39 4.111 6 .148 0.8 .191 .027 C 14 WATER .482 .367 .286 11.40 3.600 12 .083 0.3 .342 .090 C 15 BEDROCK .482 .367 .286 11.40 3.600 12 .083 0.3 .342 .090 C 16 OTHER .420 .255 .175 7.12 3.670 6 .135 0.8 .213 .068 C------------------------------------------------------------------------------- !-- WSAT is saturated soil moisture (M^3/M^3) (JN90) REAL, PARAMETER :: WSAT_PX_WRFV4P(N_SOIL_TYPE_WRFV4P) = & (/ 0.395, 0.410, 0.435, 0.485, 0.480, 0.451, 0.420, 0.477, & 0.476, 0.426, 0.482, 0.482, 0.451, 0.482, 0.482, 0.420 /) !-- WWLT is wilting point (M^3/M^3) (JN90) REAL, PARAMETER :: WWLT_PX_WRFV4P(N_SOIL_TYPE_WRFV4P) = & (/ 0.068, 0.075, 0.114, 0.179, 0.150, 0.155, 0.175, 0.218, & 0.250, 0.219, 0.283, 0.286, 0.155, 0.286, 0.286, 0.175 /) !-- B is slop of the retention curve (NP89) REAL, PARAMETER :: BSLP_PX_WRFV4P(N_SOIL_TYPE_WRFV4P) = & (/ 4.05, 4.38, 4.90, 5.30, 5.30, 5.39, 7.12, 7.75, & 8.52, 10.40, 10.40, 11.40, 5.39, 11.40, 11.40, 7.12 /) ! -- RHOB is the soil bulk density REAL, PARAMETER :: RHOB_PX_WRFV4P(N_SOIL_TYPE_WRFV4P) = & (/ 1.59e6, 1.55e6, 1.53e6, 1.53e6, 1.53e6, 1.55e6, 1.62e6, 1.67e6, & 1.66e6, 1.83e6, 1.78e6, 1.83e6, 1.62e6, 1.83e6, 1.83e6, 1.67e6 /) C------------------------------------------------------------------------------- C Soil hydrolic properties as calculated from soil sand and clay fractions C in WRF-CLM in WRF 3.7.1-3.8.1. C WRES is calculated as WSAT*(psi_air_dry/psi_sat)^(-1.0/BSLP) following CLM soil hydraulic C relationships. Note that this is a common paramterization, e.g. Campbell and Norman (1998) C where psi_air_dry = -300,000 kPa C C # SOIL TYPE WSAT WFC WWLT BSLP CGSAT JP AS C2R C1SAT WRES C _ _________ ____ ___ ____ ____ _____ ___ ___ ___ _____ ____ C 1 SAND .373 .135 .029 3.30 3.222 4 .387 3.9 .082 .016 C 2 LOAMY SAND .388 .156 .042 3.65 3.057 4 .404 3.7 .098 .025 C 3 SANDY LOAM .406 .192 .071 4.47 3.560 4 .219 1.8 .132 .049 C 4 SILT LOAM .464 .269 .138 5.40 4.418 6 .105 0.8 .153 .108 C 5 SILT .483 .250 .096 3.87 .075 C 6 LOAM .435 .248 .127 5.80 4.111 6 .148 0.8 .191 .096 C 7 SND CLY LM .413 .249 .143 7.16 3.670 6 .135 0.8 .213 .109 C 8 SLT CLY LM .476 .331 .225 8.25 3.593 8 .127 0.4 .385 .185 C 9 CLAY LOAM .449 .299 .195 8.19 3.995 10 .084 0.6 .227 .157 C 10 SANDY CLAY .425 .288 .195 9.38 3.058 8 .139 0.3 .421 .156 C 11 SILTY CLAY .481 .360 .270 10.46 3.729 10 .075 0.3 .375 .227 C 12 CLAY .461 .351 .270 12.14 3.600 12 .083 0.3 .342 .227 C 13 ORGANIC .439 .241 .115 5.29 .086 C 14 WATER .489 .229 .066 3.10 1.0 0 .0 0.0 .0 .052 C 15 BEDROCK .363 .114 .017 2.80 .008 C 16 OTHER .421 .200 .073 4.27 3.222 4 .387 3.9 .082 .051 C 17 PLAYA .468 .353 .296 11.53 .227 C 18 LAVA .363 .114 .017 2.80 .001 C 19 WHITE SAND .373 .135 .029 3.30 .016 C------------------------------------------------------------------------------- !-- WSAT is saturated soil moisture (M^3/M^3) DATA WSAT_CLM / 0.373, 0.388, 0.406, 0.464, 0.483, 0.435, 0.413, 0.476, & 0.449, 0.425, 0.481, 0.461, 0.439, 0.489, 0.363, 0.421, & 0.468, 0.363, 0.373 / !-- WFC is soil field capacity DATA WFC_CLM / 0.135, 0.156, 0.192, 0.269, 0.250, 0.248, 0.249, 0.331, & 0.299, 0.288, 0.360, 0.351, 0.241, 0.229, 0.114, 0.200, & 0.353, 0.114, 0.135 / !-- WWLT is wilting point (M^3/M^3) DATA WWLT_CLM / 0.029, 0.042, 0.071, 0.138, 0.096, 0.127, 0.143, 0.225, & 0.195, 0.195, 0.270, 0.270, 0.115, 0.066, 0.017, 0.073, & 0.269, 0.017, 0.029 / !-- B is slope of the retention curve DATA BSLP_CLM / 3.30, 3.65, 4.47, 5.40, 3.87, 5.80, 7.16, 8.25, & 8.19, 9.38, 10.46, 12.14, 5.29, 3.10, 2.80, 4.27, & 11.53, 2.80, 3.30 / !-- WRES is residual soil moisture DATA WRES_CLM / 0.016, 0.025, 0.049, 0.108, 0.075, 0.096, 0.109, 0.185, & 0.157, 0.156, 0.227, 0.227, 0.086, 0.052, 0.008, 0.051, & 0.227, 0.008, 0.016 / ! -- RHOB is the soil bulk density DATA RHOB_CLM / 1.69e6, 1.65e6, 1.60e6, 1.45e6, 1.40e6, 1.53e6, 1.58e6, 1.41e6, & 1.49e6, 1.55e6, 1.40e6, 1.45e6, 1.51e6, 1.38e6, 1.72e6, 1.56e6, & 1.44e6, 1.72e6, 1.69e6 / C------------------------------------------------------------------------------- C Soil hydraulic properties updated (Patrick Campbell & Jesse Bash,Dec 2016) using obs/models in Kishne et al. (2017): C "Evaluation and improvement of the default soil hydraulic parameters for the Noah Land Surface Model" C The updated variables should match with representative run/SOILPARM.TBL for WRF NOAH, such that --> C WSAT_NOAH = MAXSMC, WFC_NOAH = REFSMC, WWLT_NOAH = WLTSMC, and BSLP_NOAH = BB C Note: Categories of Organic material, Water, Bedrock, Other (land-ice), Playa, and White sand C are not updated because no soil characterization data or insufficient number of samples are available. C WRES is calculated as (psi_air_dry/psi_sat)^(-1.0/BSLP)*WSAT following CLM soil hydrology C relationships, but with updated NOAH values. Note that this is a common paramterization, e.g. Campbell and Norman (1998) C where psi_air_dry = -300,000 kPa C # SOIL TYPE WSAT WFC WWLT BSLP CGSAT JP AS C2R C1SAT WRES C _ _________ ____ ___ ____ ____ _____ ___ ___ ___ _____ ____ C 1 SAND .402 .086 .024 3.36 3.222 4 .387 3.9 .082 .004 C 2 LOAMY SAND .396 .142 .057 4.06 3.057 4 .404 3.7 .098 .010 C 3 SANDY LOAM .413 .213 .081 4.85 3.560 4 .219 1.8 .132 .016 C 4 SILT LOAM .456 .303 .123 5.72 4.418 6 .105 0.8 .153 .023 C 5 SILT .438 .346 .064 4.18 .010 C 6 LOAM .440 .274 .128 6.01 4.111 6 .148 0.8 .191 .022 C 7 SND CLY LM .416 .288 .168 7.03 3.670 6 .135 0.8 .213 .029 C 8 SLT CLY LM .457 .350 .212 8.49 3.593 8 .127 0.4 .385 .039 C 9 CLAY LOAM .449 .335 .196 8.20 3.995 10 .084 0.6 .227 .036 C 10 SANDY CLAY .425 .355 .239 8.98 3.058 8 .139 0.3 .421 .037 C 11 SILTY CLAY .467 .392 .264 10.24 3.729 10 .075 0.3 .375 .052 C 12 CLAY .506 .428 .285 11.56 3.600 12 .083 0.3 .342 .058 C 13 ORGANIC .439 .286 .118 5.25 .003 C 14 WATER .489 .229 .066 3.10 1.0 0 .0 0.0 .0 .052 C 15 BEDROCK .200 .050 .009 2.79 .001 C 16 OTHER .421 .145 .049 4.26 3.222 4 .387 3.9 .082 .010 C 17 PLAYA .468 .395 .264 11.55 .147 C 18 LAVA .200 .050 .009 2.79 .001 C 19 WHITE SAND .339 .084 .015 2.79 .001 C------------------------------------------------------------------------------- !-- WSAT is saturated soil moisture (M^3/M^3) DATA WSAT_NOAH / 0.402, 0.396, 0.413, 0.456, 0.438, 0.440, 0.416, 0.457, & 0.449, 0.425, 0.467, 0.506, 0.439, 0.489, 0.200, 0.421, & 0.468, 0.200, 0.339 / !-- WFC is soil field capacity DATA WFC_NOAH / 0.086, 0.142, 0.213, 0.303, 0.346, 0.274, 0.288, 0.350, & 0.335, 0.355, 0.392, 0.428, 0.286, 0.229, 0.050, 0.145, & 0.395, 0.050, 0.084 / !-- WWLT is wilting point (M^3/M^3) DATA WWLT_NOAH / 0.024, 0.057, 0.081, 0.123, 0.064, 0.128, 0.168, 0.212, & 0.196, 0.239, 0.264, 0.285, 0.118, 0.066, 0.009, 0.049, & 0.264, 0.009, 0.015 / !-- B is slope of the retention curve DATA BSLP_NOAH / 3.36, 4.06, 4.85, 5.72, 4.18, 6.01, 7.03, 8.49, & 8.20, 8.98, 10.24, 11.56, 5.25, 3.10, 2.79, 4.26, & 11.55, 2.79, 2.79 / !-- WRES is residual soil moisture DATA WRES_NOAH / 0.004, 0.010, 0.016, 0.023, 0.010, 0.022, 0.029, 0.039, & 0.036, 0.037, 0.052, 0.058, 0.003, 0.052, 0.001, 0.010, & 0.147, 0.001, 0.001 / ! -- RHOB is the soil bulk density DATA RHOB_NOAH / 1.69e6, 1.65e6, 1.60e6, 1.45e6, 1.40e6, 1.53e6, 1.58e6, 1.41e6, & 1.49e6, 1.55e6, 1.40e6, 1.45e6, 1.51e6, 1.38e6, 1.72e6, 1.56e6, & 1.44e6, 1.72e6, 1.69e6 / CONTAINS SUBROUTINE INIT_LSM( JDate, JTime ) USE HGRD_DEFN USE UTILIO_DEFN USE RUNTIME_VARS, ONLY : WRF_V4P #ifdef twoway USE twoway_data_module, ONLY : num_land_cat #endif IMPLICIT NONE INCLUDE SUBST_FILES_ID ! file name parameters INTEGER, INTENT( In ) :: jdate INTEGER, INTENT( In ) :: jtime CHARACTER( 240 ) :: XMSG = ' ' CHARACTER( 16 ), SAVE :: PNAME = 'Init_LSM' INTEGER l INTEGER :: STAT LOGICAL, SAVE :: INITIALIZED = .FALSE. IF( INITIALIZED ) RETURN INITIALIZED = .TRUE. IF (WRF_V4P) THEN N_SOIL_TYPE = N_SOIL_TYPE_WRFV4P ELSE N_SOIL_TYPE = N_SOIL_TYPE_WRFV3 END IF ALLOCATE (WSAT_PX(N_SOIL_TYPE), & WFC_PX(N_SOIL_TYPE), & WWLT_PX(N_SOIL_TYPE), & BSLP_PX(N_SOIL_TYPE), & WRES_PX(N_SOIL_TYPE), & RHOB_PX(N_SOIL_TYPE), & PSI_SAT(N_SOIL_TYPE), & STAT=STAT) IF (WRF_V4P) THEN WSAT_PX = WSAT_PX_WRFV4P WWLT_PX = WWLT_PX_WRFV4P BSLP_PX = BSLP_PX_WRFV4P RHOB_PX = RHOB_PX_WRFV4P ELSE WSAT_PX = WSAT_PX_WRFV3 WWLT_PX = WWLT_PX_WRFV3 BSLP_PX = BSLP_PX_WRFV3 RHOB_PX = RHOB_PX_WRFV3 END IF #ifdef twoway IF ( NUM_LAND_CAT .EQ. 24 ) THEN LAND_SCHEME = 'USGS24' ELSE IF ( NUM_LAND_CAT .EQ. 20 ) THEN LAND_SCHEME = 'MODIS' ELSE IF ( NUM_LAND_CAT .EQ. 50 ) THEN LAND_SCHEME = 'NLCD50' ELSE IF ( NUM_LAND_CAT .EQ. 40 ) THEN LAND_SCHEME = 'NLCD40' END IF #endif Call STAGE_LU_MAPPER END SUBROUTINE Init_LSM SUBROUTINE STAGE_LU_MAPPER USE RUNTIME_VARS, ONLY: STAGECTRL, LOGDEV use UTILIO_DEFN IMPLICIT NONE Logical :: n_stage_end Logical :: n_xref_end CHARACTER( 200 ) :: XMSG INTEGER :: DEPCTRL_NML INTEGER :: LU_NML INTEGER :: STAT NAMELIST / STAGE_LU / STAGE_LU_DATA NAMELIST / STAGE_MODIS_20 / MET_TO_STAGE_LU NAMELIST / STAGE_NLCD_40 / MET_TO_STAGE_LU NAMELIST / STAGE_NLCD_50 / MET_TO_STAGE_LU NAMELIST / STAGE_USGS_24 / MET_TO_STAGE_LU NAMELIST / STAGE_CUSTOM / MET_TO_STAGE_LU STAGE_LU_DATA%LU_Name = 'N/A' STAGE_LU_DATA%LU_Cat = 'N/A' STAGE_LU_DATA%RSMIN = 9999.0 STAGE_LU_DATA%Z00 = 0.0 STAGE_LU_DATA%VEG0 = 0.0 STAGE_LU_DATA%VEGMN0 = 0.0 STAGE_LU_DATA%LAI0 = 0.0 STAGE_LU_DATA%LAIMN0 = 0.0 STAGE_LU_DATA%Gamma_NH3_grnd = 0.0 STAGE_LU_DATA%Gamma_NH3_st = 0.0 STAGE_LU_DATA%Hg_grnd = 0.0 STAGE_LU_DATA%l_width = 0.0 STAGE_LU_DATA%Alpha = 0.0 STAGE_LU_DATA%BAI = 0.0 STAGE_LU_DATA%Ahair = 0.0 STAGE_LU_DATA%Fhair = 0.0 STAGE_LU_DATA%Aleaf = 0.0 STAGE_LU_DATA%LU_Index = 0 MET_TO_STAGE_LU%Met_LU_Name = 'N/A' MET_TO_STAGE_LU%Met_Index = 0 MET_TO_STAGE_LU%Dep_LU_Name = 'N/A' MET_TO_STAGE_LU%Dep_Index = 0 MET_TO_STAGE_LU%Factor = 0.0 MET_TO_STAGE_LU%Description = 'N/A' ! Retrieve the Name of the STAGE Control File IF ( STAGECTRL .EQ. "STAGECTRL_NML" ) THEN WRITE( LOGDEV, "(5x,A,/,5x,A,/,5x,A)"), & 'You have chosen not to indicate the location of an', & 'STAGE Control namelist file. Default settings ', & 'will be assumed.' RETURN END IF ! Open STAGE Control Namelist File DEPCTRL_NML = JUNIT() OPEN( FILE = STAGECTRL, UNIT = DEPCTRL_NML, STATUS = 'OLD', & POSITION = 'REWIND', FORM='FORMATTED', IOSTAT = STAT ) ! Check for Error in File Open Process IF ( STAT .NE. 0 ) THEN WRITE( XMSG, '(A,A,A)' ),'ERROR: Could not read ', & 'STAGE control namelist file: ',TRIM( STAGECTRL ) CALL M3EXIT( 'STAGE_LU_MAPPER',0,0,XMSG,1 ) END IF REWIND( DEPCTRL_NML ) READ( NML = STAGE_LU, UNIT = DEPCTRL_NML, IOSTAT=STAT ) IF ( STAT .NE. 0 ) THEN WRITE( LOGDEV, "(5x,A,/,5x,A,/,5x,A,/,5x,A)" ), & 'Warning! Something went wrong while reading the ', & 'STAGE land use section of the STAGE ', & 'Control Namelist. Default values for this section ', & 'will be assumed.' END IF n_stage_lu = maxval(STAGE_LU_DATA%LU_Index) REWIND( DEPCTRL_NML ) WRITE( LOGDEV,*) 'Mapping ', LAND_SCHEME, ' to STAGE land use categories.' SELECT CASE( LAND_SCHEME ) CASE( 'MODIS' ) READ( NML = STAGE_MODIS_20, UNIT = DEPCTRL_NML, IOSTAT=STAT ) IF ( STAT .NE. 0 ) THEN WRITE( LOGDEV, "(A,A,A)" ), & 'ERROR: Something went wrong while reading the ', & 'STAGE land use mapping section for MODIS 20 data ', & 'of the STAGE Control Namelist.', TRIM( STAGECTRL ) CALL M3EXIT( 'STAGE_LU_MAPPER',0,0,XMSG,1 ) END IF n_xref_lu = 1 n_xref_end = .TRUE. ! rename Do While( n_xref_end ) If( MET_TO_STAGE_LU(n_xref_lu)%Met_LU_Name .Eq. 'N/A' ) Then n_xref_end = .FALSE. n_xref_lu = n_xref_lu - 1 Else n_xref_lu = n_xref_lu + 1 End If End Do CASE( 'NLCD40' ) READ( NML = STAGE_NLCD_40, UNIT = DEPCTRL_NML, IOSTAT=STAT ) IF ( STAT .NE. 0 ) THEN WRITE( LOGDEV, "(A,A,A)" ), & 'ERROR: Something went wrong while reading the ', & 'STAGE land use mapping section for NLCD 40 data ', & 'of the STAGE Control Namelist.', TRIM( STAGECTRL ) CALL M3EXIT( 'STAGE_LU_MAPPER',0,0,XMSG,1 ) END IF n_xref_lu = 1 n_xref_end = .TRUE. ! rename Do While( n_xref_end ) If( MET_TO_STAGE_LU(n_xref_lu)%Met_LU_Name .Eq. 'N/A' ) Then n_xref_end = .FALSE. n_xref_lu = n_xref_lu - 1 Else n_xref_lu = n_xref_lu + 1 End If End Do CASE( 'NLCD50' ) READ( NML = STAGE_NLCD_50, UNIT =DEPCTRL_NML, IOSTAT=STAT ) IF ( STAT .NE. 0 ) THEN WRITE( LOGDEV, "(A,A,A)" ), & 'ERROR: Something went wrong while reading the ', & 'STAGE land use mapping section for NLCD 50 data ', & 'of the STAGE Control Namelist.', TRIM( STAGECTRL ) CALL M3EXIT( 'STAGE_LU_MAPPER',0,0,XMSG,1 ) END IF n_xref_lu = 1 n_xref_end = .TRUE. ! rename Do While( n_xref_end ) If( MET_TO_STAGE_LU(n_xref_lu)%Met_LU_Name .Eq. 'N/A' ) Then n_xref_end = .FALSE. n_xref_lu = n_xref_lu - 1 Else n_xref_lu = n_xref_lu + 1 End If End Do CASE( 'USGS24' ) READ( NML = STAGE_USGS_24, UNIT = DEPCTRL_NML, IOSTAT=STAT ) IF ( STAT .NE. 0 ) THEN WRITE( LOGDEV, "(A,A,A)" ), & 'ERROR: Something went wrong while reading the ', & 'STAGE land use mapping section for USGS 24 data ', & 'of the STAGE Control Namelist.', TRIM( STAGECTRL ) CALL M3EXIT( 'STAGE_LU_MAPPER',0,0,XMSG,1 ) END IF n_xref_lu = 1 n_xref_end = .TRUE. ! rename Do While( n_xref_end ) If( MET_TO_STAGE_LU(n_xref_lu)%Met_LU_Name .Eq. 'N/A' ) Then n_xref_end = .FALSE. n_xref_lu = n_xref_lu - 1 Else n_xref_lu = n_xref_lu + 1 End If End Do CASE DEFAULT READ( NML = STAGE_CUSTOM, UNIT = DEPCTRL_NML, IOSTAT=STAT ) IF ( STAT .NE. 0 ) THEN WRITE( LOGDEV, "(A,A,A)" ), & 'ERROR: Something went wrong while reading the ', & 'STAGE land use mapping section for Custom LU data ', & 'of the STAGE Control Namelist.', TRIM( STAGECTRL ) CALL M3EXIT( 'STAGE_LU_MAPPER',0,0,XMSG,1 ) END IF n_xref_lu = 1 n_xref_end = .TRUE. ! rename Do While( n_xref_end ) If( MET_TO_STAGE_LU(n_xref_lu)%Met_LU_Name .Eq. 'N/A' ) Then n_xref_end = .FALSE. n_xref_lu = n_xref_lu - 1 Else n_xref_lu = n_xref_lu + 1 End If End Do END SELECT CLOSE( UNIT = DEPCTRL_NML ) n_lufrac = maxval(MET_TO_STAGE_LU%Met_Index) END SUBROUTINE STAGE_LU_MAPPER END MODULE LSM_Mod ================================================ FILE: CCTM/src/depv/stage/MOSAIC_MOD.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! c::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: Module MOSAIC_MOD C Contains the shared variables and subrountes needed estimate the resistances C from natural and agricultural lands C Revision History: J. Bash June 16 2011: Created C J. Young Oct 31 2011: changed lai0, laimn0, rsmin, VEG0, vegmn0, C z00, & luf_fac to pointers to save memory C D. Schwede Mar 12 2012: fixed errors in crop lai C D. Schwede Sept 07 2012: updated code for NLCD40 land use classification C J. Bash: Nov 07 2014: Modified for the restructuring of vidff. Most C mosaic variables were moved to ASX_DATA_MOD. C Algorithms were restructured using fortran 90 C array constructs for readability. C D. Wong: Feb 10 2019: removed all MY_N clauses C D. Wong: Apr 24 2019: removed unused BUFF2D_2 array C------------------------------------------------------------------------------- Implicit None C Private variables used in this module and subroutines Real, Save, Allocatable, Private :: fseas ( :,: ) ! Non-agricultural seasonal leaf on/off 0.0-1.0 where 1.0 is leaf on condutions Real, Save, Allocatable, Private :: f_land ( :,: ) ! fraction of the grid cell that is land Real, Save, Allocatable, Private :: sum_mos_lai ( :,: ) ! sum of the land use LAI used for normalization Real, Save, Allocatable, Private :: sum_mos_veg ( :,: ) ! sum of the land use VEG used for normalization Real, Save, Allocatable, Private :: vseas ( :,: ) ! Agricultural seasonal leaf on/off 0.0-1.0 where 1.0 is leaf on condutions Real, Save, Allocatable, Private :: znotc ( :,: ) ! land use surface roughness lenth for momentum (m) Real, Save, Allocatable, Private :: lu_mean_ga ( :,: ) ! mean land use aerodynamic conductance used for normalization (m/s) Real, Save, Allocatable, Private :: lu_mean_ustar ( :,: ) ! mean land use ustar used for normalization (m/s) Integer, Save, Allocatable, Private :: lstwetdate( :,: ) ! last wet date Integer, Save, Allocatable, Private :: lstwettime( :,: ) ! last wet time Integer, PRIVATE :: ALLOCSTAT Integer, Save, PRIVATE :: l_ag, l_agmos Logical, Save, Allocatable, PRIVATE :: is_ag( : ) ! Agricultural flag Logical, Save, Allocatable, PRIVATE :: is_agmos( : ) ! Agricultural mosaic flag Logical, Save, Allocatable, PRIVATE :: is_water( : ) ! Water flag C Buffer variables Real, Pointer, Private :: BUFF2D ( :,: ) Type :: Tile_Type Integer :: n_vd ! number of gas species for tiled output Integer :: n_lufrac ! number of land use for tiled output Real, Allocatable :: RSMIN ( : ) ! minimum stomatal resistance (s/m) Real, Allocatable :: Z00 ( : ) ! momentum roughness length (m) Real, Allocatable :: VEG0 ( : ) ! maximum vegetation coverage (%) Real, Allocatable :: VEGMN0 ( : ) ! minimum vegetation coverage (%) Real, Allocatable :: LAI0 ( : ) ! maximum lai (m2/m2) Real, Allocatable :: LAIMN0 ( : ) ! minimum lai (m2/m2) Real, Allocatable :: NH3_gam_grnd ( : ) ! soil/litter surface NH3 emission potential ([NH4]/[H]) Real, Allocatable :: NH3_gam_st ( : ) ! vegetation NH3 emission potential ([NH4]/[H]) Real, Allocatable :: Hg_grnd ( : ) ! soil Hg concentration (umol/g ) Real, Allocatable :: l_width ( : ) ! aerodynamic leaf width (m) Real, Allocatable :: Alpha ( : ) ! Emerson et al 2020 PNAS empirical land use factor (unitless) Real, Allocatable :: BAI ( : ) ! building area index (m2/m2) Real, Allocatable :: Ahair ( : ) ! leaf hair width (m) Real, Allocatable :: Fhair ( : ) ! ratio of leaf covered in hairs Real, Allocatable :: Aleaf ( : ) ! aerodynamic leaf width !> Mapping for diagnostic ouputs Character( 16 ), Allocatable :: cat_lu ( : ) ! Tiled LU name Character( 16 ), Allocatable :: name_lu ( : ) ! Land use output name Logical, Allocatable :: gas_out ( : ) ! vector of length N_SPC_DIFF with TRUE for output Character( 16 ), Allocatable :: Vd_Name ( : ) ! Deposition species output name Logical, Allocatable :: Vd_out ( : ) ! vector of length N_SPC_DEPV with TRUE for output Integer, Allocatable :: dep2vdiff ( : ) ! Vdiff location for dep species Real, Allocatable :: Vd_fac ( : ) ! Vd factor from the GC, NR, and TR namelists !> Mean grid cell output Real, Allocatable :: Grd_Vd ( :,:,: ) ! Grid mean gaseous and aerosol deposition velocity Real, Allocatable :: Bidi_Emis ( :,:,: ) ! Grid bidirectional Emissions !> Aggrigated fractional land use Real, Allocatable :: LUfrac ( :,:,: ) ! land use fraction (ratio) !> Sub grid cell output: Real, Allocatable :: Lu_Vd ( :,:,:,: ) ! gaseous and aerosol deposition velocity End Type Tile_Type Type( Tile_Type ), Save :: Tile_Data Contains Subroutine Init_Mosaic( jdate, jtime, lufrac ) Use HGRD_DEFN Use LSM_Mod Use UTILIO_DEFN USE STAGE_DATA, Only:dep_gas_all ! needs to be n_gas_asx to save memory but will require remapping USE CGRID_SPCS ! CGRID mechanism species USE RUNTIME_VARS USE CENTRALIZED_IO_MODULE, Only: WR_AVAIL Implicit None C...include files Include SUBST_FILES_ID ! file name parameters Integer, Intent( In ) :: jdate Integer, Intent( In ) :: jtime Real, Intent( In ) :: lufrac( :,:,: ) Character( 240 ) :: xmsg = ' ' Character( 16 ), save :: pname = 'Init_Mosaic' Integer n,l,s Integer N_GAS_DEPV Integer gxoff, gyoff ! global origin offset from file Integer :: strtcolgc2, endcolgc2, strtrowgc2, endrowgc2 ! Allocate Tile Data ALLOCATE ( Tile_Data%cat_lu ( n_stage_lu ), & Tile_Data%name_lu ( n_stage_lu ), & Tile_Data%RSMIN ( n_stage_lu ), & Tile_Data%LAI0 ( n_stage_lu ), & Tile_Data%LAIMN0 ( n_stage_lu ), & Tile_Data%VEG0 ( n_stage_lu ), & Tile_Data%VEGMN0 ( n_stage_lu ), & Tile_Data%Z00 ( n_stage_lu ), & Tile_Data%NH3_gam_st ( n_stage_lu ), & Tile_Data%NH3_gam_grnd ( n_stage_lu ), & Tile_Data%Hg_grnd ( n_stage_lu ), & Tile_Data%l_width ( n_stage_lu ), & Tile_Data%Alpha ( n_stage_lu ), & Tile_Data%BAI ( n_stage_lu ), & Tile_Data%Ahair ( n_stage_lu ), & Tile_Data%Fhair ( n_stage_lu ), & Tile_Data%Aleaf ( n_stage_lu ),STAT = ALLOCSTAT ) If ( ALLOCSTAT .Ne. 0 ) Then XMSG = 'Failure allocating tile land use specific data' Call M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) End If ! STAGE land use Tile_Data%n_lufrac = n_stage_lu Tile_Data%cat_lu = STAGE_LU_Data( 1:n_stage_lu )%LU_Cat Tile_Data%name_lu = STAGE_LU_Data( 1:n_stage_lu )%LU_Name Tile_Data%RSMIN = STAGE_LU_Data( 1:n_stage_lu )%RSMIN Tile_Data%LAI0 = STAGE_LU_Data( 1:n_stage_lu )%LAI0 Tile_Data%LAIMN0 = STAGE_LU_Data( 1:n_stage_lu )%LAIMN0 Tile_Data%VEG0 = STAGE_LU_Data( 1:n_stage_lu )%VEG0 Tile_Data%VEGMN0 = STAGE_LU_Data( 1:n_stage_lu )%VEGMN0 Tile_Data%Z00 = STAGE_LU_Data( 1:n_stage_lu )%Z00 Tile_Data%NH3_gam_st = STAGE_LU_Data( 1:n_stage_lu )%Gamma_NH3_st Tile_Data%NH3_gam_grnd = STAGE_LU_Data( 1:n_stage_lu )%Gamma_NH3_grnd Tile_Data%Hg_grnd = STAGE_LU_Data( 1:n_stage_lu )%Hg_grnd Tile_Data%l_width = STAGE_LU_Data( 1:n_stage_lu )%l_width Tile_Data%Alpha = STAGE_LU_Data( 1:n_stage_lu )%Alpha Tile_Data%BAI = STAGE_LU_Data( 1:n_stage_lu )%BAI Tile_Data%Ahair = STAGE_LU_Data( 1:n_stage_lu )%Ahair Tile_Data%Fhair = STAGE_LU_Data( 1:n_stage_lu )%Fhair Tile_Data%Aleaf = STAGE_LU_Data( 1:n_stage_lu )%Aleaf ! Allocate buffers ALLOCATE ( BUFF2D( ncols,nrows ), STAT = ALLOCSTAT ) If ( ALLOCSTAT .Ne. 0 ) Then XMSG = 'Failure allocating 2D Buffers' Call M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) End If ALLOCATE ( fseas ( ncols,nrows ), & f_land ( ncols,nrows ), & sum_mos_lai ( ncols,nrows ), & sum_mos_veg ( ncols,nrows ), & vseas ( ncols,nrows ), & znotc ( ncols,nrows ), & lu_mean_ga ( ncols,nrows ), & lu_mean_ustar ( ncols,nrows ), STAT = ALLOCSTAT ) If ( ALLOCSTAT .Ne. 0 ) Then XMSG = 'Failure allocating MOSAIC 2D variables' Call M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) End If f_land = 0.0 IF( .not. WR_AVAIL ) Then ALLOCATE ( lstwetdate ( ncols,nrows ), & lstwettime ( ncols,nrows ), STAT = ALLOCSTAT ) If ( ALLOCSTAT .Ne. 0 ) Then XMSG = 'Failure allocating MOSAIC lstwetdate and lstwettime' Call M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) End If lstwetdate = 0 lstwettime = 0 End If N_GAS_DEPV = N_GC_DEPV + N_NR_DEPV + N_TR_DEPV Allocate ( Tile_Data%Lu_Vd ( ncols,nrows,N_SPC_DEPV,Tile_Data%n_lufrac ), & Tile_Data%Grd_Vd ( ncols,nrows,N_SPC_DEPV ), & Tile_Data%Bidi_Emis ( ncols,nrows,N_SPC_DEPV ), & Tile_Data%LUfrac ( ncols,nrows,Tile_Data%n_lufrac ), & Tile_Data%Vd_Name ( N_SPC_DEPV ), & Tile_Data%Vd_Fac ( N_SPC_DEPV ), & Tile_Data%Vd_Out ( N_SPC_DEPV ), & Tile_Data%dep2vdiff ( N_SPC_DEPV ), & STAT = ALLOCSTAT ) If ( ALLOCSTAT .Ne. 0 ) Then XMSG = 'Failure allocating MOSAIC deposition velocities' Call M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) End If Tile_Data%Lu_Vd = 0.0 Tile_Data%Grd_Vd = 0.0 Tile_Data%Bidi_Emis = 0.0 Tile_Data%Vd_Fac = 0.0 Tile_Data%dep2vdiff = 0 ! Map Met land use to STAGE land use Tile_Data%LUfrac = 0.0 Do n = 1, n_xref_lu s = MET_TO_STAGE_LU( n )%Dep_Index l = MET_TO_STAGE_LU( n )%Met_Index Tile_Data%LUfrac(:,:,s) = Tile_Data%LUfrac(:,:,s) + & MET_TO_STAGE_LU( n )%Factor * lufrac(:,:,l) End Do Allocate ( is_ag ( Tile_Data%n_lufrac ), & is_agmos ( Tile_Data%n_lufrac ), & is_water ( Tile_Data%n_lufrac ), STAT = ALLOCSTAT ) If ( ALLOCSTAT .Ne. 0 ) Then XMSG = 'Failure allocating is_ag, is_agmos, is_water' Call M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) End If is_ag = .FALSE. is_agmos = .FALSE. is_water = .FALSE. ! Get the location of ag and water in the land use fractions Do l = 1, Tile_Data%n_lufrac If(Tile_Data%cat_lu(l) .Eq. 'AG' ) Then is_ag( l ) = .TRUE. l_ag = l End If If(Tile_Data%cat_lu(l) .Eq. 'AGMOS') Then is_agmos( l ) = .TRUE. l_agmos = l End If If(Tile_Data%cat_lu(l) .Eq. 'WATER') Then is_water( l ) = .TRUE. Else f_land = f_land + Tile_Data%lufrac(:,:,l) End If End Do Return End Subroutine Init_Mosaic Subroutine calc_lai( jday, jtime, SOIT2, LAI, VEG, & MOS_VEG, MOS_LAI, MOS_Z0 ) C*********************************************************************** C Function: C Calculate the lai for each LUC in the gridcell C Preconditions: none C Subroutines and Functions Called: none C Revision History: C*********************************************************************** Use LSM_Mod Implicit None C Arguments: Integer, Intent( In ) :: jday Integer, Intent( In ) :: jtime Real, Intent( In ) :: SOIT2( :,: ) Real, Intent( In ) :: LAI( :,: ) Real, Intent( In ) :: VEG( :,: ) Real, Intent( Out ) :: MOS_VEG( :,:,: ) Real, Intent( Out ) :: MOS_LAI( :,:,: ) Real, Intent( Out ) :: MOS_Z0( :,:,: ) C Local variables: Integer :: c,r,j C Local volatile variables: Real, Pointer :: d_past_emer ( :,: ) C initialize vseas = 0.0 fseas = 0.0 znotc = 0.0 BUFF2D = 0.0 MOS_VEG = 0.0 MOS_LAI = 0.0 MOS_Z0 = 0.0 sum_mos_lai = 0.0 sum_mos_veg = 0.0 C calculate fseas based on deep soil temperature Where( SOIT2 .Lt. 290.0 .And. SOIT2 .Gt. 282.0 ) fseas = 1.0 - 0.015625 * ( 290.0 - SOIT2 ) ** 2 Elsewhere( SOIT2 .Ge. 290.0 ) fseas = 1.0 Elsewhere fseas = 0.0 End where C based on a 10 C germination temperature for 5 cm soil depth reported multiple agricultural extension offices, C e.g. https://www.agry.purdue.edu/ext/corn/news/timeless/Emergence.html. Where( SOIT2 .Lt. 290.0 .And. SOIT2 .Gt. 283.0 ) vseas = 1.0 - ( 290.0 - SOIT2 ) ** 2 / 49.0 Elsewhere( SOIT2 .Ge. 290.0 ) vseas = 1.0 Elsewhere vseas = 0.0 End where C find z0_crop by finding days past emergence d_past_emer => BUFF2D d_past_emer = 0.0 d_past_emer = ( ( Tile_Data%LAIMN0( l_ag ) + vseas * ( Tile_Data%LAI0( l_ag ) & - Tile_Data%LAIMN0( l_ag ) ) ) ** ( 1.0 / 1.923 ) ) / 2.273 d_past_emer = max(0.0184 * 0.0184 - 4.0 * 1.057e-4 * d_past_emer,0.0) d_past_emer = ( 0.0184 - SQRT( d_past_emer ) ) / ( 2.0 * 1.057E-4 ) znotc = 0.05 Where ( d_past_emer .Gt. 87.0 ) znotc = 0.15 Elsewhere( d_past_emer .Gt. 0.0 ) znotc = 5.00 + 0.23 * d_past_emer - 1.32E-3 * d_past_emer**2 znotc = znotc / 100.0 ! convert to meters End Where Nullify( d_past_emer ) C get individual LAIs for LUCs for this date Do j = 1, Tile_Data%n_lufrac If( is_water( j ) ) Then Where( Tile_Data%LUFRAC( :,:,j ) .Gt. 0.0 ) MOS_Z0 ( :,:,j ) = Tile_Data%Z00( j ) End Where Else If ( .NOT. is_ag( j ) .And. .NOT. is_agmos( j ) ) Then Where( Tile_Data%LUFRAC( :,:,j ) .Gt. 0.0 ) MOS_VEG( :,:,j ) = ( Tile_Data%VEGMN0( j ) + & fseas * ( Tile_Data%VEG0( j ) - Tile_Data%VEGMN0( j ) ) )/100. MOS_LAI( :,:,j ) = Tile_Data%LAIMN0( j ) + & fseas * ( Tile_Data%LAI0( j ) - Tile_Data%LAIMN0( j ) ) MOS_Z0 ( :,:,j ) = Tile_Data%Z00( j ) End Where Else If( is_ag( j ) ) Then Where( Tile_Data%LUFRAC( :,:,j ) .Gt. 0.0 ) MOS_VEG( :,:,j ) = ( Tile_Data%VEGMN0( j ) + & vseas * ( Tile_Data%VEG0( j ) - Tile_Data%VEGMN0( j ) ) )/100. MOS_LAI( :,:,j ) = Tile_Data%LAIMN0( j ) + & vseas * ( Tile_Data%LAI0( j ) - Tile_Data%LAIMN0( j ) ) MOS_Z0 ( :,:,j ) = znotc End Where Else If( is_agmos( j ) ) Then ! assume 50% natural and 50% crop MOS_VEG( :,:,j ) = ( Tile_Data%VEGMN0( j ) + & ( vseas + fseas ) / 2.0 * ( Tile_Data%VEG0( j ) - Tile_Data%VEGMN0( j ) ) )/100. MOS_LAI( :,:,j ) = Tile_Data%LAIMN0( j ) + & ( vseas + fseas ) / 2.0 * ( Tile_Data%LAI0( j ) - Tile_Data%LAIMN0( j ) ) MOS_Z0 ( :,:,j ) = 0.5 * ( znotc + Tile_Data%Z00( j ) ) End If sum_mos_lai = sum_mos_lai + MOS_LAI( :,:,j ) * Tile_Data%LUFRAC( :,:,j ) sum_mos_veg = sum_mos_veg + MOS_VEG( :,:,j ) * Tile_Data%LUFRAC( :,:,j ) End If End Do C Now normalize the data to the meteorological LAI and VEG Do j = 1, Tile_Data%n_lufrac If( .NOT. is_water( j ) .AND. maxval( Tile_Data%LUFRAC( :,:,j ) ) .Gt. 0.0 ) Then Where( sum_mos_lai .Gt. 0.0 .And. LAI .Gt. 0.0 .And. sum_mos_veg .Gt. 0.0 .And. VEG .Gt. 0.0 ) MOS_LAI( :,:,j ) = MOS_LAI( :,:,j ) * LAI / sum_mos_lai MOS_VEG( :,:,j ) = MOS_VEG( :,:,j ) * VEG / sum_mos_veg End Where Where( MOS_LAI( :,:,j ) .Gt. 6.0 ) MOS_LAI( :,:,j ) = 6.0 End Where Where( MOS_VEG( :,:,j ) .Gt. 0.999 ) ! not VEG0(j) to support earlier versions of WRF and satellite Veg MOS_VEG( :,:,j ) = 0.999 End Where Where( MOS_VEG( :,:,j ) .Eq. 0.0 .Or. MOS_LAI( :,:,j ) .Eq. 0.0 ) MOS_LAI( :,:,j ) = 0.0 MOS_VEG( :,:,j ) = 0.0 End Where End If End Do Return End Subroutine Calc_LAI C********************************************************************************************* C RA_WRF based on PX LSM C********************************************************************************************* Subroutine RA_WRF( MOLI, ZH, RA, Z0, MOS_Z0, USTAR, MOS_USTAR, & MOS_RA, gamah, betah, karman ) Use LSM_Mod Implicit None Real, Intent( In ) :: gamah ! MOST coefficient for stability correction for unstable conditions [unitless] Real, Intent( In ) :: betah ! MOST coefficient for stability correction for stable conditions [unitless] Real, Intent( In ) :: karman ! von Karman constant [unitless] Real, Intent( In ) :: MOLI( :,: ) ! 1 over the Obukhov length [1/m] Real, Intent( In ) :: ZH( :,:,: ) ! mid-layer height above ground [m] Real, Intent( In ) :: RA( :,: ) ! grid aerodynamic resistance [s/m] Real, Intent( In ) :: Z0( :,: ) ! grid momentum roughness length [m] Real, Intent( In ) :: USTAR( :,: ) ! grid friction velocity [m/s] Real, Intent( InOut ) :: MOS_Z0( :,:,: ) ! land use momentum roughness length [m] Real, Intent( InOut ) :: MOS_USTAR( :,:,: ) ! land use friction velocity [m/s] Real, Intent( InOut ) :: MOS_RA( :,:,: ) ! land use aerodynamic resistance [s/m] Integer :: j Real, Parameter :: pr0 = 0.95 ! turbulent Prandtl number C local volatile variable Real, Pointer :: PSIH ( :,: ) ! Stability correction to the vertical wind profile lu_mean_ga = 0.0 lu_mean_ustar = 0.0 C Get surface flux variables Do j = 1, Tile_Data%n_lufrac Where( Tile_Data%LUFRAC( :,:,j ) .EQ. 1.0 .OR. ZH( :,:,1 ) .EQ. MOS_Z0( :,:,j ) ) MOS_USTAR( :,:,j ) = USTAR MOS_Z0( :,:,j ) = Z0 Elsewhere( Tile_Data%LUFRAC( :,:,j ) .Gt. 0.0 ) MOS_USTAR( :,:,j ) = USTAR * SQRT( LOG( ZH( :,:,1 ) / Z0 ) & / LOG( ZH( :,:,1 ) / MOS_Z0( :,:,j ) ) ) End Where End Do PSIH => BUFF2D PSIH = 0.0 Do j = 1,Tile_Data%n_lufrac Where( MOLI .Lt. 0.0 ) ! checked against PX PSIH = 2.0 * Log( ( Sqrt( 1.0 - gamah * ZH( :,:,1 ) * MOLI ) + 1.0 ) / & ( Sqrt( 1.0 - gamah * MOS_Z0( :,:,j ) * MOLI ) + 1.0 ) ) Else Where ( ( ZH( :,:,1 ) - MOS_Z0( :,:,j ) ) * MOLI .Le. 1.0 ) PSIH = -betah * ( ZH( :,:,1 ) - MOS_Z0( :,:,j ) ) * MOLI Else Where PSIH = 1.0 - betah - ( ZH( :,:,1 ) - MOS_Z0( :,:,j ) ) * MOLI End Where Where ( Tile_Data%LUFRAC( :,:,j ) .Eq. 1.0 ) MOS_RA( :,:,j ) = RA Elsewhere( Tile_Data%LUFRAC( :,:,j ) .Gt. 0.0 ) MOS_RA( :,:,j ) = pr0 * ( Log( ZH( :,:,1 ) / MOS_Z0( :,:,j ) ) - PSIH ) / & ( karman * MOS_USTAR( :,:,j ) ) End Where End Do Nullify( PSIH ) ! Normalization loops Do j = 1,Tile_Data%n_lufrac Where( Tile_Data%LUFRAC( :,:,j ) .Gt. 0.0 ) lu_mean_ga = lu_mean_ga + Tile_Data%LUFRAC( :,:,j ) / MOS_RA( :,:,j ) lu_mean_ustar = lu_mean_ustar + Tile_Data%LUFRAC( :,:,j ) * MOS_USTAR( :,:,j ) End Where End Do Do j = 1,Tile_Data%n_lufrac Where( Tile_Data%LUFRAC( :,:,j ) .Gt. 0.0 ) MOS_RA( :,:,j ) = RA * MOS_RA( :,:,j ) * lu_mean_ga MOS_USTAR( :,:,j ) = USTAR * MOS_USTAR( :,:,j ) / lu_mean_ustar End Where End Do Return End Subroutine RA_WRF C********************************************************************************************* C MOS_Rst C********************************************************************************************* Subroutine MOS_RSTW(MOS_LAI, RGRND, SOIM2, WWLT, WFC, TEMP2, MOS_RA, MOS_USTAR, & QSS_GRND, QV, RST, MOS_RST) Use LSM_Mod Use GRID_CONF ! horizontal & vertical domain specifications Implicit None Real, Intent( In ) :: MOS_LAI( :,:,: ) Real, Intent( In ) :: RGRND( :,: ) Real, Intent( In ) :: SOIM2( :,: ) Real, Intent( In ) :: WWLT( :,: ) Real, Intent( In ) :: WFC( :,: ) Real, Intent( In ) :: TEMP2( :,: ) Real, Intent( In ) :: MOS_RA( :,:,: ) Real, Intent( In ) :: MOS_USTAR( :,:,: ) Real, Intent( In ) :: QSS_GRND( :,: ) Real, Intent( In ) :: QV( :,:,: ) Real, Intent( In ) :: RST( :,: ) Real, Intent( Out ) :: MOS_RST( :,:,: ) Real :: f1, f1max, par ! radiation variables Real :: f2, w2avail, w2mxav ! soil moisture variables Real :: f3, gs, ga, raw ! humidity variables Real :: f4 ! temperature variables Real :: ftot, fshelt ! combined Jarvis variables Real :: lu_tot ! total land use where Rst is estiamted Real :: cor_fact ! correction factor to match met model RST Real, Parameter :: f3min = 0.25 Real, Parameter :: ftmin = 0.0000001 ! m/s Real, Parameter :: rsmax = 5000.0 ! s/m Real :: max_mos_gst, mos_gst ! area weighted conductance Integer :: c, r, j ! loop induction variables DO c = 1, NCOLS DO r = 1, NROWS lu_tot = 0.0 If( f_land( c,r ) .Gt. 0.0 .And. RST( c,r ) .Ge. 1.0e30 ) Then !-SOIL MOISTURE w2avail = SOIM2( c,r ) - WWLT( c,r ) w2mxav = WFC ( c,r ) - WWLT( c,r ) f2 = 1.0 / ( 1.0 + EXP( -5.0 * ( w2avail / w2mxav - & ( w2mxav / 3.0 + WWLT( c,r ) ) ) ) ) ! according JP, 9/94 !-AIR TEMP !... according to Avissar (1985) and AX 7/95 IF ( TEMP2( c,r ) .LE. 302.15 ) THEN f4 = 1.0 / ( 1.0 + EXP( -0.41 * (TEMP2( c,r ) - 282.05 ) ) ) ELSE f4 = 1.0 / ( 1.0 + EXP( 0.5 * (TEMP2( c,r ) - 314.0 ) ) ) END IF !-RADIATION par = 0.45 * RGRND( c,r ) * 4.566 DO j = 1, Tile_Data%n_lufrac IF ( Tile_Data%LUFRAC( c,r,j ) .GT. 0.0 .AND. MOS_LAI( c,r,j ) .LT. 0.00001 ) THEN MOS_RST( c,r,j ) = rsmax ELSE IF ( Tile_Data%LUFRAC( c,r,j ) .GT. 0.0 ) THEN IF ( Tile_Data%rsmin( j ) .GT. 130.0 ) THEN f1max = 1.0-0.02*MOS_LAI( c,r,j ) ELSE f1max = 1.0-0.07*MOS_LAI( c,r,j ) END IF f1 = f1max * ( 1.0 - exp( -0.0017 * par ) ) f1 = amax1( f1, Tile_Data%rsmin( j ) / rsmax ) ftot = MOS_LAI( c,r,j ) * f1 * f2 * f4 ftot = MAX( ftot,ftmin ) fshelt = 1.0 ! go back to NP89 gs = ftot / ( Tile_Data%rsmin( j ) * fshelt ) raw = MOS_RA( c,r,j ) + 4.503 / MOS_USTAR( c,r,j ) ga = 1.0 / raw !-- Compute humidity effect according to RH at leaf surf f3 = 0.5 * ( gs - ga + SQRT( ga * ga + ga * gs & * ( 4.0 * QV( c,r,1 ) / QSS_GRND( c,r ) - 2.0 ) + gs * gs ) ) / gs f3 = MIN ( MAX( f3, f3min ), 1.0 ) MOS_RST( c,r,j ) = 1.0 / ( gs * f3 ) END IF END DO ! lufrac Else If( f_land( c,r ) .Gt. 0.0 ) Then ! Simply weight Rst by land use Rst_min. The weighting must be done as a conductance following Ohm's law ! as the deposition pathways are in parallel max_mos_gst = Sum( Tile_Data%LUFRAC( c,r,: ) / Tile_Data%rsmin) ! Normalize to the mean meterological model grid cell value DO j = 1, Tile_Data%n_lufrac mos_gst = 1.0 / RST( c,r ) / ( max_mos_gst * Tile_Data%rsmin( j ) ) MOS_RST( c,r,j ) = 1.0 / mos_gst If( MOS_RST( c,r,j ) * MOS_LAI( c,r,j ) .Lt. Tile_Data%rsmin( j ) .And. & MOS_LAI( c,r,j ) .Gt. 0.0 ) Then MOS_RST( c,r,j ) = Tile_Data%rsmin( j ) / MOS_LAI( c,r,j ) Else If ( MOS_LAI( c,r,j ) .Eq. 0.0 ) Then ! this does not impact results but reset the RST to the maximum value if there is no veg MOS_RST( c,r,j ) = 1.0e6 End If End Do END IF ! LWMASK END DO ! rows END DO ! cols Return End Subroutine MOS_RSTW C********************************************************************************************* C MOS_CanWat C********************************************************************************************* Subroutine MOS_CanWat(MOS_VEG, MOS_LAI, WR, MOS_DELTA, WR_AVAIL, Q2, QSS_Grnd, & Rn, Rc, Wspd, Rgrnd, jdate, jtime) Use LSM_Mod Use GRID_CONF ! horizontal & vertical domain specifications Use UTILIO_DEFN Implicit None Real, Intent( In ) :: MOS_VEG( :,:,: ) Real, Intent( In ) :: MOS_LAI( :,:,: ) Real, Intent( In ) :: WR( :,: ) Real, Intent( In ) :: Q2( :,: ) Real, Intent( In ) :: QSS_Grnd( :,: ) Real, Intent( In ) :: Rn( :,: ) Real, Intent( In ) :: Rc( :,: ) Real, Intent( In ) :: Wspd( :,: ) Real, Intent( In ) :: Rgrnd( :,: ) Logical, Intent( In ) :: WR_AVAIL Integer, Intent( In ) :: jdate Integer, Intent( In ) :: jtime Real, Intent( Out ) :: MOS_DELTA( :,:,: ) Real :: rh_grnd Integer :: c,r,j ! loop induction variables Integer :: elapsedsec ! seconds from last precip IF ( .NOT. WR_AVAIL ) THEN ! approx canopy wetness - dew from Wesely ! canopy is wet if > trace precip. or moist with light winds DO r = 1, nrows DO c = 1, ncols rh_grnd = 100.0 * Q2( c,r ) / QSS_Grnd( c,r ) rh_grnd = MIN( 100.0, rh_grnd ) IF ( ( Rn( c,r ) + Rc( c,r ) .GT. 0.025 ) .OR. & ( (0.6 + Wspd( c,r ))*(100.0-rh_grnd) .LE. 19.0 ) ) THEN MOS_DELTA( c,r,: ) = 1.0 lstwetdate( c,r ) = jdate lstwettime( c,r ) = jtime ELSE IF ( Rgrnd( c,r ) .GT. 5.0 ) THEN ! day (if at night, persist delta) ! Determine if canopy was recently wet. IF ( ( lstwetdate( c,r ) .GT. 0 ) .AND. & ( lstwettime( c,r ) .GT. 0 ) ) THEN ! canopy recently wet elapsedsec = secsdiff ( lstwetdate( c,r ), & lstwettime( c,r ), & jdate, jtime ) IF ( ( elapsedsec .GT. 0 ) .AND. ! assume canopy stays & ( elapsedsec .LE. 7200 ) ) THEN ! wet for 2 h MOS_DELTA( c,r,: ) = 1.0 ELSE IF ( ( elapsedsec .GT. 7200 ) .AND. ! ramp down DELTA & ( elapsedsec .LT. 10800 ) ) THEN ! between 2 & 3 h MOS_DELTA( c,r,: ) = ( 10800.0 - FLOAT( elapsedsec ) ) / 3600.0 ELSE MOS_DELTA( c,r,: ) = 0.0 lstwetdate( c,r ) = 0 lstwettime( c,r ) = 0 END IF END IF END IF END IF End Do ! col End Do ! row Where ( MOS_LAI .LE. 0.0 ) MOS_DELTA = 0.0 End Where Else DO j = 1, Tile_Data%n_lufrac Where ( ( WR .LE. 0.0 ) .or. ( MOS_LAI(:,:,j) .LE. 0.0 ) ) MOS_DELTA( :,:,j ) = 0.0 Elsewhere( Tile_Data%LUFRAC( :,:,j ) .Gt. 0.0 ) MOS_DELTA( :,:,j ) = WR / ( 0.2e-3 * MOS_VEG(:,:,j) * MOS_LAI(:,:,j) ) ! refer to SiB model End Where End Do End If Where( MOS_DELTA .GT. 1.0 ) MOS_DELTA = 1.0 ElseWhere( MOS_DELTA .LT. 0.0 ) MOS_DELTA = 0.0 End Where Return End Subroutine MOS_CanWat End Module Mosaic_Mod ================================================ FILE: CCTM/src/depv/stage/NH3_BIDI_MOD.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! !::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: Module NH3_Bidi_Mod ! Contains the shared variables and subroutines needed for the bidirectional ! NH3 flux model in CMAQ ! ! INIT_NH3_BiDi - Initializes the NH3 flux routines, allocates arrays, reads in ! initial soil NH3 & H concentrations, and fertilizer application ! amounts and timing for the model run ! ! Revision History: J. Bash Dec 08 10: Created ! J. Bash May 11 11: Updated for CMAQ 5.0 ! J.Young Oct 26 11: KIND=16->KIND=8 for Portland Group compiler (pgi) ! IsNaN function " " " " ! (This Module must be compiled w/ -Kieee if pgi) ! J. Bash Jan 31 12: New daily EPIC output now includes soil NH3 from ! mineralization of organic and no longer includes ! the monthly fertilizer totals. The initialization ! of soil NH3 was rewritten to reflect this. ! J. Bash Apr 19 12: Set bounds on the soil moisture from the met. model ! to be between saturation and residual soil moisture ! to avoid errors in the soil resistance from rounding ! errors. Corrected a units conversion error in the ! coupling of the soil NH4 to the atmospheric NH3. ! This will maintain a better mass balance and have ! a small impact on the model results ~ 1% of the ! ambient NH3 concentrations. ! J. Bash Apr 19 12: The apoplast compensation point for agricultural land use ! is now a function of the soil ammonium concentration ! following Massad et al. 2010 doi:10.5194/acp-10-10359-2010 ! J. Bash Aug 29 12: The subroutine was modified to utilize new EPIC output that ! estimates the ammonium content of fertilizer applied to the ! 1cm and 5cm soil layers. ! D. Schwede Sept 12 12: Added code for NLCD40 land use classification ! J. Bash Apr 4 13: Brought in new water, agriculture and snow land use ! classification in LSM_MOD to simplify the case structures C J. Bash: Nov 7 14: Modified for the restructuring of vidff. ! D. Wong: Feb 10 19: Implemented centralized I/O approach, removed all MY_N clauses C------------------------------------------------------------------------------- Use, intrinsic :: ieee_arithmetic, only: isnan => ieee_is_nan Implicit None ! shared variables Real, Save, Allocatable :: frac_ir( :,: ) ! irrigated fraction of ag ! Private variables used in this module and subroutines Real, Save, Private :: C_gam ! Canadian fertilizer facter Real, Parameter, Private :: maxgam = 2.0e5 ! maximum soil gamm. It is assumed that any excess NH4 would from salts ! variables for STAGE bidi NH3 Real, Save, Allocatable, Private :: frac_ag( :,: ) ! fraction of ag Real, Save, Allocatable, Private :: knit1 ( :,: ) ! EPIC Grid nitrificaiton rate Real, Save, Allocatable, Private :: knit2 ( :,: ) ! EPIC Grid nitrification rate Real, Save, Allocatable, Private :: NH4_G1 ( :,: ) ! EPIC Grid soil ammonium Real, Save, Allocatable, Private :: NH4_G2 ( :,: ) ! EPIC Grid soil ammonium Real, Save, Allocatable, Private :: BDs1 ( :,: ) ! mean ag soil bulk density kg/ha Real, Save, Allocatable, Private :: BDs2 ( :,: ) ! mean ag soil bulk density kg/ha Real, Save, Private :: wg ! Soil moisture for biogeochemical calcs Real, Save, Private :: zsoil ! Soil depth for biogeochemical calcs Contains !------------------------------------------------------------------------------ ! STAGE option NH3 bidi initialization !------------------------------------------------------------------------------ Subroutine Init_NH3_Bidi( jdate, jtime) Use HGRD_DEFN ! horizontal grid specifications Use UTILIO_DEFN Use Bidi_Mod, Only: gamma1, gamma2, MHp1, MHp2 Use ASX_DATA_MOD, Only: zsoil1, zsoil2, Grid_Data Use LSM_MOD Use depv_data_module Use centralized_io_module Implicit None ! Includes Include SUBST_CONST ! constants Include SUBST_FILES_ID ! file name parameters ! Local Variables Integer, Intent( In ) :: jdate Integer, Intent( In ) :: jtime Integer :: c,r,l,k Integer :: ALLOCSTAT Real, Parameter :: convl1 = 7.142857e-04 ! ha/m**2 * mol/g N * 1/z_soil_l1 Real, Parameter :: convl2 = 7.142857e-05 ! ha/m**2 * mol/g N * 1/z_soil_l2 Real :: pHfac1 Real :: pHfac2 ! STAGE bidi variables Real, Allocatable :: L1_MIN ( :,:,: ) ! Epic Layer 1 organic N mineralization Real, Allocatable :: L2_MIN ( :,:,: ) ! Epic Layer 2 organic N mineralization Real, Allocatable :: C_knit1 ( :,:,: ) ! EPIC Crop nitrificaiton rate Real, Allocatable :: C_knit2 ( :,:,: ) ! EPIC Crop nitrification rate Real, Allocatable :: fagam1 ( :,: ) ! delta gamma due to fertilizer app and mineralization Real, Allocatable :: fagam2 ( :,: ) ! delta gamma due to fertilizer app and mineralization Character( 16 ), Parameter :: pname = 'Init_NH3_Bidi' Character( 96 ) :: xmsg = ' ' ! Find the Canadian fertilizer factor based off of Sheppard et al 2010 Canadian J. Soil Sci. & ! Zhang et al. 2010 JGR Select Case( jdate ) Case( 60:90 ) C_gam = 811.5 Case( 91:120 ) C_gam = 3447.3 Case( 121:151 ) C_gam = 8702.8 Case( 152:181 ) C_gam = 1269.3 Case( 182:212 ) C_gam = 667.1 Case( 213:243 ) C_gam = 704.2 Case( 244:273 ) C_gam = 811.5 Case( 274:304 ) C_gam = 1376.7 Case( 305:334 ) C_gam = 1079.6 Case Default C_gam = 630.0 End Select Allocate( L1_MIN ( ncols,nrows,e2c_cats ), & L2_MIN ( ncols,nrows,e2c_cats ), & C_Knit1 ( ncols,nrows,e2c_cats ), & C_Knit2 ( ncols,nrows,e2c_cats ), & STAT = ALLOCSTAT ) If ( ALLOCSTAT .Ne. 0 ) Then XMSG = 'Failure allocating EPIC vars' Call M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) End If L1_MIN = 0.0 L2_MIN = 0.0 C_Knit1 = 0.0 C_Knit2 = 0.0 Beld_ag = 0.01 * Beld_ag ! convert to fraction ! Allocate variable needed soil processes and fertilization Allocate( fagam1 ( ncols,nrows ), & fagam2 ( ncols,nrows ), & MHp1 ( ncols,nrows ), & MHp2 ( ncols,nrows ), & BDs1 ( ncols,nrows ), & BDs2 ( ncols,nrows ), & Knit1 ( ncols,nrows ), & Knit2 ( ncols,nrows ), & NH4_G1 ( ncols,nrows ), & NH4_G2 ( ncols,nrows ), & frac_ir ( ncols,nrows ), & frac_ag ( ncols,nrows ), & STAT = ALLOCSTAT ) If ( ALLOCSTAT .Ne. 0 ) Then XMSG = 'Failure allocating soil vars' Call M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) End If fagam1 = 0.0 fagam2 = 0.0 MHp1 = 0.0 MHp2 = 0.0 BDs1 = 0.0 BDs2 = 0.0 Knit1 = 0.0 Knit2 = 0.0 NH4_G1 = 0.0 NH4_G2 = 0.0 frac_ir = 0.0 frac_ag = 0.0 ! EPIC v1.4 does not always correctly write out m3badval in areas where there is no data. In these cases, ! EPIC writes out large negative values which can cause issues with the bidirectional exchange numerics. ! The following variables should always be positive and a floor of 0.0 is now set to mitigate numerical issues. Where( isnan( Nit1 ) ) Nit1 = 0.0 Where( isnan( Nit2 ) ) Nit2 = 0.0 Where( isnan( F1_NH4 ) ) F1_NH4 = 0.0 Where( isnan( F2_NH4 ) ) F2_NH4 = 0.0 Where( isnan( NH4ps1 ) ) NH4ps1 = 0.0 Where( isnan( NH4ps2 ) ) NH4ps2 = 0.0 Where( isnan( pHs1 ) ) pHs1 = 0.0 Where( isnan( pHs2 ) ) pHs2 = 0.0 Where( Nit1 .Lt. 0.0 ) Nit1 = 0.0 Where( Nit2 .Lt. 0.0 ) Nit2 = 0.0 Where( F1_NH4 .Lt. 0.0 ) F1_NH4 = 0.0 Where( F2_NH4 .Lt. 0.0 ) F2_NH4 = 0.0 Where( NH4ps1 .Lt. 0.0 ) NH4ps1 = 0.0 Where( NH4ps2 .Lt. 0.0 ) NH4ps2 = 0.0 ! get fertilizer from the previous month to estimate soil NH4+ ! time in the files is not the same If ( .Not. MEDC_AVAIL ) Then Write(Logdev,*) 'Estimating soil NHx from EPIC output' gamma1 = 0.0 gamma2 = 0.0 If ( .Not. E2C_CHEM_AVAIL ) Then xmsg = E2C_CHEM // ' file not available' Call M3exit ( pname, jdate, jtime, xmsg, xstat1 ) End If If( GMN_AVAIL ) Then ! NH4 from organic N mineralization is not layer specific in Fest-C v1.4 therefore it is allocated proportionally ! to the organic N from which it was mineralized. Where( GMN .Gt. 0.0 .And. L1_ON .Gt. 0.0 ) L1_MIN = GMN * L1_ON / ( L1_ON + L2_ON ) End Where Where( GMN .Gt. 0.0 .And. L2_ON .Gt. 0.0 ) L2_MIN = GMN * L2_ON / ( L1_ON + L2_ON ) End Where End iF ! EPIC data as simulated in FEST-C 1.3 is for the end of the day. Here we ! want to get the values at the beginning of the day. ! EPIC ammonia evasion is estimated as 5% of nitrification. We add the ! evaded ammonia and nitrification back to the soil NH3 to account for losses. F1_NH4 = Nit1 / 0.95 + L1_MIN F2_NH4 = Nit2 / 0.95 + L2_MIN ! Calculate grid cell values from the EPIC crop specific data frac_ag = sum(Beld_ag,DIM=3) Do l = 1, e2c_cats Where( pHs1(:,:,l) .Gt. 4.0 .And. pHs1(:,:,l) .Lt. 9.0 .And. Beld_ag(:,:,l) .Gt. 0.0 ) MHp1 = MHp1 + Beld_ag(:,:,l) * 10.0 ** (-pHs1(:,:,l) ) MHp2 = MHp2 + Beld_ag(:,:,l) * 10.0 ** (-pHs2(:,:,l) ) BDs1 = BDs1 + Beld_ag(:,:,l) * BDc1(:,:,l) BDs2 = BDs2 + Beld_ag(:,:,l) * BDc2(:,:,l) Knit1 = Knit1 + Beld_ag(:,:,l) * Nit1(:,:,l) Knit2 = Knit2 + Beld_ag(:,:,l) * Nit2(:,:,l) NH4_G1 = NH4_G1 + Beld_ag(:,:,l) * NH4ps1(:,:,l) NH4_G2 = NH4_G2 + Beld_ag(:,:,l) * NH4ps2(:,:,l) gamma1 = gamma1 + convl1 * NH4ps1(:,:,l) / 10.0 ** (-pHs1(:,:,l) ) * Beld_ag(:,:,l) gamma2 = gamma2 + convl2 * NH4ps2(:,:,l) / 10.0 ** (-pHs2(:,:,l) ) * Beld_ag(:,:,l) fagam1 = fagam1 + convl1 * F1_NH4(:,:,l) / 10.0 ** (-pHs1(:,:,l) ) * Beld_ag(:,:,l) fagam2 = fagam2 + convl2 * F2_NH4(:,:,l) / 10.0 ** (-pHs2(:,:,l) ) * Beld_ag(:,:,l) End Where If ( Index( Beld_Names( l ), '_ir' ) .Gt. 0 ) Then frac_ir = frac_ir + Beld_ag( :,:,l ) End If End Do Where( frac_ag .gt. 0.0 ) MHp1 = MHp1 / frac_ag MHp2 = MHp2 / frac_ag gamma1 = max(( gamma1 + fagam1 ) / frac_ag, 630.0 ) gamma2 = max(( gamma2 + fagam2 ) / frac_ag, 630.0 ) BDs1 = BDs1 / frac_ag BDs2 = BDs2 / frac_ag frac_ir = frac_ir / frac_ag End Where ! Eliminate unrealistically low bulk density Where( BDs1 .Lt. 1.0 ) BDs1 = 1.6 Where( BDs2 .Lt. 1.0 ) BDs2 = 1.6 ! prevent missmatched data between soil and daily files Where( MHp1 .Eq. 0.0 .Or. MHp2 .Eq. 0.0 ) gamma1 = 0.0 gamma2 = 0.0 End Where Where( NH4_G1 .Gt. 0.0 ) Knit1 = min(-log(NH4_G1 / (NH4_G1 + Knit1)),-log(0.5)) Elsewhere Knit1 = 0.0 End Where Where( NH4_G2 .Gt. 0.0 ) Knit2 = min(-log(NH4_G2 / (NH4_G2 + Knit2)),-log(0.5)) Elsewhere Knit2 = 0.0 End Where Else ! read If( GMN_AVAIL ) Then ! NH4 from organic N mineralization is not layer specific in Fest-C v1.4 therefore it is allocated proportionally ! to the organic N from which it was mineralized. Where( GMN .Gt. 0.0 .And. L1_ON .Gt. 0.0 .And. L2_ON .Gt. 0.0 ) L1_MIN = GMN * L1_ON / ( L1_ON + L2_ON ) L2_MIN = GMN * L2_ON / ( L1_ON + L2_ON ) End Where Else ! The organic soil change from the previous day is equal to the fertilization - mineralization ! Here we read in the previous days concentration to calculate the mineralization and add it to the NH4 pool. ! In EPIC run for CMAQ organic N mineralized goes to the NH4 pool and if mineralization is negative it is ! taken from the soil NO3 pool. A cap was placed on the maximum mineralization based on the 0.999 percentile ! from multiple years of EPIC simulations. L1_MIN = L1_ON_Yest - L1_ON - F1_ON L2_MIN = L2_ON_Yest - L2_ON - F2_ON Where( L1_MIN .Lt. 0.0 ) L1_MIN = 0.0 Else Where( L1_MIN .Gt. 0.3 ) L1_MIN = 0.3 End Where Where( L2_MIN .Lt. 0.0 ) L2_MIN = 0.0 Else Where( L2_MIN .Gt. 0.3 ) L2_MIN = 0.3 End Where End If F1_NH4 = F1_NH4 + L1_MIN F2_NH4 = F2_NH4 + L2_MIN ! Calculate grid cell values from the EPIC crop specific data frac_ag = sum(Beld_ag,DIM=3) Do l = 1, e2c_cats Where( pHs1(:,:,l) .Gt. 4.0 .And. pHs1(:,:,l) .Lt. 9.0 .And. Beld_ag(:,:,l) .Gt. 0.0 ) MHp1 = MHp1 + Beld_ag(:,:,l) * 10.0 ** (-pHs1(:,:,l) ) MHp2 = MHp2 + Beld_ag(:,:,l) * 10.0 ** (-pHs2(:,:,l) ) BDs1 = BDs1 + Beld_ag(:,:,l) * BDc1(:,:,l) BDs2 = BDs2 + Beld_ag(:,:,l) * BDc2(:,:,l) Knit1 = Knit1 + Beld_ag(:,:,l) * Nit1(:,:,l) Knit2 = Knit2 + Beld_ag(:,:,l) * Nit2(:,:,l) NH4_G1 = NH4_G1 + Beld_ag(:,:,l) * NH4ps1(:,:,l) NH4_G2 = NH4_G2 + Beld_ag(:,:,l) * NH4ps2(:,:,l) fagam1 = fagam1 + convl1 * F1_NH4(:,:,l) / 10.0 ** (-pHs1(:,:,l) ) * Beld_ag(:,:,l) fagam2 = fagam2 + convl2 * F2_NH4(:,:,l) / 10.0 ** (-pHs2(:,:,l) ) * Beld_ag(:,:,l) End Where If ( Index( Beld_Names( l ), '_ir' ) .Gt. 0 ) Then frac_ir = frac_ir + Beld_ag( :,:,l ) End If End Do Where( frac_ag .gt. 0.0 ) MHp1 = MHp1 / frac_ag MHp2 = MHp2 / frac_ag gamma1 = max( gamma1 + fagam1 / frac_ag, 630.0 ) gamma2 = max( gamma2 + fagam2 / frac_ag, 630.0 ) BDs1 = BDs1 / frac_ag BDs2 = BDs2 / frac_ag frac_ir = frac_ir / frac_ag End Where ! Eliminate unrealistically low bulk density Where( BDs1 .Lt. 1.0 ) BDs1 = 1.6 Where( BDs2 .Lt. 1.0 ) BDs2 = 1.6 ! prevent missmatched data between soil and daily files Where( MHp1 .Eq. 0.0 .Or. MHp2 .Eq. 0.0 ) gamma1 = 0.0 gamma2 = 0.0 End Where Where( NH4_G1 .Gt. 0.0 ) Knit1 = min(-log(NH4_G1 / (NH4_G1 + Knit1)),-log(0.5)) Elsewhere Knit1 = 0.0 End Where Where( NH4_G2 .Gt. 0.0 ) Knit2 = min(-log(NH4_G2 / (NH4_G2 + Knit2)),-log(0.5)) Elsewhere Knit2 = 0.0 End Where End If ! INIT_MEDC_1 Return !------------------------------------------------------------------------------ ! Error handling section !------------------------------------------------------------------------------ 1001 Continue Call M3exit( pname, jdate, jtime, xmsg, xstat1 ) C------------------------------------------------------------------------------- C Format statements. C------------------------------------------------------------------------------- 9001 Format( 'Failure reading ', a, 1x, 'from ', a ) Return End Subroutine Init_NH3_Bidi !------------------------------------------------------------------------------ ! Subroutine to get the soil and canopy compensation point for STAGE !------------------------------------------------------------------------------ Subroutine Get_NH3_Comp( NH3_st, NH3_ll, NH3_g, diff, r, c, l, l_ag ) Use UTILIO_DEFN Use Bidi_Mod, Only: gamma1, gamma2, MHp1, MHp2 Use ASX_DATA_MOD Use LSM_MOD Use MOSAIC_MOD, Only: Tile_Data Implicit None Include SUBST_FILES_ID ! file name parameters Integer, Intent( IN ) :: r, c, l ! Row, Column, Land use indices Integer, Intent( IN ) :: l_ag ! Ag index Real, Intent( IN ) :: diff ! NH3 diffusion in air m2/s Real, Intent( OUT ) :: NH3_st ! Stomatal Compensation point Real, Intent( OUT ) :: NH3_ll ! Leaf litter/under canopy Compensation point Real, Intent( OUT ) :: NH3_g ! Soil Compensation point Real :: cnh3g1, cnh3g2 ! NH3 compensation concentration for ground [ppm] Real :: cnh3ll1 ! NH3 compensation concentration for ground [ppm] Real :: mNH4 ! Soil total NH4+ mg N / Kg Real :: Ka ! NH4 acid dissociation constant Real :: coef_a ! intermediate variable to solve for soil solution NHx Real :: coef_b ! intermediate variable to solve for soil solution NHx Real :: coef_c ! intermediate variable to solve for soil solution NHx Real :: NH4_sol ! NH4+ in soil water solution mg N / kg Real :: NH3_sol ! NH3 in soil water solution mg N / kg Real :: NH3_gam_ll ! Under canopy leaf litter molar emission potential [NH3]/[H+] Real :: frac_sol ! Fraction of NHx in solution Real :: ldry1 Real :: ldry2 Real :: ldry_max Real( 8 ) :: dp Real( 8 ) :: rsoil1 Real( 8 ) :: rsoil2 Real( 8 ) :: a1 Real, Parameter :: twothree = 2.0/3.0 Real, Parameter :: onethree = 1.0/3.0 Real, Parameter :: MolN = 14.007 ! g/mol N Real :: wg_ir ! 1 cm soil moisture Real :: w5cm, cg ! soil moisture in top 5 cm (vol frc) Integer :: j ! Point were soil solution NH4 equals half the maximum sorption capacity Alnosour 2020 Bi-directional exchange of ! ammonia from soils in row crop agro-ecosystems. Dissertation. North Carolina State University ! http://www.lib.ncsu.edu/resolver/1840.20/37245 Real, Parameter :: half_sol = 124.0 ! update from NC State Alnosour Thesis ! Maximum NH4 soil sorption capacity Real, Parameter :: max_sorp = 426.0 ! update from NC State Alnosour Thesis Real, Parameter :: NH3_gam_soil = 20.0 ! bare soil water solution emission potetnial [NH3]/[H+] If( PX_LSM ) Then ! simplified from Darcy's law assuming stationarity and only gravitational draining with the Campbell hydrological functions applied ! 0.4 is the difference in the layer depths of 1cm and 5 cm w5cm = MET_DATA%SOIM1( c,r ) * exp( 0.04 * GRAV )**(1.0/GRID_DATA%BSLP( c,r )) w5cm = Min( w5cm, GRID_DATA%WSAT( c,r ) ) w5cm = Max( w5cm, GRID_DATA%WRES( c,r ) ) Else If( CLM_LSM .OR. NOAH_LSM ) Then w5cm = MET_DATA%SOIM2( c,r ) w5cm = Min( w5cm, GRID_DATA%WSAT( c,r ) ) w5cm = Max( w5cm, GRID_DATA%WRES( c,r ) ) End If ! Updated based on EPIC 5cm soil moisture estimates where the 25% percentile of the irrigated crop fractional soil moisture was ! approximately equal approximately equal to 60% of the field capacity. If ( frac_ir( c,r ) .Gt. 0.0 .And. MET_DATA%SOIM2( c,r ) .LE. 0.60 * GRID_DATA%WFC( c,r ) ) Then wg_ir = ( 1.0 - frac_ir( c,r ) ) * MET_DATA%SOIM1( c,r ) + frac_ir( c,r ) * 0.60 * GRID_DATA%WFC( c,r ) w5cm = ( 1.0 - frac_ir( c,r ) ) * w5cm + frac_ir( c,r ) * 0.60 * GRID_DATA%WFC( c,r ) Else wg_ir = MET_DATA%SOIM1( c,r ) End If wg_ir = Min( wg_ir,GRID_DATA%WSAT( c,r ) ) wg_ir = Max( wg_ir,GRID_DATA%WRES( c,r ) ) ! The following resistance parameterization is derived from measurements with soil samples of 2 cm thick (Kondo et al 1990) ! https://doi.org/10.1175/1520-0450(1990)029<0385:APOEFB>2.0.CO;2 as discussed in Sakaguchi and Zeng 2009 JGR ! https://doi.org/10.1029/2008JD010834 According to Swenson and Lawrence 2014 (https://doi.org/10.1002/2014JD022314) and the ! references therin the dry layer thickness varies from 1 to 3 cm. ldry_max = 0.02 ! From Sakaguchi and Zeng 2009 JGR Equation 10 ldry1 = ldry_max * ( Exp( ( 1.0 - wg_ir / GRID_DATA%WSAT( c,r ) ) ** 5 ) - 1.0 ) / 1.718 !> Compute compensation point. gamma is specified according to the amount of !> cultivated vegetation a1 = 161512.0d0 / real( MET_DATA%SoiT1( c,r ), 8 ) & * 10.0d0 ** ( -4507.11d0 / real( MET_DATA%SoiT1( c,r ), 8 ) ) a1 = a1 * 24.5d0 * 1.0d6 ! ppm NH3_st = a1 * Tile_Data%NH3_gam_st( l ) NH3_gam_ll = Tile_Data%NH3_gam_grnd( l ) !> Set a maximum [NH4]/[H+] ratio at 200,000 based on output from the AIM aerosol !> model any [NH4] in excess of this ratio is assumed to partition into the solid !> phase. Canada soil gamma taken from Zhang et al 2010 JGR Table 5 cnh3ll1 = 0.0 If( l .Eq. l_ag ) Then ! Use the soil ammonium sorption model of Venteria et al. Sci. Rep. doi:10.1038/srep12153 to estimate the NHx ! available for volatilization If( gamma1( c,r ) .eq. 0.0 ) Then cg = wg_ir/1.6 ! L water / kg soil mNH4 = C_gam*1.0e-7/1.6*MolN*1.0e3 ! assume a bulk density of 1.6 kg/l untill Canadian data is available Ka = 5.68853e-10*exp(-6248.151*(1.0/MET_DATA%SoiT1( c,r )-1.0/298.15)) coef_a = cg * (1.0+Ka/1.0e-7) ! assume a pH of 7 coef_b = max_sorp+cg * half_sol * (1.0+Ka/1.0e-7) - mNH4 coef_c = -half_sol * mNH4 NH4_sol = (-coef_b+sqrt(coef_b**2.0-4.0*coef_a*coef_c))/(2.0*coef_a) NH3_sol = NH4_sol*Ka/1.0e-7 ! mg N/l cnh3g1 = (NH4_sol+NH3_sol)*1.0e-3/MolN/1.0e-7 cnh3ll1 = cnh3g1 Else cg = wg_ir/BDs1( c,r ) ! L water / kg soil mNH4 = gamma1( c,r )*MHp1( c,r )/BDs1( c,r )*MolN*1.0e3 Ka = 5.68853e-10*exp(-6248.151*(1.0/MET_DATA%SoiT1( c,r )-1.0/298.15)) coef_a = cg*(1.0+Ka/MHp1( c,r )) coef_b = max_sorp+cg*half_sol*(1.0+Ka/MHp1(c,r)) - mNH4 coef_c = -half_sol*mNH4 NH4_sol = (-coef_b+sqrt(coef_b**2.0-4.0*coef_a*coef_c))/(2.0*coef_a) NH3_sol = NH4_sol*Ka/MHp1( c,r ) ! mg N/l cnh3g1 = (NH4_sol+NH3_sol)*1.0e-3/MolN/MHp1( c,r ) cnh3ll1 = cnh3g1 End If If( gamma2( c,r ) .eq. 0.0 ) Then cg = w5cm/1.6 ! L water / kg soil mNH4 = C_gam*1.0e-7/1.6*MolN*1.0e3 ! assume a bulk density of 1.6 kg/l untill Canadian data is available Ka = 5.68853e-10*exp(-6248.151*(1.0/MET_DATA%SoiT1( c,r )-1.0/298.15)) coef_a = cg*(1.0+Ka/1.0e-7) coef_b = max_sorp+cg*half_sol*(1.0+Ka/1.0e-7) - mNH4 coef_c = -half_sol*mNH4 NH4_sol = (-coef_b+sqrt(coef_b**2.0-4.0*coef_a*coef_c))/(2.0*coef_a) NH3_sol = NH4_sol*Ka/1.0e-7 ! mg N/l cnh3g2 = (NH4_sol+NH3_sol)*1.0e-3/MolN/1.0e-7!/wg_ir NH3_st = Max( NH3_st, Real( a1 ) *( C_gam * 1.0e-7 & * w5cm * MolN * zsoil2 * 1.0e4 * 12.3 + 20.3 ) ) Else cg = w5cm/BDs2( c,r ) ! L water / kg soil mNH4 = gamma2( c,r )*MHp2( c,r )/BDs2( c,r )*MolN*1.0e3 Ka = 5.68853e-10*exp(-6248.151*(1.0/MET_DATA%SoiT1( c,r )-1.0/298.15)) coef_a = cg*(1.0+Ka/MHp2( c,r )) coef_b = max_sorp+cg*half_sol*(1.0+Ka/MHp2(c,r)) - mNH4 coef_c = -half_sol*mNH4 NH4_sol = (-coef_b+sqrt(coef_b**2.0-4.0*coef_a*coef_c))/(2.0*coef_a) NH3_sol = NH4_sol*Ka/MHp2( c,r ) ! mg N/l cnh3g2 = (NH4_sol+NH3_sol)*1.0e-3/MolN/MHp2( c,r ) NH3_st = Max( NH3_st, Real( a1 ) * ( gamma2(c,r) * 1.0e-7 & * w5cm * MolN * zsoil2 * 1.0e4 * 12.3 + 20.3 ) ) End If Else cnh3ll1 = Min( NH3_gam_ll / wg_ir, maxgam ) cnh3g1 = Min( NH3_gam_soil / wg_ir, maxgam ) cnh3g2 = Min( NH3_gam_soil / w5cm, maxgam ) ! if the leaf litter is too dry use the soil value End If cnh3ll1 = a1 * Max( cnh3ll1, 0.01 ) cnh3g1 = a1 * Max( cnh3g1, 0.01 ) cnh3g2 = a1 * Max( cnh3g2, 0.01 ) If( ldry1 .Le. zsoil1 ) Then NH3_g = cnh3g1 NH3_ll = cnh3ll1 wg = wg_ir zsoil = zsoil1 Else NH3_g = cnh3g2 NH3_ll = cnh3g2 wg = w5cm zsoil = zsoil2 End If Return End Subroutine Get_NH3_Comp !------------------------------------------------------------------------------ ! Subroutine to update the soil ammonia and pH due to evasion, deposition, ! nitrification, leaching, and run off ! Soil ammonium, pH, leaching, and run off are defined in the module !------------------------------------------------------------------------------ Subroutine Calc_Nitrif ( dt, C, R, l_ag, flux_ag ) Use UTILIO_DEFN Use ASX_DATA_MOD Use Bidi_Mod, Only: gamma1, gamma2, MHp1, MHp2 Use LSM_MOD Use MOSAIC_MOD, Only: Tile_Data Implicit None Real, Intent( IN ) :: dt ! time step in s Integer, Intent( IN ) :: C ! Column Integer, Intent( IN ) :: R ! Row Integer, Intent( IN ) :: L_ag ! LU Agricuture index Real, Intent( IN ) :: flux_ag ! ag emissions ppm*m/s Real :: Kn ! nitrification rate 1/s Real :: Knit ! EPIC combined nitrification rate Real :: kn_max ! EPIC maximum nitrification rate Real :: Kvs ! Air-soil exchange rate for aqueous NH4+ Real :: MNHx ! molar soil water NH4+ + NH3 conc. Real :: pHsl ! Soil pH Real :: T_Soil ! Soil T Real :: NH3_flux ! mol/l/s emissions are positive Real :: MHp ! molar H concentration Real :: gam ! updated land use specific gamma Real :: MV_air ! Molar volume of air L/mol CHARACTER( 96 ) :: xmsg = ' ' Character( 16 ), Parameter :: pname = 'Calc_Nitrif' ! get the correct soil temp If(zsoil .Eq. zsoil1 ) Then T_Soil = MET_DATA%SoiT1( C,R ) gam = max( gamma1( C,R ), 630.0 ) MHp = MHp1( C,R ) Knit = Knit1( C,R ) gamma2( C,R ) = gamma2( C,R ) * exp( -Knit2( c,r ) * dt ) Else T_Soil = MET_DATA%SoiT2( C,R ) gam = max( gamma2( C,R ), 630.0 ) MHp = MHp2( C,R ) Knit = Knit2( C,R ) gamma1( C,R ) = gamma1( C,R ) * exp( -Knit1( c,r ) * dt ) End If ! if MHp = 0.0 then there is no EPIC data for the grid cell or is not agricultural If( MHp .Eq. 0.0 .Or. frac_ag( C,R ) .Lt. 1.0e-3 ) Return ! Note that the kg to g and m3 to L units cancel MV_air = MWAIR / MET_DATA%DENS1( C,R ) ! convert deposition from ppmv m/s to mol/l/s NH3_flux = flux_ag * 1.0e-6 / MV_air / zsoil ! Get the soil pH pHsl = -log10( MHp ) ! get NH4+ from gamma ([NH4+]/[H+] with units in mol/l) MNHx = gam * MHp ! Estimate the soil evasion rate assuming that the flux = MNHx*(1-exp(-kvs*dt)) where dt = 1 s and the flux is negative for deposition to the ! soil and positive for evasion from the soil. If( NH3_flux .lt. 0.0 ) Then Kvs = 0.0 ! In epic the nitrification and evasion rates are added in a combined nitrification/evasion rate. ! Then the emissions are assumed to be 5% of the total combined loss. Here we calcuate the nitrification/evasion rate as in EPIC and then the ! maximum rate is adjusted for the EPIC evasion because we will calculate the evasion seperately and add the rate to ! EPIC nitrification. ! EPIC estimates a combined evasion and nitrification rate with a maximum user specified rate. Here we subtract the CMAQ evasion rate from the ! EPIC nitrification rate to ensure that the maximum rate is retained. Kn = Knit/24.0/3600.0 If ( Frac_ag( c,r ) .Gt. 0.0 ) Then If ( Kn .Gt. 0.0 ) Then MNHx = -NH3_flux / Kn + ( MNHx + NH3_flux / Kn ) * exp( -Kn * dt ) End If gam = MNHx / MHp Else gam = Tile_Data%NH3_gam_grnd( L_Ag ) End If Else ! evasion Kvs = -log(1.0-NH3_flux/MNHx) ! In epic the nitrification and evasion rates are added in a combined nitrification/evasion rate. ! Then the emissions are assumed to be 5% of the total combined loss. Here we calcuate the nitrification/evasion rate as in EPIC and then the ! maximum rate is adjusted for the EPIC evasion because we will calculate the evasion seperately and add the rate to ! EPIC nitrification. Kn = Knit/24.0/3600.0 + Kvs If ( Frac_ag( c,r ) .Gt. 0.0 ) Then If ( Kn .Gt. 0.0 ) Then MNHx = MNHx * exp( -Kn * dt ) End If gam = MNHx / MHp Else gam = Tile_Data%NH3_gam_grnd( L_Ag ) End If End If ! Update soil concentrations If(zsoil .Eq. zsoil1 ) Then gamma1( C,R ) = gam Else gamma2( C,R ) = gam End If If ( isnan( gam ) ) Then xmsg = 'NaN in Gamma Calculation' Write( logdev,* ) 'MNHx :', MNHx Write( logdev,* ) 'gam :', gam Write( logdev,* ) 'MHp :', MHp Write( logdev,* ) 'wg :', wg Write( logdev,* ) 'wres :', GRID_DATA%WRES( c,r ) Write( logdev,* ) 'wsat :', GRID_DATA%WSAT( c,r ) Write( logdev,* ) 'wfc :', GRID_DATA%WFC( c,r ) Write( logdev,* ) 'wwlt :', GRID_DATA%WWLT( c,r ) Write( logdev,* ) 'kvs :', kvs Write( logdev,* ) 'kn :', kn Write( logdev,* ) 'zsoil :', zsoil Write( logdev,* ) 'frac_ag:', frac_ag( c,r ) Call M3exit( pname, 0, 0, xmsg, xstat1) End If Return End Subroutine Calc_Nitrif End Module NH3_Bidi_Mod ================================================ FILE: CCTM/src/depv/stage/STAGE_DATA.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: Module STAGE_DATA C----------------------------------------------------------------------- C Function: User-defined types C Revision History: C 26 June 2014 J.Bash: initial implementation Implicit None Real, Parameter, Private :: pr = 0.709 ! [dim'less] Real, Parameter, Private :: twothirds = 2.0 / 3.0 INTEGER, Save :: dep_gas_all Character( 16 ), Allocatable, Save :: vd_name ( : ) ! Deposition species name Real, Allocatable, Save :: rel_rx ( : ) ! reactivity relative to HNO3 Real, Allocatable, Save :: LeBasM ( : ) ! Le Bas molar volume [cm3/mol ] Real, Allocatable, Save :: f0 ( : ) ! Exception for species that Real, Allocatable, Save :: M_ac ( : ) ! Mass accommodation Coeff Real, Allocatable, Save :: molwt_all ( : ) ! Molar Weight from the namelist CHARACTER( 16 ), Allocatable, SAVE :: H_name_all ( : ) ! Henry's constant name for all species LOGICAL, Allocatable, SAVE :: USE_DEPSPC ( : ) Logical, Allocatable, Save :: asx_run_map ( : ) INTEGER, SAVE :: N_USE_DEPSPC ! number of gas species used in this simulation CHARACTER( 16 ), Parameter :: DEPV_METHOD = 'STAGE' Contains SUBROUTINE Map_STAGE( N_DEPV_NAMES, DEPV_NAMES, DEPV_SUR ) USE CGRID_SPCS ! CGRID mechanism species USE UTILIO_DEFN USE RUNTIME_VARS, ONLY: STAGECTRL, LOGDEV!, log_message, log_subheading IMPLICIT NONE INTEGER, INTENT( IN ) :: N_DEPV_NAMES ! number of unique dep vel species CHARACTER( 16 ), INTENT( INOUT ) :: DEPV_NAMES( : ) ! names of dep vel species INTEGER, INTENT( OUT ) :: DEPV_SUR( : ) ! pointers to model species for ! calculated deposition velocities ! (surrogate dep vels [m/s**2]) Integer :: c, r, l, n, s, v INTEGER :: STRT, FINI Integer :: ALLOCSTAT INTEGER :: DEPCTRL_NML INTEGER :: STAT CHARACTER( 16 ), ALLOCATABLE :: gc_depv_name( : ) CHARACTER( 16 ) :: VNAME ! scratch string CHARACTER( 16 ) :: PNAME = 'Map_STAGE' CHARACTER( 120 ) :: XMSG = ' ' Logical :: n_xref_end Integer, Parameter :: n_max_depv = 300 Type :: Chem_Data_Type Character( 16 ) :: vd_name Real :: rel_rx ! reactivity relative to HNO3 Real :: f0 ! Exception for species that Real :: LeBasM ! Le Bas molar volume [cm3/mol ] Real :: M_ac ! Mass accommodation Coeff End Type Chem_Data_Type Type( Chem_Data_Type ) :: STAGE_CHEM_DATA( n_max_depv ) NAMELIST / STAGE_DATA / STAGE_CHEM_DATA STAGE_CHEM_DATA%vd_name = 'N/A' STAGE_CHEM_DATA%rel_rx = 0.0 STAGE_CHEM_DATA%f0 = 0.0 STAGE_CHEM_DATA%LeBasM = 0.0 STAGE_CHEM_DATA%M_ac = 0.0 ! Retrieve the Name of the Deposition Control File IF ( STAGECTRL .EQ. "STAGECTRL_NML" ) THEN WRITE( LOGDEV, "(5x,A,/,5x,A,/,5x,A)"), & 'You have chosen not to indicate the location of an', & 'STAGE deposition Control namelist file. Default ', & 'settings will be assumed.' RETURN END IF ! Open Deposition Control Namelist File DEPCTRL_NML = JUNIT() OPEN( FILE = STAGECTRL, UNIT = DEPCTRL_NML, STATUS = 'OLD', & POSITION = 'REWIND', FORM='FORMATTED', IOSTAT = STAT ) ! Check for Error in File Open Process IF ( STAT .NE. 0 ) THEN WRITE( XMSG, '(A,A,A)' ),'ERROR: Could not read ', & 'STAGE control namelist file: ',TRIM( STAGECTRL ) CALL M3EXIT( 'STAGE_LU_MAPPER',0,0,XMSG,1 ) END IF REWIND( DEPCTRL_NML ) READ( NML = STAGE_DATA, UNIT = DEPCTRL_NML, IOSTAT=STAT ) IF ( STAT .NE. 0 ) THEN WRITE( LOGDEV, "(5x,A,/,5x,A,/,5x,A,/,5x,A)" ), & 'Warning! Something went wrong while reading the ', & 'STAGE land use section of the STAGE Deposition', & 'Control Namelist. Default values for this section ', & 'will be assumed.' END IF dep_gas_all = 1 n_xref_end = .TRUE. Do While( n_xref_end ) If( STAGE_CHEM_DATA(dep_gas_all)%vd_name .Eq. 'N/A' ) Then n_xref_end = .FALSE. dep_gas_all = dep_gas_all - 1 Else dep_gas_all = dep_gas_all + 1 End If End Do ! Allocate Chem Data ALLOCATE ( vd_name ( dep_gas_all ), & rel_rx ( dep_gas_all ), & LeBasM ( dep_gas_all ), & f0 ( dep_gas_all ), & M_ac ( dep_gas_all ), & molwt_all ( dep_gas_all ), & H_name_all ( dep_gas_all ), & USE_DEPSPC ( dep_gas_all ), & asx_run_map ( dep_gas_all ), & gc_depv_name( dep_gas_all ),STAT = ALLOCSTAT ) If ( ALLOCSTAT .Ne. 0 ) Then XMSG = 'Failure allocating chemical deposition parameters ' Call M3EXIT( PNAME, 0, 0, XMSG, XSTAT1 ) End If ! load arrays from STAGE namelist data vd_name = STAGE_CHEM_DATA(1:dep_gas_all)%vd_name rel_rx = STAGE_CHEM_DATA(1:dep_gas_all)%rel_rx f0 = STAGE_CHEM_DATA(1:dep_gas_all)%f0 LeBasM = STAGE_CHEM_DATA(1:dep_gas_all)%LeBasM M_ac = STAGE_CHEM_DATA(1:dep_gas_all)%M_ac ! Initialize arrays to be populated by MECH namelist data molwt_all = 0.0 asx_run_map = .FALSE. gc_depv_name = 'None' H_name_all = 'None' Do v = 1, N_GC_DEPV s = index1( gc_depv( v ),dep_gas_all,'VD_'//vd_name ) If( s .Gt. 0.0 ) Then molwt_all( s ) = gc_molwt( gc_depv_map( v ) ) gc_depv_name( s ) = gc_spc( gc_depv_map( v ) ) asx_run_map( s ) = .TRUE. End If End Do Do v = 1, N_GC_SCAV s = index1(gc_spc(gc_scav_map(v)),dep_gas_all,gc_depv_name) if( s .Gt. 0.0 ) Then H_name_all( s ) = gc_scav(v) End if End Do Do v = 1, N_NR_DEPV s = index1( nr_depv( v ),dep_gas_all,'VD_'//vd_name ) If( s .Gt. 0.0 ) Then molwt_all( s ) = nr_molwt( nr_depv_map( v ) ) gc_depv_name( s ) = nr_spc( nr_depv_map( v ) ) asx_run_map( s ) = .TRUE. End If End Do Do v = 1, N_NR_SCAV s = index1(nr_spc(nr_scav_map(v)),dep_gas_all,gc_depv_name) if( s .Gt. 0.0 ) Then H_name_all( s ) = nr_scav(v) End if End Do Do v = 1, N_TR_DEPV s = index1( tr_depv( v ),dep_gas_all,'VD_'//vd_name ) If( s .Gt. 0.0 ) Then molwt_all( s ) = tr_molwt( tr_depv_map( v ) ) gc_depv_name( s ) = tr_spc( tr_depv_map( v ) ) asx_run_map( s ) = .TRUE. End If End Do Do v = 1, N_TR_SCAV s = index1(tr_spc(tr_scav_map(v)),dep_gas_all,gc_depv_name) if( s .Gt. 0.0 ) Then H_name_all( s ) = tr_scav(v) End if End Do ! Map the deposition surrogate species IF ( ( N_GC_SPC + N_NR_SPC + N_TR_SPC ) .LE. 0 ) THEN XMSG = 'Model not compiled for gases' CALL M3EXIT ( PNAME, 0, 0, XMSG, XSTAT1 ) END IF C Set up names and indices N_USE_DEPSPC = 0 USE_DEPSPC = .FALSE. ! array C Set up the DEPV pointers to calculated deposition velocities DO V = 1, N_DEPV_NAMES VNAME = DEPV_NAMES( V )( 4:LEN_TRIM( DEPV_NAMES( V ) ) ) N = INDEX1( VNAME, dep_gas_all, vd_name ) IF ( N .NE. 0 ) THEN IF ( .NOT. USE_DEPSPC( N ) ) THEN USE_DEPSPC( N ) = .TRUE. N_USE_DEPSPC = N_USE_DEPSPC + 1 END IF ELSE XMSG = 'Could not find ' // TRIM( DEPV_NAMES( V ) ) // & ' in ' // TRIM( DEPV_METHOD ) // & ' surrogate table.' CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT1 ) END IF END DO C Sort DEPV_NAMES based on the order in DEPSPC (DEPVVARS module) N = 0 DO V = 1, dep_gas_all IF ( USE_DEPSPC( V ) ) THEN N = N + 1 VNAME = 'VD_' // vd_name( V )( 1:LEN_TRIM( vd_name( V ) ) ) DEPV_NAMES( N ) = VNAME END IF END DO C Locate model species' DEPVs in the unique DEPV_NAMES list DO V = 1, N_GC_DEPV VNAME = GC_DEPV( V ) N = INDEX1( VNAME, N_DEPV_NAMES, DEPV_NAMES ) IF ( N .NE. 0 ) THEN DEPV_SUR( V ) = N ELSE XMSG = 'Could not find ' // TRIM( GC_DEPV( V ) ) & // ' in STAGE Deposition Namelist.' CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT1 ) END IF END DO STRT = N_GC_DEPV + 1 FINI = N_GC_DEPV + N_NR_DEPV DO V = STRT, FINI VNAME = NR_DEPV( V - ( STRT-1 ) ) N = INDEX1( VNAME, N_DEPV_NAMES, DEPV_NAMES ) IF ( N .NE. 0 ) THEN DEPV_SUR( V ) = N ELSE XMSG = 'Could not find ' // TRIM( NR_DEPV( V ) ) & // ' in STAGE Deposition Namelist.' CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT1 ) END IF END DO STRT = N_GC_DEPV + N_NR_DEPV + 1 FINI = N_GC_DEPV + N_NR_DEPV + N_TR_DEPV DO V = STRT, FINI VNAME = TR_DEPV( V - (STRT-1) ) N = INDEX1( VNAME, N_DEPV_NAMES, DEPV_NAMES ) IF ( N .NE. 0 ) THEN DEPV_SUR( V ) = N ELSE XMSG = 'Could not find ' // TRIM( TR_DEPV( V ) ) & // ' in STAGE Deposition Namelist.' CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT1 ) END IF END DO Write(Logdev,*) '*********************** STAGE Deposition Map ***********************' Write(Logdev,99901) 'Dep. Species', 'H Surrogate', 'Mol Weight' Do v = 1, dep_gas_all If( asx_run_map (v) ) Write(Logdev,99902) gc_depv_name( v ), H_name_all(v), molwt_all(v) End Do Return 99901 Format(A16,1x,A16,1x,A16) 99902 Format(A16,1x,A16,10x,F6.2) End Subroutine Map_Stage End Module Stage_Data ================================================ FILE: CCTM/src/depv/stage/STAGE_FUNCTIONS.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! Module Resist_Funcs !::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: ! This module contains functions and subroutines to calculate variables ! used to estimate the air-surface exchange using the STAGE deposition option !::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: Use ASX_DATA_MOD, only:pr, twothirds Implicit None Real, Parameter, Private :: a0 = 8.0 ! [dim'less] Contains !-------------------------------------------------------------------------------------------------- ! Calculate soil dry diffusive length until saturation !-------------------------------------------------------------------------------------------------- Pure Function Calc_ldry( sm_v1cm, sm_v5cm, sm_vsat, zsoil1 ) Result( ldry ) Implicit None Real, Intent( IN ) :: sm_v1cm ! Volumetric soil moisture at -1 cm (m3/m3) Real, Intent( IN ) :: sm_v5cm ! Volumetric soil moisture at -5 cm (m3/m3) Real, Intent( IN ) :: sm_vsat ! Volumetric soil moisture saturation point (m3/m3) Real, Intent( IN ) :: zsoil1 ! Model depth of soil layer 1 Real, Parameter :: ldry_max = 0.02 ! maximum dry diffusion length based on measurements of Kondo et al 1990 Real :: ldry ! Length of dry layer soil diffusion distance (m) ! The following resistance parameterization is derived from measurements with soil samples of 2 cm thick (Kondo et al 1990) ! https://doi.org/10.1175/1520-0450(1990)029<0385:APOEFB>2.0.CO;2 as discussed in Sakaguchi and Zeng 2009 JGR ! https://doi.org/10.1029/2008JD010834 According to Swenson and Lawrence 2014 (https://doi.org/10.1002/2014JD022314) and the ! references therein the dry layer thickness varies from 1 to 3 cm. ! From Sakaguchi and Zeng 2009 JGR Equation 10 ldry = ldry_max * ( Exp( ( 1.0 - sm_v1cm / sm_vsat ) ** 5 ) - 1.0 ) / 1.718 If(ldry .gt. zsoil1) Then ldry = zsoil1 + ( ldry_max - zsoil1 ) * ( Exp( ( 1.0 - sm_v5cm / sm_vsat ) ** 5 ) - 1.0 ) / 1.718 End If End Function Calc_ldry !-------------------------------------------------------------------------------------------------- ! Calculate Quasi-laminar boundary layer resistance to deposition to water surfaces !-------------------------------------------------------------------------------------------------- Pure Function Calc_Rbw( ustar, scc_pr_23 ) Result( Rbw ) ! Returns the quasi-laminar boundary layer resistance for a flat surface based on ! Wesely and Hicks 1977 https://doi.org/10.1080/00022470.1977.10470534 equation 13 Implicit None Real, Intent( IN ) :: ustar Real, Intent( IN ) :: scc_pr_23 Real :: Rbw Rbw = 5.0 / ustar * scc_pr_23 End Function Calc_Rbw !-------------------------------------------------------------------------------------------------- ! Calculate Resistance to deposition to surface waters ! ! References: ! Chang et al., Ozone deposition to the sea surface: chemical enhancement and wind speed ! dependence, Atmos. Environ., 38(7), 1053-1059, https://doi.org/10.1016/j.atmosenv.2003.10.050, ! 2004 ! Garland et al., The mechanism for dry deposition of ozone to seawater surface, J. Geophys. Res, ! 85, 7488-7492, https://doi.org/10.1029/JC085iC12p07488, 1980 ! Hayduk, W., and H. Laudie, Prediction of diffusion coefficients for nonelectrolytes indilute ! aqueous solutions, AIChE. J., 20, 611-615, https://doi.org/10.1002/aic.690200329, 1974 ! Rebello et al., The Cycling of Iodine as Iodate and Iodide in a Tropical Estuarine System, ! Marine Chem. 29, 77-93, https://doi.org/10.1016/0304-4203(90)90007-Y, 1990 ! !-------------------------------------------------------------------------------------------------- Pure Function Calc_Rwater( ustar, q_2m, temp_2m, temp_g, tw, MVol, H, O3_Hit, & Hg_Hit, sea_ice ) Result( Rwater ) Implicit None Include SUBST_CONST ! constants Real, Intent( IN ) :: ustar ! Surface friction velocity (m/s) Real, Intent( IN ) :: q_2m ! temp water vapor mixing ratio Real, Intent( IN ) :: temp_2m ! 2m temp (K) Real, Intent( IN ) :: temp_g ! surface temp (K) Real, Intent( IN ) :: tw ! water skin temp (K) Real, Intent( IN ) :: H ! Effective Henry's Constant (unitless) Real, Intent( IN ) :: MVol ! Molar volume (LeBas) (L/mol) logical, Intent( IN ) :: O3_Hit ! O3 index logical, Intent( IN ) :: Hg_Hit ! Hg index logical, Intent( IN ) :: sea_ice ! sea ice coverage (ratio) Real, Parameter :: rt25inK = 1.0/(stdtemp + 25.0) ! 1/298.15K (1/K) Real, Parameter :: d3 = 1.38564e-2 ! Empirical coefficient (unitless) Real :: pChang, kwChang ! Air-water partitioning coefficients (unitless) Real :: ciodide, qiodide ! Iodide in sea-water based on SST (mol / L) Real :: dw25, dw, kvisw ! Trace gase diffusivity (at 25C and tw) in water and kinematic viscosity of water (cm2/s) Real :: scw_pr_23 ! (SCC/PR)**2/3, fn of DIF0 Real :: Rwater ! Resistance of deposition to sea surfaces (s/m) ! from Hayduk and Laudie dw25 = 13.26e-5 / ( 0.8904**1.14 * MVol**0.589 ) kvisw = 0.017 * EXP( -0.025 * ( tw - stdtemp ) ) dw = dw25 * ( tw * rt25inK ) * ( 0.009025 / kvisw ) scw_pr_23 = ( ( kvisw / dw ) / pr ) ** twothirds ! All species but Hg and O3 Rwater = scw_pr_23 / ( H * d3 * ustar ) IF ( O3_Hit ) THEN !implement Chang et al(2004) c pChang is a/H or alpha/H which would be 1/H in current model c note that in Chang et al (2004) and Garland et al (1980) their H is Cair/Cwater which is c the inverse of heff pChang = 1.75 kwChang = (d3*ustar)/scw_pr_23 c If a file of chlorophyll concentrations is provided, Iodide concentrations are estimated from c a fit to the Rebello et al 1990 data. The slope and correlation are given in the paper c but not the intercept, so the data in Tables 3 & 4 were fit to get the relationship below. c The regression gives the concentration in umol/L and is converted to mol/L for use in Chang et al eq. c The slope and correlation are slightly different than in Table 5. c If chlorophyll concs are not available, a constant value for [I-] of 100e-9 mol/l is used c Use ocean file variables to determine if the water cell is ocean or lake; method is only for ocean cells IF ( sea_ice ) THEN ! O3 over sea ice Rwater = scw_pr_23 / ( H * d3 * ustar ) ELSE c Iodide in sea-water based on SST (mol /dm-3) ciodide = 1.46E6 * EXP( -9134.0 / temp_g) qiodide = sqrt( 2.0e9 * ciodide * dw * 1.0e-4 ) * H Rwater = 1.0 / ( pChang * kwchang + qiodide ) END IF End IF IF( Hg_Hit ) THEN Rwater = 1.0e6 ! surface waters are typically enriched in Hg(0) and act as an emission source END IF End Function Calc_Rwater !-------------------------------------------------------------------------------------------------- ! Calculate Resistance to deposition to ice surfaces !-------------------------------------------------------------------------------------------------- Pure Function Calc_Rice( Rx ) Result( Rice ) Implicit None Real, Intent( IN ) :: Rx ! Relative reactivivity (unitless) Real :: Rice ! Resistance of deposition to ice surfaces (s/m) Real, Parameter :: rsnow0 = 10000.0 ! Empirical scaling coefficient set to ! approximately match D Helmig et al. 2007 for O3 Rice = rsnow0 * a0 / Rx End Function Calc_Rice !-------------------------------------------------------------------------------------------------- ! Calculate resistance to snow-covered surfaces !-------------------------------------------------------------------------------------------------- Pure Function Calc_Rsnow( temp_g, snow, molwt, M_ac, heff, dif_T, rel_rx ) Result( Rsnow ) Implicit None Include SUBST_CONST ! constants Real, Intent( IN ) :: temp_g ! surface temperature (K) Real, Intent( IN ) :: snow ! snow coverage (ratio) Real, Intent( IN ) :: molwt ! molar mass (g/mol) Real, Intent( IN ) :: M_ac ! Mass accommodation coefficient (ratio) Real, Intent( IN ) :: heff ! Effective henry's constant (unitless) Real, Intent( IN ) :: dif_T ! Mass diffusivity of the trace gas (m2/s) Real, Intent( IN ) :: rel_rx ! Relative reactivivity (unitless) Real :: Rwet ! Resistance of deposition to water surfaces (s/m) Real :: Rice ! Resistance of deposition to ice surfaces (s/m) Real :: Rsnow ! Resistance of deposition to snow surfaces (s/m) Real :: melt_snow, ice_snow ! Ration of snow with semi-solid melted and ice surfaces (ratio) Real, Parameter :: rsndiff = 10.0 ! snow diffusivity fac (s/m) Rwet = Calc_Rwet( temp_g, molwt, M_ac, heff, dif_T ) Rice = Calc_Rice( rel_rx ) ! Liquid snow fraction modeled as a system dominated by van der Waals forces following Dash et al. 1999 S. Rep. Prog. Phys. ! with a maximum fraction of the disordered interface acting as an aqueous solution as 20% following Conklin et al 1993 with ! the negligible impact of the disordered interface depth of 2 nm following Roth et al 2004. The 2 nm depth was approximated ! to be around 263 degrees Celsius interpolated from figure 3 in Huthwelker et al 2006 doi:10.1021/cr020506v IF( snow .GT. 0.0 ) Then IF( stdtemp-temp_g .GT. 0.002 ) THEN melt_snow = 0.025 / (stdtemp-temp_g)**(1.0/3.0) melt_snow = MIN (melt_snow, 0.2) melt_snow = MAX (melt_snow, 0.01) ELSE melt_snow = 0.2 ENDIF Else melt_snow = 0.0 End IF ! frozen snow fraction ice_snow = 1.0 - melt_snow Rsnow = 1.0 / ( ice_snow / Rice + melt_snow / ( rsndiff + rwet ) ) End Function Calc_Rsnow !------------------------------------------------------------------------------------------------- ! Resistance to air-wet surface exchange !------------------------------------------------------------------------------------------------- Pure Function Calc_Rwet( temp_g, MW, ac, H, dif_T ) Result( Rwet ) Implicit None Include SUBST_CONST ! constants Real, Intent( IN ) :: temp_g Real, Intent( IN ) :: H Real, Intent( IN ) :: dif_T Real, Intent( IN ) :: MW Real, Intent( IN ) :: ac Real, Parameter :: rad_wat = 1.9e-4 ! water droplet radius (m) Real :: Rwet Real :: rmsv Real :: rawmt rmsv = sqrt( 3.0 * RGASUNIV * 1.0e3 * temp_g / MW) rawmt = rad_wat / dif_T + 4.0 / ( rmsv * ac ) Rwet = rawmt + rawmt/( H * rad_wat ) End Function Calc_Rwet !------------------------------------------------------------------------------------------------- ! Quasi-Laminar Resistance to leaf following Jensen and Hummelshoj 1995/1997 doi:10.1016/0168-1923(94)05083-I !------------------------------------------------------------------------------------------------- Pure Function Calc_Rb_leaf( k_vis, dif_T, ustar, l_leaf, lai ) Result( Rb_leaf ) Implicit None Real, Intent( IN ) :: k_vis Real, Intent( IN ) :: dif_T Real, Intent( IN ) :: ustar Real, Intent( IN ) :: l_leaf Real, Intent( IN ) :: lai Real :: Rb_leaf Real, Parameter :: C0 = 100.0 ! From Jensen and Hummelshoj 1997 errata ! Note that LAI**2 comes from the drag coefficient in Jensen and Hummelshoj 1995 and the ! parameterization should be divided by LAI for a bulk canopy resistance Rb_leaf = k_vis / ( dif_T * ustar * max( lai, 1.0 ) ) * & ( C0 * l_leaf * ustar / (k_vis * max(lai,1.0)**2 ) )**(1.0/3.0) End Function Calc_Rb_leaf !------------------------------------------------------------------------------------------------- ! Resistance to air-stomatal exchange !------------------------------------------------------------------------------------------------- Pure Function Calc_Rst( Rstw, dwat_T, dif_T, H, f_mes, lai ) Result( Rst ) Implicit None Real, Intent( IN ) :: Rstw Real, Intent( IN ) :: dwat_T Real, Intent( IN ) :: dif_T Real, Intent( IN ) :: H Real, Intent( IN ) :: f_mes Real, Intent( IN ) :: lai Real :: Rst Rst = Rstw * dwat_T / dif_T + 1.0 / ( H / 3000.0 + 100.0 * f_mes ) / lai End Function Calc_Rst !------------------------------------------------------------------------------------------------- ! Resistance to air-cuticular exchange !------------------------------------------------------------------------------------------------- Pure Function Calc_Rcut( temp_g, Rx, molwt, M_ac, heff, dif_T, a_cut, & snow, no_snow, dry, wet, rh, lai, O3_hit, NH3_hit, ABFLUX ) Result( Rcut ) Implicit None Real, Intent( IN ) :: temp_g Real, Intent( IN ) :: a_cut Real, Intent( IN ) :: snow Real, Intent( IN ) :: no_snow Real, Intent( IN ) :: dry Real, Intent( IN ) :: wet Real, Intent( IN ) :: rh Real, Intent( IN ) :: lai Real, Intent( IN ) :: Rx Real, Intent( IN ) :: molwt Real, Intent( IN ) :: M_ac Real, Intent( IN ) :: heff Real, Intent( IN ) :: dif_T ! Real, Intent( IN ) :: Rice ! Real, Intent( IN ) :: Rsnow Logical, Intent( IN ) :: O3_hit Logical, Intent( IN ) :: NH3_hit Logical, Intent( IN ) :: ABFLUX Real :: Rcut Real :: Rsnow Real :: rcdry Real :: rwet Real :: rh_func Real, Parameter :: rcut0 = 3000.0 ! [s/m] Real, Parameter :: rwm = 31.5 ! Minimum NH3 cuticle resistance [s/m] from Massad et al. 2010 Include SUBST_CONST ! constants C Calculate Rcut ! wet Cuticle ! If the surface is cold and wet, use dry snow. rcdry = rcut0 * a0 / Rx Rsnow = Calc_Rsnow( temp_g, snow, molwt, M_ac, heff, dif_T, Rx ) IF ( temp_g .GE. stdtemp ) THEN ! Rwet= Rwet0 Rwet = Calc_Rwet( temp_g, molwt, M_ac, heff, dif_T ) ELSE ! temp_g .Lt. stdtemp ! rwet = Rice rwet = Calc_Rice( Rx ) END IF ! temp IF ( O3_hit ) THEN ! Canopy level wet resistence Rwet to ozone was found to be about 200 s/m on basis of Keysburg exp ! Using LAI(1-sided) of about 6.25 measured at Keysburg gives leaf level rwet about 1250 s/m rwet = 1250.0 ! s/m ! Leaf level rwet estimated from Altimir et al 2006 gives about 1350 s/m ! Dry cuticle rh_func = max( 0.0,( rh - 70.0 )/30.0 ) rcdry = 1.0 / ( ( 1.0 -rh_func) / ( rcut0 * a0 / Rx ) + rh_func / rwet ) End If If ( NH3_hit .And. ABFLUX ) Then ! Massad et al. 2010 Cuticular resistance rcdry = rwm * EXP( a_cut * ( 100.0 - rh ) ) End If ! O3 Rcut = no_snow / ( lai * ( dry / rcdry + ! Dry Cuticle & wet / rwet ) ) + ! Wet Cuticle & snow * Rsnow ! Snow End Function Calc_Rcut !------------------------------------------------------------------------------------------------- ! In-Canopy Aerodynamics Resistance !------------------------------------------------------------------------------------------------- Pure Function Calc_Rinc( Ra, lai ) Result( Rinc ) Implicit None Real, Intent( IN ) :: Ra Real, Intent( IN ) :: lai Real :: Rinc ! Calculate in canopy aerodynamic resistance based on the momentum attenuation coefficient derived ! by Yi 2008 https://doi.org/10.1175/2007JAMC1667.1 Rinc = Ra * ( Exp( lai / 2.0 ) - 1.0 ) End Function Calc_Rinc !------------------------------------------------------------------------------------------------- ! Soil Quasi-laminar boundary layer Resistance !------------------------------------------------------------------------------------------------- Pure Function Calc_Rbg( k_vis, dif_T, lai, ustar ) Result( Rbg ) Implicit None Real, Intent( IN ) :: k_vis Real, Intent( IN ) :: dif_T Real, Intent( IN ) :: lai Real, Intent( IN ) :: ustar Real :: Rbg Real :: scn Real :: del0 Real :: ustg Real, Parameter :: karman = 0.4 ! add to stage data and move functions to new module STAGE_OPS C Calculate Canopy Covered Soil Resistance Nemitz et al 2000 https://doi.org/10.1016/S0168-1923(00)00206-9 ! Soil quazi laminar boundary layer resistance with canopy scn = k_vis / dif_T ! ustar at the soil surface following Yi 2008 https://doi.org/10.1175/2007JAMC1667.1 ustg = max( ustar * EXP( -lai / 2.0 ), 0.001 ) del0 = dif_T / ( karman * ustg ) Rbg = ( scn - LOG( del0 / 0.10 ) ) / ( karman * ustg ) End Function Calc_Rbg !------------------------------------------------------------------------------------------------- ! Net resistance for deposition to soil surfaces !------------------------------------------------------------------------------------------------- Pure Function Calc_Rg( dif_T, k_vis, Rx, Ra, ustar, lai, temp_g, molwt, M_ac, heff, sm_v1cm, & sm_v5cm, sm_vsat, sm_vfc, sm_vwlt, sm_vres, sm_bslp, zsoil, frac_ir, & dry, wet, snow, no_snow, O3_Hit, NH3_Hit, ABFLUX ) Result( Rgc ) Implicit None Include SUBST_CONST ! constants Real, Intent ( IN ) :: dif_T Real, Intent ( IN ) :: k_vis Real, Intent ( IN ) :: Rx Real, Intent ( IN ) :: Ra Real, Intent ( IN ) :: ustar Real, Intent ( IN ) :: lai Real, Intent ( IN ) :: temp_g Real, Intent ( IN ) :: molwt Real, Intent ( IN ) :: M_ac Real, Intent ( IN ) :: heff Real, Intent ( IN ) :: sm_v1cm Real, Intent ( IN ) :: sm_v5cm Real, Intent ( IN ) :: sm_vsat Real, Intent ( IN ) :: sm_vfc Real, Intent ( IN ) :: sm_vwlt Real, Intent ( IN ) :: sm_vres Real, Intent ( IN ) :: sm_bslp Real, Intent ( IN ) :: zsoil Real, Intent ( IN ) :: frac_ir Real, Intent ( IN ) :: dry, wet, snow, no_snow Logical, Intent( IN ) :: O3_Hit, NH3_Hit, ABFLUX Real :: Rg Real :: Rgc Real :: Rbgc Real :: Rinc Real :: Rwet Real :: Rsnow Real :: sm_v1cm_ir, sm_v5cm_ir, sm_v10cm Real :: sm_func Real :: ldry Real :: dp, rgdry Real :: p_wet ! wet soil surface Real :: p_dry ! dry soil surface Real, Parameter :: ldry_max = 0.02 Real, Parameter :: rg0 = 1000.0 ! [s/m] Rwet = Calc_Rwet( temp_g, molwt, M_ac, heff, dif_T ) Rsnow = Calc_Rsnow( temp_g, snow, molwt, M_ac, heff, dif_T, Rx ) If(ABFLUX .And. NH3_Hit) Then ! Updated based on EPIC 5cm soil moisture estimates where the 25% percentile of the irrigated crop fractional soil moisture was ! approximately equal to 60% of the field capacity. If ( frac_ir .Gt. 0.0 .And. sm_v5cm .LE. 0.60 * sm_vfc ) Then sm_v1cm_ir = ( 1.0 - frac_ir ) * sm_v1cm + frac_ir * 0.60 * sm_vfc sm_v5cm_ir = ( 1.0 - frac_ir ) * sm_v5cm + frac_ir * 0.60 * sm_vfc Else sm_v1cm_ir = sm_v1cm sm_v5cm_ir = sm_v5cm End If ! The following resistance parameterization is derived from measurements with soil samples of 2 cm thick (Kondo et al 1990) ! https://doi.org/10.1175/1520-0450(1990)029<0385:APOEFB>2.0.CO;2 as discussed in Sakaguchi and Zeng 2009 JGR ! https://doi.org/10.1029/2008JD010834 According to Swenson and Lawrence 2014 (https://doi.org/10.1002/2014JD022314) and the ! references therein the dry layer thickness varies from 1 to 3 cm. ! From Sakaguchi and Zeng 2009 JGR Equation 10 ldry = Calc_ldry( sm_v1cm_ir, sm_v5cm_ir, sm_vsat, zsoil ) dp = dif_T * sm_vsat**2 * ( 1.0 - sm_vres / sm_vsat ) ** ( 2.0 + 3.0 / sm_bslp ) rgdry = max(ldry / dp,1.0e-6) ! Assumes that the soil water is an emission source. Air-soil water gradient replaces the empirical resistance to water Rg = no_snow * rgdry + snow * Rsnow Else If ( O3_Hit ) Then ! Following based on measurements Fares et al 2014 https://doi.org/10.1016/j.agrformet.2014.08.014 for sandy soil ! forests at 10cm measured soil moisture and Fumagalli et al. 20016 https://doi.org/10.1016/j.agrformet.2016.07.011 for sandy loam soils ! Here an asymptotic function was applied to set lower and upper bounds in the resistance as reported by Fumagalli et al. 2016 sm_v10cm = min(sm_v1cm * exp( 0.09 * GRAV )**(1.0/sm_bslp), sm_vsat ) sm_func = max( tiny(0.0)**(1.0/sm_bslp) * PI , ( sm_v10cm-sm_vwlt ) / sm_vfc ) rgdry = 250.0 + 2000.0 * atan( sm_func**sm_bslp ) /PI Rg = no_snow * ( 1.0/ ( dry / rgdry + wet / rwet ) ) + snow * Rsnow Else rgdry = rg0 * a0 / Rx Rg = no_snow * ( 1.0/ ( dry / rgdry + wet / rwet ) ) + snow * Rsnow End If Rinc = Calc_Rinc( Ra, lai ) Rbgc = Calc_Rbg( k_vis, dif_T, lai, ustar ) Rgc = Rg + Rbgc + Rinc End Function Calc_Rg !------------------------------------------------------------------------------------------------- ! CMAQ v5.3 Aerosol Deposition Velocity parameterization. Note that this is the v5.3 implementation ! in the STAGE deposition option, evaluated in Appel et al. 2021 and Benish et al. 2022, and differs ! from Shu et al. in the land use tiling and implementaiton of the vegetation factor ! ! References: ! Appel, K.W., et. al., The Community Multiscale Air Quality (CMAQ) model versions 5.3 and 5.3. 1: ! system updates and evaluation. Geosci. Model Dev. 14, 2867-2897, ! https://doi.org/10.5194/gmd-14-2867-2021, 2021 ! Benish, S.E., et al., Long-term Regional Trends of Nitrogen and Sulfur Deposition in the United ! States from 2002 to 2017, Atmos. Phys. Chem. Discussions, https://doi.org/10.5194/acp-2022-201, ! 2022 ! Shu et al., Particle dry deposition algorithms in CMAQ version 5.3: characterization of critical ! parameters and land use dependence using DepoBoxTool version 1.0, Geosci. Model Dev. Discussions, ! https://doi.org/10.5194/gmd-2021-129, 2021 ! !------------------------------------------------------------------------------------------------- !------------------------------------------------------------------------------------------------- ! Aerosol surface resistance for vegetative surfaces !------------------------------------------------------------------------------------------------- Pure Function RD_Veg(Vghat, ustar, SC,l_width, lai) Result( RD ) Implicit None Include SUBST_CONST ! constants Real, Intent( IN ) :: Vghat Real, Intent( IN ) :: ustar Real, Intent( IN ) :: SC Real, Intent( IN ) :: l_width Real, Intent( IN ) :: lai Real :: RD Real :: V_fac Real :: ST Real :: EIM Real :: EIB V_fac = max( lai, 1.0 ) ST = Vghat * ustar / ( GRAV * l_width ) EIB = Calc_EIB( SC ) EIM = EIM_Veg( ST ) RD = 1.0 / ( V_fac * ustar * ( EIB + EIM ) ) End Function RD_Veg !------------------------------------------------------------------------------------------------- ! Aerosol surface resistance for water and bare soil surfaces !------------------------------------------------------------------------------------------------- Pure Function RD_Smooth(Vghat, ustar, SC, nu ) Result( RD ) Implicit None Include SUBST_CONST ! constants Real, Intent( IN ) :: Vghat Real, Intent( IN ) :: ustar Real, Intent( IN ) :: SC Real, Intent( IN ) :: nu Real :: RD Real :: ST Real :: EIM Real :: EIB ST = Vghat * ustar**2 / ( GRAV * nu ) EIB = Calc_EIB( SC ) EIM = EIM_Smooth( ST ) RD = 1.0 / ( ustar * ( EIB + EIM ) ) End Function RD_Smooth !------------------------------------------------------------------------------------------------- ! CMAQ v5.3 Aerosol Deposition Velocity parameterization. ! ! Reference: ! Venkatram, A. and Pleim, J.: The electrical analogy does not apply to modeling dry deposition of ! particles, Atmos. Environ., 33, 30753076, https://doi.org/10.1016/S1352-2310(99)00094-1, 1999. ! !------------------------------------------------------------------------------------------------- Pure Function aero_depv(veg, Ra, Vghat, ustar, SC, NU, l_aero, lai ) Result( depv ) Implicit None Real, Intent( IN ) :: veg Real, Intent( IN ) :: Ra Real, Intent( IN ) :: Vghat Real, Intent( IN ) :: ustar Real, Intent( IN ) :: SC Real, Intent( IN ) :: NU Real, Intent( IN ) :: l_aero Real, Intent( IN ) :: lai Real :: RD_Can Real :: RD_Smth Real :: depv If( veg .Gt. 0.0 ) Then RD_Can = RD_Veg( Vghat, ustar, SC,l_aero, lai) Else RD_Can = 1.0e6 End If RD_Smth = RD_Smooth(Vghat, ustar, SC, NU ) depv = veg * Vghat / ( 1.0 - EXP( -Vghat * ( Ra + RD_Can ) ) ) + & ( 1.0 - veg ) * Vghat / ( 1.0 - EXP( -Vghat * ( Ra + RD_Smth ) ) ) End Function aero_depv !------------------------------------------------------------------------------------------------- ! Brownian Diffusion Collection Efficiency !------------------------------------------------------------------------------------------------- Pure Function Calc_EIB( SC ) Result( EIB ) Implicit None Real, Intent( IN ) :: SC Real :: EIB EIB = SC ** (-twothirds) End Function Calc_EIB !------------------------------------------------------------------------------------------------- ! Impaction Collection Efficiency for vegetation following Slinn 1982 !------------------------------------------------------------------------------------------------- Pure Function EIM_Veg( ST ) Result( EIM ) Implicit None Real, Intent( IN ) :: ST Real :: EIM EIM = ST**2 / ( 1.0 + ST**2 ) ! Slinn 1982 equation 28 End Function EIM_Veg !------------------------------------------------------------------------------------------------- ! Impaction Collection Efficiency for water and soil surfaces following Giorgi 1986 !------------------------------------------------------------------------------------------------- Pure Function EIM_Smooth( ST ) Result( EIM ) Implicit None Real, Intent( IN ) :: ST Real :: EIM EIM = ST**2 / ( 400.0 + ST**2 ) ! Giorgi 1986 Equation 17 End Function EIM_Smooth !------------------------------------------------------------------------------------------------- ! Aerosol Dry Deposition Code Following ! Emerson et al 2020 PNAS https://www.pnas.org/cgi/doi/10.1073/pnas.2014761117 ! ! This code follows the Emerson et al 2020 parameterization with modifications to account for ! seasonality due to changing LAI and continuous scaling from vegetated to non-vegetated surfaces ! This parmaterization matches Emerson et al 2020 when LAI is approximately 5 for vegetation ! categories and for non-vegitated surfaces. ! ! Refernces: ! Emerson et al., Revisiting particle dry deposition and its role in radiative effect estimates, ! Proc. Natl. Acad. Sci., 117, 26076-26082, https://www.pnas.org/cgi/doi/10.1073/pnas.2014761117, ! 2020 ! Zhang et al. A size-segregated particle dry depositionscheme for an atmospheric aerosol module. ! Atmos. Environ.35, 549560, https://doi.org/10.1016/S1352-2310(00)00326-5, 2001 !------------------------------------------------------------------------------------------------- ! Aerosol surface resistance for vegitative surfaces !------------------------------------------------------------------------------------------------- Pure Function RD_Veg_E20(Vghat, ustar, SC,l_width, lai, Dp, wet, Alpha, EINHAT) Result( RD ) Implicit None Include SUBST_CONST ! constants Real, Intent( IN ) :: Vghat Real, Intent( IN ) :: ustar Real, Intent( IN ) :: SC Real, Intent( IN ) :: l_width Real, Intent( IN ) :: lai Real, Intent( IN ) :: alpha Real, Intent( IN ) :: Dp Real, Intent( IN ) :: wet Real, Intent( IN ) :: EINHAT Real :: RD Real :: veg_ustar ! intgrated lai * ustar through the canopy is equal to 3 * ustar at lai = 5.5 Real :: ST Real :: EIM ! Impaction Collection Efficiency for vegetation following Emerson et al. 2020 Real :: EIN ! Interception Collection Efficiency for vegetation following Emerson et al 2020 Real :: EIB ! Brownian Diffusion Collection Efficiency Following Emerson et al. 2020 Real :: R1 ! collection efficiency following Slinn 1982 ! Integration of lai(z)/hc u*(z) from 0 to hc. veg_ustar = max((4.0 - (2.0 * lai + 4.0) * exp( -lai/2.0 )) * ustar, 1.0e-3) ! Replaces the constant 3 in Zhang et 2001 ST = Vghat * ustar / ( GRAV * l_width ) R1 = max( Exp( -SQRT( ST ) ), 1.0e-20) ! only apply to particles with diameter larger than 5 um Zhang et al 2001 EIB = Calc_EIB_E20( SC ) EIN = EIN_Veg_E20( Dp, l_width ) * EINHAT EIM = EIM_Veg_E20( ST, alpha ) RD = 1.0 / ( wet * ( veg_ustar * ( EIB + EIN + EIM ) ) + ! Wet surface & (1.0 - wet) * ( veg_ustar * ( EIB + EIN + EIM ) * R1 ) ) ! Dry surface End Function RD_Veg_E20 !------------------------------------------------------------------------------------------------- ! Aerosol surface resistance for water and bare soil surfaces !------------------------------------------------------------------------------------------------- Pure Function RD_Smooth_E20(Vghat, ustar, lai, SC, nu, wet ) Result( RD ) Implicit None Include SUBST_CONST ! constants Real, Intent( IN ) :: Vghat Real, Intent( IN ) :: ustar Real, Intent( IN ) :: lai Real, Intent( IN ) :: SC Real, Intent( IN ) :: nu Real, Intent( IN ) :: wet Real :: ustg ! ustar at ground = ustar if lai=0 Real :: RD Real :: ST Real :: EIM Real :: EIB Real :: R1 ustg = max( ustar * exp( -lai/2.0 ), 0.001 ) ST = Vghat * ustg**2 / ( GRAV * nu ) R1 = max( Exp( -SQRT( ST ) ), 1.0e-20) ! only apply to particles with diameter larger than 5 um Zhang et al 2001 EIB = Calc_EIB_E20( SC ) EIM = EIM_SMOOTH_E20( ST ) RD = 1.0 / ( wet * ( 3.0 * ustg * ( EIB + EIM ) ) + ! Wet surface & (1.0 - wet) * ( 3.0 * ustg * ( EIB + EIM ) * R1 ) ) ! Dry Surface End Function RD_Smooth_E20 !------------------------------------------------------------------------------------------------- ! Aerosol Deposition Velocity !------------------------------------------------------------------------------------------------- Pure Function aero_depv_E20(veg, lai, Ustar, Ra, wet, l_aero, Alpha, DG, SC, NU, VGHAT, EINHAT) & Result( depv ) Implicit None Real, Intent( IN ) :: veg Real, Intent( IN ) :: lai Real, Intent( IN ) :: Ustar Real, Intent( IN ) :: Ra Real, Intent( IN ) :: wet Real, Intent( IN ) :: l_aero Real, Intent( IN ) :: Alpha Real, Intent( IN ) :: DG Real, Intent( IN ) :: SC Real, Intent( IN ) :: NU Real, Intent( IN ) :: Vghat Real, Intent( IN ) :: EINHAT ! interception modal integration term Real :: depv Real :: RD_VegL ! Resistance to vegetation leaves Real :: RD_VegG ! Resistance to vegetation ground Real :: RD_GW ! Resistance to non-vegetated ground or water Real :: Rc ! Two layer canopy resitance Real :: Rinc ! In canopy resistance for two layer model RD_GW = RD_Smooth_E20(VGHAT, Ustar, 0.0, SC, NU, wet ) If( lai .gt. 0.0 .and. veg .gt. 0.0 ) Then Rinc = Calc_Rinc( Ra, lai ) RD_VegL = RD_Veg_E20( Vghat, Ustar, SC,l_aero, lai, DG, wet, Alpha, EINHAT ) RD_VegG = RD_Smooth_E20(VGHAT, Ustar, lai, SC, NU, wet ) ! Resistance to: Soil Canopy Rc = 1.0 /( 1.0/(Rinc + RD_VegG) + 1.0/RD_VegL ) depv = veg * Vghat / ( 1.0 - EXP( -Vghat * ( Ra + Rc ) ) ) + & ( 1.0 - veg ) * Vghat / ( 1.0 - EXP( -Vghat * ( Ra + RD_GW ) ) ) Else depv = Vghat / ( 1.0 - EXP( -Vghat * ( Ra + RD_GW ) ) ) End If End Function aero_depv_E20 !------------------------------------------------------------------------------------------------- ! Brownian Diffusion Collection Efficiency ! Following Emerson et al 2020 PNAS https://www.pnas.org/cgi/doi/10.1073/pnas.2014761117 !------------------------------------------------------------------------------------------------- Pure Function Calc_EIB_E20( SC ) Result( EIB ) Implicit None Real, Intent( IN ) :: SC Real :: EIB Real, Parameter :: CIB = 0.2 EIB = CIB * SC ** (-twothirds) End Function Calc_EIB_E20 !------------------------------------------------------------------------------------------------- ! Impaction Collection Efficiency for vegetation ! Following Emerson et al 2020 PNAS https://www.pnas.org/cgi/doi/10.1073/pnas.2014761117 !------------------------------------------------------------------------------------------------- Pure Function EIM_Veg_E20( ST, Alpha ) Result( EIM ) Implicit None Real, Intent( IN ) :: ST Real, Intent( IN ) :: Alpha ! Zhang et al 2010 Table 3 Real :: EIM Real, Parameter :: CIM = 0.4 ! Emerson et al. 2020 (Table S1) Real, Parameter :: Beta = 1.7 EIM = CIM * ( ST /( Alpha + ST ) ) ** Beta ! Emerson et al 2020 equation 4 End Function EIM_Veg_E20 !------------------------------------------------------------------------------------------------- ! Impaction Collection Efficiency for water and soil surfaces following Giorgi 1986 !------------------------------------------------------------------------------------------------- Pure Function EIM_Smooth_E20( ST ) Result( EIM ) Implicit None Real, Intent( IN ) :: ST Real :: EIM Real, Parameter :: CIM = 0.4 ! Emerson et al 2020 (Table S1) Real, Parameter :: Alpha = 100.0 ! Zhang et al. 2001 Table 3 Real, Parameter :: Beta = 1.7 EIM = CIM * ( ST /( Alpha + ST ) ) ** Beta ! Emerson et al 2020 equation 4 End Function EIM_Smooth_E20 !------------------------------------------------------------------------------------------------- ! Interception Collection Efficiency for vegetation following Emerson et al 2020 !------------------------------------------------------------------------------------------------- Pure Function EIN_Veg_E20( Dp,l_aero ) Result( EIN ) Implicit None Real, Intent( IN ) :: Dp Real, Intent( IN ) :: l_aero Real :: EIN Real, Parameter :: CIN = 2.5 EIN = CIN * ( Dp / l_aero ) ** 0.8 ! Emerson et al 2020 equation End Function EIN_Veg_E20 !------------------------------------------------------------------------------------------------- ! Aerosol Dry Deposition Code Following ! Pleim et al 2022 ! !------------------------------------------------------------------------------------------------- !------------------------------------------------------------------------------------------------- ! Aerosol Deposition Velocity !------------------------------------------------------------------------------------------------- Pure Function aero_depv_P22(veg, lai, bai, Ustar, Ubar, Ra, Water, aleaf, ahair, fhair, SC, & NU, VGHAT, SeaIce, SST) Result( depv ) Implicit None Real, Intent( IN ) :: veg Real, Intent( IN ) :: lai Real, Intent( IN ) :: bai Real, Intent( IN ) :: Ustar Real, Intent( IN ) :: Ubar Real, Intent( IN ) :: Ra Logical, Intent( IN ) :: Water Real, Intent( IN ) :: aleaf Real, Intent( IN ) :: ahair Real, Intent( IN ) :: fhair Real, Intent( IN ) :: SC Real, Intent( IN ) :: NU Real, Intent( IN ) :: Vghat Real, Intent( IN ) :: SeaIce Real, Intent( IN ) :: SST Real :: depv Real :: RD_Can ! Resistance to vegetation leaves Real :: RD_Smth ! Resistance to vegetation ground Real :: Vdv ! Vegetation deposition velocity Real :: Vdnv ! Non-Vegetation depositon velocity Vdv = 0.0 Vdnv = 0.0 If( lai .gt. 0.0 .and. veg .gt. 0.0 ) Then RD_Can = RD_Veg_P22( Vghat, Ustar, SC, aleaf, ahair, fhair, lai ) Vdv = Vghat / ( 1.0 - EXP( -Vghat * ( Ra + RD_Can ) ) ) End If If( 1.0 - veg .gt. 0.001 ) Then RD_Smth = RD_Smooth_P22(VGHAT, Ustar, Ubar, BAI, SC, NU, SST, SeaIce, Water ) Vdnv = Vghat / ( 1.0 - EXP( -Vghat * ( Ra + RD_Smth ) ) ) End If depv = veg * Vdv + (1.0-veg)*Vdnv End Function aero_depv_P22 Pure Function RD_Veg_P22(Vghat, ustar, SC, aleaf, ahair, fhair, lai ) Result( RD ) Implicit None Include SUBST_CONST ! constants Real, Intent( IN ) :: Vghat Real, Intent( IN ) :: ustar Real, Intent( IN ) :: SC Real, Intent( IN ) :: aleaf Real, Intent( IN ) :: ahair Real, Intent( IN ) :: fhair Real, Intent( IN ) :: lai Real :: RD Real :: veg_ustar Real :: ST1 Real :: ST2 Real :: EIM Real :: EIB ! Integration of lai(z)/hc u*(z) from 0 to hc. veg_ustar = max(1.0,lai) * ustar ! Replaces the constant 3 in Zhang et 2001 ST1 = Vghat * ustar / ( GRAV * aleaf ) ST2 = Vghat * ustar / ( GRAV * ahair ) EIB = Calc_EIB_Land_P22( SC ) EIM = EIM_Veg_P22( ST1, ST2, fhair ) RD = 1.0 / ( veg_ustar * ( EIB + EIM ) ) End Function RD_Veg_P22 !------------------------------------------------------------------------------------------------- ! Aerosol surface resistance for water and bare soil surfaces !------------------------------------------------------------------------------------------------- Pure Function RD_Smooth_P22(Vghat, ustar, Ubar, BAI, SC, nu, SST, SeaIce, water ) Result( RD ) Implicit None Include SUBST_CONST ! constants Real, Intent( IN ) :: Vghat Real, Intent( IN ) :: ustar Real, Intent( IN ) :: Ubar Real, Intent( IN ) :: BAI Real, Intent( IN ) :: SC Real, Intent( IN ) :: nu Real, Intent( IN ) :: SST Real, Intent( IN ) :: SeaIce Logical, Intent( IN ) :: Water Real :: RD Real :: ST Real :: EIM Real :: EIB ST = Vghat * ustar**2 / ( GRAV * nu ) If( Water .and. SST .gt. -31.0 .And. SeaIce .lt. 0.5 ) Then EIB = Calc_EIB_Water_P22( SC, Ubar, ustar, SST ) Else EIB = Calc_EIB_Land_P22( SC ) End If EIM = EIM_SMOOTH_P22( ST ) RD = 1.0 / ( ustar * BAI * ( EIB + EIM ) ) End Function RD_Smooth_P22 !------------------------------------------------------------------------------------------------- Pure Function Calc_EIB_Land_P22( SC ) Result( EIB ) Implicit None Real, Intent( IN ) :: SC Real :: EIB Real, Parameter :: CIB = 1.0/3.0 EIB = CIB * SC ** (-twothirds) End Function Calc_EIB_Land_P22 ! For water include effects of whitecaps - Hummelshoj et al. (1992) Pure Function Calc_EIB_Water_P22( SC, Ubar, ustar, SST ) Result( EIB ) Implicit None Real, Intent( IN ) :: SC Real, Intent( IN ) :: Ubar Real, Intent( IN ) :: ustar Real, Intent( IN ) :: SST Real :: EIB Real :: alfbob Real :: awc Real :: bwc Real :: Ewc Real, Parameter :: CIB = 1.0/3.0 awc = 8.46e-5 + 1.63e-6 * SST - 3.35e-8 * SST**2 bwc = 3.354 - 0.062 * SST alfbob = awc * ( Ubar + bwc )**2 ! Albert 2016 with SST deg-C Ewc = alfbob * ustar/Ubar EIB = CIB * (1.0-alfbob) * SC ** (-twothirds) + Ewc End Function Calc_EIB_Water_P22 !------------------------------------------------------------------------------------------------- Pure Function EIM_Veg_P22( ST1, ST2, fhair ) Result( EIM ) Implicit None Real, Intent( IN ) :: ST1 Real, Intent( IN ) :: ST2 Real, Intent( IN ) :: fhair Real :: EIM EIM = ( 1.0 - fhair ) * ST1**2 /( 1.0 + ST1**2 ) + & fhair * ST2**2 /( 1.0 + ST2**2 ) End Function EIM_Veg_P22 !------------------------------------------------------------------------------------------------- Pure Function EIM_SMOOTH_P22( ST ) Result( EIM ) Implicit None Real, Intent( IN ) :: ST Real :: EIM EIM = 10.0**(-3.0/ST) End Function EIM_SMOOTH_P22 End Module Resist_Funcs ================================================ FILE: CCTM/src/depv/stage/STAGE_MOD.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: MODULE STAGE_MOD C------------------------------------------------------------------------------- C Name: Surface Tiled Aerosol and Gaseous Exchange (STAGE) C Purpose: Computes aerosol and gaseous air surface exchange for sub- C grid land use categories. All gaseous species are treated C as having bidirectional exchange following the two layer C model from Nemitz et al. 2001 and aerosol species deposition C follows Binkowski and Shankar 1995. Note that the Nemitz et al. C parameterization reduces to a standard deposition velocity C if the pollutant concentration on the leaf, in the leaf stomata, C and in the soil are zero. C C References: C Nemitz et al. 2001 Q. J. R. Meteorol. Soc DOI: 10.1002/qj.49712757306 C Binkowski and Shankar 1995 JGR DOI: 10.1029/95JD02093 C Galmarini et al. 2012 Atmos. Chem. Phys. https://doi.org/10.5194/acp-21-15663-2021 C Appel et al. 2021 Geosci. Model Dev. https://doi.org/10.5194/gmd-14-2867-2021 C Fuller et al. 1966 Ind. Eng. Chem. https://doi.org/10.1021/ie50677a007 C Massman 1999 Atmos. Environ. https://doi.org/10.1016/S1352-2310(98)00204-0 C Default variables output area weighted Vd C Optional variables output land use specific LAI, RA, U*, Z0, and Vd C C Revised: 1 Dec 2017 Original version. (J. Bash) C------------------------------------------------------------------------------- Use GRID_CONF ! horizontal & vertical domain specifications Use LSM_MOD ! Land surface data Use ASX_DATA_MOD USE UTILIO_DEFN USE CGRID_SPCS ! CGRID mechanism species USE STAGE_DATA USE AERO_DATA, Only: N_MODE USE CENTRALIZED_IO_MODULE, Only: WR_AVAIL IMPLICIT NONE C shared variables INTEGER, ALLOCATABLE, SAVE :: DEPV_SUR( : ) ! pointer to surrogate REAL, ALLOCATABLE, SAVE :: VDEP( : ) ! deposition velocity [ m/s ] REAL, ALLOCATABLE, SAVE :: VDEPJ( :,: ) ! deposition velocity [ m/s ] REAL, SAVE :: xcent REAL, SAVE :: ycent INTEGER, PARAMETER :: N_AE_DEP_SPC = 9 C land use indexes Logical, Allocatable, Save :: Water( : ) Logical, Allocatable, Save :: Ag( : ) Real, Allocatable, Save :: a_cut( : ) ! NH3 cuticular resistance exponential term Massad et al. 2010 Table 8 Integer, Save :: l_ag C gas phase species indices Integer, Save :: n_HONO ! index in depv Integer, Save :: s_HONO ! index in dep_gas_all Integer, Save :: n_NO2 ! index in depv Integer, Save :: s_NO2 ! index in dep_gas_all Integer, Save :: n_O3 ! index in depv Integer, Save :: s_O3 ! index in dep_gas_all Integer, Save :: n_NH3 ! index in depv Integer, Save :: s_NH3 ! index in dep_gas_all Integer, Save :: n_HG ! index in depv Integer, Save :: s_HG ! index in dep_gas_all Integer, Save :: n_HGII ! index in depv Integer, Save :: s_HGII ! index in dep_gas_all Integer, PRIVATE :: ALLOCSTAT CHARACTER( 96 ) :: xmsg = ' ' C Aerosol deposition arrays REAL, ALLOCATABLE, SAVE :: XXLSG( : ) ! log of standard deviation REAL, ALLOCATABLE, SAVE :: DG( : ) ! geometric mean diameter REAL, ALLOCATABLE, SAVE :: PDENS( : ) ! particle density Contains SUBROUTINE INIT_STAGE ( JDATE, JTIME ) C----------------------------------------------------------------------- C This subroutine sets up the mapping and options for the STAGE gaseous C and aerosol exchange subroutines. C----------------------------------------------------------------------- USE NH3_BIDI_MOD USE MOSAIC_MOD, Only: Tile_Data Implicit None Include SUBST_FILES_ID ! file name parameters Include SUBST_CONST ! constants C Arguments: Integer, Intent( IN ) :: JDATE, JTIME ! internal simulation date&time integer :: c, r, l, n, s, n_diag_dep CHARACTER( 16 ), PARAMETER :: pname = 'INIT_STAGE' CHARACTER( 16 ) :: gc_depv_name( dep_gas_all ) CHARACTER( 16 ) :: gc_scav_name( dep_gas_all ) Logical :: unique_gc_depv( n_gc_depv ) C Local variables: CHARACTER( 16 ) :: VDAE_NAME( N_AE_DEP_SPC )! dep vel surrogate name table C 1234567890123456 DATA VDAE_NAME( 1 ) / 'VNUMATKN ' / DATA VDAE_NAME( 2 ) / 'VNUMACC ' / DATA VDAE_NAME( 3 ) / 'VNUMCOR ' / DATA VDAE_NAME( 4 ) / 'VMASSI ' / DATA VDAE_NAME( 5 ) / 'VMASSJ ' / DATA VDAE_NAME( 6 ) / 'VMASSC ' / DATA VDAE_NAME( 7 ) / 'VSRFATKN ' / DATA VDAE_NAME( 8 ) / 'VSRFACC ' / DATA VDAE_NAME( 9 ) / 'VSRFCOR ' / xcent = real( file_xcell(f_met), 4 ) ycent = real( file_ycell(f_met), 4 ) C Check aerosol deposition options If( ( STAGE_E20 .And. STAGE_P22 ) ) Then XMSG = 'Both CTM_STAGE_E20 and CTM_STAGE_P22 aerosol dry ' // & ' deposition options were set to Y. Please select one. ' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) Else If ( STAGE_E20 .And. STAGE_S22 ) Then XMSG = 'Both CTM_STAGE_E20 and CTM_STAGE_S22 aerosol dry ' // & ' deposition options were set to Y. Please select one. ' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) Else If ( STAGE_P22 .And. STAGE_S22 ) Then XMSG = 'Both CTM_STAGE_S22 and CTM_STAGE_P22 aerosol dry ' // & ' deposition options were set to Y. Please select one. ' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) End If C if abflux this specifies soil, vegetation and water compensation points for NH3 IF ( abflux ) THEN CALL Init_NH3_Bidi( jdate, jtime ) END IF C Allocate arrays Allocate ( Water ( Tile_Data%n_lufrac ), & Ag ( Tile_Data%n_lufrac ), & a_cut ( Tile_Data%n_lufrac ),STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating Water, Ag, or a_cut' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF ALLOCATE ( VDEP( N_AE_DEP_SPC ), & VDEPJ( Tile_Data%n_lufrac,N_AE_DEP_SPC ), & DEPV_SUR( N_AE_DEPV ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating VDEP, VDEPJ, DEPV_SUR' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF ALLOCATE ( DG( N_MODE ), XXLSG( N_MODE ), PDENS( N_MODE), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating DG, XXLSG, or PDENS' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF C Set the dep vel surrogate pointers DO S = 1, N_AE_DEPV N = INDEX1( AE_DEPV( S ), N_AE_DEP_SPC, VDAE_NAME ) IF ( N .NE. 0 ) THEN DEPV_SUR( S ) = N ELSE XMSG = 'Could not find ' // AE_DEPV( S ) // ' in aerosol' // & ' surrogate table. >>> Dep vel set to zero <<< ' CALL M3WARN( PNAME, JDATE, JTIME, XMSG ) DEPV_SUR( S ) = 0 END IF END DO C----------------------------------------------------------------- C Species maps C----------------------------------------------------------------- s_HONO = 0 n_HONO = 0 s_NO2 = 0 n_NO2 = 0 s_O3 = 0 n_O3 = 0 s_NH3 = 0 n_NH3 = 0 s_HG = 0 n_HG = 0 s_HGII = 0 n_HGII = 0 n = 0 maploop: DO s = 1, dep_gas_all IF ( .NOT. asx_run_map( s ) ) CYCLE maploop n = n + 1 If ( vd_name( s ) .EQ. 'NO2' ) THEN s_NO2 = s n_NO2 = n End If If ( vd_name( s ) .EQ. 'HONO' ) THEN s_HONO = s n_HONO = n End If If ( vd_name( s ) .EQ. 'O3' ) THEN s_O3 = s n_O3 = n End If If ( vd_name( s ) .EQ. 'NH3' ) THEN s_NH3 = s n_NH3 = n End If If ( vd_name( s ) .EQ. 'HG' ) THEN s_HG = s n_HG = n End If If ( vd_name( s ) .EQ. 'HGIIGAS' ) THEN s_HGII = s n_HGII = n End If END DO maploop Water = .FALSE. Ag = .FALSE. l_ag = 0 DO l = 1, Tile_Data%n_lufrac Select Case( trim( Tile_Data%cat_lu( l ) ) ) Case( 'WATER' ) Water( l ) = .TRUE. a_cut( l ) = 0.0 Case( 'AG' ) l_ag = l ag( l ) = .TRUE. a_cut( l ) = 0.148 Case( 'AGMOS' ) ag( l ) = .TRUE. a_cut( l ) = 0.148 Case( 'HAY' ) ag( l ) = .TRUE. a_cut( l ) = 0.148 Case( 'URBAN' ) a_cut( l ) = 0.120 Case( 'DECFORB','DECFORN','EVEFORB','EVEFORN','MIXFOR') a_cut( l ) = 0.0318 Case( 'HERB','SHRUB' ) a_cut( l ) = 0.120 Case( 'GRASS' ) a_cut( l ) = 0.176 Case( 'WETLAND' ) a_cut( l ) = 0.0318 Case Default a_cut( l ) = 0.120 End Select END DO END SUBROUTINE INIT_STAGE !------------------------------------------------------------------------------ ! ******** Calculate deposition velocity for trace gas species ******** ! ! Applies Ohms law and the first Kirshhoff current law to estimate trace gase ! dry deposition velocities and canopy/vegetation/soil concentrations following ! the frame work of Nemitz et al., 2000 and Massad et al 2010 ! ! References: ! ! Nemitz et al. Resistance modelling of ammonia exchange over oilseed rape, Ag. ! Forest Met. 105, 405-425 https://doi.org/10.1016/S0168-1923(00)00206-9, 2000 ! Massad et al. Review and parameterisation of bi-directional ammonia exchange ! between vegetation and the atmosphere, Atmos. Chem. Phys., 10, 10359-10386 ! https://doi.org/10.5194/acp-10-10359-2010, 2010 !------------------------------------------------------------------------------ SUBROUTINE GAS_X( JDate, JTime, TStep, c, r, cgridl1 ) Use NH3_BIDI_MOD Use MOSAIC_MOD, Only: Tile_Data Use HGSIM Use Resist_Funcs Implicit None Integer, Intent( IN ) :: JDate, JTime, c, r ! internal simulation date&time REAL, Intent( IN ) :: cgridl1( : ) ! layer 1 concentrations REAL, Intent( IN ) :: TStep ! Time step in seconds C Parameters specific to gas_x. Currently based on m3dry but subject to change Real, Parameter :: d3 = 1.38564e-2 ! [dim'less] Real, Parameter :: hplus_ap = 1.0e-6 ! pH=6.0 leaf apoplast solution Ph (Massad et al 2008) Real, Parameter :: hplus_def = 1.0e-5 ! pH=5.0 Real, Parameter :: hplus_east = 1.0e-5 ! pH=5.0 Real, Parameter :: hplus_h2o = 7.94328e-9 ! 10.0**(-8.1) Real, Parameter :: hplus_west = 3.16228e-6 ! 10.0**(-5.5) C Fuller-Schettler-Giddings (https://doi.org/10.1021/ie50677a007; Table I) Diffusion Volume for air Real, Parameter :: Diff_Vol = 20.1 ! cm3/mol ! Heterogeneous HONO Real :: surf_bldg, surf_leaf ! HONO building and leaf surface area/voluem (1/ Real :: kno2, conc_no2 ! pseudo-first order reaction NO2 + H2O -> HONO (1/s), NO2 (ppm) ! Physical Chemistry variables Real :: heff_ap, heff_wat, heff ! Henry's constant for leaf apoplast, surface water, and wet surfaces Real :: hplus ! H+ in aqueous media LOGICAL :: effective ! true=compute effective Henry's Law const Real :: scc_pr_23 ! (SCC/PR)**2/3, fn of DIF0 Real :: dif_T, k_vis, dwat_T ! Trace gase diffusivity, kinematic viscosity of air, and diffusivity of water vapor in air (m2/s) ! Soil properties Real :: sm_v5cm, sm_v1cm ! Soil moisture at 5 and 1 cm (m3/m3) Real :: sm_vsat ! volumetric soil saturation (m3/m3) Real :: sm_vfc ! volumetric field capacity (m3/m3) Real :: sm_vwlt ! volumetric wilting point (m3/m3) Real :: sm_vres ! volumetric residual water (m3/m3) Real :: sm_bslp ! slope of the saturation water retention curve (ratio) ! meteorologial variables Real :: temp_g, temp_2m ! Soil and 2m temperature (K) Real :: q_2m ! water vapor mixing ratio at 2m () Real :: rh ! relative humidity (%) and surface friction velocity (m/s) Real :: ustar ! surface friction velocity (m/s) ! Canopy variables Real :: l_leaf ! leaf aerodynamic width (m) Real :: lai ! leaf area index (m2/m2) ! Land use variables Real :: snow, no_snow, wet, dry, veg, no_veg, frac_lu ! fractional land coverage (ratio) Real :: ir_frac ! Irrigated fraction (bidi NH3 only : ratio) Logical :: sea_ice ! Deposition velocity, conductances and resistances Real :: vd ! deposition velocity (m/s) Real :: Ra ! aerodynamic resistance (s/m) Real :: Rb ! quasi-laminar soil/water resistance (s/m) Real :: Rb_leaf ! quasi-laminary leaf resistance (s/m) Real :: Rst ! Stomatal resistance (s/m) Real :: Rcut ! cuticlular resistance (s/m) Real :: Rgc ! under canopy soil resistance (s/m) Real :: Rg ! soil resistance (s/m) Real :: Rwat ! surface water resistance (s/m) ! Flux estiamtes Real :: soil_flux ! soil emission and deposition for soil biogeochem (ppm m/s) Real :: LU_Flux, LU_Emis ! land use flux and land use emissions (ppm m/s) Real :: f_wat ! Air-surface water flux (c_atm-c_wat)/Rwat (ppm m/s) Real :: f_stom ! Air-stomatal flux (c_leaf - c_stom)/Rst (ppm m/s) Real :: f_cut ! Air-cuticular flux (c_leaf - c_cut)/Rcut (ppm m/s) Real :: f_soil ! Air-soil flux (c_z0 - cgrnd)/Rgc (ppm m/s) Real :: flux_ag ! Flux for agricultural land use, BIDI NH3 only (ppm m/s) ! Concentrations and compensation points Real :: c_atm ! ambient atmospheric concentration (ppm) Real :: c_z0 ! Canopy concentration at z0 (ppm) Real :: c_leaf ! Leaf concentration at z0 (ppm) Real :: c_stom ! Stomatal concentration at z0 (ppm) Real :: c_cut ! Concentration at the cuticular surface (ppm) Real :: c_grnd ! Concentration in the soil air space, no veg canopy (ppm) Real :: c_ll ! Concentration in the soil air space, veg canopy (ppm) Real :: c_wat ! Concentration in surface waters (ppm) ! Air-sea exchange Real :: ctemp2, lv, cp_air, tw ! 2 meter temp (C), latent heat of vaporization [J/kg/K], specific heat capacity of air [J/kg/K], water temperature (K), ! indexes integer :: i, l, n, s, n_diag Logical :: NH3_hit, O3_hit, Hg_hit ! logical vars for special cases Real, External :: hlconst ! Hg bidi variables Real :: Hg_st, Hg_cut, Hg_grnd, Hg_wat, flux_hgII effective = .TRUE. NH3_hit = .FALSE. O3_hit = .FALSE. Hg_hit = .FALSE. ! grid cell met variables temp_2m = Met_Data%TEMP2(c,r) q_2m = MET_DATA%Q2( c,r ) temp_g = MET_DATA%TEMPG( c,r ) rh = MET_DATA%RH2( c,r ) sm_vsat = GRID_DATA%WSAT( c,r ) sm_vfc = GRID_DATA%WFC( c,r ) sm_vwlt = GRID_DATA%WWLT( c,r ) sm_vres = GRID_DATA%WRES( c,r ) sm_bslp = max(GRID_DATA%BSLP( c,r ),1.0) sm_v1cm = min(MET_DATA%SOIM1( c,r ),sm_vsat) sm_v1cm = max(sm_v1cm,sm_vres) If( ABFLUX ) Then ir_frac = frac_ir( c,r ) Else ir_frac = 0.0 ! no data available End If If( PX_LSM ) Then ! simplified from Darcy's law assuming stationarity and only gravitational draining with the Campbell hydrological functions applied sm_v5cm = sm_v1cm * exp( (0.05-zsoil1) * GRAV )**(1.0/sm_bslp) sm_v5cm = Min( sm_v5cm, sm_vsat ) sm_v5cm = Max( sm_v5cm, sm_vres ) Else If( CLM_LSM .OR. NOAH_LSM ) Then sm_v5cm = MET_DATA%SOIM2( c,r ) sm_v5cm = Min( sm_v5cm, sm_vsat ) sm_v5cm = Max( sm_v5cm, sm_vres ) End If snow = max( 0.0, MET_DATA%SNOCOV( c,r ) ) ! total snow fraction no_snow = 1.0 - snow sea_ice = .TRUE. IF (((GRID_DATA%OCEAN(c,r) + GRID_DATA%SZONE(c,r)) .GT. 0.0) .AND. (MET_DATA%SEAICE(c,r) .LE. 0.0)) THEN sea_ice = .FALSE. End If ! IF ( ( ycent .GE. 30.0 ) .AND. ( ycent .LE. 45.0 ) .AND. & ( xcent .GE. -120.0 ) .AND. ( xcent .LE. -70.0 ) ) THEN IF ( GRID_DATA%LON( c,r ) .GT. -100.0 ) THEN hplus = hplus_east ELSE hplus = hplus_west END IF ELSE hplus = hplus_def END IF ! moved water temperature here to reduce redundancy and facilitate moving the hlconst ! subroutine out of the land use loop for better vectorization. ctemp2 = temp_2m - stdtemp lv = lv0 - dlvdt * ctemp2 cp_air = CPD * ( 1.0 + 0.84 * q_2m ) ! [J/kg/K] tw = ( ( 4.71e4 * cp_air / lv ) - 0.870 ) + stdtemp ! [K] k_vis = kvis*1.0e-4 * ( temp_2m/STDTEMP )**1.81 ! Following Massman 1999 dwat_T = dwat*1.0e-4 * ( temp_2m/STDTEMP )**1.81 ! Following Massman 1999 n = 0 n_diag = 0 spc_loop: Do s = 1, dep_gas_all IF ( asx_run_map( s ) ) Then n = n + 1 Tile_Data%Grd_Vd( C, R, n ) = 0.0 Tile_Data%Bidi_Emis( C, R, n ) = 0.0 ! Special cases if( s .eq. s_NH3 ) NH3_hit = .True. if( s .eq. s_O3 ) O3_hit = .True. if( s .eq. s_Hg ) Hg_hit = .True. ! Following Fuller et al 1966 (https://doi.org/10.1021/ie50677a007) and using the FSG-LeBas method from the ! EPA OnSite toolbox (https://www3.epa.gov/ceampubl/learn2model/part-two/onsite/ed-background.html). dif_T = 1.0e-7*temp_2m**1.75 * sqrt( 1.0/MWAIR + 1.0/molwt_all( s ) ) / & ( Diff_Vol**(1.0/3.0) + LeBasM( s )**(1.0/3.0) )**2 scc_pr_23 = ( ( k_vis / dif_T ) / pr ) ** twothirds c_atm = max( cgridl1( n ), 1.0e-30 ) f_stom = 0.0 f_cut = 0.0 f_soil = 0.0 flux_ag = 0.0 f_wat = 0.0 soil_flux = 0.0 heff_wat = hlconst( H_name_all( s ), tw, effective, hplus_h2o )* 0.08205 * tw heff_ap = hlconst( H_name_all( s ), temp_2m, effective, hplus_ap ) heff = hlconst( H_name_all( s ), temp_2m, effective, hplus )* 0.08205 * temp_2m If ( HGBIDI .And. Hg_Hit ) Then Call Get_Hg_Comp( Hg_st, Hg_cut, Hg_grnd, Hg_wat, c_atm, heff_wat, heff, r, c ) End If lu_loop: Do l = 1, Tile_Data%n_lufrac c_z0 = 0.0 c_leaf = 0.0 LU_Emis = 0.0 If( HGBIDI .And. Hg_Hit) Then c_stom = Hg_st c_cut = Hg_cut c_grnd = Hg_grnd c_ll = Hg_grnd c_wat = Hg_wat Else c_stom = 0.0 c_cut = 0.0 c_grnd = 0.0 c_ll = 0.0 c_wat = 0.0 End If Rb = 0.0 Rb_leaf= 0.0 Rst = 0.0 Rcut = 0.0 Rg = 0.0 Rgc = 0.0 C land use specific area fraction frac_lu = Tile_Data%LUFRAC( c,r,l ) If( frac_lu .Gt. 0.0 ) Then C land use specific met data ustar = MOSAIC_DATA%USTAR( c,r,l ) lai = MOSAIC_DATA%LAI( c,r,l ) C land use specific land cover data wet = Mosaic_Data%DELTA( c,r,l ) dry = 1.0 - wet veg = MOSAIC_DATA%VEG( c,r,l ) no_veg = 1.0 - veg l_leaf = Tile_Data%l_width( l ) C Get Ra Ra = MOSAIC_DATA%RA( c,r,l ) !------------------------------------------------------------------------------------------------- ! Quasi-laminar boundary layer resistance !------------------------------------------------------------------------------------------------- Rb = Calc_Rbw( ustar, scc_pr_23 ) !------------------------------------------------------------------------------------------------- ! Air-water exchange !------------------------------------------------------------------------------------------------- If( Water( l ) ) Then !------------------------------------------------------------------------------------------------- ! Resistance to surface water !------------------------------------------------------------------------------------------------- Rwat = Calc_Rwater( ustar, q_2m, temp_2m, temp_g, tw, LeBasM( s ), heff_wat, O3_hit, & Hg_hit, sea_ice ) If(c_wat .Gt. 0.0 ) Then LU_Emis = c_wat / ( Ra + Rb + Rwat ) End If Tile_Data%Lu_Vd( c,r,n,l ) = 1.0 / ( Ra + Rb + Rwat ) f_wat = f_wat + frac_lu * ( c_wat - c_atm ) / ( Ra + Rb + Rwat ) Else !------------------------------------------------------------------------------------------------- ! Air-land exchange !------------------------------------------------------------------------------------------------- ! Resistance to air-canopy exchange !------------------------------------------------------------------------------------------------- C Calculate Rst If( lai .Gt. 0.0 ) Then !------------------------------------------------------------------------------------------------- ! Quasi Laminar Resistance to leaf !------------------------------------------------------------------------------------------------- Rb_leaf = Calc_Rb_leaf( k_vis, dif_T, ustar, l_leaf, lai ) !------------------------------------------------------------------------------------------------- ! Resistance to air-stomatal exchange !------------------------------------------------------------------------------------------------- Rst = Calc_Rst( Mosaic_Data%RSTW( c,r,l ), dwat_T, dif_T, heff_ap, f0( s ), lai ) !------------------------------------------------------------------------------------------------- ! Resistance to air-cuticle exchange !------------------------------------------------------------------------------------------------- Rcut = Calc_Rcut( temp_g, rel_rx(s), molwt_all( s ), M_ac( s ), heff, dif_T, & a_cut( l ), snow, no_snow, dry, wet, rh, lai, O3_hit, NH3_hit, ABFLUX ) !------------------------------------------------------------------------------------------------- ! Resistance to air-canopy covered soil exchange !------------------------------------------------------------------------------------------------- Else ! LAI = 0.0 Rst = 1.0e6 Rcut = 1.0e6 Rb_leaf = 1.0e6 End If ! LAI !------------------------------------------------------------------------------------------------- ! Resistance to air-base soil exchange !------------------------------------------------------------------------------------------------- If( ABFLUX .And. NH3_Hit ) Then Call Get_NH3_Comp( c_stom, c_ll, c_grnd, dif_T, r, c, l, l_ag ) ! Quasi Laminar Boundary Layer resistance End If ! ABFLUX and NH3 Rgc = Calc_Rg( dif_T, k_vis, rel_rx( s ), Ra, ustar, lai, temp_g, molwt_all( s ), M_ac( s ), & heff, sm_v1cm,sm_v5cm, sm_vsat, sm_vfc, sm_vwlt, sm_vres, sm_bslp, zsoil1, & ir_frac, dry, wet, snow, no_snow, O3_Hit, NH3_Hit, ABFLUX ) Rg = Calc_Rg( dif_T, k_vis, rel_rx( s ), Ra, ustar, 0.0, temp_g, molwt_all( s ), M_ac( s ), & heff, sm_v1cm,sm_v5cm, sm_vsat, sm_vfc, sm_vwlt, sm_vres, sm_bslp, zsoil1, & ir_frac, dry, wet, snow, no_snow, O3_Hit, NH3_Hit, ABFLUX ) !------------------------------------------------------------------------------------------------- ! Calculate the compensation points following Nimitz et al 2001 !------------------------------------------------------------------------------------------------- ! Leaf compensation point !------------------------------------------------------------------------------------------------- c_leaf = (c_atm/(Ra*Rb_leaf)+ ! Atmospheric Component & c_stom*(1.0/(Ra*Rst)+1.0/(Rb_leaf*Rst)+1.0/(Rgc*Rst))+ ! Stomatal Component & c_cut*(1.0/(Ra*Rcut)+1.0/(Rb_leaf*Rcut)+1.0/(Rgc*Rcut))+ ! Cuticular Component & c_ll/(Rb_leaf*Rgc))/ ! Under Canopy Surface Component & (1.0/(Ra*Rb_leaf) +1.0/(Ra*Rst) +1.0/(Ra*Rcut)+1.0/(Rb_leaf*Rgc)+1.0/(Rb_leaf*Rcut) + & 1.0/(Rb_leaf*Rst)+1.0/(Rgc*Rst)+1.0/(Rgc*Rcut)) ! Least common denominator !------------------------------------------------------------------------------------------------- ! Compensation point at z0 !------------------------------------------------------------------------------------------------- c_z0 = (c_atm/Ra+c_leaf/Rb_leaf+c_ll/Rgc)/(1.0/Ra+1.0/Rb_leaf+1.0/Rgc) !------------------------------------------------------------------------------------------------- ! Estimate air-surface flux !------------------------------------------------------------------------------------------------- ! positive values for deposition LU_Flux = veg * (c_atm-c_z0)/Ra + ! air-vegetation flux & no_veg * (c_atm-c_grnd)/( Ra + Rg ) ! air-soil flux !------------------------------------------------------------------------------------------------- ! Deposition velocity !------------------------------------------------------------------------------------------------- vd = veg / (Ra + 1.0/(1.0/(Rb_leaf+1.0/(1.0/Rcut+1.0/Rst))+1.0/Rgc)) + & no_veg / (Ra + Rg) !------------------------------------------------------------------------------------------------- ! NH3 bidirectional exchange diagnostic fluxes !------------------------------------------------------------------------------------------------- If(ABFLUX .And. NH3_Hit ) Then If( Ag( l ) ) Then soil_flux = soil_flux + veg * ( c_ll - c_z0 ) / Rgc & + no_veg * ( c_grnd - c_atm ) / ( Ra + Rg ) End If End If ! ABFLUX and NH3 If( c_stom .Gt. 0.0 .Or. c_cut .Gt. 0.0 .Or. c_grnd .Gt. 0.0 .Or. c_ll .Gt. 0.0 ) Then !------------------------------------------------------------------------------------------------- ! Bidirectional exchange !------------------------------------------------------------------------------------------------- LU_Emis = max( vd * c_atm - LU_Flux, 0.0 ) ! should always be greater than 0 Tile_Data%Lu_Vd( c,r,n,l ) = vd ! Deposition velocity f_soil = f_soil + frac_lu * ( veg * ( ( c_ll - c_z0 ) / Rgc ) + ! LU_Flux = f_soil + f_stom + f_cut & no_veg * (c_grnd - c_atm)/( Ra + Rg ) ) ! air-soil exchange f_stom = f_stom + frac_lu * veg * ( c_stom - c_leaf ) / Rst ! air-stomatal exchange f_cut = f_cut + frac_lu * veg * ( c_cut - c_leaf ) / Rcut ! air-cuticular exchange Else !------------------------------------------------------------------------------------------------- ! Non bidirectional exchange !------------------------------------------------------------------------------------------------- Tile_Data%Lu_Vd( c,r,n,l ) = vd End If ! compensation points greater than 0 End If ! Water ! Generalization of the production and deposition velocity terms Tile_Data%Bidi_Emis( C, R, n ) = Tile_Data%Bidi_Emis( C, R, n ) + & frac_lu * LU_Emis Tile_Data%Grd_Vd( C, R, n ) = Tile_Data%Grd_Vd( C, R, n ) + & frac_lu * Tile_Data%Lu_Vd( c,r,n,l ) End If ! frac_lu > 0 End Do lu_loop If(ABFLUX .And. NH3_Hit ) Then If( sum(Tile_Data%LUFRAC(c,r,:),mask=Ag) .Gt. 0.0 ) Then Call Calc_Nitrif ( TStep, C, R, l_ag, soil_flux ) End If End If If(HGBIDI .And. Hg_Hit ) Then flux_hgII = 0.0 ! negative values are deposition fluxes flux_hgII = -Sum( Tile_Data%Lu_Vd( c,r,n_HgII,: ) * Tile_Data%LUFRAC( c,r,: ), mask = WATER) Call Hg_Surf_Update ( f_stom, f_cut, f_soil, f_wat, flux_hgII, & Heff_wat, Heff, TStep, c, r, Jdate, Jtime ) End If C-------------------------------------------------------------------------- IF ( sfc_hono ) THEN C HONO production via heterogeneous reaction on ground surfaces, C 2NO2 = HONO + HNO3 C Rate constant for the reaction = (3.0E-3/60)* (A/V), C where A/V is surface area/volume ratio C HONO is produced and released into the atmosphere C NO2 is lost via chemical reaction C HNO3 is sticky and stays on the surfaces C Calculate A/V for leaves. C LAI was multiplied by 2 to account for the fact that surface area C is provided by both sides of the leaves. C Matthew Jones, Ammonia deposition to semi-natural vegetation, C PhD dissertation, University of Dundee, Scotland, 2006 surf_leaf = 2.0 * MET_DATA%LAI( c,r ) / MET_DATA%ZF( c,r,1 ) C Calculate A/V for buildings and other structures. C Buildings and other structures can provide additional surfaces in C urban areas for the heterogeneous reaction to occur. However, such C information is not readily available; in the absence of such information, C it is scaled to purb(c,r). Svensson et al., (1987) suggests a typical value C of 0.2 for A/V for buildings in urban environments. A maximum value of 0.2 C for A/V for buildings is assigned to the grid cell containing the highest C purb(c,r) i.e., 100.0. A/V for buildings for other grid-cell is calculated C as purb(c,r)*(0.2/100.0); Cai et al. (2006) used a value of 1.0 for their C study at New York (total A/V) surf_bldg = GRID_DATA%PURB( c,r ) * 0.002 C Calculate rate constant for the reaction (pseudo-first order reaction, C unit per second). Calculate pseudo-first order rate constant using Eq 1 C of Vogel et al. (2003). Unit of KNO2 is in 1/min in the paper; divide it C by 60 to convert it into 1/sec. kno2 = MAX( 0.0, 5.0E-5 * (surf_leaf + surf_bldg) ) C Determine NO2 concentration needed for HONO production term. IF ( s .EQ. s_NO2 ) THEN conc_no2 = cgridl1( n ) END IF C Calculate production (bidi_emis) for HONO; unit = ppm * m/s IF ( s .EQ. s_HONO ) Then Tile_Data%Bidi_Emis( C, R, n ) = kno2 * conc_no2 * MET_DATA%ZF( c,r,1 ) END IF END IF ! Check for negative values or NaN's if(isnan(Tile_Data%Bidi_Emis( C, R, n ))) write(logdev,*) 'NaN in ',vd_name( s ),' production term' if(isnan(Tile_Data%Grd_Vd( C, R, n ))) write(logdev,*) 'NaN in ',vd_name( s ),' Vd term' NH3_hit = .False. O3_hit = .False. Hg_hit = .False. End If End Do spc_loop Return END SUBROUTINE GAS_X SUBROUTINE AERO_X(CGRID, C, R ) C *** Calculate deposition velocity for Aitken, accumulation, and C coarse modes. C Reference: C Binkowski F. S., and U. Shankar, The regional particulate C model 1. Model description and preliminary results. C J. Geophys. Res., 100, D12, 26191-26209, 1995. C May 05 D.Schwede: added impaction term to coarse mode dry deposition C 25 May 05 J.Pleim: Updated dry dep velocity calculation for aerosols C to Venkatram and Pleim (1999) C 20 Jul 05 J.Pleim: Changed impaction term using modal integration of C Stokes**2 / 400 (Giorgi, 1986, JGR) C 14 Apr 08 J.Kelly: Added code to calculate deposition velocity of C coarse surface area and to account for variable C standard deviation of the coarse mode. C 08 Sep 08 P.Bhave: Backward compatibility with AE4 mechanisms C standardized names of all coarse-mode variables C----------------------------------------------------------------------- USE AERO_DATA ! aero variable data USE AEROMET_DATA ! Includes CONST.EXT USE GRID_CONF ! horizontal & vertical domain specifications USE RXNS_DATA ! chemical mechanism data Use MOSAIC_MOD, Only: Tile_Data Use Resist_Funcs, Only: Aero_Depv, Aero_Depv_E20, Aero_Depv_P22 IMPLICIT NONE C Includes: INCLUDE SUBST_FILES_ID ! file name parameters C Arguments REAL, POINTER :: CGRID( :,:,:,: ) INTEGER, INTENT( IN ) :: C,R ! Column and Row C *** array indices hardcoded to match SUBROUTINE AERO_DEPV INTEGER, PARAMETER, DIMENSION( 3 ) :: & VDN = (/ 1,2,3 /) , & VDM = (/ 4,5,6 /) , & VDS = (/ 7,8,9 /) C Meteorological variables CHARACTER( 16 ), SAVE :: AE_VRSN ! Aerosol version name INTEGER, SAVE :: NCELLS ! number of cells per layer REAL, SAVE :: XLM ! mean free path [ m ] REAL, SAVE :: AMU ! dynamic viscosity [ kg m**-1 s**-1 ] REAL M3_WET, M3SUBT, M3_DRY REAL M2_WET, M2_DRY CHARACTER( 16 ), SAVE :: PNAME = 'AERO_X' CHARACTER( 16 ) :: VNAME ! variable name CHARACTER( 96 ) :: XMSG = ' ' INTEGER V, N, L, NDX ! loop counters INTEGER n_diag INTEGER SPC, S ! species loop counter INTEGER ALLOCSTAT C modal Knudsen numbers REAL KN C modal particle diffusivities for number, 2nd, and 3rd moment, or mass: REAL DCHAT0 REAL DCHAT2 REAL DCHAT3 C modal sedimentation velocities for number, 2nd, and 3rd moment, or mass: REAL VGHAT0 REAL VGHAT2 REAL VGHAT3 INTEGER NCELL, J, IM REAL DCONST, DCONST1 REAL DCONST2, DCONST3 REAL EINHAT0, EINHAT2, EINHAT3 ! Interception integration terms REAL SC0 ! Schmidt numbers for number REAL SC2 ! Schmidt numbers for 2ND MOMENT REAL SC3 ! Schmidt numbers for 3rd moment REAL NU ! kinematic viscosity [ m**2 s**-1 ] REAL TWOXLM ! 2 X atmospheric mean free path REAL Ra, Ustar, lai ! Land use specific environmental variables REAL Ubar, SeaIce, SST ! Grid scale meteorological variables REAL Lu_frac, Veg, wet ! Land use and vegetation coverage fraction REAL l_width, Alpha ! Emerson et al. 2020 land use variables REAL BAI, Ahair, Fhair, Aleaf ! Pleim et al. 2022 land use variables C Parameters REAL, PARAMETER :: BHAT = 1.246 ! Slope of the linearized Cunningham slip correction REAL, PARAMETER :: IHAT = 0.8473 ! Intercept of the linearized Cunningham slip correction REAL, PARAMETER :: T0 = 288.15 ! [ K ] ! starting standard surface temp. REAL, PARAMETER :: THREEPI = 3.0 * PI C Scalar variables for VARIABLE standard deviations. REAL L2SG REAL E1 ! mode exp( log^2( sigmag )/8 ) REAL ES04 ! " **4 REAL ES08 ! " **8 REAL ES12 ! " **12 REAL ES16 ! " **16 REAL ES20 ! " **20 REAL ES28 ! " **28 REAL ES32 ! " **32 REAL ES36 ! " **36 REAL ES48 ! " **48 REAL ES64 ! " **64 REAL ESM12 ! " **(-12) REAL ESM16 ! " **(-16) REAL ESM20 ! " **(-20) REAL ESM32 ! " **(-32) C----------------------------------------------------------------------- VDEP = 0.0 ! array assignment VDEPJ = 0.0 ! array assignment C *** Set meteorological data for the grid cell. AIRDENS = Met_Data%DENS1( C,R ) AIRTEMP = Met_Data%TEMP2( C,R ) AIRPRES = Met_Data%PRSFC( C,R ) Ubar = Met_Data%WSPD10( C,R ) SeaIce = Met_Data%SEAICE( C,R ) SST = Met_Data%TSEASFC( C,R ) - 273.15 C *** extract grid cell concentrations of aero species from CGRID C into aerospc_conc in aero_data module C Also determines second moment from surface area and adds wet C species CALL EXTRACT_AERO( CGRID( C,R,1,: ), .TRUE. ) C *** Calculate geometric mean diameters and standard deviations of the C "wet" size distribution CALL GETPAR( .FALSE. ) C Save getpar values to arrays DO IM = 1,N_MODE XXLSG( IM ) = AEROMODE_LNSG( IM ) DG( IM ) = AEROMODE_DIAM( IM ) PDENS( IM ) = AEROMODE_DENS( IM ) END DO C Calculate mean free path [ m ]: XLM = 6.6328E-8 * STDATMPA * AIRTEMP / ( T0 * AIRPRES ) C *** Calculate dynamic and kinematic viscosity [ kg m**-1 s**-1 ]: AMU = 1.458E-6 * AIRTEMP * SQRT( AIRTEMP ) & / ( AIRTEMP + 110.4 ) NU = AMU / Met_Data%DENS1( C,R ) C *** Calculate Knudsen numbers TWOXLM = XLM + XLM DO IM = 1, N_MODE KN = TWOXLM / DG( IM ) C *** Calculate functions of variable standard deviation. L2SG = XXLSG( IM ) ** 2 E1 = EXP( 0.125 * L2SG ) ES04 = E1 ** 4 ES08 = ES04 ** 2 ES12 = ES04 * ES08 ES16 = ES08 ** 2 ES20 = ES16 * ES04 ES28 = ES20 * ES08 ES32 = ES16 ** 2 ES36 = ES16 * ES20 ES48 = ES36 * ES12 ES64 = ES32 ** 2 C *** calculate inverses: ESM12 = 1.0 / ES12 ESM16 = 1.0 / ES16 ESM20 = 1.0 / ES20 ESM32 = 1.0 / ES32 DCONST = BOLTZMANN * Met_Data%TEMP2( C,R ) / ( THREEPI * AMU ) DCONST1 = DCONST / DG( IM ) DCONST2 = GRAV / ( 18.0 * AMU ) DCONST3 = DCONST2 * PDENS( IM ) * DG( IM ) ** 2 ! Gravitational settling C Calculate characteristic parameters DCHAT0 = DCONST1 * ( ES04 + BHAT * KN * ES16 ) DCHAT2 = DCONST1 * ( ESM12 + BHAT * KN * ESM16 ) DCHAT3 = DCONST1 * ( ESM20 + BHAT * KN * ESM32 ) VGHAT0 = DCONST3 * ( ES16 + BHAT * KN * ES04 ) VGHAT2 = DCONST3 * ( ES48 + BHAT * KN * ES20 ) VGHAT3 = DCONST3 * ( ES64 + BHAT * KN * ES28 ) C Integrated Emerson et al 2020 Interception term. EINHAT0 = EXP(L2SG*((0.64)/2.0)) EINHAT2 = EXP(L2SG*((1.6*2.0 + 0.64)/2.0)) EINHAT3 = EXP(L2SG*((1.6*3.0 + 0.64)/2.0)) SC0 = NU / DCHAT0 SC2 = NU / DCHAT2 SC3 = NU / DCHAT3 lu_loop: DO L = 1, Tile_Data%n_lufrac C *** Land use parameters Veg = Mosaic_Data%VEG( C,R,L ) wet = Mosaic_Data%DELTA( c,r,l ) Ustar = Mosaic_Data%USTAR( C,R,L ) lai = Mosaic_Data%LAI( C,R,L ) Ra = Mosaic_Data%RA( C,R,L ) lu_frac = Tile_Data%LUFRAC( C,R,L ) l_width = Tile_Data%l_width( L ) Alpha = Tile_Data%Alpha( L ) BAI = Tile_Data%BAI( L ) Ahair = Tile_Data%Ahair( L ) Fhair = Tile_Data%Fhair( L ) Aleaf = Tile_Data%Aleaf( L ) IF( water( L ) ) wet = 1.0 IF ( lu_frac .Eq. 0.0 ) Cycle lu_loop C now calculate the deposition velocities C Parallel conductances are additive. Thus, the vegetated and non-vegetated deposition velocities are added. C first do 0th moment (number), second do 2nd moment (surface area), third do 3rd moment (mass) C Emerson et al 2020 PNAS https://www.pnas.org/cgi/doi/10.1073/pnas.2014761117 If( STAGE_E20 ) Then VDEPJ( L,VDN( IM ) ) = aero_depv_e20(veg, lai, Ustar, Ra, wet, l_width, Alpha, & DG(IM), SC0, NU, VGHAT0, EINHAT0 ) ! Number VDEPJ( L,VDS( IM ) ) = aero_depv_e20(veg, lai, Ustar, Ra, wet, l_width, Alpha, & DG(IM), SC2, NU, VGHAT2, EINHAT2 ) ! Surface area VDEPJ( L,VDM( IM ) ) = aero_depv_e20(veg, lai, Ustar, Ra, wet, l_width, Alpha, & DG(IM), SC3, NU, VGHAT3, EINHAT3 ) ! Mass C Pleim et al 2022 Else If( STAGE_P22 ) Then VDEPJ( L,VDN( IM ) ) = aero_depv_p22(veg, lai, BAI, Ustar, Ubar, Ra, Water(L), Aleaf, & Ahair, Fhair, SC0, NU, VGHAT0, SeaIce, SST ) ! Number VDEPJ( L,VDS( IM ) ) = aero_depv_p22(veg, lai, BAI, Ustar, Ubar, Ra, Water(L), Aleaf, & Ahair, Fhair, SC2, NU, VGHAT2, SeaIce, SST ) ! Surface area VDEPJ( L,VDM( IM ) ) = aero_depv_p22(veg, lai, BAI, Ustar, Ubar, Ra, Water(L), Aleaf, & Ahair, Fhair, SC3, NU, VGHAT3, SeaIce, SST ) ! Mass Else C CMAQ v5.3 VDEPJ( L,VDN( IM ) ) = aero_depv(veg, Ra, VGHAT0, Ustar, SC0, NU, l_width, lai ) ! Number VDEPJ( L,VDS( IM ) ) = aero_depv(veg, Ra, VGHAT2, Ustar, SC2, NU, l_width, lai ) ! Surface area VDEPJ( L,VDM( IM ) ) = aero_depv(veg, Ra, VGHAT3, Ustar, SC3, NU, l_width, lai ) ! Mass End If C now integrate to the area weighted grid cell VDEP( VDN( IM ) ) = VDEP( VDN( IM ) ) + Lu_Frac * VDEPJ( L,VDN( IM ) ) ! Number VDEP( VDS( IM ) ) = VDEP( VDS( IM ) ) + Lu_Frac * VDEPJ( L,VDS( IM ) ) ! Surface area VDEP( VDM( IM ) ) = VDEP( VDM( IM ) ) + Lu_Frac * VDEPJ( L,VDM( IM ) ) ! Mass END DO lu_loop ! Tile_Data%n_lufrac END DO ! aerosol mode C Return dry deposition velocities for aerosols (first layer only). n_diag = 0 DO V = 1, N_AE_DEPV NDX = N_GC_DEPV + N_NR_DEPV + N_TR_DEPV + V IF ( DEPV_SUR( V ) .GT. 0 ) THEN Tile_Data%Grd_Vd( C,R,NDX ) = VDEP( DEPV_SUR( V ) ) Tile_Data%Lu_Vd( C,R,NDX,: ) = VDEPJ( :,DEPV_SUR( V ) ) ELSE Tile_Data%Grd_Vd( C,R,NDX ) = 0.0 Tile_Data%Lu_Vd( C,R,NDX,: ) = 0.0 END IF END DO Return END SUBROUTINE AERO_X END MODULE STAGE_MOD ================================================ FILE: CCTM/src/depv/stage/STAGE_OUTPUT.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: MODULE STAGE_OUTPUT C----------------------------------------------------------------------- C Function: Collection of ouput routines for STAGE deposition velocities C and dry deposition C----------------------------------------------------------------------- USE RUNTIME_VARS, Only: MOSAIC Contains Pure Function Write_time( WSTEP, TSTEP ) Result( Write_now ) Implicit None Integer, Intent( IN ) :: WSTEP Integer, Intent( IN ) :: TSTEP Logical :: Write_now If( WSTEP .Ge. TSTEP ) Then Write_now = .TRUE. Else Write_now = .FALSE. End If End Function Write_time Subroutine Open_depv( DATE, TIME, TSTEP ) USE GRID_CONF ! horizontal & vertical domain specifications USE CGRID_SPCS ! CGRID mechanism species USE STAGE_DATA USE UTILIO_DEFN USE MOSAIC_MOD, Only: Tile_Data IMPLICIT NONE INCLUDE SUBST_FILES_ID ! file name parameters C Arguments: INTEGER, INTENT( IN ) :: DATE ! current model date, coded YYYYDDD INTEGER, INTENT( IN ) :: TIME ! current model time, coded HHMMSS INTEGER, INTENT( IN ) :: TSTEP ! output time step C Local variables: CHARACTER( 16 ) :: PNAME = 'OPSTAGE_DEPV' CHARACTER( 16 ) :: VNAME ! scratch string CHARACTER( 96 ) :: XMSG = ' ' INTEGER N_Vars INTEGER V, N, L ! loop induction variables SDATE3D = DATE STIME3D = TIME TSTEP3D = TSTEP CALL NEXTIME( SDATE3D, STIME3D, TSTEP3D ) ! start the next hour FTYPE3D = GRDDED3 NCOLS3D = GL_NCOLS NROWS3D = GL_NROWS NTHIK3D = 1 GDTYP3D = GDTYP_GD P_ALP3D = P_ALP_GD P_BET3D = P_BET_GD P_GAM3D = P_GAM_GD XORIG3D = XORIG_GD YORIG3D = YORIG_GD XCENT3D = XCENT_GD YCENT3D = YCENT_GD XCELL3D = XCELL_GD YCELL3D = YCELL_GD VGTYP3D = VGTYP_GD VGTOP3D = VGTOP_GD GDNAM3D = GRID_NAME ! from HGRD_DEFN FDESC3D = ' ' ! array L = LEN_TRIM( DEPV_METHOD ) FDESC3D( 1 ) = 'Instanteous values of land use specific' & // ' resistances and conductances:' & // ' these parameters are' FDESC3D( 2 ) = 'estimated by the ' & // DEPV_METHOD( 1:L ) // ' algorithm.' IF ( .NOT. OPEN3( CTM_DEPV_DIAG, FSRDWR3, PNAME ) ) THEN XMSG = 'Could not open ' // CTM_DEPV_DIAG // ' file for update - ' & // 'try to open new' CALL M3MESG( XMSG ) C Set output file characteristics based on GRIDDESC and open the dep velocity dignostic file NVARS3D = Tile_Data%n_Vd NLAYS3D = 1 DO L = 1, NLAYS3D + 1 VGLVS3D( L ) = VGLVS_GD( L ) END DO N = 0 DO V = 1, N_SPC_DEPV If( Tile_Data%Vd_Out( V ) ) Then N = N + 1 VNAME = trim( Tile_Data%Vd_Name( V ) ) VTYPE3D( N ) = M3REAL VNAME3D( N ) = VNAME UNITS3D( N ) = 'cm s-1' VDESC3D( N ) = 'Dry deposition velocity' End If END DO C Open diagnostic file, then close it for subsequent open by all processors IF ( .NOT. OPEN3( CTM_DEPV_DIAG, FSNEW3, PNAME ) ) THEN XMSG = 'Could not create '// TRIM( CTM_DEPV_DIAG ) // ' file' CALL M3EXIT( PNAME, DATE, TIME, XMSG, XSTAT1 ) END IF END IF IF ( MOSAIC .AND. .NOT. OPEN3( CTM_DEPV_MOS, FSRDWR3, PNAME ) ) THEN XMSG = 'Could not open ' // CTM_DEPV_MOS // ' file for update - ' & // 'try to open new' CALL M3MESG( XMSG ) C Set output file characteristics based on GRIDDESC and open the dep velocity dignostic file NVARS3D = Tile_Data%n_Vd + 7 NLAYS3D = Tile_Data%N_LUFRAC ! preempting normal use of vertical layers N = 0 N = N + 1 ! 1 VTYPE3D( N ) = M3REAL VNAME3D( N ) = 'RA' UNITS3D( N ) = 's m-1' VDESC3D( N ) = 'aerodynamic resistance for land use category' N = N + 1 ! 2 VTYPE3D( N ) = M3REAL VNAME3D( N ) = 'LUFRAC' UNITS3D( N ) = 'dimensionless' VDESC3D( N ) = 'Fractional land use' N = N + 1 ! 3 VTYPE3D( N ) = M3REAL VNAME3D( N ) = 'LAI' UNITS3D( N ) = 'dimensionless' VDESC3D( N ) = 'leaf area index for land use category' N = N + 1 ! 4 VTYPE3D( N ) = M3REAL VNAME3D( N ) = 'USTAR' UNITS3D( N ) = 'm s-1' VDESC3D( N ) = 'friction velocity for land use category' N = N + 1 ! 5 VTYPE3D( N ) = M3REAL VNAME3D( N ) = 'Z0' UNITS3D( N ) = 'm' VDESC3D( N ) = 'surface roughness for land use category' N = N + 1 ! 6 VTYPE3D( N ) = M3REAL VNAME3D( N ) = 'RST' UNITS3D( N ) = 's m-1' VDESC3D( N ) = 'Stomatal resistance to water vapor' N = N + 1 ! 7 VTYPE3D( N ) = M3REAL VNAME3D( N ) = 'VEG' UNITS3D( N ) = 'ratio' VDESC3D( N ) = 'Vegetation coverage' DO V = 1, N_SPC_DEPV If( Tile_Data%Vd_Out( V ) ) Then N = N + 1 VNAME = trim( Tile_Data%Vd_Name( V ) ) VTYPE3D( N ) = M3REAL VNAME3D( N ) = VNAME UNITS3D( N ) = 'cm s-1' VDESC3D( N ) = 'Dry deposition velocity' End If END DO C Open diagnostic file IF ( .NOT. OPEN3( CTM_DEPV_MOS, FSNEW3, PNAME ) ) THEN XMSG = 'Could not create '// TRIM( CTM_DEPV_MOS) // ' file' CALL M3EXIT( PNAME, DATE, TIME, XMSG, XSTAT1 ) END IF END IF Return End Subroutine Open_depv Subroutine Write_depv( DATE, TIME ) USE CGRID_SPCS, ONLY : N_SPC_DEPV USE HGRD_DEFN USE UTILIO_DEFN USE MOSAIC_MOD, Only: Tile_Data USE ASX_DATA_MOD, Only: MOSAIC_DATA Implicit None Integer, Intent( IN ) :: DATE Integer, Intent( IN ) :: TIME ! Real, Intent( IN ) :: DEPV(:,:,:) Integer :: N CHARACTER( 16 ) :: PNAME = 'WRITE_DEPV' CHARACTER( 120 ) :: XMSG = ' ' INCLUDE SUBST_FILES_ID ! file name parameters DO N = 1, N_SPC_DEPV If( Tile_Data%Vd_Out( N ) ) Then IF ( .NOT. WRITE3( CTM_DEPV_DIAG, trim( Tile_Data%Vd_Name( N ) ), & DATE, TIME, Tile_Data%Grd_Vd(:,:,N)*100.0 ) ) THEN XMSG = 'Could not write ' // CTM_DEPV_DIAG // ' file' CALL M3EXIT ( PNAME, DATE, TIME, XMSG, XSTAT1 ) END IF End If END DO IF ( MOSAIC ) THEN !-----------------------------------------------------------------------------------------! ! STAGE Diagnostic Output ! !-----------------------------------------------------------------------------------------! IF ( .NOT. WRITE3( CTM_DEPV_MOS, 'LUFRAC', & DATE, TIME, Tile_Data%LUFRAC ) ) THEN XMSG = 'Could not write ' // CTM_DEPV_MOS // ' file' CALL M3EXIT ( PNAME, DATE, TIME, XMSG, XSTAT1 ) END IF IF ( .NOT. WRITE3( CTM_DEPV_MOS, 'RA', & DATE, TIME, MOSAIC_DATA%RA ) ) THEN XMSG = 'Could not write ' // CTM_DEPV_MOS // ' file' CALL M3EXIT ( PNAME, DATE, TIME, XMSG, XSTAT1 ) END IF IF ( .NOT. WRITE3( CTM_DEPV_MOS, 'RST', & DATE, TIME, Mosaic_Data%RSTW ) ) THEN XMSG = 'Could not write ' // CTM_DEPV_MOS // ' file' CALL M3EXIT ( PNAME, DATE, TIME, XMSG, XSTAT1 ) END IF IF ( .NOT. WRITE3( CTM_DEPV_MOS, 'LAI', & DATE, TIME, MOSAIC_DATA%LAI ) ) THEN XMSG = 'Could not write ' // CTM_DEPV_MOS // ' file' CALL M3EXIT ( PNAME, DATE, TIME, XMSG, XSTAT1 ) END IF IF ( .NOT. WRITE3( CTM_DEPV_MOS, 'USTAR', & DATE, TIME, MOSAIC_DATA%USTAR ) ) THEN XMSG = 'Could not write ' // CTM_DEPV_MOS // ' file' CALL M3EXIT ( PNAME, DATE, TIME, XMSG, XSTAT1 ) END IF IF ( .NOT. WRITE3( CTM_DEPV_MOS, 'Z0', & DATE, TIME, MOSAIC_DATA%Z0 ) ) THEN XMSG = 'Could not write ' // CTM_DEPV_MOS // ' file' CALL M3EXIT ( PNAME, DATE, TIME, XMSG, XSTAT1 ) END IF IF ( .NOT. WRITE3( CTM_DEPV_MOS, 'VEG', & DATE, TIME, MOSAIC_DATA%VEG ) ) THEN XMSG = 'Could not write ' // CTM_DEPV_MOS // ' file' CALL M3EXIT ( PNAME, DATE, TIME, XMSG, XSTAT1 ) END IF DO N = 1, N_SPC_DEPV If( Tile_Data%Vd_Out( N ) ) Then IF ( .NOT. WRITE3( CTM_DEPV_MOS, & trim( Tile_Data%Vd_Name( N ) ), & DATE, TIME, Tile_Data%Lu_Vd(:,:,N,:)*100.0 ) ) THEN XMSG = 'Could not write ' // CTM_DEPV_MOS // ' file' CALL M3EXIT ( PNAME, DATE, TIME, XMSG, XSTAT1 ) End If End If END DO End If End Subroutine Write_depv End Module STAGE_OUTPUT ================================================ FILE: CCTM/src/depv/stage/depv_data_module.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! !------------------------------------------------------------------------! ! This module contains key component from NH3_BIDI_MOD.F to facilitate ! centralized I/O implementation by avoiding cyclic data dependence ! Revision History: ! 01 Feb 2019 D.Wong initial implementation, !------------------------------------------------------------------------! module depv_data_module use Bidi_Mod, Only: gamma1, gamma2 implicit none Integer, Parameter :: e2c_cats = 42 ! number of crop catigories Real, Allocatable :: Beld_ag ( :,:,: ) Real, Allocatable :: pHs1 ( :,:,: ) Real, Allocatable :: pHs2 ( :,:,: ) Real, Allocatable :: NH4ps1 ( :,:,: ) ! Initial Soil NH4 Real, Allocatable :: NH4ps2 ( :,:,: ) ! Initial Soil NH4 Real, Allocatable :: Nit1 ( :,:,: ) ! Epic Nitrification layer 1 Real, Allocatable :: Nit2 ( :,:,: ) ! Epic Nitrification layer 2 Real, Allocatable :: L1_ON ( :,:,: ) ! Epic Layer 1 organic N Real, Allocatable :: L2_ON ( :,:,: ) ! Epic Layer 2 organic N Real, Allocatable :: GMN ( :,:,: ) ! Epic Layer 1 and 2 N mineralized in Fest-C 1.4 Real, Allocatable :: BDc1 ( :,:,: ) ! crop soil bulk density kg/ha Real, Allocatable :: BDc2 ( :,:,: ) ! crop soil bulk density kg/ha Real, Allocatable :: F1_NH4 ( :,:,: ) ! fertlizer application to layer 1 Real, Allocatable :: F2_NH4 ( :,:,: ) ! fertlizer application to layer 2 Real, Allocatable :: L1_ON_Yest ( :,:,: ) ! Epic Layer 1 organic N Real, Allocatable :: L2_ON_Yest ( :,:,: ) ! Epic Layer 2 organic N Real, Allocatable :: F1_ON ( :,:,: ) ! Epic Layer 1 organic N Fertilization Real, Allocatable :: F2_ON ( :,:,: ) ! Epic Layer 2 organic N Fertilization Character( 20 ) :: Beld_Names( e2c_cats ) C Some compilers do not pad with blank characters in data initialization C '12345678901234567890' Data Beld_Names / 'Hay ', ! 1 & 'Hay_ir ', ! 2 & 'Alfalfa ', ! 3 & 'Alfalfa_ir ', ! 4 & 'Other_Grass ', ! 5 & 'Other_Grass_ir ', ! 6 & 'Barley ', ! 7 & 'Barley_ir ', ! 8 & 'BeansEdible ', ! 9 & 'BeansEdible_ir ', ! 10 & 'CornGrain ', ! 11 & 'CornGrain_ir ', ! 12 & 'CornSilage ', ! 13 & 'CornSilage_ir ', ! 14 & 'Cotton ', ! 15 & 'Cotton_ir ', ! 16 & 'Oats ', ! 17 & 'Oats_ir ', ! 18 & 'Peanuts ', ! 19 & 'Peanuts_ir ', ! 20 & 'Potatoes ', ! 21 & 'Potatoes_ir ', ! 22 & 'Rice ', ! 23 & 'Rice_ir ', ! 24 & 'Rye ', ! 25 & 'Rye_ir ', ! 26 & 'SorghumGrain ', ! 27 & 'SorghumGrain_ir ', ! 28 & 'SorghumSilage ', ! 29 & 'SorghumSilage_ir ', ! 30 & 'Soybeans ', ! 31 & 'Soybeans_ir ', ! 32 & 'Wheat_Spring ', ! 33 & 'Wheat_Spring_ir ', ! 34 & 'Wheat_Winter ', ! 35 & 'Wheat_Winter_ir ', ! 36 & 'Other_Crop ', ! 37 & 'Other_Crop_ir ', ! 38 & 'Canola ', ! 39 & 'Canola_ir ', ! 40 & 'Beans ', ! 41 & 'Beans_ir ' / ! 42 end module depv_data_module ================================================ FILE: CCTM/src/diag/vertext_module.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! MODULE VERTEXT_MODULE USE STD_CONC, ONLY: N_C_GC_SPC, C_GC_SPC, N_C_AE_SPC, C_AE_SPC, & N_C_NR_SPC, C_NR_SPC, N_C_TR_SPC, C_TR_SPC, & N_CSPCS, L_CONC_RH, L_CONC_TA, & L_CONC_PRES INTEGER :: NVERTEXT INTEGER, ALLOCATABLE :: VERTEXTJ(:), VERTEXTI(:), VERT_SEQ(:) INTEGER :: NVERTEXT_SPCS = 0 CHARACTER( 16 ), ALLOCATABLE :: VERTEXT_SPCS( : ) ! for parallel implementation INTEGER :: MY_NVERTEXT INTEGER, ALLOCATABLE :: MY_VERTEXTJ(:), MY_VERTEXTI(:), PE_NVERTEXT(:,:) #ifndef mpas PRIVATE :: PWRVEC #endif CONTAINS C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE OPVEXT ( JDATE, JTIME, TSTEP ) C----------------------------------------------------------------------- C Function: C Create the IO/API netCDF header and open the output VEXT file C Revision history: C 24 Nov 17 B.Henderson: copied from OPCONC. C 09 Jan 18 D.Wong: put in parallel implementation C 01 Feb 19 D.Wong: removed USE ALLOC_DATA_MODULE clause C 09 Sep 19 F. Sidi: Replaced L_CONC_WVEL & L_ACONC_WVEL (depreciated) with W_VEL C----------------------------------------------------------------------- USE GRID_CONF USE RUNTIME_VARS, ONLY: LOGDEV, LVEXT, N_CONC_VARS, W_VEL USE UTILIO_DEFN #ifndef mpas #ifdef parallel USE SE_MODULES ! stenex (using SE_UTIL_MODULE) #else USE NOOP_MODULES ! stenex (using NOOP_UTIL_MODULE) #endif #endif IMPLICIT NONE C INTERFACE C SUBROUTINE GET_LONLAT(NVERT, VERTLAT, VERTLON) C REAL, ALLOCATABLE, INTENT(INOUT) :: VERTLAT(:), VERTLON(:) C INTEGER, INTENT(INOUT) :: NVERT C END SUBROUTINE GET_LONLAT C END INTERFACE INCLUDE SUBST_FILES_ID ! file name parameters C Arguments: INTEGER, INTENT(IN) :: JDATE ! starting date (YYYYDDD) INTEGER, INTENT(IN) :: JTIME ! starting time (HHMMSS) INTEGER, INTENT(IN) :: TSTEP ! output timestep (HHMMSS) C Local Variables: CHARACTER( 16 ) :: PNAME = 'OPVEXT' CHARACTER( 96 ) :: XMSG = ' ' CHARACTER( 28 ) :: SSTR = ' species saved to VEXTfile:' C environment variable for no. of layers from bottom to save on VEXT file CHARACTER( 16 ) :: NLAYS_VEXT = 'NLAYS_VEXT' C environment variable description CHARACTER( 80 ) :: VARDESC INTEGER :: K, KD, L, SPC, V, VAR ! loop counters INTEGER :: STRT, FINI ! loop counters INTEGER :: STATUS INTEGER :: GDTYP2 = 1 REAL, ALLOCATABLE :: VERTEXTLAT(:), VERTEXTLON(:) REAL, ALLOCATABLE :: VERTEXTJR(:), VERTEXTIR(:) LOGICAL, EXTERNAL :: FLUSH3 CHARACTER( 16 ) :: DOVERTNAME = 'DOVERTEXT' CHARACTER( 16 ) :: VERTEXTLATNAME = 'VERTEXTLAT' CHARACTER( 16 ) :: VERTEXTLONNAME = 'VERTEXTLON' INTEGER :: PE LOGICAL :: FOUND, PRJSET CHARACTER (30) :: MYFMT C----------------------------------------------------------------------- #ifndef mpas IF (.not. LVEXT) RETURN CALL GET_LONLAT(NVERTEXT, VERTEXTLON, VERTEXTLAT) ALLOCATE ( & VERTEXTJR(NVERTEXT), & VERTEXTIR(NVERTEXT), & VERTEXTJ(NVERTEXT), & VERTEXTI(NVERTEXT), & MY_VERTEXTJ(NVERTEXT), & MY_VERTEXTI(NVERTEXT), & PE_NVERTEXT(0:NVERTEXT, 0:NPCOL*NPROW-1), & VERT_SEQ(NVERTEXT), & STAT = STATUS) WRITE(LOGDEV, *)'IN', NVERTEXT C Set output file characteristics from GRID_CONF and open FTYPE3D = GRDDED3 SDATE3D = JDATE STIME3D = JTIME + TSTEP TSTEP3D = TSTEP NVARS3D = N_CONC_VARS NCOLS3D = 1 NROWS3D = NVERTEXT NLAYS3D = NLAYS NTHIK3D = 1 GDTYP3D = GDTYP_GD P_ALP3D = P_ALP_GD P_BET3D = P_BET_GD P_GAM3D = P_GAM_GD XORIG3D = XORIG_GD YORIG3D = YORIG_GD XCENT3D = XCENT_GD YCENT3D = YCENT_GD XCELL3D = XCELL_GD YCELL3D = YCELL_GD VGTYP3D = VGTYP_GD VGTOP3D = VGTOP_GD DO L = 1, NLAYS + 1 VGLVS3D( L ) = VGLVS_GD( L ) END DO GDNAM3D = GRID_NAME ! from HGRD_DEFN FDESC3D( 1 ) = 'Concentration file output' FDESC3D( 2 ) = 'From CMAQ model dyn alloc version CTM' FDESC3D( 3 ) = 'Set of variables (possibly) reduced from CGRID' FDESC3D( 4 ) = 'For next scenario continuation runs,' FDESC3D( 5 ) = 'use the "one-step" CGRID file' KD = 5 L = 0 DO K = KD + 1, MIN ( NLAYS + KD, MXDESC3 ) L = L + 1 WRITE( FDESC3D( K ),'( "Layer", I3, " to", I3, " " )' ) & L - 1, L END DO ! IF ( ( KD + 1 + L ) .LT. MXDESC3 ) THEN ! DO K = KD + 1 + L, MXDESC3 ! FDESC3D( K ) = ' ' ! END DO ! END IF WRITE (MYFMT, '(a10, i3, a6)') '(A16, 1X, ', NVERTEXT, 'f12.6)' WRITE (FDESC3D(KD + 2 + L), MYFMT) 'Latitude list: ', VERTEXTLAT(1:NVERTEXT) WRITE (FDESC3D(KD + 3 + L), MYFMT) 'Longitude list: ', VERTEXTLON(1:NVERTEXT) CALL LONLAT2XY(NVERTEXT, VERTEXTLON, VERTEXTLAT, & VERTEXTIR, VERTEXTJR) WRITE (MYFMT, '(a10, i3, a6)') '(A16, 1X, ', NVERTEXT, 'f12.6)' WRITE (FDESC3D(KD + 4 + L), myfmt) 'Y list: ', VERTEXTJR(1:NVERTEXT) WRITE (FDESC3D(KD + 5 + L), myfmt) 'X list: ', VERTEXTIR(1:NVERTEXT) STATUS = 0 MY_NVERTEXT = 0 PE_NVERTEXT = 0 VERT_SEQ = -1 DO V = 1, NVERTEXT VERTEXTI(V) = INT((VERTEXTIR(V) - XORIG3D) / XCELL3D) + 1 VERTEXTJ(V) = INT((VERTEXTJR(V) - YORIG3D) / YCELL3D) + 1 IF ((VERTEXTI(V) .gt. GL_NCOLS) .or. (VERTEXTI(V) .lt. 1) .or. & (VERTEXTJ(V) .gt. GL_NROWS) .or. (VERTEXTJ(V) .lt. 1)) THEN STATUS = STATUS + 1 WRITE( LOGDEV, '( /5X, A, F10.4, F10.4, A, I8, I8)' ) & 'Outside domain', VERTEXTLON(V), VERTEXTLAT(V), & 'COL/ROW', VERTEXTI(V), VERTEXTJ(V) ELSE FOUND = .FALSE. PE = 0 DO WHILE (.NOT. FOUND) PE = PE + 1 IF ((VERTEXTI(V) .GE. COLSX_PE(1, PE)) .and. & (VERTEXTI(V) .LE. COLSX_PE(2, PE)) .and. & (VERTEXTJ(V) .GE. ROWSX_PE(1, PE)) .and. & (VERTEXTJ(V) .LE. ROWSX_PE(2, PE))) THEN VERT_SEQ(V) = PE - 1 PE_NVERTEXT(0, PE-1) = PE_NVERTEXT(0, PE-1) + 1 K = PE_NVERTEXT(0, PE-1) PE_NVERTEXT(K, PE-1) = V FOUND = .TRUE. END IF END DO IF (MYPE .EQ. VERT_SEQ(V)) THEN MY_NVERTEXT = MY_NVERTEXT + 1 MY_VERTEXTI(MY_NVERTEXT) = VERTEXTI(V) - COLSX_PE(1, MYPE+1) + 1 MY_VERTEXTJ(MY_NVERTEXT) = VERTEXTJ(V) - ROWSX_PE(1, MYPE+1) + 1 WRITE(LOGDEV, *)'IN', VERTEXTLON(V), VERTEXTLAT(V) WRITE(LOGDEV, *) 'OUT', VERTEXTI(V), VERTEXTJ(V) END IF ENDIF END DO WRITE (MYFMT, '(a10, i3, a6)') '(A16, 1X, ', NVERTEXT, 'I6)' WRITE (FDESC3D(KD + 6 + L), MYFMT) 'J list: ', VERTEXTJ(1:NVERTEXT) WRITE (FDESC3D(KD + 7 + L), MYFMT) 'I list: ', VERTEXTI(1:NVERTEXT) WRITE( LOGDEV,* ) ' ' WRITE( LOGDEV,* ) ' VEXT File Header Description:' DO K = 1, KD + L WRITE( LOGDEV,* ) ' => ', TRIM( FDESC3D( K ) ) END DO V = 0 STRT = 1 FINI = N_C_GC_SPC DO SPC = STRT, FINI V = V + 1 VTYPE3D( SPC ) = M3REAL VNAME3D( SPC ) = C_GC_SPC( V ) UNITS3D( SPC ) = 'ppmV' VDESC3D( SPC ) = 'Variable ' // VNAME3D( SPC ) END DO V = 0 STRT = FINI + 1 FINI = FINI + N_C_AE_SPC DO SPC = STRT, FINI V = V + 1 VTYPE3D( SPC ) = M3REAL VNAME3D( SPC ) = C_AE_SPC( V ) IF ( VNAME3D( SPC )(1:3) .EQ. 'NUM' ) THEN UNITS3D( SPC ) = 'm-3' ELSE IF ( VNAME3D( SPC )(1:3) .EQ. 'SRF' ) THEN UNITS3D( SPC ) = 'm2 m-3' ELSE UNITS3D( SPC ) = 'ug m-3' END IF VDESC3D( SPC ) = 'Variable ' // VNAME3D( SPC ) END DO V = 0 STRT = FINI + 1 FINI = FINI + N_C_NR_SPC DO SPC = STRT, FINI V = V + 1 VTYPE3D( SPC ) = M3REAL VNAME3D( SPC ) = C_NR_SPC( V ) UNITS3D( SPC ) = 'ppmV' VDESC3D( SPC ) = 'Variable ' // VNAME3D( SPC ) END DO V = 0 STRT = FINI + 1 FINI = FINI + N_C_TR_SPC ! write all TR species DO SPC = STRT, FINI V = V + 1 VTYPE3D( SPC ) = M3REAL VNAME3D( SPC ) = C_TR_SPC( V ) UNITS3D( SPC ) = 'ppmV' VDESC3D( SPC ) = 'Molar Mixing Ratio for species ' // VNAME3D( SPC ) END DO VAR = FINI IF ( W_VEL ) THEN ! for W_YAMO VAR = VAR + 1 VTYPE3D( VAR ) = M3REAL VNAME3D( VAR ) = 'W_VEL' UNITS3D( VAR ) = 'm s-1' VDESC3D( VAR ) = 'Derived vertical velocity component' END IF IF ( L_CONC_RH ) THEN ! for Relative Humidity VAR = VAR + 1 VTYPE3D( VAR ) = M3REAL VNAME3D( VAR ) = 'RH' UNITS3D( VAR ) = '1' VDESC3D( VAR ) = 'Fractional Relative Humidity' END IF IF ( L_CONC_TA ) THEN ! for Temperature VAR = VAR + 1 VTYPE3D( VAR ) = M3REAL VNAME3D( VAR ) = 'TA' UNITS3D( VAR ) = 'K' VDESC3D( VAR ) = 'Air Temperature' END IF IF ( L_CONC_PRES ) THEN ! for Pressure VAR = VAR + 1 VTYPE3D( VAR ) = M3REAL VNAME3D( VAR ) = 'PRES' UNITS3D( VAR ) = 'Pa' VDESC3D( VAR ) = 'Air Pressure' END IF NVERTEXT_SPCS = NVARS3D ALLOCATE( VERTEXT_SPCS( NVERTEXT_SPCS ), STAT = STATUS ) VERTEXT_SPCS( 1:NVERTEXT_SPCS ) = VNAME3D( 1:NVERTEXT_SPCS ) C create header IF ( IO_PE_INCLUSIVE ) THEN ! open new IF ( .NOT. OPEN3( CTM_VEXT_1, FSNEW3, PNAME ) ) THEN XMSG = 'Could not open ' // CTM_VEXT_1 CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF IF ( .NOT. FLUSH3 ( CTM_VEXT_1 ) ) THEN XMSG = 'Could not sync to disk ' // CTM_VEXT_1 CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF END IF DEALLOCATE(VERTEXTLAT, VERTEXTLON, VERTEXTJR, VERTEXTIR) #endif END SUBROUTINE OPVEXT #ifndef mpas #ifdef parallel C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: LOGICAL FUNCTION PWRVEC( FILNAME, VARNAME, DATE, TIME, & BUFFER, NLAYS, & NCOLS, NROWS, NP, & NVERTEXT, VERTEXTII, VERTEXTJI) C..................................................................... C PURPOSE: Perform Models-3 file-write operation in a parallel C environment for a vector. Values of variable VARNAME on each processor C subdomain region are collected, via MPI calls, by the C primary I/O processor and the full grid of values are C written to file. C RETURN VALUE: The function fails if M3IO routine WRITE3 fails. If C an MPI error occurs, the program is aborted with a call to C PM3EXIT. C REVISION HISTORY: C Copied 11/29/2017 by Barron Henderson C -- Copied from PWRGRDD C 09 Jan 18 D.Wong: put in parallel implementation C ARGUMENT LIST DESCRIPTION: C M1 in PIOMAPS_MODULE C M2 in ALLOC_DATA_MODULE C E3 in PIOVARS.EXT C IN: C CHARACTER*(*) FILNAME ! Name of file containing variable VARNAME C CHARACTER*(*) VARNAME ! Name of file variable to write C INTEGER DATE ! Date, formatted YYYYDDD C INTEGER TIME ! Time, formatted HHMMSS C REAL BUFFER(NCOLS, NROWS, NLAYS) C ! Buffer holding (local) array to be written C INTEGER NLAYS ! Layer dimension of file variables C INTEGER NCOLS ! Column dimension of local-processor arrays C INTEGER NROWS ! Row dimension of local-processor arrays C INTEGER NP ! Number of processors C INTEGER NVERTEXT ! Number of Lat/Lon pairs C INTEGER VERTEXTII ! Vertice location C INTEGER VERTEXTJI ! Vertice location C OUT: none C LOCAL VARIABLE DESCRIPTION: see below C CALLS: WRITE3, PM3WARN, PM3EXIT, MPI_SEND, MPI_RECV, MPI_BCAST C NOTES: (1) Only the primary I/O processor does the file writing. Input C arguments FILNAME, VARNAME, DATE, and TIME are meaningful C only to the I/O processor. C (2) This routine handles only gridded variables. The BUFFER is C assumed to be declared as BUFFER( NCOLS, NROWS, NLAYS ), C where NCOLS and NROWS are the local PE grid subdomain C dimensions and NLAYS is the file variable layer dimension. C BUFFER is assumed to be filled as BUFFER(1:C,1:R,1:NLAYS), C where C = WR_COLSX_PE(2,MY_PE+1), R = WR_ROWSX_PE(2,MY_PE+1). C----------------------------------------------------------------------- USE PIOMAPS_MODULE USE M3UTILIO, ONLY : WRITE3 ! i/o api IMPLICIT NONE C Include Files INCLUDE 'mpif.h' ! MPI definitions and parameters INCLUDE 'PIOVARS.EXT' C Arguments CHARACTER( * ), INTENT(IN) :: FILNAME ! Name of file containing variable VARNAME CHARACTER( * ), INTENT(IN) :: VARNAME ! Name of file variable to write INTEGER, INTENT(IN) :: DATE ! Date, formatted YYYYDDD INTEGER, INTENT(IN) :: TIME ! Time, formatted HHMMSS INTEGER, INTENT(IN) :: NLAYS ! Layer dimension of file variables INTEGER, INTENT(IN) :: NCOLS ! Column dimension of local-processor arrays INTEGER, INTENT(IN) :: NROWS ! Row dimension of local-processor arrays INTEGER, INTENT(IN) :: NP ! Number of processors INTEGER, INTENT(IN) :: NVERTEXT ! Number of vertices INTEGER, INTENT(IN) :: VERTEXTII(:),VERTEXTJI(:) ! vertex locations REAL, INTENT(IN) :: BUFFER( :,:,: ) ! Buffer holding (local) array REAL, ALLOCATABLE, SAVE :: WRITVBUF( :,:,: ) REAL, ALLOCATABLE :: RECVVBUF( :,: ) REAL, ALLOCATABLE :: SENDVBUF(:,:) ! to be written C External Functions: EXTERNAL PM3WARN ! Parallel M3IO library C Local Variables: INTEGER :: MSGSIZE ! Message size of subgrid to receive INTEGER :: IPE ! For loop over processors INTEGER :: IERROR ! MPI error code LOGICAL :: LERROR ! LOCAL ERROR LOGICAL :: RERROR ! LOCAL MPI ALLREDUCE ERROR INTEGER :: TC,TR ! This cell position INTEGER :: IG ! Loop counter over grid layers CHARACTER( 16 ) :: FIL16 ! Scratch area for file-name CHARACTER( 16 ) :: VAR16 ! Scratch area for vble-name CHARACTER( 80 ) :: MSG ! Message issued from PM3WARN routine INTEGER :: STATUS( MPI_STATUS_SIZE ) ! MPI status code INTEGER :: N, POS INTEGER, PARAMETER :: TAG1 = 901 ! MPI message tag for processor ID C........................................................................ C Initialize return value and error code PWRVEC = .TRUE. LERROR = .FALSE. IERROR = 0 IF ( MY_PE .EQ. IO_PE ) THEN ! I/O processor collects and writes data IF (.NOT. ALLOCATED(WRITVBUF)) THEN ALLOCATE ( WRITVBUF ( 1, NVERTEXT, NLAYS ), STAT = IERROR ) IF ( IERROR .NE. 0 ) THEN MSG = 'Failure allocating WRITVBUF ' CALL M3EXIT( 'PWRVEC', DATE, TIME, MSG, 1 ) END IF END IF C Gather the array and write it to file. C I/O PE copies its own local array into output buffer DO N = 1, MY_NVERTEXT POS = PE_NVERTEXT(N, MY_PE) TC = MY_VERTEXTI(N) TR = MY_VERTEXTJ(N) WRITVBUF( 1, POS, : ) = BUFFER(TC, TR, :) END DO C I/O PE receives array from all other processors and copies it to the output C buffer. Arrays are received in a first-come-first-serve order. DO IPE = 1, NP - 1 IF (PE_NVERTEXT(0, IPE) .GT. 0) THEN ALLOCATE ( RECVVBUF ( PE_NVERTEXT(0, IPE), NLAYS ), STAT = IERROR ) IF ( IERROR .NE. 0 ) THEN MSG = 'Failure allocating RECVVBUF ' CALL M3EXIT( 'PWRVEC', DATE, TIME, MSG, 1 ) END IF MSGSIZE = PE_NVERTEXT(0, IPE) * NLAYS CALL MPI_RECV( RECVVBUF, MSGSIZE, MPI_REAL, IPE, & TAG1, MPI_COMM_WORLD, STATUS, IERROR ) IF ( IERROR .NE. 0 ) THEN MSG = 'MPI error receiving data array RECVVBUF.' CALL PM3WARN( 'PWRVEC', DATE, TIME, MSG ) LERROR = .TRUE. END IF DO N = 1, PE_NVERTEXT(0, IPE) POS = PE_NVERTEXT(N, IPE) TC = MY_VERTEXTI(N) TR = MY_VERTEXTJ(N) WRITVBUF( 1, POS, : ) = RECVVBUF(N,:) END DO DEALLOCATE (RECVVBUF) END IF END DO C Write the accumulated array to file FIL16 = FILNAME VAR16 = VARNAME IF ( .NOT. WRITE3( FIL16, VAR16, DATE, TIME, WRITVBUF ) ) THEN MSG = 'Could not write ' & // TRIM( VARNAME ) // & ' to file '// TRIM( FIL16 ) CALL PM3WARN( 'PWRVEC', DATE, TIME, MSG ) LERROR = .TRUE. END IF ELSE ! Non-I/O processors send data C Each processor, except for the I/O processor, sends its local array to C the I/O processor. IF (MY_NVERTEXT .GT. 0) THEN IF (.NOT. ALLOCATED(SENDVBUF)) THEN ALLOCATE ( SENDVBUF ( MY_NVERTEXT, NLAYS ), STAT = IERROR ) IF ( IERROR .NE. 0 ) THEN MSG = 'Failure allocating SENDVBUF ' CALL M3EXIT( 'PWRVEC', DATE, TIME, MSG, 1 ) END IF END IF DO IG = 1, MY_NVERTEXT TC = MY_VERTEXTI(IG) TR = MY_VERTEXTJ(IG) SENDVBUF( IG, : ) = BUFFER(TC, TR, :) END DO MSGSIZE = MY_NVERTEXT * NLAYS CALL MPI_SEND( SENDVBUF, MSGSIZE, MPI_REAL, IO_PE, TAG1, & MPI_COMM_WORLD, IERROR ) IF ( IERROR .NE. 0 ) THEN MSG = 'MPI error sending data array WRITVBUF.' CALL PM3WARN( 'PWRVEC', DATE, TIME, MSG ) LERROR = .TRUE. END IF END IF END IF ! if( my_pe .eq. io_pe ) C Notify non-I/O processors of failure CALL MPI_ALLREDUCE( LERROR, RERROR, 1, MPI_LOGICAL, MPI_LAND, & MPI_COMM_WORLD, IERROR ) IF ( IERROR .NE. 0 ) THEN MSG = 'MPI Allreduce error.' CALL PM3WARN( 'PWRVEC', DATE, TIME, MSG ) LERROR = .TRUE. END IF IF ( RERROR ) THEN MSG = 'Failed to write ' & // TRIM( VARNAME ) // & ' from file '// TRIM( FILNAME ) CALL PM3WARN( 'PWRVEC', DATE, TIME, MSG ) PWRVEC = .FALSE. END IF END FUNCTION PWRVEC C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE WR_VEXT( CGRID, JDATE, JTIME, TSTEP ) C Revision History: C 24 Nov 17 B.Henderson: copied from WR_CONC C 24 Jul 18 C. Nolte: removed call to INIT_MET that was causing conflict. C Met should already be initialized by this point. C 09 Sep 19 F. Sidi: Replaced L_CONC_WVEL & L_ACONC_WVEL (depreciated) with W_VEL C----------------------------------------------------------------------- USE GRID_CONF ! horizontal & vertical domain specifications USE RUNTIME_VARS USE STD_CONC ! standard CONC USE PIOMAPS_MODULE USE UTILIO_DEFN USE ASX_DATA_MOD, Only: Met_Data USE WVEL_DEFN, Only : WVEL IMPLICIT NONE C Include Files: INCLUDE SUBST_FILES_ID ! I/O definitions and declarations REAL, POINTER :: CGRID( :,:,:,: ) ! Species concentrations INTEGER, INTENT(IN) :: JDATE ! current model date, coded YYYYDDD INTEGER, INTENT(IN) :: JTIME ! current model time, coded HHMMSS INTEGER, INTENT(IN) :: TSTEP ! output timestep (HHMMSS) C Local variables: CHARACTER( 16 ) :: PNAME = 'WR_VEXT' CHARACTER( 96 ) :: XMSG = ' ' REAL, ALLOCATABLE :: DBUFF ( :,: ) ! input for W_VEL INTEGER :: ALLOCSTAT LOGICAL, SAVE :: FIRSTIME = .TRUE. C for INTERPX INTEGER :: C, R, K, L, V,GI ! loop induction variables INTEGER :: C0, CN, R0, RN INTEGER :: INDX, VAR ! CHARACTER( 16 ), ALLOCATABLE, SAVE :: VNAME( : ) ! INTEGER, SAVE :: NVARS C----------------------------------------------------------------------- IF ( FIRSTIME ) THEN FIRSTIME = .FALSE. C open vext file for update IF ( .NOT. IO_PE_INCLUSIVE ) THEN IF ( .NOT. OPEN3( CTM_VEXT_1, FSREAD3, PNAME ) ) THEN XMSG = 'Could not open ' // CTM_VEXT_1 // & ' file for update' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF END IF ! IF ( .NOT. DESC3( CTM_VEXT_1 ) ) THEN ! XMSG = 'Could not get file description from ' // CTM_VEXT_1 ! CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) ! END IF ! NVARS = NVARS3D ! ALLOCATE ( VNAME( NVARS ), STAT=ALLOCSTAT ) ! VNAME = VNAME3D( 1:NVARS ) ! WRITE(LOGDEV, *) 'WR_VEXT:NVARS', NVARS IF ( .NOT. ALLOCATED( DBUFF ) ) THEN ALLOCATE ( DBUFF( NVERTEXT, NLAYS ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating DBUFF' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF END IF END IF ! firstime DO V = 1, N_CSPCS INDX = CONC_MAP( V ) IF ( .NOT. PWRVEC(CTM_VEXT_1, CONC_FILE_SPCS( V ), JDATE, JTIME, & CGRID(:, :, :, INDX), NLAYS, & NCOLS, NROWS, NUMPROCS, & NVERTEXT, VERTEXTI, VERTEXTJ ) ) THEN XMSG = 'PWRGRDD failed writing variable ' & // TRIM( CONC_FILE_SPCS(V) ) // & ' to file '// TRIM( CTM_VEXT_1 ) CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) ELSE XMSG = 'PWRGRDD wrote variable ' & // TRIM( CONC_FILE_SPCS(V) ) // & ' to file '// TRIM( CTM_VEXT_1 ) WRITE( LOGDEV, '(A)') XMSG END IF END DO IF ( W_VEL ) THEN IF ( .NOT. PWRVEC(CTM_VEXT_1, 'W_VEL', JDATE, JTIME, & WVEL(:, :, :), NLAYS, & NCOLS, NROWS, NUMPROCS, & NVERTEXT, VERTEXTI, VERTEXTJ ) ) THEN XMSG = 'PWRGRDD failed writing variable WVEL' & // ' to file '// TRIM( CTM_VEXT_1 ) CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF END IF IF ( L_CONC_RH ) THEN IF ( .NOT. PWRVEC(CTM_VEXT_1, 'RH', JDATE, JTIME, & MET_DATA%RH(:, :, :), NLAYS, & NCOLS, NROWS, NUMPROCS, & NVERTEXT, VERTEXTI, VERTEXTJ ) ) THEN XMSG = 'PWRGRDD failed writing variable RH' & // ' to file '// TRIM( CTM_VEXT_1 ) CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF END IF IF ( L_CONC_PRES ) THEN IF ( .NOT. PWRVEC(CTM_VEXT_1, 'PRES', JDATE, JTIME, & Met_Data%PRES(:, :, :), NLAYS, & NCOLS, NROWS, NUMPROCS, & NVERTEXT, VERTEXTI, VERTEXTJ ) ) THEN XMSG = 'PWRGRDD failed writing variable PRES' & // ' to file '// TRIM( CTM_VEXT_1 ) CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF END IF IF ( L_CONC_TA ) THEN IF ( .NOT. PWRVEC(CTM_VEXT_1, 'TA', JDATE, JTIME, & Met_Data%TA(:, :, :), NLAYS, & NCOLS, NROWS, NUMPROCS, & NVERTEXT, VERTEXTI, VERTEXTJ ) ) THEN XMSG = 'PWRGRDD failed writing variable TA ' & // ' to file '// TRIM( CTM_VEXT_1 ) CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF END IF WRITE( LOGDEV, '( /5X, 3( A, :, 1X ), I8, ":", I6.6 )' ) & 'Timestep written to', CTM_VEXT_1, & 'for date and time', JDATE, JTIME END SUBROUTINE WR_VEXT #endif #endif C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE GET_LONLAT(NVERT, VERTLON, VERTLAT) C----------------------------------------------------------------------- C Function: C Get LON/LAT pairs from file C Revision history: C 09 Mar 18 B.Henderson: C----------------------------------------------------------------------- USE UTILIO_DEFN USE RUNTIME_VARS IMPLICIT NONE INTEGER :: STATUS, FUNIT, I INTEGER, INTENT(INOUT) :: NVERT REAL, ALLOCATABLE, INTENT(INOUT) :: VERTLAT(:), VERTLON(:) ! environment variable description CHARACTER( 80 ) :: VARDESC CHARACTER( 16 ) :: DEFTXT = '' CHARACTER( 16 ) :: PNAME = 'OPVEXT' CHARACTER( 96 ) :: XMSG = ' ' #ifndef mpas FUNIT = 100 ! OPEN FORMATTED FILE ! EXPECTED FORMAT ! REC1: N ! REC2-N+1: LON LAT OPEN(UNIT=FUNIT, FILE=VEXT_COORD_PATH, STATUS='OLD', & FORM = 'FORMATTED', IOSTAT = STATUS) IF ( STATUS .NE. 0 ) THEN XMSG = TRIM(VEXT_COORD_PATH) // & ' Could not be opened' CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT1 ) END IF ! READ NUMBER OF VERTICES READ(FUNIT, *, IOSTAT=STATUS) NVERT IF ( STATUS .NE. 0 ) THEN XMSG = TRIM(VEXT_COORD_PATH) // & ' did not contain one integer on the first line' CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT1 ) END IF ! ALLOCATE OUTPUT VARIABLES ALLOCATE ( VERTLAT(NVERT), VERTLON(NVERT), STAT = STATUS ) ! FOR EACH INPUT LINE READ LON,LAT DO I=1,NVERT READ(FUNIT, *, IOSTAT=STATUS) VERTLON(I), VERTLAT(I) IF ( STATUS .NE. 0 ) THEN WRITE(XMSG, '(I6)') I XMSG = TRIM(VEXT_COORD_PATH) // & ' did not contain two reals on line: ' // & TRIM(XMSG) CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT1 ) END IF ENDDO ! CLOSE FILE CLOSE(FUNIT) #endif END SUBROUTINE GET_LONLAT SUBROUTINE LONLAT2XY(NVERTEXT, VERTEXTLON, VERTEXTLAT, & VERTEXTIR, VERTEXTJR) USE UTILIO_DEFN USE GRID_CONF ! horizontal & vertical domain specifications IMPLICIT NONE INTEGER, INTENT(in) :: NVERTEXT REAL, INTENT(in) :: VERTEXTLON(NVERTEXT), VERTEXTLAT(NVERTEXT) REAL, INTENT(inout) :: VERTEXTIR(NVERTEXT), VERTEXTJR(NVERTEXT) CHARACTER( 16 ) :: PNAME = 'LONLAT2XY' CHARACTER( 96 ) :: XMSG = ' ' LOGICAL :: PRJSET, LSTAT REAL :: JR, IR INTEGER :: V ! IOAPI 3.2 has an explicit function, but many users are likely ! using 3.1, so I basically rewrote LL2XY ! CALL XY2XY( GDTYP_GD, P_ALP_GD, P_BET_GD, P_GAM_GD, XCENT_GD, YCENT_GD, ! & 1 , 0.d0, 0.d0, 0.d0, 0.d0, 0.d0, ! & NVERTEXT, VERTEXTLON, VERTEXTLAT, VERTEXTIR, VERTEXTJR ) #ifndef mpas IF ( GDTYP3D .EQ. LAMGRD3 ) THEN PRJSET = SETLAM( REAL(P_ALP_GD), REAL(P_BET_GD), REAL(P_GAM_GD), & REAL(XCENT_GD), REAL(YCENT_GD)) DO V=1,NVERTEXT LSTAT = LL2LAM( VERTEXTLON(V), VERTEXTLAT(V), IR, JR ) VERTEXTIR(V) = IR VERTEXTJR(V) = JR ENDDO ELSEIF ( GDTYP_GD .EQ. POLGRD3 ) THEN PRJSET = SETPOL( REAL(P_ALP_GD), REAL(P_BET_GD), REAL(P_GAM_GD), & REAL(XCENT_GD), REAL(YCENT_GD)) DO V=1,NVERTEXT LSTAT = LL2POL( VERTEXTLON(V), VERTEXTLAT(V), IR, JR ) VERTEXTIR(V) = IR VERTEXTJR(V) = JR ENDDO ELSEIF ( GDTYP_GD .EQ. EQMGRD3 ) THEN PRJSET = SETEQM( REAL(P_ALP_GD), REAL(P_BET_GD), REAL(P_GAM_GD), & REAL(XCENT_GD), REAL(YCENT_GD)) DO V=1,NVERTEXT LSTAT = LL2EQM( VERTEXTLON(V), VERTEXTLAT(V), IR, JR ) VERTEXTIR(V) = IR VERTEXTJR(V) = JR ENDDO ELSEIF ( GDTYP_GD .EQ. TRMGRD3 ) THEN PRJSET = SETTRM( REAL(P_ALP_GD), REAL(P_BET_GD), REAL(P_GAM_GD), & REAL(XCENT_GD), REAL(YCENT_GD)) DO V=1,NVERTEXT LSTAT = LL2TRM( VERTEXTLON(V), VERTEXTLAT(V), IR, JR ) VERTEXTIR(V) = IR VERTEXTJR(V) = JR ENDDO ELSEIF ( GDTYP_GD .EQ. ALBGRD3 ) THEN PRJSET = SETALB( REAL(P_ALP_GD), REAL(P_BET_GD), REAL(P_GAM_GD), & REAL(XCENT_GD), REAL(YCENT_GD)) DO V=1,NVERTEXT LSTAT = LL2ALB( VERTEXTLON(V), VERTEXTLAT(V), IR, JR ) VERTEXTIR(V) = IR VERTEXTJR(V) = JR ENDDO ELSE XMSG = 'Unsupported coordinate system type' CALL M3EXIT(PNAME, 0, 0, XMSG, XSTAT2) END IF #endif END SUBROUTINE LONLAT2XY END MODULE VERTEXT_MODULE ================================================ FILE: CCTM/src/driver/AVG_CONC.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: MODULE AVG_CONC IMPLICIT NONE C Revision History C 10 May 2016 D. Wong Modified code to provide flexibility to handle C environment variable ACONC_FILE_SPCS is set to 'ALL' C or not set. C C 09 Sep 19 F. Sidi: Replaced L_CONC_WVEL & L_ACONC_WVEL (depreciated) with W_VEL & C added W_VEL to species aconc_species list depending on C if the user requests the vertical velocity to be output C C C Function: species, layer pointers and definitions for integral average C CONC calculations C C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: INTEGER, SAVE :: N_ASPCS = 0 INTEGER, SAVE, ALLOCATABLE :: AVG_CONC_MAP( : ) ! pointer into CGRID CHARACTER( 16 ), SAVE, ALLOCATABLE :: A_GC_SPC( : ) ! pointer into GC_SPC CHARACTER( 16 ), SAVE, ALLOCATABLE :: A_AE_SPC( : ) ! pointer into AE_SPC CHARACTER( 16 ), SAVE, ALLOCATABLE :: A_NR_SPC( : ) ! pointer into NR_SPC CHARACTER( 16 ), SAVE, ALLOCATABLE :: A_TR_SPC( : ) ! pointer into TR_SPC C species classes configuration for average CONC INTEGER, SAVE :: A_GC_STRT INTEGER, SAVE :: N_A_GC_SPC INTEGER, SAVE :: A_AE_STRT INTEGER, SAVE :: N_A_AE_SPC INTEGER, SAVE :: A_NR_STRT INTEGER, SAVE :: N_A_NR_SPC INTEGER, SAVE :: A_TR_STRT INTEGER, SAVE :: N_A_TR_SPC INTEGER, SAVE :: N_A_AE_SPCD C Number of Average Concentration Layers INTEGER, SAVE :: A_NLYS = 1 C Average Arrays for Met variables REAL, SAVE, ALLOCATABLE :: AVG_WVEL( :,:,: ) REAL, SAVE, ALLOCATABLE :: AVG_RH( :,:,: ) REAL, SAVE, ALLOCATABLE :: AVG_TA( :,:,: ) REAL, SAVE, ALLOCATABLE :: AVG_PRES( :,:,: ) C Logical to test whether met variables are included LOGICAL, SAVE :: L_ACONC_RH = .FALSE. LOGICAL, SAVE :: L_ACONC_TA = .FALSE. LOGICAL, SAVE :: L_ACONC_PRES = .FALSE. CONTAINS SUBROUTINE A_CONC_DEFN () USE RUNTIME_VARS USE GRID_CONF ! Grid Configuration USE CGRID_SPCS ! CGRID mechanism species USE UTILIO_DEFN #ifdef sens Use DDM3D_DEFN, Only: N_ASENS_VARS #endif CHARACTER( 16 ) :: PNAME = 'A_CONC_DEFN' CHARACTER(200 ) :: XMSG = ' ' INTEGER OFF, VAR, V, NV, LVL INTEGER ALLOCSTAT, STATUS INTEGER :: JDATE = 0 INTEGER :: JTIME = 0 INTEGER, ALLOCATABLE :: GC_MAP( : ) INTEGER, ALLOCATABLE :: AE_MAP( : ) INTEGER, ALLOCATABLE :: NR_MAP( : ) INTEGER, ALLOCATABLE :: TR_MAP( : ) C----------------------------------------------------------------------- C RETRIEVE THE SPECIES SAVED TO INTEGRAL AVERAGE CONCENTRATION FILE IF ( N_ACONC_VARS .EQ. 0 .OR. ACONC_FILE_SPCS( 1 ) .EQ. 'ALL' ) THEN V = 0 DO VAR = 1, N_GC_CONC V = V + 1 ACONC_FILE_SPCS( V ) = GC_CONC( VAR ) END DO DO VAR = 1, N_AE_CONC V = V + 1 ACONC_FILE_SPCS( V ) = AE_CONC( VAR ) END DO DO VAR = 1, N_NR_CONC V = V + 1 ACONC_FILE_SPCS( V ) = NR_CONC( VAR ) END DO DO VAR = 1, N_TR_SPC V = V + 1 ACONC_FILE_SPCS( V ) = TR_SPC( VAR ) END DO ACONC_FILE_SPCS( V + 1 ) = 'RH' ACONC_FILE_SPCS( V + 2 ) = 'TA' ACONC_FILE_SPCS( V + 3 ) = 'PRES' N_ACONC_VARS = V + 3 #ifdef sens N_ASENS_VARS = V #endif END IF C Retrieve CTM_WVEL environmental variable to see if user wants diagnosed vertical velocity IF ( W_VEL ) THEN ACONC_FILE_SPCS( N_ACONC_VARS + 1 ) = 'WVEL' N_ACONC_VARS = N_ACONC_VARS + 1 END IF C Retrieve the layer range used in integral average concentration file IF ( ACONC_ELEV .EQ. -1 ) ACONC_ELEV = NLAYS IF ( ACONC_BLEV .LE. 0 .OR. ACONC_ELEV .GT. NLAYS ) THEN WRITE( XMSG,'( "Layer range", 2I4, " invalid for this model" )' ) & ACONC_BLEV, ACONC_ELEV CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT3 ) END IF A_NLYS = ACONC_ELEV - ACONC_BLEV + 1 C Check species names against include files and create AVG_CONC_MAP, and C get starting index in AGRID and total count for each species class ALLOCATE ( A_GC_SPC ( N_ACONC_VARS ), & A_AE_SPC ( N_ACONC_VARS ), & A_NR_SPC ( N_ACONC_VARS ), & A_TR_SPC ( N_ACONC_VARS ), & GC_MAP ( N_ACONC_VARS ), & AE_MAP ( N_ACONC_VARS ), & NR_MAP ( N_ACONC_VARS ), & TR_MAP ( N_ACONC_VARS ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'AVG_CONC_MAP or A_GC_SPC or A_AE_SPC or A_NR_SPC' & // ' or A_TR_SPC or GC_MAP or AE_MAP or NR_MAP or TR_MAP' & // ' memory allocation failed' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT3 ) END IF C The selected species MUST be contiguous with the classes, C and the classes must be in the sequence: GC, AE, NR, TR N_A_GC_SPC = 0 N_A_AE_SPC = 0 N_A_NR_SPC = 0 N_A_TR_SPC = 0 DO VAR = 1, N_ACONC_VARS V = INDEX1 ( ACONC_FILE_SPCS( VAR ), N_GC_SPC, GC_SPC ) IF ( V .GT. 0 ) THEN N_ASPCS = N_ASPCS + 1 N_A_GC_SPC = N_A_GC_SPC + 1 A_GC_SPC( N_A_GC_SPC ) = ACONC_FILE_SPCS( VAR ) OFF = 0 GC_MAP( N_A_GC_SPC ) = V + OFF ELSE V = INDEX1 ( ACONC_FILE_SPCS( VAR ), N_AE_SPC, AE_SPC ) IF ( V .GT. 0 ) THEN N_ASPCS = N_ASPCS + 1 N_A_AE_SPC = N_A_AE_SPC + 1 OFF = N_GC_SPC + 1 ! accounts for advected density A_AE_SPC( N_A_AE_SPC ) = ACONC_FILE_SPCS( VAR ) AE_MAP( N_A_AE_SPC ) = V + OFF ELSE V = INDEX1 ( ACONC_FILE_SPCS( VAR ), N_NR_SPC, NR_SPC ) IF ( V .GT. 0 ) THEN N_ASPCS = N_ASPCS + 1 N_A_NR_SPC = N_A_NR_SPC + 1 OFF = N_GC_SPC + 1 + N_AE_SPC A_NR_SPC( N_A_NR_SPC ) = ACONC_FILE_SPCS( VAR ) NR_MAP( N_A_NR_SPC ) = V + OFF ELSE V = INDEX1 ( ACONC_FILE_SPCS( VAR ), N_TR_SPC, TR_SPC ) IF ( V .GT. 0 ) THEN N_ASPCS = N_ASPCS + 1 N_A_TR_SPC = N_A_TR_SPC + 1 OFF = N_GC_SPC + 1 + N_AE_SPC + N_NR_SPC A_TR_SPC( N_A_TR_SPC ) = ACONC_FILE_SPCS( VAR ) TR_MAP( N_A_TR_SPC ) = V + OFF ELSE IF ( ACONC_FILE_SPCS( VAR ) .EQ. 'WVEL' ) THEN ALLOCATE( AVG_WVEL( NCOLS,NROWS,A_NLYS ) ) ELSE IF ( ACONC_FILE_SPCS( VAR ) .EQ. 'RH' ) THEN L_ACONC_RH = .TRUE. ALLOCATE( AVG_RH( NCOLS,NROWS,A_NLYS ) ) ELSE IF ( ACONC_FILE_SPCS( VAR ) .EQ. 'TA' ) THEN L_ACONC_TA = .TRUE. ALLOCATE( AVG_TA( NCOLS,NROWS,A_NLYS ) ) ELSE IF ( ACONC_FILE_SPCS( VAR ) .EQ. 'PRES' ) THEN L_ACONC_PRES = .TRUE. ALLOCATE( AVG_PRES( NCOLS,NROWS,A_NLYS ) ) ELSE XMSG = 'Variable ' // ACONC_FILE_SPCS( VAR ) & // ' was requested for average concentration ' & // ' output, but it is not available from any ' & // ' species namelist.' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT3 ) END IF END IF END IF END IF END DO A_GC_STRT = 1 A_AE_STRT = A_GC_STRT + N_A_GC_SPC A_NR_STRT = A_AE_STRT + N_A_AE_SPC A_TR_STRT = A_NR_STRT + N_A_NR_SPC IF ( N_A_AE_SPC .GT. 0 ) THEN N_A_AE_SPCD = N_A_AE_SPC ELSE N_A_AE_SPCD = 1 END IF ! Map the CGRID indices to the AGRID indices ! i.e.: AVG_CONC_MAP( AGRID_IND ) = CGRID_IND ALLOCATE( AVG_CONC_MAP( N_ASPCS ) ) VAR = 0 DO V = 1, N_A_GC_SPC VAR = VAR + 1 AVG_CONC_MAP( VAR ) = GC_MAP( V ) END DO DO V = 1, N_A_AE_SPC VAR = VAR + 1 AVG_CONC_MAP( VAR ) = AE_MAP( V ) END DO DO V = 1, N_A_NR_SPC VAR = VAR + 1 AVG_CONC_MAP( VAR ) = NR_MAP( V ) END DO DO V = 1, N_A_TR_SPC VAR = VAR + 1 AVG_CONC_MAP( VAR ) = TR_MAP( V ) END DO ! Deallocate arrays if they are unused DEALLOCATE( GC_MAP, AE_MAP, NR_MAP, TR_MAP ) IF ( N_A_GC_SPC .EQ. 0 ) DEALLOCATE ( A_GC_SPC ) IF ( N_A_AE_SPC .EQ. 0 ) DEALLOCATE ( A_AE_SPC ) IF ( N_A_NR_SPC .EQ. 0 ) DEALLOCATE ( A_NR_SPC ) IF ( N_A_TR_SPC .EQ. 0 ) DEALLOCATE ( A_TR_SPC ) END SUBROUTINE A_CONC_DEFN END MODULE AVG_CONC ================================================ FILE: CCTM/src/driver/ELMO_DATA.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! c::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: MODULE ELMO_DATA USE AERO_DATA, ONLY : N_MODE USE UTILIO_DEFN IMPLICIT NONE #ifdef mpas INTEGER, PARAMETER :: M3REAL = 5 #endif ! Define Logical values as T and F for the aerospc table Logical, Parameter, Private :: T = .true. Logical, Parameter, Private :: F = .false. LOGICAL, SAVE :: L_ELMO REAL, SAVE :: ELMO_NSTEP = 0. INTEGER, SAVE :: NLAY_ELMO_INST INTEGER, SAVE :: NLAY_ELMO_AVRG ! Define Indices for All ELMO Parameters ! The idea here is that parameters will be organized and ! calculated in the order of this list, not the ELMO_LIST. The ! ELMO_LIST is searchable via the Parameter names but they ! link to this list of integers so that each parameter can be ! easily referenced during the run without having to do string ! lookups. Please see the table defining the ELMO_LIST below ! for a description of each of these indices. INTEGER, PARAMETER :: ID_STDEV = 1 INTEGER, PARAMETER :: ID_DRY_DG = 2 INTEGER, PARAMETER :: ID_WET_DG = 3 INTEGER, PARAMETER :: ID_WET_M2 = 4 INTEGER, PARAMETER :: ID_DRY_M3 = 5 INTEGER, PARAMETER :: ID_WET_M3 = 6 INTEGER, PARAMETER :: ID_PM_NUM = 7 INTEGER, PARAMETER :: ID_PMU_NUM = 8 INTEGER, PARAMETER :: ID_PMF_NUM = 9 INTEGER, PARAMETER :: ID_PMC_NUM = 10 INTEGER, PARAMETER :: ID_N10 = 11 INTEGER, PARAMETER :: ID_N20 = 12 INTEGER, PARAMETER :: ID_N40 = 13 INTEGER, PARAMETER :: ID_N100 = 14 INTEGER, PARAMETER :: ID_PM_SRF = 15 INTEGER, PARAMETER :: ID_PMU_SRF = 16 INTEGER, PARAMETER :: ID_PMF_SRF = 17 INTEGER, PARAMETER :: ID_PMC_SRF = 18 INTEGER, PARAMETER :: ID_PM_MASS = 19 INTEGER, PARAMETER :: ID_PMU_MASS = 20 INTEGER, PARAMETER :: ID_PMF_MASS = 21 INTEGER, PARAMETER :: ID_PMC_MASS = 22 INTEGER, PARAMETER :: ID_PMNUC_MASS = 23 INTEGER, PARAMETER :: ID_PMAIT_MASS = 24 INTEGER, PARAMETER :: ID_PMACC_MASS = 25 INTEGER, PARAMETER :: ID_DRY_DENS = 26 INTEGER, PARAMETER :: ID_WET_DENS = 27 INTEGER, PARAMETER :: ID_FPM01 = 28 INTEGER, PARAMETER :: ID_FPM1 = 29 INTEGER, PARAMETER :: ID_FPM25 = 30 INTEGER, PARAMETER :: ID_FPM10 = 31 INTEGER, PARAMETER :: ID_FPM25to10 = 32 INTEGER, PARAMETER :: ID_FAMS = 33 INTEGER, PARAMETER :: ID_PM01 = 34 INTEGER, PARAMETER :: ID_PM1 = 35 INTEGER, PARAMETER :: ID_PM25 = 36 INTEGER, PARAMETER :: ID_PM10 = 37 INTEGER, PARAMETER :: ID_PM25to10 = 38 INTEGER, PARAMETER :: ID_PMAMS = 39 INTEGER, PARAMETER :: ID_PMC_SO4 = 40 INTEGER, PARAMETER :: ID_PMC_NO3 = 41 INTEGER, PARAMETER :: ID_PMC_NH4 = 42 INTEGER, PARAMETER :: ID_PMC_CL = 43 INTEGER, PARAMETER :: ID_PMC_NA = 44 INTEGER, PARAMETER :: ID_PMC_MG = 45 INTEGER, PARAMETER :: ID_PMC_K = 46 INTEGER, PARAMETER :: ID_PMC_CA = 47 INTEGER, PARAMETER :: ID_PMF_SO4 = 48 INTEGER, PARAMETER :: ID_PMF_NO3 = 49 INTEGER, PARAMETER :: ID_PMF_NH4 = 50 INTEGER, PARAMETER :: ID_PMF_CL = 51 INTEGER, PARAMETER :: ID_PMF_NA = 52 INTEGER, PARAMETER :: ID_PMF_EC = 53 INTEGER, PARAMETER :: ID_PMF_OC = 54 INTEGER, PARAMETER :: ID_PMF_OA = 55 INTEGER, PARAMETER :: ID_PMF_FE = 56 INTEGER, PARAMETER :: ID_PMF_AL = 57 INTEGER, PARAMETER :: ID_PMF_SI = 58 INTEGER, PARAMETER :: ID_PMF_TI = 59 INTEGER, PARAMETER :: ID_PMF_CA = 60 INTEGER, PARAMETER :: ID_PMF_MG = 61 INTEGER, PARAMETER :: ID_PMF_K = 62 INTEGER, PARAMETER :: ID_PMF_MN = 63 INTEGER, PARAMETER :: ID_PMF_H2O = 64 INTEGER, PARAMETER :: ID_SOIL_IMPV = 65 INTEGER, PARAMETER :: ID_PMF_UNSP1 = 66 INTEGER, PARAMETER :: ID_PMF_UNSP2 = 67 INTEGER, PARAMETER :: ID_PMF_HP = 68 INTEGER, PARAMETER :: ID_PMF_HPM = 69 INTEGER, PARAMETER :: ID_PMF_PH = 70 INTEGER, PARAMETER :: ID_PMF_POC = 71 INTEGER, PARAMETER :: ID_PMF_SOC = 72 INTEGER, PARAMETER :: ID_PMF_POA = 73 INTEGER, PARAMETER :: ID_PMF_SOA = 74 INTEGER, PARAMETER :: ID_PMF_NCOM = 75 INTEGER, PARAMETER :: ID_PMF_OMOC = 76 INTEGER, PARAMETER :: ID_PMF_OtoC = 77 INTEGER, PARAMETER :: ID_PMF_ASOA = 78 INTEGER, PARAMETER :: ID_PMF_BSOA = 79 INTEGER, PARAMETER :: ID_PMF_CLDGLY = 80 INTEGER, PARAMETER :: ID_PMF_ISOP = 81 INTEGER, PARAMETER :: ID_PMF_IEPOX = 82 INTEGER, PARAMETER :: ID_PMF_MTNSOA = 83 INTEGER, PARAMETER :: ID_PMF_MTSOA = 84 INTEGER, PARAMETER :: ID_AMS_SO4 = 85 INTEGER, PARAMETER :: ID_AMS_NO3 = 86 INTEGER, PARAMETER :: ID_AMS_NH4 = 87 INTEGER, PARAMETER :: ID_AMS_CL = 88 INTEGER, PARAMETER :: ID_AMS_OA = 89 INTEGER, PARAMETER :: ID_AMS_OTOC = 90 INTEGER, PARAMETER :: ID_PM1_SO4 = 91 INTEGER, PARAMETER :: ID_PM1_NO3 = 92 INTEGER, PARAMETER :: ID_PM1_NH4 = 93 INTEGER, PARAMETER :: ID_PM1_CL = 94 INTEGER, PARAMETER :: ID_PM1_NA = 95 INTEGER, PARAMETER :: ID_PM1_EC = 96 INTEGER, PARAMETER :: ID_PM1_OC = 97 INTEGER, PARAMETER :: ID_PM1_OA = 98 INTEGER, PARAMETER :: ID_PM1_MG = 99 INTEGER, PARAMETER :: ID_PM1_K = 100 INTEGER, PARAMETER :: ID_PM1_CA = 101 INTEGER, PARAMETER :: ID_PM1_OT = 102 INTEGER, PARAMETER :: ID_PM1_FE = 103 INTEGER, PARAMETER :: ID_PM1_SI = 104 INTEGER, PARAMETER :: ID_PM1_TI = 105 INTEGER, PARAMETER :: ID_PM1_MN = 106 INTEGER, PARAMETER :: ID_PM1_AL = 107 INTEGER, PARAMETER :: ID_PM1_SOIL = 108 INTEGER, PARAMETER :: ID_PM1_UNSP1 = 109 INTEGER, PARAMETER :: ID_PM1_UN = 110 INTEGER, PARAMETER :: ID_PM1_HP = 111 INTEGER, PARAMETER :: ID_PM25_SO4 = 112 INTEGER, PARAMETER :: ID_PM25_NO3 = 113 INTEGER, PARAMETER :: ID_PM25_NH4 = 114 INTEGER, PARAMETER :: ID_PM25_CL = 115 INTEGER, PARAMETER :: ID_PM25_NA = 116 INTEGER, PARAMETER :: ID_PM25_EC = 117 INTEGER, PARAMETER :: ID_PM25_OC = 118 INTEGER, PARAMETER :: ID_PM25_OA = 119 INTEGER, PARAMETER :: ID_PM25_MG = 120 INTEGER, PARAMETER :: ID_PM25_K = 121 INTEGER, PARAMETER :: ID_PM25_CA = 122 INTEGER, PARAMETER :: ID_PM25_OT = 123 INTEGER, PARAMETER :: ID_PM25_FE = 124 INTEGER, PARAMETER :: ID_PM25_SI = 125 INTEGER, PARAMETER :: ID_PM25_TI = 126 INTEGER, PARAMETER :: ID_PM25_MN = 127 INTEGER, PARAMETER :: ID_PM25_AL = 128 INTEGER, PARAMETER :: ID_PM25_SOIL = 129 INTEGER, PARAMETER :: ID_PM25_UNSP1 = 130 INTEGER, PARAMETER :: ID_PM25_UN = 131 INTEGER, PARAMETER :: ID_PM25_HP = 132 INTEGER, PARAMETER :: ID_PM25to10_SO4=133 INTEGER, PARAMETER :: ID_PM25to10_NO3=134 INTEGER, PARAMETER :: ID_PM25to10_NH4=135 INTEGER, PARAMETER :: ID_PM25to10_CL =136 INTEGER, PARAMETER :: ID_PM25to10_NA =137 INTEGER, PARAMETER :: ID_PM25_HDSL =138 INTEGER, PARAMETER :: ID_PM25_HBE =139 INTEGER, PARAMETER :: ID_PM25_HCD =140 INTEGER, PARAMETER :: ID_PM25_HCR3 =141 INTEGER, PARAMETER :: ID_PM25_HCR6 =142 INTEGER, PARAMETER :: ID_PM25_HCR =143 INTEGER, PARAMETER :: ID_PM25_HPB =144 INTEGER, PARAMETER :: ID_PM25_HMN =145 INTEGER, PARAMETER :: ID_PM25_HNI =146 INTEGER, PARAMETER :: ID_PM25_HAS =147 INTEGER, PARAMETER :: ID_PM25_HG =148 INTEGER, PARAMETER :: ID_PM10_HDSL =149 INTEGER, PARAMETER :: ID_PM10_HBE =150 INTEGER, PARAMETER :: ID_PM10_HCD =151 INTEGER, PARAMETER :: ID_PM10_HCR3 =152 INTEGER, PARAMETER :: ID_PM10_HCR6 =153 INTEGER, PARAMETER :: ID_PM10_HCR =154 INTEGER, PARAMETER :: ID_PM10_HPB =155 INTEGER, PARAMETER :: ID_PM10_HMN =156 INTEGER, PARAMETER :: ID_PM10_HNI =157 INTEGER, PARAMETER :: ID_PM10_HAS =158 INTEGER, PARAMETER :: ID_PM10_HG =159 INTEGER, PARAMETER :: ID_PM25_BENAPY =160 INTEGER, PARAMETER :: ID_PM10_BENAPY =161 INTEGER, PARAMETER :: ID_PMF_BENAPY =162 INTEGER, PARAMETER :: ID_GAS_BENAPY =163 INTEGER, PARAMETER :: ID_BENAPY_FAERO=164 INTEGER, PARAMETER :: ID_TNO3 = 165 INTEGER, PARAMETER :: ID_TNO3TOT = 166 INTEGER, PARAMETER :: ID_PM25_FRM = 167 INTEGER, PARAMETER :: ID_PMF_FRM = 168 INTEGER, PARAMETER :: ID_AOD550 = 169 INTEGER, PARAMETER :: ID_PMEXT550 = 170 INTEGER, PARAMETER :: ID_RH = 171 INTEGER, PARAMETER :: ID_TEMP = 172 INTEGER, PARAMETER :: ID_SRFTEMP = 173 INTEGER, PARAMETER :: ID_PRES = 174 INTEGER, PARAMETER :: ID_GN2O5F = 175 INTEGER, PARAMETER :: ID_GN2O5C = 176 INTEGER, PARAMETER :: ID_YCLNO2F = 177 INTEGER, PARAMETER :: ID_YCLNO2C = 178 INTEGER, PARAMETER :: ID_GIEPOX = 179 INTEGER, PARAMETER :: ID_KIEPOX = 180 INTEGER, PARAMETER :: ID_GIMAE = 181 INTEGER, PARAMETER :: ID_DZ = 182 INTEGER, PARAMETER :: ID_ZH = 183 INTEGER, PARAMETER :: ID_CFRAC = 184 INTEGER, PARAMETER :: ID_PV = 185 INTEGER, PARAMETER :: ID_DENS = 186 INTEGER, PARAMETER :: ID_RHOJ = 187 INTEGER, PARAMETER :: ID_GAS_HNO3 = 188 INTEGER, PARAMETER :: ID_GAS_NH3 = 189 TYPE ELDTP CHARACTER (LEN = 16) :: NAME !Parameter Name INTEGER :: ID !ID Number in Case Statement INTEGER :: VAR_TYPE !IOAPI Variable Type LOGICAL :: MODE !Is this property mode-dependent? CHARACTER (LEN = 16) :: UNIT !Units for Parameter CHARACTER (LEN = 80) :: DESC !Description END TYPE ELDTP INTEGER, PARAMETER :: N_ELMO_LIST = 189 TYPE (ELDTP), PARAMETER :: ELMO_LIST( N_ELMO_LIST ) = (/ &ELDTP( 'STDEV ',ID_STDEV, M3REAL, T, ' ', 'Mode standard deviation (dry and wet)' ), &ELDTP( 'DRY_DG ',ID_DRY_DG, M3REAL, T, 'um ', 'Mode mean diameter (dry)' ), &ELDTP( 'WET_DG ',ID_WET_DG, M3REAL, T, 'um ', 'Mode mean diameter (wet)' ), &ELDTP( 'WET_M2 ',ID_WET_M2, M3REAL, T, 'm2 m-3', 'Mode 2nd moment (wet)' ), &ELDTP( 'DRY_M3 ',ID_DRY_M3, M3REAL, T, 'm3 m-3', 'Mode 3rd moment (dry)' ), &ELDTP( 'WET_M3 ',ID_WET_M3, M3REAL, T, 'm3 m-3', 'Mode 3rd moment (wet)' ), &ELDTP( 'PM_NUM ',ID_PM_NUM, M3REAL, F, 'N m-3' , 'Total Particle Number' ), &ELDTP( 'PMU_NUM ',ID_PMU_NUM, M3REAL, F, 'N m-3' , 'Ultrafine-Mode Particle Number' ), &ELDTP( 'PMF_NUM ',ID_PMF_NUM, M3REAL, F, 'N m-3' , 'Fine-Mode Particle Number' ), &ELDTP( 'PMC_NUM ',ID_PMC_NUM, M3REAL, F, 'N m-3' , 'Coarse-Mode Particle Number' ), &ELDTP( 'N10 ',ID_N10, M3REAL, F, 'N m-3' , 'Total Particle Number greater than 10 nm' ), &ELDTP( 'N20 ',ID_N20, M3REAL, F, 'N m-3' , 'Total Particle Number greater than 20 nm' ), &ELDTP( 'N40 ',ID_N40, M3REAL, F, 'N m-3' , 'Total Particle Number greater than 40 nm' ), &ELDTP( 'N100 ',ID_N100, M3REAL, F, 'N m-3' , 'Total Particle Number greater than 100 nm' ), &ELDTP( 'PM_SRF ',ID_PM_SRF, M3REAL, F, 'm2 m-3', 'Particle Surface Area' ), &ELDTP( 'PMU_SRF ',ID_PMU_SRF, M3REAL, F, 'm2 m-3', 'Ultrafine-Mode Surface Area' ), &ELDTP( 'PMF_SRF ',ID_PMF_SRF, M3REAL, F, 'm2 m-3', 'Fine-Mode Surface Area' ), &ELDTP( 'PMC_SRF ',ID_PMC_SRF, M3REAL, F, 'm2 m-3', 'Coarse-Mode Surface Area' ), &ELDTP( 'PM_MASS ',ID_PM_MASS, M3REAL, F, 'ug m-3', 'Total Particle Mass' ), &ELDTP( 'PMU_MASS ',ID_PMU_MASS, M3REAL, F, 'ug m-3', 'Ultrafine Particle Mass' ), &ELDTP( 'PMF_MASS ',ID_PMF_MASS, M3REAL, F, 'ug m-3', 'Fine Particle Mass' ), &ELDTP( 'PMC_MASS ',ID_PMC_MASS, M3REAL, F, 'ug m-3', 'Coarse Particle Mass' ), &ELDTP( 'PMNUC_MASS ',ID_PMNUC_MASS, M3REAL, F, 'ug m-3', 'Nucleation Mode Total PM' ), &ELDTP( 'PMAIT_MASS ',ID_PMAIT_MASS, M3REAL, F, 'ug m-3', 'Aitken Mode Total PM' ), &ELDTP( 'PMACC_MASS ',ID_PMACC_MASS, M3REAL, F, 'ug m-3', 'Accumulation Mode Total PM' ), &ELDTP( 'DRY_DENS ',ID_DRY_DENS, M3REAL, T, 'kg m-3', 'Bulk Density of Particles excluding particle water' ), &ELDTP( 'WET_DENS ',ID_WET_DENS, M3REAL, T, 'kg m-3', 'Bulk Density of Particles including particle water' ), &ELDTP( 'FPM01 ',ID_FPM01, M3REAL, T, '1 ', 'PM01 fraction of mode' ), &ELDTP( 'FPM1 ',ID_FPM1, M3REAL, T, '1 ', 'PM1 fraction of mode' ), &ELDTP( 'FPM25 ',ID_FPM25, M3REAL, T, '1 ', 'PM2.5 fraction of mode' ), &ELDTP( 'FPM10 ',ID_FPM10, M3REAL, T, '1 ', 'PM10 fraction of mode' ), &ELDTP( 'FPM25TO10 ',ID_FPM25to10, M3REAL, T, '1 ', 'PM2.5-10 fraction of mode' ), &ELDTP( 'FAMS ',ID_FAMS, M3REAL, T, '1 ', 'AMS Transmission Fraction of mode' ), &ELDTP( 'PM01 ',ID_PM01, M3REAL, F, 'ug m-3', 'Bulk PM0.1 Concentration' ), &ELDTP( 'PM1 ',ID_PM1, M3REAL, F, 'ug m-3', 'Bulk PM1.0 Concentration' ), &ELDTP( 'PM25 ',ID_PM25, M3REAL, F, 'ug m-3', 'Bulk PM2.5 Concentration' ), &ELDTP( 'PM10 ',ID_PM10, M3REAL, F, 'ug m-3', 'Bulk PM10.0 Concentration' ), &ELDTP( 'PM25TO10 ',ID_PM25to10, M3REAL, F, 'ug m-3', 'Coarse-Mode Total' ), &ELDTP( 'PMAMS ',ID_PMAMS, M3REAL, F, 'ug m-3', 'Bulk PM Concentration in AMS' ), ! Coarse-Mode PM Species &ELDTP( 'PMC_SO4 ',ID_PMC_SO4, M3REAL, F, 'ug m-3', 'Coarse-Mode Sulfate' ), &ELDTP( 'PMC_NO3 ',ID_PMC_NO3, M3REAL, F, 'ug m-3', 'Coarse-Mode Nitrate' ), &ELDTP( 'PMC_NH4 ',ID_PMC_NH4, M3REAL, F, 'ug m-3', 'Coarse-Mode Ammonium' ), &ELDTP( 'PMC_CL ',ID_PMC_CL, M3REAL, F, 'ug m-3', 'Coarse-Mode Chloride' ), &ELDTP( 'PMC_NA ',ID_PMC_NA, M3REAL, F, 'ug m-3', 'Recon Crs Sodium (.8373*ASEACAT+.0626*ASOIL+.0023*ACORS)' ), &ELDTP( 'PMC_MG ',ID_PMC_MG, M3REAL, F, 'ug m-3', 'Recon Crs Magnesium (.0997*ASEACAT+.0170*ASOIL+.0032*ACORS)'), &ELDTP( 'PMC_K ',ID_PMC_K, M3REAL, F, 'ug m-3', 'Recon Crs Potasium (.0310*ASEACAT+.0242*ASOIL+.0176*ACORS)' ), &ELDTP( 'PMC_CA ',ID_PMC_CA, M3REAL, F, 'ug m-3', 'Recon Crs Calcium (.0320*ASEACAT+.0838*ASOIL+.0562*ACORS)' ), ! Fine-Mode PM Species &ELDTP( 'PMF_SO4 ',ID_PMF_SO4, M3REAL, F, 'ug m-3', 'Fine-Mode Sulfate' ), &ELDTP( 'PMF_NO3 ',ID_PMF_NO3, M3REAL, F, 'ug m-3', 'Fine-Mode Nitrate' ), &ELDTP( 'PMF_NH4 ',ID_PMF_NH4, M3REAL, F, 'ug m-3', 'Fine-Mode Ammonium' ), &ELDTP( 'PMF_CL ',ID_PMF_CL, M3REAL, F, 'ug m-3', 'Fine-Mode Chloride' ), &ELDTP( 'PMF_NA ',ID_PMF_NA, M3REAL, F, 'ug m-3', 'Fine-Mode Sodium' ), &ELDTP( 'PMF_EC ',ID_PMF_EC, M3REAL, F, 'ug m-3', 'Fine-Mode Black Carbon' ), &ELDTP( 'PMF_OC ',ID_PMF_OC, M3REAL, F, 'ugC m-3','Fine-Mode Organic Carbon' ), &ELDTP( 'PMF_OA ',ID_PMF_OA, M3REAL, F, 'ug m-3', 'Fine-Mode Organic Aerosol' ), &ELDTP( 'PMF_FE ',ID_PMF_FE, M3REAL, F, 'ug m-3', 'Fine-Mode Iron' ), &ELDTP( 'PMF_AL ',ID_PMF_AL, M3REAL, F, 'ug m-3', 'Fine-Mode Aluminum' ), &ELDTP( 'PMF_SI ',ID_PMF_SI, M3REAL, F, 'ug m-3', 'Fine-Mode Silicon' ), &ELDTP( 'PMF_TI ',ID_PMF_TI, M3REAL, F, 'ug m-3', 'Fine-Mode Titanium' ), &ELDTP( 'PMF_CA ',ID_PMF_CA, M3REAL, F, 'ug m-3', 'Fine-Mode Calcium' ), &ELDTP( 'PMF_MG ',ID_PMF_MG, M3REAL, F, 'ug m-3', 'Fine-Mode Magnesium' ), &ELDTP( 'PMF_K ',ID_PMF_K, M3REAL, F, 'ug m-3', 'Fine-Mode Potassium' ), &ELDTP( 'PMF_MN ',ID_PMF_MN, M3REAL, F, 'ug m-3', 'Fine-Mode Manganese' ), &ELDTP( 'PMF_H2O ',ID_PMF_H2O, M3REAL, F, 'ug m-3', 'Fine-Mode Particle Water' ), &ELDTP( 'PMF_SOILIMPV ',ID_SOIL_IMPV, M3REAL, F, 'ug m-3', 'Recon of Soil PM from correlations at IMPROVE sites' ), &ELDTP( 'PMF_UN_IMPV1 ',ID_PMF_UNSP1, M3REAL, F, 'ug m-3', 'Unspeciated PM including non-carbon organic mass' ), &ELDTP( 'PMF_UN_IMPV2 ',ID_PMF_UNSP2, M3REAL, F, 'ug m-3', 'Unspeciated PM excluding non-carbon organic mass' ), &ELDTP( 'PMF_HP ',ID_PMF_HP, M3REAL, F, 'umol m-3','Fine-Mode H+ Ion' ), &ELDTP( 'PMF_HPMOLAL ',ID_PMF_HPM, M3REAL, F, 'mol L-1','Fine-Mode Concentration of H+ in Particle Water' ), &ELDTP( 'PMF_PH ',ID_PMF_PH, M3REAL, F, '1' , 'Fine-Mode pH' ), ! Organic Aerosol Relevant Aggregates &ELDTP( 'PMF_POC ',ID_PMF_POC, M3REAL, F, 'ugC m-3','Fine-Mode Primary Organic Carbon' ), &ELDTP( 'PMF_SOC ',ID_PMF_SOC, M3REAL, F, 'ugC m-3','Fine-Mode Secondary Organic Carbon' ), &ELDTP( 'PMF_POA ',ID_PMF_POA, M3REAL, F, 'ug m-3', 'Fine-Mode Primary Organic Aerosol' ), &ELDTP( 'PMF_SOA ',ID_PMF_SOA, M3REAL, F, 'ug m-3', 'Fine-Mode Secondary Organic Aerosol' ), &ELDTP( 'PMF_NCOM ',ID_PMF_NCOM, M3REAL, F, 'ug m-3', 'Fine-Mode Non-Carbon Organic Matter in POA' ), &ELDTP( 'PMF_OMOC ',ID_PMF_OMOC, M3REAL, F, '1 ','Fine-Mode OM/OC' ), &ELDTP( 'PMF_OTOC ',ID_PMF_OtoC, M3REAL, F, '1 ','Fine-Mode O:C' ), &ELDTP( 'PMF_ASOA ',ID_PMF_ASOA, M3REAL, F, 'ug m-3', 'Fine-Mode Anthropogenic-VOC Derived OA' ), &ELDTP( 'PMF_BSOA ',ID_PMF_BSOA, M3REAL, F, 'ug m-3', 'Fine-Mode Biogenic-VOC Derived OA' ), &ELDTP( 'PMF_CLDGLY ',ID_PMF_CLDGLY, M3REAL, F, 'ug m-3', 'Fine-Mode SOA from glyoxal and methylglyoxal' ), &ELDTP( 'PMF_ISOPSOA ',ID_PMF_ISOP, M3REAL, F, 'ug m-3', 'Fine-Mode Isoprene SOA excl IEPOX SOA' ), &ELDTP( 'PMF_IEPOXSOA ',ID_PMF_IEPOX, M3REAL, F, 'ug m-3', 'Fine-Mode IEPOX SOA' ), &ELDTP( 'PMF_MTNSOA ',ID_PMF_MTNSOA, M3REAL, F, 'ug m-3', 'Fine-Mode Monoterpene Nitrate SOA' ), &ELDTP( 'PMF_MTSOA ',ID_PMF_MTSOA, M3REAL, F, 'ug m-3', 'Fine-Mode Monoterpene SOA excl Nitrates' ), ! AMS Speciation &ELDTP( 'PMAMS_SO4 ',ID_AMS_SO4, M3REAL, F, 'ug m-3', 'Sulfate Collected by the AMS' ), &ELDTP( 'PMAMS_NO3 ',ID_AMS_NO3, M3REAL, F, 'ug m-3', 'Nitrate Collected by the AMS' ), &ELDTP( 'PMAMS_NH4 ',ID_AMS_NH4, M3REAL, F, 'ug m-3', 'Ammonium Collected by the AMS' ), &ELDTP( 'PMAMS_CL ',ID_AMS_CL, M3REAL, F, 'ug m-3', 'Chloride Collected by the AMS' ), &ELDTP( 'PMAMS_OA ',ID_AMS_OA, M3REAL, F, 'ug m-3', 'Organic Aerosol Collected by the AMS' ), &ELDTP( 'PMAMS_OTOC ',ID_AMS_OTOC, M3REAL, F, 'ug ug-1','O:C Collected and Measured by the AMS' ), ! PM1 Speciation &ELDTP( 'PM1_SO4 ',ID_PM1_SO4, M3REAL, F, 'ug m-3', 'PM1 Sulfate' ), &ELDTP( 'PM1_NO3 ',ID_PM1_NO3, M3REAL, F, 'ug m-3', 'PM1 Nitrate' ), &ELDTP( 'PM1_NH4 ',ID_PM1_NH4, M3REAL, F, 'ug m-3', 'PM1 Ammonium' ), &ELDTP( 'PM1_CL ',ID_PM1_CL, M3REAL, F, 'ug m-3', 'PM1 Chloride' ), &ELDTP( 'PM1_NA ',ID_PM1_NA, M3REAL, F, 'ug m-3', 'PM1 Sodium' ), &ELDTP( 'PM1_EC ',ID_PM1_EC, M3REAL, F, 'ug m-3', 'PM1 Black Carbon' ), &ELDTP( 'PM1_OC ',ID_PM1_OC, M3REAL, F, 'ugC m-3','PM1 Organic Carbon' ), &ELDTP( 'PM1_OA ',ID_PM1_OA, M3REAL, F, 'ug m-3', 'PM1 Organic Aerosol' ), &ELDTP( 'PM1_MG ',ID_PM1_MG, M3REAL, F, 'ug m-3', 'PM1 Magnesium' ), &ELDTP( 'PM1_K ',ID_PM1_K, M3REAL, F, 'ug m-3', 'PM1 Potassium' ), &ELDTP( 'PM1_CA ',ID_PM1_CA, M3REAL, F, 'ug m-3', 'PM1 Calcium' ), &ELDTP( 'PM1_OTHER ',ID_PM1_OT, M3REAL, F, 'ug m-3', 'PM1 Other Mass' ), &ELDTP( 'PM1_FE ',ID_PM1_FE, M3REAL, F, 'ug m-3', 'PM1 Iron' ), &ELDTP( 'PM1_SI ',ID_PM1_SI, M3REAL, F, 'ug m-3', 'PM1 Silicon' ), &ELDTP( 'PM1_TI ',ID_PM1_TI, M3REAL, F, 'ug m-3', 'PM1 Titanium' ), &ELDTP( 'PM1_MN ',ID_PM1_MN, M3REAL, F, 'ug m-3', 'PM1 Manganese' ), &ELDTP( 'PM1_AL ',ID_PM1_AL, M3REAL, F, 'ug m-3', 'PM1 Aluminum' ), &ELDTP( 'PM1_SOIL ',ID_PM1_SOIL, M3REAL, F, 'ug m-3', 'PM1 Recon Soil (Fine) and Explicit (Coarse)' ), &ELDTP( 'PM1_UNSP1 ',ID_PM1_UNSP1, M3REAL, F, 'ug m-3', 'PM1 Unsp. Coarse Mass for the IMPROVE Method' ), &ELDTP( 'PM1_UNSPCRS ',ID_PM1_UN, M3REAL, F, 'ug m-3', 'PM1 Unspeciated Coarse Mass' ), &ELDTP( 'PM1_HP ',ID_PM1_HP, M3REAL, F, 'ug m-3', 'PM1 H+ Ion' ), ! PM2.5 Speciation &ELDTP( 'PM25_SO4 ',ID_PM25_SO4, M3REAL, F, 'ug m-3', 'PM2.5 Sulfate' ), &ELDTP( 'PM25_NO3 ',ID_PM25_NO3, M3REAL, F, 'ug m-3', 'PM2.5 Nitrate' ), &ELDTP( 'PM25_NH4 ',ID_PM25_NH4, M3REAL, F, 'ug m-3', 'PM2.5 Ammonium' ), &ELDTP( 'PM25_CL ',ID_PM25_CL, M3REAL, F, 'ug m-3', 'PM2.5 Chloride' ), &ELDTP( 'PM25_NA ',ID_PM25_NA, M3REAL, F, 'ug m-3', 'PM2.5 Sodium' ), &ELDTP( 'PM25_EC ',ID_PM25_EC, M3REAL, F, 'ug m-3', 'PM2.5 Black Carbon' ), &ELDTP( 'PM25_OC ',ID_PM25_OC, M3REAL, F, 'ugC m-3','PM2.5 Organic Carbon' ), &ELDTP( 'PM25_OA ',ID_PM25_OA, M3REAL, F, 'ug m-3', 'PM2.5 Organic Aerosol' ), &ELDTP( 'PM25_MG ',ID_PM25_MG, M3REAL, F, 'ug m-3', 'PM2.5 Magnesium' ), &ELDTP( 'PM25_K ',ID_PM25_K, M3REAL, F, 'ug m-3', 'PM2.5 Potassium' ), &ELDTP( 'PM25_CA ',ID_PM25_CA, M3REAL, F, 'ug m-3', 'PM2.5 Calcium' ), &ELDTP( 'PM25_OTHER ',ID_PM25_OT, M3REAL, F, 'ug m-3', 'PM2.5 Other Mass' ), &ELDTP( 'PM25_FE ',ID_PM25_FE, M3REAL, F, 'ug m-3', 'PM2.5 Iron' ), &ELDTP( 'PM25_SI ',ID_PM25_SI, M3REAL, F, 'ug m-3', 'PM2.5 Silicon' ), &ELDTP( 'PM25_TI ',ID_PM25_TI, M3REAL, F, 'ug m-3', 'PM2.5 Titanium' ), &ELDTP( 'PM25_MN ',ID_PM25_MN, M3REAL, F, 'ug m-3', 'PM2.5 Manganese' ), &ELDTP( 'PM25_AL ',ID_PM25_AL, M3REAL, F, 'ug m-3', 'PM2.5 Aluminum' ), &ELDTP( 'PM25_SOIL ',ID_PM25_SOIL, M3REAL, F, 'ug m-3', 'PM2.5 Recon Soil (Fine) and Explicit (Coarse)' ), &ELDTP( 'PM25_UNSP1 ',ID_PM25_UNSP1, M3REAL, F, 'ug m-3', 'PM2.5 Unsp. Coarse Mass for the IMPROVE method' ), &ELDTP( 'PM25_UNSPCRS ',ID_PM25_UN, M3REAL, F, 'ug m-3', 'PM2.5 Unspeciated Coarse Mass' ), &ELDTP( 'PM25_HP ',ID_PM25_HP, M3REAL, F, 'ug m-3', 'PM2.5 H+ Ion' ), ! PM2.5-10.0 Speciation &ELDTP( 'PM25TO10_SO4 ',ID_PM25to10_SO4,M3REAL,F, 'ug m-3', 'Coarse-Mode Sulfate' ), &ELDTP( 'PM25TO10_NO3 ',ID_PM25to10_NO3,M3REAL,F, 'ug m-3', 'Coarse-Mode Nitrate' ), &ELDTP( 'PM25TO10_NH4 ',ID_PM25to10_NH4,M3REAL,F, 'ug m-3', 'Coarse-Mode Ammonium' ), &ELDTP( 'PM25TO10_CL ',ID_PM25to10_CL, M3REAL,F, 'ug m-3', 'Coarse-Mode Chloride' ), &ELDTP( 'PM25TO10_NA ',ID_PM25to10_NA, M3REAL,F, 'ug m-3', 'Coarse-Mode Sodium' ), ! PM Toxics that are part of the Multipollutant (mp) Mechanism &ELDTP( 'PM25_HDIESEL ',ID_PM25_HDSL, M3REAL,F, 'ug m-3', 'PM2.5 Diesel Total from HAP inventory' ), &ELDTP( 'PM25_HBE ',ID_PM25_HBE, M3REAL,F, 'ug m-3', 'PM2.5 Beryllium from HAP inventory' ), &ELDTP( 'PM25_HCD ',ID_PM25_HCD, M3REAL,F, 'ug m-3', 'PM2.5 Cadmium from HAP inventory' ), &ELDTP( 'PM25_HCR3 ',ID_PM25_HCR3, M3REAL,F, 'ug m-3', 'PM2.5 Chromium-III from HAP inventory' ), &ELDTP( 'PM25_HCR6 ',ID_PM25_HCR6, M3REAL,F, 'ug m-3', 'PM2.5 Chromium-VI from HAP inventory' ), &ELDTP( 'PM25_HCR ',ID_PM25_HCR, M3REAL,F, 'ug m-3', 'PM2.5 Chromium Total from HAP inventory' ), &ELDTP( 'PM25_HPB ',ID_PM25_HPB, M3REAL,F, 'ug m-3', 'PM2.5 Lead from HAP inventory' ), &ELDTP( 'PM25_HMN ',ID_PM25_HMN, M3REAL,F, 'ug m-3', 'PM2.5 Manganese from HAP inventory' ), &ELDTP( 'PM25_HNI ',ID_PM25_HNI, M3REAL,F, 'ug m-3', 'PM2.5 Nickel from HAP inventory' ), &ELDTP( 'PM25_HAS ',ID_PM25_HAS, M3REAL,F, 'ug m-3', 'PM2.5 Arsenic from HAP inventory' ), &ELDTP( 'PM25_HG ',ID_PM25_HG, M3REAL,F, 'ug m-3', 'PM2.5 Mercury from HAP inventory' ), &ELDTP( 'PM10_HDIESEL ',ID_PM10_HDSL, M3REAL,F, 'ug m-3', 'PM10.0 Diesel Total from HAP inventory' ), &ELDTP( 'PM10_HBE ',ID_PM10_HBE, M3REAL,F, 'ug m-3', 'PM10.0 Beryllium from HAP inventory' ), &ELDTP( 'PM10_HCD ',ID_PM10_HCD, M3REAL,F, 'ug m-3', 'PM10.0 Cadmium from HAP inventory' ), &ELDTP( 'PM10_HCR3 ',ID_PM10_HCR3, M3REAL,F, 'ug m-3', 'PM10.0 Chromium-III from HAP inventory' ), &ELDTP( 'PM10_HCR6 ',ID_PM10_HCR6, M3REAL,F, 'ug m-3', 'PM10.0 Chromium-VI from HAP inventory' ), &ELDTP( 'PM10_HCR ',ID_PM10_HCR, M3REAL,F, 'ug m-3', 'PM10.0 Chromium Total from HAP inventory' ), &ELDTP( 'PM10_HPB ',ID_PM10_HPB, M3REAL,F, 'ug m-3', 'PM10.0 Lead from HAP inventory' ), &ELDTP( 'PM10_HMN ',ID_PM10_HMN, M3REAL,F, 'ug m-3', 'PM10.0 Manganese from HAP inventory' ), &ELDTP( 'PM10_HNI ',ID_PM10_HNI, M3REAL,F, 'ug m-3', 'PM10.0 Nickel from HAP inventory' ), &ELDTP( 'PM10_HAS ',ID_PM10_HAS, M3REAL,F, 'ug m-3', 'PM10.0 Arsenic from HAP inventory' ), &ELDTP( 'PM10_HG ',ID_PM10_HG, M3REAL,F, 'ug m-3', 'PM10.0 Mercury from HAP inventory' ), &ELDTP( 'PM25_BENAPY ',ID_PM25_BENAPY, M3REAL,F, 'ug m-3', 'PM2.5 Benzo-a-Pyrene' ), &ELDTP( 'PM10_BENAPY ',ID_PM10_BENAPY, M3REAL,F, 'ug m-3', 'PM10.0 Benzo-a-Pyrene' ), &ELDTP( 'PMF_BENAPY ',ID_PMF_BENAPY, M3REAL,F, 'ug m-3', 'Fine-Mode Benzo-a-Pyrene' ), &ELDTP( 'GAS_BENAPY ',ID_GAS_BENAPY, M3REAL,F, 'ug m-3', 'Gas-Phase Benzo-a-Pyrene' ), &ELDTP( 'BENAPY_FAERO ',ID_BENAPY_FAERO,M3REAL,F, '', 'Benzo-a-Pyrene Aerosol-Phase Fraction' ), &ELDTP( 'GAS_HNO3 ',ID_GAS_HNO3, M3REAL,F, 'ug m-3', 'Gas-Phase Nitric Acid' ), &ELDTP( 'GAS_NH3 ',ID_GAS_NH3, M3REAL,F, 'ug m-3', 'Gas-Phase Ammonia' ), ! Other Special Variables and Properties &ELDTP( 'TNO3 ',ID_TNO3, M3REAL, F, 'ug m-3', 'Total Nitrate only Including Inorganics' ), &ELDTP( 'TNO3TOT ',ID_TNO3TOT, M3REAL, F, 'ug m-3', 'Total Nitrate including Inorganics and Organics' ), &ELDTP( 'PM25_FRM ',ID_PM25_FRM, M3REAL, F, 'ug m-3', 'Federal Reference Method PM2.5' ), &ELDTP( 'PMF_FRM ',ID_PMF_FRM, M3REAL, F, 'ug m-3', 'Federal Reference Method PMIJ' ), &ELDTP( 'AOD_550 ',ID_AOD550, M3REAL, F, '1 ', 'Aerosol Optical Depth at 550 nm -Angstrom interp' ), &ELDTP( 'PM_EXT_550 ',ID_PMEXT550, M3REAL, F, 'Mm-1 ', 'Aerosol Extinction at 550 nm -Angstrom interp' ), &ELDTP( 'RH ',ID_RH, M3REAL, F, '1 ', 'Relative humidity' ), &ELDTP( 'TA ',ID_TEMP, M3REAL, F, 'K ', 'Temperature' ), &ELDTP( 'TSURF ',ID_SRFTEMP, M3REAL, F, 'K ', '2-meter Surface Temperature' ), &ELDTP( 'PRES ',ID_PRES, M3REAL, F, 'Pa ', 'Pressure' ), &ELDTP( 'GAMMA_N2O5 ',ID_GN2O5F, M3REAL, F, '1 ', 'Fine Mode N2O5 Heterogeneous rxn probability' ), &ELDTP( 'GAMMA_N2O5K ',ID_GN2O5C, M3REAL, F, '1 ', 'Coarse Mode N2O5 Heterogeneous rxn probability' ), &ELDTP( 'YIELD_CLNO2 ',ID_YCLNO2F, M3REAL, F, '1 ', 'Fine Mode CLNO2 Heterogeneous reaction yield' ), &ELDTP( 'YIELD_CLNO2K ',ID_YCLNO2C, M3REAL, F, '1 ', 'Coarse Mode CLNO2 Heterogeneous reaction yield' ), &ELDTP( 'GAMMA_IEPOX ',ID_GIEPOX, M3REAL, F, '1 ', 'IEPOX heterogeneous uptake coefficient' ), &ELDTP( 'K_IEPOX ',ID_KIEPOX, M3REAL, F, 's-1 ', 'IEPOX 1st order particle phase reaction rate const' ), &ELDTP( 'GAMMA_IMAE ',ID_GIMAE, M3REAL, F, '1 ', 'IMAE+HMML heterogeneous uptake coefficient' ), &ELDTP( 'DZ ',ID_DZ, M3REAL, F, 'm ', 'Height of each grid cell computed from top layer height' ), &ELDTP( 'ZH ',ID_ZH, M3REAL, F, 'm ', 'Height of grid cell midpoints (mass-weighted)' ), &ELDTP( 'CFRAC ',ID_CFRAC, M3REAL, F, ' ', 'Cloud Fraction' ), &ELDTP( 'PV ',ID_PV, M3REAL, F, ' ', 'Potential Vorticity' ), &ELDTP( 'DENS ',ID_DENS, M3REAL, F, 'kg m-3', 'Advected Density' ), &ELDTP( 'RHOJ ',ID_RHOJ, M3REAL, F, 'kg m-3', 'Advected Density x Jacobian/MSFX^2' ) /) TYPE ELMO_KEY_TYPE CHARACTER( 24 ) :: WORD ! Keyword for selecting mulitple ELMO parameters INTEGER :: N ! Number of Parameters associated with the Keyword CHARACTER( 16 ),ALLOCATABLE :: LIST(:) ! List of parameters END TYPE ELMO_KEY_TYPE TYPE (ELMO_KEY_TYPE), ALLOCATABLE, SAVE :: ELMO_KEY( : ) INTEGER, SAVE :: N_KEY INTEGER, SAVE :: MAP_ID2LIST( N_ELMO_LIST ) ! Variables for Storing Values of ELMO Output REAL, ALLOCATABLE, SAVE :: ELMO_INST( :,:,:,: ) REAL, ALLOCATABLE, SAVE :: ELMO_AVRG( :,:,:,: ) REAL, ALLOCATABLE, SAVE :: ELMO_LOCAL( : ) LOGICAL, ALLOCATABLE, SAVE :: L_CALC( : ) REAL, ALLOCATABLE, SAVE :: CONC_VEC( : ) INTEGER, SAVE :: C1, R1, L1 ! Variables for Aerosol Chemistry REAL, SAVE, ALLOCATABLE :: GAMMA_N2O5IJ( :,:,: ) ! Fine modes N2O5 rx effic. REAL, SAVE, ALLOCATABLE :: GAMMA_N2O5K( :,:,: ) ! Coarse mode N2O5 rx effic. REAL, SAVE, ALLOCATABLE :: KPARTIEPOX ( :,:,: ) ! IEPOX particle-phase reaction rate constant (sec-1) REAL, SAVE, ALLOCATABLE :: GAMMA_IEPOX( :,:,: ) ! IEPOX uptake coeff REAL, SAVE, ALLOCATABLE :: GAMMA_IMAE ( :,:,: ) ! IMAE uptake coeff REAL, SAVE, ALLOCATABLE :: YCLNO2IJ ( :,:,: ) ! Yield CLNO2 in Fine modes REAL, SAVE, ALLOCATABLE :: YCLNO2K ( :,:,: ) ! Yield CLNO2 in coarse mode LOGICAL, SAVE :: AERO_CHEM_SET = .FALSE. ! Define type for storing coeffieicnets and variable indices for ! aggregating PM diagnostics like ATOTIJ, ACLK, etc. TYPE ELMO_COEFFS_TYPE LOGICAL L_MAPPED ! Record whether or not this aggregate has been mapped INTEGER N_VARS ! Number of variables to store coefficients for. ! This should not account for modes. For example, ! to sum ASO4IJK, N_VARS would be 1 since only ! ASO4 is being used. LOGICAL, ALLOCATABLE :: L_GAS(:) ! Is this variable a gas? LOGICAL, ALLOCATABLE :: L_SPC(:) ! Is this variable a CMAQ species? LOGICAL, ALLOCATABLE :: L_AGG(:) ! Is this variable another aggregated diagnostic parameter? LOGICAL, ALLOCATABLE :: L_MODE(:) ! For which modes does this aggregate apply INTEGER, ALLOCATABLE :: I_SPEC(:) ! Index of this Variable in Aerosol/Gas/Aggregate Array REAL, ALLOCATABLE :: COEFF(:) ! Coefficient for each variable INTEGER INLET ! Integer pointing to the corresponding inlet of choice ! in the ELMO_INLET structure INTEGER WETNESS ! Integer prescribing wet or dry aerosol (1 = wet, 2 = dry) ! Default is wet END TYPE ELMO_COEFFS_TYPE TYPE (ELMO_COEFFS_TYPE), ALLOCATABLE, SAVE :: ELMO_COEFFS( : ) TYPE ELMO_INLET_TYPE CHARACTER( 16 ) CINLET ! Inlet Name REAL DIAM_LO ! Lower Diameter of this Inlet [um] REAL DIAM_HI ! Upper Diameter of this inlet [um] END TYPE ELMO_INLET_TYPE INTEGER, PARAMETER :: N_INLET = 10 INTEGER, PARAMETER :: IPM01 = 1, IPM1 = 2, IPM25 = 3, IPM10 = 4, & IPM25to10 = 5, IPMAMS = 6, INUM10 = 7, & INUM20 = 8, INUM40 = 9, INUM100 = 10 INTEGER, PARAMETER :: IWET = 1, IDRY = 2 TYPE (ELMO_INLET_TYPE), PARAMETER :: ELMO_INLET( N_INLET ) = (/ ! Inlet Name D_Lo D_Hi ! ---------- ---- ---- & ELMO_INLET_TYPE( 'PM01 ', 0.0, 0.1 ), & ELMO_INLET_TYPE( 'PM1 ', 0.0, 1.0 ), & ELMO_INLET_TYPE( 'PM25 ', 0.0, 2.5 ), & ELMO_INLET_TYPE( 'PM10 ', 0.0, 10.0 ), & ELMO_INLET_TYPE( 'PM25TO10', 2.5, 10.0 ), & ELMO_INLET_TYPE( 'PMAMS ', 0.0, 0.0 ), & ELMO_INLET_TYPE( 'INUM10 ', 0.01,1.0e3), & ELMO_INLET_TYPE( 'INUM20 ', 0.02,1.0e3), & ELMO_INLET_TYPE( 'INUM40 ', 0.04,1.0e3), & ELMO_INLET_TYPE( 'INUM100 ', 0.1, 1.0e3) /) REAL, SAVE :: INLET_FRAC( N_INLET,N_MODE,2 ) ! Fraction of each aerosol mode ! collected by each inlet ! Third dimension is 1 ! for wet and 2 for dry REAL, ALLOCATABLE, SAVE :: ELMO_AOD_550(:,:), ! total aerosol optical depth at ! 550 nm (Angstrom Interpolation) & ELMO_EXT_550(:,:,:)! aerosol extinction at 550 nm for layer [1/m] CONTAINS !------------------------------------------------------------------------------------------ subroutine elmo_init_shared !------------------------------------------------------------------------------------------ use grid_conf, only : ncols, nrows, nlays implicit none integer ios character(32) :: pname = 'ELMO_INIT_SHARED' allocate( elmo_aod_550(ncols, nrows ), stat=ios) call checkmem( ios, 'ELMO_AOD_550',pname ) elmo_aod_550 = 0.0 allocate( elmo_ext_550(ncols, nrows, nlays ), stat=ios) call checkmem( ios, 'ELMO_EXT_550',pname ) elmo_ext_550 = 0.0 end subroutine elmo_init_shared !------------------------------------------------------------------------------------------ END MODULE ELMO_DATA ================================================ FILE: CCTM/src/driver/ELMO_PROC.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! !----------------------------------------------------------------------- MODULE ELMO_PROC !----------------------------------------------------------------------- ! This module will collect all procedures used for subsetting the ! pm diagnostic variables requested by the user. It will also ! open the output files and do the actual calculations of ! diagnostic variables of interest. ! ! Revision History: ! Ben Murphy 2020 Feb: Created !----------------------------------------------------------------------- USE UTILIO_DEFN USE ELMO_DATA USE GRID_CONF, ONLY: NCOLS, NROWS, NLAYS, IO_PE_INCLUSIVE IMPLICIT NONE LOGICAL, SAVE :: INST_ACTIVE, AVRG_ACTIVE INTEGER, SAVE :: INST_LAYER_TOP, INST_LAYER_BOT, & AVRG_LAYER_TOP, AVRG_LAYER_BOT CHARACTER(16), ALLOCATABLE, SAVE :: & INST_VARS_NML( : ), AVRG_VARS_NML( : ), & INST_PARS( : ), AVRG_PARS( : ), & INST_PARS_OUT(:), AVRG_PARS_OUT(:), & INST_UNIT_OUT(:), AVRG_UNIT_OUT(:) CHARACTER(80), ALLOCATABLE, SAVE :: & INST_DESC_OUT( : ), AVRG_DESC_OUT( : ) INTEGER, SAVE :: N_ELMO, N_ELMO_OUT, NTOT_ELMO_IDS, & N_ELMO_INST, N_ELMO_AVRG, & N_ELMO_INST_OUT, N_ELMO_AVRG_OUT INTEGER, ALLOCATABLE, SAVE :: & MAP_INST2USED( : ), MAP_AVRG2USED( : ), & USED_ELMO_ID( : ), USED_ELMO_MODE( : ), & INST_TYPE_OUT( : ), AVRG_TYPE_OUT( : ), & MAP_ID2USED( :,: ), & USED_CGRID_ID(:), USED_FAM_ID(:) CONTAINS !------------------------------------------------------------------------- SUBROUTINE READ_ELMO_NML( ) ! This subroutine maps the PM diagnostic variables that the user has ! requested to the entries in the ELMO_DATA table. !------------------------------------------------------------------------- USE RUNTIME_VARS, ONLY: MISC_CTRL, LOGDEV USE CGRID_SPCS, ONLY: CGRID_NAME, N_CGRID_SPC USE UTIL_FAMILY_MODULE, ONLY: N_Chem_Fams,ChemFamilyName, & Map_Chem_Families USE GRID_CONF, ONLY : MYPE IMPLICIT NONE INTEGER, PARAMETER :: N_NML = 1000 INTEGER :: INUM, J, N_END, I1, I2, I3, I4, JNUM INTEGER :: FUNIT INTEGER :: STAT LOGICAL, SAVE :: INSTANT =.TRUE., & AVERAGE =.TRUE. CHARACTER( 16 ), SAVE :: PNAME = 'READ_ELMO_NML' CHARACTER( 200 ) :: XMSG INTEGER IOS LOGICAL EXPAND_NML LOGICAL, ALLOCATABLE :: FAM_LIST(:) NAMELIST / elmo_activate / instant, average NAMELIST / elmo_inst / inst_layer_top, & inst_layer_bot, inst_vars_nml NAMELIST / elmo_avrg / avrg_layer_top, & avrg_layer_bot, avrg_vars_nml ALLOCATE( INST_VARS_NML( N_NML ), STAT = IOS ) CALL CHECKMEM( IOS, 'INST_VARS_NML',PNAME ) ALLOCATE( AVRG_VARS_NML( N_NML ), STAT = IOS ) CALL CHECKMEM( IOS, 'AVRG_VARS_NML',PNAME ) ALLOCATE( FAM_LIST( N_CGRID_SPC ), STAT = IOS ) CALL CHECKMEM( IOS, 'FAM_LIST',PNAME ) INST_ACTIVE = .TRUE. INST_LAYER_TOP = 1 INST_LAYER_BOT = 1 INST_VARS_NML(:) = '' AVRG_ACTIVE = .TRUE. AVRG_LAYER_TOP = 1 AVRG_LAYER_BOT = 1 AVRG_VARS_NML(:) = '' ! Retrieve the Name of the Emission Control File IF ( MISC_CTRL .EQ. "MISC_CTRL_NML" ) THEN WRITE( LOGDEV, "(5x,A,/,5x,A,/,5x,A)"), & 'You have chosen not to indicate the location of an', & 'Emission Control namelist file. Default settings ', & 'will be assumed.' RETURN END IF ! Open Emission Control Namelist File FUNIT = JUNIT() OPEN( FILE = MISC_CTRL, UNIT = FUNIT, STATUS = 'OLD', & POSITION = 'REWIND', FORM='FORMATTED', IOSTAT = STAT ) ! Check for Error in File Open Process IF ( STAT .NE. 0 ) THEN WRITE( XMSG, '(A,A,A)' ),'ERROR: Could not read ', & 'emissions control namelist file: ',TRIM( MISC_CTRL ) CALL M3EXIT( PNAME, 0, 0, XMSG, 1 ) END IF ! Read Toggles for Turning Instantaneous and Average Files On/Off REWIND( FUNIT ) READ( NML = elmo_activate, UNIT = FUNIT, IOSTAT=STAT ) IF ( STAT .NE. 0 ) THEN WRITE( LOGDEV, "(5x,A,/,5x,A,/,5x,A,/,5x,A)" ), & 'Warning! Something went wrong while reading the ', & 'ELMO_ACTIVATE section of the CMAQ Control ', & 'Namelist. Default values for this section will be ', & 'assumed.' END IF INST_ACTIVE = INSTANT AVRG_ACTIVE = AVERAGE L_ELMO = ( INST_ACTIVE .OR. AVRG_ACTIVE ) #ifdef mpas L_ELMO = .false. #endif IF ( .NOT. L_ELMO ) THEN DEALLOCATE( FAM_LIST ) RETURN END IF CALL POPULATE_ELMO_KEY ! Read Desired ELMO_INST parameters from input namelist REWIND( FUNIT ) READ( NML = elmo_inst, UNIT = FUNIT, IOSTAT=STAT ) IF ( STAT .NE. 0 ) THEN WRITE( LOGDEV, "(5x,A,/,5x,A,/,5x,A,/,5x,A)" ), & 'Warning! Something went wrong while reading the ', & 'ELMO_INST section of the CMAQ Control ', & 'Namelist. Default values for this section will be ', & 'assumed.' END IF ! Expand INST list Using Keywords N_END = INDEX1( '', N_NML, INST_VARS_NML ) - 1 IF ( N_END .LE. 0 ) THEN WRITE( XMSG, '(A,A)' ),'ERROR: Undefined variables requested ', & 'for Instaneous ELMO output ' CALL M3EXIT( PNAME, 0, 0, XMSG, 1 ) END IF INUM = 1 DO WHILE ( INUM .LE. N_END ) CALL UPCASE( INST_VARS_NML( INUM ) ) EXPAND_NML = .FALSE. IF ( INST_VARS_NML( INUM )(1:1) .EQ. '*' ) THEN EXPAND_NML = .TRUE. INST_VARS_NML( INUM ) = INST_VARS_NML( INUM )(2:16)//' ' END IF I1 = INDEX1( INST_VARS_NML( INUM ), N_ELMO_LIST, ELMO_LIST%NAME ) I2 = INDEX1( INST_VARS_NML( INUM ), N_KEY, ELMO_KEY%WORD ) I3 = INDEX1( INST_VARS_NML( INUM ), N_CGRID_SPC, CGRID_NAME ) I4 = 0 IF ( N_Chem_Fams .GT. 0 ) & I4 = INDEX1( INST_VARS_NML( INUM ), N_Chem_Fams, CHEMFAMILYNAME ) IF ( INST_VARS_NML( INUM ) .EQ. 'ALL' ) THEN ! Add All Diagnostic Parameters to the End of the Registry List INST_VARS_NML( N_END+1:N_END+N_ELMO_LIST ) = ELMO_LIST%NAME N_END = N_END + N_ELMO_LIST ! Add All Raw Output Species to the End of the Registry List INST_VARS_NML( N_END+1:N_END+N_CGRID_SPC ) = CGRID_NAME(1:N_CGRID_SPC) N_END = N_END + N_CGRID_SPC ! Add All Family Names defined in the Emission Control ! Interface to the End of the Registry List IF ( N_Chem_Fams .GT. 0 ) & INST_VARS_NML( N_END+1:N_END+N_Chem_Fams ) = & CHEMFAMILYNAME(1:N_Chem_Fams) N_END = N_END + N_Chem_Fams ! Remove "All" Keyword INST_VARS_NML( INUM:N_END-1 ) = INST_VARS_NML( INUM+1:N_END ) INST_VARS_NML( N_END ) = '' N_END = N_END - 1 ELSE IF ( INST_VARS_NML( INUM ) .EQ. 'ALLCONC' ) THEN ! Add All Raw Output Species to the End of the Registry List INST_VARS_NML( N_END+1:N_END+N_CGRID_SPC ) = CGRID_NAME(1:N_CGRID_SPC) N_END = N_END + N_CGRID_SPC ! Remove 'ALLCONC' Keyword from INST Parameter List INST_VARS_NML( INUM:N_END-1 ) = INST_VARS_NML( INUM+1:N_END ) INST_VARS_NML( N_END ) = '' N_END = N_END - 1 ELSE IF ( I1 .GT. 0 ) THEN ! Entry Matches a parameter on the ELMO list. INUM = INUM + 1 ELSE IF ( I2 .GT. 0 ) THEN ! ELMO Keyword. Add parameters associated with a keyword INST_VARS_NML( N_END+1:N_END+ELMO_KEY( I2 )%N ) = & ELMO_KEY( I2 )%LIST N_END = N_END + ELMO_KEY( I2 )%N INST_VARS_NML( INUM:N_END-1 ) = INST_VARS_NML( INUM+1:N_END ) INST_VARS_NML( N_END ) = '' N_END = N_END - 1 ELSE IF ( I3 .GT. 0 ) THEN ! CMAQ Raw Model Species. Go to Next Entry INUM = INUM + 1 ELSE IF ( I4 .GT. 0 ) THEN ! CMAQ Chemical Family. Go to Next entry or expand if the * was ! used IF ( EXPAND_NML ) THEN CALL MAP_CHEM_FAMILIES( INST_VARS_NML( INUM ), & CGRID_NAME, N_CGRID_SPC, FAM_LIST ) DO J = 1,N_CGRID_SPC IF ( FAM_LIST(J) ) THEN N_END = N_END + 1 INST_VARS_NML( N_END ) = CGRID_NAME( J ) END IF END DO ! Remove family Name after expansion INST_VARS_NML( INUM:N_END-1 ) = INST_VARS_NML( INUM+1:N_END ) INST_VARS_NML( N_END ) = '' N_END = N_END - 1 ELSE INUM = INUM + 1 END IF ELSE ! Entry Doesn't Match any parameter or Keyword. Crash the ! model. XMSG = 'An Instantaneous ELMO Parameter ' // TRIM( INST_VARS_NML( INUM )) // & ' has been requested that does not exist.' CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT1 ) END IF END DO ! Capitalize Entries and Remove Duplicates DO INUM = 1,N_END CALL UPCASE( INST_VARS_NML( INUM ) ) ENDDO DO INUM = 1,N_END-1 JNUM = INUM + 1 DO WHILE ( JNUM .LE. N_END ) IF ( INST_VARS_NML( INUM ) .EQ. '' ) THEN JNUM = N_END + 1 ELSEIF ( INST_VARS_NML( INUM ) .EQ. INST_VARS_NML( JNUM ) ) THEN INST_VARS_NML( JNUM:N_END-1 ) = INST_VARS_NML( JNUM+1:N_END ) INST_VARS_NML( N_END ) = '' ELSE JNUM = JNUM + 1 END IF END DO END DO ! Populate Final INST_PARS parameters list N_ELMO_INST = INDEX1( '', N_NML, INST_VARS_NML ) - 1 ALLOCATE( INST_PARS( N_ELMO_INST ), STAT=IOS ) CALL CHECKMEM( IOS, 'INST_PARS',PNAME ) INST_PARS = INST_VARS_NML( 1:N_ELMO_INST ) ! Check Top-Layer Specification IF ( INST_LAYER_TOP .EQ. -1 ) INST_LAYER_TOP = NLAYS IF ( INST_LAYER_TOP .LE. 0 .OR. INST_LAYER_TOP .GT. NLAYS ) THEN XMSG = 'INST_LAYER_TOP must be prescribed between 1 and NLAYS,' // & ' or set to -1 to automatically choose NLAYS.' CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT1 ) END IF IF ( INST_LAYER_BOT .LE. 0 .OR. INST_LAYER_BOT .GT. NLAYS ) THEN XMSG = 'INST_LAYER_BOT must be prescribed between 1 and NLAYS.' CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT1 ) END IF IF ( INST_LAYER_BOT .GT. INST_LAYER_TOP ) THEN XMSG = 'INST_LAYER_BOT must be less than or equal to INST_LAYER_TOP.' CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT1 ) END IF NLAY_ELMO_INST = INST_LAYER_TOP - INST_LAYER_BOT + 1 ! Read Desired ELMO_AVRG parameters from input namelist REWIND( FUNIT ) READ( NML = elmo_avrg, UNIT = FUNIT, IOSTAT=STAT ) IF ( STAT .NE. 0 ) THEN WRITE( LOGDEV, "(5x,A,/,5x,A,/,5x,A,/,5x,A)" ), & 'Warning! Something went wrong while reading the ', & 'ELMO_AVRG section of the CMAQ Control ', & 'Namelist. Default values for this section will be ', & 'assumed.' END IF ! Expand AVRG list Using Keywords N_END = INDEX1( '', N_NML, AVRG_VARS_NML ) - 1 IF ( N_END .LE. 0 ) THEN WRITE( XMSG, '(A,A)' ),'ERROR: Undefined variables requested ', & 'for Average ELMO output ' CALL M3EXIT( PNAME, 0, 0, XMSG, 1 ) END IF INUM = 1 DO WHILE ( INUM .LE. N_END ) CALL UPCASE( AVRG_VARS_NML( INUM ) ) EXPAND_NML = .FALSE. IF ( AVRG_VARS_NML( INUM )(1:1) .EQ. '*' ) THEN EXPAND_NML = .TRUE. AVRG_VARS_NML( INUM ) = AVRG_VARS_NML( INUM )(2:16)//' ' END IF I1 = INDEX1( AVRG_VARS_NML( INUM ), N_ELMO_LIST, ELMO_LIST%NAME ) I2 = INDEX1( AVRG_VARS_NML( INUM ), N_KEY, ELMO_KEY%WORD ) I3 = INDEX1( AVRG_VARS_NML( INUM ), N_CGRID_SPC, CGRID_NAME ) I4 = 0 IF ( N_Chem_Fams .GT. 0 ) & I4 = INDEX1( AVRG_VARS_NML( INUM ), N_Chem_Fams, CHEMFAMILYNAME ) IF ( AVRG_VARS_NML( INUM ) .EQ. 'ALL' ) THEN ! Add All Parameters to the End of the Registry List AVRG_VARS_NML( N_END+1:N_END+N_ELMO_LIST ) = ELMO_LIST%NAME N_END = N_END + N_ELMO_LIST ! Add All Raw Output Species to the End of the Registry List AVRG_VARS_NML( N_END+1:N_END+N_CGRID_SPC ) = CGRID_NAME(1:N_CGRID_SPC) N_END = N_END + N_CGRID_SPC ! Add All Family Names defined in the Emission Control ! Interface to the End of the Registry List IF ( N_Chem_Fams .GT. 0 ) & AVRG_VARS_NML( N_END+1:N_END+N_Chem_Fams ) = & CHEMFAMILYNAME(1:N_Chem_Fams) N_END = N_END + N_Chem_Fams ! Remove 'ALL' Keyword from AVRG Parameter List AVRG_VARS_NML( INUM:N_END-1 ) = AVRG_VARS_NML( INUM+1:N_END ) AVRG_VARS_NML( N_END ) = '' N_END = N_END - 1 ELSE IF ( AVRG_VARS_NML( INUM ) .EQ. 'ALLCONC' ) THEN ! Add All Raw Output Species to the End of the Registry List AVRG_VARS_NML( N_END+1:N_END+N_CGRID_SPC ) = CGRID_NAME(1:N_CGRID_SPC) N_END = N_END + N_CGRID_SPC ! Remove 'ALLCONC' Keyword from AVRG Parameter List AVRG_VARS_NML( INUM:N_END-1 ) = AVRG_VARS_NML( INUM+1:N_END ) AVRG_VARS_NML( N_END ) = '' N_END = N_END - 1 ELSE IF ( I1 .GT. 0 ) THEN ! Entry Matches a parameter on the ELMO list. INUM = INUM + 1 ELSE IF ( I2 .GT. 0 ) THEN ! Add Parameters associated with a keyword AVRG_VARS_NML( N_END+1:N_END+ELMO_KEY( I2 )%N ) = & ELMO_KEY( I2 )%LIST N_END = N_END + ELMO_KEY( I2 )%N AVRG_VARS_NML( INUM:N_END-1 ) = AVRG_VARS_NML( INUM+1:N_END ) AVRG_VARS_NML( N_END ) = '' N_END = N_END - 1 ELSE IF ( I3 .GT. 0 ) THEN ! CMAQ Raw Model Species. Go to Next Entry INUM = INUM + 1 ELSE IF ( I4 .GT. 0 ) THEN ! CMAQ Chemical Family. Go to Next entry or expand if the * was ! used IF ( EXPAND_NML ) THEN CALL MAP_CHEM_FAMILIES( AVRG_VARS_NML( INUM ), & CGRID_NAME, N_CGRID_SPC, FAM_LIST ) DO J = 1,N_CGRID_SPC IF ( FAM_LIST(J) ) THEN N_END = N_END + 1 AVRG_VARS_NML( N_END ) = CGRID_NAME( J ) END IF END DO ! Remove family Name after expansion AVRG_VARS_NML( INUM:N_END-1 ) = AVRG_VARS_NML( INUM+1:N_END ) AVRG_VARS_NML( N_END ) = '' N_END = N_END - 1 ELSE INUM = INUM + 1 END IF ELSE ! Entry Doesn't Match any parameter or Keyword. Crash the ! model. XMSG = 'An Average ELMO Parameter ' // TRIM( AVRG_VARS_NML( INUM )) // & ' has been requested that does not exist.' CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT1 ) END IF END DO ! Capitalize Entries and Remove Duplicates DO INUM = 1,N_END CALL UPCASE( AVRG_VARS_NML( INUM ) ) ENDDO DO INUM = 1,N_END-1 JNUM = INUM + 1 DO WHILE ( JNUM .LE. N_END ) IF ( AVRG_VARS_NML( INUM ) .EQ. '' ) THEN JNUM = N_END + 1 ELSEIF ( AVRG_VARS_NML( INUM ) .EQ. AVRG_VARS_NML( JNUM ) ) THEN AVRG_VARS_NML( JNUM:N_END-1 ) = AVRG_VARS_NML( JNUM+1:N_END ) AVRG_VARS_NML( N_END ) = '' ELSE JNUM = JNUM + 1 END IF END DO END DO ! Populate INST_PARS parameters list N_ELMO_AVRG = INDEX1( '', N_NML, AVRG_VARS_NML ) - 1 ALLOCATE( AVRG_PARS( N_ELMO_AVRG ), STAT = IOS ) CALL CHECKMEM( IOS, 'AVRG_PARS',PNAME ) AVRG_PARS = AVRG_VARS_NML( 1:N_ELMO_AVRG ) ! Check Top-Layer Specification IF ( AVRG_LAYER_TOP .EQ. -1 ) AVRG_LAYER_TOP = NLAYS IF ( AVRG_LAYER_TOP .LE. 0 .OR. AVRG_LAYER_TOP .GT. NLAYS ) THEN XMSG = 'AVRG_LAYER_TOP must be prescribed between 1 and NLAYS,' // & ' or set to -1 to automatically choose NLAYS.' CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT1 ) END IF IF ( AVRG_LAYER_BOT .LE. 0 .OR. AVRG_LAYER_BOT .GT. NLAYS ) THEN XMSG = 'AVRG_LAYER_BOT must be prescribed between 1 and NLAYS.' CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT1 ) END IF IF ( AVRG_LAYER_BOT .GT. AVRG_LAYER_TOP ) THEN XMSG = 'AVRG_LAYER_BOT must be less than or equal to AVRG_LAYER_TOP.' CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT1 ) END IF NLAY_ELMO_AVRG = AVRG_LAYER_TOP - AVRG_LAYER_BOT + 1 DEALLOCATE( FAM_LIST ) END SUBROUTINE READ_ELMO_NML !------------------------------------------------------------------------- SUBROUTINE POPULATE_ELMO_KEY ! This subroutine allocates and populates the structure of potential ! keywords to which users may refer to activate various diagnostic ! parameters. It also contains the definitions of the ocntents of ! each keyword. !------------------------------------------------------------------------- USE CGRID_SPCS, ONLY: CGRID_NAME, N_CGRID_SPC IMPLICIT NONE INTEGER IOS, ALLOCSTAT CHARACTER(200) :: XMSG CHARACTER(16), SAVE :: PNAME = 'ELMO_KEY' N_KEY = 25 ALLOCATE( ELMO_KEY( N_KEY ), STAT=IOS ) CALL CHECKMEM( IOS, 'ELMO_KEY',PNAME ) ! Define AMET Variables ELMO_KEY( 1 )%WORD = 'DEFAULT' ELMO_KEY( 1 )%N = 14 ALLOCATE( ELMO_KEY( 1 )%LIST( 14 ),STAT=IOS ) CALL CHECKMEM( IOS, 'ELMO_KEY(1)%LIST',PNAME ) ELMO_KEY( 1 )%LIST = (/'AMET ','CUTOFF_FRACTIONS', & 'MASS ','PM_NUM ','PMF_NUM ', & 'PMC_NUM ','MET ','CHEM ', & 'FINE_SPECIES ','COARSE_SPECIES ','PM25_SPECIES ', & 'SIZE ','AMS ','PM25TO10_SPECIES' /) ELMO_KEY( 2 )%WORD = 'AMET' ELMO_KEY( 2 )%N = 35 ALLOCATE( ELMO_KEY( 2 )%LIST( 35 ), STAT=IOS ) CALL CHECKMEM( IOS, 'ELMO_KEY(2)%LIST',PNAME ) ELMO_KEY( 2 )%LIST = (/'PMF_MASS ','PMF_FRM ','PMC_MASS ', & 'PMF_OC ','PMF_EC ','PMF_NA ','PMF_CL ', & 'PMF_SO4 ','PMF_NO3 ','PMF_NH4 ','PM25 ', & 'PM25_FRM ','PM25_SO4 ','PM25_NO3 ','PM25_NH4 ', & 'PM25_OC ','PM25_EC ','PMF_FE ','PMF_AL ', & 'PMF_SI ','PMF_TI ','PMF_CA ','PMF_MG ', & 'PMF_K ','PMF_MN ','PMF_SOILIMPV','PMF_UN_IMPV1', & 'PMF_NCOM ','PMF_UN_IMPV2','TNO3 ','PM_MASS ', & 'PMC_MASS ','MET ','Tsurf ','AOD_550 ' /) ELMO_KEY( 3 )%WORD = 'MASS' ELMO_KEY( 3 )%N = 11 ALLOCATE( ELMO_KEY( 3 )%LIST( 11 ), STAT=IOS ) CALL CHECKMEM( IOS, 'ELMO_KEY(3)%LIST',PNAME ) ELMO_KEY( 3 )%LIST = (/'PMF_MASS ','PMC_MASS ','PM01 ','PM1 ', & 'PM25 ','PM10 ','PM25TO10 ','PMU_MASS ','PMAMS ', & 'PMAIT_MASS','PMACC_MASS' /) ELMO_KEY( 4 )%WORD = 'NUMBER' ELMO_KEY( 4 )%N = 7 ALLOCATE( ELMO_KEY( 4 )%LIST( 7 ), STAT=IOS ) CALL CHECKMEM( IOS, 'ELMO_KEY(4)%LIST',PNAME ) ELMO_KEY( 4 )%LIST = (/'PM_NUM ','PMF_NUM','PMC_NUM','N10 ', & 'N20 ','N40 ','N100 ' /) ELMO_KEY( 5 )%WORD = 'SIZE' ELMO_KEY( 5 )%N = 9 ALLOCATE( ELMO_KEY( 5 )%LIST( 9 ), STAT=IOS ) CALL CHECKMEM( IOS, 'ELMO_KEY(5)%LIST',PNAME ) ELMO_KEY( 5 )%LIST = (/'NUMBER ','DRY_DG ','WET_DG ','STDEV ', & 'DRY_M3 ','WET_M3 ','WET_M2 ','DRY_DENS','WET_DENS' /) ELMO_KEY( 6 )%WORD = 'SURFACE' ELMO_KEY( 6 )%N = 5 ALLOCATE( ELMO_KEY( 6 )%LIST( 5 ), STAT=ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating ELMO_KEY(6)' CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT1 ) END IF ELMO_KEY( 6 )%LIST = (/'PM_SRF ','PMU_SRF','PMF_SRF','PMC_SRF','WET_M2 '/) ELMO_KEY( 7 )%WORD = 'ORGANIC' ELMO_KEY( 7 )%N = 6 ALLOCATE( ELMO_KEY( 7 )%LIST( 6 ), STAT=ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating ELMO_KEY(7)' CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT1 ) END IF ELMO_KEY( 7 )%LIST = (/'FINE_ORG ','PM1_OC ','PM1_OA ', & 'PMAMS_OA ','PMAMS_OTOC','PM25_OA '/) ELMO_KEY( 8 )%WORD = 'MET' ELMO_KEY( 8 )%N = 3 ALLOCATE( ELMO_KEY( 8 )%LIST( 3 ), STAT=ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating ELMO_KEY(8)' CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT1 ) END IF ELMO_KEY( 8 )%LIST = (/'TA ','PRES','RH ' /) ELMO_KEY( 9 )%WORD = 'CHEM' ELMO_KEY( 9 )%N = 7 ALLOCATE( ELMO_KEY( 9 )%LIST( 7 ),STAT=ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating ELMO_KEY(9)' CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT1 ) END IF ELMO_KEY( 9 )%LIST = (/'GAMMA_N2O5 ','GAMMA_N2O5K ','YIELD_CLNO2 ', & 'YIELD_CLNO2K','GAMMA_IEPOX ','K_IEPOX ','GAMMA_IMAE ' /) ELMO_KEY( 10 )%WORD = 'FINE_SPECIES' ELMO_KEY( 10 )%N = 17 ALLOCATE( ELMO_KEY( 10 )%LIST( 17 ),STAT=ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating ELMO_KEY(10)' CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT1 ) END IF ELMO_KEY( 10 )%LIST = (/'PMF_SO4 ','PMF_NO3 ','PMF_NH4 ', & 'PMF_CL ','PMF_NA ','PMF_EC ','PMF_OC ', & 'PMF_OA ','PMF_H2O ','PMF_SOILIMPV','PMF_UN_IMPV1', & 'PMF_UN_IMPV2','PMF_HP ','PMF_HPMOLAL ','PMF_PH ', & 'FINE_ORG ','PMF_MASS ' /) ELMO_KEY( 11 )%WORD = 'COARSE_SPECIES' ELMO_KEY( 11 )%N = 8 ALLOCATE( ELMO_KEY( 11 )%LIST( 8 ), STAT=ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating ELMO_KEY(11)' CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT1 ) END IF ELMO_KEY( 11 )%LIST = (/'PMC_MASS','PMC_SO4 ','PMC_NO3 ','PMC_NH4 ', & 'PMC_NA ','PMC_MG ','PMC_K ','PMC_CA ' /) ELMO_KEY( 12 )%WORD = 'AMS_SPECIES' ELMO_KEY( 12 )%N = 7 ALLOCATE( ELMO_KEY( 12 )%LIST( 7 ), STAT=ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating ELMO_KEY(12)' CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT1 ) END IF ELMO_KEY( 12 )%LIST = (/'PMAMS ','PMAMS_SO4 ','PMAMS_NO3 ', & 'PMAMS_NH4 ','PMAMS_CL ','PMAMS_OA ','PMAMS_OTOC' /) ELMO_KEY( 13 )%WORD = 'PM1_SPECIES' ELMO_KEY( 13 )%N = 21 ALLOCATE( ELMO_KEY( 13 )%LIST( 21 ),STAT=ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating ELMO_KEY(13)' CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT1 ) END IF ELMO_KEY( 13 )%LIST = (/'PM1 ','PM1_SO4 ','PM1_NO3 ', & 'PM1_NH4 ','PM1_CL ','PM1_NA ','PM1_EC ', & 'PM1_OC ','PM1_OA ','PM1_MG ','PM1_K ', & 'PM1_CA ','PM1_OTHER ','PM1_FE ','PM1_SI ', & 'PM1_TI ','PM1_MN ','PM1_AL ','PM1_SOIL ', & 'PM1_UNSP1 ','PM1_UNSPCRS' /) ELMO_KEY( 14 )%WORD = 'PM25_SPECIES' ELMO_KEY( 14 )%N = 22 ALLOCATE( ELMO_KEY( 14 )%LIST( 22 ), STAT=ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating ELMO_KEY(14)' CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT1 ) END IF ELMO_KEY( 14 )%LIST = (/'PM25 ','PM25_SO4 ','PM25_NO3 ', & 'PM25_NH4 ','PM25_CL ','PM25_NA ','PM25_EC ', & 'PM25_OC ','PM25_OA ','PM25_MG ','PM25_K ', & 'PM25_CA ','PM25_OTHER ','PM25_FE ','PM25_SI ', & 'PM25_TI ','PM25_MN ','PM25_AL ','PM25_SOIL ', & 'PM25_UNSP1 ','PM25_UNSPCRS','PM25_HP ' /) ELMO_KEY( 15 )%WORD = 'PM25TO10_SPECIES' ELMO_KEY( 15 )%N = 6 ALLOCATE( ELMO_KEY( 15 )%LIST( 6 ), STAT=ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating ELMO_KEY(15)' CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT1 ) END IF ELMO_KEY( 15 )%LIST = (/'PM25TO10 ','PM25TO10_SO4','PM25TO10_NO3', & 'PM25TO10_NH4','PM25TO10_CL ','PM25TO10_NA ' /) ELMO_KEY( 16 )%WORD = 'OPTICAL' ELMO_KEY( 16 )%N = 2 ALLOCATE( ELMO_KEY( 16 )%LIST( 2 ), STAT=ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating ELMO_KEY(16)' CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT1 ) END IF ELMO_KEY( 16 )%LIST = (/'AOD_550 ','PM_EXT_550'/) ELMO_KEY( 17 )%WORD = 'FINE_ORG' ELMO_KEY( 17 )%N = 16 ALLOCATE( ELMO_KEY( 17 )%LIST( 16 ), STAT=ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating ELMO_KEY(17)' CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT1 ) END IF ELMO_KEY( 17 )%LIST = (/'PMF_POC ','PMF_SOC ','PMF_POA ', & 'PMF_SOA ','PMF_NCOM ','PMF_OMOC ','PMF_OTOC ', & 'PMF_ASOA ','PMF_BSOA ','PMF_CLDGLY ','PMF_ISOPSOA ', & 'PMF_IEPOXSOA','PMF_MTNSOA ','PMF_MTSOA ','PMF_OC ', & 'PMF_OA ' /) ELMO_KEY( 18 )%WORD = 'CUTOFF_FRACTIONS' ELMO_KEY( 18 )%N = 6 ALLOCATE( ELMO_KEY( 18 )%LIST( 6 ), STAT=ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating ELMO_KEY(18)' CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT1 ) END IF ELMO_KEY( 18 )%LIST = (/'FPM01 ','FPM1 ','FPM25 ', & 'FPM10 ','FPM25TO10','FAMS ' /) ELMO_KEY( 19 )%WORD = 'TOXICS' ELMO_KEY( 19 )%N = 21 ALLOCATE( ELMO_KEY( 19 )%LIST( 21 ), STAT=ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating ELMO_KEY(19)' CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT1 ) END IF ELMO_KEY( 19 )%LIST = (/'PM25_HDIESEL','PM25_HBE ','PM25_HCD ', & 'PM25_HCR3 ','PM25_HCR6 ','PM25_HCR ','PM25_HPB ', & 'PM25_HMN ','PM25_HNI ','PM25_HAS ','PM25_HG ', & 'PM10_HDIESEL','PM10_HBE ','PM10_HCD ','PM10_HCR3 ', & 'PM10_HCR6 ','PM10_HCR ','PM10_HPB ','PM10_HMN ', & 'PM10_HAS ','PM10_HG ' /) ELMO_KEY( 20 )%WORD = 'SIMPLE' ELMO_KEY( 20 )%N = 2 ALLOCATE( ELMO_KEY( 20 )%LIST( 2 ), STAT=ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating ELMO_KEY(20)' CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT1 ) END IF ELMO_KEY( 20 )%LIST = (/'PM25','PM10'/) ELMO_KEY( 21 )%WORD = 'AMS' ELMO_KEY( 21 )%N = 5 ALLOCATE( ELMO_KEY( 21 )%LIST( 5 ), STAT=ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating ELMO_KEY(21)' CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT1 ) END IF ELMO_KEY( 21 )%LIST = (/'PMAMS_CL ','PMAMS_NH4','PMAMS_NO3', & 'PMAMS_OA ','PMAMS_SO4'/) ! Satellite Retrieval products ELMO_KEY( 22 )%WORD = 'SAT' ELMO_KEY( 22 )%N = 2 ALLOCATE( ELMO_KEY( 22 )%LIST( 2 ), STAT=ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating ELMO_KEY(22)' CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT1 ) END IF ELMO_KEY( 22 )%LIST = (/'SATMET ','SATCONC'/) ! Satellite Retrieval Met Products ELMO_KEY( 23 )%WORD = 'SATMET' ELMO_KEY( 23 )%N = 7 ALLOCATE( ELMO_KEY( 23 )%LIST( 7 ), STAT=ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating ELMO_KEY(23)' CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT1 ) END IF ELMO_KEY( 23 )%LIST = (/'DENS ','DZ ','ZH ','CFRAC','PV ', & 'PRES ','TA '/) ! Satellite Retrieval products ELMO_KEY( 24 )%WORD = 'SATCONC' ELMO_KEY( 24 )%N = 7 ALLOCATE( ELMO_KEY( 24 )%LIST( 7 ), STAT=ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating ELMO_KEY(24)' CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT1 ) END IF ELMO_KEY( 24 )%LIST = (/'NO2 ','SO2 ','O3 ','CO ', & 'FORM ','NH3 ','AOD_550'/) ! All Concentrations ELMO_KEY( 25 )%WORD = 'ALLCONC' ELMO_KEY( 25 )%N = N_CGRID_SPC ALLOCATE( ELMO_KEY( 25 )%LIST( N_CGRID_SPC ), STAT=ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating ELMO_KEY(24)' CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT1 ) END IF ELMO_KEY( 25 )%LIST = CGRID_NAME(:) END SUBROUTINE POPULATE_ELMO_KEY !------------------------------------------------------------------------- SUBROUTINE MAP_ELMO ! This subroutine maps the PM diagnostic variables that the user has ! requested to the entries in the ELMO_DATA table. !------------------------------------------------------------------------- USE AERO_DATA, ONLY: N_MODE, AEROMODE USE CGRID_SPCS, ONLY : N_CGRID_SPC, CGRID_NAME, & CGRID_CONC_UNIT, CGRID_CONC_DESC USE UTIL_FAMILY_MODULE, ONLY: N_Chem_Fams,ChemFamilyName USE GRID_CONF, ONLY : MYPE IMPLICIT NONE INTEGER N, M, P, J, IM, ILIST, S, F CHARACTER( 16 ), SAVE :: PNAME = 'MAP_ELMO' CHARACTER( 300 ) :: XMSG INTEGER ALLOCSTAT, IOS ! Read User-Input from Namelist input file (Emission Control File ! For Now) CALL ELMO_INIT_SHARED() CALL READ_ELMO_NML() IF ( .NOT. L_ELMO ) RETURN ! Map user-defined INST_PARS and AVRG_PARS arrays to the ELMO ! parameters available on the ELMO_LIST. N_ELMO = 0 ALLOCATE( USED_ELMO_MODE( N_ELMO_LIST*N_MODE+N_CGRID_SPC+N_Chem_Fams ), & USED_ELMO_ID( N_ELMO_LIST*N_MODE+N_CGRID_SPC+N_Chem_Fams ), & USED_CGRID_ID( N_ELMO_LIST*N_MODE+N_CGRID_SPC+N_Chem_Fams ), & USED_FAM_ID( N_ELMO_LIST*N_MODE+N_CGRID_SPC+N_Chem_Fams ), & MAP_ID2USED( N_ELMO_LIST+N_CGRID_SPC+N_Chem_Fams,N_MODE ), & STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating USED_ELMO_MODE, USED_ELMO_ID, ' // & 'or MAP_ID2USED' CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT1 ) END IF USED_ELMO_MODE = 0 USED_ELMO_ID = 0 USED_CGRID_ID = 0 USED_FAM_ID = 0 MAP_ID2USED = 0 ! Map Parameter ID's to ELMO_List Entries MAP_ID2LIST = 0 DO ILIST = 1,N_ELMO_LIST MAP_ID2LIST( ELMO_LIST( ILIST )%ID ) = ILIST END DO ! Initialize number of IDs as equal to the number of Diagnostic ! Parameters NTOT_ELMO_IDS = N_ELMO_LIST IF ( INST_ACTIVE ) THEN ALLOCATE( MAP_INST2USED( N_ELMO_INST*N_MODE+N_CGRID_SPC+N_Chem_Fams ), & INST_PARS_OUT( N_ELMO_INST*N_MODE+N_CGRID_SPC+N_Chem_Fams ) , & INST_TYPE_OUT( N_ELMO_INST*N_MODE+N_CGRID_SPC+N_Chem_Fams ) , & INST_UNIT_OUT( N_ELMO_INST*N_MODE+N_CGRID_SPC+N_Chem_Fams ) , & INST_DESC_OUT( N_ELMO_INST*N_MODE+N_CGRID_SPC+N_Chem_Fams ), & STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating MAP_INST2USED, etc., ' CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT1 ) END IF ! Initialize number of Instantaneous Output Variables N_ELMO_INST_OUT = 0 ! Loop over all user-requested Instantaneous parameter and link ! each to parameter IDs, Units, descriptions, etc. DO J = 1,N_ELMO_INST N = INDEX1( INST_PARS( J ), N_ELMO_LIST, ELMO_LIST%NAME ) S = INDEX1( INST_PARS( J ), N_CGRID_SPC, CGRID_NAME ) F = 0 IF ( N_Chem_Fams .GT. 0 ) & F = INDEX1( INST_PARS( J ), N_Chem_Fams, CHEMFAMILYNAME ) IF ( N .NE. 0 ) THEN ! Add Room for the Other Modes if this Parameter is ! Mode-Dependent IF ( ELMO_LIST( N )%MODE ) THEN DO IM = 1,N_MODE ! Add Entry for this Parameter N_ELMO = N_ELMO + 1 N_ELMO_INST_OUT = N_ELMO_INST_OUT + 1 USED_ELMO_ID( N_ELMO ) = ELMO_LIST(N)%ID USED_ELMO_MODE( N_ELMO ) = IM MAP_ID2USED( ELMO_LIST(N)%ID,IM) = N_ELMO MAP_INST2USED( N_ELMO_INST_OUT ) = N_ELMO INST_PARS_OUT( N_ELMO_INST_OUT ) = & TRIM(INST_PARS( J )) // aeromode( IM )%suff INST_TYPE_OUT( N_ELMO_INST_OUT ) = ELMO_LIST( N )%VAR_TYPE INST_UNIT_OUT( N_ELMO_INST_OUT ) = ELMO_LIST( N )%UNIT INST_DESC_OUT( N_ELMO_INST_OUT ) = ELMO_LIST( N )%DESC END DO ELSE ! Add Entry for this Parameter N_ELMO = N_ELMO + 1 N_ELMO_INST_OUT = N_ELMO_INST_OUT + 1 USED_ELMO_ID( N_ELMO ) = ELMO_LIST(N)%ID USED_ELMO_MODE( N_ELMO ) = 1 MAP_ID2USED( ELMO_LIST(N)%ID,1 ) = N_ELMO MAP_INST2USED( N_ELMO_INST_OUT ) = N_ELMO INST_PARS_OUT( N_ELMO_INST_OUT ) = INST_PARS( J ) INST_TYPE_OUT( N_ELMO_INST_OUT ) = ELMO_LIST( N )%VAR_TYPE INST_UNIT_OUT( N_ELMO_INST_OUT ) = ELMO_LIST( N )%UNIT INST_DESC_OUT( N_ELMO_INST_OUT ) = ELMO_LIST( N )%DESC END IF ELSEIF ( S .GT. 0 ) THEN ! Add Entry for CMAQ Model Species N_ELMO = N_ELMO + 1 N_ELMO_INST_OUT = N_ELMO_INST_OUT + 1 NTOT_ELMO_IDS = NTOT_ELMO_IDS + 1 USED_ELMO_ID( N_ELMO ) = NTOT_ELMO_IDS USED_CGRID_ID( N_ELMO ) = S USED_ELMO_MODE( N_ELMO ) = 1 MAP_ID2USED( NTOT_ELMO_IDS,1 ) = N_ELMO MAP_INST2USED( N_ELMO_INST_OUT ) = N_ELMO INST_PARS_OUT( N_ELMO_INST_OUT ) = INST_PARS( J ) INST_TYPE_OUT( N_ELMO_INST_OUT ) = M3REAL INST_UNIT_OUT( N_ELMO_INST_OUT ) = CGRID_CONC_UNIT(S) INST_DESC_OUT( N_ELMO_INST_OUT ) = & 'Instantaneous ' // CGRID_CONC_DESC(S) ELSEIF ( F .GT. 0 ) THEN ! Add Entry for Chemical Family N_ELMO = N_ELMO + 1 N_ELMO_INST_OUT = N_ELMO_INST_OUT + 1 NTOT_ELMO_IDS = NTOT_ELMO_IDS + 1 USED_ELMO_ID( N_ELMO ) = NTOT_ELMO_IDS USED_FAM_ID( N_ELMO ) = F USED_ELMO_MODE( N_ELMO ) = 1 MAP_ID2USED( NTOT_ELMO_IDS,1 ) = N_ELMO MAP_INST2USED( N_ELMO_INST_OUT ) = N_ELMO INST_PARS_OUT( N_ELMO_INST_OUT ) = INST_PARS( J ) INST_TYPE_OUT( N_ELMO_INST_OUT ) = M3REAL INST_UNIT_OUT( N_ELMO_INST_OUT ) = 'ppmV for Gas. ug m-3 for PM' INST_DESC_OUT( N_ELMO_INST_OUT ) = 'Chemical Family. See Definition in Control File.' ELSE XMSG = 'An Instantaneous ELMO Parameter '//TRIM(INST_PARS(J))// & ' has been requested that does not exist.' CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT1 ) END IF END DO ALLOCATE( ELMO_INST( NCOLS,NROWS,NLAY_ELMO_INST, & N_ELMO_INST_OUT),STAT=ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating ELMO_INST' CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT1 ) END IF ELMO_INST = 0.0 END IF ! Process Average Parameter User Input IF ( AVRG_ACTIVE ) THEN ALLOCATE( MAP_AVRG2USED( N_ELMO_AVRG*N_MODE ), & AVRG_PARS_OUT( N_ELMO_AVRG*N_MODE ) , & AVRG_TYPE_OUT( N_ELMO_AVRG*N_MODE ) , & AVRG_UNIT_OUT( N_ELMO_AVRG*N_MODE ) , & AVRG_DESC_OUT( N_ELMO_AVRG*N_MODE ), & STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating MAP_AVRG2USED, etc.' CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT1 ) END IF ! Initialize number of Average output variables N_ELMO_AVRG_OUT = 0 ! Loop over all user-requested Average parameter and link ! each to parameter IDs, Units, descriptions, etc. DO J = 1,N_ELMO_AVRG N = INDEX1( AVRG_PARS( J ), N_ELMO_LIST, ELMO_LIST%NAME ) S = INDEX1( AVRG_PARS( J ), N_CGRID_SPC, CGRID_NAME ) F = 0 IF ( N_Chem_Fams .GT. 0 ) & F = INDEX1( AVRG_PARS( J ), N_Chem_Fams, CHEMFAMILYNAME ) ! Check if this parameter is duplicated on the ! instantaneous list. Don't need to duplicate calculation ! but do need to add it to the output M = 0 IF ( INST_ACTIVE ) & M = INDEX1( AVRG_PARS( J ), N_ELMO_INST, INST_PARS ) !IF ( MYPE . EQ. 14 ) THEN ! print *,'J = ',J,' avrg_pars_j=',avrg_pars(j) ! print *,'avrg_pars = ',avrg_pars(:) ! print *,'N_Chem_Fams = ',N_Chem_Fams ! print *,'chemfamilynames = ',chemfamilyname(:) ! print *,N, ' ',S, ' ',F, ' ',M !END IF IF ( N .NE. 0 ) THEN ! Add Room for the Other Modes if this Parameter is ! Mode-Dependent IF ( ELMO_LIST( N )%MODE ) THEN DO IM = 1,N_MODE N_ELMO_AVRG_OUT = N_ELMO_AVRG_OUT + 1 AVRG_PARS_OUT( N_ELMO_AVRG_OUT ) = & TRIM(AVRG_PARS( J )) // aeromode( IM )%suff AVRG_TYPE_OUT( N_ELMO_AVRG_OUT ) = ELMO_LIST( N )%VAR_TYPE AVRG_UNIT_OUT( N_ELMO_AVRG_OUT ) = ELMO_LIST( N )%UNIT AVRG_DESC_OUT( N_ELMO_AVRG_OUT ) = ELMO_LIST( N )%DESC IF ( M .EQ. 0 ) THEN N_ELMO = N_ELMO + 1 USED_ELMO_MODE( N_ELMO ) = IM USED_ELMO_ID( N_ELMO ) = ELMO_LIST(N)%ID MAP_ID2USED( ELMO_LIST(N)%ID,IM) = N_ELMO MAP_AVRG2USED( N_ELMO_AVRG_OUT ) = N_ELMO ELSE P = INDEX1( AVRG_PARS_OUT( N_ELMO_AVRG_OUT ), & N_ELMO_INST_OUT, INST_PARS_OUT ) MAP_AVRG2USED( N_ELMO_AVRG_OUT ) = MAP_INST2USED( P ) END IF END DO ELSE ! Add Entry for this Parameter N_ELMO_AVRG_OUT = N_ELMO_AVRG_OUT + 1 AVRG_PARS_OUT( N_ELMO_AVRG_OUT ) = AVRG_PARS( J ) AVRG_TYPE_OUT( N_ELMO_AVRG_OUT ) = ELMO_LIST( N )%VAR_TYPE AVRG_UNIT_OUT( N_ELMO_AVRG_OUT ) = ELMO_LIST( N )%UNIT AVRG_DESC_OUT( N_ELMO_AVRG_OUT ) = ELMO_LIST( N )%DESC IF ( M .EQ. 0 ) THEN N_ELMO = N_ELMO + 1 USED_ELMO_ID( N_ELMO ) = ELMO_LIST(N)%ID USED_ELMO_MODE( N_ELMO ) = 1 MAP_ID2USED( ELMO_LIST(N)%ID,1 ) = N_ELMO MAP_AVRG2USED( N_ELMO_AVRG_OUT ) = N_ELMO ELSE P = INDEX1( AVRG_PARS_OUT( N_ELMO_AVRG_OUT ), & N_ELMO_INST_OUT, INST_PARS_OUT ) MAP_AVRG2USED( N_ELMO_AVRG_OUT ) = MAP_INST2USED( P ) END IF END IF ELSEIF ( S .GT. 0 ) THEN ! Add Entry for CMAQ Model Species N_ELMO_AVRG_OUT = N_ELMO_AVRG_OUT + 1 AVRG_PARS_OUT( N_ELMO_AVRG_OUT ) = AVRG_PARS( J ) AVRG_TYPE_OUT( N_ELMO_AVRG_OUT ) = M3REAL AVRG_UNIT_OUT( N_ELMO_AVRG_OUT ) = CGRID_CONC_UNIT(S) AVRG_DESC_OUT( N_ELMO_AVRG_OUT ) = & 'Average ' // CGRID_CONC_DESC(S) IF ( M .EQ. 0 ) THEN N_ELMO = N_ELMO + 1 NTOT_ELMO_IDS = NTOT_ELMO_IDS + 1 USED_ELMO_ID( N_ELMO ) = NTOT_ELMO_IDS USED_CGRID_ID( N_ELMO ) = S USED_ELMO_MODE( N_ELMO ) = 1 MAP_ID2USED( NTOT_ELMO_IDS,1 ) = N_ELMO MAP_AVRG2USED( N_ELMO_AVRG_OUT ) = N_ELMO ELSE P = INDEX1( AVRG_PARS_OUT( N_ELMO_AVRG_OUT ), & N_ELMO_INST_OUT, INST_PARS_OUT ) MAP_AVRG2USED( N_ELMO_AVRG_OUT ) = MAP_INST2USED( P ) END IF ELSEIF ( F .GT. 0 ) THEN ! Add Entry for Chemical Family N_ELMO_AVRG_OUT = N_ELMO_AVRG_OUT + 1 AVRG_PARS_OUT( N_ELMO_AVRG_OUT ) = AVRG_PARS( J ) AVRG_TYPE_OUT( N_ELMO_AVRG_OUT ) = M3REAL AVRG_UNIT_OUT( N_ELMO_AVRG_OUT ) = 'ppmV for Gas. ug m-3 for PM' AVRG_DESC_OUT( N_ELMO_AVRG_OUT ) = 'Chemical Family. See Definition in Control File.' IF ( M .EQ. 0 ) THEN N_ELMO = N_ELMO + 1 NTOT_ELMO_IDS = NTOT_ELMO_IDS + 1 USED_ELMO_ID( N_ELMO ) = NTOT_ELMO_IDS USED_FAM_ID( N_ELMO ) = F USED_ELMO_MODE( N_ELMO ) = 1 MAP_ID2USED( NTOT_ELMO_IDS,1 ) = N_ELMO MAP_AVRG2USED( N_ELMO_AVRG_OUT ) = N_ELMO ELSE P = INDEX1( AVRG_PARS_OUT( N_ELMO_AVRG_OUT ), & N_ELMO_INST_OUT, INST_PARS_OUT ) MAP_AVRG2USED( N_ELMO_AVRG_OUT ) = MAP_INST2USED( P ) END IF ELSE XMSG = 'An Average ELMO Parameter '//TRIM(AVRG_PARS(J))// & ' has been requested that does not exist.' CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT1 ) END IF END DO ALLOCATE( ELMO_AVRG( NCOLS,NROWS,NLAY_ELMO_AVRG, & N_ELMO_AVRG_OUT ), STAT=IOS ) CALL CHECKMEM( IOS, 'ELMO_AVRG',PNAME ) ELMO_AVRG = 0.0 END IF ! Allocate Local ELMO Array ALLOCATE( ELMO_LOCAL( N_ELMO ), STAT=IOS ) CALL CHECKMEM( IOS, 'ELMO_LOCAL',PNAME ) ALLOCATE( L_CALC( N_ELMO ), STAT=IOS ) CALL CHECKMEM( IOS, 'L_CALC',PNAME ) ! Allocate local image of CGRID so it can be used each time step ALLOCATE( CONC_VEC( N_CGRID_SPC ), STAT=IOS ) CALL CHECKMEM( IOS, 'CONC_VEC',PNAME ) ! Map Diagnostic Variables to Model Species and Coefficients CALL MAP_ELMO_COEFFS END SUBROUTINE MAP_ELMO !------------------------------------------------------------------------- SUBROUTINE MAP_ELMO_COEFFS ! This subroutine maps the PM diagnostic variables that the user has ! requested to the entries in the ELMO_DATA table. !------------------------------------------------------------------------- USE CGRID_SPCS, ONLY : CGRID_NAME USE UTIL_FAMILY_MODULE, ONLY : CHEMFAMILYNUM, CHEMFAMILYMEMBERS USE AERO_DATA, ONLY : ascat_na_fac, asoil_na_fac, acors_na_fac, & ascat_mg_fac, asoil_mg_fac, acors_mg_fac, & ascat_k_fac, asoil_k_fac, acors_k_fac, & ascat_ca_fac, asoil_ca_fac, acors_ca_fac, & asoil_fe_fac, acors_fe_fac, & asoil_mn_fac, acors_mn_fac IMPLICIT NONE INTEGER IDG, N_VARS, IELMO, S, F, IV ALLOCATE( ELMO_COEFFS( NTOT_ELMO_IDS ) ) ELMO_COEFFS( : )%L_MAPPED = .FALSE. ! Save the number of ELMO parameters that should be output. In the ! course of mapping various parameters, it may be necessary to add ! some used parameters to N_ELMO that are intermediates to the desired ! parameters. For example, PMF_MASS must be calculated in order to ! then calculate AUNSP1_IMPVIJ N_ELMO_OUT = N_ELMO ! Loop through all available ELMO_LIST Parameters IELMO = 0 DO WHILE ( IELMO .LE. N_ELMO_OUT ) IELMO = IELMO + 1 IDG = USED_ELMO_ID( IELMO ) SELECT CASE ( IDG ) !!!! Coarse-Mode Parameters !!!! ! Map PMC_SO4 - Coarse-Mode Sulfate CASE ( ID_PMC_SO4 ) N_VARS = 1 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'COARSE' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AERO', 'ASO4', 1.0 ) ! Map PMC_NO3 - Coarse-Mode Nitrate CASE ( ID_PMC_NO3 ) N_VARS = 1 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'COARSE' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AERO', 'ANO3', 1.0 ) ! Map PMC_NH4 - Coarse-Mode Ammonium CASE ( ID_PMC_NH4 ) N_VARS = 1 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'COARSE' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AERO', 'ANH4', 1.0 ) ! Map PMC_CL - Coarse-Mode Chlorine CASE ( ID_PMC_CL ) N_VARS = 1 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'COARSE' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AERO', 'ACL', 1.0 ) ! Map PMC_NA - Coarse-Mode Sodium CASE ( ID_PMC_NA ) N_VARS = 3 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'COARSE' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AERO', 'ASEACAT', real(ascat_na_fac) ) CALL SET_ELMO_COEFF_MAP( IDG, 2, 'AERO', 'ASOIL', real(asoil_na_fac) ) CALL SET_ELMO_COEFF_MAP( IDG, 3, 'AERO', 'ACORS', real(acors_na_fac) ) ! Map PMC_MG - Coarse-Mode Magnesium CASE ( ID_PMC_MG ) N_VARS = 3 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'COARSE' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AERO', 'ASEACAT', real(ascat_mg_fac) ) CALL SET_ELMO_COEFF_MAP( IDG, 2, 'AERO', 'ASOIL', real(asoil_mg_fac) ) CALL SET_ELMO_COEFF_MAP( IDG, 3, 'AERO', 'ACORS', real(acors_mg_fac) ) ! Map PMC_K - Coarse-Mode Potassium CASE ( ID_PMC_K ) N_VARS = 3 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'COARSE' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AERO', 'ASEACAT', real(ascat_k_fac) ) CALL SET_ELMO_COEFF_MAP( IDG, 2, 'AERO', 'ASOIL', real(asoil_k_fac) ) CALL SET_ELMO_COEFF_MAP( IDG, 3, 'AERO', 'ACORS', real(acors_k_fac) ) ! Map PMC_CA - Coarse-Mode Calcium CASE ( ID_PMC_CA ) N_VARS = 3 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'COARSE' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AERO', 'ASEACAT', real(ascat_ca_fac) ) CALL SET_ELMO_COEFF_MAP( IDG, 2, 'AERO', 'ASOIL', real(asoil_ca_fac) ) CALL SET_ELMO_COEFF_MAP( IDG, 3, 'AERO', 'ACORS', real(acors_ca_fac) ) !!!! Fine-Mode Parameters !!!! ! Map PMF_SO4 - Fine-Mode Sulfate CASE ( ID_PMF_SO4 ) N_VARS = 1 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'FINE' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AERO', 'ASO4', 1.0 ) ! Map PMF_NO3 - Fine-Mode Nitrate CASE ( ID_PMF_NO3 ) N_VARS = 1 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'FINE' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AERO', 'ANO3', 1.0 ) ! Map PMF_NH4 - Fine-Mode Ammonium CASE ( ID_PMF_NH4 ) N_VARS = 1 CALL INIT_ELMO_COEFFS( IDG, N_VARS , 'FINE') CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AERO', 'ANH4', 1.0 ) ! Map PMF_CL - Fine-Mode Chloride CASE ( ID_PMF_CL ) N_VARS = 1 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'FINE' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AERO', 'ACL', 1.0 ) ! Map PMF_NA - Fine-Mode Sodium CASE ( ID_PMF_NA ) N_VARS = 1 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'FINE' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AERO', 'ANA', 1.0 ) ! Map PMF_EC - Fine-Mode Elemental Carbon CASE ( ID_PMF_EC ) N_VARS = 1 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'FINE' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AERO', 'AEC', 1.0 ) ! Map PMF_FE - Fine-Mode Iron CASE ( ID_PMF_FE ) N_VARS = 1 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'FINE' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AERO', 'AFE', 1.0 ) ! Map PMF_AL - Fine-Mode Aluminum CASE ( ID_PMF_AL ) N_VARS = 1 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'FINE' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AERO', 'AAL', 1.0 ) ! Map PMF_SI - Fine-Mode Silicon CASE ( ID_PMF_SI ) N_VARS = 1 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'FINE' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AERO', 'ASI', 1.0 ) ! Map PMF_TI - Fine-Mode Titanium CASE ( ID_PMF_TI ) N_VARS = 1 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'FINE' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AERO', 'ATI', 1.0 ) ! Map PMF_CA - Fine-Mode Calcium CASE ( ID_PMF_CA ) N_VARS = 1 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'FINE' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AERO', 'ACA', 1.0 ) ! Map PMF_MG - Fine-Mode Magnesium CASE ( ID_PMF_MG ) N_VARS = 1 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'FINE' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AERO', 'AMG', 1.0 ) ! Map PMF_K - Fine-Mode Potassium CASE ( ID_PMF_K ) N_VARS = 1 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'FINE' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AERO', 'AK', 1.0 ) ! Map PMF_MN - Fine-Mode Manganese CASE ( ID_PMF_MN ) N_VARS = 1 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'FINE' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AERO', 'AMN', 1.0 ) ! Map PMF_H2O - Fine-Mode Particle Water CASE ( ID_PMF_H2O ) N_VARS = 1 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'FINE' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AERO', 'AH2O', 1.0/19.0 ) ! Map SOIL_IMPV - IMPROVE reconstruction of Soil PM CASE ( ID_SOIL_IMPV ) N_VARS = 5 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'ACCUMULATION' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AERO', 'AAL', 2.20 ) CALL SET_ELMO_COEFF_MAP( IDG, 2, 'AERO', 'ASI', 2.49 ) CALL SET_ELMO_COEFF_MAP( IDG, 3, 'AERO', 'ACA', 1.63 ) CALL SET_ELMO_COEFF_MAP( IDG, 4, 'AERO', 'AFE', 2.42 ) CALL SET_ELMO_COEFF_MAP( IDG, 5, 'AERO', 'ATI', 1.94 ) ! Map PMF_UNSP1 - Retrieve Fine-Mode Unspeciated PM based ! on reconstructed SOIL PM from IMPROVE method and including ! NCOM in the unspeciated portion CASE ( ID_PMF_UNSP1 ) N_VARS = 9 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'FINE' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AGG', 'PMF_MASS', 1.0 ) CALL SET_ELMO_COEFF_MAP( IDG, 2, 'AERO', 'ASO4', -1.0 ) CALL SET_ELMO_COEFF_MAP( IDG, 3, 'AERO', 'ANO3', -1.0 ) CALL SET_ELMO_COEFF_MAP( IDG, 4, 'AERO', 'ANH4', -1.0 ) CALL SET_ELMO_COEFF_MAP( IDG, 5, 'AERO', 'ACL', -1.0 ) CALL SET_ELMO_COEFF_MAP( IDG, 6, 'AERO', 'ANA', -1.0 ) CALL SET_ELMO_COEFF_MAP( IDG, 7, 'AERO', 'AEC', -1.0 ) CALL SET_ELMO_COEFF_MAP( IDG, 8, 'AGG', 'PMF_OC', -1.0 ) CALL SET_ELMO_COEFF_MAP( IDG, 9, 'AGG', 'PMF_SOILIMPV', -1.0 ) ! Map PMF_UNSP2 - Retrieve Fine-Mode Unspeciated PM based ! on reconstructed SOIL PM from IMPROVE method and EXCLUDING ! NCOM in the unspeciated portion CASE ( ID_PMF_UNSP2 ) N_VARS = 9 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'FINE' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AGG', 'PMF_MASS', 1.0 ) CALL SET_ELMO_COEFF_MAP( IDG, 2, 'AERO', 'ASO4', -1.0 ) CALL SET_ELMO_COEFF_MAP( IDG, 3, 'AERO', 'ANO3', -1.0 ) CALL SET_ELMO_COEFF_MAP( IDG, 4, 'AERO', 'ANH4', -1.0 ) CALL SET_ELMO_COEFF_MAP( IDG, 5, 'AERO', 'ACL', -1.0 ) CALL SET_ELMO_COEFF_MAP( IDG, 6, 'AERO', 'ANA', -1.0 ) CALL SET_ELMO_COEFF_MAP( IDG, 7, 'AERO', 'AEC', -1.0 ) CALL SET_ELMO_COEFF_MAP( IDG, 8, 'AGG', 'PMF_OA', -1.0 ) CALL SET_ELMO_COEFF_MAP( IDG, 9, 'AGG', 'PMF_SOILIMPV', -1.0 ) ! Map PMF_HP - Fine-Mode Hydronium Ion CASE ( ID_PMF_HP ) N_VARS = 1 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'FINE' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AERO', 'AH3OP', 1.0/19.0 ) ! Map PMF_NCOM - Fine-Mode Non-Carbon Organic Mass in POA CASE ( ID_PMF_NCOM ) N_VARS = 2 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'FINE' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AGG', 'PMF_OA', 1.0 ) CALL SET_ELMO_COEFF_MAP( IDG, 2, 'AGG', 'PMF_OC',-1.0 ) ! Map PMF_CLDGLY - Fine-Mode SOA from glyoxal and methylglyoxal CASE ( ID_PMF_CLDGLY ) N_VARS = 2 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'FINE' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AERO', 'AORGC', 1.0 ) CALL SET_ELMO_COEFF_MAP( IDG, 2, 'AERO', 'AGLY', 1.0 ) ! Map PMF_ISOP - Fine-Mode Isoprene SOA excluding IEPOX SOA CASE ( ID_PMF_ISOP ) N_VARS = 2 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'FINE' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AERO', 'AISO1', 1.0 ) CALL SET_ELMO_COEFF_MAP( IDG, 2, 'AERO', 'AISO2', 1.0 ) ! Map PMF_IEPOX - Fine-Mode IEPOX SOA CASE ( ID_PMF_IEPOX ) N_VARS = 1 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'FINE' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AERO', 'AISO3', 1.0 ) ! Map PMF_MTNSOA - Fine-Mode Monoterpene Nitrate SOA CASE ( ID_PMF_MTNSOA ) N_VARS = 2 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'FINE' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AERO', 'AMTNO3', 1.0 ) CALL SET_ELMO_COEFF_MAP( IDG, 2, 'AERO', 'AMTHYD', 1.0 ) ! Map PMF_MTSOA - Fine-Mode Monoterpene SOA excluding ! Nitrates CASE ( ID_PMF_MTSOA ) N_VARS = 6 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'FINE' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AERO', 'AMT1', 1.0 ) CALL SET_ELMO_COEFF_MAP( IDG, 2, 'AERO', 'AMT2', 1.0 ) CALL SET_ELMO_COEFF_MAP( IDG, 3, 'AERO', 'AMT3', 1.0 ) CALL SET_ELMO_COEFF_MAP( IDG, 4, 'AERO', 'AMT4', 1.0 ) CALL SET_ELMO_COEFF_MAP( IDG, 5, 'AERO', 'AMT5', 1.0 ) CALL SET_ELMO_COEFF_MAP( IDG, 6, 'AERO', 'AMT6', 1.0 ) ! Map PMF_BENAPY - Fine-Mode Benzo-a-Pyrene CASE ( ID_PMF_BENAPY ) N_VARS = 1 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'FINE' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AERO', 'ABENAPY', 1.0 ) ! Map GAS_BENAPY - Gas-Phase Benzo-a-Pyrene CASE ( ID_GAS_BENAPY ) N_VARS = 1 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'ALL' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'GAS', 'BENAPY',8701.7 ) ! Scale by 1000*MW_BENAPY/MW_Air ! Map GAS_NH3 - Gas-Phase Benzo-a-Pyrene CASE ( ID_GAS_NH3 ) N_VARS = 1 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'ALL' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'GAS', 'NH3',587.0 ) ! Scale by 1000*MW_BENAPY/MW_Air ! Map GAS_HNO3 - Gas-Phase Benzo-a-Pyrene CASE ( ID_GAS_HNO3 ) N_VARS = 1 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'ALL' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'GAS', 'HNO3',2175.6 ) ! Scale by 1000*MW_BENAPY/MW_Air !!!! AMS Parameters !!!! ! Map AMS_SO4 - AMS-Measure Sulfate CASE ( ID_AMS_SO4 ) N_VARS = 1 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'PMAMS' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AERO', 'ASO4', 1.0 ) ! Map AMS_NO3 - AMS-Measured Nitrate CASE ( ID_AMS_NO3 ) N_VARS = 1 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'PMAMS' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AERO', 'ANO3', 1.0 ) ! Map AMS_NH4 - AMS-Measured Ammonium CASE ( ID_AMS_NH4 ) N_VARS = 1 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'PMAMS' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AERO', 'ANH4', 1.0 ) ! Map AMS_CL - AMS-Measured Chloride CASE ( ID_AMS_CL ) N_VARS = 1 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'PMAMS' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AERO', 'ACL', 1.0 ) !!!! PM1.0 Parameters !!!! ! Map PM1_SO4 - PM1 Sulfate CASE ( ID_PM1_SO4 ) N_VARS = 1 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'PM1' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AERO', 'ASO4', 1.0 ) ! Map PM1_NO3 - PM1 Nitrate CASE ( ID_PM1_NO3 ) N_VARS = 1 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'PM1' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AERO', 'ANO3', 1.0 ) ! Map PM1_NH4 - PM1 Ammonium CASE ( ID_PM1_NH4 ) N_VARS = 1 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'PM1' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AERO', 'ANH4', 1.0 ) ! Map PM1_CL - PM1 Chloride CASE ( ID_PM1_CL ) N_VARS = 1 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'PM1' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AERO', 'ACL', 1.0 ) ! Map PM1_NA - PM1 Sodium CASE ( ID_PM1_NA ) N_VARS = 4 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'PM1' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AERO', 'ANA', 1.0 ) CALL SET_ELMO_COEFF_MAP( IDG, 2, 'AERO', 'ASEACAT', real(ascat_na_fac) ) CALL SET_ELMO_COEFF_MAP( IDG, 3, 'AERO', 'ASOIL', real(asoil_na_fac) ) CALL SET_ELMO_COEFF_MAP( IDG, 4, 'AERO', 'ACORS', real(acors_na_fac) ) ! Map PM1_EC - PM1 Elemental Carbon CASE ( ID_PM1_EC ) N_VARS = 1 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'PM1' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AERO', 'AEC', 1.0 ) ! Map PM1_MG - PM1 Magnesium CASE ( ID_PM1_MG ) N_VARS = 4 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'PM1' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AERO', 'AMG', 1.0 ) CALL SET_ELMO_COEFF_MAP( IDG, 2, 'AERO', 'ASEACAT', real(ascat_mg_fac) ) CALL SET_ELMO_COEFF_MAP( IDG, 3, 'AERO', 'ASOIL', real(asoil_mg_fac) ) CALL SET_ELMO_COEFF_MAP( IDG, 4, 'AERO', 'ACORS', real(acors_mg_fac) ) ! Map PM1_K - PM1 Potassium CASE ( ID_PM1_K ) N_VARS = 4 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'PM1' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AERO', 'AK', 1.0 ) CALL SET_ELMO_COEFF_MAP( IDG, 2, 'AERO', 'ASEACAT', real(ascat_k_fac) ) CALL SET_ELMO_COEFF_MAP( IDG, 3, 'AERO', 'ASOIL', real(asoil_k_fac) ) CALL SET_ELMO_COEFF_MAP( IDG, 4, 'AERO', 'ACORS', real(acors_k_fac) ) ! Map PM1_CA - PM1 Calcium CASE ( ID_PM1_CA ) N_VARS = 4 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'PM1' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AERO', 'ACA', 1.0 ) CALL SET_ELMO_COEFF_MAP( IDG, 2, 'AERO', 'ASEACAT', real(ascat_ca_fac )) CALL SET_ELMO_COEFF_MAP( IDG, 3, 'AERO', 'ASOIL', real(asoil_ca_fac )) CALL SET_ELMO_COEFF_MAP( IDG, 4, 'AERO', 'ACORS', real(acors_ca_fac )) ! Map PM1_Other - PM1 Other CASE ( ID_PM1_OT ) N_VARS = 1 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'PM1' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AERO', 'AOTHR', 1.0 ) ! Map PM1_FE - PM1 Iron CASE ( ID_PM1_FE ) N_VARS = 3 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'PM1' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AERO', 'AFE', 1.0 ) CALL SET_ELMO_COEFF_MAP( IDG, 2, 'AERO', 'ASOIL', real(asoil_fe_fac )) CALL SET_ELMO_COEFF_MAP( IDG, 3, 'AERO', 'ACORS', real(acors_fe_fac )) ! Map PM1_SI - PM1 Silicon CASE ( ID_PM1_SI ) N_VARS = 1 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'PM1' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AERO', 'ASI', 1.0 ) ! Map PM1_TI - PM1 Titanium CASE ( ID_PM1_TI ) N_VARS = 1 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'PM1' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AERO', 'ATI', 1.0 ) ! Map PM1_MN - PM1 Manganese CASE ( ID_PM1_MN ) N_VARS = 3 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'PM1' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AERO', 'AMN', 1.0 ) CALL SET_ELMO_COEFF_MAP( IDG, 2, 'AERO', 'ASOIL', real(asoil_mn_fac )) CALL SET_ELMO_COEFF_MAP( IDG, 3, 'AERO', 'ACORS', real(acors_mn_fac )) ! Map PM1_AL - PM1 Aluminum CASE ( ID_PM1_AL ) N_VARS = 1 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'PM1' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AERO', 'AAL', 1.0 ) ! Map PM1_Soil - PM1.0 Reconstructed Soil for the fine ! mode + explicit soil for the coarse mode CASE ( ID_PM1_SOIL ) N_VARS = 6 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'PM1' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AERO', 'ASOIL', 1.0 ) CALL SET_ELMO_COEFF_MAP( IDG, 2, 'AERO', 'AAL', 2.20 ) CALL SET_ELMO_COEFF_MAP( IDG, 3, 'AERO', 'ASI', 2.49 ) CALL SET_ELMO_COEFF_MAP( IDG, 4, 'AERO', 'ACA', 1.63 ) CALL SET_ELMO_COEFF_MAP( IDG, 5, 'AERO', 'AFE', 2.42 ) CALL SET_ELMO_COEFF_MAP( IDG, 6, 'AERO', 'ATI', 1.94 ) ! Map PM1.0 Unspeciated PM based on reconstructed ! SOIL PM from IMPROVE method and including NCOM in the ! unspeciated portion CASE ( ID_PM1_UNSP1 ) N_VARS = 9 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'PM1' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AGG', 'PM1', 1.0 ) CALL SET_ELMO_COEFF_MAP( IDG, 2, 'AERO', 'ASO4', -1.0 ) CALL SET_ELMO_COEFF_MAP( IDG, 3, 'AERO', 'ANO3', -1.0 ) CALL SET_ELMO_COEFF_MAP( IDG, 4, 'AERO', 'ANH4', -1.0 ) CALL SET_ELMO_COEFF_MAP( IDG, 5, 'AERO', 'ACL', -1.0 ) CALL SET_ELMO_COEFF_MAP( IDG, 6, 'AERO', 'ANA', -1.0 ) CALL SET_ELMO_COEFF_MAP( IDG, 7, 'AERO', 'AEC', -1.0 ) CALL SET_ELMO_COEFF_MAP( IDG, 8, 'AGG', 'PM1_OC', -1.0 ) CALL SET_ELMO_COEFF_MAP( IDG, 9, 'AGG', 'PM1_SOIL', -1.0 ) ! Map PM1_UN - PM1.0 Unspeciated Coarse Mass CASE ( ID_PM1_UN ) N_VARS = 3 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'PM1' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AERO', 'ASEACAT', 1.0 - real( ascat_na_fac + ascat_mg_fac + & ascat_k_fac + ascat_ca_fac )) CALL SET_ELMO_COEFF_MAP( IDG, 2, 'AERO', 'ASOIL', 1.0 - real( asoil_na_fac + asoil_mg_fac + & asoil_k_fac + asoil_ca_fac + & asoil_mn_fac + asoil_fe_fac )) CALL SET_ELMO_COEFF_MAP( IDG, 3, 'AERO', 'ACORS', 1.0 - real( acors_na_fac + acors_mg_fac + & acors_k_fac + acors_ca_fac + & acors_mn_fac + acors_fe_fac )) ! Map PM1_HP - PM1.0 Hydronium Ion CASE ( ID_PM1_HP ) N_VARS = 1 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'PM1' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AERO', 'AH3OP', 1.0/19.0 ) !!!! PM2.5 Parameters !!!! ! Map PM25_SO4 - PM2.5 Sulfate CASE ( ID_PM25_SO4 ) N_VARS = 1 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'PM25' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AERO', 'ASO4', 1.0 ) ! Map PM25_NO3 - PM2.5 Nitrate CASE ( ID_PM25_NO3 ) N_VARS = 1 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'PM25' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AERO', 'ANO3', 1.0 ) ! Map PM25_NH4 - PM2.5 Ammonium CASE ( ID_PM25_NH4 ) N_VARS = 1 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'PM25' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AERO', 'ANH4', 1.0 ) ! Map PM25_CL - PM2.5 Chloride CASE ( ID_PM25_CL ) N_VARS = 1 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'PM25' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AERO', 'ACL', 1.0 ) ! Map PM25_NA - PM2.5 Sodium CASE ( ID_PM25_NA ) N_VARS = 4 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'PM25' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AERO', 'ANA', 1.0 ) CALL SET_ELMO_COEFF_MAP( IDG, 2, 'AERO', 'ASEACAT', real(ascat_na_fac )) CALL SET_ELMO_COEFF_MAP( IDG, 3, 'AERO', 'ASOIL', real(asoil_na_fac )) CALL SET_ELMO_COEFF_MAP( IDG, 4, 'AERO', 'ACORS', real(acors_na_fac )) ! Map PM25_EC - PM2.5 Elemental Carbon CASE ( ID_PM25_EC ) N_VARS = 1 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'PM25' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AERO', 'AEC', 1.0 ) ! Map PM25_MG - PM2.5 Magnesium CASE ( ID_PM25_MG ) N_VARS = 4 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'PM25' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AERO', 'AMG', 1.0 ) CALL SET_ELMO_COEFF_MAP( IDG, 2, 'AERO', 'ASEACAT', real(ascat_mg_fac )) CALL SET_ELMO_COEFF_MAP( IDG, 3, 'AERO', 'ASOIL', real(asoil_mg_fac )) CALL SET_ELMO_COEFF_MAP( IDG, 4, 'AERO', 'ACORS', real(acors_mg_fac )) ! Map PM25_K - PM2.5 Potassium CASE ( ID_PM25_K ) N_VARS = 4 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'PM25' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AERO', 'AK', 1.0 ) CALL SET_ELMO_COEFF_MAP( IDG, 2, 'AERO', 'ASEACAT', real(ascat_k_fac )) CALL SET_ELMO_COEFF_MAP( IDG, 3, 'AERO', 'ASOIL', real(asoil_k_fac )) CALL SET_ELMO_COEFF_MAP( IDG, 4, 'AERO', 'ACORS', real(acors_k_fac )) ! Map PM25_CA - PM2.5 Calcium CASE ( ID_PM25_CA ) N_VARS = 4 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'PM25' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AERO', 'ACA', 1.0 ) CALL SET_ELMO_COEFF_MAP( IDG, 2, 'AERO', 'ASEACAT', real(ascat_ca_fac )) CALL SET_ELMO_COEFF_MAP( IDG, 3, 'AERO', 'ASOIL', real(asoil_ca_fac )) CALL SET_ELMO_COEFF_MAP( IDG, 4, 'AERO', 'ACORS', real(acors_ca_fac )) ! Map PM25_Other - PM25 Other CASE ( ID_PM25_OT ) N_VARS = 1 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'PM25' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AERO', 'AOTHR', 1.0 ) ! Map PM25_FE - PM2.5 Iron CASE ( ID_PM25_FE ) N_VARS = 3 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'PM25' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AERO', 'AFE', 1.0 ) CALL SET_ELMO_COEFF_MAP( IDG, 2, 'AERO', 'ASOIL', real(asoil_fe_fac )) CALL SET_ELMO_COEFF_MAP( IDG, 3, 'AERO', 'ACORS', real(acors_fe_fac )) ! Map PM25_SI - PM2.5 Silicon CASE ( ID_PM25_SI ) N_VARS = 1 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'PM25' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AERO', 'ASI', 1.0 ) ! Map PM25_TI - PM2.5 Titanium CASE ( ID_PM25_TI ) N_VARS = 1 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'PM25' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AERO', 'ATI', 1.0 ) ! Map PM25_MN - PM2.5 Manganese CASE ( ID_PM25_MN ) N_VARS = 3 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'PM25' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AERO', 'AMN', 1.0 ) CALL SET_ELMO_COEFF_MAP( IDG, 2, 'AERO', 'ASOIL', real(asoil_mn_fac )) CALL SET_ELMO_COEFF_MAP( IDG, 3, 'AERO', 'ACORS', real(acors_mn_fac )) ! Map PM25_AL - PM2.5 Aluminum CASE ( ID_PM25_AL ) N_VARS = 1 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'PM25' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AERO', 'AAL', 1.0 ) ! Map PM25_Soil - PM2.5 Reconstructed Soil for the fine ! mode + explicit soil for the coarse mode CASE ( ID_PM25_SOIL ) N_VARS = 6 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'PM25' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AERO', 'ASOIL', 1.0 ) CALL SET_ELMO_COEFF_MAP( IDG, 2, 'AERO', 'AAL', 2.20 ) CALL SET_ELMO_COEFF_MAP( IDG, 3, 'AERO', 'ASI', 2.49 ) CALL SET_ELMO_COEFF_MAP( IDG, 4, 'AERO', 'ACA', 1.63 ) CALL SET_ELMO_COEFF_MAP( IDG, 5, 'AERO', 'AFE', 2.42 ) CALL SET_ELMO_COEFF_MAP( IDG, 6, 'AERO', 'ATI', 1.94 ) ! Map PM2.5 Unspeciated PM based on reconstructed ! SOIL PM from IMPROVE method and including NCOM in the ! unspeciated portion CASE ( ID_PM25_UNSP1 ) N_VARS = 9 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'PM25' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AGG', 'PM25', 1.0 ) CALL SET_ELMO_COEFF_MAP( IDG, 2, 'AERO', 'ASO4', -1.0 ) CALL SET_ELMO_COEFF_MAP( IDG, 3, 'AERO', 'ANO3', -1.0 ) CALL SET_ELMO_COEFF_MAP( IDG, 4, 'AERO', 'ANH4', -1.0 ) CALL SET_ELMO_COEFF_MAP( IDG, 5, 'AERO', 'ACL', -1.0 ) CALL SET_ELMO_COEFF_MAP( IDG, 6, 'AERO', 'ANA', -1.0 ) CALL SET_ELMO_COEFF_MAP( IDG, 7, 'AERO', 'AEC', -1.0 ) CALL SET_ELMO_COEFF_MAP( IDG, 8, 'AGG', 'PM25_OC', -1.0 ) CALL SET_ELMO_COEFF_MAP( IDG, 9, 'AGG', 'PM25_SOIL', -1.0 ) ! Map PM25_UN - PM2.5 Unspeciated Coarse Mass CASE ( ID_PM25_UN ) N_VARS = 3 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'PM25' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AERO', 'ASEACAT', 1.0 - real( ascat_na_fac + ascat_mg_fac + & ascat_k_fac + ascat_ca_fac )) CALL SET_ELMO_COEFF_MAP( IDG, 2, 'AERO', 'ASOIL', 1.0 - real( asoil_na_fac + asoil_mg_fac + & asoil_k_fac + asoil_ca_fac + & asoil_mn_fac + asoil_fe_fac )) CALL SET_ELMO_COEFF_MAP( IDG, 3, 'AERO', 'ACORS', 1.0 - real( acors_na_fac + acors_mg_fac + & acors_k_fac + acors_ca_fac + & acors_mn_fac + acors_fe_fac )) ! Map PM25_HP - PM2.5 Hydronium Ion CASE ( ID_PM25_HP ) N_VARS = 1 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'PM25' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AERO', 'AH3OP', 1.0/19.0 ) !!!! PM2.5 - 10.0 Parameters !!!! ! Map PM25to10_SO4 - PM2.5-10.0 Sulfate CASE ( ID_PM25to10_SO4 ) N_VARS = 1 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'PM25TO10' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AERO', 'ASO4', 1.0 ) ! Map PM25to10_NO3 - PM2.5-10.0 Nitrate CASE ( ID_PM25to10_NO3 ) N_VARS = 1 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'PM25TO10' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AERO', 'ANO3', 1.0 ) ! Map PM25to10_NH4 - PM2.5-10.0 Ammonium CASE ( ID_PM25to10_NH4 ) N_VARS = 1 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'PM25TO10' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AERO', 'ANH4', 1.0 ) ! Map PM25to10_CL - PM2.5-10.0 Chloride CASE ( ID_PM25to10_CL ) N_VARS = 1 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'PM25TO10' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AERO', 'ACL', 1.0 ) ! Map PM25to10_NA - PM2.5-10.0 Sodium CASE ( ID_PM25to10_NA ) N_VARS = 4 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'PM25TO10' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AERO', 'ANA', 1.0 ) CALL SET_ELMO_COEFF_MAP( IDG, 2, 'AERO', 'ASEACAT', real(ascat_na_fac )) CALL SET_ELMO_COEFF_MAP( IDG, 3, 'AERO', 'ASOIL', real(asoil_na_fac )) CALL SET_ELMO_COEFF_MAP( IDG, 4, 'AERO', 'ACORS', real(acors_na_fac )) !!!! Toxics !!!! ! Map PM25_HDSL - HAP inventory PM2.5 diesel mass CASE ( ID_PM25_HDSL ) N_VARS = 6 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'PM25' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AERO', 'ADE_OTHR', 1.0 ) CALL SET_ELMO_COEFF_MAP( IDG, 2, 'AERO', 'ADE_EC', 1.0 ) CALL SET_ELMO_COEFF_MAP( IDG, 3, 'AERO', 'ADE_OC', 1.0 ) CALL SET_ELMO_COEFF_MAP( IDG, 4, 'AERO', 'ADE_SO4', 1.0 ) CALL SET_ELMO_COEFF_MAP( IDG, 5, 'AERO', 'ADE_NO3', 1.0 ) CALL SET_ELMO_COEFF_MAP( IDG, 6, 'AERO', 'ADE_CORS', 1.0 ) ! Map PM25_HBE - HAP inventory Beryllium CASE ( ID_PM25_HBE ) N_VARS = 1 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'PM25' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AERO', 'ABE', 1.0 ) ! Map PM25_HCD - HAP inventory Cadmium CASE ( ID_PM25_HCD ) N_VARS = 1 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'PM25' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AERO', 'ACD', 1.0 ) ! Map PM25_HCR3 - HAP inventory Chromium III CASE ( ID_PM25_HCR3 ) N_VARS = 1 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'PM25' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AERO', 'ACR_III', 1.0 ) ! Map PM25_HCR6 - HAP inventory Chromium VI CASE ( ID_PM25_HCR6 ) N_VARS = 1 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'PM25' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AERO', 'ACR_VI', 1.0 ) ! Map PM25_HCR - HAP inventory Total Chromium CASE ( ID_PM25_HCR ) N_VARS = 2 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'PM25' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AGG', 'PM25_HCR3', 1.0 ) CALL SET_ELMO_COEFF_MAP( IDG, 2, 'AGG', 'PM25_HCR6', 1.0 ) ! Map PM25_HPB - HAP inventory Lead CASE ( ID_PM25_HPB ) N_VARS = 1 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'PM25' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AERO', 'APB', 1.0 ) ! Map PM25_HMN - HAP inventory Manganese CASE ( ID_PM25_HMN ) N_VARS = 1 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'PM25' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AERO', 'AMN_HAPS', 1.0 ) ! Map PM25_HNI - HAP inventory Nickel CASE ( ID_PM25_HNI ) N_VARS = 1 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'PM25' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AERO', 'ANI', 1.0 ) ! Map PM25_HAS - HAP inventory Arsenic CASE ( ID_PM25_HAS ) N_VARS = 1 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'PM25' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AERO', 'AAS', 1.0 ) ! Map PM25_HG - Mercury CASE ( ID_PM25_HG ) N_VARS = 1 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'PM25' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AERO', 'APHG', 1.0 ) ! Map PM25_BENAPY - Benzo-a-Pyrene CASE ( ID_PM25_BENAPY ) N_VARS = 1 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'PM25' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AERO', 'ABENAPY', 1.0 ) ! Map PM10_HDSL - HAP inventory PM2.5 diesel mass CASE ( ID_PM10_HDSL ) N_VARS = 6 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'PM10' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AERO', 'ADE_OTHR', 1.0 ) CALL SET_ELMO_COEFF_MAP( IDG, 2, 'AERO', 'ADE_EC', 1.0 ) CALL SET_ELMO_COEFF_MAP( IDG, 3, 'AERO', 'ADE_OC', 1.0 ) CALL SET_ELMO_COEFF_MAP( IDG, 4, 'AERO', 'ADE_SO4', 1.0 ) CALL SET_ELMO_COEFF_MAP( IDG, 5, 'AERO', 'ADE_NO3', 1.0 ) CALL SET_ELMO_COEFF_MAP( IDG, 6, 'AERO', 'ADE_CORS', 1.0 ) ! Map PM10_HBE - HAP inventory Beryllium CASE ( ID_PM10_HBE ) N_VARS = 1 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'PM10' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AERO', 'ABE', 1.0 ) ! Map PM10_HCD - HAP inventory Cadmium CASE ( ID_PM10_HCD ) N_VARS = 1 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'PM10' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AERO', 'ACD', 1.0 ) ! Map PM10_HCR3 - HAP inventory Chromium III CASE ( ID_PM10_HCR3 ) N_VARS = 1 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'PM10' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AERO', 'ACR_III', 1.0 ) ! Map PM10_HCR6 - HAP inventory Chromium VI CASE ( ID_PM10_HCR6 ) N_VARS = 1 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'PM10' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AERO', 'ACR_VI', 1.0 ) ! Map PM10_HCR - HAP inventory Total Chromium CASE ( ID_PM10_HCR ) N_VARS = 2 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'PM10' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AGG', 'PM10_HCR3', 1.0 ) CALL SET_ELMO_COEFF_MAP( IDG, 2, 'AGG', 'PM10_HCR6', 1.0 ) ! Map PM10_HPB - HAP inventory Lead CASE ( ID_PM10_HPB ) N_VARS = 1 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'PM10' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AERO', 'APB', 1.0 ) ! Map PM10_HMN - HAP inventory Manganese CASE ( ID_PM10_HMN ) N_VARS = 1 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'PM10' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AERO', 'AMN_HAPS', 1.0 ) ! Map PM10_HNI - HAP inventory Nickel CASE ( ID_PM10_HNI ) N_VARS = 1 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'PM10' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AERO', 'ANI', 1.0 ) ! Map PM10_HAS - HAP inventory Arsenic CASE ( ID_PM10_HAS ) N_VARS = 1 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'PM10' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AERO', 'AAS', 1.0 ) ! Map PM10_HG - Mercury CASE ( ID_PM10_HG ) N_VARS = 1 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'PM10' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AERO', 'APHG', 1.0 ) ! Map PM10_BENAPY - Benzo-a-Pyrene CASE ( ID_PM10_BENAPY ) N_VARS = 1 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'PM10' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AERO', 'ABENAPY', 1.0 ) !!!! Other Parameters !!!! ! Map TNO3 - Total Inorganic Nitrate CASE ( ID_TNO3 ) N_VARS = 2 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'ALL' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AERO', 'ANO3', 1.0 ) CALL SET_ELMO_COEFF_MAP( IDG, 2, 'GAS', 'HNO3', 2175.6 ) ! Scale by 1000*MW_HNO3/MW_Air ! Map TNO3TOT - Total Inorganic+Organic Nitrate CASE ( ID_TNO3TOT ) N_VARS = 4 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'ALL' ) CALL SET_ELMO_COEFF_MAP( IDG, 1, 'AERO', 'ANO3', 1.0 ) CALL SET_ELMO_COEFF_MAP( IDG, 2, 'GAS', 'HNO3', 2175.6 ) ! Scale by 1000*MW_HNO3/MW_Air CALL SET_ELMO_COEFF_MAP( IDG, 3, 'AERO', 'AISOPNN', 2.0*62.0/226.0 ) CALL SET_ELMO_COEFF_MAP( IDG, 4, 'AERO', 'AMTNO3', 62.0/231.0 ) ! Otherwise CASE DEFAULT ! If the IDG is less than N_ELMO_LIST, then do nothing ! because it is a parameter that would have been defined ! in one of the previous cases. If IDG is larger than ! N_ELMO_LIST, then look through CMAQ model species and ! Chemical Families to determine how to map it IF ( IDG .GT. N_ELMO_LIST ) THEN S = USED_CGRID_ID( IELMO ) IF ( S .GT. 0 ) THEN ! CMAQ Species N_VARS = 1 CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'ALL' ) CALL SET_ELMO_COEFF_MAP( IDG, 1,'SPC', CGRID_NAME(S), 1.0 ) END IF F = USED_FAM_ID( IELMO) IF ( F .GT. 0 ) THEN ! User-Defined Family N_VARS = CHEMFAMILYNUM( F ) CALL INIT_ELMO_COEFFS( IDG, N_VARS, 'ALL' ) DO IV = 1,N_VARS CALL SET_ELMO_COEFF_MAP( IDG, IV, 'SPC', & CHEMFAMILYMEMBERS(F,IV), 1.0 ) END DO END IF END IF END SELECT END DO END SUBROUTINE MAP_ELMO_COEFFS !------------------------------------------------------------------------- SUBROUTINE INIT_ELMO_COEFFS( IDG, N_VARS, AEROTYPE_TMP ) ! This subroutine allocates and initalizes all of the elements of an ! index IDG within the ELMO_COEFFS structure ! ! IDG - the index of this diagnostic parameter in the space defined ! by the integer index variables like ID_PMF_POC, etc. ! N_VARS - Number of variables used to create this parameter. Does ! not include the number of modes. For example, ASO4I+ASO4J ! counts as 1 variable (ASO4). It will be expanded to modes later. ! AEROTYPE - Aerosol size range or mode to be calculated. This defines ! the modes considered and the inlet type if any. Options ! include: ! ALL, NONE, ULTRAFINE, FINE, COARSE, NUCLEATION, AITKEN, ! ACCUMULATION, PM01, PM1, PM25, PM10, PM25to10 and PMAMS ! !------------------------------------------------------------------------- USE AERO_DATA, ONLY : N_MODE, AEROMODE IMPLICIT NONE INTEGER, INTENT( IN ) :: IDG INTEGER, INTENT( IN ) :: N_VARS CHARACTER( * ), INTENT( IN ) :: AEROTYPE_TMP CHARACTER( 20 ) AEROTYPE CHARACTER( 200 ) XMSG CHARACTER(16), SAVE :: PNAME = 'INIT_ELMO_COEF' INTEGER ALLOCSTAT ! Initialize All Components of ELMO_COEFFS ELMO_COEFFS( IDG )%L_MAPPED = .TRUE. ELMO_COEFFS( IDG )%N_VARS = N_VARS ALLOCATE( ELMO_COEFFS( IDG )%L_MODE( N_MODE ), & ELMO_COEFFS( IDG )%L_GAS ( N_VARS ), & ELMO_COEFFS( IDG )%L_SPC ( N_VARS ), & ELMO_COEFFS( IDG )%L_AGG ( N_VARS ), & ELMO_COEFFS( IDG )%I_SPEC( N_VARS ), & ELMO_COEFFS( IDG )%COEFF ( N_VARS ), & STAT=ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating ELMO_COEFFS' CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT1 ) END IF ELMO_COEFFS( IDG )%L_GAS ( : ) = .FALSE. ELMO_COEFFS( IDG )%L_SPC ( : ) = .FALSE. ELMO_COEFFS( IDG )%L_AGG ( : ) = .FALSE. ELMO_COEFFS( IDG )%I_SPEC ( : ) = 0 ELMO_COEFFS( IDG )%L_MODE ( : ) = .FALSE. ELMO_COEFFS( IDG )%COEFF ( : ) = 0. ELMO_COEFFS( IDG )%INLET = 0 ELMO_COEFFS( IDG )%WETNESS = IWET ! Specify the Aerosol Modes Needed and Inlet Type based on User ! Input through the AEROTYPE variable. AEROTYPE = AEROTYPE_TMP CALL UPCASE( AEROTYPE ) SELECT CASE ( AEROTYPE ) CASE ( 'ALL' ) ELMO_COEFFS( IDG )%L_MODE( : ) = .TRUE. CASE ('NONE' ) ELMO_COEFFS( IDG )%L_MODE( : ) = .FALSE. CASE ('ULTRAFINE' ) ELMO_COEFFS( IDG )%L_MODE( : ) = AEROMODE(:)%ULTRAFINE_MASK CASE ('FINE' ) ELMO_COEFFS( IDG )%L_MODE( : ) = AEROMODE(:)%FINE_MASK CASE ('COARSE' ) ELMO_COEFFS( IDG )%L_MODE( : ) = AEROMODE(:)%COARSE_MASK CASE ('NUCLEATION' ) ELMO_COEFFS( IDG )%L_MODE( : ) = AEROMODE(:)%NUC_MASK CASE ('AITKEN' ) ELMO_COEFFS( IDG )%L_MODE( : ) = AEROMODE(:)%AITKEN_MASK CASE ('ACCUMULATION' ) ELMO_COEFFS( IDG )%L_MODE( : ) = AEROMODE(:)%ACCUM_MASK CASE ('PM01' ) ELMO_COEFFS( IDG )%L_MODE( : ) = .TRUE. ELMO_COEFFS( IDG )%INLET = IPM01 ELMO_COEFFS( IDG )%WETNESS = IWET CASE ('PM1' ) ELMO_COEFFS( IDG )%L_MODE( : ) = .TRUE. ELMO_COEFFS( IDG )%INLET = IPM1 ELMO_COEFFS( IDG )%WETNESS = IWET CASE ('PM25' ) ELMO_COEFFS( IDG )%L_MODE( : ) = .TRUE. ELMO_COEFFS( IDG )%INLET = IPM25 ELMO_COEFFS( IDG )%WETNESS = IWET CASE ('PM10' ) ELMO_COEFFS( IDG )%L_MODE( : ) = .TRUE. ELMO_COEFFS( IDG )%INLET = IPM10 ELMO_COEFFS( IDG )%WETNESS = IWET CASE ('PM25TO10' ) ELMO_COEFFS( IDG )%L_MODE( : ) = .TRUE. ELMO_COEFFS( IDG )%INLET = IPM25to10 ELMO_COEFFS( IDG )%WETNESS = IWET CASE ('PMAMS' ) ELMO_COEFFS( IDG )%L_MODE( : ) = .TRUE. ELMO_COEFFS( IDG )%INLET = IPMAMS ELMO_COEFFS( IDG )%WETNESS = IWET CASE DEFAULT XMSG = 'An aerosol descriptor (' // trim(AEROTYPE) // ') has been given ' // & 'for the mapping of a ELMO parameter. It is not recognized.' CALL M3EXIT( 'INIT_ELMO_COEFFS', 0, 0, XMSG, XSTAT1 ) END SELECT END SUBROUTINE INIT_ELMO_COEFFS !------------------------------------------------------------------------- SUBROUTINE SET_ELMO_COEFF_MAP( IDG, IVAR, TSPEC_TMP, CSPEC, COEFF ) ! This subroutine maps the modes designated by the variable CMODE to ! to the indices available in L_MODE. !------------------------------------------------------------------------- USE PRECURSOR_DATA, ONLY : N_PRECURSOR, PRECURSOR USE CGRID_SPCS, ONLY : N_CGRID_SPC, CGRID_NAME USE AERO_DATA, ONLY : N_AEROSPC, AEROSPC USE RUNTIME_VARS IMPLICIT NONE INTEGER, INTENT( IN ) :: IDG, IVAR CHARACTER( * ), INTENT( IN ) :: CSPEC CHARACTER( * ), INTENT( IN ) :: TSPEC_TMP ! AERO, PREC, GAS, or AGG CHARACTER( 4 ) :: TSPEC ! AERO, PREC, GAS, or AGG REAL, INTENT( IN ) :: COEFF INTEGER ISPEC, IUSED, JSPEC LOGICAL USED CHARACTER( 1000 ) :: XMSG TSPEC = TSPEC_TMP CALL UPCASE( TSPEC ) ! Find Index of CSPEC in Gas Array, Aggregate Array or AEROSPC%BULKNAME IF ( TSPEC .EQ. 'GAS' ) THEN ! Find the location of CSPEC in CGRID ISPEC = INDEX1( CSPEC, N_CGRID_SPC, CGRID_NAME(:) ) IF ( ISPEC .GT. 0 ) THEN ! Found the Index. Save it! ELMO_COEFFS( IDG )%I_SPEC( IVAR ) = ISPEC ELMO_COEFFS( IDG )%L_GAS( IVAR ) = .TRUE. ELSE ! Could not find the species in the CGRID Array. Print an ! Error and Warn XMSG = "A PM Diagnostic variable has been requested that relies " // & "on gas species " // TRIM(CSPEC) // ". This species has not been " // & "incorporated in the GC namelist though. Please check that your "// & "GC_namelist is compatible with the PM diagnostics you have called "// & "for in the Emmissions Control Namelist." !CALL LOG_MESSAGE( LOGDEV, XMSG ) !CALL M3WARN( 'MAP_ELMO_COEFFS', 0, 0, '' ) ELMO_COEFFS( IDG )%L_GAS( IVAR ) = .FALSE. END IF ELSE IF ( TSPEC .EQ. 'AGG' ) THEN ! Map to Index on ELMO_LIST, not the ID column ELMO_COEFFS( IDG )%L_AGG( IVAR ) = .TRUE. ISPEC = INDEX1( CSPEC, N_ELMO_LIST, ELMO_LIST%NAME ) IF ( ISPEC .GT. 0 ) THEN ! Found the Index. Save the ID for this entry on the ELMO_LIST ELMO_COEFFS( IDG )%I_SPEC( IVAR ) = ELMO_LIST( ISPEC )%ID ! Check if it is used and add it to the USED_ELMO_ID ! vector if not USED = .FALSE. DO JSPEC = 1,N_ELMO IF ( ELMO_LIST( ISPEC )%ID .EQ. USED_ELMO_ID( JSPEC ) ) USED = .TRUE. END DO IF ( .NOT. USED ) THEN N_ELMO = N_ELMO + 1 USED_ELMO_ID( N_ELMO ) = ELMO_LIST( ISPEC )%ID END IF ELSE ! Could not find the species in the ELMO List. Print an ! Error and Crash XMSG = "ERROR: A PM Diagnostic variable has been requested that relies " // & "on the diagnostic aggregate variable " // TRIM(CSPEC) // ". This variable "// & "has not been incorporated in the ELMO List though. Please check that the "// & "table in ELMO_DATA is compatible with the PM diagnostics you have defined "// & "in ELMO_PROC." CALL LOG_MESSAGE( LOGDEV, XMSG ) CALL M3EXIT( 'MAP_ELMO_COEFFS', 0, 0, '', XSTAT1 ) END IF ELSE IF ( TSPEC .EQ. 'SPC' ) THEN ! Map to a CGRID Species. No Special Instructions ELMO_COEFFS( IDG )%L_SPC( IVAR ) = .TRUE. ISPEC = INDEX1( CSPEC, N_CGRID_SPC, CGRID_NAME ) ELMO_COEFFS( IDG )%I_SPEC( IVAR ) = ISPEC ELSE ! Aerosol ISPEC = INDEX1( CSPEC, N_AEROSPC, AEROSPC(:)%BULKNAME ) IF ( ISPEC .GT. 0 ) THEN ! Found the Index. Save it! ELMO_COEFFS( IDG )%I_SPEC( IVAR ) = ISPEC ELSE ! Could not find the species in the Aerosol Array. Print an ! Error and Warn XMSG = "A PM Diagnostic variable has been requested that relies " // & "on the aerosol species "//TRIM(CSPEC)//". This species has not been " // & "incorporated in the AE namelist though. Please check that your "// & "AE_namelist is compatible with the PM diagnostics you have called "// & "for in the Emmissions Control Namelist." !CALL LOG_MESSAGE( LOGDEV, XMSG ) !CALL M3WARN( 'MAP_ELMO_COEFFS', 0, 0, '' ) END IF END IF ELMO_COEFFS( IDG )%COEFF( IVAR ) = COEFF END SUBROUTINE SET_ELMO_COEFF_MAP !------------------------------------------------------------------------- SUBROUTINE CALC_CONCOUT_AGG( IDG, VAL ) ! This subroutine sums aggregate PM diagnostic parameters using the ! ELMO_COEFFS structure as a guide for summing aerosol ! components. !------------------------------------------------------------------------- USE AERO_DATA, ONLY : WET_AERO_M3, WET_AERO_M2, MOMENT0_CONC, & AH2O_IDX, AEROSPC, AEROSPC_CONC, & WET_AERO_DENS, N_MODE, AERO_MISSING, & AEROMODE USE PRECURSOR_DATA, ONLY : PRECURSOR_CONC USE AEROMET_DATA, ONLY : AIRDENS USE RUNTIME_VARS IMPLICIT NONE INTEGER, INTENT( IN ) :: IDG REAL, INTENT( INOUT ) :: VAL REAL VAL2 INTEGER IVAR, ILIST LOGICAL L_CALC( N_ELMO ) REAl COEFF INTEGER IM, WETNESS, ISPEC, INLET LOGICAL LMODE REAL FRAC( N_MODE ) CHARACTER( 500 ) :: XMSG ! If this Aggregate has not been mapped already, then return an ! error and crash the model IF ( .NOT. ELMO_COEFFS( IDG )%L_MAPPED ) THEN ILIST = MAP_ID2LIST( IDG ) XMSG = 'ELMO Parameter ' // TRIM( ELMO_LIST( ILIST )%NAME ) // & ' has not been mapped to a procedure within ELMO_PROC even ' // & 'though it does appear to be an acceptable parameter on the ' // & 'ELMO_LIST. If you have added this parameter yourself, make ' // & 'sure it is being mapped to an actual calculation in CALC_ELMO ' // & 'or MAP_ELMO_COEFFS. If this parameter is needed for a different ' // & 'aggregate parameter you requested, please add this parameter ' // & 'explicitly as an ELMO requested output.' CALL LOG_MESSAGE( LOGDEV, XMSG ) CALL M3EXIT( 'CALC_CONCOUT_AGG', 0, 0, '', XSTAT1 ) END IF ! Initialize value of aggregate parameter VAL = 0.0 ! Retrieve size cutoff if necessary IF ( ELMO_COEFFS( IDG )%INLET .EQ. IPMAMS ) THEN ! Inlet is for AMS Colection DO IM = 1,N_MODE IF ( INLET_FRAC( IPMAMS,IM,IWET ) .LT. 0. ) & CALL AERO_AMS( WET_AERO_M3( IM ), WET_AERO_M2( IM ), & MOMENT0_CONC( IM ), AEROSPC_CONC( AH2O_IDX,IM ), & WET_AERO_DENS( IM ),AEROSPC( AH2O_IDX )%DENSITY, & INLET_FRAC( IPMAMS,IM,IWET ) ) FRAC( IM ) = INLET_FRAC( IPMAMS,IM,IWET ) END DO ELSE IF ( ELMO_COEFFS(IDG)%INLET .GT. 0 .AND. & ELMO_COEFFS(IDG)%INLET .LE. N_INLET ) THEN ! Inlet is for a filter with a specific size-range. Call the ! AERO_INLET wrapper, GET_AERO_INLET. INLET = ELMO_COEFFS( IDG )%INLET WETNESS = ELMO_COEFFS( IDG )%WETNESS DO IM = 1,N_MODE IF ( INLET_FRAC( INLET,IM,WETNESS ) .LT. 0. ) & CALL GET_AERO_INLET( INLET, IM, WETNESS, & INLET_FRAC( INLET,IM,WETNESS ) ) FRAC( IM ) = INLET_FRAC( INLET,IM,WETNESS ) END DO ELSE ! No inlet was indicated or the number was outside defined ! bounds FRAC( : ) = 1.0 END IF ! Loop through N_VARS and add species together DO IVAR = 1,ELMO_COEFFS( IDG )%N_VARS ISPEC = ELMO_COEFFS( IDG )%I_SPEC( IVAR ) COEFF = ELMO_COEFFS( IDG )%COEFF( IVAR ) IF ( ISPEC .GT. 0 ) THEN ! First check if this is a Gas from CGRID. All species ! labeled as Gas are assumed to be converted to mass units ! using the air density AIRDENS and MW conversions lumped ! into COEFF. IF ( ELMO_COEFFS( IDG )%L_GAS( IVAR ) ) THEN VAL = VAL + CONC_VEC( ISPEC ) * COEFF * AIRDENS ! Next check for aggregate variable ELSE IF ( ELMO_COEFFS( IDG )%L_AGG( IVAR ) ) THEN CALL CALC_ELMO( ISPEC, 1, VAL2 ) VAL = VAL + VAL2 * COEFF ! Next check if this is a Species from CGRID that should be ! added as-is ELSE IF ( ELMO_COEFFS( IDG )%L_SPC( IVAR ) ) THEN VAL = VAL + CONC_VEC( ISPEC ) * COEFF ! Add Aerosol Components ELSE DO IM = 1,N_MODE ! If this mode is supposed to be added (LMODE) and the ! species is not missing, then add it up LMODE = ELMO_COEFFS( IDG )%L_MODE( IM ) IF ( LMODE .AND. ( .NOT. AERO_MISSING( ISPEC,IM ) ) ) & VAL = VAL + AEROSPC_CONC( ISPEC, IM ) * COEFF * FRAC( IM ) END DO END IF END IF END DO END SUBROUTINE CALC_CONCOUT_AGG !------------------------------------------------------------------------- RECURSIVE SUBROUTINE CALC_ELMO( IDG, IM, OUTVAL ) ! This subroutine maps the PM diagnostic variables that the user has ! requested to the entries in the ELMO_DATA table. !------------------------------------------------------------------------- USE AERO_DATA, ONLY: AEROMODE_LNSG, DRY_AERO_DIAM, WET_AERO_DIAM, & DRY_AERO_M2, WET_AERO_M2, DRY_AERO_M3, & WET_AERO_M3, N_MODE, MOMENT0_CONC, MOMENT2_CONC, & MOMENT3_CONC, WET_AERO_DENS, AEROSPC_CONC, & AH2O_IDX, AORGH2O_IDX, AEROSPC, CALC_AERODIST_PARAMS, & AEROMODE, DRY_AERO_DENS, APOC_IDX, APNCOM_IDX USE AEROMET_DATA, ONLY: AIRRH, PI, AIRTEMP, SRFTEMP, AIRPRES, DZ, CFRAC, PV, ZH USE CGRID_SPCS, ONLY : RHOJ_LOC USE SOA_DEFN, ONLY : N_OA, N_OA_NotTracers, OASPC, MAP_OAtoAERO USE RUNTIME_VARS, ONLY : PHOTDIAG USE ASX_DATA_MOD, ONLY : MET_DATA IMPLICIT NONE INTEGER, INTENT( IN ) :: IDG, IM REAL, INTENT( INOUT ) :: OUTVAL INTEGER IUSED, IMODE, IVAR, IOA REAL VAL4, VAL3, VAL2, VAL, FRAC( N_MODE ) REAL PM01, PM1, PM25, PM10, PMAMS, PM25to10, POM, POC, OtoC REAL K, P1, P2, P3, a, K2, PMF_NO3, PMF_NO3_LOSS, & PMF_NH4_LOSS, PMF_NH4, PMF_SO4, PMF_MASS, & PM25_NH4, PM25_NO3, PM25_SO4, PM25_NO3_LOSS, & PM25_NH4_LOSS ! Map this combination of ID number and mode to the USED ! Parameters list, which is how ELMO_LOCAL is defined. IUSED = MAP_ID2USED( IDG, IM ) ! First determine if this parameter has been mapped already. If it ! has, send it back IF ( L_CALC( IUSED ) ) THEN OUTVAL = ELMO_LOCAL( IUSED ) RETURN END IF OUTVAL = 0.0 ! Determine which parameter to calculate SELECT CASE( IDG ) ! Retrieve Standard Deviation of Each Mode CASE ( ID_STDEV ) OUTVAL = EXP( AEROMODE_LNSG( IM ) ) ! Retrieve Mode Dry Diameter CASE ( ID_DRY_DG ) OUTVAL = DRY_AERO_DIAM( IM ) ! dry diam. ! Retrieve Mode Wet Diameter CASE ( ID_WET_DG ) OUTVAL = WET_AERO_DIAM( IM ) ! wet diam. ! Retrieve Mode Wet Second Moment CASE ( ID_WET_M2 ) OUTVAL = WET_AERO_M2( IM ) ! dry M2 ! Retrieve Dry Third Moment CASE ( ID_DRY_M3 ) OUTVAL = DRY_AERO_M3( IM ) ! dry M3 ! Retrieve Wet Third Moment CASE ( ID_WET_M3 ) OUTVAL = WET_AERO_M3( IM ) ! wet M3 ! Retrieve Total Particle Number CASE ( ID_PM_NUM ) OUTVAL = SUM( MOMENT0_CONC( : ) ) ! N m-3 ! Retrieve Ultrafine-Particle Particle Number CASE ( ID_PMU_NUM ) OUTVAL = SUM( MOMENT0_CONC( : ), & MASK=AEROMODE(:)%ULTRAFINE_MASK ) ! N m-3 ! Retrieve Fine-Particle Particle Number CASE ( ID_PMF_NUM ) OUTVAL = SUM( MOMENT0_CONC( : ), & MASK=AEROMODE(:)%FINE_MASK ) ! N m-3 ! Retrieve Coarse-Particle Particle Number CASE ( ID_PMC_NUM ) OUTVAL = SUM( MOMENT0_CONC( : ), & MASK=AEROMODE(:)%COARSE_MASK ) ! N m-3 ! Retrieve N10 - Number of Particles Greater than 10 nm CASE ( ID_N10 ) CALL SUM_INLET_NUM( INUM10, IWET, OUTVAL ) ! Retrieve N20 - Number of Particles Greater than 20 nm CASE ( ID_N20 ) CALL SUM_INLET_NUM( INUM20, IWET, OUTVAL ) ! Retrieve N40 - Number of Particles Greater than 40 nm CASE ( ID_N40 ) CALL SUM_INLET_NUM( INUM40, IWET, OUTVAL ) ! Retrieve N100 - Number of Particles Greater than 100 nm CASE ( ID_N100 ) CALL SUM_INLET_NUM( INUM100, IWET, OUTVAL ) ! Retrieve Total Particle Surface Area CASE ( ID_PM_SRF ) OUTVAL = PI * SUM( MOMENT2_CONC( : ) ) ! N m-3 ! Retrieve Ultrafine Particle Surface Area CASE (ID_PMU_SRF ) OUTVAL = PI * SUM( MOMENT2_CONC( : ), & MASK=AEROMODE(:)%ULTRAFINE_MASK ) ! N m-3 ! Retrieve Fine Particle Surface Area CASE ( ID_PMF_SRF ) OUTVAL = PI * SUM( MOMENT2_CONC( : ), & MASK=AEROMODE(:)%FINE_MASK ) ! N m-3 ! Retrieve Coarse Particle Surface Area CASE ( ID_PMC_SRF ) OUTVAL = PI * SUM( MOMENT2_CONC( : ), & MASK=AEROMODE(:)%COARSE_MASK ) ! N m-3 ! Retrieve Total Particle Mass CASE ( ID_PM_MASS ) DO IMODE = 1,N_MODE OUTVAL = OUTVAL + & SUM( AEROSPC_CONC( :,IMODE ), & MASK=.NOT.AEROSPC(:)%TRACER ) ! ug m-3 & - AEROSPC_CONC( AH2O_IDX,IMODE ) IF ( AORGH2O_IDX .GT. 0 ) OUTVAL = OUTVAL & - AEROSPC_CONC( AORGH2O_IDX,IMODE ) ! ug m-3 END DO ! Retrieve Ultrafine Particle Mass CASE ( ID_PMU_MASS ) DO IMODE = 1,N_MODE IF ( AEROMODE( IMODE )%ULTRAFINE_MASK ) THEN OUTVAL = OUTVAL + & SUM( AEROSPC_CONC( :,IMODE ), & MASK=.NOT.AEROSPC(:)%TRACER ) ! ug m-3 & - AEROSPC_CONC( AH2O_IDX,IMODE ) IF ( AORGH2O_IDX .GT. 0 ) OUTVAL = OUTVAL & - AEROSPC_CONC( AORGH2O_IDX,IMODE ) ! ug m-3 END IF END DO ! Retrieve Fine Particle Mass CASE ( ID_PMF_MASS ) DO IMODE = 1,N_MODE IF ( AEROMODE( IMODE )%FINE_MASK ) THEN OUTVAL = OUTVAL + & SUM( AEROSPC_CONC( :,IMODE ), & MASK=.NOT.AEROSPC(:)%TRACER ) & - AEROSPC_CONC( AH2O_IDX,IMODE ) IF ( AORGH2O_IDX .GT. 0 ) OUTVAL = OUTVAL & - AEROSPC_CONC( AORGH2O_IDX,IMODE ) ! ug m-3 END IF END DO ! Retrieve Coarse Particle Mass CASE ( ID_PMC_MASS ) DO IMODE = 1,N_MODE IF ( AEROMODE( IMODE )%COARSE_MASK ) THEN OUTVAL = OUTVAL + & SUM( AEROSPC_CONC( :,IMODE ), & MASK=.NOT.AEROSPC(:)%TRACER ) ! ug m-3 & - AEROSPC_CONC( AH2O_IDX,IMODE ) IF ( AORGH2O_IDX .GT. 0 ) OUTVAL = OUTVAL & - AEROSPC_CONC( AORGH2O_IDX,IMODE ) ! ug m-3 END IF END DO ! Retrieve Nucleation-Mode Particle Mass CASE ( ID_PMNUC_MASS ) DO IMODE = 1,N_MODE IF ( AEROMODE( IMODE )%NUC_MASK ) THEN OUTVAL = OUTVAL + & SUM( AEROSPC_CONC( :,IMODE ), & MASK=.NOT.AEROSPC(:)%TRACER ) ! ug m-3 & - AEROSPC_CONC( AH2O_IDX,IMODE ) IF ( AORGH2O_IDX .GT. 0 ) OUTVAL = OUTVAL & - AEROSPC_CONC( AORGH2O_IDX,IMODE ) ! ug m-3 END IF END DO ! Retrieve Aitken-Mode Particle Mass CASE ( ID_PMAIT_MASS ) DO IMODE = 1,N_MODE IF ( AEROMODE( IMODE )%AITKEN_MASK ) THEN OUTVAL = OUTVAL + & SUM( AEROSPC_CONC( :,IMODE ), & MASK=.NOT.AEROSPC(:)%TRACER ) ! ug m-3 & - AEROSPC_CONC( AH2O_IDX,IMODE ) IF ( AORGH2O_IDX .GT. 0 ) OUTVAL = OUTVAL & - AEROSPC_CONC( AORGH2O_IDX,IMODE ) ! ug m-3 END IF END DO ! Retrieve Accumution-Mode Particle Mass CASE ( ID_PMACC_MASS ) DO IMODE = 1,N_MODE IF ( AEROMODE( IMODE )%ACCUM_MASK ) THEN OUTVAL = OUTVAL + & SUM( AEROSPC_CONC( :,IMODE ), & MASK=.NOT.AEROSPC(:)%TRACER ) ! ug m-3 & - AEROSPC_CONC( AH2O_IDX,IMODE ) IF ( AORGH2O_IDX .GT. 0 ) OUTVAL = OUTVAL & - AEROSPC_CONC( AORGH2O_IDX,IMODE ) ! ug m-3 END IF END DO ! Retrieve Dry Mode Density [kg m-3] CASE ( ID_DRY_DENS ) OUTVAL = DRY_AERO_DENS( IM ) ! dry i-mode Density ! Retrieve Wet Mode Density [kg m-3] CASE ( ID_WET_DENS ) OUTVAL = WET_AERO_DENS( IM ) ! wet i-mode Density ! Retrieve PM01 Fraction in Each Mode CASE ( ID_FPM01 ) CALL GET_AERO_INLET( IPM01, IM, IWET, VAL ) OUTVAL = VAL ! Retrieve PM1 Fraction in Each Mode CASE ( ID_FPM1 ) CALL GET_AERO_INLET( IPM1, IM, IWET, VAL ) OUTVAL = VAL ! Retrieve PM25 Fraction in Each Mode CASE ( ID_FPM25 ) CALL GET_AERO_INLET( IPM25, IM, IWET, VAL ) OUTVAL = VAL ! Retrieve PM10 Fraction in Each Mode CASE ( ID_FPM10 ) CALL GET_AERO_INLET( IPM10, IM, IWET, VAL ) OUTVAL = VAL ! Retrieve PM2.5-10 Fraction in Each Mode CASE ( ID_FPM25to10 ) CALL GET_AERO_INLET( IPM25to10, IM, IWET, VAL ) OUTVAL = VAL ! Retrieve AMS Fraction in Each Mode CASE ( ID_FAMS ) IF ( INLET_FRAC( IPMAMS,IM,IWET ) .LT. 0. ) THEN CALL AERO_AMS( WET_AERO_M3( IM ), WET_AERO_M2( IM ), & MOMENT0_CONC( IM ), AEROSPC_CONC( AH2O_IDX,IM ), & WET_AERO_DENS( IM ),AEROSPC( AH2O_IDX )%DENSITY, & VAL ) INLET_FRAC( IPMAMS,IM,IWET ) = VAL END IF OUTVAL = INLET_FRAC( IPMAMS,IM,IWET ) ! Retrieve Bulk PM0.1 Concentration CASE ( ID_PM01 ) CALL SUM_INLET_PM( IPM01, IWET, PM01 ) OUTVAL = PM01 ! Retrieve Bulk PM1.0 Concentration CASE ( ID_PM1 ) CALL SUM_INLET_PM( IPM1, IWET, PM1 ) OUTVAL = PM1 ! Retrieve Bulk PM2.5 Concentration CASE ( ID_PM25 ) CALL SUM_INLET_PM( IPM25, IWET, PM25 ) OUTVAL = PM25 ! Retrieve Bulk PM10.0 Concentration CASE ( ID_PM10 ) CALL SUM_INLET_PM( IPM10, IWET, PM10 ) OUTVAL = PM10 ! Retrieve Bulk PM2.5-10.0 Concentration CASE ( ID_PM25to10 ) CALL SUM_INLET_PM( IPM25to10, IWET, PM25to10 ) OUTVAL = PM25to10 ! Retrieve Bulk PM Concentration Relevant for the AMS CASE ( ID_PMAMS ) PMAMS = 0.0 DO IMODE = 1,N_MODE IF ( INLET_FRAC( IPMAMS,IMODE,IWET ) .LT. 0. ) THEN CALL AERO_AMS( WET_AERO_M3( IMODE ), WET_AERO_M2( IMODE ), & MOMENT0_CONC( IMODE ), AEROSPC_CONC( AH2O_IDX,IMODE ), & WET_AERO_DENS( IMODE ),AEROSPC( AH2O_IDX )%DENSITY, & VAL ) INLET_FRAC( IPMAMS,IMODE,IWET ) = VAL END IF PMAMS = PMAMS + ( SUM( AEROSPC_CONC( :,IMODE ), & MASK = .NOT.AEROSPC(:)%TRACER ) & - AEROSPC_CONC( AH2O_IDX,IMODE ) ) & * INLET_FRAC( IPMAMS,IMODE,IWET ) IF ( AORGH2O_IDX .GT. 0 ) PMAMS = PMAMS & - AEROSPC_CONC( AORGH2O_IDX,IMODE ) ! ug m-3 & * INLET_FRAC( IPMAMS,IMODE,IWET ) END DO OUTVAL = PMAMS ! Calculate AHPMOLAL - Fine Mode Concentration of H+ in ! Particle Water CASE ( ID_PMF_HPM ) ! Retrieve AHPLUSIJ CALL CALC_ELMO( ID_PMF_HP, 1, VAL ) ! Retrieve AH2OIJ CALL CALC_ELMO( ID_PMF_H2O, 1, VAL2 ) ! HPMOLAL = AHPLUSIJ / AH2OIJ * 1000.0 [mol L-1] OUTVAL = VAL / VAL2 * 1000.0 ! Calculate PMF_PH - Fine-Mode pH CASE ( ID_PMF_PH ) ! Retrieve HPMOLAL CALL CALC_ELMO( ID_PMF_HPM, 1, VAL ) ! Retrieve AH2OIJ CALL CALC_ELMO( ID_PMF_H2O, 1, VAL2 ) !PMF_PH = -1*LOG10(HPMOLAL) #ifdef mpas OUTVAL = -9.999E36 #else OUTVAL = BADVAL3 #endif IF ( VAL2 .GT. 0.01 ) & OUTVAL = -1.0 * LOG10( VAL ) ! Calculate POCIJ - Fine-Mode Primary Organic Carbon Mass CASE ( ID_PMF_POC ) ! Sum up primary organic aerosol species normalized to ! just carbon mass VAL = 0.0 DO IOA = 1,N_OA_NotTracers ! Just Select Primary Species IF ( OASPC( IOA )%PRIMARY ) THEN IF ( OASPC( IOA )%OMtoOC .gt. 0.0 ) & VAL = VAL + SUM( AEROSPC_CONC( MAP_OAtoAERO(IOA),: ), & MASK = AEROMODE(:)%FINE_MASK ) & / OASPC( IOA )%OMtoOC END IF END DO OUTVAL = VAL ! Calculate SOCIJ - Fine-Mode Secondary Organic Carbon Mass CASE ( ID_PMF_SOC ) ! Sum up primary organic aerosol species normalized to ! just carbon mass VAL = 0.0 DO IOA = 1,N_OA_NotTracers ! Skip primary species and those with negative OM:OC IF ( OASPC( IOA )%OMtoOC .GT. 0.0 .AND. .NOT. OASPC( IOA )%PRIMARY ) THEN VAL = VAL + SUM( AEROSPC_CONC( MAP_OAtoAERO(IOA),: ), & MASK = AEROMODE(:)%FINE_MASK ) & / OASPC( IOA )%OMtoOC END IF END DO OUTVAL = VAL ! Calculate OCIJ - Fine-Mode Organic Carbon Mass CASE ( ID_PMF_OC ) ! Sum up primary organic aerosol species normalized to ! just carbon mass VAL = 0.0 DO IOA = 1,N_OA_NotTracers ! Skip species with negative OM:OC IF ( OASPC( IOA )%OMtoOC .GT. 0.0 ) THEN VAL = VAL + SUM( AEROSPC_CONC( MAP_OAtoAERO(IOA),: ), & MASK = AEROMODE(:)%FINE_MASK ) & / OASPC( IOA )%OMtoOC END IF END DO OUTVAL = VAL ! Calculate PMF_POA - Fine-Mode Primary Organic Aerosol Mass CASE ( ID_PMF_POA ) ! Sum up primary organic aerosol species VAL = 0.0 DO IOA = 1,N_OA_NotTracers ! Just Select Primary Species IF ( OASPC( IOA )%PRIMARY ) & VAL = VAL + SUM( AEROSPC_CONC( MAP_OAtoAERO(IOA),: ), & MASK = AEROMODE(:)%FINE_MASK ) END DO OUTVAL = VAL ! Calculate PMF_SOA - Fine-Mode Secondary Organic Aerosol Mass CASE ( ID_PMF_SOA ) ! Sum up primary organic aerosol species VAL = 0.0 DO IOA = 1,N_OA_NotTracers ! Just Select Secondary Species IF ( .NOT.OASPC( IOA )%PRIMARY ) & VAL = VAL + SUM( AEROSPC_CONC( MAP_OAtoAERO(IOA),: ), & MASK = AEROMODE(:)%FINE_MASK ) END DO OUTVAL = VAL ! Calculate PMF_OA - Fine-Mode Organic Aerosol Mass CASE ( ID_PMF_OA ) ! Sum up primary organic aerosol species VAL = 0.0 DO IOA = 1,N_OA_NotTracers VAL = VAL + SUM( AEROSPC_CONC( MAP_OAtoAERO(IOA),: ), & MASK = AEROMODE(:)%FINE_MASK ) END DO OUTVAL = VAL ! Calculate PMF_ASOA - Fine-Mode Anthropogenic OA Mass CASE ( ID_PMF_ASOA ) ! Sum up anthropogenic oa species VAL = 0.0 DO IOA = 1,N_OA_NotTracers ! Just Select Anthropogenic Species IF ( .NOT.OASPC( IOA )%PRIMARY .AND. OASPC( IOA )%ANTHRO ) & VAL = VAL + SUM( AEROSPC_CONC( MAP_OAtoAERO(IOA),: ), & MASK = AEROMODE(:)%FINE_MASK ) END DO OUTVAL = VAL ! Calculate PMF_BSOA - Fine-Mode Biogenic SOA Mass CASE ( ID_PMF_BSOA ) ! Sum up biogenic soa species VAL = 0.0 DO IOA = 1,N_OA_NotTracers ! Just Select Biogenic Secondary Species IF ( .NOT.OASPC( IOA )%PRIMARY .AND. OASPC( IOA )%BIOG ) & VAL = VAL + SUM( AEROSPC_CONC( MAP_OAtoAERO(IOA),: ), & MASK = AEROMODE(:)%FINE_MASK ) END DO OUTVAL = VAL ! Calculate PMF_OMOC - Fine-Mode OM:OC CASE ( ID_PMF_OMOC ) VAL = 0.0 VAL2 = 0.0 CALL CALC_ELMO( ID_PMF_OA, 1, VAL ) CALL CALC_ELMO( ID_PMF_OC, 1, VAL2 ) OUTVAL = VAL / ( VAL2 + TINY( 0.0 ) ) ! Calculate PMF_OtoC - Fine-Mode O:C CASE ( ID_PMF_OtoC ) CALL CALC_ELMO( ID_PMF_OA, 1, VAL ) VAL2 = 0.0 DO IOA = 1,N_OA_NotTracers IF ( MAP_OAtoAERO(IOA) .NE. APOC_IDX .AND. & MAP_OAtoAERO(IOA) .NE. APNCOM_IDX ) THEN ! Weight OA Sum by O:C VAL2 = VAL2 + SUM( AEROSPC_CONC( MAP_OAtoAERO(IOA),: ), & MASK = AEROMODE(:)%FINE_MASK ) & * OASPC(IOA)%OtoC END IF END DO ! Add POC/PNCOM Contribution to Weighted O:C POC = SUM( AEROSPC_CONC(APOC_IDX,:),MASK = AEROMODE(:)%FINE_MASK ) POM = POC + SUM( AEROSPC_CONC(APNCOM_IDX,:), MASK = AEROMODE(:)%FINE_MASK ) OtoC = 12./15. * ( POM / ( POC + TINY(0.0) ) )- 14./15. OUTVAL = ( VAL2 + OtoC*POM ) / ( VAL + TINY(0.0)) ! Calculate PM1_OC - PM1.0 Organic Carbon Mass CASE ( ID_PM1_OC ) ! Save PM1 Fraction for each mode DO IMODE = 1,N_MODE CALL GET_AERO_INLET( IPM1, IMODE, IWET, FRAC( IMODE ) ) END DO ! Sum up primary organic aerosol species normalized to ! just carbon mass VAL = 0.0 DO IOA = 1,N_OA_NotTracers IF ( OASPC( IOA )%OMtoOC .GE. 0.0 ) & VAL = VAL + SUM( AEROSPC_CONC( MAP_OAtoAERO(IOA),: ) * FRAC(:)) & / OASPC( IOA )%OMtoOC END DO OUTVAL = VAL ! Calculate PM1_OM - PM1.0 Organic Aerosol Mass CASE ( ID_PM1_OA ) ! Save PM1 Fraction for each mode DO IMODE = 1,N_MODE CALL GET_AERO_INLET( IPM1, IMODE, IWET, FRAC( IMODE ) ) END DO ! Sum up primary organic aerosol species VAL = 0.0 DO IOA = 1,N_OA_NotTracers VAL = VAL + SUM( AEROSPC_CONC( MAP_OAtoAERO(IOA),: ) * FRAC(:)) END DO OUTVAL = VAL ! Calculate PM25_OC - PM2.5 Organic Carbon Mass CASE ( ID_PM25_OC ) ! Save PM2.5 Fraction for each mode DO IMODE = 1,N_MODE CALL GET_AERO_INLET( IPM25, IMODE, IWET, FRAC( IMODE ) ) END DO ! Sum up primary organic aerosol species normalized to ! just carbon mass VAL = 0.0 DO IOA = 1,N_OA_NotTracers IF ( OASPC( IOA )%OMtoOC .GE. 0.0 ) & VAL = VAL + SUM( AEROSPC_CONC( MAP_OAtoAERO(IOA),: ) * FRAC(:) ) & / OASPC( IOA )%OMtoOC END DO OUTVAL = VAL ! Calculate PM25_OM - PM2.5 Organic Aerosol Mass CASE ( ID_PM25_OA ) ! Save PM2.5 Fraction for each mode DO IMODE = 1,N_MODE CALL GET_AERO_INLET( IPM25, IMODE, IWET, FRAC( IMODE ) ) END DO ! Sum up primary organic aerosol species VAL = 0.0 DO IOA = 1,N_OA_NotTracers VAL = VAL + SUM( AEROSPC_CONC( MAP_OAtoAERO(IOA),: ) * FRAC(:) ) END DO OUTVAL = VAL ! Retrieve OA Concentration Relevant for the AMS CASE ( ID_AMS_OA ) VAL2 = 0.0 DO IMODE = 1,N_MODE IF ( INLET_FRAC( IPMAMS,IMODE,IWET ) .LT. 0. ) THEN CALL AERO_AMS( WET_AERO_M3( IMODE ), WET_AERO_M2( IMODE ), & MOMENT0_CONC( IMODE ), AEROSPC_CONC( AH2O_IDX,IMODE ), & WET_AERO_DENS( IMODE ),AEROSPC( AH2O_IDX )%DENSITY, & VAL ) INLET_FRAC( IPMAMS,IMODE,IWET ) = VAL END IF VAL2 = VAL2 + SUM( AEROSPC_CONC( :,IMODE ), & MASK = (.NOT.AEROSPC(:)%TRACER .AND. AEROSPC(:)%OM) ) & * INLET_FRAC( IPMAMS,IMODE,IWET ) END DO OUTVAL = VAL2 ! Calculate O:C relevant for AMS observations CASE ( ID_AMS_OtoC ) CALL CALC_ELMO( ID_AMS_OA, 1, VAL ) VAL2 = 0.0 VAL4 = 0.0 DO IMODE = 1,N_MODE IF ( INLET_FRAC( IPMAMS,IMODE,IWET ) .LT. 0. ) THEN CALL AERO_AMS( WET_AERO_M3( IMODE ), WET_AERO_M2( IMODE ), & MOMENT0_CONC( IMODE ), AEROSPC_CONC( AH2O_IDX,IMODE ), & WET_AERO_DENS( IMODE ),AEROSPC( AH2O_IDX )%DENSITY, & FRAC(IMODE) ) INLET_FRAC( IPMAMS,IMODE,IWET ) = FRAC(IMODE) END IF DO IOA = 1,N_OA_NotTracers IF ( MAP_OAtoAERO(IOA) .NE. APOC_IDX .AND. & MAP_OAtoAERO(IOA) .NE. APNCOM_IDX ) THEN ! Weight OA Sum by O:C VAL2 = VAL2 + AEROSPC_CONC( MAP_OAtoAERO(IOA),IMODE ) & * OASPC(IOA)%OtoC * INLET_FRAC( IPMAMS,IMODE,IWET ) END IF END DO ! Add POC/PNCOM Contribution to Weighted O:C VAL3 = ( AEROSPC_CONC(APOC_IDX,IMODE) & + AEROSPC_CONC(APNCOM_IDX,IMODE) ) & * INLET_FRAC( IPMAMS,IMODE,IWET ) VAL3 = ( 12./15. * ( VAL3 / ( AEROSPC_CONC(APOC_IDX,IMODE) & *INLET_FRAC(IPMAMS,IMODE,IWET) & + TINY(0.0) ) ) - 14./15. ) * VAL3 VAL4 = VAL4 + VAL3 END DO OUTVAL = ( VAL2 + VAL4 ) / ( VAL + TINY(0.0)) ! Calculate Aerosol Fraction of Benzo-a-Pyrene CASE ( ID_BENAPY_FAERO ) CALL CALC_ELMO( ID_PMF_BENAPY, 1, VAL ) CALL CALC_ELMO( ID_GAS_BENAPY, 1, VAL2 ) OUTVAL = VAL / ( VAL + VAL2 + TINY( 0.0 ) ) ! Retrieve Fine-Mode Particle Mass Collected by the Federal ! Reference Method compliant sampler CASE ( ID_PMF_FRM ) K = EXP( 118.87 - 24084/SRFTEMP - 6.025*LOG( SRFTEMP ) ) P1 = EXP( 8763/SRFTEMP + 19.12*LOG( SRFTEMP ) - 135.94 ) P2 = EXP( 9969/SRFTEMP + 16.22*LOG( SRFTEMP ) - 122.65 ) P3 = EXP( 13875/SRFTEMP + 24.46*LOG( SRFTEMP ) - 182.61 ) a = 1 - AIRRH IF ( AIRRH .LE. 0.61 ) THEN K2 = K ** 0.5 ELSE K2 = ( K * ( P1 - P2*a + P3*a*a ) * ( a**1.75 ) ) ** 0.5 END IF CALL CALC_ELMO( ID_PMF_NO3, 1, PMF_NO3 ) PMF_NO3_LOSS = MIN( 745.7/SRFTEMP * K2, PMF_NO3 ) PMF_NH4_LOSS = PMF_NO3_LOSS * 18.0 / 62.0 CALL CALC_ELMO( ID_PMF_NH4, 1, PMF_NH4 ) CALL CALC_ELMO( ID_PMF_SO4, 1, PMF_SO4 ) CALL CALC_ELMO( ID_PMF_MASS,1, PMF_MASS) OUTVAL = PMF_MASS - PMF_NO3_LOSS - PMF_NH4_LOSS & +0.24 * ( PMF_SO4 + PMF_NH4 - PMF_NH4_LOSS ) + 0.5 ! Retrieve PM2.5 Particle Mass Collected by the Federal ! Reference Method compliant sampler CASE ( ID_PM25_FRM ) K = EXP( 118.87 - 24084/SRFTEMP - 6.025*LOG( SRFTEMP ) ) P1 = EXP( 8763/SRFTEMP + 19.12*LOG( SRFTEMP ) - 135.94 ) P2 = EXP( 9969/SRFTEMP + 16.22*LOG( SRFTEMP ) - 122.65 ) P3 = EXP( 13875/SRFTEMP + 24.46*LOG( SRFTEMP ) - 182.61 ) a = 1 - AIRRH IF ( AIRRH .LE. 0.61 ) THEN K2 = K ** 0.5 ELSE K2 = ( K * ( P1 - P2*a + P3*a*a ) * ( a**1.75 ) ) ** 0.5 END IF CALL CALC_ELMO( ID_PM25_NO3, 1, PM25_NO3 ) PM25_NO3_LOSS = MIN( 745.7/SRFTEMP * K2, PM25_NO3 ) PM25_NH4_LOSS = PM25_NO3_LOSS * 18.0 / 62.0 CALL CALC_ELMO( ID_PM25_NH4, 1, PM25_NH4 ) CALL CALC_ELMO( ID_PM25_SO4, 1, PM25_SO4 ) CALL SUM_INLET_PM( IPM25, IWET, PM25 ) OUTVAL = PM25 - PM25_NO3_LOSS - PM25_NH4_LOSS & +0.24 * ( PM25_SO4 + PM25_NH4 - PM25_NH4_LOSS ) + 0.5 ! Retrieve GAMMA_N2O5IJ - fine N2O5 heterogeneous rxn probability CASE ( ID_GN2O5F ) IF ( AERO_CHEM_SET ) OUTVAL = GAMMA_N2O5IJ( C1,R1,L1 ) ! Retrieve GAMMA_N2O5K - coarse N2O5 heterogeneous rxn probability CASE ( ID_GN2O5C ) IF ( AERO_CHEM_SET ) OUTVAL = GAMMA_N2O5K( C1,R1,L1 ) ! Retrieve YCLNO2IJ - fine CLNO2 heterogeneous rxn probability CASE ( ID_YCLNO2F ) IF ( AERO_CHEM_SET ) OUTVAL = YCLNO2IJ( C1,R1,L1 ) ! Retrieve YCLNO2K - coarse CLNO2 heterogeneous rxn probability CASE ( ID_YCLNO2C ) IF ( AERO_CHEM_SET ) OUTVAL = YCLNO2K( C1,R1,L1 ) ! Retrieve GAMMA_IEPOX - heterogeneous uptake coefficient CASE ( ID_GIEPOX ) IF ( AERO_CHEM_SET ) OUTVAL = GAMMA_IEPOX( C1,R1,L1 ) ! Retrieve Particle-Phase Reaction Rate Constant for IEPOX CASE ( ID_KIEPOX ) IF ( AERO_CHEM_SET ) OUTVAL = KPARTIEPOX( C1,R1,L1 ) ! Retrieve IMAE Heterogeneous Uptake Coefficient CASE ( ID_GIMAE ) IF ( AERO_CHEM_SET ) OUTVAL = GAMMA_IMAE( C1,R1,L1 ) ! Retrieve AOD at 550 nm CASE ( ID_AOD550 ) IF ( L1 .EQ. 1 ) THEN OUTVAL = ELMO_AOD_550( C1,R1 ) ELSE #ifdef mpas OUTVAL = -9.000E36 #else OUTVAL = AMISS3 #endif END IF ! Retrieve Aerosol Extinction at 550 nm CASE ( ID_PMEXT550 ) OUTVAL = ELMO_EXT_550( C1,R1,L1 ) ! Retrieve Relative Humidity CASE ( ID_RH ) OUTVAL = AIRRH ! Retrieve Air Temperature CASE ( ID_TEMP ) OUTVAL = AIRTEMP ! Retrieve 2-meter Temperature CASE ( ID_SRFTEMP ) OUTVAL = SRFTEMP ! Retrieve Air Pressure CASE ( ID_PRES ) OUTVAL = AIRPRES ! Retrieve DZ CASE ( ID_DZ ) OUTVAL = DZ ! Retrieve ZH CASE ( ID_ZH ) OUTVAL = ZH ! Retrieve Cloud Fraction CASE ( ID_CFRAC ) OUTVAL = CFRAC ! Retrieve Potential Vorticity CASE ( ID_PV ) OUTVAL = PV ! Retrieve Air Density x Jacobian/MSFX2 CASE ( ID_RHOJ ) OUTVAL = CONC_VEC( RHOJ_LOC ) ! kg m-3 ! Retrieve Air Density CASE ( ID_DENS ) OUTVAL = MET_DATA%DENS( C1,R1,L1 ) ! kg m-3 CASE DEFAULT ! For most parameters the ELMO_COEFF structure will ! define all of the mappings and coefficients needed for ! a particular summation. This can therefore be used in ! most cases. Parameters in this category are linear ! combinations of CMAQ species. For example, PMF_SO4 = ! ASO4I + ASO4J. CALL CALC_CONCOUT_AGG( IDG, OUTVAL ) END SELECT ! Save the fact that this parameter has been calculated L_CALC( IUSED ) = .TRUE. ELMO_LOCAL( IUSED ) = OUTVAL END SUBROUTINE CALC_ELMO !------------------------------------------------------------------------- SUBROUTINE LOAD_ELMO( C,R,L,CONC,WRITE_STEP, INIT_STEP, INIT_TIME ) ! This subroutine maps the PM diagnostic variables that the user has ! requested to the entries in the ELMO_DATA table. !------------------------------------------------------------------------- USE AERO_DATA, ONLY: AEROMODE_LNSG, DRY_AERO_DIAM, WET_AERO_DIAM, & DRY_AERO_M2, WET_AERO_M2, DRY_AERO_M3, & WET_AERO_M3, N_MODE, MOMENT0_CONC, MOMENT2_CONC, & MOMENT3_CONC, WET_AERO_DENS, AEROSPC_CONC, DRY_AERO_DENS, & AH2O_IDX, AEROSPC, CALC_AERODIST_PARAMS USE AEROMET_DATA, ONLY: AIRRH IMPLICIT NONE INTEGER, INTENT( IN ) :: C, R, L INTEGER IDG, IM, AL, IL, IUSED, IAVRG, IINST REAL, INTENT( IN ) :: CONC( : ) LOGICAL, INTENT( IN ) :: WRITE_STEP LOGICAL, INTENT( IN ) :: INIT_STEP LOGICAL, INTENT( IN ) :: INIT_TIME ! Initalize Local Parameters C1 = C R1 = R L1 = L ELMO_LOCAL( : ) = 0.0 INLET_FRAC(:,:,:) = -1. L_CALC = .FALSE. CONC_VEC( : ) = CONC( : ) ! Check to make sure the current layer is requested for diagnostic ! output. IF ( ( L.GE.INST_LAYER_BOT .OR. L.GE.AVRG_LAYER_BOT ) .AND. & ( L.LE.INST_LAYER_TOP .OR. L.LE.AVRG_LAYER_TOP ) ) THEN ! Calculate All Aerosol Size Distribution Parameters CALL CALC_AERODIST_PARAMS( INIT_TIME ) ! Loop Through Used Parameters List and Call ELMO Functions ! to fill in Local Array. ELMO_LOCAL is the same length as the ! ELMO_LIST and is ordered by the ELMO ID numbers so that it ! can be used seamlessly with the CALC_ELMO internal order. DO IUSED = 1,N_ELMO_OUT IM = USED_ELMO_MODE( IUSED ) ! Map to IDG = USED_ELMO_ID( IUSED ) ! Map to Parameter ID numbers CALL CALC_ELMO( IDG, IM, ELMO_LOCAL( IUSED ) ) END DO ! *** Aggregate Diagnostic Parameters in Average Array ! using trapezoidal rule IF ( AVRG_ACTIVE .AND. & L.GE.AVRG_LAYER_BOT .AND. L.LE.AVRG_LAYER_TOP ) THEN AL = L - AVRG_LAYER_BOT + 1 DO IAVRG = 1,N_ELMO_AVRG_OUT IF ( USED_ELMO_ID( MAP_AVRG2USED( IAVRG )) .EQ. ID_PMF_PH & .AND. ELMO_LOCAL( MAP_AVRG2USED( IAVRG ) ) .LT. -100. ) THEN ! Special Averageing for Particle pH ! Add whatever the current average is right now. ! Certainly this is problematic, particularly ! at the beginning of an hour where ELMO_AVRG = ! 0. It's best to either use the instantaneous ! value or recalculate the average fine particle acidity ! offline. IF ( INIT_STEP ) THEN ELMO_AVRG( C,R,AL,IAVRG ) = 3.5 ! Assume relatively acidic particles ELSE IF ( WRITE_STEP ) THEN ELMO_AVRG( C,R,AL,IAVRG ) = ELMO_AVRG( C,R,AL,IAVRG ) ELSE ELMO_AVRG( C,R,AL,IAVRG ) = ELMO_AVRG( C,R,AL,IAVRG ) & + 2.0 * ELMO_AVRG( C,R,AL,IAVRG ) END IF ELSE ! For all other variables, apply trapezoidal rule for ! averaging. IF ( INIT_STEP ) THEN ELMO_AVRG( C,R,AL,IAVRG ) = ELMO_LOCAL( MAP_AVRG2USED( IAVRG ) ) ELSE IF ( WRITE_STEP ) THEN ELMO_AVRG( C,R,AL,IAVRG ) = ELMO_AVRG( C,R,AL,IAVRG ) & + ELMO_LOCAL( MAP_AVRG2USED( IAVRG ) ) ELSE ELMO_AVRG( C,R,AL,IAVRG ) = ELMO_AVRG( C,R,AL,IAVRG ) & + 2.0 * ELMO_LOCAL( MAP_AVRG2USED( IAVRG ) ) END IF END IF END DO END IF ! *** Populate Diagnostic Parameters to Instantaneous Array if this is a write step IF ( INST_ACTIVE .AND. ( INIT_TIME .OR. WRITE_STEP ) .AND. & L.GE.INST_LAYER_BOT .AND. L.LE.INST_LAYER_TOP ) THEN IL = L - INST_LAYER_BOT + 1 DO IINST = 1,N_ELMO_INST_OUT ELMO_INST( C,R,IL,IINST ) = ELMO_LOCAL( MAP_INST2USED( IINST ) ) END DO END IF END IF END SUBROUTINE LOAD_ELMO !------------------------------------------------------------------------- SUBROUTINE ELMO_DRIVER( CGRID, JDATE, JTIME, TSTEP, INIT_TIME ) ! This subroutine maps the PM diagnostic variables that the user has ! requested to the entries in the ELMO_DATA table. !------------------------------------------------------------------------- USE AERO_DATA, ONLY: AEROMODE_LNSG, DRY_AERO_DIAM, WET_AERO_DIAM, & DRY_AERO_M2, WET_AERO_M2, DRY_AERO_M3, & WET_AERO_M3, N_MODE, MOMENT0_CONC, MOMENT2_CONC, & MOMENT3_CONC, WET_AERO_DENS, AEROSPC_CONC, & AH2O_IDX, AEROSPC, CALC_AERODIST_PARAMS, & Extract_Aero USE SOA_DEFN, ONLY : Extract_Soa USE AEROSOL_CHEMISTRY, ONLY: HETCHEM_RATES USE AEROMET_DATA, ONLY: AIRRH, AIRTEMP, AIRQV, AIRDENS, AIRPRES, & SRFTEMP, H2OVP, H2OSATVP, MWWAT, MWAIR, & CFRAC, DZ, PV, ZH use centralized_io_module, only : interpolate_var, pv_avail use RUNTIME_VARS Use phot_mod, Only: init_phot_shared #ifdef sens USE DDM3D_DEFN, ONLY : SENGRID #endif IMPLICIT NONE REAL, POINTER :: CGRID( :,:,:,: ) ! Master concentration grid INTEGER, INTENT( IN ) :: JDATE, JTIME ! Date and time inputs to ! determine whether to write ! concentrations INTEGER, INTENT( IN ) :: TSTEP(3) LOGICAL, INTENT( IN ) :: INIT_TIME ! Is this the first time step ! of the simulation LOGICAL :: INIT_STEP ! Is the time step beginning ! Variable to set time step for writing visibility file INTEGER, SAVE :: WSTEP = 0 ! local write counter LOGICAL, SAVE :: WRITE_STEP =.FALSE. ! local write flag LOGICAL, SAVE :: FIRSTIME = .TRUE. ! Statement Function ************** REAL, PARAMETER :: EPSWATER = MWWAT / MWAIR REAL ESATL ! arithmetic statement function for vapor pressure [Pa] REAL TT ! Coefficients for the equation, ESATL defining saturation vapor pressure REAL, PARAMETER :: AL = 610.94 REAL, PARAMETER :: BL = 17.625 REAL, PARAMETER :: CL = 243.04 INTEGER C, R, L REAL, ALLOCATABLE, SAVE :: PRES(:,:,:), TA(:,:,:), TEMP2(:,:), & QV(:,:,:), DENS(:,:,:), CFRACS(:,:), & ZF(:,:,:), PVS(:,:,:), ZHS(:,:,:) ! values of AL, BL, and CL are from: ! Alduchov and Eskridge, "Improved Magnus Form Approximations of ! Saturation Vapor Pressure," ! Jour. of Applied Meteorology, vol. 35, ! pp 601-609, April, 1996. ESATL( TT ) = AL * EXP( BL * ( TT - 273.15 ) / ( TT - 273.15 + CL ) ) IF ( FIRSTIME ) THEN FIRSTIME = .FALSE. ! Initialize Number of Steps Used for Calculating Average ELMO_NSTEP = 0. ALLOCATE( PRES( NCOLS, NROWS, NLAYS), & TA( NCOLS, NROWS, NLAYS ), & QV( NCOLS, NROWS, NLAYS ), & DENS( NCOLS, NROWS, NLAYS ), & CFRACS( NCOLS, NROWS ), & ZF( NCOLS, NROWS, NLAYS ), & ZHS( NCOLS, NROWS, NLAYS ), & PVS( NCOLS, NROWS, NLAYS ), & TEMP2( NCOLS, NROWS ) ) END IF ! Determine if this is a write step WRITE_STEP = .FALSE. INIT_STEP = .FALSE. IF ( ELMO_NSTEP .LT. 1.0 ) THEN WSTEP = 0 INIT_STEP = .TRUE. ELSE WSTEP = WSTEP + TIME2SEC( TSTEP( 2 ) ) IF ( WSTEP .GE. TIME2SEC( TSTEP( 1 ) ) ) & WRITE_STEP = .TRUE. END IF ELMO_NSTEP = ELMO_NSTEP + 1.0 ! Get Meteorological Variables ! pressure [Pa] call interpolate_var ('PRES', jdate, jtime, PRES) ! temperature [K] call interpolate_var ('TA', jdate, jtime, TA) ! Grid Cell Temp call interpolate_var ('TEMP2',jdate, jtime, TEMP2 ) ! 2-m Temp ! specific humidity [g H2O/g air] call interpolate_var ('QV', jdate, jtime, QV) ! air density [kg/m3] call interpolate_var ('DENS', jdate, jtime, DENS) ! get cloud fraction if photolysis hasn not been called yet call interpolate_var ('CFRAC', jdate, jtime, CFRACS) ! retrieve all layer heights. This is the height of the top of the ! layers call interpolate_var ('ZF', jdate, jtime, ZF) ! retrieve potential vorticity if ( pv_avail ) then call interpolate_var ('PV', jdate, jtime, PVS) else #ifdef mpas PVS = -9.000E36 #else PVS = AMISS3 #endif end if ! retrieve layer midpoint heights. This is a mass weighted ! coordinate so is not necessarily consistent with the distance ! between the heights of the layer bottom and top. call interpolate_var ('ZH', jdate, jtime, ZHS) ! Calculate Heterogeneous Chemistry Rates CALL INIT_PHOT_SHARED() CALL HETCHEM_RATES( TA, PRES, QV, CGRID, DENS ) ! Process PM Diagnostics for Base Model DO C = 1,NCOLS DO R = 1,NROWS DO L = 1,NLAYS ! Grid cell meteorological data. AIRTEMP = TA ( C,R,L ) SRFTEMP = TEMP2( C,R ) ! 2-meter temperature (K) AIRPRES = PRES ( C,R,L ) ! Note pascals AIRQV = QV ( C,R,L ) AIRDENS = DENS ( C,R,L ) H2OSATVP = ESATL( AIRTEMP ) H2OVP = AIRPRES * AIRQV / ( EPSWATER + AIRQV ) AIRRH = MAX( 0.005, MIN( 0.99, H2OVP / H2OSATVP ) ) ! 0-1 IF ( L .EQ. 1 ) THEN DZ = ZF( C,R,L ) CFRAC= CFRACS( C,R ) ELSE DZ = ZF( C,R,L ) - ZF( C,R,L-1 ) #ifdef mpas CFRAC = -9.000E36 #else CFRAC = AMISS3 #endif END IF ZH = ZHS( C,R,L ) PV = PVS( C,R,L ) ! Extract Aerosols #ifdef sens CALL EXTRACT_AERO( CGRID( C,R,L,: ), .TRUE., SENGRID( C,R,L,:,: ), .TRUE. ) CALL EXTRACT_SOA( CGRID( C,R,L,: ), SENGRID( C,R,L,:,: ), .TRUE. ) #else CALL EXTRACT_AERO( CGRID( C,R,L,: ), .TRUE. ) CALL EXTRACT_SOA( CGRID( C,R,L,: ) ) #endif ! Populate Diagnostic Arrays CALL LOAD_ELMO( C,R,L, CGRID(C,R,L,:), WRITE_STEP, INIT_STEP, INIT_TIME ) END DO END DO END DO END SUBROUTINE ELMO_DRIVER !------------------------------------------------------------------------- SUBROUTINE OPEN_ELMO ( JDATE, JTIME, TSTEP ) ! Revision history ! ??? Frank Binkowski ! 8 Sep 01 J.Young: dyn alloc - Use HGRD_DEFN ! 03 Sep 01 David Wong: for new pario ! 13 May 04 P.Bhave: added RH to species list; removed M0 and dry M2 ! conc's from species list ! 31 Jan 05 J.Young: dyn alloc - establish both horizontal & vertical ! domain specifications in one module ! 18 Jul 05 P.Bhave: Added mass fractions of each mode < 2.5um to output list ! 06 Apr 06 P.Bhave: Added GAMMA_N2O5 to output list ! 25 May 06 P.Bhave: Changed units of all DG variables from m to um, as ! suggested by Dr. Bill Hutzell ! 11 Apr 08 J.Kelly: Added STDEVCOR and variables to account for dry & wet ! DGCOR, M2COR_WET, and M3COR_DRY ! 16 Feb 11 S.Roselle: replaced I/O API include files with UTILIO_DEFN ! 26 Sep 14 H. Pye: Added GAMMA_IEPOX and replaced blank units with na ! 11 May 16 D. Wong: - Modified the code to retreive ELMO information from ! construct ELMO_SPC_RECORD stored in module cgrid_spcs ! to provide flexibility to handle AE6 and AE61 ! - renamed the procedure name from OPDIAM to OPELMO !------------------------------------------------------------------------- USE GRID_CONF ! horizontal & vertical domain specifications IMPLICIT NONE INCLUDE SUBST_FILES_ID ! file name parameters !...Arguments: INTEGER, INTENT( IN ) :: JDATE ! current model date, coded YYYYDDD INTEGER, INTENT( IN ) :: JTIME ! current model time, coded HHMMSS INTEGER, INTENT( IN ) :: TSTEP ! output time step !...Local variables: CHARACTER( 16 ), SAVE :: PNAME = 'OPEN_ELMO' CHARACTER( 96 ) :: XMSG = ' ' INTEGER :: L ! loop induction variables INTEGER :: MDATE, MTIME #ifndef mpas ! Define General Output File Parameters FTYPE3D = GRDDED3 GDNAM3D = GRID_NAME ! from HGRD_DEFN TSTEP3D = TSTEP NCOLS3D = GL_NCOLS NROWS3D = GL_NROWS GDTYP3D = GDTYP_GD P_ALP3D = P_ALP_GD P_BET3D = P_BET_GD P_GAM3D = P_GAM_GD XORIG3D = XORIG_GD YORIG3D = YORIG_GD XCENT3D = XCENT_GD YCENT3D = YCENT_GD XCELL3D = XCELL_GD YCELL3D = YCELL_GD VGTYP3D = VGTYP_GD VGTOP3D = VGTOP_GD NTHIK3D = 1 #endif ! Open Instantaneous PM Diagnostic File IF ( INST_ACTIVE ) THEN #ifndef mpas ! Try to open existing file for update IF ( .NOT. OPEN3( CTM_ELMO_1, FSRDWR3, PNAME ) ) THEN ! Set output file characteristics based on COORD.EXT and open the aerosol ! diagnostic file SDATE3D = JDATE STIME3D = JTIME !CALL NEXTIME ( SDATE3D, STIME3D, TSTEP3D ) ! start the next hour NLAYS3D = INST_LAYER_TOP - INST_LAYER_BOT + 1 DO L = INST_LAYER_BOT, INST_LAYER_TOP + 1 VGLVS3D( L ) = VGLVS_GD( L ) END DO NVARS3D = N_ELMO_INST_OUT VTYPE3D(1:NVARS3D) = INST_TYPE_OUT( 1:NVARS3D ) VNAME3D(1:NVARS3D) = INST_PARS_OUT( 1:NVARS3D ) UNITS3D(1:NVARS3D) = INST_UNIT_OUT( 1:NVARS3D ) VDESC3D(1:NVARS3D) = INST_DESC_OUT( 1:NVARS3D ) FDESC3D( 1 ) = 'Parameters Relevant for PM Formation and Distribution' DO L = 2, MXDESC3 FDESC3D( L ) = ' ' END DO ! Open the Instantaneous aerosol diagnostic file IF ( .NOT. OPEN3( CTM_ELMO_1, FSNEW3, PNAME ) ) THEN XMSG = 'Could not create '// CTM_ELMO_1 // ' file' CALL M3EXIT ( PNAME, SDATE3D, STIME3D, XMSG, XSTAT1 ) END IF END IF #endif END IF ! Open Average Output PM Diagnostic File IF ( AVRG_ACTIVE ) THEN #ifndef mpas ! Try to open existing file for update IF ( .NOT. OPEN3( CTM_AELMO_1, FSRDWR3, PNAME ) ) THEN ! Get end time information from environment variable AVG_FILE_ENDTIME MDATE = JDATE; MTIME = JTIME IF ( END_TIME ) CALL NEXTIME ( MDATE, MTIME, TSTEP ) ! Set output file characteristics based on COORD.EXT and open the aerosol ! diagnostic file SDATE3D = MDATE STIME3D = MTIME NLAYS3D = AVRG_LAYER_TOP - AVRG_LAYER_BOT + 1 DO L = AVRG_LAYER_BOT, AVRG_LAYER_TOP + 1 VGLVS3D( L ) = VGLVS_GD( L ) END DO NVARS3D = N_ELMO_AVRG_OUT VTYPE3D(1:NVARS3D) = AVRG_TYPE_OUT( 1:NVARS3D ) VNAME3D(1:NVARS3D) = AVRG_PARS_OUT( 1:NVARS3D ) UNITS3D(1:NVARS3D) = AVRG_UNIT_OUT( 1:NVARS3D ) VDESC3D(1:NVARS3D) = AVRG_DESC_OUT( 1:NVARS3D ) FDESC3D( 1 ) = 'Parameters Relevant for PM Formation and Distribution' DO L = 2, MXDESC3 FDESC3D( L ) = ' ' END DO ! Open the Instantaneous aerosol diagnostic file IF ( .NOT. OPEN3( CTM_AELMO_1, FSNEW3, PNAME ) ) THEN XMSG = 'Could not create '// CTM_AELMO_1 // ' file' CALL M3EXIT ( PNAME, SDATE3D, STIME3D, XMSG, XSTAT1 ) END IF END IF #endif END IF END SUBROUTINE OPEN_ELMO !------------------------------------------------------------------------- SUBROUTINE WRITE_ELMO ( JDATE, JTIME, TSTEP, INIT_TIME ) ! Revision history ! 20 Feb - B. Murphy: Created !------------------------------------------------------------------------- USE RUNTIME_VARS IMPLICIT NONE INCLUDE SUBST_FILES_ID INTEGER, INTENT( IN ) :: JDATE, JTIME, TSTEP(3) LOGICAL, INTENT( IN ) :: INIT_TIME INTEGER MDATE, MTIME CHARACTER( 300 ) XMSG CHARACTER( 16 ), SAVE :: PNAME = 'WRITE_ELMO' C *** If IO Proceesor, then Write Data MDATE = JDATE MTIME = JTIME C *** Write data to the scalar output file. IF ( INST_ACTIVE ) THEN #ifndef mpas IF ( .NOT. WRITE3( CTM_ELMO_1, & ALLVAR3, MDATE, MTIME, & ELMO_INST(:,:,:,:) ) ) THEN XMSG = 'Could not write ' // CTM_ELMO_1 // ' file' CALL M3EXIT ( PNAME, MDATE, MTIME, XMSG, XSTAT1 ) END IF WRITE( LOGDEV, '( /5X, 3( A, :, 1X ), I8, ":", I6.6 )' ) & 'Timestep written to', CTM_ELMO_1, & 'for date and time', MDATE, MTIME #endif END IF C *** Write data to the average aerosol diagnostic file. IF ( .NOT.INIT_TIME ) THEN #ifndef mpas IF ( AVRG_ACTIVE ) THEN IF ( .NOT. END_TIME ) THEN ! ending time timestamp CALL NEXTIME ( MDATE, MTIME, -TSTEP(1) ) END IF IF ( .NOT. WRITE3( CTM_AELMO_1, & ALLVAR3, MDATE, MTIME, & ELMO_AVRG(:,:,:,:) / 2.0 / & (ELMO_NSTEP-1.0) ) ) THEN XMSG = 'Could not write ' // CTM_AELMO_1 // ' file' CALL M3EXIT ( PNAME, MDATE, MTIME, XMSG, XSTAT1 ) END IF WRITE( LOGDEV, '( /5X, 3( A, :, 1X ), I8, ":", I6.6 )' ) & 'Timestep written to', CTM_AELMO_1, & 'for date and time', MDATE, MTIME END IF #endif ELMO_NSTEP = 0. END IF RETURN END SUBROUTINE WRITE_ELMO END MODULE ELMO_PROC ================================================ FILE: CCTM/src/driver/STD_CONC.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: MODULE STD_CONC IMPLICIT NONE C Function: species, layer pointers and definitions for standard CONC C calculations C Revision: J.Young 13Sep2011: Increase size of CONC_FILE_SPCS dimension - C previous revision used dynamic allocation, but GET_ENV_LIST C was called with the CONC_FILE_SPCS argument before it was allocated C D.Wong 11 May 2016: Modified code to provide flexibility to handle C environment variable CONC_FILE_SPCS is set to 'ALL' or not set. C F.Sidi 09 Sep 2019: Replaced L_CONC_WVEL & L_ACONC_WVEL (depreciated) with W_VEL & C added W_VEL to species conc_species list depending on C if the user requests the vertical velocity to be output C C C C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: INTEGER, SAVE :: N_CSPCS = 0 ! Number of chemical species saved to conc file INTEGER, SAVE :: C_NLAYS = 1 ! Number of layers saved to conc file INTEGER, SAVE, ALLOCATABLE :: CONC_MAP( : ) ! pointer into CGRID CHARACTER( 16 ), SAVE, ALLOCATABLE :: C_GC_SPC( : ) ! pointer into GC_SPC CHARACTER( 16 ), SAVE, ALLOCATABLE :: C_AE_SPC( : ) ! pointer into AE_SPC CHARACTER( 16 ), SAVE, ALLOCATABLE :: C_NR_SPC( : ) ! pointer into NR_SPC CHARACTER( 16 ), SAVE, ALLOCATABLE :: C_TR_SPC( : ) ! pointer into TR_SPC REAL, SAVE, ALLOCATABLE :: SGRID( :,:,:,: ) ! conc subset C species classes configuration for CONC INTEGER, SAVE :: C_GC_STRT INTEGER, SAVE :: N_C_GC_SPC INTEGER, SAVE :: C_AE_STRT INTEGER, SAVE :: N_C_AE_SPC INTEGER, SAVE :: C_NR_STRT INTEGER, SAVE :: N_C_NR_SPC INTEGER, SAVE :: C_TR_STRT INTEGER, SAVE :: N_C_TR_SPC INTEGER, SAVE :: N_C_AE_SPCD C Logical to test whether met variables are included LOGICAL, SAVE :: L_CONC_RH = .FALSE. LOGICAL, SAVE :: L_CONC_TA = .FALSE. LOGICAL, SAVE :: L_CONC_PRES = .FALSE. CONTAINS SUBROUTINE CONC_DEFN () USE RUNTIME_VARS USE HGRD_DEFN ! horizontal domain specifications USE VGRD_DEFN ! vertical layer specifications USE CGRID_SPCS ! CGRID mechanism species USE UTILIO_DEFN CHARACTER( 16 ) :: PNAME = 'CONC_DEFN' CHARACTER( 96 ) :: XMSG = ' ' INTEGER OFF, VAR, V, NV, LVL INTEGER ALLOCSTAT, STATUS INTEGER :: JDATE = 0 INTEGER :: JTIME = 0 INTEGER, ALLOCATABLE :: GC_MAP( : ) INTEGER, ALLOCATABLE :: AE_MAP( : ) INTEGER, ALLOCATABLE :: NR_MAP( : ) INTEGER, ALLOCATABLE :: TR_MAP( : ) C----------------------------------------------------------------------- C Retrieve the species saved to the concentration file IF ( N_CONC_VARS .EQ. 0 .OR. CONC_FILE_SPCS( 1 ) .EQ. 'ALL' ) THEN V = 0 DO VAR = 1, N_GC_CONC V = V + 1 CONC_FILE_SPCS( V ) = GC_CONC( VAR ) END DO DO VAR = 1, N_AE_CONC V = V + 1 CONC_FILE_SPCS( V ) = AE_CONC( VAR ) END DO DO VAR = 1, N_NR_CONC V = V + 1 CONC_FILE_SPCS( V ) = NR_CONC( VAR ) END DO DO VAR = 1, N_TR_SPC V = V + 1 CONC_FILE_SPCS( V ) = TR_SPC( VAR ) END DO CONC_FILE_SPCS( V + 1 ) = 'RH' CONC_FILE_SPCS( V + 2 ) = 'TA' CONC_FILE_SPCS( V + 3 ) = 'PRES' N_CONC_VARS = V + 3 END IF C Retrieve CTM_WVEL environmental variable to see if user wants diagnosed vertical velocity IF ( W_VEL ) THEN CONC_FILE_SPCS( N_CONC_VARS + 1 ) = 'WVEL' N_CONC_VARS = N_CONC_VARS + 1 END IF C Retrieve the layer range used in the concentration file IF ( CONC_ELEV .EQ. -1 ) CONC_ELEV = NLAYS IF ( CONC_BLEV .LE. 0 .OR. CONC_ELEV .GT. NLAYS ) THEN WRITE( XMSG,'( "Layer range", 2I4, " invalid for this model" )' ) & CONC_BLEV, CONC_ELEV CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT3 ) END IF IF ( CONC_BLEV .NE. 1 ) THEN WRITE( XMSG,'( "Layer", I3, " Not 1st layer in CGRID" )' ) & CONC_BLEV CALL M3WARN( PNAME, JDATE, JTIME, XMSG ) END IF C_NLAYS = CONC_ELEV - CONC_BLEV + 1 C Create conc subset array ALLOCATE ( SGRID( NCOLS,NROWS,C_NLAYS,N_CONC_VARS ), & STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'SGRID memory allocation failed' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF SGRID = 0.0 C Check species names against include files and create CONC_MAP, and C get starting index in CGRID and total count for each species class ALLOCATE ( C_GC_SPC( N_CONC_VARS ), & C_AE_SPC( N_CONC_VARS ), & C_NR_SPC( N_CONC_VARS ), & C_TR_SPC( N_CONC_VARS ), & GC_MAP( N_CONC_VARS ), & AE_MAP( N_CONC_VARS ), & NR_MAP( N_CONC_VARS ), & TR_MAP( N_CONC_VARS ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'CONC species mapping memory allocation failed' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT3 ) END IF N_C_GC_SPC = 0 N_C_AE_SPC = 0 N_C_NR_SPC = 0 N_C_TR_SPC = 0 DO VAR = 1, N_CONC_VARS V = INDEX1 ( CONC_FILE_SPCS( VAR ), N_GC_SPC, GC_SPC ) IF ( V .GT. 0 ) THEN N_CSPCS = N_CSPCS + 1 N_C_GC_SPC = N_C_GC_SPC + 1 C_GC_SPC( N_C_GC_SPC ) = CONC_FILE_SPCS( VAR ) OFF = 0 GC_MAP( N_C_GC_SPC ) = V + OFF ELSE V = INDEX1 ( CONC_FILE_SPCS( VAR ), N_AE_SPC, AE_SPC ) IF ( V .GT. 0 ) THEN N_CSPCS = N_CSPCS + 1 N_C_AE_SPC = N_C_AE_SPC + 1 OFF = N_GC_SPC + 1 ! accounts for advected density C_AE_SPC( N_C_AE_SPC ) = CONC_FILE_SPCS( VAR ) AE_MAP( N_C_AE_SPC ) = V + OFF ELSE V = INDEX1 ( CONC_FILE_SPCS( VAR ), N_NR_SPC, NR_SPC ) IF ( V .GT. 0 ) THEN N_CSPCS = N_CSPCS + 1 N_C_NR_SPC = N_C_NR_SPC + 1 OFF = N_GC_SPC + 1 + N_AE_SPC C_NR_SPC( N_C_NR_SPC ) = CONC_FILE_SPCS( VAR ) NR_MAP( N_C_NR_SPC ) = V + OFF ELSE V = INDEX1 ( CONC_FILE_SPCS( VAR ), N_TR_SPC, TR_SPC ) IF ( V .GT. 0 ) THEN N_CSPCS = N_CSPCS + 1 N_C_TR_SPC = N_C_TR_SPC + 1 OFF = N_GC_SPC + 1 + N_AE_SPC + N_NR_SPC C_TR_SPC( N_C_TR_SPC ) = CONC_FILE_SPCS( VAR ) TR_MAP( N_C_TR_SPC ) = V + OFF ELSE IF ( CONC_FILE_SPCS( VAR ) .EQ. 'RH' ) THEN L_CONC_RH = .TRUE. ELSE IF ( CONC_FILE_SPCS( VAR ) .EQ. 'TA' ) THEN L_CONC_TA = .TRUE. ELSE IF ( CONC_FILE_SPCS( VAR ) .EQ. 'PRES' ) THEN L_CONC_PRES = .TRUE. ELSE IF ( CONC_FILE_SPCS( VAR ) .NE. 'WVEL' ) THEN XMSG = 'Variable ' // CONC_FILE_SPCS( VAR ) & // ' incorrect for this model' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT3 ) END IF END IF END IF END IF END DO C_GC_STRT = 1 C_AE_STRT = C_GC_STRT + N_C_GC_SPC C_NR_STRT = C_AE_STRT + N_C_AE_SPC C_TR_STRT = C_NR_STRT + N_C_NR_SPC IF ( N_C_AE_SPC .GT. 0 ) THEN N_C_AE_SPCD = N_C_AE_SPC ELSE N_C_AE_SPCD = 1 END IF ! Populate CONC species maps ALLOCATE ( CONC_MAP( N_CSPCS ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'CONC_MAP memory allocation failed' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT3 ) END IF VAR = 0 DO V = 1, N_C_GC_SPC VAR = VAR + 1 CONC_MAP( VAR ) = GC_MAP( V ) END DO DO V = 1, N_C_AE_SPC VAR = VAR + 1 CONC_MAP( VAR ) = AE_MAP( V ) END DO DO V = 1, N_C_NR_SPC VAR = VAR + 1 CONC_MAP( VAR ) = NR_MAP( V ) END DO DO V = 1, N_C_TR_SPC VAR = VAR + 1 CONC_MAP( VAR ) = TR_MAP( V ) END DO ! Deallocate Arrays if Possible IF ( N_C_GC_SPC .EQ. 0 ) DEALLOCATE ( C_GC_SPC ) IF ( N_C_AE_SPC .EQ. 0 ) DEALLOCATE ( C_AE_SPC ) IF ( N_C_NR_SPC .EQ. 0 ) DEALLOCATE ( C_NR_SPC ) IF ( N_C_TR_SPC .EQ. 0 ) DEALLOCATE ( C_TR_SPC ) END SUBROUTINE CONC_DEFN END MODULE STD_CONC ================================================ FILE: CCTM/src/driver/WVEL_DEFN.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: MODULE WVEL_DEFN C Function: capture the derived vertical velocity component to write to the C conc file C C Revision history: C 1 Feb 19 David Wong: Implemented centralized I/O approach, removed C all MY_N clauses C 6 Sep 19 F. Sidi : Removed USE STD_CONC and USE AVG_CONC statements C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: IMPLICIT NONE REAL, ALLOCATABLE, SAVE :: WVEL( :,:,: ) REAL, ALLOCATABLE, SAVE :: WY( :,:,: ) ! Diagnosed vert vel ala yamo CONTAINS FUNCTION WVEL_INIT () RESULT ( SUCCESS ) USE GRID_CONF ! horizontal & vertical domain specifications USE UTILIO_DEFN LOGICAL SUCCESS CHARACTER( 16 ) :: PNAME = 'WVEL_INIT' CHARACTER( 16 ) :: CTM_WVEL = 'CTM_WVEL' CHARACTER( 96 ) :: XMSG = ' ' INTEGER ALLOCSTAT, IERR INTEGER :: JDATE = 0, JTIME = 0 C----------------------------------------------------------------------- SUCCESS = .TRUE. IF ( W_VEL ) THEN ALLOCATE ( WVEL( NCOLS,NROWS,NLAYS ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'WVEL memory allocation failed' CALL M3WARN( PNAME, JDATE, JTIME, XMSG ) SUCCESS = .FALSE.; RETURN END IF WVEL = 0.0 END IF END FUNCTION WVEL_INIT C----------------------------------------------------------------------- SUBROUTINE GET_WVEL( JDATE, JTIME ) USE GRID_CONF USE UTILIO_DEFN Use CENTRALIZED_IO_MODULE, only : MSFX2, JACOBF_AVAIL, interpolate_var include SUBST_FILES_ID INTEGER JDATE ! current model date, coded YYYYDDD INTEGER JTIME ! current model time, coded HHMMSS INTEGER MTIME, MDATE, LVL LOGICAL, SAVE :: FIRST_TIME = .TRUE. INTEGER ALLOCSTAT CHARACTER( 16 ) :: PNAME = 'GET_WVEL' CHARACTER( 200 ) :: XMSG REAL, ALLOCATABLE, SAVE :: DBUFF ( :,:,: ) ! input for W_VEL REAL, ALLOCATABLE, SAVE :: JACF ( :,:,: ) ! full-layer Jacobian IF ( FIRST_TIME ) THEN FIRST_TIME = .FALSE. ALLOCATE ( JACF( NCOLS,NROWS,NLAYS ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating JACF' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF ALLOCATE( WY( NLAYS,NCOLS,NROWS ) ) WY = 0.0 END IF #ifdef mpas WVEL = 0.0 #else IF (JACOBF_AVAIL) THEN ! Time-Dependent Part of Vertical Velocity Retrieval call interpolate_var ('JACOBF', jdate, jtime, JACF) ELSE IF ( .NOT. ALLOCATED( DBUFF ) ) THEN ALLOCATE ( DBUFF( NCOLS,NROWS,NLAYS ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating DBUFF' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF END IF call interpolate_var ('JACOBM', jdate, jtime, DBUFF) JACF( :,:,1:NLAYS-1 ) = 0.5 * ( DBUFF( :,:,1:NLAYS-1 ) & + DBUFF( :,:,2:NLAYS ) ) JACF( :,:,NLAYS ) = 0.4 * JACF( :,:,NLAYS-1 ) & + DBUFF( :,:,NLAYS ) END IF ! convert from contravariant vertical velocity component to true wind DO LVL = 1, NLAYS WVEL( :,:,LVL ) = JACF( :,:,LVL ) & * MSFX2( :,: ) * WY( LVL,:,: ) END DO #endif END SUBROUTINE GET_WVEL END MODULE WVEL_DEFN ================================================ FILE: CCTM/src/driver/advstep.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE ADVSTEP( JDATE, JTIME, TSTEP, ASTEP, NREPS ) C----------------------------------------------------------------------- C Function: C Use Courant-number conditions to determine the (time-splitting) model C base synchronization time step TSTEP(2) and number NREPS of sync time C steps per output time step TSTEP(1). The base synchronization time step C is considered to be the Courant condition safe advection time step. C Minimum returned sync time step = 900 sec C Determines a Courant condition safe advection step in TSTEP(3) with C respect to a user-defined minimum sync time step [TSTEP(2)]. C June 2003 J.Young C Restructure to produce layer dependent advection step C change arguments: C TSTEP( 1 ) = output timestep (same) - input C TSTEP( 2 ) = synchronization timestep (same) - output C eliminate TSTEP( 3 ). Add new argument ASTEP( NLAYS ) - output C Preconditions: C Subroutines and functions called: C SEC2TIME, TIME2SEC, DESC3, M3EXIT, HVELOC C Revision history: C prototype 2/93 by CJC C configuration management prototype 6/94 by Dongming Hwang C Apr 15, 1996 by M. Talat Odman at NCSC: the number of model time C steps is made even to assure symmetry of transport operators within C each output time step. C Jan 20, 1996 by M. Talat Odman at NCSC: now applies the CFL condition C independently in all three contravariant directions and C finds minimum time step. C 22 Apr 97 Jeff: only for horizontal advection C keep Talat's even step mod for symmetric sciproc C 2 Sep 97 Jeff: calc. separate sync and adv time steps, TSTEP(3) C 12 Feb 98 Jeff: make sync step = chem step C 27 Jun 98 Jeff: allow for constant vel field (time-independent file) C 2 October, 1998 by Al Bourgeois at LM: parallel implementation C C 8 Jan 99 by David Wong at LM: GLOBAL_MAX function call is added C C 1/19/99 David Wong C -- add a loop_index call C -- change loop index ending point to avoid accessing invalid region. C (reason to do this is to prevent using boundary data from PINTERP, C which sets pseudo-boundary data to 0) C C 9 Jun 99 by David Wong at LM: change GLOBAL_MAX to GLOBAL_RMAX C 21 Nov 00 J.Young: GLOBAL_RMAX -> Dave Wong's f90 stenex GLOBAL_MAX C Jeff - Feb 01 - module LOCALFILE to set CCTM IOAPI file defn's C - assumed shape arrays C 30 Mar 01 J.Young: Use HGRD_DEFN; replace INTERP3 with INTERPX C 9 Sep 03 J.Young: return layer dependent advection tstep, ASTEP C 27 Aug 03 J.Young: symmetric processing is now deprecated C 31 Jan 05 J.Young: dyn alloc - establish both horizontal & vertical C domain specifications in one module C 26 Jul 06 J.Young: add WRF sigma VGTYP C 27 Apr 07 J.Young: Using Peter Percell's (UH) two timestep max wind C 20 Jan 09 J.Young: In addition to the CFL criterion, use horizontal divergence C to establish safe advection time step C 28 Oct 09 J.Young: Revert back from Percell's algorithm to Talat's fix for C multiple adv steps per sync step C 16 Mar 10 J.Young: Fix hdiv bug for MPI by communicating ghost cell data using C new hveloc to add hdiv and replace hcontvel C 16 Feb 11 S.Roselle: replaced I/O API include files with UTILIO_DEFN C 10 May 11 D.Wong: incorporated twoway model implementation C 6 Apr 12 J.Young: changed default HDIV_LIM to 0.9; made CFL an env var C 1 Nov 18 David Wong: removed MY_N clause for NCOLS and NROWS C 1 Feb 19 David Wong: Implemented centralized I/O approach, removed all MY_N C clauses C 20 Nov 19 F. Sidi: Updated MET STIME, SDATE, TSTEP, XCELL, YCELL to correspond C to updates in Centralized I/O C 10 Feb 20 D. Wong: Updated sync step calculation to include input C meterology temporal frequency, to allow running with C finer temporal scale. C----------------------------------------------------------------------- USE GRID_CONF ! horizontal & vertical domain specifications USE UTILIO_DEFN #ifdef parallel USE SE_MODULES ! stenex (using SE_GLOBAL_MAX_MODULE, SE_UTIL_MODULE) #else USE NOOP_MODULES ! stenex (using NOOP_GLOBAL_MAX_MODULE, NOOP_UTIL_MODULE) #endif USE centralized_io_module IMPLICIT NONE C Includes: INCLUDE SUBST_CONST ! constants INCLUDE SUBST_FILES_ID ! file name parameters C Arguments: INTEGER, INTENT( IN ) :: JDATE ! current model simulation date (YYYYDDD) INTEGER, INTENT( IN ) :: JTIME ! current model simulation time (HHMMSS) INTEGER, INTENT( INOUT ) :: TSTEP( 3 ) ! time step vector (HHMMSS) ! TSTEP( 1 ) = local output step - INTENT( IN ) ! TSTEP( 2 ) = sciproc sync. step (chem) - INTENT( OUT ) ! TSTEP( 3 ) = twoway model time step w.r.t. wrf time ! step and wrf/cmaq call frequency INTEGER, INTENT( OUT ) :: ASTEP( : ) ! layer advection sub-steps per sync step ! (HHMMSS) INTEGER, INTENT( OUT ) :: NREPS ! no. of sync steps per output step C Parameters: C External Functions: C Local Variables: LOGICAL, SAVE :: FIRSTIME = .TRUE. INTEGER, SAVE :: ADVLAYR ! adv=sync at least up to this level INTEGER, SAVE :: WSTEP = 0 ! wind file interpolation time step INTEGER, SAVE :: SDATE, STIME ! wind file start date and time INTEGER, SAVE :: FDATE, FTIME ! wind file current date and time INTEGER, SAVE :: FSTEP ! wind file time step INTEGER, SAVE :: OSTEP ! output time step (sec) REAL, SAVE :: IDX1, IDX2 ! 1/dx1, 1/dx2 INTEGER :: MINSECS ! effective MINSYNC (sec) that divides TSTEP(1) INTEGER :: C, R, L, K ! loop counters INTEGER :: EDATE, ETIME INTEGER :: SYNC, SUB, REP ! loop variables INTEGER :: ADV, TADV ! test sub adv step INTEGER :: NADVS( NLAYS ) ! no. of advection sub-steps per sync step REAL :: RSYNC REAL :: MXUOVDX ! max ( WIND / DS ) all layers 1, ADVLAYR LOGICAL :: ADJFLG REAL :: UWIND( NCOLS+1,NROWS+1,NLAYS ) REAL :: VWIND( NCOLS+1,NROWS+1,NLAYS ) REAL :: HDIV( NCOLS,NROWS,NLAYS ) ! MAX ( WIND / DS ) ... REAL, ALLOCATABLE, SAVE :: WIND_IDX_BEG( : ) ! at beginning of output step REAL, ALLOCATABLE, SAVE :: WIND_IDX_END( : ) ! at end of output step REAL, ALLOCATABLE, SAVE :: WIND_IDX ( : ) ! for whole output step REAL, ALLOCATABLE, SAVE :: MX_HDIV_BEG( : ) ! at beginning of output step REAL, ALLOCATABLE, SAVE :: MX_HDIV_END( : ) ! at end of output step REAL, ALLOCATABLE, SAVE :: MX_HDIV ( : ) ! for whole output step REAL(8), PARAMETER :: TOL = 1.D-3 ! Tolerance Parameter for checking that grid ! specifications from input files match those ! in the model. Units are in meters. CHARACTER( 16 ) :: PNAME = 'ADVSTEP' CHARACTER( 96 ) :: XMSG = ' ' INTEGER :: ALLOCSTAT CHARACTER( 80 ) :: VARDESC ! environment variable description INTERFACE SUBROUTINE HVELOC( FDATE, FTIME, FSTEP, UWIND, VWIND, HDIV ) INTEGER, INTENT( IN ) :: FDATE, FTIME, FSTEP REAL, INTENT( OUT ) :: UWIND( :,:,: ), VWIND( :,:,: ) REAL, INTENT( OUT ) :: HDIV( :,:,: ) END SUBROUTINE HVELOC END INTERFACE C----------------------------------------------------------------------- IF ( FIRSTIME ) THEN FIRSTIME = .FALSE. CALL LOG_HEADING( LOGDEV, 'INITIALIZE ADVECTION STEPPING' ) IF ( SIGST .GT. VGLVS_GD( 2 ) .OR. & SIGST .LT. VGLVS_GD( NLAYS + 1 ) ) THEN WRITE(XMSG, '(A, 1PE12.3)') 'SIGMA_SYNC_TOP incorrect', SIGST CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT2 ) END IF IF ( SIGST .EQ. VGLVS_GD( NLAYS + 1 ) ) THEN L = NLAYS ELSE DO K = 1, NLAYS IF ( SIGST .GE. VGLVS_GD( K+1 ) ) THEN IF ( SIGST - VGLVS_GD( K+1 ) .LE. & VGLVS_GD( K ) - SIGST ) THEN L = K ELSE L = K - 1 END IF EXIT END IF END DO END IF ADVLAYR = L WRITE( LOGDEV,92005 ) ADVLAYR SDATE = FILE_SDATE(F_MET) STIME = FILE_STIME(F_MET) FSTEP = FILE_TSTEP(F_MET) C Check file data against COORD.EXT IF ( ABS( FILE_XCELL(F_MET) - XCELL_GD ) .GT. TOL .OR. & ABS( FILE_YCELL(F_MET) - YCELL_GD ) .GT. TOL ) THEN WRITE( LOGDEV,* ) 'XCELL3D, XCELL_GD, YCELL3D, YCELL_GD: ' WRITE( LOGDEV,* ) XCELL3D, XCELL_GD, YCELL3D,YCELL_GD XMSG = 'File grid sizes do not match CTM domain definition' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT3 ) END IF C Get cell size in meters (from COORD.EXT) IF ( GDTYP_GD .EQ. LATGRD3 ) THEN IDX2 = 1.0 / ( DG2M * YCELL_GD ) IDX1 = 1.0 / ( DG2M * XCELL_GD & * COS( PI180*( YORIG_GD + YCELL_GD*FLOAT( NROWS/2 ) ) ) ) ELSE IDX1 = 1.0 / XCELL_GD IDX2 = 1.0 / YCELL_GD END IF C Get the time of starting wind field: do not interpolate IF ( .NOT. CURRSTEP( JDATE, JTIME, SDATE, STIME, FSTEP, & FDATE, FTIME) ) THEN XMSG = 'Cannot get step-starting date and time' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT3 ) END IF ALLOCATE( WIND_IDX_BEG( NLAYS ), & WIND_IDX_END( NLAYS ), & WIND_IDX ( NLAYS ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating WIND_IDX*' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF ALLOCATE( MX_HDIV_BEG( NLAYS ), & MX_HDIV_END( NLAYS ), & MX_HDIV ( NLAYS ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating MX_HDIV*' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF IF ( .NOT. COLUMN_MODEL ) THEN CALL HVELOC( FDATE, FTIME, WSTEP, UWIND, VWIND, HDIV ) DO L = 1, NLAYS WIND_IDX_BEG( L ) = 0.0 MX_HDIV_BEG( L ) = 0.0 DO R = 1, NROWS DO C = 1, NCOLS WIND_IDX_BEG( L ) = MAX( WIND_IDX_BEG( L ), & ABS( UWIND( C,R,L ) ) * IDX1, & ABS( VWIND( C,R,L ) ) * IDX2 ) MX_HDIV_BEG( L ) = MAX( MX_HDIV_BEG( L ), HDIV( C,R,L ) ) END DO END DO WIND_IDX_BEG( L ) = SUBST_GLOBAL_MAX( WIND_IDX_BEG( L ) ) MX_HDIV_BEG( L ) = SUBST_GLOBAL_MAX( MX_HDIV_BEG( L ) ) END DO ELSE UWIND = 0.0 VWIND = 0.0 HDIV = 0.0 WIND_IDX = 0.0 MX_HDIV = 0.0 WIND_IDX_BEG = 0.0 WIND_IDX_END = 0.0 MX_HDIV_END = 0.0 MX_HDIV_BEG = 0.0 END IF END IF ! FIRSTIME C Compute the least number of equal time steps that satisfy the Courant C condition (force TSTEP(2) to be no greater than MAXSYNC): #ifdef twoway OSTEP = TIME2SEC( TSTEP( 3 ) ) #else OSTEP = TIME2SEC( min(TSTEP( 1 ), FSTEP) ) #endif MAXSYNC = MIN( OSTEP, MAXSYNC ) C Make sure MINSYNC <= output time step IF ( MINSYNC .GT. OSTEP ) THEN WRITE( LOGDEV,92009 ) OSTEP, MINSYNC XMSG = ' ' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT3 ) END IF C Make sure MINSYNC <= MAXSYNC IF ( MINSYNC .GT. MAXSYNC ) THEN WRITE( LOGDEV,92010 ) MAXSYNC, MINSYNC XMSG = ' ' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT3 ) END IF C Determine MINSECS, the smallest time step (sec) between MINSYNC and MAXSYNC C that divides the output step IF ( MINSYNC .LE. 1 ) THEN MINSECS = 1 ELSE DO MINSECS = MINSYNC, MAXSYNC IF ( MOD( OSTEP, MINSECS ) .EQ. 0 ) THEN IF ( MINSECS .NE. MINSYNC ) & WRITE( LOGDEV,92011 ) JDATE, JTIME, MINSYNC, MINSECS EXIT ELSE IF ( MINSECS .LT. MAXSYNC ) THEN CYCLE END IF C A satisfactory MINSECS could not be found WRITE( XMSG,92012 ) MINSYNC, OSTEP CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT3 ) END DO END IF C Establish ending time for this Courant number calculation: EDATE = JDATE ETIME = JTIME #ifdef twoway CALL NEXTIME( EDATE, ETIME, TSTEP( 3 ) ) #else CALL NEXTIME( EDATE, ETIME, min(TSTEP( 1 ), FSTEP) ) #endif IF ( SECSDIFF( FDATE, FTIME, EDATE, ETIME ) .GT. 0 ) C Get the next wind field: do not interpolate & CALL NEXTIME( FDATE, FTIME, FSTEP ) IF ( .NOT. COLUMN_MODEL ) THEN CALL HVELOC( FDATE, FTIME, WSTEP, UWIND, VWIND, HDIV ) DO L = 1, NLAYS WIND_IDX_END( L ) = 0.0 MX_HDIV_END( L ) = 0.0 DO R = 1, NROWS DO C = 1, NCOLS WIND_IDX_END( L ) = MAX( WIND_IDX_END( L ), & ABS( UWIND( C,R,L ) ) * IDX1, & ABS( VWIND( C,R,L ) ) * IDX2 ) MX_HDIV_END( L ) = MAX( MX_HDIV_END( L ), HDIV( C,R,L ) ) END DO END DO WIND_IDX_END( L ) = SUBST_GLOBAL_MAX( WIND_IDX_END( L ) ) MX_HDIV_END( L ) = SUBST_GLOBAL_MAX( MX_HDIV_END( L ) ) END DO END IF WIND_IDX = MAX( WIND_IDX_BEG, WIND_IDX_END ) ! array WIND_IDX_BEG = WIND_IDX_END ! save for next call MX_HDIV = MAX( MX_HDIV_BEG, MX_HDIV_END ) ! array MX_HDIV_BEG = MX_HDIV_END ! save for next call C Determine the synchronization timestep, TSTEP(2), and NREPS, the corresponding C number of sync steps per output timestep C Find the largest timestep that satisfies the Courant condition in all of the C lower ADVLAYR layers. If this is smaller than MINSECS, then set the sync step C to MINSECS. Otherwise, set the sync step to the largest time step that both C satisfies the Courant condition and is an integer divisor of the output step C (existence of such a sync step is guaranteed because, at this point, MINSECS C satisfies both conditions). MXUOVDX = MAXVAL( WIND_IDX( 1:ADVLAYR ) ) ADJFLG = .FALSE. DO REP = 1, OSTEP IF ( MOD( OSTEP, REP ) .EQ. 0 ) THEN ! make TSTEP(2) divide TSTEP(1) SYNC = OSTEP / REP IF ( SYNC .LE. MAXSYNC ) THEN ! enforce max TSTEP(2) ADV = SYNC IF ( MXUOVDX * REAL( ADV ) .LT. CFL ) THEN ! CFL satisfied IF ( SYNC .GE. MINSECS ) THEN ! force min TSTEP(2) NREPS = REP GO TO 301 ELSE ! multiple adv steps per sync step (= MINSECS) SYNC = MINSECS NREPS = OSTEP / MINSECS DO SUB = 1, MINSECS IF ( MOD( MINSECS, SUB ) .EQ. 0 ) THEN ! make ADV divide TSTEP(2) TADV = MINSECS / SUB IF ( TADV .LE. ADV ) THEN ADV = TADV ADJFLG = .TRUE. GO TO 301 END IF END IF END DO GO TO 291 ! No solution END IF END IF ! if Courant condition satisfied END IF ! if SYNC .le. MAXSYNC END IF ! if REP divides STEP evenly END DO ! REP loop 291 continue C If you get here: could not determine satisfactory advection time step. WRITE( LOGDEV,94011 ) min(TSTEP( 1 ), FSTEP), MXUOVDX XMSG = ' ' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT3 ) 301 CONTINUE TSTEP( 2 ) = SEC2TIME( SYNC ) DO L = 1, ADVLAYR ASTEP( L ) = SEC2TIME( ADV ) NADVS( L ) = SYNC / ADV END DO IF ( ADJFLG ) THEN WRITE( LOGDEV,92019 ) MINSECS, TSTEP( 2 ), NREPS ELSE WRITE( LOGDEV,92021 ) TSTEP( 2 ), NREPS END IF DO L = ADVLAYR + 1, NLAYS DO REP = 1, SYNC IF ( MOD( SYNC, REP ) .EQ. 0 ) THEN ADV = SYNC / REP IF ( WIND_IDX( L ) * REAL( ADV ) .LT. CFL ) THEN ! Layer CFL satisfied NADVS( L ) = REP ASTEP( L ) = SEC2TIME( ADV ) GO TO 401 END IF ! if courant condition satisfied END IF ! if rep divides step END DO C If you get here: could not determine satisfactory advection time step. WRITE( LOGDEV,94013 ) min(TSTEP( 1 ), FSTEP), L, WIND_IDX( L ) XMSG = ' ' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT3 ) 401 CONTINUE END DO ! layer loop C For each layer ensure that Max(HDIV)*ADV < 1. WRITE( LOGDEV,92025 ) DO L = NLAYS, 1, -1 ! start at the top, purely for the 92027, 92029 write ADV = TIME2SEC( ASTEP( L ) ) IF ( REAL( ADV ) * MX_HDIV( L ) .LT. HDIV_LIM ) THEN WRITE( LOGDEV,92027 ) L, ASTEP( L ), NADVS( L ) CYCLE ELSE SUB = ADV DO WHILE ( SUB .GT. 0 ) SUB = SUB - 1 IF ( MOD( SYNC, SUB ) .EQ. 0 ) THEN ASTEP( L ) = SEC2TIME( SUB ) NADVS( L ) = SYNC / SUB GO TO 501 END IF END DO C If you get here: could not determine satisfactory advection time step. WRITE( LOGDEV,94013 ) min(TSTEP( 1 ), FSTEP), L, WIND_IDX( L ) XMSG = ' ' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT3 ) 501 CONTINUE WRITE( LOGDEV,92029 ) L, ASTEP( L ), NADVS( L ) END IF END DO RETURN C------------------ FORMAT STATEMENTS ------------------------------ 92005 FORMAT( 5X, 'Top layer thru which sync step determined:', I3 ) 92009 FORMAT( / 5X, 'Output time step:', I8, & 1X, 'less than minimum synchronization step:', I8 ) 92010 FORMAT( / 5X, 'Maximum synchronization step:', I8, & 1X, 'less than minimum synchronization step:', I8 ) 92011 FORMAT( / 5X, 'From ADVSTEP - date/time: ', I8, '/', I6.6 & / 5X, 'Minimum Synchronization Step adjusted from:', I8, & 1X, 'to:', I8 ) 92012 FORMAT( / 5X, 'Starting from:', I6, ',', & 1X, 'could not determine minimum step that divides TSTEP', & 1X, 'for model step:', I7.6, ' HHMMSS' ) 92019 FORMAT( / 5X, 'Synchronization step adjusted up to minimum (SEC):', I7 & /46X, '(HHMMSS): ', I6.6 & / 5X, 'Number of Synchronization steps:', I5 ) 92021 FORMAT( 5X, 'Computed synchronization step (HHMMSS): ', I6.6 & / 5X, 'Number of Synchronization steps:', I5 ) 92025 FORMAT( / 5X, 'Layer', 3X, 'Advection', 3X, 'per Sync' & /11X, 'Step (HHMMSS)', 2X, 'Step' ) 92027 FORMAT( 5X, I4, 6X, I6.6, 6X, I2 ) 92029 FORMAT( 5X, I4, 6X, I6.6, 6X, I2, 2X, '<- Hdiv adjusted' ) 94011 FORMAT( / 5X, 'Could not determine Courant-condition safe sync step', & 1X, 'for model step:', I7.6, ' HHMMSS', & / 5X, '(Max vel)/(dX) =', 1PE10.3) 94013 FORMAT( / 5X, 'Could not determine Courant-condition safe sync step', & 1X, 'for model step:', I7.6, ' HHMMSS', & 1X, 'in layer:', I3 & / 5X, '(Max vel)/(dX) =', 1PE10.3) END ================================================ FILE: CCTM/src/driver/cmaq_main.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! !------------------------------------------------------------------------! ! This serves the main program for offline CMAQ mode ! Revision History: ! 02/01/19, D. Wong: initial implementation ! 02/10/20, D. Wong: Added new environmental variable MET_TSTEP ! to allow running with temporally fine ! meteorology !------------------------------------------------------------------------! PROGRAM CMAQ USE RUNTIME_VARS USE UTILIO_DEFN IMPLICIT NONE #ifdef parallel INCLUDE 'mpif.h' INTEGER PAR_ERR ! Error code from parallel initialization REAL( 8 ) BEGTIME ! Wall-clock time (sec) at MPI initialization REAL( 8 ) ENDTIME ! Wall-clock time (sec) at MPI finish REAL( 8 ) ELAPTIME ! ENDTIME-BEGTIME #else REAL BEGTIME ! Wall-clock time (sec) at MPI initialization REAL ENDTIME ! Wall-clock time (sec) at MPI finish REAL ELAPTIME ! ENDTIME-BEGTIME #endif CHARACTER( 96 ) :: XMSG = ' ' INTEGER :: MODEL_TSTEP, NSTEPS, ISTEP, $ JDATE, JTIME, TOTSECS, STEPSECS CHARACTER( 96 ) :: MSG = ' ' INTERFACE SUBROUTINE CMAQ_DRIVER ( MODEL_STDATE, MODEL_STTIME, MODEL_TSTEP, $ MODEL_JDATE, MODEL_JTIME, LAST_STEP, $ COUPLE_TSTEP, NCOLS_IN, NLAYS_IN) INTEGER, INTENT( IN ) :: MODEL_STDATE, MODEL_STTIME, MODEL_TSTEP INTEGER, INTENT( OUT ) :: MODEL_JDATE, MODEL_JTIME LOGICAL, INTENT( IN ) :: LAST_STEP INTEGER, INTENT( IN ), OPTIONAL :: COUPLE_TSTEP INTEGER, INTENT( IN ), OPTIONAL :: NCOLS_IN, NLAYS_IN END SUBROUTINE CMAQ_DRIVER END INTERFACE #ifdef parallel C Start up processor communication and retrieve number of compute C processes (NPROCS) CALL MPCOMM_INIT( NPROCS, MYPE, BEGTIME, PAR_ERR ) #else NPROCS = 1 MYPE = 0 CALL CPU_TIME( BEGTIME ) #endif ! Initialize all runscript environmental variables CALL INIT_ENV_VARS( 0, 0 ) MODEL_TSTEP = LOCAL_TSTEP TOTSECS = TIME2SEC( RUNLEN ) STEPSECS = TIME2SEC( MIN( MODEL_TSTEP, MET_TSTEP) ) IF ( MOD( TOTSECS, STEPSECS ) .EQ. 0 ) THEN NSTEPS = TOTSECS / STEPSECS ELSE MSG = 'EXIT: Output time step ' // HHMMSS( MODEL_TSTEP ) // & ' does not divide duration ' // HHMMSS( RUNLEN ) CALL M3EXIT( 'CMAQ_MAIN', STDATE, STTIME, MSG, XSTAT1 ) END IF ! Call to driver, for nsteps or how often the model synchronization step ! needs to be recalculated (RUNLEN = 60*(NSTEPS*NREPS*TSTEP(2)) DO ISTEP = 1, NSTEPS CALL CMAQ_DRIVER (STDATE, STTIME, MODEL_TSTEP, JDATE, JTIME, (ISTEP .EQ. NSTEPS)) END DO #ifdef parallel ENDTIME = MPI_WTIME() ! get final wall-clock time #else CALL CPU_TIME( ENDTIME ) ! get final wall-clock time #endif ELAPTIME = ENDTIME - BEGTIME WRITE( XMSG, '(A,F10.1,A)' ) 'The elapsed time for this simulation was', & ELAPTIME, ' seconds.' CALL LOG_MESSAGE( LOGDEV, XMSG ) IF ( MYPE .EQ. 0 ) WRITE( OUTDEV, * ) IF ( MYPE .EQ. 0 ) CALL LOG_MESSAGE( OUTDEV, XMSG ) IF ( MYPE .EQ. 0 ) WRITE( OUTDEV, * ) #ifdef parallel C Shut down MPI CALL MPI_FINALIZE ( PAR_ERR ) IF ( PAR_ERR .NE. 0 ) THEN MSG = 'Error terminating MPI' CALL M3EXIT( 'CMAQ_MAIN', STDATE, STTIME, MSG, XSTAT1 ) END IF #endif END PROGRAM CMAQ ================================================ FILE: CCTM/src/driver/driver.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE CMAQ_DRIVER ( MODEL_STDATE, MODEL_STTIME, MODEL_TSTEP, $ MODEL_JDATE, MODEL_JTIME, LAST_STEP, $ COUPLE_TSTEP, NCOLS_IN, NLAYS_IN) C----------------------------------------------------------------------- C Function: C CMAQ CTM driver C Preconditions: C Initialized file CONCFILE for output; completed C files HISTORY containing initial conditions, SPCCONST for C conversion of concentration field from computational units C to output units. C Subroutines and functions called: C INITSCEN, ADVSTEP, M3EXIT, WRITE3 C science processes SCIPROC, PA_OUTPUT C Revision History: C prototype 6/92 by CJC for proof-of-concept C Revised 2/93 by CJC for initial LCM Prototype Alpha C 31 August, 1995 by M. Talat Odman at NCSC: special version for one C single grid C 16 April 1995 by M. Talat Odman at NCSC: write (or rewrite if restart) C initial conditions to the output file C Jeff C 18 June 98 - put load of mechanism common here because of ping/ping_noop, C chem/chem_noop options C 2 October, 1998 by Al Bourgeois at LM: parallel implementation C Jeff - Dec 00 - move CGRID_MAP into f90 module, re-order cols/rows in C call to PAR_INIT C Jeff - Jul 01 - enable integral average conc data C Sep 01 J. Young Dyn Alloc - Use HGRD_DEFN C 3 Sep 01 David wong C -- removed M3IO SHUT3 call which is done in PAR_TERM C -- removed SET_CTMFILE call C 23 Jun 03 J.Young: for layer dependent advection tstep C 18 Aug 03 J. Pleim - move vdiff before advection C 07 Dec 04 J.Young: for layer dyn alloc - Use VGRD_DEFN C 30 May 05 J.Young: mass-conserving advection (yamo) C 20 Jan 06 J.Young: add circular buffer CGRID state file C 24 May 06 J.Young: par_init/pio_init col/row order check C 6 Sep 06 J.Young: one-write cgrid file; SGRID in module C 27 May 09 J.Young: re-do parallel processing initialization C 21 Jun 10 J.Young: convert for Namelist redesign C 20 Jul 10 J.Young: re-do serial processing termination (eliminate par_noop) C 16 Feb 11 S.Roselle: replaced I/O API include files with UTILIO_DEFN C 11 May 11 D.Wong: incorporated twoway model implementation C 24 Aug 11 D.Wong: eliminated data and geo orientation in se_init call C 8 Jan 13 C.Nolte: fixed load AGRID bug if TSTEP(1) .ne. 010000 hhmmss C 24 Sep 13 D.Wong: Computed AGRID at the output mark of the model C indicated in TSTEP(1) for twoway model C 21 Apr 14 D.Wong: Removed M3EXIT call in SHUT3 block C 07 Jul 14 B.Hutzell: replaced mechanism include file(s) with fortran module C 10 Aug 15 D.Wong: Replaced MYPE with IO_PE_INCLUSIVE for parallel C I/O implementation C 10 Dec 15 D.Wong: Moved the code which determines which processors are involved C in I/O processing in front of routine PIO_RE_INIT and passed C that information into PIO_RE_INIT C 26 Jan 16 J.Young: Consolidate PIO_INIT, use keywords for optional arguments C 28 Jan 16 D.Wong: Add SAVE attribute to TSTEP for the two-way model implementation C 16 Sep 16 J.Young: update for inline procan (IRR) C 29 Nov 17 D. Wong: removed all SWAP routines and replaced with SE_COMM C 29 Oct 18 L.Zhou, S.Napelenok: isam implementation C 31 Jan 19 D. Wong: adopted the idea to process all twoway related environment C variables in one place C 01 Feb 19 D. Wong: made this as a subroutine rather than the main program to C accommodate interface with global, regional and offlice mode, C implemented centralized I/O approach, removed all MY_N clauses, C with new re-structure of LUS_DEFN, most of the data declaration C has been moved to lus_data_module (model_data_module.f) and to C call lus_setup to setup land use information according to land C use scheme C 02 Aug 19 F. Sidi: Restored serial processing option C 03 AUG 19 D.Wong: Modified code to work with two-way model C 09 Sep 19 F. Sidi: Replaced L_CONC_WVEL & L_ACONC_WVEL (depreciated) with W_VEL C 21 Nov 19 S.L.Napelenok: Include DDM3D for versions 5.3.1 C----------------------------------------------------------------------- USE RXNS_DATA ! chemical mechanism data USE CENTRALIZED_IO_MODULE USE ASX_DATA_MOD, Only : MET_DATA, INIT_MET, GET_MET USE LSM_MOD USE WVEL_DEFN ! derived vertical velocity component USE BUDGET_DEFN USE AERO_DATA USE ELMO_DATA, ONLY : L_ELMO, ELMO_NSTEP USE ELMO_PROC, ONLY : ELMO_DRIVER, WRITE_ELMO, MAP_ELMO USE UTILIO_DEFN USE util_Family_module USE RUNTIME_VARS USE STD_CONC ! standard CONC USE CGRID_SPCS ! CGRID mechanism species #ifdef mpas USE HGRD_DEFN, ONLY: MYPE use coupler_module use VGRD_DEFN, ONLY : NLAYS use HGRD_DEFN, ONLY : NCOLS, NROWS use mydata_module use get_env_module use lus_defn use mio_module #else USE PCGRID_DEFN ! inherits GRID_CONF USE AVG_CONC ! integral average CONC USE PA_DEFN, Only: LIPR, LIRR ! Process Anaylsis control and data variables USE PAGRD_DEFN ! Process Anaylsis horiz domain specs USE BIDI_MOD, Only : INIT_BIDI #ifdef isam c USE SA_LAYERS USE SA_DEFN USE PISAM_DEFN ! SA array definition (borrowed ) c USE PMFRC_DEFN ! MAPFRAC array definition ( adapted ) #endif #ifdef sens USE DDM3D_DEFN USE S_PCGRID_DEFN #endif #ifdef parallel USE VERTEXT_MODULE #endif USE lus_data_module #ifdef twoway use twoway_data_module use sd_time_series_module #endif #ifdef parallel USE SE_MODULES ! stenex (using SE_INIT_MODULE) #else USE NOOP_MODULES ! stenex (using NOOP_INIT_MODULE) #endif #endif ! end mpas IMPLICIT NONE INTEGER, INTENT( IN ) :: MODEL_STDATE, MODEL_STTIME, MODEL_TSTEP INTEGER, INTENT( OUT ) :: MODEL_JDATE, MODEL_JTIME LOGICAL, INTENT( IN ) :: LAST_STEP INTEGER, INTENT( IN ), OPTIONAL :: COUPLE_TSTEP INTEGER, INTENT( IN ), OPTIONAL :: NCOLS_IN, NLAYS_IN #ifdef mpas real, parameter :: cmin = 1.0E-30 integer :: ncols_gl #endif C Include Files: INCLUDE SUBST_FILES_ID ! I/O definitions and declarations #ifdef parallel ! INCLUDE SUBST_MPI ! MPI definitions and parameters INCLUDE 'mpif.h' #endif C Local variables: INTEGER, SAVE :: TSTEP( 3 ) ! time step vector (HHMMSS) ! TSTEP(1) = local output step ! TSTEP(2) = sciproc sync. step (chem) ! TSTEP(3) = twoway model time step w.r.t. wrf time ! step and wrf/cmaq call frequency INTEGER, ALLOCATABLE, SAVE :: ASTEP( : ) INTEGER, SAVE :: NREPS ! number of model time steps per output step INTEGER ISTEP ! current output time step number INTEGER IREP ! model step number within this output step INTEGER, SAVE :: JDATE ! current model date, coded YYYYDDD INTEGER, SAVE :: JTIME ! current model time, coded HHMMSS INTEGER C, R, L, K, S, V ! loop induction variables INTEGER ALLOCSTAT INTEGER NFILE, IFILE LOGICAL EXST, OPD CHARACTER( 1000 ) :: CFILE CHARACTER( 16 ) :: ACT REAL( 8 ) :: CPU_TIME_START, CPU_TIME_FINISH REAL :: REAL_TIME CHARACTER( 2 ) :: COLROW = 'CR' ! col/row arg list order CHARACTER( 16 ) :: PNAME = 'DRIVER' CHARACTER( 96 ) :: XMSG = ' ' REAL, SAVE, POINTER :: CGRID( :,:,:,: ) REAL, ALLOCATABLE, SAVE :: AGRID( :,:,:,: ) REAL DIVFAC ! trapezoidal average factor LOGICAL, SAVE :: FIRST_RUN = .TRUE. ! used for twoway model LOGICAL :: WFLG = .TRUE. ! turn on write subdmap in pio_init INTEGER, SAVE :: myNREPS = 0 INTEGER :: STATUS #ifdef mpas integer :: io_mode INTEGER SPC_STRT, SPC_FINI, J LOGICAL LSTAT INTEGER STAT ! Status reported by Aerosol Dist Checker INTEGER LMODE !Identifies the problematic mode from !the BC Check routine REAL AER_PAR( 2, N_MODE,5 ) !Modal parameter after the BC !check (N, dg, sg) ! (N, M2, M3) - ! Before ! (N, M2, M3) - ! After REAL,ALLOCATABLE :: AECON( : ) REAL( 8 ) :: BEGTIME ! Wall-clock time (sec) at MPI initialization LOGICAL :: L_WRITE_WARNING #endif INTERFACE SUBROUTINE INITSCEN ( CGRID, TSTEP ) REAL, POINTER :: CGRID( :,:,:,: ) INTEGER, INTENT( OUT ) :: TSTEP( 3 ) END SUBROUTINE INITSCEN #ifndef mpas SUBROUTINE ADVSTEP ( JDATE, JTIME, TSTEP, ASTEP, NREPS ) INTEGER, INTENT( IN ) :: JDATE, JTIME INTEGER, INTENT( INOUT ) :: TSTEP( 3 ) INTEGER, INTENT( OUT ) :: ASTEP( : ) INTEGER, INTENT( OUT ) :: NREPS END SUBROUTINE ADVSTEP SUBROUTINE CKSUMMER ( PRNAME, CGRID, JDATE, JTIME ) CHARACTER( * ), INTENT( IN ) :: PRNAME REAL, POINTER :: CGRID( :,:,:,: ) INTEGER, INTENT( IN ) :: JDATE, JTIME END SUBROUTINE CKSUMMER SUBROUTINE PA_INIT ( CGRID, JDATE, JTIME, TSTEP ) REAL, POINTER :: CGRID( :,:,:,: ) INTEGER, INTENT( IN ) :: JDATE, JTIME, TSTEP( 3 ) END SUBROUTINE PA_INIT SUBROUTINE WR_ACONC ( AGRID, JDATE, JTIME, TSTEP ) REAL, INTENT( IN ) :: AGRID( :,:,:,: ) INTEGER, INTENT( IN ) :: JDATE, JTIME, TSTEP END SUBROUTINE WR_ACONC SUBROUTINE WR_CGRID ( CGRID, JDATE, JTIME, TSTEP ) REAL, POINTER :: CGRID( :,:,:,: ) INTEGER, INTENT( IN ) :: JDATE, JTIME, TSTEP END SUBROUTINE WR_CGRID SUBROUTINE PA_OUTPUT ( CGRID, JDATE, JTIME ) REAL, POINTER :: CGRID( :,:,:,: ) INTEGER, INTENT( IN ) :: JDATE, JTIME END SUBROUTINE PA_OUTPUT #ifdef isam SUBROUTINE WR_SA ( JDATE, JTIME, TSTEP, NSTEPS ) IMPLICIT NONE INTEGER :: JDATE, JTIME, TSTEP( 3 ) INTEGER :: NSTEPS END SUBROUTINE WR_SA SUBROUTINE WR_AVG_SA ( JDATE, JTIME, TSTEP ) IMPLICIT NONE INTEGER :: JDATE, JTIME, TSTEP END SUBROUTINE WR_AVG_SA SUBROUTINE WR_SA_CGRID ( JDATE, JTIME, TSTEP ) IMPLICIT NONE INTEGER :: JDATE, JTIME, TSTEP END SUBROUTINE WR_SA_CGRID #endif #ifdef sens SUBROUTINE WR_SENGRID ( JDATE, JTIME, TSTEP ) IMPLICIT NONE INTEGER, INTENT( IN ) :: JDATE, JTIME, TSTEP END SUBROUTINE WR_SENGRID SUBROUTINE WR_ASENS ( JDATE, JTIME, TSTEP ) IMPLICIT NONE INTEGER, INTENT( IN ) :: JDATE, JTIME, TSTEP END SUBROUTINE WR_ASENS #endif #endif SUBROUTINE SCIPROC ( CGRID, JDATE, JTIME, TSTEP, ASTEP ) REAL, POINTER :: CGRID( :,:,:,: ) INTEGER, INTENT( INOUT ) :: JDATE, JTIME INTEGER, INTENT( IN ) :: TSTEP( 3 ), ASTEP( : ) END SUBROUTINE SCIPROC #ifdef mpas SUBROUTINE UNLOAD_CGRID ( CGRID ) REAL, INTENT(IN) :: CGRID( :,:,:,: ) END SUBROUTINE UNLOAD_CGRID #endif END INTERFACE C----------------------------------------------------------------------- IF ( FIRST_RUN ) THEN TSTEP = 0 #ifdef mpas CALL INIT_ENV_VARS( 0, 0 ) #else STDATE = MODEL_STDATE STTIME = MODEL_STTIME #endif #ifdef twoway TSTEP( 1 ) = LOCAL_TSTEP TSTEP( 3 ) = SEC2TIME(MODEL_TSTEP) #else TSTEP( 1 ) = MODEL_TSTEP #endif IF (PRESENT (COUPLE_TSTEP)) THEN TSTEP( 3 ) = SEC2TIME( COUPLE_TSTEP ) MPAS_TSTEP = TSTEP( 3 ) END IF IF (PRESENT(NCOLS_IN)) THEN NCOLS = NCOLS_IN NROWS = 1 NLAYS = NLAYS_IN TSTEP( 2 ) = SEC2TIME( COUPLE_TSTEP ) END IF #ifdef mpas CALL MPCOMM_INIT( NPROCS, MYPE, BEGTIME, LMODE ) IO_PE_INCLUSIVE = .TRUE. call mpi_allreduce (ncols, ncols_gl, 1, mpi_int, mpi_sum, mpi_comm_world, status) call mio_init (NPROCS, 1, ncols_gl, nrows, logdev=logdev) C Set CGRID mechanism IF ( .NOT. CGRID_SPCS_INIT() ) THEN XMSG = 'Error in CGRID_SPCS:CGRID_SPCS_INIT' call M3EXIT (PNAME, JDATE, JTIME, XMSG, 1) END IF CALL GET_ENV ( LAND_SCHEME, 'LAND_SCHEME', 'NLCD40', LOGDEV ) ALLOCATE (CGRID ( NCOLS,NROWS,NLAYS,NSPCSD ), STAT = ALLOCSTAT) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'CGRID memory allocation failed' call M3EXIT (PNAME, JDATE, JTIME, XMSG, 1) END IF C Set up horizontal domain, calculate processor-to-subdomain maps C and define vertical layer structure (in module GRID_CONF) IF ( .NOT. GRID_INIT ( NPROCS, MYPE ) ) THEN XMSG = '*** Failure defining domain configuration' call M3EXIT (PNAME, JDATE, JTIME, XMSG, 1) END IF #else #ifdef twoway C Initialize Environment Variables JDATE = 0 JTIME = 0 CALL INIT_ENV_VARS( JDATE, JTIME ) #endif C Set up horizontal domain, calculate processor-to-subdomain maps C and define vertical layer structure (in module GRID_CONF) IF ( .NOT. GRID_INIT ( NPROCS, MYPE ) ) THEN XMSG = '*** Failure defining domain configuration' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF #ifdef verbose_driver write( logdev,* ) ' MYPE -> NPROCS: ', mype, nprocs write( logdev,* ) ' MYPE -> NPCOL: ', mype, npcol write( logdev,* ) ' MYPE -> NPROW: ', mype, nprow write( logdev,* ) ' MYPE -> MY_NCOLS: ', mype, ncols write( logdev,* ) ' MYPE -> MY_NROWS: ', mype, nrows write( logdev,* ) ' MYPE -> GL_NCOLS: ', mype, gl_ncols write( logdev,* ) ' MYPE -> GL_NROWS: ', mype, gl_nrows write( logdev,* ) ' MYPE -> NLAYS: ', mype, nlays write( logdev,* ) ' MYPE -> NBNDY: ', mype, nbndy #endif C Set CGRID mechanism IF ( .NOT. CGRID_SPCS_INIT() ) THEN XMSG = 'Error in CGRID_SPCS:CGRID_SPCS_INIT' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, 1 ) END IF #ifdef sens C Initialize ddm3d calculations CALL INIT_DDM3D #endif CALL MAP_AERO() #ifdef verbose_driver write( logdev,* ) ' MYPE -> NSPCS: ', mype, nspcsd #endif #ifdef parallel_io IF ( MOD( MYPE, NPCOL ) .EQ. 0 ) THEN #else IF ( MYPE .EQ. 0 ) THEN #endif IO_PE_INCLUSIVE = .TRUE. ELSE IO_PE_INCLUSIVE = .FALSE. END IF #ifdef parallel C Initialize PARIO IF ( .NOT. PIO_INIT( COLROW, GL_NCOLS, GL_NROWS, NLAYS, NTHIK, & NCOLS, NROWS, NPCOL, NPROW, NPROCS, MYPE, & wflg = WFLG, io_pe_inclusive = IO_PE_INCLUSIVE ) ) THEN XMSG = 'Failed to initialize parallel I/O library.' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF #endif C Initialize stencil exchange CALL SUBST_SE_INIT( NPROCS, NPCOL, NPROW, GL_NCOLS, GL_NROWS, NLAYS, & NSPCSD, MYPE, MNDIS, MEDIS, MSDIS, MWDIS ) #ifdef verbose_driver write( logdev,* ) ' MYPE -> MNDIS: ', mype, mndis write( logdev,* ) ' MYPE -> MEDIS: ', mype, medis write( logdev,* ) ' MYPE -> MSDIS: ', mype, msdis write( logdev,* ) ' MYPE -> MWDIS: ', mype, mwdis #endif C Generate the process analysis data: load PA_DEFN module CALL PA_DATAGEN( ) C Abort if the number of output variables exceeds the maximum allowed C by I/O-API IF ( NSPCSD .GT. MXVARS3 ) THEN WRITE( XMSG,'(5X, A, I5, A)' ) 'The number of variables,', NSPCSD, & ' to be written to the State CGRID File' CALL LOG_MESSAGE( LOGDEV, XMSG ) WRITE( XMSG,'(5X, A, I5)' ) 'exceeds the I/O-API limit:', MXVARS3 CALL LOG_MESSAGE( LOGDEV, XMSG ) XMSG = 'Recompile with an I/O-API lib having a larger MXVARS3' CALL LOG_MESSAGE( LOGDEV, XMSG ) CALL M3EXIT( PNAME, JDATE, JTIME, ' ', XSTAT1 ) END IF C Initialize PCGRID IF ( .NOT. PCGRID_INIT () ) THEN XMSG = 'Failure defining horizontal domain' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT2 ) END IF CGRID => PCGRID( 1:NCOLS,1:NROWS,:,: ) ! required for PinG C Initalize CONC definitions (in STD_CONC F90 module) CALL CONC_DEFN () C Get avg CONC definitions, species and layer pointers (in AVG_CONC F90 module) CALL A_CONC_DEFN () C Miscellaneous Configuration Operations WRITE( LOGDEV, * ) CALL LOG_HEADING( LOGDEV, "Configure Scenario" ) #ifdef isam c CALL GET_SA_LAYS () CALL SA_DIM() C Initialize PISAM IF ( .NOT. PISAM_INIT ( NSPC_SA, NTAG_SA ) ) THEN XMSG = 'Failure in defining SA horizontal domain' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT2 ) END IF ISAM => PISAM( 1:NCOLS,1:NROWS,:,:,: ) #endif C Initialize optional derived vertical velocity writes to conc file IF ( .NOT. WVEL_INIT () ) THEN XMSG = 'Failure initializing derived vertical velocity writes' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT2 ) END IF #ifdef sens C Initialize ddm3d calculations IF ( .NOT. S_PCGRID_IN( NPMAX ) ) THEN XMSG = 'Failure defining horizontal sens domain' CALL M3EXIT ( PNAME, 0, 0, XMSG, XSTAT2 ) END IF SENGRID => S_PCGRID(1:NCOLS,1:NROWS,:,:,:) SENGRID_TEMP => S_PCGRID_TEMP(1:NCOLS,1:NROWS,:,:) ALLOCATE ( SAGRID( NCOLS,NROWS,A_NLYS,NPMAX,N_ASPCS ), STAT = STATUS) IF ( STATUS .NE. 0 ) THEN XMSG = 'SAGRID memory allocation failed' CALL M3EXIT ( PNAME, 0, 0, XMSG, XSTAT1 ) END IF SAGRID = 0.0 #endif #endif ! end of mpas C Initialize Global Arrays for Storing Chemical, Regional, Process, C and Emission Stream Families call read_families C Initiliaze IO Arrays and Open Files #ifdef mpas call centralized_io_init (NCOLS_IN) #else call centralized_io_init #endif C Initialize ELMO Arrays and Maps call map_elmo C Initialize conc field: Copy IC's to CONC file as step 0 C Convention: the input file concentration units are always ppmV. CALL INITSCEN ( CGRID, TSTEP ) JDATE = STDATE; JTIME = STTIME #ifdef sens STARTDATE = STDATE ! save variable into DDM3D module #endif #ifndef mpas CALL CKSUMMER ( 'INITSCEN', CGRID, JDATE, JTIME ) IF ( LIPR .OR. LIRR ) CALL PA_INIT ( CGRID, JDATE, JTIME, TSTEP ) C Verify input file header consistency and run duration ! CALL FLCHECK ( JDATE, JTIME, TSTEP( 1 ) ) ALLOCATE ( AGRID( NCOLS,NROWS,A_NLYS,N_ASPCS ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'AGRID memory allocation failed' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF ALLOCATE ( ASTEP( NLAYS ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'ASTEP memory allocation failed' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF #ifdef isam ALLOCATE ( AISAM( NCOLS,NROWS,NLAYS,NSPC_SA,NTAG_SA ),STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'AISAM memory allocation failed' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF AISAM = 0. #endif #ifdef twoway IF ( SD_TIME_SERIES ) THEN CALL SD_TIME_SERIES_INIT ( LOGDEV, TSTEP( 3 ) ) CALL OUTPUT_SD_TIME_SERIES ( CGRID, JDATE, JTIME ) END IF IF ( CMAQ_WRF_FEEDBACK ) THEN CALL FEEDBACK_SETUP ( JDATE, JTIME, TSTEP( 3 ) ) END IF #endif #else ! if (.not. lus_init (mminlu_mpas, lufrac_data(:,:,1)) ) then ! CALL M3EXIT( 'DRIVER',JDATE,JTIME,'ERROR: Cannot initialize Land Use Category', 2) ! end if if (ncd_64bit_offset) then io_mode = ior (nf90_noclobber, nf90_64bit_offset) else io_mode = nf90_noclobber end if call mio_setfile ('GR_EMIS_001') if (L_ELMO) then call mio_fcreate (CTM_ELMO_1, io_mode) end if call get_env (mpas_diag, 'mpas_diag', .false.) if (mpas_diag) then call mio_fcreate ('CTM_OUT', io_mode) end if ! call mio_fcreate (CTM_DRY_DEP_1, io_mode) ! call mio_fcreate (CTM_WET_DEP_1, io_mode) if ( depv_diag ) then call mio_fcreate (CTM_DEPV_DIAG, io_mode) end if if ( cld_diag ) then call mio_fcreate (CTM_WET_DEP_2, io_mode) end if ! if (photdiag) then ! call mio_fcreate (CTM_RJ_1, io_mode) ! call mio_fcreate (CTM_RJ_2, io_mode) ! end if #endif C Initialize Meteorology Structures CALL INIT_LSM( JDATE, JTIME ) #ifndef mpas CALL INIT_BIDI( ) #endif CALL INIT_MET( JDATE, JTIME ) CALL GET_MET ( JDATE, JTIME, 0 ) IF ( W_VEL ) CALL GET_WVEL( JDATE, JTIME ) ! If the user wants vertical velocity written to file, retrieve it. FIRST_RUN = .FALSE. C Main processing loop: IF ( MYPE .EQ. 0 ) WRITE( OUTDEV, * ) IF ( MYPE. EQ. 0 ) CALL LOG_HEADING( OUTDEV, "Time Integration" ) END IF ! first_run MODEL_JDATE = JDATE MODEL_JTIME = JTIME #ifdef mpas mpas_cmaq_last_step = LAST_STEP v = size(cgrid, 4) DO L = 1, NLAYS DO C = 1, NCOLS CGRID( C,1,L,1:N_GC_SPC ) = cmaq_species( c,1,l,1:N_GC_SPC ) CGRID( C,1,L,N_GC_SPC+2:v ) = cmaq_species( c,1,l,N_GC_SPC+1:v-1 ) END DO END DO ! If this run is not a restart, then check the initial conditions ! to make sure they are physically realistic. Check Aerosol Size ! Distributions and Warn the User if They Are Not Robust. call get_env (NEW_START, 'NEW_START', .false.) IF ( NEW_START ) THEN ALLOCATE( AECON( N_AE_SPC ) ) SPC_STRT = AE_STRT SPC_FINI = AE_STRT + N_AE_SPC - 1 LSTAT = .FALSE. DO L = 1, NLAYS DO R = 1, NROWS DO C = 1, NCOLS AECON( 1:N_AE_SPC ) = CGRID( C,R,L,SPC_STRT:SPC_FINI ) CALL CHECK_AERO_ICBC( AECON, .FALSE., .TRUE., .FALSE., L_WRITE_WARNING, C, R, L) CGRID( C,R,L,SPC_STRT:SPC_FINI ) = AECON( 1:N_AE_SPC ) IF ( STAT .GT. 0 ) THEN LSTAT = .TRUE. ENDIF END DO END DO END DO !Print warning if any aerosol ICs violated the size !distribution parameters IF ( LSTAT ) THEN WRITE( XMSG, '(A,A)' ), & 'Applying fix to aerosol Initial Conditions for aerosol', & ' modes.' print *, trim(xmsg) END IF END IF NREPS = 1 #else C Get synchronization and advection time steps, TSTEP(2), ASTEP(L) and NREPS CALL ADVSTEP ( JDATE, JTIME, TSTEP, ASTEP, NREPS ) IF ( MOD( TIME2SEC( JTIME ), TIME2SEC( TSTEP( 1 ) ) ) .EQ. 0 ) THEN DO V = 1, N_ASPCS S = AVG_CONC_MAP( V ) AGRID( :,:,:,V ) = CGRID( :,:,ACONC_BLEV:ACONC_ELEV,S ) #ifdef sens DO NP = 1, NPMAX SAGRID( :,:,:,NP,V ) = SENGRID( :,:,ACONC_BLEV:ACONC_ELEV,NP,S ) END DO #endif if END DO #ifdef isam IF ( AISAM_ELEV .EQ. -1 ) AISAM_ELEV = NLAYS DO ITAG = 1, NTAG_SA ! average isam DO V = 1, NSPC_SA L = 0 DO K = AISAM_BLEV, AISAM_ELEV L = L + 1 DO R = 1, NROWS DO C = 1, NCOLS AISAM( C,R,L,V,ITAG ) = ISAM( C,R,K,V,ITAG ) END DO END DO END DO END DO END DO #endif IF ( W_VEL ) & AVG_WVEL( :,:,: ) = WVEL( :,:,ACONC_BLEV:ACONC_ELEV ) IF ( L_ACONC_RH ) & AVG_RH( :,:,: ) = MET_DATA%RH( :,:,ACONC_BLEV:ACONC_ELEV) IF ( L_ACONC_TA ) & AVG_TA( :,:,: ) = MET_DATA%TA( :,:,ACONC_BLEV:ACONC_ELEV) IF ( L_ACONC_PRES ) & AVG_PRES( :,:,: ) = MET_DATA%PRES( :,:,ACONC_BLEV:ACONC_ELEV ) END IF #endif C Compute ELMO Values at Beginning of Main Time Step IF ( L_ELMO ) THEN IF ( JDATE .EQ. STDATE .AND. JTIME .EQ. STTIME ) THEN ! Calculate all ELMO variables for both Instantaneous and ! Average parameters CALL ELMO_DRIVER( CGRID, JDATE, JTIME, TSTEP, INIT_TIME=.TRUE.) ! Print Instantaneous Values at first time step CALL WRITE_ELMO( JDATE, JTIME, TSTEP, INIT_TIME=.TRUE. ) ELSE IF ( ELMO_NSTEP .LT. 1.0 ) THEN ! Calculate all ELMO Variables for averaging but do not output them CALL ELMO_DRIVER( CGRID, JDATE, JTIME, TSTEP, INIT_TIME=.FALSE. ) END IF END IF C Initialize Budget Output File and Concentration Array IF ( BUDGET_DIAG ) CALL BUDGET_INIT( CGRID, JDATE, JTIME, TSTEP ) C science process sequence: myNREPS = myNREPS + NREPS DO IREP = 1, NREPS CALL SCIPROC ( CGRID, JDATE, JTIME, TSTEP, ASTEP ) #ifndef mpas C Use trapezoidal rule to time-average data DO V = 1, N_ASPCS S = AVG_CONC_MAP( V ) AGRID( :,:,:,V ) = AGRID( :,:,:,V ) & + 2.0 * CGRID( :,:,ACONC_BLEV:ACONC_ELEV,S ) #ifdef sens DO NP = 1, NPMAX SAGRID( :,:,:,NP,V ) = SAGRID( :,:,:,NP,V ) & + 2.0 * SENGRID( :,:,ACONC_BLEV:ACONC_ELEV,NP,S ) END DO #endif END DO IF ( W_VEL ) & AVG_WVEL( :,:,: ) = AVG_WVEL + 2.0 * WVEL( :,:,ACONC_BLEV:ACONC_ELEV ) IF ( L_ACONC_RH ) & AVG_RH( :,:,: ) = AVG_RH + 2.0 * MET_DATA%RH( :,:,ACONC_BLEV:ACONC_ELEV ) IF ( L_ACONC_TA ) & AVG_TA( :,:,: ) = AVG_TA + 2.0 * MET_DATA%TA( :,:,ACONC_BLEV:ACONC_ELEV ) IF ( L_ACONC_PRES ) & AVG_PRES( :,:,: ) = AVG_PRES + 2.0 * MET_DATA%PRES( :,:,ACONC_BLEV:ACONC_ELEV ) #ifdef isam ! average isam DO ITAG = 1, NTAG_SA DO V = 1, NSPC_SA L = 0 DO K = AISAM_BLEV, AISAM_ELEV L = L + 1 DO R = 1, NROWS DO C = 1, NCOLS AISAM( C,R,L,V,ITAG ) = AISAM( C,R,L,V,ITAG ) & + 2.0 * ISAM( C,R,K,V,ITAG ) END DO END DO END DO END DO END DO #endif #endif ! OUTPUT DIAGNOSTIC INFORMATION IF ( L_ELMO ) CALL ELMO_DRIVER( CGRID, JDATE, JTIME, TSTEP, INIT_TIME=.FALSE. ) END DO #ifndef mpas IF ( MOD( TIME2SEC( JTIME ), TIME2SEC( TSTEP( 1 ) ) ) .EQ. 0 ) THEN DIVFAC = 0.5 / FLOAT( myNREPS ) myNREPS = 0 DO V = 1, N_ASPCS S = AVG_CONC_MAP( V ) AGRID( :,:,:,V ) = DIVFAC * ( AGRID( :,:,:,V ) & - CGRID( :,:,ACONC_BLEV:ACONC_ELEV,S ) ) #ifdef sens DO NP = 1, NPMAX SAGRID( :,:,:,NP,V ) = DIVFAC * ( SAGRID( :,:,:,NP,V ) & - SENGRID( :,:,ACONC_BLEV:ACONC_ELEV,NP,S ) ) END DO #endif END DO IF ( W_VEL ) & AVG_WVEL( :,:,: ) = DIVFAC * ( AVG_WVEL( :,:,: ) - WVEL( :,:,ACONC_BLEV:ACONC_ELEV ) ) IF ( L_ACONC_RH ) & AVG_RH( :,:,: ) = DIVFAC * ( AVG_RH( :,:,: ) - MET_DATA%RH( :,:,ACONC_BLEV:ACONC_ELEV ) ) IF ( L_ACONC_TA ) & AVG_TA( :,:,: ) = DIVFAC * ( AVG_TA - MET_DATA%TA( :,:,ACONC_BLEV:ACONC_ELEV ) ) IF ( L_ACONC_PRES ) & AVG_PRES( :,:,: ) = DIVFAC * ( AVG_PRES - MET_DATA%PRES( :,:,ACONC_BLEV:ACONC_ELEV ) ) #ifdef isam DO ITAG = 1, NTAG_SA ! average isam DO V = 1, NSPC_SA L = 0 DO K = AISAM_BLEV, AISAM_ELEV L = L + 1 DO R = 1, NROWS DO C = 1, NCOLS AISAM( C,R,L,V,ITAG ) = DIVFAC * ( AISAM(C,R,L,V,ITAG ) & - ISAM( C,R,K,V,ITAG ) ) END DO END DO END DO END DO END DO #endif END IF DO V = 1, N_CSPCS S = CONC_MAP( V ) SGRID( :,:,:,V ) = CGRID( :,:,CONC_BLEV:CONC_ELEV,S ) END DO C write conc fields IF ( MOD( TIME2SEC( JTIME ), TIME2SEC( TSTEP( 1 ) ) ) .EQ. 0 ) THEN #ifdef parallel CPU_TIME_START = MPI_WTIME() #else CALL CPU_TIME( REAL_TIME ) CPU_TIME_START = REAL( REAL_TIME,8 ) #endif CALL WR_CONC ( JDATE, JTIME, TSTEP( 1 ) ) #ifdef parallel IF ( LVEXT ) CALL WR_VEXT ( CGRID, JDATE, JTIME, TSTEP( 1 ) ) #endif CALL WR_ACONC ( AGRID, JDATE, JTIME, TSTEP( 1 ) ) #ifdef isam CALL WR_SA ( JDATE, JTIME, TSTEP, 1 ) CALL WR_AVG_SA ( JDATE, JTIME, TSTEP( 1 ) ) #endif #ifdef sens CALL WR_ASENS ( JDATE, JTIME, TSTEP( 1 ) ) #endif IF ( L_ELMO ) CALL WRITE_ELMO( JDATE, JTIME, TSTEP, INIT_TIME=.FALSE. ) IF ( LIPR .OR. LIRR ) CALL PA_OUTPUT ( CGRID, JDATE, JTIME ) IF ( BUDGET_DIAG ) CALL WRITE_BUDGET ( CGRID, JDATE, JTIME, TSTEP ) IF ( PRINT_PROC_TIME ) CALL TIMING_SPLIT ( CPU_TIME_START, 3 ) END IF #ifdef twoway IF ( SD_TIME_SERIES ) THEN CALL OUTPUT_SD_TIME_SERIES ( CGRID, JDATE, JTIME ) END IF #endif #else CALL UNLOAD_CGRID (CGRID) #endif IF ( LAST_STEP ) THEN #ifdef mpas call mio_shutdown() #else C write CGRID state file for subsequent runs CALL WR_CGRID ( CGRID, JDATE, JTIME, TSTEP( 1 ) ) #ifdef isam CALL WR_SA_CGRID ( JDATE, JTIME, TSTEP( 1 ) ) #endif #ifdef sens CALL WR_SENGRID ( JDATE, JTIME, TSTEP( 1 ) ) #endif C Shut down IOAPI IF ( SHUT3() ) THEN WRITE( LOGDEV, * ) CALL LOG_HEADING( LOGDEV, 'Program Completed Successfully' ) WRITE( XMSG, '(A,A,A,I7,A,I6.6,A)' ) 'Date and time ', & DT2STR( JDATE, JTIME ), ' (',JDATE,':',JTIME,')' CALL LOG_MESSAGE( LOGDEV, XMSG ) IF ( MYPE .EQ. 0 ) WRITE( OUTDEV, * ) IF ( MYPE .EQ. 0 ) CALL LOG_HEADING( OUTDEV, 'Program Completed Successfully' ) IF ( MYPE .EQ. 0 ) CALL LOG_MESSAGE( OUTDEV, XMSG ) ELSE CALL LOG_MESSAGE( LOGDEV, ' *** FATAL ERROR shutting down Models-3 I/O *** ' ) END IF #endif END IF END SUBROUTINE CMAQ_DRIVER ================================================ FILE: CCTM/src/driver/hveloc.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE HVELOC ( JDATE, JTIME, TSTEP, UWIND, VWIND, HDIV ) C----------------------------------------------------------------------- C Function: C This subroutine reads physical velocities in the x1 and x2 directions C and returns the contravariant velocities and the horizontal divergence C Preconditions: C This routine can be used only for conformal map coordinates C in the horizontal. C Dates and times should be represented YYYYDDD:HHMMSS. C Subroutines and functions called: C INTERPX, INTERPB, M3EXIT, TIME2SEC, SEC2TIME, NEXTIME C Revision history: C January 30, 1996 by Clint L. Ingram at NCSC: created for C RADM-coordinates C 22 Apr 97 Jeff: C 7 Aug 97 Jeff: for NTHIK = 1 C 4 Feb 98 Jeff: deal with end-of-scenario C 20 Sep 98 David Wong: parallelized the code C -- adjust the data declaration for DENSJ C -- remove indirect index reference, and re-adapt to C a general case C -- invoke stencil exchange library C 21 Nov 00 J.Young: PE_COMM3 -> Dave Wong's f90 stenex COMM C 30 Mar 01 J.Young: dyn alloc - Use HGRD_DEFN; replace INTERP3 with INTERPX C 6 Apr 01 J.Young: Eliminate NTHIN confusion (assumes NTHIK = 1) C 12 Apr 01 J.Young: Use PINTERPB for boundary data C 23 Jun 03 J.Young: for layer dependent advection tstep C 31 Jan 05 J.Young: dyn alloc - establish both horizontal & vertical C domain specifications in one module C 15 Mar 10 J.Young: revert back to 3D arrays and calculate the horiz. div. C (similar to the deform.F code) C 16 Feb 11 S.Roselle: replaced I/O API include files with UTILIO_DEFN C 11 May 11 D.Wong: incorporated twoway model implementation C 28 Jul 11 David Wong: set REVERT to .false. for twoway model case since C buffered file has only two time steps data C 01 Feb 19 David Wong: Implemented centralized I/O approach, removed all MY_N C clauses C----------------------------------------------------------------------- USE GRID_CONF ! horizontal & vertical domain specifications USE UTILIO_DEFN #ifndef mpas #ifdef parallel USE SE_MODULES ! stenex (using SE_COMM_MODULE) #else USE NOOP_MODULES ! stenex (using NOOP_COMM_MODULE) #endif #endif USE CENTRALIZED_IO_MODULE, only : interpolate_var, window ! & STRTCOLMC2, ENDCOLMC2, STRTROWMC2, ENDROWMC2 IMPLICIT NONE C Includes: INCLUDE SUBST_FILES_ID ! file name parameters INCLUDE SUBST_CONST ! constants INCLUDE SUBST_PE_COMM ! PE communication displacement and direction C Parameters C Arguments: INTEGER, INTENT( IN ) :: JDATE ! current model date, coded YYYYDDD INTEGER, INTENT( IN ) :: JTIME ! current model time, coded HHMMSS INTEGER, INTENT( IN ) :: TSTEP ! time step (HHMMSS) ! REAL WIND( NCOLS+1,NROWS+1 ) ! CX xi-velocity REAL, INTENT( OUT ) :: UWIND( :,:,: ) ! CX xi-velocity REAL, INTENT( OUT ) :: VWIND( :,:,: ) ! CX yi-velocity REAL, INTENT( OUT ) :: HDIV ( :,:,: ) ! horizontal divergence C file variables: ! REAL DENSJ_BUF( NCOLS,NROWS,NLAYS ) ! Jacobian * air density ! REAL DENSJ_BND( NBNDY,NLAYS ) ! bndy Jacobian * air density ! REAL DENSJ( 0:NCOLS+1,0:NROWS+1,NLAYS ) REAL, ALLOCATABLE, SAVE :: DENSJ_BUF( :,:,: ) ! Jacobian * air density REAL, ALLOCATABLE, SAVE :: DENSJ_BND( :,: ) ! bndy Jacobian * air density REAL, ALLOCATABLE, SAVE :: DENSJ( :,:,: ) ! Jacobian * air density C External Functions: C local variables: LOGICAL, SAVE :: FIRSTIME = .TRUE. INTEGER MDATE ! mid-advection date INTEGER MTIME ! mid-advection time INTEGER STEP ! advection time step in seconds INTEGER, SAVE :: LDATE( 3 ) ! last date for data on file INTEGER, SAVE :: LTIME( 3 ) ! last time for data on file LOGICAL REVERT ! recover last time step if true REAL DJ ! temporary Jacobian * air density REAL :: DX1, DX2 ! X1 & X2 grid size REAL, SAVE :: RDX1, RDX2 ! inverse of DX1 & DX2 INTEGER C, C1, R, R1, L ! induction variables INTEGER BND ! cell index for constructing density array. INTEGER ALLOCSTAT CHARACTER( 16 ) :: VNAME CHARACTER( 16 ) :: PNAME = 'HVELOC' CHARACTER( 16 ) :: AMSG CHARACTER( 96 ) :: XMSG = ' ' CHARACTER( 8 ), SAVE :: COMMSTR ! INTEGER :: NCOLSDENS, NROWSDENS ! local for DENSJ_BUF C for INTERPX ! INTEGER, SAVE :: STRTCOL, ENDCOL, STRTROW, ENDROW ! INTEGER :: STRTCOLMC, ENDCOLMC, STRTROWMC, ENDROWMC ! INTEGER, SAVE :: STRTCOLMD, ENDCOLMD, STRTROWMD, ENDROWMD C----------------------------------------------------------------------- #ifndef mpas IF ( FIRSTIME ) THEN FIRSTIME = .FALSE. CALL LSTEPF( MET_CRO_3D, LDATE( 1 ), LTIME( 1 ) ) ! CALL LSTEPF( MET_BDY_3D, LDATE( 2 ), LTIME( 2 ) ) CALL LSTEPF( MET_DOT_3D, LDATE( 3 ), LTIME( 3 ) ) ! LDATE( 1 ) = MIN( LDATE( 1 ), LDATE( 2 ), LDATE( 3 ) ) ! LTIME( 1 ) = SEC2TIME( MIN( ! & TIME2SEC( LTIME( 1 ) ), ! & TIME2SEC( LTIME( 2 ) ), ! & TIME2SEC( LTIME( 3 ) ) ! & ) ) LDATE( 1 ) = MIN( LDATE( 1 ), LDATE( 3 ) ) LTIME( 1 ) = SEC2TIME( MIN( & TIME2SEC( LTIME( 1 ) ), & TIME2SEC( LTIME( 3 ) ) & ) ) WRITE( COMMSTR,'(4I2)' ) 1, 1-NTHIK, 2, 1-NTHIK ! ' 1 0 2 0' C Get/compute DX1 & DX2 IF ( GDTYP_GD .EQ. LATGRD3 ) THEN DX1 = DG2M * XCELL_GD ! in m. DX2 = DG2M * YCELL_GD * & COS( PI180*( YORIG_GD + YCELL_GD * FLOAT( GL_NROWS/2 ))) !in m ELSE DX1 = XCELL_GD ! in m. DX2 = YCELL_GD ! in m. END IF RDX1 = 1.0 / DX1 RDX2 = 1.0 / DX2 ALLOCATE ( DENSJ( 0:NCOLS+1,0:NROWS+1,NLAYS ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating DENSJ' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF IF ( .NOT. WINDOW ) THEN ALLOCATE ( DENSJ_BUF( ncols, nrows, NLAYS ),STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating DENSJ_BUF' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF ALLOCATE ( DENSJ_BND( NBNDY,NLAYS ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating DENSJ_BND' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF END IF END IF ! if firstime MDATE = JDATE MTIME = JTIME STEP = TIME2SEC( TSTEP ) CALL NEXTIME( MDATE, MTIME, SEC2TIME( STEP / 2 ) ) #ifdef twoway REVERT = .FALSE. #else IF ( MDATE .LT. LDATE( 1 ) ) THEN REVERT = .FALSE. ELSE IF ( MDATE .EQ. LDATE( 1 ) ) THEN IF ( MTIME .LE. LTIME( 1 ) ) THEN REVERT = .FALSE. ELSE REVERT = .TRUE. END IF ELSE ! MDATE .GT. LDATE REVERT = .TRUE. END IF #endif IF ( REVERT ) THEN XMSG = 'Current scenario interpolation step not available in all of ' & // TRIM( MET_CRO_3D ) // ', ' & // TRIM( MET_BDY_3D ) // ' and ' & // TRIM( MET_DOT_3D ) CALL M3MESG( XMSG ) WRITE( AMSG,'( 2I8 )' ) LDATE( 1 ), LTIME( 1 ) XMSG = 'Using data for last file step: ' // TRIM( AMSG ) CALL M3MESG( XMSG ) MDATE = LDATE( 1 ) MTIME = LTIME( 1 ) END IF C Interpolate Jacobian X Air Density IF ( WINDOW ) THEN call interpolate_var ('DENSA_J', mdate, mtime, DENSJ) ELSE ! need to extend data from bndy file call interpolate_var ('DENSA_J', mdate, mtime, DENSJ_BUF) call interpolate_var ('DENSA_J', mdate, mtime, DENSJ_BND, 'b') C Load DENSJ array DO L = 1, NLAYS DO R = 1, NROWS DO C = 1, NCOLS DENSJ( C,R,L ) = DENSJ_BUF( C,R,L ) END DO END DO END DO C Fill in DENSJ array for boundaries DO L = 1, NLAYS BND = 0 DO R = 0, 0 DO C = 1, NCOLS+1 BND = BND + 1 DENSJ( C,R,L ) = DENSJ_BND( BND,L ) ! South END DO END DO DO R = 1, NROWS+1 DO C = NCOLS+1, NCOLS+1 BND = BND + 1 DENSJ( C,R,L ) = DENSJ_BND( BND,L ) ! East END DO END DO DO R = NROWS+1, NROWS+1 DO C = 0, NCOLS BND = BND + 1 DENSJ( C,R,L ) = DENSJ_BND( BND,L ) ! North END DO END DO DO R = 0, NROWS DO C = 0, 0 BND = BND + 1 DENSJ( C,R,L ) = DENSJ_BND( BND,L ) ! West END DO END DO END DO END IF ! WINDOW C Interpolate Contravariant Velocity components (already at flux points) C X Jacobian X Air Density call interpolate_var ('UHAT_JD', mdate, mtime, UWIND) call interpolate_var ('VHAT_JD', mdate, mtime, VWIND) C Obtain flux point values of Jacobian * air density and retrieve C contravariant velocities C store actual north, east, south, and west displacement C define communication pattern CALL SUBST_COMM ( DENSJ, DSPL_N0_E0_S0_W1, DRCN_W, COMMSTR ) DO L = 1, NLAYS DO R = 1, NROWS DO C = 1, NCOLS+1 DJ = 0.5 * ( DENSJ( C,R,L ) + DENSJ( C-1,R,L ) ) UWIND( C,R,L ) = UWIND( C,R,L ) / DJ END DO END DO END DO C store actual north, east, south, and west displacement C define communication pattern CALL SUBST_COMM ( DENSJ, DSPL_N0_E0_S1_W0, DRCN_S, COMMSTR ) DO L = 1, NLAYS DO R = 1, NROWS+1 DO C = 1, NCOLS DJ = 0.5 * ( DENSJ( C,R,L ) + DENSJ( C,R-1,L ) ) VWIND( C,R,L ) = VWIND( C,R,L ) / DJ END DO END DO END DO C Compute horizontal divergence CALL SUBST_COMM ( UWIND, DSPL_N0_E1_S0_W0, DRCN_E_W ) CALL SUBST_COMM ( VWIND, DSPL_N1_E0_S0_W0, DRCN_N_S ) DO L = 1, NLAYS DO R = 1, NROWS R1 = R + 1 DO C = 1, NCOLS C1 = C + 1 HDIV( C,R,L ) = ( UWIND( C1,R,L ) - UWIND( C,R,L ) ) * RDX1 & + ( VWIND( C,R1,L ) - VWIND( C,R,L ) ) * RDX2 END DO END DO END DO #endif RETURN END ================================================ FILE: CCTM/src/driver/sciproc.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE SCIPROC ( CGRID, JDATE, JTIME, TSTEP, ASTEP ) C----------------------------------------------------------------------- C Function: C Controls all of the physical and chemical processes for a grid C Operator splitting symmetric around chemistry C Preconditions: C Dates and times represented YYYYDDD:HHMMSS. C No "skipped" dates and times. All boundary input variables (layered or C non-layered) have the same perimeter structure with a thickness of NTHIK C Subroutines and functions called: C All physical and chemical subroutines, C DECOUPLE, COUPLE C Revision History: C Oct. 24, 1995 by M. Talat Odman and Clint L. Ingram at NCSC: created C 13 Dec 97 - Jeff - uncouple diffusion processes C 27 Jun 98 - Jeff - sync step = chem step C 7 Jul 01 - Shawn - mv cloud processing before chem C Jan 02 - Jeff - dyn alloc; remove PCGRID argument to ping C 23 Jun 03 J.Young: for layer dependent advection tstep C 18 Aug 03 J. Pleim - move vdiff before advection C 29 Aug 03 J.Young: eliminate symmetric processing option and unused C SUBST_GRID_ID string C 30 May 05 J.Young: mass-conserving advection (yamo) C 7 Jul 07 J.Young: No cksummer call after HADV - delay possible truncation of C HADV negative conc's until after ZADV C 25 Jul 08 S.Roselle: removed PING from modeled processes C 16 Feb 11 S.Roselle: replaced I/O API include files with UTILIO_DEFN C 11 May 11 D.Wong: incorporated twoway model implementation C 25 Mar 16 R.Mathur: incorporated pot. vorticity strat. O3 scaling C 16 Sep 16 J.Young: update for inline procan (IPR) C 10 July 19 F. Sidi: Renamed Couple_WRF to be couple C----------------------------------------------------------------------- USE UTILIO_DEFN USE RUNTIME_VARS, ONLY: LOGDEV, OUTDEV, MYPE, CKSUM, & PRINT_PROC_TIME, WEEKDAY, & LOG_MESSAGE, TIMING_SPLIT, STM, & COLUMN_MODEL, LPVO3 #ifndef mpas #ifdef parallel USE SE_MODULES ! stenex (using SE_UTIL_MODULE) #else USE NOOP_MODULES ! stenex (using NOOP_UTIL_MODULE) #endif USE PA_UPDATE #endif USE PA_DEFN, Only: LIPR, IPR_VDIF, IPR_ZADV, IPR_HDIF, IPR_CLDS, & IPR_CHEM, IPR_PVO3, & BUDGET_DIAG ! Process Analysis control and data variables #ifdef isam USE SA_DEFN, Only: ISAM USE GRID_CONF USE CGRID_SPCS, ONLY: NSPCSD #endif USE STM_MODULE, ONLY: STM_WRAP_GAS, STM_WRAP_AE IMPLICIT NONE #ifdef parallel INCLUDE 'mpif.h' #endif C Arguments: REAL, POINTER :: CGRID( :,:,:,: ) INTEGER, INTENT(INOUT) :: JDATE ! current model date, coded YYYYDDD INTEGER, INTENT(INOUT) :: JTIME ! current model time, coded HHMMSS INTEGER, INTENT(IN) :: TSTEP( 3 ) ! time step vector (HHMMSS) ! TSTEP(1) = local output step ! TSTEP(2) = sciproc sync. step (chem) ! TSTEP(3) = twoway model time step w.r.t. wrf time ! step and wrf/cmaq call frequency INTEGER, INTENT(IN) :: ASTEP( : ) ! layer advection time step C Local Variables: CHARACTER( 16 ) :: PNAME = 'SCIPROC' CHARACTER( 120 ) :: XMSG = ' ' CHARACTER( 36 ) :: NMSG = 'After NEXTIME: returned JDATE, JTIME' INTEGER :: SDATE ! current science process date, coded YYYYDDD INTEGER :: STIME ! current science process time, coded HHMMSS REAL :: REAL_TIME REAL( 8 ) :: CPU_TIME_START ! Timing individual REAL( 8 ) :: CPU_TIME_START_MASTER CHARACTER( 24 ) :: CDATE_TIME #ifdef isam REAL, ALLOCATABLE, SAVE :: CGRID0( :,:,:,: ) LOGICAL, SAVE :: FIRSTIME = .TRUE. #endif INTERFACE SUBROUTINE CKSUMMER ( PNAME, CGRID, JDATE, JTIME ) CHARACTER( * ), INTENT( IN ) :: PNAME REAL, POINTER :: CGRID( :,:,:,: ) INTEGER, INTENT( IN ) :: JDATE, JTIME END SUBROUTINE CKSUMMER #ifndef mpas SUBROUTINE HADV ( CGRID, JDATE, JTIME, TSTEP, ASTEP ) REAL, POINTER :: CGRID( :,:,:,: ) INTEGER, INTENT( IN ) :: JDATE, JTIME INTEGER, INTENT( IN ) :: TSTEP( 3 ) INTEGER, INTENT( IN ) :: ASTEP( : ) END SUBROUTINE HADV SUBROUTINE ZADV ( CGRID, JDATE, JTIME, TSTEP ) REAL, POINTER :: CGRID( :,:,:,: ) INTEGER, INTENT( IN ) :: JDATE, JTIME INTEGER, INTENT( IN ) :: TSTEP( 3 ) END SUBROUTINE ZADV SUBROUTINE COUPLE ( CGRID, JDATE, JTIME, TSTEP ) REAL, POINTER :: CGRID( :,:,:,: ) INTEGER, INTENT( IN ) :: JDATE, JTIME INTEGER, INTENT( IN ) :: TSTEP( 3 ) END SUBROUTINE COUPLE SUBROUTINE DECOUPLE ( CGRID, JDATE, JTIME, TSTEP ) REAL, POINTER :: CGRID( :,:,:,: ) INTEGER, INTENT( IN ) :: JDATE, JTIME INTEGER, INTENT( IN ) :: TSTEP( 3 ) END SUBROUTINE DECOUPLE SUBROUTINE HDIFF ( CGRID, JDATE, JTIME, TSTEP ) REAL, POINTER :: CGRID( :,:,:,: ) INTEGER, INTENT( IN ) :: JDATE, JTIME INTEGER, INTENT( IN ) :: TSTEP( 3 ) END SUBROUTINE HDIFF #endif SUBROUTINE VDIFF ( CGRID, JDATE, JTIME, TSTEP ) REAL, POINTER :: CGRID( :,:,:,: ) INTEGER, INTENT( IN ) :: JDATE, JTIME INTEGER, INTENT( IN ) :: TSTEP( 3 ) END SUBROUTINE VDIFF SUBROUTINE PHOT ( CGRID, JDATE, JTIME, TSTEP ) REAL, POINTER :: CGRID( :,:,:,: ) INTEGER, INTENT( IN ) :: JDATE, JTIME INTEGER, INTENT( IN ) :: TSTEP( : ) END SUBROUTINE PHOT SUBROUTINE CLDPROC ( CGRID, JDATE, JTIME, TSTEP ) REAL, POINTER :: CGRID( :,:,:,: ) INTEGER, INTENT( IN ) :: JDATE, JTIME INTEGER, INTENT( IN ) :: TSTEP( 3 ) END SUBROUTINE CLDPROC SUBROUTINE CHEM ( CGRID, JDATE, JTIME, TSTEP ) REAL, POINTER :: CGRID( :,:,:,: ) INTEGER, INTENT( IN ) :: JDATE, JTIME INTEGER, INTENT( IN ) :: TSTEP( 3 ) END SUBROUTINE CHEM SUBROUTINE PVO3 ( CGRID, JDATE, JTIME ) IMPLICIT NONE REAL, POINTER :: CGRID( :,:,:,: ) INTEGER, INTENT( IN ) :: JDATE, JTIME END SUBROUTINE PVO3 SUBROUTINE AERO ( CGRID, JDATE, JTIME, TSTEP ) REAL, POINTER :: CGRID( :,:,:,: ) INTEGER, INTENT( IN ) :: JDATE, JTIME INTEGER, INTENT( IN ) :: TSTEP( 3 ) END SUBROUTINE AERO #ifdef isam SUBROUTINE SA_WRAP_AE( CGRID0, CGRID, JDATE, JTIME, TSTEP ) IMPLICIT NONE REAL :: CGRID0( :,:,:,: ) REAL, POINTER :: CGRID( :,:,:,: ) INTEGER, INTENT( IN ) :: JDATE INTEGER, INTENT( IN ) :: JTIME INTEGER, INTENT( IN ) :: TSTEP( 3 ) END SUBROUTINE SA_WRAP_AE #endif END INTERFACE C----------------------------------------------------------------------- #ifdef isam IF ( FIRSTIME ) THEN FIRSTIME = .FALSE. ALLOCATE( CGRID0( NCOLS,NROWS,NLAYS,NSPCSD ) ) END IF #endif ! Calculate and Write Time Step Information to Summary Logfile IF ( MYPE .EQ. 0 ) WRITE( OUTDEV, * ) WRITE( LOGDEV, * ) #ifdef parallel CPU_TIME_START = MPI_WTIME() #else CALL CPU_TIME( REAL_TIME ) CPU_TIME_START = REAL( REAL_TIME,8 ) #endif CPU_TIME_START_MASTER = CPU_TIME_START WRITE( XMSG, '(A,I7.7,A,I6.6)' ), 'Processing Day/Time [YYYYDDD:HHMMSS]: ',JDATE, & ':',JTIME IF ( MYPE .EQ. 0 ) CALL LOG_MESSAGE( OUTDEV, XMSG ) CALL LOG_MESSAGE( LOGDEV, XMSG ) CDATE_TIME = DT2STR( JDATE, JTIME ) WRITE( XMSG, '(2x,6A)' ), 'Which is Equivalent to (UTC): ', & CDATE_TIME(1:8),' ',TRIM( WEEKDAY( WKDAY( JDATE ) ) ), & ',', CDATE_TIME(9:) IF ( MYPE .EQ. 0 ) CALL LOG_MESSAGE( OUTDEV, XMSG ) CALL LOG_MESSAGE( LOGDEV, XMSG ) WRITE( XMSG, '(2x,A,I6.6)' ), 'Time-Step Length (HHMMSS): ',TSTEP(2) IF ( MYPE .EQ. 0 ) CALL LOG_MESSAGE( OUTDEV, XMSG ) CALL LOG_MESSAGE( LOGDEV, XMSG ) ! Calculate Vertical Diffusion, Dry Deposition, and Emissions CALL VDIFF ( CGRID, JDATE, JTIME, TSTEP ) IF ( CKSUM ) CALL CKSUMMER ( 'VDIFF', CGRID, JDATE, JTIME ) #ifndef mpas IF ( BUDGET_DIAG .OR. LIPR ) CALL PA_UPDATE_PROC ( IPR_VDIF, CGRID, JDATE, JTIME, TSTEP, .FALSE. ) #endif IF ( PRINT_PROC_TIME ) CALL TIMING_SPLIT ( CPU_TIME_START, 1, 'VDIFF' ) ! Save time at end of the current time-step in SDATE and STIME SDATE = JDATE STIME = JTIME CALL NEXTIME ( SDATE, STIME, TSTEP( 2 ) ) IF ( .NOT. COLUMN_MODEL ) THEN ! Calculate Horizontal Transport ! couple CGRID for advection and horizontal diffusion ! The COUPLE routine converts aerosol mass from ug/m3 to kg/m3. The ! DECOUPLE routine converts it back to ug/m3. #ifndef mpas CALL COUPLE ( CGRID, JDATE, JTIME, TSTEP ) IF ( CKSUM ) CALL CKSUMMER ( 'COUPLE', CGRID, JDATE, JTIME ) IF ( BUDGET_DIAG .OR. LIPR ) CALL PA_UPDATE_PROC ( IPR_ZADV, CGRID, JDATE, JTIME, TSTEP, .TRUE. ) IF ( PRINT_PROC_TIME ) CALL TIMING_SPLIT ( CPU_TIME_START, 1, 'COUPLE' ) CALL SUBST_BARRIER() CALL HADV ( CGRID, JDATE, JTIME, TSTEP, ASTEP ) IF ( CKSUM ) CALL CKSUMMER ( 'HADV', CGRID, JDATE, JTIME ) IF ( BUDGET_DIAG .OR. LIPR ) CALL PA_UPDATE_HADV ( CGRID, JDATE, JTIME, TSTEP ) IF ( PRINT_PROC_TIME ) CALL TIMING_SPLIT ( CPU_TIME_START, 1, 'HADV' ) CALL ZADV ( CGRID, JDATE, JTIME, TSTEP ) IF ( CKSUM ) CALL CKSUMMER ( 'ADV', CGRID, JDATE, JTIME ) IF ( BUDGET_DIAG .OR. LIPR ) CALL PA_UPDATE_PROC ( IPR_ZADV, CGRID, JDATE, JTIME, TSTEP, .TRUE. ) IF ( PRINT_PROC_TIME ) CALL TIMING_SPLIT ( CPU_TIME_START, 1, 'ZADV' ) CALL HDIFF ( CGRID, JDATE, JTIME, TSTEP ) IF ( CKSUM ) CALL CKSUMMER ( 'HDIFF', CGRID, JDATE, JTIME ) IF ( BUDGET_DIAG .OR. LIPR ) CALL PA_UPDATE_PROC ( IPR_HDIF, CGRID, JDATE, JTIME, TSTEP, .TRUE. ) IF ( PRINT_PROC_TIME ) CALL TIMING_SPLIT ( CPU_TIME_START, 1, 'HDIFF' ) #endif #ifndef mpas ! Decouple CGRID for cloud and chemistry corresponding to conditions ! at the end of the time step (i.e. SDATE, STIME) CALL DECOUPLE ( CGRID, SDATE, STIME, TSTEP ) IF ( CKSUM ) CALL CKSUMMER ( 'DECOUPLE', CGRID, JDATE, JTIME ) IF ( PRINT_PROC_TIME ) CALL TIMING_SPLIT ( CPU_TIME_START, 1, 'DECOUPLE' ) IF ( BUDGET_DIAG .OR. LIPR ) CALL PA_UPDATE_PROC ( IPR_ZADV, CGRID, SDATE, STIME, TSTEP, .FALSE. ) #endif END IF ! Not Column Model ! Calculate Photolysis Rates CALL PHOT ( CGRID, JDATE, JTIME, TSTEP ) IF ( CKSUM ) CALL CKSUMMER ( 'PHOT', CGRID, JDATE, JTIME ) IF ( PRINT_PROC_TIME ) CALL TIMING_SPLIT ( CPU_TIME_START, 1, 'PHOT' ) ! Calculate Cloud Scavening and Chemistry CALL CLDPROC ( CGRID, JDATE, JTIME, TSTEP ) IF ( CKSUM ) CALL CKSUMMER ( 'CLDPROC', CGRID, JDATE, JTIME ) #ifndef mpas IF ( BUDGET_DIAG .OR. LIPR ) CALL PA_UPDATE_PROC ( IPR_CLDS, CGRID, SDATE, STIME, TSTEP, .FALSE. ) #endif IF ( PRINT_PROC_TIME ) CALL TIMING_SPLIT ( CPU_TIME_START, 1, 'CLDPROC' ) ! Calculate Gas- and Particle-Phase Chemistry IF ( STM ) CALL STM_WRAP_GAS ( CGRID, JDATE, JTIME, .TRUE. ) CALL CHEM ( CGRID, JDATE, JTIME, TSTEP ) IF ( CKSUM ) CALL CKSUMMER ( 'CHEM', CGRID, JDATE, JTIME ) #ifndef mpas IF ( BUDGET_DIAG .OR. LIPR ) CALL PA_UPDATE_PROC ( IPR_CHEM, CGRID, SDATE, STIME, TSTEP, .FALSE. ) #endif IF ( STM ) CALL STM_WRAP_GAS ( CGRID, JDATE, JTIME, .FALSE. ) IF ( PRINT_PROC_TIME ) CALL TIMING_SPLIT ( CPU_TIME_START, 1, 'CHEM' ) IF ( LPVO3 ) THEN CALL PVO3 ( CGRID, JDATE, JTIME ) IF ( CKSUM ) CALL CKSUMMER ( 'PVO3', CGRID, JDATE, JTIME ) #ifndef mpas IF ( BUDGET_DIAG .OR. LIPR ) CALL PA_UPDATE_PROC ( IPR_PVO3, CGRID, SDATE, STIME, TSTEP, .FALSE. ) #endif IF ( PRINT_PROC_TIME ) CALL TIMING_SPLIT ( CPU_TIME_START, 1, 'PVO3' ) END IF #ifdef isam ! Save ISAM concentration field to use for apportioning ! aerosols and semivolatile gases after AERO is called CGRID0 = CGRID #endif ! Calculate Aerosol Microphysics CALL AERO ( CGRID, JDATE, JTIME, TSTEP ) #ifdef isam CALL SA_WRAP_AE( CGRID0, CGRID, JDATE, JTIME, TSTEP ) #endif IF ( CKSUM ) CALL CKSUMMER ( 'AERO', CGRID, JDATE, JTIME ) IF ( STM ) CALL STM_WRAP_AE ( CGRID, JDATE, JTIME ) #ifndef mpas IF ( BUDGET_DIAG .OR. LIPR ) CALL PA_UPDATE_AERO ( CGRID, SDATE, STIME ) #endif IF ( PRINT_PROC_TIME ) CALL TIMING_SPLIT ( CPU_TIME_START, 1, 'AERO' ) ! Advance Time Step CALL NEXTIME ( JDATE, JTIME, TSTEP( 2 ) ) WRITE( LOGDEV,'(/ 5X, A, I8, I7.6)' ) NMSG, JDATE, JTIME ! Print Summary Timing for Master time step CALL TIMING_SPLIT ( CPU_TIME_START_MASTER, 2 ) 1002 FORMAT ( 2x, A15, ' completed... ', F6.1, ' seconds' ) RETURN END ================================================ FILE: CCTM/src/driver/wr_aconc.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE WR_ACONC ( AGRID, JDATE, JTIME, TSTEP ) C Revision History: C Jeff - July 01 C Note: If previous A_CONC exists, check that user hasn't changed what C species/layers to save (or domain). C 30 Mar 01 J.Young: dyn alloc - Use HGRD_DEFN C 31 Jan 05 J.Young: dyn alloc - establish both horizontal & vertical C domain specifications in one module C 16 Feb 11 S.Roselle: replaced I/O API include files with UTILIO_DEFN; C removed deprecated TRIMLEN C 20 Jul 11 J.Young: added option for ending time timestamp C 12 Aug 15 D.Wong: Extracted section of code that deals with creating C A_CONC_1 and put it in opaconc.F C Added a section of code to allow non IO processors C to open A_CONC_1 C 19 May 16 D.Wong: renamed ACONC_END_TIME to AVG_FILE_ENDTIME C 27 Mar 17 D.Wong: removed redundant parallel_io ifdef construct C 09 Sep 19 F. Sidi: Replaced L_ACONC_WVEL(depreciated) with W_VEL C----------------------------------------------------------------------- USE GRID_CONF ! horizontal & vertical domain specifications USE AVG_CONC ! integral average CONC USE UTILIO_DEFN USE RUNTIME_VARS #ifndef mpas #ifdef parallel USE SE_MODULES ! stenex (using SE_UTIL_MODULE) #else USE NOOP_MODULES ! stenex (using NOOP_UTIL_MODULE) #endif #endif IMPLICIT NONE C Include Files: INCLUDE SUBST_FILES_ID ! file name parameters REAL :: AGRID( :,:,:,: ) INTEGER JDATE ! current model date, coded YYYYDDD INTEGER JTIME ! current model time, coded HHMMSS INTEGER TSTEP ! output timestep (HHMMSS) C Local variables: INTEGER MDATE ! modified model date, coded YYYYDDD INTEGER MTIME ! modified model time, coded HHMMSS CHARACTER( 16 ) :: PNAME = 'WR_ACONC' CHARACTER( 96 ) :: XMSG = ' ' LOGICAL, SAVE :: FIRSTIME = .TRUE. LOGICAL OK INTEGER L, K, VAR, SPC ! loop counters INTEGER STATUS C----------------------------------------------------------------------- C Change output date/time to starting date/time - e.g. timestamp 1995196:090000 C represents data computed from time 1995196:090000 to 1995196:100000 #ifndef mpas IF ( FIRSTIME ) THEN FIRSTIME = .FALSE. C Override default beginning time timestamp for ACONC? IF ( .NOT. IO_PE_INCLUSIVE ) THEN IF ( .NOT. OPEN3( A_CONC_1, FSREAD3, PNAME ) ) THEN XMSG = 'Could not open ' // A_CONC_1 // ' file for update' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF END IF END IF IF ( END_TIME ) THEN ! ending time timestamp MDATE = JDATE; MTIME = JTIME ELSE ! beginning time timestamp MDATE = JDATE; MTIME = JTIME CALL NEXTIME ( MDATE, MTIME, -TSTEP ) END IF VAR = 0 DO SPC = 1, N_A_GC_SPC VAR = VAR + 1 IF ( .NOT. WRITE3( A_CONC_1, A_GC_SPC( SPC ), & MDATE, MTIME, AGRID( :,:,:,VAR ) ) ) THEN XMSG = 'Could not write ' & // TRIM( A_GC_SPC( SPC ) ) & // ' to ' // A_CONC_1 CALL M3EXIT( PNAME, MDATE, MTIME, XMSG, XSTAT1 ) END IF END DO DO SPC = 1, N_A_AE_SPC VAR = VAR + 1 IF ( .NOT. WRITE3( A_CONC_1, A_AE_SPC( SPC ), & MDATE, MTIME, AGRID( :,:,:,VAR ) ) ) THEN XMSG = 'Could not write ' & // TRIM( A_AE_SPC( SPC ) ) & // ' to ' // A_CONC_1 CALL M3EXIT( PNAME, MDATE, MTIME, XMSG, XSTAT1 ) END IF END DO DO SPC = 1, N_A_NR_SPC VAR = VAR + 1 IF ( .NOT. WRITE3( A_CONC_1, A_NR_SPC( SPC ), & MDATE, MTIME, AGRID( :,:,:,VAR ) ) ) THEN XMSG = 'Could not write ' & // TRIM( A_NR_SPC( SPC ) ) & // ' to ' // A_CONC_1 CALL M3EXIT( PNAME, MDATE, MTIME, XMSG, XSTAT1 ) END IF END DO ! Write Tracer Species Concentrations to Average Concentration File DO SPC = 1, N_A_TR_SPC VAR = VAR + 1 IF ( .NOT. WRITE3( A_CONC_1, A_TR_SPC( SPC ), & MDATE, MTIME, AGRID( :,:,:,VAR ) ) ) THEN XMSG = 'Could not write ' & // TRIM( A_TR_SPC( SPC ) ) & // ' to ' // A_CONC_1 CALL M3EXIT( PNAME, MDATE, MTIME, XMSG, XSTAT1 ) END IF END DO ! Write Vertical Velocity to Average Concentration File IF ( W_VEL ) THEN IF ( .NOT. WRITE3( A_CONC_1, 'W_VEL', & MDATE, MTIME, AVG_WVEL ) ) THEN XMSG = 'Could not write Vertical Wind Velocity' & // ' to ' // A_CONC_1 CALL M3EXIT( PNAME, MDATE, MTIME, XMSG, XSTAT1 ) END IF END IF ! Write Relative Humidity to Average Concentration File IF ( L_ACONC_RH ) THEN IF ( .NOT. WRITE3( A_CONC_1, 'RH', & MDATE, MTIME, AVG_RH ) ) THEN XMSG = 'Could not write Relative Humidity' & // ' to ' // A_CONC_1 CALL M3EXIT( PNAME, MDATE, MTIME, XMSG, XSTAT1 ) END IF END IF ! Write Temperature to Average Concentration File IF ( L_ACONC_TA ) THEN IF ( .NOT. WRITE3( A_CONC_1, 'TA', & MDATE, MTIME, AVG_TA ) ) THEN XMSG = 'Could not write Temperature' & // ' to ' // A_CONC_1 CALL M3EXIT( PNAME, MDATE, MTIME, XMSG, XSTAT1 ) END IF END IF ! Write Pressure to Average Concentration File IF (L_ACONC_PRES ) THEN IF ( .NOT. WRITE3( A_CONC_1, 'PRES', & MDATE, MTIME, AVG_PRES ) ) THEN XMSG = 'Could not write Pressure' & // ' to ' // A_CONC_1 CALL M3EXIT( PNAME, MDATE, MTIME, XMSG, XSTAT1 ) END IF END IF WRITE( LOGDEV, '( /5X, 3( A, :, 1X ), I8, ":", I6.6 )' ) & 'Timestep written to', A_CONC_1, & 'for date and time', MDATE, MTIME #endif RETURN END ================================================ FILE: CCTM/src/driver/wr_cgrid.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE WR_CGRID ( CGRID, JDATE, JTIME, TSTEP ) C Save the instantaneous state of CGRID in an I/O-API "circular buffer" C file to use for restart/continuation for subsequent simulation. This C file will replace the CONC file for such use, allowing users to reduce C the number of variables and/or layers saved to the CONC file. C Revision History: C May 06 J.Young: initial C Feb 08 J.Young: fix VDESC3D bug C 21 Jun 10 J.Young: convert for Namelist redesign C 16 Feb 11 S.Roselle: replaced I/O API include files with UTILIO_DEFN; C removed deprecated TRIMLEN C 12 Aug 15 D.Wong: Replaced MYPE with IO_PE_INCLUSIVE and added code C to handle parallel I/O implementation C----------------------------------------------------------------------- USE GRID_CONF ! horizontal & vertical domain specifications USE CGRID_SPCS ! CGRID mechanism species USE UTILIO_DEFN #ifndef mpas #ifdef parallel USE SE_MODULES ! stenex (using SE_UTIL_MODULE) #else USE NOOP_MODULES ! stenex (using NOOP_UTIL_MODULE) #endif #endif IMPLICIT NONE C Include Files: INCLUDE SUBST_FILES_ID ! file name parameters REAL, POINTER :: CGRID( :,:,:,: ) INTEGER JDATE ! current model date, coded YYYYDDD INTEGER JTIME ! current model time, coded HHMMSS INTEGER TSTEP ! output timestep (HHMMSS) C Local variables: CHARACTER( 16 ) :: PNAME = 'WR_CGRID' CHARACTER( 96 ) :: XMSG = ' ' INTEGER K, MXK, SPC, VAR INTEGER ALLOCSTAT INTEGER TSTEP_RF, NTHIK_RF, NCOLS_RF, NROWS_RF, GDTYP_RF REAL( 8 ) :: P_ALP_RF, P_BET_RF, P_GAM_RF REAL( 8 ) :: XCENT_RF, YCENT_RF REAL( 8 ) :: XORIG_RF, YORIG_RF REAL( 8 ) :: XCELL_RF, YCELL_RF INTEGER VGTYP_RF REAL VGTOP_RF LOGICAL, SAVE :: FIRSTIME = .TRUE. LOGICAL OK LOGICAL, EXTERNAL :: FLUSH3 C----------------------------------------------------------------------- #ifndef mpas IF ( FIRSTIME ) THEN FIRSTIME = .FALSE. C Try to open existing file for update CALL SUBST_BARRIER OK = OPEN3( S_CGRID, FSRDWR3, PNAME ) CALL SUBST_GLOBAL_LOGICAL( OK, 'AND' ) IF ( .NOT. OK ) THEN XMSG = 'Could not open ' // TRIM( S_CGRID ) & // ' file for update - try to open new' CALL M3MESG( XMSG ) IF ( IO_PE_INCLUSIVE ) THEN C Get default file header attibutes from CONC file (assumes file already open) IF ( .NOT. DESC3( CTM_CONC_1 ) ) THEN XMSG = 'Could not get ' & // TRIM( CTM_CONC_1 ) & // ' file description' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF C Set tstep negative to create "circular buffer" type file ! TSTEP3D = -TSTEP SDATE3D = JDATE STIME3D = JTIME C Get CGRID nvars NVARS3D = NSPCSD NLAYS3D = NLAYS C Set file header attributes that differ from CONC and open the file FDESC3D = ' ' FDESC3D( 1 ) = 'Computational grid instantaneous concentrations' FDESC3D( 2 ) = '- for scenario continuation.' WRITE( LOGDEV,* ) ' ' WRITE( LOGDEV,* ) ' State CGRID File Header Description:' DO K = 1, 2 WRITE( LOGDEV,* ) ' => ', & TRIM( FDESC3D( K ) ) END DO VAR = 0 DO SPC = 1, N_GC_SPC VAR = VAR + 1 VTYPE3D( VAR ) = M3REAL VNAME3D( VAR ) = GC_SPC( SPC ) UNITS3D( VAR ) = 'ppmV' VDESC3D( VAR ) = 'Variable ' // VNAME3D( VAR ) END DO C pick up transported RHOJ VAR = VAR + 1 VTYPE3D( VAR ) = M3REAL VNAME3D( VAR ) = 'RHOJ' UNITS3D( VAR ) = 'm kg m-3' VDESC3D( VAR ) = 'Variable ' // VNAME3D( VAR ) DO SPC = 1, N_AE_SPC VAR = VAR + 1 VTYPE3D( VAR ) = M3REAL VNAME3D( VAR ) = AE_SPC( SPC ) IF ( VNAME3D( VAR )(1:3) .EQ. 'NUM' ) THEN UNITS3D( VAR ) = 'm-3' ELSE IF ( VNAME3D( VAR )(1:3) .EQ. 'SRF' ) THEN UNITS3D( VAR ) = 'm2 m-3' ELSE UNITS3D( VAR ) = 'ug m-3' END IF VDESC3D( VAR ) = 'Variable ' // VNAME3D( VAR ) END DO DO SPC = 1, N_NR_SPC VAR = VAR + 1 VTYPE3D( VAR ) = M3REAL VNAME3D( VAR ) = NR_SPC( SPC ) UNITS3D( VAR ) = 'ppmV' VDESC3D( VAR ) = 'Variable ' // VNAME3D( VAR ) END DO DO SPC = 1, N_TR_SPC VAR = VAR + 1 VTYPE3D( VAR ) = M3REAL VNAME3D( VAR ) = TR_SPC( SPC ) UNITS3D( VAR ) = 'ppmV' VDESC3D( VAR ) = 'Variable ' // VNAME3D( VAR ) END DO WRITE( LOGDEV,* ) ' ' WRITE( LOGDEV,* ) ' State CGRID File Variable List:' DO SPC = 1, VAR WRITE( LOGDEV,'( 5X, "=> VNAME3D(", I3, " ): ", A )' ) & SPC, VNAME3D( SPC ) END DO IF ( .NOT. OPEN3( S_CGRID, FSNEW3, PNAME ) ) THEN XMSG = 'Could not open ' & // TRIM( S_CGRID ) // ' file' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF END IF ! IO_PE_INCLUSIVE ELSE C File exists. Check header data with CONC file as reference. Currently only C proc 0 has CTM_CONC_1 open IF ( IO_PE_INCLUSIVE ) THEN IF ( .NOT. DESC3( CTM_CONC_1 ) ) THEN XMSG = 'Could not get ' & // TRIM( CTM_CONC_1 ) & // ' file description' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF TSTEP_RF = TSTEP3D NTHIK_RF = NTHIK3D NCOLS_RF = NCOLS3D NROWS_RF = NROWS3D GDTYP_RF = GDTYP3D P_ALP_RF = P_ALP3D P_BET_RF = P_BET3D P_GAM_RF = P_GAM3D XCENT_RF = XCENT3D YCENT_RF = YCENT3D XORIG_RF = XORIG3D YORIG_RF = YORIG3D XCELL_RF = XCELL3D YCELL_RF = YCELL3D VGTYP_RF = VGTYP3D VGTOP_RF = VGTOP3D IF ( .NOT. DESC3( S_CGRID ) ) THEN XMSG = 'Could not get ' & // TRIM( S_CGRID ) & // ' file description' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF IF ( TSTEP_RF .NE. ABS( TSTEP3D ) .OR. & NTHIK_RF .NE. NTHIK3D .OR. & NCOLS_RF .NE. NCOLS3D .OR. & NROWS_RF .NE. NROWS3D .OR. & GDTYP_RF .NE. GDTYP3D ) THEN XMSG = 'Header inconsistent on existing S_CGRID' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT2 ) END IF IF ( P_ALP_RF .NE. P_ALP3D .OR. & P_BET_RF .NE. P_BET3D .OR. & P_GAM_RF .NE. P_GAM3D ) THEN XMSG = 'Header inconsistent on existing S_CGRID' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT2 ) END IF IF ( XCENT_RF .NE. XCENT3D .OR. & YCENT_RF .NE. YCENT3D ) THEN XMSG = 'Header inconsistent on existing S_CGRID' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT2 ) END IF IF ( XORIG_RF .NE. XORIG3D .OR. & YORIG_RF .NE. YORIG3D ) THEN XMSG = 'Header inconsistent on existing S_CGRID' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT2 ) END IF IF ( XCELL_RF .NE. XCELL3D .OR. & YCELL_RF .NE. YCELL3D ) THEN XMSG = 'Header inconsistent on existing S_CGRID' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT2 ) END IF IF ( VGTYP_RF .NE. VGTYP3D ) THEN XMSG = 'Header inconsistent on existing S_CGRID' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT2 ) END IF IF ( VGTOP_RF .NE. VGTOP3D ) THEN XMSG = 'Header inconsistent on existing S_CGRID' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT2 ) END IF END IF ! IO_PE_INCLUSIVE END IF ! .NOT. OPEN S_CGRID END IF ! FIRSTIME #ifdef parallel_io IF ( IO_PE_INCLUSIVE ) THEN IF ( .NOT. FLUSH3 ( S_CGRID ) ) THEN XMSG = 'Could not sync to disk ' // TRIM( S_CGRID ) CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF END IF CALL SUBST_BARRIER IF ( .NOT. IO_PE_INCLUSIVE ) THEN IF ( .NOT. OPEN3( S_CGRID, FSREAD3, PNAME ) ) THEN XMSG = 'Could not open ' // TRIM( S_CGRID ) CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF END IF IF ( .NOT. WRITE3( S_CGRID, ALLVAR3, JDATE, JTIME, CGRID ) ) THEN XMSG = 'Could not write S_CGRID' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF #else #ifdef parallel IF ( .NOT. PTRWRITE3( S_CGRID, ALLVAR3, JDATE, JTIME, CGRID ) ) THEN XMSG = 'Could not write S_CGRID' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF #else IF ( .NOT. WRITE3( S_CGRID, ALLVAR3, JDATE, JTIME, CGRID ) ) THEN XMSG = 'Could not write S_CGRID' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF #endif #endif WRITE( LOGDEV, '( /5X, 3( A, :, 1X ), I8, ":", I6.6 )' ) & 'Timestep written to', S_CGRID, & 'for date and time', JDATE, JTIME #endif RETURN END ================================================ FILE: CCTM/src/driver/wr_conc.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE WR_CONC ( JDATE, JTIME, TSTEP ) C Revision History: C 10/13/99 David Wong at LM C -- Called from driver, where CGRID is a pointer (subset) of PCGRID. C Necessary, to keep from referencing parts of PCGRID that don't C belong to CGRID. C 1/31/2000 Jeff Young C -- f90 memory mgmt C Jeff - Dec 00 - move CGRID_MAP into f90 module C Jeff - Feb 01 - assumed shape arrays C 30 Mar 01 J.Young: dyn alloc - Use HGRD_DEFN; DBUFF for WRITE3 C 31 Jan 05 J.Young: dyn alloc - establish both horizontal & vertical C domain specifications in one module C 30 May 05 J.Young: optional save derived vert. vel. to conc file C 29 Aug 06 J.Young: in conjunction with state CGRID file C 30 Jan 10 David Wong: modified the code to write one species at a time C in case ALLVAR3 cannot deal with large CONC size C 14 Sep 10 J.Young: fix ALLVAR3 bug in writing W_VEL C 16 Feb 11 S.Roselle: replaced I/O API include files with UTILIO_DEFN C 11 May 11 D.Wong: - let non I/O PEs open CTM_CONC_1 for read only C 12 Aug 15 D.Wong: - Replaced MYPE with IO_PE_INCLUSIVE for parallel C I/O implementation C - Added code to allow non IO processor to open C CTM_CONC_1 C 01 Feb 19 D.Wong: - Implemented centralized I/O approach C Sept 19 F. Sidi: Replaced L_CONC_WVEL(depreciated) with W_VEL C----------------------------------------------------------------------- USE GRID_CONF ! horizontal & vertical domain specifications USE STD_CONC ! standard CONC USE WVEL_DEFN ! derived vertical velocity component USE UTILIO_DEFN USE ASX_DATA_MOD, ONLY : MET_DATA USE CENTRALIZED_IO_MODULE IMPLICIT NONE C Include Files: INCLUDE SUBST_FILES_ID ! I/O definitions and declarations INTEGER JDATE ! current model date, coded YYYYDDD INTEGER JTIME ! current model time, coded HHMMSS INTEGER TSTEP ! output timestep (HHMMSS) C Local variables: CHARACTER( 16 ) :: PNAME = 'WR_CONC' CHARACTER( 96 ) :: XMSG = ' ' INTEGER ALLOCSTAT LOGICAL, SAVE :: FIRSTIME = .TRUE. INTEGER C, R, K, L, V, VAR, SPC ! loop induction variables CHARACTER( 16 ), ALLOCATABLE, SAVE :: VNAME( : ) INTEGER, SAVE :: NVARS C----------------------------------------------------------------------- #ifndef mpas IF ( FIRSTIME ) THEN FIRSTIME = .FALSE. C open conc file for update IF ( .NOT. IO_PE_INCLUSIVE ) THEN IF ( .NOT. OPEN3( CTM_CONC_1, FSREAD3, PNAME ) ) THEN XMSG = 'Could not open ' // CTM_CONC_1 // ' file for update' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF END IF IF ( .NOT. DESC3( CTM_CONC_1 ) ) THEN XMSG = 'Could not get file description from ' // CTM_CONC_1 CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF ! Retrieve number and values of variable names NVARS = NVARS3D ALLOCATE ( VNAME( NVARS ), STAT=ALLOCSTAT ) VNAME = VNAME3D( 1:NVARS ) END IF ! firstime VAR = 0 ! Write Gas-Phase Species to CONC File DO SPC = 1, N_C_GC_SPC VAR = VAR + 1 IF ( .NOT. WRITE3( CTM_CONC_1, C_GC_SPC( SPC ), & JDATE, JTIME, SGRID( :,:,:,VAR ) ) ) THEN XMSG = 'Could not write ' & // TRIM( C_GC_SPC( SPC ) ) & // ' to ' // CTM_CONC_1 CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF END DO ! Write Aerosol Species Concentrations to CONC File DO SPC = 1, N_C_AE_SPC VAR = VAR + 1 IF ( .NOT. WRITE3( CTM_CONC_1, C_AE_SPC( SPC ), & JDATE, JTIME, SGRID( :,:,:,VAR ) ) ) THEN XMSG = 'Could not write ' & // TRIM( C_AE_SPC( SPC ) ) & // ' to ' // CTM_CONC_1 CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF END DO ! Write Nonreactive Species Concentrations to CONC File DO SPC = 1, N_C_NR_SPC VAR = VAR + 1 IF ( .NOT. WRITE3( CTM_CONC_1, C_NR_SPC( SPC ), & JDATE, JTIME, SGRID( :,:,:,VAR ) ) ) THEN XMSG = 'Could not write ' & // TRIM( C_NR_SPC( SPC ) ) & // ' to ' // CTM_CONC_1 CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF END DO ! Write Tracer Species Concentrations to CONC File DO SPC = 1, N_C_TR_SPC VAR = VAR + 1 IF ( .NOT. WRITE3( CTM_CONC_1, C_TR_SPC( SPC ), & JDATE, JTIME, SGRID( :,:,:,VAR ) ) ) THEN XMSG = 'Could not write ' & // TRIM( C_TR_SPC( SPC ) ) & // ' to ' // CTM_CONC_1 CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF END DO ! Write Vertical Velocity to Output CONC file IF ( W_VEL ) THEN IF ( .NOT. WRITE3( CTM_CONC_1, 'W_VEL', & JDATE, JTIME, WVEL( :,:,CONC_BLEV:CONC_ELEV ) ) ) THEN XMSG = 'Could not write W_VEL to ' // CTM_CONC_1 CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF END IF ! W_VEL ! Write Relative Humidity to Output CONC file IF ( L_CONC_RH ) THEN IF ( .NOT. WRITE3( CTM_CONC_1, 'RH', & JDATE, JTIME, MET_DATA%RH( :,:,CONC_BLEV:CONC_ELEV ) ) ) THEN XMSG = 'Could not write RH to ' // CTM_CONC_1 CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF END IF ! Write Temperature to Output CONC file IF ( L_CONC_TA ) THEN IF ( .NOT. WRITE3( CTM_CONC_1, 'TA', & JDATE, JTIME, MET_DATA%TA( :,:,CONC_BLEV:CONC_ELEV ) ) ) THEN XMSG = 'Could not write Temperature to ' // CTM_CONC_1 CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF END IF ! Write Pressure to Output CONC file IF ( L_CONC_PRES ) THEN IF ( .NOT. WRITE3( CTM_CONC_1, 'PRES', & JDATE, JTIME, MET_DATA%PRES( :,:,CONC_BLEV:CONC_ELEV ) ) ) THEN XMSG = 'Could not write Pressure to ' // CTM_CONC_1 CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF END IF ! Write Summary Message for Output Procedure WRITE( LOGDEV, '( /5X, 3( A, :, 1X ), I8, ":", I6.6 )' ) & 'Timestep written to', CTM_CONC_1, & 'for date and time', JDATE, JTIME #endif RETURN END ================================================ FILE: CCTM/src/driver/wr_init.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE WR_INIT ( CGRID, JDATE, JTIME, TSTEP ) C----------------------------------------------------------------------- C Function: C Create the IO/API netCDF header and open the output CONC file C Revision history: C Dec 15 D.Wong: Created for writing initial data to CONC file C Apr 16 D.Wong: Added INTEN attribute for arguments JDATE, JTIME, and TSTEP C so they match with the interface block in INITSCEN.F C Feb 19 D.Wong: removed all MY_N clauses C June 19 F. Sidi: Replaced BADVAL3 for TA, RH, & PRES with MET DATA C Sept 19 F. Sidi: Replaced L_CONC_WVEL(depreciated) with W_VEL C----------------------------------------------------------------------- USE GRID_CONF ! horizontal & vertical domain specifications USE WVEL_DEFN ! derived vertical velocity component USE STD_CONC ! standard CONC USE UTILIO_DEFN #ifndef mpas #ifdef parallel USE SE_MODULES ! stenex (using SE_UTIL_MODULE) #else USE NOOP_MODULES ! stenex (using NOOP_UTIL_MODULE) #endif #endif USE CENTRALIZED_IO_MODULE IMPLICIT NONE INCLUDE SUBST_FILES_ID ! file name parameters C Arguments: REAL, POINTER :: CGRID( :,:,:,: ) ! for initial CONC INTEGER, INTENT( IN ) :: JDATE ! starting date (YYYYDDD) INTEGER, INTENT( IN ) :: JTIME ! starting time (HHMMSS) INTEGER, INTENT( IN ) :: TSTEP ! output timestep (HHMMSS) C Local Variables: REAL, ALLOCATABLE :: DBUFF( :,:,: ), DBUFFP( :, :, :), & DBUFFTA( :, :, :), DBUFFQV(:, :, :) INTEGER ALLOCSTAT CHARACTER( 16 ) :: PNAME = 'OPCONC' CHARACTER( 96 ) :: XMSG = ' ' CHARACTER( 28 ) :: SSTR = ' species saved to CONC file:' C environment variable for no. of layers from bottom to save on CONC file CHARACTER( 16 ) :: NLAYS_CONC = 'NLAYS_CONC' C environment variable description CHARACTER( 80 ) :: VARDESC INTEGER K, KD, L, SPC, V ! loop counters INTEGER STRT, FINI ! loop counters INTEGER INDX LOGICAL, EXTERNAL :: FLUSH3 C----------------------------------------------------------------------- #ifndef mpas #ifdef parallel_io CALL SUBST_BARRIER IF ( .NOT. IO_PE_INCLUSIVE ) THEN IF ( .NOT. OPEN3( CTM_CONC_1, FSREAD3, PNAME ) ) THEN XMSG = 'Could not open ' // CTM_CONC_1 CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF END IF #endif C write the initial concentrations as step 0 on the conc file C (inital data assumed to be in correct output units) ALLOCATE ( DBUFF( NCOLS,NROWS,C_NLAYS ), DBUFFP( NCOLS, NROWS, & C_NLAYS), DBUFFTA( NCOLS, NROWS, C_NLAYS), & DBUFFQV( NCOLS, NROWS, C_NLAYS), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating DBUFF(s)' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF WRITE( LOGDEV,* ) ' ' V = 0 IF ( N_C_GC_SPC .NE. 0 ) WRITE( LOGDEV,'( /5X, "Gas Chem", A )' ) SSTR DO SPC = 1, N_C_GC_SPC V = V + 1 INDX = CONC_MAP( V ) DBUFF = CGRID( 1:NCOLS,1:NROWS,CONC_BLEV:CONC_ELEV,INDX ) IF ( .NOT. WRITE3( CTM_CONC_1, C_GC_SPC( SPC ), & JDATE, JTIME, DBUFF ) ) THEN XMSG = 'Could not write ' // & TRIM( C_GC_SPC( SPC ) ) // & ' to ' // CTM_CONC_1 CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF WRITE( LOGDEV,'( 5X, I4, " (", I3, ") ", A )' ) & SPC, V, TRIM( C_GC_SPC( SPC ) ) END DO IF ( N_C_AE_SPC .NE. 0 ) WRITE( LOGDEV,'( /5X, "Aerosol", A )' ) SSTR DO SPC = 1, N_C_AE_SPC V = V + 1 INDX = CONC_MAP( V ) DBUFF = CGRID( 1:NCOLS,1:NROWS,CONC_BLEV:CONC_ELEV,INDX ) IF ( .NOT. WRITE3( CTM_CONC_1, C_AE_SPC( SPC ), & JDATE, JTIME, DBUFF ) ) THEN XMSG = 'Could not write ' // & TRIM( C_AE_SPC( SPC ) ) // & ' to ' // CTM_CONC_1 CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF WRITE( LOGDEV,'( 5X, I4, " (", I3, ") ", A )' ) & SPC, V, TRIM( C_AE_SPC( SPC ) ) END DO IF ( N_C_NR_SPC .NE. 0 ) WRITE( LOGDEV,'( /5X, "Non-reactive", A )' ) SSTR DO SPC = 1, N_C_NR_SPC V = V + 1 INDX = CONC_MAP( V ) DBUFF = CGRID( 1:NCOLS,1:NROWS,CONC_BLEV:CONC_ELEV,INDX ) IF ( .NOT. WRITE3( CTM_CONC_1, C_NR_SPC( SPC ), & JDATE, JTIME, DBUFF ) ) THEN XMSG = 'Could not write ' // & TRIM( C_NR_SPC( SPC ) ) // & ' to ' // CTM_CONC_1 CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF WRITE( LOGDEV,'( 5X, I4, " (", I3, ") ", A )' ) & SPC, V, TRIM( C_NR_SPC( SPC ) ) END DO IF ( N_C_TR_SPC .NE. 0 ) WRITE( LOGDEV,'( /5X, "Inert tracer", A )' ) SSTR DO SPC = 1, N_C_TR_SPC V = V + 1 INDX = CONC_MAP( V ) DBUFF = CGRID( 1:NCOLS,1:NROWS,CONC_BLEV:CONC_ELEV,INDX ) IF ( .NOT. WRITE3( CTM_CONC_1, C_TR_SPC( SPC ), & JDATE, JTIME, DBUFF ) ) THEN XMSG = 'Could not write ' // & TRIM( C_TR_SPC( SPC ) ) // & ' to ' // CTM_CONC_1 CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF WRITE( LOGDEV,'( 5X, I4, " (", I3, ") ", A )' ) & SPC, V, TRIM( C_TR_SPC( SPC ) ) END DO IF ( W_VEL ) THEN ! Vertical Velocity Calculated from Advection DBUFF = BADVAL3 IF ( .NOT. WRITE3( CTM_CONC_1, 'W_VEL', & JDATE, JTIME, DBUFF ) ) THEN XMSG = 'Could not write Vertical Velocity (W_VEL) to ' // CTM_CONC_1 CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF END IF IF ( L_CONC_TA ) THEN ! for Temperature CALL interpolate_var ('TA', JDATE, JTIME, DBUFFTA) IF ( .NOT. WRITE3( CTM_CONC_1, 'TA', & JDATE, JTIME, DBUFFTA ) ) THEN XMSG = 'Could not write Temperature to ' // CTM_CONC_1 CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF END IF IF ( L_CONC_PRES ) THEN ! for Pressure CALL interpolate_var ('PRES', JDATE, JTIME, DBUFFP) IF ( .NOT. WRITE3( CTM_CONC_1, 'PRES', & JDATE, JTIME, DBUFFP ) ) THEN XMSG = 'Could not write Pressure to ' // CTM_CONC_1 CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF END IF IF ( L_CONC_RH ) THEN ! for Relative Humidity CALL interpolate_var ('QV', JDATE, JTIME, DBUFFQV) DBUFF = DBUFFQV * DBUFFP / ( DBUFFQV + 0.622015 ) / & ( 610.94 * EXP( 17.625 * ( DBUFFTA - 273.15 ) / & ( DBUFFTA - 273.15 + 243.04 ) ) ) DBUFF = MIN( 0.9999, MAX( 0.001, DBUFF) ) IF ( .NOT. WRITE3( CTM_CONC_1, 'RH', & JDATE, JTIME, DBUFF ) ) THEN XMSG = 'Could not write Relative Humidity to ' // CTM_CONC_1 CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF END IF DEALLOCATE ( DBUFF, DBUFFP, DBUFFTA, DBUFFQV) WRITE( LOGDEV, '( /5X, 3( A, :, 1X ), I8, ":", I6.6 )' ) & 'Timestep written to', CTM_CONC_1, & 'for date and time', JDATE, JTIME WRITE( LOGDEV, '( 5X, A, 1X, I8, ":", I6.6 )' ) & 'from timestep on initial data files for date and time', & JDATE, JTIME #endif RETURN END SUBROUTINE WR_INIT ================================================ FILE: CCTM/src/emis/emis/BEIS_DEFN.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: MODULE BEIS_DEFN C----------------------------------------------------------------------- C Function: biogenics emissions interface to the chemistry-transport model C Revision History: C 18 Aug 2007 J.Young: initial implementation C 16 Feb 2011 S.Roselle: replaced I/O API include files with UTILIO_DEFN C 10 May 2011 D.Wong: incorporated twoway model implementation C 01 Feb 19 David Wong: removed MY_N clauses C----------------------------------------------------------------------- USE RUNTIME_VARS IMPLICIT NONE INTEGER, SAVE :: N_SPC_BIOG ! biogenics emissions species REAL, ALLOCATABLE, SAVE :: VDEMIS_BI( :,:,: ) ! beis emis INTEGER, ALLOCATABLE, SAVE :: BEIS_MAP( : ) ! map to GC CHARACTER( 16 ), SAVE :: CTM_BIOGEMIS_BE = 'CTM_BIOGEMIS_BE'! env var for CONTAINS C======================================================================= FUNCTION BEIS_INIT ( JDATE, JTIME, TSTEP ) RESULT ( SUCCESS ) USE HGRD_DEFN USE CGRID_SPCS ! CGRID mechanism species USE BIOG_EMIS ! from beis USE UTILIO_DEFN IMPLICIT NONE INCLUDE SUBST_CONST ! constants INTEGER JDATE, JTIME, TSTEP LOGICAL SUCCESS REAL, PARAMETER :: CMLMR = 1.0E+06 ! ppmV/Molar Mixing Ratio CHARACTER( 16 ) :: PNAME = 'BEIS_INIT' CHARACTER( 80 ) :: VARDESC ! env variable description CHARACTER( 120 ) :: XMSG = ' ' INTEGER N_SPC INTEGER V, K, STATUS C----------------------------------------------------------------------- SUCCESS = .TRUE. C In-line biogenic emissions? CALL LOG_SUBHEADING( LOGDEV, 'Initialize Online Biogenic VOC Emissions Module (BEIS)' ) C biogenics to gas-phase species map IF ( BIOGEMIS_BEIS ) THEN XMSG = 'Using in-line biogenic emissions option' CALL M3MSG2( XMSG ) IF ( .NOT. BIOG_INIT() ) THEN XMSG = 'Could not initialize biogenic emissions variables' CALL M3WARN ( PNAME, JDATE, JTIME, XMSG ) SUCCESS = .FALSE.; RETURN END IF ALLOCATE( VDEMIS_BI( MSPCS,NCOLS,NROWS ), STAT = STATUS ) IF ( STATUS .NE. 0 ) THEN XMSG = 'VDEMIS_BI memory allocation failed' CALL M3WARN ( PNAME, JDATE, JTIME, XMSG ) SUCCESS = .FALSE.; RETURN END IF END IF SUCCESS = .TRUE.; RETURN END FUNCTION BEIS_INIT C======================================================================= SUBROUTINE GET_BEIS ( JDATE, JTIME, TSTEP, L_DESID_DIAG ) USE DESID_VARS, ONLY : DESID_N_ISTR, IBIOSRM, & MAP_ISTRtoEMVAR, MAP_ISTRtoDIFF USE BIOG_EMIS, ONLY : MSPCS IMPLICIT NONE INTEGER JDATE, JTIME, TSTEP( 3 ), ISTR LOGICAL, SAVE :: FIRST_TIME = .TRUE. LOGICAL, INTENT( IN ) :: L_DESID_DIAG INTERFACE SUBROUTINE TMPBEIS ( MDATE, MTIME, TSTEP, BEIS_MAP, & VDEMIS_BI, L_DESID_DIAG ) INTEGER, INTENT( IN ) :: MDATE, MTIME, TSTEP( 3 ) INTEGER, INTENT( IN ) :: BEIS_MAP( : ) REAL, INTENT( OUT ) :: VDEMIS_BI( :,:,: ) LOGICAL, INTENT( IN ) :: L_DESID_DIAG END SUBROUTINE TMPBEIS END INTERFACE C----------------------------------------------------------------------- IF ( FIRST_TIME ) THEN ! Map out BEIS_MAP using MAP_ISTRtoEMVAR Array ALLOCATE( BEIS_MAP( MSPCS ) ) BEIS_MAP = 0 DO ISTR = 1,DESID_N_ISTR IF ( MAP_ISTRtoEMVAR( ISTR,IBIOSRM ) .GT. 0 ) & BEIS_MAP( MAP_ISTRtoEMVAR( ISTR,IBIOSRM ) ) = & MAP_ISTRtoDIFF( ISTR ) END DO FIRST_TIME = .FALSE. END IF CALL TMPBEIS( JDATE, JTIME, TSTEP, BEIS_MAP, VDEMIS_BI, L_DESID_DIAG ) RETURN END SUBROUTINE GET_BEIS END MODULE BEIS_DEFN ================================================ FILE: CCTM/src/emis/emis/BIOG_EMIS.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: MODULE BIOG_EMIS C----------------------------------------------------------------------- C Function: biogenics emissions interface to the speciation profiles file C Revision History: C ?? ??? ???? ?.?????: initial implementation C 20 Sep 2007 J.Young: inline DSCSPROF, eliminate MODSPRO module C 16 Feb 2011 S.Roselle: replaced I/O API include files with UTILIO_DEFN C 16 Aug 2018 G. Sarwar: updated for CB6R3M_AE7_KMTBR C 01 Feb 2019 D. Wong: Implemented centralized I/O approach, and C created a new module biog_emis_param_module C (model_data_module.F) to hold some of information C originally stored here to avoid cyclic dependence C 10 Mar 2021 G. Sarwar: Changed CB6R3M_AE7_KMTBR to CB6R3M_AE7_AQ C 10 June 2021 G. Sarwar: Replacd CB6R3M_AE7_AQ with CB6R5M_AE7_AQ C Xiaoyang Chen at Northeastern University notified that CMAQ is not generating any monoterpene C emissions when in-line option is enabled with RACM2 C 07 June 2021 G. Sarwar: replaced "B10RD" with "B3V10" for RACM2 C 30 Sept 2021 G. Sarwar: added CB6R5_AE7_AQ C 04 Oct 2021 G. Sarwar: added CB6R5HAP_AE7_AQ C 14 Sep 2023 G. Sarwar: added CRACMM2 C----------------------------------------------------------------------- USE RUNTIME_VARS USE DESID_VARS USE biog_emis_param_module IMPLICIT NONE INTEGER, SAVE :: MSPCS ! no. of emitted species CHARACTER( 16 ), ALLOCATABLE, SAVE :: EMSPC( : ) ! emitted species names C Mole and mass factors: REAL, ALLOCATABLE, SAVE :: MLFAC( :,: ) ! mole factors REAL, ALLOCATABLE, SAVE :: MSFAC( :,: ) ! mass factors C----------------------------------------------------------------------- CONTAINS FUNCTION BIOG_INIT() RESULT ( SUCCESS ) USE RXNS_DATA, ONLY : MECHNAME USE UTILIO_DEFN USE CGRID_SPCS, ONLY : N_CGRID_SPC, CGRID_NAME, CGRID_MW #ifdef mpas USE util_module, only : PROMPTFFILE, index1, str2real, sortic #endif IMPLICIT NONE C Subroutine arguments: LOGICAL SUCCESS C Parameters: C (A line from the profile file is a record.) INTEGER, PARAMETER :: NSEGS = 6 ! # of potential line segments (fields) INTEGER, PARAMETER :: MXLINES = 100 ! max lines for requested sppro name INTEGER, PARAMETER :: MXSPPOL = 10 ! max no. spc per pollutant INTEGER, PARAMETER :: NMECHS = 21 ! dimension for number of mechanisms considered CHARACTER, PARAMETER :: CINVHDR = '#' ! Indicator for inventory hdr fields ! REAL, PARAMETER :: GM2TON = 1.0 / 907184.74 ! grams to tons C unit number for speciation profiles file INTEGER :: RDEV C Header definitions for NONHAP pollutants CHARACTER( 7 ), PARAMETER :: HDRSTART = '/NONHAP' ! start of header CHARACTER( 5 ), PARAMETER :: HDREND = '/END/' ! end of header INTEGER :: MXSPEC ! max no. of species per pol C Table of species names per inventory pollutant CHARACTER( 16 ), ALLOCATABLE :: SPCNAMES( :,: ) C Table of mole-based units per inventory pollutant for all species CHARACTER( 16 ), ALLOCATABLE :: MOLUNITS( :,: ) C Arrays for getting pollutant-specific information from file INTEGER :: NSPECA ( NSEF ) ! number of species per pollutant CHARACTER( 16 ) :: POLNAMA( NSEF ) ! unsorted pollutant names CHARACTER( 20 ) :: SEGMENT( NSEGS ) ! Segments of parsed lines INTEGER :: INDX1A ( MXLINES ) ! sorting index for SPECNMA CHARACTER( 16 ) :: SPECNMA ( MXLINES ) ! unsort spcs names CHARACTER( 16 ) :: TMPNAMES( MXSPPOL,NSEF ) ! unsort names per pollutant LOGICAL :: LMOLAR ( MXLINES ) ! true: moles conversion is not mass INTEGER :: IPOS( MXSPPOL ) ! position in input pollutant list C Local variables INTEGER I, J, K, M, N ! counters and indices INTEGER ICOUNT ! tmp counter while populating SPCNAMES INTEGER IOS ! i/o status INTEGER POL ! pollutant counter INTEGER IREC ! record counter INTEGER ISP ! species names counter INTEGER NIPOS ! number of pollutant matches INTEGER PNDX ! position (from INDEX1) of pol in POLNAMA INTEGER SNDX ! position (from INDEX1) of pol in SPECNMA INTEGER NDX, INDX ! index position LOGICAL :: INHEADER = .FALSE. ! true: in file header CHARACTER( 256 ) :: LINE ! buffer for profile record CHARACTER( 256 ) :: MESG ! message buffer CHARACTER( 16 ) :: SPNPRF ! record (line) speciation profile name CHARACTER( 16 ) :: POLNAM ! record (line) pollutant name CHARACTER( 16 ) :: SPECNM ! record (line) species name CHARACTER( 16 ) :: FILE_SPPRO ! label read from gspro REAL SPLTFAC, SDIV, SMFAC ! line speciation profile factors TYPE BIOG_MECH_TYPE CHARACTER( 32 ) :: CHEMMECH CHARACTER( 16 ) :: BIOGMECH END TYPE BIOG_MECH_TYPE TYPE( BIOG_MECH_TYPE ) :: BIOG_MECH_MAP( NMECHS ) = (/ & BIOG_MECH_TYPE( 'CB05E51_AE6_AQ ','B10C5 '), & BIOG_MECH_TYPE( 'CB05EH51_AE6_AQ ','B10C5 '), & BIOG_MECH_TYPE( 'CB05MP51_AE6_AQ ','B10C5 '), & BIOG_MECH_TYPE( 'CB05TUCL51_AE6_AQ ','B10C5 '), & BIOG_MECH_TYPE( 'CB6R3_AE6_AQ ','B10C6 '), & BIOG_MECH_TYPE( 'CB6MP_AE6_AQ ','B10C6 '), & BIOG_MECH_TYPE( 'CB6R5HAP_AE7_AQ ','B10C6AE7'), & BIOG_MECH_TYPE( 'CB6R3_AE7_AQ ','B10C6AE7'), & BIOG_MECH_TYPE( 'CB6R5_AE7_AQ ','B10C6AE7'), & BIOG_MECH_TYPE( 'CB6R3_AE7_AQKMT2 ','B10C6AE7'), & BIOG_MECH_TYPE( 'CB6R5M_AE7_AQ ','B10C6AE7'), & BIOG_MECH_TYPE( 'RACM2_AE6_AQ ','B3V10 '), & BIOG_MECH_TYPE( 'SAPRC07TB_AE6_AQ ','B10SP '), & BIOG_MECH_TYPE( 'SAPRC07TC_AE6_AQ ','B10SP '), & BIOG_MECH_TYPE( 'SAPRC07TIC_AE6I_AQ ','B10SP '), & BIOG_MECH_TYPE( 'SAPRC07TIC_AE6I_AQKMTI ','B10SP '), & BIOG_MECH_TYPE( 'SAPRC07TIC_AE7I_AQ ','B10SP '), & BIOG_MECH_TYPE( 'SAPRC07TIC_AE7I_AQKMT2 ','B10SP '), & BIOG_MECH_TYPE( 'CRACMM2 ','CRACMM2 '), & BIOG_MECH_TYPE( 'CRACMM1_AQ ','CRACMM1 '), & BIOG_MECH_TYPE( 'CRACMM1AMORE_AQ ','CRACMM1 ') /) CHARACTER( 16 ) :: PNAME = 'BIOG_INIT' C----------------------------------------------------------------------- SUCCESS = .TRUE. C Open speciation profiles file RDEV = PROMPTFFILE( & 'Enter logical name for Speciation Profiles file', & .TRUE., .TRUE., 'GSPRO', PNAME ) IF ( SPPRO .EQ. 'DEFAULT' ) THEN INDX = INDEX1( MECHNAME, NMECHS, BIOG_MECH_MAP%CHEMMECH ) SPPRO = BIOG_MECH_MAP( INDX )%BIOGMECH WRITE( LOGDEV, '(5X,A,A,A)' ), 'Accessing compatible biogenic ', & 'emissions mechanism: ',TRIM( SPPRO ) END IF C Scan speciation profiles file to get all of the pollutant-species combinations C that are valid for the pollutants in the inventory. The species names are sorted C in alphebetical order for each pollutant, and the pollutants are in the same order C as BIOTYPES. Also retrieve the maximum number of species per pollutant and the C maximum number of profile entries per pollutant. C Initialize species count per pollutant and flag for indicating true molar C conversions (NOTE - for some pollutants like PM10, there are no mole-based C factor and outputs should be in units of gm/mole in the mole-base speciation C matrix) NSPECA = 0 ! array POLNAMA = ' ' ! array TMPNAMES = ' ' ! array LMOLAR = .FALSE. ! array C Read through input file to determine the total number of pollutants in the input C file, to determine the number of profiles per pollutant, to store the unique C species names, and to store the units for mass-based and mole-based conversions ICOUNT = 1 POL = 0 ISP = 0 IREC = 0 DO READ( RDEV, 93000, END=1999, IOSTAT=IOS ) LINE IREC = IREC + 1 IF ( IOS .GT. 0 ) THEN WRITE( MESG, 94010 ) & 'I/O error', IOS, 'reading speciation profile ' // & 'file at line', IREC CALL M3MESG( MESG ) SUCCESS = .FALSE.; RETURN END IF C Skip blank and comment lines IF ( LINE .EQ. ' ' .OR. LINE( 1:1 ) .EQ. CINVHDR ) CYCLE C Skip all lines until the end of the header... C Check for header start NDX = INDEX( LINE, HDRSTART ) IF ( NDX .GT. 0 ) INHEADER = .TRUE. NDX = INDEX( LINE, HDREND ) IF ( INHEADER ) THEN IF ( NDX .GT. 0 ) INHEADER = .FALSE. CYCLE ELSE IF ( NDX .GT. 0 ) THEN WRITE( MESG,94010 ) 'Header end found before header ' // & 'started at line', IREC CALL M3MESG( MESG ) SUCCESS = .FALSE.; RETURN END IF C Skip lines that dont reference the requested speciation profile name IF ( LINE( 1:1 ) .EQ. '"' ) THEN FILE_SPPRO = LINE( 2: INDEX( LINE,'"' )-1 ) IF ( FILE_SPPRO .NE. SPPRO ) CYCLE ELSE FILE_SPPRO = LINE( 1: INDEX( LINE,';' )-1 ) IF ( FILE_SPPRO .NE. SPPRO ) CYCLE END IF C Separate the line of data (record) into the segments (parse the record fields) CALL PARSLINE( LINE, NSEGS, SEGMENT ) C Left-justify character strings and convert factors to reals SPNPRF = ADJUSTL ( SEGMENT( 1 ) ) POLNAM = ADJUSTL ( SEGMENT( 2 ) ) SPECNM = ADJUSTL ( SEGMENT( 3 ) ) SPLTFAC = STR2REAL( SEGMENT( 4 ) ) SDIV = STR2REAL( SEGMENT( 5 ) ) SMFAC = STR2REAL( SEGMENT( 6 ) ) C Check width of character fields of fixed length N = LEN_TRIM( SPNPRF ) IF ( N .GT. 16 ) THEN WRITE( MESG,94010 ) 'ERROR: Speciation profile code ' // & 'exceeds max width of 16 characters at line', IREC CALL M3MESG( MESG ) SUCCESS = .FALSE.; RETURN END IF N = LEN_TRIM( POLNAM ) IF ( N .GT. 16 ) THEN WRITE( MESG,94010 ) 'ERROR: Pollutant name ' // & 'exceeds max characters of 16 at line', IREC CALL M3MESG( MESG ) SUCCESS = .FALSE.; RETURN END IF N = LEN_TRIM( SPECNM ) IF ( N .GT. 16 ) THEN WRITE( MESG,94010 ) 'ERROR: Species name ' // & 'exceeds max characters of 16 at line', IREC CALL M3MESG( MESG ) SUCCESS = .FALSE.; RETURN END IF C Make sure divisor factor is not zero IF ( SDIV .EQ. 0.0 ) THEN WRITE( MESG,94010 ) 'ERROR: Zero divisor found at line ', IREC CALL M3MESG( MESG ) SUCCESS = .FALSE.; RETURN END IF C Search for pollutant in list of valid names, and go to the end of the loop if C none found (skip entry). Record number and position of all matches. M = 0 IPOS = 0 ! array DO N = 1, NSEF IF ( POLNAM .EQ. BIOTYPES( N ) ) THEN M = M + 1 IF ( M .LE. MXSPPOL ) THEN IPOS( M ) = N ELSE ! Max of 10 profile pollutant names per biotype MESG = 'ERROR: Exceeded max pollutant names' // & 'per biotype in ' // PNAME CALL M3MSG2( MESG ) MESG = 'Quitting' CALL M3MESG( MESG ) SUCCESS = .FALSE.; RETURN END IF END IF END DO NIPOS = M IF ( MAXVAL( IPOS ) .EQ. 0 ) CYCLE C Build unique pollutant name list (POLNAMA) from list of all profile file pollutants PNDX = INDEX1( POLNAM, POL, POLNAMA ) IF ( PNDX .LE. 0 ) THEN ! if current POLNAM is not in POLNAMA, then POL = POL + 1 ! increment counter, and POLNAMA( POL ) = POLNAM ! add POLNAM to POLNAMA END IF C Build unique species name list (SPECNMA) from list of profile file species names SNDX = INDEX1( SPECNM, ISP, SPECNMA ) IF ( SNDX .LE. 0 ) THEN ! if current SPECNM is not in SPECNMA, then ISP = ISP + 1 INDX1A ( ISP ) = ISP ! add to index SPECNMA( ISP ) = SPECNM ! add SPECNM to SPECNMA C If mole-based = mass based, then use molar transform IF ( SPLTFAC / SDIV .NE. SMFAC ) LMOLAR( ISP ) = .TRUE. END IF C Check if species is already stored for current pollutant, and if not, increment C species-per-pollutant counter and add species to list. DO M = 1, NIPOS K = NSPECA( IPOS( M ) ) #ifdef mpas NDX = INDEX1( SPECNM, K, TMPNAMES( :,IPOS( M ) ) ) #else NDX = INDEX1( SPECNM, K, TMPNAMES( 1,IPOS( M ) ) ) #endif IF ( NDX .LE. 0 ) THEN K = K + 1 IF ( K .LE. MXSPPOL ) THEN TMPNAMES( K,IPOS( M ) ) = SPECNM ELSE MESG = 'ERROR: Exceeded TMPNAMES dimension' CALL M3MESG( MESG ) SUCCESS = .FALSE.; RETURN END IF NSPECA( IPOS( M ) ) = K END IF END DO END DO ! infinite read loop 1999 CONTINUE ! end reading speciation profile input lines IF ( POL .EQ. 0 ) THEN MESG = 'ERROR: No pollutants found in speciation ' // & 'profiles that match the inventory!' CALL M3MESG( MESG ) SUCCESS = .FALSE.; RETURN END IF IF ( ISP .EQ. 0 ) THEN MESG = 'ERROR: No species found in speciation profile!' CALL M3MESG( MESG ) SUCCESS = .FALSE.; RETURN END IF C max number of species per pollutant MXSPEC = MAXVAL( NSPECA ) C Allocate memory for species names array and units to use for mole-based C transformations. ALLOCATE( SPCNAMES( MXSPEC,NSEF ), STAT=IOS ) CALL CHECKMEM( IOS, 'SPCNAMES', PNAME ) ALLOCATE( MOLUNITS( MXSPEC,NSEF ), STAT=IOS ) CALL CHECKMEM( IOS, 'MOLUNITS', PNAME ) SPCNAMES = ' ' ! array MOLUNITS = ' ' ! array C Sort master species names CALL SORTIC( ISP, INDX1A, SPECNMA ) ! sort on INDX1A C Cycle through count of all valid pollutants (NSEF) and all species associated C with these pollutants (ISP). Check if species is valid for the current pollutant, C and if so, store in the output species name list. DO I = 1, NSEF ICOUNT = 0 DO J = 1, ISP C Process species in sorted order K = INDX1A( J ) C Find species in list of valid species per pollutant #ifdef mpas NDX = INDEX1( SPECNMA( K ), NSPECA( I ), TMPNAMES( :,I ) ) #else NDX = INDEX1( SPECNMA( K ), NSPECA( I ), TMPNAMES( 1,I ) ) #endif IF ( NDX .GT. 0 ) THEN ICOUNT = ICOUNT + 1 SPCNAMES( ICOUNT, I ) = SPECNMA( K ) C When the species does not have molar factors, store the molar units as mass units IF ( LMOLAR( K ) ) THEN MOLUNITS( ICOUNT, I ) = 'moles/ton' ELSE MOLUNITS( ICOUNT, I ) = 'g/ton' END IF END IF END DO END DO C Reposition sequential file for second pass REWIND( RDEV ) ALLOCATE( EMSPC( MXLINES ), STAT=IOS ) CALL CHECKMEM( IOS, 'EMSPC', PNAME ) EMSPC = ' ' ! array initialization #ifdef Verbose write( logdev,* ) ' Biogenic emissions species:' write( logdev,* ) ' Pol POLNAMES Spc SPCNAMES Mspcs EMSPC' #endif C Find emitted CMAQ species names MSPCS = 0 DO POL = 1, NSEF DO ISP = 1, MXSPEC IF ( SPCNAMES( ISP,POL ) .EQ. ' ' ) CYCLE NDX = INDEX1 ( SPCNAMES( ISP,POL ), MSPCS, EMSPC ) IF ( NDX .EQ. 0 ) THEN MSPCS = MSPCS + 1 EMSPC( MSPCS ) = SPCNAMES( ISP,POL ) #ifdef Verbose write( logdev,'( 5X, I3, 1X, A5, 5X, I3, 1X, A16, I4, 3X, A16 )' ) & pol, biotypes( pol ), isp, spcnames( isp,pol ), mspcs, & emspc( mspcs ) else write( logdev,'( 5X, I3, 1X, A5, 5X, I3, 1X, A16 )' ) & pol, biotypes( pol ), isp, spcnames( isp,pol ) #endif END IF END DO END DO C Save Species names in global array for mapping emissions DESID_EMVAR( IBIOSRM )%LEN = MSPCS ALLOCATE( DESID_EMVAR( IBIOSRM )%ARRY ( MSPCS ) ) ALLOCATE( DESID_EMVAR( IBIOSRM )%UNITS( MSPCS ) ) ALLOCATE( DESID_EMVAR( IBIOSRM )%MW ( MSPCS ) ) ALLOCATE( DESID_EMVAR( IBIOSRM )%USED ( MSPCS ) ) ALLOCATE( DESID_EMVAR( IBIOSRM )%CONV ( MSPCS ) ) ALLOCATE( DESID_EMVAR( IBIOSRM )%BASIS( MSPCS ) ) ALLOCATE( DESID_EMVAR( IBIOSRM )%LAREA( MSPCS ) ) ALLOCATE( DESID_EMVAR( IBIOSRM )%LAREAADJ( MSPCS ) ) DESID_EMVAR( IBIOSRM )%ARRY = EMSPC DESID_EMVAR( IBIOSRM )%UNITS = 'MOLES/S' DESID_EMVAR( IBIOSRM )%MW = 1.0 DESID_EMVAR( IBIOSRM )%USED = .FALSE. DESID_EMVAR( IBIOSRM )%CONV = 1.0 DESID_EMVAR( IBIOSRM )%BASIS = 'MOLE' DESID_EMVAR( IBIOSRM )%LAREA = .FALSE. DESID_EMVAR( IBIOSRM )%LAREAADJ = .FALSE. ! Populate the Molecular Weight Field by Matching Gas Species ! to the CMAQ mechanism species DO ISP = 1,MSPCS INDX = INDEX1( EMSPC( ISP ), N_CGRID_SPC, CGRID_NAME ) IF ( INDX .NE. 0 ) THEN DESID_EMVAR( IBIOSRM )%MW( ISP ) = CGRID_MW( INDX ) ELSE WRITE( MESG, '(A,A,A,A)' ) 'WARNING: BEIS emission species ', & EMSPC( ISP ),' is not found in the Gas-Phase Mechanism. ', & 'The emission variable molecular weight will be set to 1.0' CALL LOG_MESSAGE( LOGDEV, MESG ) DESID_EMVAR( IBIOSRM )%MW( ISP ) = 1.0 END IF END DO C Allocate memory for storing mole- and mass-based factors ALLOCATE( MLFAC( MSPCS,NSEF ), STAT=IOS ) CALL CHECKMEM( IOS, 'MLFAC', PNAME ) ALLOCATE( MSFAC( MSPCS,NSEF ), STAT=IOS ) CALL CHECKMEM( IOS, 'MSFAC', PNAME ) MLFAC = 0.0 ! array MSFAC = 0.0 ! array C Read through input file to determine the total number of pollutants in the C input file, to determine the number of profiles per pollutant, to store the C unique species names, and to store the units for mass-based and mole-based C conversions IREC = 0 DO READ( RDEV, 93000, END=2999, IOSTAT=IOS ) LINE IREC = IREC + 1 IF ( IOS .GT. 0 ) THEN WRITE( MESG, 94010 ) & 'I/O error', IOS, 'reading speciation profile ' // & 'file at line', IREC CALL M3MESG( MESG ) SUCCESS = .FALSE.; RETURN END IF C Skip blank and comment lines IF ( LINE .EQ. ' ' .OR. LINE( 1:1 ) .EQ. CINVHDR ) CYCLE C Skip lines that dont reference the requested speciation profile name IF ( LINE( 1:1 ) .EQ. '"' ) THEN FILE_SPPRO = LINE( 2: INDEX( LINE,'"' )-1 ) IF ( FILE_SPPRO .NE. SPPRO ) CYCLE ELSE FILE_SPPRO = LINE( 1: ( INDEX( LINE,';' )-1 ) ) IF ( FILE_SPPRO .NE. SPPRO ) CYCLE END IF C Separate the line of data into each part CALL PARSLINE( LINE, NSEGS, SEGMENT ) C Left-justify character strings and convert factors to reals SPNPRF = ADJUSTL ( SEGMENT( 1 ) ) POLNAM = ADJUSTL ( SEGMENT( 2 ) ) SPECNM = ADJUSTL ( SEGMENT( 3 ) ) SPLTFAC = STR2REAL( SEGMENT( 4 ) ) SDIV = STR2REAL( SEGMENT( 5 ) ) SMFAC = STR2REAL( SEGMENT( 6 ) ) C Search for pollutant in list of valid names, and go to the end of the loop if C not found (skip entry) PNDX = INDEX1( POLNAM, NSEF, BIOTYPES ) IF ( PNDX .EQ. 0 ) CYCLE SNDX = INDEX1( SPECNM, MSPCS, EMSPC ) IF ( SNDX .GT. 0 ) THEN MLFAC( SNDX,PNDX ) = SPLTFAC / SDIV MSFAC( SNDX,PNDX ) = SMFAC END IF END DO ! infinite read loop 2999 CONTINUE ! end reading speciation profile input lines RETURN C----------------------------------------------------------------------- 93000 FORMAT( A ) 94010 FORMAT( 10( A, :, I8, :, 1X ) ) END FUNCTION BIOG_INIT END MODULE BIOG_EMIS ================================================ FILE: CCTM/src/emis/emis/CMAQ_Control_DESID.nml ================================================ !------------------------------------------------------------------------------! ! Emission Control Interface ! ! for the ! ! Detailed Emissions Scaling, Isolation, and Diagnostics (DESID) Module, ! ! part of the ! ! Community Multiscale Air Quality (CMAQ) Model ! ! developed and maintained by the ! ! Center for Environmental Measurement and Modeling (CEMM), ! ! Office of Research and Development (ORD) ! ! U.S. Environmental Protection Agency (USEPA) ! ! ! ! This namelist is consistent with CMAQv5.4 (Release AUGUST 2022) ! ! ! ! See CMAQ User's Guide Appendix B and ! ! Murphy et al., Geoscientific Model Development, 14, 3407-3420, ! ! https://doi.org/10.5194/gmd-14-3407-2021, 2021. ! !------------------------------------------------------------------------------! &Desid_Options Desid_MaxLays = 0 ! Add all emissions above Desid_MaxLays to the grid cell at ! Desid_MaxLays. If Desid_MaxLays = 0, then all model layers are ! available for emissions. / !------------------------------------------------------------------------------! ! Area Normalization Component ! ! Specify area-normalized emission fluxes from input streams. If emission ! ! inputs are provided to CMAQ in area-normalized fluxes for any stream, this ! ! component may be used to convert them correctly to emission rates ! ! appropriate for the model simulation grid projection. For example, if ! ! offline biogenic emissions are provided in units of moles/m2/s, then that ! ! stream may be identified here and DESID can be instructed to adjust each ! ! flux to moles/s and adjust the rates using the map scale factor that ! ! converts emissions in real geographic space into projected grid space. ! ! ! ! Definition of Fields: ! ! 'Stream - Declare a stream. If the label is 'ALL', then the instruction ! ! Label' will be expanded to all OFFLINE streams. ! ! ! ! 'Area Normalization' - If TRUE, then this stream's emissions will be ! ! multiplied by grid cell area. If AUTO, then DESID will deduce ! ! from the units string whether or not each variable on the ! ! stream input file should be multiplied by the area scale ! ! factor. ! ! ! ! 'Projection Adjustment' - If TRUE, then this stream's emissions will be ! ! multiplied by the area Map Scale Factor. If AUTO, then DESID ! ! will inherit the per-stream value from Area Normalization. If ! ! Area Normalization is TRUE, the Projection Adjustment is True ! !------------------------------------------------------------------------------! &Desid_AreaNormVars Desid_Max_Area = 30 ! Maximum number of Area Normalization rules / &Desid_AreaNorm Desid_Area_Nml = ! | Stream Label | Area Normalization | Projection Adjustment 'ALL' ,'AUTO' ,'AUTO', ! 'GRIDDED' ,'TRUE' ,'TRUE', ! 'FIRES' ,'TRUE' ,'FALSE', ! 'VCP' ,'FALSE' ,'TRUE', / !------------------------------------------------------------------------------! ! Size Distribution Specification Component ! ! Each size distribution rule either modifies the parameters associated with ! ! the aerosol modes of a particular stream, or adds new modes to a particular! ! stream if they do not already exist. ! ! ! ! Definition of Fields: ! ! 'Stream - Label for the emissions stream that the instruction will ! ! Label' apply to. If the label is 'ALL', then the instruction will ! ! be expanded to apply to all streams. ! ! 'Emission Mode' - With this label, the user identifies which mode from ! ! the emissions is to be modified or created. With this ! ! specificity, multiple streams can be defined and ! ! mapped in the emissions rules. ! ! 'Reference Mode' - This label maps the emissions species aerosol mode ! ! to specific parameters catalogued in the AERO_DATA ! ! module. ! !------------------------------------------------------------------------------! &Desid_SizeDistVars Desid_Max_Sd = 10 ! Maximum number of size distribution rules / &Desid_SizeDist Desid_Sd_nml = ! Stream Label | Emiss. Mode | Ref. Mode 'ALL' ,'FINE' ,'FINE_REF', 'ALL' ,'COARSE' ,'COARSE_REF', 'WBDUST' ,'FINE' ,'FINE_WBDUST', 'WBDUST' ,'COARSE' ,'COARSE_WBDUST', 'SEASPRAY' ,'FINE' ,'FINE_SEASPRAY', 'SEASPRAY' ,'COARSE' ,'COARSE_SEASPRAY', ! 'AIRCRAFT' ,'FINE' ,'AIR_FINE', !To use these examples, you ! 'AIRCRAFT' ,'COARSE' ,'AIR_COARSE', ! must add entries for AIR_FINE ! and AIR_COARSE to the data structure ! em_aero_ref in AERO_DATA. / !------------------------------------------------------------------------------! ! Region-Based Scaling Specification Component (See User's Guide section B.3) ! ! It is possible in CMAQ to scale emissions for a subset of the model domain ! ! using gridded masks to indicate where the scaling should occur. ! ! ! ! Definition of Fields: ! ! 'Region - Label for the region that is being specified. By default, the! ! Label' first region, is the whole domain, or "EVERYWHERE". It is ! ! 'File - With this label, the user identifies the file that the data for! ! Label' this region is stored on. The CMAQ runscript should provide the! ! path to this file (or files) using the environment variable ! ! construct. ! ! 'Variable - This label identifies the variable on the region file that ! ! on File' should be used to populate this particular region. ! ! ! ! Note that the 'Region Label' and 'Variable on File' fields are case ! ! insensitive. It is required that region variable names on the file be ! ! capitalized. This requirement willl be relaxed in future CMAQ versions. ! !------------------------------------------------------------------------------! &Desid_RegionDefVars Desid_Max_Reg = 60 ! Maximum number of region definition rules Desid_N_Reg_Fams = 0 ! Exact number of region family definitions Desid_Max_Reg_Fam_Members = 100 ! Larger than the number of regions on all ! family definitions / &Desid_RegionDef Desid_Reg_nml = ! Region Label | File_Label | Variable on File 'EVERYWHERE' ,'N/A' ,'N/A', ! 'WATER' ,'CMAQ_MASKS' ,'OPEN', ! 'ALL' ,'CMAQ_MASKS' ,'ALL', ! 'ALL' ,'ISAM_REGIONS','ALL', / &Desid_RegionFam ! Region Family Definitions ! RegionFamilyName(1) = 'Water' ! RegionFamilyMembers(1,:)= 'SURF','OPEN' / !------------------------------------------------------------------------------! ! Emissions Scaling Family Definitions ! ! This component includes definitions for families of emission streams and ! ! region combinations. ! !------------------------------------------------------------------------------! &Desid_StreamFamVars Desid_N_Stream_Fams = 0 ! Exact number of stream family definitions Desid_Max_Stream_Fam_Members = 20 ! Larger than the number of streams on all ! family definitions / &Desid_StreamFam ! For emission streams available in several run scripts under CCTM/scripts ! Set Desid_N_Stream_Fams to 1 !!!!!!! ! StreamFamilyName(1) = 'PT_SOURCES' ! StreamFamilyMembers(1,1:3)= 'PT_NONEGU','PT_EGU','PT_OTHER' ! For emission streams unique in CCTM/src/run_cctm_cracmm_4LISTOS1.csh script ! Set Desid_N_Stream_Fams to 3 !!!!!!! ! Sources that do not have a source-specific POA treatment !StreamFamilyName(1) = 'GENERAL_POA' !StreamFamilyMembers(1,1:5)= 'GRIDDED_OTHER','GRIDDED_SOLVENTS','PT_CANADA_SOLVENTS','PT_OTHER','PT_US_SOLVENTS' ! Diesel-Like Sources !StreamFamilyName(2) = 'DIESEL' !StreamFamilyMembers(2,1:2)= 'GRIDDED_DIESEL','PT_CMV' ! US and Canada Aircraft !StreamFamilyName(3) = 'AIRCRAFT' !StreamFamilyMembers(3,1:2)= 'GRIDDED_US_AIRCRAFT','PT_CANADA_AIRPORTS' / !------------------------------------------------------------------------------! ! Emissions Diagnostic Output Component ! ! This section allows users to specify individual species for output on ! ! emissions diagnostic output files. ! ! Definition of Fields: ! ! Desid_Diag_Streams_Nml(1:Desid_N_Diag_Rules,:) - The stream names that are ! ! to be exported. In addition to the labels of individual streams, you ! ! may also use stream family names here to identify more than one stream! ! at a time. By default, each stream family element will instruct CMAQ ! ! to sum all of the streams in that group. The keyword 'ALL' is ! ! available by default to expand a list of all streams individually. The! ! keyword 'TOTAL' is availble to select the sum of all streams. You may ! ! use a '*' at the beginning of a family name to instruct CMAQ to expand! ! that keyword and export files for all of the streams in that group. ! ! Desid_Diag_Fmt_Nml(1:Desid_N_Diag_Rules) - the format of every stream ! ! created as a result of the instruction. Options are: ! ! - COLSUM = the column-sum ! ! - 3D = 3D output ! ! - LAYER1 = Just the surface layer ! ! - OFF = Turn Off File ! ! Desid_Diag_Spec_Nml(1:Desid_N_Diag_Rules,:) - The species to be added to ! ! each diagnostic file. Species will only appear on a diagnostic file if! ! the relevant stream or group of streams for the file have that species! ! present. The keyword 'ALL' may also be used to easily add all species ! ! of any stream. ! !------------------------------------------------------------------------------! &Desid_DiagVars Desid_N_Diag_Rules = 0 ! Exact Number of Diagnostic Rules Below Desid_Max_Diag_Streams=20 ! Maximum number of species variables on all rules ! below (do not count expansions) Desid_Max_Diag_Spec = 80 ! Maximum number of species variables on all rules ! below (do not count expansions) / &Desid_Diag ! Example 1: Print all streams individually to many diagnostic files of 2D ! column sums. NO, NO2, total NOX (defined in the chemical family interface ! in CMAQ_Control_Misc.nml), bulk ASO4 (all modes), and CO will all be on the ! file. ! Desid_Diag_Streams_Nml(1,:)= 'ALL' ! Desid_Diag_Fmt_Nml(1) = 'COLSUM' ! Options: LAYER1, COLSUM, 3D ! Desid_Diag_Spec_Nml(1,:) = 'NO','NO2','NOX','ASO4','CO' ! Example 2: Activate the sum of all streams using the keyword TOTAL. This file ! will be 3D and will include six variables: 'AEC' = AECI + AECJ + AECK; ! 'AECI'; 'NO2'; 'ACLK'; 'AMG' and 'TERP' if those variables are avilable on ! the stream. ! Desid_Diag_Streams_Nml(2,:)= 'TOTAL' ! Desid_Diag_Fmt_Nml(2) = '3D' ! Desid_Diag_Spec_Nml(2,:) = 'AEC','AECI','NO2','ACLK','AMG','TERP' ! Example 3: Create a diagnostic of the sum of the components of the PT_SOURCES ! family (defined in the stream family section). This file will be column sums ! and will include all the emitted species as long as they appear on at least ! one of the streams within PT_SOURCES. ! Desid_Diag_Streams_Nml(3,:)= 'PT_SOURCES' ! Desid_Diag_Fmt_Nml(3) = 'COLSUM' ! Desid_Diag_Spec_Nml(3,:) = 'ALL' / ================================================ FILE: CCTM/src/emis/emis/DUST_EMIS.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: module dust_emis C----------------------------------------------------------------------- C Description: C * Extracts selected landuse categories from BELD01 and BELD03 and merges C * the selections into a dust-related landuse array (ULAND). C Function: 3d point source emissions interface to the chemistry-transport model C Revision History: C 16 Dec 10 J.Young: Adapting Daniel Tong`s work on windblown dust C 21 Apr 11 S.Roselle: replaced I/O API include files with UTILIO_DEFN C 11 May 11 D.Wong: incorporated twoway model implementation C 8 Jul 11 J.Young: unified string lengths in character lists for compiler compatibility C 11 Nov 11 J.Young: generalizing land use/cover C 8 Jun 12 J.Young: remove full character blank padding for GNU Fortran (GCC) 4.1.2 C 13 Jul 12 J.Young: following Daniel Tong: changed clayc, siltc, sandc units from mass C fraction to %; adjusted F/G (vertical to horizontal flux) ratio C to be continuous for clay content > 20% C 30 Sep 13 J.Young: corrected diag file units description; added snow cover adjustment; C adjusted F/G (vertical to horizontal flux) ratio to be continuous C for clay content > 0.2; convert volumetric soil moisture to C gravimetric water content; corrected soil moisture factor (fmoit); C use lwmask>0 rather than sltyp>0 (non-existent) for over water test C 15 Sep 15 H.Foroutan: revised threshold friction velocity parameterization C 20 Oct 15 H.Foroutan: Updated the calculation of the threshold velocity(U*t), which is C now based on dust particle size, following Shao and Lu [JGR,2000]. C Implemented a dynamic vegetation fraction based on the MODIS FPAR. C Introduced a new parametrization for surface roughness (z0) C applicable to dust emission schemes, and accordingly calculated C the friction velocity (U*) at the surface using 10m wind speed C and the new (microspcopic) surface roughness. C Surface roughness adjusted for estimated annual vegetation height. C Included drag partitioning coefficient. Updated the calculation of C the vertical-to-horizontal flux based on Lu and Shao [JGR,1999]. C Updated the dust diag output file accordingly. C 8 Jan 16 J.Young: Changes for computational efficiency C 2 Feb 16 J.Young: move dust aero speciation table to AERO_DATA C 01 Feb 19 D.Wong: Implemented centralized I/O approach, removed all MY_N clauses C 9 Jul 19 Gilliam: Removed a lot of old commented out legacy tables. C Removed the direct read of FPAR MODIS file as this data comes C directly from WRF LSM models that have access to MODIS veg data now. C Number of soil types fixed to 16 to match WRF and tables updated. C 3 Mar 22 Gilliam and Willison: Removed fugitive dust capture from canopies C (tfa and tfb terms). Added soil texture information from PX when available. C Removed deprecated option concerning erodable agland. Removed BELD as an option C for input. C----------------------------------------------------------------------- use lus_defn use aero_data use desid_vars implicit none public ndust_spc, dust_spc, & dust_emis_init, get_dust_emis private real, allocatable, save :: dust_em( :,: ) ! total dust emissions [g/m**3/s] C updated values of mass fraction for "freshly emitted dust" C based on Kok [PNAS, 2011] and Nabat et al. [ACP, 2012] real, parameter :: fracmj = 0.07 ! mass fraction assigned to accum mode real, parameter :: fracmk = 0.93 ! mass fraction assigned to coarse mode C diam`s from fracmj,fracmk-weighted 2 2-bin averages of geom means C 2 J-mode bins: 0.1-1.0, 1.0-2.5 um C 2 K-mode bins: 2.5-5.0, 5.0-10.0 um real, parameter :: dgvj = 1.3914 ! geom mean diam of accum mode [um] real, parameter :: dgvk = 5.2590 ! geom mean diam of coarse mode [um] real, parameter :: sigj = 2.0000 ! geom std deviation of accum mode flux real, parameter :: sigk = 2.0000 ! geom std deviation of coarse mode flux C Local Variables: C Factors for converting 3rd moment emission rates into number and 2nd moment C emission rates. (Diameters in [um] changed to [m] ) See Equations 7b and 7c C of Binkowski & Roselle (2003) real :: l2sgj ! [ln( sigj )] ** 2 real :: l2sgk ! [ln( sigk )] ** 2 real, save :: factnumj ! = exp( 4.5 * l2sgj ) / dgvj ** 3 * 1.0e18 real, save :: factnumk ! = exp( 4.5 * l2sgk ) / dgvk ** 3 * 1.0e18 real, save :: factm2j ! = exp( 0.5 * l2sgj ) / dgvj * 1.0e6 real, save :: factm2k ! = exp( 0.5 * l2sgk ) / dgvk * 1.0e6 real, save :: factsrfj ! = pi * factm2j real, save :: factsrfk ! = pi * factm2k real :: sumsplit, sumfrac integer :: n, idx C Number of soil types: For WRF there are 16 types; integer, parameter :: nsltyp = 16 C Variables for the windblown dust diagnostic file: integer, parameter :: fndust_diag = 17 ! number of fixed diagnostic output vars integer, save :: ndust_diag ! number of diagnostic output vars real, allocatable, save :: diagv( : ) ! diagnostic output variables real, allocatable, save :: dustbf( :,:,: ) ! diagnostic accumulate buffer #ifdef verbose_wbdust real, allocatable, save :: sdiagv( : ) ! global sum of each diag output var #endif type diag_type character( 16 ) :: var character( 16 ) :: units character( 80 ) :: desc end type diag_type type( diag_type ), allocatable, save :: diagnm( : ) type( diag_type ), allocatable, save :: vdiagnm_emis( : ) type( diag_type ), allocatable, save :: vdiagnm_frac( : ) type( diag_type ), allocatable, save :: vdiagnm_ustar( : ) type( diag_type ), allocatable, save :: vdiagnm_kvh( : ) type( diag_type ), allocatable, save :: vdiagnm_rough( : ) character( 10 ) :: truncnm character( 16 ) :: vnm type( diag_type ), parameter :: fdiagnm( fndust_diag ) = (/ C var units desc C ---------------- -------- ------------------------------------------- & diag_type( 'Cropland_Emis ', 'g m-3 s-1', 'emissions for cropland landuse type '), & diag_type( 'Desertland_Emis ', 'g m-3 s-1', 'total emis for desert types and cropland '), & diag_type( 'Cropland_Frac ', 'percent ', 'cropland erodible landuse fraction (%) '), & diag_type( 'Desertland_Frac ', 'percent ', 'total desert fraction (%) '), & diag_type( 'Cropland_Ustar ', 'm s-1 ', 'u* for cropland '), & diag_type( 'Cropland_kvh ', 'm-1 ', 'cropland vert to horiz flux ratio '), & diag_type( 'Cropland_Rough ', ' ', 'cropland surface roughness factor '), & diag_type( 'Soil_Moist_Fac ', ' ', 'soil moisture factor for threshold u* '), & diag_type( 'Soil_Erode_Pot ', '1 ', 'soil -> dust erodiblity potential '), & diag_type( 'Mx_Adsrb_H2O_Frc', '1 ', 'max adsorbed water fraction '), & diag_type( 'Vegetation_Frac ', '1 ', 'vegetation land coverage '), & diag_type( 'Urban_Cover ', 'percent ', 'urban land coverage '), & diag_type( 'Forest_Cover ', 'percent ', 'forest land coverage '), & diag_type( 'ANUMJ ', 's-1', 'accumulation mode number '), & diag_type( 'ANUMK ', 's-1', 'coarse mode number '), & diag_type( 'ASRFJ ', 'm2 s-1 ', 'accumulation mode surface area '), & diag_type( 'ASRFK ', 'm2 s-1 ', 'coarse mode surface area ')/) C Module shared variables: real, allocatable, save :: wmax ( :,: ) ! max adsorb water percent real, allocatable, save :: kvh ( :,:,: ) ! ratio of vertical flux / horizontal (k factor) real, allocatable, save :: sd_ep ( :,: ) ! soil->dust erodiblity potential real :: eropot( 3 ) = ! erodible potential of soil components & (/ 0.08, ! clay & 1.00, ! silt & 0.12 /) ! sand CONTAINS C======================================================================= function dust_emis_init( jdate, jtime, tstep ) result( success ) C Revision History. C Aug 12, 15 D. Wong: Replaced MYPE with IO_PE_INCLUSIVE for parallel I/O C implementation use hgrd_defn ! horizontal domain specifications use aero_data ! aerosol species definitions use asx_data_mod ! meteorology data use utilio_defn use lus_data_module use centralized_io_module C Arguments: integer, intent( in ) :: jdate ! current model date, coded YYYYDDD integer, intent( in ) :: jtime ! current model time, coded HHMMSS integer, intent( in ) :: tstep ! output time step logical success C Includes: include SUBST_FILES_ID ! file name parameters C Local variables: character( 16 ) :: pname = 'DUST_EMIS_INIT' character( 16 ) :: vname character( 80 ) :: vardesc character( 250 ) :: xmsg = ' ' integer status integer c, r, i, j, k, l, n, im integer idiag, idust, spc integer n_mass_emissions character( 16 ) :: sn type( diag_type ), allocatable :: diagnm_swap( : ) C----------------------------------------------------------------------- success = .true. CALL LOG_MESSAGE( LOGDEV, 'Initialize Wind-Blown Dust Emissions' ) C...Populate Master Emissions Map Vector So That Diagnostics C can be printed in EMIS_MAP DESID_EMVAR( IDUSTSRM )%len = ndust_spc*2 Allocate( DESID_EMVAR( IDUSTSRM )%arry( ndust_spc*2 ) ) Allocate( DESID_EMVAR( IDUSTSRM )%units( ndust_spc*2 ) ) Allocate( DESID_EMVAR( IDUSTSRM )%mw ( ndust_spc*2 ) ) Allocate( DESID_EMVAR( IDUSTSRM )%used ( ndust_spc*2 ) ) Allocate( DESID_EMVAR( IDUSTSRM )%conv ( ndust_spc*2 ) ) Allocate( DESID_EMVAR( IDUSTSRM )%basis( ndust_spc*2 ) ) Allocate( DESID_EMVAR( IDUSTSRM )%larea( ndust_spc*2 ) ) Allocate( DESID_EMVAR( IDUSTSRM )%lareaadj( ndust_spc*2 ) ) DESID_EMVAR( IDUSTSRM )%arry( : ) = 'NOT_AVAILABLE' do i = 1,ndust_spc IF ( dust_spc( i )%spcfac(1) .NE. 0.0 ) & DESID_EMVAR( IDUSTSRM )%arry( i ) = & 'PMFINE_' // dust_spc(i)%name IF ( dust_spc( i )%spcfac(2) .NE. 0.0 ) & DESID_EMVAR( IDUSTSRM )%arry( i+ndust_spc ) = & 'PMCOARSE_' // dust_spc(i)%name DESID_EMVAR( IDUSTSRM )%mw( i ) = dust_spc(i)%mw DESID_EMVAR( IDUSTSRM )%mw( i+ndust_spc ) = dust_spc(i)%mw end do DESID_EMVAR( IDUSTSRM )%units( : ) = 'G/S' DESID_EMVAR( IDUSTSRM )%used ( : ) = .FALSE. DESID_EMVAR( IDUSTSRM )%conv ( : ) = 1.0 DESID_EMVAR( IDUSTSRM )%basis( : ) = 'MASS' DESID_EMVAR( IDUSTSRM )%larea( : ) = .FALSE. DESID_EMVAR( IDUSTSRM )%lareaadj( : ) = .FALSE. C...Count the number of mass emissions species n_mass_emissions = 0 do i = 1, ndust_spc do j = 1, 2 if( dust_spc( i )%spcfac( j ) .gt. 0. ) & n_mass_emissions = n_mass_emissions + 1 end do end do allocate ( dustoutm( ndust_spc*2,ncols,nrows ), & dustoutn( 2,ncols,nrows ), & dustouts( 2,ncols,nrows ), stat = status ) if ( status .ne. 0 ) then xmsg = '*** Failure allocating DUSTOUTM, DUSTOUTN, or DUSTOUTS' call m3warn ( pname, jdate, jtime, xmsg ) success = .false.; return end if C Allocate emissions array allocate( dust_em( ncols,nrows ), stat = status ) if ( status .ne. 0 ) then xmsg = '*** Failure allocating DUST_EM' call m3warn( pname, jdate, jtime, xmsg ) success = .false.; return end if C Allocate private arrays allocate( wmax ( ncols,nrows ), & sd_ep ( ncols,nrows ), stat = status) if ( status .ne. 0 ) then xmsg = '*** Failure allocating WMAX, or SD_EP' call m3warn( pname, jdate, jtime, xmsg ) success = .false.; return end if wmax = 0.0 ! array assignment sd_ep = 0.0 ! array assignment #ifndef mpas C Initialize land use/cover variables if ( .not. lus_init( jdate, jtime ) ) then xmsg = 'Failure initializing land use module' call m3exit( pname, jdate, jtime, xmsg, xstat2 ) end if #endif if ( dustem_diag ) then ! Open the emissions diagnostic file C Set up variable diagnostic names (from LUS_DEFN) allocate( vdiagnm_emis ( n_dlcat ), & vdiagnm_frac ( n_dlcat ), & vdiagnm_kvh ( n_dlcat ), & vdiagnm_rough( n_dlcat ), & vdiagnm_ustar( n_dlcat ), stat = status ) if ( status .ne. 0 ) then xmsg = '*** Failure allocating VDIAGNM_*' call m3warn( pname, jdate, jtime, xmsg ) success = .false.; return end if vdiagnm_emis = diag_type( ' ', ' ', ' ' ) ! array assignment vdiagnm_frac = diag_type( ' ', ' ', ' ' ) ! array assignment vdiagnm_ustar = diag_type( ' ', ' ', ' ' ) ! array assignment vdiagnm_kvh = diag_type( ' ', ' ', ' ' ) ! array assignment vdiagnm_rough = diag_type( ' ', ' ', ' ' ) ! array assignment C...Set Up Diagnostic Species Variables ndust_diag = fndust_diag + 5 * n_dlcat + n_mass_emissions do i = 1, n_dlcat truncnm = vnmld( i )%desc ! char( 10 ) C... replace embedded spaces (within 16 chars) with "_" C... replace embedded dashes (within 16 chars) with "_" l = len_trim( truncnm ) do k = 1, l if ( truncnm( k:k ) .eq. " " .or. & truncnm( k:k ) .eq. "-" ) truncnm( k:k ) = "_" end do vnm = trim( truncnm ) // '_Emis' ! char( 16 ) vdiagnm_emis( i ) = diag_type( vnm, 'g/m**2/s', vnmld( i )%desc ) vnm = trim( truncnm ) // '_Frac' ! char( 16 ) vdiagnm_frac( i ) = diag_type( vnm, 'percent', vnmld( i )%desc ) vnm = trim( truncnm ) // '_Ustr' ! char( 16 ) vdiagnm_ustar( i ) = diag_type( vnm, 'm/s', vnmld( i )%desc ) vnm = trim( truncnm ) // '_Kvh' ! char( 16 ) vdiagnm_kvh( i ) = diag_type( vnm, '1/m', vnmld( i )%desc ) vnm = trim( truncnm ) // '_Rough' ! char( 16 ) vdiagnm_rough( i ) = diag_type( vnm, ' ', vnmld( i )%desc ) end do C Allocate diagnostic emissions arrays allocate( diagnm( ndust_diag ), ! diag_type & diagv ( ndust_diag ), & dustbf( ndust_diag,ncols,nrows ), stat = status ) if ( status .ne. 0 ) then xmsg = '*** Failure allocating DIAGNM, DIAGV or DUSTBF' call m3warn( pname, jdate, jtime, xmsg ) success = .false.; return end if #ifdef verbose_wbdust allocate( sdiagv( ndust_diag ), stat = status ) if ( status .ne. 0 ) then xmsg = '*** Failure allocating SDIAGV' call m3warn( pname, jdate, jtime, xmsg ) success = .false.; return end if #endif C Build the complete diagnostic name array n for MODIS NOAH do i = 1, n_dlcat ! 4 diagnm( i ) = vdiagnm_emis( i ) end do n = n_dlcat + 1 diagnm( n ) = fdiagnm( 1 ) ! Cropland_Emis n = n + 1 diagnm( n ) = fdiagnm( 2 ) ! Desertland_Emis do i = 1, n_dlcat diagnm( i+n ) = vdiagnm_frac( i ) end do n = n + n_dlcat + 1 diagnm( n ) = fdiagnm( 3 ) ! Cropland_Frac n = n + 1 diagnm( n ) = fdiagnm( 4 ) ! Desertland_Frac do i = 1, n_dlcat diagnm( i+n ) = vdiagnm_ustar( i ) end do n = n + n_dlcat + 1 diagnm( n ) = fdiagnm( 5 ) ! Cropland_Ustar do i = 1, n_dlcat diagnm( i+n ) = vdiagnm_kvh( i ) end do n = n + n_dlcat + 1 diagnm( n ) = fdiagnm( 6 ) ! Cropland_Kvh do i = 1, n_dlcat diagnm( i+n ) = vdiagnm_rough( i ) end do n = n + n_dlcat + 1 diagnm( n ) = fdiagnm( 7 ) ! Cropland_Rough n = n - 7 ! add remaining variables in fdiagnm do i = 8, fndust_diag idiag = i+n diagnm( idiag ) = fdiagnm( i ) end do C...append diagnostic variables with mass emissions species do j = 1, 2 do i = 1, ndust_spc if( dust_spc( i )%spcfac( j ) .eq. 0. ) cycle n = 0 do k = 1, idiag ! determine if dust emissions is already added to diagnostic output if( trim( DESID_EMVAR( IDUSTSRM )%ARRY( (j-1)*ndust_spc+i )) & .Eq. diagnm( k )%var ) Then n = k exit end if end do if( n .gt. 0 ) cycle ! skip already added idiag = idiag + 1 diagnm( idiag )%var = DESID_EMVAR( IDUSTSRM )%ARRY( (j-1)*ndust_spc+i ) diagnm( idiag )%units = 'g/m**3/s' Select Case( j ) ! assumes only two aerosol modes dust emissions Case( 1 ) diagnm( idiag )%desc = 'fine mode' Case( 2 ) diagnm( idiag )%desc = 'coarse mode' end Select diagnm( idiag )%desc = Trim( diagnm( idiag )%desc ) & // ' emissions for ' & // Trim( dust_spc( i )%description ) end do end do ! remove unused space in diagnm by deallocated and reallocating to idiag value allocate( diagnm_swap( ndust_diag ), stat = status ) if ( status .ne. 0 ) then xmsg = '*** Failure allocating DIAGNM_SWAP' call m3warn( pname, jdate, jtime, xmsg ) success = .false.; return end if diagnm_swap = diagnm deallocate( diagnm ) ndust_diag = idiag allocate( diagnm( ndust_diag ), stat = status ) if ( status .ne. 0 ) then xmsg = '*** Failure reallocating DIAGNM' call m3warn( pname, jdate, jtime, xmsg ) success = .false.; return end if diagnm( 1:ndust_diag ) = diagnm_swap( 1:ndust_diag ) deallocate( diagnm_swap ) if ( io_pe_inclusive ) & call opdust_emis ( stdate, sttime, tstep, ndust_diag, diagnm ) end if ! dustem_diag l2sgj = log( sigj ) * log( sigj ) l2sgk = log( sigk ) * log( sigk ) C Factors for converting 3rd moment emission rates into number and 2nd moment C emission rates. (Diameters in [um] changed to [m] ) See Equations 7b and 7c C of Binkowski & Roselle (2003) factnumj = 1.0e18 * exp( 4.5 * l2sgj ) / dgvj ** 3 factnumk = 1.0e18 * exp( 4.5 * l2sgk ) / dgvk ** 3 factm2j = 1.0e06 * exp( 0.5 * l2sgj ) / dgvj factm2k = 1.0e06 * exp( 0.5 * l2sgk ) / dgvk factsrfj = pi * factm2j factsrfk = pi * factm2k #ifdef verbose_wbdust write( logdev,* ) ' ' write( logdev,* ) ' l2sgj,l2sgk: ', l2sgj, l2sgk write( logdev,* ) ' factnumj,factnumk: ', factnumj, factnumk write( logdev,* ) ' factm2j,factm2k: ', factm2j, factm2k write( logdev,* ) ' factsrfj,factsrfk: ', factsrfj, factsrfk write( logdev,* ) ' ' #endif end function dust_emis_init C======================================================================= subroutine opdust_emis ( jdate, jtime, tstep, ndust_var, dust_var ) C 27 Dec 10 J.Young: initial use grid_conf ! horizontal & vertical domain specifications use utilio_defn implicit none include SUBST_FILES_ID ! file name parameters C Arguments: integer, intent( in ) :: jdate ! current model date, coded YYYYDDD integer, intent( in ) :: jtime ! current model time, coded HHMMSS integer, intent( in ) :: tstep ! output time step integer, intent( in ) :: ndust_var type( diag_type ), intent( in ) :: dust_var( : ) C Local variables: character( 16 ) :: pname = 'OPDUST_EMIS' character( 96 ) :: xmsg = ' ' integer v, l ! loop induction variables C----------------------------------------------------------------------- #ifndef mpas C Try to open existing file for update if ( .not. open3( ctm_dust_emis_1, fsrdwr3, pname ) ) then xmsg = 'Could not open CTM_DUST_EMIS_1 for update - ' & // 'try to open new' call m3mesg( xmsg ) C Set output file characteristics based on COORD.EXT and open diagnostic file ftype3d = grdded3 sdate3d = jdate stime3d = jtime tstep3d = tstep call nextime( sdate3d, stime3d, tstep3d ) ! start the next hour nvars3d = ndust_var ncols3d = gl_ncols nrows3d = gl_nrows nlays3d = 1 nthik3d = 1 gdtyp3d = gdtyp_gd p_alp3d = p_alp_gd p_bet3d = p_bet_gd p_gam3d = p_gam_gd xorig3d = xorig_gd yorig3d = yorig_gd xcent3d = xcent_gd ycent3d = ycent_gd xcell3d = xcell_gd ycell3d = ycell_gd vgtyp3d = vgtyp_gd vgtop3d = vgtop_gd ! vgtpun3d = vgtpun_gd ! currently, not defined do l = 1, nlays3d + 1 vglvs3d( l ) = vglvs_gd( l ) end do gdnam3d = grid_name ! from HGRD_DEFN do v = 1, nvars3d vtype3d( v ) = m3real vname3d( v ) = dust_var( v )%var units3d( v ) = dust_var( v )%units vdesc3d( v ) = dust_var( v )%desc end do fdesc3d( 1 ) = 'windblown dust parameters, variables, and' fdesc3d( 2 ) = 'hourly layer-1 windblown dust emission rates' do l = 3, mxdesc3 fdesc3d( l ) = ' ' end do C Open windblown dust emissions diagnostic file if ( .not. open3( ctm_dust_emis_1, fsnew3, pname ) ) then xmsg = 'Could not create the CTM_DUST_EMIS_1 file' call m3exit( pname, sdate3d, stime3d, xmsg, xstat1 ) end if end if #endif return end subroutine opdust_emis C======================================================================= subroutine get_dust_emis( jdate, jtime, tstep, rjacm, cellhgt, & l_desid_diag) use grid_conf ! horizontal & vertical domain specifications use asx_data_mod ! meteorology data use aero_data use utilio_defn use lus_data_module use centralized_io_module use RUNTIME_VARS, only: WRF_V4P #ifdef mpas use util_module, only : index1, time2sec #endif C 8/18/11 D.Wong: incorporated twoway model implementation and change C RC -> RCA and RN -> RNA and made it backward compatible C 8/12/15 D.Wong: added code to handle parallel I/O implementation C Arguments: integer, intent( in ) :: jdate ! current model date, coded YYYYDDD integer, intent( in ) :: jtime ! current model time, coded HHMMSS integer, intent( in ) :: tstep( 3 ) ! output time step, sync step, 2way step real, intent( in ) :: rjacm( ncols,nrows ) ! reciprocal Jacobian [1/m] real, intent( in ) :: cellhgt(:,:) ! grid-cell height [sigma] logical, intent( in ) :: l_desid_diag ! flag determining whether or not DESID ! is in diagnostic mode C Includes: include SUBST_FILES_ID ! file name parameters C External Functions: C Parameters: integer, parameter :: ndp = 4 ! number of soil texture type particle sizes: ! 1 Coarse sand ! 2 Fine-medium sand ! 3 Silt ! 4 Clay real, parameter :: f6dpi = 6.0 / pi real, parameter :: mv = 0.16 real, parameter :: sigv = 1.45 real, parameter :: betav = 202.0 real, parameter :: sigv_mv = sigv * mv ! = 0.232 real, parameter :: betav_mv = betav * mv ! = 32.32 real, parameter :: mb = 0.5 real, parameter :: sigb = 1.0 real, parameter :: betab = 90.0 real, parameter :: sigb_mb = sigb * mb ! = 0.5 real, parameter :: betab_mb = betab * mb ! = 45.0 character( 16 ) :: pname = 'GET_DUST_EMIS' character( 16 ) :: vname character( 96 ) :: xmsg integer status integer c, r, j, m, n, v, isd integer, save :: wstep = 0 ! local write counter integer :: mdate, mtime ! diagnostic file write date&time ! automatic arrays real :: fmoit ( ncols,nrows ) ! factor of soil moisture on u*t real :: soimt ( ncols,nrows ) ! gravimetric soil moisture (Kg/Kg) real :: wrbuf ( ncols,nrows ) ! diagnositc write buffer real :: vegfrac( ncols,nrows ) ! vegetation fraction real :: vegfree ! 1.0 - vegfrac for this col, row real :: lai ( ncols,nrows ) ! leaf area index real, allocatable, save :: ustr ( :,:,: ) ! U* [m/s] real, allocatable, save :: qam ( :,:,: ) ! emis for landuse type [g/m**2/s] real, allocatable, save :: elus ( :,:,: ) ! erodible landuse percent (0~100) real, allocatable, save :: fruf ( :,:,: ) ! surface roughness factor real :: edust( 2 ) ! mass emis rate [g/s] per mode (only accum & coarse) real :: sumdfr ! sum var for desert fraction real :: rlay1hgt ! reciprocal of layer-1 height [1/m] real :: m3j ! 3rd moment accumulation (J) mode emis rates [m3/m3/s] real :: m3k ! 3rd moment coarse mode (K) emis rates [m3/m3/s] real :: fruf2 ! surface roughness factor squared character( 16 ), save :: rc_name, rn_name ! new names: RC -> RCA, RN -> RNA logical, save :: firstime = .true. real :: lambda, vegheight real :: z0 real :: lambdav ! vegetation roughness density - Shao et. al [Aus. J. Soil Res., 1996] real :: flxfac1, flxfac2 ! combined soli type mapping factors real :: hflux, vflux ! horizontal and vertical dust flux real :: jday integer :: emap( n_dlcat+1 ) C---Height for veg elements real :: hv( 4 ) C---Roughness density for solid elements C from Darmenova et al. [JGR,2009] and Xi and Sokolik [JGR,2015] real :: lambdab( 4 ) = & (/ 0.03, ! shrubland & 0.04, ! shrubgrass & 0.0001, ! barrenland & 0.15 /) ! cropland C---Compound for computational efficiency real :: hb_lambdab( 4 ) = & (/ 6.0e-04, ! shrubland & 8.0e-04, ! shrubgrass & 2.0e-06, ! barrenland & 3.0e-03 /) ! cropland C converted to gravimetric [kg/kg] real :: soilml1( nsltyp ) = & (/ 0.242, ! Sand & 0.257, ! Loamy Sand & 0.286, ! Sandy Loam & 0.350, ! Silt Loam & 0.350, ! Silt & 0.307, ! Loam & 0.277, ! Sandy Clay Loam & 0.350, ! Silty Clay Loam & 0.332, ! Clay Loam & 0.284, ! Sandy Clay & 0.357, ! Silty Clay & 0.344, ! Clay & 0.329, ! Organic Material & 0.000, ! Water & 0.170, ! BedRock & 0.280 /) ! Other C---Soil texture: the amount of C 1: Coarse sand, 2: Fine-medium sand, 3: Silt, 4: Clay C in each soil type [Kg/Kg]. from Menut et al. [JGR,2013] real :: soiltxt( nsltyp,ndp ) = reshape ( & (/ 0.46, 0.46, 0.05, 0.03, ! Sand & 0.41, 0.41, 0.18, 0.00, ! Loamy Sand & 0.29, 0.29, 0.32, 0.10, ! Sandy Loam & 0.00, 0.17, 0.70, 0.13, ! Silt Loam & 0.00, 0.10, 0.85, 0.05, ! Silt & 0.00, 0.43, 0.39, 0.18, ! Loam & 0.29, 0.29, 0.15, 0.27, ! Sandy Clay Loam & 0.00, 0.10, 0.56, 0.34, ! Silty Clay Loam & 0.00, 0.32, 0.34, 0.34, ! Clay Loam & 0.00, 0.52, 0.06, 0.42, ! Sandy Clay & 0.00, 0.06, 0.47, 0.47, ! Silty Clay & 0.00, 0.22, 0.20, 0.58, ! Clay & 0.00, 0.00, 0.00, 0.00, ! Organic Material & 0.00, 0.00, 0.00, 0.00, ! Water & 0.00, 0.00, 0.00, 0.00, ! BedRock & 0.00, 0.00, 0.00, 0.00 /), ! Other & (/ nsltyp,4 /), order = (/ 2,1 /) ) ! fill columns first C---Mean mass median particle diameter (m) for each soil texture type C Chatenet et al. [Sedimentology,1996] and Menut et al. [JGR,2013] real :: dp( ndp ) = & (/ 690.0E-6, ! Coarse sand & 210.0E-6, ! Fine-medium sand & 125.0E-6, ! Silt & 2.0E-6 /) ! Clay C---Soil texture vars of the grid cell real :: soiltxt_gcell( ndp ) real :: clay, csand, fmsand, sandf, siltf #ifdef verbose_wbdust integer dryhit integer dusthit #endif C----------------------------------------------------------------------- if ( firstime ) then firstime = .false. allocate ( ustr( ncols,nrows,n_dlcat+1 ), & qam( ncols,nrows,n_dlcat+1 ), & fruf( ncols,nrows,n_dlcat+1 ), & kvh( ncols,nrows,n_dlcat+1 ), & elus( ncols,nrows,n_dlcat+1 ), stat = status ) if ( status .ne. 0 ) then xmsg = '*** Failure allocating USTR, QAM, FRUF, KVH, or ELUS' call m3exit( pname, jdate, jtime, xmsg, xstat1 ) end if end if C---Get Julian day number in year jday = float( mod( jdate,1000 ) ) C---Vegetation height dynamically changed based on the month of the year C Veg. heights in [m] for 1: Shrubland 2: shrubgrass 3: barrenland 4: Cropland C following the idea of Xi and Sokolik [JGR,2015] if ( jday .gt. 59 .and. jday .le. 90 ) then ! Mar hv = (/ 0.15 , 0.05 , 0.10 , 0.05 /) else if ( jday .gt. 90 .and. jday .le. 120 ) then ! Apr hv = (/ 0.15 , 0.10 , 0.10 , 0.05 /) else if ( jday .gt. 120 .and. jday .le. 151 ) then ! May hv = (/ 0.12 , 0.20 , 0.10 , 0.10 /) else if ( jday .gt. 151 .and. jday .le. 181 ) then ! Jun hv = (/ 0.12 , 0.15 , 0.10 , 0.30 /) else if ( jday .gt. 181 .and. jday .le. 212 ) then ! Jul hv = (/ 0.10 , 0.12 , 0.10 , 0.50 /) else if ( jday .gt. 212 .and. jday .le. 243 ) then ! Aug hv = (/ 0.10 , 0.12 , 0.10 , 0.50 /) else if ( jday .gt. 243 .and. jday .le. 273 ) then ! Sep hv = (/ 0.10 , 0.10 , 0.10 , 0.30 /) else if ( jday .gt. 273 .and. jday .le. 304 ) then ! Oct hv = (/ 0.05 , 0.08 , 0.10 , 0.10 /) else ! Nov-Feb hv = (/ 0.05 , 0.05 , 0.05 , 0.05 /) end if #ifdef verbose_wbdust dryhit = 0 dusthit = 0 #endif C Initialize windblown dust diagnostics output buffer if ( dustem_diag .and. wstep .eq. 0 .and. .not. l_desid_diag ) then dustbf = 0.0 ! array assignment #ifdef verbose_wbdust sdiagv = 0.0 ! array assignment #endif end if C set erodible landuse map do m = 1, n_dlcat emap( m ) = dmap( m ) ! dmap maps to one of the 3 BELD3 desert types end do emap( n_dlcat+1 ) = 4 C Check PX soil texture data flag and log a message if or if not used in WB dust if(PXSOIL_AVAIL) then CALL LOG_MESSAGE( LOGDEV, '================== Windblown Dust Message =====================' ) CALL LOG_MESSAGE( LOGDEV, ' WRFV4.1+ inputs have extra PX LSM soil texture and props used.' ) CALL LOG_MESSAGE( LOGDEV, ' Clay, coarse and fine-medium sand from PX LSM not lookup tables.' ) else CALL LOG_MESSAGE( LOGDEV, '================== Windblown Dust Message =====================' ) CALL LOG_MESSAGE( LOGDEV, ' Clay, coarse and fine-medium sand from internal lookup table.' ) end if C --------- ###### Start Main Loop ###### --------- do r = 1, nrows do c = 1, ncols dust_em( c,r ) = 0.0 soimt( c,r ) = 0.0 fmoit( c,r ) = 0.0 ! for diagnostic output visualization vegfrac( c,r ) = 0.0 do m = 1, n_dlcat+1 ustr( c,r,m ) = 0.0 ! for diagnostic output visualization qam ( c,r,m ) = 0.0 elus( c,r,m ) = 0.0 fruf( c,r,m ) = 0.0 kvh ( c,r,m ) = 0.0 end do rlay1hgt = rjacm ( c,r ) / cellhgt(c,r) C--- Set Clay, coarse and fine/medium sand fractions. C--- If value from WRF is missing (-9999.) use old table values C-- If value from WRF is from WRFV4.1 PX LSM csand_px, etc use those j = Grid_Data%sltyp( c,r ) if (.not. WRF_V4P) then C Adjust WRF soil definitions to match internal Menut et al. [JGR,2013] Table if ( j .gt. 4 ) j = j + 1 if ( j .gt. 13 ) j = 13 end if if(PXSOIL_AVAIL) then clay = Grid_Data%clay_px(c,r) csand = Grid_Data%csand_px(c,r) fmsand = Grid_Data%fmsand_px(c,r) else csand = soiltxt(j,1) fmsand = soiltxt(j,2) clay = soiltxt(j,4) end if sandf = csand + fmsand siltf = 1.0 - clay - sandf C---Vegetation fraction based on the WRF/MCIP VEG variable. In WRF that would be VEGF_PX C-- for the case of PX and VEGFRA in the case of other LSMs. In more recent WRFv4+ versions C-- high resolution MODIS veg data is availiable and can be used in PX with pxlsm_modis_veg = 1 vegfrac( c,r ) = max( min( Met_Data%veg(c,r), 0.95 ), 0.005) vegfree = 1.0 - vegfrac( c,r ) lambdav = -0.35 * log( vegfree ) ! Shao et al. [Aus. J. Soil Res.,1996] C---Dust possiblity only if 1. not over water C 2. rain < 1/100 in. (1 in. = 2.540 cm) C 3. not snow-covered C 4. if soimt <= limit C 5. desert type or ag landuse C 6. erodible landuse C 7. friction velocity > threshold if ( ( Grid_Data%lwmask( c,r ) .gt. 0.0 ) .and. & ( Met_Data%rn( c,r ) + Met_Data%rc( c,r ) .le. 0.0254 ) .and. ! rn, rc = [cm] & ( Met_Data%snocov( c,r ) .lt. 0.001 ) ) then ! less than 0.1% snow coverage C---Dust possiblity 1,2,3 C Calculate maximum amount of the adsorbed water C w` = 0.0014(%clay)**2 + 0.17(%clay) - w` in % C Fecan et al. [1999,Annales Geophys.,17,144-157] wmax( c,r ) = ( 14.0 * clay + 17.0 ) * clay ! [%] ! write( logdev,'( 2x, a, i8.6, f12.5 )' ) 'max wmax:', jtime, maxval( wmax ) C Change soil moisture units from volumetric (m**3/m**3) to gravimetric (Kg/Kg) soimt( c,r ) = Met_Data%soim1( c,r ) & * 1000.0 / ( 2650.0 * ( 0.511 + 0.126 * sandf ) ) if ( soimt( c,r ) .le. soilml1( j ) ) then C---Dust possiblity 4 #ifdef verbose_wbdust dryhit = dryhit + 1 #endif C---Soil moisture effect on U*t if ( soimt( c,r ) .le. 0.01 * wmax( c,r ) ) then ! wmax in [%] fmoit( c,r ) = 1.0 else fmoit( c,r ) = sqrt( 1.0 + 1.21 & * ( 100.0 * soimt( c,r ) - wmax( c,r ) ) ** 0.68 ) end if C---Erodibility potential of soil component sd_ep( c,r ) = clay * eropot( 1 ) & + siltf * eropot( 2 ) + sandf * eropot( 3) C---Lu and Shao [JGR,1999] and Kang et al. [JGR,2011] C First, mapping soil types into 4 main soil types following Kang et al. [JGR,2011] select case ( j ) case( 1, 2 ) ! sand ! pp = 5000.0 ! calpha = 0.001 ! pfrac = 0.06 ! flxfac1 = calpha * 9.81 * pfrac * 500.0 / pp flxfac1 = 5.886e-05 ! flxfac2 = 2.09 * sqrt( 2650.0 / pp ) flxfac2 = 1.5215430 case( 3, 4, 6, 8, 9 ) ! loam ! pp = 10000.0 ! calpha = 0.0006 ! pfrac = 0.18 ! flxfac1 = calpha * 9.81 * pfrac * 500.0 / pp flxfac1 = 5.2974e-05 ! flxfac2 = 2.09 * sqrt( 2650.0 / pp ) flxfac2 = 1.0758933 case( 7 ) ! sandy clay loam ! pp = 10000.0 ! calpha = 0.0006 ! pfrac = 0.32 ! flxfac1 = calpha * 9.81 * pfrac * 500.0 / pp flxfac1 = 9.4176e-05 ! flxfac2 = 2.09 * sqrt( 2650.0 / pp ) flxfac2 = 1.0758933 case( 5, 10, 11, 12 ) ! clay ! pp = 30000.0 ! calpha = 0.0002 ! pfrac = 0.72 ! flxfac1 = calpha * 9.81 * pfrac * 500.0 / pp flxfac1 = 2.3544e-05 ! flxfac2 = 2.09 * sqrt( 2650.0 / pp ) flxfac2 = 0.1964303 case default ! others -- no dust ! pp = 100000.0 ! calpha = 1.0 ! pfrac = 0.0 ! flxfac1 = calpha * 9.81 * pfrac * 500.0 / pp flxfac1 = 0.0 ! flxfac2 = 2.09 * sqrt( 2650.0 / pp ) flxfac2 = 0.3402273 end select do m = 1, n_dlcat ! desert type landuse category elus( c,r,m ) = ladut( c,r,m ) * vegfree ! desert land [%] end do C ------- Start Loop Over Erodible Landuse ---- do m = 1, n_dlcat+1 ! desert type & crop landuse categories if ( elus( c,r,m ) .gt. 100.0 .or. elus( c,r,m ) .lt. 0.0 ) then write( xmsg,2009 ) elus( c,r,m ), c, r, m call m3exit( pname, jdate, jtime, xmsg, xstat1 ) end if if ( elus( c,r,m ) .gt. 0.0 ) then n = emap( m ) lambda = lambdab( n ) + lambdav vegheight = ( hb_lambdab( n ) + hv( n ) * lambdav ) / lambda C---New parametrization for surface roughness by H. Foroutan - Oct. 2015 if ( lambda .le. 0.2 ) then z0 = 0.96 * ( lambda ** 1.07 ) * vegheight else z0 = 0.083 * ( lambda ** ( -0.46 ) ) * vegheight end if C---Calculate friction velocity (U*) at the surafce applicable to dust emission ustr( c,r,m ) = karman * Met_Data%WSPD10( c,r ) / log ( 10.0 / z0 ) C---Roughness effect on U*t (Drag partitioning) C Xi and Sokolik [JGR,2015] fruf2 = ( 1.0 - sigv_mv * lambdav ) & * ( 1.0 + betav_mv * lambdav ) & * ( 1.0 - sigb_mb * lambdab( n ) / vegfree ) & * ( 1.0 + betab_mb * lambdab( n ) / vegfree ) if( fruf2 .gt. 1.0 ) then fruf( c,r,m ) = sqrt( fruf2 ) else fruf( c,r,m ) = 10.0 end if C---Vert-to-Horiz dust flux ratio : Kang et al. [JGR, 2011] : Eq. (12) ! kvh( c,r,m ) = ( calpha * 9.81 * pfrac * 1000.0 / 2.0 / pp ) ! & * ( 0.24 + 2.09 * ustr( c,r,m ) * sqrt( 2650.0 / pp ) ) kvh( c,r,m ) = flxfac1 * ( 0.24 + flxfac2 * ustr( c,r,m ) ) soiltxt_gcell(1) = csand soiltxt_gcell(2) = fmsand soiltxt_gcell(3) = siltf soiltxt_gcell(4) = clay hflux = dust_hflux( ndp, dp, & soiltxt_gcell( : ), & fmoit( c,r ), & fruf( c,r,m ), & ustr( c,r,m ), & sd_ep( c,r ), & Met_Data%dens1( c,r ) ) vflux = hflux * kvh( c,r,m ) ! [g/m**2/s] qam( c,r,m ) = qam( c,r,m ) + vflux * rlay1hgt & * ( elus( c,r,m ) * 0.01 ) ! [g/m**3/s] end if ! if erodible land if ( elus( c,r,m ) .eq. 0.0 .and. qam( c,r,m ) .ne. 0.0 ) then xmsg = 'Erodible land use = 0, but emissions .ne. 0' call m3exit( pname, jdate, jtime, xmsg, xstat1 ) end if dust_em( c,r ) = dust_em( c,r ) + qam( c,r,m ) end do ! m landuse C ------- End Loop Over Erodible Landuse ---- end if ! if soil moisture end if ! if rain & land & snow end do ! c end do ! r C --------- ###### End Main Loop ##### --------- #ifdef verbose_wbdust write( logdev,'( /5x, a, 1x, 2i8 )' ) 'dry hit count, & out of total cells:', & dryhit, (c-1)*(r-1) #endif do r = 1, nrows do c = 1, ncols C J/K mass emis rate [g/m3/s] (edust( 1 ) not used) edust( 1 ) = fracmj * dust_em( c,r ) edust( 2 ) = fracmk * dust_em( c,r ) do n = 1,2 do v = 1, ndust_spc dustoutm( (n-1)*ndust_spc+v,c,r ) = & edust( n ) * dust_spc( v )%spcfac( n ) end do end do C J/K 3rd moment emis rate [m3/m3/s] (needed for number and surface) m3j = edust( 1 ) * f6dpi / ( gpkg * dust_dens( 1 ) ) + TINY(0.0) m3k = edust( 2 ) * f6dpi / ( gpkg * dust_dens( 2 ) ) + TINY(0.0) C Mode-specific emission rates of particle number [1/m3/s] dustoutn( 1,c,r ) = m3j * factnumj dustoutn( 2,c,r ) = m3k * factnumk C Mode-specific dry surface area emission rates [m**2/m3/s]. C 2nd moment multiplied by PI to obtain the surface area emissions rate. dustouts( 1,c,r ) = m3j * factsrfj dustouts( 2,c,r ) = m3k * factsrfk ! Propagate Number and Surface Area Scaling Factors back to Emissions ! Module so that the dust emissions can be scaled appropriately ISD = INDEX1( 'FINE', DESID_STREAM_AERO( IDUSTSRM )%LEN, & DESID_STREAM_AERO( IDUSTSRM )%NAME ) DESID_STREAM_AERO( IDUSTSRM )%FACNUM( ISD,2 ) = FACTNUMJ DESID_STREAM_AERO( IDUSTSRM )%FACSRF( ISD,2 ) = FACTSRFJ ISD = INDEX1( 'COARSE', DESID_STREAM_AERO( IDUSTSRM )%LEN, & DESID_STREAM_AERO( IDUSTSRM )%NAME ) DESID_STREAM_AERO( IDUSTSRM )%FACNUM( ISD,3 ) = FACTNUMK DESID_STREAM_AERO( IDUSTSRM )%FACSRF( ISD,3 ) = FACTSRFK #ifdef verbose_wbdust if ( m3j .ne. 0.0 ) dusthit = dusthit + 1 #endif if ( dustem_diag .and. .not. l_desid_diag ) then do m = 1, n_dlcat+1 diagv( m ) = qam( c,r,m ) ! g/m**3/s end do n = n_dlcat + 2 diagv( n ) = dust_em( c,r ) ! g/m**3/s sumdfr = 0.0 do m = 1, n_dlcat+1 diagv( m+n ) = elus( c,r,m ) sumdfr = sumdfr + elus( c,r,m ) end do n = n + n_dlcat + 2 diagv( n ) = sumdfr do m = 1, n_dlcat+1 diagv( m+n ) = ustr( c,r,m ) end do n = n + n_dlcat + 1 do m = 1, n_dlcat+1 diagv( m+n ) = kvh( c,r,m ) end do n = n + n_dlcat + 1 do m = 1, n_dlcat+1 diagv( m+n ) = fruf( c,r,m ) end do n = n + n_dlcat + 1 diagv( n+1 ) = fmoit( c,r ) ! 'Soil_Moist_Fac ' diagv( n+2 ) = sd_ep( c,r ) ! 'Soil_Erode_Pot ' diagv( n+3 ) = wmax ( c,r ) ! 'Mx_Adsrb_H2O_Frc' diagv( n+4 ) = vegfrac( c,r ) ! 'Vegetation_Frac ' diagv( n+5 ) = uland( c,r,3 ) ! 'Urban_Cover ' diagv( n+6 ) = uland( c,r,4 ) ! 'Forest_Cover ' n = n + 6 ! accum and coarse mode number density emissions diagv( n+1 ) = dustoutn( 1,c,r ) diagv( n+2 ) = dustoutn( 2,c,r ) ! accum and coarse mode surface area density emissions diagv( n+3 ) = dustouts( 1,c,r ) diagv( n+4 ) = dustouts( 2,c,r ) n = n + 4 m = 0 do v = 1, ndust_spc if ( dust_spc( v )%spcfac( 1 ) .gt. 0. ) then ! accum. mode mass emissions m = m + 1 diagv( m+n ) = dustoutm( v,c,r ) end if end do do v = 1, ndust_spc if ( dust_spc( v )%spcfac( 2 ) .gt. 0. ) then ! coarse mode mass emissions m = m + 1 diagv( m+n ) = dustoutm( v+ndust_spc,c,r ) end if end do n = n + m C Multiply by sync step because when write to output we divide by the output step C to get a timestep average. do v = 1, ndust_diag dustbf( v,c,r ) = dustbf( v,c,r ) + diagv( v ) & * float( time2sec( tstep( 2 ) ) ) #ifdef verbose_wbdust sdiagv( v ) = sdiagv( v ) + diagv( v ) & * float( time2sec( tstep( 2 ) ) ) #endif end do end if ! dustem_diag end do ! col end do ! row #ifdef verbose_wbdust write( logdev,'( 5x, a, 2i8 / )' ) 'dust hit count, out of total cells:', & dusthit, (c-1)*(r-1) #endif #ifndef mpas if ( dustem_diag .and. .not. l_desid_diag ) then C If last call this hour, write out the windblown dust emissions dignostics. C Then reset the emissions array and local write counter. wstep = wstep + time2sec( tstep( 2 ) ) if ( wstep .ge. time2sec( tstep( 1 ) ) ) then if ( .not. currstep( jdate, jtime, stdate, sttime, tstep( 1 ), & mdate, mtime ) ) then xmsg = 'Cannot get step date and time' call m3exit( pname, jdate, jtime, xmsg, xstat3 ) end if call nextime( mdate, mtime, tstep( 1 ) ) #ifdef verbose_wbdust sdiagv = sdiagv / float( wstep ) ! array assignment write( logdev,2015 ) jdate, jtime do v = 1, ndust_diag if ( diagnm( v )%var(1:4) .ne. 'ANUM' ) then write( logdev,2019 ) v, diagnm( v )%var, sdiagv( v ) else write( logdev,2023 ) v, diagnm( v )%var, sdiagv( v ) end if end do sdiagv = 0.0 ! array assignment #endif do v = 1, ndust_diag do r = 1, nrows do c = 1, ncols wrbuf( c,r ) = dustbf( v,c,r ) / float( wstep ) end do end do if ( .not. WRITE3( ctm_dust_emis_1, diagnm( v )%var, & mdate, mtime, wrbuf ) ) then xmsg = 'Could not write ' // trim( diagnm( v )%var ) & // ' to CTM_DUST_EMIS_1' call m3exit( pname, mdate, mtime, xmsg, xstat1 ) end if end do write( logdev,'( /5x, 2( a, 1x ), i8, ":", i6.6 )' ) & 'Timestep written to CTM_DUST_EMIS_1', & 'for date and time', mdate, mtime wstep = 0 dustbf = 0.0 ! array assignment end if ! time to write end if ! dustem_diag #endif 2009 Format( '*** Erodible landuse incorrect ', 1pe13.5, 1x, 'at: ', 3i4 ) 2015 format( /5x, 'Total grid time-avg sum of dust emis variables at:', & 1x, i8, ":", I6.6 ) 2019 format( i10, 1x, a, f20.5 ) 2023 format( i10, 1x, a, e20.3 ) end subroutine get_dust_emis C======================================================================= function dust_hflux( ndp, dp, soiltxt, fmoit, fruf, ustr, sd_ep, dens ) & result( hflux ) C usage: hflux = dust_flux( ndp, dp, C soiltxt2( : ), C fmoit( c,r ), C fruf( c,r,m ), C ustr( c,r,m ), C sd_ep( c,r ), C dens( c,r ) ) implicit none include SUBST_CONST ! for grav integer, intent( in ) :: ndp real, intent( in ) :: dp( ndp ) real, intent( in ) :: soiltxt( ndp ) real, intent( in ) :: fmoit, fruf, ustr, sd_ep, dens real hflux real, parameter :: amen = 1.0 ! Marticorena and Bergametti [JGR,1997] real, parameter :: cfac = 1000.0 * amen / grav real, parameter :: A = 260.60061 ! 0.0123 * 2650.0 * 9.81 / 1.227 real, parameter :: B = 1.6540342e-06 ! 0.0123 * 0.000165 / 1.227 real utstar ! threshold U* [m/s] real utem ! U term [(m/s)**3] real fac integer n ! I can't initialize dp this way - it has to be passed in since ndp is variable C---Mean mass median diameter (m) for each soil texture C [Chatenet et al., Sedimentology 1996 and Menut et al., JGR 2013] ! real :: dp( ndp ) = ! & (/ 690.0E-6, ! Coarse sand ! & 210.0E-6, ! Fine-medium sand ! & 125.0E-6, ! Silt ! & 2.0E-6 /) ! Clay fac = cfac * dens * sd_ep utem = 0.0 utstar = 0.0 hflux = 0.0 do n = 1, ndp ! loop over dust particle size ! utstar = sqrt( 0.0123 * ( 2650.0 * 9.81 * dp( n ) / 1.227 + 0.000165 ! / 1.227 / dp( n ) ) ) ! X roughness & moisture effects utstar = sqrt( A * dp( n ) + B / dp( n ) ) * fmoit * fruf !Shao and Lu [JGR,2000] if ( ustr .gt. utstar ) then ! wind erosion occurs only if U* > U*t C---Horiz. Flux from White (1979) utem = ( ustr + utstar ) * ( ustr * ustr - utstar * utstar ) C---Horiz. Flux from Owen (1964) ! utem = ustr * ( ustr * ustr - utstar * utstar ) hflux = hflux & + fac * utem * soiltxt( n ) ! [g/m/s] end if end do ! dust particle size end function dust_hflux end module dust_emis ================================================ FILE: CCTM/src/emis/emis/LTNG_DEFN.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! !C:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: MODULE LTNG_DEFN !C---------------------------------------------------------------------- !C Function: production of NO from lightning !C Revision History: !C 1 Jul 2010 Jeff Young !C 1 Jan 2011 Rob Pinder: added support for online calculation of !C lightning NO from convective precip and NLDN data !C 10 Mar 2011 Jeff Young: code revisions !C 11 Apr 2011 S.Roselle: replaced I/O API include files with UTILIO_DEFN !C 11 May 2011 D.Wong: incorporated twoway model implementation !C 6 May 2013 D.Wong: replaced species name RC with RCA in the twoway model !C 10 Jun 2013 D.Wong: modified the code to work in the twoway model mode !C 24 Sep 2013 D.Wong: modified the code to allow finer met data time step !C rather than fixed with one hour data !C 15 Aug 2016 D.Wong: Replaced MYPE with IO_PE_INCLUSIVE for parallel I/O !C implementation !C 16 Aug 2016 D.Kang: Updated the lightning NO calculation with NLDN hourly !C data directly and using NLDN-RC log linear relationship, !C completely changing the data input process !C 1 Feb 2017 D.Kang: Modify the parameter (linear-log linear regression) scheme !C to set log-linear when RC is greater than !C exp(log-intercept), and move the LTNOx !C production rate to environment variable to be set in run script !C 18 Apr 2017 D. Kang: Make routine compatible with the two-way coupled model !C 17 Jul 2017 D. Wong: In subroutine GET_LTNG: !C * implemented a bug fix for determining LASTTIC base on !C accumulation of time step, TSTEP(2) !C * called SUBHFILE only once to improve code efficiency !C 13 Jun 2018 D. Kang: Changes to accommodate the twoway WRF-CMAQ coupled model !C with/without data passing (lightning assimilation and NO emissions) !C 5 Feb 2019 D. Kang: Changed the Lightning flash variable name (NLDNstrk) and make it !C consistent with the name (LNT) used in lightning assimilation; !C In the meantime, it still can read the files with old name by !C defining a LT_NAME variable. A bug fix related to read RC variable !C from met input file is also implemented. !C 01 Feb 2019 D. Wong: Implemented centralized I/O approach, removed all MY_N clauses !C 12 Mar 2019 D. Wong: Implemented centralized I/O approach to the twoway portion of the code !C and fixed a bug to handle the output time step is less than 1 hour !C scenario properly !C 3 Sep 2019 D. Kang: Added to scale factors for the vertical distribution and to make sure !C the profile is similar to those reported in literature and fixed a bug !C that was introduced two years ago for generating diagnotic 3D lightning emissions. !C 4 Feb 2020 D. Kang: Remove the SATLAM function call that is redundant and clean up the code to comply with !C the implementation of CIO.Though there is no effect when run the model over the continental !C US (Lambert projection), when run over the hemisphere and turning lightning NOx on, !C the run would crash due to uncompatible projection (polar) !C 6 Jan 2020 D. Kang: Correct the time steps in the lightning NOx !diagnostic files from 1:00 - 0:00 to 0:00 to 23:00 !C---------------------------------------------------------------------- USE RUNTIME_VARS USE DESID_VARS IMPLICIT NONE REAL, ALLOCATABLE, SAVE :: VDEMIS_LT( :,:,: ) ! lightning emis !C lightning emis species name CHARACTER( 16 ), PARAMETER :: LTSPC = 'NO' PUBLIC :: VDEMIS_LT, LTNG_INIT, GET_LTNG, LTSPC PRIVATE !C lightning log linear regression parameters with RC REAL, SAVE :: SQUAREKM REAL, SAVE :: SCL_FACTOR INTEGER, SAVE :: LTLYRS ! no. of emissions layers REAL, ALLOCATABLE, SAVE :: VDEMIS_LTDIAG( :,:,: ) ! lightning NO diagnostic REAL, ALLOCATABLE, SAVE :: COLUMN_DIAG( :,: ) ! column total NO CHARACTER( 16 ), SAVE :: RC_NAME ! RC name: old is RC and CCnew is RCA !C allocate these if LTNG_FNAME = 'INLINE' REAL, ALLOCATABLE, SAVE :: LTNG_PRSFC ( :,: ) ! surface pressure REAL, ALLOCATABLE, SAVE :: LTNG_RC ( :,: ) ! convective rainfall !C allocate these if LPARAM REAL, ALLOCATABLE, SAVE :: NLDN_STRIKE ( :,: ) ! Hourly NLDN strike data REAL, ALLOCATABLE, SAVE :: ICCG ( :,: ) ! intercloud strikes per cloud to ground strike !C Vertical coord values REAL, ALLOCATABLE, SAVE :: VGLVSLT ( : ) !C scenario time/date needed for diagnostic output INTEGER, SAVE :: NTICS = 0 ! no. of substeps within an output tstep INTEGER, SAVE :: MTICS = 0 ! temporary sub for NTICS before it set to 0 INTEGER, SAVE :: LDATE ! test date to update emissions diag avg INTEGER, SAVE :: LTIME ! test time to update emissions diag avg INTEGER :: FDATE ! Start date to Write to Diagnostic files INTEGER :: FTIME ! Start time to Write to Diagnostic files INTEGER, SAVE :: LT_TSTEP INTEGER :: LT_TSTEP_F ! same time step info as LT_TSTEP but in HHMMSS format CONTAINS !C====================================================================== !C Initialize lightning routines FUNCTION LTNG_INIT ( JDATE, JTIME, TSTEP ) RESULT ( SUCCESS ) USE GRID_CONF ! horizontal & vertical domain specifications USE CGRID_SPCS ! CGRID mechanism species USE UTILIO_DEFN USE CENTRALIZED_IO_MODULE, only : RCA_AVAIL, ICCG_SUM, ICCG_WIN, & FILE_TSTEP, F_MET, F_LTNG, & LT_NAME, FILE_XCELL, FILE_YCELL #ifdef twoway USE twoway_data_module #endif IMPLICIT NONE !C Includes: INCLUDE SUBST_CONST ! constants INCLUDE SUBST_FILES_ID ! file name parameters !C Arguments: INTEGER :: JDATE, JTIME, TSTEP LOGICAL SUCCESS !C External Functions: LOGICAL, EXTERNAL :: CHKGRID !C value to start log linear regression CHARACTER( 16 ) :: PNAME = 'LTNG_INIT' CHARACTER( 80 ) :: VARDESC ! env variable description CHARACTER( 120 ) :: XMSG = ' ' REAL :: X, Y, VAL INTEGER :: C, R LOGICAL LTNGPARAM ! env var to use lightning NO parameters file INTEGER LSPCS ! no. of lightning species INTEGER :: I, J, K, L, V, STATUS INTEGER :: CJDATE CHARACTER( 7 ) :: SJDATE LOGICAL OK INTEGER :: SPC !----------------------------------------------------------------------- SUCCESS = .TRUE. !C Lightning NO production IF ( .NOT. LTNG_NO ) RETURN !C Populate Emissions Species Record DESID_EMVAR( ILTSRM )%LEN = 1 ALLOCATE( DESID_EMVAR( ILTSRM )%ARRY ( 1 ) ) ALLOCATE( DESID_EMVAR( ILTSRM )%UNITS( 1 ) ) ALLOCATE( DESID_EMVAR( ILTSRM )%MW ( 1 ) ) ALLOCATE( DESID_EMVAR( ILTSRM )%USED ( 1 ) ) ALLOCATE( DESID_EMVAR( ILTSRM )%CONV ( 1 ) ) ALLOCATE( DESID_EMVAR( ILTSRM )%BASIS( 1 ) ) ALLOCATE( DESID_EMVAR( ILTSRM )%LAREA( 1 ) ) ALLOCATE( DESID_EMVAR( ILTSRM )%LAREAADJ( 1 ) ) DESID_EMVAR( ILTSRM )%ARRY = "NO" DESID_EMVAR( ILTSRM )%UNITS = 'MOLES/S' DESID_EMVAR( ILTSRM )%MW = 30.0 DESID_EMVAR( ILTSRM )%USED = .FALSE. DESID_EMVAR( ILTSRM )%CONV = 1.0 DESID_EMVAR( ILTSRM )%BASIS = 'MOLE' DESID_EMVAR( ILTSRM )%LAREA = .FALSE. DESID_EMVAR( ILTSRM )%LAREAADJ = .FALSE. !C Read in scenario time/date WRITE( SJDATE, '(I7)' ) JDATE READ( SJDATE, '(4X, I3)' ) CJDATE #ifndef mpas !C Is lightning NO production inline, or from a file? CALL UPCASE(LTNG_FNAME) IF ( LTNG_FNAME .EQ. "INLINE" ) THEN ! inline lightning NO production XMSG = 'Using in-line lightning NO production' CALL M3MSG2( XMSG ) #ifdef twoway IF (wrf_lightning_assim) THEN NLDNSTRIKE = .FALSE. END IF #endif IF ( RCA_AVAIL ) THEN RC_NAME = 'RCA' ELSE RC_NAME = 'RC' END IF IF ( NLDNSTRIKE ) THEN XMSG = 'Using hourly NLDN Strike data' CALL M3MSG2( XMSG ) LT_TSTEP = TIME2SEC ( FILE_TSTEP(F_LTNG) ) LT_TSTEP_F = FILE_TSTEP(F_LTNG) ELSE LT_TSTEP = TIME2SEC ( TSTEP ) LT_TSTEP_F = TSTEP XMSG = 'Using derived parameters for KF scheme ' CALL M3MSG2( XMSG ) END IF !END if NLDNSTRIKE ! LT_TSTEP_F = SEC2TIME (LT_TSTEP) SQUAREKM = REAL( ( XCELL_GD * YCELL_GD * 1.0D-6 ), 4 ) !C Set up vertical layers ALLOCATE( VGLVSLT( 0:DESID_LAYS ), STAT = STATUS ) CALL CHECKMEM( STATUS, 'VGLVSLT', PNAME ) ALLOCATE( ICCG ( NCOLS,NROWS ), & LTNG_PRSFC ( NCOLS,NROWS ), & NLDN_STRIKE ( NCOLS,NROWS ), & LTNG_RC ( NCOLS,NROWS ),STAT = STATUS ) IF ( STATUS .NE. 0 ) THEN XMSG = 'ICCG, OCEAN_MASK, LTNG_Parameters' & // ' memory allocation failed' CALL M3WARN ( PNAME, JDATE, JTIME, XMSG ) SUCCESS = .FALSE.; RETURN END IF IF ( CJDATE .GT. 90 .AND. CJDATE .LT. 274 ) THEN ICCG = ICCG_SUM ELSE ICCG = ICCG_WIN END IF ! END IF !LPARAM !C Store local layer information DO L = DESID_LAYS, 0, -1 VGLVSLT( L ) = VGLVS_GD( L+1 ) ! WRITE( LOGDEV,'(5X, A, I3, A, F11.7)' ) 'VGLVSLT(', L, ' ):', VGLVSLT( L ) END DO LDATE = STDATE; LTIME = STTIME IF ( LTNGDIAG ) THEN !C Build description for, and open lightning diagnostic file !C (all but variables-table and horizontal domain in description is borrowed from MNAME) FDATE = STDATE FTIME = STTIME CALL NEXTIME( FDATE, FTIME, TSTEP ) SDATE3D = FDATE STIME3D = FTIME TSTEP3D = TSTEP FTYPE3D = GRDDED3 NCOLS3D = GL_NCOLS NROWS3D = GL_NROWS NTHIK3D = 1 GDTYP3D = GDTYP_GD P_ALP3D = P_ALP_GD P_BET3D = P_BET_GD P_GAM3D = P_GAM_GD XORIG3D = XORIG_GD YORIG3D = YORIG_GD XCENT3D = XCENT_GD YCENT3D = YCENT_GD XCELL3D = XCELL_GD YCELL3D = YCELL_GD VGTYP3D = VGTYP_GD VGTOP3D = VGTOP_GD GDNAM3D = GRID_NAME ! from HGRD_DEFN NLAYS3D = DESID_LAYS DO L = 1, NLAYS3D + 1 VGLVS3D( L ) = VGLVS_GD( L ) END DO NVARS3D = 1 VNAME3D( 1 ) = LTSPC VDESC3D( 1 ) = 'hourly average NO produced from lightning' VTYPE3D( 1 ) = M3REAL UNITS3D( 1 ) = 'mol s-1' FDESC3D = ' ' ! array assignment FDESC3D( 1 ) = 'Gridded lightning NO production from CMAQ' FDESC3D( 2 ) = '/from/ ' // PNAME FDESC3D( 3 ) = '/Version/ CMAQ' !C Open output file (mol s-1) IF ( IO_PE_INCLUSIVE ) THEN IF ( .NOT. OPEN3( CTM_LTNGDIAG_1, FSUNKN3, PNAME ) ) THEN XMSG = 'Could not open ' // TRIM( CTM_LTNGDIAG_1 ) CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF NLAYS3D = 1 VDESC3D( 1 ) = 'Column NO produced from lightning' IF ( .NOT. OPEN3( CTM_LTNGDIAG_2, FSUNKN3, PNAME ) ) THEN XMSG = 'Could not open ' // TRIM( CTM_LTNGDIAG_2 ) CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF END IF ALLOCATE( VDEMIS_LTDIAG( NCOLS,NROWS,DESID_LAYS ), STAT = STATUS ) IF ( STATUS .NE. 0 ) THEN XMSG = 'VDEMIS_LTDIAG memory allocation failed' CALL M3WARN ( PNAME, JDATE, JTIME, XMSG ) SUCCESS = .FALSE.; RETURN END IF VDEMIS_LTDIAG = 0.0 ! array assignment ALLOCATE( COLUMN_DIAG( NCOLS,NROWS), STAT = STATUS ) IF ( STATUS .NE. 0 ) THEN XMSG = 'COLUMN_DIAG memory allocation failed' CALL M3WARN ( PNAME, JDATE, JTIME, XMSG ) SUCCESS = .FALSE.; RETURN END IF COLUMN_DIAG = 0.0 ! array assignment END IF ! LTNGDIAG ELSE ! lightning emissions off line !C Lightning NO production from an input file CALL M3MSG2( 'Using lightning NO production from a file' ) !C Check grid definition (intialize, if first call) OK = CHKGRID( LTNG_FNAME ) END IF ! IF ( LTNG_FNAME .EQ. "INLINE" ) inline or offline lightning NO production #endif LTLYRS = DESID_LAYS !C Build Emissions Buffer ALLOCATE( VDEMIS_LT( NCOLS,NROWS,LTLYRS ), STAT = STATUS ) IF ( STATUS .NE. 0 ) THEN XMSG = 'VDEMIS_LT memory allocation failed' CALL M3WARN ( PNAME, JDATE, JTIME, XMSG ) SUCCESS = .FALSE.; RETURN END IF ! RETURN END FUNCTION LTNG_INIT !C====================================================================== !C Get NO produced from lightning in VDEMIS_LT SUBROUTINE GET_LTNG ( JDATE, JTIME, TSTEP, L_DESID_DIAG ) USE GRID_CONF ! horizontal & vertical domain specifications USE UTILIO_DEFN USE CENTRALIZED_IO_MODULE, only : interpolate_var, & OCEAN_MASK, & SLOPE, & INTERCEPT, & SLOPE_lg, & INTERCEPT_lg, & ICCG_SUM, & ICCG_WIN, & LT_NAME #ifdef mpas use util_module, only : time2sec, nextime, upcase #else #ifdef twoway USE twoway_data_module #endif #endif IMPLICIT NONE INCLUDE SUBST_CONST ! constants INCLUDE SUBST_FILES_ID ! file name parameters INTEGER JDATE, JTIME, TSTEP( 3 ) INTEGER STATUS LOGICAL, INTENT( IN ) :: L_DESID_DIAG ! flag determining whether or not DESID ! is in diagnostic mode REAL, PARAMETER :: CONVPA = 1.0E-2 ! convert Pa to hPa ! REAL, PARAMETER :: WK = 8.0 ! shape parameter for weibull distribution ! REAL, PARAMETER :: WLAMBDA = 700.0 ! scale parameter for weibull distribution REAL, PARAMETER :: WMU = 350.0 ! mean REAL, PARAMETER :: WSIGMA = 200.0 ! standard deviation REAL, PARAMETER :: W2MU = 600.0 ! mean REAL, PARAMETER :: W2SIGMA = 50.0 ! standard deviation REAL, PARAMETER :: SQRT2 = 1.414213562731 REAL, PARAMETER :: SFACTOR1 = 0.95 ! the scaling factor for the wider distribution (WMU350) REAL, PARAMETER :: SFACTOR2 = 0.12 ! the scaling factor for the wider distribution (WMU350 INTEGER COL, ROW, LAY ! iterator variables REAL PCALC ! pressure level for NO vertical distribution (hPa) REAL BOTTOM ! pressure at bottom of grid cell (hPa) REAL TOP ! pressure at top of grid cell (hPa) REAL BOTTOM_FRAC, TOP_FRAC ! their difference is the fraction of lightning NO in this grid cell REAL BOTTOM_FRAC2, TOP_FRAC2 REAL SUM_FRAC ! stores the sum of vertical fractions to re-normalize the column REAL WEIGHT ! used to normalize emissions to total amount REAL inErfB, inErfT ! nputs to error funciton calculation REAL outErfB, outErfT ! outputs from error funciton calculation REAL :: LTEMIS( LTLYRS ) REAL XCELLR, YCELLR ! cell spacing ratio to 36Km REAL FLASH_FAC ! lightning flashes factor LOGICAL, SAVE :: LASTTIC ! true: last sync step this output tstep REAL :: DIVFAC ! averaging factor for diagnostic file CHARACTER( 16 ) :: MNAME CHARACTER( 16 ) :: PNAME = 'GET_LTNG' CHARACTER( 120 ) :: XMSG = ' ' REAL, ALLOCATABLE :: COLUMN_LTNG_NO ( :,: ) ! column total NO INTEGER :: cjdate INTEGER :: DTSTEP CHARACTER( 7 ) :: SJDATE LOGICAL, SAVE :: R_READY = .TRUE. LOGICAL, SAVE :: wrf_assim = .FALSE. INTEGER, SAVE :: TOT_TSTEP LOGICAL, SAVE :: FIRSTIME = .TRUE. REAL :: LOC_VGTOP_GD C statement function for ERF approximation REAL :: ERF ! ERF approx. statement function REAL :: X ! dummy argument for ERF ERF( X ) = SIGN( 1.0, X ) * SQRT( 1.0 - EXP( -4.0 * X * X / PI ) ) !----------------------------------------------------------------------- CALL UPCASE(LTNG_FNAME) IF ( LTNG_FNAME .EQ. "INLINE" ) THEN !C case of inline lightning NO production !C initialize output array VDEMIS_LT = 0.0 DTSTEP = TIME2SEC( TSTEP( 1 ) ) / TIME2SEC( TSTEP( 2 ) ) !C Open me filet !C Get domain window info for met_cro_2d file IF (FIRSTIME) THEN TOT_TSTEP = 0 FIRSTIME = .FALSE. END IF WRITE( SJDATE, '(I7)') JDATE READ( SJDATE, '(4X, I3)') CJDATE !C read in the hourly lightning strike file #ifdef twoway IF(wrf_lightning_assim) THEN call interpolate_var ('LNT', jdate, jtime, NLDN_STRIKE) !C Interpret the timestep NLDN_STRIKE value into hourly value NLDN_STRIKE = NLDN_STRIKE*60/LT_ASM_DT wrf_assim = .TRUE. ! WRITE(*,*) "Max NLDN_STRIKE = ", MAXVAL(NLDN_STRIKE) ELSE IF ( .NOT. NLDNSTRIKE ) THEN call interpolate_var (RC_NAME, jdate, jtime, LTNG_RC) !C Interpret the timestep RC value into hourly value LTNG_RC = LTNG_RC*DTSTEP END IF END IF call interpolate_var ('PRSFC', jdate, jtime, LTNG_PRSFC) #else IF ( R_READY ) THEN IF ( .NOT. NLDNSTRIKE ) THEN call interpolate_var (RC_NAME, ldate, ltime, LTNG_RC) END IF call interpolate_var ('PRSFC', ldate, ltime, LTNG_PRSFC) IF ( .NOT. NLDNSTRIKE ) THEN R_READY = .FALSE. END IF END IF #endif IF( R_READY ) THEN IF ( NLDNSTRIKE ) THEN call interpolate_var (LT_NAME, ldate, ltime, NLDN_STRIKE) R_READY = .FALSE. END IF ! NLDNSTRIKE END IF !R_READY ALLOCATE( COLUMN_LTNG_NO( NCOLS,NROWS ), STAT = STATUS ) IF ( STATUS .NE. 0 ) THEN XMSG = 'COLUMN_LTNG_NO memory allocation failed' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT2 ) END IF COLUMN_LTNG_NO( :,: ) = 0.0 !C Iterate over each grid cell and distribute lightning NO vertically DO ROW = 1, NROWS DO COL = 1, NCOLS IF ( NLDNSTRIKE .or. wrf_assim ) THEN COLUMN_LTNG_NO( COL,ROW ) = & ( NLDN_STRIKE( COL,ROW ) & * SQUAREKM ! NLDN_STRIKE in km-2 & * OCEAN_MASK( COL,ROW ) ! reduce offshore strikes & * ( MOLSNCG + MOLSNIC * ICCG( COL,ROW ) ) ) & / ( 60.0 * 60.0 ) ! get time units right: emissions are in the unit of moles/s ELSE IF ( LTNG_RC( COL,ROW ) .GT. 0 ) THEN SCL_FACTOR = EXP(INTERCEPT_lg(COL, ROW)) IF ( LTNG_RC( COL,ROW ) .GT. SCL_FACTOR .AND. OCEAN_MASK( COL,ROW ) .GT. 0.2 )THEN COLUMN_LTNG_NO( COL,ROW ) = & ( EXP( SLOPE_LG( COL,ROW ) * LOG( LTNG_RC( COL,ROW ) ) & + INTERCEPT_LG( COL,ROW) ) & * SQUAREKM ! the relation is built on the unit of flash/km2*hr & * OCEAN_MASK( COL,ROW ) ! reduce offshore strikes & * ( MOLSNCG ! moles N per flash intercloud strikes per cloud-to-ground strike & + ( MOLSNIC * ICCG( COL,ROW ) ) ) ) & / ( 60.0 * 60.0 ) ! get time units right IF ( COLUMN_LTNG_NO( COL,ROW ) .LT. 0 ) COLUMN_LTNG_NO( COL,ROW ) = 0.0 ELSE COLUMN_LTNG_NO( COL,ROW ) = & ( ( SLOPE( COL,ROW ) * LTNG_RC( COL,ROW ) + INTERCEPT( COL,ROW ) ) & * SQUAREKM ! the relation is built on flash/km2*hr & * OCEAN_MASK( COL,ROW ) ! reduce offshore strikes & * ( MOLSNCG ! moles N per flash intercloud strikes per cloud-to-ground strike & + ( MOLSNIC * ICCG( COL,ROW ) ) ) ) & / ( 60.0 * 60.0 ) ! get time units right IF ( COLUMN_LTNG_NO( COL,ROW ) .LT. 0 ) COLUMN_LTNG_NO( COL,ROW ) = 0.0 END IF ELSE COLUMN_LTNG_NO( COL,ROW ) = 0.0 END IF END IF ! NLDNSTRIKE END DO ! COL END DO ! ROW VDEMIS_LT = 0.0 ! array assignment DO ROW = 1, NROWS DO COL = 1, NCOLS !C check to see if there are lightning strikes for this grid cell !C only calculate lightning for cloud top greater than 6500 meters IF ( COLUMN_LTNG_NO( COL,ROW ) .LE. 0.0 ) CYCLE SUM_FRAC = 0.0 LTEMIS = 0.0 ! array assignment #ifdef mpas LOC_VGTOP_GD = 1000.0 ! for simplicity, we have decided to set VGTOP_GD to 1000.0 #else LOC_VGTOP_GD = VGTOP_GD #endif DO LAY = 1, LTLYRS !C Get pressures: Use SIGMA values and surface pres. !p=sigma*(psfc-ptop)+ptop BOTTOM = ( VGLVSLT( LAY-1 ) & * ( LTNG_PRSFC( COL,ROW ) - LOC_VGTOP_GD ) & + LOC_VGTOP_GD ) * CONVPA ! write( logdev,* ) "bottom: ", bottom TOP = ( VGLVSLT( LAY ) & * ( LTNG_PRSFC( COL,ROW ) - LOC_VGTOP_GD ) & + LOC_VGTOP_GD ) * CONVPA !C Find the bottom and top of each layer, and calculate the fraction !C of the column emissions for that layer !C Use normal distribution, mean = wmu, standard deviation = wsigma inErfB = ( BOTTOM - WMU ) / ( WSIGMA * SQRT2 ) inErfT = ( TOP - WMU ) / ( WSIGMA * SQRT2 ) outErfB = ERF( inErfB ) outErfT = ERF( inErfT ) BOTTOM_FRAC = 0.5 * ( 1.0 + outErfB ) TOP_FRAC = 0.5 * ( 1.0 + outErfT ) !C Find the bottom and top of each layer, and calculate the fraction !C of the column emissions for that layer !C use normal distribution, mean = wmu, standard deviation = wsigma inErfB = ( BOTTOM - W2MU ) / ( W2SIGMA * SQRT2 ) inErfT = ( TOP - W2MU ) / ( W2SIGMA * SQRT2 ) outErfB = ERF( inErfB ) outErfT = ERF( inErfT ) BOTTOM_FRAC2 = 0.5 * ( 1.0 + outErfB ) TOP_FRAC2 = 0.5 * ( 1.0 + outErfT ) !C Add weighted contribution to this level WEIGHT = ( BOTTOM_FRAC - TOP_FRAC ) * SFACTOR1 & + ( BOTTOM_FRAC2 - TOP_FRAC2 ) * SFACTOR2 LTEMIS( LAY ) = WEIGHT * COLUMN_LTNG_NO( COL,ROW ) !C Sum weights in order to normalize to 1 SUM_FRAC = SUM_FRAC + WEIGHT !C If emissions are less than 0, generate an error message in the log IF ( LTEMIS( LAY ) .LT. 0.0 ) THEN WRITE( LOGDEV,* ) LTEMIS( LAY ), & COLUMN_LTNG_NO( COL,ROW ), & BOTTOM_FRAC, TOP_FRAC XMSG = '*** Ltng NO emis is less than zero' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT2 ) END IF END DO ! end layers loop DO LAY = 1, LTLYRS !C Re-normalize, in some cases area under the error function is not 1 VDEMIS_LT( COL,ROW,LAY ) = LTEMIS( LAY ) / SUM_FRAC END DO ! layers renormalized END DO ! columns END DO ! rows !C Determine the time to read and/or write the hourly files IF ( .NOT. L_DESID_DIAG ) THEN NTICS = NTICS + 1 TOT_TSTEP = TOT_TSTEP + TIME2SEC( TSTEP( 2 ) ) LASTTIC = TOT_TSTEP .GE. LT_TSTEP IF ( LASTTIC ) THEN MTICS = NTICS NTICS = 0 TOT_TSTEP = 0 CALL NEXTIME( LDATE, LTIME, LT_TSTEP_F) R_READY = .TRUE. END IF END IF #ifdef mpas #else !C Write lightning NO to the diagnostic file IF ( LTNGDIAG .AND. .NOT. L_DESID_DIAG ) THEN VDEMIS_LTDIAG = VDEMIS_LTDIAG + VDEMIS_LT ! array assignment COLUMN_DIAG = COLUMN_DIAG + COLUMN_LTNG_NO IF ( LASTTIC ) THEN ! time to write out DIVFAC = 1.0 / REAL( MTICS, 4 ) VDEMIS_LTDIAG = VDEMIS_LTDIAG * DIVFAC ! array assignment COLUMN_DIAG = COLUMN_DIAG*DIVFAC IF ( .NOT. WRITE3( CTM_LTNGDIAG_1, LTSPC, LDATE, LTIME, VDEMIS_LTDIAG ) ) THEN XMSG = 'Could not write to ' // TRIM( CTM_LTNGDIAG_1 ) CALL M3EXIT( PNAME, LDATE, LTIME, XMSG, XSTAT2 ) ELSE WRITE( LOGDEV,94040 ) & 'Timestep written to', TRIM( CTM_LTNGDIAG_1 ), & 'for date and time', LDATE, LTIME END IF IF ( .NOT. WRITE3( CTM_LTNGDIAG_2, LTSPC, LDATE, LTIME, COLUMN_DIAG ) ) THEN XMSG = 'Could not write to ' // TRIM( CTM_LTNGDIAG_2 ) CALL M3EXIT( PNAME, LDATE, LTIME, XMSG, XSTAT2 ) ELSE WRITE( LOGDEV,94040 ) & 'Timestep written to', TRIM( CTM_LTNGDIAG_2 ), & 'for date and time', LDATE, LTIME END IF VDEMIS_LTDIAG = 0.0 ! array assignment COLUMN_DIAG = 0.0 END IF ! LASTTIC END IF ! diagnostics turned on #endif ELSE ! LTNGO is not "InLine", but instead specifies a file !C Read in lightning NO production from an input file VDEMIS_LT = 0.0 ! array assignment call interpolate_var (LTSPC, jdate, jtime, VDEMIS_LT) END IF ! end lightning NO production inline or from a file DEALLOCATE( COLUMN_LTNG_NO ) RETURN C------------------ Format Statements ------------------------------ 94040 FORMAT( /5X, 3( A, :, 1X ), I8, ":", I6.6 ) 94042 FORMAT( /5X, A, 1X, I8, ":", I6.6, 1X, 1PE13.5 ) END SUBROUTINE GET_LTNG END MODULE LTNG_DEFN ================================================ FILE: CCTM/src/emis/emis/LUS_DEFN.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: module lus_defn C Land Use/Cover Schema C Revision History: C 10 Nov 2011: J.Young - Created C 10 Dec 2011: J.Young - fix for two-way application (Tanya Spero`s help) C 2 Feb 2019: D. Wong - Implemented centralized I/O approach, removed all C MY_N clauses, with new re-structure of LUS_DEFN, C most of the data declaration has been moved to C lus_data_module (model_data_module.f) C 3 Mar 2022: J. Willison - Remove ctm_wbdust_beld option implicit none public lus_init private contains #ifdef mpas function lus_init( mminlu_in, landusef_in ) result ( success ) #else function lus_init( jdate, jtime ) result ( success ) #endif use hgrd_defn ! horizontal domain specifications #ifdef twoway use twoway_data_module, only : mminlu, num_land_cat #endif use utilio_defn use lus_data_module implicit none #ifdef mpas character (*), intent( in ) :: mminlu_in real, intent( in ) :: landusef_in(:,:) integer, allocatable :: lu_ind(:) integer :: j logical :: found character (16) :: mminlu integer :: num_land_cat #else integer, intent( in ) :: jdate ! current model date, coded YYYYDDD integer, intent( in ) :: jtime ! current model time, coded HHMMSS #endif C Includes: include SUBST_FILES_ID ! file name parameters logical :: success integer :: gxoff, gyoff ! global origin offset from file integer, save :: strtcol_01, endcol_01, strtrow_01, endrow_01 integer, save :: strtcol_02, endcol_02, strtrow_02, endrow_02 character( 16 ) :: pname = 'LUS_INIT' character( 128 ) :: vardesc = ' ' character( 128 ) :: xmsg = ' ' character( 24 ) :: strg = 'incorrect num_land_cat, ' real( 8 ) :: tland integer i, c, r, err #ifdef mpas mminlu = mminlu_in if (mminlu .eq. 'USGS') then num_land_cat = 24 else if (mminlu .eq. 'NLCD40') then num_land_cat = size(landusef_in,1) end if dust_land_scheme = mminlu_in #endif success = .true. ladut = 100.0 * ladut ! array assignment lut = 100.0 * lut ! array assignment C Merge fractional landuse categories into 4 groups for dust transport factors select case( dust_land_scheme ) case( 'USGS24' ) do r = 1, nrows do c = 1, ncols C water & barren surrounding uland( c,r,1 ) = lut( c,r,8 ) ! Shrubland & + lut( c,r,16 ) ! Water & + lut( c,r,19 ) ! Barren or Sparsely Vegetated & + lut( c,r,22 ) ! Mixed Tundra & + lut( c,r,23 ) ! Bare Ground Tundra & + lut( c,r,24 ) ! Snow and Ice C grass & crop surrounding uland( c,r,2 ) = lut( c,r,2 ) ! Dryland Cropland and Pasture & + lut( c,r,3 ) ! Irrigated Cropland and Pasture & + lut( c,r,4 ) ! Mixed Dryland and Irrigated Cropland and Pasture & + lut( c,r,5 ) ! Cropland-Grassland Mosaic & + lut( c,r,6 ) ! Cropland-Woodland Mosaic & + lut( c,r,7 ) ! Grassland & + lut( c,r,9 ) ! Mixed Shrubland-Grassland & + lut( c,r,10 ) ! Savannah & + lut( c,r,17 ) ! Herbaceous Wetland & + lut( c,r,20 ) ! Herbaceous Tundra C building surrounding uland( c,r,3 ) = lut( c,r,1 ) ! Urban Land C forest surrounding uland( c,r,4 ) = lut( c,r,11 ) ! Deciduous Broadleaf Forest & + lut( c,r,12 ) ! Deciduous Needleleaf Forest & + lut( c,r,13 ) ! Evergreen Broadleaf Forest & + lut( c,r,14 ) ! Evergreen Needleleaf Forest & + lut( c,r,15 ) ! Mixed Forest & + lut( c,r,18 ) ! Wooded Wetland & + lut( c,r,21 ) ! Wooded Tundra end do end do ! case( 'MODIS' ) ! do r = 1, nrows ! do c = 1, ncols ! uland( c,r,1 ) = lut( c,r,> ) ! end do ! end do case( 'NLCD40' ) do r = 1, nrows do c = 1, ncols C water & barren surrounding uland( c,r,1 ) = lut( c,r,21 ) ! Open Water & + lut( c,r,22 ) ! Perennial Ice-Snow & + lut( c,r,27 ) ! Barren Land (Rock-Sand-Clay) & + lut( c,r,31 ) ! Dwarf Scrub & + lut( c,r,32 ) ! Shrub-Scrub & + lut( c,r,15 ) ! Permanent Snow and Ice & + lut( c,r,16 ) ! Barren or Sparsely Vegetated & + lut( c,r,17 ) ! IGBP Water C grass & crop surrounding uland( c,r,2 ) = lut( c,r,33 ) ! Grassland-Herbaceous & + lut( c,r,34 ) ! Sedge-Herbaceous & + lut( c,r,35 ) ! Lichens & + lut( c,r,36 ) ! Moss & + lut( c,r,37 ) ! Pasture-Hay & + lut( c,r,38 ) ! Cultivated Crops & + lut( c,r,6 ) ! Closed Shrublands & + lut( c,r,7 ) ! Open Shrublands & + lut( c,r,9 ) ! Savannas & + lut( c,r,10 ) ! Grasslands & + lut( c,r,12 ) ! Croplands & + lut( c,r,14 ) ! Cropland-Natural Vegetation Mosaic C building surrounding uland( c,r,3 ) = lut( c,r,24 ) ! Developed Low Intensity & + lut( c,r,25 ) ! Developed Medium Intensity & + lut( c,r,26 ) ! Developed High Intensity & + lut( c,r,13 ) ! Urban and Built Up C forest surrounding uland( c,r,4 ) = lut( c,r,28 ) ! Deciduous Forest & + lut( c,r,29 ) ! Evergreen Forest & + lut( c,r,30 ) ! Mixed Forest & + lut( c,r,39 ) ! Woody Wetlands & + lut( c,r,40 ) ! Emergent Herbaceous Wetlands & + lut( c,r,1 ) ! Evergreen Needleleaf Forest & + lut( c,r,2 ) ! Evergreen Broadleaf Forest & + lut( c,r,3 ) ! Deciduous Needleleaf Forest & + lut( c,r,4 ) ! Deciduous Broadleaf Forest & + lut( c,r,5 ) ! Mixed Forests & + lut( c,r,8 ) ! Woody Savannas & + lut( c,r,11 ) ! Permanent Wetlands end do end do case( 'NLCD-MODIS', 'NLCD50' ) do r = 1, nrows do c = 1, ncols C water & barren surrounding uland( c,r,1 ) = lut( c,r,1 ) ! Open Water & + lut( c,r,2 ) ! Perennial Ice-Snow & + lut( c,r,7 ) ! Barren Land (Rock-Sand-Clay) & + lut( c,r,12 ) ! Dwarf Scrub & + lut( c,r,13 ) ! Shrub-Scrub & + lut( c,r,18 ) ! Tundra & + lut( c,r,31 ) ! Water & + lut( c,r,46 ) ! Permanent Snow and Ice & + lut( c,r,47 ) ! Barren or Sparsely Vegetated & + lut( c,r,48 ) ! IGBP Water C grass & crop surrounding uland( c,r,2 ) = lut( c,r,14 ) ! Grassland-Herbaceous & + lut( c,r,15 ) ! Sedge-Herbaceous & + lut( c,r,16 ) ! Lichens & + lut( c,r,17 ) ! Moss & + lut( c,r,19 ) ! Pasture-Hay & + lut( c,r,20 ) ! Cultivated Crops & + lut( c,r,37 ) ! Closed Shrublands & + lut( c,r,38 ) ! Open Shrublands & + lut( c,r,40 ) ! Savannas & + lut( c,r,41 ) ! Grasslands & + lut( c,r,43 ) ! Croplands & + lut( c,r,45 ) ! Cropland-Natural Vegetation Mosaic C building surrounding uland( c,r,3 ) = lut( c,r,4 ) ! Developed Low Intensity & + lut( c,r,5 ) ! Developed Medium Intensity & + lut( c,r,6 ) ! Developed High Intensity & + lut( c,r,44 ) ! Urban and Built Up C forest surrounding uland( c,r,4 ) = lut( c,r,9 ) ! Deciduous Forest & + lut( c,r,10 ) ! Evergreen Forest & + lut( c,r,11 ) ! Mixed Forest & + lut( c,r,21 ) ! Woody Wetlands & + lut( c,r,22 ) ! Palustrine Forested Wetland & + lut( c,r,24 ) ! Estuarine Forested Wetland & + lut( c,r,32 ) ! Evergreen Needleleaf Forest & + lut( c,r,33 ) ! Evergreen Broadleaf Forest & + lut( c,r,34 ) ! Deciduous Needleleaf Forest & + lut( c,r,35 ) ! Deciduous Broadleaf Forest & + lut( c,r,36 ) ! Mixed Forests & + lut( c,r,39 ) ! Woody Savannas & + lut( c,r,42 ) ! Permanent Wetlands end do end do case( 'MODIS_NOAH' ) do r = 1, nrows do c = 1, ncols C water & barren surrounding uland( c,r,1 ) = lut( c,r,6 ) ! Closed Shrublands & + lut( c,r,7 ) ! Open Shrublands & + lut( c,r,15 ) ! Snow and Ice & + lut( c,r,16 ) ! Barren or Sparsely Vegetated & + lut( c,r,17 ) ! Water & + lut( c,r,19 ) ! Mixed Tundra & + lut( c,r,20 ) ! Barren Tundra C grass & crop surrounding uland( c,r,2 ) = lut( c,r,8 ) ! Woody Savannas & + lut( c,r,9 ) ! Savannas & + lut( c,r,10 ) ! Grasslands & + lut( c,r,12 ) ! Croplands & + lut( c,r,14 ) ! Cropland-Natural Vegetation Mosaic & + lut( c,r,18 ) ! Wooded Tundra C building surrounding uland( c,r,3 ) = lut( c,r,13 ) ! Urban and Built-Up C forest surrounding uland( c,r,4 ) = lut( c,r,1 ) ! Evergreen Needleleaf Forest & + lut( c,r,2 ) ! Evergreen Broadleaf Forest & + lut( c,r,3 ) ! Deciduous Needleleaf Forest & + lut( c,r,4 ) ! Deciduous Broadleaf Forest & + lut( c,r,5 ) ! Mixed Forests & + lut( c,r,11 ) ! Permanent Wetlands end do end do end select do r = 1, nrows do c = 1, ncols tland = 0.0d0 do i = 1, 4 uland( c,r,i ) = max( 0.0, min( 100.0, uland( c,r,i ) ) ) tland = tland + real( uland( c,r,i ), 8 ) end do if ( tland .gt. 100.0d0 ) then #ifdef dbg_wbdust write( logdev,* ) ' >>> tland:', c, r, tland #endif do i = 1, 4 uland( c,r,i ) = uland( c,r,i ) * real( 100.0d0 / tland, 4 ) end do end if end do end do deallocate( lut ) return end function lus_init end module lus_defn ================================================ FILE: CCTM/src/emis/emis/MGEMIS.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: MODULE MGEMIS C----------------------------------------------------------------------- C Description: C Revision History: C 03 Nov 15: B. Gantt and G. Sarwar: created the initial version for marine C gas emissions C 26 Sep 16: D. Wong: removed repeated SEAICE interpx statement C 20 Feb 18: G. Sarwar: removed Br2, added DMS, and revised estimates of C halocarbon and HOI/I2 emissions C 04 Dec 18: G. Srawar: updated local time calculation C 01 Feb 19: D. Wong: Implemented centralized I/O approach C 15 May 19: D. Wong: Replaced MGEM with USE_MARINE_GAS_EMISSION which is set in RUNTIME_VARS.F C 16 May 19: D. Wong: * Removed initialization of OCEAN, SZONE, CHLR, and DMSL. C * Used LON directly to save space. C 04 Sep 20: G. Sarwar* Fixed bug for Kw C 03 Mar 22: D. Wong and G. Sarwar* updated for DMS emissions with cb6r5 USE RUNTIME_VARS USE HGRD_DEFN USE DESID_VARS #ifdef mpas use util_module #endif IMPLICIT NONE INTEGER, PARAMETER :: NMGSPC = 12 C Marine gas Emissions Rates REAL, ALLOCATABLE, SAVE :: VDEMIS_MG( :,:,: ) ! marine gas emission rates [moles/s] PUBLIC NMGSPC, VDEMIS_MG, MGEMIS_INIT, GET_MGEMIS, MG_SPC, MGSPC_MAP PRIVATE INTEGER, SAVE :: LGC_O3 ! pointer to O3 in CGRID C Variables for the marine gas diagnostic file INTEGER :: NMGDIAG ! number of species in marine gas ! diagnostic emission file REAL, ALLOCATABLE :: MGOUTD( : ) ! emission rates REAL, ALLOCATABLE, SAVE :: MGBF( :,:,: ) ! marine gas emiss accumulator REAL, ALLOCATABLE, SAVE :: WRMG( :,: ) ! marine gas emiss write buffer INTEGER, SAVE :: MGSPC_MAP( NMGSPC ) ! Species names in the speciated marine gas-emissions CHARACTER( 16 ), ALLOCATABLE :: WRMG_SPC( : ) ! species names CHARACTER( 16 ) :: MG_SPC( NMGSPC) ! emitted species INTEGER :: MG_SPC_IND ( NMGSPC) ! emitted species index DATA MG_SPC / 'MB3 ', & 'MB2 ', & 'MBC ', & 'MB2C ', & 'MBC2 ', & 'CH3I ', & 'MIC ', & 'MIB ', & 'MI2 ', & 'I2 ', & 'HOI ', & 'DMS ' / REAL :: MG_MW( NMGSPC ) ! emitted species molecular weight (g/mol) DATA MG_MW / 252.7, & 173.8, & 129.4, & 208.3, & 243.8, & 141.9, & 176.4, & 219.9, & 267.8, & 253.8, & 143.9, & 62.0 / C Variables interpolated from the meteorological input files REAL, ALLOCATABLE, SAVE :: U10( :,: ) ! wind speed at 10m [m/s] REAL, ALLOCATABLE, SAVE :: TSEASFC( :,: ) ! sea surface temp K REAL, ALLOCATABLE, SAVE :: SEAICE( :,: ) ! seaice fraction INTEGER I C Domain decomposition info from emission and meteorology files INTEGER, SAVE :: GXOFF, GYOFF ! origin offset INTEGER, SAVE :: STRTCOL_O1, ENDCOL_O1, STRTROW_O1, ENDROW_O1 INTEGER, SAVE :: STRTCOLMC3, ENDCOLMC3, STRTROWMC3, ENDROWMC3 INTEGER, SAVE :: STRTCOLGC2, ENDCOLGC2, STRTROWGC2, ENDROWGC2 CONTAINS C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: FUNCTION MGEMIS_INIT( JDATE, JTIME, TSTEP ) RESULT ( SUCCESS ) C Revision History: C 03 Nov 15: B. Gantt and G. Sarwar: created the initial version for marine gas emissions USE UTILIO_DEFN USE HGRD_DEFN USE CGRID_SPCS USE RXNS_DATA USE RUNTIME_VARS, ONLY : USE_MARINE_GAS_EMISSION USE CENTRALIZED_IO_MODULE, only : chlr, dmsl IMPLICIT NONE INCLUDE SUBST_CONST ! constants INCLUDE SUBST_FILES_ID ! file name parameters C Arguments: INTEGER, INTENT( IN ) :: JDATE, JTIME, TSTEP LOGICAL :: SUCCESS CHARACTER( 80 ) :: VARDESC ! env variable description C Local Variables: CHARACTER( 16 ), SAVE :: PNAME = 'MGEMIS_INIT' CHARACTER( 96 ) :: XMSG = ' ' CHARACTER( 16 ) :: VARNM INTEGER STATUS INTEGER S, N, L, K, V INTEGER :: START_INDEX, END_INDEX C----------------------------------------------------------------------- SUCCESS = .TRUE. C flag for marine gas emissions; this flag is set in the subroutine EM_FILE_INIT IF ( .NOT. USE_MARINE_GAS_EMISSION ) RETURN C Allocate MG arrays using NMGSPC value DESID_EMVAR( IMGSRM )%LEN = NMGSPC ALLOCATE( DESID_EMVAR( IMGSRM )%ARRY ( NMGSPC ) ) ALLOCATE( DESID_EMVAR( IMGSRM )%UNITS( NMGSPC ) ) ALLOCATE( DESID_EMVAR( IMGSRM )%MW ( NMGSPC ) ) ALLOCATE( DESID_EMVAR( IMGSRM )%USED ( NMGSPC ) ) ALLOCATE( DESID_EMVAR( IMGSRM )%CONV ( NMGSPC ) ) ALLOCATE( DESID_EMVAR( IMGSRM )%BASIS( NMGSPC ) ) ALLOCATE( DESID_EMVAR( IMGSRM )%LAREA( NMGSPC ) ) ALLOCATE( DESID_EMVAR( IMGSRM )%LAREAADJ( NMGSPC ) ) DESID_EMVAR( IMGSRM )%ARRY = MG_SPC DESID_EMVAR( IMGSRM )%UNITS = 'MOLES/S' DESID_EMVAR( IMGSRM )%MW = MG_MW DESID_EMVAR( IMGSRM )%USED = .FALSE. DESID_EMVAR( IMGSRM )%CONV = 1.0 DESID_EMVAR( IMGSRM )%BASIS = 'MOLE' DESID_EMVAR( IMGSRM )%LAREA = .FALSE. DESID_EMVAR( IMGSRM )%LAREAADJ = .FALSE. ALLOCATE ( VDEMIS_MG( NMGSPC,NCOLS,NROWS), STAT = STATUS ) IF ( STATUS .NE. 0 ) THEN XMSG = '*** VDEMIS_MG, memory allocation failed' CALL M3WARN ( PNAME, JDATE, JTIME, XMSG ) SUCCESS = .FALSE.; RETURN END IF ALLOCATE ( TSEASFC( NCOLS,NROWS ), & U10( NCOLS,NROWS ), & SEAICE( NCOLS,NROWS ), STAT = STATUS ) IF ( STATUS .NE. 0 ) THEN XMSG = '*** DMSL, TSEASFC, U10, or SEAICE memory' CALL M3WARN ( PNAME, JDATE, JTIME, XMSG ) SUCCESS = .FALSE.; RETURN END IF U10 = 0.0 TSEASFC = 293.15 SEAICE = 0.0 C Get index for surface ozone concentration VARNM = 'O3' LGC_O3 = INDEX1( VARNM, N_GC_SPC, GC_SPC ) IF ( LGC_O3 .LE. 0 ) THEN XMSG = 'Could not find ' // VARNM // 'in species table' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT3 ) END IF IF (USE_MARINE_GAS_EMISSION .AND. MGEMDIAG ) THEN ! Open the marine gas emission diagnostic file C Determine number of marine gas species for diagnostic file NMGDIAG = NMGSPC C Allocate diagnostic arrays ALLOCATE ( MGOUTD( NMGDIAG ), & WRMG_SPC( NMGDIAG ), STAT = STATUS ) IF ( STATUS .NE. 0 ) THEN XMSG = '*** MGOUTD or WRMG_SPC memory alloc failed' CALL M3WARN ( PNAME, JDATE, JTIME, XMSG ) SUCCESS = .FALSE.; RETURN END IF C Build diagnostic file write buffer (WRMG_SPC) array IF (INDEX( MECHNAME, 'CB6R5M_AE7_AQ' ) .GT. 0) THEN START_INDEX = 1 END_INDEX = 12 ELSE START_INDEX = 12 END_INDEX = 12 END IF NMGDIAG = 0 DO S = START_INDEX, END_INDEX NMGDIAG = NMGDIAG + 1 WRMG_SPC( NMGDIAG ) = MG_SPC( S ) MG_SPC_IND( NMGDIAG ) = S END DO C Open the marine gas emission dignostic file IF ( IO_PE_INCLUSIVE ) CALL OPMGEMIS ( STDATE, STTIME, TSTEP, NMGDIAG, WRMG_SPC ) ALLOCATE ( MGBF( NMGDIAG,NCOLS,NROWS ), & WRMG( NCOLS,NROWS ), STAT = STATUS ) IF ( STATUS .NE. 0 ) THEN XMSG = '*** MGBF or WRMG memory allocation failed' CALL M3WARN ( PNAME, JDATE, JTIME, XMSG ) SUCCESS = .FALSE.; RETURN END IF MGBF = 0.0 END IF END FUNCTION MGEMIS_INIT C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE OPMGEMIS ( JDATE, JTIME, TSTEP, NMGDIAG, WRMG_SPC ) C 8 Aug 14 B.Gantt adapted from sea salt diagnostic USE GRID_CONF ! horizontal & vertical domain specifications USE UTILIO_DEFN IMPLICIT NONE INCLUDE SUBST_FILES_ID ! file name parameters C Arguments: INTEGER, INTENT( IN ) :: JDATE ! current model date, coded YYYYDDD INTEGER, INTENT( IN ) :: JTIME ! current model time, coded HHMMSS INTEGER, INTENT( IN ) :: TSTEP ! output time step INTEGER, INTENT( IN ) :: NMGDIAG CHARACTER( 16 ), INTENT( IN ) :: WRMG_SPC( NMGDIAG ) C Local variables: CHARACTER( 16 ) :: PNAME = 'OPMGEMIS' CHARACTER( 96 ) :: XMSG = ' ' INTEGER V, L ! loop induction variables #ifdef mpas integer :: io_mode #endif C----------------------------------------------------------------------- #ifdef mpas if (ncd_64bit_offset) then io_mode = ior (nf90_noclobber, nf90_64bit_offset) else io_mode = nf90_noclobber end if call mio_fcreate (CTM_MGEM_1, io_mode) #else C Try to open existing file for update IF ( .NOT. OPEN3( CTM_MGEM_1, FSRDWR3, PNAME ) ) THEN XMSG = 'Could not open CTM_MGEM_1 for update - ' & // 'try to open new' CALL M3MESG( XMSG ) C Set output file characteristics based on COORD.EXT and open diagnostic file FTYPE3D = GRDDED3 SDATE3D = JDATE STIME3D = JTIME TSTEP3D = TSTEP CALL NEXTIME( SDATE3D, STIME3D, TSTEP3D ) ! start the next hour NVARS3D = NMGDIAG NCOLS3D = GL_NCOLS NROWS3D = GL_NROWS NLAYS3D = 1 NTHIK3D = 1 GDTYP3D = GDTYP_GD P_ALP3D = P_ALP_GD P_BET3D = P_BET_GD P_GAM3D = P_GAM_GD XORIG3D = XORIG_GD YORIG3D = YORIG_GD XCENT3D = XCENT_GD YCENT3D = YCENT_GD XCELL3D = XCELL_GD YCELL3D = YCELL_GD VGTYP3D = VGTYP_GD VGTOP3D = VGTOP_GD ! VGTPUN3D = VGTPUN_GD ! currently, not defined DO L = 1, NLAYS3D + 1 VGLVS3D( L ) = VGLVS_GD( L ) END DO ! GDNAM3D = GDNAME_GD GDNAM3D = GRID_NAME ! from HGRD_DEFN DO V = 1, NMGDIAG VTYPE3D( V ) = M3REAL VNAME3D( V ) = WRMG_SPC( V ) UNITS3D( V ) = 'mol s-1' VDESC3D( V ) = 'hourly ' // TRIM( VNAME3D( V ) ) & // ' marine gas emission rate' END DO FDESC3D( 1 ) = 'hourly layer-1 marine gas emission rates' DO L = 2, MXDESC3 FDESC3D( L ) = ' ' END DO C Open marine gas emissions diagnostic file IF ( .NOT. OPEN3( CTM_MGEM_1, FSNEW3, PNAME ) ) THEN XMSG = 'Could not create the CTM_MGEM_1 file' CALL M3EXIT( PNAME, SDATE3D, STIME3D, XMSG, XSTAT1 ) END IF END IF #endif RETURN END SUBROUTINE OPMGEMIS C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE GET_MGEMIS ( JDATE, JTIME, TSTEP, CGRID, L_DESID_DIAG ) C GET_MGEMIS calculates the marine gas emission rates in a grid cell C given the fractional grid-cell area covered by open ocean and surf zone C Key Subroutines/Functions Called: NONE C Revision History: C 03 Nov 15: B. Gantt and G. Sarwar: created the initial version from sea salt diagnostic file C 20 Feb 18: G. Sarwar: removed Br2, added DMS, and revised estimates of halocarbon and HOI/I2 emissions C 04 Dec 18: G. Srawar: updated local time calculation C CReferences: C MacDonald, S. M., Gómez Martín, J. C., Chance, R., Warriner, S., Saiz-Lopez, A., Carpenter, L. J., C and Plane, J. M. C.: A laboratory characterisation of inorganic iodine emissions from the sea C surface: dependence on oceanic variables and parameterisation for global modelling, Atmos. Chem. C Phys., 14, 5841-5852, doi:10.5194/acp-14-5841-2014, 2014. C C Sherwen, T., Evans, M. J., Carpenter, L. J., Andrews, S. J., Lidster, R. T., Dix, B., Koenig, T. K., C Sinreich, R., Ortega, I., Volkamer, R., Saiz-Lopez, A., Prados-Roman, C., Mahajan, A. S., and Ordóñez, C.: C Iodine's impact on tropospheric oxidants: a global model study in GEOS-Chem. Atmos. Chem. Phys., 2016, 16, 1161-1186. C----------------------------------------------------------------------- USE UTILIO_DEFN USE AEROMET_DATA ! Includes CONST.EXT USE ASX_DATA_MOD, ONLY: MET_DATA ! added by Sarwar USE CGRID_SPCS ! CGRID mechanism species USE PCGRID_DEFN ! get cgrid USE GRID_CONF USE CENTRALIZED_IO_MODULE IMPLICIT NONE C Arguments INTEGER, INTENT( IN ) :: JDATE, JTIME, TSTEP( 3 ) REAL, POINTER :: CGRID( :,:,:,: ) ! concentrations LOGICAL, INTENT( IN ) :: L_DESID_DIAG ! flag determining whether or not DESID ! is in diagnostic mode C Includes: INCLUDE SUBST_FILES_ID ! file name parameters C Parameters: C.. Define Marine Gas indices INTEGER, PARAMETER :: IMB3 = 1 INTEGER, PARAMETER :: IMB2 = 2 INTEGER, PARAMETER :: IMBC = 3 INTEGER, PARAMETER :: IMB2C = 4 INTEGER, PARAMETER :: IMBC2 = 5 INTEGER, PARAMETER :: ICH3I = 6 INTEGER, PARAMETER :: IMIC = 7 INTEGER, PARAMETER :: IMIB = 8 INTEGER, PARAMETER :: IMI2 = 9 INTEGER, PARAMETER :: II2 = 10 INTEGER, PARAMETER :: IHOI = 11 INTEGER, PARAMETER :: IDMS = 12 REAL, PARAMETER :: SECS2HR = 1.0 / 3600.0 ! hour per seconds REAL, PARAMETER :: C_FACT = 1.0E-9 /(24.0*3600.0) ! factor to convert nmole/m2/day to mole/m2/sec REAL, PARAMETER :: LON2TZ = 1.0 / 15.0 ! longitude to time zone, 1/degrees REAL, PARAMETER :: FHRLY(0:23) = & ( / 0.032, 0.032, 0.032, 0.033, 0.034, 0.036, & 0.039, 0.044, 0.051, 0.057, 0.062, 0.064, & 0.062, 0.057, 0.051, 0.044, 0.039, 0.036, & 0.034, 0.033, 0.032, 0.032, 0.032, 0.032 / ) C Local Variables: ! REAL :: OFRAC ! fractional seawater cover ! REAL :: SFRAC ! fractional surf-zone cover REAL :: CHLA REAL :: SSTC REAL :: SST REAL :: DMS_L ! DMS in ocean water - nM REAL :: DMS ! DMS in atmosphere REAL :: SICE ! SEAICE in a gird-cell REAL :: SCN REAL :: K600 REAL :: KW REAL :: KA REAL :: KT REAL :: GAMMA REAL :: ALPHA REAL :: H_DMS CHARACTER( 16 ), SAVE :: PNAME = 'GET_MGEMIS' CHARACTER( 96 ) :: XMSG = ' ' CHARACTER( 80 ) :: MSG ! Message INTEGER :: C, R, L, N, V, S ! loop indices INTEGER :: LOGUNIT INTEGER :: NVARS, NSTEPS INTEGER :: LOCHR INTEGER :: OFF_SET INTEGER, SAVE :: WSTEP = 0 ! local write counter INTEGER :: MDATE, MTIME ! MGEM write date&time REAL :: IWSTEP ! reciprocal of local write counter REAL :: DX1, DX2 ! CX x1- and x2-cell widths REAL :: O3, I_AQ ! SST in K, SSTC in C, O3 in ppb, SWPD10 in m/s REAL :: DUMMY ! dummy variable for calculating marine gas emission ! REAL :: WDSCALO ! WDSCALO: 10 meter wind-speed-dependent scaling factors for emissions flux functions ! REAL :: SSTSCALO ! SSTSCALO: SST-dependent scaling factor for emissions from Jaegle et al. (2011) (SST in Celsius) REAL :: LOC_LON ! grid-cell longitude REAL :: WSPD10 ! wind speed REAL :: WSPD10_M5 ! wind speed with a minimum speed of 5 m/s (used for HOI and I2 emission calculation) REAL :: MARINE_AREA ! marine fraction of surface and later marine surface area REAL :: CURRHR ! current GMT hour REAL, SAVE :: A ! horizontal area of cells, m**2 REAL, PARAMETER :: TWOTHIRDS = 2.0 / 3.0 ! 2.0 / 3.0 REAL, PARAMETER :: ONESIXHUNDREDS = 1.0 / 600.0 ! 1.0 / 600.0 LOGICAL, SAVE :: FIRST_TIME = .TRUE. #ifdef mpas CHARACTER( 20 ) :: time_stamp #endif C----------------------------- Begin calc ------------------------------ IF( FIRST_TIME ) THEN C calculate grid-cell area #ifndef mpas IF ( GDTYP_GD .EQ. LATGRD3 ) THEN DX1 = DG2M * XCELL_GD ! in m. DX2 = DG2M * YCELL_GD & * COS( PI180*( YORIG_GD + YCELL_GD*FLOAT( GL_NROWS/2 )))! in m. ELSE DX1 = XCELL_GD ! in m. DX2 = YCELL_GD ! in m. END IF A = DX1 * DX2 ! m2 #endif FIRST_TIME = .FALSE. END IF CURRHR = REAL ( TIME2SEC( JTIME ) ) / 3600.0 C Assume MET_CRO_2D file is already opened IF (WSPD10_AVAIL) THEN call interpolate_var ('WSPD10', jdate, jtime, U10) ELSE call interpolate_var ('WIND10', jdate, jtime, U10) END IF IF (TSEASFC_AVAIL) THEN call interpolate_var ('TSEASFC', jdate, jtime, TSEASFC) ELSE call interpolate_var ('TEMPG', jdate, jtime, TSEASFC) END IF call interpolate_var ('SEAICE', jdate, jtime, SEAICE) ! Only write out marine gas diagnostics if not in diagnostic ! mode IF ( MGEMDIAG .AND. WSTEP .EQ. 0 .AND. .NOT. L_DESID_DIAG ) MGBF = 0.0 C Initialize marine gas output buffer DO R = 1, NROWS DO C = 1, NCOLS MARINE_AREA = ( OCEAN( C,R ) + SZONE( C,R ) ) IF ( MARINE_AREA .GT. 0.0 .AND. SEAICE( C, R ) .LE. 0.0) THEN ! convert area fraction to an actual area #ifdef mpas MARINE_AREA = MARINE_AREA * cell_area(c,1) #else MARINE_AREA = MARINE_AREA * A #endif CHLA = MIN ( 1.0, CHLR ( C,R ) ) WSPD10 = U10( C,R ) WSPD10_M5 = MAX (5.0, WSPD10) SST = TSEASFC (C,R) ! SSTC = SST - 273.15 SSTC = MIN( (SST - 273.15), 30.0) LOC_LON = LON (C,R) O3 = 1000.0 * CGRID(C, R, 1, LGC_O3) DMS_L = DMSL( C, R ) C.. calculate iodide in water I_AQ = 1.46E6 * EXP( -9134.0 / SST) !.. calculate parameters needed for DMS emissions !.. Calculate Schmidt number of DMS (Saltzman et al, JGR, 1993) SCN = 2674.0 - 147.12 * SSTC + 3.726 * SSTC * SSTC - 0.038 * SSTC * SSTC * SSTC !.. Calculate water-side DMS gas-transfer velocity following Liss and Merlivat, 1986 (unit - cm/hr) IF ( WSPD10 .LE. 3.6 ) THEN KW = 0.17 * WSPD10 / ( (SCN * ONESIXHUNDREDS)**TWOTHIRDS) ELSE IF ( WSPD10 .GT. 3.6 .AND. WSPD10 .LE. 13.0 ) THEN KW = ( 2.85 * WSPD10 - 9.65 ) / SQRT(SCN * ONESIXHUNDREDS) ELSE IF ( WSPD10 .GT. 13.0) THEN KW = ( 5.9 * WSPD10 - 49.3 ) / SQRT(SCN * ONESIXHUNDREDS) ENDIF !.. Calculate air-side DMS gas-transfer velocity (McGills et al, JGR, 2000) (unit - cm/hr) KA = 659.0 * WSPD10 / SQRT(62.0/18.0) !.. Calculate Henry's Law Coefficient of DMS expressed as C_air/C_water following Dacey et al, GRL, 1984 (unit - atm . L /mole) H_DMS = EXP ( 12.64 - 3547.0/SST ) !.. Calculate Solubility Coeffcient of DMS expressed as C_water/C_air following McGills et al, JGR, 2000 - (unit dimensionless ) !.. Dacey et al. calculates Henry's Law Coefficient as C_air/C_water, thus, an inverse is taken for unit consistency !.. and then it is converted into dimensionless unit ALPHA = 0.082058 * SST / H_DMS !.. Calculate Atmospheric Gradient Fraction following Lan et al, Global Biogeochemical Cycles, 2011 GAMMA = 1.0 /( 1.0 + KA / (ALPHA * KW)) !.. Calculate total gas transfer velocity for DMS following Lan et al, Global Biogeochemical Cycles, 2011 KT = KW * (1.0 - GAMMA) C.. calculate local hour OFF_SET = NINT(LOC_LON * LON2TZ ) LOCHR = INT(CURRHR + OFF_SET ) IF (LOCHR .LT. 0) LOCHR = LOCHR + 24 IF (LOCHR .GT. 23) LOCHR = LOCHR - 24 IF (INDEX( MECHNAME, 'CB6R5M_AE7_AQ' ) .GT. 0) THEN DUMMY = 4.31E-8 * MARINE_AREA * FHRLY(LOCHR) * CHLA * SECS2HR C.. Calculate MB3 emission rate in mole/s VDEMIS_MG( IMB3, C, R ) = DUMMY * 2.00 C.. Calculate MB2 emission rate in mole/s VDEMIS_MG( IMB2, C, R ) = DUMMY * 0.50 C.. Calculate MBC emission rate in mole/s VDEMIS_MG( IMBC, C, R ) = DUMMY * 0.08 C.. Calculate MB2C emission rate in mole/s VDEMIS_MG( IMB2C, C, R ) = DUMMY * 0.12 C.. Calculate MBC2 emission rate in mole/s VDEMIS_MG( IMBC2, C, R ) = DUMMY * 0.10 C.. Calculate CH3I emission rate in mole/s VDEMIS_MG( ICH3I, C, R ) = DUMMY * 1.60 C.. Calculate MIC emission rate in mole/s VDEMIS_MG( IMIC, C, R ) = DUMMY * 1.41 C.. Calculate MIB emission rate in mole/s VDEMIS_MG( IMIB, C, R ) = DUMMY * 0.42 C.. Calculate MI2 emission rate in mole/s VDEMIS_MG( IMI2, C, R ) = DUMMY * 0.46 C.. Calculate I2 emission rate in mole/s (Macdonald et al., ACP, 14, 5841-5852, 2014) DUMMY = O3 * (I_AQ**1.3) * (1.74E9 - 6.54E8*LOG(WSPD10_M5)) ! NMOL/M2/D DUMMY = MARINE_AREA * DUMMY * C_FACT VDEMIS_MG( II2, C, R ) = MAX( 0.0, DUMMY ) C.. Calculate HOI emission rate in mole/s (Macdonald et al., ACP, 14, 5841-5852, 2014) DUMMY = SQRT(I_AQ) DUMMY = O3 & * ((4.15E5*DUMMY - 20.6)/WSPD10_M5 - 23600.0*DUMMY) ! NMOL/M2/D DUMMY = MARINE_AREA * DUMMY * C_FACT VDEMIS_MG( IHOI, C, R ) = MAX( 0.0, DUMMY ) END IF C .. Calculate DMS emission rate in mole/s DUMMY = MARINE_AREA * DMS_L * KT * 2.78E-12 VDEMIS_MG( IDMS, C, R ) = MAX ( 0.0, DUMMY) ELSE DO N = 1, NMGSPC VDEMIS_MG( N, C, R ) = 0.0 END DO CYCLE END IF C Update the MGBF array, for writing the diagnostic marine gas emission file IF ( MGEMDIAG .AND. .NOT. L_DESID_DIAG ) THEN V = 0 DO S = 1, NMGSPC V = V + 1 MGOUTD( V ) = VDEMIS_MG( S,C,R ) END DO DO S = 1, NMGDIAG MGBF( S,C,R ) = MGBF( S,C,R ) + MGOUTD( MG_SPC_IND (S) ) & * REAL( TIME2SEC ( TSTEP( 2 ) ) ) END DO END IF ! MGEMDIAG END DO ! C END DO ! R C If last call this hour, write out the total MG emissions [moles/s]. C Then reset the MG emissions array and local write counter. IF ( MGEMDIAG .AND. .NOT. L_DESID_DIAG ) THEN WSTEP = WSTEP + TIME2SEC( TSTEP( 2 ) ) IF ( WSTEP .GE. TIME2SEC( TSTEP( 1 ) ) ) THEN IWSTEP = 1.0 / REAL( WSTEP ) #ifdef mpas call mio_time_format_conversion (jdate, jtime, time_stamp) #else IF ( .NOT. CURRSTEP( JDATE, JTIME, STDATE, STTIME, TSTEP( 1 ), & MDATE, MTIME ) ) THEN XMSG = 'Cannot get step date and time' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT3 ) END IF CALL NEXTIME( MDATE, MTIME, TSTEP( 1 ) ) #ifdef parallel_io IF ( .NOT. IO_PE_INCLUSIVE ) THEN IF ( .NOT. OPEN3( CTM_MGEM_1, FSREAD3, PNAME ) ) THEN XMSG = 'Could not open ' // TRIM(CTM_MGEM_1) CALL M3EXIT( PNAME, MDATE, MTIME, XMSG, XSTAT1 ) END IF END IF #endif #endif DO V = 1, NMGDIAG DO R = 1, NROWS DO C = 1, NCOLS WRMG( C,R ) = MGBF( V,C,R ) * IWSTEP END DO END DO #ifdef mpas call mio_fwrite (CTM_MGEM_1, WRMG_SPC(V), pname, WRMG(:,1), time_stamp) #else IF ( .NOT. WRITE3( CTM_MGEM_1, WRMG_SPC( V ), & MDATE, MTIME, WRMG ) ) THEN XMSG = 'Couldnt write ' // CTM_MGEM_1 // 'file' CALL M3EXIT( PNAME, MDATE, MTIME, XMSG, XSTAT1 ) END IF #endif END DO #ifdef mpas WRITE( LOGDEV, '( /5X, 3( A, :, 1X ), a19)') & 'Timestep written to', CTM_MGEM_1, & 'for time stamp', time_stamp #else WRITE( LOGDEV, '( /5X, 3( A, :, 1X ), I8, ":", I6.6 )') & 'Timestep written to', CTM_MGEM_1, & 'for date and time', MDATE, MTIME #endif WSTEP = 0 MGBF = 0.0 END IF END IF ! MGDIAG RETURN END SUBROUTINE GET_MGEMIS END MODULE MGEMIS ================================================ FILE: CCTM/src/emis/emis/PT3D_DEFN.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: MODULE PT3D_DEFN C----------------------------------------------------------------------- C Function: 3d point source emissions interface to the chemistry-transport model C Revision History: C 21 Nov 2007 J.Young: initial implementation C 1 Jun 2010 David Wong: In subroutine GET_PT3D_EMIS, removed a IF-THEN C block of code since the argument for TIME2SEC is in C HHMMSS format rather than day format and also C STKDATE is already set correctly C 16 Feb 2011 S.Roselle: replaced I/O API include files with UTILIO_DEFN C 11 May 2011 David Wong: incorporated twoway model implementation C 27 Jul 2011 David Wong: 1. in subroutine GET_PT3D_EMIS, use PRE_JDATE, and C LOC_STKDATE to track change of date during a C simulation when the start time is not 0, so C correct data can be pulled by INTERPX routine C 2. used WINDOW logical variable (in subroutine C PT3D_INIT) to determine x and y orig information C and in subroutine READGC3, do not expand the C STATCOL and STRTROw in the west and south direction C 29 Oct 2011 J.Young: fix domain windowing C 30 Apr 2012 C.Nolte: fix number of substeps, NTICS to be the number of C synchronization time steps rather than the number of seconds. C 19 Dec 2013 D. Wong: used WRTIME, a robust way to determine when to write the C PT3D diagnostic file instead of relying on NTICS in particular C for the twoway model where a time step can be sub-divided. C 29 Jul 2014 D. Wong: check MET_CRO_3D and MET_DOT_3D separately for domain windowing C 12 Aug 2015 D. Wong: - Used assumed shape array declaration and declared associated C subroutines in INTERFACE block C - Replaced BMATVEC with BMATVECN which will call with a 1d or C 2d argument subroutine by F90 poly-morphism feature C - Based on the condition of MY_NSRC ( > 0 or not) to determine C execution of certain section of code or not C 30 Apr 2016 J.Young: add multiple fire source capability, in affiliation with C Yongtao Hu (Georgia Tech) C 22 Jun 2016 B.Hutzell: Fixed issue where single emis species maps to multiple model C species C 08 Aug 2016 B.Murphy: Neglect fire emissions for pcVOC C 16 Aug 2017 B.Murphy: Pull plume height calc. to separate subroutine. C 01 Feb 2019 D.Wong: Implemented centralized I/O approach and removed everything C related to ZSTATIC C 05 June 2019 F. Sidi: Bugfix related to Parallel I/O Implementation C 05 Aug 2019 D. Wong: Removed USE BMATVEC_MODULE statement and PTBILIIN C 19 Sep 2019 D. Wong: Fixed the way to advance to next day on an emission file, DESID_STREAM_DATE C----------------------------------------------------------------------- USE UDTYPES, ONLY: RARRY1 IMPLICIT NONE PUBLIC PT3D_INIT, GET_PT3D_EMIS PRIVATE C Output layer fractions, dimensioned NSRC, DESID_LAYS, and for diagnostic file REAL, ALLOCATABLE, SAVE :: LFRAC( :,: ) ! per source local layer fractn REAL, ALLOCATABLE, SAVE :: TFRAC( :,: ) ! Temporary LFRAC C debugging zplume REAL, ALLOCATABLE, SAVE :: ZPLUM( :,: ) ! has to be 2D for play file C Wildfire emissions source parameters TYPE( RARRY1 ), ALLOCATABLE, SAVE :: ACRES( : ) ! acres burned TYPE( RARRY1 ), ALLOCATABLE, SAVE :: BFLUX( : ) ! Briggs buoyancy flux C Vertical coord values REAL, ALLOCATABLE, SAVE :: VGLVSXG( : ) C Play report log INTEGER, ALLOCATABLE, SAVE :: RDEV( : ) C Play files source id file #ifdef srcid INTEGER, ALLOCATABLE, SAVE :: LDEV( : ) #endif C Plume rise info report files CHARACTER( 13 ), ALLOCATABLE, SAVE :: REPTNAME( : ) CHARACTER( 11 ) :: REPSTR C Layer fractions matrix output files CHARACTER( 16 ), ALLOCATABLE, SAVE :: PLAYNAME( : ) C Layer fractions source id output files CHARACTER( 16 ), ALLOCATABLE, SAVE :: PLAY_SRCID_NAME( : ) C Point source 3d emis diagnostic file names ! CHARACTER( 16 ), SAVE :: PT3DNAME C Point source 3d emis diagnostic integral average write buffers REAL, ALLOCATABLE, SAVE :: VDEMIS_BUF( :,:,:,: ) C Diagnostic file avg factor REAL :: DIVFAC C Stack parameters TYPE( RARRY1 ), ALLOCATABLE, SAVE :: STK_DM( : ) TYPE( RARRY1 ), ALLOCATABLE, SAVE :: STK_HT( : ) TYPE( RARRY1 ), ALLOCATABLE, SAVE :: STK_TK( : ) TYPE( RARRY1 ), ALLOCATABLE, SAVE :: STK_VEL( : ) C Private Parameters: CHARACTER( 10 ), PARAMETER :: BLANK10 = ' ' C cross-point layered grid file name CHARACTER( 16 ), SAVE :: GC3NAME C hourly stack emissions file names CHARACTER( 16 ), ALLOCATABLE, SAVE :: STKENAME( : ) CHARACTER( 240 ) :: XMSG = ' ' CONTAINS C======================================================================= FUNCTION PT3D_INIT ( JDATE, JTIME, TSTEP ) & RESULT ( SUCCESS ) USE GRID_CONF, ONLY: NLAYS, VGTYP_GD USE STK_PRMS, ONLY: SOURCE, STK_PRMS_INIT, MY_NSRC USE STK_EMIS, ONLY: DESID_STREAM_NAME, NSRC_EMIS, FIREFLAG, & MAP_PTtoISRM, STK_EMIS_INIT USE PTMET, ONLY: PTMET_DATA, MC2NAME, MC3NAME, MD3NAME, PTMET_INIT USE PTBILIN, ONLY: NPTGRPS, & METCXORIG, METCYORIG, XCELLCG, YCELLCG, & METDXORIG, METDYORIG, XCELLDG, YCELLDG USE UTILIO_DEFN USE RUNTIME_VARS, ONLY: LOGDEV, MYPE, PT3DFRAC, PT_DATE, STDATE, STTIME, & PT_TIME, PT_NSTEPS, REP_LAYR USE DESID_VARS, ONLY: DESID_LAYS, DESID_MAXLAYS USE stack_group_data_module USE centralized_io_module, only : window IMPLICIT NONE C Includes: INCLUDE SUBST_FILES_ID ! file name parameters (for CTM_PT3D_DIAG) C Arguments: INTEGER JDATE ! Julian date (YYYYDDD) INTEGER JTIME ! time (HHMMSS) INTEGER TSTEP ! output time step LOGICAL SUCCESS C Parameters: C Local Variables: CHARACTER( 16 ) :: PNAME = 'PT3D_INIT ' ! procedure name CHARACTER( 16 ) :: VNAME ! variable name buffer ! CHARACTER( 16 ), SAVE, ALLOCATABLE :: STKGNAME( : ) ! stack groups file name INTEGER METCCOLS ! cross point grid number of columns INTEGER METCROWS ! cross point grid number of rows INTEGER METDCOLS ! dot point grid number of columns INTEGER METDROWS ! dot point grid number of rows INTEGER IOS ! i/o and allocate memory status INTEGER NDATE ! next timestep file Julian date (YYYYDDD) INTEGER NTIME ! next timestep file time (HHMMSS) INTEGER I, J, K, L, M, N, P, S, SRC, V, ISRM ! counters and indices INTEGER :: GXOFF, GYOFF INTEGER :: STRTCOLMC, ENDCOLMC, STRTROWMC, ENDROWMC INTERFACE SUBROUTINE DELTA_ZS( DESID_LAYS, MY_NSRC, SRC_MAP, STKHT, ZF, ZSTK, DDZF ) INTEGER, INTENT( IN ) :: DESID_LAYS, MY_NSRC INTEGER, INTENT( IN ) :: SRC_MAP( : ) REAL, INTENT( IN ) :: STKHT( : ) REAL, INTENT( IN ) :: ZF ( :,: ) REAL, INTENT( OUT ) :: ZSTK( :,: ) REAL, INTENT( OUT ) :: DDZF( :,: ) END SUBROUTINE DELTA_ZS SUBROUTINE OPENLAYOUT( NDATE, NTIME, TSTEP, EMLAYS, VGLVSXG, NPTGRPS, & MY_NSRC, PLAYNAME ) INTEGER, INTENT( IN ) :: NDATE INTEGER, INTENT( IN ) :: NTIME INTEGER, INTENT( IN ) :: TSTEP INTEGER, INTENT( IN ) :: EMLAYS REAL, INTENT( IN ) :: VGLVSXG( 0: ) INTEGER, INTENT( IN ) :: NPTGRPS INTEGER, INTENT( IN ) :: MY_NSRC( : ) CHARACTER( * ), INTENT( OUT ) :: PLAYNAME( : ) END SUBROUTINE OPENLAYOUT END INTERFACE C----------------------------------------------------------------------- SUCCESS = .TRUE. C In-line 3D point source emissions? IF ( NPTGRPS .GT. 0 ) THEN XMSG = 'Using in-line 3d point source emissions option' CALL M3MSG2( XMSG ) ELSE RETURN END IF C Cannot use default and cannot set to less than 4 because of limits of plume C rise algorithm IF ( DESID_MAXLAYS .GT. 0 .AND. DESID_MAXLAYS .LT. 4 ) THEN XMSG = 'Environment variable CTM_DESID_LAYS must be set to ' // & 'a number from 4 to the ' // CRLF() // BLANK10 // & 'number of layers in the meteorology inputs.' CALL M3WARN ( PNAME, JDATE, JTIME, XMSG ) SUCCESS = .FALSE.; RETURN END IF C get diagnostic files options IF ( REP_LAYR .LT. 1 ) THEN XMSG = 'NOTE: Environment variable REP_LAYR_MIN is ' // & 'less than 1. Turning off reporting...' ELSE IF ( REP_LAYR .GT. DESID_LAYS ) THEN WRITE( XMSG,94010 ) & 'NOTE: Environment variable REP_LAYR_MIN is '// & 'greater than the number of emissions ' // & CRLF() // BLANK10 // 'layers (', DESID_LAYS, '). '// & 'Resetting to number of emissions layers.' REP_LAYR = DESID_LAYS ELSE WRITE( XMSG,94010 ) & 'logging stack data for plume rise .ge. layer', REP_LAYR END IF CALL M3MSG2( XMSG ) #ifndef mpas #ifdef srcid IF ( PT3DFRAC ) THEN ! save local source id's ALLOCATE ( LDEV( NPTGRPS ), STAT = IOS ) CALL CHECKMEM( IOS, 'LDEV', PNAME ) LDEV = 0 ! array WRITE( XMSG,94010 ) "Enter logical name for file containing " // & "source id's of play files" ALLOCATE ( PLAY_SRCID_NAME( NPTGRPS ), STAT = IOS ) CALL CHECKMEM( IOS, 'PLAY_SRCID_NAME', PNAME ) DO N = 1, NPTGRPS WRITE( REPSTR,'( "SRCIDLAY", I2.2, "_" )' ) N WRITE( PLAY_SRCID_NAME( N ),'( A, I2.2 )' ) REPSTR, MYPE ! limited to 99 PE's LDEV( N ) = PROMPTFFILE( XMSG, .FALSE., .TRUE., & PLAY_SRCID_NAME( N ), PNAME ) END DO END IF #endif ALLOCATE ( RDEV( NPTGRPS ), STAT = IOS ) CALL CHECKMEM( IOS, 'RDEV', PNAME ) RDEV = 0 ! array IF ( REP_LAYR .GT. 0 ) THEN WRITE( XMSG,94010 ) 'Enter logical name for report of ' // & 'plumes exceeding layer', REP_LAYR ALLOCATE ( REPTNAME( NPTGRPS ), STAT = IOS ) CALL CHECKMEM( IOS, 'REPTNAME', PNAME ) DO N = 1, NPTGRPS WRITE( REPSTR,'( "REPRTLAY", I2.2, "_" )' ) N WRITE( REPTNAME( N ),'( A, I2.2 )' ) REPSTR, MYPE ! limited to 99 PE's RDEV( N ) = PROMPTFFILE( XMSG, .FALSE., .TRUE., REPTNAME( N ), PNAME ) END DO END IF C get scenario timing PT_DATE = JDATE PT_TIME = JTIME C open met files MC2NAME = PROMPTMFILE( 'Enter name for CROSS-POINT SURFACE MET file', & FSREAD3, 'MET_CRO_2D', PNAME ) MC3NAME = PROMPTMFILE( 'Enter name for CROSS-POINT LAYERED MET file', & FSREAD3, 'MET_CRO_3D', PNAME ) MD3NAME = PROMPTMFILE( 'Enter name for DOT-POINT LAYERED MET file', & FSREAD3, 'MET_DOT_3D', PNAME ) C Get grid parameters from 3-d cross-point met file and store header information. C Use time parameters for time defaults. CALL RETRIEVE_IOAPI_HEADER( MC3NAME, JDATE, JTIME ) CALL SUBHFILE ( MC3NAME, GXOFF, GYOFF, & STRTCOLMC, ENDCOLMC, STRTROWMC, ENDROWMC ) C Initialize reference grid with met file XCELLCG = XCELL3D YCELLCG = YCELL3D METCCOLS = NCOLS3D METCROWS = NROWS3D METCXORIG = XORIG3D METCYORIG = YORIG3D IF ( ( GXOFF .GT. 0 ) .AND. ( GYOFF .GT. 0 ) ) THEN METCXORIG = XORIG3D + REAL( GXOFF,8 ) * XCELL3D METCYORIG = YORIG3D + REAL( GYOFF,8 ) * YCELL3D ELSE METCXORIG = XORIG3D METCYORIG = YORIG3D END IF !!!!!!^^^^^^^!!!! THESE NEED TO BE CHECKED AGAINST GRIDDESC C Get grid parameters from 3-d dot-point met file and store header information. C (declared and stored in PTBILIN module) CALL RETRIEVE_IOAPI_HEADER( MD3NAME, JDATE, JTIME ) XCELLDG = XCELL3D YCELLDG = YCELL3D METDXORIG = XORIG3D METDYORIG = YORIG3D METDCOLS = NCOLS3D METDROWS = NROWS3D CALL SUBHFILE ( MD3NAME, GXOFF, GYOFF, & STRTCOLMC, ENDCOLMC, STRTROWMC, ENDROWMC ) IF ( ( GXOFF .GT. 0 ) .AND. ( GYOFF .GT. 0 ) ) THEN METDXORIG = XORIG3D + REAL( GXOFF,8 ) * XCELL3D METDYORIG = YORIG3D + REAL( GYOFF,8 ) * YCELL3D ELSE METDXORIG = XORIG3D METDYORIG = YORIG3D END IF C Compare number of meteorology layers to number of emissions layers ! IF ( DESID_LAYS .LE. NLAYS ) THEN ! WRITE( XMSG,94010 ) 'NOTE: The number of emission layers ' // ! & 'is', DESID_LAYS, ', and the maximum ' // CRLF() ! & // BLANK10 // 'possible layers is', NLAYS ! CALL M3MSG2( XMSG ) ! ELSE ! WRITE( XMSG,94010 ) 'Resetting number of emission layers ' // ! & 'from', DESID_LAYS, 'to number of ' // CRLF() // ! & BLANK10 // 'layers in the meteorology file,', NLAYS ! CALL M3WARN( PNAME, JDATE, JTIME, XMSG ) ! DESID_LAYS = NLAYS ! END IF ALLOCATE( VGLVSXG( 0:MXLAYS3 ), STAT = IOS ) CALL CHECKMEM( IOS, 'VGLVSXG', PNAME ) C Store local layer information J = LBOUND( VGLVS3D, 1 ) ! F90 array intrinsic VGLVSXG( 0 ) = VGLVS3D( J ) DO L = 1, NLAYS J = J + 1 VGLVSXG( L ) = VGLVS3D( J ) END DO IF ( PT_NSTEPS .GT. MXREC3D ) THEN WRITE( XMSG,94010 ) 'Requested output time steps > those on met file ' & // CRLF() // BLANK10 // 'reset to ', MXREC3D PT_NSTEPS = MXREC3D END IF C Get stack data ! ALLOCATE ( STKGNAME( NPTGRPS ), STAT = IOS ) ! stk parms files array ! CALL CHECKMEM( IOS, 'STKGNAME', PNAME ) ! STKGNAME = ' ' ! array ! DO N = 1, NPTGRPS ! WRITE( VNAME,'( "STK_GRPS_",I3.3 )' ) N ! STKGNAME( N ) = PROMPTMFILE( 'Enter name for stack groups file', ! & FSREAD3, VNAME, PNAME ) ! END DO ! IF ( .NOT. STK_PRMS_INIT( STKGNAME ) ) THEN ! XMSG = 'Could not initialize stack parameters' ! CALL M3WARN ( PNAME, JDATE, JTIME, XMSG ) ! SUCCESS = .FALSE.; RETURN ! END IF #endif #ifdef srcid IF ( PT3DFRAC ) THEN DO N = 1, NPTGRPS WRITE( LDEV( N ),93053 ) N, MY_NSRC( N ), MY_STRT_SRC( N ) DO S = 1, MY_NSRC( N ) WRITE( LDEV( N ),93057 ) S, SOURCE( N )%ARRY( S ) + MY_STRT_SRC( N ) - 1 END DO END DO END IF #endif C Initialize stack emissions data ALLOCATE ( STKENAME( NPTGRPS ), STAT = IOS ) ! stk emis files array CALL CHECKMEM( IOS, 'STKENAME', PNAME ) STKENAME = ' ' ! array ! Retrive Point Source Filenames from Emissions Filename Vector DO N = 1, NPTGRPS ISRM = MAP_PTtoISRM( N ) STKENAME( N ) = DESID_STREAM_NAME( ISRM ) END DO ! Initialize Point Source Emissions IF ( .NOT. STK_EMIS_INIT( STKENAME, JDATE, JTIME ) ) THEN XMSG = 'Could not initialize stack parameters' CALL M3WARN ( PNAME, JDATE, JTIME, XMSG ) SUCCESS = .FALSE.; RETURN END IF ! Check that the number of individual sources on each point ! emissions file is consistent. DO N = 1, NPTGRPS IF ( NSRC( N ) .NE. NSRC_EMIS( N ) ) THEN WRITE( LOGDEV,* ) 'NSRC vs. NSRC_EMIS:', N, NSRC( N ), NSRC_EMIS( N ) XMSG = 'No. of sources for stack files don''t match' CALL M3WARN ( PNAME, JDATE, JTIME, XMSG ) SUCCESS = .FALSE.; RETURN END IF END DO C Open diagnostic layer fractions file? IF ( PT3DFRAC ) THEN ALLOCATE ( PLAYNAME( NPTGRPS ), STAT = IOS ) ! stk parms files array CALL CHECKMEM( IOS, 'PLAYNAME', PNAME ) PLAYNAME = ' ' ! array NDATE = PT_DATE; NTIME = PT_TIME CALL NEXTIME( NDATE, NTIME, TSTEP ) ! advance one output tstep CALL OPENLAYOUT( NDATE, NTIME, TSTEP, DESID_LAYS, VGLVSXG, NPTGRPS, & MY_NSRC, PLAYNAME ) END IF IF ( .NOT. PTMET_INIT ( ) ) THEN XMSG = 'Could not initialize stack met data' CALL M3WARN ( PNAME, JDATE, JTIME, XMSG ) SUCCESS = .FALSE.; RETURN END IF ALLOCATE( STK_DM( NPTGRPS ), STAT = IOS ) CALL CHECKMEM( IOS, 'STK_DM', PNAME ) ALLOCATE( STK_HT( NPTGRPS ), STAT = IOS ) CALL CHECKMEM( IOS, 'STK_HT', PNAME ) ALLOCATE( STK_TK( NPTGRPS ), STAT = IOS ) CALL CHECKMEM( IOS, 'STK_TK', PNAME ) ALLOCATE( STK_VEL( NPTGRPS ), STAT = IOS ) CALL CHECKMEM( IOS, 'STK_VEL', PNAME ) ALLOCATE( ACRES (NPTGRPS ), STAT = IOS ) CALL CHECKMEM( IOS, 'ACRES', PNAME ) ALLOCATE( BFLUX (NPTGRPS ), STAT = IOS ) CALL CHECKMEM( IOS, 'BFLUX', PNAME ) DO N = 1, NPTGRPS C Allocate and set stack parameters IF ( MY_NSRC( N ) .GT. 0 ) THEN ALLOCATE( STK_DM( N )%ARRY( MY_NSRC( N ) ), STAT = IOS ) CALL CHECKMEM( IOS, 'STK_DM', PNAME ) STK_DM( N )%ARRY = 0.0 ! 1D array STK_DM( N )%LEN = MY_NSRC( N ) ALLOCATE( STK_HT( N )%ARRY( MY_NSRC( N ) ), STAT = IOS ) CALL CHECKMEM( IOS, 'STK_HT', PNAME ) STK_HT( N )%ARRY = 0.0 ! 1D array STK_HT( N )%LEN = MY_NSRC( N ) ALLOCATE( STK_TK( N )%ARRY( MY_NSRC( N ) ), STAT = IOS ) CALL CHECKMEM( IOS, 'STK_TK', PNAME ) STK_TK( N )%ARRY = 0.0 ! 1D array STK_TK( N )%LEN = MY_NSRC( N ) ALLOCATE( STK_VEL( N )%ARRY( MY_NSRC( N ) ), STAT = IOS ) CALL CHECKMEM( IOS, 'STK_VEL', PNAME ) STK_VEL( N )%ARRY = 0.0 ! 1D array STK_VEL( N )%LEN = MY_NSRC( N ) DO S = 1, MY_NSRC( N ) #ifdef mpas SRC = S #else SRC = SOURCE( N )%ARRY( S ) #endif STK_DM( N )%ARRY( S ) = STKDIAM( N )%ARRY( SRC ) STK_HT( N )%ARRY( S ) = STKHT( N )%ARRY( SRC ) STK_TK( N )%ARRY( S ) = STKTK( N )%ARRY( SRC ) STK_VEL( N )%ARRY( S ) = STKVEL( N )%ARRY( SRC ) END DO C If wildfires, allocate fire parameters IF ( FIREFLAG( N ) ) THEN ALLOCATE( ACRES( N )%ARRY( MY_NSRC( N ) ), STAT = IOS ) CALL CHECKMEM( IOS, 'ACRES', PNAME ) ACRES( N )%ARRY = 0.0 ! 1D array ACRES( N )%LEN = MY_NSRC( N ) DO S = 1, MY_NSRC( N ) #ifdef mpas SRC = S #else SRC = SOURCE( N )%ARRY( S ) #endif ACRES( N )%ARRY( S ) = ACRES_BURNED( N )%ARRY( SRC ) END DO ALLOCATE( BFLUX( N )%ARRY( MY_NSRC( N ) ), STAT = IOS ) CALL CHECKMEM( IOS, 'BFLUX', PNAME ) BFLUX( N )%ARRY = 0.0 ! 1D array BFLUX( N )%LEN = MY_NSRC( N ) END IF END IF ! MY_NSRC > 0 END DO SUCCESS = .TRUE.; RETURN 93053 FORMAT("# Src Id's for play file", I2, ', with', I10, ' total sources', & ", and my_strt_src:", I10 ) 93057 FORMAT( I6, I8 ) 94010 FORMAT( 12( A, :, I8, :, 1X ) ) END FUNCTION PT3D_INIT C======================================================================= SUBROUTINE GET_PT3D_EMIS ( JDATE, JTIME, TSTEP, EMVAR_PT, ISRM, & VDEMIS_PT, PTLAYS, L_DESID_DIAG ) ! Revision History. ! Aug 12, 15 D. Wong: added code to handle parallel I/O implementation ! Jun 05, 19 F. Sidi: Bugfix related to Parallel I/O Implementation !----------------------------------------------------------------------- ! Time step part of laypoint USE GRID_CONF, ONLY: NCOLS, NROWS, IO_PE_INCLUSIVE USE STK_PRMS, ONLY : MY_NSRC, MY_STRT_SRC, MY_END_SRC, & MY_STKCOL, MY_STKROW, SOURCE, #ifdef mpas & MY_STKBUFF, MY_COLBUFF, MY_ROWBUFF, my_nsrc_mesh_index #else & MY_STKBUFF, MY_COLBUFF, MY_ROWBUFF #endif USE STK_EMIS, ONLY : IPSRM, DESID_N_ISTR, DESID_EMVAR, DESID_STREAM_DATE, & STKBUFF, NSRC_EMIS USE PRECURSOR_DATA, ONLY : PRECURSOR_MW, SULF_IDX USE RUNTIME_VARS, ONLY : LOGDEV, PT3DDIAG, PT3DFRAC, STDATE, STTIME USE CENTRALIZED_IO_MODULE USE UTILIO_DEFN #ifdef mpas use util_module, only : nextime USE PTMET, ONLY : DESID_LAYS, PTMET_CONVT_MPAS #else USE PTMET, ONLY : DESID_LAYS, PTMET_CONVT #endif IMPLICIT NONE ! Includes: INCLUDE SUBST_CONST ! physical and mathematical constants INCLUDE SUBST_FILES_ID ! file name parameters (for CTM_PT3D_DIAG) ! Arguments: CHARACTER(16), INTENT( IN ) :: EMVAR_PT( : ) INTEGER :: JDATE, JTIME INTEGER, INTENT( IN ) :: TSTEP( 3 ) INTEGER, INTENT( IN ) :: ISRM INTEGER, INTENT( OUT) :: PTLAYS REAL, INTENT(INOUT) :: VDEMIS_PT( :,:,:,: ) ! Parameters: LOGICAL, EXTERNAL :: WRITE3_DISTR ! calls WRITE3 directly ! Local variables: INTEGER CDATE ! previous step start date INTEGER CTIME ! previous step start time INTEGER, SAVE :: LDATE = 0 ! previous date INTEGER LTOP ! layer containing plume top INTEGER SRC ! source pointer in this proc sub-domain INTEGER MY_DELTA ! total number of sources on this processor REAL LFRC ! intermediate LFRAC REAL TSUM ! tmp layer frac sum for renormalizing REAL, ALLOCATABLE, SAVE :: MY_STKEMIS( :,:,: ) CHARACTER( 8 ) :: CINT ! integer to character buffer for warning messages CHARACTER( 16 ) :: PNAME = 'GET_PT3D_EMIS ' ! procedure name CHARACTER( 16 ) :: VNAME ! variable name buffer INTEGER IOS ! i/o and allocate memory status INTEGER L, S, V ! counters INTEGER C, R, I, J, K, N, ISPC INTEGER, SAVE :: WSTEP = 0 INTEGER WDATE, WTIME LOGICAL, SAVE :: WRTIME INTEGER, SAVE :: NTICS = 0 ! no. of substeps within an output tstep LOGICAL, SAVE :: FIRSTIME = .TRUE. LOGICAL :: L_DESID_DIAG ! flag determining whether or not DESID ! is in diagnostic mode LOGICAL :: L_NEWDAY INTEGER :: NDATE, NTIME INTEGER, ALLOCATABLE, SAVE :: PRE_DESID_STREAM_DATE(:) #ifdef Verbose1 real mxzplm #endif C----------------------------------------------------------------------- IF ( FIRSTIME ) THEN FIRSTIME = .FALSE. ALLOCATE ( MY_STKEMIS( DESID_LAYS,NCOLS,NROWS ), STAT = IOS ) CALL CHECKMEM( IOS, 'MY_STKEMIS', PNAME ) ! Set up and open 3d point source emissions diagnostic file? IF ( PT3DDIAG ) THEN NDATE = STDATE; NTIME = STTIME CALL NEXTIME( NDATE, NTIME, TSTEP(1) ) ! advance one output tstep CALL OPPT3D_DIAG( CTM_PT3D_DIAG, TSTEP(1), & DESID_EMVAR( ISRM )%LEN, DESID_EMVAR( ISRM )%ARRY( : ), & DESID_EMVAR( ISRM )%UNITS( : ) ) ALLOCATE ( VDEMIS_BUF( DESID_N_ISTR,DESID_LAYS,NCOLS,NROWS ), STAT = IOS ) CALL CHECKMEM( IOS, 'VDEMIS_BUF', PNAME ) VDEMIS_BUF = 0.0 ! array WRITE( LOGDEV,'(/5X, A /5X, A )' ) & 'Recording 3d point source emissions diagnostics', & 'as a linear average over the output timestep' #ifdef parallel_io IF ( .NOT. IO_PE_INCLUSIVE ) THEN IF ( .NOT. OPEN3( CTM_PT3D_DIAG, FSREAD3, PNAME ) ) THEN XMSG = 'Could not open ' // TRIM(CTM_PT3D_DIAG) CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT3 ) END IF END IF #endif END IF ALLOCATE (PRE_DESID_STREAM_DATE(SIZE(DESID_STREAM_DATE)), STAT=IOS) PRE_DESID_STREAM_DATE = STDATE END IF C Based on the current time step, find whether or not a report should be written ! WRITE( XMSG,'(A, I7.6)' ) ! & 'Calculating emissions point source layer fractions for', JTIME ! WRITE( LOGDEV,* ) ' ' ! CALL M3MSG2( XMSG ) ! ! IF ( LDATE .NE. JDATE ) THEN ! write day and date to stdout & XMSG ! CALL WRDAYMSG( JDATE, XMSG ) ! LDATE = JDATE ! WRITE( LOGDEV,'(9X, "at time ", A)' ) HHMMSS( JTIME ) ! END IF ! WRTIME = .FALSE. ! WSTEP = WSTEP + TIME2SEC( TSTEP( 2 ) ) ! IF ( WSTEP .GE. TIME2SEC( TSTEP( 1 ) ) ) THEN ! WDATE = JDATE; WTIME = JTIME ! CALL NEXTIME( WDATE, WTIME, TSTEP( 2 ) ) ! IF ( .NOT. CURRSTEP( WDATE, WTIME, SDATE, STIME, TSTEP( 1 ), ! & CDATE, CTIME ) ) THEN ! XMSG = 'Cannot get step date and time' ! CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT3 ) ! END IF ! WDATE = CDATE; WTIME = CTIME ! WSTEP = 0 ! WRTIME = .TRUE. ! DO N = 1, NPTGRPS ! IF ( RDEV( N ) .GT. 0 ) THEN ! write day, date and time to report file ! WRITE( CINT,'( I8 )' ) REP_LAYR ! CALL WRDAYMSG( WDATE, XMSG ) ! XMSG = XMSG( 1:LEN_TRIM( XMSG ) ) ! & // ' at time ' // HHMMSS( WTIME ) ! & // 'for ltop .ge. ' // TRIM( ADJUSTL( CINT ) ) ! WRITE( RDEV( N ),93000 ) XMSG( 1:LEN_TRIM( XMSG ) ) ! END IF ! END DO ! END IF C Initialize Output Array !VDEMIS_PT = 0.0 ! array assignment N = IPSRM( ISRM ) C Convert pt source met data to bi-linear interpolated data #ifdef mpas CALL PTMET_CONVT_MPAS ( N ) #else CALL PTMET_CONVT( JDATE, JTIME, N ) #endif PTLAYS = 1 ! Initialize Point Layers at lowest possible value IF ( MY_NSRC( N ) .LE. 0 ) RETURN IF ( PT3DFRAC ) THEN ! Store layer fractions ALLOCATE( LFRAC( MY_NSRC( N ),DESID_LAYS ), STAT = IOS ) CALL CHECKMEM( IOS, 'LFRAC', PNAME ) ALLOCATE( ZPLUM( MY_NSRC( N ),DESID_LAYS ), STAT = IOS ) CALL CHECKMEM( IOS, 'ZPLUM', PNAME ) LFRAC = 0.0 ! 2-D array - Initialize layer fraction ZPLUM = 0.0 ! 2-D array - Initialize plume centroid height END IF C Ensure that the model and stack groups emissions timestamp dates stay synchronized L_NEWDAY = .FALSE. IF ( PRE_DESID_STREAM_DATE(ISRM) .NE. JDATE ) THEN L_NEWDAY = .TRUE. NDATE = JDATE; NTIME = JTIME CALL NEXTIME( NDATE, NTIME, -TSTEP( 1 ) ) ! go back one output tstep CALL NEXTIME( DESID_STREAM_DATE( ISRM ), NTIME, TSTEP( 1 ) ) ! advance the start date one time step PRE_DESID_STREAM_DATE(ISRM) = JDATE END IF C Allocate Array to Store the Layer Heights of All Stacks (i.e. sources) C from this Point Group (i.e. ptgrp) IF (MY_NSRC( N ) .GT. 0) THEN ALLOCATE( TFRAC( DESID_LAYS,MY_NSRC( N ) ), STAT = IOS ) CALL CHECKMEM( IOS, 'TFRAC', PNAME ) TFRAC = 0.0 ! array C Calculate Plume Heights for All Point Sources on this File CALL CALC_PLUME_HEIGHT( DESID_STREAM_DATE( ISRM ), JDATE, JTIME, WRTIME, N ) ! Floor TFRAC to zero in case there are negatives and ! renormalize positive values so the sum is 1.0 If ( MINVAL( TFRAC ) .LT. 0.0 ) THEN WHERE ( TFRAC( :,: ) .LT. 0.0 ) TFRAC( :,: ) = 0.0 DO S = 1,MY_NSRC( N ) TFRAC( :,S ) = TFRAC( :,S ) / SUM( TFRAC(:,S) ) END DO END IF ! Calculate Maximum Layer Height across all source Plumes DO L = DESID_LAYS,1,-1 PTLAYS = L IF ( COUNT( TFRAC(L,:) .EQ. 0.0 ) .LT. MY_NSRC( N ) ) EXIT END DO END IF C Read Emissions for all sources on File N DO ISPC = 1, DESID_N_ISTR VNAME = EMVAR_PT( ISPC ) IF ( VNAME .EQ. '' ) CYCLE call interpolate_var (STKENAME(N), VNAME, DESID_STREAM_DATE( ISRM ), JTIME, STKBUFF(1:NSRC_EMIS(N)) ) MY_STKEMIS( 1:PTLAYS,:,: ) = 0.0 DO S = 1,MY_NSRC( N ) #ifdef mpas C = my_nsrc_mesh_index( S, N ) R = 1 MY_STKBUFF( S ) = STKBUFF( S ) #else SRC = SOURCE( N )%ARRY( S ) MY_STKBUFF( S ) = STKBUFF( SRC ) MY_COLBUFF( S ) = MY_STKCOL( N )%ARRY( S ) MY_ROWBUFF( S ) = MY_STKROW( N )%ARRY( S ) C = MY_COLBUFF( S ) R = MY_ROWBUFF( S ) #endif MY_STKEMIS( 1:PTLAYS,C,R ) = MY_STKEMIS( 1:PTLAYS,C,R ) & + MY_STKBUFF( S ) * TFRAC( 1:PTLAYS,S ) END DO ! Save Emissions in Common Array VDEMIS_PT( ISPC,1:PTLAYS,:,: ) = MY_STKEMIS( 1:PTLAYS,:,: ) END DO ! End Loop on Species IF (MY_NSRC( N ) .GT. 0) DEALLOCATE( TFRAC ) ! Reset the date of the gridded file if this is diagnostic mode ! and the day has advanced IF ( L_NEWDAY .AND. L_DESID_DIAG ) THEN CALL NEXTIME( DESID_STREAM_DATE( ISRM ), NTIME, -TSTEP(1) ) PRE_DESID_STREAM_DATE( ISRM ) = DESID_STREAM_DATE( ISRM ) END IF C Write Out Diagnostic Info IF ( PT3DFRAC .AND. WRTIME ) THEN ! Write out layer fractions IF ( .NOT. WRITE3_DISTR( PLAYNAME( N ), 'LFRAC', WDATE, WTIME, & MY_NSRC( N ), DESID_LAYS, LFRAC ) ) THEN XMSG = 'Error writing "LFRAC" to file "' // & PLAYNAME( N )( 1:LEN_TRIM( PLAYNAME( N ) ) ) // '."' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT2 ) END IF IF ( .NOT. WRITE3_DISTR( PLAYNAME( N ), 'ZPLUME', WDATE, WTIME, & MY_NSRC( N ), DESID_LAYS, ZPLUM ) ) THEN XMSG = 'Error writing "ZPLUM" to file "' // & PLAYNAME( N )( 1:LEN_TRIM( PLAYNAME( N ) ) ) // '."' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT2 ) END IF WRITE( LOGDEV,94030 ) & 'Timestep written to', TRIM( PLAYNAME( N ) ), & 'for date and time', WDATE, WTIME END IF IF ( PT3DFRAC ) THEN DEALLOCATE( LFRAC ) DEALLOCATE( ZPLUM ) END IF C Write Out Diagnostic Info IF ( PT3DDIAG ) THEN ! store 3d point source emissions NTICS = NTICS + 1 VDEMIS_BUF = VDEMIS_BUF + VDEMIS_PT ! array assignmnt IF ( WRTIME ) THEN DIVFAC = 1.0 / FLOAT( NTICS ) WRITE( LOGDEV,94030 ) & 'Timestep written to', CTM_PT3D_DIAG, & 'for date and time', WDATE, WTIME VDEMIS_BUF = 0.0 ! array NTICS = 0 END IF END IF RETURN C------------------ FORMAT STATEMENTS ------------------------------ 93000 FORMAT( A / 1X, 'source', 3X, 'ht', 3X, 'lpbl', 1X, 'lbot', 1X, 'ltop', & 3X, 'vel', 4X, 'windspeed', 2X, 'StkTemp', 3X, 'AmbTemp' ) 93040 FORMAT( 'Sources with top of plume greater than layer', I3, //, & 'Src ID, ', A, ', H[m], ', 'V[m/s], ', 'Ts[K], ', & 'Ta[K], ', 'U[m/s], ', 'LPBL, ', 'LTOP' ) 93042 FORMAT( '( I6, ",", I6.6, ",", A', I2.2, ', ","', I2.2, '(A', & I2.2, ',", ") , F6.1, ", ", F6.2, ", ", F6.1, ", ",', & 'F5.1, ", ", F6.2, ", ", I3, ", ", I3 )' ) 93044 FORMAT( I6, ",", I6.6, F6.1, ", ", F6.2, ", ", F6.1, ", ", & F5.1, ", ", F6.2, ", ", I3, ", ", I3 ) 94030 FORMAT( /5X, 3( A, :, 1X ), I8, ":", I6.6 ) END SUBROUTINE GET_PT3D_EMIS C-------------- Subprograms used by GET_PT3D_EMIS ---------------------- C======================================================================= SUBROUTINE CALC_PLUME_HEIGHT( LOC_STKDATE, JDATE, JTIME, WRTIME, N ) ! Revision History. ! Aug 18, 17 B.Murphy: Separated plume height calculation from the ! point source allocation algorithm C----------------------------------------------------------------------- USE VGRD_DEFN, ONLY : VGTOP_GD USE STK_EMIS, ONLY : FIREVAR, FIREFLAG #ifdef mpas USE STK_PRMS, ONLY : MY_STRT_SRC, MY_END_SRC, MY_NSRC, SOURCE, my_nsrc_pressure, my_nsrc_mesh_index #else USE STK_PRMS, ONLY : MY_STRT_SRC, MY_END_SRC, MY_NSRC, SOURCE #endif USE PTMET, ONLY : DESID_LAYS, P_D => PTMET_DATA USE RUNTIME_VARS, ONLY : LOGDEV, IPVERT, PT3DFRAC, REP_LAYR, LOG_MESSAGE USE UTILIO_DEFN USE CENTRALIZED_IO_MODULE, only : interpolate_var #ifdef mpas USE coupler_module USE util_module, only : crlf #endif IMPLICIT NONE C Includes: INCLUDE SUBST_CONST ! physical and mathematical constants INTEGER, INTENT( IN ) :: LOC_STKDATE INTEGER, INTENT( IN ) :: JDATE, JTIME LOGICAL, INTENT( IN ) :: WRTIME INTEGER, INTENT( IN ) :: N ! Point Source File Number #ifdef mpas INTEGER, PARAMETER :: DEG = 3 #endif CHARACTER( 16 ) :: PNAME = 'CALC_PLUME_HEIGHT' ! procedure name CHARACTER( 16 ) :: VNAME CHARACTER( 8 ) :: CINT ! integer to character buffer for warning messages REAL, PARAMETER :: USTARMIN = 0.1 ! Min valid value for USTAR REAL, PARAMETER :: CONVPA = 1.0E-2 ! convert Pa to mb REAL, PARAMETER :: BTU2M4PS3 = 9.2752E-03 ! convert BTU/s to m**4/s**3 REAL, PARAMETER :: BFACPHR = BTU2M4PS3 / 3600.0 ! m**4/s**3 per hour ! assumes heat flux from fire pt src file is in BTU/hr REAL PSFC ! surface pressure [Pa] REAL USTMP ! temp storage for ustar [m/s] REAL HFLX ! converted heat flux REAL ZBOT ! plume bottom elevation [m] REAL ZTOP ! plume top elevation [m] REAL ZPLM ! plume centerline height above stack [m] REAL ZDIFF ! ZTOP - ZBOT REAL DDZ ! 1 / ZDIFF REAL TSTK ! temperature at top of stack [K] REAL WSTK ! wind speed at top of stack [m/s] REAL MV ! mininum LFRAC REAL BESIZE ! effective size of the fire buoyant core REAL SFRACT ! smoldering fraction size (1-BESIZE) INTEGER LBOT ! layer containing plume bottom INTEGER LPBL ! first L: ZF(L) above mixing layer - ONLY for REPORT INTEGER LSTK ! first L: ZF(L) > STKHT INTEGER :: S, L, SRC, M, STAT INTEGER :: LTOP, LACRESBURNED REAL :: DELZ, DELFH REAL, ALLOCATABLE, SAVE :: TV( : ) ! Virtual temperature REAL, ALLOCATABLE, SAVE :: TF( : ) ! Full-layer height temperatures real, allocatable :: tdata(:) LOGICAL :: DETERMINED REAL :: THV1 REAL :: THVK INTERFACE SUBROUTINE PREPLM( FIREFLG, DESID_LAYS, HMIX, HTS, PSFC, TS, DDZF, QV, & TA, UW, VW, ZH, ZF, PRES, LSTK, LPBL, TSTK, & WSTK, DTHDZ, WSPD ) LOGICAL, INTENT( IN ) :: FIREFLG INTEGER, INTENT( IN ) :: DESID_LAYS REAL, INTENT( IN ) :: HMIX REAL, INTENT( IN ) :: HTS REAL, INTENT( IN ) :: PSFC REAL, INTENT( IN ) :: TS REAL, INTENT( IN ) :: DDZF( : ) REAL, INTENT( IN ) :: QV ( : ) REAL, INTENT( IN ) :: TA ( : ) REAL, INTENT( IN ) :: UW ( : ) REAL, INTENT( IN ) :: VW ( : ) REAL, INTENT( IN ) :: ZH ( : ) REAL, INTENT( IN ) :: ZF ( : ) REAL, INTENT( IN ) :: PRES( 0: ) INTEGER, INTENT( OUT ) :: LSTK INTEGER, INTENT( OUT ) :: LPBL REAL, INTENT( OUT ) :: TSTK REAL, INTENT( OUT ) :: WSTK REAL, INTENT( OUT ) :: DTHDZ( : ) REAL, INTENT( OUT ) :: WSPD ( : ) END SUBROUTINE PREPLM SUBROUTINE PLMRIS( DESID_LAYS, LSTK, HFX, HMIX, & STKDM, STKHT, STKTK, STKVE, & TSTK, USTAR, DTHDZ, TA, WSPD, & ZF, ZH, ZSTK, WSTK, ZPLM ) INTEGER, INTENT( IN ) :: DESID_LAYS INTEGER, INTENT( IN ) :: LSTK REAL, INTENT( IN ) :: HFX REAL, INTENT( IN ) :: HMIX REAL, INTENT( IN ) :: STKDM REAL, INTENT( IN ) :: STKHT REAL, INTENT( IN ) :: STKTK REAL, INTENT( IN ) :: STKVE REAL, INTENT( IN ) :: TSTK REAL, INTENT( IN ) :: USTAR REAL, INTENT( IN ) :: DTHDZ( : ) REAL, INTENT( IN ) :: TA ( : ) REAL, INTENT( IN ) :: WSPD ( : ) REAL, INTENT( IN ) :: ZF ( 0: ) REAL, INTENT( IN ) :: ZH ( : ) REAL, INTENT( IN ) :: ZSTK ( : ) REAL, INTENT( INOUT ) :: WSTK REAL, INTENT( OUT ) :: ZPLM END SUBROUTINE PLMRIS SUBROUTINE FIRE_PLMRIS( DESID_LAYS, LSTK, HFX, HMIX, & BFLX, TSTK, USTAR, DTHDZ, & TA, WSPD, ZF, WSTK, ZPLM ) INTEGER, INTENT( IN ) :: DESID_LAYS INTEGER, INTENT( IN ) :: LSTK REAL, INTENT( IN ) :: HFX REAL, INTENT( IN ) :: HMIX REAL, INTENT( IN ) :: BFLX REAL, INTENT( IN ) :: TSTK REAL, INTENT( IN ) :: USTAR REAL, INTENT( IN ) :: DTHDZ( : ) REAL, INTENT( IN ) :: TA ( : ) REAL, INTENT( IN ) :: WSPD ( : ) REAL, INTENT( IN ) :: ZF ( 0: ) REAL, INTENT( INOUT):: WSTK REAL, INTENT( OUT ) :: ZPLM END SUBROUTINE FIRE_PLMRIS SUBROUTINE PLSPRD( DTHDZ, ZF, KZ, CEFSTK, PLTOP, PLBOT ) REAL, INTENT ( IN ) :: DTHDZ( : ) REAL, INTENT ( IN ) :: ZF( 0: ) INTEGER, INTENT ( IN ) :: KZ REAL, INTENT ( IN ) :: CEFSTK REAL, INTENT( OUT ) :: PLTOP REAL, INTENT( OUT ) :: PLBOT END SUBROUTINE PLSPRD END INTERFACE #ifdef mpas IF (.NOT. ALLOCATED(TV)) THEN ALLOCATE (TV(DESID_LAYS), & TF(DESID_LAYS), & STAT=STAT) END IF #endif ! If The Point File is for Fires, read and save the H-Flux Data in a ! Dedicated Variable, BFLUX LACRESBURNED = 0 IF ( FIREFLAG( N ) ) THEN #ifdef mpas allocate (tdata(MY_NSRC( N )), stat=stat) call interpolate_var (STKENAME(N), 'HFLUX', LOC_STKDATE, JTIME, tdata) DO S = 1, MY_NSRC( N ) FIREVAR(N)%ARRY(S) = tdata(s) END DO deallocate (tdata) #else call interpolate_var (STKENAME(N), 'HFLUX', LOC_STKDATE, JTIME, FIREVAR(N)%ARRY) #endif DO S = 1, MY_NSRC( N ) #ifdef mpas SRC = S #else SRC = SOURCE( N )%ARRY( S ) #endif BFLUX( N )%ARRY( S ) = FIREVAR( N )%ARRY( SRC ) * BTU2M4PS3 END DO !Initialize negative ACRES-BURNED counter END IF C Loop through sources and compute plume rise DO S = 1, MY_NSRC( N ) IF ( FIREFLAG( N ) ) THEN IF ( BFLUX( N )%ARRY( S ) .LE. 0.0 ) THEN TFRAC( 1,S ) = 1.0 TFRAC( 2:DESID_LAYS,S ) = 0.0 LTOP = 1 GO TO 201 END IF END IF P_D( N )%ZZF( 0 ) = 0.0 P_D( N )%ZZF( 1:DESID_LAYS ) = P_D( N )%ZF( 1:DESID_LAYS,S ) ! array of layers C Get pressures: Use SIGMA values and surface pres. p=sigma*(psfc-ptop)+ptop #ifdef mpas PSFC = my_nsrc_pressure(1,s,n) P_D( N )%PRESF( 0 ) = 0.0 P_D( N )%PRESF( 1:DESID_LAYS ) = my_nsrc_pressure(1:DESID_LAYS,s,n) IF ( FIREFLAG( N ) ) THEN LSTK = 1 ELSE P_D( N )%ZSTK( :,S ) = P_D( N )%ZF( :,S ) - STK_HT( N )%ARRY(S) L = 1 DETERMINED = .FALSE. DO WHILE ((.NOT. DETERMINED) .AND. (L .LE. DESID_LAYS)) IF ( P_D( N )%ZF( L,S ) .GT. STK_HT( N )%ARRY( S )) THEN LSTK = L DETERMINED = .TRUE. ELSE L = L + 1 END IF END DO END IF P_D( N )%WSPD = g3ddata(my_nsrc_mesh_index(s, n),1,:,wspd_ind) P_D( N )%DDZF( 1,S ) = 1.0 / P_D( N )%ZF( 1,S ) DO L = 2, DESID_LAYS P_D( N )%DDZF( L,S ) = 1.0 / ( P_D( N )%ZF( L,S ) - P_D( N )%ZF( L-1,S ) ) END DO IF ( FIREFLAG( N ) ) THEN TSTK = g2ddata(my_nsrc_mesh_index(s, n),1,temp2_ind) WSTK = P_D( N )%WSPD (1) ELSE m = MAX( 1, LSTK - DEG - 1 ) TSTK = g3ddata(my_nsrc_mesh_index(s, n),1,m,temp_ind) WSTK = P_D( N )%WSPD (m) END IF DO L = 1, DESID_LAYS TV( L ) = P_D( N )%TA( L,S ) * ( 1.0 + 0.622 * & ( g3ddata(my_nsrc_mesh_index(s, n),1,L,qv_ind) & / ( 1.0 + g3ddata(my_nsrc_mesh_index(s, n),1,L,qv_ind) ) ) ) END DO DO L = 1, DESID_LAYS - 1 DELZ = g3ddata(my_nsrc_mesh_index(s, n),1,L+1,zh_ind) - g3ddata(my_nsrc_mesh_index(s, n),1,L,zh_ind) DELFH = g3ddata(my_nsrc_mesh_index(s, n),1,L,zf_ind) - g3ddata(my_nsrc_mesh_index(s, n),1,L,zh_ind) TF( L ) = TV( L ) + ( TV( L+1 ) - TV( L ) ) * DELFH / DELZ END DO L = DESID_LAYS DELZ = g3ddata(my_nsrc_mesh_index(s, n),1,L,zh_ind) - g3ddata(my_nsrc_mesh_index(s, n),1,L-1,zh_ind) DELFH = g3ddata(my_nsrc_mesh_index(s, n),1,L,zf_ind) - g3ddata(my_nsrc_mesh_index(s, n),1,L,zh_ind) TF( L ) = TV( L ) + ( TV( L ) - TV( L-1 ) ) * DELFH / DELZ THV1 = TF( 1 ) * ( 1000.0 / P_D( N )%PRESF( 1 ) ) ** 0.286 DO L = 2, DESID_LAYS THVK = TF( L ) * ( 1000.0 / P_D( N )%PRESF( L ) ) ** 0.286 P_D( N )%DTHDZ( L ) = P_D( N )%DDZF( L,S ) * ( THVK - THV1 ) THV1 = THVK END DO P_D( N )%DTHDZ( 1 ) = P_D( N )%DTHDZ( 2 ) #else PSFC = P_D( N )%PRSFC( S ) DO L = 0, DESID_LAYS P_D( N )%PRESF( L ) = ( VGLVSXG( L ) * ( PSFC - VGTOP_GD ) & + VGTOP_GD ) * CONVPA END DO C Set surface pressure (convert to mb from Pa) PSFC = CONVPA * PSFC C Compute derived met vars needed before layer assignments CALL PREPLM( FIREFLAG( N ), DESID_LAYS, & P_D( N )%HMIX( S ), STK_HT( N )%ARRY( S ), PSFC, & P_D( N )%TSFC( S ), P_D( N )%DDZF( :,S ), & P_D( N )%QV( :,S ), P_D( N )%TA( :,S ), & P_D( N )%UWIND( :,S ), P_D( N )%VWIND( :,S ), & P_D( N )%ZH( :,S ), P_D( N )%ZF( :,S ), & P_D( N )%PRESF, LSTK, LPBL, TSTK, WSTK, & P_D( N )%DTHDZ, P_D( N )%WSPD ) #endif C Trap USTAR at a minimum realistic value USTMP = MAX( P_D( N )%USTAR( S ), USTARMIN ) C Convert heat flux (watts/m2 to m K /s ) HFLX = P_D( N )%HFX( S ) / ( CPD * P_D( N )%DENS( 1,S ) ) IF ( .NOT. FIREFLAG( N ) ) THEN CALL PLMRIS( DESID_LAYS, LSTK, HFLX, P_D( N )%HMIX( S ), & STK_DM( N )%ARRY( S ), STK_HT( N )%ARRY( S ), & STK_TK( N )%ARRY( S ), STK_VEL( N )%ARRY( S ), & TSTK, USTMP, & P_D( N )%DTHDZ, P_D( N )%TA( :,S ), & P_D( N )%WSPD, P_D( N )%ZZF, & P_D( N )%ZH( :,S ), P_D( N )%ZSTK( :,S ), & WSTK, ZPLM ) ELSE CALL FIRE_PLMRIS( DESID_LAYS, LSTK, HFLX, P_D( N )%HMIX( S ), & BFLUX( N )%ARRY( S ), & TSTK, USTMP, & P_D( N )%DTHDZ, P_D( N )%TA( :,S ), & P_D( N )%WSPD, P_D( N )%ZZF, & WSTK, ZPLM ) END IF #ifdef Verbose1 if ( zplm .gt. mxzplm ) mxzplm = zplm #endif C Determine the bottom and top heights of the plume. IF ( IPVERT .EQ. 0 ) THEN C Default Turner approach. Plume thickness = amount of plume rise C Plume rise DH = ZPLM minus the stack height STKHT IF ( FIREFLAG( N ) ) THEN ZTOP = 1.5 * ZPLM ZBOT = 0.5 * ZPLM ELSE ZTOP = STK_HT( N )%ARRY( S ) & + 1.5 * ( ZPLM - STK_HT( N )%ARRY( S ) ) ZBOT = STK_HT( N )%ARRY( S ) & + 0.5 * ( ZPLM - STK_HT( N )%ARRY( S ) ) END IF ELSE C Alternative method to compute plume top/bot heights CALL PLSPRD( P_D( N )%DTHDZ, P_D( N )%ZZF, DESID_LAYS, & ZPLM, ZTOP, ZBOT ) END IF C Set up for computing plume fractions, assuming uniform distribution in pressure C (~mass concentration -- minor hydrostatic assumption) from bottom to top. IF ( ZTOP .LT. STK_HT( N )%ARRY( S ) ) THEN WRITE( CINT,'( I8 )' ) S WRITE( XMSG,94010 ) 'ERROR: Top of plume is less than ' & // 'top of stack for source:' // CINT CALL M3MESG( XMSG ) WRITE( LOGDEV,* ) ' Zbot: ', ZBOT, ' Ztop: ', ZTOP WRITE( LOGDEV,* ) ' Stack Top: ', STK_HT( N )%ARRY( S ), & ' Plume Top: ', ZPLM CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT2 ) END IF C Allocate plume to layers (compute layer plume fractions) ! CALL POSTPLM( DESID_LAYS, ZBOT, ZTOP, PRESF, ZZF, TA( 1,S ), ZH( 1,S ), ! & LTOP, TFRAC ) C Compute LBOT, LTOP such that C ZZF( LBOT-1 ) <= ZBOT < ZZF( LBOT ) and C ZZF( LTOP-1 ) <= ZTOP < ZZF( LTOP ) DO L = 1, DESID_LAYS - 1 IF ( ZBOT .LE. P_D( N )%ZZF( L ) ) THEN LBOT = L GO TO 122 ELSE TFRAC( L,S ) = 0.0 ! fractions below plume END IF END DO LBOT = DESID_LAYS ! fallback 122 CONTINUE ! loop exit: bottom found at LBOT IF ( ZTOP .LE. P_D( N )%ZZF( LBOT ) ) THEN ! plume in this layer TFRAC( LBOT,S ) = 1.0 LTOP = LBOT DO L = LBOT + 1, DESID_LAYS ! fractions above plume TFRAC( L,S ) = 0.0 END DO ELSE IF ( LBOT .EQ. DESID_LAYS ) THEN ! plume above top layer TFRAC( LBOT,S ) = 1.0 DO L = 1, DESID_LAYS - 1 ! fractions below plume TFRAC( L,S ) = 0.0 END DO ELSE ! plume crosses layers DO L = LBOT + 1, DESID_LAYS IF ( ZTOP .LE. P_D( N )%ZZF( L ) ) THEN LTOP = L GO TO 126 END IF END DO LTOP = DESID_LAYS ! fallback 126 CONTINUE ZDIFF = ZTOP - ZBOT IF ( ZDIFF .GT. 0.0 ) THEN DDZ = 1.0 / ZDIFF TFRAC( LBOT,S ) = DDZ * ( P_D( N )%ZZF( LBOT ) - ZBOT ) TFRAC( LTOP,S ) = DDZ * ( ZTOP - P_D( N )%ZZF( LTOP-1 ) ) ELSE ! ZDIFF .le. 0 WRITE( CINT,'( I8 )' ) S WRITE( XMSG,94020 ) & 'Infinitely small plume created for source:,' & // CINT // CRLF() // BLANK10 & // 'All emissions put in first layer.' CALL M3WARN( PNAME, JDATE, JTIME, XMSG ) LBOT = 1; LTOP = 1 TFRAC( LBOT,S ) = 1.0 END IF DO L = LBOT + 1, LTOP - 1 ! layers in plume TFRAC( L,S ) = DDZ * ( P_D( N )%ZZF( L ) - P_D( N )%ZZF( L-1 ) ) END DO DO L = LTOP + 1, DESID_LAYS ! fractions above plume TFRAC( L,S ) = 0.0 END DO END IF C If layer fractions are negative, put in the first layer MV = MINVAL( TFRAC( 1:DESID_LAYS,S ) ) IF ( MV .LT. 0.0 ) THEN WRITE( CINT,'( I8 )' ) S WRITE( XMSG,94010 ) 'WARNING: One or more negative plume ' & // 'fractions found for source:' // CINT & // CRLF() // BLANK10 // 'Plume reset to ' & // 'put all emissions in surface layer.' CALL M3MESG( XMSG ) TFRAC( 1,S ) = 1.0 TFRAC( 2:DESID_LAYS,S ) = 0.0 END IF IF ( FIREFLAG( N ) ) THEN C If source is a fire, adjust for fire smoldering effects (include fractions below LBOT) C calculate smoldering fraction: IF ( ACRES( N )%ARRY ( S ) .GT. 0.0 ) THEN BESIZE = 0.0703 * LOG( ACRES( N )%ARRY( S ) ) + 0.3 BESIZE = MIN( BESIZE, 1.0 ) SFRACT = 1.0 - BESIZE ELSE SFRACT = 1.0 LACRESBURNED = LACRESBURNED + 1 END IF ZDIFF = ZBOT - P_D( N )%ZZF( 0 ) ! Note: ZDIFF redefined IF ( ZDIFF .GT. 0.0 ) THEN DDZ = 1.0 / ZDIFF DO L = 1, LBOT - 1 TFRAC( L,S ) = DDZ * ( P_D( N )%ZZF( L ) - P_D( N )%ZZF( L-1 ) ) & * SFRACT END DO TFRAC( LBOT,S ) = TFRAC( LBOT,S ) & + ( DDZ * ( ZBOT - P_D( N )%ZZF( LBOT-1 ) ) & - TFRAC( LBOT,S ) ) * SFRACT ELSE ! LBOT = 1 ! TFRAC( 1:LBOT-1 ) = 0.0 TFRAC( LBOT,S ) = TFRAC( LBOT,S ) * ( 1.0 - SFRACT ) END IF DO L = LBOT + 1, LTOP TFRAC( L,S ) = TFRAC( L,S ) * ( 1.0 - SFRACT ) END DO END IF 201 CONTINUE IF ( PT3DFRAC ) THEN ! Store layer fractions LFRAC( S,1:DESID_LAYS ) = TFRAC( 1:DESID_LAYS,S ) ! array ZPLUM( S,1 ) = ZPLM END IF #ifndef mpas C Possible report to REPRTLAY IF ( LTOP .GE. REP_LAYR .AND. RDEV( N ) .GT. 0 .AND. WRTIME ) THEN WRITE( RDEV( N ),93048 ) S, STK_HT( N )%ARRY( S ), LPBL, & LBOT, LTOP, STK_VEL( N )%ARRY( S ), WSTK, & STK_TK( N )%ARRY( S ), TSTK END IF #endif END DO ! end loop on sources S ! Print warning if any ACRES-BURNED values were negative IF ( LACRESBURNED .GT. 0 ) THEN write( XMSG,'(A,I8,A,I8,A)') "Warning: the value of ACRESBURNED for ",LACRESBURNED, " fire sources on stream ", & N, " is negative. CMAQ will set the smodlering fraction equal to 1.0 for these cases." call log_message( logdev, xmsg ) END IF 94010 FORMAT( 12( A, :, I8, :, 1X ) ) 94020 FORMAT( 10( A, :, I7, :, 1X ) ) 93048 FORMAT( I6, F8.2, 3I4, 4F10.2 ) END SUBROUTINE CALC_PLUME_HEIGHT C----------------------------------------------------------------------- #ifndef mpas SUBROUTINE RETRIEVE_IOAPI_HEADER( FNAME, JDATE, JTIME ) USE UTILIO_DEFN, ONLY : DESC3, XSTAT2 IMPLICIT NONE CHARACTER( * ) :: FNAME INTEGER :: JDATE, JTIME CHARACTER( 16 ) :: PNAME = 'RETRVE_IOAPI_HDR' ! procedure name CHARACTER( 120 ) :: XMSG = ' ' IF ( .NOT. DESC3( FNAME ) ) THEN XMSG = 'Could not get description of file "' // & FNAME( 1:LEN_TRIM( FNAME ) ) // '"' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT2 ) END IF RETURN END SUBROUTINE RETRIEVE_IOAPI_HEADER #endif C----------------------------------------------------------------------- END MODULE PT3D_DEFN ================================================ FILE: CCTM/src/emis/emis/PTBILIN.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: MODULE PTBILIN C----------------------------------------------------------------------- C Function: 3d point source bi-linear interpolation data C Revision History: C 20 Nov 2007 J.Young: initial implementation C 13 Apr 2010 D. Wong: parallel bug fix - in subroutine ungridb2 C calculations use the lower left corner of the C original domain C 27 Jul 2011 David Wong: - fixed the description of XBND C 12 Aug 2015 David Wong: - Based on the condition of MY_NSRC ( > 0 ) C to determine execution of code section C 1 Feb 19 David Wong: removed all MY_N clauses C 5 Aub 19 David Wong: removed BILIN_DATA C----------------------------------------------------------------------- USE RUNTIME_VARS IMPLICIT NONE C Arrays which record .true. if local processor contains an exterior boundary REAL( 8 ) :: METCXORIG ! cross point grid X-coord origin of met grid REAL( 8 ) :: METCYORIG ! cross point grid Y-coord origin of met grid REAL( 8 ) :: XCELLCG ! cross point grid X-coordinate cell dimension REAL( 8 ) :: YCELLCG ! cross point grid Y-coordinate cell dimension REAL( 8 ) :: METDXORIG ! dot point grid X-coord origin of met grid REAL( 8 ) :: METDYORIG ! dot point grid Y-coord origin of met grid REAL( 8 ) :: XCELLDG ! dot point grid X-coordinate cell dimension REAL( 8 ) :: YCELLDG ! dot point grid Y-coordinate cell dimension REAL( 8 ) :: MY_CXORIG ! local processor cross point X-coord origin REAL( 8 ) :: MY_CYORIG ! local processor cross point Y-coord origin REAL( 8 ) :: MY_DXORIG ! local processor dot point X-coord origin REAL( 8 ) :: MY_DYORIG ! local processor dot point Y-coord origin C Allocatable cross- OR dot-point meteorology input buffers END MODULE PTBILIN ================================================ FILE: CCTM/src/emis/emis/PTMET.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: MODULE PTMET C----------------------------------------------------------------------- C Function: 3d point source emissions met data C Revision History: C 20 Nov 2007 J.Young: initial implementation C 16 Feb 2011 S.Roselle: replaced I/O API include files with UTILIO_DEFN C 27 Jul 2011 D.Wong: removed calculation which extends SRTCOL and STRTROW C to the west and south direction in subroutines: C READMC2, READMC3, and READMD3 C 12 Aug 2015 D.Wong: - Used assumed shape array declaration and declared C associated subroutines in INTERFACE block C - Replaced BMATVEC with BMATVECN which will call C with a 1d or 2d argument subroutine by F90 C poly-morphism feature C - Based on the condition of MY_NSRC ( > 0 or not) to C determine execution of certain section of code or not C - fixed a bug of incorrect assignment: C PTMET_DATA%LEN1 = DESID_LAYS, PTMET_DATA%LEN2 = MSRC C 01 Feb 2019 D.Wong: - Implemented centralized I/O approach and removed C ZSTATIC implementation C 05 Aug 2019 D.Wong: - Used met information in the cell where a point source resides C rather than using bi-linear interpolation (call BMATVECN) to C obtain met information for that point source C 06 Aug 2019 D.Wong: - For two-way model, use UWIND/VWIND (wind U/V component on the C mass point and in offline CMAQ model, use average value of C UWINDC/VWINDC to approximate UWIND/VWIND. Hence no longer C need UWINDC_AVAIL/VWINDC_AVAIL C----------------------------------------------------------------------- USE RUNTIME_VARS USE UDTYPES, ONLY: PTMET_TYPE USE DESID_VARS, ONLY : DESID_LAYS IMPLICIT NONE c TYPE :: PTMET_TYPE c INTEGER :: LEN1, LEN2 C Allocatable per-source meteorology variables c REAL, POINTER :: HFX( : ) ! sensible heat flux [watts/m**2] c REAL, POINTER :: HMIX( : ) ! mixing height [m] c REAL, POINTER :: TSFC( : ) ! surface temperature [degK] c REAL, POINTER :: USTAR( : ) ! friction velocity [m/s] c REAL, POINTER :: PRSFC( : ) ! surface pressure [Pa] C Allocatable temporary per-layer variables from 1:DESID_LAYS c REAL, POINTER :: WSPD( : ) ! wind speed [m/s] c REAL, POINTER :: DTHDZ( : ) ! virtual pot temp gradient [degK/m] C Allocatable temporary per-layer variables from 0:DESID_LAYS c REAL, POINTER :: PRESF( : ) ! pressure at full-levels c REAL, POINTER :: ZZF( : ) ! per src elevn at full-levels c Allocatable per-source and per layer meteorology variables. C Dimensioned by layers, then sources c! REAL, POINTER :: DDZH ( :,: ) ! 1/( ZH(L) - ZH(L-1) ) c REAL, POINTER :: DDZF ( :,: ) ! 1/( ZF(L) - ZF(L-1) ) c REAL, POINTER :: PRES ( :,: ) ! pressure [Pa] c REAL, POINTER :: DENS ( :,: ) ! air density [kg/m**3] c REAL, POINTER :: QV ( :,: ) ! moisture mixing ratio [kg/kg] c REAL, POINTER :: TA ( :,: ) ! temperature [degK] c REAL, POINTER :: UWIND( :,: ) ! x-component wind speed [m/s] c REAL, POINTER :: VWIND( :,: ) ! y-component wind speed [m/s] c REAL, POINTER :: ZF ( :,: ) ! full layer height [m] c REAL, POINTER :: ZH ( :,: ) ! mid layer height [m] c REAL, POINTER :: ZSTK ( :,: ) ! ZF( L,S ) - STKHT(S) [m] c END TYPE PTMET_TYPE TYPE( PTMET_TYPE ), ALLOCATABLE, SAVE :: PTMET_DATA( : ) C cross-point surface met file name CHARACTER( 16 ), SAVE :: MC2NAME C cross-point layered met file name CHARACTER( 16 ), SAVE :: MC3NAME C dot-point layered met file name CHARACTER( 16 ), SAVE :: MD3NAME C----------------------------------------------------------------------- CONTAINS FUNCTION PTMET_INIT ( ) RESULT ( SUCCESS ) USE UTILIO_DEFN USE STK_PRMS, ONLY: MY_NSRC IMPLICIT NONE LOGICAL :: SUCCESS INTEGER N, MSRC, IOS CHARACTER( 16 ) :: PNAME = 'PTMET_INIT' ! procedure name SUCCESS = .TRUE. ALLOCATE( PTMET_DATA( NPTGRPS ), STAT=IOS ) CALL CHECKMEM( IOS, 'PTMET_DATA', PNAME ) DO N = 1, NPTGRPS MSRC = MY_NSRC( N ) PTMET_DATA(N)%LEN1 = DESID_LAYS; PTMET_DATA(N)%LEN2 = MSRC IF ( MY_NSRC( N ) .GT. 0 ) THEN C Allocate per-source arrays ALLOCATE( PTMET_DATA( N )%HFX ( MSRC ), STAT=IOS ) CALL CHECKMEM( IOS, 'HFX', PNAME ) ALLOCATE( PTMET_DATA( N )%HMIX ( MSRC ), STAT=IOS ) CALL CHECKMEM( IOS, 'HMIX', PNAME ) ALLOCATE( PTMET_DATA( N )%TSFC ( MSRC ), STAT=IOS ) CALL CHECKMEM( IOS, 'TSFC', PNAME ) ALLOCATE( PTMET_DATA( N )%USTAR( MSRC ), STAT=IOS ) CALL CHECKMEM( IOS, 'USTAR', PNAME ) ALLOCATE( PTMET_DATA( N )%PRSFC( MSRC ), STAT=IOS ) CALL CHECKMEM( IOS, 'PRSFC', PNAME ) C Allocate per-source and per-layer arrays ALLOCATE( PTMET_DATA( N )%DDZF ( DESID_LAYS,MSRC ), STAT=IOS ) CALL CHECKMEM( IOS, 'DDZF', PNAME ) ALLOCATE( PTMET_DATA( N )%PRES ( DESID_LAYS,MSRC ), STAT=IOS ) CALL CHECKMEM( IOS, 'PRES', PNAME ) ALLOCATE( PTMET_DATA( N )%DENS ( DESID_LAYS,MSRC ), STAT=IOS ) CALL CHECKMEM( IOS, 'DENS', PNAME ) ALLOCATE( PTMET_DATA( N )%QV ( DESID_LAYS,MSRC ), STAT=IOS ) CALL CHECKMEM( IOS, 'QV', PNAME ) ALLOCATE( PTMET_DATA( N )%TA ( DESID_LAYS,MSRC ), STAT=IOS ) CALL CHECKMEM( IOS, 'TA', PNAME ) ALLOCATE( PTMET_DATA( N )%UWIND( DESID_LAYS,MSRC ), STAT=IOS ) CALL CHECKMEM( IOS, 'UWIND', PNAME ) ALLOCATE( PTMET_DATA( N )%VWIND( DESID_LAYS,MSRC ), STAT=IOS ) CALL CHECKMEM( IOS, 'VWIND', PNAME ) ALLOCATE( PTMET_DATA( N )%ZF ( DESID_LAYS,MSRC ), STAT=IOS ) CALL CHECKMEM( IOS, 'ZF', PNAME ) ALLOCATE( PTMET_DATA( N )%ZH ( DESID_LAYS,MSRC ), STAT=IOS ) CALL CHECKMEM( IOS, 'ZH', PNAME ) ALLOCATE( PTMET_DATA( N )%ZSTK ( DESID_LAYS,MSRC ), STAT=IOS ) CALL CHECKMEM( IOS, 'ZSTK', PNAME ) C Allocate per-layer arrays from 1:DESID_LAYS ALLOCATE( PTMET_DATA( N )%WSPD ( DESID_LAYS ), STAT=IOS ) CALL CHECKMEM( IOS, 'WSPD', PNAME ) ALLOCATE( PTMET_DATA( N )%DTHDZ( DESID_LAYS ), STAT=IOS ) CALL CHECKMEM( IOS, 'DTHDZ', PNAME ) C Allocate per-layer arrays from 0:DESID_LAYS ALLOCATE( PTMET_DATA( N )%PRESF( 0:DESID_LAYS ), STAT=IOS ) CALL CHECKMEM( IOS, 'PRESF', PNAME ) ALLOCATE( PTMET_DATA( N )%ZZF ( 0:DESID_LAYS ), STAT=IOS ) CALL CHECKMEM( IOS, 'ZZF', PNAME ) END IF ! (MY_NSRC( N ) > 0) END DO END FUNCTION PTMET_INIT C----------------------------------------------------------------------- #ifdef mpas SUBROUTINE PTMET_CONVT_MPAS ( N ) USE STK_PRMS, ONLY: MY_NSRC, SOURCE, my_nsrc_mesh_index USE stack_group_data_module, ONLY: STKHT USE coupler_module IMPLICIT NONE integer, intent(in) :: n INTEGER S IF ( MY_NSRC( N ) .GT. 0 ) THEN DO S = 1, MY_NSRC( N ) PTMET_DATA( N )%USTAR( S ) = g2ddata(my_nsrc_mesh_index(s, n),1,ustar_ind) PTMET_DATA( N )%HFX( S ) = g2ddata(my_nsrc_mesh_index(s, n),1,hfx_ind) PTMET_DATA( N )%HMIX( S ) = g2ddata(my_nsrc_mesh_index(s, n),1,pbl_ind) PTMET_DATA( N )%TA( :,S ) = g3ddata(my_nsrc_mesh_index(s, n),1,:,temp_ind) PTMET_DATA( N )%ZH( :,S ) = g3ddata(my_nsrc_mesh_index(s, n),1,:,zh_ind) PTMET_DATA( N )%ZF( :,S ) = g3ddata(my_nsrc_mesh_index(s, n),1,:,zf_ind) PTMET_DATA( N )%DENS( :,S ) = g3ddata(my_nsrc_mesh_index(s, n),1,:,dens_ind) END DO END IF END SUBROUTINE PTMET_CONVT_MPAS #else C----------------------------------------------------------------------- SUBROUTINE PTMET_CONVT( JDATE, JTIME, N ) USE STK_PRMS, ONLY: MY_NSRC, SOURCE, MY_STKCOL, MY_STKROW USE STACK_GROUP_DATA_MODULE, ONLY: STKHT USE CENTRALIZED_IO_MODULE, ONLY : INTERPOLATE_VAR USE HGRD_DEFN, ONLY : NCOLS, NROWS USE VGRD_DEFN, ONLY : NLAYS IMPLICIT NONE INTEGER, INTENT( IN ) :: JDATE, JTIME INTEGER, INTENT( IN ) :: N ! Point Source File Number INTEGER :: L, MSRC, S CHARACTER( 16 ) :: PNAME = 'PTMET_CONVT' ! PROCEDURE NAME INTEGER :: MYC, MYR, STAT REAL, ALLOCATABLE, SAVE:: LOC_ZH(:,:,:), & LOC_ZF(:,:,:), & LOC_HFX(:,:), & LOC_PBL(:,:), & LOC_TEMP2(:,:), & LOC_USTAR(:,:), & LOC_PRSFC(:,:), & LOC_TA(:,:,:), & LOC_QV(:,:,:), & LOC_PRES(:,:,:), & LOC_DENS(:,:,:), & LOC_UWIND(:,:,:), & LOC_VWIND(:,:,:) LOGICAL, SAVE :: INITIALIZE = .TRUE. INTERFACE SUBROUTINE DELTA_ZS( DESID_LAYS, MY_NSRC, SRC_MAP, STKHT, ZF, ZSTK, DDZF ) INTEGER, INTENT( IN ) :: DESID_LAYS, MY_NSRC INTEGER, INTENT( IN ) :: SRC_MAP( : ) REAL, INTENT( IN ) :: STKHT( : ) REAL, INTENT( IN ) :: ZF ( :,: ) REAL, INTENT( OUT ) :: ZSTK( :,: ) REAL, INTENT( OUT ) :: DDZF( :,: ) END SUBROUTINE DELTA_ZS END INTERFACE C----------------------------------------------------------------------- IF ( INITIALIZE ) THEN ALLOCATE ( LOC_ZH(NCOLS,NROWS,NLAYS), & LOC_ZF(NCOLS,NROWS,NLAYS), & LOC_HFX(NCOLS,NROWS), & LOC_PBL(NCOLS,NROWS), & LOC_TEMP2(NCOLS,NROWS), & LOC_USTAR(NCOLS,NROWS), & LOC_PRSFC(NCOLS,NROWS), & LOC_TA(NCOLS,NROWS,NLAYS), & LOC_QV(NCOLS,NROWS,NLAYS), & LOC_PRES(NCOLS,NROWS,NLAYS), & LOC_DENS(NCOLS,NROWS,NLAYS), & LOC_UWIND(NCOLS+1,NROWS+1,NLAYS), & LOC_VWIND(NCOLS+1,NROWS+1,NLAYS), & STAT=STAT) INITIALIZE = .FALSE. END IF CALL INTERPOLATE_VAR ('ZH', JDATE, JTIME, LOC_ZH) CALL INTERPOLATE_VAR ('ZF', JDATE, JTIME, LOC_ZF) CALL INTERPOLATE_VAR ('HFX', JDATE, JTIME, LOC_HFX) CALL INTERPOLATE_VAR ('PBL', JDATE, JTIME, LOC_PBL) CALL INTERPOLATE_VAR ('TEMP2', JDATE, JTIME, LOC_TEMP2) CALL INTERPOLATE_VAR ('USTAR', JDATE, JTIME, LOC_USTAR) CALL INTERPOLATE_VAR ('PRSFC', JDATE, JTIME, LOC_PRSFC) CALL INTERPOLATE_VAR ('TA', JDATE, JTIME, LOC_TA) CALL INTERPOLATE_VAR ('QV', JDATE, JTIME, LOC_QV) CALL INTERPOLATE_VAR ('PRES', JDATE, JTIME, LOC_PRES) CALL INTERPOLATE_VAR ('DENS', JDATE, JTIME, LOC_DENS) #ifdef twoway CALL INTERPOLATE_VAR ('UWIND', JDATE, JTIME, LOC_UWIND) CALL INTERPOLATE_VAR ('VWIND', JDATE, JTIME, LOC_VWIND) #else CALL INTERPOLATE_VAR ('UWINDC', JDATE, JTIME, LOC_UWIND) CALL INTERPOLATE_VAR ('VWINDC', JDATE, JTIME, LOC_VWIND) #endif !DO N = 1, NPTGRPS MSRC = MY_NSRC( N ) DO S = 1, MY_NSRC (N ) MYC = MY_STKCOL( N )%ARRY( S ) MYR = MY_STKROW( N )%ARRY( S ) PTMET_DATA( N )%HFX(S) = LOC_HFX(MYC, MYR) PTMET_DATA( N )%HMIX(S) = LOC_PBL(MYC, MYR) PTMET_DATA( N )%TSFC(S) = LOC_TEMP2(MYC, MYR) PTMET_DATA( N )%USTAR(S) = LOC_USTAR(MYC, MYR) PTMET_DATA( N )%PRSFC(S) = LOC_PRSFC(MYC, MYR) DO L = 1, NLAYS PTMET_DATA( N )%ZH(L,S) = LOC_ZH(MYC, MYR, L) PTMET_DATA( N )%ZF(L,S) = LOC_ZF(MYC, MYR, L) PTMET_DATA( N )%TA(L,S) = LOC_TA(MYC, MYR, L) PTMET_DATA( N )%QV(L,S) = LOC_QV(MYC, MYR, L) PTMET_DATA( N )%PRES(L,S) = LOC_PRES(MYC, MYR, L) PTMET_DATA( N )%DENS(L,S) = LOC_DENS(MYC, MYR, L) #ifdef twoway PTMET_DATA( N )%UWIND(:,S) = LOC_UWIND(MYC, MYR, L) PTMET_DATA( N )%VWIND(:,S) = LOC_VWIND(MYC, MYR, L) #else PTMET_DATA( N )%UWIND(L,S) = 0.5*( LOC_UWIND(MYC, MYR, L) & + LOC_UWIND(MYC+1, MYR, L) ) PTMET_DATA( N )%VWIND(L,S) = 0.5*( LOC_VWIND(MYC, MYR, L) & + LOC_VWIND(MYC, MYR+1, L) ) #endif END DO END DO IF ( MY_NSRC( N ) .GT. 0 ) THEN ! Compute ZSTK, DDZF CALL DELTA_ZS( DESID_LAYS, MSRC, & SOURCE( N )%ARRY, STKHT( N )%ARRY, & PTMET_DATA( N )%ZF, & PTMET_DATA( N )%ZSTK, & PTMET_DATA( N )%DDZF ) END IF ! MY_NSRC( N ) > 0 !END DO ! NPTGRPS END SUBROUTINE PTMET_CONVT #endif C----------------------------------------------------------------------- END MODULE PTMET ================================================ FILE: CCTM/src/emis/emis/SSEMIS.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: MODULE SSEMIS C----------------------------------------------------------------------- C Description: C Revision History: C 04 Apr 11 S.Howard: generalization to accomodate different sea-salt speciation C in aero5 and aero6 C 07 Apr 11 J.Young: additional mods C 07 Nov 14 J.Bash: Updated for the ASX_DATA_MOD shared data module. C 12 Aug 15 D.Wong: Replaced MYPE with IO_PE_INCLUSIVE for parallel I/O implementation C 09 Dec 15 D.Wong: Open CTM_SSEMIS_1 file in a IO_PE_INCLUSIVE conditional block C 24 Mar 16 G.Sarwar: updated to calculate NACL emissions (needed for BR2 emissions) C 16 Aug 18 G. Sarwar: Removed NACL C 1 Feb 19 David Wong: removed all MY_N clauses C----------------------------------------------------------------------- USE RUNTIME_VARS USE HGRD_DEFN USE AERO_DATA, ONLY: N_MODE USE DESID_VARS IMPLICIT NONE C Number of chemical species in fresh sea-salt aerosol INTEGER :: NSSSPC C Sea-Salt Emissions Rates PUBLIC NSSSPC, SSEMIS_INIT, GET_SSEMIS, SEA_FACTNUM, SEA_FACTSRF, SSOUTM PRIVATE C Position of H2O in sea-salt emission arrays INTEGER :: KH2O C Variables for the sea-salt diagnostic file INTEGER :: NSSDIAG ! number of species in sea-salt ! diagnostic emission file Real, ALLOCATABLE, SAVE :: SSOUTM( :,:,: ) ! SeaSpray Mass Emiss Rate [ug/m3/s] Real, ALLOCATABLE, SAVE :: SSOUTN( :,:,: ) ! SeaSpray Number Emiss Rate [1/m3/s] Real, ALLOCATABLE, SAVE :: SSOUTS( :,:,: ) ! SeaSpray Surface Area Emiss Rate [m2/m3/s] REAL, ALLOCATABLE :: SSOUTD( : ) ! emission rates REAL, ALLOCATABLE, SAVE :: SSBF( :,:,: ) ! seasalt emiss accumulator REAL, ALLOCATABLE, SAVE :: WRSS( :,: ) ! seasalt emiss write buffer REAL, ALLOCATABLE, SAVE :: SEA_FACTNUM( :,:,: ) ! Array for scaling Number Emissions REAL, ALLOCATABLE, SAVE :: SEA_FACTSRF( :,:,: ) ! Array for scaling Surface Area Emissions C Species names in the speciated sea-salt-emissions CHARACTER( 16 ), ALLOCATABLE :: WRSS_SPC( : ) ! species names C Lognormal parameters fit to the open-ocean flux function REAL, SAVE :: DGNJ( 136 ) ! geom mean diam of accum-mode [um] REAL, SAVE :: DGNK( 136 ) ! geom mean diam of coarse-mode [um] REAL, SAVE :: SIGJ( 136 ) ! geom std deviation of accum-mode flux REAL, SAVE :: SIGK( 136 ) ! geom std deviation of coarse-mode flux REAL, SAVE :: FNJ ( 136 ) ! magnitude of accum-mode flux [1/m2/s] REAL, SAVE :: FNK ( 136 ) ! magnitude of coarse-mode flux [1/m2/s] C Open-ocean flux numerically integrated over size range of interest REAL, SAVE :: VFLUX( 136 ) ! total particle volume flux [m3/m2/s] C Polycoeffs from Zhang et al. (2005) REAL( 8 ), SAVE :: C0_COEFF( 6 ) ! Eq 8 REAL( 8 ), SAVE :: X_COEFF( 6 ) ! Eq 1 INTEGER I C-------------------------- Data Statements ---------------------------- C RH-dependent values calculated using MATLAB for THETA = 8 from Gong (2003) C Geometric mean diameter of accumulation mode [um] DATA ( DGNJ( I ), I = 1, 136 ) / & 0.0913, 0.0917, 0.0921, 0.0925, 0.0929, 0.0933, 0.0938, 0.0942, & 0.0946, 0.0951, 0.0956, 0.0961, 0.0967, 0.0972, 0.0977, 0.0984, & 0.0990, 0.0996, 0.1002, 0.1010, 0.1017, 0.1024, 0.1032, 0.1040, & 0.1048, 0.1058, 0.1067, 0.1077, 0.1087, 0.1098, 0.1110, 0.1123, & 0.1136, 0.1150, 0.1165, 0.1181, 0.1198, 0.1217, 0.1237, 0.1259, & 0.1283, 0.1309, 0.1338, 0.1371, 0.1407, 0.1448, 0.1453, 0.1457, & 0.1462, 0.1466, 0.1471, 0.1476, 0.1481, 0.1486, 0.1491, 0.1496, & 0.1501, 0.1506, 0.1511, 0.1517, 0.1522, 0.1528, 0.1533, 0.1539, & 0.1545, 0.1551, 0.1557, 0.1563, 0.1570, 0.1576, 0.1582, 0.1589, & 0.1596, 0.1603, 0.1610, 0.1617, 0.1624, 0.1631, 0.1639, 0.1647, & 0.1655, 0.1663, 0.1671, 0.1679, 0.1688, 0.1697, 0.1706, 0.1715, & 0.1724, 0.1734, 0.1744, 0.1754, 0.1764, 0.1775, 0.1786, 0.1797, & 0.1809, 0.1821, 0.1833, 0.1845, 0.1858, 0.1872, 0.1885, 0.1899, & 0.1914, 0.1929, 0.1945, 0.1961, 0.1978, 0.1995, 0.2013, 0.2032, & 0.2052, 0.2072, 0.2093, 0.2115, 0.2138, 0.2162, 0.2188, 0.2214, & 0.2243, 0.2272, 0.2304, 0.2336, 0.2371, 0.2409, 0.2449, 0.2492, & 0.2538, 0.2587, 0.2641, 0.2702, 0.2765, 0.2837, 0.2918, 0.3009 / C Geometric mean diameter of coarse mode [um] DATA ( DGNK( I ), I = 1, 136 ) / & 1.7786, 1.8180, 1.8254, 1.8330, 1.8408, 1.8489, 1.8891, 1.8979, & 1.9069, 1.9163, 1.9259, 1.9673, 1.9778, 1.9887, 2.0000, 2.0425, & 2.0549, 2.0677, 2.0812, 2.1252, 2.1400, 2.1554, 2.2009, 2.2180, & 2.2359, 2.2833, 2.3034, 2.3244, 2.3746, 2.3983, 2.4504, 2.4773, & 2.5319, 2.5627, 2.6207, 2.6563, 2.7187, 2.7831, 2.8286, 2.9000, & 2.9750, 3.0545, 3.1395, 3.2312, 3.3313, 3.4419, 3.4524, 3.4631, & 3.4855, 3.4965, 3.5077, 3.5190, 3.5305, 3.5422, 3.5540, 3.5760, & 3.5882, 3.6007, 3.6133, 3.6262, 3.6392, 3.6607, 3.6742, 3.6879, & 3.7019, 3.7161, 3.7306, 3.7517, 3.7667, 3.7820, 3.7976, 3.8134, & 3.8296, 3.8506, 3.8674, 3.8845, 3.9019, 3.9197, 3.9405, 3.9591, & 3.9781, 3.9974, 4.0172, 4.0380, 4.0587, 4.0798, 4.1015, 4.1221, & 4.1448, 4.1680, 4.1918, 4.2126, 4.2375, 4.2632, 4.2895, 4.3108, & 4.3385, 4.3671, 4.3964, 4.4185, 4.4495, 4.4816, 4.5040, 4.5381, & 4.5732, 4.5965, 4.6340, 4.6728, 4.6974, 4.7390, 4.7640, 4.8087, & 4.8552, 4.8827, 4.9330, 4.9618, 5.0166, 5.0472, 5.1071, 5.1403, & 5.2062, 5.2426, 5.3158, 5.3566, 5.3985, 5.4852, 5.5338, 5.5844, & 5.6378, 5.6944, 5.7547, 5.8867, 5.8898, 5.9665, 6.0510, 6.1446 / C Geometric standard deviation of accumulation mode DATA ( SIGJ( I ), I = 1, 136 ) / & 2.1420, 2.1442, 2.1442, 2.1442, 2.1442, 2.1442, 2.1464, 2.1464, & 2.1464, 2.1464, 2.1464, 2.1485, 2.1485, 2.1485, 2.1485, 2.1506, & 2.1506, 2.1506, 2.1506, 2.1526, 2.1526, 2.1526, 2.1545, 2.1545, & 2.1545, 2.1564, 2.1564, 2.1564, 2.1582, 2.1582, 2.1599, 2.1599, & 2.1616, 2.1616, 2.1632, 2.1632, 2.1647, 2.1661, 2.1661, 2.1674, & 2.1687, 2.1698, 2.1709, 2.1719, 2.1727, 2.1735, 2.1735, 2.1735, & 2.1742, 2.1742, 2.1742, 2.1742, 2.1742, 2.1742, 2.1742, 2.1747, & 2.1747, 2.1747, 2.1747, 2.1747, 2.1747, 2.1752, 2.1752, 2.1752, & 2.1752, 2.1752, 2.1752, 2.1756, 2.1756, 2.1756, 2.1756, 2.1756, & 2.1756, 2.1758, 2.1758, 2.1758, 2.1758, 2.1758, 2.1760, 2.1760, & 2.1760, 2.1760, 2.1760, 2.1760, 2.1760, 2.1760, 2.1760, 2.1759, & 2.1759, 2.1759, 2.1759, 2.1757, 2.1757, 2.1757, 2.1757, 2.1754, & 2.1754, 2.1754, 2.1754, 2.1750, 2.1750, 2.1750, 2.1745, 2.1745, & 2.1745, 2.1739, 2.1739, 2.1739, 2.1731, 2.1731, 2.1723, 2.1723, & 2.1723, 2.1713, 2.1713, 2.1703, 2.1703, 2.1691, 2.1691, 2.1679, & 2.1679, 2.1665, 2.1665, 2.1651, 2.1636, 2.1636, 2.1619, 2.1602, & 2.1584, 2.1566, 2.1546, 2.1546, 2.1506, 2.1484, 2.1462, 2.1440 / C Geometric standard deviation of coarse mode DATA ( SIGK( I ), I = 1, 136 ) / & 2.1083, 2.0900, 2.0900, 2.0900, 2.0900, 2.0900, 2.0725, 2.0725, & 2.0725, 2.0725, 2.0725, 2.0558, 2.0558, 2.0558, 2.0558, 2.0399, & 2.0399, 2.0399, 2.0399, 2.0248, 2.0248, 2.0248, 2.0103, 2.0103, & 2.0103, 1.9967, 1.9967, 1.9967, 1.9836, 1.9836, 1.9713, 1.9713, & 1.9597, 1.9597, 1.9487, 1.9487, 1.9384, 1.9288, 1.9288, 1.9198, & 1.9114, 1.9036, 1.8965, 1.8901, 1.8843, 1.8791, 1.8791, 1.8791, & 1.8746, 1.8746, 1.8746, 1.8746, 1.8746, 1.8746, 1.8746, 1.8708, & 1.8708, 1.8708, 1.8708, 1.8708, 1.8708, 1.8676, 1.8676, 1.8676, & 1.8676, 1.8676, 1.8676, 1.8652, 1.8652, 1.8652, 1.8652, 1.8652, & 1.8652, 1.8635, 1.8635, 1.8635, 1.8635, 1.8635, 1.8625, 1.8625, & 1.8625, 1.8625, 1.8625, 1.8622, 1.8622, 1.8622, 1.8622, 1.8628, & 1.8628, 1.8628, 1.8628, 1.8642, 1.8642, 1.8642, 1.8642, 1.8664, & 1.8664, 1.8664, 1.8664, 1.8696, 1.8696, 1.8696, 1.8737, 1.8737, & 1.8737, 1.8788, 1.8788, 1.8788, 1.8850, 1.8850, 1.8923, 1.8923, & 1.8923, 1.9009, 1.9009, 1.9108, 1.9108, 1.9221, 1.9221, 1.9351, & 1.9351, 1.9497, 1.9497, 1.9662, 1.9849, 1.9849, 2.0058, 2.0295, & 2.0560, 2.0859, 2.1197, 2.1197, 2.2014, 2.2510, 2.3080, 2.3740 / C Number flux in accumulation mode at 1 m/s [1/m2/s] DATA ( FNJ( I ), I = 1, 136 ) / & 1249.0821, 1248.2831, 1248.2831, 1248.2831, 1248.2831, 1248.2831, & 1247.4863, 1247.4863, 1247.4863, 1247.4863, 1247.4863, 1246.6948, & 1246.6948, 1246.6948, 1246.6948, 1245.9114, 1245.9114, 1245.9114, & 1245.9114, 1245.1389, 1245.1389, 1245.1389, 1244.3799, 1244.3799, & 1244.3799, 1243.6370, 1243.6370, 1243.6370, 1242.9115, 1242.9115, & 1242.2081, 1242.2081, 1241.5281, 1241.5281, 1240.8739, 1240.8739, & 1240.2476, 1239.6513, 1239.6513, 1239.0872, 1238.5571, 1238.0628, & 1237.6062, 1237.1869, 1236.8099, 1236.4749, 1236.4749, 1236.4749, & 1236.1833, 1236.1833, 1236.1833, 1236.1833, 1236.1833, 1236.1833, & 1236.1833, 1235.9361, 1235.9361, 1235.9361, 1235.9361, 1235.9361, & 1235.9361, 1235.7343, 1235.7343, 1235.7343, 1235.7343, 1235.7343, & 1235.7343, 1235.5787, 1235.5787, 1235.5786, 1235.5786, 1235.5786, & 1235.5786, 1235.4698, 1235.4698, 1235.4698, 1235.4698, 1235.4698, & 1235.4082, 1235.4082, 1235.4082, 1235.4082, 1235.4082, 1235.3941, & 1235.3941, 1235.3941, 1235.3941, 1235.4277, 1235.4277, 1235.4277, & 1235.4277, 1235.5087, 1235.5087, 1235.5087, 1235.5087, 1235.6351, & 1235.6351, 1235.6351, 1235.6351, 1235.8099, 1235.8099, 1235.8099, & 1236.0306, 1236.0306, 1236.0306, 1236.2963, 1236.2963, 1236.2963, & 1236.6058, 1236.6058, 1236.9575, 1236.9575, 1236.9575, 1237.3498, & 1237.3498, 1237.7807, 1237.7807, 1238.2480, 1238.2480, 1238.7491, & 1238.7491, 1239.2812, 1239.2812, 1239.8412, 1240.4256, 1240.4256, & 1241.0307, 1241.6543, 1242.2878, 1242.9282, 1243.5702, 1243.5702, & 1244.8344, 1245.4428, 1246.0247, 1246.5734 / C Number flux in coarse mode at 1 m/s [1/m2/s] DATA ( FNK( I ), I = 1, 136 ) / & 11.2976, 11.1324, 11.1324, 11.1324, 11.1324, 11.1324, 10.9787, & 10.9787, 10.9787, 10.9787, 10.9787, 10.8356, 10.8356, 10.8356, & 10.8356, 10.7024, 10.7024, 10.7024, 10.7024, 10.5785, 10.5785, & 10.5785, 10.4632, 10.4632, 10.4632, 10.3561, 10.3561, 10.3561, & 10.2565, 10.2565, 10.1641, 10.1641, 10.0786, 10.0786, 9.9994, & 9.9994, 9.9263, 9.8591, 9.8591, 9.7973, 9.7408, 9.6894, 9.6430, & 9.6011, 9.5640, 9.5315, 9.5315, 9.5315, 9.5034, 9.5034, 9.5034, & 9.5034, 9.5034, 9.5034, 9.5034, 9.4797, 9.4797, 9.4797, 9.4797, & 9.4797, 9.4797, 9.4604, 9.4604, 9.4604, 9.4604, 9.4604, 9.4604, & 9.4455, 9.4455, 9.4455, 9.4455, 9.4455, 9.4455, 9.4351, 9.4351, & 9.4351, 9.4351, 9.4351, 9.4291, 9.4291, 9.4291, 9.4291, 9.4291, & 9.4278, 9.4278, 9.4278, 9.4278, 9.4311, 9.4311, 9.4311, 9.4311, & 9.4393, 9.4393, 9.4393, 9.4393, 9.4523, 9.4523, 9.4523, 9.4523, & 9.4708, 9.4708, 9.4708, 9.4948, 9.4948, 9.4948, 9.5247, 9.5247, & 9.5247, 9.5608, 9.5608, 9.6036, 9.6036, 9.6036, 9.6536, 9.6536, & 9.7112, 9.7112, 9.7773, 9.7773, 9.8524, 9.8524, 9.9376, 9.9376, & 10.0336, 10.1418, 10.1418, 10.2634, 10.4001, 10.5533, 10.7252, & 10.9184, 10.9184, 11.3807, 11.6576, 11.9718, 12.3303 / C Volume flux at 1 m/s numerically integrated over full size range [m3/m2/s] DATA ( VFLUX( I ), I = 1, 136 ) / & 3.5750e-16, 3.5600e-16, 3.6036e-16, 3.6489e-16, 3.6960e-16, & 3.7449e-16, 3.7367e-16, 3.7889e-16, 3.8434e-16, 3.9002e-16, & 3.9596e-16, 3.9603e-16, 4.0243e-16, 4.0913e-16, 4.1615e-16, & 4.1720e-16, 4.2484e-16, 4.3289e-16, 4.4136e-16, 4.4371e-16, & 4.5303e-16, 4.6290e-16, 4.6656e-16, 4.7752e-16, 4.8919e-16, & 4.9453e-16, 5.0765e-16, 5.2171e-16, 5.2932e-16, 5.4535e-16, & 5.5493e-16, 5.7342e-16, 5.8547e-16, 6.0711e-16, 6.2234e-16, & 6.4805e-16, 6.6748e-16, 6.8942e-16, 7.2379e-16, 7.5245e-16, & 7.8530e-16, 8.2321e-16, 8.6731e-16, 9.1914e-16, 9.8076e-16, & 1.0551e-15, 1.0648e-15, 1.0746e-15, 1.0704e-15, 1.0806e-15, & 1.0909e-15, 1.1015e-15, 1.1124e-15, 1.1234e-15, 1.1347e-15, & 1.1310e-15, 1.1427e-15, 1.1546e-15, 1.1668e-15, 1.1793e-15, & 1.1921e-15, 1.1889e-15, 1.2021e-15, 1.2157e-15, 1.2295e-15, & 1.2437e-15, 1.2583e-15, 1.2559e-15, 1.2711e-15, 1.2866e-15, & 1.3025e-15, 1.3189e-15, 1.3357e-15, 1.3343e-15, 1.3518e-15, & 1.3699e-15, 1.3884e-15, 1.4075e-15, 1.4072e-15, 1.4272e-15, & 1.4477e-15, 1.4690e-15, 1.4909e-15, 1.4919e-15, 1.5149e-15, & 1.5387e-15, 1.5633e-15, 1.5657e-15, 1.5916e-15, 1.6185e-15, & 1.6464e-15, 1.6504e-15, 1.6799e-15, 1.7106e-15, 1.7425e-15, & 1.7487e-15, 1.7827e-15, 1.8181e-15, 1.8550e-15, 1.8640e-15, & 1.9036e-15, 1.9450e-15, 1.9566e-15, 2.0013e-15, 2.0481e-15, & 2.0629e-15, 2.1138e-15, 2.1673e-15, 2.1862e-15, 2.2448e-15, & 2.2666e-15, 2.3310e-15, 2.3993e-15, 2.4276e-15, 2.5035e-15, & 2.5366e-15, 2.6216e-15, 2.6607e-15, 2.7566e-15, 2.8033e-15, & 2.9126e-15, 2.9689e-15, 3.0950e-15, 3.1640e-15, 3.2387e-15, & 3.3973e-15, 3.4912e-15, 3.5945e-15, 3.7089e-15, 3.8366e-15, & 3.9802e-15, 4.2603e-15, 4.3308e-15, 4.5485e-15, 4.8050e-15, & 5.1124e-15 / C Polynomial coefficients from Zhang et al. (2005) DATA C0_COEFF / 28.376D0, -205.44D0, 653.37D0, -1031.7D0, 803.18D0, -247.08D0 / DATA X_COEFF / 3.1657D0, -19.079D0, 55.72D0, -83.998D0, 63.436D0, -19.248D0 / CONTAINS C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: FUNCTION SSEMIS_INIT( JDATE, JTIME, TSTEP ) RESULT ( SUCCESS ) C Revision History: C 26 Feb 10 J.Young: Eliminate BARRIER, etc. to prevent MPI race condition C 16 Feb 11 S.Roselle: replaced I/O API include files with UTILIO_DEFN C 04 Apr 11 S.Howard: dynamic allocation and generalization of indices for C SSOUTD, WRSS_SPC, and SSSPC_MAP C 11 May 11 D.Wong: incorporated twoway model implementation C 12 Aug 15 D.Wong: added code to handle parallel I/O implementation USE UTILIO_DEFN USE AERO_DATA #ifndef mpas #ifdef parallel USE SE_MODULES ! stenex (using SE_UTIL_MODULE) #else USE NOOP_MODULES ! stenex (using NOOP_UTIL_MODULE) #endif #endif IMPLICIT NONE C Arguments: INTEGER, INTENT( IN ) :: JDATE, JTIME, TSTEP LOGICAL :: SUCCESS C Includes: INCLUDE SUBST_FILES_ID ! file name parameters C Local Variables: CHARACTER( 16 ), SAVE :: PNAME = 'SSEMIS_INIT' CHARACTER( 80 ) :: VARDESC CHARACTER( 250 ) :: XMSG = ' ' INTEGER STATUS INTEGER S, N, L, ISEA, SPC, IM LOGICAL SEA_MATCH CHARACTER( 16 ) :: SN C----------------------------------------------------------------------- SUCCESS = .TRUE. C Map aerospc data CALL MAP_AERO() CALL LOG_MESSAGE( LOGDEV, 'Initialize Sea Spray Aerosol Emissions' ) ! Specify H2O in mapping KH2O = NSEA_SPC C Populate Master Emissions Map Vector So That Diagnostics C can be printed in EMIS_MAP NSSSPC = NSEA_SPC DESID_EMVAR( iseasrm )%len = nssspc*2 Allocate( DESID_EMVAR( iseasrm )%arry ( nssspc*2 ) ) Allocate( DESID_EMVAR( iseasrm )%units( nssspc*2 ) ) Allocate( DESID_EMVAR( iseasrm )%mw ( nssspc*2 ) ) Allocate( DESID_EMVAR( iseasrm )%used ( nssspc*2 ) ) Allocate( DESID_EMVAR( iseasrm )%conv ( nssspc*2 ) ) Allocate( DESID_EMVAR( iseasrm )%basis( nssspc*2 ) ) Allocate( DESID_EMVAR( iseasrm )%larea( nssspc*2 ) ) Allocate( DESID_EMVAR( iseasrm )%lareaadj( nssspc*2 ) ) DESID_EMVAR( iseasrm )%arry( : ) = 'NOT_AVAILABLE' do i = 1,nssspc IF ( sea_spc( i )%spcfac(1) .NE. 0.0 .or. i .EQ. nssspc ) & DESID_EMVAR( iseasrm )%arry( i ) = & "PMFINE_" // sea_spc(i)%name IF ( sea_spc( i )%spcfac(2) .NE. 0.0 .or. i .EQ. nssspc ) & DESID_EMVAR( iseasrm )%arry( i+nssspc ) = & "PMCOARSE_" // sea_spc(i)%name DESID_EMVAR( iseasrm )%mw ( i ) = sea_spc(i)%mw DESID_EMVAR( iseasrm )%mw ( i+nssspc ) = sea_spc(i)%mw end do DESID_EMVAR( iseasrm )%units( : ) = 'G/S' DESID_EMVAR( iseasrm )%used ( : ) = .FALSE. DESID_EMVAR( iseasrm )%conv ( : ) = 1.0 DESID_EMVAR( iseasrm )%basis( : ) = 'MASS' DESID_EMVAR( iseasrm )%larea( : ) = .FALSE. DESID_EMVAR( iseasrm )%lareaadj( : ) = .FALSE. C Allocate SS arrays using NSSSPC value ALLOCATE ( SSOUTM( NSSSPC*2,NCOLS,NROWS ), & SSOUTN( 2,NCOLS,NROWS ), & SSOUTS( 2,NCOLS,NROWS ), & SEA_FACTNUM( N_MODE,NCOLS,NROWS ), & SEA_FACTSRF( N_MODE,NCOLS,NROWS ), STAT = STATUS ) IF ( STATUS .NE. 0 ) THEN XMSG = '*** SSOUTM, SSOUTN or SSOUTS memory allocation failed' CALL M3WARN ( PNAME, JDATE, JTIME, XMSG ) SUCCESS = .FALSE.; RETURN END IF IF ( SSEMDIAG ) THEN ! Open the sea-salt emission diagnostic file C Determine number of sea-salt species For diagnostic file NSSDIAG = 0 DO ISEA = 1,NSSSPC NSSDIAG = NSSDIAG + COUNT( SEA_SPC( ISEA )%SPCFAC( : ) .GT. 0. ) ENDDO C Include H2O NSSDIAG = NSSDIAG + 2 !! count both J and K modes C Include NUMBER and SURFACE_AREA to diagnostic (J & K) NSSDIAG = NSSDIAG + 4 C Allocate diagnostic arrays ALLOCATE ( SSOUTD( NSSDIAG ), & WRSS_SPC( NSSDIAG ), STAT = STATUS ) IF ( STATUS .NE. 0 ) THEN XMSG = '*** SSOUTD or WRSS_SPC memory allocation failed' CALL M3WARN ( PNAME, JDATE, JTIME, XMSG ) SUCCESS = .FALSE.; RETURN END IF C Build diagnostic file write buffer (WRSS_SPC) array NSSDIAG = 0 DO N = 1, 2 DO S = 1, NSSSPC IF ( SEA_SPC( S )%SPCFAC( N ) .GT. 0.0 ) THEN NSSDIAG = NSSDIAG + 1 WRSS_SPC( NSSDIAG ) = TRIM( SEA_SPC( S )%NAME ) // MODESUFF( N ) END IF END DO C Include H2O NSSDIAG = NSSDIAG + 1 WRSS_SPC( NSSDIAG ) = 'AH2O' // MODESUFF( N ) END DO C Include Mode NUMBER to diagnostic NSSDIAG = NSSDIAG + 1 WRSS_SPC( NSSDIAG ) = "NUMFINE" NSSDIAG = NSSDIAG + 1 WRSS_SPC( NSSDIAG ) = "NUMCOARSE" C Include Mode SURFACE_AREA to diagnostic NSSDIAG = NSSDIAG + 1 WRSS_SPC( NSSDIAG ) = "SRFFINE" NSSDIAG = NSSDIAG + 1 WRSS_SPC( NSSDIAG ) = "SRFCOARSE" C Open the sea-salt emission dignostic file IF ( IO_PE_INCLUSIVE ) CALL OPSSEMIS ( STDATE, STTIME, TSTEP, NSSDIAG, WRSS_SPC ) ALLOCATE ( SSBF( NSSDIAG,NCOLS,NROWS ), & WRSS( NCOLS,NROWS ), STAT = STATUS ) IF ( STATUS .NE. 0 ) THEN XMSG = '*** SSBF or WRSS memory allocation failed' CALL M3WARN ( PNAME, JDATE, JTIME, XMSG ) SUCCESS = .FALSE.; RETURN END IF #ifndef mpas #ifdef parallel_io CALL SE_BARRIER IF ( .NOT. IO_PE_INCLUSIVE ) THEN IF ( .NOT. OPEN3( CTM_SSEMIS_1, FSREAD3, PNAME ) ) THEN XMSG = 'Could not open ' // TRIM(CTM_SSEMIS_1) CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT2 ) END IF END IF #endif #endif END IF END FUNCTION SSEMIS_INIT C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE OPSSEMIS ( JDATE, JTIME, TSTEP, NSSDIAG, WRSS_SPC ) C 16 May 05 P.Bhave: original version, using OPDDEP as a template C 4 Mar 10 J.Young: accomodate Steve Howard's reengineering C 16 Feb 11 S.Roselle: replaced I/O API include files with UTILIO_DEFN USE GRID_CONF ! horizontal & vertical domain specifications USE UTILIO_DEFN IMPLICIT NONE INCLUDE SUBST_FILES_ID ! file name parameters C Arguments: INTEGER JDATE ! current model date, coded YYYYDDD INTEGER JTIME ! current model time, coded HHMMSS INTEGER TSTEP ! output time step INTEGER NSSDIAG CHARACTER( 16 ) :: WRSS_SPC( NSSDIAG ) C Local variables: CHARACTER( 16 ) :: PNAME = 'OPSSEMIS' CHARACTER( 96 ) :: XMSG = ' ' INTEGER V, L ! loop induction variables C----------------------------------------------------------------------- #ifndef mpas C Try to open existing file for update IF ( .NOT. OPEN3( CTM_SSEMIS_1, FSRDWR3, PNAME ) ) THEN XMSG = 'Could not open CTM_SSEMIS_1 for update - ' & // 'try to open new' CALL M3MESG( XMSG ) C Set output file characteristics based on COORD.EXT and open diagnostic file FTYPE3D = GRDDED3 SDATE3D = JDATE STIME3D = JTIME TSTEP3D = TSTEP CALL NEXTIME( SDATE3D, STIME3D, TSTEP3D ) ! start the next hour NVARS3D = NSSDIAG NCOLS3D = GL_NCOLS NROWS3D = GL_NROWS NLAYS3D = 1 NTHIK3D = 1 GDTYP3D = GDTYP_GD P_ALP3D = P_ALP_GD P_BET3D = P_BET_GD P_GAM3D = P_GAM_GD XORIG3D = XORIG_GD YORIG3D = YORIG_GD XCENT3D = XCENT_GD YCENT3D = YCENT_GD XCELL3D = XCELL_GD YCELL3D = YCELL_GD VGTYP3D = VGTYP_GD VGTOP3D = VGTOP_GD ! VGTPUN3D = VGTPUN_GD ! currently, not defined DO L = 1, NLAYS3D + 1 VGLVS3D( L ) = VGLVS_GD( L ) END DO ! GDNAM3D = GDNAME_GD GDNAM3D = GRID_NAME ! from HGRD_DEFN DO V = 1, NSSDIAG VTYPE3D( V ) = M3REAL VNAME3D( V ) = WRSS_SPC( V ) IF ( VNAME3D( V )(1:3) .EQ. 'NUM' ) THEN UNITS3D( V ) = 's-1' ELSE IF ( VNAME3D( V )(1:3) .EQ. 'SRF' ) THEN UNITS3D( V ) = 'm2 s-1' ELSE UNITS3D( V ) = 'g s-1' END IF VDESC3D( V ) = 'hourly ' // TRIM( VNAME3D( V ) ) & // ' sea-salt emission rate' END DO FDESC3D( 1 ) = 'hourly layer-1 sea-salt emission rates' DO L = 2, MXDESC3 FDESC3D( L ) = ' ' END DO C Open sea-salt emissions diagnostic file IF ( .NOT. OPEN3( CTM_SSEMIS_1, FSNEW3, PNAME ) ) THEN XMSG = 'Could not create the CTM_SSEMIS_1 file' CALL M3EXIT( PNAME, SDATE3D, STIME3D, XMSG, XSTAT1 ) END IF END IF #endif RETURN END SUBROUTINE OPSSEMIS C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE GET_SSEMIS ( JDATE, JTIME, TSTEP, CELLVOL, CELLHGT, & L_DESID_DIAG ) C GET_SSEMIS calculates the sea-salt emission rates in a grid cell C given the fractional grid-cell area covered by open ocean and surf zone C Key Subroutines/Functions Called: NONE C Revision History: C 13 Jun 05 P.Bhave: first version for public release C 11 Apr 08 J.Kelly: added code for (1) emission of coarse surface area, C (2) emission of coarse water, (3) enhanced surf zone C emissions, and (4) variable coarse std. deviation C 20 Feb 10 J.Young: move out of AERO_EMIS proper into this module C 16 Feb 11 S.Roselle: replaced I/O API include files with UTILIO_DEFN C 04 Apr 11 S.Howard: moved speciation to AERO_DATA and generalized species C and modal references and density calculation C 11 May 11 D.Wong: incorporated twoway model implementation C 08 Aug 14 B.Gantt: added code for (1) increased accumulation mode C emissions, (2) sea surface temperature dependence C of emissions, and (3) reduction of surf zone C emisions C References: C Alduchov and Eskridge, "Improved Magnus Form Approximations of C Saturation Vapor Pressure," Jour. of Applied Meteorology, vol. 35, C pp 601-609, April, 1996. C Binkowski F.S., S.J. Roselle. Models-3 Community Multiscale Air Quality C (CMAQ) model aerosol component 1: Model Description. J. Geophys. C Res., Vol 108, No D6, 4183, doi:10.1029/2001JD001409 (2003). C Seinfeld, J.H., S.N. Pandis. "Atmospheric Chemistry and Physics - from C air pollution to climate change" John Wiley & Sons, Inc. (1998). C Zhang, K.M., E.M. Knipping, A.S. Wexler, P.V. Bhave, G.S. Tonnesen C "Size distribution of sea-salt emissions as a function of relative C humidity" Atmospheric Environment, 39, 3373-3379 (2005). C Lewis, E.R. and Schwartz, S.E. "Comment on "Size distribution of sea-salt C emissions as a funciton of relative humidity", Atmospheric Environment, C 40, 588-590 (2006) C Zhang, K.M., E.M. Knipping, A.S. Wexler, P.V. Bhave, G.S. Tonnesen, "Reply C to comment on "Size distribution of sea-salt emissions as a funciton C of relative humidity", Atmospheric Environment, 40, 591-592 (2006) C Clarke, A.D., S.R. Owens, and J. Zhou "An ultrafine sea-salt flux from C breaking waves: Implications for cloud condensation nuclei in the C remote marine atmosphere" J. Geophys. Res. (2006) C Gong, S. L., A parameterization of sea-salt aerosol source function C for sub- and super-micron particles, Global Biogeochem. Cycles, 17, C 1097, (2003). C Jaeglé, L., P. K. Quinn, T. S. Bates, B. Alexander, and J. T. Lin, Global C distribution of sea salt aerosols: New constraints from in situ and C remote sensing observations, Atmos. Chem. Phys., 11, 3137–3157, C (2011). C Ovadnevaite, J., Manders, A., de Leeuw, G., Ceburnis, D., Monahan, C., C Partanen, A.-I., Korhonen, H., and O'Dowd, C. D.: A sea spray C aerosol flux parameterization encapsulating wave state, Atmos. C Chem. Phys., 14, 1837-1852, (2014). C----------------------------------------------------------------------- USE UTILIO_DEFN USE AERO_DATA USE AEROMET_DATA ! Includes CONST.EXT USE ASX_DATA_MOD, ONLY: MET_DATA, GRID_DATA, svp2, svp3 #ifdef mpas use coupler_module, only : cell_vol, cell_thickness #endif IMPLICIT NONE C Arguments INTEGER, INTENT( IN ) :: JDATE, JTIME, TSTEP( 3 ) REAL, INTENT( IN ) :: CELLVOL(:,:) ! grid-cell volume [m2*sigma] REAL, INTENT( IN ) :: CELLHGT(:,:) ! grid-cell height [sigma] LOGICAL, INTENT( IN ) :: L_DESID_DIAG ! flag for whether or not DESID ! is in diagnostic mode C Includes: INCLUDE SUBST_FILES_ID ! file name parameters C Local Variables: REAL :: OFRAC ! fractional seawater cover REAL :: SFRAC ! fractional surf-zone cover REAL :: BLKPRS ! atmospheric pressure [Pa] REAL :: BLKTA ! air temperature [K] REAL :: BLKQV ! H2O mass mixing ratio [ kg/kg ] REAL :: U10 ! wind speed at 10m [m/s] REAL :: RLAY1HT ! reciprocal of layer-1 height [1/m] REAL :: AIRVOL ! grid-cell volume [m3] REAL :: SST ! sea surface temperature[C] CHARACTER( 16 ), SAVE :: PNAME = 'GET_SSEMIS' CHARACTER( 96 ) :: XMSG = ' ' INTEGER C, R, L, N, V, S ! loop indices C Variables for calculating ambient RH as done in the aerosol module REAL, PARAMETER :: AA = 610.94 ! coefficients from Alduchov REAL, PARAMETER :: BB = 17.625 ! and Eskridge (1996) REAL, PARAMETER :: CC = 243.04 REAL, PARAMETER :: EPSWATER = MWWAT / MWAIR REAL :: ESAT ! saturation vapor pressure REAL :: BLKRH ! fractional relative humidity C Variables for calculating solute mass fraction & size-correction factors REAL( 8 ), PARAMETER :: ONE3 = 1.0D0 / 3.00D0 REAL( 8 ), PARAMETER :: A0 = 1.0D0 / 3.70D0 REAL( 8 ), PARAMETER :: A80 = 3.7D0 / 1.82D0 REAL :: RH ! BLKRH constrained to 45-99% range REAL( 8 ) :: DRH ! double precision RH REAL( 8 ) :: C0 ! (Diam @ formation) / (Diam @ ambient RH) REAL( 8 ) :: C80 ! (Diam @ 80% RH) / (Diam @ ambient RH) REAL( 8 ) :: XSW ! fractional solute weight fraction C Density of dry sea salt [kg/m3] using volume additivity REAL( 8 ) :: RHOSW( 2 ) ! sea-salt particle density at ambient RH [g/m3] C Maximum and minimum diameters for emission-flux integrations [m] REAL, PARAMETER :: DPMAX = 20.0E-6 ! upper limit used for the ! numerical integrations REAL :: DPMINO ! minimum diameter for open-ocean flux REAL :: DPMAXO ! maximum diameter for open-ocean flux C Wind-speed-dependent scaling factors for emissions flux functions REAL :: WDSCALO ! Gong-Monahan open-ocean flux C SST-dependent scaling factor for emissions flux functions REAL :: SSTSCALO ! Jaegle flux C Fraction of whitecap coverage REAL :: WCAP C Lognormal parameters and numerically-integrated fluxes at ambient RH INTEGER :: IPOS ! position of ambient RH in data arrays REAL :: DGNJRH ! geometric mean of accum-mode flux [m] REAL :: DGNKRH ! geometric mean of coarse-mode flux [m] REAL :: SIGJRH ! geom std deviation of accum-mode flux REAL :: SIGKRH ! geom std deviation of coarse-mode flux REAL :: FNJRH ! magnitude of accum-mode flux [1/m2/s] REAL :: FNKRH ! magnitude of coarse-mode flux [1/m2/s] REAL :: VFLXRH ! total particle volume [m3/m2/s] C Alternate forms of geometric std devs stored for efficiency REAL :: LNSGJ, LNSGK ! natural log of std dev REAL :: RDIVJ, RDIVK ! reciprocal of sqrt(2)*lnsg C Geometric mean diameters by volume/mass [m] REAL :: DGVJRH ! accumulation mode REAL :: DGVKRH ! coarse mode C Variables for converting 3rd moment emission rates to M0 and M2 rates REAL :: FACTNUMJ ! conversion for accumulation mode M0 REAL :: FACTNUMK ! conversion for coarse mode M0 REAL :: FACTM2J ! conversion for accumulation mode M2 REAL :: FACTM2K ! conversion for coarse mode M2 C Variables for calculating fraction of mass emissions assigned to each mode REAL :: FFINJ ! finite integral for accumulation mode REAL :: FFINK ! finite integral for coarse mode REAL :: FRACMJ ! mass fraction assigned to accumulation mode REAL :: FRACMK ! mass fraction assigned to coarse mode C Mode-specific sea-salt mass emission rates [g/m3/s] REAL( 8 ) :: ESEASJ ! accumulation mode REAL( 8 ) :: ESEASK ! coarse mode C 3rd moment emission rates [m3/m3/s] REAL :: M3J ! accumulation mode, 3rd moment REAL :: M3K ! coarse mode, 3rd moment C Variables for calculating dry surface-area emission rate for accum mode REAL :: WET_M3J, DRY_M3J ! wet & dry 3rd moment emis rates [m3/m3/s] REAL :: WET_M2J, DRY_M2J ! wet & dry 2nd moment emis rates [m3/m3/s] REAL :: WET_M3K, DRY_M3K ! wet & dry 3rd moment emis rates [m3/m3/s] REAL :: WET_M2K, DRY_M2K ! wet & dry 2nd moment emis rates [m3/m3/s] INTEGER, SAVE :: WSTEP = 0 ! local write counter INTEGER :: MDATE, MTIME ! SSEMIS write date&time LOGICAL, SAVE :: FIRSTIME = .TRUE. C Mathematical constants; statement function for ERF approximation REAL, PARAMETER :: TWO3 = 2.0 / 3.0 REAL :: ERF ! ERF approx. statement function REAL :: X ! dummy argument for ERF ERF( X ) = SIGN( 1.0, X ) * SQRT( 1.0 - EXP( -4.0 * X * X / PI ) ) C----------------------------- Begin calc ------------------------------ C Initialize sea-salt output buffer IF ( SSEMDIAG .AND. WSTEP .EQ. 0 .AND. .NOT. L_DESID_DIAG ) SSBF = 0.0 SEA_FACTNUM = 0.0 SEA_FACTSRF = 0.0 DO R = 1, NROWS DO C = 1, NCOLS IF ( Grid_Data%OCEAN( C,R ) + Grid_Data%SZONE( C,R ) .GT. 0.0 ) THEN OFRAC = Grid_Data%OCEAN ( C,R ) SFRAC = Grid_Data%SZONE ( C,R ) BLKPRS = Met_Data%PRES ( C,R,1 ) BLKTA = Met_Data%TA ( C,R,1 ) BLKQV = Met_Data%QV ( C,R,1 ) U10 = Met_Data%WSPD10 ( C,R ) SST = max(Met_Data%TSEASFC( C,R ) - 273.15, 0.0 ) #ifdef mpas RLAY1HT = Met_Data%RJACM ( C,R,1 ) / cell_thickness(C,1,1) #else RLAY1HT = Met_Data%RJACM ( C,R,1 ) / CELLHGT(c,r) #endif ELSE DO N = 1, 2 DO S = 1, NSSSPC SSOUTM( (N-1)*NSSSPC+S,C,R ) = 0.0 END DO SSOUTN( N,C,R ) = 0.0 SSOUTS( N,C,R ) = 0.0 END DO CYCLE END IF C Calculate fractional relative humidity in the grid cell C Follow the same methodology as in other portions of the code just for the 10m RH If ( BLKTA .Lt. stdtemp ) Then ESAT = vp0 *Exp( 22.514 - ( 6.15e3 / BLKTA ) ) Else ESAT = vp0 *Exp( svp2 * ( BLKTA -stdtemp ) / ( BLKTA -svp3 ) ) End If BLKRH = BLKPRS * BLKQV / ( ( EPSWATER + BLKQV ) * ESAT ) BLKRH = MIN( 0.99, MAX( 0.005, BLKRH ) ) C Calculate RH-dependent size-correction factors and solute mass fraction C using equations from Zhang et al. (2005), which are valid over the C 45-99% RH range. Store powers of RH for polynomial calculations. RH = BLKRH RH = MAX( 0.45, MIN( 0.99, RH ) ) DRH = REAL( RH, 8 ) C Calculate inverse of size-correction factors from Equation 3 of Lewis & Schwartz 2006 and Zhang et al 2006 equation 2. ! C0 = 3.70D0 * ( (1.0D0-DRH) / (2.0D0-DRH) ) ** (1.0D0/3.0D0) ! C80 = 1.82D0 * ( (1.0D0-DRH) / (2.0D0-DRH) ) ** (1.0D0/3.0D0) C0 = A0 * ( (2.0D0-DRH) / (1.0D0-DRH) ) ** ONE3 C80 = A80 * C0 C Calculate solute mass fraction using Equation 1 of Zhang et al. XSW = X_COEFF( 1 ) & + DRH * ( X_COEFF( 2 ) & + DRH * ( X_COEFF( 3 ) & + DRH * ( X_COEFF( 4 ) & + DRH * ( X_COEFF( 5 ) & + DRH * ( X_COEFF( 6 ) ) ) ) ) ) C Calculate sea-salt-particle density [g/m3] at ambient RH, assuming C volume additivity of dry salt plus water RHOSW( 1 ) = 1.0D+3 & / ( XSW / SEASPRAY_DENS( 2 ) + ( 1.0D0 - XSW ) * SPECIFIC_VOL_H2O ) RHOSW( 2 ) = 1.0D+3 & / ( XSW / SEASPRAY_DENS( 3 ) + ( 1.0D0 - XSW ) * SPECIFIC_VOL_H2O ) C Set minimum and maximum diameters for integration using the size- C correction factors of Zhang et al. (2005) C Gong-Monahan flux function is valid from 0.005-5.0 um dry radius; C multiply by 4 to get wet diameter at 80% RH ! DPMINO = 2.0E-8 / REAL( C80, 4 ) ! DPMAXO = MIN( DPMAX, DPMAX / REAL( C80, 4 ) ) DPMINO = 2.0E-8 * REAL( C80, 4 ) DPMAXO = MIN( DPMAX, DPMAX * REAL( C80, 4 ) ) C deLeeuw flux function is valid from 1.6-20 um diameter at formation ! DPMINS = 1.6E-6 * C0 ! DPMAXS = MIN( DPMAX, DPMAX * C0 ) C Calculate scaling factors to correct the tabulated fluxes for the 10m C wind speed in this cell. Note: tabulated values are based on 1 m/s. WDSCALO = MIN( U10, 20.0 ) ** 3.41 ! Gong-Monahan flux function ! WDSCALS = EXP( 0.23 * MIN( U10, 9.0 ) ) ! deLeeuw flux function C SST scaling factor based on Jaegle et al. (2011) C linearized by Ovadnevaite et al. (2014) SSTSCALO = 0.38 + 0.054 * SST C Calculate whitecap coverage fraction WCAP = 3.84E-6 * WDSCALO ! Eq. 5, Clarke et al. (2006) JGR C Find position in the data arrays that corresponds to ambient RH in this C grid cell and set the appropriate data values IF ( BLKRH .LE. 0.45 ) THEN IPOS = 1 ELSE IF ( BLKRH .LE. 0.90 ) THEN IPOS = NINT( 100.0 * BLKRH - 44.0 ) ELSE IF ( BLKRH .LE. 0.99 ) THEN IPOS = NINT( 1000.0 * BLKRH - 854.0 ) ELSE IPOS = 136 END IF DGNJRH = DGNJ ( IPOS ) * 1.0E-6 ! convert to [m] DGNKRH = DGNK ( IPOS ) * 1.0E-6 ! convert to [m] SIGJRH = SIGJ ( IPOS ) SIGKRH = SIGK ( IPOS ) FNJRH = FNJ ( IPOS ) FNKRH = FNK ( IPOS ) VFLXRH = VFLUX( IPOS ) * ( OFRAC * SSTSCALO & + (SFRAC * 0.5) / WCAP ) C Save certain functions of the geometric standard deviations for later use LNSGJ = LOG( SIGJRH ) LNSGK = LOG( SIGKRH ) RDIVJ = 1.0 / ( SQRT( 2.0 ) * LNSGJ ) RDIVK = 1.0 / ( SQRT( 2.0 ) * LNSGK ) C Calculate geometric-mean diameters by volume using Equation 7.52 of C Seinfeld & Pandis (1998). DGVJRH = DGNJRH * EXP( 3.0 * LNSGJ * LNSGJ ) DGVKRH = DGNKRH * EXP( 3.0 * LNSGK * LNSGK ) C Calculate modal volume fluxes [m3/m2/s] by evaluating finite integrals C from DPMIN to DPMAX over each lognormal distribution. Use resulting C values to calculate the fraction of the total number emissions to C assign to each mode. See Equations 19 and 20 of Uma Shankar`s C "Integration of Sea-Salt Fluxes" memo. FFINJ = 0.5 * FNJRH * DGVJRH ** 3 * EXP( -4.5 * LNSGJ * LNSGJ ) & * ( ERF( LOG( DPMAXO / DGVJRH ) * RDIVJ ) & - ERF( LOG( DPMINO / DGVJRH ) * RDIVJ ) ) FFINK = 0.5 * FNKRH * DGVKRH ** 3 * EXP( -4.5 * LNSGK * LNSGK ) & * ( ERF( LOG( DPMAXO / DGVKRH ) * RDIVK ) & - ERF( LOG( DPMINO / DGVKRH ) * RDIVK ) ) FRACMJ = FFINJ / ( FFINJ + FFINK ) FRACMK = 1.0 - FRACMJ C Calculate mode-specific mass emission rates [g/m3/s], by multiplying C numerically-integrated volume fluxes by the modal volume fractions, C scaling for wind speed, dividing by grid-cell height, and multiplying C by particle density. Multiply by chemical speciation factors to C obtain speciated mass emissions. ESEASJ = VFLXRH * FRACMJ * WDSCALO * RLAY1HT * REAL( RHOSW( 1 ), 4 ) ESEASK = VFLXRH * FRACMK * WDSCALO * RLAY1HT * REAL( RHOSW( 2 ), 4 ) DO S = 1, NSSSPC IF ( S .EQ. KH2O ) THEN ! Water SSOUTM( S,C,R ) = ESEASJ * REAL( ( 1.0D0 - XSW ), 4 ) SSOUTM( S+NSSSPC,C,R ) = ESEASK * REAL( ( 1.0D0 - XSW ), 4 ) ELSE SSOUTM( S,C,R ) = ESEASJ * REAL( XSW, 4 ) & * SEA_SPC( S )%SPCFAC( 1 ) SSOUTM( S+NSSSPC,C,R ) = ESEASK * REAL( XSW, 4 ) & * SEA_SPC( S )%SPCFAC( 2 ) END IF END DO C Calculate mode-specific 3rd moment emission rates [m3/m3/s] M3J = ESEASJ * F6PI / REAL( RHOSW( 1 ), 4 ) + TINY(0.0) M3K = ESEASK * F6PI / REAL( RHOSW( 2 ), 4 ) + TINY(0.0) C Calculate factors for converting 3rd moment emission rates into number C and 2nd moment emission rates. See Equations 7b and 7c of Binkowski & C Roselle (2003) FACTNUMJ = EXP( 4.5 * LNSGJ * LNSGJ ) / DGVJRH ** 3 FACTNUMK = EXP( 4.5 * LNSGK * LNSGK ) / DGVKRH ** 3 FACTM2J = EXP( 0.5 * LNSGJ * LNSGJ ) / DGVJRH FACTM2K = EXP( 0.5 * LNSGK * LNSGK ) / DGVKRH C Calculate mode-specific emission rates of particle number [1/s] SSOUTN( 1,C,R ) = M3J * FACTNUMJ SSOUTN( 2,C,R ) = M3K * FACTNUMK C Calculate mode-specific dry surface area emission rates [m2/m3/s]. C Subtract water from 3rd moment to obtain dry 3rd moment emission rate. C Calculate dry 2nd moment while holding the standard deviation constant. C Multiply dry 2nd moment by PI to obtain dry surface area emission rate. WET_M3J = M3J WET_M2J = M3J * FACTM2J DRY_M3J = WET_M3J - F6PI * SSOUTM( KH2O,C,R ) * 1.0E-06 DRY_M2J = WET_M2J * ( DRY_M3J / WET_M3J ) ** TWO3 WET_M3K = M3K WET_M2K = M3K * FACTM2K DRY_M3K = WET_M3K - F6PI * SSOUTM( KH2O+NSSSPC,C,R ) * 1.0E-06 DRY_M2K = WET_M2K * ( DRY_M3K / WET_M3K ) ** TWO3 SSOUTS( 1,C,R ) = PI * DRY_M2J SSOUTS( 2,C,R ) = PI * DRY_M2K ! Propagate Number and Surface Area Scaling Factors back to Emissions ! Module so that the sea spray emissions can be scaled appropriately SEA_FACTNUM( 1,C,R ) = 0.0 SEA_FACTNUM( 2,C,R ) = FACTNUMJ SEA_FACTNUM( 3,C,R ) = FACTNUMK SEA_FACTSRF( 1,C,R ) = 0.0 SEA_FACTSRF( 2,C,R ) = SSOUTS( 1,C,R ) / M3J SEA_FACTSRF( 3,C,R ) = SSOUTS( 2,C,R ) / M3K C Update the SSBF array, for writing the diagnostic sea-salt-emission file. IF ( SSEMDIAG .AND. .NOT. L_DESID_DIAG ) THEN V = 0 DO N = 1, 2 DO S = 1, NSSSPC IF ( S .EQ. KH2O .OR. SEA_SPC( S )%SPCFAC( N ) .GT. 0 ) THEN V = V + 1 SSOUTD( V ) = SSOUTM( (N-1)*NSSSPC+S,C,R ) END IF END DO END DO DO N = 1, 2 V = V + 1 SSOUTD( V ) = SSOUTN( N,C,R ) END DO DO N = 1, 2 V = V + 1 SSOUTD( V ) = SSOUTS( N,C,R ) END DO #ifdef mpas DO S = 1, NSSDIAG SSBF( S,C,R ) = SSBF( S,C,R ) + SSOUTD( S ) * cell_vol(c,1,1) & * FLOAT( TIME2SEC ( TSTEP( 2 ) ) ) END DO #else AIRVOL = CELLVOL(C,R) / Met_Data%RJACM( C,R,1 ) DO S = 1, NSSDIAG SSBF( S,C,R ) = SSBF( S,C,R ) + SSOUTD( S ) * AIRVOL & * FLOAT( TIME2SEC ( TSTEP( 2 ) ) ) END DO #endif END IF ! SSEMDIAG END DO ! C END DO ! R C If last call this hour, write out the total sea-salt emissions [g/s]. C Then reset the sea-salt emissions array and local write counter. #ifndef mpas IF ( SSEMDIAG .AND. .NOT. L_DESID_DIAG ) THEN #ifdef parallel_io IF ( FIRSTIME ) THEN FIRSTIME = .FALSE. IF ( .NOT. IO_PE_INCLUSIVE ) THEN IF ( .NOT. OPEN3( CTM_DRY_DEP_1, FSREAD3, PNAME ) ) THEN XMSG = 'Could not open ' // TRIM( CTM_DRY_DEP_1 ) CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF END IF END IF #endif WSTEP = WSTEP + TIME2SEC( TSTEP( 2 ) ) IF ( WSTEP .GE. TIME2SEC( TSTEP( 1 ) ) ) THEN IF ( .NOT. CURRSTEP( JDATE, JTIME, STDATE, STTIME, TSTEP( 1 ), & MDATE, MTIME ) ) THEN XMSG = 'Cannot get step date and time' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT3 ) END IF CALL NEXTIME( MDATE, MTIME, TSTEP( 1 ) ) DO V = 1, NSSDIAG DO R = 1, NROWS DO C = 1, NCOLS WRSS( C,R ) = SSBF( V,C,R ) / FLOAT( WSTEP ) END DO END DO IF ( .NOT. WRITE3( CTM_SSEMIS_1, WRSS_SPC( V ), & MDATE, MTIME, WRSS ) ) THEN XMSG = 'Could not write ' // CTM_SSEMIS_1 // ' file' CALL M3EXIT( PNAME, MDATE, MTIME, XMSG, XSTAT1 ) END IF END DO WRITE( LOGDEV, '( /5X, 3( A, :, 1X ), I8, ":", I6.6 )' ) & 'Timestep written to', CTM_SSEMIS_1, & 'for date and time', MDATE, MTIME WSTEP = 0 SSBF = 0.0 END IF END IF ! SSEMDIAG #endif RETURN END SUBROUTINE GET_SSEMIS END MODULE SSEMIS ================================================ FILE: CCTM/src/emis/emis/STK_EMIS.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: MODULE STK_EMIS C----------------------------------------------------------------------- C Function: stack emissions by source from stack emissions file and C 3d point source emissions C Revision History: C 16 Jan 2007 J.Young: initial implementation C 16 Feb 2011 S.Roselle: replaced I/O API include files with UTILIO_DEFN C 30 Apr 2016 J.Young: add multiple fire source capability, in affiliation with C Yongtao Hu (Georgia Tech) C----------------------------------------------------------------------- USE UDTYPES, ONLY: RARRY1, CARRY1 USE DESID_VARS IMPLICIT NONE INTEGER, ALLOCATABLE, SAVE :: NSRC_EMIS( : ) ! no. of pt sources INTEGER, ALLOCATABLE, SAVE :: NVARS_EMIS( : ) ! no. of species INTEGER, PARAMETER :: NVARS_FIRE = 1 ! default LOGICAL, ALLOCATABLE, SAVE :: FIREFLAG( : ) ! which is the fire file? TYPE( RARRY1 ), ALLOCATABLE, SAVE :: STKEMIS( : ) ! stack emissions [mol/s] TYPE( CARRY1 ), ALLOCATABLE, SAVE :: STKSPC( : ) ! emitted species names TYPE( RARRY1 ), ALLOCATABLE, SAVE :: FIREVAR( : ) ! fire variables, just H-Flux REAL, ALLOCATABLE, SAVE :: STKBUFF( : ) INTEGER FGRPS CONTAINS C----------------------------------------------------------------------- FUNCTION STK_EMIS_INIT ( STKENAME, JDATE, JTIME ) RESULT ( SUCCESS ) USE UTILIO_DEFN USE AERO_DATA, ONLY : MGPG, GPKG #ifdef mpas USE mio_module #endif IMPLICIT NONE CHARACTER( 16 ), INTENT( IN ) :: STKENAME( : ) ! stack groups emis file names INTEGER, INTENT( IN ) :: JDATE, JTIME LOGICAL SUCCESS INTEGER I, J, N, NGRPS, LEN1, LEN2, ISRM, X, loc_sdate, & loc_nsrcs, loc_nvars, loc integer :: loc_tflag(2), floc character (16), allocatable :: loc_vname(:), loc_units(:) INTEGER ASTAT CHARACTER( 96 ) :: XMSG = ' ' CHARACTER( 16 ) :: PNAME = 'STK_EMIS_INIT' CHARACTER( 16 ) :: UNITSCK SUCCESS = .TRUE. NGRPS = SIZE( STKENAME ) FGRPS = NGRPS ALLOCATE ( NSRC_EMIS( NGRPS ), STAT = ASTAT ) CALL CHECKMEM( ASTAT, 'NSRC_EMIS', PNAME ) ALLOCATE ( NVARS_EMIS( NGRPS ), STAT = ASTAT ) CALL CHECKMEM( ASTAT, 'NVARS_EMIS', PNAME ) ALLOCATE ( STKEMIS( NGRPS ), STAT = ASTAT ) CALL CHECKMEM( ASTAT, 'STKEMIS', PNAME ) ALLOCATE ( STKSPC( NGRPS ), STAT = ASTAT ) CALL CHECKMEM( ASTAT, 'STKSPC', PNAME ) ALLOCATE ( FIREFLAG( NGRPS ), STAT = ASTAT ) CALL CHECKMEM( ASTAT, 'FIREFLAG', PNAME ) FIREFLAG = .FALSE. ! array ALLOCATE ( FIREVAR( FGRPS ), STAT = ASTAT ) CALL CHECKMEM( ASTAT, 'FIREVAR', PNAME ) DO N = 1, NGRPS ISRM = MAP_PTtoISRM( N ) #ifdef mpas floc = mio_search (STKENAME( N )) call mio_time_format_conversion (mio_file_data(floc)%timestamp(1), loc_tflag(1), loc_tflag(2)) loc_sdate = loc_tflag(1) loc_nsrcs = mio_file_data(floc)%gl_nrows loc_nvars = mio_file_data(floc)%nvars allocate (loc_vname(loc_nvars), loc_units(loc_nvars), stat=astat) loc_vname = mio_file_data(floc)%var_name loc_units = mio_file_data(floc)%units #else IF ( .NOT. OPEN3( STKENAME( N ), FSREAD3, PNAME ) ) THEN XMSG = 'Could not open '// TRIM( STKENAME( N ) ) // ' file' CALL M3MESG( XMSG ) SUCCESS = .FALSE.; RETURN END IF IF ( .NOT. DESC3( STKENAME( N ) ) ) THEN XMSG = 'Could not get ' // TRIM( STKENAME( N ) ) // ' file description' CALL M3MESG( XMSG ) SUCCESS = .FALSE.; RETURN END IF ! Each file will use the default jdate, unless specified by the user ! that the file is a representative day file loc_sdate = JDATE IF ( DESID_STREAM_SYM_DATE( ISRM ) ) loc_sdate = SDATE3D loc_nsrcs = NROWS3D loc_nvars = NVARS3D allocate (loc_vname(loc_nvars), loc_units(loc_nvars), stat=astat) loc_vname = vname3d(1:loc_nvars) loc_units = units3d(1:loc_nvars) #endif DESID_STREAM_DATE( ISRM ) = loc_sdate NSRC_EMIS( N ) = loc_nsrcs NVARS_EMIS( N ) = loc_nvars LEN1 = NSRC_EMIS( N ) LEN2 = NVARS_EMIS( N ) DO I = 1, LEN2 ! Use HFLUX to determine Fire sources in PT3D_DEFN via ! the FIRENAM variable IF ( loc_vname( I ) .EQ. 'HFLUX' ) THEN FIREFLAG( N ) = .TRUE. DESID_STREAM_FIRE( ISRM ) = .TRUE. END IF END DO IF ( FIREFLAG( N ) ) THEN ! subtract off 'HFLUX' LEN2 = LEN2 - NVARS_FIRE NVARS_EMIS( N ) = LEN2 END IF STKEMIS( N )%LEN = LEN1 ALLOCATE ( STKEMIS( N )%ARRY( LEN1 ), STAT = ASTAT ) CALL CHECKMEM( ASTAT, 'STKEMIS', PNAME ) STKEMIS( N )%ARRY = 0.0 ! array DESID_EMVAR( ISRM )%LEN = LEN2 ALLOCATE ( DESID_EMVAR( ISRM )%ARRY( LEN2 ), STAT = ASTAT ) ALLOCATE ( DESID_EMVAR( ISRM )%UNITS( LEN2 ), STAT = ASTAT ) CALL CHECKMEM( ASTAT, 'DESID_EMVAR', PNAME ) IF ( FIREFLAG( N ) ) THEN ! subtract and save off 'HFLUX' ALLOCATE ( FIREVAR( N )%ARRY( LEN1 ), STAT = ASTAT ) CALL CHECKMEM( ASTAT, 'FIREVAR', PNAME ) I = 0 DO J = 1, loc_nvars IF ( loc_vname( J ) .NE. 'HFLUX' ) THEN I = I + 1 DESID_EMVAR( ISRM )%ARRY( I ) = loc_vname( J ) DESID_EMVAR( ISRM )%UNITS( I )= loc_units( J ) END IF END DO FIREVAR( N )%LEN = LEN1 ELSE DO J = 1, DESID_EMVAR( ISRM )%LEN DESID_EMVAR( ISRM )%ARRY( J ) = loc_vname( J ) DESID_EMVAR( ISRM )%UNITS( J )= loc_units( J ) END DO END IF deallocate (loc_vname, loc_units) END DO ALLOCATE( STKBUFF( MAXVAL( NSRC_EMIS(:) ) ) ) CALL CHECKMEM( ASTAT, 'NSRC_EMIS', PNAME ) RETURN END FUNCTION STK_EMIS_INIT END MODULE STK_EMIS ================================================ FILE: CCTM/src/emis/emis/STK_PRMS.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: MODULE STK_PRMS C----------------------------------------------------------------------- C Function: stack parameters from stack groups file C Revision History: C 29 Dec 2006 J.Young: initial implementation C 16 Feb 2011 S.Roselle: replaced I/O API include files with UTILIO_DEFN C 3 Nov 2011 D.Wong: fix source location within grid determination bug C 30 Apr 2016 J.Young: add multiple fire source capability, in affiliation with C Yongtao Hu (Georgia Tech) C 01 Feb 2019 D.Wong: Implemented centralized I/O approach and moved some of C data declaration in this module to stack_group_data_module C (model_data_module.f) to avoid cyclic dependence C----------------------------------------------------------------------- USE UDTYPES, ONLY: IARRY1, RARRY1 IMPLICIT NONE INTEGER, ALLOCATABLE, SAVE :: MY_NSRC( : ) TYPE( IARRY1 ), ALLOCATABLE, SAVE :: SOURCE ( : ) ! my stack source index TYPE( IARRY1 ), ALLOCATABLE, SAVE :: MY_STKCOL ( : ) TYPE( IARRY1 ), ALLOCATABLE, SAVE :: MY_STKROW ( : ) TYPE( IARRY1 ), ALLOCATABLE, SAVE :: MY_STKID ( : ) TYPE( RARRY1 ), ALLOCATABLE, SAVE :: MY_XLOCA ( : ) ! X-location [grid coord] TYPE( RARRY1 ), ALLOCATABLE, SAVE :: MY_YLOCA ( : ) ! Y-location [grid coord] INTEGER, ALLOCATABLE, SAVE :: MY_STRT_SRC( : ) INTEGER, ALLOCATABLE, SAVE :: MY_END_SRC ( : ) REAL, ALLOCATABLE, SAVE :: MY_STKBUFF( : ) INTEGER, ALLOCATABLE, SAVE :: MY_COLBUFF( : ) INTEGER, ALLOCATABLE, SAVE :: MY_ROWBUFF( : ) integer, allocatable :: my_nsrc_index(:,:) ! point source location in the file belong to a processor integer, allocatable :: my_nsrc_mesh_index(:,:) ! point source position w.r.t. sub-domain mesh point sequence real, allocatable :: my_nsrc_pressure(:,:,:) CONTAINS FUNCTION STK_PRMS_INIT ( STKPRMS ) RESULT ( SUCCESS ) USE HGRD_DEFN ! horizontal domain specifications USE UTILIO_DEFN USE stack_group_data_module USE RUNTIME_VARS IMPLICIT NONE CHARACTER( 16 ), INTENT( IN ) :: STKPRMS( : ) ! stack groups file names LOGICAL SUCCESS INTEGER, ALLOCATABLE :: LOC_MAP( : ) INTEGER SCOL, ECOL, SROW, EROW INTEGER C, R, STRT_SRC, END_SRC, MY_DELTA, N, NGRPS REAL X, Y INTEGER M, S, SRC, V, ASTAT CHARACTER( 300 ) :: XMSG = ' ' CHARACTER( 16 ) :: PNAME = 'STK_PRMS_INIT' C----------------------------------------------------------------------- SUCCESS = .TRUE. NGRPS = SIZE( STKPRMS ) ALLOCATE ( MY_NSRC( NGRPS ), STAT = ASTAT ) CALL CHECKMEM( ASTAT, 'MY_NSRC', PNAME ) ALLOCATE ( SOURCE( NGRPS ), STAT = ASTAT ) CALL CHECKMEM( ASTAT, 'SOURCE', PNAME ) ALLOCATE ( MY_STKCOL( NGRPS ), STAT = ASTAT ) CALL CHECKMEM( ASTAT, 'MY_STKCOL', PNAME ) ALLOCATE ( MY_STKROW( NGRPS ), STAT = ASTAT ) CALL CHECKMEM( ASTAT, 'MY_STKROW', PNAME ) ALLOCATE ( MY_STKID( NGRPS ), STAT = ASTAT ) CALL CHECKMEM( ASTAT, 'MY_STKID', PNAME ) ALLOCATE ( MY_XLOCA( NGRPS ), STAT = ASTAT ) CALL CHECKMEM( ASTAT, 'MY_XLOCA', PNAME ) ALLOCATE ( MY_YLOCA( NGRPS ), STAT = ASTAT ) CALL CHECKMEM( ASTAT, 'MY_YLOCA', PNAME ) ALLOCATE ( MY_STRT_SRC( NGRPS ), STAT = ASTAT ) CALL CHECKMEM( ASTAT, 'MY_STRT_SRC', PNAME ) ALLOCATE ( MY_END_SRC( NGRPS ), STAT = ASTAT ) CALL CHECKMEM( ASTAT, 'MY_END_SRC', PNAME ) ALLOCATE ( STKDIAM( NGRPS ), STAT = ASTAT ) CALL CHECKMEM( ASTAT, 'STKDIAM', PNAME ) ALLOCATE ( STKHT( NGRPS ), STAT = ASTAT ) CALL CHECKMEM( ASTAT, 'STKHT', PNAME ) ALLOCATE ( STKTK( NGRPS ), STAT = ASTAT ) CALL CHECKMEM( ASTAT, 'STKTK', PNAME ) ALLOCATE ( STKVEL( NGRPS ), STAT = ASTAT ) CALL CHECKMEM( ASTAT, 'STKVEL', PNAME ) ALLOCATE ( ACRES_BURNED( NGRPS ), STAT = ASTAT ) CALL CHECKMEM( ASTAT, 'ACRES_BURNED', PNAME ) MY_NSRC = 0 #ifndef mpas M = MYPE + 1 SCOL = COLSX_PE( 1,M ); ECOL = COLSX_PE( 2,M ) SROW = ROWSX_PE( 1,M ); EROW = ROWSX_PE( 2,M ) DO N = 1, NGRPS ! IF ( .NOT. OPEN3( STKPRMS( N ), FSREAD3, PNAME ) ) THEN ! XMSG = 'Could not open '// TRIM( STKPRMS( N ) ) // ' file' ! CALL M3MESG( XMSG ) ! SUCCESS = .FALSE.; RETURN ! END IF ! IF ( .NOT. DESC3( STKPRMS( N ) ) ) THEN ! XMSG = 'Could not get ' // TRIM( STKPRMS( N ) ) // ' file description' ! CALL M3MESG( XMSG ) ! SUCCESS = .FALSE.; RETURN ! END IF ALLOCATE ( LOC_MAP( NSRC( N ) ), STAT = ASTAT ) CALL CHECKMEM( ASTAT, 'LOC_MAP', PNAME ) SOURCE( N )%LEN = NSRC( N ) ALLOCATE ( SOURCE( N )%ARRY( NSRC( N ) ), STAT = ASTAT ) CALL CHECKMEM( ASTAT, 'SOURCE', PNAME ) MY_STKCOL( N )%LEN = NSRC( N ) ALLOCATE ( MY_STKCOL( N )%ARRY( NSRC( N ) ), STAT = ASTAT ) CALL CHECKMEM( ASTAT, 'MY_STKCOL', PNAME ) MY_STKROW( N )%LEN = NSRC( N ) ALLOCATE ( MY_STKROW( N )%ARRY( NSRC( N ) ), STAT = ASTAT ) CALL CHECKMEM( ASTAT, 'MY_STKROW', PNAME ) MY_STKID( N )%LEN = NSRC( N ) ALLOCATE ( MY_STKID( N )%ARRY( NSRC( N ) ), STAT = ASTAT ) CALL CHECKMEM( ASTAT, 'MY_STKID', PNAME ) MY_NSRC( N ) = 0 STRT_SRC = 0; END_SRC = 0 DO S = 1, NSRC( N ) X = ( XLOCA( S, N ) - REAL( XORIG_GD, 4 ) ) / REAL( XCELL_GD, 4 ) IF ( X .GE. 0.0 ) THEN C = 1 + INT( X ) ELSE C = -1 - INT( -X ) END IF IF ( C .GE. SCOL .AND. C .LE. ECOL ) THEN Y = ( YLOCA( S, N ) - REAL( YORIG_GD, 4 ) ) / REAL( YCELL_GD, 4 ) IF ( Y .GE. 0.0 ) THEN R = 1 + INT( Y ) ELSE R = -1 - INT( -Y ) END IF IF ( R .GE. SROW .AND. R .LE. EROW ) THEN IF ( STRT_SRC .LE. 0 ) STRT_SRC = S END_SRC = S MY_NSRC( N ) = MY_NSRC( N ) + 1 LOC_MAP( MY_NSRC( N ) ) = S SOURCE( N )%ARRY( MY_NSRC( N ) ) = S - STRT_SRC + 1 !** MY_STKCOL( N )%ARRY( MY_NSRC( N ) ) = C - SCOL + 1 MY_STKROW( N )%ARRY( MY_NSRC( N ) ) = R - SROW + 1 MY_STKID( N )%ARRY( MY_NSRC( N ) ) = STKID( S, N ) END IF END IF END DO C** SOURCE is the mapping from STKEMIS read by INTERPX starting at one. C INTERPX reads a contiguous set from MY_STRT_SRC to MY_END_SRC into STKEMIS. C So MY_STRT_SRC maps into the first index of STKEMIS. C SOURCE must map skips in data between MY_STRT_SRC and MY_END_SRC. C SOURCE maps STKEMIS read from stk emis file to local STKEM in GET_PT3D_EMIS. MY_STRT_SRC( N ) = STRT_SRC MY_END_SRC( N ) = END_SRC MY_DELTA = END_SRC - STRT_SRC + 1 STKDIAM( N )%LEN = MY_DELTA ALLOCATE ( STKDIAM( N )%ARRY( MY_DELTA ), STAT = ASTAT ) CALL CHECKMEM( ASTAT, 'STKDIAM', PNAME ) STKHT( N )%LEN = MY_DELTA ALLOCATE ( STKHT( N )%ARRY( MY_DELTA ), STAT = ASTAT ) CALL CHECKMEM( ASTAT, 'STKHT', PNAME ) STKTK( N )%LEN = MY_DELTA ALLOCATE ( STKTK( N )%ARRY( MY_DELTA ), STAT = ASTAT ) CALL CHECKMEM( ASTAT, 'STKTK', PNAME ) STKVEL( N )%LEN = MY_DELTA ALLOCATE ( STKVEL( N )%ARRY( MY_DELTA ), STAT = ASTAT ) CALL CHECKMEM( ASTAT, 'STKVEL', PNAME ) IF ( FIRE_ON( N ) ) THEN ACRES_BURNED( N )%LEN = MY_DELTA ALLOCATE ( ACRES_BURNED( N )%ARRY( MY_DELTA ), STAT = ASTAT ) CALL CHECKMEM( ASTAT, 'ACRES_BURNED', PNAME ) END IF MY_XLOCA( N )%LEN = MY_NSRC( N ) ALLOCATE ( MY_XLOCA( N )%ARRY( MY_NSRC( N ) ), STAT = ASTAT ) CALL CHECKMEM( ASTAT, 'MY_XLOCA', PNAME ) MY_XLOCA( N )%ARRY = 0.0 ! array MY_YLOCA( N )%LEN = MY_NSRC( N ) ALLOCATE ( MY_YLOCA( N )%ARRY( MY_NSRC( N ) ), STAT = ASTAT ) CALL CHECKMEM( ASTAT, 'MY_YLOCA', PNAME ) MY_YLOCA( N )%ARRY = 0.0 ! array IF ( MY_NSRC( N ) .LE. 0 ) THEN MY_DELTA = 0 MY_XLOCA( N )%LEN = MY_NSRC( N ) MY_YLOCA( N )%LEN = MY_NSRC( N ) END IF ! MY_NSRC( N ) .GT. 0 DO S = 1, MY_NSRC( N ) SRC = LOC_MAP( S ) MY_XLOCA( N )%ARRY( S ) = XLOCA( SRC, N ) MY_YLOCA( N )%ARRY( S ) = YLOCA( SRC, N ) END DO DEALLOCATE ( LOC_MAP ) WRITE( XMSG, '(A,I3,A,I7)'), & 'Number of Point Sources from ',N,' equals ', MY_NSRC(N) CALL LOG_MESSAGE( LOGDEV, XMSG ) END DO ! NGRPS WRITE( XMSG, '(A,I7)'), & 'Number of Total Point Sources on this sub-domain equals ', SUM(MY_NSRC(:)) CALL LOG_MESSAGE( LOGDEV, XMSG ) CALL LOG_MESSAGE( LOGDEV, '' ) XMSG = 'Note: Large numbers of point sources (e.g. > 100,000 on any sub-domain '// & 'processor) will cause noticeable runtime penalties. Users are advised to '// & 'limit the maximum number of point sources on any sub-domain to below this '// & 'threshold.' CALL LOG_MESSAGE( LOGDEV, XMSG ) ALLOCATE( MY_STKBUFF( MAXVAL( MY_NSRC(:) ) ) ) CALL CHECKMEM( ASTAT, 'MY_STKBUFF', PNAME ) ALLOCATE( MY_COLBUFF( MAXVAL( MY_NSRC(:) ) ) ) CALL CHECKMEM( ASTAT, 'MY_COLBUFF', PNAME ) ALLOCATE( MY_ROWBUFF( MAXVAL( MY_NSRC(:) ) ) ) CALL CHECKMEM( ASTAT, 'MY_ROWBUFF', PNAME ) #endif RETURN END FUNCTION STK_PRMS_INIT END MODULE STK_PRMS ================================================ FILE: CCTM/src/emis/emis/UDTYPES.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: MODULE UDTYPES C----------------------------------------------------------------------- C Function: User-defined types C Revision History: C 21 Nov 2007 J.Young: initial implementation C 22 Dec 2023 C.Nolte: changed from pointers to allocatable arrays, C removed unused types C----------------------------------------------------------------------- IMPLICIT NONE TYPE :: IARRY1 INTEGER, ALLOCATABLE :: ARRY( : ) INTEGER :: LEN END TYPE IARRY1 TYPE :: RARRY1 REAL, ALLOCATABLE :: ARRY( : ) INTEGER :: LEN END TYPE RARRY1 TYPE :: CARRY1 CHARACTER( 16 ), ALLOCATABLE :: ARRY( : ) CHARACTER( 16 ), ALLOCATABLE :: UNITS( : ) INTEGER :: LEN END TYPE CARRY1 TYPE :: LARRY1 LOGICAL, ALLOCATABLE :: ARRY( : ) INTEGER :: LEN END TYPE LARRY1 TYPE :: PTMET_TYPE INTEGER :: LEN1, LEN2 C Allocatable per-source meteorology variables: REAL, ALLOCATABLE :: HFX( : ) ! sensible heat flux [watts/m**2] REAL, ALLOCATABLE :: HMIX( : ) ! mixing height [m] REAL, ALLOCATABLE :: TSFC( : ) ! surface temperature [degK] REAL, ALLOCATABLE :: USTAR( : ) ! friction velocity [m/s] REAL, ALLOCATABLE :: PRSFC( : ) ! surface pressure [Pa] C Allocatable temporary per-layer variables from 1:EMLAYS: REAL, ALLOCATABLE :: WSPD( : ) ! wind speed [m/s] REAL, ALLOCATABLE :: DTHDZ( : ) ! virtual pot temp gradient [degK/m] C Allocatable temporary per-layer variables from 0:EMLAYS: REAL, ALLOCATABLE :: PRESF( : ) ! pressure at full-levels REAL, ALLOCATABLE :: ZZF( : ) ! per src elevn at full-levels C Allocatable per-source and per-layer meteorology variables: C (Dimensioned by layers, then number of sources) REAL, ALLOCATABLE :: DDZF ( :,: ) ! 1/( ZF(L) - ZF(L-1) ) REAL, ALLOCATABLE :: PRES ( :,: ) ! pressure [Pa] REAL, ALLOCATABLE :: DENS ( :,: ) ! air density [kg/m**3] REAL, ALLOCATABLE :: QV ( :,: ) ! moisture mixing ratio [kg/kg] REAL, ALLOCATABLE :: TA ( :,: ) ! temperature [degK] REAL, ALLOCATABLE :: UWIND( :,: ) ! x-component wind speed [m/s] REAL, ALLOCATABLE :: VWIND( :,: ) ! y-component wind speed [m/s] REAL, ALLOCATABLE :: ZF ( :,: ) ! full layer height [m] REAL, ALLOCATABLE :: ZH ( :,: ) ! mid layer height [m] REAL, ALLOCATABLE :: ZSTK ( :,: ) ! ZF( L,S ) - STKHT(S) [m] END TYPE PTMET_TYPE END MODULE UDTYPES ================================================ FILE: CCTM/src/emis/emis/biog_emis_param_module.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! !------------------------------------------------------------------------! ! This module contains key component from BIOG_EMIS.F to facilitate ! centralized I/O implementation by avoiding cyclic data dependence ! Revision History: ! 01 Feb 2019 D.Wong initial implementation, !------------------------------------------------------------------------! module biog_emis_param_module ! Former include file B3V12DIMS3.EXT ! dimensioning parameters for BEIS v3.12 INTEGER, PARAMETER :: NSEF = 35 ! # of em class in Summer emis factor table INTEGER, PARAMETER :: NSEASONS = 2 ! number of seasons modeled (2 for now) INTEGER, PARAMETER :: NLAI = 3 ! no. of different LAIs (ISOP and MBO) INTEGER, PARAMETER :: NSUMMER = 1 ! summer flag INTEGER, PARAMETER :: NWINTER = 2 ! winter flag ! Names for BEIS species, emitted model species ! DO NOT CHANGE THE ORDER OF THESE ARRAYS CHARACTER( 5 ), PARAMETER :: BIOTYPES( NSEF ) = & (/ 'ISOP ', 'MBO ', 'METH ', & 'APIN ', 'BPIN ', 'D3CAR', 'DLIM ', & 'CAMPH', 'MYRC ', 'ATERP', 'BPHE ', & 'SABI ', 'PCYM ', 'OCIM ', 'ATHU ', & 'TRPO ', 'GTERP', 'ETHE ', 'PROPE', & 'ETHO ', 'ACET ', 'HEXA ', 'HEXE ', & 'HEXY ', 'FORM ', 'ACTAL', 'BUTE ', & 'ETHA ', 'FORAC', 'ACTAC', 'BUTO ', & 'CO ', 'ORVOC', 'SESQT', & 'NO ' /) CHARACTER( 5 ), PARAMETER :: LAITYPES( NLAI ) = & (/ 'ISOP ', 'MBO ', 'METH ' /) CHARACTER( 1 ), PARAMETER :: SEASON( NSEASONS ) = & (/ 'S', 'W' /) end module biog_emis_param_module ================================================ FILE: CCTM/src/emis/emis/desid_module.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: MODULE DESID_MODULE C----------------------------------------------------------------------- C Function: Detailed Emissions, Scaling, Isolation and Diagnostic Module C (DESID) for CMAQ. C Revision History: C 28 Jul 2006 J.Young: initial implementation C 18 Aug 2007 J.Young: move beis part to separate module; add plume rise C 23 Sep 2009 B.Hutzell: modified algorithm that loads gas emissions from point C sources into VDEMIS array to enable multi-use of an emission species C 26 Jan 2010 J.Young: fix bug overwriting point source layer 1 NH3; inline rdemis C 07 Jan 2011 B.Hutzell: updated for namelist definition of model species C 16 Feb 2011 S.Roselle: replaced I/O API include files with UTILIO_DEFN; C removed deprecated TRIMLEN C 6 Apr 2011 J.Young, R.Pinder: add lightning NO emissions capability C 11 May 2011 D.Wong: incorporated twoway model implementation C 5 Jun 2012 J.Bash: Added support for NH3 bidirectional exchange. Fertilizer C sector emissions are subtracted from the total NH3 emissions C if the CTM_ABFLUX flag is set C 07 Nov 14 J.Bash: Updated for the ASX_DATA_MOD shared data module. C 24 Feb 16 B.Murphy: Generalize scaling of point source species based on C mapping model species, not point source species C 03 Mar 16 B.Gantt/G. Sarwar: incorporated halogen emissions C 08 Aug 2016 B.Murphy: Neglect fire emissions for pcVOC C 12 Jan 2017 B.Murphy: Remove warning when model species are not C read in correctly. Invoke error and model stop when model C species are not found on any emission file C 16 NOv 2018 S.Napelenok: ISAM implementation C 01 Feb 2019 D.Wong: Implemented centralized I/O approach, removed all MY_N C clauses, replaced IOS with LOGDEV when calling GET_ENV C 15 May 2019 D.Wong: Put the check for using marine gas emission or not in RUNTIME_VAR.F C 4 Oct 2019 D.Wong: fixed the time advancement, NEXTIME, for a multi-day run in subroutine C GRIDEMIS C 22 Nov 2019 F. Sidi: Re-introduced date override variable for representative C Day Emissions C 16 Dec 2019 S.L.Napelenok: ddm-3d implementation for version 5.3.1 C 6 Jul 2021 D.Wong: fixed time marching through a day line during simulation w.r.t. C representative Day Emissions in subroutine GR3D C----------------------------------------------------------------------- USE RUNTIME_VARS USE GRID_CONF ! horizontal & vertical domain specifications USE DESID_VARS USE DESID_UTIL USE VDIFF_MAP, ONLY : N_SPC_DIFF USE UTILIO_DEFN IMPLICIT NONE PUBLIC DESID_INIT, DESID_DRIVER PRIVATE CONTAINS C----------------------------------------------------------------------- FUNCTION DESID_INIT ( JDATE, JTIME, TSTEP ) RESULT ( SUCCESS ) USE CGRID_SPCS ! CGRID mechanism species USE BEIS_DEFN ! biogenic emissions USE MEGAN_DEFN ! biogenic emissions from MEGAN USE MGEMIS ! marine gas emissions USE LTNG_DEFN ! NO emissions from lightning strikes USE PT3D_DEFN ! plume rise emissions USE UTILIO_DEFN ! I/O API USE AERO_EMIS ! inherits GRID_CONF !USE AERO_DATA ! access subroutine map_pmemis USE CENTRALIZED_IO_MODULE, only : interpolate_var USE ASX_DATA_MOD, only: MET_DATA #ifdef isam USE SA_DEFN, ONLY : SA_VDEMIS_DIFF, NTAG_SA, SA_VDEMIS_CONV, NSPC_SA, & SA_VDEMIS_CONV_OTHER #endif #ifdef sens USE DDM3D_DEFN, ONLY: NP, NPMAX, SVDEMIS_DIFF #endif #ifdef mpas USE COUPLER_MODULE, ONLY : cell_thickness, cell_vol, MPAS_CELL_AREA => CELL_AREA #endif IMPLICIT NONE C Includes: INCLUDE SUBST_CONST ! constants C Arguments: INTEGER, INTENT( IN ) :: JDATE, JTIME, TSTEP ! TSTEP is output time step (HHMMSS) LOGICAL :: SUCCESS C Parameters: C Local Variables: CHARACTER( 16 ) :: PNAME = 'DESID_INIT' CHARACTER( 80 ) :: VARDESC ! env variable description CHARACTER( 120 ) :: XMSG = ' ' INTEGER V, L, STATUS, ISRM C----------------------------------------------------------------------- SUCCESS = .TRUE. ! Initialize Emission Variable Molecular Weights CALL INIT_DESID_EMVAR_MW() ! Define Projected Grid Cell Areas ALLOCATE( CELLAREA( NCOLS,NROWS ),STAT=STATUS ) CALL CHECKMEM( STATUS, 'CELLAREA', PNAME ) ALLOCATE( CELLHGT( NCOLS, NROWS, NLAYS ),STAT=STATUS ) CALL CHECKMEM( STATUS, 'CELLHGT', PNAME ) ALLOCATE( CELLVOL( NCOLS,NROWS,NLAYS ),STAT=STATUS ) CALL CHECKMEM( STATUS, 'CELLVOL', PNAME ) #ifdef mpas CELLAREA(:,:) = MPAS_CELL_AREA(:,:) CELLHGT( :,1,: ) = cell_thickness(:,1,:) CELLVOL( :,1,: ) = cell_vol(:,1,:) #else IF ( GDTYP_GD .EQ. LATGRD3 ) THEN DX1 = DG2M * XCELL_GD ! in m. DX2 = DG2M * YCELL_GD & * COS( PI180*( YORIG_GD + & YCELL_GD*FLOAT( GL_NROWS/2 )))! in m. ELSE DX1 = XCELL_GD ! in m. DX2 = YCELL_GD ! in m. END IF CELLAREA(:,:) = REAL( DX1 * DX2, 4 ) ! Get height of grid cell in each layer in sigma coordinates ! Multiply by grid area [m2] to obtain grid volume !cellhgt = Met_Data%DZF ! for spatially varying height DO L = 1, NLAYS CELLHGT( :,:,L ) = X3FACE_GD( L ) - X3FACE_GD( L-1 ) CELLVOL( :,:,L ) = CELLHGT( :,:,L ) * CELLAREA(:,:) END DO #endif ! REMINDER: CELLAREA is projected grid cell area (e.g. 12 x 12 ! km^2). To get real area on the Earth for a conformal grid, you ! should divide CELLAREA by the MAP SCALE FACTOR squared, typically ! stored in CMAQ as MSFX2 C Retrieve Number of Emission Streams of Various Types (sectors) CALL DESID_INIT_STREAMS( JDATE, JTIME ) IF ( DESID_N_SRM .EQ. 0 ) THEN XMSG = 'No Emissions Streams Have Been Selected.' CALL M3WARN ( PNAME, JDATE, JTIME, XMSG ) SUCCESS = .TRUE.; RETURN END IF C Open Area Emissions files CALL DESID_OPEN_GR3D ( JDATE, JTIME ) C Get number of emissions layers IF ( DESID_MAXLAYS .LE. 0 ) THEN ! Find The Largest Gridded Emission Layer And Let That be ! the initial top. DESID_LAYS = MAXVAL( DESID_GRID_LAYS(:) ) ! If there are 3D (inline point or Lightning) sources, ! revise the top to be the model top. IF ( NPTGRPS .GT. 0 .OR. LTNG_NO ) DESID_LAYS = NLAYS ! Make sure the top is not greater than the model top DESID_LAYS = MAX( MIN( DESID_LAYS, NLAYS ), 1 ) ELSE ! Make sure the top is not greater than the model top DESID_LAYS = MIN( DESID_MAXLAYS, NLAYS ) END IF WRITE( LOGDEV,1009 ) DESID_LAYS, NLAYS 1009 FORMAT( 5X, 'Number of Emissions Layers: ', I3 & / 5X, 'out of total Number of Model Layers:', I3 ) C Initialize 3D Point Source Emissions CALL LOG_SUBHEADING( LOGDEV, 'Initialize Point Emissions' ) IF ( .NOT. PT3D_INIT( JDATE, JTIME, TSTEP ) ) THEN XMSG = 'Failure initializing plume rise emissions module' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF IF ( BIOGEMIS_MEGAN ) THEN C Initialize Online Biogenic Emissions, MEGAN CALL LOG_SUBHEADING( LOGDEV, 'Initialize BEIS Biogenic Emissions' ) IF ( .NOT. MEGAN_INIT( JDATE, JTIME, TSTEP ) ) THEN XMSG = 'Failure initializing biogenics emissions module' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF END IF IF ( BIOGEMIS_BEIS ) THEN C Initialize Online Biogenic Emissions, BEIS CALL LOG_SUBHEADING( LOGDEV, 'Initialize MEGAN Biogenic Emissions' ) IF ( .NOT. BEIS_INIT( JDATE, JTIME, TSTEP ) ) THEN XMSG = 'Failure initializing biogenics emissions module' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF END IF C Initialize Online Marine Gas Emissions CALL LOG_SUBHEADING( LOGDEV, 'Initialize Marine Gas Emissions' ) IF ( .NOT. MGEMIS_INIT( JDATE, JTIME, TSTEP ) ) THEN XMSG = 'Failure initializing marine gas emissions module' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF C Initialize Online Lightning NOx Emissions CALL LOG_SUBHEADING( LOGDEV, 'Initialize Lightning NO Emissions' ) IF ( .NOT. LTNG_INIT( JDATE, JTIME, TSTEP ) ) THEN XMSG = 'Failure initializing lightning emissions module' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF C Initialize Aerosol Emissions CALL LOG_SUBHEADING( LOGDEV,'Process Aerosol Emissions' ) IF ( .NOT. AERO_EMIS_INIT( JDATE, JTIME, TSTEP ) ) THEN XMSG = 'Failure initializing aerosol emissions module' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF C Map the Emission Variables Available on the Input Files To the C CMAQ Species Identified by the User via the Namelists and Stop the model C or Print Warnings if Mistakes Are Made. CALL DESID_PROCESS_RULES( JDATE, JTIME ) CALL DESID_INIT_DIAG #ifndef mpas IF ( IO_PE_INCLUSIVE ) CALL DESID_OPEN_DIAG( JDATE, JTIME, TSTEP ) #else CALL DESID_OPEN_DIAG( JDATE, JTIME, TSTEP ) #endif C Allocate Space for Master Emissions Computation ALLOCATE ( VDEMIS_DIFF( N_SPC_DIFF,DESID_LAYS,NCOLS,NROWS ),STAT = STATUS ) IF ( STATUS .NE. 0 ) THEN XMSG = 'VDEMIS_DIFF memory allocation failed' CALL M3WARN ( PNAME, JDATE, JTIME, XMSG ) SUCCESS = .FALSE.; RETURN END IF #ifdef isam ALLOCATE ( SA_VDEMIS_DIFF( NSPC_SA, DESID_LAYS,NCOLS,NROWS, NTAG_SA ), & SA_VDEMIS_CONV( N_SPC_DIFF,DESID_LAYS,NCOLS,NROWS, NTAG_SA ), & SA_VDEMIS_CONV_OTHER( N_SPC_DIFF,DESID_LAYS,NCOLS,NROWS ), & STAT = STATUS ) IF ( STATUS .NE. 0 ) THEN XMSG = 'SA_VDEMIS_DIFF memory allocation failed' CALL M3WARN ( PNAME, JDATE, JTIME, XMSG ) SUCCESS = .FALSE.; RETURN END IF #endif #ifdef sens ALLOCATE ( SVDEMIS_DIFF( N_SPC_DIFF,DESID_LAYS,NCOLS,NROWS,NPMAX ),STAT = STATUS ) IF ( STATUS .NE. 0 ) THEN XMSG = 'SVDEMIS_DIFF memory allocation failed' CALL M3WARN ( PNAME, JDATE, JTIME, XMSG ) SUCCESS = .FALSE.; RETURN END IF #endif C Return From Initialization SUCCESS = .TRUE.; RETURN END FUNCTION DESID_INIT !----------------------------------------------------------------------- SUBROUTINE DESID_DRIVER ( JDATE, JTIME, TSTEP, CGRID ) !----------------------------------------------------------------------- ! DESID_DRIVER controls whether DESID_GET_EMIS will be ! executed to process emissions for input back to vdiff or if ! it is being run in diagnostic mode to populate DESID diagnostic ! output files. ! ! In typical operation, emissions used by CMAQ are calculated at ! 1/2 time step before the output time step, meaning that any ! diagnostics output using these values would be quantitatively ! inconsistent with the emissions inputs, which are usually ! tabulated at the output time step (e.g., hourly). By allowing ! DESID_GET_EMIS to be called in diagnostic mode, with ! L_DESID_DIAG = .TRUE., DESID can recalculate emissions at ! exactly the the output time step and populate diagnostic output ! files with these values. These values are not actually used for ! emissions calculations within CMAQ. !----------------------------------------------------------------------- USE UTILIO_DEFN USE centralized_io_module #ifdef mpas use util_module, only : time2sec, nextime #endif IMPLICIT NONE INTEGER, INTENT( IN ) :: JDATE, JTIME ! date (YYYYDDD), time (HHMMSS) INTEGER, INTENT( IN ) :: TSTEP( 3 ) ! time step vector (HHMMSS) REAL, POINTER :: CGRID( :,:,:,: ) LOGICAL :: L_DESID_DIAG LOGICAL :: FIRST_TIME = .TRUE. INTEGER, SAVE :: WSTEP, MDATE, MTIME LOGICAL :: WRTIME CHARACTER( 200 ):: XMSG INTEGER :: l CALL LOG_MESSAGE( LOGDEV, 'Beginning Emissions' ) IF ( FIRST_TIME ) THEN FIRST_TIME = .FALSE. ! Initialize Diagnostic Write Counter WSTEP = 0 MDATE = STDATE MTIME = STTIME ! Execute DESID Emission Processor in Diagnostic Mode ! for the Initial Hour of the Simulation (usually 0Z) VDEMIS_DIAG = 0.0 WRITE( XMSG, '(A,I10,A,I10)' ), & ' Calling Diagnostic Emissions at Date: ',MDATE, & ' and time: ',MTIME CALL LOG_MESSAGE( LOGDEV, XMSG ) CALL DESID_GET_EMIS( MDATE, MTIME, TSTEP, CGRID, .TRUE. ) END IF ! Increment Diagnostic Counter WRTIME = .FALSE. WSTEP = WSTEP + TIME2SEC( TSTEP( 2 ) ) ! Determine whether or not this is a write step WRTIME = ( WSTEP .GE. TIME2SEC( TSTEP( 1 ) ) ) IF ( WRTIME ) THEN WSTEP = 0 CALL NEXTIME( MDATE, MTIME, TSTEP( 1 ) ) ! Execute DESID Emission Processor in Diagnostic Mode VDEMIS_DIAG = 0.0 WRITE( XMSG, '(A,I10,A,I10)' ), & ' Calling Diagnostic Emissions at Date: ',MDATE, & ' and time: ',MTIME CALL LOG_MESSAGE( LOGDEV, XMSG ) CALL LOG_MESSAGE( LOGDEV, '' ) CALL DESID_GET_EMIS( MDATE, MTIME, TSTEP, CGRID, .TRUE. ) END IF ! Execute DESID Emission Processor in Real Mode WRITE( XMSG, '(A,I10,A,I10)' ), & ' Calling Real Emissions at Date: ',JDATE, & ' and time: ',JTIME CALL LOG_MESSAGE( LOGDEV, XMSG ) CALL LOG_MESSAGE( LOGDEV, '' ) CALL DESID_GET_EMIS( JDATE, JTIME, TSTEP, CGRID, .FALSE. ) END SUBROUTINE DESID_DRIVER !----------------------------------------------------------------------- SUBROUTINE DESID_GET_EMIS ( JDATE, JTIME, TSTEP, CGRID, L_DESID_DIAG ) ! Step through all emission sub-modules for each stream ! (gridded and point offline, biog, SeaSalt, Dust, Lightning ! NO, etc.) and apply scaling factors, unit conversions, etc. ! If L_DESID_DIAG = .FALSE. then this is a standard call of ! DESID_GET_EMIS and emissions will be returned to VDIFF to ! supply the CMAQ system with emissions. If L_DESID_DIAG = ! .TRUE., then emissions are calculated and written out to ! diagnostic files but not used by VDIFF or any other part of ! CMAQ. USE CGRID_SPCS ! CGRID mechanism species USE AERO_EMIS ! inherits GRID_CONF USE BEIS_DEFN ! biogenic emissions USE MEGAN_DEFN ! biogenic emissions from MEGAN USE BIOG_EMIS, ONLY: MSPCS USE SSEMIS USE DUST_EMIS USE MGEMIS ! marine gas emissions USE PT3D_DEFN ! plume rise emissions USE LTNG_DEFN ! lightning NO emissions USE UTILIO_DEFN USE HGRD_DEFN USE ASX_DATA_MOD, ONLY: MET_DATA, GRID_DATA USE AERO_DATA, ONLY : AERONUM_MAP, AEROSRF_MAP, DUSTOUTM #ifdef isam USE SA_DEFN, ONLY : SA_VDEMIS_DIFF, ITAG, NTAG_SA, TAGSTREAMS, & STREAM_TO_TAG, OTHRTAG, TAGSTREAMS_TEMP, & TAGSTREAMS_NUM, SA_VDEMIS_CONV, & SA_VDEMIS_CONV_OTHER, & MAP_DIFFtoSA, ISAM_SPEC, NSPC_SA, & ISAMRGN_TEMP, ISAMRGN, ISAMRGN_NUM, & ISAMRGN_MAP, TAGS_PER_STREAM, & ISAM_PVO3_MAP, L_OZONE USE VDIFF_MAP, ONLY : DIFF_MAP, DIFF_SPC #endif #ifdef sens USE DDM3D_DEFN, ONLY: NP, NPMAX, SVDEMIS_DIFF, IPT, SENNUM, & S_STREAMLBL, S_NSTREAMS, IPARM, IREGION, & STREAM_TO_SENS, SENS_PER_STREAM USE VDIFF_MAP, ONLY : DIFF_MAP #endif #ifdef mpas use util_module, only : index1 #endif USE centralized_io_module IMPLICIT NONE C Includes: INCLUDE SUBST_FILES_ID ! file name parameters C Arguments: INTEGER, INTENT( IN ) :: JDATE, JTIME ! date (YYYYDDD), time (HHMMSS) INTEGER, INTENT( IN ) :: TSTEP( 3 ) ! time step vector (HHMMSS) REAL, POINTER :: CGRID( :,:,:,: ) LOGICAL, INTENT( IN ) :: L_DESID_DIAG C Local Variables: REAL DELT ! interpolation factor INTEGER C, R, L, N, S, V, ISTR, ISRM, NL, I, J ! loop induction variables INTEGER S_STRT, S_END ! substitute loop induction variables REAL, ALLOCATABLE, SAVE :: VDEMIS_READ ( :,:,:,: ) ! Emissions as they are provided by each stream REAL, ALLOCATABLE, SAVE :: VDEMIS_SCALED( :,:,:,: ) ! Emissions after user scaling, and spatial scaling REAL, ALLOCATABLE, SAVE :: VDEMIS_CONV ( :,:,:,: ) ! Emissions after converting to units for VDIFF CHARACTER( 16 ) :: VNAME CHARACTER( 16 ) :: PNAME = 'GET_EMIS' CHARACTER( 300 ):: XMSG = ' ' INTEGER :: ERROR_NEG INTEGER, SAVE :: WSTEP LOGICAL, SAVE :: FIRST_TIME = .TRUE. LOGICAL :: EFLAG #ifdef isam INTEGER :: IDX, SPC, LAYER, RGN, IRGN CHARACTER(96) :: TXTSTRING REAL :: MINCHECK, TOTAL #endif C----------------------------------------------------------------------- EFLAG = .FALSE. IF ( FIRST_TIME ) THEN FIRST_TIME = .FALSE. ALLOCATE( VDEMIS_READ ( DESID_N_ISTR,DESID_LAYS,NCOLS,NROWS ), & VDEMIS_SCALED( DESID_N_ISTR,DESID_LAYS,NCOLS,NROWS ), & VDEMIS_CONV ( N_SPC_DIFF, DESID_LAYS,NCOLS,NROWS ) ) #ifdef isam C Map Emissions streams to ISAM tags ALLOCATE( STREAM_TO_TAG( DESID_N_SRM, NTAG_SA ), & TAGS_PER_STREAM( DESID_N_SRM ), & MAP_DIFFtoSA ( NSPC_SA ), & TAGSTREAMS( NTAG_SA, DESID_N_SRM ) ) STREAM_TO_TAG = 0 TAGS_PER_STREAM = 0 MAP_DIFFtoSA = 0 TAGSTREAMS = 'empty' IF ( LPVO3 ) THEN ALLOCATE ( ISAM_PVO3_MAP( NTAG_SA ) ) ISAM_PVO3_MAP = 0 END IF DO ITAG = 1, NTAG_SA-3 C Count the number of streams going to each ISAM tag TXTSTRING = TRIM(TAGSTREAMS_TEMP( ITAG )) TAGSTREAMS_NUM( ITAG ) = 1 + COUNT(TRANSFER(TXTSTRING, 'A', LEN(TXTSTRING)) == "," ) C Parse out the stream names the user wants tagged READ(TXTSTRING, *) TAGSTREAMS(ITAG,1:TAGSTREAMS_NUM( ITAG )) C Find emissions stream in the list of available streams DO ISRM = 1, TAGSTREAMS_NUM( ITAG ) IF ( TAGSTREAMS(ITAG,ISRM) .EQ. 'PVO3' ) THEN IF ( LPVO3 ) THEN IF ( L_OZONE ) THEN ISAM_PVO3_MAP(ITAG) = 1 CYCLE ELSE XMSG = " Must specifiy OZONE ISAM TAG CLASS" // & " in isam_control to track PVO3 " CALL M3EXIT( 'ISAM_PVO3', 1, 1, XMSG, XSTAT1 ) ENDIF ELSE XMSG = " To track PVO3, run-script must set CTM_LPVO3" // & " to Y or T for Yes or True. Check run-script." CALL M3EXIT( 'ISAM_PVO3', 1, 1, XMSG, XSTAT1 ) END IF ENDIF IF ( TAGSTREAMS(ITAG,ISRM) .EQ. 'BIDIRECTIONALNH3' )THEN IF ( ABFLUX ) THEN CYCLE ! don't need a stream for this ELSE XMSG = " BIDIRECTIONALNH3 specified," // & " but ABLUX set to FALSE " CALL M3EXIT( 'ISAM_PVO3', 1, 1, XMSG, XSTAT1 ) ENDIF END IF IDX = INDEX1(TAGSTREAMS(ITAG,ISRM),DESID_N_SRM,DESID_STREAM_LAB ) IF ( IDX .EQ. 0 ) THEN XMSG = " User specified ISAM tag - " // & TRIM( TAGSTREAMS(ITAG,ISRM) )// & " - not found in available emissions streams " CALL M3MESG(XMSG) EFLAG = .TRUE. ELSE TAGS_PER_STREAM( IDX ) = TAGS_PER_STREAM( IDX ) + 1 STREAM_TO_TAG(IDX,TAGS_PER_STREAM( IDX )) = ITAG END IF END DO END DO IF( EFLAG )THEN WRITE(LOGDEV,'(A)')'Available Emissions Streams' DO ITAG = 1,DESID_N_SRM WRITE(LOGDEV,'(4X,A)')DESID_STREAM_LAB(ITAG) END DO XMSG = 'INCORRECT Emissions Stream used in ISAM control file' CALL M3EXIT( 'ISAM_STREAMS', 1, 1, XMSG, XSTAT1 ) END IF C Develop a map of emitted/diffused ISAM species MAP_DIFFtoSA = 0 DO SPC = 1, NSPC_SA MAP_DIFFtoSA( SPC ) = INDEX1(TRIM(ISAM_SPEC(SPC,1)), N_SPC_DIFF, DIFF_SPC ) END DO C Initialize geographic regions for ISAM tagging ALLOCATE( ISAMRGN( NTAG_SA, DESID_N_REG ) ) ISAMRGN = 'EVERYWHERE' ALLOCATE( ISAMRGN_MAP( NTAG_SA, DESID_N_REG ) ) ISAMRGN_MAP = 0 ISAMRGN_NUM = 0 DO ITAG = 1, NTAG_SA-3 C Check if the 'EVERYWHERE' keyword is present IDX = INDEX(ISAMRGN_TEMP(ITAG),'EVERYWHERE') IF ( IDX .NE. 0 ) THEN ISAMRGN_NUM( ITAG ) = 0 CYCLE ENDIF C Count the number of regions for each tag TXTSTRING = TRIM(ISAMRGN_TEMP( ITAG )) ISAMRGN_NUM( ITAG ) = 1 + COUNT(TRANSFER(TXTSTRING,'A', LEN(TXTSTRING)) == "," ) C Parse out the region names the user wants tagged READ(TXTSTRING, *) ISAMRGN(ITAG,1:ISAMRGN_NUM( ITAG )) C Map the user specified ISAM regions to available CMAQ regions DO ISRM = 1, ISAMRGN_NUM(ITAG) IDX = INDEX1(ISAMRGN(ITAG,ISRM),DESID_N_REG, DESID_REG%LABEL ) IF ( IDX .EQ. 0 ) THEN XMSG = " User specified ISAM region - " // & TRIM( ISAMRGN(ITAG,ISRM) ) // & " - not found in available emissions regions " CALL M3EXIT( 'ISAM_STREAMS', 1, 1, XMSG, XSTAT1 ) ELSE ISAMRGN_MAP(ITAG,ISRM) = IDX END IF END DO END DO #endif #ifdef sens ALLOCATE( STREAM_TO_SENS( DESID_N_SRM, NPMAX ), & SENS_PER_STREAM( DESID_N_SRM )) STREAM_TO_SENS = 0 SENS_PER_STREAM = 0 DO NP = 1, NPMAX IF ( IPT ( NP ) .EQ. 3 ) THEN ! This is an emissions sensitivity IF ( S_NSTREAMS(NP) .EQ. 99 ) THEN ! all emissions streams S_NSTREAMS(NP) = DESID_N_SRM S_STREAMLBL(NP,1:DESID_N_SRM)=DESID_STREAM_LAB(1:DESID_N_SRM) END IF DO ISRM = 1, S_NSTREAMS(NP) SENNUM = INDEX1(S_STREAMLBL(NP,ISRM),DESID_N_SRM,DESID_STREAM_LAB) IF ( SENNUM .EQ. 0 ) THEN XMSG = " User specified DDM Emissions Stream - " // & TRIM( S_STREAMLBL(NP,ISRM) )// & " - not found in available emissions streams " CALL M3EXIT( 'ISAM_STREAMS', 1, 1, XMSG, XSTAT1 ) ELSE SENS_PER_STREAM( SENNUM ) = SENS_PER_STREAM( SENNUM ) + 1 STREAM_TO_SENS(SENNUM,SENS_PER_STREAM( SENNUM )) = NP END IF END DO END IF END DO #endif END IF ! First Time C Initialize Emissions Array VDEMIS_DIFF = 0.0 VDEMIS_CONV = 0.0 #ifdef isam SA_VDEMIS_DIFF = 0.0 SA_VDEMIS_CONV = 0.0 #endif #ifdef sens SVDEMIS_DIFF = 0.0 #endif C Retrieve Emissions from All Stream Types IF ( DESID_N_SRM .GT. 0 ) THEN DO ISRM = 1,DESID_N_SRM DO R = 1,NROWS DO C = 1,NCOLS DO J = 1,DESID_LAYS DO I = 1,DESID_N_ISTR VDEMIS_READ(I,J,C,R) = 0.0 END DO END DO END DO END DO SELECT CASE ( DESID_STREAM_ITYPE( ISRM ) ) ! Retrieve Gridded and Tracer Emissions CASE ( 1, 3 ) NL = DESID_GRID_LAYS( ISRM ) CALL GR3D( JDATE, JTIME, TSTEP, DESID_STREAM_NAME( ISRM ), & NL, ISRM, VDEMIS_READ, L_DESID_DIAG ) ! mol/s and g/s ! Apply Rules from DESID_${mech} namelist CALL DESID_SCALING( VDEMIS_READ, ISRM, NL, VDEMIS_SCALED ) ! Calculate Number and Surface Area Emissions for this ! stream. Convert aerosol mass emissions from g/s to ! ug/m3/s. CALL DESID_SIZE_DIST( ISRM, VDEMIS_SCALED, NL ) ! Retrieve Point Source Emissions Streams CASE ( 2 ) NL = 1 CALL GET_PT3D_EMIS ( JDATE, JTIME, TSTEP, LOCAL_EMVAR( :,ISRM ), & ISRM, VDEMIS_READ, NL, L_DESID_DIAG )! mol/s and g/s ! Apply Rules from DESID_${mech} namelist CALL DESID_SCALING( VDEMIS_READ, ISRM, NL, VDEMIS_SCALED ) ! Calculate Number and Surface Area Emissions for this ! stream. Convert aerosol mass emissions from g/s to ! ug/m3/s. CALL DESID_SIZE_DIST( ISRM, VDEMIS_SCALED, NL ) CASE ( 4 ) NL = 1 CALL GET_BEIS ( JDATE, JTIME, TSTEP, L_DESID_DIAG ) ! mol/s FORALL( ISTR = 1:DESID_N_ISTR, MAP_ISTRtoEMVAR( ISTR,ISRM ) .GT. 0 ) VDEMIS_READ( ISTR,1,:,: ) = VDEMIS_BI( MAP_ISTRtoEMVAR( ISTR,ISRM ),:,: ) END FORALL ! Apply Rules from DESID_${mech} namelist CALL DESID_SCALING( VDEMIS_READ, ISRM, NL, VDEMIS_SCALED ) ! Retrieve Marine Gas Emissions CASE ( 5 ) NL = 1 CALL GET_MGEMIS ( JDATE, JTIME, TSTEP, CGRID, L_DESID_DIAG )! mol/s FORALL( ISTR = 1:DESID_N_ISTR, MAP_ISTRtoEMVAR( ISTR,ISRM ) .GT. 0 ) VDEMIS_READ( ISTR,1,:,: ) = VDEMIS_MG( MAP_ISTRtoEMVAR( ISTR,ISRM ),:,: ) END FORALL ! Apply Rules from DESID_${mech} namelist CALL DESID_SCALING( VDEMIS_READ, ISRM, NL, VDEMIS_SCALED ) ! Retrieve Lightning NO Emissions CASE ( 6 ) NL = DESID_LAYS CALL GET_LTNG ( JDATE, JTIME, TSTEP, L_DESID_DIAG ) ! mol/s DO L = 1,NL FORALL( ISTR = 1:DESID_N_ISTR, MAP_ISTRtoEMVAR( ISTR,ISRM ) .GT. 0 ) VDEMIS_READ( ISTR,L,:,: ) = VDEMIS_LT( :,:,L ) END FORALL END DO ! Apply Rules from DESID_${mech} namelist CALL DESID_SCALING( VDEMIS_READ, ISRM, NL, VDEMIS_SCALED ) ! Retrieve Sea Spray Aerosol Emissions CASE ( 7 ) NL = 1 CALL GET_SSEMIS ( JDATE, JTIME, TSTEP, CELLVOL( :,:,1 ), & CELLHGT( :,:,1 ), L_DESID_DIAG ) ! g/m3/s FORALL( ISTR = 1:DESID_N_ISTR, MAP_ISTRtoEMVAR( ISTR,ISRM ) .GT. 0 ) VDEMIS_READ( ISTR,1,:,: ) = SSOUTM( MAP_ISTRtoEMVAR( ISTR,ISRM ),:,: ) END FORALL ! Apply Rules from DESID_${mech} namelist CALL DESID_SCALING( VDEMIS_READ, ISRM, NL, VDEMIS_SCALED ) ! Calculate Number and Surface Area Emissions for this ! stream. Convert aerosol mass emissions from g/m3/s to ! ug/m3/s. CALL DESID_SIZE_DIST( ISRM, VDEMIS_SCALED, NL ) ! Retrieve Wind-Blown Dust Emissions CASE ( 8 ) NL = 1 CALL GET_DUST_EMIS ( JDATE, JTIME, TSTEP, Met_data%RJACM( :,:,1 ), & CELLHGT( :,:,1 ), L_DESID_DIAG ) ! g/m3/s FORALL( ISTR = 1:DESID_N_ISTR, MAP_ISTRtoEMVAR( ISTR,ISRM ) .GT. 0 ) VDEMIS_READ( ISTR,1,:,: ) = DUSTOUTM( MAP_ISTRtoEMVAR( ISTR,ISRM ),:,: ) END FORALL ! Apply Rules from DESID_${mech} namelist CALL DESID_SCALING( VDEMIS_READ, ISRM, NL, VDEMIS_SCALED ) ! Calculate Number and Surface Area Emissions for this ! stream. Convert aerosol mass emissions from g/m3/s to ! ug/m3/s. CALL DESID_SIZE_DIST( ISRM, VDEMIS_SCALED, NL ) ! Retrieve MEGAN Emissions CASE ( 9 ) NL = 1 CALL GET_MEGAN ( JDATE, JTIME, TSTEP, L_DESID_DIAG) ! mol/s FORALL( ISTR = 1:DESID_N_ISTR, MAP_ISTRtoEMVAR( ISTR,ISRM ) .GT. 0 ) VDEMIS_READ( ISTR,1,:,: ) = VDEMIS_ME( MAP_ISTRtoEMVAR( ISTR,ISRM ),:,: ) END FORALL ! Apply Rules from DESID_${mech} namelist CALL DESID_SCALING( VDEMIS_READ, ISRM, NL, VDEMIS_SCALED ) END SELECT ! Convert All Emissions to VDIFF Units (ppmv/s for gas and ! aerosol masses, m2/mol/s for aerosol surface area, and ! N/mol/s for aerosol number) CALL DESID_CONV_UNITS( VDEMIS_SCALED, NL, VDEMIS_CONV ) ! Write out diagnostic file (if requested in DESID control ! namelist file). This subroutine will only be executed if ! DESID is called in diagnostic mode, meaning all input, ! scaling, and unit conversions are performed for input to ! VDIFF, but values are converted back to mol/s (gas), g/s ! (aerosol mass), m2/s (aerosol surface area), and N/s ! (aerosol number) before output. IF ( L_DESID_DIAG ) CALL DESID_CALC_DIAG( JDATE, JTIME, VDEMIS_CONV, ISRM, NL ) ! Tools like DDM3D has a need to calculate emissions from ! specific streams and then not apply them to VDIFF. They ! should only be added if DESID_STREAM_LAPPLY is true for ! this stream. IF ( DESID_STREAM_LAPPLY( ISRM ) ) & VDEMIS_DIFF( :,1:NL,:,: ) = VDEMIS_DIFF( :,1:NL,:,: ) + VDEMIS_CONV( :,1:NL,:,: ) #ifdef isam IF ( DESID_STREAM_LAPPLY( ISRM ) ) THEN ! Populate SA_VDEMIS_CONV, array for carrying tagged ! emissions contributions ! Initialize DO ITAG = 1,NTAG_SA DO R = 1,NROWS DO C = 1,NCOLS DO LAYER = 1,NL DO SPC = 1,N_SPC_DIFF SA_VDEMIS_CONV( SPC,LAYER,C,R,ITAG ) = 0.0 END DO END DO END DO END DO END DO ! Determine whether this emission stream corresponds to ! any ISAM tags IF ( TAGS_PER_STREAM( ISRM ) .EQ. 0 ) THEN ! Dump all into 'OTHRTAG' SA_VDEMIS_CONV( :,1:NL,:,:,OTHRTAG ) = & VDEMIS_CONV( :,1:NL,:,: ) ELSE ! Initialize Array for Tracking Residual of Tagged ! Emissions SA_VDEMIS_CONV_OTHER( :,1:NL,:,: ) = VDEMIS_CONV( :,1:NL,:,: ) ! Loop through all of the ISAM tags associated with this ! emissions stream. Generally each stream is only ! associated with one tag. The exception is when ! there are multiple tags corresponding to separate regions. DO IDX = 1, TAGS_PER_STREAM( ISRM ) ! Retrieve A Tag Associated with this Stream ITAG = STREAM_TO_TAG(ISRM,IDX) IF ( ISAMRGN_NUM( ITAG ) .LT. 1 ) THEN ! This tag is capturing 100% of every grid cell in ! the full domain for this stream. We need to assign ! all of the emissions from this stream to this tag ! and the residual is then set to 0. SA_VDEMIS_CONV( :,1:NL,:,:,ITAG ) = & SA_VDEMIS_CONV( :,1:NL,:,:,ITAG ) & + VDEMIS_CONV(:,1:NL,:,: ) SA_VDEMIS_CONV_OTHER = 0.0 ELSE ! This tag is capturing some fraction of the stream ! in grid cells across the domain. These fractional ! contributions are applied using the DESID_REG_FAC ! array with corresponding map indices. ! Loop Over Altitude, Species and Regions to Add ! emissions to corresponding tag, ITAG. DO IRGN = 1, ISAMRGN_NUM( ITAG ) DO LAYER = 1, NL DO SPC = 1, N_SPC_DIFF SA_VDEMIS_CONV( SPC,LAYER,:,:,ITAG ) = & SA_VDEMIS_CONV( SPC,LAYER,:,:,ITAG ) & + VDEMIS_CONV( SPC,LAYER,:,: ) & * DESID_REG_FAC(:,:,ISAMRGN_MAP(ITAG,IRGN)) SA_VDEMIS_CONV_OTHER( SPC,LAYER,:,: ) = & SA_VDEMIS_CONV_OTHER( SPC,LAYER,:,: ) & - VDEMIS_CONV( SPC,LAYER,:,: ) & * DESID_REG_FAC(:,:,ISAMRGN_MAP(ITAG,IRGN)) END DO END DO END DO END IF END DO ! Now that emissions from this stream have been assigned ! to all available tags, assess the remainder and assign ! it to the "OTHR" tag if any exists. MINCHECK = MINVAL( SA_VDEMIS_CONV_OTHER( :,1:NL,:,: ) ) IF ( MINCHECK .GE. 0.0 ) THEN ! Remainder is Valid. Move it all to the "OTHR" Tag SA_VDEMIS_CONV( :,1:NL,:,:,OTHRTAG ) = & SA_VDEMIS_CONV_OTHER( :,1:NL,:,: ) ELSE ! Some Part of the Remainder ("OTHER") is Invalid XMSG = " ISAM mass balance error for emissions stream " // & TRIM( DESID_STREAM_DESC( ISRM ) ) // & " - check isam control file. " CALL M3WARN( 'ISAM_EMISSIONS', 1, 1, XMSG ) ! Repair OTHER By Distributing Negative Among Populated Tags ! and assigning positive part to the "OTHR" Tag as ! planned DO R = 1,NROWS DO C = 1,NCOLS DO LAYER = 1,NL DO SPC = 1,N_SPC_DIFF IF ( SA_VDEMIS_CONV_OTHER( SPC,LAYER,C,R ) .LT. 0.0 ) THEN ! Find the total alloted to this (SPC,LAYER,C,R) ! and use it to distribute the error fractionally TOTAL = SUM( SA_VDEMIS_CONV( SPC,LAYER,C,R,: ) ) DO ITAG = 1,NTAG_SA SA_VDEMIS_CONV( SPC,LAYER,C,R,ITAG ) = & SA_VDEMIS_CONV( SPC,LAYER,C,R,ITAG ) * & ( 1.0 + SA_VDEMIS_CONV_OTHER( SPC,LAYER,C,R ) / TOTAL ) END DO ELSE ! Assign the positive values to the "OTHR" Tag SA_VDEMIS_CONV( SPC,LAYER,C,R,OTHRTAG ) = & SA_VDEMIS_CONV_OTHER( SPC,LAYER,C,R ) END IF END DO END DO END DO END DO END IF END IF ! Subset the emissions array for ISAM traced species DO SPC = 1, NSPC_SA IF ( MAP_DIFFtoSA( SPC ) .NE. 0 ) THEN DO ITAG = 1,NTAG_SA DO R = 1,NROWS DO C = 1,NCOLS DO LAYER = 1,NL SA_VDEMIS_DIFF( SPC,LAYER,C,R,ITAG ) = & SA_VDEMIS_DIFF( SPC,LAYER,C,R,ITAG ) & + SA_VDEMIS_CONV( MAP_DIFFtoSA( SPC ),LAYER,C,R,ITAG ) END DO END DO END DO END DO END IF END DO END IF #endif #ifdef sens IF ( SENS_PER_STREAM( ISRM ) .GT. 0 ) THEN ! This stream is used by DDM3D DO SENNUM = 1, SENS_PER_STREAM( ISRM ) NP = STREAM_TO_SENS( ISRM,SENNUM ) SVDEMIS_DIFF( :,1:NL,:,:,NP ) = SVDEMIS_DIFF( :,1:NL,:,:,NP ) & + VDEMIS_CONV(:,1:NL,:,: ) END DO END IF #endif END DO ! Master Loop for Emissions Streams #ifdef sens C Subset the emissions array for DDM-3D (by species and region) DO NP = 1, NPMAX DO S = 1, N_SPC_DIFF DO L = 1, DESID_LAYS SVDEMIS_DIFF( S,L,:,:,NP ) = & SVDEMIS_DIFF( S,L,:,:,NP ) & * IREGION( :,:,L,NP ) & * REAL( IPARM( NP, DIFF_MAP( S ) ), 4 ) END DO END DO END DO #endif ! Check for Negative Emissions after scaling rules and unit ! conversions are applied. ERROR_NEG = DESID_CHECK_NEG( VDEMIS_DIFF, 1, DESID_LAYS ) ! Write Out Aggregate Diagnostic Emissions to Files IF ( L_DESID_DIAG ) CALL DESID_WRITE_DIAG( JDATE, JTIME ) END IF ! DESID_N_SRM RETURN END SUBROUTINE DESID_GET_EMIS C------------------------------------------------------------------------------ SUBROUTINE GR3D ( JDATE, JTIME, TSTEP, DESID_FNAME, STREAM_LAYS, & FSTREAM, VDEMIS, L_DESID_DIAG ) USE CGRID_SPCS ! CGRID mechanism species USE ASX_DATA_MOD, ONLY: MET_DATA, GRID_DATA USE CENTRALIZED_IO_MODULE, ONLY: interpolate_var #ifdef mpas use util_module, only : nextime #endif !USE EMIS_UTIL !USE UTILIO_DEFN IMPLICIT NONE ! Includes: INCLUDE SUBST_FILES_ID ! file name parameters ! Arguments: INTEGER, INTENT( IN ) :: JDATE, JTIME ! date (YYYYDDD), time (HHMMSS) INTEGER, INTENT( IN ) :: FSTREAM ! Stream Counter CHARACTER( 100 ), INTENT( IN ) :: DESID_FNAME ! Stream Filename INTEGER, INTENT( IN ) :: TSTEP( 3 ) ! time step vector (HHMMSS) LOGICAL, INTENT( IN ) :: L_DESID_DIAG ! Flag for diagnostic operation ! Output: REAL, INTENT( OUT ) :: VDEMIS( :,:,:,: ) ! Emission Rate Array ! Local Variables: INTEGER C, R, L, N, S, V, ISTR INTEGER S_STRT, S_END, STREAM_LAYS, NDATE, NTIME REAL, ALLOCATABLE, SAVE :: BUFF( :,:,: ) CHARACTER( 16 ) :: VNAME CHARACTER( 16 ) :: PNAME = 'GR3D' CHARACTER( 200 ) :: XMSG = ' ' LOGICAL, SAVE :: FIRSTIME = .TRUE. INTEGER, ALLOCATABLE, SAVE :: LOC_STDATE(:) LOGICAL :: L_NEWDAY real*8 :: lDBL_CKSUM real :: lsum logical :: found integer :: mycount !----------------------------------------------------------------------- IF ( FIRSTIME ) THEN FIRSTIME = .FALSE. ! Get Domain Information for Emissions Read Routine ! Allocate Persistent Variables ALLOCATE( BUFF( NCOLS,NROWS,MAXVAL( DESID_GRID_LAYS ) ) ) ALLOCATE( LOC_STDATE( SIZE(DESID_STREAM_DATE) ) ) LOC_STDATE = STDATE END IF !FirstTime ! Ensure that the model and emissions timestamp dates stay synchronized L_NEWDAY = .FALSE. IF (LOC_STDATE(FSTREAM) .NE. JDATE ) THEN NDATE = JDATE; NTIME = JTIME CALL NEXTIME( NDATE, NTIME, -TSTEP( 1 ) ) ! go back one output tstep CALL NEXTIME( DESID_STREAM_DATE( FSTREAM ), NTIME, TSTEP( 1 ) ) ! advance the start date one time step LOC_STDATE(FSTREAM) = JDATE L_NEWDAY = .TRUE. END IF ! Read & Interpolate Emissions DO R = 1,NROWS DO C = 1,NCOLS DO L = 1,DESID_LAYS DO ISTR = 1,DESID_N_ISTR VDEMIS(ISTR,L,C,R) = 0.0 END DO END DO END DO END DO DO ISTR = 1, DESID_N_ISTR VNAME = LOCAL_EMVAR( ISTR, FSTREAM ) IF ( VNAME .EQ. '' ) CYCLE CALL INTERPOLATE_VAR (VNAME, DESID_STREAM_DATE( FSTREAM ), JTIME, BUFF, DESID_FNAME) ! Store all emissions in mol/sec or g/sec and convert to ppmv/s later IF ( DESID_LAYS .GE. STREAM_LAYS ) THEN DO L = 1, STREAM_LAYS VDEMIS( ISTR,L,:,: ) = BUFF( :,:,L ) END DO ELSE DO L = 1, DESID_LAYS VDEMIS( ISTR,L,:,: ) = BUFF( :,:,L ) END DO DO L = DESID_LAYS+1,STREAM_LAYS VDEMIS( ISTR,DESID_LAYS,:,: ) = VDEMIS( ISTR,DESID_LAYS,:,: ) + BUFF( :,:,L ) END DO END IF END DO ! ISTR ! Reset the date of the gridded file if this is diagnostic mode ! and the day has advanced IF ( L_NEWDAY .AND. L_DESID_DIAG ) THEN CALL NEXTIME( DESID_STREAM_DATE( FSTREAM ), NTIME, -TSTEP(1) ) LOC_STDATE(FSTREAM) = NDATE END IF RETURN END SUBROUTINE GR3D C----------------------------------------------------------------------- SUBROUTINE DESID_SCALING( VDEMIS0, ISRM, NL, VDEMIS ) C Apply region-dependent scaling of emissions rules. C----------------------------------------------------------------------- USE CENTRALIZED_IO_MODULE, ONLY: MSFX2 IMPLICIT NONE INTEGER, INTENT( IN ) :: ISRM, NL REAL, INTENT( IN ) :: VDEMIS0( :,:,:,: ) REAL, INTENT( OUT ) :: VDEMIS ( :,:,:,: ) REAL, ALLOCATABLE, SAVE :: VDEMIS1( :,:,: ) INTEGER, ALLOCATABLE, SAVE :: NFAC( : ) INTEGER ISTR, IFAC, L, NFAC_MAX, IRGN, OP, JSRM, ISTR_TMP, & NISTR, REG_UNQ, JRGN, K INTEGER, ALLOCATABLE :: MAP_FACtoISTR( : ) REAL, ALLOCATABLE, SAVE :: FAC( :,: ) LOGICAL, SAVE :: FIRSTIME = .TRUE. LOGICAL :: LAREA, LAREAADJ IF ( FIRSTIME ) THEN FIRSTIME = .FALSE. ALLOCATE( NFAC( DESID_N_ISTR ) ) ALLOCATE( VDEMIS1( NLAYS, NCOLS, NROWS ) ) ALLOCATE( FAC( NCOLS,NROWS ) ) END IF ! First Time !! Time-Dependent Portion VDEMIS( :,:,:,: ) = 0.0 NFAC( : ) = DESID_FAC( :,ISRM )%NFAC ! Skip Streams With no Emissions Whatsoever IF ( SUM( NFAC(:) ) .EQ. 0 ) RETURN ! Loop through Each Instruction DO ISTR = 1,DESID_N_ISTR ! Do Not bother with this row if there is no emission variable to map IF ( NFAC( ISTR ) .EQ. 0 ) CYCLE ! Loop through each unique Region and Process Instruction's Stacks DO JRGN = 1,DESID_FAC( ISTR,ISRM )%NREG REG_UNQ = DESID_FAC( ISTR,ISRM )%REG_UNQ( JRGN ) ! Initialize Region-Dependent Array for this Instruction VDEMIS1( :,:,: ) = 0. ! Calculate the scale factor needed for this region DO IFAC = 1,NFAC( ISTR ) FAC(:,:)= DESID_FAC( ISTR,ISRM )%FAC( IFAC ) OP = DESID_FAC( ISTR,ISRM )%OP ( IFAC ) IRGN = DESID_FAC( ISTR,ISRM )%REG( IFAC ) LAREA = DESID_FAC( ISTR,ISRM )%AREA(IFAC ) LAREAADJ= DESID_FAC( ISTR,ISRM )%AREAADJ(IFAC ) IF ( IRGN .EQ. REG_UNQ .OR. & DESID_REG_SUB( IRGN,REG_UNQ ) ) THEN !Apply scaling for region IRGN using DESID_FAC IF ( OP .EQ. 1 ) THEN ! Add New Emission #ifndef mpas IF ( LAREA ) FAC = FAC * CELLAREA IF ( LAREAADJ ) FAC = FAC / MSFX2 #endif DO L = 1,NL VDEMIS1( L,:,: ) = VDEMIS1( L,:,: ) + & VDEMIS0( ISTR,L,:,: ) * FAC END DO ELSE IF ( OP.EQ.2 ) THEN ! Multiply Emissions Rule DO L = 1,NL VDEMIS1( L,:,: ) = VDEMIS1( L,:,: ) * FAC END DO ELSE IF ( OP.EQ.3 ) THEN ! Overwrite Existing Rule #ifndef mpas IF ( LAREA ) FAC = FAC * CELLAREA IF ( LAREAADJ ) FAC = FAC / MSFX2 #endif DO L = 1,NL VDEMIS1( L,:,: ) = VDEMIS0( ISTR,L,:,: ) * FAC END DO END IF END IF END DO ! End Loop through instruction stack ! Determine Region Mask to use for this Instruction K = DESID_FAC( ISTR,ISRM)%REG_RMDR( JRGN ) IF ( K .EQ. 0 ) THEN ! This region does not have active subsets for this instruction ! Integrate Emissions Accounting for Region-based contributions DO L = 1,NL VDEMIS( ISTR,L,:,: ) = VDEMIS( ISTR,L,:,: ) + & VDEMIS1( L,:,: ) * DESID_REG_FAC(:,:,REG_UNQ ) END DO ELSE ! This region has active subsets for this instruction. Use the ! remainder mask ! Integrate Emissions Accounting for Region-based contributions DO L = 1,NL VDEMIS( ISTR,L,:,: ) = VDEMIS( ISTR,L,:,: ) + & VDEMIS1( L,:,: ) * DESID_REG_RMDR( K )%MASK(:,: ) END DO END IF END DO ! End loop through unique regions END DO ! End loop through instructions RETURN END SUBROUTINE DESID_SCALING C----------------------------------------------------------------------- SUBROUTINE DESID_CONV_UNITS( VDEMIS0, NL, VDEMIS ) C Convert rate and map to Diffusivity module species order C----------------------------------------------------------------------- USE ASX_DATA_MOD, ONLY: MET_DATA, GRID_DATA USE AERO_EMIS ! inherits GRID_CONF #ifdef mpas USE coupler_module, ONLY: inv_cell_vol #endif IMPLICIT NONE ! Local Variables REAL,ALLOCATABLE, SAVE :: CNVTC( :,:,: ) ! combined conversion factor REAL,ALLOCATABLE, SAVE :: CNVTI( : ) ! intermediate combined conv. factor REAL, SAVE :: CNVTP ! intermediate combined conv. factor REAL,ALLOCATABLE, SAVE :: CONVM( :,:,: ) ! Aerosol Mass and Surface Area conversion factor REAL,ALLOCATABLE, SAVE :: CONVN( :,:,: ) ! Aerosol Number conversion factor REAL,ALLOCATABLE, SAVE :: CNVTI_M( :,:,: ) ! intermediate combined conv. factor REAL, PARAMETER :: GPKG = 1.0E+03 ! g/kg REAL, PARAMETER :: MWAIR = 28.9628 ! g/mol REAL, PARAMETER :: AVO = 6.0221367E23 REAL, PARAMETER :: RAVO = 1.0 / AVO INTEGER, INTENT( IN ) :: NL REAL, INTENT( INOUT ) :: VDEMIS0( :,:,:,: ) REAL, INTENT( OUT ):: VDEMIS ( :,:,:,: ) LOGICAL, SAVE :: FIRSTIME = .TRUE. INTEGER :: C, R, L, ISTR, INDX ! Get domain decomp info from the emissions file IF ( FIRSTIME ) THEN FIRSTIME = .FALSE. ! Populate Persistent Variables #ifndef mpas CNVTP = 1.0E+06 * MWAIR / REAL( DX1 * DX2 ) !Conv. Factor for Gases #endif ALLOCATE( CNVTI( DESID_LAYS ), CNVTC( DESID_LAYS,NCOLS,NROWS ), #ifdef mpas & CNVTI_M( NCOLS,NROWS,DESID_LAYS ), #endif & CONVM( DESID_LAYS,NCOLS,NROWS ), & CONVN( DESID_LAYS,NCOLS,NROWS ) ) END IF !FirstTime ! Convert All Emissions to Units Appropriate for the Dispersion Solver #ifdef mpas CNVTI_M( :,1,1:NL ) = 1.0E+06 * MWAIR * inv_cell_vol(:,1,1:NL) #else CNVTI( 1:NL ) = CNVTP * Grid_Data%RDX3F( 1:NL ) #endif DO L = 1,NL #ifdef mpas CNVTC( L,:,: ) = 1.0E-3 * CNVTI_M( :,:,L ) * Met_Data%RRHOJ( :,:,L ) ! Gas Moles: mol/s -> ppmv/s #else CNVTC( L,:,: ) = 1.0E-3 * CNVTI( L ) * Met_Data%RRHOJ( :,:,L ) ! Gas Moles: mol/s -> ppmv/s #endif CONVM( L,:,: ) = MWAIR / GPKG / Met_Data%DENS( :,:,L ) !m3/mol ! Aer. Mass: umol/m3/s -> ppmv/s END DO ! Aer. Surf: m2/m3/s -> m2/mol/s CONVN( 1:NL,:,: ) = CONVM( 1:NL,:,: ) ! Aer. Num: N/m3/s -> N/mol/s !MAKE SURE TO APPLY RELEVANT UNIT CONVERSION TO EACH !TYPE OF VARIABLE (GAS, AEROSOL MASS, AEROSOL NUMBER, !AND AEROSOL SURFACE AREA) FORALL ( ISTR = 1:DESID_N_ISTR, MAP_ISTRtoGAS( ISTR ) .NE. 0 ) & VDEMIS0( ISTR,1:NL,:,: ) = CNVTC( 1:NL,:,: ) * VDEMIS0( ISTR,1:NL,:,: ) FORALL ( ISTR = 1:DESID_N_ISTR, MAP_ISTRtoAERO( ISTR ) .NE. 0 ) & VDEMIS0( ISTR,1:NL,:,: ) = CONVM( 1:NL,:,: ) * VDEMIS0( ISTR,1:NL,:,: ) FORALL ( ISTR = 1:DESID_N_ISTR, MAP_ISTRtoSRF( ISTR ) .NE. 0 ) & VDEMIS0( ISTR,1:NL,:,: ) = CONVM( 1:NL,:,: ) * VDEMIS0( ISTR,1:NL,:,: ) FORALL ( ISTR = 1:DESID_N_ISTR, MAP_ISTRtoNUM( ISTR ) .NE. 0 ) & VDEMIS0( ISTR,1:NL,:,: ) = CONVN( 1:NL,:,: ) * VDEMIS0( ISTR,1:NL,:,: ) ! zero out emissions values for diffused species not included in emissions list. ! ...accounts for emissions species names as a subset of the vert. diffused species list DO L = 1,NL VDEMIS( :,L,:,: ) = 0.0 DO ISTR = 1,DESID_N_ISTR IF ( MAP_ISTRtoDIFF( ISTR ) .NE. 0 ) & VDEMIS( MAP_ISTRtoDIFF( ISTR ),L,:,: ) = & VDEMIS( MAP_ISTRtoDIFF( ISTR ),L,:,: ) + & VDEMIS0( ISTR,L,:,: ) END DO END DO RETURN END SUBROUTINE DESID_CONV_UNITS !----------------------------------------------------------------------- FUNCTION DESID_CHECK_NEG( VDEMIS, ISRM, NL ) RESULT( STAT ) ! Check Emissions Array for negative values and exit if negative values ! exceed tolerance of 1.0E-7. Emissions that are negative but within ! tolerance are set to 0.0. ! VDEMIS is the scaled emissions and VDEMIS0 is the emissions ! read in from each stream. !----------------------------------------------------------------------- USE UTILIO_DEFN USE VDIFF_MAP, only : DIFF_SPC ! Name for every Diffusion Module Species IMPLICIT NONE REAL, INTENT( INOUT ) :: VDEMIS ( :,:,:,: ) INTEGER, INTENT( IN ) :: NL INTEGER, INTENT( IN ) :: ISRM INTEGER :: ISPC INTEGER :: STAT INTEGER :: ALOC( 4 ) REAL :: EMIS_MIN CHARACTER(250) :: XMSG STAT = 0 ! If All Values Are Positive then Return Right Away EMIS_MIN = MINVAL( VDEMIS( :,1:NL,:,: ) ) IF ( EMIS_MIN .GE. 0.0 ) RETURN IF ( EMIS_MIN .LT. -1.0e-7 ) THEN STAT = 1 ! Find Where the Most Negative Value Is and Exit ALOC = MINLOC( VDEMIS( :,1:NL,:,: ) ) ISPC = ALOC( 1 ) WRITE( LOGDEV, '(/,5x,A,ES10.3,A,/,5x,3A,/,5x,A,/,5x,A)' ), & 'ERROR: Invalid Negative emission rate ', EMIS_MIN, ' has been ', & ' detected for CMAQ species ',TRIM(DIFF_SPC( ISPC )),'.', & 'Please inspect the Emission Control Namelist File (Search for ', & '"Reading Emission Control Namelist" in this Log File).' XMSG = 'Negative Emissions Detected' CALL M3EXIT( 'EMISS_NEG_CHECK', 0, 0, XMSG, XSTAT1 ) ELSE ! reset slightly negative values to 0.0 WHERE ( VDEMIS .LT. 0.0 ) VDEMIS = 0.0 END IF END FUNCTION DESID_CHECK_NEG !----------------------------------------------------------------------- SUBROUTINE DESID_CALC_DIAG( JDATE, JTIME, VDEMIS0, ISRM, NL ) ! Write out emissions diagnostic file !----------------------------------------------------------------------- USE ASX_DATA_MOD, ONLY: MET_DATA, GRID_DATA USE AERO_EMIS ! inherits GRID_CONF USE GRID_CONF USE VDIFF_MAP, ONLY : N_SPC_DIFF, DIFF_MASK_GAS, DIFF_MASK_AERO, & DIFF_MASK_NUM, DIFF_MASK_SRF, DIFF_MW, DIFF_SPC, & DIFF_MASK_NR, DIFF_MASK_TRAC USE AERO_DATA, ONLY : GPKG #ifdef mpas USE coupler_module, ONLY: inv_cell_vol #endif IMPLICIT NONE INCLUDE SUBST_CONST ! constants INTEGER, INTENT( IN ) :: JDATE, JTIME, ISRM REAL, INTENT( In ) :: VDEMIS0( :,:,:,: ) REAL, ALLOCATABLE, SAVE :: VDEMIS ( :,:,:,: ) REAL, ALLOCATABLE, SAVE :: VDEMIS_OUT ( :,:,: ) ! Local Variables REAL, PARAMETER :: RAVO = 1.0 / AVO REAL,ALLOCATABLE, SAVE :: CNVTC( :,:,: ) ! combined conversion factor REAL,ALLOCATABLE, SAVE :: CNVTI( : ) ! intermediate combined conv. factor REAL,ALLOCATABLE, SAVE :: CNVTI_M( :,:,: ) ! intermediate combined conv. factor for mpas REAL, SAVE :: CNVTP ! intermediate combined conv. factor REAL,ALLOCATABLE, SAVE :: CONVM( :,:,: ) ! Aerosol Mass and Surface Area conversion factor REAL,ALLOCATABLE, SAVE :: CONVN( :,:,: ) ! Aerosol Number conversion factor INTEGER :: LAYS, L, C, R, IVAR, NL, I INTEGER :: ISPEC, IDIAG, IP, JSPEC, JDIAG, KSPEC LOGICAL :: FIRST_TIME = .TRUE. CHARACTER( 586 ) :: XMSG ! Get pressure info from ASX_DATA_MOD IF ( FIRST_TIME ) THEN FIRST_TIME = .FALSE. #ifndef mpas CNVTP = 1.0E+06 * MWAIR / REAL( DX1 * DX2 ) !Conv. Factor for Gases #endif ALLOCATE( CNVTI( DESID_LAYS ), CNVTC( DESID_LAYS,NCOLS,NROWS ), & CONVM( DESID_LAYS,NCOLS,NROWS ), #ifdef mpas & CNVTI_M( NCOLS,NROWS,DESID_LAYS ), #endif & CONVN( DESID_LAYS,NCOLS,NROWS ), & VDEMIS( N_SPC_DIFF,DESID_LAYS,NCOLS,NROWS ), & VDEMIS_OUT( NCOLS,NROWS,DESID_LAYS ) ) END IF !FirstTime VDEMIS = 0.0 VDEMIS_OUT = 0.0 ! Convert All Emissions to Units Appropriate for the Dispersion Solver #ifdef mpas CNVTI_M( :, 1, 1:NL ) = 1.0E+06 * MWAIR * inv_cell_vol(:, 1, 1:NL) #else CNVTI( 1:NL ) = CNVTP * Grid_Data%RDX3F( 1:NL ) #endif DO L = 1,NL #ifdef mpas CNVTC( L,:,: ) = 1.0E3 / ( CNVTI_M( :,:,L ) * Met_Data%RRHOJ( :,:,L ) ) ! Gas Moles: ppmv/s -> mol/s #else CNVTC( L,:,: ) = 1.0E3 / ( CNVTI( L ) * Met_Data%RRHOJ( :,:,L ) ) ! Gas Moles: ppmv/s -> mol/s #endif CONVM( L,:,: ) = (1.0 / MWAIR) * GPKG * Met_Data%DENS( :,:,L ) ! Aer. Mass: ppmv/s -> umol/s & / Met_Data%RJACM( :,:,L ) * CELLVOL( :,:,L ) ! Aer. Surf: m2/mol/s -> m2/s END DO ! Aer. Num: N/mol/s -> N/s CONVN( 1:NL,:,: ) = CONVM( 1:NL,:,: ) !MAKE SURE TO APPLY RELEVANT UNIT CONVERSION TO EACH !TYPE OF VARIABLE (GAS, AEROSOL MASS, AEROSOL NUMBER, !AND AEROSOL SURFACE AREA) FORALL ( I = 1:N_SPC_DIFF, DIFF_MASK_GAS( I ) .OR. & DIFF_MASK_NR( I ) .OR. & DIFF_MASK_TRAC( I ) ) & VDEMIS( I,1:NL,:,: ) = CNVTC( 1:NL,:,: ) * VDEMIS0( I,1:NL,:,:) FORALL ( I = 1:N_SPC_DIFF, DIFF_MASK_AERO( I ) .AND. & .NOT. DIFF_MASK_NUM( I ) .AND. & .NOT. DIFF_MASK_SRF( I ) ) & VDEMIS( I,1:NL,:,: ) = CNVTC( 1:NL,:,: ) * VDEMIS0( I,1:NL,:,:) * DIFF_MW( I ) FORALL ( I = 1:N_SPC_DIFF, DIFF_MASK_SRF( I ) ) & VDEMIS( I,1:NL,:,: ) = CONVM( 1:NL,:,: ) * VDEMIS0( I,1:NL,:,:) FORALL ( I = 1:N_SPC_DIFF, DIFF_MASK_NUM( I ) ) & VDEMIS( I,1:NL,:,: ) = CONVN( 1:NL,:,: ) * VDEMIS0( I,1:NL,:,:) ! Write out this stream to its diagnostic file or sum emissions ! for an aggregate diagnostic DO IDIAG = 1,DESID_N_DIAG IF ( DESID_DIAG_STREAM_MASK( ISRM,IDIAG ) ) THEN ! This Stream Contributes to IDIAG diagnostic LAYS = DESID_DIAG_LAYS( IDIAG ) ! Loop over all diagnostic species DO ISPEC = 1,DESID_DIAG_SPEC( IDIAG )%NSPEC ! Sum up all of the diffused species relevant for this ! diagnostic species VDEMIS_OUT( :,:,: ) = 0.0 DO IP = 1,DESID_DIAG_SPEC( IDIAG )%NPAIRS IF ( DESID_DIAG_SPEC( IDIAG )%MAP_toDIAG( IP ) & .EQ. ISPEC ) THEN JSPEC = DESID_DIAG_SPEC( IDIAG )%MAP_toDIFF( IP ) DO L = 1,NL VDEMIS_OUT( :,:,L ) = & VDEMIS_OUT( :,:,L ) + VDEMIS( JSPEC,L,:,: ) END DO END IF END DO IF ( DESID_DIAG_FORMAT( IDIAG ) .EQ. 'COLSUM' ) & VDEMIS_OUT(:,:,1) = SUM( VDEMIS_OUT( :,:,1:NL ),3 ) IF ( DESID_DIAG_N_STREAM( IDIAG ) .EQ. 1 ) THEN ! Only this stream contributes. Write emisison ! rates out directly #ifndef mpas IF ( .NOT. WRITE3( DESID_DIAG_LOGICAL(IDIAG), DESID_DIAG_SPEC(IDIAG)%SPEC(ISPEC), & JDATE, JTIME, VDEMIS_OUT( :,:,1:LAYS ) ) ) THEN XMSG = 'Could not write ' // TRIM( DESID_DIAG_FILENAME(IDIAG) ) // ' file' CALL M3EXIT( 'WRITE_EMISS_DIAG', JDATE, JTIME, XMSG, XSTAT1 ) END IF #endif ELSE ! Other streams contribute as well. Sum these emission ! rates to an aggregate array, VDEMIS_DIAG KSPEC = MAP_DIAGtoVDEMIS( ISPEC,IDIAG ) VDEMIS_DIAG( KSPEC,:,:,1:LAYS ) = VDEMIS_DIAG( KSPEC,:,:,1:LAYS ) + & VDEMIS_OUT( :,:,1:LAYS ) END IF END DO END IF END DO END SUBROUTINE DESID_CALC_DIAG !----------------------------------------------------------------------- SUBROUTINE DESID_WRITE_DIAG( JDATE, JTIME ) ! Write out emissions diagnostic file !----------------------------------------------------------------------- IMPLICIT NONE INTEGER IDIAG, ISPEC, JSPEC INTEGER LAYS INTEGER JDATE, JTIME CHARACTER(200) :: XMSG #ifdef mpas CHARACTER (20) :: TIME_STAMP call mio_time_format_conversion (jdate, jtime, time_stamp) #endif DO IDIAG = 1,DESID_N_DIAG IF ( DESID_DIAG_N_STREAM( IDIAG ) .GT. 1 ) THEN LAYS = DESID_DIAG_LAYS( IDIAG ) DO ISPEC = 1,DESID_DIAG_SPEC( IDIAG )%NSPEC ! Write out the emissions data for this aggregate ! diagnostic JSPEC = MAP_DIAGtoVDEMIS( ISPEC,IDIAG ) #ifndef mpas IF ( .NOT. WRITE3( DESID_DIAG_LOGICAL(IDIAG), DESID_DIAG_SPEC( IDIAG )%SPEC( ISPEC ), & JDATE, JTIME, VDEMIS_DIAG( JSPEC,:,:,1:LAYS ) ) ) THEN XMSG = 'Could not write ' // TRIM( DESID_DIAG_FILENAME(IDIAG) ) // ' file' CALL M3EXIT( 'WRITE_EMISS_DIAG', JDATE, JTIME, XMSG, XSTAT1 ) END IF #else call mio_fwrite('EMIS_DIAG',DESID_DIAG_SPEC( IDIAG )%SPEC(ISPEC ), "write_emis", & VDEMIS_DIAG( JSPEC,:,1,1 ) ,time_stamp) #endif END DO END IF END DO END SUBROUTINE DESID_WRITE_DIAG C----------------------------------------------------------------------- SUBROUTINE DESID_PROCESS_RULES( JDATE, JTIME ) C Check the chemical species from the namelists and AERO_DATA against C the species that are available on the actual emissions input files. If C they do not agree, print warnings or crash the program depending on C how severe the error is. C C 16 Mar 2017 B.Murphy Created Subroutine C 10 Sep 2017 B.Murphy Revised Emissions Mapping Approach C 08 Nov 2017 B.Murphy Vectorized Emission Maps to allow for C unlimited emissions streams C----------------------------------------------------------------------- USE VDIFF_MAP, only : DIFF_SPC, ! Name for every Diffusion Module Species & DIFF_MASK_GAS, DIFF_MASK_AERO, DIFF_MASK_NR, & DIFF_MASK_TRAC, DIFF_MW USE UTILIO_DEFN USE AERO_DATA, only : N_MODE, AEROSPC, ! Aerosol Properties Table & N_AEROSPC, AEROMODE, MODESUFF, DESID_AERO_REF USE AERO_EMIS, only : MAP_NUMtoISTR, MAP_SRFtoISTR, MAP_ISTRtoAERO, MAP_ISTRtoMODE, & MAP_ISTRtoNUM, MAP_ISTRtoSRF, MAP_ISTRtoSD, & DESID_STREAM_AERO, SD_SPLIT, DESID_INIT_SIZE_DIST USE UDTYPES, only : CARRY1, LARRY1 USE UTIL_FAMILY_MODULE #ifdef mpas use util_module, only : index1, upcase #endif IMPLICIT NONE INTEGER, INTENT(IN) :: JDATE, JTIME INTEGER :: N_UNUSED, REGNUM, N_USED INTEGER :: STRT, PTSTRT, ISPC, IDX, IX, IEMVAR, IRULE, IAREA, & N, IM, IAERO, V, ISRM, NSPC, IA, IDIFF, JDX, JM, & ISTR, IEM, KDX, JSD, JEM, ISD, & IFAC, IRGN, ISTRN, NFAC, NREG, NCHEM, ICHEM, IFAM, & IRGN2, N_EMVAR_CATCH, ICATCH, F, N_REG_RMDR, JRGN, K, & KRGN, I, J, JFAC REAL :: AERO_SPLIT, UNIT_FAC_1, UNIT_FAC_2, EMVAR_MW, & SPEC_MW, BASIS_FAC, FAC LOGICAL :: LERROR, LFOUND, L_WDIFF, L_WISD, LTEST LOGICAL :: LGAS_DIFF, LGAS_EMVAR, L_CATCH, LSUBSUB CHARACTER( 16 ) :: SPECNAME, SN, SM, EMVAR_CATCH( 200 ) CHARACTER( 16 ) :: PNAME = 'DESID_PROCESS_RULES' CHARACTER( 100) :: VARDESC INTEGER :: STATUS CHARACTER( 500 ) :: XMSG CHARACTER( 16 ) :: B CHARACTER( 20 ) :: REFNAME INTEGER, PARAMETER :: NI0 = 3000 LOGICAL, ALLOCATABLE, SAVE :: RULE_STREAM( : ), RULE_SPEC( : ) TYPE( LARRY1 ), ALLOCATABLE, SAVE :: RULE_EMVAR( : ), RULE_PHASE( : ) INTEGER, PARAMETER :: N_SCALEFAC = 100 LOGICAL :: LSPEC_KEY, LEMVAR_KEY CHARACTER( 16 ) :: CHEM_NAME( 150 ) LOGICAL :: LERROR2, LERROR3( 150 ) INTEGER :: IC, N_TASKS INTEGER, PARAMETER :: NT0 = 4000000 INTEGER :: TASK_IDIFF( NT0 ) INTEGER :: TASK_ISRM ( NT0 ) INTEGER :: TASK_IEMVAR( NT0) CHARACTER( 16 ) :: TASK_SPEC ( NT0 ) CHARACTER( 16 ) :: TASK_EMVAR( NT0 ) INTEGER :: TASK_PHASE( NT0 ) REAL, ALLOCATABLE :: LOCAL_FAC( :,:,: ) REAL, ALLOCATABLE :: LOCAL_FAC_BULK( :,:,: ) CHARACTER( 1 ), ALLOCATABLE :: LOCAL_OP( :,:,: ) CHARACTER( 4 ), ALLOCATABLE :: LOCAL_BASIS( :,:,: ) REAL, ALLOCATABLE :: LOCAL_CONV( :,:,: ) INTEGER, ALLOCATABLE :: LOCAL_REG( :,:,: ) INTEGER :: N_RULE, N_AREA LOGICAL :: LREMOVE, LERROR4 INTEGER, ALLOCATABLE :: REG_UNQ( : ) LOGICAL, ALLOCATABLE :: LSUB( : ) LOGICAL :: LREG_RMDR REAL, ALLOCATABLE :: RMDR_MASK( :,: ) C Retrieve Environment Variable Letting User Ignore this Check C and allowing the model to proceed. CALL LOG_SUBHEADING( LOGDEV, "Check Emissions Mapping" ) WRITE( LOGDEV, '(/,/,5x,A)' ), REPEAT( '=', 77 ) WRITE( LOGDEV, '(5x,A,A)' ), '|> SCALING EMISSIONS CONSISTENT WITH ', & 'EMISSIONS CONTROL FILE SUPPLIED BY USER' WRITE( LOGDEV, '(5x,A)' ), REPEAT( '=', 77 ) ! Write Out Region Diagnostic Information WRITE( LOGDEV, '(/,5x,A)' ),'|> Regions Available for Scaling:' WRITE( LOGDEV, '(5x,A)' ),'=================================' ! Print Information about All the Available Regions for Scaling WRITE( LOGDEV,'(8x,A,2x,A,8x,A,10x,A)' ),'Number','Region Label','File Label','Variable' WRITE( LOGDEV,'(8x,A,2x,A,8x,A,10x,A)' ),'------','------------','----------','--------' DO IRGN = 1,DESID_N_REG WRITE( LOGDEV,'(8x,I3,5x,A18,2x,A18,2x,A)' ),IRGN, DESID_REG(IRGN)%LABEL( 1:18 ), & DESID_REG( IRGN )%File( 1:18 ), TRIM(DESID_REG( IRGN )%VAR ) IF ( DESID_REG(IRGN)%FILE(1:6) .EQ. 'Family' ) THEN F = INDEX1( DESID_REG(IRGN)%LABEL(1:18), DESID_N_REG_FAMS, REGIONFAMILYNAME ) DO IRGN2 = 1,REGIONFAMILYNUM( F ) WRITE( LOGDEV,'(56x,A)' ), REGIONFAMILYMEMBERS( F,IRGN2 ) END DO END IF END DO ! Retrieve the Emission Variables Available From Emissions Streams ! Load Default Molecular Weights and Units based on ! SMOKE/MOVES/SPECIATE specifications WRITE( LOGDEV, '(/,5x,A)' ),'|> Map Available Emissions Variables to Defaults:' WRITE( LOGDEV, '(5x,A)' ),'==================================================' N_EMVAR_CATCH = 0 DO ISRM = 1,DESID_N_SRM IF ( ISRM .EQ. ISEASRM .OR. ISRM .EQ. IBIOSRM .OR. & ISRM .EQ. IDUSTSRM.OR. ISRM .EQ. ILTSRM .OR. & ISRM .EQ. IMGSRM .OR. ISRM .EQ. IMIOGSRM ) CYCLE ALLOCATE( DESID_EMVAR( ISRM )%MW ( DESID_EMVAR( ISRM )%LEN ) ) ALLOCATE( DESID_EMVAR( ISRM )%USED ( DESID_EMVAR( ISRM )%LEN ) ) ALLOCATE( DESID_EMVAR( ISRM )%CONV ( DESID_EMVAR( ISRM )%LEN ) ) ALLOCATE( DESID_EMVAR( ISRM )%BASIS ( DESID_EMVAR( ISRM )%LEN ) ) ALLOCATE( DESID_EMVAR( ISRM )%LAREA ( DESID_EMVAR( ISRM )%LEN ) ) ALLOCATE( DESID_EMVAR( ISRM )%LAREAADJ( DESID_EMVAR( ISRM )%LEN ) ) DESID_EMVAR( ISRM )%USED = .FALSE. DESID_EMVAR( ISRM )%LAREA = .FALSE. DESID_EMVAR( ISRM )%LAREAADJ= .FALSE. DO IEMVAR = 1,DESID_EMVAR( ISRM )%LEN ! Assign Default Molecular Weight to Each Emision Variable B = DESID_EMVAR( ISRM )%ARRY( IEMVAR ) IA = INDEX1( B, DESID_N_EMVAR_TABLE, DESID_EMVAR_TABLE( : )%NAME ) IF ( IA .GT. 0 ) THEN DESID_EMVAR( ISRM )%MW ( IEMVAR ) = DESID_EMVAR_TABLE( IA )%MW ELSE ! Emission Variable is not calculated online nor does it ! belong to the default list of commonly used ! variables. DESID_EMVAR( ISRM )%MW ( IEMVAR ) = 1.0 ! Only Write a Note to the User if this species hasn't ! been caught from a different stream already IF ( N_EMVAR_CATCH .EQ. 0 .OR. & INDEX1( B, 200, EMVAR_CATCH ) .EQ. 0 ) THEN N_EMVAR_CATCH = N_EMVAR_CATCH + 1 EMVAR_CATCH( N_EMVAR_CATCH ) = B END IF END IF END DO END DO WRITE( LOGDEV, '(/,5x,A)' ),'|> Checking Emissions Em. Var. Units: ' WRITE( LOGDEV, '(5x,A)' ),'======================================' DO ISRM = 1,DESID_N_SRM DO IEMVAR = 1,DESID_EMVAR( ISRM )%LEN ! Check Units and Assign Conversion Factors for ! translating [kmol or umol] -> mol, [kg or mg] -> g, and ! [s, min, hr] -> s CALL CHECK_EMIS_UNITS( ISRM, IEMVAR, & DESID_EMVAR( ISRM )%ARRY ( IEMVAR ), & DESID_EMVAR( ISRM )%UNITS( IEMVAR ), & DESID_EMVAR( ISRM )%CONV ( IEMVAR ), & DESID_EMVAR( ISRM )%BASIS( IEMVAR ), & DESID_EMVAR( ISRM )%LAREA( IEMVAR ) ) ! Default for detecting area fluxes is to adjust to ! projected grid IF ( DESID_EMVAR( ISRM )%LAREA( IEMVAR ) ) & DESID_EMVAR( ISRM )%LAREAADJ( IEMVAR ) = .TRUE. END DO END DO ! Process Area Normalization User Controls. Override Automatic defaults ! with forced area normalization and/or projection adjustment. N_AREA = 0 DO IAREA = 1,SIZE( DESID_AREA_NML ) IF( DESID_AREA_NML( IAREA )%STREAM .EQ. '' ) EXIT N_AREA = IAREA END DO ALLOCATE( RULE_STREAM( DESID_N_SRM ) ) DO IAREA = 1,N_AREA LREMOVE = .FALSE. CALL DESID_GET_RULE_STREAMS( DESID_AREA_NML( IAREA )%STREAM, & IAREA, RULE_STREAM, LREMOVE, LERROR4 ) IF ( LREMOVE ) CYCLE ! If the 'ALL' keyword was used, set all of the online ! sources to false. IF ( DESID_AREA_NML(IAREA)%STREAM .EQ. 'ALL' ) THEN IF ( ISEASRM .GT. 0 ) RULE_STREAM( ISEASRM ) = .FALSE. IF ( IBIOSRM .GT. 0 ) RULE_STREAM( IBIOSRM ) = .FALSE. IF ( IDUSTSRM .GT. 0 ) RULE_STREAM( IDUSTSRM ) = .FALSE. IF ( ILTSRM .GT. 0 ) RULE_STREAM( ILTSRM ) = .FALSE. IF ( IMGSRM .GT. 0 ) RULE_STREAM( IMGSRM ) = .FALSE. IF ( IMIOGSRM .GT. 0 ) RULE_STREAM( IMIOGSRM ) = .FALSE. ENDIF DO ISRM = 1,DESID_N_SRM IF ( RULE_STREAM( ISRM ) ) THEN DO IEMVAR = 1,DESID_EMVAR( ISRM )%LEN ! Override Area Normalization if Requested IF ( DESID_AREA_NML( IAREA )%AREA .EQ. 'TRUE' ) THEN DESID_EMVAR( ISRM )%LAREA( IEMVAR ) = .TRUE. ELSEIF (DESID_AREA_NML( IAREA )%AREA .EQ. 'FALSE' ) THEN DESID_EMVAR( ISRM )%LAREA( IEMVAR ) = .FALSE. END IF ! Override Area Adjustment if Requested IF ( DESID_AREA_NML( IAREA )%ADJ .EQ. 'TRUE' ) THEN DESID_EMVAR( ISRM )%LAREAADJ( IEMVAR ) = .TRUE. ELSEIF (DESID_AREA_NML( IAREA )%ADJ .EQ. 'FALSE' ) THEN DESID_EMVAR( ISRM )%LAREAADJ( IEMVAR ) = .FALSE. END IF END DO END IF END DO END DO ! Write Out All Available Stream Families to the Log File WRITE( LOGDEV, '(/,5x,A)' ),'|> Emission Stream Family Definitions:' WRITE( LOGDEV, '(5x,A)' ),'======================================' WRITE( LOGDEV,'(8x,A19,15x,A)' ),'Stream Family Label','Stream Family Members' WRITE( LOGDEV,'(8x,A19,15x,A)' ),'-------------------','---------------------' DO IFAM = 1,DESID_N_STREAM_FAMS WRITE( LOGDEV,'(8x,A32,2x,A)' ), STREAMFAMILYNAME( IFAM ), & STREAMFAMILYMEMBERS( IFAM,1 ) IF ( STREAMFAMILYNUM( IFAM ) .GT. 1 ) THEN DO ISRM = 2,STREAMFAMILYNUM( IFAM ) WRITE( LOGDEV,'(42x,A)' ), STREAMFAMILYMEMBERS( IFAM,ISRM ) END DO END IF END DO ! Write Out All Available Species Families to the Log File WRITE( LOGDEV, '(/,5x,A)' ),'|> CMAQ Species Family Definitions:' WRITE( LOGDEV, '(5x,A)' ),'======================================' WRITE( LOGDEV,'(8x,A20,14x,A)' ),'Species Family Label','Species Family Members' WRITE( LOGDEV,'(8x,A20,14x,A)' ),'--------------------','---------------------' DO IFAM = 1,N_CHEM_FAMS WRITE( LOGDEV,'(8x,A32,2x,A)' ), CHEMFAMILYNAME( IFAM ), & CHEMFAMILYMEMBERS( IFAM,1 ) IF ( CHEMFAMILYNUM( IFAM ) .GT. 1 ) THEN DO ISRM = 2,CHEMFAMILYNUM( IFAM ) WRITE( LOGDEV,'(42x,A)' ), CHEMFAMILYMEMBERS( IFAM,ISRM ) END DO END IF END DO ! Set up Stream <-> Size Distribution relationship. This routine ! populates the DESID_STREAM_AERO structure which tells the logic below which ! modes are present on which streams. WRITE( LOGDEV, '(/,5x,A)' ),'|> Mapping Particle Size Distributions to Each Emission Stream:' WRITE( LOGDEV, '(5x,A)' ),'===============================================================' CALL DESID_INIT_SIZE_DIST( JDATE, JTIME ) ! Process Default Emissions Mapping (if requested in namelist; i.e. ALLOCATE( LOCAL_SPEC( NI0 ) ) ! CMAQ Species Names ALLOCATE( LOCAL_EMVAR( NI0,DESID_N_SRM ) ) ! Emission Variable Names ALLOCATE( LOCAL_FAC ( NI0,DESID_N_SRM,N_SCALEFAC ) ) ! Scale Factor ALLOCATE( LOCAL_FAC_BULK( NI0,DESID_N_SRM,N_SCALEFAC ) ) ! Bulk Scale Factor For Printing to Diagnostic ALLOCATE( LOCAL_OP( NI0,DESID_N_SRM,N_SCALEFAC ) ) ! Operator for scaling rule ALLOCATE( LOCAL_REG( NI0,DESID_N_SRM,N_SCALEFAC ) ) ! Region Index ALLOCATE( LOCAL_BASIS ( NI0,DESID_N_SRM,N_SCALEFAC ) ) ! Mass or Mole Basis for Conversion ALLOCATE( LOCAL_CONV ( NI0,DESID_N_SRM,N_SCALEFAC ) ) ! Conversion Factor ALLOCATE( MAP_ISTRtoDIFF( NI0 ) ) ! Map from Instruction to Dispersed species ALLOCATE( MAP_ISTRtoEMVAR(NI0,DESID_N_SRM ) ) ! Map from Instruction to Emission Variable ALLOCATE( MAP_ISTRtoGAS( NI0 ) ) ! Map from Instruction to Gas Index ALLOCATE( MAP_ISTRtoAERO( NI0 ) ) ! Map from Instruction to Aerosol Index ALLOCATE( MAP_ISTRtoMODE( NI0 ) ) ! Map from Instruction to Aerosol Mode ALLOCATE( MAP_ISTRtoNUM ( NI0 ) ) ! Map from Instruction to Number Index ALLOCATE( MAP_ISTRtoSRF ( NI0 ) ) ! Map from Instruction to Surface Area Index ALLOCATE( MAP_ISTRtoSD ( NI0,DESID_N_SRM ) ) ! Map from Instruction to Size Distribution Ref ALLOCATE( DESID_STREAM_DIFF( N_SPC_DIFF,DESID_N_SRM ) ) LOCAL_SPEC = "" LOCAL_EMVAR = "" LOCAL_FAC = 0.0 LOCAL_FAC_BULK = 0.0 ! Output. Ignores aero_split and unit conversion LOCAL_OP = "" ! Output. Ignores aero_split and unit conversion LOCAL_REG = 1 ! Output. Ignores aero_split and unit conversion LOCAL_BASIS = "" LOCAL_CONV = 1.0 MAP_ISTRtoDIFF = 0 ! to Diffusion Vector MAP_ISTRtoEMVAR= 0 ! to EMission Variabl Location on File MAP_ISTRtoGAS = 0 ! to aerosol table MAP_ISTRtoAERO = 0 ! to aerosol table MAP_ISTRtoMODE = 0 ! to CMAQ aerosol mode MAP_ISTRtoNUM = 0 ! to aerosol number MAP_ISTRtoSRF = 0 ! to aerosol surface area MAP_ISTRtoSD = 0 ! to emissions aerosol mode DESID_STREAM_DIFF = .FALSE. ! Find all matches between the transported species list and the ! available variables from each stream. Apply a scale factor ! of 1 to these matches. For aerosols, the CMAQ species name ! may or may not include the mode suffix (eg. i, j, or k). ! Equivalence tests should be performed without a suffix on the ! variable name and with each suffix added in turn. DESID_N_ISTR = 0 SPECNAME = '' ! Insert Emissions Instructions for Aerosol Number and Surface Area, ! if at least one aerosol species is being transported IF ( COUNT( DIFF_MASK_AERO ) .GT. 0 ) THEN DO IM = 1,N_MODE ! Aerosol Number LOCAL_SPEC( DESID_N_ISTR+1 ) = AEROMODE( IM )%NUM_NAME LOCAL_FAC ( DESID_N_ISTR+1,:,1 ) = 1.0 LOCAL_FAC_BULK ( DESID_N_ISTR+1,:,1 ) = 1.0 LOCAL_BASIS( DESID_N_ISTR+1,:,1 ) = 'UNIT' LOCAL_CONV( DESID_N_ISTR+1,:,1 ) = 1.0 LOCAL_OP ( DESID_N_ISTR+1,:,1 ) = "a" LOCAL_REG ( DESID_N_ISTR+1,:,1 ) = 1 MAP_NUMtoISTR( IM ) = DESID_N_ISTR+1 MAP_ISTRtoNUM( DESID_N_ISTR+1 ) = IM MAP_ISTRtoDIFF( DESID_N_ISTR+1 ) = & INDEX1( LOCAL_SPEC( DESID_N_ISTR+1 ), N_SPC_DIFF, DIFF_SPC ) DESID_STREAM_DIFF( MAP_ISTRtoDIFF( DESID_N_ISTR+1 ),: ) = .TRUE. MAP_ISTRtoSD( DESID_N_ISTR+1, : ) = 0 ! Aerosol Surface Area LOCAL_SPEC( DESID_N_ISTR+2 ) = AEROMODE( IM )%SRF_NAME LOCAL_FAC ( DESID_N_ISTR+2,:,1 ) = 1.0 LOCAL_FAC_BULK ( DESID_N_ISTR+2,:,1 ) = 1.0 LOCAL_BASIS( DESID_N_ISTR+2,:,1 ) = 'UNIT' LOCAL_CONV( DESID_N_ISTR+2,:,1 ) = 1.0 LOCAL_OP ( DESID_N_ISTR+2,:,1 ) = "a" LOCAL_REG ( DESID_N_ISTR+2,:,1 ) = 1 MAP_SRFtoISTR( IM ) = DESID_N_ISTR+2 MAP_ISTRtoSRF( DESID_N_ISTR+2 ) = IM MAP_ISTRtoDIFF( DESID_N_ISTR+2 ) = & INDEX1( LOCAL_SPEC( DESID_N_ISTR+2 ), N_SPC_DIFF, DIFF_SPC ) DESID_STREAM_DIFF( MAP_ISTRtoDIFF( DESID_N_ISTR+2 ),: ) = .TRUE. MAP_ISTRtoSD( DESID_N_ISTR+2, : ) = 0 DESID_N_ISTR = DESID_N_ISTR + 2 END DO END IF ! Process User-Defined Emissions Scaling Rules. CALL LOG_SUBHEADING( LOGDEV, 'Reading and Storing Emission Scaling Rules' ) ! Find Total Number of Rules N_RULE = 0 DO IRULE = 1,SIZE( DESID_RULES_NML ) IF( DESID_RULES_NML( IRULE )%SPEC .EQ. '' ) EXIT N_RULE = IRULE END DO ! Implement Online Scaling Rules that are less exposed to users CALL DESID_GET_ONLINE_RULES( N_RULE ) ! Allocate Rule->Instruction Transform Masks ALLOCATE( RULE_SPEC ( N_SPC_DIFF ) ) ALLOCATE( RULE_EMVAR ( DESID_N_SRM ) ) ALLOCATE( RULE_PHASE ( DESID_N_SRM ) ) DO ISRM = 1,DESID_N_SRM N = DESID_EMVAR( ISRM )%LEN RULE_EMVAR( ISRM )%LEN = N ALLOCATE( RULE_EMVAR( ISRM )%ARRY( N ) ) N = DESID_STREAM_AERO( ISRM )%LEN RULE_PHASE( ISRM )%LEN = N ALLOCATE( RULE_PHASE( ISRM )%ARRY( N ) ) END DO ! Loop Through Emission Rules, Test for Fidelity, expand if necessary ! and Apply them to the instruction set that currently exists. DO IRULE = 1,N_RULE ! Exit this loop if the rule is blank IF ( DESID_RULES_NML( IRULE )%SPEC .EQ. '' ) EXIT ! Expand Rule To Individual Instructions. If the CMAQ ! Species, Stream Label, and Em. Variable are all single ! components, then there will just be one instruction. If ! any of them equal 'All' the number of instructions will ! grow correspondingly. !------ ------ ------ ------ ------ ------ ----- ! First error check and expand the stream field ! This subroutine returns a logical vector, RULE_STREAM, ! which identifies which streams are affected by this rule. LREMOVE = .FALSE. CALL DESID_GET_RULE_STREAMS( DESID_RULES_NML( IRULE )%STREAM, & IRULE, RULE_STREAM, LREMOVE, LERROR4 ) IF ( LREMOVE ) CYCLE !------ ------ ------ ------ ------ ---- ! Now error check and expand the emission variable field CALL UPCASE( DESID_RULES_NML( IRULE )%EMVAR ) !Initialize Emission Variable Array for every Stream DO ISRM = 1,DESID_N_SRM RULE_EMVAR( ISRM )%ARRY = .FALSE. END DO LEMVAR_KEY = .FALSE. LERROR = .TRUE. IF ( DESID_RULES_NML( IRULE )%EMVAR .EQ. 'ALL' ) THEN ! Expand the Rule to Apply to All Emission Variables DO ISRM = 1,DESID_N_SRM IF ( .NOT. RULE_STREAM( ISRM ) ) CYCLE RULE_EMVAR( ISRM )%ARRY = .TRUE. LEMVAR_KEY = .TRUE. LERROR = .FALSE. END DO ELSE ! Determine if the Emission Variable Label Refers to A ! Family and if So, Apply the Rule to all members of that ! Family IFAM = INDEX1( DESID_RULES_NML( IRULE )%EMVAR, N_Chem_Fams, ChemFamilyName ) IAERO = 0 IF ( IFAM .GT. 0 ) & IAERO= INDEX1( ChemFamilyName(IFAM), N_AEROSPC, AEROSPC(:)%BULKNAME ) IF ( IFAM .EQ. 0 .OR. IAERO .NE. 0 ) THEN ! This Emission Variable Label Does not match any families or this is an ! aerosol bulkname. Just look for one variable DO ISRM = 1,DESID_N_SRM IF ( .NOT.RULE_STREAM( ISRM ) ) CYCLE IDX = INDEX1( DESID_RULES_NML( IRULE )%EMVAR, DESID_EMVAR( ISRM )%LEN, & DESID_EMVAR( ISRM )%ARRY ) IF ( IDX .NE. 0 ) THEN ! A matching Emission variable has been found RULE_EMVAR( ISRM )%ARRY( IDX ) = .TRUE. LERROR = .FALSE. END IF END DO END IF IF ( IFAM .NE. 0 .AND. IAERO .EQ. 0 ) THEN ! This is not an aerosol bulkname. Loop through all the ! members to assign emission variables NCHEM = ChemFamilyNum( IFAM ) CHEM_NAME(1:NCHEM) = ChemFamilyMembers( IFAM,1:NCHEM ) LEMVAR_KEY = .TRUE. DO ICHEM = 1,NCHEM LERROR3( ICHEM ) = .FALSE. LERROR2 = .TRUE. DO ISRM = 1,DESID_N_SRM IF ( .NOT. RULE_STREAM( ISRM ) ) CYCLE ! Find the Specific Species this Rule Identifies IDX = INDEX1( CHEM_NAME( ICHEM ), DESID_EMVAR( ISRM )%LEN, & DESID_EMVAR( ISRM )%ARRY ) IF ( IDX .NE. 0 ) THEN RULE_EMVAR( ISRM )%ARRY( IDX ) = .TRUE. LERROR2 = .FALSE. END IF END DO IF ( LERROR2 ) THEN ! Store the index of the variables not found on ! any emission stream. LERROR3( ICHEM ) = .TRUE. END IF END DO IF ( .NOT. ANY( LERROR3 ) ) LERROR = .FALSE. END IF END IF IF ( LERROR ) THEN IF ( .NOT. EMISCHK ) THEN WRITE( LOGDEV, '(/,5x,A,/,5x,2A,/,5x,3A,3(/,5x,A))') & '*** ATTENTION **********************************************:', & 'The emission variable or member of family ',TRIM( DESID_RULES_NML( IRULE )%EMVAR ), & 'was not found in the emission stream(s) ',TRIM(DESID_RULES_NML(IRULE)%STREAM),' but the ', & 'CTM_EMISCHK environment variable set to False so simulation ', & 'will proceed.', & '*************************************************************' IF ( IFAM .NE. 0 ) THEN WRITE( LOGDEV, '(7x,A,/,7x,A,/,7x,A,1x,A )') & 'The emission variable field applied was a chemical family. The specific', & 'family member(s) that did not appear on requested emission stream(s)', & 'inputs was:' DO ICHEM = 1,NCHEM IF ( LERROR3( ICHEM ) ) WRITE( LOGDEV, '(20x,A)' ) TRIM( CHEM_NAME( ICHEM ) ) END DO WRITE( LOGDEV, '(7x,A)' ) & '*************************************************************' END IF CYCLE ELSE WRITE( LOGDEV, '(5x,A,/,5x,2A,/,5x,3A,7(/,5x,A))') & '*** ERROR **************************************************************:', & 'The emission variable or member of family ',TRIM( DESID_RULES_NML( IRULE )%EMVAR ), & ' is not found on the stream(s) ',TRIM(DESID_RULES_NML(IRULE)%STREAM),'.', & 'Use one of the below options to continue.', & '1) Change or remove this emission rule so that it refers to an existing emission variable.', & 'or', & '2) Change CTM_EMISCHK environment variable to False (F) in the runscript', & 'if model predictions are acceptable without using the above emissions.', & '*************************************************************************' IF ( IFAM .NE. 0 ) THEN WRITE( LOGDEV, '(7x,A,/,7x,A,/,7x,A,1x,A )') & 'The emission variable field applied was a chemical family. The specific', & 'family member(s) that did not appear on requested emission stream(s)', & 'inputs was:' DO ICHEM = 1,NCHEM IF ( LERROR3( ICHEM ) ) WRITE( LOGDEV, '(20x,A)' ) TRIM( CHEM_NAME( ICHEM ) ) END DO WRITE( LOGDEV, '(7x,A)' ) & '*************************************************************' END IF XMSG = 'Species with the missing emission variable ' & //'must have a variable found in at least one stream.' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF END IF !------ ------ ------ ------ ------ ------ ! Now Error Check and Expand the CMAQ Species Field CALL UPCASE( DESID_RULES_NML( IRULE )%SPEC ) ! Initialize CMAQ Species Array RULE_SPEC = .FALSE. LSPEC_KEY = .FALSE. IF ( DESID_RULES_NML( IRULE )%SPEC .EQ. 'ALL' ) THEN ! Expand the Rule to Apply to All Species RULE_SPEC = .TRUE. LSPEC_KEY = .TRUE. ELSE ! Determine if the Species Label Refers to A Family and if So, ! Apply the Rule to all members of that Family IFAM = INDEX1( DESID_RULES_NML( IRULE )%SPEC, N_Chem_Fams, ChemFamilyName ) IF ( IFAM .EQ. 0 ) THEN NCHEM = 1 CHEM_NAME(1) = DESID_RULES_NML( IRULE )%SPEC ELSE NCHEM = ChemFamilyNum( IFAM ) CHEM_NAME(1:NCHEM) = ChemFamilyMembers( IFAM,1:NCHEM ) LSPEC_KEY = .TRUE. END IF DO ICHEM = 1,NCHEM ! Find the Specific Species this Rule Identifies IDX = INDEX1( CHEM_NAME( ICHEM ), N_SPC_DIFF, DIFF_SPC ) JDX = INDEX1( CHEM_NAME( ICHEM ), N_AEROSPC, AEROSPC( : )%BULKNAME ) IF ( IDX .NE. 0 ) THEN RULE_SPEC( IDX ) = .TRUE. ELSE IF ( JDX .NE. 0 ) THEN ! This is an aerosol species, and it is being ! identified with a bulk name (no mode suffix). ! We need to allow for all possible DIFF_SPC with ! all used suffixes SN = CHEM_NAME( ICHEM ) DO IM = 1,N_MODE KDX = INDEX1( TRIM( SN )//MODESUFF( IM ), N_SPC_DIFF, DIFF_SPC ) IF ( KDX .NE. 0 ) RULE_SPEC( KDX ) = .TRUE. END DO ELSE WRITE( LOGDEV, '(/,5A,/,A,/,A,/,A,/,A)' ), & 'Species ',TRIM(DESID_RULES_NML( IRULE )%SPEC),':', & TRIM(CHEM_NAME(ICHEM)),' was used in the Emissions', & ' Control Instructions Namelist but it is not a valid CMAQ ', & 'transported species or family. Please add it to one of the ', & 'input chemical namelists (ie. GC, AE, etc). Note that aerosol', & 'Number and Surface Area Species are not valid for scaling.' XMSG = 'Error in Emissions Map Processing.' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF END DO END IF !------ ------ ------ ------ ------ ------ ! Now Error Check and Expand the Phase Field CALL UPCASE( DESID_RULES_NML( IRULE )%PHASE ) !Initialize Emission Variable Array for every Stream DO ISRM = 1,DESID_N_SRM RULE_PHASE( ISRM )%ARRY = .FALSE. END DO LERROR = .TRUE. DO ISRM = 1,DESID_N_SRM ! Skip this stream if it is not identified IF ( .NOT. RULE_STREAM( ISRM ) ) CYCLE IF ( DESID_RULES_NML( IRULE )%PHASE .EQ. 'ALL' ) THEN ! Expand the Rule to Apply to All Phases and Modes RULE_PHASE( ISRM )%ARRY = .TRUE. LERROR = .FALSE. ELSE IF ( DESID_RULES_NML( IRULE )%PHASE .EQ. 'AERO' ) THEN ! Expand the Rule to Apply to All Aerosol Modes RULE_PHASE( ISRM )%ARRY(2:) = .TRUE. LERROR = .FALSE. ELSE ! Find the Specific Phase/Mode this Rule Identifies IDX = INDEX1( DESID_RULES_NML( IRULE )%PHASE, DESID_STREAM_AERO( ISRM )%LEN, & DESID_STREAM_AERO( ISRM )%NAME ) IF ( IDX .NE. 0 ) THEN RULE_PHASE( ISRM )%ARRY( IDX ) = .TRUE. LERROR = .FALSE. END IF END IF END DO IF ( LERROR ) THEN WRITE( LOGDEV, '(A,/,2A,/,A,/,A,I3,A1,/,A)') & '*****************************ERROR***************************************:', & 'The phase or mode ',TRIM( DESID_RULES_NML( IRULE )%PHASE ), & ' is not found in any of the emission streams you are requesting for ', & 'emission rule ',IRULE,'.', & '*************************************************************************' WRITE( LOGDEV, * ) XMSG = 'Species with the missing mode ' & //'must have a mode found in at least one stream.' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF !------ ------ ------ ------ ------ ------ ! Now Error Check the Region Field CALL UPCASE( DESID_RULES_NML( IRULE )%REGION ) ! Check that the Region has been defined LERROR = .TRUE. DO IRGN = 1,DESID_N_REG IF ( DESID_RULES_NML( IRULE )%REGION .EQ. & DESID_REG( IRGN )%LABEL ) THEN REGNUM = IRGN LERROR = .FALSE. END IF END DO IF ( LERROR ) THEN WRITE( LOGDEV, '(A,/,2A,/,A,/,A,/,A)') & '*****************************ERROR***************************************:', & 'The Region ',TRIM( DESID_RULES_NML( IRULE )%REGION ), & ' is not found in any of the regions defined', & ' in the Emission Control File.', & '*************************************************************************' WRITE( LOGDEV, * ) XMSG = 'Regions used in the Emissions Scaling must ' & //'be defined on the Emission Control File.' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF !------ ------ ------ ------ ------ ! Check the Operation Identifier for errors IF ( DESID_RULES_NML( IRULE )%OP .NE. 'a' .AND. & DESID_RULES_NML( IRULE )%OP .NE. 'm' .AND. & DESID_RULES_NML( IRULE )%OP .NE. 'o' ) THEN WRITE( LOGDEV, * ) WRITE( XMSG, '(/,A,A,A,I3,A,A,A)' ), & 'The Emissions Operator (',DESID_RULES_NML( IRULE )%OP, & ') applied for Rule ',IRULE,' in the Emissions Control ', & 'Namelist does not match any of the allowed values (a, m, or o)', & '. Please check the your emissions control inputs.' WRITE( LOGDEV, * )TRIM( XMSG ) XMSG = 'Error in Emissions Map Processing.' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF !------ ------ ------ ------ ------ ------ ------ ! Order the indivdual tasks in this rule into one ! vector of instructions. The operator, scale factor, and ! region for each of these tasks will be uniform because ! they apply to the entire rule N_TASKS = 0 DO IDIFF = 1,N_SPC_DIFF IF ( RULE_SPEC( IDIFF ) ) THEN DO ISRM = 1,DESID_N_SRM IF ( RULE_STREAM( ISRM ) ) THEN DO IEMVAR = 1,DESID_EMVAR( ISRM )%LEN IF ( RULE_EMVAR( ISRM )%ARRY( IEMVAR ) ) THEN DO ISD = 1,DESID_STREAM_AERO( ISRM )%LEN IF ( RULE_PHASE( ISRM )%ARRY( ISD ) ) THEN LTEST = .TRUE. ! If this task applies to a Gas CMAQ species, make ! sure the aerosol phases are not invoked so that ! double-counting is avoided IF ( .NOT. DIFF_MASK_AERO( IDIFF ) .AND. & DESID_STREAM_AERO( ISRM )%NAME( ISD ) .NE. 'GAS' ) & LTEST = .FALSE. ! If this task applies to an aerosol CMAQ species, ! then make sure that the 'mode' selection will apply ! mass to this CMAQ species, DIFF_SPC( IDIFF ). ! Because CMAQ species are resolved in modes, it ! could be that this 'mode' selection will not put ! any mass in this species. For example, if this ! species is for the Aitken mode, but the selection ! was meant to populate the coarse mode. IF ( DIFF_MASK_AERO( IDIFF ) ) THEN DO IAERO = 1,N_AEROSPC IM = INDEX1( DIFF_SPC( IDIFF ), N_MODE, & AEROSPC( IAERO )%NAME( : ) ) IF ( IM .GT. 0 ) THEN IF ( DESID_STREAM_AERO( ISRM )%FACNUM( ISD,IM ) & .LE. 1.0e-10 ) LTEST = .FALSE. END IF END DO END IF ! If any family name was used for the Emission Variable ! and Species fields and those family or keyword ! names match, then only exact matches or existing ! relationships should be populated. IF ( (LEMVAR_KEY .AND. LSPEC_KEY ) .AND. & (DESID_EMVAR( ISRM )%ARRY( IEMVAR ) .NE. & DIFF_SPC( IDIFF ) ) ) THEN ! Look for this relationship in at least one ! of the existing instructions LTEST = .FALSE. DO ISTRN = 1,DESID_N_ISTR IF ( LOCAL_SPEC( ISTRN ) .EQ. DIFF_SPC( IDIFF ) .AND. & LOCAL_EMVAR( ISTRN,ISRM ) .EQ. & DESID_EMVAR( ISRM )%ARRY( IEMVAR ) ) THEN LTEST = .TRUE. END IF END DO END IF ! Add a Task for this combination of CMAQ ! Species, Stream, Em. Variable, and Phase ! if the test for validity (LTEST) is still ! TRUE IF ( LTEST ) THEN N_TASKS = N_TASKS + 1 TASK_IDIFF( N_TASKS ) = IDIFF TASK_ISRM ( N_TASKS ) = ISRM TASK_IEMVAR(N_TASKS ) = IEMVAR TASK_SPEC ( N_TASKS ) = DIFF_SPC( IDIFF ) TASK_EMVAR( N_TASKS ) = DESID_EMVAR(ISRM)%ARRY(IEMVAR) TASK_PHASE( N_TASKS ) = ISD END IF END IF END DO END IF END DO END IF END DO END IF END DO !------ ------ ------ ------ ------ ------ ! Modify the Emissions Instruction Set Based on this Rule IF ( DESID_RULES_NML( IRULE )%OP .EQ. 'a' ) THEN ! Add this rule to existing instructions DO IC = 1,N_TASKS ! This entry needs to be created, but first we need ! to check whether to add it as a new row or add it ! to a previous row. We can add to a previous row ! if the CMAQ species matches exactly, there is no ! em. var present for this stream, and the same ! Emissions Variable is being used for another ! stream. LFOUND = .FALSE. ! Look For a suitable previous instruction to add to. IF ( DESID_N_ISTR .GT. 0 ) THEN DO ISTRN = 1,DESID_N_ISTR IF ( ! The CMAQ species for this instruction matches ! the CMAQ species in the rule & LOCAL_SPEC( ISTRN ) .EQ. TASK_SPEC( IC ) .AND. ! The instruction emission file variable ! matches that of the rule & ( ( LOCAL_EMVAR( ISTRN, TASK_ISRM( IC ) ) .EQ. & TASK_EMVAR( IC ) ) .OR. ! The instruction has no emission file variable assigned ! yet and one is available on this stream. & ( LOCAL_EMVAR( ISTRN, TASK_ISRM( IC ) ) .EQ. '' .AND. & ANY( LOCAL_EMVAR( ISTRN,: ) .EQ. TASK_EMVAR( IC ))) ) & ) THEN ! Add This Command to Instruction number ISTR ISTR = ISTRN LFOUND = .TRUE. END IF END DO END IF ! If no suitable instruction was found to add to, add a new ! instruction. This means either there was no previous ! instruction with the same CMAQ species and emission variable ! or there was an instruction with this CMAQ species but it ! already had an emission variable and scale factor associated ! with this stream. IF ( .NOT. LFOUND ) THEN DESID_N_ISTR = DESID_N_ISTR + 1 ISTR = DESID_N_ISTR LOCAL_SPEC( ISTR ) = TASK_SPEC( IC ) MAP_ISTRtoDIFF( ISTR ) = TASK_IDIFF( IC ) ! Link this row to the Aerosol or Gas Species IF ( DIFF_MASK_AERO( TASK_IDIFF( IC ) ) ) THEN DO IAERO = 1,N_AEROSPC JM = INDEX1( LOCAL_SPEC( ISTR ), N_MODE, AEROSPC( IAERO )%NAME( : ) ) IF ( JM .GT. 0 ) THEN MAP_ISTRtoAERO( ISTR ) = IAERO MAP_ISTRtoMODE( ISTR ) = JM END IF END DO ELSE MAP_ISTRtoGAS( ISTR ) = TASK_IDIFF( IC ) END IF END IF ! Now that the instruction location has either been ! found or created, populate it. ISRM = TASK_ISRM( IC ) IEM = DESID_STREAM_AERO( ISRM )%REF( TASK_PHASE( IC ) ) IEMVAR = TASK_IEMVAR( IC ) LOCAL_EMVAR( ISTR, ISRM ) = TASK_EMVAR( IC ) MAP_ISTRtoEMVAR( ISTR, ISRM ) = IEMVAR DESID_EMVAR( ISRM )%USED( IEMVAR ) = .TRUE. MAP_ISTRtoSD( ISTR, ISRM ) = TASK_PHASE( IC ) DESID_STREAM_DIFF( TASK_IDIFF( IC ),ISRM ) = .TRUE. ! Only apply an aerosol size-split parameter if this ! species is an aerosol and if it is not from a dust ! or sea spray sector AERO_SPLIT = 1.0 IF ( DIFF_MASK_AERO( TASK_IDIFF( IC ) ) .AND. & ISRM .NE. IDUSTSRM .AND. ISRM .NE. ISEASRM ) & AERO_SPLIT = SD_SPLIT( TASK_IDIFF( IC ), IEM ) ! Determine Next Free Location in Scale Factor Space ! (IFAC) so that the scale factor can be added. DO IFAC = 1,N_SCALEFAC IF ( LOCAL_OP( ISTR, ISRM, IFAC ) .EQ. '' ) THEN CALL CHECK_OP( DESID_RULES_NML( IRULE )%OP, IRULE ) CALL CHECK_BASIS( DESID_RULES_NML( IRULE )%BASIS, IRULE ) LOCAL_FAC ( ISTR, ISRM, IFAC ) = DESID_RULES_NML( IRULE)%FAC * AERO_SPLIT LOCAL_FAC_BULK(ISTR,ISRM,IFAC )= DESID_RULES_NML( IRULE)%FAC LOCAL_REG( ISTR, ISRM, IFAC ) = REGNUM LOCAL_OP( ISTR, ISRM, IFAC ) = DESID_RULES_NML( IRULE)%OP LOCAL_BASIS( ISTR, ISRM, IFAC )= DESID_RULES_NML( IRULE)%BASIS LOCAL_CONV ( ISTR, ISRM, IFAC )= DESID_EMVAR( ISRM )%CONV( IEMVAR ) EXIT END IF END DO END DO ELSE ! Modify All Existing Instructions that Match this ! rule's parameters. DO IC = 1,N_TASKS ! Loop through existing instructions and find matches IF ( DESID_N_ISTR .GT. 0 ) THEN ISRM = TASK_ISRM( IC ) DO ISTR = 1,DESID_N_ISTR IF ( LOCAL_SPEC( ISTR ) .EQ. TASK_SPEC( IC ) ) THEN IF ( LOCAL_EMVAR( ISTR, ISRM ) .EQ. TASK_EMVAR( IC ) .AND. & MAP_ISTRtoSD( ISTR,ISRM ) .EQ. TASK_PHASE( IC ) ) THEN IEMVAR = TASK_IEMVAR( IC ) IEM = DESID_STREAM_AERO( ISRM )%REF( TASK_PHASE( IC ) ) AERO_SPLIT = 1.0 IF ( DIFF_MASK_AERO( TASK_IDIFF( IC ) ) .AND. & DESID_RULES_NML( IRULE )%OP .EQ. 'o' ) & AERO_SPLIT = SD_SPLIT( TASK_IDIFF( IC ), IEM ) ! Determine Next Free Location in Scale Factor Space (IFAC) so ! that the scale factor can be added. DO IFAC = 1,N_SCALEFAC IF ( LOCAL_OP( ISTR, ISRM, IFAC ) .EQ. '' ) THEN CALL CHECK_OP( DESID_RULES_NML( IRULE )%OP, IRULE ) CALL CHECK_BASIS( DESID_RULES_NML( IRULE )%BASIS, IRULE ) LOCAL_FAC ( ISTR, ISRM, IFAC ) = DESID_RULES_NML( IRULE )%FAC * AERO_SPLIT LOCAL_FAC_BULK ( ISTR, ISRM, IFAC ) = DESID_RULES_NML( IRULE )%FAC LOCAL_REG( ISTR, ISRM, IFAC ) = REGNUM LOCAL_OP( ISTR, ISRM, IFAC ) = DESID_RULES_NML( IRULE )%OP LOCAL_BASIS( ISTR, ISRM, IFAC ) = DESID_RULES_NML( IRULE )%BASIS LOCAL_CONV( ISTR, ISRM, IFAC ) = DESID_EMVAR( ISRM )%CONV( IEMVAR ) EXIT END IF END DO END IF END IF END DO ELSE WRITE( LOGDEV, '(5(/,A))' ), & 'ATTENTION: The emissions control file is ', & 'attempting to modify an existing instruction, but ', & 'there are no compatible existing instructions. ', & 'Please check the configuration of the emission ', & 'control file.' END IF END DO END IF ! Operator END DO !IRULE ! Create Summarized Emission Scale Factor Structure that ! can be processed in the Emiss_Scaling subroutine every time ! step ALLOCATE( DESID_FAC( DESID_N_ISTR,DESID_N_SRM ) ) ALLOCATE( REG_UNQ( N_SCALEFAC ) ) ALLOCATE( DESID_REG_RMDR( 1000 ) ) N_REG_RMDR = 0 ALLOCATE( RMDR_MASK( NCOLS,NROWS )) ALLOCATE( LSUB( DESID_N_REG ) ) DO ISTR = 1,DESID_N_ISTR DO ISRM = 1,DESID_N_SRM DESID_FAC( ISTR,ISRM )%NFAC = 0 IF ( MAP_ISTRtoEMVAR( ISTR,ISRM ) .NE. 0 ) THEN ! First determine number of emission scale factors (NFAC) and ! number of unique regions (NREG) that are specified for this ! instruction and stream combination NFAC = 1 NREG = 1 REG_UNQ(:) = 1 DO IFAC = 2,N_SCALEFAC IF ( LOCAL_OP( ISTR,ISRM,IFAC ) .EQ. '' ) EXIT NFAC = NFAC + 1 ! Determine whether the region for this factor is ! unique for this combination of ISTR and ISRM IF ( COUNT( REG_UNQ(1:NREG) .eq. & LOCAL_REG( ISTR,ISRM,IFAC ) ) .eq. 0 ) THEN NREG = NREG + 1 REG_UNQ( NREG ) = LOCAL_REG( ISTR,ISRM,IFAC ) END IF END DO ! Determine if two active regions contain one or more ! identical Sub-Regions. If they do, then add that common ! sub-region as an active region. IF ( NREG .GT. 1 ) THEN DO IRGN = 1,NREG-1 DO JRGN = IRGN+1,NREG I = REG_UNQ( IRGN ) J = REG_UNQ( JRGN ) ! Skip if one of these Regions is a Sub-Region of the other IF ( DESID_REG_SUB(I,J) .OR. DESID_REG_SUB(J,I) ) CYCLE DO K = 1,DESID_N_REG ! Check if IRGN and JRGN have a common Sub-Region ! and that that sub-region is not an active region IF ( DESID_REG_SUB(I,K) .AND. DESID_REG_SUB(J,K) .AND. #ifndef mpas & INDEXINT1( K, NREG, REG_UNQ(1:NREG) ) .EQ. 0 ) THEN #else & INDEX1( K, NREG, REG_UNQ(1:NREG) ) .EQ. 0 ) THEN #endif ! Add Sub-Region K to Active Region List NREG = NREG + 1 REG_UNQ( NREG ) = K ! Add a factor to zero out this Sub-Region NFAC = NFAC + 1 LOCAL_REG( ISTR,ISRM,NFAC ) = K LOCAL_OP ( ISTR,ISRM,NFAC ) = 'o' LOCAL_FAC( ISTR,ISRM,NFAC ) = 0. LOCAL_FAC_BULK( ISTR,ISRM,NFAC ) = 0. LOCAL_BASIS( ISTR,ISRM,NFAC ) = 'UNIT' LOCAL_CONV( ISTR,ISRM,NFAC ) = 1.0 ! Add Factors for this Sub-Region to the ! Instruction set DO IFAC = 1,NFAC-1 IF ( LOCAL_REG( ISTR,ISRM,IFAC ) .EQ. K .OR. & DESID_REG_SUB( LOCAL_REG(ISTR,ISRM,IFAC), K) ) THEN ! Region K is a Sub-Region of the Region in this instruction NFAC = NFAC + 1 LOCAL_REG( ISTR,ISRM,NFAC ) = K LOCAL_OP ( ISTR,ISRM,NFAC ) = LOCAL_OP ( ISTR,ISRM,IFAC ) LOCAL_FAC( ISTR,ISRM,NFAC ) = LOCAL_FAC( ISTR,ISRM,IFAC ) LOCAL_FAC_BULK( ISTR,ISRM,NFAC )= LOCAL_FAC_BULK( ISTR,ISRM,IFAC ) LOCAL_BASIS( ISTR,ISRM,NFAC ) = LOCAL_BASIS( ISTR,ISRM,IFAC ) LOCAL_CONV( ISTR,ISRM,NFAC ) = LOCAL_CONV( ISTR,ISRM,IFAC ) END IF END DO END IF END DO END DO END DO END IF ! Allocate and Prepopulate Emission Factor Structure DESID_FAC( ISTR,ISRM )%NFAC = NFAC DESID_FAC( ISTR,ISRM )%NREG = NREG ALLOCATE( DESID_FAC( ISTR,ISRM )%FAC( NFAC ) ) ALLOCATE( DESID_FAC( ISTR,ISRM )%BULK( NFAC ) ) ALLOCATE( DESID_FAC( ISTR,ISRM )%BASIS( NFAC ) ) ALLOCATE( DESID_FAC( ISTR,ISRM )%AREA( NFAC ) ) ALLOCATE( DESID_FAC( ISTR,ISRM )%AREAADJ( NFAC ) ) ALLOCATE( DESID_FAC( ISTR,ISRM )%REG( NFAC ) ) ALLOCATE( DESID_FAC( ISTR,ISRM )%OP( NFAC ) ) ALLOCATE( DESID_FAC( ISTR,ISRM )%REG_UNQ( NREG ) ) ALLOCATE( DESID_FAC( ISTR,ISRM )%REG_RMDR( NREG ) ) DESID_FAC( ISTR,ISRM )%FAC = 0. DESID_FAC( ISTR,ISRM )%BULK = 0. DESID_FAC( ISTR,ISRM )%BASIS= 1. DESID_FAC( ISTR,ISRM )%AREA = .FALSE. DESID_FAC( ISTR,ISRM )%AREAADJ = .FALSE. DESID_FAC( ISTR,ISRM )%REG = 1 DESID_FAC( ISTR,ISRM )%OP = 0 DESID_FAC( ISTR,ISRM )%REG_UNQ= REG_UNQ( 1:NREG ) DESID_FAC( ISTR,ISRM )%REG_RMDR= 0 ! Populate remainder mask array of big regions by subtracting away ! their subsets DO IRGN = 1,NREG ! Move to the next region if this one has no sub-regions IF ( ALL( .NOT. DESID_REG_SUB( REG_UNQ(IRGN),: ) ) ) CYCLE ! Build vector of active sub-regions of this region LSUB(:) = .FALSE. DO JRGN = 1,NREG IF ( DESID_REG_SUB( REG_UNQ(IRGN),REG_UNQ(JRGN) ) ) & LSUB( REG_UNQ(JRGN) ) = .TRUE. ! Region JRGN is a subdomain of Region IRGN END DO IF ( ALL( .NOT. LSUB(:) )) CYCLE ! No active sub-regions ! Check to see if this remainder mask has been calculated already. LREG_RMDR = .FALSE. DO K = 1,N_REG_RMDR IF ( DESID_REG_RMDR( K )%REG .EQ. REG_UNQ(IRGN) .AND. & ALL( DESID_REG_RMDR( K )%SUB(:) .EQV. LSUB(:) ) ) THEN ! Remainder mask already exists. Map to it. LREG_RMDR = .TRUE. DESID_FAC( ISTR,ISRM )%REG_RMDR( IRGN ) = K EXIT END IF END DO IF ( LREG_RMDR ) CYCLE ! If there's no remainder mask already, add one N_REG_RMDR = N_REG_RMDR + 1 ! Identify Large Region DESID_REG_RMDR( N_REG_RMDR )%REG = REG_UNQ(IRGN) ! Identify active sub-regions ALLOCATE( DESID_REG_RMDR( N_REG_RMDR )%SUB( DESID_N_REG ) ) DESID_REG_RMDR( N_REG_RMDR )%SUB(:) = LSUB(:) ! Calculate remainder mask ALLOCATE( DESID_REG_RMDR( N_REG_RMDR )%MASK( NCOLS,NROWS )) RMDR_MASK(:,:) = DESID_REG_FAC(:,:,REG_UNQ(IRGN) ) DO JRGN = 1,NREG ! Make sure this sub-region is not a sub-region of ! another active sub-region LSUBSUB = .FALSE. DO KRGN = 1,NREG IF ( KRGN .NE. IRGN .AND. LSUB(REG_UNQ(KRGN)) .AND. & DESID_REG_SUB( REG_UNQ(KRGN),REG_UNQ(JRGN) ) ) & LSUBSUB = .TRUE. END DO IF ( LSUB(REG_UNQ(JRGN)) .AND. .NOT. LSUBSUB ) & RMDR_MASK(:,:) = MAX( 0., RMDR_MASK(:,:) & - DESID_REG_FAC(:,:,REG_UNQ(JRGN) )) END DO DESID_REG_RMDR( N_REG_RMDR )%MASK(:,:) = RMDR_MASK(:,:) ! Assign this remainder mask to an active region ! for this factor stack DESID_FAC( ISTR,ISRM )%REG_RMDR( IRGN ) = N_REG_RMDR END DO ! Populate Local Indices for Chemical Species IEMVAR = MAP_ISTRtoEMVAR( ISTR,ISRM ) EMVAR_MW= DESID_EMVAR( ISRM )%MW( IEMVAR ) ! MW [g mol-1] SPEC_MW = DIFF_MW( MAP_ISTRtoDIFF( ISTR ) ) ! Populate Emission Factor Structure DO IFAC = 1,NFAC DESID_FAC( ISTR,ISRM )%FAC( IFAC ) = LOCAL_FAC ( ISTR, ISRM, IFAC ) DESID_FAC( ISTR,ISRM )%BULK( IFAC ) = LOCAL_FAC_BULK( ISTR, ISRM, IFAC ) DESID_FAC( ISTR,ISRM )%REG( IFAC ) = LOCAL_REG( ISTR, ISRM, IFAC ) DESID_FAC( ISTR,ISRM )%AREA( IFAC ) = DESID_EMVAR( ISRM )%LAREA(IEMVAR) DESID_FAC( ISTR,ISRM )%AREAADJ( IFAC )= DESID_EMVAR( ISRM )%LAREAADJ(IEMVAR) SELECT CASE ( LOCAL_OP( ISTR, ISRM, IFAC ) ) CASE ( 'a' ) DESID_FAC( ISTR,ISRM )%OP( IFAC ) = 1 CASE ( 'm' ) DESID_FAC( ISTR,ISRM )%OP( IFAC ) = 2 CASE ( 'o' ) DESID_FAC( ISTR,ISRM )%OP( IFAC ) = 3 END SELECT ! Inspect all of the Emissions Instructions for conversion based on ! mass or moles. If there is a conversion, apply the correct factor ! based on species molecular weights. BASIS_FAC = 1.0 IF ( LOCAL_BASIS( ISTR, ISRM, IFAC ) .EQ. 'UNIT' ) THEN BASIS_FAC = BASIS_FAC ELSE IF ( LOCAL_BASIS( ISTR, ISRM, IFAC ) .EQ. 'MOLE' ) THEN IF ( DESID_EMVAR( ISRM )%BASIS( IEMVAR ) .EQ. 'MOLE' ) THEN BASIS_FAC = BASIS_FAC ELSE IF ( DESID_EMVAR( ISRM )%BASIS( IEMVAR ) .EQ. 'MASS' ) THEN ! Convert emission variable rate to moles BASIS_FAC = BASIS_FAC / EMVAR_MW ELSE ! Unknown Basis has been encountered. Need to exit. WRITE( XMSG,'(A,A16,A,I3,A,A,A)' ), & 'ERROR: Emission Variable ',TRIM(DESID_EMVAR(ISRM)%ARRY(IEMVAR) ), & ' on emission stream ',ISRM, ' has units which are not recognized ', & 'as an emission rate. If you wish to use this variable for ', & 'emissions, please correct the units (e.g. g/s or moles/s).' CALL M3EXIT( 'EMIS_SPC_MAP', 0, 0, XMSG, 2 ) END IF ! Check to see if this is an aerosol (mass-based) ! CMAQ species. IF ( .NOT. DIFF_MASK_AERO( MAP_ISTRtoDIFF( ISTR ) ) ) THEN BASIS_FAC = BASIS_FAC ELSE ! Convert species emission rate to mass BASIS_FAC = BASIS_FAC * SPEC_MW END IF ELSE IF ( LOCAL_BASIS( ISTR, ISRM, IFAC ) .EQ. 'MASS' ) THEN IF ( DESID_EMVAR( ISRM )%BASIS( IEMVAR ) .EQ. 'MOLE' ) THEN ! Convert emission variable rate to mass BASIS_FAC = BASIS_FAC * EMVAR_MW ELSE IF ( DESID_EMVAR( ISRM )%BASIS( IEMVAR ) .EQ. 'MASS' ) THEN BASIS_FAC = BASIS_FAC ELSE ! Unknown Basis has been encountered. Need to exit. WRITE( XMSG,'(A,A16,A,I3,A,A,A)' ), & 'ERROR: Emission Variable ',TRIM(DESID_EMVAR(ISRM)%ARRY(IEMVAR) ), & ' on emission stream ',ISRM, ' has units which are not recognized ', & 'as an emission rate. If you wish to use this variable for ', & 'emissions, please correct the units (e.g. g/s or moles/s).' CALL M3EXIT( 'EMIS_SPC_MAP', 0, 0, XMSG, 2 ) END IF ! Check to see if this is an aerosol (mass-based) ! CMAQ species. IF ( .NOT. DIFF_MASK_AERO( MAP_ISTRtoDIFF( ISTR ) ) ) THEN ! Convert species emission rate to moles BASIS_FAC = BASIS_FAC / SPEC_MW ELSE BASIS_FAC = BASIS_FAC END IF END IF DESID_FAC( ISTR,ISRM )%BASIS = BASIS_FAC IF ( DESID_FAC( ISTR,ISRM )%OP( IFAC ) .NE. 2 ) & DESID_FAC( ISTR,ISRM )%FAC( IFAC ) = & DESID_FAC( ISTR,ISRM )%FAC( IFAC ) * BASIS_FAC & * LOCAL_CONV( ISTR, ISRM, IFAC ) END DO END IF END DO END DO !End Rule Loop ! Reduce the size of the Region Remainder Mask DESID_REG_RMDR = DESID_REG_RMDR( 1:N_REG_RMDR ) ! Warn the User if there are no emissions instructions provided IF ( DESID_N_ISTR .LE. 0 ) THEN XMSG = 'There are no emissions instructions: VDEMIS is set to zero' ! below CALL M3WARN ( PNAME, JDATE, JTIME, XMSG ) END IF ! Print a message for each emissions stream variable that is not used. WRITE( LOGDEV, '(/,5x,A)' ) '|> Checking for unused Emissions Variables: ' WRITE( LOGDEV, '(5x,A)' ),'============================================' LERROR = .FALSE. DO ISRM = 1,DESID_N_SRM N = DESID_EMVAR( ISRM )%LEN N_UNUSED = COUNT( .NOT. DESID_EMVAR( ISRM )%USED( : ) & .AND. DESID_EMVAR(ISRM)%ARRY( 1:N ) .NE. 'NOT_AVAILABLE' ) WRITE( LOGDEV, '(5x,4A,I2,A)' ), TRIM( DESID_STREAM_LAB( ISRM )),' | ', & TRIM(DESID_STREAM_DESC( ISRM )),': ', N_UNUSED,' unused variables.' IF ( N_UNUSED .GT. 0 ) THEN LERROR = .TRUE. DO IEMVAR = 1,DESID_EMVAR( ISRM )%LEN IF ( .NOT.DESID_EMVAR( ISRM )%USED( IEMVAR ) & .AND.DESID_EMVAR( ISRM )%ARRY( IEMVAR ) .NE. 'NOT_AVAILABLE' ) & WRITE( LOGDEV, '(10x,A)'), DESID_EMVAR( ISRM )%ARRY( IEMVAR ) END DO END IF WRITE( LOGDEV, '()' ) END DO IF ( LERROR ) WRITE( LOGDEV, '(5x,A,/,5x,A,/,5x,A)' ), & 'NOTE: Some Emissions Variables are unused by your current', & 'emission control configuration. You may want to include these ', & 'emissions if they are relevant to your application.' ! Print a message for every used variable that is not recognized on ! the DESID_EMVAR_TABLE WRITE( LOGDEV, '(/,5x,A)' ) '|> Checking status of used Emissions Variables:' WRITE( LOGDEV, '(5x,A)' ),'================================================' DO ICATCH = 1,N_EMVAR_CATCH B = EMVAR_CATCH( ICATCH ) N_USED = 0 !L_CATCH = .FALSE. DO ISRM = 1,DESID_N_SRM N = DESID_EMVAR( ISRM )%LEN N_USED = N_USED + COUNT( DESID_EMVAR(ISRM)%ARRY( 1:N ) .EQ. B & .AND. DESID_EMVAR(ISRM)%USED( 1:N ) ) END DO IF ( N_USED .GT. 0 ) & WRITE( LOGDEV, '(/,5x,3A,/,5x,A,/,5x,3A,/,5x,A,/,5x,A,/,5x,A)') & 'WARNING: Emission Variable ',TRIM(B),' is being used but does not have a', & ' default entry in the DESID_EMVAR_TABLE in DESID_VARS.F. Currently,', & ' the molecular weight of ',TRIM(B),' is assumed to be 1.0', & ' g/mol for any emissions scaling operations requiring mass-mole', & ' conversions. If you are only prescribing UNIT scaling, then this', & ' assumption will not be problematic.' END DO ! Resize Important Arrays MAP_ISTRtoDIFF = MAP_ISTRtoDIFF( 1:DESID_N_ISTR ) MAP_ISTRtoNUM = MAP_ISTRtoNUM ( 1:DESID_N_ISTR ) MAP_ISTRtoSRF = MAP_ISTRtoSRF ( 1:DESID_N_ISTR ) MAP_ISTRtoAERO = MAP_ISTRtoAERO( 1:DESID_N_ISTR ) ! An Emissions Scaling Map Now Exists as a 2D Array (NSPECIES x NSTREAMS). ! For every element, there is an associated emission variable and scale factor ! to be applied. For the aerosols, the scale factor will be modified ! later in order to split the mass into the appropriate modes. ! Print out the Tables of CMAQ Emissions Instructions organized by each ! emission stream and then by CMAQ internal species. WRITE( LOGDEV, '(/,/,5x,A)' ),'|> EMISSIONS SCALING REPORT:' WRITE( LOGDEV, '(5x,A)' ),'==================================' WRITE( LOGDEV,'(7x,A,/,13x,A)' ),'Note: these are populated using rules from the', & 'Emission Control File Supplied by the User.' DO ISRM = 1,DESID_N_SRM ! Print summary information about each Sector including ! the label and the available aerosol modes WRITE( LOGDEV, '(/,5x,A,A)' ),'>',REPEAT('-',80 ) WRITE( LOGDEV,'(5x,A,A,A,A,A2,I2.2,A1)' ), & 'Stream Type: "',TRIM(DESID_STREAM_DESC( ISRM )), & '" | Sector Label: ',TRIM(DESID_STREAM_LAB( ISRM ) ),' (',ISRM,')' WRITE( LOGDEV, '(/8x,A)' ),'Table of Aerosol Size Distributions Available for Use Sector-Wide.' WRITE( LOGDEV, '(8x,A)' ),'Note that Mode 1 is reserved for gas-phase species and emission variable.' WRITE( LOGDEV, '(10x,A,2x,A,2x,A)' ), 'Number','Em. Var. Mode','Reference Mode (see AERO_DATA.F)' WRITE( LOGDEV, '(10x,A,2x,A,2x,A)' ), '------','--------------','--------------------------------' DO ISD = 2,DESID_STREAM_AERO( ISRM )%LEN IEM = DESID_STREAM_AERO( ISRM )%REF( ISD ) REFNAME = '' IF ( IEM .GT. 0 ) THEN REFNAME = DESID_AERO_REF( IEM )%NAME END IF WRITE( LOGDEV,'(8x,I3,5x,A18,2x,A18,2x,A)' ),ISD, & DESID_STREAM_AERO( ISRM )%NAME( ISD )( 1:16 ), TRIM( REFNAME ) END DO ! Finally Print Every Instruction for this Stream WRITE( LOGDEV, '(/,8x,A,5x,A,2x,A,9x,A,13x,A,2x,A,4x,A,2x,A)' ), & 'CMAQ Species','Phase/Mode','Em. Var. ','Region','Op','ScaleFac','Basis','FinalFac' WRITE( LOGDEV, '(8x,A,5x,A,2x,A,9x,A,13x,A,2x,A,4x,A,2x,A)' ), & '------------','----------','---------','------','--','--------','-----','--------' DO IDIFF = 1,N_SPC_DIFF L_WDIFF = .TRUE. DO ISD = 1,DESID_STREAM_AERO( ISRM )%LEN L_WISD = .TRUE. DO ISTR = 1,DESID_N_ISTR IF ( LOCAL_SPEC( ISTR ) .EQ. DIFF_SPC( IDIFF ) .AND. & MAP_ISTRtoSD( ISTR,ISRM ) .EQ. ISD ) THEN IF ( L_WDIFF ) THEN WRITE( LOGDEV, '(10x,A,1x,A,1x,A,1x,A,1x,A,2x,ES9.2,4x,A,2x,ES9.2)' ), & LOCAL_SPEC( ISTR ), & DESID_STREAM_AERO( ISRM )%NAME( ISD )(1:10), & LOCAL_EMVAR( ISTR, ISRM ), & DESID_REG( DESID_FAC( ISTR,ISRM )%REG( 1 ) )%LABEL(1:18), & LOCAL_OP( ISTR,ISRM,1 ), & DESID_FAC( ISTR, ISRM )%BULK( 1 ), LOCAL_BASIS( ISTR,ISRM,1 ), & DESID_FAC( ISTR,ISRM )%FAC( 1 ) & L_WDIFF = .FALSE. L_WISD = .FALSE. ELSE IF ( L_WISD ) THEN WRITE( LOGDEV, '(27x,A,1x,A,1x,A,1x,A,2x,ES9.2,4x,A,2x,ES9.2)' ), & DESID_STREAM_AERO( ISRM )%NAME( ISD )(1:10), & LOCAL_EMVAR( ISTR, ISRM ), & DESID_REG( DESID_FAC( ISTR,ISRM )%REG( 1 ) )%LABEL(1:18), & LOCAL_OP( ISTR,ISRM,1 ), & DESID_FAC( ISTR, ISRM )%BULK( 1 ), LOCAL_BASIS( ISTR,ISRM,1 ), & DESID_FAC( ISTR,ISRM )%FAC( 1 ) L_WISD = .FALSE. ELSE WRITE( LOGDEV, '(38x,A,1x,A,1x,A,2x,ES9.2,4x,A,2x,ES9.2)' ), & LOCAL_EMVAR( ISTR, ISRM ), & DESID_REG( DESID_FAC( ISTR,ISRM )%REG( 1 ) )%LABEL(1:18), & LOCAL_OP( ISTR,ISRM,1 ), & DESID_FAC( ISTR, ISRM )%BULK( 1 ), LOCAL_BASIS( ISTR,ISRM,1 ), & DESID_FAC( ISTR,ISRM )%FAC( 1 ) END IF IF ( DESID_FAC( ISTR,ISRM )%NFAC .GT. 1 ) THEN DO IFAC = 2,DESID_FAC( ISTR,ISRM )%NFAC ! Compute Final Factor taking into account all rules that apply to the ! region associated with each factor. FAC = 0.0 IRGN = DESID_FAC( ISTR,ISRM )%REG( IFAC ) DO JFAC = 1,IFAC JRGN = DESID_FAC( ISTR,ISRM )%REG( JFAC ) ! If region IRGN and JRGN are connected (i.e. one is a subregion of ! the other) then the final_fac should account for JFAC IF ( IRGN .EQ. JRGN .OR. DESID_REG_SUB( IRGN,JRGN ) & .OR. DESID_REG_SUB( JRGN,IRGN ) ) THEN ! Decide how to modify FAC to account for JFAC IF ( DESID_FAC( ISTR,ISRM )%OP(JFAC) .EQ. 1 ) THEN ! Add Factor (a) FAC = FAC + DESID_FAC( ISTR,ISRM )%FAC( JFAC ) ELSE IF ( DESID_FAC( ISTR,ISRM )%OP(JFAC) .EQ. 2 ) THEN ! Multiply Factor (m) FAC = FAC * DESID_FAC( ISTR,ISRM )%FAC( JFAC ) ELSE IF ( DESID_FAC( ISTR,ISRM )%OP(JFAC) .EQ. 3 ) THEN ! Overwrite Factor (o) FAC = DESID_FAC( ISTR,ISRM )%FAC( JFAC ) END IF END IF END DO WRITE( LOGDEV, '(55x,A,1x,A,2x,ES9.2,4x,A,2x,ES9.2)' ), & DESID_REG( DESID_FAC( ISTR,ISRM )%REG( IFAC ) )%LABEL(1:18), & LOCAL_OP( ISTR,ISRM,IFAC ), DESID_FAC( ISTR, ISRM )%BULK( IFAC ), & LOCAL_BASIS( ISTR,ISRM,IFAC ), FAC END DO END IF END IF !END DO END DO END DO END DO END DO ! End Emissions Scaling Preparation and Diagnostic Output WRITE( LOGDEV, '(/,5x,A)' ), REPEAT( '=',80 ) WRITE( LOGDEV, '(5x,A,/,/)' ), & '|> END EMISSIONS SCALING PREPARATION AND DIAGNOSTIC OUTPUT' END SUBROUTINE DESID_PROCESS_RULES !----------------------------------------------------------------------- SUBROUTINE DESID_INIT_STREAMS( JDATE, JTIME ) ! Initialize the counter for the total nbumber of emissions files. Also ! allocate memory for the vectors storing the labels of emission files ! and the maps from master ID number to the relative ID number for each ! gridded and point stream file, i.e. Emissions File 10 is also known as ! Point Source file 2. ! #ifdef mpas use util_module, only : upcase #endif IMPLICIT NONE INTEGER, INTENT(IN) :: JDATE, JTIME INTEGER ISRM, N CHARACTER( 16 ) :: PNAME = 'DESID_INIT_STREAMS' CHARACTER( 32 ) :: VLAB INTEGER :: STATUS LOGICAL :: SUCCESS SUCCESS = .TRUE. CALL LOG_SUBHEADING( LOGDEV,'Initialize Emissions Input Files' ) ! Calculate the total number of Emission Streams based on the ! user options ! Add the number of total Emission Streams DESID_N_SRM = N_FILE_GR + NPTGRPS + N_FILE_TR ! Online Biogenic Emissions IF ( BIOGEMIS_BEIS ) DESID_N_SRM = DESID_N_SRM + 1 ! Online Biogenic Emissions from MEGAN IF ( BIOGEMIS_MEGAN ) DESID_N_SRM = DESID_N_SRM + 1 ! Marine gas emissions; use online marine gas option only if CB6R5M is used IF ( USE_MARINE_GAS_EMISSION ) DESID_N_SRM = DESID_N_SRM + 1 ! Lightning NO Emissions IF ( LTNG_NO ) DESID_N_SRM = DESID_N_SRM + 1 ! Sea Spray Aerosol IF ( OCEAN_CHEM ) DESID_N_SRM = DESID_N_SRM + 1 ! Determine if WindBlown Dust is Requested IF ( WB_DUST ) DESID_N_SRM = DESID_N_SRM + 1 ! Turn Back Now if DESID_N_SRM Equals Zero (i.e. there are no emissions IF ( DESID_N_SRM .EQ. 0 ) RETURN ! Allocate Emission File Structure Variables Allocate( DESID_STREAM_NAME ( DESID_N_SRM ) ) Allocate( DESID_STREAM_LAB ( DESID_N_SRM ) ) Allocate( DESID_STREAM_TYPE ( DESID_N_SRM ) ) Allocate( DESID_STREAM_ITYPE ( DESID_N_SRM ) ) Allocate( DESID_STREAM_DESC ( DESID_N_SRM ) ) Allocate( DESID_STREAM_LAPPLY( DESID_N_SRM ) ) Allocate( DESID_STREAM_DATE ( DESID_N_SRM ) ) Allocate( DESID_STREAM_SYM_DATE ( DESID_N_SRM ) ) Allocate( DESID_STREAM_FIRE ( DESID_N_SRM ) ) Allocate( IGSRM ( DESID_N_SRM ) ) Allocate( IPSRM ( DESID_N_SRM ) ) Allocate( ITSRM ( DESID_N_SRM ) ) Allocate( MAP_PTtoISRM ( NPTGRPS ) ) Allocate( DESID_EMVAR ( DESID_N_SRM ) ) Allocate( DESID_GRID_LAYS ( DESID_N_SRM ) ) C Assign Attributes to Emission File Records. Other records will be C populated in individual subroutines. For example, opemis and C stkemis_init. CALL LOG_MESSAGE( LOGDEV, ' ' ) CALL LOG_MESSAGE( LOGDEV, 'Retrieving Env. Variables for Gridded and Elevated Point Emission Inputs' ) CALL LOG_MESSAGE( LOGDEV, ' ' ) ISRM = 0 DESID_STREAM_LAPPLY = .TRUE. DESID_STREAM_DATE = JDATE DESID_STREAM_SYM_DATE = EMIS_SYM_DATE ! representative day files (default: false) DESID_STREAM_FIRE = .FALSE. DESID_GRID_LAYS = 0 ! Gridded Emission Files IF ( N_FILE_GR .GT. 0 ) THEN DESID_STREAM_TYPE( ISRM+1:ISRM+N_FILE_GR ) = 'GRID' DESID_STREAM_ITYPE( ISRM+1:ISRM+N_FILE_GR ) = 1 DO N = 1, N_FILE_GR ISRM = ISRM + 1 IGSRM( ISRM ) = N ! Create Description of this Emission File for output to ! diagnostics WRITE( DESID_STREAM_DESC( ISRM ), '(A,I3)' ), & 'Gridded Area Emissions File ', N ! Retrieve Short-Name Label for Each Gridded File WRITE( VLAB,'( "GR_EMIS_LAB_",I3.3 )' ) N CALL GET_ENV( DESID_STREAM_LAB( ISRM ), VLAB, & DESID_STREAM_LAB( ISRM ), LOGDEV ) CALL UPCASE( DESID_STREAM_LAB( ISRM ) ) ! Each Gridded File Name is stored already in IO-API as ! an object of the form GR_EMIS_XXX WRITE( DESID_STREAM_NAME( ISRM ),'( "GR_EMIS_",I3.3 )' ) N ! Retrieve Toggle for whether or not to apply these ! emissions WRITE( VLAB,'( "GR_EMIS_APPLY_",I3.3 )' ) N CALL GET_ENV( DESID_STREAM_LAPPLY( ISRM ), VLAB, & DESID_STREAM_LAPPLY( ISRM ), LOGDEV ) ! Retrieve Toggle for overriding emissions file date with ! internal model date WRITE( VLAB,'( "GR_EM_SYM_DATE_",I3.3 )' ) N CALL GET_ENV( DESID_STREAM_SYM_DATE( ISRM ), VLAB, & EMIS_SYM_DATE, LOGDEV ) END DO END IF ! In-Line Point Source Files IF ( NPTGRPS .GT. 0 ) THEN DESID_STREAM_TYPE( ISRM+1:ISRM+NPTGRPS ) = 'POINT' DESID_STREAM_ITYPE( ISRM+1:ISRM+NPTGRPS ) = 2 DO N = 1, NPTGRPS ISRM = ISRM + 1 IPSRM( ISRM ) = N MAP_PTtoISRM( N ) = ISRM ! Create Description of this Emission File for output to ! diagnostics WRITE( DESID_STREAM_DESC( ISRM ), '(A,I3)' ), & 'Point Emissions File ', IPSRM( ISRM ) ! Retrieve Short-Name Label for Each Inline File WRITE( VLAB,'( "STK_EMIS_LAB_",I3.3 )' ) N CALL GET_ENV( DESID_STREAM_LAB( ISRM ), VLAB, & DESID_STREAM_LAB( ISRM ), LOGDEV ) CALL UPCASE( DESID_STREAM_LAB( ISRM ) ) ! Each Inline File Name is stored already in IO-API as ! an object of the form STK_EMIS_XXX WRITE( DESID_STREAM_NAME( ISRM ),'( "STK_EMIS_",I3.3 )' ) N ! Retrieve Toggle for whether or not to apply these ! emissions WRITE( VLAB,'( "STK_EMIS_APPLY_",I3.3 )' ) N CALL GET_ENV( DESID_STREAM_LAPPLY( ISRM ), VLAB, & DESID_STREAM_LAPPLY( ISRM ), LOGDEV ) ! Retrieve Toggle for overriding emissions file date with ! internal model date WRITE( VLAB,'( "STK_EM_SYM_DATE_",I3.3 )' ) N CALL GET_ENV( DESID_STREAM_SYM_DATE( ISRM ), VLAB, & EMIS_SYM_DATE, LOGDEV ) END DO END IF ! Tracer Emissions IF ( N_FILE_TR .GT. 0 ) THEN DESID_STREAM_TYPE( ISRM+1:ISRM+N_FILE_TR ) = 'TRAC' DESID_STREAM_ITYPE( ISRM+1:ISRM+N_FILE_TR ) = 3 DO N = 1, N_FILE_TR ISRM = ISRM + 1 ITSRM( ISRM ) = N ! Create Description of this Emission File for output to ! diagnostics WRITE( DESID_STREAM_DESC( ISRM ), '(A,I2)' ), & 'Gridded Tracer Emissions File ', N ! Retrieve Short-Name Label for Each Tracer File WRITE( VLAB,'( "TR_EMIS_LAB_",I2.2 )' ) N CALL GET_ENV( DESID_STREAM_LAB( ISRM ), VLAB, & DESID_STREAM_LAB( ISRM ), LOGDEV ) CALL UPCASE( DESID_STREAM_LAB( ISRM ) ) ! Each Tracer File Name is stored already in IO-API as ! an object of the form TR_EMIS_XXX WRITE( DESID_STREAM_NAME( ISRM ),'( "TR_EMIS_",I2.2 )' ) N END DO END IF ! Online Biogenic Emissions (BEIS) IF ( BIOGEMIS_BEIS ) THEN ISRM = ISRM + 1 DESID_STREAM_TYPE( ISRM ) = 'BIOG' DESID_STREAM_ITYPE( ISRM ) = 4 DESID_STREAM_LAB ( ISRM ) = 'BIOG' DESID_STREAM_DESC( ISRM ) = 'Biogenic Emissions' IBIOSRM = ISRM END IF ! Online Biogenic Emissions (MEGAN) IF ( BIOGEMIS_MEGAN ) THEN ISRM = ISRM + 1 DESID_STREAM_TYPE( ISRM ) = 'MIOG' DESID_STREAM_ITYPE( ISRM ) = 9 DESID_STREAM_LAB ( ISRM ) = 'MIOG' DESID_STREAM_DESC( ISRM ) = 'Megan Biogenic Emissions' IMIOGSRM = ISRM END IF ! Online Marine Gas Emissions IF ( USE_MARINE_GAS_EMISSION ) THEN ISRM = ISRM + 1 DESID_STREAM_TYPE( ISRM ) = 'MGEM' DESID_STREAM_ITYPE( ISRM ) = 5 DESID_STREAM_LAB ( ISRM ) = 'MGEM' DESID_STREAM_DESC( ISRM ) = 'Marine Gas Emissions' IMGSRM = ISRM END IF ! Online Lightning NO Emissions IF ( LTNG_NO ) THEN ISRM = ISRM + 1 DESID_STREAM_TYPE( ISRM ) = 'LTNG' DESID_STREAM_ITYPE( ISRM ) = 6 DESID_STREAM_LAB ( ISRM ) = 'LTNG' DESID_STREAM_DESC( ISRM ) = 'Lightning NO Emissions' ILTSRM = ISRM END IF ! Sea Spray Aerosol Emissions IF ( OCEAN_CHEM ) THEN ISRM = ISRM + 1 DESID_STREAM_TYPE( ISRM ) = 'ASEA' DESID_STREAM_ITYPE( ISRM ) = 7 DESID_STREAM_LAB ( ISRM ) = 'SEASPRAY' DESID_STREAM_DESC( ISRM ) = 'Sea Spray Aerosol Emissions' ISEASRM = ISRM END IF ! Wind-Blown Dust Emissions IF ( WB_DUST ) THEN ISRM = ISRM + 1 DESID_STREAM_TYPE( ISRM ) = 'DUST' DESID_STREAM_ITYPE( ISRM ) = 8 DESID_STREAM_LAB ( ISRM ) = 'WBDUST' DESID_STREAM_DESC( ISRM ) = 'Wind-Blown Dust Emissions' IDUSTSRM = ISRM END IF END SUBROUTINE DESID_INIT_STREAMS !----------------------------------------------------------------------- SUBROUTINE DESID_INIT_DIAG ! This subroutine processes the user input in the Emission Control ! file and determines how the emission rates are to be output for ! diagnostics. Rates may be summed, specific species may be ! selected or ignored, and rates may be summed into columns, among ! other features. !----------------------------------------------------------------------- #ifdef mpas use util_module, only : index1, upcase #endif IMPLICIT NONE CHARACTER( 200 ) :: PREFIX = 'CCTM_DESID' CHARACTER( 200 ) :: SUFFIX = '.nc' CHARACTER( 200 ) :: XMSG INTEGER :: VALUE LOGICAL :: stream_vector( DESID_N_SRM ) INTEGER :: N_Diag_Nml, N_Buff INTEGER :: IDIAG, NSTREAM, I, ISRM, J, JDIAG, & NSUM, NSPEC, LAYS, ISPEC, NPAIRS LOGICAL :: LREMOVE, LFOUND, EXPAND_STREAM LOGICAL :: STREAM_VECTOR_TMP( DESID_N_SRM ), & SPEC_VECTOR( N_SPC_DIFF ) CHARACTER( 3) :: CDIAG LOGICAL :: LERROR N_Diag_Nml = SIZE( Desid_Diag_Fmt_Nml ) N_Buff = N_Diag_Nml * 20 ALLOCATE( DESID_DIAG_STREAM_MASK( DESID_N_SRM, N_Buff ) ) ALLOCATE( DESID_DIAG_SPEC_BUFF ( N_Buff ) ) ALLOCATE( DESID_DIAG_N_STREAM ( N_Buff ) ) ALLOCATE( DESID_DIAG_FORMAT ( N_Buff ) ) ALLOCATE( DESID_DIAG_FILENAME ( N_Buff ) ) ALLOCATE( DESID_DIAG_LAB ( N_Buff ) ) ALLOCATE( DESID_DIAG_SUM( N_Buff ) ) ALLOCATE( DESID_DIAG_LAYS( N_Buff ) ) CALL LOG_SUBHEADING( LOGDEV,'Initialize Emissions Diagnostic Files' ) DESID_DIAG_STREAM_MASK = .FALSE. DESID_DIAG_FORMAT = 'OFF' DESID_DIAG_FILENAME = '' DESID_DIAG_N_STREAM = 0 DESID_DIAG_LAB = '' DESID_DIAG_LAYS = NLAYS DESID_DIAG_SUM = 0 ! Set the standard suffix for all Emissions Diagnostic Files IF ( APPL_NAME(1:8 ) .NE. 'CTM_APPL' ) SUFFIX = '_' // TRIM(APPL_NAME) // SUFFIX ! Find Number of Emissions Diagnostic Files Selected. DESID_N_DIAG = 0 NSUM = 0 DO IDIAG = 1,N_Diag_Nml ! Error Check Value for Emission Diagnostic Format CALL UPCASE( Desid_Diag_Fmt_Nml( IDIAG ) ) IF ( Desid_Diag_Fmt_Nml( IDIAG ) .NE. 'OFF' .AND. & Desid_Diag_Fmt_Nml( IDIAG ) .NE. '3D' .AND. & Desid_Diag_Fmt_Nml( IDIAG ) .NE. 'COLSUM' .AND. & Desid_Diag_Fmt_Nml( IDIAG ) .NE. 'LAYER1' ) THEN WRITE( LOGDEV, * ) WRITE( XMSG, '(A,I3,A,A)' ), & 'The format for Emission Diagnostic group ',IDIAG, & ' is not allowed. Please correct:',TRIM( Desid_Diag_Fmt_Nml(IDIAG)) CALL M3EXIT( 'Map_Emiss_Diag', 0, 0, XMSG, XSTAT1 ) END IF ! Determine number of stream labels to expand NSTREAM = INDEX1( '', Desid_Max_Diag_Streams, Desid_Diag_Streams_Nml(IDIAG,:) ) - 1 IF ( NSTREAM .LE. 0 ) THEN WRITE( LOGDEV, * ) WRITE( XMSG, '(A,I3,A)' ), & 'No Emission Streams have been selected for group ',IDIAG, & ' of the emission diagnostic input. Please correct.' CALL M3EXIT( 'Map_Emiss_Diag', 0, 0, XMSG, XSTAT1 ) END IF ! Expand Desid_Diag_Streams_Nml to discover all matching streams STREAM_VECTOR = .FALSE. Expand_Stream = .FALSE. DO I = 1,NSTREAM IF ( Desid_Diag_Streams_Nml( IDIAG,I )(1:1) .EQ. '*' ) THEN Expand_Stream = .TRUE. Desid_Diag_Streams_Nml( IDIAG,I ) = & Desid_Diag_Streams_Nml( IDIAG,I )(2:32)//' ' END IF IF ( Desid_Diag_Streams_Nml( IDIAG,I ) .EQ. 'ALL' ) THEN Expand_Stream = .TRUE. END IF CALL DESID_GET_RULE_STREAMS( Desid_Diag_Streams_Nml( IDIAG,I ),IDIAG, & STREAM_VECTOR, LREMOVE, LERROR ) ! Stop CMAQ if there was an error setting the emission streams IF ( LERROR ) THEN WRITE( LOGDEV, * ) WRITE( XMSG, '(A,A,A)' ), & 'CMAQ will crash until an error specifying the ', & 'DESID diagnostics is fixed. Detailed information is ', & 'in the processor log files.' CALL M3EXIT( 'Map_Emiss_Diag', 0, 0, XMSG, XSTAT1 ) END IF ! Determine whether this diagnostic is a sum or not and ! assign name accordingly IF ( Expand_Stream ) THEN ! Create a separate diagnostic file for every stream ! in stream_vector DO ISRM = 1,DESID_N_SRM IF ( STREAM_VECTOR( ISRM ) ) THEN ! Check for existing entries DESID_N_DIAG = DESID_N_DIAG + 1 JDIAG = DESID_N_DIAG ! Save the number of ! streams selected for this diagnostic and a mask for ! mapping each stream to each diagnostic DESID_DIAG_N_STREAM( JDIAG ) = 1 DESID_DIAG_STREAM_MASK( ISRM,JDIAG ) = .TRUE. DESID_DIAG_FORMAT( JDIAG ) = Desid_Diag_Fmt_Nml( IDIAG ) IF ( DESID_DIAG_FORMAT( JDIAG ) .EQ. 'COLSUM' .OR. & DESID_DIAG_FORMAT( JDIAG ) .EQ. 'LAYER1' ) & DESID_DIAG_LAYS( JDIAG ) = 1 DESID_DIAG_LAB( JDIAG ) = DESID_STREAM_LAB( ISRM ) WRITE( CDIAG, '(I0)' ), IDIAG DESID_DIAG_FILENAME( JDIAG ) = TRIM( PREFIX ) // TRIM(CDIAG) // & '_' // TRIM( DESID_DIAG_LAB( JDIAG ) ) // TRIM( SUFFIX ) DESID_DIAG_SUM( JDIAG ) = 0 ! Build Species Selection Array SPEC_VECTOR = DESID_STREAM_DIFF( :,ISRM ) CALL DESID_DIAG_MAP_SPEC( Desid_Diag_Spec_Nml( IDIAG,: ), IDIAG, & SPEC_VECTOR, JDIAG ) END IF END DO ELSE ! Check for existing entries. DESID_N_DIAG = DESID_N_DIAG + 1 JDIAG = DESID_N_DIAG NSUM = NSUM + 1 DESID_DIAG_SUM( JDIAG ) = NSUM ! Save the number of ! streams selected for this diagnostic and a mask for ! mapping each stream to each diagnostic DESID_DIAG_N_STREAM( JDIAG ) = COUNT( STREAM_VECTOR ) DESID_DIAG_STREAM_MASK( :,JDIAG ) = STREAM_VECTOR DESID_DIAG_FORMAT( JDIAG ) = Desid_Diag_Fmt_Nml( IDIAG ) IF ( DESID_DIAG_FORMAT( JDIAG ) .EQ. 'COLSUM' .OR. & DESID_DIAG_FORMAT( JDIAG ) .EQ. 'LAYER1' ) & DESID_DIAG_LAYS( JDIAG ) = 1 DESID_DIAG_LAB( JDIAG ) = Desid_Diag_Streams_Nml( IDIAG,I ) WRITE( CDIAG, '(I0)' ), IDIAG DESID_DIAG_FILENAME( JDIAG ) = TRIM( PREFIX ) // TRIM(CDIAG) // & '_' // TRIM( DESID_DIAG_LAB( JDIAG ) ) // TRIM( SUFFIX ) ! Build Species Selection Array SPEC_VECTOR = .FALSE. DO ISRM = 1,DESID_N_SRM IF ( STREAM_VECTOR( ISRM ) ) & SPEC_VECTOR = SPEC_VECTOR .OR. DESID_STREAM_DIFF( :,ISRM ) END DO CALL DESID_DIAG_MAP_SPEC( Desid_Diag_Spec_Nml( IDIAG,: ), IDIAG, & SPEC_VECTOR, JDIAG ) END IF END DO END DO ! Reduce size of each vector to length DESID_N_DIAG DESID_DIAG_N_STREAM = DESID_DIAG_N_STREAM( 1:DESID_N_DIAG ) DESID_DIAG_STREAM_MASK = DESID_DIAG_STREAM_MASK( :,1:DESID_N_DIAG ) DESID_DIAG_FORMAT = DESID_DIAG_FORMAT( 1:DESID_N_DIAG ) DESID_DIAG_FILENAME = DESID_DIAG_FILENAME( 1:DESID_N_DIAG ) DESID_DIAG_LAB = DESID_DIAG_LAB( 1:DESID_N_DIAG ) DESID_DIAG_LAYS = DESID_DIAG_LAYS( 1:DESID_N_DIAG ) DESID_DIAG_SUM = DESID_DIAG_SUM( 1:DESID_N_DIAG ) ! Populate DESID_DIAG_SPEC from DESID_DIAG_SPEC_BUFF ALLOCATE( DESID_DIAG_SPEC( DESID_N_DIAG ) ) DO IDIAG = 1,DESID_N_DIAG NSPEC = DESID_DIAG_SPEC_BUFF(IDIAG)%NSPEC NPAIRS = DESID_DIAG_SPEC_BUFF(IDIAG)%NPAIRS DESID_DIAG_SPEC(IDIAG)%NSPEC = NSPEC DESID_DIAG_SPEC(IDIAG)%NPAIRS = NPAIRS IF ( NSPEC .GT. 0 ) THEN ALLOCATE( DESID_DIAG_SPEC( IDIAG )%SPEC( NSPEC ) ) ALLOCATE( DESID_DIAG_SPEC( IDIAG )%UNITS( NSPEC ) ) ALLOCATE( DESID_DIAG_SPEC( IDIAG )%MAP_toDIFF( NPAIRS ) ) ALLOCATE( DESID_DIAG_SPEC( IDIAG )%MAP_toDIAG( NPAIRS ) ) DESID_DIAG_SPEC(IDIAG)%SPEC = DESID_DIAG_SPEC_BUFF( IDIAG )%SPEC DESID_DIAG_SPEC(IDIAG)%UNITS = DESID_DIAG_SPEC_BUFF( IDIAG )%UNITS DESID_DIAG_SPEC(IDIAG)%MAP_toDIFF = DESID_DIAG_SPEC_BUFF( IDIAG )%MAP_toDIFF DESID_DIAG_SPEC(IDIAG)%MAP_toDIAG = DESID_DIAG_SPEC_BUFF( IDIAG )%MAP_toDIAG END IF END DO DEALLOCATE ( DESID_DIAG_SPEC_BUFF ) ! Write Details of Diagnostic Output to Log File WRITE( LOGDEV, * ) WRITE( LOGDEV, '(/,/,5x,A)' ),'|> EMISSIONS DIAGNOSTIC REPORT:' WRITE( LOGDEV, '(5x,A)' ),'==================================' DO IDIAG = 1,DESID_N_DIAG WRITE( LOGDEV, * ) WRITE( LOGDEV,'(5x,A19,2x,A)' ),'Diagnostic File: ',TRIM(DESID_DIAG_LAB( IDIAG )) WRITE( LOGDEV,'(10x,A)' ), 'Stream Members' DO I = 1,DESID_N_SRM IF ( DESID_DIAG_STREAM_MASK( I,IDIAG ) ) WRITE( LOGDEV,'(15x,A32)'),DESID_STREAM_LAB(I) END DO WRITE( LOGDEV,'(10x,A)' ), 'Diagnostic Species' DO I = 1,DESID_DIAG_SPEC( IDIAG )%NSPEC WRITE( LOGDEV,'(15x,A16)'),DESID_DIAG_SPEC( IDIAG )%SPEC( I ) END DO END DO ! Create I/O Logicals and Populate with full Filepaths ALLOCATE( DESID_DIAG_LOGICAL( DESID_N_DIAG ) ) DO IDIAG = 1,DESID_N_DIAG IF ( OUTDIR .NE. '' ) THEN DESID_DIAG_FILENAME(IDIAG) = TRIM( OUTDIR ) // '/' // DESID_DIAG_FILENAME(IDIAG) END IF WRITE( DESID_DIAG_LOGICAL( IDIAG ),'( "DESID_",I3.3 )' ) IDIAG #ifndef mpas VALUE = SETENVVAR( DESID_DIAG_LOGICAL( IDIAG ), DESID_DIAG_FILENAME( IDIAG ) ) #endif END DO ! Allocate Minimal Necessary Space for VDEMIS_DIAG ALLOCATE( MAP_DIAGtoVDEMIS( N_SPC_DIFF,DESID_N_DIAG ) ) MAP_DIAGtoVDEMIS = 0 NSPEC = 0 LAYS = 1 DO IDIAG = 1,DESID_N_DIAG IF ( DESID_DIAG_SUM( IDIAG ) .GT. 0 ) THEN DO ISPEC = 1,DESID_DIAG_SPEC( IDIAG )%NSPEC NSPEC = NSPEC + 1 MAP_DIAGtoVDEMIS( ISPEC,IDIAG ) = NSPEC END DO IF ( DESID_DIAG_FORMAT( IDIAG ) .EQ. '3D' ) LAYS = NLAYS ENDIF END DO ALLOCATE( VDEMIS_DIAG( NSPEC,NCOLS,NROWS,LAYS ) ) END SUBROUTINE DESID_INIT_DIAG C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE DESID_OPEN_GR3D ( JDATE, JTIME ) C 7 Mar 02 - J.Young: add units string variations C 29 Oct 05 - J.Young: dyn. layers C 19 Feb 08 - David Wong: add DESID_TRAC = .TRUE. when EMIS_TRAC_1 exists C 21 Jun 10 - J.Young: convert for Namelist redesign C 16 Feb 11 - S.Roselle: replaced I/O API include files with UTILIO_DEFN; C removed deprecated TRIMLEN USE VGRD_DEFN ! vertical layer specifications USE CGRID_SPCS ! CGRID mechanism species USE UTILIO_DEFN USE AERO_DATA, only : AEROMODE, N_MODE, MGPG, GPKG USE VDIFF_MAP, only : N_SPC_DIFF, DIFF_SPC, DIFF_MASK_AERO #ifdef mpas use util_module, only : index1, upcase use mio_module #endif IMPLICIT NONE INCLUDE SUBST_FILES_ID ! file name parameters C Arguments: INTEGER JDATE ! current model date, coded YYYYDDD INTEGER JTIME ! current model time, coded HHMMSS INTEGER NLAY_FILE ! keep a running maximum of the layers from the gridded files C Local variables: CHARACTER( 16 ) :: PNAME = 'OPEMIS' CHARACTER(200 ) :: XMSG CHARACTER( 16 ) :: UNITSCK LOGICAL :: LAERO LOGICAL :: WRFLG = .FALSE. INTEGER STATUS, IOS INTEGER V, N, S, ISRM, ITRAC, IGR, IVAR, X integer :: floc, loc_nvars, loc_nlays, loc_date, loc_time character (16), allocatable :: loc_vnames(:), loc_units(:) logical :: file_exist C----------------------------------------------------------------------- CALL LOG_SUBHEADING( LOGDEV,'Open Gridded Emissions' ) DESID_GRID_LAYS = 0 C Open All Tracer Emission Files DO ISRM = 1,DESID_N_SRM IF ( DESID_STREAM_TYPE( ISRM ) .EQ. 'TRAC' ) THEN ITRAC = ITSRM( ISRM ) #ifdef mpas floc = mio_search (DESID_STREAM_NAME( ISRM )) if (floc > 0) then file_exist = .true. loc_nvars = mio_file_data(floc)%nvars loc_nlays = mio_file_data(floc)%nlays allocate (loc_vnames(loc_nvars), loc_units(loc_nvars), stat=status) loc_vnames = mio_file_data(floc)%var_name loc_units = mio_file_data(floc)%units else file_exist = .false. end if #else IF ( .NOT. OPEN3( DESID_STREAM_NAME( ISRM ), FSREAD3, PNAME ) ) THEN XMSG = 'Could not open tracer file' CALL M3MESG( XMSG ) file_exist = .false. ELSE file_exist = .true. ! Assign Tracer Emissions Species IF ( .NOT. DESC3( DESID_STREAM_NAME( ISRM ) ) ) THEN XMSG = 'Could not get '// DESID_STREAM_NAME( ISRM ) // ' file description' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT2 ) END IF loc_nvars = nvars3d loc_nlays = nlays3d allocate (loc_vnames(loc_nvars), loc_units(loc_nvars), stat=status) loc_vnames = VNAME3d(1:loc_nvars) loc_units = UNITS3D(1:loc_nvars) END IF #endif IF (FILE_EXIST) THEN ! Save Tracer Variables for Use in Emissions Species Check ! Routine DESID_EMVAR( ISRM )%LEN = loc_nvars ALLOCATE ( DESID_EMVAR( ISRM )%ARRY( loc_nvars ), STAT = STATUS ) ALLOCATE ( DESID_EMVAR( ISRM )%UNITS( loc_nvars ), STAT = STATUS ) DESID_EMVAR( ISRM )%ARRY = loc_vnames ! Assign Layers to Common Vector DESID_GRID_LAYS( ISRM ) = loc_nlays ! Check Units For Consistency UNITSCK = 'BLANK' DO N = 1, loc_nvars V = INDEX1( loc_vnames( N ), N_SPC_DIFF, DIFF_SPC ) IF ( V .NE. 0 ) THEN IF ( UNITSCK .EQ. 'BLANK' ) UNITSCK = loc_units( N ) IF ( loc_units( N ) .NE. UNITSCK ) THEN XMSG = 'Units not uniform on ' // DESID_STREAM_LAB( ISRM ) CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT2 ) END IF END IF DESID_EMVAR( ISRM )%UNITS( N ) = loc_units( N ) END DO END IF deallocate (loc_vnames, loc_units) END IF ! tracer emissions END DO C Open Gridded Emission Files (for gas chem, aerosols and non-reactive species) DO ISRM = 1,DESID_N_SRM IF ( DESID_STREAM_TYPE( ISRM ) .EQ. 'GRID' ) THEN IGR = IGSRM( ISRM ) #ifdef mpas floc = mio_search (DESID_STREAM_NAME( ISRM )) call mio_timestamp_to_julian (mio_file_data(floc)%timestamp(1), loc_date, loc_time) loc_nvars = mio_file_data(floc)%nvars loc_nlays = mio_file_data(floc)%nlays allocate (loc_vnames(loc_nvars), loc_units(loc_nvars), stat=status) loc_vnames = mio_file_data(floc)%var_name loc_units = mio_file_data(floc)%units #else IF ( .NOT. OPEN3( DESID_STREAM_NAME( ISRM ), FSREAD3, PNAME ) ) THEN XMSG = 'Could not open file ' // DESID_STREAM_NAME( ISRM ) CALL M3MESG( XMSG ) ELSE IF ( .NOT. DESC3( DESID_STREAM_NAME( ISRM ) ) ) THEN XMSG = 'Could not get '// DESID_STREAM_NAME( ISRM ) // ' file description' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT2 ) END IF END IF loc_nvars = NVARS3D loc_nlays = nlays3d allocate (loc_vnames(loc_nvars), loc_units(loc_nvars), stat=status) loc_vnames = VNAME3d(1:loc_nvars) loc_units = UNITS3D(1:loc_nvars) loc_date = sdate3d #endif ! Let the date for this emission stream come from the model ! by default or the file if the user wishes to override the ! default for representative day files DESID_STREAM_DATE( ISRM ) = JDATE IF ( DESID_STREAM_SYM_DATE( ISRM ) ) DESID_STREAM_DATE( ISRM ) = loc_date ! Save Area Source Species Names For Use in Emissions Species ! Check Routine DESID_EMVAR( ISRM )%LEN = loc_nvars ALLOCATE ( DESID_EMVAR( ISRM )%ARRY( loc_nvars ), STAT = STATUS ) ALLOCATE ( DESID_EMVAR( ISRM )%UNITS( loc_nvars ), STAT = STATUS ) DESID_EMVAR( ISRM )%ARRY = loc_vnames ! Assign Area Source Emission Species DESID_GRID_LAYS( ISRM ) = loc_nlays ! Assign Units DO IVAR = 1,loc_nvars ! A match has been found UNITSCK = loc_units( IVAR ) CALL UPCASE( UNITSCK ) DESID_EMVAR( ISRM )%UNITS( IVAR ) = loc_units( IVAR ) END DO deallocate (loc_vnames, loc_units) END IF ! (gridded emission file) END DO RETURN END SUBROUTINE DESID_OPEN_GR3D !----------------------------------------------------------------------- SUBROUTINE DESID_OPEN_DIAG( JDATE, JTIME, TSTEP ) ! This subroutine opens diagnostic files for printing the ! emission rates input to CMAQ after scaling by user emission ! rules. The rates are put on files dedicated to each individual ! emissions stream. This adds user flexibility in being able to ! toggle the diagnostic output for streams individually and ! reduces the storage space needed for most use cases (presumably ! users will rarely want to output the data from all of the ! emissions streams). !----------------------------------------------------------------------- USE UTILIO_DEFN USE GRID_CONF USE VDIFF_MAP, ONLY : N_SPC_DIFF, DIFF_SPC, DIFF_MASK_GAS, DIFF_MASK_NR, & DIFF_MASK_AERO, DIFF_MASK_NUM, DIFF_MASK_SRF IMPLICIT NONE INTEGER, INTENT( IN ) :: JDATE, JTIME, TSTEP CHARACTER( 16 ) :: PNAME = 'OPEN_EMISS_DIAG' CHARACTER( 200 ) :: XMSG INTEGER :: IDIAG, IVAR, NLAYERS, V, ISPEC #ifndef mpas DO IDIAG = 1,DESID_N_DIAG ! Test whether or not each file should be opened IF ( DESID_DIAG_FORMAT( IDIAG ) .NE. 'OFF' ) THEN ! Make File 2D by Default, but 3D if the user requests it NLAYERS = 1 IF ( DESID_DIAG_FORMAT( IDIAG ) .EQ. '3D' ) NLAYERS = DESID_LAYS ! Set output file characteristics based on COORD.EXT and ! open diagnostic file FTYPE3D = GRDDED3 SDATE3D = STDATE STIME3D = STTIME TSTEP3D = TSTEP NVARS3D = DESID_DIAG_SPEC( IDIAG )%NSPEC NCOLS3D = GL_NCOLS NROWS3D = GL_NROWS NLAYS3D = NLAYERS NTHIK3D = 1 GDTYP3D = GDTYP_GD P_ALP3D = P_ALP_GD P_BET3D = P_BET_GD P_GAM3D = P_GAM_GD XORIG3D = XORIG_GD YORIG3D = YORIG_GD XCENT3D = XCENT_GD YCENT3D = YCENT_GD XCELL3D = XCELL_GD YCELL3D = YCELL_GD VGTYP3D = VGTYP_GD VGTOP3D = VGTOP_GD VGLVS3D( 1:NLAYS3D+1 ) = VGLVS_GD( 1:NLAYS3D+1 ) GDNAM3D = GRID_NAME ! from HGRD_DEFN V = 0 DO IVAR = 1,DESID_DIAG_SPEC( IDIAG )%NSPEC V = V + 1 VTYPE3D( V ) = M3REAL VNAME3D( V ) = DESID_DIAG_SPEC( IDIAG )%SPEC( IVAR ) UNITS3D( V ) = DESID_DIAG_SPEC( IDIAG )%UNITS( IVAR ) VDESC3D( V ) = 'Emission Rate of ' // TRIM( VNAME3D( V ) ) & // ' from ' // TRIM(DESID_DIAG_LAB( IDIAG )) // ' emissions' END DO FDESC3D( 1 ) = 'Instantaneous pollutant emissions from stream: ' // & TRIM(DESID_DIAG_LAB( IDIAG ) ) FDESC3D( 2:MXDESC3 ) = '' ! Open emissions stream diagnostic file IF ( .NOT. OPEN3( DESID_DIAG_LOGICAL( IDIAG ), FSNEW3, PNAME ) ) THEN XMSG = 'Could not create the ' // TRIM( DESID_DIAG_FILENAME( IDIAG ) ) // ' file' CALL M3EXIT( PNAME, SDATE3D, STIME3D, XMSG, XSTAT1 ) END IF END IF ! DESID_STREAM_LDIAG? END DO ! IDIAG #else call mio_fcreate ('EMIS_DIAG',512 ) #endif END SUBROUTINE DESID_OPEN_DIAG C----------------------------------------------------------------------- END MODULE DESID_MODULE ================================================ FILE: CCTM/src/emis/emis/desid_param_module.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! !------------------------------------------------------------------------! ! This module contains key component from EMIS_DEFN.F to facilitate ! centralized I/O implementation by avoiding cyclic data dependence ! Revision History: ! 01 Feb 2019 D.Wong initial implementation, !------------------------------------------------------------------------! module desid_param_module INTEGER :: DESID_N_SRM ! number of DESID emissions streams INTEGER :: DESID_N_ISTR ! number of emissions instruction stacks INTEGER :: DESID_N_REG ! number of region masks INTEGER :: DESID_N_DIAG ! number of DESID Diagnostic files INTEGER, ALLOCATABLE :: DESID_GRID_LAYS(:) ! Number of Grid Layers ! for each stream INTEGER :: DESID_MAXLAYS = 0 ! Maximum Emission Layers ! Define Data Structure for Reading Emission Control Namelist Input TYPE DESID_RULES_TYPE CHARACTER( 32 ) :: REGION CHARACTER( 32 ) :: STREAM CHARACTER( 16 ) :: EMVAR CHARACTER( 16 ) :: SPEC CHARACTER( 16 ) :: PHASE REAL :: FAC CHARACTER( 4 ) :: BASIS CHARACTER( 1 ) :: OP END TYPE DESID_RULES_TYPE INTEGER :: DESID_MAX_RULES TYPE( DESID_RULES_TYPE ), ALLOCATABLE :: DESID_RULES_NML(:) ! Define Structure for Reading Area Normalization Namelist ! input TYPE DESID_AREA_TYPE CHARACTER( 32 ) :: STREAM CHARACTER( 32 ) :: AREA CHARACTER( 32 ) :: ADJ END TYPE DESID_AREA_TYPE TYPE( DESID_AREA_TYPE ), ALLOCATABLE :: DESID_AREA_NML(:) ! Define Structure for Reading Ragion Mask Input TYPE DESID_REG_NML_TYPE CHARACTER( 32 ) :: LABEL CHARACTER( 32 ) :: FILE CHARACTER( 32 ) :: VAR END TYPE DESID_REG_NML_TYPE TYPE( DESID_REG_NML_TYPE ), ALLOCATABLE :: DESID_REG_NML(:) INTEGER :: DESID_MAX_REG ! Define Structure for Storing Region Masks TYPE DESID_REG_TYPE CHARACTER( 32 ) :: LABEL CHARACTER( 32 ) :: FILE CHARACTER( 32 ) :: VAR INTEGER :: FILENUM END TYPE DESID_REG_TYPE TYPE( DESID_REG_TYPE ), ALLOCATABLE :: DESID_REG( : ) REAL, ALLOCATABLE :: DESID_REG_FAC( :,:,: ) LOGICAL, ALLOCATABLE :: DESID_REG_SUB( :,: ) ! Define Structure for Reading Size Distribution Namelist ! Input TYPE DESID_SD_TYPE CHARACTER( 32 ) :: STREAM CHARACTER( 16 ) :: MODE CHARACTER( 16 ) :: MODE_REF END TYPE DESID_SD_TYPE TYPE( DESID_SD_TYPE ), ALLOCATABLE :: DESID_SD_NML(:) ! Define Variables for Storing Emissions Diagnostic ! Parameters Integer :: Desid_Max_Diag_Streams = 20 Integer :: Desid_Max_Diag_Spec = 80 Character( 32 ), Allocatable :: Desid_Diag_Streams_Nml(:,:) Character( 6 ), Allocatable :: Desid_Diag_Fmt_Nml(:) Character( 16 ), Allocatable :: Desid_Diag_Spec_Nml(:,:) end module desid_param_module ================================================ FILE: CCTM/src/emis/emis/desid_util.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! !::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: Module desid_util !----------------------------------------------------------------------- ! Function: Define Emissions Utility Subroutines ! Revision History: ! 21 July 2020 B.Murphy: Extracted these variables from EMIS_DEFN !----------------------------------------------------------------------- Use desid_vars Contains !----------------------------------------------------------------------- SUBROUTINE DESID_GET_RULE_STREAMS( RULE_STREAM_NML0, IRULE, & RULE_STREAM, LREMOVE, LERROR ) ! ! This subroutine analyzes the part of a rule identifying which streams ! to affect and searches for the individual streams, or, if the rule uses ! the 'ALL' keyword, this routine identifies every stream as impacted. !----------------------------------------------------------------------- USE UTILIO_DEFN USE desid_param_module USE UTIL_FAMILY_MODULE IMPLICIT NONE CHARACTER(32), INTENT( IN ) :: RULE_STREAM_NML0 CHARACTER(32) :: RULE_STREAM_NML CHARACTER(32) :: STREAM_NAME( DESID_N_SRM ) INTEGER, INTENT( IN ) :: IRULE LOGICAL, INTENT( INOUT ) :: RULE_STREAM( DESID_N_SRM ) LOGICAL, INTENT( INOUT ) :: LREMOVE LOGICAL, INTENT( INOUT ) :: LERROR INTEGER ISRM, IDX, NSRM, IFAM CHARACTER( 200 ) :: XMSG CHARACTER( 16 ) :: PNAME = "EMIS_SPC_MAP" INTEGER :: JDATE = 0 INTEGER :: JTIME = 0 ! Initialize the output vector RULE_STREAM = .FALSE. ! First Capitalize the Rule so it is easier to error-check RULE_STREAM_NML = RULE_STREAM_NML0 CALL UPCASE( RULE_STREAM_NML ) LREMOVE = .FALSE. LERROR = .FALSE. IF ( RULE_STREAM_NML .EQ. 'ALL' .OR. RULE_STREAM_NML .EQ. 'TOTAL' ) THEN ! Special Case Where the Stream Identifier in the rule equals ! equals all 'ALL'. Expand the Rule to Apply to All Streams ISRM = 0 IF ( N_FILE_GR .GT. 0 ) THEN RULE_STREAM( ISRM+1:N_FILE_GR ) = .TRUE. ISRM = ISRM + N_FILE_GR END IF IF ( NPTGRPS .GT. 0 ) THEN RULE_STREAM( ISRM+1:ISRM+NPTGRPS ) = .TRUE. ISRM = ISRM + NPTGRPS END IF IF ( N_FILE_TR .GT. 0 ) RULE_STREAM( ISRM+1:ISRM+N_FILE_TR ) = .TRUE. IF ( IBIOSRM .GT.0 ) RULE_STREAM( IBIOSRM ) = .TRUE. IF ( IMGSRM .GT.0 ) RULE_STREAM( IMGSRM ) = .TRUE. IF ( ILTSRM .GT.0 ) RULE_STREAM( ILTSRM ) = .TRUE. IF ( ISEASRM .GT.0 ) RULE_STREAM( ISEASRM ) = .TRUE. IF ( IDUSTSRM.GT.0 ) RULE_STREAM( IDUSTSRM ) = .TRUE. IF ( IMIOGSRM.GT.0 ) RULE_STREAM( IMIOGSRM ) = .TRUE. ELSE ! Determine if the Stream Label Refers to A Family and if So, ! Apply the Rule to all members of that Family IFAM = INDEX1( RULE_STREAM_NML, Desid_N_Stream_Fams, StreamFamilyName ) IF ( IFAM .EQ. 0 ) THEN NSRM = 1 STREAM_NAME(1) = RULE_STREAM_NML ELSE NSRM = StreamFamilyNum( IFAM ) STREAM_NAME(1:NSRM) = StreamFamilyMembers( IFAM,1:NSRM ) END IF ! Find the Specific Stream this Rule Identifies DO ISRM = 1,NSRM IDX = INDEX1( STREAM_NAME( ISRM ), DESID_N_SRM, DESID_STREAM_LAB ) IF ( IDX .NE. 0 ) THEN RULE_STREAM( IDX ) = .TRUE. ELSE ! Print warning that this stream is being ignored WRITE( LOGDEV, '(/,5x,3A,I3,/,5x,A,3(/,5x,A))' ), & 'Warning: The Emissions Stream Label (',TRIM( RULE_STREAM_NML ), & ') applied for Rule ',IRULE, & ' does not match any of the emissions stream labels or ', & 'members of stream families provided to CMAQ. Please check the ', & 'runscript against your emissions control inputs', & 'confirm that this stream should be ignored.' ! Confirm an Error LERROR = .TRUE. ! Remove this rule from the list of rules LREMOVE = .TRUE. END IF END DO END IF END SUBROUTINE DESID_GET_RULE_STREAMS !----------------------------------------------------------------------- SUBROUTINE DESID_DIAG_MAP_SPEC( Spec, IDIAG, SPEC_VECTOR, JDIAG ) ! ! This subroutine creates a map of emissions species taking into account ! any references to chemical families or aerosol bulk names. !----------------------------------------------------------------------- USE UTILIO_DEFN USE desid_param_module USE UTIL_FAMILY_MODULE USE VDIFF_MAP, ONLY : DIFF_SPC, N_SPC_DIFF, DIFF_MASK_GAS, & DIFF_MASK_NUM, DIFF_MASK_SRF IMPLICIT NONE CHARACTER(16), INTENT( IN ) :: Spec( DESID_MAX_DIAG_SPEC ) INTEGER, INTENT( IN ) :: IDIAG, JDIAG LOGICAL, INTENT( IN ) :: SPEC_VECTOR( N_SPC_DIFF ) INTEGER ISRM, IDX, NSRM, IFAM, I, J INTEGER NSPEC_NML, NPAIRS, NSPEC LOGICAL EXPAND_SPEC CHARACTER(16) :: SPECIES CHARACTER( 200 ) :: XMSG CHARACTER( 16 ) :: PNAME = "EMIS_SPC_MAP" INTEGER :: JDATE = 0 INTEGER :: JTIME = 0 LOGICAL :: DIFF_VEC( N_SPC_DIFF ) INTEGER :: MAP_toDIFF( DESID_MAX_DIAG_SPEC*50 ), & MAP_toDIAG( DESID_MAX_DIAG_SPEC*50 ) CHARACTER(16) :: UNITS( DESID_MAX_DIAG_SPEC*50 ), & DIAGSPEC( DESID_MAX_DIAG_SPEC*50 ) ! Determine number of diagnostic species to output NSPEC_NML = INDEX1( '', DESID_MAX_DIAG_SPEC, Spec ) - 1 IF ( NSPEC_NML .LE. 0 ) THEN WRITE( LOGDEV, * ) WRITE( XMSG, '(A,I3,A)' ), & 'No Emission Species have been selected for group ',IDIAG, & ' of the emission diagnostic input. Please correct.' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF ! Now Error Check and Expand the CMAQ Species Field NPAIRS = 0 NSPEC = 0 DO I = 1,NSPEC_NML SPECIES = SPEC( I ) Expand_Spec = .FALSE. IF ( SPECIES(1:1) .EQ. '*' ) THEN Expand_Spec = .TRUE. SPECIES(1:15) = SPECIES(2:16) END IF IF ( TRIM(SPECIES) .EQ. 'ALL' ) THEN Expand_Spec = .TRUE. END IF ! Retrieve logical vector, DIFF_VEC, indicating diffused species ! relevant for DiagSpec(I) CALL MAP_CHEM_FAMILIES( SPECIES, DIFF_SPC, N_SPC_DIFF, DIFF_VEC ) DIFF_VEC = DIFF_VEC .AND. SPEC_VECTOR ! Save Map to translate each pair to diffused species and ! diagnostic species IF ( EXPAND_SPEC ) THEN ! Add a Diagnostic Species for every expanded species DO J = 1,N_SPC_DIFF IF ( DIFF_VEC( J ) ) THEN NSPEC = NSPEC + 1 DIAGSPEC( NSPEC ) = DIFF_SPC( J ) NPAIRS = NPAIRS + 1 MAP_toDIFF( NPAIRS ) = J MAP_toDIAG( NPAIRS ) = NSPEC IF ( DIFF_MASK_GAS( J ) ) THEN ! GAS SPECIES UNITS( NSPEC ) = 'mol s-1' ELSE IF ( DIFF_MASK_NUM( J ) ) THEN ! AEROSOL NUMBER SPECIES UNITS( NSPEC ) = 'particles s-1' ELSE IF ( DIFF_MASK_SRF( J ) ) THEN ! AEROSOL SURFACE AREA SPECIES UNITS( NSPEC ) = 'm2 s-1' ELSE ! AEROSOL MASS SPECIES UNITS( NSPEC ) = 'g s-1' END IF END IF END DO ELSE ! Keep only 1 diagnostic species and map all of the diffused ! species to it IF ( ANY( DIFF_VEC ) ) THEN NSPEC = NSPEC + 1 DIAGSPEC( NSPEC ) = SPECIES END IF DO J = 1,N_SPC_DIFF IF ( DIFF_VEC( J ) ) THEN NPAIRS = NPAIRS + 1 MAP_toDIFF( NPAIRS ) = J MAP_toDIAG( NPAIRS ) = NSPEC IF ( DIFF_MASK_GAS( J ) ) THEN ! GAS SPECIES UNITS( NSPEC ) = 'mol s-1' ELSE IF ( DIFF_MASK_NUM( J ) ) THEN ! AEROSOL NUMBER SPECIES UNITS( NSPEC ) = 'particles s-1' ELSE IF ( DIFF_MASK_SRF( J ) ) THEN ! AEROSOL SURFACE AREA SPECIES UNITS( NSPEC ) = 'm2 s-1' ELSE ! AEROSOL MASS SPECIES UNITS( NSPEC ) = 'g s-1' END IF END IF END DO END IF END DO DESID_DIAG_SPEC_BUFF( JDIAG )%NSPEC = NSPEC DESID_DIAG_SPEC_BUFF( JDIAG )%NPAIRS = NPAIRS IF ( NSPEC .GT. 0 ) THEN IF ( ALLOCATED( DESID_DIAG_SPEC_BUFF( JDIAG )%SPEC ) ) & DEALLOCATE( DESID_DIAG_SPEC_BUFF( JDIAG )%SPEC ) IF ( ALLOCATED( DESID_DIAG_SPEC_BUFF( JDIAG )%UNITS ) ) & DEALLOCATE( DESID_DIAG_SPEC_BUFF( JDIAG )%UNITS ) IF ( ALLOCATED( DESID_DIAG_SPEC_BUFF( JDIAG )%MAP_toDIFF ) ) & DEALLOCATE( DESID_DIAG_SPEC_BUFF( JDIAG )%MAP_toDIFF ) IF ( ALLOCATED( DESID_DIAG_SPEC_BUFF( JDIAG )%MAP_toDIAG ) ) & DEALLOCATE( DESID_DIAG_SPEC_BUFF( JDIAG )%MAP_toDIAG ) ALLOCATE( DESID_DIAG_SPEC_BUFF( JDIAG )%SPEC( NSPEC ) ) ALLOCATE( DESID_DIAG_SPEC_BUFF( JDIAG )%UNITS( NSPEC ) ) ALLOCATE( DESID_DIAG_SPEC_BUFF( JDIAG )%MAP_toDIFF( NPAIRS ) ) ALLOCATE( DESID_DIAG_SPEC_BUFF( JDIAG )%MAP_toDIAG( NPAIRS ) ) DESID_DIAG_SPEC_BUFF( JDIAG )%SPEC = DIAGSPEC( 1:NSPEC ) DESID_DIAG_SPEC_BUFF( JDIAG )%UNITS = UNITS( 1:NSPEC ) DESID_DIAG_SPEC_BUFF( JDIAG )%MAP_toDIFF = MAP_toDIFF( 1:NPAIRS ) DESID_DIAG_SPEC_BUFF( JDIAG )%MAP_toDIAG = MAP_toDIAG( 1:NPAIRS ) END IF END SUBROUTINE DESID_DIAG_MAP_SPEC !----------------------------------------------------------------------- SUBROUTINE DESID_GET_ONLINE_RULES( N_RULE ) ! ! This subroutine defines several hardcoded rules for emissions ! scaling that will apply by default. These include subtracting NH3 ! from fertilizer emissions if BiDi is turned on, moving all ! sulfuric acid vapor to the particle phase upon emission and ! splitting up the coarse mode anthropogenic emissions mass into ! speciated compounds. !----------------------------------------------------------------------- USE AERO_DATA, ONLY : ACORSEM_ASO4_FAC IMPLICIT NONE INTEGER, INTENT( INOUT ) :: N_RULE TYPE( DESID_RULES_TYPE ) :: EM_NML( 20 ) INTEGER :: N_RULE_B, IRULE, ISRM N_RULE_B = 0 ! Add a rule For Removing Fertilizer Ammonia if BiDi is ! activated and the user has requested the correction IF ( ABFLUX ) THEN N_RULE_B = N_RULE_B + 1 EM_NML(N_RULE_B)%SPEC = 'NH3' EM_NML(N_RULE_B)%STREAM= 'ALL' EM_NML(N_RULE_B)%PHASE = 'GAS' EM_NML(N_RULE_B)%EMVAR = 'NH3_FERT' EM_NML(N_RULE_B)%FAC = -1.0 EM_NML(N_RULE_B)%BASIS = 'UNIT' EM_NML(N_RULE_B)%OP = 'a' EM_NML(N_RULE_B)%REGION= 'EVERYWHERE' END IF ! sulfur tracking instrument model option IF ( STM ) THEN ! SULF emissions N_RULE_B = N_RULE_B + 1 EM_NML(N_RULE_B)%SPEC = 'ASO4EMIS' EM_NML(N_RULE_B)%STREAM= 'ALL' EM_NML(N_RULE_B)%PHASE = 'FINE' EM_NML(N_RULE_B)%EMVAR = 'SULF' EM_NML(N_RULE_B)%FAC = 1.0 EM_NML(N_RULE_B)%BASIS = 'MASS' EM_NML(N_RULE_B)%OP = 'a' EM_NML(N_RULE_B)%REGION= 'EVERYWHERE' ! PSO4 emissions N_RULE_B = N_RULE_B + 1 EM_NML(N_RULE_B)%SPEC = 'ASO4EMIS' EM_NML(N_RULE_B)%STREAM= 'ALL' EM_NML(N_RULE_B)%PHASE = 'FINE' EM_NML(N_RULE_B)%EMVAR = 'PSO4' EM_NML(N_RULE_B)%FAC = 1.0 EM_NML(N_RULE_B)%BASIS = 'UNIT' EM_NML(N_RULE_B)%OP = 'a' EM_NML(N_RULE_B)%REGION= 'EVERYWHERE' ! Coarse-Mode Sulfate N_RULE_B = N_RULE_B + 1 EM_NML(N_RULE_B)%SPEC = 'ASO4EMIS' EM_NML(N_RULE_B)%STREAM= 'ALL' EM_NML(N_RULE_B)%PHASE = 'COARSE' EM_NML(N_RULE_B)%EMVAR = 'PMC' EM_NML(N_RULE_B)%FAC = REAL( ACORSEM_ASO4_FAC, 4 ) EM_NML(N_RULE_B)%BASIS = 'UNIT' EM_NML(N_RULE_B)%OP = 'a' EM_NML(N_RULE_B)%REGION= 'EVERYWHERE' ! Wind blown dust and sea spray SO4 emissions ! Fine N_RULE_B = N_RULE_B + 1 EM_NML(N_RULE_B)%SPEC = 'ASO4EMIS' EM_NML(N_RULE_B)%STREAM= 'ALL' EM_NML(N_RULE_B)%PHASE = 'FINE' EM_NML(N_RULE_B)%EMVAR = 'PMFINE_SO4' EM_NML(N_RULE_B)%FAC = 1.0 EM_NML(N_RULE_B)%BASIS = 'UNIT' EM_NML(N_RULE_B)%OP = 'a' EM_NML(N_RULE_B)%REGION= 'EVERYWHERE' ! Coarse N_RULE_B = N_RULE_B + 1 EM_NML(N_RULE_B)%SPEC = 'ASO4EMIS' EM_NML(N_RULE_B)%STREAM= 'ALL' EM_NML(N_RULE_B)%PHASE = 'COARSE' EM_NML(N_RULE_B)%EMVAR = 'PMCOARSE_SO4' EM_NML(N_RULE_B)%FAC = 1.0 EM_NML(N_RULE_B)%BASIS = 'UNIT' EM_NML(N_RULE_B)%OP = 'a' EM_NML(N_RULE_B)%REGION= 'EVERYWHERE' END IF ! stm ! Add Rules to Existing List at Beginning N_RULE = N_RULE + N_RULE_B DO IRULE = N_RULE, N_RULE_B+1, -1 DESID_RULES_NML( IRULE ) = DESID_RULES_NML( IRULE - N_RULE_B ) END DO DO IRULE = 1,N_RULE_B DESID_RULES_NML( IRULE ) = EM_NML( IRULE ) END DO END SUBROUTINE DESID_GET_ONLINE_RULES !----------------------------------------------------------------------- SUBROUTINE CHECK_EMIS_UNITS( ISRM, ISUR, SPEC, UNITS, CONV, BASIS, & LAREA_UNIT ) ! This subroutine checks for invalid values of the operation parameter ! in the rules from the emission control list use utilio_defn IMPLICIT NONE REAL, INTENT( OUT ) :: CONV CHARACTER( 16 ) , INTENT( OUT ) :: BASIS LOGICAL, INTENT( INOUT ) :: LAREA_UNIT CHARACTER( 16 ), INTENT( INOUT ) :: UNITS INTEGER, INTENT( IN ) :: ISRM INTEGER, INTENT( IN ) :: ISUR CHARACTER( 16 ), INTENT( IN ) :: SPEC CHARACTER( 400 ) :: XMSG INTEGER :: X, SLASH_IND CHARACTER( 16 ) :: NUMER CHARACTER( 16 ) :: DENOM CHARACTER( 16 ) :: DENOM1 CHARACTER( 16 ) :: DENOM2 LOGICAL :: LTIME_UNIT ! The Default Finding is an unknown Basis unit and conversion ! equal to 1.0 CONV = 1.0 LAREA_UNIT = .FALSE. LTIME_UNIT = .FALSE. BASIS = 'UNKNOWN' IF ( UNITS .EQ. '' ) RETURN ! Capitalize UNITS string and remove any leading spaces CALL UPCASE( UNITS ) DO WHILE ( UNITS(1:1) .EQ. ' ' ) UNITS = UNITS(2:16) // ' ' END DO ! Find First Break between numerator and denominator. If it's not a ! slash, then it should be the first space. SLASH_IND = INDEX( UNITS, '/' ) IF ( SLASH_IND .EQ. 0 ) SLASH_IND = INDEX( UNITS, ' ' ) X = SLASH_IND - 1 NUMER = UNITS(1:X) ! If there are no slashes or spaces, then exit IF ( SLASH_IND .EQ. 0 ) RETURN ! Check Numerator for Molar or Mass Units IF ( NUMER(1:4) .EQ. 'MOLE' .OR. NUMER(1:5) .EQ. 'MOLES' .OR. & NUMER(1:3) .EQ. 'MOL' ) THEN ! No Conversion Needed for Moles to Moles CONV = 1.0 BASIS = 'MOLE' ELSE IF ( NUMER(1:5) .EQ. 'KMOLE' .OR. NUMER(1:6) .EQ. 'KMOLES' .OR. & NUMER(1:4) .EQ. 'KMOL' ) THEN ! Convert kmol to mol CONV = 1000.0 BASIS = 'MOLE' ELSE IF ( NUMER(1:5) .EQ. 'MMOLE' .OR. NUMER(1:6) .EQ. 'MMOLES' .OR. & NUMER(1:4) .EQ. 'MMOL' ) THEN ! Convert mmol to mol CONV = 1.0e-3 BASIS = 'MOLE' ELSE IF ( NUMER(1:5) .EQ. 'UMOLE' .OR. NUMER(1:6) .EQ. 'UMOLES' .OR. & NUMER(1:4) .EQ. 'UMOL' ) THEN ! Convert umol to mol CONV = 1.0e-6 BASIS = 'MOLE' ELSE IF ( NUMER(1:4) .EQ. 'GRAM' .OR. NUMER(1:5) .EQ. 'GRAMS' .OR. & NUMER(1:1) .EQ. 'G' .OR. NUMER(1:2) .EQ. 'GM' .OR. & NUMER(1:3) .EQ. 'GMS' .OR. NUMER(1:2) .EQ. 'GS' ) THEN ! No Conversion Needed for Grams to Grams CONV = 1.0 BASIS = 'MASS' ELSE IF ( NUMER(1:5) .EQ. 'KGRAM' .OR. NUMER(1:6) .EQ. 'KGRAMS' .OR. & NUMER(1:2) .EQ. 'KG' .OR. NUMER(1:3) .EQ. 'KGM' .OR. & NUMER(1:4) .EQ. 'KGMS' .OR. NUMER(1:3) .EQ. 'KGS' ) THEN ! Convert kg -> g CONV = 1000.0 BASIS = 'MASS' ELSE IF ( NUMER(1:5) .EQ. 'MGRAM' .OR. NUMER(1:6) .EQ. 'MGRAMS' .OR. & NUMER(1:2) .EQ. 'MG' .OR. NUMER(1:3) .EQ. 'MGM' .OR. & NUMER(1:4) .EQ. 'MGMS' .OR. NUMER(1:3) .EQ. 'MGS' ) THEN ! Convert mg -> g CONV = 1.0e-3 BASIS = 'MASS' ELSE IF ( NUMER(1:5) .EQ. 'UGRAM' .OR. NUMER(1:6) .EQ. 'UGRAMS' .OR. & NUMER(1:2) .EQ. 'UG' .OR. NUMER(1:3) .EQ. 'UGM' .OR. & NUMER(1:3) .EQ. 'UGMS' .OR. NUMER(1:3) .EQ. 'UGS' ) THEN ! Convert ug -> g CONV = 1.0e-6 BASIS = 'MASS' ELSE IF ( NUMER(1:5) .EQ. 'NGRAM' .OR. NUMER(1:6) .EQ. 'NGRAMS' .OR. & NUMER(1:2) .EQ. 'NG' .OR. NUMER(1:3) .EQ. 'NGM' .OR. & NUMER(1:4) .EQ. 'NGMS' .OR. NUMER(1:3) .EQ. 'NGS' ) THEN ! Convert ng -> g CONV = 1.0e-9 BASIS = 'MASS' ELSE WRITE( XMSG,'(A,A16,A,I3,A11,A16,A,A,A)' ), & 'ERROR: Species ',TRIM(SPEC),' on emission stream ', & ISRM, ' has units ',TRIM(UNITS),' which are not recognized ', & 'as an emission rate. If you wish to use this variable for ', & 'emissions, please correct the units (e.g. g/s or moles/s).' CALL M3WARN( 'CHECK_EMIS_UNITS', 0, 0, XMSG ) ! No Conversion and and Unknown Basis CONV = 1.0e0 BASIS = 'UNKNOWN' END IF ! Identify Denominator. Return from subroutine if the ! denominator is empty. DENOM = UNITS(X+2:) IF ( DENOM .EQ. '' ) THEN WRITE( XMSG,'(A,A16,A,I3,A11,A16,A,A,A,A)' ), & 'ERROR: Species ',TRIM(SPEC),' on emission stream ', & ISRM, ' has units ',TRIM(UNITS),' which are not recognized ', & 'as an emission rate. If you wish to use this variable for ', & 'emissions, please correct the units (e.g. g/s, moles/s, ', & 'g/m2/s, or g/s/m2, etc.).' CALL M3WARN( 'CHECK_EMIS_UNITS', 0, 0, XMSG ) ! No Conversion and and Unknown Basis CONV = CONV * 1.0e0 BASIS = 'UNKNOWN' RETURN END IF ! Remove Leading Spaces, if any DO WHILE ( DENOM(1:1) .EQ. ' ' ) DENOM = DENOM(2:16) // ' ' END DO ! Now split the Denominator into two parts, before and after ! the slash or space. There will be at least one space because the ! numerator has been cut from the units string, thus leaving at ! least one empty space. SLASH_IND = INDEX( DENOM, '/' ) IF ( SLASH_IND .EQ. 0 ) SLASH_IND = INDEX( DENOM, ' ' ) X = SLASH_IND - 1 DENOM1 = DENOM(1:X) DENOM2 = DENOM(X+2:) ! Parse the first Denominator and return attributes CALL CHECK_UNIT_DENOMINATOR( DENOM1, LAREA_UNIT, LTIME_UNIT, & BASIS, CONV ) IF ( BASIS .EQ. 'UNKNOWN' ) THEN WRITE( XMSG,'(A,A16,A,I3,A11,A16,A,A,A,A)' ), & 'ERROR: Species ',TRIM(SPEC),' on emission stream ', & ISRM, ' has units ',TRIM(UNITS),' which are not recognized ', & 'as an emission rate. If you wish to use this variable for ', & 'emissions, please correct the units (e.g. g/s, moles/s, ', & 'g/m2/s, or g/s/m2, etc.).' CALL M3WARN( 'CHECK_EMIS_UNITS', 0, 0, XMSG ) RETURN END IF ! Parse the second Denominator and return attributes IF ( DENOM2 .NE. '' ) THEN CALL CHECK_UNIT_DENOMINATOR( DENOM2, LAREA_UNIT, LTIME_UNIT, & BASIS, CONV ) IF ( BASIS .EQ. 'UNKNOWN' ) THEN WRITE( XMSG,'(A,A16,A,I3,A11,A16,A,A,A,A)' ), & 'ERROR: Species ',TRIM(SPEC),' on emission stream ', & ISRM, ' has units ',TRIM(UNITS),' which are not recognized ', & 'as an emission rate. If you wish to use this variable for ', & 'emissions, please correct the units (e.g. g/s, moles/s, ', & 'g/m2/s, or g/s/m2, etc.).' CALL M3WARN( 'CHECK_EMIS_UNITS', 0, 0, XMSG ) RETURN END IF END IF ! Check to make sure the time component has been defined IF ( .NOT. LTIME_UNIT ) THEN WRITE( XMSG,'(A,A16,A,I3,A11,A16,A,A,A,A)' ), & 'ERROR: Species ',TRIM(SPEC),' on emission stream ', & ISRM, ' has units ',TRIM(UNITS),' which are not recognized ', & 'as an emission rate. If you wish to use this variable for ', & 'emissions, please correct the units (e.g. g/s, moles/s, ', & 'g/m2/s, or g/s/m2, etc.).' CALL M3WARN( 'CHECK_EMIS_UNITS', 0, 0, XMSG ) BASIS = 'UNKNOWN' RETURN END IF END SUBROUTINE CHECK_EMIS_UNITS !----------------------------------------------------------------------- SUBROUTINE CHECK_UNIT_DENOMINATOR( DENOM, LAREA, LTIME, BASIS, CONV) ! This subroutine compares the denominator from the units string of an ! emission variables to potential time and area units and determines how ! to convert the emissions online in DESID. !----------------------------------------------------------------------- IMPLICIT NONE CHARACTER(16), INTENT( IN ) :: DENOM LOGICAL, INTENT( OUT ) :: LAREA LOGICAL, INTENT( OUT ) :: LTIME CHARACTER(16), INTENT( INOUT ):: BASIS REAL, INTENT( INOUT) :: CONV ! Check 1st Denominator for Time Units IF ( DENOM .EQ. 'S' .OR. DENOM .EQ. 'S-1' .OR. & DENOM .EQ. 'SEC'.OR.DENOM .EQ. 'SEC-1' .OR. & DENOM .EQ. 'SECOND'.OR.DENOM .EQ. 'SECOND-1' .OR. & DENOM .EQ. 'SECONDS'.OR.DENOM .EQ. 'SECONDS-1' ) THEN ! No Conversion Necessary for seconds -> seconds CONV = CONV * 1.0 LTIME = .TRUE. ELSE IF ( DENOM .EQ. 'H' .OR. DENOM .EQ. 'H-1' .OR. & DENOM .EQ. 'HR'.OR.DENOM .EQ. 'HR-1' .OR. & DENOM .EQ. 'HRS'.OR.DENOM .EQ. 'HRS-1' .OR. & DENOM .EQ. 'HOUR'.OR.DENOM .EQ. 'HOUR-1' .OR. & DENOM .EQ. 'HOURS'.OR.DENOM .EQ. 'HOURS-1' ) THEN ! Convert hours -> seconds CONV = CONV * 3600.0 LTIME = .TRUE. ELSE IF ( DENOM .EQ. 'M' .OR. DENOM .EQ. 'M-1' .OR. & DENOM .EQ. 'MIN'.OR.DENOM .EQ. 'MIN-1' .OR. & DENOM .EQ. 'MINUTE'.OR.DENOM .EQ. 'MINUTE-1' .OR. & DENOM .EQ. 'MINUTES'.OR.DENOM .EQ. 'MINUTES-1' ) THEN ! Convert minutes -> seconds CONV = CONV * 60.0 LTIME = .TRUE. ELSE IF ( DENOM .EQ. 'M2' .OR. DENOM .EQ. 'M-2' .OR. & DENOM .EQ. 'M^2'.OR.DENOM .EQ. 'METER-2' .OR. & DENOM .EQ. 'METER^2'.OR.DENOM .EQ. 'METER^-2' .OR. & DENOM .EQ. 'METER2'.OR.DENOM .EQ. 'METER-2' .OR. & DENOM .EQ. 'METERS^2'.OR.DENOM .EQ. 'METERS^-2' .OR. & DENOM .EQ. 'METERS2'.OR.DENOM .EQ. 'METERS-2' ) THEN ! No conversion necessary for meters^2 -> meters^2 CONV = CONV * 1.0 LAREA = .TRUE. ELSE IF ( DENOM .EQ. 'KM2' .OR. DENOM .EQ. 'KM-2' .OR. & DENOM .EQ. 'KM^2'.OR.DENOM .EQ. 'KM^-2' .OR. & DENOM .EQ. 'KILOMETER2'.OR.DENOM .EQ. 'KILOMETER-2' .OR. & DENOM .EQ. 'KILOMETER^2'.OR.DENOM .EQ. 'KILOMETER^-2' .OR. & DENOM .EQ. 'KILOMETERS2'.OR.DENOM .EQ. 'KILOMETERS-2' .OR. & DENOM .EQ. 'KILOMETERS^2'.OR.DENOM .EQ. 'KILOMETERS-2' ) THEN ! Convert kilometers^2 -> meters^2 CONV = CONV * 1.0E6 LAREA = .TRUE. ELSE IF ( DENOM .EQ. 'MI2' .OR. DENOM .EQ. 'MI-2' .OR. & DENOM .EQ. 'MI^2'.OR.DENOM .EQ. 'MI^-2' .OR. & DENOM .EQ. 'MILE2'.OR.DENOM .EQ. 'MILE-2' .OR. & DENOM .EQ. 'MILE^2'.OR.DENOM .EQ. 'MILE^-2' .OR. & DENOM .EQ. 'MILES2'.OR.DENOM .EQ. 'MILES-2' .OR. & DENOM .EQ. 'MILES^2'.OR.DENOM .EQ. 'MILES-2' ) THEN ! Convert mile^2 -> meters^2 CONV = CONV * 2.59E6 LAREA = .TRUE. ELSE IF ( DENOM .EQ. 'HA' .OR. DENOM .EQ. 'HA-1' .OR. & DENOM .EQ. 'HA^1'.OR.DENOM .EQ. 'HA^-1' .OR. & DENOM .EQ. 'HECTARE'.OR.DENOM .EQ. 'HECTARE-1' .OR. & DENOM .EQ. 'HECTARE^1'.OR.DENOM .EQ. 'HECTARE^-1' .OR. & DENOM .EQ. 'HECTARES'.OR.DENOM .EQ. 'HECTARES-1' .OR. & DENOM .EQ. 'HECTARES^1'.OR.DENOM .EQ. 'HECTARES^-1' ) THEN ! Convert hectares -> meters^2 CONV = CONV * 10000.0 LAREA = .TRUE. ELSE ! No Conversion and and Unknown Basis CONV = CONV * 1.0e0 BASIS = 'UNKNOWN' END IF END SUBROUTINE CHECK_UNIT_DENOMINATOR !----------------------------------------------------------------------- SUBROUTINE CHECK_OP( OP, IRULE ) ! This subroutine checks for invalid values of the operation parameter ! in the rules from the emission control list use utilio_defn IMPLICIT NONE CHARACTER( 1 ) :: OP INTEGER, INTENT( IN ) :: IRULE CHARACTER( 200 ) :: XMSG IF ( OP .EQ. 'A' .OR. OP .EQ. 'a' ) THEN OP = 'a' ELSE IF ( OP .EQ. 'M' .OR. OP .EQ. 'm' ) THEN OP = 'm' ELSE IF ( OP .EQ. 'O' .OR. OP .EQ. 'o' ) THEN OP = 'o' ELSE WRITE( XMSG,'(A,I3,A,A1)' ), & 'ERROR: OP parameter for rule ',IRULE, & ' has invalid value: ',OP CALL M3EXIT( 'CHECK_OP (EMIS_DEFN)', 0, 0, XMSG, 2 ) END IF END SUBROUTINE CHECK_OP !----------------------------------------------------------------------- SUBROUTINE CHECK_BASIS( BASIS, IRULE ) ! This subroutine checks for invalid values of the operation parameter ! in the rules from the emission control list use utilio_defn IMPLICIT NONE CHARACTER( 4 ) :: BASIS INTEGER, INTENT( IN ) :: IRULE CHARACTER( 200 ) :: XMSG IF ( BASIS .EQ. 'mole' .OR. BASIS .EQ. 'MOLE' .OR. & BASIS .EQ. 'Mole' ) THEN BASIS = 'MOLE' ELSE IF ( BASIS .EQ. 'mass' .OR. BASIS .EQ. 'MASS' .OR. & BASIS .EQ. 'Mass' ) THEN BASIS = 'MASS' ELSE IF ( BASIS .EQ. 'unit' .OR. BASIS .EQ. 'UNIT' .OR. & BASIS .EQ. 'Unit' ) THEN BASIS = 'UNIT' ELSE WRITE( XMSG,'(A,I3,A,A4)' ), & 'ERROR: BASIS parameter for rule ',IRULE, & ' has invalid value: ',BASIS CALL M3EXIT( 'CHECK_BASIS (EMIS_DEFN)', 0, 0, XMSG, 2 ) END IF END SUBROUTINE CHECK_BASIS !----------------------------------------------------------------------- FUNCTION RESOLVE_YN_TF_2D3D( ARG ) RESULT( ARGOUT ) !----------------------------------------------------------------------- IMPLICIT NONE CHARACTER( 6 ) :: ARG, ARGOUT IF ( ARG .EQ. 'FALSE' .OR. ARG .EQ. 'F' .OR. & ARG .EQ. 'NO' .OR. ARG .EQ. 'N' ) THEN ARGOUT = 'FALSE' ELSEIF ( ARG .EQ. 'TRUE' .OR. ARG .EQ. 'T' .OR. & ARG .EQ. 'YES' .OR. ARG .EQ. 'Y' ) THEN ARGOUT = 'TRUE' ELSEIF ( ARG .EQ. '2D' .OR. ARG .EQ. '2d' ) THEN ARGOUT = 'TRUE' ELSEIF ( ARG .EQ. '3D' .OR. ARG .EQ. '3d' ) THEN ARGOUT = '3D' ELSEIF ( ARG .EQ. '2DSUM' .OR. ARG .EQ. '2dSUM' .OR. & ARG .EQ. '2dsum' ) THEN ARGOUT = '2DSUM' END IF RETURN END FUNCTION RESOLVE_YN_TF_2D3D END MODULE DESID_UTIL ================================================ FILE: CCTM/src/emis/emis/desid_vars.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! !::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: module desid_vars !----------------------------------------------------------------------- ! Function: Define global variables used for emissions processor ! Revision History: ! 09 Nov 2017 B.Murphy: Extracted these variables from EMIS_DEFN !----------------------------------------------------------------------- use runtime_vars use desid_param_module IMPLICIT NONE SAVE REAL, ALLOCATABLE :: CELLAREA( :,: ) REAL, ALLOCATABLE :: CELLHGT ( :,:,: ) REAL, ALLOCATABLE :: CELLVOL ( :,:,: ) REAL :: DX1, DX2 REAL, ALLOCATABLE :: VDEMIS_DIFF( :,:,:,: ) ! emissions array mapped to diffused species INTEGER :: DESID_LAYS CHARACTER( 16 ), ALLOCATABLE :: LOCAL_SPEC( : ) ! Vector of Internal CMAQ Species names for each ! emission rule CHARACTER( 16 ), ALLOCATABLE :: LOCAL_EMVAR( :,: )! Emissions Variable to be read ( species, stream ) TYPE DESID_EMVAR_TYPE INTEGER :: LEN ! Length of Sub-Vector CHARACTER( 16 ), ALLOCATABLE :: ARRY( : ) ! Emission Variable Name CHARACTER( 16 ), ALLOCATABLE :: UNITS( : ) ! Units determined from input files REAL, ALLOCATABLE :: MW( : ) ! Default MW from SPECIATE/SMOKE/MOVE LOGICAL, ALLOCATABLE :: USED( : ) ! Whether or not the variable is used in CMAQ Real, ALLOCATABLE :: CONV( : ) ! Conversion factor to account for kg -> g or hr -> s CHARACTER( 16 ), ALLOCATABLE :: BASIS( : ) ! 'MOLE', 'MASS', or 'UNKNOWN' LOGICAL, ALLOCATABLE :: LAREA( : ) ! Whether or not the variable is an area flux LOGICAL, ALLOCATABLE :: LAREAADJ( : )! Whether or not the emissions should be adjusted ! by the map scale factor END TYPE DESID_EMVAR_TYPE TYPE( DESID_EMVAR_TYPE ),ALLOCATABLE :: DESID_EMVAR( : )! Species to be read from each stream file TYPE DESID_FAC_TYPE INTEGER :: NFAC ! Number of scaling instructions that apply to this element of ! the EM_FAC_ST structure. The other attributes will be of ! length LEN. INTEGER :: NREG ! Number of unique regions for each instruction stack REAL, ALLOCATABLE :: FAC(:) ! Scale Factor applied with potential aerosol splitting REAL, ALLOCATABLE :: BULK(:) ! Scale Factor for bulk emission without ! splitting for aerosols REAL, ALLOCATABLE :: BASIS(:)! Conversion factor to account for mole or mass basis LOGICAL, ALLOCATABLE :: AREA(:) ! True if the emission is a flux that needs to be multiplied ! by the grid cell area LOGICAL, ALLOCATABLE :: AREAADJ(:) ! True if the emissions need to be adjusted by the map scale ! factor to convert from real space to projected space INTEGER, ALLOCATABLE :: REG(:) ! Index Mapping this entry to a particlar region in EM_REGIONS INTEGER, ALLOCATABLE :: REG_UNQ(:) ! Record of Unique Regions for each instruction stack INTEGER, ALLOCATABLE :: REG_RMDR(:) ! Map to remainder map INTEGER, ALLOCATABLE :: OP(:) ! Operation to perform for this scaling ! (addition,'a' = 1, ! multiplication,'m' = 2, ! overwrite,'o' = 3) END TYPE DESID_FAC_TYPE TYPE( DESID_FAC_TYPE ), ALLOCATABLE :: DESID_FAC ( :,: ) ! Emissions Scale Factors ( species, stream ) CHARACTER( 1 ) :: DESID_OP_NAME( 3 ) = (/'a','m','o'/) ! Define Region Remainder Mask Structure TYPE DESID_REG_RMDR_TYPE INTEGER :: REG ! large region with variable number of subset regions LOGICAL, ALLOCATABLE :: SUB(:) ! If an element true, then that subset region is active in ! the same instruction as the large region REAL, ALLOCATABLE :: MASK(:,:) ! Remainder of the large region minus all subset regions in SUB END TYPE DESID_REG_RMDR_TYPE TYPE( DESID_REG_RMDR_TYPE ),ALLOCATABLE :: DESID_REG_RMDR( : ) ! Structure of Masks defining the remainder of ! regions after subtracting their subset regions ! Define Structure for Holding Emissions Aerosol Mode Information Globally TYPE DESID_STREAM_AERO_TYPE INTEGER :: LEN INTEGER, ALLOCATABLE :: REF( : ) CHARACTER( 16 ), ALLOCATABLE :: NAME( : ) REAL, ALLOCATABLE :: FACNUM( :,: ) REAL, ALLOCATABLE :: FACSRF( :,: ) END TYPE DESID_STREAM_AERO_TYPE TYPE( DESID_STREAM_AERO_TYPE ), ALLOCATABLE :: DESID_STREAM_AERO( : ) ! Define Emissions File Attribute Variables CHARACTER( 200 ),ALLOCATABLE :: DESID_STREAM_NAME( : ) ! Filename of each emissions stream CHARACTER( 32 ),ALLOCATABLE :: DESID_STREAM_LAB ( : ) ! Nickname of each emissions stream CHARACTER( 16 ),ALLOCATABLE :: DESID_STREAM_TYPE( : ) ! shortname for the type of each emission INTEGER, ALLOCATABLE :: DESID_STREAM_ITYPE( : ) ! shortname for the type of each emission CHARACTER( 100 ),ALLOCATABLE :: DESID_STREAM_DESC( : ) ! Description of each emissions stream LOGICAL, ALLOCATABLE :: DESID_STREAM_LAPPLY( : )! Flag to use each emissions stream LOGICAL ,ALLOCATABLE :: DESID_STREAM_DIFF( :,: )! Test for whether or not a stream contributes to ! a particular transported variable LOGICAL ,ALLOCATABLE :: DESID_STREAM_SYM_DATE( : ) ! Toggle for whether or not to let the ! emission stream date override the model INTEGER ,ALLOCATABLE :: DESID_STREAM_DATE( : )! Date to be read in from each emissions stream LOGICAL ,ALLOCATABLE :: DESID_STREAM_FIRE( : )! Is this Emission Stream Representing Fires (1=Yes) INTEGER ,ALLOCATABLE :: DESID_DIAG_N_STREAM( : ) ! Number of Streams for each diagnostic file LOGICAL ,ALLOCATABLE :: DESID_DIAG_STREAM_MASK(:,:) ! True if a stream contributes to a diagnostic CHARACTER( 16 ) ,ALLOCATABLE :: DESID_DIAG_LOGICAL( : ) ! I/O Logical Name for each diagnostic file CHARACTER( 6 ) ,ALLOCATABLE :: DESID_DIAG_FORMAT( : ) ! FALSE/TRUE/2D/3D/2DCOL CHARACTER( 300 ),ALLOCATABLE :: DESID_DIAG_FILENAME( : ) ! Filename for diagnostic CHARACTER( 32 ) ,ALLOCATABLE :: DESID_DIAG_LAB( : ) ! Shorthand Label for Diagnostic INTEGER ,ALLOCATABLE :: DESID_DIAG_LAYS( : ) ! Layers for each diagnostic file INTEGER ,ALLOCATABLE :: DESID_DIAG_SUM( : ) REAL ,ALLOCATABLE :: VDEMIS_DIAG( :,:,:,: ) ! Rates for aggregate diagnostic files TYPE DESID_DIAG_SPEC_TYPE INTEGER :: NSPEC CHARACTER(16),ALLOCATABLE :: SPEC( : ) CHARACTER(16),ALLOCATABLE :: UNITS( : ) INTEGER :: NPAIRS INTEGER ,ALLOCATABLE :: MAP_toDIFF( : ) INTEGER ,ALLOCATABLE :: MAP_toDIAG( : ) END TYPE DESID_DIAG_SPEC_TYPE TYPE( DESID_DIAG_SPEC_TYPE ), ALLOCATABLE :: DESID_DIAG_SPEC( : ) TYPE( DESID_DIAG_SPEC_TYPE ), ALLOCATABLE :: DESID_DIAG_SPEC_BUFF( : ) INTEGER ,ALLOCATABLE :: Map_DIAGtoVDEMIS( :,: ) INTEGER :: IBIOSRM, IMIOGSRM, IMGSRM, ILTSRM, ISEASRM, IDUSTSRM INTEGER, ALLOCATABLE :: IGSRM( : ), IPSRM( : ), ITSRM( : ), MAP_PTtoISRM( : ) INTEGER, ALLOCATABLE :: Map_ISTRtoEMVAR( :,: ), Map_ISTRtoDIFF( : ), Map_ISTRtoGAS( : ) ! Create Lookup table of Molecular Weight for likely emission ! variable species. These values are used to compute mole <-> mass ! conversions if requested. This is a comprehensive list of all ! possible emitted species across all chemical mechanisms ! supported by CMAQ. Type desid_legend Character( 16 ) :: NAME ! Emissions Variable Species REAL :: MW ! Emissions Variable Molecular Weight [g mol-1] End Type desid_legend Integer, Parameter :: Desid_N_Emvar_Table = 208 Type( desid_legend ), save :: Desid_Emvar_Table( Desid_N_Emvar_Table) CONTAINS SUBROUTINE INIT_DESID_EMVAR_MW() ! CB SAPRC CRACMM ! Inorganic Gases Desid_Emvar_Table( 1) = desid_legend( 'CH4 ' ,016.0 ) ! x Desid_Emvar_Table( 2) = desid_legend( 'CL2 ' ,071.0 ) ! x x Desid_Emvar_Table( 3) = desid_legend( 'CO ' ,028.0 ) ! x x x Desid_Emvar_Table( 4) = desid_legend( 'HCL ' ,036.5 ) ! x x x Desid_Emvar_Table( 5) = desid_legend( 'HONO ' ,047.0 ) ! x x x Desid_Emvar_Table( 6) = desid_legend( 'NH3 ' ,017.0 ) ! x x x Desid_Emvar_Table( 7) = desid_legend( 'NH3_FERT ' ,017.0 ) ! x x x Desid_Emvar_Table( 8) = desid_legend( 'NO ' ,030.0 ) ! x x x Desid_Emvar_Table( 9) = desid_legend( 'NO2 ' ,046.0 ) ! x x x Desid_Emvar_Table( 10) = desid_legend( 'SO2 ' ,064.0 ) ! x x x Desid_Emvar_Table( 11) = desid_legend( 'SULF ' ,098.0 ) ! x x x ! Organic Gases Desid_Emvar_Table( 12) = desid_legend( '13BDE ' ,054.1 ) ! Desid_Emvar_Table( 13) = desid_legend( 'AACD ' ,060.1 ) ! x x Desid_Emvar_Table( 14) = desid_legend( 'ACD ' ,044.0 ) ! x Desid_Emvar_Table( 15) = desid_legend( 'ACE ' ,026.0 ) ! x Desid_Emvar_Table( 16) = desid_legend( 'ACET ' ,058.1 ) ! x x Desid_Emvar_Table( 17) = desid_legend( 'ACETONE ' ,058.1 ) ! x Desid_Emvar_Table( 18) = desid_legend( 'ACRO ' ,056.1 ) ! x x Desid_Emvar_Table( 19) = desid_legend( 'ACROLEIN ' ,056.1 ) ! x x Desid_Emvar_Table( 20) = desid_legend( 'ACT ' ,058.0 ) ! x Desid_Emvar_Table( 21) = desid_legend( 'ACYE ' ,026.0 ) ! x Desid_Emvar_Table( 22) = desid_legend( 'ALD ' ,058.0 ) ! x Desid_Emvar_Table( 23) = desid_legend( 'ALD2 ' ,044.0 ) ! x Desid_Emvar_Table( 24) = desid_legend( 'ALD2_PRIMARY ' ,044.0 ) ! x Desid_Emvar_Table( 25) = desid_legend( 'ALDX ' ,058.1 ) ! x Desid_Emvar_Table( 26) = desid_legend( 'ALK1 ' ,030.1 ) ! x Desid_Emvar_Table( 27) = desid_legend( 'ALK2 ' ,036.7 ) ! x Desid_Emvar_Table( 28) = desid_legend( 'ALK3 ' ,058.6 ) ! x Desid_Emvar_Table( 29) = desid_legend( 'ALK4 ' ,077.6 ) ! x Desid_Emvar_Table( 30) = desid_legend( 'ALK5 ' ,118.9 ) ! x Desid_Emvar_Table( 31) = desid_legend( 'API ' ,136.4 ) ! x Desid_Emvar_Table( 32) = desid_legend( 'APIN ' ,136.2 ) ! x x Desid_Emvar_Table( 33) = desid_legend( 'ARO1 ' ,095.2 ) ! x Desid_Emvar_Table( 34) = desid_legend( 'ARO2MN ' ,118.7 ) ! x Desid_Emvar_Table( 35) = desid_legend( 'B124 ' ,120.2 ) ! x Desid_Emvar_Table( 36) = desid_legend( 'BACL ' ,086.1 ) ! x Desid_Emvar_Table( 37) = desid_legend( 'BALD ' ,106.0 ) ! x x Desid_Emvar_Table( 38) = desid_legend( 'BDE13 ' ,054.1 ) ! x x Desid_Emvar_Table( 39) = desid_legend( 'BEN ' ,078.1 ) ! x Desid_Emvar_Table( 40) = desid_legend( 'BENZ ' ,078.1 ) ! x x Desid_Emvar_Table( 41) = desid_legend( 'BENZENE ' ,078.1 ) ! x Desid_Emvar_Table( 42) = desid_legend( 'BUTADIENE13 ' ,054.0 ) ! x Desid_Emvar_Table( 43) = desid_legend( 'CCHO ' ,044.1 ) ! x Desid_Emvar_Table( 44) = desid_legend( 'CCOOH ' ,060.05) ! x Desid_Emvar_Table( 45) = desid_legend( 'CRES ' ,108.1 ) ! x x Desid_Emvar_Table( 46) = desid_legend( 'CSL ' ,136.2 ) ! x Desid_Emvar_Table( 47) = desid_legend( 'DCB1 ' ,098.0 ) ! x Desid_Emvar_Table( 48) = desid_legend( 'DIEN ' ,054.0 ) ! x Desid_Emvar_Table( 49) = desid_legend( 'ETE ' ,028.1 ) ! x Desid_Emvar_Table( 50) = desid_legend( 'ETEG ' ,062.1 ) ! x Desid_Emvar_Table( 51) = desid_legend( 'ETHA ' ,030.1 ) ! x Desid_Emvar_Table( 52) = desid_legend( 'ETH ' ,030.1 ) ! x x Desid_Emvar_Table( 53) = desid_legend( 'ETHE ' ,028.1 ) ! x Desid_Emvar_Table( 54) = desid_legend( 'ETHENE ' ,028.1 ) ! x Desid_Emvar_Table( 55) = desid_legend( 'ETHY ' ,026.0 ) ! x Desid_Emvar_Table( 56) = desid_legend( 'ETOH ' ,046.1 ) ! x x Desid_Emvar_Table( 57) = desid_legend( 'EOH ' ,046.1 ) ! x Desid_Emvar_Table( 58) = desid_legend( 'FACD ' ,046.0 ) ! x x Desid_Emvar_Table( 59) = desid_legend( 'FORM ' ,030.0 ) ! x Desid_Emvar_Table( 60) = desid_legend( 'FORM_PRIMARY ' ,030.0 ) ! x Desid_Emvar_Table( 61) = desid_legend( 'FURAN ' ,096.1 ) ! x Desid_Emvar_Table( 62) = desid_legend( 'GLY ' ,058.0 ) ! x x x Desid_Emvar_Table( 63) = desid_legend( 'HC3 ' ,044.1 ) ! x Desid_Emvar_Table( 64) = desid_legend( 'HC5 ' ,072.1 ) ! x Desid_Emvar_Table( 65) = desid_legend( 'HC8 ' ,114.0 ) ! x Desid_Emvar_Table( 66) = desid_legend( 'HC10 ' ,142.28) ! x Desid_Emvar_Table( 67) = desid_legend( 'HCHO ' ,030.0 ) ! x x Desid_Emvar_Table( 68) = desid_legend( 'HCOOH ' ,046.03) ! x Desid_Emvar_Table( 69) = desid_legend( 'HKET ' ,074.0 ) ! x Desid_Emvar_Table( 70) = desid_legend( 'IOLE ' ,056.1 ) ! x Desid_Emvar_Table( 71) = desid_legend( 'IPRD ' ,100.1 ) ! x Desid_Emvar_Table( 72) = desid_legend( 'ISO ' ,068.1 ) ! x Desid_Emvar_Table( 73) = desid_legend( 'ISOP ' ,068.1 ) ! x x Desid_Emvar_Table( 74) = desid_legend( 'ISOPRENE ' ,068.1 ) ! x Desid_Emvar_Table( 75) = desid_legend( 'KET ' ,086.0 ) ! x x Desid_Emvar_Table( 76) = desid_legend( 'LIM ' ,136.3 ) ! x Desid_Emvar_Table( 77) = desid_legend( 'MACR ' ,070.0 ) ! x x Desid_Emvar_Table( 78) = desid_legend( 'MCT ' ,124.1 ) ! x Desid_Emvar_Table( 79) = desid_legend( 'MEK ' ,072.1 ) ! x x Desid_Emvar_Table( 80) = desid_legend( 'MEOH ' ,032.0 ) ! x x Desid_Emvar_Table( 81) = desid_legend( 'MGLY ' ,072.0 ) ! x x x Desid_Emvar_Table( 82) = desid_legend( 'MOH ' ,032.0 ) ! x Desid_Emvar_Table( 83) = desid_legend( 'MVK ' ,070.1 ) ! x x Desid_Emvar_Table( 84) = desid_legend( 'MXYL ' ,106.2 ) ! x Desid_Emvar_Table( 85) = desid_legend( 'NAPH ' ,128.17) ! x x Desid_Emvar_Table( 86) = desid_legend( 'NAPHTHALENE ' ,128.17) ! x Desid_Emvar_Table( 87) = desid_legend( 'OLE ' ,042.1 ) ! x Desid_Emvar_Table( 88) = desid_legend( 'OLE1 ' ,072.3 ) ! x Desid_Emvar_Table( 89) = desid_legend( 'OLE2 ' ,075.8 ) ! x Desid_Emvar_Table( 90) = desid_legend( 'OLI ' ,070.1 ) ! x Desid_Emvar_Table( 91) = desid_legend( 'OLT ' ,042.0 ) ! x Desid_Emvar_Table( 92) = desid_legend( 'ONIT ' ,119.0 ) ! x Desid_Emvar_Table( 93) = desid_legend( 'ORA1 ' ,046.0 ) ! x Desid_Emvar_Table( 94) = desid_legend( 'ORA2 ' ,060.2 ) ! x Desid_Emvar_Table( 95) = desid_legend( 'OXYL ' ,106.2 ) ! x Desid_Emvar_Table( 96) = desid_legend( 'PACD ' ,076.0 ) ! x x Desid_Emvar_Table( 97) = desid_legend( 'PAR ' ,014.0 ) ! x Desid_Emvar_Table( 98) = desid_legend( 'PHEN ' ,110.1 ) ! x Desid_Emvar_Table( 99) = desid_legend( 'PRD2 ' ,116.2 ) ! x Desid_Emvar_Table(100) = desid_legend( 'PROG ' ,076.1 ) ! x Desid_Emvar_Table(101) = desid_legend( 'PROPENE ' ,042.1 ) ! x Desid_Emvar_Table(102) = desid_legend( 'PRPA ' ,044.1 ) ! x Desid_Emvar_Table(103) = desid_legend( 'PRPE ' ,042.1 ) ! x Desid_Emvar_Table(104) = desid_legend( 'PXYL ' ,106.2 ) ! x Desid_Emvar_Table(105) = desid_legend( 'RCHO ' ,058.1 ) ! x Desid_Emvar_Table(106) = desid_legend( 'RNO3 ' ,147.2 ) ! x Desid_Emvar_Table(107) = desid_legend( 'ROH ' ,060.0 ) ! x Desid_Emvar_Table(108) = desid_legend( 'SESQ ' ,204.4 ) ! x x x Desid_Emvar_Table(109) = desid_legend( 'SLOWROC ' ,075.4 ) ! x Desid_Emvar_Table(110) = desid_legend( 'SOAALK ' ,112.0 ) ! x x Desid_Emvar_Table(111) = desid_legend( 'TERP ' ,136.2 ) ! x x Desid_Emvar_Table(112) = desid_legend( 'TOL ' ,092.1 ) ! x x Desid_Emvar_Table(113) = desid_legend( 'TOLU ' ,092.0 ) ! x x Desid_Emvar_Table(114) = desid_legend( 'TOLUENE ' ,092.1 ) ! x Desid_Emvar_Table(115) = desid_legend( 'UALD ' ,084.1 ) ! x Desid_Emvar_Table(116) = desid_legend( 'VROCIOXY ' ,247.0 ) ! x Desid_Emvar_Table(117) = desid_legend( 'XYE ' ,106.2 ) ! x Desid_Emvar_Table(118) = desid_legend( 'XYLMN ' ,106.2 ) ! x Desid_Emvar_Table(119) = desid_legend( 'XYM ' ,106.2 ) ! x Desid_Emvar_Table(120) = desid_legend( 'XYO ' ,106.0 ) ! x Desid_Emvar_Table(121) = desid_legend( 'XYOP ' ,106.2 ) ! x Desid_Emvar_Table(122) = desid_legend( 'XYP ' ,106.0 ) ! x ! Particles Desid_Emvar_Table(123) = desid_legend( 'ASOIL ' ,100.0 ) ! x x x Desid_Emvar_Table(124) = desid_legend( 'ASEACAT ' ,023.75) ! x x x Desid_Emvar_Table(125) = desid_legend( 'PAL ' ,027.0 ) ! x x x Desid_Emvar_Table(126) = desid_legend( 'PCA ' ,040.1 ) ! x x x Desid_Emvar_Table(127) = desid_legend( 'PCL ' ,035.5 ) ! x x x Desid_Emvar_Table(128) = desid_legend( 'PEC ' ,012.0 ) ! x x x Desid_Emvar_Table(129) = desid_legend( 'PFE ' ,055.8 ) ! x x x Desid_Emvar_Table(130) = desid_legend( 'PK ' ,039.1 ) ! x x x Desid_Emvar_Table(131) = desid_legend( 'PH2O ' ,018.0 ) ! x x x Desid_Emvar_Table(132) = desid_legend( 'PMC ' ,100.0 ) ! x x x Desid_Emvar_Table(133) = desid_legend( 'PMG ' ,024.3 ) ! x x x Desid_Emvar_Table(134) = desid_legend( 'PMN ' ,054.9 ) ! x x x Desid_Emvar_Table(135) = desid_legend( 'PMNCOMN2 ' ,422.83) ! x x x POC value Desid_Emvar_Table(136) = desid_legend( 'PMOCN2 ' ,422.83) ! x x x PNCOM value Desid_Emvar_Table(137) = desid_legend( 'PMOTHR ' ,200.0 ) ! x x x Desid_Emvar_Table(138) = desid_legend( 'PNA ' ,023.0 ) ! x x x Desid_Emvar_Table(139) = desid_legend( 'PNCOM ' ,220.0 ) ! x x x Desid_Emvar_Table(140) = desid_legend( 'PNCOMN2 ' ,506.99) ! x x x based on ALK equivalent C* Desid_Emvar_Table(141) = desid_legend( 'PNCOMN1 ' ,408.80) ! x x x based on ALK equivalent C* Desid_Emvar_Table(142) = desid_legend( 'PNCOMP0 ' ,394.77) ! x x x based on ALK equivalent C* Desid_Emvar_Table(143) = desid_legend( 'PNCOMP1 ' ,380.75) ! x x x based on ALK equivalent C* Desid_Emvar_Table(144) = desid_legend( 'PNCOMP2 ' ,338.66) ! x x x based on ALK equivalent C* Desid_Emvar_Table(145) = desid_legend( 'PNH4 ' ,018.0 ) ! x x x Desid_Emvar_Table(146) = desid_legend( 'PNO3 ' ,062.0 ) ! x x x Desid_Emvar_Table(147) = desid_legend( 'POC ' ,220.0 ) ! x x x Desid_Emvar_Table(148) = desid_legend( 'POCN2 ' ,506.99) ! x x x based on ALK equivalent C* Desid_Emvar_Table(149) = desid_legend( 'POCN1 ' ,408.80) ! x x x based on ALK equivalent C* Desid_Emvar_Table(150) = desid_legend( 'POCP0 ' ,394.77) ! x x x based on ALK equivalent C* Desid_Emvar_Table(151) = desid_legend( 'POCP1 ' ,380.75) ! x x x based on ALK equivalent C* Desid_Emvar_Table(152) = desid_legend( 'POCP2 ' ,338.66) ! x x x Desid_Emvar_Table(153) = desid_legend( 'PSI ' ,028.1 ) ! x x x Desid_Emvar_Table(154) = desid_legend( 'PSO4 ' ,096.0 ) ! x x x Desid_Emvar_Table(155) = desid_legend( 'PTI ' ,047.9 ) ! x x x Desid_Emvar_Table(156) = desid_legend( 'ROCN2 ' ,422.83) ! x x x Desid_Emvar_Table(157) = desid_legend( 'ROCN1 ' ,408.8 ) ! x x x Desid_Emvar_Table(158) = desid_legend( 'ROCP0 ' ,394.77) ! x x x Desid_Emvar_Table(159) = desid_legend( 'ROCP1 ' ,380.75) ! x x x Desid_Emvar_Table(160) = desid_legend( 'ROCP2 ' ,338.66) ! x x x Desid_Emvar_Table(161) = desid_legend( 'ROCP3 ' ,296.58) ! x x x Desid_Emvar_Table(162) = desid_legend( 'ROCP4 ' ,254.50) ! x x x Desid_Emvar_Table(163) = desid_legend( 'ROCP5 ' ,198.39) ! x x x Desid_Emvar_Table(164) = desid_legend( 'ROCP6 ' ,184.37) ! x x x Desid_Emvar_Table(165) = desid_legend( 'ROCN2ALK ' ,422.83) ! x x x Desid_Emvar_Table(166) = desid_legend( 'ROCN1ALK ' ,408.8 ) ! x x x Desid_Emvar_Table(167) = desid_legend( 'ROCP0ALK ' ,394.77) ! x x x Desid_Emvar_Table(168) = desid_legend( 'ROCP1ALK ' ,380.75) ! x x x Desid_Emvar_Table(169) = desid_legend( 'ROCP2ALK ' ,338.66) ! x x x Desid_Emvar_Table(160) = desid_legend( 'ROCP3ALK ' ,296.58) ! x x x Desid_Emvar_Table(171) = desid_legend( 'ROCP4ALK ' ,254.50) ! x x x Desid_Emvar_Table(172) = desid_legend( 'ROCP5ALK ' ,198.39) ! x x x Desid_Emvar_Table(173) = desid_legend( 'ROCP6ALK ' ,184.37) ! x x x Desid_Emvar_Table(174) = desid_legend( 'ROCP5ARO ' ,190.33) ! x x x Desid_Emvar_Table(175) = desid_legend( 'ROCP6ARO ' ,176.30) ! x x x Desid_Emvar_Table(176) = desid_legend( 'ROCN2OXY2 ' ,282.4 ) ! x x x Desid_Emvar_Table(177) = desid_legend( 'ROCN2OXY4 ' ,232.3 ) ! x x x Desid_Emvar_Table(178) = desid_legend( 'ROCP0OXY2 ' ,242.4 ) ! x x x Desid_Emvar_Table(179) = desid_legend( 'ROCP0OXY4 ' ,202.3 ) ! x x x Desid_Emvar_Table(170) = desid_legend( 'ROCP1OXY1 ' ,270.5 ) ! x x x Desid_Emvar_Table(181) = desid_legend( 'ROCP1OXY3 ' ,202.3 ) ! x x x Desid_Emvar_Table(182) = desid_legend( 'ROCP2OXY2 ' ,200.3 ) ! x x x Desid_Emvar_Table(183) = desid_legend( 'ROCP3OXY2 ' ,186.3 ) ! x x x ! Toxics Desid_Emvar_Table(184) = desid_legend( 'HGNRVA ' ,200.6 ) Desid_Emvar_Table(185) = desid_legend( 'HGIIGAS ' ,200.6 ) Desid_Emvar_Table(186) = desid_legend( 'NICKEL_F ' ,058.7 ) Desid_Emvar_Table(187) = desid_legend( 'NICKEL_C ' ,058.7 ) Desid_Emvar_Table(188) = desid_legend( 'CHROMEHEX_F ' ,052.0 ) Desid_Emvar_Table(189) = desid_legend( 'CHROMEHEX_C ' ,052.0 ) Desid_Emvar_Table(190) = desid_legend( 'CHROMTRI_F ' ,052.0 ) Desid_Emvar_Table(191) = desid_legend( 'CHROMTRI_C ' ,052.0 ) Desid_Emvar_Table(192) = desid_legend( 'BERYLLIUM_F ' ,009.0 ) Desid_Emvar_Table(193) = desid_legend( 'BERYLLIUM_C ' ,009.0 ) Desid_Emvar_Table(194) = desid_legend( 'LEAD_F ' ,207.2 ) Desid_Emvar_Table(195) = desid_legend( 'LEAD_C ' ,207.2 ) Desid_Emvar_Table(196) = desid_legend( 'DIESEL_PMFINE' ,200.0 ) Desid_Emvar_Table(197) = desid_legend( 'DIESEL_PMEC ' ,012.0 ) Desid_Emvar_Table(198) = desid_legend( 'DIESEL_PMOC ' ,220.0 ) Desid_Emvar_Table(199) = desid_legend( 'DIESEL_PMNO3 ' ,062.0 ) Desid_Emvar_Table(200) = desid_legend( 'DIESEL_PMSO4 ' ,096.0 ) Desid_Emvar_Table(201) = desid_legend( 'DIESEL_PMC ' ,100.0 ) Desid_Emvar_Table(202) = desid_legend( 'CADMIUM_F ' ,112.4 ) Desid_Emvar_Table(203) = desid_legend( 'CADMIUM_C ' ,112.4 ) Desid_Emvar_Table(204) = desid_legend( 'MANGANESE_F ' ,054.9 ) Desid_Emvar_Table(205) = desid_legend( 'MANGANESE_C ' ,054.9 ) Desid_Emvar_Table(206) = desid_legend( 'ARSENIC_F ' ,074.92) Desid_Emvar_Table(207) = desid_legend( 'ARSENIC_C ' ,074.92) Desid_Emvar_Table(208) = desid_legend( 'PHGI ' ,200.5 ) END SUBROUTINE END MODULE DESID_VARS ================================================ FILE: CCTM/src/emis/emis/lus_data_module.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! !------------------------------------------------------------------------! ! This module contains key component from LUS_DEFN.F to facilitate ! centralized I/O implementation by avoiding cyclic data dependence ! Revision History: ! 01 Feb 2019 D.Wong initial implementation ! 12 Aug 2019 F.Sidi Moved vnmld to its on type, and created a integer entry ! to map dust categories from LUFRAC. **NOTE land use type ! with no mapped index has a dummy -999 value.** ! 31 Mar 2022 J. Willison Removed BELD as wbdust input !------------------------------------------------------------------------! module lus_data_module implicit none type lus_type character( 16 ) :: name character( 64 ) :: desc end type lus_type type lus_type_2 character( 16 ) :: name character( 64 ) :: desc integer :: lu_idx end type lus_type_2 type( lus_type_2 ), allocatable :: vnmld( : ) type( lus_type ), allocatable :: vnmlu( : ) real, allocatable :: ladut( :,:,: ) ! % of desertland real, allocatable :: lut( :,:,: ) ! landuse category fraction real, allocatable :: dmsk( : ) ! desert fraction mask real, allocatable :: uland( :,:,: ) ! % of 4 land categories groups integer, allocatable :: dmap( : ) ! desert land map to BELD3 character( 16 ) :: lufile( 2 ) = ' ' integer :: n_dlcat ! number of desert land categories integer :: n_lucat ! number of landuse categories ! USGS - United States Geological Survey ! NOAH - A community land-surface model [N=NCEP, O=Oregon State Univ., ! A=Air Force, H=Hydrologic Research Lab - NWS(now OHD: Office of ! Hydrologic Devel.)] ! MODIS - MODerate resolution Imaging Spectroradiometer ! NLCD - National Land Cover Dataset ! IGBP - International Geosphere-Biosphere Programme ! USGS24 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ! read file: GRID_CRO_2D integer, parameter :: n_dlcat_usgs24 = 4 ! number of desert land categories type( lus_type_2 ), parameter :: vnmld_usgs24( n_dlcat_usgs24 ) = (/ & lus_type_2( 'LUFRAC_08', 'Shrubland ',8 ), & lus_type_2( 'LUFRAC_19', 'Barren or Sparsely Vegetated',19 ), & lus_type_2( 'LUFRAC_22', 'Mixed Tundra ',22 ), & lus_type_2( 'LUFRAC_23', 'Bare Ground Tundra ',23 ) /) !!!!! Is some 'tundra' desert land? real :: dmsk_usgs24( n_dlcat_usgs24 ) = ! land use type desert fraction & (/ 0.50, ! shrubland & 0.75, ! barrenland & 0.75, ! barrenland & 0.75 /) ! barrenland integer :: dmap_usgs24( n_dlcat_usgs24+1 ) = ! land use type desert map to BELD3 & (/ 1, ! shrubland & 3, ! barrenland & 3, ! barrenland & 3, ! barrenland & 3 /) ! ag landuse surrogate integer, parameter :: n_lucat_usgs24 = 24 ! number of landuse categories type( lus_type ), parameter :: vnmlu_usgs24( n_lucat_usgs24 ) = (/ & lus_type( 'LUFRAC_01', 'Urban Land ' ), & lus_type( 'LUFRAC_02', 'Dryland Cropland and Pasture ' ), & lus_type( 'LUFRAC_03', 'Irrigated Cropland and Pasture ' ), & lus_type( 'LUFRAC_04', 'Mixed Dryland and Irrigated Cropland and Pasture' ), & lus_type( 'LUFRAC_05', 'Cropland-Grassland Mosaic ' ), & lus_type( 'LUFRAC_06', 'Cropland-Woodland Mosaic ' ), & lus_type( 'LUFRAC_07', 'Grassland ' ), & lus_type( 'LUFRAC_08', 'Shrubland ' ), & lus_type( 'LUFRAC_09', 'Mixed Shrubland-Grassland ' ), & lus_type( 'LUFRAC_10', 'Savannah ' ), & lus_type( 'LUFRAC_11', 'Deciduous Broadleaf Forest ' ), & lus_type( 'LUFRAC_12', 'Deciduous Needleleaf Forest ' ), & lus_type( 'LUFRAC_13', 'Evergreen Broadleaf Forest ' ), & lus_type( 'LUFRAC_14', 'Evergreen Needleleaf Forest ' ), & lus_type( 'LUFRAC_15', 'Mixed Forest ' ), & lus_type( 'LUFRAC_16', 'Water ' ), & lus_type( 'LUFRAC_17', 'Herbaceous Wetland ' ), & lus_type( 'LUFRAC_18', 'Wooded Wetland ' ), & lus_type( 'LUFRAC_19', 'Barren or Sparsely Vegetated ' ), & lus_type( 'LUFRAC_20', 'Herbaceous Tundra ' ), & lus_type( 'LUFRAC_21', 'Wooded Tundra ' ), & lus_type( 'LUFRAC_22', 'Mixed Tundra ' ), & lus_type( 'LUFRAC_23', 'Bare Ground Tundra ' ), & lus_type( 'LUFRAC_24', 'Snow or Ice ' ) /) ! MODIS - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ! read file: GRID_CRO_2D integer, parameter :: n_dlcat_modis = 1 ! number of desert land categories type( lus_type_2 ), parameter :: vnmld_modis( n_dlcat_modis ) = (/ & lus_type_2( 'nada', 'nada',-999 ) /) real :: dmsk_modis( n_dlcat_modis ) = 0.0 ! land use type desert fraction integer :: dmap_modis( n_dlcat_modis+1 ) = 0 ! land use type desert map to BELD3 integer, parameter :: n_lucat_modis = 1 ! number of landuse categories type( lus_type ), parameter :: vnmlu_modis( n_lucat_modis ) = (/ & lus_type( 'nada', 'nada' ) /) ! 1 MODIS_0: 31. MODIS: 0 water ! 4 MODIS_1: 32. MODIS: 1 evergreen needleleaf forest ! 4 MODIS_2: 33. MODIS: 2 evergreen broadleaf forest ! 4 MODIS_3: 34. MODIS: 3 deciduous needleleaf forest ! 4 MODIS_4: 35. MODIS: 4 deciduous broadleaf forest ! 4 MODIS_5: 36. MODIS: 5 mixed forests ! 2 MODIS_6: 37. MODIS: 6 closed shrublands ! 2 MODIS_7: 38. MODIS: 7 open shrublands ! 4 MODIS_8: 39. MODIS: 8 woody savannas ! 2 MODIS_9: 40. MODIS: 9 savannas ! 2 MODIS_10: 41. MODIS: 10 grasslands ! 4 MODIS_11: 42. MODIS: 11 permanent wetlands ! 2 MODIS_12: 43. MODIS: 12 croplands ! 3 MODIS_13: 44. MODIS: 13 urban and built up ! 2 MODIS_14: 45. MODIS: 14 cropland / natural vegetation mosaic ! 1 MODIS_15: 46. MODIS: 15 permanent snow and ice ! 1 MODIS_16: 47. MODIS: 16 barren or sparsely vegetated ! 1 MODIS_17: 48. MODIS: 17 IGBP water ! - MODIS_254: 49. MODIS: 254 unclassified ! - MODIS_255: 50. MODIS: 255 fill value (normally ocean water) ! MODIS_NOAH ! read file: GRID_CRO_2D integer, parameter :: n_dlcat_modis_noah = 4 ! number of desert land categories type( lus_type_2 ), parameter :: vnmld_modis_noah( n_dlcat_modis_noah ) = (/ & lus_type_2( 'LUFRAC_06', 'Closed Shrublands ',6 ), & lus_type_2( 'LUFRAC_07', 'Open Shrublands ',7 ), & lus_type_2( 'LUFRAC_16', 'Barren or Sparsely Vegetated',16 ), & lus_type_2( 'LUFRAC_20', 'Barren Tundra ',20 ) /) real :: dmsk_modis_noah( n_dlcat_modis_noah ) = ! land use type desert fraction & (/ 0.50, ! shrubland & 0.50, ! shrubland & 0.75, ! barrenland & 0.75 /) ! barrenland integer :: dmap_modis_noah( n_dlcat_modis_noah+1 ) = ! land use type desert map to BELD3 & (/ 1, ! shrubland & 1, ! shrubland & 3, ! barrenland & 3, ! barrenland & 3 /) ! ag landuse surrogate integer, parameter :: n_lucat_modis_noah = 20 ! number of landuse categories type( lus_type ), parameter :: vnmlu_modis_noah( n_lucat_modis_noah ) = (/ & lus_type( 'LUFRAC_01', 'Evergreen Needleleaf Forest ' ), & lus_type( 'LUFRAC_02', 'Evergreen Broadleaf Forest ' ), & lus_type( 'LUFRAC_03', 'Deciduous Needleleaf Forest ' ), & lus_type( 'LUFRAC_04', 'Deciduous Broadleaf Forest ' ), & lus_type( 'LUFRAC_05', 'Mixed Forests ' ), & lus_type( 'LUFRAC_06', 'Closed Shrublands ' ), & lus_type( 'LUFRAC_07', 'Open Shrublands ' ), & lus_type( 'LUFRAC_08', 'Woody Savannas ' ), & lus_type( 'LUFRAC_09', 'Savannas ' ), & lus_type( 'LUFRAC_10', 'Grasslands ' ), & lus_type( 'LUFRAC_11', 'Permanent Wetlands ' ), & lus_type( 'LUFRAC_12', 'Croplands ' ), & lus_type( 'LUFRAC_13', 'Urban and Built-Up ' ), & lus_type( 'LUFRAC_14', 'Cropland-Natural Vegetation Mosaic' ), & lus_type( 'LUFRAC_15', 'Snow and Ice ' ), & lus_type( 'LUFRAC_16', 'Barren or Sparsely Vegetated ' ), & lus_type( 'LUFRAC_17', 'Water ' ), & lus_type( 'LUFRAC_18', 'Wooded Tundra ' ), & lus_type( 'LUFRAC_19', 'Mixed Tundra ' ), & lus_type( 'LUFRAC_20', 'Barren Tundra ' ) /) ! NLCD_MODIS or NLCD50 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ! read file: GRID_CRO_2D ! includes both nlcd and MODIS versions of shrublands integer, parameter :: n_dlcat_nlcd_modis = 7 ! number of desert land types type( lus_type_2 ), parameter :: vnmld_nlcd_modis( n_dlcat_nlcd_modis ) = (/ & lus_type_2( 'LUFRAC_37', 'Closed Shrublands ',37 ), & lus_type_2( 'LUFRAC_38', 'Open Shrublands ',38 ), & lus_type_2( 'LUFRAC_07', 'Barren Land (Rock-Sand-Clay)',7 ), & lus_type_2( 'LUFRAC_12', 'Dwarf Scrub ',12 ), & lus_type_2( 'LUFRAC_13', 'Shrub-Scrub ',13 ), & lus_type_2( 'LUFRAC_18', 'Tundra ',18 ), & lus_type_2( 'LUFRAC_47', 'Barren or Sparsely Vegetated',47 ) /) real :: dmsk_nlcd_modis( n_dlcat_nlcd_modis ) = ! land use type desert fraction & (/ 0.50, ! shrubland & 0.50, ! shrubland & 0.75, ! barrenland & 0.75, ! barrenland & 0.75, ! barrenland & 0.75, ! barrenland & 0.75 /) ! barrenland integer :: dmap_nlcd_modis( n_dlcat_nlcd_modis+1 ) = ! land use type desert map to BELD3 & (/ 1, ! shrubland & 1, ! shrubland & 3, ! barrenland & 3, ! barrenland & 3, ! barrenland & 3, ! barrenland & 3, ! barrenland & 3 /) ! ag landuse surrogate integer, parameter :: n_lucat_nlcd_modis = 50 ! number of landuse categories type( lus_type ), parameter :: vnmlu_nlcd_modis( n_lucat_nlcd_modis ) = (/ & lus_type( 'LUFRAC_01', 'Open Water' ), & lus_type( 'LUFRAC_02', 'Perennial Ice-Snow ' ), & lus_type( 'LUFRAC_03', 'Developed Open Space ' ), ! ? & lus_type( 'LUFRAC_04', 'Developed Low Intensity ' ), & lus_type( 'LUFRAC_05', 'Developed Medium Intensity ' ), & lus_type( 'LUFRAC_06', 'Developed High Intensity ' ), & lus_type( 'LUFRAC_07', 'Barren Land (Rock-Sand-Clay) ' ), & lus_type( 'LUFRAC_08', 'Unconsolidated Shore ' ), ! ? & lus_type( 'LUFRAC_09', 'Deciduous Forest ' ), & lus_type( 'LUFRAC_10', 'Evergreen Forest ' ), & lus_type( 'LUFRAC_11', 'Mixed Forest ' ), & lus_type( 'LUFRAC_12', 'Dwarf Scrub ' ), & lus_type( 'LUFRAC_13', 'Shrub-Scrub ' ), & lus_type( 'LUFRAC_14', 'Grassland-Herbaceous ' ), & lus_type( 'LUFRAC_15', 'Sedge-Herbaceous ' ), & lus_type( 'LUFRAC_16', 'Lichens ' ), & lus_type( 'LUFRAC_17', 'Moss ' ), & lus_type( 'LUFRAC_18', 'Tundra ' ), & lus_type( 'LUFRAC_19', 'Pasture-Hay ' ), & lus_type( 'LUFRAC_20', 'Cultivated Crops ' ), & lus_type( 'LUFRAC_21', 'Woody Wetlands ' ), & lus_type( 'LUFRAC_22', 'Palustrine Forested Wetland ' ), & lus_type( 'LUFRAC_23', 'Palustrine Scrub-Shrub Wetland ' ), ! ? & lus_type( 'LUFRAC_24', 'Estuarine Forested Wetland ' ), & lus_type( 'LUFRAC_25', 'Estuarine Scrub_Shrub Wetland ' ), ! ? & lus_type( 'LUFRAC_26', 'Emergent Herbaceous Wetlands ' ), ! ? & lus_type( 'LUFRAC_27', 'Palustrine Emergent Wetland ' ), ! ? & lus_type( 'LUFRAC_28', 'Estuarine Emergent Wetland ' ), ! ? & lus_type( 'LUFRAC_29', 'Palustrine Aquatic Bed ' ), ! ? & lus_type( 'LUFRAC_30', 'Estuarine Aquatic Bed ' ), ! ? & lus_type( 'LUFRAC_31', 'Water ' ), & lus_type( 'LUFRAC_32', 'Evergreen Needleleaf Forest ' ), & lus_type( 'LUFRAC_33', 'Evergreen Broadleaf Forest ' ), & lus_type( 'LUFRAC_34', 'Deciduous Needleleaf Forest ' ), & lus_type( 'LUFRAC_35', 'Deciduous Broadleaf Forest ' ), & lus_type( 'LUFRAC_36', 'Mixed Forests ' ), & lus_type( 'LUFRAC_37', 'Closed Shrublands ' ), & lus_type( 'LUFRAC_38', 'Open Shrublands ' ), & lus_type( 'LUFRAC_39', 'Woody Savannas ' ), & lus_type( 'LUFRAC_40', 'Savannas ' ), & lus_type( 'LUFRAC_41', 'Grasslands ' ), & lus_type( 'LUFRAC_42', 'Permanent Wetlands ' ), & lus_type( 'LUFRAC_43', 'Croplands ' ), & lus_type( 'LUFRAC_44', 'Urban and Built Up ' ), & lus_type( 'LUFRAC_45', 'Cropland-Natural Vegetation Mosaic' ), & lus_type( 'LUFRAC_46', 'Permanent Snow and Ice ' ), & lus_type( 'LUFRAC_47', 'Barren or Sparsely Vegetated ' ), & lus_type( 'LUFRAC_48', 'IGBP Water ' ), & lus_type( 'LUFRAC_49', 'unclassified ' ), ! ? & lus_type( 'LUFRAC_50', 'fill value ' ) /) ! ? ! NLCD40 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ! read file: GRID_CRO_2D ! includes both nlcd and MODIS versions of shrublands integer, parameter :: n_dlcat_nlcd40 = 6 ! number of desert land types type( lus_type_2 ), parameter :: vnmld_nlcd40( n_dlcat_nlcd40 ) = (/ & lus_type_2( 'LUFRAC_06', 'Closed Shrublands ',6 ), & lus_type_2( 'LUFRAC_07', 'Open Shrublands ',7 ), & lus_type_2( 'LUFRAC_27', 'Barren Land (Rock-Sand-Clay)',27 ), & lus_type_2( 'LUFRAC_31', 'Dwarf Scrub ',31 ), & lus_type_2( 'LUFRAC_32', 'Shrub-Scrub ',32 ), & lus_type_2( 'LUFRAC_16', 'Barren or Sparsely Vegetated',16 ) /) real :: dmsk_nlcd40( n_dlcat_nlcd40 ) = ! land use type desert fraction & (/ 0.50, ! shrubland & 0.50, ! shrubland & 0.75, ! barrenland & 0.75, ! barrenland & 0.75, ! barrenland & 0.75 /) ! barrenland integer :: dmap_nlcd40( n_dlcat_nlcd40+1 ) = ! land use type desert map to BELD3 & (/ 1, ! shrubland & 1, ! shrubland & 3, ! barrenland & 3, ! barrenland & 3, ! barrenland & 3, ! barrenland & 3 /) ! ag landuse surrogate integer, parameter :: n_lucat_nlcd40 = 40 ! number of landuse categories type( lus_type ), parameter :: vnmlu_nlcd40( n_lucat_nlcd40 ) = (/ & lus_type( 'LUFRAC_01', 'Evergreen Needleleaf Forest ' ), & lus_type( 'LUFRAC_02', 'Evergreen Broadleaf Forest ' ), & lus_type( 'LUFRAC_03', 'Deciduous Needleleaf Forest ' ), & lus_type( 'LUFRAC_04', 'Deciduous Broadleaf Forest ' ), & lus_type( 'LUFRAC_05', 'Mixed Forests ' ), & lus_type( 'LUFRAC_06', 'Closed Shrublands ' ), & lus_type( 'LUFRAC_07', 'Open Shrublands ' ), & lus_type( 'LUFRAC_08', 'Woody Savannas ' ), & lus_type( 'LUFRAC_09', 'Savannas ' ), & lus_type( 'LUFRAC_10', 'Grasslands ' ), & lus_type( 'LUFRAC_11', 'Permanent Wetlands ' ), & lus_type( 'LUFRAC_12', 'Croplands ' ), & lus_type( 'LUFRAC_13', 'Urban and Built Up ' ), & lus_type( 'LUFRAC_14', 'Cropland-Natural Vegetation Mosaic' ), & lus_type( 'LUFRAC_15', 'Permanent Snow and Ice ' ), & lus_type( 'LUFRAC_16', 'Barren or Sparsely Vegetated ' ), & lus_type( 'LUFRAC_17', 'IGBP Water ' ), & lus_type( 'LUFRAC_18', 'unclassified ' ), ! ? & lus_type( 'LUFRAC_19', 'fill value ' ), & lus_type( 'LUFRAC_20', 'unclassified ' ), ! ? & lus_type( 'LUFRAC_21', 'Open Water ' ), & lus_type( 'LUFRAC_22', 'Perennial Ice-Snow ' ), & lus_type( 'LUFRAC_23', 'Developed Open Space ' ), ! ? & lus_type( 'LUFRAC_24', 'Developed Low Intensity ' ), & lus_type( 'LUFRAC_25', 'Developed Medium Intensity ' ), & lus_type( 'LUFRAC_26', 'Developed High Intensity ' ), & lus_type( 'LUFRAC_27', 'Barren Land (Rock-Sand-Clay) ' ), & lus_type( 'LUFRAC_28', 'Deciduous Forest ' ), & lus_type( 'LUFRAC_29', 'Evergreen Forest ' ), & lus_type( 'LUFRAC_30', 'Mixed Forest ' ), & lus_type( 'LUFRAC_31', 'Dwarf Scrub ' ), & lus_type( 'LUFRAC_32', 'Shrub-Scrub ' ), & lus_type( 'LUFRAC_33', 'Grassland-Herbaceous ' ), & lus_type( 'LUFRAC_34', 'Sedge-Herbaceous ' ), & lus_type( 'LUFRAC_35', 'Lichens ' ), & lus_type( 'LUFRAC_36', 'Moss ' ), & lus_type( 'LUFRAC_37', 'Pasture-Hay ' ), & lus_type( 'LUFRAC_38', 'Cultivated Crops ' ), & lus_type( 'LUFRAC_39', 'Woody Wetlands ' ), & lus_type( 'LUFRAC_40', 'Emergent Herbaceous Wetlands ' ) /) ! ? end module lus_data_module ================================================ FILE: CCTM/src/emis/emis/stack_group_data_module.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! !------------------------------------------------------------------------! ! This module contains key component from STK_PRMS.F to facilitate ! centralized I/O implementation by avoiding cyclic data dependence ! Revision History: ! 01 Feb 2019 D.Wong initial implementation, !------------------------------------------------------------------------! module stack_group_data_module use UDTYPES, ONLY: IARRY1, RARRY1 real, allocatable :: XLOCA(:,:), & YLOCA(:,:) integer, ALLOCATABLE :: NSRC( : ) integer, allocatable :: STKID(:,:) TYPE( RARRY1 ), ALLOCATABLE :: STKDIAM( : ) TYPE( RARRY1 ), ALLOCATABLE :: STKHT ( : ) TYPE( RARRY1 ), ALLOCATABLE :: STKTK ( : ) TYPE( RARRY1 ), ALLOCATABLE :: STKVEL ( : ) TYPE( RARRY1 ), ALLOCATABLE :: ACRES_BURNED( : ) LOGICAL, ALLOCATABLE :: FIRE_ON( : ) end module stack_group_data_module ================================================ FILE: CCTM/src/gas/ebi_cb6r3_ae7_aq/hrdata_mod.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! MODULE HRDATA C************************************************************************* C C FUNCTION: Mechanism & solver data for EBI solver C C PRECONDITIONS: For the CB6R3_AE7_AQ mechanism C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by EBI solver program, Jun 8, 2022 C C 18 Jul 14 B.Hutzell: revised to use real(8) variables for solution C************************************************************************* c..EBI solver fixed parameters INTEGER, PARAMETER :: NEBITER = 1000 ! No. of iterations for EBI INTEGER, PARAMETER :: MAX_CELLS_EBI = 1 ! max # cells in local conc arrays REAL( 8 ), PARAMETER :: DELTAT = 2.500D+00 ! EBI time step (min) c..Mechanism specific variables INTEGER N_SPEC ! No. of species in mechanism INTEGER N_RXNS ! No. of reactions in mechanism INTEGER N_EBISP ! No. of species solved by EBI INTEGER NING1 ! No. of species in group 1 INTEGER NING2 ! No. of species in group 2 INTEGER N_SPCL_RKS ! No. of special rate constants INTEGER N_ACTSP ! No. of species in mechanism (non-ss spec) INTEGER NCELL ! cell number in EBI Block c..Control flags LOGICAL L_AE_VRSN ! Flag for aerosol version of mech LOGICAL L_AQ_VRSN ! Flag for aqueous chemistry version of mech LOGICAL CALL_IRR ! Flag initializing for IRR and calling PA_IRR ! SWITCH for calling DEGRADE routine LOGICAL, SAVE :: CALL_DEG = .TRUE. c..Miscellaneous variables INTEGER N_EBI_IT ! No. of iterations for EBI INTEGER N_EBI_STEPS ! No. of time steps for EBI INTEGER N_INR_STEPS ! No. of inner time steps for EBI INTEGER PECOL_OFFSET ! Local Column Offset for processor INTEGER PEROW_OFFSET ! Local Column Offset for processor INTEGER, SAVE :: MODEL_SPECIES ! No. of species in CGRID REAL( 8 ) EBI_TMSTEP ! Time step for EBI loops (min) REAL( 8 ) CHEMSTEP ! Chemistry integration interval (min) c...Allocatable arrays INTEGER, ALLOCATABLE :: EBISP( : ) ! Index of EBI species INTEGER, ALLOCATABLE :: SSASP( : ) ! Index of ss species INTEGER, ALLOCATABLE :: ACTSP( : ) ! Index of active species INTEGER, ALLOCATABLE :: IOLD2NEW( :,: ) ! YC species map, used if NSPECIAL > 0 REAL( 8 ), ALLOCATABLE :: RKI( : ) ! Rate constants REAL( 8 ), ALLOCATABLE :: RKI_SAV( :, : ) ! Saved values of RKI for SS species calcs REAL( 8 ), ALLOCATABLE :: YC ( : ) ! Species concentrations REAL( 8 ), ALLOCATABLE :: YC0( : ) ! Species concentrations REAL( 8 ), ALLOCATABLE :: YCP( : ) ! Species concentrations REAL( 8 ), ALLOCATABLE :: SYC( :, : ) ! Species concentrations REAL, ALLOCATABLE :: FORWARD_CONV( : ) ! CGRID to CHEM Species conversion factor REAL, ALLOCATABLE :: REVERSE_CONV( : ) ! CHEM to CGRID Species conversion factor REAL( 8 ), ALLOCATABLE :: RXRAT( : ) ! Reaction rates REAL( 8 ), ALLOCATABLE :: RTOL( : ) ! Species tolerances REAL( 8 ), ALLOCATABLE :: YCCELL( : ) ! ALL Species in cgrid REAL( 8 ), ALLOCATABLE :: PROD( : ) ! Prod of species REAL( 8 ), ALLOCATABLE :: LOSS( : ) ! Loss of species REAL( 8 ), ALLOCATABLE :: PNEG( : )! Negative production rates REAL, ALLOCATABLE :: PRES( :, :, : ) ! pressure (Pa) REAL, ALLOCATABLE :: QV ( :, :, : ) ! water vapor (Kg/Kg air) REAL, ALLOCATABLE :: TA ( :, :, : ) ! temperature (K) REAL, ALLOCATABLE :: SEAICE ( :, :) ! fractional seaice cover, [-] REAL, ALLOCATABLE :: DENS( :, :, : ) ! mass density (Kg/m^3) REAL, ALLOCATABLE :: SEAWATER_ZONE ( :,: ) ! fractional area of OPEN+SURF LOGICAL, ALLOCATABLE :: LFLAGIRR ( :,:,: ) ! Conduct IRR for cell REAL( 8 ), ALLOCATABLE :: ATMPRES ( : ) ! Cell pressure, Atm ! REAL( 8 ), ALLOCATABLE :: PRESCELL( : ) ! Cell pressure, Pa REAL( 8 ), ALLOCATABLE :: H2O ( : ) ! Cell H2O mixing ratio (ppmV) REAL( 8 ), ALLOCATABLE :: TEMP ( : ) ! Cell Temperature REAL( 8 ), ALLOCATABLE :: DENSITY ( : ) ! Cell mass density (Kg/m3) REAL( 8 ), ALLOCATABLE :: HET ( :, : ) ! cell heterogeneous reaction rates REAL( 8 ), ALLOCATABLE :: RJIN ( :, : ) ! J-values for a cell REAL( 8 ), ALLOCATABLE :: SEAWATER ( : ) ! fractional area of OPEN+SURF for specific cell c..Species indices INTEGER, PARAMETER :: NO2 = 1 INTEGER, PARAMETER :: NO = 2 INTEGER, PARAMETER :: O = 3 INTEGER, PARAMETER :: O3 = 4 INTEGER, PARAMETER :: NO3 = 5 INTEGER, PARAMETER :: O1D = 6 INTEGER, PARAMETER :: OH = 7 INTEGER, PARAMETER :: HO2 = 8 INTEGER, PARAMETER :: H2O2 = 9 INTEGER, PARAMETER :: N2O5 = 10 INTEGER, PARAMETER :: HNO3 = 11 INTEGER, PARAMETER :: HONO = 12 INTEGER, PARAMETER :: PNA = 13 INTEGER, PARAMETER :: SO2 = 14 INTEGER, PARAMETER :: SULF = 15 INTEGER, PARAMETER :: SULRXN = 16 INTEGER, PARAMETER :: C2O3 = 17 INTEGER, PARAMETER :: MEO2 = 18 INTEGER, PARAMETER :: RO2 = 19 INTEGER, PARAMETER :: PAN = 20 INTEGER, PARAMETER :: PACD = 21 INTEGER, PARAMETER :: AACD = 22 INTEGER, PARAMETER :: CXO3 = 23 INTEGER, PARAMETER :: ALD2 = 24 INTEGER, PARAMETER :: XO2H = 25 INTEGER, PARAMETER :: PANX = 26 INTEGER, PARAMETER :: FORM = 27 INTEGER, PARAMETER :: MEPX = 28 INTEGER, PARAMETER :: MEOH = 29 INTEGER, PARAMETER :: ROOH = 30 INTEGER, PARAMETER :: XO2 = 31 INTEGER, PARAMETER :: XO2N = 32 INTEGER, PARAMETER :: NTR1 = 33 INTEGER, PARAMETER :: NTR2 = 34 INTEGER, PARAMETER :: FACD = 35 INTEGER, PARAMETER :: CO = 36 INTEGER, PARAMETER :: HCO3 = 37 INTEGER, PARAMETER :: ALDX = 38 INTEGER, PARAMETER :: GLYD = 39 INTEGER, PARAMETER :: GLY = 40 INTEGER, PARAMETER :: MGLY = 41 INTEGER, PARAMETER :: ETHA = 42 INTEGER, PARAMETER :: ETOH = 43 INTEGER, PARAMETER :: KET = 44 INTEGER, PARAMETER :: PAR = 45 INTEGER, PARAMETER :: ACET = 46 INTEGER, PARAMETER :: PRPA = 47 INTEGER, PARAMETER :: XPRP = 48 INTEGER, PARAMETER :: XPAR = 49 INTEGER, PARAMETER :: ROR = 50 INTEGER, PARAMETER :: ETHY = 51 INTEGER, PARAMETER :: ETH = 52 INTEGER, PARAMETER :: OLE = 53 INTEGER, PARAMETER :: IOLE = 54 INTEGER, PARAMETER :: ISOP = 55 INTEGER, PARAMETER :: ISO2 = 56 INTEGER, PARAMETER :: ISOPRXN = 57 INTEGER, PARAMETER :: ISPD = 58 INTEGER, PARAMETER :: INTR = 59 INTEGER, PARAMETER :: ISPX = 60 INTEGER, PARAMETER :: HPLD = 61 INTEGER, PARAMETER :: OPO3 = 62 INTEGER, PARAMETER :: EPOX = 63 INTEGER, PARAMETER :: EPX2 = 64 INTEGER, PARAMETER :: TERP = 65 INTEGER, PARAMETER :: TRPRXN = 66 INTEGER, PARAMETER :: TERPNRO2 = 67 INTEGER, PARAMETER :: APIN = 68 INTEGER, PARAMETER :: BENZENE = 69 INTEGER, PARAMETER :: CRES = 70 INTEGER, PARAMETER :: BZO2 = 71 INTEGER, PARAMETER :: OPEN = 72 INTEGER, PARAMETER :: BENZRO2 = 73 INTEGER, PARAMETER :: TOL = 74 INTEGER, PARAMETER :: TO2 = 75 INTEGER, PARAMETER :: TOLRO2 = 76 INTEGER, PARAMETER :: XOPN = 77 INTEGER, PARAMETER :: XYLMN = 78 INTEGER, PARAMETER :: XLO2 = 79 INTEGER, PARAMETER :: XYLRO2 = 80 INTEGER, PARAMETER :: NAPH = 81 INTEGER, PARAMETER :: PAHRO2 = 82 INTEGER, PARAMETER :: CRO = 83 INTEGER, PARAMETER :: CAT1 = 84 INTEGER, PARAMETER :: CRON = 85 INTEGER, PARAMETER :: OPAN = 86 INTEGER, PARAMETER :: ECH4 = 87 INTEGER, PARAMETER :: CL2 = 88 INTEGER, PARAMETER :: CL = 89 INTEGER, PARAMETER :: HOCL = 90 INTEGER, PARAMETER :: CLO = 91 INTEGER, PARAMETER :: FMCL = 92 INTEGER, PARAMETER :: HCL = 93 INTEGER, PARAMETER :: CLNO2 = 94 INTEGER, PARAMETER :: CLNO3 = 95 INTEGER, PARAMETER :: SVAVB2 = 96 INTEGER, PARAMETER :: SVAVB3 = 97 INTEGER, PARAMETER :: SVAVB4 = 98 INTEGER, PARAMETER :: SVAVB1 = 99 INTEGER, PARAMETER :: SESQ = 100 INTEGER, PARAMETER :: SESQRXN = 101 INTEGER, PARAMETER :: SOAALK = 102 INTEGER, PARAMETER :: H2NO3PIJ = 103 INTEGER, PARAMETER :: H2NO3PK = 104 INTEGER, PARAMETER :: ACLI = 105 INTEGER, PARAMETER :: ACLJ = 106 INTEGER, PARAMETER :: ACLK = 107 INTEGER, PARAMETER :: IEPOXP = 108 INTEGER, PARAMETER :: ASO4J = 109 INTEGER, PARAMETER :: AISO3J = 110 INTEGER, PARAMETER :: AGLYJ = 111 INTEGER, PARAMETER :: MTNO3 = 112 INTEGER, PARAMETER :: AMTNO3J = 113 INTEGER, PARAMETER :: AMTHYDJ = 114 INTEGER, PARAMETER :: AAVB2J = 115 INTEGER, PARAMETER :: AOLGAJ = 116 INTEGER, PARAMETER :: AAVB3J = 117 INTEGER, PARAMETER :: AAVB4J = 118 INTEGER, PARAMETER :: AISO1J = 119 INTEGER, PARAMETER :: AOLGBJ = 120 INTEGER, PARAMETER :: AISO2J = 121 INTEGER, PARAMETER :: ASQTJ = 122 INTEGER, PARAMETER :: APOCI = 123 INTEGER, PARAMETER :: APNCOMI = 124 INTEGER, PARAMETER :: APOCJ = 125 INTEGER, PARAMETER :: APNCOMJ = 126 INTEGER, PARAMETER :: PCVOC = 127 INTEGER, PARAMETER :: PCSOARXN = 128 INTEGER, PARAMETER :: VLVPO1 = 129 INTEGER, PARAMETER :: VSVPO1 = 130 INTEGER, PARAMETER :: VSVPO2 = 131 INTEGER, PARAMETER :: VSVPO3 = 132 INTEGER, PARAMETER :: VIVPO1 = 133 INTEGER, PARAMETER :: VLVOO1 = 134 INTEGER, PARAMETER :: VLVOO2 = 135 INTEGER, PARAMETER :: VSVOO2 = 136 INTEGER, PARAMETER :: VSVOO3 = 137 INTEGER, PARAMETER :: VSVOO1 = 138 INTEGER, PARAMETER :: FORM_PRIMARY = 139 INTEGER, PARAMETER :: ALD2_PRIMARY = 140 INTEGER, PARAMETER :: BUTADIENE13 = 141 INTEGER, PARAMETER :: ACROLEIN = 142 INTEGER, PARAMETER :: ACRO_PRIMARY = 143 INTEGER, PARAMETER :: TOLU = 144 INTEGER, PARAMETER :: HG = 145 INTEGER, PARAMETER :: HGIIAER = 146 INTEGER, PARAMETER :: HGIIGAS = 147 END MODULE HRDATA ================================================ FILE: CCTM/src/gas/ebi_cb6r3_ae7_aq/hrdriver.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE CHEM( CGRID, JDATE, JTIME, TSTEP ) C********************************************************************** C C FUNCTION: Driver subroutine for Euler Backward Iterative solver C C PRECONDITIONS: For the CB6R3_AE7_AQ mechanism C C KEY SUBROUTINES/FUNCTIONS CALLED: HRINIT, HRCALCKS, HRSOLVER C FIND_DEGRADED, INIT_DEGRADE, FINAL_DEGRADE C C REVISION HISTORY: Created by EBI solver program, Jun 8, 2022 C Based on the algorithm in "Test of Two Numerical C Schemes for Use in Atmospheric Transport-Chemistry C Models", O. Hertel, R. Berkowicz, J. Christensen, C and O. Hov, Atm Env., Vol. 27A, No. 16, 1993. C Original MEBI code developed by Ho-Chun Huang, C SUNY, Albany -- "On the performance of numerical C solvers for a chemistry submodel in three-dimensional C air quality models 1. Box model simulations", C H. Huang and J.S. Chang, JGR, Vol 106, No. D17, 2001. C This version replaces Huang and Chang use of numerical C solutions with analytical solutions derived in C Hertel et al. C 21 Jun 10 J.Young: convert for Namelist redesign C 11 May 11 D.Wong: incorporated twoway model implementation C 27 Sep 11 B.Hutzell: revised method for defining CALL_DEG variable C 18 Jul 14 B.Hutzell: revised: 1) to use the RXNS_DATA and RXNS_FUNCTION C modules instead of include files, 2) to enable C reactions between species types, 3) to calculate C heterogeneous rate constants via AEROSOL_CHEMISTRY C module, 4) to replace call to HRCALCKS with C subroutine in RXNS_FUNCTION module and 5) to change C how degrade routines are used, if present C 02 Dec 14 B.Hutzell: 1) added terrestrial data to conduct surface C dependent reactions and 2) modified the call CALC_RCONST C routine C 01 Feb 19 D.Wong: Implemented centralized I/O approach, removed all MY_N C clauses C********************************************************************** USE HGRD_DEFN ! horizontal domain specifications USE VGRD_DEFN ! vertical layer specifications USE CGRID_SPCS ! CGRID mechanism species USE UTILIO_DEFN ! IOAPI parameters and functions declarations USE RXNS_DATA USE AEROSOL_CHEMISTRY USE RXNS_FUNCTION #ifdef isam USE SA_IRR_DEFN USE SA_DEFN #endif USE HRDATA USE PHOT_MOD, Only: INIT_PHOT_SHARED, RJ ! photolysis rate, in-line module USE PA_DEFN, Only: LIRR ! Process Analysis control and data variable USE PA_IRR_CLT #ifndef isam USE DEGRADE_ROUTINES, ONLY : N_REACT, RXTANT_MAP, DEG_LAY, DEG_COL, DEG_ROW, & FIND_DEGRADED, INIT_DEGRADE, FINAL_DEGRADE #else USE DEGRADE_ROUTINES, ONLY : N_REACT, RXTANT_MAP, SA_DEGRADE_EXTRACT, & FIND_DEGRADED, INIT_DEGRADE, FINAL_DEGRADE, & SA_DEGRADE_UPLOAD, DEG_LAY, DEG_COL, DEG_ROW #endif USE CENTRALIZED_IO_MODULE, ONLY : INTERPOLATE_VAR, OCEAN, SZONE #ifdef sens USE DDM3D_CHEM Use DDM3D_DEFN, Only: DATENUM, STARTDATE, IPT, IDATE, HIGH, NP, NPMAX, CKTIME #endif IMPLICIT NONE C..Includes: INCLUDE SUBST_FILES_ID ! CMAQ files INCLUDE SUBST_CONST ! CMAQ constants INCLUDE SUBST_EMISPRM ! Emissions processing control parameters C..Arguments: REAL, POINTER :: CGRID( :,:,:,: ) ! Species concentrations INTEGER JDATE ! Current date (YYYYDDD) INTEGER JTIME ! Current time (HHMMSS) INTEGER TSTEP( 3 ) ! Time step vector (HHMMSS) C..Parameters: REAL( 8 ), PARAMETER :: DCONMIN = 1.0D-30 ! minimum species concentration allowed REAL, PARAMETER :: CONCMIN = 1.0E-30 ! minimum species concentration allowed REAL, PARAMETER :: MAOMV = 1.0E6 * MWAIR / MWWAT ! Mol Wt of air over Mol Wt of water times 1.0E6 C..External Functions: C..Saved Local Variables: CHARACTER( 16 ), SAVE :: PNAME = 'HRDRIVER' ! Program name INTEGER, SAVE :: ISTFL ! Unit no. of iteration stat output file LOGICAL, SAVE :: LFIRST = .TRUE. ! Flag for first call to this subroutine REAL( 8 ), SAVE :: PA2ATM ! Pascal to atm conv fac C..Scratch Local Variables: CHARACTER( 132 ) :: MSG ! Message text CHARACTER( 16 ) :: VNAME ! Name of I/O API data variable INTEGER C, E, L, R, S ! Loop indices INTEGER ISP ! array index INTEGER AVGEBI ! Average no. of EBI iterations INTEGER DELT_SEC ! EBI max time step in seconds INTEGER ESP ! Loop index for emissions species INTEGER ITMSTEP ! Chemistry integration interval (sec) INTEGER LEV ! Layer index INTEGER MIDDATE ! Date at time step midpoint INTEGER MIDTIME ! Time at time step midpoint INTEGER NPH ! Index for number of phot. rxns in PHOT INTEGER SPC ! Species loop index #ifdef hrstats INTEGER MNEBI ! Min no. of EBI iterations INTEGER MXEBI ! Max no. of EBI iterations #endif LOGICAL LSUNLIGHT ! Flag for sunlight REAL INV_DENS ! reciprocal of air mass density, m3/Kg #ifdef hrstats REAL SUMEBI ! Sum of EBI iterations #endif INTERFACE SUBROUTINE HRSOLVER( JDATE, JTIME, C, R, L ) INTEGER, INTENT( IN ) :: JDATE ! Current date (YYYYDDD) INTEGER, INTENT( IN ) :: JTIME ! Current time (HHMMSS) INTEGER, INTENT( IN ) :: C, R, L ! Cell col, row, lev END SUBROUTINE HRSOLVER SUBROUTINE HETCHEM_UPDATE_AERO( CGRID ) REAL, POINTER :: CGRID( :,:,:,: ) ! species concentration in cell END SUBROUTINE HETCHEM_UPDATE_AERO END INTERFACE C********************************************************************** IF( NUMB_MECH_SPC .EQ. 0 ) RETURN ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c On first call, call routines to set-up for EBI solver ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF( LFIRST ) THEN IF( MECHNAME .NE. 'CB6R3_AE7_AQ' ) THEN MSG = 'This version of the EBI solver can only be used with' & // ' the CB6R3_AE7_AQ chemical mechanism' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF #ifdef emis_chem EMISVD = .FALSE. #else EMISVD = .TRUE. #endif IF( INDEX( MECHNAME, 'AE' ) .NE. 0 ) THEN L_AE_VRSN = .TRUE. ELSE L_AE_VRSN = .FALSE. END IF IF( INDEX( MECHNAME, 'AQ' ) .NE. 0 ) THEN L_AQ_VRSN = .TRUE. ELSE L_AQ_VRSN = .FALSE. END IF IF( LIRR ) THEN CALL_IRR = .TRUE. ELSE CALL_IRR = .FALSE. END IF MODEL_SPECIES = NSPCSD ! WTH: find number of model species ! Determine whether DEGRADE rountines are needed. CALL FIND_DEGRADED( JDATE, JTIME, CALL_DEG ) IF( CALL_DEG )THEN WRITE(LOGDEV,*)'TX DEGRADE ROUTINES USED' WRITE(LOGDEV,*)'Mechanism contains degraded species' #ifdef verbose_gas ELSE WRITE(LOGDEV,*)'TX DEGRADE ROUTINES OMITTED' WRITE(LOGDEV,*)'MECHANISM does not include degraded species' #endif END IF CALL HRINIT ITMSTEP = TIME2SEC( TSTEP( 2 ) ) CHEMSTEP = REAL( ITMSTEP, 8 ) / 60.0D0 WRITE( LOGDEV, 92000 ) CHEMSTEP, DELTAT WRITE( LOGDEV, 92020 ) DO SPC = 1, NUMB_MECH_SPC WRITE( LOGDEV, 92040 ) CHEMISTRY_SPC( SPC ), RTOL( SPC ) END DO PA2ATM = REAL( 1.0 / STDATMPA, 8) c..If emissions processing requested stop IF( .NOT. EMISVD ) THEN ! assumes emis processing in gas chem MSG = 'ERROR: EBI solver not configured to '// & 'process emissions in chemistry' CALL M3EXIT( PNAME, JDATE, JTIME, MSG, XSTAT1 ) END IF ! End if doing emissions #ifdef hrstats ISTFL = JUNIT() OPEN( UNIT=ISTFL, FILE='iterstat.dat' ) WRITE( ISTFL, 94020 ) #endif C Define processor offsets PECOL_OFFSET = COLSD_PE( 1, MYPE+1 ) - 1 PEROW_OFFSET = ROWSD_PE( 1, MYPE+1 ) - 1 ALLOCATE( SEAWATER_ZONE( NCOLS, NROWS ) ) DO R = 1, NROWS DO C = 1, NCOLS SEAWATER_ZONE( C,R ) = OCEAN( C,R ) + SZONE( C,R ) END DO END DO ALLOCATE( DENS( NCOLS, NROWS, NLAYS ), PRES( NCOLS, NROWS, NLAYS ), & QV ( NCOLS, NROWS, NLAYS ), TA ( NCOLS, NROWS, NLAYS ), & SEAICE( NCOLS, NROWS ) ) C..Initialize shared photolysis data CALL INIT_PHOT_SHARED() C..Determine which cells need IRR ALLOCATE( LFLAGIRR ( NCOLS, NROWS, NLAYS ) ) CALL PA_IRR_CKCELLS ( LFLAGIRR ) #ifdef isam NUMB_ISAM_CELLS = 1.0D0 / ( NCOLS * NROWS * NLAYS ) CALL SA_IRR_INIT #endif #ifdef sens CALL INIT_DDM3D_CHEM() C For higher order sensitivities IF ( HIGH ) THEN DO RXN = 1, NRXNS IF( NREACT( RXN ) .EQ. 1 ) THEN ORDER1( RXN ) = .TRUE. ELSE ORDER1( RXN ) = .FALSE. END IF END DO END IF #endif LFIRST = .FALSE. END IF ! First time ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C Set date and time to center of time step, get necessary physical C data ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc MIDDATE = JDATE MIDTIME = JTIME ITMSTEP = TIME2SEC( TSTEP( 2 ) ) CHEMSTEP = REAL( ITMSTEP, 8 ) / 60.0D0 CALL NEXTIME( MIDDATE, MIDTIME, SEC2TIME( ITMSTEP / 2 ) ) C.. Compute number of time step loops and step size for EBI solver DELT_SEC = INT( DELTAT * 60.0D0 + 0.1D0 ) IF( DELT_SEC .GE. ITMSTEP ) THEN N_EBI_STEPS = 2 EBI_TMSTEP = 0.5D0 * CHEMSTEP ELSE IF( MOD( ITMSTEP, DELT_SEC ) .EQ. 0 ) THEN N_EBI_STEPS = ITMSTEP / DELT_SEC ELSE N_EBI_STEPS = ITMSTEP / DELT_SEC + 1 END IF EBI_TMSTEP = CHEMSTEP / REAL( N_EBI_STEPS, 8 ) END IF N_INR_STEPS = 1 C.. Get fractional seaice coverage from the METCRO2D file. CALL INTERPOLATE_VAR ('SEAICE', MIDDATE, MIDTIME, SEAICE) C.. Get ambient temperature in K CALL INTERPOLATE_VAR ('TA', MIDDATE, MIDTIME, TA) C.. Get specific humidity in Kg H2O / Kg air CALL INTERPOLATE_VAR ('QV', MIDDATE, MIDTIME, QV) ! Get ambient MASS DENSITY in Kg/m^3 CALL INTERPOLATE_VAR ('DENS', MIDDATE, MIDTIME, DENS) C.. Get pressure in Pascals CALL INTERPOLATE_VAR ('PRES', MIDDATE, MIDTIME, PRES) C.. Get Heteorogeneous rates and Update Aerosol Distribution Properties CALL HETCHEM_RATES( TA, PRES, QV, CGRID, DENS ) #ifdef sens DATENUM = 1 + JDATE - STARTDATE ! Set the date and hour counters used in sensitivity calls C For reaction rate sensitivities DO NP = 1, NPMAX IF ( IPT( NP ) .EQ. 5 ) THEN CALL CKTIME( JDATE,JTIME,NP,RXNFLAG(NP) ) ! Rxnflag set to true iff ipt=5 and time, date within bounds IF ( IDATE( NP, DATENUM ) .NE. 1 ) RXNFLAG( NP ) = .FALSE. ELSE RXNFLAG( NP ) = .FALSE. END IF END DO #endif sens ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Top of loop over cells ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc #ifdef hrstats MNEBI = 1000 MXEBI = 0 SUMEBI = 0.0 #endif NCELL = 1 DO L = 1, NLAYS DO R = 1, NROWS DO C = 1, NCOLS DEG_LAY = L DEG_ROW = R DEG_COL = C c..reset CALL_IRR based on cell's values CALL_IRR = LFLAGIRR( C,R,L ) c..Load ICs INV_DENS = 1.0 / DENS( C,R,L ) DO SPC = 1, NUMB_MECH_SPC S = CGRID_INDEX( SPC ) IF( CONVERT_CONC( SPC ) )THEN YC( SPC ) = REAL( MAX( CONCMIN, & INV_DENS*FORWARD_CONV( SPC )*CGRID( C,R,L,S )), 8 ) ELSE YC( SPC ) = REAL( MAX( CGRID( C,R,L,S ), CONCMIN), 8 ) END IF END DO IF(CALL_DEG)THEN ! INITIALIZE degradation routines YCCELL = 0.0D0 DO S = 1, MODEL_SPECIES YCCELL( S ) = REAL( CGRID(C,R,L,S), 8) END DO CALL INIT_DEGRADE(YCCELL,TA(C,R,L),DENS(C,R,L),PRES(C,R,L),QV(C,R,L),RJIN(NCELL,:), & JDATE, JTIME) #ifdef isam CALL SA_DEGRADE_EXTRACT( C,R,L,DENS(C,R,L) ) #endif END IF c..Set physical quantities TEMP( NCELL ) = REAL( TA( C,R,L ), 8) DENSITY( NCELL ) = REAL( DENS( C,R,L ), 8) ! PRESCELL( NCELL ) = REAL( PRES( C,R,L ), 8) ATMPRES( NCELL ) = PA2ATM * REAL( PRES( C,R,L ), 8) H2O( NCELL ) = REAL( MAX ( MAOMV * QV( C,R,L ), 0.0 ), 8) SEAWATER (NCELL) = MAX ( 0.0D0, ( REAL( SEAWATER_ZONE( C,R ) - SEAICE (C,R) ,8) ) ) c..Get rate constants LSUNLIGHT = .FALSE. FORALL( NPH = 1:NPHOTAB ) RJIN( NCELL,NPH ) = REAL( RJ( C,R,L,NPH ), 8) IF( MAXVAL(RJIN) .GT. 0.0D0 ) LSUNLIGHT = .TRUE. FORALL ( NPH = 1:NHETERO )HET( NCELL,NPH ) = REAL( KHETERO( NPH,C,R,L ), 8) CALL CALC_RCONST( TEMP, ATMPRES, H2O, RJIN, HET, LSUNLIGHT, SEAWATER, RKI_SAV, NCELL ) FORALL( NPH = 1:NRXNS )RKI( NPH ) = RKI_SAV( NCELL, NPH ) #ifdef isam #if defined(isam) || defined(verbose_isam) C...For diagnosing IRR calculations in log files IF( CHECK_ISAM )THEN WRITE_CELL = .FALSE. IF( C .EQ. MAX(1, NCOLS/2) .AND. R .EQ. MAX(1,NROWS/2) .AND. L .EQ. 1 )THEN WRITE_CELL = .TRUE. WRITE(LOGDEV,*)'WRITE_CELL = .TRUE.' ELSE WRITE_CELL = .FALSE. END IF END IF #endif CALL SA_IRR_EXTRACT( C, R, L, DENS( C,R,L ),YC ) #endif c..Call EBI solver N_EBI_IT = 0 CALL HRSOLVER( JDATE, JTIME, C, R, L ) #ifdef hrstats MXEBI = MAX( MXEBI, N_EBI_IT ) MNEBI = MIN( MNEBI, N_EBI_IT ) SUMEBI = SUMEBI + REAL( N_EBI_IT ) #endif c..Update concentration array DO SPC = 1, NUMB_MECH_SPC S = CGRID_INDEX( SPC ) IF( CONVERT_CONC( SPC ) )THEN CGRID( C,R,L,S ) = REAL( REVERSE_CONV( SPC ) * DENS( C,R,L ) & * MAX( YC( SPC ), DCONMIN), 4) ELSE CGRID( C,R,L,S ) = REAL( MAX( YC( SPC ), DCONMIN), 4) END IF END DO IF(CALL_DEG)THEN ! WTH: update based on degrade routines CALL FINAL_DEGRADE(YCCELL) UPDATE_DEGRADED: DO SPC = 1, N_REACT ISP = RXTANT_MAP( SPC ) IF( ISP .LE. 0 )CYCLE UPDATE_DEGRADED DO S = 1, NUMB_MECH_SPC IF( CGRID_INDEX( S ) .EQ. ISP )CYCLE UPDATE_DEGRADED END DO CGRID(C,R,L,ISP) = REAL( YCCELL(ISP), 4) END DO UPDATE_DEGRADED #ifdef isam CALL SA_DEGRADE_UPLOAD( C,R,L,DENS(C,R,L) ) #endif END IF #ifdef isam CALL SA_IRR_UPLOAD( C, R, L, DENS( C,R,L ), YC ) #endif c..update irrout arrays if needed IF ( LFLAGIRR( C,R,L ) )CALL PA_IRR_CELLENDF( C, R, L ) #ifdef sens DO RXN = 1, NRXNS SRK( RXN ) = RKI( RXN ) IF ( HIGH ) THEN IF ( ORDER1 (RXN ) ) THEN SRK2( RXN ) = 0.0 ELSE SRK2( RXN ) = RKI( RXN ) END IF END IF END DO CALL SOLVE_DDM3D_CHEM( C,R,L,CHEMSTEP ) #endif END DO END DO END DO ! Update Aerosol Surface Area CALL HETCHEM_UPDATE_AERO( CGRID ) #ifdef hrstats AVGEBI = SUMEBI / REAL( NCOLS * NROWS * NLAYS ) WRITE( ISTFL, 94040 ) JDATE, JTIME, MNEBI, AVGEBI, MXEBI #endif RETURN C*********************** FORMAT STATEMENTS **************************** 92000 FORMAT( / 10X, 'Euler Backward Iterative Parameters -' & / 10X, 'Chemistry Integration Time Interval (min):', F12.4, & / 10X, 'EBI maximum time step (min): ', F12.4 ) 92020 FORMAT( //10X, 'Species convergence tolerances:' ) 92040 FORMAT( 10X, A16, 2X, 1PE12.2 ) 92060 FORMAT( / 10X, 'Emissions Processing in Chemistry ...' & / 10X, 'Number of Emissions Layers: ', I3 & / 10X, 'out of total Number of Model Layers:', I3 ) 94020 FORMAT( 'DATE TIME ', 'MNEBI AVEBI MXEBI' ) 94040 FORMAT( I7, 1X, I6, 1X, 3( I5, 1X ) ) END ================================================ FILE: CCTM/src/gas/ebi_cb6r3_ae7_aq/hrg1.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE HRG1( DTC ) C********************************************************************** C C FUNCTION: To solve for the concentration of NO2, NO, O3, and O3P C algebraically. C C PRECONDITIONS: For the CB6R3_AE7_AQ mechanism C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by EBI solver program, Jun 8, 2022 C C 18 Jul 14 B.Hutzell: revised to use real(8) variables C 01 Jun 18 B.Hutzell: replaced steady solution for O1D with backward Euler C approximation. To match conditions where the initial C concentration cannot be neglected. C********************************************************************** USE HRDATA IMPLICIT NONE C..INCLUDES: None C..ARGUMENTS: REAL( 8 ), INTENT( IN ) :: DTC ! Time step C..PARAMETERS: None C..EXTERNAL FUNCTIONS: NONE C..SAVED LOCAL VARIABLES: ! CHARACTER( 16 ), SAVE :: PNAME = 'HRG1' ! Prgram Name C..SCRATCH LOCAL VARIABLES: REAL( 8 ) :: O1D_S ! sum of O1D loss frequencies REAL( 8 ) :: O3P_S ! stoich coeff for O3P from O1D REAL( 8 ) :: R1_2 ! production term for NO from NO2 REAL( 8 ) :: R2_1 ! production term for NO2 from NO REAL( 8 ) :: P1, P2, P3, P12 ! production terms for NO, NO2, O3, & O3P REAL( 8 ) :: L1, L2, L3, L12 ! loss terms for NO, NO2, O3, O3P REAL( 8 ) :: L1_INV, L2_INV, & L3_INV, L12_INV ! inverse of loss terms REAL( 8 ) :: T1, T2, T3, T4, T5 ! intermerdiate terms REAL( 8 ) :: F1, F2, F3 ! intermerdiate terms REAL( 8 ) :: A, B, C ! coefficients for quadratic equation REAL( 8 ) :: Q, XX, S1, S2 ! intermerdiate terms REAL( 8 ) :: RK1, RK2, RK3 ! rate constants REAL( 8 ) :: PO3 ! temp variable for O3 C********************************************************************** cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c O1D Section c 1) sum of the rate constants for all O1D loss reactions c 2) get fractional yield of O3P from O1D loss cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc O1D_S = RKI( 10 ) ! O1D=O & + RKI( 11 ) ! O1D=0.2000D+01*OH O3P_S = RKI( 10 ) ! O1D=O O3P_S = O3P_S / O1D_S cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c NO Section c R1_2 = production of NO from NO2 ( rates of form k[NO2][x] ) c except NO2+NO3=NO+NO2 (it is treated as if it were NO3=NO ) c P1 = remaining NO production terms c L1 = loss of NO (except rxns producing NO2 - they are in R2_1) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc R1_2 = RKI( 1 ) ! NO2=NO+O & + RKI( 5 ) * YC ( O ) ! NO2+O=NO R1_2 = R1_2 * DTC P1 = RXRAT( 28 ) ! NO3=NO & + RXRAT( 30 ) ! NO2+NO3=NO+NO2 & + RXRAT( 42 ) ! HONO+HONO=NO+NO2 & + RXRAT( 43 ) ! HONO=NO+OH P1 = YC0( NO ) + P1 * DTC L1 = RKI( 40 ) * YC ( OH ) ! NO+OH=HONO & + RKI( 41 ) * YC ( NO2 ) ! NO+NO2=0.2000D+... & + RKI( 83 ) * YC ( XO2N ) ! NO+XO2N=0.5000D+... & + 1.0000D-01 * RKI( 151 ) * YC ( ISO2 ) ! NO+ISO2=0.1000D+... & + 8.2000D-02 * RKI( 180 ) * YC ( BZO2 ) ! NO+BZO2=0.9180D+... & + 1.4000D-01 * RKI( 185 ) * YC ( TO2 ) ! NO+TO2=0.8600D+... & + 1.4000D-01 * RKI( 191 ) * YC ( XLO2 ) ! NO+XLO2=0.8600D+... L1 = 1.0D0 + L1 * DTC cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c NO2 Section c R2_1 = production of NO2 from NO ( rates of form k[NO][x] ) c a) NO+O3=NO2 not included c b) NO+NO3=2NO2 ( 1/2 of NO2 formation rate included ) c c) NO3+NO2=NO+NO2 is not included for NO2 c P2 = remaining NO2 production terms c a) NO+O3=NO2 not included c b) NO+NO3=2NO2 (1/2 of NO2 formation rate included ) c L2 = loss of NO2 (except rxns producing NO2 - they are in R1_2) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc R2_1 = RKI( 4 ) * YC ( O ) ! NO+O=NO2 & + 2.0000D+00 * RKI( 24 ) * YC ( NO ) ! NO+NO=0.2000D+01*NO2 & + RKI( 25 ) * YC ( HO2 ) ! NO+HO2=NO2+OH & + RKI( 29 ) * YC ( NO3 ) ! NO+NO3=0.2000D+... & + RKI( 53 ) * YC ( C2O3 ) ! NO+C2O3=NO2+MEO2+RO2 & + RKI( 61 ) * YC ( CXO3 ) ! NO+CXO3=NO2+ALD2+... & + RKI( 71 ) * YC ( MEO2 ) ! NO+MEO2=NO2+HO2+FORM & + RKI( 75 ) * YC ( XO2H ) ! NO+XO2H=NO2+HO2 & + RKI( 79 ) * YC ( XO2 ) ! NO+XO2=NO2 & + RKI( 103 ) * YC ( HCO3 ) ! NO+HCO3=NO2+FACD+HO2 & + 9.0000D-01 * RKI( 151 ) * YC ( ISO2 ) ! NO+ISO2=0.9000D+... & + RKI( 167 ) * YC ( EPX2 ) ! NO+EPX2=NO2+... & + 9.1800D-01 * RKI( 180 ) * YC ( BZO2 ) ! NO+BZO2=0.9180D+... & + 8.6000D-01 * RKI( 185 ) * YC ( TO2 ) ! NO+TO2=0.8600D+... & + 8.6000D-01 * RKI( 191 ) * YC ( XLO2 ) ! NO+XLO2=0.8600D+... & + RKI( 212 ) * YC ( OPO3 ) ! NO+OPO3=NO2+... & + RKI( 229 ) * YC ( CLO ) ! NO+CLO=NO2+CL R2_1 = R2_1 * DTC P2 = RXRAT( 27 ) ! NO3=NO2+O & + RXRAT( 29 ) ! NO+NO3=0.2000D+01*NO2 & + RXRAT( 31 ) ! NO3+O=NO2 & + RXRAT( 32 ) ! NO3+OH=NO2+HO2 & + RXRAT( 33 ) ! NO3+HO2=NO2+OH & + RXRAT( 34 ) ! NO3+O3=NO2 & + 2.0000D+00 * RXRAT( 35 ) ! NO3+NO3=0.2000D+01*NO2 & + RXRAT( 37 ) ! N2O5=NO2+NO3 & + RXRAT( 38 ) ! N2O5=NO2+NO3 & + RXRAT( 42 ) ! HONO+HONO=NO2+NO & + RXRAT( 44 ) ! HONO+OH=NO2 & + RXRAT( 47 ) ! HNO3=NO2+OH & + RXRAT( 49 ) ! PNA=NO2+HO2 & + 5.9000D-01 * RXRAT( 50 ) ! PNA=0.5900D+00*NO2+... & + RXRAT( 51 ) ! PNA+OH=NO2 & + RXRAT( 55 ) ! PAN=NO2+C2O3 & + 6.0000D-01 * RXRAT( 56 ) ! PAN=0.6000D+00*NO2+... & + RXRAT( 63 ) ! PANX=NO2+CXO3 & + 6.0000D-01 * RXRAT( 64 ) ! PANX=0.6000D+00*NO2+... & + RXRAT( 92 ) ! NTR1=NO2 & + 5.0000D-01 * RXRAT( 140 ) ! ETH+NO3=0.5000D+... & + 5.0000D-01 * RXRAT( 144 ) ! OLE+NO3=0.5000D+... & + 5.0000D-01 * RXRAT( 148 ) ! IOLE+NO3=0.5000D+... & + 3.5000D-01 * RXRAT( 157 ) ! ISOP+NO3=0.3500D+... & + 1.4200D-01 * RXRAT( 160 ) ! ISPD+NO3=0.1420D+... & + 4.4400D-01 * RXRAT( 170 ) ! INTR+OH=0.4440D+... & + 4.7000D-01 * RXRAT( 174 ) ! TERP+NO3=0.4700D+... & + 4.7000D-01 * RXRAT( 178 ) ! APIN+NO3=0.4700D+... & + 5.0000D-01 * RXRAT( 205 ) ! XOPN+NO3=0.5000D+... & + RXRAT( 214 ) ! OPAN=NO2+OPO3 & + 5.0000D-01 * RXRAT( 218 ) ! OPAN+OH=0.5000D+... & + RXRAT( 219 ) ! PANX+OH=NO2+ALD2 & + RXRAT( 251 ) ! CLNO2=NO2+CL & + RXRAT( 253 ) ! CLNO3=NO2+CLO P2 = YC0( NO2 ) + P2 * DTC L2 = RKI( 6 ) * YC ( O ) ! NO2+O=NO3 & + RKI( 26 ) * YC ( O3 ) ! NO2+O3=NO3 & + RKI( 36 ) * YC ( NO3 ) ! NO2+NO3=N2O5 & + RKI( 41 ) * YC ( NO ) ! NO2+NO=0.2000D+... & + RKI( 45 ) * YC ( OH ) ! NO2+OH=HNO3 & + RKI( 48 ) * YC ( HO2 ) ! NO2+HO2=PNA & + RKI( 54 ) * YC ( C2O3 ) ! NO2+C2O3=PAN & + RKI( 62 ) * YC ( CXO3 ) ! NO2+CXO3=PANX & + RKI( 135 ) * YC ( ROR ) ! NO2+ROR=NTR1 & + RKI( 197 ) * YC ( CRO ) ! NO2+CRO=CRON & + RKI( 213 ) * YC ( OPO3 ) ! NO2+OPO3=OPAN & + RKI( 252 ) * YC ( CLO ) ! NO2+CLO=CLNO3 & + RKI( 276 ) ! NO2=0.5000D+... L2 = 1.0D0 + L2 * DTC cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c O3 Section c P3 = production of O3 except O+O2=O3 c L3 = loss terms for O3 except NO+O3=NO2 cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc P3 = 1.5000D-01 * RXRAT( 57 ) ! C2O3+HO2=0.1500D+... & + 1.5000D-01 * RXRAT( 65 ) ! CXO3+HO2=0.1500D+... & + 1.5000D-01 * RXRAT( 215 ) ! OPO3+HO2=0.1500D+... P3 = YC0( O3 ) + P3 * DTC L3 = RKI( 7 ) * YC ( O ) ! O3+O= & + RKI( 8 ) ! O3=O & + RKI( 9 ) ! O3=O1D & + RKI( 12 ) * YC ( OH ) ! O3+OH=HO2 & + RKI( 13 ) * YC ( HO2 ) ! O3+HO2=OH & + RKI( 26 ) * YC ( NO2 ) ! O3+NO2=NO3 & + RKI( 34 ) * YC ( NO3 ) ! O3+NO3=NO2 & + RKI( 139 ) * YC ( ETH ) ! O3+ETH=FORM+... & + RKI( 143 ) * YC ( OLE ) ! O3+OLE=0.2950D+... & + RKI( 147 ) * YC ( IOLE ) ! O3+IOLE=0.7320D+... & + RKI( 156 ) * YC ( ISOP ) ! O3+ISOP=0.6000D+... & + RKI( 159 ) * YC ( ISPD ) ! O3+ISPD=0.4000D-... & + RKI( 173 ) * YC ( TERP ) ! O3+TERP=0.5700D+... & + RKI( 177 ) * YC ( APIN ) ! O3+APIN=0.5700D+... & + RKI( 204 ) * YC ( XOPN ) ! O3+XOPN=0.1200D+... & + RKI( 208 ) * YC ( OPEN ) ! O3+OPEN=0.1400D+... & + RKI( 227 ) * YC ( CL ) ! O3+CL=CLO & + RKI( 277 ) ! O3= L3 = 1.0D0 + L3 * DTC cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c O3P Section c P12 = production of O3P except NO2+hv=O3P (J1) c L12 = loss terms cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc P12 = RXRAT( 8 ) ! O3=O & + O3P_S * RXRAT( 9 ) ! O3=O1D & + RXRAT( 16 ) ! OH+OH=O & + RXRAT( 27 ) ! NO3=O+NO2 P12 = YC0( O ) + P12 * DTC L12 = RKI( 2 ) ! O=O3 & + RKI( 4 ) * YC ( NO ) ! O+NO=NO2 & + RKI( 5 ) * YC ( NO2 ) ! O+NO2=NO & + RKI( 6 ) * YC ( NO2 ) ! O+NO2=NO3 & + RKI( 7 ) * YC ( O3 ) ! O+O3= & + RKI( 14 ) * YC ( OH ) ! O+OH=HO2 & + RKI( 15 ) * YC ( HO2 ) ! O+HO2=OH & + RKI( 23 ) * YC ( H2O2 ) ! O+H2O2=OH+HO2 & + RKI( 31 ) * YC ( NO3 ) ! O+NO3=NO2 & + RKI( 99 ) * YC ( FORM ) ! O+FORM=OH+HO2+CO & + RKI( 105 ) * YC ( ALD2 ) ! O+ALD2=C2O3+OH & + RKI( 109 ) * YC ( ALDX ) ! O+ALDX=CXO3+OH & + RKI( 137 ) * YC ( ETH ) ! O+ETH=FORM+HO2+CO+... & + RKI( 141 ) * YC ( OLE ) ! O+OLE=0.2000D+00*ALD2+... & + RKI( 145 ) * YC ( IOLE ) ! O+IOLE=0.1240D+... & + RKI( 150 ) * YC ( ISOP ) ! O+ISOP=0.7500D+... & + RKI( 171 ) * YC ( TERP ) ! O+TERP=0.1500D+... & + RKI( 175 ) * YC ( APIN ) ! O+APIN=0.1500D+... L12 = 1.0D0 + L12 * DTC ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Solution section ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c..compute reciprocal of loss terms L1_INV = 1.0D0 / L1 L2_INV = 1.0D0 / L2 L3_INV = 1.0D0 / L3 L12_INV = 1.0D0 / L12 c..compute specific k*delta t terms RK1 = RKI( 1 ) * DTC ! J1 (NO2+hv=NO+O3P) RK2 = RKI( 2 ) * DTC ! J2 (O3P+O2=O3) RK3 = RKI( 3 ) * DTC ! k1_3 (NO+O3=NO2) c..compute terms that are used to calulate a,b & c T1 = RK1 * L2_INV ! J1 / ( 1.0 + Lno2 * dt ) T2 = R1_2 * L2_INV ! r1,2 / ( 1.0 + Lno2 * dt) T3 = R2_1 * L1_INV ! r2,1 / ( 1.0 + Lno * dt) T4 = RK2 * L12_INV ! J2 / ( 1.0 + Lo3p * dt ) T5 = T3 * P1 - T2 * P2 ! T3 * Pno - T2 * Pno2 F1 = 1.0D0 + T2 + T3 ! factor in calculating a & b F2 = T1 * T4 ! factor in calculating a & b F3 = L3 * L1 + RK3 * P1 ! (1 + Lo3 * dt) (1 + lno * dt ) ! + k1,3 * dt * Pno PO3 = P3 + P12 * T4 A = RK3 * ( F1 - F2 ) B = F1 * F3 + RK3 * ( F2 * ( P2 - P1 ) + PO3 + T5 ) C = RK3 * P1 * ( PO3 + P2 * F2 ) + F3 * T5 Q = -0.5D0 * ( B + SIGN( 1.0D0, B ) * SQRT( B * B - 4.0D0 * A * C ) ) XX = MAX( Q / A , C / Q ) ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Species solutions c [NO] = ( P1 + x ) / ( 1 + L1 ) c [NO2] = ( P2 - x ) / ( 1 + L2 ) c [O3 ] = ( P3 + Ko3p->O3 ) / (1 + K1,3 * [NO] + L3 ) c [O3P] = ( P12 + J1 * [NO2] ) / ( 1 + L12 ) c [O1D] = ( yc0(o1d) + Ko3->o1d * [O3] *dtc) / ( 1 + O1D_S*dtc ) ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc YCP( NO ) = MAX( 0.0D0, ( P1 + XX ) * L1_INV ) YCP( NO2 ) = MAX( 0.0D0, ( P2 - XX ) * L2_INV ) S1 = P12 + RK1 * YCP( NO2 ) S2 = T4 * S1 YCP( O3 ) = ( P3 + S2 ) / ( L3 + RK3 * YCP( NO ) ) YCP( O ) = S1 * L12_INV YCP( O1D ) = ( YC0( O1D ) + RKI( 9 ) * YCP( O3 ) * DTC ) & / ( 1.0D0 + O1D_S * DTC ) RETURN END ================================================ FILE: CCTM/src/gas/ebi_cb6r3_ae7_aq/hrg2.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE HRG2( DTC ) C********************************************************************** C C FUNCTION: To solve for the concentration of HO, HO2, HONO, and C HNO4 alebraically. C C PRECONDITIONS: For the CB6R3_AE7_AQ mechanism C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by EBI solver program, Jun 8, 2022 C C 18 Jul 14 B.Hutzell: revised to use real(8) variables C********************************************************************** USE HRDATA IMPLICIT NONE C..INCLUDES: None C..ARGUMENTS: REAL( 8 ), INTENT( IN ) :: DTC ! Time step C..PARAMETERS: None C..EXTERNAL FUNCTIONS: NONE C..SAVED LOCAL VARIABLES: ! CHARACTER( 16 ), SAVE :: PNAME = 'HRG2' ! Program name C..SCRATCH LOCAL VARIABLES: REAL( 8 ) :: O1D_S ! sum of O1D loss frequencies REAL( 8 ) :: OH_S ! stoich coeff for OH from O1D+H2O or H2 REAL( 8 ) :: HO2_S ! stoich coeff for HO2 from O1D+H2 rxn REAL( 8 ) :: XOH_S ! stoich coeff for OH & HONO from NO2EX loss rxn REAL( 8 ) :: R4_19 ! production of OH from HONO REAL( 8 ) :: R19_4 ! production of HONO from OH REAL( 8 ) :: R4_5 ! production of OH from HO2 REAL( 8 ) :: R5_4 ! production of HO2 from OH REAL( 8 ) :: R5_21 ! production of HO2 from HNO4 REAL( 8 ) :: R21_5 ! production of HNO4 from HO2 REAL( 8 ) :: P4, P5, P19, P21 ! species production form other paths REAL( 8 ) :: L4, L5, L19, L21 ! species loss terms REAL( 8 ) :: A, B, C ! coeffs of quadratic eq. for HO2 REAL( 8 ) :: Q ! intermediate term REAL( 8 ) :: T1, T2, T3 ! intermediate terms REAL( 8 ) :: L21_INV ! reciprocal of HNO4 loss term C********************************************************************** c..stoichiometric coefficient for production of HOX from O3 via O1D O1D_S = RKI( 10 ) ! O1D=O & + RKI( 11 ) ! O1D=0.2000D+01*OH OH_S = 2.0000D+00 * RKI( 11 ) ! O1D=0.2000D+01*OH OH_S = OH_S / O1D_S c..Production of HO from HO2 (r4,5 terms ) R4_5 = RKI( 13 ) * YC ( O3 ) ! HO2+O3=OH & + RKI( 15 ) * YC ( O ) ! HO2+O=OH & + RKI( 25 ) * YC ( NO ) ! HO2+NO=OH+NO2 & + RKI( 33 ) * YC ( NO3 ) ! HO2+NO3=OH+NO2 & + 4.4000D-01 * RKI( 57 ) * YC ( C2O3 ) ! HO2+C2O3=0.4400D+... & + 4.4000D-01 * RKI( 65 ) * YC ( CXO3 ) ! HO2+CXO3=0.4400D+... & + 2.0000D-01 * RKI( 104 ) * YC ( HCO3 ) ! HO2+HCO3=0.2000D+... & + 1.2000D-01 * RKI( 152 ) * YC ( ISO2 ) ! HO2+ISO2=0.1200D+... & + 1.7500D-01 * RKI( 166 ) * YC ( EPX2 ) ! HO2+EPX2=0.1125D+... & + 4.4000D-01 * RKI( 215 ) * YC ( OPO3 ) ! HO2+OPO3=0.4400D+... R4_5 = R4_5 * DTC c..Production of HO from HONO (r4,19 terms ) R4_19 = RKI( 43 ) ! HONO=OH+NO R4_19 = R4_19 * DTC c..Remaining HO production P4 = OH_S * RXRAT( 9 ) ! O1D=0.2000D+01*OH & + 2.0000D+00 * RXRAT( 21 ) ! H2O2=0.2000D+01*OH & + RXRAT( 23 ) ! H2O2+O=OH+HO2 & + RXRAT( 47 ) ! HNO3=OH+NO2 & + 4.1000D-01 * RXRAT( 50 ) ! PNA=0.4100D+00*OH+0.5900D+... & + RXRAT( 88 ) ! MEPX=OH+RO2+MEO2 & + RXRAT( 90 ) ! ROOH=OH+HO2 & + RXRAT( 99 ) ! FORM+O=OH+HO2+CO & + RXRAT( 105 ) ! ALD2+O=OH+C2O3 & + RXRAT( 109 ) ! ALDX+O=OH+CXO3 & + 1.9000D-01 * RXRAT( 114 ) ! GLYD=0.1900D+00*OH+0.1400D+... & + 3.0000D-01 * RXRAT( 137 ) ! ETH+O=0.3000D+00*OH+HO2+CO+... & + 1.6000D-01 * RXRAT( 139 ) ! ETH+O3=0.1600D+00*OH+... & + 1.0000D-01 * RXRAT( 141 ) ! OLE+O=0.1000D+00*OH+... & + 3.3400D-01 * RXRAT( 143 ) ! OLE+O3=0.3340D+00*OH+... & + 5.0000D-01 * RXRAT( 147 ) ! IOLE+O3=0.5000D+00*OH+... & + 2.6600D-01 * RXRAT( 156 ) ! ISOP+O3=0.2660D+00*OH+... & + 4.6100D-01 * RXRAT( 159 ) ! ISPD+O3=0.4610D+00*OH+... & + RXRAT( 163 ) ! HPLD=OH+ISPD & + 9.5000D-01 * RXRAT( 166 ) ! HO2+EPX2=0.1125D+01*OH+... & + 1.2500D-01 * RXRAT( 167 ) ! EPX2+NO=0.1250D+00*OH+... & + 1.0000D-01 * RXRAT( 168 ) ! EPX2+C2O3=0.1000D+00*OH+... & + 1.2500D-01 * RXRAT( 169 ) ! EPX2+RO2=0.1250D+00*OH+... & + 5.7000D-01 * RXRAT( 173 ) ! TERP+O3=0.5700D+00*OH+... & + 5.7000D-01 * RXRAT( 177 ) ! APIN+O3=0.5700D+00*OH+... & + 5.0000D-01 * RXRAT( 204 ) ! XOPN+O3=0.5000D+00*OH+... & + 5.0000D-01 * RXRAT( 208 ) ! OPEN+O3=0.5000D+00*OH+... & + RXRAT( 226 ) ! HOCL=OH+CL & + 1.0000D-01 * RXRAT( 248 ) ! CL+TOL=0.1000D+00*OH+... & + 2.4400D-01 * RXRAT( 249 ) ! CL+XYLMN=0.2440D+00*OH+... & + 2.4400D-01 * RXRAT( 250 ) ! CL+NAPH=0.2440D+00*OH+... P4 = YC0( OH ) + P4 * DTC c..Production of HO2 from OH ( r5,4 terms ) R5_4 = RKI( 12 ) * YC ( O3 ) ! OH+O3=HO2 & + RKI( 14 ) * YC ( O ) ! OH+O=HO2 & + RKI( 22 ) * YC ( H2O2 ) ! OH+H2O2=HO2 & + RKI( 32 ) * YC ( NO3 ) ! OH+NO3=HO2+NO2 & + RKI( 52 ) * YC ( SO2 ) ! OH+SO2=HO2+SULF+... & + RKI( 93 ) * YC ( FACD ) ! OH+FACD=HO2 & + RKI( 96 ) * YC ( FORM ) ! OH+FORM=HO2+CO & + 2.0000D-01 * RKI( 113 ) * YC ( GLYD ) ! OH+GLYD=0.2000D+... & + RKI( 116 ) * YC ( GLY ) ! OH+GLY=HO2+... & + RKI( 122 ) ! OH=HO2 & + RKI( 123 ) * YC ( CO ) ! OH+CO=HO2 & + RKI( 126 ) * YC ( MEOH ) ! OH+MEOH=HO2+FORM & + 9.0000D-01 * RKI( 127 ) * YC ( ETOH ) ! OH+ETOH=0.9000D+... & + 3.0000D-01 * RKI( 136 ) * YC ( ETHY ) ! OH+ETHY=0.3000D+... & + 1.3700D-01 * RKI( 158 ) * YC ( ISPD ) ! OH+ISPD=0.1370D+... & + 5.3000D-01 * RKI( 179 ) * YC ( BENZENE ) ! OH+BENZENE=... & + 1.8000D-01 * RKI( 184 ) * YC ( TOL ) ! OH+TOL=0.1800D+... & + 1.5500D-01 * RKI( 189 ) * YC ( XYLMN ) ! OH+XYLMN=0.1550D+... & + 1.5500D-01 * RKI( 190 ) * YC ( NAPH ) ! OH+NAPH=0.1550D+... & + RKI( 195 ) * YC ( CRES ) ! OH+CRES=HO2+... & + 2.0000D-01 * RKI( 210 ) * YC ( CAT1 ) ! OH+CAT1=0.2000D+... R5_4 = R5_4 * DTC c..Production of HO2 from HNO4 (r5,21 term ) R5_21 = RKI( 49 ) ! PNA=HO2+NO2 & + 5.9000D-01 * RKI( 50 ) ! PNA=0.5900D+... R5_21 = R5_21 * DTC c..Remaining HO2 production terms P5 = RXRAT( 23 ) ! H2O2+O=HO2+OH & + RXRAT( 71 ) ! MEO2+NO=HO2+FORM+NO2 & + 9.0000D-01 * RXRAT( 73 ) ! MEO2+C2O3=0.9000D+00*HO2+... & + 3.7000D-01 * RXRAT( 74 ) ! MEO2+RO2=0.3700D+00*HO2+... & + RXRAT( 75 ) ! XO2H+NO=HO2+NO2 & + 8.0000D-01 * RXRAT( 77 ) ! XO2H+C2O3=0.8000D+00*HO2+... & + 6.0000D-01 * RXRAT( 78 ) ! XO2H+RO2=0.6000D+00*HO2+RO2 & + 8.0000D-01 * RXRAT( 85 ) ! XO2N+C2O3=0.8000D+00*HO2+... & + RXRAT( 90 ) ! ROOH=HO2+OH & + 2.0000D+00 * RXRAT( 97 ) ! FORM=0.2000D+01*HO2+CO & + RXRAT( 99 ) ! FORM+O=HO2+OH+CO & + RXRAT( 100 ) ! FORM+NO3=HO2+HNO3+CO & + RXRAT( 102 ) ! HCO3=HO2+FORM & + RXRAT( 103 ) ! HCO3+NO=HO2+NO2+FACD & + RXRAT( 108 ) ! ALD2=HO2+RO2+CO+MEO2 & + RXRAT( 112 ) ! ALDX=HO2+XO2H+RO2+CO+ALD2 & + 1.4000D+00 * RXRAT( 114 ) ! GLYD=0.1400D+01*HO2+... & + 2.0000D+00 * RXRAT( 117 ) ! GLY=0.2000D+01*HO2+0.2000D+... & + RXRAT( 118 ) ! GLY+NO3=HO2+0.1500D+01*CO+... & + RXRAT( 119 ) ! MGLY=HO2+C2O3+CO & + RXRAT( 134 ) ! ROR=HO2+KET & + RXRAT( 137 ) ! ETH+O=HO2+0.3000D+00*OH+CO+... & + 1.6000D-01 * RXRAT( 139 ) ! ETH+O3=0.1600D+00*HO2+... & + 1.0000D-01 * RXRAT( 141 ) ! OLE+O=0.1000D+00*HO2+... & + 8.0000D-02 * RXRAT( 143 ) ! OLE+O3=0.8000D-01*HO2+... & + 2.5000D-01 * RXRAT( 150 ) ! ISOP+O=0.2500D+00*HO2+... & + 8.1800D-01 * RXRAT( 151 ) ! ISO2+NO=0.8180D+00*HO2+... & + 7.2800D-01 * RXRAT( 153 ) ! ISO2+C2O3=0.7280D+00*HO2+... & + 7.2800D-01 * RXRAT( 154 ) ! ISO2+RO2=0.7280D+00*HO2+... & + RXRAT( 155 ) ! ISO2=HO2+HPLD & + 6.6000D-02 * RXRAT( 156 ) ! ISOP+O3=0.6600D-01*HO2+... & + 3.9800D-01 * RXRAT( 159 ) ! ISPD+O3=0.3980D+00*HO2+... & + 7.6000D-01 * RXRAT( 161 ) ! ISPD=0.7600D+00*HO2+... & + 8.2500D-01 * RXRAT( 167 ) ! EPX2+NO=0.8250D+00*HO2+... & + 6.6000D-01 * RXRAT( 168 ) ! EPX2+C2O3=0.6600D+00*HO2+... & + 8.2500D-01 * RXRAT( 169 ) ! EPX2+RO2=0.8250D+00*HO2+... & + 9.1800D-01 * RXRAT( 180 ) ! BZO2+NO=0.9180D+00*HO2+... & + RXRAT( 181 ) ! BZO2+C2O3=HO2+OPEN+GLY+... & + RXRAT( 183 ) ! BZO2+RO2=HO2+OPEN+GLY+RO2 & + 8.6000D-01 * RXRAT( 185 ) ! TO2+NO=0.8600D+00*HO2+... & + RXRAT( 186 ) ! TO2+C2O3=HO2+0.5200D+... & + RXRAT( 188 ) ! TO2+RO2=HO2+0.5200D+... & + 8.6000D-01 * RXRAT( 191 ) ! XLO2+NO=0.8600D+00*HO2+... & + RXRAT( 193 ) ! XLO2+C2O3=HO2+0.7700D+... & + RXRAT( 194 ) ! XLO2+RO2=HO2+0.7700D+... & + RXRAT( 201 ) ! CRON=HO2+HONO+FORM+OPEN & + 7.0000D-01 * RXRAT( 202 ) ! XOPN=0.7000D+00*HO2+XO2H+... & + RXRAT( 206 ) ! OPEN=HO2+OPO3+CO & + 5.6000D-01 * RXRAT( 208 ) ! OPEN+O3=0.5600D+00*HO2+... & + 8.0000D-01 * RXRAT( 212 ) ! OPO3+NO=0.8000D+00*HO2+... & + RXRAT( 231 ) ! CLO+MEO2=HO2+FORM+CL & + RXRAT( 233 ) ! FMCL=HO2+CO+CL & + RXRAT( 238 ) ! CL+ETH=HO2+0.2000D+01*XO2+... & + RXRAT( 239 ) ! CL+OLE=HO2+0.3300D+00*ALD2+... & + RXRAT( 240 ) ! CL+IOLE=HO2+0.7000D+... & + RXRAT( 242 ) ! CL+FORM=HO2+HCL+CO & + RXRAT( 245 ) ! CL+MEOH=HO2+HCL+FORM & + RXRAT( 246 ) ! CL+ETOH=HO2+HCL+ALD2 & + 1.8000D-01 * RXRAT( 248 ) ! CL+TOL=0.1800D+00*HO2+... & + 1.5500D-01 * RXRAT( 249 ) ! CL+XYLMN=0.1550D+00*HO2+... & + 1.5500D-01 * RXRAT( 250 ) ! CL+NAPH=0.1550D+00*HO2+... P5 = YC0( HO2 ) + P5 * DTC c..Production of HONO from OH (r19,4 terms ) R19_4 = RKI( 40 ) * YC( NO ) * DTC ! OH+NO=HONO c..Remaining HONO production terms P19 = 2.0000D+00 * RXRAT( 41 ) ! NO+NO2=0.2000D+01*HONO & + RXRAT( 201 ) ! CRON=HONO+HO2+FORM+OPEN & + 5.0000D-01 * RXRAT( 276 ) ! NO2=0.5000D+00*HONO+... P19 = YC0( HONO ) + P19 * DTC c..Production of PNA from HO2 (r21,5 term ) R21_5 = RKI( 48 ) * YCP( NO2 ) * DTC ! HO2+NO2=HNO4 c..Remaining PNA production terms P21 = YC0( PNA ) c..OH loss terms not in R5_4 & R19_4 L4 = 2.0000D+00 * RKI( 16 ) * YC ( OH ) ! OH+OH=O & + 2.0000D+00 * RKI( 17 ) * YC ( OH ) ! OH+OH=H2O2 & + RKI( 18 ) * YC ( HO2 ) ! OH+HO2= & + RKI( 44 ) * YC ( HONO ) ! OH+HONO=NO2 & + RKI( 45 ) * YC ( NO2 ) ! OH+NO2=HNO3 & + RKI( 46 ) * YC ( HNO3 ) ! OH+HNO3=NO3 & + RKI( 51 ) * YC ( PNA ) ! OH+PNA=NO2 & + 6.0000D-01 * RKI( 87 ) * YC ( MEPX ) ! OH+MEPX=0.6000D+... & + 6.0000D-01 * RKI( 89 ) * YC ( ROOH ) ! OH+ROOH=0.5400D+... & + RKI( 91 ) * YC ( NTR1 ) ! OH+NTR1=NTR2 & + RKI( 94 ) * YC ( AACD ) ! OH+AACD=MEO2+RO2 & + RKI( 95 ) * YC ( PACD ) ! OH+PACD=C2O3 & + RKI( 106 ) * YC ( ALD2 ) ! OH+ALD2=C2O3 & + RKI( 110 ) * YC ( ALDX ) ! OH+ALDX=CXO3 & + 8.0000D-01 * RKI( 113 ) * YC ( GLYD ) ! OH+GLYD=0.2000D+... & + RKI( 121 ) * YC ( MGLY ) ! OH+MGLY=C2O3+CO & + RKI( 124 ) ! OH=MEO2+RO2 & + RKI( 125 ) * YC ( ETHA ) ! OH+ETHA=0.9910D+... & + 1.0000D-01 * RKI( 127 ) * YC ( ETOH ) ! OH+ETOH=0.9000D+... & + RKI( 130 ) * YC ( ACET ) ! OH+ACET=FORM+... & + RKI( 131 ) * YC ( PRPA ) ! OH+PRPA=XPRP & + RKI( 132 ) * YC ( PAR ) ! OH+PAR=XPAR & + RKI( 138 ) * YC ( ETH ) ! OH+ETH=XO2H+RO2+... & + RKI( 142 ) * YC ( OLE ) ! OH+OLE=0.7810D+... & + RKI( 146 ) * YC ( IOLE ) ! OH+IOLE=0.1300D+... & + RKI( 149 ) * YC ( ISOP ) ! OH+ISOP=ISO2+RO2+... & + 8.6300D-01 * RKI( 158 ) * YC ( ISPD ) ! OH+ISPD=0.1370D+... & + 6.7000D-02 * RKI( 162 ) * YC ( ISPX ) ! OH+ISPX=0.9040D+... & + RKI( 165 ) * YC ( EPOX ) ! OH+EPOX=EPX2+RO2 & + RKI( 170 ) * YC ( INTR ) ! OH+INTR=0.6300D+... & + RKI( 172 ) * YC ( TERP ) ! OH+TERP=0.7500D+... & + RKI( 176 ) * YC ( APIN ) ! OH+APIN=0.7500D+... & + 3.5200D-01 * RKI( 179 ) * YC ( BENZENE ) ! OH+BENZENE=... & + 7.2000D-01 * RKI( 184 ) * YC ( TOL ) ! OH+TOL=0.1800D+... & + 6.0100D-01 * RKI( 189 ) * YC ( XYLMN ) ! OH+XYLMN=0.1550D+... & + 6.0100D-01 * RKI( 190 ) * YC ( NAPH ) ! OH+NAPH=0.1550D+... & + RKI( 199 ) * YC ( CRON ) ! OH+CRON=NTR2+... & + RKI( 203 ) * YC ( XOPN ) ! OH+XOPN=MGLY+... & + RKI( 207 ) * YC ( OPEN ) ! OH+OPEN=0.6000D+... & + 8.0000D-01 * RKI( 210 ) * YC ( CAT1 ) ! OH+CAT1=0.2000D+... & + RKI( 218 ) * YC ( OPAN ) ! OH+OPAN=0.5000D+... & + RKI( 219 ) * YC ( PANX ) ! OH+PANX=ALD2+NO2 & + RKI( 220 ) * YC ( ECH4 ) ! OH+ECH4=MEO2+RO2 & + RKI( 232 ) * YC ( FMCL ) ! OH+FMCL=CL+CO & + RKI( 247 ) * YC ( HCL ) ! OH+HCL=CL L4 = 1.0D0 + L4 * DTC + R5_4 + R19_4 c..HO2 loss terms not included in R4_5 & R21_5 (except for HO2+HO2 ) L5 = RKI( 18 ) * YC ( OH ) ! HO2+OH= & + 5.6000D-01 * RKI( 57 ) * YC ( C2O3 ) ! HO2+C2O3=0.4400D+... & + 5.6000D-01 * RKI( 65 ) * YC ( CXO3 ) ! HO2+CXO3=0.4400D+... & + RKI( 72 ) * YC ( MEO2 ) ! HO2+MEO2=0.9000D+... & + RKI( 76 ) * YC ( XO2H ) ! HO2+XO2H=ROOH & + RKI( 80 ) * YC ( XO2 ) ! HO2+XO2=ROOH & + RKI( 84 ) * YC ( XO2N ) ! HO2+XO2N=ROOH & + RKI( 101 ) * YC ( FORM ) ! HO2+FORM=HCO3 & + 6.0000D-01 * RKI( 104 ) * YC ( HCO3 ) ! HO2+HCO3=0.2000D+... & + 7.6000D-01 * RKI( 152 ) * YC ( ISO2 ) ! HO2+ISO2=0.1200D+... & + RKI( 182 ) * YC ( BZO2 ) ! HO2+BZO2= & + RKI( 187 ) * YC ( TO2 ) ! HO2+TO2= & + RKI( 192 ) * YC ( XLO2 ) ! HO2+XLO2= & + RKI( 198 ) * YC ( CRO ) ! HO2+CRO=CRES & + 5.6000D-01 * RKI( 215 ) * YC ( OPO3 ) ! HO2+OPO3=0.4400D+... & + RKI( 230 ) * YC ( CLO ) ! HO2+CLO=HOCL L5 = 1.0D0 + L5 * DTC + R4_5 + R21_5 c..HONO loss terms not included in R4_19 L19 = 2.0000D+00 * RKI( 42 ) * YC ( HONO ) ! HONO+HONO=NO+NO2 & + RKI( 44 ) * YC ( OH ) ! HONO+OH=NO2 L19 = 1.0D0 + L19 * DTC + R4_19 c..PNA loss terms not included in R5_21 L21 = 4.1000D-01 * RKI( 50 ) ! PNA=0.5900D+... & + RKI( 51 ) * YC ( OH ) ! PNA+OH=NO2 L21 = 1.0D0 + L21 * DTC + R5_21 ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Solution section ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c..compute terms used to calculate a,b & c L21_INV = 1.0D0 / L21 T1 = 1.0D0 / ( L4 * L19 - R4_19 * R19_4 ) T2 = R5_4 * T1 T3 = R5_21 * L21_INV c..solve quadratic equation for HO2 A = 2.0D0 * ( RKI( 19 ) + RKI( 20 ) ) * DTC B = L5 - T3 * R21_5 - T2 * R4_5 * L19 C = P5 + T3 * P21 + T2 * ( P4 * L19 + P19 * R4_19 ) Q = -0.5D0 * ( B + SIGN( 1.0D0, B ) * SQRT( B * B + 4.0D0 * A * C ) ) YCP( HO2 ) = MAX( Q / A , -C / Q ) c..compute remaining species concentrations YCP( OH ) = ( ( P4 + R4_5 * YCP( HO2 ) ) * L19 + R4_19 * P19 ) * T1 YCP( PNA ) = ( P21 + R21_5 * YCP( HO2 ) ) * L21_INV YCP( HONO ) = ( P19 + R19_4 * YCP( OH ) ) / L19 RETURN END ================================================ FILE: CCTM/src/gas/ebi_cb6r3_ae7_aq/hrg3.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE HRG3( DTC ) C********************************************************************** C C FUNCTION: To solve for the concentration of C2O3 and PAN C C PRECONDITIONS: For the CB6R3_AE7_AQ mechanism C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by EBI solver program, Jun 8, 2022 C C 18 Jul 14 B.Hutzell: revised to use real(8) variables C********************************************************************** USE HRDATA IMPLICIT NONE C..INCLUDES: NONE C..ARGUMENTS: REAL( 8 ), INTENT( IN ) :: DTC ! Time step C..PARAMETERS: NONE C..EXTERNAL FUNCTIONS: NONE C..SAVED LOCAL VARIABLES: ! CHARACTER( 16 ), SAVE :: PNAME = 'HRG3' ! Program name C..SCRATCH LOCAL VARIABLES: REAL( 8 ) :: A, B, C, Q ! Quadratic equation terms REAL( 8 ) :: CMN ! Temp scalar REAL( 8 ) :: L8 ! Loss of CCO_O2 REAL( 8 ) :: L9 ! Loss of PAN REAL( 8 ) :: P8 ! Production of CCO_O2 REAL( 8 ) :: K8_8 ! Kc2o3+c2o3 * delta t REAL( 8 ) :: R8_9 ! Kpan-->c2o3 * delta t REAL( 8 ) :: R9_8 ! Kc2o3+no2-->pan * [NO2] * delta t C********************************************************************** c..Production of C2O3 (except from PAN ) P8 = RXRAT( 95 ) ! PACD+OH=C2O3 & + RXRAT( 105 ) ! ALD2+O=C2O3+OH & + RXRAT( 106 ) ! ALD2+OH=C2O3 & + RXRAT( 107 ) ! ALD2+NO3=C2O3+HNO3 & + 8.0000D-01 * RXRAT( 113 ) ! GLYD+OH=0.8000D+00*C2O3+... & + RXRAT( 115 ) ! GLYD+NO3=C2O3+HNO3 & + RXRAT( 119 ) ! MGLY=C2O3+HO2+CO & + RXRAT( 120 ) ! MGLY+NO3=C2O3+HNO3+XO2+RO2 & + RXRAT( 121 ) ! MGLY+OH=C2O3+CO & + 5.0000D-01 * RXRAT( 128 ) ! KET=0.5000D+00*C2O3+... & + 6.2000D-01 * RXRAT( 129 ) ! ACET=0.6200D+00*C2O3+... & + RXRAT( 130 ) ! ACET+OH=C2O3+FORM+XO2+RO2 & + 2.6900D-01 * RXRAT( 158 ) ! ISPD+OH=0.2690D+00*C2O3+... & + 1.4300D-01 * RXRAT( 159 ) ! ISPD+O3=0.1430D+00*C2O3+... & + 2.0800D-01 * RXRAT( 161 ) ! ISPD=0.2080D+00*C2O3+... & + 3.0000D-01 * RXRAT( 202 ) ! XOPN=0.3000D+00*C2O3+XO2H+... & + 6.0000D-01 * RXRAT( 204 ) ! XOPN+O3=0.6000D+00*C2O3+... & + 1.2000D-01 * RXRAT( 208 ) ! OPEN+O3=0.1200D+00*C2O3+... & + RXRAT( 243 ) ! CL+ALD2=C2O3+HCL c..Loss frequency of C2O3 ( not including C2O3 + C2O3 ) L8 = RKI( 53 ) * YC ( NO ) ! C2O3+NO=NO2+MEO2+RO2 & + RKI( 54 ) * YC ( NO2 ) ! C2O3+NO2=PAN & + RKI( 57 ) * YC ( HO2 ) ! C2O3+HO2=0.4100D+... & + RKI( 60 ) * YC ( CXO3 ) ! C2O3+CXO3=MEO2+... & + RKI( 73 ) * YC ( MEO2 ) ! C2O3+MEO2=FORM+... & + RKI( 77 ) * YC ( XO2H ) ! C2O3+XO2H=... & + RKI( 81 ) * YC ( XO2 ) ! C2O3+XO2=0.8000D+... & + RKI( 85 ) * YC ( XO2N ) ! C2O3+XO2N=... & + RKI( 153 ) * YC ( ISO2 ) ! C2O3+ISO2=... & + RKI( 168 ) * YC ( EPX2 ) ! C2O3+EPX2=... & + RKI( 181 ) * YC ( BZO2 ) ! C2O3+BZO2=GLY+... & + RKI( 186 ) * YC ( TO2 ) ! C2O3+TO2=0.4800D+... & + RKI( 193 ) * YC ( XLO2 ) ! C2O3+XLO2=... & + RKI( 216 ) * YC ( OPO3 ) ! C2O3+OPO3=MEO2+... c..Loss frequency of PAN L9 = RKI( 55 ) ! PAN=NO2+C2O3 & + RKI( 56 ) ! PAN=0.6000D+... c..K8_8, R8_9, and R9_8 terms K8_8 = RKI( 59 ) * DTC R8_9 = ( RKI( 55 ) & + RKI( 56 ) ) * DTC R9_8 = ( RKI( 54 ) * YC( NO2 ) ) * DTC c..Solution of quadratic equation to get C2O3 & PAN CMN = 1.0 + L9 * DTC A = 2.0D0 * K8_8 * CMN B = CMN * ( 1.0D0 + L8 * DTC ) - R8_9 * R9_8 C = CMN * ( YC0( C2O3 ) + P8 * DTC ) + R8_9 * YC0( PAN ) Q = -0.5D0 * ( B + SIGN( 1.0D0, B ) * SQRT( B * B + 4.0D0 * A * C ) ) YCP( C2O3 ) = MAX( Q / A , -C / Q ) YCP( PAN ) = ( YC0( PAN ) + R9_8 * YCP( C2O3 ) ) / CMN RETURN END ================================================ FILE: CCTM/src/gas/ebi_cb6r3_ae7_aq/hrg4.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE HRG4( DTC ) C********************************************************************** C C FUNCTION: To solve for the concentration of NO3 and N2O5 C C PRECONDITIONS: For the CB6R3_AE7_AQ mechanism C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by EBI solver program, Jun 8, 2022 C C 18 Jul 14 B.Hutzell: revised to use real(8) variables C********************************************************************** USE HRDATA IMPLICIT NONE C..INCLUDES: NONE C..ARGUMENTS: REAL( 8 ), INTENT( IN ) :: DTC ! Time step C..PARAMETERS: NONE C..EXTERNAL FUNCTIONS: NONE C..SAVED LOCAL VARIABLES: ! CHARACTER( 16 ), SAVE :: PNAME = 'HRG4' ! Program name C..SCRATCH LOCAL VARIABLES: REAL( 8 ) :: A, B, C, Q ! Quadratic equation terms REAL( 8 ) :: CMN ! Temp scalar REAL( 8 ) :: L15 ! Loss of NO3 REAL( 8 ) :: L16 ! Loss of N2O5 REAL( 8 ) :: P15 ! Production of NO3 REAL( 8 ) :: K15_15 ! Kno3+no3 * delta t REAL( 8 ) :: R15_16 ! Kn2o5-->no3 * delta t REAL( 8 ) :: R16_15 ! Kno3+no2-->n2o5[NO2] * delta t C********************************************************************** c..Production of NO3 (except from N2O5 ) P15 = RKI( 6 ) * YCP( O ) * YCP( NO2 ) ! O+NO2=NO3 & + RKI( 26 ) * YCP( NO2 ) * YCP( O3 ) ! NO2+O3=NO3 & + RKI( 46 ) * YC ( HNO3 ) * YCP( OH ) ! HNO3+OH=NO3 & + 4.1000D-01 * RKI( 50 ) * YC ( PNA ) ! PNA=0.4100D+00*NO3+0.5900D+... & + 4.0000D-01 * RKI( 56 ) * YC ( PAN ) ! PAN=0.4000D+00*NO3+0.6000D+... & + 4.0000D-01 * RKI( 64 ) * YC ( PANX ) ! PANX=0.4000D+00*NO3+... & + 1.8500D-01 * RKI( 170 ) * YC ( INTR ) * YCP( OH ) ! INTR+OH=0.1850D+00*NO3+... & + RKI( 254 ) * YC ( CLNO3 ) ! CLNO3=NO3+CL c..Loss frequency of NO3 ( except NO3 + NO3 if present ) L15 = RKI( 27 ) ! NO3=NO2+O & + RKI( 28 ) ! NO3=NO & + RKI( 29 ) * YCP( NO ) ! NO3+NO=0.2000D+... & + RKI( 30 ) * YCP( NO2 ) ! NO3+NO2=NO+NO2 & + RKI( 31 ) * YCP( O ) ! NO3+O=NO2 & + RKI( 32 ) * YCP( OH ) ! NO3+OH=HO2+NO2 & + RKI( 33 ) * YCP( HO2 ) ! NO3+HO2=OH+NO2 & + RKI( 34 ) * YCP( O3 ) ! NO3+O3=NO2 & + RKI( 36 ) * YCP( NO2 ) ! NO3+NO2=N2O5 & + RKI( 100 ) * YC ( FORM ) ! NO3+FORM=HNO3+HO2+CO & + RKI( 107 ) * YC ( ALD2 ) ! NO3+ALD2=C2O3+HNO3 & + RKI( 111 ) * YC ( ALDX ) ! NO3+ALDX=CXO3+HNO3 & + RKI( 115 ) * YC ( GLYD ) ! NO3+GLYD=HNO3+C2O3 & + RKI( 118 ) * YC ( GLY ) ! NO3+GLY=HNO3+... & + RKI( 120 ) * YC ( MGLY ) ! NO3+MGLY=HNO3+... & + RKI( 140 ) * YC ( ETH ) ! NO3+ETH=0.5000D+... & + RKI( 144 ) * YC ( OLE ) ! NO3+OLE=0.5000D+... & + RKI( 148 ) * YC ( IOLE ) ! NO3+IOLE=0.5000D+... & + RKI( 157 ) * YC ( ISOP ) ! NO3+ISOP=0.3500D+... & + RKI( 160 ) * YC ( ISPD ) ! NO3+ISPD=0.7170D+... & + RKI( 164 ) * YC ( HPLD ) ! NO3+HPLD=HNO3+ISPD & + RKI( 174 ) * YC ( TERP ) ! NO3+TERP=0.4700D+... & + RKI( 178 ) * YC ( APIN ) ! NO3+APIN=0.4700D+... & + RKI( 196 ) * YC ( CRES ) ! NO3+CRES=0.3000D+... & + RKI( 200 ) * YC ( CRON ) ! NO3+CRON=NTR2+... & + RKI( 205 ) * YC ( XOPN ) ! NO3+XOPN=0.5000D+... & + RKI( 209 ) * YC ( OPEN ) ! NO3+OPEN=OPO3+HNO3 & + RKI( 211 ) * YC ( CAT1 ) ! NO3+CAT1=CRO+HNO3 c..Loss frequency of N2O5 L16 = RKI( 37 ) ! N2O5=NO3+NO2 & + RKI( 38 ) ! N2O5=NO2+NO3 & + RKI( 39 ) ! N2O5=0.2000D+01*HNO3 & + RKI( 269 ) ! N2O5=HNO3+H2NO3PIJ & + RKI( 270 ) ! N2O5=HNO3+H2NO3PK c..K15_15, R15_16, and R16_15 terms K15_15 = RKI( 35 ) * DTC R15_16 = ( RKI( 37 ) & + RKI( 38 ) ) * DTC R16_15 = RKI( 36 ) * YCP( NO2 ) * DTC c..Solution of quadratic equation to get NO3 & N2O5 CMN = 1.0D0 + L16 * DTC A = 2.0D0 * K15_15 * CMN B = CMN * ( 1.0D0 + L15 * DTC ) - R15_16 * R16_15 C = CMN * ( YC0( NO3 ) + P15 * DTC ) + R15_16 * YC0( N2O5 ) Q = -0.5D0 * ( B + SIGN( 1.0D0, B ) * SQRT( B * B + 4.0D0 * A * C ) ) YCP( NO3 ) = MAX( Q / A , -C / Q ) YCP( N2O5 ) = ( YC0( N2O5 ) + R16_15 * YCP( NO3 ) ) / CMN RETURN END ================================================ FILE: CCTM/src/gas/ebi_cb6r3_ae7_aq/hrinit.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE HRINIT C*********************************************************************** C C FUNCTION: To initialize species tolerances, arrays, and indices C C PRECONDITIONS: For the CB6R3_AE7_AQ mechanism C C RETURN VALUES: None C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by EBI solver program, Jun 8, 2022 C 21 Jun 10 J.Young: convert for Namelist redesign C 18 Jul 14 B.Hutzell: revised to use the RXNS_DATA and RXNS_FUNCTION C modules instead of include files C*********************************************************************** USE UTILIO_DEFN USE HRDATA USE RXNS_DATA USE RXNS_FUNCTION IMPLICIT NONE C.....INCLUDES: Include SUBST_CONST ! common constants C.....ARGUMENTS: NONE C.....PARAMETERS: NONE C.....SAVED VARIABLES: CHARACTER( 16 ), SAVE :: PNAME = 'HRINIT' ! Program name C.....LOCAL VARIABLES: CHARACTER( 132 ) :: MSG ! Log message INTEGER N ! Loop index INTEGER IOS ! Allocate error status C*********************************************************************** N_SPEC = NUMB_MECH_SPC N_RXNS = NRXNS N_SPCL_RKS = 0 ALLOCATE( RKI( NRXNS ), & RKI_SAV( MAX_CELLS_EBI, NRXNS ), & FORWARD_CONV( NUMB_MECH_SPC), & REVERSE_CONV( NUMB_MECH_SPC), & RXRAT( NRXNS ), & RTOL( NUMB_MECH_SPC), & YC( NUMB_MECH_SPC), & YC0( NUMB_MECH_SPC), & YCP( NUMB_MECH_SPC), & PROD( NUMB_MECH_SPC), & LOSS( NUMB_MECH_SPC), & PNEG( N_SPEC), & STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating RKI, RXRAT, RTOL, YC, YC0, YCP, FORWARD_CONV, ' & // 'REVERSE_CONV, PROD, LOSS, or PNEG' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF ALLOCATE( ATMPRES( MAX_CELLS_EBI ), & H2O ( MAX_CELLS_EBI ), & TEMP ( MAX_CELLS_EBI ), & DENSITY( MAX_CELLS_EBI ), & HET ( MAX_CELLS_EBI, NHETERO ), & RJIN ( MAX_CELLS_EBI, NPHOTAB ), & SEAWATER ( MAX_CELLS_EBI ) , & STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating ATMPRES, H2O, TEMP, HET, RJIN, SEAWATER ' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF IF( NSPECIAL .GT. 0 )THEN ALLOCATE( SYC( MAX_CELLS_EBI, NUMB_MECH_SPC ), STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating SYC' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF ALLOCATE( IOLD2NEW( NUMB_MECH_SPC, 1 ), STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating IOLD2NEW' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF DO N = 1, NUMB_MECH_SPC IOLD2NEW( N, 1 ) = N END DO END IF IF( .NOT. MAP_CHEMISTRY_SPECIES() )THEN MSG = 'Detected above error(s) when mapping Chemistry species from CGRID species' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT2 ) END IF DO N = 1, NUMB_MECH_SPC FORWARD_CONV( N ) = 1.0E-3 * MWAIR / SPECIES_MOLWT( N ) REVERSE_CONV( N ) = 1.0E+3 / MWAIR * SPECIES_MOLWT( N ) END DO ! initialize all reaction rates to zero so unused array elements are defined RXRAT = 0.0D0 ! initialize all production and loss rates to zero so unused array elements are defined PROD = 0.0D0 LOSS = 0.0D0 NING1 = 4 NING2 = 4 ALLOCATE( YCCELL( MODEL_SPECIES), STAT = IOS ) ! array for degradation routines IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating YCCELL ' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF c..Allocate and define ebi species N_EBISP = 134 ALLOCATE( EBISP( N_EBISP ), STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating EBISP' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF EBISP( 1 ) = H2O2 EBISP( 2 ) = HNO3 EBISP( 3 ) = SO2 EBISP( 4 ) = SULF EBISP( 5 ) = SULRXN EBISP( 6 ) = MEO2 EBISP( 7 ) = RO2 EBISP( 8 ) = PACD EBISP( 9 ) = AACD EBISP( 10 ) = CXO3 EBISP( 11 ) = ALD2 EBISP( 12 ) = XO2H EBISP( 13 ) = PANX EBISP( 14 ) = FORM EBISP( 15 ) = MEPX EBISP( 16 ) = MEOH EBISP( 17 ) = ROOH EBISP( 18 ) = XO2 EBISP( 19 ) = XO2N EBISP( 20 ) = NTR1 EBISP( 21 ) = NTR2 EBISP( 22 ) = FACD EBISP( 23 ) = CO EBISP( 24 ) = HCO3 EBISP( 25 ) = ALDX EBISP( 26 ) = GLYD EBISP( 27 ) = GLY EBISP( 28 ) = MGLY EBISP( 29 ) = ETHA EBISP( 30 ) = ETOH EBISP( 31 ) = KET EBISP( 32 ) = PAR EBISP( 33 ) = ACET EBISP( 34 ) = PRPA EBISP( 35 ) = XPRP EBISP( 36 ) = XPAR EBISP( 37 ) = ROR EBISP( 38 ) = ETHY EBISP( 39 ) = ETH EBISP( 40 ) = OLE EBISP( 41 ) = IOLE EBISP( 42 ) = ISOP EBISP( 43 ) = ISO2 EBISP( 44 ) = ISOPRXN EBISP( 45 ) = ISPD EBISP( 46 ) = INTR EBISP( 47 ) = ISPX EBISP( 48 ) = HPLD EBISP( 49 ) = OPO3 EBISP( 50 ) = EPOX EBISP( 51 ) = EPX2 EBISP( 52 ) = TERP EBISP( 53 ) = TRPRXN EBISP( 54 ) = TERPNRO2 EBISP( 55 ) = APIN EBISP( 56 ) = BENZENE EBISP( 57 ) = CRES EBISP( 58 ) = BZO2 EBISP( 59 ) = OPEN EBISP( 60 ) = BENZRO2 EBISP( 61 ) = TOL EBISP( 62 ) = TO2 EBISP( 63 ) = TOLRO2 EBISP( 64 ) = XOPN EBISP( 65 ) = XYLMN EBISP( 66 ) = XLO2 EBISP( 67 ) = XYLRO2 EBISP( 68 ) = NAPH EBISP( 69 ) = PAHRO2 EBISP( 70 ) = CRO EBISP( 71 ) = CAT1 EBISP( 72 ) = CRON EBISP( 73 ) = OPAN EBISP( 74 ) = ECH4 EBISP( 75 ) = CL2 EBISP( 76 ) = CL EBISP( 77 ) = HOCL EBISP( 78 ) = CLO EBISP( 79 ) = FMCL EBISP( 80 ) = HCL EBISP( 81 ) = CLNO2 EBISP( 82 ) = CLNO3 EBISP( 83 ) = SVAVB2 EBISP( 84 ) = SVAVB3 EBISP( 85 ) = SVAVB4 EBISP( 86 ) = SVAVB1 EBISP( 87 ) = SESQ EBISP( 88 ) = SESQRXN EBISP( 89 ) = SOAALK EBISP( 90 ) = H2NO3PIJ EBISP( 91 ) = H2NO3PK EBISP( 92 ) = ACLI EBISP( 93 ) = ACLJ EBISP( 94 ) = ACLK EBISP( 95 ) = IEPOXP EBISP( 96 ) = ASO4J EBISP( 97 ) = AISO3J EBISP( 98 ) = AGLYJ EBISP( 99 ) = MTNO3 EBISP( 100 ) = AMTNO3J EBISP( 101 ) = AMTHYDJ EBISP( 102 ) = AAVB2J EBISP( 103 ) = AOLGAJ EBISP( 104 ) = AAVB3J EBISP( 105 ) = AAVB4J EBISP( 106 ) = AISO1J EBISP( 107 ) = AOLGBJ EBISP( 108 ) = AISO2J EBISP( 109 ) = ASQTJ EBISP( 110 ) = APOCI EBISP( 111 ) = APNCOMI EBISP( 112 ) = APOCJ EBISP( 113 ) = APNCOMJ EBISP( 114 ) = PCVOC EBISP( 115 ) = PCSOARXN EBISP( 116 ) = VLVPO1 EBISP( 117 ) = VSVPO1 EBISP( 118 ) = VSVPO2 EBISP( 119 ) = VSVPO3 EBISP( 120 ) = VIVPO1 EBISP( 121 ) = VLVOO1 EBISP( 122 ) = VLVOO2 EBISP( 123 ) = VSVOO2 EBISP( 124 ) = VSVOO3 EBISP( 125 ) = VSVOO1 EBISP( 126 ) = FORM_PRIMARY EBISP( 127 ) = ALD2_PRIMARY EBISP( 128 ) = BUTADIENE13 EBISP( 129 ) = ACROLEIN EBISP( 130 ) = ACRO_PRIMARY EBISP( 131 ) = TOLU EBISP( 132 ) = HG EBISP( 133 ) = HGIIAER EBISP( 134 ) = HGIIGAS cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Set species tolerances cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc RTOL( NO2 ) = 5.0D-04 RTOL( NO ) = 5.0D-04 RTOL( O ) = 1.0D+00 RTOL( O3 ) = 5.0D-04 RTOL( NO3 ) = 5.0D-04 RTOL( O1D ) = 1.0D+00 RTOL( OH ) = 5.0D-04 RTOL( HO2 ) = 5.0D-04 RTOL( H2O2 ) = 5.0D-04 RTOL( N2O5 ) = 5.0D-04 RTOL( HNO3 ) = 5.0D-04 RTOL( HONO ) = 5.0D-04 RTOL( PNA ) = 5.0D-04 RTOL( SO2 ) = 5.0D-04 RTOL( SULF ) = 1.0D+00 RTOL( SULRXN ) = 1.0D+00 RTOL( C2O3 ) = 5.0D-04 RTOL( MEO2 ) = 5.0D-04 RTOL( RO2 ) = 5.0D-04 RTOL( PAN ) = 5.0D-04 RTOL( PACD ) = 5.0D-04 RTOL( AACD ) = 5.0D-04 RTOL( CXO3 ) = 5.0D-04 RTOL( ALD2 ) = 5.0D-04 RTOL( XO2H ) = 5.0D-04 RTOL( PANX ) = 5.0D-04 RTOL( FORM ) = 5.0D-04 RTOL( MEPX ) = 5.0D-04 RTOL( MEOH ) = 5.0D-04 RTOL( ROOH ) = 5.0D-04 RTOL( XO2 ) = 5.0D-04 RTOL( XO2N ) = 5.0D-04 RTOL( NTR1 ) = 5.0D-04 RTOL( NTR2 ) = 5.0D-04 RTOL( FACD ) = 5.0D-04 RTOL( CO ) = 5.0D-04 RTOL( HCO3 ) = 1.0D+00 RTOL( ALDX ) = 5.0D-04 RTOL( GLYD ) = 5.0D-04 RTOL( GLY ) = 5.0D-04 RTOL( MGLY ) = 5.0D-04 RTOL( ETHA ) = 5.0D-04 RTOL( ETOH ) = 5.0D-04 RTOL( KET ) = 5.0D-04 RTOL( PAR ) = 5.0D-04 RTOL( ACET ) = 5.0D-04 RTOL( PRPA ) = 5.0D-04 RTOL( XPRP ) = 5.0D-04 RTOL( XPAR ) = 5.0D-04 RTOL( ROR ) = 5.0D-04 RTOL( ETHY ) = 5.0D-04 RTOL( ETH ) = 5.0D-04 RTOL( OLE ) = 5.0D-04 RTOL( IOLE ) = 5.0D-04 RTOL( ISOP ) = 5.0D-04 RTOL( ISO2 ) = 5.0D-04 RTOL( ISOPRXN ) = 1.0D+00 RTOL( ISPD ) = 5.0D-04 RTOL( INTR ) = 5.0D-04 RTOL( ISPX ) = 5.0D-04 RTOL( HPLD ) = 5.0D-04 RTOL( OPO3 ) = 5.0D-04 RTOL( EPOX ) = 5.0D-04 RTOL( EPX2 ) = 5.0D-04 RTOL( TERP ) = 5.0D-04 RTOL( TRPRXN ) = 1.0D+00 RTOL( TERPNRO2 ) = 5.0D-04 RTOL( APIN ) = 5.0D-04 RTOL( BENZENE ) = 5.0D-04 RTOL( CRES ) = 5.0D-04 RTOL( BZO2 ) = 5.0D-04 RTOL( OPEN ) = 5.0D-04 RTOL( BENZRO2 ) = 5.0D-04 RTOL( TOL ) = 5.0D-04 RTOL( TO2 ) = 5.0D-04 RTOL( TOLRO2 ) = 5.0D-04 RTOL( XOPN ) = 5.0D-04 RTOL( XYLMN ) = 5.0D-04 RTOL( XLO2 ) = 5.0D-04 RTOL( XYLRO2 ) = 5.0D-04 RTOL( NAPH ) = 5.0D-04 RTOL( PAHRO2 ) = 1.0D+00 RTOL( CRO ) = 5.0D-04 RTOL( CAT1 ) = 5.0D-04 RTOL( CRON ) = 5.0D-04 RTOL( OPAN ) = 5.0D-04 RTOL( ECH4 ) = 5.0D-04 RTOL( CL2 ) = 5.0D-04 RTOL( CL ) = 5.0D-04 RTOL( HOCL ) = 5.0D-04 RTOL( CLO ) = 5.0D-04 RTOL( FMCL ) = 5.0D-04 RTOL( HCL ) = 5.0D-04 RTOL( CLNO2 ) = 5.0D-04 RTOL( CLNO3 ) = 5.0D-04 RTOL( SVAVB2 ) = 5.0D-04 RTOL( SVAVB3 ) = 5.0D-04 RTOL( SVAVB4 ) = 5.0D-04 RTOL( SVAVB1 ) = 5.0D-04 RTOL( SESQ ) = 5.0D-04 RTOL( SESQRXN ) = 1.0D+00 RTOL( SOAALK ) = 5.0D-04 RTOL( H2NO3PIJ ) = 5.0D-04 RTOL( H2NO3PK ) = 5.0D-04 RTOL( ACLI ) = 5.0D-04 RTOL( ACLJ ) = 5.0D-04 RTOL( ACLK ) = 5.0D-04 RTOL( IEPOXP ) = 5.0D-04 RTOL( ASO4J ) = 5.0D-04 RTOL( AISO3J ) = 5.0D-04 RTOL( AGLYJ ) = 5.0D-04 RTOL( MTNO3 ) = 5.0D-04 RTOL( AMTNO3J ) = 5.0D-04 RTOL( AMTHYDJ ) = 5.0D-04 RTOL( AAVB2J ) = 5.0D-04 RTOL( AOLGAJ ) = 5.0D-04 RTOL( AAVB3J ) = 5.0D-04 RTOL( AAVB4J ) = 5.0D-04 RTOL( AISO1J ) = 5.0D-04 RTOL( AOLGBJ ) = 5.0D-04 RTOL( AISO2J ) = 5.0D-04 RTOL( ASQTJ ) = 5.0D-04 RTOL( APOCI ) = 5.0D-04 RTOL( APNCOMI ) = 5.0D-04 RTOL( APOCJ ) = 5.0D-04 RTOL( APNCOMJ ) = 5.0D-04 RTOL( PCVOC ) = 5.0D-04 RTOL( PCSOARXN ) = 5.0D-04 RTOL( VLVPO1 ) = 5.0D-04 RTOL( VSVPO1 ) = 5.0D-04 RTOL( VSVPO2 ) = 5.0D-04 RTOL( VSVPO3 ) = 5.0D-04 RTOL( VIVPO1 ) = 5.0D-04 RTOL( VLVOO1 ) = 5.0D-04 RTOL( VLVOO2 ) = 5.0D-04 RTOL( VSVOO2 ) = 5.0D-04 RTOL( VSVOO3 ) = 5.0D-04 RTOL( VSVOO1 ) = 5.0D-04 RTOL( FORM_PRIMARY ) = 5.0D-04 RTOL( ALD2_PRIMARY ) = 5.0D-04 RTOL( BUTADIENE13 ) = 5.0D-04 RTOL( ACROLEIN ) = 5.0D-04 RTOL( ACRO_PRIMARY ) = 5.0D-04 RTOL( TOLU ) = 5.0D-04 RTOL( HG ) = 5.0D-04 RTOL( HGIIAER ) = 5.0D-04 RTOL( HGIIGAS ) = 5.0D-04 RETURN END ================================================ FILE: CCTM/src/gas/ebi_cb6r3_ae7_aq/hrprodloss.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE HRPRODLOSS C*********************************************************************** C C FUNCTION: To compute the production and loss rates for EBI species C C PRECONDITIONS: For the CB6R3_AE7_AQ mechanism C C RETURN VALUES: None C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by EBI solver program, Jun 8, 2022 C C 18 Jul 14 B.Hutzell: revised to use real(8) variables C*********************************************************************** USE HRDATA IMPLICIT NONE C.....INCLUDES: NONE C.....ARGUMENTS: NONE C.....PARAMETERS: NONE C.....EXTERNAL FUNCTIONS: NONE C.....SAVED VARIABLES: NONE ! CHARACTER( 16 ), SAVE :: PNAME = 'HRPRODLOSS' ! Program name C.....LOCAL VARIABLES: C*********************************************************************** PROD( H2O2 ) = RXRAT( 17 ) ! OH+OH=H2O2 & + RXRAT( 19 ) ! HO2+HO2=H2O2 & + RXRAT( 20 ) ! HO2+HO2=H2O2 & + 4.0000D-02 * RXRAT( 143 ) ! OLE+O3=0.4000D-01*H2O2+... & + 8.0000D-02 * RXRAT( 147 ) ! IOLE+O3=0.8000D-01*H2O2+... LOSS( H2O2 ) = RXRAT( 21 ) ! H2O2=0.2000D+01*OH & + RXRAT( 22 ) ! H2O2+OH=HO2 & + RXRAT( 23 ) ! H2O2+O=OH+HO2 PROD( HNO3 ) = 2.0000D+00 * RXRAT( 39 ) ! N2O5=0.2000D+01*HNO3 & + RXRAT( 45 ) ! NO2+OH=HNO3 & + RXRAT( 100 ) ! FORM+NO3=HNO3+HO2+CO & + RXRAT( 107 ) ! ALD2+NO3=HNO3+C2O3 & + RXRAT( 111 ) ! ALDX+NO3=HNO3+CXO3 & + RXRAT( 115 ) ! GLYD+NO3=HNO3+C2O3 & + RXRAT( 118 ) ! GLY+NO3=HNO3+0.1500D+01*CO+... & + RXRAT( 120 ) ! MGLY+NO3=HNO3+C2O3+XO2+RO2 & + 7.1700D-01 * RXRAT( 160 ) ! ISPD+NO3=0.7170D+00*HNO3+... & + RXRAT( 164 ) ! HPLD+NO3=HNO3+ISPD & + RXRAT( 196 ) ! CRES+NO3=HNO3+0.3000D+... & + RXRAT( 200 ) ! CRON+NO3=HNO3+0.5000D+... & + RXRAT( 209 ) ! OPEN+NO3=HNO3+OPO3 & + RXRAT( 211 ) ! CAT1+NO3=HNO3+CRO & + RXRAT( 255 ) ! CLNO3=HNO3+HOCL & + RXRAT( 268 ) ! NTR2=HNO3 & + RXRAT( 269 ) ! N2O5=HNO3+H2NO3PIJ & + RXRAT( 270 ) ! N2O5=HNO3+H2NO3PK & + RXRAT( 271 ) ! H2NO3PIJ=HNO3 & + RXRAT( 272 ) ! H2NO3PK=HNO3 & + 5.0000D-01 * RXRAT( 276 ) ! NO2=0.5000D+00*HNO3+... LOSS( HNO3 ) = RXRAT( 46 ) ! HNO3+OH=NO3 & + RXRAT( 47 ) ! HNO3=OH+NO2 PROD( SO2 ) = 0.0D0 LOSS( SO2 ) = RXRAT( 52 ) ! SO2+OH=SULF+HO2+SULRXN PROD( SULF ) = RXRAT( 52 ) ! SO2+OH=SULF+HO2+SULRXN LOSS( SULF ) = 0.0D0 PROD( SULRXN ) = RXRAT( 52 ) ! SO2+OH=SULRXN+HO2+SULF LOSS( SULRXN ) = 0.0D0 PROD( MEO2 ) = RXRAT( 53 ) ! C2O3+NO=MEO2+NO2+RO2 & + 4.0000D-01 * RXRAT( 56 ) ! PAN=0.4000D+00*MEO2+... & + 4.4000D-01 * RXRAT( 57 ) ! C2O3+HO2=0.4400D+00*MEO2+... & + 2.0000D+00 * RXRAT( 59 ) ! C2O3+C2O3=0.2000D+01*MEO2+... & + RXRAT( 60 ) ! C2O3+CXO3=MEO2+ALD2+XO2H+... & + 8.0000D-01 * RXRAT( 77 ) ! XO2H+C2O3=0.8000D+00*MEO2+... & + 8.0000D-01 * RXRAT( 81 ) ! XO2+C2O3=0.8000D+00*MEO2+... & + 8.0000D-01 * RXRAT( 85 ) ! XO2N+C2O3=0.8000D+00*MEO2+... & + 6.0000D-01 * RXRAT( 87 ) ! MEPX+OH=0.6000D+00*MEO2+... & + RXRAT( 88 ) ! MEPX=MEO2+RO2+OH & + RXRAT( 94 ) ! AACD+OH=MEO2+RO2 & + RXRAT( 108 ) ! ALD2=MEO2+RO2+CO+HO2 & + RXRAT( 124 ) ! OH=MEO2+RO2 & + 5.0000D-01 * RXRAT( 128 ) ! KET=0.5000D+00*MEO2+... & + 1.3800D+00 * RXRAT( 129 ) ! ACET=0.1380D+01*MEO2+... & + 8.0000D-01 * RXRAT( 153 ) ! ISO2+C2O3=0.8000D+00*MEO2+... & + 1.1500D-01 * RXRAT( 158 ) ! ISPD+OH=0.1150D+00*MEO2+... & + 3.4000D-01 * RXRAT( 161 ) ! ISPD=0.3400D+00*MEO2+... & + 8.0000D-01 * RXRAT( 168 ) ! EPX2+C2O3=0.8000D+00*MEO2+... & + RXRAT( 181 ) ! BZO2+C2O3=MEO2+OPEN+HO2+... & + RXRAT( 186 ) ! TO2+C2O3=MEO2+0.5200D+... & + RXRAT( 193 ) ! XLO2+C2O3=MEO2+0.7700D+... & + RXRAT( 216 ) ! OPO3+C2O3=MEO2+XO2+ALDX+... & + RXRAT( 220 ) ! ECH4+OH=MEO2+RO2 & + RXRAT( 234 ) ! CL=MEO2+HCL+RO2 LOSS( MEO2 ) = RXRAT( 71 ) ! MEO2+NO=FORM+HO2+NO2 & + RXRAT( 72 ) ! MEO2+HO2=0.9000D+00*MEPX+... & + 1.0000D-01 * RXRAT( 73 ) ! MEO2+C2O3=0.9000D+00*MEO2+... & + RXRAT( 74 ) ! MEO2+RO2=0.6850D+00*FORM+... & + RXRAT( 231 ) ! MEO2+CLO=CL+FORM+HO2 PROD( RO2 ) = RXRAT( 53 ) ! C2O3+NO=RO2+MEO2+NO2 & + 4.0000D-01 * RXRAT( 56 ) ! PAN=0.4000D+00*RO2+0.6000D+... & + 4.4000D-01 * RXRAT( 57 ) ! C2O3+HO2=0.4400D+00*RO2+... & + 2.0000D+00 * RXRAT( 59 ) ! C2O3+C2O3=0.2000D+01*RO2+... & + 2.0000D+00 * RXRAT( 60 ) ! C2O3+CXO3=0.2000D+01*RO2+... & + RXRAT( 61 ) ! CXO3+NO=RO2+ALD2+XO2H+NO2 & + 4.0000D-01 * RXRAT( 64 ) ! PANX=0.4000D+00*RO2+... & + 4.4000D-01 * RXRAT( 65 ) ! CXO3+HO2=0.4400D+00*RO2+... & + 2.0000D+00 * RXRAT( 67 ) ! CXO3+CXO3=0.2000D+01*RO2+... & + 9.0000D-01 * RXRAT( 73 ) ! MEO2+C2O3=0.9000D+00*RO2+... & + 8.0000D-01 * RXRAT( 77 ) ! XO2H+C2O3=0.8000D+00*RO2+... & + 8.0000D-01 * RXRAT( 81 ) ! XO2+C2O3=0.8000D+00*RO2+... & + 8.0000D-01 * RXRAT( 85 ) ! XO2N+C2O3=0.8000D+00*RO2+... & + 6.0000D-01 * RXRAT( 87 ) ! MEPX+OH=0.6000D+00*RO2+... & + RXRAT( 88 ) ! MEPX=RO2+MEO2+OH & + 6.0000D-01 * RXRAT( 89 ) ! ROOH+OH=0.6000D+00*RO2+... & + RXRAT( 94 ) ! AACD+OH=RO2+MEO2 & + RXRAT( 108 ) ! ALD2=RO2+MEO2+CO+HO2 & + RXRAT( 112 ) ! ALDX=RO2+XO2H+ALD2+CO+HO2 & + 1.1000D-01 * RXRAT( 114 ) ! GLYD=0.1100D+00*RO2+... & + 2.0000D-01 * RXRAT( 116 ) ! GLY+OH=0.2000D+00*RO2+... & + 5.0000D-01 * RXRAT( 118 ) ! GLY+NO3=0.5000D+00*RO2+... & + RXRAT( 120 ) ! MGLY+NO3=RO2+C2O3+XO2+HNO3 & + RXRAT( 124 ) ! OH=RO2+MEO2 & + RXRAT( 125 ) ! ETHA+OH=RO2+0.9910D+... & + 1.0000D-01 * RXRAT( 127 ) ! ETOH+OH=0.1000D+00*RO2+... & + RXRAT( 128 ) ! KET=RO2+0.5000D+00*C2O3+... & + 1.3800D+00 * RXRAT( 129 ) ! ACET=0.1380D+01*RO2+... & + RXRAT( 130 ) ! ACET+OH=RO2+C2O3+XO2+FORM & + 9.8000D-01 * RXRAT( 133 ) ! ROR=0.9800D+00*RO2+0.4200D+... & + 7.0000D-01 * RXRAT( 137 ) ! ETH+O=0.7000D+00*RO2+HO2+... & + RXRAT( 138 ) ! ETH+OH=RO2+XO2H+0.1560D+... & + RXRAT( 140 ) ! ETH+NO3=RO2+0.5000D+... & + 2.1000D-01 * RXRAT( 141 ) ! OLE+O=0.2100D+00*RO2+... & + 1.1950D+00 * RXRAT( 142 ) ! OLE+OH=0.1195D+01*RO2+... & + 1.5000D-01 * RXRAT( 143 ) ! OLE+O3=0.1500D+00*RO2+... & + RXRAT( 144 ) ! OLE+NO3=RO2+0.5000D+... & + 1.0000D-01 * RXRAT( 145 ) ! IOLE+O=0.1000D+00*RO2+... & + RXRAT( 146 ) ! IOLE+OH=RO2+0.7000D+... & + 3.0000D-01 * RXRAT( 147 ) ! IOLE+O3=0.3000D+00*RO2+... & + RXRAT( 148 ) ! IOLE+NO3=RO2+0.5000D+... & + RXRAT( 149 ) ! ISOP+OH=RO2+ISO2+ISOPRXN & + 2.5000D-01 * RXRAT( 150 ) ! ISOP+O=0.2500D+00*RO2+... & + 8.2000D-02 * RXRAT( 151 ) ! ISO2+NO=0.8200D-01*RO2+... & + 8.7200D-01 * RXRAT( 153 ) ! ISO2+C2O3=0.8720D+00*RO2+... & + 7.2000D-02 * RXRAT( 154 ) ! ISO2+RO2=0.1072D+01*RO2+... & + 2.0000D-01 * RXRAT( 156 ) ! ISOP+O3=0.2000D+00*RO2+... & + RXRAT( 157 ) ! ISOP+NO3=RO2+0.6500D+... & + 6.5800D-01 * RXRAT( 158 ) ! ISPD+OH=0.6580D+00*RO2+... & + 2.8400D-01 * RXRAT( 160 ) ! ISPD+NO3=0.2840D+00*RO2+... & + 8.4000D-01 * RXRAT( 161 ) ! ISPD=0.8400D+00*RO2+... & + 6.7000D-02 * RXRAT( 162 ) ! ISPX+OH=0.6700D-01*RO2+... & + RXRAT( 165 ) ! EPOX+OH=RO2+EPX2 & + 8.0000D-01 * RXRAT( 168 ) ! EPX2+C2O3=0.8000D+00*RO2+... & + RXRAT( 170 ) ! INTR+OH=RO2+0.3700D+... & + 1.5000D+00 * RXRAT( 172 ) ! TERP+OH=0.1500D+01*RO2+... & + 9.4000D-01 * RXRAT( 173 ) ! TERP+O3=0.9400D+00*RO2+... & + 1.2800D+00 * RXRAT( 174 ) ! TERP+NO3=0.1280D+01*RO2+... & + 1.5000D+00 * RXRAT( 176 ) ! APIN+OH=0.1500D+01*RO2+... & + 9.4000D-01 * RXRAT( 177 ) ! APIN+O3=0.9400D+00*RO2+... & + 1.2800D+00 * RXRAT( 178 ) ! APIN+NO3=0.1280D+01*RO2+... & + 3.5200D-01 * RXRAT( 179 ) ! BENZENE+OH=0.3520D+00*RO2+... & + RXRAT( 181 ) ! BZO2+C2O3=RO2+OPEN+HO2+... & + 7.2000D-01 * RXRAT( 184 ) ! TOL+OH=0.7200D+00*RO2+... & + RXRAT( 186 ) ! TO2+C2O3=RO2+0.5200D+... & + 6.0200D-01 * RXRAT( 189 ) ! XYLMN+OH=0.6020D+00*RO2+... & + 6.0200D-01 * RXRAT( 190 ) ! NAPH+OH=0.6020D+00*RO2+... & + RXRAT( 193 ) ! XLO2+C2O3=RO2+0.7700D+... & + 2.0000D-02 * RXRAT( 195 ) ! CRES+OH=0.2000D-01*RO2+... & + 7.0000D-01 * RXRAT( 196 ) ! CRES+NO3=0.7000D+00*RO2+... & + 2.0000D+00 * RXRAT( 203 ) ! XOPN+OH=0.2000D+01*RO2+... & + 3.0000D-01 * RXRAT( 204 ) ! XOPN+O3=0.3000D+00*RO2+... & + RXRAT( 205 ) ! XOPN+NO3=RO2+0.5000D+... & + 4.0000D-01 * RXRAT( 207 ) ! OPEN+OH=0.4000D+00*RO2+... & + 4.4000D-01 * RXRAT( 215 ) ! OPO3+HO2=0.4400D+00*RO2+... & + 2.0000D+00 * RXRAT( 216 ) ! OPO3+C2O3=0.2000D+01*RO2+... & + 8.0000D-01 * RXRAT( 217 ) ! OPO3+RO2=0.1800D+01*RO2+... & + RXRAT( 220 ) ! ECH4+OH=RO2+MEO2 & + RXRAT( 221 ) ! XPRP=RO2+XO2N & + RXRAT( 222 ) ! XPRP=RO2+0.2680D+00*ALDX+... & + RXRAT( 223 ) ! XPAR=RO2+XO2N & + RXRAT( 224 ) ! XPAR=RO2+0.8740D+00*ROR+... & + RXRAT( 234 ) ! CL=RO2+MEO2+HCL & + RXRAT( 236 ) ! CL+PRPA=RO2+ACET+0.9700D+... & + RXRAT( 237 ) ! CL+ETHA=RO2+0.9910D+... & + RXRAT( 241 ) ! CL+ISOP=RO2+ISPD+0.9600D+... & + 7.2000D-01 * RXRAT( 248 ) ! CL+TOL=0.7200D+00*RO2+... & + 6.0200D-01 * RXRAT( 249 ) ! CL+XYLMN=0.6020D+00*RO2+... & + 6.0200D-01 * RXRAT( 250 ) ! CL+NAPH=0.6020D+00*RO2+... LOSS( RO2 ) = RXRAT( 58 ) ! RO2+C2O3=C2O3 & + 2.0000D-01 * RXRAT( 66 ) ! RO2+CXO3=0.8000D+00*RO2+... & + RXRAT( 68 ) ! RO2+NO=NO & + RXRAT( 69 ) ! RO2+HO2=HO2 & + 2.0000D+00 * RXRAT( 70 ) ! RO2+RO2= PROD( PACD ) = 4.1000D-01 * RXRAT( 57 ) ! C2O3+HO2=0.4100D+00*PACD+... & + 4.1000D-01 * RXRAT( 65 ) ! CXO3+HO2=0.4100D+00*PACD+... & + 4.1000D-01 * RXRAT( 215 ) ! OPO3+HO2=0.4100D+00*PACD+... LOSS( PACD ) = RXRAT( 95 ) ! PACD+OH=C2O3 PROD( AACD ) = 1.5000D-01 * RXRAT( 57 ) ! C2O3+HO2=0.1500D+00*AACD+... & + 1.5000D-01 * RXRAT( 65 ) ! CXO3+HO2=0.1500D+00*AACD+... & + 1.0000D-01 * RXRAT( 73 ) ! MEO2+C2O3=0.1000D+00*AACD+... & + 2.0000D-01 * RXRAT( 77 ) ! XO2H+C2O3=0.2000D+00*AACD+... & + 2.0000D-01 * RXRAT( 81 ) ! XO2+C2O3=0.2000D+00*AACD+... & + 2.0000D-01 * RXRAT( 85 ) ! XO2N+C2O3=0.2000D+00*AACD+... & + 1.3000D-01 * RXRAT( 143 ) ! OLE+O3=0.1300D+00*AACD+... & + 8.0000D-02 * RXRAT( 147 ) ! IOLE+O3=0.8000D-01*AACD+... & + 2.0000D-01 * RXRAT( 153 ) ! ISO2+C2O3=0.2000D+00*AACD+... & + 2.0000D-01 * RXRAT( 168 ) ! EPX2+C2O3=0.2000D+00*AACD+... & + 1.5000D-01 * RXRAT( 215 ) ! OPO3+HO2=0.1500D+00*AACD+... & + 2.0000D-01 * RXRAT( 217 ) ! OPO3+RO2=0.2000D+00*AACD+... LOSS( AACD ) = RXRAT( 94 ) ! AACD+OH=MEO2+RO2 PROD( CXO3 ) = RXRAT( 63 ) ! PANX=CXO3+NO2 & + 6.0000D-01 * RXRAT( 64 ) ! PANX=0.6000D+00*CXO3+... & + RXRAT( 109 ) ! ALDX+O=CXO3+OH & + RXRAT( 110 ) ! ALDX+OH=CXO3 & + RXRAT( 111 ) ! ALDX+NO3=CXO3+HNO3 & + 5.0000D-01 * RXRAT( 128 ) ! KET=0.5000D+00*CXO3+... & + 2.5000D-01 * RXRAT( 150 ) ! ISOP+O=0.2500D+00*CXO3+... & + 2.0000D-01 * RXRAT( 156 ) ! ISOP+O3=0.2000D+00*CXO3+... & + 7.1700D-01 * RXRAT( 160 ) ! ISPD+NO3=0.7170D+00*CXO3+... & + 3.9000D-01 * RXRAT( 173 ) ! TERP+O3=0.3900D+00*CXO3+... & + 3.9000D-01 * RXRAT( 177 ) ! APIN+O3=0.3900D+00*CXO3+... & + 2.0000D-01 * RXRAT( 212 ) ! OPO3+NO=0.2000D+00*CXO3+... & + RXRAT( 244 ) ! CL+ALDX=CXO3+HCL LOSS( CXO3 ) = RXRAT( 60 ) ! CXO3+C2O3=MEO2+ALD2+XO2H+... & + RXRAT( 61 ) ! CXO3+NO=NO2+ALD2+XO2H+RO2 & + RXRAT( 62 ) ! CXO3+NO2=PANX & + RXRAT( 65 ) ! CXO3+HO2=0.4100D+00*PACD+... & + RXRAT( 66 ) ! CXO3+RO2=0.8000D+00*ALD2+... & + 2.0000D+00 * RXRAT( 67 ) ! CXO3+CXO3=0.2000D+01*ALD2+... PROD( ALD2 ) = RXRAT( 60 ) ! C2O3+CXO3=ALD2+MEO2+XO2H+... & + RXRAT( 61 ) ! CXO3+NO=ALD2+NO2+XO2H+RO2 & + 4.0000D-01 * RXRAT( 64 ) ! PANX=0.4000D+00*ALD2+... & + 4.4000D-01 * RXRAT( 65 ) ! CXO3+HO2=0.4400D+00*ALD2+... & + 8.0000D-01 * RXRAT( 66 ) ! CXO3+RO2=0.8000D+00*ALD2+... & + 2.0000D+00 * RXRAT( 67 ) ! CXO3+CXO3=0.2000D+01*ALD2+... & + RXRAT( 112 ) ! ALDX=ALD2+XO2H+RO2+CO+HO2 & + 9.9100D-01 * RXRAT( 125 ) ! ETHA+OH=0.9910D+00*ALD2+... & + 9.5000D-01 * RXRAT( 127 ) ! ETOH+OH=0.9500D+00*ALD2+... & + 5.0000D-01 * RXRAT( 128 ) ! KET=0.5000D+00*ALD2+... & + 7.4000D-01 * RXRAT( 133 ) ! ROR=0.7400D+00*ALD2+... & + 2.0000D-01 * RXRAT( 141 ) ! OLE+O=0.2000D+00*ALD2+... & + 4.8800D-01 * RXRAT( 142 ) ! OLE+OH=0.4880D+00*ALD2+... & + 2.9500D-01 * RXRAT( 143 ) ! OLE+O3=0.2950D+00*ALD2+... & + 2.5000D-01 * RXRAT( 144 ) ! OLE+NO3=0.2500D+00*ALD2+... & + 1.2400D+00 * RXRAT( 145 ) ! IOLE+O=0.1240D+01*ALD2+... & + 1.3000D+00 * RXRAT( 146 ) ! IOLE+OH=0.1300D+01*ALD2+... & + 7.3200D-01 * RXRAT( 147 ) ! IOLE+O3=0.7320D+00*ALD2+... & + 5.0000D-01 * RXRAT( 148 ) ! IOLE+NO3=0.5000D+00*ALD2+... & + 4.0000D-02 * RXRAT( 159 ) ! ISPD+O3=0.4000D-01*ALD2+... & + 1.0000D-01 * RXRAT( 204 ) ! XOPN+O3=0.1000D+00*ALD2+... & + 2.0000D-02 * RXRAT( 208 ) ! OPEN+O3=0.2000D-01*ALD2+... & + RXRAT( 219 ) ! PANX+OH=ALD2+NO2 & + 9.9100D-01 * RXRAT( 237 ) ! CL+ETHA=0.9910D+00*ALD2+... & + 3.3000D-01 * RXRAT( 239 ) ! CL+OLE=0.3300D+00*ALD2+... & + 4.5000D-01 * RXRAT( 240 ) ! CL+IOLE=0.4500D+00*ALD2+... & + RXRAT( 246 ) ! CL+ETOH=ALD2+HO2+HCL LOSS( ALD2 ) = RXRAT( 105 ) ! ALD2+O=C2O3+OH & + RXRAT( 106 ) ! ALD2+OH=C2O3 & + RXRAT( 107 ) ! ALD2+NO3=C2O3+HNO3 & + RXRAT( 108 ) ! ALD2=MEO2+RO2+CO+HO2 & + RXRAT( 243 ) ! ALD2+CL=HCL+C2O3 PROD( XO2H ) = RXRAT( 60 ) ! C2O3+CXO3=XO2H+ALD2+MEO2+... & + RXRAT( 61 ) ! CXO3+NO=XO2H+ALD2+NO2+RO2 & + 4.0000D-01 * RXRAT( 64 ) ! PANX=0.4000D+00*XO2H+... & + 4.4000D-01 * RXRAT( 65 ) ! CXO3+HO2=0.4400D+00*XO2H+... & + 8.0000D-01 * RXRAT( 66 ) ! CXO3+RO2=0.8000D+00*XO2H+... & + 2.0000D+00 * RXRAT( 67 ) ! CXO3+CXO3=0.2000D+01*XO2H+... & + 5.4000D-01 * RXRAT( 89 ) ! ROOH+OH=0.5400D+00*XO2H+... & + RXRAT( 112 ) ! ALDX=XO2H+ALD2+RO2+CO+HO2 & + 1.1000D-01 * RXRAT( 114 ) ! GLYD=0.1100D+00*XO2H+... & + 9.9100D-01 * RXRAT( 125 ) ! ETHA+OH=0.9910D+00*XO2H+... & + 1.0000D-01 * RXRAT( 127 ) ! ETOH+OH=0.1000D+00*XO2H+... & + 5.0000D-01 * RXRAT( 128 ) ! KET=0.5000D+00*XO2H+... & + 9.4000D-01 * RXRAT( 133 ) ! ROR=0.9400D+00*XO2H+... & + 7.0000D-01 * RXRAT( 137 ) ! ETH+O=0.7000D+00*XO2H+HO2+... & + RXRAT( 138 ) ! ETH+OH=XO2H+RO2+0.1560D+... & + 5.0000D-01 * RXRAT( 140 ) ! ETH+NO3=0.5000D+00*XO2H+... & + 2.0000D-01 * RXRAT( 141 ) ! OLE+O=0.2000D+00*XO2H+... & + 9.7600D-01 * RXRAT( 142 ) ! OLE+OH=0.9760D+00*XO2H+... & + 1.5000D-01 * RXRAT( 143 ) ! OLE+O3=0.1500D+00*XO2H+... & + 4.8000D-01 * RXRAT( 144 ) ! OLE+NO3=0.4800D+00*XO2H+... & + 1.0000D-01 * RXRAT( 145 ) ! IOLE+O=0.1000D+00*XO2H+... & + RXRAT( 146 ) ! IOLE+OH=XO2H+0.7000D+... & + 3.0000D-01 * RXRAT( 147 ) ! IOLE+O3=0.3000D+00*XO2H+... & + 4.8000D-01 * RXRAT( 148 ) ! IOLE+NO3=0.4800D+00*XO2H+... & + 8.2000D-02 * RXRAT( 151 ) ! ISO2+NO=0.8200D-01*XO2H+... & + 7.2000D-02 * RXRAT( 153 ) ! ISO2+C2O3=0.7200D-01*XO2H+... & + 7.2000D-02 * RXRAT( 154 ) ! ISO2+RO2=0.7200D-01*XO2H+... & + 6.4000D-01 * RXRAT( 157 ) ! ISOP+NO3=0.6400D+00*XO2H+... & + 1.4200D-01 * RXRAT( 160 ) ! ISPD+NO3=0.1420D+00*XO2H+... & + 3.4000D-01 * RXRAT( 161 ) ! ISPD=0.3400D+00*XO2H+... & + 3.7000D-01 * RXRAT( 170 ) ! INTR+OH=0.3700D+00*XO2H+... & + 7.5000D-01 * RXRAT( 172 ) ! TERP+OH=0.7500D+00*XO2H+... & + 7.0000D-02 * RXRAT( 173 ) ! TERP+O3=0.7000D-01*XO2H+... & + 2.8000D-01 * RXRAT( 174 ) ! TERP+NO3=0.2800D+00*XO2H+... & + 7.5000D-01 * RXRAT( 176 ) ! APIN+OH=0.7500D+00*XO2H+... & + 7.0000D-02 * RXRAT( 177 ) ! APIN+O3=0.7000D-01*XO2H+... & + 2.8000D-01 * RXRAT( 178 ) ! APIN+NO3=0.2800D+00*XO2H+... & + 7.0000D-02 * RXRAT( 184 ) ! TOL+OH=0.7000D-01*XO2H+... & + 5.8000D-02 * RXRAT( 189 ) ! XYLMN+OH=0.5800D-01*XO2H+... & + 5.8000D-02 * RXRAT( 190 ) ! NAPH+OH=0.5800D-01*XO2H+... & + 1.2000D-01 * RXRAT( 196 ) ! CRES+NO3=0.1200D+00*XO2H+... & + RXRAT( 202 ) ! XOPN=XO2H+0.4000D+00*GLY+... & + 2.0000D+00 * RXRAT( 203 ) ! XOPN+OH=0.2000D+01*XO2H+... & + 3.0000D-01 * RXRAT( 204 ) ! XOPN+O3=0.3000D+00*XO2H+... & + 4.5000D-01 * RXRAT( 205 ) ! XOPN+NO3=0.4500D+00*XO2H+... & + 4.0000D-01 * RXRAT( 207 ) ! OPEN+OH=0.4000D+00*XO2H+... & + 4.4000D-01 * RXRAT( 215 ) ! OPO3+HO2=0.4400D+00*XO2H+... & + 8.0000D-01 * RXRAT( 217 ) ! OPO3+RO2=0.8000D+00*XO2H+... & + RXRAT( 222 ) ! XPRP=XO2H+0.2680D+00*ALDX+... & + 1.2600D-01 * RXRAT( 224 ) ! XPAR=0.1260D+00*XO2H+... & + 9.7000D-01 * RXRAT( 236 ) ! CL+PRPA=0.9700D+00*XO2H+... & + 9.9100D-01 * RXRAT( 237 ) ! CL+ETHA=0.9910D+00*XO2H+... & + 9.6000D-01 * RXRAT( 241 ) ! CL+ISOP=0.9600D+00*XO2H+... & + 7.0000D-02 * RXRAT( 248 ) ! CL+TOL=0.7000D-01*XO2H+... & + 5.8000D-02 * RXRAT( 249 ) ! CL+XYLMN=0.5800D-01*XO2H+... & + 5.8000D-02 * RXRAT( 250 ) ! CL+NAPH=0.5800D-01*XO2H+... LOSS( XO2H ) = RXRAT( 75 ) ! XO2H+NO=NO2+HO2 & + RXRAT( 76 ) ! XO2H+HO2=ROOH & + RXRAT( 77 ) ! XO2H+C2O3=0.8000D+00*HO2+... & + RXRAT( 78 ) ! XO2H+RO2=0.6000D+00*HO2+RO2 PROD( PANX ) = RXRAT( 62 ) ! CXO3+NO2=PANX LOSS( PANX ) = RXRAT( 63 ) ! PANX=NO2+CXO3 & + RXRAT( 64 ) ! PANX=0.6000D+00*NO2+... & + RXRAT( 219 ) ! PANX+OH=ALD2+NO2 PROD( FORM ) = RXRAT( 71 ) ! MEO2+NO=FORM+HO2+NO2 & + 1.0000D-01 * RXRAT( 72 ) ! MEO2+HO2=0.1000D+00*FORM+... & + RXRAT( 73 ) ! MEO2+C2O3=FORM+0.9000D+... & + 6.8500D-01 * RXRAT( 74 ) ! MEO2+RO2=0.6850D+00*FORM+... & + 4.0000D-01 * RXRAT( 87 ) ! MEPX+OH=0.4000D+00*FORM+... & + RXRAT( 102 ) ! HCO3=FORM+HO2 & + 7.4000D-01 * RXRAT( 114 ) ! GLYD=0.7400D+00*FORM+... & + RXRAT( 126 ) ! MEOH+OH=FORM+HO2 & + 7.8000D-02 * RXRAT( 127 ) ! ETOH+OH=0.7800D-01*FORM+... & + RXRAT( 130 ) ! ACET+OH=FORM+C2O3+XO2+RO2 & + RXRAT( 137 ) ! ETH+O=FORM+HO2+CO+0.7000D+... & + 1.5600D+00 * RXRAT( 138 ) ! ETH+OH=0.1560D+01*FORM+RO2+... & + RXRAT( 139 ) ! ETH+O3=FORM+0.5100D+00*CO+... & + 1.1250D+00 * RXRAT( 140 ) ! ETH+NO3=0.1125D+01*FORM+... & + 2.0000D-01 * RXRAT( 141 ) ! OLE+O=0.2000D+00*FORM+... & + 7.8100D-01 * RXRAT( 142 ) ! OLE+OH=0.7810D+00*FORM+... & + 5.5500D-01 * RXRAT( 143 ) ! OLE+O3=0.5550D+00*FORM+... & + 5.0000D-01 * RXRAT( 144 ) ! OLE+NO3=0.5000D+00*FORM+... & + 1.2800D-01 * RXRAT( 147 ) ! IOLE+O3=0.1280D+00*FORM+... & + 5.0000D-01 * RXRAT( 150 ) ! ISOP+O=0.5000D+00*FORM+... & + 6.7300D-01 * RXRAT( 151 ) ! ISO2+NO=0.6730D+00*FORM+... & + 1.2000D-01 * RXRAT( 152 ) ! ISO2+HO2=0.1200D+00*FORM+... & + 5.9800D-01 * RXRAT( 153 ) ! ISO2+C2O3=0.5980D+00*FORM+... & + 5.9800D-01 * RXRAT( 154 ) ! ISO2+RO2=0.5980D+00*FORM+... & + 6.0000D-01 * RXRAT( 156 ) ! ISOP+O3=0.6000D+00*FORM+... & + 3.5000D-01 * RXRAT( 157 ) ! ISOP+NO3=0.3500D+00*FORM+... & + 2.3100D-01 * RXRAT( 159 ) ! ISPD+O3=0.2310D+00*FORM+... & + 2.6000D-01 * RXRAT( 161 ) ! ISPD=0.2600D+00*FORM+... & + 3.7500D-01 * RXRAT( 166 ) ! EPX2+HO2=0.3750D+00*FORM+... & + 3.7500D-01 * RXRAT( 167 ) ! EPX2+NO=0.3750D+00*FORM+... & + 3.0000D-01 * RXRAT( 168 ) ! EPX2+C2O3=0.3000D+00*FORM+... & + 3.7500D-01 * RXRAT( 169 ) ! EPX2+RO2=0.3750D+00*FORM+... & + 5.9200D-01 * RXRAT( 170 ) ! INTR+OH=0.5920D+00*FORM+... & + 2.8000D-01 * RXRAT( 172 ) ! TERP+OH=0.2800D+00*FORM+... & + 2.4000D-01 * RXRAT( 173 ) ! TERP+O3=0.2400D+00*FORM+... & + 2.8000D-01 * RXRAT( 176 ) ! APIN+OH=0.2800D+00*FORM+... & + 2.4000D-01 * RXRAT( 177 ) ! APIN+O3=0.2400D+00*FORM+... & + RXRAT( 201 ) ! CRON=FORM+HO2+HONO+OPEN & + 8.0000D-02 * RXRAT( 208 ) ! OPEN+O3=0.8000D-01*FORM+... & + 1.4000D-01 * RXRAT( 210 ) ! CAT1+OH=0.1400D+00*FORM+... & + RXRAT( 231 ) ! CLO+MEO2=FORM+CL+HO2 & + RXRAT( 238 ) ! CL+ETH=FORM+0.2000D+01*XO2+... & + RXRAT( 245 ) ! CL+MEOH=FORM+HO2+HCL LOSS( FORM ) = RXRAT( 96 ) ! FORM+OH=HO2+CO & + RXRAT( 97 ) ! FORM=0.2000D+01*HO2+CO & + RXRAT( 98 ) ! FORM=CO & + RXRAT( 99 ) ! FORM+O=OH+HO2+CO & + RXRAT( 100 ) ! FORM+NO3=HNO3+HO2+CO & + RXRAT( 101 ) ! FORM+HO2=HCO3 & + RXRAT( 242 ) ! FORM+CL=HCL+HO2+CO PROD( MEPX ) = 9.0000D-01 * RXRAT( 72 ) ! MEO2+HO2=0.9000D+00*MEPX+... & + 5.0000D-01 * RXRAT( 104 ) ! HCO3+HO2=0.5000D+00*MEPX+... LOSS( MEPX ) = RXRAT( 87 ) ! MEPX+OH=0.6000D+00*MEO2+... & + RXRAT( 88 ) ! MEPX=MEO2+RO2+OH PROD( MEOH ) = 3.1500D-01 * RXRAT( 74 ) ! MEO2+RO2=0.3150D+00*MEOH+... & + 1.5000D-01 * RXRAT( 114 ) ! GLYD=0.1500D+00*MEOH+... LOSS( MEOH ) = RXRAT( 126 ) ! MEOH+OH=FORM+HO2 & + RXRAT( 245 ) ! MEOH+CL=HCL+HO2+FORM PROD( ROOH ) = RXRAT( 76 ) ! XO2H+HO2=ROOH & + RXRAT( 80 ) ! XO2+HO2=ROOH & + RXRAT( 84 ) ! XO2N+HO2=ROOH LOSS( ROOH ) = RXRAT( 89 ) ! ROOH+OH=0.5400D+00*XO2H+... & + RXRAT( 90 ) ! ROOH=HO2+OH PROD( XO2 ) = 2.0000D-01 * RXRAT( 116 ) ! GLY+OH=0.2000D+00*XO2+... & + 5.0000D-01 * RXRAT( 118 ) ! GLY+NO3=0.5000D+00*XO2+... & + RXRAT( 120 ) ! MGLY+NO3=XO2+C2O3+HNO3+RO2 & + RXRAT( 130 ) ! ACET+OH=XO2+C2O3+FORM+RO2 & + 5.0000D-01 * RXRAT( 140 ) ! ETH+NO3=0.5000D+00*XO2+... & + 1.9500D-01 * RXRAT( 142 ) ! OLE+OH=0.1950D+00*XO2+... & + 4.8000D-01 * RXRAT( 144 ) ! OLE+NO3=0.4800D+00*XO2+... & + 4.8000D-01 * RXRAT( 148 ) ! IOLE+NO3=0.4800D+00*XO2+... & + 2.5000D-01 * RXRAT( 150 ) ! ISOP+O=0.2500D+00*XO2+... & + 2.0000D-01 * RXRAT( 156 ) ! ISOP+O3=0.2000D+00*XO2+... & + 3.3000D-01 * RXRAT( 157 ) ! ISOP+NO3=0.3300D+00*XO2+... & + 5.2100D-01 * RXRAT( 158 ) ! ISPD+OH=0.5210D+00*XO2+... & + 1.4200D-01 * RXRAT( 160 ) ! ISPD+NO3=0.1420D+00*XO2+... & + 1.6000D-01 * RXRAT( 161 ) ! ISPD=0.1600D+00*XO2+... & + 6.3000D-01 * RXRAT( 170 ) ! INTR+OH=0.6300D+00*XO2+... & + 5.0000D-01 * RXRAT( 172 ) ! TERP+OH=0.5000D+00*XO2+... & + 6.9000D-01 * RXRAT( 173 ) ! TERP+O3=0.6900D+00*XO2+... & + 7.5000D-01 * RXRAT( 174 ) ! TERP+NO3=0.7500D+00*XO2+... & + 5.0000D-01 * RXRAT( 176 ) ! APIN+OH=0.5000D+00*XO2+... & + 6.9000D-01 * RXRAT( 177 ) ! APIN+O3=0.6900D+00*XO2+... & + 7.5000D-01 * RXRAT( 178 ) ! APIN+NO3=0.7500D+00*XO2+... & + 4.8000D-01 * RXRAT( 196 ) ! CRES+NO3=0.4800D+00*XO2+... & + 4.5000D-01 * RXRAT( 205 ) ! XOPN+NO3=0.4500D+00*XO2+... & + RXRAT( 216 ) ! OPO3+C2O3=XO2+MEO2+ALDX+... & + 8.7400D-01 * RXRAT( 224 ) ! XPAR=0.8740D+00*XO2+... & + 2.0000D+00 * RXRAT( 238 ) ! CL+ETH=0.2000D+01*XO2+FMCL+... & + 2.0000D+00 * RXRAT( 239 ) ! CL+OLE=0.2000D+01*XO2+... & + 1.7000D+00 * RXRAT( 240 ) ! CL+IOLE=0.1700D+01*XO2+... LOSS( XO2 ) = RXRAT( 79 ) ! XO2+NO=NO2 & + RXRAT( 80 ) ! XO2+HO2=ROOH & + RXRAT( 81 ) ! XO2+C2O3=0.8000D+00*MEO2+... & + RXRAT( 82 ) ! XO2+RO2=RO2 PROD( XO2N ) = 6.0000D-02 * RXRAT( 89 ) ! ROOH+OH=0.6000D-01*XO2N+... & + 9.0000D-03 * RXRAT( 125 ) ! ETHA+OH=0.9000D-02*XO2N+... & + 4.0000D-02 * RXRAT( 133 ) ! ROR=0.4000D-01*XO2N+... & + 1.0000D-02 * RXRAT( 141 ) ! OLE+O=0.1000D-01*XO2N+... & + 2.4000D-02 * RXRAT( 142 ) ! OLE+OH=0.2400D-01*XO2N+... & + 4.0000D-02 * RXRAT( 144 ) ! OLE+NO3=0.4000D-01*XO2N+... & + 4.0000D-02 * RXRAT( 148 ) ! IOLE+NO3=0.4000D-01*XO2N+... & + 3.0000D-02 * RXRAT( 157 ) ! ISOP+NO3=0.3000D-01*XO2N+... & + 2.2000D-02 * RXRAT( 158 ) ! ISPD+OH=0.2200D-01*XO2N+... & + 2.5000D-01 * RXRAT( 172 ) ! TERP+OH=0.2500D+00*XO2N+... & + 1.8000D-01 * RXRAT( 173 ) ! TERP+O3=0.1800D+00*XO2N+... & + 2.5000D-01 * RXRAT( 174 ) ! TERP+NO3=0.2500D+00*XO2N+... & + 2.5000D-01 * RXRAT( 176 ) ! APIN+OH=0.2500D+00*XO2N+... & + 1.8000D-01 * RXRAT( 177 ) ! APIN+O3=0.1800D+00*XO2N+... & + 2.5000D-01 * RXRAT( 178 ) ! APIN+NO3=0.2500D+00*XO2N+... & + 2.0000D-02 * RXRAT( 195 ) ! CRES+OH=0.2000D-01*XO2N+... & + 1.0000D-01 * RXRAT( 196 ) ! CRES+NO3=0.1000D+00*XO2N+... & + 1.0000D-01 * RXRAT( 205 ) ! XOPN+NO3=0.1000D+00*XO2N+... & + RXRAT( 221 ) ! XPRP=XO2N+RO2 & + RXRAT( 223 ) ! XPAR=XO2N+RO2 & + 3.0000D-02 * RXRAT( 236 ) ! CL+PRPA=0.3000D-01*XO2N+... & + 9.0000D-03 * RXRAT( 237 ) ! CL+ETHA=0.9000D-02*XO2N+... & + 4.0000D-02 * RXRAT( 241 ) ! CL+ISOP=0.4000D-01*XO2N+... LOSS( XO2N ) = RXRAT( 83 ) ! XO2N+NO=0.5000D+00*NTR1+... & + RXRAT( 84 ) ! XO2N+HO2=ROOH & + RXRAT( 85 ) ! XO2N+C2O3=0.8000D+00*HO2+... & + RXRAT( 86 ) ! XO2N+RO2=RO2 PROD( NTR1 ) = 5.0000D-01 * RXRAT( 83 ) ! XO2N+NO=0.5000D+00*NTR1+... & + RXRAT( 135 ) ! ROR+NO2=NTR1 & + 5.0000D-01 * RXRAT( 140 ) ! ETH+NO3=0.5000D+00*NTR1+... & + 5.0000D-01 * RXRAT( 144 ) ! OLE+NO3=0.5000D+00*NTR1+... & + 5.0000D-01 * RXRAT( 148 ) ! IOLE+NO3=0.5000D+00*NTR1+... LOSS( NTR1 ) = RXRAT( 91 ) ! NTR1+OH=NTR2 & + RXRAT( 92 ) ! NTR1=NO2 PROD( NTR2 ) = 5.0000D-01 * RXRAT( 83 ) ! XO2N+NO=0.5000D+00*NTR2+... & + RXRAT( 91 ) ! NTR1+OH=NTR2 & + 6.5000D-01 * RXRAT( 157 ) ! ISOP+NO3=0.6500D+00*NTR2+... & + 1.4200D-01 * RXRAT( 160 ) ! ISPD+NO3=0.1420D+00*NTR2+... & + 2.6600D-01 * RXRAT( 170 ) ! INTR+OH=0.2660D+00*NTR2+... & + 5.3000D-01 * RXRAT( 174 ) ! TERP+NO3=0.5300D+00*NTR2+... & + 5.3000D-01 * RXRAT( 178 ) ! APIN+NO3=0.5300D+00*NTR2+... & + 8.2000D-02 * RXRAT( 180 ) ! BZO2+NO=0.8200D-01*NTR2+... & + 1.4000D-01 * RXRAT( 185 ) ! TO2+NO=0.1400D+00*NTR2+... & + 1.4000D-01 * RXRAT( 191 ) ! XLO2+NO=0.1400D+00*NTR2+... & + RXRAT( 199 ) ! CRON+OH=NTR2+0.5000D+00*CRO & + RXRAT( 200 ) ! CRON+NO3=NTR2+0.5000D+... & + 5.0000D-01 * RXRAT( 205 ) ! XOPN+NO3=0.5000D+00*NTR2+... & + 5.0000D-01 * RXRAT( 218 ) ! OPAN+OH=0.5000D+00*NTR2+... LOSS( NTR2 ) = RXRAT( 268 ) ! NTR2=HNO3 PROD( FACD ) = RXRAT( 103 ) ! HCO3+NO=FACD+NO2+HO2 & + 5.0000D-01 * RXRAT( 104 ) ! HCO3+HO2=0.5000D+00*FACD+... & + 3.0000D-01 * RXRAT( 136 ) ! ETHY+OH=0.3000D+00*FACD+... & + 3.7000D-01 * RXRAT( 139 ) ! ETH+O3=0.3700D+00*FACD+... & + 9.0000D-02 * RXRAT( 143 ) ! OLE+O3=0.9000D-01*FACD+... & + 1.5000D-01 * RXRAT( 159 ) ! ISPD+O3=0.1500D+00*FACD+... & + 7.4000D-02 * RXRAT( 166 ) ! EPX2+HO2=0.7400D-01*FACD+... & + 1.8500D-01 * RXRAT( 170 ) ! INTR+OH=0.1850D+00*FACD+... LOSS( FACD ) = RXRAT( 93 ) ! FACD+OH=HO2 PROD( CO ) = RXRAT( 96 ) ! FORM+OH=CO+HO2 & + RXRAT( 97 ) ! FORM=CO+0.2000D+01*HO2 & + RXRAT( 98 ) ! FORM=CO & + RXRAT( 99 ) ! FORM+O=CO+HO2+OH & + RXRAT( 100 ) ! FORM+NO3=CO+HO2+HNO3 & + RXRAT( 108 ) ! ALD2=CO+RO2+MEO2+HO2 & + RXRAT( 112 ) ! ALDX=CO+XO2H+RO2+ALD2+HO2 & + 8.9000D-01 * RXRAT( 114 ) ! GLYD=0.8900D+00*CO+0.7400D+... & + 1.8000D+00 * RXRAT( 116 ) ! GLY+OH=0.1800D+01*CO+... & + 2.0000D+00 * RXRAT( 117 ) ! GLY=0.2000D+01*CO+0.2000D+... & + 1.5000D+00 * RXRAT( 118 ) ! GLY+NO3=0.1500D+01*CO+HNO3+... & + RXRAT( 119 ) ! MGLY=CO+HO2+C2O3 & + RXRAT( 121 ) ! MGLY+OH=CO+C2O3 & + 3.8000D-01 * RXRAT( 129 ) ! ACET=0.3800D+00*CO+0.1380D+... & + 3.0000D-01 * RXRAT( 136 ) ! ETHY+OH=0.3000D+00*CO+... & + RXRAT( 137 ) ! ETH+O=CO+HO2+FORM+0.7000D+... & + 5.1000D-01 * RXRAT( 139 ) ! ETH+O3=0.5100D+00*CO+FORM+... & + 2.0000D-01 * RXRAT( 141 ) ! OLE+O=0.2000D+00*CO+... & + 3.7800D-01 * RXRAT( 143 ) ! OLE+O3=0.3780D+00*CO+... & + 1.0000D-01 * RXRAT( 145 ) ! IOLE+O=0.1000D+00*CO+... & + 2.4500D-01 * RXRAT( 147 ) ! IOLE+O3=0.2450D+00*CO+... & + 6.6000D-02 * RXRAT( 156 ) ! ISOP+O3=0.6600D-01*CO+... & + 1.3700D-01 * RXRAT( 158 ) ! ISPD+OH=0.1370D+00*CO+... & + 5.4300D-01 * RXRAT( 159 ) ! ISPD+O3=0.5430D+00*CO+... & + 2.5100D-01 * RXRAT( 166 ) ! EPX2+HO2=0.2510D+00*CO+... & + 2.5100D-01 * RXRAT( 167 ) ! EPX2+NO=0.2510D+00*CO+... & + 2.0000D-01 * RXRAT( 168 ) ! EPX2+C2O3=0.2000D+00*CO+... & + 2.5100D-01 * RXRAT( 169 ) ! EPX2+RO2=0.2510D+00*CO+... & + 1.0000D-03 * RXRAT( 173 ) ! TERP+O3=0.1000D-02*CO+... & + 1.0000D-03 * RXRAT( 177 ) ! APIN+O3=0.1000D-02*CO+... & + 7.0000D-01 * RXRAT( 202 ) ! XOPN=0.7000D+00*CO+XO2H+... & + 5.0000D-01 * RXRAT( 204 ) ! XOPN+O3=0.5000D+00*CO+... & + RXRAT( 206 ) ! OPEN=CO+HO2+OPO3 & + 1.9800D+00 * RXRAT( 208 ) ! OPEN+O3=0.1980D+01*CO+... & + 5.0000D-01 * RXRAT( 212 ) ! OPO3+NO=0.5000D+00*CO+... & + RXRAT( 218 ) ! OPAN+OH=CO+0.5000D+00*GLY+... & + RXRAT( 232 ) ! OH+FMCL=CO+CL & + RXRAT( 233 ) ! FMCL=CO+CL+HO2 & + RXRAT( 242 ) ! CL+FORM=CO+HO2+HCL LOSS( CO ) = RXRAT( 123 ) ! CO+OH=HO2 PROD( HCO3 ) = RXRAT( 101 ) ! FORM+HO2=HCO3 LOSS( HCO3 ) = RXRAT( 102 ) ! HCO3=FORM+HO2 & + RXRAT( 103 ) ! HCO3+NO=FACD+NO2+HO2 & + RXRAT( 104 ) ! HCO3+HO2=0.5000D+00*MEPX+... PROD( ALDX ) = 3.7000D-01 * RXRAT( 133 ) ! ROR=0.3700D+00*ALDX+... & + 3.0000D-01 * RXRAT( 141 ) ! OLE+O=0.3000D+00*ALDX+... & + 4.8800D-01 * RXRAT( 142 ) ! OLE+OH=0.4880D+00*ALDX+... & + 2.7000D-01 * RXRAT( 143 ) ! OLE+O3=0.2700D+00*ALDX+... & + 3.7500D-01 * RXRAT( 144 ) ! OLE+NO3=0.3750D+00*ALDX+... & + 6.6000D-01 * RXRAT( 145 ) ! IOLE+O=0.6600D+00*ALDX+... & + 7.0000D-01 * RXRAT( 146 ) ! IOLE+OH=0.7000D+00*ALDX+... & + 4.4200D-01 * RXRAT( 147 ) ! IOLE+O3=0.4420D+00*ALDX+... & + 6.2500D-01 * RXRAT( 148 ) ! IOLE+NO3=0.6250D+00*ALDX+... & + 1.5000D-01 * RXRAT( 156 ) ! ISOP+O3=0.1500D+00*ALDX+... & + 2.9000D-02 * RXRAT( 162 ) ! ISPX+OH=0.2900D-01*ALDX+... & + 7.8000D-02 * RXRAT( 170 ) ! INTR+OH=0.7800D-01*ALDX+... & + 1.5000D-01 * RXRAT( 171 ) ! TERP+O=0.1500D+00*ALDX+... & + 4.7000D-01 * RXRAT( 172 ) ! TERP+OH=0.4700D+00*ALDX+... & + 2.1000D-01 * RXRAT( 173 ) ! TERP+O3=0.2100D+00*ALDX+... & + 4.7000D-01 * RXRAT( 174 ) ! TERP+NO3=0.4700D+00*ALDX+... & + 1.5000D-01 * RXRAT( 175 ) ! APIN+O=0.1500D+00*ALDX+... & + 4.7000D-01 * RXRAT( 176 ) ! APIN+OH=0.4700D+00*ALDX+... & + 2.1000D-01 * RXRAT( 177 ) ! APIN+O3=0.2100D+00*ALDX+... & + 4.7000D-01 * RXRAT( 178 ) ! APIN+NO3=0.4700D+00*ALDX+... & + 4.4000D-01 * RXRAT( 215 ) ! OPO3+HO2=0.4400D+00*ALDX+... & + RXRAT( 216 ) ! OPO3+C2O3=ALDX+XO2+MEO2+... & + 8.0000D-01 * RXRAT( 217 ) ! OPO3+RO2=0.8000D+00*ALDX+... & + 2.6800D-01 * RXRAT( 222 ) ! XPRP=0.2680D+00*ALDX+... & + 1.2600D-01 * RXRAT( 224 ) ! XPAR=0.1260D+00*ALDX+... & + 6.7000D-01 * RXRAT( 239 ) ! CL+OLE=0.6700D+00*ALDX+... & + 5.5000D-01 * RXRAT( 240 ) ! CL+IOLE=0.5500D+00*ALDX+... LOSS( ALDX ) = RXRAT( 109 ) ! ALDX+O=CXO3+OH & + RXRAT( 110 ) ! ALDX+OH=CXO3 & + RXRAT( 111 ) ! ALDX+NO3=CXO3+HNO3 & + RXRAT( 112 ) ! ALDX=ALD2+XO2H+RO2+CO+HO2 & + RXRAT( 244 ) ! ALDX+CL=HCL+CXO3 PROD( GLYD ) = 1.1000D-02 * RXRAT( 127 ) ! ETOH+OH=0.1100D-01*GLYD+... & + 2.2000D-01 * RXRAT( 138 ) ! ETH+OH=0.2200D+00*GLYD+RO2+... & + 2.6900D-01 * RXRAT( 158 ) ! ISPD+OH=0.2690D+00*GLYD+... & + 1.1300D-01 * RXRAT( 160 ) ! ISPD+NO3=0.1130D+00*GLYD+... & + 1.2800D-01 * RXRAT( 161 ) ! ISPD=0.1280D+00*GLYD+... & + 2.7500D-01 * RXRAT( 166 ) ! EPX2+HO2=0.2750D+00*GLYD+... & + 2.7500D-01 * RXRAT( 167 ) ! EPX2+NO=0.2750D+00*GLYD+... & + 2.2000D-01 * RXRAT( 168 ) ! EPX2+C2O3=0.2200D+00*GLYD+... & + 2.7500D-01 * RXRAT( 169 ) ! EPX2+RO2=0.2750D+00*GLYD+... & + 3.3100D-01 * RXRAT( 170 ) ! INTR+OH=0.3310D+00*GLYD+... LOSS( GLYD ) = RXRAT( 113 ) ! GLYD+OH=0.2000D+00*GLY+... & + RXRAT( 114 ) ! GLYD=0.7400D+00*FORM+... & + RXRAT( 115 ) ! GLYD+NO3=HNO3+C2O3 PROD( GLY ) = 2.0000D-01 * RXRAT( 113 ) ! GLYD+OH=0.2000D+00*GLY+... & + 1.1000D-01 * RXRAT( 114 ) ! GLYD=0.1100D+00*GLY+... & + 7.0000D-01 * RXRAT( 136 ) ! ETHY+OH=0.7000D+00*GLY+... & + 7.5000D-02 * RXRAT( 143 ) ! OLE+O3=0.7500D-01*GLY+... & + 2.4000D-01 * RXRAT( 147 ) ! IOLE+O3=0.2400D+00*GLY+... & + 1.7000D-01 * RXRAT( 159 ) ! ISPD+O3=0.1700D+00*GLY+... & + 2.7500D-01 * RXRAT( 166 ) ! EPX2+HO2=0.2750D+00*GLY+... & + 2.7500D-01 * RXRAT( 167 ) ! EPX2+NO=0.2750D+00*GLY+... & + 2.2000D-01 * RXRAT( 168 ) ! EPX2+C2O3=0.2200D+00*GLY+... & + 2.7500D-01 * RXRAT( 169 ) ! EPX2+RO2=0.2750D+00*GLY+... & + 9.1800D-01 * RXRAT( 180 ) ! BZO2+NO=0.9180D+00*GLY+... & + RXRAT( 181 ) ! BZO2+C2O3=GLY+OPEN+HO2+... & + RXRAT( 183 ) ! BZO2+RO2=GLY+OPEN+HO2+RO2 & + 4.1700D-01 * RXRAT( 185 ) ! TO2+NO=0.4170D+00*GLY+... & + 4.8000D-01 * RXRAT( 186 ) ! TO2+C2O3=0.4800D+00*GLY+... & + 4.8000D-01 * RXRAT( 188 ) ! TO2+RO2=0.4800D+00*GLY+... & + 2.2100D-01 * RXRAT( 191 ) ! XLO2+NO=0.2210D+00*GLY+... & + 2.6000D-01 * RXRAT( 193 ) ! XLO2+C2O3=0.2600D+00*GLY+... & + 2.6000D-01 * RXRAT( 194 ) ! XLO2+RO2=0.2600D+00*GLY+... & + 2.5000D-02 * RXRAT( 195 ) ! CRES+OH=0.2500D-01*GLY+... & + 2.4000D-01 * RXRAT( 196 ) ! CRES+NO3=0.2400D+00*GLY+... & + 4.0000D-01 * RXRAT( 202 ) ! XOPN=0.4000D+00*GLY+XO2H+... & + 4.0000D-01 * RXRAT( 203 ) ! XOPN+OH=0.4000D+00*GLY+... & + 4.0000D-01 * RXRAT( 207 ) ! OPEN+OH=0.4000D+00*GLY+... & + 1.4000D+00 * RXRAT( 208 ) ! OPEN+O3=0.1400D+01*GLY+... & + 5.0000D-01 * RXRAT( 212 ) ! OPO3+NO=0.5000D+00*GLY+NO2+... & + 5.0000D-01 * RXRAT( 218 ) ! OPAN+OH=0.5000D+00*GLY+... LOSS( GLY ) = RXRAT( 116 ) ! GLY+OH=0.1800D+01*CO+... & + RXRAT( 117 ) ! GLY=0.2000D+01*HO2+0.2000D+... & + RXRAT( 118 ) ! GLY+NO3=HNO3+0.1500D+01*CO+... & + RXRAT( 281 ) ! GLY=AGLYJ PROD( MGLY ) = 7.5000D-02 * RXRAT( 143 ) ! OLE+O3=0.7500D-01*MGLY+... & + 6.0000D-02 * RXRAT( 147 ) ! IOLE+O3=0.6000D-01*MGLY+... & + 1.1500D-01 * RXRAT( 158 ) ! ISPD+OH=0.1150D+00*MGLY+... & + 5.3100D-01 * RXRAT( 159 ) ! ISPD+O3=0.5310D+00*MGLY+... & + 1.1300D-01 * RXRAT( 160 ) ! ISPD+NO3=0.1130D+00*MGLY+... & + 2.7500D-01 * RXRAT( 166 ) ! EPX2+HO2=0.2750D+00*MGLY+... & + 2.7500D-01 * RXRAT( 167 ) ! EPX2+NO=0.2750D+00*MGLY+... & + 2.2000D-01 * RXRAT( 168 ) ! EPX2+C2O3=0.2200D+00*MGLY+... & + 2.7500D-01 * RXRAT( 169 ) ! EPX2+RO2=0.2750D+00*MGLY+... & + 4.4300D-01 * RXRAT( 185 ) ! TO2+NO=0.4430D+00*MGLY+... & + 5.2000D-01 * RXRAT( 186 ) ! TO2+C2O3=0.5200D+00*MGLY+... & + 5.2000D-01 * RXRAT( 188 ) ! TO2+RO2=0.5200D+00*MGLY+... & + 6.7500D-01 * RXRAT( 191 ) ! XLO2+NO=0.6750D+00*MGLY+... & + 7.7000D-01 * RXRAT( 193 ) ! XLO2+C2O3=0.7700D+00*MGLY+... & + 7.7000D-01 * RXRAT( 194 ) ! XLO2+RO2=0.7700D+00*MGLY+... & + 2.4000D-01 * RXRAT( 196 ) ! CRES+NO3=0.2400D+00*MGLY+... & + RXRAT( 203 ) ! XOPN+OH=MGLY+0.4000D+... & + 1.2000D+00 * RXRAT( 204 ) ! XOPN+O3=0.1200D+01*MGLY+... & + 2.5000D-01 * RXRAT( 205 ) ! XOPN+NO3=0.2500D+00*MGLY+... & + 2.4000D-01 * RXRAT( 208 ) ! OPEN+O3=0.2400D+00*MGLY+... LOSS( MGLY ) = RXRAT( 119 ) ! MGLY=C2O3+HO2+CO & + RXRAT( 120 ) ! MGLY+NO3=HNO3+C2O3+XO2+RO2 & + RXRAT( 121 ) ! MGLY+OH=C2O3+CO & + RXRAT( 282 ) ! MGLY=AGLYJ PROD( ETHA ) = 0.0D0 LOSS( ETHA ) = RXRAT( 125 ) ! ETHA+OH=0.9910D+00*ALD2+... & + RXRAT( 237 ) ! ETHA+CL=HCL+0.9910D+... PROD( ETOH ) = 0.0D0 LOSS( ETOH ) = RXRAT( 127 ) ! ETOH+OH=0.9500D+00*ALD2+... & + RXRAT( 246 ) ! ETOH+CL=HCL+HO2+ALD2 PROD( KET ) = 2.0000D-01 * RXRAT( 133 ) ! ROR=0.2000D+00*KET+0.4200D+... & + RXRAT( 134 ) ! ROR=KET+HO2 LOSS( KET ) = RXRAT( 128 ) ! KET=0.5000D+00*ALD2+... PROD( PAR ) = 2.0000D-01 * RXRAT( 141 ) ! OLE+O=0.2000D+00*PAR+... & + 1.0000D-01 * RXRAT( 145 ) ! IOLE+O=0.1000D+00*PAR+... & + 2.9000D-01 * RXRAT( 147 ) ! IOLE+O3=0.2900D+00*PAR+... & + RXRAT( 148 ) ! IOLE+NO3=PAR+0.5000D+... & + 2.5000D-01 * RXRAT( 150 ) ! ISOP+O=0.2500D+00*PAR+... & + 3.5000D-01 * RXRAT( 156 ) ! ISOP+O3=0.3500D+00*PAR+... & + 1.1700D-01 * RXRAT( 158 ) ! ISPD+OH=0.1170D+00*PAR+... & + 7.1700D-01 * RXRAT( 160 ) ! ISPD+NO3=0.7170D+00*PAR+... & + 2.4000D-01 * RXRAT( 161 ) ! ISPD=0.2400D+00*PAR+... & + 2.1750D+00 * RXRAT( 166 ) ! EPX2+HO2=0.2175D+01*PAR+... & + 2.1750D+00 * RXRAT( 167 ) ! EPX2+NO=0.2175D+01*PAR+... & + 1.7400D+00 * RXRAT( 168 ) ! EPX2+C2O3=0.1740D+01*PAR+... & + 2.1750D+00 * RXRAT( 169 ) ! EPX2+RO2=0.2175D+01*PAR+... & + 2.7000D+00 * RXRAT( 170 ) ! INTR+OH=0.2700D+01*PAR+... & + 5.1200D+00 * RXRAT( 171 ) ! TERP+O=0.5120D+01*PAR+... & + 1.6600D+00 * RXRAT( 172 ) ! TERP+OH=0.1660D+01*PAR+... & + 7.0000D+00 * RXRAT( 173 ) ! TERP+O3=0.7000D+01*PAR+... & + 5.1200D+00 * RXRAT( 175 ) ! APIN+O=0.5120D+01*PAR+... & + 1.6600D+00 * RXRAT( 176 ) ! APIN+OH=0.1660D+01*PAR+... & + 7.0000D+00 * RXRAT( 177 ) ! APIN+O3=0.7000D+01*PAR+... & + 2.6800D-01 * RXRAT( 222 ) ! XPRP=0.2680D+00*PAR+... & + 3.0000D-01 * RXRAT( 240 ) ! CL+IOLE=0.3000D+00*PAR+... LOSS( PAR ) = 2.5000D+00 * RXRAT( 128 ) ! KET=-0.2500D+01*PAR+... & + RXRAT( 132 ) ! PAR+OH=XPAR & + 2.7000D+00 * RXRAT( 133 ) ! ROR=-0.2700D+01*PAR+... & + 7.3000D-01 * RXRAT( 142 ) ! OLE+OH=-0.7300D+00*PAR+... & + 7.9000D-01 * RXRAT( 143 ) ! OLE+O3=-0.7900D+00*PAR+... & + RXRAT( 144 ) ! OLE+NO3=-PAR+0.5000D+... & + 1.2600D-01 * RXRAT( 224 ) ! XPAR=-0.1260D+00*PAR+... & + RXRAT( 235 ) ! PAR+CL=HCL+XPAR & + RXRAT( 239 ) ! CL+OLE=-PAR+0.3300D+... PROD( ACET ) = 4.2000D-01 * RXRAT( 133 ) ! ROR=0.4200D+00*ACET+... & + 1.3700D-01 * RXRAT( 158 ) ! ISPD+OH=0.1370D+00*ACET+... & + 1.7000D-01 * RXRAT( 159 ) ! ISPD+O3=0.1700D+00*ACET+... & + 1.7000D-01 * RXRAT( 161 ) ! ISPD=0.1700D+00*ACET+... & + 7.3200D-01 * RXRAT( 222 ) ! XPRP=0.7320D+00*ACET+... & + RXRAT( 236 ) ! CL+PRPA=ACET+HCL+0.9700D+... LOSS( ACET ) = RXRAT( 129 ) ! ACET=0.3800D+00*CO+0.1380D+... & + RXRAT( 130 ) ! ACET+OH=FORM+C2O3+XO2+RO2 PROD( PRPA ) = 0.0D0 LOSS( PRPA ) = RXRAT( 131 ) ! PRPA+OH=XPRP & + RXRAT( 236 ) ! PRPA+CL=HCL+ACET+0.9700D+... PROD( XPRP ) = RXRAT( 131 ) ! PRPA+OH=XPRP LOSS( XPRP ) = RXRAT( 221 ) ! XPRP=XO2N+RO2 & + RXRAT( 222 ) ! XPRP=0.7320D+00*ACET+... PROD( XPAR ) = RXRAT( 132 ) ! PAR+OH=XPAR & + RXRAT( 235 ) ! CL+PAR=XPAR+HCL LOSS( XPAR ) = RXRAT( 223 ) ! XPAR=XO2N+RO2 & + RXRAT( 224 ) ! XPAR=0.1260D+00*ALDX+... PROD( ROR ) = 8.7400D-01 * RXRAT( 224 ) ! XPAR=0.8740D+00*ROR+... LOSS( ROR ) = 9.8000D-01 * RXRAT( 133 ) ! ROR=0.2000D-01*ROR+0.4200D+... & + RXRAT( 134 ) ! ROR=KET+HO2 & + RXRAT( 135 ) ! ROR+NO2=NTR1 PROD( ETHY ) = 0.0D0 LOSS( ETHY ) = RXRAT( 136 ) ! ETHY+OH=0.7000D+00*GLY+... PROD( ETH ) = 0.0D0 LOSS( ETH ) = RXRAT( 137 ) ! ETH+O=FORM+HO2+CO+0.7000D+... & + RXRAT( 138 ) ! ETH+OH=XO2H+RO2+0.1560D+... & + RXRAT( 139 ) ! ETH+O3=FORM+0.5100D+00*CO+... & + RXRAT( 140 ) ! ETH+NO3=0.5000D+00*NO2+... & + RXRAT( 238 ) ! ETH+CL=FMCL+0.2000D+01*XO2+... PROD( OLE ) = 2.4000D-01 * RXRAT( 161 ) ! ISPD=0.2400D+00*OLE+... & + 9.8000D-02 * RXRAT( 170 ) ! INTR+OH=0.9800D-01*OLE+... & + 3.0000D-01 * RXRAT( 240 ) ! CL+IOLE=0.3000D+00*OLE+... LOSS( OLE ) = RXRAT( 141 ) ! OLE+O=0.2000D+00*ALD2+... & + RXRAT( 142 ) ! OLE+OH=0.7810D+00*FORM+... & + RXRAT( 143 ) ! OLE+O3=0.2950D+00*ALD2+... & + RXRAT( 144 ) ! OLE+NO3=0.5000D+00*NO2+... & + RXRAT( 239 ) ! OLE+CL=FMCL+0.3300D+... PROD( IOLE ) = 2.9000D-02 * RXRAT( 162 ) ! ISPX+OH=0.2900D-01*IOLE+... LOSS( IOLE ) = RXRAT( 145 ) ! IOLE+O=0.1240D+01*ALD2+... & + RXRAT( 146 ) ! IOLE+OH=0.1300D+01*ALD2+... & + RXRAT( 147 ) ! IOLE+O3=0.7320D+00*ALD2+... & + RXRAT( 148 ) ! IOLE+NO3=0.5000D+00*NO2+... & + RXRAT( 240 ) ! IOLE+CL=0.3000D+00*HCL+... PROD( ISOP ) = 0.0D0 LOSS( ISOP ) = RXRAT( 149 ) ! ISOP+OH=ISO2+RO2+ISOPRXN & + RXRAT( 150 ) ! ISOP+O=0.7500D+00*ISPD+... & + RXRAT( 156 ) ! ISOP+O3=0.6000D+00*FORM+... & + RXRAT( 157 ) ! ISOP+NO3=0.3500D+00*NO2+... & + RXRAT( 241 ) ! ISOP+CL=FMCL+ISPD+0.9600D+... PROD( ISO2 ) = RXRAT( 149 ) ! ISOP+OH=ISO2+RO2+ISOPRXN & + 6.7000D-02 * RXRAT( 162 ) ! ISPX+OH=0.6700D-01*ISO2+... LOSS( ISO2 ) = RXRAT( 151 ) ! ISO2+NO=0.1000D+00*INTR+... & + RXRAT( 152 ) ! ISO2+HO2=0.8800D+00*ISPX+... & + RXRAT( 153 ) ! ISO2+C2O3=0.5980D+00*FORM+... & + RXRAT( 154 ) ! ISO2+RO2=0.5980D+00*FORM+... & + RXRAT( 155 ) ! ISO2=HO2+HPLD PROD( ISOPRXN ) = RXRAT( 149 ) ! ISOP+OH=ISOPRXN+RO2+ISO2 & + RXRAT( 157 ) ! ISOP+NO3=ISOPRXN+0.6500D+... LOSS( ISOPRXN ) = 0.0D0 PROD( ISPD ) = 7.5000D-01 * RXRAT( 150 ) ! ISOP+O=0.7500D+00*ISPD+... & + 9.0000D-01 * RXRAT( 151 ) ! ISO2+NO=0.9000D+00*ISPD+... & + 1.2000D-01 * RXRAT( 152 ) ! ISO2+HO2=0.1200D+00*ISPD+... & + RXRAT( 153 ) ! ISO2+C2O3=ISPD+0.5980D+... & + RXRAT( 154 ) ! ISO2+RO2=ISPD+0.5980D+... & + 6.5000D-01 * RXRAT( 156 ) ! ISOP+O3=0.6500D+00*ISPD+... & + 3.5000D-01 * RXRAT( 157 ) ! ISOP+NO3=0.3500D+00*ISPD+... & + RXRAT( 163 ) ! HPLD=ISPD+OH & + RXRAT( 164 ) ! HPLD+NO3=ISPD+HNO3 & + RXRAT( 241 ) ! CL+ISOP=ISPD+FMCL+0.9600D+... LOSS( ISPD ) = RXRAT( 158 ) ! ISPD+OH=0.2200D-01*XO2N+... & + RXRAT( 159 ) ! ISPD+O3=0.4000D-01*ALD2+... & + RXRAT( 160 ) ! ISPD+NO3=0.7170D+00*HNO3+... & + RXRAT( 161 ) ! ISPD=0.7600D+00*HO2+... PROD( INTR ) = 1.0000D-01 * RXRAT( 151 ) ! ISO2+NO=0.1000D+00*INTR+... LOSS( INTR ) = 8.9600D-01 * RXRAT( 170 ) ! INTR+OH=0.1040D+00*INTR+... PROD( ISPX ) = 8.8000D-01 * RXRAT( 152 ) ! ISO2+HO2=0.8800D+00*ISPX+... LOSS( ISPX ) = RXRAT( 162 ) ! ISPX+OH=0.9040D+00*EPOX+... PROD( HPLD ) = RXRAT( 155 ) ! ISO2=HPLD+HO2 LOSS( HPLD ) = RXRAT( 163 ) ! HPLD=OH+ISPD & + RXRAT( 164 ) ! HPLD+NO3=HNO3+ISPD PROD( OPO3 ) = 4.5700D-01 * RXRAT( 158 ) ! ISPD+OH=0.4570D+00*OPO3+... & + 4.8000D-01 * RXRAT( 196 ) ! CRES+NO3=0.4800D+00*OPO3+... & + RXRAT( 206 ) ! OPEN=OPO3+HO2+CO & + 6.0000D-01 * RXRAT( 207 ) ! OPEN+OH=0.6000D+00*OPO3+... & + RXRAT( 209 ) ! OPEN+NO3=OPO3+HNO3 & + RXRAT( 214 ) ! OPAN=OPO3+NO2 LOSS( OPO3 ) = RXRAT( 212 ) ! OPO3+NO=NO2+0.5000D+00*GLY+... & + RXRAT( 213 ) ! OPO3+NO2=OPAN & + RXRAT( 215 ) ! OPO3+HO2=0.4100D+00*PACD+... & + RXRAT( 216 ) ! OPO3+C2O3=MEO2+XO2+ALDX+... & + RXRAT( 217 ) ! OPO3+RO2=0.8000D+00*XO2H+... PROD( EPOX ) = 9.0400D-01 * RXRAT( 162 ) ! ISPX+OH=0.9040D+00*EPOX+... LOSS( EPOX ) = RXRAT( 165 ) ! EPOX+OH=EPX2+RO2 & + RXRAT( 278 ) ! EPOX=IEPOXP PROD( EPX2 ) = RXRAT( 165 ) ! EPOX+OH=EPX2+RO2 LOSS( EPX2 ) = RXRAT( 166 ) ! EPX2+HO2=0.2750D+00*GLYD+... & + RXRAT( 167 ) ! EPX2+NO=0.2750D+00*GLYD+... & + RXRAT( 168 ) ! EPX2+C2O3=0.2200D+00*GLYD+... & + RXRAT( 169 ) ! EPX2+RO2=0.2750D+00*GLYD+... PROD( TERP ) = 0.0D0 LOSS( TERP ) = RXRAT( 171 ) ! TERP+O=0.1500D+00*ALDX+... & + RXRAT( 172 ) ! TERP+OH=0.7500D+00*XO2H+... & + RXRAT( 173 ) ! TERP+O3=0.5700D+00*OH+... & + RXRAT( 174 ) ! TERP+NO3=0.4700D+00*NO2+... PROD( TRPRXN ) = RXRAT( 171 ) ! TERP+O=TRPRXN+0.5120D+... & + RXRAT( 172 ) ! TERP+OH=TRPRXN+0.5000D+... & + RXRAT( 173 ) ! TERP+O3=TRPRXN+0.7000D-... & + RXRAT( 175 ) ! APIN+O=TRPRXN+0.5120D+... & + RXRAT( 176 ) ! APIN+OH=TRPRXN+0.5000D+... & + RXRAT( 177 ) ! APIN+O3=TRPRXN+0.7000D-... LOSS( TRPRXN ) = 0.0D0 PROD( TERPNRO2 ) = RXRAT( 174 ) ! TERP+NO3=TERPNRO2+0.2800D+... LOSS( TERPNRO2 ) = RXRAT( 283 ) ! TERPNRO2+NO=NO+0.6880D+... & + RXRAT( 284 ) ! TERPNRO2+HO2=HO2+MTNO3 & + RXRAT( 285 ) ! TERPNRO2+NO3=NO3+0.4220D+... & + RXRAT( 286 ) ! TERPNRO2+RO2=RO2+0.7110D+... PROD( APIN ) = 0.0D0 LOSS( APIN ) = RXRAT( 175 ) ! APIN+O=0.1500D+00*ALDX+... & + RXRAT( 176 ) ! APIN+OH=0.7500D+00*XO2H+... & + RXRAT( 177 ) ! APIN+O3=0.5700D+00*OH+... & + RXRAT( 178 ) ! APIN+NO3=0.4700D+00*NO2+... PROD( BENZENE ) = 0.0D0 LOSS( BENZENE ) = RXRAT( 179 ) ! BENZENE+OH=0.5300D+00*CRES+... PROD( CRES ) = 5.3000D-01 * RXRAT( 179 ) ! BENZENE+OH=0.5300D+00*CRES+... & + 1.8000D-01 * RXRAT( 184 ) ! TOL+OH=0.1800D+00*CRES+... & + 1.5500D-01 * RXRAT( 189 ) ! XYLMN+OH=0.1550D+00*CRES+... & + 1.5500D-01 * RXRAT( 190 ) ! NAPH+OH=0.1550D+00*CRES+... & + RXRAT( 198 ) ! CRO+HO2=CRES & + 1.8000D-01 * RXRAT( 248 ) ! CL+TOL=0.1800D+00*CRES+HCL+... & + 1.5500D-01 * RXRAT( 249 ) ! CL+XYLMN=0.1550D+00*CRES+... & + 1.5500D-01 * RXRAT( 250 ) ! CL+NAPH=0.1550D+00*CRES+... LOSS( CRES ) = RXRAT( 195 ) ! CRES+OH=0.2500D-01*GLY+... & + RXRAT( 196 ) ! CRES+NO3=0.3000D+00*CRO+... PROD( BZO2 ) = 3.5200D-01 * RXRAT( 179 ) ! BENZENE+OH=0.3520D+00*BZO2+... LOSS( BZO2 ) = RXRAT( 180 ) ! BZO2+NO=0.9180D+00*NO2+... & + RXRAT( 181 ) ! BZO2+C2O3=GLY+OPEN+HO2+... & + RXRAT( 182 ) ! BZO2+HO2= & + RXRAT( 183 ) ! BZO2+RO2=GLY+OPEN+HO2+RO2 PROD( OPEN ) = 1.1800D-01 * RXRAT( 179 ) ! BENZENE+OH=0.1180D+00*OPEN+... & + 9.1800D-01 * RXRAT( 180 ) ! BZO2+NO=0.9180D+00*OPEN+... & + RXRAT( 181 ) ! BZO2+C2O3=OPEN+GLY+HO2+... & + RXRAT( 183 ) ! BZO2+RO2=OPEN+GLY+HO2+RO2 & + 1.0000D-01 * RXRAT( 184 ) ! TOL+OH=0.1000D+00*OPEN+... & + 6.6000D-01 * RXRAT( 185 ) ! TO2+NO=0.6600D+00*OPEN+... & + 7.7000D-01 * RXRAT( 186 ) ! TO2+C2O3=0.7700D+00*OPEN+... & + 7.7000D-01 * RXRAT( 188 ) ! TO2+RO2=0.7700D+00*OPEN+... & + 3.0000D-01 * RXRAT( 191 ) ! XLO2+NO=0.3000D+00*OPEN+... & + 3.5000D-01 * RXRAT( 193 ) ! XLO2+C2O3=0.3500D+00*OPEN+... & + 3.5000D-01 * RXRAT( 194 ) ! XLO2+RO2=0.3500D+00*OPEN+... & + 2.5000D-02 * RXRAT( 195 ) ! CRES+OH=0.2500D-01*OPEN+... & + RXRAT( 201 ) ! CRON=OPEN+HO2+FORM+HONO & + 2.5000D-01 * RXRAT( 205 ) ! XOPN+NO3=0.2500D+00*OPEN+... & + 1.0000D-01 * RXRAT( 248 ) ! CL+TOL=0.1000D+00*OPEN+... LOSS( OPEN ) = RXRAT( 206 ) ! OPEN=OPO3+HO2+CO & + RXRAT( 207 ) ! OPEN+OH=0.6000D+00*OPO3+... & + RXRAT( 208 ) ! OPEN+O3=0.1400D+01*GLY+... & + RXRAT( 209 ) ! OPEN+NO3=OPO3+HNO3 PROD( BENZRO2 ) = RXRAT( 179 ) ! BENZENE+OH=BENZRO2+0.3520D+... LOSS( BENZRO2 ) = RXRAT( 260 ) ! BENZRO2+NO=NO+0.3400D-... & + RXRAT( 261 ) ! BENZRO2+HO2=HO2+0.1460D+... PROD( TOL ) = 0.0D0 LOSS( TOL ) = RXRAT( 184 ) ! TOL+OH=0.1800D+00*CRES+... & + RXRAT( 248 ) ! TOL+CL=HCL+0.1800D+00*CRES+... PROD( TO2 ) = 6.5000D-01 * RXRAT( 184 ) ! TOL+OH=0.6500D+00*TO2+... & + 6.5000D-01 * RXRAT( 248 ) ! CL+TOL=0.6500D+00*TO2+... LOSS( TO2 ) = RXRAT( 185 ) ! TO2+NO=0.8600D+00*NO2+... & + RXRAT( 186 ) ! TO2+C2O3=0.4800D+00*GLY+... & + RXRAT( 187 ) ! TO2+HO2= & + RXRAT( 188 ) ! TO2+RO2=0.4800D+00*GLY+... PROD( TOLRO2 ) = RXRAT( 184 ) ! TOL+OH=TOLRO2+0.6500D+... & + RXRAT( 248 ) ! CL+TOL=TOLRO2+0.1800D+... LOSS( TOLRO2 ) = RXRAT( 256 ) ! TOLRO2+NO=NO+0.1600D-... & + RXRAT( 257 ) ! TOLRO2+HO2=HO2+0.1400D+... PROD( XOPN ) = 2.0000D-01 * RXRAT( 185 ) ! TO2+NO=0.2000D+00*XOPN+... & + 2.3000D-01 * RXRAT( 186 ) ! TO2+C2O3=0.2300D+00*XOPN+... & + 2.3000D-01 * RXRAT( 188 ) ! TO2+RO2=0.2300D+00*XOPN+... & + 2.4400D-01 * RXRAT( 189 ) ! XYLMN+OH=0.2440D+00*XOPN+... & + 2.4400D-01 * RXRAT( 190 ) ! NAPH+OH=0.2440D+00*XOPN+... & + 5.6000D-01 * RXRAT( 191 ) ! XLO2+NO=0.5600D+00*XOPN+... & + 6.5000D-01 * RXRAT( 193 ) ! XLO2+C2O3=0.6500D+00*XOPN+... & + 6.5000D-01 * RXRAT( 194 ) ! XLO2+RO2=0.6500D+00*XOPN+... & + 2.4400D-01 * RXRAT( 249 ) ! CL+XYLMN=0.2440D+00*XOPN+... & + 2.4400D-01 * RXRAT( 250 ) ! CL+NAPH=0.2440D+00*XOPN+... LOSS( XOPN ) = RXRAT( 202 ) ! XOPN=0.4000D+00*GLY+XO2H+... & + RXRAT( 203 ) ! XOPN+OH=MGLY+0.4000D+... & + RXRAT( 204 ) ! XOPN+O3=0.1200D+01*MGLY+... & + RXRAT( 205 ) ! XOPN+NO3=0.5000D+00*NO2+... PROD( XYLMN ) = 0.0D0 LOSS( XYLMN ) = RXRAT( 189 ) ! XYLMN+OH=0.1550D+00*CRES+... & + RXRAT( 249 ) ! XYLMN+CL=HCL+0.1550D+... PROD( XLO2 ) = 5.4400D-01 * RXRAT( 189 ) ! XYLMN+OH=0.5440D+00*XLO2+... & + 5.4400D-01 * RXRAT( 190 ) ! NAPH+OH=0.5440D+00*XLO2+... & + 5.4400D-01 * RXRAT( 249 ) ! CL+XYLMN=0.5440D+00*XLO2+... & + 5.4400D-01 * RXRAT( 250 ) ! CL+NAPH=0.5440D+00*XLO2+... LOSS( XLO2 ) = RXRAT( 191 ) ! XLO2+NO=0.8600D+00*NO2+... & + RXRAT( 192 ) ! XLO2+HO2= & + RXRAT( 193 ) ! XLO2+C2O3=0.2600D+00*GLY+... & + RXRAT( 194 ) ! XLO2+RO2=0.2600D+00*GLY+... PROD( XYLRO2 ) = RXRAT( 189 ) ! XYLMN+OH=XYLRO2+0.5440D+... & + RXRAT( 249 ) ! CL+XYLMN=XYLRO2+0.1550D+... LOSS( XYLRO2 ) = RXRAT( 258 ) ! XYLRO2+NO=NO+0.1500D-... & + RXRAT( 259 ) ! XYLRO2+HO2=HO2+0.1930D+... PROD( NAPH ) = 0.0D0 LOSS( NAPH ) = RXRAT( 190 ) ! NAPH+OH=0.1550D+00*CRES+... & + RXRAT( 250 ) ! NAPH+CL=HCL+0.1550D+... PROD( PAHRO2 ) = RXRAT( 190 ) ! NAPH+OH=PAHRO2+0.5440D+... & + RXRAT( 250 ) ! CL+NAPH=PAHRO2+0.1550D+... LOSS( PAHRO2 ) = RXRAT( 265 ) ! PAHRO2+NO=NO+0.2800D-... & + RXRAT( 266 ) ! PAHRO2+HO2=HO2+0.4730D+... PROD( CRO ) = 2.0000D-01 * RXRAT( 195 ) ! CRES+OH=0.2000D+00*CRO+... & + 3.0000D-01 * RXRAT( 196 ) ! CRES+NO3=0.3000D+00*CRO+... & + 5.0000D-01 * RXRAT( 199 ) ! CRON+OH=0.5000D+00*CRO+NTR2 & + 5.0000D-01 * RXRAT( 200 ) ! CRON+NO3=0.5000D+00*CRO+... & + 5.0000D-01 * RXRAT( 210 ) ! CAT1+OH=0.5000D+00*CRO+... & + RXRAT( 211 ) ! CAT1+NO3=CRO+HNO3 LOSS( CRO ) = RXRAT( 197 ) ! CRO+NO2=CRON & + RXRAT( 198 ) ! CRO+HO2=CRES PROD( CAT1 ) = 7.3200D-01 * RXRAT( 195 ) ! CRES+OH=0.7320D+00*CAT1+... LOSS( CAT1 ) = RXRAT( 210 ) ! CAT1+OH=0.1400D+00*FORM+... & + RXRAT( 211 ) ! CAT1+NO3=CRO+HNO3 PROD( CRON ) = RXRAT( 197 ) ! CRO+NO2=CRON LOSS( CRON ) = RXRAT( 199 ) ! CRON+OH=NTR2+0.5000D+00*CRO & + RXRAT( 200 ) ! CRON+NO3=NTR2+0.5000D+... & + RXRAT( 201 ) ! CRON=HONO+HO2+FORM+OPEN PROD( OPAN ) = RXRAT( 213 ) ! OPO3+NO2=OPAN LOSS( OPAN ) = RXRAT( 214 ) ! OPAN=OPO3+NO2 & + RXRAT( 218 ) ! OPAN+OH=0.5000D+00*NO2+... PROD( ECH4 ) = 0.0D0 LOSS( ECH4 ) = RXRAT( 220 ) ! ECH4+OH=MEO2+RO2 PROD( CL2 ) = 3.0000D-01 * RXRAT( 228 ) ! CLO+CLO=0.3000D+00*CL2+... LOSS( CL2 ) = RXRAT( 225 ) ! CL2=0.2000D+01*CL PROD( CL ) = 2.0000D+00 * RXRAT( 225 ) ! CL2=0.2000D+01*CL & + RXRAT( 226 ) ! HOCL=CL+OH & + 1.4000D+00 * RXRAT( 228 ) ! CLO+CLO=0.1400D+01*CL+... & + RXRAT( 229 ) ! CLO+NO=CL+NO2 & + RXRAT( 231 ) ! CLO+MEO2=CL+FORM+HO2 & + RXRAT( 232 ) ! OH+FMCL=CL+CO & + RXRAT( 233 ) ! FMCL=CL+CO+HO2 & + RXRAT( 247 ) ! HCL+OH=CL & + RXRAT( 251 ) ! CLNO2=CL+NO2 & + RXRAT( 254 ) ! CLNO3=CL+NO3 LOSS( CL ) = RXRAT( 227 ) ! CL+O3=CLO & + RXRAT( 234 ) ! CL=HCL+MEO2+RO2 & + RXRAT( 235 ) ! CL+PAR=HCL+XPAR & + RXRAT( 236 ) ! CL+PRPA=HCL+ACET+0.9700D+... & + RXRAT( 237 ) ! CL+ETHA=HCL+0.9910D+... & + RXRAT( 238 ) ! CL+ETH=FMCL+0.2000D+01*XO2+... & + RXRAT( 239 ) ! CL+OLE=FMCL+0.3300D+... & + RXRAT( 240 ) ! CL+IOLE=0.3000D+00*HCL+... & + RXRAT( 241 ) ! CL+ISOP=FMCL+ISPD+0.9600D+... & + RXRAT( 242 ) ! CL+FORM=HCL+HO2+CO & + RXRAT( 243 ) ! CL+ALD2=HCL+C2O3 & + RXRAT( 244 ) ! CL+ALDX=HCL+CXO3 & + RXRAT( 245 ) ! CL+MEOH=HCL+HO2+FORM & + RXRAT( 246 ) ! CL+ETOH=HCL+HO2+ALD2 & + RXRAT( 248 ) ! CL+TOL=HCL+0.1800D+00*CRES+... & + RXRAT( 249 ) ! CL+XYLMN=HCL+0.1550D+... & + RXRAT( 250 ) ! CL+NAPH=HCL+0.1550D+... PROD( HOCL ) = RXRAT( 230 ) ! CLO+HO2=HOCL & + RXRAT( 255 ) ! CLNO3=HOCL+HNO3 LOSS( HOCL ) = RXRAT( 226 ) ! HOCL=OH+CL PROD( CLO ) = RXRAT( 227 ) ! CL+O3=CLO & + RXRAT( 253 ) ! CLNO3=CLO+NO2 LOSS( CLO ) = 2.0000D+00 * RXRAT( 228 ) ! CLO+CLO=0.3000D+00*CL2+... & + RXRAT( 229 ) ! CLO+NO=CL+NO2 & + RXRAT( 230 ) ! CLO+HO2=HOCL & + RXRAT( 231 ) ! CLO+MEO2=CL+FORM+HO2 & + RXRAT( 252 ) ! CLO+NO2=CLNO3 PROD( FMCL ) = RXRAT( 238 ) ! CL+ETH=FMCL+0.2000D+01*XO2+... & + RXRAT( 239 ) ! CL+OLE=FMCL+0.3300D+... & + 7.0000D-01 * RXRAT( 240 ) ! CL+IOLE=0.7000D+00*FMCL+... & + RXRAT( 241 ) ! CL+ISOP=FMCL+ISPD+0.9600D+... LOSS( FMCL ) = RXRAT( 232 ) ! FMCL+OH=CL+CO & + RXRAT( 233 ) ! FMCL=CL+CO+HO2 PROD( HCL ) = RXRAT( 234 ) ! CL=HCL+MEO2+RO2 & + RXRAT( 235 ) ! CL+PAR=HCL+XPAR & + RXRAT( 236 ) ! CL+PRPA=HCL+ACET+0.9700D+... & + RXRAT( 237 ) ! CL+ETHA=HCL+0.9910D+... & + 3.0000D-01 * RXRAT( 240 ) ! CL+IOLE=0.3000D+00*HCL+... & + RXRAT( 242 ) ! CL+FORM=HCL+HO2+CO & + RXRAT( 243 ) ! CL+ALD2=HCL+C2O3 & + RXRAT( 244 ) ! CL+ALDX=HCL+CXO3 & + RXRAT( 245 ) ! CL+MEOH=HCL+HO2+FORM & + RXRAT( 246 ) ! CL+ETOH=HCL+HO2+ALD2 & + RXRAT( 248 ) ! CL+TOL=HCL+0.1800D+00*CRES+... & + RXRAT( 249 ) ! CL+XYLMN=HCL+0.1550D+... & + RXRAT( 250 ) ! CL+NAPH=HCL+0.1550D+... LOSS( HCL ) = RXRAT( 247 ) ! HCL+OH=CL PROD( CLNO2 ) = RXRAT( 273 ) ! H2NO3PIJ+ACLI=CLNO2 & + RXRAT( 274 ) ! H2NO3PIJ+ACLJ=CLNO2 & + RXRAT( 275 ) ! H2NO3PK+ACLK=CLNO2 LOSS( CLNO2 ) = RXRAT( 251 ) ! CLNO2=CL+NO2 PROD( CLNO3 ) = RXRAT( 252 ) ! CLO+NO2=CLNO3 LOSS( CLNO3 ) = RXRAT( 253 ) ! CLNO3=CLO+NO2 & + RXRAT( 254 ) ! CLNO3=CL+NO3 & + RXRAT( 255 ) ! CLNO3=HOCL+HNO3 PROD( SVAVB2 ) = 1.6000D-02 * RXRAT( 256 ) ! TOLRO2+NO=0.1600D-... & + 1.5000D-02 * RXRAT( 258 ) ! XYLRO2+NO=0.1500D-... & + 3.4000D-02 * RXRAT( 260 ) ! BENZRO2+NO=0.3400D-... & + 2.8000D-02 * RXRAT( 265 ) ! PAHRO2+NO=0.2800D-... & + 6.0000D-03 * RXRAT( 267 ) ! SOAALK+OH=0.6000D-... LOSS( SVAVB2 ) = 0.0D0 PROD( SVAVB3 ) = 5.1000D-02 * RXRAT( 256 ) ! TOLRO2+NO=0.5100D-... & + 2.3000D-02 * RXRAT( 258 ) ! XYLRO2+NO=0.2300D-... & + 2.2500D-01 * RXRAT( 265 ) ! PAHRO2+NO=0.2250D+... & + 5.2000D-02 * RXRAT( 267 ) ! SOAALK+OH=0.5200D-... LOSS( SVAVB3 ) = 0.0D0 PROD( SVAVB4 ) = 4.7000D-02 * RXRAT( 256 ) ! TOLRO2+NO=0.4700D-... & + 6.0000D-02 * RXRAT( 258 ) ! XYLRO2+NO=0.6000D-... & + 3.9200D-01 * RXRAT( 260 ) ! BENZRO2+NO=0.3920D+... & + 1.9100D-01 * RXRAT( 265 ) ! PAHRO2+NO=0.1910D+... & + 8.1000D-02 * RXRAT( 267 ) ! SOAALK+OH=0.8100D-... LOSS( SVAVB4 ) = 0.0D0 PROD( SVAVB1 ) = 1.4000D-01 * RXRAT( 257 ) ! TOLRO2+HO2=0.1400D+... & + 1.9300D-01 * RXRAT( 259 ) ! XYLRO2+HO2=0.1930D+... & + 1.4600D-01 * RXRAT( 261 ) ! BENZRO2+HO2=0.1460D+... & + 4.7300D-01 * RXRAT( 266 ) ! PAHRO2+HO2=0.4730D+... LOSS( SVAVB1 ) = 0.0D0 PROD( SESQ ) = 0.0D0 LOSS( SESQ ) = RXRAT( 262 ) ! SESQ+O3=O3+SESQRXN & + RXRAT( 263 ) ! SESQ+OH=OH+SESQRXN & + RXRAT( 264 ) ! SESQ+NO3=NO3+SESQRXN PROD( SESQRXN ) = RXRAT( 262 ) ! SESQ+O3=SESQRXN+O3 & + RXRAT( 263 ) ! SESQ+OH=SESQRXN+OH & + RXRAT( 264 ) ! SESQ+NO3=SESQRXN+NO3 LOSS( SESQRXN ) = 0.0D0 PROD( SOAALK ) = 0.0D0 LOSS( SOAALK ) = RXRAT( 267 ) ! SOAALK+OH=OH+0.6000D-... PROD( H2NO3PIJ ) = RXRAT( 269 ) ! N2O5=H2NO3PIJ+HNO3 LOSS( H2NO3PIJ ) = RXRAT( 271 ) ! H2NO3PIJ=HNO3 & + RXRAT( 273 ) ! H2NO3PIJ+ACLI=CLNO2 & + RXRAT( 274 ) ! H2NO3PIJ+ACLJ=CLNO2 PROD( H2NO3PK ) = RXRAT( 270 ) ! N2O5=H2NO3PK+HNO3 LOSS( H2NO3PK ) = RXRAT( 272 ) ! H2NO3PK=HNO3 & + RXRAT( 275 ) ! H2NO3PK+ACLK=CLNO2 PROD( ACLI ) = 0.0D0 LOSS( ACLI ) = RXRAT( 273 ) ! ACLI+H2NO3PIJ=CLNO2 PROD( ACLJ ) = 0.0D0 LOSS( ACLJ ) = RXRAT( 274 ) ! ACLJ+H2NO3PIJ=CLNO2 PROD( ACLK ) = 0.0D0 LOSS( ACLK ) = RXRAT( 275 ) ! ACLK+H2NO3PK=CLNO2 PROD( IEPOXP ) = RXRAT( 278 ) ! EPOX=IEPOXP LOSS( IEPOXP ) = RXRAT( 279 ) ! IEPOXP+ASO4J=AISO3J & + RXRAT( 280 ) ! IEPOXP=AISO3J PROD( ASO4J ) = 0.0D0 LOSS( ASO4J ) = RXRAT( 279 ) ! ASO4J+IEPOXP=AISO3J PROD( AISO3J ) = RXRAT( 279 ) ! IEPOXP+ASO4J=AISO3J & + RXRAT( 280 ) ! IEPOXP=AISO3J LOSS( AISO3J ) = 0.0D0 PROD( AGLYJ ) = RXRAT( 281 ) ! GLY=AGLYJ & + RXRAT( 282 ) ! MGLY=AGLYJ LOSS( AGLYJ ) = 0.0D0 PROD( MTNO3 ) = 6.8800D-01 * RXRAT( 283 ) ! TERPNRO2+NO=0.6880D+... & + RXRAT( 284 ) ! TERPNRO2+HO2=MTNO3+HO2 & + 4.2200D-01 * RXRAT( 285 ) ! TERPNRO2+NO3=0.4220D+... & + 7.1100D-01 * RXRAT( 286 ) ! TERPNRO2+RO2=0.7110D+... LOSS( MTNO3 ) = 6.3000D-01 * RXRAT( 287 ) ! MTNO3+CL=0.3700D+00*MTNO3+CL & + 7.6000D-01 * RXRAT( 288 ) ! MTNO3+OH=0.2400D+00*MTNO3+OH & + RXRAT( 289 ) ! MTNO3= PROD( AMTNO3J ) = 0.0D0 LOSS( AMTNO3J ) = RXRAT( 290 ) ! AMTNO3J=AMTHYDJ PROD( AMTHYDJ ) = RXRAT( 290 ) ! AMTNO3J=AMTHYDJ LOSS( AMTHYDJ ) = 0.0D0 PROD( AAVB2J ) = 0.0D0 LOSS( AAVB2J ) = RXRAT( 291 ) ! AAVB2J=0.9070D+00*AOLGAJ PROD( AOLGAJ ) = 9.0700D-01 * RXRAT( 291 ) ! AAVB2J=0.9070D+00*AOLGAJ & + 9.2500D-01 * RXRAT( 292 ) ! AAVB3J=0.9250D+00*AOLGAJ & + 9.4300D-01 * RXRAT( 293 ) ! AAVB4J=0.9430D+00*AOLGAJ LOSS( AOLGAJ ) = 0.0D0 PROD( AAVB3J ) = 0.0D0 LOSS( AAVB3J ) = RXRAT( 292 ) ! AAVB3J=0.9250D+00*AOLGAJ PROD( AAVB4J ) = 0.0D0 LOSS( AAVB4J ) = RXRAT( 293 ) ! AAVB4J=0.9430D+00*AOLGAJ PROD( AISO1J ) = 0.0D0 LOSS( AISO1J ) = RXRAT( 294 ) ! AISO1J=0.5000D+00*AOLGBJ PROD( AOLGBJ ) = 5.0000D-01 * RXRAT( 294 ) ! AISO1J=0.5000D+00*AOLGBJ & + 5.0000D-01 * RXRAT( 295 ) ! AISO2J=0.5000D+00*AOLGBJ & + 1.5000D+00 * RXRAT( 296 ) ! ASQTJ=0.1500D+01*AOLGBJ LOSS( AOLGBJ ) = 0.0D0 PROD( AISO2J ) = 0.0D0 LOSS( AISO2J ) = RXRAT( 295 ) ! AISO2J=0.5000D+00*AOLGBJ PROD( ASQTJ ) = 0.0D0 LOSS( ASQTJ ) = RXRAT( 296 ) ! ASQTJ=0.1500D+01*AOLGBJ PROD( APOCI ) = 0.0D0 LOSS( APOCI ) = 0.0D0 PROD( APNCOMI ) = 1.2500D+00 * RXRAT( 297 ) ! APOCI+OH=0.1250D+... LOSS( APNCOMI ) = RXRAT( 298 ) ! APNCOMI+OH=OH PROD( APOCJ ) = 0.0D0 LOSS( APOCJ ) = 0.0D0 PROD( APNCOMJ ) = 1.2500D+00 * RXRAT( 299 ) ! APOCJ+OH=0.1250D+... LOSS( APNCOMJ ) = RXRAT( 300 ) ! APNCOMJ+OH=OH PROD( PCVOC ) = 0.0D0 LOSS( PCVOC ) = RXRAT( 301 ) ! PCVOC+OH=OH+PCSOARXN PROD( PCSOARXN ) = RXRAT( 301 ) ! PCVOC+OH=PCSOARXN+OH LOSS( PCSOARXN ) = 0.0D0 PROD( VLVPO1 ) = 3.0030D-01 * RXRAT( 303 ) ! VSVPO1+OH=0.3003D+... & + 3.8560D-01 * RXRAT( 304 ) ! VSVPO2+OH=0.3856D+... & + 2.1810D-01 * RXRAT( 305 ) ! VSVPO3+OH=0.2181D+... & + 2.4120D-01 * RXRAT( 306 ) ! VIVPO1+OH=0.2412D+... LOSS( VLVPO1 ) = 5.1430D-01 * RXRAT( 302 ) ! VLVPO1+OH=0.4857D+... PROD( VSVPO1 ) = 6.2000D-03 * RXRAT( 302 ) ! VLVPO1+OH=0.6200D-... & + 9.5000D-02 * RXRAT( 304 ) ! VSVPO2+OH=0.9500D-... & + 3.0630D-01 * RXRAT( 305 ) ! VSVPO3+OH=0.3063D+... & + 2.0890D-01 * RXRAT( 306 ) ! VIVPO1+OH=0.2089D+... LOSS( VSVPO1 ) = 7.1380D-01 * RXRAT( 303 ) ! VSVPO1+OH=0.2862D+... PROD( VSVPO2 ) = 2.5000D-03 * RXRAT( 302 ) ! VLVPO1+OH=0.2500D-... & + 4.1000D-03 * RXRAT( 303 ) ! VSVPO1+OH=0.4100D-... & + 1.5300D-02 * RXRAT( 305 ) ! VSVPO3+OH=0.1530D-... & + 3.0000D-01 * RXRAT( 306 ) ! VIVPO1+OH=0.3000D+... LOSS( VSVPO2 ) = 8.6270D-01 * RXRAT( 304 ) ! VSVPO2+OH=0.1373D+... PROD( VSVPO3 ) = 2.6000D-03 * RXRAT( 302 ) ! VLVPO1+OH=0.2600D-... & + 3.5000D-03 * RXRAT( 303 ) ! VSVPO1+OH=0.3500D-... & + 5.0000D-04 * RXRAT( 304 ) ! VSVPO2+OH=0.5000D-... LOSS( VSVPO3 ) = 8.9570D-01 * RXRAT( 305 ) ! VSVPO3+OH=0.1043D+... PROD( VIVPO1 ) = 2.3000D-03 * RXRAT( 302 ) ! VLVPO1+OH=0.2300D-... LOSS( VIVPO1 ) = RXRAT( 306 ) ! VIVPO1+OH=OH+0.2412D+... PROD( VLVOO1 ) = 2.9440D-01 * RXRAT( 302 ) ! VLVPO1+OH=0.2944D+... & + 2.2390D-01 * RXRAT( 303 ) ! VSVPO1+OH=0.2239D+... & + 2.0510D-01 * RXRAT( 304 ) ! VSVPO2+OH=0.2051D+... & + 1.8930D-01 * RXRAT( 305 ) ! VSVPO3+OH=0.1893D+... & + 2.0280D-01 * RXRAT( 306 ) ! VIVPO1+OH=0.2028D+... & + 2.8580D-01 * RXRAT( 308 ) ! VLVOO2+OH=0.2858D+... & + 3.3030D-01 * RXRAT( 309 ) ! VSVOO1+OH=0.3303D+... & + 3.4440D-01 * RXRAT( 310 ) ! VSVOO2+OH=0.3444D+... & + 3.8860D-01 * RXRAT( 311 ) ! VSVOO3+OH=0.3886D+... LOSS( VLVOO1 ) = 3.3360D-01 * RXRAT( 307 ) ! VLVOO1+OH=0.6664D+... PROD( VLVOO2 ) = 2.0210D-01 * RXRAT( 302 ) ! VLVPO1+OH=0.2021D+... & + 1.8200D-01 * RXRAT( 303 ) ! VSVPO1+OH=0.1820D+... & + 1.7640D-01 * RXRAT( 304 ) ! VSVPO2+OH=0.1764D+... & + 1.6680D-01 * RXRAT( 305 ) ! VSVPO3+OH=0.1668D+... & + 4.7100D-02 * RXRAT( 306 ) ! VIVPO1+OH=0.4710D-... & + 1.4300D-02 * RXRAT( 307 ) ! VLVOO1+OH=0.1430D-... & + 2.2720D-01 * RXRAT( 309 ) ! VSVOO1+OH=0.2272D+... & + 2.7490D-01 * RXRAT( 310 ) ! VSVOO2+OH=0.2749D+... & + 2.4210D-01 * RXRAT( 311 ) ! VSVOO3+OH=0.2421D+... LOSS( VLVOO2 ) = 6.0690D-01 * RXRAT( 308 ) ! VLVOO2+OH=0.3931D+... PROD( VSVOO2 ) = 1.9000D-03 * RXRAT( 302 ) ! VLVPO1+OH=0.1900D-... & + 1.2390D-01 * RXRAT( 307 ) ! VLVOO1+OH=0.1239D+... & + 1.0270D-01 * RXRAT( 308 ) ! VLVOO2+OH=0.1027D+... & + 7.0200D-02 * RXRAT( 309 ) ! VSVOO1+OH=0.7020D-... & + 3.8500D-02 * RXRAT( 311 ) ! VSVOO3+OH=0.3850D-... LOSS( VSVOO2 ) = 7.4230D-01 * RXRAT( 310 ) ! VSVOO2+OH=0.2577D+... PROD( VSVOO3 ) = 2.3000D-03 * RXRAT( 302 ) ! VLVPO1+OH=0.2300D-... & + 1.8310D-01 * RXRAT( 307 ) ! VLVOO1+OH=0.1831D+... & + 2.0450D-01 * RXRAT( 308 ) ! VLVOO2+OH=0.2045D+... & + 1.1160D-01 * RXRAT( 309 ) ! VSVOO1+OH=0.1116D+... & + 7.3900D-02 * RXRAT( 310 ) ! VSVOO2+OH=0.7390D-... LOSS( VSVOO3 ) = 7.3330D-01 * RXRAT( 311 ) ! VSVOO3+OH=0.2667D+... PROD( VSVOO1 ) = 1.2300D-02 * RXRAT( 307 ) ! VLVOO1+OH=0.1230D-... & + 1.3900D-02 * RXRAT( 308 ) ! VLVOO2+OH=0.1390D-... & + 4.9100D-02 * RXRAT( 310 ) ! VSVOO2+OH=0.4910D-... & + 6.4000D-02 * RXRAT( 311 ) ! VSVOO3+OH=0.6400D-... LOSS( VSVOO1 ) = 7.3930D-01 * RXRAT( 309 ) ! VSVOO1+OH=0.2607D+... PROD( FORM_PRIMARY ) = 0.0D0 LOSS( FORM_PRIMARY ) = RXRAT( 312 ) ! FORM_PRIMARY+OH=OH & + RXRAT( 313 ) ! FORM_PRIMARY+NO3=NO3 & + RXRAT( 314 ) ! FORM_PRIMARY+O=O & + RXRAT( 315 ) ! FORM_PRIMARY= & + RXRAT( 316 ) ! FORM_PRIMARY= & + RXRAT( 317 ) ! FORM_PRIMARY+CL=CL PROD( ALD2_PRIMARY ) = 0.0D0 LOSS( ALD2_PRIMARY ) = RXRAT( 318 ) ! ALD2_PRIMARY+OH=OH & + RXRAT( 319 ) ! ALD2_PRIMARY+NO3=NO3 & + RXRAT( 320 ) ! ALD2_PRIMARY+O=O & + RXRAT( 321 ) ! ALD2_PRIMARY= & + RXRAT( 322 ) ! ALD2_PRIMARY+CL=CL PROD( BUTADIENE13 ) = 0.0D0 LOSS( BUTADIENE13 ) = RXRAT( 323 ) ! BUTADIENE13+OH=OH+0.5800D+... & + RXRAT( 324 ) ! BUTADIENE13+O3=O3+0.5200D+... & + RXRAT( 325 ) ! BUTADIENE13+NO3=NO3+... & + RXRAT( 326 ) ! BUTADIENE13+CL=CL+0.5800D+... PROD( ACROLEIN ) = 5.8000D-01 * RXRAT( 323 ) ! BUTADIENE13+OH=0.5800D+... & + 5.2000D-01 * RXRAT( 324 ) ! BUTADIENE13+O3=0.5200D+... & + 4.5000D-02 * RXRAT( 325 ) ! BUTADIENE13+NO3=0.4500D-... & + 5.8000D-01 * RXRAT( 326 ) ! BUTADIENE13+CL=0.5800D+... LOSS( ACROLEIN ) = RXRAT( 332 ) ! ACROLEIN+OH=OH & + RXRAT( 333 ) ! ACROLEIN+O3=O3 & + RXRAT( 334 ) ! ACROLEIN+NO3=NO3 & + RXRAT( 335 ) ! ACROLEIN= & + RXRAT( 336 ) ! ACROLEIN+CL=CL PROD( ACRO_PRIMARY ) = 0.0D0 LOSS( ACRO_PRIMARY ) = RXRAT( 327 ) ! ACRO_PRIMARY+OH=OH & + RXRAT( 328 ) ! ACRO_PRIMARY+O3=O3 & + RXRAT( 329 ) ! ACRO_PRIMARY+NO3=NO3 & + RXRAT( 330 ) ! ACRO_PRIMARY= & + RXRAT( 331 ) ! ACRO_PRIMARY+CL=CL PROD( TOLU ) = 0.0D0 LOSS( TOLU ) = RXRAT( 337 ) ! TOLU+OH=OH & + RXRAT( 338 ) ! TOLU+CL=CL PROD( HG ) = 0.0D0 LOSS( HG ) = RXRAT( 339 ) ! HG+O3=0.5000D+00*HGIIAER+... & + RXRAT( 340 ) ! HG+CL2=HGIIGAS+CL2 & + RXRAT( 341 ) ! HG+H2O2=HGIIGAS+H2O2 & + RXRAT( 342 ) ! HG+OH=0.5000D+00*HGIIAER+... & + 5.0000D-01 * RXRAT( 343 ) ! HG+CL=0.5000D+00*HG+... PROD( HGIIAER ) = 5.0000D-01 * RXRAT( 339 ) ! HG+O3=0.5000D+00*HGIIAER+... & + 5.0000D-01 * RXRAT( 342 ) ! HG+OH=0.5000D+00*HGIIAER+... LOSS( HGIIAER ) = 0.0D0 PROD( HGIIGAS ) = 5.0000D-01 * RXRAT( 339 ) ! HG+O3=0.5000D+00*HGIIGAS+... & + RXRAT( 340 ) ! HG+CL2=HGIIGAS+CL2 & + RXRAT( 341 ) ! HG+H2O2=HGIIGAS+H2O2 & + 5.0000D-01 * RXRAT( 342 ) ! HG+OH=0.5000D+00*HGIIGAS+... & + 5.0000D-01 * RXRAT( 343 ) ! HG+CL=0.5000D+00*HGIIGAS+... LOSS( HGIIGAS ) = 0.0D0 PNEG( PAR ) = 2.5000D+00 * RXRAT( 128 ) ! KET=-0.2500D+01*PAR+... & + 2.7000D+00 * RXRAT( 133 ) ! ROR=-0.2700D+01*PAR+... & + 7.3000D-01 * RXRAT( 142 ) ! OLE+OH=-0.7300D+00*PAR+... & + 7.9000D-01 * RXRAT( 143 ) ! OLE+O3=-0.7900D+00*PAR+... & + RXRAT( 144 ) ! OLE+NO3=-PAR+0.5000D+... & + 1.2600D-01 * RXRAT( 224 ) ! XPAR=-0.1260D+00*PAR+... & + RXRAT( 239 ) ! CL+OLE=-PAR+0.3300D+... RETURN END ================================================ FILE: CCTM/src/gas/ebi_cb6r3_ae7_aq/hrrates.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE HRRATES C*********************************************************************** C C FUNCTION: To calculate rates of reactions C C PRECONDITIONS: For the CB6R3_AE7_AQ mechanism C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by EBI solver program, Jun 8, 2022 C C*********************************************************************** USE HRDATA IMPLICIT NONE C.....INCLUDES: NONE C.....ARGUMENTS: NONE C.....PARAMETERS: NONE C.....EXTERNAL FUNCTIONS: NONE C.....SAVED VARIABLES: NONE ! CHARACTER( 16 ), SAVE :: PNAME = 'HRRATES' ! Program name C.....LOCAL VARIABLES: None C*********************************************************************** C..NOTE: RXRAT commented out are not referenced by any routine ! RXRAT( 1 ) = RKI( 1 ) * YC( NO2 ) ! RXRAT( 2 ) = RKI( 2 ) * YC( O ) ! RXRAT( 3 ) = RKI( 3 ) * YC( O3 ) * YC( NO ) ! RXRAT( 4 ) = RKI( 4 ) * YC( O ) * YC( NO ) ! RXRAT( 5 ) = RKI( 5 ) * YC( O ) * YC( NO2 ) RXRAT( 6 ) = RKI( 6 ) * YC( O ) * YC( NO2 ) ! RXRAT( 7 ) = RKI( 7 ) * YC( O ) * YC( O3 ) RXRAT( 8 ) = RKI( 8 ) * YC( O3 ) RXRAT( 9 ) = RKI( 9 ) * YC( O3 ) ! RXRAT( 10 ) = RKI( 10 ) * YC( O1D ) ! RXRAT( 11 ) = RKI( 11 ) * YC( O1D ) ! RXRAT( 12 ) = RKI( 12 ) * YC( O3 ) * YC( OH ) ! RXRAT( 13 ) = RKI( 13 ) * YC( O3 ) * YC( HO2 ) ! RXRAT( 14 ) = RKI( 14 ) * YC( OH ) * YC( O ) ! RXRAT( 15 ) = RKI( 15 ) * YC( HO2 ) * YC( O ) RXRAT( 16 ) = RKI( 16 ) * YC( OH ) * YC( OH ) RXRAT( 17 ) = RKI( 17 ) * YC( OH ) * YC( OH ) ! RXRAT( 18 ) = RKI( 18 ) * YC( OH ) * YC( HO2 ) RXRAT( 19 ) = RKI( 19 ) * YC( HO2 ) * YC( HO2 ) RXRAT( 20 ) = RKI( 20 ) * YC( HO2 ) * YC( HO2 ) RXRAT( 21 ) = RKI( 21 ) * YC( H2O2 ) RXRAT( 22 ) = RKI( 22 ) * YC( H2O2 ) * YC( OH ) RXRAT( 23 ) = RKI( 23 ) * YC( H2O2 ) * YC( O ) ! RXRAT( 24 ) = RKI( 24 ) * YC( NO ) * YC( NO ) ! RXRAT( 25 ) = RKI( 25 ) * YC( HO2 ) * YC( NO ) RXRAT( 26 ) = RKI( 26 ) * YC( NO2 ) * YC( O3 ) RXRAT( 27 ) = RKI( 27 ) * YC( NO3 ) RXRAT( 28 ) = RKI( 28 ) * YC( NO3 ) RXRAT( 29 ) = RKI( 29 ) * YC( NO3 ) * YC( NO ) RXRAT( 30 ) = RKI( 30 ) * YC( NO3 ) * YC( NO2 ) RXRAT( 31 ) = RKI( 31 ) * YC( NO3 ) * YC( O ) RXRAT( 32 ) = RKI( 32 ) * YC( NO3 ) * YC( OH ) RXRAT( 33 ) = RKI( 33 ) * YC( NO3 ) * YC( HO2 ) RXRAT( 34 ) = RKI( 34 ) * YC( NO3 ) * YC( O3 ) RXRAT( 35 ) = RKI( 35 ) * YC( NO3 ) * YC( NO3 ) ! RXRAT( 36 ) = RKI( 36 ) * YC( NO3 ) * YC( NO2 ) RXRAT( 37 ) = RKI( 37 ) * YC( N2O5 ) RXRAT( 38 ) = RKI( 38 ) * YC( N2O5 ) RXRAT( 39 ) = RKI( 39 ) * YC( N2O5 ) ! RXRAT( 40 ) = RKI( 40 ) * YC( NO ) * YC( OH ) RXRAT( 41 ) = RKI( 41 ) * YC( NO ) * YC( NO2 ) RXRAT( 42 ) = RKI( 42 ) * YC( HONO ) * YC( HONO ) RXRAT( 43 ) = RKI( 43 ) * YC( HONO ) RXRAT( 44 ) = RKI( 44 ) * YC( HONO ) * YC( OH ) RXRAT( 45 ) = RKI( 45 ) * YC( NO2 ) * YC( OH ) RXRAT( 46 ) = RKI( 46 ) * YC( HNO3 ) * YC( OH ) RXRAT( 47 ) = RKI( 47 ) * YC( HNO3 ) ! RXRAT( 48 ) = RKI( 48 ) * YC( HO2 ) * YC( NO2 ) RXRAT( 49 ) = RKI( 49 ) * YC( PNA ) RXRAT( 50 ) = RKI( 50 ) * YC( PNA ) RXRAT( 51 ) = RKI( 51 ) * YC( PNA ) * YC( OH ) RXRAT( 52 ) = RKI( 52 ) * YC( SO2 ) * YC( OH ) RXRAT( 53 ) = RKI( 53 ) * YC( C2O3 ) * YC( NO ) ! RXRAT( 54 ) = RKI( 54 ) * YC( C2O3 ) * YC( NO2 ) RXRAT( 55 ) = RKI( 55 ) * YC( PAN ) RXRAT( 56 ) = RKI( 56 ) * YC( PAN ) RXRAT( 57 ) = RKI( 57 ) * YC( C2O3 ) * YC( HO2 ) RXRAT( 58 ) = RKI( 58 ) * YC( C2O3 ) * YC( RO2 ) RXRAT( 59 ) = RKI( 59 ) * YC( C2O3 ) * YC( C2O3 ) RXRAT( 60 ) = RKI( 60 ) * YC( C2O3 ) * YC( CXO3 ) RXRAT( 61 ) = RKI( 61 ) * YC( CXO3 ) * YC( NO ) RXRAT( 62 ) = RKI( 62 ) * YC( CXO3 ) * YC( NO2 ) RXRAT( 63 ) = RKI( 63 ) * YC( PANX ) RXRAT( 64 ) = RKI( 64 ) * YC( PANX ) RXRAT( 65 ) = RKI( 65 ) * YC( CXO3 ) * YC( HO2 ) RXRAT( 66 ) = RKI( 66 ) * YC( CXO3 ) * YC( RO2 ) RXRAT( 67 ) = RKI( 67 ) * YC( CXO3 ) * YC( CXO3 ) RXRAT( 68 ) = RKI( 68 ) * YC( RO2 ) * YC( NO ) RXRAT( 69 ) = RKI( 69 ) * YC( RO2 ) * YC( HO2 ) RXRAT( 70 ) = RKI( 70 ) * YC( RO2 ) * YC( RO2 ) RXRAT( 71 ) = RKI( 71 ) * YC( MEO2 ) * YC( NO ) RXRAT( 72 ) = RKI( 72 ) * YC( MEO2 ) * YC( HO2 ) RXRAT( 73 ) = RKI( 73 ) * YC( MEO2 ) * YC( C2O3 ) RXRAT( 74 ) = RKI( 74 ) * YC( MEO2 ) * YC( RO2 ) RXRAT( 75 ) = RKI( 75 ) * YC( XO2H ) * YC( NO ) RXRAT( 76 ) = RKI( 76 ) * YC( XO2H ) * YC( HO2 ) RXRAT( 77 ) = RKI( 77 ) * YC( XO2H ) * YC( C2O3 ) RXRAT( 78 ) = RKI( 78 ) * YC( XO2H ) * YC( RO2 ) RXRAT( 79 ) = RKI( 79 ) * YC( XO2 ) * YC( NO ) RXRAT( 80 ) = RKI( 80 ) * YC( XO2 ) * YC( HO2 ) RXRAT( 81 ) = RKI( 81 ) * YC( XO2 ) * YC( C2O3 ) RXRAT( 82 ) = RKI( 82 ) * YC( XO2 ) * YC( RO2 ) RXRAT( 83 ) = RKI( 83 ) * YC( XO2N ) * YC( NO ) RXRAT( 84 ) = RKI( 84 ) * YC( XO2N ) * YC( HO2 ) RXRAT( 85 ) = RKI( 85 ) * YC( XO2N ) * YC( C2O3 ) RXRAT( 86 ) = RKI( 86 ) * YC( XO2N ) * YC( RO2 ) RXRAT( 87 ) = RKI( 87 ) * YC( MEPX ) * YC( OH ) RXRAT( 88 ) = RKI( 88 ) * YC( MEPX ) RXRAT( 89 ) = RKI( 89 ) * YC( ROOH ) * YC( OH ) RXRAT( 90 ) = RKI( 90 ) * YC( ROOH ) RXRAT( 91 ) = RKI( 91 ) * YC( NTR1 ) * YC( OH ) RXRAT( 92 ) = RKI( 92 ) * YC( NTR1 ) RXRAT( 93 ) = RKI( 93 ) * YC( FACD ) * YC( OH ) RXRAT( 94 ) = RKI( 94 ) * YC( AACD ) * YC( OH ) RXRAT( 95 ) = RKI( 95 ) * YC( PACD ) * YC( OH ) RXRAT( 96 ) = RKI( 96 ) * YC( FORM ) * YC( OH ) RXRAT( 97 ) = RKI( 97 ) * YC( FORM ) RXRAT( 98 ) = RKI( 98 ) * YC( FORM ) RXRAT( 99 ) = RKI( 99 ) * YC( FORM ) * YC( O ) RXRAT( 100 ) = RKI( 100 ) * YC( FORM ) * YC( NO3 ) RXRAT( 101 ) = RKI( 101 ) * YC( FORM ) * YC( HO2 ) RXRAT( 102 ) = RKI( 102 ) * YC( HCO3 ) RXRAT( 103 ) = RKI( 103 ) * YC( HCO3 ) * YC( NO ) RXRAT( 104 ) = RKI( 104 ) * YC( HCO3 ) * YC( HO2 ) RXRAT( 105 ) = RKI( 105 ) * YC( ALD2 ) * YC( O ) RXRAT( 106 ) = RKI( 106 ) * YC( ALD2 ) * YC( OH ) RXRAT( 107 ) = RKI( 107 ) * YC( ALD2 ) * YC( NO3 ) RXRAT( 108 ) = RKI( 108 ) * YC( ALD2 ) RXRAT( 109 ) = RKI( 109 ) * YC( ALDX ) * YC( O ) RXRAT( 110 ) = RKI( 110 ) * YC( ALDX ) * YC( OH ) RXRAT( 111 ) = RKI( 111 ) * YC( ALDX ) * YC( NO3 ) RXRAT( 112 ) = RKI( 112 ) * YC( ALDX ) RXRAT( 113 ) = RKI( 113 ) * YC( GLYD ) * YC( OH ) RXRAT( 114 ) = RKI( 114 ) * YC( GLYD ) RXRAT( 115 ) = RKI( 115 ) * YC( GLYD ) * YC( NO3 ) RXRAT( 116 ) = RKI( 116 ) * YC( GLY ) * YC( OH ) RXRAT( 117 ) = RKI( 117 ) * YC( GLY ) RXRAT( 118 ) = RKI( 118 ) * YC( GLY ) * YC( NO3 ) RXRAT( 119 ) = RKI( 119 ) * YC( MGLY ) RXRAT( 120 ) = RKI( 120 ) * YC( MGLY ) * YC( NO3 ) RXRAT( 121 ) = RKI( 121 ) * YC( MGLY ) * YC( OH ) ! RXRAT( 122 ) = RKI( 122 ) * YC( OH ) RXRAT( 123 ) = RKI( 123 ) * YC( CO ) * YC( OH ) RXRAT( 124 ) = RKI( 124 ) * YC( OH ) RXRAT( 125 ) = RKI( 125 ) * YC( ETHA ) * YC( OH ) RXRAT( 126 ) = RKI( 126 ) * YC( MEOH ) * YC( OH ) RXRAT( 127 ) = RKI( 127 ) * YC( ETOH ) * YC( OH ) RXRAT( 128 ) = RKI( 128 ) * YC( KET ) RXRAT( 129 ) = RKI( 129 ) * YC( ACET ) RXRAT( 130 ) = RKI( 130 ) * YC( ACET ) * YC( OH ) RXRAT( 131 ) = RKI( 131 ) * YC( PRPA ) * YC( OH ) RXRAT( 132 ) = RKI( 132 ) * YC( PAR ) * YC( OH ) RXRAT( 133 ) = RKI( 133 ) * YC( ROR ) RXRAT( 134 ) = RKI( 134 ) * YC( ROR ) RXRAT( 135 ) = RKI( 135 ) * YC( ROR ) * YC( NO2 ) RXRAT( 136 ) = RKI( 136 ) * YC( ETHY ) * YC( OH ) RXRAT( 137 ) = RKI( 137 ) * YC( ETH ) * YC( O ) RXRAT( 138 ) = RKI( 138 ) * YC( ETH ) * YC( OH ) RXRAT( 139 ) = RKI( 139 ) * YC( ETH ) * YC( O3 ) RXRAT( 140 ) = RKI( 140 ) * YC( ETH ) * YC( NO3 ) RXRAT( 141 ) = RKI( 141 ) * YC( OLE ) * YC( O ) RXRAT( 142 ) = RKI( 142 ) * YC( OLE ) * YC( OH ) RXRAT( 143 ) = RKI( 143 ) * YC( OLE ) * YC( O3 ) RXRAT( 144 ) = RKI( 144 ) * YC( OLE ) * YC( NO3 ) RXRAT( 145 ) = RKI( 145 ) * YC( IOLE ) * YC( O ) RXRAT( 146 ) = RKI( 146 ) * YC( IOLE ) * YC( OH ) RXRAT( 147 ) = RKI( 147 ) * YC( IOLE ) * YC( O3 ) RXRAT( 148 ) = RKI( 148 ) * YC( IOLE ) * YC( NO3 ) RXRAT( 149 ) = RKI( 149 ) * YC( ISOP ) * YC( OH ) RXRAT( 150 ) = RKI( 150 ) * YC( ISOP ) * YC( O ) RXRAT( 151 ) = RKI( 151 ) * YC( ISO2 ) * YC( NO ) RXRAT( 152 ) = RKI( 152 ) * YC( ISO2 ) * YC( HO2 ) RXRAT( 153 ) = RKI( 153 ) * YC( ISO2 ) * YC( C2O3 ) RXRAT( 154 ) = RKI( 154 ) * YC( ISO2 ) * YC( RO2 ) RXRAT( 155 ) = RKI( 155 ) * YC( ISO2 ) RXRAT( 156 ) = RKI( 156 ) * YC( ISOP ) * YC( O3 ) RXRAT( 157 ) = RKI( 157 ) * YC( ISOP ) * YC( NO3 ) RXRAT( 158 ) = RKI( 158 ) * YC( ISPD ) * YC( OH ) RXRAT( 159 ) = RKI( 159 ) * YC( ISPD ) * YC( O3 ) RXRAT( 160 ) = RKI( 160 ) * YC( ISPD ) * YC( NO3 ) RXRAT( 161 ) = RKI( 161 ) * YC( ISPD ) RXRAT( 162 ) = RKI( 162 ) * YC( ISPX ) * YC( OH ) RXRAT( 163 ) = RKI( 163 ) * YC( HPLD ) RXRAT( 164 ) = RKI( 164 ) * YC( HPLD ) * YC( NO3 ) RXRAT( 165 ) = RKI( 165 ) * YC( EPOX ) * YC( OH ) RXRAT( 166 ) = RKI( 166 ) * YC( EPX2 ) * YC( HO2 ) RXRAT( 167 ) = RKI( 167 ) * YC( EPX2 ) * YC( NO ) RXRAT( 168 ) = RKI( 168 ) * YC( EPX2 ) * YC( C2O3 ) RXRAT( 169 ) = RKI( 169 ) * YC( EPX2 ) * YC( RO2 ) RXRAT( 170 ) = RKI( 170 ) * YC( INTR ) * YC( OH ) RXRAT( 171 ) = RKI( 171 ) * YC( TERP ) * YC( O ) RXRAT( 172 ) = RKI( 172 ) * YC( TERP ) * YC( OH ) RXRAT( 173 ) = RKI( 173 ) * YC( TERP ) * YC( O3 ) RXRAT( 174 ) = RKI( 174 ) * YC( TERP ) * YC( NO3 ) RXRAT( 175 ) = RKI( 175 ) * YC( APIN ) * YC( O ) RXRAT( 176 ) = RKI( 176 ) * YC( APIN ) * YC( OH ) RXRAT( 177 ) = RKI( 177 ) * YC( APIN ) * YC( O3 ) RXRAT( 178 ) = RKI( 178 ) * YC( APIN ) * YC( NO3 ) RXRAT( 179 ) = RKI( 179 ) * YC( BENZENE ) * YC( OH ) RXRAT( 180 ) = RKI( 180 ) * YC( BZO2 ) * YC( NO ) RXRAT( 181 ) = RKI( 181 ) * YC( BZO2 ) * YC( C2O3 ) RXRAT( 182 ) = RKI( 182 ) * YC( BZO2 ) * YC( HO2 ) RXRAT( 183 ) = RKI( 183 ) * YC( BZO2 ) * YC( RO2 ) RXRAT( 184 ) = RKI( 184 ) * YC( TOL ) * YC( OH ) RXRAT( 185 ) = RKI( 185 ) * YC( TO2 ) * YC( NO ) RXRAT( 186 ) = RKI( 186 ) * YC( TO2 ) * YC( C2O3 ) RXRAT( 187 ) = RKI( 187 ) * YC( TO2 ) * YC( HO2 ) RXRAT( 188 ) = RKI( 188 ) * YC( TO2 ) * YC( RO2 ) RXRAT( 189 ) = RKI( 189 ) * YC( XYLMN ) * YC( OH ) RXRAT( 190 ) = RKI( 190 ) * YC( NAPH ) * YC( OH ) RXRAT( 191 ) = RKI( 191 ) * YC( XLO2 ) * YC( NO ) RXRAT( 192 ) = RKI( 192 ) * YC( XLO2 ) * YC( HO2 ) RXRAT( 193 ) = RKI( 193 ) * YC( XLO2 ) * YC( C2O3 ) RXRAT( 194 ) = RKI( 194 ) * YC( XLO2 ) * YC( RO2 ) RXRAT( 195 ) = RKI( 195 ) * YC( CRES ) * YC( OH ) RXRAT( 196 ) = RKI( 196 ) * YC( CRES ) * YC( NO3 ) RXRAT( 197 ) = RKI( 197 ) * YC( CRO ) * YC( NO2 ) RXRAT( 198 ) = RKI( 198 ) * YC( CRO ) * YC( HO2 ) RXRAT( 199 ) = RKI( 199 ) * YC( CRON ) * YC( OH ) RXRAT( 200 ) = RKI( 200 ) * YC( CRON ) * YC( NO3 ) RXRAT( 201 ) = RKI( 201 ) * YC( CRON ) RXRAT( 202 ) = RKI( 202 ) * YC( XOPN ) RXRAT( 203 ) = RKI( 203 ) * YC( XOPN ) * YC( OH ) RXRAT( 204 ) = RKI( 204 ) * YC( XOPN ) * YC( O3 ) RXRAT( 205 ) = RKI( 205 ) * YC( XOPN ) * YC( NO3 ) RXRAT( 206 ) = RKI( 206 ) * YC( OPEN ) RXRAT( 207 ) = RKI( 207 ) * YC( OPEN ) * YC( OH ) RXRAT( 208 ) = RKI( 208 ) * YC( OPEN ) * YC( O3 ) RXRAT( 209 ) = RKI( 209 ) * YC( OPEN ) * YC( NO3 ) RXRAT( 210 ) = RKI( 210 ) * YC( CAT1 ) * YC( OH ) RXRAT( 211 ) = RKI( 211 ) * YC( CAT1 ) * YC( NO3 ) RXRAT( 212 ) = RKI( 212 ) * YC( OPO3 ) * YC( NO ) RXRAT( 213 ) = RKI( 213 ) * YC( OPO3 ) * YC( NO2 ) RXRAT( 214 ) = RKI( 214 ) * YC( OPAN ) RXRAT( 215 ) = RKI( 215 ) * YC( OPO3 ) * YC( HO2 ) RXRAT( 216 ) = RKI( 216 ) * YC( OPO3 ) * YC( C2O3 ) RXRAT( 217 ) = RKI( 217 ) * YC( OPO3 ) * YC( RO2 ) RXRAT( 218 ) = RKI( 218 ) * YC( OPAN ) * YC( OH ) RXRAT( 219 ) = RKI( 219 ) * YC( PANX ) * YC( OH ) RXRAT( 220 ) = RKI( 220 ) * YC( ECH4 ) * YC( OH ) RXRAT( 221 ) = RKI( 221 ) * YC( XPRP ) RXRAT( 222 ) = RKI( 222 ) * YC( XPRP ) RXRAT( 223 ) = RKI( 223 ) * YC( XPAR ) RXRAT( 224 ) = RKI( 224 ) * YC( XPAR ) RXRAT( 225 ) = RKI( 225 ) * YC( CL2 ) RXRAT( 226 ) = RKI( 226 ) * YC( HOCL ) RXRAT( 227 ) = RKI( 227 ) * YC( CL ) * YC( O3 ) RXRAT( 228 ) = RKI( 228 ) * YC( CLO ) * YC( CLO ) RXRAT( 229 ) = RKI( 229 ) * YC( CLO ) * YC( NO ) RXRAT( 230 ) = RKI( 230 ) * YC( CLO ) * YC( HO2 ) RXRAT( 231 ) = RKI( 231 ) * YC( CLO ) * YC( MEO2 ) RXRAT( 232 ) = RKI( 232 ) * YC( OH ) * YC( FMCL ) RXRAT( 233 ) = RKI( 233 ) * YC( FMCL ) RXRAT( 234 ) = RKI( 234 ) * YC( CL ) RXRAT( 235 ) = RKI( 235 ) * YC( CL ) * YC( PAR ) RXRAT( 236 ) = RKI( 236 ) * YC( CL ) * YC( PRPA ) RXRAT( 237 ) = RKI( 237 ) * YC( CL ) * YC( ETHA ) RXRAT( 238 ) = RKI( 238 ) * YC( CL ) * YC( ETH ) RXRAT( 239 ) = RKI( 239 ) * YC( CL ) * YC( OLE ) RXRAT( 240 ) = RKI( 240 ) * YC( CL ) * YC( IOLE ) RXRAT( 241 ) = RKI( 241 ) * YC( CL ) * YC( ISOP ) RXRAT( 242 ) = RKI( 242 ) * YC( CL ) * YC( FORM ) RXRAT( 243 ) = RKI( 243 ) * YC( CL ) * YC( ALD2 ) RXRAT( 244 ) = RKI( 244 ) * YC( CL ) * YC( ALDX ) RXRAT( 245 ) = RKI( 245 ) * YC( CL ) * YC( MEOH ) RXRAT( 246 ) = RKI( 246 ) * YC( CL ) * YC( ETOH ) RXRAT( 247 ) = RKI( 247 ) * YC( HCL ) * YC( OH ) RXRAT( 248 ) = RKI( 248 ) * YC( CL ) * YC( TOL ) RXRAT( 249 ) = RKI( 249 ) * YC( CL ) * YC( XYLMN ) RXRAT( 250 ) = RKI( 250 ) * YC( CL ) * YC( NAPH ) RXRAT( 251 ) = RKI( 251 ) * YC( CLNO2 ) RXRAT( 252 ) = RKI( 252 ) * YC( CLO ) * YC( NO2 ) RXRAT( 253 ) = RKI( 253 ) * YC( CLNO3 ) RXRAT( 254 ) = RKI( 254 ) * YC( CLNO3 ) RXRAT( 255 ) = RKI( 255 ) * YC( CLNO3 ) RXRAT( 256 ) = RKI( 256 ) * YC( TOLRO2 ) * YC( NO ) RXRAT( 257 ) = RKI( 257 ) * YC( TOLRO2 ) * YC( HO2 ) RXRAT( 258 ) = RKI( 258 ) * YC( XYLRO2 ) * YC( NO ) RXRAT( 259 ) = RKI( 259 ) * YC( XYLRO2 ) * YC( HO2 ) RXRAT( 260 ) = RKI( 260 ) * YC( BENZRO2 ) * YC( NO ) RXRAT( 261 ) = RKI( 261 ) * YC( BENZRO2 ) * YC( HO2 ) RXRAT( 262 ) = RKI( 262 ) * YC( SESQ ) * YC( O3 ) RXRAT( 263 ) = RKI( 263 ) * YC( SESQ ) * YC( OH ) RXRAT( 264 ) = RKI( 264 ) * YC( SESQ ) * YC( NO3 ) RXRAT( 265 ) = RKI( 265 ) * YC( PAHRO2 ) * YC( NO ) RXRAT( 266 ) = RKI( 266 ) * YC( PAHRO2 ) * YC( HO2 ) RXRAT( 267 ) = RKI( 267 ) * YC( SOAALK ) * YC( OH ) RXRAT( 268 ) = RKI( 268 ) * YC( NTR2 ) RXRAT( 269 ) = RKI( 269 ) * YC( N2O5 ) RXRAT( 270 ) = RKI( 270 ) * YC( N2O5 ) RXRAT( 271 ) = RKI( 271 ) * YC( H2NO3PIJ ) RXRAT( 272 ) = RKI( 272 ) * YC( H2NO3PK ) RXRAT( 273 ) = RKI( 273 ) * YC( H2NO3PIJ ) * YC( ACLI ) RXRAT( 274 ) = RKI( 274 ) * YC( H2NO3PIJ ) * YC( ACLJ ) RXRAT( 275 ) = RKI( 275 ) * YC( H2NO3PK ) * YC( ACLK ) RXRAT( 276 ) = RKI( 276 ) * YC( NO2 ) ! RXRAT( 277 ) = RKI( 277 ) * YC( O3 ) RXRAT( 278 ) = RKI( 278 ) * YC( EPOX ) RXRAT( 279 ) = RKI( 279 ) * YC( IEPOXP ) * YC( ASO4J ) RXRAT( 280 ) = RKI( 280 ) * YC( IEPOXP ) RXRAT( 281 ) = RKI( 281 ) * YC( GLY ) RXRAT( 282 ) = RKI( 282 ) * YC( MGLY ) RXRAT( 283 ) = RKI( 283 ) * YC( TERPNRO2 ) * YC( NO ) RXRAT( 284 ) = RKI( 284 ) * YC( TERPNRO2 ) * YC( HO2 ) RXRAT( 285 ) = RKI( 285 ) * YC( TERPNRO2 ) * YC( NO3 ) RXRAT( 286 ) = RKI( 286 ) * YC( TERPNRO2 ) * YC( RO2 ) RXRAT( 287 ) = RKI( 287 ) * YC( MTNO3 ) * YC( CL ) RXRAT( 288 ) = RKI( 288 ) * YC( MTNO3 ) * YC( OH ) RXRAT( 289 ) = RKI( 289 ) * YC( MTNO3 ) RXRAT( 290 ) = RKI( 290 ) * YC( AMTNO3J ) RXRAT( 291 ) = RKI( 291 ) * YC( AAVB2J ) RXRAT( 292 ) = RKI( 292 ) * YC( AAVB3J ) RXRAT( 293 ) = RKI( 293 ) * YC( AAVB4J ) RXRAT( 294 ) = RKI( 294 ) * YC( AISO1J ) RXRAT( 295 ) = RKI( 295 ) * YC( AISO2J ) RXRAT( 296 ) = RKI( 296 ) * YC( ASQTJ ) RXRAT( 297 ) = RKI( 297 ) * YC( APOCI ) * YC( OH ) RXRAT( 298 ) = RKI( 298 ) * YC( APNCOMI ) * YC( OH ) RXRAT( 299 ) = RKI( 299 ) * YC( APOCJ ) * YC( OH ) RXRAT( 300 ) = RKI( 300 ) * YC( APNCOMJ ) * YC( OH ) RXRAT( 301 ) = RKI( 301 ) * YC( PCVOC ) * YC( OH ) RXRAT( 302 ) = RKI( 302 ) * YC( VLVPO1 ) * YC( OH ) RXRAT( 303 ) = RKI( 303 ) * YC( VSVPO1 ) * YC( OH ) RXRAT( 304 ) = RKI( 304 ) * YC( VSVPO2 ) * YC( OH ) RXRAT( 305 ) = RKI( 305 ) * YC( VSVPO3 ) * YC( OH ) RXRAT( 306 ) = RKI( 306 ) * YC( VIVPO1 ) * YC( OH ) RXRAT( 307 ) = RKI( 307 ) * YC( VLVOO1 ) * YC( OH ) RXRAT( 308 ) = RKI( 308 ) * YC( VLVOO2 ) * YC( OH ) RXRAT( 309 ) = RKI( 309 ) * YC( VSVOO1 ) * YC( OH ) RXRAT( 310 ) = RKI( 310 ) * YC( VSVOO2 ) * YC( OH ) RXRAT( 311 ) = RKI( 311 ) * YC( VSVOO3 ) * YC( OH ) RXRAT( 312 ) = RKI( 312 ) * YC( FORM_PRIMARY ) * YC( OH ) RXRAT( 313 ) = RKI( 313 ) * YC( FORM_PRIMARY ) * YC( NO3 ) RXRAT( 314 ) = RKI( 314 ) * YC( FORM_PRIMARY ) * YC( O ) RXRAT( 315 ) = RKI( 315 ) * YC( FORM_PRIMARY ) RXRAT( 316 ) = RKI( 316 ) * YC( FORM_PRIMARY ) RXRAT( 317 ) = RKI( 317 ) * YC( FORM_PRIMARY ) * YC( CL ) RXRAT( 318 ) = RKI( 318 ) * YC( ALD2_PRIMARY ) * YC( OH ) RXRAT( 319 ) = RKI( 319 ) * YC( ALD2_PRIMARY ) * YC( NO3 ) RXRAT( 320 ) = RKI( 320 ) * YC( ALD2_PRIMARY ) * YC( O ) RXRAT( 321 ) = RKI( 321 ) * YC( ALD2_PRIMARY ) RXRAT( 322 ) = RKI( 322 ) * YC( ALD2_PRIMARY ) * YC( CL ) RXRAT( 323 ) = RKI( 323 ) * YC( BUTADIENE13 ) * YC( OH ) RXRAT( 324 ) = RKI( 324 ) * YC( BUTADIENE13 ) * YC( O3 ) RXRAT( 325 ) = RKI( 325 ) * YC( BUTADIENE13 ) * YC( NO3 ) RXRAT( 326 ) = RKI( 326 ) * YC( BUTADIENE13 ) * YC( CL ) RXRAT( 327 ) = RKI( 327 ) * YC( ACRO_PRIMARY ) * YC( OH ) RXRAT( 328 ) = RKI( 328 ) * YC( ACRO_PRIMARY ) * YC( O3 ) RXRAT( 329 ) = RKI( 329 ) * YC( ACRO_PRIMARY ) * YC( NO3 ) RXRAT( 330 ) = RKI( 330 ) * YC( ACRO_PRIMARY ) RXRAT( 331 ) = RKI( 331 ) * YC( ACRO_PRIMARY ) * YC( CL ) RXRAT( 332 ) = RKI( 332 ) * YC( ACROLEIN ) * YC( OH ) RXRAT( 333 ) = RKI( 333 ) * YC( ACROLEIN ) * YC( O3 ) RXRAT( 334 ) = RKI( 334 ) * YC( ACROLEIN ) * YC( NO3 ) RXRAT( 335 ) = RKI( 335 ) * YC( ACROLEIN ) RXRAT( 336 ) = RKI( 336 ) * YC( ACROLEIN ) * YC( CL ) RXRAT( 337 ) = RKI( 337 ) * YC( TOLU ) * YC( OH ) RXRAT( 338 ) = RKI( 338 ) * YC( TOLU ) * YC( CL ) RXRAT( 339 ) = RKI( 339 ) * YC( HG ) * YC( O3 ) RXRAT( 340 ) = RKI( 340 ) * YC( HG ) * YC( CL2 ) RXRAT( 341 ) = RKI( 341 ) * YC( HG ) * YC( H2O2 ) RXRAT( 342 ) = RKI( 342 ) * YC( HG ) * YC( OH ) RXRAT( 343 ) = RKI( 343 ) * YC( HG ) * YC( CL ) RETURN END ================================================ FILE: CCTM/src/gas/ebi_cb6r3_ae7_aq/hrsolver.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE HRSOLVER( JDATE, JTIME, C, R, L ) C********************************************************************** C C FUNCTION: EBI solver C C PRECONDITIONS: For the CB6R3_AE7_AQ mechanism C C KEY SUBROUTINES/FUNCTIONS CALLED: HRRATES, HRG1, HRG2, HRG3 C HRG4, HRPRODLOSS C DEGRADE C C REVISION HISTORY: Created by EBI solver program, Jun 8, 2022 C 21 Jun 10 J.Young: convert for Namelist redesign C 18 Jul 14 B.Hutzell: revised 1) to use the RXNS_DATA and RXNS_FUNCTION C modules instead of include files and 2) to use C real(8) variables C********************************************************************** USE RUNTIME_VARS USE UTILIO_DEFN USE RXNS_DATA USE HRDATA USE PA_IRR_MODULE #ifdef isam USE SA_IRR_DEFN #endif #ifdef sens USE DDM3D_CHEM, ONLY: YCDDM USE CGRID_SPCS, ONLY: GC_SPC #endif USE DEGRADE_ROUTINES, ONLY : DEGRADE, SA_DEGRADE_STEP IMPLICIT NONE C..INCLUDES: C..ARGUMENTS: INTEGER, INTENT( IN ) :: JDATE ! Current date (YYYYDDD) INTEGER, INTENT( IN ) :: JTIME ! Current time (HHMMSS) INTEGER, INTENT( IN ) :: C, R, L ! Cell col, row, lev C..PARAMETERS: INTEGER, PARAMETER :: MXBKUPS = 5 ! Max no. of back-ups allowed INTEGER, PARAMETER :: STAT = 1 ! Status code REAL( 8 ), PARAMETER :: DTMIN = 1.0D-08 ! Smallest time step allowed, min REAL( 8 ), PARAMETER :: EPSLON = 1.0D-30 ! Small number REAL( 8 ), PARAMETER :: MAXPRED = 1.0D+03 ! Upper limit on predicted conc REAL( 8 ), PARAMETER :: ZERO = 1.0D-40 ! effective zero REAL( 8 ), PARAMETER :: FLOOR = 1.0D-08 ! Min conc for RTOL C..EXTERNAL FUNCTIONS: C..SAVED LOCAL VARIABLES: CHARACTER( 16 ), SAVE :: PNAME = 'HRSOLVER' ! Program name LOGICAL, SAVE :: LFIRST = .TRUE. ! Flag for first call LOGICAL, ALLOCATABLE, SAVE :: LEBISPFL( : ) ! Convergence Error Flag for EBI species LOGICAL, ALLOCATABLE, SAVE :: MAXCONC ( : ) ! MAXCONC ERROR Flag for EBI species LOGICAL, ALLOCATABLE, SAVE :: NOTMAX ( : ) ! Initial concentration not greater than MAXPRED REAL( 8 ), ALLOCATABLE, SAVE :: RERROR ( : ) ! Relative Error REAL( 8 ), ALLOCATABLE, SAVE :: AERROR ( : ) ! Absolute Error C..SCRATCH LOCAL VARIABLES: CHARACTER( 132 ) :: MSG ! Message text INTEGER CELLNO ! Cell no. fo debug output INTEGER ITER ! Loop index for Backward Euler iterations INTEGER S ! Loop index for species INTEGER SP ! Imbedded loop index for species INTEGER NEBI ! Loop index for time steps INTEGER NINR ! No. of inner time steps #ifdef hrdebug INTEGER N ! Loop index #endif INTEGER M ! species index INTEGER EBI ! Loop index INTEGER NBKUPS ! No. of times time step reduced INTEGER ERR ! Allocate error flag LOGICAL LEBI_CONV ! Flag for EBI convergence LOGICAL MXFL ! hit MAXPRED flag REAL( 8 ) DTC ! Time step to take REAL( 8 ) DTG ! Time step in degrade routines, sec REAL( 8 ) FXDLOSS ! Total loss due to negative stoichiometry REAL( 8 ) VARLOSS ! Loss excluding negative stoichiometry #ifdef hrdebug CHARACTER( 8 ) :: NOTE ! Convergence fail note INTEGER COL ! Column to generate deboug output for INTEGER ROW ! Row to generate deboug output for INTEGER LEV ! Level to generate deboug output for INTEGER DBGOUT ! Output unit for debu outpt LOGICAL LDEBUG ! Debug output flag LOGICAL, SAVE :: LOPEN = .FALSE. #endif C********************************************************************** IF( LFIRST ) THEN LFIRST = .FALSE. ALLOCATE ( LEBISPFL( NUMB_MECH_SPC ), STAT = ERR ) IF ( ERR .NE. 0 ) THEN MSG = 'Error allocating LEBISPFL' CALL M3EXIT( PNAME, JDATE, JTIME, MSG, XSTAT1 ) END IF ALLOCATE ( MAXCONC( NUMB_MECH_SPC ), STAT = ERR ) IF ( ERR .NE. 0 ) THEN MSG = 'Error allocating MAXCONC' CALL M3EXIT( PNAME, JDATE, JTIME, MSG, XSTAT1 ) END IF ALLOCATE ( NOTMAX( NUMB_MECH_SPC ), STAT = ERR ) IF ( ERR .NE. 0 ) THEN MSG = 'Error allocating NOTMAX' CALL M3EXIT( PNAME, JDATE, JTIME, MSG, XSTAT1 ) END IF ALLOCATE ( RERROR( NUMB_MECH_SPC ), STAT = ERR ) IF ( ERR .NE. 0 ) THEN MSG = 'Error allocating ERROR' CALL M3EXIT( PNAME, JDATE, JTIME, MSG, XSTAT1 ) END IF ALLOCATE ( AERROR( NUMB_MECH_SPC ), STAT = ERR ) IF ( ERR .NE. 0 ) THEN MSG = 'Error allocating AERROR' CALL M3EXIT( PNAME, JDATE, JTIME, MSG, XSTAT1 ) END IF END IF #ifdef sens YCDDM = 0.0D0 #endif c++++++++++++++++++++++++Debug section++++++++++++++++++++++++++++++++++ #ifdef hrdebug COL = 0 ROW = 0 LEV = 0 IF( C .EQ. COL .AND. R .EQ. ROW .AND. L .EQ. LEV ) THEN c IF( JTIME .EQ. 160000 ) THEN LDEBUG = .TRUE. ELSE LDEBUG = .FALSE. END IF IF( LDEBUG ) THEN IF( .NOT. LOPEN ) THEN DBGOUT = JUNIT() OPEN( UNIT = DBGOUT, FILE = 'debug.out' ) LOPEN = .TRUE. END IF WRITE( DBGOUT, '( A, 2I4, I3, 1X, I7, 1X, I6 ) ' ) & 'Debug output for col/row/lev/date/time:', & C, R, L, JDATE, JTIME WRITE( DBGOUT, '( A, F7.2) ' ) & 'EBI_TMSTEP = ', EBI_TMSTEP WRITE( DBGOUT, '( A )' ) 'Starting concs and rate constants' DO N = 1, NUMB_MECH_SPC WRITE( DBGOUT, '( A, I3, 1X, A, 1X, 1PD13.5 )' ) & 'SP ',N, CHEMISTRY_SPC( N ), YC( N ) END DO DO N = 1, N_RXNS WRITE( DBGOUT, '( A, I3, 1X, 1PD13.5 )' ) & 'RKI ', N, RKI( N ) END DO END IF #endif c++++++++++++++++++++++++Debug section++++++++++++++++++++++++++++++++++ DTC = EBI_TMSTEP N_EBI_IT = 0 NBKUPS = 0 N_INR_STEPS = 1 NEBI = 1 LEBI_CONV = .TRUE. #ifdef isam UPDATE_SOLD = .FALSE. UPDATE_PROBABILITIES = .TRUE. CALL SA_IRR_UNBLOCKED ( .TRUE., RKI, YC, DTC ) #endif DO S = 1, NUMB_MECH_SPC IF( YC( S ) .LE. MAXPRED )THEN NOTMAX( S ) = .TRUE. ELSE NOTMAX( S ) = .FALSE. WRITE(LOGDEV,91000)C, R, L, CHEMISTRY_SPC(S), YC(S) END IF END DO ! Initial PA_IRR IF( CALL_IRR ) CALL PA_IRR ( .TRUE., RKI, YC, DTC ) SA_DEGRADE_STEP = 0 TSTEP_EBI: DO ! EBI time-step loop SUBSTEP_EBI: DO NINR = 1, N_INR_STEPS ! time substeps loop ! first attempt is sub time-step equals EBI time-step IF( LEBI_CONV ) YC0 = YC ! Set ICs for EBI iterations ITER_SUBSTEP: DO ITER = 1, NEBITER ! iteration loop solving for sub time-step N_EBI_IT = N_EBI_IT + 1 CALL HRRATES c++++++++++++++++++++++++Debug section++++++++++++++++++++++++++++++++++ #ifdef hrdebug IF( LDEBUG ) THEN WRITE( DBGOUT, '( A, I5 )' ) 'ITER NO ', ITER WRITE( DBGOUT, '( A, F12.5 )' ) & ' DTC=', DTC IF( ITER .EQ. 1 ) THEN WRITE( DBGOUT, '( A )' ) 'Starting reaction rates' DO N = 1, N_RXNS WRITE( DBGOUT, '( A, I3, 1X, 1PD13.5 )' ) & 'RXRAT ', N, RXRAT( NCELL, N ) END DO END IF END IF #endif c++++++++++++++++++++++++Debug section++++++++++++++++++++++++++++++++++ cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Call routines to compute concentrations of groups 1-4 cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc CALL HRG1( DTC ) CALL HRG2( DTC ) CALL HRG3( DTC ) CALL HRG4( DTC ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Do the Euler backward method cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc CALL HRPRODLOSS DO EBI = 1, N_EBISP S = EBISP( EBI ) YCP( S ) = YC( S )*( ( YC0( S ) + PROD( S ) * DTC ) & / ( YC( S ) + LOSS( S ) * DTC ) ) END DO c..Special treatment of PAR because of negative product stoichiometry IF( PNEG( PAR ) .GT. 0.0D0 ) THEN FXDLOSS = PNEG( PAR ) * DTC IF( FXDLOSS .GE. YC0( PAR ) + PROD( PAR ) * DTC ) THEN YCP( PAR ) = 0.0D0 ELSE VARLOSS = MAX( LOSS( PAR ) - PNEG( PAR ) , ZERO ) YCP( PAR ) = ( YC0( PAR ) + PROD( PAR ) * DTC - & FXDLOSS ) / ( 1.0D0 + VARLOSS * DTC / YC( PAR ) ) END IF END IF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Check for convergence cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc LEBI_CONV = .TRUE. MXFL = .FALSE. DO S = 1, NUMB_MECH_SPC LEBISPFL( S ) = .FALSE. YCP( S ) = MAX( ZERO, YCP( S ) ) AERROR( S ) = MAX( ABS( YC(S)-YCP(S) ), EPSLON ) RERROR( S ) = AERROR( S ) / MAX( FLOOR, ABS( YC(S)+YCP(S) ) ) IF( RERROR( S ) .GT. RTOL(S) .OR. AERROR( S ) .GT. 1.0D-5 )THEN LEBI_CONV = .FALSE. LEBISPFL( S ) = .TRUE. END IF c..test if predictions growing too large IF( YCP( S ) .GT. MAXPRED .AND. NOTMAX( S ) ) THEN MXFL = .TRUE. LEBI_CONV = .FALSE. LEBISPFL( S ) = .TRUE. END IF YC( S ) = YCP( S ) END DO c..test if predictions growing too large, abort interation loop IF( MXFL ) EXIT ITER_SUBSTEP c++++++++++++++++++++++++Debug section++++++++++++++++++++++++++++++++++ #ifdef hrdebug IF( LDEBUG ) THEN WRITE( DBGOUT, '( A, I5 )' ) 'Concs after ITER= ', ITER DO S = 1, NUMB_MECH_SPC IF( LEBISPFL( S ) ) THEN NOTE = 'CONV FAIL' ELSE NOTE = ' ' END IF WRITE( DBGOUT, '( I3, 1X, A, 1PD13.5, 1X, A )' ) & S, CHEMISTRY_SPC( S ), YC( S ), NOTE END DO IF( LEBI_CONV ) WRITE( DBGOUT, '( A )' ) & '****Convergence achieved' END IF #endif c++++++++++++++++++++++++Debug section++++++++++++++++++++++++++++++++++ IF( LEBI_CONV ) THEN DTG = 60.0D0 * DTC DO S = 1, NUMB_MECH_SPC M = CGRID_INDEX( S ) YCCELL( M ) = YC( S ) END DO #if defined(isam) || defined(verbose_isam) SA_DEGRADE_STEP = SA_DEGRADE_STEP + 1 #endif IF( CALL_DEG )CALL DEGRADE(YCCELL, DTG, JDATE, JTIME) ! :WTH Call degradation routine IF( CALL_IRR ) CALL PA_IRR ( .FALSE., RKI, YC, DTC ) #ifdef isam IF( NEBI .EQ. N_EBI_STEPS )UPDATE_SOLD = .TRUE. CALL SA_IRR_UNBLOCKED ( .FALSE., RKI, YC, DTC ) UPDATE_PROBABILITIES = .FALSE. #endif #ifdef sens C Update the sum for the average over the chemistry integration YCDDM = YCDDM & + ( ( 0.5D0 * DTC ) * ( YC + YC0 ) ) #endif CYCLE SUBSTEP_EBI ! solve for next sub time-step END IF END DO ITER_SUBSTEP ! interating for substep failed, attempt to increase number of sub time-steps NBKUPS = NBKUPS + 1 ! IF( NBKUPS .LE. MXBKUPS ) THEN IF ( DTC .GT. DTMIN ) THEN ! reset YC and cut sub time-step in half IF ( MXFL ) THEN WRITE( LOGDEV, 92008 ) NBKUPS WRITE( LOGDEV, 92009 ) C+PECOL_OFFSET, R+PEROW_OFFSET, L DO S = 1, NUMB_MECH_SPC IF( LEBISPFL( S ) )WRITE( LOGDEV, 92010 )TRIM( CHEMISTRY_SPC( S ) ), & YC0(S), YCP(S) END DO ELSE WRITE( LOGDEV, 92000 ) C+PECOL_OFFSET, R+PEROW_OFFSET, L, NBKUPS DO S = 1, NUMB_MECH_SPC IF( LEBISPFL( S ) )WRITE( LOGDEV, 92010 )TRIM( CHEMISTRY_SPC( S ) ), & YC0(S), YCP(S) END DO END IF YC = YC0 ! Set ICs for EBI time-step DTC = 0.5D0 * DTC N_INR_STEPS = 2 ** NBKUPS EXIT SUBSTEP_EBI ELSE WRITE( LOGDEV, 92040 ) C+PECOL_OFFSET, R+PEROW_OFFSET, L WRITE( LOGDEV, 92060 ) DO S = 1, NUMB_MECH_SPC IF( LEBISPFL( S ) ) WRITE( LOGDEV, 92080 ) CHEMISTRY_SPC( S ), & YC0(S), YCP(S) END DO MSG = 'ERROR: Stopping because of EBI convergence failures' CALL M3EXIT( PNAME, JDATE, JTIME, MSG, XSTAT2 ) END IF END DO SUBSTEP_EBI IF( LEBI_CONV )THEN NEBI = 1 + NEBI ! test for completing final EBI time-step IF( NEBI .GT. N_EBI_STEPS )EXIT TSTEP_EBI ! test whether backups were done IF( NBKUPS .EQ. 0 )CYCLE TSTEP_EBI ! Reset NBKUPS, N_INR_STEPS and sub-time step NBKUPS = 0 N_INR_STEPS = 1 DTC = EBI_TMSTEP END IF END DO TSTEP_EBI #ifdef sens ! Compute average over integration and filter values YCDDM = YCDDM / CHEMSTEP WHERE ( YCDDM .LT. 1.0D-25 ) YCDDM = 0.0D0 #endif RETURN 91000 FORMAT( 'WARNING: EBI solver in cell (',2(I4,','),I4,') Init.Conc. for ', & A16, ' = ', ES12.4,' ppmV') 92000 FORMAT( 'WARNING: EBI Euler convergence failure' / & ' Reducing EBI time step because of ', & ' convergence failure in ' / & ' Cell (', I3, ', ', I3, ', ', I3, ')' , & ' Solution Attempt #', I2 / & ' Below Species Causing Error: Init.Conc, Pred.Conc.' ) 92008 FORMAT( 'WARNING: At solution attempt #', I2 ) 92009 FORMAT( 'WARNING: EBI Euler convergence failure' / & ' Reducing EBI time step because of ', & ' MAXPRED failure in ' / & ' Cell (', I3, ', ', I3, ', ', I3, ')' , & ' for the below species: : Init.Conc, Pred.Conc.') 92010 FORMAT( A16, 2(1X,ES12.4), ' ppmV' ) 92040 FORMAT( 'ERROR: Max number of EBI time step reductions exceeded' & / ' Convergence failure for cell (', I3, ', ', I3, & ', ', I3, ')' ) 92060 FORMAT( ' Convergence failure for the following species:', & 'Init.Conc, Pred.Conc.' ) 92080 FORMAT( 10X, A, 2(1X,ES12.4), ' ppmV ' ) 92061 FORMAT( ' Convergence failure for the following species:', & 'Init.Conc, Pred.Conc.,Rel.Error,' ) 92081 FORMAT( 10X, A, 2(1X,ES12.4), ' ppmV ', ES12.4,'%' ) END ================================================ FILE: CCTM/src/gas/ebi_cb6r5_ae7_aq/hrdata_mod.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! MODULE HRDATA C************************************************************************* C C FUNCTION: Mechanism & solver data for EBI solver C C PRECONDITIONS: For the CB6R5_AE7_AQ mechanism C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by EBI solver program, Jun 8, 2022 C C 18 Jul 14 B.Hutzell: revised to use real(8) variables for solution C************************************************************************* c..EBI solver fixed parameters INTEGER, PARAMETER :: NEBITER = 1000 ! No. of iterations for EBI INTEGER, PARAMETER :: MAX_CELLS_EBI = 1 ! max # cells in local conc arrays REAL( 8 ), PARAMETER :: DELTAT = 2.500D+00 ! EBI time step (min) c..Mechanism specific variables INTEGER N_SPEC ! No. of species in mechanism INTEGER N_RXNS ! No. of reactions in mechanism INTEGER N_EBISP ! No. of species solved by EBI INTEGER NING1 ! No. of species in group 1 INTEGER NING2 ! No. of species in group 2 INTEGER N_SPCL_RKS ! No. of special rate constants INTEGER N_ACTSP ! No. of species in mechanism (non-ss spec) INTEGER NCELL ! cell number in EBI Block c..Control flags LOGICAL L_AE_VRSN ! Flag for aerosol version of mech LOGICAL L_AQ_VRSN ! Flag for aqueous chemistry version of mech LOGICAL CALL_IRR ! Flag initializing for IRR and calling PA_IRR ! SWITCH for calling DEGRADE routine LOGICAL, SAVE :: CALL_DEG = .TRUE. c..Miscellaneous variables INTEGER N_EBI_IT ! No. of iterations for EBI INTEGER N_EBI_STEPS ! No. of time steps for EBI INTEGER N_INR_STEPS ! No. of inner time steps for EBI INTEGER PECOL_OFFSET ! Local Column Offset for processor INTEGER PEROW_OFFSET ! Local Column Offset for processor INTEGER, SAVE :: MODEL_SPECIES ! No. of species in CGRID REAL( 8 ) EBI_TMSTEP ! Time step for EBI loops (min) REAL( 8 ) CHEMSTEP ! Chemistry integration interval (min) c...Allocatable arrays INTEGER, ALLOCATABLE :: EBISP( : ) ! Index of EBI species INTEGER, ALLOCATABLE :: SSASP( : ) ! Index of ss species INTEGER, ALLOCATABLE :: ACTSP( : ) ! Index of active species INTEGER, ALLOCATABLE :: IOLD2NEW( :,: ) ! YC species map, used if NSPECIAL > 0 REAL( 8 ), ALLOCATABLE :: RKI( : ) ! Rate constants REAL( 8 ), ALLOCATABLE :: RKI_SAV( :, : ) ! Saved values of RKI for SS species calcs REAL( 8 ), ALLOCATABLE :: YC ( : ) ! Species concentrations REAL( 8 ), ALLOCATABLE :: YC0( : ) ! Species concentrations REAL( 8 ), ALLOCATABLE :: YCP( : ) ! Species concentrations REAL( 8 ), ALLOCATABLE :: SYC( :, : ) ! Species concentrations REAL, ALLOCATABLE :: FORWARD_CONV( : ) ! CGRID to CHEM Species conversion factor REAL, ALLOCATABLE :: REVERSE_CONV( : ) ! CHEM to CGRID Species conversion factor REAL( 8 ), ALLOCATABLE :: RXRAT( : ) ! Reaction rates REAL( 8 ), ALLOCATABLE :: RTOL( : ) ! Species tolerances REAL( 8 ), ALLOCATABLE :: YCCELL( : ) ! ALL Species in cgrid REAL( 8 ), ALLOCATABLE :: PROD( : ) ! Prod of species REAL( 8 ), ALLOCATABLE :: LOSS( : ) ! Loss of species REAL( 8 ), ALLOCATABLE :: PNEG( : )! Negative production rates REAL, ALLOCATABLE :: PRES( :, :, : ) ! pressure (Pa) REAL, ALLOCATABLE :: QV ( :, :, : ) ! water vapor (Kg/Kg air) REAL, ALLOCATABLE :: TA ( :, :, : ) ! temperature (K) REAL, ALLOCATABLE :: SEAICE ( :, :) ! fractional seaice cover, [-] REAL, ALLOCATABLE :: DENS( :, :, : ) ! mass density (Kg/m^3) REAL, ALLOCATABLE :: SEAWATER_ZONE ( :,: ) ! fractional area of OPEN+SURF LOGICAL, ALLOCATABLE :: LFLAGIRR ( :,:,: ) ! Conduct IRR for cell REAL( 8 ), ALLOCATABLE :: ATMPRES ( : ) ! Cell pressure, Atm ! REAL( 8 ), ALLOCATABLE :: PRESCELL( : ) ! Cell pressure, Pa REAL( 8 ), ALLOCATABLE :: H2O ( : ) ! Cell H2O mixing ratio (ppmV) REAL( 8 ), ALLOCATABLE :: TEMP ( : ) ! Cell Temperature REAL( 8 ), ALLOCATABLE :: DENSITY ( : ) ! Cell mass density (Kg/m3) REAL( 8 ), ALLOCATABLE :: HET ( :, : ) ! cell heterogeneous reaction rates REAL( 8 ), ALLOCATABLE :: RJIN ( :, : ) ! J-values for a cell REAL( 8 ), ALLOCATABLE :: SEAWATER ( : ) ! fractional area of OPEN+SURF for specific cell c..Species indices INTEGER, PARAMETER :: NO2 = 1 INTEGER, PARAMETER :: NO = 2 INTEGER, PARAMETER :: O = 3 INTEGER, PARAMETER :: O3 = 4 INTEGER, PARAMETER :: NO3 = 5 INTEGER, PARAMETER :: O1D = 6 INTEGER, PARAMETER :: OH = 7 INTEGER, PARAMETER :: HO2 = 8 INTEGER, PARAMETER :: H2O2 = 9 INTEGER, PARAMETER :: N2O5 = 10 INTEGER, PARAMETER :: HNO3 = 11 INTEGER, PARAMETER :: HONO = 12 INTEGER, PARAMETER :: PNA = 13 INTEGER, PARAMETER :: SO2 = 14 INTEGER, PARAMETER :: SULF = 15 INTEGER, PARAMETER :: SULRXN = 16 INTEGER, PARAMETER :: C2O3 = 17 INTEGER, PARAMETER :: MEO2 = 18 INTEGER, PARAMETER :: RO2 = 19 INTEGER, PARAMETER :: PAN = 20 INTEGER, PARAMETER :: PACD = 21 INTEGER, PARAMETER :: AACD = 22 INTEGER, PARAMETER :: CXO3 = 23 INTEGER, PARAMETER :: ALD2 = 24 INTEGER, PARAMETER :: XO2H = 25 INTEGER, PARAMETER :: PANX = 26 INTEGER, PARAMETER :: FORM = 27 INTEGER, PARAMETER :: MEPX = 28 INTEGER, PARAMETER :: MEOH = 29 INTEGER, PARAMETER :: ROOH = 30 INTEGER, PARAMETER :: XO2 = 31 INTEGER, PARAMETER :: XO2N = 32 INTEGER, PARAMETER :: NTR1 = 33 INTEGER, PARAMETER :: NTR2 = 34 INTEGER, PARAMETER :: FACD = 35 INTEGER, PARAMETER :: CO = 36 INTEGER, PARAMETER :: HCO3 = 37 INTEGER, PARAMETER :: ALDX = 38 INTEGER, PARAMETER :: GLYD = 39 INTEGER, PARAMETER :: GLY = 40 INTEGER, PARAMETER :: MGLY = 41 INTEGER, PARAMETER :: ETHA = 42 INTEGER, PARAMETER :: ETOH = 43 INTEGER, PARAMETER :: KET = 44 INTEGER, PARAMETER :: PAR = 45 INTEGER, PARAMETER :: ACET = 46 INTEGER, PARAMETER :: PRPA = 47 INTEGER, PARAMETER :: XPRP = 48 INTEGER, PARAMETER :: XPAR = 49 INTEGER, PARAMETER :: ROR = 50 INTEGER, PARAMETER :: ETHY = 51 INTEGER, PARAMETER :: ETH = 52 INTEGER, PARAMETER :: OLE = 53 INTEGER, PARAMETER :: IOLE = 54 INTEGER, PARAMETER :: ISOP = 55 INTEGER, PARAMETER :: ISO2 = 56 INTEGER, PARAMETER :: ISOPRXN = 57 INTEGER, PARAMETER :: ISPD = 58 INTEGER, PARAMETER :: INTR = 59 INTEGER, PARAMETER :: ISPX = 60 INTEGER, PARAMETER :: HPLD = 61 INTEGER, PARAMETER :: OPO3 = 62 INTEGER, PARAMETER :: EPOX = 63 INTEGER, PARAMETER :: EPX2 = 64 INTEGER, PARAMETER :: TERP = 65 INTEGER, PARAMETER :: TRPRXN = 66 INTEGER, PARAMETER :: TERPNRO2 = 67 INTEGER, PARAMETER :: APIN = 68 INTEGER, PARAMETER :: BENZENE = 69 INTEGER, PARAMETER :: CRES = 70 INTEGER, PARAMETER :: BZO2 = 71 INTEGER, PARAMETER :: OPEN = 72 INTEGER, PARAMETER :: BENZRO2 = 73 INTEGER, PARAMETER :: TOL = 74 INTEGER, PARAMETER :: TO2 = 75 INTEGER, PARAMETER :: TOLRO2 = 76 INTEGER, PARAMETER :: XOPN = 77 INTEGER, PARAMETER :: XYLMN = 78 INTEGER, PARAMETER :: XLO2 = 79 INTEGER, PARAMETER :: XYLRO2 = 80 INTEGER, PARAMETER :: NAPH = 81 INTEGER, PARAMETER :: PAHRO2 = 82 INTEGER, PARAMETER :: CRO = 83 INTEGER, PARAMETER :: CAT1 = 84 INTEGER, PARAMETER :: CRON = 85 INTEGER, PARAMETER :: OPAN = 86 INTEGER, PARAMETER :: ECH4 = 87 INTEGER, PARAMETER :: CL2 = 88 INTEGER, PARAMETER :: CL = 89 INTEGER, PARAMETER :: HOCL = 90 INTEGER, PARAMETER :: CLO = 91 INTEGER, PARAMETER :: FMCL = 92 INTEGER, PARAMETER :: HCL = 93 INTEGER, PARAMETER :: CLNO2 = 94 INTEGER, PARAMETER :: CLNO3 = 95 INTEGER, PARAMETER :: SVAVB2 = 96 INTEGER, PARAMETER :: SVAVB3 = 97 INTEGER, PARAMETER :: SVAVB4 = 98 INTEGER, PARAMETER :: SVAVB1 = 99 INTEGER, PARAMETER :: SESQ = 100 INTEGER, PARAMETER :: SESQRXN = 101 INTEGER, PARAMETER :: SOAALK = 102 INTEGER, PARAMETER :: H2NO3PIJ = 103 INTEGER, PARAMETER :: H2NO3PK = 104 INTEGER, PARAMETER :: ACLI = 105 INTEGER, PARAMETER :: ACLJ = 106 INTEGER, PARAMETER :: ACLK = 107 INTEGER, PARAMETER :: IEPOXP = 108 INTEGER, PARAMETER :: ASO4J = 109 INTEGER, PARAMETER :: AISO3J = 110 INTEGER, PARAMETER :: AGLYJ = 111 INTEGER, PARAMETER :: MTNO3 = 112 INTEGER, PARAMETER :: AMTNO3J = 113 INTEGER, PARAMETER :: AMTHYDJ = 114 INTEGER, PARAMETER :: AAVB2J = 115 INTEGER, PARAMETER :: AOLGAJ = 116 INTEGER, PARAMETER :: AAVB3J = 117 INTEGER, PARAMETER :: AAVB4J = 118 INTEGER, PARAMETER :: AISO1J = 119 INTEGER, PARAMETER :: AOLGBJ = 120 INTEGER, PARAMETER :: AISO2J = 121 INTEGER, PARAMETER :: ASQTJ = 122 INTEGER, PARAMETER :: APOCI = 123 INTEGER, PARAMETER :: APNCOMI = 124 INTEGER, PARAMETER :: APOCJ = 125 INTEGER, PARAMETER :: APNCOMJ = 126 INTEGER, PARAMETER :: PCVOC = 127 INTEGER, PARAMETER :: PCSOARXN = 128 INTEGER, PARAMETER :: VLVPO1 = 129 INTEGER, PARAMETER :: VSVPO1 = 130 INTEGER, PARAMETER :: VSVPO2 = 131 INTEGER, PARAMETER :: VSVPO3 = 132 INTEGER, PARAMETER :: VIVPO1 = 133 INTEGER, PARAMETER :: VLVOO1 = 134 INTEGER, PARAMETER :: VLVOO2 = 135 INTEGER, PARAMETER :: VSVOO2 = 136 INTEGER, PARAMETER :: VSVOO3 = 137 INTEGER, PARAMETER :: VSVOO1 = 138 INTEGER, PARAMETER :: FORM_PRIMARY = 139 INTEGER, PARAMETER :: ALD2_PRIMARY = 140 INTEGER, PARAMETER :: BUTADIENE13 = 141 INTEGER, PARAMETER :: ACROLEIN = 142 INTEGER, PARAMETER :: ACRO_PRIMARY = 143 INTEGER, PARAMETER :: TOLU = 144 INTEGER, PARAMETER :: HG = 145 INTEGER, PARAMETER :: HGIIAER = 146 INTEGER, PARAMETER :: HGIIGAS = 147 INTEGER, PARAMETER :: DMS = 148 INTEGER, PARAMETER :: MSA = 149 END MODULE HRDATA ================================================ FILE: CCTM/src/gas/ebi_cb6r5_ae7_aq/hrdriver.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE CHEM( CGRID, JDATE, JTIME, TSTEP ) C********************************************************************** C C FUNCTION: Driver subroutine for Euler Backward Iterative solver C C PRECONDITIONS: For the CB6R5_AE7_AQ mechanism C C KEY SUBROUTINES/FUNCTIONS CALLED: HRINIT, HRCALCKS, HRSOLVER C FIND_DEGRADED, INIT_DEGRADE, FINAL_DEGRADE C C REVISION HISTORY: Created by EBI solver program, Jun 8, 2022 C Based on the algorithm in "Test of Two Numerical C Schemes for Use in Atmospheric Transport-Chemistry C Models", O. Hertel, R. Berkowicz, J. Christensen, C and O. Hov, Atm Env., Vol. 27A, No. 16, 1993. C Original MEBI code developed by Ho-Chun Huang, C SUNY, Albany -- "On the performance of numerical C solvers for a chemistry submodel in three-dimensional C air quality models 1. Box model simulations", C H. Huang and J.S. Chang, JGR, Vol 106, No. D17, 2001. C This version replaces Huang and Chang use of numerical C solutions with analytical solutions derived in C Hertel et al. C 21 Jun 10 J.Young: convert for Namelist redesign C 11 May 11 D.Wong: incorporated twoway model implementation C 27 Sep 11 B.Hutzell: revised method for defining CALL_DEG variable C 18 Jul 14 B.Hutzell: revised: 1) to use the RXNS_DATA and RXNS_FUNCTION C modules instead of include files, 2) to enable C reactions between species types, 3) to calculate C heterogeneous rate constants via AEROSOL_CHEMISTRY C module, 4) to replace call to HRCALCKS with C subroutine in RXNS_FUNCTION module and 5) to change C how degrade routines are used, if present C 02 Dec 14 B.Hutzell: 1) added terrestrial data to conduct surface C dependent reactions and 2) modified the call CALC_RCONST C routine C 01 Feb 19 D.Wong: Implemented centralized I/O approach, removed all MY_N C clauses C********************************************************************** USE HGRD_DEFN ! horizontal domain specifications USE VGRD_DEFN ! vertical layer specifications USE CGRID_SPCS ! CGRID mechanism species USE UTILIO_DEFN ! IOAPI parameters and functions declarations USE RXNS_DATA USE AEROSOL_CHEMISTRY USE RXNS_FUNCTION #ifdef isam USE SA_IRR_DEFN USE SA_DEFN #endif USE HRDATA USE PHOT_MOD, Only: INIT_PHOT_SHARED, RJ ! photolysis rate, in-line module USE PA_DEFN, Only: LIRR ! Process Analysis control and data variable USE PA_IRR_CLT #ifndef isam USE DEGRADE_ROUTINES, ONLY : N_REACT, RXTANT_MAP, DEG_LAY, DEG_COL, DEG_ROW, & FIND_DEGRADED, INIT_DEGRADE, FINAL_DEGRADE #else USE DEGRADE_ROUTINES, ONLY : N_REACT, RXTANT_MAP, SA_DEGRADE_EXTRACT, & FIND_DEGRADED, INIT_DEGRADE, FINAL_DEGRADE, & SA_DEGRADE_UPLOAD, DEG_LAY, DEG_COL, DEG_ROW #endif USE CENTRALIZED_IO_MODULE, ONLY : INTERPOLATE_VAR, OCEAN, SZONE #ifdef sens USE DDM3D_CHEM Use DDM3D_DEFN, Only: DATENUM, STARTDATE, IPT, IDATE, HIGH, NP, NPMAX, CKTIME #endif IMPLICIT NONE C..Includes: INCLUDE SUBST_FILES_ID ! CMAQ files INCLUDE SUBST_CONST ! CMAQ constants INCLUDE SUBST_EMISPRM ! Emissions processing control parameters C..Arguments: REAL, POINTER :: CGRID( :,:,:,: ) ! Species concentrations INTEGER JDATE ! Current date (YYYYDDD) INTEGER JTIME ! Current time (HHMMSS) INTEGER TSTEP( 3 ) ! Time step vector (HHMMSS) C..Parameters: REAL( 8 ), PARAMETER :: DCONMIN = 1.0D-30 ! minimum species concentration allowed REAL, PARAMETER :: CONCMIN = 1.0E-30 ! minimum species concentration allowed REAL, PARAMETER :: MAOMV = 1.0E6 * MWAIR / MWWAT ! Mol Wt of air over Mol Wt of water times 1.0E6 C..External Functions: C..Saved Local Variables: CHARACTER( 16 ), SAVE :: PNAME = 'HRDRIVER' ! Program name INTEGER, SAVE :: ISTFL ! Unit no. of iteration stat output file LOGICAL, SAVE :: LFIRST = .TRUE. ! Flag for first call to this subroutine REAL( 8 ), SAVE :: PA2ATM ! Pascal to atm conv fac C..Scratch Local Variables: CHARACTER( 132 ) :: MSG ! Message text CHARACTER( 16 ) :: VNAME ! Name of I/O API data variable INTEGER C, E, L, R, S ! Loop indices INTEGER ISP ! array index INTEGER AVGEBI ! Average no. of EBI iterations INTEGER DELT_SEC ! EBI max time step in seconds INTEGER ESP ! Loop index for emissions species INTEGER ITMSTEP ! Chemistry integration interval (sec) INTEGER LEV ! Layer index INTEGER MIDDATE ! Date at time step midpoint INTEGER MIDTIME ! Time at time step midpoint INTEGER NPH ! Index for number of phot. rxns in PHOT INTEGER SPC ! Species loop index #ifdef hrstats INTEGER MNEBI ! Min no. of EBI iterations INTEGER MXEBI ! Max no. of EBI iterations #endif LOGICAL LSUNLIGHT ! Flag for sunlight REAL INV_DENS ! reciprocal of air mass density, m3/Kg #ifdef hrstats REAL SUMEBI ! Sum of EBI iterations #endif INTERFACE SUBROUTINE HRSOLVER( JDATE, JTIME, C, R, L ) INTEGER, INTENT( IN ) :: JDATE ! Current date (YYYYDDD) INTEGER, INTENT( IN ) :: JTIME ! Current time (HHMMSS) INTEGER, INTENT( IN ) :: C, R, L ! Cell col, row, lev END SUBROUTINE HRSOLVER SUBROUTINE HETCHEM_UPDATE_AERO( CGRID ) REAL, POINTER :: CGRID( :,:,:,: ) ! species concentration in cell END SUBROUTINE HETCHEM_UPDATE_AERO END INTERFACE C********************************************************************** IF( NUMB_MECH_SPC .EQ. 0 ) RETURN ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c On first call, call routines to set-up for EBI solver ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF( LFIRST ) THEN IF( MECHNAME .NE. 'CB6R5_AE7_AQ' ) THEN MSG = 'This version of the EBI solver can only be used with' & // ' the CB6R5_AE7_AQ chemical mechanism' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF #ifdef emis_chem EMISVD = .FALSE. #else EMISVD = .TRUE. #endif IF( INDEX( MECHNAME, 'AE' ) .NE. 0 ) THEN L_AE_VRSN = .TRUE. ELSE L_AE_VRSN = .FALSE. END IF IF( INDEX( MECHNAME, 'AQ' ) .NE. 0 ) THEN L_AQ_VRSN = .TRUE. ELSE L_AQ_VRSN = .FALSE. END IF IF( LIRR ) THEN CALL_IRR = .TRUE. ELSE CALL_IRR = .FALSE. END IF MODEL_SPECIES = NSPCSD ! WTH: find number of model species ! Determine whether DEGRADE rountines are needed. CALL FIND_DEGRADED( JDATE, JTIME, CALL_DEG ) IF( CALL_DEG )THEN WRITE(LOGDEV,*)'TX DEGRADE ROUTINES USED' WRITE(LOGDEV,*)'Mechanism contains degraded species' #ifdef verbose_gas ELSE WRITE(LOGDEV,*)'TX DEGRADE ROUTINES OMITTED' WRITE(LOGDEV,*)'MECHANISM does not include degraded species' #endif END IF CALL HRINIT ITMSTEP = TIME2SEC( TSTEP( 2 ) ) CHEMSTEP = REAL( ITMSTEP, 8 ) / 60.0D0 WRITE( LOGDEV, 92000 ) CHEMSTEP, DELTAT WRITE( LOGDEV, 92020 ) DO SPC = 1, NUMB_MECH_SPC WRITE( LOGDEV, 92040 ) CHEMISTRY_SPC( SPC ), RTOL( SPC ) END DO PA2ATM = REAL( 1.0 / STDATMPA, 8) c..If emissions processing requested stop IF( .NOT. EMISVD ) THEN ! assumes emis processing in gas chem MSG = 'ERROR: EBI solver not configured to '// & 'process emissions in chemistry' CALL M3EXIT( PNAME, JDATE, JTIME, MSG, XSTAT1 ) END IF ! End if doing emissions #ifdef hrstats ISTFL = JUNIT() OPEN( UNIT=ISTFL, FILE='iterstat.dat' ) WRITE( ISTFL, 94020 ) #endif C Define processor offsets PECOL_OFFSET = COLSD_PE( 1, MYPE+1 ) - 1 PEROW_OFFSET = ROWSD_PE( 1, MYPE+1 ) - 1 ALLOCATE( SEAWATER_ZONE( NCOLS, NROWS ) ) DO R = 1, NROWS DO C = 1, NCOLS SEAWATER_ZONE( C,R ) = OCEAN( C,R ) + SZONE( C,R ) END DO END DO ALLOCATE( DENS( NCOLS, NROWS, NLAYS ), PRES( NCOLS, NROWS, NLAYS ), & QV ( NCOLS, NROWS, NLAYS ), TA ( NCOLS, NROWS, NLAYS ), & SEAICE( NCOLS, NROWS ) ) C..Initialize shared photolysis data CALL INIT_PHOT_SHARED() C..Determine which cells need IRR ALLOCATE( LFLAGIRR ( NCOLS, NROWS, NLAYS ) ) CALL PA_IRR_CKCELLS ( LFLAGIRR ) #ifdef isam NUMB_ISAM_CELLS = 1.0D0 / ( NCOLS * NROWS * NLAYS ) CALL SA_IRR_INIT #endif #ifdef sens CALL INIT_DDM3D_CHEM() C For higher order sensitivities IF ( HIGH ) THEN DO RXN = 1, NRXNS IF( NREACT( RXN ) .EQ. 1 ) THEN ORDER1( RXN ) = .TRUE. ELSE ORDER1( RXN ) = .FALSE. END IF END DO END IF #endif LFIRST = .FALSE. END IF ! First time ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C Set date and time to center of time step, get necessary physical C data ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc MIDDATE = JDATE MIDTIME = JTIME ITMSTEP = TIME2SEC( TSTEP( 2 ) ) CHEMSTEP = REAL( ITMSTEP, 8 ) / 60.0D0 CALL NEXTIME( MIDDATE, MIDTIME, SEC2TIME( ITMSTEP / 2 ) ) C.. Compute number of time step loops and step size for EBI solver DELT_SEC = INT( DELTAT * 60.0D0 + 0.1D0 ) IF( DELT_SEC .GE. ITMSTEP ) THEN N_EBI_STEPS = 2 EBI_TMSTEP = 0.5D0 * CHEMSTEP ELSE IF( MOD( ITMSTEP, DELT_SEC ) .EQ. 0 ) THEN N_EBI_STEPS = ITMSTEP / DELT_SEC ELSE N_EBI_STEPS = ITMSTEP / DELT_SEC + 1 END IF EBI_TMSTEP = CHEMSTEP / REAL( N_EBI_STEPS, 8 ) END IF N_INR_STEPS = 1 C.. Get fractional seaice coverage from the METCRO2D file. CALL INTERPOLATE_VAR ('SEAICE', MIDDATE, MIDTIME, SEAICE) C.. Get ambient temperature in K CALL INTERPOLATE_VAR ('TA', MIDDATE, MIDTIME, TA) C.. Get specific humidity in Kg H2O / Kg air CALL INTERPOLATE_VAR ('QV', MIDDATE, MIDTIME, QV) ! Get ambient MASS DENSITY in Kg/m^3 CALL INTERPOLATE_VAR ('DENS', MIDDATE, MIDTIME, DENS) C.. Get pressure in Pascals CALL INTERPOLATE_VAR ('PRES', MIDDATE, MIDTIME, PRES) C.. Get Heteorogeneous rates and Update Aerosol Distribution Properties CALL HETCHEM_RATES( TA, PRES, QV, CGRID, DENS ) #ifdef sens DATENUM = 1 + JDATE - STARTDATE ! Set the date and hour counters used in sensitivity calls C For reaction rate sensitivities DO NP = 1, NPMAX IF ( IPT( NP ) .EQ. 5 ) THEN CALL CKTIME( JDATE,JTIME,NP,RXNFLAG(NP) ) ! Rxnflag set to true iff ipt=5 and time, date within bounds IF ( IDATE( NP, DATENUM ) .NE. 1 ) RXNFLAG( NP ) = .FALSE. ELSE RXNFLAG( NP ) = .FALSE. END IF END DO #endif sens ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Top of loop over cells ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc #ifdef hrstats MNEBI = 1000 MXEBI = 0 SUMEBI = 0.0 #endif NCELL = 1 DO L = 1, NLAYS DO R = 1, NROWS DO C = 1, NCOLS DEG_LAY = L DEG_ROW = R DEG_COL = C c..reset CALL_IRR based on cell's values CALL_IRR = LFLAGIRR( C,R,L ) c..Load ICs INV_DENS = 1.0 / DENS( C,R,L ) DO SPC = 1, NUMB_MECH_SPC S = CGRID_INDEX( SPC ) IF( CONVERT_CONC( SPC ) )THEN YC( SPC ) = REAL( MAX( CONCMIN, & INV_DENS*FORWARD_CONV( SPC )*CGRID( C,R,L,S )), 8 ) ELSE YC( SPC ) = REAL( MAX( CGRID( C,R,L,S ), CONCMIN), 8 ) END IF END DO IF(CALL_DEG)THEN ! INITIALIZE degradation routines YCCELL = 0.0D0 DO S = 1, MODEL_SPECIES YCCELL( S ) = REAL( CGRID(C,R,L,S), 8) END DO CALL INIT_DEGRADE(YCCELL,TA(C,R,L),DENS(C,R,L),PRES(C,R,L),QV(C,R,L),RJIN(NCELL,:), & JDATE, JTIME) #ifdef isam CALL SA_DEGRADE_EXTRACT( C,R,L,DENS(C,R,L) ) #endif END IF c..Set physical quantities TEMP( NCELL ) = REAL( TA( C,R,L ), 8) DENSITY( NCELL ) = REAL( DENS( C,R,L ), 8) ! PRESCELL( NCELL ) = REAL( PRES( C,R,L ), 8) ATMPRES( NCELL ) = PA2ATM * REAL( PRES( C,R,L ), 8) H2O( NCELL ) = REAL( MAX ( MAOMV * QV( C,R,L ), 0.0 ), 8) SEAWATER (NCELL) = MAX ( 0.0D0, ( REAL( SEAWATER_ZONE( C,R ) - SEAICE (C,R) ,8) ) ) c..Get rate constants LSUNLIGHT = .FALSE. FORALL( NPH = 1:NPHOTAB ) RJIN( NCELL,NPH ) = REAL( RJ( C,R,L,NPH ), 8) IF( MAXVAL(RJIN) .GT. 0.0D0 ) LSUNLIGHT = .TRUE. FORALL ( NPH = 1:NHETERO )HET( NCELL,NPH ) = REAL( KHETERO( NPH,C,R,L ), 8) CALL CALC_RCONST( TEMP, ATMPRES, H2O, RJIN, HET, LSUNLIGHT, SEAWATER, RKI_SAV, NCELL ) FORALL( NPH = 1:NRXNS )RKI( NPH ) = RKI_SAV( NCELL, NPH ) #ifdef isam #if defined(isam) || defined(verbose_isam) C...For diagnosing IRR calculations in log files IF( CHECK_ISAM )THEN WRITE_CELL = .FALSE. IF( C .EQ. MAX(1, NCOLS/2) .AND. R .EQ. MAX(1,NROWS/2) .AND. L .EQ. 1 )THEN WRITE_CELL = .TRUE. WRITE(LOGDEV,*)'WRITE_CELL = .TRUE.' ELSE WRITE_CELL = .FALSE. END IF END IF #endif CALL SA_IRR_EXTRACT( C, R, L, DENS( C,R,L ),YC ) #endif c..Call EBI solver N_EBI_IT = 0 CALL HRSOLVER( JDATE, JTIME, C, R, L ) #ifdef hrstats MXEBI = MAX( MXEBI, N_EBI_IT ) MNEBI = MIN( MNEBI, N_EBI_IT ) SUMEBI = SUMEBI + REAL( N_EBI_IT ) #endif c..Update concentration array DO SPC = 1, NUMB_MECH_SPC S = CGRID_INDEX( SPC ) IF( CONVERT_CONC( SPC ) )THEN CGRID( C,R,L,S ) = REAL( REVERSE_CONV( SPC ) * DENS( C,R,L ) & * MAX( YC( SPC ), DCONMIN), 4) ELSE CGRID( C,R,L,S ) = REAL( MAX( YC( SPC ), DCONMIN), 4) END IF END DO IF(CALL_DEG)THEN ! WTH: update based on degrade routines CALL FINAL_DEGRADE(YCCELL) UPDATE_DEGRADED: DO SPC = 1, N_REACT ISP = RXTANT_MAP( SPC ) IF( ISP .LE. 0 )CYCLE UPDATE_DEGRADED DO S = 1, NUMB_MECH_SPC IF( CGRID_INDEX( S ) .EQ. ISP )CYCLE UPDATE_DEGRADED END DO CGRID(C,R,L,ISP) = REAL( YCCELL(ISP), 4) END DO UPDATE_DEGRADED #ifdef isam CALL SA_DEGRADE_UPLOAD( C,R,L,DENS(C,R,L) ) #endif END IF #ifdef isam CALL SA_IRR_UPLOAD( C, R, L, DENS( C,R,L ), YC ) #endif c..update irrout arrays if needed IF ( LFLAGIRR( C,R,L ) )CALL PA_IRR_CELLENDF( C, R, L ) #ifdef sens DO RXN = 1, NRXNS SRK( RXN ) = RKI( RXN ) IF ( HIGH ) THEN IF ( ORDER1 (RXN ) ) THEN SRK2( RXN ) = 0.0 ELSE SRK2( RXN ) = RKI( RXN ) END IF END IF END DO CALL SOLVE_DDM3D_CHEM( C,R,L,CHEMSTEP ) #endif END DO END DO END DO ! Update Aerosol Surface Area CALL HETCHEM_UPDATE_AERO( CGRID ) #ifdef hrstats AVGEBI = SUMEBI / REAL( NCOLS * NROWS * NLAYS ) WRITE( ISTFL, 94040 ) JDATE, JTIME, MNEBI, AVGEBI, MXEBI #endif RETURN C*********************** FORMAT STATEMENTS **************************** 92000 FORMAT( / 10X, 'Euler Backward Iterative Parameters -' & / 10X, 'Chemistry Integration Time Interval (min):', F12.4, & / 10X, 'EBI maximum time step (min): ', F12.4 ) 92020 FORMAT( //10X, 'Species convergence tolerances:' ) 92040 FORMAT( 10X, A16, 2X, 1PE12.2 ) 92060 FORMAT( / 10X, 'Emissions Processing in Chemistry ...' & / 10X, 'Number of Emissions Layers: ', I3 & / 10X, 'out of total Number of Model Layers:', I3 ) 94020 FORMAT( 'DATE TIME ', 'MNEBI AVEBI MXEBI' ) 94040 FORMAT( I7, 1X, I6, 1X, 3( I5, 1X ) ) END ================================================ FILE: CCTM/src/gas/ebi_cb6r5_ae7_aq/hrg1.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE HRG1( DTC ) C********************************************************************** C C FUNCTION: To solve for the concentration of NO2, NO, O3, and O3P C algebraically. C C PRECONDITIONS: For the CB6R5_AE7_AQ mechanism C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by EBI solver program, Jun 8, 2022 C C 18 Jul 14 B.Hutzell: revised to use real(8) variables C 01 Jun 18 B.Hutzell: replaced steady solution for O1D with backward Euler C approximation. To match conditions where the initial C concentration cannot be neglected. C********************************************************************** USE HRDATA IMPLICIT NONE C..INCLUDES: None C..ARGUMENTS: REAL( 8 ), INTENT( IN ) :: DTC ! Time step C..PARAMETERS: None C..EXTERNAL FUNCTIONS: NONE C..SAVED LOCAL VARIABLES: ! CHARACTER( 16 ), SAVE :: PNAME = 'HRG1' ! Prgram Name C..SCRATCH LOCAL VARIABLES: REAL( 8 ) :: O1D_S ! sum of O1D loss frequencies REAL( 8 ) :: O3P_S ! stoich coeff for O3P from O1D REAL( 8 ) :: R1_2 ! production term for NO from NO2 REAL( 8 ) :: R2_1 ! production term for NO2 from NO REAL( 8 ) :: P1, P2, P3, P12 ! production terms for NO, NO2, O3, & O3P REAL( 8 ) :: L1, L2, L3, L12 ! loss terms for NO, NO2, O3, O3P REAL( 8 ) :: L1_INV, L2_INV, & L3_INV, L12_INV ! inverse of loss terms REAL( 8 ) :: T1, T2, T3, T4, T5 ! intermerdiate terms REAL( 8 ) :: F1, F2, F3 ! intermerdiate terms REAL( 8 ) :: A, B, C ! coefficients for quadratic equation REAL( 8 ) :: Q, XX, S1, S2 ! intermerdiate terms REAL( 8 ) :: RK1, RK2, RK3 ! rate constants REAL( 8 ) :: PO3 ! temp variable for O3 C********************************************************************** cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c O1D Section c 1) sum of the rate constants for all O1D loss reactions c 2) get fractional yield of O3P from O1D loss cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc O1D_S = RKI( 10 ) ! O1D=O & + RKI( 11 ) ! O1D=0.2000D+01*OH O3P_S = RKI( 10 ) ! O1D=O O3P_S = O3P_S / O1D_S cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c NO Section c R1_2 = production of NO from NO2 ( rates of form k[NO2][x] ) c except NO2+NO3=NO+NO2 (it is treated as if it were NO3=NO ) c P1 = remaining NO production terms c L1 = loss of NO (except rxns producing NO2 - they are in R2_1) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc R1_2 = RKI( 1 ) ! NO2=NO+O & + RKI( 5 ) * YC ( O ) ! NO2+O=NO R1_2 = R1_2 * DTC P1 = RXRAT( 28 ) ! NO3=NO & + RXRAT( 30 ) ! NO2+NO3=NO+NO2 & + RXRAT( 42 ) ! HONO+HONO=NO+NO2 & + RXRAT( 43 ) ! HONO=NO+OH P1 = YC0( NO ) + P1 * DTC L1 = RKI( 40 ) * YC ( OH ) ! NO+OH=HONO & + RKI( 41 ) * YC ( NO2 ) ! NO+NO2=0.2000D+... & + RKI( 83 ) * YC ( XO2N ) ! NO+XO2N=0.5000D+... & + 1.0000D-01 * RKI( 151 ) * YC ( ISO2 ) ! NO+ISO2=0.1000D+... & + 8.2000D-02 * RKI( 180 ) * YC ( BZO2 ) ! NO+BZO2=0.9180D+... & + 1.4000D-01 * RKI( 185 ) * YC ( TO2 ) ! NO+TO2=0.8600D+... & + 1.4000D-01 * RKI( 191 ) * YC ( XLO2 ) ! NO+XLO2=0.8600D+... L1 = 1.0D0 + L1 * DTC cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c NO2 Section c R2_1 = production of NO2 from NO ( rates of form k[NO][x] ) c a) NO+O3=NO2 not included c b) NO+NO3=2NO2 ( 1/2 of NO2 formation rate included ) c c) NO3+NO2=NO+NO2 is not included for NO2 c P2 = remaining NO2 production terms c a) NO+O3=NO2 not included c b) NO+NO3=2NO2 (1/2 of NO2 formation rate included ) c L2 = loss of NO2 (except rxns producing NO2 - they are in R1_2) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc R2_1 = RKI( 4 ) * YC ( O ) ! NO+O=NO2 & + 2.0000D+00 * RKI( 24 ) * YC ( NO ) ! NO+NO=0.2000D+01*NO2 & + RKI( 25 ) * YC ( HO2 ) ! NO+HO2=NO2+OH & + RKI( 29 ) * YC ( NO3 ) ! NO+NO3=0.2000D+... & + RKI( 53 ) * YC ( C2O3 ) ! NO+C2O3=NO2+MEO2+RO2 & + RKI( 61 ) * YC ( CXO3 ) ! NO+CXO3=NO2+ALD2+... & + RKI( 71 ) * YC ( MEO2 ) ! NO+MEO2=NO2+HO2+FORM & + RKI( 75 ) * YC ( XO2H ) ! NO+XO2H=NO2+HO2 & + RKI( 79 ) * YC ( XO2 ) ! NO+XO2=NO2 & + RKI( 103 ) * YC ( HCO3 ) ! NO+HCO3=NO2+FACD+HO2 & + 9.0000D-01 * RKI( 151 ) * YC ( ISO2 ) ! NO+ISO2=0.9000D+... & + RKI( 167 ) * YC ( EPX2 ) ! NO+EPX2=NO2+... & + 9.1800D-01 * RKI( 180 ) * YC ( BZO2 ) ! NO+BZO2=0.9180D+... & + 8.6000D-01 * RKI( 185 ) * YC ( TO2 ) ! NO+TO2=0.8600D+... & + 8.6000D-01 * RKI( 191 ) * YC ( XLO2 ) ! NO+XLO2=0.8600D+... & + RKI( 212 ) * YC ( OPO3 ) ! NO+OPO3=NO2+... & + RKI( 230 ) * YC ( CLO ) ! NO+CLO=NO2+CL R2_1 = R2_1 * DTC P2 = RXRAT( 27 ) ! NO3=NO2+O & + RXRAT( 29 ) ! NO+NO3=0.2000D+01*NO2 & + RXRAT( 31 ) ! NO3+O=NO2 & + RXRAT( 32 ) ! NO3+OH=NO2+HO2 & + RXRAT( 33 ) ! NO3+HO2=NO2+OH & + RXRAT( 34 ) ! NO3+O3=NO2 & + 2.0000D+00 * RXRAT( 35 ) ! NO3+NO3=0.2000D+01*NO2 & + RXRAT( 37 ) ! N2O5=NO2+NO3 & + RXRAT( 38 ) ! N2O5=NO2+NO3 & + RXRAT( 42 ) ! HONO+HONO=NO2+NO & + RXRAT( 44 ) ! HONO+OH=NO2 & + RXRAT( 47 ) ! HNO3=NO2+OH & + RXRAT( 49 ) ! PNA=NO2+HO2 & + 5.9000D-01 * RXRAT( 50 ) ! PNA=0.5900D+00*NO2+... & + RXRAT( 51 ) ! PNA+OH=NO2 & + RXRAT( 55 ) ! PAN=NO2+C2O3 & + 6.0000D-01 * RXRAT( 56 ) ! PAN=0.6000D+00*NO2+... & + RXRAT( 63 ) ! PANX=NO2+CXO3 & + 6.0000D-01 * RXRAT( 64 ) ! PANX=0.6000D+00*NO2+... & + RXRAT( 92 ) ! NTR1=NO2 & + 5.0000D-01 * RXRAT( 140 ) ! ETH+NO3=0.5000D+... & + 5.0000D-01 * RXRAT( 144 ) ! OLE+NO3=0.5000D+... & + 5.0000D-01 * RXRAT( 148 ) ! IOLE+NO3=0.5000D+... & + 3.5000D-01 * RXRAT( 157 ) ! ISOP+NO3=0.3500D+... & + 1.4200D-01 * RXRAT( 160 ) ! ISPD+NO3=0.1420D+... & + 4.4400D-01 * RXRAT( 170 ) ! INTR+OH=0.4440D+... & + 4.7000D-01 * RXRAT( 174 ) ! TERP+NO3=0.4700D+... & + 4.7000D-01 * RXRAT( 178 ) ! APIN+NO3=0.4700D+... & + 5.0000D-01 * RXRAT( 205 ) ! XOPN+NO3=0.5000D+... & + RXRAT( 214 ) ! OPAN=NO2+OPO3 & + 5.0000D-01 * RXRAT( 218 ) ! OPAN+OH=0.5000D+... & + RXRAT( 219 ) ! PANX+OH=NO2+ALD2 & + RXRAT( 252 ) ! CLNO2=NO2+CL & + RXRAT( 254 ) ! CLNO3=NO2+CLO P2 = YC0( NO2 ) + P2 * DTC L2 = RKI( 6 ) * YC ( O ) ! NO2+O=NO3 & + RKI( 26 ) * YC ( O3 ) ! NO2+O3=NO3 & + RKI( 36 ) * YC ( NO3 ) ! NO2+NO3=N2O5 & + RKI( 41 ) * YC ( NO ) ! NO2+NO=0.2000D+... & + RKI( 45 ) * YC ( OH ) ! NO2+OH=HNO3 & + RKI( 48 ) * YC ( HO2 ) ! NO2+HO2=PNA & + RKI( 54 ) * YC ( C2O3 ) ! NO2+C2O3=PAN & + RKI( 62 ) * YC ( CXO3 ) ! NO2+CXO3=PANX & + RKI( 135 ) * YC ( ROR ) ! NO2+ROR=NTR1 & + RKI( 197 ) * YC ( CRO ) ! NO2+CRO=CRON & + RKI( 213 ) * YC ( OPO3 ) ! NO2+OPO3=OPAN & + RKI( 225 ) * YC ( OH ) ! NO2+OH=HNO3 & + RKI( 253 ) * YC ( CLO ) ! NO2+CLO=CLNO3 & + RKI( 278 ) ! NO2=0.5000D+... L2 = 1.0D0 + L2 * DTC cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c O3 Section c P3 = production of O3 except O+O2=O3 c L3 = loss terms for O3 except NO+O3=NO2 cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc P3 = 1.3000D-01 * RXRAT( 57 ) ! C2O3+HO2=0.1300D+... & + 1.3000D-01 * RXRAT( 65 ) ! CXO3+HO2=0.1300D+... & + 1.3000D-01 * RXRAT( 215 ) ! OPO3+HO2=0.1300D+... P3 = YC0( O3 ) + P3 * DTC L3 = RKI( 7 ) * YC ( O ) ! O3+O= & + RKI( 8 ) ! O3=O & + RKI( 9 ) ! O3=O1D & + RKI( 12 ) * YC ( OH ) ! O3+OH=HO2 & + RKI( 13 ) * YC ( HO2 ) ! O3+HO2=OH & + RKI( 26 ) * YC ( NO2 ) ! O3+NO2=NO3 & + RKI( 34 ) * YC ( NO3 ) ! O3+NO3=NO2 & + RKI( 139 ) * YC ( ETH ) ! O3+ETH=FORM+... & + RKI( 143 ) * YC ( OLE ) ! O3+OLE=0.2950D+... & + RKI( 147 ) * YC ( IOLE ) ! O3+IOLE=0.7320D+... & + RKI( 156 ) * YC ( ISOP ) ! O3+ISOP=0.6000D+... & + RKI( 159 ) * YC ( ISPD ) ! O3+ISPD=0.4000D-... & + RKI( 173 ) * YC ( TERP ) ! O3+TERP=0.5700D+... & + RKI( 177 ) * YC ( APIN ) ! O3+APIN=0.5700D+... & + RKI( 204 ) * YC ( XOPN ) ! O3+XOPN=0.1200D+... & + RKI( 208 ) * YC ( OPEN ) ! O3+OPEN=0.1400D+... & + RKI( 228 ) * YC ( CL ) ! O3+CL=CLO & + RKI( 279 ) ! O3= L3 = 1.0D0 + L3 * DTC cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c O3P Section c P12 = production of O3P except NO2+hv=O3P (J1) c L12 = loss terms cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc P12 = RXRAT( 8 ) ! O3=O & + O3P_S * RXRAT( 9 ) ! O3=O1D & + RXRAT( 16 ) ! OH+OH=O & + RXRAT( 27 ) ! NO3=O+NO2 P12 = YC0( O ) + P12 * DTC L12 = RKI( 2 ) ! O=O3 & + RKI( 4 ) * YC ( NO ) ! O+NO=NO2 & + RKI( 5 ) * YC ( NO2 ) ! O+NO2=NO & + RKI( 6 ) * YC ( NO2 ) ! O+NO2=NO3 & + RKI( 7 ) * YC ( O3 ) ! O+O3= & + RKI( 14 ) * YC ( OH ) ! O+OH=HO2 & + RKI( 15 ) * YC ( HO2 ) ! O+HO2=OH & + RKI( 23 ) * YC ( H2O2 ) ! O+H2O2=OH+HO2 & + RKI( 31 ) * YC ( NO3 ) ! O+NO3=NO2 & + RKI( 99 ) * YC ( FORM ) ! O+FORM=OH+HO2+CO & + RKI( 105 ) * YC ( ALD2 ) ! O+ALD2=C2O3+OH & + RKI( 109 ) * YC ( ALDX ) ! O+ALDX=CXO3+OH & + RKI( 137 ) * YC ( ETH ) ! O+ETH=FORM+HO2+CO+... & + RKI( 141 ) * YC ( OLE ) ! O+OLE=0.2000D+00*ALD2+... & + RKI( 145 ) * YC ( IOLE ) ! O+IOLE=0.1240D+... & + RKI( 150 ) * YC ( ISOP ) ! O+ISOP=0.7500D+... & + RKI( 171 ) * YC ( TERP ) ! O+TERP=0.1500D+... & + RKI( 175 ) * YC ( APIN ) ! O+APIN=0.1500D+... L12 = 1.0D0 + L12 * DTC ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Solution section ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c..compute reciprocal of loss terms L1_INV = 1.0D0 / L1 L2_INV = 1.0D0 / L2 L3_INV = 1.0D0 / L3 L12_INV = 1.0D0 / L12 c..compute specific k*delta t terms RK1 = RKI( 1 ) * DTC ! J1 (NO2+hv=NO+O3P) RK2 = RKI( 2 ) * DTC ! J2 (O3P+O2=O3) RK3 = RKI( 3 ) * DTC ! k1_3 (NO+O3=NO2) c..compute terms that are used to calulate a,b & c T1 = RK1 * L2_INV ! J1 / ( 1.0 + Lno2 * dt ) T2 = R1_2 * L2_INV ! r1,2 / ( 1.0 + Lno2 * dt) T3 = R2_1 * L1_INV ! r2,1 / ( 1.0 + Lno * dt) T4 = RK2 * L12_INV ! J2 / ( 1.0 + Lo3p * dt ) T5 = T3 * P1 - T2 * P2 ! T3 * Pno - T2 * Pno2 F1 = 1.0D0 + T2 + T3 ! factor in calculating a & b F2 = T1 * T4 ! factor in calculating a & b F3 = L3 * L1 + RK3 * P1 ! (1 + Lo3 * dt) (1 + lno * dt ) ! + k1,3 * dt * Pno PO3 = P3 + P12 * T4 A = RK3 * ( F1 - F2 ) B = F1 * F3 + RK3 * ( F2 * ( P2 - P1 ) + PO3 + T5 ) C = RK3 * P1 * ( PO3 + P2 * F2 ) + F3 * T5 Q = -0.5D0 * ( B + SIGN( 1.0D0, B ) * SQRT( B * B - 4.0D0 * A * C ) ) XX = MAX( Q / A , C / Q ) ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Species solutions c [NO] = ( P1 + x ) / ( 1 + L1 ) c [NO2] = ( P2 - x ) / ( 1 + L2 ) c [O3 ] = ( P3 + Ko3p->O3 ) / (1 + K1,3 * [NO] + L3 ) c [O3P] = ( P12 + J1 * [NO2] ) / ( 1 + L12 ) c [O1D] = ( yc0(o1d) + Ko3->o1d * [O3] *dtc) / ( 1 + O1D_S*dtc ) ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc YCP( NO ) = MAX( 0.0D0, ( P1 + XX ) * L1_INV ) YCP( NO2 ) = MAX( 0.0D0, ( P2 - XX ) * L2_INV ) S1 = P12 + RK1 * YCP( NO2 ) S2 = T4 * S1 YCP( O3 ) = ( P3 + S2 ) / ( L3 + RK3 * YCP( NO ) ) YCP( O ) = S1 * L12_INV YCP( O1D ) = ( YC0( O1D ) + RKI( 9 ) * YCP( O3 ) * DTC ) & / ( 1.0D0 + O1D_S * DTC ) RETURN END ================================================ FILE: CCTM/src/gas/ebi_cb6r5_ae7_aq/hrg2.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE HRG2( DTC ) C********************************************************************** C C FUNCTION: To solve for the concentration of HO, HO2, HONO, and C HNO4 alebraically. C C PRECONDITIONS: For the CB6R5_AE7_AQ mechanism C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by EBI solver program, Jun 8, 2022 C C 18 Jul 14 B.Hutzell: revised to use real(8) variables C********************************************************************** USE HRDATA IMPLICIT NONE C..INCLUDES: None C..ARGUMENTS: REAL( 8 ), INTENT( IN ) :: DTC ! Time step C..PARAMETERS: None C..EXTERNAL FUNCTIONS: NONE C..SAVED LOCAL VARIABLES: ! CHARACTER( 16 ), SAVE :: PNAME = 'HRG2' ! Program name C..SCRATCH LOCAL VARIABLES: REAL( 8 ) :: O1D_S ! sum of O1D loss frequencies REAL( 8 ) :: OH_S ! stoich coeff for OH from O1D+H2O or H2 REAL( 8 ) :: HO2_S ! stoich coeff for HO2 from O1D+H2 rxn REAL( 8 ) :: XOH_S ! stoich coeff for OH & HONO from NO2EX loss rxn REAL( 8 ) :: R4_19 ! production of OH from HONO REAL( 8 ) :: R19_4 ! production of HONO from OH REAL( 8 ) :: R4_5 ! production of OH from HO2 REAL( 8 ) :: R5_4 ! production of HO2 from OH REAL( 8 ) :: R5_21 ! production of HO2 from HNO4 REAL( 8 ) :: R21_5 ! production of HNO4 from HO2 REAL( 8 ) :: P4, P5, P19, P21 ! species production form other paths REAL( 8 ) :: L4, L5, L19, L21 ! species loss terms REAL( 8 ) :: A, B, C ! coeffs of quadratic eq. for HO2 REAL( 8 ) :: Q ! intermediate term REAL( 8 ) :: T1, T2, T3 ! intermediate terms REAL( 8 ) :: L21_INV ! reciprocal of HNO4 loss term C********************************************************************** c..stoichiometric coefficient for production of HOX from O3 via O1D O1D_S = RKI( 10 ) ! O1D=O & + RKI( 11 ) ! O1D=0.2000D+01*OH OH_S = 2.0000D+00 * RKI( 11 ) ! O1D=0.2000D+01*OH OH_S = OH_S / O1D_S c..Production of HO from HO2 (r4,5 terms ) R4_5 = RKI( 13 ) * YC ( O3 ) ! HO2+O3=OH & + RKI( 15 ) * YC ( O ) ! HO2+O=OH & + RKI( 25 ) * YC ( NO ) ! HO2+NO=OH+NO2 & + RKI( 33 ) * YC ( NO3 ) ! HO2+NO3=OH+NO2 & + 5.0000D-01 * RKI( 57 ) * YC ( C2O3 ) ! HO2+C2O3=0.5000D+... & + 5.0000D-01 * RKI( 65 ) * YC ( CXO3 ) ! HO2+CXO3=0.5000D+... & + 2.0000D-01 * RKI( 104 ) * YC ( HCO3 ) ! HO2+HCO3=0.2000D+... & + 1.2000D-01 * RKI( 152 ) * YC ( ISO2 ) ! HO2+ISO2=0.1200D+... & + 1.7500D-01 * RKI( 166 ) * YC ( EPX2 ) ! HO2+EPX2=0.1125D+... & + 5.0000D-01 * RKI( 215 ) * YC ( OPO3 ) ! HO2+OPO3=0.5000D+... R4_5 = R4_5 * DTC c..Production of HO from HONO (r4,19 terms ) R4_19 = RKI( 43 ) ! HONO=OH+NO R4_19 = R4_19 * DTC c..Remaining HO production P4 = OH_S * RXRAT( 9 ) ! O1D=0.2000D+01*OH & + 2.0000D+00 * RXRAT( 21 ) ! H2O2=0.2000D+01*OH & + RXRAT( 23 ) ! H2O2+O=OH+HO2 & + RXRAT( 47 ) ! HNO3=OH+NO2 & + 4.1000D-01 * RXRAT( 50 ) ! PNA=0.4100D+00*OH+0.5900D+... & + RXRAT( 88 ) ! MEPX=OH+RO2+MEO2 & + RXRAT( 90 ) ! ROOH=OH+HO2 & + RXRAT( 99 ) ! FORM+O=OH+HO2+CO & + RXRAT( 105 ) ! ALD2+O=OH+C2O3 & + RXRAT( 109 ) ! ALDX+O=OH+CXO3 & + 1.9000D-01 * RXRAT( 114 ) ! GLYD=0.1900D+00*OH+0.1400D+... & + 3.0000D-01 * RXRAT( 137 ) ! ETH+O=0.3000D+00*OH+HO2+CO+... & + 1.7000D-01 * RXRAT( 139 ) ! ETH+O3=0.1700D+00*OH+... & + 1.0000D-01 * RXRAT( 141 ) ! OLE+O=0.1000D+00*OH+... & + 3.3400D-01 * RXRAT( 143 ) ! OLE+O3=0.3340D+00*OH+... & + 5.0000D-01 * RXRAT( 147 ) ! IOLE+O3=0.5000D+00*OH+... & + 2.6600D-01 * RXRAT( 156 ) ! ISOP+O3=0.2660D+00*OH+... & + 4.6100D-01 * RXRAT( 159 ) ! ISPD+O3=0.4610D+00*OH+... & + RXRAT( 163 ) ! HPLD=OH+ISPD & + 9.5000D-01 * RXRAT( 166 ) ! HO2+EPX2=0.1125D+01*OH+... & + 1.2500D-01 * RXRAT( 167 ) ! EPX2+NO=0.1250D+00*OH+... & + 1.0000D-01 * RXRAT( 168 ) ! EPX2+C2O3=0.1000D+00*OH+... & + 1.2500D-01 * RXRAT( 169 ) ! EPX2+RO2=0.1250D+00*OH+... & + 5.7000D-01 * RXRAT( 173 ) ! TERP+O3=0.5700D+00*OH+... & + 5.7000D-01 * RXRAT( 177 ) ! APIN+O3=0.5700D+00*OH+... & + 5.0000D-01 * RXRAT( 204 ) ! XOPN+O3=0.5000D+00*OH+... & + 5.0000D-01 * RXRAT( 208 ) ! OPEN+O3=0.5000D+00*OH+... & + RXRAT( 227 ) ! HOCL=OH+CL & + 1.0000D-01 * RXRAT( 249 ) ! CL+TOL=0.1000D+00*OH+... & + 2.4400D-01 * RXRAT( 250 ) ! CL+XYLMN=0.2440D+00*OH+... & + 2.4400D-01 * RXRAT( 251 ) ! CL+NAPH=0.2440D+00*OH+... P4 = YC0( OH ) + P4 * DTC c..Production of HO2 from OH ( r5,4 terms ) R5_4 = RKI( 12 ) * YC ( O3 ) ! OH+O3=HO2 & + RKI( 14 ) * YC ( O ) ! OH+O=HO2 & + RKI( 22 ) * YC ( H2O2 ) ! OH+H2O2=HO2 & + RKI( 32 ) * YC ( NO3 ) ! OH+NO3=HO2+NO2 & + RKI( 52 ) * YC ( SO2 ) ! OH+SO2=HO2+SULF+... & + RKI( 93 ) * YC ( FACD ) ! OH+FACD=HO2 & + RKI( 96 ) * YC ( FORM ) ! OH+FORM=HO2+CO & + 2.0000D-01 * RKI( 113 ) * YC ( GLYD ) ! OH+GLYD=0.2000D+... & + RKI( 116 ) * YC ( GLY ) ! OH+GLY=HO2+... & + RKI( 122 ) ! OH=HO2 & + RKI( 123 ) * YC ( CO ) ! OH+CO=HO2 & + RKI( 126 ) * YC ( MEOH ) ! OH+MEOH=HO2+FORM & + 9.0000D-01 * RKI( 127 ) * YC ( ETOH ) ! OH+ETOH=0.9000D+... & + 3.0000D-01 * RKI( 136 ) * YC ( ETHY ) ! OH+ETHY=0.3000D+... & + 1.3700D-01 * RKI( 158 ) * YC ( ISPD ) ! OH+ISPD=0.1370D+... & + 5.3000D-01 * RKI( 179 ) * YC ( BENZENE ) ! OH+BENZENE=... & + 1.8000D-01 * RKI( 184 ) * YC ( TOL ) ! OH+TOL=0.1800D+... & + 1.5500D-01 * RKI( 189 ) * YC ( XYLMN ) ! OH+XYLMN=0.1550D+... & + 1.5500D-01 * RKI( 190 ) * YC ( NAPH ) ! OH+NAPH=0.1550D+... & + RKI( 195 ) * YC ( CRES ) ! OH+CRES=HO2+... & + 2.0000D-01 * RKI( 210 ) * YC ( CAT1 ) ! OH+CAT1=0.2000D+... R5_4 = R5_4 * DTC c..Production of HO2 from HNO4 (r5,21 term ) R5_21 = RKI( 49 ) ! PNA=HO2+NO2 & + 5.9000D-01 * RKI( 50 ) ! PNA=0.5900D+... R5_21 = R5_21 * DTC c..Remaining HO2 production terms P5 = RXRAT( 23 ) ! H2O2+O=HO2+OH & + RXRAT( 71 ) ! MEO2+NO=HO2+FORM+NO2 & + 9.0000D-01 * RXRAT( 73 ) ! MEO2+C2O3=0.9000D+00*HO2+... & + 3.7000D-01 * RXRAT( 74 ) ! MEO2+RO2=0.3700D+00*HO2+... & + RXRAT( 75 ) ! XO2H+NO=HO2+NO2 & + 8.0000D-01 * RXRAT( 77 ) ! XO2H+C2O3=0.8000D+00*HO2+... & + 6.0000D-01 * RXRAT( 78 ) ! XO2H+RO2=0.6000D+00*HO2+RO2 & + 8.0000D-01 * RXRAT( 85 ) ! XO2N+C2O3=0.8000D+00*HO2+... & + RXRAT( 90 ) ! ROOH=HO2+OH & + 2.0000D+00 * RXRAT( 97 ) ! FORM=0.2000D+01*HO2+CO & + RXRAT( 99 ) ! FORM+O=HO2+OH+CO & + RXRAT( 100 ) ! FORM+NO3=HO2+HNO3+CO & + RXRAT( 102 ) ! HCO3=HO2+FORM & + RXRAT( 103 ) ! HCO3+NO=HO2+NO2+FACD & + RXRAT( 108 ) ! ALD2=HO2+RO2+CO+MEO2 & + RXRAT( 112 ) ! ALDX=HO2+XO2H+RO2+CO+ALD2 & + 1.4000D+00 * RXRAT( 114 ) ! GLYD=0.1400D+01*HO2+... & + 2.0000D+00 * RXRAT( 117 ) ! GLY=0.2000D+01*HO2+0.2000D+... & + RXRAT( 118 ) ! GLY+NO3=HO2+0.1500D+01*CO+... & + RXRAT( 119 ) ! MGLY=HO2+C2O3+CO & + RXRAT( 134 ) ! ROR=HO2+KET & + RXRAT( 137 ) ! ETH+O=HO2+0.3000D+00*OH+CO+... & + 2.7000D-01 * RXRAT( 139 ) ! ETH+O3=0.2700D+00*HO2+... & + 1.0000D-01 * RXRAT( 141 ) ! OLE+O=0.1000D+00*HO2+... & + 8.0000D-02 * RXRAT( 143 ) ! OLE+O3=0.8000D-01*HO2+... & + 2.5000D-01 * RXRAT( 150 ) ! ISOP+O=0.2500D+00*HO2+... & + 8.1800D-01 * RXRAT( 151 ) ! ISO2+NO=0.8180D+00*HO2+... & + 7.2800D-01 * RXRAT( 153 ) ! ISO2+C2O3=0.7280D+00*HO2+... & + 7.2800D-01 * RXRAT( 154 ) ! ISO2+RO2=0.7280D+00*HO2+... & + RXRAT( 155 ) ! ISO2=HO2+HPLD & + 6.6000D-02 * RXRAT( 156 ) ! ISOP+O3=0.6600D-01*HO2+... & + 3.9800D-01 * RXRAT( 159 ) ! ISPD+O3=0.3980D+00*HO2+... & + 7.6000D-01 * RXRAT( 161 ) ! ISPD=0.7600D+00*HO2+... & + 8.2500D-01 * RXRAT( 167 ) ! EPX2+NO=0.8250D+00*HO2+... & + 6.6000D-01 * RXRAT( 168 ) ! EPX2+C2O3=0.6600D+00*HO2+... & + 8.2500D-01 * RXRAT( 169 ) ! EPX2+RO2=0.8250D+00*HO2+... & + 9.1800D-01 * RXRAT( 180 ) ! BZO2+NO=0.9180D+00*HO2+... & + RXRAT( 181 ) ! BZO2+C2O3=HO2+OPEN+GLY+... & + RXRAT( 183 ) ! BZO2+RO2=HO2+OPEN+GLY+RO2 & + 8.6000D-01 * RXRAT( 185 ) ! TO2+NO=0.8600D+00*HO2+... & + RXRAT( 186 ) ! TO2+C2O3=HO2+0.5200D+... & + RXRAT( 188 ) ! TO2+RO2=HO2+0.5200D+... & + 8.6000D-01 * RXRAT( 191 ) ! XLO2+NO=0.8600D+00*HO2+... & + RXRAT( 193 ) ! XLO2+C2O3=HO2+0.7700D+... & + RXRAT( 194 ) ! XLO2+RO2=HO2+0.7700D+... & + RXRAT( 201 ) ! CRON=HO2+HONO+FORM+OPEN & + 7.0000D-01 * RXRAT( 202 ) ! XOPN=0.7000D+00*HO2+XO2H+... & + RXRAT( 206 ) ! OPEN=HO2+OPO3+CO & + 5.6000D-01 * RXRAT( 208 ) ! OPEN+O3=0.5600D+00*HO2+... & + 8.0000D-01 * RXRAT( 212 ) ! OPO3+NO=0.8000D+00*HO2+... & + RXRAT( 232 ) ! CLO+MEO2=HO2+FORM+CL & + RXRAT( 234 ) ! FMCL=HO2+CO+CL & + RXRAT( 239 ) ! CL+ETH=HO2+0.2000D+01*XO2+... & + RXRAT( 240 ) ! CL+OLE=HO2+0.3300D+00*ALD2+... & + RXRAT( 241 ) ! CL+IOLE=HO2+0.7000D+... & + RXRAT( 243 ) ! CL+FORM=HO2+HCL+CO & + RXRAT( 246 ) ! CL+MEOH=HO2+HCL+FORM & + RXRAT( 247 ) ! CL+ETOH=HO2+HCL+ALD2 & + 1.8000D-01 * RXRAT( 249 ) ! CL+TOL=0.1800D+00*HO2+... & + 1.5500D-01 * RXRAT( 250 ) ! CL+XYLMN=0.1550D+00*HO2+... & + 1.5500D-01 * RXRAT( 251 ) ! CL+NAPH=0.1550D+00*HO2+... P5 = YC0( HO2 ) + P5 * DTC c..Production of HONO from OH (r19,4 terms ) R19_4 = RKI( 40 ) * YC( NO ) * DTC ! OH+NO=HONO c..Remaining HONO production terms P19 = 2.0000D+00 * RXRAT( 41 ) ! NO+NO2=0.2000D+01*HONO & + RXRAT( 201 ) ! CRON=HONO+HO2+FORM+OPEN & + 5.0000D-01 * RXRAT( 278 ) ! NO2=0.5000D+00*HONO+... P19 = YC0( HONO ) + P19 * DTC c..Production of PNA from HO2 (r21,5 term ) R21_5 = RKI( 48 ) * YCP( NO2 ) * DTC ! HO2+NO2=HNO4 c..Remaining PNA production terms P21 = YC0( PNA ) c..OH loss terms not in R5_4 & R19_4 L4 = 2.0000D+00 * RKI( 16 ) * YC ( OH ) ! OH+OH=O & + 2.0000D+00 * RKI( 17 ) * YC ( OH ) ! OH+OH=H2O2 & + RKI( 18 ) * YC ( HO2 ) ! OH+HO2= & + RKI( 44 ) * YC ( HONO ) ! OH+HONO=NO2 & + RKI( 45 ) * YC ( NO2 ) ! OH+NO2=HNO3 & + RKI( 46 ) * YC ( HNO3 ) ! OH+HNO3=NO3 & + RKI( 51 ) * YC ( PNA ) ! OH+PNA=NO2 & + 6.0000D-01 * RKI( 87 ) * YC ( MEPX ) ! OH+MEPX=0.6000D+... & + 6.0000D-01 * RKI( 89 ) * YC ( ROOH ) ! OH+ROOH=0.5400D+... & + RKI( 91 ) * YC ( NTR1 ) ! OH+NTR1=NTR2 & + RKI( 94 ) * YC ( AACD ) ! OH+AACD=MEO2+RO2 & + RKI( 95 ) * YC ( PACD ) ! OH+PACD=C2O3 & + RKI( 106 ) * YC ( ALD2 ) ! OH+ALD2=C2O3 & + RKI( 110 ) * YC ( ALDX ) ! OH+ALDX=CXO3 & + 8.0000D-01 * RKI( 113 ) * YC ( GLYD ) ! OH+GLYD=0.2000D+... & + RKI( 121 ) * YC ( MGLY ) ! OH+MGLY=C2O3+CO & + RKI( 124 ) ! OH=MEO2+RO2 & + RKI( 125 ) * YC ( ETHA ) ! OH+ETHA=0.9910D+... & + 1.0000D-01 * RKI( 127 ) * YC ( ETOH ) ! OH+ETOH=0.9000D+... & + RKI( 130 ) * YC ( ACET ) ! OH+ACET=FORM+... & + RKI( 131 ) * YC ( PRPA ) ! OH+PRPA=XPRP & + RKI( 132 ) * YC ( PAR ) ! OH+PAR=XPAR & + RKI( 138 ) * YC ( ETH ) ! OH+ETH=XO2H+RO2+... & + RKI( 142 ) * YC ( OLE ) ! OH+OLE=0.7810D+... & + RKI( 146 ) * YC ( IOLE ) ! OH+IOLE=0.1300D+... & + RKI( 149 ) * YC ( ISOP ) ! OH+ISOP=ISO2+RO2+... & + 8.6300D-01 * RKI( 158 ) * YC ( ISPD ) ! OH+ISPD=0.1370D+... & + 6.7000D-02 * RKI( 162 ) * YC ( ISPX ) ! OH+ISPX=0.9040D+... & + RKI( 165 ) * YC ( EPOX ) ! OH+EPOX=EPX2+RO2 & + RKI( 170 ) * YC ( INTR ) ! OH+INTR=0.6300D+... & + RKI( 172 ) * YC ( TERP ) ! OH+TERP=0.7500D+... & + RKI( 176 ) * YC ( APIN ) ! OH+APIN=0.7500D+... & + 3.5200D-01 * RKI( 179 ) * YC ( BENZENE ) ! OH+BENZENE=... & + 7.2000D-01 * RKI( 184 ) * YC ( TOL ) ! OH+TOL=0.1800D+... & + 6.0100D-01 * RKI( 189 ) * YC ( XYLMN ) ! OH+XYLMN=0.1550D+... & + 6.0100D-01 * RKI( 190 ) * YC ( NAPH ) ! OH+NAPH=0.1550D+... & + RKI( 199 ) * YC ( CRON ) ! OH+CRON=NTR2+... & + RKI( 203 ) * YC ( XOPN ) ! OH+XOPN=MGLY+... & + RKI( 207 ) * YC ( OPEN ) ! OH+OPEN=0.6000D+... & + 8.0000D-01 * RKI( 210 ) * YC ( CAT1 ) ! OH+CAT1=0.2000D+... & + RKI( 218 ) * YC ( OPAN ) ! OH+OPAN=0.5000D+... & + RKI( 219 ) * YC ( PANX ) ! OH+PANX=ALD2+NO2 & + RKI( 220 ) * YC ( ECH4 ) ! OH+ECH4=MEO2+RO2 & + RKI( 225 ) * YC ( NO2 ) ! OH+NO2=HNO3 & + RKI( 233 ) * YC ( FMCL ) ! OH+FMCL=CL+CO & + RKI( 248 ) * YC ( HCL ) ! OH+HCL=CL & + RKI( 346 ) * YC ( DMS ) ! OH+DMS=SO2+MEO2+FORM & + RKI( 347 ) * YC ( DMS ) ! OH+DMS=0.7500D+... L4 = 1.0D0 + L4 * DTC + R5_4 + R19_4 c..HO2 loss terms not included in R4_5 & R21_5 (except for HO2+HO2 ) L5 = RKI( 18 ) * YC ( OH ) ! HO2+OH= & + 5.0000D-01 * RKI( 57 ) * YC ( C2O3 ) ! HO2+C2O3=0.5000D+... & + 5.0000D-01 * RKI( 65 ) * YC ( CXO3 ) ! HO2+CXO3=0.5000D+... & + RKI( 72 ) * YC ( MEO2 ) ! HO2+MEO2=0.9000D+... & + RKI( 76 ) * YC ( XO2H ) ! HO2+XO2H=ROOH & + RKI( 80 ) * YC ( XO2 ) ! HO2+XO2=ROOH & + RKI( 84 ) * YC ( XO2N ) ! HO2+XO2N=ROOH & + RKI( 101 ) * YC ( FORM ) ! HO2+FORM=HCO3 & + 6.0000D-01 * RKI( 104 ) * YC ( HCO3 ) ! HO2+HCO3=0.2000D+... & + 7.6000D-01 * RKI( 152 ) * YC ( ISO2 ) ! HO2+ISO2=0.1200D+... & + RKI( 182 ) * YC ( BZO2 ) ! HO2+BZO2= & + RKI( 187 ) * YC ( TO2 ) ! HO2+TO2= & + RKI( 192 ) * YC ( XLO2 ) ! HO2+XLO2= & + RKI( 198 ) * YC ( CRO ) ! HO2+CRO=CRES & + 5.0000D-01 * RKI( 215 ) * YC ( OPO3 ) ! HO2+OPO3=0.5000D+... & + RKI( 231 ) * YC ( CLO ) ! HO2+CLO=HOCL L5 = 1.0D0 + L5 * DTC + R4_5 + R21_5 c..HONO loss terms not included in R4_19 L19 = 2.0000D+00 * RKI( 42 ) * YC ( HONO ) ! HONO+HONO=NO+NO2 & + RKI( 44 ) * YC ( OH ) ! HONO+OH=NO2 L19 = 1.0D0 + L19 * DTC + R4_19 c..PNA loss terms not included in R5_21 L21 = 4.1000D-01 * RKI( 50 ) ! PNA=0.5900D+... & + RKI( 51 ) * YC ( OH ) ! PNA+OH=NO2 L21 = 1.0D0 + L21 * DTC + R5_21 ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Solution section ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c..compute terms used to calculate a,b & c L21_INV = 1.0D0 / L21 T1 = 1.0D0 / ( L4 * L19 - R4_19 * R19_4 ) T2 = R5_4 * T1 T3 = R5_21 * L21_INV c..solve quadratic equation for HO2 A = 2.0D0 * ( RKI( 19 ) + RKI( 20 ) ) * DTC B = L5 - T3 * R21_5 - T2 * R4_5 * L19 C = P5 + T3 * P21 + T2 * ( P4 * L19 + P19 * R4_19 ) Q = -0.5D0 * ( B + SIGN( 1.0D0, B ) * SQRT( B * B + 4.0D0 * A * C ) ) YCP( HO2 ) = MAX( Q / A , -C / Q ) c..compute remaining species concentrations YCP( OH ) = ( ( P4 + R4_5 * YCP( HO2 ) ) * L19 + R4_19 * P19 ) * T1 YCP( PNA ) = ( P21 + R21_5 * YCP( HO2 ) ) * L21_INV YCP( HONO ) = ( P19 + R19_4 * YCP( OH ) ) / L19 RETURN END ================================================ FILE: CCTM/src/gas/ebi_cb6r5_ae7_aq/hrg3.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE HRG3( DTC ) C********************************************************************** C C FUNCTION: To solve for the concentration of C2O3 and PAN C C PRECONDITIONS: For the CB6R5_AE7_AQ mechanism C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by EBI solver program, Jun 8, 2022 C C 18 Jul 14 B.Hutzell: revised to use real(8) variables C********************************************************************** USE HRDATA IMPLICIT NONE C..INCLUDES: NONE C..ARGUMENTS: REAL( 8 ), INTENT( IN ) :: DTC ! Time step C..PARAMETERS: NONE C..EXTERNAL FUNCTIONS: NONE C..SAVED LOCAL VARIABLES: ! CHARACTER( 16 ), SAVE :: PNAME = 'HRG3' ! Program name C..SCRATCH LOCAL VARIABLES: REAL( 8 ) :: A, B, C, Q ! Quadratic equation terms REAL( 8 ) :: CMN ! Temp scalar REAL( 8 ) :: L8 ! Loss of CCO_O2 REAL( 8 ) :: L9 ! Loss of PAN REAL( 8 ) :: P8 ! Production of CCO_O2 REAL( 8 ) :: K8_8 ! Kc2o3+c2o3 * delta t REAL( 8 ) :: R8_9 ! Kpan-->c2o3 * delta t REAL( 8 ) :: R9_8 ! Kc2o3+no2-->pan * [NO2] * delta t C********************************************************************** c..Production of C2O3 (except from PAN ) P8 = RXRAT( 95 ) ! PACD+OH=C2O3 & + RXRAT( 105 ) ! ALD2+O=C2O3+OH & + RXRAT( 106 ) ! ALD2+OH=C2O3 & + RXRAT( 107 ) ! ALD2+NO3=C2O3+HNO3 & + 8.0000D-01 * RXRAT( 113 ) ! GLYD+OH=0.8000D+00*C2O3+... & + RXRAT( 115 ) ! GLYD+NO3=C2O3+HNO3 & + RXRAT( 119 ) ! MGLY=C2O3+HO2+CO & + RXRAT( 120 ) ! MGLY+NO3=C2O3+HNO3+XO2+RO2 & + RXRAT( 121 ) ! MGLY+OH=C2O3+CO & + 5.0000D-01 * RXRAT( 128 ) ! KET=0.5000D+00*C2O3+... & + 6.2000D-01 * RXRAT( 129 ) ! ACET=0.6200D+00*C2O3+... & + RXRAT( 130 ) ! ACET+OH=C2O3+FORM+XO2+RO2 & + 2.6900D-01 * RXRAT( 158 ) ! ISPD+OH=0.2690D+00*C2O3+... & + 1.4300D-01 * RXRAT( 159 ) ! ISPD+O3=0.1430D+00*C2O3+... & + 2.0800D-01 * RXRAT( 161 ) ! ISPD=0.2080D+00*C2O3+... & + 3.0000D-01 * RXRAT( 202 ) ! XOPN=0.3000D+00*C2O3+XO2H+... & + 6.0000D-01 * RXRAT( 204 ) ! XOPN+O3=0.6000D+00*C2O3+... & + 1.2000D-01 * RXRAT( 208 ) ! OPEN+O3=0.1200D+00*C2O3+... & + RXRAT( 244 ) ! CL+ALD2=C2O3+HCL c..Loss frequency of C2O3 ( not including C2O3 + C2O3 ) L8 = RKI( 53 ) * YC ( NO ) ! C2O3+NO=NO2+MEO2+RO2 & + RKI( 54 ) * YC ( NO2 ) ! C2O3+NO2=PAN & + RKI( 57 ) * YC ( HO2 ) ! C2O3+HO2=0.3700D+... & + RKI( 58 ) * YC ( RO2 ) ! C2O3+RO2=MEO2 & + RKI( 60 ) * YC ( CXO3 ) ! C2O3+CXO3=MEO2+... & + RKI( 73 ) * YC ( MEO2 ) ! C2O3+MEO2=FORM+... & + RKI( 77 ) * YC ( XO2H ) ! C2O3+XO2H=... & + RKI( 81 ) * YC ( XO2 ) ! C2O3+XO2=0.8000D+... & + RKI( 85 ) * YC ( XO2N ) ! C2O3+XO2N=... & + RKI( 153 ) * YC ( ISO2 ) ! C2O3+ISO2=... & + RKI( 168 ) * YC ( EPX2 ) ! C2O3+EPX2=... & + RKI( 181 ) * YC ( BZO2 ) ! C2O3+BZO2=GLY+... & + RKI( 186 ) * YC ( TO2 ) ! C2O3+TO2=0.4800D+... & + RKI( 193 ) * YC ( XLO2 ) ! C2O3+XLO2=... & + RKI( 216 ) * YC ( OPO3 ) ! C2O3+OPO3=MEO2+... c..Loss frequency of PAN L9 = RKI( 55 ) ! PAN=NO2+C2O3 & + RKI( 56 ) ! PAN=0.6000D+... c..K8_8, R8_9, and R9_8 terms K8_8 = RKI( 59 ) * DTC R8_9 = ( RKI( 55 ) & + RKI( 56 ) ) * DTC R9_8 = ( RKI( 54 ) * YC( NO2 ) ) * DTC c..Solution of quadratic equation to get C2O3 & PAN CMN = 1.0 + L9 * DTC A = 2.0D0 * K8_8 * CMN B = CMN * ( 1.0D0 + L8 * DTC ) - R8_9 * R9_8 C = CMN * ( YC0( C2O3 ) + P8 * DTC ) + R8_9 * YC0( PAN ) Q = -0.5D0 * ( B + SIGN( 1.0D0, B ) * SQRT( B * B + 4.0D0 * A * C ) ) YCP( C2O3 ) = MAX( Q / A , -C / Q ) YCP( PAN ) = ( YC0( PAN ) + R9_8 * YCP( C2O3 ) ) / CMN RETURN END ================================================ FILE: CCTM/src/gas/ebi_cb6r5_ae7_aq/hrg4.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE HRG4( DTC ) C********************************************************************** C C FUNCTION: To solve for the concentration of NO3 and N2O5 C C PRECONDITIONS: For the CB6R5_AE7_AQ mechanism C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by EBI solver program, Jun 8, 2022 C C 18 Jul 14 B.Hutzell: revised to use real(8) variables C********************************************************************** USE HRDATA IMPLICIT NONE C..INCLUDES: NONE C..ARGUMENTS: REAL( 8 ), INTENT( IN ) :: DTC ! Time step C..PARAMETERS: NONE C..EXTERNAL FUNCTIONS: NONE C..SAVED LOCAL VARIABLES: ! CHARACTER( 16 ), SAVE :: PNAME = 'HRG4' ! Program name C..SCRATCH LOCAL VARIABLES: REAL( 8 ) :: A, B, C, Q ! Quadratic equation terms REAL( 8 ) :: CMN ! Temp scalar REAL( 8 ) :: L15 ! Loss of NO3 REAL( 8 ) :: L16 ! Loss of N2O5 REAL( 8 ) :: P15 ! Production of NO3 REAL( 8 ) :: K15_15 ! Kno3+no3 * delta t REAL( 8 ) :: R15_16 ! Kn2o5-->no3 * delta t REAL( 8 ) :: R16_15 ! Kno3+no2-->n2o5[NO2] * delta t C********************************************************************** c..Production of NO3 (except from N2O5 ) P15 = RKI( 6 ) * YCP( O ) * YCP( NO2 ) ! O+NO2=NO3 & + RKI( 26 ) * YCP( NO2 ) * YCP( O3 ) ! NO2+O3=NO3 & + RKI( 46 ) * YC ( HNO3 ) * YCP( OH ) ! HNO3+OH=NO3 & + 4.1000D-01 * RKI( 50 ) * YC ( PNA ) ! PNA=0.4100D+00*NO3+0.5900D+... & + 4.0000D-01 * RKI( 56 ) * YC ( PAN ) ! PAN=0.4000D+00*NO3+0.6000D+... & + 4.0000D-01 * RKI( 64 ) * YC ( PANX ) ! PANX=0.4000D+00*NO3+... & + 1.8500D-01 * RKI( 170 ) * YC ( INTR ) * YCP( OH ) ! INTR+OH=0.1850D+00*NO3+... & + RKI( 255 ) * YC ( CLNO3 ) ! CLNO3=NO3+CL c..Loss frequency of NO3 ( except NO3 + NO3 if present ) L15 = RKI( 27 ) ! NO3=NO2+O & + RKI( 28 ) ! NO3=NO & + RKI( 29 ) * YCP( NO ) ! NO3+NO=0.2000D+... & + RKI( 30 ) * YCP( NO2 ) ! NO3+NO2=NO+NO2 & + RKI( 31 ) * YCP( O ) ! NO3+O=NO2 & + RKI( 32 ) * YCP( OH ) ! NO3+OH=HO2+NO2 & + RKI( 33 ) * YCP( HO2 ) ! NO3+HO2=OH+NO2 & + RKI( 34 ) * YCP( O3 ) ! NO3+O3=NO2 & + RKI( 36 ) * YCP( NO2 ) ! NO3+NO2=N2O5 & + RKI( 100 ) * YC ( FORM ) ! NO3+FORM=HNO3+HO2+CO & + RKI( 107 ) * YC ( ALD2 ) ! NO3+ALD2=C2O3+HNO3 & + RKI( 111 ) * YC ( ALDX ) ! NO3+ALDX=CXO3+HNO3 & + RKI( 115 ) * YC ( GLYD ) ! NO3+GLYD=HNO3+C2O3 & + RKI( 118 ) * YC ( GLY ) ! NO3+GLY=HNO3+... & + RKI( 120 ) * YC ( MGLY ) ! NO3+MGLY=HNO3+... & + RKI( 140 ) * YC ( ETH ) ! NO3+ETH=0.5000D+... & + RKI( 144 ) * YC ( OLE ) ! NO3+OLE=0.5000D+... & + RKI( 148 ) * YC ( IOLE ) ! NO3+IOLE=0.5000D+... & + RKI( 157 ) * YC ( ISOP ) ! NO3+ISOP=0.3500D+... & + RKI( 160 ) * YC ( ISPD ) ! NO3+ISPD=0.7170D+... & + RKI( 164 ) * YC ( HPLD ) ! NO3+HPLD=HNO3+ISPD & + RKI( 174 ) * YC ( TERP ) ! NO3+TERP=0.4700D+... & + RKI( 178 ) * YC ( APIN ) ! NO3+APIN=0.4700D+... & + RKI( 196 ) * YC ( CRES ) ! NO3+CRES=0.3000D+... & + RKI( 200 ) * YC ( CRON ) ! NO3+CRON=NTR2+... & + RKI( 205 ) * YC ( XOPN ) ! NO3+XOPN=0.5000D+... & + RKI( 209 ) * YC ( OPEN ) ! NO3+OPEN=OPO3+HNO3 & + RKI( 211 ) * YC ( CAT1 ) ! NO3+CAT1=CRO+HNO3 & + RKI( 348 ) * YC ( DMS ) ! NO3+DMS=SO2+HNO3+... c..Loss frequency of N2O5 L16 = RKI( 37 ) ! N2O5=NO3+NO2 & + RKI( 38 ) ! N2O5=NO2+NO3 & + RKI( 39 ) ! N2O5=0.2000D+01*HNO3 & + RKI( 271 ) ! N2O5=HNO3+H2NO3PIJ & + RKI( 272 ) ! N2O5=HNO3+H2NO3PK c..K15_15, R15_16, and R16_15 terms K15_15 = RKI( 35 ) * DTC R15_16 = ( RKI( 37 ) & + RKI( 38 ) ) * DTC R16_15 = RKI( 36 ) * YCP( NO2 ) * DTC c..Solution of quadratic equation to get NO3 & N2O5 CMN = 1.0D0 + L16 * DTC A = 2.0D0 * K15_15 * CMN B = CMN * ( 1.0D0 + L15 * DTC ) - R15_16 * R16_15 C = CMN * ( YC0( NO3 ) + P15 * DTC ) + R15_16 * YC0( N2O5 ) Q = -0.5D0 * ( B + SIGN( 1.0D0, B ) * SQRT( B * B + 4.0D0 * A * C ) ) YCP( NO3 ) = MAX( Q / A , -C / Q ) YCP( N2O5 ) = ( YC0( N2O5 ) + R16_15 * YCP( NO3 ) ) / CMN RETURN END ================================================ FILE: CCTM/src/gas/ebi_cb6r5_ae7_aq/hrinit.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE HRINIT C*********************************************************************** C C FUNCTION: To initialize species tolerances, arrays, and indices C C PRECONDITIONS: For the CB6R5_AE7_AQ mechanism C C RETURN VALUES: None C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by EBI solver program, Jun 8, 2022 C 21 Jun 10 J.Young: convert for Namelist redesign C 18 Jul 14 B.Hutzell: revised to use the RXNS_DATA and RXNS_FUNCTION C modules instead of include files C*********************************************************************** USE UTILIO_DEFN USE HRDATA USE RXNS_DATA USE RXNS_FUNCTION IMPLICIT NONE C.....INCLUDES: Include SUBST_CONST ! common constants C.....ARGUMENTS: NONE C.....PARAMETERS: NONE C.....SAVED VARIABLES: CHARACTER( 16 ), SAVE :: PNAME = 'HRINIT' ! Program name C.....LOCAL VARIABLES: CHARACTER( 132 ) :: MSG ! Log message INTEGER N ! Loop index INTEGER IOS ! Allocate error status C*********************************************************************** N_SPEC = NUMB_MECH_SPC N_RXNS = NRXNS N_SPCL_RKS = 0 ALLOCATE( RKI( NRXNS ), & RKI_SAV( MAX_CELLS_EBI, NRXNS ), & FORWARD_CONV( NUMB_MECH_SPC), & REVERSE_CONV( NUMB_MECH_SPC), & RXRAT( NRXNS ), & RTOL( NUMB_MECH_SPC), & YC( NUMB_MECH_SPC), & YC0( NUMB_MECH_SPC), & YCP( NUMB_MECH_SPC), & PROD( NUMB_MECH_SPC), & LOSS( NUMB_MECH_SPC), & PNEG( N_SPEC), & STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating RKI, RXRAT, RTOL, YC, YC0, YCP, FORWARD_CONV, ' & // 'REVERSE_CONV, PROD, LOSS, or PNEG' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF ALLOCATE( ATMPRES( MAX_CELLS_EBI ), & H2O ( MAX_CELLS_EBI ), & TEMP ( MAX_CELLS_EBI ), & DENSITY( MAX_CELLS_EBI ), & HET ( MAX_CELLS_EBI, NHETERO ), & RJIN ( MAX_CELLS_EBI, NPHOTAB ), & SEAWATER ( MAX_CELLS_EBI ) , & STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating ATMPRES, H2O, TEMP, HET, RJIN, SEAWATER ' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF IF( NSPECIAL .GT. 0 )THEN ALLOCATE( SYC( MAX_CELLS_EBI, NUMB_MECH_SPC ), STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating SYC' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF ALLOCATE( IOLD2NEW( NUMB_MECH_SPC, 1 ), STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating IOLD2NEW' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF DO N = 1, NUMB_MECH_SPC IOLD2NEW( N, 1 ) = N END DO END IF IF( .NOT. MAP_CHEMISTRY_SPECIES() )THEN MSG = 'Detected above error(s) when mapping Chemistry species from CGRID species' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT2 ) END IF DO N = 1, NUMB_MECH_SPC FORWARD_CONV( N ) = 1.0E-3 * MWAIR / SPECIES_MOLWT( N ) REVERSE_CONV( N ) = 1.0E+3 / MWAIR * SPECIES_MOLWT( N ) END DO ! initialize all reaction rates to zero so unused array elements are defined RXRAT = 0.0D0 ! initialize all production and loss rates to zero so unused array elements are defined PROD = 0.0D0 LOSS = 0.0D0 NING1 = 4 NING2 = 4 ALLOCATE( YCCELL( MODEL_SPECIES), STAT = IOS ) ! array for degradation routines IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating YCCELL ' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF c..Allocate and define ebi species N_EBISP = 136 ALLOCATE( EBISP( N_EBISP ), STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating EBISP' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF EBISP( 1 ) = H2O2 EBISP( 2 ) = HNO3 EBISP( 3 ) = SO2 EBISP( 4 ) = SULF EBISP( 5 ) = SULRXN EBISP( 6 ) = MEO2 EBISP( 7 ) = RO2 EBISP( 8 ) = PACD EBISP( 9 ) = AACD EBISP( 10 ) = CXO3 EBISP( 11 ) = ALD2 EBISP( 12 ) = XO2H EBISP( 13 ) = PANX EBISP( 14 ) = FORM EBISP( 15 ) = MEPX EBISP( 16 ) = MEOH EBISP( 17 ) = ROOH EBISP( 18 ) = XO2 EBISP( 19 ) = XO2N EBISP( 20 ) = NTR1 EBISP( 21 ) = NTR2 EBISP( 22 ) = FACD EBISP( 23 ) = CO EBISP( 24 ) = HCO3 EBISP( 25 ) = ALDX EBISP( 26 ) = GLYD EBISP( 27 ) = GLY EBISP( 28 ) = MGLY EBISP( 29 ) = ETHA EBISP( 30 ) = ETOH EBISP( 31 ) = KET EBISP( 32 ) = PAR EBISP( 33 ) = ACET EBISP( 34 ) = PRPA EBISP( 35 ) = XPRP EBISP( 36 ) = XPAR EBISP( 37 ) = ROR EBISP( 38 ) = ETHY EBISP( 39 ) = ETH EBISP( 40 ) = OLE EBISP( 41 ) = IOLE EBISP( 42 ) = ISOP EBISP( 43 ) = ISO2 EBISP( 44 ) = ISOPRXN EBISP( 45 ) = ISPD EBISP( 46 ) = INTR EBISP( 47 ) = ISPX EBISP( 48 ) = HPLD EBISP( 49 ) = OPO3 EBISP( 50 ) = EPOX EBISP( 51 ) = EPX2 EBISP( 52 ) = TERP EBISP( 53 ) = TRPRXN EBISP( 54 ) = TERPNRO2 EBISP( 55 ) = APIN EBISP( 56 ) = BENZENE EBISP( 57 ) = CRES EBISP( 58 ) = BZO2 EBISP( 59 ) = OPEN EBISP( 60 ) = BENZRO2 EBISP( 61 ) = TOL EBISP( 62 ) = TO2 EBISP( 63 ) = TOLRO2 EBISP( 64 ) = XOPN EBISP( 65 ) = XYLMN EBISP( 66 ) = XLO2 EBISP( 67 ) = XYLRO2 EBISP( 68 ) = NAPH EBISP( 69 ) = PAHRO2 EBISP( 70 ) = CRO EBISP( 71 ) = CAT1 EBISP( 72 ) = CRON EBISP( 73 ) = OPAN EBISP( 74 ) = ECH4 EBISP( 75 ) = CL2 EBISP( 76 ) = CL EBISP( 77 ) = HOCL EBISP( 78 ) = CLO EBISP( 79 ) = FMCL EBISP( 80 ) = HCL EBISP( 81 ) = CLNO2 EBISP( 82 ) = CLNO3 EBISP( 83 ) = SVAVB2 EBISP( 84 ) = SVAVB3 EBISP( 85 ) = SVAVB4 EBISP( 86 ) = SVAVB1 EBISP( 87 ) = SESQ EBISP( 88 ) = SESQRXN EBISP( 89 ) = SOAALK EBISP( 90 ) = H2NO3PIJ EBISP( 91 ) = H2NO3PK EBISP( 92 ) = ACLI EBISP( 93 ) = ACLJ EBISP( 94 ) = ACLK EBISP( 95 ) = IEPOXP EBISP( 96 ) = ASO4J EBISP( 97 ) = AISO3J EBISP( 98 ) = AGLYJ EBISP( 99 ) = MTNO3 EBISP( 100 ) = AMTNO3J EBISP( 101 ) = AMTHYDJ EBISP( 102 ) = AAVB2J EBISP( 103 ) = AOLGAJ EBISP( 104 ) = AAVB3J EBISP( 105 ) = AAVB4J EBISP( 106 ) = AISO1J EBISP( 107 ) = AOLGBJ EBISP( 108 ) = AISO2J EBISP( 109 ) = ASQTJ EBISP( 110 ) = APOCI EBISP( 111 ) = APNCOMI EBISP( 112 ) = APOCJ EBISP( 113 ) = APNCOMJ EBISP( 114 ) = PCVOC EBISP( 115 ) = PCSOARXN EBISP( 116 ) = VLVPO1 EBISP( 117 ) = VSVPO1 EBISP( 118 ) = VSVPO2 EBISP( 119 ) = VSVPO3 EBISP( 120 ) = VIVPO1 EBISP( 121 ) = VLVOO1 EBISP( 122 ) = VLVOO2 EBISP( 123 ) = VSVOO2 EBISP( 124 ) = VSVOO3 EBISP( 125 ) = VSVOO1 EBISP( 126 ) = FORM_PRIMARY EBISP( 127 ) = ALD2_PRIMARY EBISP( 128 ) = BUTADIENE13 EBISP( 129 ) = ACROLEIN EBISP( 130 ) = ACRO_PRIMARY EBISP( 131 ) = TOLU EBISP( 132 ) = HG EBISP( 133 ) = HGIIAER EBISP( 134 ) = HGIIGAS EBISP( 135 ) = DMS EBISP( 136 ) = MSA cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Set species tolerances cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc RTOL( NO2 ) = 5.0D-04 RTOL( NO ) = 5.0D-04 RTOL( O ) = 1.0D+00 RTOL( O3 ) = 5.0D-04 RTOL( NO3 ) = 5.0D-04 RTOL( O1D ) = 1.0D+00 RTOL( OH ) = 5.0D-04 RTOL( HO2 ) = 5.0D-04 RTOL( H2O2 ) = 5.0D-04 RTOL( N2O5 ) = 5.0D-04 RTOL( HNO3 ) = 5.0D-04 RTOL( HONO ) = 5.0D-04 RTOL( PNA ) = 5.0D-04 RTOL( SO2 ) = 5.0D-04 RTOL( SULF ) = 1.0D+00 RTOL( SULRXN ) = 1.0D+00 RTOL( C2O3 ) = 5.0D-04 RTOL( MEO2 ) = 5.0D-04 RTOL( RO2 ) = 5.0D-04 RTOL( PAN ) = 5.0D-04 RTOL( PACD ) = 5.0D-04 RTOL( AACD ) = 5.0D-04 RTOL( CXO3 ) = 5.0D-04 RTOL( ALD2 ) = 5.0D-04 RTOL( XO2H ) = 5.0D-04 RTOL( PANX ) = 5.0D-04 RTOL( FORM ) = 5.0D-04 RTOL( MEPX ) = 5.0D-04 RTOL( MEOH ) = 5.0D-04 RTOL( ROOH ) = 5.0D-04 RTOL( XO2 ) = 5.0D-04 RTOL( XO2N ) = 5.0D-04 RTOL( NTR1 ) = 5.0D-04 RTOL( NTR2 ) = 5.0D-04 RTOL( FACD ) = 5.0D-04 RTOL( CO ) = 5.0D-04 RTOL( HCO3 ) = 1.0D+00 RTOL( ALDX ) = 5.0D-04 RTOL( GLYD ) = 5.0D-04 RTOL( GLY ) = 5.0D-04 RTOL( MGLY ) = 5.0D-04 RTOL( ETHA ) = 5.0D-04 RTOL( ETOH ) = 5.0D-04 RTOL( KET ) = 5.0D-04 RTOL( PAR ) = 5.0D-04 RTOL( ACET ) = 5.0D-04 RTOL( PRPA ) = 5.0D-04 RTOL( XPRP ) = 5.0D-04 RTOL( XPAR ) = 5.0D-04 RTOL( ROR ) = 5.0D-04 RTOL( ETHY ) = 5.0D-04 RTOL( ETH ) = 5.0D-04 RTOL( OLE ) = 5.0D-04 RTOL( IOLE ) = 5.0D-04 RTOL( ISOP ) = 5.0D-04 RTOL( ISO2 ) = 5.0D-04 RTOL( ISOPRXN ) = 1.0D+00 RTOL( ISPD ) = 5.0D-04 RTOL( INTR ) = 5.0D-04 RTOL( ISPX ) = 5.0D-04 RTOL( HPLD ) = 5.0D-04 RTOL( OPO3 ) = 5.0D-04 RTOL( EPOX ) = 5.0D-04 RTOL( EPX2 ) = 5.0D-04 RTOL( TERP ) = 5.0D-04 RTOL( TRPRXN ) = 1.0D+00 RTOL( TERPNRO2 ) = 5.0D-04 RTOL( APIN ) = 5.0D-04 RTOL( BENZENE ) = 5.0D-04 RTOL( CRES ) = 5.0D-04 RTOL( BZO2 ) = 5.0D-04 RTOL( OPEN ) = 5.0D-04 RTOL( BENZRO2 ) = 5.0D-04 RTOL( TOL ) = 5.0D-04 RTOL( TO2 ) = 5.0D-04 RTOL( TOLRO2 ) = 5.0D-04 RTOL( XOPN ) = 5.0D-04 RTOL( XYLMN ) = 5.0D-04 RTOL( XLO2 ) = 5.0D-04 RTOL( XYLRO2 ) = 5.0D-04 RTOL( NAPH ) = 5.0D-04 RTOL( PAHRO2 ) = 1.0D+00 RTOL( CRO ) = 5.0D-04 RTOL( CAT1 ) = 5.0D-04 RTOL( CRON ) = 5.0D-04 RTOL( OPAN ) = 5.0D-04 RTOL( ECH4 ) = 5.0D-04 RTOL( CL2 ) = 5.0D-04 RTOL( CL ) = 5.0D-04 RTOL( HOCL ) = 5.0D-04 RTOL( CLO ) = 5.0D-04 RTOL( FMCL ) = 5.0D-04 RTOL( HCL ) = 5.0D-04 RTOL( CLNO2 ) = 5.0D-04 RTOL( CLNO3 ) = 5.0D-04 RTOL( SVAVB2 ) = 5.0D-04 RTOL( SVAVB3 ) = 5.0D-04 RTOL( SVAVB4 ) = 5.0D-04 RTOL( SVAVB1 ) = 5.0D-04 RTOL( SESQ ) = 5.0D-04 RTOL( SESQRXN ) = 1.0D+00 RTOL( SOAALK ) = 5.0D-04 RTOL( H2NO3PIJ ) = 5.0D-04 RTOL( H2NO3PK ) = 5.0D-04 RTOL( ACLI ) = 5.0D-04 RTOL( ACLJ ) = 5.0D-04 RTOL( ACLK ) = 5.0D-04 RTOL( IEPOXP ) = 5.0D-04 RTOL( ASO4J ) = 5.0D-04 RTOL( AISO3J ) = 5.0D-04 RTOL( AGLYJ ) = 5.0D-04 RTOL( MTNO3 ) = 5.0D-04 RTOL( AMTNO3J ) = 5.0D-04 RTOL( AMTHYDJ ) = 5.0D-04 RTOL( AAVB2J ) = 5.0D-04 RTOL( AOLGAJ ) = 5.0D-04 RTOL( AAVB3J ) = 5.0D-04 RTOL( AAVB4J ) = 5.0D-04 RTOL( AISO1J ) = 5.0D-04 RTOL( AOLGBJ ) = 5.0D-04 RTOL( AISO2J ) = 5.0D-04 RTOL( ASQTJ ) = 5.0D-04 RTOL( APOCI ) = 5.0D-04 RTOL( APNCOMI ) = 5.0D-04 RTOL( APOCJ ) = 5.0D-04 RTOL( APNCOMJ ) = 5.0D-04 RTOL( PCVOC ) = 5.0D-04 RTOL( PCSOARXN ) = 5.0D-04 RTOL( VLVPO1 ) = 5.0D-04 RTOL( VSVPO1 ) = 5.0D-04 RTOL( VSVPO2 ) = 5.0D-04 RTOL( VSVPO3 ) = 5.0D-04 RTOL( VIVPO1 ) = 5.0D-04 RTOL( VLVOO1 ) = 5.0D-04 RTOL( VLVOO2 ) = 5.0D-04 RTOL( VSVOO2 ) = 5.0D-04 RTOL( VSVOO3 ) = 5.0D-04 RTOL( VSVOO1 ) = 5.0D-04 RTOL( FORM_PRIMARY ) = 5.0D-04 RTOL( ALD2_PRIMARY ) = 5.0D-04 RTOL( BUTADIENE13 ) = 5.0D-04 RTOL( ACROLEIN ) = 5.0D-04 RTOL( ACRO_PRIMARY ) = 5.0D-04 RTOL( TOLU ) = 5.0D-04 RTOL( HG ) = 5.0D-04 RTOL( HGIIAER ) = 5.0D-04 RTOL( HGIIGAS ) = 5.0D-04 RTOL( DMS ) = 5.0D-04 RTOL( MSA ) = 5.0D-04 RETURN END ================================================ FILE: CCTM/src/gas/ebi_cb6r5_ae7_aq/hrprodloss.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE HRPRODLOSS C*********************************************************************** C C FUNCTION: To compute the production and loss rates for EBI species C C PRECONDITIONS: For the CB6R5_AE7_AQ mechanism C C RETURN VALUES: None C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by EBI solver program, Jun 8, 2022 C C 18 Jul 14 B.Hutzell: revised to use real(8) variables C*********************************************************************** USE HRDATA IMPLICIT NONE C.....INCLUDES: NONE C.....ARGUMENTS: NONE C.....PARAMETERS: NONE C.....EXTERNAL FUNCTIONS: NONE C.....SAVED VARIABLES: NONE ! CHARACTER( 16 ), SAVE :: PNAME = 'HRPRODLOSS' ! Program name C.....LOCAL VARIABLES: C*********************************************************************** PROD( H2O2 ) = RXRAT( 17 ) ! OH+OH=H2O2 & + RXRAT( 19 ) ! HO2+HO2=H2O2 & + RXRAT( 20 ) ! HO2+HO2=H2O2 & + 4.0000D-02 * RXRAT( 143 ) ! OLE+O3=0.4000D-01*H2O2+... & + 8.0000D-02 * RXRAT( 147 ) ! IOLE+O3=0.8000D-01*H2O2+... LOSS( H2O2 ) = RXRAT( 21 ) ! H2O2=0.2000D+01*OH & + RXRAT( 22 ) ! H2O2+OH=HO2 & + RXRAT( 23 ) ! H2O2+O=OH+HO2 PROD( HNO3 ) = 2.0000D+00 * RXRAT( 39 ) ! N2O5=0.2000D+01*HNO3 & + RXRAT( 45 ) ! NO2+OH=HNO3 & + RXRAT( 100 ) ! FORM+NO3=HNO3+HO2+CO & + RXRAT( 107 ) ! ALD2+NO3=HNO3+C2O3 & + RXRAT( 111 ) ! ALDX+NO3=HNO3+CXO3 & + RXRAT( 115 ) ! GLYD+NO3=HNO3+C2O3 & + RXRAT( 118 ) ! GLY+NO3=HNO3+0.1500D+01*CO+... & + RXRAT( 120 ) ! MGLY+NO3=HNO3+C2O3+XO2+RO2 & + 7.1700D-01 * RXRAT( 160 ) ! ISPD+NO3=0.7170D+00*HNO3+... & + RXRAT( 164 ) ! HPLD+NO3=HNO3+ISPD & + RXRAT( 196 ) ! CRES+NO3=HNO3+0.3000D+... & + RXRAT( 200 ) ! CRON+NO3=HNO3+0.5000D+... & + RXRAT( 209 ) ! OPEN+NO3=HNO3+OPO3 & + RXRAT( 211 ) ! CAT1+NO3=HNO3+CRO & + RXRAT( 225 ) ! NO2+OH=HNO3 & + RXRAT( 256 ) ! CLNO3=HNO3+HOCL & + RXRAT( 257 ) ! CLNO3=HNO3+HOCL & + RXRAT( 270 ) ! NTR2=HNO3 & + RXRAT( 271 ) ! N2O5=HNO3+H2NO3PIJ & + RXRAT( 272 ) ! N2O5=HNO3+H2NO3PK & + RXRAT( 273 ) ! H2NO3PIJ=HNO3 & + RXRAT( 274 ) ! H2NO3PK=HNO3 & + 5.0000D-01 * RXRAT( 278 ) ! NO2=0.5000D+00*HNO3+... & + RXRAT( 348 ) ! DMS+NO3=HNO3+SO2+MEO2+FORM LOSS( HNO3 ) = RXRAT( 46 ) ! HNO3+OH=NO3 & + RXRAT( 47 ) ! HNO3=OH+NO2 PROD( SO2 ) = RXRAT( 346 ) ! DMS+OH=SO2+MEO2+FORM & + 7.5000D-01 * RXRAT( 347 ) ! DMS+OH=0.7500D+00*SO2+... & + RXRAT( 348 ) ! DMS+NO3=SO2+HNO3+MEO2+FORM & + 8.6000D-01 * RXRAT( 349 ) ! DMS+CL=0.8600D+00*SO2+MEO2+... LOSS( SO2 ) = RXRAT( 52 ) ! SO2+OH=SULF+HO2+SULRXN PROD( SULF ) = RXRAT( 52 ) ! SO2+OH=SULF+HO2+SULRXN LOSS( SULF ) = 0.0D0 PROD( SULRXN ) = RXRAT( 52 ) ! SO2+OH=SULRXN+HO2+SULF LOSS( SULRXN ) = 0.0D0 PROD( MEO2 ) = RXRAT( 53 ) ! C2O3+NO=MEO2+NO2+RO2 & + 4.0000D-01 * RXRAT( 56 ) ! PAN=0.4000D+00*MEO2+... & + 5.0000D-01 * RXRAT( 57 ) ! C2O3+HO2=0.5000D+00*MEO2+... & + RXRAT( 58 ) ! C2O3+RO2=MEO2 & + 2.0000D+00 * RXRAT( 59 ) ! C2O3+C2O3=0.2000D+01*MEO2+... & + RXRAT( 60 ) ! C2O3+CXO3=MEO2+ALD2+XO2H+... & + 5.0000D-01 * RXRAT( 65 ) ! CXO3+HO2=0.5000D+00*MEO2+... & + RXRAT( 66 ) ! CXO3+RO2=MEO2 & + 2.0000D+00 * RXRAT( 67 ) ! CXO3+CXO3=0.2000D+01*MEO2+... & + 8.0000D-01 * RXRAT( 77 ) ! XO2H+C2O3=0.8000D+00*MEO2+... & + 8.0000D-01 * RXRAT( 81 ) ! XO2+C2O3=0.8000D+00*MEO2+... & + 8.0000D-01 * RXRAT( 85 ) ! XO2N+C2O3=0.8000D+00*MEO2+... & + 6.0000D-01 * RXRAT( 87 ) ! MEPX+OH=0.6000D+00*MEO2+... & + RXRAT( 88 ) ! MEPX=MEO2+RO2+OH & + RXRAT( 94 ) ! AACD+OH=MEO2+RO2 & + RXRAT( 108 ) ! ALD2=MEO2+RO2+CO+HO2 & + RXRAT( 124 ) ! OH=MEO2+RO2 & + 5.0000D-01 * RXRAT( 128 ) ! KET=0.5000D+00*MEO2+... & + 1.3800D+00 * RXRAT( 129 ) ! ACET=0.1380D+01*MEO2+... & + 8.0000D-01 * RXRAT( 153 ) ! ISO2+C2O3=0.8000D+00*MEO2+... & + 1.1500D-01 * RXRAT( 158 ) ! ISPD+OH=0.1150D+00*MEO2+... & + 3.4000D-01 * RXRAT( 161 ) ! ISPD=0.3400D+00*MEO2+... & + 8.0000D-01 * RXRAT( 168 ) ! EPX2+C2O3=0.8000D+00*MEO2+... & + RXRAT( 181 ) ! BZO2+C2O3=MEO2+OPEN+HO2+... & + RXRAT( 186 ) ! TO2+C2O3=MEO2+0.5200D+... & + RXRAT( 193 ) ! XLO2+C2O3=MEO2+0.7700D+... & + 5.0000D-01 * RXRAT( 215 ) ! OPO3+HO2=0.5000D+00*MEO2+... & + RXRAT( 216 ) ! OPO3+C2O3=MEO2+XO2+ALDX+... & + RXRAT( 220 ) ! ECH4+OH=MEO2+RO2 & + RXRAT( 235 ) ! CL=MEO2+HCL+RO2 & + RXRAT( 346 ) ! DMS+OH=MEO2+SO2+FORM & + RXRAT( 347 ) ! DMS+OH=MEO2+0.2500D+00*MSA+... & + RXRAT( 348 ) ! DMS+NO3=MEO2+HNO3+SO2+FORM & + RXRAT( 349 ) ! DMS+CL=MEO2+0.8600D+00*SO2+... LOSS( MEO2 ) = RXRAT( 71 ) ! MEO2+NO=FORM+HO2+NO2 & + RXRAT( 72 ) ! MEO2+HO2=0.9000D+00*MEPX+... & + 1.0000D-01 * RXRAT( 73 ) ! MEO2+C2O3=0.9000D+00*MEO2+... & + RXRAT( 74 ) ! MEO2+RO2=0.6850D+00*FORM+... & + RXRAT( 232 ) ! MEO2+CLO=CL+FORM+HO2 PROD( RO2 ) = RXRAT( 53 ) ! C2O3+NO=RO2+MEO2+NO2 & + 4.0000D-01 * RXRAT( 56 ) ! PAN=0.4000D+00*RO2+0.6000D+... & + 5.0000D-01 * RXRAT( 57 ) ! C2O3+HO2=0.5000D+00*RO2+... & + 2.0000D+00 * RXRAT( 59 ) ! C2O3+C2O3=0.2000D+01*RO2+... & + 2.0000D+00 * RXRAT( 60 ) ! C2O3+CXO3=0.2000D+01*RO2+... & + RXRAT( 61 ) ! CXO3+NO=RO2+ALD2+XO2H+NO2 & + 4.0000D-01 * RXRAT( 64 ) ! PANX=0.4000D+00*RO2+... & + 5.0000D-01 * RXRAT( 65 ) ! CXO3+HO2=0.5000D+00*RO2+... & + 2.0000D+00 * RXRAT( 67 ) ! CXO3+CXO3=0.2000D+01*RO2+... & + 9.0000D-01 * RXRAT( 73 ) ! MEO2+C2O3=0.9000D+00*RO2+... & + 8.0000D-01 * RXRAT( 77 ) ! XO2H+C2O3=0.8000D+00*RO2+... & + 8.0000D-01 * RXRAT( 81 ) ! XO2+C2O3=0.8000D+00*RO2+... & + 8.0000D-01 * RXRAT( 85 ) ! XO2N+C2O3=0.8000D+00*RO2+... & + 6.0000D-01 * RXRAT( 87 ) ! MEPX+OH=0.6000D+00*RO2+... & + RXRAT( 88 ) ! MEPX=RO2+MEO2+OH & + 6.0000D-01 * RXRAT( 89 ) ! ROOH+OH=0.6000D+00*RO2+... & + RXRAT( 94 ) ! AACD+OH=RO2+MEO2 & + RXRAT( 108 ) ! ALD2=RO2+MEO2+CO+HO2 & + RXRAT( 112 ) ! ALDX=RO2+XO2H+ALD2+CO+HO2 & + 1.1000D-01 * RXRAT( 114 ) ! GLYD=0.1100D+00*RO2+... & + 2.0000D-01 * RXRAT( 116 ) ! GLY+OH=0.2000D+00*RO2+... & + 5.0000D-01 * RXRAT( 118 ) ! GLY+NO3=0.5000D+00*RO2+... & + RXRAT( 120 ) ! MGLY+NO3=RO2+C2O3+XO2+HNO3 & + RXRAT( 124 ) ! OH=RO2+MEO2 & + RXRAT( 125 ) ! ETHA+OH=RO2+0.9910D+... & + 1.0000D-01 * RXRAT( 127 ) ! ETOH+OH=0.1000D+00*RO2+... & + RXRAT( 128 ) ! KET=RO2+0.5000D+00*C2O3+... & + 1.3800D+00 * RXRAT( 129 ) ! ACET=0.1380D+01*RO2+... & + RXRAT( 130 ) ! ACET+OH=RO2+C2O3+XO2+FORM & + 9.8000D-01 * RXRAT( 133 ) ! ROR=0.9800D+00*RO2+0.4200D+... & + 7.0000D-01 * RXRAT( 137 ) ! ETH+O=0.7000D+00*RO2+HO2+... & + RXRAT( 138 ) ! ETH+OH=RO2+XO2H+0.1560D+... & + RXRAT( 140 ) ! ETH+NO3=RO2+0.5000D+... & + 2.1000D-01 * RXRAT( 141 ) ! OLE+O=0.2100D+00*RO2+... & + 1.1950D+00 * RXRAT( 142 ) ! OLE+OH=0.1195D+01*RO2+... & + 1.5000D-01 * RXRAT( 143 ) ! OLE+O3=0.1500D+00*RO2+... & + RXRAT( 144 ) ! OLE+NO3=RO2+0.5000D+... & + 1.0000D-01 * RXRAT( 145 ) ! IOLE+O=0.1000D+00*RO2+... & + RXRAT( 146 ) ! IOLE+OH=RO2+0.7000D+... & + 3.0000D-01 * RXRAT( 147 ) ! IOLE+O3=0.3000D+00*RO2+... & + RXRAT( 148 ) ! IOLE+NO3=RO2+0.5000D+... & + RXRAT( 149 ) ! ISOP+OH=RO2+ISO2+ISOPRXN & + 2.5000D-01 * RXRAT( 150 ) ! ISOP+O=0.2500D+00*RO2+... & + 8.2000D-02 * RXRAT( 151 ) ! ISO2+NO=0.8200D-01*RO2+... & + 8.7200D-01 * RXRAT( 153 ) ! ISO2+C2O3=0.8720D+00*RO2+... & + 7.2000D-02 * RXRAT( 154 ) ! ISO2+RO2=0.1072D+01*RO2+... & + 2.0000D-01 * RXRAT( 156 ) ! ISOP+O3=0.2000D+00*RO2+... & + RXRAT( 157 ) ! ISOP+NO3=RO2+0.6500D+... & + 6.5800D-01 * RXRAT( 158 ) ! ISPD+OH=0.6580D+00*RO2+... & + 2.8400D-01 * RXRAT( 160 ) ! ISPD+NO3=0.2840D+00*RO2+... & + 8.4000D-01 * RXRAT( 161 ) ! ISPD=0.8400D+00*RO2+... & + 6.7000D-02 * RXRAT( 162 ) ! ISPX+OH=0.6700D-01*RO2+... & + RXRAT( 165 ) ! EPOX+OH=RO2+EPX2 & + 8.0000D-01 * RXRAT( 168 ) ! EPX2+C2O3=0.8000D+00*RO2+... & + RXRAT( 170 ) ! INTR+OH=RO2+0.3700D+... & + 1.5000D+00 * RXRAT( 172 ) ! TERP+OH=0.1500D+01*RO2+... & + 9.4000D-01 * RXRAT( 173 ) ! TERP+O3=0.9400D+00*RO2+... & + 1.2800D+00 * RXRAT( 174 ) ! TERP+NO3=0.1280D+01*RO2+... & + 1.5000D+00 * RXRAT( 176 ) ! APIN+OH=0.1500D+01*RO2+... & + 9.4000D-01 * RXRAT( 177 ) ! APIN+O3=0.9400D+00*RO2+... & + 1.2800D+00 * RXRAT( 178 ) ! APIN+NO3=0.1280D+01*RO2+... & + 3.5200D-01 * RXRAT( 179 ) ! BENZENE+OH=0.3520D+00*RO2+... & + RXRAT( 181 ) ! BZO2+C2O3=RO2+OPEN+HO2+... & + 7.2000D-01 * RXRAT( 184 ) ! TOL+OH=0.7200D+00*RO2+... & + RXRAT( 186 ) ! TO2+C2O3=RO2+0.5200D+... & + 6.0200D-01 * RXRAT( 189 ) ! XYLMN+OH=0.6020D+00*RO2+... & + 6.0200D-01 * RXRAT( 190 ) ! NAPH+OH=0.6020D+00*RO2+... & + RXRAT( 193 ) ! XLO2+C2O3=RO2+0.7700D+... & + 2.0000D-02 * RXRAT( 195 ) ! CRES+OH=0.2000D-01*RO2+... & + 7.0000D-01 * RXRAT( 196 ) ! CRES+NO3=0.7000D+00*RO2+... & + 2.0000D+00 * RXRAT( 203 ) ! XOPN+OH=0.2000D+01*RO2+... & + 3.0000D-01 * RXRAT( 204 ) ! XOPN+O3=0.3000D+00*RO2+... & + RXRAT( 205 ) ! XOPN+NO3=RO2+0.5000D+... & + 4.0000D-01 * RXRAT( 207 ) ! OPEN+OH=0.4000D+00*RO2+... & + 5.0000D-01 * RXRAT( 215 ) ! OPO3+HO2=0.5000D+00*RO2+... & + 2.0000D+00 * RXRAT( 216 ) ! OPO3+C2O3=0.2000D+01*RO2+... & + 8.0000D-01 * RXRAT( 217 ) ! OPO3+RO2=0.1800D+01*RO2+... & + RXRAT( 220 ) ! ECH4+OH=RO2+MEO2 & + RXRAT( 221 ) ! XPRP=RO2+XO2N & + RXRAT( 222 ) ! XPRP=RO2+0.2680D+00*ALDX+... & + RXRAT( 223 ) ! XPAR=RO2+XO2N & + RXRAT( 224 ) ! XPAR=RO2+0.8740D+00*ROR+... & + RXRAT( 235 ) ! CL=RO2+MEO2+HCL & + RXRAT( 237 ) ! CL+PRPA=RO2+ACET+0.9700D+... & + RXRAT( 238 ) ! CL+ETHA=RO2+0.9910D+... & + RXRAT( 242 ) ! CL+ISOP=RO2+ISPD+0.9600D+... & + 7.2000D-01 * RXRAT( 249 ) ! CL+TOL=0.7200D+00*RO2+... & + 6.0200D-01 * RXRAT( 250 ) ! CL+XYLMN=0.6020D+00*RO2+... & + 6.0200D-01 * RXRAT( 251 ) ! CL+NAPH=0.6020D+00*RO2+... LOSS( RO2 ) = RXRAT( 58 ) ! RO2+C2O3=MEO2 & + RXRAT( 66 ) ! RO2+CXO3=MEO2 & + RXRAT( 68 ) ! RO2+NO=NO & + RXRAT( 69 ) ! RO2+HO2=HO2 & + 2.0000D+00 * RXRAT( 70 ) ! RO2+RO2= PROD( PACD ) = 3.7000D-01 * RXRAT( 57 ) ! C2O3+HO2=0.3700D+00*PACD+... & + 3.7000D-01 * RXRAT( 65 ) ! CXO3+HO2=0.3700D+00*PACD+... & + 3.7000D-01 * RXRAT( 215 ) ! OPO3+HO2=0.3700D+00*PACD+... LOSS( PACD ) = RXRAT( 95 ) ! PACD+OH=C2O3 PROD( AACD ) = 1.3000D-01 * RXRAT( 57 ) ! C2O3+HO2=0.1300D+00*AACD+... & + 1.3000D-01 * RXRAT( 65 ) ! CXO3+HO2=0.1300D+00*AACD+... & + 1.0000D-01 * RXRAT( 73 ) ! MEO2+C2O3=0.1000D+00*AACD+... & + 2.0000D-01 * RXRAT( 77 ) ! XO2H+C2O3=0.2000D+00*AACD+... & + 2.0000D-01 * RXRAT( 81 ) ! XO2+C2O3=0.2000D+00*AACD+... & + 2.0000D-01 * RXRAT( 85 ) ! XO2N+C2O3=0.2000D+00*AACD+... & + 1.3000D-01 * RXRAT( 143 ) ! OLE+O3=0.1300D+00*AACD+... & + 8.0000D-02 * RXRAT( 147 ) ! IOLE+O3=0.8000D-01*AACD+... & + 2.0000D-01 * RXRAT( 153 ) ! ISO2+C2O3=0.2000D+00*AACD+... & + 2.0000D-01 * RXRAT( 168 ) ! EPX2+C2O3=0.2000D+00*AACD+... & + 1.3000D-01 * RXRAT( 215 ) ! OPO3+HO2=0.1300D+00*AACD+... & + 2.0000D-01 * RXRAT( 217 ) ! OPO3+RO2=0.2000D+00*AACD+... LOSS( AACD ) = RXRAT( 94 ) ! AACD+OH=MEO2+RO2 PROD( CXO3 ) = RXRAT( 63 ) ! PANX=CXO3+NO2 & + 6.0000D-01 * RXRAT( 64 ) ! PANX=0.6000D+00*CXO3+... & + RXRAT( 109 ) ! ALDX+O=CXO3+OH & + RXRAT( 110 ) ! ALDX+OH=CXO3 & + RXRAT( 111 ) ! ALDX+NO3=CXO3+HNO3 & + 5.0000D-01 * RXRAT( 128 ) ! KET=0.5000D+00*CXO3+... & + 2.5000D-01 * RXRAT( 150 ) ! ISOP+O=0.2500D+00*CXO3+... & + 2.0000D-01 * RXRAT( 156 ) ! ISOP+O3=0.2000D+00*CXO3+... & + 7.1700D-01 * RXRAT( 160 ) ! ISPD+NO3=0.7170D+00*CXO3+... & + 3.9000D-01 * RXRAT( 173 ) ! TERP+O3=0.3900D+00*CXO3+... & + 3.9000D-01 * RXRAT( 177 ) ! APIN+O3=0.3900D+00*CXO3+... & + 2.0000D-01 * RXRAT( 212 ) ! OPO3+NO=0.2000D+00*CXO3+... & + RXRAT( 245 ) ! CL+ALDX=CXO3+HCL LOSS( CXO3 ) = RXRAT( 60 ) ! CXO3+C2O3=MEO2+ALD2+XO2H+... & + RXRAT( 61 ) ! CXO3+NO=NO2+ALD2+XO2H+RO2 & + RXRAT( 62 ) ! CXO3+NO2=PANX & + RXRAT( 65 ) ! CXO3+HO2=0.3700D+00*PACD+... & + RXRAT( 66 ) ! CXO3+RO2=MEO2 & + 2.0000D+00 * RXRAT( 67 ) ! CXO3+CXO3=0.2000D+01*MEO2+... PROD( ALD2 ) = RXRAT( 60 ) ! C2O3+CXO3=ALD2+MEO2+XO2H+... & + RXRAT( 61 ) ! CXO3+NO=ALD2+NO2+XO2H+RO2 & + 4.0000D-01 * RXRAT( 64 ) ! PANX=0.4000D+00*ALD2+... & + RXRAT( 112 ) ! ALDX=ALD2+XO2H+RO2+CO+HO2 & + 9.9100D-01 * RXRAT( 125 ) ! ETHA+OH=0.9910D+00*ALD2+... & + 9.5000D-01 * RXRAT( 127 ) ! ETOH+OH=0.9500D+00*ALD2+... & + 5.0000D-01 * RXRAT( 128 ) ! KET=0.5000D+00*ALD2+... & + 7.4000D-01 * RXRAT( 133 ) ! ROR=0.7400D+00*ALD2+... & + 2.0000D-01 * RXRAT( 141 ) ! OLE+O=0.2000D+00*ALD2+... & + 4.8800D-01 * RXRAT( 142 ) ! OLE+OH=0.4880D+00*ALD2+... & + 2.9500D-01 * RXRAT( 143 ) ! OLE+O3=0.2950D+00*ALD2+... & + 2.5000D-01 * RXRAT( 144 ) ! OLE+NO3=0.2500D+00*ALD2+... & + 1.2400D+00 * RXRAT( 145 ) ! IOLE+O=0.1240D+01*ALD2+... & + 1.3000D+00 * RXRAT( 146 ) ! IOLE+OH=0.1300D+01*ALD2+... & + 7.3200D-01 * RXRAT( 147 ) ! IOLE+O3=0.7320D+00*ALD2+... & + 5.0000D-01 * RXRAT( 148 ) ! IOLE+NO3=0.5000D+00*ALD2+... & + 4.0000D-02 * RXRAT( 159 ) ! ISPD+O3=0.4000D-01*ALD2+... & + 1.0000D-01 * RXRAT( 204 ) ! XOPN+O3=0.1000D+00*ALD2+... & + 2.0000D-02 * RXRAT( 208 ) ! OPEN+O3=0.2000D-01*ALD2+... & + RXRAT( 219 ) ! PANX+OH=ALD2+NO2 & + 9.9100D-01 * RXRAT( 238 ) ! CL+ETHA=0.9910D+00*ALD2+... & + 3.3000D-01 * RXRAT( 240 ) ! CL+OLE=0.3300D+00*ALD2+... & + 4.5000D-01 * RXRAT( 241 ) ! CL+IOLE=0.4500D+00*ALD2+... & + RXRAT( 247 ) ! CL+ETOH=ALD2+HO2+HCL LOSS( ALD2 ) = RXRAT( 105 ) ! ALD2+O=C2O3+OH & + RXRAT( 106 ) ! ALD2+OH=C2O3 & + RXRAT( 107 ) ! ALD2+NO3=C2O3+HNO3 & + RXRAT( 108 ) ! ALD2=MEO2+RO2+CO+HO2 & + RXRAT( 244 ) ! ALD2+CL=HCL+C2O3 PROD( XO2H ) = RXRAT( 60 ) ! C2O3+CXO3=XO2H+ALD2+MEO2+... & + RXRAT( 61 ) ! CXO3+NO=XO2H+ALD2+NO2+RO2 & + 4.0000D-01 * RXRAT( 64 ) ! PANX=0.4000D+00*XO2H+... & + 5.4000D-01 * RXRAT( 89 ) ! ROOH+OH=0.5400D+00*XO2H+... & + RXRAT( 112 ) ! ALDX=XO2H+ALD2+RO2+CO+HO2 & + 1.1000D-01 * RXRAT( 114 ) ! GLYD=0.1100D+00*XO2H+... & + 9.9100D-01 * RXRAT( 125 ) ! ETHA+OH=0.9910D+00*XO2H+... & + 1.0000D-01 * RXRAT( 127 ) ! ETOH+OH=0.1000D+00*XO2H+... & + 5.0000D-01 * RXRAT( 128 ) ! KET=0.5000D+00*XO2H+... & + 9.4000D-01 * RXRAT( 133 ) ! ROR=0.9400D+00*XO2H+... & + 7.0000D-01 * RXRAT( 137 ) ! ETH+O=0.7000D+00*XO2H+HO2+... & + RXRAT( 138 ) ! ETH+OH=XO2H+RO2+0.1560D+... & + 5.0000D-01 * RXRAT( 140 ) ! ETH+NO3=0.5000D+00*XO2H+... & + 2.0000D-01 * RXRAT( 141 ) ! OLE+O=0.2000D+00*XO2H+... & + 9.7600D-01 * RXRAT( 142 ) ! OLE+OH=0.9760D+00*XO2H+... & + 1.5000D-01 * RXRAT( 143 ) ! OLE+O3=0.1500D+00*XO2H+... & + 4.8000D-01 * RXRAT( 144 ) ! OLE+NO3=0.4800D+00*XO2H+... & + 1.0000D-01 * RXRAT( 145 ) ! IOLE+O=0.1000D+00*XO2H+... & + RXRAT( 146 ) ! IOLE+OH=XO2H+0.7000D+... & + 3.0000D-01 * RXRAT( 147 ) ! IOLE+O3=0.3000D+00*XO2H+... & + 4.8000D-01 * RXRAT( 148 ) ! IOLE+NO3=0.4800D+00*XO2H+... & + 8.2000D-02 * RXRAT( 151 ) ! ISO2+NO=0.8200D-01*XO2H+... & + 7.2000D-02 * RXRAT( 153 ) ! ISO2+C2O3=0.7200D-01*XO2H+... & + 7.2000D-02 * RXRAT( 154 ) ! ISO2+RO2=0.7200D-01*XO2H+... & + 6.4000D-01 * RXRAT( 157 ) ! ISOP+NO3=0.6400D+00*XO2H+... & + 1.4200D-01 * RXRAT( 160 ) ! ISPD+NO3=0.1420D+00*XO2H+... & + 3.4000D-01 * RXRAT( 161 ) ! ISPD=0.3400D+00*XO2H+... & + 3.7000D-01 * RXRAT( 170 ) ! INTR+OH=0.3700D+00*XO2H+... & + 7.5000D-01 * RXRAT( 172 ) ! TERP+OH=0.7500D+00*XO2H+... & + 7.0000D-02 * RXRAT( 173 ) ! TERP+O3=0.7000D-01*XO2H+... & + 2.8000D-01 * RXRAT( 174 ) ! TERP+NO3=0.2800D+00*XO2H+... & + 7.5000D-01 * RXRAT( 176 ) ! APIN+OH=0.7500D+00*XO2H+... & + 7.0000D-02 * RXRAT( 177 ) ! APIN+O3=0.7000D-01*XO2H+... & + 2.8000D-01 * RXRAT( 178 ) ! APIN+NO3=0.2800D+00*XO2H+... & + 7.0000D-02 * RXRAT( 184 ) ! TOL+OH=0.7000D-01*XO2H+... & + 5.8000D-02 * RXRAT( 189 ) ! XYLMN+OH=0.5800D-01*XO2H+... & + 5.8000D-02 * RXRAT( 190 ) ! NAPH+OH=0.5800D-01*XO2H+... & + 1.2000D-01 * RXRAT( 196 ) ! CRES+NO3=0.1200D+00*XO2H+... & + RXRAT( 202 ) ! XOPN=XO2H+0.4000D+00*GLY+... & + 2.0000D+00 * RXRAT( 203 ) ! XOPN+OH=0.2000D+01*XO2H+... & + 3.0000D-01 * RXRAT( 204 ) ! XOPN+O3=0.3000D+00*XO2H+... & + 4.5000D-01 * RXRAT( 205 ) ! XOPN+NO3=0.4500D+00*XO2H+... & + 4.0000D-01 * RXRAT( 207 ) ! OPEN+OH=0.4000D+00*XO2H+... & + 8.0000D-01 * RXRAT( 217 ) ! OPO3+RO2=0.8000D+00*XO2H+... & + RXRAT( 222 ) ! XPRP=XO2H+0.2680D+00*ALDX+... & + 1.2600D-01 * RXRAT( 224 ) ! XPAR=0.1260D+00*XO2H+... & + 9.7000D-01 * RXRAT( 237 ) ! CL+PRPA=0.9700D+00*XO2H+... & + 9.9100D-01 * RXRAT( 238 ) ! CL+ETHA=0.9910D+00*XO2H+... & + 9.6000D-01 * RXRAT( 242 ) ! CL+ISOP=0.9600D+00*XO2H+... & + 7.0000D-02 * RXRAT( 249 ) ! CL+TOL=0.7000D-01*XO2H+... & + 5.8000D-02 * RXRAT( 250 ) ! CL+XYLMN=0.5800D-01*XO2H+... & + 5.8000D-02 * RXRAT( 251 ) ! CL+NAPH=0.5800D-01*XO2H+... LOSS( XO2H ) = RXRAT( 75 ) ! XO2H+NO=NO2+HO2 & + RXRAT( 76 ) ! XO2H+HO2=ROOH & + RXRAT( 77 ) ! XO2H+C2O3=0.8000D+00*HO2+... & + RXRAT( 78 ) ! XO2H+RO2=0.6000D+00*HO2+RO2 PROD( PANX ) = RXRAT( 62 ) ! CXO3+NO2=PANX LOSS( PANX ) = RXRAT( 63 ) ! PANX=NO2+CXO3 & + RXRAT( 64 ) ! PANX=0.6000D+00*NO2+... & + RXRAT( 219 ) ! PANX+OH=ALD2+NO2 PROD( FORM ) = RXRAT( 71 ) ! MEO2+NO=FORM+HO2+NO2 & + 1.0000D-01 * RXRAT( 72 ) ! MEO2+HO2=0.1000D+00*FORM+... & + RXRAT( 73 ) ! MEO2+C2O3=FORM+0.9000D+... & + 6.8500D-01 * RXRAT( 74 ) ! MEO2+RO2=0.6850D+00*FORM+... & + 4.0000D-01 * RXRAT( 87 ) ! MEPX+OH=0.4000D+00*FORM+... & + RXRAT( 102 ) ! HCO3=FORM+HO2 & + 7.4000D-01 * RXRAT( 114 ) ! GLYD=0.7400D+00*FORM+... & + RXRAT( 126 ) ! MEOH+OH=FORM+HO2 & + 7.8000D-02 * RXRAT( 127 ) ! ETOH+OH=0.7800D-01*FORM+... & + RXRAT( 130 ) ! ACET+OH=FORM+C2O3+XO2+RO2 & + RXRAT( 137 ) ! ETH+O=FORM+HO2+CO+0.7000D+... & + 1.5600D+00 * RXRAT( 138 ) ! ETH+OH=0.1560D+01*FORM+RO2+... & + RXRAT( 139 ) ! ETH+O3=FORM+0.3500D+00*CO+... & + 1.1250D+00 * RXRAT( 140 ) ! ETH+NO3=0.1125D+01*FORM+... & + 2.0000D-01 * RXRAT( 141 ) ! OLE+O=0.2000D+00*FORM+... & + 7.8100D-01 * RXRAT( 142 ) ! OLE+OH=0.7810D+00*FORM+... & + 5.5500D-01 * RXRAT( 143 ) ! OLE+O3=0.5550D+00*FORM+... & + 5.0000D-01 * RXRAT( 144 ) ! OLE+NO3=0.5000D+00*FORM+... & + 1.2800D-01 * RXRAT( 147 ) ! IOLE+O3=0.1280D+00*FORM+... & + 5.0000D-01 * RXRAT( 150 ) ! ISOP+O=0.5000D+00*FORM+... & + 6.7300D-01 * RXRAT( 151 ) ! ISO2+NO=0.6730D+00*FORM+... & + 1.2000D-01 * RXRAT( 152 ) ! ISO2+HO2=0.1200D+00*FORM+... & + 5.9800D-01 * RXRAT( 153 ) ! ISO2+C2O3=0.5980D+00*FORM+... & + 5.9800D-01 * RXRAT( 154 ) ! ISO2+RO2=0.5980D+00*FORM+... & + 6.0000D-01 * RXRAT( 156 ) ! ISOP+O3=0.6000D+00*FORM+... & + 3.5000D-01 * RXRAT( 157 ) ! ISOP+NO3=0.3500D+00*FORM+... & + 2.3100D-01 * RXRAT( 159 ) ! ISPD+O3=0.2310D+00*FORM+... & + 2.6000D-01 * RXRAT( 161 ) ! ISPD=0.2600D+00*FORM+... & + 3.7500D-01 * RXRAT( 166 ) ! EPX2+HO2=0.3750D+00*FORM+... & + 3.7500D-01 * RXRAT( 167 ) ! EPX2+NO=0.3750D+00*FORM+... & + 3.0000D-01 * RXRAT( 168 ) ! EPX2+C2O3=0.3000D+00*FORM+... & + 3.7500D-01 * RXRAT( 169 ) ! EPX2+RO2=0.3750D+00*FORM+... & + 5.9200D-01 * RXRAT( 170 ) ! INTR+OH=0.5920D+00*FORM+... & + 2.8000D-01 * RXRAT( 172 ) ! TERP+OH=0.2800D+00*FORM+... & + 2.4000D-01 * RXRAT( 173 ) ! TERP+O3=0.2400D+00*FORM+... & + 2.8000D-01 * RXRAT( 176 ) ! APIN+OH=0.2800D+00*FORM+... & + 2.4000D-01 * RXRAT( 177 ) ! APIN+O3=0.2400D+00*FORM+... & + RXRAT( 201 ) ! CRON=FORM+HO2+HONO+OPEN & + 8.0000D-02 * RXRAT( 208 ) ! OPEN+O3=0.8000D-01*FORM+... & + 1.4000D-01 * RXRAT( 210 ) ! CAT1+OH=0.1400D+00*FORM+... & + RXRAT( 232 ) ! CLO+MEO2=FORM+CL+HO2 & + RXRAT( 239 ) ! CL+ETH=FORM+0.2000D+01*XO2+... & + RXRAT( 246 ) ! CL+MEOH=FORM+HO2+HCL & + RXRAT( 346 ) ! DMS+OH=FORM+MEO2+SO2 & + RXRAT( 348 ) ! DMS+NO3=FORM+HNO3+MEO2+SO2 & + 4.5000D-01 * RXRAT( 349 ) ! DMS+CL=0.4500D+00*FORM+... LOSS( FORM ) = RXRAT( 96 ) ! FORM+OH=HO2+CO & + RXRAT( 97 ) ! FORM=0.2000D+01*HO2+CO & + RXRAT( 98 ) ! FORM=CO & + RXRAT( 99 ) ! FORM+O=OH+HO2+CO & + RXRAT( 100 ) ! FORM+NO3=HNO3+HO2+CO & + RXRAT( 101 ) ! FORM+HO2=HCO3 & + RXRAT( 243 ) ! FORM+CL=HCL+HO2+CO PROD( MEPX ) = 9.0000D-01 * RXRAT( 72 ) ! MEO2+HO2=0.9000D+00*MEPX+... & + 5.0000D-01 * RXRAT( 104 ) ! HCO3+HO2=0.5000D+00*MEPX+... LOSS( MEPX ) = RXRAT( 87 ) ! MEPX+OH=0.6000D+00*MEO2+... & + RXRAT( 88 ) ! MEPX=MEO2+RO2+OH PROD( MEOH ) = 3.1500D-01 * RXRAT( 74 ) ! MEO2+RO2=0.3150D+00*MEOH+... & + 1.5000D-01 * RXRAT( 114 ) ! GLYD=0.1500D+00*MEOH+... LOSS( MEOH ) = RXRAT( 126 ) ! MEOH+OH=FORM+HO2 & + RXRAT( 246 ) ! MEOH+CL=HCL+HO2+FORM PROD( ROOH ) = RXRAT( 76 ) ! XO2H+HO2=ROOH & + RXRAT( 80 ) ! XO2+HO2=ROOH & + RXRAT( 84 ) ! XO2N+HO2=ROOH LOSS( ROOH ) = RXRAT( 89 ) ! ROOH+OH=0.5400D+00*XO2H+... & + RXRAT( 90 ) ! ROOH=HO2+OH PROD( XO2 ) = 2.0000D-01 * RXRAT( 116 ) ! GLY+OH=0.2000D+00*XO2+... & + 5.0000D-01 * RXRAT( 118 ) ! GLY+NO3=0.5000D+00*XO2+... & + RXRAT( 120 ) ! MGLY+NO3=XO2+C2O3+HNO3+RO2 & + RXRAT( 130 ) ! ACET+OH=XO2+C2O3+FORM+RO2 & + 5.0000D-01 * RXRAT( 140 ) ! ETH+NO3=0.5000D+00*XO2+... & + 1.9500D-01 * RXRAT( 142 ) ! OLE+OH=0.1950D+00*XO2+... & + 4.8000D-01 * RXRAT( 144 ) ! OLE+NO3=0.4800D+00*XO2+... & + 4.8000D-01 * RXRAT( 148 ) ! IOLE+NO3=0.4800D+00*XO2+... & + 2.5000D-01 * RXRAT( 150 ) ! ISOP+O=0.2500D+00*XO2+... & + 2.0000D-01 * RXRAT( 156 ) ! ISOP+O3=0.2000D+00*XO2+... & + 3.3000D-01 * RXRAT( 157 ) ! ISOP+NO3=0.3300D+00*XO2+... & + 5.2100D-01 * RXRAT( 158 ) ! ISPD+OH=0.5210D+00*XO2+... & + 1.4200D-01 * RXRAT( 160 ) ! ISPD+NO3=0.1420D+00*XO2+... & + 1.6000D-01 * RXRAT( 161 ) ! ISPD=0.1600D+00*XO2+... & + 6.3000D-01 * RXRAT( 170 ) ! INTR+OH=0.6300D+00*XO2+... & + 5.0000D-01 * RXRAT( 172 ) ! TERP+OH=0.5000D+00*XO2+... & + 6.9000D-01 * RXRAT( 173 ) ! TERP+O3=0.6900D+00*XO2+... & + 7.5000D-01 * RXRAT( 174 ) ! TERP+NO3=0.7500D+00*XO2+... & + 5.0000D-01 * RXRAT( 176 ) ! APIN+OH=0.5000D+00*XO2+... & + 6.9000D-01 * RXRAT( 177 ) ! APIN+O3=0.6900D+00*XO2+... & + 7.5000D-01 * RXRAT( 178 ) ! APIN+NO3=0.7500D+00*XO2+... & + 4.8000D-01 * RXRAT( 196 ) ! CRES+NO3=0.4800D+00*XO2+... & + 4.5000D-01 * RXRAT( 205 ) ! XOPN+NO3=0.4500D+00*XO2+... & + RXRAT( 216 ) ! OPO3+C2O3=XO2+MEO2+ALDX+... & + 8.7400D-01 * RXRAT( 224 ) ! XPAR=0.8740D+00*XO2+... & + 2.0000D+00 * RXRAT( 239 ) ! CL+ETH=0.2000D+01*XO2+FMCL+... & + 2.0000D+00 * RXRAT( 240 ) ! CL+OLE=0.2000D+01*XO2+... & + 1.7000D+00 * RXRAT( 241 ) ! CL+IOLE=0.1700D+01*XO2+... LOSS( XO2 ) = RXRAT( 79 ) ! XO2+NO=NO2 & + RXRAT( 80 ) ! XO2+HO2=ROOH & + RXRAT( 81 ) ! XO2+C2O3=0.8000D+00*MEO2+... & + RXRAT( 82 ) ! XO2+RO2=RO2 PROD( XO2N ) = 6.0000D-02 * RXRAT( 89 ) ! ROOH+OH=0.6000D-01*XO2N+... & + 9.0000D-03 * RXRAT( 125 ) ! ETHA+OH=0.9000D-02*XO2N+... & + 4.0000D-02 * RXRAT( 133 ) ! ROR=0.4000D-01*XO2N+... & + 1.0000D-02 * RXRAT( 141 ) ! OLE+O=0.1000D-01*XO2N+... & + 2.4000D-02 * RXRAT( 142 ) ! OLE+OH=0.2400D-01*XO2N+... & + 4.0000D-02 * RXRAT( 144 ) ! OLE+NO3=0.4000D-01*XO2N+... & + 4.0000D-02 * RXRAT( 148 ) ! IOLE+NO3=0.4000D-01*XO2N+... & + 3.0000D-02 * RXRAT( 157 ) ! ISOP+NO3=0.3000D-01*XO2N+... & + 2.2000D-02 * RXRAT( 158 ) ! ISPD+OH=0.2200D-01*XO2N+... & + 2.5000D-01 * RXRAT( 172 ) ! TERP+OH=0.2500D+00*XO2N+... & + 1.8000D-01 * RXRAT( 173 ) ! TERP+O3=0.1800D+00*XO2N+... & + 2.5000D-01 * RXRAT( 174 ) ! TERP+NO3=0.2500D+00*XO2N+... & + 2.5000D-01 * RXRAT( 176 ) ! APIN+OH=0.2500D+00*XO2N+... & + 1.8000D-01 * RXRAT( 177 ) ! APIN+O3=0.1800D+00*XO2N+... & + 2.5000D-01 * RXRAT( 178 ) ! APIN+NO3=0.2500D+00*XO2N+... & + 2.0000D-02 * RXRAT( 195 ) ! CRES+OH=0.2000D-01*XO2N+... & + 1.0000D-01 * RXRAT( 196 ) ! CRES+NO3=0.1000D+00*XO2N+... & + 1.0000D-01 * RXRAT( 205 ) ! XOPN+NO3=0.1000D+00*XO2N+... & + RXRAT( 221 ) ! XPRP=XO2N+RO2 & + RXRAT( 223 ) ! XPAR=XO2N+RO2 & + 3.0000D-02 * RXRAT( 237 ) ! CL+PRPA=0.3000D-01*XO2N+... & + 9.0000D-03 * RXRAT( 238 ) ! CL+ETHA=0.9000D-02*XO2N+... & + 4.0000D-02 * RXRAT( 242 ) ! CL+ISOP=0.4000D-01*XO2N+... LOSS( XO2N ) = RXRAT( 83 ) ! XO2N+NO=0.5000D+00*NTR1+... & + RXRAT( 84 ) ! XO2N+HO2=ROOH & + RXRAT( 85 ) ! XO2N+C2O3=0.8000D+00*HO2+... & + RXRAT( 86 ) ! XO2N+RO2=RO2 PROD( NTR1 ) = 5.0000D-01 * RXRAT( 83 ) ! XO2N+NO=0.5000D+00*NTR1+... & + RXRAT( 135 ) ! ROR+NO2=NTR1 & + 5.0000D-01 * RXRAT( 140 ) ! ETH+NO3=0.5000D+00*NTR1+... & + 5.0000D-01 * RXRAT( 144 ) ! OLE+NO3=0.5000D+00*NTR1+... & + 5.0000D-01 * RXRAT( 148 ) ! IOLE+NO3=0.5000D+00*NTR1+... LOSS( NTR1 ) = RXRAT( 91 ) ! NTR1+OH=NTR2 & + RXRAT( 92 ) ! NTR1=NO2 PROD( NTR2 ) = 5.0000D-01 * RXRAT( 83 ) ! XO2N+NO=0.5000D+00*NTR2+... & + RXRAT( 91 ) ! NTR1+OH=NTR2 & + 6.5000D-01 * RXRAT( 157 ) ! ISOP+NO3=0.6500D+00*NTR2+... & + 1.4200D-01 * RXRAT( 160 ) ! ISPD+NO3=0.1420D+00*NTR2+... & + 2.6600D-01 * RXRAT( 170 ) ! INTR+OH=0.2660D+00*NTR2+... & + 5.3000D-01 * RXRAT( 174 ) ! TERP+NO3=0.5300D+00*NTR2+... & + 5.3000D-01 * RXRAT( 178 ) ! APIN+NO3=0.5300D+00*NTR2+... & + 8.2000D-02 * RXRAT( 180 ) ! BZO2+NO=0.8200D-01*NTR2+... & + 1.4000D-01 * RXRAT( 185 ) ! TO2+NO=0.1400D+00*NTR2+... & + 1.4000D-01 * RXRAT( 191 ) ! XLO2+NO=0.1400D+00*NTR2+... & + RXRAT( 199 ) ! CRON+OH=NTR2+0.5000D+00*CRO & + RXRAT( 200 ) ! CRON+NO3=NTR2+0.5000D+... & + 5.0000D-01 * RXRAT( 205 ) ! XOPN+NO3=0.5000D+00*NTR2+... & + 5.0000D-01 * RXRAT( 218 ) ! OPAN+OH=0.5000D+00*NTR2+... LOSS( NTR2 ) = RXRAT( 270 ) ! NTR2=HNO3 PROD( FACD ) = RXRAT( 103 ) ! HCO3+NO=FACD+NO2+HO2 & + 5.0000D-01 * RXRAT( 104 ) ! HCO3+HO2=0.5000D+00*FACD+... & + 3.0000D-01 * RXRAT( 136 ) ! ETHY+OH=0.3000D+00*FACD+... & + 4.2000D-01 * RXRAT( 139 ) ! ETH+O3=0.4200D+00*FACD+... & + 9.0000D-02 * RXRAT( 143 ) ! OLE+O3=0.9000D-01*FACD+... & + 1.5000D-01 * RXRAT( 159 ) ! ISPD+O3=0.1500D+00*FACD+... & + 7.4000D-02 * RXRAT( 166 ) ! EPX2+HO2=0.7400D-01*FACD+... & + 1.8500D-01 * RXRAT( 170 ) ! INTR+OH=0.1850D+00*FACD+... LOSS( FACD ) = RXRAT( 93 ) ! FACD+OH=HO2 PROD( CO ) = RXRAT( 96 ) ! FORM+OH=CO+HO2 & + RXRAT( 97 ) ! FORM=CO+0.2000D+01*HO2 & + RXRAT( 98 ) ! FORM=CO & + RXRAT( 99 ) ! FORM+O=CO+HO2+OH & + RXRAT( 100 ) ! FORM+NO3=CO+HO2+HNO3 & + RXRAT( 108 ) ! ALD2=CO+RO2+MEO2+HO2 & + RXRAT( 112 ) ! ALDX=CO+XO2H+RO2+ALD2+HO2 & + 8.9000D-01 * RXRAT( 114 ) ! GLYD=0.8900D+00*CO+0.7400D+... & + 1.8000D+00 * RXRAT( 116 ) ! GLY+OH=0.1800D+01*CO+... & + 2.0000D+00 * RXRAT( 117 ) ! GLY=0.2000D+01*CO+0.2000D+... & + 1.5000D+00 * RXRAT( 118 ) ! GLY+NO3=0.1500D+01*CO+HNO3+... & + RXRAT( 119 ) ! MGLY=CO+HO2+C2O3 & + RXRAT( 121 ) ! MGLY+OH=CO+C2O3 & + 3.8000D-01 * RXRAT( 129 ) ! ACET=0.3800D+00*CO+0.1380D+... & + 3.0000D-01 * RXRAT( 136 ) ! ETHY+OH=0.3000D+00*CO+... & + RXRAT( 137 ) ! ETH+O=CO+HO2+FORM+0.7000D+... & + 3.5000D-01 * RXRAT( 139 ) ! ETH+O3=0.3500D+00*CO+FORM+... & + 2.0000D-01 * RXRAT( 141 ) ! OLE+O=0.2000D+00*CO+... & + 3.7800D-01 * RXRAT( 143 ) ! OLE+O3=0.3780D+00*CO+... & + 1.0000D-01 * RXRAT( 145 ) ! IOLE+O=0.1000D+00*CO+... & + 2.4500D-01 * RXRAT( 147 ) ! IOLE+O3=0.2450D+00*CO+... & + 6.6000D-02 * RXRAT( 156 ) ! ISOP+O3=0.6600D-01*CO+... & + 1.3700D-01 * RXRAT( 158 ) ! ISPD+OH=0.1370D+00*CO+... & + 5.4300D-01 * RXRAT( 159 ) ! ISPD+O3=0.5430D+00*CO+... & + 2.5100D-01 * RXRAT( 166 ) ! EPX2+HO2=0.2510D+00*CO+... & + 2.5100D-01 * RXRAT( 167 ) ! EPX2+NO=0.2510D+00*CO+... & + 2.0000D-01 * RXRAT( 168 ) ! EPX2+C2O3=0.2000D+00*CO+... & + 2.5100D-01 * RXRAT( 169 ) ! EPX2+RO2=0.2510D+00*CO+... & + 1.0000D-03 * RXRAT( 173 ) ! TERP+O3=0.1000D-02*CO+... & + 1.0000D-03 * RXRAT( 177 ) ! APIN+O3=0.1000D-02*CO+... & + 7.0000D-01 * RXRAT( 202 ) ! XOPN=0.7000D+00*CO+XO2H+... & + 5.0000D-01 * RXRAT( 204 ) ! XOPN+O3=0.5000D+00*CO+... & + RXRAT( 206 ) ! OPEN=CO+HO2+OPO3 & + 1.9800D+00 * RXRAT( 208 ) ! OPEN+O3=0.1980D+01*CO+... & + 5.0000D-01 * RXRAT( 212 ) ! OPO3+NO=0.5000D+00*CO+... & + RXRAT( 218 ) ! OPAN+OH=CO+0.5000D+00*GLY+... & + RXRAT( 233 ) ! OH+FMCL=CO+CL & + RXRAT( 234 ) ! FMCL=CO+CL+HO2 & + RXRAT( 243 ) ! CL+FORM=CO+HO2+HCL LOSS( CO ) = RXRAT( 123 ) ! CO+OH=HO2 PROD( HCO3 ) = RXRAT( 101 ) ! FORM+HO2=HCO3 LOSS( HCO3 ) = RXRAT( 102 ) ! HCO3=FORM+HO2 & + RXRAT( 103 ) ! HCO3+NO=FACD+NO2+HO2 & + RXRAT( 104 ) ! HCO3+HO2=0.5000D+00*MEPX+... PROD( ALDX ) = 3.7000D-01 * RXRAT( 133 ) ! ROR=0.3700D+00*ALDX+... & + 3.0000D-01 * RXRAT( 141 ) ! OLE+O=0.3000D+00*ALDX+... & + 4.8800D-01 * RXRAT( 142 ) ! OLE+OH=0.4880D+00*ALDX+... & + 2.7000D-01 * RXRAT( 143 ) ! OLE+O3=0.2700D+00*ALDX+... & + 3.7500D-01 * RXRAT( 144 ) ! OLE+NO3=0.3750D+00*ALDX+... & + 6.6000D-01 * RXRAT( 145 ) ! IOLE+O=0.6600D+00*ALDX+... & + 7.0000D-01 * RXRAT( 146 ) ! IOLE+OH=0.7000D+00*ALDX+... & + 4.4200D-01 * RXRAT( 147 ) ! IOLE+O3=0.4420D+00*ALDX+... & + 6.2500D-01 * RXRAT( 148 ) ! IOLE+NO3=0.6250D+00*ALDX+... & + 1.5000D-01 * RXRAT( 156 ) ! ISOP+O3=0.1500D+00*ALDX+... & + 2.9000D-02 * RXRAT( 162 ) ! ISPX+OH=0.2900D-01*ALDX+... & + 7.8000D-02 * RXRAT( 170 ) ! INTR+OH=0.7800D-01*ALDX+... & + 1.5000D-01 * RXRAT( 171 ) ! TERP+O=0.1500D+00*ALDX+... & + 4.7000D-01 * RXRAT( 172 ) ! TERP+OH=0.4700D+00*ALDX+... & + 2.1000D-01 * RXRAT( 173 ) ! TERP+O3=0.2100D+00*ALDX+... & + 4.7000D-01 * RXRAT( 174 ) ! TERP+NO3=0.4700D+00*ALDX+... & + 1.5000D-01 * RXRAT( 175 ) ! APIN+O=0.1500D+00*ALDX+... & + 4.7000D-01 * RXRAT( 176 ) ! APIN+OH=0.4700D+00*ALDX+... & + 2.1000D-01 * RXRAT( 177 ) ! APIN+O3=0.2100D+00*ALDX+... & + 4.7000D-01 * RXRAT( 178 ) ! APIN+NO3=0.4700D+00*ALDX+... & + RXRAT( 216 ) ! OPO3+C2O3=ALDX+XO2+MEO2+... & + 8.0000D-01 * RXRAT( 217 ) ! OPO3+RO2=0.8000D+00*ALDX+... & + 2.6800D-01 * RXRAT( 222 ) ! XPRP=0.2680D+00*ALDX+... & + 1.2600D-01 * RXRAT( 224 ) ! XPAR=0.1260D+00*ALDX+... & + 6.7000D-01 * RXRAT( 240 ) ! CL+OLE=0.6700D+00*ALDX+... & + 5.5000D-01 * RXRAT( 241 ) ! CL+IOLE=0.5500D+00*ALDX+... LOSS( ALDX ) = RXRAT( 109 ) ! ALDX+O=CXO3+OH & + RXRAT( 110 ) ! ALDX+OH=CXO3 & + RXRAT( 111 ) ! ALDX+NO3=CXO3+HNO3 & + RXRAT( 112 ) ! ALDX=ALD2+XO2H+RO2+CO+HO2 & + RXRAT( 245 ) ! ALDX+CL=HCL+CXO3 PROD( GLYD ) = 1.1000D-02 * RXRAT( 127 ) ! ETOH+OH=0.1100D-01*GLYD+... & + 2.2000D-01 * RXRAT( 138 ) ! ETH+OH=0.2200D+00*GLYD+RO2+... & + 2.6900D-01 * RXRAT( 158 ) ! ISPD+OH=0.2690D+00*GLYD+... & + 1.1300D-01 * RXRAT( 160 ) ! ISPD+NO3=0.1130D+00*GLYD+... & + 1.2800D-01 * RXRAT( 161 ) ! ISPD=0.1280D+00*GLYD+... & + 2.7500D-01 * RXRAT( 166 ) ! EPX2+HO2=0.2750D+00*GLYD+... & + 2.7500D-01 * RXRAT( 167 ) ! EPX2+NO=0.2750D+00*GLYD+... & + 2.2000D-01 * RXRAT( 168 ) ! EPX2+C2O3=0.2200D+00*GLYD+... & + 2.7500D-01 * RXRAT( 169 ) ! EPX2+RO2=0.2750D+00*GLYD+... & + 3.3100D-01 * RXRAT( 170 ) ! INTR+OH=0.3310D+00*GLYD+... LOSS( GLYD ) = RXRAT( 113 ) ! GLYD+OH=0.2000D+00*GLY+... & + RXRAT( 114 ) ! GLYD=0.7400D+00*FORM+... & + RXRAT( 115 ) ! GLYD+NO3=HNO3+C2O3 PROD( GLY ) = 2.0000D-01 * RXRAT( 113 ) ! GLYD+OH=0.2000D+00*GLY+... & + 1.1000D-01 * RXRAT( 114 ) ! GLYD=0.1100D+00*GLY+... & + 7.0000D-01 * RXRAT( 136 ) ! ETHY+OH=0.7000D+00*GLY+... & + 7.5000D-02 * RXRAT( 143 ) ! OLE+O3=0.7500D-01*GLY+... & + 2.4000D-01 * RXRAT( 147 ) ! IOLE+O3=0.2400D+00*GLY+... & + 1.7000D-01 * RXRAT( 159 ) ! ISPD+O3=0.1700D+00*GLY+... & + 2.7500D-01 * RXRAT( 166 ) ! EPX2+HO2=0.2750D+00*GLY+... & + 2.7500D-01 * RXRAT( 167 ) ! EPX2+NO=0.2750D+00*GLY+... & + 2.2000D-01 * RXRAT( 168 ) ! EPX2+C2O3=0.2200D+00*GLY+... & + 2.7500D-01 * RXRAT( 169 ) ! EPX2+RO2=0.2750D+00*GLY+... & + 9.1800D-01 * RXRAT( 180 ) ! BZO2+NO=0.9180D+00*GLY+... & + RXRAT( 181 ) ! BZO2+C2O3=GLY+OPEN+HO2+... & + RXRAT( 183 ) ! BZO2+RO2=GLY+OPEN+HO2+RO2 & + 4.1700D-01 * RXRAT( 185 ) ! TO2+NO=0.4170D+00*GLY+... & + 4.8000D-01 * RXRAT( 186 ) ! TO2+C2O3=0.4800D+00*GLY+... & + 4.8000D-01 * RXRAT( 188 ) ! TO2+RO2=0.4800D+00*GLY+... & + 2.2100D-01 * RXRAT( 191 ) ! XLO2+NO=0.2210D+00*GLY+... & + 2.6000D-01 * RXRAT( 193 ) ! XLO2+C2O3=0.2600D+00*GLY+... & + 2.6000D-01 * RXRAT( 194 ) ! XLO2+RO2=0.2600D+00*GLY+... & + 2.5000D-02 * RXRAT( 195 ) ! CRES+OH=0.2500D-01*GLY+... & + 2.4000D-01 * RXRAT( 196 ) ! CRES+NO3=0.2400D+00*GLY+... & + 4.0000D-01 * RXRAT( 202 ) ! XOPN=0.4000D+00*GLY+XO2H+... & + 4.0000D-01 * RXRAT( 203 ) ! XOPN+OH=0.4000D+00*GLY+... & + 4.0000D-01 * RXRAT( 207 ) ! OPEN+OH=0.4000D+00*GLY+... & + 1.4000D+00 * RXRAT( 208 ) ! OPEN+O3=0.1400D+01*GLY+... & + 5.0000D-01 * RXRAT( 212 ) ! OPO3+NO=0.5000D+00*GLY+NO2+... & + 5.0000D-01 * RXRAT( 218 ) ! OPAN+OH=0.5000D+00*GLY+... LOSS( GLY ) = RXRAT( 116 ) ! GLY+OH=0.1800D+01*CO+... & + RXRAT( 117 ) ! GLY=0.2000D+01*HO2+0.2000D+... & + RXRAT( 118 ) ! GLY+NO3=HNO3+0.1500D+01*CO+... & + RXRAT( 283 ) ! GLY=AGLYJ PROD( MGLY ) = 7.5000D-02 * RXRAT( 143 ) ! OLE+O3=0.7500D-01*MGLY+... & + 6.0000D-02 * RXRAT( 147 ) ! IOLE+O3=0.6000D-01*MGLY+... & + 1.1500D-01 * RXRAT( 158 ) ! ISPD+OH=0.1150D+00*MGLY+... & + 5.3100D-01 * RXRAT( 159 ) ! ISPD+O3=0.5310D+00*MGLY+... & + 1.1300D-01 * RXRAT( 160 ) ! ISPD+NO3=0.1130D+00*MGLY+... & + 2.7500D-01 * RXRAT( 166 ) ! EPX2+HO2=0.2750D+00*MGLY+... & + 2.7500D-01 * RXRAT( 167 ) ! EPX2+NO=0.2750D+00*MGLY+... & + 2.2000D-01 * RXRAT( 168 ) ! EPX2+C2O3=0.2200D+00*MGLY+... & + 2.7500D-01 * RXRAT( 169 ) ! EPX2+RO2=0.2750D+00*MGLY+... & + 4.4300D-01 * RXRAT( 185 ) ! TO2+NO=0.4430D+00*MGLY+... & + 5.2000D-01 * RXRAT( 186 ) ! TO2+C2O3=0.5200D+00*MGLY+... & + 5.2000D-01 * RXRAT( 188 ) ! TO2+RO2=0.5200D+00*MGLY+... & + 6.7500D-01 * RXRAT( 191 ) ! XLO2+NO=0.6750D+00*MGLY+... & + 7.7000D-01 * RXRAT( 193 ) ! XLO2+C2O3=0.7700D+00*MGLY+... & + 7.7000D-01 * RXRAT( 194 ) ! XLO2+RO2=0.7700D+00*MGLY+... & + 2.4000D-01 * RXRAT( 196 ) ! CRES+NO3=0.2400D+00*MGLY+... & + RXRAT( 203 ) ! XOPN+OH=MGLY+0.4000D+... & + 1.2000D+00 * RXRAT( 204 ) ! XOPN+O3=0.1200D+01*MGLY+... & + 2.5000D-01 * RXRAT( 205 ) ! XOPN+NO3=0.2500D+00*MGLY+... & + 2.4000D-01 * RXRAT( 208 ) ! OPEN+O3=0.2400D+00*MGLY+... LOSS( MGLY ) = RXRAT( 119 ) ! MGLY=C2O3+HO2+CO & + RXRAT( 120 ) ! MGLY+NO3=HNO3+C2O3+XO2+RO2 & + RXRAT( 121 ) ! MGLY+OH=C2O3+CO & + RXRAT( 284 ) ! MGLY=AGLYJ PROD( ETHA ) = 0.0D0 LOSS( ETHA ) = RXRAT( 125 ) ! ETHA+OH=0.9910D+00*ALD2+... & + RXRAT( 238 ) ! ETHA+CL=HCL+0.9910D+... PROD( ETOH ) = 0.0D0 LOSS( ETOH ) = RXRAT( 127 ) ! ETOH+OH=0.9500D+00*ALD2+... & + RXRAT( 247 ) ! ETOH+CL=HCL+HO2+ALD2 PROD( KET ) = 2.0000D-01 * RXRAT( 133 ) ! ROR=0.2000D+00*KET+0.4200D+... & + RXRAT( 134 ) ! ROR=KET+HO2 LOSS( KET ) = RXRAT( 128 ) ! KET=0.5000D+00*ALD2+... PROD( PAR ) = 2.0000D-01 * RXRAT( 141 ) ! OLE+O=0.2000D+00*PAR+... & + 1.0000D-01 * RXRAT( 145 ) ! IOLE+O=0.1000D+00*PAR+... & + 2.9000D-01 * RXRAT( 147 ) ! IOLE+O3=0.2900D+00*PAR+... & + RXRAT( 148 ) ! IOLE+NO3=PAR+0.5000D+... & + 2.5000D-01 * RXRAT( 150 ) ! ISOP+O=0.2500D+00*PAR+... & + 3.5000D-01 * RXRAT( 156 ) ! ISOP+O3=0.3500D+00*PAR+... & + 1.1700D-01 * RXRAT( 158 ) ! ISPD+OH=0.1170D+00*PAR+... & + 7.1700D-01 * RXRAT( 160 ) ! ISPD+NO3=0.7170D+00*PAR+... & + 2.4000D-01 * RXRAT( 161 ) ! ISPD=0.2400D+00*PAR+... & + 2.1750D+00 * RXRAT( 166 ) ! EPX2+HO2=0.2175D+01*PAR+... & + 2.1750D+00 * RXRAT( 167 ) ! EPX2+NO=0.2175D+01*PAR+... & + 1.7400D+00 * RXRAT( 168 ) ! EPX2+C2O3=0.1740D+01*PAR+... & + 2.1750D+00 * RXRAT( 169 ) ! EPX2+RO2=0.2175D+01*PAR+... & + 2.7000D+00 * RXRAT( 170 ) ! INTR+OH=0.2700D+01*PAR+... & + 5.1200D+00 * RXRAT( 171 ) ! TERP+O=0.5120D+01*PAR+... & + 1.6600D+00 * RXRAT( 172 ) ! TERP+OH=0.1660D+01*PAR+... & + 7.0000D+00 * RXRAT( 173 ) ! TERP+O3=0.7000D+01*PAR+... & + 5.1200D+00 * RXRAT( 175 ) ! APIN+O=0.5120D+01*PAR+... & + 1.6600D+00 * RXRAT( 176 ) ! APIN+OH=0.1660D+01*PAR+... & + 7.0000D+00 * RXRAT( 177 ) ! APIN+O3=0.7000D+01*PAR+... & + 2.6800D-01 * RXRAT( 222 ) ! XPRP=0.2680D+00*PAR+... & + 3.0000D-01 * RXRAT( 241 ) ! CL+IOLE=0.3000D+00*PAR+... LOSS( PAR ) = 2.5000D+00 * RXRAT( 128 ) ! KET=-0.2500D+01*PAR+... & + RXRAT( 132 ) ! PAR+OH=XPAR & + 2.7000D+00 * RXRAT( 133 ) ! ROR=-0.2700D+01*PAR+... & + 7.3000D-01 * RXRAT( 142 ) ! OLE+OH=-0.7300D+00*PAR+... & + 7.9000D-01 * RXRAT( 143 ) ! OLE+O3=-0.7900D+00*PAR+... & + RXRAT( 144 ) ! OLE+NO3=-PAR+0.5000D+... & + 1.2600D-01 * RXRAT( 224 ) ! XPAR=-0.1260D+00*PAR+... & + RXRAT( 236 ) ! PAR+CL=HCL+XPAR & + RXRAT( 240 ) ! CL+OLE=-PAR+0.3300D+... PROD( ACET ) = 4.2000D-01 * RXRAT( 133 ) ! ROR=0.4200D+00*ACET+... & + 1.3700D-01 * RXRAT( 158 ) ! ISPD+OH=0.1370D+00*ACET+... & + 1.7000D-01 * RXRAT( 159 ) ! ISPD+O3=0.1700D+00*ACET+... & + 1.7000D-01 * RXRAT( 161 ) ! ISPD=0.1700D+00*ACET+... & + 7.3200D-01 * RXRAT( 222 ) ! XPRP=0.7320D+00*ACET+... & + RXRAT( 237 ) ! CL+PRPA=ACET+HCL+0.9700D+... LOSS( ACET ) = RXRAT( 129 ) ! ACET=0.3800D+00*CO+0.1380D+... & + RXRAT( 130 ) ! ACET+OH=FORM+C2O3+XO2+RO2 PROD( PRPA ) = 0.0D0 LOSS( PRPA ) = RXRAT( 131 ) ! PRPA+OH=XPRP & + RXRAT( 237 ) ! PRPA+CL=HCL+ACET+0.9700D+... PROD( XPRP ) = RXRAT( 131 ) ! PRPA+OH=XPRP LOSS( XPRP ) = RXRAT( 221 ) ! XPRP=XO2N+RO2 & + RXRAT( 222 ) ! XPRP=0.7320D+00*ACET+... PROD( XPAR ) = RXRAT( 132 ) ! PAR+OH=XPAR & + RXRAT( 236 ) ! CL+PAR=XPAR+HCL LOSS( XPAR ) = RXRAT( 223 ) ! XPAR=XO2N+RO2 & + RXRAT( 224 ) ! XPAR=0.1260D+00*ALDX+... PROD( ROR ) = 8.7400D-01 * RXRAT( 224 ) ! XPAR=0.8740D+00*ROR+... LOSS( ROR ) = 9.8000D-01 * RXRAT( 133 ) ! ROR=0.2000D-01*ROR+0.4200D+... & + RXRAT( 134 ) ! ROR=KET+HO2 & + RXRAT( 135 ) ! ROR+NO2=NTR1 PROD( ETHY ) = 0.0D0 LOSS( ETHY ) = RXRAT( 136 ) ! ETHY+OH=0.7000D+00*GLY+... PROD( ETH ) = 0.0D0 LOSS( ETH ) = RXRAT( 137 ) ! ETH+O=FORM+HO2+CO+0.7000D+... & + RXRAT( 138 ) ! ETH+OH=XO2H+RO2+0.1560D+... & + RXRAT( 139 ) ! ETH+O3=FORM+0.3500D+00*CO+... & + RXRAT( 140 ) ! ETH+NO3=0.5000D+00*NO2+... & + RXRAT( 239 ) ! ETH+CL=FMCL+0.2000D+01*XO2+... PROD( OLE ) = 2.4000D-01 * RXRAT( 161 ) ! ISPD=0.2400D+00*OLE+... & + 9.8000D-02 * RXRAT( 170 ) ! INTR+OH=0.9800D-01*OLE+... & + 3.0000D-01 * RXRAT( 241 ) ! CL+IOLE=0.3000D+00*OLE+... LOSS( OLE ) = RXRAT( 141 ) ! OLE+O=0.2000D+00*ALD2+... & + RXRAT( 142 ) ! OLE+OH=0.7810D+00*FORM+... & + RXRAT( 143 ) ! OLE+O3=0.2950D+00*ALD2+... & + RXRAT( 144 ) ! OLE+NO3=0.5000D+00*NO2+... & + RXRAT( 240 ) ! OLE+CL=FMCL+0.3300D+... PROD( IOLE ) = 2.9000D-02 * RXRAT( 162 ) ! ISPX+OH=0.2900D-01*IOLE+... LOSS( IOLE ) = RXRAT( 145 ) ! IOLE+O=0.1240D+01*ALD2+... & + RXRAT( 146 ) ! IOLE+OH=0.1300D+01*ALD2+... & + RXRAT( 147 ) ! IOLE+O3=0.7320D+00*ALD2+... & + RXRAT( 148 ) ! IOLE+NO3=0.5000D+00*NO2+... & + RXRAT( 241 ) ! IOLE+CL=0.3000D+00*HCL+... PROD( ISOP ) = 0.0D0 LOSS( ISOP ) = RXRAT( 149 ) ! ISOP+OH=ISO2+RO2+ISOPRXN & + RXRAT( 150 ) ! ISOP+O=0.7500D+00*ISPD+... & + RXRAT( 156 ) ! ISOP+O3=0.6000D+00*FORM+... & + RXRAT( 157 ) ! ISOP+NO3=0.3500D+00*NO2+... & + RXRAT( 242 ) ! ISOP+CL=FMCL+ISPD+0.9600D+... PROD( ISO2 ) = RXRAT( 149 ) ! ISOP+OH=ISO2+RO2+ISOPRXN & + 6.7000D-02 * RXRAT( 162 ) ! ISPX+OH=0.6700D-01*ISO2+... LOSS( ISO2 ) = RXRAT( 151 ) ! ISO2+NO=0.1000D+00*INTR+... & + RXRAT( 152 ) ! ISO2+HO2=0.8800D+00*ISPX+... & + RXRAT( 153 ) ! ISO2+C2O3=0.5980D+00*FORM+... & + RXRAT( 154 ) ! ISO2+RO2=0.5980D+00*FORM+... & + RXRAT( 155 ) ! ISO2=HO2+HPLD PROD( ISOPRXN ) = RXRAT( 149 ) ! ISOP+OH=ISOPRXN+RO2+ISO2 & + RXRAT( 157 ) ! ISOP+NO3=ISOPRXN+0.6500D+... LOSS( ISOPRXN ) = 0.0D0 PROD( ISPD ) = 7.5000D-01 * RXRAT( 150 ) ! ISOP+O=0.7500D+00*ISPD+... & + 9.0000D-01 * RXRAT( 151 ) ! ISO2+NO=0.9000D+00*ISPD+... & + 1.2000D-01 * RXRAT( 152 ) ! ISO2+HO2=0.1200D+00*ISPD+... & + RXRAT( 153 ) ! ISO2+C2O3=ISPD+0.5980D+... & + RXRAT( 154 ) ! ISO2+RO2=ISPD+0.5980D+... & + 6.5000D-01 * RXRAT( 156 ) ! ISOP+O3=0.6500D+00*ISPD+... & + 3.5000D-01 * RXRAT( 157 ) ! ISOP+NO3=0.3500D+00*ISPD+... & + RXRAT( 163 ) ! HPLD=ISPD+OH & + RXRAT( 164 ) ! HPLD+NO3=ISPD+HNO3 & + RXRAT( 242 ) ! CL+ISOP=ISPD+FMCL+0.9600D+... LOSS( ISPD ) = RXRAT( 158 ) ! ISPD+OH=0.2200D-01*XO2N+... & + RXRAT( 159 ) ! ISPD+O3=0.4000D-01*ALD2+... & + RXRAT( 160 ) ! ISPD+NO3=0.7170D+00*HNO3+... & + RXRAT( 161 ) ! ISPD=0.7600D+00*HO2+... PROD( INTR ) = 1.0000D-01 * RXRAT( 151 ) ! ISO2+NO=0.1000D+00*INTR+... LOSS( INTR ) = 8.9600D-01 * RXRAT( 170 ) ! INTR+OH=0.1040D+00*INTR+... PROD( ISPX ) = 8.8000D-01 * RXRAT( 152 ) ! ISO2+HO2=0.8800D+00*ISPX+... LOSS( ISPX ) = RXRAT( 162 ) ! ISPX+OH=0.9040D+00*EPOX+... PROD( HPLD ) = RXRAT( 155 ) ! ISO2=HPLD+HO2 LOSS( HPLD ) = RXRAT( 163 ) ! HPLD=OH+ISPD & + RXRAT( 164 ) ! HPLD+NO3=HNO3+ISPD PROD( OPO3 ) = 4.5700D-01 * RXRAT( 158 ) ! ISPD+OH=0.4570D+00*OPO3+... & + 4.8000D-01 * RXRAT( 196 ) ! CRES+NO3=0.4800D+00*OPO3+... & + RXRAT( 206 ) ! OPEN=OPO3+HO2+CO & + 6.0000D-01 * RXRAT( 207 ) ! OPEN+OH=0.6000D+00*OPO3+... & + RXRAT( 209 ) ! OPEN+NO3=OPO3+HNO3 & + RXRAT( 214 ) ! OPAN=OPO3+NO2 LOSS( OPO3 ) = RXRAT( 212 ) ! OPO3+NO=NO2+0.5000D+00*GLY+... & + RXRAT( 213 ) ! OPO3+NO2=OPAN & + RXRAT( 215 ) ! OPO3+HO2=0.3700D+00*PACD+... & + RXRAT( 216 ) ! OPO3+C2O3=MEO2+XO2+ALDX+... & + RXRAT( 217 ) ! OPO3+RO2=0.8000D+00*XO2H+... PROD( EPOX ) = 9.0400D-01 * RXRAT( 162 ) ! ISPX+OH=0.9040D+00*EPOX+... LOSS( EPOX ) = RXRAT( 165 ) ! EPOX+OH=EPX2+RO2 & + RXRAT( 280 ) ! EPOX=IEPOXP PROD( EPX2 ) = RXRAT( 165 ) ! EPOX+OH=EPX2+RO2 LOSS( EPX2 ) = RXRAT( 166 ) ! EPX2+HO2=0.2750D+00*GLYD+... & + RXRAT( 167 ) ! EPX2+NO=0.2750D+00*GLYD+... & + RXRAT( 168 ) ! EPX2+C2O3=0.2200D+00*GLYD+... & + RXRAT( 169 ) ! EPX2+RO2=0.2750D+00*GLYD+... PROD( TERP ) = 0.0D0 LOSS( TERP ) = RXRAT( 171 ) ! TERP+O=0.1500D+00*ALDX+... & + RXRAT( 172 ) ! TERP+OH=0.7500D+00*XO2H+... & + RXRAT( 173 ) ! TERP+O3=0.5700D+00*OH+... & + RXRAT( 174 ) ! TERP+NO3=0.4700D+00*NO2+... PROD( TRPRXN ) = RXRAT( 171 ) ! TERP+O=TRPRXN+0.5120D+... & + RXRAT( 172 ) ! TERP+OH=TRPRXN+0.5000D+... & + RXRAT( 173 ) ! TERP+O3=TRPRXN+0.7000D-... & + RXRAT( 175 ) ! APIN+O=TRPRXN+0.5120D+... & + RXRAT( 176 ) ! APIN+OH=TRPRXN+0.5000D+... & + RXRAT( 177 ) ! APIN+O3=TRPRXN+0.7000D-... LOSS( TRPRXN ) = 0.0D0 PROD( TERPNRO2 ) = RXRAT( 174 ) ! TERP+NO3=TERPNRO2+0.2800D+... LOSS( TERPNRO2 ) = RXRAT( 285 ) ! TERPNRO2+NO=NO+0.6880D+... & + RXRAT( 286 ) ! TERPNRO2+HO2=HO2+MTNO3 & + RXRAT( 287 ) ! TERPNRO2+NO3=NO3+0.4220D+... & + RXRAT( 288 ) ! TERPNRO2+RO2=RO2+0.7110D+... PROD( APIN ) = 0.0D0 LOSS( APIN ) = RXRAT( 175 ) ! APIN+O=0.1500D+00*ALDX+... & + RXRAT( 176 ) ! APIN+OH=0.7500D+00*XO2H+... & + RXRAT( 177 ) ! APIN+O3=0.5700D+00*OH+... & + RXRAT( 178 ) ! APIN+NO3=0.4700D+00*NO2+... PROD( BENZENE ) = 0.0D0 LOSS( BENZENE ) = RXRAT( 179 ) ! BENZENE+OH=0.5300D+00*CRES+... PROD( CRES ) = 5.3000D-01 * RXRAT( 179 ) ! BENZENE+OH=0.5300D+00*CRES+... & + 1.8000D-01 * RXRAT( 184 ) ! TOL+OH=0.1800D+00*CRES+... & + 1.5500D-01 * RXRAT( 189 ) ! XYLMN+OH=0.1550D+00*CRES+... & + 1.5500D-01 * RXRAT( 190 ) ! NAPH+OH=0.1550D+00*CRES+... & + RXRAT( 198 ) ! CRO+HO2=CRES & + 1.8000D-01 * RXRAT( 249 ) ! CL+TOL=0.1800D+00*CRES+HCL+... & + 1.5500D-01 * RXRAT( 250 ) ! CL+XYLMN=0.1550D+00*CRES+... & + 1.5500D-01 * RXRAT( 251 ) ! CL+NAPH=0.1550D+00*CRES+... LOSS( CRES ) = RXRAT( 195 ) ! CRES+OH=0.2500D-01*GLY+... & + RXRAT( 196 ) ! CRES+NO3=0.3000D+00*CRO+... PROD( BZO2 ) = 3.5200D-01 * RXRAT( 179 ) ! BENZENE+OH=0.3520D+00*BZO2+... LOSS( BZO2 ) = RXRAT( 180 ) ! BZO2+NO=0.9180D+00*NO2+... & + RXRAT( 181 ) ! BZO2+C2O3=GLY+OPEN+HO2+... & + RXRAT( 182 ) ! BZO2+HO2= & + RXRAT( 183 ) ! BZO2+RO2=GLY+OPEN+HO2+RO2 PROD( OPEN ) = 1.1800D-01 * RXRAT( 179 ) ! BENZENE+OH=0.1180D+00*OPEN+... & + 9.1800D-01 * RXRAT( 180 ) ! BZO2+NO=0.9180D+00*OPEN+... & + RXRAT( 181 ) ! BZO2+C2O3=OPEN+GLY+HO2+... & + RXRAT( 183 ) ! BZO2+RO2=OPEN+GLY+HO2+RO2 & + 1.0000D-01 * RXRAT( 184 ) ! TOL+OH=0.1000D+00*OPEN+... & + 6.6000D-01 * RXRAT( 185 ) ! TO2+NO=0.6600D+00*OPEN+... & + 7.7000D-01 * RXRAT( 186 ) ! TO2+C2O3=0.7700D+00*OPEN+... & + 7.7000D-01 * RXRAT( 188 ) ! TO2+RO2=0.7700D+00*OPEN+... & + 3.0000D-01 * RXRAT( 191 ) ! XLO2+NO=0.3000D+00*OPEN+... & + 3.5000D-01 * RXRAT( 193 ) ! XLO2+C2O3=0.3500D+00*OPEN+... & + 3.5000D-01 * RXRAT( 194 ) ! XLO2+RO2=0.3500D+00*OPEN+... & + 2.5000D-02 * RXRAT( 195 ) ! CRES+OH=0.2500D-01*OPEN+... & + RXRAT( 201 ) ! CRON=OPEN+HO2+FORM+HONO & + 2.5000D-01 * RXRAT( 205 ) ! XOPN+NO3=0.2500D+00*OPEN+... & + 1.0000D-01 * RXRAT( 249 ) ! CL+TOL=0.1000D+00*OPEN+... LOSS( OPEN ) = RXRAT( 206 ) ! OPEN=OPO3+HO2+CO & + RXRAT( 207 ) ! OPEN+OH=0.6000D+00*OPO3+... & + RXRAT( 208 ) ! OPEN+O3=0.1400D+01*GLY+... & + RXRAT( 209 ) ! OPEN+NO3=OPO3+HNO3 PROD( BENZRO2 ) = RXRAT( 179 ) ! BENZENE+OH=BENZRO2+0.3520D+... LOSS( BENZRO2 ) = RXRAT( 262 ) ! BENZRO2+NO=NO+0.3400D-... & + RXRAT( 263 ) ! BENZRO2+HO2=HO2+0.1460D+... PROD( TOL ) = 0.0D0 LOSS( TOL ) = RXRAT( 184 ) ! TOL+OH=0.1800D+00*CRES+... & + RXRAT( 249 ) ! TOL+CL=HCL+0.1800D+00*CRES+... PROD( TO2 ) = 6.5000D-01 * RXRAT( 184 ) ! TOL+OH=0.6500D+00*TO2+... & + 6.5000D-01 * RXRAT( 249 ) ! CL+TOL=0.6500D+00*TO2+... LOSS( TO2 ) = RXRAT( 185 ) ! TO2+NO=0.8600D+00*NO2+... & + RXRAT( 186 ) ! TO2+C2O3=0.4800D+00*GLY+... & + RXRAT( 187 ) ! TO2+HO2= & + RXRAT( 188 ) ! TO2+RO2=0.4800D+00*GLY+... PROD( TOLRO2 ) = RXRAT( 184 ) ! TOL+OH=TOLRO2+0.6500D+... & + RXRAT( 249 ) ! CL+TOL=TOLRO2+0.1800D+... LOSS( TOLRO2 ) = RXRAT( 258 ) ! TOLRO2+NO=NO+0.1600D-... & + RXRAT( 259 ) ! TOLRO2+HO2=HO2+0.1400D+... PROD( XOPN ) = 2.0000D-01 * RXRAT( 185 ) ! TO2+NO=0.2000D+00*XOPN+... & + 2.3000D-01 * RXRAT( 186 ) ! TO2+C2O3=0.2300D+00*XOPN+... & + 2.3000D-01 * RXRAT( 188 ) ! TO2+RO2=0.2300D+00*XOPN+... & + 2.4400D-01 * RXRAT( 189 ) ! XYLMN+OH=0.2440D+00*XOPN+... & + 2.4400D-01 * RXRAT( 190 ) ! NAPH+OH=0.2440D+00*XOPN+... & + 5.6000D-01 * RXRAT( 191 ) ! XLO2+NO=0.5600D+00*XOPN+... & + 6.5000D-01 * RXRAT( 193 ) ! XLO2+C2O3=0.6500D+00*XOPN+... & + 6.5000D-01 * RXRAT( 194 ) ! XLO2+RO2=0.6500D+00*XOPN+... & + 2.4400D-01 * RXRAT( 250 ) ! CL+XYLMN=0.2440D+00*XOPN+... & + 2.4400D-01 * RXRAT( 251 ) ! CL+NAPH=0.2440D+00*XOPN+... LOSS( XOPN ) = RXRAT( 202 ) ! XOPN=0.4000D+00*GLY+XO2H+... & + RXRAT( 203 ) ! XOPN+OH=MGLY+0.4000D+... & + RXRAT( 204 ) ! XOPN+O3=0.1200D+01*MGLY+... & + RXRAT( 205 ) ! XOPN+NO3=0.5000D+00*NO2+... PROD( XYLMN ) = 0.0D0 LOSS( XYLMN ) = RXRAT( 189 ) ! XYLMN+OH=0.1550D+00*CRES+... & + RXRAT( 250 ) ! XYLMN+CL=HCL+0.1550D+... PROD( XLO2 ) = 5.4400D-01 * RXRAT( 189 ) ! XYLMN+OH=0.5440D+00*XLO2+... & + 5.4400D-01 * RXRAT( 190 ) ! NAPH+OH=0.5440D+00*XLO2+... & + 5.4400D-01 * RXRAT( 250 ) ! CL+XYLMN=0.5440D+00*XLO2+... & + 5.4400D-01 * RXRAT( 251 ) ! CL+NAPH=0.5440D+00*XLO2+... LOSS( XLO2 ) = RXRAT( 191 ) ! XLO2+NO=0.8600D+00*NO2+... & + RXRAT( 192 ) ! XLO2+HO2= & + RXRAT( 193 ) ! XLO2+C2O3=0.2600D+00*GLY+... & + RXRAT( 194 ) ! XLO2+RO2=0.2600D+00*GLY+... PROD( XYLRO2 ) = RXRAT( 189 ) ! XYLMN+OH=XYLRO2+0.5440D+... & + RXRAT( 250 ) ! CL+XYLMN=XYLRO2+0.1550D+... LOSS( XYLRO2 ) = RXRAT( 260 ) ! XYLRO2+NO=NO+0.1500D-... & + RXRAT( 261 ) ! XYLRO2+HO2=HO2+0.1930D+... PROD( NAPH ) = 0.0D0 LOSS( NAPH ) = RXRAT( 190 ) ! NAPH+OH=0.1550D+00*CRES+... & + RXRAT( 251 ) ! NAPH+CL=HCL+0.1550D+... PROD( PAHRO2 ) = RXRAT( 190 ) ! NAPH+OH=PAHRO2+0.5440D+... & + RXRAT( 251 ) ! CL+NAPH=PAHRO2+0.1550D+... LOSS( PAHRO2 ) = RXRAT( 267 ) ! PAHRO2+NO=NO+0.2800D-... & + RXRAT( 268 ) ! PAHRO2+HO2=HO2+0.4730D+... PROD( CRO ) = 2.0000D-01 * RXRAT( 195 ) ! CRES+OH=0.2000D+00*CRO+... & + 3.0000D-01 * RXRAT( 196 ) ! CRES+NO3=0.3000D+00*CRO+... & + 5.0000D-01 * RXRAT( 199 ) ! CRON+OH=0.5000D+00*CRO+NTR2 & + 5.0000D-01 * RXRAT( 200 ) ! CRON+NO3=0.5000D+00*CRO+... & + 5.0000D-01 * RXRAT( 210 ) ! CAT1+OH=0.5000D+00*CRO+... & + RXRAT( 211 ) ! CAT1+NO3=CRO+HNO3 LOSS( CRO ) = RXRAT( 197 ) ! CRO+NO2=CRON & + RXRAT( 198 ) ! CRO+HO2=CRES PROD( CAT1 ) = 7.3200D-01 * RXRAT( 195 ) ! CRES+OH=0.7320D+00*CAT1+... LOSS( CAT1 ) = RXRAT( 210 ) ! CAT1+OH=0.1400D+00*FORM+... & + RXRAT( 211 ) ! CAT1+NO3=CRO+HNO3 PROD( CRON ) = RXRAT( 197 ) ! CRO+NO2=CRON LOSS( CRON ) = RXRAT( 199 ) ! CRON+OH=NTR2+0.5000D+00*CRO & + RXRAT( 200 ) ! CRON+NO3=NTR2+0.5000D+... & + RXRAT( 201 ) ! CRON=HONO+HO2+FORM+OPEN PROD( OPAN ) = RXRAT( 213 ) ! OPO3+NO2=OPAN LOSS( OPAN ) = RXRAT( 214 ) ! OPAN=OPO3+NO2 & + RXRAT( 218 ) ! OPAN+OH=0.5000D+00*NO2+... PROD( ECH4 ) = 0.0D0 LOSS( ECH4 ) = RXRAT( 220 ) ! ECH4+OH=MEO2+RO2 PROD( CL2 ) = 3.0000D-01 * RXRAT( 229 ) ! CLO+CLO=0.3000D+00*CL2+... LOSS( CL2 ) = RXRAT( 226 ) ! CL2=0.2000D+01*CL PROD( CL ) = 2.0000D+00 * RXRAT( 226 ) ! CL2=0.2000D+01*CL & + RXRAT( 227 ) ! HOCL=CL+OH & + 1.4000D+00 * RXRAT( 229 ) ! CLO+CLO=0.1400D+01*CL+... & + RXRAT( 230 ) ! CLO+NO=CL+NO2 & + RXRAT( 232 ) ! CLO+MEO2=CL+FORM+HO2 & + RXRAT( 233 ) ! OH+FMCL=CL+CO & + RXRAT( 234 ) ! FMCL=CL+CO+HO2 & + RXRAT( 248 ) ! HCL+OH=CL & + RXRAT( 252 ) ! CLNO2=CL+NO2 & + RXRAT( 255 ) ! CLNO3=CL+NO3 LOSS( CL ) = RXRAT( 228 ) ! CL+O3=CLO & + RXRAT( 235 ) ! CL=HCL+MEO2+RO2 & + RXRAT( 236 ) ! CL+PAR=HCL+XPAR & + RXRAT( 237 ) ! CL+PRPA=HCL+ACET+0.9700D+... & + RXRAT( 238 ) ! CL+ETHA=HCL+0.9910D+... & + RXRAT( 239 ) ! CL+ETH=FMCL+0.2000D+01*XO2+... & + RXRAT( 240 ) ! CL+OLE=FMCL+0.3300D+... & + RXRAT( 241 ) ! CL+IOLE=0.3000D+00*HCL+... & + RXRAT( 242 ) ! CL+ISOP=FMCL+ISPD+0.9600D+... & + RXRAT( 243 ) ! CL+FORM=HCL+HO2+CO & + RXRAT( 244 ) ! CL+ALD2=HCL+C2O3 & + RXRAT( 245 ) ! CL+ALDX=HCL+CXO3 & + RXRAT( 246 ) ! CL+MEOH=HCL+HO2+FORM & + RXRAT( 247 ) ! CL+ETOH=HCL+HO2+ALD2 & + RXRAT( 249 ) ! CL+TOL=HCL+0.1800D+00*CRES+... & + RXRAT( 250 ) ! CL+XYLMN=HCL+0.1550D+... & + RXRAT( 251 ) ! CL+NAPH=HCL+0.1550D+... & + RXRAT( 349 ) ! CL+DMS=0.8600D+00*SO2+MEO2+... PROD( HOCL ) = RXRAT( 231 ) ! CLO+HO2=HOCL & + RXRAT( 256 ) ! CLNO3=HOCL+HNO3 & + RXRAT( 257 ) ! CLNO3=HOCL+HNO3 LOSS( HOCL ) = RXRAT( 227 ) ! HOCL=OH+CL PROD( CLO ) = RXRAT( 228 ) ! CL+O3=CLO & + RXRAT( 254 ) ! CLNO3=CLO+NO2 & + 5.5000D-01 * RXRAT( 349 ) ! DMS+CL=0.5500D+00*CLO+MEO2+... LOSS( CLO ) = 2.0000D+00 * RXRAT( 229 ) ! CLO+CLO=0.3000D+00*CL2+... & + RXRAT( 230 ) ! CLO+NO=CL+NO2 & + RXRAT( 231 ) ! CLO+HO2=HOCL & + RXRAT( 232 ) ! CLO+MEO2=CL+FORM+HO2 & + RXRAT( 253 ) ! CLO+NO2=CLNO3 PROD( FMCL ) = RXRAT( 239 ) ! CL+ETH=FMCL+0.2000D+01*XO2+... & + RXRAT( 240 ) ! CL+OLE=FMCL+0.3300D+... & + 7.0000D-01 * RXRAT( 241 ) ! CL+IOLE=0.7000D+00*FMCL+... & + RXRAT( 242 ) ! CL+ISOP=FMCL+ISPD+0.9600D+... LOSS( FMCL ) = RXRAT( 233 ) ! FMCL+OH=CL+CO & + RXRAT( 234 ) ! FMCL=CL+CO+HO2 PROD( HCL ) = RXRAT( 235 ) ! CL=HCL+MEO2+RO2 & + RXRAT( 236 ) ! CL+PAR=HCL+XPAR & + RXRAT( 237 ) ! CL+PRPA=HCL+ACET+0.9700D+... & + RXRAT( 238 ) ! CL+ETHA=HCL+0.9910D+... & + 3.0000D-01 * RXRAT( 241 ) ! CL+IOLE=0.3000D+00*HCL+... & + RXRAT( 243 ) ! CL+FORM=HCL+HO2+CO & + RXRAT( 244 ) ! CL+ALD2=HCL+C2O3 & + RXRAT( 245 ) ! CL+ALDX=HCL+CXO3 & + RXRAT( 246 ) ! CL+MEOH=HCL+HO2+FORM & + RXRAT( 247 ) ! CL+ETOH=HCL+HO2+ALD2 & + RXRAT( 249 ) ! CL+TOL=HCL+0.1800D+00*CRES+... & + RXRAT( 250 ) ! CL+XYLMN=HCL+0.1550D+... & + RXRAT( 251 ) ! CL+NAPH=HCL+0.1550D+... & + 4.5000D-01 * RXRAT( 349 ) ! DMS+CL=0.4500D+00*HCL+MEO2+... LOSS( HCL ) = RXRAT( 248 ) ! HCL+OH=CL PROD( CLNO2 ) = RXRAT( 275 ) ! H2NO3PIJ+ACLI=CLNO2 & + RXRAT( 276 ) ! H2NO3PIJ+ACLJ=CLNO2 & + RXRAT( 277 ) ! H2NO3PK+ACLK=CLNO2 LOSS( CLNO2 ) = RXRAT( 252 ) ! CLNO2=CL+NO2 PROD( CLNO3 ) = RXRAT( 253 ) ! CLO+NO2=CLNO3 LOSS( CLNO3 ) = RXRAT( 254 ) ! CLNO3=CLO+NO2 & + RXRAT( 255 ) ! CLNO3=CL+NO3 & + RXRAT( 256 ) ! CLNO3=HOCL+HNO3 & + RXRAT( 257 ) ! CLNO3=HOCL+HNO3 PROD( SVAVB2 ) = 1.6000D-02 * RXRAT( 258 ) ! TOLRO2+NO=0.1600D-... & + 1.5000D-02 * RXRAT( 260 ) ! XYLRO2+NO=0.1500D-... & + 3.4000D-02 * RXRAT( 262 ) ! BENZRO2+NO=0.3400D-... & + 2.8000D-02 * RXRAT( 267 ) ! PAHRO2+NO=0.2800D-... & + 6.0000D-03 * RXRAT( 269 ) ! SOAALK+OH=0.6000D-... LOSS( SVAVB2 ) = 0.0D0 PROD( SVAVB3 ) = 5.1000D-02 * RXRAT( 258 ) ! TOLRO2+NO=0.5100D-... & + 2.3000D-02 * RXRAT( 260 ) ! XYLRO2+NO=0.2300D-... & + 2.2500D-01 * RXRAT( 267 ) ! PAHRO2+NO=0.2250D+... & + 5.2000D-02 * RXRAT( 269 ) ! SOAALK+OH=0.5200D-... LOSS( SVAVB3 ) = 0.0D0 PROD( SVAVB4 ) = 4.7000D-02 * RXRAT( 258 ) ! TOLRO2+NO=0.4700D-... & + 6.0000D-02 * RXRAT( 260 ) ! XYLRO2+NO=0.6000D-... & + 3.9200D-01 * RXRAT( 262 ) ! BENZRO2+NO=0.3920D+... & + 1.9100D-01 * RXRAT( 267 ) ! PAHRO2+NO=0.1910D+... & + 8.1000D-02 * RXRAT( 269 ) ! SOAALK+OH=0.8100D-... LOSS( SVAVB4 ) = 0.0D0 PROD( SVAVB1 ) = 1.4000D-01 * RXRAT( 259 ) ! TOLRO2+HO2=0.1400D+... & + 1.9300D-01 * RXRAT( 261 ) ! XYLRO2+HO2=0.1930D+... & + 1.4600D-01 * RXRAT( 263 ) ! BENZRO2+HO2=0.1460D+... & + 4.7300D-01 * RXRAT( 268 ) ! PAHRO2+HO2=0.4730D+... LOSS( SVAVB1 ) = 0.0D0 PROD( SESQ ) = 0.0D0 LOSS( SESQ ) = RXRAT( 264 ) ! SESQ+O3=O3+SESQRXN & + RXRAT( 265 ) ! SESQ+OH=OH+SESQRXN & + RXRAT( 266 ) ! SESQ+NO3=NO3+SESQRXN PROD( SESQRXN ) = RXRAT( 264 ) ! SESQ+O3=SESQRXN+O3 & + RXRAT( 265 ) ! SESQ+OH=SESQRXN+OH & + RXRAT( 266 ) ! SESQ+NO3=SESQRXN+NO3 LOSS( SESQRXN ) = 0.0D0 PROD( SOAALK ) = 0.0D0 LOSS( SOAALK ) = RXRAT( 269 ) ! SOAALK+OH=OH+0.6000D-... PROD( H2NO3PIJ ) = RXRAT( 271 ) ! N2O5=H2NO3PIJ+HNO3 LOSS( H2NO3PIJ ) = RXRAT( 273 ) ! H2NO3PIJ=HNO3 & + RXRAT( 275 ) ! H2NO3PIJ+ACLI=CLNO2 & + RXRAT( 276 ) ! H2NO3PIJ+ACLJ=CLNO2 PROD( H2NO3PK ) = RXRAT( 272 ) ! N2O5=H2NO3PK+HNO3 LOSS( H2NO3PK ) = RXRAT( 274 ) ! H2NO3PK=HNO3 & + RXRAT( 277 ) ! H2NO3PK+ACLK=CLNO2 PROD( ACLI ) = 0.0D0 LOSS( ACLI ) = RXRAT( 275 ) ! ACLI+H2NO3PIJ=CLNO2 PROD( ACLJ ) = 0.0D0 LOSS( ACLJ ) = RXRAT( 276 ) ! ACLJ+H2NO3PIJ=CLNO2 PROD( ACLK ) = 0.0D0 LOSS( ACLK ) = RXRAT( 277 ) ! ACLK+H2NO3PK=CLNO2 PROD( IEPOXP ) = RXRAT( 280 ) ! EPOX=IEPOXP LOSS( IEPOXP ) = RXRAT( 281 ) ! IEPOXP+ASO4J=AISO3J & + RXRAT( 282 ) ! IEPOXP=AISO3J PROD( ASO4J ) = 0.0D0 LOSS( ASO4J ) = RXRAT( 281 ) ! ASO4J+IEPOXP=AISO3J PROD( AISO3J ) = RXRAT( 281 ) ! IEPOXP+ASO4J=AISO3J & + RXRAT( 282 ) ! IEPOXP=AISO3J LOSS( AISO3J ) = 0.0D0 PROD( AGLYJ ) = RXRAT( 283 ) ! GLY=AGLYJ & + RXRAT( 284 ) ! MGLY=AGLYJ LOSS( AGLYJ ) = 0.0D0 PROD( MTNO3 ) = 6.8800D-01 * RXRAT( 285 ) ! TERPNRO2+NO=0.6880D+... & + RXRAT( 286 ) ! TERPNRO2+HO2=MTNO3+HO2 & + 4.2200D-01 * RXRAT( 287 ) ! TERPNRO2+NO3=0.4220D+... & + 7.1100D-01 * RXRAT( 288 ) ! TERPNRO2+RO2=0.7110D+... LOSS( MTNO3 ) = 6.3000D-01 * RXRAT( 289 ) ! MTNO3+CL=0.3700D+00*MTNO3+CL & + 7.6000D-01 * RXRAT( 290 ) ! MTNO3+OH=0.2400D+00*MTNO3+OH & + RXRAT( 291 ) ! MTNO3= PROD( AMTNO3J ) = 0.0D0 LOSS( AMTNO3J ) = RXRAT( 292 ) ! AMTNO3J=AMTHYDJ PROD( AMTHYDJ ) = RXRAT( 292 ) ! AMTNO3J=AMTHYDJ LOSS( AMTHYDJ ) = 0.0D0 PROD( AAVB2J ) = 0.0D0 LOSS( AAVB2J ) = RXRAT( 293 ) ! AAVB2J=0.9070D+00*AOLGAJ PROD( AOLGAJ ) = 9.0700D-01 * RXRAT( 293 ) ! AAVB2J=0.9070D+00*AOLGAJ & + 9.2500D-01 * RXRAT( 294 ) ! AAVB3J=0.9250D+00*AOLGAJ & + 9.4300D-01 * RXRAT( 295 ) ! AAVB4J=0.9430D+00*AOLGAJ LOSS( AOLGAJ ) = 0.0D0 PROD( AAVB3J ) = 0.0D0 LOSS( AAVB3J ) = RXRAT( 294 ) ! AAVB3J=0.9250D+00*AOLGAJ PROD( AAVB4J ) = 0.0D0 LOSS( AAVB4J ) = RXRAT( 295 ) ! AAVB4J=0.9430D+00*AOLGAJ PROD( AISO1J ) = 0.0D0 LOSS( AISO1J ) = RXRAT( 296 ) ! AISO1J=0.5000D+00*AOLGBJ PROD( AOLGBJ ) = 5.0000D-01 * RXRAT( 296 ) ! AISO1J=0.5000D+00*AOLGBJ & + 5.0000D-01 * RXRAT( 297 ) ! AISO2J=0.5000D+00*AOLGBJ & + 1.5000D+00 * RXRAT( 298 ) ! ASQTJ=0.1500D+01*AOLGBJ LOSS( AOLGBJ ) = 0.0D0 PROD( AISO2J ) = 0.0D0 LOSS( AISO2J ) = RXRAT( 297 ) ! AISO2J=0.5000D+00*AOLGBJ PROD( ASQTJ ) = 0.0D0 LOSS( ASQTJ ) = RXRAT( 298 ) ! ASQTJ=0.1500D+01*AOLGBJ PROD( APOCI ) = 0.0D0 LOSS( APOCI ) = 0.0D0 PROD( APNCOMI ) = 1.2500D+00 * RXRAT( 299 ) ! APOCI+OH=0.1250D+... LOSS( APNCOMI ) = RXRAT( 300 ) ! APNCOMI+OH=OH PROD( APOCJ ) = 0.0D0 LOSS( APOCJ ) = 0.0D0 PROD( APNCOMJ ) = 1.2500D+00 * RXRAT( 301 ) ! APOCJ+OH=0.1250D+... LOSS( APNCOMJ ) = RXRAT( 302 ) ! APNCOMJ+OH=OH PROD( PCVOC ) = 0.0D0 LOSS( PCVOC ) = RXRAT( 303 ) ! PCVOC+OH=OH+PCSOARXN PROD( PCSOARXN ) = RXRAT( 303 ) ! PCVOC+OH=PCSOARXN+OH LOSS( PCSOARXN ) = 0.0D0 PROD( VLVPO1 ) = 3.0030D-01 * RXRAT( 305 ) ! VSVPO1+OH=0.3003D+... & + 3.8560D-01 * RXRAT( 306 ) ! VSVPO2+OH=0.3856D+... & + 2.1810D-01 * RXRAT( 307 ) ! VSVPO3+OH=0.2181D+... & + 2.4120D-01 * RXRAT( 308 ) ! VIVPO1+OH=0.2412D+... LOSS( VLVPO1 ) = 5.1430D-01 * RXRAT( 304 ) ! VLVPO1+OH=0.4857D+... PROD( VSVPO1 ) = 6.2000D-03 * RXRAT( 304 ) ! VLVPO1+OH=0.6200D-... & + 9.5000D-02 * RXRAT( 306 ) ! VSVPO2+OH=0.9500D-... & + 3.0630D-01 * RXRAT( 307 ) ! VSVPO3+OH=0.3063D+... & + 2.0890D-01 * RXRAT( 308 ) ! VIVPO1+OH=0.2089D+... LOSS( VSVPO1 ) = 7.1380D-01 * RXRAT( 305 ) ! VSVPO1+OH=0.2862D+... PROD( VSVPO2 ) = 2.5000D-03 * RXRAT( 304 ) ! VLVPO1+OH=0.2500D-... & + 4.1000D-03 * RXRAT( 305 ) ! VSVPO1+OH=0.4100D-... & + 1.5300D-02 * RXRAT( 307 ) ! VSVPO3+OH=0.1530D-... & + 3.0000D-01 * RXRAT( 308 ) ! VIVPO1+OH=0.3000D+... LOSS( VSVPO2 ) = 8.6270D-01 * RXRAT( 306 ) ! VSVPO2+OH=0.1373D+... PROD( VSVPO3 ) = 2.6000D-03 * RXRAT( 304 ) ! VLVPO1+OH=0.2600D-... & + 3.5000D-03 * RXRAT( 305 ) ! VSVPO1+OH=0.3500D-... & + 5.0000D-04 * RXRAT( 306 ) ! VSVPO2+OH=0.5000D-... LOSS( VSVPO3 ) = 8.9570D-01 * RXRAT( 307 ) ! VSVPO3+OH=0.1043D+... PROD( VIVPO1 ) = 2.3000D-03 * RXRAT( 304 ) ! VLVPO1+OH=0.2300D-... LOSS( VIVPO1 ) = RXRAT( 308 ) ! VIVPO1+OH=OH+0.2412D+... PROD( VLVOO1 ) = 2.9440D-01 * RXRAT( 304 ) ! VLVPO1+OH=0.2944D+... & + 2.2390D-01 * RXRAT( 305 ) ! VSVPO1+OH=0.2239D+... & + 2.0510D-01 * RXRAT( 306 ) ! VSVPO2+OH=0.2051D+... & + 1.8930D-01 * RXRAT( 307 ) ! VSVPO3+OH=0.1893D+... & + 2.0280D-01 * RXRAT( 308 ) ! VIVPO1+OH=0.2028D+... & + 2.8580D-01 * RXRAT( 310 ) ! VLVOO2+OH=0.2858D+... & + 3.3030D-01 * RXRAT( 311 ) ! VSVOO1+OH=0.3303D+... & + 3.4440D-01 * RXRAT( 312 ) ! VSVOO2+OH=0.3444D+... & + 3.8860D-01 * RXRAT( 313 ) ! VSVOO3+OH=0.3886D+... LOSS( VLVOO1 ) = 3.3360D-01 * RXRAT( 309 ) ! VLVOO1+OH=0.6664D+... PROD( VLVOO2 ) = 2.0210D-01 * RXRAT( 304 ) ! VLVPO1+OH=0.2021D+... & + 1.8200D-01 * RXRAT( 305 ) ! VSVPO1+OH=0.1820D+... & + 1.7640D-01 * RXRAT( 306 ) ! VSVPO2+OH=0.1764D+... & + 1.6680D-01 * RXRAT( 307 ) ! VSVPO3+OH=0.1668D+... & + 4.7100D-02 * RXRAT( 308 ) ! VIVPO1+OH=0.4710D-... & + 1.4300D-02 * RXRAT( 309 ) ! VLVOO1+OH=0.1430D-... & + 2.2720D-01 * RXRAT( 311 ) ! VSVOO1+OH=0.2272D+... & + 2.7490D-01 * RXRAT( 312 ) ! VSVOO2+OH=0.2749D+... & + 2.4210D-01 * RXRAT( 313 ) ! VSVOO3+OH=0.2421D+... LOSS( VLVOO2 ) = 6.0690D-01 * RXRAT( 310 ) ! VLVOO2+OH=0.3931D+... PROD( VSVOO2 ) = 1.9000D-03 * RXRAT( 304 ) ! VLVPO1+OH=0.1900D-... & + 1.2390D-01 * RXRAT( 309 ) ! VLVOO1+OH=0.1239D+... & + 1.0270D-01 * RXRAT( 310 ) ! VLVOO2+OH=0.1027D+... & + 7.0200D-02 * RXRAT( 311 ) ! VSVOO1+OH=0.7020D-... & + 3.8500D-02 * RXRAT( 313 ) ! VSVOO3+OH=0.3850D-... LOSS( VSVOO2 ) = 7.4230D-01 * RXRAT( 312 ) ! VSVOO2+OH=0.2577D+... PROD( VSVOO3 ) = 2.3000D-03 * RXRAT( 304 ) ! VLVPO1+OH=0.2300D-... & + 1.8310D-01 * RXRAT( 309 ) ! VLVOO1+OH=0.1831D+... & + 2.0450D-01 * RXRAT( 310 ) ! VLVOO2+OH=0.2045D+... & + 1.1160D-01 * RXRAT( 311 ) ! VSVOO1+OH=0.1116D+... & + 7.3900D-02 * RXRAT( 312 ) ! VSVOO2+OH=0.7390D-... LOSS( VSVOO3 ) = 7.3330D-01 * RXRAT( 313 ) ! VSVOO3+OH=0.2667D+... PROD( VSVOO1 ) = 1.2300D-02 * RXRAT( 309 ) ! VLVOO1+OH=0.1230D-... & + 1.3900D-02 * RXRAT( 310 ) ! VLVOO2+OH=0.1390D-... & + 4.9100D-02 * RXRAT( 312 ) ! VSVOO2+OH=0.4910D-... & + 6.4000D-02 * RXRAT( 313 ) ! VSVOO3+OH=0.6400D-... LOSS( VSVOO1 ) = 7.3930D-01 * RXRAT( 311 ) ! VSVOO1+OH=0.2607D+... PROD( FORM_PRIMARY ) = 0.0D0 LOSS( FORM_PRIMARY ) = RXRAT( 314 ) ! FORM_PRIMARY+OH=OH & + RXRAT( 315 ) ! FORM_PRIMARY+NO3=NO3 & + RXRAT( 316 ) ! FORM_PRIMARY+O=O & + RXRAT( 317 ) ! FORM_PRIMARY= & + RXRAT( 318 ) ! FORM_PRIMARY= & + RXRAT( 319 ) ! FORM_PRIMARY+CL=CL PROD( ALD2_PRIMARY ) = 0.0D0 LOSS( ALD2_PRIMARY ) = RXRAT( 320 ) ! ALD2_PRIMARY+OH=OH & + RXRAT( 321 ) ! ALD2_PRIMARY+NO3=NO3 & + RXRAT( 322 ) ! ALD2_PRIMARY+O=O & + RXRAT( 323 ) ! ALD2_PRIMARY= & + RXRAT( 324 ) ! ALD2_PRIMARY+CL=CL PROD( BUTADIENE13 ) = 0.0D0 LOSS( BUTADIENE13 ) = RXRAT( 325 ) ! BUTADIENE13+OH=OH+0.5800D+... & + RXRAT( 326 ) ! BUTADIENE13+O3=O3+0.5200D+... & + RXRAT( 327 ) ! BUTADIENE13+NO3=NO3+... & + RXRAT( 328 ) ! BUTADIENE13+CL=CL+0.5800D+... PROD( ACROLEIN ) = 5.8000D-01 * RXRAT( 325 ) ! BUTADIENE13+OH=0.5800D+... & + 5.2000D-01 * RXRAT( 326 ) ! BUTADIENE13+O3=0.5200D+... & + 4.5000D-02 * RXRAT( 327 ) ! BUTADIENE13+NO3=0.4500D-... & + 5.8000D-01 * RXRAT( 328 ) ! BUTADIENE13+CL=0.5800D+... LOSS( ACROLEIN ) = RXRAT( 334 ) ! ACROLEIN+OH=OH & + RXRAT( 335 ) ! ACROLEIN+O3=O3 & + RXRAT( 336 ) ! ACROLEIN+NO3=NO3 & + RXRAT( 337 ) ! ACROLEIN= & + RXRAT( 338 ) ! ACROLEIN+CL=CL PROD( ACRO_PRIMARY ) = 0.0D0 LOSS( ACRO_PRIMARY ) = RXRAT( 329 ) ! ACRO_PRIMARY+OH=OH & + RXRAT( 330 ) ! ACRO_PRIMARY+O3=O3 & + RXRAT( 331 ) ! ACRO_PRIMARY+NO3=NO3 & + RXRAT( 332 ) ! ACRO_PRIMARY= & + RXRAT( 333 ) ! ACRO_PRIMARY+CL=CL PROD( TOLU ) = 0.0D0 LOSS( TOLU ) = RXRAT( 339 ) ! TOLU+OH=OH & + RXRAT( 340 ) ! TOLU+CL=CL PROD( HG ) = 0.0D0 LOSS( HG ) = RXRAT( 341 ) ! HG+O3=0.5000D+00*HGIIAER+... & + RXRAT( 342 ) ! HG+CL2=HGIIGAS+CL2 & + RXRAT( 343 ) ! HG+H2O2=HGIIGAS+H2O2 & + RXRAT( 344 ) ! HG+OH=0.5000D+00*HGIIAER+... & + 5.0000D-01 * RXRAT( 345 ) ! HG+CL=0.5000D+00*HG+... PROD( HGIIAER ) = 5.0000D-01 * RXRAT( 341 ) ! HG+O3=0.5000D+00*HGIIAER+... & + 5.0000D-01 * RXRAT( 344 ) ! HG+OH=0.5000D+00*HGIIAER+... LOSS( HGIIAER ) = 0.0D0 PROD( HGIIGAS ) = 5.0000D-01 * RXRAT( 341 ) ! HG+O3=0.5000D+00*HGIIGAS+... & + RXRAT( 342 ) ! HG+CL2=HGIIGAS+CL2 & + RXRAT( 343 ) ! HG+H2O2=HGIIGAS+H2O2 & + 5.0000D-01 * RXRAT( 344 ) ! HG+OH=0.5000D+00*HGIIGAS+... & + 5.0000D-01 * RXRAT( 345 ) ! HG+CL=0.5000D+00*HGIIGAS+... LOSS( HGIIGAS ) = 0.0D0 PROD( DMS ) = 0.0D0 LOSS( DMS ) = RXRAT( 346 ) ! DMS+OH=SO2+MEO2+FORM & + RXRAT( 347 ) ! DMS+OH=0.7500D+00*SO2+... & + RXRAT( 348 ) ! DMS+NO3=SO2+HNO3+MEO2+FORM & + RXRAT( 349 ) ! DMS+CL=0.8600D+00*SO2+MEO2+... PROD( MSA ) = 2.5000D-01 * RXRAT( 347 ) ! DMS+OH=0.2500D+00*MSA+... & + 1.4000D-01 * RXRAT( 349 ) ! DMS+CL=0.1400D+00*MSA+MEO2+... LOSS( MSA ) = 0.0D0 PNEG( PAR ) = 2.5000D+00 * RXRAT( 128 ) ! KET=-0.2500D+01*PAR+... & + 2.7000D+00 * RXRAT( 133 ) ! ROR=-0.2700D+01*PAR+... & + 7.3000D-01 * RXRAT( 142 ) ! OLE+OH=-0.7300D+00*PAR+... & + 7.9000D-01 * RXRAT( 143 ) ! OLE+O3=-0.7900D+00*PAR+... & + RXRAT( 144 ) ! OLE+NO3=-PAR+0.5000D+... & + 1.2600D-01 * RXRAT( 224 ) ! XPAR=-0.1260D+00*PAR+... & + RXRAT( 240 ) ! CL+OLE=-PAR+0.3300D+... RETURN END ================================================ FILE: CCTM/src/gas/ebi_cb6r5_ae7_aq/hrrates.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE HRRATES C*********************************************************************** C C FUNCTION: To calculate rates of reactions C C PRECONDITIONS: For the CB6R5_AE7_AQ mechanism C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by EBI solver program, Jun 8, 2022 C C*********************************************************************** USE HRDATA IMPLICIT NONE C.....INCLUDES: NONE C.....ARGUMENTS: NONE C.....PARAMETERS: NONE C.....EXTERNAL FUNCTIONS: NONE C.....SAVED VARIABLES: NONE ! CHARACTER( 16 ), SAVE :: PNAME = 'HRRATES' ! Program name C.....LOCAL VARIABLES: None C*********************************************************************** C..NOTE: RXRAT commented out are not referenced by any routine ! RXRAT( 1 ) = RKI( 1 ) * YC( NO2 ) ! RXRAT( 2 ) = RKI( 2 ) * YC( O ) ! RXRAT( 3 ) = RKI( 3 ) * YC( O3 ) * YC( NO ) ! RXRAT( 4 ) = RKI( 4 ) * YC( O ) * YC( NO ) ! RXRAT( 5 ) = RKI( 5 ) * YC( O ) * YC( NO2 ) RXRAT( 6 ) = RKI( 6 ) * YC( O ) * YC( NO2 ) ! RXRAT( 7 ) = RKI( 7 ) * YC( O ) * YC( O3 ) RXRAT( 8 ) = RKI( 8 ) * YC( O3 ) RXRAT( 9 ) = RKI( 9 ) * YC( O3 ) ! RXRAT( 10 ) = RKI( 10 ) * YC( O1D ) ! RXRAT( 11 ) = RKI( 11 ) * YC( O1D ) ! RXRAT( 12 ) = RKI( 12 ) * YC( O3 ) * YC( OH ) ! RXRAT( 13 ) = RKI( 13 ) * YC( O3 ) * YC( HO2 ) ! RXRAT( 14 ) = RKI( 14 ) * YC( OH ) * YC( O ) ! RXRAT( 15 ) = RKI( 15 ) * YC( HO2 ) * YC( O ) RXRAT( 16 ) = RKI( 16 ) * YC( OH ) * YC( OH ) RXRAT( 17 ) = RKI( 17 ) * YC( OH ) * YC( OH ) ! RXRAT( 18 ) = RKI( 18 ) * YC( OH ) * YC( HO2 ) RXRAT( 19 ) = RKI( 19 ) * YC( HO2 ) * YC( HO2 ) RXRAT( 20 ) = RKI( 20 ) * YC( HO2 ) * YC( HO2 ) RXRAT( 21 ) = RKI( 21 ) * YC( H2O2 ) RXRAT( 22 ) = RKI( 22 ) * YC( H2O2 ) * YC( OH ) RXRAT( 23 ) = RKI( 23 ) * YC( H2O2 ) * YC( O ) ! RXRAT( 24 ) = RKI( 24 ) * YC( NO ) * YC( NO ) ! RXRAT( 25 ) = RKI( 25 ) * YC( HO2 ) * YC( NO ) RXRAT( 26 ) = RKI( 26 ) * YC( NO2 ) * YC( O3 ) RXRAT( 27 ) = RKI( 27 ) * YC( NO3 ) RXRAT( 28 ) = RKI( 28 ) * YC( NO3 ) RXRAT( 29 ) = RKI( 29 ) * YC( NO3 ) * YC( NO ) RXRAT( 30 ) = RKI( 30 ) * YC( NO3 ) * YC( NO2 ) RXRAT( 31 ) = RKI( 31 ) * YC( NO3 ) * YC( O ) RXRAT( 32 ) = RKI( 32 ) * YC( NO3 ) * YC( OH ) RXRAT( 33 ) = RKI( 33 ) * YC( NO3 ) * YC( HO2 ) RXRAT( 34 ) = RKI( 34 ) * YC( NO3 ) * YC( O3 ) RXRAT( 35 ) = RKI( 35 ) * YC( NO3 ) * YC( NO3 ) ! RXRAT( 36 ) = RKI( 36 ) * YC( NO3 ) * YC( NO2 ) RXRAT( 37 ) = RKI( 37 ) * YC( N2O5 ) RXRAT( 38 ) = RKI( 38 ) * YC( N2O5 ) RXRAT( 39 ) = RKI( 39 ) * YC( N2O5 ) ! RXRAT( 40 ) = RKI( 40 ) * YC( NO ) * YC( OH ) RXRAT( 41 ) = RKI( 41 ) * YC( NO ) * YC( NO2 ) RXRAT( 42 ) = RKI( 42 ) * YC( HONO ) * YC( HONO ) RXRAT( 43 ) = RKI( 43 ) * YC( HONO ) RXRAT( 44 ) = RKI( 44 ) * YC( HONO ) * YC( OH ) RXRAT( 45 ) = RKI( 45 ) * YC( NO2 ) * YC( OH ) RXRAT( 46 ) = RKI( 46 ) * YC( HNO3 ) * YC( OH ) RXRAT( 47 ) = RKI( 47 ) * YC( HNO3 ) ! RXRAT( 48 ) = RKI( 48 ) * YC( HO2 ) * YC( NO2 ) RXRAT( 49 ) = RKI( 49 ) * YC( PNA ) RXRAT( 50 ) = RKI( 50 ) * YC( PNA ) RXRAT( 51 ) = RKI( 51 ) * YC( PNA ) * YC( OH ) RXRAT( 52 ) = RKI( 52 ) * YC( SO2 ) * YC( OH ) RXRAT( 53 ) = RKI( 53 ) * YC( C2O3 ) * YC( NO ) ! RXRAT( 54 ) = RKI( 54 ) * YC( C2O3 ) * YC( NO2 ) RXRAT( 55 ) = RKI( 55 ) * YC( PAN ) RXRAT( 56 ) = RKI( 56 ) * YC( PAN ) RXRAT( 57 ) = RKI( 57 ) * YC( C2O3 ) * YC( HO2 ) RXRAT( 58 ) = RKI( 58 ) * YC( C2O3 ) * YC( RO2 ) RXRAT( 59 ) = RKI( 59 ) * YC( C2O3 ) * YC( C2O3 ) RXRAT( 60 ) = RKI( 60 ) * YC( C2O3 ) * YC( CXO3 ) RXRAT( 61 ) = RKI( 61 ) * YC( CXO3 ) * YC( NO ) RXRAT( 62 ) = RKI( 62 ) * YC( CXO3 ) * YC( NO2 ) RXRAT( 63 ) = RKI( 63 ) * YC( PANX ) RXRAT( 64 ) = RKI( 64 ) * YC( PANX ) RXRAT( 65 ) = RKI( 65 ) * YC( CXO3 ) * YC( HO2 ) RXRAT( 66 ) = RKI( 66 ) * YC( CXO3 ) * YC( RO2 ) RXRAT( 67 ) = RKI( 67 ) * YC( CXO3 ) * YC( CXO3 ) RXRAT( 68 ) = RKI( 68 ) * YC( RO2 ) * YC( NO ) RXRAT( 69 ) = RKI( 69 ) * YC( RO2 ) * YC( HO2 ) RXRAT( 70 ) = RKI( 70 ) * YC( RO2 ) * YC( RO2 ) RXRAT( 71 ) = RKI( 71 ) * YC( MEO2 ) * YC( NO ) RXRAT( 72 ) = RKI( 72 ) * YC( MEO2 ) * YC( HO2 ) RXRAT( 73 ) = RKI( 73 ) * YC( MEO2 ) * YC( C2O3 ) RXRAT( 74 ) = RKI( 74 ) * YC( MEO2 ) * YC( RO2 ) RXRAT( 75 ) = RKI( 75 ) * YC( XO2H ) * YC( NO ) RXRAT( 76 ) = RKI( 76 ) * YC( XO2H ) * YC( HO2 ) RXRAT( 77 ) = RKI( 77 ) * YC( XO2H ) * YC( C2O3 ) RXRAT( 78 ) = RKI( 78 ) * YC( XO2H ) * YC( RO2 ) RXRAT( 79 ) = RKI( 79 ) * YC( XO2 ) * YC( NO ) RXRAT( 80 ) = RKI( 80 ) * YC( XO2 ) * YC( HO2 ) RXRAT( 81 ) = RKI( 81 ) * YC( XO2 ) * YC( C2O3 ) RXRAT( 82 ) = RKI( 82 ) * YC( XO2 ) * YC( RO2 ) RXRAT( 83 ) = RKI( 83 ) * YC( XO2N ) * YC( NO ) RXRAT( 84 ) = RKI( 84 ) * YC( XO2N ) * YC( HO2 ) RXRAT( 85 ) = RKI( 85 ) * YC( XO2N ) * YC( C2O3 ) RXRAT( 86 ) = RKI( 86 ) * YC( XO2N ) * YC( RO2 ) RXRAT( 87 ) = RKI( 87 ) * YC( MEPX ) * YC( OH ) RXRAT( 88 ) = RKI( 88 ) * YC( MEPX ) RXRAT( 89 ) = RKI( 89 ) * YC( ROOH ) * YC( OH ) RXRAT( 90 ) = RKI( 90 ) * YC( ROOH ) RXRAT( 91 ) = RKI( 91 ) * YC( NTR1 ) * YC( OH ) RXRAT( 92 ) = RKI( 92 ) * YC( NTR1 ) RXRAT( 93 ) = RKI( 93 ) * YC( FACD ) * YC( OH ) RXRAT( 94 ) = RKI( 94 ) * YC( AACD ) * YC( OH ) RXRAT( 95 ) = RKI( 95 ) * YC( PACD ) * YC( OH ) RXRAT( 96 ) = RKI( 96 ) * YC( FORM ) * YC( OH ) RXRAT( 97 ) = RKI( 97 ) * YC( FORM ) RXRAT( 98 ) = RKI( 98 ) * YC( FORM ) RXRAT( 99 ) = RKI( 99 ) * YC( FORM ) * YC( O ) RXRAT( 100 ) = RKI( 100 ) * YC( FORM ) * YC( NO3 ) RXRAT( 101 ) = RKI( 101 ) * YC( FORM ) * YC( HO2 ) RXRAT( 102 ) = RKI( 102 ) * YC( HCO3 ) RXRAT( 103 ) = RKI( 103 ) * YC( HCO3 ) * YC( NO ) RXRAT( 104 ) = RKI( 104 ) * YC( HCO3 ) * YC( HO2 ) RXRAT( 105 ) = RKI( 105 ) * YC( ALD2 ) * YC( O ) RXRAT( 106 ) = RKI( 106 ) * YC( ALD2 ) * YC( OH ) RXRAT( 107 ) = RKI( 107 ) * YC( ALD2 ) * YC( NO3 ) RXRAT( 108 ) = RKI( 108 ) * YC( ALD2 ) RXRAT( 109 ) = RKI( 109 ) * YC( ALDX ) * YC( O ) RXRAT( 110 ) = RKI( 110 ) * YC( ALDX ) * YC( OH ) RXRAT( 111 ) = RKI( 111 ) * YC( ALDX ) * YC( NO3 ) RXRAT( 112 ) = RKI( 112 ) * YC( ALDX ) RXRAT( 113 ) = RKI( 113 ) * YC( GLYD ) * YC( OH ) RXRAT( 114 ) = RKI( 114 ) * YC( GLYD ) RXRAT( 115 ) = RKI( 115 ) * YC( GLYD ) * YC( NO3 ) RXRAT( 116 ) = RKI( 116 ) * YC( GLY ) * YC( OH ) RXRAT( 117 ) = RKI( 117 ) * YC( GLY ) RXRAT( 118 ) = RKI( 118 ) * YC( GLY ) * YC( NO3 ) RXRAT( 119 ) = RKI( 119 ) * YC( MGLY ) RXRAT( 120 ) = RKI( 120 ) * YC( MGLY ) * YC( NO3 ) RXRAT( 121 ) = RKI( 121 ) * YC( MGLY ) * YC( OH ) ! RXRAT( 122 ) = RKI( 122 ) * YC( OH ) RXRAT( 123 ) = RKI( 123 ) * YC( CO ) * YC( OH ) RXRAT( 124 ) = RKI( 124 ) * YC( OH ) RXRAT( 125 ) = RKI( 125 ) * YC( ETHA ) * YC( OH ) RXRAT( 126 ) = RKI( 126 ) * YC( MEOH ) * YC( OH ) RXRAT( 127 ) = RKI( 127 ) * YC( ETOH ) * YC( OH ) RXRAT( 128 ) = RKI( 128 ) * YC( KET ) RXRAT( 129 ) = RKI( 129 ) * YC( ACET ) RXRAT( 130 ) = RKI( 130 ) * YC( ACET ) * YC( OH ) RXRAT( 131 ) = RKI( 131 ) * YC( PRPA ) * YC( OH ) RXRAT( 132 ) = RKI( 132 ) * YC( PAR ) * YC( OH ) RXRAT( 133 ) = RKI( 133 ) * YC( ROR ) RXRAT( 134 ) = RKI( 134 ) * YC( ROR ) RXRAT( 135 ) = RKI( 135 ) * YC( ROR ) * YC( NO2 ) RXRAT( 136 ) = RKI( 136 ) * YC( ETHY ) * YC( OH ) RXRAT( 137 ) = RKI( 137 ) * YC( ETH ) * YC( O ) RXRAT( 138 ) = RKI( 138 ) * YC( ETH ) * YC( OH ) RXRAT( 139 ) = RKI( 139 ) * YC( ETH ) * YC( O3 ) RXRAT( 140 ) = RKI( 140 ) * YC( ETH ) * YC( NO3 ) RXRAT( 141 ) = RKI( 141 ) * YC( OLE ) * YC( O ) RXRAT( 142 ) = RKI( 142 ) * YC( OLE ) * YC( OH ) RXRAT( 143 ) = RKI( 143 ) * YC( OLE ) * YC( O3 ) RXRAT( 144 ) = RKI( 144 ) * YC( OLE ) * YC( NO3 ) RXRAT( 145 ) = RKI( 145 ) * YC( IOLE ) * YC( O ) RXRAT( 146 ) = RKI( 146 ) * YC( IOLE ) * YC( OH ) RXRAT( 147 ) = RKI( 147 ) * YC( IOLE ) * YC( O3 ) RXRAT( 148 ) = RKI( 148 ) * YC( IOLE ) * YC( NO3 ) RXRAT( 149 ) = RKI( 149 ) * YC( ISOP ) * YC( OH ) RXRAT( 150 ) = RKI( 150 ) * YC( ISOP ) * YC( O ) RXRAT( 151 ) = RKI( 151 ) * YC( ISO2 ) * YC( NO ) RXRAT( 152 ) = RKI( 152 ) * YC( ISO2 ) * YC( HO2 ) RXRAT( 153 ) = RKI( 153 ) * YC( ISO2 ) * YC( C2O3 ) RXRAT( 154 ) = RKI( 154 ) * YC( ISO2 ) * YC( RO2 ) RXRAT( 155 ) = RKI( 155 ) * YC( ISO2 ) RXRAT( 156 ) = RKI( 156 ) * YC( ISOP ) * YC( O3 ) RXRAT( 157 ) = RKI( 157 ) * YC( ISOP ) * YC( NO3 ) RXRAT( 158 ) = RKI( 158 ) * YC( ISPD ) * YC( OH ) RXRAT( 159 ) = RKI( 159 ) * YC( ISPD ) * YC( O3 ) RXRAT( 160 ) = RKI( 160 ) * YC( ISPD ) * YC( NO3 ) RXRAT( 161 ) = RKI( 161 ) * YC( ISPD ) RXRAT( 162 ) = RKI( 162 ) * YC( ISPX ) * YC( OH ) RXRAT( 163 ) = RKI( 163 ) * YC( HPLD ) RXRAT( 164 ) = RKI( 164 ) * YC( HPLD ) * YC( NO3 ) RXRAT( 165 ) = RKI( 165 ) * YC( EPOX ) * YC( OH ) RXRAT( 166 ) = RKI( 166 ) * YC( EPX2 ) * YC( HO2 ) RXRAT( 167 ) = RKI( 167 ) * YC( EPX2 ) * YC( NO ) RXRAT( 168 ) = RKI( 168 ) * YC( EPX2 ) * YC( C2O3 ) RXRAT( 169 ) = RKI( 169 ) * YC( EPX2 ) * YC( RO2 ) RXRAT( 170 ) = RKI( 170 ) * YC( INTR ) * YC( OH ) RXRAT( 171 ) = RKI( 171 ) * YC( TERP ) * YC( O ) RXRAT( 172 ) = RKI( 172 ) * YC( TERP ) * YC( OH ) RXRAT( 173 ) = RKI( 173 ) * YC( TERP ) * YC( O3 ) RXRAT( 174 ) = RKI( 174 ) * YC( TERP ) * YC( NO3 ) RXRAT( 175 ) = RKI( 175 ) * YC( APIN ) * YC( O ) RXRAT( 176 ) = RKI( 176 ) * YC( APIN ) * YC( OH ) RXRAT( 177 ) = RKI( 177 ) * YC( APIN ) * YC( O3 ) RXRAT( 178 ) = RKI( 178 ) * YC( APIN ) * YC( NO3 ) RXRAT( 179 ) = RKI( 179 ) * YC( BENZENE ) * YC( OH ) RXRAT( 180 ) = RKI( 180 ) * YC( BZO2 ) * YC( NO ) RXRAT( 181 ) = RKI( 181 ) * YC( BZO2 ) * YC( C2O3 ) RXRAT( 182 ) = RKI( 182 ) * YC( BZO2 ) * YC( HO2 ) RXRAT( 183 ) = RKI( 183 ) * YC( BZO2 ) * YC( RO2 ) RXRAT( 184 ) = RKI( 184 ) * YC( TOL ) * YC( OH ) RXRAT( 185 ) = RKI( 185 ) * YC( TO2 ) * YC( NO ) RXRAT( 186 ) = RKI( 186 ) * YC( TO2 ) * YC( C2O3 ) RXRAT( 187 ) = RKI( 187 ) * YC( TO2 ) * YC( HO2 ) RXRAT( 188 ) = RKI( 188 ) * YC( TO2 ) * YC( RO2 ) RXRAT( 189 ) = RKI( 189 ) * YC( XYLMN ) * YC( OH ) RXRAT( 190 ) = RKI( 190 ) * YC( NAPH ) * YC( OH ) RXRAT( 191 ) = RKI( 191 ) * YC( XLO2 ) * YC( NO ) RXRAT( 192 ) = RKI( 192 ) * YC( XLO2 ) * YC( HO2 ) RXRAT( 193 ) = RKI( 193 ) * YC( XLO2 ) * YC( C2O3 ) RXRAT( 194 ) = RKI( 194 ) * YC( XLO2 ) * YC( RO2 ) RXRAT( 195 ) = RKI( 195 ) * YC( CRES ) * YC( OH ) RXRAT( 196 ) = RKI( 196 ) * YC( CRES ) * YC( NO3 ) RXRAT( 197 ) = RKI( 197 ) * YC( CRO ) * YC( NO2 ) RXRAT( 198 ) = RKI( 198 ) * YC( CRO ) * YC( HO2 ) RXRAT( 199 ) = RKI( 199 ) * YC( CRON ) * YC( OH ) RXRAT( 200 ) = RKI( 200 ) * YC( CRON ) * YC( NO3 ) RXRAT( 201 ) = RKI( 201 ) * YC( CRON ) RXRAT( 202 ) = RKI( 202 ) * YC( XOPN ) RXRAT( 203 ) = RKI( 203 ) * YC( XOPN ) * YC( OH ) RXRAT( 204 ) = RKI( 204 ) * YC( XOPN ) * YC( O3 ) RXRAT( 205 ) = RKI( 205 ) * YC( XOPN ) * YC( NO3 ) RXRAT( 206 ) = RKI( 206 ) * YC( OPEN ) RXRAT( 207 ) = RKI( 207 ) * YC( OPEN ) * YC( OH ) RXRAT( 208 ) = RKI( 208 ) * YC( OPEN ) * YC( O3 ) RXRAT( 209 ) = RKI( 209 ) * YC( OPEN ) * YC( NO3 ) RXRAT( 210 ) = RKI( 210 ) * YC( CAT1 ) * YC( OH ) RXRAT( 211 ) = RKI( 211 ) * YC( CAT1 ) * YC( NO3 ) RXRAT( 212 ) = RKI( 212 ) * YC( OPO3 ) * YC( NO ) RXRAT( 213 ) = RKI( 213 ) * YC( OPO3 ) * YC( NO2 ) RXRAT( 214 ) = RKI( 214 ) * YC( OPAN ) RXRAT( 215 ) = RKI( 215 ) * YC( OPO3 ) * YC( HO2 ) RXRAT( 216 ) = RKI( 216 ) * YC( OPO3 ) * YC( C2O3 ) RXRAT( 217 ) = RKI( 217 ) * YC( OPO3 ) * YC( RO2 ) RXRAT( 218 ) = RKI( 218 ) * YC( OPAN ) * YC( OH ) RXRAT( 219 ) = RKI( 219 ) * YC( PANX ) * YC( OH ) RXRAT( 220 ) = RKI( 220 ) * YC( ECH4 ) * YC( OH ) RXRAT( 221 ) = RKI( 221 ) * YC( XPRP ) RXRAT( 222 ) = RKI( 222 ) * YC( XPRP ) RXRAT( 223 ) = RKI( 223 ) * YC( XPAR ) RXRAT( 224 ) = RKI( 224 ) * YC( XPAR ) RXRAT( 225 ) = RKI( 225 ) * YC( NO2 ) * YC( OH ) RXRAT( 226 ) = RKI( 226 ) * YC( CL2 ) RXRAT( 227 ) = RKI( 227 ) * YC( HOCL ) RXRAT( 228 ) = RKI( 228 ) * YC( CL ) * YC( O3 ) RXRAT( 229 ) = RKI( 229 ) * YC( CLO ) * YC( CLO ) RXRAT( 230 ) = RKI( 230 ) * YC( CLO ) * YC( NO ) RXRAT( 231 ) = RKI( 231 ) * YC( CLO ) * YC( HO2 ) RXRAT( 232 ) = RKI( 232 ) * YC( CLO ) * YC( MEO2 ) RXRAT( 233 ) = RKI( 233 ) * YC( OH ) * YC( FMCL ) RXRAT( 234 ) = RKI( 234 ) * YC( FMCL ) RXRAT( 235 ) = RKI( 235 ) * YC( CL ) RXRAT( 236 ) = RKI( 236 ) * YC( CL ) * YC( PAR ) RXRAT( 237 ) = RKI( 237 ) * YC( CL ) * YC( PRPA ) RXRAT( 238 ) = RKI( 238 ) * YC( CL ) * YC( ETHA ) RXRAT( 239 ) = RKI( 239 ) * YC( CL ) * YC( ETH ) RXRAT( 240 ) = RKI( 240 ) * YC( CL ) * YC( OLE ) RXRAT( 241 ) = RKI( 241 ) * YC( CL ) * YC( IOLE ) RXRAT( 242 ) = RKI( 242 ) * YC( CL ) * YC( ISOP ) RXRAT( 243 ) = RKI( 243 ) * YC( CL ) * YC( FORM ) RXRAT( 244 ) = RKI( 244 ) * YC( CL ) * YC( ALD2 ) RXRAT( 245 ) = RKI( 245 ) * YC( CL ) * YC( ALDX ) RXRAT( 246 ) = RKI( 246 ) * YC( CL ) * YC( MEOH ) RXRAT( 247 ) = RKI( 247 ) * YC( CL ) * YC( ETOH ) RXRAT( 248 ) = RKI( 248 ) * YC( HCL ) * YC( OH ) RXRAT( 249 ) = RKI( 249 ) * YC( CL ) * YC( TOL ) RXRAT( 250 ) = RKI( 250 ) * YC( CL ) * YC( XYLMN ) RXRAT( 251 ) = RKI( 251 ) * YC( CL ) * YC( NAPH ) RXRAT( 252 ) = RKI( 252 ) * YC( CLNO2 ) RXRAT( 253 ) = RKI( 253 ) * YC( CLO ) * YC( NO2 ) RXRAT( 254 ) = RKI( 254 ) * YC( CLNO3 ) RXRAT( 255 ) = RKI( 255 ) * YC( CLNO3 ) RXRAT( 256 ) = RKI( 256 ) * YC( CLNO3 ) RXRAT( 257 ) = RKI( 257 ) * YC( CLNO3 ) RXRAT( 258 ) = RKI( 258 ) * YC( TOLRO2 ) * YC( NO ) RXRAT( 259 ) = RKI( 259 ) * YC( TOLRO2 ) * YC( HO2 ) RXRAT( 260 ) = RKI( 260 ) * YC( XYLRO2 ) * YC( NO ) RXRAT( 261 ) = RKI( 261 ) * YC( XYLRO2 ) * YC( HO2 ) RXRAT( 262 ) = RKI( 262 ) * YC( BENZRO2 ) * YC( NO ) RXRAT( 263 ) = RKI( 263 ) * YC( BENZRO2 ) * YC( HO2 ) RXRAT( 264 ) = RKI( 264 ) * YC( SESQ ) * YC( O3 ) RXRAT( 265 ) = RKI( 265 ) * YC( SESQ ) * YC( OH ) RXRAT( 266 ) = RKI( 266 ) * YC( SESQ ) * YC( NO3 ) RXRAT( 267 ) = RKI( 267 ) * YC( PAHRO2 ) * YC( NO ) RXRAT( 268 ) = RKI( 268 ) * YC( PAHRO2 ) * YC( HO2 ) RXRAT( 269 ) = RKI( 269 ) * YC( SOAALK ) * YC( OH ) RXRAT( 270 ) = RKI( 270 ) * YC( NTR2 ) RXRAT( 271 ) = RKI( 271 ) * YC( N2O5 ) RXRAT( 272 ) = RKI( 272 ) * YC( N2O5 ) RXRAT( 273 ) = RKI( 273 ) * YC( H2NO3PIJ ) RXRAT( 274 ) = RKI( 274 ) * YC( H2NO3PK ) RXRAT( 275 ) = RKI( 275 ) * YC( H2NO3PIJ ) * YC( ACLI ) RXRAT( 276 ) = RKI( 276 ) * YC( H2NO3PIJ ) * YC( ACLJ ) RXRAT( 277 ) = RKI( 277 ) * YC( H2NO3PK ) * YC( ACLK ) RXRAT( 278 ) = RKI( 278 ) * YC( NO2 ) ! RXRAT( 279 ) = RKI( 279 ) * YC( O3 ) RXRAT( 280 ) = RKI( 280 ) * YC( EPOX ) RXRAT( 281 ) = RKI( 281 ) * YC( IEPOXP ) * YC( ASO4J ) RXRAT( 282 ) = RKI( 282 ) * YC( IEPOXP ) RXRAT( 283 ) = RKI( 283 ) * YC( GLY ) RXRAT( 284 ) = RKI( 284 ) * YC( MGLY ) RXRAT( 285 ) = RKI( 285 ) * YC( TERPNRO2 ) * YC( NO ) RXRAT( 286 ) = RKI( 286 ) * YC( TERPNRO2 ) * YC( HO2 ) RXRAT( 287 ) = RKI( 287 ) * YC( TERPNRO2 ) * YC( NO3 ) RXRAT( 288 ) = RKI( 288 ) * YC( TERPNRO2 ) * YC( RO2 ) RXRAT( 289 ) = RKI( 289 ) * YC( MTNO3 ) * YC( CL ) RXRAT( 290 ) = RKI( 290 ) * YC( MTNO3 ) * YC( OH ) RXRAT( 291 ) = RKI( 291 ) * YC( MTNO3 ) RXRAT( 292 ) = RKI( 292 ) * YC( AMTNO3J ) RXRAT( 293 ) = RKI( 293 ) * YC( AAVB2J ) RXRAT( 294 ) = RKI( 294 ) * YC( AAVB3J ) RXRAT( 295 ) = RKI( 295 ) * YC( AAVB4J ) RXRAT( 296 ) = RKI( 296 ) * YC( AISO1J ) RXRAT( 297 ) = RKI( 297 ) * YC( AISO2J ) RXRAT( 298 ) = RKI( 298 ) * YC( ASQTJ ) RXRAT( 299 ) = RKI( 299 ) * YC( APOCI ) * YC( OH ) RXRAT( 300 ) = RKI( 300 ) * YC( APNCOMI ) * YC( OH ) RXRAT( 301 ) = RKI( 301 ) * YC( APOCJ ) * YC( OH ) RXRAT( 302 ) = RKI( 302 ) * YC( APNCOMJ ) * YC( OH ) RXRAT( 303 ) = RKI( 303 ) * YC( PCVOC ) * YC( OH ) RXRAT( 304 ) = RKI( 304 ) * YC( VLVPO1 ) * YC( OH ) RXRAT( 305 ) = RKI( 305 ) * YC( VSVPO1 ) * YC( OH ) RXRAT( 306 ) = RKI( 306 ) * YC( VSVPO2 ) * YC( OH ) RXRAT( 307 ) = RKI( 307 ) * YC( VSVPO3 ) * YC( OH ) RXRAT( 308 ) = RKI( 308 ) * YC( VIVPO1 ) * YC( OH ) RXRAT( 309 ) = RKI( 309 ) * YC( VLVOO1 ) * YC( OH ) RXRAT( 310 ) = RKI( 310 ) * YC( VLVOO2 ) * YC( OH ) RXRAT( 311 ) = RKI( 311 ) * YC( VSVOO1 ) * YC( OH ) RXRAT( 312 ) = RKI( 312 ) * YC( VSVOO2 ) * YC( OH ) RXRAT( 313 ) = RKI( 313 ) * YC( VSVOO3 ) * YC( OH ) RXRAT( 314 ) = RKI( 314 ) * YC( FORM_PRIMARY ) * YC( OH ) RXRAT( 315 ) = RKI( 315 ) * YC( FORM_PRIMARY ) * YC( NO3 ) RXRAT( 316 ) = RKI( 316 ) * YC( FORM_PRIMARY ) * YC( O ) RXRAT( 317 ) = RKI( 317 ) * YC( FORM_PRIMARY ) RXRAT( 318 ) = RKI( 318 ) * YC( FORM_PRIMARY ) RXRAT( 319 ) = RKI( 319 ) * YC( FORM_PRIMARY ) * YC( CL ) RXRAT( 320 ) = RKI( 320 ) * YC( ALD2_PRIMARY ) * YC( OH ) RXRAT( 321 ) = RKI( 321 ) * YC( ALD2_PRIMARY ) * YC( NO3 ) RXRAT( 322 ) = RKI( 322 ) * YC( ALD2_PRIMARY ) * YC( O ) RXRAT( 323 ) = RKI( 323 ) * YC( ALD2_PRIMARY ) RXRAT( 324 ) = RKI( 324 ) * YC( ALD2_PRIMARY ) * YC( CL ) RXRAT( 325 ) = RKI( 325 ) * YC( BUTADIENE13 ) * YC( OH ) RXRAT( 326 ) = RKI( 326 ) * YC( BUTADIENE13 ) * YC( O3 ) RXRAT( 327 ) = RKI( 327 ) * YC( BUTADIENE13 ) * YC( NO3 ) RXRAT( 328 ) = RKI( 328 ) * YC( BUTADIENE13 ) * YC( CL ) RXRAT( 329 ) = RKI( 329 ) * YC( ACRO_PRIMARY ) * YC( OH ) RXRAT( 330 ) = RKI( 330 ) * YC( ACRO_PRIMARY ) * YC( O3 ) RXRAT( 331 ) = RKI( 331 ) * YC( ACRO_PRIMARY ) * YC( NO3 ) RXRAT( 332 ) = RKI( 332 ) * YC( ACRO_PRIMARY ) RXRAT( 333 ) = RKI( 333 ) * YC( ACRO_PRIMARY ) * YC( CL ) RXRAT( 334 ) = RKI( 334 ) * YC( ACROLEIN ) * YC( OH ) RXRAT( 335 ) = RKI( 335 ) * YC( ACROLEIN ) * YC( O3 ) RXRAT( 336 ) = RKI( 336 ) * YC( ACROLEIN ) * YC( NO3 ) RXRAT( 337 ) = RKI( 337 ) * YC( ACROLEIN ) RXRAT( 338 ) = RKI( 338 ) * YC( ACROLEIN ) * YC( CL ) RXRAT( 339 ) = RKI( 339 ) * YC( TOLU ) * YC( OH ) RXRAT( 340 ) = RKI( 340 ) * YC( TOLU ) * YC( CL ) RXRAT( 341 ) = RKI( 341 ) * YC( HG ) * YC( O3 ) RXRAT( 342 ) = RKI( 342 ) * YC( HG ) * YC( CL2 ) RXRAT( 343 ) = RKI( 343 ) * YC( HG ) * YC( H2O2 ) RXRAT( 344 ) = RKI( 344 ) * YC( HG ) * YC( OH ) RXRAT( 345 ) = RKI( 345 ) * YC( HG ) * YC( CL ) RXRAT( 346 ) = RKI( 346 ) * YC( DMS ) * YC( OH ) RXRAT( 347 ) = RKI( 347 ) * YC( DMS ) * YC( OH ) RXRAT( 348 ) = RKI( 348 ) * YC( DMS ) * YC( NO3 ) RXRAT( 349 ) = RKI( 349 ) * YC( DMS ) * YC( CL ) RETURN END ================================================ FILE: CCTM/src/gas/ebi_cb6r5_ae7_aq/hrsolver.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE HRSOLVER( JDATE, JTIME, C, R, L ) C********************************************************************** C C FUNCTION: EBI solver C C PRECONDITIONS: For the CB6R5_AE7_AQ mechanism C C KEY SUBROUTINES/FUNCTIONS CALLED: HRRATES, HRG1, HRG2, HRG3 C HRG4, HRPRODLOSS C DEGRADE C C REVISION HISTORY: Created by EBI solver program, Jun 8, 2022 C 21 Jun 10 J.Young: convert for Namelist redesign C 18 Jul 14 B.Hutzell: revised 1) to use the RXNS_DATA and RXNS_FUNCTION C modules instead of include files and 2) to use C real(8) variables C********************************************************************** USE RUNTIME_VARS USE UTILIO_DEFN USE RXNS_DATA USE HRDATA USE PA_IRR_MODULE #ifdef isam USE SA_IRR_DEFN #endif #ifdef sens USE DDM3D_CHEM, ONLY: YCDDM USE CGRID_SPCS, ONLY: GC_SPC #endif USE DEGRADE_ROUTINES, ONLY : DEGRADE, SA_DEGRADE_STEP IMPLICIT NONE C..INCLUDES: C..ARGUMENTS: INTEGER, INTENT( IN ) :: JDATE ! Current date (YYYYDDD) INTEGER, INTENT( IN ) :: JTIME ! Current time (HHMMSS) INTEGER, INTENT( IN ) :: C, R, L ! Cell col, row, lev C..PARAMETERS: INTEGER, PARAMETER :: MXBKUPS = 5 ! Max no. of back-ups allowed INTEGER, PARAMETER :: STAT = 1 ! Status code REAL( 8 ), PARAMETER :: DTMIN = 1.0D-08 ! Smallest time step allowed, min REAL( 8 ), PARAMETER :: EPSLON = 1.0D-30 ! Small number REAL( 8 ), PARAMETER :: MAXPRED = 1.0D+03 ! Upper limit on predicted conc REAL( 8 ), PARAMETER :: ZERO = 1.0D-40 ! effective zero REAL( 8 ), PARAMETER :: FLOOR = 1.0D-08 ! Min conc for RTOL C..EXTERNAL FUNCTIONS: C..SAVED LOCAL VARIABLES: CHARACTER( 16 ), SAVE :: PNAME = 'HRSOLVER' ! Program name LOGICAL, SAVE :: LFIRST = .TRUE. ! Flag for first call LOGICAL, ALLOCATABLE, SAVE :: LEBISPFL( : ) ! Convergence Error Flag for EBI species LOGICAL, ALLOCATABLE, SAVE :: MAXCONC ( : ) ! MAXCONC ERROR Flag for EBI species LOGICAL, ALLOCATABLE, SAVE :: NOTMAX ( : ) ! Initial concentration not greater than MAXPRED REAL( 8 ), ALLOCATABLE, SAVE :: RERROR ( : ) ! Relative Error REAL( 8 ), ALLOCATABLE, SAVE :: AERROR ( : ) ! Absolute Error C..SCRATCH LOCAL VARIABLES: CHARACTER( 132 ) :: MSG ! Message text INTEGER CELLNO ! Cell no. fo debug output INTEGER ITER ! Loop index for Backward Euler iterations INTEGER S ! Loop index for species INTEGER SP ! Imbedded loop index for species INTEGER NEBI ! Loop index for time steps INTEGER NINR ! No. of inner time steps #ifdef hrdebug INTEGER N ! Loop index #endif INTEGER M ! species index INTEGER EBI ! Loop index INTEGER NBKUPS ! No. of times time step reduced INTEGER ERR ! Allocate error flag LOGICAL LEBI_CONV ! Flag for EBI convergence LOGICAL MXFL ! hit MAXPRED flag REAL( 8 ) DTC ! Time step to take REAL( 8 ) DTG ! Time step in degrade routines, sec REAL( 8 ) FXDLOSS ! Total loss due to negative stoichiometry REAL( 8 ) VARLOSS ! Loss excluding negative stoichiometry #ifdef hrdebug CHARACTER( 8 ) :: NOTE ! Convergence fail note INTEGER COL ! Column to generate deboug output for INTEGER ROW ! Row to generate deboug output for INTEGER LEV ! Level to generate deboug output for INTEGER DBGOUT ! Output unit for debu outpt LOGICAL LDEBUG ! Debug output flag LOGICAL, SAVE :: LOPEN = .FALSE. #endif C********************************************************************** IF( LFIRST ) THEN LFIRST = .FALSE. ALLOCATE ( LEBISPFL( NUMB_MECH_SPC ), STAT = ERR ) IF ( ERR .NE. 0 ) THEN MSG = 'Error allocating LEBISPFL' CALL M3EXIT( PNAME, JDATE, JTIME, MSG, XSTAT1 ) END IF ALLOCATE ( MAXCONC( NUMB_MECH_SPC ), STAT = ERR ) IF ( ERR .NE. 0 ) THEN MSG = 'Error allocating MAXCONC' CALL M3EXIT( PNAME, JDATE, JTIME, MSG, XSTAT1 ) END IF ALLOCATE ( NOTMAX( NUMB_MECH_SPC ), STAT = ERR ) IF ( ERR .NE. 0 ) THEN MSG = 'Error allocating NOTMAX' CALL M3EXIT( PNAME, JDATE, JTIME, MSG, XSTAT1 ) END IF ALLOCATE ( RERROR( NUMB_MECH_SPC ), STAT = ERR ) IF ( ERR .NE. 0 ) THEN MSG = 'Error allocating ERROR' CALL M3EXIT( PNAME, JDATE, JTIME, MSG, XSTAT1 ) END IF ALLOCATE ( AERROR( NUMB_MECH_SPC ), STAT = ERR ) IF ( ERR .NE. 0 ) THEN MSG = 'Error allocating AERROR' CALL M3EXIT( PNAME, JDATE, JTIME, MSG, XSTAT1 ) END IF END IF #ifdef sens YCDDM = 0.0D0 #endif c++++++++++++++++++++++++Debug section++++++++++++++++++++++++++++++++++ #ifdef hrdebug COL = 0 ROW = 0 LEV = 0 IF( C .EQ. COL .AND. R .EQ. ROW .AND. L .EQ. LEV ) THEN c IF( JTIME .EQ. 160000 ) THEN LDEBUG = .TRUE. ELSE LDEBUG = .FALSE. END IF IF( LDEBUG ) THEN IF( .NOT. LOPEN ) THEN DBGOUT = JUNIT() OPEN( UNIT = DBGOUT, FILE = 'debug.out' ) LOPEN = .TRUE. END IF WRITE( DBGOUT, '( A, 2I4, I3, 1X, I7, 1X, I6 ) ' ) & 'Debug output for col/row/lev/date/time:', & C, R, L, JDATE, JTIME WRITE( DBGOUT, '( A, F7.2) ' ) & 'EBI_TMSTEP = ', EBI_TMSTEP WRITE( DBGOUT, '( A )' ) 'Starting concs and rate constants' DO N = 1, NUMB_MECH_SPC WRITE( DBGOUT, '( A, I3, 1X, A, 1X, 1PD13.5 )' ) & 'SP ',N, CHEMISTRY_SPC( N ), YC( N ) END DO DO N = 1, N_RXNS WRITE( DBGOUT, '( A, I3, 1X, 1PD13.5 )' ) & 'RKI ', N, RKI( N ) END DO END IF #endif c++++++++++++++++++++++++Debug section++++++++++++++++++++++++++++++++++ DTC = EBI_TMSTEP N_EBI_IT = 0 NBKUPS = 0 N_INR_STEPS = 1 NEBI = 1 LEBI_CONV = .TRUE. #ifdef isam UPDATE_SOLD = .FALSE. UPDATE_PROBABILITIES = .TRUE. CALL SA_IRR_UNBLOCKED ( .TRUE., RKI, YC, DTC ) #endif DO S = 1, NUMB_MECH_SPC IF( YC( S ) .LE. MAXPRED )THEN NOTMAX( S ) = .TRUE. ELSE NOTMAX( S ) = .FALSE. WRITE(LOGDEV,91000)C, R, L, CHEMISTRY_SPC(S), YC(S) END IF END DO ! Initial PA_IRR IF( CALL_IRR ) CALL PA_IRR ( .TRUE., RKI, YC, DTC ) SA_DEGRADE_STEP = 0 TSTEP_EBI: DO ! EBI time-step loop SUBSTEP_EBI: DO NINR = 1, N_INR_STEPS ! time substeps loop ! first attempt is sub time-step equals EBI time-step IF( LEBI_CONV ) YC0 = YC ! Set ICs for EBI iterations ITER_SUBSTEP: DO ITER = 1, NEBITER ! iteration loop solving for sub time-step N_EBI_IT = N_EBI_IT + 1 CALL HRRATES c++++++++++++++++++++++++Debug section++++++++++++++++++++++++++++++++++ #ifdef hrdebug IF( LDEBUG ) THEN WRITE( DBGOUT, '( A, I5 )' ) 'ITER NO ', ITER WRITE( DBGOUT, '( A, F12.5 )' ) & ' DTC=', DTC IF( ITER .EQ. 1 ) THEN WRITE( DBGOUT, '( A )' ) 'Starting reaction rates' DO N = 1, N_RXNS WRITE( DBGOUT, '( A, I3, 1X, 1PD13.5 )' ) & 'RXRAT ', N, RXRAT( NCELL, N ) END DO END IF END IF #endif c++++++++++++++++++++++++Debug section++++++++++++++++++++++++++++++++++ cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Call routines to compute concentrations of groups 1-4 cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc CALL HRG1( DTC ) CALL HRG2( DTC ) CALL HRG3( DTC ) CALL HRG4( DTC ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Do the Euler backward method cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc CALL HRPRODLOSS DO EBI = 1, N_EBISP S = EBISP( EBI ) YCP( S ) = YC( S )*( ( YC0( S ) + PROD( S ) * DTC ) & / ( YC( S ) + LOSS( S ) * DTC ) ) END DO c..Special treatment of PAR because of negative product stoichiometry IF( PNEG( PAR ) .GT. 0.0D0 ) THEN FXDLOSS = PNEG( PAR ) * DTC IF( FXDLOSS .GE. YC0( PAR ) + PROD( PAR ) * DTC ) THEN YCP( PAR ) = 0.0D0 ELSE VARLOSS = MAX( LOSS( PAR ) - PNEG( PAR ) , ZERO ) YCP( PAR ) = ( YC0( PAR ) + PROD( PAR ) * DTC - & FXDLOSS ) / ( 1.0D0 + VARLOSS * DTC / YC( PAR ) ) END IF END IF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Check for convergence cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc LEBI_CONV = .TRUE. MXFL = .FALSE. DO S = 1, NUMB_MECH_SPC LEBISPFL( S ) = .FALSE. YCP( S ) = MAX( ZERO, YCP( S ) ) AERROR( S ) = MAX( ABS( YC(S)-YCP(S) ), EPSLON ) RERROR( S ) = AERROR( S ) / MAX( FLOOR, ABS( YC(S)+YCP(S) ) ) IF( RERROR( S ) .GT. RTOL(S) .OR. AERROR( S ) .GT. 1.0D-5 )THEN LEBI_CONV = .FALSE. LEBISPFL( S ) = .TRUE. END IF c..test if predictions growing too large IF( YCP( S ) .GT. MAXPRED .AND. NOTMAX( S ) ) THEN MXFL = .TRUE. LEBI_CONV = .FALSE. LEBISPFL( S ) = .TRUE. END IF YC( S ) = YCP( S ) END DO c..test if predictions growing too large, abort interation loop IF( MXFL ) EXIT ITER_SUBSTEP c++++++++++++++++++++++++Debug section++++++++++++++++++++++++++++++++++ #ifdef hrdebug IF( LDEBUG ) THEN WRITE( DBGOUT, '( A, I5 )' ) 'Concs after ITER= ', ITER DO S = 1, NUMB_MECH_SPC IF( LEBISPFL( S ) ) THEN NOTE = 'CONV FAIL' ELSE NOTE = ' ' END IF WRITE( DBGOUT, '( I3, 1X, A, 1PD13.5, 1X, A )' ) & S, CHEMISTRY_SPC( S ), YC( S ), NOTE END DO IF( LEBI_CONV ) WRITE( DBGOUT, '( A )' ) & '****Convergence achieved' END IF #endif c++++++++++++++++++++++++Debug section++++++++++++++++++++++++++++++++++ IF( LEBI_CONV ) THEN DTG = 60.0D0 * DTC DO S = 1, NUMB_MECH_SPC M = CGRID_INDEX( S ) YCCELL( M ) = YC( S ) END DO #if defined(isam) || defined(verbose_isam) SA_DEGRADE_STEP = SA_DEGRADE_STEP + 1 #endif IF( CALL_DEG )CALL DEGRADE(YCCELL, DTG, JDATE, JTIME) ! :WTH Call degradation routine IF( CALL_IRR ) CALL PA_IRR ( .FALSE., RKI, YC, DTC ) #ifdef isam IF( NEBI .EQ. N_EBI_STEPS )UPDATE_SOLD = .TRUE. CALL SA_IRR_UNBLOCKED ( .FALSE., RKI, YC, DTC ) UPDATE_PROBABILITIES = .FALSE. #endif #ifdef sens C Update the sum for the average over the chemistry integration YCDDM = YCDDM & + ( ( 0.5D0 * DTC ) * ( YC + YC0 ) ) #endif CYCLE SUBSTEP_EBI ! solve for next sub time-step END IF END DO ITER_SUBSTEP ! interating for substep failed, attempt to increase number of sub time-steps NBKUPS = NBKUPS + 1 ! IF( NBKUPS .LE. MXBKUPS ) THEN IF ( DTC .GT. DTMIN ) THEN ! reset YC and cut sub time-step in half IF ( MXFL ) THEN WRITE( LOGDEV, 92008 ) NBKUPS WRITE( LOGDEV, 92009 ) C+PECOL_OFFSET, R+PEROW_OFFSET, L DO S = 1, NUMB_MECH_SPC IF( LEBISPFL( S ) )WRITE( LOGDEV, 92010 )TRIM( CHEMISTRY_SPC( S ) ), & YC0(S), YCP(S) END DO ELSE WRITE( LOGDEV, 92000 ) C+PECOL_OFFSET, R+PEROW_OFFSET, L, NBKUPS DO S = 1, NUMB_MECH_SPC IF( LEBISPFL( S ) )WRITE( LOGDEV, 92010 )TRIM( CHEMISTRY_SPC( S ) ), & YC0(S), YCP(S) END DO END IF YC = YC0 ! Set ICs for EBI time-step DTC = 0.5D0 * DTC N_INR_STEPS = 2 ** NBKUPS EXIT SUBSTEP_EBI ELSE WRITE( LOGDEV, 92040 ) C+PECOL_OFFSET, R+PEROW_OFFSET, L WRITE( LOGDEV, 92060 ) DO S = 1, NUMB_MECH_SPC IF( LEBISPFL( S ) ) WRITE( LOGDEV, 92080 ) CHEMISTRY_SPC( S ), & YC0(S), YCP(S) END DO MSG = 'ERROR: Stopping because of EBI convergence failures' CALL M3EXIT( PNAME, JDATE, JTIME, MSG, XSTAT2 ) END IF END DO SUBSTEP_EBI IF( LEBI_CONV )THEN NEBI = 1 + NEBI ! test for completing final EBI time-step IF( NEBI .GT. N_EBI_STEPS )EXIT TSTEP_EBI ! test whether backups were done IF( NBKUPS .EQ. 0 )CYCLE TSTEP_EBI ! Reset NBKUPS, N_INR_STEPS and sub-time step NBKUPS = 0 N_INR_STEPS = 1 DTC = EBI_TMSTEP END IF END DO TSTEP_EBI #ifdef sens ! Compute average over integration and filter values YCDDM = YCDDM / CHEMSTEP WHERE ( YCDDM .LT. 1.0D-25 ) YCDDM = 0.0D0 #endif RETURN 91000 FORMAT( 'WARNING: EBI solver in cell (',2(I4,','),I4,') Init.Conc. for ', & A16, ' = ', ES12.4,' ppmV') 92000 FORMAT( 'WARNING: EBI Euler convergence failure' / & ' Reducing EBI time step because of ', & ' convergence failure in ' / & ' Cell (', I3, ', ', I3, ', ', I3, ')' , & ' Solution Attempt #', I2 / & ' Below Species Causing Error: Init.Conc, Pred.Conc.' ) 92008 FORMAT( 'WARNING: At solution attempt #', I2 ) 92009 FORMAT( 'WARNING: EBI Euler convergence failure' / & ' Reducing EBI time step because of ', & ' MAXPRED failure in ' / & ' Cell (', I3, ', ', I3, ', ', I3, ')' , & ' for the below species: : Init.Conc, Pred.Conc.') 92010 FORMAT( A16, 2(1X,ES12.4), ' ppmV' ) 92040 FORMAT( 'ERROR: Max number of EBI time step reductions exceeded' & / ' Convergence failure for cell (', I3, ', ', I3, & ', ', I3, ')' ) 92060 FORMAT( ' Convergence failure for the following species:', & 'Init.Conc, Pred.Conc.' ) 92080 FORMAT( 10X, A, 2(1X,ES12.4), ' ppmV ' ) 92061 FORMAT( ' Convergence failure for the following species:', & 'Init.Conc, Pred.Conc.,Rel.Error,' ) 92081 FORMAT( 10X, A, 2(1X,ES12.4), ' ppmV ', ES12.4,'%' ) END ================================================ FILE: CCTM/src/gas/ebi_cb6r5m_ae7_aq/hrdata_mod.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! MODULE HRDATA C************************************************************************* C C FUNCTION: Mechanism & solver data for EBI solver C C PRECONDITIONS: For the CB6R5M_AE7_AQ mechanism C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by EBI solver program, Apr 21, 2022 C C 18 Jul 14 B.Hutzell: revised to use real(8) variables for solution C************************************************************************* c..EBI solver fixed parameters INTEGER, PARAMETER :: NEBITER = 1000 ! No. of iterations for EBI INTEGER, PARAMETER :: MAX_CELLS_EBI = 1 ! max # cells in local conc arrays REAL( 8 ), PARAMETER :: DELTAT = 1.250D+00 ! EBI time step (min) c..Mechanism specific variables INTEGER N_SPEC ! No. of species in mechanism INTEGER N_RXNS ! No. of reactions in mechanism INTEGER N_EBISP ! No. of species solved by EBI INTEGER NING1 ! No. of species in group 1 INTEGER NING2 ! No. of species in group 2 INTEGER N_SPCL_RKS ! No. of special rate constants INTEGER N_ACTSP ! No. of species in mechanism (non-ss spec) INTEGER NCELL ! cell number in EBI Block c..Control flags LOGICAL L_AE_VRSN ! Flag for aerosol version of mech LOGICAL L_AQ_VRSN ! Flag for aqueous chemistry version of mech LOGICAL CALL_IRR ! Flag initializing for IRR and calling PA_IRR ! SWITCH for calling DEGRADE routine LOGICAL, SAVE :: CALL_DEG = .TRUE. c..Miscellaneous variables INTEGER N_EBI_IT ! No. of iterations for EBI INTEGER N_EBI_STEPS ! No. of time steps for EBI INTEGER N_INR_STEPS ! No. of inner time steps for EBI INTEGER PECOL_OFFSET ! Local Column Offset for processor INTEGER PEROW_OFFSET ! Local Column Offset for processor INTEGER, SAVE :: MODEL_SPECIES ! No. of species in CGRID REAL( 8 ) EBI_TMSTEP ! Time step for EBI loops (min) REAL( 8 ) CHEMSTEP ! Chemistry integration interval (min) c...Allocatable arrays INTEGER, ALLOCATABLE :: EBISP( : ) ! Index of EBI species INTEGER, ALLOCATABLE :: SSASP( : ) ! Index of ss species INTEGER, ALLOCATABLE :: ACTSP( : ) ! Index of active species INTEGER, ALLOCATABLE :: IOLD2NEW( :,: ) ! YC species map, used if NSPECIAL > 0 REAL( 8 ), ALLOCATABLE :: RKI( : ) ! Rate constants REAL( 8 ), ALLOCATABLE :: RKI_SAV( :, : ) ! Saved values of RKI for SS species calcs REAL( 8 ), ALLOCATABLE :: YC ( : ) ! Species concentrations REAL( 8 ), ALLOCATABLE :: YC0( : ) ! Species concentrations REAL( 8 ), ALLOCATABLE :: YCP( : ) ! Species concentrations REAL( 8 ), ALLOCATABLE :: SYC( :, : ) ! Species concentrations REAL, ALLOCATABLE :: FORWARD_CONV( : ) ! CGRID to CHEM Species conversion factor REAL, ALLOCATABLE :: REVERSE_CONV( : ) ! CHEM to CGRID Species conversion factor REAL( 8 ), ALLOCATABLE :: RXRAT( : ) ! Reaction rates REAL( 8 ), ALLOCATABLE :: RTOL( : ) ! Species tolerances REAL( 8 ), ALLOCATABLE :: YCCELL( : ) ! ALL Species in cgrid REAL( 8 ), ALLOCATABLE :: PROD( : ) ! Prod of species REAL( 8 ), ALLOCATABLE :: LOSS( : ) ! Loss of species REAL( 8 ), ALLOCATABLE :: PNEG( : )! Negative production rates REAL, ALLOCATABLE :: PRES( :, :, : ) ! pressure (Pa) REAL, ALLOCATABLE :: QV ( :, :, : ) ! water vapor (Kg/Kg air) REAL, ALLOCATABLE :: TA ( :, :, : ) ! temperature (K) REAL, ALLOCATABLE :: SEAICE ( :, :) ! fractional seaice cover, [-] REAL, ALLOCATABLE :: DENS( :, :, : ) ! mass density (Kg/m^3) REAL, ALLOCATABLE :: SEAWATER_ZONE ( :,: ) ! fractional area of OPEN+SURF LOGICAL, ALLOCATABLE :: LFLAGIRR ( :,:,: ) ! Conduct IRR for cell REAL( 8 ), ALLOCATABLE :: ATMPRES ( : ) ! Cell pressure, Atm ! REAL( 8 ), ALLOCATABLE :: PRESCELL( : ) ! Cell pressure, Pa REAL( 8 ), ALLOCATABLE :: H2O ( : ) ! Cell H2O mixing ratio (ppmV) REAL( 8 ), ALLOCATABLE :: TEMP ( : ) ! Cell Temperature REAL( 8 ), ALLOCATABLE :: DENSITY ( : ) ! Cell mass density (Kg/m3) REAL( 8 ), ALLOCATABLE :: HET ( :, : ) ! cell heterogeneous reaction rates REAL( 8 ), ALLOCATABLE :: RJIN ( :, : ) ! J-values for a cell REAL( 8 ), ALLOCATABLE :: SEAWATER ( : ) ! fractional area of OPEN+SURF for specific cell c..Species indices INTEGER, PARAMETER :: NO2 = 1 INTEGER, PARAMETER :: NO = 2 INTEGER, PARAMETER :: O = 3 INTEGER, PARAMETER :: O3 = 4 INTEGER, PARAMETER :: NO3 = 5 INTEGER, PARAMETER :: O1D = 6 INTEGER, PARAMETER :: OH = 7 INTEGER, PARAMETER :: HO2 = 8 INTEGER, PARAMETER :: H2O2 = 9 INTEGER, PARAMETER :: N2O5 = 10 INTEGER, PARAMETER :: HNO3 = 11 INTEGER, PARAMETER :: HONO = 12 INTEGER, PARAMETER :: PNA = 13 INTEGER, PARAMETER :: SO2 = 14 INTEGER, PARAMETER :: SULF = 15 INTEGER, PARAMETER :: SULRXN = 16 INTEGER, PARAMETER :: C2O3 = 17 INTEGER, PARAMETER :: MEO2 = 18 INTEGER, PARAMETER :: RO2 = 19 INTEGER, PARAMETER :: PAN = 20 INTEGER, PARAMETER :: PACD = 21 INTEGER, PARAMETER :: AACD = 22 INTEGER, PARAMETER :: CXO3 = 23 INTEGER, PARAMETER :: ALD2 = 24 INTEGER, PARAMETER :: XO2H = 25 INTEGER, PARAMETER :: PANX = 26 INTEGER, PARAMETER :: FORM = 27 INTEGER, PARAMETER :: MEPX = 28 INTEGER, PARAMETER :: MEOH = 29 INTEGER, PARAMETER :: ROOH = 30 INTEGER, PARAMETER :: XO2 = 31 INTEGER, PARAMETER :: XO2N = 32 INTEGER, PARAMETER :: NTR1 = 33 INTEGER, PARAMETER :: NTR2 = 34 INTEGER, PARAMETER :: FACD = 35 INTEGER, PARAMETER :: CO = 36 INTEGER, PARAMETER :: HCO3 = 37 INTEGER, PARAMETER :: ALDX = 38 INTEGER, PARAMETER :: GLYD = 39 INTEGER, PARAMETER :: GLY = 40 INTEGER, PARAMETER :: MGLY = 41 INTEGER, PARAMETER :: ETHA = 42 INTEGER, PARAMETER :: ETOH = 43 INTEGER, PARAMETER :: KET = 44 INTEGER, PARAMETER :: PAR = 45 INTEGER, PARAMETER :: ACET = 46 INTEGER, PARAMETER :: PRPA = 47 INTEGER, PARAMETER :: XPRP = 48 INTEGER, PARAMETER :: XPAR = 49 INTEGER, PARAMETER :: ROR = 50 INTEGER, PARAMETER :: ETHY = 51 INTEGER, PARAMETER :: ETH = 52 INTEGER, PARAMETER :: OLE = 53 INTEGER, PARAMETER :: IOLE = 54 INTEGER, PARAMETER :: ISOP = 55 INTEGER, PARAMETER :: ISO2 = 56 INTEGER, PARAMETER :: ISOPRXN = 57 INTEGER, PARAMETER :: ISPD = 58 INTEGER, PARAMETER :: INTR = 59 INTEGER, PARAMETER :: ISPX = 60 INTEGER, PARAMETER :: HPLD = 61 INTEGER, PARAMETER :: OPO3 = 62 INTEGER, PARAMETER :: EPOX = 63 INTEGER, PARAMETER :: EPX2 = 64 INTEGER, PARAMETER :: TERP = 65 INTEGER, PARAMETER :: TRPRXN = 66 INTEGER, PARAMETER :: TERPNRO2 = 67 INTEGER, PARAMETER :: APIN = 68 INTEGER, PARAMETER :: BENZENE = 69 INTEGER, PARAMETER :: CRES = 70 INTEGER, PARAMETER :: BZO2 = 71 INTEGER, PARAMETER :: OPEN = 72 INTEGER, PARAMETER :: BENZRO2 = 73 INTEGER, PARAMETER :: TOL = 74 INTEGER, PARAMETER :: TO2 = 75 INTEGER, PARAMETER :: TOLRO2 = 76 INTEGER, PARAMETER :: XOPN = 77 INTEGER, PARAMETER :: XYLMN = 78 INTEGER, PARAMETER :: XLO2 = 79 INTEGER, PARAMETER :: XYLRO2 = 80 INTEGER, PARAMETER :: NAPH = 81 INTEGER, PARAMETER :: PAHRO2 = 82 INTEGER, PARAMETER :: CRO = 83 INTEGER, PARAMETER :: CAT1 = 84 INTEGER, PARAMETER :: CRON = 85 INTEGER, PARAMETER :: OPAN = 86 INTEGER, PARAMETER :: ECH4 = 87 INTEGER, PARAMETER :: CL2 = 88 INTEGER, PARAMETER :: CL = 89 INTEGER, PARAMETER :: HOCL = 90 INTEGER, PARAMETER :: CLO = 91 INTEGER, PARAMETER :: FMCL = 92 INTEGER, PARAMETER :: HCL = 93 INTEGER, PARAMETER :: CLNO2 = 94 INTEGER, PARAMETER :: CLNO3 = 95 INTEGER, PARAMETER :: SVAVB2 = 96 INTEGER, PARAMETER :: SVAVB3 = 97 INTEGER, PARAMETER :: SVAVB4 = 98 INTEGER, PARAMETER :: SVAVB1 = 99 INTEGER, PARAMETER :: SESQ = 100 INTEGER, PARAMETER :: SESQRXN = 101 INTEGER, PARAMETER :: SOAALK = 102 INTEGER, PARAMETER :: H2NO3PIJ = 103 INTEGER, PARAMETER :: H2NO3PK = 104 INTEGER, PARAMETER :: ACLI = 105 INTEGER, PARAMETER :: ACLJ = 106 INTEGER, PARAMETER :: ACLK = 107 INTEGER, PARAMETER :: IEPOXP = 108 INTEGER, PARAMETER :: ASO4J = 109 INTEGER, PARAMETER :: AISO3J = 110 INTEGER, PARAMETER :: AGLYJ = 111 INTEGER, PARAMETER :: MTNO3 = 112 INTEGER, PARAMETER :: AMTNO3J = 113 INTEGER, PARAMETER :: AMTHYDJ = 114 INTEGER, PARAMETER :: AAVB2J = 115 INTEGER, PARAMETER :: AOLGAJ = 116 INTEGER, PARAMETER :: AAVB3J = 117 INTEGER, PARAMETER :: AAVB4J = 118 INTEGER, PARAMETER :: AISO1J = 119 INTEGER, PARAMETER :: AOLGBJ = 120 INTEGER, PARAMETER :: AISO2J = 121 INTEGER, PARAMETER :: ASQTJ = 122 INTEGER, PARAMETER :: APOCI = 123 INTEGER, PARAMETER :: APNCOMI = 124 INTEGER, PARAMETER :: APOCJ = 125 INTEGER, PARAMETER :: APNCOMJ = 126 INTEGER, PARAMETER :: PCVOC = 127 INTEGER, PARAMETER :: PCSOARXN = 128 INTEGER, PARAMETER :: VLVPO1 = 129 INTEGER, PARAMETER :: VSVPO1 = 130 INTEGER, PARAMETER :: VSVPO2 = 131 INTEGER, PARAMETER :: VSVPO3 = 132 INTEGER, PARAMETER :: VIVPO1 = 133 INTEGER, PARAMETER :: VLVOO1 = 134 INTEGER, PARAMETER :: VLVOO2 = 135 INTEGER, PARAMETER :: VSVOO2 = 136 INTEGER, PARAMETER :: VSVOO3 = 137 INTEGER, PARAMETER :: VSVOO1 = 138 INTEGER, PARAMETER :: FORM_PRIMARY = 139 INTEGER, PARAMETER :: ALD2_PRIMARY = 140 INTEGER, PARAMETER :: BUTADIENE13 = 141 INTEGER, PARAMETER :: ACROLEIN = 142 INTEGER, PARAMETER :: ACRO_PRIMARY = 143 INTEGER, PARAMETER :: TOLU = 144 INTEGER, PARAMETER :: HG = 145 INTEGER, PARAMETER :: HGIIAER = 146 INTEGER, PARAMETER :: HGIIGAS = 147 INTEGER, PARAMETER :: BR = 148 INTEGER, PARAMETER :: BRO = 149 INTEGER, PARAMETER :: HOBR = 150 INTEGER, PARAMETER :: HBR = 151 INTEGER, PARAMETER :: BR2 = 152 INTEGER, PARAMETER :: BRNO3 = 153 INTEGER, PARAMETER :: BRNO2 = 154 INTEGER, PARAMETER :: FMBR = 155 INTEGER, PARAMETER :: MB3 = 156 INTEGER, PARAMETER :: MB2 = 157 INTEGER, PARAMETER :: MB2C = 158 INTEGER, PARAMETER :: MBC2 = 159 INTEGER, PARAMETER :: MBC = 160 INTEGER, PARAMETER :: DMS = 161 INTEGER, PARAMETER :: MSA = 162 INTEGER, PARAMETER :: BRCL = 163 INTEGER, PARAMETER :: ABRJ = 164 INTEGER, PARAMETER :: I = 165 INTEGER, PARAMETER :: IO = 166 INTEGER, PARAMETER :: HI = 167 INTEGER, PARAMETER :: I2 = 168 INTEGER, PARAMETER :: HOI = 169 INTEGER, PARAMETER :: INO = 170 INTEGER, PARAMETER :: INO2 = 171 INTEGER, PARAMETER :: INO3 = 172 INTEGER, PARAMETER :: OIO = 173 INTEGER, PARAMETER :: I2O4 = 174 INTEGER, PARAMETER :: I2O2 = 175 INTEGER, PARAMETER :: I2O3 = 176 INTEGER, PARAMETER :: CH3I = 177 INTEGER, PARAMETER :: ICL = 178 INTEGER, PARAMETER :: IBR = 179 INTEGER, PARAMETER :: MI2 = 180 INTEGER, PARAMETER :: MIB = 181 INTEGER, PARAMETER :: MIC = 182 END MODULE HRDATA ================================================ FILE: CCTM/src/gas/ebi_cb6r5m_ae7_aq/hrdriver.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE CHEM( CGRID, JDATE, JTIME, TSTEP ) C********************************************************************** C C FUNCTION: Driver subroutine for Euler Backward Iterative solver C C PRECONDITIONS: For the CB6R5M_AE7_AQ mechanism C C KEY SUBROUTINES/FUNCTIONS CALLED: HRINIT, HRCALCKS, HRSOLVER C FIND_DEGRADED, INIT_DEGRADE, FINAL_DEGRADE C C REVISION HISTORY: Created by EBI solver program, Apr 21, 2022 C Based on the algorithm in "Test of Two Numerical C Schemes for Use in Atmospheric Transport-Chemistry C Models", O. Hertel, R. Berkowicz, J. Christensen, C and O. Hov, Atm Env., Vol. 27A, No. 16, 1993. C Original MEBI code developed by Ho-Chun Huang, C SUNY, Albany -- "On the performance of numerical C solvers for a chemistry submodel in three-dimensional C air quality models 1. Box model simulations", C H. Huang and J.S. Chang, JGR, Vol 106, No. D17, 2001. C This version replaces Huang and Chang use of numerical C solutions with analytical solutions derived in C Hertel et al. C 21 Jun 10 J.Young: convert for Namelist redesign C 11 May 11 D.Wong: incorporated twoway model implementation C 27 Sep 11 B.Hutzell: revised method for defining CALL_DEG variable C 18 Jul 14 B.Hutzell: revised: 1) to use the RXNS_DATA and RXNS_FUNCTION C modules instead of include files, 2) to enable C reactions between species types, 3) to calculate C heterogeneous rate constants via AEROSOL_CHEMISTRY C module, 4) to replace call to HRCALCKS with C subroutine in RXNS_FUNCTION module and 5) to change C how degrade routines are used, if present C 02 Dec 14 B.Hutzell: 1) added terrestrial data to conduct surface C dependent reactions and 2) modified the call CALC_RCONST C routine C 01 Feb 19 D.Wong: Implemented centralized I/O approach, removed all MY_N C clauses C********************************************************************** USE HGRD_DEFN ! horizontal domain specifications USE VGRD_DEFN ! vertical layer specifications USE CGRID_SPCS ! CGRID mechanism species USE UTILIO_DEFN ! IOAPI parameters and functions declarations USE RXNS_DATA USE AEROSOL_CHEMISTRY USE RXNS_FUNCTION #ifdef isam USE SA_IRR_DEFN USE SA_DEFN #endif USE HRDATA USE PHOT_MOD, Only: INIT_PHOT_SHARED, RJ ! photolysis rate, in-line module USE PA_DEFN, Only: LIRR ! Process Analysis control and data variable USE PA_IRR_CLT #ifndef isam USE DEGRADE_ROUTINES, ONLY : N_REACT, RXTANT_MAP, DEG_LAY, DEG_COL, DEG_ROW, & FIND_DEGRADED, INIT_DEGRADE, FINAL_DEGRADE #else USE DEGRADE_ROUTINES, ONLY : N_REACT, RXTANT_MAP, SA_DEGRADE_EXTRACT, & FIND_DEGRADED, INIT_DEGRADE, FINAL_DEGRADE, & SA_DEGRADE_UPLOAD, DEG_LAY, DEG_COL, DEG_ROW #endif USE CENTRALIZED_IO_MODULE, ONLY : INTERPOLATE_VAR, OCEAN, SZONE #ifdef sens USE DDM3D_CHEM Use DDM3D_DEFN, Only: DATENUM, STARTDATE, IPT, IDATE, HIGH, NP, NPMAX, CKTIME #endif IMPLICIT NONE C..Includes: INCLUDE SUBST_FILES_ID ! CMAQ files INCLUDE SUBST_CONST ! CMAQ constants INCLUDE SUBST_EMISPRM ! Emissions processing control parameters C..Arguments: REAL, POINTER :: CGRID( :,:,:,: ) ! Species concentrations INTEGER JDATE ! Current date (YYYYDDD) INTEGER JTIME ! Current time (HHMMSS) INTEGER TSTEP( 3 ) ! Time step vector (HHMMSS) C..Parameters: REAL( 8 ), PARAMETER :: DCONMIN = 1.0D-30 ! minimum species concentration allowed REAL, PARAMETER :: CONCMIN = 1.0E-30 ! minimum species concentration allowed REAL, PARAMETER :: MAOMV = 1.0E6 * MWAIR / MWWAT ! Mol Wt of air over Mol Wt of water times 1.0E6 C..External Functions: C..Saved Local Variables: CHARACTER( 16 ), SAVE :: PNAME = 'HRDRIVER' ! Program name INTEGER, SAVE :: ISTFL ! Unit no. of iteration stat output file LOGICAL, SAVE :: LFIRST = .TRUE. ! Flag for first call to this subroutine REAL( 8 ), SAVE :: PA2ATM ! Pascal to atm conv fac C..Scratch Local Variables: CHARACTER( 132 ) :: MSG ! Message text CHARACTER( 16 ) :: VNAME ! Name of I/O API data variable INTEGER C, E, L, R, S ! Loop indices INTEGER ISP ! array index INTEGER AVGEBI ! Average no. of EBI iterations INTEGER DELT_SEC ! EBI max time step in seconds INTEGER ESP ! Loop index for emissions species INTEGER ITMSTEP ! Chemistry integration interval (sec) INTEGER LEV ! Layer index INTEGER MIDDATE ! Date at time step midpoint INTEGER MIDTIME ! Time at time step midpoint INTEGER NPH ! Index for number of phot. rxns in PHOT INTEGER SPC ! Species loop index #ifdef hrstats INTEGER MNEBI ! Min no. of EBI iterations INTEGER MXEBI ! Max no. of EBI iterations #endif LOGICAL LSUNLIGHT ! Flag for sunlight REAL INV_DENS ! reciprocal of air mass density, m3/Kg #ifdef hrstats REAL SUMEBI ! Sum of EBI iterations #endif INTERFACE SUBROUTINE HRSOLVER( JDATE, JTIME, C, R, L ) INTEGER, INTENT( IN ) :: JDATE ! Current date (YYYYDDD) INTEGER, INTENT( IN ) :: JTIME ! Current time (HHMMSS) INTEGER, INTENT( IN ) :: C, R, L ! Cell col, row, lev END SUBROUTINE HRSOLVER SUBROUTINE HETCHEM_UPDATE_AERO( CGRID ) REAL, POINTER :: CGRID( :,:,:,: ) ! species concentration in cell END SUBROUTINE HETCHEM_UPDATE_AERO END INTERFACE C********************************************************************** IF( NUMB_MECH_SPC .EQ. 0 ) RETURN ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c On first call, call routines to set-up for EBI solver ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF( LFIRST ) THEN IF( MECHNAME .NE. 'CB6R5M_AE7_AQ' ) THEN MSG = 'This version of the EBI solver can only be used with' & // ' the CB6R5M_AE7_AQ chemical mechanism' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF #ifdef emis_chem EMISVD = .FALSE. #else EMISVD = .TRUE. #endif IF( INDEX( MECHNAME, 'AE' ) .NE. 0 ) THEN L_AE_VRSN = .TRUE. ELSE L_AE_VRSN = .FALSE. END IF IF( INDEX( MECHNAME, 'AQ' ) .NE. 0 ) THEN L_AQ_VRSN = .TRUE. ELSE L_AQ_VRSN = .FALSE. END IF IF( LIRR ) THEN CALL_IRR = .TRUE. ELSE CALL_IRR = .FALSE. END IF MODEL_SPECIES = NSPCSD ! WTH: find number of model species ! Determine whether DEGRADE rountines are needed. CALL FIND_DEGRADED( JDATE, JTIME, CALL_DEG ) IF( CALL_DEG )THEN WRITE(LOGDEV,*)'TX DEGRADE ROUTINES USED' WRITE(LOGDEV,*)'Mechanism contains degraded species' #ifdef verbose_gas ELSE WRITE(LOGDEV,*)'TX DEGRADE ROUTINES OMITTED' WRITE(LOGDEV,*)'MECHANISM does not include degraded species' #endif END IF CALL HRINIT ITMSTEP = TIME2SEC( TSTEP( 2 ) ) CHEMSTEP = REAL( ITMSTEP, 8 ) / 60.0D0 WRITE( LOGDEV, 92000 ) CHEMSTEP, DELTAT WRITE( LOGDEV, 92020 ) DO SPC = 1, NUMB_MECH_SPC WRITE( LOGDEV, 92040 ) CHEMISTRY_SPC( SPC ), RTOL( SPC ) END DO PA2ATM = REAL( 1.0 / STDATMPA, 8) c..If emissions processing requested stop IF( .NOT. EMISVD ) THEN ! assumes emis processing in gas chem MSG = 'ERROR: EBI solver not configured to '// & 'process emissions in chemistry' CALL M3EXIT( PNAME, JDATE, JTIME, MSG, XSTAT1 ) END IF ! End if doing emissions #ifdef hrstats ISTFL = JUNIT() OPEN( UNIT=ISTFL, FILE='iterstat.dat' ) WRITE( ISTFL, 94020 ) #endif C Define processor offsets PECOL_OFFSET = COLSD_PE( 1, MYPE+1 ) - 1 PEROW_OFFSET = ROWSD_PE( 1, MYPE+1 ) - 1 ALLOCATE( SEAWATER_ZONE( NCOLS, NROWS ) ) DO R = 1, NROWS DO C = 1, NCOLS SEAWATER_ZONE( C,R ) = OCEAN( C,R ) + SZONE( C,R ) END DO END DO ALLOCATE( DENS( NCOLS, NROWS, NLAYS ), PRES( NCOLS, NROWS, NLAYS ), & QV ( NCOLS, NROWS, NLAYS ), TA ( NCOLS, NROWS, NLAYS ), & SEAICE( NCOLS, NROWS ) ) C..Initialize shared photolysis data CALL INIT_PHOT_SHARED() C..Determine which cells need IRR ALLOCATE( LFLAGIRR ( NCOLS, NROWS, NLAYS ) ) CALL PA_IRR_CKCELLS ( LFLAGIRR ) #ifdef isam NUMB_ISAM_CELLS = 1.0D0 / ( NCOLS * NROWS * NLAYS ) CALL SA_IRR_INIT #endif #ifdef sens CALL INIT_DDM3D_CHEM() C For higher order sensitivities IF ( HIGH ) THEN DO RXN = 1, NRXNS IF( NREACT( RXN ) .EQ. 1 ) THEN ORDER1( RXN ) = .TRUE. ELSE ORDER1( RXN ) = .FALSE. END IF END DO END IF #endif LFIRST = .FALSE. END IF ! First time ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C Set date and time to center of time step, get necessary physical C data ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc MIDDATE = JDATE MIDTIME = JTIME ITMSTEP = TIME2SEC( TSTEP( 2 ) ) CHEMSTEP = REAL( ITMSTEP, 8 ) / 60.0D0 CALL NEXTIME( MIDDATE, MIDTIME, SEC2TIME( ITMSTEP / 2 ) ) C.. Compute number of time step loops and step size for EBI solver DELT_SEC = INT( DELTAT * 60.0D0 + 0.1D0 ) IF( DELT_SEC .GE. ITMSTEP ) THEN N_EBI_STEPS = 2 EBI_TMSTEP = 0.5D0 * CHEMSTEP ELSE IF( MOD( ITMSTEP, DELT_SEC ) .EQ. 0 ) THEN N_EBI_STEPS = ITMSTEP / DELT_SEC ELSE N_EBI_STEPS = ITMSTEP / DELT_SEC + 1 END IF EBI_TMSTEP = CHEMSTEP / REAL( N_EBI_STEPS, 8 ) END IF N_INR_STEPS = 1 C.. Get fractional seaice coverage from the METCRO2D file. CALL INTERPOLATE_VAR ('SEAICE', MIDDATE, MIDTIME, SEAICE) C.. Get ambient temperature in K CALL INTERPOLATE_VAR ('TA', MIDDATE, MIDTIME, TA) C.. Get specific humidity in Kg H2O / Kg air CALL INTERPOLATE_VAR ('QV', MIDDATE, MIDTIME, QV) ! Get ambient MASS DENSITY in Kg/m^3 CALL INTERPOLATE_VAR ('DENS', MIDDATE, MIDTIME, DENS) C.. Get pressure in Pascals CALL INTERPOLATE_VAR ('PRES', MIDDATE, MIDTIME, PRES) C.. Get Heteorogeneous rates and Update Aerosol Distribution Properties CALL HETCHEM_RATES( TA, PRES, QV, CGRID, DENS ) #ifdef sens DATENUM = 1 + JDATE - STARTDATE ! Set the date and hour counters used in sensitivity calls C For reaction rate sensitivities DO NP = 1, NPMAX IF ( IPT( NP ) .EQ. 5 ) THEN CALL CKTIME( JDATE,JTIME,NP,RXNFLAG(NP) ) ! Rxnflag set to true iff ipt=5 and time, date within bounds IF ( IDATE( NP, DATENUM ) .NE. 1 ) RXNFLAG( NP ) = .FALSE. ELSE RXNFLAG( NP ) = .FALSE. END IF END DO #endif sens ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Top of loop over cells ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc #ifdef hrstats MNEBI = 1000 MXEBI = 0 SUMEBI = 0.0 #endif NCELL = 1 DO L = 1, NLAYS DO R = 1, NROWS DO C = 1, NCOLS DEG_LAY = L DEG_ROW = R DEG_COL = C c..reset CALL_IRR based on cell's values CALL_IRR = LFLAGIRR( C,R,L ) c..Load ICs INV_DENS = 1.0 / DENS( C,R,L ) DO SPC = 1, NUMB_MECH_SPC S = CGRID_INDEX( SPC ) IF( CONVERT_CONC( SPC ) )THEN YC( SPC ) = REAL( MAX( CONCMIN, & INV_DENS*FORWARD_CONV( SPC )*CGRID( C,R,L,S )), 8 ) ELSE YC( SPC ) = REAL( MAX( CGRID( C,R,L,S ), CONCMIN), 8 ) END IF END DO IF(CALL_DEG)THEN ! INITIALIZE degradation routines YCCELL = 0.0D0 DO S = 1, MODEL_SPECIES YCCELL( S ) = REAL( CGRID(C,R,L,S), 8) END DO CALL INIT_DEGRADE(YCCELL,TA(C,R,L),DENS(C,R,L),PRES(C,R,L),QV(C,R,L),RJIN(NCELL,:), & JDATE, JTIME) #ifdef isam CALL SA_DEGRADE_EXTRACT( C,R,L,DENS(C,R,L) ) #endif END IF c..Set physical quantities TEMP( NCELL ) = REAL( TA( C,R,L ), 8) DENSITY( NCELL ) = REAL( DENS( C,R,L ), 8) ! PRESCELL( NCELL ) = REAL( PRES( C,R,L ), 8) ATMPRES( NCELL ) = PA2ATM * REAL( PRES( C,R,L ), 8) H2O( NCELL ) = REAL( MAX ( MAOMV * QV( C,R,L ), 0.0 ), 8) SEAWATER (NCELL) = MAX ( 0.0D0, ( REAL( SEAWATER_ZONE( C,R ) - SEAICE (C,R) ,8) ) ) c..Get rate constants LSUNLIGHT = .FALSE. FORALL( NPH = 1:NPHOTAB ) RJIN( NCELL,NPH ) = REAL( RJ( C,R,L,NPH ), 8) IF( MAXVAL(RJIN) .GT. 0.0D0 ) LSUNLIGHT = .TRUE. FORALL ( NPH = 1:NHETERO )HET( NCELL,NPH ) = REAL( KHETERO( NPH,C,R,L ), 8) CALL CALC_RCONST( TEMP, ATMPRES, H2O, RJIN, HET, LSUNLIGHT, SEAWATER, RKI_SAV, NCELL ) FORALL( NPH = 1:NRXNS )RKI( NPH ) = RKI_SAV( NCELL, NPH ) #ifdef isam #if defined(isam) || defined(verbose_isam) C...For diagnosing IRR calculations in log files IF( CHECK_ISAM )THEN WRITE_CELL = .FALSE. IF( C .EQ. MAX(1, NCOLS/2) .AND. R .EQ. MAX(1,NROWS/2) .AND. L .EQ. 1 )THEN WRITE_CELL = .TRUE. WRITE(LOGDEV,*)'WRITE_CELL = .TRUE.' ELSE WRITE_CELL = .FALSE. END IF END IF #endif CALL SA_IRR_EXTRACT( C, R, L, DENS( C,R,L ),YC ) #endif c..Call EBI solver N_EBI_IT = 0 CALL HRSOLVER( JDATE, JTIME, C, R, L ) #ifdef hrstats MXEBI = MAX( MXEBI, N_EBI_IT ) MNEBI = MIN( MNEBI, N_EBI_IT ) SUMEBI = SUMEBI + REAL( N_EBI_IT ) #endif c..Update concentration array DO SPC = 1, NUMB_MECH_SPC S = CGRID_INDEX( SPC ) IF( CONVERT_CONC( SPC ) )THEN CGRID( C,R,L,S ) = REAL( REVERSE_CONV( SPC ) * DENS( C,R,L ) & * MAX( YC( SPC ), DCONMIN), 4) ELSE CGRID( C,R,L,S ) = REAL( MAX( YC( SPC ), DCONMIN), 4) END IF END DO IF(CALL_DEG)THEN ! WTH: update based on degrade routines CALL FINAL_DEGRADE(YCCELL) UPDATE_DEGRADED: DO SPC = 1, N_REACT ISP = RXTANT_MAP( SPC ) IF( ISP .LE. 0 )CYCLE UPDATE_DEGRADED DO S = 1, NUMB_MECH_SPC IF( CGRID_INDEX( S ) .EQ. ISP )CYCLE UPDATE_DEGRADED END DO CGRID(C,R,L,ISP) = REAL( YCCELL(ISP), 4) END DO UPDATE_DEGRADED #ifdef isam CALL SA_DEGRADE_UPLOAD( C,R,L,DENS(C,R,L) ) #endif END IF #ifdef isam CALL SA_IRR_UPLOAD( C, R, L, DENS( C,R,L ), YC ) #endif c..update irrout arrays if needed IF ( LFLAGIRR( C,R,L ) )CALL PA_IRR_CELLENDF( C, R, L ) #ifdef sens DO RXN = 1, NRXNS SRK( RXN ) = RKI( RXN ) IF ( HIGH ) THEN IF ( ORDER1 (RXN ) ) THEN SRK2( RXN ) = 0.0 ELSE SRK2( RXN ) = RKI( RXN ) END IF END IF END DO CALL SOLVE_DDM3D_CHEM( C,R,L,CHEMSTEP ) #endif END DO END DO END DO ! Update Aerosol Surface Area CALL HETCHEM_UPDATE_AERO( CGRID ) #ifdef hrstats AVGEBI = SUMEBI / REAL( NCOLS * NROWS * NLAYS ) WRITE( ISTFL, 94040 ) JDATE, JTIME, MNEBI, AVGEBI, MXEBI #endif RETURN C*********************** FORMAT STATEMENTS **************************** 92000 FORMAT( / 10X, 'Euler Backward Iterative Parameters -' & / 10X, 'Chemistry Integration Time Interval (min):', F12.4, & / 10X, 'EBI maximum time step (min): ', F12.4 ) 92020 FORMAT( //10X, 'Species convergence tolerances:' ) 92040 FORMAT( 10X, A16, 2X, 1PE12.2 ) 92060 FORMAT( / 10X, 'Emissions Processing in Chemistry ...' & / 10X, 'Number of Emissions Layers: ', I3 & / 10X, 'out of total Number of Model Layers:', I3 ) 94020 FORMAT( 'DATE TIME ', 'MNEBI AVEBI MXEBI' ) 94040 FORMAT( I7, 1X, I6, 1X, 3( I5, 1X ) ) END ================================================ FILE: CCTM/src/gas/ebi_cb6r5m_ae7_aq/hrg1.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE HRG1( DTC ) C********************************************************************** C C FUNCTION: To solve for the concentration of NO2, NO, O3, and O3P C algebraically. C C PRECONDITIONS: For the CB6R5M_AE7_AQ mechanism C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by EBI solver program, Apr 5, 2022 C C 18 Jul 14 B.Hutzell: revised to use real(8) variables C 01 Jun 18 B.Hutzell: replaced steady solution for O1D with backward Euler C approximation. To match conditions where the initial C concentration cannot be neglected. C********************************************************************** USE HRDATA IMPLICIT NONE C..INCLUDES: None C..ARGUMENTS: REAL( 8 ), INTENT( IN ) :: DTC ! Time step C..PARAMETERS: None C..EXTERNAL FUNCTIONS: NONE C..SAVED LOCAL VARIABLES: ! CHARACTER( 16 ), SAVE :: PNAME = 'HRG1' ! Prgram Name C..SCRATCH LOCAL VARIABLES: REAL( 8 ) :: O1D_S ! sum of O1D loss frequencies REAL( 8 ) :: O3P_S ! stoich coeff for O3P from O1D REAL( 8 ) :: R1_2 ! production term for NO from NO2 REAL( 8 ) :: R2_1 ! production term for NO2 from NO REAL( 8 ) :: P1, P2, P3, P12 ! production terms for NO, NO2, O3, & O3P REAL( 8 ) :: L1, L2, L3, L12 ! loss terms for NO, NO2, O3, O3P REAL( 8 ) :: L1_INV, L2_INV, & L3_INV, L12_INV ! inverse of loss terms REAL( 8 ) :: T1, T2, T3, T4, T5 ! intermerdiate terms REAL( 8 ) :: F1, F2, F3 ! intermerdiate terms REAL( 8 ) :: A, B, C ! coefficients for quadratic equation REAL( 8 ) :: Q, XX, S1, S2 ! intermerdiate terms REAL( 8 ) :: RK1, RK2, RK3 ! rate constants REAL( 8 ) :: PO3 ! temp variable for O3 C********************************************************************** cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c O1D Section c 1) sum of the rate constants for all O1D loss reactions c 2) get fractional yield of O3P from O1D loss cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc O1D_S = RKI( 10 ) ! O1D=O & + RKI( 11 ) ! O1D=0.2000D+01*OH O3P_S = RKI( 10 ) ! O1D=O O3P_S = O3P_S / O1D_S cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c NO Section c R1_2 = production of NO from NO2 ( rates of form k[NO2][x] ) c except NO2+NO3=NO+NO2 (it is treated as if it were NO3=NO ) c P1 = remaining NO production terms c L1 = loss of NO (except rxns producing NO2 - they are in R2_1) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc R1_2 = RKI( 1 ) ! NO2=NO+O & + RKI( 5 ) * YC ( O ) ! NO2+O=NO R1_2 = R1_2 * DTC P1 = RXRAT( 28 ) ! NO3=NO & + RXRAT( 30 ) ! NO2+NO3=NO+NO2 & + RXRAT( 42 ) ! HONO+HONO=NO+NO2 & + RXRAT( 43 ) ! HONO=NO+OH & + 2.0000D+00 * RXRAT( 398 ) ! INO+INO=0.2000D+01*NO+I2 & + RXRAT( 423 ) ! INO=NO+I P1 = YC0( NO ) + P1 * DTC L1 = RKI( 40 ) * YC ( OH ) ! NO+OH=HONO & + RKI( 41 ) * YC ( NO2 ) ! NO+NO2=0.2000D+... & + RKI( 83 ) * YC ( XO2N ) ! NO+XO2N=0.5000D+... & + 1.0000D-01 * RKI( 151 ) * YC ( ISO2 ) ! NO+ISO2=0.1000D+... & + 8.2000D-02 * RKI( 180 ) * YC ( BZO2 ) ! NO+BZO2=0.9180D+... & + 1.4000D-01 * RKI( 185 ) * YC ( TO2 ) ! NO+TO2=0.8600D+... & + 1.4000D-01 * RKI( 191 ) * YC ( XLO2 ) ! NO+XLO2=0.8600D+... & + RKI( 414 ) * YC ( I ) ! NO+I=INO L1 = 1.0D0 + L1 * DTC cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c NO2 Section c R2_1 = production of NO2 from NO ( rates of form k[NO][x] ) c a) NO+O3=NO2 not included c b) NO+NO3=2NO2 ( 1/2 of NO2 formation rate included ) c c) NO3+NO2=NO+NO2 is not included for NO2 c P2 = remaining NO2 production terms c a) NO+O3=NO2 not included c b) NO+NO3=2NO2 (1/2 of NO2 formation rate included ) c L2 = loss of NO2 (except rxns producing NO2 - they are in R1_2) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc R2_1 = RKI( 4 ) * YC ( O ) ! NO+O=NO2 & + 2.0000D+00 * RKI( 24 ) * YC ( NO ) ! NO+NO=0.2000D+01*NO2 & + RKI( 25 ) * YC ( HO2 ) ! NO+HO2=NO2+OH & + RKI( 29 ) * YC ( NO3 ) ! NO+NO3=0.2000D+... & + RKI( 53 ) * YC ( C2O3 ) ! NO+C2O3=NO2+MEO2+RO2 & + RKI( 61 ) * YC ( CXO3 ) ! NO+CXO3=NO2+ALD2+... & + RKI( 71 ) * YC ( MEO2 ) ! NO+MEO2=NO2+HO2+FORM & + RKI( 75 ) * YC ( XO2H ) ! NO+XO2H=NO2+HO2 & + RKI( 79 ) * YC ( XO2 ) ! NO+XO2=NO2 & + RKI( 103 ) * YC ( HCO3 ) ! NO+HCO3=NO2+FACD+HO2 & + 9.0000D-01 * RKI( 151 ) * YC ( ISO2 ) ! NO+ISO2=0.9000D+... & + RKI( 167 ) * YC ( EPX2 ) ! NO+EPX2=NO2+... & + 9.1800D-01 * RKI( 180 ) * YC ( BZO2 ) ! NO+BZO2=0.9180D+... & + 8.6000D-01 * RKI( 185 ) * YC ( TO2 ) ! NO+TO2=0.8600D+... & + 8.6000D-01 * RKI( 191 ) * YC ( XLO2 ) ! NO+XLO2=0.8600D+... & + RKI( 212 ) * YC ( OPO3 ) ! NO+OPO3=NO2+... & + RKI( 230 ) * YC ( CLO ) ! NO+CLO=NO2+CL & + RKI( 351 ) * YC ( BRO ) ! NO+BRO=NO2+BR & + RKI( 397 ) * YC ( IO ) ! NO+IO=NO2+I & + RKI( 407 ) * YC ( OIO ) ! NO+OIO=NO2+IO R2_1 = R2_1 * DTC P2 = RXRAT( 27 ) ! NO3=NO2+O & + RXRAT( 29 ) ! NO+NO3=0.2000D+01*NO2 & + RXRAT( 31 ) ! NO3+O=NO2 & + RXRAT( 32 ) ! NO3+OH=NO2+HO2 & + RXRAT( 33 ) ! NO3+HO2=NO2+OH & + RXRAT( 34 ) ! NO3+O3=NO2 & + 2.0000D+00 * RXRAT( 35 ) ! NO3+NO3=0.2000D+01*NO2 & + RXRAT( 37 ) ! N2O5=NO2+NO3 & + RXRAT( 38 ) ! N2O5=NO2+NO3 & + RXRAT( 42 ) ! HONO+HONO=NO2+NO & + RXRAT( 44 ) ! HONO+OH=NO2 & + RXRAT( 47 ) ! HNO3=NO2+OH & + RXRAT( 49 ) ! PNA=NO2+HO2 & + 5.9000D-01 * RXRAT( 50 ) ! PNA=0.5900D+00*NO2+... & + RXRAT( 51 ) ! PNA+OH=NO2 & + RXRAT( 55 ) ! PAN=NO2+C2O3 & + 6.0000D-01 * RXRAT( 56 ) ! PAN=0.6000D+00*NO2+... & + RXRAT( 63 ) ! PANX=NO2+CXO3 & + 6.0000D-01 * RXRAT( 64 ) ! PANX=0.6000D+00*NO2+... & + RXRAT( 92 ) ! NTR1=NO2 & + 5.0000D-01 * RXRAT( 140 ) ! ETH+NO3=0.5000D+... & + 5.0000D-01 * RXRAT( 144 ) ! OLE+NO3=0.5000D+... & + 5.0000D-01 * RXRAT( 148 ) ! IOLE+NO3=0.5000D+... & + 3.5000D-01 * RXRAT( 157 ) ! ISOP+NO3=0.3500D+... & + 1.4200D-01 * RXRAT( 160 ) ! ISPD+NO3=0.1420D+... & + 4.4400D-01 * RXRAT( 170 ) ! INTR+OH=0.4440D+... & + 4.7000D-01 * RXRAT( 174 ) ! TERP+NO3=0.4700D+... & + 4.7000D-01 * RXRAT( 178 ) ! APIN+NO3=0.4700D+... & + 5.0000D-01 * RXRAT( 205 ) ! XOPN+NO3=0.5000D+... & + RXRAT( 214 ) ! OPAN=NO2+OPO3 & + 5.0000D-01 * RXRAT( 218 ) ! OPAN+OH=0.5000D+... & + RXRAT( 219 ) ! PANX+OH=NO2+ALD2 & + RXRAT( 252 ) ! CLNO2=NO2+CL & + RXRAT( 254 ) ! CLNO3=NO2+CLO & + RXRAT( 355 ) ! BR+NO3=NO2+BRO & + RXRAT( 374 ) ! BRNO2=NO2+BR & + RXRAT( 375 ) ! BRNO3=NO2+BRO & + 2.0000D+00 * RXRAT( 399 ) ! INO2+INO2=0.2000D+... & + RXRAT( 412 ) ! INO2=NO2+I & + RXRAT( 413 ) ! INO3=NO2+IO & + RXRAT( 424 ) ! INO2=NO2+I P2 = YC0( NO2 ) + P2 * DTC L2 = RKI( 6 ) * YC ( O ) ! NO2+O=NO3 & + RKI( 26 ) * YC ( O3 ) ! NO2+O3=NO3 & + RKI( 36 ) * YC ( NO3 ) ! NO2+NO3=N2O5 & + RKI( 41 ) * YC ( NO ) ! NO2+NO=0.2000D+... & + RKI( 45 ) * YC ( OH ) ! NO2+OH=HNO3 & + RKI( 48 ) * YC ( HO2 ) ! NO2+HO2=PNA & + RKI( 54 ) * YC ( C2O3 ) ! NO2+C2O3=PAN & + RKI( 62 ) * YC ( CXO3 ) ! NO2+CXO3=PANX & + RKI( 135 ) * YC ( ROR ) ! NO2+ROR=NTR1 & + RKI( 197 ) * YC ( CRO ) ! NO2+CRO=CRON & + RKI( 213 ) * YC ( OPO3 ) ! NO2+OPO3=OPAN & + RKI( 225 ) * YC ( OH ) ! NO2+OH=HNO3 & + RKI( 253 ) * YC ( CLO ) ! NO2+CLO=CLNO3 & + RKI( 278 ) ! NO2=0.5000D+... & + RKI( 356 ) * YC ( BRO ) ! NO2+BRO=BRNO3 & + RKI( 357 ) * YC ( BR ) ! NO2+BR=BRNO2 & + RKI( 415 ) * YC ( I ) ! NO2+I=INO2 & + RKI( 416 ) * YC ( IO ) ! NO2+IO=INO3 L2 = 1.0D0 + L2 * DTC cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c O3 Section c P3 = production of O3 except O+O2=O3 c L3 = loss terms for O3 except NO+O3=NO2 cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc P3 = 1.3000D-01 * RXRAT( 57 ) ! C2O3+HO2=0.1300D+... & + 1.3000D-01 * RXRAT( 65 ) ! CXO3+HO2=0.1300D+... & + 1.3000D-01 * RXRAT( 215 ) ! OPO3+HO2=0.1300D+... P3 = YC0( O3 ) + P3 * DTC L3 = RKI( 7 ) * YC ( O ) ! O3+O= & + RKI( 8 ) ! O3=O & + RKI( 9 ) ! O3=O1D & + RKI( 12 ) * YC ( OH ) ! O3+OH=HO2 & + RKI( 13 ) * YC ( HO2 ) ! O3+HO2=OH & + RKI( 26 ) * YC ( NO2 ) ! O3+NO2=NO3 & + RKI( 34 ) * YC ( NO3 ) ! O3+NO3=NO2 & + RKI( 139 ) * YC ( ETH ) ! O3+ETH=FORM+... & + RKI( 143 ) * YC ( OLE ) ! O3+OLE=0.2950D+... & + RKI( 147 ) * YC ( IOLE ) ! O3+IOLE=0.7320D+... & + RKI( 156 ) * YC ( ISOP ) ! O3+ISOP=0.6000D+... & + RKI( 159 ) * YC ( ISPD ) ! O3+ISPD=0.4000D-... & + RKI( 173 ) * YC ( TERP ) ! O3+TERP=0.5700D+... & + RKI( 177 ) * YC ( APIN ) ! O3+APIN=0.5700D+... & + RKI( 204 ) * YC ( XOPN ) ! O3+XOPN=0.1200D+... & + RKI( 208 ) * YC ( OPEN ) ! O3+OPEN=0.1400D+... & + RKI( 228 ) * YC ( CL ) ! O3+CL=CLO & + RKI( 345 ) * YC ( BR ) ! O3+BR=BRO & + RKI( 391 ) * YC ( I ) ! O3+I=IO L3 = 1.0D0 + L3 * DTC cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c O3P Section c P12 = production of O3P except NO2+hv=O3P (J1) c L12 = loss terms cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc P12 = RXRAT( 8 ) ! O3=O & + O3P_S * RXRAT( 9 ) ! O3=O1D & + RXRAT( 16 ) ! OH+OH=O & + RXRAT( 27 ) ! NO3=O+NO2 & + RXRAT( 373 ) ! BRO=O+BR & + RXRAT( 421 ) ! IO=O+I P12 = YC0( O ) + P12 * DTC L12 = RKI( 2 ) ! O=O3 & + RKI( 4 ) * YC ( NO ) ! O+NO=NO2 & + RKI( 5 ) * YC ( NO2 ) ! O+NO2=NO & + RKI( 6 ) * YC ( NO2 ) ! O+NO2=NO3 & + RKI( 7 ) * YC ( O3 ) ! O+O3= & + RKI( 14 ) * YC ( OH ) ! O+OH=HO2 & + RKI( 15 ) * YC ( HO2 ) ! O+HO2=OH & + RKI( 23 ) * YC ( H2O2 ) ! O+H2O2=OH+HO2 & + RKI( 31 ) * YC ( NO3 ) ! O+NO3=NO2 & + RKI( 99 ) * YC ( FORM ) ! O+FORM=OH+HO2+CO & + RKI( 105 ) * YC ( ALD2 ) ! O+ALD2=C2O3+OH & + RKI( 109 ) * YC ( ALDX ) ! O+ALDX=CXO3+OH & + RKI( 137 ) * YC ( ETH ) ! O+ETH=FORM+HO2+CO+... & + RKI( 141 ) * YC ( OLE ) ! O+OLE=0.2000D+00*ALD2+... & + RKI( 145 ) * YC ( IOLE ) ! O+IOLE=0.1240D+... & + RKI( 150 ) * YC ( ISOP ) ! O+ISOP=0.7500D+... & + RKI( 171 ) * YC ( TERP ) ! O+TERP=0.1500D+... & + RKI( 175 ) * YC ( APIN ) ! O+APIN=0.1500D+... L12 = 1.0D0 + L12 * DTC ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Solution section ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c..compute reciprocal of loss terms L1_INV = 1.0D0 / L1 L2_INV = 1.0D0 / L2 L3_INV = 1.0D0 / L3 L12_INV = 1.0D0 / L12 c..compute specific k*delta t terms RK1 = RKI( 1 ) * DTC ! J1 (NO2+hv=NO+O3P) RK2 = RKI( 2 ) * DTC ! J2 (O3P+O2=O3) RK3 = RKI( 3 ) * DTC ! k1_3 (NO+O3=NO2) c..compute terms that are used to calulate a,b & c T1 = RK1 * L2_INV ! J1 / ( 1.0 + Lno2 * dt ) T2 = R1_2 * L2_INV ! r1,2 / ( 1.0 + Lno2 * dt) T3 = R2_1 * L1_INV ! r2,1 / ( 1.0 + Lno * dt) T4 = RK2 * L12_INV ! J2 / ( 1.0 + Lo3p * dt ) T5 = T3 * P1 - T2 * P2 ! T3 * Pno - T2 * Pno2 F1 = 1.0D0 + T2 + T3 ! factor in calculating a & b F2 = T1 * T4 ! factor in calculating a & b F3 = L3 * L1 + RK3 * P1 ! (1 + Lo3 * dt) (1 + lno * dt ) ! + k1,3 * dt * Pno PO3 = P3 + P12 * T4 A = RK3 * ( F1 - F2 ) B = F1 * F3 + RK3 * ( F2 * ( P2 - P1 ) + PO3 + T5 ) C = RK3 * P1 * ( PO3 + P2 * F2 ) + F3 * T5 Q = -0.5D0 * ( B + SIGN( 1.0D0, B ) * SQRT( B * B - 4.0D0 * A * C ) ) XX = MAX( Q / A , C / Q ) ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Species solutions c [NO] = ( P1 + x ) / ( 1 + L1 ) c [NO2] = ( P2 - x ) / ( 1 + L2 ) c [O3 ] = ( P3 + Ko3p->O3 ) / (1 + K1,3 * [NO] + L3 ) c [O3P] = ( P12 + J1 * [NO2] ) / ( 1 + L12 ) c [O1D] = ( yc0(o1d) + Ko3->o1d * [O3] *dtc) / ( 1 + O1D_S*dtc ) ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc YCP( NO ) = MAX( 0.0D0, ( P1 + XX ) * L1_INV ) YCP( NO2 ) = MAX( 0.0D0, ( P2 - XX ) * L2_INV ) S1 = P12 + RK1 * YCP( NO2 ) S2 = T4 * S1 YCP( O3 ) = ( P3 + S2 ) / ( L3 + RK3 * YCP( NO ) ) YCP( O ) = S1 * L12_INV YCP( O1D ) = ( YC0( O1D ) + RKI( 9 ) * YCP( O3 ) * DTC ) & / ( 1.0D0 + O1D_S * DTC ) RETURN END ================================================ FILE: CCTM/src/gas/ebi_cb6r5m_ae7_aq/hrg2.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE HRG2( DTC ) C********************************************************************** C C FUNCTION: To solve for the concentration of HO, HO2, HONO, and C HNO4 alebraically. C C PRECONDITIONS: For the CB6R5M_AE7_AQ mechanism C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by EBI solver program, Apr 5, 2022 C C 18 Jul 14 B.Hutzell: revised to use real(8) variables C********************************************************************** USE HRDATA IMPLICIT NONE C..INCLUDES: None C..ARGUMENTS: REAL( 8 ), INTENT( IN ) :: DTC ! Time step C..PARAMETERS: None C..EXTERNAL FUNCTIONS: NONE C..SAVED LOCAL VARIABLES: ! CHARACTER( 16 ), SAVE :: PNAME = 'HRG2' ! Program name C..SCRATCH LOCAL VARIABLES: REAL( 8 ) :: O1D_S ! sum of O1D loss frequencies REAL( 8 ) :: OH_S ! stoich coeff for OH from O1D+H2O or H2 REAL( 8 ) :: HO2_S ! stoich coeff for HO2 from O1D+H2 rxn REAL( 8 ) :: XOH_S ! stoich coeff for OH & HONO from NO2EX loss rxn REAL( 8 ) :: R4_19 ! production of OH from HONO REAL( 8 ) :: R19_4 ! production of HONO from OH REAL( 8 ) :: R4_5 ! production of OH from HO2 REAL( 8 ) :: R5_4 ! production of HO2 from OH REAL( 8 ) :: R5_21 ! production of HO2 from HNO4 REAL( 8 ) :: R21_5 ! production of HNO4 from HO2 REAL( 8 ) :: P4, P5, P19, P21 ! species production form other paths REAL( 8 ) :: L4, L5, L19, L21 ! species loss terms REAL( 8 ) :: A, B, C ! coeffs of quadratic eq. for HO2 REAL( 8 ) :: Q ! intermediate term REAL( 8 ) :: T1, T2, T3 ! intermediate terms REAL( 8 ) :: L21_INV ! reciprocal of HNO4 loss term C********************************************************************** c..stoichiometric coefficient for production of HOX from O3 via O1D O1D_S = RKI( 10 ) ! O1D=O & + RKI( 11 ) ! O1D=0.2000D+01*OH OH_S = 2.0000D+00 * RKI( 11 ) ! O1D=0.2000D+01*OH OH_S = OH_S / O1D_S c..Production of HO from HO2 (r4,5 terms ) R4_5 = RKI( 13 ) * YC ( O3 ) ! HO2+O3=OH & + RKI( 15 ) * YC ( O ) ! HO2+O=OH & + RKI( 25 ) * YC ( NO ) ! HO2+NO=OH+NO2 & + RKI( 33 ) * YC ( NO3 ) ! HO2+NO3=OH+NO2 & + 5.0000D-01 * RKI( 57 ) * YC ( C2O3 ) ! HO2+C2O3=0.5000D+... & + 5.0000D-01 * RKI( 65 ) * YC ( CXO3 ) ! HO2+CXO3=0.5000D+... & + 2.0000D-01 * RKI( 104 ) * YC ( HCO3 ) ! HO2+HCO3=0.2000D+... & + 1.2000D-01 * RKI( 152 ) * YC ( ISO2 ) ! HO2+ISO2=0.1200D+... & + 1.7500D-01 * RKI( 166 ) * YC ( EPX2 ) ! HO2+EPX2=0.1125D+... & + 5.0000D-01 * RKI( 215 ) * YC ( OPO3 ) ! HO2+OPO3=0.5000D+... R4_5 = R4_5 * DTC c..Production of HO from HONO (r4,19 terms ) R4_19 = RKI( 43 ) ! HONO=OH+NO R4_19 = R4_19 * DTC c..Remaining HO production P4 = OH_S * RXRAT( 9 ) ! O1D=0.2000D+01*OH & + 2.0000D+00 * RXRAT( 21 ) ! H2O2=0.2000D+01*OH & + RXRAT( 23 ) ! H2O2+O=OH+HO2 & + RXRAT( 47 ) ! HNO3=OH+NO2 & + 4.1000D-01 * RXRAT( 50 ) ! PNA=0.4100D+00*OH+0.5900D+... & + RXRAT( 88 ) ! MEPX=OH+RO2+MEO2 & + RXRAT( 90 ) ! ROOH=OH+HO2 & + RXRAT( 99 ) ! FORM+O=OH+HO2+CO & + RXRAT( 105 ) ! ALD2+O=OH+C2O3 & + RXRAT( 109 ) ! ALDX+O=OH+CXO3 & + 1.9000D-01 * RXRAT( 114 ) ! GLYD=0.1900D+00*OH+0.1400D+... & + 3.0000D-01 * RXRAT( 137 ) ! ETH+O=0.3000D+00*OH+HO2+CO+... & + 1.7000D-01 * RXRAT( 139 ) ! ETH+O3=0.1700D+00*OH+... & + 1.0000D-01 * RXRAT( 141 ) ! OLE+O=0.1000D+00*OH+... & + 3.3400D-01 * RXRAT( 143 ) ! OLE+O3=0.3340D+00*OH+... & + 5.0000D-01 * RXRAT( 147 ) ! IOLE+O3=0.5000D+00*OH+... & + 2.6600D-01 * RXRAT( 156 ) ! ISOP+O3=0.2660D+00*OH+... & + 4.6100D-01 * RXRAT( 159 ) ! ISPD+O3=0.4610D+00*OH+... & + RXRAT( 163 ) ! HPLD=OH+ISPD & + 9.5000D-01 * RXRAT( 166 ) ! HO2+EPX2=0.1125D+01*OH+... & + 1.2500D-01 * RXRAT( 167 ) ! EPX2+NO=0.1250D+00*OH+... & + 1.0000D-01 * RXRAT( 168 ) ! EPX2+C2O3=0.1000D+00*OH+... & + 1.2500D-01 * RXRAT( 169 ) ! EPX2+RO2=0.1250D+00*OH+... & + 5.7000D-01 * RXRAT( 173 ) ! TERP+O3=0.5700D+00*OH+... & + 5.7000D-01 * RXRAT( 177 ) ! APIN+O3=0.5700D+00*OH+... & + 5.0000D-01 * RXRAT( 204 ) ! XOPN+O3=0.5000D+00*OH+... & + 5.0000D-01 * RXRAT( 208 ) ! OPEN+O3=0.5000D+00*OH+... & + RXRAT( 227 ) ! HOCL=OH+CL & + 1.0000D-01 * RXRAT( 249 ) ! CL+TOL=0.1000D+00*OH+... & + 2.4400D-01 * RXRAT( 250 ) ! CL+XYLMN=0.2440D+00*OH+... & + 2.4400D-01 * RXRAT( 251 ) ! CL+NAPH=0.2440D+00*OH+... & + RXRAT( 372 ) ! HOBR=OH+BR & + RXRAT( 420 ) ! HOI=OH+I P4 = YC0( OH ) + P4 * DTC c..Production of HO2 from OH ( r5,4 terms ) R5_4 = RKI( 12 ) * YC ( O3 ) ! OH+O3=HO2 & + RKI( 14 ) * YC ( O ) ! OH+O=HO2 & + RKI( 22 ) * YC ( H2O2 ) ! OH+H2O2=HO2 & + RKI( 32 ) * YC ( NO3 ) ! OH+NO3=HO2+NO2 & + RKI( 52 ) * YC ( SO2 ) ! OH+SO2=HO2+SULF+... & + RKI( 93 ) * YC ( FACD ) ! OH+FACD=HO2 & + RKI( 96 ) * YC ( FORM ) ! OH+FORM=HO2+CO & + 2.0000D-01 * RKI( 113 ) * YC ( GLYD ) ! OH+GLYD=0.2000D+... & + RKI( 116 ) * YC ( GLY ) ! OH+GLY=HO2+... & + RKI( 122 ) ! OH=HO2 & + RKI( 123 ) * YC ( CO ) ! OH+CO=HO2 & + RKI( 126 ) * YC ( MEOH ) ! OH+MEOH=HO2+FORM & + 9.0000D-01 * RKI( 127 ) * YC ( ETOH ) ! OH+ETOH=0.9000D+... & + 3.0000D-01 * RKI( 136 ) * YC ( ETHY ) ! OH+ETHY=0.3000D+... & + 1.3700D-01 * RKI( 158 ) * YC ( ISPD ) ! OH+ISPD=0.1370D+... & + 5.3000D-01 * RKI( 179 ) * YC ( BENZENE ) ! OH+BENZENE=... & + 1.8000D-01 * RKI( 184 ) * YC ( TOL ) ! OH+TOL=0.1800D+... & + 1.5500D-01 * RKI( 189 ) * YC ( XYLMN ) ! OH+XYLMN=0.1550D+... & + 1.5500D-01 * RKI( 190 ) * YC ( NAPH ) ! OH+NAPH=0.1550D+... & + RKI( 195 ) * YC ( CRES ) ! OH+CRES=HO2+... & + 2.0000D-01 * RKI( 210 ) * YC ( CAT1 ) ! OH+CAT1=0.2000D+... & + RKI( 354 ) * YC ( BRO ) ! OH+BRO=HO2+BR & + RKI( 366 ) * YC ( MB2 ) ! OH+MB2=HO2+... & + RKI( 369 ) * YC ( MBC ) ! OH+MBC=HO2+CL+CO+BR R5_4 = R5_4 * DTC c..Production of HO2 from HNO4 (r5,21 term ) R5_21 = RKI( 49 ) ! PNA=HO2+NO2 & + 5.9000D-01 * RKI( 50 ) ! PNA=0.5900D+... R5_21 = R5_21 * DTC c..Remaining HO2 production terms P5 = RXRAT( 23 ) ! H2O2+O=HO2+OH & + RXRAT( 71 ) ! MEO2+NO=HO2+FORM+NO2 & + 9.0000D-01 * RXRAT( 73 ) ! MEO2+C2O3=0.9000D+00*HO2+... & + 3.7000D-01 * RXRAT( 74 ) ! MEO2+RO2=0.3700D+00*HO2+... & + RXRAT( 75 ) ! XO2H+NO=HO2+NO2 & + 8.0000D-01 * RXRAT( 77 ) ! XO2H+C2O3=0.8000D+00*HO2+... & + 6.0000D-01 * RXRAT( 78 ) ! XO2H+RO2=0.6000D+00*HO2+RO2 & + 8.0000D-01 * RXRAT( 85 ) ! XO2N+C2O3=0.8000D+00*HO2+... & + RXRAT( 90 ) ! ROOH=HO2+OH & + 2.0000D+00 * RXRAT( 97 ) ! FORM=0.2000D+01*HO2+CO & + RXRAT( 99 ) ! FORM+O=HO2+OH+CO & + RXRAT( 100 ) ! FORM+NO3=HO2+HNO3+CO & + RXRAT( 102 ) ! HCO3=HO2+FORM & + RXRAT( 103 ) ! HCO3+NO=HO2+NO2+FACD & + RXRAT( 108 ) ! ALD2=HO2+RO2+CO+MEO2 & + RXRAT( 112 ) ! ALDX=HO2+XO2H+RO2+CO+ALD2 & + 1.4000D+00 * RXRAT( 114 ) ! GLYD=0.1400D+01*HO2+... & + 2.0000D+00 * RXRAT( 117 ) ! GLY=0.2000D+01*HO2+0.2000D+... & + RXRAT( 118 ) ! GLY+NO3=HO2+0.1500D+01*CO+... & + RXRAT( 119 ) ! MGLY=HO2+C2O3+CO & + RXRAT( 134 ) ! ROR=HO2+KET & + RXRAT( 137 ) ! ETH+O=HO2+0.3000D+00*OH+CO+... & + 2.7000D-01 * RXRAT( 139 ) ! ETH+O3=0.2700D+00*HO2+... & + 1.0000D-01 * RXRAT( 141 ) ! OLE+O=0.1000D+00*HO2+... & + 8.0000D-02 * RXRAT( 143 ) ! OLE+O3=0.8000D-01*HO2+... & + 2.5000D-01 * RXRAT( 150 ) ! ISOP+O=0.2500D+00*HO2+... & + 8.1800D-01 * RXRAT( 151 ) ! ISO2+NO=0.8180D+00*HO2+... & + 7.2800D-01 * RXRAT( 153 ) ! ISO2+C2O3=0.7280D+00*HO2+... & + 7.2800D-01 * RXRAT( 154 ) ! ISO2+RO2=0.7280D+00*HO2+... & + RXRAT( 155 ) ! ISO2=HO2+HPLD & + 6.6000D-02 * RXRAT( 156 ) ! ISOP+O3=0.6600D-01*HO2+... & + 3.9800D-01 * RXRAT( 159 ) ! ISPD+O3=0.3980D+00*HO2+... & + 7.6000D-01 * RXRAT( 161 ) ! ISPD=0.7600D+00*HO2+... & + 8.2500D-01 * RXRAT( 167 ) ! EPX2+NO=0.8250D+00*HO2+... & + 6.6000D-01 * RXRAT( 168 ) ! EPX2+C2O3=0.6600D+00*HO2+... & + 8.2500D-01 * RXRAT( 169 ) ! EPX2+RO2=0.8250D+00*HO2+... & + 9.1800D-01 * RXRAT( 180 ) ! BZO2+NO=0.9180D+00*HO2+... & + RXRAT( 181 ) ! BZO2+C2O3=HO2+OPEN+GLY+... & + RXRAT( 183 ) ! BZO2+RO2=HO2+OPEN+GLY+RO2 & + 8.6000D-01 * RXRAT( 185 ) ! TO2+NO=0.8600D+00*HO2+... & + RXRAT( 186 ) ! TO2+C2O3=HO2+0.5200D+... & + RXRAT( 188 ) ! TO2+RO2=HO2+0.5200D+... & + 8.6000D-01 * RXRAT( 191 ) ! XLO2+NO=0.8600D+00*HO2+... & + RXRAT( 193 ) ! XLO2+C2O3=HO2+0.7700D+... & + RXRAT( 194 ) ! XLO2+RO2=HO2+0.7700D+... & + RXRAT( 201 ) ! CRON=HO2+HONO+FORM+OPEN & + 7.0000D-01 * RXRAT( 202 ) ! XOPN=0.7000D+00*HO2+XO2H+... & + RXRAT( 206 ) ! OPEN=HO2+OPO3+CO & + 5.6000D-01 * RXRAT( 208 ) ! OPEN+O3=0.5600D+00*HO2+... & + 8.0000D-01 * RXRAT( 212 ) ! OPO3+NO=0.8000D+00*HO2+... & + RXRAT( 232 ) ! CLO+MEO2=HO2+FORM+CL & + RXRAT( 234 ) ! FMCL=HO2+CO+CL & + RXRAT( 239 ) ! CL+ETH=HO2+0.2000D+01*XO2+... & + RXRAT( 240 ) ! CL+OLE=HO2+0.3300D+00*ALD2+... & + RXRAT( 241 ) ! CL+IOLE=HO2+0.7000D+... & + RXRAT( 243 ) ! CL+FORM=HO2+HCL+CO & + RXRAT( 246 ) ! CL+MEOH=HO2+HCL+FORM & + RXRAT( 247 ) ! CL+ETOH=HO2+HCL+ALD2 & + 1.8000D-01 * RXRAT( 249 ) ! CL+TOL=0.1800D+00*HO2+... & + 1.5500D-01 * RXRAT( 250 ) ! CL+XYLMN=0.1550D+00*HO2+... & + 1.5500D-01 * RXRAT( 251 ) ! CL+NAPH=0.1550D+00*HO2+... & + RXRAT( 359 ) ! FORM+BR=HO2+HBR+CO & + RXRAT( 378 ) ! FMBR=HO2+CO+BR & + RXRAT( 379 ) ! MB3=HO2+0.3000D+01*BR+CO & + RXRAT( 380 ) ! MB2C=HO2+CL+0.2000D+01*BR+CO & + RXRAT( 381 ) ! MBC2=HO2+0.2000D+01*CL+BR+CO P5 = YC0( HO2 ) + P5 * DTC c..Production of HONO from OH (r19,4 terms ) R19_4 = RKI( 40 ) * YC( NO ) * DTC ! OH+NO=HONO c..Remaining HONO production terms P19 = 2.0000D+00 * RXRAT( 41 ) ! NO+NO2=0.2000D+01*HONO & + RXRAT( 201 ) ! CRON=HONO+HO2+FORM+OPEN & + 5.0000D-01 * RXRAT( 278 ) ! NO2=0.5000D+00*HONO+... & + RXRAT( 388 ) ! BRNO2+ACLJ=HONO+BRCL & + RXRAT( 389 ) ! BRNO2+ABRJ=HONO+BR2 & + RXRAT( 445 ) ! INO2+ACLJ=HONO+ICL & + RXRAT( 446 ) ! INO2+ABRJ=HONO+IBR P19 = YC0( HONO ) + P19 * DTC c..Production of PNA from HO2 (r21,5 term ) R21_5 = RKI( 48 ) * YCP( NO2 ) * DTC ! HO2+NO2=HNO4 c..Remaining PNA production terms P21 = YC0( PNA ) c..OH loss terms not in R5_4 & R19_4 L4 = 2.0000D+00 * RKI( 16 ) * YC ( OH ) ! OH+OH=O & + 2.0000D+00 * RKI( 17 ) * YC ( OH ) ! OH+OH=H2O2 & + RKI( 18 ) * YC ( HO2 ) ! OH+HO2= & + RKI( 44 ) * YC ( HONO ) ! OH+HONO=NO2 & + RKI( 45 ) * YC ( NO2 ) ! OH+NO2=HNO3 & + RKI( 46 ) * YC ( HNO3 ) ! OH+HNO3=NO3 & + RKI( 51 ) * YC ( PNA ) ! OH+PNA=NO2 & + 6.0000D-01 * RKI( 87 ) * YC ( MEPX ) ! OH+MEPX=0.6000D+... & + 6.0000D-01 * RKI( 89 ) * YC ( ROOH ) ! OH+ROOH=0.5400D+... & + RKI( 91 ) * YC ( NTR1 ) ! OH+NTR1=NTR2 & + RKI( 94 ) * YC ( AACD ) ! OH+AACD=MEO2+RO2 & + RKI( 95 ) * YC ( PACD ) ! OH+PACD=C2O3 & + RKI( 106 ) * YC ( ALD2 ) ! OH+ALD2=C2O3 & + RKI( 110 ) * YC ( ALDX ) ! OH+ALDX=CXO3 & + 8.0000D-01 * RKI( 113 ) * YC ( GLYD ) ! OH+GLYD=0.2000D+... & + RKI( 121 ) * YC ( MGLY ) ! OH+MGLY=C2O3+CO & + RKI( 124 ) ! OH=MEO2+RO2 & + RKI( 125 ) * YC ( ETHA ) ! OH+ETHA=0.9910D+... & + 1.0000D-01 * RKI( 127 ) * YC ( ETOH ) ! OH+ETOH=0.9000D+... & + RKI( 130 ) * YC ( ACET ) ! OH+ACET=FORM+... & + RKI( 131 ) * YC ( PRPA ) ! OH+PRPA=XPRP & + RKI( 132 ) * YC ( PAR ) ! OH+PAR=XPAR & + RKI( 138 ) * YC ( ETH ) ! OH+ETH=XO2H+RO2+... & + RKI( 142 ) * YC ( OLE ) ! OH+OLE=0.7810D+... & + RKI( 146 ) * YC ( IOLE ) ! OH+IOLE=0.1300D+... & + RKI( 149 ) * YC ( ISOP ) ! OH+ISOP=ISO2+RO2+... & + 8.6300D-01 * RKI( 158 ) * YC ( ISPD ) ! OH+ISPD=0.1370D+... & + 6.7000D-02 * RKI( 162 ) * YC ( ISPX ) ! OH+ISPX=0.9040D+... & + RKI( 165 ) * YC ( EPOX ) ! OH+EPOX=EPX2+RO2 & + RKI( 170 ) * YC ( INTR ) ! OH+INTR=0.6300D+... & + RKI( 172 ) * YC ( TERP ) ! OH+TERP=0.7500D+... & + RKI( 176 ) * YC ( APIN ) ! OH+APIN=0.7500D+... & + 3.5200D-01 * RKI( 179 ) * YC ( BENZENE ) ! OH+BENZENE=... & + 7.2000D-01 * RKI( 184 ) * YC ( TOL ) ! OH+TOL=0.1800D+... & + 6.0100D-01 * RKI( 189 ) * YC ( XYLMN ) ! OH+XYLMN=0.1550D+... & + 6.0100D-01 * RKI( 190 ) * YC ( NAPH ) ! OH+NAPH=0.1550D+... & + RKI( 199 ) * YC ( CRON ) ! OH+CRON=NTR2+... & + RKI( 203 ) * YC ( XOPN ) ! OH+XOPN=MGLY+... & + RKI( 207 ) * YC ( OPEN ) ! OH+OPEN=0.6000D+... & + 8.0000D-01 * RKI( 210 ) * YC ( CAT1 ) ! OH+CAT1=0.2000D+... & + RKI( 218 ) * YC ( OPAN ) ! OH+OPAN=0.5000D+... & + RKI( 219 ) * YC ( PANX ) ! OH+PANX=ALD2+NO2 & + RKI( 220 ) * YC ( ECH4 ) ! OH+ECH4=MEO2+RO2 & + RKI( 225 ) * YC ( NO2 ) ! OH+NO2=HNO3 & + RKI( 233 ) * YC ( FMCL ) ! OH+FMCL=CL+CO & + RKI( 248 ) * YC ( HCL ) ! OH+HCL=CL & + RKI( 348 ) * YC ( HBR ) ! OH+HBR=BR & + RKI( 353 ) * YC ( BR2 ) ! OH+BR2=HOBR+BR & + RKI( 363 ) * YC ( FMBR ) ! OH+FMBR=BR+CO & + RKI( 365 ) * YC ( MB3 ) ! OH+MB3=0.3000D+... & + RKI( 367 ) * YC ( MB2C ) ! OH+MB2C=0.2000D+... & + RKI( 368 ) * YC ( MBC2 ) ! OH+MBC2=BR+... & + RKI( 393 ) * YC ( I2 ) ! OH+I2=HOI+I & + RKI( 394 ) * YC ( HI ) ! OH+HI=I & + RKI( 395 ) * YC ( HOI ) ! OH+HOI=IO & + RKI( 417 ) * YC ( CH3I ) ! OH+CH3I=I+FORM & + RKI( 449 ) * YC ( DMS ) ! OH+DMS=SO2+MEO2+FORM & + RKI( 450 ) * YC ( DMS ) ! OH+DMS=0.7500D+... L4 = 1.0D0 + L4 * DTC + R5_4 + R19_4 c..HO2 loss terms not included in R4_5 & R21_5 (except for HO2+HO2 ) L5 = RKI( 18 ) * YC ( OH ) ! HO2+OH= & + 5.0000D-01 * RKI( 57 ) * YC ( C2O3 ) ! HO2+C2O3=0.5000D+... & + 5.0000D-01 * RKI( 65 ) * YC ( CXO3 ) ! HO2+CXO3=0.5000D+... & + RKI( 72 ) * YC ( MEO2 ) ! HO2+MEO2=0.9000D+... & + RKI( 76 ) * YC ( XO2H ) ! HO2+XO2H=ROOH & + RKI( 80 ) * YC ( XO2 ) ! HO2+XO2=ROOH & + RKI( 84 ) * YC ( XO2N ) ! HO2+XO2N=ROOH & + RKI( 101 ) * YC ( FORM ) ! HO2+FORM=HCO3 & + 6.0000D-01 * RKI( 104 ) * YC ( HCO3 ) ! HO2+HCO3=0.2000D+... & + 7.6000D-01 * RKI( 152 ) * YC ( ISO2 ) ! HO2+ISO2=0.1200D+... & + RKI( 182 ) * YC ( BZO2 ) ! HO2+BZO2= & + RKI( 187 ) * YC ( TO2 ) ! HO2+TO2= & + RKI( 192 ) * YC ( XLO2 ) ! HO2+XLO2= & + RKI( 198 ) * YC ( CRO ) ! HO2+CRO=CRES & + 5.0000D-01 * RKI( 215 ) * YC ( OPO3 ) ! HO2+OPO3=0.5000D+... & + RKI( 231 ) * YC ( CLO ) ! HO2+CLO=HOCL & + RKI( 346 ) * YC ( BRO ) ! HO2+BRO=HOBR & + RKI( 347 ) * YC ( BR ) ! HO2+BR=HBR & + RKI( 392 ) * YC ( I ) ! HO2+I=HI & + RKI( 396 ) * YC ( IO ) ! HO2+IO=HOI L5 = 1.0D0 + L5 * DTC + R4_5 + R21_5 c..HONO loss terms not included in R4_19 L19 = 2.0000D+00 * RKI( 42 ) * YC ( HONO ) ! HONO+HONO=NO+NO2 & + RKI( 44 ) * YC ( OH ) ! HONO+OH=NO2 L19 = 1.0D0 + L19 * DTC + R4_19 c..PNA loss terms not included in R5_21 L21 = 4.1000D-01 * RKI( 50 ) ! PNA=0.5900D+... & + RKI( 51 ) * YC ( OH ) ! PNA+OH=NO2 L21 = 1.0D0 + L21 * DTC + R5_21 ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Solution section ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c..compute terms used to calculate a,b & c L21_INV = 1.0D0 / L21 T1 = 1.0D0 / ( L4 * L19 - R4_19 * R19_4 ) T2 = R5_4 * T1 T3 = R5_21 * L21_INV c..solve quadratic equation for HO2 A = 2.0D0 * ( RKI( 19 ) + RKI( 20 ) ) * DTC B = L5 - T3 * R21_5 - T2 * R4_5 * L19 C = P5 + T3 * P21 + T2 * ( P4 * L19 + P19 * R4_19 ) Q = -0.5D0 * ( B + SIGN( 1.0D0, B ) * SQRT( B * B + 4.0D0 * A * C ) ) YCP( HO2 ) = MAX( Q / A , -C / Q ) c..compute remaining species concentrations YCP( OH ) = ( ( P4 + R4_5 * YCP( HO2 ) ) * L19 + R4_19 * P19 ) * T1 YCP( PNA ) = ( P21 + R21_5 * YCP( HO2 ) ) * L21_INV YCP( HONO ) = ( P19 + R19_4 * YCP( OH ) ) / L19 RETURN END ================================================ FILE: CCTM/src/gas/ebi_cb6r5m_ae7_aq/hrg3.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE HRG3( DTC ) C********************************************************************** C C FUNCTION: To solve for the concentration of C2O3 and PAN C C PRECONDITIONS: For the CB6R5M_AE7_AQ mechanism C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by EBI solver program, Apr 5, 2022 C C 18 Jul 14 B.Hutzell: revised to use real(8) variables C********************************************************************** USE HRDATA IMPLICIT NONE C..INCLUDES: NONE C..ARGUMENTS: REAL( 8 ), INTENT( IN ) :: DTC ! Time step C..PARAMETERS: NONE C..EXTERNAL FUNCTIONS: NONE C..SAVED LOCAL VARIABLES: ! CHARACTER( 16 ), SAVE :: PNAME = 'HRG3' ! Program name C..SCRATCH LOCAL VARIABLES: REAL( 8 ) :: A, B, C, Q ! Quadratic equation terms REAL( 8 ) :: CMN ! Temp scalar REAL( 8 ) :: L8 ! Loss of CCO_O2 REAL( 8 ) :: L9 ! Loss of PAN REAL( 8 ) :: P8 ! Production of CCO_O2 REAL( 8 ) :: K8_8 ! Kc2o3+c2o3 * delta t REAL( 8 ) :: R8_9 ! Kpan-->c2o3 * delta t REAL( 8 ) :: R9_8 ! Kc2o3+no2-->pan * [NO2] * delta t C********************************************************************** c..Production of C2O3 (except from PAN ) P8 = RXRAT( 95 ) ! PACD+OH=C2O3 & + RXRAT( 105 ) ! ALD2+O=C2O3+OH & + RXRAT( 106 ) ! ALD2+OH=C2O3 & + RXRAT( 107 ) ! ALD2+NO3=C2O3+HNO3 & + 8.0000D-01 * RXRAT( 113 ) ! GLYD+OH=0.8000D+00*C2O3+... & + RXRAT( 115 ) ! GLYD+NO3=C2O3+HNO3 & + RXRAT( 119 ) ! MGLY=C2O3+HO2+CO & + RXRAT( 120 ) ! MGLY+NO3=C2O3+HNO3+XO2+RO2 & + RXRAT( 121 ) ! MGLY+OH=C2O3+CO & + 5.0000D-01 * RXRAT( 128 ) ! KET=0.5000D+00*C2O3+... & + 6.2000D-01 * RXRAT( 129 ) ! ACET=0.6200D+00*C2O3+... & + RXRAT( 130 ) ! ACET+OH=C2O3+FORM+XO2+RO2 & + 2.6900D-01 * RXRAT( 158 ) ! ISPD+OH=0.2690D+00*C2O3+... & + 1.4300D-01 * RXRAT( 159 ) ! ISPD+O3=0.1430D+00*C2O3+... & + 2.0800D-01 * RXRAT( 161 ) ! ISPD=0.2080D+00*C2O3+... & + 3.0000D-01 * RXRAT( 202 ) ! XOPN=0.3000D+00*C2O3+XO2H+... & + 6.0000D-01 * RXRAT( 204 ) ! XOPN+O3=0.6000D+00*C2O3+... & + 1.2000D-01 * RXRAT( 208 ) ! OPEN+O3=0.1200D+00*C2O3+... & + RXRAT( 244 ) ! CL+ALD2=C2O3+HCL & + RXRAT( 360 ) ! ALD2+BR=C2O3+HBR c..Loss frequency of C2O3 ( not including C2O3 + C2O3 ) L8 = RKI( 53 ) * YC ( NO ) ! C2O3+NO=NO2+MEO2+RO2 & + RKI( 54 ) * YC ( NO2 ) ! C2O3+NO2=PAN & + RKI( 57 ) * YC ( HO2 ) ! C2O3+HO2=0.3700D+... & + RKI( 58 ) * YC ( RO2 ) ! C2O3+RO2=MEO2 & + RKI( 60 ) * YC ( CXO3 ) ! C2O3+CXO3=MEO2+... & + RKI( 73 ) * YC ( MEO2 ) ! C2O3+MEO2=FORM+... & + RKI( 77 ) * YC ( XO2H ) ! C2O3+XO2H=... & + RKI( 81 ) * YC ( XO2 ) ! C2O3+XO2=0.8000D+... & + RKI( 85 ) * YC ( XO2N ) ! C2O3+XO2N=... & + RKI( 153 ) * YC ( ISO2 ) ! C2O3+ISO2=... & + RKI( 168 ) * YC ( EPX2 ) ! C2O3+EPX2=... & + RKI( 181 ) * YC ( BZO2 ) ! C2O3+BZO2=GLY+... & + RKI( 186 ) * YC ( TO2 ) ! C2O3+TO2=0.4800D+... & + RKI( 193 ) * YC ( XLO2 ) ! C2O3+XLO2=... & + RKI( 216 ) * YC ( OPO3 ) ! C2O3+OPO3=MEO2+... c..Loss frequency of PAN L9 = RKI( 55 ) ! PAN=NO2+C2O3 & + RKI( 56 ) ! PAN=0.6000D+... c..K8_8, R8_9, and R9_8 terms K8_8 = RKI( 59 ) * DTC R8_9 = ( RKI( 55 ) & + RKI( 56 ) ) * DTC R9_8 = ( RKI( 54 ) * YC( NO2 ) ) * DTC c..Solution of quadratic equation to get C2O3 & PAN CMN = 1.0 + L9 * DTC A = 2.0D0 * K8_8 * CMN B = CMN * ( 1.0D0 + L8 * DTC ) - R8_9 * R9_8 C = CMN * ( YC0( C2O3 ) + P8 * DTC ) + R8_9 * YC0( PAN ) Q = -0.5D0 * ( B + SIGN( 1.0D0, B ) * SQRT( B * B + 4.0D0 * A * C ) ) YCP( C2O3 ) = MAX( Q / A , -C / Q ) YCP( PAN ) = ( YC0( PAN ) + R9_8 * YCP( C2O3 ) ) / CMN RETURN END ================================================ FILE: CCTM/src/gas/ebi_cb6r5m_ae7_aq/hrg4.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE HRG4( DTC ) C********************************************************************** C C FUNCTION: To solve for the concentration of NO3 and N2O5 C C PRECONDITIONS: For the CB6R5M_AE7_AQ mechanism C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by EBI solver program, Apr 5, 2022 C C 18 Jul 14 B.Hutzell: revised to use real(8) variables C********************************************************************** USE HRDATA IMPLICIT NONE C..INCLUDES: NONE C..ARGUMENTS: REAL( 8 ), INTENT( IN ) :: DTC ! Time step C..PARAMETERS: NONE C..EXTERNAL FUNCTIONS: NONE C..SAVED LOCAL VARIABLES: ! CHARACTER( 16 ), SAVE :: PNAME = 'HRG4' ! Program name C..SCRATCH LOCAL VARIABLES: REAL( 8 ) :: A, B, C, Q ! Quadratic equation terms REAL( 8 ) :: CMN ! Temp scalar REAL( 8 ) :: L15 ! Loss of NO3 REAL( 8 ) :: L16 ! Loss of N2O5 REAL( 8 ) :: P15 ! Production of NO3 REAL( 8 ) :: K15_15 ! Kno3+no3 * delta t REAL( 8 ) :: R15_16 ! Kn2o5-->no3 * delta t REAL( 8 ) :: R16_15 ! Kno3+no2-->n2o5[NO2] * delta t C********************************************************************** c..Production of NO3 (except from N2O5 ) P15 = RKI( 6 ) * YCP( O ) * YCP( NO2 ) ! O+NO2=NO3 & + RKI( 26 ) * YCP( NO2 ) * YCP( O3 ) ! NO2+O3=NO3 & + RKI( 46 ) * YC ( HNO3 ) * YCP( OH ) ! HNO3+OH=NO3 & + 4.1000D-01 * RKI( 50 ) * YC ( PNA ) ! PNA=0.4100D+00*NO3+0.5900D+... & + 4.0000D-01 * RKI( 56 ) * YC ( PAN ) ! PAN=0.4000D+00*NO3+0.6000D+... & + 4.0000D-01 * RKI( 64 ) * YC ( PANX ) ! PANX=0.4000D+00*NO3+... & + 1.8500D-01 * RKI( 170 ) * YC ( INTR ) * YCP( OH ) ! INTR+OH=0.1850D+00*NO3+... & + RKI( 255 ) * YC ( CLNO3 ) ! CLNO3=NO3+CL & + RKI( 352 ) * YC ( BR ) * YC ( BRNO3 ) ! BR+BRNO3=NO3+BR2 & + RKI( 376 ) * YC ( BRNO3 ) ! BRNO3=NO3+BR & + RKI( 401 ) * YC ( INO3 ) * YC ( I ) ! INO3+I=NO3+I2 & + RKI( 425 ) * YC ( INO3 ) ! INO3=NO3+I c..Loss frequency of NO3 ( except NO3 + NO3 if present ) L15 = RKI( 27 ) ! NO3=NO2+O & + RKI( 28 ) ! NO3=NO & + RKI( 29 ) * YCP( NO ) ! NO3+NO=0.2000D+... & + RKI( 30 ) * YCP( NO2 ) ! NO3+NO2=NO+NO2 & + RKI( 31 ) * YCP( O ) ! NO3+O=NO2 & + RKI( 32 ) * YCP( OH ) ! NO3+OH=HO2+NO2 & + RKI( 33 ) * YCP( HO2 ) ! NO3+HO2=OH+NO2 & + RKI( 34 ) * YCP( O3 ) ! NO3+O3=NO2 & + RKI( 36 ) * YCP( NO2 ) ! NO3+NO2=N2O5 & + RKI( 100 ) * YC ( FORM ) ! NO3+FORM=HNO3+HO2+CO & + RKI( 107 ) * YC ( ALD2 ) ! NO3+ALD2=C2O3+HNO3 & + RKI( 111 ) * YC ( ALDX ) ! NO3+ALDX=CXO3+HNO3 & + RKI( 115 ) * YC ( GLYD ) ! NO3+GLYD=HNO3+C2O3 & + RKI( 118 ) * YC ( GLY ) ! NO3+GLY=HNO3+... & + RKI( 120 ) * YC ( MGLY ) ! NO3+MGLY=HNO3+... & + RKI( 140 ) * YC ( ETH ) ! NO3+ETH=0.5000D+... & + RKI( 144 ) * YC ( OLE ) ! NO3+OLE=0.5000D+... & + RKI( 148 ) * YC ( IOLE ) ! NO3+IOLE=0.5000D+... & + RKI( 157 ) * YC ( ISOP ) ! NO3+ISOP=0.3500D+... & + RKI( 160 ) * YC ( ISPD ) ! NO3+ISPD=0.7170D+... & + RKI( 164 ) * YC ( HPLD ) ! NO3+HPLD=HNO3+ISPD & + RKI( 174 ) * YC ( TERP ) ! NO3+TERP=0.4700D+... & + RKI( 178 ) * YC ( APIN ) ! NO3+APIN=0.4700D+... & + RKI( 196 ) * YC ( CRES ) ! NO3+CRES=0.3000D+... & + RKI( 200 ) * YC ( CRON ) ! NO3+CRON=NTR2+... & + RKI( 205 ) * YC ( XOPN ) ! NO3+XOPN=0.5000D+... & + RKI( 209 ) * YC ( OPEN ) ! NO3+OPEN=OPO3+HNO3 & + RKI( 211 ) * YC ( CAT1 ) ! NO3+CAT1=CRO+HNO3 & + RKI( 355 ) * YC ( BR ) ! NO3+BR=BRO+NO2 & + RKI( 400 ) * YC ( I2 ) ! NO3+I2=I+INO3 & + RKI( 435 ) * YC ( HOI ) ! NO3+HOI=IO+HNO3 & + RKI( 451 ) * YC ( DMS ) ! NO3+DMS=SO2+HNO3+... c..Loss frequency of N2O5 L16 = RKI( 37 ) ! N2O5=NO3+NO2 & + RKI( 38 ) ! N2O5=NO2+NO3 & + RKI( 39 ) ! N2O5=0.2000D+01*HNO3 & + RKI( 271 ) ! N2O5=HNO3+H2NO3PIJ & + RKI( 272 ) ! N2O5=HNO3+H2NO3PK c..K15_15, R15_16, and R16_15 terms K15_15 = RKI( 35 ) * DTC R15_16 = ( RKI( 37 ) & + RKI( 38 ) ) * DTC R16_15 = RKI( 36 ) * YCP( NO2 ) * DTC c..Solution of quadratic equation to get NO3 & N2O5 CMN = 1.0D0 + L16 * DTC A = 2.0D0 * K15_15 * CMN B = CMN * ( 1.0D0 + L15 * DTC ) - R15_16 * R16_15 C = CMN * ( YC0( NO3 ) + P15 * DTC ) + R15_16 * YC0( N2O5 ) Q = -0.5D0 * ( B + SIGN( 1.0D0, B ) * SQRT( B * B + 4.0D0 * A * C ) ) YCP( NO3 ) = MAX( Q / A , -C / Q ) YCP( N2O5 ) = ( YC0( N2O5 ) + R16_15 * YCP( NO3 ) ) / CMN RETURN END ================================================ FILE: CCTM/src/gas/ebi_cb6r5m_ae7_aq/hrinit.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE HRINIT C*********************************************************************** C C FUNCTION: To initialize species tolerances, arrays, and indices C C PRECONDITIONS: For the CB6R5M_AE7_AQ mechanism C C RETURN VALUES: None C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by EBI solver program, Apr 21, 2022 C 21 Jun 10 J.Young: convert for Namelist redesign C 18 Jul 14 B.Hutzell: revised to use the RXNS_DATA and RXNS_FUNCTION C modules instead of include files C*********************************************************************** USE UTILIO_DEFN USE HRDATA USE RXNS_DATA USE RXNS_FUNCTION IMPLICIT NONE C.....INCLUDES: Include SUBST_CONST ! common constants C.....ARGUMENTS: NONE C.....PARAMETERS: NONE C.....SAVED VARIABLES: CHARACTER( 16 ), SAVE :: PNAME = 'HRINIT' ! Program name C.....LOCAL VARIABLES: CHARACTER( 132 ) :: MSG ! Log message INTEGER N ! Loop index INTEGER IOS ! Allocate error status C*********************************************************************** N_SPEC = NUMB_MECH_SPC N_RXNS = NRXNS N_SPCL_RKS = 0 ALLOCATE( RKI( NRXNS ), & RKI_SAV( MAX_CELLS_EBI, NRXNS ), & FORWARD_CONV( NUMB_MECH_SPC), & REVERSE_CONV( NUMB_MECH_SPC), & RXRAT( NRXNS ), & RTOL( NUMB_MECH_SPC), & YC( NUMB_MECH_SPC), & YC0( NUMB_MECH_SPC), & YCP( NUMB_MECH_SPC), & PROD( NUMB_MECH_SPC), & LOSS( NUMB_MECH_SPC), & PNEG( N_SPEC), & STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating RKI, RXRAT, RTOL, YC, YC0, YCP, FORWARD_CONV, ' & // 'REVERSE_CONV, PROD, LOSS, or PNEG' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF ALLOCATE( ATMPRES( MAX_CELLS_EBI ), & H2O ( MAX_CELLS_EBI ), & TEMP ( MAX_CELLS_EBI ), & DENSITY( MAX_CELLS_EBI ), & HET ( MAX_CELLS_EBI, NHETERO ), & RJIN ( MAX_CELLS_EBI, NPHOTAB ), & SEAWATER ( MAX_CELLS_EBI ) , & STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating ATMPRES, H2O, TEMP, HET, RJIN, SEAWATER ' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF IF( NSPECIAL .GT. 0 )THEN ALLOCATE( SYC( MAX_CELLS_EBI, NUMB_MECH_SPC ), STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating SYC' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF ALLOCATE( IOLD2NEW( NUMB_MECH_SPC, 1 ), STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating IOLD2NEW' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF DO N = 1, NUMB_MECH_SPC IOLD2NEW( N, 1 ) = N END DO END IF IF( .NOT. MAP_CHEMISTRY_SPECIES() )THEN MSG = 'Detected above error(s) when mapping Chemistry species from CGRID species' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT2 ) END IF DO N = 1, NUMB_MECH_SPC FORWARD_CONV( N ) = 1.0E-3 * MWAIR / SPECIES_MOLWT( N ) REVERSE_CONV( N ) = 1.0E+3 / MWAIR * SPECIES_MOLWT( N ) END DO ! initialize all reaction rates to zero so unused array elements are defined RXRAT = 0.0D0 ! initialize all production and loss rates to zero so unused array elements are defined PROD = 0.0D0 LOSS = 0.0D0 NING1 = 4 NING2 = 4 ALLOCATE( YCCELL( MODEL_SPECIES), STAT = IOS ) ! array for degradation routines IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating YCCELL ' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF c..Allocate and define ebi species N_EBISP = 169 ALLOCATE( EBISP( N_EBISP ), STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating EBISP' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF EBISP( 1 ) = H2O2 EBISP( 2 ) = HNO3 EBISP( 3 ) = SO2 EBISP( 4 ) = SULF EBISP( 5 ) = SULRXN EBISP( 6 ) = MEO2 EBISP( 7 ) = RO2 EBISP( 8 ) = PACD EBISP( 9 ) = AACD EBISP( 10 ) = CXO3 EBISP( 11 ) = ALD2 EBISP( 12 ) = XO2H EBISP( 13 ) = PANX EBISP( 14 ) = FORM EBISP( 15 ) = MEPX EBISP( 16 ) = MEOH EBISP( 17 ) = ROOH EBISP( 18 ) = XO2 EBISP( 19 ) = XO2N EBISP( 20 ) = NTR1 EBISP( 21 ) = NTR2 EBISP( 22 ) = FACD EBISP( 23 ) = CO EBISP( 24 ) = HCO3 EBISP( 25 ) = ALDX EBISP( 26 ) = GLYD EBISP( 27 ) = GLY EBISP( 28 ) = MGLY EBISP( 29 ) = ETHA EBISP( 30 ) = ETOH EBISP( 31 ) = KET EBISP( 32 ) = PAR EBISP( 33 ) = ACET EBISP( 34 ) = PRPA EBISP( 35 ) = XPRP EBISP( 36 ) = XPAR EBISP( 37 ) = ROR EBISP( 38 ) = ETHY EBISP( 39 ) = ETH EBISP( 40 ) = OLE EBISP( 41 ) = IOLE EBISP( 42 ) = ISOP EBISP( 43 ) = ISO2 EBISP( 44 ) = ISOPRXN EBISP( 45 ) = ISPD EBISP( 46 ) = INTR EBISP( 47 ) = ISPX EBISP( 48 ) = HPLD EBISP( 49 ) = OPO3 EBISP( 50 ) = EPOX EBISP( 51 ) = EPX2 EBISP( 52 ) = TERP EBISP( 53 ) = TRPRXN EBISP( 54 ) = TERPNRO2 EBISP( 55 ) = APIN EBISP( 56 ) = BENZENE EBISP( 57 ) = CRES EBISP( 58 ) = BZO2 EBISP( 59 ) = OPEN EBISP( 60 ) = BENZRO2 EBISP( 61 ) = TOL EBISP( 62 ) = TO2 EBISP( 63 ) = TOLRO2 EBISP( 64 ) = XOPN EBISP( 65 ) = XYLMN EBISP( 66 ) = XLO2 EBISP( 67 ) = XYLRO2 EBISP( 68 ) = NAPH EBISP( 69 ) = PAHRO2 EBISP( 70 ) = CRO EBISP( 71 ) = CAT1 EBISP( 72 ) = CRON EBISP( 73 ) = OPAN EBISP( 74 ) = ECH4 EBISP( 75 ) = CL2 EBISP( 76 ) = CL EBISP( 77 ) = HOCL EBISP( 78 ) = CLO EBISP( 79 ) = FMCL EBISP( 80 ) = HCL EBISP( 81 ) = CLNO2 EBISP( 82 ) = CLNO3 EBISP( 83 ) = SVAVB2 EBISP( 84 ) = SVAVB3 EBISP( 85 ) = SVAVB4 EBISP( 86 ) = SVAVB1 EBISP( 87 ) = SESQ EBISP( 88 ) = SESQRXN EBISP( 89 ) = SOAALK EBISP( 90 ) = H2NO3PIJ EBISP( 91 ) = H2NO3PK EBISP( 92 ) = ACLI EBISP( 93 ) = ACLJ EBISP( 94 ) = ACLK EBISP( 95 ) = IEPOXP EBISP( 96 ) = ASO4J EBISP( 97 ) = AISO3J EBISP( 98 ) = AGLYJ EBISP( 99 ) = MTNO3 EBISP( 100 ) = AMTNO3J EBISP( 101 ) = AMTHYDJ EBISP( 102 ) = AAVB2J EBISP( 103 ) = AOLGAJ EBISP( 104 ) = AAVB3J EBISP( 105 ) = AAVB4J EBISP( 106 ) = AISO1J EBISP( 107 ) = AOLGBJ EBISP( 108 ) = AISO2J EBISP( 109 ) = ASQTJ EBISP( 110 ) = APOCI EBISP( 111 ) = APNCOMI EBISP( 112 ) = APOCJ EBISP( 113 ) = APNCOMJ EBISP( 114 ) = PCVOC EBISP( 115 ) = PCSOARXN EBISP( 116 ) = VLVPO1 EBISP( 117 ) = VSVPO1 EBISP( 118 ) = VSVPO2 EBISP( 119 ) = VSVPO3 EBISP( 120 ) = VIVPO1 EBISP( 121 ) = VLVOO1 EBISP( 122 ) = VLVOO2 EBISP( 123 ) = VSVOO2 EBISP( 124 ) = VSVOO3 EBISP( 125 ) = VSVOO1 EBISP( 126 ) = FORM_PRIMARY EBISP( 127 ) = ALD2_PRIMARY EBISP( 128 ) = BUTADIENE13 EBISP( 129 ) = ACROLEIN EBISP( 130 ) = ACRO_PRIMARY EBISP( 131 ) = TOLU EBISP( 132 ) = HG EBISP( 133 ) = HGIIAER EBISP( 134 ) = HGIIGAS EBISP( 135 ) = BR EBISP( 136 ) = BRO EBISP( 137 ) = HOBR EBISP( 138 ) = HBR EBISP( 139 ) = BR2 EBISP( 140 ) = BRNO3 EBISP( 141 ) = BRNO2 EBISP( 142 ) = FMBR EBISP( 143 ) = MB3 EBISP( 144 ) = MB2 EBISP( 145 ) = MB2C EBISP( 146 ) = MBC2 EBISP( 147 ) = MBC EBISP( 148 ) = DMS EBISP( 149 ) = MSA EBISP( 150 ) = BRCL EBISP( 151 ) = ABRJ EBISP( 152 ) = I EBISP( 153 ) = IO EBISP( 154 ) = HI EBISP( 155 ) = I2 EBISP( 156 ) = HOI EBISP( 157 ) = INO EBISP( 158 ) = INO2 EBISP( 159 ) = INO3 EBISP( 160 ) = OIO EBISP( 161 ) = I2O4 EBISP( 162 ) = I2O2 EBISP( 163 ) = I2O3 EBISP( 164 ) = CH3I EBISP( 165 ) = ICL EBISP( 166 ) = IBR EBISP( 167 ) = MI2 EBISP( 168 ) = MIB EBISP( 169 ) = MIC cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Set species tolerances cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc RTOL( NO2 ) = 5.0D-04 RTOL( NO ) = 5.0D-04 RTOL( O ) = 1.0D+00 RTOL( O3 ) = 5.0D-04 RTOL( NO3 ) = 5.0D-04 RTOL( O1D ) = 1.0D+00 RTOL( OH ) = 5.0D-04 RTOL( HO2 ) = 5.0D-04 RTOL( H2O2 ) = 5.0D-04 RTOL( N2O5 ) = 5.0D-04 RTOL( HNO3 ) = 5.0D-04 RTOL( HONO ) = 5.0D-04 RTOL( PNA ) = 5.0D-04 RTOL( SO2 ) = 5.0D-04 RTOL( SULF ) = 1.0D+00 RTOL( SULRXN ) = 1.0D+00 RTOL( C2O3 ) = 5.0D-04 RTOL( MEO2 ) = 5.0D-04 RTOL( RO2 ) = 5.0D-04 RTOL( PAN ) = 5.0D-04 RTOL( PACD ) = 5.0D-04 RTOL( AACD ) = 5.0D-04 RTOL( CXO3 ) = 5.0D-04 RTOL( ALD2 ) = 5.0D-04 RTOL( XO2H ) = 5.0D-04 RTOL( PANX ) = 5.0D-04 RTOL( FORM ) = 5.0D-04 RTOL( MEPX ) = 5.0D-04 RTOL( MEOH ) = 5.0D-04 RTOL( ROOH ) = 5.0D-04 RTOL( XO2 ) = 5.0D-04 RTOL( XO2N ) = 5.0D-04 RTOL( NTR1 ) = 5.0D-04 RTOL( NTR2 ) = 5.0D-04 RTOL( FACD ) = 5.0D-04 RTOL( CO ) = 5.0D-04 RTOL( HCO3 ) = 1.0D+00 RTOL( ALDX ) = 5.0D-04 RTOL( GLYD ) = 5.0D-04 RTOL( GLY ) = 5.0D-04 RTOL( MGLY ) = 5.0D-04 RTOL( ETHA ) = 5.0D-04 RTOL( ETOH ) = 5.0D-04 RTOL( KET ) = 5.0D-04 RTOL( PAR ) = 5.0D-04 RTOL( ACET ) = 5.0D-04 RTOL( PRPA ) = 5.0D-04 RTOL( XPRP ) = 5.0D-04 RTOL( XPAR ) = 5.0D-04 RTOL( ROR ) = 5.0D-04 RTOL( ETHY ) = 5.0D-04 RTOL( ETH ) = 5.0D-04 RTOL( OLE ) = 5.0D-04 RTOL( IOLE ) = 5.0D-04 RTOL( ISOP ) = 5.0D-04 RTOL( ISO2 ) = 5.0D-04 RTOL( ISOPRXN ) = 1.0D+00 RTOL( ISPD ) = 5.0D-04 RTOL( INTR ) = 5.0D-04 RTOL( ISPX ) = 5.0D-04 RTOL( HPLD ) = 5.0D-04 RTOL( OPO3 ) = 5.0D-04 RTOL( EPOX ) = 5.0D-04 RTOL( EPX2 ) = 5.0D-04 RTOL( TERP ) = 5.0D-04 RTOL( TRPRXN ) = 1.0D+00 RTOL( TERPNRO2 ) = 5.0D-04 RTOL( APIN ) = 5.0D-04 RTOL( BENZENE ) = 5.0D-04 RTOL( CRES ) = 5.0D-04 RTOL( BZO2 ) = 5.0D-04 RTOL( OPEN ) = 5.0D-04 RTOL( BENZRO2 ) = 5.0D-04 RTOL( TOL ) = 5.0D-04 RTOL( TO2 ) = 5.0D-04 RTOL( TOLRO2 ) = 5.0D-04 RTOL( XOPN ) = 5.0D-04 RTOL( XYLMN ) = 5.0D-04 RTOL( XLO2 ) = 5.0D-04 RTOL( XYLRO2 ) = 5.0D-04 RTOL( NAPH ) = 5.0D-04 RTOL( PAHRO2 ) = 1.0D+00 RTOL( CRO ) = 5.0D-04 RTOL( CAT1 ) = 5.0D-04 RTOL( CRON ) = 5.0D-04 RTOL( OPAN ) = 5.0D-04 RTOL( ECH4 ) = 5.0D-04 RTOL( CL2 ) = 5.0D-04 RTOL( CL ) = 5.0D-04 RTOL( HOCL ) = 5.0D-04 RTOL( CLO ) = 5.0D-04 RTOL( FMCL ) = 5.0D-04 RTOL( HCL ) = 5.0D-04 RTOL( CLNO2 ) = 5.0D-04 RTOL( CLNO3 ) = 5.0D-04 RTOL( SVAVB2 ) = 5.0D-04 RTOL( SVAVB3 ) = 5.0D-04 RTOL( SVAVB4 ) = 5.0D-04 RTOL( SVAVB1 ) = 5.0D-04 RTOL( SESQ ) = 5.0D-04 RTOL( SESQRXN ) = 1.0D+00 RTOL( SOAALK ) = 5.0D-04 RTOL( H2NO3PIJ ) = 5.0D-04 RTOL( H2NO3PK ) = 5.0D-04 RTOL( ACLI ) = 5.0D-04 RTOL( ACLJ ) = 5.0D-04 RTOL( ACLK ) = 5.0D-04 RTOL( IEPOXP ) = 5.0D-04 RTOL( ASO4J ) = 5.0D-04 RTOL( AISO3J ) = 5.0D-04 RTOL( AGLYJ ) = 5.0D-04 RTOL( MTNO3 ) = 5.0D-04 RTOL( AMTNO3J ) = 5.0D-04 RTOL( AMTHYDJ ) = 5.0D-04 RTOL( AAVB2J ) = 5.0D-04 RTOL( AOLGAJ ) = 5.0D-04 RTOL( AAVB3J ) = 5.0D-04 RTOL( AAVB4J ) = 5.0D-04 RTOL( AISO1J ) = 5.0D-04 RTOL( AOLGBJ ) = 5.0D-04 RTOL( AISO2J ) = 5.0D-04 RTOL( ASQTJ ) = 5.0D-04 RTOL( APOCI ) = 5.0D-04 RTOL( APNCOMI ) = 5.0D-04 RTOL( APOCJ ) = 5.0D-04 RTOL( APNCOMJ ) = 5.0D-04 RTOL( PCVOC ) = 5.0D-04 RTOL( PCSOARXN ) = 5.0D-04 RTOL( VLVPO1 ) = 5.0D-04 RTOL( VSVPO1 ) = 5.0D-04 RTOL( VSVPO2 ) = 5.0D-04 RTOL( VSVPO3 ) = 5.0D-04 RTOL( VIVPO1 ) = 5.0D-04 RTOL( VLVOO1 ) = 5.0D-04 RTOL( VLVOO2 ) = 5.0D-04 RTOL( VSVOO2 ) = 5.0D-04 RTOL( VSVOO3 ) = 5.0D-04 RTOL( VSVOO1 ) = 5.0D-04 RTOL( FORM_PRIMARY ) = 5.0D-04 RTOL( ALD2_PRIMARY ) = 5.0D-04 RTOL( BUTADIENE13 ) = 5.0D-04 RTOL( ACROLEIN ) = 5.0D-04 RTOL( ACRO_PRIMARY ) = 5.0D-04 RTOL( TOLU ) = 5.0D-04 RTOL( HG ) = 5.0D-04 RTOL( HGIIAER ) = 5.0D-04 RTOL( HGIIGAS ) = 5.0D-04 RTOL( BR ) = 5.0D-04 RTOL( BRO ) = 5.0D-04 RTOL( HOBR ) = 5.0D-04 RTOL( HBR ) = 5.0D-04 RTOL( BR2 ) = 5.0D-04 RTOL( BRNO3 ) = 5.0D-04 RTOL( BRNO2 ) = 5.0D-04 RTOL( FMBR ) = 5.0D-04 RTOL( MB3 ) = 5.0D-04 RTOL( MB2 ) = 5.0D-04 RTOL( MB2C ) = 5.0D-04 RTOL( MBC2 ) = 5.0D-04 RTOL( MBC ) = 5.0D-04 RTOL( DMS ) = 5.0D-04 RTOL( MSA ) = 5.0D-04 RTOL( BRCL ) = 5.0D-04 RTOL( ABRJ ) = 5.0D-04 RTOL( I ) = 1.0D-05 RTOL( IO ) = 1.0D-05 RTOL( HI ) = 5.0D-04 RTOL( I2 ) = 5.0D-04 RTOL( HOI ) = 1.0D-05 RTOL( INO ) = 5.0D-04 RTOL( INO2 ) = 5.0D-04 RTOL( INO3 ) = 1.0D-05 RTOL( OIO ) = 5.0D-04 RTOL( I2O4 ) = 5.0D-04 RTOL( I2O2 ) = 5.0D-04 RTOL( I2O3 ) = 5.0D-04 RTOL( CH3I ) = 5.0D-04 RTOL( ICL ) = 5.0D-04 RTOL( IBR ) = 5.0D-04 RTOL( MI2 ) = 5.0D-04 RTOL( MIB ) = 5.0D-04 RTOL( MIC ) = 5.0D-04 RETURN END ================================================ FILE: CCTM/src/gas/ebi_cb6r5m_ae7_aq/hrprodloss.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE HRPRODLOSS C*********************************************************************** C C FUNCTION: To compute the production and loss rates for EBI species C C PRECONDITIONS: For the CB6R5M_AE7_AQ mechanism C C RETURN VALUES: None C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by EBI solver program, Apr 5, 2022 C C 18 Jul 14 B.Hutzell: revised to use real(8) variables C*********************************************************************** USE HRDATA IMPLICIT NONE C.....INCLUDES: NONE C.....ARGUMENTS: NONE C.....PARAMETERS: NONE C.....EXTERNAL FUNCTIONS: NONE C.....SAVED VARIABLES: NONE ! CHARACTER( 16 ), SAVE :: PNAME = 'HRPRODLOSS' ! Program name C.....LOCAL VARIABLES: C*********************************************************************** PROD( H2O2 ) = RXRAT( 17 ) ! OH+OH=H2O2 & + RXRAT( 19 ) ! HO2+HO2=H2O2 & + RXRAT( 20 ) ! HO2+HO2=H2O2 & + 4.0000D-02 * RXRAT( 143 ) ! OLE+O3=0.4000D-01*H2O2+... & + 8.0000D-02 * RXRAT( 147 ) ! IOLE+O3=0.8000D-01*H2O2+... LOSS( H2O2 ) = RXRAT( 21 ) ! H2O2=0.2000D+01*OH & + RXRAT( 22 ) ! H2O2+OH=HO2 & + RXRAT( 23 ) ! H2O2+O=OH+HO2 PROD( HNO3 ) = 2.0000D+00 * RXRAT( 39 ) ! N2O5=0.2000D+01*HNO3 & + RXRAT( 45 ) ! NO2+OH=HNO3 & + RXRAT( 100 ) ! FORM+NO3=HNO3+HO2+CO & + RXRAT( 107 ) ! ALD2+NO3=HNO3+C2O3 & + RXRAT( 111 ) ! ALDX+NO3=HNO3+CXO3 & + RXRAT( 115 ) ! GLYD+NO3=HNO3+C2O3 & + RXRAT( 118 ) ! GLY+NO3=HNO3+0.1500D+01*CO+... & + RXRAT( 120 ) ! MGLY+NO3=HNO3+C2O3+XO2+RO2 & + 7.1700D-01 * RXRAT( 160 ) ! ISPD+NO3=0.7170D+00*HNO3+... & + RXRAT( 164 ) ! HPLD+NO3=HNO3+ISPD & + RXRAT( 196 ) ! CRES+NO3=HNO3+0.3000D+... & + RXRAT( 200 ) ! CRON+NO3=HNO3+0.5000D+... & + RXRAT( 209 ) ! OPEN+NO3=HNO3+OPO3 & + RXRAT( 211 ) ! CAT1+NO3=HNO3+CRO & + RXRAT( 225 ) ! NO2+OH=HNO3 & + RXRAT( 256 ) ! CLNO3=HNO3+HOCL & + RXRAT( 257 ) ! CLNO3=HNO3+HOCL & + RXRAT( 270 ) ! NTR2=HNO3 & + RXRAT( 271 ) ! N2O5=HNO3+H2NO3PIJ & + RXRAT( 272 ) ! N2O5=HNO3+H2NO3PK & + RXRAT( 273 ) ! H2NO3PIJ=HNO3 & + RXRAT( 274 ) ! H2NO3PK=HNO3 & + 5.0000D-01 * RXRAT( 278 ) ! NO2=0.5000D+00*HNO3+... & + RXRAT( 382 ) ! BRNO3=HNO3+HOBR & + RXRAT( 383 ) ! BRNO3=HNO3+HOBR & + RXRAT( 386 ) ! BRNO3+ACLJ=HNO3+BRCL & + RXRAT( 387 ) ! BRNO3+ABRJ=HNO3+BR2 & + RXRAT( 435 ) ! HOI+NO3=HNO3+IO & + RXRAT( 443 ) ! INO3+ACLJ=HNO3+ICL & + RXRAT( 444 ) ! INO3+ABRJ=HNO3+IBR & + RXRAT( 451 ) ! DMS+NO3=HNO3+SO2+MEO2+FORM LOSS( HNO3 ) = RXRAT( 46 ) ! HNO3+OH=NO3 & + RXRAT( 47 ) ! HNO3=OH+NO2 PROD( SO2 ) = 7.5000D-01 * RXRAT( 370 ) ! DMS+BRO=0.7500D+00*SO2+... & + 7.5000D-01 * RXRAT( 418 ) ! DMS+IO=0.7500D+00*SO2+... & + RXRAT( 449 ) ! DMS+OH=SO2+MEO2+FORM & + 7.5000D-01 * RXRAT( 450 ) ! DMS+OH=0.7500D+00*SO2+... & + RXRAT( 451 ) ! DMS+NO3=SO2+HNO3+MEO2+FORM & + 8.6000D-01 * RXRAT( 452 ) ! DMS+CL=0.8600D+00*SO2+MEO2+... & + 7.5000D-01 * RXRAT( 453 ) ! DMS+CLO=0.7500D+00*SO2+... LOSS( SO2 ) = RXRAT( 52 ) ! SO2+OH=SULF+HO2+SULRXN PROD( SULF ) = RXRAT( 52 ) ! SO2+OH=SULF+HO2+SULRXN LOSS( SULF ) = 0.0D0 PROD( SULRXN ) = RXRAT( 52 ) ! SO2+OH=SULRXN+HO2+SULF LOSS( SULRXN ) = 0.0D0 PROD( MEO2 ) = RXRAT( 53 ) ! C2O3+NO=MEO2+NO2+RO2 & + 4.0000D-01 * RXRAT( 56 ) ! PAN=0.4000D+00*MEO2+... & + 5.0000D-01 * RXRAT( 57 ) ! C2O3+HO2=0.5000D+00*MEO2+... & + RXRAT( 58 ) ! C2O3+RO2=MEO2 & + 2.0000D+00 * RXRAT( 59 ) ! C2O3+C2O3=0.2000D+01*MEO2+... & + RXRAT( 60 ) ! C2O3+CXO3=MEO2+ALD2+XO2H+... & + 5.0000D-01 * RXRAT( 65 ) ! CXO3+HO2=0.5000D+00*MEO2+... & + RXRAT( 66 ) ! CXO3+RO2=MEO2 & + 2.0000D+00 * RXRAT( 67 ) ! CXO3+CXO3=0.2000D+01*MEO2+... & + 8.0000D-01 * RXRAT( 77 ) ! XO2H+C2O3=0.8000D+00*MEO2+... & + 8.0000D-01 * RXRAT( 81 ) ! XO2+C2O3=0.8000D+00*MEO2+... & + 8.0000D-01 * RXRAT( 85 ) ! XO2N+C2O3=0.8000D+00*MEO2+... & + 6.0000D-01 * RXRAT( 87 ) ! MEPX+OH=0.6000D+00*MEO2+... & + RXRAT( 88 ) ! MEPX=MEO2+RO2+OH & + RXRAT( 94 ) ! AACD+OH=MEO2+RO2 & + RXRAT( 108 ) ! ALD2=MEO2+RO2+CO+HO2 & + RXRAT( 124 ) ! OH=MEO2+RO2 & + 5.0000D-01 * RXRAT( 128 ) ! KET=0.5000D+00*MEO2+... & + 1.3800D+00 * RXRAT( 129 ) ! ACET=0.1380D+01*MEO2+... & + 8.0000D-01 * RXRAT( 153 ) ! ISO2+C2O3=0.8000D+00*MEO2+... & + 1.1500D-01 * RXRAT( 158 ) ! ISPD+OH=0.1150D+00*MEO2+... & + 3.4000D-01 * RXRAT( 161 ) ! ISPD=0.3400D+00*MEO2+... & + 8.0000D-01 * RXRAT( 168 ) ! EPX2+C2O3=0.8000D+00*MEO2+... & + RXRAT( 181 ) ! BZO2+C2O3=MEO2+OPEN+HO2+... & + RXRAT( 186 ) ! TO2+C2O3=MEO2+0.5200D+... & + RXRAT( 193 ) ! XLO2+C2O3=MEO2+0.7700D+... & + 5.0000D-01 * RXRAT( 215 ) ! OPO3+HO2=0.5000D+00*MEO2+... & + RXRAT( 216 ) ! OPO3+C2O3=MEO2+XO2+ALDX+... & + RXRAT( 220 ) ! ECH4+OH=MEO2+RO2 & + RXRAT( 235 ) ! CL=MEO2+HCL+RO2 & + RXRAT( 370 ) ! DMS+BRO=MEO2+0.2500D+... & + RXRAT( 418 ) ! DMS+IO=MEO2+0.2500D+00*MSA+... & + RXRAT( 431 ) ! CH3I=MEO2+I & + RXRAT( 449 ) ! DMS+OH=MEO2+SO2+FORM & + RXRAT( 450 ) ! DMS+OH=MEO2+0.2500D+00*MSA+... & + RXRAT( 451 ) ! DMS+NO3=MEO2+HNO3+SO2+FORM & + RXRAT( 452 ) ! DMS+CL=MEO2+0.8600D+00*SO2+... & + RXRAT( 453 ) ! DMS+CLO=MEO2+0.2500D+... LOSS( MEO2 ) = RXRAT( 71 ) ! MEO2+NO=FORM+HO2+NO2 & + RXRAT( 72 ) ! MEO2+HO2=0.9000D+00*MEPX+... & + 1.0000D-01 * RXRAT( 73 ) ! MEO2+C2O3=0.9000D+00*MEO2+... & + RXRAT( 74 ) ! MEO2+RO2=0.6850D+00*FORM+... & + RXRAT( 232 ) ! MEO2+CLO=CL+FORM+HO2 & + RXRAT( 364 ) ! MEO2+BRO=0.8000D+00*HOBR+... PROD( RO2 ) = RXRAT( 53 ) ! C2O3+NO=RO2+MEO2+NO2 & + 4.0000D-01 * RXRAT( 56 ) ! PAN=0.4000D+00*RO2+0.6000D+... & + 5.0000D-01 * RXRAT( 57 ) ! C2O3+HO2=0.5000D+00*RO2+... & + 2.0000D+00 * RXRAT( 59 ) ! C2O3+C2O3=0.2000D+01*RO2+... & + 2.0000D+00 * RXRAT( 60 ) ! C2O3+CXO3=0.2000D+01*RO2+... & + RXRAT( 61 ) ! CXO3+NO=RO2+ALD2+XO2H+NO2 & + 4.0000D-01 * RXRAT( 64 ) ! PANX=0.4000D+00*RO2+... & + 5.0000D-01 * RXRAT( 65 ) ! CXO3+HO2=0.5000D+00*RO2+... & + 2.0000D+00 * RXRAT( 67 ) ! CXO3+CXO3=0.2000D+01*RO2+... & + 9.0000D-01 * RXRAT( 73 ) ! MEO2+C2O3=0.9000D+00*RO2+... & + 8.0000D-01 * RXRAT( 77 ) ! XO2H+C2O3=0.8000D+00*RO2+... & + 8.0000D-01 * RXRAT( 81 ) ! XO2+C2O3=0.8000D+00*RO2+... & + 8.0000D-01 * RXRAT( 85 ) ! XO2N+C2O3=0.8000D+00*RO2+... & + 6.0000D-01 * RXRAT( 87 ) ! MEPX+OH=0.6000D+00*RO2+... & + RXRAT( 88 ) ! MEPX=RO2+MEO2+OH & + 6.0000D-01 * RXRAT( 89 ) ! ROOH+OH=0.6000D+00*RO2+... & + RXRAT( 94 ) ! AACD+OH=RO2+MEO2 & + RXRAT( 108 ) ! ALD2=RO2+MEO2+CO+HO2 & + RXRAT( 112 ) ! ALDX=RO2+XO2H+ALD2+CO+HO2 & + 1.1000D-01 * RXRAT( 114 ) ! GLYD=0.1100D+00*RO2+... & + 2.0000D-01 * RXRAT( 116 ) ! GLY+OH=0.2000D+00*RO2+... & + 5.0000D-01 * RXRAT( 118 ) ! GLY+NO3=0.5000D+00*RO2+... & + RXRAT( 120 ) ! MGLY+NO3=RO2+C2O3+XO2+HNO3 & + RXRAT( 124 ) ! OH=RO2+MEO2 & + RXRAT( 125 ) ! ETHA+OH=RO2+0.9910D+... & + 1.0000D-01 * RXRAT( 127 ) ! ETOH+OH=0.1000D+00*RO2+... & + RXRAT( 128 ) ! KET=RO2+0.5000D+00*C2O3+... & + 1.3800D+00 * RXRAT( 129 ) ! ACET=0.1380D+01*RO2+... & + RXRAT( 130 ) ! ACET+OH=RO2+C2O3+XO2+FORM & + 9.8000D-01 * RXRAT( 133 ) ! ROR=0.9800D+00*RO2+0.4200D+... & + 7.0000D-01 * RXRAT( 137 ) ! ETH+O=0.7000D+00*RO2+HO2+... & + RXRAT( 138 ) ! ETH+OH=RO2+XO2H+0.1560D+... & + RXRAT( 140 ) ! ETH+NO3=RO2+0.5000D+... & + 2.1000D-01 * RXRAT( 141 ) ! OLE+O=0.2100D+00*RO2+... & + 1.1950D+00 * RXRAT( 142 ) ! OLE+OH=0.1195D+01*RO2+... & + 1.5000D-01 * RXRAT( 143 ) ! OLE+O3=0.1500D+00*RO2+... & + RXRAT( 144 ) ! OLE+NO3=RO2+0.5000D+... & + 1.0000D-01 * RXRAT( 145 ) ! IOLE+O=0.1000D+00*RO2+... & + RXRAT( 146 ) ! IOLE+OH=RO2+0.7000D+... & + 3.0000D-01 * RXRAT( 147 ) ! IOLE+O3=0.3000D+00*RO2+... & + RXRAT( 148 ) ! IOLE+NO3=RO2+0.5000D+... & + RXRAT( 149 ) ! ISOP+OH=RO2+ISO2+ISOPRXN & + 2.5000D-01 * RXRAT( 150 ) ! ISOP+O=0.2500D+00*RO2+... & + 8.2000D-02 * RXRAT( 151 ) ! ISO2+NO=0.8200D-01*RO2+... & + 8.7200D-01 * RXRAT( 153 ) ! ISO2+C2O3=0.8720D+00*RO2+... & + 7.2000D-02 * RXRAT( 154 ) ! ISO2+RO2=0.1072D+01*RO2+... & + 2.0000D-01 * RXRAT( 156 ) ! ISOP+O3=0.2000D+00*RO2+... & + RXRAT( 157 ) ! ISOP+NO3=RO2+0.6500D+... & + 6.5800D-01 * RXRAT( 158 ) ! ISPD+OH=0.6580D+00*RO2+... & + 2.8400D-01 * RXRAT( 160 ) ! ISPD+NO3=0.2840D+00*RO2+... & + 8.4000D-01 * RXRAT( 161 ) ! ISPD=0.8400D+00*RO2+... & + 6.7000D-02 * RXRAT( 162 ) ! ISPX+OH=0.6700D-01*RO2+... & + RXRAT( 165 ) ! EPOX+OH=RO2+EPX2 & + 8.0000D-01 * RXRAT( 168 ) ! EPX2+C2O3=0.8000D+00*RO2+... & + RXRAT( 170 ) ! INTR+OH=RO2+0.3700D+... & + 1.5000D+00 * RXRAT( 172 ) ! TERP+OH=0.1500D+01*RO2+... & + 9.4000D-01 * RXRAT( 173 ) ! TERP+O3=0.9400D+00*RO2+... & + 1.2800D+00 * RXRAT( 174 ) ! TERP+NO3=0.1280D+01*RO2+... & + 1.5000D+00 * RXRAT( 176 ) ! APIN+OH=0.1500D+01*RO2+... & + 9.4000D-01 * RXRAT( 177 ) ! APIN+O3=0.9400D+00*RO2+... & + 1.2800D+00 * RXRAT( 178 ) ! APIN+NO3=0.1280D+01*RO2+... & + 3.5200D-01 * RXRAT( 179 ) ! BENZENE+OH=0.3520D+00*RO2+... & + RXRAT( 181 ) ! BZO2+C2O3=RO2+OPEN+HO2+... & + 7.2000D-01 * RXRAT( 184 ) ! TOL+OH=0.7200D+00*RO2+... & + RXRAT( 186 ) ! TO2+C2O3=RO2+0.5200D+... & + 6.0200D-01 * RXRAT( 189 ) ! XYLMN+OH=0.6020D+00*RO2+... & + 6.0200D-01 * RXRAT( 190 ) ! NAPH+OH=0.6020D+00*RO2+... & + RXRAT( 193 ) ! XLO2+C2O3=RO2+0.7700D+... & + 2.0000D-02 * RXRAT( 195 ) ! CRES+OH=0.2000D-01*RO2+... & + 7.0000D-01 * RXRAT( 196 ) ! CRES+NO3=0.7000D+00*RO2+... & + 2.0000D+00 * RXRAT( 203 ) ! XOPN+OH=0.2000D+01*RO2+... & + 3.0000D-01 * RXRAT( 204 ) ! XOPN+O3=0.3000D+00*RO2+... & + RXRAT( 205 ) ! XOPN+NO3=RO2+0.5000D+... & + 4.0000D-01 * RXRAT( 207 ) ! OPEN+OH=0.4000D+00*RO2+... & + 5.0000D-01 * RXRAT( 215 ) ! OPO3+HO2=0.5000D+00*RO2+... & + 2.0000D+00 * RXRAT( 216 ) ! OPO3+C2O3=0.2000D+01*RO2+... & + 8.0000D-01 * RXRAT( 217 ) ! OPO3+RO2=0.1800D+01*RO2+... & + RXRAT( 220 ) ! ECH4+OH=RO2+MEO2 & + RXRAT( 221 ) ! XPRP=RO2+XO2N & + RXRAT( 222 ) ! XPRP=RO2+0.2680D+00*ALDX+... & + RXRAT( 223 ) ! XPAR=RO2+XO2N & + RXRAT( 224 ) ! XPAR=RO2+0.8740D+00*ROR+... & + RXRAT( 235 ) ! CL=RO2+MEO2+HCL & + RXRAT( 237 ) ! CL+PRPA=RO2+ACET+0.9700D+... & + RXRAT( 238 ) ! CL+ETHA=RO2+0.9910D+... & + RXRAT( 242 ) ! CL+ISOP=RO2+ISPD+0.9600D+... & + 7.2000D-01 * RXRAT( 249 ) ! CL+TOL=0.7200D+00*RO2+... & + 6.0200D-01 * RXRAT( 250 ) ! CL+XYLMN=0.6020D+00*RO2+... & + 6.0200D-01 * RXRAT( 251 ) ! CL+NAPH=0.6020D+00*RO2+... & + RXRAT( 361 ) ! OLE+BR=RO2+ALD2+XO2H-PAR+FMBR & + RXRAT( 362 ) ! ISOP+BR=RO2+ISPD+0.9600D+... LOSS( RO2 ) = RXRAT( 58 ) ! RO2+C2O3=MEO2 & + RXRAT( 66 ) ! RO2+CXO3=MEO2 & + RXRAT( 68 ) ! RO2+NO=NO & + RXRAT( 69 ) ! RO2+HO2=HO2 & + 2.0000D+00 * RXRAT( 70 ) ! RO2+RO2= PROD( PACD ) = 3.7000D-01 * RXRAT( 57 ) ! C2O3+HO2=0.3700D+00*PACD+... & + 3.7000D-01 * RXRAT( 65 ) ! CXO3+HO2=0.3700D+00*PACD+... & + 3.7000D-01 * RXRAT( 215 ) ! OPO3+HO2=0.3700D+00*PACD+... LOSS( PACD ) = RXRAT( 95 ) ! PACD+OH=C2O3 PROD( AACD ) = 1.3000D-01 * RXRAT( 57 ) ! C2O3+HO2=0.1300D+00*AACD+... & + 1.3000D-01 * RXRAT( 65 ) ! CXO3+HO2=0.1300D+00*AACD+... & + 1.0000D-01 * RXRAT( 73 ) ! MEO2+C2O3=0.1000D+00*AACD+... & + 2.0000D-01 * RXRAT( 77 ) ! XO2H+C2O3=0.2000D+00*AACD+... & + 2.0000D-01 * RXRAT( 81 ) ! XO2+C2O3=0.2000D+00*AACD+... & + 2.0000D-01 * RXRAT( 85 ) ! XO2N+C2O3=0.2000D+00*AACD+... & + 1.3000D-01 * RXRAT( 143 ) ! OLE+O3=0.1300D+00*AACD+... & + 8.0000D-02 * RXRAT( 147 ) ! IOLE+O3=0.8000D-01*AACD+... & + 2.0000D-01 * RXRAT( 153 ) ! ISO2+C2O3=0.2000D+00*AACD+... & + 2.0000D-01 * RXRAT( 168 ) ! EPX2+C2O3=0.2000D+00*AACD+... & + 1.3000D-01 * RXRAT( 215 ) ! OPO3+HO2=0.1300D+00*AACD+... & + 2.0000D-01 * RXRAT( 217 ) ! OPO3+RO2=0.2000D+00*AACD+... LOSS( AACD ) = RXRAT( 94 ) ! AACD+OH=MEO2+RO2 PROD( CXO3 ) = RXRAT( 63 ) ! PANX=CXO3+NO2 & + 6.0000D-01 * RXRAT( 64 ) ! PANX=0.6000D+00*CXO3+... & + RXRAT( 109 ) ! ALDX+O=CXO3+OH & + RXRAT( 110 ) ! ALDX+OH=CXO3 & + RXRAT( 111 ) ! ALDX+NO3=CXO3+HNO3 & + 5.0000D-01 * RXRAT( 128 ) ! KET=0.5000D+00*CXO3+... & + 2.5000D-01 * RXRAT( 150 ) ! ISOP+O=0.2500D+00*CXO3+... & + 2.0000D-01 * RXRAT( 156 ) ! ISOP+O3=0.2000D+00*CXO3+... & + 7.1700D-01 * RXRAT( 160 ) ! ISPD+NO3=0.7170D+00*CXO3+... & + 3.9000D-01 * RXRAT( 173 ) ! TERP+O3=0.3900D+00*CXO3+... & + 3.9000D-01 * RXRAT( 177 ) ! APIN+O3=0.3900D+00*CXO3+... & + 2.0000D-01 * RXRAT( 212 ) ! OPO3+NO=0.2000D+00*CXO3+... & + RXRAT( 245 ) ! CL+ALDX=CXO3+HCL LOSS( CXO3 ) = RXRAT( 60 ) ! CXO3+C2O3=MEO2+ALD2+XO2H+... & + RXRAT( 61 ) ! CXO3+NO=NO2+ALD2+XO2H+RO2 & + RXRAT( 62 ) ! CXO3+NO2=PANX & + RXRAT( 65 ) ! CXO3+HO2=0.3700D+00*PACD+... & + RXRAT( 66 ) ! CXO3+RO2=MEO2 & + 2.0000D+00 * RXRAT( 67 ) ! CXO3+CXO3=0.2000D+01*MEO2+... PROD( ALD2 ) = RXRAT( 60 ) ! C2O3+CXO3=ALD2+MEO2+XO2H+... & + RXRAT( 61 ) ! CXO3+NO=ALD2+NO2+XO2H+RO2 & + 4.0000D-01 * RXRAT( 64 ) ! PANX=0.4000D+00*ALD2+... & + RXRAT( 112 ) ! ALDX=ALD2+XO2H+RO2+CO+HO2 & + 9.9100D-01 * RXRAT( 125 ) ! ETHA+OH=0.9910D+00*ALD2+... & + 9.5000D-01 * RXRAT( 127 ) ! ETOH+OH=0.9500D+00*ALD2+... & + 5.0000D-01 * RXRAT( 128 ) ! KET=0.5000D+00*ALD2+... & + 7.4000D-01 * RXRAT( 133 ) ! ROR=0.7400D+00*ALD2+... & + 2.0000D-01 * RXRAT( 141 ) ! OLE+O=0.2000D+00*ALD2+... & + 4.8800D-01 * RXRAT( 142 ) ! OLE+OH=0.4880D+00*ALD2+... & + 2.9500D-01 * RXRAT( 143 ) ! OLE+O3=0.2950D+00*ALD2+... & + 2.5000D-01 * RXRAT( 144 ) ! OLE+NO3=0.2500D+00*ALD2+... & + 1.2400D+00 * RXRAT( 145 ) ! IOLE+O=0.1240D+01*ALD2+... & + 1.3000D+00 * RXRAT( 146 ) ! IOLE+OH=0.1300D+01*ALD2+... & + 7.3200D-01 * RXRAT( 147 ) ! IOLE+O3=0.7320D+00*ALD2+... & + 5.0000D-01 * RXRAT( 148 ) ! IOLE+NO3=0.5000D+00*ALD2+... & + 4.0000D-02 * RXRAT( 159 ) ! ISPD+O3=0.4000D-01*ALD2+... & + 1.0000D-01 * RXRAT( 204 ) ! XOPN+O3=0.1000D+00*ALD2+... & + 2.0000D-02 * RXRAT( 208 ) ! OPEN+O3=0.2000D-01*ALD2+... & + RXRAT( 219 ) ! PANX+OH=ALD2+NO2 & + 9.9100D-01 * RXRAT( 238 ) ! CL+ETHA=0.9910D+00*ALD2+... & + 3.3000D-01 * RXRAT( 240 ) ! CL+OLE=0.3300D+00*ALD2+... & + 4.5000D-01 * RXRAT( 241 ) ! CL+IOLE=0.4500D+00*ALD2+... & + RXRAT( 247 ) ! CL+ETOH=ALD2+HO2+HCL & + RXRAT( 361 ) ! OLE+BR=ALD2+FMBR+XO2H-PAR+RO2 LOSS( ALD2 ) = RXRAT( 105 ) ! ALD2+O=C2O3+OH & + RXRAT( 106 ) ! ALD2+OH=C2O3 & + RXRAT( 107 ) ! ALD2+NO3=C2O3+HNO3 & + RXRAT( 108 ) ! ALD2=MEO2+RO2+CO+HO2 & + RXRAT( 244 ) ! ALD2+CL=HCL+C2O3 & + RXRAT( 360 ) ! ALD2+BR=HBR+C2O3 PROD( XO2H ) = RXRAT( 60 ) ! C2O3+CXO3=XO2H+ALD2+MEO2+... & + RXRAT( 61 ) ! CXO3+NO=XO2H+ALD2+NO2+RO2 & + 4.0000D-01 * RXRAT( 64 ) ! PANX=0.4000D+00*XO2H+... & + 5.4000D-01 * RXRAT( 89 ) ! ROOH+OH=0.5400D+00*XO2H+... & + RXRAT( 112 ) ! ALDX=XO2H+ALD2+RO2+CO+HO2 & + 1.1000D-01 * RXRAT( 114 ) ! GLYD=0.1100D+00*XO2H+... & + 9.9100D-01 * RXRAT( 125 ) ! ETHA+OH=0.9910D+00*XO2H+... & + 1.0000D-01 * RXRAT( 127 ) ! ETOH+OH=0.1000D+00*XO2H+... & + 5.0000D-01 * RXRAT( 128 ) ! KET=0.5000D+00*XO2H+... & + 9.4000D-01 * RXRAT( 133 ) ! ROR=0.9400D+00*XO2H+... & + 7.0000D-01 * RXRAT( 137 ) ! ETH+O=0.7000D+00*XO2H+HO2+... & + RXRAT( 138 ) ! ETH+OH=XO2H+RO2+0.1560D+... & + 5.0000D-01 * RXRAT( 140 ) ! ETH+NO3=0.5000D+00*XO2H+... & + 2.0000D-01 * RXRAT( 141 ) ! OLE+O=0.2000D+00*XO2H+... & + 9.7600D-01 * RXRAT( 142 ) ! OLE+OH=0.9760D+00*XO2H+... & + 1.5000D-01 * RXRAT( 143 ) ! OLE+O3=0.1500D+00*XO2H+... & + 4.8000D-01 * RXRAT( 144 ) ! OLE+NO3=0.4800D+00*XO2H+... & + 1.0000D-01 * RXRAT( 145 ) ! IOLE+O=0.1000D+00*XO2H+... & + RXRAT( 146 ) ! IOLE+OH=XO2H+0.7000D+... & + 3.0000D-01 * RXRAT( 147 ) ! IOLE+O3=0.3000D+00*XO2H+... & + 4.8000D-01 * RXRAT( 148 ) ! IOLE+NO3=0.4800D+00*XO2H+... & + 8.2000D-02 * RXRAT( 151 ) ! ISO2+NO=0.8200D-01*XO2H+... & + 7.2000D-02 * RXRAT( 153 ) ! ISO2+C2O3=0.7200D-01*XO2H+... & + 7.2000D-02 * RXRAT( 154 ) ! ISO2+RO2=0.7200D-01*XO2H+... & + 6.4000D-01 * RXRAT( 157 ) ! ISOP+NO3=0.6400D+00*XO2H+... & + 1.4200D-01 * RXRAT( 160 ) ! ISPD+NO3=0.1420D+00*XO2H+... & + 3.4000D-01 * RXRAT( 161 ) ! ISPD=0.3400D+00*XO2H+... & + 3.7000D-01 * RXRAT( 170 ) ! INTR+OH=0.3700D+00*XO2H+... & + 7.5000D-01 * RXRAT( 172 ) ! TERP+OH=0.7500D+00*XO2H+... & + 7.0000D-02 * RXRAT( 173 ) ! TERP+O3=0.7000D-01*XO2H+... & + 2.8000D-01 * RXRAT( 174 ) ! TERP+NO3=0.2800D+00*XO2H+... & + 7.5000D-01 * RXRAT( 176 ) ! APIN+OH=0.7500D+00*XO2H+... & + 7.0000D-02 * RXRAT( 177 ) ! APIN+O3=0.7000D-01*XO2H+... & + 2.8000D-01 * RXRAT( 178 ) ! APIN+NO3=0.2800D+00*XO2H+... & + 7.0000D-02 * RXRAT( 184 ) ! TOL+OH=0.7000D-01*XO2H+... & + 5.8000D-02 * RXRAT( 189 ) ! XYLMN+OH=0.5800D-01*XO2H+... & + 5.8000D-02 * RXRAT( 190 ) ! NAPH+OH=0.5800D-01*XO2H+... & + 1.2000D-01 * RXRAT( 196 ) ! CRES+NO3=0.1200D+00*XO2H+... & + RXRAT( 202 ) ! XOPN=XO2H+0.4000D+00*GLY+... & + 2.0000D+00 * RXRAT( 203 ) ! XOPN+OH=0.2000D+01*XO2H+... & + 3.0000D-01 * RXRAT( 204 ) ! XOPN+O3=0.3000D+00*XO2H+... & + 4.5000D-01 * RXRAT( 205 ) ! XOPN+NO3=0.4500D+00*XO2H+... & + 4.0000D-01 * RXRAT( 207 ) ! OPEN+OH=0.4000D+00*XO2H+... & + 8.0000D-01 * RXRAT( 217 ) ! OPO3+RO2=0.8000D+00*XO2H+... & + RXRAT( 222 ) ! XPRP=XO2H+0.2680D+00*ALDX+... & + 1.2600D-01 * RXRAT( 224 ) ! XPAR=0.1260D+00*XO2H+... & + 9.7000D-01 * RXRAT( 237 ) ! CL+PRPA=0.9700D+00*XO2H+... & + 9.9100D-01 * RXRAT( 238 ) ! CL+ETHA=0.9910D+00*XO2H+... & + 9.6000D-01 * RXRAT( 242 ) ! CL+ISOP=0.9600D+00*XO2H+... & + 7.0000D-02 * RXRAT( 249 ) ! CL+TOL=0.7000D-01*XO2H+... & + 5.8000D-02 * RXRAT( 250 ) ! CL+XYLMN=0.5800D-01*XO2H+... & + 5.8000D-02 * RXRAT( 251 ) ! CL+NAPH=0.5800D-01*XO2H+... & + RXRAT( 361 ) ! OLE+BR=XO2H+ALD2+FMBR-PAR+RO2 & + 9.6000D-01 * RXRAT( 362 ) ! ISOP+BR=0.9600D+00*XO2H+... LOSS( XO2H ) = RXRAT( 75 ) ! XO2H+NO=NO2+HO2 & + RXRAT( 76 ) ! XO2H+HO2=ROOH & + RXRAT( 77 ) ! XO2H+C2O3=0.8000D+00*HO2+... & + RXRAT( 78 ) ! XO2H+RO2=0.6000D+00*HO2+RO2 PROD( PANX ) = RXRAT( 62 ) ! CXO3+NO2=PANX LOSS( PANX ) = RXRAT( 63 ) ! PANX=NO2+CXO3 & + RXRAT( 64 ) ! PANX=0.6000D+00*NO2+... & + RXRAT( 219 ) ! PANX+OH=ALD2+NO2 PROD( FORM ) = RXRAT( 71 ) ! MEO2+NO=FORM+HO2+NO2 & + 1.0000D-01 * RXRAT( 72 ) ! MEO2+HO2=0.1000D+00*FORM+... & + RXRAT( 73 ) ! MEO2+C2O3=FORM+0.9000D+... & + 6.8500D-01 * RXRAT( 74 ) ! MEO2+RO2=0.6850D+00*FORM+... & + 4.0000D-01 * RXRAT( 87 ) ! MEPX+OH=0.4000D+00*FORM+... & + RXRAT( 102 ) ! HCO3=FORM+HO2 & + 7.4000D-01 * RXRAT( 114 ) ! GLYD=0.7400D+00*FORM+... & + RXRAT( 126 ) ! MEOH+OH=FORM+HO2 & + 7.8000D-02 * RXRAT( 127 ) ! ETOH+OH=0.7800D-01*FORM+... & + RXRAT( 130 ) ! ACET+OH=FORM+C2O3+XO2+RO2 & + RXRAT( 137 ) ! ETH+O=FORM+HO2+CO+0.7000D+... & + 1.5600D+00 * RXRAT( 138 ) ! ETH+OH=0.1560D+01*FORM+RO2+... & + RXRAT( 139 ) ! ETH+O3=FORM+0.3500D+00*CO+... & + 1.1250D+00 * RXRAT( 140 ) ! ETH+NO3=0.1125D+01*FORM+... & + 2.0000D-01 * RXRAT( 141 ) ! OLE+O=0.2000D+00*FORM+... & + 7.8100D-01 * RXRAT( 142 ) ! OLE+OH=0.7810D+00*FORM+... & + 5.5500D-01 * RXRAT( 143 ) ! OLE+O3=0.5550D+00*FORM+... & + 5.0000D-01 * RXRAT( 144 ) ! OLE+NO3=0.5000D+00*FORM+... & + 1.2800D-01 * RXRAT( 147 ) ! IOLE+O3=0.1280D+00*FORM+... & + 5.0000D-01 * RXRAT( 150 ) ! ISOP+O=0.5000D+00*FORM+... & + 6.7300D-01 * RXRAT( 151 ) ! ISO2+NO=0.6730D+00*FORM+... & + 1.2000D-01 * RXRAT( 152 ) ! ISO2+HO2=0.1200D+00*FORM+... & + 5.9800D-01 * RXRAT( 153 ) ! ISO2+C2O3=0.5980D+00*FORM+... & + 5.9800D-01 * RXRAT( 154 ) ! ISO2+RO2=0.5980D+00*FORM+... & + 6.0000D-01 * RXRAT( 156 ) ! ISOP+O3=0.6000D+00*FORM+... & + 3.5000D-01 * RXRAT( 157 ) ! ISOP+NO3=0.3500D+00*FORM+... & + 2.3100D-01 * RXRAT( 159 ) ! ISPD+O3=0.2310D+00*FORM+... & + 2.6000D-01 * RXRAT( 161 ) ! ISPD=0.2600D+00*FORM+... & + 3.7500D-01 * RXRAT( 166 ) ! EPX2+HO2=0.3750D+00*FORM+... & + 3.7500D-01 * RXRAT( 167 ) ! EPX2+NO=0.3750D+00*FORM+... & + 3.0000D-01 * RXRAT( 168 ) ! EPX2+C2O3=0.3000D+00*FORM+... & + 3.7500D-01 * RXRAT( 169 ) ! EPX2+RO2=0.3750D+00*FORM+... & + 5.9200D-01 * RXRAT( 170 ) ! INTR+OH=0.5920D+00*FORM+... & + 2.8000D-01 * RXRAT( 172 ) ! TERP+OH=0.2800D+00*FORM+... & + 2.4000D-01 * RXRAT( 173 ) ! TERP+O3=0.2400D+00*FORM+... & + 2.8000D-01 * RXRAT( 176 ) ! APIN+OH=0.2800D+00*FORM+... & + 2.4000D-01 * RXRAT( 177 ) ! APIN+O3=0.2400D+00*FORM+... & + RXRAT( 201 ) ! CRON=FORM+HO2+HONO+OPEN & + 8.0000D-02 * RXRAT( 208 ) ! OPEN+O3=0.8000D-01*FORM+... & + 1.4000D-01 * RXRAT( 210 ) ! CAT1+OH=0.1400D+00*FORM+... & + RXRAT( 232 ) ! CLO+MEO2=FORM+CL+HO2 & + RXRAT( 239 ) ! CL+ETH=FORM+0.2000D+01*XO2+... & + RXRAT( 246 ) ! CL+MEOH=FORM+HO2+HCL & + RXRAT( 364 ) ! BRO+MEO2=FORM+0.2000D+... & + RXRAT( 417 ) ! CH3I+OH=FORM+I & + RXRAT( 432 ) ! MI2=FORM+0.2000D+01*I & + RXRAT( 433 ) ! MIB=FORM+BR+I & + RXRAT( 434 ) ! MIC=FORM+CL+I & + RXRAT( 449 ) ! DMS+OH=FORM+MEO2+SO2 & + RXRAT( 451 ) ! DMS+NO3=FORM+HNO3+MEO2+SO2 & + 4.5000D-01 * RXRAT( 452 ) ! DMS+CL=0.4500D+00*FORM+... LOSS( FORM ) = RXRAT( 96 ) ! FORM+OH=HO2+CO & + RXRAT( 97 ) ! FORM=0.2000D+01*HO2+CO & + RXRAT( 98 ) ! FORM=CO & + RXRAT( 99 ) ! FORM+O=OH+HO2+CO & + RXRAT( 100 ) ! FORM+NO3=HNO3+HO2+CO & + RXRAT( 101 ) ! FORM+HO2=HCO3 & + RXRAT( 243 ) ! FORM+CL=HCL+HO2+CO & + RXRAT( 359 ) ! FORM+BR=HBR+HO2+CO PROD( MEPX ) = 9.0000D-01 * RXRAT( 72 ) ! MEO2+HO2=0.9000D+00*MEPX+... & + 5.0000D-01 * RXRAT( 104 ) ! HCO3+HO2=0.5000D+00*MEPX+... LOSS( MEPX ) = RXRAT( 87 ) ! MEPX+OH=0.6000D+00*MEO2+... & + RXRAT( 88 ) ! MEPX=MEO2+RO2+OH PROD( MEOH ) = 3.1500D-01 * RXRAT( 74 ) ! MEO2+RO2=0.3150D+00*MEOH+... & + 1.5000D-01 * RXRAT( 114 ) ! GLYD=0.1500D+00*MEOH+... LOSS( MEOH ) = RXRAT( 126 ) ! MEOH+OH=FORM+HO2 & + RXRAT( 246 ) ! MEOH+CL=HCL+HO2+FORM PROD( ROOH ) = RXRAT( 76 ) ! XO2H+HO2=ROOH & + RXRAT( 80 ) ! XO2+HO2=ROOH & + RXRAT( 84 ) ! XO2N+HO2=ROOH LOSS( ROOH ) = RXRAT( 89 ) ! ROOH+OH=0.5400D+00*XO2H+... & + RXRAT( 90 ) ! ROOH=HO2+OH PROD( XO2 ) = 2.0000D-01 * RXRAT( 116 ) ! GLY+OH=0.2000D+00*XO2+... & + 5.0000D-01 * RXRAT( 118 ) ! GLY+NO3=0.5000D+00*XO2+... & + RXRAT( 120 ) ! MGLY+NO3=XO2+C2O3+HNO3+RO2 & + RXRAT( 130 ) ! ACET+OH=XO2+C2O3+FORM+RO2 & + 5.0000D-01 * RXRAT( 140 ) ! ETH+NO3=0.5000D+00*XO2+... & + 1.9500D-01 * RXRAT( 142 ) ! OLE+OH=0.1950D+00*XO2+... & + 4.8000D-01 * RXRAT( 144 ) ! OLE+NO3=0.4800D+00*XO2+... & + 4.8000D-01 * RXRAT( 148 ) ! IOLE+NO3=0.4800D+00*XO2+... & + 2.5000D-01 * RXRAT( 150 ) ! ISOP+O=0.2500D+00*XO2+... & + 2.0000D-01 * RXRAT( 156 ) ! ISOP+O3=0.2000D+00*XO2+... & + 3.3000D-01 * RXRAT( 157 ) ! ISOP+NO3=0.3300D+00*XO2+... & + 5.2100D-01 * RXRAT( 158 ) ! ISPD+OH=0.5210D+00*XO2+... & + 1.4200D-01 * RXRAT( 160 ) ! ISPD+NO3=0.1420D+00*XO2+... & + 1.6000D-01 * RXRAT( 161 ) ! ISPD=0.1600D+00*XO2+... & + 6.3000D-01 * RXRAT( 170 ) ! INTR+OH=0.6300D+00*XO2+... & + 5.0000D-01 * RXRAT( 172 ) ! TERP+OH=0.5000D+00*XO2+... & + 6.9000D-01 * RXRAT( 173 ) ! TERP+O3=0.6900D+00*XO2+... & + 7.5000D-01 * RXRAT( 174 ) ! TERP+NO3=0.7500D+00*XO2+... & + 5.0000D-01 * RXRAT( 176 ) ! APIN+OH=0.5000D+00*XO2+... & + 6.9000D-01 * RXRAT( 177 ) ! APIN+O3=0.6900D+00*XO2+... & + 7.5000D-01 * RXRAT( 178 ) ! APIN+NO3=0.7500D+00*XO2+... & + 4.8000D-01 * RXRAT( 196 ) ! CRES+NO3=0.4800D+00*XO2+... & + 4.5000D-01 * RXRAT( 205 ) ! XOPN+NO3=0.4500D+00*XO2+... & + RXRAT( 216 ) ! OPO3+C2O3=XO2+MEO2+ALDX+... & + 8.7400D-01 * RXRAT( 224 ) ! XPAR=0.8740D+00*XO2+... & + 2.0000D+00 * RXRAT( 239 ) ! CL+ETH=0.2000D+01*XO2+FMCL+... & + 2.0000D+00 * RXRAT( 240 ) ! CL+OLE=0.2000D+01*XO2+... & + 1.7000D+00 * RXRAT( 241 ) ! CL+IOLE=0.1700D+01*XO2+... LOSS( XO2 ) = RXRAT( 79 ) ! XO2+NO=NO2 & + RXRAT( 80 ) ! XO2+HO2=ROOH & + RXRAT( 81 ) ! XO2+C2O3=0.8000D+00*MEO2+... & + RXRAT( 82 ) ! XO2+RO2=RO2 PROD( XO2N ) = 6.0000D-02 * RXRAT( 89 ) ! ROOH+OH=0.6000D-01*XO2N+... & + 9.0000D-03 * RXRAT( 125 ) ! ETHA+OH=0.9000D-02*XO2N+... & + 4.0000D-02 * RXRAT( 133 ) ! ROR=0.4000D-01*XO2N+... & + 1.0000D-02 * RXRAT( 141 ) ! OLE+O=0.1000D-01*XO2N+... & + 2.4000D-02 * RXRAT( 142 ) ! OLE+OH=0.2400D-01*XO2N+... & + 4.0000D-02 * RXRAT( 144 ) ! OLE+NO3=0.4000D-01*XO2N+... & + 4.0000D-02 * RXRAT( 148 ) ! IOLE+NO3=0.4000D-01*XO2N+... & + 3.0000D-02 * RXRAT( 157 ) ! ISOP+NO3=0.3000D-01*XO2N+... & + 2.2000D-02 * RXRAT( 158 ) ! ISPD+OH=0.2200D-01*XO2N+... & + 2.5000D-01 * RXRAT( 172 ) ! TERP+OH=0.2500D+00*XO2N+... & + 1.8000D-01 * RXRAT( 173 ) ! TERP+O3=0.1800D+00*XO2N+... & + 2.5000D-01 * RXRAT( 174 ) ! TERP+NO3=0.2500D+00*XO2N+... & + 2.5000D-01 * RXRAT( 176 ) ! APIN+OH=0.2500D+00*XO2N+... & + 1.8000D-01 * RXRAT( 177 ) ! APIN+O3=0.1800D+00*XO2N+... & + 2.5000D-01 * RXRAT( 178 ) ! APIN+NO3=0.2500D+00*XO2N+... & + 2.0000D-02 * RXRAT( 195 ) ! CRES+OH=0.2000D-01*XO2N+... & + 1.0000D-01 * RXRAT( 196 ) ! CRES+NO3=0.1000D+00*XO2N+... & + 1.0000D-01 * RXRAT( 205 ) ! XOPN+NO3=0.1000D+00*XO2N+... & + RXRAT( 221 ) ! XPRP=XO2N+RO2 & + RXRAT( 223 ) ! XPAR=XO2N+RO2 & + 3.0000D-02 * RXRAT( 237 ) ! CL+PRPA=0.3000D-01*XO2N+... & + 9.0000D-03 * RXRAT( 238 ) ! CL+ETHA=0.9000D-02*XO2N+... & + 4.0000D-02 * RXRAT( 242 ) ! CL+ISOP=0.4000D-01*XO2N+... & + 4.0000D-02 * RXRAT( 362 ) ! ISOP+BR=0.4000D-01*XO2N+... LOSS( XO2N ) = RXRAT( 83 ) ! XO2N+NO=0.5000D+00*NTR1+... & + RXRAT( 84 ) ! XO2N+HO2=ROOH & + RXRAT( 85 ) ! XO2N+C2O3=0.8000D+00*HO2+... & + RXRAT( 86 ) ! XO2N+RO2=RO2 PROD( NTR1 ) = 5.0000D-01 * RXRAT( 83 ) ! XO2N+NO=0.5000D+00*NTR1+... & + RXRAT( 135 ) ! ROR+NO2=NTR1 & + 5.0000D-01 * RXRAT( 140 ) ! ETH+NO3=0.5000D+00*NTR1+... & + 5.0000D-01 * RXRAT( 144 ) ! OLE+NO3=0.5000D+00*NTR1+... & + 5.0000D-01 * RXRAT( 148 ) ! IOLE+NO3=0.5000D+00*NTR1+... LOSS( NTR1 ) = RXRAT( 91 ) ! NTR1+OH=NTR2 & + RXRAT( 92 ) ! NTR1=NO2 PROD( NTR2 ) = 5.0000D-01 * RXRAT( 83 ) ! XO2N+NO=0.5000D+00*NTR2+... & + RXRAT( 91 ) ! NTR1+OH=NTR2 & + 6.5000D-01 * RXRAT( 157 ) ! ISOP+NO3=0.6500D+00*NTR2+... & + 1.4200D-01 * RXRAT( 160 ) ! ISPD+NO3=0.1420D+00*NTR2+... & + 2.6600D-01 * RXRAT( 170 ) ! INTR+OH=0.2660D+00*NTR2+... & + 5.3000D-01 * RXRAT( 174 ) ! TERP+NO3=0.5300D+00*NTR2+... & + 5.3000D-01 * RXRAT( 178 ) ! APIN+NO3=0.5300D+00*NTR2+... & + 8.2000D-02 * RXRAT( 180 ) ! BZO2+NO=0.8200D-01*NTR2+... & + 1.4000D-01 * RXRAT( 185 ) ! TO2+NO=0.1400D+00*NTR2+... & + 1.4000D-01 * RXRAT( 191 ) ! XLO2+NO=0.1400D+00*NTR2+... & + RXRAT( 199 ) ! CRON+OH=NTR2+0.5000D+00*CRO & + RXRAT( 200 ) ! CRON+NO3=NTR2+0.5000D+... & + 5.0000D-01 * RXRAT( 205 ) ! XOPN+NO3=0.5000D+00*NTR2+... & + 5.0000D-01 * RXRAT( 218 ) ! OPAN+OH=0.5000D+00*NTR2+... LOSS( NTR2 ) = RXRAT( 270 ) ! NTR2=HNO3 PROD( FACD ) = RXRAT( 103 ) ! HCO3+NO=FACD+NO2+HO2 & + 5.0000D-01 * RXRAT( 104 ) ! HCO3+HO2=0.5000D+00*FACD+... & + 3.0000D-01 * RXRAT( 136 ) ! ETHY+OH=0.3000D+00*FACD+... & + 4.2000D-01 * RXRAT( 139 ) ! ETH+O3=0.4200D+00*FACD+... & + 9.0000D-02 * RXRAT( 143 ) ! OLE+O3=0.9000D-01*FACD+... & + 1.5000D-01 * RXRAT( 159 ) ! ISPD+O3=0.1500D+00*FACD+... & + 7.4000D-02 * RXRAT( 166 ) ! EPX2+HO2=0.7400D-01*FACD+... & + 1.8500D-01 * RXRAT( 170 ) ! INTR+OH=0.1850D+00*FACD+... LOSS( FACD ) = RXRAT( 93 ) ! FACD+OH=HO2 PROD( CO ) = RXRAT( 96 ) ! FORM+OH=CO+HO2 & + RXRAT( 97 ) ! FORM=CO+0.2000D+01*HO2 & + RXRAT( 98 ) ! FORM=CO & + RXRAT( 99 ) ! FORM+O=CO+HO2+OH & + RXRAT( 100 ) ! FORM+NO3=CO+HO2+HNO3 & + RXRAT( 108 ) ! ALD2=CO+RO2+MEO2+HO2 & + RXRAT( 112 ) ! ALDX=CO+XO2H+RO2+ALD2+HO2 & + 8.9000D-01 * RXRAT( 114 ) ! GLYD=0.8900D+00*CO+0.7400D+... & + 1.8000D+00 * RXRAT( 116 ) ! GLY+OH=0.1800D+01*CO+... & + 2.0000D+00 * RXRAT( 117 ) ! GLY=0.2000D+01*CO+0.2000D+... & + 1.5000D+00 * RXRAT( 118 ) ! GLY+NO3=0.1500D+01*CO+HNO3+... & + RXRAT( 119 ) ! MGLY=CO+HO2+C2O3 & + RXRAT( 121 ) ! MGLY+OH=CO+C2O3 & + 3.8000D-01 * RXRAT( 129 ) ! ACET=0.3800D+00*CO+0.1380D+... & + 3.0000D-01 * RXRAT( 136 ) ! ETHY+OH=0.3000D+00*CO+... & + RXRAT( 137 ) ! ETH+O=CO+HO2+FORM+0.7000D+... & + 3.5000D-01 * RXRAT( 139 ) ! ETH+O3=0.3500D+00*CO+FORM+... & + 2.0000D-01 * RXRAT( 141 ) ! OLE+O=0.2000D+00*CO+... & + 3.7800D-01 * RXRAT( 143 ) ! OLE+O3=0.3780D+00*CO+... & + 1.0000D-01 * RXRAT( 145 ) ! IOLE+O=0.1000D+00*CO+... & + 2.4500D-01 * RXRAT( 147 ) ! IOLE+O3=0.2450D+00*CO+... & + 6.6000D-02 * RXRAT( 156 ) ! ISOP+O3=0.6600D-01*CO+... & + 1.3700D-01 * RXRAT( 158 ) ! ISPD+OH=0.1370D+00*CO+... & + 5.4300D-01 * RXRAT( 159 ) ! ISPD+O3=0.5430D+00*CO+... & + 2.5100D-01 * RXRAT( 166 ) ! EPX2+HO2=0.2510D+00*CO+... & + 2.5100D-01 * RXRAT( 167 ) ! EPX2+NO=0.2510D+00*CO+... & + 2.0000D-01 * RXRAT( 168 ) ! EPX2+C2O3=0.2000D+00*CO+... & + 2.5100D-01 * RXRAT( 169 ) ! EPX2+RO2=0.2510D+00*CO+... & + 1.0000D-03 * RXRAT( 173 ) ! TERP+O3=0.1000D-02*CO+... & + 1.0000D-03 * RXRAT( 177 ) ! APIN+O3=0.1000D-02*CO+... & + 7.0000D-01 * RXRAT( 202 ) ! XOPN=0.7000D+00*CO+XO2H+... & + 5.0000D-01 * RXRAT( 204 ) ! XOPN+O3=0.5000D+00*CO+... & + RXRAT( 206 ) ! OPEN=CO+HO2+OPO3 & + 1.9800D+00 * RXRAT( 208 ) ! OPEN+O3=0.1980D+01*CO+... & + 5.0000D-01 * RXRAT( 212 ) ! OPO3+NO=0.5000D+00*CO+... & + RXRAT( 218 ) ! OPAN+OH=CO+0.5000D+00*GLY+... & + RXRAT( 233 ) ! OH+FMCL=CO+CL & + RXRAT( 234 ) ! FMCL=CO+CL+HO2 & + RXRAT( 243 ) ! CL+FORM=CO+HO2+HCL & + RXRAT( 359 ) ! FORM+BR=CO+HO2+HBR & + RXRAT( 363 ) ! FMBR+OH=CO+BR & + RXRAT( 365 ) ! MB3+OH=CO+0.3000D+01*BR & + RXRAT( 366 ) ! MB2+OH=CO+HO2+0.2000D+01*BR & + RXRAT( 367 ) ! MB2C+OH=CO+CL+0.2000D+01*BR & + RXRAT( 368 ) ! MBC2+OH=CO+0.2000D+01*CL+BR & + RXRAT( 369 ) ! MBC+OH=CO+CL+BR+HO2 & + RXRAT( 378 ) ! FMBR=CO+BR+HO2 & + RXRAT( 379 ) ! MB3=CO+HO2+0.3000D+01*BR & + RXRAT( 380 ) ! MB2C=CO+CL+HO2+0.2000D+01*BR & + RXRAT( 381 ) ! MBC2=CO+0.2000D+01*CL+HO2+BR LOSS( CO ) = RXRAT( 123 ) ! CO+OH=HO2 PROD( HCO3 ) = RXRAT( 101 ) ! FORM+HO2=HCO3 LOSS( HCO3 ) = RXRAT( 102 ) ! HCO3=FORM+HO2 & + RXRAT( 103 ) ! HCO3+NO=FACD+NO2+HO2 & + RXRAT( 104 ) ! HCO3+HO2=0.5000D+00*MEPX+... PROD( ALDX ) = 3.7000D-01 * RXRAT( 133 ) ! ROR=0.3700D+00*ALDX+... & + 3.0000D-01 * RXRAT( 141 ) ! OLE+O=0.3000D+00*ALDX+... & + 4.8800D-01 * RXRAT( 142 ) ! OLE+OH=0.4880D+00*ALDX+... & + 2.7000D-01 * RXRAT( 143 ) ! OLE+O3=0.2700D+00*ALDX+... & + 3.7500D-01 * RXRAT( 144 ) ! OLE+NO3=0.3750D+00*ALDX+... & + 6.6000D-01 * RXRAT( 145 ) ! IOLE+O=0.6600D+00*ALDX+... & + 7.0000D-01 * RXRAT( 146 ) ! IOLE+OH=0.7000D+00*ALDX+... & + 4.4200D-01 * RXRAT( 147 ) ! IOLE+O3=0.4420D+00*ALDX+... & + 6.2500D-01 * RXRAT( 148 ) ! IOLE+NO3=0.6250D+00*ALDX+... & + 1.5000D-01 * RXRAT( 156 ) ! ISOP+O3=0.1500D+00*ALDX+... & + 2.9000D-02 * RXRAT( 162 ) ! ISPX+OH=0.2900D-01*ALDX+... & + 7.8000D-02 * RXRAT( 170 ) ! INTR+OH=0.7800D-01*ALDX+... & + 1.5000D-01 * RXRAT( 171 ) ! TERP+O=0.1500D+00*ALDX+... & + 4.7000D-01 * RXRAT( 172 ) ! TERP+OH=0.4700D+00*ALDX+... & + 2.1000D-01 * RXRAT( 173 ) ! TERP+O3=0.2100D+00*ALDX+... & + 4.7000D-01 * RXRAT( 174 ) ! TERP+NO3=0.4700D+00*ALDX+... & + 1.5000D-01 * RXRAT( 175 ) ! APIN+O=0.1500D+00*ALDX+... & + 4.7000D-01 * RXRAT( 176 ) ! APIN+OH=0.4700D+00*ALDX+... & + 2.1000D-01 * RXRAT( 177 ) ! APIN+O3=0.2100D+00*ALDX+... & + 4.7000D-01 * RXRAT( 178 ) ! APIN+NO3=0.4700D+00*ALDX+... & + RXRAT( 216 ) ! OPO3+C2O3=ALDX+XO2+MEO2+... & + 8.0000D-01 * RXRAT( 217 ) ! OPO3+RO2=0.8000D+00*ALDX+... & + 2.6800D-01 * RXRAT( 222 ) ! XPRP=0.2680D+00*ALDX+... & + 1.2600D-01 * RXRAT( 224 ) ! XPAR=0.1260D+00*ALDX+... & + 6.7000D-01 * RXRAT( 240 ) ! CL+OLE=0.6700D+00*ALDX+... & + 5.5000D-01 * RXRAT( 241 ) ! CL+IOLE=0.5500D+00*ALDX+... LOSS( ALDX ) = RXRAT( 109 ) ! ALDX+O=CXO3+OH & + RXRAT( 110 ) ! ALDX+OH=CXO3 & + RXRAT( 111 ) ! ALDX+NO3=CXO3+HNO3 & + RXRAT( 112 ) ! ALDX=ALD2+XO2H+RO2+CO+HO2 & + RXRAT( 245 ) ! ALDX+CL=HCL+CXO3 PROD( GLYD ) = 1.1000D-02 * RXRAT( 127 ) ! ETOH+OH=0.1100D-01*GLYD+... & + 2.2000D-01 * RXRAT( 138 ) ! ETH+OH=0.2200D+00*GLYD+RO2+... & + 2.6900D-01 * RXRAT( 158 ) ! ISPD+OH=0.2690D+00*GLYD+... & + 1.1300D-01 * RXRAT( 160 ) ! ISPD+NO3=0.1130D+00*GLYD+... & + 1.2800D-01 * RXRAT( 161 ) ! ISPD=0.1280D+00*GLYD+... & + 2.7500D-01 * RXRAT( 166 ) ! EPX2+HO2=0.2750D+00*GLYD+... & + 2.7500D-01 * RXRAT( 167 ) ! EPX2+NO=0.2750D+00*GLYD+... & + 2.2000D-01 * RXRAT( 168 ) ! EPX2+C2O3=0.2200D+00*GLYD+... & + 2.7500D-01 * RXRAT( 169 ) ! EPX2+RO2=0.2750D+00*GLYD+... & + 3.3100D-01 * RXRAT( 170 ) ! INTR+OH=0.3310D+00*GLYD+... LOSS( GLYD ) = RXRAT( 113 ) ! GLYD+OH=0.2000D+00*GLY+... & + RXRAT( 114 ) ! GLYD=0.7400D+00*FORM+... & + RXRAT( 115 ) ! GLYD+NO3=HNO3+C2O3 PROD( GLY ) = 2.0000D-01 * RXRAT( 113 ) ! GLYD+OH=0.2000D+00*GLY+... & + 1.1000D-01 * RXRAT( 114 ) ! GLYD=0.1100D+00*GLY+... & + 7.0000D-01 * RXRAT( 136 ) ! ETHY+OH=0.7000D+00*GLY+... & + 7.5000D-02 * RXRAT( 143 ) ! OLE+O3=0.7500D-01*GLY+... & + 2.4000D-01 * RXRAT( 147 ) ! IOLE+O3=0.2400D+00*GLY+... & + 1.7000D-01 * RXRAT( 159 ) ! ISPD+O3=0.1700D+00*GLY+... & + 2.7500D-01 * RXRAT( 166 ) ! EPX2+HO2=0.2750D+00*GLY+... & + 2.7500D-01 * RXRAT( 167 ) ! EPX2+NO=0.2750D+00*GLY+... & + 2.2000D-01 * RXRAT( 168 ) ! EPX2+C2O3=0.2200D+00*GLY+... & + 2.7500D-01 * RXRAT( 169 ) ! EPX2+RO2=0.2750D+00*GLY+... & + 9.1800D-01 * RXRAT( 180 ) ! BZO2+NO=0.9180D+00*GLY+... & + RXRAT( 181 ) ! BZO2+C2O3=GLY+OPEN+HO2+... & + RXRAT( 183 ) ! BZO2+RO2=GLY+OPEN+HO2+RO2 & + 4.1700D-01 * RXRAT( 185 ) ! TO2+NO=0.4170D+00*GLY+... & + 4.8000D-01 * RXRAT( 186 ) ! TO2+C2O3=0.4800D+00*GLY+... & + 4.8000D-01 * RXRAT( 188 ) ! TO2+RO2=0.4800D+00*GLY+... & + 2.2100D-01 * RXRAT( 191 ) ! XLO2+NO=0.2210D+00*GLY+... & + 2.6000D-01 * RXRAT( 193 ) ! XLO2+C2O3=0.2600D+00*GLY+... & + 2.6000D-01 * RXRAT( 194 ) ! XLO2+RO2=0.2600D+00*GLY+... & + 2.5000D-02 * RXRAT( 195 ) ! CRES+OH=0.2500D-01*GLY+... & + 2.4000D-01 * RXRAT( 196 ) ! CRES+NO3=0.2400D+00*GLY+... & + 4.0000D-01 * RXRAT( 202 ) ! XOPN=0.4000D+00*GLY+XO2H+... & + 4.0000D-01 * RXRAT( 203 ) ! XOPN+OH=0.4000D+00*GLY+... & + 4.0000D-01 * RXRAT( 207 ) ! OPEN+OH=0.4000D+00*GLY+... & + 1.4000D+00 * RXRAT( 208 ) ! OPEN+O3=0.1400D+01*GLY+... & + 5.0000D-01 * RXRAT( 212 ) ! OPO3+NO=0.5000D+00*GLY+NO2+... & + 5.0000D-01 * RXRAT( 218 ) ! OPAN+OH=0.5000D+00*GLY+... LOSS( GLY ) = RXRAT( 116 ) ! GLY+OH=0.1800D+01*CO+... & + RXRAT( 117 ) ! GLY=0.2000D+01*HO2+0.2000D+... & + RXRAT( 118 ) ! GLY+NO3=HNO3+0.1500D+01*CO+... & + RXRAT( 282 ) ! GLY=AGLYJ PROD( MGLY ) = 7.5000D-02 * RXRAT( 143 ) ! OLE+O3=0.7500D-01*MGLY+... & + 6.0000D-02 * RXRAT( 147 ) ! IOLE+O3=0.6000D-01*MGLY+... & + 1.1500D-01 * RXRAT( 158 ) ! ISPD+OH=0.1150D+00*MGLY+... & + 5.3100D-01 * RXRAT( 159 ) ! ISPD+O3=0.5310D+00*MGLY+... & + 1.1300D-01 * RXRAT( 160 ) ! ISPD+NO3=0.1130D+00*MGLY+... & + 2.7500D-01 * RXRAT( 166 ) ! EPX2+HO2=0.2750D+00*MGLY+... & + 2.7500D-01 * RXRAT( 167 ) ! EPX2+NO=0.2750D+00*MGLY+... & + 2.2000D-01 * RXRAT( 168 ) ! EPX2+C2O3=0.2200D+00*MGLY+... & + 2.7500D-01 * RXRAT( 169 ) ! EPX2+RO2=0.2750D+00*MGLY+... & + 4.4300D-01 * RXRAT( 185 ) ! TO2+NO=0.4430D+00*MGLY+... & + 5.2000D-01 * RXRAT( 186 ) ! TO2+C2O3=0.5200D+00*MGLY+... & + 5.2000D-01 * RXRAT( 188 ) ! TO2+RO2=0.5200D+00*MGLY+... & + 6.7500D-01 * RXRAT( 191 ) ! XLO2+NO=0.6750D+00*MGLY+... & + 7.7000D-01 * RXRAT( 193 ) ! XLO2+C2O3=0.7700D+00*MGLY+... & + 7.7000D-01 * RXRAT( 194 ) ! XLO2+RO2=0.7700D+00*MGLY+... & + 2.4000D-01 * RXRAT( 196 ) ! CRES+NO3=0.2400D+00*MGLY+... & + RXRAT( 203 ) ! XOPN+OH=MGLY+0.4000D+... & + 1.2000D+00 * RXRAT( 204 ) ! XOPN+O3=0.1200D+01*MGLY+... & + 2.5000D-01 * RXRAT( 205 ) ! XOPN+NO3=0.2500D+00*MGLY+... & + 2.4000D-01 * RXRAT( 208 ) ! OPEN+O3=0.2400D+00*MGLY+... LOSS( MGLY ) = RXRAT( 119 ) ! MGLY=C2O3+HO2+CO & + RXRAT( 120 ) ! MGLY+NO3=HNO3+C2O3+XO2+RO2 & + RXRAT( 121 ) ! MGLY+OH=C2O3+CO & + RXRAT( 283 ) ! MGLY=AGLYJ PROD( ETHA ) = 0.0D0 LOSS( ETHA ) = RXRAT( 125 ) ! ETHA+OH=0.9910D+00*ALD2+... & + RXRAT( 238 ) ! ETHA+CL=HCL+0.9910D+... PROD( ETOH ) = 0.0D0 LOSS( ETOH ) = RXRAT( 127 ) ! ETOH+OH=0.9500D+00*ALD2+... & + RXRAT( 247 ) ! ETOH+CL=HCL+HO2+ALD2 PROD( KET ) = 2.0000D-01 * RXRAT( 133 ) ! ROR=0.2000D+00*KET+0.4200D+... & + RXRAT( 134 ) ! ROR=KET+HO2 LOSS( KET ) = RXRAT( 128 ) ! KET=0.5000D+00*ALD2+... PROD( PAR ) = 2.0000D-01 * RXRAT( 141 ) ! OLE+O=0.2000D+00*PAR+... & + 1.0000D-01 * RXRAT( 145 ) ! IOLE+O=0.1000D+00*PAR+... & + 2.9000D-01 * RXRAT( 147 ) ! IOLE+O3=0.2900D+00*PAR+... & + RXRAT( 148 ) ! IOLE+NO3=PAR+0.5000D+... & + 2.5000D-01 * RXRAT( 150 ) ! ISOP+O=0.2500D+00*PAR+... & + 3.5000D-01 * RXRAT( 156 ) ! ISOP+O3=0.3500D+00*PAR+... & + 1.1700D-01 * RXRAT( 158 ) ! ISPD+OH=0.1170D+00*PAR+... & + 7.1700D-01 * RXRAT( 160 ) ! ISPD+NO3=0.7170D+00*PAR+... & + 2.4000D-01 * RXRAT( 161 ) ! ISPD=0.2400D+00*PAR+... & + 2.1750D+00 * RXRAT( 166 ) ! EPX2+HO2=0.2175D+01*PAR+... & + 2.1750D+00 * RXRAT( 167 ) ! EPX2+NO=0.2175D+01*PAR+... & + 1.7400D+00 * RXRAT( 168 ) ! EPX2+C2O3=0.1740D+01*PAR+... & + 2.1750D+00 * RXRAT( 169 ) ! EPX2+RO2=0.2175D+01*PAR+... & + 2.7000D+00 * RXRAT( 170 ) ! INTR+OH=0.2700D+01*PAR+... & + 5.1200D+00 * RXRAT( 171 ) ! TERP+O=0.5120D+01*PAR+... & + 1.6600D+00 * RXRAT( 172 ) ! TERP+OH=0.1660D+01*PAR+... & + 7.0000D+00 * RXRAT( 173 ) ! TERP+O3=0.7000D+01*PAR+... & + 5.1200D+00 * RXRAT( 175 ) ! APIN+O=0.5120D+01*PAR+... & + 1.6600D+00 * RXRAT( 176 ) ! APIN+OH=0.1660D+01*PAR+... & + 7.0000D+00 * RXRAT( 177 ) ! APIN+O3=0.7000D+01*PAR+... & + 2.6800D-01 * RXRAT( 222 ) ! XPRP=0.2680D+00*PAR+... & + 3.0000D-01 * RXRAT( 241 ) ! CL+IOLE=0.3000D+00*PAR+... LOSS( PAR ) = 2.5000D+00 * RXRAT( 128 ) ! KET=-0.2500D+01*PAR+... & + RXRAT( 132 ) ! PAR+OH=XPAR & + 2.7000D+00 * RXRAT( 133 ) ! ROR=-0.2700D+01*PAR+... & + 7.3000D-01 * RXRAT( 142 ) ! OLE+OH=-0.7300D+00*PAR+... & + 7.9000D-01 * RXRAT( 143 ) ! OLE+O3=-0.7900D+00*PAR+... & + RXRAT( 144 ) ! OLE+NO3=-PAR+0.5000D+... & + 1.2600D-01 * RXRAT( 224 ) ! XPAR=-0.1260D+00*PAR+... & + RXRAT( 236 ) ! PAR+CL=HCL+XPAR & + RXRAT( 240 ) ! CL+OLE=-PAR+0.3300D+... & + RXRAT( 361 ) ! OLE+BR=-PAR+ALD2+XO2H+FMBR+RO2 PROD( ACET ) = 4.2000D-01 * RXRAT( 133 ) ! ROR=0.4200D+00*ACET+... & + 1.3700D-01 * RXRAT( 158 ) ! ISPD+OH=0.1370D+00*ACET+... & + 1.7000D-01 * RXRAT( 159 ) ! ISPD+O3=0.1700D+00*ACET+... & + 1.7000D-01 * RXRAT( 161 ) ! ISPD=0.1700D+00*ACET+... & + 7.3200D-01 * RXRAT( 222 ) ! XPRP=0.7320D+00*ACET+... & + RXRAT( 237 ) ! CL+PRPA=ACET+HCL+0.9700D+... LOSS( ACET ) = RXRAT( 129 ) ! ACET=0.3800D+00*CO+0.1380D+... & + RXRAT( 130 ) ! ACET+OH=FORM+C2O3+XO2+RO2 PROD( PRPA ) = 0.0D0 LOSS( PRPA ) = RXRAT( 131 ) ! PRPA+OH=XPRP & + RXRAT( 237 ) ! PRPA+CL=HCL+ACET+0.9700D+... PROD( XPRP ) = RXRAT( 131 ) ! PRPA+OH=XPRP LOSS( XPRP ) = RXRAT( 221 ) ! XPRP=XO2N+RO2 & + RXRAT( 222 ) ! XPRP=0.7320D+00*ACET+... PROD( XPAR ) = RXRAT( 132 ) ! PAR+OH=XPAR & + RXRAT( 236 ) ! CL+PAR=XPAR+HCL LOSS( XPAR ) = RXRAT( 223 ) ! XPAR=XO2N+RO2 & + RXRAT( 224 ) ! XPAR=0.1260D+00*ALDX+... PROD( ROR ) = 8.7400D-01 * RXRAT( 224 ) ! XPAR=0.8740D+00*ROR+... LOSS( ROR ) = 9.8000D-01 * RXRAT( 133 ) ! ROR=0.2000D-01*ROR+0.4200D+... & + RXRAT( 134 ) ! ROR=KET+HO2 & + RXRAT( 135 ) ! ROR+NO2=NTR1 PROD( ETHY ) = 0.0D0 LOSS( ETHY ) = RXRAT( 136 ) ! ETHY+OH=0.7000D+00*GLY+... PROD( ETH ) = 0.0D0 LOSS( ETH ) = RXRAT( 137 ) ! ETH+O=FORM+HO2+CO+0.7000D+... & + RXRAT( 138 ) ! ETH+OH=XO2H+RO2+0.1560D+... & + RXRAT( 139 ) ! ETH+O3=FORM+0.3500D+00*CO+... & + RXRAT( 140 ) ! ETH+NO3=0.5000D+00*NO2+... & + RXRAT( 239 ) ! ETH+CL=FMCL+0.2000D+01*XO2+... PROD( OLE ) = 2.4000D-01 * RXRAT( 161 ) ! ISPD=0.2400D+00*OLE+... & + 9.8000D-02 * RXRAT( 170 ) ! INTR+OH=0.9800D-01*OLE+... & + 3.0000D-01 * RXRAT( 241 ) ! CL+IOLE=0.3000D+00*OLE+... LOSS( OLE ) = RXRAT( 141 ) ! OLE+O=0.2000D+00*ALD2+... & + RXRAT( 142 ) ! OLE+OH=0.7810D+00*FORM+... & + RXRAT( 143 ) ! OLE+O3=0.2950D+00*ALD2+... & + RXRAT( 144 ) ! OLE+NO3=0.5000D+00*NO2+... & + RXRAT( 240 ) ! OLE+CL=FMCL+0.3300D+... & + RXRAT( 361 ) ! OLE+BR=FMBR+ALD2+XO2H-PAR+RO2 PROD( IOLE ) = 2.9000D-02 * RXRAT( 162 ) ! ISPX+OH=0.2900D-01*IOLE+... LOSS( IOLE ) = RXRAT( 145 ) ! IOLE+O=0.1240D+01*ALD2+... & + RXRAT( 146 ) ! IOLE+OH=0.1300D+01*ALD2+... & + RXRAT( 147 ) ! IOLE+O3=0.7320D+00*ALD2+... & + RXRAT( 148 ) ! IOLE+NO3=0.5000D+00*NO2+... & + RXRAT( 241 ) ! IOLE+CL=0.3000D+00*HCL+... PROD( ISOP ) = 0.0D0 LOSS( ISOP ) = RXRAT( 149 ) ! ISOP+OH=ISO2+RO2+ISOPRXN & + RXRAT( 150 ) ! ISOP+O=0.7500D+00*ISPD+... & + RXRAT( 156 ) ! ISOP+O3=0.6000D+00*FORM+... & + RXRAT( 157 ) ! ISOP+NO3=0.3500D+00*NO2+... & + RXRAT( 242 ) ! ISOP+CL=FMCL+ISPD+0.9600D+... & + RXRAT( 362 ) ! ISOP+BR=FMBR+ISPD+0.9600D+... PROD( ISO2 ) = RXRAT( 149 ) ! ISOP+OH=ISO2+RO2+ISOPRXN & + 6.7000D-02 * RXRAT( 162 ) ! ISPX+OH=0.6700D-01*ISO2+... LOSS( ISO2 ) = RXRAT( 151 ) ! ISO2+NO=0.1000D+00*INTR+... & + RXRAT( 152 ) ! ISO2+HO2=0.8800D+00*ISPX+... & + RXRAT( 153 ) ! ISO2+C2O3=0.5980D+00*FORM+... & + RXRAT( 154 ) ! ISO2+RO2=0.5980D+00*FORM+... & + RXRAT( 155 ) ! ISO2=HO2+HPLD PROD( ISOPRXN ) = RXRAT( 149 ) ! ISOP+OH=ISOPRXN+RO2+ISO2 & + RXRAT( 157 ) ! ISOP+NO3=ISOPRXN+0.6500D+... LOSS( ISOPRXN ) = 0.0D0 PROD( ISPD ) = 7.5000D-01 * RXRAT( 150 ) ! ISOP+O=0.7500D+00*ISPD+... & + 9.0000D-01 * RXRAT( 151 ) ! ISO2+NO=0.9000D+00*ISPD+... & + 1.2000D-01 * RXRAT( 152 ) ! ISO2+HO2=0.1200D+00*ISPD+... & + RXRAT( 153 ) ! ISO2+C2O3=ISPD+0.5980D+... & + RXRAT( 154 ) ! ISO2+RO2=ISPD+0.5980D+... & + 6.5000D-01 * RXRAT( 156 ) ! ISOP+O3=0.6500D+00*ISPD+... & + 3.5000D-01 * RXRAT( 157 ) ! ISOP+NO3=0.3500D+00*ISPD+... & + RXRAT( 163 ) ! HPLD=ISPD+OH & + RXRAT( 164 ) ! HPLD+NO3=ISPD+HNO3 & + RXRAT( 242 ) ! CL+ISOP=ISPD+FMCL+0.9600D+... & + RXRAT( 362 ) ! ISOP+BR=ISPD+FMBR+0.9600D+... LOSS( ISPD ) = RXRAT( 158 ) ! ISPD+OH=0.2200D-01*XO2N+... & + RXRAT( 159 ) ! ISPD+O3=0.4000D-01*ALD2+... & + RXRAT( 160 ) ! ISPD+NO3=0.7170D+00*HNO3+... & + RXRAT( 161 ) ! ISPD=0.7600D+00*HO2+... PROD( INTR ) = 1.0000D-01 * RXRAT( 151 ) ! ISO2+NO=0.1000D+00*INTR+... LOSS( INTR ) = 8.9600D-01 * RXRAT( 170 ) ! INTR+OH=0.1040D+00*INTR+... PROD( ISPX ) = 8.8000D-01 * RXRAT( 152 ) ! ISO2+HO2=0.8800D+00*ISPX+... LOSS( ISPX ) = RXRAT( 162 ) ! ISPX+OH=0.9040D+00*EPOX+... PROD( HPLD ) = RXRAT( 155 ) ! ISO2=HPLD+HO2 LOSS( HPLD ) = RXRAT( 163 ) ! HPLD=OH+ISPD & + RXRAT( 164 ) ! HPLD+NO3=HNO3+ISPD PROD( OPO3 ) = 4.5700D-01 * RXRAT( 158 ) ! ISPD+OH=0.4570D+00*OPO3+... & + 4.8000D-01 * RXRAT( 196 ) ! CRES+NO3=0.4800D+00*OPO3+... & + RXRAT( 206 ) ! OPEN=OPO3+HO2+CO & + 6.0000D-01 * RXRAT( 207 ) ! OPEN+OH=0.6000D+00*OPO3+... & + RXRAT( 209 ) ! OPEN+NO3=OPO3+HNO3 & + RXRAT( 214 ) ! OPAN=OPO3+NO2 LOSS( OPO3 ) = RXRAT( 212 ) ! OPO3+NO=NO2+0.5000D+00*GLY+... & + RXRAT( 213 ) ! OPO3+NO2=OPAN & + RXRAT( 215 ) ! OPO3+HO2=0.3700D+00*PACD+... & + RXRAT( 216 ) ! OPO3+C2O3=MEO2+XO2+ALDX+... & + RXRAT( 217 ) ! OPO3+RO2=0.8000D+00*XO2H+... PROD( EPOX ) = 9.0400D-01 * RXRAT( 162 ) ! ISPX+OH=0.9040D+00*EPOX+... LOSS( EPOX ) = RXRAT( 165 ) ! EPOX+OH=EPX2+RO2 & + RXRAT( 279 ) ! EPOX=IEPOXP PROD( EPX2 ) = RXRAT( 165 ) ! EPOX+OH=EPX2+RO2 LOSS( EPX2 ) = RXRAT( 166 ) ! EPX2+HO2=0.2750D+00*GLYD+... & + RXRAT( 167 ) ! EPX2+NO=0.2750D+00*GLYD+... & + RXRAT( 168 ) ! EPX2+C2O3=0.2200D+00*GLYD+... & + RXRAT( 169 ) ! EPX2+RO2=0.2750D+00*GLYD+... PROD( TERP ) = 0.0D0 LOSS( TERP ) = RXRAT( 171 ) ! TERP+O=0.1500D+00*ALDX+... & + RXRAT( 172 ) ! TERP+OH=0.7500D+00*XO2H+... & + RXRAT( 173 ) ! TERP+O3=0.5700D+00*OH+... & + RXRAT( 174 ) ! TERP+NO3=0.4700D+00*NO2+... PROD( TRPRXN ) = RXRAT( 171 ) ! TERP+O=TRPRXN+0.5120D+... & + RXRAT( 172 ) ! TERP+OH=TRPRXN+0.5000D+... & + RXRAT( 173 ) ! TERP+O3=TRPRXN+0.7000D-... & + RXRAT( 175 ) ! APIN+O=TRPRXN+0.5120D+... & + RXRAT( 176 ) ! APIN+OH=TRPRXN+0.5000D+... & + RXRAT( 177 ) ! APIN+O3=TRPRXN+0.7000D-... LOSS( TRPRXN ) = 0.0D0 PROD( TERPNRO2 ) = RXRAT( 174 ) ! TERP+NO3=TERPNRO2+0.2800D+... LOSS( TERPNRO2 ) = RXRAT( 284 ) ! TERPNRO2+NO=NO+0.6880D+... & + RXRAT( 285 ) ! TERPNRO2+HO2=HO2+MTNO3 & + RXRAT( 286 ) ! TERPNRO2+NO3=NO3+0.4220D+... & + RXRAT( 287 ) ! TERPNRO2+RO2=RO2+0.7110D+... PROD( APIN ) = 0.0D0 LOSS( APIN ) = RXRAT( 175 ) ! APIN+O=0.1500D+00*ALDX+... & + RXRAT( 176 ) ! APIN+OH=0.7500D+00*XO2H+... & + RXRAT( 177 ) ! APIN+O3=0.5700D+00*OH+... & + RXRAT( 178 ) ! APIN+NO3=0.4700D+00*NO2+... PROD( BENZENE ) = 0.0D0 LOSS( BENZENE ) = RXRAT( 179 ) ! BENZENE+OH=0.5300D+00*CRES+... PROD( CRES ) = 5.3000D-01 * RXRAT( 179 ) ! BENZENE+OH=0.5300D+00*CRES+... & + 1.8000D-01 * RXRAT( 184 ) ! TOL+OH=0.1800D+00*CRES+... & + 1.5500D-01 * RXRAT( 189 ) ! XYLMN+OH=0.1550D+00*CRES+... & + 1.5500D-01 * RXRAT( 190 ) ! NAPH+OH=0.1550D+00*CRES+... & + RXRAT( 198 ) ! CRO+HO2=CRES & + 1.8000D-01 * RXRAT( 249 ) ! CL+TOL=0.1800D+00*CRES+HCL+... & + 1.5500D-01 * RXRAT( 250 ) ! CL+XYLMN=0.1550D+00*CRES+... & + 1.5500D-01 * RXRAT( 251 ) ! CL+NAPH=0.1550D+00*CRES+... LOSS( CRES ) = RXRAT( 195 ) ! CRES+OH=0.2500D-01*GLY+... & + RXRAT( 196 ) ! CRES+NO3=0.3000D+00*CRO+... PROD( BZO2 ) = 3.5200D-01 * RXRAT( 179 ) ! BENZENE+OH=0.3520D+00*BZO2+... LOSS( BZO2 ) = RXRAT( 180 ) ! BZO2+NO=0.9180D+00*NO2+... & + RXRAT( 181 ) ! BZO2+C2O3=GLY+OPEN+HO2+... & + RXRAT( 182 ) ! BZO2+HO2= & + RXRAT( 183 ) ! BZO2+RO2=GLY+OPEN+HO2+RO2 PROD( OPEN ) = 1.1800D-01 * RXRAT( 179 ) ! BENZENE+OH=0.1180D+00*OPEN+... & + 9.1800D-01 * RXRAT( 180 ) ! BZO2+NO=0.9180D+00*OPEN+... & + RXRAT( 181 ) ! BZO2+C2O3=OPEN+GLY+HO2+... & + RXRAT( 183 ) ! BZO2+RO2=OPEN+GLY+HO2+RO2 & + 1.0000D-01 * RXRAT( 184 ) ! TOL+OH=0.1000D+00*OPEN+... & + 6.6000D-01 * RXRAT( 185 ) ! TO2+NO=0.6600D+00*OPEN+... & + 7.7000D-01 * RXRAT( 186 ) ! TO2+C2O3=0.7700D+00*OPEN+... & + 7.7000D-01 * RXRAT( 188 ) ! TO2+RO2=0.7700D+00*OPEN+... & + 3.0000D-01 * RXRAT( 191 ) ! XLO2+NO=0.3000D+00*OPEN+... & + 3.5000D-01 * RXRAT( 193 ) ! XLO2+C2O3=0.3500D+00*OPEN+... & + 3.5000D-01 * RXRAT( 194 ) ! XLO2+RO2=0.3500D+00*OPEN+... & + 2.5000D-02 * RXRAT( 195 ) ! CRES+OH=0.2500D-01*OPEN+... & + RXRAT( 201 ) ! CRON=OPEN+HO2+FORM+HONO & + 2.5000D-01 * RXRAT( 205 ) ! XOPN+NO3=0.2500D+00*OPEN+... & + 1.0000D-01 * RXRAT( 249 ) ! CL+TOL=0.1000D+00*OPEN+... LOSS( OPEN ) = RXRAT( 206 ) ! OPEN=OPO3+HO2+CO & + RXRAT( 207 ) ! OPEN+OH=0.6000D+00*OPO3+... & + RXRAT( 208 ) ! OPEN+O3=0.1400D+01*GLY+... & + RXRAT( 209 ) ! OPEN+NO3=OPO3+HNO3 PROD( BENZRO2 ) = RXRAT( 179 ) ! BENZENE+OH=BENZRO2+0.3520D+... LOSS( BENZRO2 ) = RXRAT( 262 ) ! BENZRO2+NO=NO+0.3400D-... & + RXRAT( 263 ) ! BENZRO2+HO2=HO2+0.1460D+... PROD( TOL ) = 0.0D0 LOSS( TOL ) = RXRAT( 184 ) ! TOL+OH=0.1800D+00*CRES+... & + RXRAT( 249 ) ! TOL+CL=HCL+0.1800D+00*CRES+... PROD( TO2 ) = 6.5000D-01 * RXRAT( 184 ) ! TOL+OH=0.6500D+00*TO2+... & + 6.5000D-01 * RXRAT( 249 ) ! CL+TOL=0.6500D+00*TO2+... LOSS( TO2 ) = RXRAT( 185 ) ! TO2+NO=0.8600D+00*NO2+... & + RXRAT( 186 ) ! TO2+C2O3=0.4800D+00*GLY+... & + RXRAT( 187 ) ! TO2+HO2= & + RXRAT( 188 ) ! TO2+RO2=0.4800D+00*GLY+... PROD( TOLRO2 ) = RXRAT( 184 ) ! TOL+OH=TOLRO2+0.6500D+... & + RXRAT( 249 ) ! CL+TOL=TOLRO2+0.1800D+... LOSS( TOLRO2 ) = RXRAT( 258 ) ! TOLRO2+NO=NO+0.1600D-... & + RXRAT( 259 ) ! TOLRO2+HO2=HO2+0.1400D+... PROD( XOPN ) = 2.0000D-01 * RXRAT( 185 ) ! TO2+NO=0.2000D+00*XOPN+... & + 2.3000D-01 * RXRAT( 186 ) ! TO2+C2O3=0.2300D+00*XOPN+... & + 2.3000D-01 * RXRAT( 188 ) ! TO2+RO2=0.2300D+00*XOPN+... & + 2.4400D-01 * RXRAT( 189 ) ! XYLMN+OH=0.2440D+00*XOPN+... & + 2.4400D-01 * RXRAT( 190 ) ! NAPH+OH=0.2440D+00*XOPN+... & + 5.6000D-01 * RXRAT( 191 ) ! XLO2+NO=0.5600D+00*XOPN+... & + 6.5000D-01 * RXRAT( 193 ) ! XLO2+C2O3=0.6500D+00*XOPN+... & + 6.5000D-01 * RXRAT( 194 ) ! XLO2+RO2=0.6500D+00*XOPN+... & + 2.4400D-01 * RXRAT( 250 ) ! CL+XYLMN=0.2440D+00*XOPN+... & + 2.4400D-01 * RXRAT( 251 ) ! CL+NAPH=0.2440D+00*XOPN+... LOSS( XOPN ) = RXRAT( 202 ) ! XOPN=0.4000D+00*GLY+XO2H+... & + RXRAT( 203 ) ! XOPN+OH=MGLY+0.4000D+... & + RXRAT( 204 ) ! XOPN+O3=0.1200D+01*MGLY+... & + RXRAT( 205 ) ! XOPN+NO3=0.5000D+00*NO2+... PROD( XYLMN ) = 0.0D0 LOSS( XYLMN ) = RXRAT( 189 ) ! XYLMN+OH=0.1550D+00*CRES+... & + RXRAT( 250 ) ! XYLMN+CL=HCL+0.1550D+... PROD( XLO2 ) = 5.4400D-01 * RXRAT( 189 ) ! XYLMN+OH=0.5440D+00*XLO2+... & + 5.4400D-01 * RXRAT( 190 ) ! NAPH+OH=0.5440D+00*XLO2+... & + 5.4400D-01 * RXRAT( 250 ) ! CL+XYLMN=0.5440D+00*XLO2+... & + 5.4400D-01 * RXRAT( 251 ) ! CL+NAPH=0.5440D+00*XLO2+... LOSS( XLO2 ) = RXRAT( 191 ) ! XLO2+NO=0.8600D+00*NO2+... & + RXRAT( 192 ) ! XLO2+HO2= & + RXRAT( 193 ) ! XLO2+C2O3=0.2600D+00*GLY+... & + RXRAT( 194 ) ! XLO2+RO2=0.2600D+00*GLY+... PROD( XYLRO2 ) = RXRAT( 189 ) ! XYLMN+OH=XYLRO2+0.5440D+... & + RXRAT( 250 ) ! CL+XYLMN=XYLRO2+0.1550D+... LOSS( XYLRO2 ) = RXRAT( 260 ) ! XYLRO2+NO=NO+0.1500D-... & + RXRAT( 261 ) ! XYLRO2+HO2=HO2+0.1930D+... PROD( NAPH ) = 0.0D0 LOSS( NAPH ) = RXRAT( 190 ) ! NAPH+OH=0.1550D+00*CRES+... & + RXRAT( 251 ) ! NAPH+CL=HCL+0.1550D+... PROD( PAHRO2 ) = RXRAT( 190 ) ! NAPH+OH=PAHRO2+0.5440D+... & + RXRAT( 251 ) ! CL+NAPH=PAHRO2+0.1550D+... LOSS( PAHRO2 ) = RXRAT( 267 ) ! PAHRO2+NO=NO+0.2800D-... & + RXRAT( 268 ) ! PAHRO2+HO2=HO2+0.4730D+... PROD( CRO ) = 2.0000D-01 * RXRAT( 195 ) ! CRES+OH=0.2000D+00*CRO+... & + 3.0000D-01 * RXRAT( 196 ) ! CRES+NO3=0.3000D+00*CRO+... & + 5.0000D-01 * RXRAT( 199 ) ! CRON+OH=0.5000D+00*CRO+NTR2 & + 5.0000D-01 * RXRAT( 200 ) ! CRON+NO3=0.5000D+00*CRO+... & + 5.0000D-01 * RXRAT( 210 ) ! CAT1+OH=0.5000D+00*CRO+... & + RXRAT( 211 ) ! CAT1+NO3=CRO+HNO3 LOSS( CRO ) = RXRAT( 197 ) ! CRO+NO2=CRON & + RXRAT( 198 ) ! CRO+HO2=CRES PROD( CAT1 ) = 7.3200D-01 * RXRAT( 195 ) ! CRES+OH=0.7320D+00*CAT1+... LOSS( CAT1 ) = RXRAT( 210 ) ! CAT1+OH=0.1400D+00*FORM+... & + RXRAT( 211 ) ! CAT1+NO3=CRO+HNO3 PROD( CRON ) = RXRAT( 197 ) ! CRO+NO2=CRON LOSS( CRON ) = RXRAT( 199 ) ! CRON+OH=NTR2+0.5000D+00*CRO & + RXRAT( 200 ) ! CRON+NO3=NTR2+0.5000D+... & + RXRAT( 201 ) ! CRON=HONO+HO2+FORM+OPEN PROD( OPAN ) = RXRAT( 213 ) ! OPO3+NO2=OPAN LOSS( OPAN ) = RXRAT( 214 ) ! OPAN=OPO3+NO2 & + RXRAT( 218 ) ! OPAN+OH=0.5000D+00*NO2+... PROD( ECH4 ) = 0.0D0 LOSS( ECH4 ) = RXRAT( 220 ) ! ECH4+OH=MEO2+RO2 PROD( CL2 ) = 3.0000D-01 * RXRAT( 229 ) ! CLO+CLO=0.3000D+00*CL2+... LOSS( CL2 ) = RXRAT( 226 ) ! CL2=0.2000D+01*CL PROD( CL ) = 2.0000D+00 * RXRAT( 226 ) ! CL2=0.2000D+01*CL & + RXRAT( 227 ) ! HOCL=CL+OH & + 1.4000D+00 * RXRAT( 229 ) ! CLO+CLO=0.1400D+01*CL+... & + RXRAT( 230 ) ! CLO+NO=CL+NO2 & + RXRAT( 232 ) ! CLO+MEO2=CL+FORM+HO2 & + RXRAT( 233 ) ! OH+FMCL=CL+CO & + RXRAT( 234 ) ! FMCL=CL+CO+HO2 & + RXRAT( 248 ) ! HCL+OH=CL & + RXRAT( 252 ) ! CLNO2=CL+NO2 & + RXRAT( 255 ) ! CLNO3=CL+NO3 & + RXRAT( 358 ) ! BRO+CLO=CL+BR & + RXRAT( 367 ) ! MB2C+OH=CL+0.2000D+01*BR+CO & + 2.0000D+00 * RXRAT( 368 ) ! MBC2+OH=0.2000D+01*CL+BR+CO & + RXRAT( 369 ) ! MBC+OH=CL+BR+CO+HO2 & + RXRAT( 377 ) ! BRCL=CL+BR & + RXRAT( 380 ) ! MB2C=CL+0.2000D+01*BR+HO2+CO & + 2.0000D+00 * RXRAT( 381 ) ! MBC2=0.2000D+01*CL+BR+HO2+CO & + RXRAT( 405 ) ! IO+CLO=CL+I & + RXRAT( 429 ) ! ICL=CL+I & + RXRAT( 434 ) ! MIC=CL+I+FORM & + RXRAT( 453 ) ! DMS+CLO=CL+0.2500D+00*MSA+... LOSS( CL ) = RXRAT( 228 ) ! CL+O3=CLO & + RXRAT( 235 ) ! CL=HCL+MEO2+RO2 & + RXRAT( 236 ) ! CL+PAR=HCL+XPAR & + RXRAT( 237 ) ! CL+PRPA=HCL+ACET+0.9700D+... & + RXRAT( 238 ) ! CL+ETHA=HCL+0.9910D+... & + RXRAT( 239 ) ! CL+ETH=FMCL+0.2000D+01*XO2+... & + RXRAT( 240 ) ! CL+OLE=FMCL+0.3300D+... & + RXRAT( 241 ) ! CL+IOLE=0.3000D+00*HCL+... & + RXRAT( 242 ) ! CL+ISOP=FMCL+ISPD+0.9600D+... & + RXRAT( 243 ) ! CL+FORM=HCL+HO2+CO & + RXRAT( 244 ) ! CL+ALD2=HCL+C2O3 & + RXRAT( 245 ) ! CL+ALDX=HCL+CXO3 & + RXRAT( 246 ) ! CL+MEOH=HCL+HO2+FORM & + RXRAT( 247 ) ! CL+ETOH=HCL+HO2+ALD2 & + RXRAT( 249 ) ! CL+TOL=HCL+0.1800D+00*CRES+... & + RXRAT( 250 ) ! CL+XYLMN=HCL+0.1550D+... & + RXRAT( 251 ) ! CL+NAPH=HCL+0.1550D+... & + RXRAT( 452 ) ! CL+DMS=0.8600D+00*SO2+MEO2+... PROD( HOCL ) = RXRAT( 231 ) ! CLO+HO2=HOCL & + RXRAT( 256 ) ! CLNO3=HOCL+HNO3 & + RXRAT( 257 ) ! CLNO3=HOCL+HNO3 LOSS( HOCL ) = RXRAT( 227 ) ! HOCL=OH+CL PROD( CLO ) = RXRAT( 228 ) ! CL+O3=CLO & + RXRAT( 254 ) ! CLNO3=CLO+NO2 & + 5.5000D-01 * RXRAT( 452 ) ! DMS+CL=0.5500D+00*CLO+MEO2+... LOSS( CLO ) = 2.0000D+00 * RXRAT( 229 ) ! CLO+CLO=0.3000D+00*CL2+... & + RXRAT( 230 ) ! CLO+NO=CL+NO2 & + RXRAT( 231 ) ! CLO+HO2=HOCL & + RXRAT( 232 ) ! CLO+MEO2=CL+FORM+HO2 & + RXRAT( 253 ) ! CLO+NO2=CLNO3 & + RXRAT( 358 ) ! CLO+BRO=BR+CL & + RXRAT( 405 ) ! CLO+IO=I+CL & + RXRAT( 453 ) ! CLO+DMS=0.7500D+00*SO2+... PROD( FMCL ) = RXRAT( 239 ) ! CL+ETH=FMCL+0.2000D+01*XO2+... & + RXRAT( 240 ) ! CL+OLE=FMCL+0.3300D+... & + 7.0000D-01 * RXRAT( 241 ) ! CL+IOLE=0.7000D+00*FMCL+... & + RXRAT( 242 ) ! CL+ISOP=FMCL+ISPD+0.9600D+... LOSS( FMCL ) = RXRAT( 233 ) ! FMCL+OH=CL+CO & + RXRAT( 234 ) ! FMCL=CL+CO+HO2 PROD( HCL ) = RXRAT( 235 ) ! CL=HCL+MEO2+RO2 & + RXRAT( 236 ) ! CL+PAR=HCL+XPAR & + RXRAT( 237 ) ! CL+PRPA=HCL+ACET+0.9700D+... & + RXRAT( 238 ) ! CL+ETHA=HCL+0.9910D+... & + 3.0000D-01 * RXRAT( 241 ) ! CL+IOLE=0.3000D+00*HCL+... & + RXRAT( 243 ) ! CL+FORM=HCL+HO2+CO & + RXRAT( 244 ) ! CL+ALD2=HCL+C2O3 & + RXRAT( 245 ) ! CL+ALDX=HCL+CXO3 & + RXRAT( 246 ) ! CL+MEOH=HCL+HO2+FORM & + RXRAT( 247 ) ! CL+ETOH=HCL+HO2+ALD2 & + RXRAT( 249 ) ! CL+TOL=HCL+0.1800D+00*CRES+... & + RXRAT( 250 ) ! CL+XYLMN=HCL+0.1550D+... & + RXRAT( 251 ) ! CL+NAPH=HCL+0.1550D+... & + 4.5000D-01 * RXRAT( 452 ) ! DMS+CL=0.4500D+00*HCL+MEO2+... LOSS( HCL ) = RXRAT( 248 ) ! HCL+OH=CL PROD( CLNO2 ) = RXRAT( 275 ) ! H2NO3PIJ+ACLI=CLNO2 & + RXRAT( 276 ) ! H2NO3PIJ+ACLJ=CLNO2 & + RXRAT( 277 ) ! H2NO3PK+ACLK=CLNO2 LOSS( CLNO2 ) = RXRAT( 252 ) ! CLNO2=CL+NO2 PROD( CLNO3 ) = RXRAT( 253 ) ! CLO+NO2=CLNO3 LOSS( CLNO3 ) = RXRAT( 254 ) ! CLNO3=CLO+NO2 & + RXRAT( 255 ) ! CLNO3=CL+NO3 & + RXRAT( 256 ) ! CLNO3=HOCL+HNO3 & + RXRAT( 257 ) ! CLNO3=HOCL+HNO3 PROD( SVAVB2 ) = 1.6000D-02 * RXRAT( 258 ) ! TOLRO2+NO=0.1600D-... & + 1.5000D-02 * RXRAT( 260 ) ! XYLRO2+NO=0.1500D-... & + 3.4000D-02 * RXRAT( 262 ) ! BENZRO2+NO=0.3400D-... & + 2.8000D-02 * RXRAT( 267 ) ! PAHRO2+NO=0.2800D-... & + 6.0000D-03 * RXRAT( 269 ) ! SOAALK+OH=0.6000D-... LOSS( SVAVB2 ) = 0.0D0 PROD( SVAVB3 ) = 5.1000D-02 * RXRAT( 258 ) ! TOLRO2+NO=0.5100D-... & + 2.3000D-02 * RXRAT( 260 ) ! XYLRO2+NO=0.2300D-... & + 2.2500D-01 * RXRAT( 267 ) ! PAHRO2+NO=0.2250D+... & + 5.2000D-02 * RXRAT( 269 ) ! SOAALK+OH=0.5200D-... LOSS( SVAVB3 ) = 0.0D0 PROD( SVAVB4 ) = 4.7000D-02 * RXRAT( 258 ) ! TOLRO2+NO=0.4700D-... & + 6.0000D-02 * RXRAT( 260 ) ! XYLRO2+NO=0.6000D-... & + 3.9200D-01 * RXRAT( 262 ) ! BENZRO2+NO=0.3920D+... & + 1.9100D-01 * RXRAT( 267 ) ! PAHRO2+NO=0.1910D+... & + 8.1000D-02 * RXRAT( 269 ) ! SOAALK+OH=0.8100D-... LOSS( SVAVB4 ) = 0.0D0 PROD( SVAVB1 ) = 1.4000D-01 * RXRAT( 259 ) ! TOLRO2+HO2=0.1400D+... & + 1.9300D-01 * RXRAT( 261 ) ! XYLRO2+HO2=0.1930D+... & + 1.4600D-01 * RXRAT( 263 ) ! BENZRO2+HO2=0.1460D+... & + 4.7300D-01 * RXRAT( 268 ) ! PAHRO2+HO2=0.4730D+... LOSS( SVAVB1 ) = 0.0D0 PROD( SESQ ) = 0.0D0 LOSS( SESQ ) = RXRAT( 264 ) ! SESQ+O3=O3+SESQRXN & + RXRAT( 265 ) ! SESQ+OH=OH+SESQRXN & + RXRAT( 266 ) ! SESQ+NO3=NO3+SESQRXN PROD( SESQRXN ) = RXRAT( 264 ) ! SESQ+O3=SESQRXN+O3 & + RXRAT( 265 ) ! SESQ+OH=SESQRXN+OH & + RXRAT( 266 ) ! SESQ+NO3=SESQRXN+NO3 LOSS( SESQRXN ) = 0.0D0 PROD( SOAALK ) = 0.0D0 LOSS( SOAALK ) = RXRAT( 269 ) ! SOAALK+OH=OH+0.6000D-... PROD( H2NO3PIJ ) = RXRAT( 271 ) ! N2O5=H2NO3PIJ+HNO3 LOSS( H2NO3PIJ ) = RXRAT( 273 ) ! H2NO3PIJ=HNO3 & + RXRAT( 275 ) ! H2NO3PIJ+ACLI=CLNO2 & + RXRAT( 276 ) ! H2NO3PIJ+ACLJ=CLNO2 PROD( H2NO3PK ) = RXRAT( 272 ) ! N2O5=H2NO3PK+HNO3 LOSS( H2NO3PK ) = RXRAT( 274 ) ! H2NO3PK=HNO3 & + RXRAT( 277 ) ! H2NO3PK+ACLK=CLNO2 PROD( ACLI ) = 0.0D0 LOSS( ACLI ) = RXRAT( 275 ) ! ACLI+H2NO3PIJ=CLNO2 PROD( ACLJ ) = 0.0D0 LOSS( ACLJ ) = RXRAT( 276 ) ! ACLJ+H2NO3PIJ=CLNO2 & + RXRAT( 384 ) ! ACLJ+HOBR=BRCL & + RXRAT( 386 ) ! ACLJ+BRNO3=BRCL+HNO3 & + RXRAT( 388 ) ! ACLJ+BRNO2=BRCL+HONO & + RXRAT( 443 ) ! ACLJ+INO3=ICL+HNO3 & + RXRAT( 445 ) ! ACLJ+INO2=ICL+HONO & + RXRAT( 447 ) ! ACLJ+HOI=ICL PROD( ACLK ) = 0.0D0 LOSS( ACLK ) = RXRAT( 277 ) ! ACLK+H2NO3PK=CLNO2 PROD( IEPOXP ) = RXRAT( 279 ) ! EPOX=IEPOXP LOSS( IEPOXP ) = RXRAT( 280 ) ! IEPOXP+ASO4J=AISO3J & + RXRAT( 281 ) ! IEPOXP=AISO3J PROD( ASO4J ) = 0.0D0 LOSS( ASO4J ) = RXRAT( 280 ) ! ASO4J+IEPOXP=AISO3J PROD( AISO3J ) = RXRAT( 280 ) ! IEPOXP+ASO4J=AISO3J & + RXRAT( 281 ) ! IEPOXP=AISO3J LOSS( AISO3J ) = 0.0D0 PROD( AGLYJ ) = RXRAT( 282 ) ! GLY=AGLYJ & + RXRAT( 283 ) ! MGLY=AGLYJ LOSS( AGLYJ ) = 0.0D0 PROD( MTNO3 ) = 6.8800D-01 * RXRAT( 284 ) ! TERPNRO2+NO=0.6880D+... & + RXRAT( 285 ) ! TERPNRO2+HO2=MTNO3+HO2 & + 4.2200D-01 * RXRAT( 286 ) ! TERPNRO2+NO3=0.4220D+... & + 7.1100D-01 * RXRAT( 287 ) ! TERPNRO2+RO2=0.7110D+... LOSS( MTNO3 ) = 6.3000D-01 * RXRAT( 288 ) ! MTNO3+CL=0.3700D+00*MTNO3+CL & + 7.6000D-01 * RXRAT( 289 ) ! MTNO3+OH=0.2400D+00*MTNO3+OH & + RXRAT( 290 ) ! MTNO3= PROD( AMTNO3J ) = 0.0D0 LOSS( AMTNO3J ) = RXRAT( 291 ) ! AMTNO3J=AMTHYDJ PROD( AMTHYDJ ) = RXRAT( 291 ) ! AMTNO3J=AMTHYDJ LOSS( AMTHYDJ ) = 0.0D0 PROD( AAVB2J ) = 0.0D0 LOSS( AAVB2J ) = RXRAT( 292 ) ! AAVB2J=0.9070D+00*AOLGAJ PROD( AOLGAJ ) = 9.0700D-01 * RXRAT( 292 ) ! AAVB2J=0.9070D+00*AOLGAJ & + 9.2500D-01 * RXRAT( 293 ) ! AAVB3J=0.9250D+00*AOLGAJ & + 9.4300D-01 * RXRAT( 294 ) ! AAVB4J=0.9430D+00*AOLGAJ LOSS( AOLGAJ ) = 0.0D0 PROD( AAVB3J ) = 0.0D0 LOSS( AAVB3J ) = RXRAT( 293 ) ! AAVB3J=0.9250D+00*AOLGAJ PROD( AAVB4J ) = 0.0D0 LOSS( AAVB4J ) = RXRAT( 294 ) ! AAVB4J=0.9430D+00*AOLGAJ PROD( AISO1J ) = 0.0D0 LOSS( AISO1J ) = RXRAT( 295 ) ! AISO1J=0.5000D+00*AOLGBJ PROD( AOLGBJ ) = 5.0000D-01 * RXRAT( 295 ) ! AISO1J=0.5000D+00*AOLGBJ & + 5.0000D-01 * RXRAT( 296 ) ! AISO2J=0.5000D+00*AOLGBJ & + 1.5000D+00 * RXRAT( 297 ) ! ASQTJ=0.1500D+01*AOLGBJ LOSS( AOLGBJ ) = 0.0D0 PROD( AISO2J ) = 0.0D0 LOSS( AISO2J ) = RXRAT( 296 ) ! AISO2J=0.5000D+00*AOLGBJ PROD( ASQTJ ) = 0.0D0 LOSS( ASQTJ ) = RXRAT( 297 ) ! ASQTJ=0.1500D+01*AOLGBJ PROD( APOCI ) = 0.0D0 LOSS( APOCI ) = 0.0D0 PROD( APNCOMI ) = 1.2500D+00 * RXRAT( 298 ) ! APOCI+OH=0.1250D+... LOSS( APNCOMI ) = RXRAT( 299 ) ! APNCOMI+OH=OH PROD( APOCJ ) = 0.0D0 LOSS( APOCJ ) = 0.0D0 PROD( APNCOMJ ) = 1.2500D+00 * RXRAT( 300 ) ! APOCJ+OH=0.1250D+... LOSS( APNCOMJ ) = RXRAT( 301 ) ! APNCOMJ+OH=OH PROD( PCVOC ) = 0.0D0 LOSS( PCVOC ) = RXRAT( 302 ) ! PCVOC+OH=OH+PCSOARXN PROD( PCSOARXN ) = RXRAT( 302 ) ! PCVOC+OH=PCSOARXN+OH LOSS( PCSOARXN ) = 0.0D0 PROD( VLVPO1 ) = 3.0030D-01 * RXRAT( 304 ) ! VSVPO1+OH=0.3003D+... & + 3.8560D-01 * RXRAT( 305 ) ! VSVPO2+OH=0.3856D+... & + 2.1810D-01 * RXRAT( 306 ) ! VSVPO3+OH=0.2181D+... & + 2.4120D-01 * RXRAT( 307 ) ! VIVPO1+OH=0.2412D+... LOSS( VLVPO1 ) = 5.1430D-01 * RXRAT( 303 ) ! VLVPO1+OH=0.4857D+... PROD( VSVPO1 ) = 6.2000D-03 * RXRAT( 303 ) ! VLVPO1+OH=0.6200D-... & + 9.5000D-02 * RXRAT( 305 ) ! VSVPO2+OH=0.9500D-... & + 3.0630D-01 * RXRAT( 306 ) ! VSVPO3+OH=0.3063D+... & + 2.0890D-01 * RXRAT( 307 ) ! VIVPO1+OH=0.2089D+... LOSS( VSVPO1 ) = 7.1380D-01 * RXRAT( 304 ) ! VSVPO1+OH=0.2862D+... PROD( VSVPO2 ) = 2.5000D-03 * RXRAT( 303 ) ! VLVPO1+OH=0.2500D-... & + 4.1000D-03 * RXRAT( 304 ) ! VSVPO1+OH=0.4100D-... & + 1.5300D-02 * RXRAT( 306 ) ! VSVPO3+OH=0.1530D-... & + 3.0000D-01 * RXRAT( 307 ) ! VIVPO1+OH=0.3000D+... LOSS( VSVPO2 ) = 8.6270D-01 * RXRAT( 305 ) ! VSVPO2+OH=0.1373D+... PROD( VSVPO3 ) = 2.6000D-03 * RXRAT( 303 ) ! VLVPO1+OH=0.2600D-... & + 3.5000D-03 * RXRAT( 304 ) ! VSVPO1+OH=0.3500D-... & + 5.0000D-04 * RXRAT( 305 ) ! VSVPO2+OH=0.5000D-... LOSS( VSVPO3 ) = 8.9570D-01 * RXRAT( 306 ) ! VSVPO3+OH=0.1043D+... PROD( VIVPO1 ) = 2.3000D-03 * RXRAT( 303 ) ! VLVPO1+OH=0.2300D-... LOSS( VIVPO1 ) = RXRAT( 307 ) ! VIVPO1+OH=OH+0.2412D+... PROD( VLVOO1 ) = 2.9440D-01 * RXRAT( 303 ) ! VLVPO1+OH=0.2944D+... & + 2.2390D-01 * RXRAT( 304 ) ! VSVPO1+OH=0.2239D+... & + 2.0510D-01 * RXRAT( 305 ) ! VSVPO2+OH=0.2051D+... & + 1.8930D-01 * RXRAT( 306 ) ! VSVPO3+OH=0.1893D+... & + 2.0280D-01 * RXRAT( 307 ) ! VIVPO1+OH=0.2028D+... & + 2.8580D-01 * RXRAT( 309 ) ! VLVOO2+OH=0.2858D+... & + 3.3030D-01 * RXRAT( 310 ) ! VSVOO1+OH=0.3303D+... & + 3.4440D-01 * RXRAT( 311 ) ! VSVOO2+OH=0.3444D+... & + 3.8860D-01 * RXRAT( 312 ) ! VSVOO3+OH=0.3886D+... LOSS( VLVOO1 ) = 3.3360D-01 * RXRAT( 308 ) ! VLVOO1+OH=0.6664D+... PROD( VLVOO2 ) = 2.0210D-01 * RXRAT( 303 ) ! VLVPO1+OH=0.2021D+... & + 1.8200D-01 * RXRAT( 304 ) ! VSVPO1+OH=0.1820D+... & + 1.7640D-01 * RXRAT( 305 ) ! VSVPO2+OH=0.1764D+... & + 1.6680D-01 * RXRAT( 306 ) ! VSVPO3+OH=0.1668D+... & + 4.7100D-02 * RXRAT( 307 ) ! VIVPO1+OH=0.4710D-... & + 1.4300D-02 * RXRAT( 308 ) ! VLVOO1+OH=0.1430D-... & + 2.2720D-01 * RXRAT( 310 ) ! VSVOO1+OH=0.2272D+... & + 2.7490D-01 * RXRAT( 311 ) ! VSVOO2+OH=0.2749D+... & + 2.4210D-01 * RXRAT( 312 ) ! VSVOO3+OH=0.2421D+... LOSS( VLVOO2 ) = 6.0690D-01 * RXRAT( 309 ) ! VLVOO2+OH=0.3931D+... PROD( VSVOO2 ) = 1.9000D-03 * RXRAT( 303 ) ! VLVPO1+OH=0.1900D-... & + 1.2390D-01 * RXRAT( 308 ) ! VLVOO1+OH=0.1239D+... & + 1.0270D-01 * RXRAT( 309 ) ! VLVOO2+OH=0.1027D+... & + 7.0200D-02 * RXRAT( 310 ) ! VSVOO1+OH=0.7020D-... & + 3.8500D-02 * RXRAT( 312 ) ! VSVOO3+OH=0.3850D-... LOSS( VSVOO2 ) = 7.4230D-01 * RXRAT( 311 ) ! VSVOO2+OH=0.2577D+... PROD( VSVOO3 ) = 2.3000D-03 * RXRAT( 303 ) ! VLVPO1+OH=0.2300D-... & + 1.8310D-01 * RXRAT( 308 ) ! VLVOO1+OH=0.1831D+... & + 2.0450D-01 * RXRAT( 309 ) ! VLVOO2+OH=0.2045D+... & + 1.1160D-01 * RXRAT( 310 ) ! VSVOO1+OH=0.1116D+... & + 7.3900D-02 * RXRAT( 311 ) ! VSVOO2+OH=0.7390D-... LOSS( VSVOO3 ) = 7.3330D-01 * RXRAT( 312 ) ! VSVOO3+OH=0.2667D+... PROD( VSVOO1 ) = 1.2300D-02 * RXRAT( 308 ) ! VLVOO1+OH=0.1230D-... & + 1.3900D-02 * RXRAT( 309 ) ! VLVOO2+OH=0.1390D-... & + 4.9100D-02 * RXRAT( 311 ) ! VSVOO2+OH=0.4910D-... & + 6.4000D-02 * RXRAT( 312 ) ! VSVOO3+OH=0.6400D-... LOSS( VSVOO1 ) = 7.3930D-01 * RXRAT( 310 ) ! VSVOO1+OH=0.2607D+... PROD( FORM_PRIMARY ) = 0.0D0 LOSS( FORM_PRIMARY ) = RXRAT( 313 ) ! FORM_PRIMARY+OH=OH & + RXRAT( 314 ) ! FORM_PRIMARY+NO3=NO3 & + RXRAT( 315 ) ! FORM_PRIMARY+O=O & + RXRAT( 316 ) ! FORM_PRIMARY= & + RXRAT( 317 ) ! FORM_PRIMARY= & + RXRAT( 318 ) ! FORM_PRIMARY+CL=CL PROD( ALD2_PRIMARY ) = 0.0D0 LOSS( ALD2_PRIMARY ) = RXRAT( 319 ) ! ALD2_PRIMARY+OH=OH & + RXRAT( 320 ) ! ALD2_PRIMARY+NO3=NO3 & + RXRAT( 321 ) ! ALD2_PRIMARY+O=O & + RXRAT( 322 ) ! ALD2_PRIMARY= & + RXRAT( 323 ) ! ALD2_PRIMARY+CL=CL PROD( BUTADIENE13 ) = 0.0D0 LOSS( BUTADIENE13 ) = RXRAT( 324 ) ! BUTADIENE13+OH=OH+0.5800D+... & + RXRAT( 325 ) ! BUTADIENE13+O3=O3+0.5200D+... & + RXRAT( 326 ) ! BUTADIENE13+NO3=NO3+... & + RXRAT( 327 ) ! BUTADIENE13+CL=CL+0.5800D+... PROD( ACROLEIN ) = 5.8000D-01 * RXRAT( 324 ) ! BUTADIENE13+OH=0.5800D+... & + 5.2000D-01 * RXRAT( 325 ) ! BUTADIENE13+O3=0.5200D+... & + 4.5000D-02 * RXRAT( 326 ) ! BUTADIENE13+NO3=0.4500D-... & + 5.8000D-01 * RXRAT( 327 ) ! BUTADIENE13+CL=0.5800D+... LOSS( ACROLEIN ) = RXRAT( 333 ) ! ACROLEIN+OH=OH & + RXRAT( 334 ) ! ACROLEIN+O3=O3 & + RXRAT( 335 ) ! ACROLEIN+NO3=NO3 & + RXRAT( 336 ) ! ACROLEIN= & + RXRAT( 337 ) ! ACROLEIN+CL=CL PROD( ACRO_PRIMARY ) = 0.0D0 LOSS( ACRO_PRIMARY ) = RXRAT( 328 ) ! ACRO_PRIMARY+OH=OH & + RXRAT( 329 ) ! ACRO_PRIMARY+O3=O3 & + RXRAT( 330 ) ! ACRO_PRIMARY+NO3=NO3 & + RXRAT( 331 ) ! ACRO_PRIMARY= & + RXRAT( 332 ) ! ACRO_PRIMARY+CL=CL PROD( TOLU ) = 0.0D0 LOSS( TOLU ) = RXRAT( 338 ) ! TOLU+OH=OH & + RXRAT( 339 ) ! TOLU+CL=CL PROD( HG ) = 0.0D0 LOSS( HG ) = RXRAT( 340 ) ! HG+O3=0.5000D+00*HGIIAER+... & + RXRAT( 341 ) ! HG+CL2=HGIIGAS+CL2 & + RXRAT( 342 ) ! HG+H2O2=HGIIGAS+H2O2 & + RXRAT( 343 ) ! HG+OH=0.5000D+00*HGIIAER+... & + 5.0000D-01 * RXRAT( 344 ) ! HG+CL=0.5000D+00*HG+... PROD( HGIIAER ) = 5.0000D-01 * RXRAT( 340 ) ! HG+O3=0.5000D+00*HGIIAER+... & + 5.0000D-01 * RXRAT( 343 ) ! HG+OH=0.5000D+00*HGIIAER+... LOSS( HGIIAER ) = 0.0D0 PROD( HGIIGAS ) = 5.0000D-01 * RXRAT( 340 ) ! HG+O3=0.5000D+00*HGIIGAS+... & + RXRAT( 341 ) ! HG+CL2=HGIIGAS+CL2 & + RXRAT( 342 ) ! HG+H2O2=HGIIGAS+H2O2 & + 5.0000D-01 * RXRAT( 343 ) ! HG+OH=0.5000D+00*HGIIGAS+... & + 5.0000D-01 * RXRAT( 344 ) ! HG+CL=0.5000D+00*HGIIGAS+... LOSS( HGIIGAS ) = 0.0D0 PROD( BR ) = RXRAT( 348 ) ! HBR+OH=BR & + 2.0000D+00 * RXRAT( 349 ) ! BRO+BRO=0.2000D+01*BR & + RXRAT( 351 ) ! BRO+NO=BR+NO2 & + RXRAT( 353 ) ! BR2+OH=BR+HOBR & + RXRAT( 354 ) ! BRO+OH=BR+HO2 & + RXRAT( 358 ) ! BRO+CLO=BR+CL & + RXRAT( 363 ) ! FMBR+OH=BR+CO & + 2.0000D-01 * RXRAT( 364 ) ! BRO+MEO2=0.2000D+00*BR+... & + 3.0000D+00 * RXRAT( 365 ) ! MB3+OH=0.3000D+01*BR+CO & + 2.0000D+00 * RXRAT( 366 ) ! MB2+OH=0.2000D+01*BR+HO2+CO & + 2.0000D+00 * RXRAT( 367 ) ! MB2C+OH=0.2000D+01*BR+CL+CO & + RXRAT( 368 ) ! MBC2+OH=BR+0.2000D+01*CL+CO & + RXRAT( 369 ) ! MBC+OH=BR+CL+CO+HO2 & + RXRAT( 370 ) ! DMS+BRO=BR+0.2500D+00*MSA+... & + 2.0000D+00 * RXRAT( 371 ) ! BR2=0.2000D+01*BR & + RXRAT( 372 ) ! HOBR=BR+OH & + RXRAT( 373 ) ! BRO=BR+O & + RXRAT( 374 ) ! BRNO2=BR+NO2 & + RXRAT( 376 ) ! BRNO3=BR+NO3 & + RXRAT( 377 ) ! BRCL=BR+CL & + RXRAT( 378 ) ! FMBR=BR+CO+HO2 & + 3.0000D+00 * RXRAT( 379 ) ! MB3=0.3000D+01*BR+HO2+CO & + 2.0000D+00 * RXRAT( 380 ) ! MB2C=0.2000D+01*BR+CL+HO2+CO & + RXRAT( 381 ) ! MBC2=BR+0.2000D+01*CL+HO2+CO & + RXRAT( 402 ) ! I+BRO=BR+IO & + RXRAT( 404 ) ! IO+BRO=BR+I & + RXRAT( 430 ) ! IBR=BR+I & + RXRAT( 433 ) ! MIB=BR+I+FORM LOSS( BR ) = RXRAT( 345 ) ! BR+O3=BRO & + RXRAT( 347 ) ! BR+HO2=HBR & + RXRAT( 352 ) ! BR+BRNO3=BR2+NO3 & + RXRAT( 355 ) ! BR+NO3=BRO+NO2 & + RXRAT( 357 ) ! BR+NO2=BRNO2 & + RXRAT( 359 ) ! BR+FORM=HBR+HO2+CO & + RXRAT( 360 ) ! BR+ALD2=HBR+C2O3 & + RXRAT( 361 ) ! BR+OLE=FMBR+ALD2+XO2H-PAR+RO2 & + RXRAT( 362 ) ! BR+ISOP=FMBR+ISPD+0.9600D+... & + RXRAT( 403 ) ! BR+IO=I+BRO PROD( BRO ) = RXRAT( 345 ) ! BR+O3=BRO & + RXRAT( 355 ) ! BR+NO3=BRO+NO2 & + RXRAT( 375 ) ! BRNO3=BRO+NO2 & + RXRAT( 403 ) ! IO+BR=BRO+I LOSS( BRO ) = RXRAT( 346 ) ! BRO+HO2=HOBR & + 2.0000D+00 * RXRAT( 349 ) ! BRO+BRO=0.2000D+01*BR & + 2.0000D+00 * RXRAT( 350 ) ! BRO+BRO=BR2 & + RXRAT( 351 ) ! BRO+NO=BR+NO2 & + RXRAT( 354 ) ! BRO+OH=BR+HO2 & + RXRAT( 356 ) ! BRO+NO2=BRNO3 & + RXRAT( 358 ) ! BRO+CLO=BR+CL & + RXRAT( 364 ) ! BRO+MEO2=0.8000D+00*HOBR+... & + RXRAT( 370 ) ! BRO+DMS=0.7500D+00*SO2+... & + RXRAT( 373 ) ! BRO=BR+O & + RXRAT( 402 ) ! BRO+I=IO+BR & + RXRAT( 404 ) ! BRO+IO=BR+I PROD( HOBR ) = RXRAT( 346 ) ! BRO+HO2=HOBR & + RXRAT( 353 ) ! BR2+OH=HOBR+BR & + 8.0000D-01 * RXRAT( 364 ) ! BRO+MEO2=0.8000D+00*HOBR+... & + RXRAT( 382 ) ! BRNO3=HOBR+HNO3 & + RXRAT( 383 ) ! BRNO3=HOBR+HNO3 LOSS( HOBR ) = RXRAT( 372 ) ! HOBR=OH+BR & + RXRAT( 384 ) ! HOBR+ACLJ=BRCL & + RXRAT( 385 ) ! HOBR+ABRJ=BR2 PROD( HBR ) = RXRAT( 347 ) ! BR+HO2=HBR & + RXRAT( 359 ) ! FORM+BR=HBR+HO2+CO & + RXRAT( 360 ) ! ALD2+BR=HBR+C2O3 LOSS( HBR ) = RXRAT( 348 ) ! HBR+OH=BR & + RXRAT( 390 ) ! HBR=ABRJ PROD( BR2 ) = RXRAT( 350 ) ! BRO+BRO=BR2 & + RXRAT( 352 ) ! BR+BRNO3=BR2+NO3 & + RXRAT( 385 ) ! HOBR+ABRJ=BR2 & + RXRAT( 387 ) ! BRNO3+ABRJ=BR2+HNO3 & + RXRAT( 389 ) ! BRNO2+ABRJ=BR2+HONO LOSS( BR2 ) = RXRAT( 353 ) ! BR2+OH=HOBR+BR & + RXRAT( 371 ) ! BR2=0.2000D+01*BR PROD( BRNO3 ) = RXRAT( 356 ) ! BRO+NO2=BRNO3 LOSS( BRNO3 ) = RXRAT( 352 ) ! BRNO3+BR=BR2+NO3 & + RXRAT( 375 ) ! BRNO3=BRO+NO2 & + RXRAT( 376 ) ! BRNO3=BR+NO3 & + RXRAT( 382 ) ! BRNO3=HOBR+HNO3 & + RXRAT( 383 ) ! BRNO3=HOBR+HNO3 & + RXRAT( 386 ) ! BRNO3+ACLJ=BRCL+HNO3 & + RXRAT( 387 ) ! BRNO3+ABRJ=BR2+HNO3 PROD( BRNO2 ) = RXRAT( 357 ) ! BR+NO2=BRNO2 LOSS( BRNO2 ) = RXRAT( 374 ) ! BRNO2=BR+NO2 & + RXRAT( 388 ) ! BRNO2+ACLJ=BRCL+HONO & + RXRAT( 389 ) ! BRNO2+ABRJ=BR2+HONO PROD( FMBR ) = RXRAT( 361 ) ! OLE+BR=FMBR+ALD2+XO2H-PAR+RO2 & + RXRAT( 362 ) ! ISOP+BR=FMBR+ISPD+0.9600D+... LOSS( FMBR ) = RXRAT( 363 ) ! FMBR+OH=BR+CO & + RXRAT( 378 ) ! FMBR=BR+CO+HO2 PROD( MB3 ) = 0.0D0 LOSS( MB3 ) = RXRAT( 365 ) ! MB3+OH=0.3000D+01*BR+CO & + RXRAT( 379 ) ! MB3=0.3000D+01*BR+HO2+CO PROD( MB2 ) = 0.0D0 LOSS( MB2 ) = RXRAT( 366 ) ! MB2+OH=0.2000D+01*BR+HO2+CO PROD( MB2C ) = 0.0D0 LOSS( MB2C ) = RXRAT( 367 ) ! MB2C+OH=0.2000D+01*BR+CL+CO & + RXRAT( 380 ) ! MB2C=0.2000D+01*BR+CL+HO2+CO PROD( MBC2 ) = 0.0D0 LOSS( MBC2 ) = RXRAT( 368 ) ! MBC2+OH=BR+0.2000D+01*CL+CO & + RXRAT( 381 ) ! MBC2=BR+0.2000D+01*CL+HO2+CO PROD( MBC ) = 0.0D0 LOSS( MBC ) = RXRAT( 369 ) ! MBC+OH=BR+CL+CO+HO2 PROD( DMS ) = 0.0D0 LOSS( DMS ) = RXRAT( 370 ) ! DMS+BRO=0.7500D+00*SO2+... & + RXRAT( 418 ) ! DMS+IO=0.7500D+00*SO2+... & + RXRAT( 449 ) ! DMS+OH=SO2+MEO2+FORM & + RXRAT( 450 ) ! DMS+OH=0.7500D+00*SO2+... & + RXRAT( 451 ) ! DMS+NO3=SO2+HNO3+MEO2+FORM & + RXRAT( 452 ) ! DMS+CL=0.8600D+00*SO2+MEO2+... & + RXRAT( 453 ) ! DMS+CLO=0.7500D+00*SO2+... PROD( MSA ) = 2.5000D-01 * RXRAT( 370 ) ! DMS+BRO=0.2500D+00*MSA+... & + 2.5000D-01 * RXRAT( 418 ) ! DMS+IO=0.2500D+00*MSA+... & + 2.5000D-01 * RXRAT( 450 ) ! DMS+OH=0.2500D+00*MSA+... & + 1.4000D-01 * RXRAT( 452 ) ! DMS+CL=0.1400D+00*MSA+MEO2+... & + 2.5000D-01 * RXRAT( 453 ) ! DMS+CLO=0.2500D+00*MSA+... LOSS( MSA ) = 0.0D0 PROD( BRCL ) = RXRAT( 384 ) ! HOBR+ACLJ=BRCL & + RXRAT( 386 ) ! BRNO3+ACLJ=BRCL+HNO3 & + RXRAT( 388 ) ! BRNO2+ACLJ=BRCL+HONO LOSS( BRCL ) = RXRAT( 377 ) ! BRCL=BR+CL PROD( ABRJ ) = RXRAT( 390 ) ! HBR=ABRJ LOSS( ABRJ ) = RXRAT( 385 ) ! ABRJ+HOBR=BR2 & + RXRAT( 387 ) ! ABRJ+BRNO3=BR2+HNO3 & + RXRAT( 389 ) ! ABRJ+BRNO2=BR2+HONO & + RXRAT( 444 ) ! ABRJ+INO3=IBR+HNO3 & + RXRAT( 446 ) ! ABRJ+INO2=IBR+HONO & + RXRAT( 448 ) ! ABRJ+HOI=IBR PROD( I ) = RXRAT( 393 ) ! I2+OH=I+HOI & + RXRAT( 394 ) ! HI+OH=I & + RXRAT( 397 ) ! IO+NO=I+NO2 & + RXRAT( 400 ) ! I2+NO3=I+INO3 & + RXRAT( 403 ) ! IO+BR=I+BRO & + RXRAT( 404 ) ! IO+BRO=I+BR & + RXRAT( 405 ) ! IO+CLO=I+CL & + 4.0000D-01 * RXRAT( 408 ) ! IO+IO=0.4000D+00*I+0.4000D+... & + RXRAT( 410 ) ! I2O2=I+OIO & + RXRAT( 412 ) ! INO2=I+NO2 & + RXRAT( 417 ) ! CH3I+OH=I+FORM & + RXRAT( 418 ) ! DMS+IO=I+0.2500D+00*MSA+... & + 2.0000D+00 * RXRAT( 419 ) ! I2=0.2000D+01*I & + RXRAT( 420 ) ! HOI=I+OH & + RXRAT( 421 ) ! IO=I+O & + RXRAT( 422 ) ! OIO=I & + RXRAT( 423 ) ! INO=I+NO & + RXRAT( 424 ) ! INO2=I+NO2 & + RXRAT( 425 ) ! INO3=I+NO3 & + RXRAT( 426 ) ! I2O2=I+OIO & + RXRAT( 429 ) ! ICL=I+CL & + RXRAT( 430 ) ! IBR=I+BR & + RXRAT( 431 ) ! CH3I=I+MEO2 & + 2.0000D+00 * RXRAT( 432 ) ! MI2=0.2000D+01*I+FORM & + RXRAT( 433 ) ! MIB=I+BR+FORM & + RXRAT( 434 ) ! MIC=I+CL+FORM LOSS( I ) = RXRAT( 391 ) ! I+O3=IO & + RXRAT( 392 ) ! I+HO2=HI & + RXRAT( 401 ) ! I+INO3=I2+NO3 & + RXRAT( 402 ) ! I+BRO=IO+BR & + RXRAT( 414 ) ! I+NO=INO & + RXRAT( 415 ) ! I+NO2=INO2 PROD( IO ) = RXRAT( 391 ) ! I+O3=IO & + RXRAT( 395 ) ! HOI+OH=IO & + RXRAT( 402 ) ! I+BRO=IO+BR & + RXRAT( 407 ) ! OIO+NO=IO+NO2 & + RXRAT( 413 ) ! INO3=IO+NO2 & + RXRAT( 427 ) ! I2O3=IO+OIO & + RXRAT( 435 ) ! HOI+NO3=IO+HNO3 & + 2.0000D+00 * RXRAT( 436 ) ! I2O2=0.2000D+01*IO LOSS( IO ) = RXRAT( 396 ) ! IO+HO2=HOI & + RXRAT( 397 ) ! IO+NO=I+NO2 & + RXRAT( 403 ) ! IO+BR=I+BRO & + RXRAT( 404 ) ! IO+BRO=BR+I & + RXRAT( 405 ) ! IO+CLO=I+CL & + 2.0000D+00 * RXRAT( 408 ) ! IO+IO=0.4000D+00*OIO+... & + RXRAT( 409 ) ! IO+OIO=I2O3 & + RXRAT( 416 ) ! IO+NO2=INO3 & + RXRAT( 418 ) ! IO+DMS=0.7500D+00*SO2+... & + RXRAT( 421 ) ! IO=I+O PROD( HI ) = RXRAT( 392 ) ! I+HO2=HI LOSS( HI ) = RXRAT( 394 ) ! HI+OH=I PROD( I2 ) = RXRAT( 398 ) ! INO+INO=I2+0.2000D+01*NO & + RXRAT( 399 ) ! INO2+INO2=I2+0.2000D+01*NO2 & + RXRAT( 401 ) ! INO3+I=I2+NO3 LOSS( I2 ) = RXRAT( 393 ) ! I2+OH=HOI+I & + RXRAT( 400 ) ! I2+NO3=I+INO3 & + RXRAT( 419 ) ! I2=0.2000D+01*I PROD( HOI ) = RXRAT( 393 ) ! I2+OH=HOI+I & + RXRAT( 396 ) ! IO+HO2=HOI LOSS( HOI ) = RXRAT( 395 ) ! HOI+OH=IO & + RXRAT( 420 ) ! HOI=I+OH & + RXRAT( 435 ) ! HOI+NO3=IO+HNO3 & + RXRAT( 447 ) ! HOI+ACLJ=ICL & + RXRAT( 448 ) ! HOI+ABRJ=IBR PROD( INO ) = RXRAT( 414 ) ! I+NO=INO LOSS( INO ) = 2.0000D+00 * RXRAT( 398 ) ! INO+INO=I2+0.2000D+01*NO & + RXRAT( 423 ) ! INO=I+NO PROD( INO2 ) = RXRAT( 415 ) ! I+NO2=INO2 LOSS( INO2 ) = 2.0000D+00 * RXRAT( 399 ) ! INO2+INO2=I2+0.2000D+01*NO2 & + RXRAT( 412 ) ! INO2=I+NO2 & + RXRAT( 424 ) ! INO2=I+NO2 & + RXRAT( 445 ) ! INO2+ACLJ=ICL+HONO & + RXRAT( 446 ) ! INO2+ABRJ=IBR+HONO PROD( INO3 ) = RXRAT( 400 ) ! I2+NO3=INO3+I & + RXRAT( 416 ) ! IO+NO2=INO3 LOSS( INO3 ) = RXRAT( 401 ) ! INO3+I=I2+NO3 & + RXRAT( 413 ) ! INO3=IO+NO2 & + RXRAT( 425 ) ! INO3=I+NO3 & + RXRAT( 443 ) ! INO3+ACLJ=ICL+HNO3 & + RXRAT( 444 ) ! INO3+ABRJ=IBR+HNO3 PROD( OIO ) = 4.0000D-01 * RXRAT( 408 ) ! IO+IO=0.4000D+00*OIO+... & + RXRAT( 410 ) ! I2O2=OIO+I & + 2.0000D+00 * RXRAT( 411 ) ! I2O4=0.2000D+01*OIO & + RXRAT( 426 ) ! I2O2=OIO+I & + RXRAT( 427 ) ! I2O3=OIO+IO & + 2.0000D+00 * RXRAT( 428 ) ! I2O4=0.2000D+01*OIO LOSS( OIO ) = 2.0000D+00 * RXRAT( 406 ) ! OIO+OIO=I2O4 & + RXRAT( 407 ) ! OIO+NO=IO+NO2 & + RXRAT( 409 ) ! OIO+IO=I2O3 & + RXRAT( 422 ) ! OIO=I PROD( I2O4 ) = RXRAT( 406 ) ! OIO+OIO=I2O4 LOSS( I2O4 ) = RXRAT( 411 ) ! I2O4=0.2000D+01*OIO & + RXRAT( 428 ) ! I2O4=0.2000D+01*OIO & + RXRAT( 441 ) ! I2O4= & + RXRAT( 442 ) ! I2O4= PROD( I2O2 ) = 6.0000D-01 * RXRAT( 408 ) ! IO+IO=0.6000D+00*I2O2+... LOSS( I2O2 ) = RXRAT( 410 ) ! I2O2=OIO+I & + RXRAT( 426 ) ! I2O2=I+OIO & + RXRAT( 436 ) ! I2O2=0.2000D+01*IO & + RXRAT( 437 ) ! I2O2= & + RXRAT( 438 ) ! I2O2= PROD( I2O3 ) = RXRAT( 409 ) ! IO+OIO=I2O3 LOSS( I2O3 ) = RXRAT( 427 ) ! I2O3=IO+OIO & + RXRAT( 439 ) ! I2O3= & + RXRAT( 440 ) ! I2O3= PROD( CH3I ) = 0.0D0 LOSS( CH3I ) = RXRAT( 417 ) ! CH3I+OH=I+FORM & + RXRAT( 431 ) ! CH3I=I+MEO2 PROD( ICL ) = RXRAT( 443 ) ! INO3+ACLJ=ICL+HNO3 & + RXRAT( 445 ) ! INO2+ACLJ=ICL+HONO & + RXRAT( 447 ) ! HOI+ACLJ=ICL LOSS( ICL ) = RXRAT( 429 ) ! ICL=I+CL PROD( IBR ) = RXRAT( 444 ) ! INO3+ABRJ=IBR+HNO3 & + RXRAT( 446 ) ! INO2+ABRJ=IBR+HONO & + RXRAT( 448 ) ! HOI+ABRJ=IBR LOSS( IBR ) = RXRAT( 430 ) ! IBR=I+BR PROD( MI2 ) = 0.0D0 LOSS( MI2 ) = RXRAT( 432 ) ! MI2=0.2000D+01*I+FORM PROD( MIB ) = 0.0D0 LOSS( MIB ) = RXRAT( 433 ) ! MIB=I+BR+FORM PROD( MIC ) = 0.0D0 LOSS( MIC ) = RXRAT( 434 ) ! MIC=I+CL+FORM PNEG( PAR ) = 2.5000D+00 * RXRAT( 128 ) ! KET=-0.2500D+01*PAR+... & + 2.7000D+00 * RXRAT( 133 ) ! ROR=-0.2700D+01*PAR+... & + 7.3000D-01 * RXRAT( 142 ) ! OLE+OH=-0.7300D+00*PAR+... & + 7.9000D-01 * RXRAT( 143 ) ! OLE+O3=-0.7900D+00*PAR+... & + RXRAT( 144 ) ! OLE+NO3=-PAR+0.5000D+... & + 1.2600D-01 * RXRAT( 224 ) ! XPAR=-0.1260D+00*PAR+... & + RXRAT( 240 ) ! CL+OLE=-PAR+0.3300D+... & + RXRAT( 361 ) ! OLE+BR=-PAR+ALD2+XO2H+FMBR+RO2 RETURN END ================================================ FILE: CCTM/src/gas/ebi_cb6r5m_ae7_aq/hrrates.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE HRRATES C*********************************************************************** C C FUNCTION: To calculate rates of reactions C C PRECONDITIONS: For the CB6R5M_AE7_AQ mechanism C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by EBI solver program, Apr 5, 2022 C C*********************************************************************** USE HRDATA IMPLICIT NONE C.....INCLUDES: NONE C.....ARGUMENTS: NONE C.....PARAMETERS: NONE C.....EXTERNAL FUNCTIONS: NONE C.....SAVED VARIABLES: NONE ! CHARACTER( 16 ), SAVE :: PNAME = 'HRRATES' ! Program name C.....LOCAL VARIABLES: None C*********************************************************************** C..NOTE: RXRAT commented out are not referenced by any routine ! RXRAT( 1 ) = RKI( 1 ) * YC( NO2 ) ! RXRAT( 2 ) = RKI( 2 ) * YC( O ) ! RXRAT( 3 ) = RKI( 3 ) * YC( O3 ) * YC( NO ) ! RXRAT( 4 ) = RKI( 4 ) * YC( O ) * YC( NO ) ! RXRAT( 5 ) = RKI( 5 ) * YC( O ) * YC( NO2 ) RXRAT( 6 ) = RKI( 6 ) * YC( O ) * YC( NO2 ) ! RXRAT( 7 ) = RKI( 7 ) * YC( O ) * YC( O3 ) RXRAT( 8 ) = RKI( 8 ) * YC( O3 ) RXRAT( 9 ) = RKI( 9 ) * YC( O3 ) ! RXRAT( 10 ) = RKI( 10 ) * YC( O1D ) ! RXRAT( 11 ) = RKI( 11 ) * YC( O1D ) ! RXRAT( 12 ) = RKI( 12 ) * YC( O3 ) * YC( OH ) ! RXRAT( 13 ) = RKI( 13 ) * YC( O3 ) * YC( HO2 ) ! RXRAT( 14 ) = RKI( 14 ) * YC( OH ) * YC( O ) ! RXRAT( 15 ) = RKI( 15 ) * YC( HO2 ) * YC( O ) RXRAT( 16 ) = RKI( 16 ) * YC( OH ) * YC( OH ) RXRAT( 17 ) = RKI( 17 ) * YC( OH ) * YC( OH ) ! RXRAT( 18 ) = RKI( 18 ) * YC( OH ) * YC( HO2 ) RXRAT( 19 ) = RKI( 19 ) * YC( HO2 ) * YC( HO2 ) RXRAT( 20 ) = RKI( 20 ) * YC( HO2 ) * YC( HO2 ) RXRAT( 21 ) = RKI( 21 ) * YC( H2O2 ) RXRAT( 22 ) = RKI( 22 ) * YC( H2O2 ) * YC( OH ) RXRAT( 23 ) = RKI( 23 ) * YC( H2O2 ) * YC( O ) ! RXRAT( 24 ) = RKI( 24 ) * YC( NO ) * YC( NO ) ! RXRAT( 25 ) = RKI( 25 ) * YC( HO2 ) * YC( NO ) RXRAT( 26 ) = RKI( 26 ) * YC( NO2 ) * YC( O3 ) RXRAT( 27 ) = RKI( 27 ) * YC( NO3 ) RXRAT( 28 ) = RKI( 28 ) * YC( NO3 ) RXRAT( 29 ) = RKI( 29 ) * YC( NO3 ) * YC( NO ) RXRAT( 30 ) = RKI( 30 ) * YC( NO3 ) * YC( NO2 ) RXRAT( 31 ) = RKI( 31 ) * YC( NO3 ) * YC( O ) RXRAT( 32 ) = RKI( 32 ) * YC( NO3 ) * YC( OH ) RXRAT( 33 ) = RKI( 33 ) * YC( NO3 ) * YC( HO2 ) RXRAT( 34 ) = RKI( 34 ) * YC( NO3 ) * YC( O3 ) RXRAT( 35 ) = RKI( 35 ) * YC( NO3 ) * YC( NO3 ) ! RXRAT( 36 ) = RKI( 36 ) * YC( NO3 ) * YC( NO2 ) RXRAT( 37 ) = RKI( 37 ) * YC( N2O5 ) RXRAT( 38 ) = RKI( 38 ) * YC( N2O5 ) RXRAT( 39 ) = RKI( 39 ) * YC( N2O5 ) ! RXRAT( 40 ) = RKI( 40 ) * YC( NO ) * YC( OH ) RXRAT( 41 ) = RKI( 41 ) * YC( NO ) * YC( NO2 ) RXRAT( 42 ) = RKI( 42 ) * YC( HONO ) * YC( HONO ) RXRAT( 43 ) = RKI( 43 ) * YC( HONO ) RXRAT( 44 ) = RKI( 44 ) * YC( HONO ) * YC( OH ) RXRAT( 45 ) = RKI( 45 ) * YC( NO2 ) * YC( OH ) RXRAT( 46 ) = RKI( 46 ) * YC( HNO3 ) * YC( OH ) RXRAT( 47 ) = RKI( 47 ) * YC( HNO3 ) ! RXRAT( 48 ) = RKI( 48 ) * YC( HO2 ) * YC( NO2 ) RXRAT( 49 ) = RKI( 49 ) * YC( PNA ) RXRAT( 50 ) = RKI( 50 ) * YC( PNA ) RXRAT( 51 ) = RKI( 51 ) * YC( PNA ) * YC( OH ) RXRAT( 52 ) = RKI( 52 ) * YC( SO2 ) * YC( OH ) RXRAT( 53 ) = RKI( 53 ) * YC( C2O3 ) * YC( NO ) ! RXRAT( 54 ) = RKI( 54 ) * YC( C2O3 ) * YC( NO2 ) RXRAT( 55 ) = RKI( 55 ) * YC( PAN ) RXRAT( 56 ) = RKI( 56 ) * YC( PAN ) RXRAT( 57 ) = RKI( 57 ) * YC( C2O3 ) * YC( HO2 ) RXRAT( 58 ) = RKI( 58 ) * YC( C2O3 ) * YC( RO2 ) RXRAT( 59 ) = RKI( 59 ) * YC( C2O3 ) * YC( C2O3 ) RXRAT( 60 ) = RKI( 60 ) * YC( C2O3 ) * YC( CXO3 ) RXRAT( 61 ) = RKI( 61 ) * YC( CXO3 ) * YC( NO ) RXRAT( 62 ) = RKI( 62 ) * YC( CXO3 ) * YC( NO2 ) RXRAT( 63 ) = RKI( 63 ) * YC( PANX ) RXRAT( 64 ) = RKI( 64 ) * YC( PANX ) RXRAT( 65 ) = RKI( 65 ) * YC( CXO3 ) * YC( HO2 ) RXRAT( 66 ) = RKI( 66 ) * YC( CXO3 ) * YC( RO2 ) RXRAT( 67 ) = RKI( 67 ) * YC( CXO3 ) * YC( CXO3 ) RXRAT( 68 ) = RKI( 68 ) * YC( RO2 ) * YC( NO ) RXRAT( 69 ) = RKI( 69 ) * YC( RO2 ) * YC( HO2 ) RXRAT( 70 ) = RKI( 70 ) * YC( RO2 ) * YC( RO2 ) RXRAT( 71 ) = RKI( 71 ) * YC( MEO2 ) * YC( NO ) RXRAT( 72 ) = RKI( 72 ) * YC( MEO2 ) * YC( HO2 ) RXRAT( 73 ) = RKI( 73 ) * YC( MEO2 ) * YC( C2O3 ) RXRAT( 74 ) = RKI( 74 ) * YC( MEO2 ) * YC( RO2 ) RXRAT( 75 ) = RKI( 75 ) * YC( XO2H ) * YC( NO ) RXRAT( 76 ) = RKI( 76 ) * YC( XO2H ) * YC( HO2 ) RXRAT( 77 ) = RKI( 77 ) * YC( XO2H ) * YC( C2O3 ) RXRAT( 78 ) = RKI( 78 ) * YC( XO2H ) * YC( RO2 ) RXRAT( 79 ) = RKI( 79 ) * YC( XO2 ) * YC( NO ) RXRAT( 80 ) = RKI( 80 ) * YC( XO2 ) * YC( HO2 ) RXRAT( 81 ) = RKI( 81 ) * YC( XO2 ) * YC( C2O3 ) RXRAT( 82 ) = RKI( 82 ) * YC( XO2 ) * YC( RO2 ) RXRAT( 83 ) = RKI( 83 ) * YC( XO2N ) * YC( NO ) RXRAT( 84 ) = RKI( 84 ) * YC( XO2N ) * YC( HO2 ) RXRAT( 85 ) = RKI( 85 ) * YC( XO2N ) * YC( C2O3 ) RXRAT( 86 ) = RKI( 86 ) * YC( XO2N ) * YC( RO2 ) RXRAT( 87 ) = RKI( 87 ) * YC( MEPX ) * YC( OH ) RXRAT( 88 ) = RKI( 88 ) * YC( MEPX ) RXRAT( 89 ) = RKI( 89 ) * YC( ROOH ) * YC( OH ) RXRAT( 90 ) = RKI( 90 ) * YC( ROOH ) RXRAT( 91 ) = RKI( 91 ) * YC( NTR1 ) * YC( OH ) RXRAT( 92 ) = RKI( 92 ) * YC( NTR1 ) RXRAT( 93 ) = RKI( 93 ) * YC( FACD ) * YC( OH ) RXRAT( 94 ) = RKI( 94 ) * YC( AACD ) * YC( OH ) RXRAT( 95 ) = RKI( 95 ) * YC( PACD ) * YC( OH ) RXRAT( 96 ) = RKI( 96 ) * YC( FORM ) * YC( OH ) RXRAT( 97 ) = RKI( 97 ) * YC( FORM ) RXRAT( 98 ) = RKI( 98 ) * YC( FORM ) RXRAT( 99 ) = RKI( 99 ) * YC( FORM ) * YC( O ) RXRAT( 100 ) = RKI( 100 ) * YC( FORM ) * YC( NO3 ) RXRAT( 101 ) = RKI( 101 ) * YC( FORM ) * YC( HO2 ) RXRAT( 102 ) = RKI( 102 ) * YC( HCO3 ) RXRAT( 103 ) = RKI( 103 ) * YC( HCO3 ) * YC( NO ) RXRAT( 104 ) = RKI( 104 ) * YC( HCO3 ) * YC( HO2 ) RXRAT( 105 ) = RKI( 105 ) * YC( ALD2 ) * YC( O ) RXRAT( 106 ) = RKI( 106 ) * YC( ALD2 ) * YC( OH ) RXRAT( 107 ) = RKI( 107 ) * YC( ALD2 ) * YC( NO3 ) RXRAT( 108 ) = RKI( 108 ) * YC( ALD2 ) RXRAT( 109 ) = RKI( 109 ) * YC( ALDX ) * YC( O ) RXRAT( 110 ) = RKI( 110 ) * YC( ALDX ) * YC( OH ) RXRAT( 111 ) = RKI( 111 ) * YC( ALDX ) * YC( NO3 ) RXRAT( 112 ) = RKI( 112 ) * YC( ALDX ) RXRAT( 113 ) = RKI( 113 ) * YC( GLYD ) * YC( OH ) RXRAT( 114 ) = RKI( 114 ) * YC( GLYD ) RXRAT( 115 ) = RKI( 115 ) * YC( GLYD ) * YC( NO3 ) RXRAT( 116 ) = RKI( 116 ) * YC( GLY ) * YC( OH ) RXRAT( 117 ) = RKI( 117 ) * YC( GLY ) RXRAT( 118 ) = RKI( 118 ) * YC( GLY ) * YC( NO3 ) RXRAT( 119 ) = RKI( 119 ) * YC( MGLY ) RXRAT( 120 ) = RKI( 120 ) * YC( MGLY ) * YC( NO3 ) RXRAT( 121 ) = RKI( 121 ) * YC( MGLY ) * YC( OH ) ! RXRAT( 122 ) = RKI( 122 ) * YC( OH ) RXRAT( 123 ) = RKI( 123 ) * YC( CO ) * YC( OH ) RXRAT( 124 ) = RKI( 124 ) * YC( OH ) RXRAT( 125 ) = RKI( 125 ) * YC( ETHA ) * YC( OH ) RXRAT( 126 ) = RKI( 126 ) * YC( MEOH ) * YC( OH ) RXRAT( 127 ) = RKI( 127 ) * YC( ETOH ) * YC( OH ) RXRAT( 128 ) = RKI( 128 ) * YC( KET ) RXRAT( 129 ) = RKI( 129 ) * YC( ACET ) RXRAT( 130 ) = RKI( 130 ) * YC( ACET ) * YC( OH ) RXRAT( 131 ) = RKI( 131 ) * YC( PRPA ) * YC( OH ) RXRAT( 132 ) = RKI( 132 ) * YC( PAR ) * YC( OH ) RXRAT( 133 ) = RKI( 133 ) * YC( ROR ) RXRAT( 134 ) = RKI( 134 ) * YC( ROR ) RXRAT( 135 ) = RKI( 135 ) * YC( ROR ) * YC( NO2 ) RXRAT( 136 ) = RKI( 136 ) * YC( ETHY ) * YC( OH ) RXRAT( 137 ) = RKI( 137 ) * YC( ETH ) * YC( O ) RXRAT( 138 ) = RKI( 138 ) * YC( ETH ) * YC( OH ) RXRAT( 139 ) = RKI( 139 ) * YC( ETH ) * YC( O3 ) RXRAT( 140 ) = RKI( 140 ) * YC( ETH ) * YC( NO3 ) RXRAT( 141 ) = RKI( 141 ) * YC( OLE ) * YC( O ) RXRAT( 142 ) = RKI( 142 ) * YC( OLE ) * YC( OH ) RXRAT( 143 ) = RKI( 143 ) * YC( OLE ) * YC( O3 ) RXRAT( 144 ) = RKI( 144 ) * YC( OLE ) * YC( NO3 ) RXRAT( 145 ) = RKI( 145 ) * YC( IOLE ) * YC( O ) RXRAT( 146 ) = RKI( 146 ) * YC( IOLE ) * YC( OH ) RXRAT( 147 ) = RKI( 147 ) * YC( IOLE ) * YC( O3 ) RXRAT( 148 ) = RKI( 148 ) * YC( IOLE ) * YC( NO3 ) RXRAT( 149 ) = RKI( 149 ) * YC( ISOP ) * YC( OH ) RXRAT( 150 ) = RKI( 150 ) * YC( ISOP ) * YC( O ) RXRAT( 151 ) = RKI( 151 ) * YC( ISO2 ) * YC( NO ) RXRAT( 152 ) = RKI( 152 ) * YC( ISO2 ) * YC( HO2 ) RXRAT( 153 ) = RKI( 153 ) * YC( ISO2 ) * YC( C2O3 ) RXRAT( 154 ) = RKI( 154 ) * YC( ISO2 ) * YC( RO2 ) RXRAT( 155 ) = RKI( 155 ) * YC( ISO2 ) RXRAT( 156 ) = RKI( 156 ) * YC( ISOP ) * YC( O3 ) RXRAT( 157 ) = RKI( 157 ) * YC( ISOP ) * YC( NO3 ) RXRAT( 158 ) = RKI( 158 ) * YC( ISPD ) * YC( OH ) RXRAT( 159 ) = RKI( 159 ) * YC( ISPD ) * YC( O3 ) RXRAT( 160 ) = RKI( 160 ) * YC( ISPD ) * YC( NO3 ) RXRAT( 161 ) = RKI( 161 ) * YC( ISPD ) RXRAT( 162 ) = RKI( 162 ) * YC( ISPX ) * YC( OH ) RXRAT( 163 ) = RKI( 163 ) * YC( HPLD ) RXRAT( 164 ) = RKI( 164 ) * YC( HPLD ) * YC( NO3 ) RXRAT( 165 ) = RKI( 165 ) * YC( EPOX ) * YC( OH ) RXRAT( 166 ) = RKI( 166 ) * YC( EPX2 ) * YC( HO2 ) RXRAT( 167 ) = RKI( 167 ) * YC( EPX2 ) * YC( NO ) RXRAT( 168 ) = RKI( 168 ) * YC( EPX2 ) * YC( C2O3 ) RXRAT( 169 ) = RKI( 169 ) * YC( EPX2 ) * YC( RO2 ) RXRAT( 170 ) = RKI( 170 ) * YC( INTR ) * YC( OH ) RXRAT( 171 ) = RKI( 171 ) * YC( TERP ) * YC( O ) RXRAT( 172 ) = RKI( 172 ) * YC( TERP ) * YC( OH ) RXRAT( 173 ) = RKI( 173 ) * YC( TERP ) * YC( O3 ) RXRAT( 174 ) = RKI( 174 ) * YC( TERP ) * YC( NO3 ) RXRAT( 175 ) = RKI( 175 ) * YC( APIN ) * YC( O ) RXRAT( 176 ) = RKI( 176 ) * YC( APIN ) * YC( OH ) RXRAT( 177 ) = RKI( 177 ) * YC( APIN ) * YC( O3 ) RXRAT( 178 ) = RKI( 178 ) * YC( APIN ) * YC( NO3 ) RXRAT( 179 ) = RKI( 179 ) * YC( BENZENE ) * YC( OH ) RXRAT( 180 ) = RKI( 180 ) * YC( BZO2 ) * YC( NO ) RXRAT( 181 ) = RKI( 181 ) * YC( BZO2 ) * YC( C2O3 ) RXRAT( 182 ) = RKI( 182 ) * YC( BZO2 ) * YC( HO2 ) RXRAT( 183 ) = RKI( 183 ) * YC( BZO2 ) * YC( RO2 ) RXRAT( 184 ) = RKI( 184 ) * YC( TOL ) * YC( OH ) RXRAT( 185 ) = RKI( 185 ) * YC( TO2 ) * YC( NO ) RXRAT( 186 ) = RKI( 186 ) * YC( TO2 ) * YC( C2O3 ) RXRAT( 187 ) = RKI( 187 ) * YC( TO2 ) * YC( HO2 ) RXRAT( 188 ) = RKI( 188 ) * YC( TO2 ) * YC( RO2 ) RXRAT( 189 ) = RKI( 189 ) * YC( XYLMN ) * YC( OH ) RXRAT( 190 ) = RKI( 190 ) * YC( NAPH ) * YC( OH ) RXRAT( 191 ) = RKI( 191 ) * YC( XLO2 ) * YC( NO ) RXRAT( 192 ) = RKI( 192 ) * YC( XLO2 ) * YC( HO2 ) RXRAT( 193 ) = RKI( 193 ) * YC( XLO2 ) * YC( C2O3 ) RXRAT( 194 ) = RKI( 194 ) * YC( XLO2 ) * YC( RO2 ) RXRAT( 195 ) = RKI( 195 ) * YC( CRES ) * YC( OH ) RXRAT( 196 ) = RKI( 196 ) * YC( CRES ) * YC( NO3 ) RXRAT( 197 ) = RKI( 197 ) * YC( CRO ) * YC( NO2 ) RXRAT( 198 ) = RKI( 198 ) * YC( CRO ) * YC( HO2 ) RXRAT( 199 ) = RKI( 199 ) * YC( CRON ) * YC( OH ) RXRAT( 200 ) = RKI( 200 ) * YC( CRON ) * YC( NO3 ) RXRAT( 201 ) = RKI( 201 ) * YC( CRON ) RXRAT( 202 ) = RKI( 202 ) * YC( XOPN ) RXRAT( 203 ) = RKI( 203 ) * YC( XOPN ) * YC( OH ) RXRAT( 204 ) = RKI( 204 ) * YC( XOPN ) * YC( O3 ) RXRAT( 205 ) = RKI( 205 ) * YC( XOPN ) * YC( NO3 ) RXRAT( 206 ) = RKI( 206 ) * YC( OPEN ) RXRAT( 207 ) = RKI( 207 ) * YC( OPEN ) * YC( OH ) RXRAT( 208 ) = RKI( 208 ) * YC( OPEN ) * YC( O3 ) RXRAT( 209 ) = RKI( 209 ) * YC( OPEN ) * YC( NO3 ) RXRAT( 210 ) = RKI( 210 ) * YC( CAT1 ) * YC( OH ) RXRAT( 211 ) = RKI( 211 ) * YC( CAT1 ) * YC( NO3 ) RXRAT( 212 ) = RKI( 212 ) * YC( OPO3 ) * YC( NO ) RXRAT( 213 ) = RKI( 213 ) * YC( OPO3 ) * YC( NO2 ) RXRAT( 214 ) = RKI( 214 ) * YC( OPAN ) RXRAT( 215 ) = RKI( 215 ) * YC( OPO3 ) * YC( HO2 ) RXRAT( 216 ) = RKI( 216 ) * YC( OPO3 ) * YC( C2O3 ) RXRAT( 217 ) = RKI( 217 ) * YC( OPO3 ) * YC( RO2 ) RXRAT( 218 ) = RKI( 218 ) * YC( OPAN ) * YC( OH ) RXRAT( 219 ) = RKI( 219 ) * YC( PANX ) * YC( OH ) RXRAT( 220 ) = RKI( 220 ) * YC( ECH4 ) * YC( OH ) RXRAT( 221 ) = RKI( 221 ) * YC( XPRP ) RXRAT( 222 ) = RKI( 222 ) * YC( XPRP ) RXRAT( 223 ) = RKI( 223 ) * YC( XPAR ) RXRAT( 224 ) = RKI( 224 ) * YC( XPAR ) RXRAT( 225 ) = RKI( 225 ) * YC( NO2 ) * YC( OH ) RXRAT( 226 ) = RKI( 226 ) * YC( CL2 ) RXRAT( 227 ) = RKI( 227 ) * YC( HOCL ) RXRAT( 228 ) = RKI( 228 ) * YC( CL ) * YC( O3 ) RXRAT( 229 ) = RKI( 229 ) * YC( CLO ) * YC( CLO ) RXRAT( 230 ) = RKI( 230 ) * YC( CLO ) * YC( NO ) RXRAT( 231 ) = RKI( 231 ) * YC( CLO ) * YC( HO2 ) RXRAT( 232 ) = RKI( 232 ) * YC( CLO ) * YC( MEO2 ) RXRAT( 233 ) = RKI( 233 ) * YC( OH ) * YC( FMCL ) RXRAT( 234 ) = RKI( 234 ) * YC( FMCL ) RXRAT( 235 ) = RKI( 235 ) * YC( CL ) RXRAT( 236 ) = RKI( 236 ) * YC( CL ) * YC( PAR ) RXRAT( 237 ) = RKI( 237 ) * YC( CL ) * YC( PRPA ) RXRAT( 238 ) = RKI( 238 ) * YC( CL ) * YC( ETHA ) RXRAT( 239 ) = RKI( 239 ) * YC( CL ) * YC( ETH ) RXRAT( 240 ) = RKI( 240 ) * YC( CL ) * YC( OLE ) RXRAT( 241 ) = RKI( 241 ) * YC( CL ) * YC( IOLE ) RXRAT( 242 ) = RKI( 242 ) * YC( CL ) * YC( ISOP ) RXRAT( 243 ) = RKI( 243 ) * YC( CL ) * YC( FORM ) RXRAT( 244 ) = RKI( 244 ) * YC( CL ) * YC( ALD2 ) RXRAT( 245 ) = RKI( 245 ) * YC( CL ) * YC( ALDX ) RXRAT( 246 ) = RKI( 246 ) * YC( CL ) * YC( MEOH ) RXRAT( 247 ) = RKI( 247 ) * YC( CL ) * YC( ETOH ) RXRAT( 248 ) = RKI( 248 ) * YC( HCL ) * YC( OH ) RXRAT( 249 ) = RKI( 249 ) * YC( CL ) * YC( TOL ) RXRAT( 250 ) = RKI( 250 ) * YC( CL ) * YC( XYLMN ) RXRAT( 251 ) = RKI( 251 ) * YC( CL ) * YC( NAPH ) RXRAT( 252 ) = RKI( 252 ) * YC( CLNO2 ) RXRAT( 253 ) = RKI( 253 ) * YC( CLO ) * YC( NO2 ) RXRAT( 254 ) = RKI( 254 ) * YC( CLNO3 ) RXRAT( 255 ) = RKI( 255 ) * YC( CLNO3 ) RXRAT( 256 ) = RKI( 256 ) * YC( CLNO3 ) RXRAT( 257 ) = RKI( 257 ) * YC( CLNO3 ) RXRAT( 258 ) = RKI( 258 ) * YC( TOLRO2 ) * YC( NO ) RXRAT( 259 ) = RKI( 259 ) * YC( TOLRO2 ) * YC( HO2 ) RXRAT( 260 ) = RKI( 260 ) * YC( XYLRO2 ) * YC( NO ) RXRAT( 261 ) = RKI( 261 ) * YC( XYLRO2 ) * YC( HO2 ) RXRAT( 262 ) = RKI( 262 ) * YC( BENZRO2 ) * YC( NO ) RXRAT( 263 ) = RKI( 263 ) * YC( BENZRO2 ) * YC( HO2 ) RXRAT( 264 ) = RKI( 264 ) * YC( SESQ ) * YC( O3 ) RXRAT( 265 ) = RKI( 265 ) * YC( SESQ ) * YC( OH ) RXRAT( 266 ) = RKI( 266 ) * YC( SESQ ) * YC( NO3 ) RXRAT( 267 ) = RKI( 267 ) * YC( PAHRO2 ) * YC( NO ) RXRAT( 268 ) = RKI( 268 ) * YC( PAHRO2 ) * YC( HO2 ) RXRAT( 269 ) = RKI( 269 ) * YC( SOAALK ) * YC( OH ) RXRAT( 270 ) = RKI( 270 ) * YC( NTR2 ) RXRAT( 271 ) = RKI( 271 ) * YC( N2O5 ) RXRAT( 272 ) = RKI( 272 ) * YC( N2O5 ) RXRAT( 273 ) = RKI( 273 ) * YC( H2NO3PIJ ) RXRAT( 274 ) = RKI( 274 ) * YC( H2NO3PK ) RXRAT( 275 ) = RKI( 275 ) * YC( H2NO3PIJ ) * YC( ACLI ) RXRAT( 276 ) = RKI( 276 ) * YC( H2NO3PIJ ) * YC( ACLJ ) RXRAT( 277 ) = RKI( 277 ) * YC( H2NO3PK ) * YC( ACLK ) RXRAT( 278 ) = RKI( 278 ) * YC( NO2 ) RXRAT( 279 ) = RKI( 279 ) * YC( EPOX ) RXRAT( 280 ) = RKI( 280 ) * YC( IEPOXP ) * YC( ASO4J ) RXRAT( 281 ) = RKI( 281 ) * YC( IEPOXP ) RXRAT( 282 ) = RKI( 282 ) * YC( GLY ) RXRAT( 283 ) = RKI( 283 ) * YC( MGLY ) RXRAT( 284 ) = RKI( 284 ) * YC( TERPNRO2 ) * YC( NO ) RXRAT( 285 ) = RKI( 285 ) * YC( TERPNRO2 ) * YC( HO2 ) RXRAT( 286 ) = RKI( 286 ) * YC( TERPNRO2 ) * YC( NO3 ) RXRAT( 287 ) = RKI( 287 ) * YC( TERPNRO2 ) * YC( RO2 ) RXRAT( 288 ) = RKI( 288 ) * YC( MTNO3 ) * YC( CL ) RXRAT( 289 ) = RKI( 289 ) * YC( MTNO3 ) * YC( OH ) RXRAT( 290 ) = RKI( 290 ) * YC( MTNO3 ) RXRAT( 291 ) = RKI( 291 ) * YC( AMTNO3J ) RXRAT( 292 ) = RKI( 292 ) * YC( AAVB2J ) RXRAT( 293 ) = RKI( 293 ) * YC( AAVB3J ) RXRAT( 294 ) = RKI( 294 ) * YC( AAVB4J ) RXRAT( 295 ) = RKI( 295 ) * YC( AISO1J ) RXRAT( 296 ) = RKI( 296 ) * YC( AISO2J ) RXRAT( 297 ) = RKI( 297 ) * YC( ASQTJ ) RXRAT( 298 ) = RKI( 298 ) * YC( APOCI ) * YC( OH ) RXRAT( 299 ) = RKI( 299 ) * YC( APNCOMI ) * YC( OH ) RXRAT( 300 ) = RKI( 300 ) * YC( APOCJ ) * YC( OH ) RXRAT( 301 ) = RKI( 301 ) * YC( APNCOMJ ) * YC( OH ) RXRAT( 302 ) = RKI( 302 ) * YC( PCVOC ) * YC( OH ) RXRAT( 303 ) = RKI( 303 ) * YC( VLVPO1 ) * YC( OH ) RXRAT( 304 ) = RKI( 304 ) * YC( VSVPO1 ) * YC( OH ) RXRAT( 305 ) = RKI( 305 ) * YC( VSVPO2 ) * YC( OH ) RXRAT( 306 ) = RKI( 306 ) * YC( VSVPO3 ) * YC( OH ) RXRAT( 307 ) = RKI( 307 ) * YC( VIVPO1 ) * YC( OH ) RXRAT( 308 ) = RKI( 308 ) * YC( VLVOO1 ) * YC( OH ) RXRAT( 309 ) = RKI( 309 ) * YC( VLVOO2 ) * YC( OH ) RXRAT( 310 ) = RKI( 310 ) * YC( VSVOO1 ) * YC( OH ) RXRAT( 311 ) = RKI( 311 ) * YC( VSVOO2 ) * YC( OH ) RXRAT( 312 ) = RKI( 312 ) * YC( VSVOO3 ) * YC( OH ) RXRAT( 313 ) = RKI( 313 ) * YC( FORM_PRIMARY ) * YC( OH ) RXRAT( 314 ) = RKI( 314 ) * YC( FORM_PRIMARY ) * YC( NO3 ) RXRAT( 315 ) = RKI( 315 ) * YC( FORM_PRIMARY ) * YC( O ) RXRAT( 316 ) = RKI( 316 ) * YC( FORM_PRIMARY ) RXRAT( 317 ) = RKI( 317 ) * YC( FORM_PRIMARY ) RXRAT( 318 ) = RKI( 318 ) * YC( FORM_PRIMARY ) * YC( CL ) RXRAT( 319 ) = RKI( 319 ) * YC( ALD2_PRIMARY ) * YC( OH ) RXRAT( 320 ) = RKI( 320 ) * YC( ALD2_PRIMARY ) * YC( NO3 ) RXRAT( 321 ) = RKI( 321 ) * YC( ALD2_PRIMARY ) * YC( O ) RXRAT( 322 ) = RKI( 322 ) * YC( ALD2_PRIMARY ) RXRAT( 323 ) = RKI( 323 ) * YC( ALD2_PRIMARY ) * YC( CL ) RXRAT( 324 ) = RKI( 324 ) * YC( BUTADIENE13 ) * YC( OH ) RXRAT( 325 ) = RKI( 325 ) * YC( BUTADIENE13 ) * YC( O3 ) RXRAT( 326 ) = RKI( 326 ) * YC( BUTADIENE13 ) * YC( NO3 ) RXRAT( 327 ) = RKI( 327 ) * YC( BUTADIENE13 ) * YC( CL ) RXRAT( 328 ) = RKI( 328 ) * YC( ACRO_PRIMARY ) * YC( OH ) RXRAT( 329 ) = RKI( 329 ) * YC( ACRO_PRIMARY ) * YC( O3 ) RXRAT( 330 ) = RKI( 330 ) * YC( ACRO_PRIMARY ) * YC( NO3 ) RXRAT( 331 ) = RKI( 331 ) * YC( ACRO_PRIMARY ) RXRAT( 332 ) = RKI( 332 ) * YC( ACRO_PRIMARY ) * YC( CL ) RXRAT( 333 ) = RKI( 333 ) * YC( ACROLEIN ) * YC( OH ) RXRAT( 334 ) = RKI( 334 ) * YC( ACROLEIN ) * YC( O3 ) RXRAT( 335 ) = RKI( 335 ) * YC( ACROLEIN ) * YC( NO3 ) RXRAT( 336 ) = RKI( 336 ) * YC( ACROLEIN ) RXRAT( 337 ) = RKI( 337 ) * YC( ACROLEIN ) * YC( CL ) RXRAT( 338 ) = RKI( 338 ) * YC( TOLU ) * YC( OH ) RXRAT( 339 ) = RKI( 339 ) * YC( TOLU ) * YC( CL ) RXRAT( 340 ) = RKI( 340 ) * YC( HG ) * YC( O3 ) RXRAT( 341 ) = RKI( 341 ) * YC( HG ) * YC( CL2 ) RXRAT( 342 ) = RKI( 342 ) * YC( HG ) * YC( H2O2 ) RXRAT( 343 ) = RKI( 343 ) * YC( HG ) * YC( OH ) RXRAT( 344 ) = RKI( 344 ) * YC( HG ) * YC( CL ) RXRAT( 345 ) = RKI( 345 ) * YC( BR ) * YC( O3 ) RXRAT( 346 ) = RKI( 346 ) * YC( BRO ) * YC( HO2 ) RXRAT( 347 ) = RKI( 347 ) * YC( BR ) * YC( HO2 ) RXRAT( 348 ) = RKI( 348 ) * YC( HBR ) * YC( OH ) RXRAT( 349 ) = RKI( 349 ) * YC( BRO ) * YC( BRO ) RXRAT( 350 ) = RKI( 350 ) * YC( BRO ) * YC( BRO ) RXRAT( 351 ) = RKI( 351 ) * YC( BRO ) * YC( NO ) RXRAT( 352 ) = RKI( 352 ) * YC( BR ) * YC( BRNO3 ) RXRAT( 353 ) = RKI( 353 ) * YC( BR2 ) * YC( OH ) RXRAT( 354 ) = RKI( 354 ) * YC( BRO ) * YC( OH ) RXRAT( 355 ) = RKI( 355 ) * YC( BR ) * YC( NO3 ) RXRAT( 356 ) = RKI( 356 ) * YC( BRO ) * YC( NO2 ) RXRAT( 357 ) = RKI( 357 ) * YC( BR ) * YC( NO2 ) RXRAT( 358 ) = RKI( 358 ) * YC( BRO ) * YC( CLO ) RXRAT( 359 ) = RKI( 359 ) * YC( FORM ) * YC( BR ) RXRAT( 360 ) = RKI( 360 ) * YC( ALD2 ) * YC( BR ) RXRAT( 361 ) = RKI( 361 ) * YC( OLE ) * YC( BR ) RXRAT( 362 ) = RKI( 362 ) * YC( ISOP ) * YC( BR ) RXRAT( 363 ) = RKI( 363 ) * YC( FMBR ) * YC( OH ) RXRAT( 364 ) = RKI( 364 ) * YC( BRO ) * YC( MEO2 ) RXRAT( 365 ) = RKI( 365 ) * YC( MB3 ) * YC( OH ) RXRAT( 366 ) = RKI( 366 ) * YC( MB2 ) * YC( OH ) RXRAT( 367 ) = RKI( 367 ) * YC( MB2C ) * YC( OH ) RXRAT( 368 ) = RKI( 368 ) * YC( MBC2 ) * YC( OH ) RXRAT( 369 ) = RKI( 369 ) * YC( MBC ) * YC( OH ) RXRAT( 370 ) = RKI( 370 ) * YC( DMS ) * YC( BRO ) RXRAT( 371 ) = RKI( 371 ) * YC( BR2 ) RXRAT( 372 ) = RKI( 372 ) * YC( HOBR ) RXRAT( 373 ) = RKI( 373 ) * YC( BRO ) RXRAT( 374 ) = RKI( 374 ) * YC( BRNO2 ) RXRAT( 375 ) = RKI( 375 ) * YC( BRNO3 ) RXRAT( 376 ) = RKI( 376 ) * YC( BRNO3 ) RXRAT( 377 ) = RKI( 377 ) * YC( BRCL ) RXRAT( 378 ) = RKI( 378 ) * YC( FMBR ) RXRAT( 379 ) = RKI( 379 ) * YC( MB3 ) RXRAT( 380 ) = RKI( 380 ) * YC( MB2C ) RXRAT( 381 ) = RKI( 381 ) * YC( MBC2 ) RXRAT( 382 ) = RKI( 382 ) * YC( BRNO3 ) RXRAT( 383 ) = RKI( 383 ) * YC( BRNO3 ) RXRAT( 384 ) = RKI( 384 ) * YC( HOBR ) * YC( ACLJ ) RXRAT( 385 ) = RKI( 385 ) * YC( HOBR ) * YC( ABRJ ) RXRAT( 386 ) = RKI( 386 ) * YC( BRNO3 ) * YC( ACLJ ) RXRAT( 387 ) = RKI( 387 ) * YC( BRNO3 ) * YC( ABRJ ) RXRAT( 388 ) = RKI( 388 ) * YC( BRNO2 ) * YC( ACLJ ) RXRAT( 389 ) = RKI( 389 ) * YC( BRNO2 ) * YC( ABRJ ) RXRAT( 390 ) = RKI( 390 ) * YC( HBR ) RXRAT( 391 ) = RKI( 391 ) * YC( I ) * YC( O3 ) RXRAT( 392 ) = RKI( 392 ) * YC( I ) * YC( HO2 ) RXRAT( 393 ) = RKI( 393 ) * YC( I2 ) * YC( OH ) RXRAT( 394 ) = RKI( 394 ) * YC( HI ) * YC( OH ) RXRAT( 395 ) = RKI( 395 ) * YC( HOI ) * YC( OH ) RXRAT( 396 ) = RKI( 396 ) * YC( IO ) * YC( HO2 ) RXRAT( 397 ) = RKI( 397 ) * YC( IO ) * YC( NO ) RXRAT( 398 ) = RKI( 398 ) * YC( INO ) * YC( INO ) RXRAT( 399 ) = RKI( 399 ) * YC( INO2 ) * YC( INO2 ) RXRAT( 400 ) = RKI( 400 ) * YC( I2 ) * YC( NO3 ) RXRAT( 401 ) = RKI( 401 ) * YC( INO3 ) * YC( I ) RXRAT( 402 ) = RKI( 402 ) * YC( I ) * YC( BRO ) RXRAT( 403 ) = RKI( 403 ) * YC( IO ) * YC( BR ) RXRAT( 404 ) = RKI( 404 ) * YC( IO ) * YC( BRO ) RXRAT( 405 ) = RKI( 405 ) * YC( IO ) * YC( CLO ) RXRAT( 406 ) = RKI( 406 ) * YC( OIO ) * YC( OIO ) RXRAT( 407 ) = RKI( 407 ) * YC( OIO ) * YC( NO ) RXRAT( 408 ) = RKI( 408 ) * YC( IO ) * YC( IO ) RXRAT( 409 ) = RKI( 409 ) * YC( IO ) * YC( OIO ) RXRAT( 410 ) = RKI( 410 ) * YC( I2O2 ) RXRAT( 411 ) = RKI( 411 ) * YC( I2O4 ) RXRAT( 412 ) = RKI( 412 ) * YC( INO2 ) RXRAT( 413 ) = RKI( 413 ) * YC( INO3 ) RXRAT( 414 ) = RKI( 414 ) * YC( I ) * YC( NO ) RXRAT( 415 ) = RKI( 415 ) * YC( I ) * YC( NO2 ) RXRAT( 416 ) = RKI( 416 ) * YC( IO ) * YC( NO2 ) RXRAT( 417 ) = RKI( 417 ) * YC( CH3I ) * YC( OH ) RXRAT( 418 ) = RKI( 418 ) * YC( DMS ) * YC( IO ) RXRAT( 419 ) = RKI( 419 ) * YC( I2 ) RXRAT( 420 ) = RKI( 420 ) * YC( HOI ) RXRAT( 421 ) = RKI( 421 ) * YC( IO ) RXRAT( 422 ) = RKI( 422 ) * YC( OIO ) RXRAT( 423 ) = RKI( 423 ) * YC( INO ) RXRAT( 424 ) = RKI( 424 ) * YC( INO2 ) RXRAT( 425 ) = RKI( 425 ) * YC( INO3 ) RXRAT( 426 ) = RKI( 426 ) * YC( I2O2 ) RXRAT( 427 ) = RKI( 427 ) * YC( I2O3 ) RXRAT( 428 ) = RKI( 428 ) * YC( I2O4 ) RXRAT( 429 ) = RKI( 429 ) * YC( ICL ) RXRAT( 430 ) = RKI( 430 ) * YC( IBR ) RXRAT( 431 ) = RKI( 431 ) * YC( CH3I ) RXRAT( 432 ) = RKI( 432 ) * YC( MI2 ) RXRAT( 433 ) = RKI( 433 ) * YC( MIB ) RXRAT( 434 ) = RKI( 434 ) * YC( MIC ) RXRAT( 435 ) = RKI( 435 ) * YC( HOI ) * YC( NO3 ) RXRAT( 436 ) = RKI( 436 ) * YC( I2O2 ) RXRAT( 437 ) = RKI( 437 ) * YC( I2O2 ) RXRAT( 438 ) = RKI( 438 ) * YC( I2O2 ) RXRAT( 439 ) = RKI( 439 ) * YC( I2O3 ) RXRAT( 440 ) = RKI( 440 ) * YC( I2O3 ) RXRAT( 441 ) = RKI( 441 ) * YC( I2O4 ) RXRAT( 442 ) = RKI( 442 ) * YC( I2O4 ) RXRAT( 443 ) = RKI( 443 ) * YC( INO3 ) * YC( ACLJ ) RXRAT( 444 ) = RKI( 444 ) * YC( INO3 ) * YC( ABRJ ) RXRAT( 445 ) = RKI( 445 ) * YC( INO2 ) * YC( ACLJ ) RXRAT( 446 ) = RKI( 446 ) * YC( INO2 ) * YC( ABRJ ) RXRAT( 447 ) = RKI( 447 ) * YC( HOI ) * YC( ACLJ ) RXRAT( 448 ) = RKI( 448 ) * YC( HOI ) * YC( ABRJ ) RXRAT( 449 ) = RKI( 449 ) * YC( DMS ) * YC( OH ) RXRAT( 450 ) = RKI( 450 ) * YC( DMS ) * YC( OH ) RXRAT( 451 ) = RKI( 451 ) * YC( DMS ) * YC( NO3 ) RXRAT( 452 ) = RKI( 452 ) * YC( DMS ) * YC( CL ) RXRAT( 453 ) = RKI( 453 ) * YC( DMS ) * YC( CLO ) RETURN END ================================================ FILE: CCTM/src/gas/ebi_cb6r5m_ae7_aq/hrsolver.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE HRSOLVER( JDATE, JTIME, C, R, L ) C********************************************************************** C C FUNCTION: EBI solver C C PRECONDITIONS: For the CB6R5M_AE7_AQ mechanism C C KEY SUBROUTINES/FUNCTIONS CALLED: HRRATES, HRG1, HRG2, HRG3 C HRG4, HRPRODLOSS C DEGRADE C C REVISION HISTORY: Created by EBI solver program, Apr 5, 2022 C 21 Jun 10 J.Young: convert for Namelist redesign C 18 Jul 14 B.Hutzell: revised 1) to use the RXNS_DATA and RXNS_FUNCTION C modules instead of include files and 2) to use C real(8) variables C********************************************************************** USE RUNTIME_VARS USE UTILIO_DEFN USE RXNS_DATA USE HRDATA USE PA_IRR_MODULE #ifdef isam USE SA_IRR_DEFN #endif #ifdef sens USE DDM3D_CHEM, ONLY: YCDDM USE CGRID_SPCS, ONLY: GC_SPC #endif USE DEGRADE_ROUTINES, ONLY : DEGRADE, SA_DEGRADE_STEP IMPLICIT NONE C..INCLUDES: C..ARGUMENTS: INTEGER, INTENT( IN ) :: JDATE ! Current date (YYYYDDD) INTEGER, INTENT( IN ) :: JTIME ! Current time (HHMMSS) INTEGER, INTENT( IN ) :: C, R, L ! Cell col, row, lev C..PARAMETERS: INTEGER, PARAMETER :: MXBKUPS = 5 ! Max no. of back-ups allowed INTEGER, PARAMETER :: STAT = 1 ! Status code REAL( 8 ), PARAMETER :: DTMIN = 1.0D-08 ! Smallest time step allowed, min REAL( 8 ), PARAMETER :: EPSLON = 1.0D-30 ! Small number REAL( 8 ), PARAMETER :: MAXPRED = 1.0D+03 ! Upper limit on predicted conc REAL( 8 ), PARAMETER :: ZERO = 1.0D-40 ! effective zero REAL( 8 ), PARAMETER :: FLOOR = 1.0D-08 ! Min conc for RTOL C..EXTERNAL FUNCTIONS: C..SAVED LOCAL VARIABLES: CHARACTER( 16 ), SAVE :: PNAME = 'HRSOLVER' ! Program name LOGICAL, SAVE :: LFIRST = .TRUE. ! Flag for first call LOGICAL, ALLOCATABLE, SAVE :: LEBISPFL( : ) ! Convergence Error Flag for EBI species LOGICAL, ALLOCATABLE, SAVE :: MAXCONC ( : ) ! MAXCONC ERROR Flag for EBI species LOGICAL, ALLOCATABLE, SAVE :: NOTMAX ( : ) ! Initial concentration not greater than MAXPRED REAL( 8 ), ALLOCATABLE, SAVE :: RERROR ( : ) ! Relative Error REAL( 8 ), ALLOCATABLE, SAVE :: AERROR ( : ) ! Absolute Error C..SCRATCH LOCAL VARIABLES: CHARACTER( 132 ) :: MSG ! Message text INTEGER CELLNO ! Cell no. fo debug output INTEGER ITER ! Loop index for Backward Euler iterations INTEGER S ! Loop index for species INTEGER SP ! Imbedded loop index for species INTEGER NEBI ! Loop index for time steps INTEGER NINR ! No. of inner time steps #ifdef hrdebug INTEGER N ! Loop index #endif INTEGER M ! species index INTEGER EBI ! Loop index INTEGER NBKUPS ! No. of times time step reduced INTEGER ERR ! Allocate error flag LOGICAL LEBI_CONV ! Flag for EBI convergence LOGICAL MXFL ! hit MAXPRED flag REAL( 8 ) DTC ! Time step to take REAL( 8 ) DTG ! Time step in degrade routines, sec REAL( 8 ) FXDLOSS ! Total loss due to negative stoichiometry REAL( 8 ) VARLOSS ! Loss excluding negative stoichiometry #ifdef hrdebug CHARACTER( 8 ) :: NOTE ! Convergence fail note INTEGER COL ! Column to generate deboug output for INTEGER ROW ! Row to generate deboug output for INTEGER LEV ! Level to generate deboug output for INTEGER DBGOUT ! Output unit for debu outpt LOGICAL LDEBUG ! Debug output flag LOGICAL, SAVE :: LOPEN = .FALSE. #endif C********************************************************************** IF( LFIRST ) THEN LFIRST = .FALSE. ALLOCATE ( LEBISPFL( NUMB_MECH_SPC ), STAT = ERR ) IF ( ERR .NE. 0 ) THEN MSG = 'Error allocating LEBISPFL' CALL M3EXIT( PNAME, JDATE, JTIME, MSG, XSTAT1 ) END IF ALLOCATE ( MAXCONC( NUMB_MECH_SPC ), STAT = ERR ) IF ( ERR .NE. 0 ) THEN MSG = 'Error allocating MAXCONC' CALL M3EXIT( PNAME, JDATE, JTIME, MSG, XSTAT1 ) END IF ALLOCATE ( NOTMAX( NUMB_MECH_SPC ), STAT = ERR ) IF ( ERR .NE. 0 ) THEN MSG = 'Error allocating NOTMAX' CALL M3EXIT( PNAME, JDATE, JTIME, MSG, XSTAT1 ) END IF ALLOCATE ( RERROR( NUMB_MECH_SPC ), STAT = ERR ) IF ( ERR .NE. 0 ) THEN MSG = 'Error allocating ERROR' CALL M3EXIT( PNAME, JDATE, JTIME, MSG, XSTAT1 ) END IF ALLOCATE ( AERROR( NUMB_MECH_SPC ), STAT = ERR ) IF ( ERR .NE. 0 ) THEN MSG = 'Error allocating AERROR' CALL M3EXIT( PNAME, JDATE, JTIME, MSG, XSTAT1 ) END IF END IF #ifdef sens YCDDM = 0.0D0 #endif c++++++++++++++++++++++++Debug section++++++++++++++++++++++++++++++++++ #ifdef hrdebug COL = 0 ROW = 0 LEV = 0 IF( C .EQ. COL .AND. R .EQ. ROW .AND. L .EQ. LEV ) THEN c IF( JTIME .EQ. 160000 ) THEN LDEBUG = .TRUE. ELSE LDEBUG = .FALSE. END IF IF( LDEBUG ) THEN IF( .NOT. LOPEN ) THEN DBGOUT = JUNIT() OPEN( UNIT = DBGOUT, FILE = 'debug.out' ) LOPEN = .TRUE. END IF WRITE( DBGOUT, '( A, 2I4, I3, 1X, I7, 1X, I6 ) ' ) & 'Debug output for col/row/lev/date/time:', & C, R, L, JDATE, JTIME WRITE( DBGOUT, '( A, F7.2) ' ) & 'EBI_TMSTEP = ', EBI_TMSTEP WRITE( DBGOUT, '( A )' ) 'Starting concs and rate constants' DO N = 1, NUMB_MECH_SPC WRITE( DBGOUT, '( A, I3, 1X, A, 1X, 1PD13.5 )' ) & 'SP ',N, CHEMISTRY_SPC( N ), YC( N ) END DO DO N = 1, N_RXNS WRITE( DBGOUT, '( A, I3, 1X, 1PD13.5 )' ) & 'RKI ', N, RKI( N ) END DO END IF #endif c++++++++++++++++++++++++Debug section++++++++++++++++++++++++++++++++++ DTC = EBI_TMSTEP N_EBI_IT = 0 NBKUPS = 0 N_INR_STEPS = 1 NEBI = 1 LEBI_CONV = .TRUE. #ifdef isam UPDATE_SOLD = .FALSE. UPDATE_PROBABILITIES = .TRUE. CALL SA_IRR_UNBLOCKED ( .TRUE., RKI, YC, DTC ) #endif DO S = 1, NUMB_MECH_SPC IF( YC( S ) .LE. MAXPRED )THEN NOTMAX( S ) = .TRUE. ELSE NOTMAX( S ) = .FALSE. WRITE(LOGDEV,91000)C, R, L, CHEMISTRY_SPC(S), YC(S) END IF END DO ! Initial PA_IRR IF( CALL_IRR ) CALL PA_IRR ( .TRUE., RKI, YC, DTC ) SA_DEGRADE_STEP = 0 TSTEP_EBI: DO ! EBI time-step loop SUBSTEP_EBI: DO NINR = 1, N_INR_STEPS ! time substeps loop ! first attempt is sub time-step equals EBI time-step IF( LEBI_CONV ) YC0 = YC ! Set ICs for EBI iterations ITER_SUBSTEP: DO ITER = 1, NEBITER ! iteration loop solving for sub time-step N_EBI_IT = N_EBI_IT + 1 CALL HRRATES c++++++++++++++++++++++++Debug section++++++++++++++++++++++++++++++++++ #ifdef hrdebug IF( LDEBUG ) THEN WRITE( DBGOUT, '( A, I5 )' ) 'ITER NO ', ITER WRITE( DBGOUT, '( A, F12.5 )' ) & ' DTC=', DTC IF( ITER .EQ. 1 ) THEN WRITE( DBGOUT, '( A )' ) 'Starting reaction rates' DO N = 1, N_RXNS WRITE( DBGOUT, '( A, I3, 1X, 1PD13.5 )' ) & 'RXRAT ', N, RXRAT( NCELL, N ) END DO END IF END IF #endif c++++++++++++++++++++++++Debug section++++++++++++++++++++++++++++++++++ cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Call routines to compute concentrations of groups 1-4 cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc CALL HRG1( DTC ) CALL HRG2( DTC ) CALL HRG3( DTC ) CALL HRG4( DTC ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Do the Euler backward method cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc CALL HRPRODLOSS DO EBI = 1, N_EBISP S = EBISP( EBI ) YCP( S ) = YC( S )*( ( YC0( S ) + PROD( S ) * DTC ) & / ( YC( S ) + LOSS( S ) * DTC ) ) END DO c..Special treatment of PAR because of negative product stoichiometry IF( PNEG( PAR ) .GT. 0.0D0 ) THEN FXDLOSS = PNEG( PAR ) * DTC IF( FXDLOSS .GE. YC0( PAR ) + PROD( PAR ) * DTC ) THEN YCP( PAR ) = 0.0D0 ELSE VARLOSS = MAX( LOSS( PAR ) - PNEG( PAR ) , ZERO ) YCP( PAR ) = ( YC0( PAR ) + PROD( PAR ) * DTC - & FXDLOSS ) / ( 1.0D0 + VARLOSS * DTC / YC( PAR ) ) END IF END IF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Check for convergence cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc LEBI_CONV = .TRUE. MXFL = .FALSE. DO S = 1, NUMB_MECH_SPC LEBISPFL( S ) = .FALSE. YCP( S ) = MAX( ZERO, YCP( S ) ) AERROR( S ) = MAX( ABS( YC(S)-YCP(S) ), EPSLON ) RERROR( S ) = AERROR( S ) / MAX( FLOOR, ABS( YC(S)+YCP(S) ) ) IF( RERROR( S ) .GT. RTOL(S) .OR. AERROR( S ) .GT. 1.0D-5 )THEN LEBI_CONV = .FALSE. LEBISPFL( S ) = .TRUE. END IF c..test if predictions growing too large IF( YCP( S ) .GT. MAXPRED .AND. NOTMAX( S ) ) THEN MXFL = .TRUE. LEBI_CONV = .FALSE. LEBISPFL( S ) = .TRUE. END IF YC( S ) = YCP( S ) END DO c..test if predictions growing too large, abort interation loop IF( MXFL ) EXIT ITER_SUBSTEP c++++++++++++++++++++++++Debug section++++++++++++++++++++++++++++++++++ #ifdef hrdebug IF( LDEBUG ) THEN WRITE( DBGOUT, '( A, I5 )' ) 'Concs after ITER= ', ITER DO S = 1, NUMB_MECH_SPC IF( LEBISPFL( S ) ) THEN NOTE = 'CONV FAIL' ELSE NOTE = ' ' END IF WRITE( DBGOUT, '( I3, 1X, A, 1PD13.5, 1X, A )' ) & S, CHEMISTRY_SPC( S ), YC( S ), NOTE END DO IF( LEBI_CONV ) WRITE( DBGOUT, '( A )' ) & '****Convergence achieved' END IF #endif c++++++++++++++++++++++++Debug section++++++++++++++++++++++++++++++++++ IF( LEBI_CONV ) THEN DTG = 60.0D0 * DTC DO S = 1, NUMB_MECH_SPC M = CGRID_INDEX( S ) YCCELL( M ) = YC( S ) END DO #if defined(isam) || defined(verbose_isam) SA_DEGRADE_STEP = SA_DEGRADE_STEP + 1 #endif IF( CALL_DEG )CALL DEGRADE(YCCELL, DTG, JDATE, JTIME) ! :WTH Call degradation routine IF( CALL_IRR ) CALL PA_IRR ( .FALSE., RKI, YC, DTC ) #ifdef isam IF( NEBI .EQ. N_EBI_STEPS )UPDATE_SOLD = .TRUE. CALL SA_IRR_UNBLOCKED ( .FALSE., RKI, YC, DTC ) UPDATE_PROBABILITIES = .FALSE. #endif #ifdef sens C Update the sum for the average over the chemistry integration YCDDM = YCDDM & + ( ( 0.5D0 * DTC ) * ( YC + YC0 ) ) #endif CYCLE SUBSTEP_EBI ! solve for next sub time-step END IF END DO ITER_SUBSTEP ! interating for substep failed, attempt to increase number of sub time-steps NBKUPS = NBKUPS + 1 ! IF( NBKUPS .LE. MXBKUPS ) THEN IF ( DTC .GT. DTMIN ) THEN ! reset YC and cut sub time-step in half IF ( MXFL ) THEN WRITE( LOGDEV, 92008 ) NBKUPS WRITE( LOGDEV, 92009 ) C+PECOL_OFFSET, R+PEROW_OFFSET, L DO S = 1, NUMB_MECH_SPC IF( LEBISPFL( S ) )WRITE( LOGDEV, 92010 )TRIM( CHEMISTRY_SPC( S ) ), & YC0(S), YCP(S) END DO ELSE WRITE( LOGDEV, 92000 ) C+PECOL_OFFSET, R+PEROW_OFFSET, L, NBKUPS DO S = 1, NUMB_MECH_SPC IF( LEBISPFL( S ) )WRITE( LOGDEV, 92010 )TRIM( CHEMISTRY_SPC( S ) ), & YC0(S), YCP(S) END DO END IF YC = YC0 ! Set ICs for EBI time-step DTC = 0.5D0 * DTC N_INR_STEPS = 2 ** NBKUPS EXIT SUBSTEP_EBI ELSE WRITE( LOGDEV, 92040 ) C+PECOL_OFFSET, R+PEROW_OFFSET, L WRITE( LOGDEV, 92060 ) DO S = 1, NUMB_MECH_SPC IF( LEBISPFL( S ) ) WRITE( LOGDEV, 92080 ) CHEMISTRY_SPC( S ), & YC0(S), YCP(S) END DO MSG = 'ERROR: Stopping because of EBI convergence failures' CALL M3EXIT( PNAME, JDATE, JTIME, MSG, XSTAT2 ) END IF END DO SUBSTEP_EBI IF( LEBI_CONV )THEN NEBI = 1 + NEBI ! test for completing final EBI time-step IF( NEBI .GT. N_EBI_STEPS )EXIT TSTEP_EBI ! test whether backups were done IF( NBKUPS .EQ. 0 )CYCLE TSTEP_EBI ! Reset NBKUPS, N_INR_STEPS and sub-time step NBKUPS = 0 N_INR_STEPS = 1 DTC = EBI_TMSTEP END IF END DO TSTEP_EBI #ifdef sens ! Compute average over integration and filter values YCDDM = YCDDM / CHEMSTEP WHERE ( YCDDM .LT. 1.0D-25 ) YCDDM = 0.0D0 #endif RETURN 91000 FORMAT( 'WARNING: EBI solver in cell (',2(I4,','),I4,') Init.Conc. for ', & A16, ' = ', ES12.4,' ppmV') 92000 FORMAT( 'WARNING: EBI Euler convergence failure' / & ' Reducing EBI time step because of ', & ' convergence failure in ' / & ' Cell (', I3, ', ', I3, ', ', I3, ')' , & ' Solution Attempt #', I2 / & ' Below Species Causing Error: Init.Conc, Pred.Conc.' ) 92008 FORMAT( 'WARNING: At solution attempt #', I2 ) 92009 FORMAT( 'WARNING: EBI Euler convergence failure' / & ' Reducing EBI time step because of ', & ' MAXPRED failure in ' / & ' Cell (', I3, ', ', I3, ', ', I3, ')' , & ' for the below species: : Init.Conc, Pred.Conc.') 92010 FORMAT( A16, 2(1X,ES12.4), ' ppmV' ) 92040 FORMAT( 'ERROR: Max number of EBI time step reductions exceeded' & / ' Convergence failure for cell (', I3, ', ', I3, & ', ', I3, ')' ) 92060 FORMAT( ' Convergence failure for the following species:', & 'Init.Conc, Pred.Conc.' ) 92080 FORMAT( 10X, A, 2(1X,ES12.4), ' ppmV ' ) 92061 FORMAT( ' Convergence failure for the following species:', & 'Init.Conc, Pred.Conc.,Rel.Error,' ) 92081 FORMAT( 10X, A, 2(1X,ES12.4), ' ppmV ', ES12.4,'%' ) END ================================================ FILE: CCTM/src/gas/ebi_cracmm1_aq/hrdata_mod.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! MODULE HRDATA C************************************************************************* C C FUNCTION: Mechanism & solver data for EBI solver C C PRECONDITIONS: For the CRACMM1_AQ mechanism C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by EBI solver program, Jun 14, 2022 C C 18 Jul 14 B.Hutzell: revised to use real(8) variables for solution C************************************************************************* c..EBI solver fixed parameters INTEGER, PARAMETER :: NEBITER = 1000 ! No. of iterations for EBI INTEGER, PARAMETER :: MAX_CELLS_EBI = 1 ! max # cells in local conc arrays REAL( 8 ), PARAMETER :: DELTAT = 2.500D+00 ! EBI time step (min) c..Mechanism specific variables INTEGER N_SPEC ! No. of species in mechanism INTEGER N_RXNS ! No. of reactions in mechanism INTEGER N_EBISP ! No. of species solved by EBI INTEGER NING1 ! No. of species in group 1 INTEGER NING2 ! No. of species in group 2 INTEGER N_SPCL_RKS ! No. of special rate constants INTEGER N_ACTSP ! No. of species in mechanism (non-ss spec) INTEGER NCELL ! cell number in EBI Block c..Control flags LOGICAL L_AE_VRSN ! Flag for aerosol version of mech LOGICAL L_AQ_VRSN ! Flag for aqueous chemistry version of mech LOGICAL CALL_IRR ! Flag initializing for IRR and calling PA_IRR ! SWITCH for calling DEGRADE routine LOGICAL, SAVE :: CALL_DEG = .TRUE. c..Miscellaneous variables INTEGER N_EBI_IT ! No. of iterations for EBI INTEGER N_EBI_STEPS ! No. of time steps for EBI INTEGER N_INR_STEPS ! No. of inner time steps for EBI INTEGER PECOL_OFFSET ! Local Column Offset for processor INTEGER PEROW_OFFSET ! Local Column Offset for processor INTEGER, SAVE :: MODEL_SPECIES ! No. of species in CGRID REAL( 8 ) EBI_TMSTEP ! Time step for EBI loops (min) REAL( 8 ) CHEMSTEP ! Chemistry integration interval (min) c...Allocatable arrays INTEGER, ALLOCATABLE :: EBISP( : ) ! Index of EBI species INTEGER, ALLOCATABLE :: SSASP( : ) ! Index of ss species INTEGER, ALLOCATABLE :: ACTSP( : ) ! Index of active species INTEGER, ALLOCATABLE :: IOLD2NEW( :,: ) ! YC species map, used if NSPECIAL > 0 REAL( 8 ), ALLOCATABLE :: RKI( : ) ! Rate constants REAL( 8 ), ALLOCATABLE :: RKI_SAV( :, : ) ! Saved values of RKI for SS species calcs REAL( 8 ), ALLOCATABLE :: YC ( : ) ! Species concentrations REAL( 8 ), ALLOCATABLE :: YC0( : ) ! Species concentrations REAL( 8 ), ALLOCATABLE :: YCP( : ) ! Species concentrations REAL( 8 ), ALLOCATABLE :: SYC( :, : ) ! Species concentrations REAL, ALLOCATABLE :: FORWARD_CONV( : ) ! CGRID to CHEM Species conversion factor REAL, ALLOCATABLE :: REVERSE_CONV( : ) ! CHEM to CGRID Species conversion factor REAL( 8 ), ALLOCATABLE :: RXRAT( : ) ! Reaction rates REAL( 8 ), ALLOCATABLE :: RTOL( : ) ! Species tolerances REAL( 8 ), ALLOCATABLE :: YCCELL( : ) ! ALL Species in cgrid REAL( 8 ), ALLOCATABLE :: PROD( : ) ! Prod of species REAL( 8 ), ALLOCATABLE :: LOSS( : ) ! Loss of species REAL, ALLOCATABLE :: PRES( :, :, : ) ! pressure (Pa) REAL, ALLOCATABLE :: QV ( :, :, : ) ! water vapor (Kg/Kg air) REAL, ALLOCATABLE :: TA ( :, :, : ) ! temperature (K) REAL, ALLOCATABLE :: SEAICE ( :, :) ! fractional seaice cover, [-] REAL, ALLOCATABLE :: DENS( :, :, : ) ! mass density (Kg/m^3) REAL, ALLOCATABLE :: SEAWATER_ZONE ( :,: ) ! fractional area of OPEN+SURF LOGICAL, ALLOCATABLE :: LFLAGIRR ( :,:,: ) ! Conduct IRR for cell REAL( 8 ), ALLOCATABLE :: ATMPRES ( : ) ! Cell pressure, Atm ! REAL( 8 ), ALLOCATABLE :: PRESCELL( : ) ! Cell pressure, Pa REAL( 8 ), ALLOCATABLE :: H2O ( : ) ! Cell H2O mixing ratio (ppmV) REAL( 8 ), ALLOCATABLE :: TEMP ( : ) ! Cell Temperature REAL( 8 ), ALLOCATABLE :: DENSITY ( : ) ! Cell mass density (Kg/m3) REAL( 8 ), ALLOCATABLE :: HET ( :, : ) ! cell heterogeneous reaction rates REAL( 8 ), ALLOCATABLE :: RJIN ( :, : ) ! J-values for a cell REAL( 8 ), ALLOCATABLE :: SEAWATER ( : ) ! fractional area of OPEN+SURF for specific cell c..Species indices INTEGER, PARAMETER :: O3 = 1 INTEGER, PARAMETER :: O3P = 2 INTEGER, PARAMETER :: O1D = 3 INTEGER, PARAMETER :: H2O2 = 4 INTEGER, PARAMETER :: HO = 5 INTEGER, PARAMETER :: NO2 = 6 INTEGER, PARAMETER :: NO = 7 INTEGER, PARAMETER :: NO3 = 8 INTEGER, PARAMETER :: HONO = 9 INTEGER, PARAMETER :: HNO3 = 10 INTEGER, PARAMETER :: HNO4 = 11 INTEGER, PARAMETER :: HO2 = 12 INTEGER, PARAMETER :: HCHO = 13 INTEGER, PARAMETER :: CO = 14 INTEGER, PARAMETER :: ACD = 15 INTEGER, PARAMETER :: MO2 = 16 INTEGER, PARAMETER :: ALD = 17 INTEGER, PARAMETER :: ETHP = 18 INTEGER, PARAMETER :: ACT = 19 INTEGER, PARAMETER :: ACO3 = 20 INTEGER, PARAMETER :: UALD = 21 INTEGER, PARAMETER :: KET = 22 INTEGER, PARAMETER :: PINAL = 23 INTEGER, PARAMETER :: HC10P = 24 INTEGER, PARAMETER :: LIMAL = 25 INTEGER, PARAMETER :: MEK = 26 INTEGER, PARAMETER :: HKET = 27 INTEGER, PARAMETER :: MACR = 28 INTEGER, PARAMETER :: MACP = 29 INTEGER, PARAMETER :: XO2 = 30 INTEGER, PARAMETER :: MVK = 31 INTEGER, PARAMETER :: GLY = 32 INTEGER, PARAMETER :: MGLY = 33 INTEGER, PARAMETER :: DCB1 = 34 INTEGER, PARAMETER :: DCB2 = 35 INTEGER, PARAMETER :: BALD = 36 INTEGER, PARAMETER :: CHO = 37 INTEGER, PARAMETER :: OP1 = 38 INTEGER, PARAMETER :: OP2 = 39 INTEGER, PARAMETER :: OPB = 40 INTEGER, PARAMETER :: OP3 = 41 INTEGER, PARAMETER :: PAA = 42 INTEGER, PARAMETER :: ONIT = 43 INTEGER, PARAMETER :: PAN = 44 INTEGER, PARAMETER :: N2O5 = 45 INTEGER, PARAMETER :: SO2 = 46 INTEGER, PARAMETER :: SULF = 47 INTEGER, PARAMETER :: SULRXN = 48 INTEGER, PARAMETER :: ETH = 49 INTEGER, PARAMETER :: HC3 = 50 INTEGER, PARAMETER :: HC3P = 51 INTEGER, PARAMETER :: ASOATJ = 52 INTEGER, PARAMETER :: HC5 = 53 INTEGER, PARAMETER :: HC5P = 54 INTEGER, PARAMETER :: ETE = 55 INTEGER, PARAMETER :: ETEP = 56 INTEGER, PARAMETER :: OLT = 57 INTEGER, PARAMETER :: OLTP = 58 INTEGER, PARAMETER :: OLI = 59 INTEGER, PARAMETER :: OLIP = 60 INTEGER, PARAMETER :: ACE = 61 INTEGER, PARAMETER :: ORA1 = 62 INTEGER, PARAMETER :: BEN = 63 INTEGER, PARAMETER :: BENP = 64 INTEGER, PARAMETER :: PHEN = 65 INTEGER, PARAMETER :: TOL = 66 INTEGER, PARAMETER :: TOLP = 67 INTEGER, PARAMETER :: CSL = 68 INTEGER, PARAMETER :: XYM = 69 INTEGER, PARAMETER :: XYMP = 70 INTEGER, PARAMETER :: XYE = 71 INTEGER, PARAMETER :: XYEP = 72 INTEGER, PARAMETER :: ISO = 73 INTEGER, PARAMETER :: ISOP = 74 INTEGER, PARAMETER :: API = 75 INTEGER, PARAMETER :: APIP1 = 76 INTEGER, PARAMETER :: APIP2 = 77 INTEGER, PARAMETER :: LIM = 78 INTEGER, PARAMETER :: LIMP1 = 79 INTEGER, PARAMETER :: LIMP2 = 80 INTEGER, PARAMETER :: PINALP = 81 INTEGER, PARAMETER :: RCO3 = 82 INTEGER, PARAMETER :: LIMALP = 83 INTEGER, PARAMETER :: ACTP = 84 INTEGER, PARAMETER :: MEKP = 85 INTEGER, PARAMETER :: KETP = 86 INTEGER, PARAMETER :: MCP = 87 INTEGER, PARAMETER :: MVKP = 88 INTEGER, PARAMETER :: UALP = 89 INTEGER, PARAMETER :: DCB3 = 90 INTEGER, PARAMETER :: BALP = 91 INTEGER, PARAMETER :: ADDC = 92 INTEGER, PARAMETER :: MCT = 93 INTEGER, PARAMETER :: MCTO = 94 INTEGER, PARAMETER :: MOH = 95 INTEGER, PARAMETER :: EOH = 96 INTEGER, PARAMETER :: ROH = 97 INTEGER, PARAMETER :: ETEG = 98 INTEGER, PARAMETER :: ISHP = 99 INTEGER, PARAMETER :: IEPOX = 100 INTEGER, PARAMETER :: MAHP = 101 INTEGER, PARAMETER :: ORA2 = 102 INTEGER, PARAMETER :: ORAP = 103 INTEGER, PARAMETER :: PPN = 104 INTEGER, PARAMETER :: MPAN = 105 INTEGER, PARAMETER :: TRPN = 106 INTEGER, PARAMETER :: HOM = 107 INTEGER, PARAMETER :: NALD = 108 INTEGER, PARAMETER :: ISON = 109 INTEGER, PARAMETER :: MCTP = 110 INTEGER, PARAMETER :: OLNN = 111 INTEGER, PARAMETER :: OLND = 112 INTEGER, PARAMETER :: APINP1 = 113 INTEGER, PARAMETER :: APINP2 = 114 INTEGER, PARAMETER :: LIMNP1 = 115 INTEGER, PARAMETER :: LIMNP2 = 116 INTEGER, PARAMETER :: ADCN = 117 INTEGER, PARAMETER :: VROCP4OXY2 = 118 INTEGER, PARAMETER :: VROCN1OXY6 = 119 INTEGER, PARAMETER :: FURANONE = 120 INTEGER, PARAMETER :: VROCP3OXY2 = 121 INTEGER, PARAMETER :: VROCP0OXY4 = 122 INTEGER, PARAMETER :: BAL1 = 123 INTEGER, PARAMETER :: BAL2 = 124 INTEGER, PARAMETER :: ELHOM = 125 INTEGER, PARAMETER :: VROCIOXY = 126 INTEGER, PARAMETER :: SLOWROC = 127 INTEGER, PARAMETER :: ACRO = 128 INTEGER, PARAMETER :: BDE13 = 129 INTEGER, PARAMETER :: BDE13P = 130 INTEGER, PARAMETER :: FURAN = 131 INTEGER, PARAMETER :: FURANO2 = 132 INTEGER, PARAMETER :: PROG = 133 INTEGER, PARAMETER :: SESQ = 134 INTEGER, PARAMETER :: SESQNRO2 = 135 INTEGER, PARAMETER :: VROCN2OXY2 = 136 INTEGER, PARAMETER :: SESQRO2 = 137 INTEGER, PARAMETER :: VROCP0OXY2 = 138 INTEGER, PARAMETER :: VROCP1OXY3 = 139 INTEGER, PARAMETER :: AGLYJ = 140 INTEGER, PARAMETER :: IEPOXP = 141 INTEGER, PARAMETER :: AISO3NOSJ = 142 INTEGER, PARAMETER :: ASO4J = 143 INTEGER, PARAMETER :: AISO3OSJ = 144 INTEGER, PARAMETER :: VROCP6ALK = 145 INTEGER, PARAMETER :: VROCP6ALKP = 146 INTEGER, PARAMETER :: VROCP5ALK = 147 INTEGER, PARAMETER :: VROCP5ALKP = 148 INTEGER, PARAMETER :: VROCP4ALK = 149 INTEGER, PARAMETER :: VROCP4ALKP = 150 INTEGER, PARAMETER :: VROCP3ALK = 151 INTEGER, PARAMETER :: VROCP3ALKP = 152 INTEGER, PARAMETER :: VROCP2ALK = 153 INTEGER, PARAMETER :: VROCP2ALKP = 154 INTEGER, PARAMETER :: VROCP1ALK = 155 INTEGER, PARAMETER :: VROCP1ALKP = 156 INTEGER, PARAMETER :: HC10 = 157 INTEGER, PARAMETER :: VROCP6ALKP2 = 158 INTEGER, PARAMETER :: VROCP5ALKP2 = 159 INTEGER, PARAMETER :: VROCP4ALKP2 = 160 INTEGER, PARAMETER :: VROCP2OXY2 = 161 INTEGER, PARAMETER :: VROCP3ALKP2 = 162 INTEGER, PARAMETER :: VROCP1OXY1 = 163 INTEGER, PARAMETER :: VROCP2ALKP2 = 164 INTEGER, PARAMETER :: VROCP1ALKP2 = 165 INTEGER, PARAMETER :: VROCN1OXY1 = 166 INTEGER, PARAMETER :: HC10P2 = 167 INTEGER, PARAMETER :: VROCP6ARO = 168 INTEGER, PARAMETER :: VROCP6AROP = 169 INTEGER, PARAMETER :: VROCN2OXY4 = 170 INTEGER, PARAMETER :: VROCN1OXY3 = 171 INTEGER, PARAMETER :: VROCP5ARO = 172 INTEGER, PARAMETER :: VROCP5AROP = 173 INTEGER, PARAMETER :: NAPH = 174 INTEGER, PARAMETER :: NAPHP = 175 INTEGER, PARAMETER :: VROCN2OXY8 = 176 INTEGER, PARAMETER :: VROCP5OXY1 = 177 INTEGER, PARAMETER :: VROCP6OXY1 = 178 END MODULE HRDATA ================================================ FILE: CCTM/src/gas/ebi_cracmm1_aq/hrdriver.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE CHEM( CGRID, JDATE, JTIME, TSTEP ) C********************************************************************** C C FUNCTION: Driver subroutine for Euler Backward Iterative solver C C PRECONDITIONS: For the CRACMM1_AQ mechanism C C KEY SUBROUTINES/FUNCTIONS CALLED: HRINIT, HRCALCKS, HRSOLVER C FIND_DEGRADED, INIT_DEGRADE, FINAL_DEGRADE C C REVISION HISTORY: Created by EBI solver program, Jun 14, 2022 C Based on the algorithm in "Test of Two Numerical C Schemes for Use in Atmospheric Transport-Chemistry C Models", O. Hertel, R. Berkowicz, J. Christensen, C and O. Hov, Atm Env., Vol. 27A, No. 16, 1993. C Original MEBI code developed by Ho-Chun Huang, C SUNY, Albany -- "On the performance of numerical C solvers for a chemistry submodel in three-dimensional C air quality models 1. Box model simulations", C H. Huang and J.S. Chang, JGR, Vol 106, No. D17, 2001. C This version replaces Huang and Chang use of numerical C solutions with analytical solutions derived in C Hertel et al. C 21 Jun 10 J.Young: convert for Namelist redesign C 11 May 11 D.Wong: incorporated twoway model implementation C 27 Sep 11 B.Hutzell: revised method for defining CALL_DEG variable C 18 Jul 14 B.Hutzell: revised: 1) to use the RXNS_DATA and RXNS_FUNCTION C modules instead of include files, 2) to enable C reactions between species types, 3) to calculate C heterogeneous rate constants via AEROSOL_CHEMISTRY C module, 4) to replace call to HRCALCKS with C subroutine in RXNS_FUNCTION module and 5) to change C how degrade routines are used, if present C 02 Dec 14 B.Hutzell: 1) added terrestrial data to conduct surface C dependent reactions and 2) modified the call CALC_RCONST C routine C 01 Feb 19 D.Wong: Implemented centralized I/O approach, removed all MY_N C clauses C********************************************************************** USE HGRD_DEFN ! horizontal domain specifications USE VGRD_DEFN ! vertical layer specifications USE CGRID_SPCS ! CGRID mechanism species USE UTILIO_DEFN ! IOAPI parameters and functions declarations USE RXNS_DATA USE AEROSOL_CHEMISTRY USE RXNS_FUNCTION #ifdef isam USE SA_IRR_DEFN USE SA_DEFN #endif USE HRDATA USE PHOT_MOD, Only: INIT_PHOT_SHARED, RJ ! photolysis rate, in-line module USE PA_DEFN, Only: LIRR ! Process Analysis control and data variable USE PA_IRR_CLT #ifndef isam USE DEGRADE_ROUTINES, ONLY : N_REACT, RXTANT_MAP, DEG_LAY, DEG_COL, DEG_ROW, & FIND_DEGRADED, INIT_DEGRADE, FINAL_DEGRADE #else USE DEGRADE_ROUTINES, ONLY : N_REACT, RXTANT_MAP, SA_DEGRADE_EXTRACT, & FIND_DEGRADED, INIT_DEGRADE, FINAL_DEGRADE, & SA_DEGRADE_UPLOAD, DEG_LAY, DEG_COL, DEG_ROW #endif USE CENTRALIZED_IO_MODULE, ONLY : INTERPOLATE_VAR, OCEAN, SZONE #ifdef sens USE DDM3D_CHEM Use DDM3D_DEFN, Only: DATENUM, STARTDATE, IPT, IDATE, HIGH, NP, NPMAX, CKTIME #endif IMPLICIT NONE C..Includes: INCLUDE SUBST_FILES_ID ! CMAQ files INCLUDE SUBST_CONST ! CMAQ constants INCLUDE SUBST_EMISPRM ! Emissions processing control parameters C..Arguments: REAL, POINTER :: CGRID( :,:,:,: ) ! Species concentrations INTEGER JDATE ! Current date (YYYYDDD) INTEGER JTIME ! Current time (HHMMSS) INTEGER TSTEP( 3 ) ! Time step vector (HHMMSS) C..Parameters: REAL( 8 ), PARAMETER :: DCONMIN = 1.0D-30 ! minimum species concentration allowed REAL, PARAMETER :: CONCMIN = 1.0E-30 ! minimum species concentration allowed REAL, PARAMETER :: MAOMV = 1.0E6 * MWAIR / MWWAT ! Mol Wt of air over Mol Wt of water times 1.0E6 C..External Functions: C..Saved Local Variables: CHARACTER( 16 ), SAVE :: PNAME = 'HRDRIVER' ! Program name INTEGER, SAVE :: ISTFL ! Unit no. of iteration stat output file LOGICAL, SAVE :: LFIRST = .TRUE. ! Flag for first call to this subroutine REAL( 8 ), SAVE :: PA2ATM ! Pascal to atm conv fac C..Scratch Local Variables: CHARACTER( 132 ) :: MSG ! Message text CHARACTER( 16 ) :: VNAME ! Name of I/O API data variable INTEGER C, E, L, R, S ! Loop indices INTEGER ISP ! array index INTEGER AVGEBI ! Average no. of EBI iterations INTEGER DELT_SEC ! EBI max time step in seconds INTEGER ESP ! Loop index for emissions species INTEGER ITMSTEP ! Chemistry integration interval (sec) INTEGER LEV ! Layer index INTEGER MIDDATE ! Date at time step midpoint INTEGER MIDTIME ! Time at time step midpoint INTEGER NPH ! Index for number of phot. rxns in PHOT INTEGER SPC ! Species loop index #ifdef hrstats INTEGER MNEBI ! Min no. of EBI iterations INTEGER MXEBI ! Max no. of EBI iterations #endif LOGICAL LSUNLIGHT ! Flag for sunlight REAL INV_DENS ! reciprocal of air mass density, m3/Kg #ifdef hrstats REAL SUMEBI ! Sum of EBI iterations #endif INTERFACE SUBROUTINE HRSOLVER( JDATE, JTIME, C, R, L ) INTEGER, INTENT( IN ) :: JDATE ! Current date (YYYYDDD) INTEGER, INTENT( IN ) :: JTIME ! Current time (HHMMSS) INTEGER, INTENT( IN ) :: C, R, L ! Cell col, row, lev END SUBROUTINE HRSOLVER SUBROUTINE HETCHEM_UPDATE_AERO( CGRID ) REAL, POINTER :: CGRID( :,:,:,: ) ! species concentration in cell END SUBROUTINE HETCHEM_UPDATE_AERO END INTERFACE C********************************************************************** IF( NUMB_MECH_SPC .EQ. 0 ) RETURN ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c On first call, call routines to set-up for EBI solver ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF( LFIRST ) THEN IF( MECHNAME .NE. 'CRACMM1_AQ' ) THEN MSG = 'This version of the EBI solver can only be used with' & // ' the CRACMM1_AQ chemical mechanism' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF #ifdef emis_chem EMISVD = .FALSE. #else EMISVD = .TRUE. #endif IF( INDEX( MECHNAME, 'AE' ) .NE. 0 ) THEN L_AE_VRSN = .TRUE. ELSE L_AE_VRSN = .FALSE. END IF IF( INDEX( MECHNAME, 'AQ' ) .NE. 0 ) THEN L_AQ_VRSN = .TRUE. ELSE L_AQ_VRSN = .FALSE. END IF IF( LIRR ) THEN CALL_IRR = .TRUE. ELSE CALL_IRR = .FALSE. END IF MODEL_SPECIES = NSPCSD ! WTH: find number of model species ! Determine whether DEGRADE rountines are needed. CALL FIND_DEGRADED( JDATE, JTIME, CALL_DEG ) IF( CALL_DEG )THEN WRITE(LOGDEV,*)'TX DEGRADE ROUTINES USED' WRITE(LOGDEV,*)'Mechanism contains degraded species' #ifdef verbose_gas ELSE WRITE(LOGDEV,*)'TX DEGRADE ROUTINES OMITTED' WRITE(LOGDEV,*)'MECHANISM does not include degraded species' #endif END IF CALL HRINIT ITMSTEP = TIME2SEC( TSTEP( 2 ) ) CHEMSTEP = REAL( ITMSTEP, 8 ) / 60.0D0 WRITE( LOGDEV, 92000 ) CHEMSTEP, DELTAT WRITE( LOGDEV, 92020 ) DO SPC = 1, NUMB_MECH_SPC WRITE( LOGDEV, 92040 ) CHEMISTRY_SPC( SPC ), RTOL( SPC ) END DO PA2ATM = REAL( 1.0 / STDATMPA, 8) c..If emissions processing requested stop IF( .NOT. EMISVD ) THEN ! assumes emis processing in gas chem MSG = 'ERROR: EBI solver not configured to '// & 'process emissions in chemistry' CALL M3EXIT( PNAME, JDATE, JTIME, MSG, XSTAT1 ) END IF ! End if doing emissions #ifdef hrstats ISTFL = JUNIT() OPEN( UNIT=ISTFL, FILE='iterstat.dat' ) WRITE( ISTFL, 94020 ) #endif C Define processor offsets PECOL_OFFSET = COLSD_PE( 1, MYPE+1 ) - 1 PEROW_OFFSET = ROWSD_PE( 1, MYPE+1 ) - 1 ALLOCATE( SEAWATER_ZONE( NCOLS, NROWS ) ) DO R = 1, NROWS DO C = 1, NCOLS SEAWATER_ZONE( C,R ) = OCEAN( C,R ) + SZONE( C,R ) END DO END DO ALLOCATE( DENS( NCOLS, NROWS, NLAYS ), PRES( NCOLS, NROWS, NLAYS ), & QV ( NCOLS, NROWS, NLAYS ), TA ( NCOLS, NROWS, NLAYS ), & SEAICE( NCOLS, NROWS ) ) C..Initialize shared photolysis data CALL INIT_PHOT_SHARED() C..Determine which cells need IRR ALLOCATE( LFLAGIRR ( NCOLS, NROWS, NLAYS ) ) CALL PA_IRR_CKCELLS ( LFLAGIRR ) #ifdef isam NUMB_ISAM_CELLS = 1.0D0 / ( NCOLS * NROWS * NLAYS ) CALL SA_IRR_INIT #endif #ifdef sens CALL INIT_DDM3D_CHEM() C For higher order sensitivities IF ( HIGH ) THEN DO RXN = 1, NRXNS IF( NREACT( RXN ) .EQ. 1 ) THEN ORDER1( RXN ) = .TRUE. ELSE ORDER1( RXN ) = .FALSE. END IF END DO END IF #endif LFIRST = .FALSE. END IF ! First time ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C Set date and time to center of time step, get necessary physical C data ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc MIDDATE = JDATE MIDTIME = JTIME ITMSTEP = TIME2SEC( TSTEP( 2 ) ) CHEMSTEP = REAL( ITMSTEP, 8 ) / 60.0D0 CALL NEXTIME( MIDDATE, MIDTIME, SEC2TIME( ITMSTEP / 2 ) ) C.. Compute number of time step loops and step size for EBI solver DELT_SEC = INT( DELTAT * 60.0D0 + 0.1D0 ) IF( DELT_SEC .GE. ITMSTEP ) THEN N_EBI_STEPS = 2 EBI_TMSTEP = 0.5D0 * CHEMSTEP ELSE IF( MOD( ITMSTEP, DELT_SEC ) .EQ. 0 ) THEN N_EBI_STEPS = ITMSTEP / DELT_SEC ELSE N_EBI_STEPS = ITMSTEP / DELT_SEC + 1 END IF EBI_TMSTEP = CHEMSTEP / REAL( N_EBI_STEPS, 8 ) END IF N_INR_STEPS = 1 C.. Get fractional seaice coverage from the METCRO2D file. CALL INTERPOLATE_VAR ('SEAICE', MIDDATE, MIDTIME, SEAICE) C.. Get ambient temperature in K CALL INTERPOLATE_VAR ('TA', MIDDATE, MIDTIME, TA) C.. Get specific humidity in Kg H2O / Kg air CALL INTERPOLATE_VAR ('QV', MIDDATE, MIDTIME, QV) ! Get ambient MASS DENSITY in Kg/m^3 CALL INTERPOLATE_VAR ('DENS', MIDDATE, MIDTIME, DENS) C.. Get pressure in Pascals CALL INTERPOLATE_VAR ('PRES', MIDDATE, MIDTIME, PRES) C.. Get Heteorogeneous rates and Update Aerosol Distribution Properties CALL HETCHEM_RATES( TA, PRES, QV, CGRID, DENS ) #ifdef sens DATENUM = 1 + JDATE - STARTDATE ! Set the date and hour counters used in sensitivity calls C For reaction rate sensitivities DO NP = 1, NPMAX IF ( IPT( NP ) .EQ. 5 ) THEN CALL CKTIME( JDATE,JTIME,NP,RXNFLAG(NP) ) ! Rxnflag set to true iff ipt=5 and time, date within bounds IF ( IDATE( NP, DATENUM ) .NE. 1 ) RXNFLAG( NP ) = .FALSE. ELSE RXNFLAG( NP ) = .FALSE. END IF END DO #endif sens ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Top of loop over cells ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc #ifdef hrstats MNEBI = 1000 MXEBI = 0 SUMEBI = 0.0 #endif NCELL = 1 DO L = 1, NLAYS DO R = 1, NROWS DO C = 1, NCOLS DEG_LAY = L DEG_ROW = R DEG_COL = C c..reset CALL_IRR based on cell's values CALL_IRR = LFLAGIRR( C,R,L ) c..Load ICs INV_DENS = 1.0 / DENS( C,R,L ) DO SPC = 1, NUMB_MECH_SPC S = CGRID_INDEX( SPC ) IF( CONVERT_CONC( SPC ) )THEN YC( SPC ) = REAL( MAX( CONCMIN, & INV_DENS*FORWARD_CONV( SPC )*CGRID( C,R,L,S )), 8 ) ELSE YC( SPC ) = REAL( MAX( CGRID( C,R,L,S ), CONCMIN), 8 ) END IF END DO IF(CALL_DEG)THEN ! INITIALIZE degradation routines YCCELL = 0.0D0 DO S = 1, MODEL_SPECIES YCCELL( S ) = REAL( CGRID(C,R,L,S), 8) END DO CALL INIT_DEGRADE(YCCELL,TA(C,R,L),DENS(C,R,L),PRES(C,R,L),QV(C,R,L),RJIN(NCELL,:), & JDATE, JTIME) #ifdef isam CALL SA_DEGRADE_EXTRACT( C,R,L,DENS(C,R,L) ) #endif END IF c..Set physical quantities TEMP( NCELL ) = REAL( TA( C,R,L ), 8) DENSITY( NCELL ) = REAL( DENS( C,R,L ), 8) ! PRESCELL( NCELL ) = REAL( PRES( C,R,L ), 8) ATMPRES( NCELL ) = PA2ATM * REAL( PRES( C,R,L ), 8) H2O( NCELL ) = REAL( MAX ( MAOMV * QV( C,R,L ), 0.0 ), 8) SEAWATER (NCELL) = MAX ( 0.0D0, ( REAL( SEAWATER_ZONE( C,R ) - SEAICE (C,R) ,8) ) ) c..Get rate constants LSUNLIGHT = .FALSE. FORALL( NPH = 1:NPHOTAB ) RJIN( NCELL,NPH ) = REAL( RJ( C,R,L,NPH ), 8) IF( MAXVAL(RJIN) .GT. 0.0D0 ) LSUNLIGHT = .TRUE. FORALL ( NPH = 1:NHETERO )HET( NCELL,NPH ) = REAL( KHETERO( NPH,C,R,L ), 8) CALL CALC_RCONST( TEMP, ATMPRES, H2O, RJIN, HET, LSUNLIGHT, SEAWATER, RKI_SAV, NCELL ) FORALL( NPH = 1:NRXNS )RKI( NPH ) = RKI_SAV( NCELL, NPH ) #ifdef isam #if defined(isam) || defined(verbose_isam) C...For diagnosing IRR calculations in log files IF( CHECK_ISAM )THEN WRITE_CELL = .FALSE. IF( C .EQ. MAX(1, NCOLS/2) .AND. R .EQ. MAX(1,NROWS/2) .AND. L .EQ. 1 )THEN WRITE_CELL = .TRUE. WRITE(LOGDEV,*)'WRITE_CELL = .TRUE.' ELSE WRITE_CELL = .FALSE. END IF END IF #endif CALL SA_IRR_EXTRACT( C, R, L, DENS( C,R,L ),YC ) #endif c..Call EBI solver N_EBI_IT = 0 CALL HRSOLVER( JDATE, JTIME, C, R, L ) #ifdef hrstats MXEBI = MAX( MXEBI, N_EBI_IT ) MNEBI = MIN( MNEBI, N_EBI_IT ) SUMEBI = SUMEBI + REAL( N_EBI_IT ) #endif c..Update concentration array DO SPC = 1, NUMB_MECH_SPC S = CGRID_INDEX( SPC ) IF( CONVERT_CONC( SPC ) )THEN CGRID( C,R,L,S ) = REAL( REVERSE_CONV( SPC ) * DENS( C,R,L ) & * MAX( YC( SPC ), DCONMIN), 4) ELSE CGRID( C,R,L,S ) = REAL( MAX( YC( SPC ), DCONMIN), 4) END IF END DO IF(CALL_DEG)THEN ! WTH: update based on degrade routines CALL FINAL_DEGRADE(YCCELL) UPDATE_DEGRADED: DO SPC = 1, N_REACT ISP = RXTANT_MAP( SPC ) IF( ISP .LE. 0 )CYCLE UPDATE_DEGRADED DO S = 1, NUMB_MECH_SPC IF( CGRID_INDEX( S ) .EQ. ISP )CYCLE UPDATE_DEGRADED END DO CGRID(C,R,L,ISP) = REAL( YCCELL(ISP), 4) END DO UPDATE_DEGRADED #ifdef isam CALL SA_DEGRADE_UPLOAD( C,R,L,DENS(C,R,L) ) #endif END IF #ifdef isam CALL SA_IRR_UPLOAD( C, R, L, DENS( C,R,L ), YC ) #endif c..update irrout arrays if needed IF ( LFLAGIRR( C,R,L ) )CALL PA_IRR_CELLENDF( C, R, L ) #ifdef sens DO RXN = 1, NRXNS SRK( RXN ) = RKI( RXN ) IF ( HIGH ) THEN IF ( ORDER1 (RXN ) ) THEN SRK2( RXN ) = 0.0 ELSE SRK2( RXN ) = RKI( RXN ) END IF END IF END DO CALL SOLVE_DDM3D_CHEM( C,R,L,CHEMSTEP ) #endif END DO END DO END DO ! Update Aerosol Surface Area CALL HETCHEM_UPDATE_AERO( CGRID ) #ifdef hrstats AVGEBI = SUMEBI / REAL( NCOLS * NROWS * NLAYS ) WRITE( ISTFL, 94040 ) JDATE, JTIME, MNEBI, AVGEBI, MXEBI #endif RETURN C*********************** FORMAT STATEMENTS **************************** 92000 FORMAT( / 10X, 'Euler Backward Iterative Parameters -' & / 10X, 'Chemistry Integration Time Interval (min):', F12.4, & / 10X, 'EBI maximum time step (min): ', F12.4 ) 92020 FORMAT( //10X, 'Species convergence tolerances:' ) 92040 FORMAT( 10X, A16, 2X, 1PE12.2 ) 92060 FORMAT( / 10X, 'Emissions Processing in Chemistry ...' & / 10X, 'Number of Emissions Layers: ', I3 & / 10X, 'out of total Number of Model Layers:', I3 ) 94020 FORMAT( 'DATE TIME ', 'MNEBI AVEBI MXEBI' ) 94040 FORMAT( I7, 1X, I6, 1X, 3( I5, 1X ) ) END ================================================ FILE: CCTM/src/gas/ebi_cracmm1_aq/hrg1.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE HRG1( DTC ) C********************************************************************** C C FUNCTION: To solve for the concentration of NO2, NO, O3, and O3P C algebraically. C C PRECONDITIONS: For the CRACMM1_AQ mechanism C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by EBI solver program, Jun 14, 2022 C C 18 Jul 14 B.Hutzell: revised to use real(8) variables C 01 Jun 18 B.Hutzell: replaced steady solution for O1D with backward Euler C approximation. To match conditions where the initial C concentration cannot be neglected. C********************************************************************** USE HRDATA IMPLICIT NONE C..INCLUDES: None C..ARGUMENTS: REAL( 8 ), INTENT( IN ) :: DTC ! Time step C..PARAMETERS: None C..EXTERNAL FUNCTIONS: NONE C..SAVED LOCAL VARIABLES: ! CHARACTER( 16 ), SAVE :: PNAME = 'HRG1' ! Prgram Name C..SCRATCH LOCAL VARIABLES: REAL( 8 ) :: O1D_S ! sum of O1D loss frequencies REAL( 8 ) :: O3P_S ! stoich coeff for O3P from O1D REAL( 8 ) :: R1_2 ! production term for NO from NO2 REAL( 8 ) :: R2_1 ! production term for NO2 from NO REAL( 8 ) :: P1, P2, P3, P12 ! production terms for NO, NO2, O3, & O3P REAL( 8 ) :: L1, L2, L3, L12 ! loss terms for NO, NO2, O3, O3P REAL( 8 ) :: L1_INV, L2_INV, & L3_INV, L12_INV ! inverse of loss terms REAL( 8 ) :: T1, T2, T3, T4, T5 ! intermerdiate terms REAL( 8 ) :: F1, F2, F3 ! intermerdiate terms REAL( 8 ) :: A, B, C ! coefficients for quadratic equation REAL( 8 ) :: Q, XX, S1, S2 ! intermerdiate terms REAL( 8 ) :: RK1, RK2, RK3 ! rate constants REAL( 8 ) :: PO3 ! temp variable for O3 C********************************************************************** cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c O1D Section c 1) sum of the rate constants for all O1D loss reactions c 2) get fractional yield of O3P from O1D loss cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc O1D_S = RKI( 45 ) ! O1D=O3P & + RKI( 46 ) ! O1D=O3P & + RKI( 47 ) ! O1D=0.2000D+01*HO O3P_S = RKI( 45 ) ! O1D=O3P & + RKI( 46 ) ! O1D=O3P O3P_S = O3P_S / O1D_S cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c NO Section c R1_2 = production of NO from NO2 ( rates of form k[NO2][x] ) c except NO2+NO3=NO+NO2 (it is treated as if it were NO3=NO ) c P1 = remaining NO production terms c L1 = loss of NO (except rxns producing NO2 - they are in R2_1) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc R1_2 = RKI( 4 ) ! NO2=NO+O3P & + RKI( 59 ) * YC ( O3P ) ! NO2+O3P=NO R1_2 = R1_2 * DTC P1 = RXRAT( 5 ) ! NO3=NO & + RXRAT( 7 ) ! HONO=NO+HO & + RXRAT( 66 ) ! NO2+NO3=NO+NO2 P1 = YC0( NO ) + P1 * DTC L1 = RKI( 54 ) * YC ( HO ) ! NO+HO=HONO & + RKI( 56 ) * YC ( HO2 ) ! NO+HO2=HNO3 & + 6.5000D-02 * RKI( 175 ) * YC ( HC3P ) ! NO+HC3P=0.6600D+... & + 1.3600D-01 * RKI( 176 ) * YC ( HC5P ) ! NO+HC5P=0.2000D+... & + 3.0000D-02 * RKI( 178 ) * YC ( OLTP ) ! NO+OLTP=0.7800D+... & + 5.0000D-02 * RKI( 179 ) * YC ( OLIP ) ! NO+OLIP=0.8300D+... & + 2.0000D-03 * RKI( 180 ) * YC ( BENP ) ! NO+BENP=0.0000D+... & + 2.0000D-03 * RKI( 181 ) * YC ( TOLP ) ! NO+TOLP=0.2000D-... & + 2.0000D-03 * RKI( 182 ) * YC ( XYMP ) ! NO+XYMP=0.1000D-... & + 2.0000D-03 * RKI( 183 ) * YC ( XYEP ) ! NO+XYEP=0.2000D-... & + 1.2000D-01 * RKI( 184 ) * YC ( ISOP ) ! NO+ISOP=0.8800D+... & + 1.8000D-01 * RKI( 185 ) * YC ( APIP1 ) ! NO+APIP1=0.8200D+... & + 1.8000D-01 * RKI( 186 ) * YC ( APIP2 ) ! NO+APIP2=0.8200D+... & + 1.8000D-01 * RKI( 188 ) * YC ( APINP2 ) ! NO+APINP2=... & + 2.3000D-01 * RKI( 189 ) * YC ( LIMP1 ) ! NO+LIMP1=0.7700D+... & + 2.3000D-01 * RKI( 190 ) * YC ( LIMP2 ) ! NO+LIMP2=0.7700D+... & + 2.3000D-01 * RKI( 192 ) * YC ( LIMNP2 ) ! NO+LIMNP2=... & + 5.0000D-02 * RKI( 193 ) * YC ( PINALP ) ! NO+PINALP=... & + 6.0000D-02 * RKI( 194 ) * YC ( LIMALP ) ! NO+LIMALP=... & + 3.2000D-02 * RKI( 388 ) * YC ( BDE13P ) ! NO+BDE13P=... & + 8.0000D-02 * RKI( 396 ) * YC ( FURANO2 ) ! NO+FURANO2=... & + 2.4700D-01 * RKI( 410 ) * YC ( SESQRO2 ) ! NO+SESQRO2=... & + 2.8000D-01 * RKI( 426 ) * YC ( VROCP6ALKP ) ! NO+VROCP6ALKP=... & + 2.8000D-01 * RKI( 427 ) * YC ( VROCP5ALKP ) ! NO+VROCP5ALKP=... & + 2.8000D-01 * RKI( 428 ) * YC ( VROCP4ALKP ) ! NO+VROCP4ALKP=... & + 2.8000D-01 * RKI( 429 ) * YC ( VROCP3ALKP ) ! NO+VROCP3ALKP=... & + 2.8000D-01 * RKI( 430 ) * YC ( VROCP2ALKP ) ! NO+VROCP2ALKP=... & + 2.8000D-01 * RKI( 431 ) * YC ( VROCP1ALKP ) ! NO+VROCP1ALKP=... & + 2.6000D-01 * RKI( 432 ) * YC ( HC10P ) ! NO+HC10P=0.7400D+... & + 1.4000D-01 * RKI( 454 ) * YC ( VROCP6ALKP2 ) ! NO+VROCP6ALKP2=... & + 1.4000D-01 * RKI( 455 ) * YC ( VROCP5ALKP2 ) ! NO+VROCP5ALKP2=... & + 1.4000D-01 * RKI( 456 ) * YC ( VROCP4ALKP2 ) ! NO+VROCP4ALKP2=... & + 1.4000D-01 * RKI( 457 ) * YC ( VROCP3ALKP2 ) ! NO+VROCP3ALKP2=... & + 1.4000D-01 * RKI( 458 ) * YC ( VROCP2ALKP2 ) ! NO+VROCP2ALKP2=... & + 1.4000D-01 * RKI( 459 ) * YC ( VROCP1ALKP2 ) ! NO+VROCP1ALKP2=... & + 1.2000D-01 * RKI( 460 ) * YC ( HC10P2 ) ! NO+HC10P2=... & + 2.0000D-03 * RKI( 477 ) * YC ( VROCP6AROP ) ! NO+VROCP6AROP=... & + 2.0000D-03 * RKI( 483 ) * YC ( VROCP5AROP ) ! NO+VROCP5AROP=... & + 2.0000D-03 * RKI( 489 ) * YC ( NAPHP ) ! NO+NAPHP=0.5950D-... L1 = 1.0D0 + L1 * DTC cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c NO2 Section c R2_1 = production of NO2 from NO ( rates of form k[NO][x] ) c a) NO+O3=NO2 not included c b) NO+NO3=2NO2 ( 1/2 of NO2 formation rate included ) c c) NO3+NO2=NO+NO2 is not included for NO2 c P2 = remaining NO2 production terms c a) NO+O3=NO2 not included c b) NO+NO3=2NO2 (1/2 of NO2 formation rate included ) c L2 = loss of NO2 (except rxns producing NO2 - they are in R1_2) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc R2_1 = RKI( 53 ) * YC ( O3P ) ! NO+O3P=NO2 & + RKI( 55 ) * YC ( HO2 ) ! NO+HO2=NO2+HO & + 2.0000D+00 * RKI( 57 ) * YC ( NO ) ! NO+NO=0.2000D+01*NO2 & + RKI( 65 ) * YC ( NO3 ) ! NO+NO3=0.2000D+... & + RKI( 173 ) * YC ( MO2 ) ! NO+MO2=NO2+HO2+HCHO & + RKI( 174 ) * YC ( ETHP ) ! NO+ETHP=NO2+HO2+ACD & + 9.3500D-01 * RKI( 175 ) * YC ( HC3P ) ! NO+HC3P=0.9350D+... & + 8.6400D-01 * RKI( 176 ) * YC ( HC5P ) ! NO+HC5P=0.8640D+... & + RKI( 177 ) * YC ( ETEP ) ! NO+ETEP=NO2+HO2+... & + 9.7000D-01 * RKI( 178 ) * YC ( OLTP ) ! NO+OLTP=0.9700D+... & + 9.5000D-01 * RKI( 179 ) * YC ( OLIP ) ! NO+OLIP=0.9500D+... & + 9.9800D-01 * RKI( 180 ) * YC ( BENP ) ! NO+BENP=0.9980D+... & + 9.9800D-01 * RKI( 181 ) * YC ( TOLP ) ! NO+TOLP=0.9980D+... & + 9.9800D-01 * RKI( 182 ) * YC ( XYMP ) ! NO+XYMP=0.9980D+... & + 9.9800D-01 * RKI( 183 ) * YC ( XYEP ) ! NO+XYEP=0.9980D+... & + 8.8000D-01 * RKI( 184 ) * YC ( ISOP ) ! NO+ISOP=0.8800D+... & + 8.2000D-01 * RKI( 185 ) * YC ( APIP1 ) ! NO+APIP1=0.8200D+... & + 8.2000D-01 * RKI( 186 ) * YC ( APIP2 ) ! NO+APIP2=0.8200D+... & + RKI( 187 ) * YC ( APINP1 ) ! NO+APINP1=... & + 8.2000D-01 * RKI( 188 ) * YC ( APINP2 ) ! NO+APINP2=... & + 7.7000D-01 * RKI( 189 ) * YC ( LIMP1 ) ! NO+LIMP1=0.7700D+... & + 7.7000D-01 * RKI( 190 ) * YC ( LIMP2 ) ! NO+LIMP2=0.7700D+... & + RKI( 191 ) * YC ( LIMNP1 ) ! NO+LIMNP1=... & + 7.7000D-01 * RKI( 192 ) * YC ( LIMNP2 ) ! NO+LIMNP2=... & + 9.5000D-01 * RKI( 193 ) * YC ( PINALP ) ! NO+PINALP=... & + 9.4000D-01 * RKI( 194 ) * YC ( LIMALP ) ! NO+LIMALP=... & + RKI( 195 ) * YC ( ACO3 ) ! NO+ACO3=NO2+MO2 & + RKI( 196 ) * YC ( RCO3 ) ! NO+RCO3=NO2+ETHP & + RKI( 197 ) * YC ( ACTP ) ! NO+ACTP=NO2+ACO3+... & + RKI( 198 ) * YC ( MEKP ) ! NO+MEKP=NO2+... & + RKI( 199 ) * YC ( KETP ) ! NO+KETP=NO2+... & + RKI( 200 ) * YC ( MACP ) ! NO+MACP=NO2+... & + RKI( 201 ) * YC ( MCP ) ! NO+MCP=NO2+... & + RKI( 202 ) * YC ( MVKP ) ! NO+MVKP=NO2+... & + RKI( 203 ) * YC ( UALP ) ! NO+UALP=NO2+HO2+... & + RKI( 204 ) * YC ( BALP ) ! NO+BALP=NO2+BAL1 & + RKI( 205 ) * YC ( BAL1 ) ! NO+BAL1=NO2+BAL2 & + RKI( 206 ) * YC ( ADDC ) ! NO+ADDC=NO2+HO2+... & + RKI( 207 ) * YC ( MCTP ) ! NO+MCTP=NO2+MCTO & + RKI( 208 ) * YC ( ORAP ) ! NO+ORAP=NO2+GLY+HO2 & + RKI( 209 ) * YC ( OLNN ) ! NO+OLNN=NO2+HO2+ONIT & + RKI( 210 ) * YC ( OLND ) ! NO+OLND=0.2000D+... & + RKI( 211 ) * YC ( ADCN ) ! NO+ADCN=0.2000D+... & + RKI( 212 ) * YC ( XO2 ) ! NO+XO2=NO2 & + 9.6800D-01 * RKI( 388 ) * YC ( BDE13P ) ! NO+BDE13P=... & + 9.2000D-01 * RKI( 396 ) * YC ( FURANO2 ) ! NO+FURANO2=... & + RKI( 404 ) * YC ( SESQNRO2 ) ! NO+SESQNRO2=... & + 7.5300D-01 * RKI( 410 ) * YC ( SESQRO2 ) ! NO+SESQRO2=... & + 7.2000D-01 * RKI( 426 ) * YC ( VROCP6ALKP ) ! NO+VROCP6ALKP=... & + 7.2000D-01 * RKI( 427 ) * YC ( VROCP5ALKP ) ! NO+VROCP5ALKP=... & + 7.2000D-01 * RKI( 428 ) * YC ( VROCP4ALKP ) ! NO+VROCP4ALKP=... & + 7.2000D-01 * RKI( 429 ) * YC ( VROCP3ALKP ) ! NO+VROCP3ALKP=... & + 7.2000D-01 * RKI( 430 ) * YC ( VROCP2ALKP ) ! NO+VROCP2ALKP=... & + 7.2000D-01 * RKI( 431 ) * YC ( VROCP1ALKP ) ! NO+VROCP1ALKP=... & + 7.4000D-01 * RKI( 432 ) * YC ( HC10P ) ! NO+HC10P=0.7400D+... & + 8.6000D-01 * RKI( 454 ) * YC ( VROCP6ALKP2 ) ! NO+VROCP6ALKP2=... & + 8.6000D-01 * RKI( 455 ) * YC ( VROCP5ALKP2 ) ! NO+VROCP5ALKP2=... & + 8.6000D-01 * RKI( 456 ) * YC ( VROCP4ALKP2 ) ! NO+VROCP4ALKP2=... & + 8.6000D-01 * RKI( 457 ) * YC ( VROCP3ALKP2 ) ! NO+VROCP3ALKP2=... & + 8.6000D-01 * RKI( 458 ) * YC ( VROCP2ALKP2 ) ! NO+VROCP2ALKP2=... & + 8.6000D-01 * RKI( 459 ) * YC ( VROCP1ALKP2 ) ! NO+VROCP1ALKP2=... & + 8.8000D-01 * RKI( 460 ) * YC ( HC10P2 ) ! NO+HC10P2=... & + 9.9800D-01 * RKI( 477 ) * YC ( VROCP6AROP ) ! NO+VROCP6AROP=... & + 9.9800D-01 * RKI( 483 ) * YC ( VROCP5AROP ) ! NO+VROCP5AROP=... & + 9.9800D-01 * RKI( 489 ) * YC ( NAPHP ) ! NO+NAPHP=0.9980D+... R2_1 = R2_1 * DTC P2 = RXRAT( 6 ) ! NO3=NO2+O3P & + RXRAT( 8 ) ! HNO3=NO2+HO & + 8.0000D-01 * RXRAT( 9 ) ! HNO4=0.8000D+00*NO2+... & + RXRAT( 36 ) ! ONIT=NO2+HO2+0.2000D+... & + RXRAT( 37 ) ! PAN=NO2+ACO3 & + RXRAT( 58 ) ! HONO+HO=NO2 & + RXRAT( 63 ) ! NO3+HO=NO2+HO2 & + 7.0000D-01 * RXRAT( 64 ) ! NO3+HO2=0.7000D+... & + RXRAT( 65 ) ! NO+NO3=0.2000D+01*NO2 & + 2.0000D+00 * RXRAT( 67 ) ! NO3+NO3=0.2000D+01*NO2 & + RXRAT( 69 ) ! N2O5=NO2+NO3 & + RXRAT( 72 ) ! HNO4=NO2+HO2 & + RXRAT( 73 ) ! HNO4+HO=NO2 & + RXRAT( 127 ) ! MPAN+HO=NO2+HKET & + RXRAT( 128 ) ! ONIT+HO=NO2+HC3P & + RXRAT( 130 ) ! NALD+HO=NO2+XO2+HKET & + 6.8000D-01 * RXRAT( 157 ) ! MACR+NO3=0.6800D+... & + RXRAT( 164 ) ! MPAN+NO3=NO2+MACP & + RXRAT( 168 ) ! PAN=NO2+ACO3 & + RXRAT( 170 ) ! PPN=NO2+RCO3 & + RXRAT( 172 ) ! MPAN=NO2+MACP & + RXRAT( 187 ) ! NO+APINP1=0.2000D+... & + RXRAT( 191 ) ! NO+LIMNP1=0.2000D+... & + RXRAT( 210 ) ! NO+OLND=0.2000D+... & + RXRAT( 211 ) ! NO+ADCN=0.2000D+... & + 8.6000D-01 * RXRAT( 269 ) ! APINP1+MO2=0.8600D+... & + 7.5000D-01 * RXRAT( 270 ) ! APINP2+MO2=0.7500D+... & + 7.0000D-01 * RXRAT( 273 ) ! LIMNP1+MO2=0.7000D+... & + 7.5000D-01 * RXRAT( 274 ) ! LIMNP2+MO2=0.7500D+... & + RXRAT( 281 ) ! MCP+MO2=NO2+HO2+... & + 5.0000D-01 * RXRAT( 290 ) ! OLND+MO2=0.5000D+... & + 7.0000D-01 * RXRAT( 291 ) ! ADCN+MO2=0.7000D+... & + 8.6000D-01 * RXRAT( 306 ) ! APINP1+ACO3=0.8600D+... & + 5.0000D-01 * RXRAT( 307 ) ! APINP2+ACO3=0.5000D+... & + 7.0000D-01 * RXRAT( 310 ) ! LIMNP1+ACO3=0.7000D+... & + 5.0000D-01 * RXRAT( 311 ) ! LIMNP2+ACO3=0.5000D+... & + RXRAT( 318 ) ! MCP+ACO3=NO2+0.5000D+... & + RXRAT( 327 ) ! OLND+ACO3=NO2+0.5000D+... & + 7.0000D-01 * RXRAT( 328 ) ! ADCN+ACO3=0.7000D+... & + RXRAT( 331 ) ! MO2+NO3=NO2+HCHO+HO2 & + RXRAT( 332 ) ! ETHP+NO3=NO2+HO2+ACD & + RXRAT( 333 ) ! HC3P+NO3=NO2+0.1400D+... & + RXRAT( 334 ) ! HC5P+NO3=NO2+0.5500D-... & + RXRAT( 335 ) ! ETEP+NO3=NO2+HO2+... & + RXRAT( 336 ) ! OLTP+NO3=NO2+0.7900D+... & + RXRAT( 337 ) ! OLIP+NO3=NO2+0.7200D+... & + RXRAT( 338 ) ! BENP+NO3=NO2+HO2+... & + RXRAT( 339 ) ! TOLP+NO3=NO2+0.9146D+... & + RXRAT( 340 ) ! XYMP+NO3=NO2+0.9518D+... & + RXRAT( 341 ) ! XYEP+NO3=NO2+0.9146D+... & + RXRAT( 342 ) ! ISOP+NO3=NO2+HO2+... & + RXRAT( 343 ) ! APIP1+NO3=NO2+HO2+ALD+KET & + RXRAT( 344 ) ! LIMP1+NO3=NO2+HO2+... & + RXRAT( 345 ) ! ACO3+NO3=NO2+MO2 & + RXRAT( 346 ) ! RCO3+NO3=NO2+ETHP & + RXRAT( 347 ) ! ACTP+NO3=NO2+ACO3+HCHO & + RXRAT( 348 ) ! MEKP+NO3=NO2+0.6700D+... & + RXRAT( 349 ) ! KETP+NO3=NO2+HO2+DCB1 & + RXRAT( 350 ) ! MACP+NO3=NO2+0.5380D+... & + RXRAT( 351 ) ! MCP+NO3=NO2+HO2+HCHO+HKET & + RXRAT( 352 ) ! MVKP+NO3=NO2+0.7000D+... & + RXRAT( 353 ) ! UALP+NO3=NO2+HO2+... & + RXRAT( 354 ) ! BALP+NO3=NO2+BAL1 & + RXRAT( 355 ) ! BAL1+NO3=NO2+BAL2 & + RXRAT( 356 ) ! ADDC+NO3=NO2+HO2+... & + RXRAT( 357 ) ! MCTP+NO3=NO2+MCTO & + RXRAT( 358 ) ! ORAP+NO3=NO2+GLY+HO2 & + RXRAT( 359 ) ! OLNN+NO3=NO2+HO2+ONIT & + 2.0000D+00 * RXRAT( 360 ) ! OLND+NO3=0.2000D+... & + 2.0000D+00 * RXRAT( 361 ) ! ADCN+NO3=0.2000D+... & + 5.0000D-01 * RXRAT( 363 ) ! OLNN+OLND=0.5000D+... & + RXRAT( 364 ) ! OLND+OLND=NO2+0.5040D+... & + RXRAT( 365 ) ! XO2+NO3=NO2 & + 4.8000D-01 * RXRAT( 374 ) ! APINP2+APIP1=0.4800D+... & + 4.8000D-01 * RXRAT( 375 ) ! APINP2+LIMP1=0.4800D+... & + 4.8000D-01 * RXRAT( 376 ) ! APINP2+ISOP=0.4800D+... & + 4.8000D-01 * RXRAT( 377 ) ! LIMNP2+APIP1=0.4800D+... & + 4.8000D-01 * RXRAT( 378 ) ! LIMNP2+LIMP1=0.4800D+... & + 4.8000D-01 * RXRAT( 379 ) ! LIMNP2+ISOP=0.4800D+... & + 6.8000D-01 * RXRAT( 385 ) ! ACRO+NO3=0.6800D+... & + RXRAT( 389 ) ! BDE13P+NO3=NO2+HO2+... & + RXRAT( 400 ) ! FURAN+NO3=NO2+0.8000D+... & + RXRAT( 404 ) ! NO+SESQNRO2=0.2000D+... & + 2.0000D+00 * RXRAT( 405 ) ! SESQNRO2+NO3=0.2000D+... & + RXRAT( 433 ) ! VROCP6ALKP+NO3=NO2+... & + RXRAT( 434 ) ! VROCP5ALKP+NO3=NO2+... & + RXRAT( 435 ) ! VROCP4ALKP+NO3=NO2+... & + RXRAT( 436 ) ! VROCP3ALKP+NO3=NO2+... & + RXRAT( 437 ) ! VROCP2ALKP+NO3=NO2+... & + RXRAT( 438 ) ! VROCP1ALKP+NO3=NO2+... & + RXRAT( 439 ) ! HC10P+NO3=NO2+HC10P2 & + RXRAT( 461 ) ! VROCP6ALKP2+NO3=NO2+... & + RXRAT( 462 ) ! VROCP5ALKP2+NO3=NO2+... & + RXRAT( 463 ) ! VROCP4ALKP2+NO3=NO2+... & + RXRAT( 464 ) ! VROCP3ALKP2+NO3=NO2+... & + RXRAT( 465 ) ! VROCP2ALKP2+NO3=NO2+... & + RXRAT( 466 ) ! VROCP1ALKP2+NO3=NO2+... & + RXRAT( 467 ) ! HC10P2+NO3=NO2+KET+HO2 & + RXRAT( 478 ) ! VROCP6AROP+NO3=NO2+... & + RXRAT( 484 ) ! VROCP5AROP+NO3=NO2+... & + RXRAT( 490 ) ! NAPHP+NO3=NO2+0.9405D+... P2 = YC0( NO2 ) + P2 * DTC L2 = RKI( 42 ) * YC ( O3 ) ! NO2+O3=NO3 & + RKI( 60 ) * YC ( O3P ) ! NO2+O3P=NO3 & + RKI( 61 ) * YC ( HO ) ! NO2+HO=HNO3 & + RKI( 68 ) * YC ( NO3 ) ! NO2+NO3=N2O5 & + RKI( 71 ) * YC ( HO2 ) ! NO2+HO2=HNO4 & + RKI( 167 ) * YC ( ACO3 ) ! NO2+ACO3=PAN & + RKI( 169 ) * YC ( RCO3 ) ! NO2+RCO3=PPN & + RKI( 171 ) * YC ( MACP ) ! NO2+MACP=MPAN & + RKI( 213 ) * YC ( BAL2 ) ! NO2+BAL2=ONIT & + RKI( 214 ) * YC ( CHO ) ! NO2+CHO=ONIT & + RKI( 215 ) * YC ( MCTO ) ! NO2+MCTO=ONIT & + RKI( 414 ) ! NO2=0.5000D+... L2 = 1.0D0 + L2 * DTC cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c O3 Section c P3 = production of O3 except O+O2=O3 c L3 = loss terms for O3 except NO+O3=NO2 cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc P3 = YC0( O3 ) L3 = RKI( 1 ) ! O3=O3P & + RKI( 2 ) ! O3=O1D & + RKI( 39 ) * YC ( HO ) ! O3+HO=HO2 & + RKI( 40 ) * YC ( HO2 ) ! O3+HO2=HO & + RKI( 42 ) * YC ( NO2 ) ! O3+NO2=NO3 & + RKI( 44 ) * YC ( O3P ) ! O3+O3P= & + RKI( 132 ) * YC ( ETE ) ! O3+ETE=0.8000D-... & + RKI( 133 ) * YC ( OLT ) ! O3+OLT=0.2200D+... & + RKI( 134 ) * YC ( OLI ) ! O3+OLI=0.4600D+... & + RKI( 135 ) * YC ( ISO ) ! O3+ISO=0.2500D+... & + RKI( 136 ) * YC ( API ) ! O3+API=0.9000D+... & + RKI( 137 ) * YC ( LIM ) ! O3+LIM=0.8400D+... & + RKI( 138 ) * YC ( LIMAL ) ! O3+LIMAL=0.4000D-... & + RKI( 139 ) * YC ( TRPN ) ! O3+TRPN=HOM & + RKI( 140 ) * YC ( MACR ) ! O3+MACR=0.1900D+... & + RKI( 141 ) * YC ( MVK ) ! O3+MVK=0.1600D+... & + RKI( 142 ) * YC ( UALD ) ! O3+UALD=0.1000D+... & + RKI( 143 ) * YC ( DCB1 ) ! O3+DCB1=0.5000D-... & + RKI( 144 ) * YC ( DCB2 ) ! O3+DCB2=0.5000D-... & + RKI( 145 ) * YC ( DCB3 ) ! O3+DCB3=0.5000D-... & + RKI( 146 ) * YC ( MCTO ) ! O3+MCTO=MCTP & + RKI( 384 ) * YC ( ACRO ) ! O3+ACRO=0.8400D+... & + RKI( 393 ) * YC ( BDE13 ) ! O3+BDE13=0.6200D+... & + RKI( 399 ) * YC ( FURAN ) ! O3+FURAN=0.2000D-... & + RKI( 406 ) * YC ( SESQ ) ! O3+SESQ=0.9820D+... & + RKI( 415 ) ! O3= L3 = 1.0D0 + L3 * DTC cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c O3P Section c P12 = production of O3P except NO2+hv=O3P (J1) c L12 = loss terms cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc P12 = RXRAT( 1 ) ! O3=O3P & + O3P_S * RXRAT( 2 ) ! O3=O1D & + RXRAT( 6 ) ! NO3=O3P+NO2 P12 = YC0( O3P ) + P12 * DTC L12 = RKI( 43 ) ! O3P=O3 & + RKI( 44 ) * YC ( O3 ) ! O3P+O3= & + RKI( 53 ) * YC ( NO ) ! O3P+NO=NO2 & + RKI( 59 ) * YC ( NO2 ) ! O3P+NO2=NO & + RKI( 60 ) * YC ( NO2 ) ! O3P+NO2=NO3 L12 = 1.0D0 + L12 * DTC ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Solution section ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c..compute reciprocal of loss terms L1_INV = 1.0D0 / L1 L2_INV = 1.0D0 / L2 L3_INV = 1.0D0 / L3 L12_INV = 1.0D0 / L12 c..compute specific k*delta t terms RK1 = RKI( 4 ) * DTC ! J1 (NO2+hv=NO+O3P) RK2 = RKI( 43 ) * DTC ! J2 (O3P+O2=O3) RK3 = RKI( 41 ) * DTC ! k1_3 (NO+O3=NO2) c..compute terms that are used to calulate a,b & c T1 = RK1 * L2_INV ! J1 / ( 1.0 + Lno2 * dt ) T2 = R1_2 * L2_INV ! r1,2 / ( 1.0 + Lno2 * dt) T3 = R2_1 * L1_INV ! r2,1 / ( 1.0 + Lno * dt) T4 = RK2 * L12_INV ! J2 / ( 1.0 + Lo3p * dt ) T5 = T3 * P1 - T2 * P2 ! T3 * Pno - T2 * Pno2 F1 = 1.0D0 + T2 + T3 ! factor in calculating a & b F2 = T1 * T4 ! factor in calculating a & b F3 = L3 * L1 + RK3 * P1 ! (1 + Lo3 * dt) (1 + lno * dt ) ! + k1,3 * dt * Pno PO3 = P3 + P12 * T4 A = RK3 * ( F1 - F2 ) B = F1 * F3 + RK3 * ( F2 * ( P2 - P1 ) + PO3 + T5 ) C = RK3 * P1 * ( PO3 + P2 * F2 ) + F3 * T5 Q = -0.5D0 * ( B + SIGN( 1.0D0, B ) * SQRT( B * B - 4.0D0 * A * C ) ) XX = MAX( Q / A , C / Q ) ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Species solutions c [NO] = ( P1 + x ) / ( 1 + L1 ) c [NO2] = ( P2 - x ) / ( 1 + L2 ) c [O3 ] = ( P3 + Ko3p->O3 ) / (1 + K1,3 * [NO] + L3 ) c [O3P] = ( P12 + J1 * [NO2] ) / ( 1 + L12 ) c [O1D] = ( yc0(o1d) + Ko3->o1d * [O3] *dtc) / ( 1 + O1D_S*dtc ) ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc YCP( NO ) = MAX( 0.0D0, ( P1 + XX ) * L1_INV ) YCP( NO2 ) = MAX( 0.0D0, ( P2 - XX ) * L2_INV ) S1 = P12 + RK1 * YCP( NO2 ) S2 = T4 * S1 YCP( O3 ) = ( P3 + S2 ) / ( L3 + RK3 * YCP( NO ) ) YCP( O3P ) = S1 * L12_INV YCP( O1D ) = ( YC0( O1D ) + RKI( 2 ) * YCP( O3 ) * DTC ) & / ( 1.0D0 + O1D_S * DTC ) RETURN END ================================================ FILE: CCTM/src/gas/ebi_cracmm1_aq/hrg2.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE HRG2( DTC ) C********************************************************************** C C FUNCTION: To solve for the concentration of HO, HO2, HONO, and C HNO4 alebraically. C C PRECONDITIONS: For the CRACMM1_AQ mechanism C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by EBI solver program, Jun 14, 2022 C C 18 Jul 14 B.Hutzell: revised to use real(8) variables C********************************************************************** USE HRDATA IMPLICIT NONE C..INCLUDES: None C..ARGUMENTS: REAL( 8 ), INTENT( IN ) :: DTC ! Time step C..PARAMETERS: None C..EXTERNAL FUNCTIONS: NONE C..SAVED LOCAL VARIABLES: ! CHARACTER( 16 ), SAVE :: PNAME = 'HRG2' ! Program name C..SCRATCH LOCAL VARIABLES: REAL( 8 ) :: O1D_S ! sum of O1D loss frequencies REAL( 8 ) :: OH_S ! stoich coeff for OH from O1D+H2O or H2 REAL( 8 ) :: HO2_S ! stoich coeff for HO2 from O1D+H2 rxn REAL( 8 ) :: XOH_S ! stoich coeff for OH & HONO from NO2EX loss rxn REAL( 8 ) :: R4_19 ! production of OH from HONO REAL( 8 ) :: R19_4 ! production of HONO from OH REAL( 8 ) :: R4_5 ! production of OH from HO2 REAL( 8 ) :: R5_4 ! production of HO2 from OH REAL( 8 ) :: R5_21 ! production of HO2 from HNO4 REAL( 8 ) :: R21_5 ! production of HNO4 from HO2 REAL( 8 ) :: P4, P5, P19, P21 ! species production form other paths REAL( 8 ) :: L4, L5, L19, L21 ! species loss terms REAL( 8 ) :: A, B, C ! coeffs of quadratic eq. for HO2 REAL( 8 ) :: Q ! intermediate term REAL( 8 ) :: T1, T2, T3 ! intermediate terms REAL( 8 ) :: L21_INV ! reciprocal of HNO4 loss term C********************************************************************** c..stoichiometric coefficient for production of HOX from O3 via O1D O1D_S = RKI( 45 ) ! O1D=O3P & + RKI( 46 ) ! O1D=O3P & + RKI( 47 ) ! O1D=0.2000D+01*HO OH_S = 2.0000D+00 * RKI( 47 ) ! O1D=0.2000D+01*HO OH_S = OH_S / O1D_S c..Production of HO from HO2 (r4,5 terms ) R4_5 = RKI( 40 ) * YC ( O3 ) ! HO2+O3=HO & + RKI( 55 ) * YC ( NO ) ! HO2+NO=HO+NO2 & + 7.0000D-01 * RKI( 64 ) * YC ( NO3 ) ! HO2+NO3=0.7000D+... & + 4.4000D-01 * RKI( 238 ) * YC ( ACO3 ) ! HO2+ACO3=0.4400D+... & + 4.4000D-01 * RKI( 239 ) * YC ( RCO3 ) ! HO2+RCO3=0.4400D+... & + 1.5000D-01 * RKI( 240 ) * YC ( ACTP ) ! HO2+ACTP=0.1500D+... & + 4.0000D-01 * RKI( 397 ) * YC ( FURANO2 ) ! HO2+FURANO2=... R4_5 = R4_5 * DTC c..Production of HO from HONO (r4,19 terms ) R4_19 = RKI( 7 ) ! HONO=HO+NO R4_19 = R4_19 * DTC c..Remaining HO production P4 = 2.0000D+00 * RXRAT( 3 ) ! H2O2=0.2000D+01*HO & + RXRAT( 8 ) ! HNO3=HO+NO2 & + 2.0000D-01 * RXRAT( 9 ) ! HNO4=0.2000D+00*HO+0.8000D+... & + 3.4000D-01 * RXRAT( 22 ) ! MACR=0.3400D+00*HO+0.6600D+... & + RXRAT( 31 ) ! OP1=HO+HO2+HCHO & + RXRAT( 32 ) ! OP2=HO+HO2+ALD & + RXRAT( 33 ) ! OPB=HO+HO2+ALD & + RXRAT( 34 ) ! OP3=HO+HO2+ALD & + RXRAT( 35 ) ! PAA=HO+MO2 & + OH_S * RXRAT( 2 ) ! O1D=0.2000D+01*HO & + 8.0000D-02 * RXRAT( 132 ) ! ETE+O3=0.8000D-01*HO+... & + 2.2000D-01 * RXRAT( 133 ) ! OLT+O3=0.2200D+00*HO+... & + 4.6000D-01 * RXRAT( 134 ) ! OLI+O3=0.4600D+00*HO+... & + 2.5000D-01 * RXRAT( 135 ) ! ISO+O3=0.2500D+00*HO+... & + 9.0000D-01 * RXRAT( 136 ) ! API+O3=0.9000D+00*HO+... & + 8.4000D-01 * RXRAT( 137 ) ! LIM+O3=0.8400D+00*HO+... & + 4.0000D-02 * RXRAT( 138 ) ! LIMAL+O3=0.4000D-01*HO+... & + 1.9000D-01 * RXRAT( 140 ) ! MACR+O3=0.1900D+00*HO+... & + 1.6000D-01 * RXRAT( 141 ) ! MVK+O3=0.1600D+00*HO+... & + 1.0000D-01 * RXRAT( 142 ) ! UALD+O3=0.1000D+00*HO+... & + 5.0000D-02 * RXRAT( 143 ) ! DCB1+O3=0.5000D-01*HO+HO2+... & + 5.0000D-02 * RXRAT( 144 ) ! DCB2+O3=0.5000D-01*HO+HO2+... & + 5.0000D-02 * RXRAT( 145 ) ! DCB3+O3=0.5000D-01*HO+HO2+... & + 8.2000D-01 * RXRAT( 186 ) ! APIP2+NO=0.8200D+00*HO+... & + 8.2000D-01 * RXRAT( 188 ) ! APINP2+NO=0.8200D+00*HO+... & + 7.7000D-01 * RXRAT( 190 ) ! LIMP2+NO=0.7700D+00*HO+... & + 7.7000D-01 * RXRAT( 192 ) ! LIMNP2+NO=0.7700D+00*HO+... & + 5.0000D-01 * RXRAT( 305 ) ! APIP2+ACO3=0.5000D+00*HO+... & + 5.0000D-01 * RXRAT( 309 ) ! LIMP2+ACO3=0.5000D+00*HO+... & + 4.8000D-01 * RXRAT( 368 ) ! APIP2+APIP1=0.4800D+00*HO+... & + 4.8000D-01 * RXRAT( 369 ) ! APIP2+LIMP1=0.4800D+00*HO+... & + 4.8000D-01 * RXRAT( 370 ) ! APIP2+ISOP=0.4800D+00*HO+... & + 4.8000D-01 * RXRAT( 371 ) ! LIMP2+APIP1=0.4800D+00*HO+... & + 4.8000D-01 * RXRAT( 372 ) ! LIMP2+LIMP1=0.4800D+00*HO+... & + 4.8000D-01 * RXRAT( 373 ) ! LIMP2+ISOP=0.4800D+00*HO+... & + 2.8000D-01 * RXRAT( 384 ) ! ACRO+O3=0.2800D+00*HO+... & + 2.0400D-01 * RXRAT( 386 ) ! ACRO=0.2040D+00*HO+0.4770D+... & + 8.0000D-02 * RXRAT( 393 ) ! BDE13+O3=0.8000D-01*HO+... & + 2.0000D-02 * RXRAT( 399 ) ! FURAN+O3=0.2000D-01*HO+ALD P4 = YC0( HO ) + P4 * DTC c..Production of HO2 from OH ( r5,4 terms ) R5_4 = RKI( 39 ) * YC ( O3 ) ! HO+O3=HO2 & + RKI( 48 ) ! HO=HO2 & + RKI( 52 ) * YC ( H2O2 ) ! HO+H2O2=HO2 & + RKI( 63 ) * YC ( NO3 ) ! HO+NO3=HO2+NO2 & + RKI( 74 ) * YC ( SO2 ) ! HO+SO2=HO2+SULF+... & + RKI( 75 ) * YC ( CO ) ! HO+CO=HO2 & + 3.5000D-01 * RKI( 83 ) * YC ( ACE ) ! HO+ACE=0.3500D+... & + 5.3000D-01 * RKI( 84 ) * YC ( BEN ) ! HO+BEN=0.5300D+... & + 1.8000D-01 * RKI( 85 ) * YC ( TOL ) ! HO+TOL=0.1800D+... & + 1.7000D-01 * RKI( 86 ) * YC ( XYM ) ! HO+XYM=0.1700D+... & + 1.8000D-01 * RKI( 87 ) * YC ( XYE ) ! HO+XYE=0.1800D+... & + RKI( 93 ) * YC ( HCHO ) ! HO+HCHO=HO2+CO & + RKI( 99 ) * YC ( HKET ) ! HO+HKET=HO2+MGLY & + RKI( 103 ) * YC ( GLY ) ! HO+GLY=HO2+... & + 5.2000D-01 * RKI( 105 ) * YC ( DCB1 ) ! HO+DCB1=0.5200D+... & + 5.2000D-01 * RKI( 106 ) * YC ( DCB2 ) ! HO+DCB2=0.5200D+... & + 5.6000D-01 * RKI( 107 ) * YC ( DCB3 ) ! HO+DCB3=0.5600D+... & + 6.1900D-01 * RKI( 109 ) * YC ( PHEN ) ! HO+PHEN=0.6190D+... & + 5.8400D-01 * RKI( 110 ) * YC ( CSL ) ! HO+CSL=0.5840D+... & + RKI( 112 ) * YC ( MOH ) ! HO+MOH=HO2+HCHO & + RKI( 113 ) * YC ( EOH ) ! HO+EOH=HO2+ACD & + RKI( 114 ) * YC ( ROH ) ! HO+ROH=HO2+... & + RKI( 115 ) * YC ( ETEG ) ! HO+ETEG=HO2+ALD & + RKI( 122 ) * YC ( ORA1 ) ! HO+ORA1=HO2 & + 3.3300D-01 * RKI( 387 ) * YC ( BDE13 ) ! HO+BDE13=0.3330D+... & + 4.9000D-01 * RKI( 395 ) * YC ( FURAN ) ! HO+FURAN=0.4900D+... & + 6.6000D-01 * RKI( 398 ) * YC ( FURANONE ) ! HO+FURANONE=... & + RKI( 401 ) * YC ( PROG ) ! HO+PROG=HO2+... & + 1.6000D-01 * RKI( 475 ) * YC ( VROCP6ARO ) ! HO+VROCP6ARO=... & + 1.6000D-01 * RKI( 481 ) * YC ( VROCP5ARO ) ! HO+VROCP5ARO=... & + 1.6000D-01 * RKI( 487 ) * YC ( NAPH ) ! HO+NAPH=0.1600D+... R5_4 = R5_4 * DTC c..Production of HO2 from HNO4 (r5,21 term ) R5_21 = 8.0000D-01 * RKI( 9 ) ! HNO4=0.8000D+... & + RKI( 72 ) ! HNO4=HO2+NO2 R5_21 = R5_21 * DTC c..Remaining HO2 production terms P5 = 2.0000D+00 * RXRAT( 11 ) ! HCHO=0.2000D+01*HO2+CO & + RXRAT( 12 ) ! ACD=HO2+MO2+CO & + RXRAT( 13 ) ! ALD=HO2+ETHP+CO & + 1.2200D+00 * RXRAT( 16 ) ! UALD=0.1220D+01*HO2+... & + RXRAT( 17 ) ! PINAL=HO2+HC10P+CO & + RXRAT( 18 ) ! LIMAL=HO2+HC10P+CO & + RXRAT( 21 ) ! HKET=HO2+ACO3+HCHO & + 6.6000D-01 * RXRAT( 22 ) ! MACR=0.6600D+00*HO2+... & + 2.0000D+00 * RXRAT( 26 ) ! GLY=0.2000D+01*HO2+0.2000D+... & + RXRAT( 27 ) ! MGLY=HO2+ACO3+CO & + 1.5000D+00 * RXRAT( 28 ) ! DCB1=0.1500D+01*HO2+... & + 1.5000D+00 * RXRAT( 29 ) ! DCB2=0.1500D+01*HO2+... & + RXRAT( 30 ) ! BALD=HO2+CHO+CO & + RXRAT( 31 ) ! OP1=HO2+HO+HCHO & + RXRAT( 32 ) ! OP2=HO2+HO+ALD & + RXRAT( 33 ) ! OPB=HO2+HO+ALD & + RXRAT( 34 ) ! OP3=HO2+HO+ALD & + RXRAT( 36 ) ! ONIT=HO2+NO2+0.2000D+... & + 1.5000D-01 * RXRAT( 132 ) ! ETE+O3=0.1500D+00*HO2+... & + 3.2000D-01 * RXRAT( 133 ) ! OLT+O3=0.3200D+00*HO2+... & + 7.0000D-02 * RXRAT( 134 ) ! OLI+O3=0.7000D-01*HO2+... & + 2.5000D-01 * RXRAT( 135 ) ! ISO+O3=0.2500D+00*HO2+... & + 4.0000D-02 * RXRAT( 138 ) ! LIMAL+O3=0.4000D-01*HO2+... & + 1.4000D-01 * RXRAT( 140 ) ! MACR+O3=0.1400D+00*HO2+... & + 1.1000D-01 * RXRAT( 141 ) ! MVK+O3=0.1100D+00*HO2+... & + 7.2000D-02 * RXRAT( 142 ) ! UALD+O3=0.7200D-01*HO2+... & + RXRAT( 143 ) ! DCB1+O3=HO2+0.5000D-01*HO+... & + RXRAT( 144 ) ! DCB2+O3=HO2+0.5000D-01*HO+... & + RXRAT( 145 ) ! DCB3+O3=HO2+0.5000D-01*HO+... & + RXRAT( 154 ) ! HCHO+NO3=HO2+CO+HNO3 & + RXRAT( 158 ) ! UALD+NO3=HO2+XO2+0.6680D+... & + RXRAT( 159 ) ! GLY+NO3=HO2+0.2000D+01*CO+HNO3 & + RXRAT( 173 ) ! MO2+NO=HO2+NO2+HCHO & + RXRAT( 174 ) ! ETHP+NO=HO2+NO2+ACD & + 6.6000D-01 * RXRAT( 175 ) ! HC3P+NO=0.6600D+00*HO2+... & + 2.0000D-01 * RXRAT( 176 ) ! HC5P+NO=0.2000D+00*HO2+... & + RXRAT( 177 ) ! ETEP+NO=HO2+NO2+0.1600D+... & + 7.8000D-01 * RXRAT( 178 ) ! OLTP+NO=0.7800D+00*HO2+... & + 8.3000D-01 * RXRAT( 179 ) ! OLIP+NO=0.8300D+00*HO2+... & + 9.9800D-01 * RXRAT( 180 ) ! BENP+NO=0.9980D+00*HO2+... & + 9.9800D-01 * RXRAT( 181 ) ! TOLP+NO=0.9980D+00*HO2+... & + 9.9800D-01 * RXRAT( 182 ) ! XYMP+NO=0.9980D+00*HO2+... & + 9.9800D-01 * RXRAT( 183 ) ! XYEP+NO=0.9980D+00*HO2+... & + 8.8000D-01 * RXRAT( 184 ) ! ISOP+NO=0.8800D+00*HO2+... & + 8.2000D-01 * RXRAT( 185 ) ! APIP1+NO=0.8200D+00*HO2+... & + 7.7000D-01 * RXRAT( 189 ) ! LIMP1+NO=0.7700D+00*HO2+... & + 9.5000D-01 * RXRAT( 193 ) ! PINALP+NO=0.9500D+00*HO2+... & + 9.4000D-01 * RXRAT( 194 ) ! LIMALP+NO=0.9400D+00*HO2+... & + 6.7000D-01 * RXRAT( 198 ) ! MEKP+NO=0.6700D+00*HO2+NO2+... & + 7.7000D-01 * RXRAT( 199 ) ! KETP+NO=0.7700D+00*HO2+... & + 5.0000D-01 * RXRAT( 201 ) ! MCP+NO=0.5000D+00*HO2+NO2+... & + 3.0000D-01 * RXRAT( 202 ) ! MVKP+NO=0.3000D+00*HO2+... & + RXRAT( 203 ) ! UALP+NO=HO2+NO2+0.6100D+... & + RXRAT( 206 ) ! ADDC+NO=HO2+NO2+0.3200D+... & + RXRAT( 208 ) ! ORAP+NO=HO2+GLY+NO2 & + RXRAT( 209 ) ! OLNN+NO=HO2+NO2+ONIT & + 7.4000D-01 * RXRAT( 255 ) ! MO2+MO2=0.7400D+00*HO2+... & + RXRAT( 256 ) ! ETHP+MO2=HO2+0.7500D+... & + 8.9400D-01 * RXRAT( 257 ) ! HC3P+MO2=0.8940D+00*HO2+... & + 8.4200D-01 * RXRAT( 258 ) ! HC5P+MO2=0.8420D+00*HO2+... & + RXRAT( 259 ) ! ETEP+MO2=HO2+0.1950D+... & + RXRAT( 260 ) ! OLTP+MO2=HO2+0.1500D+... & + RXRAT( 261 ) ! OLIP+MO2=HO2+0.7500D+... & + 1.3700D+00 * RXRAT( 262 ) ! BENP+MO2=0.1370D+01*HO2+... & + 1.2846D+00 * RXRAT( 263 ) ! TOLP+MO2=0.1285D+01*HO2+... & + 1.3218D+00 * RXRAT( 264 ) ! XYMP+MO2=0.1322D+01*HO2+... & + 1.2846D+00 * RXRAT( 265 ) ! XYEP+MO2=0.1285D+01*HO2+... & + RXRAT( 266 ) ! ISOP+MO2=HO2+0.1310D+... & + RXRAT( 267 ) ! APIP1+MO2=HO2+0.6800D+... & + RXRAT( 268 ) ! APIP2+MO2=HO2+0.7500D+... & + 3.7000D-01 * RXRAT( 269 ) ! APINP1+MO2=0.3700D+00*HO2+... & + 7.5000D-01 * RXRAT( 270 ) ! APINP2+MO2=0.7500D+00*HO2+... & + RXRAT( 271 ) ! LIMP1+MO2=HO2+HCHO+0.4200D+... & + RXRAT( 272 ) ! LIMP2+MO2=HO2+0.7500D+... & + 3.7000D-01 * RXRAT( 273 ) ! LIMNP1+MO2=0.3700D+00*HO2+... & + 7.5000D-01 * RXRAT( 274 ) ! LIMNP2+MO2=0.7500D+00*HO2+... & + 9.0000D-01 * RXRAT( 275 ) ! ACO3+MO2=0.9000D+00*HO2+... & + 9.0000D-01 * RXRAT( 276 ) ! RCO3+MO2=0.9000D+00*HO2+... & + 5.0000D-01 * RXRAT( 277 ) ! ACTP+MO2=0.5000D+00*HO2+... & + 8.3400D-01 * RXRAT( 278 ) ! MEKP+MO2=0.8340D+00*HO2+... & + RXRAT( 279 ) ! KETP+MO2=HO2+0.7500D+... & + 5.0000D-01 * RXRAT( 280 ) ! MACP+MO2=0.5000D+00*HO2+... & + RXRAT( 281 ) ! MCP+MO2=HO2+NO2+0.1500D+... & + RXRAT( 282 ) ! MVKP+MO2=HO2+0.1160D+... & + RXRAT( 283 ) ! UALP+MO2=HO2+0.3050D+00*CO+... & + RXRAT( 284 ) ! BALP+MO2=HO2+BAL1+HCHO & + RXRAT( 285 ) ! BAL1+MO2=HO2+BAL2+HCHO & + 2.0000D+00 * RXRAT( 286 ) ! ADDC+MO2=0.2000D+01*HO2+... & + RXRAT( 287 ) ! MCTP+MO2=HO2+MCTO+HCHO & + RXRAT( 288 ) ! ORAP+MO2=HO2+HCHO+GLY & + 2.0000D+00 * RXRAT( 289 ) ! OLNN+MO2=0.2000D+01*HO2+... & + 5.0000D-01 * RXRAT( 290 ) ! OLND+MO2=0.5000D+00*HO2+... & + RXRAT( 291 ) ! ADCN+MO2=HO2+0.7000D+... & + RXRAT( 292 ) ! XO2+MO2=HO2+HCHO & + 5.0000D-01 * RXRAT( 293 ) ! ETHP+ACO3=0.5000D+00*HO2+... & + 3.9400D-01 * RXRAT( 294 ) ! HC3P+ACO3=0.3940D+00*HO2+... & + 3.4200D-01 * RXRAT( 295 ) ! HC5P+ACO3=0.3420D+00*HO2+... & + 5.0000D-01 * RXRAT( 296 ) ! ETEP+ACO3=0.5000D+00*HO2+... & + 5.0000D-01 * RXRAT( 297 ) ! OLTP+ACO3=0.5000D+00*HO2+... & + 5.0000D-01 * RXRAT( 298 ) ! OLIP+ACO3=0.5000D+00*HO2+... & + RXRAT( 299 ) ! BENP+ACO3=HO2+0.7000D+... & + 9.1460D-01 * RXRAT( 300 ) ! TOLP+ACO3=0.9146D+00*HO2+... & + 9.5180D-01 * RXRAT( 301 ) ! XYMP+ACO3=0.9518D+00*HO2+... & + 9.1460D-01 * RXRAT( 302 ) ! XYEP+ACO3=0.9146D+00*HO2+... & + 5.0000D-01 * RXRAT( 303 ) ! ISOP+ACO3=0.5000D+00*HO2+... & + 6.3000D-01 * RXRAT( 304 ) ! APIP1+ACO3=0.6300D+00*HO2+... & + 6.3000D-01 * RXRAT( 308 ) ! LIMP1+ACO3=0.6300D+00*HO2+... & + 3.3000D-01 * RXRAT( 315 ) ! MEKP+ACO3=0.3300D+00*HO2+... & + 5.0000D-01 * RXRAT( 316 ) ! KETP+ACO3=0.5000D+00*HO2+... & + 5.0000D-01 * RXRAT( 318 ) ! MCP+ACO3=0.5000D+00*HO2+... & + 5.0000D-01 * RXRAT( 319 ) ! MVKP+ACO3=0.5000D+00*HO2+... & + 5.0000D-01 * RXRAT( 320 ) ! UALP+ACO3=0.5000D+00*HO2+... & + 2.0000D+00 * RXRAT( 323 ) ! ADDC+ACO3=0.2000D+01*HO2+... & + RXRAT( 324 ) ! MCTP+ACO3=HO2+MO2+MCTO & + RXRAT( 326 ) ! OLNN+ACO3=HO2+MO2+ONIT & + RXRAT( 328 ) ! ADCN+ACO3=HO2+MO2+0.7000D+... & + RXRAT( 331 ) ! MO2+NO3=HO2+HCHO+NO2 & + RXRAT( 332 ) ! ETHP+NO3=HO2+NO2+ACD & + 2.5400D-01 * RXRAT( 333 ) ! HC3P+NO3=0.2540D+00*HO2+... & + 4.8800D-01 * RXRAT( 334 ) ! HC5P+NO3=0.4880D+00*HO2+... & + RXRAT( 335 ) ! ETEP+NO3=HO2+NO2+0.1600D+... & + 7.9000D-01 * RXRAT( 336 ) ! OLTP+NO3=0.7900D+00*HO2+... & + 8.6000D-01 * RXRAT( 337 ) ! OLIP+NO3=0.8600D+00*HO2+... & + RXRAT( 338 ) ! BENP+NO3=HO2+NO2+0.0000D+... & + 9.1460D-01 * RXRAT( 339 ) ! TOLP+NO3=0.9146D+00*HO2+... & + 9.5180D-01 * RXRAT( 340 ) ! XYMP+NO3=0.9518D+00*HO2+... & + 9.1460D-01 * RXRAT( 341 ) ! XYEP+NO3=0.9146D+00*HO2+... & + RXRAT( 342 ) ! ISOP+NO3=HO2+NO2+0.7500D+... & + RXRAT( 343 ) ! APIP1+NO3=HO2+NO2+ALD+KET & + RXRAT( 344 ) ! LIMP1+NO3=HO2+NO2+0.3850D+... & + 6.7000D-01 * RXRAT( 348 ) ! MEKP+NO3=0.6700D+00*HO2+... & + RXRAT( 349 ) ! KETP+NO3=HO2+NO2+DCB1 & + RXRAT( 351 ) ! MCP+NO3=HO2+NO2+HCHO+HKET & + 3.0000D-01 * RXRAT( 352 ) ! MVKP+NO3=0.3000D+00*HO2+... & + RXRAT( 353 ) ! UALP+NO3=HO2+NO2+0.6100D+... & + RXRAT( 356 ) ! ADDC+NO3=HO2+NO2+0.3200D+... & + RXRAT( 358 ) ! ORAP+NO3=HO2+GLY+NO2 & + RXRAT( 359 ) ! OLNN+NO3=HO2+NO2+ONIT & + RXRAT( 362 ) ! OLNN+OLNN=HO2+0.2000D+01*ONIT & + 5.0000D-01 * RXRAT( 363 ) ! OLNN+OLND=0.5000D+00*HO2+... & + 4.8000D-01 * RXRAT( 368 ) ! APIP2+APIP1=0.4800D+00*HO2+... & + 4.8000D-01 * RXRAT( 369 ) ! APIP2+LIMP1=0.4800D+00*HO2+... & + 4.8000D-01 * RXRAT( 370 ) ! APIP2+ISOP=0.4800D+00*HO2+... & + 4.8000D-01 * RXRAT( 371 ) ! LIMP2+APIP1=0.4800D+00*HO2+... & + 4.8000D-01 * RXRAT( 372 ) ! LIMP2+LIMP1=0.4800D+00*HO2+... & + 4.8000D-01 * RXRAT( 373 ) ! LIMP2+ISOP=0.4800D+00*HO2+... & + 4.8000D-01 * RXRAT( 374 ) ! APINP2+APIP1=0.4800D+... & + 4.8000D-01 * RXRAT( 375 ) ! APINP2+LIMP1=0.4800D+... & + 4.8000D-01 * RXRAT( 376 ) ! APINP2+ISOP=0.4800D+00*HO2+... & + 4.8000D-01 * RXRAT( 377 ) ! LIMNP2+APIP1=0.4800D+... & + 4.8000D-01 * RXRAT( 378 ) ! LIMNP2+LIMP1=0.4800D+... & + 4.8000D-01 * RXRAT( 379 ) ! LIMNP2+ISOP=0.4800D+00*HO2+... & + 5.6000D-01 * RXRAT( 384 ) ! ACRO+O3=0.5600D+00*HO2+... & + 4.7700D-01 * RXRAT( 386 ) ! ACRO=0.4770D+00*HO2+... & + 9.6800D-01 * RXRAT( 388 ) ! BDE13P+NO=0.9680D+00*HO2+... & + RXRAT( 389 ) ! BDE13P+NO3=HO2+NO2+0.9250D+... & + 8.7000D-01 * RXRAT( 391 ) ! BDE13P+MO2=0.8700D+00*HO2+... & + 8.0000D-01 * RXRAT( 392 ) ! BDE13P+ACO3=0.8000D+00*HO2+... & + 4.2000D-01 * RXRAT( 393 ) ! BDE13+O3=0.4200D+00*HO2+... & + 7.5000D-01 * RXRAT( 396 ) ! FURANO2+NO=0.7500D+00*HO2+... & + RXRAT( 447 ) ! VROCP6ALKP2=HO2+VROCP3OXY2 & + RXRAT( 448 ) ! VROCP5ALKP2=HO2+VROCP2OXY2 & + RXRAT( 449 ) ! VROCP4ALKP2=HO2+VROCP1OXY1 & + RXRAT( 450 ) ! VROCP3ALKP2=HO2+VROCP0OXY2 & + RXRAT( 451 ) ! VROCP2ALKP2=HO2+VROCN1OXY1 & + RXRAT( 452 ) ! VROCP1ALKP2=HO2+VROCN2OXY2 & + RXRAT( 453 ) ! HC10P2=HO2+VROCP4OXY2 & + 8.6000D-01 * RXRAT( 454 ) ! VROCP6ALKP2+NO=0.8600D+... & + 8.6000D-01 * RXRAT( 455 ) ! VROCP5ALKP2+NO=0.8600D+... & + 8.6000D-01 * RXRAT( 456 ) ! VROCP4ALKP2+NO=0.8600D+... & + 8.6000D-01 * RXRAT( 457 ) ! VROCP3ALKP2+NO=0.8600D+... & + 8.6000D-01 * RXRAT( 458 ) ! VROCP2ALKP2+NO=0.8600D+... & + 8.6000D-01 * RXRAT( 459 ) ! VROCP1ALKP2+NO=0.8600D+... & + 8.8000D-01 * RXRAT( 460 ) ! HC10P2+NO=0.8800D+00*HO2+... & + RXRAT( 461 ) ! VROCP6ALKP2+NO3=HO2+... & + RXRAT( 462 ) ! VROCP5ALKP2+NO3=HO2+... & + RXRAT( 463 ) ! VROCP4ALKP2+NO3=HO2+... & + RXRAT( 464 ) ! VROCP3ALKP2+NO3=HO2+... & + RXRAT( 465 ) ! VROCP2ALKP2+NO3=HO2+... & + RXRAT( 466 ) ! VROCP1ALKP2+NO3=HO2+... & + RXRAT( 467 ) ! HC10P2+NO3=HO2+KET+NO2 & + 9.9800D-01 * RXRAT( 477 ) ! VROCP6AROP+NO=0.9980D+... & + 9.4050D-01 * RXRAT( 478 ) ! VROCP6AROP+NO3=0.9405D+... & + 1.3105D+00 * RXRAT( 479 ) ! VROCP6AROP+MO2=0.1310D+... & + 9.4050D-01 * RXRAT( 480 ) ! VROCP6AROP+ACO3=0.9405D+... & + 9.9800D-01 * RXRAT( 483 ) ! VROCP5AROP+NO=0.9980D+... & + 9.4050D-01 * RXRAT( 484 ) ! VROCP5AROP+NO3=0.9405D+... & + 1.3105D+00 * RXRAT( 485 ) ! VROCP5AROP+MO2=0.1310D+... & + 9.4050D-01 * RXRAT( 486 ) ! VROCP5AROP+ACO3=0.9405D+... & + 9.9800D-01 * RXRAT( 489 ) ! NAPHP+NO=0.9980D+00*HO2+... & + 9.4050D-01 * RXRAT( 490 ) ! NAPHP+NO3=0.9405D+00*HO2+... & + 1.3105D+00 * RXRAT( 491 ) ! NAPHP+MO2=0.1310D+01*HO2+... & + 9.4050D-01 * RXRAT( 492 ) ! NAPHP+ACO3=0.9405D+00*HO2+... P5 = YC0( HO2 ) + P5 * DTC c..Production of HONO from OH (r19,4 terms ) R19_4 = RKI( 54 ) * YC( NO ) * DTC ! OH+NO=HONO c..Remaining HONO production terms P19 = 5.0000D-01 * RXRAT( 414 ) ! NO2=0.5000D+00*HONO+... P19 = YC0( HONO ) + P19 * DTC c..Production of HNO4 from HO2 (r21,5 term ) R21_5 = RKI( 71 ) * YCP( NO2 ) * DTC ! HO2+NO2=HNO4 c..Remaining HNO4 production terms P21 = YC0( HNO4 ) c..HO loss terms not in R5_4 & R19_4 L4 = RKI( 49 ) * YC ( HO2 ) ! HO+HO2= & + RKI( 58 ) * YC ( HONO ) ! HO+HONO=NO2 & + RKI( 61 ) * YC ( NO2 ) ! HO+NO2=HNO3 & + RKI( 62 ) * YC ( HNO3 ) ! HO+HNO3=NO3 & + RKI( 73 ) * YC ( HNO4 ) ! HO+HNO4=NO2 & + RKI( 76 ) ! HO=MO2 & + RKI( 77 ) * YC ( ETH ) ! HO+ETH=ETHP & + RKI( 78 ) * YC ( HC3 ) ! HO+HC3=HC3P+... & + RKI( 79 ) * YC ( HC5 ) ! HO+HC5=HC5P+... & + RKI( 80 ) * YC ( ETE ) ! HO+ETE=ETEP & + RKI( 81 ) * YC ( OLT ) ! HO+OLT=OLTP & + RKI( 82 ) * YC ( OLI ) ! HO+OLI=OLIP & + 4.7000D-01 * RKI( 84 ) * YC ( BEN ) ! HO+BEN=0.5300D+... & + 8.2000D-01 * RKI( 85 ) * YC ( TOL ) ! HO+TOL=0.1800D+... & + 8.3000D-01 * RKI( 86 ) * YC ( XYM ) ! HO+XYM=0.1700D+... & + 8.2000D-01 * RKI( 87 ) * YC ( XYE ) ! HO+XYE=0.1800D+... & + RKI( 88 ) * YC ( ISO ) ! HO+ISO=ISOP & + RKI( 89 ) * YC ( API ) ! HO+API=0.9750D+... & + RKI( 90 ) * YC ( LIM ) ! HO+LIM=0.9450D+... & + RKI( 91 ) * YC ( PINAL ) ! HO+PINAL=0.2300D+... & + RKI( 92 ) * YC ( LIMAL ) ! HO+LIMAL=0.7000D+... & + RKI( 94 ) * YC ( ACD ) ! HO+ACD=ACO3 & + RKI( 95 ) * YC ( ALD ) ! HO+ALD=RCO3 & + RKI( 96 ) * YC ( ACT ) ! HO+ACT=ACTP & + RKI( 97 ) * YC ( MEK ) ! HO+MEK=MEKP & + RKI( 98 ) * YC ( KET ) ! HO+KET=KETP & + RKI( 100 ) * YC ( MACR ) ! HO+MACR=0.5700D+... & + RKI( 101 ) * YC ( MVK ) ! HO+MVK=MVKP & + RKI( 102 ) * YC ( UALD ) ! HO+UALD=0.3130D+... & + RKI( 104 ) * YC ( MGLY ) ! HO+MGLY=ACO3+CO & + 4.8000D-01 * RKI( 105 ) * YC ( DCB1 ) ! HO+DCB1=0.5200D+... & + 4.8000D-01 * RKI( 106 ) * YC ( DCB2 ) ! HO+DCB2=0.5200D+... & + 4.4000D-01 * RKI( 107 ) * YC ( DCB3 ) ! HO+DCB3=0.5600D+... & + RKI( 108 ) * YC ( BALD ) ! HO+BALD=BALP & + 3.8100D-01 * RKI( 109 ) * YC ( PHEN ) ! HO+PHEN=0.6190D+... & + 4.1600D-01 * RKI( 110 ) * YC ( CSL ) ! HO+CSL=0.5840D+... & + RKI( 111 ) * YC ( MCT ) ! HO+MCT=MCTO & + 6.5000D-01 * RKI( 116 ) * YC ( OP1 ) ! HO+OP1=0.3500D+... & + 9.9000D-01 * RKI( 117 ) * YC ( OP2 ) ! HO+OP2=0.1000D-... & + 9.9000D-01 * RKI( 118 ) * YC ( OPB ) ! HO+OPB=0.1000D-... & + 9.9000D-01 * RKI( 119 ) * YC ( OP3 ) ! HO+OP3=0.1000D-... & + RKI( 121 ) * YC ( MAHP ) ! HO+MAHP=MACP & + RKI( 123 ) * YC ( ORA2 ) ! HO+ORA2=0.6400D+... & + 6.5000D-01 * RKI( 124 ) * YC ( PAA ) ! HO+PAA=0.3500D+... & + RKI( 125 ) * YC ( PAN ) ! HO+PAN=XO2+NO3+HCHO & + RKI( 126 ) * YC ( PPN ) ! HO+PPN=XO2+NO3+HCHO & + RKI( 127 ) * YC ( MPAN ) ! HO+MPAN=NO2+HKET & + RKI( 128 ) * YC ( ONIT ) ! HO+ONIT=HC3P+NO2 & + RKI( 129 ) * YC ( TRPN ) ! HO+TRPN=HOM & + RKI( 130 ) * YC ( NALD ) ! HO+NALD=NO2+XO2+HKET & + RKI( 131 ) * YC ( ISON ) ! HO+ISON=NALD+... & + RKI( 381 ) * YC ( VROCIOXY ) ! HO+VROCIOXY=... & + RKI( 382 ) * YC ( SLOWROC ) ! HO+SLOWROC=ETHP+... & + RKI( 383 ) * YC ( ACRO ) ! HO+ACRO=0.5700D+... & + 6.6700D-01 * RKI( 387 ) * YC ( BDE13 ) ! HO+BDE13=0.3330D+... & + 5.1000D-01 * RKI( 395 ) * YC ( FURAN ) ! HO+FURAN=0.4900D+... & + 3.4000D-01 * RKI( 398 ) * YC ( FURANONE ) ! HO+FURANONE=... & + RKI( 407 ) * YC ( SESQ ) ! HO+SESQ=SESQRO2 & + RKI( 419 ) * YC ( VROCP6ALK ) ! HO+VROCP6ALK=... & + RKI( 420 ) * YC ( VROCP5ALK ) ! HO+VROCP5ALK=... & + RKI( 421 ) * YC ( VROCP4ALK ) ! HO+VROCP4ALK=... & + RKI( 422 ) * YC ( VROCP3ALK ) ! HO+VROCP3ALK=... & + RKI( 423 ) * YC ( VROCP2ALK ) ! HO+VROCP2ALK=... & + RKI( 424 ) * YC ( VROCP1ALK ) ! HO+VROCP1ALK=... & + RKI( 425 ) * YC ( HC10 ) ! HO+HC10=HC10P & + 8.4000D-01 * RKI( 475 ) * YC ( VROCP6ARO ) ! HO+VROCP6ARO=... & + 8.4000D-01 * RKI( 481 ) * YC ( VROCP5ARO ) ! HO+VROCP5ARO=... & + 8.4000D-01 * RKI( 487 ) * YC ( NAPH ) ! HO+NAPH=0.1600D+... L4 = 1.0D0 + L4 * DTC + R5_4 + R19_4 c..HO2 loss terms not included in R4_5 & R21_5 (except for HO2+HO2 ) L5 = RKI( 49 ) * YC ( HO ) ! HO2+HO= & + RKI( 56 ) * YC ( NO ) ! HO2+NO=HNO3 & + 3.0000D-01 * RKI( 64 ) * YC ( NO3 ) ! HO2+NO3=0.7000D+... & + RKI( 216 ) * YC ( MO2 ) ! HO2+MO2=OP1 & + RKI( 217 ) * YC ( ETHP ) ! HO2+ETHP=OP2 & + RKI( 218 ) * YC ( HC3P ) ! HO2+HC3P=OP2 & + RKI( 219 ) * YC ( HC5P ) ! HO2+HC5P=OP2 & + RKI( 220 ) * YC ( ETEP ) ! HO2+ETEP=OP2 & + RKI( 221 ) * YC ( OLTP ) ! HO2+OLTP=OP2 & + RKI( 222 ) * YC ( OLIP ) ! HO2+OLIP=OP2 & + RKI( 223 ) * YC ( BENP ) ! HO2+BENP=0.6021D+... & + RKI( 224 ) * YC ( TOLP ) ! HO2+TOLP=0.7195D+... & + RKI( 225 ) * YC ( XYMP ) ! HO2+XYMP=0.4820D-... & + RKI( 226 ) * YC ( XYEP ) ! HO2+XYEP=0.8540D-... & + RKI( 227 ) * YC ( ISOP ) ! HO2+ISOP=ISHP & + RKI( 228 ) * YC ( APIP1 ) ! HO2+APIP1=OPB & + RKI( 229 ) * YC ( APIP2 ) ! HO2+APIP2=HOM & + RKI( 230 ) * YC ( APINP1 ) ! HO2+APINP1=TRPN & + RKI( 231 ) * YC ( APINP2 ) ! HO2+APINP2=HOM & + RKI( 232 ) * YC ( LIMP1 ) ! HO2+LIMP1=OPB & + RKI( 233 ) * YC ( LIMP2 ) ! HO2+LIMP2=HOM & + RKI( 234 ) * YC ( LIMNP1 ) ! HO2+LIMNP1=TRPN & + RKI( 235 ) * YC ( LIMNP2 ) ! HO2+LIMNP2=HOM & + RKI( 236 ) * YC ( PINALP ) ! HO2+PINALP=OPB & + RKI( 237 ) * YC ( LIMALP ) ! HO2+LIMALP=OPB & + 5.6000D-01 * RKI( 238 ) * YC ( ACO3 ) ! HO2+ACO3=0.4400D+... & + 5.6000D-01 * RKI( 239 ) * YC ( RCO3 ) ! HO2+RCO3=0.4400D+... & + 8.5000D-01 * RKI( 240 ) * YC ( ACTP ) ! HO2+ACTP=0.1500D+... & + RKI( 241 ) * YC ( MEKP ) ! HO2+MEKP=OP2 & + RKI( 242 ) * YC ( KETP ) ! HO2+KETP=OP2 & + RKI( 243 ) * YC ( MACP ) ! HO2+MACP=MAHP & + RKI( 244 ) * YC ( MCP ) ! HO2+MCP=MAHP & + RKI( 245 ) * YC ( MVKP ) ! HO2+MVKP=OP2 & + RKI( 246 ) * YC ( UALP ) ! HO2+UALP=OP2 & + RKI( 247 ) * YC ( ADDC ) ! HO2+ADDC=OP2 & + RKI( 248 ) * YC ( CHO ) ! HO2+CHO=CSL & + RKI( 249 ) * YC ( MCTP ) ! HO2+MCTP=OP2 & + RKI( 250 ) * YC ( ORAP ) ! HO2+ORAP=OP2 & + RKI( 251 ) * YC ( OLNN ) ! HO2+OLNN=ONIT & + RKI( 252 ) * YC ( OLND ) ! HO2+OLND=ONIT & + RKI( 253 ) * YC ( ADCN ) ! HO2+ADCN=OP2 & + RKI( 254 ) * YC ( XO2 ) ! HO2+XO2=OP2 & + RKI( 390 ) * YC ( BDE13P ) ! HO2+BDE13P=OP2 & + 2.8000D-01 * RKI( 397 ) * YC ( FURANO2 ) ! HO2+FURANO2=... & + RKI( 403 ) * YC ( SESQNRO2 ) ! HO2+SESQNRO2=... & + RKI( 408 ) * YC ( SESQRO2 ) ! HO2+SESQRO2=... & + RKI( 440 ) * YC ( VROCP6ALKP ) ! HO2+VROCP6ALKP=... & + RKI( 441 ) * YC ( VROCP5ALKP ) ! HO2+VROCP5ALKP=... & + RKI( 442 ) * YC ( VROCP4ALKP ) ! HO2+VROCP4ALKP=... & + RKI( 443 ) * YC ( VROCP3ALKP ) ! HO2+VROCP3ALKP=... & + RKI( 444 ) * YC ( VROCP2ALKP ) ! HO2+VROCP2ALKP=... & + RKI( 445 ) * YC ( VROCP1ALKP ) ! HO2+VROCP1ALKP=... & + RKI( 446 ) * YC ( HC10P ) ! HO2+HC10P=OP2 & + RKI( 468 ) * YC ( VROCP6ALKP2 ) ! HO2+VROCP6ALKP2=... & + RKI( 469 ) * YC ( VROCP5ALKP2 ) ! HO2+VROCP5ALKP2=... & + RKI( 470 ) * YC ( VROCP4ALKP2 ) ! HO2+VROCP4ALKP2=... & + RKI( 471 ) * YC ( VROCP3ALKP2 ) ! HO2+VROCP3ALKP2=... & + RKI( 472 ) * YC ( VROCP2ALKP2 ) ! HO2+VROCP2ALKP2=... & + RKI( 473 ) * YC ( VROCP1ALKP2 ) ! HO2+VROCP1ALKP2=... & + RKI( 474 ) * YC ( HC10P2 ) ! HO2+HC10P2=... & + RKI( 476 ) * YC ( VROCP6AROP ) ! HO2+VROCP6AROP=... & + RKI( 482 ) * YC ( VROCP5AROP ) ! HO2+VROCP5AROP=... & + RKI( 488 ) * YC ( NAPHP ) ! HO2+NAPHP=... L5 = 1.0D0 + L5 * DTC + R4_5 + R21_5 c..HONO loss terms not included in R4_19 L19 = RKI( 58 ) * YC ( HO ) ! HONO+HO=NO2 L19 = 1.0D0 + L19 * DTC + R4_19 c..HNO4 loss terms not included in R5_21 L21 = 2.0000D-01 * RKI( 9 ) ! HNO4=0.8000D+... & + RKI( 73 ) * YC ( HO ) ! HNO4+HO=NO2 L21 = 1.0D0 + L21 * DTC + R5_21 ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Solution section ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c..compute terms used to calculate a,b & c L21_INV = 1.0D0 / L21 T1 = 1.0D0 / ( L4 * L19 - R4_19 * R19_4 ) T2 = R5_4 * T1 T3 = R5_21 * L21_INV c..solve quadratic equation for HO2 A = 2.0D0 * ( RKI( 50 ) + RKI( 51 ) ) * DTC B = L5 - T3 * R21_5 - T2 * R4_5 * L19 C = P5 + T3 * P21 + T2 * ( P4 * L19 + P19 * R4_19 ) Q = -0.5D0 * ( B + SIGN( 1.0D0, B ) * SQRT( B * B + 4.0D0 * A * C ) ) YCP( HO2 ) = MAX( Q / A , -C / Q ) c..compute remaining species concentrations YCP( HO ) = ( ( P4 + R4_5 * YCP( HO2 ) ) * L19 + R4_19 * P19 ) * T1 YCP( HNO4 ) = ( P21 + R21_5 * YCP( HO2 ) ) * L21_INV YCP( HONO ) = ( P19 + R19_4 * YCP( HO ) ) / L19 RETURN END ================================================ FILE: CCTM/src/gas/ebi_cracmm1_aq/hrg3.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE HRG3( DTC ) C********************************************************************** C C FUNCTION: To solve for the concentration of C2O3 and PAN C C PRECONDITIONS: For the CRACMM1_AQ mechanism C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by EBI solver program, Jun 14, 2022 C C 18 Jul 14 B.Hutzell: revised to use real(8) variables C********************************************************************** USE HRDATA IMPLICIT NONE C..INCLUDES: NONE C..ARGUMENTS: REAL( 8 ), INTENT( IN ) :: DTC ! Time step C..PARAMETERS: NONE C..EXTERNAL FUNCTIONS: NONE C..SAVED LOCAL VARIABLES: ! CHARACTER( 16 ), SAVE :: PNAME = 'HRG3' ! Program name C..SCRATCH LOCAL VARIABLES: REAL( 8 ) :: A, B, C, Q ! Quadratic equation terms REAL( 8 ) :: CMN ! Temp scalar REAL( 8 ) :: L8 ! Loss of CCO_O2 REAL( 8 ) :: L9 ! Loss of PAN REAL( 8 ) :: P8 ! Production of CCO_O2 REAL( 8 ) :: K8_8 ! Kaco3+aco3 * delta t REAL( 8 ) :: R8_9 ! Kpan-->aco3 * delta t REAL( 8 ) :: R9_8 ! Kaco3+no2-->pan * [NO2] * delta t C********************************************************************** c..Production of ACO3 (except from PAN ) P8 = RXRAT( 14 ) ! ACT=ACO3+MO2 & + 7.8400D-01 * RXRAT( 16 ) ! UALD=0.7840D+00*ACO3+... & + 9.0000D-01 * RXRAT( 19 ) ! MEK=0.9000D+00*ACO3+ETHP+... & + 5.0000D-01 * RXRAT( 20 ) ! KET=0.5000D+00*ACO3+... & + RXRAT( 21 ) ! HKET=ACO3+HO2+HCHO & + 6.7000D-01 * RXRAT( 22 ) ! MACR=0.6700D+00*ACO3+... & + RXRAT( 27 ) ! MGLY=ACO3+HO2+CO & + 2.5000D-01 * RXRAT( 28 ) ! DCB1=0.2500D+00*ACO3+... & + 2.5000D-01 * RXRAT( 29 ) ! DCB2=0.2500D+00*ACO3+... & + RXRAT( 94 ) ! ACD+HO=ACO3 & + 3.1300D-01 * RXRAT( 102 ) ! UALD+HO=0.3130D+00*ACO3+... & + RXRAT( 104 ) ! MGLY+HO=ACO3+CO & + 6.5000D-01 * RXRAT( 124 ) ! PAA+HO=0.6500D+00*ACO3+... & + 9.0000D-02 * RXRAT( 134 ) ! OLI+O3=0.9000D-01*ACO3+... & + 1.0000D-01 * RXRAT( 135 ) ! ISO+O3=0.1000D+00*ACO3+... & + 1.0000D-01 * RXRAT( 140 ) ! MACR+O3=0.1000D+00*ACO3+... & + 2.8000D-01 * RXRAT( 141 ) ! MVK+O3=0.2800D+00*ACO3+... & + 2.0000D-03 * RXRAT( 142 ) ! UALD+O3=0.2000D-02*ACO3+... & + RXRAT( 155 ) ! ACD+NO3=ACO3+HNO3 & + RXRAT( 160 ) ! MGLY+NO3=ACO3+CO+HNO3 & + RXRAT( 197 ) ! ACTP+NO=ACO3+NO2+HCHO & + 2.3000D-01 * RXRAT( 199 ) ! KETP+NO=0.2300D+00*ACO3+... & + 3.5000D-01 * RXRAT( 200 ) ! MACP+NO=0.3500D+00*ACO3+... & + 7.0000D-01 * RXRAT( 202 ) ! MVKP+NO=0.7000D+00*ACO3+... & + 1.5000D-01 * RXRAT( 240 ) ! ACTP+HO2=0.1500D+00*ACO3+... & + 5.0000D-01 * RXRAT( 277 ) ! ACTP+MO2=0.5000D+00*ACO3+... & + 2.6900D-01 * RXRAT( 280 ) ! MACP+MO2=0.2690D+00*ACO3+... & + 1.1600D+00 * RXRAT( 282 ) ! MVKP+MO2=0.1160D+01*ACO3+... & + 1.6000D-01 * RXRAT( 319 ) ! MVKP+ACO3=0.1160D+01*ACO3+... & + RXRAT( 347 ) ! ACTP+NO3=ACO3+NO2+HCHO & + 5.3800D-01 * RXRAT( 350 ) ! MACP+NO3=0.5380D+00*ACO3+... & + 7.0000D-01 * RXRAT( 352 ) ! MVKP+NO3=0.7000D+00*ACO3+... & + 3.5400D-01 * RXRAT( 386 ) ! ACRO=0.3540D+00*ACO3+... c..Loss frequency of ACO3 ( not including ACO3 + ACO3 ) L8 = RKI( 167 ) * YC ( NO2 ) ! ACO3+NO2=PAN & + RKI( 195 ) * YC ( NO ) ! ACO3+NO=MO2+NO2 & + RKI( 238 ) * YC ( HO2 ) ! ACO3+HO2=0.4400D+... & + RKI( 275 ) * YC ( MO2 ) ! ACO3+MO2=0.9000D+... & + RKI( 293 ) * YC ( ETHP ) ! ACO3+ETHP=... & + RKI( 294 ) * YC ( HC3P ) ! ACO3+HC3P=... & + RKI( 295 ) * YC ( HC5P ) ! ACO3+HC5P=... & + RKI( 296 ) * YC ( ETEP ) ! ACO3+ETEP=... & + RKI( 297 ) * YC ( OLTP ) ! ACO3+OLTP=... & + RKI( 298 ) * YC ( OLIP ) ! ACO3+OLIP=... & + RKI( 299 ) * YC ( BENP ) ! ACO3+BENP=... & + RKI( 300 ) * YC ( TOLP ) ! ACO3+TOLP=... & + RKI( 301 ) * YC ( XYMP ) ! ACO3+XYMP=... & + RKI( 302 ) * YC ( XYEP ) ! ACO3+XYEP=... & + RKI( 303 ) * YC ( ISOP ) ! ACO3+ISOP=... & + RKI( 304 ) * YC ( APIP1 ) ! ACO3+APIP1=... & + RKI( 305 ) * YC ( APIP2 ) ! ACO3+APIP2=... & + RKI( 306 ) * YC ( APINP1 ) ! ACO3+APINP1=... & + RKI( 307 ) * YC ( APINP2 ) ! ACO3+APINP2=... & + RKI( 308 ) * YC ( LIMP1 ) ! ACO3+LIMP1=... & + RKI( 309 ) * YC ( LIMP2 ) ! ACO3+LIMP2=... & + RKI( 310 ) * YC ( LIMNP1 ) ! ACO3+LIMNP1=... & + RKI( 311 ) * YC ( LIMNP2 ) ! ACO3+LIMNP2=... & + RKI( 313 ) * YC ( RCO3 ) ! ACO3+RCO3=MO2+ETHP & + 5.0000D-01 * RKI( 314 ) * YC ( ACTP ) ! ACO3+ACTP=... & + RKI( 315 ) * YC ( MEKP ) ! ACO3+MEKP=... & + RKI( 316 ) * YC ( KETP ) ! ACO3+KETP=... & + 7.3100D-01 * RKI( 317 ) * YC ( MACP ) ! ACO3+MACP=... & + RKI( 318 ) * YC ( MCP ) ! ACO3+MCP=NO2+... & + RKI( 320 ) * YC ( UALP ) ! ACO3+UALP=... & + RKI( 321 ) * YC ( BALP ) ! ACO3+BALP=MO2+BAL1 & + RKI( 322 ) * YC ( BAL1 ) ! ACO3+BAL1=MO2+BAL2 & + RKI( 323 ) * YC ( ADDC ) ! ACO3+ADDC=... & + RKI( 324 ) * YC ( MCTP ) ! ACO3+MCTP=HO2+... & + RKI( 325 ) * YC ( ORAP ) ! ACO3+ORAP=MO2+GLY & + RKI( 326 ) * YC ( OLNN ) ! ACO3+OLNN=HO2+... & + RKI( 327 ) * YC ( OLND ) ! ACO3+OLND=... & + RKI( 328 ) * YC ( ADCN ) ! ACO3+ADCN=HO2+... & + RKI( 329 ) * YC ( XO2 ) ! ACO3+XO2=MO2 & + RKI( 345 ) * YC ( NO3 ) ! ACO3+NO3=MO2+NO2 & + RKI( 392 ) * YC ( BDE13P ) ! ACO3+BDE13P=... & + RKI( 480 ) * YC ( VROCP6AROP ) ! ACO3+VROCP6AROP=... & + RKI( 486 ) * YC ( VROCP5AROP ) ! ACO3+VROCP5AROP=... & + RKI( 492 ) * YC ( NAPHP ) ! ACO3+NAPHP=... c..Loss frequency of PAN L9 = RKI( 37 ) ! PAN=ACO3+NO2 & + RKI( 38 ) ! PAN=MO2+NO3 & + RKI( 125 ) * YC ( HO ) ! PAN+HO=XO2+NO3+HCHO & + RKI( 168 ) ! PAN=ACO3+NO2 c..K8_8, R8_9, and R9_8 terms K8_8 = RKI( 312 ) * DTC R8_9 = ( RKI( 37 ) & + RKI( 168 ) ) * DTC R9_8 = ( RKI( 167 ) * YC( NO2 ) ) * DTC c..Solution of quadratic equation to get ACO3 & PAN CMN = 1.0 + L9 * DTC A = 2.0D0 * K8_8 * CMN B = CMN * ( 1.0D0 + L8 * DTC ) - R8_9 * R9_8 C = CMN * ( YC0( ACO3 ) + P8 * DTC ) + R8_9 * YC0( PAN ) Q = -0.5D0 * ( B + SIGN( 1.0D0, B ) * SQRT( B * B + 4.0D0 * A * C ) ) YCP( ACO3 ) = MAX( Q / A , -C / Q ) YCP( PAN ) = ( YC0( PAN ) + R9_8 * YCP( ACO3 ) ) / CMN RETURN END ================================================ FILE: CCTM/src/gas/ebi_cracmm1_aq/hrg4.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE HRG4( DTC ) C********************************************************************** C C FUNCTION: To solve for the concentration of NO3 and N2O5 C C PRECONDITIONS: For the CRACMM1_AQ mechanism C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by EBI solver program, Jun 14, 2022 C C 18 Jul 14 B.Hutzell: revised to use real(8) variables C********************************************************************** USE HRDATA IMPLICIT NONE C..INCLUDES: NONE C..ARGUMENTS: REAL( 8 ), INTENT( IN ) :: DTC ! Time step C..PARAMETERS: NONE C..EXTERNAL FUNCTIONS: NONE C..SAVED LOCAL VARIABLES: ! CHARACTER( 16 ), SAVE :: PNAME = 'HRG4' ! Program name C..SCRATCH LOCAL VARIABLES: REAL( 8 ) :: A, B, C, Q ! Quadratic equation terms REAL( 8 ) :: CMN ! Temp scalar REAL( 8 ) :: L15 ! Loss of NO3 REAL( 8 ) :: L16 ! Loss of N2O5 REAL( 8 ) :: P15 ! Production of NO3 REAL( 8 ) :: K15_15 ! Kno3+no3 * delta t REAL( 8 ) :: R15_16 ! Kn2o5-->no3 * delta t REAL( 8 ) :: R16_15 ! Kno3+no2-->n2o5[NO2] * delta t C********************************************************************** c..Production of NO3 (except from N2O5 ) P15 = 2.0000D-01 * RKI( 9 ) * YC ( HNO4 ) ! HNO4=0.2000D+00*NO3+... & + RKI( 38 ) * YC ( PAN ) ! PAN=NO3+MO2 & + RKI( 42 ) * YCP( O3 ) * YCP( NO2 ) ! O3+NO2=NO3 & + RKI( 60 ) * YCP( NO2 ) * YCP( O3P ) ! NO2+O3P=NO3 & + RKI( 62 ) * YC ( HNO3 ) * YCP( HO ) ! HNO3+HO=NO3 & + RKI( 125 ) * YC ( PAN ) * YCP( HO ) ! PAN+HO=NO3+XO2+HCHO & + RKI( 126 ) * YC ( PPN ) * YCP( HO ) ! PPN+HO=NO3+XO2+HCHO c..Loss frequency of NO3 ( except NO3 + NO3 if present ) L15 = RKI( 5 ) ! NO3=NO & + RKI( 6 ) ! NO3=O3P+NO2 & + RKI( 63 ) * YCP( HO ) ! NO3+HO=HO2+NO2 & + RKI( 64 ) * YCP( HO2 ) ! NO3+HO2=0.7000D+... & + RKI( 65 ) * YCP( NO ) ! NO3+NO=0.2000D+... & + RKI( 66 ) * YCP( NO2 ) ! NO3+NO2=NO+NO2 & + RKI( 68 ) * YCP( NO2 ) ! NO3+NO2=N2O5 & + RKI( 147 ) * YC ( ETE ) ! NO3+ETE=0.8000D+... & + RKI( 148 ) * YC ( OLT ) ! NO3+OLT=0.4300D+... & + RKI( 149 ) * YC ( OLI ) ! NO3+OLI=0.1100D+... & + RKI( 150 ) * YC ( ISO ) ! NO3+ISO=ISON & + RKI( 151 ) * YC ( API ) ! NO3+API=0.9750D+... & + RKI( 152 ) * YC ( LIM ) ! NO3+LIM=0.9450D+... & + RKI( 153 ) * YC ( TRPN ) ! NO3+TRPN=HOM & + RKI( 154 ) * YC ( HCHO ) ! NO3+HCHO=HO2+CO+HNO3 & + RKI( 155 ) * YC ( ACD ) ! NO3+ACD=ACO3+HNO3 & + RKI( 156 ) * YC ( ALD ) ! NO3+ALD=RCO3+HNO3 & + RKI( 157 ) * YC ( MACR ) ! NO3+MACR=0.6800D+... & + RKI( 158 ) * YC ( UALD ) ! NO3+UALD=HO2+XO2+... & + RKI( 159 ) * YC ( GLY ) ! NO3+GLY=HO2+... & + RKI( 160 ) * YC ( MGLY ) ! NO3+MGLY=ACO3+CO+... & + RKI( 161 ) * YC ( PHEN ) ! NO3+PHEN=0.1520D+... & + RKI( 162 ) * YC ( CSL ) ! NO3+CSL=0.2000D+... & + RKI( 163 ) * YC ( MCT ) ! NO3+MCT=MCTO+HNO3 & + RKI( 164 ) * YC ( MPAN ) ! NO3+MPAN=MACP+NO2 & + RKI( 331 ) * YC ( MO2 ) ! NO3+MO2=HO2+HCHO+NO2 & + RKI( 332 ) * YC ( ETHP ) ! NO3+ETHP=HO2+NO2+ACD & + RKI( 333 ) * YC ( HC3P ) ! NO3+HC3P=0.2540D+... & + RKI( 334 ) * YC ( HC5P ) ! NO3+HC5P=0.4880D+... & + RKI( 335 ) * YC ( ETEP ) ! NO3+ETEP=HO2+NO2+... & + RKI( 336 ) * YC ( OLTP ) ! NO3+OLTP=0.4700D+... & + RKI( 337 ) * YC ( OLIP ) ! NO3+OLIP=0.8600D+... & + RKI( 338 ) * YC ( BENP ) ! NO3+BENP=NO2+HO2+... & + RKI( 339 ) * YC ( TOLP ) ! NO3+TOLP=NO2+... & + RKI( 340 ) * YC ( XYMP ) ! NO3+XYMP=NO2+... & + RKI( 341 ) * YC ( XYEP ) ! NO3+XYEP=NO2+... & + RKI( 342 ) * YC ( ISOP ) ! NO3+ISOP=HO2+NO2+... & + RKI( 343 ) * YC ( APIP1 ) ! NO3+APIP1=HO2+... & + RKI( 344 ) * YC ( LIMP1 ) ! NO3+LIMP1=HO2+... & + RKI( 345 ) * YC ( ACO3 ) ! NO3+ACO3=MO2+NO2 & + RKI( 346 ) * YC ( RCO3 ) ! NO3+RCO3=ETHP+NO2 & + RKI( 347 ) * YC ( ACTP ) ! NO3+ACTP=ACO3+... & + RKI( 348 ) * YC ( MEKP ) ! NO3+MEKP=0.6700D+... & + RKI( 349 ) * YC ( KETP ) ! NO3+KETP=HO2+NO2+... & + RKI( 350 ) * YC ( MACP ) ! NO3+MACP=HCHO+... & + RKI( 351 ) * YC ( MCP ) ! NO3+MCP=NO2+HO2+... & + RKI( 352 ) * YC ( MVKP ) ! NO3+MVKP=0.3000D+... & + RKI( 353 ) * YC ( UALP ) ! NO3+UALP=HO2+NO2+... & + RKI( 354 ) * YC ( BALP ) ! NO3+BALP=BAL1+NO2 & + RKI( 355 ) * YC ( BAL1 ) ! NO3+BAL1=BAL2+NO2 & + RKI( 356 ) * YC ( ADDC ) ! NO3+ADDC=HO2+NO2+... & + RKI( 357 ) * YC ( MCTP ) ! NO3+MCTP=NO2+MCTO & + RKI( 358 ) * YC ( ORAP ) ! NO3+ORAP=NO2+GLY+HO2 & + RKI( 359 ) * YC ( OLNN ) ! NO3+OLNN=HO2+NO2+... & + RKI( 360 ) * YC ( OLND ) ! NO3+OLND=0.2000D+... & + RKI( 361 ) * YC ( ADCN ) ! NO3+ADCN=0.2000D+... & + RKI( 365 ) * YC ( XO2 ) ! NO3+XO2=NO2 & + RKI( 385 ) * YC ( ACRO ) ! NO3+ACRO=0.6800D+... & + RKI( 389 ) * YC ( BDE13P ) ! NO3+BDE13P=HO2+... & + RKI( 394 ) * YC ( BDE13 ) ! NO3+BDE13=... & + RKI( 400 ) * YC ( FURAN ) ! NO3+FURAN=NO2+... & + RKI( 402 ) * YC ( SESQ ) ! NO3+SESQ=SESQNRO2 & + RKI( 405 ) * YC ( SESQNRO2 ) ! NO3+SESQNRO2=... & + RKI( 409 ) * YC ( SESQRO2 ) ! NO3+SESQRO2=... & + RKI( 433 ) * YC ( VROCP6ALKP ) ! NO3+VROCP6ALKP=... & + RKI( 434 ) * YC ( VROCP5ALKP ) ! NO3+VROCP5ALKP=... & + RKI( 435 ) * YC ( VROCP4ALKP ) ! NO3+VROCP4ALKP=... & + RKI( 436 ) * YC ( VROCP3ALKP ) ! NO3+VROCP3ALKP=... & + RKI( 437 ) * YC ( VROCP2ALKP ) ! NO3+VROCP2ALKP=... & + RKI( 438 ) * YC ( VROCP1ALKP ) ! NO3+VROCP1ALKP=... & + RKI( 439 ) * YC ( HC10P ) ! NO3+HC10P=HC10P2+NO2 & + RKI( 461 ) * YC ( VROCP6ALKP2 ) ! NO3+VROCP6ALKP2=... & + RKI( 462 ) * YC ( VROCP5ALKP2 ) ! NO3+VROCP5ALKP2=... & + RKI( 463 ) * YC ( VROCP4ALKP2 ) ! NO3+VROCP4ALKP2=... & + RKI( 464 ) * YC ( VROCP3ALKP2 ) ! NO3+VROCP3ALKP2=... & + RKI( 465 ) * YC ( VROCP2ALKP2 ) ! NO3+VROCP2ALKP2=... & + RKI( 466 ) * YC ( VROCP1ALKP2 ) ! NO3+VROCP1ALKP2=... & + RKI( 467 ) * YC ( HC10P2 ) ! NO3+HC10P2=NO2+... & + RKI( 478 ) * YC ( VROCP6AROP ) ! NO3+VROCP6AROP=... & + RKI( 484 ) * YC ( VROCP5AROP ) ! NO3+VROCP5AROP=... & + RKI( 490 ) * YC ( NAPHP ) ! NO3+NAPHP=NO2+... c..Loss frequency of N2O5 L16 = RKI( 69 ) ! N2O5=NO2+NO3 & + RKI( 70 ) ! N2O5=0.2000D+01*HNO3 & + RKI( 413 ) ! N2O5=0.2000D+01*HNO3 c..K15_15, R15_16, and R16_15 terms K15_15 = RKI( 67 ) * DTC R15_16 = ( RKI( 69 ) ) * DTC R16_15 = RKI( 68 ) * YCP( NO2 ) * DTC c..Solution of quadratic equation to get NO3 & N2O5 CMN = 1.0D0 + L16 * DTC A = 2.0D0 * K15_15 * CMN B = CMN * ( 1.0D0 + L15 * DTC ) - R15_16 * R16_15 C = CMN * ( YC0( NO3 ) + P15 * DTC ) + R15_16 * YC0( N2O5 ) Q = -0.5D0 * ( B + SIGN( 1.0D0, B ) * SQRT( B * B + 4.0D0 * A * C ) ) YCP( NO3 ) = MAX( Q / A , -C / Q ) YCP( N2O5 ) = ( YC0( N2O5 ) + R16_15 * YCP( NO3 ) ) / CMN RETURN END ================================================ FILE: CCTM/src/gas/ebi_cracmm1_aq/hrinit.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE HRINIT C*********************************************************************** C C FUNCTION: To initialize species tolerances, arrays, and indices C C PRECONDITIONS: For the CRACMM1_AQ mechanism C C RETURN VALUES: None C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by EBI solver program, Jun 14, 2022 C 21 Jun 10 J.Young: convert for Namelist redesign C 18 Jul 14 B.Hutzell: revised to use the RXNS_DATA and RXNS_FUNCTION C modules instead of include files C*********************************************************************** USE UTILIO_DEFN USE HRDATA USE RXNS_DATA USE RXNS_FUNCTION IMPLICIT NONE C.....INCLUDES: Include SUBST_CONST ! common constants C.....ARGUMENTS: NONE C.....PARAMETERS: NONE C.....SAVED VARIABLES: CHARACTER( 16 ), SAVE :: PNAME = 'HRINIT' ! Program name C.....LOCAL VARIABLES: CHARACTER( 132 ) :: MSG ! Log message INTEGER N ! Loop index INTEGER IOS ! Allocate error status C*********************************************************************** N_SPEC = NUMB_MECH_SPC N_RXNS = NRXNS N_SPCL_RKS = 0 ALLOCATE( RKI( NRXNS ), & RKI_SAV( MAX_CELLS_EBI, NRXNS ), & FORWARD_CONV( NUMB_MECH_SPC), & REVERSE_CONV( NUMB_MECH_SPC), & RXRAT( NRXNS ), & RTOL( NUMB_MECH_SPC), & YC( NUMB_MECH_SPC), & YC0( NUMB_MECH_SPC), & YCP( NUMB_MECH_SPC), & PROD( NUMB_MECH_SPC), & LOSS( NUMB_MECH_SPC), & STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating RKI, RXRAT, RTOL, YC, YC0, YCP, FORWARD_CONV, ' & // 'REVERSE_CONV, PROD, LOSS, or PNEG' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF ALLOCATE( ATMPRES( MAX_CELLS_EBI ), & H2O ( MAX_CELLS_EBI ), & TEMP ( MAX_CELLS_EBI ), & DENSITY( MAX_CELLS_EBI ), & HET ( MAX_CELLS_EBI, NHETERO ), & RJIN ( MAX_CELLS_EBI, NPHOTAB ), & SEAWATER ( MAX_CELLS_EBI ) , & STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating ATMPRES, H2O, TEMP, HET, RJIN, SEAWATER ' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF IF( NSPECIAL .GT. 0 )THEN ALLOCATE( SYC( MAX_CELLS_EBI, NUMB_MECH_SPC ), STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating SYC' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF ALLOCATE( IOLD2NEW( NUMB_MECH_SPC, 1 ), STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating IOLD2NEW' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF DO N = 1, NUMB_MECH_SPC IOLD2NEW( N, 1 ) = N END DO END IF IF( .NOT. MAP_CHEMISTRY_SPECIES() )THEN MSG = 'Detected above error(s) when mapping Chemistry species from CGRID species' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT2 ) END IF DO N = 1, NUMB_MECH_SPC FORWARD_CONV( N ) = 1.0E-3 * MWAIR / SPECIES_MOLWT( N ) REVERSE_CONV( N ) = 1.0E+3 / MWAIR * SPECIES_MOLWT( N ) END DO ! initialize all reaction rates to zero so unused array elements are defined RXRAT = 0.0D0 ! initialize all production and loss rates to zero so unused array elements are defined PROD = 0.0D0 LOSS = 0.0D0 NING1 = 4 NING2 = 4 ALLOCATE( YCCELL( MODEL_SPECIES), STAT = IOS ) ! array for degradation routines IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating YCCELL ' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF c..Allocate and define ebi species N_EBISP = 165 ALLOCATE( EBISP( N_EBISP ), STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating EBISP' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF EBISP( 1 ) = H2O2 EBISP( 2 ) = HNO3 EBISP( 3 ) = HCHO EBISP( 4 ) = CO EBISP( 5 ) = ACD EBISP( 6 ) = MO2 EBISP( 7 ) = ALD EBISP( 8 ) = ETHP EBISP( 9 ) = ACT EBISP( 10 ) = UALD EBISP( 11 ) = KET EBISP( 12 ) = PINAL EBISP( 13 ) = HC10P EBISP( 14 ) = LIMAL EBISP( 15 ) = MEK EBISP( 16 ) = HKET EBISP( 17 ) = MACR EBISP( 18 ) = MACP EBISP( 19 ) = XO2 EBISP( 20 ) = MVK EBISP( 21 ) = GLY EBISP( 22 ) = MGLY EBISP( 23 ) = DCB1 EBISP( 24 ) = DCB2 EBISP( 25 ) = BALD EBISP( 26 ) = CHO EBISP( 27 ) = OP1 EBISP( 28 ) = OP2 EBISP( 29 ) = OPB EBISP( 30 ) = OP3 EBISP( 31 ) = PAA EBISP( 32 ) = ONIT EBISP( 33 ) = SO2 EBISP( 34 ) = SULF EBISP( 35 ) = SULRXN EBISP( 36 ) = ETH EBISP( 37 ) = HC3 EBISP( 38 ) = HC3P EBISP( 39 ) = ASOATJ EBISP( 40 ) = HC5 EBISP( 41 ) = HC5P EBISP( 42 ) = ETE EBISP( 43 ) = ETEP EBISP( 44 ) = OLT EBISP( 45 ) = OLTP EBISP( 46 ) = OLI EBISP( 47 ) = OLIP EBISP( 48 ) = ACE EBISP( 49 ) = ORA1 EBISP( 50 ) = BEN EBISP( 51 ) = BENP EBISP( 52 ) = PHEN EBISP( 53 ) = TOL EBISP( 54 ) = TOLP EBISP( 55 ) = CSL EBISP( 56 ) = XYM EBISP( 57 ) = XYMP EBISP( 58 ) = XYE EBISP( 59 ) = XYEP EBISP( 60 ) = ISO EBISP( 61 ) = ISOP EBISP( 62 ) = API EBISP( 63 ) = APIP1 EBISP( 64 ) = APIP2 EBISP( 65 ) = LIM EBISP( 66 ) = LIMP1 EBISP( 67 ) = LIMP2 EBISP( 68 ) = PINALP EBISP( 69 ) = RCO3 EBISP( 70 ) = LIMALP EBISP( 71 ) = ACTP EBISP( 72 ) = MEKP EBISP( 73 ) = KETP EBISP( 74 ) = MCP EBISP( 75 ) = MVKP EBISP( 76 ) = UALP EBISP( 77 ) = DCB3 EBISP( 78 ) = BALP EBISP( 79 ) = ADDC EBISP( 80 ) = MCT EBISP( 81 ) = MCTO EBISP( 82 ) = MOH EBISP( 83 ) = EOH EBISP( 84 ) = ROH EBISP( 85 ) = ETEG EBISP( 86 ) = ISHP EBISP( 87 ) = IEPOX EBISP( 88 ) = MAHP EBISP( 89 ) = ORA2 EBISP( 90 ) = ORAP EBISP( 91 ) = PPN EBISP( 92 ) = MPAN EBISP( 93 ) = TRPN EBISP( 94 ) = HOM EBISP( 95 ) = NALD EBISP( 96 ) = ISON EBISP( 97 ) = MCTP EBISP( 98 ) = OLNN EBISP( 99 ) = OLND EBISP( 100 ) = APINP1 EBISP( 101 ) = APINP2 EBISP( 102 ) = LIMNP1 EBISP( 103 ) = LIMNP2 EBISP( 104 ) = ADCN EBISP( 105 ) = VROCP4OXY2 EBISP( 106 ) = VROCN1OXY6 EBISP( 107 ) = FURANONE EBISP( 108 ) = VROCP3OXY2 EBISP( 109 ) = VROCP0OXY4 EBISP( 110 ) = BAL1 EBISP( 111 ) = BAL2 EBISP( 112 ) = ELHOM EBISP( 113 ) = VROCIOXY EBISP( 114 ) = SLOWROC EBISP( 115 ) = ACRO EBISP( 116 ) = BDE13 EBISP( 117 ) = BDE13P EBISP( 118 ) = FURAN EBISP( 119 ) = FURANO2 EBISP( 120 ) = PROG EBISP( 121 ) = SESQ EBISP( 122 ) = SESQNRO2 EBISP( 123 ) = VROCN2OXY2 EBISP( 124 ) = SESQRO2 EBISP( 125 ) = VROCP0OXY2 EBISP( 126 ) = VROCP1OXY3 EBISP( 127 ) = AGLYJ EBISP( 128 ) = IEPOXP EBISP( 129 ) = AISO3NOSJ EBISP( 130 ) = ASO4J EBISP( 131 ) = AISO3OSJ EBISP( 132 ) = VROCP6ALK EBISP( 133 ) = VROCP6ALKP EBISP( 134 ) = VROCP5ALK EBISP( 135 ) = VROCP5ALKP EBISP( 136 ) = VROCP4ALK EBISP( 137 ) = VROCP4ALKP EBISP( 138 ) = VROCP3ALK EBISP( 139 ) = VROCP3ALKP EBISP( 140 ) = VROCP2ALK EBISP( 141 ) = VROCP2ALKP EBISP( 142 ) = VROCP1ALK EBISP( 143 ) = VROCP1ALKP EBISP( 144 ) = HC10 EBISP( 145 ) = VROCP6ALKP2 EBISP( 146 ) = VROCP5ALKP2 EBISP( 147 ) = VROCP4ALKP2 EBISP( 148 ) = VROCP2OXY2 EBISP( 149 ) = VROCP3ALKP2 EBISP( 150 ) = VROCP1OXY1 EBISP( 151 ) = VROCP2ALKP2 EBISP( 152 ) = VROCP1ALKP2 EBISP( 153 ) = VROCN1OXY1 EBISP( 154 ) = HC10P2 EBISP( 155 ) = VROCP6ARO EBISP( 156 ) = VROCP6AROP EBISP( 157 ) = VROCN2OXY4 EBISP( 158 ) = VROCN1OXY3 EBISP( 159 ) = VROCP5ARO EBISP( 160 ) = VROCP5AROP EBISP( 161 ) = NAPH EBISP( 162 ) = NAPHP EBISP( 163 ) = VROCN2OXY8 EBISP( 164 ) = VROCP5OXY1 EBISP( 165 ) = VROCP6OXY1 cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Set species tolerances cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc RTOL( O3 ) = 5.0D-04 RTOL( O3P ) = 1.0D+00 RTOL( O1D ) = 1.0D+00 RTOL( H2O2 ) = 5.0D-04 RTOL( HO ) = 5.0D-04 RTOL( NO2 ) = 5.0D-04 RTOL( NO ) = 5.0D-04 RTOL( NO3 ) = 5.0D-04 RTOL( HONO ) = 5.0D-04 RTOL( HNO3 ) = 5.0D-04 RTOL( HNO4 ) = 5.0D-04 RTOL( HO2 ) = 5.0D-04 RTOL( HCHO ) = 5.0D-04 RTOL( CO ) = 5.0D-04 RTOL( ACD ) = 5.0D-04 RTOL( MO2 ) = 5.0D-04 RTOL( ALD ) = 5.0D-04 RTOL( ETHP ) = 5.0D-04 RTOL( ACT ) = 5.0D-04 RTOL( ACO3 ) = 5.0D-04 RTOL( UALD ) = 5.0D-04 RTOL( KET ) = 5.0D-04 RTOL( PINAL ) = 5.0D-04 RTOL( HC10P ) = 5.0D-04 RTOL( LIMAL ) = 5.0D-04 RTOL( MEK ) = 5.0D-04 RTOL( HKET ) = 5.0D-04 RTOL( MACR ) = 5.0D-04 RTOL( MACP ) = 5.0D-04 RTOL( XO2 ) = 5.0D-04 RTOL( MVK ) = 5.0D-04 RTOL( GLY ) = 5.0D-04 RTOL( MGLY ) = 5.0D-04 RTOL( DCB1 ) = 5.0D-04 RTOL( DCB2 ) = 5.0D-04 RTOL( BALD ) = 5.0D-04 RTOL( CHO ) = 5.0D-04 RTOL( OP1 ) = 5.0D-04 RTOL( OP2 ) = 5.0D-04 RTOL( OPB ) = 5.0D-04 RTOL( OP3 ) = 5.0D-04 RTOL( PAA ) = 5.0D-04 RTOL( ONIT ) = 5.0D-04 RTOL( PAN ) = 5.0D-04 RTOL( N2O5 ) = 5.0D-04 RTOL( SO2 ) = 5.0D-04 RTOL( SULF ) = 1.0D+00 RTOL( SULRXN ) = 1.0D+00 RTOL( ETH ) = 5.0D-04 RTOL( HC3 ) = 5.0D-04 RTOL( HC3P ) = 5.0D-04 RTOL( ASOATJ ) = 5.0D-04 RTOL( HC5 ) = 5.0D-04 RTOL( HC5P ) = 5.0D-04 RTOL( ETE ) = 5.0D-04 RTOL( ETEP ) = 5.0D-04 RTOL( OLT ) = 5.0D-04 RTOL( OLTP ) = 5.0D-04 RTOL( OLI ) = 5.0D-04 RTOL( OLIP ) = 5.0D-04 RTOL( ACE ) = 5.0D-04 RTOL( ORA1 ) = 5.0D-04 RTOL( BEN ) = 5.0D-04 RTOL( BENP ) = 5.0D-04 RTOL( PHEN ) = 5.0D-04 RTOL( TOL ) = 5.0D-04 RTOL( TOLP ) = 5.0D-04 RTOL( CSL ) = 5.0D-04 RTOL( XYM ) = 5.0D-04 RTOL( XYMP ) = 5.0D-04 RTOL( XYE ) = 5.0D-04 RTOL( XYEP ) = 5.0D-04 RTOL( ISO ) = 5.0D-04 RTOL( ISOP ) = 5.0D-04 RTOL( API ) = 5.0D-04 RTOL( APIP1 ) = 5.0D-04 RTOL( APIP2 ) = 5.0D-04 RTOL( LIM ) = 5.0D-04 RTOL( LIMP1 ) = 5.0D-04 RTOL( LIMP2 ) = 5.0D-04 RTOL( PINALP ) = 5.0D-04 RTOL( RCO3 ) = 5.0D-04 RTOL( LIMALP ) = 5.0D-04 RTOL( ACTP ) = 5.0D-04 RTOL( MEKP ) = 5.0D-04 RTOL( KETP ) = 5.0D-04 RTOL( MCP ) = 5.0D-04 RTOL( MVKP ) = 5.0D-04 RTOL( UALP ) = 5.0D-04 RTOL( DCB3 ) = 5.0D-04 RTOL( BALP ) = 5.0D-04 RTOL( ADDC ) = 5.0D-04 RTOL( MCT ) = 5.0D-04 RTOL( MCTO ) = 5.0D-04 RTOL( MOH ) = 5.0D-04 RTOL( EOH ) = 5.0D-04 RTOL( ROH ) = 5.0D-04 RTOL( ETEG ) = 5.0D-04 RTOL( ISHP ) = 5.0D-04 RTOL( IEPOX ) = 5.0D-04 RTOL( MAHP ) = 5.0D-04 RTOL( ORA2 ) = 5.0D-04 RTOL( ORAP ) = 5.0D-04 RTOL( PPN ) = 5.0D-04 RTOL( MPAN ) = 5.0D-04 RTOL( TRPN ) = 5.0D-04 RTOL( HOM ) = 5.0D-04 RTOL( NALD ) = 5.0D-04 RTOL( ISON ) = 5.0D-04 RTOL( MCTP ) = 5.0D-04 RTOL( OLNN ) = 5.0D-04 RTOL( OLND ) = 5.0D-04 RTOL( APINP1 ) = 5.0D-04 RTOL( APINP2 ) = 5.0D-04 RTOL( LIMNP1 ) = 5.0D-04 RTOL( LIMNP2 ) = 5.0D-04 RTOL( ADCN ) = 5.0D-04 RTOL( VROCP4OXY2 ) = 5.0D-04 RTOL( VROCN1OXY6 ) = 5.0D-04 RTOL( FURANONE ) = 5.0D-04 RTOL( VROCP3OXY2 ) = 5.0D-04 RTOL( VROCP0OXY4 ) = 5.0D-04 RTOL( BAL1 ) = 5.0D-04 RTOL( BAL2 ) = 5.0D-04 RTOL( ELHOM ) = 5.0D-04 RTOL( VROCIOXY ) = 5.0D-04 RTOL( SLOWROC ) = 5.0D-04 RTOL( ACRO ) = 5.0D-04 RTOL( BDE13 ) = 5.0D-04 RTOL( BDE13P ) = 5.0D-04 RTOL( FURAN ) = 5.0D-04 RTOL( FURANO2 ) = 5.0D-04 RTOL( PROG ) = 5.0D-04 RTOL( SESQ ) = 5.0D-04 RTOL( SESQNRO2 ) = 5.0D-04 RTOL( VROCN2OXY2 ) = 5.0D-04 RTOL( SESQRO2 ) = 5.0D-04 RTOL( VROCP0OXY2 ) = 5.0D-04 RTOL( VROCP1OXY3 ) = 5.0D-04 RTOL( AGLYJ ) = 5.0D-04 RTOL( IEPOXP ) = 5.0D-04 RTOL( AISO3NOSJ ) = 5.0D-04 RTOL( ASO4J ) = 5.0D-04 RTOL( AISO3OSJ ) = 5.0D-04 RTOL( VROCP6ALK ) = 5.0D-04 RTOL( VROCP6ALKP ) = 5.0D-04 RTOL( VROCP5ALK ) = 5.0D-04 RTOL( VROCP5ALKP ) = 5.0D-04 RTOL( VROCP4ALK ) = 5.0D-04 RTOL( VROCP4ALKP ) = 5.0D-04 RTOL( VROCP3ALK ) = 5.0D-04 RTOL( VROCP3ALKP ) = 5.0D-04 RTOL( VROCP2ALK ) = 5.0D-04 RTOL( VROCP2ALKP ) = 5.0D-04 RTOL( VROCP1ALK ) = 5.0D-04 RTOL( VROCP1ALKP ) = 5.0D-04 RTOL( HC10 ) = 5.0D-04 RTOL( VROCP6ALKP2 ) = 5.0D-04 RTOL( VROCP5ALKP2 ) = 5.0D-04 RTOL( VROCP4ALKP2 ) = 5.0D-04 RTOL( VROCP2OXY2 ) = 5.0D-04 RTOL( VROCP3ALKP2 ) = 5.0D-04 RTOL( VROCP1OXY1 ) = 5.0D-04 RTOL( VROCP2ALKP2 ) = 5.0D-04 RTOL( VROCP1ALKP2 ) = 5.0D-04 RTOL( VROCN1OXY1 ) = 5.0D-04 RTOL( HC10P2 ) = 5.0D-04 RTOL( VROCP6ARO ) = 5.0D-04 RTOL( VROCP6AROP ) = 5.0D-04 RTOL( VROCN2OXY4 ) = 5.0D-04 RTOL( VROCN1OXY3 ) = 5.0D-04 RTOL( VROCP5ARO ) = 5.0D-04 RTOL( VROCP5AROP ) = 5.0D-04 RTOL( NAPH ) = 5.0D-04 RTOL( NAPHP ) = 5.0D-04 RTOL( VROCN2OXY8 ) = 5.0D-04 RTOL( VROCP5OXY1 ) = 5.0D-04 RTOL( VROCP6OXY1 ) = 5.0D-04 RETURN END ================================================ FILE: CCTM/src/gas/ebi_cracmm1_aq/hrprodloss.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE HRPRODLOSS C*********************************************************************** C C FUNCTION: To compute the production and loss rates for EBI species C C PRECONDITIONS: For the CRACMM1_AQ mechanism C C RETURN VALUES: None C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by EBI solver program, Jun 14, 2022 C C 18 Jul 14 B.Hutzell: revised to use real(8) variables C*********************************************************************** USE HRDATA IMPLICIT NONE C.....INCLUDES: NONE C.....ARGUMENTS: NONE C.....PARAMETERS: NONE C.....EXTERNAL FUNCTIONS: NONE C.....SAVED VARIABLES: NONE ! CHARACTER( 16 ), SAVE :: PNAME = 'HRPRODLOSS' ! Program name C.....LOCAL VARIABLES: C*********************************************************************** PROD( H2O2 ) = RXRAT( 50 ) ! HO2+HO2=H2O2 & + RXRAT( 51 ) ! HO2+HO2=H2O2 & + 6.8000D-02 * RXRAT( 133 ) ! OLT+O3=0.6800D-01*H2O2+... & + 2.6000D-02 * RXRAT( 134 ) ! OLI+O3=0.2600D-01*H2O2+... & + 9.0000D-02 * RXRAT( 135 ) ! ISO+O3=0.9000D-01*H2O2+... & + 5.0000D-02 * RXRAT( 136 ) ! API+O3=0.5000D-01*H2O2+... & + 5.0000D-02 * RXRAT( 137 ) ! LIM+O3=0.5000D-01*H2O2+... LOSS( H2O2 ) = RXRAT( 3 ) ! H2O2=0.2000D+01*HO & + RXRAT( 52 ) ! H2O2+HO=HO2 PROD( HNO3 ) = RXRAT( 56 ) ! NO+HO2=HNO3 & + RXRAT( 61 ) ! NO2+HO=HNO3 & + 3.0000D-01 * RXRAT( 64 ) ! NO3+HO2=0.3000D+00*HNO3+... & + 2.0000D+00 * RXRAT( 70 ) ! N2O5=0.2000D+01*HNO3 & + RXRAT( 154 ) ! HCHO+NO3=HNO3+CO+HO2 & + RXRAT( 155 ) ! ACD+NO3=HNO3+ACO3 & + RXRAT( 156 ) ! ALD+NO3=HNO3+RCO3 & + 3.2000D-01 * RXRAT( 157 ) ! MACR+NO3=0.3200D+00*HNO3+... & + RXRAT( 159 ) ! GLY+NO3=HNO3+0.2000D+01*CO+HO2 & + RXRAT( 160 ) ! MGLY+NO3=HNO3+CO+ACO3 & + 4.2400D-01 * RXRAT( 161 ) ! PHEN+NO3=0.4240D+00*HNO3+... & + 4.0000D-01 * RXRAT( 162 ) ! CSL+NO3=0.4000D+00*HNO3+... & + RXRAT( 163 ) ! MCT+NO3=HNO3+MCTO & + 3.2000D-01 * RXRAT( 385 ) ! ACRO+NO3=0.3200D+00*HNO3+... & + 2.0000D+00 * RXRAT( 413 ) ! N2O5=0.2000D+01*HNO3 & + 5.0000D-01 * RXRAT( 414 ) ! NO2=0.5000D+00*HNO3+... LOSS( HNO3 ) = RXRAT( 8 ) ! HNO3=HO+NO2 & + RXRAT( 62 ) ! HNO3+HO=NO3 PROD( HCHO ) = 3.5000D-01 * RXRAT( 16 ) ! UALD=0.3500D+00*HCHO+... & + RXRAT( 21 ) ! HKET=HCHO+ACO3+HO2 & + 6.7000D-01 * RXRAT( 22 ) ! MACR=0.6700D+00*HCHO+... & + RXRAT( 25 ) ! GLY=HCHO+CO & + RXRAT( 31 ) ! OP1=HCHO+HO2+HO & + RXRAT( 112 ) ! MOH+HO=HCHO+HO2 & + 3.5000D-01 * RXRAT( 116 ) ! OP1+HO=0.3500D+00*HCHO+... & + 3.5000D-01 * RXRAT( 124 ) ! PAA+HO=0.3500D+00*HCHO+... & + RXRAT( 125 ) ! PAN+HO=HCHO+NO3+XO2 & + RXRAT( 126 ) ! PPN+HO=HCHO+NO3+XO2 & + 7.0000D-02 * RXRAT( 131 ) ! ISON+HO=0.7000D-01*HCHO+... & + RXRAT( 132 ) ! ETE+O3=HCHO+0.1500D+00*HO2+... & + 5.6000D-01 * RXRAT( 133 ) ! OLT+O3=0.5600D+00*HCHO+... & + 9.0000D-02 * RXRAT( 134 ) ! OLI+O3=0.9000D-01*HCHO+... & + 5.8000D-01 * RXRAT( 135 ) ! ISO+O3=0.5800D+00*HCHO+... & + 7.9000D-01 * RXRAT( 138 ) ! LIMAL+O3=0.7900D+00*HCHO+... & + 1.0000D-01 * RXRAT( 141 ) ! MVK+O3=0.1000D+00*HCHO+... & + 8.0000D-02 * RXRAT( 142 ) ! UALD+O3=0.8000D-01*HCHO+... & + 5.0000D-02 * RXRAT( 143 ) ! DCB1+O3=0.5000D-01*HCHO+... & + 5.0000D-02 * RXRAT( 144 ) ! DCB2+O3=0.5000D-01*HCHO+... & + 6.8000D-01 * RXRAT( 157 ) ! MACR+NO3=0.6800D+00*HCHO+... & + 3.3200D-01 * RXRAT( 158 ) ! UALD+NO3=0.3320D+00*HCHO+... & + RXRAT( 173 ) ! MO2+NO=HCHO+NO2+HO2 & + 1.8000D-02 * RXRAT( 176 ) ! HC5P+NO=0.1800D-01*HCHO+... & + 1.6000D+00 * RXRAT( 177 ) ! ETEP+NO=0.1600D+01*HCHO+... & + 7.8000D-01 * RXRAT( 178 ) ! OLTP+NO=0.7800D+00*HCHO+... & + 2.0000D-01 * RXRAT( 184 ) ! ISOP+NO=0.2000D+00*HCHO+... & + 2.8000D-01 * RXRAT( 189 ) ! LIMP1+NO=0.2800D+00*HCHO+... & + 9.5000D-01 * RXRAT( 193 ) ! PINALP+NO=0.9500D+00*HCHO+... & + 9.4000D-01 * RXRAT( 194 ) ! LIMALP+NO=0.9400D+00*HCHO+... & + RXRAT( 197 ) ! ACTP+NO=HCHO+NO2+ACO3 & + 3.3000D-01 * RXRAT( 198 ) ! MEKP+NO=0.3300D+00*HCHO+... & + 6.5000D-01 * RXRAT( 200 ) ! MACP+NO=0.6500D+00*HCHO+... & + 5.0000D-01 * RXRAT( 201 ) ! MCP+NO=0.5000D+00*HCHO+... & + 3.0000D-01 * RXRAT( 202 ) ! MVKP+NO=0.3000D+00*HCHO+... & + 3.0000D-02 * RXRAT( 203 ) ! UALP+NO=0.3000D-01*HCHO+... & + 2.8700D-01 * RXRAT( 210 ) ! OLND+NO=0.2870D+00*HCHO+... & + 1.5000D-01 * RXRAT( 240 ) ! ACTP+HO2=0.1500D+00*HCHO+... & + 1.3700D+00 * RXRAT( 255 ) ! MO2+MO2=0.1370D+01*HCHO+... & + 7.5000D-01 * RXRAT( 256 ) ! ETHP+MO2=0.7500D+00*HCHO+... & + 8.2700D-01 * RXRAT( 257 ) ! HC3P+MO2=0.8270D+00*HCHO+... & + 7.7700D-01 * RXRAT( 258 ) ! HC5P+MO2=0.7770D+00*HCHO+... & + 1.9500D+00 * RXRAT( 259 ) ! ETEP+MO2=0.1950D+01*HCHO+... & + 1.5000D+00 * RXRAT( 260 ) ! OLTP+MO2=0.1500D+01*HCHO+... & + 7.5000D-01 * RXRAT( 261 ) ! OLIP+MO2=0.7500D+00*HCHO+... & + 6.8000D-01 * RXRAT( 262 ) ! BENP+MO2=0.6800D+00*HCHO+... & + 6.8000D-01 * RXRAT( 263 ) ! TOLP+MO2=0.6800D+00*HCHO+... & + 6.8000D-01 * RXRAT( 264 ) ! XYMP+MO2=0.6800D+00*HCHO+... & + 6.8000D-01 * RXRAT( 265 ) ! XYEP+MO2=0.6800D+00*HCHO+... & + 1.3100D+00 * RXRAT( 266 ) ! ISOP+MO2=0.1310D+01*HCHO+... & + 6.8000D-01 * RXRAT( 267 ) ! APIP1+MO2=0.6800D+00*HCHO+... & + 7.5000D-01 * RXRAT( 268 ) ! APIP2+MO2=0.7500D+00*HCHO+... & + 6.8000D-01 * RXRAT( 269 ) ! APINP1+MO2=0.6800D+00*HCHO+... & + 7.5000D-01 * RXRAT( 270 ) ! APINP2+MO2=0.7500D+00*HCHO+... & + RXRAT( 271 ) ! LIMP1+MO2=HCHO+HO2+0.4200D+... & + 7.5000D-01 * RXRAT( 272 ) ! LIMP2+MO2=0.7500D+00*HCHO+... & + 6.8000D-01 * RXRAT( 273 ) ! LIMNP1+MO2=0.6800D+00*HCHO+... & + 7.5000D-01 * RXRAT( 274 ) ! LIMNP2+MO2=0.7500D+00*HCHO+... & + RXRAT( 275 ) ! ACO3+MO2=HCHO+0.9000D+... & + RXRAT( 276 ) ! RCO3+MO2=HCHO+0.9000D+... & + 1.5000D+00 * RXRAT( 277 ) ! ACTP+MO2=0.1500D+01*HCHO+... & + RXRAT( 278 ) ! MEKP+MO2=HCHO+0.8340D+... & + 7.5000D-01 * RXRAT( 279 ) ! KETP+MO2=0.7500D+00*HCHO+... & + 1.6600D+00 * RXRAT( 280 ) ! MACP+MO2=0.1660D+01*HCHO+... & + 1.5000D+00 * RXRAT( 281 ) ! MCP+MO2=0.1500D+01*HCHO+... & + 1.5000D+00 * RXRAT( 282 ) ! MVKP+MO2=0.1500D+01*HCHO+... & + 7.7300D-01 * RXRAT( 283 ) ! UALP+MO2=0.7730D+00*HCHO+... & + RXRAT( 284 ) ! BALP+MO2=HCHO+BAL1+HO2 & + RXRAT( 285 ) ! BAL1+MO2=HCHO+BAL2+HO2 & + RXRAT( 286 ) ! ADDC+MO2=HCHO+0.2000D+... & + RXRAT( 287 ) ! MCTP+MO2=HCHO+MCTO+HO2 & + RXRAT( 288 ) ! ORAP+MO2=HCHO+HO2+GLY & + RXRAT( 289 ) ! OLNN+MO2=HCHO+0.2000D+... & + 9.6500D-01 * RXRAT( 290 ) ! OLND+MO2=0.9650D+00*HCHO+... & + RXRAT( 291 ) ! ADCN+MO2=HCHO+0.7000D+... & + RXRAT( 292 ) ! XO2+MO2=HCHO+HO2 & + 1.3000D-01 * RXRAT( 294 ) ! HC3P+ACO3=0.1300D+00*HCHO+... & + 4.2000D-02 * RXRAT( 295 ) ! HC5P+ACO3=0.4200D-01*HCHO+... & + 1.6000D+00 * RXRAT( 296 ) ! ETEP+ACO3=0.1600D+01*HCHO+... & + RXRAT( 297 ) ! OLTP+ACO3=HCHO+0.5000D+... & + 1.0480D+00 * RXRAT( 303 ) ! ISOP+ACO3=0.1048D+01*HCHO+... & + 3.2000D-01 * RXRAT( 308 ) ! LIMP1+ACO3=0.3200D+00*HCHO+... & + RXRAT( 314 ) ! ACTP+ACO3=HCHO+0.5000D+... & + 3.3000D-01 * RXRAT( 315 ) ! MEKP+ACO3=0.3300D+00*HCHO+... & + RXRAT( 317 ) ! MACP+ACO3=HCHO+0.5000D+... & + RXRAT( 318 ) ! MCP+ACO3=HCHO+0.5000D+... & + RXRAT( 319 ) ! MVKP+ACO3=HCHO+0.5000D+... & + 3.0000D-02 * RXRAT( 320 ) ! UALP+ACO3=0.3000D-01*HCHO+... & + 2.8700D-01 * RXRAT( 327 ) ! OLND+ACO3=0.2870D+00*HCHO+... & + RXRAT( 331 ) ! MO2+NO3=HCHO+HO2+NO2 & + 2.4000D-02 * RXRAT( 334 ) ! HC5P+NO3=0.2400D-01*HCHO+... & + 1.6000D+00 * RXRAT( 335 ) ! ETEP+NO3=0.1600D+01*HCHO+... & + 7.9000D-01 * RXRAT( 336 ) ! OLTP+NO3=0.7900D+00*HCHO+... & + 7.5000D-01 * RXRAT( 342 ) ! ISOP+NO3=0.7500D+00*HCHO+... & + 3.8500D-01 * RXRAT( 344 ) ! LIMP1+NO3=0.3850D+00*HCHO+... & + RXRAT( 347 ) ! ACTP+NO3=HCHO+NO2+ACO3 & + 3.3000D-01 * RXRAT( 348 ) ! MEKP+NO3=0.3300D+00*HCHO+... & + RXRAT( 350 ) ! MACP+NO3=HCHO+0.5380D+... & + RXRAT( 351 ) ! MCP+NO3=HCHO+HO2+NO2+HKET & + 3.0000D-01 * RXRAT( 352 ) ! MVKP+NO3=0.3000D+00*HCHO+... & + 3.0000D-02 * RXRAT( 353 ) ! UALP+NO3=0.3000D-01*HCHO+... & + 2.8700D-01 * RXRAT( 360 ) ! OLND+NO3=0.2870D+00*HCHO+... & + 2.0200D-01 * RXRAT( 363 ) ! OLNN+OLND=0.2020D+00*HCHO+... & + 5.0400D-01 * RXRAT( 364 ) ! OLND+OLND=0.5040D+00*HCHO+... & + 4.8000D-01 * RXRAT( 370 ) ! APIP2+ISOP=0.4800D+00*HCHO+... & + 4.8000D-01 * RXRAT( 373 ) ! LIMP2+ISOP=0.4800D+00*HCHO+... & + 4.8000D-01 * RXRAT( 376 ) ! APINP2+ISOP=0.4800D+... & + 4.8000D-01 * RXRAT( 379 ) ! LIMNP2+ISOP=0.4800D+... & + 7.2000D-01 * RXRAT( 384 ) ! ACRO+O3=0.7200D+00*HCHO+... & + 6.8000D-01 * RXRAT( 385 ) ! ACRO+NO3=0.6800D+00*HCHO+... & + 1.5000D-01 * RXRAT( 386 ) ! ACRO=0.1500D+00*HCHO+... & + 8.9500D-01 * RXRAT( 388 ) ! BDE13P+NO=0.8950D+00*HCHO+... & + 9.2500D-01 * RXRAT( 389 ) ! BDE13P+NO3=0.9250D+00*HCHO+... & + 1.1430D+00 * RXRAT( 391 ) ! BDE13P+MO2=0.1143D+01*HCHO+... & + 7.4000D-01 * RXRAT( 392 ) ! BDE13P+ACO3=0.7400D+... & + 8.3000D-01 * RXRAT( 393 ) ! BDE13+O3=0.8300D+00*HCHO+... & + 6.8000D-01 * RXRAT( 479 ) ! VROCP6AROP+MO2=0.6800D+... & + 6.8000D-01 * RXRAT( 485 ) ! VROCP5AROP+MO2=0.6800D+... & + 6.8000D-01 * RXRAT( 491 ) ! NAPHP+MO2=0.6800D+00*HCHO+... LOSS( HCHO ) = RXRAT( 10 ) ! HCHO=CO & + RXRAT( 11 ) ! HCHO=0.2000D+01*HO2+CO & + RXRAT( 93 ) ! HCHO+HO=HO2+CO & + RXRAT( 154 ) ! HCHO+NO3=HO2+CO+HNO3 PROD( CO ) = RXRAT( 10 ) ! HCHO=CO & + RXRAT( 11 ) ! HCHO=CO+0.2000D+01*HO2 & + RXRAT( 12 ) ! ACD=CO+MO2+HO2 & + RXRAT( 13 ) ! ALD=CO+ETHP+HO2 & + RXRAT( 15 ) ! ACT=CO+0.2000D+01*MO2 & + 1.2200D+00 * RXRAT( 16 ) ! UALD=0.1220D+01*CO+0.7840D+... & + RXRAT( 17 ) ! PINAL=CO+HC10P+HO2 & + RXRAT( 18 ) ! LIMAL=CO+HC10P+HO2 & + 1.0000D-01 * RXRAT( 19 ) ! MEK=0.1000D+00*CO+ETHP+... & + 5.0000D-01 * RXRAT( 20 ) ! KET=0.5000D+00*CO+0.5000D+... & + 6.7000D-01 * RXRAT( 22 ) ! MACR=0.6700D+00*CO+0.6600D+... & + 7.0000D-01 * RXRAT( 23 ) ! MVK=0.7000D+00*CO+0.3000D+... & + 2.0000D+00 * RXRAT( 24 ) ! GLY=0.2000D+01*CO & + RXRAT( 25 ) ! GLY=CO+HCHO & + 2.0000D+00 * RXRAT( 26 ) ! GLY=0.2000D+01*CO+0.2000D+... & + RXRAT( 27 ) ! MGLY=CO+ACO3+HO2 & + RXRAT( 28 ) ! DCB1=CO+0.2500D+00*ACO3+... & + RXRAT( 29 ) ! DCB2=CO+0.2500D+00*ACO3+... & + RXRAT( 30 ) ! BALD=CO+HO2+CHO & + 3.5000D-01 * RXRAT( 83 ) ! ACE+HO=0.3500D+00*CO+... & + RXRAT( 93 ) ! HCHO+HO=CO+HO2 & + 2.0000D+00 * RXRAT( 103 ) ! GLY+HO=0.2000D+01*CO+HO2 & + RXRAT( 104 ) ! MGLY+HO=CO+ACO3 & + 3.3000D-01 * RXRAT( 105 ) ! DCB1+HO=0.3300D+00*CO+... & + 3.3000D-01 * RXRAT( 106 ) ! DCB2+HO=0.3300D+00*CO+... & + 1.1000D-01 * RXRAT( 107 ) ! DCB3+HO=0.1100D+00*CO+... & + 4.3000D-01 * RXRAT( 132 ) ! ETE+O3=0.4300D+00*CO+... & + 4.3000D-01 * RXRAT( 133 ) ! OLT+O3=0.4300D+00*CO+... & + 3.7000D-01 * RXRAT( 134 ) ! OLI+O3=0.3700D+00*CO+... & + 1.4000D-01 * RXRAT( 135 ) ! ISO+O3=0.1400D+00*CO+... & + 1.4000D-01 * RXRAT( 136 ) ! API+O3=0.1400D+00*CO+... & + 1.4000D-01 * RXRAT( 137 ) ! LIM+O3=0.1400D+00*CO+... & + 2.0000D-01 * RXRAT( 138 ) ! LIMAL+O3=0.2000D+00*CO+... & + 2.2000D-01 * RXRAT( 140 ) ! MACR+O3=0.2200D+00*CO+... & + 5.6000D-01 * RXRAT( 141 ) ! MVK+O3=0.5600D+00*CO+... & + 2.4300D-01 * RXRAT( 142 ) ! UALD+O3=0.2430D+00*CO+... & + 1.5000D+00 * RXRAT( 143 ) ! DCB1+O3=0.1500D+01*CO+HO2+... & + 1.5000D+00 * RXRAT( 144 ) ! DCB2+O3=0.1500D+01*CO+HO2+... & + 1.5000D+00 * RXRAT( 145 ) ! DCB3+O3=0.1500D+01*CO+HO2+... & + RXRAT( 154 ) ! HCHO+NO3=CO+HO2+HNO3 & + 6.6800D-01 * RXRAT( 158 ) ! UALD+NO3=0.6680D+00*CO+XO2+... & + 2.0000D+00 * RXRAT( 159 ) ! GLY+NO3=0.2000D+01*CO+HO2+HNO3 & + RXRAT( 160 ) ! MGLY+NO3=CO+ACO3+HNO3 & + 6.5000D-01 * RXRAT( 200 ) ! MACP+NO=0.6500D+00*CO+... & + 6.1000D-01 * RXRAT( 203 ) ! UALP+NO=0.6100D+00*CO+NO2+... & + 5.0000D-01 * RXRAT( 280 ) ! MACP+MO2=0.5000D+00*CO+... & + 3.0500D-01 * RXRAT( 283 ) ! UALP+MO2=0.3050D+00*CO+HO2+... & + 5.0000D-01 * RXRAT( 317 ) ! MACP+ACO3=0.5000D+00*CO+... & + 5.0000D-01 * RXRAT( 320 ) ! UALP+ACO3=0.5000D+00*CO+... & + RXRAT( 350 ) ! MACP+NO3=CO+0.5380D+... & + 6.1000D-01 * RXRAT( 353 ) ! UALP+NO3=0.6100D+00*CO+NO2+... & + 8.4000D-01 * RXRAT( 384 ) ! ACRO+O3=0.8400D+00*CO+... & + RXRAT( 386 ) ! ACRO=CO+0.4770D+00*HO2+... & + 6.3000D-01 * RXRAT( 393 ) ! BDE13+O3=0.6300D+00*CO+... & + 4.3000D-01 * RXRAT( 398 ) ! FURANONE+HO=0.4300D+00*CO+... LOSS( CO ) = RXRAT( 75 ) ! CO+HO=HO2 PROD( ACD ) = RXRAT( 113 ) ! EOH+HO=ACD+HO2 & + 1.8400D-01 * RXRAT( 114 ) ! ROH+HO=0.1840D+00*ACD+... & + 1.0000D-02 * RXRAT( 133 ) ! OLT+O3=0.1000D-01*ACD+... & + 4.5700D-01 * RXRAT( 134 ) ! OLI+O3=0.4570D+00*ACD+... & + 4.2000D-01 * RXRAT( 142 ) ! UALD+O3=0.4200D+00*ACD+... & + RXRAT( 174 ) ! ETHP+NO=ACD+NO2+HO2 & + 5.0400D-01 * RXRAT( 175 ) ! HC3P+NO=0.5040D+00*ACD+... & + 4.5000D-02 * RXRAT( 176 ) ! HC5P+NO=0.4500D-01*ACD+... & + 1.2000D-02 * RXRAT( 178 ) ! OLTP+NO=0.1200D-01*ACD+... & + 8.1000D-01 * RXRAT( 179 ) ! OLIP+NO=0.8100D+00*ACD+... & + 7.5000D-01 * RXRAT( 256 ) ! ETHP+MO2=0.7500D+00*ACD+... & + RXRAT( 293 ) ! ETHP+ACO3=ACD+0.5000D+... & + RXRAT( 332 ) ! ETHP+NO3=ACD+NO2+HO2 & + 5.1900D-01 * RXRAT( 333 ) ! HC3P+NO3=0.5190D+00*ACD+... & + 4.8000D-02 * RXRAT( 334 ) ! HC5P+NO3=0.4800D-01*ACD+... & + 2.0000D-02 * RXRAT( 336 ) ! OLTP+NO3=0.2000D-01*ACD+... & + 8.5000D-01 * RXRAT( 337 ) ! OLIP+NO3=0.8500D+00*ACD+... & + 2.5810D-01 * RXRAT( 493 ) ! VROCN2OXY8+HO=0.2581D+... & + 7.9400D-02 * RXRAT( 494 ) ! VROCN2OXY4+HO=0.7940D-... & + 3.9000D-02 * RXRAT( 495 ) ! VROCN2OXY2+HO=0.3900D-... & + 1.8400D-01 * RXRAT( 496 ) ! VROCN1OXY6+HO=0.1840D+... & + 6.4600D-02 * RXRAT( 497 ) ! VROCN1OXY3+HO=0.6460D-... & + 2.4400D-02 * RXRAT( 498 ) ! VROCN1OXY1+HO=0.2440D-... & + 1.0680D-01 * RXRAT( 499 ) ! VROCP0OXY4+HO=0.1068D+... & + 4.4500D-02 * RXRAT( 500 ) ! VROCP0OXY2+HO=0.4450D-... & + 8.1800D-02 * RXRAT( 501 ) ! VROCP1OXY3+HO=0.8180D-... & + 2.9700D-02 * RXRAT( 502 ) ! VROCP1OXY1+HO=0.2970D-... & + 6.2800D-02 * RXRAT( 503 ) ! VROCP2OXY2+HO=0.6280D-... & + 6.9800D-02 * RXRAT( 504 ) ! VROCP3OXY2+HO=0.6980D-... & + 7.8600D-02 * RXRAT( 505 ) ! VROCP4OXY2+HO=0.7860D-... & + 5.2600D-02 * RXRAT( 506 ) ! VROCP5OXY1+HO=0.5260D-... & + 5.7100D-02 * RXRAT( 507 ) ! VROCP6OXY1+HO=0.5710D-... & + 2.2660D-01 * RXRAT( 508 ) ! OP3+HO=0.2266D+00*ACD+... LOSS( ACD ) = RXRAT( 12 ) ! ACD=HO2+MO2+CO & + RXRAT( 94 ) ! ACD+HO=ACO3 & + RXRAT( 155 ) ! ACD+NO3=ACO3+HNO3 PROD( MO2 ) = RXRAT( 12 ) ! ACD=MO2+HO2+CO & + RXRAT( 14 ) ! ACT=MO2+ACO3 & + 2.0000D+00 * RXRAT( 15 ) ! ACT=0.2000D+01*MO2+CO & + 1.0000D-01 * RXRAT( 19 ) ! MEK=0.1000D+00*MO2+ETHP+... & + 3.0000D-01 * RXRAT( 23 ) ! MVK=0.3000D+00*MO2+0.3000D+... & + RXRAT( 35 ) ! PAA=MO2+HO & + RXRAT( 38 ) ! PAN=MO2+NO3 & + RXRAT( 76 ) ! HO=MO2 & + 6.5000D-01 * RXRAT( 116 ) ! OP1+HO=0.6500D+00*MO2+... & + 6.4000D-01 * RXRAT( 123 ) ! ORA2+HO=0.6400D+00*MO2+... & + 8.0000D-02 * RXRAT( 133 ) ! OLT+O3=0.8000D-01*MO2+... & + 3.2000D-01 * RXRAT( 134 ) ! OLI+O3=0.3200D+00*MO2+... & + 8.0000D-02 * RXRAT( 135 ) ! ISO+O3=0.8000D-01*MO2+... & + 8.0000D-03 * RXRAT( 142 ) ! UALD+O3=0.8000D-02*MO2+... & + 1.3100D-01 * RXRAT( 175 ) ! HC3P+NO=0.1310D+00*MO2+... & + 5.1000D-02 * RXRAT( 176 ) ! HC5P+NO=0.5100D-01*MO2+... & + RXRAT( 195 ) ! ACO3+NO=MO2+NO2 & + 6.5000D-01 * RXRAT( 200 ) ! MACP+NO=0.6500D+00*MO2+... & + 4.4000D-01 * RXRAT( 238 ) ! ACO3+HO2=0.4400D+00*MO2+... & + 5.0000D-01 * RXRAT( 293 ) ! ETHP+ACO3=0.5000D+00*MO2+... & + 5.8000D-01 * RXRAT( 294 ) ! HC3P+ACO3=0.5800D+00*MO2+... & + 5.1800D-01 * RXRAT( 295 ) ! HC5P+ACO3=0.5180D+00*MO2+... & + 5.0000D-01 * RXRAT( 296 ) ! ETEP+ACO3=0.5000D+00*MO2+... & + 5.0000D-01 * RXRAT( 297 ) ! OLTP+ACO3=0.5000D+00*MO2+... & + 5.0000D-01 * RXRAT( 298 ) ! OLIP+ACO3=0.5000D+00*MO2+... & + 7.0000D-01 * RXRAT( 299 ) ! BENP+ACO3=0.7000D+00*MO2+... & + 7.0000D-01 * RXRAT( 300 ) ! TOLP+ACO3=0.7000D+00*MO2+... & + 7.0000D-01 * RXRAT( 301 ) ! XYMP+ACO3=0.7000D+00*MO2+... & + 7.0000D-01 * RXRAT( 302 ) ! XYEP+ACO3=0.7000D+00*MO2+... & + 5.0000D-01 * RXRAT( 303 ) ! ISOP+ACO3=0.5000D+00*MO2+... & + 7.0000D-01 * RXRAT( 304 ) ! APIP1+ACO3=0.7000D+00*MO2+... & + 5.0000D-01 * RXRAT( 305 ) ! APIP2+ACO3=0.5000D+00*MO2+... & + 7.0000D-01 * RXRAT( 306 ) ! APINP1+ACO3=0.7000D+00*MO2+... & + 5.0000D-01 * RXRAT( 307 ) ! APINP2+ACO3=0.5000D+00*MO2+... & + 7.0000D-01 * RXRAT( 308 ) ! LIMP1+ACO3=0.7000D+00*MO2+... & + 5.0000D-01 * RXRAT( 309 ) ! LIMP2+ACO3=0.5000D+00*MO2+... & + 7.0000D-01 * RXRAT( 310 ) ! LIMNP1+ACO3=0.7000D+00*MO2+... & + 5.0000D-01 * RXRAT( 311 ) ! LIMNP2+ACO3=0.5000D+00*MO2+... & + 2.0000D+00 * RXRAT( 312 ) ! ACO3+ACO3=0.2000D+01*MO2 & + RXRAT( 313 ) ! RCO3+ACO3=MO2+ETHP & + 5.0000D-01 * RXRAT( 314 ) ! ACTP+ACO3=0.5000D+00*MO2+... & + 5.0000D-01 * RXRAT( 315 ) ! MEKP+ACO3=0.5000D+00*MO2+... & + 5.0000D-01 * RXRAT( 316 ) ! KETP+ACO3=0.5000D+00*MO2+... & + 5.0000D-01 * RXRAT( 317 ) ! MACP+ACO3=0.5000D+00*MO2+... & + 5.0000D-01 * RXRAT( 318 ) ! MCP+ACO3=0.5000D+00*MO2+... & + 5.0000D-01 * RXRAT( 319 ) ! MVKP+ACO3=0.5000D+00*MO2+... & + 5.0000D-01 * RXRAT( 320 ) ! UALP+ACO3=0.5000D+00*MO2+... & + RXRAT( 321 ) ! BALP+ACO3=MO2+BAL1 & + RXRAT( 322 ) ! BAL1+ACO3=MO2+BAL2 & + RXRAT( 323 ) ! ADDC+ACO3=MO2+0.2000D+... & + RXRAT( 324 ) ! MCTP+ACO3=MO2+HO2+MCTO & + RXRAT( 325 ) ! ORAP+ACO3=MO2+GLY & + RXRAT( 326 ) ! OLNN+ACO3=MO2+HO2+ONIT & + 5.0000D-01 * RXRAT( 327 ) ! OLND+ACO3=0.5000D+00*MO2+... & + RXRAT( 328 ) ! ADCN+ACO3=MO2+HO2+0.7000D+... & + RXRAT( 329 ) ! XO2+ACO3=MO2 & + 1.4000D-01 * RXRAT( 333 ) ! HC3P+NO3=0.1400D+00*MO2+... & + 5.5000D-02 * RXRAT( 334 ) ! HC5P+NO3=0.5500D-01*MO2+... & + RXRAT( 345 ) ! ACO3+NO3=MO2+NO2 & + 2.7000D-02 * RXRAT( 386 ) ! ACRO=0.2700D-01*MO2+... & + 7.0000D-01 * RXRAT( 392 ) ! BDE13P+ACO3=0.7000D+00*MO2+... & + 1.7000D-01 * RXRAT( 396 ) ! FURANO2+NO=0.1700D+00*MO2+... & + 8.0000D-02 * RXRAT( 397 ) ! FURANO2+HO2=0.8000D-01*MO2+... & + 3.4000D-01 * RXRAT( 398 ) ! FURANONE+HO=0.3400D+00*MO2+... & + 7.0000D-01 * RXRAT( 480 ) ! VROCP6AROP+ACO3=0.7000D+... & + 7.0000D-01 * RXRAT( 486 ) ! VROCP5AROP+ACO3=0.7000D+... & + 7.0000D-01 * RXRAT( 492 ) ! NAPHP+ACO3=0.7000D+00*MO2+... & + 2.5810D-01 * RXRAT( 493 ) ! VROCN2OXY8+HO=0.2581D+... & + 7.9400D-02 * RXRAT( 494 ) ! VROCN2OXY4+HO=0.7940D-... & + 3.9000D-02 * RXRAT( 495 ) ! VROCN2OXY2+HO=0.3900D-... & + 1.8400D-01 * RXRAT( 496 ) ! VROCN1OXY6+HO=0.1840D+... & + 6.4600D-02 * RXRAT( 497 ) ! VROCN1OXY3+HO=0.6460D-... & + 2.4400D-02 * RXRAT( 498 ) ! VROCN1OXY1+HO=0.2440D-... & + 1.0680D-01 * RXRAT( 499 ) ! VROCP0OXY4+HO=0.1068D+... & + 4.4500D-02 * RXRAT( 500 ) ! VROCP0OXY2+HO=0.4450D-... & + 8.1800D-02 * RXRAT( 501 ) ! VROCP1OXY3+HO=0.8180D-... & + 2.9700D-02 * RXRAT( 502 ) ! VROCP1OXY1+HO=0.2970D-... & + 6.2800D-02 * RXRAT( 503 ) ! VROCP2OXY2+HO=0.6280D-... & + 6.9800D-02 * RXRAT( 504 ) ! VROCP3OXY2+HO=0.6980D-... & + 7.8600D-02 * RXRAT( 505 ) ! VROCP4OXY2+HO=0.7860D-... & + 5.2600D-02 * RXRAT( 506 ) ! VROCP5OXY1+HO=0.5260D-... & + 5.7100D-02 * RXRAT( 507 ) ! VROCP6OXY1+HO=0.5710D-... & + 2.2660D-01 * RXRAT( 508 ) ! OP3+HO=0.2266D+00*MO2+... LOSS( MO2 ) = RXRAT( 173 ) ! MO2+NO=HO2+NO2+HCHO & + RXRAT( 216 ) ! MO2+HO2=OP1 & + 2.0000D+00 * RXRAT( 255 ) ! MO2+MO2=0.7400D+00*HO2+... & + RXRAT( 256 ) ! MO2+ETHP=HO2+0.7500D+... & + 9.2000D-01 * RXRAT( 257 ) ! MO2+HC3P=0.8000D-01*MO2+... & + 9.8200D-01 * RXRAT( 258 ) ! MO2+HC5P=0.1800D-01*MO2+... & + RXRAT( 259 ) ! MO2+ETEP=HO2+0.1950D+... & + RXRAT( 260 ) ! MO2+OLTP=HO2+0.1500D+... & + RXRAT( 261 ) ! MO2+OLIP=HO2+0.7500D+... & + RXRAT( 262 ) ! MO2+BENP=0.6800D+00*HCHO+... & + RXRAT( 263 ) ! MO2+TOLP=0.6800D+00*HCHO+... & + RXRAT( 264 ) ! MO2+XYMP=0.6800D+00*HCHO+... & + RXRAT( 265 ) ! MO2+XYEP=0.6800D+00*HCHO+... & + RXRAT( 266 ) ! MO2+ISOP=HO2+0.1310D+... & + RXRAT( 267 ) ! MO2+APIP1=HO2+0.6800D+... & + RXRAT( 268 ) ! MO2+APIP2=HO2+0.7500D+... & + RXRAT( 269 ) ! MO2+APINP1=0.3700D+00*HO2+... & + RXRAT( 270 ) ! MO2+APINP2=0.7500D+00*HO2+... & + RXRAT( 271 ) ! MO2+LIMP1=HO2+HCHO+0.4200D+... & + RXRAT( 272 ) ! MO2+LIMP2=HO2+0.7500D+... & + RXRAT( 273 ) ! MO2+LIMNP1=0.3700D+00*HO2+... & + RXRAT( 274 ) ! MO2+LIMNP2=0.7500D+00*HO2+... & + 1.0000D-01 * RXRAT( 275 ) ! MO2+ACO3=0.9000D+00*MO2+... & + 1.0000D-01 * RXRAT( 276 ) ! MO2+RCO3=0.9000D+00*MO2+... & + RXRAT( 277 ) ! MO2+ACTP=0.5000D+00*HO2+... & + RXRAT( 278 ) ! MO2+MEKP=0.8340D+00*HO2+... & + RXRAT( 279 ) ! MO2+KETP=HO2+0.7500D+... & + 7.5000D-01 * RXRAT( 280 ) ! MO2+MACP=0.2500D+00*MO2+... & + RXRAT( 281 ) ! MO2+MCP=NO2+HO2+0.1500D+... & + RXRAT( 282 ) ! MO2+MVKP=HO2+0.1160D+... & + RXRAT( 283 ) ! MO2+UALP=HO2+0.3050D+00*CO+... & + RXRAT( 284 ) ! MO2+BALP=HO2+BAL1+HCHO & + RXRAT( 285 ) ! MO2+BAL1=HO2+BAL2+HCHO & + RXRAT( 286 ) ! MO2+ADDC=0.2000D+01*HO2+... & + RXRAT( 287 ) ! MO2+MCTP=HO2+MCTO+HCHO & + RXRAT( 288 ) ! MO2+ORAP=HCHO+HO2+GLY & + RXRAT( 289 ) ! MO2+OLNN=0.2000D+01*HO2+... & + RXRAT( 290 ) ! MO2+OLND=0.5000D+00*HO2+... & + RXRAT( 291 ) ! MO2+ADCN=HO2+0.7000D+... & + RXRAT( 292 ) ! MO2+XO2=HO2+HCHO & + RXRAT( 331 ) ! MO2+NO3=HO2+HCHO+NO2 & + RXRAT( 391 ) ! MO2+BDE13P=0.3200D+00*MOH+... & + RXRAT( 479 ) ! MO2+VROCP6AROP=0.6800D+... & + RXRAT( 485 ) ! MO2+VROCP5AROP=0.6800D+... & + RXRAT( 491 ) ! MO2+NAPHP=0.6800D+00*HCHO+... PROD( ALD ) = 4.3400D-01 * RXRAT( 16 ) ! UALD=0.4340D+00*ALD+... & + RXRAT( 32 ) ! OP2=ALD+HO2+HO & + RXRAT( 33 ) ! OPB=ALD+HO2+HO & + RXRAT( 34 ) ! OP3=ALD+HO2+HO & + 2.0000D-01 * RXRAT( 36 ) ! ONIT=0.2000D+00*ALD+NO2+... & + 4.0000D-01 * RXRAT( 105 ) ! DCB1+HO=0.4000D+00*ALD+... & + 7.1900D-01 * RXRAT( 114 ) ! ROH+HO=0.7190D+00*ALD+HO2+... & + RXRAT( 115 ) ! ETEG+HO=ALD+HO2 & + 8.0000D-02 * RXRAT( 117 ) ! OP2+HO=0.8000D-01*ALD+... & + 8.0000D-02 * RXRAT( 118 ) ! OPB+HO=0.8000D-01*ALD+... & + 8.0000D-02 * RXRAT( 119 ) ! OP3+HO=0.8000D-01*ALD+... & + 4.4000D-01 * RXRAT( 133 ) ! OLT+O3=0.4400D+00*ALD+... & + 7.3000D-01 * RXRAT( 134 ) ! OLI+O3=0.7300D+00*ALD+... & + 1.0000D-01 * RXRAT( 141 ) ! MVK+O3=0.1000D+00*ALD+... & + 3.3200D-01 * RXRAT( 158 ) ! UALD+NO3=0.3320D+00*ALD+... & + 1.3200D-01 * RXRAT( 175 ) ! HC3P+NO=0.1320D+00*ALD+... & + 2.0300D-01 * RXRAT( 176 ) ! HC5P+NO=0.2030D+00*ALD+... & + 2.0000D-01 * RXRAT( 177 ) ! ETEP+NO=0.2000D+00*ALD+NO2+... & + 4.4000D-01 * RXRAT( 178 ) ! OLTP+NO=0.4400D+00*ALD+... & + 6.8000D-01 * RXRAT( 179 ) ! OLIP+NO=0.6800D+00*ALD+... & + 2.7000D-02 * RXRAT( 184 ) ! ISOP+NO=0.2700D-01*ALD+... & + 4.6000D-01 * RXRAT( 199 ) ! KETP+NO=0.4600D+00*ALD+... & + 7.0000D-01 * RXRAT( 202 ) ! MVKP+NO=0.7000D+00*ALD+... & + 2.7000D-01 * RXRAT( 203 ) ! UALP+NO=0.2700D+00*ALD+NO2+... & + 1.2400D+00 * RXRAT( 210 ) ! OLND+NO=0.1240D+01*ALD+... & + 1.9800D-01 * RXRAT( 257 ) ! HC3P+MO2=0.1980D+00*ALD+... & + 2.5100D-01 * RXRAT( 258 ) ! HC5P+MO2=0.2510D+00*ALD+... & + 1.5000D-01 * RXRAT( 259 ) ! ETEP+MO2=0.1500D+00*ALD+... & + 7.0500D-01 * RXRAT( 260 ) ! OLTP+MO2=0.7050D+00*ALD+... & + 1.2800D+00 * RXRAT( 261 ) ! OLIP+MO2=0.1280D+01*ALD+... & + 2.3000D-02 * RXRAT( 266 ) ! ISOP+MO2=0.2300D-01*ALD+... & + 1.7500D+00 * RXRAT( 282 ) ! MVKP+MO2=0.1750D+01*ALD+... & + 2.0300D-01 * RXRAT( 283 ) ! UALP+MO2=0.2030D+00*ALD+... & + 9.3000D-01 * RXRAT( 290 ) ! OLND+MO2=0.9300D+00*ALD+... & + 2.7300D-01 * RXRAT( 294 ) ! HC3P+ACO3=0.2730D+00*ALD+... & + 3.8100D-01 * RXRAT( 295 ) ! HC5P+ACO3=0.3810D+00*ALD+... & + 2.0000D-01 * RXRAT( 296 ) ! ETEP+ACO3=0.2000D+00*ALD+... & + 9.4000D-01 * RXRAT( 297 ) ! OLTP+ACO3=0.9400D+00*ALD+... & + 1.7100D+00 * RXRAT( 298 ) ! OLIP+ACO3=0.1710D+01*ALD+... & + 2.3000D+00 * RXRAT( 319 ) ! MVKP+ACO3=0.2300D+01*ALD+... & + 2.7000D-01 * RXRAT( 320 ) ! UALP+ACO3=0.2700D+00*ALD+... & + 1.2400D+00 * RXRAT( 327 ) ! OLND+ACO3=0.1240D+01*ALD+... & + 1.4700D-01 * RXRAT( 333 ) ! HC3P+NO3=0.1470D+00*ALD+... & + 2.4100D-01 * RXRAT( 334 ) ! HC5P+NO3=0.2410D+00*ALD+... & + 2.0000D-01 * RXRAT( 335 ) ! ETEP+NO3=0.2000D+00*ALD+... & + 4.7000D-01 * RXRAT( 336 ) ! OLTP+NO3=0.4700D+00*ALD+... & + 7.2000D-01 * RXRAT( 337 ) ! OLIP+NO3=0.7200D+00*ALD+... & + 3.1000D-02 * RXRAT( 342 ) ! ISOP+NO3=0.3100D-01*ALD+... & + RXRAT( 343 ) ! APIP1+NO3=ALD+NO2+HO2+KET & + 7.0000D-01 * RXRAT( 352 ) ! MVKP+NO3=0.7000D+00*ALD+... & + 2.7000D-01 * RXRAT( 353 ) ! UALP+NO3=0.2700D+00*ALD+... & + 1.2400D+00 * RXRAT( 360 ) ! OLND+NO3=0.1240D+01*ALD+... & + 6.4000D-01 * RXRAT( 363 ) ! OLNN+OLND=0.6400D+00*ALD+... & + 1.2100D+00 * RXRAT( 364 ) ! OLND+OLND=0.1210D+01*ALD+... & + RXRAT( 399 ) ! FURAN+O3=ALD+0.2000D-01*HO & + 3.8700D-01 * RXRAT( 401 ) ! PROG+HO=0.3870D+00*ALD+... & + 2.5810D-01 * RXRAT( 493 ) ! VROCN2OXY8+HO=0.2581D+... & + 7.9400D-02 * RXRAT( 494 ) ! VROCN2OXY4+HO=0.7940D-... & + 3.9000D-02 * RXRAT( 495 ) ! VROCN2OXY2+HO=0.3900D-... & + 1.8400D-01 * RXRAT( 496 ) ! VROCN1OXY6+HO=0.1840D+... & + 6.4600D-02 * RXRAT( 497 ) ! VROCN1OXY3+HO=0.6460D-... & + 2.4400D-02 * RXRAT( 498 ) ! VROCN1OXY1+HO=0.2440D-... & + 1.0680D-01 * RXRAT( 499 ) ! VROCP0OXY4+HO=0.1068D+... & + 4.4500D-02 * RXRAT( 500 ) ! VROCP0OXY2+HO=0.4450D-... & + 8.1800D-02 * RXRAT( 501 ) ! VROCP1OXY3+HO=0.8180D-... & + 2.9700D-02 * RXRAT( 502 ) ! VROCP1OXY1+HO=0.2970D-... & + 6.2800D-02 * RXRAT( 503 ) ! VROCP2OXY2+HO=0.6280D-... & + 6.9800D-02 * RXRAT( 504 ) ! VROCP3OXY2+HO=0.6980D-... & + 7.8600D-02 * RXRAT( 505 ) ! VROCP4OXY2+HO=0.7860D-... & + 5.2600D-02 * RXRAT( 506 ) ! VROCP5OXY1+HO=0.5260D-... & + 5.7100D-02 * RXRAT( 507 ) ! VROCP6OXY1+HO=0.5710D-... & + 2.2660D-01 * RXRAT( 508 ) ! OP3+HO=0.2266D+00*ALD+... LOSS( ALD ) = RXRAT( 13 ) ! ALD=HO2+ETHP+CO & + RXRAT( 95 ) ! ALD+HO=RCO3 & + RXRAT( 156 ) ! ALD+NO3=RCO3+HNO3 PROD( ETHP ) = RXRAT( 13 ) ! ALD=ETHP+HO2+CO & + RXRAT( 19 ) ! MEK=ETHP+0.1000D+00*MO2+... & + 1.5000D+00 * RXRAT( 20 ) ! KET=0.1500D+01*ETHP+... & + RXRAT( 77 ) ! ETH+HO=ETHP & + 6.0000D-02 * RXRAT( 133 ) ! OLT+O3=0.6000D-01*ETHP+... & + 7.0000D-02 * RXRAT( 134 ) ! OLI+O3=0.7000D-01*ETHP+... & + 4.8000D-02 * RXRAT( 175 ) ! HC3P+NO=0.4800D-01*ETHP+... & + 2.3100D-01 * RXRAT( 176 ) ! HC5P+NO=0.2310D+00*ETHP+... & + RXRAT( 196 ) ! RCO3+NO=ETHP+NO2 & + 4.4000D-01 * RXRAT( 239 ) ! RCO3+HO2=0.4400D+00*ETHP+... & + 2.6000D-02 * RXRAT( 257 ) ! HC3P+MO2=0.2600D-01*ETHP+... & + 1.4000D-01 * RXRAT( 258 ) ! HC5P+MO2=0.1400D+00*ETHP+... & + 2.6000D-02 * RXRAT( 294 ) ! HC3P+ACO3=0.2600D-01*ETHP+... & + 1.4000D-01 * RXRAT( 295 ) ! HC5P+ACO3=0.1400D+00*ETHP+... & + RXRAT( 313 ) ! RCO3+ACO3=ETHP+MO2 & + 2.0000D+00 * RXRAT( 330 ) ! RCO3+RCO3=0.2000D+01*ETHP & + 5.0300D-01 * RXRAT( 333 ) ! HC3P+NO3=0.5030D+00*ETHP+... & + 2.8000D-01 * RXRAT( 334 ) ! HC5P+NO3=0.2800D+00*ETHP+... & + RXRAT( 346 ) ! RCO3+NO3=ETHP+NO2 & + RXRAT( 366 ) ! XO2+RCO3=ETHP & + 8.5200D-01 * RXRAT( 381 ) ! VROCIOXY+HO=0.8520D+... & + RXRAT( 382 ) ! SLOWROC+HO=ETHP+0.1010D-... & + 2.5810D-01 * RXRAT( 493 ) ! VROCN2OXY8+HO=0.2581D+... & + 7.9400D-02 * RXRAT( 494 ) ! VROCN2OXY4+HO=0.7940D-... & + 3.9000D-02 * RXRAT( 495 ) ! VROCN2OXY2+HO=0.3900D-... & + 1.8400D-01 * RXRAT( 496 ) ! VROCN1OXY6+HO=0.1840D+... & + 6.4600D-02 * RXRAT( 497 ) ! VROCN1OXY3+HO=0.6460D-... & + 2.4400D-02 * RXRAT( 498 ) ! VROCN1OXY1+HO=0.2440D-... & + 1.0680D-01 * RXRAT( 499 ) ! VROCP0OXY4+HO=0.1068D+... & + 4.4500D-02 * RXRAT( 500 ) ! VROCP0OXY2+HO=0.4450D-... & + 8.1800D-02 * RXRAT( 501 ) ! VROCP1OXY3+HO=0.8180D-... & + 2.9700D-02 * RXRAT( 502 ) ! VROCP1OXY1+HO=0.2970D-... & + 6.2800D-02 * RXRAT( 503 ) ! VROCP2OXY2+HO=0.6280D-... & + 6.9800D-02 * RXRAT( 504 ) ! VROCP3OXY2+HO=0.6980D-... & + 7.8600D-02 * RXRAT( 505 ) ! VROCP4OXY2+HO=0.7860D-... & + 5.2600D-02 * RXRAT( 506 ) ! VROCP5OXY1+HO=0.5260D-... & + 5.7100D-02 * RXRAT( 507 ) ! VROCP6OXY1+HO=0.5710D-... & + 2.2660D-01 * RXRAT( 508 ) ! OP3+HO=0.2266D+00*ETHP+... LOSS( ETHP ) = RXRAT( 174 ) ! ETHP+NO=HO2+NO2+ACD & + RXRAT( 217 ) ! ETHP+HO2=OP2 & + RXRAT( 256 ) ! ETHP+MO2=HO2+0.7500D+... & + RXRAT( 293 ) ! ETHP+ACO3=0.5000D+00*HO2+... & + RXRAT( 332 ) ! ETHP+NO3=HO2+NO2+ACD PROD( ACT ) = 3.0000D-02 * RXRAT( 133 ) ! OLT+O3=0.3000D-01*ACT+... & + 1.1000D-01 * RXRAT( 134 ) ! OLI+O3=0.1100D+00*ACT+... & + 1.6500D-01 * RXRAT( 175 ) ! HC3P+NO=0.1650D+00*ACT+... & + 2.1700D-01 * RXRAT( 176 ) ! HC5P+NO=0.2170D+00*ACT+... & + 6.0000D-02 * RXRAT( 178 ) ! OLTP+NO=0.6000D-01*ACT+... & + 2.0000D-01 * RXRAT( 179 ) ! OLIP+NO=0.2000D+00*ACT+... & + 9.5000D-02 * RXRAT( 333 ) ! HC3P+NO3=0.9500D-01*ACT+... & + 2.4700D-01 * RXRAT( 334 ) ! HC5P+NO3=0.2470D+00*ACT+... & + 9.0000D-02 * RXRAT( 336 ) ! OLTP+NO3=0.9000D-01*ACT+... & + 2.0000D-01 * RXRAT( 337 ) ! OLIP+NO3=0.2000D+00*ACT+... LOSS( ACT ) = RXRAT( 14 ) ! ACT=MO2+ACO3 & + RXRAT( 15 ) ! ACT=0.2000D+01*MO2+CO & + RXRAT( 96 ) ! ACT+HO=ACTP PROD( UALD ) = 7.0000D-01 * RXRAT( 23 ) ! MVK=0.7000D+00*UALD+... & + 2.8000D-01 * RXRAT( 189 ) ! LIMP1+NO=0.2800D+00*UALD+... & + 3.3300D-01 * RXRAT( 387 ) ! BDE13+HO=0.3330D+00*UALD+... & + 1.9000D-02 * RXRAT( 391 ) ! BDE13P+MO2=0.1900D-01*UALD+... & + 1.5000D-02 * RXRAT( 392 ) ! BDE13P+ACO3=0.1500D-... LOSS( UALD ) = RXRAT( 16 ) ! UALD=0.1220D+01*HO2+... & + RXRAT( 102 ) ! UALD+HO=0.3130D+00*ACO3+... & + RXRAT( 142 ) ! UALD+O3=0.1000D+00*HO+... & + RXRAT( 158 ) ! UALD+NO3=HO2+XO2+0.6680D+... PROD( KET ) = 2.1600D-01 * RXRAT( 16 ) ! UALD=0.2160D+00*KET+... & + 8.0000D-01 * RXRAT( 36 ) ! ONIT=0.8000D+00*KET+NO2+... & + 7.8000D-01 * RXRAT( 105 ) ! DCB1+HO=0.7800D+00*KET+... & + 4.1000D-01 * RXRAT( 117 ) ! OP2+HO=0.4100D+00*KET+... & + 4.1000D-01 * RXRAT( 118 ) ! OPB+HO=0.4100D+00*KET+... & + 4.1000D-01 * RXRAT( 119 ) ! OP3+HO=0.4100D+00*KET+... & + 1.7000D-02 * RXRAT( 134 ) ! OLI+O3=0.1700D-01*KET+... & + 3.3000D-01 * RXRAT( 138 ) ! LIMAL+O3=0.3300D+00*KET+... & + 2.8000D-02 * RXRAT( 142 ) ! UALD+O3=0.2800D-01*KET+... & + 3.3000D-02 * RXRAT( 176 ) ! HC5P+NO=0.3300D-01*KET+... & + 9.0000D-02 * RXRAT( 179 ) ! OLIP+NO=0.9000D-01*KET+... & + 9.5000D-01 * RXRAT( 193 ) ! PINALP+NO=0.9500D+00*KET+... & + 9.4000D-01 * RXRAT( 194 ) ! LIMALP+NO=0.9400D+00*KET+... & + 7.0000D-01 * RXRAT( 203 ) ! UALP+NO=0.7000D+00*KET+NO2+... & + 4.6400D-01 * RXRAT( 210 ) ! OLND+NO=0.4640D+00*KET+... & + 4.9700D-01 * RXRAT( 257 ) ! HC3P+MO2=0.4970D+00*KET+... & + 6.1800D-01 * RXRAT( 258 ) ! HC5P+MO2=0.6180D+00*KET+... & + 4.5000D-02 * RXRAT( 260 ) ! OLTP+MO2=0.4500D-01*KET+... & + 2.1800D-01 * RXRAT( 261 ) ! OLIP+MO2=0.2180D+00*KET+... & + 7.0000D-02 * RXRAT( 267 ) ! APIP1+MO2=0.7000D-01*KET+... & + 3.0000D-01 * RXRAT( 271 ) ! LIMP1+MO2=0.3000D+00*KET+... & + 5.2500D-01 * RXRAT( 283 ) ! UALP+MO2=0.5250D+00*KET+... & + 3.4800D-01 * RXRAT( 290 ) ! OLND+MO2=0.3480D+00*KET+... & + 6.6200D-01 * RXRAT( 294 ) ! HC3P+ACO3=0.6620D+00*KET+... & + 8.2400D-01 * RXRAT( 295 ) ! HC5P+ACO3=0.8240D+00*KET+... & + 6.0000D-02 * RXRAT( 297 ) ! OLTP+ACO3=0.6000D-01*KET+... & + 2.9000D-01 * RXRAT( 298 ) ! OLIP+ACO3=0.2900D+00*KET+... & + 7.0000D-02 * RXRAT( 304 ) ! APIP1+ACO3=0.7000D-01*KET+... & + 3.0000D-01 * RXRAT( 308 ) ! LIMP1+ACO3=0.3000D+00*KET+... & + 7.0000D-01 * RXRAT( 320 ) ! UALP+ACO3=0.7000D+00*KET+... & + 4.6400D-01 * RXRAT( 327 ) ! OLND+ACO3=0.4640D+00*KET+... & + 6.0000D-02 * RXRAT( 334 ) ! HC5P+NO3=0.6000D-01*KET+... & + 1.1000D-01 * RXRAT( 337 ) ! OLIP+NO3=0.1100D+00*KET+... & + RXRAT( 343 ) ! APIP1+NO3=KET+NO2+ALD+HO2 & + 7.0000D-01 * RXRAT( 353 ) ! UALP+NO3=0.7000D+00*KET+... & + 4.6400D-01 * RXRAT( 360 ) ! OLND+NO3=0.4640D+00*KET+... & + 1.4900D-01 * RXRAT( 363 ) ! OLNN+OLND=0.1490D+00*KET+... & + 2.8500D-01 * RXRAT( 364 ) ! OLND+OLND=0.2850D+00*KET+... & + 6.5000D-01 * RXRAT( 398 ) ! FURANONE+HO=0.6500D+00*KET+... & + 8.8000D-01 * RXRAT( 460 ) ! HC10P2+NO=0.8800D+00*KET+... & + RXRAT( 467 ) ! HC10P2+NO3=KET+NO2+HO2 & + 7.9400D-02 * RXRAT( 494 ) ! VROCN2OXY4+HO=0.7940D-... & + 1.8400D-01 * RXRAT( 496 ) ! VROCN1OXY6+HO=0.1840D+... & + 1.0680D-01 * RXRAT( 499 ) ! VROCP0OXY4+HO=0.1068D+... LOSS( KET ) = RXRAT( 20 ) ! KET=0.1500D+01*ETHP+... & + RXRAT( 98 ) ! KET+HO=KETP PROD( PINAL ) = 5.0000D-02 * RXRAT( 136 ) ! API+O3=0.5000D-01*PINAL+... & + 8.2000D-01 * RXRAT( 185 ) ! APIP1+NO=0.8200D+00*PINAL+... & + RXRAT( 187 ) ! APINP1+NO=PINAL+0.2000D+01*NO2 & + 6.0000D-01 * RXRAT( 267 ) ! APIP1+MO2=0.6000D+00*PINAL+... & + 8.6000D-01 * RXRAT( 269 ) ! APINP1+MO2=0.8600D+... & + 6.0000D-01 * RXRAT( 304 ) ! APIP1+ACO3=0.6000D+... & + 8.6000D-01 * RXRAT( 306 ) ! APINP1+ACO3=0.8600D+... & + 4.8000D-01 * RXRAT( 368 ) ! APIP2+APIP1=0.4800D+... & + 4.8000D-01 * RXRAT( 371 ) ! LIMP2+APIP1=0.4800D+... & + 4.8000D-01 * RXRAT( 374 ) ! APINP2+APIP1=0.4800D+... & + 4.8000D-01 * RXRAT( 377 ) ! LIMNP2+APIP1=0.4800D+... LOSS( PINAL ) = RXRAT( 17 ) ! PINAL=HO2+HC10P+CO & + RXRAT( 91 ) ! PINAL+HO=0.2300D+00*PINALP+... PROD( HC10P ) = RXRAT( 17 ) ! PINAL=HC10P+HO2+CO & + RXRAT( 18 ) ! LIMAL=HC10P+HO2+CO & + 4.4000D-01 * RXRAT( 118 ) ! OPB+HO=0.4400D+00*HC10P+... & + 4.4000D-01 * RXRAT( 119 ) ! OP3+HO=0.4400D+00*HC10P+... & + 6.7000D-01 * RXRAT( 138 ) ! LIMAL+O3=0.6700D+00*HC10P+... & + RXRAT( 425 ) ! HC10+HO=HC10P LOSS( HC10P ) = RXRAT( 432 ) ! HC10P+NO=0.7400D+00*HC10P2+... & + RXRAT( 439 ) ! HC10P+NO3=HC10P2+NO2 & + RXRAT( 446 ) ! HC10P+HO2=OP2 PROD( LIMAL ) = 5.0000D-02 * RXRAT( 137 ) ! LIM+O3=0.5000D-01*LIMAL+... & + 4.9000D-01 * RXRAT( 189 ) ! LIMP1+NO=0.4900D+00*LIMAL+... & + RXRAT( 191 ) ! LIMNP1+NO=LIMAL+0.2000D+01*NO2 & + 4.2000D-01 * RXRAT( 271 ) ! LIMP1+MO2=0.4200D+00*LIMAL+... & + 7.0000D-01 * RXRAT( 273 ) ! LIMNP1+MO2=0.7000D+... & + 4.2000D-01 * RXRAT( 308 ) ! LIMP1+ACO3=0.4200D+... & + 7.0000D-01 * RXRAT( 310 ) ! LIMNP1+ACO3=0.7000D+... & + 4.8000D-01 * RXRAT( 369 ) ! APIP2+LIMP1=0.4800D+... & + 4.8000D-01 * RXRAT( 372 ) ! LIMP2+LIMP1=0.4800D+... & + 4.8000D-01 * RXRAT( 375 ) ! APINP2+LIMP1=0.4800D+... & + 4.8000D-01 * RXRAT( 378 ) ! LIMNP2+LIMP1=0.4800D+... LOSS( LIMAL ) = RXRAT( 18 ) ! LIMAL=HO2+HC10P+CO & + RXRAT( 92 ) ! LIMAL+HO=0.7000D+00*LIMALP+... & + RXRAT( 138 ) ! LIMAL+O3=0.4000D-01*HO+... PROD( MEK ) = 1.3000D-01 * RXRAT( 106 ) ! DCB2+HO=0.1300D+00*MEK+... & + 6.0000D-02 * RXRAT( 133 ) ! OLT+O3=0.6000D-01*MEK+... & + 4.2000D-02 * RXRAT( 175 ) ! HC3P+NO=0.4200D-01*MEK+... & + 3.3000D-02 * RXRAT( 176 ) ! HC5P+NO=0.3300D-01*MEK+... & + 1.3000D-01 * RXRAT( 178 ) ! OLTP+NO=0.1300D+00*MEK+... & + 7.5000D-02 * RXRAT( 333 ) ! HC3P+NO3=0.7500D-01*MEK+... & + 6.3000D-02 * RXRAT( 334 ) ! HC5P+NO3=0.6300D-01*MEK+... & + 1.8000D-01 * RXRAT( 336 ) ! OLTP+NO3=0.1800D+00*MEK+... & + 2.5810D-01 * RXRAT( 493 ) ! VROCN2OXY8+HO=0.2581D+... & + 7.9400D-02 * RXRAT( 494 ) ! VROCN2OXY4+HO=0.7940D-... & + 3.9000D-02 * RXRAT( 495 ) ! VROCN2OXY2+HO=0.3900D-... & + 1.8400D-01 * RXRAT( 496 ) ! VROCN1OXY6+HO=0.1840D+... & + 6.4600D-02 * RXRAT( 497 ) ! VROCN1OXY3+HO=0.6460D-... & + 2.4400D-02 * RXRAT( 498 ) ! VROCN1OXY1+HO=0.2440D-... & + 1.0680D-01 * RXRAT( 499 ) ! VROCP0OXY4+HO=0.1068D+... & + 4.4500D-02 * RXRAT( 500 ) ! VROCP0OXY2+HO=0.4450D-... & + 8.1800D-02 * RXRAT( 501 ) ! VROCP1OXY3+HO=0.8180D-... & + 2.9700D-02 * RXRAT( 502 ) ! VROCP1OXY1+HO=0.2970D-... & + 6.2800D-02 * RXRAT( 503 ) ! VROCP2OXY2+HO=0.6280D-... & + 6.9800D-02 * RXRAT( 504 ) ! VROCP3OXY2+HO=0.6980D-... & + 7.8600D-02 * RXRAT( 505 ) ! VROCP4OXY2+HO=0.7860D-... & + 5.2600D-02 * RXRAT( 506 ) ! VROCP5OXY1+HO=0.5260D-... & + 5.7100D-02 * RXRAT( 507 ) ! VROCP6OXY1+HO=0.5710D-... & + 2.2660D-01 * RXRAT( 508 ) ! OP3+HO=0.2266D+00*MEK+... LOSS( MEK ) = RXRAT( 19 ) ! MEK=0.1000D+00*MO2+ETHP+... & + RXRAT( 97 ) ! MEK+HO=MEKP PROD( HKET ) = RXRAT( 127 ) ! MPAN+HO=HKET+NO2 & + RXRAT( 130 ) ! NALD+HO=HKET+XO2+NO2 & + 7.0000D-02 * RXRAT( 131 ) ! ISON+HO=0.7000D-01*HKET+... & + 1.0000D-02 * RXRAT( 133 ) ! OLT+O3=0.1000D-01*HKET+... & + 4.4000D-02 * RXRAT( 134 ) ! OLI+O3=0.4400D-01*HKET+... & + 2.7200D-01 * RXRAT( 176 ) ! HC5P+NO=0.2720D+00*HKET+... & + 2.0000D-02 * RXRAT( 179 ) ! OLIP+NO=0.2000D-01*HKET+... & + 2.9000D-02 * RXRAT( 184 ) ! ISOP+NO=0.2900D-01*HKET+... & + RXRAT( 201 ) ! MCP+NO=HKET+0.5000D+00*HO2+... & + 3.2000D-01 * RXRAT( 206 ) ! ADDC+NO=0.3200D+00*HKET+... & + 1.6000D-02 * RXRAT( 266 ) ! ISOP+MO2=0.1600D-01*HKET+... & + 5.0000D-01 * RXRAT( 281 ) ! MCP+MO2=0.5000D+00*HKET+... & + 3.2000D-01 * RXRAT( 286 ) ! ADDC+MO2=0.3200D+00*HKET+... & + 5.0000D-01 * RXRAT( 318 ) ! MCP+ACO3=0.5000D+00*HKET+... & + 3.2000D-01 * RXRAT( 323 ) ! ADDC+ACO3=0.3200D+00*HKET+... & + 2.7500D-01 * RXRAT( 334 ) ! HC5P+NO3=0.2750D+00*HKET+... & + 4.0000D-02 * RXRAT( 337 ) ! OLIP+NO3=0.4000D-01*HKET+... & + 3.3000D-02 * RXRAT( 342 ) ! ISOP+NO3=0.3300D-01*HKET+... & + RXRAT( 351 ) ! MCP+NO3=HKET+HO2+HCHO+NO2 & + 3.2000D-01 * RXRAT( 356 ) ! ADDC+NO3=0.3200D+00*HKET+... & + 6.1300D-01 * RXRAT( 401 ) ! PROG+HO=0.6130D+00*HKET+... & + 3.9000D-02 * RXRAT( 495 ) ! VROCN2OXY2+HO=0.3900D-... & + 6.4600D-02 * RXRAT( 497 ) ! VROCN1OXY3+HO=0.6460D-... & + 2.4400D-02 * RXRAT( 498 ) ! VROCN1OXY1+HO=0.2440D-... & + 4.4500D-02 * RXRAT( 500 ) ! VROCP0OXY2+HO=0.4450D-... & + 8.1800D-02 * RXRAT( 501 ) ! VROCP1OXY3+HO=0.8180D-... & + 2.9700D-02 * RXRAT( 502 ) ! VROCP1OXY1+HO=0.2970D-... & + 6.2800D-02 * RXRAT( 503 ) ! VROCP2OXY2+HO=0.6280D-... & + 6.9800D-02 * RXRAT( 504 ) ! VROCP3OXY2+HO=0.6980D-... & + 7.8600D-02 * RXRAT( 505 ) ! VROCP4OXY2+HO=0.7860D-... & + 5.2600D-02 * RXRAT( 506 ) ! VROCP5OXY1+HO=0.5260D-... & + 5.7100D-02 * RXRAT( 507 ) ! VROCP6OXY1+HO=0.5710D-... LOSS( HKET ) = RXRAT( 21 ) ! HKET=HO2+ACO3+HCHO & + RXRAT( 99 ) ! HKET+HO=HO2+MGLY PROD( MACR ) = RXRAT( 120 ) ! ISHP+HO=MACR+HO+0.9040D+... & + 4.6100D-01 * RXRAT( 135 ) ! ISO+O3=0.4610D+00*MACR+... & + 2.8000D-01 * RXRAT( 184 ) ! ISOP+NO=0.2800D+00*MACR+... & + 1.5900D-01 * RXRAT( 266 ) ! ISOP+MO2=0.1590D+00*MACR+... & + 2.1900D-01 * RXRAT( 303 ) ! ISOP+ACO3=0.2190D+00*MACR+... & + 3.1800D-01 * RXRAT( 342 ) ! ISOP+NO3=0.3180D+00*MACR+... & + 6.1500D-01 * RXRAT( 344 ) ! LIMP1+NO3=0.6150D+00*MACR+... LOSS( MACR ) = RXRAT( 22 ) ! MACR=0.3400D+00*HO+0.6600D+... & + RXRAT( 100 ) ! MACR+HO=0.5700D+00*MACP+... & + RXRAT( 140 ) ! MACR+O3=0.1900D+00*HO+... & + RXRAT( 157 ) ! MACR+NO3=0.6800D+00*HCHO+... PROD( MACP ) = 3.3000D-01 * RXRAT( 22 ) ! MACR=0.3300D+00*MACP+... & + 3.0000D-01 * RXRAT( 23 ) ! MVK=0.3000D+00*MACP+... & + 5.7000D-01 * RXRAT( 100 ) ! MACR+HO=0.5700D+00*MACP+... & + 2.1000D-01 * RXRAT( 107 ) ! DCB3+HO=0.2100D+00*MACP+... & + RXRAT( 121 ) ! MAHP+HO=MACP & + 1.0000D-01 * RXRAT( 135 ) ! ISO+O3=0.1000D+00*MACP+... & + 3.2000D-01 * RXRAT( 157 ) ! MACR+NO3=0.3200D+00*MACP+... & + RXRAT( 164 ) ! MPAN+NO3=MACP+NO2 & + RXRAT( 172 ) ! MPAN=MACP+NO2 & + 5.7000D-01 * RXRAT( 383 ) ! ACRO+HO=0.5700D+00*MACP+... & + 3.2000D-01 * RXRAT( 385 ) ! ACRO+NO3=0.3200D+00*MACP+... LOSS( MACP ) = RXRAT( 171 ) ! MACP+NO2=MPAN & + RXRAT( 200 ) ! MACP+NO=0.6500D+00*MO2+... & + RXRAT( 243 ) ! MACP+HO2=MAHP & + RXRAT( 280 ) ! MACP+MO2=0.5000D+00*HO2+... & + RXRAT( 317 ) ! MACP+ACO3=0.6350D+00*ORA2+... & + RXRAT( 350 ) ! MACP+NO3=HCHO+0.5380D+... PROD( XO2 ) = 3.4000D-01 * RXRAT( 22 ) ! MACR=0.3400D+00*XO2+... & + 2.0000D-01 * RXRAT( 28 ) ! DCB1=0.2000D+00*XO2+... & + 2.0000D-01 * RXRAT( 29 ) ! DCB2=0.2000D+00*XO2+... & + 7.0000D-02 * RXRAT( 117 ) ! OP2+HO=0.7000D-01*XO2+... & + 7.0000D-02 * RXRAT( 118 ) ! OPB+HO=0.7000D-01*XO2+... & + 7.0000D-02 * RXRAT( 119 ) ! OP3+HO=0.7000D-01*XO2+... & + 3.5000D-01 * RXRAT( 124 ) ! PAA+HO=0.3500D+00*XO2+... & + RXRAT( 125 ) ! PAN+HO=XO2+NO3+HCHO & + RXRAT( 126 ) ! PPN+HO=XO2+NO3+HCHO & + RXRAT( 130 ) ! NALD+HO=XO2+NO2+HKET & + 1.0000D-02 * RXRAT( 141 ) ! MVK+O3=0.1000D-01*XO2+... & + 1.0000D-01 * RXRAT( 142 ) ! UALD+O3=0.1000D+00*XO2+... & + 6.0000D-01 * RXRAT( 143 ) ! DCB1+O3=0.6000D+00*XO2+HO2+... & + 6.0000D-01 * RXRAT( 144 ) ! DCB2+O3=0.6000D+00*XO2+HO2+... & + 6.8000D-01 * RXRAT( 157 ) ! MACR+NO3=0.6800D+00*XO2+... & + RXRAT( 158 ) ! UALD+NO3=XO2+HO2+0.6680D+... & + 8.9000D-02 * RXRAT( 175 ) ! HC3P+NO=0.8900D-01*XO2+... & + 2.3500D-01 * RXRAT( 176 ) ! HC5P+NO=0.2350D+00*XO2+... & + 1.6000D-01 * RXRAT( 199 ) ! KETP+NO=0.1600D+00*XO2+... & + 7.0000D-01 * RXRAT( 202 ) ! MVKP+NO=0.7000D+00*XO2+... & + 2.6000D-02 * RXRAT( 257 ) ! HC3P+MO2=0.2600D-01*XO2+... & + 1.9100D-01 * RXRAT( 258 ) ! HC5P+MO2=0.1910D+00*XO2+... & + 1.1600D+00 * RXRAT( 282 ) ! MVKP+MO2=0.1160D+01*XO2+... & + 2.6000D-02 * RXRAT( 294 ) ! HC3P+ACO3=0.2600D-01*XO2+... & + 1.9100D-01 * RXRAT( 295 ) ! HC5P+ACO3=0.1910D+00*XO2+... & + 1.1600D+00 * RXRAT( 319 ) ! MVKP+ACO3=0.1160D+01*XO2+... & + 9.2000D-02 * RXRAT( 333 ) ! HC3P+NO3=0.9200D-01*XO2+... & + 4.8500D-01 * RXRAT( 334 ) ! HC5P+NO3=0.4850D+00*XO2+... & + 7.0000D-01 * RXRAT( 352 ) ! MVKP+NO3=0.7000D+00*XO2+... & + 6.8000D-01 * RXRAT( 385 ) ! ACRO+NO3=0.6800D+00*XO2+... LOSS( XO2 ) = RXRAT( 212 ) ! XO2+NO=NO2 & + RXRAT( 254 ) ! XO2+HO2=OP2 & + RXRAT( 292 ) ! XO2+MO2=HO2+HCHO & + RXRAT( 329 ) ! XO2+ACO3=MO2 & + RXRAT( 365 ) ! XO2+NO3=NO2 & + RXRAT( 366 ) ! XO2+RCO3=ETHP & + 2.0000D+00 * RXRAT( 367 ) ! XO2+XO2= PROD( MVK ) = 1.8900D-01 * RXRAT( 135 ) ! ISO+O3=0.1890D+00*MVK+... & + 4.4000D-01 * RXRAT( 184 ) ! ISOP+NO=0.4400D+00*MVK+... & + 2.5000D-01 * RXRAT( 266 ) ! ISOP+MO2=0.2500D+00*MVK+... & + 3.0500D-01 * RXRAT( 303 ) ! ISOP+ACO3=0.3050D+00*MVK+... & + 5.0000D-01 * RXRAT( 342 ) ! ISOP+NO3=0.5000D+00*MVK+... & + 4.8000D-01 * RXRAT( 370 ) ! APIP2+ISOP=0.4800D+00*MVK+... & + 4.8000D-01 * RXRAT( 373 ) ! LIMP2+ISOP=0.4800D+00*MVK+... & + 4.8000D-01 * RXRAT( 376 ) ! APINP2+ISOP=0.4800D+00*MVK+... & + 4.8000D-01 * RXRAT( 379 ) ! LIMNP2+ISOP=0.4800D+00*MVK+... & + 2.3100D-01 * RXRAT( 391 ) ! BDE13P+MO2=0.2310D+00*MVK+... & + 1.8500D-01 * RXRAT( 392 ) ! BDE13P+ACO3=0.1850D+00*MVK+... LOSS( MVK ) = RXRAT( 23 ) ! MVK=0.3000D+00*MO2+0.3000D+... & + RXRAT( 101 ) ! MVK+HO=MVKP & + RXRAT( 141 ) ! MVK+O3=0.1600D+00*HO+... PROD( GLY ) = 5.0000D-01 * RXRAT( 28 ) ! DCB1=0.5000D+00*GLY+... & + 5.0000D-01 * RXRAT( 29 ) ! DCB2=0.5000D+00*GLY+... & + 6.5000D-01 * RXRAT( 83 ) ! ACE+HO=0.6500D+00*GLY+... & + 1.0000D-01 * RXRAT( 105 ) ! DCB1+HO=0.1000D+00*GLY+... & + 1.0000D-01 * RXRAT( 106 ) ! DCB2+HO=0.1000D+00*GLY+... & + 2.7000D-01 * RXRAT( 107 ) ! DCB3+HO=0.2700D+00*GLY+... & + 4.9100D-01 * RXRAT( 142 ) ! UALD+O3=0.4910D+00*GLY+... & + 5.0000D-02 * RXRAT( 143 ) ! DCB1+O3=0.5000D-01*GLY+HO2+... & + 5.0000D-02 * RXRAT( 144 ) ! DCB2+O3=0.5000D-01*GLY+HO2+... & + 4.8000D-01 * RXRAT( 145 ) ! DCB3+O3=0.4800D+00*GLY+HO2+... & + 9.9800D-01 * RXRAT( 180 ) ! BENP+NO=0.9980D+00*GLY+... & + 5.4770D-01 * RXRAT( 181 ) ! TOLP+NO=0.5477D+00*GLY+... & + 7.0290D-01 * RXRAT( 182 ) ! XYMP+NO=0.7029D+00*GLY+... & + 5.4770D-01 * RXRAT( 183 ) ! XYEP+NO=0.5477D+00*GLY+... & + 2.1000D-02 * RXRAT( 184 ) ! ISOP+NO=0.2100D-01*GLY+... & + 1.8000D-01 * RXRAT( 203 ) ! UALP+NO=0.1800D+00*GLY+NO2+... & + 6.8000D-01 * RXRAT( 206 ) ! ADDC+NO=0.6800D+00*GLY+NO2+... & + RXRAT( 208 ) ! ORAP+NO=GLY+NO2+HO2 & + RXRAT( 211 ) ! ADCN+NO=GLY+0.2000D+01*NO2+OP2 & + 5.0000D-02 * RXRAT( 257 ) ! HC3P+MO2=0.5000D-01*GLY+... & + RXRAT( 262 ) ! BENP+MO2=GLY+0.1370D+... & + 5.4880D-01 * RXRAT( 263 ) ! TOLP+MO2=0.5488D+00*GLY+... & + 7.0430D-01 * RXRAT( 264 ) ! XYMP+MO2=0.7043D+00*GLY+... & + 5.4880D-01 * RXRAT( 265 ) ! XYEP+MO2=0.5488D+00*GLY+... & + 1.8000D-02 * RXRAT( 266 ) ! ISOP+MO2=0.1800D-01*GLY+... & + 1.3500D-01 * RXRAT( 283 ) ! UALP+MO2=0.1350D+00*GLY+... & + 6.8000D-01 * RXRAT( 286 ) ! ADDC+MO2=0.6800D+00*GLY+... & + RXRAT( 288 ) ! ORAP+MO2=GLY+HO2+HCHO & + 7.0000D-01 * RXRAT( 291 ) ! ADCN+MO2=0.7000D+00*GLY+... & + 6.7000D-02 * RXRAT( 294 ) ! HC3P+ACO3=0.6700D-01*GLY+... & + RXRAT( 299 ) ! BENP+ACO3=GLY+HO2+0.3000D+... & + 5.4880D-01 * RXRAT( 300 ) ! TOLP+ACO3=0.5488D+00*GLY+... & + 7.0430D-01 * RXRAT( 301 ) ! XYMP+ACO3=0.7043D+00*GLY+... & + 5.4880D-01 * RXRAT( 302 ) ! XYEP+ACO3=0.5488D+00*GLY+... & + 1.8000D-01 * RXRAT( 320 ) ! UALP+ACO3=0.1800D+00*GLY+... & + 6.8000D-01 * RXRAT( 323 ) ! ADDC+ACO3=0.6800D+00*GLY+... & + RXRAT( 325 ) ! ORAP+ACO3=GLY+MO2 & + 7.0000D-01 * RXRAT( 328 ) ! ADCN+ACO3=0.7000D+00*GLY+... & + RXRAT( 338 ) ! BENP+NO3=GLY+HO2+0.0000D+... & + 5.4880D-01 * RXRAT( 339 ) ! TOLP+NO3=0.5488D+00*GLY+... & + 7.0430D-01 * RXRAT( 340 ) ! XYMP+NO3=0.7043D+00*GLY+... & + 5.4880D-01 * RXRAT( 341 ) ! XYEP+NO3=0.5488D+00*GLY+... & + 2.4000D-02 * RXRAT( 342 ) ! ISOP+NO3=0.2400D-01*GLY+... & + 1.8000D-01 * RXRAT( 353 ) ! UALP+NO3=0.1800D+00*GLY+... & + 6.8000D-01 * RXRAT( 356 ) ! ADDC+NO3=0.6800D+00*GLY+... & + RXRAT( 358 ) ! ORAP+NO3=GLY+NO2+HO2 & + RXRAT( 361 ) ! ADCN+NO3=GLY+0.2000D+... & + 6.2000D-01 * RXRAT( 384 ) ! ACRO+O3=0.6200D+00*GLY+... & + 3.1000D-01 * RXRAT( 398 ) ! FURANONE+HO=0.3100D+00*GLY+... & + 4.6930D-01 * RXRAT( 477 ) ! VROCP6AROP+NO=0.4693D+... & + 4.7020D-01 * RXRAT( 478 ) ! VROCP6AROP+NO3=0.4702D+... & + 4.7020D-01 * RXRAT( 479 ) ! VROCP6AROP+MO2=0.4702D+... & + 4.7020D-01 * RXRAT( 480 ) ! VROCP6AROP+ACO3=0.4702D+... & + 4.6930D-01 * RXRAT( 483 ) ! VROCP5AROP+NO=0.4693D+... & + 4.7020D-01 * RXRAT( 484 ) ! VROCP5AROP+NO3=0.4702D+... & + 4.7020D-01 * RXRAT( 485 ) ! VROCP5AROP+MO2=0.4702D+... & + 4.7020D-01 * RXRAT( 486 ) ! VROCP5AROP+ACO3=0.4702D+... & + 4.6930D-01 * RXRAT( 489 ) ! NAPHP+NO=0.4693D+00*GLY+... & + 4.7020D-01 * RXRAT( 490 ) ! NAPHP+NO3=0.4702D+00*GLY+... & + 4.7020D-01 * RXRAT( 491 ) ! NAPHP+MO2=0.4702D+00*GLY+... & + 4.7020D-01 * RXRAT( 492 ) ! NAPHP+ACO3=0.4702D+00*GLY+... LOSS( GLY ) = RXRAT( 24 ) ! GLY=0.2000D+01*CO & + RXRAT( 25 ) ! GLY=HCHO+CO & + RXRAT( 26 ) ! GLY=0.2000D+01*HO2+0.2000D+... & + RXRAT( 103 ) ! GLY+HO=HO2+0.2000D+01*CO & + RXRAT( 159 ) ! GLY+NO3=HO2+0.2000D+01*CO+HNO3 & + RXRAT( 411 ) ! GLY=AGLYJ PROD( MGLY ) = 5.0000D-01 * RXRAT( 28 ) ! DCB1=0.5000D+00*MGLY+... & + 5.0000D-01 * RXRAT( 29 ) ! DCB2=0.5000D+00*MGLY+... & + RXRAT( 99 ) ! HKET+HO=MGLY+HO2 & + 1.0000D-02 * RXRAT( 105 ) ! DCB1+HO=0.1000D-01*MGLY+... & + 1.0000D-02 * RXRAT( 106 ) ! DCB2+HO=0.1000D-01*MGLY+... & + 1.0000D-02 * RXRAT( 107 ) ! DCB3+HO=0.1000D-01*MGLY+... & + 5.0000D-01 * RXRAT( 140 ) ! MACR+O3=0.5000D+00*MGLY+... & + 5.4000D-01 * RXRAT( 141 ) ! MVK+O3=0.5400D+00*MGLY+... & + 3.0000D-03 * RXRAT( 142 ) ! UALD+O3=0.3000D-02*MGLY+... & + 8.0000D-02 * RXRAT( 143 ) ! DCB1+O3=0.8000D-01*MGLY+... & + 8.0000D-02 * RXRAT( 144 ) ! DCB2+O3=0.8000D-01*MGLY+... & + 6.8000D-01 * RXRAT( 157 ) ! MACR+NO3=0.6800D+00*MGLY+... & + 3.6510D-01 * RXRAT( 181 ) ! TOLP+NO=0.3651D+00*MGLY+... & + 2.4700D-01 * RXRAT( 182 ) ! XYMP+NO=0.2470D+00*MGLY+... & + 3.6510D-01 * RXRAT( 183 ) ! XYEP+NO=0.3651D+00*MGLY+... & + 5.4000D-01 * RXRAT( 199 ) ! KETP+NO=0.5400D+00*MGLY+... & + 3.0000D-01 * RXRAT( 202 ) ! MVKP+NO=0.3000D+00*MGLY+... & + 2.1000D-01 * RXRAT( 203 ) ! UALP+NO=0.2100D+00*MGLY+... & + 3.6590D-01 * RXRAT( 263 ) ! TOLP+MO2=0.3659D+00*MGLY+... & + 2.4750D-01 * RXRAT( 264 ) ! XYMP+MO2=0.2475D+00*MGLY+... & + 3.6590D-01 * RXRAT( 265 ) ! XYEP+MO2=0.3659D+00*MGLY+... & + 5.0000D-01 * RXRAT( 282 ) ! MVKP+MO2=0.5000D+00*MGLY+... & + 1.0500D-01 * RXRAT( 283 ) ! UALP+MO2=0.1050D+00*MGLY+... & + 3.6590D-01 * RXRAT( 300 ) ! TOLP+ACO3=0.3659D+00*MGLY+... & + 2.4750D-01 * RXRAT( 301 ) ! XYMP+ACO3=0.2475D+00*MGLY+... & + 3.6590D-01 * RXRAT( 302 ) ! XYEP+ACO3=0.3659D+00*MGLY+... & + 5.0000D-01 * RXRAT( 319 ) ! MVKP+ACO3=0.5000D+00*MGLY+... & + 1.0500D-01 * RXRAT( 320 ) ! UALP+ACO3=0.1050D+00*MGLY+... & + 3.6590D-01 * RXRAT( 339 ) ! TOLP+NO3=0.3659D+00*MGLY+... & + 2.4750D-01 * RXRAT( 340 ) ! XYMP+NO3=0.2475D+00*MGLY+... & + 3.6590D-01 * RXRAT( 341 ) ! XYEP+NO3=0.3659D+00*MGLY+... & + 3.0000D-01 * RXRAT( 352 ) ! MVKP+NO3=0.3000D+00*MGLY+... & + 2.1000D-01 * RXRAT( 353 ) ! UALP+NO3=0.2100D+00*MGLY+... & + 6.8000D-01 * RXRAT( 385 ) ! ACRO+NO3=0.6800D+00*MGLY+... & + 4.6930D-01 * RXRAT( 477 ) ! VROCP6AROP+NO=0.4693D+... & + 4.7020D-01 * RXRAT( 478 ) ! VROCP6AROP+NO3=0.4702D+... & + 4.7020D-01 * RXRAT( 479 ) ! VROCP6AROP+MO2=0.4702D+... & + 4.7020D-01 * RXRAT( 480 ) ! VROCP6AROP+ACO3=0.4702D+... & + 4.6930D-01 * RXRAT( 483 ) ! VROCP5AROP+NO=0.4693D+... & + 4.7020D-01 * RXRAT( 484 ) ! VROCP5AROP+NO3=0.4702D+... & + 4.7020D-01 * RXRAT( 485 ) ! VROCP5AROP+MO2=0.4702D+... & + 4.7020D-01 * RXRAT( 486 ) ! VROCP5AROP+ACO3=0.4702D+... & + 4.6930D-01 * RXRAT( 489 ) ! NAPHP+NO=0.4693D+00*MGLY+... & + 4.7020D-01 * RXRAT( 490 ) ! NAPHP+NO3=0.4702D+00*MGLY+... & + 4.7020D-01 * RXRAT( 491 ) ! NAPHP+MO2=0.4702D+00*MGLY+... & + 4.7020D-01 * RXRAT( 492 ) ! NAPHP+ACO3=0.4702D+00*MGLY+... LOSS( MGLY ) = RXRAT( 27 ) ! MGLY=HO2+ACO3+CO & + RXRAT( 104 ) ! MGLY+HO=ACO3+CO & + RXRAT( 160 ) ! MGLY+NO3=ACO3+CO+HNO3 & + RXRAT( 412 ) ! MGLY=AGLYJ PROD( DCB1 ) = 7.0000D-01 * RXRAT( 144 ) ! DCB2+O3=0.7000D+00*DCB1+... & + 7.0000D-01 * RXRAT( 145 ) ! DCB3+O3=0.7000D+00*DCB1+... & + 5.4770D-01 * RXRAT( 181 ) ! TOLP+NO=0.5477D+00*DCB1+... & + 6.7000D-01 * RXRAT( 198 ) ! MEKP+NO=0.6700D+00*DCB1+... & + 5.4880D-01 * RXRAT( 263 ) ! TOLP+MO2=0.5488D+00*DCB1+... & + 3.3400D-01 * RXRAT( 278 ) ! MEKP+MO2=0.3340D+00*DCB1+... & + 5.0000D-01 * RXRAT( 279 ) ! KETP+MO2=0.5000D+00*DCB1+... & + 5.4880D-01 * RXRAT( 300 ) ! TOLP+ACO3=0.5488D+00*DCB1+... & + 3.3400D-01 * RXRAT( 315 ) ! MEKP+ACO3=0.3340D+00*DCB1+... & + 5.0000D-01 * RXRAT( 316 ) ! KETP+ACO3=0.5000D+00*DCB1+... & + 5.4880D-01 * RXRAT( 339 ) ! TOLP+NO3=0.5488D+00*DCB1+... & + 6.7000D-01 * RXRAT( 348 ) ! MEKP+NO3=0.6700D+00*DCB1+... & + RXRAT( 349 ) ! KETP+NO3=DCB1+NO2+HO2 & + 4.9000D-01 * RXRAT( 395 ) ! FURAN+HO=0.4900D+00*DCB1+... & + 8.0000D-01 * RXRAT( 400 ) ! FURAN+NO3=0.8000D+00*DCB1+... & + 2.5810D-01 * RXRAT( 493 ) ! VROCN2OXY8+HO=0.2581D+... & + 7.9400D-02 * RXRAT( 494 ) ! VROCN2OXY4+HO=0.7940D-... & + 3.9000D-02 * RXRAT( 495 ) ! VROCN2OXY2+HO=0.3900D-... & + 1.8400D-01 * RXRAT( 496 ) ! VROCN1OXY6+HO=0.1840D+... & + 6.4600D-02 * RXRAT( 497 ) ! VROCN1OXY3+HO=0.6460D-... & + 2.4400D-02 * RXRAT( 498 ) ! VROCN1OXY1+HO=0.2440D-... & + 1.0680D-01 * RXRAT( 499 ) ! VROCP0OXY4+HO=0.1068D+... & + 4.4500D-02 * RXRAT( 500 ) ! VROCP0OXY2+HO=0.4450D-... & + 8.1800D-02 * RXRAT( 501 ) ! VROCP1OXY3+HO=0.8180D-... & + 2.9700D-02 * RXRAT( 502 ) ! VROCP1OXY1+HO=0.2970D-... & + 6.2800D-02 * RXRAT( 503 ) ! VROCP2OXY2+HO=0.6280D-... & + 6.9800D-02 * RXRAT( 504 ) ! VROCP3OXY2+HO=0.6980D-... & + 7.8600D-02 * RXRAT( 505 ) ! VROCP4OXY2+HO=0.7860D-... & + 5.2600D-02 * RXRAT( 506 ) ! VROCP5OXY1+HO=0.5260D-... & + 5.7100D-02 * RXRAT( 507 ) ! VROCP6OXY1+HO=0.5710D-... & + 2.2660D-01 * RXRAT( 508 ) ! OP3+HO=0.2266D+00*DCB1+... LOSS( DCB1 ) = RXRAT( 28 ) ! DCB1=0.1500D+01*HO2+... & + RXRAT( 105 ) ! DCB1+HO=0.5200D+00*HO2+... & + RXRAT( 143 ) ! DCB1+O3=0.5000D-01*HO+HO2+... PROD( DCB2 ) = 2.4950D-01 * RXRAT( 180 ) ! BENP+NO=0.2495D+00*DCB2+... & + 5.9840D-01 * RXRAT( 182 ) ! XYMP+NO=0.5984D+00*DCB2+... & + 4.5640D-01 * RXRAT( 183 ) ! XYEP+NO=0.4564D+00*DCB2+... & + 2.5000D-01 * RXRAT( 262 ) ! BENP+MO2=0.2500D+00*DCB2+... & + 5.9960D-01 * RXRAT( 264 ) ! XYMP+MO2=0.5996D+00*DCB2+... & + 4.5730D-01 * RXRAT( 265 ) ! XYEP+MO2=0.4573D+00*DCB2+... & + 2.5000D-01 * RXRAT( 299 ) ! BENP+ACO3=0.2500D+00*DCB2+... & + 5.9960D-01 * RXRAT( 301 ) ! XYMP+ACO3=0.5996D+00*DCB2+... & + 4.5730D-01 * RXRAT( 302 ) ! XYEP+ACO3=0.4573D+00*DCB2+... & + 2.5000D-01 * RXRAT( 338 ) ! BENP+NO3=0.2500D+00*DCB2+... & + 5.9960D-01 * RXRAT( 340 ) ! XYMP+NO3=0.5996D+00*DCB2+... & + 4.5730D-01 * RXRAT( 341 ) ! XYEP+NO3=0.4573D+00*DCB2+... & + 4.6930D-01 * RXRAT( 477 ) ! VROCP6AROP+NO=0.4693D+... & + 4.7020D-01 * RXRAT( 478 ) ! VROCP6AROP+NO3=0.4702D+... & + 4.7020D-01 * RXRAT( 479 ) ! VROCP6AROP+MO2=0.4702D+... & + 4.7020D-01 * RXRAT( 480 ) ! VROCP6AROP+ACO3=0.4702D+... & + 4.6930D-01 * RXRAT( 483 ) ! VROCP5AROP+NO=0.4693D+... & + 4.7020D-01 * RXRAT( 484 ) ! VROCP5AROP+NO3=0.4702D+... & + 4.7020D-01 * RXRAT( 485 ) ! VROCP5AROP+MO2=0.4702D+... & + 4.7020D-01 * RXRAT( 486 ) ! VROCP5AROP+ACO3=0.4702D+... & + 4.6930D-01 * RXRAT( 489 ) ! NAPHP+NO=0.4693D+00*DCB2+... & + 4.7020D-01 * RXRAT( 490 ) ! NAPHP+NO3=0.4702D+00*DCB2+... & + 4.7020D-01 * RXRAT( 491 ) ! NAPHP+MO2=0.4702D+00*DCB2+... & + 4.7020D-01 * RXRAT( 492 ) ! NAPHP+ACO3=0.4702D+00*DCB2+... LOSS( DCB2 ) = RXRAT( 29 ) ! DCB2=0.1500D+01*HO2+... & + RXRAT( 106 ) ! DCB2+HO=0.5200D+00*HO2+... & + RXRAT( 144 ) ! DCB2+O3=0.5000D-01*HO+HO2+... PROD( BALD ) = 2.0000D-02 * RXRAT( 133 ) ! OLT+O3=0.2000D-01*BALD+... & + 8.5200D-02 * RXRAT( 181 ) ! TOLP+NO=0.8520D-01*BALD+... & + 4.8100D-02 * RXRAT( 182 ) ! XYMP+NO=0.4810D-01*BALD+... & + 8.5200D-02 * RXRAT( 183 ) ! XYEP+NO=0.8520D-01*BALD+... & + 8.5400D-02 * RXRAT( 263 ) ! TOLP+MO2=0.8540D-01*BALD+... & + 4.8200D-02 * RXRAT( 264 ) ! XYMP+MO2=0.4820D-01*BALD+... & + 8.5400D-02 * RXRAT( 265 ) ! XYEP+MO2=0.8540D-01*BALD+... & + 8.5400D-02 * RXRAT( 300 ) ! TOLP+ACO3=0.8540D-01*BALD+... & + 4.8200D-02 * RXRAT( 301 ) ! XYMP+ACO3=0.4820D-01*BALD+... & + 8.5400D-02 * RXRAT( 302 ) ! XYEP+ACO3=0.8540D-01*BALD+... & + 8.5400D-02 * RXRAT( 339 ) ! TOLP+NO3=0.8540D-01*BALD+... & + 4.8200D-02 * RXRAT( 340 ) ! XYMP+NO3=0.4820D-01*BALD+... & + 8.5400D-02 * RXRAT( 341 ) ! XYEP+NO3=0.8540D-01*BALD+... & + 5.9400D-02 * RXRAT( 477 ) ! VROCP6AROP+NO=0.5940D-... & + 5.9500D-02 * RXRAT( 478 ) ! VROCP6AROP+NO3=0.5950D-... & + 5.9500D-02 * RXRAT( 479 ) ! VROCP6AROP+MO2=0.5950D-... & + 5.9500D-02 * RXRAT( 480 ) ! VROCP6AROP+ACO3=0.5950D-... LOSS( BALD ) = RXRAT( 30 ) ! BALD=CHO+HO2+CO & + RXRAT( 108 ) ! BALD+HO=BALP PROD( CHO ) = RXRAT( 30 ) ! BALD=CHO+HO2+CO & + 5.9000D-02 * RXRAT( 109 ) ! PHEN+HO=0.5900D-01*CHO+... & + 5.6000D-02 * RXRAT( 110 ) ! CSL+HO=0.5600D-01*CHO+... & + 3.3900D-01 * RXRAT( 161 ) ! PHEN+NO3=0.3390D+00*CHO+... & + 3.2000D-01 * RXRAT( 162 ) ! CSL+NO3=0.3200D+00*CHO+... LOSS( CHO ) = RXRAT( 214 ) ! CHO+NO2=ONIT & + RXRAT( 248 ) ! CHO+HO2=CSL PROD( OP1 ) = RXRAT( 216 ) ! MO2+HO2=OP1 LOSS( OP1 ) = RXRAT( 31 ) ! OP1=HO+HO2+HCHO & + RXRAT( 116 ) ! OP1+HO=0.3500D+00*HO+... PROD( OP2 ) = 7.8000D-01 * RXRAT( 106 ) ! DCB2+HO=0.7800D+00*OP2+... & + 7.9000D-01 * RXRAT( 107 ) ! DCB3+HO=0.7900D+00*OP2+... & + 6.5000D-01 * RXRAT( 143 ) ! DCB1+O3=0.6500D+00*OP2+HO2+... & + 6.5000D-01 * RXRAT( 144 ) ! DCB2+O3=0.6500D+00*OP2+HO2+... & + 6.8000D-01 * RXRAT( 206 ) ! ADDC+NO=0.6800D+00*OP2+NO2+... & + RXRAT( 211 ) ! ADCN+NO=OP2+GLY+0.2000D+01*NO2 & + RXRAT( 217 ) ! ETHP+HO2=OP2 & + RXRAT( 218 ) ! HC3P+HO2=OP2 & + RXRAT( 219 ) ! HC5P+HO2=OP2 & + RXRAT( 220 ) ! ETEP+HO2=OP2 & + RXRAT( 221 ) ! OLTP+HO2=OP2 & + RXRAT( 222 ) ! OLIP+HO2=OP2 & + 6.0210D-01 * RXRAT( 223 ) ! BENP+HO2=0.6021D+00*OP2+... & + 7.1950D-01 * RXRAT( 224 ) ! TOLP+HO2=0.7195D+00*OP2+... & + 4.8200D-02 * RXRAT( 225 ) ! XYMP+HO2=0.4820D-01*OP2+... & + 8.5400D-02 * RXRAT( 226 ) ! XYEP+HO2=0.8540D-01*OP2+... & + 8.5000D-01 * RXRAT( 240 ) ! ACTP+HO2=0.8500D+00*OP2+... & + RXRAT( 241 ) ! MEKP+HO2=OP2 & + RXRAT( 242 ) ! KETP+HO2=OP2 & + RXRAT( 245 ) ! MVKP+HO2=OP2 & + RXRAT( 246 ) ! UALP+HO2=OP2 & + RXRAT( 247 ) ! ADDC+HO2=OP2 & + RXRAT( 249 ) ! MCTP+HO2=OP2 & + RXRAT( 250 ) ! ORAP+HO2=OP2 & + RXRAT( 253 ) ! ADCN+HO2=OP2 & + RXRAT( 254 ) ! XO2+HO2=OP2 & + 6.8000D-01 * RXRAT( 286 ) ! ADDC+MO2=0.6800D+00*OP2+... & + 7.0000D-01 * RXRAT( 291 ) ! ADCN+MO2=0.7000D+00*OP2+... & + 6.8000D-01 * RXRAT( 323 ) ! ADDC+ACO3=0.6800D+00*OP2+... & + 7.0000D-01 * RXRAT( 328 ) ! ADCN+ACO3=0.7000D+00*OP2+... & + 6.8000D-01 * RXRAT( 356 ) ! ADDC+NO3=0.6800D+00*OP2+... & + RXRAT( 361 ) ! ADCN+NO3=OP2+GLY+0.2000D+... & + RXRAT( 390 ) ! BDE13P+HO2=OP2 & + 6.0000D-01 * RXRAT( 397 ) ! FURANO2+HO2=0.6000D+00*OP2+... & + RXRAT( 446 ) ! HC10P+HO2=OP2 & + 4.0000D-03 * RXRAT( 494 ) ! VROCN2OXY4+HO=0.4000D-... & + 1.3500D-02 * RXRAT( 497 ) ! VROCN1OXY3+HO=0.1350D-... & + 6.2000D-03 * RXRAT( 498 ) ! VROCN1OXY1+HO=0.6200D-... & + 5.4000D-03 * RXRAT( 499 ) ! VROCP0OXY4+HO=0.5400D-... & + 1.7000D-02 * RXRAT( 501 ) ! VROCP1OXY3+HO=0.1700D-... & + 2.5000D-03 * RXRAT( 502 ) ! VROCP1OXY1+HO=0.2500D-... & + 2.3000D-03 * RXRAT( 503 ) ! VROCP2OXY2+HO=0.2300D-... & + 1.1400D-02 * RXRAT( 504 ) ! VROCP3OXY2+HO=0.1140D-... & + 1.5500D-02 * RXRAT( 505 ) ! VROCP4OXY2+HO=0.1550D-... & + 3.8400D-02 * RXRAT( 506 ) ! VROCP5OXY1+HO=0.3840D-... & + 5.8500D-02 * RXRAT( 507 ) ! VROCP6OXY1+HO=0.5850D-... LOSS( OP2 ) = RXRAT( 32 ) ! OP2=HO+HO2+ALD & + RXRAT( 117 ) ! OP2+HO=0.1000D-01*HO+... PROD( OPB ) = RXRAT( 228 ) ! APIP1+HO2=OPB & + RXRAT( 232 ) ! LIMP1+HO2=OPB & + RXRAT( 236 ) ! PINALP+HO2=OPB & + RXRAT( 237 ) ! LIMALP+HO2=OPB LOSS( OPB ) = RXRAT( 33 ) ! OPB=HO+HO2+ALD & + RXRAT( 118 ) ! OPB+HO=0.1000D-01*HO+... PROD( OP3 ) = 6.7470D-01 * RXRAT( 225 ) ! XYMP+HO2=0.6747D+00*OP3+... & + 6.3410D-01 * RXRAT( 226 ) ! XYEP+HO2=0.6341D+00*OP3+... & + 3.0800D-02 * RXRAT( 494 ) ! VROCN2OXY4+HO=0.3080D-... & + 2.6000D-03 * RXRAT( 495 ) ! VROCN2OXY2+HO=0.2600D-... & + 1.6300D-02 * RXRAT( 498 ) ! VROCN1OXY1+HO=0.1630D-... & + 1.0500D-02 * RXRAT( 500 ) ! VROCP0OXY2+HO=0.1050D-... & + 1.5400D-02 * RXRAT( 501 ) ! VROCP1OXY3+HO=0.1540D-... & + 6.6000D-03 * RXRAT( 502 ) ! VROCP1OXY1+HO=0.6600D-... & + 4.1000D-03 * RXRAT( 503 ) ! VROCP2OXY2+HO=0.4100D-... & + 5.0600D-02 * RXRAT( 504 ) ! VROCP3OXY2+HO=0.5060D-... & + 6.0700D-02 * RXRAT( 505 ) ! VROCP4OXY2+HO=0.6070D-... & + 2.1600D-02 * RXRAT( 506 ) ! VROCP5OXY1+HO=0.2160D-... & + 3.1600D-02 * RXRAT( 507 ) ! VROCP6OXY1+HO=0.3160D-... LOSS( OP3 ) = RXRAT( 34 ) ! OP3=HO+HO2+ALD & + RXRAT( 119 ) ! OP3+HO=0.1000D-01*HO+... & + RXRAT( 508 ) ! OP3+HO=HO+0.1188D+... PROD( PAA ) = 1.1000D-01 * RXRAT( 145 ) ! DCB3+O3=0.1100D+00*PAA+HO2+... & + 4.1000D-01 * RXRAT( 238 ) ! ACO3+HO2=0.4100D+00*PAA+... & + 4.1000D-01 * RXRAT( 239 ) ! RCO3+HO2=0.4100D+00*PAA+... LOSS( PAA ) = RXRAT( 35 ) ! PAA=HO+MO2 & + RXRAT( 124 ) ! PAA+HO=0.3500D+00*HO+... PROD( ONIT ) = RXRAT( 158 ) ! UALD+NO3=ONIT+XO2+0.6680D+... & + 6.5000D-02 * RXRAT( 175 ) ! HC3P+NO=0.6500D-01*ONIT+... & + 1.3600D-01 * RXRAT( 176 ) ! HC5P+NO=0.1360D+00*ONIT+... & + 3.0000D-02 * RXRAT( 178 ) ! OLTP+NO=0.3000D-01*ONIT+... & + 5.0000D-02 * RXRAT( 179 ) ! OLIP+NO=0.5000D-01*ONIT+... & + 2.0000D-04 * RXRAT( 181 ) ! TOLP+NO=0.2000D-03*ONIT+... & + 1.0000D-04 * RXRAT( 182 ) ! XYMP+NO=0.1000D-03*ONIT+... & + 2.0000D-04 * RXRAT( 183 ) ! XYEP+NO=0.2000D-03*ONIT+... & + RXRAT( 209 ) ! OLNN+NO=ONIT+HO2+NO2 & + RXRAT( 213 ) ! BAL2+NO2=ONIT & + RXRAT( 214 ) ! CHO+NO2=ONIT & + RXRAT( 215 ) ! MCTO+NO2=ONIT & + RXRAT( 251 ) ! OLNN+HO2=ONIT & + RXRAT( 252 ) ! OLND+HO2=ONIT & + RXRAT( 289 ) ! OLNN+MO2=ONIT+HCHO+0.2000D+... & + 5.0000D-01 * RXRAT( 290 ) ! OLND+MO2=0.5000D+00*ONIT+... & + 3.0000D-01 * RXRAT( 291 ) ! ADCN+MO2=0.3000D+00*ONIT+... & + RXRAT( 326 ) ! OLNN+ACO3=ONIT+MO2+HO2 & + 3.0000D-01 * RXRAT( 328 ) ! ADCN+ACO3=0.3000D+00*ONIT+... & + RXRAT( 359 ) ! OLNN+NO3=ONIT+NO2+HO2 & + 2.0000D+00 * RXRAT( 362 ) ! OLNN+OLNN=0.2000D+01*ONIT+HO2 & + 1.5000D+00 * RXRAT( 363 ) ! OLNN+OLND=0.1500D+01*ONIT+... & + RXRAT( 364 ) ! OLND+OLND=ONIT+0.5040D+... & + 3.2000D-02 * RXRAT( 388 ) ! BDE13P+NO=0.3200D-01*ONIT+... & + 8.0000D-02 * RXRAT( 396 ) ! FURANO2+NO=0.8000D-01*ONIT+... & + 2.6000D-01 * RXRAT( 432 ) ! HC10P+NO=0.2600D+00*ONIT+... & + 1.2000D-01 * RXRAT( 460 ) ! HC10P2+NO=0.1200D+00*ONIT+... LOSS( ONIT ) = RXRAT( 36 ) ! ONIT=HO2+NO2+0.2000D+... & + RXRAT( 128 ) ! ONIT+HO=HC3P+NO2 PROD( SO2 ) = 0.0D0 LOSS( SO2 ) = RXRAT( 74 ) ! SO2+HO=HO2+SULF+SULRXN PROD( SULF ) = RXRAT( 74 ) ! SO2+HO=SULF+HO2+SULRXN LOSS( SULF ) = 0.0D0 PROD( SULRXN ) = RXRAT( 74 ) ! SO2+HO=SULRXN+SULF+HO2 LOSS( SULRXN ) = 0.0D0 PROD( ETH ) = 2.0000D-02 * RXRAT( 133 ) ! OLT+O3=0.2000D-01*ETH+... & + 1.0000D-02 * RXRAT( 134 ) ! OLI+O3=0.1000D-01*ETH+... LOSS( ETH ) = RXRAT( 77 ) ! ETH+HO=ETHP PROD( HC3 ) = 1.5000D-02 * RXRAT( 133 ) ! OLT+O3=0.1500D-01*HC3+... & + 1.0000D-02 * RXRAT( 134 ) ! OLI+O3=0.1000D-01*HC3+... LOSS( HC3 ) = RXRAT( 78 ) ! HC3+HO=HC3P+0.2810D-04*ASOATJ PROD( HC3P ) = RXRAT( 78 ) ! HC3+HO=HC3P+0.2810D-04*ASOATJ & + 4.4000D-01 * RXRAT( 117 ) ! OP2+HO=0.4400D+00*HC3P+... & + RXRAT( 128 ) ! ONIT+HO=HC3P+NO2 & + 4.0000D-02 * RXRAT( 133 ) ! OLT+O3=0.4000D-01*HC3P+... & + 4.0000D-02 * RXRAT( 134 ) ! OLI+O3=0.4000D-01*HC3P+... & + 2.5810D-01 * RXRAT( 493 ) ! VROCN2OXY8+HO=0.2581D+... & + 7.9400D-02 * RXRAT( 494 ) ! VROCN2OXY4+HO=0.7940D-... & + 3.9000D-02 * RXRAT( 495 ) ! VROCN2OXY2+HO=0.3900D-... & + 1.8400D-01 * RXRAT( 496 ) ! VROCN1OXY6+HO=0.1840D+... & + 6.4600D-02 * RXRAT( 497 ) ! VROCN1OXY3+HO=0.6460D-... & + 2.4400D-02 * RXRAT( 498 ) ! VROCN1OXY1+HO=0.2440D-... & + 1.0680D-01 * RXRAT( 499 ) ! VROCP0OXY4+HO=0.1068D+... & + 4.4500D-02 * RXRAT( 500 ) ! VROCP0OXY2+HO=0.4450D-... & + 8.1800D-02 * RXRAT( 501 ) ! VROCP1OXY3+HO=0.8180D-... & + 2.9700D-02 * RXRAT( 502 ) ! VROCP1OXY1+HO=0.2970D-... & + 6.2800D-02 * RXRAT( 503 ) ! VROCP2OXY2+HO=0.6280D-... & + 6.9800D-02 * RXRAT( 504 ) ! VROCP3OXY2+HO=0.6980D-... & + 7.8600D-02 * RXRAT( 505 ) ! VROCP4OXY2+HO=0.7860D-... & + 5.2600D-02 * RXRAT( 506 ) ! VROCP5OXY1+HO=0.5260D-... & + 5.7100D-02 * RXRAT( 507 ) ! VROCP6OXY1+HO=0.5710D-... & + 2.2660D-01 * RXRAT( 508 ) ! OP3+HO=0.2266D+00*HC3P+... LOSS( HC3P ) = RXRAT( 175 ) ! HC3P+NO=0.6600D+00*HO2+... & + RXRAT( 218 ) ! HC3P+HO2=OP2 & + RXRAT( 257 ) ! HC3P+MO2=0.8940D+00*HO2+... & + RXRAT( 294 ) ! HC3P+ACO3=0.3940D+00*HO2+... & + RXRAT( 333 ) ! HC3P+NO3=0.2540D+00*HO2+... PROD( ASOATJ ) = 2.8100D-05 * RXRAT( 78 ) ! HC3+HO=0.2810D-04*ASOATJ+HC3P & + 1.3400D-03 * RXRAT( 79 ) ! HC5+HO=0.1340D-02*ASOATJ+HC5P & + 1.5200D-01 * RXRAT( 109 ) ! PHEN+HO=0.1520D+00*ASOATJ+... & + 2.0000D-01 * RXRAT( 110 ) ! CSL+HO=0.2000D+00*ASOATJ+... & + 1.5200D-01 * RXRAT( 161 ) ! PHEN+NO3=0.1520D+00*ASOATJ+... & + 2.0000D-01 * RXRAT( 162 ) ! CSL+NO3=0.2000D+00*ASOATJ+... & + 1.4900D-01 * RXRAT( 381 ) ! VROCIOXY+HO=0.1490D+... & + 1.0100D-03 * RXRAT( 382 ) ! SLOWROC+HO=0.1010D-... & + 4.0000D-02 * RXRAT( 398 ) ! FURANONE+HO=0.4000D-... LOSS( ASOATJ ) = 0.0D0 PROD( HC5 ) = 6.0000D-03 * RXRAT( 133 ) ! OLT+O3=0.6000D-02*HC5+... LOSS( HC5 ) = RXRAT( 79 ) ! HC5+HO=HC5P+0.1340D-02*ASOATJ PROD( HC5P ) = RXRAT( 79 ) ! HC5+HO=HC5P+0.1340D-02*ASOATJ & + 2.0000D-02 * RXRAT( 133 ) ! OLT+O3=0.2000D-01*HC5P+... & + 7.9400D-02 * RXRAT( 494 ) ! VROCN2OXY4+HO=0.7940D-... & + 9.2500D-02 * RXRAT( 495 ) ! VROCN2OXY2+HO=0.9250D-... & + 1.8400D-01 * RXRAT( 496 ) ! VROCN1OXY6+HO=0.1840D+... & + 1.7530D-01 * RXRAT( 497 ) ! VROCN1OXY3+HO=0.1753D+... & + 5.3700D-02 * RXRAT( 498 ) ! VROCN1OXY1+HO=0.5370D-... & + 1.0680D-01 * RXRAT( 499 ) ! VROCP0OXY4+HO=0.1068D+... & + 1.0550D-01 * RXRAT( 500 ) ! VROCP0OXY2+HO=0.1055D+... & + 2.2200D-01 * RXRAT( 501 ) ! VROCP1OXY3+HO=0.2220D+... & + 6.5400D-02 * RXRAT( 502 ) ! VROCP1OXY1+HO=0.6540D-... & + 1.4890D-01 * RXRAT( 503 ) ! VROCP2OXY2+HO=0.1489D+... & + 1.6560D-01 * RXRAT( 504 ) ! VROCP3OXY2+HO=0.1656D+... & + 1.7300D-01 * RXRAT( 505 ) ! VROCP4OXY2+HO=0.1730D+... & + 1.2800D-01 * RXRAT( 506 ) ! VROCP5OXY1+HO=0.1280D+... & + 1.5440D-01 * RXRAT( 507 ) ! VROCP6OXY1+HO=0.1544D+... LOSS( HC5P ) = RXRAT( 176 ) ! HC5P+NO=0.2000D+00*HO2+... & + RXRAT( 219 ) ! HC5P+HO2=OP2 & + RXRAT( 258 ) ! HC5P+MO2=0.8420D+00*HO2+... & + RXRAT( 295 ) ! HC5P+ACO3=0.3420D+00*HO2+... & + RXRAT( 334 ) ! HC5P+NO3=0.4880D+00*HO2+... PROD( ETE ) = 2.5000D-01 * RXRAT( 386 ) ! ACRO=0.2500D+00*ETE+... & + 1.7000D-01 * RXRAT( 393 ) ! BDE13+O3=0.1700D+00*ETE+... LOSS( ETE ) = RXRAT( 80 ) ! ETE+HO=ETEP & + RXRAT( 132 ) ! ETE+O3=0.8000D-01*HO+... & + RXRAT( 147 ) ! ETE+NO3=0.8000D+00*OLNN+... PROD( ETEP ) = RXRAT( 80 ) ! ETE+HO=ETEP LOSS( ETEP ) = RXRAT( 177 ) ! ETEP+NO=HO2+NO2+0.1600D+... & + RXRAT( 220 ) ! ETEP+HO2=OP2 & + RXRAT( 259 ) ! ETEP+MO2=HO2+0.1950D+... & + RXRAT( 296 ) ! ETEP+ACO3=0.5000D+00*HO2+... & + RXRAT( 335 ) ! ETEP+NO3=HO2+NO2+0.1600D+... PROD( OLT ) = 1.5300D-01 * RXRAT( 135 ) ! ISO+O3=0.1530D+00*OLT+... & + 2.5000D-01 * RXRAT( 391 ) ! BDE13P+MO2=0.2500D+00*OLT+... LOSS( OLT ) = RXRAT( 81 ) ! OLT+HO=OLTP & + RXRAT( 133 ) ! OLT+O3=0.2200D+00*HO+... & + RXRAT( 148 ) ! OLT+NO3=0.4300D+00*OLNN+... PROD( OLTP ) = RXRAT( 81 ) ! OLT+HO=OLTP LOSS( OLTP ) = RXRAT( 178 ) ! OLTP+NO=0.7800D+00*HO2+... & + RXRAT( 221 ) ! OLTP+HO2=OP2 & + RXRAT( 260 ) ! OLTP+MO2=HO2+0.1500D+... & + RXRAT( 297 ) ! OLTP+ACO3=0.5000D+00*HO2+... & + RXRAT( 336 ) ! OLTP+NO3=0.4700D+00*ALD+... PROD( OLI ) = 3.8500D-01 * RXRAT( 344 ) ! LIMP1+NO3=0.3850D+00*OLI+... LOSS( OLI ) = RXRAT( 82 ) ! OLI+HO=OLIP & + RXRAT( 134 ) ! OLI+O3=0.4600D+00*HO+... & + RXRAT( 149 ) ! OLI+NO3=0.1100D+00*OLNN+... PROD( OLIP ) = RXRAT( 82 ) ! OLI+HO=OLIP LOSS( OLIP ) = RXRAT( 179 ) ! OLIP+NO=0.8300D+00*HO2+... & + RXRAT( 222 ) ! OLIP+HO2=OP2 & + RXRAT( 261 ) ! OLIP+MO2=HO2+0.7500D+... & + RXRAT( 298 ) ! OLIP+ACO3=0.5000D+00*HO2+... & + RXRAT( 337 ) ! OLIP+NO3=0.8600D+00*HO2+... PROD( ACE ) = 0.0D0 LOSS( ACE ) = RXRAT( 83 ) ! ACE+HO=0.6500D+00*HO+... PROD( ORA1 ) = 3.5000D-01 * RXRAT( 83 ) ! ACE+HO=0.3500D+00*ORA1+... & + 3.7000D-01 * RXRAT( 132 ) ! ETE+O3=0.3700D+00*ORA1+... & + 3.0000D-02 * RXRAT( 133 ) ! OLT+O3=0.3000D-01*ORA1+... & + 2.8000D-01 * RXRAT( 135 ) ! ISO+O3=0.2800D+00*ORA1+... & + 4.5000D-01 * RXRAT( 140 ) ! MACR+O3=0.4500D+00*ORA1+... & + 7.0000D-02 * RXRAT( 141 ) ! MVK+O3=0.7000D-01*ORA1+... & + 4.4000D-02 * RXRAT( 142 ) ! UALD+O3=0.4400D-01*ORA1+... & + 2.5000D-01 * RXRAT( 145 ) ! DCB3+O3=0.2500D+00*ORA1+... LOSS( ORA1 ) = RXRAT( 122 ) ! ORA1+HO=HO2 PROD( BEN ) = 3.2000D-02 * RXRAT( 133 ) ! OLT+O3=0.3200D-01*BEN+... LOSS( BEN ) = RXRAT( 84 ) ! BEN+HO=0.4700D+00*BENP+... PROD( BENP ) = 4.7000D-01 * RXRAT( 84 ) ! BEN+HO=0.4700D+00*BENP+... LOSS( BENP ) = RXRAT( 180 ) ! BENP+NO=0.0000D+00*ONIT+... & + RXRAT( 223 ) ! BENP+HO2=0.6021D+00*OP2+... & + RXRAT( 262 ) ! BENP+MO2=0.6800D+00*HCHO+... & + RXRAT( 299 ) ! BENP+ACO3=0.7000D+00*MO2+... & + RXRAT( 338 ) ! BENP+NO3=NO2+HO2+0.0000D+... PROD( PHEN ) = 5.3000D-01 * RXRAT( 84 ) ! BEN+HO=0.5300D+00*PHEN+... LOSS( PHEN ) = RXRAT( 109 ) ! PHEN+HO=0.1520D+00*ASOATJ+... & + RXRAT( 161 ) ! PHEN+NO3=0.1520D+00*ASOATJ+... PROD( TOL ) = 0.0D0 LOSS( TOL ) = RXRAT( 85 ) ! TOL+HO=0.8200D+00*TOLP+... PROD( TOLP ) = 8.2000D-01 * RXRAT( 85 ) ! TOL+HO=0.8200D+00*TOLP+... LOSS( TOLP ) = RXRAT( 181 ) ! TOLP+NO=0.2000D-03*ONIT+... & + RXRAT( 224 ) ! TOLP+HO2=0.7195D+00*OP2+... & + RXRAT( 263 ) ! TOLP+MO2=0.6800D+00*HCHO+... & + RXRAT( 300 ) ! TOLP+ACO3=0.7000D+00*MO2+... & + RXRAT( 339 ) ! TOLP+NO3=NO2+0.9146D+... PROD( CSL ) = 1.8000D-01 * RXRAT( 85 ) ! TOL+HO=0.1800D+00*CSL+... & + 1.7000D-01 * RXRAT( 86 ) ! XYM+HO=0.1700D+00*CSL+... & + 1.8000D-01 * RXRAT( 87 ) ! XYE+HO=0.1800D+00*CSL+... & + RXRAT( 248 ) ! CHO+HO2=CSL LOSS( CSL ) = RXRAT( 110 ) ! CSL+HO=0.2000D+00*ASOATJ+... & + RXRAT( 162 ) ! CSL+NO3=0.2000D+00*ASOATJ+... PROD( XYM ) = 0.0D0 LOSS( XYM ) = RXRAT( 86 ) ! XYM+HO=0.8300D+00*XYMP+... PROD( XYMP ) = 8.3000D-01 * RXRAT( 86 ) ! XYM+HO=0.8300D+00*XYMP+... LOSS( XYMP ) = RXRAT( 182 ) ! XYMP+NO=0.1000D-03*ONIT+... & + RXRAT( 225 ) ! XYMP+HO2=0.4820D-01*OP2+... & + RXRAT( 264 ) ! XYMP+MO2=0.6800D+00*HCHO+... & + RXRAT( 301 ) ! XYMP+ACO3=0.7000D+00*MO2+... & + RXRAT( 340 ) ! XYMP+NO3=NO2+0.9518D+... PROD( XYE ) = 0.0D0 LOSS( XYE ) = RXRAT( 87 ) ! XYE+HO=0.8200D+00*XYEP+... PROD( XYEP ) = 8.2000D-01 * RXRAT( 87 ) ! XYE+HO=0.8200D+00*XYEP+... LOSS( XYEP ) = RXRAT( 183 ) ! XYEP+NO=0.2000D-03*ONIT+... & + RXRAT( 226 ) ! XYEP+HO2=0.8540D-01*OP2+... & + RXRAT( 265 ) ! XYEP+MO2=0.6800D+00*HCHO+... & + RXRAT( 302 ) ! XYEP+ACO3=0.7000D+00*MO2+... & + RXRAT( 341 ) ! XYEP+NO3=NO2+0.9146D+... PROD( ISO ) = 0.0D0 LOSS( ISO ) = RXRAT( 88 ) ! ISO+HO=ISOP & + RXRAT( 135 ) ! ISO+O3=0.2500D+00*HO+... & + RXRAT( 150 ) ! ISO+NO3=ISON PROD( ISOP ) = RXRAT( 88 ) ! ISO+HO=ISOP LOSS( ISOP ) = RXRAT( 184 ) ! ISOP+NO=0.8800D+00*HO2+... & + RXRAT( 227 ) ! ISOP+HO2=ISHP & + RXRAT( 266 ) ! ISOP+MO2=HO2+0.1310D+... & + RXRAT( 303 ) ! ISOP+ACO3=0.5000D+00*HO2+... & + RXRAT( 342 ) ! ISOP+NO3=HO2+NO2+0.7500D+... & + RXRAT( 370 ) ! ISOP+APIP2=0.9600D+00*HOM+... & + RXRAT( 373 ) ! ISOP+LIMP2=0.9600D+00*HOM+... & + RXRAT( 376 ) ! ISOP+APINP2=0.9600D+00*HOM+... & + RXRAT( 379 ) ! ISOP+LIMNP2=0.9600D+00*HOM+... PROD( API ) = 0.0D0 LOSS( API ) = RXRAT( 89 ) ! API+HO=0.9750D+00*APIP1+... & + RXRAT( 136 ) ! API+O3=0.9000D+00*HO+... & + RXRAT( 151 ) ! API+NO3=0.9750D+00*APINP1+... PROD( APIP1 ) = 9.7500D-01 * RXRAT( 89 ) ! API+HO=0.9750D+00*APIP1+... & + 9.0000D-01 * RXRAT( 136 ) ! API+O3=0.9000D+00*APIP1+... LOSS( APIP1 ) = RXRAT( 185 ) ! APIP1+NO=0.8200D+00*HO2+... & + RXRAT( 228 ) ! APIP1+HO2=OPB & + RXRAT( 267 ) ! APIP1+MO2=HO2+0.6800D+... & + RXRAT( 304 ) ! APIP1+ACO3=0.6300D+00*HO2+... & + RXRAT( 343 ) ! APIP1+NO3=HO2+NO2+ALD+KET & + RXRAT( 368 ) ! APIP1+APIP2=0.9600D+00*HOM+... & + RXRAT( 371 ) ! APIP1+LIMP2=0.9600D+00*HOM+... & + RXRAT( 374 ) ! APIP1+APINP2=0.9600D+... & + RXRAT( 377 ) ! APIP1+LIMNP2=0.9600D+... PROD( APIP2 ) = 2.5000D-02 * RXRAT( 89 ) ! API+HO=0.2500D-01*APIP2+... & + 5.0000D-02 * RXRAT( 136 ) ! API+O3=0.5000D-01*APIP2+... LOSS( APIP2 ) = RXRAT( 186 ) ! APIP2+NO=0.8200D+00*HO+... & + RXRAT( 229 ) ! APIP2+HO2=HOM & + RXRAT( 268 ) ! APIP2+MO2=HO2+0.7500D+... & + RXRAT( 305 ) ! APIP2+ACO3=0.5000D+00*HO+... & + RXRAT( 368 ) ! APIP2+APIP1=0.9600D+00*HOM+... & + RXRAT( 369 ) ! APIP2+LIMP1=0.9600D+00*HOM+... & + RXRAT( 370 ) ! APIP2+ISOP=0.9600D+00*HOM+... PROD( LIM ) = 0.0D0 LOSS( LIM ) = RXRAT( 90 ) ! LIM+HO=0.9450D+00*LIMP1+... & + RXRAT( 137 ) ! LIM+O3=0.8400D+00*HO+... & + RXRAT( 152 ) ! LIM+NO3=0.9450D+00*LIMNP1+... PROD( LIMP1 ) = 9.4500D-01 * RXRAT( 90 ) ! LIM+HO=0.9450D+00*LIMP1+... & + 8.4000D-01 * RXRAT( 137 ) ! LIM+O3=0.8400D+00*LIMP1+... LOSS( LIMP1 ) = RXRAT( 189 ) ! LIMP1+NO=0.7700D+00*HO2+... & + RXRAT( 232 ) ! LIMP1+HO2=OPB & + RXRAT( 271 ) ! LIMP1+MO2=HO2+HCHO+0.4200D+... & + RXRAT( 308 ) ! LIMP1+ACO3=0.6300D+00*HO2+... & + RXRAT( 344 ) ! LIMP1+NO3=HO2+NO2+0.3850D+... & + RXRAT( 369 ) ! LIMP1+APIP2=0.9600D+00*HOM+... & + RXRAT( 372 ) ! LIMP1+LIMP2=0.9600D+00*HOM+... & + RXRAT( 375 ) ! LIMP1+APINP2=0.9600D+... & + RXRAT( 378 ) ! LIMP1+LIMNP2=0.9600D+... PROD( LIMP2 ) = 5.5000D-02 * RXRAT( 90 ) ! LIM+HO=0.5500D-01*LIMP2+... & + 1.1000D-01 * RXRAT( 137 ) ! LIM+O3=0.1100D+00*LIMP2+... LOSS( LIMP2 ) = RXRAT( 190 ) ! LIMP2+NO=0.7700D+00*HO+... & + RXRAT( 233 ) ! LIMP2+HO2=HOM & + RXRAT( 272 ) ! LIMP2+MO2=HO2+0.7500D+... & + RXRAT( 309 ) ! LIMP2+ACO3=0.5000D+00*HO+... & + RXRAT( 371 ) ! LIMP2+APIP1=0.9600D+00*HOM+... & + RXRAT( 372 ) ! LIMP2+LIMP1=0.9600D+00*HOM+... & + RXRAT( 373 ) ! LIMP2+ISOP=0.9600D+00*HOM+... PROD( PINALP ) = 2.3000D-01 * RXRAT( 91 ) ! PINAL+HO=0.2300D+00*PINALP+... LOSS( PINALP ) = RXRAT( 165 ) ! PINALP=HOM & + RXRAT( 193 ) ! PINALP+NO=0.9500D+00*HO2+... & + RXRAT( 236 ) ! PINALP+HO2=OPB PROD( RCO3 ) = 7.7000D-01 * RXRAT( 91 ) ! PINAL+HO=0.7700D+00*RCO3+... & + 3.0000D-01 * RXRAT( 92 ) ! LIMAL+HO=0.3000D+00*RCO3+... & + RXRAT( 95 ) ! ALD+HO=RCO3 & + 6.0000D-01 * RXRAT( 143 ) ! DCB1+O3=0.6000D+00*RCO3+... & + 6.0000D-01 * RXRAT( 144 ) ! DCB2+O3=0.6000D+00*RCO3+... & + RXRAT( 156 ) ! ALD+NO3=RCO3+HNO3 & + RXRAT( 170 ) ! PPN=RCO3+NO2 LOSS( RCO3 ) = RXRAT( 169 ) ! RCO3+NO2=PPN & + RXRAT( 196 ) ! RCO3+NO=ETHP+NO2 & + RXRAT( 239 ) ! RCO3+HO2=0.4400D+00*HO+... & + RXRAT( 276 ) ! RCO3+MO2=0.9000D+00*HO2+... & + RXRAT( 313 ) ! RCO3+ACO3=MO2+ETHP & + 2.0000D+00 * RXRAT( 330 ) ! RCO3+RCO3=0.2000D+01*ETHP & + RXRAT( 346 ) ! RCO3+NO3=ETHP+NO2 & + RXRAT( 366 ) ! RCO3+XO2=ETHP PROD( LIMALP ) = 7.0000D-01 * RXRAT( 92 ) ! LIMAL+HO=0.7000D+00*LIMALP+... LOSS( LIMALP ) = RXRAT( 166 ) ! LIMALP=HOM & + RXRAT( 194 ) ! LIMALP+NO=0.9400D+00*HO2+... & + RXRAT( 237 ) ! LIMALP+HO2=OPB PROD( ACTP ) = RXRAT( 96 ) ! ACT+HO=ACTP LOSS( ACTP ) = RXRAT( 197 ) ! ACTP+NO=ACO3+NO2+HCHO & + RXRAT( 240 ) ! ACTP+HO2=0.1500D+00*HO+... & + RXRAT( 277 ) ! ACTP+MO2=0.5000D+00*HO2+... & + RXRAT( 314 ) ! ACTP+ACO3=0.5000D+00*MO2+... & + RXRAT( 347 ) ! ACTP+NO3=ACO3+NO2+HCHO PROD( MEKP ) = RXRAT( 97 ) ! MEK+HO=MEKP & + 2.5810D-01 * RXRAT( 493 ) ! VROCN2OXY8+HO=0.2581D+... & + 7.9400D-02 * RXRAT( 494 ) ! VROCN2OXY4+HO=0.7940D-... & + 3.9000D-02 * RXRAT( 495 ) ! VROCN2OXY2+HO=0.3900D-... & + 1.8400D-01 * RXRAT( 496 ) ! VROCN1OXY6+HO=0.1840D+... & + 6.4600D-02 * RXRAT( 497 ) ! VROCN1OXY3+HO=0.6460D-... & + 2.4400D-02 * RXRAT( 498 ) ! VROCN1OXY1+HO=0.2440D-... & + 1.0680D-01 * RXRAT( 499 ) ! VROCP0OXY4+HO=0.1068D+... & + 4.4500D-02 * RXRAT( 500 ) ! VROCP0OXY2+HO=0.4450D-... & + 8.1800D-02 * RXRAT( 501 ) ! VROCP1OXY3+HO=0.8180D-... & + 2.9700D-02 * RXRAT( 502 ) ! VROCP1OXY1+HO=0.2970D-... & + 6.2800D-02 * RXRAT( 503 ) ! VROCP2OXY2+HO=0.6280D-... & + 6.9800D-02 * RXRAT( 504 ) ! VROCP3OXY2+HO=0.6980D-... & + 7.8600D-02 * RXRAT( 505 ) ! VROCP4OXY2+HO=0.7860D-... & + 5.2600D-02 * RXRAT( 506 ) ! VROCP5OXY1+HO=0.5260D-... & + 5.7100D-02 * RXRAT( 507 ) ! VROCP6OXY1+HO=0.5710D-... & + 2.2660D-01 * RXRAT( 508 ) ! OP3+HO=0.2266D+00*MEKP+... LOSS( MEKP ) = RXRAT( 198 ) ! MEKP+NO=0.6700D+00*HO2+NO2+... & + RXRAT( 241 ) ! MEKP+HO2=OP2 & + RXRAT( 278 ) ! MEKP+MO2=0.8340D+00*HO2+... & + RXRAT( 315 ) ! MEKP+ACO3=0.3300D+00*HO2+... & + RXRAT( 348 ) ! MEKP+NO3=0.6700D+00*HO2+... PROD( KETP ) = RXRAT( 98 ) ! KET+HO=KETP & + 7.9400D-02 * RXRAT( 494 ) ! VROCN2OXY4+HO=0.7940D-... & + 1.0680D-01 * RXRAT( 499 ) ! VROCP0OXY4+HO=0.1068D+... LOSS( KETP ) = RXRAT( 199 ) ! KETP+NO=0.7700D+00*HO2+... & + RXRAT( 242 ) ! KETP+HO2=OP2 & + RXRAT( 279 ) ! KETP+MO2=HO2+0.7500D+... & + RXRAT( 316 ) ! KETP+ACO3=0.5000D+00*HO2+... & + RXRAT( 349 ) ! KETP+NO3=HO2+NO2+DCB1 PROD( MCP ) = 4.3000D-01 * RXRAT( 100 ) ! MACR+HO=0.4300D+00*MCP+... & + 4.3000D-01 * RXRAT( 383 ) ! ACRO+HO=0.4300D+00*MCP+... LOSS( MCP ) = RXRAT( 201 ) ! MCP+NO=NO2+0.5000D+00*HO2+... & + RXRAT( 244 ) ! MCP+HO2=MAHP & + RXRAT( 281 ) ! MCP+MO2=NO2+HO2+0.1500D+... & + RXRAT( 318 ) ! MCP+ACO3=NO2+0.5000D+... & + RXRAT( 351 ) ! MCP+NO3=NO2+HO2+HCHO+HKET PROD( MVKP ) = RXRAT( 101 ) ! MVK+HO=MVKP LOSS( MVKP ) = RXRAT( 202 ) ! MVKP+NO=0.3000D+00*HO2+... & + RXRAT( 245 ) ! MVKP+HO2=OP2 & + RXRAT( 282 ) ! MVKP+MO2=HO2+0.1160D+... & + RXRAT( 319 ) ! MVKP+ACO3=0.5000D+00*HO2+... & + RXRAT( 352 ) ! MVKP+NO3=0.3000D+00*HO2+... PROD( UALP ) = 6.8700D-01 * RXRAT( 102 ) ! UALD+HO=0.6870D+00*UALP+... LOSS( UALP ) = RXRAT( 203 ) ! UALP+NO=HO2+NO2+0.6100D+... & + RXRAT( 246 ) ! UALP+HO2=OP2 & + RXRAT( 283 ) ! UALP+MO2=HO2+0.3050D+00*CO+... & + RXRAT( 320 ) ! UALP+ACO3=0.5000D+00*HO2+... & + RXRAT( 353 ) ! UALP+NO3=HO2+NO2+0.6100D+... PROD( DCB3 ) = 2.4950D-01 * RXRAT( 180 ) ! BENP+NO=0.2495D+00*DCB3+... & + 2.5000D-01 * RXRAT( 262 ) ! BENP+MO2=0.2500D+00*DCB3+... & + 2.5000D-01 * RXRAT( 299 ) ! BENP+ACO3=0.2500D+00*DCB3+... & + 2.5000D-01 * RXRAT( 338 ) ! BENP+NO3=0.2500D+00*DCB3+... & + 2.0000D-01 * RXRAT( 400 ) ! FURAN+NO3=0.2000D+00*DCB3+... LOSS( DCB3 ) = RXRAT( 107 ) ! DCB3+HO=0.5600D+00*HO2+... & + RXRAT( 145 ) ! DCB3+O3=0.5000D-01*HO+HO2+... PROD( BALP ) = RXRAT( 108 ) ! BALD+HO=BALP LOSS( BALP ) = RXRAT( 204 ) ! BALP+NO=BAL1+NO2 & + RXRAT( 284 ) ! BALP+MO2=HO2+BAL1+HCHO & + RXRAT( 321 ) ! BALP+ACO3=MO2+BAL1 & + RXRAT( 354 ) ! BALP+NO3=BAL1+NO2 PROD( ADDC ) = 1.7000D-01 * RXRAT( 109 ) ! PHEN+HO=0.1700D+00*ADDC+... & + 1.6000D-01 * RXRAT( 110 ) ! CSL+HO=0.1600D+00*ADDC+... & + 8.5000D-01 * RXRAT( 161 ) ! PHEN+NO3=0.8500D+00*ADDC+... & + 8.0000D-02 * RXRAT( 162 ) ! CSL+NO3=0.8000D-01*ADDC+... LOSS( ADDC ) = RXRAT( 206 ) ! ADDC+NO=HO2+NO2+0.3200D+... & + RXRAT( 247 ) ! ADDC+HO2=OP2 & + RXRAT( 286 ) ! ADDC+MO2=0.2000D+01*HO2+... & + RXRAT( 323 ) ! ADDC+ACO3=0.2000D+01*HO2+... & + RXRAT( 356 ) ! ADDC+NO3=HO2+NO2+0.3200D+... PROD( MCT ) = 6.1900D-01 * RXRAT( 109 ) ! PHEN+HO=0.6190D+00*MCT+... & + 5.8400D-01 * RXRAT( 110 ) ! CSL+HO=0.5840D+00*MCT+... LOSS( MCT ) = RXRAT( 111 ) ! MCT+HO=MCTO & + RXRAT( 163 ) ! MCT+NO3=MCTO+HNO3 PROD( MCTO ) = RXRAT( 111 ) ! MCT+HO=MCTO & + RXRAT( 163 ) ! MCT+NO3=MCTO+HNO3 & + RXRAT( 207 ) ! MCTP+NO=MCTO+NO2 & + RXRAT( 287 ) ! MCTP+MO2=MCTO+HO2+HCHO & + RXRAT( 324 ) ! MCTP+ACO3=MCTO+MO2+HO2 & + RXRAT( 357 ) ! MCTP+NO3=MCTO+NO2 LOSS( MCTO ) = RXRAT( 146 ) ! MCTO+O3=MCTP & + RXRAT( 215 ) ! MCTO+NO2=ONIT PROD( MOH ) = 6.3000D-01 * RXRAT( 255 ) ! MO2+MO2=0.6300D+00*MOH+... & + 2.5000D-01 * RXRAT( 256 ) ! ETHP+MO2=0.2500D+00*MOH+... & + 2.5000D-01 * RXRAT( 257 ) ! HC3P+MO2=0.2500D+00*MOH+... & + 2.5000D-01 * RXRAT( 258 ) ! HC5P+MO2=0.2500D+00*MOH+... & + 2.5000D-01 * RXRAT( 259 ) ! ETEP+MO2=0.2500D+00*MOH+... & + 2.5000D-01 * RXRAT( 260 ) ! OLTP+MO2=0.2500D+00*MOH+... & + 2.5000D-01 * RXRAT( 261 ) ! OLIP+MO2=0.2500D+00*MOH+... & + 3.2000D-01 * RXRAT( 262 ) ! BENP+MO2=0.3200D+00*MOH+... & + 3.2000D-01 * RXRAT( 263 ) ! TOLP+MO2=0.3200D+00*MOH+... & + 3.2000D-01 * RXRAT( 264 ) ! XYMP+MO2=0.3200D+00*MOH+... & + 3.2000D-01 * RXRAT( 265 ) ! XYEP+MO2=0.3200D+00*MOH+... & + 2.5000D-01 * RXRAT( 266 ) ! ISOP+MO2=0.2500D+00*MOH+... & + 3.2000D-01 * RXRAT( 267 ) ! APIP1+MO2=0.3200D+00*MOH+... & + 2.5000D-01 * RXRAT( 268 ) ! APIP2+MO2=0.2500D+00*MOH+... & + 3.2000D-01 * RXRAT( 269 ) ! APINP1+MO2=0.3200D+00*MOH+... & + 2.5000D-01 * RXRAT( 270 ) ! APINP2+MO2=0.2500D+00*MOH+... & + 3.2000D-01 * RXRAT( 271 ) ! LIMP1+MO2=0.3200D+00*MOH+... & + 2.5000D-01 * RXRAT( 272 ) ! LIMP2+MO2=0.2500D+00*MOH+... & + 3.2000D-01 * RXRAT( 273 ) ! LIMNP1+MO2=0.3200D+00*MOH+... & + 2.5000D-01 * RXRAT( 274 ) ! LIMNP2+MO2=0.2500D+00*MOH+... & + 2.5000D-01 * RXRAT( 277 ) ! ACTP+MO2=0.2500D+00*MOH+... & + 2.5000D-01 * RXRAT( 278 ) ! MEKP+MO2=0.2500D+00*MOH+... & + 2.5000D-01 * RXRAT( 279 ) ! KETP+MO2=0.2500D+00*MOH+... & + 2.5000D-01 * RXRAT( 280 ) ! MACP+MO2=0.2500D+00*MOH+... & + 2.5000D-01 * RXRAT( 281 ) ! MCP+MO2=0.2500D+00*MOH+HO2+... & + 2.5000D-01 * RXRAT( 282 ) ! MVKP+MO2=0.2500D+00*MOH+... & + 2.5000D-01 * RXRAT( 283 ) ! UALP+MO2=0.2500D+00*MOH+... & + 2.5000D-01 * RXRAT( 290 ) ! OLND+MO2=0.2500D+00*MOH+... & + 3.2000D-01 * RXRAT( 391 ) ! BDE13P+MO2=0.3200D+00*MOH+... & + 3.2000D-01 * RXRAT( 479 ) ! VROCP6AROP+MO2=0.3200D+... & + 3.2000D-01 * RXRAT( 485 ) ! VROCP5AROP+MO2=0.3200D+... & + 3.2000D-01 * RXRAT( 491 ) ! NAPHP+MO2=0.3200D+00*MOH+... LOSS( MOH ) = RXRAT( 112 ) ! MOH+HO=HO2+HCHO PROD( EOH ) = 2.5000D-01 * RXRAT( 256 ) ! ETHP+MO2=0.2500D+00*EOH+... LOSS( EOH ) = RXRAT( 113 ) ! EOH+HO=HO2+ACD PROD( ROH ) = 2.5000D-01 * RXRAT( 257 ) ! HC3P+MO2=0.2500D+00*ROH+... & + 2.5000D-01 * RXRAT( 258 ) ! HC5P+MO2=0.2500D+00*ROH+... & + 2.5000D-01 * RXRAT( 260 ) ! OLTP+MO2=0.2500D+00*ROH+... & + 2.5000D-01 * RXRAT( 261 ) ! OLIP+MO2=0.2500D+00*ROH+... & + 2.5000D-01 * RXRAT( 266 ) ! ISOP+MO2=0.2500D+00*ROH+... & + 2.5000D-01 * RXRAT( 267 ) ! APIP1+MO2=0.2500D+00*ROH+... & + 2.7000D-01 * RXRAT( 271 ) ! LIMP1+MO2=0.2700D+00*ROH+... & + 2.5000D-01 * RXRAT( 277 ) ! ACTP+MO2=0.2500D+00*ROH+... & + 2.5000D-01 * RXRAT( 278 ) ! MEKP+MO2=0.2500D+00*ROH+... & + 2.5000D-01 * RXRAT( 279 ) ! KETP+MO2=0.2500D+00*ROH+... & + 2.5000D-01 * RXRAT( 280 ) ! MACP+MO2=0.2500D+00*ROH+... & + 2.5000D-01 * RXRAT( 281 ) ! MCP+MO2=0.2500D+00*ROH+HO2+... & + 2.5000D-01 * RXRAT( 282 ) ! MVKP+MO2=0.2500D+00*ROH+... & + 2.5000D-01 * RXRAT( 283 ) ! UALP+MO2=0.2500D+00*ROH+... & + 2.5000D-01 * RXRAT( 290 ) ! OLND+MO2=0.2500D+00*ROH+... & + 2.5000D-01 * RXRAT( 304 ) ! APIP1+ACO3=0.2500D+00*ROH+... & + 2.7000D-01 * RXRAT( 308 ) ! LIMP1+ACO3=0.2700D+00*ROH+... & + 4.8000D-01 * RXRAT( 368 ) ! APIP2+APIP1=0.4800D+00*ROH+... & + 4.8000D-01 * RXRAT( 369 ) ! APIP2+LIMP1=0.4800D+00*ROH+... & + 4.8000D-01 * RXRAT( 370 ) ! APIP2+ISOP=0.4800D+00*ROH+... & + 4.8000D-01 * RXRAT( 371 ) ! LIMP2+APIP1=0.4800D+00*ROH+... & + 4.8000D-01 * RXRAT( 372 ) ! LIMP2+LIMP1=0.4800D+00*ROH+... & + 4.8000D-01 * RXRAT( 373 ) ! LIMP2+ISOP=0.4800D+00*ROH+... & + 4.8000D-01 * RXRAT( 374 ) ! APINP2+APIP1=0.4800D+... & + 4.8000D-01 * RXRAT( 375 ) ! APINP2+LIMP1=0.4800D+... & + 4.8000D-01 * RXRAT( 376 ) ! APINP2+ISOP=0.4800D+00*ROH+... & + 4.8000D-01 * RXRAT( 377 ) ! LIMNP2+APIP1=0.4800D+... & + 4.8000D-01 * RXRAT( 378 ) ! LIMNP2+LIMP1=0.4800D+... & + 4.8000D-01 * RXRAT( 379 ) ! LIMNP2+ISOP=0.4800D+00*ROH+... LOSS( ROH ) = RXRAT( 114 ) ! ROH+HO=HO2+0.7190D+00*ALD+... PROD( ETEG ) = 2.5000D-01 * RXRAT( 259 ) ! ETEP+MO2=0.2500D+00*ETEG+... LOSS( ETEG ) = RXRAT( 115 ) ! ETEG+HO=HO2+ALD PROD( ISHP ) = RXRAT( 227 ) ! ISOP+HO2=ISHP LOSS( ISHP ) = RXRAT( 120 ) ! ISHP+HO=HO+MACR+0.9040D+... PROD( IEPOX ) = 9.0400D-01 * RXRAT( 120 ) ! ISHP+HO=0.9040D+00*IEPOX+... LOSS( IEPOX ) = RXRAT( 380 ) ! IEPOX+HO=HO & + RXRAT( 416 ) ! IEPOX=IEPOXP PROD( MAHP ) = RXRAT( 243 ) ! MACP+HO2=MAHP & + RXRAT( 244 ) ! MCP+HO2=MAHP LOSS( MAHP ) = RXRAT( 121 ) ! MAHP+HO=MACP PROD( ORA2 ) = 6.0000D-02 * RXRAT( 133 ) ! OLT+O3=0.6000D-01*ORA2+... & + 1.7000D-02 * RXRAT( 134 ) ! OLI+O3=0.1700D-01*ORA2+... & + 7.0000D-02 * RXRAT( 141 ) ! MVK+O3=0.7000D-01*ORA2+... & + 2.5000D-01 * RXRAT( 145 ) ! DCB3+O3=0.2500D+00*ORA2+... & + 1.5000D-01 * RXRAT( 238 ) ! ACO3+HO2=0.1500D+00*ORA2+... & + 1.5000D-01 * RXRAT( 239 ) ! RCO3+HO2=0.1500D+00*ORA2+... & + 1.0000D-01 * RXRAT( 275 ) ! ACO3+MO2=0.1000D+00*ORA2+... & + 1.0000D-01 * RXRAT( 276 ) ! RCO3+MO2=0.1000D+00*ORA2+... & + 1.2500D-01 * RXRAT( 277 ) ! ACTP+MO2=0.1250D+00*ORA2+... & + 6.7000D-02 * RXRAT( 280 ) ! MACP+MO2=0.6700D-01*ORA2+... & + 2.9200D-01 * RXRAT( 282 ) ! MVKP+MO2=0.2920D+00*ORA2+... & + 5.0000D-01 * RXRAT( 293 ) ! ETHP+ACO3=0.5000D+00*ORA2+... & + 5.0000D-01 * RXRAT( 294 ) ! HC3P+ACO3=0.5000D+00*ORA2+... & + 5.0000D-01 * RXRAT( 295 ) ! HC5P+ACO3=0.5000D+00*ORA2+... & + 5.0000D-01 * RXRAT( 296 ) ! ETEP+ACO3=0.5000D+00*ORA2+... & + 5.0000D-01 * RXRAT( 297 ) ! OLTP+ACO3=0.5000D+00*ORA2+... & + 5.0000D-01 * RXRAT( 298 ) ! OLIP+ACO3=0.5000D+00*ORA2+... & + 3.0000D-01 * RXRAT( 299 ) ! BENP+ACO3=0.3000D+00*ORA2+... & + 3.0000D-01 * RXRAT( 300 ) ! TOLP+ACO3=0.3000D+00*ORA2+... & + 3.0000D-01 * RXRAT( 301 ) ! XYMP+ACO3=0.3000D+00*ORA2+... & + 3.0000D-01 * RXRAT( 302 ) ! XYEP+ACO3=0.3000D+00*ORA2+... & + 5.0000D-01 * RXRAT( 303 ) ! ISOP+ACO3=0.5000D+00*ORA2+... & + 3.0000D-01 * RXRAT( 304 ) ! APIP1+ACO3=0.3000D+00*ORA2+... & + 5.0000D-01 * RXRAT( 305 ) ! APIP2+ACO3=0.5000D+00*ORA2+... & + 3.0000D-01 * RXRAT( 306 ) ! APINP1+ACO3=0.3000D+... & + 5.0000D-01 * RXRAT( 307 ) ! APINP2+ACO3=0.5000D+... & + 3.0000D-01 * RXRAT( 308 ) ! LIMP1+ACO3=0.3000D+00*ORA2+... & + 5.0000D-01 * RXRAT( 309 ) ! LIMP2+ACO3=0.5000D+00*ORA2+... & + 3.0000D-01 * RXRAT( 310 ) ! LIMNP1+ACO3=0.3000D+... & + 5.0000D-01 * RXRAT( 311 ) ! LIMNP2+ACO3=0.5000D+... & + 7.5000D-01 * RXRAT( 314 ) ! ACTP+ACO3=0.7500D+00*ORA2+... & + 5.0000D-01 * RXRAT( 315 ) ! MEKP+ACO3=0.5000D+00*ORA2+... & + 5.0000D-01 * RXRAT( 316 ) ! KETP+ACO3=0.5000D+00*ORA2+... & + 6.3500D-01 * RXRAT( 317 ) ! MACP+ACO3=0.6350D+00*ORA2+... & + 5.0000D-01 * RXRAT( 318 ) ! MCP+ACO3=0.5000D+00*ORA2+... & + 1.0830D+00 * RXRAT( 319 ) ! MVKP+ACO3=0.1083D+01*ORA2+... & + 5.0000D-01 * RXRAT( 320 ) ! UALP+ACO3=0.5000D+00*ORA2+... & + 5.0000D-01 * RXRAT( 327 ) ! OLND+ACO3=0.5000D+00*ORA2+... & + 3.0000D-01 * RXRAT( 392 ) ! BDE13P+ACO3=0.3000D+... & + 3.0000D-01 * RXRAT( 480 ) ! VROCP6AROP+ACO3=0.3000D+... & + 3.0000D-01 * RXRAT( 486 ) ! VROCP5AROP+ACO3=0.3000D+... & + 3.0000D-01 * RXRAT( 492 ) ! NAPHP+ACO3=0.3000D+00*ORA2+... LOSS( ORA2 ) = RXRAT( 123 ) ! ORA2+HO=0.6400D+00*MO2+... PROD( ORAP ) = 3.6000D-01 * RXRAT( 123 ) ! ORA2+HO=0.3600D+00*ORAP+... LOSS( ORAP ) = RXRAT( 208 ) ! ORAP+NO=NO2+GLY+HO2 & + RXRAT( 250 ) ! ORAP+HO2=OP2 & + RXRAT( 288 ) ! ORAP+MO2=HCHO+HO2+GLY & + RXRAT( 325 ) ! ORAP+ACO3=MO2+GLY & + RXRAT( 358 ) ! ORAP+NO3=NO2+GLY+HO2 PROD( PPN ) = RXRAT( 169 ) ! RCO3+NO2=PPN LOSS( PPN ) = RXRAT( 126 ) ! PPN+HO=XO2+NO3+HCHO & + RXRAT( 170 ) ! PPN=RCO3+NO2 PROD( MPAN ) = RXRAT( 171 ) ! MACP+NO2=MPAN LOSS( MPAN ) = RXRAT( 127 ) ! MPAN+HO=NO2+HKET & + RXRAT( 164 ) ! MPAN+NO3=MACP+NO2 & + RXRAT( 172 ) ! MPAN=MACP+NO2 PROD( TRPN ) = 1.8000D-01 * RXRAT( 185 ) ! APIP1+NO=0.1800D+00*TRPN+... & + 2.3000D-01 * RXRAT( 189 ) ! LIMP1+NO=0.2300D+00*TRPN+... & + 5.0000D-02 * RXRAT( 193 ) ! PINALP+NO=0.5000D-01*TRPN+... & + 6.0000D-02 * RXRAT( 194 ) ! LIMALP+NO=0.6000D-01*TRPN+... & + RXRAT( 230 ) ! APINP1+HO2=TRPN & + RXRAT( 234 ) ! LIMNP1+HO2=TRPN & + 1.4000D-01 * RXRAT( 269 ) ! APINP1+MO2=0.1400D+00*TRPN+... & + 3.0000D-01 * RXRAT( 273 ) ! LIMNP1+MO2=0.3000D+00*TRPN+... & + 1.4000D-01 * RXRAT( 306 ) ! APINP1+ACO3=0.1400D+... & + 3.0000D-01 * RXRAT( 310 ) ! LIMNP1+ACO3=0.3000D+... LOSS( TRPN ) = RXRAT( 129 ) ! TRPN+HO=HOM & + RXRAT( 139 ) ! TRPN+O3=HOM & + RXRAT( 153 ) ! TRPN+NO3=HOM PROD( HOM ) = RXRAT( 129 ) ! TRPN+HO=HOM & + RXRAT( 139 ) ! TRPN+O3=HOM & + RXRAT( 153 ) ! TRPN+NO3=HOM & + RXRAT( 165 ) ! PINALP=HOM & + RXRAT( 166 ) ! LIMALP=HOM & + RXRAT( 186 ) ! APIP2+NO=HOM+0.8200D+... & + RXRAT( 188 ) ! APINP2+NO=HOM+0.8200D+... & + RXRAT( 190 ) ! LIMP2+NO=HOM+0.7700D+... & + RXRAT( 192 ) ! LIMNP2+NO=HOM+0.7700D+... & + RXRAT( 229 ) ! APIP2+HO2=HOM & + RXRAT( 231 ) ! APINP2+HO2=HOM & + RXRAT( 233 ) ! LIMP2+HO2=HOM & + RXRAT( 235 ) ! LIMNP2+HO2=HOM & + RXRAT( 268 ) ! APIP2+MO2=HOM+0.7500D+... & + RXRAT( 270 ) ! APINP2+MO2=HOM+0.7500D+... & + RXRAT( 272 ) ! LIMP2+MO2=HOM+0.7500D+... & + RXRAT( 274 ) ! LIMNP2+MO2=HOM+0.7500D+... & + RXRAT( 305 ) ! APIP2+ACO3=HOM+0.5000D+... & + RXRAT( 307 ) ! APINP2+ACO3=HOM+0.5000D+... & + RXRAT( 309 ) ! LIMP2+ACO3=HOM+0.5000D+... & + RXRAT( 311 ) ! LIMNP2+ACO3=HOM+0.5000D+... & + 9.6000D-01 * RXRAT( 368 ) ! APIP2+APIP1=0.9600D+00*HOM+... & + 9.6000D-01 * RXRAT( 369 ) ! APIP2+LIMP1=0.9600D+00*HOM+... & + 9.6000D-01 * RXRAT( 370 ) ! APIP2+ISOP=0.9600D+00*HOM+... & + 9.6000D-01 * RXRAT( 371 ) ! LIMP2+APIP1=0.9600D+00*HOM+... & + 9.6000D-01 * RXRAT( 372 ) ! LIMP2+LIMP1=0.9600D+00*HOM+... & + 9.6000D-01 * RXRAT( 373 ) ! LIMP2+ISOP=0.9600D+00*HOM+... & + 9.6000D-01 * RXRAT( 374 ) ! APINP2+APIP1=0.9600D+... & + 9.6000D-01 * RXRAT( 375 ) ! APINP2+LIMP1=0.9600D+... & + 9.6000D-01 * RXRAT( 376 ) ! APINP2+ISOP=0.9600D+00*HOM+... & + 9.6000D-01 * RXRAT( 377 ) ! LIMNP2+APIP1=0.9600D+... & + 9.6000D-01 * RXRAT( 378 ) ! LIMNP2+LIMP1=0.9600D+... & + 9.6000D-01 * RXRAT( 379 ) ! LIMNP2+ISOP=0.9600D+00*HOM+... LOSS( HOM ) = 0.0D0 PROD( NALD ) = RXRAT( 131 ) ! ISON+HO=NALD+0.7000D-... LOSS( NALD ) = RXRAT( 130 ) ! NALD+HO=NO2+XO2+HKET PROD( ISON ) = RXRAT( 150 ) ! ISO+NO3=ISON & + 1.2000D-01 * RXRAT( 184 ) ! ISOP+NO=0.1200D+00*ISON+... LOSS( ISON ) = RXRAT( 131 ) ! ISON+HO=NALD+0.7000D-... PROD( MCTP ) = RXRAT( 146 ) ! MCTO+O3=MCTP LOSS( MCTP ) = RXRAT( 207 ) ! MCTP+NO=MCTO+NO2 & + RXRAT( 249 ) ! MCTP+HO2=OP2 & + RXRAT( 287 ) ! MCTP+MO2=HO2+MCTO+HCHO & + RXRAT( 324 ) ! MCTP+ACO3=HO2+MO2+MCTO & + RXRAT( 357 ) ! MCTP+NO3=NO2+MCTO PROD( OLNN ) = 8.0000D-01 * RXRAT( 147 ) ! ETE+NO3=0.8000D+00*OLNN+... & + 4.3000D-01 * RXRAT( 148 ) ! OLT+NO3=0.4300D+00*OLNN+... & + 1.1000D-01 * RXRAT( 149 ) ! OLI+NO3=0.1100D+00*OLNN+... & + 9.0000D-01 * RXRAT( 394 ) ! BDE13+NO3=0.9000D+00*OLNN+... LOSS( OLNN ) = RXRAT( 209 ) ! OLNN+NO=NO2+HO2+ONIT & + RXRAT( 251 ) ! OLNN+HO2=ONIT & + RXRAT( 289 ) ! OLNN+MO2=0.2000D+01*HO2+... & + RXRAT( 326 ) ! OLNN+ACO3=HO2+MO2+ONIT & + RXRAT( 359 ) ! OLNN+NO3=HO2+NO2+ONIT & + 2.0000D+00 * RXRAT( 362 ) ! OLNN+OLNN=HO2+0.2000D+01*ONIT & + RXRAT( 363 ) ! OLNN+OLND=0.5000D+00*HO2+... PROD( OLND ) = 2.0000D-01 * RXRAT( 147 ) ! ETE+NO3=0.2000D+00*OLND+... & + 5.7000D-01 * RXRAT( 148 ) ! OLT+NO3=0.5700D+00*OLND+... & + 8.9000D-01 * RXRAT( 149 ) ! OLI+NO3=0.8900D+00*OLND+... & + 1.0000D-01 * RXRAT( 394 ) ! BDE13+NO3=0.1000D+00*OLND+... LOSS( OLND ) = RXRAT( 210 ) ! OLND+NO=0.2000D+01*NO2+... & + RXRAT( 252 ) ! OLND+HO2=ONIT & + RXRAT( 290 ) ! OLND+MO2=0.5000D+00*HO2+... & + RXRAT( 327 ) ! OLND+ACO3=0.5000D+00*MO2+... & + RXRAT( 360 ) ! OLND+NO3=0.2000D+01*NO2+... & + RXRAT( 363 ) ! OLND+OLNN=0.5000D+00*HO2+... & + 2.0000D+00 * RXRAT( 364 ) ! OLND+OLND=NO2+0.5040D+... PROD( APINP1 ) = 9.7500D-01 * RXRAT( 151 ) ! API+NO3=0.9750D+00*APINP1+... LOSS( APINP1 ) = RXRAT( 187 ) ! APINP1+NO=0.2000D+01*NO2+PINAL & + RXRAT( 230 ) ! APINP1+HO2=TRPN & + RXRAT( 269 ) ! APINP1+MO2=0.3700D+00*HO2+... & + RXRAT( 306 ) ! APINP1+ACO3=0.8600D+00*NO2+... PROD( APINP2 ) = 2.5000D-02 * RXRAT( 151 ) ! API+NO3=0.2500D-01*APINP2+... LOSS( APINP2 ) = RXRAT( 188 ) ! APINP2+NO=0.8200D+00*NO2+... & + RXRAT( 231 ) ! APINP2+HO2=HOM & + RXRAT( 270 ) ! APINP2+MO2=0.7500D+00*HO2+... & + RXRAT( 307 ) ! APINP2+ACO3=0.5000D+00*NO2+... & + RXRAT( 374 ) ! APINP2+APIP1=0.9600D+... & + RXRAT( 375 ) ! APINP2+LIMP1=0.9600D+... & + RXRAT( 376 ) ! APINP2+ISOP=0.9600D+00*HOM+... PROD( LIMNP1 ) = 9.4500D-01 * RXRAT( 152 ) ! LIM+NO3=0.9450D+00*LIMNP1+... LOSS( LIMNP1 ) = RXRAT( 191 ) ! LIMNP1+NO=0.2000D+01*NO2+LIMAL & + RXRAT( 234 ) ! LIMNP1+HO2=TRPN & + RXRAT( 273 ) ! LIMNP1+MO2=0.3700D+00*HO2+... & + RXRAT( 310 ) ! LIMNP1+ACO3=0.7000D+00*NO2+... PROD( LIMNP2 ) = 5.5000D-02 * RXRAT( 152 ) ! LIM+NO3=0.5500D-01*LIMNP2+... LOSS( LIMNP2 ) = RXRAT( 192 ) ! LIMNP2+NO=0.7700D+00*NO2+... & + RXRAT( 235 ) ! LIMNP2+HO2=HOM & + RXRAT( 274 ) ! LIMNP2+MO2=0.7500D+00*HO2+... & + RXRAT( 311 ) ! LIMNP2+ACO3=0.5000D+00*MO2+... & + RXRAT( 377 ) ! LIMNP2+APIP1=0.9600D+... & + RXRAT( 378 ) ! LIMNP2+LIMP1=0.9600D+... & + RXRAT( 379 ) ! LIMNP2+ISOP=0.9600D+00*HOM+... PROD( ADCN ) = 4.2400D-01 * RXRAT( 161 ) ! PHEN+NO3=0.4240D+00*ADCN+... & + 4.0000D-01 * RXRAT( 162 ) ! CSL+NO3=0.4000D+00*ADCN+... LOSS( ADCN ) = RXRAT( 211 ) ! ADCN+NO=0.2000D+01*NO2+GLY+OP2 & + RXRAT( 253 ) ! ADCN+HO2=OP2 & + RXRAT( 291 ) ! ADCN+MO2=HO2+0.7000D+... & + RXRAT( 328 ) ! ADCN+ACO3=HO2+MO2+0.7000D+... & + RXRAT( 361 ) ! ADCN+NO3=0.2000D+01*NO2+... PROD( VROCP4OXY2 ) = 1.2000D-03 * RXRAT( 180 ) ! BENP+NO=0.1200D-... & + 1.3000D-03 * RXRAT( 181 ) ! TOLP+NO=0.1300D-... & + 2.8000D-01 * RXRAT( 426 ) ! VROCP6ALKP+NO=0.2800D+... & + RXRAT( 453 ) ! HC10P2=VROCP4OXY2+HO2 & + 1.6000D-01 * RXRAT( 475 ) ! VROCP6ARO+HO=0.1600D+... & + 5.9500D-02 * RXRAT( 476 ) ! VROCP6AROP+HO2=0.5950D-... & + 1.0000D-04 * RXRAT( 477 ) ! VROCP6AROP+NO=0.1000D-... & + 5.9400D-02 * RXRAT( 483 ) ! VROCP5AROP+NO=0.5940D-... & + 5.9500D-02 * RXRAT( 484 ) ! VROCP5AROP+NO3=0.5950D-... & + 5.9500D-02 * RXRAT( 485 ) ! VROCP5AROP+MO2=0.5950D-... & + 5.9500D-02 * RXRAT( 486 ) ! VROCP5AROP+ACO3=0.5950D-... & + 5.9500D-02 * RXRAT( 489 ) ! NAPHP+NO=0.5950D-... & + 5.9500D-02 * RXRAT( 490 ) ! NAPHP+NO3=0.5950D-... & + 5.9500D-02 * RXRAT( 491 ) ! NAPHP+MO2=0.5950D-... & + 5.9500D-02 * RXRAT( 492 ) ! NAPHP+ACO3=0.5950D-... & + 1.8300D-02 * RXRAT( 494 ) ! VROCN2OXY4+HO=0.1830D-... & + 4.5500D-02 * RXRAT( 495 ) ! VROCN2OXY2+HO=0.4550D-... & + 5.1200D-02 * RXRAT( 497 ) ! VROCN1OXY3+HO=0.5120D-... & + 5.0900D-02 * RXRAT( 498 ) ! VROCN1OXY1+HO=0.5090D-... & + 2.4600D-02 * RXRAT( 499 ) ! VROCP0OXY4+HO=0.2460D-... & + 5.1900D-02 * RXRAT( 500 ) ! VROCP0OXY2+HO=0.5190D-... & + 6.4900D-02 * RXRAT( 501 ) ! VROCP1OXY3+HO=0.6490D-... & + 6.6800D-02 * RXRAT( 502 ) ! VROCP1OXY1+HO=0.6680D-... & + 7.3300D-02 * RXRAT( 503 ) ! VROCP2OXY2+HO=0.7330D-... & + 4.2600D-02 * RXRAT( 504 ) ! VROCP3OXY2+HO=0.4260D-... & + 7.2400D-02 * RXRAT( 506 ) ! VROCP5OXY1+HO=0.7240D-... & + 1.4630D-01 * RXRAT( 507 ) ! VROCP6OXY1+HO=0.1463D+... LOSS( VROCP4OXY2 ) = 9.9760D-01 * RXRAT( 505 ) ! VROCP4OXY2+HO=0.2400D-... PROD( VROCN1OXY6 ) = 8.0000D-04 * RXRAT( 180 ) ! BENP+NO=0.8000D-... & + 6.0000D-04 * RXRAT( 181 ) ! TOLP+NO=0.6000D-... & + 3.9790D-01 * RXRAT( 223 ) ! BENP+HO2=0.3979D+... & + 2.8050D-01 * RXRAT( 224 ) ! TOLP+HO2=0.2805D+... & + 1.2100D-02 * RXRAT( 494 ) ! VROCN2OXY4+HO=0.1210D-... & + 1.5300D-02 * RXRAT( 495 ) ! VROCN2OXY2+HO=0.1530D-... & + 3.1900D-02 * RXRAT( 497 ) ! VROCN1OXY3+HO=0.3190D-... & + 1.2200D-02 * RXRAT( 498 ) ! VROCN1OXY1+HO=0.1220D-... & + 3.2000D-02 * RXRAT( 499 ) ! VROCP0OXY4+HO=0.3200D-... & + 3.2500D-02 * RXRAT( 500 ) ! VROCP0OXY2+HO=0.3250D-... & + 7.4000D-02 * RXRAT( 501 ) ! VROCP1OXY3+HO=0.7400D-... & + 8.0000D-03 * RXRAT( 502 ) ! VROCP1OXY1+HO=0.8000D-... & + 5.1300D-02 * RXRAT( 503 ) ! VROCP2OXY2+HO=0.5130D-... & + 5.2600D-02 * RXRAT( 504 ) ! VROCP3OXY2+HO=0.5260D-... & + 4.8000D-02 * RXRAT( 505 ) ! VROCP4OXY2+HO=0.4800D-... & + 9.0000D-03 * RXRAT( 506 ) ! VROCP5OXY1+HO=0.9000D-... & + 6.1000D-03 * RXRAT( 507 ) ! VROCP6OXY1+HO=0.6100D-... & + 3.9000D-02 * RXRAT( 508 ) ! OP3+HO=0.3900D-... LOSS( VROCN1OXY6 ) = RXRAT( 496 ) ! VROCN1OXY6+HO=HO+0.2036D+... PROD( FURANONE ) = 4.9900D-01 * RXRAT( 180 ) ! BENP+NO=0.4990D+... & + 3.6510D-01 * RXRAT( 181 ) ! TOLP+NO=0.3651D+... & + 3.5150D-01 * RXRAT( 182 ) ! XYMP+NO=0.3515D+... & + 4.5640D-01 * RXRAT( 183 ) ! XYEP+NO=0.4564D+... & + 5.0000D-01 * RXRAT( 262 ) ! BENP+MO2=0.5000D+... & + 3.6590D-01 * RXRAT( 263 ) ! TOLP+MO2=0.3659D+... & + 3.5220D-01 * RXRAT( 264 ) ! XYMP+MO2=0.3522D+... & + 4.5730D-01 * RXRAT( 265 ) ! XYEP+MO2=0.4573D+... & + 5.0000D-01 * RXRAT( 299 ) ! BENP+ACO3=0.5000D+... & + 3.6590D-01 * RXRAT( 300 ) ! TOLP+ACO3=0.3659D+... & + 3.5220D-01 * RXRAT( 301 ) ! XYMP+ACO3=0.3522D+... & + 4.5730D-01 * RXRAT( 302 ) ! XYEP+ACO3=0.4573D+... & + 5.0000D-01 * RXRAT( 338 ) ! BENP+NO3=0.5000D+... & + 3.6590D-01 * RXRAT( 339 ) ! TOLP+NO3=0.3659D+... & + 3.5220D-01 * RXRAT( 340 ) ! XYMP+NO3=0.3522D+... & + 4.5730D-01 * RXRAT( 341 ) ! XYEP+NO3=0.4573D+... & + 9.2000D-01 * RXRAT( 396 ) ! FURANO2+NO=0.9200D+... & + 4.0000D-01 * RXRAT( 397 ) ! FURANO2+HO2=0.4000D+... & + 4.6930D-01 * RXRAT( 477 ) ! VROCP6AROP+NO=0.4693D+... & + 4.7020D-01 * RXRAT( 478 ) ! VROCP6AROP+NO3=0.4702D+... & + 4.7020D-01 * RXRAT( 479 ) ! VROCP6AROP+MO2=0.4702D+... & + 4.7020D-01 * RXRAT( 480 ) ! VROCP6AROP+ACO3=0.4702D+... & + 4.6930D-01 * RXRAT( 483 ) ! VROCP5AROP+NO=0.4693D+... & + 4.7020D-01 * RXRAT( 484 ) ! VROCP5AROP+NO3=0.4702D+... & + 4.7020D-01 * RXRAT( 485 ) ! VROCP5AROP+MO2=0.4702D+... & + 4.7020D-01 * RXRAT( 486 ) ! VROCP5AROP+ACO3=0.4702D+... & + 4.6930D-01 * RXRAT( 489 ) ! NAPHP+NO=0.4693D+... & + 4.7020D-01 * RXRAT( 490 ) ! NAPHP+NO3=0.4702D+... & + 4.7020D-01 * RXRAT( 491 ) ! NAPHP+MO2=0.4702D+... & + 4.7020D-01 * RXRAT( 492 ) ! NAPHP+ACO3=0.4702D+... LOSS( FURANONE ) = RXRAT( 398 ) ! FURANONE+HO=0.6500D+00*KET+... PROD( VROCP3OXY2 ) = 1.3000D-03 * RXRAT( 182 ) ! XYMP+NO=0.1300D-... & + 1.3000D-03 * RXRAT( 183 ) ! XYEP+NO=0.1300D-... & + RXRAT( 404 ) ! SESQNRO2+NO=VROCP3OXY2+... & + RXRAT( 405 ) ! SESQNRO2+NO3=VROCP3OXY2+... & + 9.8200D-01 * RXRAT( 406 ) ! SESQ+O3=0.9820D+... & + RXRAT( 409 ) ! SESQRO2+NO3=VROCP3OXY2 & + 7.5300D-01 * RXRAT( 410 ) ! SESQRO2+NO=0.7530D+... & + 2.8000D-01 * RXRAT( 427 ) ! VROCP5ALKP+NO=0.2800D+... & + RXRAT( 440 ) ! VROCP6ALKP+HO2=VROCP3OXY2 & + RXRAT( 447 ) ! VROCP6ALKP2=VROCP3OXY2+HO2 & + 8.6000D-01 * RXRAT( 454 ) ! VROCP6ALKP2+NO=0.8600D+... & + RXRAT( 461 ) ! VROCP6ALKP2+NO3=VROCP3OXY2+... & + 1.6000D-01 * RXRAT( 481 ) ! VROCP5ARO+HO=0.1600D+... & + 5.9500D-02 * RXRAT( 482 ) ! VROCP5AROP+HO2=0.5950D-... & + 1.0000D-04 * RXRAT( 483 ) ! VROCP5AROP+NO=0.1000D-... & + 1.6000D-01 * RXRAT( 487 ) ! NAPH+HO=0.1600D+... & + 5.9500D-02 * RXRAT( 488 ) ! NAPHP+HO2=0.5950D-... & + 3.9800D-02 * RXRAT( 494 ) ! VROCN2OXY4+HO=0.3980D-... & + 4.5200D-02 * RXRAT( 495 ) ! VROCN2OXY2+HO=0.4520D-... & + 4.6200D-02 * RXRAT( 497 ) ! VROCN1OXY3+HO=0.4620D-... & + 5.1800D-02 * RXRAT( 498 ) ! VROCN1OXY1+HO=0.5180D-... & + 5.3500D-02 * RXRAT( 499 ) ! VROCP0OXY4+HO=0.5350D-... & + 5.1600D-02 * RXRAT( 500 ) ! VROCP0OXY2+HO=0.5160D-... & + 5.8500D-02 * RXRAT( 501 ) ! VROCP1OXY3+HO=0.5850D-... & + 7.0900D-02 * RXRAT( 502 ) ! VROCP1OXY1+HO=0.7090D-... & + 2.9300D-02 * RXRAT( 503 ) ! VROCP2OXY2+HO=0.2930D-... & + 4.5600D-02 * RXRAT( 505 ) ! VROCP4OXY2+HO=0.4560D-... & + 1.5660D-01 * RXRAT( 506 ) ! VROCP5OXY1+HO=0.1566D+... & + 1.3840D-01 * RXRAT( 507 ) ! VROCP6OXY1+HO=0.1384D+... LOSS( VROCP3OXY2 ) = 9.9140D-01 * RXRAT( 504 ) ! VROCP3OXY2+HO=0.8600D-... PROD( VROCP0OXY4 ) = 6.0000D-04 * RXRAT( 182 ) ! XYMP+NO=0.6000D-... & + 6.0000D-04 * RXRAT( 183 ) ! XYEP+NO=0.6000D-... & + 2.7710D-01 * RXRAT( 225 ) ! XYMP+HO2=0.2771D+... & + 2.8050D-01 * RXRAT( 226 ) ! XYEP+HO2=0.2805D+... & + RXRAT( 403 ) ! SESQNRO2+HO2=VROCP0OXY4 & + 6.2400D-02 * RXRAT( 494 ) ! VROCN2OXY4+HO=0.6240D-... & + 1.8900D-02 * RXRAT( 495 ) ! VROCN2OXY2+HO=0.1890D-... & + 1.9400D-02 * RXRAT( 497 ) ! VROCN1OXY3+HO=0.1940D-... & + 2.9100D-02 * RXRAT( 498 ) ! VROCN1OXY1+HO=0.2910D-... & + 3.0700D-02 * RXRAT( 500 ) ! VROCP0OXY2+HO=0.3070D-... & + 6.3100D-02 * RXRAT( 501 ) ! VROCP1OXY3+HO=0.6310D-... & + 2.9200D-02 * RXRAT( 502 ) ! VROCP1OXY1+HO=0.2920D-... & + 1.3370D-01 * RXRAT( 503 ) ! VROCP2OXY2+HO=0.1337D+... & + 1.5500D-01 * RXRAT( 504 ) ! VROCP3OXY2+HO=0.1550D+... & + 8.8100D-02 * RXRAT( 505 ) ! VROCP4OXY2+HO=0.8810D-... & + 7.0200D-02 * RXRAT( 506 ) ! VROCP5OXY1+HO=0.7020D-... & + 2.2400D-02 * RXRAT( 507 ) ! VROCP6OXY1+HO=0.2240D-... & + 1.1400D-02 * RXRAT( 508 ) ! OP3+HO=0.1140D-... LOSS( VROCP0OXY4 ) = 9.9890D-01 * RXRAT( 499 ) ! VROCP0OXY4+HO=0.1100D-... PROD( BAL1 ) = RXRAT( 204 ) ! BALP+NO=BAL1+NO2 & + RXRAT( 284 ) ! BALP+MO2=BAL1+HO2+HCHO & + RXRAT( 321 ) ! BALP+ACO3=BAL1+MO2 & + RXRAT( 354 ) ! BALP+NO3=BAL1+NO2 LOSS( BAL1 ) = RXRAT( 205 ) ! BAL1+NO=BAL2+NO2 & + RXRAT( 285 ) ! BAL1+MO2=HO2+BAL2+HCHO & + RXRAT( 322 ) ! BAL1+ACO3=MO2+BAL2 & + RXRAT( 355 ) ! BAL1+NO3=BAL2+NO2 PROD( BAL2 ) = RXRAT( 205 ) ! BAL1+NO=BAL2+NO2 & + RXRAT( 285 ) ! BAL1+MO2=BAL2+HO2+HCHO & + RXRAT( 322 ) ! BAL1+ACO3=BAL2+MO2 & + RXRAT( 355 ) ! BAL1+NO3=BAL2+NO2 LOSS( BAL2 ) = RXRAT( 213 ) ! BAL2+NO2=ONIT PROD( ELHOM ) = 4.0000D-02 * RXRAT( 368 ) ! APIP2+APIP1=0.4000D-... & + 4.0000D-02 * RXRAT( 369 ) ! APIP2+LIMP1=0.4000D-... & + 4.0000D-02 * RXRAT( 370 ) ! APIP2+ISOP=0.4000D-... & + 4.0000D-02 * RXRAT( 371 ) ! LIMP2+APIP1=0.4000D-... & + 4.0000D-02 * RXRAT( 372 ) ! LIMP2+LIMP1=0.4000D-... & + 4.0000D-02 * RXRAT( 373 ) ! LIMP2+ISOP=0.4000D-... & + 4.0000D-02 * RXRAT( 374 ) ! APINP2+APIP1=0.4000D-... & + 4.0000D-02 * RXRAT( 375 ) ! APINP2+LIMP1=0.4000D-... & + 4.0000D-02 * RXRAT( 376 ) ! APINP2+ISOP=0.4000D-... & + 4.0000D-02 * RXRAT( 377 ) ! LIMNP2+APIP1=0.4000D-... & + 4.0000D-02 * RXRAT( 378 ) ! LIMNP2+LIMP1=0.4000D-... & + 4.0000D-02 * RXRAT( 379 ) ! LIMNP2+ISOP=0.4000D-... LOSS( ELHOM ) = 0.0D0 PROD( VROCIOXY ) = 0.0D0 LOSS( VROCIOXY ) = RXRAT( 381 ) ! VROCIOXY+HO=0.8520D+... PROD( SLOWROC ) = 0.0D0 LOSS( SLOWROC ) = RXRAT( 382 ) ! SLOWROC+HO=ETHP+0.1010D-... PROD( ACRO ) = 8.9500D-01 * RXRAT( 388 ) ! BDE13P+NO=0.8950D+00*ACRO+... & + 9.2500D-01 * RXRAT( 389 ) ! BDE13P+NO3=0.9250D+00*ACRO+... & + 4.6300D-01 * RXRAT( 391 ) ! BDE13P+MO2=0.4630D+00*ACRO+... & + 7.4000D-01 * RXRAT( 392 ) ! BDE13P+ACO3=0.7400D+... & + 6.2000D-01 * RXRAT( 393 ) ! BDE13+O3=0.6200D+00*ACRO+... & + 9.0000D-01 * RXRAT( 394 ) ! BDE13+NO3=0.9000D+00*ACRO+... LOSS( ACRO ) = RXRAT( 383 ) ! ACRO+HO=0.5700D+00*MACP+... & + RXRAT( 384 ) ! ACRO+O3=0.8400D+00*CO+... & + RXRAT( 385 ) ! ACRO+NO3=0.6800D+00*HCHO+... & + RXRAT( 386 ) ! ACRO=CO+0.4770D+00*HO2+... PROD( BDE13 ) = 0.0D0 LOSS( BDE13 ) = RXRAT( 387 ) ! BDE13+HO=0.6670D+00*BDE13P+... & + RXRAT( 393 ) ! BDE13+O3=0.6200D+00*ACRO+... & + RXRAT( 394 ) ! BDE13+NO3=0.9000D+00*OLNN+... PROD( BDE13P ) = 6.6700D-01 * RXRAT( 387 ) ! BDE13+HO=0.6670D+00*BDE13P+... LOSS( BDE13P ) = RXRAT( 388 ) ! BDE13P+NO=0.9680D+00*HO2+... & + RXRAT( 389 ) ! BDE13P+NO3=HO2+NO2+0.9250D+... & + RXRAT( 390 ) ! BDE13P+HO2=OP2 & + RXRAT( 391 ) ! BDE13P+MO2=0.3200D+00*MOH+... & + RXRAT( 392 ) ! BDE13P+ACO3=0.7000D+00*MO2+... PROD( FURAN ) = 7.2000D-02 * RXRAT( 388 ) ! BDE13P+NO=0.7200D-01*FURAN+... & + 7.5000D-02 * RXRAT( 389 ) ! BDE13P+NO3=0.7500D-... & + 3.7000D-02 * RXRAT( 391 ) ! BDE13P+MO2=0.3700D-... & + 6.0000D-02 * RXRAT( 392 ) ! BDE13P+ACO3=0.6000D-... LOSS( FURAN ) = RXRAT( 395 ) ! FURAN+HO=0.4900D+00*DCB1+... & + RXRAT( 399 ) ! FURAN+O3=0.2000D-01*HO+ALD & + RXRAT( 400 ) ! FURAN+NO3=NO2+0.8000D+... PROD( FURANO2 ) = 5.1000D-01 * RXRAT( 395 ) ! FURAN+HO=0.5100D+... LOSS( FURANO2 ) = RXRAT( 396 ) ! FURANO2+NO=0.8000D-01*ONIT+... & + RXRAT( 397 ) ! FURANO2+HO2=0.6000D+00*OP2+... PROD( PROG ) = 0.0D0 LOSS( PROG ) = RXRAT( 401 ) ! PROG+HO=0.6130D+00*HKET+... PROD( SESQ ) = 0.0D0 LOSS( SESQ ) = RXRAT( 402 ) ! SESQ+NO3=SESQNRO2 & + RXRAT( 406 ) ! SESQ+O3=0.9820D+... & + RXRAT( 407 ) ! SESQ+HO=SESQRO2 PROD( SESQNRO2 ) = RXRAT( 402 ) ! SESQ+NO3=SESQNRO2 LOSS( SESQNRO2 ) = RXRAT( 403 ) ! SESQNRO2+HO2=VROCP0OXY4 & + RXRAT( 404 ) ! SESQNRO2+NO=VROCP3OXY2+... & + RXRAT( 405 ) ! SESQNRO2+NO3=VROCP3OXY2+... PROD( VROCN2OXY2 ) = 1.8000D-02 * RXRAT( 406 ) ! SESQ+O3=0.1800D-... & + RXRAT( 445 ) ! VROCP1ALKP+HO2=VROCN2OXY2 & + RXRAT( 452 ) ! VROCP1ALKP2=VROCN2OXY2+HO2 & + 1.4000D-01 * RXRAT( 458 ) ! VROCP2ALKP2+NO=0.1400D+... & + RXRAT( 459 ) ! VROCP1ALKP2+NO=VROCN2OXY2+... & + RXRAT( 466 ) ! VROCP1ALKP2+NO3=VROCN2OXY2+... & + RXRAT( 471 ) ! VROCP3ALKP2+HO2=VROCN2OXY2 & + RXRAT( 472 ) ! VROCP2ALKP2+HO2=VROCN2OXY2 & + RXRAT( 473 ) ! VROCP1ALKP2+HO2=VROCN2OXY2 & + 8.8000D-03 * RXRAT( 497 ) ! VROCN1OXY3+HO=0.8800D-... & + 7.2610D-01 * RXRAT( 498 ) ! VROCN1OXY1+HO=0.7261D+... & + 1.1560D-01 * RXRAT( 500 ) ! VROCP0OXY2+HO=0.1156D+... & + 4.0000D-04 * RXRAT( 501 ) ! VROCP1OXY3+HO=0.4000D-... & + 3.3490D-01 * RXRAT( 502 ) ! VROCP1OXY1+HO=0.3349D+... & + 1.0400D-02 * RXRAT( 503 ) ! VROCP2OXY2+HO=0.1040D-... & + 9.0000D-04 * RXRAT( 504 ) ! VROCP3OXY2+HO=0.9000D-... & + 6.0000D-04 * RXRAT( 506 ) ! VROCP5OXY1+HO=0.6000D-... LOSS( VROCN2OXY2 ) = 7.8590D-01 * RXRAT( 495 ) ! VROCN2OXY2+HO=0.2141D+... PROD( SESQRO2 ) = RXRAT( 407 ) ! SESQ+HO=SESQRO2 LOSS( SESQRO2 ) = RXRAT( 408 ) ! SESQRO2+HO2=VROCP0OXY2 & + RXRAT( 409 ) ! SESQRO2+NO3=VROCP3OXY2 & + RXRAT( 410 ) ! SESQRO2+NO=0.2470D+... PROD( VROCP0OXY2 ) = RXRAT( 408 ) ! SESQRO2+HO2=VROCP0OXY2 & + 2.8000D-01 * RXRAT( 430 ) ! VROCP2ALKP+NO=0.2800D+... & + RXRAT( 443 ) ! VROCP3ALKP+HO2=VROCP0OXY2 & + RXRAT( 450 ) ! VROCP3ALKP2=VROCP0OXY2+HO2 & + 1.4000D-01 * RXRAT( 456 ) ! VROCP4ALKP2+NO=0.1400D+... & + 8.6000D-01 * RXRAT( 457 ) ! VROCP3ALKP2+NO=0.8600D+... & + RXRAT( 464 ) ! VROCP3ALKP2+NO3=VROCP0OXY2+... & + RXRAT( 469 ) ! VROCP5ALKP2+HO2=VROCP0OXY2 & + 9.0480D-01 * RXRAT( 482 ) ! VROCP5AROP+HO2=0.9048D+... & + 4.5600D-02 * RXRAT( 495 ) ! VROCN2OXY2+HO=0.4560D-... & + 1.0400D-02 * RXRAT( 497 ) ! VROCN1OXY3+HO=0.1040D-... & + 4.5400D-02 * RXRAT( 498 ) ! VROCN1OXY1+HO=0.4540D-... & + 7.0000D-04 * RXRAT( 501 ) ! VROCP1OXY3+HO=0.7000D-... & + 7.6600D-02 * RXRAT( 502 ) ! VROCP1OXY1+HO=0.7660D-... & + 4.0300D-02 * RXRAT( 503 ) ! VROCP2OXY2+HO=0.4030D-... & + 1.5500D-02 * RXRAT( 504 ) ! VROCP3OXY2+HO=0.1550D-... & + 1.5300D-02 * RXRAT( 506 ) ! VROCP5OXY1+HO=0.1530D-... LOSS( VROCP0OXY2 ) = 9.9760D-01 * RXRAT( 500 ) ! VROCP0OXY2+HO=0.2400D-... PROD( VROCP1OXY3 ) = 2.4700D-01 * RXRAT( 410 ) ! SESQRO2+NO=0.2470D+... & + 1.4000D-01 * RXRAT( 455 ) ! VROCP5ALKP2+NO=0.1400D+... & + RXRAT( 468 ) ! VROCP6ALKP2+HO2=VROCP1OXY3 & + 9.0480D-01 * RXRAT( 476 ) ! VROCP6AROP+HO2=0.9048D+... & + 1.8000D-03 * RXRAT( 483 ) ! VROCP5AROP+NO=0.1800D-... & + 9.0480D-01 * RXRAT( 488 ) ! NAPHP+HO2=0.9048D+... & + 3.8800D-02 * RXRAT( 494 ) ! VROCN2OXY4+HO=0.3880D-... & + 3.1400D-02 * RXRAT( 495 ) ! VROCN2OXY2+HO=0.3140D-... & + 5.1000D-02 * RXRAT( 497 ) ! VROCN1OXY3+HO=0.5100D-... & + 2.3400D-02 * RXRAT( 498 ) ! VROCN1OXY1+HO=0.2340D-... & + 3.9500D-02 * RXRAT( 500 ) ! VROCP0OXY2+HO=0.3950D-... & + 2.7700D-02 * RXRAT( 502 ) ! VROCP1OXY1+HO=0.2770D-... & + 5.1100D-02 * RXRAT( 503 ) ! VROCP2OXY2+HO=0.5110D-... & + 1.0510D-01 * RXRAT( 504 ) ! VROCP3OXY2+HO=0.1051D+... & + 9.1600D-02 * RXRAT( 505 ) ! VROCP4OXY2+HO=0.9160D-... & + 1.0380D-01 * RXRAT( 506 ) ! VROCP5OXY1+HO=0.1038D+... & + 5.0300D-02 * RXRAT( 507 ) ! VROCP6OXY1+HO=0.5030D-... LOSS( VROCP1OXY3 ) = 9.9940D-01 * RXRAT( 501 ) ! VROCP1OXY3+HO=0.6000D-... PROD( AGLYJ ) = RXRAT( 411 ) ! GLY=AGLYJ & + RXRAT( 412 ) ! MGLY=AGLYJ LOSS( AGLYJ ) = 0.0D0 PROD( IEPOXP ) = RXRAT( 416 ) ! IEPOX=IEPOXP LOSS( IEPOXP ) = RXRAT( 417 ) ! IEPOXP=AISO3NOSJ & + RXRAT( 418 ) ! IEPOXP+ASO4J=AISO3OSJ PROD( AISO3NOSJ ) = RXRAT( 417 ) ! IEPOXP=AISO3NOSJ LOSS( AISO3NOSJ ) = 0.0D0 PROD( ASO4J ) = 0.0D0 LOSS( ASO4J ) = RXRAT( 418 ) ! ASO4J+IEPOXP=AISO3OSJ PROD( AISO3OSJ ) = RXRAT( 418 ) ! IEPOXP+ASO4J=AISO3OSJ LOSS( AISO3OSJ ) = 0.0D0 PROD( VROCP6ALK ) = 0.0D0 LOSS( VROCP6ALK ) = RXRAT( 419 ) ! VROCP6ALK+HO=VROCP6ALKP PROD( VROCP6ALKP ) = RXRAT( 419 ) ! VROCP6ALK+HO=VROCP6ALKP LOSS( VROCP6ALKP ) = RXRAT( 426 ) ! VROCP6ALKP+NO=0.7200D+... & + RXRAT( 433 ) ! VROCP6ALKP+NO3=VROCP6ALKP2+NO2 & + RXRAT( 440 ) ! VROCP6ALKP+HO2=VROCP3OXY2 PROD( VROCP5ALK ) = 0.0D0 LOSS( VROCP5ALK ) = RXRAT( 420 ) ! VROCP5ALK+HO=VROCP5ALKP PROD( VROCP5ALKP ) = RXRAT( 420 ) ! VROCP5ALK+HO=VROCP5ALKP LOSS( VROCP5ALKP ) = RXRAT( 427 ) ! VROCP5ALKP+NO=0.7200D+... & + RXRAT( 434 ) ! VROCP5ALKP+NO3=VROCP5ALKP2+NO2 & + RXRAT( 441 ) ! VROCP5ALKP+HO2=VROCP2OXY2 PROD( VROCP4ALK ) = 0.0D0 LOSS( VROCP4ALK ) = RXRAT( 421 ) ! VROCP4ALK+HO=VROCP4ALKP PROD( VROCP4ALKP ) = RXRAT( 421 ) ! VROCP4ALK+HO=VROCP4ALKP LOSS( VROCP4ALKP ) = RXRAT( 428 ) ! VROCP4ALKP+NO=0.7200D+... & + RXRAT( 435 ) ! VROCP4ALKP+NO3=VROCP4ALKP2+NO2 & + RXRAT( 442 ) ! VROCP4ALKP+HO2=VROCP1OXY1 PROD( VROCP3ALK ) = 0.0D0 LOSS( VROCP3ALK ) = RXRAT( 422 ) ! VROCP3ALK+HO=VROCP3ALKP PROD( VROCP3ALKP ) = RXRAT( 422 ) ! VROCP3ALK+HO=VROCP3ALKP LOSS( VROCP3ALKP ) = RXRAT( 429 ) ! VROCP3ALKP+NO=0.7200D+... & + RXRAT( 436 ) ! VROCP3ALKP+NO3=VROCP3ALKP2+NO2 & + RXRAT( 443 ) ! VROCP3ALKP+HO2=VROCP0OXY2 PROD( VROCP2ALK ) = 0.0D0 LOSS( VROCP2ALK ) = RXRAT( 423 ) ! VROCP2ALK+HO=VROCP2ALKP PROD( VROCP2ALKP ) = RXRAT( 423 ) ! VROCP2ALK+HO=VROCP2ALKP LOSS( VROCP2ALKP ) = RXRAT( 430 ) ! VROCP2ALKP+NO=0.7200D+... & + RXRAT( 437 ) ! VROCP2ALKP+NO3=VROCP2ALKP2+NO2 & + RXRAT( 444 ) ! VROCP2ALKP+HO2=VROCN1OXY1 PROD( VROCP1ALK ) = 0.0D0 LOSS( VROCP1ALK ) = RXRAT( 424 ) ! VROCP1ALK+HO=VROCP1ALKP PROD( VROCP1ALKP ) = RXRAT( 424 ) ! VROCP1ALK+HO=VROCP1ALKP LOSS( VROCP1ALKP ) = RXRAT( 431 ) ! VROCP1ALKP+NO=0.7200D+... & + RXRAT( 438 ) ! VROCP1ALKP+NO3=VROCP1ALKP2+NO2 & + RXRAT( 445 ) ! VROCP1ALKP+HO2=VROCN2OXY2 PROD( HC10 ) = 0.0D0 LOSS( HC10 ) = RXRAT( 425 ) ! HC10+HO=HC10P PROD( VROCP6ALKP2 ) = 7.2000D-01 * RXRAT( 426 ) ! VROCP6ALKP+NO=0.7200D+... & + RXRAT( 433 ) ! VROCP6ALKP+NO3=VROCP6ALKP2+NO2 LOSS( VROCP6ALKP2 ) = RXRAT( 447 ) ! VROCP6ALKP2=HO2+VROCP3OXY2 & + RXRAT( 454 ) ! VROCP6ALKP2+NO=0.1400D+... & + RXRAT( 461 ) ! VROCP6ALKP2+NO3=NO2+... & + RXRAT( 468 ) ! VROCP6ALKP2+HO2=VROCP1OXY3 PROD( VROCP5ALKP2 ) = 7.2000D-01 * RXRAT( 427 ) ! VROCP5ALKP+NO=0.7200D+... & + RXRAT( 434 ) ! VROCP5ALKP+NO3=VROCP5ALKP2+NO2 LOSS( VROCP5ALKP2 ) = RXRAT( 448 ) ! VROCP5ALKP2=HO2+VROCP2OXY2 & + RXRAT( 455 ) ! VROCP5ALKP2+NO=0.1400D+... & + RXRAT( 462 ) ! VROCP5ALKP2+NO3=NO2+... & + RXRAT( 469 ) ! VROCP5ALKP2+HO2=VROCP0OXY2 PROD( VROCP4ALKP2 ) = 7.2000D-01 * RXRAT( 428 ) ! VROCP4ALKP+NO=0.7200D+... & + RXRAT( 435 ) ! VROCP4ALKP+NO3=VROCP4ALKP2+NO2 LOSS( VROCP4ALKP2 ) = RXRAT( 449 ) ! VROCP4ALKP2=HO2+VROCP1OXY1 & + RXRAT( 456 ) ! VROCP4ALKP2+NO=0.1400D+... & + RXRAT( 463 ) ! VROCP4ALKP2+NO3=NO2+... & + RXRAT( 470 ) ! VROCP4ALKP2+HO2=VROCN1OXY1 PROD( VROCP2OXY2 ) = 2.8000D-01 * RXRAT( 428 ) ! VROCP4ALKP+NO=0.2800D+... & + RXRAT( 441 ) ! VROCP5ALKP+HO2=VROCP2OXY2 & + RXRAT( 448 ) ! VROCP5ALKP2=VROCP2OXY2+HO2 & + 1.4000D-01 * RXRAT( 454 ) ! VROCP6ALKP2+NO=0.1400D+... & + 8.6000D-01 * RXRAT( 455 ) ! VROCP5ALKP2+NO=0.8600D+... & + RXRAT( 462 ) ! VROCP5ALKP2+NO3=VROCP2OXY2+... & + RXRAT( 474 ) ! HC10P2+HO2=VROCP2OXY2 & + 1.8000D-03 * RXRAT( 477 ) ! VROCP6AROP+NO=0.1800D-... & + 1.8000D-03 * RXRAT( 489 ) ! NAPHP+NO=0.1800D-... & + 4.9100D-02 * RXRAT( 494 ) ! VROCN2OXY4+HO=0.4910D-... & + 4.5900D-02 * RXRAT( 495 ) ! VROCN2OXY2+HO=0.4590D-... & + 5.1200D-02 * RXRAT( 497 ) ! VROCN1OXY3+HO=0.5120D-... & + 6.2400D-02 * RXRAT( 498 ) ! VROCN1OXY1+HO=0.6240D-... & + 6.6000D-02 * RXRAT( 499 ) ! VROCP0OXY4+HO=0.6600D-... & + 5.3900D-02 * RXRAT( 500 ) ! VROCP0OXY2+HO=0.5390D-... & + 2.2700D-02 * RXRAT( 501 ) ! VROCP1OXY3+HO=0.2270D-... & + 6.5100D-02 * RXRAT( 502 ) ! VROCP1OXY1+HO=0.6510D-... & + 5.3500D-02 * RXRAT( 504 ) ! VROCP3OXY2+HO=0.5350D-... & + 9.7200D-02 * RXRAT( 505 ) ! VROCP4OXY2+HO=0.9720D-... & + 1.6500D-01 * RXRAT( 506 ) ! VROCP5OXY1+HO=0.1650D+... & + 8.7900D-02 * RXRAT( 507 ) ! VROCP6OXY1+HO=0.8790D-... LOSS( VROCP2OXY2 ) = 9.7640D-01 * RXRAT( 503 ) ! VROCP2OXY2+HO=0.2360D-... PROD( VROCP3ALKP2 ) = 7.2000D-01 * RXRAT( 429 ) ! VROCP3ALKP+NO=0.7200D+... & + RXRAT( 436 ) ! VROCP3ALKP+NO3=VROCP3ALKP2+NO2 LOSS( VROCP3ALKP2 ) = RXRAT( 450 ) ! VROCP3ALKP2=HO2+VROCP0OXY2 & + RXRAT( 457 ) ! VROCP3ALKP2+NO=0.1400D+... & + RXRAT( 464 ) ! VROCP3ALKP2+NO3=NO2+... & + RXRAT( 471 ) ! VROCP3ALKP2+HO2=VROCN2OXY2 PROD( VROCP1OXY1 ) = 2.8000D-01 * RXRAT( 429 ) ! VROCP3ALKP+NO=0.2800D+... & + RXRAT( 442 ) ! VROCP4ALKP+HO2=VROCP1OXY1 & + RXRAT( 449 ) ! VROCP4ALKP2=VROCP1OXY1+HO2 & + 8.6000D-01 * RXRAT( 456 ) ! VROCP4ALKP2+NO=0.8600D+... & + RXRAT( 463 ) ! VROCP4ALKP2+NO3=VROCP1OXY1+... & + 1.9900D-02 * RXRAT( 495 ) ! VROCN2OXY2+HO=0.1990D-... & + 7.5000D-03 * RXRAT( 497 ) ! VROCN1OXY3+HO=0.7500D-... & + 3.5200D-02 * RXRAT( 498 ) ! VROCN1OXY1+HO=0.3520D-... & + 2.1500D-02 * RXRAT( 500 ) ! VROCP0OXY2+HO=0.2150D-... & + 6.8000D-03 * RXRAT( 503 ) ! VROCP2OXY2+HO=0.6800D-... & + 1.3000D-03 * RXRAT( 504 ) ! VROCP3OXY2+HO=0.1300D-... & + 7.3000D-03 * RXRAT( 505 ) ! VROCP4OXY2+HO=0.7300D-... & + 3.1000D-03 * RXRAT( 506 ) ! VROCP5OXY1+HO=0.3100D-... & + 2.2000D-03 * RXRAT( 507 ) ! VROCP6OXY1+HO=0.2200D-... LOSS( VROCP1OXY1 ) = 9.8820D-01 * RXRAT( 502 ) ! VROCP1OXY1+HO=0.1180D-... PROD( VROCP2ALKP2 ) = 7.2000D-01 * RXRAT( 430 ) ! VROCP2ALKP+NO=0.7200D+... & + RXRAT( 437 ) ! VROCP2ALKP+NO3=VROCP2ALKP2+NO2 LOSS( VROCP2ALKP2 ) = RXRAT( 451 ) ! VROCP2ALKP2=HO2+VROCN1OXY1 & + RXRAT( 458 ) ! VROCP2ALKP2+NO=0.1400D+... & + RXRAT( 465 ) ! VROCP2ALKP2+NO3=NO2+... & + RXRAT( 472 ) ! VROCP2ALKP2+HO2=VROCN2OXY2 PROD( VROCP1ALKP2 ) = 7.2000D-01 * RXRAT( 431 ) ! VROCP1ALKP+NO=0.7200D+... & + RXRAT( 438 ) ! VROCP1ALKP+NO3=VROCP1ALKP2+NO2 LOSS( VROCP1ALKP2 ) = RXRAT( 452 ) ! VROCP1ALKP2=HO2+VROCN2OXY2 & + RXRAT( 459 ) ! VROCP1ALKP2+NO=VROCN2OXY2+... & + RXRAT( 466 ) ! VROCP1ALKP2+NO3=NO2+... & + RXRAT( 473 ) ! VROCP1ALKP2+HO2=VROCN2OXY2 PROD( VROCN1OXY1 ) = 2.8000D-01 * RXRAT( 431 ) ! VROCP1ALKP+NO=0.2800D+... & + RXRAT( 444 ) ! VROCP2ALKP+HO2=VROCN1OXY1 & + RXRAT( 451 ) ! VROCP2ALKP2=VROCN1OXY1+HO2 & + 1.4000D-01 * RXRAT( 457 ) ! VROCP3ALKP2+NO=0.1400D+... & + 8.6000D-01 * RXRAT( 458 ) ! VROCP2ALKP2+NO=0.8600D+... & + RXRAT( 465 ) ! VROCP2ALKP2+NO3=VROCN1OXY1+... & + RXRAT( 470 ) ! VROCP4ALKP2+HO2=VROCN1OXY1 & + 9.6000D-03 * RXRAT( 495 ) ! VROCN2OXY2+HO=0.9600D-... & + 4.6000D-03 * RXRAT( 500 ) ! VROCP0OXY2+HO=0.4600D-... & + 7.5800D-02 * RXRAT( 502 ) ! VROCP1OXY1+HO=0.7580D-... & + 1.3000D-03 * RXRAT( 503 ) ! VROCP2OXY2+HO=0.1300D-... LOSS( VROCN1OXY1 ) = 9.9300D-01 * RXRAT( 498 ) ! VROCN1OXY1+HO=0.7000D-... PROD( HC10P2 ) = 7.4000D-01 * RXRAT( 432 ) ! HC10P+NO=0.7400D+00*HC10P2+... & + RXRAT( 439 ) ! HC10P+NO3=HC10P2+NO2 LOSS( HC10P2 ) = RXRAT( 453 ) ! HC10P2=HO2+VROCP4OXY2 & + RXRAT( 460 ) ! HC10P2+NO=0.1200D+00*ONIT+... & + RXRAT( 467 ) ! HC10P2+NO3=NO2+KET+HO2 & + RXRAT( 474 ) ! HC10P2+HO2=VROCP2OXY2 PROD( VROCP6ARO ) = 0.0D0 LOSS( VROCP6ARO ) = RXRAT( 475 ) ! VROCP6ARO+HO=0.8400D+... PROD( VROCP6AROP ) = 8.4000D-01 * RXRAT( 475 ) ! VROCP6ARO+HO=0.8400D+... LOSS( VROCP6AROP ) = RXRAT( 476 ) ! VROCP6AROP+HO2=0.5950D-... & + RXRAT( 477 ) ! VROCP6AROP+NO=0.1000D-... & + RXRAT( 478 ) ! VROCP6AROP+NO3=NO2+0.9405D+... & + RXRAT( 479 ) ! VROCP6AROP+MO2=0.6800D+... & + RXRAT( 480 ) ! VROCP6AROP+ACO3=0.7000D+... PROD( VROCN2OXY4 ) = 3.5700D-02 * RXRAT( 476 ) ! VROCP6AROP+HO2=0.3570D-... & + 3.5700D-02 * RXRAT( 482 ) ! VROCP5AROP+HO2=0.3570D-... & + 1.0000D-04 * RXRAT( 483 ) ! VROCP5AROP+NO=0.1000D-... & + 5.6380D-01 * RXRAT( 495 ) ! VROCN2OXY2+HO=0.5638D+... & + 7.1000D-03 * RXRAT( 496 ) ! VROCN1OXY6+HO=0.7100D-... & + 4.0250D-01 * RXRAT( 497 ) ! VROCN1OXY3+HO=0.4025D+... & + 1.1900D-01 * RXRAT( 498 ) ! VROCN1OXY1+HO=0.1190D+... & + 1.1650D-01 * RXRAT( 499 ) ! VROCP0OXY4+HO=0.1165D+... & + 4.5790D-01 * RXRAT( 500 ) ! VROCP0OXY2+HO=0.4579D+... & + 1.9240D-01 * RXRAT( 501 ) ! VROCP1OXY3+HO=0.1924D+... & + 1.3400D-01 * RXRAT( 502 ) ! VROCP1OXY1+HO=0.1340D+... & + 1.7260D-01 * RXRAT( 503 ) ! VROCP2OXY2+HO=0.1726D+... & + 7.6500D-02 * RXRAT( 504 ) ! VROCP3OXY2+HO=0.7650D-... & + 1.6700D-02 * RXRAT( 505 ) ! VROCP4OXY2+HO=0.1670D-... & + 1.0300D-02 * RXRAT( 506 ) ! VROCP5OXY1+HO=0.1030D-... & + 8.0000D-04 * RXRAT( 508 ) ! OP3+HO=0.8000D-... LOSS( VROCN2OXY4 ) = 8.0230D-01 * RXRAT( 494 ) ! VROCN2OXY4+HO=0.1977D+... PROD( VROCN1OXY3 ) = 1.0000D-04 * RXRAT( 477 ) ! VROCP6AROP+NO=0.1000D-... & + 1.5200D-02 * RXRAT( 494 ) ! VROCN2OXY4+HO=0.1520D-... & + 2.9800D-02 * RXRAT( 495 ) ! VROCN2OXY2+HO=0.2980D-... & + 3.0500D-02 * RXRAT( 498 ) ! VROCN1OXY1+HO=0.3050D-... & + 1.8300D-02 * RXRAT( 499 ) ! VROCP0OXY4+HO=0.1830D-... & + 6.5700D-02 * RXRAT( 500 ) ! VROCP0OXY2+HO=0.6570D-... & + 4.5200D-02 * RXRAT( 501 ) ! VROCP1OXY3+HO=0.4520D-... & + 1.1930D-01 * RXRAT( 502 ) ! VROCP1OXY1+HO=0.1193D+... & + 1.1180D-01 * RXRAT( 503 ) ! VROCP2OXY2+HO=0.1118D+... & + 4.8900D-02 * RXRAT( 504 ) ! VROCP3OXY2+HO=0.4890D-... & + 2.4600D-02 * RXRAT( 505 ) ! VROCP4OXY2+HO=0.2460D-... & + 1.4600D-02 * RXRAT( 506 ) ! VROCP5OXY1+HO=0.1460D-... & + 4.9000D-03 * RXRAT( 507 ) ! VROCP6OXY1+HO=0.4900D-... LOSS( VROCN1OXY3 ) = 9.9240D-01 * RXRAT( 497 ) ! VROCN1OXY3+HO=0.7600D-... PROD( VROCP5ARO ) = 0.0D0 LOSS( VROCP5ARO ) = RXRAT( 481 ) ! VROCP5ARO+HO=0.8400D+... PROD( VROCP5AROP ) = 8.4000D-01 * RXRAT( 481 ) ! VROCP5ARO+HO=0.8400D+... LOSS( VROCP5AROP ) = RXRAT( 482 ) ! VROCP5AROP+HO2=0.5950D-... & + RXRAT( 483 ) ! VROCP5AROP+NO=0.1000D-... & + RXRAT( 484 ) ! VROCP5AROP+NO3=NO2+0.9405D+... & + RXRAT( 485 ) ! VROCP5AROP+MO2=0.6800D+... & + RXRAT( 486 ) ! VROCP5AROP+ACO3=0.7000D+... PROD( NAPH ) = 0.0D0 LOSS( NAPH ) = RXRAT( 487 ) ! NAPH+HO=0.8400D+00*NAPHP+... PROD( NAPHP ) = 8.4000D-01 * RXRAT( 487 ) ! NAPH+HO=0.8400D+00*NAPHP+... LOSS( NAPHP ) = RXRAT( 488 ) ! NAPHP+HO2=0.5950D-... & + RXRAT( 489 ) ! NAPHP+NO=0.5950D-... & + RXRAT( 490 ) ! NAPHP+NO3=NO2+0.9405D+... & + RXRAT( 491 ) ! NAPHP+MO2=0.6800D+00*HCHO+... & + RXRAT( 492 ) ! NAPHP+ACO3=0.7000D+00*MO2+... PROD( VROCN2OXY8 ) = 3.5700D-02 * RXRAT( 488 ) ! NAPHP+HO2=0.3570D-... & + 1.0000D-04 * RXRAT( 489 ) ! NAPHP+NO=0.1000D-... & + 4.6400D-01 * RXRAT( 494 ) ! VROCN2OXY4+HO=0.4640D+... & + 1.0410D-01 * RXRAT( 495 ) ! VROCN2OXY2+HO=0.1041D+... & + 2.0360D-01 * RXRAT( 496 ) ! VROCN1OXY6+HO=0.2036D+... & + 2.7920D-01 * RXRAT( 497 ) ! VROCN1OXY3+HO=0.2792D+... & + 7.4000D-03 * RXRAT( 498 ) ! VROCN1OXY1+HO=0.7400D-... & + 2.8220D-01 * RXRAT( 499 ) ! VROCP0OXY4+HO=0.2822D+... & + 6.5900D-02 * RXRAT( 500 ) ! VROCP0OXY2+HO=0.6590D-... & + 1.7780D-01 * RXRAT( 501 ) ! VROCP1OXY3+HO=0.1778D+... & + 2.3000D-03 * RXRAT( 502 ) ! VROCP1OXY1+HO=0.2300D-... & + 4.4500D-02 * RXRAT( 503 ) ! VROCP2OXY2+HO=0.4450D-... & + 3.1700D-02 * RXRAT( 504 ) ! VROCP3OXY2+HO=0.3170D-... & + 1.1700D-02 * RXRAT( 505 ) ! VROCP4OXY2+HO=0.1170D-... & + 1.1880D-01 * RXRAT( 508 ) ! OP3+HO=0.1188D+... LOSS( VROCN2OXY8 ) = 9.1460D-01 * RXRAT( 493 ) ! VROCN2OXY8+HO=0.8540D-... PROD( VROCP5OXY1 ) = 3.2500D-02 * RXRAT( 495 ) ! VROCN2OXY2+HO=0.3250D-... & + 1.3800D-02 * RXRAT( 497 ) ! VROCN1OXY3+HO=0.1380D-... & + 3.4700D-02 * RXRAT( 498 ) ! VROCN1OXY1+HO=0.3470D-... & + 3.7100D-02 * RXRAT( 500 ) ! VROCP0OXY2+HO=0.3710D-... & + 1.7400D-02 * RXRAT( 501 ) ! VROCP1OXY3+HO=0.1740D-... & + 4.2300D-02 * RXRAT( 502 ) ! VROCP1OXY1+HO=0.4230D-... & + 5.2300D-02 * RXRAT( 503 ) ! VROCP2OXY2+HO=0.5230D-... & + 5.8200D-02 * RXRAT( 504 ) ! VROCP3OXY2+HO=0.5820D-... & + 4.7900D-02 * RXRAT( 505 ) ! VROCP4OXY2+HO=0.4790D-... & + 4.3200D-02 * RXRAT( 507 ) ! VROCP6OXY1+HO=0.4320D-... LOSS( VROCP5OXY1 ) = 9.9380D-01 * RXRAT( 506 ) ! VROCP5OXY1+HO=0.6200D-... PROD( VROCP6OXY1 ) = 3.6900D-02 * RXRAT( 495 ) ! VROCN2OXY2+HO=0.3690D-... & + 7.4800D-02 * RXRAT( 498 ) ! VROCN1OXY1+HO=0.7480D-... & + 4.2100D-02 * RXRAT( 500 ) ! VROCP0OXY2+HO=0.4210D-... & + 9.1100D-02 * RXRAT( 502 ) ! VROCP1OXY1+HO=0.9110D-... & + 5.9500D-02 * RXRAT( 503 ) ! VROCP2OXY2+HO=0.5950D-... & + 6.6100D-02 * RXRAT( 504 ) ! VROCP3OXY2+HO=0.6610D-... & + 7.4500D-02 * RXRAT( 505 ) ! VROCP4OXY2+HO=0.7450D-... & + 1.3980D-01 * RXRAT( 506 ) ! VROCP5OXY1+HO=0.1398D+... LOSS( VROCP6OXY1 ) = 9.0430D-01 * RXRAT( 507 ) ! VROCP6OXY1+HO=0.9570D-... RETURN END ================================================ FILE: CCTM/src/gas/ebi_cracmm1_aq/hrrates.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE HRRATES C*********************************************************************** C C FUNCTION: To calculate rates of reactions C C PRECONDITIONS: For the CRACMM1_AQ mechanism C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by EBI solver program, Jun 14, 2022 C C*********************************************************************** USE HRDATA IMPLICIT NONE C.....INCLUDES: NONE C.....ARGUMENTS: NONE C.....PARAMETERS: NONE C.....EXTERNAL FUNCTIONS: NONE C.....SAVED VARIABLES: NONE ! CHARACTER( 16 ), SAVE :: PNAME = 'HRRATES' ! Program name C.....LOCAL VARIABLES: None C*********************************************************************** C..NOTE: RXRAT commented out are not referenced by any routine RXRAT( 1 ) = RKI( 1 ) * YC( O3 ) RXRAT( 2 ) = RKI( 2 ) * YC( O3 ) RXRAT( 3 ) = RKI( 3 ) * YC( H2O2 ) ! RXRAT( 4 ) = RKI( 4 ) * YC( NO2 ) RXRAT( 5 ) = RKI( 5 ) * YC( NO3 ) RXRAT( 6 ) = RKI( 6 ) * YC( NO3 ) RXRAT( 7 ) = RKI( 7 ) * YC( HONO ) RXRAT( 8 ) = RKI( 8 ) * YC( HNO3 ) RXRAT( 9 ) = RKI( 9 ) * YC( HNO4 ) RXRAT( 10 ) = RKI( 10 ) * YC( HCHO ) RXRAT( 11 ) = RKI( 11 ) * YC( HCHO ) RXRAT( 12 ) = RKI( 12 ) * YC( ACD ) RXRAT( 13 ) = RKI( 13 ) * YC( ALD ) RXRAT( 14 ) = RKI( 14 ) * YC( ACT ) RXRAT( 15 ) = RKI( 15 ) * YC( ACT ) RXRAT( 16 ) = RKI( 16 ) * YC( UALD ) RXRAT( 17 ) = RKI( 17 ) * YC( PINAL ) RXRAT( 18 ) = RKI( 18 ) * YC( LIMAL ) RXRAT( 19 ) = RKI( 19 ) * YC( MEK ) RXRAT( 20 ) = RKI( 20 ) * YC( KET ) RXRAT( 21 ) = RKI( 21 ) * YC( HKET ) RXRAT( 22 ) = RKI( 22 ) * YC( MACR ) RXRAT( 23 ) = RKI( 23 ) * YC( MVK ) RXRAT( 24 ) = RKI( 24 ) * YC( GLY ) RXRAT( 25 ) = RKI( 25 ) * YC( GLY ) RXRAT( 26 ) = RKI( 26 ) * YC( GLY ) RXRAT( 27 ) = RKI( 27 ) * YC( MGLY ) RXRAT( 28 ) = RKI( 28 ) * YC( DCB1 ) RXRAT( 29 ) = RKI( 29 ) * YC( DCB2 ) RXRAT( 30 ) = RKI( 30 ) * YC( BALD ) RXRAT( 31 ) = RKI( 31 ) * YC( OP1 ) RXRAT( 32 ) = RKI( 32 ) * YC( OP2 ) RXRAT( 33 ) = RKI( 33 ) * YC( OPB ) RXRAT( 34 ) = RKI( 34 ) * YC( OP3 ) RXRAT( 35 ) = RKI( 35 ) * YC( PAA ) RXRAT( 36 ) = RKI( 36 ) * YC( ONIT ) RXRAT( 37 ) = RKI( 37 ) * YC( PAN ) RXRAT( 38 ) = RKI( 38 ) * YC( PAN ) ! RXRAT( 39 ) = RKI( 39 ) * YC( O3 ) * YC( HO ) ! RXRAT( 40 ) = RKI( 40 ) * YC( O3 ) * YC( HO2 ) ! RXRAT( 41 ) = RKI( 41 ) * YC( O3 ) * YC( NO ) RXRAT( 42 ) = RKI( 42 ) * YC( O3 ) * YC( NO2 ) ! RXRAT( 43 ) = RKI( 43 ) * YC( O3P ) ! RXRAT( 44 ) = RKI( 44 ) * YC( O3P ) * YC( O3 ) ! RXRAT( 45 ) = RKI( 45 ) * YC( O1D ) ! RXRAT( 46 ) = RKI( 46 ) * YC( O1D ) ! RXRAT( 47 ) = RKI( 47 ) * YC( O1D ) ! RXRAT( 48 ) = RKI( 48 ) * YC( HO ) ! RXRAT( 49 ) = RKI( 49 ) * YC( HO ) * YC( HO2 ) RXRAT( 50 ) = RKI( 50 ) * YC( HO2 ) * YC( HO2 ) RXRAT( 51 ) = RKI( 51 ) * YC( HO2 ) * YC( HO2 ) RXRAT( 52 ) = RKI( 52 ) * YC( H2O2 ) * YC( HO ) ! RXRAT( 53 ) = RKI( 53 ) * YC( NO ) * YC( O3P ) ! RXRAT( 54 ) = RKI( 54 ) * YC( NO ) * YC( HO ) ! RXRAT( 55 ) = RKI( 55 ) * YC( NO ) * YC( HO2 ) RXRAT( 56 ) = RKI( 56 ) * YC( NO ) * YC( HO2 ) ! RXRAT( 57 ) = RKI( 57 ) * YC( NO ) * YC( NO ) RXRAT( 58 ) = RKI( 58 ) * YC( HONO ) * YC( HO ) ! RXRAT( 59 ) = RKI( 59 ) * YC( NO2 ) * YC( O3P ) RXRAT( 60 ) = RKI( 60 ) * YC( NO2 ) * YC( O3P ) RXRAT( 61 ) = RKI( 61 ) * YC( NO2 ) * YC( HO ) RXRAT( 62 ) = RKI( 62 ) * YC( HNO3 ) * YC( HO ) RXRAT( 63 ) = RKI( 63 ) * YC( NO3 ) * YC( HO ) RXRAT( 64 ) = RKI( 64 ) * YC( NO3 ) * YC( HO2 ) RXRAT( 65 ) = RKI( 65 ) * YC( NO3 ) * YC( NO ) RXRAT( 66 ) = RKI( 66 ) * YC( NO3 ) * YC( NO2 ) RXRAT( 67 ) = RKI( 67 ) * YC( NO3 ) * YC( NO3 ) ! RXRAT( 68 ) = RKI( 68 ) * YC( NO3 ) * YC( NO2 ) RXRAT( 69 ) = RKI( 69 ) * YC( N2O5 ) RXRAT( 70 ) = RKI( 70 ) * YC( N2O5 ) ! RXRAT( 71 ) = RKI( 71 ) * YC( NO2 ) * YC( HO2 ) RXRAT( 72 ) = RKI( 72 ) * YC( HNO4 ) RXRAT( 73 ) = RKI( 73 ) * YC( HNO4 ) * YC( HO ) RXRAT( 74 ) = RKI( 74 ) * YC( SO2 ) * YC( HO ) RXRAT( 75 ) = RKI( 75 ) * YC( CO ) * YC( HO ) RXRAT( 76 ) = RKI( 76 ) * YC( HO ) RXRAT( 77 ) = RKI( 77 ) * YC( ETH ) * YC( HO ) RXRAT( 78 ) = RKI( 78 ) * YC( HC3 ) * YC( HO ) RXRAT( 79 ) = RKI( 79 ) * YC( HC5 ) * YC( HO ) RXRAT( 80 ) = RKI( 80 ) * YC( ETE ) * YC( HO ) RXRAT( 81 ) = RKI( 81 ) * YC( OLT ) * YC( HO ) RXRAT( 82 ) = RKI( 82 ) * YC( OLI ) * YC( HO ) RXRAT( 83 ) = RKI( 83 ) * YC( ACE ) * YC( HO ) RXRAT( 84 ) = RKI( 84 ) * YC( BEN ) * YC( HO ) RXRAT( 85 ) = RKI( 85 ) * YC( TOL ) * YC( HO ) RXRAT( 86 ) = RKI( 86 ) * YC( XYM ) * YC( HO ) RXRAT( 87 ) = RKI( 87 ) * YC( XYE ) * YC( HO ) RXRAT( 88 ) = RKI( 88 ) * YC( ISO ) * YC( HO ) RXRAT( 89 ) = RKI( 89 ) * YC( API ) * YC( HO ) RXRAT( 90 ) = RKI( 90 ) * YC( LIM ) * YC( HO ) RXRAT( 91 ) = RKI( 91 ) * YC( PINAL ) * YC( HO ) RXRAT( 92 ) = RKI( 92 ) * YC( LIMAL ) * YC( HO ) RXRAT( 93 ) = RKI( 93 ) * YC( HCHO ) * YC( HO ) RXRAT( 94 ) = RKI( 94 ) * YC( ACD ) * YC( HO ) RXRAT( 95 ) = RKI( 95 ) * YC( ALD ) * YC( HO ) RXRAT( 96 ) = RKI( 96 ) * YC( ACT ) * YC( HO ) RXRAT( 97 ) = RKI( 97 ) * YC( MEK ) * YC( HO ) RXRAT( 98 ) = RKI( 98 ) * YC( KET ) * YC( HO ) RXRAT( 99 ) = RKI( 99 ) * YC( HKET ) * YC( HO ) RXRAT( 100 ) = RKI( 100 ) * YC( MACR ) * YC( HO ) RXRAT( 101 ) = RKI( 101 ) * YC( MVK ) * YC( HO ) RXRAT( 102 ) = RKI( 102 ) * YC( UALD ) * YC( HO ) RXRAT( 103 ) = RKI( 103 ) * YC( GLY ) * YC( HO ) RXRAT( 104 ) = RKI( 104 ) * YC( MGLY ) * YC( HO ) RXRAT( 105 ) = RKI( 105 ) * YC( DCB1 ) * YC( HO ) RXRAT( 106 ) = RKI( 106 ) * YC( DCB2 ) * YC( HO ) RXRAT( 107 ) = RKI( 107 ) * YC( DCB3 ) * YC( HO ) RXRAT( 108 ) = RKI( 108 ) * YC( BALD ) * YC( HO ) RXRAT( 109 ) = RKI( 109 ) * YC( PHEN ) * YC( HO ) RXRAT( 110 ) = RKI( 110 ) * YC( CSL ) * YC( HO ) RXRAT( 111 ) = RKI( 111 ) * YC( MCT ) * YC( HO ) RXRAT( 112 ) = RKI( 112 ) * YC( MOH ) * YC( HO ) RXRAT( 113 ) = RKI( 113 ) * YC( EOH ) * YC( HO ) RXRAT( 114 ) = RKI( 114 ) * YC( ROH ) * YC( HO ) RXRAT( 115 ) = RKI( 115 ) * YC( ETEG ) * YC( HO ) RXRAT( 116 ) = RKI( 116 ) * YC( OP1 ) * YC( HO ) RXRAT( 117 ) = RKI( 117 ) * YC( OP2 ) * YC( HO ) RXRAT( 118 ) = RKI( 118 ) * YC( OPB ) * YC( HO ) RXRAT( 119 ) = RKI( 119 ) * YC( OP3 ) * YC( HO ) RXRAT( 120 ) = RKI( 120 ) * YC( ISHP ) * YC( HO ) RXRAT( 121 ) = RKI( 121 ) * YC( MAHP ) * YC( HO ) RXRAT( 122 ) = RKI( 122 ) * YC( ORA1 ) * YC( HO ) RXRAT( 123 ) = RKI( 123 ) * YC( ORA2 ) * YC( HO ) RXRAT( 124 ) = RKI( 124 ) * YC( PAA ) * YC( HO ) RXRAT( 125 ) = RKI( 125 ) * YC( PAN ) * YC( HO ) RXRAT( 126 ) = RKI( 126 ) * YC( PPN ) * YC( HO ) RXRAT( 127 ) = RKI( 127 ) * YC( MPAN ) * YC( HO ) RXRAT( 128 ) = RKI( 128 ) * YC( ONIT ) * YC( HO ) RXRAT( 129 ) = RKI( 129 ) * YC( TRPN ) * YC( HO ) RXRAT( 130 ) = RKI( 130 ) * YC( NALD ) * YC( HO ) RXRAT( 131 ) = RKI( 131 ) * YC( ISON ) * YC( HO ) RXRAT( 132 ) = RKI( 132 ) * YC( ETE ) * YC( O3 ) RXRAT( 133 ) = RKI( 133 ) * YC( OLT ) * YC( O3 ) RXRAT( 134 ) = RKI( 134 ) * YC( OLI ) * YC( O3 ) RXRAT( 135 ) = RKI( 135 ) * YC( ISO ) * YC( O3 ) RXRAT( 136 ) = RKI( 136 ) * YC( API ) * YC( O3 ) RXRAT( 137 ) = RKI( 137 ) * YC( LIM ) * YC( O3 ) RXRAT( 138 ) = RKI( 138 ) * YC( LIMAL ) * YC( O3 ) RXRAT( 139 ) = RKI( 139 ) * YC( TRPN ) * YC( O3 ) RXRAT( 140 ) = RKI( 140 ) * YC( MACR ) * YC( O3 ) RXRAT( 141 ) = RKI( 141 ) * YC( MVK ) * YC( O3 ) RXRAT( 142 ) = RKI( 142 ) * YC( UALD ) * YC( O3 ) RXRAT( 143 ) = RKI( 143 ) * YC( DCB1 ) * YC( O3 ) RXRAT( 144 ) = RKI( 144 ) * YC( DCB2 ) * YC( O3 ) RXRAT( 145 ) = RKI( 145 ) * YC( DCB3 ) * YC( O3 ) RXRAT( 146 ) = RKI( 146 ) * YC( MCTO ) * YC( O3 ) RXRAT( 147 ) = RKI( 147 ) * YC( ETE ) * YC( NO3 ) RXRAT( 148 ) = RKI( 148 ) * YC( OLT ) * YC( NO3 ) RXRAT( 149 ) = RKI( 149 ) * YC( OLI ) * YC( NO3 ) RXRAT( 150 ) = RKI( 150 ) * YC( ISO ) * YC( NO3 ) RXRAT( 151 ) = RKI( 151 ) * YC( API ) * YC( NO3 ) RXRAT( 152 ) = RKI( 152 ) * YC( LIM ) * YC( NO3 ) RXRAT( 153 ) = RKI( 153 ) * YC( TRPN ) * YC( NO3 ) RXRAT( 154 ) = RKI( 154 ) * YC( HCHO ) * YC( NO3 ) RXRAT( 155 ) = RKI( 155 ) * YC( ACD ) * YC( NO3 ) RXRAT( 156 ) = RKI( 156 ) * YC( ALD ) * YC( NO3 ) RXRAT( 157 ) = RKI( 157 ) * YC( MACR ) * YC( NO3 ) RXRAT( 158 ) = RKI( 158 ) * YC( UALD ) * YC( NO3 ) RXRAT( 159 ) = RKI( 159 ) * YC( GLY ) * YC( NO3 ) RXRAT( 160 ) = RKI( 160 ) * YC( MGLY ) * YC( NO3 ) RXRAT( 161 ) = RKI( 161 ) * YC( PHEN ) * YC( NO3 ) RXRAT( 162 ) = RKI( 162 ) * YC( CSL ) * YC( NO3 ) RXRAT( 163 ) = RKI( 163 ) * YC( MCT ) * YC( NO3 ) RXRAT( 164 ) = RKI( 164 ) * YC( MPAN ) * YC( NO3 ) RXRAT( 165 ) = RKI( 165 ) * YC( PINALP ) RXRAT( 166 ) = RKI( 166 ) * YC( LIMALP ) ! RXRAT( 167 ) = RKI( 167 ) * YC( ACO3 ) * YC( NO2 ) RXRAT( 168 ) = RKI( 168 ) * YC( PAN ) RXRAT( 169 ) = RKI( 169 ) * YC( RCO3 ) * YC( NO2 ) RXRAT( 170 ) = RKI( 170 ) * YC( PPN ) RXRAT( 171 ) = RKI( 171 ) * YC( MACP ) * YC( NO2 ) RXRAT( 172 ) = RKI( 172 ) * YC( MPAN ) RXRAT( 173 ) = RKI( 173 ) * YC( MO2 ) * YC( NO ) RXRAT( 174 ) = RKI( 174 ) * YC( ETHP ) * YC( NO ) RXRAT( 175 ) = RKI( 175 ) * YC( HC3P ) * YC( NO ) RXRAT( 176 ) = RKI( 176 ) * YC( HC5P ) * YC( NO ) RXRAT( 177 ) = RKI( 177 ) * YC( ETEP ) * YC( NO ) RXRAT( 178 ) = RKI( 178 ) * YC( OLTP ) * YC( NO ) RXRAT( 179 ) = RKI( 179 ) * YC( OLIP ) * YC( NO ) RXRAT( 180 ) = RKI( 180 ) * YC( BENP ) * YC( NO ) RXRAT( 181 ) = RKI( 181 ) * YC( TOLP ) * YC( NO ) RXRAT( 182 ) = RKI( 182 ) * YC( XYMP ) * YC( NO ) RXRAT( 183 ) = RKI( 183 ) * YC( XYEP ) * YC( NO ) RXRAT( 184 ) = RKI( 184 ) * YC( ISOP ) * YC( NO ) RXRAT( 185 ) = RKI( 185 ) * YC( APIP1 ) * YC( NO ) RXRAT( 186 ) = RKI( 186 ) * YC( APIP2 ) * YC( NO ) RXRAT( 187 ) = RKI( 187 ) * YC( APINP1 ) * YC( NO ) RXRAT( 188 ) = RKI( 188 ) * YC( APINP2 ) * YC( NO ) RXRAT( 189 ) = RKI( 189 ) * YC( LIMP1 ) * YC( NO ) RXRAT( 190 ) = RKI( 190 ) * YC( LIMP2 ) * YC( NO ) RXRAT( 191 ) = RKI( 191 ) * YC( LIMNP1 ) * YC( NO ) RXRAT( 192 ) = RKI( 192 ) * YC( LIMNP2 ) * YC( NO ) RXRAT( 193 ) = RKI( 193 ) * YC( PINALP ) * YC( NO ) RXRAT( 194 ) = RKI( 194 ) * YC( LIMALP ) * YC( NO ) RXRAT( 195 ) = RKI( 195 ) * YC( ACO3 ) * YC( NO ) RXRAT( 196 ) = RKI( 196 ) * YC( RCO3 ) * YC( NO ) RXRAT( 197 ) = RKI( 197 ) * YC( ACTP ) * YC( NO ) RXRAT( 198 ) = RKI( 198 ) * YC( MEKP ) * YC( NO ) RXRAT( 199 ) = RKI( 199 ) * YC( KETP ) * YC( NO ) RXRAT( 200 ) = RKI( 200 ) * YC( MACP ) * YC( NO ) RXRAT( 201 ) = RKI( 201 ) * YC( MCP ) * YC( NO ) RXRAT( 202 ) = RKI( 202 ) * YC( MVKP ) * YC( NO ) RXRAT( 203 ) = RKI( 203 ) * YC( UALP ) * YC( NO ) RXRAT( 204 ) = RKI( 204 ) * YC( BALP ) * YC( NO ) RXRAT( 205 ) = RKI( 205 ) * YC( BAL1 ) * YC( NO ) RXRAT( 206 ) = RKI( 206 ) * YC( ADDC ) * YC( NO ) RXRAT( 207 ) = RKI( 207 ) * YC( MCTP ) * YC( NO ) RXRAT( 208 ) = RKI( 208 ) * YC( ORAP ) * YC( NO ) RXRAT( 209 ) = RKI( 209 ) * YC( OLNN ) * YC( NO ) RXRAT( 210 ) = RKI( 210 ) * YC( OLND ) * YC( NO ) RXRAT( 211 ) = RKI( 211 ) * YC( ADCN ) * YC( NO ) RXRAT( 212 ) = RKI( 212 ) * YC( XO2 ) * YC( NO ) RXRAT( 213 ) = RKI( 213 ) * YC( BAL2 ) * YC( NO2 ) RXRAT( 214 ) = RKI( 214 ) * YC( CHO ) * YC( NO2 ) RXRAT( 215 ) = RKI( 215 ) * YC( MCTO ) * YC( NO2 ) RXRAT( 216 ) = RKI( 216 ) * YC( MO2 ) * YC( HO2 ) RXRAT( 217 ) = RKI( 217 ) * YC( ETHP ) * YC( HO2 ) RXRAT( 218 ) = RKI( 218 ) * YC( HC3P ) * YC( HO2 ) RXRAT( 219 ) = RKI( 219 ) * YC( HC5P ) * YC( HO2 ) RXRAT( 220 ) = RKI( 220 ) * YC( ETEP ) * YC( HO2 ) RXRAT( 221 ) = RKI( 221 ) * YC( OLTP ) * YC( HO2 ) RXRAT( 222 ) = RKI( 222 ) * YC( OLIP ) * YC( HO2 ) RXRAT( 223 ) = RKI( 223 ) * YC( BENP ) * YC( HO2 ) RXRAT( 224 ) = RKI( 224 ) * YC( TOLP ) * YC( HO2 ) RXRAT( 225 ) = RKI( 225 ) * YC( XYMP ) * YC( HO2 ) RXRAT( 226 ) = RKI( 226 ) * YC( XYEP ) * YC( HO2 ) RXRAT( 227 ) = RKI( 227 ) * YC( ISOP ) * YC( HO2 ) RXRAT( 228 ) = RKI( 228 ) * YC( APIP1 ) * YC( HO2 ) RXRAT( 229 ) = RKI( 229 ) * YC( APIP2 ) * YC( HO2 ) RXRAT( 230 ) = RKI( 230 ) * YC( APINP1 ) * YC( HO2 ) RXRAT( 231 ) = RKI( 231 ) * YC( APINP2 ) * YC( HO2 ) RXRAT( 232 ) = RKI( 232 ) * YC( LIMP1 ) * YC( HO2 ) RXRAT( 233 ) = RKI( 233 ) * YC( LIMP2 ) * YC( HO2 ) RXRAT( 234 ) = RKI( 234 ) * YC( LIMNP1 ) * YC( HO2 ) RXRAT( 235 ) = RKI( 235 ) * YC( LIMNP2 ) * YC( HO2 ) RXRAT( 236 ) = RKI( 236 ) * YC( PINALP ) * YC( HO2 ) RXRAT( 237 ) = RKI( 237 ) * YC( LIMALP ) * YC( HO2 ) RXRAT( 238 ) = RKI( 238 ) * YC( ACO3 ) * YC( HO2 ) RXRAT( 239 ) = RKI( 239 ) * YC( RCO3 ) * YC( HO2 ) RXRAT( 240 ) = RKI( 240 ) * YC( ACTP ) * YC( HO2 ) RXRAT( 241 ) = RKI( 241 ) * YC( MEKP ) * YC( HO2 ) RXRAT( 242 ) = RKI( 242 ) * YC( KETP ) * YC( HO2 ) RXRAT( 243 ) = RKI( 243 ) * YC( MACP ) * YC( HO2 ) RXRAT( 244 ) = RKI( 244 ) * YC( MCP ) * YC( HO2 ) RXRAT( 245 ) = RKI( 245 ) * YC( MVKP ) * YC( HO2 ) RXRAT( 246 ) = RKI( 246 ) * YC( UALP ) * YC( HO2 ) RXRAT( 247 ) = RKI( 247 ) * YC( ADDC ) * YC( HO2 ) RXRAT( 248 ) = RKI( 248 ) * YC( CHO ) * YC( HO2 ) RXRAT( 249 ) = RKI( 249 ) * YC( MCTP ) * YC( HO2 ) RXRAT( 250 ) = RKI( 250 ) * YC( ORAP ) * YC( HO2 ) RXRAT( 251 ) = RKI( 251 ) * YC( OLNN ) * YC( HO2 ) RXRAT( 252 ) = RKI( 252 ) * YC( OLND ) * YC( HO2 ) RXRAT( 253 ) = RKI( 253 ) * YC( ADCN ) * YC( HO2 ) RXRAT( 254 ) = RKI( 254 ) * YC( XO2 ) * YC( HO2 ) RXRAT( 255 ) = RKI( 255 ) * YC( MO2 ) * YC( MO2 ) RXRAT( 256 ) = RKI( 256 ) * YC( ETHP ) * YC( MO2 ) RXRAT( 257 ) = RKI( 257 ) * YC( HC3P ) * YC( MO2 ) RXRAT( 258 ) = RKI( 258 ) * YC( HC5P ) * YC( MO2 ) RXRAT( 259 ) = RKI( 259 ) * YC( ETEP ) * YC( MO2 ) RXRAT( 260 ) = RKI( 260 ) * YC( OLTP ) * YC( MO2 ) RXRAT( 261 ) = RKI( 261 ) * YC( OLIP ) * YC( MO2 ) RXRAT( 262 ) = RKI( 262 ) * YC( BENP ) * YC( MO2 ) RXRAT( 263 ) = RKI( 263 ) * YC( TOLP ) * YC( MO2 ) RXRAT( 264 ) = RKI( 264 ) * YC( XYMP ) * YC( MO2 ) RXRAT( 265 ) = RKI( 265 ) * YC( XYEP ) * YC( MO2 ) RXRAT( 266 ) = RKI( 266 ) * YC( ISOP ) * YC( MO2 ) RXRAT( 267 ) = RKI( 267 ) * YC( APIP1 ) * YC( MO2 ) RXRAT( 268 ) = RKI( 268 ) * YC( APIP2 ) * YC( MO2 ) RXRAT( 269 ) = RKI( 269 ) * YC( APINP1 ) * YC( MO2 ) RXRAT( 270 ) = RKI( 270 ) * YC( APINP2 ) * YC( MO2 ) RXRAT( 271 ) = RKI( 271 ) * YC( LIMP1 ) * YC( MO2 ) RXRAT( 272 ) = RKI( 272 ) * YC( LIMP2 ) * YC( MO2 ) RXRAT( 273 ) = RKI( 273 ) * YC( LIMNP1 ) * YC( MO2 ) RXRAT( 274 ) = RKI( 274 ) * YC( LIMNP2 ) * YC( MO2 ) RXRAT( 275 ) = RKI( 275 ) * YC( ACO3 ) * YC( MO2 ) RXRAT( 276 ) = RKI( 276 ) * YC( RCO3 ) * YC( MO2 ) RXRAT( 277 ) = RKI( 277 ) * YC( ACTP ) * YC( MO2 ) RXRAT( 278 ) = RKI( 278 ) * YC( MEKP ) * YC( MO2 ) RXRAT( 279 ) = RKI( 279 ) * YC( KETP ) * YC( MO2 ) RXRAT( 280 ) = RKI( 280 ) * YC( MACP ) * YC( MO2 ) RXRAT( 281 ) = RKI( 281 ) * YC( MCP ) * YC( MO2 ) RXRAT( 282 ) = RKI( 282 ) * YC( MVKP ) * YC( MO2 ) RXRAT( 283 ) = RKI( 283 ) * YC( UALP ) * YC( MO2 ) RXRAT( 284 ) = RKI( 284 ) * YC( BALP ) * YC( MO2 ) RXRAT( 285 ) = RKI( 285 ) * YC( BAL1 ) * YC( MO2 ) RXRAT( 286 ) = RKI( 286 ) * YC( ADDC ) * YC( MO2 ) RXRAT( 287 ) = RKI( 287 ) * YC( MCTP ) * YC( MO2 ) RXRAT( 288 ) = RKI( 288 ) * YC( ORAP ) * YC( MO2 ) RXRAT( 289 ) = RKI( 289 ) * YC( OLNN ) * YC( MO2 ) RXRAT( 290 ) = RKI( 290 ) * YC( OLND ) * YC( MO2 ) RXRAT( 291 ) = RKI( 291 ) * YC( ADCN ) * YC( MO2 ) RXRAT( 292 ) = RKI( 292 ) * YC( XO2 ) * YC( MO2 ) RXRAT( 293 ) = RKI( 293 ) * YC( ETHP ) * YC( ACO3 ) RXRAT( 294 ) = RKI( 294 ) * YC( HC3P ) * YC( ACO3 ) RXRAT( 295 ) = RKI( 295 ) * YC( HC5P ) * YC( ACO3 ) RXRAT( 296 ) = RKI( 296 ) * YC( ETEP ) * YC( ACO3 ) RXRAT( 297 ) = RKI( 297 ) * YC( OLTP ) * YC( ACO3 ) RXRAT( 298 ) = RKI( 298 ) * YC( OLIP ) * YC( ACO3 ) RXRAT( 299 ) = RKI( 299 ) * YC( BENP ) * YC( ACO3 ) RXRAT( 300 ) = RKI( 300 ) * YC( TOLP ) * YC( ACO3 ) RXRAT( 301 ) = RKI( 301 ) * YC( XYMP ) * YC( ACO3 ) RXRAT( 302 ) = RKI( 302 ) * YC( XYEP ) * YC( ACO3 ) RXRAT( 303 ) = RKI( 303 ) * YC( ISOP ) * YC( ACO3 ) RXRAT( 304 ) = RKI( 304 ) * YC( APIP1 ) * YC( ACO3 ) RXRAT( 305 ) = RKI( 305 ) * YC( APIP2 ) * YC( ACO3 ) RXRAT( 306 ) = RKI( 306 ) * YC( APINP1 ) * YC( ACO3 ) RXRAT( 307 ) = RKI( 307 ) * YC( APINP2 ) * YC( ACO3 ) RXRAT( 308 ) = RKI( 308 ) * YC( LIMP1 ) * YC( ACO3 ) RXRAT( 309 ) = RKI( 309 ) * YC( LIMP2 ) * YC( ACO3 ) RXRAT( 310 ) = RKI( 310 ) * YC( LIMNP1 ) * YC( ACO3 ) RXRAT( 311 ) = RKI( 311 ) * YC( LIMNP2 ) * YC( ACO3 ) RXRAT( 312 ) = RKI( 312 ) * YC( ACO3 ) * YC( ACO3 ) RXRAT( 313 ) = RKI( 313 ) * YC( RCO3 ) * YC( ACO3 ) RXRAT( 314 ) = RKI( 314 ) * YC( ACTP ) * YC( ACO3 ) RXRAT( 315 ) = RKI( 315 ) * YC( MEKP ) * YC( ACO3 ) RXRAT( 316 ) = RKI( 316 ) * YC( KETP ) * YC( ACO3 ) RXRAT( 317 ) = RKI( 317 ) * YC( MACP ) * YC( ACO3 ) RXRAT( 318 ) = RKI( 318 ) * YC( MCP ) * YC( ACO3 ) RXRAT( 319 ) = RKI( 319 ) * YC( MVKP ) * YC( ACO3 ) RXRAT( 320 ) = RKI( 320 ) * YC( UALP ) * YC( ACO3 ) RXRAT( 321 ) = RKI( 321 ) * YC( BALP ) * YC( ACO3 ) RXRAT( 322 ) = RKI( 322 ) * YC( BAL1 ) * YC( ACO3 ) RXRAT( 323 ) = RKI( 323 ) * YC( ADDC ) * YC( ACO3 ) RXRAT( 324 ) = RKI( 324 ) * YC( MCTP ) * YC( ACO3 ) RXRAT( 325 ) = RKI( 325 ) * YC( ORAP ) * YC( ACO3 ) RXRAT( 326 ) = RKI( 326 ) * YC( OLNN ) * YC( ACO3 ) RXRAT( 327 ) = RKI( 327 ) * YC( OLND ) * YC( ACO3 ) RXRAT( 328 ) = RKI( 328 ) * YC( ADCN ) * YC( ACO3 ) RXRAT( 329 ) = RKI( 329 ) * YC( XO2 ) * YC( ACO3 ) RXRAT( 330 ) = RKI( 330 ) * YC( RCO3 ) * YC( RCO3 ) RXRAT( 331 ) = RKI( 331 ) * YC( MO2 ) * YC( NO3 ) RXRAT( 332 ) = RKI( 332 ) * YC( ETHP ) * YC( NO3 ) RXRAT( 333 ) = RKI( 333 ) * YC( HC3P ) * YC( NO3 ) RXRAT( 334 ) = RKI( 334 ) * YC( HC5P ) * YC( NO3 ) RXRAT( 335 ) = RKI( 335 ) * YC( ETEP ) * YC( NO3 ) RXRAT( 336 ) = RKI( 336 ) * YC( OLTP ) * YC( NO3 ) RXRAT( 337 ) = RKI( 337 ) * YC( OLIP ) * YC( NO3 ) RXRAT( 338 ) = RKI( 338 ) * YC( BENP ) * YC( NO3 ) RXRAT( 339 ) = RKI( 339 ) * YC( TOLP ) * YC( NO3 ) RXRAT( 340 ) = RKI( 340 ) * YC( XYMP ) * YC( NO3 ) RXRAT( 341 ) = RKI( 341 ) * YC( XYEP ) * YC( NO3 ) RXRAT( 342 ) = RKI( 342 ) * YC( ISOP ) * YC( NO3 ) RXRAT( 343 ) = RKI( 343 ) * YC( APIP1 ) * YC( NO3 ) RXRAT( 344 ) = RKI( 344 ) * YC( LIMP1 ) * YC( NO3 ) RXRAT( 345 ) = RKI( 345 ) * YC( ACO3 ) * YC( NO3 ) RXRAT( 346 ) = RKI( 346 ) * YC( RCO3 ) * YC( NO3 ) RXRAT( 347 ) = RKI( 347 ) * YC( ACTP ) * YC( NO3 ) RXRAT( 348 ) = RKI( 348 ) * YC( MEKP ) * YC( NO3 ) RXRAT( 349 ) = RKI( 349 ) * YC( KETP ) * YC( NO3 ) RXRAT( 350 ) = RKI( 350 ) * YC( MACP ) * YC( NO3 ) RXRAT( 351 ) = RKI( 351 ) * YC( MCP ) * YC( NO3 ) RXRAT( 352 ) = RKI( 352 ) * YC( MVKP ) * YC( NO3 ) RXRAT( 353 ) = RKI( 353 ) * YC( UALP ) * YC( NO3 ) RXRAT( 354 ) = RKI( 354 ) * YC( BALP ) * YC( NO3 ) RXRAT( 355 ) = RKI( 355 ) * YC( BAL1 ) * YC( NO3 ) RXRAT( 356 ) = RKI( 356 ) * YC( ADDC ) * YC( NO3 ) RXRAT( 357 ) = RKI( 357 ) * YC( MCTP ) * YC( NO3 ) RXRAT( 358 ) = RKI( 358 ) * YC( ORAP ) * YC( NO3 ) RXRAT( 359 ) = RKI( 359 ) * YC( OLNN ) * YC( NO3 ) RXRAT( 360 ) = RKI( 360 ) * YC( OLND ) * YC( NO3 ) RXRAT( 361 ) = RKI( 361 ) * YC( ADCN ) * YC( NO3 ) RXRAT( 362 ) = RKI( 362 ) * YC( OLNN ) * YC( OLNN ) RXRAT( 363 ) = RKI( 363 ) * YC( OLNN ) * YC( OLND ) RXRAT( 364 ) = RKI( 364 ) * YC( OLND ) * YC( OLND ) RXRAT( 365 ) = RKI( 365 ) * YC( XO2 ) * YC( NO3 ) RXRAT( 366 ) = RKI( 366 ) * YC( XO2 ) * YC( RCO3 ) RXRAT( 367 ) = RKI( 367 ) * YC( XO2 ) * YC( XO2 ) RXRAT( 368 ) = RKI( 368 ) * YC( APIP2 ) * YC( APIP1 ) RXRAT( 369 ) = RKI( 369 ) * YC( APIP2 ) * YC( LIMP1 ) RXRAT( 370 ) = RKI( 370 ) * YC( APIP2 ) * YC( ISOP ) RXRAT( 371 ) = RKI( 371 ) * YC( LIMP2 ) * YC( APIP1 ) RXRAT( 372 ) = RKI( 372 ) * YC( LIMP2 ) * YC( LIMP1 ) RXRAT( 373 ) = RKI( 373 ) * YC( LIMP2 ) * YC( ISOP ) RXRAT( 374 ) = RKI( 374 ) * YC( APINP2 ) * YC( APIP1 ) RXRAT( 375 ) = RKI( 375 ) * YC( APINP2 ) * YC( LIMP1 ) RXRAT( 376 ) = RKI( 376 ) * YC( APINP2 ) * YC( ISOP ) RXRAT( 377 ) = RKI( 377 ) * YC( LIMNP2 ) * YC( APIP1 ) RXRAT( 378 ) = RKI( 378 ) * YC( LIMNP2 ) * YC( LIMP1 ) RXRAT( 379 ) = RKI( 379 ) * YC( LIMNP2 ) * YC( ISOP ) RXRAT( 380 ) = RKI( 380 ) * YC( IEPOX ) * YC( HO ) RXRAT( 381 ) = RKI( 381 ) * YC( VROCIOXY ) * YC( HO ) RXRAT( 382 ) = RKI( 382 ) * YC( SLOWROC ) * YC( HO ) RXRAT( 383 ) = RKI( 383 ) * YC( ACRO ) * YC( HO ) RXRAT( 384 ) = RKI( 384 ) * YC( ACRO ) * YC( O3 ) RXRAT( 385 ) = RKI( 385 ) * YC( ACRO ) * YC( NO3 ) RXRAT( 386 ) = RKI( 386 ) * YC( ACRO ) RXRAT( 387 ) = RKI( 387 ) * YC( BDE13 ) * YC( HO ) RXRAT( 388 ) = RKI( 388 ) * YC( BDE13P ) * YC( NO ) RXRAT( 389 ) = RKI( 389 ) * YC( BDE13P ) * YC( NO3 ) RXRAT( 390 ) = RKI( 390 ) * YC( BDE13P ) * YC( HO2 ) RXRAT( 391 ) = RKI( 391 ) * YC( BDE13P ) * YC( MO2 ) RXRAT( 392 ) = RKI( 392 ) * YC( BDE13P ) * YC( ACO3 ) RXRAT( 393 ) = RKI( 393 ) * YC( BDE13 ) * YC( O3 ) RXRAT( 394 ) = RKI( 394 ) * YC( BDE13 ) * YC( NO3 ) RXRAT( 395 ) = RKI( 395 ) * YC( FURAN ) * YC( HO ) RXRAT( 396 ) = RKI( 396 ) * YC( FURANO2 ) * YC( NO ) RXRAT( 397 ) = RKI( 397 ) * YC( FURANO2 ) * YC( HO2 ) RXRAT( 398 ) = RKI( 398 ) * YC( FURANONE ) * YC( HO ) RXRAT( 399 ) = RKI( 399 ) * YC( FURAN ) * YC( O3 ) RXRAT( 400 ) = RKI( 400 ) * YC( FURAN ) * YC( NO3 ) RXRAT( 401 ) = RKI( 401 ) * YC( PROG ) * YC( HO ) RXRAT( 402 ) = RKI( 402 ) * YC( SESQ ) * YC( NO3 ) RXRAT( 403 ) = RKI( 403 ) * YC( SESQNRO2 ) * YC( HO2 ) RXRAT( 404 ) = RKI( 404 ) * YC( SESQNRO2 ) * YC( NO ) RXRAT( 405 ) = RKI( 405 ) * YC( SESQNRO2 ) * YC( NO3 ) RXRAT( 406 ) = RKI( 406 ) * YC( SESQ ) * YC( O3 ) RXRAT( 407 ) = RKI( 407 ) * YC( SESQ ) * YC( HO ) RXRAT( 408 ) = RKI( 408 ) * YC( SESQRO2 ) * YC( HO2 ) RXRAT( 409 ) = RKI( 409 ) * YC( SESQRO2 ) * YC( NO3 ) RXRAT( 410 ) = RKI( 410 ) * YC( SESQRO2 ) * YC( NO ) RXRAT( 411 ) = RKI( 411 ) * YC( GLY ) RXRAT( 412 ) = RKI( 412 ) * YC( MGLY ) RXRAT( 413 ) = RKI( 413 ) * YC( N2O5 ) RXRAT( 414 ) = RKI( 414 ) * YC( NO2 ) ! RXRAT( 415 ) = RKI( 415 ) * YC( O3 ) RXRAT( 416 ) = RKI( 416 ) * YC( IEPOX ) RXRAT( 417 ) = RKI( 417 ) * YC( IEPOXP ) RXRAT( 418 ) = RKI( 418 ) * YC( IEPOXP ) * YC( ASO4J ) RXRAT( 419 ) = RKI( 419 ) * YC( VROCP6ALK ) * YC( HO ) RXRAT( 420 ) = RKI( 420 ) * YC( VROCP5ALK ) * YC( HO ) RXRAT( 421 ) = RKI( 421 ) * YC( VROCP4ALK ) * YC( HO ) RXRAT( 422 ) = RKI( 422 ) * YC( VROCP3ALK ) * YC( HO ) RXRAT( 423 ) = RKI( 423 ) * YC( VROCP2ALK ) * YC( HO ) RXRAT( 424 ) = RKI( 424 ) * YC( VROCP1ALK ) * YC( HO ) RXRAT( 425 ) = RKI( 425 ) * YC( HC10 ) * YC( HO ) RXRAT( 426 ) = RKI( 426 ) * YC( VROCP6ALKP ) * YC( NO ) RXRAT( 427 ) = RKI( 427 ) * YC( VROCP5ALKP ) * YC( NO ) RXRAT( 428 ) = RKI( 428 ) * YC( VROCP4ALKP ) * YC( NO ) RXRAT( 429 ) = RKI( 429 ) * YC( VROCP3ALKP ) * YC( NO ) RXRAT( 430 ) = RKI( 430 ) * YC( VROCP2ALKP ) * YC( NO ) RXRAT( 431 ) = RKI( 431 ) * YC( VROCP1ALKP ) * YC( NO ) RXRAT( 432 ) = RKI( 432 ) * YC( HC10P ) * YC( NO ) RXRAT( 433 ) = RKI( 433 ) * YC( VROCP6ALKP ) * YC( NO3 ) RXRAT( 434 ) = RKI( 434 ) * YC( VROCP5ALKP ) * YC( NO3 ) RXRAT( 435 ) = RKI( 435 ) * YC( VROCP4ALKP ) * YC( NO3 ) RXRAT( 436 ) = RKI( 436 ) * YC( VROCP3ALKP ) * YC( NO3 ) RXRAT( 437 ) = RKI( 437 ) * YC( VROCP2ALKP ) * YC( NO3 ) RXRAT( 438 ) = RKI( 438 ) * YC( VROCP1ALKP ) * YC( NO3 ) RXRAT( 439 ) = RKI( 439 ) * YC( HC10P ) * YC( NO3 ) RXRAT( 440 ) = RKI( 440 ) * YC( VROCP6ALKP ) * YC( HO2 ) RXRAT( 441 ) = RKI( 441 ) * YC( VROCP5ALKP ) * YC( HO2 ) RXRAT( 442 ) = RKI( 442 ) * YC( VROCP4ALKP ) * YC( HO2 ) RXRAT( 443 ) = RKI( 443 ) * YC( VROCP3ALKP ) * YC( HO2 ) RXRAT( 444 ) = RKI( 444 ) * YC( VROCP2ALKP ) * YC( HO2 ) RXRAT( 445 ) = RKI( 445 ) * YC( VROCP1ALKP ) * YC( HO2 ) RXRAT( 446 ) = RKI( 446 ) * YC( HC10P ) * YC( HO2 ) RXRAT( 447 ) = RKI( 447 ) * YC( VROCP6ALKP2 ) RXRAT( 448 ) = RKI( 448 ) * YC( VROCP5ALKP2 ) RXRAT( 449 ) = RKI( 449 ) * YC( VROCP4ALKP2 ) RXRAT( 450 ) = RKI( 450 ) * YC( VROCP3ALKP2 ) RXRAT( 451 ) = RKI( 451 ) * YC( VROCP2ALKP2 ) RXRAT( 452 ) = RKI( 452 ) * YC( VROCP1ALKP2 ) RXRAT( 453 ) = RKI( 453 ) * YC( HC10P2 ) RXRAT( 454 ) = RKI( 454 ) * YC( VROCP6ALKP2 ) * YC( NO ) RXRAT( 455 ) = RKI( 455 ) * YC( VROCP5ALKP2 ) * YC( NO ) RXRAT( 456 ) = RKI( 456 ) * YC( VROCP4ALKP2 ) * YC( NO ) RXRAT( 457 ) = RKI( 457 ) * YC( VROCP3ALKP2 ) * YC( NO ) RXRAT( 458 ) = RKI( 458 ) * YC( VROCP2ALKP2 ) * YC( NO ) RXRAT( 459 ) = RKI( 459 ) * YC( VROCP1ALKP2 ) * YC( NO ) RXRAT( 460 ) = RKI( 460 ) * YC( HC10P2 ) * YC( NO ) RXRAT( 461 ) = RKI( 461 ) * YC( VROCP6ALKP2 ) * YC( NO3 ) RXRAT( 462 ) = RKI( 462 ) * YC( VROCP5ALKP2 ) * YC( NO3 ) RXRAT( 463 ) = RKI( 463 ) * YC( VROCP4ALKP2 ) * YC( NO3 ) RXRAT( 464 ) = RKI( 464 ) * YC( VROCP3ALKP2 ) * YC( NO3 ) RXRAT( 465 ) = RKI( 465 ) * YC( VROCP2ALKP2 ) * YC( NO3 ) RXRAT( 466 ) = RKI( 466 ) * YC( VROCP1ALKP2 ) * YC( NO3 ) RXRAT( 467 ) = RKI( 467 ) * YC( HC10P2 ) * YC( NO3 ) RXRAT( 468 ) = RKI( 468 ) * YC( VROCP6ALKP2 ) * YC( HO2 ) RXRAT( 469 ) = RKI( 469 ) * YC( VROCP5ALKP2 ) * YC( HO2 ) RXRAT( 470 ) = RKI( 470 ) * YC( VROCP4ALKP2 ) * YC( HO2 ) RXRAT( 471 ) = RKI( 471 ) * YC( VROCP3ALKP2 ) * YC( HO2 ) RXRAT( 472 ) = RKI( 472 ) * YC( VROCP2ALKP2 ) * YC( HO2 ) RXRAT( 473 ) = RKI( 473 ) * YC( VROCP1ALKP2 ) * YC( HO2 ) RXRAT( 474 ) = RKI( 474 ) * YC( HC10P2 ) * YC( HO2 ) RXRAT( 475 ) = RKI( 475 ) * YC( VROCP6ARO ) * YC( HO ) RXRAT( 476 ) = RKI( 476 ) * YC( VROCP6AROP ) * YC( HO2 ) RXRAT( 477 ) = RKI( 477 ) * YC( VROCP6AROP ) * YC( NO ) RXRAT( 478 ) = RKI( 478 ) * YC( VROCP6AROP ) * YC( NO3 ) RXRAT( 479 ) = RKI( 479 ) * YC( VROCP6AROP ) * YC( MO2 ) RXRAT( 480 ) = RKI( 480 ) * YC( VROCP6AROP ) * YC( ACO3 ) RXRAT( 481 ) = RKI( 481 ) * YC( VROCP5ARO ) * YC( HO ) RXRAT( 482 ) = RKI( 482 ) * YC( VROCP5AROP ) * YC( HO2 ) RXRAT( 483 ) = RKI( 483 ) * YC( VROCP5AROP ) * YC( NO ) RXRAT( 484 ) = RKI( 484 ) * YC( VROCP5AROP ) * YC( NO3 ) RXRAT( 485 ) = RKI( 485 ) * YC( VROCP5AROP ) * YC( MO2 ) RXRAT( 486 ) = RKI( 486 ) * YC( VROCP5AROP ) * YC( ACO3 ) RXRAT( 487 ) = RKI( 487 ) * YC( NAPH ) * YC( HO ) RXRAT( 488 ) = RKI( 488 ) * YC( NAPHP ) * YC( HO2 ) RXRAT( 489 ) = RKI( 489 ) * YC( NAPHP ) * YC( NO ) RXRAT( 490 ) = RKI( 490 ) * YC( NAPHP ) * YC( NO3 ) RXRAT( 491 ) = RKI( 491 ) * YC( NAPHP ) * YC( MO2 ) RXRAT( 492 ) = RKI( 492 ) * YC( NAPHP ) * YC( ACO3 ) RXRAT( 493 ) = RKI( 493 ) * YC( VROCN2OXY8 ) * YC( HO ) RXRAT( 494 ) = RKI( 494 ) * YC( VROCN2OXY4 ) * YC( HO ) RXRAT( 495 ) = RKI( 495 ) * YC( VROCN2OXY2 ) * YC( HO ) RXRAT( 496 ) = RKI( 496 ) * YC( VROCN1OXY6 ) * YC( HO ) RXRAT( 497 ) = RKI( 497 ) * YC( VROCN1OXY3 ) * YC( HO ) RXRAT( 498 ) = RKI( 498 ) * YC( VROCN1OXY1 ) * YC( HO ) RXRAT( 499 ) = RKI( 499 ) * YC( VROCP0OXY4 ) * YC( HO ) RXRAT( 500 ) = RKI( 500 ) * YC( VROCP0OXY2 ) * YC( HO ) RXRAT( 501 ) = RKI( 501 ) * YC( VROCP1OXY3 ) * YC( HO ) RXRAT( 502 ) = RKI( 502 ) * YC( VROCP1OXY1 ) * YC( HO ) RXRAT( 503 ) = RKI( 503 ) * YC( VROCP2OXY2 ) * YC( HO ) RXRAT( 504 ) = RKI( 504 ) * YC( VROCP3OXY2 ) * YC( HO ) RXRAT( 505 ) = RKI( 505 ) * YC( VROCP4OXY2 ) * YC( HO ) RXRAT( 506 ) = RKI( 506 ) * YC( VROCP5OXY1 ) * YC( HO ) RXRAT( 507 ) = RKI( 507 ) * YC( VROCP6OXY1 ) * YC( HO ) RXRAT( 508 ) = RKI( 508 ) * YC( OP3 ) * YC( HO ) RETURN END ================================================ FILE: CCTM/src/gas/ebi_cracmm1_aq/hrsolver.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE HRSOLVER( JDATE, JTIME, C, R, L ) C********************************************************************** C C FUNCTION: EBI solver C C PRECONDITIONS: For the CRACMM1_AQ mechanism C C KEY SUBROUTINES/FUNCTIONS CALLED: HRRATES, HRG1, HRG2, HRG3 C HRG4, HRPRODLOSS C DEGRADE C C REVISION HISTORY: Created by EBI solver program, Jun 14, 2022 C 21 Jun 10 J.Young: convert for Namelist redesign C 18 Jul 14 B.Hutzell: revised 1) to use the RXNS_DATA and RXNS_FUNCTION C modules instead of include files and 2) to use C real(8) variables C********************************************************************** USE RUNTIME_VARS USE UTILIO_DEFN USE RXNS_DATA USE HRDATA USE PA_IRR_MODULE #ifdef isam USE SA_IRR_DEFN #endif #ifdef sens USE DDM3D_CHEM, ONLY: YCDDM USE CGRID_SPCS, ONLY: GC_SPC #endif USE DEGRADE_ROUTINES, ONLY : DEGRADE, SA_DEGRADE_STEP IMPLICIT NONE C..INCLUDES: C..ARGUMENTS: INTEGER, INTENT( IN ) :: JDATE ! Current date (YYYYDDD) INTEGER, INTENT( IN ) :: JTIME ! Current time (HHMMSS) INTEGER, INTENT( IN ) :: C, R, L ! Cell col, row, lev C..PARAMETERS: INTEGER, PARAMETER :: MXBKUPS = 5 ! Max no. of back-ups allowed INTEGER, PARAMETER :: STAT = 1 ! Status code REAL( 8 ), PARAMETER :: DTMIN = 1.0D-08 ! Smallest time step allowed, min REAL( 8 ), PARAMETER :: EPSLON = 1.0D-30 ! Small number REAL( 8 ), PARAMETER :: MAXPRED = 1.0D+03 ! Upper limit on predicted conc REAL( 8 ), PARAMETER :: ZERO = 1.0D-40 ! effective zero REAL( 8 ), PARAMETER :: FLOOR = 1.0D-08 ! Min conc for RTOL C..EXTERNAL FUNCTIONS: C..SAVED LOCAL VARIABLES: CHARACTER( 16 ), SAVE :: PNAME = 'HRSOLVER' ! Program name LOGICAL, SAVE :: LFIRST = .TRUE. ! Flag for first call LOGICAL, ALLOCATABLE, SAVE :: LEBISPFL( : ) ! Convergence Error Flag for EBI species LOGICAL, ALLOCATABLE, SAVE :: MAXCONC ( : ) ! MAXCONC ERROR Flag for EBI species LOGICAL, ALLOCATABLE, SAVE :: NOTMAX ( : ) ! Initial concentration not greater than MAXPRED REAL( 8 ), ALLOCATABLE, SAVE :: RERROR ( : ) ! Relative Error REAL( 8 ), ALLOCATABLE, SAVE :: AERROR ( : ) ! Absolute Error C..SCRATCH LOCAL VARIABLES: CHARACTER( 132 ) :: MSG ! Message text INTEGER CELLNO ! Cell no. fo debug output INTEGER ITER ! Loop index for Backward Euler iterations INTEGER S ! Loop index for species INTEGER SP ! Imbedded loop index for species INTEGER NEBI ! Loop index for time steps INTEGER NINR ! No. of inner time steps #ifdef hrdebug INTEGER N ! Loop index #endif INTEGER M ! species index INTEGER EBI ! Loop index INTEGER NBKUPS ! No. of times time step reduced INTEGER ERR ! Allocate error flag LOGICAL LEBI_CONV ! Flag for EBI convergence LOGICAL MXFL ! hit MAXPRED flag REAL( 8 ) DTC ! Time step to take REAL( 8 ) DTG ! Time step in degrade routines, sec REAL( 8 ) FXDLOSS ! Total loss due to negative stoichiometry REAL( 8 ) VARLOSS ! Loss excluding negative stoichiometry #ifdef hrdebug CHARACTER( 8 ) :: NOTE ! Convergence fail note INTEGER COL ! Column to generate deboug output for INTEGER ROW ! Row to generate deboug output for INTEGER LEV ! Level to generate deboug output for INTEGER DBGOUT ! Output unit for debu outpt LOGICAL LDEBUG ! Debug output flag LOGICAL, SAVE :: LOPEN = .FALSE. #endif C********************************************************************** IF( LFIRST ) THEN LFIRST = .FALSE. ALLOCATE ( LEBISPFL( NUMB_MECH_SPC ), STAT = ERR ) IF ( ERR .NE. 0 ) THEN MSG = 'Error allocating LEBISPFL' CALL M3EXIT( PNAME, JDATE, JTIME, MSG, XSTAT1 ) END IF ALLOCATE ( MAXCONC( NUMB_MECH_SPC ), STAT = ERR ) IF ( ERR .NE. 0 ) THEN MSG = 'Error allocating MAXCONC' CALL M3EXIT( PNAME, JDATE, JTIME, MSG, XSTAT1 ) END IF ALLOCATE ( NOTMAX( NUMB_MECH_SPC ), STAT = ERR ) IF ( ERR .NE. 0 ) THEN MSG = 'Error allocating NOTMAX' CALL M3EXIT( PNAME, JDATE, JTIME, MSG, XSTAT1 ) END IF ALLOCATE ( RERROR( NUMB_MECH_SPC ), STAT = ERR ) IF ( ERR .NE. 0 ) THEN MSG = 'Error allocating ERROR' CALL M3EXIT( PNAME, JDATE, JTIME, MSG, XSTAT1 ) END IF ALLOCATE ( AERROR( NUMB_MECH_SPC ), STAT = ERR ) IF ( ERR .NE. 0 ) THEN MSG = 'Error allocating AERROR' CALL M3EXIT( PNAME, JDATE, JTIME, MSG, XSTAT1 ) END IF END IF #ifdef sens YCDDM = 0.0D0 #endif c++++++++++++++++++++++++Debug section++++++++++++++++++++++++++++++++++ #ifdef hrdebug COL = 0 ROW = 0 LEV = 0 IF( C .EQ. COL .AND. R .EQ. ROW .AND. L .EQ. LEV ) THEN c IF( JTIME .EQ. 160000 ) THEN LDEBUG = .TRUE. ELSE LDEBUG = .FALSE. END IF IF( LDEBUG ) THEN IF( .NOT. LOPEN ) THEN DBGOUT = JUNIT() OPEN( UNIT = DBGOUT, FILE = 'debug.out' ) LOPEN = .TRUE. END IF WRITE( DBGOUT, '( A, 2I4, I3, 1X, I7, 1X, I6 ) ' ) & 'Debug output for col/row/lev/date/time:', & C, R, L, JDATE, JTIME WRITE( DBGOUT, '( A, F7.2) ' ) & 'EBI_TMSTEP = ', EBI_TMSTEP WRITE( DBGOUT, '( A )' ) 'Starting concs and rate constants' DO N = 1, NUMB_MECH_SPC WRITE( DBGOUT, '( A, I3, 1X, A, 1X, 1PD13.5 )' ) & 'SP ',N, CHEMISTRY_SPC( N ), YC( N ) END DO DO N = 1, N_RXNS WRITE( DBGOUT, '( A, I3, 1X, 1PD13.5 )' ) & 'RKI ', N, RKI( N ) END DO END IF #endif c++++++++++++++++++++++++Debug section++++++++++++++++++++++++++++++++++ DTC = EBI_TMSTEP N_EBI_IT = 0 NBKUPS = 0 N_INR_STEPS = 1 NEBI = 1 LEBI_CONV = .TRUE. #ifdef isam UPDATE_SOLD = .FALSE. UPDATE_PROBABILITIES = .TRUE. CALL SA_IRR_UNBLOCKED ( .TRUE., RKI, YC, DTC ) #endif DO S = 1, NUMB_MECH_SPC IF( YC( S ) .LE. MAXPRED )THEN NOTMAX( S ) = .TRUE. ELSE NOTMAX( S ) = .FALSE. WRITE(LOGDEV,91000)C, R, L, CHEMISTRY_SPC(S), YC(S) END IF END DO ! Initial PA_IRR IF( CALL_IRR ) CALL PA_IRR ( .TRUE., RKI, YC, DTC ) SA_DEGRADE_STEP = 0 TSTEP_EBI: DO ! EBI time-step loop SUBSTEP_EBI: DO NINR = 1, N_INR_STEPS ! time substeps loop ! first attempt is sub time-step equals EBI time-step IF( LEBI_CONV ) YC0 = YC ! Set ICs for EBI iterations ITER_SUBSTEP: DO ITER = 1, NEBITER ! iteration loop solving for sub time-step N_EBI_IT = N_EBI_IT + 1 CALL HRRATES c++++++++++++++++++++++++Debug section++++++++++++++++++++++++++++++++++ #ifdef hrdebug IF( LDEBUG ) THEN WRITE( DBGOUT, '( A, I5 )' ) 'ITER NO ', ITER WRITE( DBGOUT, '( A, F12.5 )' ) & ' DTC=', DTC IF( ITER .EQ. 1 ) THEN WRITE( DBGOUT, '( A )' ) 'Starting reaction rates' DO N = 1, N_RXNS WRITE( DBGOUT, '( A, I3, 1X, 1PD13.5 )' ) & 'RXRAT ', N, RXRAT( NCELL, N ) END DO END IF END IF #endif c++++++++++++++++++++++++Debug section++++++++++++++++++++++++++++++++++ cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Call routines to compute concentrations of groups 1-4 cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc CALL HRG1( DTC ) CALL HRG2( DTC ) CALL HRG3( DTC ) CALL HRG4( DTC ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Do the Euler backward method cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc CALL HRPRODLOSS DO EBI = 1, N_EBISP S = EBISP( EBI ) YCP( S ) = YC( S )*( ( YC0( S ) + PROD( S ) * DTC ) & / ( YC( S ) + LOSS( S ) * DTC ) ) END DO cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Check for convergence cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc LEBI_CONV = .TRUE. MXFL = .FALSE. DO S = 1, NUMB_MECH_SPC LEBISPFL( S ) = .FALSE. YCP( S ) = MAX( ZERO, YCP( S ) ) AERROR( S ) = MAX( ABS( YC(S)-YCP(S) ), EPSLON ) RERROR( S ) = AERROR( S ) / MAX( FLOOR, ABS( YC(S)+YCP(S) ) ) IF( RERROR( S ) .GT. RTOL(S) .OR. AERROR( S ) .GT. 1.0D-5 )THEN LEBI_CONV = .FALSE. LEBISPFL( S ) = .TRUE. END IF c..test if predictions growing too large IF( YCP( S ) .GT. MAXPRED .AND. NOTMAX( S ) ) THEN MXFL = .TRUE. LEBI_CONV = .FALSE. LEBISPFL( S ) = .TRUE. END IF YC( S ) = YCP( S ) END DO c..test if predictions growing too large, abort interation loop IF( MXFL ) EXIT ITER_SUBSTEP c++++++++++++++++++++++++Debug section++++++++++++++++++++++++++++++++++ #ifdef hrdebug IF( LDEBUG ) THEN WRITE( DBGOUT, '( A, I5 )' ) 'Concs after ITER= ', ITER DO S = 1, NUMB_MECH_SPC IF( LEBISPFL( S ) ) THEN NOTE = 'CONV FAIL' ELSE NOTE = ' ' END IF WRITE( DBGOUT, '( I3, 1X, A, 1PD13.5, 1X, A )' ) & S, CHEMISTRY_SPC( S ), YC( S ), NOTE END DO IF( LEBI_CONV ) WRITE( DBGOUT, '( A )' ) & '****Convergence achieved' END IF #endif c++++++++++++++++++++++++Debug section++++++++++++++++++++++++++++++++++ IF( LEBI_CONV ) THEN DTG = 60.0D0 * DTC DO S = 1, NUMB_MECH_SPC M = CGRID_INDEX( S ) YCCELL( M ) = YC( S ) END DO #if defined(isam) || defined(verbose_isam) SA_DEGRADE_STEP = SA_DEGRADE_STEP + 1 #endif IF( CALL_DEG )CALL DEGRADE(YCCELL, DTG, JDATE, JTIME) ! :WTH Call degradation routine IF( CALL_IRR ) CALL PA_IRR ( .FALSE., RKI, YC, DTC ) #ifdef isam IF( NEBI .EQ. N_EBI_STEPS )UPDATE_SOLD = .TRUE. CALL SA_IRR_UNBLOCKED ( .FALSE., RKI, YC, DTC ) UPDATE_PROBABILITIES = .FALSE. #endif #ifdef sens C Update the sum for the average over the chemistry integration YCDDM = YCDDM & + ( ( 0.5D0 * DTC ) * ( YC + YC0 ) ) #endif CYCLE SUBSTEP_EBI ! solve for next sub time-step END IF END DO ITER_SUBSTEP ! interating for substep failed, attempt to increase number of sub time-steps NBKUPS = NBKUPS + 1 ! IF( NBKUPS .LE. MXBKUPS ) THEN IF ( DTC .GT. DTMIN ) THEN ! reset YC and cut sub time-step in half IF ( MXFL ) THEN WRITE( LOGDEV, 92008 ) NBKUPS WRITE( LOGDEV, 92009 ) C+PECOL_OFFSET, R+PEROW_OFFSET, L DO S = 1, NUMB_MECH_SPC IF( LEBISPFL( S ) )WRITE( LOGDEV, 92010 )TRIM( CHEMISTRY_SPC( S ) ), & YC0(S), YCP(S) END DO ELSE WRITE( LOGDEV, 92000 ) C+PECOL_OFFSET, R+PEROW_OFFSET, L, NBKUPS DO S = 1, NUMB_MECH_SPC IF( LEBISPFL( S ) )WRITE( LOGDEV, 92010 )TRIM( CHEMISTRY_SPC( S ) ), & YC0(S), YCP(S) END DO END IF YC = YC0 ! Set ICs for EBI time-step DTC = 0.5D0 * DTC N_INR_STEPS = 2 ** NBKUPS EXIT SUBSTEP_EBI ELSE WRITE( LOGDEV, 92040 ) C+PECOL_OFFSET, R+PEROW_OFFSET, L WRITE( LOGDEV, 92060 ) DO S = 1, NUMB_MECH_SPC IF( LEBISPFL( S ) ) WRITE( LOGDEV, 92080 ) CHEMISTRY_SPC( S ), & YC0(S), YCP(S) END DO MSG = 'ERROR: Stopping because of EBI convergence failures' CALL M3EXIT( PNAME, JDATE, JTIME, MSG, XSTAT2 ) END IF END DO SUBSTEP_EBI IF( LEBI_CONV )THEN NEBI = 1 + NEBI ! test for completing final EBI time-step IF( NEBI .GT. N_EBI_STEPS )EXIT TSTEP_EBI ! test whether backups were done IF( NBKUPS .EQ. 0 )CYCLE TSTEP_EBI ! Reset NBKUPS, N_INR_STEPS and sub-time step NBKUPS = 0 N_INR_STEPS = 1 DTC = EBI_TMSTEP END IF END DO TSTEP_EBI #ifdef sens ! Compute average over integration and filter values YCDDM = YCDDM / CHEMSTEP WHERE ( YCDDM .LT. 1.0D-25 ) YCDDM = 0.0D0 #endif RETURN 91000 FORMAT( 'WARNING: EBI solver in cell (',2(I4,','),I4,') Init.Conc. for ', & A16, ' = ', ES12.4,' ppmV') 92000 FORMAT( 'WARNING: EBI Euler convergence failure' / & ' Reducing EBI time step because of ', & ' convergence failure in ' / & ' Cell (', I3, ', ', I3, ', ', I3, ')' , & ' Solution Attempt #', I2 / & ' Below Species Causing Error: Init.Conc, Pred.Conc.' ) 92008 FORMAT( 'WARNING: At solution attempt #', I2 ) 92009 FORMAT( 'WARNING: EBI Euler convergence failure' / & ' Reducing EBI time step because of ', & ' MAXPRED failure in ' / & ' Cell (', I3, ', ', I3, ', ', I3, ')' , & ' for the below species: : Init.Conc, Pred.Conc.') 92010 FORMAT( A16, 2(1X,ES12.4), ' ppmV' ) 92040 FORMAT( 'ERROR: Max number of EBI time step reductions exceeded' & / ' Convergence failure for cell (', I3, ', ', I3, & ', ', I3, ')' ) 92060 FORMAT( ' Convergence failure for the following species:', & 'Init.Conc, Pred.Conc.' ) 92080 FORMAT( 10X, A, 2(1X,ES12.4), ' ppmV ' ) 92061 FORMAT( ' Convergence failure for the following species:', & 'Init.Conc, Pred.Conc.,Rel.Error,' ) 92081 FORMAT( 10X, A, 2(1X,ES12.4), ' ppmV ', ES12.4,'%' ) END ================================================ FILE: CCTM/src/gas/ebi_cracmm1amore_aq/hrdata_mod.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! MODULE HRDATA C************************************************************************* C C FUNCTION: Mechanism & solver data for EBI solver C C PRECONDITIONS: For the CRACMM1AMORE_AQ mechanism C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by EBI solver program, Jun 16, 2022 C C 18 Jul 14 B.Hutzell: revised to use real(8) variables for solution C************************************************************************* c..EBI solver fixed parameters INTEGER, PARAMETER :: NEBITER = 1000 ! No. of iterations for EBI INTEGER, PARAMETER :: MAX_CELLS_EBI = 1 ! max # cells in local conc arrays REAL( 8 ), PARAMETER :: DELTAT = 2.500D+00 ! EBI time step (min) c..Mechanism specific variables INTEGER N_SPEC ! No. of species in mechanism INTEGER N_RXNS ! No. of reactions in mechanism INTEGER N_EBISP ! No. of species solved by EBI INTEGER NING1 ! No. of species in group 1 INTEGER NING2 ! No. of species in group 2 INTEGER N_SPCL_RKS ! No. of special rate constants INTEGER N_ACTSP ! No. of species in mechanism (non-ss spec) INTEGER NCELL ! cell number in EBI Block c..Control flags LOGICAL L_AE_VRSN ! Flag for aerosol version of mech LOGICAL L_AQ_VRSN ! Flag for aqueous chemistry version of mech LOGICAL CALL_IRR ! Flag initializing for IRR and calling PA_IRR ! SWITCH for calling DEGRADE routine LOGICAL, SAVE :: CALL_DEG = .TRUE. c..Miscellaneous variables INTEGER N_EBI_IT ! No. of iterations for EBI INTEGER N_EBI_STEPS ! No. of time steps for EBI INTEGER N_INR_STEPS ! No. of inner time steps for EBI INTEGER PECOL_OFFSET ! Local Column Offset for processor INTEGER PEROW_OFFSET ! Local Column Offset for processor INTEGER, SAVE :: MODEL_SPECIES ! No. of species in CGRID REAL( 8 ) EBI_TMSTEP ! Time step for EBI loops (min) REAL( 8 ) CHEMSTEP ! Chemistry integration interval (min) c...Allocatable arrays INTEGER, ALLOCATABLE :: EBISP( : ) ! Index of EBI species INTEGER, ALLOCATABLE :: SSASP( : ) ! Index of ss species INTEGER, ALLOCATABLE :: ACTSP( : ) ! Index of active species INTEGER, ALLOCATABLE :: IOLD2NEW( :,: ) ! YC species map, used if NSPECIAL > 0 REAL( 8 ), ALLOCATABLE :: RKI( : ) ! Rate constants REAL( 8 ), ALLOCATABLE :: RKI_SAV( :, : ) ! Saved values of RKI for SS species calcs REAL( 8 ), ALLOCATABLE :: YC ( : ) ! Species concentrations REAL( 8 ), ALLOCATABLE :: YC0( : ) ! Species concentrations REAL( 8 ), ALLOCATABLE :: YCP( : ) ! Species concentrations REAL( 8 ), ALLOCATABLE :: SYC( :, : ) ! Species concentrations REAL, ALLOCATABLE :: FORWARD_CONV( : ) ! CGRID to CHEM Species conversion factor REAL, ALLOCATABLE :: REVERSE_CONV( : ) ! CHEM to CGRID Species conversion factor REAL( 8 ), ALLOCATABLE :: RXRAT( : ) ! Reaction rates REAL( 8 ), ALLOCATABLE :: RTOL( : ) ! Species tolerances REAL( 8 ), ALLOCATABLE :: YCCELL( : ) ! ALL Species in cgrid REAL( 8 ), ALLOCATABLE :: PROD( : ) ! Prod of species REAL( 8 ), ALLOCATABLE :: LOSS( : ) ! Loss of species REAL, ALLOCATABLE :: PRES( :, :, : ) ! pressure (Pa) REAL, ALLOCATABLE :: QV ( :, :, : ) ! water vapor (Kg/Kg air) REAL, ALLOCATABLE :: TA ( :, :, : ) ! temperature (K) REAL, ALLOCATABLE :: SEAICE ( :, :) ! fractional seaice cover, [-] REAL, ALLOCATABLE :: DENS( :, :, : ) ! mass density (Kg/m^3) REAL, ALLOCATABLE :: SEAWATER_ZONE ( :,: ) ! fractional area of OPEN+SURF LOGICAL, ALLOCATABLE :: LFLAGIRR ( :,:,: ) ! Conduct IRR for cell REAL( 8 ), ALLOCATABLE :: ATMPRES ( : ) ! Cell pressure, Atm ! REAL( 8 ), ALLOCATABLE :: PRESCELL( : ) ! Cell pressure, Pa REAL( 8 ), ALLOCATABLE :: H2O ( : ) ! Cell H2O mixing ratio (ppmV) REAL( 8 ), ALLOCATABLE :: TEMP ( : ) ! Cell Temperature REAL( 8 ), ALLOCATABLE :: DENSITY ( : ) ! Cell mass density (Kg/m3) REAL( 8 ), ALLOCATABLE :: HET ( :, : ) ! cell heterogeneous reaction rates REAL( 8 ), ALLOCATABLE :: RJIN ( :, : ) ! J-values for a cell REAL( 8 ), ALLOCATABLE :: SEAWATER ( : ) ! fractional area of OPEN+SURF for specific cell c..Species indices INTEGER, PARAMETER :: O3 = 1 INTEGER, PARAMETER :: O3P = 2 INTEGER, PARAMETER :: O1D = 3 INTEGER, PARAMETER :: H2O2 = 4 INTEGER, PARAMETER :: HO = 5 INTEGER, PARAMETER :: NO2 = 6 INTEGER, PARAMETER :: NO = 7 INTEGER, PARAMETER :: NO3 = 8 INTEGER, PARAMETER :: HONO = 9 INTEGER, PARAMETER :: HNO3 = 10 INTEGER, PARAMETER :: HNO4 = 11 INTEGER, PARAMETER :: HO2 = 12 INTEGER, PARAMETER :: HCHO = 13 INTEGER, PARAMETER :: CO = 14 INTEGER, PARAMETER :: ACD = 15 INTEGER, PARAMETER :: MO2 = 16 INTEGER, PARAMETER :: ALD = 17 INTEGER, PARAMETER :: ETHP = 18 INTEGER, PARAMETER :: ACT = 19 INTEGER, PARAMETER :: ACO3 = 20 INTEGER, PARAMETER :: UALD = 21 INTEGER, PARAMETER :: KET = 22 INTEGER, PARAMETER :: PINAL = 23 INTEGER, PARAMETER :: HC10P = 24 INTEGER, PARAMETER :: LIMAL = 25 INTEGER, PARAMETER :: MEK = 26 INTEGER, PARAMETER :: HKET = 27 INTEGER, PARAMETER :: MACR = 28 INTEGER, PARAMETER :: MACP = 29 INTEGER, PARAMETER :: XO2 = 30 INTEGER, PARAMETER :: MVK = 31 INTEGER, PARAMETER :: GLY = 32 INTEGER, PARAMETER :: MGLY = 33 INTEGER, PARAMETER :: DCB1 = 34 INTEGER, PARAMETER :: DCB2 = 35 INTEGER, PARAMETER :: BALD = 36 INTEGER, PARAMETER :: CHO = 37 INTEGER, PARAMETER :: OP1 = 38 INTEGER, PARAMETER :: OP2 = 39 INTEGER, PARAMETER :: OPB = 40 INTEGER, PARAMETER :: OP3 = 41 INTEGER, PARAMETER :: PAA = 42 INTEGER, PARAMETER :: ONIT = 43 INTEGER, PARAMETER :: PAN = 44 INTEGER, PARAMETER :: N2O5 = 45 INTEGER, PARAMETER :: SO2 = 46 INTEGER, PARAMETER :: SULF = 47 INTEGER, PARAMETER :: SULRXN = 48 INTEGER, PARAMETER :: ETH = 49 INTEGER, PARAMETER :: HC3 = 50 INTEGER, PARAMETER :: HC3P = 51 INTEGER, PARAMETER :: ASOATJ = 52 INTEGER, PARAMETER :: HC5 = 53 INTEGER, PARAMETER :: HC5P = 54 INTEGER, PARAMETER :: ETE = 55 INTEGER, PARAMETER :: ETEP = 56 INTEGER, PARAMETER :: OLT = 57 INTEGER, PARAMETER :: OLTP = 58 INTEGER, PARAMETER :: OLI = 59 INTEGER, PARAMETER :: OLIP = 60 INTEGER, PARAMETER :: ACE = 61 INTEGER, PARAMETER :: ORA1 = 62 INTEGER, PARAMETER :: BEN = 63 INTEGER, PARAMETER :: BENP = 64 INTEGER, PARAMETER :: PHEN = 65 INTEGER, PARAMETER :: TOL = 66 INTEGER, PARAMETER :: TOLP = 67 INTEGER, PARAMETER :: CSL = 68 INTEGER, PARAMETER :: XYM = 69 INTEGER, PARAMETER :: XYMP = 70 INTEGER, PARAMETER :: XYE = 71 INTEGER, PARAMETER :: XYEP = 72 INTEGER, PARAMETER :: ISO = 73 INTEGER, PARAMETER :: INO2 = 74 INTEGER, PARAMETER :: NALD = 75 INTEGER, PARAMETER :: ISOP = 76 INTEGER, PARAMETER :: ISHP = 77 INTEGER, PARAMETER :: ISON = 78 INTEGER, PARAMETER :: IPN = 79 INTEGER, PARAMETER :: IEPOX = 80 INTEGER, PARAMETER :: IPC = 81 INTEGER, PARAMETER :: ROH = 82 INTEGER, PARAMETER :: API = 83 INTEGER, PARAMETER :: APIP1 = 84 INTEGER, PARAMETER :: APIP2 = 85 INTEGER, PARAMETER :: LIM = 86 INTEGER, PARAMETER :: LIMP1 = 87 INTEGER, PARAMETER :: LIMP2 = 88 INTEGER, PARAMETER :: PINALP = 89 INTEGER, PARAMETER :: RCO3 = 90 INTEGER, PARAMETER :: LIMALP = 91 INTEGER, PARAMETER :: ACTP = 92 INTEGER, PARAMETER :: MEKP = 93 INTEGER, PARAMETER :: KETP = 94 INTEGER, PARAMETER :: MCP = 95 INTEGER, PARAMETER :: MVKP = 96 INTEGER, PARAMETER :: UALP = 97 INTEGER, PARAMETER :: DCB3 = 98 INTEGER, PARAMETER :: BALP = 99 INTEGER, PARAMETER :: ADDC = 100 INTEGER, PARAMETER :: MCT = 101 INTEGER, PARAMETER :: MCTO = 102 INTEGER, PARAMETER :: MOH = 103 INTEGER, PARAMETER :: EOH = 104 INTEGER, PARAMETER :: ETEG = 105 INTEGER, PARAMETER :: MAHP = 106 INTEGER, PARAMETER :: ORA2 = 107 INTEGER, PARAMETER :: ORAP = 108 INTEGER, PARAMETER :: PPN = 109 INTEGER, PARAMETER :: MPAN = 110 INTEGER, PARAMETER :: TRPN = 111 INTEGER, PARAMETER :: HOM = 112 INTEGER, PARAMETER :: MCTP = 113 INTEGER, PARAMETER :: OLNN = 114 INTEGER, PARAMETER :: OLND = 115 INTEGER, PARAMETER :: APINP1 = 116 INTEGER, PARAMETER :: APINP2 = 117 INTEGER, PARAMETER :: LIMNP1 = 118 INTEGER, PARAMETER :: LIMNP2 = 119 INTEGER, PARAMETER :: ADCN = 120 INTEGER, PARAMETER :: VROCP4OXY2 = 121 INTEGER, PARAMETER :: VROCN1OXY6 = 122 INTEGER, PARAMETER :: FURANONE = 123 INTEGER, PARAMETER :: VROCP3OXY2 = 124 INTEGER, PARAMETER :: VROCP0OXY4 = 125 INTEGER, PARAMETER :: BAL1 = 126 INTEGER, PARAMETER :: BAL2 = 127 INTEGER, PARAMETER :: ELHOM = 128 INTEGER, PARAMETER :: VROCIOXY = 129 INTEGER, PARAMETER :: SLOWROC = 130 INTEGER, PARAMETER :: ACRO = 131 INTEGER, PARAMETER :: BDE13 = 132 INTEGER, PARAMETER :: BDE13P = 133 INTEGER, PARAMETER :: FURAN = 134 INTEGER, PARAMETER :: FURANO2 = 135 INTEGER, PARAMETER :: PROG = 136 INTEGER, PARAMETER :: SESQ = 137 INTEGER, PARAMETER :: SESQNRO2 = 138 INTEGER, PARAMETER :: VROCN2OXY2 = 139 INTEGER, PARAMETER :: SESQRO2 = 140 INTEGER, PARAMETER :: VROCP0OXY2 = 141 INTEGER, PARAMETER :: VROCP1OXY3 = 142 INTEGER, PARAMETER :: AGLYJ = 143 INTEGER, PARAMETER :: IEPOXP = 144 INTEGER, PARAMETER :: AISO3NOSJ = 145 INTEGER, PARAMETER :: ASO4J = 146 INTEGER, PARAMETER :: AISO3OSJ = 147 INTEGER, PARAMETER :: VROCP6ALK = 148 INTEGER, PARAMETER :: VROCP6ALKP = 149 INTEGER, PARAMETER :: VROCP5ALK = 150 INTEGER, PARAMETER :: VROCP5ALKP = 151 INTEGER, PARAMETER :: VROCP4ALK = 152 INTEGER, PARAMETER :: VROCP4ALKP = 153 INTEGER, PARAMETER :: VROCP3ALK = 154 INTEGER, PARAMETER :: VROCP3ALKP = 155 INTEGER, PARAMETER :: VROCP2ALK = 156 INTEGER, PARAMETER :: VROCP2ALKP = 157 INTEGER, PARAMETER :: VROCP1ALK = 158 INTEGER, PARAMETER :: VROCP1ALKP = 159 INTEGER, PARAMETER :: HC10 = 160 INTEGER, PARAMETER :: VROCP6ALKP2 = 161 INTEGER, PARAMETER :: VROCP5ALKP2 = 162 INTEGER, PARAMETER :: VROCP4ALKP2 = 163 INTEGER, PARAMETER :: VROCP2OXY2 = 164 INTEGER, PARAMETER :: VROCP3ALKP2 = 165 INTEGER, PARAMETER :: VROCP1OXY1 = 166 INTEGER, PARAMETER :: VROCP2ALKP2 = 167 INTEGER, PARAMETER :: VROCP1ALKP2 = 168 INTEGER, PARAMETER :: VROCN1OXY1 = 169 INTEGER, PARAMETER :: HC10P2 = 170 INTEGER, PARAMETER :: VROCP6ARO = 171 INTEGER, PARAMETER :: VROCP6AROP = 172 INTEGER, PARAMETER :: VROCN2OXY4 = 173 INTEGER, PARAMETER :: VROCN1OXY3 = 174 INTEGER, PARAMETER :: VROCP5ARO = 175 INTEGER, PARAMETER :: VROCP5AROP = 176 INTEGER, PARAMETER :: NAPH = 177 INTEGER, PARAMETER :: NAPHP = 178 INTEGER, PARAMETER :: VROCN2OXY8 = 179 INTEGER, PARAMETER :: VROCP5OXY1 = 180 INTEGER, PARAMETER :: VROCP6OXY1 = 181 END MODULE HRDATA ================================================ FILE: CCTM/src/gas/ebi_cracmm1amore_aq/hrdriver.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE CHEM( CGRID, JDATE, JTIME, TSTEP ) C********************************************************************** C C FUNCTION: Driver subroutine for Euler Backward Iterative solver C C PRECONDITIONS: For the CRACMM1AMORE_AQ mechanism C C KEY SUBROUTINES/FUNCTIONS CALLED: HRINIT, HRCALCKS, HRSOLVER C FIND_DEGRADED, INIT_DEGRADE, FINAL_DEGRADE C C REVISION HISTORY: Created by EBI solver program, Jun 16, 2022 C Based on the algorithm in "Test of Two Numerical C Schemes for Use in Atmospheric Transport-Chemistry C Models", O. Hertel, R. Berkowicz, J. Christensen, C and O. Hov, Atm Env., Vol. 27A, No. 16, 1993. C Original MEBI code developed by Ho-Chun Huang, C SUNY, Albany -- "On the performance of numerical C solvers for a chemistry submodel in three-dimensional C air quality models 1. Box model simulations", C H. Huang and J.S. Chang, JGR, Vol 106, No. D17, 2001. C This version replaces Huang and Chang use of numerical C solutions with analytical solutions derived in C Hertel et al. C 21 Jun 10 J.Young: convert for Namelist redesign C 11 May 11 D.Wong: incorporated twoway model implementation C 27 Sep 11 B.Hutzell: revised method for defining CALL_DEG variable C 18 Jul 14 B.Hutzell: revised: 1) to use the RXNS_DATA and RXNS_FUNCTION C modules instead of include files, 2) to enable C reactions between species types, 3) to calculate C heterogeneous rate constants via AEROSOL_CHEMISTRY C module, 4) to replace call to HRCALCKS with C subroutine in RXNS_FUNCTION module and 5) to change C how degrade routines are used, if present C 02 Dec 14 B.Hutzell: 1) added terrestrial data to conduct surface C dependent reactions and 2) modified the call CALC_RCONST C routine C 01 Feb 19 D.Wong: Implemented centralized I/O approach, removed all MY_N C clauses C********************************************************************** USE HGRD_DEFN ! horizontal domain specifications USE VGRD_DEFN ! vertical layer specifications USE CGRID_SPCS ! CGRID mechanism species USE UTILIO_DEFN ! IOAPI parameters and functions declarations USE RXNS_DATA USE AEROSOL_CHEMISTRY USE RXNS_FUNCTION #ifdef isam USE SA_IRR_DEFN USE SA_DEFN #endif USE HRDATA USE PHOT_MOD, Only: INIT_PHOT_SHARED, RJ ! photolysis rate, in-line module USE PA_DEFN, Only: LIRR ! Process Analysis control and data variable USE PA_IRR_CLT #ifndef isam USE DEGRADE_ROUTINES, ONLY : N_REACT, RXTANT_MAP, DEG_LAY, DEG_COL, DEG_ROW, & FIND_DEGRADED, INIT_DEGRADE, FINAL_DEGRADE #else USE DEGRADE_ROUTINES, ONLY : N_REACT, RXTANT_MAP, SA_DEGRADE_EXTRACT, & FIND_DEGRADED, INIT_DEGRADE, FINAL_DEGRADE, & SA_DEGRADE_UPLOAD, DEG_LAY, DEG_COL, DEG_ROW #endif USE CENTRALIZED_IO_MODULE, ONLY : INTERPOLATE_VAR, OCEAN, SZONE #ifdef sens USE DDM3D_CHEM Use DDM3D_DEFN, Only: DATENUM, STARTDATE, IPT, IDATE, HIGH, NP, NPMAX, CKTIME #endif IMPLICIT NONE C..Includes: INCLUDE SUBST_FILES_ID ! CMAQ files INCLUDE SUBST_CONST ! CMAQ constants INCLUDE SUBST_EMISPRM ! Emissions processing control parameters C..Arguments: REAL, POINTER :: CGRID( :,:,:,: ) ! Species concentrations INTEGER JDATE ! Current date (YYYYDDD) INTEGER JTIME ! Current time (HHMMSS) INTEGER TSTEP( 3 ) ! Time step vector (HHMMSS) C..Parameters: REAL( 8 ), PARAMETER :: DCONMIN = 1.0D-30 ! minimum species concentration allowed REAL, PARAMETER :: CONCMIN = 1.0E-30 ! minimum species concentration allowed REAL, PARAMETER :: MAOMV = 1.0E6 * MWAIR / MWWAT ! Mol Wt of air over Mol Wt of water times 1.0E6 C..External Functions: C..Saved Local Variables: CHARACTER( 16 ), SAVE :: PNAME = 'HRDRIVER' ! Program name INTEGER, SAVE :: ISTFL ! Unit no. of iteration stat output file LOGICAL, SAVE :: LFIRST = .TRUE. ! Flag for first call to this subroutine REAL( 8 ), SAVE :: PA2ATM ! Pascal to atm conv fac C..Scratch Local Variables: CHARACTER( 132 ) :: MSG ! Message text CHARACTER( 16 ) :: VNAME ! Name of I/O API data variable INTEGER C, E, L, R, S ! Loop indices INTEGER ISP ! array index INTEGER AVGEBI ! Average no. of EBI iterations INTEGER DELT_SEC ! EBI max time step in seconds INTEGER ESP ! Loop index for emissions species INTEGER ITMSTEP ! Chemistry integration interval (sec) INTEGER LEV ! Layer index INTEGER MIDDATE ! Date at time step midpoint INTEGER MIDTIME ! Time at time step midpoint INTEGER NPH ! Index for number of phot. rxns in PHOT INTEGER SPC ! Species loop index #ifdef hrstats INTEGER MNEBI ! Min no. of EBI iterations INTEGER MXEBI ! Max no. of EBI iterations #endif LOGICAL LSUNLIGHT ! Flag for sunlight REAL INV_DENS ! reciprocal of air mass density, m3/Kg #ifdef hrstats REAL SUMEBI ! Sum of EBI iterations #endif INTERFACE SUBROUTINE HRSOLVER( JDATE, JTIME, C, R, L ) INTEGER, INTENT( IN ) :: JDATE ! Current date (YYYYDDD) INTEGER, INTENT( IN ) :: JTIME ! Current time (HHMMSS) INTEGER, INTENT( IN ) :: C, R, L ! Cell col, row, lev END SUBROUTINE HRSOLVER SUBROUTINE HETCHEM_UPDATE_AERO( CGRID ) REAL, POINTER :: CGRID( :,:,:,: ) ! species concentration in cell END SUBROUTINE HETCHEM_UPDATE_AERO END INTERFACE C********************************************************************** IF( NUMB_MECH_SPC .EQ. 0 ) RETURN ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c On first call, call routines to set-up for EBI solver ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF( LFIRST ) THEN IF( MECHNAME .NE. 'CRACMM1AMORE_AQ' ) THEN MSG = 'This version of the EBI solver can only be used with' & // ' the CRACMM1AMORE_AQ chemical mechanism' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF #ifdef emis_chem EMISVD = .FALSE. #else EMISVD = .TRUE. #endif IF( INDEX( MECHNAME, 'AE' ) .NE. 0 ) THEN L_AE_VRSN = .TRUE. ELSE L_AE_VRSN = .FALSE. END IF IF( INDEX( MECHNAME, 'AQ' ) .NE. 0 ) THEN L_AQ_VRSN = .TRUE. ELSE L_AQ_VRSN = .FALSE. END IF IF( LIRR ) THEN CALL_IRR = .TRUE. ELSE CALL_IRR = .FALSE. END IF MODEL_SPECIES = NSPCSD ! WTH: find number of model species ! Determine whether DEGRADE rountines are needed. CALL FIND_DEGRADED( JDATE, JTIME, CALL_DEG ) IF( CALL_DEG )THEN WRITE(LOGDEV,*)'TX DEGRADE ROUTINES USED' WRITE(LOGDEV,*)'Mechanism contains degraded species' #ifdef verbose_gas ELSE WRITE(LOGDEV,*)'TX DEGRADE ROUTINES OMITTED' WRITE(LOGDEV,*)'MECHANISM does not include degraded species' #endif END IF CALL HRINIT ITMSTEP = TIME2SEC( TSTEP( 2 ) ) CHEMSTEP = REAL( ITMSTEP, 8 ) / 60.0D0 WRITE( LOGDEV, 92000 ) CHEMSTEP, DELTAT WRITE( LOGDEV, 92020 ) DO SPC = 1, NUMB_MECH_SPC WRITE( LOGDEV, 92040 ) CHEMISTRY_SPC( SPC ), RTOL( SPC ) END DO PA2ATM = REAL( 1.0 / STDATMPA, 8) c..If emissions processing requested stop IF( .NOT. EMISVD ) THEN ! assumes emis processing in gas chem MSG = 'ERROR: EBI solver not configured to '// & 'process emissions in chemistry' CALL M3EXIT( PNAME, JDATE, JTIME, MSG, XSTAT1 ) END IF ! End if doing emissions #ifdef hrstats ISTFL = JUNIT() OPEN( UNIT=ISTFL, FILE='iterstat.dat' ) WRITE( ISTFL, 94020 ) #endif C Define processor offsets PECOL_OFFSET = COLSD_PE( 1, MYPE+1 ) - 1 PEROW_OFFSET = ROWSD_PE( 1, MYPE+1 ) - 1 ALLOCATE( SEAWATER_ZONE( NCOLS, NROWS ) ) DO R = 1, NROWS DO C = 1, NCOLS SEAWATER_ZONE( C,R ) = OCEAN( C,R ) + SZONE( C,R ) END DO END DO ALLOCATE( DENS( NCOLS, NROWS, NLAYS ), PRES( NCOLS, NROWS, NLAYS ), & QV ( NCOLS, NROWS, NLAYS ), TA ( NCOLS, NROWS, NLAYS ), & SEAICE( NCOLS, NROWS ) ) C..Initialize shared photolysis data CALL INIT_PHOT_SHARED() C..Determine which cells need IRR ALLOCATE( LFLAGIRR ( NCOLS, NROWS, NLAYS ) ) CALL PA_IRR_CKCELLS ( LFLAGIRR ) #ifdef isam NUMB_ISAM_CELLS = 1.0D0 / ( NCOLS * NROWS * NLAYS ) CALL SA_IRR_INIT #endif #ifdef sens CALL INIT_DDM3D_CHEM() C For higher order sensitivities IF ( HIGH ) THEN DO RXN = 1, NRXNS IF( NREACT( RXN ) .EQ. 1 ) THEN ORDER1( RXN ) = .TRUE. ELSE ORDER1( RXN ) = .FALSE. END IF END DO END IF #endif LFIRST = .FALSE. END IF ! First time ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C Set date and time to center of time step, get necessary physical C data ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc MIDDATE = JDATE MIDTIME = JTIME ITMSTEP = TIME2SEC( TSTEP( 2 ) ) CHEMSTEP = REAL( ITMSTEP, 8 ) / 60.0D0 CALL NEXTIME( MIDDATE, MIDTIME, SEC2TIME( ITMSTEP / 2 ) ) C.. Compute number of time step loops and step size for EBI solver DELT_SEC = INT( DELTAT * 60.0D0 + 0.1D0 ) IF( DELT_SEC .GE. ITMSTEP ) THEN N_EBI_STEPS = 2 EBI_TMSTEP = 0.5D0 * CHEMSTEP ELSE IF( MOD( ITMSTEP, DELT_SEC ) .EQ. 0 ) THEN N_EBI_STEPS = ITMSTEP / DELT_SEC ELSE N_EBI_STEPS = ITMSTEP / DELT_SEC + 1 END IF EBI_TMSTEP = CHEMSTEP / REAL( N_EBI_STEPS, 8 ) END IF N_INR_STEPS = 1 C.. Get fractional seaice coverage from the METCRO2D file. CALL INTERPOLATE_VAR ('SEAICE', MIDDATE, MIDTIME, SEAICE) C.. Get ambient temperature in K CALL INTERPOLATE_VAR ('TA', MIDDATE, MIDTIME, TA) C.. Get specific humidity in Kg H2O / Kg air CALL INTERPOLATE_VAR ('QV', MIDDATE, MIDTIME, QV) ! Get ambient MASS DENSITY in Kg/m^3 CALL INTERPOLATE_VAR ('DENS', MIDDATE, MIDTIME, DENS) C.. Get pressure in Pascals CALL INTERPOLATE_VAR ('PRES', MIDDATE, MIDTIME, PRES) C.. Get Heteorogeneous rates and Update Aerosol Distribution Properties CALL HETCHEM_RATES( TA, PRES, QV, CGRID, DENS ) #ifdef sens DATENUM = 1 + JDATE - STARTDATE ! Set the date and hour counters used in sensitivity calls C For reaction rate sensitivities DO NP = 1, NPMAX IF ( IPT( NP ) .EQ. 5 ) THEN CALL CKTIME( JDATE,JTIME,NP,RXNFLAG(NP) ) ! Rxnflag set to true iff ipt=5 and time, date within bounds IF ( IDATE( NP, DATENUM ) .NE. 1 ) RXNFLAG( NP ) = .FALSE. ELSE RXNFLAG( NP ) = .FALSE. END IF END DO #endif sens ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Top of loop over cells ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc #ifdef hrstats MNEBI = 1000 MXEBI = 0 SUMEBI = 0.0 #endif NCELL = 1 DO L = 1, NLAYS DO R = 1, NROWS DO C = 1, NCOLS DEG_LAY = L DEG_ROW = R DEG_COL = C c..reset CALL_IRR based on cell's values CALL_IRR = LFLAGIRR( C,R,L ) c..Load ICs INV_DENS = 1.0 / DENS( C,R,L ) DO SPC = 1, NUMB_MECH_SPC S = CGRID_INDEX( SPC ) IF( CONVERT_CONC( SPC ) )THEN YC( SPC ) = REAL( MAX( CONCMIN, & INV_DENS*FORWARD_CONV( SPC )*CGRID( C,R,L,S )), 8 ) ELSE YC( SPC ) = REAL( MAX( CGRID( C,R,L,S ), CONCMIN), 8 ) END IF END DO IF(CALL_DEG)THEN ! INITIALIZE degradation routines YCCELL = 0.0D0 DO S = 1, MODEL_SPECIES YCCELL( S ) = REAL( CGRID(C,R,L,S), 8) END DO CALL INIT_DEGRADE(YCCELL,TA(C,R,L),DENS(C,R,L),PRES(C,R,L),QV(C,R,L),RJIN(NCELL,:), & JDATE, JTIME) #ifdef isam CALL SA_DEGRADE_EXTRACT( C,R,L,DENS(C,R,L) ) #endif END IF c..Set physical quantities TEMP( NCELL ) = REAL( TA( C,R,L ), 8) DENSITY( NCELL ) = REAL( DENS( C,R,L ), 8) ! PRESCELL( NCELL ) = REAL( PRES( C,R,L ), 8) ATMPRES( NCELL ) = PA2ATM * REAL( PRES( C,R,L ), 8) H2O( NCELL ) = REAL( MAX ( MAOMV * QV( C,R,L ), 0.0 ), 8) SEAWATER (NCELL) = MAX ( 0.0D0, ( REAL( SEAWATER_ZONE( C,R ) - SEAICE (C,R) ,8) ) ) c..Get rate constants LSUNLIGHT = .FALSE. FORALL( NPH = 1:NPHOTAB ) RJIN( NCELL,NPH ) = REAL( RJ( C,R,L,NPH ), 8) IF( MAXVAL(RJIN) .GT. 0.0D0 ) LSUNLIGHT = .TRUE. FORALL ( NPH = 1:NHETERO )HET( NCELL,NPH ) = REAL( KHETERO( NPH,C,R,L ), 8) CALL CALC_RCONST( TEMP, ATMPRES, H2O, RJIN, HET, LSUNLIGHT, SEAWATER, RKI_SAV, NCELL ) FORALL( NPH = 1:NRXNS )RKI( NPH ) = RKI_SAV( NCELL, NPH ) #ifdef isam #if defined(isam) || defined(verbose_isam) C...For diagnosing IRR calculations in log files IF( CHECK_ISAM )THEN WRITE_CELL = .FALSE. IF( C .EQ. MAX(1, NCOLS/2) .AND. R .EQ. MAX(1,NROWS/2) .AND. L .EQ. 1 )THEN WRITE_CELL = .TRUE. WRITE(LOGDEV,*)'WRITE_CELL = .TRUE.' ELSE WRITE_CELL = .FALSE. END IF END IF #endif CALL SA_IRR_EXTRACT( C, R, L, DENS( C,R,L ),YC ) #endif c..Call EBI solver N_EBI_IT = 0 CALL HRSOLVER( JDATE, JTIME, C, R, L ) #ifdef hrstats MXEBI = MAX( MXEBI, N_EBI_IT ) MNEBI = MIN( MNEBI, N_EBI_IT ) SUMEBI = SUMEBI + REAL( N_EBI_IT ) #endif c..Update concentration array DO SPC = 1, NUMB_MECH_SPC S = CGRID_INDEX( SPC ) IF( CONVERT_CONC( SPC ) )THEN CGRID( C,R,L,S ) = REAL( REVERSE_CONV( SPC ) * DENS( C,R,L ) & * MAX( YC( SPC ), DCONMIN), 4) ELSE CGRID( C,R,L,S ) = REAL( MAX( YC( SPC ), DCONMIN), 4) END IF END DO IF(CALL_DEG)THEN ! WTH: update based on degrade routines CALL FINAL_DEGRADE(YCCELL) UPDATE_DEGRADED: DO SPC = 1, N_REACT ISP = RXTANT_MAP( SPC ) IF( ISP .LE. 0 )CYCLE UPDATE_DEGRADED DO S = 1, NUMB_MECH_SPC IF( CGRID_INDEX( S ) .EQ. ISP )CYCLE UPDATE_DEGRADED END DO CGRID(C,R,L,ISP) = REAL( YCCELL(ISP), 4) END DO UPDATE_DEGRADED #ifdef isam CALL SA_DEGRADE_UPLOAD( C,R,L,DENS(C,R,L) ) #endif END IF #ifdef isam CALL SA_IRR_UPLOAD( C, R, L, DENS( C,R,L ), YC ) #endif c..update irrout arrays if needed IF ( LFLAGIRR( C,R,L ) )CALL PA_IRR_CELLENDF( C, R, L ) #ifdef sens DO RXN = 1, NRXNS SRK( RXN ) = RKI( RXN ) IF ( HIGH ) THEN IF ( ORDER1 (RXN ) ) THEN SRK2( RXN ) = 0.0 ELSE SRK2( RXN ) = RKI( RXN ) END IF END IF END DO CALL SOLVE_DDM3D_CHEM( C,R,L,CHEMSTEP ) #endif END DO END DO END DO ! Update Aerosol Surface Area CALL HETCHEM_UPDATE_AERO( CGRID ) #ifdef hrstats AVGEBI = SUMEBI / REAL( NCOLS * NROWS * NLAYS ) WRITE( ISTFL, 94040 ) JDATE, JTIME, MNEBI, AVGEBI, MXEBI #endif RETURN C*********************** FORMAT STATEMENTS **************************** 92000 FORMAT( / 10X, 'Euler Backward Iterative Parameters -' & / 10X, 'Chemistry Integration Time Interval (min):', F12.4, & / 10X, 'EBI maximum time step (min): ', F12.4 ) 92020 FORMAT( //10X, 'Species convergence tolerances:' ) 92040 FORMAT( 10X, A16, 2X, 1PE12.2 ) 92060 FORMAT( / 10X, 'Emissions Processing in Chemistry ...' & / 10X, 'Number of Emissions Layers: ', I3 & / 10X, 'out of total Number of Model Layers:', I3 ) 94020 FORMAT( 'DATE TIME ', 'MNEBI AVEBI MXEBI' ) 94040 FORMAT( I7, 1X, I6, 1X, 3( I5, 1X ) ) END ================================================ FILE: CCTM/src/gas/ebi_cracmm1amore_aq/hrg1.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE HRG1( DTC ) C********************************************************************** C C FUNCTION: To solve for the concentration of NO2, NO, O3, and O3P C algebraically. C C PRECONDITIONS: For the CRACMM1AMORE_AQ mechanism C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by EBI solver program, Jun 16, 2022 C C 18 Jul 14 B.Hutzell: revised to use real(8) variables C 01 Jun 18 B.Hutzell: replaced steady solution for O1D with backward Euler C approximation. To match conditions where the initial C concentration cannot be neglected. C********************************************************************** USE HRDATA IMPLICIT NONE C..INCLUDES: None C..ARGUMENTS: REAL( 8 ), INTENT( IN ) :: DTC ! Time step C..PARAMETERS: None C..EXTERNAL FUNCTIONS: NONE C..SAVED LOCAL VARIABLES: ! CHARACTER( 16 ), SAVE :: PNAME = 'HRG1' ! Prgram Name C..SCRATCH LOCAL VARIABLES: REAL( 8 ) :: O1D_S ! sum of O1D loss frequencies REAL( 8 ) :: O3P_S ! stoich coeff for O3P from O1D REAL( 8 ) :: R1_2 ! production term for NO from NO2 REAL( 8 ) :: R2_1 ! production term for NO2 from NO REAL( 8 ) :: P1, P2, P3, P12 ! production terms for NO, NO2, O3, & O3P REAL( 8 ) :: L1, L2, L3, L12 ! loss terms for NO, NO2, O3, O3P REAL( 8 ) :: L1_INV, L2_INV, & L3_INV, L12_INV ! inverse of loss terms REAL( 8 ) :: T1, T2, T3, T4, T5 ! intermerdiate terms REAL( 8 ) :: F1, F2, F3 ! intermerdiate terms REAL( 8 ) :: A, B, C ! coefficients for quadratic equation REAL( 8 ) :: Q, XX, S1, S2 ! intermerdiate terms REAL( 8 ) :: RK1, RK2, RK3 ! rate constants REAL( 8 ) :: PO3 ! temp variable for O3 C********************************************************************** cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c O1D Section c 1) sum of the rate constants for all O1D loss reactions c 2) get fractional yield of O3P from O1D loss cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc O1D_S = RKI( 45 ) ! O1D=O3P & + RKI( 46 ) ! O1D=O3P & + RKI( 47 ) ! O1D=0.2000D+01*HO O3P_S = RKI( 45 ) ! O1D=O3P & + RKI( 46 ) ! O1D=O3P O3P_S = O3P_S / O1D_S cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c NO Section c R1_2 = production of NO from NO2 ( rates of form k[NO2][x] ) c except NO2+NO3=NO+NO2 (it is treated as if it were NO3=NO ) c P1 = remaining NO production terms c L1 = loss of NO (except rxns producing NO2 - they are in R2_1) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc R1_2 = RKI( 4 ) ! NO2=NO+O3P & + RKI( 59 ) * YC ( O3P ) ! NO2+O3P=NO R1_2 = R1_2 * DTC P1 = RXRAT( 5 ) ! NO3=NO & + RXRAT( 7 ) ! HONO=NO+HO & + RXRAT( 66 ) ! NO2+NO3=NO+NO2 P1 = YC0( NO ) + P1 * DTC L1 = RKI( 54 ) * YC ( HO ) ! NO+HO=HONO & + RKI( 56 ) * YC ( HO2 ) ! NO+HO2=HNO3 & + 2.2000D-01 * RKI( 92 ) * YC ( ISOP ) ! NO+ISOP=0.1400D+... & + 5.0000D-01 * RKI( 95 ) * YC ( INO2 ) ! NO+INO2=0.9000D+... & + 6.5000D-02 * RKI( 185 ) * YC ( HC3P ) ! NO+HC3P=0.6600D+... & + 1.3600D-01 * RKI( 186 ) * YC ( HC5P ) ! NO+HC5P=0.2000D+... & + 3.0000D-02 * RKI( 188 ) * YC ( OLTP ) ! NO+OLTP=0.7800D+... & + 5.0000D-02 * RKI( 189 ) * YC ( OLIP ) ! NO+OLIP=0.8300D+... & + 2.0000D-03 * RKI( 190 ) * YC ( BENP ) ! NO+BENP=0.0000D+... & + 2.0000D-03 * RKI( 191 ) * YC ( TOLP ) ! NO+TOLP=0.2000D-... & + 2.0000D-03 * RKI( 192 ) * YC ( XYMP ) ! NO+XYMP=0.1000D-... & + 2.0000D-03 * RKI( 193 ) * YC ( XYEP ) ! NO+XYEP=0.2000D-... & + 1.8000D-01 * RKI( 194 ) * YC ( APIP1 ) ! NO+APIP1=0.8200D+... & + 1.8000D-01 * RKI( 195 ) * YC ( APIP2 ) ! NO+APIP2=0.8200D+... & + 1.8000D-01 * RKI( 197 ) * YC ( APINP2 ) ! NO+APINP2=... & + 2.3000D-01 * RKI( 198 ) * YC ( LIMP1 ) ! NO+LIMP1=0.7700D+... & + 2.3000D-01 * RKI( 199 ) * YC ( LIMP2 ) ! NO+LIMP2=0.7700D+... & + 2.3000D-01 * RKI( 201 ) * YC ( LIMNP2 ) ! NO+LIMNP2=... & + 5.0000D-02 * RKI( 202 ) * YC ( PINALP ) ! NO+PINALP=... & + 6.0000D-02 * RKI( 203 ) * YC ( LIMALP ) ! NO+LIMALP=... & + 3.2000D-02 * RKI( 396 ) * YC ( BDE13P ) ! NO+BDE13P=... & + 8.0000D-02 * RKI( 404 ) * YC ( FURANO2 ) ! NO+FURANO2=... & + 2.4700D-01 * RKI( 418 ) * YC ( SESQRO2 ) ! NO+SESQRO2=... & + 2.8000D-01 * RKI( 434 ) * YC ( VROCP6ALKP ) ! NO+VROCP6ALKP=... & + 2.8000D-01 * RKI( 435 ) * YC ( VROCP5ALKP ) ! NO+VROCP5ALKP=... & + 2.8000D-01 * RKI( 436 ) * YC ( VROCP4ALKP ) ! NO+VROCP4ALKP=... & + 2.8000D-01 * RKI( 437 ) * YC ( VROCP3ALKP ) ! NO+VROCP3ALKP=... & + 2.8000D-01 * RKI( 438 ) * YC ( VROCP2ALKP ) ! NO+VROCP2ALKP=... & + 2.8000D-01 * RKI( 439 ) * YC ( VROCP1ALKP ) ! NO+VROCP1ALKP=... & + 2.6000D-01 * RKI( 440 ) * YC ( HC10P ) ! NO+HC10P=0.7400D+... & + 1.4000D-01 * RKI( 462 ) * YC ( VROCP6ALKP2 ) ! NO+VROCP6ALKP2=... & + 1.4000D-01 * RKI( 463 ) * YC ( VROCP5ALKP2 ) ! NO+VROCP5ALKP2=... & + 1.4000D-01 * RKI( 464 ) * YC ( VROCP4ALKP2 ) ! NO+VROCP4ALKP2=... & + 1.4000D-01 * RKI( 465 ) * YC ( VROCP3ALKP2 ) ! NO+VROCP3ALKP2=... & + 1.4000D-01 * RKI( 466 ) * YC ( VROCP2ALKP2 ) ! NO+VROCP2ALKP2=... & + 1.4000D-01 * RKI( 467 ) * YC ( VROCP1ALKP2 ) ! NO+VROCP1ALKP2=... & + 1.2000D-01 * RKI( 468 ) * YC ( HC10P2 ) ! NO+HC10P2=... & + 2.0000D-03 * RKI( 485 ) * YC ( VROCP6AROP ) ! NO+VROCP6AROP=... & + 2.0000D-03 * RKI( 491 ) * YC ( VROCP5AROP ) ! NO+VROCP5AROP=... & + 2.0000D-03 * RKI( 497 ) * YC ( NAPHP ) ! NO+NAPHP=0.5950D-... L1 = 1.0D0 + L1 * DTC cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c NO2 Section c R2_1 = production of NO2 from NO ( rates of form k[NO][x] ) c a) NO+O3=NO2 not included c b) NO+NO3=2NO2 ( 1/2 of NO2 formation rate included ) c c) NO3+NO2=NO+NO2 is not included for NO2 c P2 = remaining NO2 production terms c a) NO+O3=NO2 not included c b) NO+NO3=2NO2 (1/2 of NO2 formation rate included ) c L2 = loss of NO2 (except rxns producing NO2 - they are in R1_2) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc R2_1 = RKI( 53 ) * YC ( O3P ) ! NO+O3P=NO2 & + RKI( 55 ) * YC ( HO2 ) ! NO+HO2=NO2+HO & + 2.0000D+00 * RKI( 57 ) * YC ( NO ) ! NO+NO=0.2000D+01*NO2 & + RKI( 65 ) * YC ( NO3 ) ! NO+NO3=0.2000D+... & + 7.8000D-01 * RKI( 92 ) * YC ( ISOP ) ! NO+ISOP=0.7800D+... & + 5.0000D-01 * RKI( 95 ) * YC ( INO2 ) ! NO+INO2=0.5000D+... & + 2.0000D-01 * RKI( 100 ) * YC ( IPC ) ! NO+IPC=0.3500D+... & + RKI( 183 ) * YC ( MO2 ) ! NO+MO2=NO2+HO2+HCHO & + RKI( 184 ) * YC ( ETHP ) ! NO+ETHP=NO2+HO2+ACD & + 9.3500D-01 * RKI( 185 ) * YC ( HC3P ) ! NO+HC3P=0.9350D+... & + 8.6400D-01 * RKI( 186 ) * YC ( HC5P ) ! NO+HC5P=0.8640D+... & + RKI( 187 ) * YC ( ETEP ) ! NO+ETEP=NO2+HO2+... & + 9.7000D-01 * RKI( 188 ) * YC ( OLTP ) ! NO+OLTP=0.9700D+... & + 9.5000D-01 * RKI( 189 ) * YC ( OLIP ) ! NO+OLIP=0.9500D+... & + 9.9800D-01 * RKI( 190 ) * YC ( BENP ) ! NO+BENP=0.9980D+... & + 9.9800D-01 * RKI( 191 ) * YC ( TOLP ) ! NO+TOLP=0.9980D+... & + 9.9800D-01 * RKI( 192 ) * YC ( XYMP ) ! NO+XYMP=0.9980D+... & + 9.9800D-01 * RKI( 193 ) * YC ( XYEP ) ! NO+XYEP=0.9980D+... & + 8.2000D-01 * RKI( 194 ) * YC ( APIP1 ) ! NO+APIP1=0.8200D+... & + 8.2000D-01 * RKI( 195 ) * YC ( APIP2 ) ! NO+APIP2=0.8200D+... & + RKI( 196 ) * YC ( APINP1 ) ! NO+APINP1=... & + 8.2000D-01 * RKI( 197 ) * YC ( APINP2 ) ! NO+APINP2=... & + 7.7000D-01 * RKI( 198 ) * YC ( LIMP1 ) ! NO+LIMP1=0.7700D+... & + 7.7000D-01 * RKI( 199 ) * YC ( LIMP2 ) ! NO+LIMP2=0.7700D+... & + RKI( 200 ) * YC ( LIMNP1 ) ! NO+LIMNP1=... & + 7.7000D-01 * RKI( 201 ) * YC ( LIMNP2 ) ! NO+LIMNP2=... & + 9.5000D-01 * RKI( 202 ) * YC ( PINALP ) ! NO+PINALP=... & + 9.4000D-01 * RKI( 203 ) * YC ( LIMALP ) ! NO+LIMALP=... & + RKI( 204 ) * YC ( ACO3 ) ! NO+ACO3=NO2+MO2 & + RKI( 205 ) * YC ( RCO3 ) ! NO+RCO3=NO2+ETHP & + RKI( 206 ) * YC ( ACTP ) ! NO+ACTP=NO2+ACO3+... & + RKI( 207 ) * YC ( MEKP ) ! NO+MEKP=NO2+... & + RKI( 208 ) * YC ( KETP ) ! NO+KETP=NO2+... & + RKI( 209 ) * YC ( MACP ) ! NO+MACP=NO2+... & + RKI( 210 ) * YC ( MCP ) ! NO+MCP=NO2+... & + RKI( 211 ) * YC ( MVKP ) ! NO+MVKP=NO2+... & + RKI( 212 ) * YC ( UALP ) ! NO+UALP=NO2+HO2+... & + RKI( 213 ) * YC ( BALP ) ! NO+BALP=NO2+BAL1 & + RKI( 214 ) * YC ( BAL1 ) ! NO+BAL1=NO2+BAL2 & + RKI( 215 ) * YC ( ADDC ) ! NO+ADDC=NO2+HO2+... & + RKI( 216 ) * YC ( MCTP ) ! NO+MCTP=NO2+MCTO & + RKI( 217 ) * YC ( ORAP ) ! NO+ORAP=NO2+GLY+HO2 & + RKI( 218 ) * YC ( OLNN ) ! NO+OLNN=NO2+HO2+ONIT & + RKI( 219 ) * YC ( OLND ) ! NO+OLND=0.2000D+... & + RKI( 220 ) * YC ( ADCN ) ! NO+ADCN=0.2000D+... & + RKI( 221 ) * YC ( XO2 ) ! NO+XO2=NO2 & + 9.6800D-01 * RKI( 396 ) * YC ( BDE13P ) ! NO+BDE13P=... & + 9.2000D-01 * RKI( 404 ) * YC ( FURANO2 ) ! NO+FURANO2=... & + RKI( 412 ) * YC ( SESQNRO2 ) ! NO+SESQNRO2=... & + 7.5300D-01 * RKI( 418 ) * YC ( SESQRO2 ) ! NO+SESQRO2=... & + 7.2000D-01 * RKI( 434 ) * YC ( VROCP6ALKP ) ! NO+VROCP6ALKP=... & + 7.2000D-01 * RKI( 435 ) * YC ( VROCP5ALKP ) ! NO+VROCP5ALKP=... & + 7.2000D-01 * RKI( 436 ) * YC ( VROCP4ALKP ) ! NO+VROCP4ALKP=... & + 7.2000D-01 * RKI( 437 ) * YC ( VROCP3ALKP ) ! NO+VROCP3ALKP=... & + 7.2000D-01 * RKI( 438 ) * YC ( VROCP2ALKP ) ! NO+VROCP2ALKP=... & + 7.2000D-01 * RKI( 439 ) * YC ( VROCP1ALKP ) ! NO+VROCP1ALKP=... & + 7.4000D-01 * RKI( 440 ) * YC ( HC10P ) ! NO+HC10P=0.7400D+... & + 8.6000D-01 * RKI( 462 ) * YC ( VROCP6ALKP2 ) ! NO+VROCP6ALKP2=... & + 8.6000D-01 * RKI( 463 ) * YC ( VROCP5ALKP2 ) ! NO+VROCP5ALKP2=... & + 8.6000D-01 * RKI( 464 ) * YC ( VROCP4ALKP2 ) ! NO+VROCP4ALKP2=... & + 8.6000D-01 * RKI( 465 ) * YC ( VROCP3ALKP2 ) ! NO+VROCP3ALKP2=... & + 8.6000D-01 * RKI( 466 ) * YC ( VROCP2ALKP2 ) ! NO+VROCP2ALKP2=... & + 8.6000D-01 * RKI( 467 ) * YC ( VROCP1ALKP2 ) ! NO+VROCP1ALKP2=... & + 8.8000D-01 * RKI( 468 ) * YC ( HC10P2 ) ! NO+HC10P2=... & + 9.9800D-01 * RKI( 485 ) * YC ( VROCP6AROP ) ! NO+VROCP6AROP=... & + 9.9800D-01 * RKI( 491 ) * YC ( VROCP5AROP ) ! NO+VROCP5AROP=... & + 9.9800D-01 * RKI( 497 ) * YC ( NAPHP ) ! NO+NAPHP=0.9980D+... R2_1 = R2_1 * DTC P2 = RXRAT( 6 ) ! NO3=NO2+O3P & + RXRAT( 8 ) ! HNO3=NO2+HO & + 8.0000D-01 * RXRAT( 9 ) ! HNO4=0.8000D+00*NO2+... & + RXRAT( 36 ) ! ONIT=NO2+HO2+0.2000D+... & + RXRAT( 37 ) ! PAN=NO2+ACO3 & + RXRAT( 58 ) ! HONO+HO=NO2 & + RXRAT( 63 ) ! NO3+HO=NO2+HO2 & + 7.0000D-01 * RXRAT( 64 ) ! NO3+HO2=0.7000D+... & + RXRAT( 65 ) ! NO+NO3=0.2000D+01*NO2 & + 2.0000D+00 * RXRAT( 67 ) ! NO3+NO3=0.2000D+01*NO2 & + RXRAT( 69 ) ! N2O5=NO2+NO3 & + RXRAT( 72 ) ! HNO4=NO2+HO2 & + RXRAT( 73 ) ! HNO4+HO=NO2 & + 3.0000D-01 * RXRAT( 89 ) ! ISO+NO3=0.3000D+... & + 8.0000D-01 * RXRAT( 96 ) ! IPN+HO2=0.8000D+... & + 4.0000D-01 * RXRAT( 98 ) ! ISHP+HO=0.4000D+... & + 1.5000D-01 * RXRAT( 100 ) ! NO+IPC=0.3500D+00*NO2+... & + 1.2000D-01 * RXRAT( 101 ) ! NALD+HO=0.1200D+00*NO2+CO & + RXRAT( 141 ) ! MPAN+HO=NO2+HKET & + RXRAT( 142 ) ! ONIT+HO=NO2+HC3P & + 6.8000D-01 * RXRAT( 167 ) ! MACR+NO3=0.6800D+... & + RXRAT( 174 ) ! MPAN+NO3=NO2+MACP & + RXRAT( 178 ) ! PAN=NO2+ACO3 & + RXRAT( 180 ) ! PPN=NO2+RCO3 & + RXRAT( 182 ) ! MPAN=NO2+MACP & + RXRAT( 196 ) ! NO+APINP1=0.2000D+... & + RXRAT( 200 ) ! NO+LIMNP1=0.2000D+... & + RXRAT( 219 ) ! NO+OLND=0.2000D+... & + RXRAT( 220 ) ! NO+ADCN=0.2000D+... & + 8.6000D-01 * RXRAT( 277 ) ! APINP1+MO2=0.8600D+... & + 7.5000D-01 * RXRAT( 278 ) ! APINP2+MO2=0.7500D+... & + 7.0000D-01 * RXRAT( 281 ) ! LIMNP1+MO2=0.7000D+... & + 7.5000D-01 * RXRAT( 282 ) ! LIMNP2+MO2=0.7500D+... & + RXRAT( 289 ) ! MCP+MO2=NO2+HO2+... & + 5.0000D-01 * RXRAT( 298 ) ! OLND+MO2=0.5000D+... & + 7.0000D-01 * RXRAT( 299 ) ! ADCN+MO2=0.7000D+... & + 8.6000D-01 * RXRAT( 314 ) ! APINP1+ACO3=0.8600D+... & + 5.0000D-01 * RXRAT( 315 ) ! APINP2+ACO3=0.5000D+... & + 7.0000D-01 * RXRAT( 318 ) ! LIMNP1+ACO3=0.7000D+... & + 5.0000D-01 * RXRAT( 319 ) ! LIMNP2+ACO3=0.5000D+... & + RXRAT( 326 ) ! MCP+ACO3=NO2+0.5000D+... & + RXRAT( 335 ) ! OLND+ACO3=NO2+0.5000D+... & + 7.0000D-01 * RXRAT( 336 ) ! ADCN+ACO3=0.7000D+... & + RXRAT( 339 ) ! MO2+NO3=NO2+HCHO+HO2 & + RXRAT( 340 ) ! ETHP+NO3=NO2+HO2+ACD & + RXRAT( 341 ) ! HC3P+NO3=NO2+0.1400D+... & + RXRAT( 342 ) ! HC5P+NO3=NO2+0.5500D-... & + RXRAT( 343 ) ! ETEP+NO3=NO2+HO2+... & + RXRAT( 344 ) ! OLTP+NO3=NO2+0.7900D+... & + RXRAT( 345 ) ! OLIP+NO3=NO2+0.7200D+... & + RXRAT( 346 ) ! BENP+NO3=NO2+HO2+... & + RXRAT( 347 ) ! TOLP+NO3=NO2+0.9146D+... & + RXRAT( 348 ) ! XYMP+NO3=NO2+0.9518D+... & + RXRAT( 349 ) ! XYEP+NO3=NO2+0.9146D+... & + RXRAT( 350 ) ! ISOP+NO3=NO2+HO2+... & + RXRAT( 351 ) ! APIP1+NO3=NO2+HO2+ALD+KET & + RXRAT( 352 ) ! LIMP1+NO3=NO2+HO2+... & + RXRAT( 353 ) ! ACO3+NO3=NO2+MO2 & + RXRAT( 354 ) ! RCO3+NO3=NO2+ETHP & + RXRAT( 355 ) ! ACTP+NO3=NO2+ACO3+HCHO & + RXRAT( 356 ) ! MEKP+NO3=NO2+0.6700D+... & + RXRAT( 357 ) ! KETP+NO3=NO2+HO2+DCB1 & + RXRAT( 358 ) ! MACP+NO3=NO2+0.5380D+... & + RXRAT( 359 ) ! MCP+NO3=NO2+HO2+HCHO+HKET & + RXRAT( 360 ) ! MVKP+NO3=NO2+0.7000D+... & + RXRAT( 361 ) ! UALP+NO3=NO2+HO2+... & + RXRAT( 362 ) ! BALP+NO3=NO2+BAL1 & + RXRAT( 363 ) ! BAL1+NO3=NO2+BAL2 & + RXRAT( 364 ) ! ADDC+NO3=NO2+HO2+... & + RXRAT( 365 ) ! MCTP+NO3=NO2+MCTO & + RXRAT( 366 ) ! ORAP+NO3=NO2+GLY+HO2 & + RXRAT( 367 ) ! OLNN+NO3=NO2+HO2+ONIT & + 2.0000D+00 * RXRAT( 368 ) ! OLND+NO3=0.2000D+... & + 2.0000D+00 * RXRAT( 369 ) ! ADCN+NO3=0.2000D+... & + 5.0000D-01 * RXRAT( 371 ) ! OLNN+OLND=0.5000D+... & + RXRAT( 372 ) ! OLND+OLND=NO2+0.5040D+... & + RXRAT( 373 ) ! XO2+NO3=NO2 & + 4.8000D-01 * RXRAT( 382 ) ! APINP2+APIP1=0.4800D+... & + 4.8000D-01 * RXRAT( 383 ) ! APINP2+LIMP1=0.4800D+... & + 4.8000D-01 * RXRAT( 384 ) ! APINP2+ISOP=0.4800D+... & + 4.8000D-01 * RXRAT( 385 ) ! LIMNP2+APIP1=0.4800D+... & + 4.8000D-01 * RXRAT( 386 ) ! LIMNP2+LIMP1=0.4800D+... & + 4.8000D-01 * RXRAT( 387 ) ! LIMNP2+ISOP=0.4800D+... & + 6.8000D-01 * RXRAT( 393 ) ! ACRO+NO3=0.6800D+... & + RXRAT( 397 ) ! BDE13P+NO3=NO2+HO2+... & + RXRAT( 408 ) ! FURAN+NO3=NO2+0.8000D+... & + RXRAT( 412 ) ! NO+SESQNRO2=0.2000D+... & + 2.0000D+00 * RXRAT( 413 ) ! SESQNRO2+NO3=0.2000D+... & + RXRAT( 441 ) ! VROCP6ALKP+NO3=NO2+... & + RXRAT( 442 ) ! VROCP5ALKP+NO3=NO2+... & + RXRAT( 443 ) ! VROCP4ALKP+NO3=NO2+... & + RXRAT( 444 ) ! VROCP3ALKP+NO3=NO2+... & + RXRAT( 445 ) ! VROCP2ALKP+NO3=NO2+... & + RXRAT( 446 ) ! VROCP1ALKP+NO3=NO2+... & + RXRAT( 447 ) ! HC10P+NO3=NO2+HC10P2 & + RXRAT( 469 ) ! VROCP6ALKP2+NO3=NO2+... & + RXRAT( 470 ) ! VROCP5ALKP2+NO3=NO2+... & + RXRAT( 471 ) ! VROCP4ALKP2+NO3=NO2+... & + RXRAT( 472 ) ! VROCP3ALKP2+NO3=NO2+... & + RXRAT( 473 ) ! VROCP2ALKP2+NO3=NO2+... & + RXRAT( 474 ) ! VROCP1ALKP2+NO3=NO2+... & + RXRAT( 475 ) ! HC10P2+NO3=NO2+KET+HO2 & + RXRAT( 486 ) ! VROCP6AROP+NO3=NO2+... & + RXRAT( 492 ) ! VROCP5AROP+NO3=NO2+... & + RXRAT( 498 ) ! NAPHP+NO3=NO2+0.9405D+... P2 = YC0( NO2 ) + P2 * DTC L2 = RKI( 42 ) * YC ( O3 ) ! NO2+O3=NO3 & + RKI( 60 ) * YC ( O3P ) ! NO2+O3P=NO3 & + RKI( 61 ) * YC ( HO ) ! NO2+HO=HNO3 & + RKI( 68 ) * YC ( NO3 ) ! NO2+NO3=N2O5 & + RKI( 71 ) * YC ( HO2 ) ! NO2+HO2=HNO4 & + RKI( 177 ) * YC ( ACO3 ) ! NO2+ACO3=PAN & + RKI( 179 ) * YC ( RCO3 ) ! NO2+RCO3=PPN & + RKI( 181 ) * YC ( MACP ) ! NO2+MACP=MPAN & + RKI( 222 ) * YC ( BAL2 ) ! NO2+BAL2=ONIT & + RKI( 223 ) * YC ( CHO ) ! NO2+CHO=ONIT & + RKI( 224 ) * YC ( MCTO ) ! NO2+MCTO=ONIT & + RKI( 422 ) ! NO2=0.5000D+... L2 = 1.0D0 + L2 * DTC cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c O3 Section c P3 = production of O3 except O+O2=O3 c L3 = loss terms for O3 except NO+O3=NO2 cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc P3 = YC0( O3 ) L3 = RKI( 1 ) ! O3=O3P & + RKI( 2 ) ! O3=O1D & + RKI( 39 ) * YC ( HO ) ! O3+HO=HO2 & + RKI( 40 ) * YC ( HO2 ) ! O3+HO2=HO & + RKI( 42 ) * YC ( NO2 ) ! O3+NO2=NO3 & + RKI( 44 ) * YC ( O3P ) ! O3+O3P= & + RKI( 88 ) * YC ( ISO ) ! O3+ISO=0.5310D+... & + RKI( 144 ) * YC ( ETE ) ! O3+ETE=0.8000D-... & + RKI( 145 ) * YC ( OLT ) ! O3+OLT=0.2200D+... & + RKI( 146 ) * YC ( OLI ) ! O3+OLI=0.4600D+... & + RKI( 147 ) * YC ( API ) ! O3+API=0.9000D+... & + RKI( 148 ) * YC ( LIM ) ! O3+LIM=0.8400D+... & + RKI( 149 ) * YC ( LIMAL ) ! O3+LIMAL=0.4000D-... & + RKI( 150 ) * YC ( TRPN ) ! O3+TRPN=HOM & + RKI( 151 ) * YC ( MACR ) ! O3+MACR=0.1900D+... & + RKI( 152 ) * YC ( MVK ) ! O3+MVK=0.1600D+... & + RKI( 153 ) * YC ( UALD ) ! O3+UALD=0.1000D+... & + RKI( 154 ) * YC ( DCB1 ) ! O3+DCB1=0.5000D-... & + RKI( 155 ) * YC ( DCB2 ) ! O3+DCB2=0.5000D-... & + RKI( 156 ) * YC ( DCB3 ) ! O3+DCB3=0.5000D-... & + RKI( 157 ) * YC ( MCTO ) ! O3+MCTO=MCTP & + RKI( 392 ) * YC ( ACRO ) ! O3+ACRO=0.8400D+... & + RKI( 401 ) * YC ( BDE13 ) ! O3+BDE13=0.6200D+... & + RKI( 407 ) * YC ( FURAN ) ! O3+FURAN=0.2000D-... & + RKI( 414 ) * YC ( SESQ ) ! O3+SESQ=0.9820D+... & + RKI( 423 ) ! O3= L3 = 1.0D0 + L3 * DTC cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c O3P Section c P12 = production of O3P except NO2+hv=O3P (J1) c L12 = loss terms cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc P12 = RXRAT( 1 ) ! O3=O3P & + O3P_S * RXRAT( 2 ) ! O3=O1D & + RXRAT( 6 ) ! NO3=O3P+NO2 P12 = YC0( O3P ) + P12 * DTC L12 = RKI( 43 ) ! O3P=O3 & + RKI( 44 ) * YC ( O3 ) ! O3P+O3= & + RKI( 53 ) * YC ( NO ) ! O3P+NO=NO2 & + RKI( 59 ) * YC ( NO2 ) ! O3P+NO2=NO & + RKI( 60 ) * YC ( NO2 ) ! O3P+NO2=NO3 L12 = 1.0D0 + L12 * DTC ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Solution section ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c..compute reciprocal of loss terms L1_INV = 1.0D0 / L1 L2_INV = 1.0D0 / L2 L3_INV = 1.0D0 / L3 L12_INV = 1.0D0 / L12 c..compute specific k*delta t terms RK1 = RKI( 4 ) * DTC ! J1 (NO2+hv=NO+O3P) RK2 = RKI( 43 ) * DTC ! J2 (O3P+O2=O3) RK3 = RKI( 41 ) * DTC ! k1_3 (NO+O3=NO2) c..compute terms that are used to calulate a,b & c T1 = RK1 * L2_INV ! J1 / ( 1.0 + Lno2 * dt ) T2 = R1_2 * L2_INV ! r1,2 / ( 1.0 + Lno2 * dt) T3 = R2_1 * L1_INV ! r2,1 / ( 1.0 + Lno * dt) T4 = RK2 * L12_INV ! J2 / ( 1.0 + Lo3p * dt ) T5 = T3 * P1 - T2 * P2 ! T3 * Pno - T2 * Pno2 F1 = 1.0D0 + T2 + T3 ! factor in calculating a & b F2 = T1 * T4 ! factor in calculating a & b F3 = L3 * L1 + RK3 * P1 ! (1 + Lo3 * dt) (1 + lno * dt ) ! + k1,3 * dt * Pno PO3 = P3 + P12 * T4 A = RK3 * ( F1 - F2 ) B = F1 * F3 + RK3 * ( F2 * ( P2 - P1 ) + PO3 + T5 ) C = RK3 * P1 * ( PO3 + P2 * F2 ) + F3 * T5 Q = -0.5D0 * ( B + SIGN( 1.0D0, B ) * SQRT( B * B - 4.0D0 * A * C ) ) XX = MAX( Q / A , C / Q ) ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Species solutions c [NO] = ( P1 + x ) / ( 1 + L1 ) c [NO2] = ( P2 - x ) / ( 1 + L2 ) c [O3 ] = ( P3 + Ko3p->O3 ) / (1 + K1,3 * [NO] + L3 ) c [O3P] = ( P12 + J1 * [NO2] ) / ( 1 + L12 ) c [O1D] = ( yc0(o1d) + Ko3->o1d * [O3] *dtc) / ( 1 + O1D_S*dtc ) ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc YCP( NO ) = MAX( 0.0D0, ( P1 + XX ) * L1_INV ) YCP( NO2 ) = MAX( 0.0D0, ( P2 - XX ) * L2_INV ) S1 = P12 + RK1 * YCP( NO2 ) S2 = T4 * S1 YCP( O3 ) = ( P3 + S2 ) / ( L3 + RK3 * YCP( NO ) ) YCP( O3P ) = S1 * L12_INV YCP( O1D ) = ( YC0( O1D ) + RKI( 2 ) * YCP( O3 ) * DTC ) & / ( 1.0D0 + O1D_S * DTC ) RETURN END ================================================ FILE: CCTM/src/gas/ebi_cracmm1amore_aq/hrg2.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE HRG2( DTC ) C********************************************************************** C C FUNCTION: To solve for the concentration of HO, HO2, HONO, and C HNO4 alebraically. C C PRECONDITIONS: For the CRACMM1AMORE_AQ mechanism C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by EBI solver program, Jun 16, 2022 C C 18 Jul 14 B.Hutzell: revised to use real(8) variables C********************************************************************** USE HRDATA IMPLICIT NONE C..INCLUDES: None C..ARGUMENTS: REAL( 8 ), INTENT( IN ) :: DTC ! Time step C..PARAMETERS: None C..EXTERNAL FUNCTIONS: NONE C..SAVED LOCAL VARIABLES: ! CHARACTER( 16 ), SAVE :: PNAME = 'HRG2' ! Program name C..SCRATCH LOCAL VARIABLES: REAL( 8 ) :: O1D_S ! sum of O1D loss frequencies REAL( 8 ) :: OH_S ! stoich coeff for OH from O1D+H2O or H2 REAL( 8 ) :: HO2_S ! stoich coeff for HO2 from O1D+H2 rxn REAL( 8 ) :: XOH_S ! stoich coeff for OH & HONO from NO2EX loss rxn REAL( 8 ) :: R4_19 ! production of OH from HONO REAL( 8 ) :: R19_4 ! production of HONO from OH REAL( 8 ) :: R4_5 ! production of OH from HO2 REAL( 8 ) :: R5_4 ! production of HO2 from OH REAL( 8 ) :: R5_21 ! production of HO2 from HNO4 REAL( 8 ) :: R21_5 ! production of HNO4 from HO2 REAL( 8 ) :: P4, P5, P19, P21 ! species production form other paths REAL( 8 ) :: L4, L5, L19, L21 ! species loss terms REAL( 8 ) :: A, B, C ! coeffs of quadratic eq. for HO2 REAL( 8 ) :: Q ! intermediate term REAL( 8 ) :: T1, T2, T3 ! intermediate terms REAL( 8 ) :: L21_INV ! reciprocal of HNO4 loss term C********************************************************************** c..stoichiometric coefficient for production of HOX from O3 via O1D O1D_S = RKI( 45 ) ! O1D=O3P & + RKI( 46 ) ! O1D=O3P & + RKI( 47 ) ! O1D=0.2000D+01*HO OH_S = 2.0000D+00 * RKI( 47 ) ! O1D=0.2000D+01*HO OH_S = OH_S / O1D_S c..Production of HO from HO2 (r4,5 terms ) R4_5 = RKI( 40 ) * YC ( O3 ) ! HO2+O3=HO & + RKI( 55 ) * YC ( NO ) ! HO2+NO=HO+NO2 & + 7.0000D-01 * RKI( 64 ) * YC ( NO3 ) ! HO2+NO3=0.7000D+... & + RKI( 94 ) * YC ( INO2 ) ! HO2+INO2=HO+IPN & + 4.4000D-01 * RKI( 246 ) * YC ( ACO3 ) ! HO2+ACO3=0.4400D+... & + 4.4000D-01 * RKI( 247 ) * YC ( RCO3 ) ! HO2+RCO3=0.4400D+... & + 1.5000D-01 * RKI( 248 ) * YC ( ACTP ) ! HO2+ACTP=0.1500D+... & + 4.0000D-01 * RKI( 405 ) * YC ( FURANO2 ) ! HO2+FURANO2=... R4_5 = R4_5 * DTC c..Production of HO from HONO (r4,19 terms ) R4_19 = RKI( 7 ) ! HONO=HO+NO R4_19 = R4_19 * DTC c..Remaining HO production P4 = 2.0000D+00 * RXRAT( 3 ) ! H2O2=0.2000D+01*HO & + RXRAT( 8 ) ! HNO3=HO+NO2 & + 2.0000D-01 * RXRAT( 9 ) ! HNO4=0.2000D+00*HO+0.8000D+... & + 3.4000D-01 * RXRAT( 22 ) ! MACR=0.3400D+00*HO+0.6600D+... & + RXRAT( 31 ) ! OP1=HO+HO2+HCHO & + RXRAT( 32 ) ! OP2=HO+HO2+ALD & + RXRAT( 33 ) ! OPB=HO+HO2+ALD & + RXRAT( 34 ) ! OP3=HO+HO2+ALD & + RXRAT( 35 ) ! PAA=HO+MO2 & + OH_S * RXRAT( 2 ) ! O1D=0.2000D+01*HO & + 2.5000D-01 * RXRAT( 88 ) ! ISO+O3=0.2500D+00*HO+... & + 8.0000D-02 * RXRAT( 144 ) ! ETE+O3=0.8000D-01*HO+... & + 2.2000D-01 * RXRAT( 145 ) ! OLT+O3=0.2200D+00*HO+... & + 4.6000D-01 * RXRAT( 146 ) ! OLI+O3=0.4600D+00*HO+... & + 9.0000D-01 * RXRAT( 147 ) ! API+O3=0.9000D+00*HO+... & + 8.4000D-01 * RXRAT( 148 ) ! LIM+O3=0.8400D+00*HO+... & + 4.0000D-02 * RXRAT( 149 ) ! LIMAL+O3=0.4000D-01*HO+... & + 1.9000D-01 * RXRAT( 151 ) ! MACR+O3=0.1900D+00*HO+... & + 1.6000D-01 * RXRAT( 152 ) ! MVK+O3=0.1600D+00*HO+... & + 1.0000D-01 * RXRAT( 153 ) ! UALD+O3=0.1000D+00*HO+... & + 5.0000D-02 * RXRAT( 154 ) ! DCB1+O3=0.5000D-01*HO+HO2+... & + 5.0000D-02 * RXRAT( 155 ) ! DCB2+O3=0.5000D-01*HO+HO2+... & + 5.0000D-02 * RXRAT( 156 ) ! DCB3+O3=0.5000D-01*HO+HO2+... & + 8.2000D-01 * RXRAT( 195 ) ! APIP2+NO=0.8200D+00*HO+... & + 8.2000D-01 * RXRAT( 197 ) ! APINP2+NO=0.8200D+00*HO+... & + 7.7000D-01 * RXRAT( 199 ) ! LIMP2+NO=0.7700D+00*HO+... & + 7.7000D-01 * RXRAT( 201 ) ! LIMNP2+NO=0.7700D+00*HO+... & + 5.0000D-01 * RXRAT( 313 ) ! APIP2+ACO3=0.5000D+00*HO+... & + 5.0000D-01 * RXRAT( 317 ) ! LIMP2+ACO3=0.5000D+00*HO+... & + 4.8000D-01 * RXRAT( 376 ) ! APIP2+APIP1=0.4800D+00*HO+... & + 4.8000D-01 * RXRAT( 377 ) ! APIP2+LIMP1=0.4800D+00*HO+... & + 4.8000D-01 * RXRAT( 378 ) ! APIP2+ISOP=0.4800D+00*HO+... & + 4.8000D-01 * RXRAT( 379 ) ! LIMP2+APIP1=0.4800D+00*HO+... & + 4.8000D-01 * RXRAT( 380 ) ! LIMP2+LIMP1=0.4800D+00*HO+... & + 4.8000D-01 * RXRAT( 381 ) ! LIMP2+ISOP=0.4800D+00*HO+... & + 2.8000D-01 * RXRAT( 392 ) ! ACRO+O3=0.2800D+00*HO+... & + 2.0400D-01 * RXRAT( 394 ) ! ACRO=0.2040D+00*HO+0.4770D+... & + 8.0000D-02 * RXRAT( 401 ) ! BDE13+O3=0.8000D-01*HO+... & + 2.0000D-02 * RXRAT( 407 ) ! FURAN+O3=0.2000D-01*HO+ALD P4 = YC0( HO ) + P4 * DTC c..Production of HO2 from OH ( r5,4 terms ) R5_4 = RKI( 39 ) * YC ( O3 ) ! HO+O3=HO2 & + RKI( 48 ) ! HO=HO2 & + RKI( 52 ) * YC ( H2O2 ) ! HO+H2O2=HO2 & + RKI( 63 ) * YC ( NO3 ) ! HO+NO3=HO2+NO2 & + RKI( 74 ) * YC ( SO2 ) ! HO+SO2=HO2+SULF+... & + RKI( 75 ) * YC ( CO ) ! HO+CO=HO2 & + 3.5000D-01 * RKI( 83 ) * YC ( ACE ) ! HO+ACE=0.3500D+... & + 5.3000D-01 * RKI( 84 ) * YC ( BEN ) ! HO+BEN=0.5300D+... & + 1.8000D-01 * RKI( 85 ) * YC ( TOL ) ! HO+TOL=0.1800D+... & + 1.7000D-01 * RKI( 86 ) * YC ( XYM ) ! HO+XYM=0.1700D+... & + 1.8000D-01 * RKI( 87 ) * YC ( XYE ) ! HO+XYE=0.1800D+... & + RKI( 108 ) * YC ( HCHO ) ! HO+HCHO=HO2+CO & + RKI( 114 ) * YC ( HKET ) ! HO+HKET=HO2+MGLY & + RKI( 118 ) * YC ( GLY ) ! HO+GLY=HO2+... & + 5.2000D-01 * RKI( 120 ) * YC ( DCB1 ) ! HO+DCB1=0.5200D+... & + 5.2000D-01 * RKI( 121 ) * YC ( DCB2 ) ! HO+DCB2=0.5200D+... & + 5.6000D-01 * RKI( 122 ) * YC ( DCB3 ) ! HO+DCB3=0.5600D+... & + 6.1900D-01 * RKI( 124 ) * YC ( PHEN ) ! HO+PHEN=0.6190D+... & + 5.8400D-01 * RKI( 125 ) * YC ( CSL ) ! HO+CSL=0.5840D+... & + RKI( 127 ) * YC ( MOH ) ! HO+MOH=HO2+HCHO & + RKI( 128 ) * YC ( EOH ) ! HO+EOH=HO2+ACD & + RKI( 129 ) * YC ( ROH ) ! HO+ROH=HO2+... & + RKI( 130 ) * YC ( ETEG ) ! HO+ETEG=HO2+ALD & + RKI( 136 ) * YC ( ORA1 ) ! HO+ORA1=HO2 & + 3.3300D-01 * RKI( 395 ) * YC ( BDE13 ) ! HO+BDE13=0.3330D+... & + 4.9000D-01 * RKI( 403 ) * YC ( FURAN ) ! HO+FURAN=0.4900D+... & + 6.6000D-01 * RKI( 406 ) * YC ( FURANONE ) ! HO+FURANONE=... & + RKI( 409 ) * YC ( PROG ) ! HO+PROG=HO2+... & + 1.6000D-01 * RKI( 483 ) * YC ( VROCP6ARO ) ! HO+VROCP6ARO=... & + 1.6000D-01 * RKI( 489 ) * YC ( VROCP5ARO ) ! HO+VROCP5ARO=... & + 1.6000D-01 * RKI( 495 ) * YC ( NAPH ) ! HO+NAPH=0.1600D+... R5_4 = R5_4 * DTC c..Production of HO2 from HNO4 (r5,21 term ) R5_21 = 8.0000D-01 * RKI( 9 ) ! HNO4=0.8000D+... & + RKI( 72 ) ! HNO4=HO2+NO2 R5_21 = R5_21 * DTC c..Remaining HO2 production terms P5 = 2.0000D+00 * RXRAT( 11 ) ! HCHO=0.2000D+01*HO2+CO & + RXRAT( 12 ) ! ACD=HO2+MO2+CO & + RXRAT( 13 ) ! ALD=HO2+ETHP+CO & + 1.2200D+00 * RXRAT( 16 ) ! UALD=0.1220D+01*HO2+... & + RXRAT( 17 ) ! PINAL=HO2+HC10P+CO & + RXRAT( 18 ) ! LIMAL=HO2+HC10P+CO & + RXRAT( 21 ) ! HKET=HO2+ACO3+HCHO & + 6.6000D-01 * RXRAT( 22 ) ! MACR=0.6600D+00*HO2+... & + 2.0000D+00 * RXRAT( 26 ) ! GLY=0.2000D+01*HO2+0.2000D+... & + RXRAT( 27 ) ! MGLY=HO2+ACO3+CO & + 1.5000D+00 * RXRAT( 28 ) ! DCB1=0.1500D+01*HO2+... & + 1.5000D+00 * RXRAT( 29 ) ! DCB2=0.1500D+01*HO2+... & + RXRAT( 30 ) ! BALD=HO2+CHO+CO & + RXRAT( 31 ) ! OP1=HO2+HO+HCHO & + RXRAT( 32 ) ! OP2=HO2+HO+ALD & + RXRAT( 33 ) ! OPB=HO2+HO+ALD & + RXRAT( 34 ) ! OP3=HO2+HO+ALD & + RXRAT( 36 ) ! ONIT=HO2+NO2+0.2000D+... & + 2.5000D-01 * RXRAT( 88 ) ! ISO+O3=0.2500D+00*HO2+... & + 8.8000D-01 * RXRAT( 92 ) ! ISOP+NO=0.8800D+00*HO2+... & + RXRAT( 95 ) ! INO2+NO=HO2+0.5000D+... & + 1.5000D-01 * RXRAT( 144 ) ! ETE+O3=0.1500D+00*HO2+... & + 3.2000D-01 * RXRAT( 145 ) ! OLT+O3=0.3200D+00*HO2+... & + 7.0000D-02 * RXRAT( 146 ) ! OLI+O3=0.7000D-01*HO2+... & + 4.0000D-02 * RXRAT( 149 ) ! LIMAL+O3=0.4000D-01*HO2+... & + 1.4000D-01 * RXRAT( 151 ) ! MACR+O3=0.1400D+00*HO2+... & + 1.1000D-01 * RXRAT( 152 ) ! MVK+O3=0.1100D+00*HO2+... & + 7.2000D-02 * RXRAT( 153 ) ! UALD+O3=0.7200D-01*HO2+... & + RXRAT( 154 ) ! DCB1+O3=HO2+0.5000D-01*HO+... & + RXRAT( 155 ) ! DCB2+O3=HO2+0.5000D-01*HO+... & + RXRAT( 156 ) ! DCB3+O3=HO2+0.5000D-01*HO+... & + RXRAT( 164 ) ! HCHO+NO3=HO2+CO+HNO3 & + RXRAT( 168 ) ! UALD+NO3=HO2+XO2+0.6680D+... & + RXRAT( 169 ) ! GLY+NO3=HO2+0.2000D+01*CO+HNO3 & + RXRAT( 183 ) ! MO2+NO=HO2+NO2+HCHO & + RXRAT( 184 ) ! ETHP+NO=HO2+NO2+ACD & + 6.6000D-01 * RXRAT( 185 ) ! HC3P+NO=0.6600D+00*HO2+... & + 2.0000D-01 * RXRAT( 186 ) ! HC5P+NO=0.2000D+00*HO2+... & + RXRAT( 187 ) ! ETEP+NO=HO2+NO2+0.1600D+... & + 7.8000D-01 * RXRAT( 188 ) ! OLTP+NO=0.7800D+00*HO2+... & + 8.3000D-01 * RXRAT( 189 ) ! OLIP+NO=0.8300D+00*HO2+... & + 9.9800D-01 * RXRAT( 190 ) ! BENP+NO=0.9980D+00*HO2+... & + 9.9800D-01 * RXRAT( 191 ) ! TOLP+NO=0.9980D+00*HO2+... & + 9.9800D-01 * RXRAT( 192 ) ! XYMP+NO=0.9980D+00*HO2+... & + 9.9800D-01 * RXRAT( 193 ) ! XYEP+NO=0.9980D+00*HO2+... & + 8.2000D-01 * RXRAT( 194 ) ! APIP1+NO=0.8200D+00*HO2+... & + 7.7000D-01 * RXRAT( 198 ) ! LIMP1+NO=0.7700D+00*HO2+... & + 9.5000D-01 * RXRAT( 202 ) ! PINALP+NO=0.9500D+00*HO2+... & + 9.4000D-01 * RXRAT( 203 ) ! LIMALP+NO=0.9400D+00*HO2+... & + 6.7000D-01 * RXRAT( 207 ) ! MEKP+NO=0.6700D+00*HO2+NO2+... & + 7.7000D-01 * RXRAT( 208 ) ! KETP+NO=0.7700D+00*HO2+... & + 5.0000D-01 * RXRAT( 210 ) ! MCP+NO=0.5000D+00*HO2+NO2+... & + 3.0000D-01 * RXRAT( 211 ) ! MVKP+NO=0.3000D+00*HO2+... & + RXRAT( 212 ) ! UALP+NO=HO2+NO2+0.6100D+... & + RXRAT( 215 ) ! ADDC+NO=HO2+NO2+0.3200D+... & + RXRAT( 217 ) ! ORAP+NO=HO2+GLY+NO2 & + RXRAT( 218 ) ! OLNN+NO=HO2+NO2+ONIT & + 7.4000D-01 * RXRAT( 263 ) ! MO2+MO2=0.7400D+00*HO2+... & + RXRAT( 264 ) ! ETHP+MO2=HO2+0.7500D+... & + 8.9400D-01 * RXRAT( 265 ) ! HC3P+MO2=0.8940D+00*HO2+... & + 8.4200D-01 * RXRAT( 266 ) ! HC5P+MO2=0.8420D+00*HO2+... & + RXRAT( 267 ) ! ETEP+MO2=HO2+0.1950D+... & + RXRAT( 268 ) ! OLTP+MO2=HO2+0.1500D+... & + RXRAT( 269 ) ! OLIP+MO2=HO2+0.7500D+... & + 1.3700D+00 * RXRAT( 270 ) ! BENP+MO2=0.1370D+01*HO2+... & + 1.2846D+00 * RXRAT( 271 ) ! TOLP+MO2=0.1285D+01*HO2+... & + 1.3218D+00 * RXRAT( 272 ) ! XYMP+MO2=0.1322D+01*HO2+... & + 1.2846D+00 * RXRAT( 273 ) ! XYEP+MO2=0.1285D+01*HO2+... & + RXRAT( 274 ) ! ISOP+MO2=HO2+0.1310D+... & + RXRAT( 275 ) ! APIP1+MO2=HO2+0.6800D+... & + RXRAT( 276 ) ! APIP2+MO2=HO2+0.7500D+... & + 3.7000D-01 * RXRAT( 277 ) ! APINP1+MO2=0.3700D+00*HO2+... & + 7.5000D-01 * RXRAT( 278 ) ! APINP2+MO2=0.7500D+00*HO2+... & + RXRAT( 279 ) ! LIMP1+MO2=HO2+HCHO+0.4200D+... & + RXRAT( 280 ) ! LIMP2+MO2=HO2+0.7500D+... & + 3.7000D-01 * RXRAT( 281 ) ! LIMNP1+MO2=0.3700D+00*HO2+... & + 7.5000D-01 * RXRAT( 282 ) ! LIMNP2+MO2=0.7500D+00*HO2+... & + 9.0000D-01 * RXRAT( 283 ) ! ACO3+MO2=0.9000D+00*HO2+... & + 9.0000D-01 * RXRAT( 284 ) ! RCO3+MO2=0.9000D+00*HO2+... & + 5.0000D-01 * RXRAT( 285 ) ! ACTP+MO2=0.5000D+00*HO2+... & + 8.3400D-01 * RXRAT( 286 ) ! MEKP+MO2=0.8340D+00*HO2+... & + RXRAT( 287 ) ! KETP+MO2=HO2+0.7500D+... & + 5.0000D-01 * RXRAT( 288 ) ! MACP+MO2=0.5000D+00*HO2+... & + RXRAT( 289 ) ! MCP+MO2=HO2+NO2+0.1500D+... & + RXRAT( 290 ) ! MVKP+MO2=HO2+0.1160D+... & + RXRAT( 291 ) ! UALP+MO2=HO2+0.3050D+00*CO+... & + RXRAT( 292 ) ! BALP+MO2=HO2+BAL1+HCHO & + RXRAT( 293 ) ! BAL1+MO2=HO2+BAL2+HCHO & + 2.0000D+00 * RXRAT( 294 ) ! ADDC+MO2=0.2000D+01*HO2+... & + RXRAT( 295 ) ! MCTP+MO2=HO2+MCTO+HCHO & + RXRAT( 296 ) ! ORAP+MO2=HO2+HCHO+GLY & + 2.0000D+00 * RXRAT( 297 ) ! OLNN+MO2=0.2000D+01*HO2+... & + 5.0000D-01 * RXRAT( 298 ) ! OLND+MO2=0.5000D+00*HO2+... & + RXRAT( 299 ) ! ADCN+MO2=HO2+0.7000D+... & + RXRAT( 300 ) ! XO2+MO2=HO2+HCHO & + 5.0000D-01 * RXRAT( 301 ) ! ETHP+ACO3=0.5000D+00*HO2+... & + 3.9400D-01 * RXRAT( 302 ) ! HC3P+ACO3=0.3940D+00*HO2+... & + 3.4200D-01 * RXRAT( 303 ) ! HC5P+ACO3=0.3420D+00*HO2+... & + 5.0000D-01 * RXRAT( 304 ) ! ETEP+ACO3=0.5000D+00*HO2+... & + 5.0000D-01 * RXRAT( 305 ) ! OLTP+ACO3=0.5000D+00*HO2+... & + 5.0000D-01 * RXRAT( 306 ) ! OLIP+ACO3=0.5000D+00*HO2+... & + RXRAT( 307 ) ! BENP+ACO3=HO2+0.7000D+... & + 9.1460D-01 * RXRAT( 308 ) ! TOLP+ACO3=0.9146D+00*HO2+... & + 9.5180D-01 * RXRAT( 309 ) ! XYMP+ACO3=0.9518D+00*HO2+... & + 9.1460D-01 * RXRAT( 310 ) ! XYEP+ACO3=0.9146D+00*HO2+... & + 5.0000D-01 * RXRAT( 311 ) ! ISOP+ACO3=0.5000D+00*HO2+... & + 6.3000D-01 * RXRAT( 312 ) ! APIP1+ACO3=0.6300D+00*HO2+... & + 6.3000D-01 * RXRAT( 316 ) ! LIMP1+ACO3=0.6300D+00*HO2+... & + 3.3000D-01 * RXRAT( 323 ) ! MEKP+ACO3=0.3300D+00*HO2+... & + 5.0000D-01 * RXRAT( 324 ) ! KETP+ACO3=0.5000D+00*HO2+... & + 5.0000D-01 * RXRAT( 326 ) ! MCP+ACO3=0.5000D+00*HO2+... & + 5.0000D-01 * RXRAT( 327 ) ! MVKP+ACO3=0.5000D+00*HO2+... & + 5.0000D-01 * RXRAT( 328 ) ! UALP+ACO3=0.5000D+00*HO2+... & + 2.0000D+00 * RXRAT( 331 ) ! ADDC+ACO3=0.2000D+01*HO2+... & + RXRAT( 332 ) ! MCTP+ACO3=HO2+MO2+MCTO & + RXRAT( 334 ) ! OLNN+ACO3=HO2+MO2+ONIT & + RXRAT( 336 ) ! ADCN+ACO3=HO2+MO2+0.7000D+... & + RXRAT( 339 ) ! MO2+NO3=HO2+HCHO+NO2 & + RXRAT( 340 ) ! ETHP+NO3=HO2+NO2+ACD & + 2.5400D-01 * RXRAT( 341 ) ! HC3P+NO3=0.2540D+00*HO2+... & + 4.8800D-01 * RXRAT( 342 ) ! HC5P+NO3=0.4880D+00*HO2+... & + RXRAT( 343 ) ! ETEP+NO3=HO2+NO2+0.1600D+... & + 7.9000D-01 * RXRAT( 344 ) ! OLTP+NO3=0.7900D+00*HO2+... & + 8.6000D-01 * RXRAT( 345 ) ! OLIP+NO3=0.8600D+00*HO2+... & + RXRAT( 346 ) ! BENP+NO3=HO2+NO2+0.0000D+... & + 9.1460D-01 * RXRAT( 347 ) ! TOLP+NO3=0.9146D+00*HO2+... & + 9.5180D-01 * RXRAT( 348 ) ! XYMP+NO3=0.9518D+00*HO2+... & + 9.1460D-01 * RXRAT( 349 ) ! XYEP+NO3=0.9146D+00*HO2+... & + RXRAT( 350 ) ! ISOP+NO3=HO2+NO2+0.7500D+... & + RXRAT( 351 ) ! APIP1+NO3=HO2+NO2+ALD+KET & + RXRAT( 352 ) ! LIMP1+NO3=HO2+NO2+0.3850D+... & + 6.7000D-01 * RXRAT( 356 ) ! MEKP+NO3=0.6700D+00*HO2+... & + RXRAT( 357 ) ! KETP+NO3=HO2+NO2+DCB1 & + RXRAT( 359 ) ! MCP+NO3=HO2+NO2+HCHO+HKET & + 3.0000D-01 * RXRAT( 360 ) ! MVKP+NO3=0.3000D+00*HO2+... & + RXRAT( 361 ) ! UALP+NO3=HO2+NO2+0.6100D+... & + RXRAT( 364 ) ! ADDC+NO3=HO2+NO2+0.3200D+... & + RXRAT( 366 ) ! ORAP+NO3=HO2+GLY+NO2 & + RXRAT( 367 ) ! OLNN+NO3=HO2+NO2+ONIT & + RXRAT( 370 ) ! OLNN+OLNN=HO2+0.2000D+01*ONIT & + 5.0000D-01 * RXRAT( 371 ) ! OLNN+OLND=0.5000D+00*HO2+... & + 4.8000D-01 * RXRAT( 376 ) ! APIP2+APIP1=0.4800D+00*HO2+... & + 4.8000D-01 * RXRAT( 377 ) ! APIP2+LIMP1=0.4800D+00*HO2+... & + 4.8000D-01 * RXRAT( 378 ) ! APIP2+ISOP=0.4800D+00*HO2+... & + 4.8000D-01 * RXRAT( 379 ) ! LIMP2+APIP1=0.4800D+00*HO2+... & + 4.8000D-01 * RXRAT( 380 ) ! LIMP2+LIMP1=0.4800D+00*HO2+... & + 4.8000D-01 * RXRAT( 381 ) ! LIMP2+ISOP=0.4800D+00*HO2+... & + 4.8000D-01 * RXRAT( 382 ) ! APINP2+APIP1=0.4800D+... & + 4.8000D-01 * RXRAT( 383 ) ! APINP2+LIMP1=0.4800D+... & + 4.8000D-01 * RXRAT( 384 ) ! APINP2+ISOP=0.4800D+00*HO2+... & + 4.8000D-01 * RXRAT( 385 ) ! LIMNP2+APIP1=0.4800D+... & + 4.8000D-01 * RXRAT( 386 ) ! LIMNP2+LIMP1=0.4800D+... & + 4.8000D-01 * RXRAT( 387 ) ! LIMNP2+ISOP=0.4800D+00*HO2+... & + 5.6000D-01 * RXRAT( 392 ) ! ACRO+O3=0.5600D+00*HO2+... & + 4.7700D-01 * RXRAT( 394 ) ! ACRO=0.4770D+00*HO2+... & + 9.6800D-01 * RXRAT( 396 ) ! BDE13P+NO=0.9680D+00*HO2+... & + RXRAT( 397 ) ! BDE13P+NO3=HO2+NO2+0.9250D+... & + 8.7000D-01 * RXRAT( 399 ) ! BDE13P+MO2=0.8700D+00*HO2+... & + 8.0000D-01 * RXRAT( 400 ) ! BDE13P+ACO3=0.8000D+00*HO2+... & + 4.2000D-01 * RXRAT( 401 ) ! BDE13+O3=0.4200D+00*HO2+... & + 7.5000D-01 * RXRAT( 404 ) ! FURANO2+NO=0.7500D+00*HO2+... & + RXRAT( 455 ) ! VROCP6ALKP2=HO2+VROCP3OXY2 & + RXRAT( 456 ) ! VROCP5ALKP2=HO2+VROCP2OXY2 & + RXRAT( 457 ) ! VROCP4ALKP2=HO2+VROCP1OXY1 & + RXRAT( 458 ) ! VROCP3ALKP2=HO2+VROCP0OXY2 & + RXRAT( 459 ) ! VROCP2ALKP2=HO2+VROCN1OXY1 & + RXRAT( 460 ) ! VROCP1ALKP2=HO2+VROCN2OXY2 & + RXRAT( 461 ) ! HC10P2=HO2+VROCP4OXY2 & + 8.6000D-01 * RXRAT( 462 ) ! VROCP6ALKP2+NO=0.8600D+... & + 8.6000D-01 * RXRAT( 463 ) ! VROCP5ALKP2+NO=0.8600D+... & + 8.6000D-01 * RXRAT( 464 ) ! VROCP4ALKP2+NO=0.8600D+... & + 8.6000D-01 * RXRAT( 465 ) ! VROCP3ALKP2+NO=0.8600D+... & + 8.6000D-01 * RXRAT( 466 ) ! VROCP2ALKP2+NO=0.8600D+... & + 8.6000D-01 * RXRAT( 467 ) ! VROCP1ALKP2+NO=0.8600D+... & + 8.8000D-01 * RXRAT( 468 ) ! HC10P2+NO=0.8800D+00*HO2+... & + RXRAT( 469 ) ! VROCP6ALKP2+NO3=HO2+... & + RXRAT( 470 ) ! VROCP5ALKP2+NO3=HO2+... & + RXRAT( 471 ) ! VROCP4ALKP2+NO3=HO2+... & + RXRAT( 472 ) ! VROCP3ALKP2+NO3=HO2+... & + RXRAT( 473 ) ! VROCP2ALKP2+NO3=HO2+... & + RXRAT( 474 ) ! VROCP1ALKP2+NO3=HO2+... & + RXRAT( 475 ) ! HC10P2+NO3=HO2+KET+NO2 & + 9.9800D-01 * RXRAT( 485 ) ! VROCP6AROP+NO=0.9980D+... & + 9.4050D-01 * RXRAT( 486 ) ! VROCP6AROP+NO3=0.9405D+... & + 1.3105D+00 * RXRAT( 487 ) ! VROCP6AROP+MO2=0.1310D+... & + 9.4050D-01 * RXRAT( 488 ) ! VROCP6AROP+ACO3=0.9405D+... & + 9.9800D-01 * RXRAT( 491 ) ! VROCP5AROP+NO=0.9980D+... & + 9.4050D-01 * RXRAT( 492 ) ! VROCP5AROP+NO3=0.9405D+... & + 1.3105D+00 * RXRAT( 493 ) ! VROCP5AROP+MO2=0.1310D+... & + 9.4050D-01 * RXRAT( 494 ) ! VROCP5AROP+ACO3=0.9405D+... & + 9.9800D-01 * RXRAT( 497 ) ! NAPHP+NO=0.9980D+00*HO2+... & + 9.4050D-01 * RXRAT( 498 ) ! NAPHP+NO3=0.9405D+00*HO2+... & + 1.3105D+00 * RXRAT( 499 ) ! NAPHP+MO2=0.1310D+01*HO2+... & + 9.4050D-01 * RXRAT( 500 ) ! NAPHP+ACO3=0.9405D+00*HO2+... P5 = YC0( HO2 ) + P5 * DTC c..Production of HONO from OH (r19,4 terms ) R19_4 = RKI( 54 ) * YC( NO ) * DTC ! OH+NO=HONO c..Remaining HONO production terms P19 = 5.0000D-01 * RXRAT( 422 ) ! NO2=0.5000D+00*HONO+... P19 = YC0( HONO ) + P19 * DTC c..Production of HNO4 from HO2 (r21,5 term ) R21_5 = RKI( 71 ) * YCP( NO2 ) * DTC ! HO2+NO2=HNO4 c..Remaining HNO4 production terms P21 = YC0( HNO4 ) c..HO loss terms not in R5_4 & R19_4 L4 = RKI( 49 ) * YC ( HO2 ) ! HO+HO2= & + RKI( 58 ) * YC ( HONO ) ! HO+HONO=NO2 & + RKI( 61 ) * YC ( NO2 ) ! HO+NO2=HNO3 & + RKI( 62 ) * YC ( HNO3 ) ! HO+HNO3=NO3 & + RKI( 73 ) * YC ( HNO4 ) ! HO+HNO4=NO2 & + RKI( 76 ) ! HO=MO2 & + RKI( 77 ) * YC ( ETH ) ! HO+ETH=ETHP & + RKI( 78 ) * YC ( HC3 ) ! HO+HC3=HC3P+... & + RKI( 79 ) * YC ( HC5 ) ! HO+HC5=HC5P+... & + RKI( 80 ) * YC ( ETE ) ! HO+ETE=ETEP & + RKI( 81 ) * YC ( OLT ) ! HO+OLT=OLTP & + RKI( 82 ) * YC ( OLI ) ! HO+OLI=OLIP & + 4.7000D-01 * RKI( 84 ) * YC ( BEN ) ! HO+BEN=0.5300D+... & + 8.2000D-01 * RKI( 85 ) * YC ( TOL ) ! HO+TOL=0.1800D+... & + 8.3000D-01 * RKI( 86 ) * YC ( XYM ) ! HO+XYM=0.1700D+... & + 8.2000D-01 * RKI( 87 ) * YC ( XYE ) ! HO+XYE=0.1800D+... & + RKI( 90 ) * YC ( ISO ) ! HO+ISO=ISOP+... & + RKI( 93 ) * YC ( ISHP ) ! HO+ISHP=ISOP & + 2.0000D-01 * RKI( 98 ) * YC ( ISHP ) ! HO+ISHP=0.1500D+... & + RKI( 101 ) * YC ( NALD ) ! HO+NALD=CO+... & + RKI( 104 ) * YC ( API ) ! HO+API=0.9750D+... & + RKI( 105 ) * YC ( LIM ) ! HO+LIM=0.9450D+... & + RKI( 106 ) * YC ( PINAL ) ! HO+PINAL=0.2300D+... & + RKI( 107 ) * YC ( LIMAL ) ! HO+LIMAL=0.7000D+... & + RKI( 109 ) * YC ( ACD ) ! HO+ACD=ACO3 & + RKI( 110 ) * YC ( ALD ) ! HO+ALD=RCO3 & + RKI( 111 ) * YC ( ACT ) ! HO+ACT=ACTP & + RKI( 112 ) * YC ( MEK ) ! HO+MEK=MEKP & + RKI( 113 ) * YC ( KET ) ! HO+KET=KETP & + RKI( 115 ) * YC ( MACR ) ! HO+MACR=0.5700D+... & + RKI( 116 ) * YC ( MVK ) ! HO+MVK=MVKP & + RKI( 117 ) * YC ( UALD ) ! HO+UALD=0.3130D+... & + RKI( 119 ) * YC ( MGLY ) ! HO+MGLY=ACO3+CO & + 4.8000D-01 * RKI( 120 ) * YC ( DCB1 ) ! HO+DCB1=0.5200D+... & + 4.8000D-01 * RKI( 121 ) * YC ( DCB2 ) ! HO+DCB2=0.5200D+... & + 4.4000D-01 * RKI( 122 ) * YC ( DCB3 ) ! HO+DCB3=0.5600D+... & + RKI( 123 ) * YC ( BALD ) ! HO+BALD=BALP & + 3.8100D-01 * RKI( 124 ) * YC ( PHEN ) ! HO+PHEN=0.6190D+... & + 4.1600D-01 * RKI( 125 ) * YC ( CSL ) ! HO+CSL=0.5840D+... & + RKI( 126 ) * YC ( MCT ) ! HO+MCT=MCTO & + 6.5000D-01 * RKI( 131 ) * YC ( OP1 ) ! HO+OP1=0.3500D+... & + 9.9000D-01 * RKI( 132 ) * YC ( OP2 ) ! HO+OP2=0.1000D-... & + 9.9000D-01 * RKI( 133 ) * YC ( OPB ) ! HO+OPB=0.1000D-... & + 9.9000D-01 * RKI( 134 ) * YC ( OP3 ) ! HO+OP3=0.1000D-... & + RKI( 135 ) * YC ( MAHP ) ! HO+MAHP=MACP & + RKI( 137 ) * YC ( ORA2 ) ! HO+ORA2=0.6400D+... & + 6.5000D-01 * RKI( 138 ) * YC ( PAA ) ! HO+PAA=0.3500D+... & + RKI( 139 ) * YC ( PAN ) ! HO+PAN=XO2+NO3+HCHO & + RKI( 140 ) * YC ( PPN ) ! HO+PPN=XO2+NO3+HCHO & + RKI( 141 ) * YC ( MPAN ) ! HO+MPAN=NO2+HKET & + RKI( 142 ) * YC ( ONIT ) ! HO+ONIT=HC3P+NO2 & + RKI( 143 ) * YC ( TRPN ) ! HO+TRPN=HOM & + RKI( 389 ) * YC ( VROCIOXY ) ! HO+VROCIOXY=... & + RKI( 390 ) * YC ( SLOWROC ) ! HO+SLOWROC=ETHP+... & + RKI( 391 ) * YC ( ACRO ) ! HO+ACRO=0.5700D+... & + 6.6700D-01 * RKI( 395 ) * YC ( BDE13 ) ! HO+BDE13=0.3330D+... & + 5.1000D-01 * RKI( 403 ) * YC ( FURAN ) ! HO+FURAN=0.4900D+... & + 3.4000D-01 * RKI( 406 ) * YC ( FURANONE ) ! HO+FURANONE=... & + RKI( 415 ) * YC ( SESQ ) ! HO+SESQ=SESQRO2 & + RKI( 427 ) * YC ( VROCP6ALK ) ! HO+VROCP6ALK=... & + RKI( 428 ) * YC ( VROCP5ALK ) ! HO+VROCP5ALK=... & + RKI( 429 ) * YC ( VROCP4ALK ) ! HO+VROCP4ALK=... & + RKI( 430 ) * YC ( VROCP3ALK ) ! HO+VROCP3ALK=... & + RKI( 431 ) * YC ( VROCP2ALK ) ! HO+VROCP2ALK=... & + RKI( 432 ) * YC ( VROCP1ALK ) ! HO+VROCP1ALK=... & + RKI( 433 ) * YC ( HC10 ) ! HO+HC10=HC10P & + 8.4000D-01 * RKI( 483 ) * YC ( VROCP6ARO ) ! HO+VROCP6ARO=... & + 8.4000D-01 * RKI( 489 ) * YC ( VROCP5ARO ) ! HO+VROCP5ARO=... & + 8.4000D-01 * RKI( 495 ) * YC ( NAPH ) ! HO+NAPH=0.1600D+... L4 = 1.0D0 + L4 * DTC + R5_4 + R19_4 c..HO2 loss terms not included in R4_5 & R21_5 (except for HO2+HO2 ) L5 = RKI( 49 ) * YC ( HO ) ! HO2+HO= & + RKI( 56 ) * YC ( NO ) ! HO2+NO=HNO3 & + 3.0000D-01 * RKI( 64 ) * YC ( NO3 ) ! HO2+NO3=0.7000D+... & + 4.0000D-01 * RKI( 91 ) * YC ( ISOP ) ! HO2+ISOP=ISHP+... & + RKI( 225 ) * YC ( MO2 ) ! HO2+MO2=OP1 & + RKI( 226 ) * YC ( ETHP ) ! HO2+ETHP=OP2 & + RKI( 227 ) * YC ( HC3P ) ! HO2+HC3P=OP2 & + RKI( 228 ) * YC ( HC5P ) ! HO2+HC5P=OP2 & + RKI( 229 ) * YC ( ETEP ) ! HO2+ETEP=OP2 & + RKI( 230 ) * YC ( OLTP ) ! HO2+OLTP=OP2 & + RKI( 231 ) * YC ( OLIP ) ! HO2+OLIP=OP2 & + RKI( 232 ) * YC ( BENP ) ! HO2+BENP=0.6021D+... & + RKI( 233 ) * YC ( TOLP ) ! HO2+TOLP=0.7195D+... & + RKI( 234 ) * YC ( XYMP ) ! HO2+XYMP=0.4820D-... & + RKI( 235 ) * YC ( XYEP ) ! HO2+XYEP=0.8540D-... & + RKI( 236 ) * YC ( APIP1 ) ! HO2+APIP1=OPB & + RKI( 237 ) * YC ( APIP2 ) ! HO2+APIP2=HOM & + RKI( 238 ) * YC ( APINP1 ) ! HO2+APINP1=TRPN & + RKI( 239 ) * YC ( APINP2 ) ! HO2+APINP2=HOM & + RKI( 240 ) * YC ( LIMP1 ) ! HO2+LIMP1=OPB & + RKI( 241 ) * YC ( LIMP2 ) ! HO2+LIMP2=HOM & + RKI( 242 ) * YC ( LIMNP1 ) ! HO2+LIMNP1=TRPN & + RKI( 243 ) * YC ( LIMNP2 ) ! HO2+LIMNP2=HOM & + RKI( 244 ) * YC ( PINALP ) ! HO2+PINALP=OPB & + RKI( 245 ) * YC ( LIMALP ) ! HO2+LIMALP=OPB & + 5.6000D-01 * RKI( 246 ) * YC ( ACO3 ) ! HO2+ACO3=0.4400D+... & + 5.6000D-01 * RKI( 247 ) * YC ( RCO3 ) ! HO2+RCO3=0.4400D+... & + 8.5000D-01 * RKI( 248 ) * YC ( ACTP ) ! HO2+ACTP=0.1500D+... & + RKI( 249 ) * YC ( MEKP ) ! HO2+MEKP=OP2 & + RKI( 250 ) * YC ( KETP ) ! HO2+KETP=OP2 & + RKI( 251 ) * YC ( MACP ) ! HO2+MACP=MAHP & + RKI( 252 ) * YC ( MCP ) ! HO2+MCP=MAHP & + RKI( 253 ) * YC ( MVKP ) ! HO2+MVKP=OP2 & + RKI( 254 ) * YC ( UALP ) ! HO2+UALP=OP2 & + RKI( 255 ) * YC ( ADDC ) ! HO2+ADDC=OP2 & + RKI( 256 ) * YC ( CHO ) ! HO2+CHO=CSL & + RKI( 257 ) * YC ( MCTP ) ! HO2+MCTP=OP2 & + RKI( 258 ) * YC ( ORAP ) ! HO2+ORAP=OP2 & + RKI( 259 ) * YC ( OLNN ) ! HO2+OLNN=ONIT & + RKI( 260 ) * YC ( OLND ) ! HO2+OLND=ONIT & + RKI( 261 ) * YC ( ADCN ) ! HO2+ADCN=OP2 & + RKI( 262 ) * YC ( XO2 ) ! HO2+XO2=OP2 & + RKI( 398 ) * YC ( BDE13P ) ! HO2+BDE13P=OP2 & + 2.8000D-01 * RKI( 405 ) * YC ( FURANO2 ) ! HO2+FURANO2=... & + RKI( 411 ) * YC ( SESQNRO2 ) ! HO2+SESQNRO2=... & + RKI( 416 ) * YC ( SESQRO2 ) ! HO2+SESQRO2=... & + RKI( 448 ) * YC ( VROCP6ALKP ) ! HO2+VROCP6ALKP=... & + RKI( 449 ) * YC ( VROCP5ALKP ) ! HO2+VROCP5ALKP=... & + RKI( 450 ) * YC ( VROCP4ALKP ) ! HO2+VROCP4ALKP=... & + RKI( 451 ) * YC ( VROCP3ALKP ) ! HO2+VROCP3ALKP=... & + RKI( 452 ) * YC ( VROCP2ALKP ) ! HO2+VROCP2ALKP=... & + RKI( 453 ) * YC ( VROCP1ALKP ) ! HO2+VROCP1ALKP=... & + RKI( 454 ) * YC ( HC10P ) ! HO2+HC10P=OP2 & + RKI( 476 ) * YC ( VROCP6ALKP2 ) ! HO2+VROCP6ALKP2=... & + RKI( 477 ) * YC ( VROCP5ALKP2 ) ! HO2+VROCP5ALKP2=... & + RKI( 478 ) * YC ( VROCP4ALKP2 ) ! HO2+VROCP4ALKP2=... & + RKI( 479 ) * YC ( VROCP3ALKP2 ) ! HO2+VROCP3ALKP2=... & + RKI( 480 ) * YC ( VROCP2ALKP2 ) ! HO2+VROCP2ALKP2=... & + RKI( 481 ) * YC ( VROCP1ALKP2 ) ! HO2+VROCP1ALKP2=... & + RKI( 482 ) * YC ( HC10P2 ) ! HO2+HC10P2=... & + RKI( 484 ) * YC ( VROCP6AROP ) ! HO2+VROCP6AROP=... & + RKI( 490 ) * YC ( VROCP5AROP ) ! HO2+VROCP5AROP=... & + RKI( 496 ) * YC ( NAPHP ) ! HO2+NAPHP=... L5 = 1.0D0 + L5 * DTC + R4_5 + R21_5 c..HONO loss terms not included in R4_19 L19 = RKI( 58 ) * YC ( HO ) ! HONO+HO=NO2 L19 = 1.0D0 + L19 * DTC + R4_19 c..HNO4 loss terms not included in R5_21 L21 = 2.0000D-01 * RKI( 9 ) ! HNO4=0.8000D+... & + RKI( 73 ) * YC ( HO ) ! HNO4+HO=NO2 L21 = 1.0D0 + L21 * DTC + R5_21 ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Solution section ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c..compute terms used to calculate a,b & c L21_INV = 1.0D0 / L21 T1 = 1.0D0 / ( L4 * L19 - R4_19 * R19_4 ) T2 = R5_4 * T1 T3 = R5_21 * L21_INV c..solve quadratic equation for HO2 A = 2.0D0 * ( RKI( 50 ) + RKI( 51 ) ) * DTC B = L5 - T3 * R21_5 - T2 * R4_5 * L19 C = P5 + T3 * P21 + T2 * ( P4 * L19 + P19 * R4_19 ) Q = -0.5D0 * ( B + SIGN( 1.0D0, B ) * SQRT( B * B + 4.0D0 * A * C ) ) YCP( HO2 ) = MAX( Q / A , -C / Q ) c..compute remaining species concentrations YCP( HO ) = ( ( P4 + R4_5 * YCP( HO2 ) ) * L19 + R4_19 * P19 ) * T1 YCP( HNO4 ) = ( P21 + R21_5 * YCP( HO2 ) ) * L21_INV YCP( HONO ) = ( P19 + R19_4 * YCP( HO ) ) / L19 RETURN END ================================================ FILE: CCTM/src/gas/ebi_cracmm1amore_aq/hrg3.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE HRG3( DTC ) C********************************************************************** C C FUNCTION: To solve for the concentration of C2O3 and PAN C C PRECONDITIONS: For the CRACMM1AMORE_AQ mechanism C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by EBI solver program, Jun 16, 2022 C C 18 Jul 14 B.Hutzell: revised to use real(8) variables C********************************************************************** USE HRDATA IMPLICIT NONE C..INCLUDES: NONE C..ARGUMENTS: REAL( 8 ), INTENT( IN ) :: DTC ! Time step C..PARAMETERS: NONE C..EXTERNAL FUNCTIONS: NONE C..SAVED LOCAL VARIABLES: ! CHARACTER( 16 ), SAVE :: PNAME = 'HRG3' ! Program name C..SCRATCH LOCAL VARIABLES: REAL( 8 ) :: A, B, C, Q ! Quadratic equation terms REAL( 8 ) :: CMN ! Temp scalar REAL( 8 ) :: L8 ! Loss of CCO_O2 REAL( 8 ) :: L9 ! Loss of PAN REAL( 8 ) :: P8 ! Production of CCO_O2 REAL( 8 ) :: K8_8 ! Kaco3+aco3 * delta t REAL( 8 ) :: R8_9 ! Kpan-->aco3 * delta t REAL( 8 ) :: R9_8 ! Kaco3+no2-->pan * [NO2] * delta t C********************************************************************** c..Production of ACO3 (except from PAN ) P8 = RXRAT( 14 ) ! ACT=ACO3+MO2 & + 7.8400D-01 * RXRAT( 16 ) ! UALD=0.7840D+00*ACO3+... & + 9.0000D-01 * RXRAT( 19 ) ! MEK=0.9000D+00*ACO3+ETHP+... & + 5.0000D-01 * RXRAT( 20 ) ! KET=0.5000D+00*ACO3+... & + RXRAT( 21 ) ! HKET=ACO3+HO2+HCHO & + 6.7000D-01 * RXRAT( 22 ) ! MACR=0.6700D+00*ACO3+... & + RXRAT( 27 ) ! MGLY=ACO3+HO2+CO & + 2.5000D-01 * RXRAT( 28 ) ! DCB1=0.2500D+00*ACO3+... & + 2.5000D-01 * RXRAT( 29 ) ! DCB2=0.2500D+00*ACO3+... & + 1.0000D-01 * RXRAT( 88 ) ! ISO+O3=0.1000D+00*ACO3+... & + 6.0000D-02 * RXRAT( 99 ) ! ISHP=0.6000D-01*ACO3+... & + RXRAT( 109 ) ! ACD+HO=ACO3 & + 3.1300D-01 * RXRAT( 117 ) ! UALD+HO=0.3130D+00*ACO3+... & + RXRAT( 119 ) ! MGLY+HO=ACO3+CO & + 6.5000D-01 * RXRAT( 138 ) ! PAA+HO=0.6500D+00*ACO3+... & + 9.0000D-02 * RXRAT( 146 ) ! OLI+O3=0.9000D-01*ACO3+... & + 1.0000D-01 * RXRAT( 151 ) ! MACR+O3=0.1000D+00*ACO3+... & + 2.8000D-01 * RXRAT( 152 ) ! MVK+O3=0.2800D+00*ACO3+... & + 2.0000D-03 * RXRAT( 153 ) ! UALD+O3=0.2000D-02*ACO3+... & + RXRAT( 165 ) ! ACD+NO3=ACO3+HNO3 & + RXRAT( 170 ) ! MGLY+NO3=ACO3+CO+HNO3 & + RXRAT( 206 ) ! ACTP+NO=ACO3+NO2+HCHO & + 2.3000D-01 * RXRAT( 208 ) ! KETP+NO=0.2300D+00*ACO3+... & + 3.5000D-01 * RXRAT( 209 ) ! MACP+NO=0.3500D+00*ACO3+... & + 7.0000D-01 * RXRAT( 211 ) ! MVKP+NO=0.7000D+00*ACO3+... & + 1.5000D-01 * RXRAT( 248 ) ! ACTP+HO2=0.1500D+00*ACO3+... & + 5.0000D-01 * RXRAT( 285 ) ! ACTP+MO2=0.5000D+00*ACO3+... & + 2.6900D-01 * RXRAT( 288 ) ! MACP+MO2=0.2690D+00*ACO3+... & + 1.1600D+00 * RXRAT( 290 ) ! MVKP+MO2=0.1160D+01*ACO3+... & + 1.6000D-01 * RXRAT( 327 ) ! MVKP+ACO3=0.1160D+01*ACO3+... & + RXRAT( 355 ) ! ACTP+NO3=ACO3+NO2+HCHO & + 5.3800D-01 * RXRAT( 358 ) ! MACP+NO3=0.5380D+00*ACO3+... & + 7.0000D-01 * RXRAT( 360 ) ! MVKP+NO3=0.7000D+00*ACO3+... & + 3.5400D-01 * RXRAT( 394 ) ! ACRO=0.3540D+00*ACO3+... c..Loss frequency of ACO3 ( not including ACO3 + ACO3 ) L8 = RKI( 177 ) * YC ( NO2 ) ! ACO3+NO2=PAN & + RKI( 204 ) * YC ( NO ) ! ACO3+NO=MO2+NO2 & + RKI( 246 ) * YC ( HO2 ) ! ACO3+HO2=0.4400D+... & + RKI( 283 ) * YC ( MO2 ) ! ACO3+MO2=0.9000D+... & + RKI( 301 ) * YC ( ETHP ) ! ACO3+ETHP=... & + RKI( 302 ) * YC ( HC3P ) ! ACO3+HC3P=... & + RKI( 303 ) * YC ( HC5P ) ! ACO3+HC5P=... & + RKI( 304 ) * YC ( ETEP ) ! ACO3+ETEP=... & + RKI( 305 ) * YC ( OLTP ) ! ACO3+OLTP=... & + RKI( 306 ) * YC ( OLIP ) ! ACO3+OLIP=... & + RKI( 307 ) * YC ( BENP ) ! ACO3+BENP=... & + RKI( 308 ) * YC ( TOLP ) ! ACO3+TOLP=... & + RKI( 309 ) * YC ( XYMP ) ! ACO3+XYMP=... & + RKI( 310 ) * YC ( XYEP ) ! ACO3+XYEP=... & + RKI( 311 ) * YC ( ISOP ) ! ACO3+ISOP=... & + RKI( 312 ) * YC ( APIP1 ) ! ACO3+APIP1=... & + RKI( 313 ) * YC ( APIP2 ) ! ACO3+APIP2=... & + RKI( 314 ) * YC ( APINP1 ) ! ACO3+APINP1=... & + RKI( 315 ) * YC ( APINP2 ) ! ACO3+APINP2=... & + RKI( 316 ) * YC ( LIMP1 ) ! ACO3+LIMP1=... & + RKI( 317 ) * YC ( LIMP2 ) ! ACO3+LIMP2=... & + RKI( 318 ) * YC ( LIMNP1 ) ! ACO3+LIMNP1=... & + RKI( 319 ) * YC ( LIMNP2 ) ! ACO3+LIMNP2=... & + RKI( 321 ) * YC ( RCO3 ) ! ACO3+RCO3=MO2+ETHP & + 5.0000D-01 * RKI( 322 ) * YC ( ACTP ) ! ACO3+ACTP=... & + RKI( 323 ) * YC ( MEKP ) ! ACO3+MEKP=... & + RKI( 324 ) * YC ( KETP ) ! ACO3+KETP=... & + 7.3100D-01 * RKI( 325 ) * YC ( MACP ) ! ACO3+MACP=... & + RKI( 326 ) * YC ( MCP ) ! ACO3+MCP=NO2+... & + RKI( 328 ) * YC ( UALP ) ! ACO3+UALP=... & + RKI( 329 ) * YC ( BALP ) ! ACO3+BALP=MO2+BAL1 & + RKI( 330 ) * YC ( BAL1 ) ! ACO3+BAL1=MO2+BAL2 & + RKI( 331 ) * YC ( ADDC ) ! ACO3+ADDC=... & + RKI( 332 ) * YC ( MCTP ) ! ACO3+MCTP=HO2+... & + RKI( 333 ) * YC ( ORAP ) ! ACO3+ORAP=MO2+GLY & + RKI( 334 ) * YC ( OLNN ) ! ACO3+OLNN=HO2+... & + RKI( 335 ) * YC ( OLND ) ! ACO3+OLND=... & + RKI( 336 ) * YC ( ADCN ) ! ACO3+ADCN=HO2+... & + RKI( 337 ) * YC ( XO2 ) ! ACO3+XO2=MO2 & + RKI( 353 ) * YC ( NO3 ) ! ACO3+NO3=MO2+NO2 & + RKI( 400 ) * YC ( BDE13P ) ! ACO3+BDE13P=... & + RKI( 488 ) * YC ( VROCP6AROP ) ! ACO3+VROCP6AROP=... & + RKI( 494 ) * YC ( VROCP5AROP ) ! ACO3+VROCP5AROP=... & + RKI( 500 ) * YC ( NAPHP ) ! ACO3+NAPHP=... c..Loss frequency of PAN L9 = RKI( 37 ) ! PAN=ACO3+NO2 & + RKI( 38 ) ! PAN=MO2+NO3 & + RKI( 139 ) * YC ( HO ) ! PAN+HO=XO2+NO3+HCHO & + RKI( 178 ) ! PAN=ACO3+NO2 c..K8_8, R8_9, and R9_8 terms K8_8 = RKI( 320 ) * DTC R8_9 = ( RKI( 37 ) & + RKI( 178 ) ) * DTC R9_8 = ( RKI( 177 ) * YC( NO2 ) ) * DTC c..Solution of quadratic equation to get ACO3 & PAN CMN = 1.0 + L9 * DTC A = 2.0D0 * K8_8 * CMN B = CMN * ( 1.0D0 + L8 * DTC ) - R8_9 * R9_8 C = CMN * ( YC0( ACO3 ) + P8 * DTC ) + R8_9 * YC0( PAN ) Q = -0.5D0 * ( B + SIGN( 1.0D0, B ) * SQRT( B * B + 4.0D0 * A * C ) ) YCP( ACO3 ) = MAX( Q / A , -C / Q ) YCP( PAN ) = ( YC0( PAN ) + R9_8 * YCP( ACO3 ) ) / CMN RETURN END ================================================ FILE: CCTM/src/gas/ebi_cracmm1amore_aq/hrg4.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE HRG4( DTC ) C********************************************************************** C C FUNCTION: To solve for the concentration of NO3 and N2O5 C C PRECONDITIONS: For the CRACMM1AMORE_AQ mechanism C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by EBI solver program, Jun 16, 2022 C C 18 Jul 14 B.Hutzell: revised to use real(8) variables C********************************************************************** USE HRDATA IMPLICIT NONE C..INCLUDES: NONE C..ARGUMENTS: REAL( 8 ), INTENT( IN ) :: DTC ! Time step C..PARAMETERS: NONE C..EXTERNAL FUNCTIONS: NONE C..SAVED LOCAL VARIABLES: ! CHARACTER( 16 ), SAVE :: PNAME = 'HRG4' ! Program name C..SCRATCH LOCAL VARIABLES: REAL( 8 ) :: A, B, C, Q ! Quadratic equation terms REAL( 8 ) :: CMN ! Temp scalar REAL( 8 ) :: L15 ! Loss of NO3 REAL( 8 ) :: L16 ! Loss of N2O5 REAL( 8 ) :: P15 ! Production of NO3 REAL( 8 ) :: K15_15 ! Kno3+no3 * delta t REAL( 8 ) :: R15_16 ! Kn2o5-->no3 * delta t REAL( 8 ) :: R16_15 ! Kno3+no2-->n2o5[NO2] * delta t C********************************************************************** c..Production of NO3 (except from N2O5 ) P15 = 2.0000D-01 * RKI( 9 ) * YC ( HNO4 ) ! HNO4=0.2000D+00*NO3+... & + RKI( 38 ) * YC ( PAN ) ! PAN=NO3+MO2 & + RKI( 42 ) * YCP( O3 ) * YCP( NO2 ) ! O3+NO2=NO3 & + RKI( 60 ) * YCP( NO2 ) * YCP( O3P ) ! NO2+O3P=NO3 & + RKI( 62 ) * YC ( HNO3 ) * YCP( HO ) ! HNO3+HO=NO3 & + RKI( 139 ) * YC ( PAN ) * YCP( HO ) ! PAN+HO=NO3+XO2+HCHO & + RKI( 140 ) * YC ( PPN ) * YCP( HO ) ! PPN+HO=NO3+XO2+HCHO c..Loss frequency of NO3 ( except NO3 + NO3 if present ) L15 = RKI( 5 ) ! NO3=NO & + RKI( 6 ) ! NO3=O3P+NO2 & + RKI( 63 ) * YCP( HO ) ! NO3+HO=HO2+NO2 & + RKI( 64 ) * YCP( HO2 ) ! NO3+HO2=0.7000D+... & + RKI( 65 ) * YCP( NO ) ! NO3+NO=0.2000D+... & + RKI( 66 ) * YCP( NO2 ) ! NO3+NO2=NO+NO2 & + RKI( 68 ) * YCP( NO2 ) ! NO3+NO2=N2O5 & + RKI( 89 ) * YC ( ISO ) ! NO3+ISO=INO2+... & + RKI( 102 ) * YC ( NALD ) ! NO3+NALD=CO & + RKI( 158 ) * YC ( ETE ) ! NO3+ETE=0.8000D+... & + RKI( 159 ) * YC ( OLT ) ! NO3+OLT=0.4300D+... & + RKI( 160 ) * YC ( OLI ) ! NO3+OLI=0.1100D+... & + RKI( 161 ) * YC ( API ) ! NO3+API=0.9750D+... & + RKI( 162 ) * YC ( LIM ) ! NO3+LIM=0.9450D+... & + RKI( 163 ) * YC ( TRPN ) ! NO3+TRPN=HOM & + RKI( 164 ) * YC ( HCHO ) ! NO3+HCHO=HO2+CO+HNO3 & + RKI( 165 ) * YC ( ACD ) ! NO3+ACD=ACO3+HNO3 & + RKI( 166 ) * YC ( ALD ) ! NO3+ALD=RCO3+HNO3 & + RKI( 167 ) * YC ( MACR ) ! NO3+MACR=0.6800D+... & + RKI( 168 ) * YC ( UALD ) ! NO3+UALD=HO2+XO2+... & + RKI( 169 ) * YC ( GLY ) ! NO3+GLY=HO2+... & + RKI( 170 ) * YC ( MGLY ) ! NO3+MGLY=ACO3+CO+... & + RKI( 171 ) * YC ( PHEN ) ! NO3+PHEN=0.1520D+... & + RKI( 172 ) * YC ( CSL ) ! NO3+CSL=0.2000D+... & + RKI( 173 ) * YC ( MCT ) ! NO3+MCT=MCTO+HNO3 & + RKI( 174 ) * YC ( MPAN ) ! NO3+MPAN=MACP+NO2 & + RKI( 339 ) * YC ( MO2 ) ! NO3+MO2=HO2+HCHO+NO2 & + RKI( 340 ) * YC ( ETHP ) ! NO3+ETHP=HO2+NO2+ACD & + RKI( 341 ) * YC ( HC3P ) ! NO3+HC3P=0.2540D+... & + RKI( 342 ) * YC ( HC5P ) ! NO3+HC5P=0.4880D+... & + RKI( 343 ) * YC ( ETEP ) ! NO3+ETEP=HO2+NO2+... & + RKI( 344 ) * YC ( OLTP ) ! NO3+OLTP=0.4700D+... & + RKI( 345 ) * YC ( OLIP ) ! NO3+OLIP=0.8600D+... & + RKI( 346 ) * YC ( BENP ) ! NO3+BENP=NO2+HO2+... & + RKI( 347 ) * YC ( TOLP ) ! NO3+TOLP=NO2+... & + RKI( 348 ) * YC ( XYMP ) ! NO3+XYMP=NO2+... & + RKI( 349 ) * YC ( XYEP ) ! NO3+XYEP=NO2+... & + RKI( 350 ) * YC ( ISOP ) ! NO3+ISOP=HO2+NO2+... & + RKI( 351 ) * YC ( APIP1 ) ! NO3+APIP1=HO2+... & + RKI( 352 ) * YC ( LIMP1 ) ! NO3+LIMP1=HO2+... & + RKI( 353 ) * YC ( ACO3 ) ! NO3+ACO3=MO2+NO2 & + RKI( 354 ) * YC ( RCO3 ) ! NO3+RCO3=ETHP+NO2 & + RKI( 355 ) * YC ( ACTP ) ! NO3+ACTP=ACO3+... & + RKI( 356 ) * YC ( MEKP ) ! NO3+MEKP=0.6700D+... & + RKI( 357 ) * YC ( KETP ) ! NO3+KETP=HO2+NO2+... & + RKI( 358 ) * YC ( MACP ) ! NO3+MACP=HCHO+... & + RKI( 359 ) * YC ( MCP ) ! NO3+MCP=NO2+HO2+... & + RKI( 360 ) * YC ( MVKP ) ! NO3+MVKP=0.3000D+... & + RKI( 361 ) * YC ( UALP ) ! NO3+UALP=HO2+NO2+... & + RKI( 362 ) * YC ( BALP ) ! NO3+BALP=BAL1+NO2 & + RKI( 363 ) * YC ( BAL1 ) ! NO3+BAL1=BAL2+NO2 & + RKI( 364 ) * YC ( ADDC ) ! NO3+ADDC=HO2+NO2+... & + RKI( 365 ) * YC ( MCTP ) ! NO3+MCTP=NO2+MCTO & + RKI( 366 ) * YC ( ORAP ) ! NO3+ORAP=NO2+GLY+HO2 & + RKI( 367 ) * YC ( OLNN ) ! NO3+OLNN=HO2+NO2+... & + RKI( 368 ) * YC ( OLND ) ! NO3+OLND=0.2000D+... & + RKI( 369 ) * YC ( ADCN ) ! NO3+ADCN=0.2000D+... & + RKI( 373 ) * YC ( XO2 ) ! NO3+XO2=NO2 & + RKI( 393 ) * YC ( ACRO ) ! NO3+ACRO=0.6800D+... & + RKI( 397 ) * YC ( BDE13P ) ! NO3+BDE13P=HO2+... & + RKI( 402 ) * YC ( BDE13 ) ! NO3+BDE13=... & + RKI( 408 ) * YC ( FURAN ) ! NO3+FURAN=NO2+... & + RKI( 410 ) * YC ( SESQ ) ! NO3+SESQ=SESQNRO2 & + RKI( 413 ) * YC ( SESQNRO2 ) ! NO3+SESQNRO2=... & + RKI( 417 ) * YC ( SESQRO2 ) ! NO3+SESQRO2=... & + RKI( 441 ) * YC ( VROCP6ALKP ) ! NO3+VROCP6ALKP=... & + RKI( 442 ) * YC ( VROCP5ALKP ) ! NO3+VROCP5ALKP=... & + RKI( 443 ) * YC ( VROCP4ALKP ) ! NO3+VROCP4ALKP=... & + RKI( 444 ) * YC ( VROCP3ALKP ) ! NO3+VROCP3ALKP=... & + RKI( 445 ) * YC ( VROCP2ALKP ) ! NO3+VROCP2ALKP=... & + RKI( 446 ) * YC ( VROCP1ALKP ) ! NO3+VROCP1ALKP=... & + RKI( 447 ) * YC ( HC10P ) ! NO3+HC10P=HC10P2+NO2 & + RKI( 469 ) * YC ( VROCP6ALKP2 ) ! NO3+VROCP6ALKP2=... & + RKI( 470 ) * YC ( VROCP5ALKP2 ) ! NO3+VROCP5ALKP2=... & + RKI( 471 ) * YC ( VROCP4ALKP2 ) ! NO3+VROCP4ALKP2=... & + RKI( 472 ) * YC ( VROCP3ALKP2 ) ! NO3+VROCP3ALKP2=... & + RKI( 473 ) * YC ( VROCP2ALKP2 ) ! NO3+VROCP2ALKP2=... & + RKI( 474 ) * YC ( VROCP1ALKP2 ) ! NO3+VROCP1ALKP2=... & + RKI( 475 ) * YC ( HC10P2 ) ! NO3+HC10P2=NO2+... & + RKI( 486 ) * YC ( VROCP6AROP ) ! NO3+VROCP6AROP=... & + RKI( 492 ) * YC ( VROCP5AROP ) ! NO3+VROCP5AROP=... & + RKI( 498 ) * YC ( NAPHP ) ! NO3+NAPHP=NO2+... c..Loss frequency of N2O5 L16 = RKI( 69 ) ! N2O5=NO2+NO3 & + RKI( 70 ) ! N2O5=0.2000D+01*HNO3 & + RKI( 421 ) ! N2O5=0.2000D+01*HNO3 c..K15_15, R15_16, and R16_15 terms K15_15 = RKI( 67 ) * DTC R15_16 = ( RKI( 69 ) ) * DTC R16_15 = RKI( 68 ) * YCP( NO2 ) * DTC c..Solution of quadratic equation to get NO3 & N2O5 CMN = 1.0D0 + L16 * DTC A = 2.0D0 * K15_15 * CMN B = CMN * ( 1.0D0 + L15 * DTC ) - R15_16 * R16_15 C = CMN * ( YC0( NO3 ) + P15 * DTC ) + R15_16 * YC0( N2O5 ) Q = -0.5D0 * ( B + SIGN( 1.0D0, B ) * SQRT( B * B + 4.0D0 * A * C ) ) YCP( NO3 ) = MAX( Q / A , -C / Q ) YCP( N2O5 ) = ( YC0( N2O5 ) + R16_15 * YCP( NO3 ) ) / CMN RETURN END ================================================ FILE: CCTM/src/gas/ebi_cracmm1amore_aq/hrinit.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE HRINIT C*********************************************************************** C C FUNCTION: To initialize species tolerances, arrays, and indices C C PRECONDITIONS: For the CRACMM1AMORE_AQ mechanism C C RETURN VALUES: None C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by EBI solver program, Jun 16, 2022 C 21 Jun 10 J.Young: convert for Namelist redesign C 18 Jul 14 B.Hutzell: revised to use the RXNS_DATA and RXNS_FUNCTION C modules instead of include files C*********************************************************************** USE UTILIO_DEFN USE HRDATA USE RXNS_DATA USE RXNS_FUNCTION IMPLICIT NONE C.....INCLUDES: Include SUBST_CONST ! common constants C.....ARGUMENTS: NONE C.....PARAMETERS: NONE C.....SAVED VARIABLES: CHARACTER( 16 ), SAVE :: PNAME = 'HRINIT' ! Program name C.....LOCAL VARIABLES: CHARACTER( 132 ) :: MSG ! Log message INTEGER N ! Loop index INTEGER IOS ! Allocate error status C*********************************************************************** N_SPEC = NUMB_MECH_SPC N_RXNS = NRXNS N_SPCL_RKS = 0 ALLOCATE( RKI( NRXNS ), & RKI_SAV( MAX_CELLS_EBI, NRXNS ), & FORWARD_CONV( NUMB_MECH_SPC), & REVERSE_CONV( NUMB_MECH_SPC), & RXRAT( NRXNS ), & RTOL( NUMB_MECH_SPC), & YC( NUMB_MECH_SPC), & YC0( NUMB_MECH_SPC), & YCP( NUMB_MECH_SPC), & PROD( NUMB_MECH_SPC), & LOSS( NUMB_MECH_SPC), & STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating RKI, RXRAT, RTOL, YC, YC0, YCP, FORWARD_CONV, ' & // 'REVERSE_CONV, PROD, LOSS, or PNEG' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF ALLOCATE( ATMPRES( MAX_CELLS_EBI ), & H2O ( MAX_CELLS_EBI ), & TEMP ( MAX_CELLS_EBI ), & DENSITY( MAX_CELLS_EBI ), & HET ( MAX_CELLS_EBI, NHETERO ), & RJIN ( MAX_CELLS_EBI, NPHOTAB ), & SEAWATER ( MAX_CELLS_EBI ) , & STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating ATMPRES, H2O, TEMP, HET, RJIN, SEAWATER ' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF IF( NSPECIAL .GT. 0 )THEN ALLOCATE( SYC( MAX_CELLS_EBI, NUMB_MECH_SPC ), STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating SYC' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF ALLOCATE( IOLD2NEW( NUMB_MECH_SPC, 1 ), STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating IOLD2NEW' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF DO N = 1, NUMB_MECH_SPC IOLD2NEW( N, 1 ) = N END DO END IF IF( .NOT. MAP_CHEMISTRY_SPECIES() )THEN MSG = 'Detected above error(s) when mapping Chemistry species from CGRID species' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT2 ) END IF DO N = 1, NUMB_MECH_SPC FORWARD_CONV( N ) = 1.0E-3 * MWAIR / SPECIES_MOLWT( N ) REVERSE_CONV( N ) = 1.0E+3 / MWAIR * SPECIES_MOLWT( N ) END DO ! initialize all reaction rates to zero so unused array elements are defined RXRAT = 0.0D0 ! initialize all production and loss rates to zero so unused array elements are defined PROD = 0.0D0 LOSS = 0.0D0 NING1 = 4 NING2 = 4 ALLOCATE( YCCELL( MODEL_SPECIES), STAT = IOS ) ! array for degradation routines IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating YCCELL ' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF c..Allocate and define ebi species N_EBISP = 168 ALLOCATE( EBISP( N_EBISP ), STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating EBISP' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF EBISP( 1 ) = H2O2 EBISP( 2 ) = HNO3 EBISP( 3 ) = HCHO EBISP( 4 ) = CO EBISP( 5 ) = ACD EBISP( 6 ) = MO2 EBISP( 7 ) = ALD EBISP( 8 ) = ETHP EBISP( 9 ) = ACT EBISP( 10 ) = UALD EBISP( 11 ) = KET EBISP( 12 ) = PINAL EBISP( 13 ) = HC10P EBISP( 14 ) = LIMAL EBISP( 15 ) = MEK EBISP( 16 ) = HKET EBISP( 17 ) = MACR EBISP( 18 ) = MACP EBISP( 19 ) = XO2 EBISP( 20 ) = MVK EBISP( 21 ) = GLY EBISP( 22 ) = MGLY EBISP( 23 ) = DCB1 EBISP( 24 ) = DCB2 EBISP( 25 ) = BALD EBISP( 26 ) = CHO EBISP( 27 ) = OP1 EBISP( 28 ) = OP2 EBISP( 29 ) = OPB EBISP( 30 ) = OP3 EBISP( 31 ) = PAA EBISP( 32 ) = ONIT EBISP( 33 ) = SO2 EBISP( 34 ) = SULF EBISP( 35 ) = SULRXN EBISP( 36 ) = ETH EBISP( 37 ) = HC3 EBISP( 38 ) = HC3P EBISP( 39 ) = ASOATJ EBISP( 40 ) = HC5 EBISP( 41 ) = HC5P EBISP( 42 ) = ETE EBISP( 43 ) = ETEP EBISP( 44 ) = OLT EBISP( 45 ) = OLTP EBISP( 46 ) = OLI EBISP( 47 ) = OLIP EBISP( 48 ) = ACE EBISP( 49 ) = ORA1 EBISP( 50 ) = BEN EBISP( 51 ) = BENP EBISP( 52 ) = PHEN EBISP( 53 ) = TOL EBISP( 54 ) = TOLP EBISP( 55 ) = CSL EBISP( 56 ) = XYM EBISP( 57 ) = XYMP EBISP( 58 ) = XYE EBISP( 59 ) = XYEP EBISP( 60 ) = ISO EBISP( 61 ) = INO2 EBISP( 62 ) = NALD EBISP( 63 ) = ISOP EBISP( 64 ) = ISHP EBISP( 65 ) = ISON EBISP( 66 ) = IPN EBISP( 67 ) = IEPOX EBISP( 68 ) = IPC EBISP( 69 ) = ROH EBISP( 70 ) = API EBISP( 71 ) = APIP1 EBISP( 72 ) = APIP2 EBISP( 73 ) = LIM EBISP( 74 ) = LIMP1 EBISP( 75 ) = LIMP2 EBISP( 76 ) = PINALP EBISP( 77 ) = RCO3 EBISP( 78 ) = LIMALP EBISP( 79 ) = ACTP EBISP( 80 ) = MEKP EBISP( 81 ) = KETP EBISP( 82 ) = MCP EBISP( 83 ) = MVKP EBISP( 84 ) = UALP EBISP( 85 ) = DCB3 EBISP( 86 ) = BALP EBISP( 87 ) = ADDC EBISP( 88 ) = MCT EBISP( 89 ) = MCTO EBISP( 90 ) = MOH EBISP( 91 ) = EOH EBISP( 92 ) = ETEG EBISP( 93 ) = MAHP EBISP( 94 ) = ORA2 EBISP( 95 ) = ORAP EBISP( 96 ) = PPN EBISP( 97 ) = MPAN EBISP( 98 ) = TRPN EBISP( 99 ) = HOM EBISP( 100 ) = MCTP EBISP( 101 ) = OLNN EBISP( 102 ) = OLND EBISP( 103 ) = APINP1 EBISP( 104 ) = APINP2 EBISP( 105 ) = LIMNP1 EBISP( 106 ) = LIMNP2 EBISP( 107 ) = ADCN EBISP( 108 ) = VROCP4OXY2 EBISP( 109 ) = VROCN1OXY6 EBISP( 110 ) = FURANONE EBISP( 111 ) = VROCP3OXY2 EBISP( 112 ) = VROCP0OXY4 EBISP( 113 ) = BAL1 EBISP( 114 ) = BAL2 EBISP( 115 ) = ELHOM EBISP( 116 ) = VROCIOXY EBISP( 117 ) = SLOWROC EBISP( 118 ) = ACRO EBISP( 119 ) = BDE13 EBISP( 120 ) = BDE13P EBISP( 121 ) = FURAN EBISP( 122 ) = FURANO2 EBISP( 123 ) = PROG EBISP( 124 ) = SESQ EBISP( 125 ) = SESQNRO2 EBISP( 126 ) = VROCN2OXY2 EBISP( 127 ) = SESQRO2 EBISP( 128 ) = VROCP0OXY2 EBISP( 129 ) = VROCP1OXY3 EBISP( 130 ) = AGLYJ EBISP( 131 ) = IEPOXP EBISP( 132 ) = AISO3NOSJ EBISP( 133 ) = ASO4J EBISP( 134 ) = AISO3OSJ EBISP( 135 ) = VROCP6ALK EBISP( 136 ) = VROCP6ALKP EBISP( 137 ) = VROCP5ALK EBISP( 138 ) = VROCP5ALKP EBISP( 139 ) = VROCP4ALK EBISP( 140 ) = VROCP4ALKP EBISP( 141 ) = VROCP3ALK EBISP( 142 ) = VROCP3ALKP EBISP( 143 ) = VROCP2ALK EBISP( 144 ) = VROCP2ALKP EBISP( 145 ) = VROCP1ALK EBISP( 146 ) = VROCP1ALKP EBISP( 147 ) = HC10 EBISP( 148 ) = VROCP6ALKP2 EBISP( 149 ) = VROCP5ALKP2 EBISP( 150 ) = VROCP4ALKP2 EBISP( 151 ) = VROCP2OXY2 EBISP( 152 ) = VROCP3ALKP2 EBISP( 153 ) = VROCP1OXY1 EBISP( 154 ) = VROCP2ALKP2 EBISP( 155 ) = VROCP1ALKP2 EBISP( 156 ) = VROCN1OXY1 EBISP( 157 ) = HC10P2 EBISP( 158 ) = VROCP6ARO EBISP( 159 ) = VROCP6AROP EBISP( 160 ) = VROCN2OXY4 EBISP( 161 ) = VROCN1OXY3 EBISP( 162 ) = VROCP5ARO EBISP( 163 ) = VROCP5AROP EBISP( 164 ) = NAPH EBISP( 165 ) = NAPHP EBISP( 166 ) = VROCN2OXY8 EBISP( 167 ) = VROCP5OXY1 EBISP( 168 ) = VROCP6OXY1 cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Set species tolerances cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc RTOL( O3 ) = 5.0D-04 RTOL( O3P ) = 1.0D+00 RTOL( O1D ) = 1.0D+00 RTOL( H2O2 ) = 5.0D-04 RTOL( HO ) = 5.0D-04 RTOL( NO2 ) = 5.0D-04 RTOL( NO ) = 5.0D-04 RTOL( NO3 ) = 5.0D-04 RTOL( HONO ) = 5.0D-04 RTOL( HNO3 ) = 5.0D-04 RTOL( HNO4 ) = 5.0D-04 RTOL( HO2 ) = 5.0D-04 RTOL( HCHO ) = 5.0D-04 RTOL( CO ) = 5.0D-04 RTOL( ACD ) = 5.0D-04 RTOL( MO2 ) = 5.0D-04 RTOL( ALD ) = 5.0D-04 RTOL( ETHP ) = 5.0D-04 RTOL( ACT ) = 5.0D-04 RTOL( ACO3 ) = 5.0D-04 RTOL( UALD ) = 5.0D-04 RTOL( KET ) = 5.0D-04 RTOL( PINAL ) = 5.0D-04 RTOL( HC10P ) = 5.0D-04 RTOL( LIMAL ) = 5.0D-04 RTOL( MEK ) = 5.0D-04 RTOL( HKET ) = 5.0D-04 RTOL( MACR ) = 5.0D-04 RTOL( MACP ) = 5.0D-04 RTOL( XO2 ) = 5.0D-04 RTOL( MVK ) = 5.0D-04 RTOL( GLY ) = 5.0D-04 RTOL( MGLY ) = 5.0D-04 RTOL( DCB1 ) = 5.0D-04 RTOL( DCB2 ) = 5.0D-04 RTOL( BALD ) = 5.0D-04 RTOL( CHO ) = 5.0D-04 RTOL( OP1 ) = 5.0D-04 RTOL( OP2 ) = 5.0D-04 RTOL( OPB ) = 5.0D-04 RTOL( OP3 ) = 5.0D-04 RTOL( PAA ) = 5.0D-04 RTOL( ONIT ) = 5.0D-04 RTOL( PAN ) = 5.0D-04 RTOL( N2O5 ) = 5.0D-04 RTOL( SO2 ) = 5.0D-04 RTOL( SULF ) = 1.0D+00 RTOL( SULRXN ) = 1.0D+00 RTOL( ETH ) = 5.0D-04 RTOL( HC3 ) = 5.0D-04 RTOL( HC3P ) = 5.0D-04 RTOL( ASOATJ ) = 5.0D-04 RTOL( HC5 ) = 5.0D-04 RTOL( HC5P ) = 5.0D-04 RTOL( ETE ) = 5.0D-04 RTOL( ETEP ) = 5.0D-04 RTOL( OLT ) = 5.0D-04 RTOL( OLTP ) = 5.0D-04 RTOL( OLI ) = 5.0D-04 RTOL( OLIP ) = 5.0D-04 RTOL( ACE ) = 5.0D-04 RTOL( ORA1 ) = 5.0D-04 RTOL( BEN ) = 5.0D-04 RTOL( BENP ) = 5.0D-04 RTOL( PHEN ) = 5.0D-04 RTOL( TOL ) = 5.0D-04 RTOL( TOLP ) = 5.0D-04 RTOL( CSL ) = 5.0D-04 RTOL( XYM ) = 5.0D-04 RTOL( XYMP ) = 5.0D-04 RTOL( XYE ) = 5.0D-04 RTOL( XYEP ) = 5.0D-04 RTOL( ISO ) = 5.0D-04 RTOL( INO2 ) = 5.0D-04 RTOL( NALD ) = 5.0D-04 RTOL( ISOP ) = 5.0D-04 RTOL( ISHP ) = 5.0D-04 RTOL( ISON ) = 5.0D-04 RTOL( IPN ) = 5.0D-04 RTOL( IEPOX ) = 5.0D-04 RTOL( IPC ) = 5.0D-04 RTOL( ROH ) = 5.0D-04 RTOL( API ) = 5.0D-04 RTOL( APIP1 ) = 5.0D-04 RTOL( APIP2 ) = 5.0D-04 RTOL( LIM ) = 5.0D-04 RTOL( LIMP1 ) = 5.0D-04 RTOL( LIMP2 ) = 5.0D-04 RTOL( PINALP ) = 5.0D-04 RTOL( RCO3 ) = 5.0D-04 RTOL( LIMALP ) = 5.0D-04 RTOL( ACTP ) = 5.0D-04 RTOL( MEKP ) = 5.0D-04 RTOL( KETP ) = 5.0D-04 RTOL( MCP ) = 5.0D-04 RTOL( MVKP ) = 5.0D-04 RTOL( UALP ) = 5.0D-04 RTOL( DCB3 ) = 5.0D-04 RTOL( BALP ) = 5.0D-04 RTOL( ADDC ) = 5.0D-04 RTOL( MCT ) = 5.0D-04 RTOL( MCTO ) = 5.0D-04 RTOL( MOH ) = 5.0D-04 RTOL( EOH ) = 5.0D-04 RTOL( ETEG ) = 5.0D-04 RTOL( MAHP ) = 5.0D-04 RTOL( ORA2 ) = 5.0D-04 RTOL( ORAP ) = 5.0D-04 RTOL( PPN ) = 5.0D-04 RTOL( MPAN ) = 5.0D-04 RTOL( TRPN ) = 5.0D-04 RTOL( HOM ) = 5.0D-04 RTOL( MCTP ) = 5.0D-04 RTOL( OLNN ) = 5.0D-04 RTOL( OLND ) = 5.0D-04 RTOL( APINP1 ) = 5.0D-04 RTOL( APINP2 ) = 5.0D-04 RTOL( LIMNP1 ) = 5.0D-04 RTOL( LIMNP2 ) = 5.0D-04 RTOL( ADCN ) = 5.0D-04 RTOL( VROCP4OXY2 ) = 5.0D-04 RTOL( VROCN1OXY6 ) = 5.0D-04 RTOL( FURANONE ) = 5.0D-04 RTOL( VROCP3OXY2 ) = 5.0D-04 RTOL( VROCP0OXY4 ) = 5.0D-04 RTOL( BAL1 ) = 5.0D-04 RTOL( BAL2 ) = 5.0D-04 RTOL( ELHOM ) = 5.0D-04 RTOL( VROCIOXY ) = 5.0D-04 RTOL( SLOWROC ) = 5.0D-04 RTOL( ACRO ) = 5.0D-04 RTOL( BDE13 ) = 5.0D-04 RTOL( BDE13P ) = 5.0D-04 RTOL( FURAN ) = 5.0D-04 RTOL( FURANO2 ) = 5.0D-04 RTOL( PROG ) = 5.0D-04 RTOL( SESQ ) = 5.0D-04 RTOL( SESQNRO2 ) = 5.0D-04 RTOL( VROCN2OXY2 ) = 5.0D-04 RTOL( SESQRO2 ) = 5.0D-04 RTOL( VROCP0OXY2 ) = 5.0D-04 RTOL( VROCP1OXY3 ) = 5.0D-04 RTOL( AGLYJ ) = 5.0D-04 RTOL( IEPOXP ) = 5.0D-04 RTOL( AISO3NOSJ ) = 5.0D-04 RTOL( ASO4J ) = 5.0D-04 RTOL( AISO3OSJ ) = 5.0D-04 RTOL( VROCP6ALK ) = 5.0D-04 RTOL( VROCP6ALKP ) = 5.0D-04 RTOL( VROCP5ALK ) = 5.0D-04 RTOL( VROCP5ALKP ) = 5.0D-04 RTOL( VROCP4ALK ) = 5.0D-04 RTOL( VROCP4ALKP ) = 5.0D-04 RTOL( VROCP3ALK ) = 5.0D-04 RTOL( VROCP3ALKP ) = 5.0D-04 RTOL( VROCP2ALK ) = 5.0D-04 RTOL( VROCP2ALKP ) = 5.0D-04 RTOL( VROCP1ALK ) = 5.0D-04 RTOL( VROCP1ALKP ) = 5.0D-04 RTOL( HC10 ) = 5.0D-04 RTOL( VROCP6ALKP2 ) = 5.0D-04 RTOL( VROCP5ALKP2 ) = 5.0D-04 RTOL( VROCP4ALKP2 ) = 5.0D-04 RTOL( VROCP2OXY2 ) = 5.0D-04 RTOL( VROCP3ALKP2 ) = 5.0D-04 RTOL( VROCP1OXY1 ) = 5.0D-04 RTOL( VROCP2ALKP2 ) = 5.0D-04 RTOL( VROCP1ALKP2 ) = 5.0D-04 RTOL( VROCN1OXY1 ) = 5.0D-04 RTOL( HC10P2 ) = 5.0D-04 RTOL( VROCP6ARO ) = 5.0D-04 RTOL( VROCP6AROP ) = 5.0D-04 RTOL( VROCN2OXY4 ) = 5.0D-04 RTOL( VROCN1OXY3 ) = 5.0D-04 RTOL( VROCP5ARO ) = 5.0D-04 RTOL( VROCP5AROP ) = 5.0D-04 RTOL( NAPH ) = 5.0D-04 RTOL( NAPHP ) = 5.0D-04 RTOL( VROCN2OXY8 ) = 5.0D-04 RTOL( VROCP5OXY1 ) = 5.0D-04 RTOL( VROCP6OXY1 ) = 5.0D-04 RETURN END ================================================ FILE: CCTM/src/gas/ebi_cracmm1amore_aq/hrprodloss.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE HRPRODLOSS C*********************************************************************** C C FUNCTION: To compute the production and loss rates for EBI species C C PRECONDITIONS: For the CRACMM1AMORE_AQ mechanism C C RETURN VALUES: None C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by EBI solver program, Jun 16, 2022 C C 18 Jul 14 B.Hutzell: revised to use real(8) variables C*********************************************************************** USE HRDATA IMPLICIT NONE C.....INCLUDES: NONE C.....ARGUMENTS: NONE C.....PARAMETERS: NONE C.....EXTERNAL FUNCTIONS: NONE C.....SAVED VARIABLES: NONE ! CHARACTER( 16 ), SAVE :: PNAME = 'HRPRODLOSS' ! Program name C.....LOCAL VARIABLES: C*********************************************************************** PROD( H2O2 ) = RXRAT( 50 ) ! HO2+HO2=H2O2 & + RXRAT( 51 ) ! HO2+HO2=H2O2 & + 9.0000D-02 * RXRAT( 88 ) ! ISO+O3=0.9000D-01*H2O2+... & + 6.8000D-02 * RXRAT( 145 ) ! OLT+O3=0.6800D-01*H2O2+... & + 2.6000D-02 * RXRAT( 146 ) ! OLI+O3=0.2600D-01*H2O2+... & + 5.0000D-02 * RXRAT( 147 ) ! API+O3=0.5000D-01*H2O2+... & + 5.0000D-02 * RXRAT( 148 ) ! LIM+O3=0.5000D-01*H2O2+... LOSS( H2O2 ) = RXRAT( 3 ) ! H2O2=0.2000D+01*HO & + RXRAT( 52 ) ! H2O2+HO=HO2 PROD( HNO3 ) = RXRAT( 56 ) ! NO+HO2=HNO3 & + RXRAT( 61 ) ! NO2+HO=HNO3 & + 3.0000D-01 * RXRAT( 64 ) ! NO3+HO2=0.3000D+00*HNO3+... & + 2.0000D+00 * RXRAT( 70 ) ! N2O5=0.2000D+01*HNO3 & + RXRAT( 103 ) ! ISON=HNO3+ROH & + RXRAT( 164 ) ! HCHO+NO3=HNO3+CO+HO2 & + RXRAT( 165 ) ! ACD+NO3=HNO3+ACO3 & + RXRAT( 166 ) ! ALD+NO3=HNO3+RCO3 & + 3.2000D-01 * RXRAT( 167 ) ! MACR+NO3=0.3200D+00*HNO3+... & + RXRAT( 169 ) ! GLY+NO3=HNO3+0.2000D+01*CO+HO2 & + RXRAT( 170 ) ! MGLY+NO3=HNO3+CO+ACO3 & + 4.2400D-01 * RXRAT( 171 ) ! PHEN+NO3=0.4240D+00*HNO3+... & + 4.0000D-01 * RXRAT( 172 ) ! CSL+NO3=0.4000D+00*HNO3+... & + RXRAT( 173 ) ! MCT+NO3=HNO3+MCTO & + 3.2000D-01 * RXRAT( 393 ) ! ACRO+NO3=0.3200D+00*HNO3+... & + 2.0000D+00 * RXRAT( 421 ) ! N2O5=0.2000D+01*HNO3 & + 5.0000D-01 * RXRAT( 422 ) ! NO2=0.5000D+00*HNO3+... LOSS( HNO3 ) = RXRAT( 8 ) ! HNO3=HO+NO2 & + RXRAT( 62 ) ! HNO3+HO=NO3 PROD( HCHO ) = 3.5000D-01 * RXRAT( 16 ) ! UALD=0.3500D+00*HCHO+... & + RXRAT( 21 ) ! HKET=HCHO+ACO3+HO2 & + 6.7000D-01 * RXRAT( 22 ) ! MACR=0.6700D+00*HCHO+... & + RXRAT( 25 ) ! GLY=HCHO+CO & + RXRAT( 31 ) ! OP1=HCHO+HO2+HO & + 1.1600D+00 * RXRAT( 88 ) ! ISO+O3=0.1160D+01*HCHO+... & + 3.0000D-01 * RXRAT( 89 ) ! ISO+NO3=0.3000D+00*HCHO+... & + 1.5000D-01 * RXRAT( 91 ) ! ISOP+HO2=0.1500D+00*HCHO+... & + 7.0000D-01 * RXRAT( 92 ) ! ISOP+NO=0.7000D+00*HCHO+... & + 9.0000D-01 * RXRAT( 95 ) ! INO2+NO=0.9000D+00*HCHO+... & + 4.0000D-01 * RXRAT( 96 ) ! IPN+HO2=0.4000D+00*HCHO+... & + 1.5000D-01 * RXRAT( 98 ) ! ISHP+HO=0.1500D+00*HCHO+... & + 4.0000D-01 * RXRAT( 99 ) ! ISHP=0.4000D+00*HCHO+... & + RXRAT( 127 ) ! MOH+HO=HCHO+HO2 & + 3.5000D-01 * RXRAT( 131 ) ! OP1+HO=0.3500D+00*HCHO+... & + 3.5000D-01 * RXRAT( 138 ) ! PAA+HO=0.3500D+00*HCHO+... & + RXRAT( 139 ) ! PAN+HO=HCHO+NO3+XO2 & + RXRAT( 140 ) ! PPN+HO=HCHO+NO3+XO2 & + RXRAT( 144 ) ! ETE+O3=HCHO+0.1500D+00*HO2+... & + 5.6000D-01 * RXRAT( 145 ) ! OLT+O3=0.5600D+00*HCHO+... & + 9.0000D-02 * RXRAT( 146 ) ! OLI+O3=0.9000D-01*HCHO+... & + 7.9000D-01 * RXRAT( 149 ) ! LIMAL+O3=0.7900D+00*HCHO+... & + 1.0000D-01 * RXRAT( 152 ) ! MVK+O3=0.1000D+00*HCHO+... & + 8.0000D-02 * RXRAT( 153 ) ! UALD+O3=0.8000D-01*HCHO+... & + 5.0000D-02 * RXRAT( 154 ) ! DCB1+O3=0.5000D-01*HCHO+... & + 5.0000D-02 * RXRAT( 155 ) ! DCB2+O3=0.5000D-01*HCHO+... & + 6.8000D-01 * RXRAT( 167 ) ! MACR+NO3=0.6800D+00*HCHO+... & + 3.3200D-01 * RXRAT( 168 ) ! UALD+NO3=0.3320D+00*HCHO+... & + RXRAT( 183 ) ! MO2+NO=HCHO+NO2+HO2 & + 1.8000D-02 * RXRAT( 186 ) ! HC5P+NO=0.1800D-01*HCHO+... & + 1.6000D+00 * RXRAT( 187 ) ! ETEP+NO=0.1600D+01*HCHO+... & + 7.8000D-01 * RXRAT( 188 ) ! OLTP+NO=0.7800D+00*HCHO+... & + 2.8000D-01 * RXRAT( 198 ) ! LIMP1+NO=0.2800D+00*HCHO+... & + 9.5000D-01 * RXRAT( 202 ) ! PINALP+NO=0.9500D+00*HCHO+... & + 9.4000D-01 * RXRAT( 203 ) ! LIMALP+NO=0.9400D+00*HCHO+... & + RXRAT( 206 ) ! ACTP+NO=HCHO+NO2+ACO3 & + 3.3000D-01 * RXRAT( 207 ) ! MEKP+NO=0.3300D+00*HCHO+... & + 6.5000D-01 * RXRAT( 209 ) ! MACP+NO=0.6500D+00*HCHO+... & + 5.0000D-01 * RXRAT( 210 ) ! MCP+NO=0.5000D+00*HCHO+... & + 3.0000D-01 * RXRAT( 211 ) ! MVKP+NO=0.3000D+00*HCHO+... & + 3.0000D-02 * RXRAT( 212 ) ! UALP+NO=0.3000D-01*HCHO+... & + 2.8700D-01 * RXRAT( 219 ) ! OLND+NO=0.2870D+00*HCHO+... & + 1.5000D-01 * RXRAT( 248 ) ! ACTP+HO2=0.1500D+00*HCHO+... & + 1.3700D+00 * RXRAT( 263 ) ! MO2+MO2=0.1370D+01*HCHO+... & + 7.5000D-01 * RXRAT( 264 ) ! ETHP+MO2=0.7500D+00*HCHO+... & + 8.2700D-01 * RXRAT( 265 ) ! HC3P+MO2=0.8270D+00*HCHO+... & + 7.7700D-01 * RXRAT( 266 ) ! HC5P+MO2=0.7770D+00*HCHO+... & + 1.9500D+00 * RXRAT( 267 ) ! ETEP+MO2=0.1950D+01*HCHO+... & + 1.5000D+00 * RXRAT( 268 ) ! OLTP+MO2=0.1500D+01*HCHO+... & + 7.5000D-01 * RXRAT( 269 ) ! OLIP+MO2=0.7500D+00*HCHO+... & + 6.8000D-01 * RXRAT( 270 ) ! BENP+MO2=0.6800D+00*HCHO+... & + 6.8000D-01 * RXRAT( 271 ) ! TOLP+MO2=0.6800D+00*HCHO+... & + 6.8000D-01 * RXRAT( 272 ) ! XYMP+MO2=0.6800D+00*HCHO+... & + 6.8000D-01 * RXRAT( 273 ) ! XYEP+MO2=0.6800D+00*HCHO+... & + 1.3100D+00 * RXRAT( 274 ) ! ISOP+MO2=0.1310D+01*HCHO+... & + 6.8000D-01 * RXRAT( 275 ) ! APIP1+MO2=0.6800D+00*HCHO+... & + 7.5000D-01 * RXRAT( 276 ) ! APIP2+MO2=0.7500D+00*HCHO+... & + 6.8000D-01 * RXRAT( 277 ) ! APINP1+MO2=0.6800D+00*HCHO+... & + 7.5000D-01 * RXRAT( 278 ) ! APINP2+MO2=0.7500D+00*HCHO+... & + RXRAT( 279 ) ! LIMP1+MO2=HCHO+HO2+0.4200D+... & + 7.5000D-01 * RXRAT( 280 ) ! LIMP2+MO2=0.7500D+00*HCHO+... & + 6.8000D-01 * RXRAT( 281 ) ! LIMNP1+MO2=0.6800D+00*HCHO+... & + 7.5000D-01 * RXRAT( 282 ) ! LIMNP2+MO2=0.7500D+00*HCHO+... & + RXRAT( 283 ) ! ACO3+MO2=HCHO+0.9000D+... & + RXRAT( 284 ) ! RCO3+MO2=HCHO+0.9000D+... & + 1.5000D+00 * RXRAT( 285 ) ! ACTP+MO2=0.1500D+01*HCHO+... & + RXRAT( 286 ) ! MEKP+MO2=HCHO+0.8340D+... & + 7.5000D-01 * RXRAT( 287 ) ! KETP+MO2=0.7500D+00*HCHO+... & + 1.6600D+00 * RXRAT( 288 ) ! MACP+MO2=0.1660D+01*HCHO+... & + 1.5000D+00 * RXRAT( 289 ) ! MCP+MO2=0.1500D+01*HCHO+... & + 1.5000D+00 * RXRAT( 290 ) ! MVKP+MO2=0.1500D+01*HCHO+... & + 7.7300D-01 * RXRAT( 291 ) ! UALP+MO2=0.7730D+00*HCHO+... & + RXRAT( 292 ) ! BALP+MO2=HCHO+BAL1+HO2 & + RXRAT( 293 ) ! BAL1+MO2=HCHO+BAL2+HO2 & + RXRAT( 294 ) ! ADDC+MO2=HCHO+0.2000D+... & + RXRAT( 295 ) ! MCTP+MO2=HCHO+MCTO+HO2 & + RXRAT( 296 ) ! ORAP+MO2=HCHO+HO2+GLY & + RXRAT( 297 ) ! OLNN+MO2=HCHO+0.2000D+... & + 9.6500D-01 * RXRAT( 298 ) ! OLND+MO2=0.9650D+00*HCHO+... & + RXRAT( 299 ) ! ADCN+MO2=HCHO+0.7000D+... & + RXRAT( 300 ) ! XO2+MO2=HCHO+HO2 & + 1.3000D-01 * RXRAT( 302 ) ! HC3P+ACO3=0.1300D+00*HCHO+... & + 4.2000D-02 * RXRAT( 303 ) ! HC5P+ACO3=0.4200D-01*HCHO+... & + 1.6000D+00 * RXRAT( 304 ) ! ETEP+ACO3=0.1600D+01*HCHO+... & + RXRAT( 305 ) ! OLTP+ACO3=HCHO+0.5000D+... & + 1.0480D+00 * RXRAT( 311 ) ! ISOP+ACO3=0.1048D+01*HCHO+... & + 3.2000D-01 * RXRAT( 316 ) ! LIMP1+ACO3=0.3200D+00*HCHO+... & + RXRAT( 322 ) ! ACTP+ACO3=HCHO+0.5000D+... & + 3.3000D-01 * RXRAT( 323 ) ! MEKP+ACO3=0.3300D+00*HCHO+... & + RXRAT( 325 ) ! MACP+ACO3=HCHO+0.5000D+... & + RXRAT( 326 ) ! MCP+ACO3=HCHO+0.5000D+... & + RXRAT( 327 ) ! MVKP+ACO3=HCHO+0.5000D+... & + 3.0000D-02 * RXRAT( 328 ) ! UALP+ACO3=0.3000D-01*HCHO+... & + 2.8700D-01 * RXRAT( 335 ) ! OLND+ACO3=0.2870D+00*HCHO+... & + RXRAT( 339 ) ! MO2+NO3=HCHO+HO2+NO2 & + 2.4000D-02 * RXRAT( 342 ) ! HC5P+NO3=0.2400D-01*HCHO+... & + 1.6000D+00 * RXRAT( 343 ) ! ETEP+NO3=0.1600D+01*HCHO+... & + 7.9000D-01 * RXRAT( 344 ) ! OLTP+NO3=0.7900D+00*HCHO+... & + 7.5000D-01 * RXRAT( 350 ) ! ISOP+NO3=0.7500D+00*HCHO+... & + 3.8500D-01 * RXRAT( 352 ) ! LIMP1+NO3=0.3850D+00*HCHO+... & + RXRAT( 355 ) ! ACTP+NO3=HCHO+NO2+ACO3 & + 3.3000D-01 * RXRAT( 356 ) ! MEKP+NO3=0.3300D+00*HCHO+... & + RXRAT( 358 ) ! MACP+NO3=HCHO+0.5380D+... & + RXRAT( 359 ) ! MCP+NO3=HCHO+HO2+NO2+HKET & + 3.0000D-01 * RXRAT( 360 ) ! MVKP+NO3=0.3000D+00*HCHO+... & + 3.0000D-02 * RXRAT( 361 ) ! UALP+NO3=0.3000D-01*HCHO+... & + 2.8700D-01 * RXRAT( 368 ) ! OLND+NO3=0.2870D+00*HCHO+... & + 2.0200D-01 * RXRAT( 371 ) ! OLNN+OLND=0.2020D+00*HCHO+... & + 5.0400D-01 * RXRAT( 372 ) ! OLND+OLND=0.5040D+00*HCHO+... & + 4.8000D-01 * RXRAT( 378 ) ! APIP2+ISOP=0.4800D+00*HCHO+... & + 4.8000D-01 * RXRAT( 381 ) ! LIMP2+ISOP=0.4800D+00*HCHO+... & + 4.8000D-01 * RXRAT( 384 ) ! APINP2+ISOP=0.4800D+... & + 4.8000D-01 * RXRAT( 387 ) ! LIMNP2+ISOP=0.4800D+... & + 7.2000D-01 * RXRAT( 392 ) ! ACRO+O3=0.7200D+00*HCHO+... & + 6.8000D-01 * RXRAT( 393 ) ! ACRO+NO3=0.6800D+00*HCHO+... & + 1.5000D-01 * RXRAT( 394 ) ! ACRO=0.1500D+00*HCHO+... & + 8.9500D-01 * RXRAT( 396 ) ! BDE13P+NO=0.8950D+00*HCHO+... & + 9.2500D-01 * RXRAT( 397 ) ! BDE13P+NO3=0.9250D+00*HCHO+... & + 1.1430D+00 * RXRAT( 399 ) ! BDE13P+MO2=0.1143D+01*HCHO+... & + 7.4000D-01 * RXRAT( 400 ) ! BDE13P+ACO3=0.7400D+... & + 8.3000D-01 * RXRAT( 401 ) ! BDE13+O3=0.8300D+00*HCHO+... & + 6.8000D-01 * RXRAT( 487 ) ! VROCP6AROP+MO2=0.6800D+... & + 6.8000D-01 * RXRAT( 493 ) ! VROCP5AROP+MO2=0.6800D+... & + 6.8000D-01 * RXRAT( 499 ) ! NAPHP+MO2=0.6800D+00*HCHO+... LOSS( HCHO ) = RXRAT( 10 ) ! HCHO=CO & + RXRAT( 11 ) ! HCHO=0.2000D+01*HO2+CO & + RXRAT( 108 ) ! HCHO+HO=HO2+CO & + RXRAT( 164 ) ! HCHO+NO3=HO2+CO+HNO3 PROD( CO ) = RXRAT( 10 ) ! HCHO=CO & + RXRAT( 11 ) ! HCHO=CO+0.2000D+01*HO2 & + RXRAT( 12 ) ! ACD=CO+MO2+HO2 & + RXRAT( 13 ) ! ALD=CO+ETHP+HO2 & + RXRAT( 15 ) ! ACT=CO+0.2000D+01*MO2 & + 1.2200D+00 * RXRAT( 16 ) ! UALD=0.1220D+01*CO+0.7840D+... & + RXRAT( 17 ) ! PINAL=CO+HC10P+HO2 & + RXRAT( 18 ) ! LIMAL=CO+HC10P+HO2 & + 1.0000D-01 * RXRAT( 19 ) ! MEK=0.1000D+00*CO+ETHP+... & + 5.0000D-01 * RXRAT( 20 ) ! KET=0.5000D+00*CO+0.5000D+... & + 6.7000D-01 * RXRAT( 22 ) ! MACR=0.6700D+00*CO+0.6600D+... & + 7.0000D-01 * RXRAT( 23 ) ! MVK=0.7000D+00*CO+0.3000D+... & + 2.0000D+00 * RXRAT( 24 ) ! GLY=0.2000D+01*CO & + RXRAT( 25 ) ! GLY=CO+HCHO & + 2.0000D+00 * RXRAT( 26 ) ! GLY=0.2000D+01*CO+0.2000D+... & + RXRAT( 27 ) ! MGLY=CO+ACO3+HO2 & + RXRAT( 28 ) ! DCB1=CO+0.2500D+00*ACO3+... & + RXRAT( 29 ) ! DCB2=CO+0.2500D+00*ACO3+... & + RXRAT( 30 ) ! BALD=CO+HO2+CHO & + 3.5000D-01 * RXRAT( 83 ) ! ACE+HO=0.3500D+00*CO+... & + 1.4000D-01 * RXRAT( 88 ) ! ISO+O3=0.1400D+00*CO+... & + RXRAT( 101 ) ! NALD+HO=CO+0.1200D+00*NO2 & + RXRAT( 102 ) ! NALD+NO3=CO & + RXRAT( 108 ) ! HCHO+HO=CO+HO2 & + 2.0000D+00 * RXRAT( 118 ) ! GLY+HO=0.2000D+01*CO+HO2 & + RXRAT( 119 ) ! MGLY+HO=CO+ACO3 & + 3.3000D-01 * RXRAT( 120 ) ! DCB1+HO=0.3300D+00*CO+... & + 3.3000D-01 * RXRAT( 121 ) ! DCB2+HO=0.3300D+00*CO+... & + 1.1000D-01 * RXRAT( 122 ) ! DCB3+HO=0.1100D+00*CO+... & + 4.3000D-01 * RXRAT( 144 ) ! ETE+O3=0.4300D+00*CO+... & + 4.3000D-01 * RXRAT( 145 ) ! OLT+O3=0.4300D+00*CO+... & + 3.7000D-01 * RXRAT( 146 ) ! OLI+O3=0.3700D+00*CO+... & + 1.4000D-01 * RXRAT( 147 ) ! API+O3=0.1400D+00*CO+... & + 1.4000D-01 * RXRAT( 148 ) ! LIM+O3=0.1400D+00*CO+... & + 2.0000D-01 * RXRAT( 149 ) ! LIMAL+O3=0.2000D+00*CO+... & + 2.2000D-01 * RXRAT( 151 ) ! MACR+O3=0.2200D+00*CO+... & + 5.6000D-01 * RXRAT( 152 ) ! MVK+O3=0.5600D+00*CO+... & + 2.4300D-01 * RXRAT( 153 ) ! UALD+O3=0.2430D+00*CO+... & + 1.5000D+00 * RXRAT( 154 ) ! DCB1+O3=0.1500D+01*CO+HO2+... & + 1.5000D+00 * RXRAT( 155 ) ! DCB2+O3=0.1500D+01*CO+HO2+... & + 1.5000D+00 * RXRAT( 156 ) ! DCB3+O3=0.1500D+01*CO+HO2+... & + RXRAT( 164 ) ! HCHO+NO3=CO+HO2+HNO3 & + 6.6800D-01 * RXRAT( 168 ) ! UALD+NO3=0.6680D+00*CO+XO2+... & + 2.0000D+00 * RXRAT( 169 ) ! GLY+NO3=0.2000D+01*CO+HO2+HNO3 & + RXRAT( 170 ) ! MGLY+NO3=CO+ACO3+HNO3 & + 6.5000D-01 * RXRAT( 209 ) ! MACP+NO=0.6500D+00*CO+... & + 6.1000D-01 * RXRAT( 212 ) ! UALP+NO=0.6100D+00*CO+NO2+... & + 5.0000D-01 * RXRAT( 288 ) ! MACP+MO2=0.5000D+00*CO+... & + 3.0500D-01 * RXRAT( 291 ) ! UALP+MO2=0.3050D+00*CO+HO2+... & + 5.0000D-01 * RXRAT( 325 ) ! MACP+ACO3=0.5000D+00*CO+... & + 5.0000D-01 * RXRAT( 328 ) ! UALP+ACO3=0.5000D+00*CO+... & + RXRAT( 358 ) ! MACP+NO3=CO+0.5380D+... & + 6.1000D-01 * RXRAT( 361 ) ! UALP+NO3=0.6100D+00*CO+NO2+... & + 8.4000D-01 * RXRAT( 392 ) ! ACRO+O3=0.8400D+00*CO+... & + RXRAT( 394 ) ! ACRO=CO+0.4770D+00*HO2+... & + 6.3000D-01 * RXRAT( 401 ) ! BDE13+O3=0.6300D+00*CO+... & + 4.3000D-01 * RXRAT( 406 ) ! FURANONE+HO=0.4300D+00*CO+... LOSS( CO ) = RXRAT( 75 ) ! CO+HO=HO2 PROD( ACD ) = RXRAT( 128 ) ! EOH+HO=ACD+HO2 & + 1.8400D-01 * RXRAT( 129 ) ! ROH+HO=0.1840D+00*ACD+... & + 1.0000D-02 * RXRAT( 145 ) ! OLT+O3=0.1000D-01*ACD+... & + 4.5700D-01 * RXRAT( 146 ) ! OLI+O3=0.4570D+00*ACD+... & + 4.2000D-01 * RXRAT( 153 ) ! UALD+O3=0.4200D+00*ACD+... & + RXRAT( 184 ) ! ETHP+NO=ACD+NO2+HO2 & + 5.0400D-01 * RXRAT( 185 ) ! HC3P+NO=0.5040D+00*ACD+... & + 4.5000D-02 * RXRAT( 186 ) ! HC5P+NO=0.4500D-01*ACD+... & + 1.2000D-02 * RXRAT( 188 ) ! OLTP+NO=0.1200D-01*ACD+... & + 8.1000D-01 * RXRAT( 189 ) ! OLIP+NO=0.8100D+00*ACD+... & + 7.5000D-01 * RXRAT( 264 ) ! ETHP+MO2=0.7500D+00*ACD+... & + RXRAT( 301 ) ! ETHP+ACO3=ACD+0.5000D+... & + RXRAT( 340 ) ! ETHP+NO3=ACD+NO2+HO2 & + 5.1900D-01 * RXRAT( 341 ) ! HC3P+NO3=0.5190D+00*ACD+... & + 4.8000D-02 * RXRAT( 342 ) ! HC5P+NO3=0.4800D-01*ACD+... & + 2.0000D-02 * RXRAT( 344 ) ! OLTP+NO3=0.2000D-01*ACD+... & + 8.5000D-01 * RXRAT( 345 ) ! OLIP+NO3=0.8500D+00*ACD+... & + 2.5810D-01 * RXRAT( 501 ) ! VROCN2OXY8+HO=0.2581D+... & + 7.9400D-02 * RXRAT( 502 ) ! VROCN2OXY4+HO=0.7940D-... & + 3.9000D-02 * RXRAT( 503 ) ! VROCN2OXY2+HO=0.3900D-... & + 1.8400D-01 * RXRAT( 504 ) ! VROCN1OXY6+HO=0.1840D+... & + 6.4600D-02 * RXRAT( 505 ) ! VROCN1OXY3+HO=0.6460D-... & + 2.4400D-02 * RXRAT( 506 ) ! VROCN1OXY1+HO=0.2440D-... & + 1.0680D-01 * RXRAT( 507 ) ! VROCP0OXY4+HO=0.1068D+... & + 4.4500D-02 * RXRAT( 508 ) ! VROCP0OXY2+HO=0.4450D-... & + 8.1800D-02 * RXRAT( 509 ) ! VROCP1OXY3+HO=0.8180D-... & + 2.9700D-02 * RXRAT( 510 ) ! VROCP1OXY1+HO=0.2970D-... & + 6.2800D-02 * RXRAT( 511 ) ! VROCP2OXY2+HO=0.6280D-... & + 6.9800D-02 * RXRAT( 512 ) ! VROCP3OXY2+HO=0.6980D-... & + 7.8600D-02 * RXRAT( 513 ) ! VROCP4OXY2+HO=0.7860D-... & + 5.2600D-02 * RXRAT( 514 ) ! VROCP5OXY1+HO=0.5260D-... & + 5.7100D-02 * RXRAT( 515 ) ! VROCP6OXY1+HO=0.5710D-... & + 2.2660D-01 * RXRAT( 516 ) ! OP3+HO=0.2266D+00*ACD+... LOSS( ACD ) = RXRAT( 12 ) ! ACD=HO2+MO2+CO & + RXRAT( 109 ) ! ACD+HO=ACO3 & + RXRAT( 165 ) ! ACD+NO3=ACO3+HNO3 PROD( MO2 ) = RXRAT( 12 ) ! ACD=MO2+HO2+CO & + RXRAT( 14 ) ! ACT=MO2+ACO3 & + 2.0000D+00 * RXRAT( 15 ) ! ACT=0.2000D+01*MO2+CO & + 1.0000D-01 * RXRAT( 19 ) ! MEK=0.1000D+00*MO2+ETHP+... & + 3.0000D-01 * RXRAT( 23 ) ! MVK=0.3000D+00*MO2+0.3000D+... & + RXRAT( 35 ) ! PAA=MO2+HO & + RXRAT( 38 ) ! PAN=MO2+NO3 & + RXRAT( 76 ) ! HO=MO2 & + 8.0000D-02 * RXRAT( 88 ) ! ISO+O3=0.8000D-01*MO2+... & + 2.0000D-02 * RXRAT( 90 ) ! ISO+HO=0.2000D-01*MO2+ISOP & + 1.0000D-01 * RXRAT( 95 ) ! INO2+NO=0.1000D+00*MO2+... & + 1.0000D-01 * RXRAT( 96 ) ! IPN+HO2=0.1000D+00*MO2+HO2+... & + 6.5000D-01 * RXRAT( 131 ) ! OP1+HO=0.6500D+00*MO2+... & + 6.4000D-01 * RXRAT( 137 ) ! ORA2+HO=0.6400D+00*MO2+... & + 8.0000D-02 * RXRAT( 145 ) ! OLT+O3=0.8000D-01*MO2+... & + 3.2000D-01 * RXRAT( 146 ) ! OLI+O3=0.3200D+00*MO2+... & + 8.0000D-03 * RXRAT( 153 ) ! UALD+O3=0.8000D-02*MO2+... & + 1.3100D-01 * RXRAT( 185 ) ! HC3P+NO=0.1310D+00*MO2+... & + 5.1000D-02 * RXRAT( 186 ) ! HC5P+NO=0.5100D-01*MO2+... & + RXRAT( 204 ) ! ACO3+NO=MO2+NO2 & + 6.5000D-01 * RXRAT( 209 ) ! MACP+NO=0.6500D+00*MO2+... & + 4.4000D-01 * RXRAT( 246 ) ! ACO3+HO2=0.4400D+00*MO2+... & + 5.0000D-01 * RXRAT( 301 ) ! ETHP+ACO3=0.5000D+00*MO2+... & + 5.8000D-01 * RXRAT( 302 ) ! HC3P+ACO3=0.5800D+00*MO2+... & + 5.1800D-01 * RXRAT( 303 ) ! HC5P+ACO3=0.5180D+00*MO2+... & + 5.0000D-01 * RXRAT( 304 ) ! ETEP+ACO3=0.5000D+00*MO2+... & + 5.0000D-01 * RXRAT( 305 ) ! OLTP+ACO3=0.5000D+00*MO2+... & + 5.0000D-01 * RXRAT( 306 ) ! OLIP+ACO3=0.5000D+00*MO2+... & + 7.0000D-01 * RXRAT( 307 ) ! BENP+ACO3=0.7000D+00*MO2+... & + 7.0000D-01 * RXRAT( 308 ) ! TOLP+ACO3=0.7000D+00*MO2+... & + 7.0000D-01 * RXRAT( 309 ) ! XYMP+ACO3=0.7000D+00*MO2+... & + 7.0000D-01 * RXRAT( 310 ) ! XYEP+ACO3=0.7000D+00*MO2+... & + 5.0000D-01 * RXRAT( 311 ) ! ISOP+ACO3=0.5000D+00*MO2+... & + 7.0000D-01 * RXRAT( 312 ) ! APIP1+ACO3=0.7000D+00*MO2+... & + 5.0000D-01 * RXRAT( 313 ) ! APIP2+ACO3=0.5000D+00*MO2+... & + 7.0000D-01 * RXRAT( 314 ) ! APINP1+ACO3=0.7000D+00*MO2+... & + 5.0000D-01 * RXRAT( 315 ) ! APINP2+ACO3=0.5000D+00*MO2+... & + 7.0000D-01 * RXRAT( 316 ) ! LIMP1+ACO3=0.7000D+00*MO2+... & + 5.0000D-01 * RXRAT( 317 ) ! LIMP2+ACO3=0.5000D+00*MO2+... & + 7.0000D-01 * RXRAT( 318 ) ! LIMNP1+ACO3=0.7000D+00*MO2+... & + 5.0000D-01 * RXRAT( 319 ) ! LIMNP2+ACO3=0.5000D+00*MO2+... & + 2.0000D+00 * RXRAT( 320 ) ! ACO3+ACO3=0.2000D+01*MO2 & + RXRAT( 321 ) ! RCO3+ACO3=MO2+ETHP & + 5.0000D-01 * RXRAT( 322 ) ! ACTP+ACO3=0.5000D+00*MO2+... & + 5.0000D-01 * RXRAT( 323 ) ! MEKP+ACO3=0.5000D+00*MO2+... & + 5.0000D-01 * RXRAT( 324 ) ! KETP+ACO3=0.5000D+00*MO2+... & + 5.0000D-01 * RXRAT( 325 ) ! MACP+ACO3=0.5000D+00*MO2+... & + 5.0000D-01 * RXRAT( 326 ) ! MCP+ACO3=0.5000D+00*MO2+... & + 5.0000D-01 * RXRAT( 327 ) ! MVKP+ACO3=0.5000D+00*MO2+... & + 5.0000D-01 * RXRAT( 328 ) ! UALP+ACO3=0.5000D+00*MO2+... & + RXRAT( 329 ) ! BALP+ACO3=MO2+BAL1 & + RXRAT( 330 ) ! BAL1+ACO3=MO2+BAL2 & + RXRAT( 331 ) ! ADDC+ACO3=MO2+0.2000D+... & + RXRAT( 332 ) ! MCTP+ACO3=MO2+HO2+MCTO & + RXRAT( 333 ) ! ORAP+ACO3=MO2+GLY & + RXRAT( 334 ) ! OLNN+ACO3=MO2+HO2+ONIT & + 5.0000D-01 * RXRAT( 335 ) ! OLND+ACO3=0.5000D+00*MO2+... & + RXRAT( 336 ) ! ADCN+ACO3=MO2+HO2+0.7000D+... & + RXRAT( 337 ) ! XO2+ACO3=MO2 & + 1.4000D-01 * RXRAT( 341 ) ! HC3P+NO3=0.1400D+00*MO2+... & + 5.5000D-02 * RXRAT( 342 ) ! HC5P+NO3=0.5500D-01*MO2+... & + RXRAT( 353 ) ! ACO3+NO3=MO2+NO2 & + 2.7000D-02 * RXRAT( 394 ) ! ACRO=0.2700D-01*MO2+... & + 7.0000D-01 * RXRAT( 400 ) ! BDE13P+ACO3=0.7000D+00*MO2+... & + 1.7000D-01 * RXRAT( 404 ) ! FURANO2+NO=0.1700D+00*MO2+... & + 8.0000D-02 * RXRAT( 405 ) ! FURANO2+HO2=0.8000D-01*MO2+... & + 3.4000D-01 * RXRAT( 406 ) ! FURANONE+HO=0.3400D+00*MO2+... & + 7.0000D-01 * RXRAT( 488 ) ! VROCP6AROP+ACO3=0.7000D+... & + 7.0000D-01 * RXRAT( 494 ) ! VROCP5AROP+ACO3=0.7000D+... & + 7.0000D-01 * RXRAT( 500 ) ! NAPHP+ACO3=0.7000D+00*MO2+... & + 2.5810D-01 * RXRAT( 501 ) ! VROCN2OXY8+HO=0.2581D+... & + 7.9400D-02 * RXRAT( 502 ) ! VROCN2OXY4+HO=0.7940D-... & + 3.9000D-02 * RXRAT( 503 ) ! VROCN2OXY2+HO=0.3900D-... & + 1.8400D-01 * RXRAT( 504 ) ! VROCN1OXY6+HO=0.1840D+... & + 6.4600D-02 * RXRAT( 505 ) ! VROCN1OXY3+HO=0.6460D-... & + 2.4400D-02 * RXRAT( 506 ) ! VROCN1OXY1+HO=0.2440D-... & + 1.0680D-01 * RXRAT( 507 ) ! VROCP0OXY4+HO=0.1068D+... & + 4.4500D-02 * RXRAT( 508 ) ! VROCP0OXY2+HO=0.4450D-... & + 8.1800D-02 * RXRAT( 509 ) ! VROCP1OXY3+HO=0.8180D-... & + 2.9700D-02 * RXRAT( 510 ) ! VROCP1OXY1+HO=0.2970D-... & + 6.2800D-02 * RXRAT( 511 ) ! VROCP2OXY2+HO=0.6280D-... & + 6.9800D-02 * RXRAT( 512 ) ! VROCP3OXY2+HO=0.6980D-... & + 7.8600D-02 * RXRAT( 513 ) ! VROCP4OXY2+HO=0.7860D-... & + 5.2600D-02 * RXRAT( 514 ) ! VROCP5OXY1+HO=0.5260D-... & + 5.7100D-02 * RXRAT( 515 ) ! VROCP6OXY1+HO=0.5710D-... & + 2.2660D-01 * RXRAT( 516 ) ! OP3+HO=0.2266D+00*MO2+... LOSS( MO2 ) = RXRAT( 183 ) ! MO2+NO=HO2+NO2+HCHO & + RXRAT( 225 ) ! MO2+HO2=OP1 & + 2.0000D+00 * RXRAT( 263 ) ! MO2+MO2=0.7400D+00*HO2+... & + RXRAT( 264 ) ! MO2+ETHP=HO2+0.7500D+... & + 9.2000D-01 * RXRAT( 265 ) ! MO2+HC3P=0.8000D-01*MO2+... & + 9.8200D-01 * RXRAT( 266 ) ! MO2+HC5P=0.1800D-01*MO2+... & + RXRAT( 267 ) ! MO2+ETEP=HO2+0.1950D+... & + RXRAT( 268 ) ! MO2+OLTP=HO2+0.1500D+... & + RXRAT( 269 ) ! MO2+OLIP=HO2+0.7500D+... & + RXRAT( 270 ) ! MO2+BENP=0.6800D+00*HCHO+... & + RXRAT( 271 ) ! MO2+TOLP=0.6800D+00*HCHO+... & + RXRAT( 272 ) ! MO2+XYMP=0.6800D+00*HCHO+... & + RXRAT( 273 ) ! MO2+XYEP=0.6800D+00*HCHO+... & + RXRAT( 274 ) ! MO2+ISOP=HO2+0.1310D+... & + RXRAT( 275 ) ! MO2+APIP1=HO2+0.6800D+... & + RXRAT( 276 ) ! MO2+APIP2=HO2+0.7500D+... & + RXRAT( 277 ) ! MO2+APINP1=0.3700D+00*HO2+... & + RXRAT( 278 ) ! MO2+APINP2=0.7500D+00*HO2+... & + RXRAT( 279 ) ! MO2+LIMP1=HO2+HCHO+0.4200D+... & + RXRAT( 280 ) ! MO2+LIMP2=HO2+0.7500D+... & + RXRAT( 281 ) ! MO2+LIMNP1=0.3700D+00*HO2+... & + RXRAT( 282 ) ! MO2+LIMNP2=0.7500D+00*HO2+... & + 1.0000D-01 * RXRAT( 283 ) ! MO2+ACO3=0.9000D+00*MO2+... & + 1.0000D-01 * RXRAT( 284 ) ! MO2+RCO3=0.9000D+00*MO2+... & + RXRAT( 285 ) ! MO2+ACTP=0.5000D+00*HO2+... & + RXRAT( 286 ) ! MO2+MEKP=0.8340D+00*HO2+... & + RXRAT( 287 ) ! MO2+KETP=HO2+0.7500D+... & + 7.5000D-01 * RXRAT( 288 ) ! MO2+MACP=0.2500D+00*MO2+... & + RXRAT( 289 ) ! MO2+MCP=NO2+HO2+0.1500D+... & + RXRAT( 290 ) ! MO2+MVKP=HO2+0.1160D+... & + RXRAT( 291 ) ! MO2+UALP=HO2+0.3050D+00*CO+... & + RXRAT( 292 ) ! MO2+BALP=HO2+BAL1+HCHO & + RXRAT( 293 ) ! MO2+BAL1=HO2+BAL2+HCHO & + RXRAT( 294 ) ! MO2+ADDC=0.2000D+01*HO2+... & + RXRAT( 295 ) ! MO2+MCTP=HO2+MCTO+HCHO & + RXRAT( 296 ) ! MO2+ORAP=HCHO+HO2+GLY & + RXRAT( 297 ) ! MO2+OLNN=0.2000D+01*HO2+... & + RXRAT( 298 ) ! MO2+OLND=0.5000D+00*HO2+... & + RXRAT( 299 ) ! MO2+ADCN=HO2+0.7000D+... & + RXRAT( 300 ) ! MO2+XO2=HO2+HCHO & + RXRAT( 339 ) ! MO2+NO3=HO2+HCHO+NO2 & + RXRAT( 399 ) ! MO2+BDE13P=0.3200D+00*MOH+... & + RXRAT( 487 ) ! MO2+VROCP6AROP=0.6800D+... & + RXRAT( 493 ) ! MO2+VROCP5AROP=0.6800D+... & + RXRAT( 499 ) ! MO2+NAPHP=0.6800D+00*HCHO+... PROD( ALD ) = 4.3400D-01 * RXRAT( 16 ) ! UALD=0.4340D+00*ALD+... & + RXRAT( 32 ) ! OP2=ALD+HO2+HO & + RXRAT( 33 ) ! OPB=ALD+HO2+HO & + RXRAT( 34 ) ! OP3=ALD+HO2+HO & + 2.0000D-01 * RXRAT( 36 ) ! ONIT=0.2000D+00*ALD+NO2+... & + 4.0000D-01 * RXRAT( 120 ) ! DCB1+HO=0.4000D+00*ALD+... & + 7.1900D-01 * RXRAT( 129 ) ! ROH+HO=0.7190D+00*ALD+HO2+... & + RXRAT( 130 ) ! ETEG+HO=ALD+HO2 & + 8.0000D-02 * RXRAT( 132 ) ! OP2+HO=0.8000D-01*ALD+... & + 8.0000D-02 * RXRAT( 133 ) ! OPB+HO=0.8000D-01*ALD+... & + 8.0000D-02 * RXRAT( 134 ) ! OP3+HO=0.8000D-01*ALD+... & + 4.4000D-01 * RXRAT( 145 ) ! OLT+O3=0.4400D+00*ALD+... & + 7.3000D-01 * RXRAT( 146 ) ! OLI+O3=0.7300D+00*ALD+... & + 1.0000D-01 * RXRAT( 152 ) ! MVK+O3=0.1000D+00*ALD+... & + 3.3200D-01 * RXRAT( 168 ) ! UALD+NO3=0.3320D+00*ALD+... & + 1.3200D-01 * RXRAT( 185 ) ! HC3P+NO=0.1320D+00*ALD+... & + 2.0300D-01 * RXRAT( 186 ) ! HC5P+NO=0.2030D+00*ALD+... & + 2.0000D-01 * RXRAT( 187 ) ! ETEP+NO=0.2000D+00*ALD+NO2+... & + 4.4000D-01 * RXRAT( 188 ) ! OLTP+NO=0.4400D+00*ALD+... & + 6.8000D-01 * RXRAT( 189 ) ! OLIP+NO=0.6800D+00*ALD+... & + 4.6000D-01 * RXRAT( 208 ) ! KETP+NO=0.4600D+00*ALD+... & + 7.0000D-01 * RXRAT( 211 ) ! MVKP+NO=0.7000D+00*ALD+... & + 2.7000D-01 * RXRAT( 212 ) ! UALP+NO=0.2700D+00*ALD+NO2+... & + 1.2400D+00 * RXRAT( 219 ) ! OLND+NO=0.1240D+01*ALD+... & + 1.9800D-01 * RXRAT( 265 ) ! HC3P+MO2=0.1980D+00*ALD+... & + 2.5100D-01 * RXRAT( 266 ) ! HC5P+MO2=0.2510D+00*ALD+... & + 1.5000D-01 * RXRAT( 267 ) ! ETEP+MO2=0.1500D+00*ALD+... & + 7.0500D-01 * RXRAT( 268 ) ! OLTP+MO2=0.7050D+00*ALD+... & + 1.2800D+00 * RXRAT( 269 ) ! OLIP+MO2=0.1280D+01*ALD+... & + 2.3000D-02 * RXRAT( 274 ) ! ISOP+MO2=0.2300D-01*ALD+... & + 1.7500D+00 * RXRAT( 290 ) ! MVKP+MO2=0.1750D+01*ALD+... & + 2.0300D-01 * RXRAT( 291 ) ! UALP+MO2=0.2030D+00*ALD+... & + 9.3000D-01 * RXRAT( 298 ) ! OLND+MO2=0.9300D+00*ALD+... & + 2.7300D-01 * RXRAT( 302 ) ! HC3P+ACO3=0.2730D+00*ALD+... & + 3.8100D-01 * RXRAT( 303 ) ! HC5P+ACO3=0.3810D+00*ALD+... & + 2.0000D-01 * RXRAT( 304 ) ! ETEP+ACO3=0.2000D+00*ALD+... & + 9.4000D-01 * RXRAT( 305 ) ! OLTP+ACO3=0.9400D+00*ALD+... & + 1.7100D+00 * RXRAT( 306 ) ! OLIP+ACO3=0.1710D+01*ALD+... & + 2.3000D+00 * RXRAT( 327 ) ! MVKP+ACO3=0.2300D+01*ALD+... & + 2.7000D-01 * RXRAT( 328 ) ! UALP+ACO3=0.2700D+00*ALD+... & + 1.2400D+00 * RXRAT( 335 ) ! OLND+ACO3=0.1240D+01*ALD+... & + 1.4700D-01 * RXRAT( 341 ) ! HC3P+NO3=0.1470D+00*ALD+... & + 2.4100D-01 * RXRAT( 342 ) ! HC5P+NO3=0.2410D+00*ALD+... & + 2.0000D-01 * RXRAT( 343 ) ! ETEP+NO3=0.2000D+00*ALD+... & + 4.7000D-01 * RXRAT( 344 ) ! OLTP+NO3=0.4700D+00*ALD+... & + 7.2000D-01 * RXRAT( 345 ) ! OLIP+NO3=0.7200D+00*ALD+... & + 3.1000D-02 * RXRAT( 350 ) ! ISOP+NO3=0.3100D-01*ALD+... & + RXRAT( 351 ) ! APIP1+NO3=ALD+NO2+HO2+KET & + 7.0000D-01 * RXRAT( 360 ) ! MVKP+NO3=0.7000D+00*ALD+... & + 2.7000D-01 * RXRAT( 361 ) ! UALP+NO3=0.2700D+00*ALD+... & + 1.2400D+00 * RXRAT( 368 ) ! OLND+NO3=0.1240D+01*ALD+... & + 6.4000D-01 * RXRAT( 371 ) ! OLNN+OLND=0.6400D+00*ALD+... & + 1.2100D+00 * RXRAT( 372 ) ! OLND+OLND=0.1210D+01*ALD+... & + RXRAT( 407 ) ! FURAN+O3=ALD+0.2000D-01*HO & + 3.8700D-01 * RXRAT( 409 ) ! PROG+HO=0.3870D+00*ALD+... & + 2.5810D-01 * RXRAT( 501 ) ! VROCN2OXY8+HO=0.2581D+... & + 7.9400D-02 * RXRAT( 502 ) ! VROCN2OXY4+HO=0.7940D-... & + 3.9000D-02 * RXRAT( 503 ) ! VROCN2OXY2+HO=0.3900D-... & + 1.8400D-01 * RXRAT( 504 ) ! VROCN1OXY6+HO=0.1840D+... & + 6.4600D-02 * RXRAT( 505 ) ! VROCN1OXY3+HO=0.6460D-... & + 2.4400D-02 * RXRAT( 506 ) ! VROCN1OXY1+HO=0.2440D-... & + 1.0680D-01 * RXRAT( 507 ) ! VROCP0OXY4+HO=0.1068D+... & + 4.4500D-02 * RXRAT( 508 ) ! VROCP0OXY2+HO=0.4450D-... & + 8.1800D-02 * RXRAT( 509 ) ! VROCP1OXY3+HO=0.8180D-... & + 2.9700D-02 * RXRAT( 510 ) ! VROCP1OXY1+HO=0.2970D-... & + 6.2800D-02 * RXRAT( 511 ) ! VROCP2OXY2+HO=0.6280D-... & + 6.9800D-02 * RXRAT( 512 ) ! VROCP3OXY2+HO=0.6980D-... & + 7.8600D-02 * RXRAT( 513 ) ! VROCP4OXY2+HO=0.7860D-... & + 5.2600D-02 * RXRAT( 514 ) ! VROCP5OXY1+HO=0.5260D-... & + 5.7100D-02 * RXRAT( 515 ) ! VROCP6OXY1+HO=0.5710D-... & + 2.2660D-01 * RXRAT( 516 ) ! OP3+HO=0.2266D+00*ALD+... LOSS( ALD ) = RXRAT( 13 ) ! ALD=HO2+ETHP+CO & + RXRAT( 110 ) ! ALD+HO=RCO3 & + RXRAT( 166 ) ! ALD+NO3=RCO3+HNO3 PROD( ETHP ) = RXRAT( 13 ) ! ALD=ETHP+HO2+CO & + RXRAT( 19 ) ! MEK=ETHP+0.1000D+00*MO2+... & + 1.5000D+00 * RXRAT( 20 ) ! KET=0.1500D+01*ETHP+... & + RXRAT( 77 ) ! ETH+HO=ETHP & + 6.0000D-02 * RXRAT( 145 ) ! OLT+O3=0.6000D-01*ETHP+... & + 7.0000D-02 * RXRAT( 146 ) ! OLI+O3=0.7000D-01*ETHP+... & + 4.8000D-02 * RXRAT( 185 ) ! HC3P+NO=0.4800D-01*ETHP+... & + 2.3100D-01 * RXRAT( 186 ) ! HC5P+NO=0.2310D+00*ETHP+... & + RXRAT( 205 ) ! RCO3+NO=ETHP+NO2 & + 4.4000D-01 * RXRAT( 247 ) ! RCO3+HO2=0.4400D+00*ETHP+... & + 2.6000D-02 * RXRAT( 265 ) ! HC3P+MO2=0.2600D-01*ETHP+... & + 1.4000D-01 * RXRAT( 266 ) ! HC5P+MO2=0.1400D+00*ETHP+... & + 2.6000D-02 * RXRAT( 302 ) ! HC3P+ACO3=0.2600D-01*ETHP+... & + 1.4000D-01 * RXRAT( 303 ) ! HC5P+ACO3=0.1400D+00*ETHP+... & + RXRAT( 321 ) ! RCO3+ACO3=ETHP+MO2 & + 2.0000D+00 * RXRAT( 338 ) ! RCO3+RCO3=0.2000D+01*ETHP & + 5.0300D-01 * RXRAT( 341 ) ! HC3P+NO3=0.5030D+00*ETHP+... & + 2.8000D-01 * RXRAT( 342 ) ! HC5P+NO3=0.2800D+00*ETHP+... & + RXRAT( 354 ) ! RCO3+NO3=ETHP+NO2 & + RXRAT( 374 ) ! XO2+RCO3=ETHP & + 8.5200D-01 * RXRAT( 389 ) ! VROCIOXY+HO=0.8520D+... & + RXRAT( 390 ) ! SLOWROC+HO=ETHP+0.1010D-... & + 2.5810D-01 * RXRAT( 501 ) ! VROCN2OXY8+HO=0.2581D+... & + 7.9400D-02 * RXRAT( 502 ) ! VROCN2OXY4+HO=0.7940D-... & + 3.9000D-02 * RXRAT( 503 ) ! VROCN2OXY2+HO=0.3900D-... & + 1.8400D-01 * RXRAT( 504 ) ! VROCN1OXY6+HO=0.1840D+... & + 6.4600D-02 * RXRAT( 505 ) ! VROCN1OXY3+HO=0.6460D-... & + 2.4400D-02 * RXRAT( 506 ) ! VROCN1OXY1+HO=0.2440D-... & + 1.0680D-01 * RXRAT( 507 ) ! VROCP0OXY4+HO=0.1068D+... & + 4.4500D-02 * RXRAT( 508 ) ! VROCP0OXY2+HO=0.4450D-... & + 8.1800D-02 * RXRAT( 509 ) ! VROCP1OXY3+HO=0.8180D-... & + 2.9700D-02 * RXRAT( 510 ) ! VROCP1OXY1+HO=0.2970D-... & + 6.2800D-02 * RXRAT( 511 ) ! VROCP2OXY2+HO=0.6280D-... & + 6.9800D-02 * RXRAT( 512 ) ! VROCP3OXY2+HO=0.6980D-... & + 7.8600D-02 * RXRAT( 513 ) ! VROCP4OXY2+HO=0.7860D-... & + 5.2600D-02 * RXRAT( 514 ) ! VROCP5OXY1+HO=0.5260D-... & + 5.7100D-02 * RXRAT( 515 ) ! VROCP6OXY1+HO=0.5710D-... & + 2.2660D-01 * RXRAT( 516 ) ! OP3+HO=0.2266D+00*ETHP+... LOSS( ETHP ) = RXRAT( 184 ) ! ETHP+NO=HO2+NO2+ACD & + RXRAT( 226 ) ! ETHP+HO2=OP2 & + RXRAT( 264 ) ! ETHP+MO2=HO2+0.7500D+... & + RXRAT( 301 ) ! ETHP+ACO3=0.5000D+00*HO2+... & + RXRAT( 340 ) ! ETHP+NO3=HO2+NO2+ACD PROD( ACT ) = 3.0000D-02 * RXRAT( 145 ) ! OLT+O3=0.3000D-01*ACT+... & + 1.1000D-01 * RXRAT( 146 ) ! OLI+O3=0.1100D+00*ACT+... & + 1.6500D-01 * RXRAT( 185 ) ! HC3P+NO=0.1650D+00*ACT+... & + 2.1700D-01 * RXRAT( 186 ) ! HC5P+NO=0.2170D+00*ACT+... & + 6.0000D-02 * RXRAT( 188 ) ! OLTP+NO=0.6000D-01*ACT+... & + 2.0000D-01 * RXRAT( 189 ) ! OLIP+NO=0.2000D+00*ACT+... & + 9.5000D-02 * RXRAT( 341 ) ! HC3P+NO3=0.9500D-01*ACT+... & + 2.4700D-01 * RXRAT( 342 ) ! HC5P+NO3=0.2470D+00*ACT+... & + 9.0000D-02 * RXRAT( 344 ) ! OLTP+NO3=0.9000D-01*ACT+... & + 2.0000D-01 * RXRAT( 345 ) ! OLIP+NO3=0.2000D+00*ACT+... LOSS( ACT ) = RXRAT( 14 ) ! ACT=MO2+ACO3 & + RXRAT( 15 ) ! ACT=0.2000D+01*MO2+CO & + RXRAT( 111 ) ! ACT+HO=ACTP PROD( UALD ) = 7.0000D-01 * RXRAT( 23 ) ! MVK=0.7000D+00*UALD+... & + 2.8000D-01 * RXRAT( 198 ) ! LIMP1+NO=0.2800D+00*UALD+... & + 3.3300D-01 * RXRAT( 395 ) ! BDE13+HO=0.3330D+00*UALD+... & + 1.9000D-02 * RXRAT( 399 ) ! BDE13P+MO2=0.1900D-01*UALD+... & + 1.5000D-02 * RXRAT( 400 ) ! BDE13P+ACO3=0.1500D-... LOSS( UALD ) = RXRAT( 16 ) ! UALD=0.1220D+01*HO2+... & + RXRAT( 117 ) ! UALD+HO=0.3130D+00*ACO3+... & + RXRAT( 153 ) ! UALD+O3=0.1000D+00*HO+... & + RXRAT( 168 ) ! UALD+NO3=HO2+XO2+0.6680D+... PROD( KET ) = 2.1600D-01 * RXRAT( 16 ) ! UALD=0.2160D+00*KET+... & + 8.0000D-01 * RXRAT( 36 ) ! ONIT=0.8000D+00*KET+NO2+... & + 7.8000D-01 * RXRAT( 120 ) ! DCB1+HO=0.7800D+00*KET+... & + 4.1000D-01 * RXRAT( 132 ) ! OP2+HO=0.4100D+00*KET+... & + 4.1000D-01 * RXRAT( 133 ) ! OPB+HO=0.4100D+00*KET+... & + 4.1000D-01 * RXRAT( 134 ) ! OP3+HO=0.4100D+00*KET+... & + 1.7000D-02 * RXRAT( 146 ) ! OLI+O3=0.1700D-01*KET+... & + 3.3000D-01 * RXRAT( 149 ) ! LIMAL+O3=0.3300D+00*KET+... & + 2.8000D-02 * RXRAT( 153 ) ! UALD+O3=0.2800D-01*KET+... & + 3.3000D-02 * RXRAT( 186 ) ! HC5P+NO=0.3300D-01*KET+... & + 9.0000D-02 * RXRAT( 189 ) ! OLIP+NO=0.9000D-01*KET+... & + 9.5000D-01 * RXRAT( 202 ) ! PINALP+NO=0.9500D+00*KET+... & + 9.4000D-01 * RXRAT( 203 ) ! LIMALP+NO=0.9400D+00*KET+... & + 7.0000D-01 * RXRAT( 212 ) ! UALP+NO=0.7000D+00*KET+NO2+... & + 4.6400D-01 * RXRAT( 219 ) ! OLND+NO=0.4640D+00*KET+... & + 4.9700D-01 * RXRAT( 265 ) ! HC3P+MO2=0.4970D+00*KET+... & + 6.1800D-01 * RXRAT( 266 ) ! HC5P+MO2=0.6180D+00*KET+... & + 4.5000D-02 * RXRAT( 268 ) ! OLTP+MO2=0.4500D-01*KET+... & + 2.1800D-01 * RXRAT( 269 ) ! OLIP+MO2=0.2180D+00*KET+... & + 7.0000D-02 * RXRAT( 275 ) ! APIP1+MO2=0.7000D-01*KET+... & + 3.0000D-01 * RXRAT( 279 ) ! LIMP1+MO2=0.3000D+00*KET+... & + 5.2500D-01 * RXRAT( 291 ) ! UALP+MO2=0.5250D+00*KET+... & + 3.4800D-01 * RXRAT( 298 ) ! OLND+MO2=0.3480D+00*KET+... & + 6.6200D-01 * RXRAT( 302 ) ! HC3P+ACO3=0.6620D+00*KET+... & + 8.2400D-01 * RXRAT( 303 ) ! HC5P+ACO3=0.8240D+00*KET+... & + 6.0000D-02 * RXRAT( 305 ) ! OLTP+ACO3=0.6000D-01*KET+... & + 2.9000D-01 * RXRAT( 306 ) ! OLIP+ACO3=0.2900D+00*KET+... & + 7.0000D-02 * RXRAT( 312 ) ! APIP1+ACO3=0.7000D-01*KET+... & + 3.0000D-01 * RXRAT( 316 ) ! LIMP1+ACO3=0.3000D+00*KET+... & + 7.0000D-01 * RXRAT( 328 ) ! UALP+ACO3=0.7000D+00*KET+... & + 4.6400D-01 * RXRAT( 335 ) ! OLND+ACO3=0.4640D+00*KET+... & + 6.0000D-02 * RXRAT( 342 ) ! HC5P+NO3=0.6000D-01*KET+... & + 1.1000D-01 * RXRAT( 345 ) ! OLIP+NO3=0.1100D+00*KET+... & + RXRAT( 351 ) ! APIP1+NO3=KET+NO2+ALD+HO2 & + 7.0000D-01 * RXRAT( 361 ) ! UALP+NO3=0.7000D+00*KET+... & + 4.6400D-01 * RXRAT( 368 ) ! OLND+NO3=0.4640D+00*KET+... & + 1.4900D-01 * RXRAT( 371 ) ! OLNN+OLND=0.1490D+00*KET+... & + 2.8500D-01 * RXRAT( 372 ) ! OLND+OLND=0.2850D+00*KET+... & + 6.5000D-01 * RXRAT( 406 ) ! FURANONE+HO=0.6500D+00*KET+... & + 8.8000D-01 * RXRAT( 468 ) ! HC10P2+NO=0.8800D+00*KET+... & + RXRAT( 475 ) ! HC10P2+NO3=KET+NO2+HO2 & + 7.9400D-02 * RXRAT( 502 ) ! VROCN2OXY4+HO=0.7940D-... & + 1.8400D-01 * RXRAT( 504 ) ! VROCN1OXY6+HO=0.1840D+... & + 1.0680D-01 * RXRAT( 507 ) ! VROCP0OXY4+HO=0.1068D+... LOSS( KET ) = RXRAT( 20 ) ! KET=0.1500D+01*ETHP+... & + RXRAT( 113 ) ! KET+HO=KETP PROD( PINAL ) = 5.0000D-02 * RXRAT( 147 ) ! API+O3=0.5000D-01*PINAL+... & + 8.2000D-01 * RXRAT( 194 ) ! APIP1+NO=0.8200D+00*PINAL+... & + RXRAT( 196 ) ! APINP1+NO=PINAL+0.2000D+01*NO2 & + 6.0000D-01 * RXRAT( 275 ) ! APIP1+MO2=0.6000D+00*PINAL+... & + 8.6000D-01 * RXRAT( 277 ) ! APINP1+MO2=0.8600D+... & + 6.0000D-01 * RXRAT( 312 ) ! APIP1+ACO3=0.6000D+... & + 8.6000D-01 * RXRAT( 314 ) ! APINP1+ACO3=0.8600D+... & + 4.8000D-01 * RXRAT( 376 ) ! APIP2+APIP1=0.4800D+... & + 4.8000D-01 * RXRAT( 379 ) ! LIMP2+APIP1=0.4800D+... & + 4.8000D-01 * RXRAT( 382 ) ! APINP2+APIP1=0.4800D+... & + 4.8000D-01 * RXRAT( 385 ) ! LIMNP2+APIP1=0.4800D+... LOSS( PINAL ) = RXRAT( 17 ) ! PINAL=HO2+HC10P+CO & + RXRAT( 106 ) ! PINAL+HO=0.2300D+00*PINALP+... PROD( HC10P ) = RXRAT( 17 ) ! PINAL=HC10P+HO2+CO & + RXRAT( 18 ) ! LIMAL=HC10P+HO2+CO & + 4.4000D-01 * RXRAT( 133 ) ! OPB+HO=0.4400D+00*HC10P+... & + 4.4000D-01 * RXRAT( 134 ) ! OP3+HO=0.4400D+00*HC10P+... & + 6.7000D-01 * RXRAT( 149 ) ! LIMAL+O3=0.6700D+00*HC10P+... & + RXRAT( 433 ) ! HC10+HO=HC10P LOSS( HC10P ) = RXRAT( 440 ) ! HC10P+NO=0.7400D+00*HC10P2+... & + RXRAT( 447 ) ! HC10P+NO3=HC10P2+NO2 & + RXRAT( 454 ) ! HC10P+HO2=OP2 PROD( LIMAL ) = 5.0000D-02 * RXRAT( 148 ) ! LIM+O3=0.5000D-01*LIMAL+... & + 4.9000D-01 * RXRAT( 198 ) ! LIMP1+NO=0.4900D+00*LIMAL+... & + RXRAT( 200 ) ! LIMNP1+NO=LIMAL+0.2000D+01*NO2 & + 4.2000D-01 * RXRAT( 279 ) ! LIMP1+MO2=0.4200D+00*LIMAL+... & + 7.0000D-01 * RXRAT( 281 ) ! LIMNP1+MO2=0.7000D+... & + 4.2000D-01 * RXRAT( 316 ) ! LIMP1+ACO3=0.4200D+... & + 7.0000D-01 * RXRAT( 318 ) ! LIMNP1+ACO3=0.7000D+... & + 4.8000D-01 * RXRAT( 377 ) ! APIP2+LIMP1=0.4800D+... & + 4.8000D-01 * RXRAT( 380 ) ! LIMP2+LIMP1=0.4800D+... & + 4.8000D-01 * RXRAT( 383 ) ! APINP2+LIMP1=0.4800D+... & + 4.8000D-01 * RXRAT( 386 ) ! LIMNP2+LIMP1=0.4800D+... LOSS( LIMAL ) = RXRAT( 18 ) ! LIMAL=HO2+HC10P+CO & + RXRAT( 107 ) ! LIMAL+HO=0.7000D+00*LIMALP+... & + RXRAT( 149 ) ! LIMAL+O3=0.4000D-01*HO+... PROD( MEK ) = 1.3000D-01 * RXRAT( 121 ) ! DCB2+HO=0.1300D+00*MEK+... & + 6.0000D-02 * RXRAT( 145 ) ! OLT+O3=0.6000D-01*MEK+... & + 4.2000D-02 * RXRAT( 185 ) ! HC3P+NO=0.4200D-01*MEK+... & + 3.3000D-02 * RXRAT( 186 ) ! HC5P+NO=0.3300D-01*MEK+... & + 1.3000D-01 * RXRAT( 188 ) ! OLTP+NO=0.1300D+00*MEK+... & + 7.5000D-02 * RXRAT( 341 ) ! HC3P+NO3=0.7500D-01*MEK+... & + 6.3000D-02 * RXRAT( 342 ) ! HC5P+NO3=0.6300D-01*MEK+... & + 1.8000D-01 * RXRAT( 344 ) ! OLTP+NO3=0.1800D+00*MEK+... & + 2.5810D-01 * RXRAT( 501 ) ! VROCN2OXY8+HO=0.2581D+... & + 7.9400D-02 * RXRAT( 502 ) ! VROCN2OXY4+HO=0.7940D-... & + 3.9000D-02 * RXRAT( 503 ) ! VROCN2OXY2+HO=0.3900D-... & + 1.8400D-01 * RXRAT( 504 ) ! VROCN1OXY6+HO=0.1840D+... & + 6.4600D-02 * RXRAT( 505 ) ! VROCN1OXY3+HO=0.6460D-... & + 2.4400D-02 * RXRAT( 506 ) ! VROCN1OXY1+HO=0.2440D-... & + 1.0680D-01 * RXRAT( 507 ) ! VROCP0OXY4+HO=0.1068D+... & + 4.4500D-02 * RXRAT( 508 ) ! VROCP0OXY2+HO=0.4450D-... & + 8.1800D-02 * RXRAT( 509 ) ! VROCP1OXY3+HO=0.8180D-... & + 2.9700D-02 * RXRAT( 510 ) ! VROCP1OXY1+HO=0.2970D-... & + 6.2800D-02 * RXRAT( 511 ) ! VROCP2OXY2+HO=0.6280D-... & + 6.9800D-02 * RXRAT( 512 ) ! VROCP3OXY2+HO=0.6980D-... & + 7.8600D-02 * RXRAT( 513 ) ! VROCP4OXY2+HO=0.7860D-... & + 5.2600D-02 * RXRAT( 514 ) ! VROCP5OXY1+HO=0.5260D-... & + 5.7100D-02 * RXRAT( 515 ) ! VROCP6OXY1+HO=0.5710D-... & + 2.2660D-01 * RXRAT( 516 ) ! OP3+HO=0.2266D+00*MEK+... LOSS( MEK ) = RXRAT( 19 ) ! MEK=0.1000D+00*MO2+ETHP+... & + RXRAT( 112 ) ! MEK+HO=MEKP PROD( HKET ) = RXRAT( 141 ) ! MPAN+HO=HKET+NO2 & + 1.0000D-02 * RXRAT( 145 ) ! OLT+O3=0.1000D-01*HKET+... & + 4.4000D-02 * RXRAT( 146 ) ! OLI+O3=0.4400D-01*HKET+... & + 2.7200D-01 * RXRAT( 186 ) ! HC5P+NO=0.2720D+00*HKET+... & + 2.0000D-02 * RXRAT( 189 ) ! OLIP+NO=0.2000D-01*HKET+... & + RXRAT( 210 ) ! MCP+NO=HKET+0.5000D+00*HO2+... & + 3.2000D-01 * RXRAT( 215 ) ! ADDC+NO=0.3200D+00*HKET+... & + 1.6000D-02 * RXRAT( 274 ) ! ISOP+MO2=0.1600D-01*HKET+... & + 5.0000D-01 * RXRAT( 289 ) ! MCP+MO2=0.5000D+00*HKET+... & + 3.2000D-01 * RXRAT( 294 ) ! ADDC+MO2=0.3200D+00*HKET+... & + 5.0000D-01 * RXRAT( 326 ) ! MCP+ACO3=0.5000D+00*HKET+... & + 3.2000D-01 * RXRAT( 331 ) ! ADDC+ACO3=0.3200D+00*HKET+... & + 2.7500D-01 * RXRAT( 342 ) ! HC5P+NO3=0.2750D+00*HKET+... & + 4.0000D-02 * RXRAT( 345 ) ! OLIP+NO3=0.4000D-01*HKET+... & + 3.3000D-02 * RXRAT( 350 ) ! ISOP+NO3=0.3300D-01*HKET+... & + RXRAT( 359 ) ! MCP+NO3=HKET+HO2+HCHO+NO2 & + 3.2000D-01 * RXRAT( 364 ) ! ADDC+NO3=0.3200D+00*HKET+... & + 6.1300D-01 * RXRAT( 409 ) ! PROG+HO=0.6130D+00*HKET+... & + 3.9000D-02 * RXRAT( 503 ) ! VROCN2OXY2+HO=0.3900D-... & + 6.4600D-02 * RXRAT( 505 ) ! VROCN1OXY3+HO=0.6460D-... & + 2.4400D-02 * RXRAT( 506 ) ! VROCN1OXY1+HO=0.2440D-... & + 4.4500D-02 * RXRAT( 508 ) ! VROCP0OXY2+HO=0.4450D-... & + 8.1800D-02 * RXRAT( 509 ) ! VROCP1OXY3+HO=0.8180D-... & + 2.9700D-02 * RXRAT( 510 ) ! VROCP1OXY1+HO=0.2970D-... & + 6.2800D-02 * RXRAT( 511 ) ! VROCP2OXY2+HO=0.6280D-... & + 6.9800D-02 * RXRAT( 512 ) ! VROCP3OXY2+HO=0.6980D-... & + 7.8600D-02 * RXRAT( 513 ) ! VROCP4OXY2+HO=0.7860D-... & + 5.2600D-02 * RXRAT( 514 ) ! VROCP5OXY1+HO=0.5260D-... & + 5.7100D-02 * RXRAT( 515 ) ! VROCP6OXY1+HO=0.5710D-... LOSS( HKET ) = RXRAT( 21 ) ! HKET=HO2+ACO3+HCHO & + RXRAT( 114 ) ! HKET+HO=HO2+MGLY PROD( MACR ) = 5.3100D-01 * RXRAT( 88 ) ! ISO+O3=0.5310D+00*MACR+... & + 2.8000D-01 * RXRAT( 92 ) ! ISOP+NO=0.2800D+00*MACR+... & + 4.0000D-01 * RXRAT( 96 ) ! IPN+HO2=0.4000D+00*MACR+... & + 1.5000D-01 * RXRAT( 98 ) ! ISHP+HO=0.1500D+00*MACR+... & + 1.5900D-01 * RXRAT( 274 ) ! ISOP+MO2=0.1590D+00*MACR+... & + 2.1900D-01 * RXRAT( 311 ) ! ISOP+ACO3=0.2190D+00*MACR+... & + 3.1800D-01 * RXRAT( 350 ) ! ISOP+NO3=0.3180D+00*MACR+... & + 6.1500D-01 * RXRAT( 352 ) ! LIMP1+NO3=0.6150D+00*MACR+... LOSS( MACR ) = RXRAT( 22 ) ! MACR=0.3400D+00*HO+0.6600D+... & + RXRAT( 115 ) ! MACR+HO=0.5700D+00*MACP+... & + RXRAT( 151 ) ! MACR+O3=0.1900D+00*HO+... & + RXRAT( 167 ) ! MACR+NO3=0.6800D+00*HCHO+... PROD( MACP ) = 3.3000D-01 * RXRAT( 22 ) ! MACR=0.3300D+00*MACP+... & + 3.0000D-01 * RXRAT( 23 ) ! MVK=0.3000D+00*MACP+... & + 1.0000D-01 * RXRAT( 88 ) ! ISO+O3=0.1000D+00*MACP+... & + 5.7000D-01 * RXRAT( 115 ) ! MACR+HO=0.5700D+00*MACP+... & + 2.1000D-01 * RXRAT( 122 ) ! DCB3+HO=0.2100D+00*MACP+... & + RXRAT( 135 ) ! MAHP+HO=MACP & + 3.2000D-01 * RXRAT( 167 ) ! MACR+NO3=0.3200D+00*MACP+... & + RXRAT( 174 ) ! MPAN+NO3=MACP+NO2 & + RXRAT( 182 ) ! MPAN=MACP+NO2 & + 5.7000D-01 * RXRAT( 391 ) ! ACRO+HO=0.5700D+00*MACP+... & + 3.2000D-01 * RXRAT( 393 ) ! ACRO+NO3=0.3200D+00*MACP+... LOSS( MACP ) = RXRAT( 181 ) ! MACP+NO2=MPAN & + RXRAT( 209 ) ! MACP+NO=0.6500D+00*MO2+... & + RXRAT( 251 ) ! MACP+HO2=MAHP & + RXRAT( 288 ) ! MACP+MO2=0.5000D+00*HO2+... & + RXRAT( 325 ) ! MACP+ACO3=0.6350D+00*ORA2+... & + RXRAT( 358 ) ! MACP+NO3=HCHO+0.5380D+... PROD( XO2 ) = 3.4000D-01 * RXRAT( 22 ) ! MACR=0.3400D+00*XO2+... & + 2.0000D-01 * RXRAT( 28 ) ! DCB1=0.2000D+00*XO2+... & + 2.0000D-01 * RXRAT( 29 ) ! DCB2=0.2000D+00*XO2+... & + 7.0000D-02 * RXRAT( 132 ) ! OP2+HO=0.7000D-01*XO2+... & + 7.0000D-02 * RXRAT( 133 ) ! OPB+HO=0.7000D-01*XO2+... & + 7.0000D-02 * RXRAT( 134 ) ! OP3+HO=0.7000D-01*XO2+... & + 3.5000D-01 * RXRAT( 138 ) ! PAA+HO=0.3500D+00*XO2+... & + RXRAT( 139 ) ! PAN+HO=XO2+NO3+HCHO & + RXRAT( 140 ) ! PPN+HO=XO2+NO3+HCHO & + 1.0000D-02 * RXRAT( 152 ) ! MVK+O3=0.1000D-01*XO2+... & + 1.0000D-01 * RXRAT( 153 ) ! UALD+O3=0.1000D+00*XO2+... & + 6.0000D-01 * RXRAT( 154 ) ! DCB1+O3=0.6000D+00*XO2+HO2+... & + 6.0000D-01 * RXRAT( 155 ) ! DCB2+O3=0.6000D+00*XO2+HO2+... & + 6.8000D-01 * RXRAT( 167 ) ! MACR+NO3=0.6800D+00*XO2+... & + RXRAT( 168 ) ! UALD+NO3=XO2+HO2+0.6680D+... & + 8.9000D-02 * RXRAT( 185 ) ! HC3P+NO=0.8900D-01*XO2+... & + 2.3500D-01 * RXRAT( 186 ) ! HC5P+NO=0.2350D+00*XO2+... & + 1.6000D-01 * RXRAT( 208 ) ! KETP+NO=0.1600D+00*XO2+... & + 7.0000D-01 * RXRAT( 211 ) ! MVKP+NO=0.7000D+00*XO2+... & + 2.6000D-02 * RXRAT( 265 ) ! HC3P+MO2=0.2600D-01*XO2+... & + 1.9100D-01 * RXRAT( 266 ) ! HC5P+MO2=0.1910D+00*XO2+... & + 1.1600D+00 * RXRAT( 290 ) ! MVKP+MO2=0.1160D+01*XO2+... & + 2.6000D-02 * RXRAT( 302 ) ! HC3P+ACO3=0.2600D-01*XO2+... & + 1.9100D-01 * RXRAT( 303 ) ! HC5P+ACO3=0.1910D+00*XO2+... & + 1.1600D+00 * RXRAT( 327 ) ! MVKP+ACO3=0.1160D+01*XO2+... & + 9.2000D-02 * RXRAT( 341 ) ! HC3P+NO3=0.9200D-01*XO2+... & + 4.8500D-01 * RXRAT( 342 ) ! HC5P+NO3=0.4850D+00*XO2+... & + 7.0000D-01 * RXRAT( 360 ) ! MVKP+NO3=0.7000D+00*XO2+... & + 6.8000D-01 * RXRAT( 393 ) ! ACRO+NO3=0.6800D+00*XO2+... LOSS( XO2 ) = RXRAT( 221 ) ! XO2+NO=NO2 & + RXRAT( 262 ) ! XO2+HO2=OP2 & + RXRAT( 300 ) ! XO2+MO2=HO2+HCHO & + RXRAT( 337 ) ! XO2+ACO3=MO2 & + RXRAT( 373 ) ! XO2+NO3=NO2 & + RXRAT( 374 ) ! XO2+RCO3=ETHP & + 2.0000D+00 * RXRAT( 375 ) ! XO2+XO2= PROD( MVK ) = 1.8900D-01 * RXRAT( 88 ) ! ISO+O3=0.1890D+00*MVK+... & + 4.4000D-01 * RXRAT( 92 ) ! ISOP+NO=0.4400D+00*MVK+... & + 8.0000D-01 * RXRAT( 95 ) ! INO2+NO=0.8000D+00*MVK+... & + 9.4000D-01 * RXRAT( 96 ) ! IPN+HO2=0.9400D+00*MVK+HO2+... & + 2.0000D-01 * RXRAT( 98 ) ! ISHP+HO=0.2000D+00*MVK+... & + 2.5000D-01 * RXRAT( 274 ) ! ISOP+MO2=0.2500D+00*MVK+... & + 3.0500D-01 * RXRAT( 311 ) ! ISOP+ACO3=0.3050D+00*MVK+... & + 5.0000D-01 * RXRAT( 350 ) ! ISOP+NO3=0.5000D+00*MVK+... & + 4.8000D-01 * RXRAT( 378 ) ! APIP2+ISOP=0.4800D+00*MVK+... & + 4.8000D-01 * RXRAT( 381 ) ! LIMP2+ISOP=0.4800D+00*MVK+... & + 4.8000D-01 * RXRAT( 384 ) ! APINP2+ISOP=0.4800D+00*MVK+... & + 4.8000D-01 * RXRAT( 387 ) ! LIMNP2+ISOP=0.4800D+00*MVK+... & + 2.3100D-01 * RXRAT( 399 ) ! BDE13P+MO2=0.2310D+00*MVK+... & + 1.8500D-01 * RXRAT( 400 ) ! BDE13P+ACO3=0.1850D+00*MVK+... LOSS( MVK ) = RXRAT( 23 ) ! MVK=0.3000D+00*MO2+0.3000D+... & + RXRAT( 116 ) ! MVK+HO=MVKP & + RXRAT( 152 ) ! MVK+O3=0.1600D+00*HO+... PROD( GLY ) = 5.0000D-01 * RXRAT( 28 ) ! DCB1=0.5000D+00*GLY+... & + 5.0000D-01 * RXRAT( 29 ) ! DCB2=0.5000D+00*GLY+... & + 6.5000D-01 * RXRAT( 83 ) ! ACE+HO=0.6500D+00*GLY+... & + 2.1000D-02 * RXRAT( 92 ) ! ISOP+NO=0.2100D-01*GLY+... & + 5.0000D-02 * RXRAT( 96 ) ! IPN+HO2=0.5000D-01*GLY+HO2+... & + 2.0000D-02 * RXRAT( 98 ) ! ISHP+HO=0.2000D-01*GLY+... & + 1.0000D-01 * RXRAT( 120 ) ! DCB1+HO=0.1000D+00*GLY+... & + 1.0000D-01 * RXRAT( 121 ) ! DCB2+HO=0.1000D+00*GLY+... & + 2.7000D-01 * RXRAT( 122 ) ! DCB3+HO=0.2700D+00*GLY+... & + 4.9100D-01 * RXRAT( 153 ) ! UALD+O3=0.4910D+00*GLY+... & + 5.0000D-02 * RXRAT( 154 ) ! DCB1+O3=0.5000D-01*GLY+HO2+... & + 5.0000D-02 * RXRAT( 155 ) ! DCB2+O3=0.5000D-01*GLY+HO2+... & + 4.8000D-01 * RXRAT( 156 ) ! DCB3+O3=0.4800D+00*GLY+HO2+... & + 9.9800D-01 * RXRAT( 190 ) ! BENP+NO=0.9980D+00*GLY+... & + 5.4770D-01 * RXRAT( 191 ) ! TOLP+NO=0.5477D+00*GLY+... & + 7.0290D-01 * RXRAT( 192 ) ! XYMP+NO=0.7029D+00*GLY+... & + 5.4770D-01 * RXRAT( 193 ) ! XYEP+NO=0.5477D+00*GLY+... & + 1.8000D-01 * RXRAT( 212 ) ! UALP+NO=0.1800D+00*GLY+NO2+... & + 6.8000D-01 * RXRAT( 215 ) ! ADDC+NO=0.6800D+00*GLY+NO2+... & + RXRAT( 217 ) ! ORAP+NO=GLY+NO2+HO2 & + RXRAT( 220 ) ! ADCN+NO=GLY+0.2000D+01*NO2+OP2 & + 5.0000D-02 * RXRAT( 265 ) ! HC3P+MO2=0.5000D-01*GLY+... & + RXRAT( 270 ) ! BENP+MO2=GLY+0.1370D+... & + 5.4880D-01 * RXRAT( 271 ) ! TOLP+MO2=0.5488D+00*GLY+... & + 7.0430D-01 * RXRAT( 272 ) ! XYMP+MO2=0.7043D+00*GLY+... & + 5.4880D-01 * RXRAT( 273 ) ! XYEP+MO2=0.5488D+00*GLY+... & + 1.8000D-02 * RXRAT( 274 ) ! ISOP+MO2=0.1800D-01*GLY+... & + 1.3500D-01 * RXRAT( 291 ) ! UALP+MO2=0.1350D+00*GLY+... & + 6.8000D-01 * RXRAT( 294 ) ! ADDC+MO2=0.6800D+00*GLY+... & + RXRAT( 296 ) ! ORAP+MO2=GLY+HO2+HCHO & + 7.0000D-01 * RXRAT( 299 ) ! ADCN+MO2=0.7000D+00*GLY+... & + 6.7000D-02 * RXRAT( 302 ) ! HC3P+ACO3=0.6700D-01*GLY+... & + RXRAT( 307 ) ! BENP+ACO3=GLY+HO2+0.3000D+... & + 5.4880D-01 * RXRAT( 308 ) ! TOLP+ACO3=0.5488D+00*GLY+... & + 7.0430D-01 * RXRAT( 309 ) ! XYMP+ACO3=0.7043D+00*GLY+... & + 5.4880D-01 * RXRAT( 310 ) ! XYEP+ACO3=0.5488D+00*GLY+... & + 1.8000D-01 * RXRAT( 328 ) ! UALP+ACO3=0.1800D+00*GLY+... & + 6.8000D-01 * RXRAT( 331 ) ! ADDC+ACO3=0.6800D+00*GLY+... & + RXRAT( 333 ) ! ORAP+ACO3=GLY+MO2 & + 7.0000D-01 * RXRAT( 336 ) ! ADCN+ACO3=0.7000D+00*GLY+... & + RXRAT( 346 ) ! BENP+NO3=GLY+HO2+0.0000D+... & + 5.4880D-01 * RXRAT( 347 ) ! TOLP+NO3=0.5488D+00*GLY+... & + 7.0430D-01 * RXRAT( 348 ) ! XYMP+NO3=0.7043D+00*GLY+... & + 5.4880D-01 * RXRAT( 349 ) ! XYEP+NO3=0.5488D+00*GLY+... & + 2.4000D-02 * RXRAT( 350 ) ! ISOP+NO3=0.2400D-01*GLY+... & + 1.8000D-01 * RXRAT( 361 ) ! UALP+NO3=0.1800D+00*GLY+... & + 6.8000D-01 * RXRAT( 364 ) ! ADDC+NO3=0.6800D+00*GLY+... & + RXRAT( 366 ) ! ORAP+NO3=GLY+NO2+HO2 & + RXRAT( 369 ) ! ADCN+NO3=GLY+0.2000D+... & + 6.2000D-01 * RXRAT( 392 ) ! ACRO+O3=0.6200D+00*GLY+... & + 3.1000D-01 * RXRAT( 406 ) ! FURANONE+HO=0.3100D+00*GLY+... & + 4.6930D-01 * RXRAT( 485 ) ! VROCP6AROP+NO=0.4693D+... & + 4.7020D-01 * RXRAT( 486 ) ! VROCP6AROP+NO3=0.4702D+... & + 4.7020D-01 * RXRAT( 487 ) ! VROCP6AROP+MO2=0.4702D+... & + 4.7020D-01 * RXRAT( 488 ) ! VROCP6AROP+ACO3=0.4702D+... & + 4.6930D-01 * RXRAT( 491 ) ! VROCP5AROP+NO=0.4693D+... & + 4.7020D-01 * RXRAT( 492 ) ! VROCP5AROP+NO3=0.4702D+... & + 4.7020D-01 * RXRAT( 493 ) ! VROCP5AROP+MO2=0.4702D+... & + 4.7020D-01 * RXRAT( 494 ) ! VROCP5AROP+ACO3=0.4702D+... & + 4.6930D-01 * RXRAT( 497 ) ! NAPHP+NO=0.4693D+00*GLY+... & + 4.7020D-01 * RXRAT( 498 ) ! NAPHP+NO3=0.4702D+00*GLY+... & + 4.7020D-01 * RXRAT( 499 ) ! NAPHP+MO2=0.4702D+00*GLY+... & + 4.7020D-01 * RXRAT( 500 ) ! NAPHP+ACO3=0.4702D+00*GLY+... LOSS( GLY ) = RXRAT( 24 ) ! GLY=0.2000D+01*CO & + RXRAT( 25 ) ! GLY=HCHO+CO & + RXRAT( 26 ) ! GLY=0.2000D+01*HO2+0.2000D+... & + RXRAT( 118 ) ! GLY+HO=HO2+0.2000D+01*CO & + RXRAT( 169 ) ! GLY+NO3=HO2+0.2000D+01*CO+HNO3 & + RXRAT( 419 ) ! GLY=AGLYJ PROD( MGLY ) = 5.0000D-01 * RXRAT( 28 ) ! DCB1=0.5000D+00*MGLY+... & + 5.0000D-01 * RXRAT( 29 ) ! DCB2=0.5000D+00*MGLY+... & + 5.0000D-01 * RXRAT( 95 ) ! INO2+NO=0.5000D+00*MGLY+... & + 1.0000D-01 * RXRAT( 96 ) ! IPN+HO2=0.1000D+00*MGLY+... & + 5.0000D-02 * RXRAT( 98 ) ! ISHP+HO=0.5000D-01*MGLY+... & + 1.0000D-01 * RXRAT( 99 ) ! ISHP=0.1000D+00*MGLY+... & + RXRAT( 114 ) ! HKET+HO=MGLY+HO2 & + 1.0000D-02 * RXRAT( 120 ) ! DCB1+HO=0.1000D-01*MGLY+... & + 1.0000D-02 * RXRAT( 121 ) ! DCB2+HO=0.1000D-01*MGLY+... & + 1.0000D-02 * RXRAT( 122 ) ! DCB3+HO=0.1000D-01*MGLY+... & + 5.0000D-01 * RXRAT( 151 ) ! MACR+O3=0.5000D+00*MGLY+... & + 5.4000D-01 * RXRAT( 152 ) ! MVK+O3=0.5400D+00*MGLY+... & + 3.0000D-03 * RXRAT( 153 ) ! UALD+O3=0.3000D-02*MGLY+... & + 8.0000D-02 * RXRAT( 154 ) ! DCB1+O3=0.8000D-01*MGLY+... & + 8.0000D-02 * RXRAT( 155 ) ! DCB2+O3=0.8000D-01*MGLY+... & + 6.8000D-01 * RXRAT( 167 ) ! MACR+NO3=0.6800D+00*MGLY+... & + 3.6510D-01 * RXRAT( 191 ) ! TOLP+NO=0.3651D+00*MGLY+... & + 2.4700D-01 * RXRAT( 192 ) ! XYMP+NO=0.2470D+00*MGLY+... & + 3.6510D-01 * RXRAT( 193 ) ! XYEP+NO=0.3651D+00*MGLY+... & + 5.4000D-01 * RXRAT( 208 ) ! KETP+NO=0.5400D+00*MGLY+... & + 3.0000D-01 * RXRAT( 211 ) ! MVKP+NO=0.3000D+00*MGLY+... & + 2.1000D-01 * RXRAT( 212 ) ! UALP+NO=0.2100D+00*MGLY+... & + 3.6590D-01 * RXRAT( 271 ) ! TOLP+MO2=0.3659D+00*MGLY+... & + 2.4750D-01 * RXRAT( 272 ) ! XYMP+MO2=0.2475D+00*MGLY+... & + 3.6590D-01 * RXRAT( 273 ) ! XYEP+MO2=0.3659D+00*MGLY+... & + 5.0000D-01 * RXRAT( 290 ) ! MVKP+MO2=0.5000D+00*MGLY+... & + 1.0500D-01 * RXRAT( 291 ) ! UALP+MO2=0.1050D+00*MGLY+... & + 3.6590D-01 * RXRAT( 308 ) ! TOLP+ACO3=0.3659D+00*MGLY+... & + 2.4750D-01 * RXRAT( 309 ) ! XYMP+ACO3=0.2475D+00*MGLY+... & + 3.6590D-01 * RXRAT( 310 ) ! XYEP+ACO3=0.3659D+00*MGLY+... & + 5.0000D-01 * RXRAT( 327 ) ! MVKP+ACO3=0.5000D+00*MGLY+... & + 1.0500D-01 * RXRAT( 328 ) ! UALP+ACO3=0.1050D+00*MGLY+... & + 3.6590D-01 * RXRAT( 347 ) ! TOLP+NO3=0.3659D+00*MGLY+... & + 2.4750D-01 * RXRAT( 348 ) ! XYMP+NO3=0.2475D+00*MGLY+... & + 3.6590D-01 * RXRAT( 349 ) ! XYEP+NO3=0.3659D+00*MGLY+... & + 3.0000D-01 * RXRAT( 360 ) ! MVKP+NO3=0.3000D+00*MGLY+... & + 2.1000D-01 * RXRAT( 361 ) ! UALP+NO3=0.2100D+00*MGLY+... & + 6.8000D-01 * RXRAT( 393 ) ! ACRO+NO3=0.6800D+00*MGLY+... & + 4.6930D-01 * RXRAT( 485 ) ! VROCP6AROP+NO=0.4693D+... & + 4.7020D-01 * RXRAT( 486 ) ! VROCP6AROP+NO3=0.4702D+... & + 4.7020D-01 * RXRAT( 487 ) ! VROCP6AROP+MO2=0.4702D+... & + 4.7020D-01 * RXRAT( 488 ) ! VROCP6AROP+ACO3=0.4702D+... & + 4.6930D-01 * RXRAT( 491 ) ! VROCP5AROP+NO=0.4693D+... & + 4.7020D-01 * RXRAT( 492 ) ! VROCP5AROP+NO3=0.4702D+... & + 4.7020D-01 * RXRAT( 493 ) ! VROCP5AROP+MO2=0.4702D+... & + 4.7020D-01 * RXRAT( 494 ) ! VROCP5AROP+ACO3=0.4702D+... & + 4.6930D-01 * RXRAT( 497 ) ! NAPHP+NO=0.4693D+00*MGLY+... & + 4.7020D-01 * RXRAT( 498 ) ! NAPHP+NO3=0.4702D+00*MGLY+... & + 4.7020D-01 * RXRAT( 499 ) ! NAPHP+MO2=0.4702D+00*MGLY+... & + 4.7020D-01 * RXRAT( 500 ) ! NAPHP+ACO3=0.4702D+00*MGLY+... LOSS( MGLY ) = RXRAT( 27 ) ! MGLY=HO2+ACO3+CO & + RXRAT( 119 ) ! MGLY+HO=ACO3+CO & + RXRAT( 170 ) ! MGLY+NO3=ACO3+CO+HNO3 & + RXRAT( 420 ) ! MGLY=AGLYJ PROD( DCB1 ) = 7.0000D-01 * RXRAT( 155 ) ! DCB2+O3=0.7000D+00*DCB1+... & + 7.0000D-01 * RXRAT( 156 ) ! DCB3+O3=0.7000D+00*DCB1+... & + 5.4770D-01 * RXRAT( 191 ) ! TOLP+NO=0.5477D+00*DCB1+... & + 6.7000D-01 * RXRAT( 207 ) ! MEKP+NO=0.6700D+00*DCB1+... & + 5.4880D-01 * RXRAT( 271 ) ! TOLP+MO2=0.5488D+00*DCB1+... & + 3.3400D-01 * RXRAT( 286 ) ! MEKP+MO2=0.3340D+00*DCB1+... & + 5.0000D-01 * RXRAT( 287 ) ! KETP+MO2=0.5000D+00*DCB1+... & + 5.4880D-01 * RXRAT( 308 ) ! TOLP+ACO3=0.5488D+00*DCB1+... & + 3.3400D-01 * RXRAT( 323 ) ! MEKP+ACO3=0.3340D+00*DCB1+... & + 5.0000D-01 * RXRAT( 324 ) ! KETP+ACO3=0.5000D+00*DCB1+... & + 5.4880D-01 * RXRAT( 347 ) ! TOLP+NO3=0.5488D+00*DCB1+... & + 6.7000D-01 * RXRAT( 356 ) ! MEKP+NO3=0.6700D+00*DCB1+... & + RXRAT( 357 ) ! KETP+NO3=DCB1+NO2+HO2 & + 4.9000D-01 * RXRAT( 403 ) ! FURAN+HO=0.4900D+00*DCB1+... & + 8.0000D-01 * RXRAT( 408 ) ! FURAN+NO3=0.8000D+00*DCB1+... & + 2.5810D-01 * RXRAT( 501 ) ! VROCN2OXY8+HO=0.2581D+... & + 7.9400D-02 * RXRAT( 502 ) ! VROCN2OXY4+HO=0.7940D-... & + 3.9000D-02 * RXRAT( 503 ) ! VROCN2OXY2+HO=0.3900D-... & + 1.8400D-01 * RXRAT( 504 ) ! VROCN1OXY6+HO=0.1840D+... & + 6.4600D-02 * RXRAT( 505 ) ! VROCN1OXY3+HO=0.6460D-... & + 2.4400D-02 * RXRAT( 506 ) ! VROCN1OXY1+HO=0.2440D-... & + 1.0680D-01 * RXRAT( 507 ) ! VROCP0OXY4+HO=0.1068D+... & + 4.4500D-02 * RXRAT( 508 ) ! VROCP0OXY2+HO=0.4450D-... & + 8.1800D-02 * RXRAT( 509 ) ! VROCP1OXY3+HO=0.8180D-... & + 2.9700D-02 * RXRAT( 510 ) ! VROCP1OXY1+HO=0.2970D-... & + 6.2800D-02 * RXRAT( 511 ) ! VROCP2OXY2+HO=0.6280D-... & + 6.9800D-02 * RXRAT( 512 ) ! VROCP3OXY2+HO=0.6980D-... & + 7.8600D-02 * RXRAT( 513 ) ! VROCP4OXY2+HO=0.7860D-... & + 5.2600D-02 * RXRAT( 514 ) ! VROCP5OXY1+HO=0.5260D-... & + 5.7100D-02 * RXRAT( 515 ) ! VROCP6OXY1+HO=0.5710D-... & + 2.2660D-01 * RXRAT( 516 ) ! OP3+HO=0.2266D+00*DCB1+... LOSS( DCB1 ) = RXRAT( 28 ) ! DCB1=0.1500D+01*HO2+... & + RXRAT( 120 ) ! DCB1+HO=0.5200D+00*HO2+... & + RXRAT( 154 ) ! DCB1+O3=0.5000D-01*HO+HO2+... PROD( DCB2 ) = 2.4950D-01 * RXRAT( 190 ) ! BENP+NO=0.2495D+00*DCB2+... & + 5.9840D-01 * RXRAT( 192 ) ! XYMP+NO=0.5984D+00*DCB2+... & + 4.5640D-01 * RXRAT( 193 ) ! XYEP+NO=0.4564D+00*DCB2+... & + 2.5000D-01 * RXRAT( 270 ) ! BENP+MO2=0.2500D+00*DCB2+... & + 5.9960D-01 * RXRAT( 272 ) ! XYMP+MO2=0.5996D+00*DCB2+... & + 4.5730D-01 * RXRAT( 273 ) ! XYEP+MO2=0.4573D+00*DCB2+... & + 2.5000D-01 * RXRAT( 307 ) ! BENP+ACO3=0.2500D+00*DCB2+... & + 5.9960D-01 * RXRAT( 309 ) ! XYMP+ACO3=0.5996D+00*DCB2+... & + 4.5730D-01 * RXRAT( 310 ) ! XYEP+ACO3=0.4573D+00*DCB2+... & + 2.5000D-01 * RXRAT( 346 ) ! BENP+NO3=0.2500D+00*DCB2+... & + 5.9960D-01 * RXRAT( 348 ) ! XYMP+NO3=0.5996D+00*DCB2+... & + 4.5730D-01 * RXRAT( 349 ) ! XYEP+NO3=0.4573D+00*DCB2+... & + 4.6930D-01 * RXRAT( 485 ) ! VROCP6AROP+NO=0.4693D+... & + 4.7020D-01 * RXRAT( 486 ) ! VROCP6AROP+NO3=0.4702D+... & + 4.7020D-01 * RXRAT( 487 ) ! VROCP6AROP+MO2=0.4702D+... & + 4.7020D-01 * RXRAT( 488 ) ! VROCP6AROP+ACO3=0.4702D+... & + 4.6930D-01 * RXRAT( 491 ) ! VROCP5AROP+NO=0.4693D+... & + 4.7020D-01 * RXRAT( 492 ) ! VROCP5AROP+NO3=0.4702D+... & + 4.7020D-01 * RXRAT( 493 ) ! VROCP5AROP+MO2=0.4702D+... & + 4.7020D-01 * RXRAT( 494 ) ! VROCP5AROP+ACO3=0.4702D+... & + 4.6930D-01 * RXRAT( 497 ) ! NAPHP+NO=0.4693D+00*DCB2+... & + 4.7020D-01 * RXRAT( 498 ) ! NAPHP+NO3=0.4702D+00*DCB2+... & + 4.7020D-01 * RXRAT( 499 ) ! NAPHP+MO2=0.4702D+00*DCB2+... & + 4.7020D-01 * RXRAT( 500 ) ! NAPHP+ACO3=0.4702D+00*DCB2+... LOSS( DCB2 ) = RXRAT( 29 ) ! DCB2=0.1500D+01*HO2+... & + RXRAT( 121 ) ! DCB2+HO=0.5200D+00*HO2+... & + RXRAT( 155 ) ! DCB2+O3=0.5000D-01*HO+HO2+... PROD( BALD ) = 2.0000D-02 * RXRAT( 145 ) ! OLT+O3=0.2000D-01*BALD+... & + 8.5200D-02 * RXRAT( 191 ) ! TOLP+NO=0.8520D-01*BALD+... & + 4.8100D-02 * RXRAT( 192 ) ! XYMP+NO=0.4810D-01*BALD+... & + 8.5200D-02 * RXRAT( 193 ) ! XYEP+NO=0.8520D-01*BALD+... & + 8.5400D-02 * RXRAT( 271 ) ! TOLP+MO2=0.8540D-01*BALD+... & + 4.8200D-02 * RXRAT( 272 ) ! XYMP+MO2=0.4820D-01*BALD+... & + 8.5400D-02 * RXRAT( 273 ) ! XYEP+MO2=0.8540D-01*BALD+... & + 8.5400D-02 * RXRAT( 308 ) ! TOLP+ACO3=0.8540D-01*BALD+... & + 4.8200D-02 * RXRAT( 309 ) ! XYMP+ACO3=0.4820D-01*BALD+... & + 8.5400D-02 * RXRAT( 310 ) ! XYEP+ACO3=0.8540D-01*BALD+... & + 8.5400D-02 * RXRAT( 347 ) ! TOLP+NO3=0.8540D-01*BALD+... & + 4.8200D-02 * RXRAT( 348 ) ! XYMP+NO3=0.4820D-01*BALD+... & + 8.5400D-02 * RXRAT( 349 ) ! XYEP+NO3=0.8540D-01*BALD+... & + 5.9400D-02 * RXRAT( 485 ) ! VROCP6AROP+NO=0.5940D-... & + 5.9500D-02 * RXRAT( 486 ) ! VROCP6AROP+NO3=0.5950D-... & + 5.9500D-02 * RXRAT( 487 ) ! VROCP6AROP+MO2=0.5950D-... & + 5.9500D-02 * RXRAT( 488 ) ! VROCP6AROP+ACO3=0.5950D-... LOSS( BALD ) = RXRAT( 30 ) ! BALD=CHO+HO2+CO & + RXRAT( 123 ) ! BALD+HO=BALP PROD( CHO ) = RXRAT( 30 ) ! BALD=CHO+HO2+CO & + 5.9000D-02 * RXRAT( 124 ) ! PHEN+HO=0.5900D-01*CHO+... & + 5.6000D-02 * RXRAT( 125 ) ! CSL+HO=0.5600D-01*CHO+... & + 3.3900D-01 * RXRAT( 171 ) ! PHEN+NO3=0.3390D+00*CHO+... & + 3.2000D-01 * RXRAT( 172 ) ! CSL+NO3=0.3200D+00*CHO+... LOSS( CHO ) = RXRAT( 223 ) ! CHO+NO2=ONIT & + RXRAT( 256 ) ! CHO+HO2=CSL PROD( OP1 ) = RXRAT( 225 ) ! MO2+HO2=OP1 LOSS( OP1 ) = RXRAT( 31 ) ! OP1=HO+HO2+HCHO & + RXRAT( 131 ) ! OP1+HO=0.3500D+00*HO+... PROD( OP2 ) = 7.8000D-01 * RXRAT( 121 ) ! DCB2+HO=0.7800D+00*OP2+... & + 7.9000D-01 * RXRAT( 122 ) ! DCB3+HO=0.7900D+00*OP2+... & + 6.5000D-01 * RXRAT( 154 ) ! DCB1+O3=0.6500D+00*OP2+HO2+... & + 6.5000D-01 * RXRAT( 155 ) ! DCB2+O3=0.6500D+00*OP2+HO2+... & + 6.8000D-01 * RXRAT( 215 ) ! ADDC+NO=0.6800D+00*OP2+NO2+... & + RXRAT( 220 ) ! ADCN+NO=OP2+GLY+0.2000D+01*NO2 & + RXRAT( 226 ) ! ETHP+HO2=OP2 & + RXRAT( 227 ) ! HC3P+HO2=OP2 & + RXRAT( 228 ) ! HC5P+HO2=OP2 & + RXRAT( 229 ) ! ETEP+HO2=OP2 & + RXRAT( 230 ) ! OLTP+HO2=OP2 & + RXRAT( 231 ) ! OLIP+HO2=OP2 & + 6.0210D-01 * RXRAT( 232 ) ! BENP+HO2=0.6021D+00*OP2+... & + 7.1950D-01 * RXRAT( 233 ) ! TOLP+HO2=0.7195D+00*OP2+... & + 4.8200D-02 * RXRAT( 234 ) ! XYMP+HO2=0.4820D-01*OP2+... & + 8.5400D-02 * RXRAT( 235 ) ! XYEP+HO2=0.8540D-01*OP2+... & + 8.5000D-01 * RXRAT( 248 ) ! ACTP+HO2=0.8500D+00*OP2+... & + RXRAT( 249 ) ! MEKP+HO2=OP2 & + RXRAT( 250 ) ! KETP+HO2=OP2 & + RXRAT( 253 ) ! MVKP+HO2=OP2 & + RXRAT( 254 ) ! UALP+HO2=OP2 & + RXRAT( 255 ) ! ADDC+HO2=OP2 & + RXRAT( 257 ) ! MCTP+HO2=OP2 & + RXRAT( 258 ) ! ORAP+HO2=OP2 & + RXRAT( 261 ) ! ADCN+HO2=OP2 & + RXRAT( 262 ) ! XO2+HO2=OP2 & + 6.8000D-01 * RXRAT( 294 ) ! ADDC+MO2=0.6800D+00*OP2+... & + 7.0000D-01 * RXRAT( 299 ) ! ADCN+MO2=0.7000D+00*OP2+... & + 6.8000D-01 * RXRAT( 331 ) ! ADDC+ACO3=0.6800D+00*OP2+... & + 7.0000D-01 * RXRAT( 336 ) ! ADCN+ACO3=0.7000D+00*OP2+... & + 6.8000D-01 * RXRAT( 364 ) ! ADDC+NO3=0.6800D+00*OP2+... & + RXRAT( 369 ) ! ADCN+NO3=OP2+GLY+0.2000D+... & + RXRAT( 398 ) ! BDE13P+HO2=OP2 & + 6.0000D-01 * RXRAT( 405 ) ! FURANO2+HO2=0.6000D+00*OP2+... & + RXRAT( 454 ) ! HC10P+HO2=OP2 & + 4.0000D-03 * RXRAT( 502 ) ! VROCN2OXY4+HO=0.4000D-... & + 1.3500D-02 * RXRAT( 505 ) ! VROCN1OXY3+HO=0.1350D-... & + 6.2000D-03 * RXRAT( 506 ) ! VROCN1OXY1+HO=0.6200D-... & + 5.4000D-03 * RXRAT( 507 ) ! VROCP0OXY4+HO=0.5400D-... & + 1.7000D-02 * RXRAT( 509 ) ! VROCP1OXY3+HO=0.1700D-... & + 2.5000D-03 * RXRAT( 510 ) ! VROCP1OXY1+HO=0.2500D-... & + 2.3000D-03 * RXRAT( 511 ) ! VROCP2OXY2+HO=0.2300D-... & + 1.1400D-02 * RXRAT( 512 ) ! VROCP3OXY2+HO=0.1140D-... & + 1.5500D-02 * RXRAT( 513 ) ! VROCP4OXY2+HO=0.1550D-... & + 3.8400D-02 * RXRAT( 514 ) ! VROCP5OXY1+HO=0.3840D-... & + 5.8500D-02 * RXRAT( 515 ) ! VROCP6OXY1+HO=0.5850D-... LOSS( OP2 ) = RXRAT( 32 ) ! OP2=HO+HO2+ALD & + RXRAT( 132 ) ! OP2+HO=0.1000D-01*HO+... PROD( OPB ) = RXRAT( 236 ) ! APIP1+HO2=OPB & + RXRAT( 240 ) ! LIMP1+HO2=OPB & + RXRAT( 244 ) ! PINALP+HO2=OPB & + RXRAT( 245 ) ! LIMALP+HO2=OPB LOSS( OPB ) = RXRAT( 33 ) ! OPB=HO+HO2+ALD & + RXRAT( 133 ) ! OPB+HO=0.1000D-01*HO+... PROD( OP3 ) = 6.7470D-01 * RXRAT( 234 ) ! XYMP+HO2=0.6747D+00*OP3+... & + 6.3410D-01 * RXRAT( 235 ) ! XYEP+HO2=0.6341D+00*OP3+... & + 3.0800D-02 * RXRAT( 502 ) ! VROCN2OXY4+HO=0.3080D-... & + 2.6000D-03 * RXRAT( 503 ) ! VROCN2OXY2+HO=0.2600D-... & + 1.6300D-02 * RXRAT( 506 ) ! VROCN1OXY1+HO=0.1630D-... & + 1.0500D-02 * RXRAT( 508 ) ! VROCP0OXY2+HO=0.1050D-... & + 1.5400D-02 * RXRAT( 509 ) ! VROCP1OXY3+HO=0.1540D-... & + 6.6000D-03 * RXRAT( 510 ) ! VROCP1OXY1+HO=0.6600D-... & + 4.1000D-03 * RXRAT( 511 ) ! VROCP2OXY2+HO=0.4100D-... & + 5.0600D-02 * RXRAT( 512 ) ! VROCP3OXY2+HO=0.5060D-... & + 6.0700D-02 * RXRAT( 513 ) ! VROCP4OXY2+HO=0.6070D-... & + 2.1600D-02 * RXRAT( 514 ) ! VROCP5OXY1+HO=0.2160D-... & + 3.1600D-02 * RXRAT( 515 ) ! VROCP6OXY1+HO=0.3160D-... LOSS( OP3 ) = RXRAT( 34 ) ! OP3=HO+HO2+ALD & + RXRAT( 134 ) ! OP3+HO=0.1000D-01*HO+... & + RXRAT( 516 ) ! OP3+HO=HO+0.1188D+... PROD( PAA ) = 1.1000D-01 * RXRAT( 156 ) ! DCB3+O3=0.1100D+00*PAA+HO2+... & + 4.1000D-01 * RXRAT( 246 ) ! ACO3+HO2=0.4100D+00*PAA+... & + 4.1000D-01 * RXRAT( 247 ) ! RCO3+HO2=0.4100D+00*PAA+... LOSS( PAA ) = RXRAT( 35 ) ! PAA=HO+MO2 & + RXRAT( 138 ) ! PAA+HO=0.3500D+00*HO+... PROD( ONIT ) = RXRAT( 168 ) ! UALD+NO3=ONIT+XO2+0.6680D+... & + 6.5000D-02 * RXRAT( 185 ) ! HC3P+NO=0.6500D-01*ONIT+... & + 1.3600D-01 * RXRAT( 186 ) ! HC5P+NO=0.1360D+00*ONIT+... & + 3.0000D-02 * RXRAT( 188 ) ! OLTP+NO=0.3000D-01*ONIT+... & + 5.0000D-02 * RXRAT( 189 ) ! OLIP+NO=0.5000D-01*ONIT+... & + 2.0000D-04 * RXRAT( 191 ) ! TOLP+NO=0.2000D-03*ONIT+... & + 1.0000D-04 * RXRAT( 192 ) ! XYMP+NO=0.1000D-03*ONIT+... & + 2.0000D-04 * RXRAT( 193 ) ! XYEP+NO=0.2000D-03*ONIT+... & + RXRAT( 218 ) ! OLNN+NO=ONIT+HO2+NO2 & + RXRAT( 222 ) ! BAL2+NO2=ONIT & + RXRAT( 223 ) ! CHO+NO2=ONIT & + RXRAT( 224 ) ! MCTO+NO2=ONIT & + RXRAT( 259 ) ! OLNN+HO2=ONIT & + RXRAT( 260 ) ! OLND+HO2=ONIT & + RXRAT( 297 ) ! OLNN+MO2=ONIT+HCHO+0.2000D+... & + 5.0000D-01 * RXRAT( 298 ) ! OLND+MO2=0.5000D+00*ONIT+... & + 3.0000D-01 * RXRAT( 299 ) ! ADCN+MO2=0.3000D+00*ONIT+... & + RXRAT( 334 ) ! OLNN+ACO3=ONIT+MO2+HO2 & + 3.0000D-01 * RXRAT( 336 ) ! ADCN+ACO3=0.3000D+00*ONIT+... & + RXRAT( 367 ) ! OLNN+NO3=ONIT+NO2+HO2 & + 2.0000D+00 * RXRAT( 370 ) ! OLNN+OLNN=0.2000D+01*ONIT+HO2 & + 1.5000D+00 * RXRAT( 371 ) ! OLNN+OLND=0.1500D+01*ONIT+... & + RXRAT( 372 ) ! OLND+OLND=ONIT+0.5040D+... & + 3.2000D-02 * RXRAT( 396 ) ! BDE13P+NO=0.3200D-01*ONIT+... & + 8.0000D-02 * RXRAT( 404 ) ! FURANO2+NO=0.8000D-01*ONIT+... & + 2.6000D-01 * RXRAT( 440 ) ! HC10P+NO=0.2600D+00*ONIT+... & + 1.2000D-01 * RXRAT( 468 ) ! HC10P2+NO=0.1200D+00*ONIT+... LOSS( ONIT ) = RXRAT( 36 ) ! ONIT=HO2+NO2+0.2000D+... & + RXRAT( 142 ) ! ONIT+HO=HC3P+NO2 PROD( SO2 ) = 0.0D0 LOSS( SO2 ) = RXRAT( 74 ) ! SO2+HO=HO2+SULF+SULRXN PROD( SULF ) = RXRAT( 74 ) ! SO2+HO=SULF+HO2+SULRXN LOSS( SULF ) = 0.0D0 PROD( SULRXN ) = RXRAT( 74 ) ! SO2+HO=SULRXN+SULF+HO2 LOSS( SULRXN ) = 0.0D0 PROD( ETH ) = 2.0000D-02 * RXRAT( 145 ) ! OLT+O3=0.2000D-01*ETH+... & + 1.0000D-02 * RXRAT( 146 ) ! OLI+O3=0.1000D-01*ETH+... LOSS( ETH ) = RXRAT( 77 ) ! ETH+HO=ETHP PROD( HC3 ) = 1.5000D-02 * RXRAT( 145 ) ! OLT+O3=0.1500D-01*HC3+... & + 1.0000D-02 * RXRAT( 146 ) ! OLI+O3=0.1000D-01*HC3+... LOSS( HC3 ) = RXRAT( 78 ) ! HC3+HO=HC3P+0.2810D-04*ASOATJ PROD( HC3P ) = RXRAT( 78 ) ! HC3+HO=HC3P+0.2810D-04*ASOATJ & + 4.4000D-01 * RXRAT( 132 ) ! OP2+HO=0.4400D+00*HC3P+... & + RXRAT( 142 ) ! ONIT+HO=HC3P+NO2 & + 4.0000D-02 * RXRAT( 145 ) ! OLT+O3=0.4000D-01*HC3P+... & + 4.0000D-02 * RXRAT( 146 ) ! OLI+O3=0.4000D-01*HC3P+... & + 2.5810D-01 * RXRAT( 501 ) ! VROCN2OXY8+HO=0.2581D+... & + 7.9400D-02 * RXRAT( 502 ) ! VROCN2OXY4+HO=0.7940D-... & + 3.9000D-02 * RXRAT( 503 ) ! VROCN2OXY2+HO=0.3900D-... & + 1.8400D-01 * RXRAT( 504 ) ! VROCN1OXY6+HO=0.1840D+... & + 6.4600D-02 * RXRAT( 505 ) ! VROCN1OXY3+HO=0.6460D-... & + 2.4400D-02 * RXRAT( 506 ) ! VROCN1OXY1+HO=0.2440D-... & + 1.0680D-01 * RXRAT( 507 ) ! VROCP0OXY4+HO=0.1068D+... & + 4.4500D-02 * RXRAT( 508 ) ! VROCP0OXY2+HO=0.4450D-... & + 8.1800D-02 * RXRAT( 509 ) ! VROCP1OXY3+HO=0.8180D-... & + 2.9700D-02 * RXRAT( 510 ) ! VROCP1OXY1+HO=0.2970D-... & + 6.2800D-02 * RXRAT( 511 ) ! VROCP2OXY2+HO=0.6280D-... & + 6.9800D-02 * RXRAT( 512 ) ! VROCP3OXY2+HO=0.6980D-... & + 7.8600D-02 * RXRAT( 513 ) ! VROCP4OXY2+HO=0.7860D-... & + 5.2600D-02 * RXRAT( 514 ) ! VROCP5OXY1+HO=0.5260D-... & + 5.7100D-02 * RXRAT( 515 ) ! VROCP6OXY1+HO=0.5710D-... & + 2.2660D-01 * RXRAT( 516 ) ! OP3+HO=0.2266D+00*HC3P+... LOSS( HC3P ) = RXRAT( 185 ) ! HC3P+NO=0.6600D+00*HO2+... & + RXRAT( 227 ) ! HC3P+HO2=OP2 & + RXRAT( 265 ) ! HC3P+MO2=0.8940D+00*HO2+... & + RXRAT( 302 ) ! HC3P+ACO3=0.3940D+00*HO2+... & + RXRAT( 341 ) ! HC3P+NO3=0.2540D+00*HO2+... PROD( ASOATJ ) = 2.8100D-05 * RXRAT( 78 ) ! HC3+HO=0.2810D-04*ASOATJ+HC3P & + 1.3400D-03 * RXRAT( 79 ) ! HC5+HO=0.1340D-02*ASOATJ+HC5P & + 1.5200D-01 * RXRAT( 124 ) ! PHEN+HO=0.1520D+00*ASOATJ+... & + 2.0000D-01 * RXRAT( 125 ) ! CSL+HO=0.2000D+00*ASOATJ+... & + 1.5200D-01 * RXRAT( 171 ) ! PHEN+NO3=0.1520D+00*ASOATJ+... & + 2.0000D-01 * RXRAT( 172 ) ! CSL+NO3=0.2000D+00*ASOATJ+... & + 1.4900D-01 * RXRAT( 389 ) ! VROCIOXY+HO=0.1490D+... & + 1.0100D-03 * RXRAT( 390 ) ! SLOWROC+HO=0.1010D-... & + 4.0000D-02 * RXRAT( 406 ) ! FURANONE+HO=0.4000D-... LOSS( ASOATJ ) = 0.0D0 PROD( HC5 ) = 6.0000D-03 * RXRAT( 145 ) ! OLT+O3=0.6000D-02*HC5+... LOSS( HC5 ) = RXRAT( 79 ) ! HC5+HO=HC5P+0.1340D-02*ASOATJ PROD( HC5P ) = RXRAT( 79 ) ! HC5+HO=HC5P+0.1340D-02*ASOATJ & + 2.0000D-02 * RXRAT( 145 ) ! OLT+O3=0.2000D-01*HC5P+... & + 7.9400D-02 * RXRAT( 502 ) ! VROCN2OXY4+HO=0.7940D-... & + 9.2500D-02 * RXRAT( 503 ) ! VROCN2OXY2+HO=0.9250D-... & + 1.8400D-01 * RXRAT( 504 ) ! VROCN1OXY6+HO=0.1840D+... & + 1.7530D-01 * RXRAT( 505 ) ! VROCN1OXY3+HO=0.1753D+... & + 5.3700D-02 * RXRAT( 506 ) ! VROCN1OXY1+HO=0.5370D-... & + 1.0680D-01 * RXRAT( 507 ) ! VROCP0OXY4+HO=0.1068D+... & + 1.0550D-01 * RXRAT( 508 ) ! VROCP0OXY2+HO=0.1055D+... & + 2.2200D-01 * RXRAT( 509 ) ! VROCP1OXY3+HO=0.2220D+... & + 6.5400D-02 * RXRAT( 510 ) ! VROCP1OXY1+HO=0.6540D-... & + 1.4890D-01 * RXRAT( 511 ) ! VROCP2OXY2+HO=0.1489D+... & + 1.6560D-01 * RXRAT( 512 ) ! VROCP3OXY2+HO=0.1656D+... & + 1.7300D-01 * RXRAT( 513 ) ! VROCP4OXY2+HO=0.1730D+... & + 1.2800D-01 * RXRAT( 514 ) ! VROCP5OXY1+HO=0.1280D+... & + 1.5440D-01 * RXRAT( 515 ) ! VROCP6OXY1+HO=0.1544D+... LOSS( HC5P ) = RXRAT( 186 ) ! HC5P+NO=0.2000D+00*HO2+... & + RXRAT( 228 ) ! HC5P+HO2=OP2 & + RXRAT( 266 ) ! HC5P+MO2=0.8420D+00*HO2+... & + RXRAT( 303 ) ! HC5P+ACO3=0.3420D+00*HO2+... & + RXRAT( 342 ) ! HC5P+NO3=0.4880D+00*HO2+... PROD( ETE ) = 2.5000D-01 * RXRAT( 394 ) ! ACRO=0.2500D+00*ETE+... & + 1.7000D-01 * RXRAT( 401 ) ! BDE13+O3=0.1700D+00*ETE+... LOSS( ETE ) = RXRAT( 80 ) ! ETE+HO=ETEP & + RXRAT( 144 ) ! ETE+O3=0.8000D-01*HO+... & + RXRAT( 158 ) ! ETE+NO3=0.8000D+00*OLNN+... PROD( ETEP ) = RXRAT( 80 ) ! ETE+HO=ETEP LOSS( ETEP ) = RXRAT( 187 ) ! ETEP+NO=HO2+NO2+0.1600D+... & + RXRAT( 229 ) ! ETEP+HO2=OP2 & + RXRAT( 267 ) ! ETEP+MO2=HO2+0.1950D+... & + RXRAT( 304 ) ! ETEP+ACO3=0.5000D+00*HO2+... & + RXRAT( 343 ) ! ETEP+NO3=HO2+NO2+0.1600D+... PROD( OLT ) = 1.5000D-01 * RXRAT( 88 ) ! ISO+O3=0.1500D+00*OLT+... & + 2.5000D-01 * RXRAT( 399 ) ! BDE13P+MO2=0.2500D+00*OLT+... LOSS( OLT ) = RXRAT( 81 ) ! OLT+HO=OLTP & + RXRAT( 145 ) ! OLT+O3=0.2200D+00*HO+... & + RXRAT( 159 ) ! OLT+NO3=0.4300D+00*OLNN+... PROD( OLTP ) = RXRAT( 81 ) ! OLT+HO=OLTP LOSS( OLTP ) = RXRAT( 188 ) ! OLTP+NO=0.7800D+00*HO2+... & + RXRAT( 230 ) ! OLTP+HO2=OP2 & + RXRAT( 268 ) ! OLTP+MO2=HO2+0.1500D+... & + RXRAT( 305 ) ! OLTP+ACO3=0.5000D+00*HO2+... & + RXRAT( 344 ) ! OLTP+NO3=0.4700D+00*ALD+... PROD( OLI ) = 3.8500D-01 * RXRAT( 352 ) ! LIMP1+NO3=0.3850D+00*OLI+... LOSS( OLI ) = RXRAT( 82 ) ! OLI+HO=OLIP & + RXRAT( 146 ) ! OLI+O3=0.4600D+00*HO+... & + RXRAT( 160 ) ! OLI+NO3=0.1100D+00*OLNN+... PROD( OLIP ) = RXRAT( 82 ) ! OLI+HO=OLIP LOSS( OLIP ) = RXRAT( 189 ) ! OLIP+NO=0.8300D+00*HO2+... & + RXRAT( 231 ) ! OLIP+HO2=OP2 & + RXRAT( 269 ) ! OLIP+MO2=HO2+0.7500D+... & + RXRAT( 306 ) ! OLIP+ACO3=0.5000D+00*HO2+... & + RXRAT( 345 ) ! OLIP+NO3=0.8600D+00*HO2+... PROD( ACE ) = 0.0D0 LOSS( ACE ) = RXRAT( 83 ) ! ACE+HO=0.6500D+00*HO+... PROD( ORA1 ) = 3.5000D-01 * RXRAT( 83 ) ! ACE+HO=0.3500D+00*ORA1+... & + 2.8000D-01 * RXRAT( 88 ) ! ISO+O3=0.2800D+00*ORA1+... & + 3.7000D-01 * RXRAT( 144 ) ! ETE+O3=0.3700D+00*ORA1+... & + 3.0000D-02 * RXRAT( 145 ) ! OLT+O3=0.3000D-01*ORA1+... & + 4.5000D-01 * RXRAT( 151 ) ! MACR+O3=0.4500D+00*ORA1+... & + 7.0000D-02 * RXRAT( 152 ) ! MVK+O3=0.7000D-01*ORA1+... & + 4.4000D-02 * RXRAT( 153 ) ! UALD+O3=0.4400D-01*ORA1+... & + 2.5000D-01 * RXRAT( 156 ) ! DCB3+O3=0.2500D+00*ORA1+... LOSS( ORA1 ) = RXRAT( 136 ) ! ORA1+HO=HO2 PROD( BEN ) = 3.2000D-02 * RXRAT( 145 ) ! OLT+O3=0.3200D-01*BEN+... LOSS( BEN ) = RXRAT( 84 ) ! BEN+HO=0.4700D+00*BENP+... PROD( BENP ) = 4.7000D-01 * RXRAT( 84 ) ! BEN+HO=0.4700D+00*BENP+... LOSS( BENP ) = RXRAT( 190 ) ! BENP+NO=0.0000D+00*ONIT+... & + RXRAT( 232 ) ! BENP+HO2=0.6021D+00*OP2+... & + RXRAT( 270 ) ! BENP+MO2=0.6800D+00*HCHO+... & + RXRAT( 307 ) ! BENP+ACO3=0.7000D+00*MO2+... & + RXRAT( 346 ) ! BENP+NO3=NO2+HO2+0.0000D+... PROD( PHEN ) = 5.3000D-01 * RXRAT( 84 ) ! BEN+HO=0.5300D+00*PHEN+... LOSS( PHEN ) = RXRAT( 124 ) ! PHEN+HO=0.1520D+00*ASOATJ+... & + RXRAT( 171 ) ! PHEN+NO3=0.1520D+00*ASOATJ+... PROD( TOL ) = 0.0D0 LOSS( TOL ) = RXRAT( 85 ) ! TOL+HO=0.8200D+00*TOLP+... PROD( TOLP ) = 8.2000D-01 * RXRAT( 85 ) ! TOL+HO=0.8200D+00*TOLP+... LOSS( TOLP ) = RXRAT( 191 ) ! TOLP+NO=0.2000D-03*ONIT+... & + RXRAT( 233 ) ! TOLP+HO2=0.7195D+00*OP2+... & + RXRAT( 271 ) ! TOLP+MO2=0.6800D+00*HCHO+... & + RXRAT( 308 ) ! TOLP+ACO3=0.7000D+00*MO2+... & + RXRAT( 347 ) ! TOLP+NO3=NO2+0.9146D+... PROD( CSL ) = 1.8000D-01 * RXRAT( 85 ) ! TOL+HO=0.1800D+00*CSL+... & + 1.7000D-01 * RXRAT( 86 ) ! XYM+HO=0.1700D+00*CSL+... & + 1.8000D-01 * RXRAT( 87 ) ! XYE+HO=0.1800D+00*CSL+... & + RXRAT( 256 ) ! CHO+HO2=CSL LOSS( CSL ) = RXRAT( 125 ) ! CSL+HO=0.2000D+00*ASOATJ+... & + RXRAT( 172 ) ! CSL+NO3=0.2000D+00*ASOATJ+... PROD( XYM ) = 0.0D0 LOSS( XYM ) = RXRAT( 86 ) ! XYM+HO=0.8300D+00*XYMP+... PROD( XYMP ) = 8.3000D-01 * RXRAT( 86 ) ! XYM+HO=0.8300D+00*XYMP+... LOSS( XYMP ) = RXRAT( 192 ) ! XYMP+NO=0.1000D-03*ONIT+... & + RXRAT( 234 ) ! XYMP+HO2=0.4820D-01*OP2+... & + RXRAT( 272 ) ! XYMP+MO2=0.6800D+00*HCHO+... & + RXRAT( 309 ) ! XYMP+ACO3=0.7000D+00*MO2+... & + RXRAT( 348 ) ! XYMP+NO3=NO2+0.9518D+... PROD( XYE ) = 0.0D0 LOSS( XYE ) = RXRAT( 87 ) ! XYE+HO=0.8200D+00*XYEP+... PROD( XYEP ) = 8.2000D-01 * RXRAT( 87 ) ! XYE+HO=0.8200D+00*XYEP+... LOSS( XYEP ) = RXRAT( 193 ) ! XYEP+NO=0.2000D-03*ONIT+... & + RXRAT( 235 ) ! XYEP+HO2=0.8540D-01*OP2+... & + RXRAT( 273 ) ! XYEP+MO2=0.6800D+00*HCHO+... & + RXRAT( 310 ) ! XYEP+ACO3=0.7000D+00*MO2+... & + RXRAT( 349 ) ! XYEP+NO3=NO2+0.9146D+... PROD( ISO ) = 0.0D0 LOSS( ISO ) = RXRAT( 88 ) ! ISO+O3=0.5310D+00*MACR+... & + RXRAT( 89 ) ! ISO+NO3=INO2+0.3000D+... & + RXRAT( 90 ) ! ISO+HO=ISOP+0.2000D-01*MO2 PROD( INO2 ) = RXRAT( 89 ) ! ISO+NO3=INO2+0.3000D+... LOSS( INO2 ) = RXRAT( 94 ) ! INO2+HO2=IPN+HO & + RXRAT( 95 ) ! INO2+NO=0.9000D+00*HCHO+... PROD( NALD ) = 3.0000D-01 * RXRAT( 89 ) ! ISO+NO3=0.3000D+00*NALD+... & + 2.0000D-01 * RXRAT( 95 ) ! INO2+NO=0.2000D+00*NALD+... & + 2.0000D-01 * RXRAT( 96 ) ! IPN+HO2=0.2000D+00*NALD+... & + RXRAT( 97 ) ! ISON+HO=NALD+HO+0.2000D+... LOSS( NALD ) = RXRAT( 101 ) ! NALD+HO=CO+0.1200D+00*NO2 & + RXRAT( 102 ) ! NALD+NO3=CO PROD( ISOP ) = RXRAT( 90 ) ! ISO+HO=ISOP+0.2000D-01*MO2 & + RXRAT( 93 ) ! ISHP+HO=ISOP LOSS( ISOP ) = RXRAT( 91 ) ! ISOP+HO2=ISHP+0.6000D+... & + RXRAT( 92 ) ! ISOP+NO=0.1400D+00*ISON+... & + RXRAT( 274 ) ! ISOP+MO2=HO2+0.1310D+... & + RXRAT( 311 ) ! ISOP+ACO3=0.5000D+00*HO2+... & + RXRAT( 350 ) ! ISOP+NO3=HO2+NO2+0.7500D+... & + RXRAT( 378 ) ! ISOP+APIP2=0.9600D+00*HOM+... & + RXRAT( 381 ) ! ISOP+LIMP2=0.9600D+00*HOM+... & + RXRAT( 384 ) ! ISOP+APINP2=0.9600D+00*HOM+... & + RXRAT( 387 ) ! ISOP+LIMNP2=0.9600D+00*HOM+... PROD( ISHP ) = RXRAT( 91 ) ! ISOP+HO2=ISHP+0.6000D+... LOSS( ISHP ) = RXRAT( 93 ) ! ISHP+HO=ISOP & + RXRAT( 98 ) ! ISHP+HO=0.1500D+00*HCHO+... & + RXRAT( 99 ) ! ISHP=0.4000D+00*HCHO+... PROD( ISON ) = 1.4000D-01 * RXRAT( 92 ) ! ISOP+NO=0.1400D+00*ISON+... LOSS( ISON ) = RXRAT( 97 ) ! ISON+HO=NALD+HO+0.2000D+... & + RXRAT( 103 ) ! ISON=HNO3+ROH PROD( IPN ) = RXRAT( 94 ) ! INO2+HO2=IPN+HO LOSS( IPN ) = RXRAT( 96 ) ! IPN+HO2=0.8000D+00*NO2+HO2+... PROD( IEPOX ) = 2.0000D-01 * RXRAT( 97 ) ! ISON+HO=0.2000D+00*IEPOX+... & + 5.8000D-01 * RXRAT( 98 ) ! ISHP+HO=0.5800D+00*IEPOX+... LOSS( IEPOX ) = RXRAT( 388 ) ! IEPOX+HO=HO & + RXRAT( 424 ) ! IEPOX=IEPOXP PROD( IPC ) = 5.0000D-02 * RXRAT( 98 ) ! ISHP+HO=0.5000D-01*IPC+... LOSS( IPC ) = RXRAT( 100 ) ! IPC+NO=0.3500D+00*NO2+... PROD( ROH ) = RXRAT( 103 ) ! ISON=ROH+HNO3 & + 2.5000D-01 * RXRAT( 265 ) ! HC3P+MO2=0.2500D+00*ROH+... & + 2.5000D-01 * RXRAT( 266 ) ! HC5P+MO2=0.2500D+00*ROH+... & + 2.5000D-01 * RXRAT( 268 ) ! OLTP+MO2=0.2500D+00*ROH+... & + 2.5000D-01 * RXRAT( 269 ) ! OLIP+MO2=0.2500D+00*ROH+... & + 2.5000D-01 * RXRAT( 274 ) ! ISOP+MO2=0.2500D+00*ROH+... & + 2.5000D-01 * RXRAT( 275 ) ! APIP1+MO2=0.2500D+00*ROH+... & + 2.7000D-01 * RXRAT( 279 ) ! LIMP1+MO2=0.2700D+00*ROH+... & + 2.5000D-01 * RXRAT( 285 ) ! ACTP+MO2=0.2500D+00*ROH+... & + 2.5000D-01 * RXRAT( 286 ) ! MEKP+MO2=0.2500D+00*ROH+... & + 2.5000D-01 * RXRAT( 287 ) ! KETP+MO2=0.2500D+00*ROH+... & + 2.5000D-01 * RXRAT( 288 ) ! MACP+MO2=0.2500D+00*ROH+... & + 2.5000D-01 * RXRAT( 289 ) ! MCP+MO2=0.2500D+00*ROH+HO2+... & + 2.5000D-01 * RXRAT( 290 ) ! MVKP+MO2=0.2500D+00*ROH+... & + 2.5000D-01 * RXRAT( 291 ) ! UALP+MO2=0.2500D+00*ROH+... & + 2.5000D-01 * RXRAT( 298 ) ! OLND+MO2=0.2500D+00*ROH+... & + 2.5000D-01 * RXRAT( 312 ) ! APIP1+ACO3=0.2500D+00*ROH+... & + 2.7000D-01 * RXRAT( 316 ) ! LIMP1+ACO3=0.2700D+00*ROH+... & + 4.8000D-01 * RXRAT( 376 ) ! APIP2+APIP1=0.4800D+00*ROH+... & + 4.8000D-01 * RXRAT( 377 ) ! APIP2+LIMP1=0.4800D+00*ROH+... & + 4.8000D-01 * RXRAT( 378 ) ! APIP2+ISOP=0.4800D+00*ROH+... & + 4.8000D-01 * RXRAT( 379 ) ! LIMP2+APIP1=0.4800D+00*ROH+... & + 4.8000D-01 * RXRAT( 380 ) ! LIMP2+LIMP1=0.4800D+00*ROH+... & + 4.8000D-01 * RXRAT( 381 ) ! LIMP2+ISOP=0.4800D+00*ROH+... & + 4.8000D-01 * RXRAT( 382 ) ! APINP2+APIP1=0.4800D+... & + 4.8000D-01 * RXRAT( 383 ) ! APINP2+LIMP1=0.4800D+... & + 4.8000D-01 * RXRAT( 384 ) ! APINP2+ISOP=0.4800D+00*ROH+... & + 4.8000D-01 * RXRAT( 385 ) ! LIMNP2+APIP1=0.4800D+... & + 4.8000D-01 * RXRAT( 386 ) ! LIMNP2+LIMP1=0.4800D+... & + 4.8000D-01 * RXRAT( 387 ) ! LIMNP2+ISOP=0.4800D+00*ROH+... LOSS( ROH ) = RXRAT( 129 ) ! ROH+HO=HO2+0.7190D+00*ALD+... PROD( API ) = 0.0D0 LOSS( API ) = RXRAT( 104 ) ! API+HO=0.9750D+00*APIP1+... & + RXRAT( 147 ) ! API+O3=0.9000D+00*HO+... & + RXRAT( 161 ) ! API+NO3=0.9750D+00*APINP1+... PROD( APIP1 ) = 9.7500D-01 * RXRAT( 104 ) ! API+HO=0.9750D+00*APIP1+... & + 9.0000D-01 * RXRAT( 147 ) ! API+O3=0.9000D+00*APIP1+... LOSS( APIP1 ) = RXRAT( 194 ) ! APIP1+NO=0.8200D+00*HO2+... & + RXRAT( 236 ) ! APIP1+HO2=OPB & + RXRAT( 275 ) ! APIP1+MO2=HO2+0.6800D+... & + RXRAT( 312 ) ! APIP1+ACO3=0.6300D+00*HO2+... & + RXRAT( 351 ) ! APIP1+NO3=HO2+NO2+ALD+KET & + RXRAT( 376 ) ! APIP1+APIP2=0.9600D+00*HOM+... & + RXRAT( 379 ) ! APIP1+LIMP2=0.9600D+00*HOM+... & + RXRAT( 382 ) ! APIP1+APINP2=0.9600D+... & + RXRAT( 385 ) ! APIP1+LIMNP2=0.9600D+... PROD( APIP2 ) = 2.5000D-02 * RXRAT( 104 ) ! API+HO=0.2500D-01*APIP2+... & + 5.0000D-02 * RXRAT( 147 ) ! API+O3=0.5000D-01*APIP2+... LOSS( APIP2 ) = RXRAT( 195 ) ! APIP2+NO=0.8200D+00*HO+... & + RXRAT( 237 ) ! APIP2+HO2=HOM & + RXRAT( 276 ) ! APIP2+MO2=HO2+0.7500D+... & + RXRAT( 313 ) ! APIP2+ACO3=0.5000D+00*HO+... & + RXRAT( 376 ) ! APIP2+APIP1=0.9600D+00*HOM+... & + RXRAT( 377 ) ! APIP2+LIMP1=0.9600D+00*HOM+... & + RXRAT( 378 ) ! APIP2+ISOP=0.9600D+00*HOM+... PROD( LIM ) = 0.0D0 LOSS( LIM ) = RXRAT( 105 ) ! LIM+HO=0.9450D+00*LIMP1+... & + RXRAT( 148 ) ! LIM+O3=0.8400D+00*HO+... & + RXRAT( 162 ) ! LIM+NO3=0.9450D+00*LIMNP1+... PROD( LIMP1 ) = 9.4500D-01 * RXRAT( 105 ) ! LIM+HO=0.9450D+00*LIMP1+... & + 8.4000D-01 * RXRAT( 148 ) ! LIM+O3=0.8400D+00*LIMP1+... LOSS( LIMP1 ) = RXRAT( 198 ) ! LIMP1+NO=0.7700D+00*HO2+... & + RXRAT( 240 ) ! LIMP1+HO2=OPB & + RXRAT( 279 ) ! LIMP1+MO2=HO2+HCHO+0.4200D+... & + RXRAT( 316 ) ! LIMP1+ACO3=0.6300D+00*HO2+... & + RXRAT( 352 ) ! LIMP1+NO3=HO2+NO2+0.3850D+... & + RXRAT( 377 ) ! LIMP1+APIP2=0.9600D+00*HOM+... & + RXRAT( 380 ) ! LIMP1+LIMP2=0.9600D+00*HOM+... & + RXRAT( 383 ) ! LIMP1+APINP2=0.9600D+... & + RXRAT( 386 ) ! LIMP1+LIMNP2=0.9600D+... PROD( LIMP2 ) = 5.5000D-02 * RXRAT( 105 ) ! LIM+HO=0.5500D-01*LIMP2+... & + 1.1000D-01 * RXRAT( 148 ) ! LIM+O3=0.1100D+00*LIMP2+... LOSS( LIMP2 ) = RXRAT( 199 ) ! LIMP2+NO=0.7700D+00*HO+... & + RXRAT( 241 ) ! LIMP2+HO2=HOM & + RXRAT( 280 ) ! LIMP2+MO2=HO2+0.7500D+... & + RXRAT( 317 ) ! LIMP2+ACO3=0.5000D+00*HO+... & + RXRAT( 379 ) ! LIMP2+APIP1=0.9600D+00*HOM+... & + RXRAT( 380 ) ! LIMP2+LIMP1=0.9600D+00*HOM+... & + RXRAT( 381 ) ! LIMP2+ISOP=0.9600D+00*HOM+... PROD( PINALP ) = 2.3000D-01 * RXRAT( 106 ) ! PINAL+HO=0.2300D+00*PINALP+... LOSS( PINALP ) = RXRAT( 175 ) ! PINALP=HOM & + RXRAT( 202 ) ! PINALP+NO=0.9500D+00*HO2+... & + RXRAT( 244 ) ! PINALP+HO2=OPB PROD( RCO3 ) = 7.7000D-01 * RXRAT( 106 ) ! PINAL+HO=0.7700D+00*RCO3+... & + 3.0000D-01 * RXRAT( 107 ) ! LIMAL+HO=0.3000D+00*RCO3+... & + RXRAT( 110 ) ! ALD+HO=RCO3 & + 6.0000D-01 * RXRAT( 154 ) ! DCB1+O3=0.6000D+00*RCO3+... & + 6.0000D-01 * RXRAT( 155 ) ! DCB2+O3=0.6000D+00*RCO3+... & + RXRAT( 166 ) ! ALD+NO3=RCO3+HNO3 & + RXRAT( 180 ) ! PPN=RCO3+NO2 LOSS( RCO3 ) = RXRAT( 179 ) ! RCO3+NO2=PPN & + RXRAT( 205 ) ! RCO3+NO=ETHP+NO2 & + RXRAT( 247 ) ! RCO3+HO2=0.4400D+00*HO+... & + RXRAT( 284 ) ! RCO3+MO2=0.9000D+00*HO2+... & + RXRAT( 321 ) ! RCO3+ACO3=MO2+ETHP & + 2.0000D+00 * RXRAT( 338 ) ! RCO3+RCO3=0.2000D+01*ETHP & + RXRAT( 354 ) ! RCO3+NO3=ETHP+NO2 & + RXRAT( 374 ) ! RCO3+XO2=ETHP PROD( LIMALP ) = 7.0000D-01 * RXRAT( 107 ) ! LIMAL+HO=0.7000D+00*LIMALP+... LOSS( LIMALP ) = RXRAT( 176 ) ! LIMALP=HOM & + RXRAT( 203 ) ! LIMALP+NO=0.9400D+00*HO2+... & + RXRAT( 245 ) ! LIMALP+HO2=OPB PROD( ACTP ) = RXRAT( 111 ) ! ACT+HO=ACTP LOSS( ACTP ) = RXRAT( 206 ) ! ACTP+NO=ACO3+NO2+HCHO & + RXRAT( 248 ) ! ACTP+HO2=0.1500D+00*HO+... & + RXRAT( 285 ) ! ACTP+MO2=0.5000D+00*HO2+... & + RXRAT( 322 ) ! ACTP+ACO3=0.5000D+00*MO2+... & + RXRAT( 355 ) ! ACTP+NO3=ACO3+NO2+HCHO PROD( MEKP ) = RXRAT( 112 ) ! MEK+HO=MEKP & + 2.5810D-01 * RXRAT( 501 ) ! VROCN2OXY8+HO=0.2581D+... & + 7.9400D-02 * RXRAT( 502 ) ! VROCN2OXY4+HO=0.7940D-... & + 3.9000D-02 * RXRAT( 503 ) ! VROCN2OXY2+HO=0.3900D-... & + 1.8400D-01 * RXRAT( 504 ) ! VROCN1OXY6+HO=0.1840D+... & + 6.4600D-02 * RXRAT( 505 ) ! VROCN1OXY3+HO=0.6460D-... & + 2.4400D-02 * RXRAT( 506 ) ! VROCN1OXY1+HO=0.2440D-... & + 1.0680D-01 * RXRAT( 507 ) ! VROCP0OXY4+HO=0.1068D+... & + 4.4500D-02 * RXRAT( 508 ) ! VROCP0OXY2+HO=0.4450D-... & + 8.1800D-02 * RXRAT( 509 ) ! VROCP1OXY3+HO=0.8180D-... & + 2.9700D-02 * RXRAT( 510 ) ! VROCP1OXY1+HO=0.2970D-... & + 6.2800D-02 * RXRAT( 511 ) ! VROCP2OXY2+HO=0.6280D-... & + 6.9800D-02 * RXRAT( 512 ) ! VROCP3OXY2+HO=0.6980D-... & + 7.8600D-02 * RXRAT( 513 ) ! VROCP4OXY2+HO=0.7860D-... & + 5.2600D-02 * RXRAT( 514 ) ! VROCP5OXY1+HO=0.5260D-... & + 5.7100D-02 * RXRAT( 515 ) ! VROCP6OXY1+HO=0.5710D-... & + 2.2660D-01 * RXRAT( 516 ) ! OP3+HO=0.2266D+00*MEKP+... LOSS( MEKP ) = RXRAT( 207 ) ! MEKP+NO=0.6700D+00*HO2+NO2+... & + RXRAT( 249 ) ! MEKP+HO2=OP2 & + RXRAT( 286 ) ! MEKP+MO2=0.8340D+00*HO2+... & + RXRAT( 323 ) ! MEKP+ACO3=0.3300D+00*HO2+... & + RXRAT( 356 ) ! MEKP+NO3=0.6700D+00*HO2+... PROD( KETP ) = RXRAT( 113 ) ! KET+HO=KETP & + 7.9400D-02 * RXRAT( 502 ) ! VROCN2OXY4+HO=0.7940D-... & + 1.0680D-01 * RXRAT( 507 ) ! VROCP0OXY4+HO=0.1068D+... LOSS( KETP ) = RXRAT( 208 ) ! KETP+NO=0.7700D+00*HO2+... & + RXRAT( 250 ) ! KETP+HO2=OP2 & + RXRAT( 287 ) ! KETP+MO2=HO2+0.7500D+... & + RXRAT( 324 ) ! KETP+ACO3=0.5000D+00*HO2+... & + RXRAT( 357 ) ! KETP+NO3=HO2+NO2+DCB1 PROD( MCP ) = 4.3000D-01 * RXRAT( 115 ) ! MACR+HO=0.4300D+00*MCP+... & + 4.3000D-01 * RXRAT( 391 ) ! ACRO+HO=0.4300D+00*MCP+... LOSS( MCP ) = RXRAT( 210 ) ! MCP+NO=NO2+0.5000D+00*HO2+... & + RXRAT( 252 ) ! MCP+HO2=MAHP & + RXRAT( 289 ) ! MCP+MO2=NO2+HO2+0.1500D+... & + RXRAT( 326 ) ! MCP+ACO3=NO2+0.5000D+... & + RXRAT( 359 ) ! MCP+NO3=NO2+HO2+HCHO+HKET PROD( MVKP ) = RXRAT( 116 ) ! MVK+HO=MVKP LOSS( MVKP ) = RXRAT( 211 ) ! MVKP+NO=0.3000D+00*HO2+... & + RXRAT( 253 ) ! MVKP+HO2=OP2 & + RXRAT( 290 ) ! MVKP+MO2=HO2+0.1160D+... & + RXRAT( 327 ) ! MVKP+ACO3=0.5000D+00*HO2+... & + RXRAT( 360 ) ! MVKP+NO3=0.3000D+00*HO2+... PROD( UALP ) = 6.8700D-01 * RXRAT( 117 ) ! UALD+HO=0.6870D+00*UALP+... LOSS( UALP ) = RXRAT( 212 ) ! UALP+NO=HO2+NO2+0.6100D+... & + RXRAT( 254 ) ! UALP+HO2=OP2 & + RXRAT( 291 ) ! UALP+MO2=HO2+0.3050D+00*CO+... & + RXRAT( 328 ) ! UALP+ACO3=0.5000D+00*HO2+... & + RXRAT( 361 ) ! UALP+NO3=HO2+NO2+0.6100D+... PROD( DCB3 ) = 2.4950D-01 * RXRAT( 190 ) ! BENP+NO=0.2495D+00*DCB3+... & + 2.5000D-01 * RXRAT( 270 ) ! BENP+MO2=0.2500D+00*DCB3+... & + 2.5000D-01 * RXRAT( 307 ) ! BENP+ACO3=0.2500D+00*DCB3+... & + 2.5000D-01 * RXRAT( 346 ) ! BENP+NO3=0.2500D+00*DCB3+... & + 2.0000D-01 * RXRAT( 408 ) ! FURAN+NO3=0.2000D+00*DCB3+... LOSS( DCB3 ) = RXRAT( 122 ) ! DCB3+HO=0.5600D+00*HO2+... & + RXRAT( 156 ) ! DCB3+O3=0.5000D-01*HO+HO2+... PROD( BALP ) = RXRAT( 123 ) ! BALD+HO=BALP LOSS( BALP ) = RXRAT( 213 ) ! BALP+NO=BAL1+NO2 & + RXRAT( 292 ) ! BALP+MO2=HO2+BAL1+HCHO & + RXRAT( 329 ) ! BALP+ACO3=MO2+BAL1 & + RXRAT( 362 ) ! BALP+NO3=BAL1+NO2 PROD( ADDC ) = 1.7000D-01 * RXRAT( 124 ) ! PHEN+HO=0.1700D+00*ADDC+... & + 1.6000D-01 * RXRAT( 125 ) ! CSL+HO=0.1600D+00*ADDC+... & + 8.5000D-01 * RXRAT( 171 ) ! PHEN+NO3=0.8500D+00*ADDC+... & + 8.0000D-02 * RXRAT( 172 ) ! CSL+NO3=0.8000D-01*ADDC+... LOSS( ADDC ) = RXRAT( 215 ) ! ADDC+NO=HO2+NO2+0.3200D+... & + RXRAT( 255 ) ! ADDC+HO2=OP2 & + RXRAT( 294 ) ! ADDC+MO2=0.2000D+01*HO2+... & + RXRAT( 331 ) ! ADDC+ACO3=0.2000D+01*HO2+... & + RXRAT( 364 ) ! ADDC+NO3=HO2+NO2+0.3200D+... PROD( MCT ) = 6.1900D-01 * RXRAT( 124 ) ! PHEN+HO=0.6190D+00*MCT+... & + 5.8400D-01 * RXRAT( 125 ) ! CSL+HO=0.5840D+00*MCT+... LOSS( MCT ) = RXRAT( 126 ) ! MCT+HO=MCTO & + RXRAT( 173 ) ! MCT+NO3=MCTO+HNO3 PROD( MCTO ) = RXRAT( 126 ) ! MCT+HO=MCTO & + RXRAT( 173 ) ! MCT+NO3=MCTO+HNO3 & + RXRAT( 216 ) ! MCTP+NO=MCTO+NO2 & + RXRAT( 295 ) ! MCTP+MO2=MCTO+HO2+HCHO & + RXRAT( 332 ) ! MCTP+ACO3=MCTO+MO2+HO2 & + RXRAT( 365 ) ! MCTP+NO3=MCTO+NO2 LOSS( MCTO ) = RXRAT( 157 ) ! MCTO+O3=MCTP & + RXRAT( 224 ) ! MCTO+NO2=ONIT PROD( MOH ) = 6.3000D-01 * RXRAT( 263 ) ! MO2+MO2=0.6300D+00*MOH+... & + 2.5000D-01 * RXRAT( 264 ) ! ETHP+MO2=0.2500D+00*MOH+... & + 2.5000D-01 * RXRAT( 265 ) ! HC3P+MO2=0.2500D+00*MOH+... & + 2.5000D-01 * RXRAT( 266 ) ! HC5P+MO2=0.2500D+00*MOH+... & + 2.5000D-01 * RXRAT( 267 ) ! ETEP+MO2=0.2500D+00*MOH+... & + 2.5000D-01 * RXRAT( 268 ) ! OLTP+MO2=0.2500D+00*MOH+... & + 2.5000D-01 * RXRAT( 269 ) ! OLIP+MO2=0.2500D+00*MOH+... & + 3.2000D-01 * RXRAT( 270 ) ! BENP+MO2=0.3200D+00*MOH+... & + 3.2000D-01 * RXRAT( 271 ) ! TOLP+MO2=0.3200D+00*MOH+... & + 3.2000D-01 * RXRAT( 272 ) ! XYMP+MO2=0.3200D+00*MOH+... & + 3.2000D-01 * RXRAT( 273 ) ! XYEP+MO2=0.3200D+00*MOH+... & + 2.5000D-01 * RXRAT( 274 ) ! ISOP+MO2=0.2500D+00*MOH+... & + 3.2000D-01 * RXRAT( 275 ) ! APIP1+MO2=0.3200D+00*MOH+... & + 2.5000D-01 * RXRAT( 276 ) ! APIP2+MO2=0.2500D+00*MOH+... & + 3.2000D-01 * RXRAT( 277 ) ! APINP1+MO2=0.3200D+00*MOH+... & + 2.5000D-01 * RXRAT( 278 ) ! APINP2+MO2=0.2500D+00*MOH+... & + 3.2000D-01 * RXRAT( 279 ) ! LIMP1+MO2=0.3200D+00*MOH+... & + 2.5000D-01 * RXRAT( 280 ) ! LIMP2+MO2=0.2500D+00*MOH+... & + 3.2000D-01 * RXRAT( 281 ) ! LIMNP1+MO2=0.3200D+00*MOH+... & + 2.5000D-01 * RXRAT( 282 ) ! LIMNP2+MO2=0.2500D+00*MOH+... & + 2.5000D-01 * RXRAT( 285 ) ! ACTP+MO2=0.2500D+00*MOH+... & + 2.5000D-01 * RXRAT( 286 ) ! MEKP+MO2=0.2500D+00*MOH+... & + 2.5000D-01 * RXRAT( 287 ) ! KETP+MO2=0.2500D+00*MOH+... & + 2.5000D-01 * RXRAT( 288 ) ! MACP+MO2=0.2500D+00*MOH+... & + 2.5000D-01 * RXRAT( 289 ) ! MCP+MO2=0.2500D+00*MOH+HO2+... & + 2.5000D-01 * RXRAT( 290 ) ! MVKP+MO2=0.2500D+00*MOH+... & + 2.5000D-01 * RXRAT( 291 ) ! UALP+MO2=0.2500D+00*MOH+... & + 2.5000D-01 * RXRAT( 298 ) ! OLND+MO2=0.2500D+00*MOH+... & + 3.2000D-01 * RXRAT( 399 ) ! BDE13P+MO2=0.3200D+00*MOH+... & + 3.2000D-01 * RXRAT( 487 ) ! VROCP6AROP+MO2=0.3200D+... & + 3.2000D-01 * RXRAT( 493 ) ! VROCP5AROP+MO2=0.3200D+... & + 3.2000D-01 * RXRAT( 499 ) ! NAPHP+MO2=0.3200D+00*MOH+... LOSS( MOH ) = RXRAT( 127 ) ! MOH+HO=HO2+HCHO PROD( EOH ) = 2.5000D-01 * RXRAT( 264 ) ! ETHP+MO2=0.2500D+00*EOH+... LOSS( EOH ) = RXRAT( 128 ) ! EOH+HO=HO2+ACD PROD( ETEG ) = 2.5000D-01 * RXRAT( 267 ) ! ETEP+MO2=0.2500D+00*ETEG+... LOSS( ETEG ) = RXRAT( 130 ) ! ETEG+HO=HO2+ALD PROD( MAHP ) = RXRAT( 251 ) ! MACP+HO2=MAHP & + RXRAT( 252 ) ! MCP+HO2=MAHP LOSS( MAHP ) = RXRAT( 135 ) ! MAHP+HO=MACP PROD( ORA2 ) = 6.0000D-02 * RXRAT( 145 ) ! OLT+O3=0.6000D-01*ORA2+... & + 1.7000D-02 * RXRAT( 146 ) ! OLI+O3=0.1700D-01*ORA2+... & + 7.0000D-02 * RXRAT( 152 ) ! MVK+O3=0.7000D-01*ORA2+... & + 2.5000D-01 * RXRAT( 156 ) ! DCB3+O3=0.2500D+00*ORA2+... & + 1.5000D-01 * RXRAT( 246 ) ! ACO3+HO2=0.1500D+00*ORA2+... & + 1.5000D-01 * RXRAT( 247 ) ! RCO3+HO2=0.1500D+00*ORA2+... & + 1.0000D-01 * RXRAT( 283 ) ! ACO3+MO2=0.1000D+00*ORA2+... & + 1.0000D-01 * RXRAT( 284 ) ! RCO3+MO2=0.1000D+00*ORA2+... & + 1.2500D-01 * RXRAT( 285 ) ! ACTP+MO2=0.1250D+00*ORA2+... & + 6.7000D-02 * RXRAT( 288 ) ! MACP+MO2=0.6700D-01*ORA2+... & + 2.9200D-01 * RXRAT( 290 ) ! MVKP+MO2=0.2920D+00*ORA2+... & + 5.0000D-01 * RXRAT( 301 ) ! ETHP+ACO3=0.5000D+00*ORA2+... & + 5.0000D-01 * RXRAT( 302 ) ! HC3P+ACO3=0.5000D+00*ORA2+... & + 5.0000D-01 * RXRAT( 303 ) ! HC5P+ACO3=0.5000D+00*ORA2+... & + 5.0000D-01 * RXRAT( 304 ) ! ETEP+ACO3=0.5000D+00*ORA2+... & + 5.0000D-01 * RXRAT( 305 ) ! OLTP+ACO3=0.5000D+00*ORA2+... & + 5.0000D-01 * RXRAT( 306 ) ! OLIP+ACO3=0.5000D+00*ORA2+... & + 3.0000D-01 * RXRAT( 307 ) ! BENP+ACO3=0.3000D+00*ORA2+... & + 3.0000D-01 * RXRAT( 308 ) ! TOLP+ACO3=0.3000D+00*ORA2+... & + 3.0000D-01 * RXRAT( 309 ) ! XYMP+ACO3=0.3000D+00*ORA2+... & + 3.0000D-01 * RXRAT( 310 ) ! XYEP+ACO3=0.3000D+00*ORA2+... & + 5.0000D-01 * RXRAT( 311 ) ! ISOP+ACO3=0.5000D+00*ORA2+... & + 3.0000D-01 * RXRAT( 312 ) ! APIP1+ACO3=0.3000D+00*ORA2+... & + 5.0000D-01 * RXRAT( 313 ) ! APIP2+ACO3=0.5000D+00*ORA2+... & + 3.0000D-01 * RXRAT( 314 ) ! APINP1+ACO3=0.3000D+... & + 5.0000D-01 * RXRAT( 315 ) ! APINP2+ACO3=0.5000D+... & + 3.0000D-01 * RXRAT( 316 ) ! LIMP1+ACO3=0.3000D+00*ORA2+... & + 5.0000D-01 * RXRAT( 317 ) ! LIMP2+ACO3=0.5000D+00*ORA2+... & + 3.0000D-01 * RXRAT( 318 ) ! LIMNP1+ACO3=0.3000D+... & + 5.0000D-01 * RXRAT( 319 ) ! LIMNP2+ACO3=0.5000D+... & + 7.5000D-01 * RXRAT( 322 ) ! ACTP+ACO3=0.7500D+00*ORA2+... & + 5.0000D-01 * RXRAT( 323 ) ! MEKP+ACO3=0.5000D+00*ORA2+... & + 5.0000D-01 * RXRAT( 324 ) ! KETP+ACO3=0.5000D+00*ORA2+... & + 6.3500D-01 * RXRAT( 325 ) ! MACP+ACO3=0.6350D+00*ORA2+... & + 5.0000D-01 * RXRAT( 326 ) ! MCP+ACO3=0.5000D+00*ORA2+... & + 1.0830D+00 * RXRAT( 327 ) ! MVKP+ACO3=0.1083D+01*ORA2+... & + 5.0000D-01 * RXRAT( 328 ) ! UALP+ACO3=0.5000D+00*ORA2+... & + 5.0000D-01 * RXRAT( 335 ) ! OLND+ACO3=0.5000D+00*ORA2+... & + 3.0000D-01 * RXRAT( 400 ) ! BDE13P+ACO3=0.3000D+... & + 3.0000D-01 * RXRAT( 488 ) ! VROCP6AROP+ACO3=0.3000D+... & + 3.0000D-01 * RXRAT( 494 ) ! VROCP5AROP+ACO3=0.3000D+... & + 3.0000D-01 * RXRAT( 500 ) ! NAPHP+ACO3=0.3000D+00*ORA2+... LOSS( ORA2 ) = RXRAT( 137 ) ! ORA2+HO=0.6400D+00*MO2+... PROD( ORAP ) = 3.6000D-01 * RXRAT( 137 ) ! ORA2+HO=0.3600D+00*ORAP+... LOSS( ORAP ) = RXRAT( 217 ) ! ORAP+NO=NO2+GLY+HO2 & + RXRAT( 258 ) ! ORAP+HO2=OP2 & + RXRAT( 296 ) ! ORAP+MO2=HCHO+HO2+GLY & + RXRAT( 333 ) ! ORAP+ACO3=MO2+GLY & + RXRAT( 366 ) ! ORAP+NO3=NO2+GLY+HO2 PROD( PPN ) = RXRAT( 179 ) ! RCO3+NO2=PPN LOSS( PPN ) = RXRAT( 140 ) ! PPN+HO=XO2+NO3+HCHO & + RXRAT( 180 ) ! PPN=RCO3+NO2 PROD( MPAN ) = RXRAT( 181 ) ! MACP+NO2=MPAN LOSS( MPAN ) = RXRAT( 141 ) ! MPAN+HO=NO2+HKET & + RXRAT( 174 ) ! MPAN+NO3=MACP+NO2 & + RXRAT( 182 ) ! MPAN=MACP+NO2 PROD( TRPN ) = 1.8000D-01 * RXRAT( 194 ) ! APIP1+NO=0.1800D+00*TRPN+... & + 2.3000D-01 * RXRAT( 198 ) ! LIMP1+NO=0.2300D+00*TRPN+... & + 5.0000D-02 * RXRAT( 202 ) ! PINALP+NO=0.5000D-01*TRPN+... & + 6.0000D-02 * RXRAT( 203 ) ! LIMALP+NO=0.6000D-01*TRPN+... & + RXRAT( 238 ) ! APINP1+HO2=TRPN & + RXRAT( 242 ) ! LIMNP1+HO2=TRPN & + 1.4000D-01 * RXRAT( 277 ) ! APINP1+MO2=0.1400D+00*TRPN+... & + 3.0000D-01 * RXRAT( 281 ) ! LIMNP1+MO2=0.3000D+00*TRPN+... & + 1.4000D-01 * RXRAT( 314 ) ! APINP1+ACO3=0.1400D+... & + 3.0000D-01 * RXRAT( 318 ) ! LIMNP1+ACO3=0.3000D+... LOSS( TRPN ) = RXRAT( 143 ) ! TRPN+HO=HOM & + RXRAT( 150 ) ! TRPN+O3=HOM & + RXRAT( 163 ) ! TRPN+NO3=HOM PROD( HOM ) = RXRAT( 143 ) ! TRPN+HO=HOM & + RXRAT( 150 ) ! TRPN+O3=HOM & + RXRAT( 163 ) ! TRPN+NO3=HOM & + RXRAT( 175 ) ! PINALP=HOM & + RXRAT( 176 ) ! LIMALP=HOM & + RXRAT( 195 ) ! APIP2+NO=HOM+0.8200D+... & + RXRAT( 197 ) ! APINP2+NO=HOM+0.8200D+... & + RXRAT( 199 ) ! LIMP2+NO=HOM+0.7700D+... & + RXRAT( 201 ) ! LIMNP2+NO=HOM+0.7700D+... & + RXRAT( 237 ) ! APIP2+HO2=HOM & + RXRAT( 239 ) ! APINP2+HO2=HOM & + RXRAT( 241 ) ! LIMP2+HO2=HOM & + RXRAT( 243 ) ! LIMNP2+HO2=HOM & + RXRAT( 276 ) ! APIP2+MO2=HOM+0.7500D+... & + RXRAT( 278 ) ! APINP2+MO2=HOM+0.7500D+... & + RXRAT( 280 ) ! LIMP2+MO2=HOM+0.7500D+... & + RXRAT( 282 ) ! LIMNP2+MO2=HOM+0.7500D+... & + RXRAT( 313 ) ! APIP2+ACO3=HOM+0.5000D+... & + RXRAT( 315 ) ! APINP2+ACO3=HOM+0.5000D+... & + RXRAT( 317 ) ! LIMP2+ACO3=HOM+0.5000D+... & + RXRAT( 319 ) ! LIMNP2+ACO3=HOM+0.5000D+... & + 9.6000D-01 * RXRAT( 376 ) ! APIP2+APIP1=0.9600D+00*HOM+... & + 9.6000D-01 * RXRAT( 377 ) ! APIP2+LIMP1=0.9600D+00*HOM+... & + 9.6000D-01 * RXRAT( 378 ) ! APIP2+ISOP=0.9600D+00*HOM+... & + 9.6000D-01 * RXRAT( 379 ) ! LIMP2+APIP1=0.9600D+00*HOM+... & + 9.6000D-01 * RXRAT( 380 ) ! LIMP2+LIMP1=0.9600D+00*HOM+... & + 9.6000D-01 * RXRAT( 381 ) ! LIMP2+ISOP=0.9600D+00*HOM+... & + 9.6000D-01 * RXRAT( 382 ) ! APINP2+APIP1=0.9600D+... & + 9.6000D-01 * RXRAT( 383 ) ! APINP2+LIMP1=0.9600D+... & + 9.6000D-01 * RXRAT( 384 ) ! APINP2+ISOP=0.9600D+00*HOM+... & + 9.6000D-01 * RXRAT( 385 ) ! LIMNP2+APIP1=0.9600D+... & + 9.6000D-01 * RXRAT( 386 ) ! LIMNP2+LIMP1=0.9600D+... & + 9.6000D-01 * RXRAT( 387 ) ! LIMNP2+ISOP=0.9600D+00*HOM+... LOSS( HOM ) = 0.0D0 PROD( MCTP ) = RXRAT( 157 ) ! MCTO+O3=MCTP LOSS( MCTP ) = RXRAT( 216 ) ! MCTP+NO=MCTO+NO2 & + RXRAT( 257 ) ! MCTP+HO2=OP2 & + RXRAT( 295 ) ! MCTP+MO2=HO2+MCTO+HCHO & + RXRAT( 332 ) ! MCTP+ACO3=HO2+MO2+MCTO & + RXRAT( 365 ) ! MCTP+NO3=NO2+MCTO PROD( OLNN ) = 8.0000D-01 * RXRAT( 158 ) ! ETE+NO3=0.8000D+00*OLNN+... & + 4.3000D-01 * RXRAT( 159 ) ! OLT+NO3=0.4300D+00*OLNN+... & + 1.1000D-01 * RXRAT( 160 ) ! OLI+NO3=0.1100D+00*OLNN+... & + 9.0000D-01 * RXRAT( 402 ) ! BDE13+NO3=0.9000D+00*OLNN+... LOSS( OLNN ) = RXRAT( 218 ) ! OLNN+NO=NO2+HO2+ONIT & + RXRAT( 259 ) ! OLNN+HO2=ONIT & + RXRAT( 297 ) ! OLNN+MO2=0.2000D+01*HO2+... & + RXRAT( 334 ) ! OLNN+ACO3=HO2+MO2+ONIT & + RXRAT( 367 ) ! OLNN+NO3=HO2+NO2+ONIT & + 2.0000D+00 * RXRAT( 370 ) ! OLNN+OLNN=HO2+0.2000D+01*ONIT & + RXRAT( 371 ) ! OLNN+OLND=0.5000D+00*HO2+... PROD( OLND ) = 2.0000D-01 * RXRAT( 158 ) ! ETE+NO3=0.2000D+00*OLND+... & + 5.7000D-01 * RXRAT( 159 ) ! OLT+NO3=0.5700D+00*OLND+... & + 8.9000D-01 * RXRAT( 160 ) ! OLI+NO3=0.8900D+00*OLND+... & + 1.0000D-01 * RXRAT( 402 ) ! BDE13+NO3=0.1000D+00*OLND+... LOSS( OLND ) = RXRAT( 219 ) ! OLND+NO=0.2000D+01*NO2+... & + RXRAT( 260 ) ! OLND+HO2=ONIT & + RXRAT( 298 ) ! OLND+MO2=0.5000D+00*HO2+... & + RXRAT( 335 ) ! OLND+ACO3=0.5000D+00*MO2+... & + RXRAT( 368 ) ! OLND+NO3=0.2000D+01*NO2+... & + RXRAT( 371 ) ! OLND+OLNN=0.5000D+00*HO2+... & + 2.0000D+00 * RXRAT( 372 ) ! OLND+OLND=NO2+0.5040D+... PROD( APINP1 ) = 9.7500D-01 * RXRAT( 161 ) ! API+NO3=0.9750D+00*APINP1+... LOSS( APINP1 ) = RXRAT( 196 ) ! APINP1+NO=0.2000D+01*NO2+PINAL & + RXRAT( 238 ) ! APINP1+HO2=TRPN & + RXRAT( 277 ) ! APINP1+MO2=0.3700D+00*HO2+... & + RXRAT( 314 ) ! APINP1+ACO3=0.8600D+00*NO2+... PROD( APINP2 ) = 2.5000D-02 * RXRAT( 161 ) ! API+NO3=0.2500D-01*APINP2+... LOSS( APINP2 ) = RXRAT( 197 ) ! APINP2+NO=0.8200D+00*NO2+... & + RXRAT( 239 ) ! APINP2+HO2=HOM & + RXRAT( 278 ) ! APINP2+MO2=0.7500D+00*HO2+... & + RXRAT( 315 ) ! APINP2+ACO3=0.5000D+00*NO2+... & + RXRAT( 382 ) ! APINP2+APIP1=0.9600D+... & + RXRAT( 383 ) ! APINP2+LIMP1=0.9600D+... & + RXRAT( 384 ) ! APINP2+ISOP=0.9600D+00*HOM+... PROD( LIMNP1 ) = 9.4500D-01 * RXRAT( 162 ) ! LIM+NO3=0.9450D+00*LIMNP1+... LOSS( LIMNP1 ) = RXRAT( 200 ) ! LIMNP1+NO=0.2000D+01*NO2+LIMAL & + RXRAT( 242 ) ! LIMNP1+HO2=TRPN & + RXRAT( 281 ) ! LIMNP1+MO2=0.3700D+00*HO2+... & + RXRAT( 318 ) ! LIMNP1+ACO3=0.7000D+00*NO2+... PROD( LIMNP2 ) = 5.5000D-02 * RXRAT( 162 ) ! LIM+NO3=0.5500D-01*LIMNP2+... LOSS( LIMNP2 ) = RXRAT( 201 ) ! LIMNP2+NO=0.7700D+00*NO2+... & + RXRAT( 243 ) ! LIMNP2+HO2=HOM & + RXRAT( 282 ) ! LIMNP2+MO2=0.7500D+00*HO2+... & + RXRAT( 319 ) ! LIMNP2+ACO3=0.5000D+00*MO2+... & + RXRAT( 385 ) ! LIMNP2+APIP1=0.9600D+... & + RXRAT( 386 ) ! LIMNP2+LIMP1=0.9600D+... & + RXRAT( 387 ) ! LIMNP2+ISOP=0.9600D+00*HOM+... PROD( ADCN ) = 4.2400D-01 * RXRAT( 171 ) ! PHEN+NO3=0.4240D+00*ADCN+... & + 4.0000D-01 * RXRAT( 172 ) ! CSL+NO3=0.4000D+00*ADCN+... LOSS( ADCN ) = RXRAT( 220 ) ! ADCN+NO=0.2000D+01*NO2+GLY+OP2 & + RXRAT( 261 ) ! ADCN+HO2=OP2 & + RXRAT( 299 ) ! ADCN+MO2=HO2+0.7000D+... & + RXRAT( 336 ) ! ADCN+ACO3=HO2+MO2+0.7000D+... & + RXRAT( 369 ) ! ADCN+NO3=0.2000D+01*NO2+... PROD( VROCP4OXY2 ) = 1.2000D-03 * RXRAT( 190 ) ! BENP+NO=0.1200D-... & + 1.3000D-03 * RXRAT( 191 ) ! TOLP+NO=0.1300D-... & + 2.8000D-01 * RXRAT( 434 ) ! VROCP6ALKP+NO=0.2800D+... & + RXRAT( 461 ) ! HC10P2=VROCP4OXY2+HO2 & + 1.6000D-01 * RXRAT( 483 ) ! VROCP6ARO+HO=0.1600D+... & + 5.9500D-02 * RXRAT( 484 ) ! VROCP6AROP+HO2=0.5950D-... & + 1.0000D-04 * RXRAT( 485 ) ! VROCP6AROP+NO=0.1000D-... & + 5.9400D-02 * RXRAT( 491 ) ! VROCP5AROP+NO=0.5940D-... & + 5.9500D-02 * RXRAT( 492 ) ! VROCP5AROP+NO3=0.5950D-... & + 5.9500D-02 * RXRAT( 493 ) ! VROCP5AROP+MO2=0.5950D-... & + 5.9500D-02 * RXRAT( 494 ) ! VROCP5AROP+ACO3=0.5950D-... & + 5.9500D-02 * RXRAT( 497 ) ! NAPHP+NO=0.5950D-... & + 5.9500D-02 * RXRAT( 498 ) ! NAPHP+NO3=0.5950D-... & + 5.9500D-02 * RXRAT( 499 ) ! NAPHP+MO2=0.5950D-... & + 5.9500D-02 * RXRAT( 500 ) ! NAPHP+ACO3=0.5950D-... & + 1.8300D-02 * RXRAT( 502 ) ! VROCN2OXY4+HO=0.1830D-... & + 4.5500D-02 * RXRAT( 503 ) ! VROCN2OXY2+HO=0.4550D-... & + 5.1200D-02 * RXRAT( 505 ) ! VROCN1OXY3+HO=0.5120D-... & + 5.0900D-02 * RXRAT( 506 ) ! VROCN1OXY1+HO=0.5090D-... & + 2.4600D-02 * RXRAT( 507 ) ! VROCP0OXY4+HO=0.2460D-... & + 5.1900D-02 * RXRAT( 508 ) ! VROCP0OXY2+HO=0.5190D-... & + 6.4900D-02 * RXRAT( 509 ) ! VROCP1OXY3+HO=0.6490D-... & + 6.6800D-02 * RXRAT( 510 ) ! VROCP1OXY1+HO=0.6680D-... & + 7.3300D-02 * RXRAT( 511 ) ! VROCP2OXY2+HO=0.7330D-... & + 4.2600D-02 * RXRAT( 512 ) ! VROCP3OXY2+HO=0.4260D-... & + 7.2400D-02 * RXRAT( 514 ) ! VROCP5OXY1+HO=0.7240D-... & + 1.4630D-01 * RXRAT( 515 ) ! VROCP6OXY1+HO=0.1463D+... LOSS( VROCP4OXY2 ) = 9.9760D-01 * RXRAT( 513 ) ! VROCP4OXY2+HO=0.2400D-... PROD( VROCN1OXY6 ) = 8.0000D-04 * RXRAT( 190 ) ! BENP+NO=0.8000D-... & + 6.0000D-04 * RXRAT( 191 ) ! TOLP+NO=0.6000D-... & + 3.9790D-01 * RXRAT( 232 ) ! BENP+HO2=0.3979D+... & + 2.8050D-01 * RXRAT( 233 ) ! TOLP+HO2=0.2805D+... & + 1.2100D-02 * RXRAT( 502 ) ! VROCN2OXY4+HO=0.1210D-... & + 1.5300D-02 * RXRAT( 503 ) ! VROCN2OXY2+HO=0.1530D-... & + 3.1900D-02 * RXRAT( 505 ) ! VROCN1OXY3+HO=0.3190D-... & + 1.2200D-02 * RXRAT( 506 ) ! VROCN1OXY1+HO=0.1220D-... & + 3.2000D-02 * RXRAT( 507 ) ! VROCP0OXY4+HO=0.3200D-... & + 3.2500D-02 * RXRAT( 508 ) ! VROCP0OXY2+HO=0.3250D-... & + 7.4000D-02 * RXRAT( 509 ) ! VROCP1OXY3+HO=0.7400D-... & + 8.0000D-03 * RXRAT( 510 ) ! VROCP1OXY1+HO=0.8000D-... & + 5.1300D-02 * RXRAT( 511 ) ! VROCP2OXY2+HO=0.5130D-... & + 5.2600D-02 * RXRAT( 512 ) ! VROCP3OXY2+HO=0.5260D-... & + 4.8000D-02 * RXRAT( 513 ) ! VROCP4OXY2+HO=0.4800D-... & + 9.0000D-03 * RXRAT( 514 ) ! VROCP5OXY1+HO=0.9000D-... & + 6.1000D-03 * RXRAT( 515 ) ! VROCP6OXY1+HO=0.6100D-... & + 3.9000D-02 * RXRAT( 516 ) ! OP3+HO=0.3900D-... LOSS( VROCN1OXY6 ) = RXRAT( 504 ) ! VROCN1OXY6+HO=HO+0.2036D+... PROD( FURANONE ) = 4.9900D-01 * RXRAT( 190 ) ! BENP+NO=0.4990D+... & + 3.6510D-01 * RXRAT( 191 ) ! TOLP+NO=0.3651D+... & + 3.5150D-01 * RXRAT( 192 ) ! XYMP+NO=0.3515D+... & + 4.5640D-01 * RXRAT( 193 ) ! XYEP+NO=0.4564D+... & + 5.0000D-01 * RXRAT( 270 ) ! BENP+MO2=0.5000D+... & + 3.6590D-01 * RXRAT( 271 ) ! TOLP+MO2=0.3659D+... & + 3.5220D-01 * RXRAT( 272 ) ! XYMP+MO2=0.3522D+... & + 4.5730D-01 * RXRAT( 273 ) ! XYEP+MO2=0.4573D+... & + 5.0000D-01 * RXRAT( 307 ) ! BENP+ACO3=0.5000D+... & + 3.6590D-01 * RXRAT( 308 ) ! TOLP+ACO3=0.3659D+... & + 3.5220D-01 * RXRAT( 309 ) ! XYMP+ACO3=0.3522D+... & + 4.5730D-01 * RXRAT( 310 ) ! XYEP+ACO3=0.4573D+... & + 5.0000D-01 * RXRAT( 346 ) ! BENP+NO3=0.5000D+... & + 3.6590D-01 * RXRAT( 347 ) ! TOLP+NO3=0.3659D+... & + 3.5220D-01 * RXRAT( 348 ) ! XYMP+NO3=0.3522D+... & + 4.5730D-01 * RXRAT( 349 ) ! XYEP+NO3=0.4573D+... & + 9.2000D-01 * RXRAT( 404 ) ! FURANO2+NO=0.9200D+... & + 4.0000D-01 * RXRAT( 405 ) ! FURANO2+HO2=0.4000D+... & + 4.6930D-01 * RXRAT( 485 ) ! VROCP6AROP+NO=0.4693D+... & + 4.7020D-01 * RXRAT( 486 ) ! VROCP6AROP+NO3=0.4702D+... & + 4.7020D-01 * RXRAT( 487 ) ! VROCP6AROP+MO2=0.4702D+... & + 4.7020D-01 * RXRAT( 488 ) ! VROCP6AROP+ACO3=0.4702D+... & + 4.6930D-01 * RXRAT( 491 ) ! VROCP5AROP+NO=0.4693D+... & + 4.7020D-01 * RXRAT( 492 ) ! VROCP5AROP+NO3=0.4702D+... & + 4.7020D-01 * RXRAT( 493 ) ! VROCP5AROP+MO2=0.4702D+... & + 4.7020D-01 * RXRAT( 494 ) ! VROCP5AROP+ACO3=0.4702D+... & + 4.6930D-01 * RXRAT( 497 ) ! NAPHP+NO=0.4693D+... & + 4.7020D-01 * RXRAT( 498 ) ! NAPHP+NO3=0.4702D+... & + 4.7020D-01 * RXRAT( 499 ) ! NAPHP+MO2=0.4702D+... & + 4.7020D-01 * RXRAT( 500 ) ! NAPHP+ACO3=0.4702D+... LOSS( FURANONE ) = RXRAT( 406 ) ! FURANONE+HO=0.6500D+00*KET+... PROD( VROCP3OXY2 ) = 1.3000D-03 * RXRAT( 192 ) ! XYMP+NO=0.1300D-... & + 1.3000D-03 * RXRAT( 193 ) ! XYEP+NO=0.1300D-... & + RXRAT( 412 ) ! SESQNRO2+NO=VROCP3OXY2+... & + RXRAT( 413 ) ! SESQNRO2+NO3=VROCP3OXY2+... & + 9.8200D-01 * RXRAT( 414 ) ! SESQ+O3=0.9820D+... & + RXRAT( 417 ) ! SESQRO2+NO3=VROCP3OXY2 & + 7.5300D-01 * RXRAT( 418 ) ! SESQRO2+NO=0.7530D+... & + 2.8000D-01 * RXRAT( 435 ) ! VROCP5ALKP+NO=0.2800D+... & + RXRAT( 448 ) ! VROCP6ALKP+HO2=VROCP3OXY2 & + RXRAT( 455 ) ! VROCP6ALKP2=VROCP3OXY2+HO2 & + 8.6000D-01 * RXRAT( 462 ) ! VROCP6ALKP2+NO=0.8600D+... & + RXRAT( 469 ) ! VROCP6ALKP2+NO3=VROCP3OXY2+... & + 1.6000D-01 * RXRAT( 489 ) ! VROCP5ARO+HO=0.1600D+... & + 5.9500D-02 * RXRAT( 490 ) ! VROCP5AROP+HO2=0.5950D-... & + 1.0000D-04 * RXRAT( 491 ) ! VROCP5AROP+NO=0.1000D-... & + 1.6000D-01 * RXRAT( 495 ) ! NAPH+HO=0.1600D+... & + 5.9500D-02 * RXRAT( 496 ) ! NAPHP+HO2=0.5950D-... & + 3.9800D-02 * RXRAT( 502 ) ! VROCN2OXY4+HO=0.3980D-... & + 4.5200D-02 * RXRAT( 503 ) ! VROCN2OXY2+HO=0.4520D-... & + 4.6200D-02 * RXRAT( 505 ) ! VROCN1OXY3+HO=0.4620D-... & + 5.1800D-02 * RXRAT( 506 ) ! VROCN1OXY1+HO=0.5180D-... & + 5.3500D-02 * RXRAT( 507 ) ! VROCP0OXY4+HO=0.5350D-... & + 5.1600D-02 * RXRAT( 508 ) ! VROCP0OXY2+HO=0.5160D-... & + 5.8500D-02 * RXRAT( 509 ) ! VROCP1OXY3+HO=0.5850D-... & + 7.0900D-02 * RXRAT( 510 ) ! VROCP1OXY1+HO=0.7090D-... & + 2.9300D-02 * RXRAT( 511 ) ! VROCP2OXY2+HO=0.2930D-... & + 4.5600D-02 * RXRAT( 513 ) ! VROCP4OXY2+HO=0.4560D-... & + 1.5660D-01 * RXRAT( 514 ) ! VROCP5OXY1+HO=0.1566D+... & + 1.3840D-01 * RXRAT( 515 ) ! VROCP6OXY1+HO=0.1384D+... LOSS( VROCP3OXY2 ) = 9.9140D-01 * RXRAT( 512 ) ! VROCP3OXY2+HO=0.8600D-... PROD( VROCP0OXY4 ) = 6.0000D-04 * RXRAT( 192 ) ! XYMP+NO=0.6000D-... & + 6.0000D-04 * RXRAT( 193 ) ! XYEP+NO=0.6000D-... & + 2.7710D-01 * RXRAT( 234 ) ! XYMP+HO2=0.2771D+... & + 2.8050D-01 * RXRAT( 235 ) ! XYEP+HO2=0.2805D+... & + RXRAT( 411 ) ! SESQNRO2+HO2=VROCP0OXY4 & + 6.2400D-02 * RXRAT( 502 ) ! VROCN2OXY4+HO=0.6240D-... & + 1.8900D-02 * RXRAT( 503 ) ! VROCN2OXY2+HO=0.1890D-... & + 1.9400D-02 * RXRAT( 505 ) ! VROCN1OXY3+HO=0.1940D-... & + 2.9100D-02 * RXRAT( 506 ) ! VROCN1OXY1+HO=0.2910D-... & + 3.0700D-02 * RXRAT( 508 ) ! VROCP0OXY2+HO=0.3070D-... & + 6.3100D-02 * RXRAT( 509 ) ! VROCP1OXY3+HO=0.6310D-... & + 2.9200D-02 * RXRAT( 510 ) ! VROCP1OXY1+HO=0.2920D-... & + 1.3370D-01 * RXRAT( 511 ) ! VROCP2OXY2+HO=0.1337D+... & + 1.5500D-01 * RXRAT( 512 ) ! VROCP3OXY2+HO=0.1550D+... & + 8.8100D-02 * RXRAT( 513 ) ! VROCP4OXY2+HO=0.8810D-... & + 7.0200D-02 * RXRAT( 514 ) ! VROCP5OXY1+HO=0.7020D-... & + 2.2400D-02 * RXRAT( 515 ) ! VROCP6OXY1+HO=0.2240D-... & + 1.1400D-02 * RXRAT( 516 ) ! OP3+HO=0.1140D-... LOSS( VROCP0OXY4 ) = 9.9890D-01 * RXRAT( 507 ) ! VROCP0OXY4+HO=0.1100D-... PROD( BAL1 ) = RXRAT( 213 ) ! BALP+NO=BAL1+NO2 & + RXRAT( 292 ) ! BALP+MO2=BAL1+HO2+HCHO & + RXRAT( 329 ) ! BALP+ACO3=BAL1+MO2 & + RXRAT( 362 ) ! BALP+NO3=BAL1+NO2 LOSS( BAL1 ) = RXRAT( 214 ) ! BAL1+NO=BAL2+NO2 & + RXRAT( 293 ) ! BAL1+MO2=HO2+BAL2+HCHO & + RXRAT( 330 ) ! BAL1+ACO3=MO2+BAL2 & + RXRAT( 363 ) ! BAL1+NO3=BAL2+NO2 PROD( BAL2 ) = RXRAT( 214 ) ! BAL1+NO=BAL2+NO2 & + RXRAT( 293 ) ! BAL1+MO2=BAL2+HO2+HCHO & + RXRAT( 330 ) ! BAL1+ACO3=BAL2+MO2 & + RXRAT( 363 ) ! BAL1+NO3=BAL2+NO2 LOSS( BAL2 ) = RXRAT( 222 ) ! BAL2+NO2=ONIT PROD( ELHOM ) = 4.0000D-02 * RXRAT( 376 ) ! APIP2+APIP1=0.4000D-... & + 4.0000D-02 * RXRAT( 377 ) ! APIP2+LIMP1=0.4000D-... & + 4.0000D-02 * RXRAT( 378 ) ! APIP2+ISOP=0.4000D-... & + 4.0000D-02 * RXRAT( 379 ) ! LIMP2+APIP1=0.4000D-... & + 4.0000D-02 * RXRAT( 380 ) ! LIMP2+LIMP1=0.4000D-... & + 4.0000D-02 * RXRAT( 381 ) ! LIMP2+ISOP=0.4000D-... & + 4.0000D-02 * RXRAT( 382 ) ! APINP2+APIP1=0.4000D-... & + 4.0000D-02 * RXRAT( 383 ) ! APINP2+LIMP1=0.4000D-... & + 4.0000D-02 * RXRAT( 384 ) ! APINP2+ISOP=0.4000D-... & + 4.0000D-02 * RXRAT( 385 ) ! LIMNP2+APIP1=0.4000D-... & + 4.0000D-02 * RXRAT( 386 ) ! LIMNP2+LIMP1=0.4000D-... & + 4.0000D-02 * RXRAT( 387 ) ! LIMNP2+ISOP=0.4000D-... LOSS( ELHOM ) = 0.0D0 PROD( VROCIOXY ) = 0.0D0 LOSS( VROCIOXY ) = RXRAT( 389 ) ! VROCIOXY+HO=0.8520D+... PROD( SLOWROC ) = 0.0D0 LOSS( SLOWROC ) = RXRAT( 390 ) ! SLOWROC+HO=ETHP+0.1010D-... PROD( ACRO ) = 8.9500D-01 * RXRAT( 396 ) ! BDE13P+NO=0.8950D+00*ACRO+... & + 9.2500D-01 * RXRAT( 397 ) ! BDE13P+NO3=0.9250D+00*ACRO+... & + 4.6300D-01 * RXRAT( 399 ) ! BDE13P+MO2=0.4630D+00*ACRO+... & + 7.4000D-01 * RXRAT( 400 ) ! BDE13P+ACO3=0.7400D+... & + 6.2000D-01 * RXRAT( 401 ) ! BDE13+O3=0.6200D+00*ACRO+... & + 9.0000D-01 * RXRAT( 402 ) ! BDE13+NO3=0.9000D+00*ACRO+... LOSS( ACRO ) = RXRAT( 391 ) ! ACRO+HO=0.5700D+00*MACP+... & + RXRAT( 392 ) ! ACRO+O3=0.8400D+00*CO+... & + RXRAT( 393 ) ! ACRO+NO3=0.6800D+00*HCHO+... & + RXRAT( 394 ) ! ACRO=CO+0.4770D+00*HO2+... PROD( BDE13 ) = 0.0D0 LOSS( BDE13 ) = RXRAT( 395 ) ! BDE13+HO=0.6670D+00*BDE13P+... & + RXRAT( 401 ) ! BDE13+O3=0.6200D+00*ACRO+... & + RXRAT( 402 ) ! BDE13+NO3=0.9000D+00*OLNN+... PROD( BDE13P ) = 6.6700D-01 * RXRAT( 395 ) ! BDE13+HO=0.6670D+00*BDE13P+... LOSS( BDE13P ) = RXRAT( 396 ) ! BDE13P+NO=0.9680D+00*HO2+... & + RXRAT( 397 ) ! BDE13P+NO3=HO2+NO2+0.9250D+... & + RXRAT( 398 ) ! BDE13P+HO2=OP2 & + RXRAT( 399 ) ! BDE13P+MO2=0.3200D+00*MOH+... & + RXRAT( 400 ) ! BDE13P+ACO3=0.7000D+00*MO2+... PROD( FURAN ) = 7.2000D-02 * RXRAT( 396 ) ! BDE13P+NO=0.7200D-01*FURAN+... & + 7.5000D-02 * RXRAT( 397 ) ! BDE13P+NO3=0.7500D-... & + 3.7000D-02 * RXRAT( 399 ) ! BDE13P+MO2=0.3700D-... & + 6.0000D-02 * RXRAT( 400 ) ! BDE13P+ACO3=0.6000D-... LOSS( FURAN ) = RXRAT( 403 ) ! FURAN+HO=0.4900D+00*DCB1+... & + RXRAT( 407 ) ! FURAN+O3=0.2000D-01*HO+ALD & + RXRAT( 408 ) ! FURAN+NO3=NO2+0.8000D+... PROD( FURANO2 ) = 5.1000D-01 * RXRAT( 403 ) ! FURAN+HO=0.5100D+... LOSS( FURANO2 ) = RXRAT( 404 ) ! FURANO2+NO=0.8000D-01*ONIT+... & + RXRAT( 405 ) ! FURANO2+HO2=0.6000D+00*OP2+... PROD( PROG ) = 0.0D0 LOSS( PROG ) = RXRAT( 409 ) ! PROG+HO=0.6130D+00*HKET+... PROD( SESQ ) = 0.0D0 LOSS( SESQ ) = RXRAT( 410 ) ! SESQ+NO3=SESQNRO2 & + RXRAT( 414 ) ! SESQ+O3=0.9820D+... & + RXRAT( 415 ) ! SESQ+HO=SESQRO2 PROD( SESQNRO2 ) = RXRAT( 410 ) ! SESQ+NO3=SESQNRO2 LOSS( SESQNRO2 ) = RXRAT( 411 ) ! SESQNRO2+HO2=VROCP0OXY4 & + RXRAT( 412 ) ! SESQNRO2+NO=VROCP3OXY2+... & + RXRAT( 413 ) ! SESQNRO2+NO3=VROCP3OXY2+... PROD( VROCN2OXY2 ) = 1.8000D-02 * RXRAT( 414 ) ! SESQ+O3=0.1800D-... & + RXRAT( 453 ) ! VROCP1ALKP+HO2=VROCN2OXY2 & + RXRAT( 460 ) ! VROCP1ALKP2=VROCN2OXY2+HO2 & + 1.4000D-01 * RXRAT( 466 ) ! VROCP2ALKP2+NO=0.1400D+... & + RXRAT( 467 ) ! VROCP1ALKP2+NO=VROCN2OXY2+... & + RXRAT( 474 ) ! VROCP1ALKP2+NO3=VROCN2OXY2+... & + RXRAT( 479 ) ! VROCP3ALKP2+HO2=VROCN2OXY2 & + RXRAT( 480 ) ! VROCP2ALKP2+HO2=VROCN2OXY2 & + RXRAT( 481 ) ! VROCP1ALKP2+HO2=VROCN2OXY2 & + 8.8000D-03 * RXRAT( 505 ) ! VROCN1OXY3+HO=0.8800D-... & + 7.2610D-01 * RXRAT( 506 ) ! VROCN1OXY1+HO=0.7261D+... & + 1.1560D-01 * RXRAT( 508 ) ! VROCP0OXY2+HO=0.1156D+... & + 4.0000D-04 * RXRAT( 509 ) ! VROCP1OXY3+HO=0.4000D-... & + 3.3490D-01 * RXRAT( 510 ) ! VROCP1OXY1+HO=0.3349D+... & + 1.0400D-02 * RXRAT( 511 ) ! VROCP2OXY2+HO=0.1040D-... & + 9.0000D-04 * RXRAT( 512 ) ! VROCP3OXY2+HO=0.9000D-... & + 6.0000D-04 * RXRAT( 514 ) ! VROCP5OXY1+HO=0.6000D-... LOSS( VROCN2OXY2 ) = 7.8590D-01 * RXRAT( 503 ) ! VROCN2OXY2+HO=0.2141D+... PROD( SESQRO2 ) = RXRAT( 415 ) ! SESQ+HO=SESQRO2 LOSS( SESQRO2 ) = RXRAT( 416 ) ! SESQRO2+HO2=VROCP0OXY2 & + RXRAT( 417 ) ! SESQRO2+NO3=VROCP3OXY2 & + RXRAT( 418 ) ! SESQRO2+NO=0.2470D+... PROD( VROCP0OXY2 ) = RXRAT( 416 ) ! SESQRO2+HO2=VROCP0OXY2 & + 2.8000D-01 * RXRAT( 438 ) ! VROCP2ALKP+NO=0.2800D+... & + RXRAT( 451 ) ! VROCP3ALKP+HO2=VROCP0OXY2 & + RXRAT( 458 ) ! VROCP3ALKP2=VROCP0OXY2+HO2 & + 1.4000D-01 * RXRAT( 464 ) ! VROCP4ALKP2+NO=0.1400D+... & + 8.6000D-01 * RXRAT( 465 ) ! VROCP3ALKP2+NO=0.8600D+... & + RXRAT( 472 ) ! VROCP3ALKP2+NO3=VROCP0OXY2+... & + RXRAT( 477 ) ! VROCP5ALKP2+HO2=VROCP0OXY2 & + 9.0480D-01 * RXRAT( 490 ) ! VROCP5AROP+HO2=0.9048D+... & + 4.5600D-02 * RXRAT( 503 ) ! VROCN2OXY2+HO=0.4560D-... & + 1.0400D-02 * RXRAT( 505 ) ! VROCN1OXY3+HO=0.1040D-... & + 4.5400D-02 * RXRAT( 506 ) ! VROCN1OXY1+HO=0.4540D-... & + 7.0000D-04 * RXRAT( 509 ) ! VROCP1OXY3+HO=0.7000D-... & + 7.6600D-02 * RXRAT( 510 ) ! VROCP1OXY1+HO=0.7660D-... & + 4.0300D-02 * RXRAT( 511 ) ! VROCP2OXY2+HO=0.4030D-... & + 1.5500D-02 * RXRAT( 512 ) ! VROCP3OXY2+HO=0.1550D-... & + 1.5300D-02 * RXRAT( 514 ) ! VROCP5OXY1+HO=0.1530D-... LOSS( VROCP0OXY2 ) = 9.9760D-01 * RXRAT( 508 ) ! VROCP0OXY2+HO=0.2400D-... PROD( VROCP1OXY3 ) = 2.4700D-01 * RXRAT( 418 ) ! SESQRO2+NO=0.2470D+... & + 1.4000D-01 * RXRAT( 463 ) ! VROCP5ALKP2+NO=0.1400D+... & + RXRAT( 476 ) ! VROCP6ALKP2+HO2=VROCP1OXY3 & + 9.0480D-01 * RXRAT( 484 ) ! VROCP6AROP+HO2=0.9048D+... & + 1.8000D-03 * RXRAT( 491 ) ! VROCP5AROP+NO=0.1800D-... & + 9.0480D-01 * RXRAT( 496 ) ! NAPHP+HO2=0.9048D+... & + 3.8800D-02 * RXRAT( 502 ) ! VROCN2OXY4+HO=0.3880D-... & + 3.1400D-02 * RXRAT( 503 ) ! VROCN2OXY2+HO=0.3140D-... & + 5.1000D-02 * RXRAT( 505 ) ! VROCN1OXY3+HO=0.5100D-... & + 2.3400D-02 * RXRAT( 506 ) ! VROCN1OXY1+HO=0.2340D-... & + 3.9500D-02 * RXRAT( 508 ) ! VROCP0OXY2+HO=0.3950D-... & + 2.7700D-02 * RXRAT( 510 ) ! VROCP1OXY1+HO=0.2770D-... & + 5.1100D-02 * RXRAT( 511 ) ! VROCP2OXY2+HO=0.5110D-... & + 1.0510D-01 * RXRAT( 512 ) ! VROCP3OXY2+HO=0.1051D+... & + 9.1600D-02 * RXRAT( 513 ) ! VROCP4OXY2+HO=0.9160D-... & + 1.0380D-01 * RXRAT( 514 ) ! VROCP5OXY1+HO=0.1038D+... & + 5.0300D-02 * RXRAT( 515 ) ! VROCP6OXY1+HO=0.5030D-... LOSS( VROCP1OXY3 ) = 9.9940D-01 * RXRAT( 509 ) ! VROCP1OXY3+HO=0.6000D-... PROD( AGLYJ ) = RXRAT( 419 ) ! GLY=AGLYJ & + RXRAT( 420 ) ! MGLY=AGLYJ LOSS( AGLYJ ) = 0.0D0 PROD( IEPOXP ) = RXRAT( 424 ) ! IEPOX=IEPOXP LOSS( IEPOXP ) = RXRAT( 425 ) ! IEPOXP=AISO3NOSJ & + RXRAT( 426 ) ! IEPOXP+ASO4J=AISO3OSJ PROD( AISO3NOSJ ) = RXRAT( 425 ) ! IEPOXP=AISO3NOSJ LOSS( AISO3NOSJ ) = 0.0D0 PROD( ASO4J ) = 0.0D0 LOSS( ASO4J ) = RXRAT( 426 ) ! ASO4J+IEPOXP=AISO3OSJ PROD( AISO3OSJ ) = RXRAT( 426 ) ! IEPOXP+ASO4J=AISO3OSJ LOSS( AISO3OSJ ) = 0.0D0 PROD( VROCP6ALK ) = 0.0D0 LOSS( VROCP6ALK ) = RXRAT( 427 ) ! VROCP6ALK+HO=VROCP6ALKP PROD( VROCP6ALKP ) = RXRAT( 427 ) ! VROCP6ALK+HO=VROCP6ALKP LOSS( VROCP6ALKP ) = RXRAT( 434 ) ! VROCP6ALKP+NO=0.7200D+... & + RXRAT( 441 ) ! VROCP6ALKP+NO3=VROCP6ALKP2+NO2 & + RXRAT( 448 ) ! VROCP6ALKP+HO2=VROCP3OXY2 PROD( VROCP5ALK ) = 0.0D0 LOSS( VROCP5ALK ) = RXRAT( 428 ) ! VROCP5ALK+HO=VROCP5ALKP PROD( VROCP5ALKP ) = RXRAT( 428 ) ! VROCP5ALK+HO=VROCP5ALKP LOSS( VROCP5ALKP ) = RXRAT( 435 ) ! VROCP5ALKP+NO=0.7200D+... & + RXRAT( 442 ) ! VROCP5ALKP+NO3=VROCP5ALKP2+NO2 & + RXRAT( 449 ) ! VROCP5ALKP+HO2=VROCP2OXY2 PROD( VROCP4ALK ) = 0.0D0 LOSS( VROCP4ALK ) = RXRAT( 429 ) ! VROCP4ALK+HO=VROCP4ALKP PROD( VROCP4ALKP ) = RXRAT( 429 ) ! VROCP4ALK+HO=VROCP4ALKP LOSS( VROCP4ALKP ) = RXRAT( 436 ) ! VROCP4ALKP+NO=0.7200D+... & + RXRAT( 443 ) ! VROCP4ALKP+NO3=VROCP4ALKP2+NO2 & + RXRAT( 450 ) ! VROCP4ALKP+HO2=VROCP1OXY1 PROD( VROCP3ALK ) = 0.0D0 LOSS( VROCP3ALK ) = RXRAT( 430 ) ! VROCP3ALK+HO=VROCP3ALKP PROD( VROCP3ALKP ) = RXRAT( 430 ) ! VROCP3ALK+HO=VROCP3ALKP LOSS( VROCP3ALKP ) = RXRAT( 437 ) ! VROCP3ALKP+NO=0.7200D+... & + RXRAT( 444 ) ! VROCP3ALKP+NO3=VROCP3ALKP2+NO2 & + RXRAT( 451 ) ! VROCP3ALKP+HO2=VROCP0OXY2 PROD( VROCP2ALK ) = 0.0D0 LOSS( VROCP2ALK ) = RXRAT( 431 ) ! VROCP2ALK+HO=VROCP2ALKP PROD( VROCP2ALKP ) = RXRAT( 431 ) ! VROCP2ALK+HO=VROCP2ALKP LOSS( VROCP2ALKP ) = RXRAT( 438 ) ! VROCP2ALKP+NO=0.7200D+... & + RXRAT( 445 ) ! VROCP2ALKP+NO3=VROCP2ALKP2+NO2 & + RXRAT( 452 ) ! VROCP2ALKP+HO2=VROCN1OXY1 PROD( VROCP1ALK ) = 0.0D0 LOSS( VROCP1ALK ) = RXRAT( 432 ) ! VROCP1ALK+HO=VROCP1ALKP PROD( VROCP1ALKP ) = RXRAT( 432 ) ! VROCP1ALK+HO=VROCP1ALKP LOSS( VROCP1ALKP ) = RXRAT( 439 ) ! VROCP1ALKP+NO=0.7200D+... & + RXRAT( 446 ) ! VROCP1ALKP+NO3=VROCP1ALKP2+NO2 & + RXRAT( 453 ) ! VROCP1ALKP+HO2=VROCN2OXY2 PROD( HC10 ) = 0.0D0 LOSS( HC10 ) = RXRAT( 433 ) ! HC10+HO=HC10P PROD( VROCP6ALKP2 ) = 7.2000D-01 * RXRAT( 434 ) ! VROCP6ALKP+NO=0.7200D+... & + RXRAT( 441 ) ! VROCP6ALKP+NO3=VROCP6ALKP2+NO2 LOSS( VROCP6ALKP2 ) = RXRAT( 455 ) ! VROCP6ALKP2=HO2+VROCP3OXY2 & + RXRAT( 462 ) ! VROCP6ALKP2+NO=0.1400D+... & + RXRAT( 469 ) ! VROCP6ALKP2+NO3=NO2+... & + RXRAT( 476 ) ! VROCP6ALKP2+HO2=VROCP1OXY3 PROD( VROCP5ALKP2 ) = 7.2000D-01 * RXRAT( 435 ) ! VROCP5ALKP+NO=0.7200D+... & + RXRAT( 442 ) ! VROCP5ALKP+NO3=VROCP5ALKP2+NO2 LOSS( VROCP5ALKP2 ) = RXRAT( 456 ) ! VROCP5ALKP2=HO2+VROCP2OXY2 & + RXRAT( 463 ) ! VROCP5ALKP2+NO=0.1400D+... & + RXRAT( 470 ) ! VROCP5ALKP2+NO3=NO2+... & + RXRAT( 477 ) ! VROCP5ALKP2+HO2=VROCP0OXY2 PROD( VROCP4ALKP2 ) = 7.2000D-01 * RXRAT( 436 ) ! VROCP4ALKP+NO=0.7200D+... & + RXRAT( 443 ) ! VROCP4ALKP+NO3=VROCP4ALKP2+NO2 LOSS( VROCP4ALKP2 ) = RXRAT( 457 ) ! VROCP4ALKP2=HO2+VROCP1OXY1 & + RXRAT( 464 ) ! VROCP4ALKP2+NO=0.1400D+... & + RXRAT( 471 ) ! VROCP4ALKP2+NO3=NO2+... & + RXRAT( 478 ) ! VROCP4ALKP2+HO2=VROCN1OXY1 PROD( VROCP2OXY2 ) = 2.8000D-01 * RXRAT( 436 ) ! VROCP4ALKP+NO=0.2800D+... & + RXRAT( 449 ) ! VROCP5ALKP+HO2=VROCP2OXY2 & + RXRAT( 456 ) ! VROCP5ALKP2=VROCP2OXY2+HO2 & + 1.4000D-01 * RXRAT( 462 ) ! VROCP6ALKP2+NO=0.1400D+... & + 8.6000D-01 * RXRAT( 463 ) ! VROCP5ALKP2+NO=0.8600D+... & + RXRAT( 470 ) ! VROCP5ALKP2+NO3=VROCP2OXY2+... & + RXRAT( 482 ) ! HC10P2+HO2=VROCP2OXY2 & + 1.8000D-03 * RXRAT( 485 ) ! VROCP6AROP+NO=0.1800D-... & + 1.8000D-03 * RXRAT( 497 ) ! NAPHP+NO=0.1800D-... & + 4.9100D-02 * RXRAT( 502 ) ! VROCN2OXY4+HO=0.4910D-... & + 4.5900D-02 * RXRAT( 503 ) ! VROCN2OXY2+HO=0.4590D-... & + 5.1200D-02 * RXRAT( 505 ) ! VROCN1OXY3+HO=0.5120D-... & + 6.2400D-02 * RXRAT( 506 ) ! VROCN1OXY1+HO=0.6240D-... & + 6.6000D-02 * RXRAT( 507 ) ! VROCP0OXY4+HO=0.6600D-... & + 5.3900D-02 * RXRAT( 508 ) ! VROCP0OXY2+HO=0.5390D-... & + 2.2700D-02 * RXRAT( 509 ) ! VROCP1OXY3+HO=0.2270D-... & + 6.5100D-02 * RXRAT( 510 ) ! VROCP1OXY1+HO=0.6510D-... & + 5.3500D-02 * RXRAT( 512 ) ! VROCP3OXY2+HO=0.5350D-... & + 9.7200D-02 * RXRAT( 513 ) ! VROCP4OXY2+HO=0.9720D-... & + 1.6500D-01 * RXRAT( 514 ) ! VROCP5OXY1+HO=0.1650D+... & + 8.7900D-02 * RXRAT( 515 ) ! VROCP6OXY1+HO=0.8790D-... LOSS( VROCP2OXY2 ) = 9.7640D-01 * RXRAT( 511 ) ! VROCP2OXY2+HO=0.2360D-... PROD( VROCP3ALKP2 ) = 7.2000D-01 * RXRAT( 437 ) ! VROCP3ALKP+NO=0.7200D+... & + RXRAT( 444 ) ! VROCP3ALKP+NO3=VROCP3ALKP2+NO2 LOSS( VROCP3ALKP2 ) = RXRAT( 458 ) ! VROCP3ALKP2=HO2+VROCP0OXY2 & + RXRAT( 465 ) ! VROCP3ALKP2+NO=0.1400D+... & + RXRAT( 472 ) ! VROCP3ALKP2+NO3=NO2+... & + RXRAT( 479 ) ! VROCP3ALKP2+HO2=VROCN2OXY2 PROD( VROCP1OXY1 ) = 2.8000D-01 * RXRAT( 437 ) ! VROCP3ALKP+NO=0.2800D+... & + RXRAT( 450 ) ! VROCP4ALKP+HO2=VROCP1OXY1 & + RXRAT( 457 ) ! VROCP4ALKP2=VROCP1OXY1+HO2 & + 8.6000D-01 * RXRAT( 464 ) ! VROCP4ALKP2+NO=0.8600D+... & + RXRAT( 471 ) ! VROCP4ALKP2+NO3=VROCP1OXY1+... & + 1.9900D-02 * RXRAT( 503 ) ! VROCN2OXY2+HO=0.1990D-... & + 7.5000D-03 * RXRAT( 505 ) ! VROCN1OXY3+HO=0.7500D-... & + 3.5200D-02 * RXRAT( 506 ) ! VROCN1OXY1+HO=0.3520D-... & + 2.1500D-02 * RXRAT( 508 ) ! VROCP0OXY2+HO=0.2150D-... & + 6.8000D-03 * RXRAT( 511 ) ! VROCP2OXY2+HO=0.6800D-... & + 1.3000D-03 * RXRAT( 512 ) ! VROCP3OXY2+HO=0.1300D-... & + 7.3000D-03 * RXRAT( 513 ) ! VROCP4OXY2+HO=0.7300D-... & + 3.1000D-03 * RXRAT( 514 ) ! VROCP5OXY1+HO=0.3100D-... & + 2.2000D-03 * RXRAT( 515 ) ! VROCP6OXY1+HO=0.2200D-... LOSS( VROCP1OXY1 ) = 9.8820D-01 * RXRAT( 510 ) ! VROCP1OXY1+HO=0.1180D-... PROD( VROCP2ALKP2 ) = 7.2000D-01 * RXRAT( 438 ) ! VROCP2ALKP+NO=0.7200D+... & + RXRAT( 445 ) ! VROCP2ALKP+NO3=VROCP2ALKP2+NO2 LOSS( VROCP2ALKP2 ) = RXRAT( 459 ) ! VROCP2ALKP2=HO2+VROCN1OXY1 & + RXRAT( 466 ) ! VROCP2ALKP2+NO=0.1400D+... & + RXRAT( 473 ) ! VROCP2ALKP2+NO3=NO2+... & + RXRAT( 480 ) ! VROCP2ALKP2+HO2=VROCN2OXY2 PROD( VROCP1ALKP2 ) = 7.2000D-01 * RXRAT( 439 ) ! VROCP1ALKP+NO=0.7200D+... & + RXRAT( 446 ) ! VROCP1ALKP+NO3=VROCP1ALKP2+NO2 LOSS( VROCP1ALKP2 ) = RXRAT( 460 ) ! VROCP1ALKP2=HO2+VROCN2OXY2 & + RXRAT( 467 ) ! VROCP1ALKP2+NO=VROCN2OXY2+... & + RXRAT( 474 ) ! VROCP1ALKP2+NO3=NO2+... & + RXRAT( 481 ) ! VROCP1ALKP2+HO2=VROCN2OXY2 PROD( VROCN1OXY1 ) = 2.8000D-01 * RXRAT( 439 ) ! VROCP1ALKP+NO=0.2800D+... & + RXRAT( 452 ) ! VROCP2ALKP+HO2=VROCN1OXY1 & + RXRAT( 459 ) ! VROCP2ALKP2=VROCN1OXY1+HO2 & + 1.4000D-01 * RXRAT( 465 ) ! VROCP3ALKP2+NO=0.1400D+... & + 8.6000D-01 * RXRAT( 466 ) ! VROCP2ALKP2+NO=0.8600D+... & + RXRAT( 473 ) ! VROCP2ALKP2+NO3=VROCN1OXY1+... & + RXRAT( 478 ) ! VROCP4ALKP2+HO2=VROCN1OXY1 & + 9.6000D-03 * RXRAT( 503 ) ! VROCN2OXY2+HO=0.9600D-... & + 4.6000D-03 * RXRAT( 508 ) ! VROCP0OXY2+HO=0.4600D-... & + 7.5800D-02 * RXRAT( 510 ) ! VROCP1OXY1+HO=0.7580D-... & + 1.3000D-03 * RXRAT( 511 ) ! VROCP2OXY2+HO=0.1300D-... LOSS( VROCN1OXY1 ) = 9.9300D-01 * RXRAT( 506 ) ! VROCN1OXY1+HO=0.7000D-... PROD( HC10P2 ) = 7.4000D-01 * RXRAT( 440 ) ! HC10P+NO=0.7400D+00*HC10P2+... & + RXRAT( 447 ) ! HC10P+NO3=HC10P2+NO2 LOSS( HC10P2 ) = RXRAT( 461 ) ! HC10P2=HO2+VROCP4OXY2 & + RXRAT( 468 ) ! HC10P2+NO=0.1200D+00*ONIT+... & + RXRAT( 475 ) ! HC10P2+NO3=NO2+KET+HO2 & + RXRAT( 482 ) ! HC10P2+HO2=VROCP2OXY2 PROD( VROCP6ARO ) = 0.0D0 LOSS( VROCP6ARO ) = RXRAT( 483 ) ! VROCP6ARO+HO=0.8400D+... PROD( VROCP6AROP ) = 8.4000D-01 * RXRAT( 483 ) ! VROCP6ARO+HO=0.8400D+... LOSS( VROCP6AROP ) = RXRAT( 484 ) ! VROCP6AROP+HO2=0.5950D-... & + RXRAT( 485 ) ! VROCP6AROP+NO=0.1000D-... & + RXRAT( 486 ) ! VROCP6AROP+NO3=NO2+0.9405D+... & + RXRAT( 487 ) ! VROCP6AROP+MO2=0.6800D+... & + RXRAT( 488 ) ! VROCP6AROP+ACO3=0.7000D+... PROD( VROCN2OXY4 ) = 3.5700D-02 * RXRAT( 484 ) ! VROCP6AROP+HO2=0.3570D-... & + 3.5700D-02 * RXRAT( 490 ) ! VROCP5AROP+HO2=0.3570D-... & + 1.0000D-04 * RXRAT( 491 ) ! VROCP5AROP+NO=0.1000D-... & + 5.6380D-01 * RXRAT( 503 ) ! VROCN2OXY2+HO=0.5638D+... & + 7.1000D-03 * RXRAT( 504 ) ! VROCN1OXY6+HO=0.7100D-... & + 4.0250D-01 * RXRAT( 505 ) ! VROCN1OXY3+HO=0.4025D+... & + 1.1900D-01 * RXRAT( 506 ) ! VROCN1OXY1+HO=0.1190D+... & + 1.1650D-01 * RXRAT( 507 ) ! VROCP0OXY4+HO=0.1165D+... & + 4.5790D-01 * RXRAT( 508 ) ! VROCP0OXY2+HO=0.4579D+... & + 1.9240D-01 * RXRAT( 509 ) ! VROCP1OXY3+HO=0.1924D+... & + 1.3400D-01 * RXRAT( 510 ) ! VROCP1OXY1+HO=0.1340D+... & + 1.7260D-01 * RXRAT( 511 ) ! VROCP2OXY2+HO=0.1726D+... & + 7.6500D-02 * RXRAT( 512 ) ! VROCP3OXY2+HO=0.7650D-... & + 1.6700D-02 * RXRAT( 513 ) ! VROCP4OXY2+HO=0.1670D-... & + 1.0300D-02 * RXRAT( 514 ) ! VROCP5OXY1+HO=0.1030D-... & + 8.0000D-04 * RXRAT( 516 ) ! OP3+HO=0.8000D-... LOSS( VROCN2OXY4 ) = 8.0230D-01 * RXRAT( 502 ) ! VROCN2OXY4+HO=0.1977D+... PROD( VROCN1OXY3 ) = 1.0000D-04 * RXRAT( 485 ) ! VROCP6AROP+NO=0.1000D-... & + 1.5200D-02 * RXRAT( 502 ) ! VROCN2OXY4+HO=0.1520D-... & + 2.9800D-02 * RXRAT( 503 ) ! VROCN2OXY2+HO=0.2980D-... & + 3.0500D-02 * RXRAT( 506 ) ! VROCN1OXY1+HO=0.3050D-... & + 1.8300D-02 * RXRAT( 507 ) ! VROCP0OXY4+HO=0.1830D-... & + 6.5700D-02 * RXRAT( 508 ) ! VROCP0OXY2+HO=0.6570D-... & + 4.5200D-02 * RXRAT( 509 ) ! VROCP1OXY3+HO=0.4520D-... & + 1.1930D-01 * RXRAT( 510 ) ! VROCP1OXY1+HO=0.1193D+... & + 1.1180D-01 * RXRAT( 511 ) ! VROCP2OXY2+HO=0.1118D+... & + 4.8900D-02 * RXRAT( 512 ) ! VROCP3OXY2+HO=0.4890D-... & + 2.4600D-02 * RXRAT( 513 ) ! VROCP4OXY2+HO=0.2460D-... & + 1.4600D-02 * RXRAT( 514 ) ! VROCP5OXY1+HO=0.1460D-... & + 4.9000D-03 * RXRAT( 515 ) ! VROCP6OXY1+HO=0.4900D-... LOSS( VROCN1OXY3 ) = 9.9240D-01 * RXRAT( 505 ) ! VROCN1OXY3+HO=0.7600D-... PROD( VROCP5ARO ) = 0.0D0 LOSS( VROCP5ARO ) = RXRAT( 489 ) ! VROCP5ARO+HO=0.8400D+... PROD( VROCP5AROP ) = 8.4000D-01 * RXRAT( 489 ) ! VROCP5ARO+HO=0.8400D+... LOSS( VROCP5AROP ) = RXRAT( 490 ) ! VROCP5AROP+HO2=0.5950D-... & + RXRAT( 491 ) ! VROCP5AROP+NO=0.1000D-... & + RXRAT( 492 ) ! VROCP5AROP+NO3=NO2+0.9405D+... & + RXRAT( 493 ) ! VROCP5AROP+MO2=0.6800D+... & + RXRAT( 494 ) ! VROCP5AROP+ACO3=0.7000D+... PROD( NAPH ) = 0.0D0 LOSS( NAPH ) = RXRAT( 495 ) ! NAPH+HO=0.8400D+00*NAPHP+... PROD( NAPHP ) = 8.4000D-01 * RXRAT( 495 ) ! NAPH+HO=0.8400D+00*NAPHP+... LOSS( NAPHP ) = RXRAT( 496 ) ! NAPHP+HO2=0.5950D-... & + RXRAT( 497 ) ! NAPHP+NO=0.5950D-... & + RXRAT( 498 ) ! NAPHP+NO3=NO2+0.9405D+... & + RXRAT( 499 ) ! NAPHP+MO2=0.6800D+00*HCHO+... & + RXRAT( 500 ) ! NAPHP+ACO3=0.7000D+00*MO2+... PROD( VROCN2OXY8 ) = 3.5700D-02 * RXRAT( 496 ) ! NAPHP+HO2=0.3570D-... & + 1.0000D-04 * RXRAT( 497 ) ! NAPHP+NO=0.1000D-... & + 4.6400D-01 * RXRAT( 502 ) ! VROCN2OXY4+HO=0.4640D+... & + 1.0410D-01 * RXRAT( 503 ) ! VROCN2OXY2+HO=0.1041D+... & + 2.0360D-01 * RXRAT( 504 ) ! VROCN1OXY6+HO=0.2036D+... & + 2.7920D-01 * RXRAT( 505 ) ! VROCN1OXY3+HO=0.2792D+... & + 7.4000D-03 * RXRAT( 506 ) ! VROCN1OXY1+HO=0.7400D-... & + 2.8220D-01 * RXRAT( 507 ) ! VROCP0OXY4+HO=0.2822D+... & + 6.5900D-02 * RXRAT( 508 ) ! VROCP0OXY2+HO=0.6590D-... & + 1.7780D-01 * RXRAT( 509 ) ! VROCP1OXY3+HO=0.1778D+... & + 2.3000D-03 * RXRAT( 510 ) ! VROCP1OXY1+HO=0.2300D-... & + 4.4500D-02 * RXRAT( 511 ) ! VROCP2OXY2+HO=0.4450D-... & + 3.1700D-02 * RXRAT( 512 ) ! VROCP3OXY2+HO=0.3170D-... & + 1.1700D-02 * RXRAT( 513 ) ! VROCP4OXY2+HO=0.1170D-... & + 1.1880D-01 * RXRAT( 516 ) ! OP3+HO=0.1188D+... LOSS( VROCN2OXY8 ) = 9.1460D-01 * RXRAT( 501 ) ! VROCN2OXY8+HO=0.8540D-... PROD( VROCP5OXY1 ) = 3.2500D-02 * RXRAT( 503 ) ! VROCN2OXY2+HO=0.3250D-... & + 1.3800D-02 * RXRAT( 505 ) ! VROCN1OXY3+HO=0.1380D-... & + 3.4700D-02 * RXRAT( 506 ) ! VROCN1OXY1+HO=0.3470D-... & + 3.7100D-02 * RXRAT( 508 ) ! VROCP0OXY2+HO=0.3710D-... & + 1.7400D-02 * RXRAT( 509 ) ! VROCP1OXY3+HO=0.1740D-... & + 4.2300D-02 * RXRAT( 510 ) ! VROCP1OXY1+HO=0.4230D-... & + 5.2300D-02 * RXRAT( 511 ) ! VROCP2OXY2+HO=0.5230D-... & + 5.8200D-02 * RXRAT( 512 ) ! VROCP3OXY2+HO=0.5820D-... & + 4.7900D-02 * RXRAT( 513 ) ! VROCP4OXY2+HO=0.4790D-... & + 4.3200D-02 * RXRAT( 515 ) ! VROCP6OXY1+HO=0.4320D-... LOSS( VROCP5OXY1 ) = 9.9380D-01 * RXRAT( 514 ) ! VROCP5OXY1+HO=0.6200D-... PROD( VROCP6OXY1 ) = 3.6900D-02 * RXRAT( 503 ) ! VROCN2OXY2+HO=0.3690D-... & + 7.4800D-02 * RXRAT( 506 ) ! VROCN1OXY1+HO=0.7480D-... & + 4.2100D-02 * RXRAT( 508 ) ! VROCP0OXY2+HO=0.4210D-... & + 9.1100D-02 * RXRAT( 510 ) ! VROCP1OXY1+HO=0.9110D-... & + 5.9500D-02 * RXRAT( 511 ) ! VROCP2OXY2+HO=0.5950D-... & + 6.6100D-02 * RXRAT( 512 ) ! VROCP3OXY2+HO=0.6610D-... & + 7.4500D-02 * RXRAT( 513 ) ! VROCP4OXY2+HO=0.7450D-... & + 1.3980D-01 * RXRAT( 514 ) ! VROCP5OXY1+HO=0.1398D+... LOSS( VROCP6OXY1 ) = 9.0430D-01 * RXRAT( 515 ) ! VROCP6OXY1+HO=0.9570D-... RETURN END ================================================ FILE: CCTM/src/gas/ebi_cracmm1amore_aq/hrrates.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE HRRATES C*********************************************************************** C C FUNCTION: To calculate rates of reactions C C PRECONDITIONS: For the CRACMM1AMORE_AQ mechanism C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by EBI solver program, Jun 16, 2022 C C*********************************************************************** USE HRDATA IMPLICIT NONE C.....INCLUDES: NONE C.....ARGUMENTS: NONE C.....PARAMETERS: NONE C.....EXTERNAL FUNCTIONS: NONE C.....SAVED VARIABLES: NONE ! CHARACTER( 16 ), SAVE :: PNAME = 'HRRATES' ! Program name C.....LOCAL VARIABLES: None C*********************************************************************** C..NOTE: RXRAT commented out are not referenced by any routine RXRAT( 1 ) = RKI( 1 ) * YC( O3 ) RXRAT( 2 ) = RKI( 2 ) * YC( O3 ) RXRAT( 3 ) = RKI( 3 ) * YC( H2O2 ) ! RXRAT( 4 ) = RKI( 4 ) * YC( NO2 ) RXRAT( 5 ) = RKI( 5 ) * YC( NO3 ) RXRAT( 6 ) = RKI( 6 ) * YC( NO3 ) RXRAT( 7 ) = RKI( 7 ) * YC( HONO ) RXRAT( 8 ) = RKI( 8 ) * YC( HNO3 ) RXRAT( 9 ) = RKI( 9 ) * YC( HNO4 ) RXRAT( 10 ) = RKI( 10 ) * YC( HCHO ) RXRAT( 11 ) = RKI( 11 ) * YC( HCHO ) RXRAT( 12 ) = RKI( 12 ) * YC( ACD ) RXRAT( 13 ) = RKI( 13 ) * YC( ALD ) RXRAT( 14 ) = RKI( 14 ) * YC( ACT ) RXRAT( 15 ) = RKI( 15 ) * YC( ACT ) RXRAT( 16 ) = RKI( 16 ) * YC( UALD ) RXRAT( 17 ) = RKI( 17 ) * YC( PINAL ) RXRAT( 18 ) = RKI( 18 ) * YC( LIMAL ) RXRAT( 19 ) = RKI( 19 ) * YC( MEK ) RXRAT( 20 ) = RKI( 20 ) * YC( KET ) RXRAT( 21 ) = RKI( 21 ) * YC( HKET ) RXRAT( 22 ) = RKI( 22 ) * YC( MACR ) RXRAT( 23 ) = RKI( 23 ) * YC( MVK ) RXRAT( 24 ) = RKI( 24 ) * YC( GLY ) RXRAT( 25 ) = RKI( 25 ) * YC( GLY ) RXRAT( 26 ) = RKI( 26 ) * YC( GLY ) RXRAT( 27 ) = RKI( 27 ) * YC( MGLY ) RXRAT( 28 ) = RKI( 28 ) * YC( DCB1 ) RXRAT( 29 ) = RKI( 29 ) * YC( DCB2 ) RXRAT( 30 ) = RKI( 30 ) * YC( BALD ) RXRAT( 31 ) = RKI( 31 ) * YC( OP1 ) RXRAT( 32 ) = RKI( 32 ) * YC( OP2 ) RXRAT( 33 ) = RKI( 33 ) * YC( OPB ) RXRAT( 34 ) = RKI( 34 ) * YC( OP3 ) RXRAT( 35 ) = RKI( 35 ) * YC( PAA ) RXRAT( 36 ) = RKI( 36 ) * YC( ONIT ) RXRAT( 37 ) = RKI( 37 ) * YC( PAN ) RXRAT( 38 ) = RKI( 38 ) * YC( PAN ) ! RXRAT( 39 ) = RKI( 39 ) * YC( O3 ) * YC( HO ) ! RXRAT( 40 ) = RKI( 40 ) * YC( O3 ) * YC( HO2 ) ! RXRAT( 41 ) = RKI( 41 ) * YC( O3 ) * YC( NO ) RXRAT( 42 ) = RKI( 42 ) * YC( O3 ) * YC( NO2 ) ! RXRAT( 43 ) = RKI( 43 ) * YC( O3P ) ! RXRAT( 44 ) = RKI( 44 ) * YC( O3P ) * YC( O3 ) ! RXRAT( 45 ) = RKI( 45 ) * YC( O1D ) ! RXRAT( 46 ) = RKI( 46 ) * YC( O1D ) ! RXRAT( 47 ) = RKI( 47 ) * YC( O1D ) ! RXRAT( 48 ) = RKI( 48 ) * YC( HO ) ! RXRAT( 49 ) = RKI( 49 ) * YC( HO ) * YC( HO2 ) RXRAT( 50 ) = RKI( 50 ) * YC( HO2 ) * YC( HO2 ) RXRAT( 51 ) = RKI( 51 ) * YC( HO2 ) * YC( HO2 ) RXRAT( 52 ) = RKI( 52 ) * YC( H2O2 ) * YC( HO ) ! RXRAT( 53 ) = RKI( 53 ) * YC( NO ) * YC( O3P ) ! RXRAT( 54 ) = RKI( 54 ) * YC( NO ) * YC( HO ) ! RXRAT( 55 ) = RKI( 55 ) * YC( NO ) * YC( HO2 ) RXRAT( 56 ) = RKI( 56 ) * YC( NO ) * YC( HO2 ) ! RXRAT( 57 ) = RKI( 57 ) * YC( NO ) * YC( NO ) RXRAT( 58 ) = RKI( 58 ) * YC( HONO ) * YC( HO ) ! RXRAT( 59 ) = RKI( 59 ) * YC( NO2 ) * YC( O3P ) RXRAT( 60 ) = RKI( 60 ) * YC( NO2 ) * YC( O3P ) RXRAT( 61 ) = RKI( 61 ) * YC( NO2 ) * YC( HO ) RXRAT( 62 ) = RKI( 62 ) * YC( HNO3 ) * YC( HO ) RXRAT( 63 ) = RKI( 63 ) * YC( NO3 ) * YC( HO ) RXRAT( 64 ) = RKI( 64 ) * YC( NO3 ) * YC( HO2 ) RXRAT( 65 ) = RKI( 65 ) * YC( NO3 ) * YC( NO ) RXRAT( 66 ) = RKI( 66 ) * YC( NO3 ) * YC( NO2 ) RXRAT( 67 ) = RKI( 67 ) * YC( NO3 ) * YC( NO3 ) ! RXRAT( 68 ) = RKI( 68 ) * YC( NO3 ) * YC( NO2 ) RXRAT( 69 ) = RKI( 69 ) * YC( N2O5 ) RXRAT( 70 ) = RKI( 70 ) * YC( N2O5 ) ! RXRAT( 71 ) = RKI( 71 ) * YC( NO2 ) * YC( HO2 ) RXRAT( 72 ) = RKI( 72 ) * YC( HNO4 ) RXRAT( 73 ) = RKI( 73 ) * YC( HNO4 ) * YC( HO ) RXRAT( 74 ) = RKI( 74 ) * YC( SO2 ) * YC( HO ) RXRAT( 75 ) = RKI( 75 ) * YC( CO ) * YC( HO ) RXRAT( 76 ) = RKI( 76 ) * YC( HO ) RXRAT( 77 ) = RKI( 77 ) * YC( ETH ) * YC( HO ) RXRAT( 78 ) = RKI( 78 ) * YC( HC3 ) * YC( HO ) RXRAT( 79 ) = RKI( 79 ) * YC( HC5 ) * YC( HO ) RXRAT( 80 ) = RKI( 80 ) * YC( ETE ) * YC( HO ) RXRAT( 81 ) = RKI( 81 ) * YC( OLT ) * YC( HO ) RXRAT( 82 ) = RKI( 82 ) * YC( OLI ) * YC( HO ) RXRAT( 83 ) = RKI( 83 ) * YC( ACE ) * YC( HO ) RXRAT( 84 ) = RKI( 84 ) * YC( BEN ) * YC( HO ) RXRAT( 85 ) = RKI( 85 ) * YC( TOL ) * YC( HO ) RXRAT( 86 ) = RKI( 86 ) * YC( XYM ) * YC( HO ) RXRAT( 87 ) = RKI( 87 ) * YC( XYE ) * YC( HO ) RXRAT( 88 ) = RKI( 88 ) * YC( ISO ) * YC( O3 ) RXRAT( 89 ) = RKI( 89 ) * YC( ISO ) * YC( NO3 ) RXRAT( 90 ) = RKI( 90 ) * YC( ISO ) * YC( HO ) RXRAT( 91 ) = RKI( 91 ) * YC( ISOP ) * YC( HO2 ) RXRAT( 92 ) = RKI( 92 ) * YC( ISOP ) * YC( NO ) RXRAT( 93 ) = RKI( 93 ) * YC( ISHP ) * YC( HO ) RXRAT( 94 ) = RKI( 94 ) * YC( INO2 ) * YC( HO2 ) RXRAT( 95 ) = RKI( 95 ) * YC( INO2 ) * YC( NO ) RXRAT( 96 ) = RKI( 96 ) * YC( IPN ) * YC( HO2 ) RXRAT( 97 ) = RKI( 97 ) * YC( ISON ) * YC( HO ) RXRAT( 98 ) = RKI( 98 ) * YC( ISHP ) * YC( HO ) RXRAT( 99 ) = RKI( 99 ) * YC( ISHP ) RXRAT( 100 ) = RKI( 100 ) * YC( IPC ) * YC( NO ) RXRAT( 101 ) = RKI( 101 ) * YC( NALD ) * YC( HO ) RXRAT( 102 ) = RKI( 102 ) * YC( NALD ) * YC( NO3 ) RXRAT( 103 ) = RKI( 103 ) * YC( ISON ) RXRAT( 104 ) = RKI( 104 ) * YC( API ) * YC( HO ) RXRAT( 105 ) = RKI( 105 ) * YC( LIM ) * YC( HO ) RXRAT( 106 ) = RKI( 106 ) * YC( PINAL ) * YC( HO ) RXRAT( 107 ) = RKI( 107 ) * YC( LIMAL ) * YC( HO ) RXRAT( 108 ) = RKI( 108 ) * YC( HCHO ) * YC( HO ) RXRAT( 109 ) = RKI( 109 ) * YC( ACD ) * YC( HO ) RXRAT( 110 ) = RKI( 110 ) * YC( ALD ) * YC( HO ) RXRAT( 111 ) = RKI( 111 ) * YC( ACT ) * YC( HO ) RXRAT( 112 ) = RKI( 112 ) * YC( MEK ) * YC( HO ) RXRAT( 113 ) = RKI( 113 ) * YC( KET ) * YC( HO ) RXRAT( 114 ) = RKI( 114 ) * YC( HKET ) * YC( HO ) RXRAT( 115 ) = RKI( 115 ) * YC( MACR ) * YC( HO ) RXRAT( 116 ) = RKI( 116 ) * YC( MVK ) * YC( HO ) RXRAT( 117 ) = RKI( 117 ) * YC( UALD ) * YC( HO ) RXRAT( 118 ) = RKI( 118 ) * YC( GLY ) * YC( HO ) RXRAT( 119 ) = RKI( 119 ) * YC( MGLY ) * YC( HO ) RXRAT( 120 ) = RKI( 120 ) * YC( DCB1 ) * YC( HO ) RXRAT( 121 ) = RKI( 121 ) * YC( DCB2 ) * YC( HO ) RXRAT( 122 ) = RKI( 122 ) * YC( DCB3 ) * YC( HO ) RXRAT( 123 ) = RKI( 123 ) * YC( BALD ) * YC( HO ) RXRAT( 124 ) = RKI( 124 ) * YC( PHEN ) * YC( HO ) RXRAT( 125 ) = RKI( 125 ) * YC( CSL ) * YC( HO ) RXRAT( 126 ) = RKI( 126 ) * YC( MCT ) * YC( HO ) RXRAT( 127 ) = RKI( 127 ) * YC( MOH ) * YC( HO ) RXRAT( 128 ) = RKI( 128 ) * YC( EOH ) * YC( HO ) RXRAT( 129 ) = RKI( 129 ) * YC( ROH ) * YC( HO ) RXRAT( 130 ) = RKI( 130 ) * YC( ETEG ) * YC( HO ) RXRAT( 131 ) = RKI( 131 ) * YC( OP1 ) * YC( HO ) RXRAT( 132 ) = RKI( 132 ) * YC( OP2 ) * YC( HO ) RXRAT( 133 ) = RKI( 133 ) * YC( OPB ) * YC( HO ) RXRAT( 134 ) = RKI( 134 ) * YC( OP3 ) * YC( HO ) RXRAT( 135 ) = RKI( 135 ) * YC( MAHP ) * YC( HO ) RXRAT( 136 ) = RKI( 136 ) * YC( ORA1 ) * YC( HO ) RXRAT( 137 ) = RKI( 137 ) * YC( ORA2 ) * YC( HO ) RXRAT( 138 ) = RKI( 138 ) * YC( PAA ) * YC( HO ) RXRAT( 139 ) = RKI( 139 ) * YC( PAN ) * YC( HO ) RXRAT( 140 ) = RKI( 140 ) * YC( PPN ) * YC( HO ) RXRAT( 141 ) = RKI( 141 ) * YC( MPAN ) * YC( HO ) RXRAT( 142 ) = RKI( 142 ) * YC( ONIT ) * YC( HO ) RXRAT( 143 ) = RKI( 143 ) * YC( TRPN ) * YC( HO ) RXRAT( 144 ) = RKI( 144 ) * YC( ETE ) * YC( O3 ) RXRAT( 145 ) = RKI( 145 ) * YC( OLT ) * YC( O3 ) RXRAT( 146 ) = RKI( 146 ) * YC( OLI ) * YC( O3 ) RXRAT( 147 ) = RKI( 147 ) * YC( API ) * YC( O3 ) RXRAT( 148 ) = RKI( 148 ) * YC( LIM ) * YC( O3 ) RXRAT( 149 ) = RKI( 149 ) * YC( LIMAL ) * YC( O3 ) RXRAT( 150 ) = RKI( 150 ) * YC( TRPN ) * YC( O3 ) RXRAT( 151 ) = RKI( 151 ) * YC( MACR ) * YC( O3 ) RXRAT( 152 ) = RKI( 152 ) * YC( MVK ) * YC( O3 ) RXRAT( 153 ) = RKI( 153 ) * YC( UALD ) * YC( O3 ) RXRAT( 154 ) = RKI( 154 ) * YC( DCB1 ) * YC( O3 ) RXRAT( 155 ) = RKI( 155 ) * YC( DCB2 ) * YC( O3 ) RXRAT( 156 ) = RKI( 156 ) * YC( DCB3 ) * YC( O3 ) RXRAT( 157 ) = RKI( 157 ) * YC( MCTO ) * YC( O3 ) RXRAT( 158 ) = RKI( 158 ) * YC( ETE ) * YC( NO3 ) RXRAT( 159 ) = RKI( 159 ) * YC( OLT ) * YC( NO3 ) RXRAT( 160 ) = RKI( 160 ) * YC( OLI ) * YC( NO3 ) RXRAT( 161 ) = RKI( 161 ) * YC( API ) * YC( NO3 ) RXRAT( 162 ) = RKI( 162 ) * YC( LIM ) * YC( NO3 ) RXRAT( 163 ) = RKI( 163 ) * YC( TRPN ) * YC( NO3 ) RXRAT( 164 ) = RKI( 164 ) * YC( HCHO ) * YC( NO3 ) RXRAT( 165 ) = RKI( 165 ) * YC( ACD ) * YC( NO3 ) RXRAT( 166 ) = RKI( 166 ) * YC( ALD ) * YC( NO3 ) RXRAT( 167 ) = RKI( 167 ) * YC( MACR ) * YC( NO3 ) RXRAT( 168 ) = RKI( 168 ) * YC( UALD ) * YC( NO3 ) RXRAT( 169 ) = RKI( 169 ) * YC( GLY ) * YC( NO3 ) RXRAT( 170 ) = RKI( 170 ) * YC( MGLY ) * YC( NO3 ) RXRAT( 171 ) = RKI( 171 ) * YC( PHEN ) * YC( NO3 ) RXRAT( 172 ) = RKI( 172 ) * YC( CSL ) * YC( NO3 ) RXRAT( 173 ) = RKI( 173 ) * YC( MCT ) * YC( NO3 ) RXRAT( 174 ) = RKI( 174 ) * YC( MPAN ) * YC( NO3 ) RXRAT( 175 ) = RKI( 175 ) * YC( PINALP ) RXRAT( 176 ) = RKI( 176 ) * YC( LIMALP ) ! RXRAT( 177 ) = RKI( 177 ) * YC( ACO3 ) * YC( NO2 ) RXRAT( 178 ) = RKI( 178 ) * YC( PAN ) RXRAT( 179 ) = RKI( 179 ) * YC( RCO3 ) * YC( NO2 ) RXRAT( 180 ) = RKI( 180 ) * YC( PPN ) RXRAT( 181 ) = RKI( 181 ) * YC( MACP ) * YC( NO2 ) RXRAT( 182 ) = RKI( 182 ) * YC( MPAN ) RXRAT( 183 ) = RKI( 183 ) * YC( MO2 ) * YC( NO ) RXRAT( 184 ) = RKI( 184 ) * YC( ETHP ) * YC( NO ) RXRAT( 185 ) = RKI( 185 ) * YC( HC3P ) * YC( NO ) RXRAT( 186 ) = RKI( 186 ) * YC( HC5P ) * YC( NO ) RXRAT( 187 ) = RKI( 187 ) * YC( ETEP ) * YC( NO ) RXRAT( 188 ) = RKI( 188 ) * YC( OLTP ) * YC( NO ) RXRAT( 189 ) = RKI( 189 ) * YC( OLIP ) * YC( NO ) RXRAT( 190 ) = RKI( 190 ) * YC( BENP ) * YC( NO ) RXRAT( 191 ) = RKI( 191 ) * YC( TOLP ) * YC( NO ) RXRAT( 192 ) = RKI( 192 ) * YC( XYMP ) * YC( NO ) RXRAT( 193 ) = RKI( 193 ) * YC( XYEP ) * YC( NO ) RXRAT( 194 ) = RKI( 194 ) * YC( APIP1 ) * YC( NO ) RXRAT( 195 ) = RKI( 195 ) * YC( APIP2 ) * YC( NO ) RXRAT( 196 ) = RKI( 196 ) * YC( APINP1 ) * YC( NO ) RXRAT( 197 ) = RKI( 197 ) * YC( APINP2 ) * YC( NO ) RXRAT( 198 ) = RKI( 198 ) * YC( LIMP1 ) * YC( NO ) RXRAT( 199 ) = RKI( 199 ) * YC( LIMP2 ) * YC( NO ) RXRAT( 200 ) = RKI( 200 ) * YC( LIMNP1 ) * YC( NO ) RXRAT( 201 ) = RKI( 201 ) * YC( LIMNP2 ) * YC( NO ) RXRAT( 202 ) = RKI( 202 ) * YC( PINALP ) * YC( NO ) RXRAT( 203 ) = RKI( 203 ) * YC( LIMALP ) * YC( NO ) RXRAT( 204 ) = RKI( 204 ) * YC( ACO3 ) * YC( NO ) RXRAT( 205 ) = RKI( 205 ) * YC( RCO3 ) * YC( NO ) RXRAT( 206 ) = RKI( 206 ) * YC( ACTP ) * YC( NO ) RXRAT( 207 ) = RKI( 207 ) * YC( MEKP ) * YC( NO ) RXRAT( 208 ) = RKI( 208 ) * YC( KETP ) * YC( NO ) RXRAT( 209 ) = RKI( 209 ) * YC( MACP ) * YC( NO ) RXRAT( 210 ) = RKI( 210 ) * YC( MCP ) * YC( NO ) RXRAT( 211 ) = RKI( 211 ) * YC( MVKP ) * YC( NO ) RXRAT( 212 ) = RKI( 212 ) * YC( UALP ) * YC( NO ) RXRAT( 213 ) = RKI( 213 ) * YC( BALP ) * YC( NO ) RXRAT( 214 ) = RKI( 214 ) * YC( BAL1 ) * YC( NO ) RXRAT( 215 ) = RKI( 215 ) * YC( ADDC ) * YC( NO ) RXRAT( 216 ) = RKI( 216 ) * YC( MCTP ) * YC( NO ) RXRAT( 217 ) = RKI( 217 ) * YC( ORAP ) * YC( NO ) RXRAT( 218 ) = RKI( 218 ) * YC( OLNN ) * YC( NO ) RXRAT( 219 ) = RKI( 219 ) * YC( OLND ) * YC( NO ) RXRAT( 220 ) = RKI( 220 ) * YC( ADCN ) * YC( NO ) RXRAT( 221 ) = RKI( 221 ) * YC( XO2 ) * YC( NO ) RXRAT( 222 ) = RKI( 222 ) * YC( BAL2 ) * YC( NO2 ) RXRAT( 223 ) = RKI( 223 ) * YC( CHO ) * YC( NO2 ) RXRAT( 224 ) = RKI( 224 ) * YC( MCTO ) * YC( NO2 ) RXRAT( 225 ) = RKI( 225 ) * YC( MO2 ) * YC( HO2 ) RXRAT( 226 ) = RKI( 226 ) * YC( ETHP ) * YC( HO2 ) RXRAT( 227 ) = RKI( 227 ) * YC( HC3P ) * YC( HO2 ) RXRAT( 228 ) = RKI( 228 ) * YC( HC5P ) * YC( HO2 ) RXRAT( 229 ) = RKI( 229 ) * YC( ETEP ) * YC( HO2 ) RXRAT( 230 ) = RKI( 230 ) * YC( OLTP ) * YC( HO2 ) RXRAT( 231 ) = RKI( 231 ) * YC( OLIP ) * YC( HO2 ) RXRAT( 232 ) = RKI( 232 ) * YC( BENP ) * YC( HO2 ) RXRAT( 233 ) = RKI( 233 ) * YC( TOLP ) * YC( HO2 ) RXRAT( 234 ) = RKI( 234 ) * YC( XYMP ) * YC( HO2 ) RXRAT( 235 ) = RKI( 235 ) * YC( XYEP ) * YC( HO2 ) RXRAT( 236 ) = RKI( 236 ) * YC( APIP1 ) * YC( HO2 ) RXRAT( 237 ) = RKI( 237 ) * YC( APIP2 ) * YC( HO2 ) RXRAT( 238 ) = RKI( 238 ) * YC( APINP1 ) * YC( HO2 ) RXRAT( 239 ) = RKI( 239 ) * YC( APINP2 ) * YC( HO2 ) RXRAT( 240 ) = RKI( 240 ) * YC( LIMP1 ) * YC( HO2 ) RXRAT( 241 ) = RKI( 241 ) * YC( LIMP2 ) * YC( HO2 ) RXRAT( 242 ) = RKI( 242 ) * YC( LIMNP1 ) * YC( HO2 ) RXRAT( 243 ) = RKI( 243 ) * YC( LIMNP2 ) * YC( HO2 ) RXRAT( 244 ) = RKI( 244 ) * YC( PINALP ) * YC( HO2 ) RXRAT( 245 ) = RKI( 245 ) * YC( LIMALP ) * YC( HO2 ) RXRAT( 246 ) = RKI( 246 ) * YC( ACO3 ) * YC( HO2 ) RXRAT( 247 ) = RKI( 247 ) * YC( RCO3 ) * YC( HO2 ) RXRAT( 248 ) = RKI( 248 ) * YC( ACTP ) * YC( HO2 ) RXRAT( 249 ) = RKI( 249 ) * YC( MEKP ) * YC( HO2 ) RXRAT( 250 ) = RKI( 250 ) * YC( KETP ) * YC( HO2 ) RXRAT( 251 ) = RKI( 251 ) * YC( MACP ) * YC( HO2 ) RXRAT( 252 ) = RKI( 252 ) * YC( MCP ) * YC( HO2 ) RXRAT( 253 ) = RKI( 253 ) * YC( MVKP ) * YC( HO2 ) RXRAT( 254 ) = RKI( 254 ) * YC( UALP ) * YC( HO2 ) RXRAT( 255 ) = RKI( 255 ) * YC( ADDC ) * YC( HO2 ) RXRAT( 256 ) = RKI( 256 ) * YC( CHO ) * YC( HO2 ) RXRAT( 257 ) = RKI( 257 ) * YC( MCTP ) * YC( HO2 ) RXRAT( 258 ) = RKI( 258 ) * YC( ORAP ) * YC( HO2 ) RXRAT( 259 ) = RKI( 259 ) * YC( OLNN ) * YC( HO2 ) RXRAT( 260 ) = RKI( 260 ) * YC( OLND ) * YC( HO2 ) RXRAT( 261 ) = RKI( 261 ) * YC( ADCN ) * YC( HO2 ) RXRAT( 262 ) = RKI( 262 ) * YC( XO2 ) * YC( HO2 ) RXRAT( 263 ) = RKI( 263 ) * YC( MO2 ) * YC( MO2 ) RXRAT( 264 ) = RKI( 264 ) * YC( ETHP ) * YC( MO2 ) RXRAT( 265 ) = RKI( 265 ) * YC( HC3P ) * YC( MO2 ) RXRAT( 266 ) = RKI( 266 ) * YC( HC5P ) * YC( MO2 ) RXRAT( 267 ) = RKI( 267 ) * YC( ETEP ) * YC( MO2 ) RXRAT( 268 ) = RKI( 268 ) * YC( OLTP ) * YC( MO2 ) RXRAT( 269 ) = RKI( 269 ) * YC( OLIP ) * YC( MO2 ) RXRAT( 270 ) = RKI( 270 ) * YC( BENP ) * YC( MO2 ) RXRAT( 271 ) = RKI( 271 ) * YC( TOLP ) * YC( MO2 ) RXRAT( 272 ) = RKI( 272 ) * YC( XYMP ) * YC( MO2 ) RXRAT( 273 ) = RKI( 273 ) * YC( XYEP ) * YC( MO2 ) RXRAT( 274 ) = RKI( 274 ) * YC( ISOP ) * YC( MO2 ) RXRAT( 275 ) = RKI( 275 ) * YC( APIP1 ) * YC( MO2 ) RXRAT( 276 ) = RKI( 276 ) * YC( APIP2 ) * YC( MO2 ) RXRAT( 277 ) = RKI( 277 ) * YC( APINP1 ) * YC( MO2 ) RXRAT( 278 ) = RKI( 278 ) * YC( APINP2 ) * YC( MO2 ) RXRAT( 279 ) = RKI( 279 ) * YC( LIMP1 ) * YC( MO2 ) RXRAT( 280 ) = RKI( 280 ) * YC( LIMP2 ) * YC( MO2 ) RXRAT( 281 ) = RKI( 281 ) * YC( LIMNP1 ) * YC( MO2 ) RXRAT( 282 ) = RKI( 282 ) * YC( LIMNP2 ) * YC( MO2 ) RXRAT( 283 ) = RKI( 283 ) * YC( ACO3 ) * YC( MO2 ) RXRAT( 284 ) = RKI( 284 ) * YC( RCO3 ) * YC( MO2 ) RXRAT( 285 ) = RKI( 285 ) * YC( ACTP ) * YC( MO2 ) RXRAT( 286 ) = RKI( 286 ) * YC( MEKP ) * YC( MO2 ) RXRAT( 287 ) = RKI( 287 ) * YC( KETP ) * YC( MO2 ) RXRAT( 288 ) = RKI( 288 ) * YC( MACP ) * YC( MO2 ) RXRAT( 289 ) = RKI( 289 ) * YC( MCP ) * YC( MO2 ) RXRAT( 290 ) = RKI( 290 ) * YC( MVKP ) * YC( MO2 ) RXRAT( 291 ) = RKI( 291 ) * YC( UALP ) * YC( MO2 ) RXRAT( 292 ) = RKI( 292 ) * YC( BALP ) * YC( MO2 ) RXRAT( 293 ) = RKI( 293 ) * YC( BAL1 ) * YC( MO2 ) RXRAT( 294 ) = RKI( 294 ) * YC( ADDC ) * YC( MO2 ) RXRAT( 295 ) = RKI( 295 ) * YC( MCTP ) * YC( MO2 ) RXRAT( 296 ) = RKI( 296 ) * YC( ORAP ) * YC( MO2 ) RXRAT( 297 ) = RKI( 297 ) * YC( OLNN ) * YC( MO2 ) RXRAT( 298 ) = RKI( 298 ) * YC( OLND ) * YC( MO2 ) RXRAT( 299 ) = RKI( 299 ) * YC( ADCN ) * YC( MO2 ) RXRAT( 300 ) = RKI( 300 ) * YC( XO2 ) * YC( MO2 ) RXRAT( 301 ) = RKI( 301 ) * YC( ETHP ) * YC( ACO3 ) RXRAT( 302 ) = RKI( 302 ) * YC( HC3P ) * YC( ACO3 ) RXRAT( 303 ) = RKI( 303 ) * YC( HC5P ) * YC( ACO3 ) RXRAT( 304 ) = RKI( 304 ) * YC( ETEP ) * YC( ACO3 ) RXRAT( 305 ) = RKI( 305 ) * YC( OLTP ) * YC( ACO3 ) RXRAT( 306 ) = RKI( 306 ) * YC( OLIP ) * YC( ACO3 ) RXRAT( 307 ) = RKI( 307 ) * YC( BENP ) * YC( ACO3 ) RXRAT( 308 ) = RKI( 308 ) * YC( TOLP ) * YC( ACO3 ) RXRAT( 309 ) = RKI( 309 ) * YC( XYMP ) * YC( ACO3 ) RXRAT( 310 ) = RKI( 310 ) * YC( XYEP ) * YC( ACO3 ) RXRAT( 311 ) = RKI( 311 ) * YC( ISOP ) * YC( ACO3 ) RXRAT( 312 ) = RKI( 312 ) * YC( APIP1 ) * YC( ACO3 ) RXRAT( 313 ) = RKI( 313 ) * YC( APIP2 ) * YC( ACO3 ) RXRAT( 314 ) = RKI( 314 ) * YC( APINP1 ) * YC( ACO3 ) RXRAT( 315 ) = RKI( 315 ) * YC( APINP2 ) * YC( ACO3 ) RXRAT( 316 ) = RKI( 316 ) * YC( LIMP1 ) * YC( ACO3 ) RXRAT( 317 ) = RKI( 317 ) * YC( LIMP2 ) * YC( ACO3 ) RXRAT( 318 ) = RKI( 318 ) * YC( LIMNP1 ) * YC( ACO3 ) RXRAT( 319 ) = RKI( 319 ) * YC( LIMNP2 ) * YC( ACO3 ) RXRAT( 320 ) = RKI( 320 ) * YC( ACO3 ) * YC( ACO3 ) RXRAT( 321 ) = RKI( 321 ) * YC( RCO3 ) * YC( ACO3 ) RXRAT( 322 ) = RKI( 322 ) * YC( ACTP ) * YC( ACO3 ) RXRAT( 323 ) = RKI( 323 ) * YC( MEKP ) * YC( ACO3 ) RXRAT( 324 ) = RKI( 324 ) * YC( KETP ) * YC( ACO3 ) RXRAT( 325 ) = RKI( 325 ) * YC( MACP ) * YC( ACO3 ) RXRAT( 326 ) = RKI( 326 ) * YC( MCP ) * YC( ACO3 ) RXRAT( 327 ) = RKI( 327 ) * YC( MVKP ) * YC( ACO3 ) RXRAT( 328 ) = RKI( 328 ) * YC( UALP ) * YC( ACO3 ) RXRAT( 329 ) = RKI( 329 ) * YC( BALP ) * YC( ACO3 ) RXRAT( 330 ) = RKI( 330 ) * YC( BAL1 ) * YC( ACO3 ) RXRAT( 331 ) = RKI( 331 ) * YC( ADDC ) * YC( ACO3 ) RXRAT( 332 ) = RKI( 332 ) * YC( MCTP ) * YC( ACO3 ) RXRAT( 333 ) = RKI( 333 ) * YC( ORAP ) * YC( ACO3 ) RXRAT( 334 ) = RKI( 334 ) * YC( OLNN ) * YC( ACO3 ) RXRAT( 335 ) = RKI( 335 ) * YC( OLND ) * YC( ACO3 ) RXRAT( 336 ) = RKI( 336 ) * YC( ADCN ) * YC( ACO3 ) RXRAT( 337 ) = RKI( 337 ) * YC( XO2 ) * YC( ACO3 ) RXRAT( 338 ) = RKI( 338 ) * YC( RCO3 ) * YC( RCO3 ) RXRAT( 339 ) = RKI( 339 ) * YC( MO2 ) * YC( NO3 ) RXRAT( 340 ) = RKI( 340 ) * YC( ETHP ) * YC( NO3 ) RXRAT( 341 ) = RKI( 341 ) * YC( HC3P ) * YC( NO3 ) RXRAT( 342 ) = RKI( 342 ) * YC( HC5P ) * YC( NO3 ) RXRAT( 343 ) = RKI( 343 ) * YC( ETEP ) * YC( NO3 ) RXRAT( 344 ) = RKI( 344 ) * YC( OLTP ) * YC( NO3 ) RXRAT( 345 ) = RKI( 345 ) * YC( OLIP ) * YC( NO3 ) RXRAT( 346 ) = RKI( 346 ) * YC( BENP ) * YC( NO3 ) RXRAT( 347 ) = RKI( 347 ) * YC( TOLP ) * YC( NO3 ) RXRAT( 348 ) = RKI( 348 ) * YC( XYMP ) * YC( NO3 ) RXRAT( 349 ) = RKI( 349 ) * YC( XYEP ) * YC( NO3 ) RXRAT( 350 ) = RKI( 350 ) * YC( ISOP ) * YC( NO3 ) RXRAT( 351 ) = RKI( 351 ) * YC( APIP1 ) * YC( NO3 ) RXRAT( 352 ) = RKI( 352 ) * YC( LIMP1 ) * YC( NO3 ) RXRAT( 353 ) = RKI( 353 ) * YC( ACO3 ) * YC( NO3 ) RXRAT( 354 ) = RKI( 354 ) * YC( RCO3 ) * YC( NO3 ) RXRAT( 355 ) = RKI( 355 ) * YC( ACTP ) * YC( NO3 ) RXRAT( 356 ) = RKI( 356 ) * YC( MEKP ) * YC( NO3 ) RXRAT( 357 ) = RKI( 357 ) * YC( KETP ) * YC( NO3 ) RXRAT( 358 ) = RKI( 358 ) * YC( MACP ) * YC( NO3 ) RXRAT( 359 ) = RKI( 359 ) * YC( MCP ) * YC( NO3 ) RXRAT( 360 ) = RKI( 360 ) * YC( MVKP ) * YC( NO3 ) RXRAT( 361 ) = RKI( 361 ) * YC( UALP ) * YC( NO3 ) RXRAT( 362 ) = RKI( 362 ) * YC( BALP ) * YC( NO3 ) RXRAT( 363 ) = RKI( 363 ) * YC( BAL1 ) * YC( NO3 ) RXRAT( 364 ) = RKI( 364 ) * YC( ADDC ) * YC( NO3 ) RXRAT( 365 ) = RKI( 365 ) * YC( MCTP ) * YC( NO3 ) RXRAT( 366 ) = RKI( 366 ) * YC( ORAP ) * YC( NO3 ) RXRAT( 367 ) = RKI( 367 ) * YC( OLNN ) * YC( NO3 ) RXRAT( 368 ) = RKI( 368 ) * YC( OLND ) * YC( NO3 ) RXRAT( 369 ) = RKI( 369 ) * YC( ADCN ) * YC( NO3 ) RXRAT( 370 ) = RKI( 370 ) * YC( OLNN ) * YC( OLNN ) RXRAT( 371 ) = RKI( 371 ) * YC( OLNN ) * YC( OLND ) RXRAT( 372 ) = RKI( 372 ) * YC( OLND ) * YC( OLND ) RXRAT( 373 ) = RKI( 373 ) * YC( XO2 ) * YC( NO3 ) RXRAT( 374 ) = RKI( 374 ) * YC( XO2 ) * YC( RCO3 ) RXRAT( 375 ) = RKI( 375 ) * YC( XO2 ) * YC( XO2 ) RXRAT( 376 ) = RKI( 376 ) * YC( APIP2 ) * YC( APIP1 ) RXRAT( 377 ) = RKI( 377 ) * YC( APIP2 ) * YC( LIMP1 ) RXRAT( 378 ) = RKI( 378 ) * YC( APIP2 ) * YC( ISOP ) RXRAT( 379 ) = RKI( 379 ) * YC( LIMP2 ) * YC( APIP1 ) RXRAT( 380 ) = RKI( 380 ) * YC( LIMP2 ) * YC( LIMP1 ) RXRAT( 381 ) = RKI( 381 ) * YC( LIMP2 ) * YC( ISOP ) RXRAT( 382 ) = RKI( 382 ) * YC( APINP2 ) * YC( APIP1 ) RXRAT( 383 ) = RKI( 383 ) * YC( APINP2 ) * YC( LIMP1 ) RXRAT( 384 ) = RKI( 384 ) * YC( APINP2 ) * YC( ISOP ) RXRAT( 385 ) = RKI( 385 ) * YC( LIMNP2 ) * YC( APIP1 ) RXRAT( 386 ) = RKI( 386 ) * YC( LIMNP2 ) * YC( LIMP1 ) RXRAT( 387 ) = RKI( 387 ) * YC( LIMNP2 ) * YC( ISOP ) RXRAT( 388 ) = RKI( 388 ) * YC( IEPOX ) * YC( HO ) RXRAT( 389 ) = RKI( 389 ) * YC( VROCIOXY ) * YC( HO ) RXRAT( 390 ) = RKI( 390 ) * YC( SLOWROC ) * YC( HO ) RXRAT( 391 ) = RKI( 391 ) * YC( ACRO ) * YC( HO ) RXRAT( 392 ) = RKI( 392 ) * YC( ACRO ) * YC( O3 ) RXRAT( 393 ) = RKI( 393 ) * YC( ACRO ) * YC( NO3 ) RXRAT( 394 ) = RKI( 394 ) * YC( ACRO ) RXRAT( 395 ) = RKI( 395 ) * YC( BDE13 ) * YC( HO ) RXRAT( 396 ) = RKI( 396 ) * YC( BDE13P ) * YC( NO ) RXRAT( 397 ) = RKI( 397 ) * YC( BDE13P ) * YC( NO3 ) RXRAT( 398 ) = RKI( 398 ) * YC( BDE13P ) * YC( HO2 ) RXRAT( 399 ) = RKI( 399 ) * YC( BDE13P ) * YC( MO2 ) RXRAT( 400 ) = RKI( 400 ) * YC( BDE13P ) * YC( ACO3 ) RXRAT( 401 ) = RKI( 401 ) * YC( BDE13 ) * YC( O3 ) RXRAT( 402 ) = RKI( 402 ) * YC( BDE13 ) * YC( NO3 ) RXRAT( 403 ) = RKI( 403 ) * YC( FURAN ) * YC( HO ) RXRAT( 404 ) = RKI( 404 ) * YC( FURANO2 ) * YC( NO ) RXRAT( 405 ) = RKI( 405 ) * YC( FURANO2 ) * YC( HO2 ) RXRAT( 406 ) = RKI( 406 ) * YC( FURANONE ) * YC( HO ) RXRAT( 407 ) = RKI( 407 ) * YC( FURAN ) * YC( O3 ) RXRAT( 408 ) = RKI( 408 ) * YC( FURAN ) * YC( NO3 ) RXRAT( 409 ) = RKI( 409 ) * YC( PROG ) * YC( HO ) RXRAT( 410 ) = RKI( 410 ) * YC( SESQ ) * YC( NO3 ) RXRAT( 411 ) = RKI( 411 ) * YC( SESQNRO2 ) * YC( HO2 ) RXRAT( 412 ) = RKI( 412 ) * YC( SESQNRO2 ) * YC( NO ) RXRAT( 413 ) = RKI( 413 ) * YC( SESQNRO2 ) * YC( NO3 ) RXRAT( 414 ) = RKI( 414 ) * YC( SESQ ) * YC( O3 ) RXRAT( 415 ) = RKI( 415 ) * YC( SESQ ) * YC( HO ) RXRAT( 416 ) = RKI( 416 ) * YC( SESQRO2 ) * YC( HO2 ) RXRAT( 417 ) = RKI( 417 ) * YC( SESQRO2 ) * YC( NO3 ) RXRAT( 418 ) = RKI( 418 ) * YC( SESQRO2 ) * YC( NO ) RXRAT( 419 ) = RKI( 419 ) * YC( GLY ) RXRAT( 420 ) = RKI( 420 ) * YC( MGLY ) RXRAT( 421 ) = RKI( 421 ) * YC( N2O5 ) RXRAT( 422 ) = RKI( 422 ) * YC( NO2 ) ! RXRAT( 423 ) = RKI( 423 ) * YC( O3 ) RXRAT( 424 ) = RKI( 424 ) * YC( IEPOX ) RXRAT( 425 ) = RKI( 425 ) * YC( IEPOXP ) RXRAT( 426 ) = RKI( 426 ) * YC( IEPOXP ) * YC( ASO4J ) RXRAT( 427 ) = RKI( 427 ) * YC( VROCP6ALK ) * YC( HO ) RXRAT( 428 ) = RKI( 428 ) * YC( VROCP5ALK ) * YC( HO ) RXRAT( 429 ) = RKI( 429 ) * YC( VROCP4ALK ) * YC( HO ) RXRAT( 430 ) = RKI( 430 ) * YC( VROCP3ALK ) * YC( HO ) RXRAT( 431 ) = RKI( 431 ) * YC( VROCP2ALK ) * YC( HO ) RXRAT( 432 ) = RKI( 432 ) * YC( VROCP1ALK ) * YC( HO ) RXRAT( 433 ) = RKI( 433 ) * YC( HC10 ) * YC( HO ) RXRAT( 434 ) = RKI( 434 ) * YC( VROCP6ALKP ) * YC( NO ) RXRAT( 435 ) = RKI( 435 ) * YC( VROCP5ALKP ) * YC( NO ) RXRAT( 436 ) = RKI( 436 ) * YC( VROCP4ALKP ) * YC( NO ) RXRAT( 437 ) = RKI( 437 ) * YC( VROCP3ALKP ) * YC( NO ) RXRAT( 438 ) = RKI( 438 ) * YC( VROCP2ALKP ) * YC( NO ) RXRAT( 439 ) = RKI( 439 ) * YC( VROCP1ALKP ) * YC( NO ) RXRAT( 440 ) = RKI( 440 ) * YC( HC10P ) * YC( NO ) RXRAT( 441 ) = RKI( 441 ) * YC( VROCP6ALKP ) * YC( NO3 ) RXRAT( 442 ) = RKI( 442 ) * YC( VROCP5ALKP ) * YC( NO3 ) RXRAT( 443 ) = RKI( 443 ) * YC( VROCP4ALKP ) * YC( NO3 ) RXRAT( 444 ) = RKI( 444 ) * YC( VROCP3ALKP ) * YC( NO3 ) RXRAT( 445 ) = RKI( 445 ) * YC( VROCP2ALKP ) * YC( NO3 ) RXRAT( 446 ) = RKI( 446 ) * YC( VROCP1ALKP ) * YC( NO3 ) RXRAT( 447 ) = RKI( 447 ) * YC( HC10P ) * YC( NO3 ) RXRAT( 448 ) = RKI( 448 ) * YC( VROCP6ALKP ) * YC( HO2 ) RXRAT( 449 ) = RKI( 449 ) * YC( VROCP5ALKP ) * YC( HO2 ) RXRAT( 450 ) = RKI( 450 ) * YC( VROCP4ALKP ) * YC( HO2 ) RXRAT( 451 ) = RKI( 451 ) * YC( VROCP3ALKP ) * YC( HO2 ) RXRAT( 452 ) = RKI( 452 ) * YC( VROCP2ALKP ) * YC( HO2 ) RXRAT( 453 ) = RKI( 453 ) * YC( VROCP1ALKP ) * YC( HO2 ) RXRAT( 454 ) = RKI( 454 ) * YC( HC10P ) * YC( HO2 ) RXRAT( 455 ) = RKI( 455 ) * YC( VROCP6ALKP2 ) RXRAT( 456 ) = RKI( 456 ) * YC( VROCP5ALKP2 ) RXRAT( 457 ) = RKI( 457 ) * YC( VROCP4ALKP2 ) RXRAT( 458 ) = RKI( 458 ) * YC( VROCP3ALKP2 ) RXRAT( 459 ) = RKI( 459 ) * YC( VROCP2ALKP2 ) RXRAT( 460 ) = RKI( 460 ) * YC( VROCP1ALKP2 ) RXRAT( 461 ) = RKI( 461 ) * YC( HC10P2 ) RXRAT( 462 ) = RKI( 462 ) * YC( VROCP6ALKP2 ) * YC( NO ) RXRAT( 463 ) = RKI( 463 ) * YC( VROCP5ALKP2 ) * YC( NO ) RXRAT( 464 ) = RKI( 464 ) * YC( VROCP4ALKP2 ) * YC( NO ) RXRAT( 465 ) = RKI( 465 ) * YC( VROCP3ALKP2 ) * YC( NO ) RXRAT( 466 ) = RKI( 466 ) * YC( VROCP2ALKP2 ) * YC( NO ) RXRAT( 467 ) = RKI( 467 ) * YC( VROCP1ALKP2 ) * YC( NO ) RXRAT( 468 ) = RKI( 468 ) * YC( HC10P2 ) * YC( NO ) RXRAT( 469 ) = RKI( 469 ) * YC( VROCP6ALKP2 ) * YC( NO3 ) RXRAT( 470 ) = RKI( 470 ) * YC( VROCP5ALKP2 ) * YC( NO3 ) RXRAT( 471 ) = RKI( 471 ) * YC( VROCP4ALKP2 ) * YC( NO3 ) RXRAT( 472 ) = RKI( 472 ) * YC( VROCP3ALKP2 ) * YC( NO3 ) RXRAT( 473 ) = RKI( 473 ) * YC( VROCP2ALKP2 ) * YC( NO3 ) RXRAT( 474 ) = RKI( 474 ) * YC( VROCP1ALKP2 ) * YC( NO3 ) RXRAT( 475 ) = RKI( 475 ) * YC( HC10P2 ) * YC( NO3 ) RXRAT( 476 ) = RKI( 476 ) * YC( VROCP6ALKP2 ) * YC( HO2 ) RXRAT( 477 ) = RKI( 477 ) * YC( VROCP5ALKP2 ) * YC( HO2 ) RXRAT( 478 ) = RKI( 478 ) * YC( VROCP4ALKP2 ) * YC( HO2 ) RXRAT( 479 ) = RKI( 479 ) * YC( VROCP3ALKP2 ) * YC( HO2 ) RXRAT( 480 ) = RKI( 480 ) * YC( VROCP2ALKP2 ) * YC( HO2 ) RXRAT( 481 ) = RKI( 481 ) * YC( VROCP1ALKP2 ) * YC( HO2 ) RXRAT( 482 ) = RKI( 482 ) * YC( HC10P2 ) * YC( HO2 ) RXRAT( 483 ) = RKI( 483 ) * YC( VROCP6ARO ) * YC( HO ) RXRAT( 484 ) = RKI( 484 ) * YC( VROCP6AROP ) * YC( HO2 ) RXRAT( 485 ) = RKI( 485 ) * YC( VROCP6AROP ) * YC( NO ) RXRAT( 486 ) = RKI( 486 ) * YC( VROCP6AROP ) * YC( NO3 ) RXRAT( 487 ) = RKI( 487 ) * YC( VROCP6AROP ) * YC( MO2 ) RXRAT( 488 ) = RKI( 488 ) * YC( VROCP6AROP ) * YC( ACO3 ) RXRAT( 489 ) = RKI( 489 ) * YC( VROCP5ARO ) * YC( HO ) RXRAT( 490 ) = RKI( 490 ) * YC( VROCP5AROP ) * YC( HO2 ) RXRAT( 491 ) = RKI( 491 ) * YC( VROCP5AROP ) * YC( NO ) RXRAT( 492 ) = RKI( 492 ) * YC( VROCP5AROP ) * YC( NO3 ) RXRAT( 493 ) = RKI( 493 ) * YC( VROCP5AROP ) * YC( MO2 ) RXRAT( 494 ) = RKI( 494 ) * YC( VROCP5AROP ) * YC( ACO3 ) RXRAT( 495 ) = RKI( 495 ) * YC( NAPH ) * YC( HO ) RXRAT( 496 ) = RKI( 496 ) * YC( NAPHP ) * YC( HO2 ) RXRAT( 497 ) = RKI( 497 ) * YC( NAPHP ) * YC( NO ) RXRAT( 498 ) = RKI( 498 ) * YC( NAPHP ) * YC( NO3 ) RXRAT( 499 ) = RKI( 499 ) * YC( NAPHP ) * YC( MO2 ) RXRAT( 500 ) = RKI( 500 ) * YC( NAPHP ) * YC( ACO3 ) RXRAT( 501 ) = RKI( 501 ) * YC( VROCN2OXY8 ) * YC( HO ) RXRAT( 502 ) = RKI( 502 ) * YC( VROCN2OXY4 ) * YC( HO ) RXRAT( 503 ) = RKI( 503 ) * YC( VROCN2OXY2 ) * YC( HO ) RXRAT( 504 ) = RKI( 504 ) * YC( VROCN1OXY6 ) * YC( HO ) RXRAT( 505 ) = RKI( 505 ) * YC( VROCN1OXY3 ) * YC( HO ) RXRAT( 506 ) = RKI( 506 ) * YC( VROCN1OXY1 ) * YC( HO ) RXRAT( 507 ) = RKI( 507 ) * YC( VROCP0OXY4 ) * YC( HO ) RXRAT( 508 ) = RKI( 508 ) * YC( VROCP0OXY2 ) * YC( HO ) RXRAT( 509 ) = RKI( 509 ) * YC( VROCP1OXY3 ) * YC( HO ) RXRAT( 510 ) = RKI( 510 ) * YC( VROCP1OXY1 ) * YC( HO ) RXRAT( 511 ) = RKI( 511 ) * YC( VROCP2OXY2 ) * YC( HO ) RXRAT( 512 ) = RKI( 512 ) * YC( VROCP3OXY2 ) * YC( HO ) RXRAT( 513 ) = RKI( 513 ) * YC( VROCP4OXY2 ) * YC( HO ) RXRAT( 514 ) = RKI( 514 ) * YC( VROCP5OXY1 ) * YC( HO ) RXRAT( 515 ) = RKI( 515 ) * YC( VROCP6OXY1 ) * YC( HO ) RXRAT( 516 ) = RKI( 516 ) * YC( OP3 ) * YC( HO ) RETURN END ================================================ FILE: CCTM/src/gas/ebi_cracmm1amore_aq/hrsolver.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE HRSOLVER( JDATE, JTIME, C, R, L ) C********************************************************************** C C FUNCTION: EBI solver C C PRECONDITIONS: For the CRACMM1AMORE_AQ mechanism C C KEY SUBROUTINES/FUNCTIONS CALLED: HRRATES, HRG1, HRG2, HRG3 C HRG4, HRPRODLOSS C DEGRADE C C REVISION HISTORY: Created by EBI solver program, Jun 16, 2022 C 21 Jun 10 J.Young: convert for Namelist redesign C 18 Jul 14 B.Hutzell: revised 1) to use the RXNS_DATA and RXNS_FUNCTION C modules instead of include files and 2) to use C real(8) variables C********************************************************************** USE RUNTIME_VARS USE UTILIO_DEFN USE RXNS_DATA USE HRDATA USE PA_IRR_MODULE #ifdef isam USE SA_IRR_DEFN #endif #ifdef sens USE DDM3D_CHEM, ONLY: YCDDM USE CGRID_SPCS, ONLY: GC_SPC #endif USE DEGRADE_ROUTINES, ONLY : DEGRADE, SA_DEGRADE_STEP IMPLICIT NONE C..INCLUDES: C..ARGUMENTS: INTEGER, INTENT( IN ) :: JDATE ! Current date (YYYYDDD) INTEGER, INTENT( IN ) :: JTIME ! Current time (HHMMSS) INTEGER, INTENT( IN ) :: C, R, L ! Cell col, row, lev C..PARAMETERS: INTEGER, PARAMETER :: MXBKUPS = 5 ! Max no. of back-ups allowed INTEGER, PARAMETER :: STAT = 1 ! Status code REAL( 8 ), PARAMETER :: DTMIN = 1.0D-08 ! Smallest time step allowed, min REAL( 8 ), PARAMETER :: EPSLON = 1.0D-30 ! Small number REAL( 8 ), PARAMETER :: MAXPRED = 1.0D+03 ! Upper limit on predicted conc REAL( 8 ), PARAMETER :: ZERO = 1.0D-40 ! effective zero REAL( 8 ), PARAMETER :: FLOOR = 1.0D-08 ! Min conc for RTOL C..EXTERNAL FUNCTIONS: C..SAVED LOCAL VARIABLES: CHARACTER( 16 ), SAVE :: PNAME = 'HRSOLVER' ! Program name LOGICAL, SAVE :: LFIRST = .TRUE. ! Flag for first call LOGICAL, ALLOCATABLE, SAVE :: LEBISPFL( : ) ! Convergence Error Flag for EBI species LOGICAL, ALLOCATABLE, SAVE :: MAXCONC ( : ) ! MAXCONC ERROR Flag for EBI species LOGICAL, ALLOCATABLE, SAVE :: NOTMAX ( : ) ! Initial concentration not greater than MAXPRED REAL( 8 ), ALLOCATABLE, SAVE :: RERROR ( : ) ! Relative Error REAL( 8 ), ALLOCATABLE, SAVE :: AERROR ( : ) ! Absolute Error C..SCRATCH LOCAL VARIABLES: CHARACTER( 132 ) :: MSG ! Message text INTEGER CELLNO ! Cell no. fo debug output INTEGER ITER ! Loop index for Backward Euler iterations INTEGER S ! Loop index for species INTEGER SP ! Imbedded loop index for species INTEGER NEBI ! Loop index for time steps INTEGER NINR ! No. of inner time steps #ifdef hrdebug INTEGER N ! Loop index #endif INTEGER M ! species index INTEGER EBI ! Loop index INTEGER NBKUPS ! No. of times time step reduced INTEGER ERR ! Allocate error flag LOGICAL LEBI_CONV ! Flag for EBI convergence LOGICAL MXFL ! hit MAXPRED flag REAL( 8 ) DTC ! Time step to take REAL( 8 ) DTG ! Time step in degrade routines, sec REAL( 8 ) FXDLOSS ! Total loss due to negative stoichiometry REAL( 8 ) VARLOSS ! Loss excluding negative stoichiometry #ifdef hrdebug CHARACTER( 8 ) :: NOTE ! Convergence fail note INTEGER COL ! Column to generate deboug output for INTEGER ROW ! Row to generate deboug output for INTEGER LEV ! Level to generate deboug output for INTEGER DBGOUT ! Output unit for debu outpt LOGICAL LDEBUG ! Debug output flag LOGICAL, SAVE :: LOPEN = .FALSE. #endif C********************************************************************** IF( LFIRST ) THEN LFIRST = .FALSE. ALLOCATE ( LEBISPFL( NUMB_MECH_SPC ), STAT = ERR ) IF ( ERR .NE. 0 ) THEN MSG = 'Error allocating LEBISPFL' CALL M3EXIT( PNAME, JDATE, JTIME, MSG, XSTAT1 ) END IF ALLOCATE ( MAXCONC( NUMB_MECH_SPC ), STAT = ERR ) IF ( ERR .NE. 0 ) THEN MSG = 'Error allocating MAXCONC' CALL M3EXIT( PNAME, JDATE, JTIME, MSG, XSTAT1 ) END IF ALLOCATE ( NOTMAX( NUMB_MECH_SPC ), STAT = ERR ) IF ( ERR .NE. 0 ) THEN MSG = 'Error allocating NOTMAX' CALL M3EXIT( PNAME, JDATE, JTIME, MSG, XSTAT1 ) END IF ALLOCATE ( RERROR( NUMB_MECH_SPC ), STAT = ERR ) IF ( ERR .NE. 0 ) THEN MSG = 'Error allocating ERROR' CALL M3EXIT( PNAME, JDATE, JTIME, MSG, XSTAT1 ) END IF ALLOCATE ( AERROR( NUMB_MECH_SPC ), STAT = ERR ) IF ( ERR .NE. 0 ) THEN MSG = 'Error allocating AERROR' CALL M3EXIT( PNAME, JDATE, JTIME, MSG, XSTAT1 ) END IF END IF #ifdef sens YCDDM = 0.0D0 #endif c++++++++++++++++++++++++Debug section++++++++++++++++++++++++++++++++++ #ifdef hrdebug COL = 0 ROW = 0 LEV = 0 IF( C .EQ. COL .AND. R .EQ. ROW .AND. L .EQ. LEV ) THEN c IF( JTIME .EQ. 160000 ) THEN LDEBUG = .TRUE. ELSE LDEBUG = .FALSE. END IF IF( LDEBUG ) THEN IF( .NOT. LOPEN ) THEN DBGOUT = JUNIT() OPEN( UNIT = DBGOUT, FILE = 'debug.out' ) LOPEN = .TRUE. END IF WRITE( DBGOUT, '( A, 2I4, I3, 1X, I7, 1X, I6 ) ' ) & 'Debug output for col/row/lev/date/time:', & C, R, L, JDATE, JTIME WRITE( DBGOUT, '( A, F7.2) ' ) & 'EBI_TMSTEP = ', EBI_TMSTEP WRITE( DBGOUT, '( A )' ) 'Starting concs and rate constants' DO N = 1, NUMB_MECH_SPC WRITE( DBGOUT, '( A, I3, 1X, A, 1X, 1PD13.5 )' ) & 'SP ',N, CHEMISTRY_SPC( N ), YC( N ) END DO DO N = 1, N_RXNS WRITE( DBGOUT, '( A, I3, 1X, 1PD13.5 )' ) & 'RKI ', N, RKI( N ) END DO END IF #endif c++++++++++++++++++++++++Debug section++++++++++++++++++++++++++++++++++ DTC = EBI_TMSTEP N_EBI_IT = 0 NBKUPS = 0 N_INR_STEPS = 1 NEBI = 1 LEBI_CONV = .TRUE. #ifdef isam UPDATE_SOLD = .FALSE. UPDATE_PROBABILITIES = .TRUE. CALL SA_IRR_UNBLOCKED ( .TRUE., RKI, YC, DTC ) #endif DO S = 1, NUMB_MECH_SPC IF( YC( S ) .LE. MAXPRED )THEN NOTMAX( S ) = .TRUE. ELSE NOTMAX( S ) = .FALSE. WRITE(LOGDEV,91000)C, R, L, CHEMISTRY_SPC(S), YC(S) END IF END DO ! Initial PA_IRR IF( CALL_IRR ) CALL PA_IRR ( .TRUE., RKI, YC, DTC ) SA_DEGRADE_STEP = 0 TSTEP_EBI: DO ! EBI time-step loop SUBSTEP_EBI: DO NINR = 1, N_INR_STEPS ! time substeps loop ! first attempt is sub time-step equals EBI time-step IF( LEBI_CONV ) YC0 = YC ! Set ICs for EBI iterations ITER_SUBSTEP: DO ITER = 1, NEBITER ! iteration loop solving for sub time-step N_EBI_IT = N_EBI_IT + 1 CALL HRRATES c++++++++++++++++++++++++Debug section++++++++++++++++++++++++++++++++++ #ifdef hrdebug IF( LDEBUG ) THEN WRITE( DBGOUT, '( A, I5 )' ) 'ITER NO ', ITER WRITE( DBGOUT, '( A, F12.5 )' ) & ' DTC=', DTC IF( ITER .EQ. 1 ) THEN WRITE( DBGOUT, '( A )' ) 'Starting reaction rates' DO N = 1, N_RXNS WRITE( DBGOUT, '( A, I3, 1X, 1PD13.5 )' ) & 'RXRAT ', N, RXRAT( NCELL, N ) END DO END IF END IF #endif c++++++++++++++++++++++++Debug section++++++++++++++++++++++++++++++++++ cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Call routines to compute concentrations of groups 1-4 cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc CALL HRG1( DTC ) CALL HRG2( DTC ) CALL HRG3( DTC ) CALL HRG4( DTC ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Do the Euler backward method cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc CALL HRPRODLOSS DO EBI = 1, N_EBISP S = EBISP( EBI ) YCP( S ) = YC( S )*( ( YC0( S ) + PROD( S ) * DTC ) & / ( YC( S ) + LOSS( S ) * DTC ) ) END DO cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Check for convergence cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc LEBI_CONV = .TRUE. MXFL = .FALSE. DO S = 1, NUMB_MECH_SPC LEBISPFL( S ) = .FALSE. YCP( S ) = MAX( ZERO, YCP( S ) ) AERROR( S ) = MAX( ABS( YC(S)-YCP(S) ), EPSLON ) RERROR( S ) = AERROR( S ) / MAX( FLOOR, ABS( YC(S)+YCP(S) ) ) IF( RERROR( S ) .GT. RTOL(S) .OR. AERROR( S ) .GT. 1.0D-5 )THEN LEBI_CONV = .FALSE. LEBISPFL( S ) = .TRUE. END IF c..test if predictions growing too large IF( YCP( S ) .GT. MAXPRED .AND. NOTMAX( S ) ) THEN MXFL = .TRUE. LEBI_CONV = .FALSE. LEBISPFL( S ) = .TRUE. END IF YC( S ) = YCP( S ) END DO c..test if predictions growing too large, abort interation loop IF( MXFL ) EXIT ITER_SUBSTEP c++++++++++++++++++++++++Debug section++++++++++++++++++++++++++++++++++ #ifdef hrdebug IF( LDEBUG ) THEN WRITE( DBGOUT, '( A, I5 )' ) 'Concs after ITER= ', ITER DO S = 1, NUMB_MECH_SPC IF( LEBISPFL( S ) ) THEN NOTE = 'CONV FAIL' ELSE NOTE = ' ' END IF WRITE( DBGOUT, '( I3, 1X, A, 1PD13.5, 1X, A )' ) & S, CHEMISTRY_SPC( S ), YC( S ), NOTE END DO IF( LEBI_CONV ) WRITE( DBGOUT, '( A )' ) & '****Convergence achieved' END IF #endif c++++++++++++++++++++++++Debug section++++++++++++++++++++++++++++++++++ IF( LEBI_CONV ) THEN DTG = 60.0D0 * DTC DO S = 1, NUMB_MECH_SPC M = CGRID_INDEX( S ) YCCELL( M ) = YC( S ) END DO #if defined(isam) || defined(verbose_isam) SA_DEGRADE_STEP = SA_DEGRADE_STEP + 1 #endif IF( CALL_DEG )CALL DEGRADE(YCCELL, DTG, JDATE, JTIME) ! :WTH Call degradation routine IF( CALL_IRR ) CALL PA_IRR ( .FALSE., RKI, YC, DTC ) #ifdef isam IF( NEBI .EQ. N_EBI_STEPS )UPDATE_SOLD = .TRUE. CALL SA_IRR_UNBLOCKED ( .FALSE., RKI, YC, DTC ) UPDATE_PROBABILITIES = .FALSE. #endif #ifdef sens C Update the sum for the average over the chemistry integration YCDDM = YCDDM & + ( ( 0.5D0 * DTC ) * ( YC + YC0 ) ) #endif CYCLE SUBSTEP_EBI ! solve for next sub time-step END IF END DO ITER_SUBSTEP ! interating for substep failed, attempt to increase number of sub time-steps NBKUPS = NBKUPS + 1 ! IF( NBKUPS .LE. MXBKUPS ) THEN IF ( DTC .GT. DTMIN ) THEN ! reset YC and cut sub time-step in half IF ( MXFL ) THEN WRITE( LOGDEV, 92008 ) NBKUPS WRITE( LOGDEV, 92009 ) C+PECOL_OFFSET, R+PEROW_OFFSET, L DO S = 1, NUMB_MECH_SPC IF( LEBISPFL( S ) )WRITE( LOGDEV, 92010 )TRIM( CHEMISTRY_SPC( S ) ), & YC0(S), YCP(S) END DO ELSE WRITE( LOGDEV, 92000 ) C+PECOL_OFFSET, R+PEROW_OFFSET, L, NBKUPS DO S = 1, NUMB_MECH_SPC IF( LEBISPFL( S ) )WRITE( LOGDEV, 92010 )TRIM( CHEMISTRY_SPC( S ) ), & YC0(S), YCP(S) END DO END IF YC = YC0 ! Set ICs for EBI time-step DTC = 0.5D0 * DTC N_INR_STEPS = 2 ** NBKUPS EXIT SUBSTEP_EBI ELSE WRITE( LOGDEV, 92040 ) C+PECOL_OFFSET, R+PEROW_OFFSET, L WRITE( LOGDEV, 92060 ) DO S = 1, NUMB_MECH_SPC IF( LEBISPFL( S ) ) WRITE( LOGDEV, 92080 ) CHEMISTRY_SPC( S ), & YC0(S), YCP(S) END DO MSG = 'ERROR: Stopping because of EBI convergence failures' CALL M3EXIT( PNAME, JDATE, JTIME, MSG, XSTAT2 ) END IF END DO SUBSTEP_EBI IF( LEBI_CONV )THEN NEBI = 1 + NEBI ! test for completing final EBI time-step IF( NEBI .GT. N_EBI_STEPS )EXIT TSTEP_EBI ! test whether backups were done IF( NBKUPS .EQ. 0 )CYCLE TSTEP_EBI ! Reset NBKUPS, N_INR_STEPS and sub-time step NBKUPS = 0 N_INR_STEPS = 1 DTC = EBI_TMSTEP END IF END DO TSTEP_EBI #ifdef sens ! Compute average over integration and filter values YCDDM = YCDDM / CHEMSTEP WHERE ( YCDDM .LT. 1.0D-25 ) YCDDM = 0.0D0 #endif RETURN 91000 FORMAT( 'WARNING: EBI solver in cell (',2(I4,','),I4,') Init.Conc. for ', & A16, ' = ', ES12.4,' ppmV') 92000 FORMAT( 'WARNING: EBI Euler convergence failure' / & ' Reducing EBI time step because of ', & ' convergence failure in ' / & ' Cell (', I3, ', ', I3, ', ', I3, ')' , & ' Solution Attempt #', I2 / & ' Below Species Causing Error: Init.Conc, Pred.Conc.' ) 92008 FORMAT( 'WARNING: At solution attempt #', I2 ) 92009 FORMAT( 'WARNING: EBI Euler convergence failure' / & ' Reducing EBI time step because of ', & ' MAXPRED failure in ' / & ' Cell (', I3, ', ', I3, ', ', I3, ')' , & ' for the below species: : Init.Conc, Pred.Conc.') 92010 FORMAT( A16, 2(1X,ES12.4), ' ppmV' ) 92040 FORMAT( 'ERROR: Max number of EBI time step reductions exceeded' & / ' Convergence failure for cell (', I3, ', ', I3, & ', ', I3, ')' ) 92060 FORMAT( ' Convergence failure for the following species:', & 'Init.Conc, Pred.Conc.' ) 92080 FORMAT( 10X, A, 2(1X,ES12.4), ' ppmV ' ) 92061 FORMAT( ' Convergence failure for the following species:', & 'Init.Conc, Pred.Conc.,Rel.Error,' ) 92081 FORMAT( 10X, A, 2(1X,ES12.4), ' ppmV ', ES12.4,'%' ) END ================================================ FILE: CCTM/src/gas/ebi_cracmm2/hrdata_mod.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! MODULE HRDATA C************************************************************************* C C FUNCTION: Mechanism & solver data for EBI solver C C PRECONDITIONS: For the CRACMM2 mechanism C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by EBI solver program, Mar 15, 2024 C C 18 Jul 14 B.Hutzell: revised to use real(8) variables for solution C************************************************************************* c..EBI solver fixed parameters INTEGER, PARAMETER :: NEBITER = 1000 ! No. of iterations for EBI INTEGER, PARAMETER :: MAX_CELLS_EBI = 1 ! max # cells in local conc arrays REAL( 8 ), PARAMETER :: DELTAT = 2.500D+00 ! EBI time step (min) c..Mechanism specific variables INTEGER N_SPEC ! No. of species in mechanism INTEGER N_RXNS ! No. of reactions in mechanism INTEGER N_EBISP ! No. of species solved by EBI INTEGER NING1 ! No. of species in group 1 INTEGER NING2 ! No. of species in group 2 INTEGER N_SPCL_RKS ! No. of special rate constants INTEGER N_ACTSP ! No. of species in mechanism (non-ss spec) INTEGER NCELL ! cell number in EBI Block c..Control flags LOGICAL L_AE_VRSN ! Flag for aerosol version of mech LOGICAL L_AQ_VRSN ! Flag for aqueous chemistry version of mech LOGICAL CALL_IRR ! Flag initializing for IRR and calling PA_IRR ! SWITCH for calling DEGRADE routine LOGICAL, SAVE :: CALL_DEG = .TRUE. c..Miscellaneous variables INTEGER N_EBI_IT ! No. of iterations for EBI INTEGER N_EBI_STEPS ! No. of time steps for EBI INTEGER N_INR_STEPS ! No. of inner time steps for EBI INTEGER PECOL_OFFSET ! Local Column Offset for processor INTEGER PEROW_OFFSET ! Local Column Offset for processor INTEGER, SAVE :: MODEL_SPECIES ! No. of species in CGRID REAL( 8 ) EBI_TMSTEP ! Time step for EBI loops (min) REAL( 8 ) CHEMSTEP ! Chemistry integration interval (min) c...Allocatable arrays INTEGER, ALLOCATABLE :: EBISP( : ) ! Index of EBI species INTEGER, ALLOCATABLE :: SSASP( : ) ! Index of ss species INTEGER, ALLOCATABLE :: ACTSP( : ) ! Index of active species INTEGER, ALLOCATABLE :: IOLD2NEW( :,: ) ! YC species map, used if NSPECIAL > 0 REAL( 8 ), ALLOCATABLE :: RKI( : ) ! Rate constants REAL( 8 ), ALLOCATABLE :: RKI_SAV( :, : ) ! Saved values of RKI for SS species calcs REAL( 8 ), ALLOCATABLE :: YC ( : ) ! Species concentrations REAL( 8 ), ALLOCATABLE :: YC0( : ) ! Species concentrations REAL( 8 ), ALLOCATABLE :: YCP( : ) ! Species concentrations REAL( 8 ), ALLOCATABLE :: SYC( :, : ) ! Species concentrations REAL, ALLOCATABLE :: FORWARD_CONV( : ) ! CGRID to CHEM Species conversion factor REAL, ALLOCATABLE :: REVERSE_CONV( : ) ! CHEM to CGRID Species conversion factor REAL( 8 ), ALLOCATABLE :: RXRAT( : ) ! Reaction rates REAL( 8 ), ALLOCATABLE :: RTOL( : ) ! Species tolerances REAL( 8 ), ALLOCATABLE :: YCCELL( : ) ! ALL Species in cgrid REAL( 8 ), ALLOCATABLE :: PROD( : ) ! Prod of species REAL( 8 ), ALLOCATABLE :: LOSS( : ) ! Loss of species REAL, ALLOCATABLE :: PRES( :, :, : ) ! pressure (Pa) REAL, ALLOCATABLE :: QV ( :, :, : ) ! water vapor (Kg/Kg air) REAL, ALLOCATABLE :: TA ( :, :, : ) ! temperature (K) REAL, ALLOCATABLE :: SEAICE ( :, :) ! fractional seaice cover, [-] REAL, ALLOCATABLE :: DENS( :, :, : ) ! mass density (Kg/m^3) REAL, ALLOCATABLE :: SEAWATER_ZONE ( :,: ) ! fractional area of OPEN+SURF LOGICAL, ALLOCATABLE :: LFLAGIRR ( :,:,: ) ! Conduct IRR for cell REAL( 8 ), ALLOCATABLE :: ATMPRES ( : ) ! Cell pressure, Atm ! REAL( 8 ), ALLOCATABLE :: PRESCELL( : ) ! Cell pressure, Pa REAL( 8 ), ALLOCATABLE :: H2O ( : ) ! Cell H2O mixing ratio (ppmV) REAL( 8 ), ALLOCATABLE :: TEMP ( : ) ! Cell Temperature REAL( 8 ), ALLOCATABLE :: DENSITY ( : ) ! Cell mass density (Kg/m3) REAL( 8 ), ALLOCATABLE :: HET ( :, : ) ! cell heterogeneous reaction rates REAL( 8 ), ALLOCATABLE :: RJIN ( :, : ) ! J-values for a cell REAL( 8 ), ALLOCATABLE :: SEAWATER ( : ) ! fractional area of OPEN+SURF for specific cell c..Species indices INTEGER, PARAMETER :: O3 = 1 INTEGER, PARAMETER :: O3P = 2 INTEGER, PARAMETER :: O1D = 3 INTEGER, PARAMETER :: H2O2 = 4 INTEGER, PARAMETER :: HO = 5 INTEGER, PARAMETER :: NO2 = 6 INTEGER, PARAMETER :: NO = 7 INTEGER, PARAMETER :: NO3 = 8 INTEGER, PARAMETER :: HONO = 9 INTEGER, PARAMETER :: HNO3 = 10 INTEGER, PARAMETER :: HNO4 = 11 INTEGER, PARAMETER :: HO2 = 12 INTEGER, PARAMETER :: HCHO = 13 INTEGER, PARAMETER :: CO = 14 INTEGER, PARAMETER :: ACD = 15 INTEGER, PARAMETER :: MO2 = 16 INTEGER, PARAMETER :: ALD = 17 INTEGER, PARAMETER :: ETHP = 18 INTEGER, PARAMETER :: ACT = 19 INTEGER, PARAMETER :: ACO3 = 20 INTEGER, PARAMETER :: UALD = 21 INTEGER, PARAMETER :: KET = 22 INTEGER, PARAMETER :: PINAL = 23 INTEGER, PARAMETER :: HC10P = 24 INTEGER, PARAMETER :: LIMAL = 25 INTEGER, PARAMETER :: MEK = 26 INTEGER, PARAMETER :: HKET = 27 INTEGER, PARAMETER :: MACR = 28 INTEGER, PARAMETER :: MACP = 29 INTEGER, PARAMETER :: XO2 = 30 INTEGER, PARAMETER :: MVK = 31 INTEGER, PARAMETER :: GLY = 32 INTEGER, PARAMETER :: MGLY = 33 INTEGER, PARAMETER :: DCB1 = 34 INTEGER, PARAMETER :: DCB2 = 35 INTEGER, PARAMETER :: BALD = 36 INTEGER, PARAMETER :: CHO = 37 INTEGER, PARAMETER :: OP1 = 38 INTEGER, PARAMETER :: OP2 = 39 INTEGER, PARAMETER :: OPB = 40 INTEGER, PARAMETER :: OP3 = 41 INTEGER, PARAMETER :: PAA = 42 INTEGER, PARAMETER :: ONIT = 43 INTEGER, PARAMETER :: PAN = 44 INTEGER, PARAMETER :: TRPN = 45 INTEGER, PARAMETER :: HONIT = 46 INTEGER, PARAMETER :: N2O5 = 47 INTEGER, PARAMETER :: SO2 = 48 INTEGER, PARAMETER :: SULF = 49 INTEGER, PARAMETER :: SULRXN = 50 INTEGER, PARAMETER :: ETH = 51 INTEGER, PARAMETER :: HC3 = 52 INTEGER, PARAMETER :: HC3P = 53 INTEGER, PARAMETER :: ASOATJ = 54 INTEGER, PARAMETER :: HC5 = 55 INTEGER, PARAMETER :: HC5P = 56 INTEGER, PARAMETER :: ETE = 57 INTEGER, PARAMETER :: ETEP = 58 INTEGER, PARAMETER :: OLT = 59 INTEGER, PARAMETER :: OLTP = 60 INTEGER, PARAMETER :: OLI = 61 INTEGER, PARAMETER :: OLIP = 62 INTEGER, PARAMETER :: ACE = 63 INTEGER, PARAMETER :: ORA1 = 64 INTEGER, PARAMETER :: BEN = 65 INTEGER, PARAMETER :: BENP = 66 INTEGER, PARAMETER :: PHEN = 67 INTEGER, PARAMETER :: TOL = 68 INTEGER, PARAMETER :: TOLP = 69 INTEGER, PARAMETER :: CSL = 70 INTEGER, PARAMETER :: XYL = 71 INTEGER, PARAMETER :: XYLP = 72 INTEGER, PARAMETER :: EBZ = 73 INTEGER, PARAMETER :: EBZP = 74 INTEGER, PARAMETER :: ISO = 75 INTEGER, PARAMETER :: ISON = 76 INTEGER, PARAMETER :: INO2 = 77 INTEGER, PARAMETER :: ISOP = 78 INTEGER, PARAMETER :: ISHP = 79 INTEGER, PARAMETER :: IEPOX = 80 INTEGER, PARAMETER :: IPX = 81 INTEGER, PARAMETER :: INALD = 82 INTEGER, PARAMETER :: ROH = 83 INTEGER, PARAMETER :: API = 84 INTEGER, PARAMETER :: APIP1 = 85 INTEGER, PARAMETER :: APIP2 = 86 INTEGER, PARAMETER :: LIM = 87 INTEGER, PARAMETER :: LIMP1 = 88 INTEGER, PARAMETER :: LIMP2 = 89 INTEGER, PARAMETER :: PINALP = 90 INTEGER, PARAMETER :: RCO3 = 91 INTEGER, PARAMETER :: LIMALP = 92 INTEGER, PARAMETER :: ACTP = 93 INTEGER, PARAMETER :: MEKP = 94 INTEGER, PARAMETER :: KETP = 95 INTEGER, PARAMETER :: MCP = 96 INTEGER, PARAMETER :: MVKP = 97 INTEGER, PARAMETER :: UALP = 98 INTEGER, PARAMETER :: DCB3 = 99 INTEGER, PARAMETER :: BALP = 100 INTEGER, PARAMETER :: ADDC = 101 INTEGER, PARAMETER :: MCT = 102 INTEGER, PARAMETER :: MCTO = 103 INTEGER, PARAMETER :: MOH = 104 INTEGER, PARAMETER :: EOH = 105 INTEGER, PARAMETER :: ETEG = 106 INTEGER, PARAMETER :: MAHP = 107 INTEGER, PARAMETER :: ORA2 = 108 INTEGER, PARAMETER :: ORAP = 109 INTEGER, PARAMETER :: PPN = 110 INTEGER, PARAMETER :: MPAN = 111 INTEGER, PARAMETER :: MCTP = 112 INTEGER, PARAMETER :: OLNN = 113 INTEGER, PARAMETER :: OLND = 114 INTEGER, PARAMETER :: APINP1 = 115 INTEGER, PARAMETER :: APINP2 = 116 INTEGER, PARAMETER :: LIMNP1 = 117 INTEGER, PARAMETER :: LIMNP2 = 118 INTEGER, PARAMETER :: ADCN = 119 INTEGER, PARAMETER :: HOM = 120 INTEGER, PARAMETER :: VROCP4OXY2 = 121 INTEGER, PARAMETER :: VROCN1OXY6 = 122 INTEGER, PARAMETER :: FURANONE = 123 INTEGER, PARAMETER :: VROCP3OXY2 = 124 INTEGER, PARAMETER :: VROCP0OXY4 = 125 INTEGER, PARAMETER :: BAL1 = 126 INTEGER, PARAMETER :: BAL2 = 127 INTEGER, PARAMETER :: ELHOM = 128 INTEGER, PARAMETER :: VROCIOXY = 129 INTEGER, PARAMETER :: SLOWROC = 130 INTEGER, PARAMETER :: ACRO = 131 INTEGER, PARAMETER :: BDE13 = 132 INTEGER, PARAMETER :: BDE13P = 133 INTEGER, PARAMETER :: FURAN = 134 INTEGER, PARAMETER :: FURANO2 = 135 INTEGER, PARAMETER :: PROG = 136 INTEGER, PARAMETER :: SESQ = 137 INTEGER, PARAMETER :: SESQNRO2 = 138 INTEGER, PARAMETER :: VROCN2OXY2 = 139 INTEGER, PARAMETER :: SESQRO2 = 140 INTEGER, PARAMETER :: VROCP0OXY2 = 141 INTEGER, PARAMETER :: VROCP1OXY3 = 142 INTEGER, PARAMETER :: AGLYJ = 143 INTEGER, PARAMETER :: IEPOXP = 144 INTEGER, PARAMETER :: AISO3NOSJ = 145 INTEGER, PARAMETER :: ASO4J = 146 INTEGER, PARAMETER :: AISO3OSJ = 147 INTEGER, PARAMETER :: AISO4J = 148 INTEGER, PARAMETER :: AISO5J = 149 INTEGER, PARAMETER :: VROCP6ALK = 150 INTEGER, PARAMETER :: VROCP6ALKP = 151 INTEGER, PARAMETER :: VROCP5ALK = 152 INTEGER, PARAMETER :: VROCP5ALKP = 153 INTEGER, PARAMETER :: VROCP4ALK = 154 INTEGER, PARAMETER :: VROCP4ALKP = 155 INTEGER, PARAMETER :: VROCP3ALK = 156 INTEGER, PARAMETER :: VROCP3ALKP = 157 INTEGER, PARAMETER :: VROCP2ALK = 158 INTEGER, PARAMETER :: VROCP2ALKP = 159 INTEGER, PARAMETER :: VROCP1ALK = 160 INTEGER, PARAMETER :: VROCP1ALKP = 161 INTEGER, PARAMETER :: HC10 = 162 INTEGER, PARAMETER :: VROCP6ALKP2 = 163 INTEGER, PARAMETER :: VROCP5ALKP2 = 164 INTEGER, PARAMETER :: VROCP4ALKP2 = 165 INTEGER, PARAMETER :: VROCP2OXY2 = 166 INTEGER, PARAMETER :: VROCP3ALKP2 = 167 INTEGER, PARAMETER :: VROCP1OXY1 = 168 INTEGER, PARAMETER :: VROCP2ALKP2 = 169 INTEGER, PARAMETER :: VROCP1ALKP2 = 170 INTEGER, PARAMETER :: VROCN1OXY1 = 171 INTEGER, PARAMETER :: HC10P2 = 172 INTEGER, PARAMETER :: VROCP6ARO = 173 INTEGER, PARAMETER :: VROCP6AROP = 174 INTEGER, PARAMETER :: VROCN2OXY4 = 175 INTEGER, PARAMETER :: VROCN1OXY3 = 176 INTEGER, PARAMETER :: VROCP5ARO = 177 INTEGER, PARAMETER :: VROCP5AROP = 178 INTEGER, PARAMETER :: NAPH = 179 INTEGER, PARAMETER :: NAPHP = 180 INTEGER, PARAMETER :: VROCN2OXY8 = 181 INTEGER, PARAMETER :: VROCP5OXY1 = 182 INTEGER, PARAMETER :: VROCP6OXY1 = 183 INTEGER, PARAMETER :: ECH4 = 184 INTEGER, PARAMETER :: ATRPNJ = 185 INTEGER, PARAMETER :: AHOMJ = 186 INTEGER, PARAMETER :: AHONITJ = 187 INTEGER, PARAMETER :: STY = 188 INTEGER, PARAMETER :: STYP = 189 END MODULE HRDATA ================================================ FILE: CCTM/src/gas/ebi_cracmm2/hrdriver.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE CHEM( CGRID, JDATE, JTIME, TSTEP ) C********************************************************************** C C FUNCTION: Driver subroutine for Euler Backward Iterative solver C C PRECONDITIONS: For the CRACMM2 mechanism C C KEY SUBROUTINES/FUNCTIONS CALLED: HRINIT, HRCALCKS, HRSOLVER C FIND_DEGRADED, INIT_DEGRADE, FINAL_DEGRADE C C REVISION HISTORY: Created by EBI solver program, Mar 15, 2024 C Based on the algorithm in "Test of Two Numerical C Schemes for Use in Atmospheric Transport-Chemistry C Models", O. Hertel, R. Berkowicz, J. Christensen, C and O. Hov, Atm Env., Vol. 27A, No. 16, 1993. C Original MEBI code developed by Ho-Chun Huang, C SUNY, Albany -- "On the performance of numerical C solvers for a chemistry submodel in three-dimensional C air quality models 1. Box model simulations", C H. Huang and J.S. Chang, JGR, Vol 106, No. D17, 2001. C This version replaces Huang and Chang use of numerical C solutions with analytical solutions derived in C Hertel et al. C 21 Jun 10 J.Young: convert for Namelist redesign C 11 May 11 D.Wong: incorporated twoway model implementation C 27 Sep 11 B.Hutzell: revised method for defining CALL_DEG variable C 18 Jul 14 B.Hutzell: revised: 1) to use the RXNS_DATA and RXNS_FUNCTION C modules instead of include files, 2) to enable C reactions between species types, 3) to calculate C heterogeneous rate constants via AEROSOL_CHEMISTRY C module, 4) to replace call to HRCALCKS with C subroutine in RXNS_FUNCTION module and 5) to change C how degrade routines are used, if present C 02 Dec 14 B.Hutzell: 1) added terrestrial data to conduct surface C dependent reactions and 2) modified the call CALC_RCONST C routine C 01 Feb 19 D.Wong: Implemented centralized I/O approach, removed all MY_N C clauses C********************************************************************** USE HGRD_DEFN ! horizontal domain specifications USE VGRD_DEFN ! vertical layer specifications USE CGRID_SPCS ! CGRID mechanism species USE UTILIO_DEFN ! IOAPI parameters and functions declarations USE RXNS_DATA USE AEROSOL_CHEMISTRY USE RXNS_FUNCTION #ifdef isam USE SA_IRR_DEFN USE SA_DEFN #endif USE HRDATA USE PHOT_MOD, Only: INIT_PHOT_SHARED, RJ ! photolysis rate, in-line module USE PA_DEFN, Only: LIRR ! Process Analysis control and data variable USE PA_IRR_CLT #ifndef isam USE DEGRADE_ROUTINES, ONLY : N_REACT, RXTANT_MAP, DEG_LAY, DEG_COL, DEG_ROW, & FIND_DEGRADED, INIT_DEGRADE, FINAL_DEGRADE #else USE DEGRADE_ROUTINES, ONLY : N_REACT, RXTANT_MAP, SA_DEGRADE_EXTRACT, & FIND_DEGRADED, INIT_DEGRADE, FINAL_DEGRADE, & SA_DEGRADE_UPLOAD, DEG_LAY, DEG_COL, DEG_ROW #endif USE CENTRALIZED_IO_MODULE, ONLY : INTERPOLATE_VAR, OCEAN, SZONE #ifdef sens USE DDM3D_CHEM Use DDM3D_DEFN, Only: DATENUM, STARTDATE, IPT, IDATE, HIGH, NP, NPMAX, CKTIME #endif IMPLICIT NONE C..Includes: INCLUDE SUBST_FILES_ID ! CMAQ files INCLUDE SUBST_CONST ! CMAQ constants INCLUDE SUBST_EMISPRM ! Emissions processing control parameters C..Arguments: REAL, POINTER :: CGRID( :,:,:,: ) ! Species concentrations INTEGER JDATE ! Current date (YYYYDDD) INTEGER JTIME ! Current time (HHMMSS) INTEGER TSTEP( 3 ) ! Time step vector (HHMMSS) C..Parameters: REAL( 8 ), PARAMETER :: DCONMIN = 1.0D-30 ! minimum species concentration allowed REAL, PARAMETER :: CONCMIN = 1.0E-30 ! minimum species concentration allowed REAL, PARAMETER :: MAOMV = 1.0E6 * MWAIR / MWWAT ! Mol Wt of air over Mol Wt of water times 1.0E6 C..External Functions: C..Saved Local Variables: CHARACTER( 16 ), SAVE :: PNAME = 'HRDRIVER' ! Program name INTEGER, SAVE :: ISTFL ! Unit no. of iteration stat output file LOGICAL, SAVE :: LFIRST = .TRUE. ! Flag for first call to this subroutine REAL( 8 ), SAVE :: PA2ATM ! Pascal to atm conv fac C..Scratch Local Variables: CHARACTER( 132 ) :: MSG ! Message text CHARACTER( 16 ) :: VNAME ! Name of I/O API data variable INTEGER C, E, L, R, S ! Loop indices INTEGER ISP ! array index INTEGER AVGEBI ! Average no. of EBI iterations INTEGER DELT_SEC ! EBI max time step in seconds INTEGER ESP ! Loop index for emissions species INTEGER ITMSTEP ! Chemistry integration interval (sec) INTEGER LEV ! Layer index INTEGER MIDDATE ! Date at time step midpoint INTEGER MIDTIME ! Time at time step midpoint INTEGER NPH ! Index for number of phot. rxns in PHOT INTEGER SPC ! Species loop index #ifdef hrstats INTEGER MNEBI ! Min no. of EBI iterations INTEGER MXEBI ! Max no. of EBI iterations #endif LOGICAL LSUNLIGHT ! Flag for sunlight REAL INV_DENS ! reciprocal of air mass density, m3/Kg #ifdef hrstats REAL SUMEBI ! Sum of EBI iterations #endif INTERFACE SUBROUTINE HRSOLVER( JDATE, JTIME, C, R, L ) INTEGER, INTENT( IN ) :: JDATE ! Current date (YYYYDDD) INTEGER, INTENT( IN ) :: JTIME ! Current time (HHMMSS) INTEGER, INTENT( IN ) :: C, R, L ! Cell col, row, lev END SUBROUTINE HRSOLVER SUBROUTINE HETCHEM_UPDATE_AERO( CGRID ) REAL, POINTER :: CGRID( :,:,:,: ) ! species concentration in cell END SUBROUTINE HETCHEM_UPDATE_AERO END INTERFACE C********************************************************************** IF( NUMB_MECH_SPC .EQ. 0 ) RETURN ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c On first call, call routines to set-up for EBI solver ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF( LFIRST ) THEN IF( MECHNAME .NE. 'CRACMM2' ) THEN MSG = 'This version of the EBI solver can only be used with' & // ' the CRACMM2 chemical mechanism' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF #ifdef emis_chem EMISVD = .FALSE. #else EMISVD = .TRUE. #endif IF( INDEX( MECHNAME, 'AE' ) .NE. 0 ) THEN L_AE_VRSN = .TRUE. ELSE L_AE_VRSN = .FALSE. END IF IF( INDEX( MECHNAME, 'AQ' ) .NE. 0 ) THEN L_AQ_VRSN = .TRUE. ELSE L_AQ_VRSN = .FALSE. END IF IF( LIRR ) THEN CALL_IRR = .TRUE. ELSE CALL_IRR = .FALSE. END IF MODEL_SPECIES = NSPCSD ! WTH: find number of model species ! Determine whether DEGRADE rountines are needed. CALL FIND_DEGRADED( JDATE, JTIME, CALL_DEG ) IF( CALL_DEG )THEN WRITE(LOGDEV,*)'TX DEGRADE ROUTINES USED' WRITE(LOGDEV,*)'Mechanism contains degraded species' #ifdef verbose_gas ELSE WRITE(LOGDEV,*)'TX DEGRADE ROUTINES OMITTED' WRITE(LOGDEV,*)'MECHANISM does not include degraded species' #endif END IF CALL HRINIT ITMSTEP = TIME2SEC( TSTEP( 2 ) ) CHEMSTEP = REAL( ITMSTEP, 8 ) / 60.0D0 WRITE( LOGDEV, 92000 ) CHEMSTEP, DELTAT WRITE( LOGDEV, 92020 ) DO SPC = 1, NUMB_MECH_SPC WRITE( LOGDEV, 92040 ) CHEMISTRY_SPC( SPC ), RTOL( SPC ) END DO PA2ATM = REAL( 1.0 / STDATMPA, 8) c..If emissions processing requested stop IF( .NOT. EMISVD ) THEN ! assumes emis processing in gas chem MSG = 'ERROR: EBI solver not configured to '// & 'process emissions in chemistry' CALL M3EXIT( PNAME, JDATE, JTIME, MSG, XSTAT1 ) END IF ! End if doing emissions #ifdef hrstats ISTFL = JUNIT() OPEN( UNIT=ISTFL, FILE='iterstat.dat' ) WRITE( ISTFL, 94020 ) #endif C Define processor offsets PECOL_OFFSET = COLSD_PE( 1, MYPE+1 ) - 1 PEROW_OFFSET = ROWSD_PE( 1, MYPE+1 ) - 1 ALLOCATE( SEAWATER_ZONE( NCOLS, NROWS ) ) DO R = 1, NROWS DO C = 1, NCOLS SEAWATER_ZONE( C,R ) = OCEAN( C,R ) + SZONE( C,R ) END DO END DO ALLOCATE( DENS( NCOLS, NROWS, NLAYS ), PRES( NCOLS, NROWS, NLAYS ), & QV ( NCOLS, NROWS, NLAYS ), TA ( NCOLS, NROWS, NLAYS ), & SEAICE( NCOLS, NROWS ) ) C..Initialize shared photolysis data CALL INIT_PHOT_SHARED() C..Determine which cells need IRR ALLOCATE( LFLAGIRR ( NCOLS, NROWS, NLAYS ) ) CALL PA_IRR_CKCELLS ( LFLAGIRR ) #ifdef isam NUMB_ISAM_CELLS = 1.0D0 / ( NCOLS * NROWS * NLAYS ) CALL SA_IRR_INIT #endif #ifdef sens CALL INIT_DDM3D_CHEM() C For higher order sensitivities IF ( HIGH ) THEN DO RXN = 1, NRXNS IF( NREACT( RXN ) .EQ. 1 ) THEN ORDER1( RXN ) = .TRUE. ELSE ORDER1( RXN ) = .FALSE. END IF END DO END IF #endif LFIRST = .FALSE. END IF ! First time ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C Set date and time to center of time step, get necessary physical C data ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc MIDDATE = JDATE MIDTIME = JTIME ITMSTEP = TIME2SEC( TSTEP( 2 ) ) CHEMSTEP = REAL( ITMSTEP, 8 ) / 60.0D0 CALL NEXTIME( MIDDATE, MIDTIME, SEC2TIME( ITMSTEP / 2 ) ) C.. Compute number of time step loops and step size for EBI solver DELT_SEC = INT( DELTAT * 60.0D0 + 0.1D0 ) IF( DELT_SEC .GE. ITMSTEP ) THEN N_EBI_STEPS = 2 EBI_TMSTEP = 0.5D0 * CHEMSTEP ELSE IF( MOD( ITMSTEP, DELT_SEC ) .EQ. 0 ) THEN N_EBI_STEPS = ITMSTEP / DELT_SEC ELSE N_EBI_STEPS = ITMSTEP / DELT_SEC + 1 END IF EBI_TMSTEP = CHEMSTEP / REAL( N_EBI_STEPS, 8 ) END IF N_INR_STEPS = 1 C.. Get fractional seaice coverage from the METCRO2D file. CALL INTERPOLATE_VAR ('SEAICE', MIDDATE, MIDTIME, SEAICE) C.. Get ambient temperature in K CALL INTERPOLATE_VAR ('TA', MIDDATE, MIDTIME, TA) C.. Get specific humidity in Kg H2O / Kg air CALL INTERPOLATE_VAR ('QV', MIDDATE, MIDTIME, QV) ! Get ambient MASS DENSITY in Kg/m^3 CALL INTERPOLATE_VAR ('DENS', MIDDATE, MIDTIME, DENS) C.. Get pressure in Pascals CALL INTERPOLATE_VAR ('PRES', MIDDATE, MIDTIME, PRES) C.. Get Heteorogeneous rates and Update Aerosol Distribution Properties CALL HETCHEM_RATES( TA, PRES, QV, CGRID, DENS ) #ifdef sens DATENUM = 1 + JDATE - STARTDATE ! Set the date and hour counters used in sensitivity calls C For reaction rate sensitivities DO NP = 1, NPMAX IF ( IPT( NP ) .EQ. 5 ) THEN CALL CKTIME( JDATE,JTIME,NP,RXNFLAG(NP) ) ! Rxnflag set to true iff ipt=5 and time, date within bounds IF ( IDATE( NP, DATENUM ) .NE. 1 ) RXNFLAG( NP ) = .FALSE. ELSE RXNFLAG( NP ) = .FALSE. END IF END DO #endif sens ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Top of loop over cells ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc #ifdef hrstats MNEBI = 1000 MXEBI = 0 SUMEBI = 0.0 #endif NCELL = 1 DO L = 1, NLAYS DO R = 1, NROWS DO C = 1, NCOLS DEG_LAY = L DEG_ROW = R DEG_COL = C c..reset CALL_IRR based on cell's values CALL_IRR = LFLAGIRR( C,R,L ) c..Load ICs INV_DENS = 1.0 / DENS( C,R,L ) DO SPC = 1, NUMB_MECH_SPC S = CGRID_INDEX( SPC ) IF( CONVERT_CONC( SPC ) )THEN YC( SPC ) = REAL( MAX( CONCMIN, & INV_DENS*FORWARD_CONV( SPC )*CGRID( C,R,L,S )), 8 ) ELSE YC( SPC ) = REAL( MAX( CGRID( C,R,L,S ), CONCMIN), 8 ) END IF END DO IF(CALL_DEG)THEN ! INITIALIZE degradation routines YCCELL = 0.0D0 DO S = 1, MODEL_SPECIES YCCELL( S ) = REAL( CGRID(C,R,L,S), 8) END DO CALL INIT_DEGRADE(YCCELL,TA(C,R,L),DENS(C,R,L),PRES(C,R,L),QV(C,R,L),RJIN(NCELL,:), & JDATE, JTIME) #ifdef isam CALL SA_DEGRADE_EXTRACT( C,R,L,DENS(C,R,L) ) #endif END IF c..Set physical quantities TEMP( NCELL ) = REAL( TA( C,R,L ), 8) DENSITY( NCELL ) = REAL( DENS( C,R,L ), 8) ! PRESCELL( NCELL ) = REAL( PRES( C,R,L ), 8) ATMPRES( NCELL ) = PA2ATM * REAL( PRES( C,R,L ), 8) H2O( NCELL ) = REAL( MAX ( MAOMV * QV( C,R,L ), 0.0 ), 8) SEAWATER (NCELL) = MAX ( 0.0D0, ( REAL( SEAWATER_ZONE( C,R ) - SEAICE (C,R) ,8) ) ) c..Get rate constants LSUNLIGHT = .FALSE. FORALL( NPH = 1:NPHOTAB ) RJIN( NCELL,NPH ) = REAL( RJ( C,R,L,NPH ), 8) IF( MAXVAL(RJIN) .GT. 0.0D0 ) LSUNLIGHT = .TRUE. FORALL ( NPH = 1:NHETERO )HET( NCELL,NPH ) = REAL( KHETERO( NPH,C,R,L ), 8) CALL CALC_RCONST( TEMP, ATMPRES, H2O, RJIN, HET, LSUNLIGHT, SEAWATER, RKI_SAV, NCELL ) FORALL( NPH = 1:NRXNS )RKI( NPH ) = RKI_SAV( NCELL, NPH ) #ifdef isam #if defined(isam) || defined(verbose_isam) C...For diagnosing IRR calculations in log files IF( CHECK_ISAM )THEN WRITE_CELL = .FALSE. IF( C .EQ. MAX(1, NCOLS/2) .AND. R .EQ. MAX(1,NROWS/2) .AND. L .EQ. 1 )THEN WRITE_CELL = .TRUE. WRITE(LOGDEV,*)'WRITE_CELL = .TRUE.' ELSE WRITE_CELL = .FALSE. END IF END IF #endif CALL SA_IRR_EXTRACT( C, R, L, DENS( C,R,L ),YC ) #endif c..Call EBI solver N_EBI_IT = 0 CALL HRSOLVER( JDATE, JTIME, C, R, L ) #ifdef hrstats MXEBI = MAX( MXEBI, N_EBI_IT ) MNEBI = MIN( MNEBI, N_EBI_IT ) SUMEBI = SUMEBI + REAL( N_EBI_IT ) #endif c..Update concentration array DO SPC = 1, NUMB_MECH_SPC S = CGRID_INDEX( SPC ) IF( CONVERT_CONC( SPC ) )THEN CGRID( C,R,L,S ) = REAL( REVERSE_CONV( SPC ) * DENS( C,R,L ) & * MAX( YC( SPC ), DCONMIN), 4) ELSE CGRID( C,R,L,S ) = REAL( MAX( YC( SPC ), DCONMIN), 4) END IF END DO IF(CALL_DEG)THEN ! WTH: update based on degrade routines CALL FINAL_DEGRADE(YCCELL) UPDATE_DEGRADED: DO SPC = 1, N_REACT ISP = RXTANT_MAP( SPC ) IF( ISP .LE. 0 )CYCLE UPDATE_DEGRADED DO S = 1, NUMB_MECH_SPC IF( CGRID_INDEX( S ) .EQ. ISP )CYCLE UPDATE_DEGRADED END DO CGRID(C,R,L,ISP) = REAL( YCCELL(ISP), 4) END DO UPDATE_DEGRADED #ifdef isam CALL SA_DEGRADE_UPLOAD( C,R,L,DENS(C,R,L) ) #endif END IF #ifdef isam CALL SA_IRR_UPLOAD( C, R, L, DENS( C,R,L ), YC ) #endif c..update irrout arrays if needed IF ( LFLAGIRR( C,R,L ) )CALL PA_IRR_CELLENDF( C, R, L ) #ifdef sens DO RXN = 1, NRXNS SRK( RXN ) = RKI( RXN ) IF ( HIGH ) THEN IF ( ORDER1 (RXN ) ) THEN SRK2( RXN ) = 0.0 ELSE SRK2( RXN ) = RKI( RXN ) END IF END IF END DO CALL SOLVE_DDM3D_CHEM( C,R,L,CHEMSTEP ) #endif END DO END DO END DO ! Update Aerosol Surface Area CALL HETCHEM_UPDATE_AERO( CGRID ) #ifdef hrstats AVGEBI = SUMEBI / REAL( NCOLS * NROWS * NLAYS ) WRITE( ISTFL, 94040 ) JDATE, JTIME, MNEBI, AVGEBI, MXEBI #endif RETURN C*********************** FORMAT STATEMENTS **************************** 92000 FORMAT( / 10X, 'Euler Backward Iterative Parameters -' & / 10X, 'Chemistry Integration Time Interval (min):', F12.4, & / 10X, 'EBI maximum time step (min): ', F12.4 ) 92020 FORMAT( //10X, 'Species convergence tolerances:' ) 92040 FORMAT( 10X, A16, 2X, 1PE12.2 ) 92060 FORMAT( / 10X, 'Emissions Processing in Chemistry ...' & / 10X, 'Number of Emissions Layers: ', I3 & / 10X, 'out of total Number of Model Layers:', I3 ) 94020 FORMAT( 'DATE TIME ', 'MNEBI AVEBI MXEBI' ) 94040 FORMAT( I7, 1X, I6, 1X, 3( I5, 1X ) ) END ================================================ FILE: CCTM/src/gas/ebi_cracmm2/hrg1.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE HRG1( DTC ) C********************************************************************** C C FUNCTION: To solve for the concentration of NO2, NO, O3, and O3P C algebraically. C C PRECONDITIONS: For the CRACMM2 mechanism C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by EBI solver program, Mar 15, 2024 C C 18 Jul 14 B.Hutzell: revised to use real(8) variables C 01 Jun 18 B.Hutzell: replaced steady solution for O1D with backward Euler C approximation. To match conditions where the initial C concentration cannot be neglected. C********************************************************************** USE HRDATA IMPLICIT NONE C..INCLUDES: None C..ARGUMENTS: REAL( 8 ), INTENT( IN ) :: DTC ! Time step C..PARAMETERS: None C..EXTERNAL FUNCTIONS: NONE C..SAVED LOCAL VARIABLES: ! CHARACTER( 16 ), SAVE :: PNAME = 'HRG1' ! Prgram Name C..SCRATCH LOCAL VARIABLES: REAL( 8 ) :: O1D_S ! sum of O1D loss frequencies REAL( 8 ) :: O3P_S ! stoich coeff for O3P from O1D REAL( 8 ) :: R1_2 ! production term for NO from NO2 REAL( 8 ) :: R2_1 ! production term for NO2 from NO REAL( 8 ) :: P1, P2, P3, P12 ! production terms for NO, NO2, O3, & O3P REAL( 8 ) :: L1, L2, L3, L12 ! loss terms for NO, NO2, O3, O3P REAL( 8 ) :: L1_INV, L2_INV, & L3_INV, L12_INV ! inverse of loss terms REAL( 8 ) :: T1, T2, T3, T4, T5 ! intermerdiate terms REAL( 8 ) :: F1, F2, F3 ! intermerdiate terms REAL( 8 ) :: A, B, C ! coefficients for quadratic equation REAL( 8 ) :: Q, XX, S1, S2 ! intermerdiate terms REAL( 8 ) :: RK1, RK2, RK3 ! rate constants REAL( 8 ) :: PO3 ! temp variable for O3 C********************************************************************** cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c O1D Section c 1) sum of the rate constants for all O1D loss reactions c 2) get fractional yield of O3P from O1D loss cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc O1D_S = RKI( 47 ) ! O1D=O3P & + RKI( 48 ) ! O1D=O3P & + RKI( 49 ) ! O1D=0.2000D+01*HO O3P_S = RKI( 47 ) ! O1D=O3P & + RKI( 48 ) ! O1D=O3P O3P_S = O3P_S / O1D_S cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c NO Section c R1_2 = production of NO from NO2 ( rates of form k[NO2][x] ) c except NO2+NO3=NO+NO2 (it is treated as if it were NO3=NO ) c P1 = remaining NO production terms c L1 = loss of NO (except rxns producing NO2 - they are in R2_1) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc R1_2 = RKI( 4 ) ! NO2=NO+O3P & + RKI( 61 ) * YC ( O3P ) ! NO2+O3P=NO R1_2 = R1_2 * DTC P1 = RXRAT( 5 ) ! NO3=NO & + RXRAT( 7 ) ! HONO=NO+HO & + RXRAT( 68 ) ! NO2+NO3=NO+NO2 P1 = YC0( NO ) + P1 * DTC L1 = RKI( 56 ) * YC ( HO ) ! NO+HO=HONO & + RKI( 58 ) * YC ( HO2 ) ! NO+HO2=HNO3 & + 1.3000D-01 * RKI( 94 ) * YC ( ISOP ) ! NO+ISOP=0.1300D+... & + 6.5000D-02 * RKI( 185 ) * YC ( HC3P ) ! NO+HC3P=0.6600D+... & + 1.3600D-01 * RKI( 186 ) * YC ( HC5P ) ! NO+HC5P=0.2000D+... & + 3.0000D-02 * RKI( 188 ) * YC ( OLTP ) ! NO+OLTP=0.7800D+... & + 5.0000D-02 * RKI( 189 ) * YC ( OLIP ) ! NO+OLIP=0.8300D+... & + 2.0000D-03 * RKI( 190 ) * YC ( BENP ) ! NO+BENP=0.0000D+... & + 2.0000D-03 * RKI( 191 ) * YC ( TOLP ) ! NO+TOLP=0.2000D-... & + 2.0000D-03 * RKI( 192 ) * YC ( XYLP ) ! NO+XYLP=0.1000D-... & + 2.0000D-03 * RKI( 193 ) * YC ( EBZP ) ! NO+EBZP=0.2000D-... & + 2.3700D-01 * RKI( 194 ) * YC ( APIP1 ) ! NO+APIP1=0.2370D+... & + 1.8000D-01 * RKI( 195 ) * YC ( APIP2 ) ! NO+APIP2=0.8200D+... & + 1.8000D-01 * RKI( 197 ) * YC ( APINP2 ) ! NO+APINP2=... & + 2.3000D-01 * RKI( 198 ) * YC ( LIMP1 ) ! NO+LIMP1=0.2300D+... & + 2.3000D-01 * RKI( 199 ) * YC ( LIMP2 ) ! NO+LIMP2=0.7700D+... & + 2.3000D-01 * RKI( 201 ) * YC ( LIMNP2 ) ! NO+LIMNP2=... & + 3.6000D-01 * RKI( 202 ) * YC ( PINALP ) ! NO+PINALP=... & + 6.4000D-01 * RKI( 203 ) * YC ( LIMALP ) ! NO+LIMALP=... & + 3.2000D-02 * RKI( 398 ) * YC ( BDE13P ) ! NO+BDE13P=... & + 8.0000D-02 * RKI( 406 ) * YC ( FURANO2 ) ! NO+FURANO2=... & + 2.4700D-01 * RKI( 420 ) * YC ( SESQRO2 ) ! NO+SESQRO2=... & + 2.8000D-01 * RKI( 440 ) * YC ( VROCP6ALKP ) ! NO+VROCP6ALKP=... & + 2.8000D-01 * RKI( 441 ) * YC ( VROCP5ALKP ) ! NO+VROCP5ALKP=... & + 2.8000D-01 * RKI( 442 ) * YC ( VROCP4ALKP ) ! NO+VROCP4ALKP=... & + 2.8000D-01 * RKI( 443 ) * YC ( VROCP3ALKP ) ! NO+VROCP3ALKP=... & + 2.8000D-01 * RKI( 444 ) * YC ( VROCP2ALKP ) ! NO+VROCP2ALKP=... & + 2.8000D-01 * RKI( 445 ) * YC ( VROCP1ALKP ) ! NO+VROCP1ALKP=... & + 2.6000D-01 * RKI( 446 ) * YC ( HC10P ) ! NO+HC10P=0.7400D+... & + 1.4000D-01 * RKI( 468 ) * YC ( VROCP6ALKP2 ) ! NO+VROCP6ALKP2=... & + 1.4000D-01 * RKI( 469 ) * YC ( VROCP5ALKP2 ) ! NO+VROCP5ALKP2=... & + 1.4000D-01 * RKI( 470 ) * YC ( VROCP4ALKP2 ) ! NO+VROCP4ALKP2=... & + 1.4000D-01 * RKI( 471 ) * YC ( VROCP3ALKP2 ) ! NO+VROCP3ALKP2=... & + 1.4000D-01 * RKI( 472 ) * YC ( VROCP2ALKP2 ) ! NO+VROCP2ALKP2=... & + 1.4000D-01 * RKI( 473 ) * YC ( VROCP1ALKP2 ) ! NO+VROCP1ALKP2=... & + 1.2000D-01 * RKI( 474 ) * YC ( HC10P2 ) ! NO+HC10P2=... & + 2.0000D-03 * RKI( 491 ) * YC ( VROCP6AROP ) ! NO+VROCP6AROP=... & + 2.0000D-03 * RKI( 497 ) * YC ( VROCP5AROP ) ! NO+VROCP5AROP=... & + 2.0000D-03 * RKI( 503 ) * YC ( NAPHP ) ! NO+NAPHP=0.5950D-... L1 = 1.0D0 + L1 * DTC cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c NO2 Section c R2_1 = production of NO2 from NO ( rates of form k[NO][x] ) c a) NO+O3=NO2 not included c b) NO+NO3=2NO2 ( 1/2 of NO2 formation rate included ) c c) NO3+NO2=NO+NO2 is not included for NO2 c P2 = remaining NO2 production terms c a) NO+O3=NO2 not included c b) NO+NO3=2NO2 (1/2 of NO2 formation rate included ) c L2 = loss of NO2 (except rxns producing NO2 - they are in R1_2) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc R2_1 = RKI( 55 ) * YC ( O3P ) ! NO+O3P=NO2 & + RKI( 57 ) * YC ( HO2 ) ! NO+HO2=NO2+HO & + 2.0000D+00 * RKI( 59 ) * YC ( NO ) ! NO+NO=0.2000D+01*NO2 & + RKI( 67 ) * YC ( NO3 ) ! NO+NO3=0.2000D+... & + 8.7000D-01 * RKI( 94 ) * YC ( ISOP ) ! NO+ISOP=0.8700D+... & + RKI( 98 ) * YC ( INO2 ) ! NO+INO2=0.1300D+... & + RKI( 183 ) * YC ( MO2 ) ! NO+MO2=NO2+HO2+HCHO & + RKI( 184 ) * YC ( ETHP ) ! NO+ETHP=NO2+HO2+ACD & + 9.3500D-01 * RKI( 185 ) * YC ( HC3P ) ! NO+HC3P=0.9350D+... & + 8.6400D-01 * RKI( 186 ) * YC ( HC5P ) ! NO+HC5P=0.8640D+... & + RKI( 187 ) * YC ( ETEP ) ! NO+ETEP=NO2+HO2+... & + 9.7000D-01 * RKI( 188 ) * YC ( OLTP ) ! NO+OLTP=0.9700D+... & + 9.5000D-01 * RKI( 189 ) * YC ( OLIP ) ! NO+OLIP=0.9500D+... & + 9.9800D-01 * RKI( 190 ) * YC ( BENP ) ! NO+BENP=0.9980D+... & + 9.9800D-01 * RKI( 191 ) * YC ( TOLP ) ! NO+TOLP=0.9980D+... & + 9.9800D-01 * RKI( 192 ) * YC ( XYLP ) ! NO+XYLP=0.9980D+... & + 9.9800D-01 * RKI( 193 ) * YC ( EBZP ) ! NO+EBZP=0.9980D+... & + 7.6300D-01 * RKI( 194 ) * YC ( APIP1 ) ! NO+APIP1=0.7630D+... & + 8.2000D-01 * RKI( 195 ) * YC ( APIP2 ) ! NO+APIP2=0.8200D+... & + RKI( 196 ) * YC ( APINP1 ) ! NO+APINP1=... & + 8.2000D-01 * RKI( 197 ) * YC ( APINP2 ) ! NO+APINP2=... & + 7.7000D-01 * RKI( 198 ) * YC ( LIMP1 ) ! NO+LIMP1=0.7700D+... & + 7.7000D-01 * RKI( 199 ) * YC ( LIMP2 ) ! NO+LIMP2=0.7700D+... & + RKI( 200 ) * YC ( LIMNP1 ) ! NO+LIMNP1=... & + 7.7000D-01 * RKI( 201 ) * YC ( LIMNP2 ) ! NO+LIMNP2=... & + 6.4000D-01 * RKI( 202 ) * YC ( PINALP ) ! NO+PINALP=... & + 3.6000D-01 * RKI( 203 ) * YC ( LIMALP ) ! NO+LIMALP=... & + RKI( 204 ) * YC ( ACO3 ) ! NO+ACO3=NO2+MO2 & + RKI( 205 ) * YC ( RCO3 ) ! NO+RCO3=NO2+ETHP & + RKI( 206 ) * YC ( ACTP ) ! NO+ACTP=NO2+ACO3+... & + RKI( 207 ) * YC ( MEKP ) ! NO+MEKP=NO2+... & + RKI( 208 ) * YC ( KETP ) ! NO+KETP=NO2+... & + RKI( 209 ) * YC ( MACP ) ! NO+MACP=NO2+... & + RKI( 210 ) * YC ( MCP ) ! NO+MCP=NO2+... & + RKI( 211 ) * YC ( MVKP ) ! NO+MVKP=NO2+... & + RKI( 212 ) * YC ( UALP ) ! NO+UALP=NO2+HO2+... & + RKI( 213 ) * YC ( BALP ) ! NO+BALP=NO2+BAL1 & + RKI( 214 ) * YC ( BAL1 ) ! NO+BAL1=NO2+BAL2 & + RKI( 215 ) * YC ( ADDC ) ! NO+ADDC=NO2+HO2+... & + RKI( 216 ) * YC ( MCTP ) ! NO+MCTP=NO2+MCTO & + RKI( 217 ) * YC ( ORAP ) ! NO+ORAP=NO2+GLY+HO2 & + RKI( 218 ) * YC ( OLNN ) ! NO+OLNN=NO2+HO2+ONIT & + RKI( 219 ) * YC ( OLND ) ! NO+OLND=0.2000D+... & + RKI( 220 ) * YC ( ADCN ) ! NO+ADCN=0.2000D+... & + RKI( 221 ) * YC ( XO2 ) ! NO+XO2=NO2 & + 9.6800D-01 * RKI( 398 ) * YC ( BDE13P ) ! NO+BDE13P=... & + 9.2000D-01 * RKI( 406 ) * YC ( FURANO2 ) ! NO+FURANO2=... & + RKI( 414 ) * YC ( SESQNRO2 ) ! NO+SESQNRO2=... & + 7.5300D-01 * RKI( 420 ) * YC ( SESQRO2 ) ! NO+SESQRO2=... & + 7.2000D-01 * RKI( 440 ) * YC ( VROCP6ALKP ) ! NO+VROCP6ALKP=... & + 7.2000D-01 * RKI( 441 ) * YC ( VROCP5ALKP ) ! NO+VROCP5ALKP=... & + 7.2000D-01 * RKI( 442 ) * YC ( VROCP4ALKP ) ! NO+VROCP4ALKP=... & + 7.2000D-01 * RKI( 443 ) * YC ( VROCP3ALKP ) ! NO+VROCP3ALKP=... & + 7.2000D-01 * RKI( 444 ) * YC ( VROCP2ALKP ) ! NO+VROCP2ALKP=... & + 7.2000D-01 * RKI( 445 ) * YC ( VROCP1ALKP ) ! NO+VROCP1ALKP=... & + 7.4000D-01 * RKI( 446 ) * YC ( HC10P ) ! NO+HC10P=0.7400D+... & + 8.6000D-01 * RKI( 468 ) * YC ( VROCP6ALKP2 ) ! NO+VROCP6ALKP2=... & + 8.6000D-01 * RKI( 469 ) * YC ( VROCP5ALKP2 ) ! NO+VROCP5ALKP2=... & + 8.6000D-01 * RKI( 470 ) * YC ( VROCP4ALKP2 ) ! NO+VROCP4ALKP2=... & + 8.6000D-01 * RKI( 471 ) * YC ( VROCP3ALKP2 ) ! NO+VROCP3ALKP2=... & + 8.6000D-01 * RKI( 472 ) * YC ( VROCP2ALKP2 ) ! NO+VROCP2ALKP2=... & + 8.6000D-01 * RKI( 473 ) * YC ( VROCP1ALKP2 ) ! NO+VROCP1ALKP2=... & + 8.8000D-01 * RKI( 474 ) * YC ( HC10P2 ) ! NO+HC10P2=... & + 9.9800D-01 * RKI( 491 ) * YC ( VROCP6AROP ) ! NO+VROCP6AROP=... & + 9.9800D-01 * RKI( 497 ) * YC ( VROCP5AROP ) ! NO+VROCP5AROP=... & + 9.9800D-01 * RKI( 503 ) * YC ( NAPHP ) ! NO+NAPHP=0.9980D+... & + RKI( 528 ) * YC ( STYP ) ! NO+STYP=NO2+HO2+... R2_1 = R2_1 * DTC P2 = RXRAT( 6 ) ! NO3=NO2+O3P & + RXRAT( 8 ) ! HNO3=NO2+HO & + 8.0000D-01 * RXRAT( 9 ) ! HNO4=0.8000D+00*NO2+... & + RXRAT( 36 ) ! ONIT=NO2+HO2+0.2000D+... & + RXRAT( 37 ) ! PAN=NO2+ACO3 & + RXRAT( 39 ) ! TRPN=NO2+0.6700D+... & + RXRAT( 40 ) ! HONIT=NO2+HKET & + RXRAT( 60 ) ! HONO+HO=NO2 & + RXRAT( 65 ) ! NO3+HO=NO2+HO2 & + 7.0000D-01 * RXRAT( 66 ) ! NO3+HO2=0.7000D+... & + RXRAT( 67 ) ! NO+NO3=0.2000D+01*NO2 & + 2.0000D+00 * RXRAT( 69 ) ! NO3+NO3=0.2000D+01*NO2 & + RXRAT( 71 ) ! N2O5=NO2+NO3 & + RXRAT( 74 ) ! HNO4=NO2+HO2 & + RXRAT( 75 ) ! HNO4+HO=NO2 & + 4.0000D-01 * RXRAT( 91 ) ! ISO+NO3=0.4000D+... & + 3.0000D-01 * RXRAT( 98 ) ! NO+INO2=0.1300D+... & + 6.5000D-01 * RXRAT( 99 ) ! ISON+HO=0.6500D+... & + RXRAT( 100 ) ! HO+INALD=NO2+CO+... & + RXRAT( 140 ) ! MPAN+HO=NO2+HKET & + RXRAT( 141 ) ! ONIT+HO=NO2+HC3P & + 6.7000D-01 * RXRAT( 142 ) ! TRPN+HO=0.6700D+... & + 6.7000D-01 * RXRAT( 150 ) ! TRPN+O3=0.6700D+... & + 6.7000D-01 * RXRAT( 163 ) ! TRPN+NO3=0.6700D+... & + 6.8000D-01 * RXRAT( 167 ) ! MACR+NO3=0.6800D+... & + RXRAT( 174 ) ! MPAN+NO3=NO2+MACP & + RXRAT( 178 ) ! PAN=NO2+ACO3 & + RXRAT( 180 ) ! PPN=NO2+RCO3 & + RXRAT( 182 ) ! MPAN=NO2+MACP & + 6.9550D-01 * RXRAT( 196 ) ! NO+APINP1=0.1696D+... & + 3.6000D-01 * RXRAT( 200 ) ! NO+LIMNP1=0.1360D+... & + RXRAT( 219 ) ! NO+OLND=0.2000D+... & + RXRAT( 220 ) ! NO+ADCN=0.2000D+... & + 5.3900D-01 * RXRAT( 238 ) ! APINP1+HO2=0.5390D+... & + 2.3000D-01 * RXRAT( 242 ) ! LIMNP1+HO2=0.2300D+... & + 6.5900D-01 * RXRAT( 277 ) ! APINP1+MO2=0.6590D+... & + 7.5000D-01 * RXRAT( 278 ) ! APINP2+MO2=0.7500D+... & + 3.1000D-01 * RXRAT( 281 ) ! LIMNP1+MO2=0.3100D+... & + 7.5000D-01 * RXRAT( 282 ) ! LIMNP2+MO2=0.7500D+... & + RXRAT( 289 ) ! MCP+MO2=NO2+HO2+... & + 5.0000D-01 * RXRAT( 298 ) ! OLND+MO2=0.5000D+... & + 7.0000D-01 * RXRAT( 299 ) ! ADCN+MO2=0.7000D+... & + 8.2500D-01 * RXRAT( 314 ) ! APINP1+ACO3=0.8250D+... & + 5.0000D-01 * RXRAT( 315 ) ! APINP2+ACO3=0.5000D+... & + 4.6000D-01 * RXRAT( 318 ) ! LIMNP1+ACO3=0.4600D+... & + 5.0000D-01 * RXRAT( 319 ) ! LIMNP2+ACO3=0.5000D+... & + RXRAT( 326 ) ! MCP+ACO3=NO2+0.5000D+... & + RXRAT( 335 ) ! OLND+ACO3=NO2+0.5000D+... & + 7.0000D-01 * RXRAT( 336 ) ! ADCN+ACO3=0.7000D+... & + RXRAT( 339 ) ! MO2+NO3=NO2+HCHO+HO2 & + RXRAT( 340 ) ! ETHP+NO3=NO2+HO2+ACD & + RXRAT( 341 ) ! HC3P+NO3=NO2+0.1400D+... & + RXRAT( 342 ) ! HC5P+NO3=NO2+0.5500D-... & + RXRAT( 343 ) ! ETEP+NO3=NO2+HO2+... & + RXRAT( 344 ) ! OLTP+NO3=NO2+0.7900D+... & + RXRAT( 345 ) ! OLIP+NO3=NO2+0.7200D+... & + RXRAT( 346 ) ! BENP+NO3=NO2+HO2+... & + RXRAT( 347 ) ! TOLP+NO3=NO2+0.9146D+... & + RXRAT( 348 ) ! XYLP+NO3=NO2+0.9518D+... & + RXRAT( 349 ) ! EBZP+NO3=NO2+0.9146D+... & + RXRAT( 350 ) ! ISOP+NO3=NO2+HO2+... & + RXRAT( 351 ) ! APIP1+NO3=NO2+HO2+... & + RXRAT( 352 ) ! LIMP1+NO3=NO2+HO2+... & + 1.8250D+00 * RXRAT( 353 ) ! APINP1+NO3=0.1825D+... & + 1.4600D+00 * RXRAT( 354 ) ! LIMNP1+NO3=0.1460D+... & + RXRAT( 355 ) ! ACO3+NO3=NO2+MO2 & + RXRAT( 356 ) ! RCO3+NO3=NO2+ETHP & + RXRAT( 357 ) ! ACTP+NO3=NO2+ACO3+HCHO & + RXRAT( 358 ) ! MEKP+NO3=NO2+0.6700D+... & + RXRAT( 359 ) ! KETP+NO3=NO2+HO2+DCB1 & + RXRAT( 360 ) ! MACP+NO3=NO2+0.5380D+... & + RXRAT( 361 ) ! MCP+NO3=NO2+HO2+HCHO+HKET & + RXRAT( 362 ) ! MVKP+NO3=NO2+0.7000D+... & + RXRAT( 363 ) ! UALP+NO3=NO2+HO2+... & + RXRAT( 364 ) ! BALP+NO3=NO2+BAL1 & + RXRAT( 365 ) ! BAL1+NO3=NO2+BAL2 & + RXRAT( 366 ) ! ADDC+NO3=NO2+HO2+... & + RXRAT( 367 ) ! MCTP+NO3=NO2+MCTO & + RXRAT( 368 ) ! ORAP+NO3=NO2+GLY+HO2 & + RXRAT( 369 ) ! OLNN+NO3=NO2+HO2+ONIT & + 2.0000D+00 * RXRAT( 370 ) ! OLND+NO3=0.2000D+... & + 2.0000D+00 * RXRAT( 371 ) ! ADCN+NO3=0.2000D+... & + 5.0000D-01 * RXRAT( 373 ) ! OLNN+OLND=0.5000D+... & + RXRAT( 374 ) ! OLND+OLND=NO2+0.5040D+... & + RXRAT( 375 ) ! XO2+NO3=NO2 & + 4.8000D-01 * RXRAT( 384 ) ! APINP2+APIP1=0.4800D+... & + 4.8000D-01 * RXRAT( 385 ) ! APINP2+LIMP1=0.4800D+... & + 4.8000D-01 * RXRAT( 386 ) ! APINP2+ISOP=0.4800D+... & + 4.8000D-01 * RXRAT( 387 ) ! LIMNP2+APIP1=0.4800D+... & + 4.8000D-01 * RXRAT( 388 ) ! LIMNP2+LIMP1=0.4800D+... & + 4.8000D-01 * RXRAT( 389 ) ! LIMNP2+ISOP=0.4800D+... & + 6.8000D-01 * RXRAT( 395 ) ! ACRO+NO3=0.6800D+... & + RXRAT( 399 ) ! BDE13P+NO3=NO2+HO2+... & + RXRAT( 410 ) ! FURAN+NO3=NO2+0.8000D+... & + RXRAT( 414 ) ! NO+SESQNRO2=0.2000D+... & + 2.0000D+00 * RXRAT( 415 ) ! SESQNRO2+NO3=0.2000D+... & + RXRAT( 447 ) ! VROCP6ALKP+NO3=NO2+... & + RXRAT( 448 ) ! VROCP5ALKP+NO3=NO2+... & + RXRAT( 449 ) ! VROCP4ALKP+NO3=NO2+... & + RXRAT( 450 ) ! VROCP3ALKP+NO3=NO2+... & + RXRAT( 451 ) ! VROCP2ALKP+NO3=NO2+... & + RXRAT( 452 ) ! VROCP1ALKP+NO3=NO2+... & + RXRAT( 453 ) ! HC10P+NO3=NO2+HC10P2 & + RXRAT( 475 ) ! VROCP6ALKP2+NO3=NO2+... & + RXRAT( 476 ) ! VROCP5ALKP2+NO3=NO2+... & + RXRAT( 477 ) ! VROCP4ALKP2+NO3=NO2+... & + RXRAT( 478 ) ! VROCP3ALKP2+NO3=NO2+... & + RXRAT( 479 ) ! VROCP2ALKP2+NO3=NO2+... & + RXRAT( 480 ) ! VROCP1ALKP2+NO3=NO2+... & + RXRAT( 481 ) ! HC10P2+NO3=NO2+KET+HO2 & + RXRAT( 492 ) ! VROCP6AROP+NO3=NO2+... & + RXRAT( 498 ) ! VROCP5AROP+NO3=NO2+... & + RXRAT( 504 ) ! NAPHP+NO3=NO2+0.9405D+... & + RXRAT( 529 ) ! STYP+NO3=NO2+HO2+HCHO+... P2 = YC0( NO2 ) + P2 * DTC L2 = RKI( 44 ) * YC ( O3 ) ! NO2+O3=NO3 & + RKI( 62 ) * YC ( O3P ) ! NO2+O3P=NO3 & + RKI( 63 ) * YC ( HO ) ! NO2+HO=HNO3 & + RKI( 70 ) * YC ( NO3 ) ! NO2+NO3=N2O5 & + RKI( 73 ) * YC ( HO2 ) ! NO2+HO2=HNO4 & + RKI( 177 ) * YC ( ACO3 ) ! NO2+ACO3=PAN & + RKI( 179 ) * YC ( RCO3 ) ! NO2+RCO3=PPN & + RKI( 181 ) * YC ( MACP ) ! NO2+MACP=MPAN & + RKI( 222 ) * YC ( BAL2 ) ! NO2+BAL2=ONIT & + RKI( 223 ) * YC ( CHO ) ! NO2+CHO=ONIT & + RKI( 224 ) * YC ( MCTO ) ! NO2+MCTO=ONIT & + RKI( 424 ) ! NO2=0.5000D+... L2 = 1.0D0 + L2 * DTC cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c O3 Section c P3 = production of O3 except O+O2=O3 c L3 = loss terms for O3 except NO+O3=NO2 cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc P3 = YC0( O3 ) L3 = RKI( 1 ) ! O3=O3P & + RKI( 2 ) ! O3=O1D & + RKI( 41 ) * YC ( HO ) ! O3+HO=HO2 & + RKI( 42 ) * YC ( HO2 ) ! O3+HO2=HO & + RKI( 44 ) * YC ( NO2 ) ! O3+NO2=NO3 & + RKI( 46 ) * YC ( O3P ) ! O3+O3P= & + RKI( 90 ) * YC ( ISO ) ! O3+ISO=0.2500D+... & + RKI( 144 ) * YC ( ETE ) ! O3+ETE=0.8000D-... & + RKI( 145 ) * YC ( OLT ) ! O3+OLT=0.2200D+... & + RKI( 146 ) * YC ( OLI ) ! O3+OLI=0.4600D+... & + RKI( 147 ) * YC ( API ) ! O3+API=0.6055D+... & + RKI( 148 ) * YC ( LIM ) ! O3+LIM=0.6600D+... & + RKI( 149 ) * YC ( LIMAL ) ! O3+LIMAL=0.9000D-... & + RKI( 150 ) * YC ( TRPN ) ! O3+TRPN=0.3300D+... & + RKI( 151 ) * YC ( MACR ) ! O3+MACR=0.1900D+... & + RKI( 152 ) * YC ( MVK ) ! O3+MVK=0.1600D+... & + RKI( 153 ) * YC ( UALD ) ! O3+UALD=0.1000D+... & + RKI( 154 ) * YC ( DCB1 ) ! O3+DCB1=0.5000D-... & + RKI( 155 ) * YC ( DCB2 ) ! O3+DCB2=0.5000D-... & + RKI( 156 ) * YC ( DCB3 ) ! O3+DCB3=0.5000D-... & + RKI( 157 ) * YC ( MCTO ) ! O3+MCTO=MCTP & + RKI( 394 ) * YC ( ACRO ) ! O3+ACRO=0.8400D+... & + RKI( 403 ) * YC ( BDE13 ) ! O3+BDE13=0.6200D+... & + RKI( 409 ) * YC ( FURAN ) ! O3+FURAN=0.2000D-... & + RKI( 416 ) * YC ( SESQ ) ! O3+SESQ=0.9820D+... & + RKI( 427 ) ! O3= L3 = 1.0D0 + L3 * DTC cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c O3P Section c P12 = production of O3P except NO2+hv=O3P (J1) c L12 = loss terms cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc P12 = RXRAT( 1 ) ! O3=O3P & + O3P_S * RXRAT( 2 ) ! O3=O1D & + RXRAT( 6 ) ! NO3=O3P+NO2 P12 = YC0( O3P ) + P12 * DTC L12 = RKI( 45 ) ! O3P=O3 & + RKI( 46 ) * YC ( O3 ) ! O3P+O3= & + RKI( 55 ) * YC ( NO ) ! O3P+NO=NO2 & + RKI( 61 ) * YC ( NO2 ) ! O3P+NO2=NO & + RKI( 62 ) * YC ( NO2 ) ! O3P+NO2=NO3 L12 = 1.0D0 + L12 * DTC ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Solution section ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c..compute reciprocal of loss terms L1_INV = 1.0D0 / L1 L2_INV = 1.0D0 / L2 L3_INV = 1.0D0 / L3 L12_INV = 1.0D0 / L12 c..compute specific k*delta t terms RK1 = RKI( 4 ) * DTC ! J1 (NO2+hv=NO+O3P) RK2 = RKI( 45 ) * DTC ! J2 (O3P+O2=O3) RK3 = RKI( 43 ) * DTC ! k1_3 (NO+O3=NO2) c..compute terms that are used to calulate a,b & c T1 = RK1 * L2_INV ! J1 / ( 1.0 + Lno2 * dt ) T2 = R1_2 * L2_INV ! r1,2 / ( 1.0 + Lno2 * dt) T3 = R2_1 * L1_INV ! r2,1 / ( 1.0 + Lno * dt) T4 = RK2 * L12_INV ! J2 / ( 1.0 + Lo3p * dt ) T5 = T3 * P1 - T2 * P2 ! T3 * Pno - T2 * Pno2 F1 = 1.0D0 + T2 + T3 ! factor in calculating a & b F2 = T1 * T4 ! factor in calculating a & b F3 = L3 * L1 + RK3 * P1 ! (1 + Lo3 * dt) (1 + lno * dt ) ! + k1,3 * dt * Pno PO3 = P3 + P12 * T4 A = RK3 * ( F1 - F2 ) B = F1 * F3 + RK3 * ( F2 * ( P2 - P1 ) + PO3 + T5 ) C = RK3 * P1 * ( PO3 + P2 * F2 ) + F3 * T5 Q = -0.5D0 * ( B + SIGN( 1.0D0, B ) * SQRT( B * B - 4.0D0 * A * C ) ) XX = MAX( Q / A , C / Q ) ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Species solutions c [NO] = ( P1 + x ) / ( 1 + L1 ) c [NO2] = ( P2 - x ) / ( 1 + L2 ) c [O3 ] = ( P3 + Ko3p->O3 ) / (1 + K1,3 * [NO] + L3 ) c [O3P] = ( P12 + J1 * [NO2] ) / ( 1 + L12 ) c [O1D] = ( yc0(o1d) + Ko3->o1d * [O3] *dtc) / ( 1 + O1D_S*dtc ) ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc YCP( NO ) = MAX( 0.0D0, ( P1 + XX ) * L1_INV ) YCP( NO2 ) = MAX( 0.0D0, ( P2 - XX ) * L2_INV ) S1 = P12 + RK1 * YCP( NO2 ) S2 = T4 * S1 YCP( O3 ) = ( P3 + S2 ) / ( L3 + RK3 * YCP( NO ) ) YCP( O3P ) = S1 * L12_INV YCP( O1D ) = ( YC0( O1D ) + RKI( 2 ) * YCP( O3 ) * DTC ) & / ( 1.0D0 + O1D_S * DTC ) RETURN END ================================================ FILE: CCTM/src/gas/ebi_cracmm2/hrg2.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE HRG2( DTC ) C********************************************************************** C C FUNCTION: To solve for the concentration of HO, HO2, HONO, and C HNO4 alebraically. C C PRECONDITIONS: For the CRACMM2 mechanism C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by EBI solver program, Mar 15, 2024 C C 18 Jul 14 B.Hutzell: revised to use real(8) variables C********************************************************************** USE HRDATA IMPLICIT NONE C..INCLUDES: None C..ARGUMENTS: REAL( 8 ), INTENT( IN ) :: DTC ! Time step C..PARAMETERS: None C..EXTERNAL FUNCTIONS: NONE C..SAVED LOCAL VARIABLES: ! CHARACTER( 16 ), SAVE :: PNAME = 'HRG2' ! Program name C..SCRATCH LOCAL VARIABLES: REAL( 8 ) :: O1D_S ! sum of O1D loss frequencies REAL( 8 ) :: OH_S ! stoich coeff for OH from O1D+H2O or H2 REAL( 8 ) :: HO2_S ! stoich coeff for HO2 from O1D+H2 rxn REAL( 8 ) :: XOH_S ! stoich coeff for OH & HONO from NO2EX loss rxn REAL( 8 ) :: R4_19 ! production of OH from HONO REAL( 8 ) :: R19_4 ! production of HONO from OH REAL( 8 ) :: R4_5 ! production of OH from HO2 REAL( 8 ) :: R5_4 ! production of HO2 from OH REAL( 8 ) :: R5_21 ! production of HO2 from HNO4 REAL( 8 ) :: R21_5 ! production of HNO4 from HO2 REAL( 8 ) :: P4, P5, P19, P21 ! species production form other paths REAL( 8 ) :: L4, L5, L19, L21 ! species loss terms REAL( 8 ) :: A, B, C ! coeffs of quadratic eq. for HO2 REAL( 8 ) :: Q ! intermediate term REAL( 8 ) :: T1, T2, T3 ! intermediate terms REAL( 8 ) :: L21_INV ! reciprocal of HNO4 loss term C********************************************************************** c..stoichiometric coefficient for production of HOX from O3 via O1D O1D_S = RKI( 47 ) ! O1D=O3P & + RKI( 48 ) ! O1D=O3P & + RKI( 49 ) ! O1D=0.2000D+01*HO OH_S = 2.0000D+00 * RKI( 49 ) ! O1D=0.2000D+01*HO OH_S = OH_S / O1D_S c..Production of HO from HO2 (r4,5 terms ) R4_5 = RKI( 42 ) * YC ( O3 ) ! HO2+O3=HO & + RKI( 57 ) * YC ( NO ) ! HO2+NO=HO+NO2 & + 7.0000D-01 * RKI( 66 ) * YC ( NO3 ) ! HO2+NO3=0.7000D+... & + 5.0000D-01 * RKI( 93 ) * YC ( ISOP ) ! HO2+ISOP=0.5000D+... & + 4.5000D-01 * RKI( 97 ) * YC ( INO2 ) ! HO2+INO2=0.4500D+... & + 2.3800D-01 * RKI( 236 ) * YC ( APIP1 ) ! HO2+APIP1=... & + 6.1950D-01 * RKI( 238 ) * YC ( APINP1 ) ! HO2+APINP1=... & + 1.0000D-01 * RKI( 240 ) * YC ( LIMP1 ) ! HO2+LIMP1=... & + 5.0000D-01 * RKI( 242 ) * YC ( LIMNP1 ) ! HO2+LIMNP1=... & + 2.5000D-01 * RKI( 244 ) * YC ( PINALP ) ! HO2+PINALP=... & + 1.0000D-01 * RKI( 245 ) * YC ( LIMALP ) ! HO2+LIMALP=... & + 4.4000D-01 * RKI( 246 ) * YC ( ACO3 ) ! HO2+ACO3=0.4400D+... & + 4.4000D-01 * RKI( 247 ) * YC ( RCO3 ) ! HO2+RCO3=0.4400D+... & + 1.5000D-01 * RKI( 248 ) * YC ( ACTP ) ! HO2+ACTP=0.1500D+... & + 4.0000D-01 * RKI( 407 ) * YC ( FURANO2 ) ! HO2+FURANO2=... R4_5 = R4_5 * DTC c..Production of HO from HONO (r4,19 terms ) R4_19 = RKI( 7 ) ! HONO=HO+NO R4_19 = R4_19 * DTC c..Remaining HO production P4 = 2.0000D+00 * RXRAT( 3 ) ! H2O2=0.2000D+01*HO & + RXRAT( 8 ) ! HNO3=HO+NO2 & + 2.0000D-01 * RXRAT( 9 ) ! HNO4=0.2000D+00*HO+0.8000D+... & + 3.4000D-01 * RXRAT( 22 ) ! MACR=0.3400D+00*HO+0.6600D+... & + RXRAT( 31 ) ! OP1=HO+HO2+HCHO & + RXRAT( 32 ) ! OP2=HO+HO2+ALD & + RXRAT( 33 ) ! OPB=HO+HO2+ALD & + RXRAT( 34 ) ! OP3=HO+HO2+ALD & + RXRAT( 35 ) ! PAA=HO+MO2 & + OH_S * RXRAT( 2 ) ! O1D=0.2000D+01*HO & + 2.5000D-01 * RXRAT( 90 ) ! ISO+O3=0.2500D+00*HO+... & + RXRAT( 96 ) ! ISHP+HO=0.2000D+01*HO+... & + 8.0000D-02 * RXRAT( 144 ) ! ETE+O3=0.8000D-01*HO+... & + 2.2000D-01 * RXRAT( 145 ) ! OLT+O3=0.2200D+00*HO+... & + 4.6000D-01 * RXRAT( 146 ) ! OLI+O3=0.4600D+00*HO+... & + 6.0550D-01 * RXRAT( 147 ) ! API+O3=0.6055D+00*HO+... & + 6.6000D-01 * RXRAT( 148 ) ! LIM+O3=0.6600D+00*HO+... & + 9.0000D-02 * RXRAT( 149 ) ! LIMAL+O3=0.9000D-01*HO+ALD+... & + 1.9000D-01 * RXRAT( 151 ) ! MACR+O3=0.1900D+00*HO+... & + 1.6000D-01 * RXRAT( 152 ) ! MVK+O3=0.1600D+00*HO+... & + 1.0000D-01 * RXRAT( 153 ) ! UALD+O3=0.1000D+00*HO+... & + 5.0000D-02 * RXRAT( 154 ) ! DCB1+O3=0.5000D-01*HO+HO2+... & + 5.0000D-02 * RXRAT( 155 ) ! DCB2+O3=0.5000D-01*HO+HO2+... & + 5.0000D-02 * RXRAT( 156 ) ! DCB3+O3=0.5000D-01*HO+HO2+... & + 8.2000D-01 * RXRAT( 195 ) ! APIP2+NO=0.8200D+00*HO+... & + 8.2000D-01 * RXRAT( 197 ) ! APINP2+NO=0.8200D+00*HO+... & + 7.7000D-01 * RXRAT( 199 ) ! LIMP2+NO=0.7700D+00*HO+... & + 7.7000D-01 * RXRAT( 201 ) ! LIMNP2+NO=0.7700D+00*HO+... & + 5.0000D-01 * RXRAT( 313 ) ! APIP2+ACO3=0.5000D+00*HO+... & + 5.0000D-01 * RXRAT( 317 ) ! LIMP2+ACO3=0.5000D+00*HO+... & + 4.8000D-01 * RXRAT( 378 ) ! APIP2+APIP1=0.4800D+00*HO+... & + 4.8000D-01 * RXRAT( 379 ) ! APIP2+LIMP1=0.4800D+00*HO+... & + 4.8000D-01 * RXRAT( 380 ) ! APIP2+ISOP=0.4800D+00*HO+... & + 4.8000D-01 * RXRAT( 381 ) ! LIMP2+APIP1=0.4800D+00*HO+... & + 4.8000D-01 * RXRAT( 382 ) ! LIMP2+LIMP1=0.4800D+00*HO+... & + 4.8000D-01 * RXRAT( 383 ) ! LIMP2+ISOP=0.4800D+00*HO+... & + 2.8000D-01 * RXRAT( 394 ) ! ACRO+O3=0.2800D+00*HO+... & + 2.0400D-01 * RXRAT( 396 ) ! ACRO=0.2040D+00*HO+0.4770D+... & + 8.0000D-02 * RXRAT( 403 ) ! BDE13+O3=0.8000D-01*HO+... & + 2.0000D-02 * RXRAT( 409 ) ! FURAN+O3=0.2000D-01*HO+ALD P4 = YC0( HO ) + P4 * DTC c..Production of HO2 from OH ( r5,4 terms ) R5_4 = RKI( 41 ) * YC ( O3 ) ! HO+O3=HO2 & + RKI( 50 ) ! HO=HO2 & + RKI( 54 ) * YC ( H2O2 ) ! HO+H2O2=HO2 & + RKI( 65 ) * YC ( NO3 ) ! HO+NO3=HO2+NO2 & + RKI( 76 ) * YC ( SO2 ) ! HO+SO2=HO2+SULF+... & + RKI( 77 ) * YC ( CO ) ! HO+CO=HO2 & + 3.5000D-01 * RKI( 85 ) * YC ( ACE ) ! HO+ACE=0.3500D+... & + 5.3000D-01 * RKI( 86 ) * YC ( BEN ) ! HO+BEN=0.5300D+... & + 1.8000D-01 * RKI( 87 ) * YC ( TOL ) ! HO+TOL=0.1800D+... & + 1.7000D-01 * RKI( 88 ) * YC ( XYL ) ! HO+XYL=0.1700D+... & + 1.8000D-01 * RKI( 89 ) * YC ( EBZ ) ! HO+EBZ=0.1800D+... & + 3.0000D-01 * RKI( 100 ) * YC ( INALD ) ! HO+INALD=0.3000D+... & + RKI( 107 ) * YC ( HCHO ) ! HO+HCHO=HO2+CO & + RKI( 113 ) * YC ( HKET ) ! HO+HKET=HO2+MGLY & + RKI( 117 ) * YC ( GLY ) ! HO+GLY=HO2+... & + 5.2000D-01 * RKI( 119 ) * YC ( DCB1 ) ! HO+DCB1=0.5200D+... & + 5.2000D-01 * RKI( 120 ) * YC ( DCB2 ) ! HO+DCB2=0.5200D+... & + 5.6000D-01 * RKI( 121 ) * YC ( DCB3 ) ! HO+DCB3=0.5600D+... & + 6.1900D-01 * RKI( 123 ) * YC ( PHEN ) ! HO+PHEN=0.6190D+... & + 5.8400D-01 * RKI( 124 ) * YC ( CSL ) ! HO+CSL=0.5840D+... & + RKI( 126 ) * YC ( MOH ) ! HO+MOH=HO2+HCHO & + RKI( 127 ) * YC ( EOH ) ! HO+EOH=HO2+ACD & + RKI( 128 ) * YC ( ROH ) ! HO+ROH=HO2+... & + RKI( 129 ) * YC ( ETEG ) ! HO+ETEG=HO2+ALD & + RKI( 135 ) * YC ( ORA1 ) ! HO+ORA1=HO2 & + 3.3300D-01 * RKI( 397 ) * YC ( BDE13 ) ! HO+BDE13=0.3330D+... & + 4.9000D-01 * RKI( 405 ) * YC ( FURAN ) ! HO+FURAN=0.4900D+... & + 6.6000D-01 * RKI( 408 ) * YC ( FURANONE ) ! HO+FURANONE=... & + RKI( 411 ) * YC ( PROG ) ! HO+PROG=HO2+... & + 1.6000D-01 * RKI( 489 ) * YC ( VROCP6ARO ) ! HO+VROCP6ARO=... & + 1.6000D-01 * RKI( 495 ) * YC ( VROCP5ARO ) ! HO+VROCP5ARO=... & + 1.6000D-01 * RKI( 501 ) * YC ( NAPH ) ! HO+NAPH=0.1600D+... R5_4 = R5_4 * DTC c..Production of HO2 from HNO4 (r5,21 term ) R5_21 = 8.0000D-01 * RKI( 9 ) ! HNO4=0.8000D+... & + RKI( 74 ) ! HNO4=HO2+NO2 R5_21 = R5_21 * DTC c..Remaining HO2 production terms P5 = 2.0000D+00 * RXRAT( 11 ) ! HCHO=0.2000D+01*HO2+CO & + RXRAT( 12 ) ! ACD=HO2+MO2+CO & + RXRAT( 13 ) ! ALD=HO2+ETHP+CO & + 1.2200D+00 * RXRAT( 16 ) ! UALD=0.1220D+01*HO2+... & + RXRAT( 17 ) ! PINAL=HO2+HC10P+CO & + RXRAT( 18 ) ! LIMAL=HO2+HC10P+CO & + RXRAT( 21 ) ! HKET=HO2+ACO3+HCHO & + 6.6000D-01 * RXRAT( 22 ) ! MACR=0.6600D+00*HO2+... & + 2.0000D+00 * RXRAT( 26 ) ! GLY=0.2000D+01*HO2+0.2000D+... & + RXRAT( 27 ) ! MGLY=HO2+ACO3+CO & + 1.5000D+00 * RXRAT( 28 ) ! DCB1=0.1500D+01*HO2+... & + 1.5000D+00 * RXRAT( 29 ) ! DCB2=0.1500D+01*HO2+... & + RXRAT( 30 ) ! BALD=HO2+CHO+CO & + RXRAT( 31 ) ! OP1=HO2+HO+HCHO & + RXRAT( 32 ) ! OP2=HO2+HO+ALD & + RXRAT( 33 ) ! OPB=HO2+HO+ALD & + RXRAT( 34 ) ! OP3=HO2+HO+ALD & + RXRAT( 36 ) ! ONIT=HO2+NO2+0.2000D+... & + 2.5000D-01 * RXRAT( 90 ) ! ISO+O3=0.2500D+00*HO2+... & + 8.8000D-01 * RXRAT( 94 ) ! ISOP+NO=0.8800D+00*HO2+... & + 3.4000D-01 * RXRAT( 96 ) ! ISHP+HO=0.3400D+00*HO2+... & + 1.5000D-01 * RXRAT( 144 ) ! ETE+O3=0.1500D+00*HO2+... & + 3.2000D-01 * RXRAT( 145 ) ! OLT+O3=0.3200D+00*HO2+... & + 7.0000D-02 * RXRAT( 146 ) ! OLI+O3=0.7000D-01*HO2+... & + 1.1050D-01 * RXRAT( 147 ) ! API+O3=0.1105D+00*HO2+... & + 1.4000D-01 * RXRAT( 151 ) ! MACR+O3=0.1400D+00*HO2+... & + 1.1000D-01 * RXRAT( 152 ) ! MVK+O3=0.1100D+00*HO2+... & + 7.2000D-02 * RXRAT( 153 ) ! UALD+O3=0.7200D-01*HO2+... & + RXRAT( 154 ) ! DCB1+O3=HO2+0.5000D-01*HO+... & + RXRAT( 155 ) ! DCB2+O3=HO2+0.5000D-01*HO+... & + RXRAT( 156 ) ! DCB3+O3=HO2+0.5000D-01*HO+... & + RXRAT( 164 ) ! HCHO+NO3=HO2+CO+HNO3 & + RXRAT( 168 ) ! UALD+NO3=HO2+XO2+0.6680D+... & + RXRAT( 169 ) ! GLY+NO3=HO2+0.2000D+01*CO+HNO3 & + RXRAT( 183 ) ! MO2+NO=HO2+NO2+HCHO & + RXRAT( 184 ) ! ETHP+NO=HO2+NO2+ACD & + 6.6000D-01 * RXRAT( 185 ) ! HC3P+NO=0.6600D+00*HO2+... & + 2.0000D-01 * RXRAT( 186 ) ! HC5P+NO=0.2000D+00*HO2+... & + RXRAT( 187 ) ! ETEP+NO=HO2+NO2+0.1600D+... & + 7.8000D-01 * RXRAT( 188 ) ! OLTP+NO=0.7800D+00*HO2+... & + 8.3000D-01 * RXRAT( 189 ) ! OLIP+NO=0.8300D+00*HO2+... & + 9.9800D-01 * RXRAT( 190 ) ! BENP+NO=0.9980D+00*HO2+... & + 9.9800D-01 * RXRAT( 191 ) ! TOLP+NO=0.9980D+00*HO2+... & + 9.9800D-01 * RXRAT( 192 ) ! XYLP+NO=0.9980D+00*HO2+... & + 9.9800D-01 * RXRAT( 193 ) ! EBZP+NO=0.9980D+00*HO2+... & + 7.6300D-01 * RXRAT( 194 ) ! APIP1+NO=0.7630D+00*HO2+... & + 1.6450D-01 * RXRAT( 196 ) ! APINP1+NO=0.1645D+00*HO2+... & + 7.7000D-01 * RXRAT( 198 ) ! LIMP1+NO=0.7700D+00*HO2+... & + 5.0000D-01 * RXRAT( 200 ) ! LIMNP1+NO=0.5000D+00*HO2+... & + 3.6000D-01 * RXRAT( 203 ) ! LIMALP+NO=0.3600D+00*HO2+... & + 6.7000D-01 * RXRAT( 207 ) ! MEKP+NO=0.6700D+00*HO2+NO2+... & + 7.7000D-01 * RXRAT( 208 ) ! KETP+NO=0.7700D+00*HO2+... & + 5.0000D-01 * RXRAT( 210 ) ! MCP+NO=0.5000D+00*HO2+NO2+... & + 3.0000D-01 * RXRAT( 211 ) ! MVKP+NO=0.3000D+00*HO2+... & + RXRAT( 212 ) ! UALP+NO=HO2+NO2+0.6100D+... & + RXRAT( 215 ) ! ADDC+NO=HO2+NO2+0.3200D+... & + RXRAT( 217 ) ! ORAP+NO=HO2+GLY+NO2 & + RXRAT( 218 ) ! OLNN+NO=HO2+NO2+ONIT & + 7.4000D-01 * RXRAT( 263 ) ! MO2+MO2=0.7400D+00*HO2+... & + RXRAT( 264 ) ! ETHP+MO2=HO2+0.7500D+... & + 8.9400D-01 * RXRAT( 265 ) ! HC3P+MO2=0.8940D+00*HO2+... & + 8.4200D-01 * RXRAT( 266 ) ! HC5P+MO2=0.8420D+00*HO2+... & + RXRAT( 267 ) ! ETEP+MO2=HO2+0.1950D+... & + RXRAT( 268 ) ! OLTP+MO2=HO2+0.1500D+... & + RXRAT( 269 ) ! OLIP+MO2=HO2+0.7500D+... & + 1.3700D+00 * RXRAT( 270 ) ! BENP+MO2=0.1370D+01*HO2+... & + 1.2846D+00 * RXRAT( 271 ) ! TOLP+MO2=0.1285D+01*HO2+... & + 1.3218D+00 * RXRAT( 272 ) ! XYLP+MO2=0.1322D+01*HO2+... & + 1.2846D+00 * RXRAT( 273 ) ! EBZP+MO2=0.1285D+01*HO2+... & + RXRAT( 274 ) ! ISOP+MO2=HO2+0.1310D+... & + 1.2790D+00 * RXRAT( 275 ) ! APIP1+MO2=0.1279D+01*HO2+... & + RXRAT( 276 ) ! APIP2+MO2=HO2+0.7500D+... & + 9.1800D-01 * RXRAT( 277 ) ! APINP1+MO2=0.9180D+00*HO2+... & + 7.5000D-01 * RXRAT( 278 ) ! APINP2+MO2=0.7500D+00*HO2+... & + RXRAT( 279 ) ! LIMP1+MO2=HO2+LIMAL+... & + RXRAT( 280 ) ! LIMP2+MO2=HO2+0.7500D+... & + 1.0100D+00 * RXRAT( 281 ) ! LIMNP1+MO2=0.1010D+01*HO2+... & + 7.5000D-01 * RXRAT( 282 ) ! LIMNP2+MO2=0.7500D+00*HO2+... & + 9.0000D-01 * RXRAT( 283 ) ! ACO3+MO2=0.9000D+00*HO2+... & + 9.0000D-01 * RXRAT( 284 ) ! RCO3+MO2=0.9000D+00*HO2+... & + 5.0000D-01 * RXRAT( 285 ) ! ACTP+MO2=0.5000D+00*HO2+... & + 8.3400D-01 * RXRAT( 286 ) ! MEKP+MO2=0.8340D+00*HO2+... & + RXRAT( 287 ) ! KETP+MO2=HO2+0.7500D+... & + 5.0000D-01 * RXRAT( 288 ) ! MACP+MO2=0.5000D+00*HO2+... & + RXRAT( 289 ) ! MCP+MO2=HO2+NO2+0.1500D+... & + RXRAT( 290 ) ! MVKP+MO2=HO2+0.1160D+... & + RXRAT( 291 ) ! UALP+MO2=HO2+0.3050D+00*CO+... & + RXRAT( 292 ) ! BALP+MO2=HO2+BAL1+HCHO & + RXRAT( 293 ) ! BAL1+MO2=HO2+BAL2+HCHO & + 2.0000D+00 * RXRAT( 294 ) ! ADDC+MO2=0.2000D+01*HO2+... & + RXRAT( 295 ) ! MCTP+MO2=HO2+MCTO+HCHO & + RXRAT( 296 ) ! ORAP+MO2=HO2+HCHO+GLY & + 2.0000D+00 * RXRAT( 297 ) ! OLNN+MO2=0.2000D+01*HO2+... & + 5.0000D-01 * RXRAT( 298 ) ! OLND+MO2=0.5000D+00*HO2+... & + RXRAT( 299 ) ! ADCN+MO2=HO2+0.7000D+... & + RXRAT( 300 ) ! XO2+MO2=HO2+HCHO & + 5.0000D-01 * RXRAT( 301 ) ! ETHP+ACO3=0.5000D+00*HO2+... & + 3.9400D-01 * RXRAT( 302 ) ! HC3P+ACO3=0.3940D+00*HO2+... & + 3.4200D-01 * RXRAT( 303 ) ! HC5P+ACO3=0.3420D+00*HO2+... & + 5.0000D-01 * RXRAT( 304 ) ! ETEP+ACO3=0.5000D+00*HO2+... & + 5.0000D-01 * RXRAT( 305 ) ! OLTP+ACO3=0.5000D+00*HO2+... & + 5.0000D-01 * RXRAT( 306 ) ! OLIP+ACO3=0.5000D+00*HO2+... & + RXRAT( 307 ) ! BENP+ACO3=HO2+0.7000D+... & + 9.1460D-01 * RXRAT( 308 ) ! TOLP+ACO3=0.9146D+00*HO2+... & + 9.5180D-01 * RXRAT( 309 ) ! XYLP+ACO3=0.9518D+00*HO2+... & + 9.1460D-01 * RXRAT( 310 ) ! EBZP+ACO3=0.9146D+00*HO2+... & + 5.0000D-01 * RXRAT( 311 ) ! ISOP+ACO3=0.5000D+00*HO2+... & + RXRAT( 312 ) ! APIP1+ACO3=HO2+0.3710D+... & + 1.7500D-01 * RXRAT( 314 ) ! APINP1+ACO3=0.1750D+00*HO2+... & + RXRAT( 316 ) ! LIMP1+ACO3=HO2+0.5600D+... & + 5.4000D-01 * RXRAT( 318 ) ! LIMNP1+ACO3=0.5400D+00*HO2+... & + 3.3000D-01 * RXRAT( 323 ) ! MEKP+ACO3=0.3300D+00*HO2+... & + 5.0000D-01 * RXRAT( 324 ) ! KETP+ACO3=0.5000D+00*HO2+... & + 5.0000D-01 * RXRAT( 326 ) ! MCP+ACO3=0.5000D+00*HO2+... & + 5.0000D-01 * RXRAT( 327 ) ! MVKP+ACO3=0.5000D+00*HO2+... & + 5.0000D-01 * RXRAT( 328 ) ! UALP+ACO3=0.5000D+00*HO2+... & + 2.0000D+00 * RXRAT( 331 ) ! ADDC+ACO3=0.2000D+01*HO2+... & + RXRAT( 332 ) ! MCTP+ACO3=HO2+MO2+MCTO & + RXRAT( 334 ) ! OLNN+ACO3=HO2+MO2+ONIT & + RXRAT( 336 ) ! ADCN+ACO3=HO2+MO2+0.7000D+... & + RXRAT( 339 ) ! MO2+NO3=HO2+HCHO+NO2 & + RXRAT( 340 ) ! ETHP+NO3=HO2+NO2+ACD & + 2.5400D-01 * RXRAT( 341 ) ! HC3P+NO3=0.2540D+00*HO2+... & + 4.8800D-01 * RXRAT( 342 ) ! HC5P+NO3=0.4880D+00*HO2+... & + RXRAT( 343 ) ! ETEP+NO3=HO2+NO2+0.1600D+... & + 7.9000D-01 * RXRAT( 344 ) ! OLTP+NO3=0.7900D+00*HO2+... & + 8.6000D-01 * RXRAT( 345 ) ! OLIP+NO3=0.8600D+00*HO2+... & + RXRAT( 346 ) ! BENP+NO3=HO2+NO2+0.0000D+... & + 9.1460D-01 * RXRAT( 347 ) ! TOLP+NO3=0.9146D+00*HO2+... & + 9.5180D-01 * RXRAT( 348 ) ! XYLP+NO3=0.9518D+00*HO2+... & + 9.1460D-01 * RXRAT( 349 ) ! EBZP+NO3=0.9146D+00*HO2+... & + RXRAT( 350 ) ! ISOP+NO3=HO2+NO2+0.7500D+... & + RXRAT( 351 ) ! APIP1+NO3=HO2+NO2+0.2535D+... & + RXRAT( 352 ) ! LIMP1+NO3=HO2+NO2+LIMAL+... & + 1.7500D-01 * RXRAT( 353 ) ! APINP1+NO3=0.1750D+00*HO2+... & + 5.4000D-01 * RXRAT( 354 ) ! LIMNP1+NO3=0.5400D+00*HO2+... & + 6.7000D-01 * RXRAT( 358 ) ! MEKP+NO3=0.6700D+00*HO2+... & + RXRAT( 359 ) ! KETP+NO3=HO2+NO2+DCB1 & + RXRAT( 361 ) ! MCP+NO3=HO2+NO2+HCHO+HKET & + 3.0000D-01 * RXRAT( 362 ) ! MVKP+NO3=0.3000D+00*HO2+... & + RXRAT( 363 ) ! UALP+NO3=HO2+NO2+0.6100D+... & + RXRAT( 366 ) ! ADDC+NO3=HO2+NO2+0.3200D+... & + RXRAT( 368 ) ! ORAP+NO3=HO2+GLY+NO2 & + RXRAT( 369 ) ! OLNN+NO3=HO2+NO2+ONIT & + RXRAT( 372 ) ! OLNN+OLNN=HO2+0.2000D+01*ONIT & + 5.0000D-01 * RXRAT( 373 ) ! OLNN+OLND=0.5000D+00*HO2+... & + 4.8000D-01 * RXRAT( 378 ) ! APIP2+APIP1=0.4800D+00*HO2+... & + 4.8000D-01 * RXRAT( 379 ) ! APIP2+LIMP1=0.4800D+00*HO2+... & + 4.8000D-01 * RXRAT( 380 ) ! APIP2+ISOP=0.4800D+00*HO2+... & + 4.8000D-01 * RXRAT( 381 ) ! LIMP2+APIP1=0.4800D+00*HO2+... & + 4.8000D-01 * RXRAT( 382 ) ! LIMP2+LIMP1=0.4800D+00*HO2+... & + 4.8000D-01 * RXRAT( 383 ) ! LIMP2+ISOP=0.4800D+00*HO2+... & + 4.8000D-01 * RXRAT( 384 ) ! APINP2+APIP1=0.4800D+... & + 4.8000D-01 * RXRAT( 385 ) ! APINP2+LIMP1=0.4800D+... & + 4.8000D-01 * RXRAT( 386 ) ! APINP2+ISOP=0.4800D+00*HO2+... & + 4.8000D-01 * RXRAT( 387 ) ! LIMNP2+APIP1=0.4800D+... & + 4.8000D-01 * RXRAT( 388 ) ! LIMNP2+LIMP1=0.4800D+... & + 4.8000D-01 * RXRAT( 389 ) ! LIMNP2+ISOP=0.4800D+00*HO2+... & + 5.6000D-01 * RXRAT( 394 ) ! ACRO+O3=0.5600D+00*HO2+... & + 4.7700D-01 * RXRAT( 396 ) ! ACRO=0.4770D+00*HO2+... & + 9.6800D-01 * RXRAT( 398 ) ! BDE13P+NO=0.9680D+00*HO2+... & + RXRAT( 399 ) ! BDE13P+NO3=HO2+NO2+0.9250D+... & + 8.7000D-01 * RXRAT( 401 ) ! BDE13P+MO2=0.8700D+00*HO2+... & + 8.0000D-01 * RXRAT( 402 ) ! BDE13P+ACO3=0.8000D+00*HO2+... & + 4.2000D-01 * RXRAT( 403 ) ! BDE13+O3=0.4200D+00*HO2+... & + 7.5000D-01 * RXRAT( 406 ) ! FURANO2+NO=0.7500D+00*HO2+... & + RXRAT( 461 ) ! VROCP6ALKP2=HO2+VROCP3OXY2 & + RXRAT( 462 ) ! VROCP5ALKP2=HO2+VROCP2OXY2 & + RXRAT( 463 ) ! VROCP4ALKP2=HO2+VROCP1OXY1 & + RXRAT( 464 ) ! VROCP3ALKP2=HO2+VROCP0OXY2 & + RXRAT( 465 ) ! VROCP2ALKP2=HO2+VROCN1OXY1 & + RXRAT( 466 ) ! VROCP1ALKP2=HO2+VROCN2OXY2 & + RXRAT( 467 ) ! HC10P2=HO2+VROCP4OXY2 & + 8.6000D-01 * RXRAT( 468 ) ! VROCP6ALKP2+NO=0.8600D+... & + 8.6000D-01 * RXRAT( 469 ) ! VROCP5ALKP2+NO=0.8600D+... & + 8.6000D-01 * RXRAT( 470 ) ! VROCP4ALKP2+NO=0.8600D+... & + 8.6000D-01 * RXRAT( 471 ) ! VROCP3ALKP2+NO=0.8600D+... & + 8.6000D-01 * RXRAT( 472 ) ! VROCP2ALKP2+NO=0.8600D+... & + 8.6000D-01 * RXRAT( 473 ) ! VROCP1ALKP2+NO=0.8600D+... & + 8.8000D-01 * RXRAT( 474 ) ! HC10P2+NO=0.8800D+00*HO2+... & + RXRAT( 475 ) ! VROCP6ALKP2+NO3=HO2+... & + RXRAT( 476 ) ! VROCP5ALKP2+NO3=HO2+... & + RXRAT( 477 ) ! VROCP4ALKP2+NO3=HO2+... & + RXRAT( 478 ) ! VROCP3ALKP2+NO3=HO2+... & + RXRAT( 479 ) ! VROCP2ALKP2+NO3=HO2+... & + RXRAT( 480 ) ! VROCP1ALKP2+NO3=HO2+... & + RXRAT( 481 ) ! HC10P2+NO3=HO2+KET+NO2 & + 9.9800D-01 * RXRAT( 491 ) ! VROCP6AROP+NO=0.9980D+... & + 9.4050D-01 * RXRAT( 492 ) ! VROCP6AROP+NO3=0.9405D+... & + 1.3105D+00 * RXRAT( 493 ) ! VROCP6AROP+MO2=0.1310D+... & + 9.4050D-01 * RXRAT( 494 ) ! VROCP6AROP+ACO3=0.9405D+... & + 9.9800D-01 * RXRAT( 497 ) ! VROCP5AROP+NO=0.9980D+... & + 9.4050D-01 * RXRAT( 498 ) ! VROCP5AROP+NO3=0.9405D+... & + 1.3105D+00 * RXRAT( 499 ) ! VROCP5AROP+MO2=0.1310D+... & + 9.4050D-01 * RXRAT( 500 ) ! VROCP5AROP+ACO3=0.9405D+... & + 9.9800D-01 * RXRAT( 503 ) ! NAPHP+NO=0.9980D+00*HO2+... & + 9.4050D-01 * RXRAT( 504 ) ! NAPHP+NO3=0.9405D+00*HO2+... & + 1.3105D+00 * RXRAT( 505 ) ! NAPHP+MO2=0.1310D+01*HO2+... & + 9.4050D-01 * RXRAT( 506 ) ! NAPHP+ACO3=0.9405D+00*HO2+... & + RXRAT( 528 ) ! STYP+NO=HO2+NO2+HCHO+BALD & + RXRAT( 529 ) ! STYP+NO3=HO2+NO2+HCHO+BALD & + 1.3700D+00 * RXRAT( 530 ) ! STYP+MO2=0.1370D+01*HO2+... & + RXRAT( 531 ) ! STYP+ACO3=HO2+HCHO+BALD+... P5 = YC0( HO2 ) + P5 * DTC c..Production of HONO from OH (r19,4 terms ) R19_4 = RKI( 56 ) * YC( NO ) * DTC ! OH+NO=HONO c..Remaining HONO production terms P19 = 5.0000D-01 * RXRAT( 424 ) ! NO2=0.5000D+00*HONO+... P19 = YC0( HONO ) + P19 * DTC c..Production of HNO4 from HO2 (r21,5 term ) R21_5 = RKI( 73 ) * YCP( NO2 ) * DTC ! HO2+NO2=HNO4 c..Remaining HNO4 production terms P21 = YC0( HNO4 ) c..HO loss terms not in R5_4 & R19_4 L4 = RKI( 51 ) * YC ( HO2 ) ! HO+HO2= & + RKI( 60 ) * YC ( HONO ) ! HO+HONO=NO2 & + RKI( 63 ) * YC ( NO2 ) ! HO+NO2=HNO3 & + RKI( 64 ) * YC ( HNO3 ) ! HO+HNO3=NO3 & + RKI( 75 ) * YC ( HNO4 ) ! HO+HNO4=NO2 & + RKI( 78 ) ! HO=MO2 & + RKI( 79 ) * YC ( ETH ) ! HO+ETH=ETHP & + RKI( 80 ) * YC ( HC3 ) ! HO+HC3=HC3P+... & + RKI( 81 ) * YC ( HC5 ) ! HO+HC5=HC5P+... & + RKI( 82 ) * YC ( ETE ) ! HO+ETE=ETEP & + RKI( 83 ) * YC ( OLT ) ! HO+OLT=OLTP & + RKI( 84 ) * YC ( OLI ) ! HO+OLI=OLIP & + 4.7000D-01 * RKI( 86 ) * YC ( BEN ) ! HO+BEN=0.5300D+... & + 8.2000D-01 * RKI( 87 ) * YC ( TOL ) ! HO+TOL=0.1800D+... & + 8.3000D-01 * RKI( 88 ) * YC ( XYL ) ! HO+XYL=0.1700D+... & + 8.2000D-01 * RKI( 89 ) * YC ( EBZ ) ! HO+EBZ=0.1800D+... & + RKI( 92 ) * YC ( ISO ) ! HO+ISO=ISOP+... & + RKI( 95 ) * YC ( ISHP ) ! HO+ISHP=ISOP & + 7.0000D-01 * RKI( 100 ) * YC ( INALD ) ! HO+INALD=0.3000D+... & + RKI( 102 ) * YC ( IPX ) ! HO+IPX=0.5700D+... & + RKI( 103 ) * YC ( API ) ! HO+API=0.9750D+... & + RKI( 104 ) * YC ( LIM ) ! HO+LIM=0.9450D+... & + RKI( 105 ) * YC ( PINAL ) ! HO+PINAL=0.2300D+... & + RKI( 106 ) * YC ( LIMAL ) ! HO+LIMAL=0.8300D+... & + RKI( 108 ) * YC ( ACD ) ! HO+ACD=ACO3 & + RKI( 109 ) * YC ( ALD ) ! HO+ALD=RCO3 & + RKI( 110 ) * YC ( ACT ) ! HO+ACT=ACTP & + RKI( 111 ) * YC ( MEK ) ! HO+MEK=MEKP & + RKI( 112 ) * YC ( KET ) ! HO+KET=KETP & + RKI( 114 ) * YC ( MACR ) ! HO+MACR=0.5700D+... & + RKI( 115 ) * YC ( MVK ) ! HO+MVK=MVKP & + RKI( 116 ) * YC ( UALD ) ! HO+UALD=0.3130D+... & + RKI( 118 ) * YC ( MGLY ) ! HO+MGLY=ACO3+CO & + 4.8000D-01 * RKI( 119 ) * YC ( DCB1 ) ! HO+DCB1=0.5200D+... & + 4.8000D-01 * RKI( 120 ) * YC ( DCB2 ) ! HO+DCB2=0.5200D+... & + 4.4000D-01 * RKI( 121 ) * YC ( DCB3 ) ! HO+DCB3=0.5600D+... & + RKI( 122 ) * YC ( BALD ) ! HO+BALD=BALP & + 3.8100D-01 * RKI( 123 ) * YC ( PHEN ) ! HO+PHEN=0.6190D+... & + 4.1600D-01 * RKI( 124 ) * YC ( CSL ) ! HO+CSL=0.5840D+... & + RKI( 125 ) * YC ( MCT ) ! HO+MCT=MCTO & + 6.5000D-01 * RKI( 130 ) * YC ( OP1 ) ! HO+OP1=0.3500D+... & + 9.9000D-01 * RKI( 131 ) * YC ( OP2 ) ! HO+OP2=0.1000D-... & + 9.9000D-01 * RKI( 132 ) * YC ( OPB ) ! HO+OPB=0.1000D-... & + 9.9000D-01 * RKI( 133 ) * YC ( OP3 ) ! HO+OP3=0.1000D-... & + RKI( 134 ) * YC ( MAHP ) ! HO+MAHP=MACP & + RKI( 136 ) * YC ( ORA2 ) ! HO+ORA2=0.6400D+... & + 6.5000D-01 * RKI( 137 ) * YC ( PAA ) ! HO+PAA=0.3500D+... & + RKI( 138 ) * YC ( PAN ) ! HO+PAN=XO2+NO3+HCHO & + RKI( 139 ) * YC ( PPN ) ! HO+PPN=XO2+NO3+HCHO & + RKI( 140 ) * YC ( MPAN ) ! HO+MPAN=NO2+HKET & + RKI( 141 ) * YC ( ONIT ) ! HO+ONIT=HC3P+NO2 & + RKI( 142 ) * YC ( TRPN ) ! HO+TRPN=0.3300D+... & + RKI( 143 ) * YC ( HONIT ) ! HO+HONIT=HKET+NO3 & + RKI( 391 ) * YC ( VROCIOXY ) ! HO+VROCIOXY=... & + RKI( 392 ) * YC ( SLOWROC ) ! HO+SLOWROC=ETHP+... & + RKI( 393 ) * YC ( ACRO ) ! HO+ACRO=0.5700D+... & + 6.6700D-01 * RKI( 397 ) * YC ( BDE13 ) ! HO+BDE13=0.3330D+... & + 5.1000D-01 * RKI( 405 ) * YC ( FURAN ) ! HO+FURAN=0.4900D+... & + 3.4000D-01 * RKI( 408 ) * YC ( FURANONE ) ! HO+FURANONE=... & + RKI( 417 ) * YC ( SESQ ) ! HO+SESQ=SESQRO2 & + RKI( 433 ) * YC ( VROCP6ALK ) ! HO+VROCP6ALK=... & + RKI( 434 ) * YC ( VROCP5ALK ) ! HO+VROCP5ALK=... & + RKI( 435 ) * YC ( VROCP4ALK ) ! HO+VROCP4ALK=... & + RKI( 436 ) * YC ( VROCP3ALK ) ! HO+VROCP3ALK=... & + RKI( 437 ) * YC ( VROCP2ALK ) ! HO+VROCP2ALK=... & + RKI( 438 ) * YC ( VROCP1ALK ) ! HO+VROCP1ALK=... & + RKI( 439 ) * YC ( HC10 ) ! HO+HC10=HC10P & + 8.4000D-01 * RKI( 489 ) * YC ( VROCP6ARO ) ! HO+VROCP6ARO=... & + 8.4000D-01 * RKI( 495 ) * YC ( VROCP5ARO ) ! HO+VROCP5ARO=... & + 8.4000D-01 * RKI( 501 ) * YC ( NAPH ) ! HO+NAPH=0.1600D+... & + RKI( 523 ) * YC ( ECH4 ) ! HO+ECH4=MO2 & + RKI( 526 ) * YC ( STY ) ! HO+STY=STYP L4 = 1.0D0 + L4 * DTC + R5_4 + R19_4 c..HO2 loss terms not included in R4_5 & R21_5 (except for HO2+HO2 ) L5 = RKI( 51 ) * YC ( HO ) ! HO2+HO= & + RKI( 58 ) * YC ( NO ) ! HO2+NO=HNO3 & + 3.0000D-01 * RKI( 66 ) * YC ( NO3 ) ! HO2+NO3=0.7000D+... & + 4.3000D-01 * RKI( 93 ) * YC ( ISOP ) ! HO2+ISOP=0.5000D+... & + 5.5000D-01 * RKI( 97 ) * YC ( INO2 ) ! HO2+INO2=0.4500D+... & + RKI( 225 ) * YC ( MO2 ) ! HO2+MO2=OP1 & + RKI( 226 ) * YC ( ETHP ) ! HO2+ETHP=OP2 & + RKI( 227 ) * YC ( HC3P ) ! HO2+HC3P=OP2 & + RKI( 228 ) * YC ( HC5P ) ! HO2+HC5P=OP2 & + RKI( 229 ) * YC ( ETEP ) ! HO2+ETEP=OP2 & + RKI( 230 ) * YC ( OLTP ) ! HO2+OLTP=OP2 & + RKI( 231 ) * YC ( OLIP ) ! HO2+OLIP=OP2 & + RKI( 232 ) * YC ( BENP ) ! HO2+BENP=0.6021D+... & + RKI( 233 ) * YC ( TOLP ) ! HO2+TOLP=0.7195D+... & + RKI( 234 ) * YC ( XYLP ) ! HO2+XYLP=0.4820D-... & + RKI( 235 ) * YC ( EBZP ) ! HO2+EBZP=0.8540D-... & + 4.3950D-01 * RKI( 236 ) * YC ( APIP1 ) ! HO2+APIP1=... & + RKI( 237 ) * YC ( APIP2 ) ! HO2+APIP2=HOM & + 3.8050D-01 * RKI( 238 ) * YC ( APINP1 ) ! HO2+APINP1=... & + RKI( 239 ) * YC ( APINP2 ) ! HO2+APINP2=HOM & + 8.0000D-01 * RKI( 240 ) * YC ( LIMP1 ) ! HO2+LIMP1=... & + RKI( 241 ) * YC ( LIMP2 ) ! HO2+LIMP2=HOM & + 2.3000D-01 * RKI( 242 ) * YC ( LIMNP1 ) ! HO2+LIMNP1=... & + RKI( 243 ) * YC ( LIMNP2 ) ! HO2+LIMNP2=HOM & + 7.5000D-01 * RKI( 244 ) * YC ( PINALP ) ! HO2+PINALP=... & + 8.0000D-01 * RKI( 245 ) * YC ( LIMALP ) ! HO2+LIMALP=... & + 5.6000D-01 * RKI( 246 ) * YC ( ACO3 ) ! HO2+ACO3=0.4400D+... & + 5.6000D-01 * RKI( 247 ) * YC ( RCO3 ) ! HO2+RCO3=0.4400D+... & + 8.5000D-01 * RKI( 248 ) * YC ( ACTP ) ! HO2+ACTP=0.1500D+... & + RKI( 249 ) * YC ( MEKP ) ! HO2+MEKP=OP2 & + RKI( 250 ) * YC ( KETP ) ! HO2+KETP=OP2 & + RKI( 251 ) * YC ( MACP ) ! HO2+MACP=MAHP & + RKI( 252 ) * YC ( MCP ) ! HO2+MCP=MAHP & + RKI( 253 ) * YC ( MVKP ) ! HO2+MVKP=OP2 & + RKI( 254 ) * YC ( UALP ) ! HO2+UALP=OP2 & + RKI( 255 ) * YC ( ADDC ) ! HO2+ADDC=OP2 & + RKI( 256 ) * YC ( CHO ) ! HO2+CHO=CSL & + RKI( 257 ) * YC ( MCTP ) ! HO2+MCTP=OP2 & + RKI( 258 ) * YC ( ORAP ) ! HO2+ORAP=OP2 & + RKI( 259 ) * YC ( OLNN ) ! HO2+OLNN=ONIT & + RKI( 260 ) * YC ( OLND ) ! HO2+OLND=ONIT & + RKI( 261 ) * YC ( ADCN ) ! HO2+ADCN=OP2 & + RKI( 262 ) * YC ( XO2 ) ! HO2+XO2=OP2 & + RKI( 400 ) * YC ( BDE13P ) ! HO2+BDE13P=OP2 & + 2.8000D-01 * RKI( 407 ) * YC ( FURANO2 ) ! HO2+FURANO2=... & + RKI( 413 ) * YC ( SESQNRO2 ) ! HO2+SESQNRO2=... & + RKI( 418 ) * YC ( SESQRO2 ) ! HO2+SESQRO2=... & + RKI( 425 ) ! HO2= & + RKI( 454 ) * YC ( VROCP6ALKP ) ! HO2+VROCP6ALKP=... & + RKI( 455 ) * YC ( VROCP5ALKP ) ! HO2+VROCP5ALKP=... & + RKI( 456 ) * YC ( VROCP4ALKP ) ! HO2+VROCP4ALKP=... & + RKI( 457 ) * YC ( VROCP3ALKP ) ! HO2+VROCP3ALKP=... & + RKI( 458 ) * YC ( VROCP2ALKP ) ! HO2+VROCP2ALKP=... & + RKI( 459 ) * YC ( VROCP1ALKP ) ! HO2+VROCP1ALKP=... & + RKI( 460 ) * YC ( HC10P ) ! HO2+HC10P=OP2 & + RKI( 482 ) * YC ( VROCP6ALKP2 ) ! HO2+VROCP6ALKP2=... & + RKI( 483 ) * YC ( VROCP5ALKP2 ) ! HO2+VROCP5ALKP2=... & + RKI( 484 ) * YC ( VROCP4ALKP2 ) ! HO2+VROCP4ALKP2=... & + RKI( 485 ) * YC ( VROCP3ALKP2 ) ! HO2+VROCP3ALKP2=... & + RKI( 486 ) * YC ( VROCP2ALKP2 ) ! HO2+VROCP2ALKP2=... & + RKI( 487 ) * YC ( VROCP1ALKP2 ) ! HO2+VROCP1ALKP2=... & + RKI( 488 ) * YC ( HC10P2 ) ! HO2+HC10P2=... & + RKI( 490 ) * YC ( VROCP6AROP ) ! HO2+VROCP6AROP=... & + RKI( 496 ) * YC ( VROCP5AROP ) ! HO2+VROCP5AROP=... & + RKI( 502 ) * YC ( NAPHP ) ! HO2+NAPHP=... & + RKI( 527 ) * YC ( STYP ) ! HO2+STYP=VROCP3OXY2 L5 = 1.0D0 + L5 * DTC + R4_5 + R21_5 c..HONO loss terms not included in R4_19 L19 = RKI( 60 ) * YC ( HO ) ! HONO+HO=NO2 L19 = 1.0D0 + L19 * DTC + R4_19 c..HNO4 loss terms not included in R5_21 L21 = 2.0000D-01 * RKI( 9 ) ! HNO4=0.8000D+... & + RKI( 75 ) * YC ( HO ) ! HNO4+HO=NO2 L21 = 1.0D0 + L21 * DTC + R5_21 ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Solution section ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c..compute terms used to calculate a,b & c L21_INV = 1.0D0 / L21 T1 = 1.0D0 / ( L4 * L19 - R4_19 * R19_4 ) T2 = R5_4 * T1 T3 = R5_21 * L21_INV c..solve quadratic equation for HO2 A = 2.0D0 * ( RKI( 52 ) + RKI( 53 ) ) * DTC B = L5 - T3 * R21_5 - T2 * R4_5 * L19 C = P5 + T3 * P21 + T2 * ( P4 * L19 + P19 * R4_19 ) Q = -0.5D0 * ( B + SIGN( 1.0D0, B ) * SQRT( B * B + 4.0D0 * A * C ) ) YCP( HO2 ) = MAX( Q / A , -C / Q ) c..compute remaining species concentrations YCP( HO ) = ( ( P4 + R4_5 * YCP( HO2 ) ) * L19 + R4_19 * P19 ) * T1 YCP( HNO4 ) = ( P21 + R21_5 * YCP( HO2 ) ) * L21_INV YCP( HONO ) = ( P19 + R19_4 * YCP( HO ) ) / L19 RETURN END ================================================ FILE: CCTM/src/gas/ebi_cracmm2/hrg3.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE HRG3( DTC ) C********************************************************************** C C FUNCTION: To solve for the concentration of C2O3 and PAN C C PRECONDITIONS: For the CRACMM2 mechanism C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by EBI solver program, Mar 15, 2024 C C 18 Jul 14 B.Hutzell: revised to use real(8) variables C********************************************************************** USE HRDATA IMPLICIT NONE C..INCLUDES: NONE C..ARGUMENTS: REAL( 8 ), INTENT( IN ) :: DTC ! Time step C..PARAMETERS: NONE C..EXTERNAL FUNCTIONS: NONE C..SAVED LOCAL VARIABLES: ! CHARACTER( 16 ), SAVE :: PNAME = 'HRG3' ! Program name C..SCRATCH LOCAL VARIABLES: REAL( 8 ) :: A, B, C, Q ! Quadratic equation terms REAL( 8 ) :: CMN ! Temp scalar REAL( 8 ) :: L8 ! Loss of CCO_O2 REAL( 8 ) :: L9 ! Loss of PAN REAL( 8 ) :: P8 ! Production of CCO_O2 REAL( 8 ) :: K8_8 ! Kaco3+aco3 * delta t REAL( 8 ) :: R8_9 ! Kpan-->aco3 * delta t REAL( 8 ) :: R9_8 ! Kaco3+no2-->pan * [NO2] * delta t C********************************************************************** c..Production of ACO3 (except from PAN ) P8 = RXRAT( 14 ) ! ACT=ACO3+MO2 & + 7.8400D-01 * RXRAT( 16 ) ! UALD=0.7840D+00*ACO3+... & + 9.0000D-01 * RXRAT( 19 ) ! MEK=0.9000D+00*ACO3+ETHP+... & + 5.0000D-01 * RXRAT( 20 ) ! KET=0.5000D+00*ACO3+... & + RXRAT( 21 ) ! HKET=ACO3+HO2+HCHO & + 6.7000D-01 * RXRAT( 22 ) ! MACR=0.6700D+00*ACO3+... & + RXRAT( 27 ) ! MGLY=ACO3+HO2+CO & + 2.5000D-01 * RXRAT( 28 ) ! DCB1=0.2500D+00*ACO3+... & + 2.5000D-01 * RXRAT( 29 ) ! DCB2=0.2500D+00*ACO3+... & + 1.8000D-02 * RXRAT( 90 ) ! ISO+O3=0.1800D-01*ACO3+... & + 1.1000D-01 * RXRAT( 96 ) ! ISHP+HO=0.1100D+00*ACO3+... & + RXRAT( 108 ) ! ACD+HO=ACO3 & + 3.1300D-01 * RXRAT( 116 ) ! UALD+HO=0.3130D+00*ACO3+... & + RXRAT( 118 ) ! MGLY+HO=ACO3+CO & + 6.5000D-01 * RXRAT( 137 ) ! PAA+HO=0.6500D+00*ACO3+... & + 9.0000D-02 * RXRAT( 146 ) ! OLI+O3=0.9000D-01*ACO3+... & + 3.3000D-01 * RXRAT( 148 ) ! LIM+O3=0.3300D+00*ACO3+... & + 1.0000D-01 * RXRAT( 151 ) ! MACR+O3=0.1000D+00*ACO3+... & + 2.8000D-01 * RXRAT( 152 ) ! MVK+O3=0.2800D+00*ACO3+... & + 2.0000D-03 * RXRAT( 153 ) ! UALD+O3=0.2000D-02*ACO3+... & + RXRAT( 165 ) ! ACD+NO3=ACO3+HNO3 & + RXRAT( 170 ) ! MGLY+NO3=ACO3+CO+HNO3 & + RXRAT( 206 ) ! ACTP+NO=ACO3+NO2+HCHO & + 2.3000D-01 * RXRAT( 208 ) ! KETP+NO=0.2300D+00*ACO3+... & + 3.5000D-01 * RXRAT( 209 ) ! MACP+NO=0.3500D+00*ACO3+... & + 7.0000D-01 * RXRAT( 211 ) ! MVKP+NO=0.7000D+00*ACO3+... & + 1.5000D-01 * RXRAT( 248 ) ! ACTP+HO2=0.1500D+00*ACO3+... & + 5.0000D-01 * RXRAT( 285 ) ! ACTP+MO2=0.5000D+00*ACO3+... & + 2.6900D-01 * RXRAT( 288 ) ! MACP+MO2=0.2690D+00*ACO3+... & + 1.1600D+00 * RXRAT( 290 ) ! MVKP+MO2=0.1160D+01*ACO3+... & + 1.6000D-01 * RXRAT( 327 ) ! MVKP+ACO3=0.1160D+01*ACO3+... & + RXRAT( 357 ) ! ACTP+NO3=ACO3+NO2+HCHO & + 5.3800D-01 * RXRAT( 360 ) ! MACP+NO3=0.5380D+00*ACO3+... & + 7.0000D-01 * RXRAT( 362 ) ! MVKP+NO3=0.7000D+00*ACO3+... & + 3.5400D-01 * RXRAT( 396 ) ! ACRO=0.3540D+00*ACO3+... c..Loss frequency of ACO3 ( not including ACO3 + ACO3 ) L8 = RKI( 177 ) * YC ( NO2 ) ! ACO3+NO2=PAN & + RKI( 204 ) * YC ( NO ) ! ACO3+NO=MO2+NO2 & + RKI( 246 ) * YC ( HO2 ) ! ACO3+HO2=0.4400D+... & + RKI( 283 ) * YC ( MO2 ) ! ACO3+MO2=0.9000D+... & + RKI( 301 ) * YC ( ETHP ) ! ACO3+ETHP=... & + RKI( 302 ) * YC ( HC3P ) ! ACO3+HC3P=... & + RKI( 303 ) * YC ( HC5P ) ! ACO3+HC5P=... & + RKI( 304 ) * YC ( ETEP ) ! ACO3+ETEP=... & + RKI( 305 ) * YC ( OLTP ) ! ACO3+OLTP=... & + RKI( 306 ) * YC ( OLIP ) ! ACO3+OLIP=... & + RKI( 307 ) * YC ( BENP ) ! ACO3+BENP=... & + RKI( 308 ) * YC ( TOLP ) ! ACO3+TOLP=... & + RKI( 309 ) * YC ( XYLP ) ! ACO3+XYLP=... & + RKI( 310 ) * YC ( EBZP ) ! ACO3+EBZP=... & + RKI( 311 ) * YC ( ISOP ) ! ACO3+ISOP=... & + RKI( 312 ) * YC ( APIP1 ) ! ACO3+APIP1=... & + RKI( 313 ) * YC ( APIP2 ) ! ACO3+APIP2=... & + RKI( 314 ) * YC ( APINP1 ) ! ACO3+APINP1=... & + RKI( 315 ) * YC ( APINP2 ) ! ACO3+APINP2=... & + RKI( 316 ) * YC ( LIMP1 ) ! ACO3+LIMP1=LIMAL+... & + RKI( 317 ) * YC ( LIMP2 ) ! ACO3+LIMP2=... & + RKI( 318 ) * YC ( LIMNP1 ) ! ACO3+LIMNP1=MO2+... & + RKI( 319 ) * YC ( LIMNP2 ) ! ACO3+LIMNP2=... & + RKI( 321 ) * YC ( RCO3 ) ! ACO3+RCO3=MO2+ETHP & + 5.0000D-01 * RKI( 322 ) * YC ( ACTP ) ! ACO3+ACTP=... & + RKI( 323 ) * YC ( MEKP ) ! ACO3+MEKP=... & + RKI( 324 ) * YC ( KETP ) ! ACO3+KETP=... & + 7.3100D-01 * RKI( 325 ) * YC ( MACP ) ! ACO3+MACP=... & + RKI( 326 ) * YC ( MCP ) ! ACO3+MCP=NO2+... & + RKI( 328 ) * YC ( UALP ) ! ACO3+UALP=... & + RKI( 329 ) * YC ( BALP ) ! ACO3+BALP=MO2+BAL1 & + RKI( 330 ) * YC ( BAL1 ) ! ACO3+BAL1=MO2+BAL2 & + RKI( 331 ) * YC ( ADDC ) ! ACO3+ADDC=... & + RKI( 332 ) * YC ( MCTP ) ! ACO3+MCTP=HO2+... & + RKI( 333 ) * YC ( ORAP ) ! ACO3+ORAP=MO2+GLY & + RKI( 334 ) * YC ( OLNN ) ! ACO3+OLNN=HO2+... & + RKI( 335 ) * YC ( OLND ) ! ACO3+OLND=... & + RKI( 336 ) * YC ( ADCN ) ! ACO3+ADCN=HO2+... & + RKI( 337 ) * YC ( XO2 ) ! ACO3+XO2=MO2 & + RKI( 355 ) * YC ( NO3 ) ! ACO3+NO3=MO2+NO2 & + RKI( 402 ) * YC ( BDE13P ) ! ACO3+BDE13P=... & + RKI( 494 ) * YC ( VROCP6AROP ) ! ACO3+VROCP6AROP=... & + RKI( 500 ) * YC ( VROCP5AROP ) ! ACO3+VROCP5AROP=... & + RKI( 506 ) * YC ( NAPHP ) ! ACO3+NAPHP=... & + RKI( 531 ) * YC ( STYP ) ! ACO3+STYP=HO2+... c..Loss frequency of PAN L9 = RKI( 37 ) ! PAN=ACO3+NO2 & + RKI( 38 ) ! PAN=MO2+NO3 & + RKI( 138 ) * YC ( HO ) ! PAN+HO=XO2+NO3+HCHO & + RKI( 178 ) ! PAN=ACO3+NO2 c..K8_8, R8_9, and R9_8 terms K8_8 = RKI( 320 ) * DTC R8_9 = ( RKI( 37 ) & + RKI( 178 ) ) * DTC R9_8 = ( RKI( 177 ) * YC( NO2 ) ) * DTC c..Solution of quadratic equation to get ACO3 & PAN CMN = 1.0 + L9 * DTC A = 2.0D0 * K8_8 * CMN B = CMN * ( 1.0D0 + L8 * DTC ) - R8_9 * R9_8 C = CMN * ( YC0( ACO3 ) + P8 * DTC ) + R8_9 * YC0( PAN ) Q = -0.5D0 * ( B + SIGN( 1.0D0, B ) * SQRT( B * B + 4.0D0 * A * C ) ) YCP( ACO3 ) = MAX( Q / A , -C / Q ) YCP( PAN ) = ( YC0( PAN ) + R9_8 * YCP( ACO3 ) ) / CMN RETURN END ================================================ FILE: CCTM/src/gas/ebi_cracmm2/hrg4.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE HRG4( DTC ) C********************************************************************** C C FUNCTION: To solve for the concentration of NO3 and N2O5 C C PRECONDITIONS: For the CRACMM2 mechanism C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by EBI solver program, Mar 15, 2024 C C 18 Jul 14 B.Hutzell: revised to use real(8) variables C********************************************************************** USE HRDATA IMPLICIT NONE C..INCLUDES: NONE C..ARGUMENTS: REAL( 8 ), INTENT( IN ) :: DTC ! Time step C..PARAMETERS: NONE C..EXTERNAL FUNCTIONS: NONE C..SAVED LOCAL VARIABLES: ! CHARACTER( 16 ), SAVE :: PNAME = 'HRG4' ! Program name C..SCRATCH LOCAL VARIABLES: REAL( 8 ) :: A, B, C, Q ! Quadratic equation terms REAL( 8 ) :: CMN ! Temp scalar REAL( 8 ) :: L15 ! Loss of NO3 REAL( 8 ) :: L16 ! Loss of N2O5 REAL( 8 ) :: P15 ! Production of NO3 REAL( 8 ) :: K15_15 ! Kno3+no3 * delta t REAL( 8 ) :: R15_16 ! Kn2o5-->no3 * delta t REAL( 8 ) :: R16_15 ! Kno3+no2-->n2o5[NO2] * delta t C********************************************************************** c..Production of NO3 (except from N2O5 ) P15 = 2.0000D-01 * RKI( 9 ) * YC ( HNO4 ) ! HNO4=0.2000D+00*NO3+... & + RKI( 38 ) * YC ( PAN ) ! PAN=NO3+MO2 & + RKI( 44 ) * YCP( O3 ) * YCP( NO2 ) ! O3+NO2=NO3 & + RKI( 62 ) * YCP( NO2 ) * YCP( O3P ) ! NO2+O3P=NO3 & + RKI( 64 ) * YC ( HNO3 ) * YCP( HO ) ! HNO3+HO=NO3 & + RKI( 138 ) * YC ( PAN ) * YCP( HO ) ! PAN+HO=NO3+XO2+HCHO & + RKI( 139 ) * YC ( PPN ) * YCP( HO ) ! PPN+HO=NO3+XO2+HCHO & + RKI( 143 ) * YC ( HONIT ) * YCP( HO ) ! HONIT+HO=NO3+HKET c..Loss frequency of NO3 ( except NO3 + NO3 if present ) L15 = RKI( 5 ) ! NO3=NO & + RKI( 6 ) ! NO3=O3P+NO2 & + RKI( 65 ) * YCP( HO ) ! NO3+HO=HO2+NO2 & + RKI( 66 ) * YCP( HO2 ) ! NO3+HO2=0.7000D+... & + RKI( 67 ) * YCP( NO ) ! NO3+NO=0.2000D+... & + RKI( 68 ) * YCP( NO2 ) ! NO3+NO2=NO+NO2 & + RKI( 70 ) * YCP( NO2 ) ! NO3+NO2=N2O5 & + RKI( 91 ) * YC ( ISO ) ! NO3+ISO=0.4000D+... & + RKI( 158 ) * YC ( ETE ) ! NO3+ETE=0.8000D+... & + RKI( 159 ) * YC ( OLT ) ! NO3+OLT=0.4300D+... & + RKI( 160 ) * YC ( OLI ) ! NO3+OLI=0.1100D+... & + RKI( 161 ) * YC ( API ) ! NO3+API=0.9750D+... & + RKI( 162 ) * YC ( LIM ) ! NO3+LIM=0.9450D+... & + RKI( 163 ) * YC ( TRPN ) ! NO3+TRPN=0.3300D+... & + RKI( 164 ) * YC ( HCHO ) ! NO3+HCHO=HO2+CO+HNO3 & + RKI( 165 ) * YC ( ACD ) ! NO3+ACD=ACO3+HNO3 & + RKI( 166 ) * YC ( ALD ) ! NO3+ALD=RCO3+HNO3 & + RKI( 167 ) * YC ( MACR ) ! NO3+MACR=0.6800D+... & + RKI( 168 ) * YC ( UALD ) ! NO3+UALD=HO2+XO2+... & + RKI( 169 ) * YC ( GLY ) ! NO3+GLY=HO2+... & + RKI( 170 ) * YC ( MGLY ) ! NO3+MGLY=ACO3+CO+... & + RKI( 171 ) * YC ( PHEN ) ! NO3+PHEN=0.1520D+... & + RKI( 172 ) * YC ( CSL ) ! NO3+CSL=0.2000D+... & + RKI( 173 ) * YC ( MCT ) ! NO3+MCT=MCTO+HNO3 & + RKI( 174 ) * YC ( MPAN ) ! NO3+MPAN=MACP+NO2 & + RKI( 339 ) * YC ( MO2 ) ! NO3+MO2=HO2+HCHO+NO2 & + RKI( 340 ) * YC ( ETHP ) ! NO3+ETHP=HO2+NO2+ACD & + RKI( 341 ) * YC ( HC3P ) ! NO3+HC3P=0.2540D+... & + RKI( 342 ) * YC ( HC5P ) ! NO3+HC5P=0.4880D+... & + RKI( 343 ) * YC ( ETEP ) ! NO3+ETEP=HO2+NO2+... & + RKI( 344 ) * YC ( OLTP ) ! NO3+OLTP=0.4700D+... & + RKI( 345 ) * YC ( OLIP ) ! NO3+OLIP=0.8600D+... & + RKI( 346 ) * YC ( BENP ) ! NO3+BENP=NO2+HO2+... & + RKI( 347 ) * YC ( TOLP ) ! NO3+TOLP=NO2+... & + RKI( 348 ) * YC ( XYLP ) ! NO3+XYLP=NO2+... & + RKI( 349 ) * YC ( EBZP ) ! NO3+EBZP=NO2+... & + RKI( 350 ) * YC ( ISOP ) ! NO3+ISOP=HO2+NO2+... & + RKI( 351 ) * YC ( APIP1 ) ! NO3+APIP1=NO2+... & + RKI( 352 ) * YC ( LIMP1 ) ! NO3+LIMP1=HO2+... & + RKI( 353 ) * YC ( APINP1 ) ! NO3+APINP1=... & + RKI( 354 ) * YC ( LIMNP1 ) ! NO3+LIMNP1=... & + RKI( 355 ) * YC ( ACO3 ) ! NO3+ACO3=MO2+NO2 & + RKI( 356 ) * YC ( RCO3 ) ! NO3+RCO3=ETHP+NO2 & + RKI( 357 ) * YC ( ACTP ) ! NO3+ACTP=ACO3+... & + RKI( 358 ) * YC ( MEKP ) ! NO3+MEKP=0.6700D+... & + RKI( 359 ) * YC ( KETP ) ! NO3+KETP=HO2+NO2+... & + RKI( 360 ) * YC ( MACP ) ! NO3+MACP=HCHO+... & + RKI( 361 ) * YC ( MCP ) ! NO3+MCP=NO2+HO2+... & + RKI( 362 ) * YC ( MVKP ) ! NO3+MVKP=0.3000D+... & + RKI( 363 ) * YC ( UALP ) ! NO3+UALP=HO2+NO2+... & + RKI( 364 ) * YC ( BALP ) ! NO3+BALP=BAL1+NO2 & + RKI( 365 ) * YC ( BAL1 ) ! NO3+BAL1=BAL2+NO2 & + RKI( 366 ) * YC ( ADDC ) ! NO3+ADDC=HO2+NO2+... & + RKI( 367 ) * YC ( MCTP ) ! NO3+MCTP=NO2+MCTO & + RKI( 368 ) * YC ( ORAP ) ! NO3+ORAP=NO2+GLY+HO2 & + RKI( 369 ) * YC ( OLNN ) ! NO3+OLNN=HO2+NO2+... & + RKI( 370 ) * YC ( OLND ) ! NO3+OLND=0.2000D+... & + RKI( 371 ) * YC ( ADCN ) ! NO3+ADCN=0.2000D+... & + RKI( 375 ) * YC ( XO2 ) ! NO3+XO2=NO2 & + RKI( 395 ) * YC ( ACRO ) ! NO3+ACRO=0.6800D+... & + RKI( 399 ) * YC ( BDE13P ) ! NO3+BDE13P=HO2+... & + RKI( 404 ) * YC ( BDE13 ) ! NO3+BDE13=... & + RKI( 410 ) * YC ( FURAN ) ! NO3+FURAN=NO2+... & + RKI( 412 ) * YC ( SESQ ) ! NO3+SESQ=SESQNRO2 & + RKI( 415 ) * YC ( SESQNRO2 ) ! NO3+SESQNRO2=... & + RKI( 419 ) * YC ( SESQRO2 ) ! NO3+SESQRO2=... & + RKI( 426 ) ! NO3=HNO3 & + RKI( 447 ) * YC ( VROCP6ALKP ) ! NO3+VROCP6ALKP=... & + RKI( 448 ) * YC ( VROCP5ALKP ) ! NO3+VROCP5ALKP=... & + RKI( 449 ) * YC ( VROCP4ALKP ) ! NO3+VROCP4ALKP=... & + RKI( 450 ) * YC ( VROCP3ALKP ) ! NO3+VROCP3ALKP=... & + RKI( 451 ) * YC ( VROCP2ALKP ) ! NO3+VROCP2ALKP=... & + RKI( 452 ) * YC ( VROCP1ALKP ) ! NO3+VROCP1ALKP=... & + RKI( 453 ) * YC ( HC10P ) ! NO3+HC10P=HC10P2+NO2 & + RKI( 475 ) * YC ( VROCP6ALKP2 ) ! NO3+VROCP6ALKP2=... & + RKI( 476 ) * YC ( VROCP5ALKP2 ) ! NO3+VROCP5ALKP2=... & + RKI( 477 ) * YC ( VROCP4ALKP2 ) ! NO3+VROCP4ALKP2=... & + RKI( 478 ) * YC ( VROCP3ALKP2 ) ! NO3+VROCP3ALKP2=... & + RKI( 479 ) * YC ( VROCP2ALKP2 ) ! NO3+VROCP2ALKP2=... & + RKI( 480 ) * YC ( VROCP1ALKP2 ) ! NO3+VROCP1ALKP2=... & + RKI( 481 ) * YC ( HC10P2 ) ! NO3+HC10P2=NO2+... & + RKI( 492 ) * YC ( VROCP6AROP ) ! NO3+VROCP6AROP=... & + RKI( 498 ) * YC ( VROCP5AROP ) ! NO3+VROCP5AROP=... & + RKI( 504 ) * YC ( NAPHP ) ! NO3+NAPHP=NO2+... & + RKI( 529 ) * YC ( STYP ) ! NO3+STYP=NO2+HO2+... c..Loss frequency of N2O5 L16 = RKI( 71 ) ! N2O5=NO2+NO3 & + RKI( 72 ) ! N2O5=0.2000D+01*HNO3 & + RKI( 423 ) ! N2O5=0.2000D+01*HNO3 c..K15_15, R15_16, and R16_15 terms K15_15 = RKI( 69 ) * DTC R15_16 = ( RKI( 71 ) ) * DTC R16_15 = RKI( 70 ) * YCP( NO2 ) * DTC c..Solution of quadratic equation to get NO3 & N2O5 CMN = 1.0D0 + L16 * DTC A = 2.0D0 * K15_15 * CMN B = CMN * ( 1.0D0 + L15 * DTC ) - R15_16 * R16_15 C = CMN * ( YC0( NO3 ) + P15 * DTC ) + R15_16 * YC0( N2O5 ) Q = -0.5D0 * ( B + SIGN( 1.0D0, B ) * SQRT( B * B + 4.0D0 * A * C ) ) YCP( NO3 ) = MAX( Q / A , -C / Q ) YCP( N2O5 ) = ( YC0( N2O5 ) + R16_15 * YCP( NO3 ) ) / CMN RETURN END ================================================ FILE: CCTM/src/gas/ebi_cracmm2/hrinit.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE HRINIT C*********************************************************************** C C FUNCTION: To initialize species tolerances, arrays, and indices C C PRECONDITIONS: For the CRACMM2 mechanism C C RETURN VALUES: None C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by EBI solver program, Mar 15, 2024 C 21 Jun 10 J.Young: convert for Namelist redesign C 18 Jul 14 B.Hutzell: revised to use the RXNS_DATA and RXNS_FUNCTION C modules instead of include files C*********************************************************************** USE UTILIO_DEFN USE HRDATA USE RXNS_DATA USE RXNS_FUNCTION IMPLICIT NONE C.....INCLUDES: Include SUBST_CONST ! common constants C.....ARGUMENTS: NONE C.....PARAMETERS: NONE C.....SAVED VARIABLES: CHARACTER( 16 ), SAVE :: PNAME = 'HRINIT' ! Program name C.....LOCAL VARIABLES: CHARACTER( 132 ) :: MSG ! Log message INTEGER N ! Loop index INTEGER IOS ! Allocate error status C*********************************************************************** N_SPEC = NUMB_MECH_SPC N_RXNS = NRXNS N_SPCL_RKS = 0 ALLOCATE( RKI( NRXNS ), & RKI_SAV( MAX_CELLS_EBI, NRXNS ), & FORWARD_CONV( NUMB_MECH_SPC), & REVERSE_CONV( NUMB_MECH_SPC), & RXRAT( NRXNS ), & RTOL( NUMB_MECH_SPC), & YC( NUMB_MECH_SPC), & YC0( NUMB_MECH_SPC), & YCP( NUMB_MECH_SPC), & PROD( NUMB_MECH_SPC), & LOSS( NUMB_MECH_SPC), & STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating RKI, RXRAT, RTOL, YC, YC0, YCP, FORWARD_CONV, ' & // 'REVERSE_CONV, PROD, LOSS, or PNEG' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF ALLOCATE( ATMPRES( MAX_CELLS_EBI ), & H2O ( MAX_CELLS_EBI ), & TEMP ( MAX_CELLS_EBI ), & DENSITY( MAX_CELLS_EBI ), & HET ( MAX_CELLS_EBI, NHETERO ), & RJIN ( MAX_CELLS_EBI, NPHOTAB ), & SEAWATER ( MAX_CELLS_EBI ) , & STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating ATMPRES, H2O, TEMP, HET, RJIN, SEAWATER ' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF IF( NSPECIAL .GT. 0 )THEN ALLOCATE( SYC( MAX_CELLS_EBI, NUMB_MECH_SPC ), STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating SYC' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF ALLOCATE( IOLD2NEW( NUMB_MECH_SPC, 1 ), STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating IOLD2NEW' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF DO N = 1, NUMB_MECH_SPC IOLD2NEW( N, 1 ) = N END DO END IF IF( .NOT. MAP_CHEMISTRY_SPECIES() )THEN MSG = 'Detected above error(s) when mapping Chemistry species from CGRID species' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT2 ) END IF DO N = 1, NUMB_MECH_SPC FORWARD_CONV( N ) = 1.0E-3 * MWAIR / SPECIES_MOLWT( N ) REVERSE_CONV( N ) = 1.0E+3 / MWAIR * SPECIES_MOLWT( N ) END DO ! initialize all reaction rates to zero so unused array elements are defined RXRAT = 0.0D0 ! initialize all production and loss rates to zero so unused array elements are defined PROD = 0.0D0 LOSS = 0.0D0 NING1 = 4 NING2 = 4 ALLOCATE( YCCELL( MODEL_SPECIES), STAT = IOS ) ! array for degradation routines IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating YCCELL ' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF c..Allocate and define ebi species N_EBISP = 176 ALLOCATE( EBISP( N_EBISP ), STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating EBISP' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF EBISP( 1 ) = H2O2 EBISP( 2 ) = HNO3 EBISP( 3 ) = HCHO EBISP( 4 ) = CO EBISP( 5 ) = ACD EBISP( 6 ) = MO2 EBISP( 7 ) = ALD EBISP( 8 ) = ETHP EBISP( 9 ) = ACT EBISP( 10 ) = UALD EBISP( 11 ) = KET EBISP( 12 ) = PINAL EBISP( 13 ) = HC10P EBISP( 14 ) = LIMAL EBISP( 15 ) = MEK EBISP( 16 ) = HKET EBISP( 17 ) = MACR EBISP( 18 ) = MACP EBISP( 19 ) = XO2 EBISP( 20 ) = MVK EBISP( 21 ) = GLY EBISP( 22 ) = MGLY EBISP( 23 ) = DCB1 EBISP( 24 ) = DCB2 EBISP( 25 ) = BALD EBISP( 26 ) = CHO EBISP( 27 ) = OP1 EBISP( 28 ) = OP2 EBISP( 29 ) = OPB EBISP( 30 ) = OP3 EBISP( 31 ) = PAA EBISP( 32 ) = ONIT EBISP( 33 ) = TRPN EBISP( 34 ) = HONIT EBISP( 35 ) = SO2 EBISP( 36 ) = SULF EBISP( 37 ) = SULRXN EBISP( 38 ) = ETH EBISP( 39 ) = HC3 EBISP( 40 ) = HC3P EBISP( 41 ) = ASOATJ EBISP( 42 ) = HC5 EBISP( 43 ) = HC5P EBISP( 44 ) = ETE EBISP( 45 ) = ETEP EBISP( 46 ) = OLT EBISP( 47 ) = OLTP EBISP( 48 ) = OLI EBISP( 49 ) = OLIP EBISP( 50 ) = ACE EBISP( 51 ) = ORA1 EBISP( 52 ) = BEN EBISP( 53 ) = BENP EBISP( 54 ) = PHEN EBISP( 55 ) = TOL EBISP( 56 ) = TOLP EBISP( 57 ) = CSL EBISP( 58 ) = XYL EBISP( 59 ) = XYLP EBISP( 60 ) = EBZ EBISP( 61 ) = EBZP EBISP( 62 ) = ISO EBISP( 63 ) = ISON EBISP( 64 ) = INO2 EBISP( 65 ) = ISOP EBISP( 66 ) = ISHP EBISP( 67 ) = IEPOX EBISP( 68 ) = IPX EBISP( 69 ) = INALD EBISP( 70 ) = ROH EBISP( 71 ) = API EBISP( 72 ) = APIP1 EBISP( 73 ) = APIP2 EBISP( 74 ) = LIM EBISP( 75 ) = LIMP1 EBISP( 76 ) = LIMP2 EBISP( 77 ) = PINALP EBISP( 78 ) = RCO3 EBISP( 79 ) = LIMALP EBISP( 80 ) = ACTP EBISP( 81 ) = MEKP EBISP( 82 ) = KETP EBISP( 83 ) = MCP EBISP( 84 ) = MVKP EBISP( 85 ) = UALP EBISP( 86 ) = DCB3 EBISP( 87 ) = BALP EBISP( 88 ) = ADDC EBISP( 89 ) = MCT EBISP( 90 ) = MCTO EBISP( 91 ) = MOH EBISP( 92 ) = EOH EBISP( 93 ) = ETEG EBISP( 94 ) = MAHP EBISP( 95 ) = ORA2 EBISP( 96 ) = ORAP EBISP( 97 ) = PPN EBISP( 98 ) = MPAN EBISP( 99 ) = MCTP EBISP( 100 ) = OLNN EBISP( 101 ) = OLND EBISP( 102 ) = APINP1 EBISP( 103 ) = APINP2 EBISP( 104 ) = LIMNP1 EBISP( 105 ) = LIMNP2 EBISP( 106 ) = ADCN EBISP( 107 ) = HOM EBISP( 108 ) = VROCP4OXY2 EBISP( 109 ) = VROCN1OXY6 EBISP( 110 ) = FURANONE EBISP( 111 ) = VROCP3OXY2 EBISP( 112 ) = VROCP0OXY4 EBISP( 113 ) = BAL1 EBISP( 114 ) = BAL2 EBISP( 115 ) = ELHOM EBISP( 116 ) = VROCIOXY EBISP( 117 ) = SLOWROC EBISP( 118 ) = ACRO EBISP( 119 ) = BDE13 EBISP( 120 ) = BDE13P EBISP( 121 ) = FURAN EBISP( 122 ) = FURANO2 EBISP( 123 ) = PROG EBISP( 124 ) = SESQ EBISP( 125 ) = SESQNRO2 EBISP( 126 ) = VROCN2OXY2 EBISP( 127 ) = SESQRO2 EBISP( 128 ) = VROCP0OXY2 EBISP( 129 ) = VROCP1OXY3 EBISP( 130 ) = AGLYJ EBISP( 131 ) = IEPOXP EBISP( 132 ) = AISO3NOSJ EBISP( 133 ) = ASO4J EBISP( 134 ) = AISO3OSJ EBISP( 135 ) = AISO4J EBISP( 136 ) = AISO5J EBISP( 137 ) = VROCP6ALK EBISP( 138 ) = VROCP6ALKP EBISP( 139 ) = VROCP5ALK EBISP( 140 ) = VROCP5ALKP EBISP( 141 ) = VROCP4ALK EBISP( 142 ) = VROCP4ALKP EBISP( 143 ) = VROCP3ALK EBISP( 144 ) = VROCP3ALKP EBISP( 145 ) = VROCP2ALK EBISP( 146 ) = VROCP2ALKP EBISP( 147 ) = VROCP1ALK EBISP( 148 ) = VROCP1ALKP EBISP( 149 ) = HC10 EBISP( 150 ) = VROCP6ALKP2 EBISP( 151 ) = VROCP5ALKP2 EBISP( 152 ) = VROCP4ALKP2 EBISP( 153 ) = VROCP2OXY2 EBISP( 154 ) = VROCP3ALKP2 EBISP( 155 ) = VROCP1OXY1 EBISP( 156 ) = VROCP2ALKP2 EBISP( 157 ) = VROCP1ALKP2 EBISP( 158 ) = VROCN1OXY1 EBISP( 159 ) = HC10P2 EBISP( 160 ) = VROCP6ARO EBISP( 161 ) = VROCP6AROP EBISP( 162 ) = VROCN2OXY4 EBISP( 163 ) = VROCN1OXY3 EBISP( 164 ) = VROCP5ARO EBISP( 165 ) = VROCP5AROP EBISP( 166 ) = NAPH EBISP( 167 ) = NAPHP EBISP( 168 ) = VROCN2OXY8 EBISP( 169 ) = VROCP5OXY1 EBISP( 170 ) = VROCP6OXY1 EBISP( 171 ) = ECH4 EBISP( 172 ) = ATRPNJ EBISP( 173 ) = AHOMJ EBISP( 174 ) = AHONITJ EBISP( 175 ) = STY EBISP( 176 ) = STYP cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Set species tolerances cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc RTOL( O3 ) = 5.0D-04 RTOL( O3P ) = 1.0D+00 RTOL( O1D ) = 1.0D+00 RTOL( H2O2 ) = 5.0D-04 RTOL( HO ) = 5.0D-04 RTOL( NO2 ) = 5.0D-04 RTOL( NO ) = 5.0D-04 RTOL( NO3 ) = 5.0D-04 RTOL( HONO ) = 5.0D-04 RTOL( HNO3 ) = 5.0D-04 RTOL( HNO4 ) = 5.0D-04 RTOL( HO2 ) = 5.0D-04 RTOL( HCHO ) = 5.0D-04 RTOL( CO ) = 5.0D-04 RTOL( ACD ) = 5.0D-04 RTOL( MO2 ) = 5.0D-04 RTOL( ALD ) = 5.0D-04 RTOL( ETHP ) = 5.0D-04 RTOL( ACT ) = 5.0D-04 RTOL( ACO3 ) = 5.0D-04 RTOL( UALD ) = 5.0D-04 RTOL( KET ) = 5.0D-04 RTOL( PINAL ) = 5.0D-04 RTOL( HC10P ) = 5.0D-04 RTOL( LIMAL ) = 5.0D-04 RTOL( MEK ) = 5.0D-04 RTOL( HKET ) = 5.0D-04 RTOL( MACR ) = 5.0D-04 RTOL( MACP ) = 5.0D-04 RTOL( XO2 ) = 5.0D-04 RTOL( MVK ) = 5.0D-04 RTOL( GLY ) = 5.0D-04 RTOL( MGLY ) = 5.0D-04 RTOL( DCB1 ) = 5.0D-04 RTOL( DCB2 ) = 5.0D-04 RTOL( BALD ) = 5.0D-04 RTOL( CHO ) = 5.0D-04 RTOL( OP1 ) = 5.0D-04 RTOL( OP2 ) = 5.0D-04 RTOL( OPB ) = 5.0D-04 RTOL( OP3 ) = 5.0D-04 RTOL( PAA ) = 5.0D-04 RTOL( ONIT ) = 5.0D-04 RTOL( PAN ) = 5.0D-04 RTOL( TRPN ) = 5.0D-04 RTOL( HONIT ) = 5.0D-04 RTOL( N2O5 ) = 5.0D-04 RTOL( SO2 ) = 5.0D-04 RTOL( SULF ) = 1.0D+00 RTOL( SULRXN ) = 1.0D+00 RTOL( ETH ) = 5.0D-04 RTOL( HC3 ) = 5.0D-04 RTOL( HC3P ) = 5.0D-04 RTOL( ASOATJ ) = 5.0D-04 RTOL( HC5 ) = 5.0D-04 RTOL( HC5P ) = 5.0D-04 RTOL( ETE ) = 5.0D-04 RTOL( ETEP ) = 5.0D-04 RTOL( OLT ) = 5.0D-04 RTOL( OLTP ) = 5.0D-04 RTOL( OLI ) = 5.0D-04 RTOL( OLIP ) = 5.0D-04 RTOL( ACE ) = 5.0D-04 RTOL( ORA1 ) = 5.0D-04 RTOL( BEN ) = 5.0D-04 RTOL( BENP ) = 5.0D-04 RTOL( PHEN ) = 5.0D-04 RTOL( TOL ) = 5.0D-04 RTOL( TOLP ) = 5.0D-04 RTOL( CSL ) = 5.0D-04 RTOL( XYL ) = 5.0D-04 RTOL( XYLP ) = 5.0D-04 RTOL( EBZ ) = 5.0D-04 RTOL( EBZP ) = 5.0D-04 RTOL( ISO ) = 5.0D-04 RTOL( ISON ) = 5.0D-04 RTOL( INO2 ) = 5.0D-04 RTOL( ISOP ) = 5.0D-04 RTOL( ISHP ) = 5.0D-04 RTOL( IEPOX ) = 5.0D-04 RTOL( IPX ) = 5.0D-04 RTOL( INALD ) = 5.0D-04 RTOL( ROH ) = 5.0D-04 RTOL( API ) = 5.0D-04 RTOL( APIP1 ) = 5.0D-04 RTOL( APIP2 ) = 5.0D-04 RTOL( LIM ) = 5.0D-04 RTOL( LIMP1 ) = 5.0D-04 RTOL( LIMP2 ) = 5.0D-04 RTOL( PINALP ) = 5.0D-04 RTOL( RCO3 ) = 5.0D-04 RTOL( LIMALP ) = 5.0D-04 RTOL( ACTP ) = 5.0D-04 RTOL( MEKP ) = 5.0D-04 RTOL( KETP ) = 5.0D-04 RTOL( MCP ) = 5.0D-04 RTOL( MVKP ) = 5.0D-04 RTOL( UALP ) = 5.0D-04 RTOL( DCB3 ) = 5.0D-04 RTOL( BALP ) = 5.0D-04 RTOL( ADDC ) = 5.0D-04 RTOL( MCT ) = 5.0D-04 RTOL( MCTO ) = 5.0D-04 RTOL( MOH ) = 5.0D-04 RTOL( EOH ) = 5.0D-04 RTOL( ETEG ) = 5.0D-04 RTOL( MAHP ) = 5.0D-04 RTOL( ORA2 ) = 5.0D-04 RTOL( ORAP ) = 5.0D-04 RTOL( PPN ) = 5.0D-04 RTOL( MPAN ) = 5.0D-04 RTOL( MCTP ) = 5.0D-04 RTOL( OLNN ) = 5.0D-04 RTOL( OLND ) = 5.0D-04 RTOL( APINP1 ) = 5.0D-04 RTOL( APINP2 ) = 5.0D-04 RTOL( LIMNP1 ) = 5.0D-04 RTOL( LIMNP2 ) = 5.0D-04 RTOL( ADCN ) = 5.0D-04 RTOL( HOM ) = 5.0D-04 RTOL( VROCP4OXY2 ) = 5.0D-04 RTOL( VROCN1OXY6 ) = 5.0D-04 RTOL( FURANONE ) = 5.0D-04 RTOL( VROCP3OXY2 ) = 5.0D-04 RTOL( VROCP0OXY4 ) = 5.0D-04 RTOL( BAL1 ) = 5.0D-04 RTOL( BAL2 ) = 5.0D-04 RTOL( ELHOM ) = 5.0D-04 RTOL( VROCIOXY ) = 5.0D-04 RTOL( SLOWROC ) = 5.0D-04 RTOL( ACRO ) = 5.0D-04 RTOL( BDE13 ) = 5.0D-04 RTOL( BDE13P ) = 5.0D-04 RTOL( FURAN ) = 5.0D-04 RTOL( FURANO2 ) = 5.0D-04 RTOL( PROG ) = 5.0D-04 RTOL( SESQ ) = 5.0D-04 RTOL( SESQNRO2 ) = 5.0D-04 RTOL( VROCN2OXY2 ) = 5.0D-04 RTOL( SESQRO2 ) = 5.0D-04 RTOL( VROCP0OXY2 ) = 5.0D-04 RTOL( VROCP1OXY3 ) = 5.0D-04 RTOL( AGLYJ ) = 5.0D-04 RTOL( IEPOXP ) = 5.0D-04 RTOL( AISO3NOSJ ) = 5.0D-04 RTOL( ASO4J ) = 5.0D-04 RTOL( AISO3OSJ ) = 5.0D-04 RTOL( AISO4J ) = 5.0D-04 RTOL( AISO5J ) = 5.0D-04 RTOL( VROCP6ALK ) = 5.0D-04 RTOL( VROCP6ALKP ) = 5.0D-04 RTOL( VROCP5ALK ) = 5.0D-04 RTOL( VROCP5ALKP ) = 5.0D-04 RTOL( VROCP4ALK ) = 5.0D-04 RTOL( VROCP4ALKP ) = 5.0D-04 RTOL( VROCP3ALK ) = 5.0D-04 RTOL( VROCP3ALKP ) = 5.0D-04 RTOL( VROCP2ALK ) = 5.0D-04 RTOL( VROCP2ALKP ) = 5.0D-04 RTOL( VROCP1ALK ) = 5.0D-04 RTOL( VROCP1ALKP ) = 5.0D-04 RTOL( HC10 ) = 5.0D-04 RTOL( VROCP6ALKP2 ) = 5.0D-04 RTOL( VROCP5ALKP2 ) = 5.0D-04 RTOL( VROCP4ALKP2 ) = 5.0D-04 RTOL( VROCP2OXY2 ) = 5.0D-04 RTOL( VROCP3ALKP2 ) = 5.0D-04 RTOL( VROCP1OXY1 ) = 5.0D-04 RTOL( VROCP2ALKP2 ) = 5.0D-04 RTOL( VROCP1ALKP2 ) = 5.0D-04 RTOL( VROCN1OXY1 ) = 5.0D-04 RTOL( HC10P2 ) = 5.0D-04 RTOL( VROCP6ARO ) = 5.0D-04 RTOL( VROCP6AROP ) = 5.0D-04 RTOL( VROCN2OXY4 ) = 5.0D-04 RTOL( VROCN1OXY3 ) = 5.0D-04 RTOL( VROCP5ARO ) = 5.0D-04 RTOL( VROCP5AROP ) = 5.0D-04 RTOL( NAPH ) = 5.0D-04 RTOL( NAPHP ) = 5.0D-04 RTOL( VROCN2OXY8 ) = 5.0D-04 RTOL( VROCP5OXY1 ) = 5.0D-04 RTOL( VROCP6OXY1 ) = 5.0D-04 RTOL( ECH4 ) = 5.0D-04 RTOL( ATRPNJ ) = 5.0D-04 RTOL( AHOMJ ) = 5.0D-04 RTOL( AHONITJ ) = 5.0D-04 RTOL( STY ) = 5.0D-04 RTOL( STYP ) = 5.0D-04 RETURN END ================================================ FILE: CCTM/src/gas/ebi_cracmm2/hrprodloss.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE HRPRODLOSS C*********************************************************************** C C FUNCTION: To compute the production and loss rates for EBI species C C PRECONDITIONS: For the CRACMM2 mechanism C C RETURN VALUES: None C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by EBI solver program, Mar 15, 2024 C C 18 Jul 14 B.Hutzell: revised to use real(8) variables C*********************************************************************** USE HRDATA IMPLICIT NONE C.....INCLUDES: NONE C.....ARGUMENTS: NONE C.....PARAMETERS: NONE C.....EXTERNAL FUNCTIONS: NONE C.....SAVED VARIABLES: NONE ! CHARACTER( 16 ), SAVE :: PNAME = 'HRPRODLOSS' ! Program name C.....LOCAL VARIABLES: C*********************************************************************** PROD( H2O2 ) = RXRAT( 52 ) ! HO2+HO2=H2O2 & + RXRAT( 53 ) ! HO2+HO2=H2O2 & + 9.0000D-02 * RXRAT( 90 ) ! ISO+O3=0.9000D-01*H2O2+... & + 6.8000D-02 * RXRAT( 145 ) ! OLT+O3=0.6800D-01*H2O2+... & + 2.6000D-02 * RXRAT( 146 ) ! OLI+O3=0.2600D-01*H2O2+... & + 2.5500D-01 * RXRAT( 147 ) ! API+O3=0.2550D+00*H2O2+... & + 3.3000D-01 * RXRAT( 148 ) ! LIM+O3=0.3300D+00*H2O2+... & + 2.0000D-02 * RXRAT( 149 ) ! LIMAL+O3=0.2000D-01*H2O2+... LOSS( H2O2 ) = RXRAT( 3 ) ! H2O2=0.2000D+01*HO & + RXRAT( 54 ) ! H2O2+HO=HO2 PROD( HNO3 ) = RXRAT( 58 ) ! NO+HO2=HNO3 & + RXRAT( 63 ) ! NO2+HO=HNO3 & + 3.0000D-01 * RXRAT( 66 ) ! NO3+HO2=0.3000D+00*HNO3+... & + 2.0000D+00 * RXRAT( 72 ) ! N2O5=0.2000D+01*HNO3 & + RXRAT( 101 ) ! ISON=HNO3+ROH & + RXRAT( 164 ) ! HCHO+NO3=HNO3+CO+HO2 & + RXRAT( 165 ) ! ACD+NO3=HNO3+ACO3 & + RXRAT( 166 ) ! ALD+NO3=HNO3+RCO3 & + 3.2000D-01 * RXRAT( 167 ) ! MACR+NO3=0.3200D+00*HNO3+... & + RXRAT( 169 ) ! GLY+NO3=HNO3+0.2000D+01*CO+HO2 & + RXRAT( 170 ) ! MGLY+NO3=HNO3+CO+ACO3 & + 4.2400D-01 * RXRAT( 171 ) ! PHEN+NO3=0.4240D+00*HNO3+... & + 4.0000D-01 * RXRAT( 172 ) ! CSL+NO3=0.4000D+00*HNO3+... & + RXRAT( 173 ) ! MCT+NO3=HNO3+MCTO & + 3.2000D-01 * RXRAT( 395 ) ! ACRO+NO3=0.3200D+00*HNO3+... & + 2.0000D+00 * RXRAT( 423 ) ! N2O5=0.2000D+01*HNO3 & + 5.0000D-01 * RXRAT( 424 ) ! NO2=0.5000D+00*HNO3+... & + RXRAT( 426 ) ! NO3=HNO3 & + RXRAT( 432 ) ! INALD=HNO3+AISO5J & + RXRAT( 524 ) ! ATRPNJ=HNO3+AHOMJ & + RXRAT( 525 ) ! AHONITJ=HNO3+AHOMJ LOSS( HNO3 ) = RXRAT( 8 ) ! HNO3=HO+NO2 & + RXRAT( 64 ) ! HNO3+HO=NO3 PROD( HCHO ) = 3.5000D-01 * RXRAT( 16 ) ! UALD=0.3500D+00*HCHO+... & + RXRAT( 21 ) ! HKET=HCHO+ACO3+HO2 & + 6.7000D-01 * RXRAT( 22 ) ! MACR=0.6700D+00*HCHO+... & + RXRAT( 25 ) ! GLY=HCHO+CO & + RXRAT( 31 ) ! OP1=HCHO+HO2+HO & + RXRAT( 90 ) ! ISO+O3=HCHO+0.2500D+00*HO2+... & + 3.5000D-01 * RXRAT( 91 ) ! ISO+NO3=0.3500D+00*HCHO+... & + 2.5000D-01 * RXRAT( 92 ) ! ISO+HO=0.2500D+00*HCHO+... & + 4.0000D-01 * RXRAT( 94 ) ! ISOP+NO=0.4000D+00*HCHO+... & + 2.0000D-01 * RXRAT( 98 ) ! INO2+NO=0.2000D+00*HCHO+... & + RXRAT( 100 ) ! HO+INALD=HCHO+NO2+0.3000D+... & + RXRAT( 126 ) ! MOH+HO=HCHO+HO2 & + 3.5000D-01 * RXRAT( 130 ) ! OP1+HO=0.3500D+00*HCHO+... & + 3.5000D-01 * RXRAT( 137 ) ! PAA+HO=0.3500D+00*HCHO+... & + RXRAT( 138 ) ! PAN+HO=HCHO+NO3+XO2 & + RXRAT( 139 ) ! PPN+HO=HCHO+NO3+XO2 & + 2.1000D-01 * RXRAT( 142 ) ! TRPN+HO=0.2100D+00*HCHO+... & + RXRAT( 144 ) ! ETE+O3=HCHO+0.1500D+00*HO2+... & + 5.6000D-01 * RXRAT( 145 ) ! OLT+O3=0.5600D+00*HCHO+... & + 9.0000D-02 * RXRAT( 146 ) ! OLI+O3=0.9000D-01*HCHO+... & + 4.5900D-01 * RXRAT( 147 ) ! API+O3=0.4590D+00*HCHO+... & + 3.3000D-01 * RXRAT( 148 ) ! LIM+O3=0.3300D+00*HCHO+... & + 6.2000D-01 * RXRAT( 149 ) ! LIMAL+O3=0.6200D+00*HCHO+... & + 2.1000D-01 * RXRAT( 150 ) ! TRPN+O3=0.2100D+00*HCHO+... & + 1.0000D-01 * RXRAT( 152 ) ! MVK+O3=0.1000D+00*HCHO+... & + 8.0000D-02 * RXRAT( 153 ) ! UALD+O3=0.8000D-01*HCHO+... & + 5.0000D-02 * RXRAT( 154 ) ! DCB1+O3=0.5000D-01*HCHO+... & + 5.0000D-02 * RXRAT( 155 ) ! DCB2+O3=0.5000D-01*HCHO+... & + 2.1000D-01 * RXRAT( 163 ) ! TRPN+NO3=0.2100D+00*HCHO+... & + 6.8000D-01 * RXRAT( 167 ) ! MACR+NO3=0.6800D+00*HCHO+... & + 3.3200D-01 * RXRAT( 168 ) ! UALD+NO3=0.3320D+00*HCHO+... & + RXRAT( 183 ) ! MO2+NO=HCHO+NO2+HO2 & + 1.8000D-02 * RXRAT( 186 ) ! HC5P+NO=0.1800D-01*HCHO+... & + 1.6000D+00 * RXRAT( 187 ) ! ETEP+NO=0.1600D+01*HCHO+... & + 7.8000D-01 * RXRAT( 188 ) ! OLTP+NO=0.7800D+00*HCHO+... & + 3.0800D-01 * RXRAT( 194 ) ! APIP1+NO=0.3080D+00*HCHO+... & + 7.0000D-03 * RXRAT( 196 ) ! APINP1+NO=0.7000D-02*HCHO+... & + 4.3000D-01 * RXRAT( 198 ) ! LIMP1+NO=0.4300D+00*HCHO+... & + 3.6000D-01 * RXRAT( 203 ) ! LIMALP+NO=0.3600D+00*HCHO+... & + RXRAT( 206 ) ! ACTP+NO=HCHO+NO2+ACO3 & + 3.3000D-01 * RXRAT( 207 ) ! MEKP+NO=0.3300D+00*HCHO+... & + 6.5000D-01 * RXRAT( 209 ) ! MACP+NO=0.6500D+00*HCHO+... & + 5.0000D-01 * RXRAT( 210 ) ! MCP+NO=0.5000D+00*HCHO+... & + 3.0000D-01 * RXRAT( 211 ) ! MVKP+NO=0.3000D+00*HCHO+... & + 3.0000D-02 * RXRAT( 212 ) ! UALP+NO=0.3000D-01*HCHO+... & + 2.8700D-01 * RXRAT( 219 ) ! OLND+NO=0.2870D+00*HCHO+... & + 6.2500D-02 * RXRAT( 236 ) ! APIP1+HO2=0.6250D-01*HCHO+... & + 7.0000D-03 * RXRAT( 238 ) ! APINP1+HO2=0.7000D-02*HCHO+... & + 6.0000D-02 * RXRAT( 240 ) ! LIMP1+HO2=0.6000D-01*HCHO+... & + 1.0000D-01 * RXRAT( 245 ) ! LIMALP+HO2=0.1000D+00*HCHO+... & + 1.5000D-01 * RXRAT( 248 ) ! ACTP+HO2=0.1500D+00*HCHO+... & + 1.3700D+00 * RXRAT( 263 ) ! MO2+MO2=0.1370D+01*HCHO+... & + 7.5000D-01 * RXRAT( 264 ) ! ETHP+MO2=0.7500D+00*HCHO+... & + 8.2700D-01 * RXRAT( 265 ) ! HC3P+MO2=0.8270D+00*HCHO+... & + 7.7700D-01 * RXRAT( 266 ) ! HC5P+MO2=0.7770D+00*HCHO+... & + 1.9500D+00 * RXRAT( 267 ) ! ETEP+MO2=0.1950D+01*HCHO+... & + 1.5000D+00 * RXRAT( 268 ) ! OLTP+MO2=0.1500D+01*HCHO+... & + 7.5000D-01 * RXRAT( 269 ) ! OLIP+MO2=0.7500D+00*HCHO+... & + 6.8000D-01 * RXRAT( 270 ) ! BENP+MO2=0.6800D+00*HCHO+... & + 6.8000D-01 * RXRAT( 271 ) ! TOLP+MO2=0.6800D+00*HCHO+... & + 6.8000D-01 * RXRAT( 272 ) ! XYLP+MO2=0.6800D+00*HCHO+... & + 6.8000D-01 * RXRAT( 273 ) ! EBZP+MO2=0.6800D+00*HCHO+... & + 1.3100D+00 * RXRAT( 274 ) ! ISOP+MO2=0.1310D+01*HCHO+... & + 1.0295D+00 * RXRAT( 275 ) ! APIP1+MO2=0.1030D+01*HCHO+... & + 7.5000D-01 * RXRAT( 276 ) ! APIP2+MO2=0.7500D+00*HCHO+... & + 9.6400D-01 * RXRAT( 277 ) ! APINP1+MO2=0.9640D+00*HCHO+... & + 7.5000D-01 * RXRAT( 278 ) ! APINP2+MO2=0.7500D+00*HCHO+... & + 1.0300D+00 * RXRAT( 279 ) ! LIMP1+MO2=0.1030D+01*HCHO+... & + 7.5000D-01 * RXRAT( 280 ) ! LIMP2+MO2=0.7500D+00*HCHO+... & + 9.1000D-01 * RXRAT( 281 ) ! LIMNP1+MO2=0.9100D+00*HCHO+... & + 7.5000D-01 * RXRAT( 282 ) ! LIMNP2+MO2=0.7500D+00*HCHO+... & + RXRAT( 283 ) ! ACO3+MO2=HCHO+0.9000D+... & + RXRAT( 284 ) ! RCO3+MO2=HCHO+0.9000D+... & + 1.5000D+00 * RXRAT( 285 ) ! ACTP+MO2=0.1500D+01*HCHO+... & + RXRAT( 286 ) ! MEKP+MO2=HCHO+0.8340D+... & + 7.5000D-01 * RXRAT( 287 ) ! KETP+MO2=0.7500D+00*HCHO+... & + 1.6600D+00 * RXRAT( 288 ) ! MACP+MO2=0.1660D+01*HCHO+... & + 1.5000D+00 * RXRAT( 289 ) ! MCP+MO2=0.1500D+01*HCHO+... & + 1.5000D+00 * RXRAT( 290 ) ! MVKP+MO2=0.1500D+01*HCHO+... & + 7.7300D-01 * RXRAT( 291 ) ! UALP+MO2=0.7730D+00*HCHO+... & + RXRAT( 292 ) ! BALP+MO2=HCHO+BAL1+HO2 & + RXRAT( 293 ) ! BAL1+MO2=HCHO+BAL2+HO2 & + RXRAT( 294 ) ! ADDC+MO2=HCHO+0.2000D+... & + RXRAT( 295 ) ! MCTP+MO2=HCHO+MCTO+HO2 & + RXRAT( 296 ) ! ORAP+MO2=HCHO+HO2+GLY & + RXRAT( 297 ) ! OLNN+MO2=HCHO+0.2000D+... & + 9.6500D-01 * RXRAT( 298 ) ! OLND+MO2=0.9650D+00*HCHO+... & + RXRAT( 299 ) ! ADCN+MO2=HCHO+0.7000D+... & + RXRAT( 300 ) ! XO2+MO2=HCHO+HO2 & + 1.3000D-01 * RXRAT( 302 ) ! HC3P+ACO3=0.1300D+00*HCHO+... & + 4.2000D-02 * RXRAT( 303 ) ! HC5P+ACO3=0.4200D-01*HCHO+... & + 1.6000D+00 * RXRAT( 304 ) ! ETEP+ACO3=0.1600D+01*HCHO+... & + RXRAT( 305 ) ! OLTP+ACO3=HCHO+0.5000D+... & + 1.0480D+00 * RXRAT( 311 ) ! ISOP+ACO3=0.1048D+01*HCHO+... & + 4.0300D-01 * RXRAT( 312 ) ! APIP1+ACO3=0.4030D+00*HCHO+... & + 7.0000D-03 * RXRAT( 314 ) ! APINP1+ACO3=0.7000D-... & + 5.6000D-01 * RXRAT( 316 ) ! LIMP1+ACO3=0.5600D+00*HCHO+... & + RXRAT( 322 ) ! ACTP+ACO3=HCHO+0.5000D+... & + 3.3000D-01 * RXRAT( 323 ) ! MEKP+ACO3=0.3300D+00*HCHO+... & + RXRAT( 325 ) ! MACP+ACO3=HCHO+0.5000D+... & + RXRAT( 326 ) ! MCP+ACO3=HCHO+0.5000D+... & + RXRAT( 327 ) ! MVKP+ACO3=HCHO+0.5000D+... & + 3.0000D-02 * RXRAT( 328 ) ! UALP+ACO3=0.3000D-01*HCHO+... & + 2.8700D-01 * RXRAT( 335 ) ! OLND+ACO3=0.2870D+00*HCHO+... & + RXRAT( 339 ) ! MO2+NO3=HCHO+HO2+NO2 & + 2.4000D-02 * RXRAT( 342 ) ! HC5P+NO3=0.2400D-01*HCHO+... & + 1.6000D+00 * RXRAT( 343 ) ! ETEP+NO3=0.1600D+01*HCHO+... & + 7.9000D-01 * RXRAT( 344 ) ! OLTP+NO3=0.7900D+00*HCHO+... & + 7.5000D-01 * RXRAT( 350 ) ! ISOP+NO3=0.7500D+00*HCHO+... & + 4.0300D-01 * RXRAT( 351 ) ! APIP1+NO3=0.4030D+00*HCHO+... & + 5.6000D-01 * RXRAT( 352 ) ! LIMP1+NO3=0.5600D+00*HCHO+... & + 7.0000D-03 * RXRAT( 353 ) ! APINP1+NO3=0.7000D-02*HCHO+... & + RXRAT( 357 ) ! ACTP+NO3=HCHO+NO2+ACO3 & + 3.3000D-01 * RXRAT( 358 ) ! MEKP+NO3=0.3300D+00*HCHO+... & + RXRAT( 360 ) ! MACP+NO3=HCHO+0.5380D+... & + RXRAT( 361 ) ! MCP+NO3=HCHO+HO2+NO2+HKET & + 3.0000D-01 * RXRAT( 362 ) ! MVKP+NO3=0.3000D+00*HCHO+... & + 3.0000D-02 * RXRAT( 363 ) ! UALP+NO3=0.3000D-01*HCHO+... & + 2.8700D-01 * RXRAT( 370 ) ! OLND+NO3=0.2870D+00*HCHO+... & + 2.0200D-01 * RXRAT( 373 ) ! OLNN+OLND=0.2020D+00*HCHO+... & + 5.0400D-01 * RXRAT( 374 ) ! OLND+OLND=0.5040D+00*HCHO+... & + 4.8000D-01 * RXRAT( 380 ) ! APIP2+ISOP=0.4800D+00*HCHO+... & + 4.8000D-01 * RXRAT( 383 ) ! LIMP2+ISOP=0.4800D+00*HCHO+... & + 4.8000D-01 * RXRAT( 386 ) ! APINP2+ISOP=0.4800D+... & + 4.8000D-01 * RXRAT( 389 ) ! LIMNP2+ISOP=0.4800D+... & + 7.2000D-01 * RXRAT( 394 ) ! ACRO+O3=0.7200D+00*HCHO+... & + 6.8000D-01 * RXRAT( 395 ) ! ACRO+NO3=0.6800D+00*HCHO+... & + 1.5000D-01 * RXRAT( 396 ) ! ACRO=0.1500D+00*HCHO+... & + 8.9500D-01 * RXRAT( 398 ) ! BDE13P+NO=0.8950D+00*HCHO+... & + 9.2500D-01 * RXRAT( 399 ) ! BDE13P+NO3=0.9250D+00*HCHO+... & + 1.1430D+00 * RXRAT( 401 ) ! BDE13P+MO2=0.1143D+01*HCHO+... & + 7.4000D-01 * RXRAT( 402 ) ! BDE13P+ACO3=0.7400D+... & + 8.3000D-01 * RXRAT( 403 ) ! BDE13+O3=0.8300D+00*HCHO+... & + 6.8000D-01 * RXRAT( 493 ) ! VROCP6AROP+MO2=0.6800D+... & + 6.8000D-01 * RXRAT( 499 ) ! VROCP5AROP+MO2=0.6800D+... & + 6.8000D-01 * RXRAT( 505 ) ! NAPHP+MO2=0.6800D+00*HCHO+... & + RXRAT( 528 ) ! STYP+NO=HCHO+HO2+NO2+BALD & + RXRAT( 529 ) ! STYP+NO3=HCHO+HO2+NO2+BALD & + 1.6800D+00 * RXRAT( 530 ) ! STYP+MO2=0.1680D+01*HCHO+... & + RXRAT( 531 ) ! STYP+ACO3=HCHO+HO2+BALD+... LOSS( HCHO ) = RXRAT( 10 ) ! HCHO=CO & + RXRAT( 11 ) ! HCHO=0.2000D+01*HO2+CO & + RXRAT( 107 ) ! HCHO+HO=HO2+CO & + RXRAT( 164 ) ! HCHO+NO3=HO2+CO+HNO3 PROD( CO ) = RXRAT( 10 ) ! HCHO=CO & + RXRAT( 11 ) ! HCHO=CO+0.2000D+01*HO2 & + RXRAT( 12 ) ! ACD=CO+MO2+HO2 & + RXRAT( 13 ) ! ALD=CO+ETHP+HO2 & + RXRAT( 15 ) ! ACT=CO+0.2000D+01*MO2 & + 1.2200D+00 * RXRAT( 16 ) ! UALD=0.1220D+01*CO+0.7840D+... & + RXRAT( 17 ) ! PINAL=CO+HC10P+HO2 & + RXRAT( 18 ) ! LIMAL=CO+HC10P+HO2 & + 1.0000D-01 * RXRAT( 19 ) ! MEK=0.1000D+00*CO+ETHP+... & + 5.0000D-01 * RXRAT( 20 ) ! KET=0.5000D+00*CO+0.5000D+... & + 6.7000D-01 * RXRAT( 22 ) ! MACR=0.6700D+00*CO+0.6600D+... & + 7.0000D-01 * RXRAT( 23 ) ! MVK=0.7000D+00*CO+0.3000D+... & + 2.0000D+00 * RXRAT( 24 ) ! GLY=0.2000D+01*CO & + RXRAT( 25 ) ! GLY=CO+HCHO & + 2.0000D+00 * RXRAT( 26 ) ! GLY=0.2000D+01*CO+0.2000D+... & + RXRAT( 27 ) ! MGLY=CO+ACO3+HO2 & + RXRAT( 28 ) ! DCB1=CO+0.2500D+00*ACO3+... & + RXRAT( 29 ) ! DCB2=CO+0.2500D+00*ACO3+... & + RXRAT( 30 ) ! BALD=CO+HO2+CHO & + 3.5000D-01 * RXRAT( 85 ) ! ACE+HO=0.3500D+00*CO+... & + 2.2000D-01 * RXRAT( 90 ) ! ISO+O3=0.2200D+00*CO+... & + RXRAT( 96 ) ! ISHP+HO=CO+0.2000D-01*GLY+... & + RXRAT( 100 ) ! HO+INALD=CO+NO2+0.3000D+... & + RXRAT( 107 ) ! HCHO+HO=CO+HO2 & + 2.0000D+00 * RXRAT( 117 ) ! GLY+HO=0.2000D+01*CO+HO2 & + RXRAT( 118 ) ! MGLY+HO=CO+ACO3 & + 3.3000D-01 * RXRAT( 119 ) ! DCB1+HO=0.3300D+00*CO+... & + 3.3000D-01 * RXRAT( 120 ) ! DCB2+HO=0.3300D+00*CO+... & + 1.1000D-01 * RXRAT( 121 ) ! DCB3+HO=0.1100D+00*CO+... & + 4.3000D-01 * RXRAT( 144 ) ! ETE+O3=0.4300D+00*CO+... & + 4.3000D-01 * RXRAT( 145 ) ! OLT+O3=0.4300D+00*CO+... & + 3.7000D-01 * RXRAT( 146 ) ! OLI+O3=0.3700D+00*CO+... & + 1.1050D-01 * RXRAT( 147 ) ! API+O3=0.1105D+00*CO+... & + 2.2000D-01 * RXRAT( 151 ) ! MACR+O3=0.2200D+00*CO+... & + 5.6000D-01 * RXRAT( 152 ) ! MVK+O3=0.5600D+00*CO+... & + 2.4300D-01 * RXRAT( 153 ) ! UALD+O3=0.2430D+00*CO+... & + 1.5000D+00 * RXRAT( 154 ) ! DCB1+O3=0.1500D+01*CO+HO2+... & + 1.5000D+00 * RXRAT( 155 ) ! DCB2+O3=0.1500D+01*CO+HO2+... & + 1.5000D+00 * RXRAT( 156 ) ! DCB3+O3=0.1500D+01*CO+HO2+... & + RXRAT( 164 ) ! HCHO+NO3=CO+HO2+HNO3 & + 6.6800D-01 * RXRAT( 168 ) ! UALD+NO3=0.6680D+00*CO+XO2+... & + 2.0000D+00 * RXRAT( 169 ) ! GLY+NO3=0.2000D+01*CO+HO2+HNO3 & + RXRAT( 170 ) ! MGLY+NO3=CO+ACO3+HNO3 & + 6.5000D-01 * RXRAT( 209 ) ! MACP+NO=0.6500D+00*CO+... & + 6.1000D-01 * RXRAT( 212 ) ! UALP+NO=0.6100D+00*CO+NO2+... & + 5.0000D-01 * RXRAT( 288 ) ! MACP+MO2=0.5000D+00*CO+... & + 3.0500D-01 * RXRAT( 291 ) ! UALP+MO2=0.3050D+00*CO+HO2+... & + 5.0000D-01 * RXRAT( 325 ) ! MACP+ACO3=0.5000D+00*CO+... & + 5.0000D-01 * RXRAT( 328 ) ! UALP+ACO3=0.5000D+00*CO+... & + RXRAT( 360 ) ! MACP+NO3=CO+0.5380D+... & + 6.1000D-01 * RXRAT( 363 ) ! UALP+NO3=0.6100D+00*CO+NO2+... & + 8.4000D-01 * RXRAT( 394 ) ! ACRO+O3=0.8400D+00*CO+... & + RXRAT( 396 ) ! ACRO=CO+0.4770D+00*HO2+... & + 6.3000D-01 * RXRAT( 403 ) ! BDE13+O3=0.6300D+00*CO+... & + 4.3000D-01 * RXRAT( 408 ) ! FURANONE+HO=0.4300D+00*CO+... LOSS( CO ) = RXRAT( 77 ) ! CO+HO=HO2 PROD( ACD ) = RXRAT( 127 ) ! EOH+HO=ACD+HO2 & + 1.8400D-01 * RXRAT( 128 ) ! ROH+HO=0.1840D+00*ACD+... & + 1.0000D-02 * RXRAT( 145 ) ! OLT+O3=0.1000D-01*ACD+... & + 4.5700D-01 * RXRAT( 146 ) ! OLI+O3=0.4570D+00*ACD+... & + 4.2000D-01 * RXRAT( 153 ) ! UALD+O3=0.4200D+00*ACD+... & + RXRAT( 184 ) ! ETHP+NO=ACD+NO2+HO2 & + 5.0400D-01 * RXRAT( 185 ) ! HC3P+NO=0.5040D+00*ACD+... & + 4.5000D-02 * RXRAT( 186 ) ! HC5P+NO=0.4500D-01*ACD+... & + 1.2000D-02 * RXRAT( 188 ) ! OLTP+NO=0.1200D-01*ACD+... & + 8.1000D-01 * RXRAT( 189 ) ! OLIP+NO=0.8100D+00*ACD+... & + 7.5000D-01 * RXRAT( 264 ) ! ETHP+MO2=0.7500D+00*ACD+... & + RXRAT( 301 ) ! ETHP+ACO3=ACD+0.5000D+... & + RXRAT( 340 ) ! ETHP+NO3=ACD+NO2+HO2 & + 5.1900D-01 * RXRAT( 341 ) ! HC3P+NO3=0.5190D+00*ACD+... & + 4.8000D-02 * RXRAT( 342 ) ! HC5P+NO3=0.4800D-01*ACD+... & + 2.0000D-02 * RXRAT( 344 ) ! OLTP+NO3=0.2000D-01*ACD+... & + 8.5000D-01 * RXRAT( 345 ) ! OLIP+NO3=0.8500D+00*ACD+... & + 2.5810D-01 * RXRAT( 507 ) ! VROCN2OXY8+HO=0.2581D+... & + 7.9400D-02 * RXRAT( 508 ) ! VROCN2OXY4+HO=0.7940D-... & + 3.9000D-02 * RXRAT( 509 ) ! VROCN2OXY2+HO=0.3900D-... & + 1.8400D-01 * RXRAT( 510 ) ! VROCN1OXY6+HO=0.1840D+... & + 6.4600D-02 * RXRAT( 511 ) ! VROCN1OXY3+HO=0.6460D-... & + 2.4400D-02 * RXRAT( 512 ) ! VROCN1OXY1+HO=0.2440D-... & + 1.0680D-01 * RXRAT( 513 ) ! VROCP0OXY4+HO=0.1068D+... & + 4.4500D-02 * RXRAT( 514 ) ! VROCP0OXY2+HO=0.4450D-... & + 8.1800D-02 * RXRAT( 515 ) ! VROCP1OXY3+HO=0.8180D-... & + 2.9700D-02 * RXRAT( 516 ) ! VROCP1OXY1+HO=0.2970D-... & + 6.2800D-02 * RXRAT( 517 ) ! VROCP2OXY2+HO=0.6280D-... & + 6.9800D-02 * RXRAT( 518 ) ! VROCP3OXY2+HO=0.6980D-... & + 7.8600D-02 * RXRAT( 519 ) ! VROCP4OXY2+HO=0.7860D-... & + 5.2600D-02 * RXRAT( 520 ) ! VROCP5OXY1+HO=0.5260D-... & + 5.7100D-02 * RXRAT( 521 ) ! VROCP6OXY1+HO=0.5710D-... & + 2.2660D-01 * RXRAT( 522 ) ! OP3+HO=0.2266D+00*ACD+... LOSS( ACD ) = RXRAT( 12 ) ! ACD=HO2+MO2+CO & + RXRAT( 108 ) ! ACD+HO=ACO3 & + RXRAT( 165 ) ! ACD+NO3=ACO3+HNO3 PROD( MO2 ) = RXRAT( 12 ) ! ACD=MO2+HO2+CO & + RXRAT( 14 ) ! ACT=MO2+ACO3 & + 2.0000D+00 * RXRAT( 15 ) ! ACT=0.2000D+01*MO2+CO & + 1.0000D-01 * RXRAT( 19 ) ! MEK=0.1000D+00*MO2+ETHP+... & + 3.0000D-01 * RXRAT( 23 ) ! MVK=0.3000D+00*MO2+0.3000D+... & + RXRAT( 35 ) ! PAA=MO2+HO & + RXRAT( 38 ) ! PAN=MO2+NO3 & + RXRAT( 78 ) ! HO=MO2 & + 4.0000D-01 * RXRAT( 90 ) ! ISO+O3=0.4000D+00*MO2+... & + 6.5000D-01 * RXRAT( 130 ) ! OP1+HO=0.6500D+00*MO2+... & + 6.4000D-01 * RXRAT( 136 ) ! ORA2+HO=0.6400D+00*MO2+... & + 8.0000D-02 * RXRAT( 145 ) ! OLT+O3=0.8000D-01*MO2+... & + 3.2000D-01 * RXRAT( 146 ) ! OLI+O3=0.3200D+00*MO2+... & + 8.0000D-03 * RXRAT( 153 ) ! UALD+O3=0.8000D-02*MO2+... & + 1.3100D-01 * RXRAT( 185 ) ! HC3P+NO=0.1310D+00*MO2+... & + 5.1000D-02 * RXRAT( 186 ) ! HC5P+NO=0.5100D-01*MO2+... & + RXRAT( 204 ) ! ACO3+NO=MO2+NO2 & + 6.5000D-01 * RXRAT( 209 ) ! MACP+NO=0.6500D+00*MO2+... & + 4.4000D-01 * RXRAT( 246 ) ! ACO3+HO2=0.4400D+00*MO2+... & + 5.0000D-01 * RXRAT( 301 ) ! ETHP+ACO3=0.5000D+00*MO2+... & + 5.8000D-01 * RXRAT( 302 ) ! HC3P+ACO3=0.5800D+00*MO2+... & + 5.1800D-01 * RXRAT( 303 ) ! HC5P+ACO3=0.5180D+00*MO2+... & + 5.0000D-01 * RXRAT( 304 ) ! ETEP+ACO3=0.5000D+00*MO2+... & + 5.0000D-01 * RXRAT( 305 ) ! OLTP+ACO3=0.5000D+00*MO2+... & + 5.0000D-01 * RXRAT( 306 ) ! OLIP+ACO3=0.5000D+00*MO2+... & + 7.0000D-01 * RXRAT( 307 ) ! BENP+ACO3=0.7000D+00*MO2+... & + 7.0000D-01 * RXRAT( 308 ) ! TOLP+ACO3=0.7000D+00*MO2+... & + 7.0000D-01 * RXRAT( 309 ) ! XYLP+ACO3=0.7000D+00*MO2+... & + 7.0000D-01 * RXRAT( 310 ) ! EBZP+ACO3=0.7000D+00*MO2+... & + 5.0000D-01 * RXRAT( 311 ) ! ISOP+ACO3=0.5000D+00*MO2+... & + RXRAT( 312 ) ! APIP1+ACO3=MO2+0.3710D+... & + 5.0000D-01 * RXRAT( 313 ) ! APIP2+ACO3=0.5000D+00*MO2+... & + RXRAT( 314 ) ! APINP1+ACO3=MO2+0.6500D+... & + 5.0000D-01 * RXRAT( 315 ) ! APINP2+ACO3=0.5000D+00*MO2+... & + RXRAT( 316 ) ! LIMP1+ACO3=MO2+0.5600D+... & + 5.0000D-01 * RXRAT( 317 ) ! LIMP2+ACO3=0.5000D+00*MO2+... & + RXRAT( 318 ) ! LIMNP1+ACO3=MO2+0.4600D+... & + 5.0000D-01 * RXRAT( 319 ) ! LIMNP2+ACO3=0.5000D+00*MO2+... & + 2.0000D+00 * RXRAT( 320 ) ! ACO3+ACO3=0.2000D+01*MO2 & + RXRAT( 321 ) ! RCO3+ACO3=MO2+ETHP & + 5.0000D-01 * RXRAT( 322 ) ! ACTP+ACO3=0.5000D+00*MO2+... & + 5.0000D-01 * RXRAT( 323 ) ! MEKP+ACO3=0.5000D+00*MO2+... & + 5.0000D-01 * RXRAT( 324 ) ! KETP+ACO3=0.5000D+00*MO2+... & + 5.0000D-01 * RXRAT( 325 ) ! MACP+ACO3=0.5000D+00*MO2+... & + 5.0000D-01 * RXRAT( 326 ) ! MCP+ACO3=0.5000D+00*MO2+... & + 5.0000D-01 * RXRAT( 327 ) ! MVKP+ACO3=0.5000D+00*MO2+... & + 5.0000D-01 * RXRAT( 328 ) ! UALP+ACO3=0.5000D+00*MO2+... & + RXRAT( 329 ) ! BALP+ACO3=MO2+BAL1 & + RXRAT( 330 ) ! BAL1+ACO3=MO2+BAL2 & + RXRAT( 331 ) ! ADDC+ACO3=MO2+0.2000D+... & + RXRAT( 332 ) ! MCTP+ACO3=MO2+HO2+MCTO & + RXRAT( 333 ) ! ORAP+ACO3=MO2+GLY & + RXRAT( 334 ) ! OLNN+ACO3=MO2+HO2+ONIT & + 5.0000D-01 * RXRAT( 335 ) ! OLND+ACO3=0.5000D+00*MO2+... & + RXRAT( 336 ) ! ADCN+ACO3=MO2+HO2+0.7000D+... & + RXRAT( 337 ) ! XO2+ACO3=MO2 & + 1.4000D-01 * RXRAT( 341 ) ! HC3P+NO3=0.1400D+00*MO2+... & + 5.5000D-02 * RXRAT( 342 ) ! HC5P+NO3=0.5500D-01*MO2+... & + RXRAT( 355 ) ! ACO3+NO3=MO2+NO2 & + 2.7000D-02 * RXRAT( 396 ) ! ACRO=0.2700D-01*MO2+... & + 7.0000D-01 * RXRAT( 402 ) ! BDE13P+ACO3=0.7000D+00*MO2+... & + 1.7000D-01 * RXRAT( 406 ) ! FURANO2+NO=0.1700D+00*MO2+... & + 8.0000D-02 * RXRAT( 407 ) ! FURANO2+HO2=0.8000D-01*MO2+... & + 3.4000D-01 * RXRAT( 408 ) ! FURANONE+HO=0.3400D+00*MO2+... & + 7.0000D-01 * RXRAT( 494 ) ! VROCP6AROP+ACO3=0.7000D+... & + 7.0000D-01 * RXRAT( 500 ) ! VROCP5AROP+ACO3=0.7000D+... & + 7.0000D-01 * RXRAT( 506 ) ! NAPHP+ACO3=0.7000D+00*MO2+... & + 2.5810D-01 * RXRAT( 507 ) ! VROCN2OXY8+HO=0.2581D+... & + 7.9400D-02 * RXRAT( 508 ) ! VROCN2OXY4+HO=0.7940D-... & + 3.9000D-02 * RXRAT( 509 ) ! VROCN2OXY2+HO=0.3900D-... & + 1.8400D-01 * RXRAT( 510 ) ! VROCN1OXY6+HO=0.1840D+... & + 6.4600D-02 * RXRAT( 511 ) ! VROCN1OXY3+HO=0.6460D-... & + 2.4400D-02 * RXRAT( 512 ) ! VROCN1OXY1+HO=0.2440D-... & + 1.0680D-01 * RXRAT( 513 ) ! VROCP0OXY4+HO=0.1068D+... & + 4.4500D-02 * RXRAT( 514 ) ! VROCP0OXY2+HO=0.4450D-... & + 8.1800D-02 * RXRAT( 515 ) ! VROCP1OXY3+HO=0.8180D-... & + 2.9700D-02 * RXRAT( 516 ) ! VROCP1OXY1+HO=0.2970D-... & + 6.2800D-02 * RXRAT( 517 ) ! VROCP2OXY2+HO=0.6280D-... & + 6.9800D-02 * RXRAT( 518 ) ! VROCP3OXY2+HO=0.6980D-... & + 7.8600D-02 * RXRAT( 519 ) ! VROCP4OXY2+HO=0.7860D-... & + 5.2600D-02 * RXRAT( 520 ) ! VROCP5OXY1+HO=0.5260D-... & + 5.7100D-02 * RXRAT( 521 ) ! VROCP6OXY1+HO=0.5710D-... & + 2.2660D-01 * RXRAT( 522 ) ! OP3+HO=0.2266D+00*MO2+... & + RXRAT( 523 ) ! ECH4+HO=MO2 & + 7.0000D-01 * RXRAT( 531 ) ! STYP+ACO3=0.7000D+00*MO2+... LOSS( MO2 ) = RXRAT( 183 ) ! MO2+NO=HO2+NO2+HCHO & + RXRAT( 225 ) ! MO2+HO2=OP1 & + 2.0000D+00 * RXRAT( 263 ) ! MO2+MO2=0.7400D+00*HO2+... & + RXRAT( 264 ) ! MO2+ETHP=HO2+0.7500D+... & + 9.2000D-01 * RXRAT( 265 ) ! MO2+HC3P=0.8000D-01*MO2+... & + 9.8200D-01 * RXRAT( 266 ) ! MO2+HC5P=0.1800D-01*MO2+... & + RXRAT( 267 ) ! MO2+ETEP=HO2+0.1950D+... & + RXRAT( 268 ) ! MO2+OLTP=HO2+0.1500D+... & + RXRAT( 269 ) ! MO2+OLIP=HO2+0.7500D+... & + RXRAT( 270 ) ! MO2+BENP=0.6800D+00*HCHO+... & + RXRAT( 271 ) ! MO2+TOLP=0.6800D+00*HCHO+... & + RXRAT( 272 ) ! MO2+XYLP=0.6800D+00*HCHO+... & + RXRAT( 273 ) ! MO2+EBZP=0.6800D+00*HCHO+... & + RXRAT( 274 ) ! MO2+ISOP=HO2+0.1310D+... & + RXRAT( 275 ) ! MO2+APIP1=0.1030D+01*HCHO+... & + RXRAT( 276 ) ! MO2+APIP2=HO2+0.7500D+... & + RXRAT( 277 ) ! MO2+APINP1=0.3410D+00*TRPN+... & + RXRAT( 278 ) ! MO2+APINP2=0.7500D+00*HO2+... & + RXRAT( 279 ) ! MO2+LIMP1=0.2500D+00*MOH+... & + RXRAT( 280 ) ! MO2+LIMP2=HO2+0.7500D+... & + RXRAT( 281 ) ! MO2+LIMNP1=0.6900D+00*TRPN+... & + RXRAT( 282 ) ! MO2+LIMNP2=0.7500D+00*HO2+... & + 1.0000D-01 * RXRAT( 283 ) ! MO2+ACO3=0.9000D+00*MO2+... & + 1.0000D-01 * RXRAT( 284 ) ! MO2+RCO3=0.9000D+00*MO2+... & + RXRAT( 285 ) ! MO2+ACTP=0.5000D+00*HO2+... & + RXRAT( 286 ) ! MO2+MEKP=0.8340D+00*HO2+... & + RXRAT( 287 ) ! MO2+KETP=HO2+0.7500D+... & + 7.5000D-01 * RXRAT( 288 ) ! MO2+MACP=0.2500D+00*MO2+... & + RXRAT( 289 ) ! MO2+MCP=NO2+HO2+0.1500D+... & + RXRAT( 290 ) ! MO2+MVKP=HO2+0.1160D+... & + RXRAT( 291 ) ! MO2+UALP=HO2+0.3050D+00*CO+... & + RXRAT( 292 ) ! MO2+BALP=HO2+BAL1+HCHO & + RXRAT( 293 ) ! MO2+BAL1=HO2+BAL2+HCHO & + RXRAT( 294 ) ! MO2+ADDC=0.2000D+01*HO2+... & + RXRAT( 295 ) ! MO2+MCTP=HO2+MCTO+HCHO & + RXRAT( 296 ) ! MO2+ORAP=HCHO+HO2+GLY & + RXRAT( 297 ) ! MO2+OLNN=0.2000D+01*HO2+... & + RXRAT( 298 ) ! MO2+OLND=0.5000D+00*HO2+... & + RXRAT( 299 ) ! MO2+ADCN=HO2+0.7000D+... & + RXRAT( 300 ) ! MO2+XO2=HO2+HCHO & + RXRAT( 339 ) ! MO2+NO3=HO2+HCHO+NO2 & + RXRAT( 401 ) ! MO2+BDE13P=0.3200D+00*MOH+... & + RXRAT( 493 ) ! MO2+VROCP6AROP=0.6800D+... & + RXRAT( 499 ) ! MO2+VROCP5AROP=0.6800D+... & + RXRAT( 505 ) ! MO2+NAPHP=0.6800D+00*HCHO+... & + RXRAT( 530 ) ! MO2+STYP=0.1370D+01*HO2+... PROD( ALD ) = 4.3400D-01 * RXRAT( 16 ) ! UALD=0.4340D+00*ALD+... & + RXRAT( 32 ) ! OP2=ALD+HO2+HO & + RXRAT( 33 ) ! OPB=ALD+HO2+HO & + RXRAT( 34 ) ! OP3=ALD+HO2+HO & + 2.0000D-01 * RXRAT( 36 ) ! ONIT=0.2000D+00*ALD+NO2+... & + 4.0000D-01 * RXRAT( 119 ) ! DCB1+HO=0.4000D+00*ALD+... & + 7.1900D-01 * RXRAT( 128 ) ! ROH+HO=0.7190D+00*ALD+HO2+... & + RXRAT( 129 ) ! ETEG+HO=ALD+HO2 & + 8.0000D-02 * RXRAT( 131 ) ! OP2+HO=0.8000D-01*ALD+... & + 8.0000D-02 * RXRAT( 132 ) ! OPB+HO=0.8000D-01*ALD+... & + 8.0000D-02 * RXRAT( 133 ) ! OP3+HO=0.8000D-01*ALD+... & + 2.0000D-02 * RXRAT( 142 ) ! TRPN+HO=0.2000D-01*ALD+... & + 4.4000D-01 * RXRAT( 145 ) ! OLT+O3=0.4400D+00*ALD+... & + 7.3000D-01 * RXRAT( 146 ) ! OLI+O3=0.7300D+00*ALD+... & + RXRAT( 149 ) ! LIMAL+O3=ALD+0.9000D-01*HO+... & + 2.0000D-02 * RXRAT( 150 ) ! TRPN+O3=0.2000D-01*ALD+... & + 1.0000D-01 * RXRAT( 152 ) ! MVK+O3=0.1000D+00*ALD+... & + 2.0000D-02 * RXRAT( 163 ) ! TRPN+NO3=0.2000D-01*ALD+... & + 3.3200D-01 * RXRAT( 168 ) ! UALD+NO3=0.3320D+00*ALD+... & + 1.3200D-01 * RXRAT( 185 ) ! HC3P+NO=0.1320D+00*ALD+... & + 2.0300D-01 * RXRAT( 186 ) ! HC5P+NO=0.2030D+00*ALD+... & + 2.0000D-01 * RXRAT( 187 ) ! ETEP+NO=0.2000D+00*ALD+NO2+... & + 4.4000D-01 * RXRAT( 188 ) ! OLTP+NO=0.4400D+00*ALD+... & + 6.8000D-01 * RXRAT( 189 ) ! OLIP+NO=0.6800D+00*ALD+... & + 2.8400D-01 * RXRAT( 194 ) ! APIP1+NO=0.2840D+00*ALD+... & + 1.5400D-01 * RXRAT( 196 ) ! APINP1+NO=0.1540D+00*ALD+... & + 4.6000D-01 * RXRAT( 208 ) ! KETP+NO=0.4600D+00*ALD+... & + 7.0000D-01 * RXRAT( 211 ) ! MVKP+NO=0.7000D+00*ALD+... & + 2.7000D-01 * RXRAT( 212 ) ! UALP+NO=0.2700D+00*ALD+NO2+... & + 1.2400D+00 * RXRAT( 219 ) ! OLND+NO=0.1240D+01*ALD+... & + 7.7000D-02 * RXRAT( 238 ) ! APINP1+HO2=0.7700D-01*ALD+... & + 1.9800D-01 * RXRAT( 265 ) ! HC3P+MO2=0.1980D+00*ALD+... & + 2.5100D-01 * RXRAT( 266 ) ! HC5P+MO2=0.2510D+00*ALD+... & + 1.5000D-01 * RXRAT( 267 ) ! ETEP+MO2=0.1500D+00*ALD+... & + 7.0500D-01 * RXRAT( 268 ) ! OLTP+MO2=0.7050D+00*ALD+... & + 1.2800D+00 * RXRAT( 269 ) ! OLIP+MO2=0.1280D+01*ALD+... & + 2.3000D-02 * RXRAT( 274 ) ! ISOP+MO2=0.2300D-01*ALD+... & + 2.3850D-01 * RXRAT( 275 ) ! APIP1+MO2=0.2385D+00*ALD+... & + 1.1900D-01 * RXRAT( 277 ) ! APINP1+MO2=0.1190D+00*ALD+... & + 1.7500D+00 * RXRAT( 290 ) ! MVKP+MO2=0.1750D+01*ALD+... & + 2.0300D-01 * RXRAT( 291 ) ! UALP+MO2=0.2030D+00*ALD+... & + 9.3000D-01 * RXRAT( 298 ) ! OLND+MO2=0.9300D+00*ALD+... & + 2.7300D-01 * RXRAT( 302 ) ! HC3P+ACO3=0.2730D+00*ALD+... & + 3.8100D-01 * RXRAT( 303 ) ! HC5P+ACO3=0.3810D+00*ALD+... & + 2.0000D-01 * RXRAT( 304 ) ! ETEP+ACO3=0.2000D+00*ALD+... & + 9.4000D-01 * RXRAT( 305 ) ! OLTP+ACO3=0.9400D+00*ALD+... & + 1.7100D+00 * RXRAT( 306 ) ! OLIP+ACO3=0.1710D+01*ALD+... & + 3.7100D-01 * RXRAT( 312 ) ! APIP1+ACO3=0.3710D+00*ALD+... & + 1.6800D-01 * RXRAT( 314 ) ! APINP1+ACO3=0.1680D+00*ALD+... & + 2.3000D+00 * RXRAT( 327 ) ! MVKP+ACO3=0.2300D+01*ALD+... & + 2.7000D-01 * RXRAT( 328 ) ! UALP+ACO3=0.2700D+00*ALD+... & + 1.2400D+00 * RXRAT( 335 ) ! OLND+ACO3=0.1240D+01*ALD+... & + 1.4700D-01 * RXRAT( 341 ) ! HC3P+NO3=0.1470D+00*ALD+... & + 2.4100D-01 * RXRAT( 342 ) ! HC5P+NO3=0.2410D+00*ALD+... & + 2.0000D-01 * RXRAT( 343 ) ! ETEP+NO3=0.2000D+00*ALD+... & + 4.7000D-01 * RXRAT( 344 ) ! OLTP+NO3=0.4700D+00*ALD+... & + 7.2000D-01 * RXRAT( 345 ) ! OLIP+NO3=0.7200D+00*ALD+... & + 3.1000D-02 * RXRAT( 350 ) ! ISOP+NO3=0.3100D-01*ALD+... & + 3.7100D-01 * RXRAT( 351 ) ! APIP1+NO3=0.3710D+00*ALD+... & + 1.6800D-01 * RXRAT( 353 ) ! APINP1+NO3=0.1680D+00*ALD+... & + 7.0000D-01 * RXRAT( 362 ) ! MVKP+NO3=0.7000D+00*ALD+... & + 2.7000D-01 * RXRAT( 363 ) ! UALP+NO3=0.2700D+00*ALD+... & + 1.2400D+00 * RXRAT( 370 ) ! OLND+NO3=0.1240D+01*ALD+... & + 6.4000D-01 * RXRAT( 373 ) ! OLNN+OLND=0.6400D+00*ALD+... & + 1.2100D+00 * RXRAT( 374 ) ! OLND+OLND=0.1210D+01*ALD+... & + RXRAT( 409 ) ! FURAN+O3=ALD+0.2000D-01*HO & + 3.8700D-01 * RXRAT( 411 ) ! PROG+HO=0.3870D+00*ALD+... & + 2.5810D-01 * RXRAT( 507 ) ! VROCN2OXY8+HO=0.2581D+... & + 7.9400D-02 * RXRAT( 508 ) ! VROCN2OXY4+HO=0.7940D-... & + 3.9000D-02 * RXRAT( 509 ) ! VROCN2OXY2+HO=0.3900D-... & + 1.8400D-01 * RXRAT( 510 ) ! VROCN1OXY6+HO=0.1840D+... & + 6.4600D-02 * RXRAT( 511 ) ! VROCN1OXY3+HO=0.6460D-... & + 2.4400D-02 * RXRAT( 512 ) ! VROCN1OXY1+HO=0.2440D-... & + 1.0680D-01 * RXRAT( 513 ) ! VROCP0OXY4+HO=0.1068D+... & + 4.4500D-02 * RXRAT( 514 ) ! VROCP0OXY2+HO=0.4450D-... & + 8.1800D-02 * RXRAT( 515 ) ! VROCP1OXY3+HO=0.8180D-... & + 2.9700D-02 * RXRAT( 516 ) ! VROCP1OXY1+HO=0.2970D-... & + 6.2800D-02 * RXRAT( 517 ) ! VROCP2OXY2+HO=0.6280D-... & + 6.9800D-02 * RXRAT( 518 ) ! VROCP3OXY2+HO=0.6980D-... & + 7.8600D-02 * RXRAT( 519 ) ! VROCP4OXY2+HO=0.7860D-... & + 5.2600D-02 * RXRAT( 520 ) ! VROCP5OXY1+HO=0.5260D-... & + 5.7100D-02 * RXRAT( 521 ) ! VROCP6OXY1+HO=0.5710D-... & + 2.2660D-01 * RXRAT( 522 ) ! OP3+HO=0.2266D+00*ALD+... LOSS( ALD ) = RXRAT( 13 ) ! ALD=HO2+ETHP+CO & + RXRAT( 109 ) ! ALD+HO=RCO3 & + RXRAT( 166 ) ! ALD+NO3=RCO3+HNO3 PROD( ETHP ) = RXRAT( 13 ) ! ALD=ETHP+HO2+CO & + RXRAT( 19 ) ! MEK=ETHP+0.1000D+00*MO2+... & + 1.5000D+00 * RXRAT( 20 ) ! KET=0.1500D+01*ETHP+... & + RXRAT( 79 ) ! ETH+HO=ETHP & + 6.0000D-02 * RXRAT( 145 ) ! OLT+O3=0.6000D-01*ETHP+... & + 7.0000D-02 * RXRAT( 146 ) ! OLI+O3=0.7000D-01*ETHP+... & + 4.8000D-02 * RXRAT( 185 ) ! HC3P+NO=0.4800D-01*ETHP+... & + 2.3100D-01 * RXRAT( 186 ) ! HC5P+NO=0.2310D+00*ETHP+... & + RXRAT( 205 ) ! RCO3+NO=ETHP+NO2 & + 4.4000D-01 * RXRAT( 247 ) ! RCO3+HO2=0.4400D+00*ETHP+... & + 2.6000D-02 * RXRAT( 265 ) ! HC3P+MO2=0.2600D-01*ETHP+... & + 1.4000D-01 * RXRAT( 266 ) ! HC5P+MO2=0.1400D+00*ETHP+... & + 2.6000D-02 * RXRAT( 302 ) ! HC3P+ACO3=0.2600D-01*ETHP+... & + 1.4000D-01 * RXRAT( 303 ) ! HC5P+ACO3=0.1400D+00*ETHP+... & + RXRAT( 321 ) ! RCO3+ACO3=ETHP+MO2 & + 2.0000D+00 * RXRAT( 338 ) ! RCO3+RCO3=0.2000D+01*ETHP & + 5.0300D-01 * RXRAT( 341 ) ! HC3P+NO3=0.5030D+00*ETHP+... & + 2.8000D-01 * RXRAT( 342 ) ! HC5P+NO3=0.2800D+00*ETHP+... & + RXRAT( 356 ) ! RCO3+NO3=ETHP+NO2 & + RXRAT( 376 ) ! XO2+RCO3=ETHP & + 8.5200D-01 * RXRAT( 391 ) ! VROCIOXY+HO=0.8520D+... & + RXRAT( 392 ) ! SLOWROC+HO=ETHP+0.1010D-... & + 2.5810D-01 * RXRAT( 507 ) ! VROCN2OXY8+HO=0.2581D+... & + 7.9400D-02 * RXRAT( 508 ) ! VROCN2OXY4+HO=0.7940D-... & + 3.9000D-02 * RXRAT( 509 ) ! VROCN2OXY2+HO=0.3900D-... & + 1.8400D-01 * RXRAT( 510 ) ! VROCN1OXY6+HO=0.1840D+... & + 6.4600D-02 * RXRAT( 511 ) ! VROCN1OXY3+HO=0.6460D-... & + 2.4400D-02 * RXRAT( 512 ) ! VROCN1OXY1+HO=0.2440D-... & + 1.0680D-01 * RXRAT( 513 ) ! VROCP0OXY4+HO=0.1068D+... & + 4.4500D-02 * RXRAT( 514 ) ! VROCP0OXY2+HO=0.4450D-... & + 8.1800D-02 * RXRAT( 515 ) ! VROCP1OXY3+HO=0.8180D-... & + 2.9700D-02 * RXRAT( 516 ) ! VROCP1OXY1+HO=0.2970D-... & + 6.2800D-02 * RXRAT( 517 ) ! VROCP2OXY2+HO=0.6280D-... & + 6.9800D-02 * RXRAT( 518 ) ! VROCP3OXY2+HO=0.6980D-... & + 7.8600D-02 * RXRAT( 519 ) ! VROCP4OXY2+HO=0.7860D-... & + 5.2600D-02 * RXRAT( 520 ) ! VROCP5OXY1+HO=0.5260D-... & + 5.7100D-02 * RXRAT( 521 ) ! VROCP6OXY1+HO=0.5710D-... & + 2.2660D-01 * RXRAT( 522 ) ! OP3+HO=0.2266D+00*ETHP+... LOSS( ETHP ) = RXRAT( 184 ) ! ETHP+NO=HO2+NO2+ACD & + RXRAT( 226 ) ! ETHP+HO2=OP2 & + RXRAT( 264 ) ! ETHP+MO2=HO2+0.7500D+... & + RXRAT( 301 ) ! ETHP+ACO3=0.5000D+00*HO2+... & + RXRAT( 340 ) ! ETHP+NO3=HO2+NO2+ACD PROD( ACT ) = 3.0000D-02 * RXRAT( 145 ) ! OLT+O3=0.3000D-01*ACT+... & + 1.1000D-01 * RXRAT( 146 ) ! OLI+O3=0.1100D+00*ACT+... & + 1.6500D-01 * RXRAT( 185 ) ! HC3P+NO=0.1650D+00*ACT+... & + 2.1700D-01 * RXRAT( 186 ) ! HC5P+NO=0.2170D+00*ACT+... & + 6.0000D-02 * RXRAT( 188 ) ! OLTP+NO=0.6000D-01*ACT+... & + 2.0000D-01 * RXRAT( 189 ) ! OLIP+NO=0.2000D+00*ACT+... & + 8.6500D-02 * RXRAT( 194 ) ! APIP1+NO=0.8650D-01*ACT+... & + 3.9000D-02 * RXRAT( 236 ) ! APIP1+HO2=0.3900D-01*ACT+... & + 6.7000D-02 * RXRAT( 275 ) ! APIP1+MO2=0.6700D-01*ACT+... & + 1.1650D-01 * RXRAT( 312 ) ! APIP1+ACO3=0.1165D+00*ACT+... & + 9.5000D-02 * RXRAT( 341 ) ! HC3P+NO3=0.9500D-01*ACT+... & + 2.4700D-01 * RXRAT( 342 ) ! HC5P+NO3=0.2470D+00*ACT+... & + 9.0000D-02 * RXRAT( 344 ) ! OLTP+NO3=0.9000D-01*ACT+... & + 2.0000D-01 * RXRAT( 345 ) ! OLIP+NO3=0.2000D+00*ACT+... & + 1.1650D-01 * RXRAT( 351 ) ! APIP1+NO3=0.1165D+00*ACT+... LOSS( ACT ) = RXRAT( 14 ) ! ACT=MO2+ACO3 & + RXRAT( 15 ) ! ACT=0.2000D+01*MO2+CO & + RXRAT( 110 ) ! ACT+HO=ACTP PROD( UALD ) = 7.0000D-01 * RXRAT( 23 ) ! MVK=0.7000D+00*UALD+... & + 3.3000D-01 * RXRAT( 39 ) ! TRPN=0.3300D+00*UALD+... & + 3.3300D-01 * RXRAT( 397 ) ! BDE13+HO=0.3330D+00*UALD+... & + 1.9000D-02 * RXRAT( 401 ) ! BDE13P+MO2=0.1900D-01*UALD+... & + 1.5000D-02 * RXRAT( 402 ) ! BDE13P+ACO3=0.1500D-... LOSS( UALD ) = RXRAT( 16 ) ! UALD=0.1220D+01*HO2+... & + RXRAT( 116 ) ! UALD+HO=0.3130D+00*ACO3+... & + RXRAT( 153 ) ! UALD+O3=0.1000D+00*HO+... & + RXRAT( 168 ) ! UALD+NO3=HO2+XO2+0.6680D+... PROD( KET ) = 2.1600D-01 * RXRAT( 16 ) ! UALD=0.2160D+00*KET+... & + 8.0000D-01 * RXRAT( 36 ) ! ONIT=0.8000D+00*KET+NO2+... & + 6.7000D-01 * RXRAT( 39 ) ! TRPN=0.6700D+00*KET+NO2+... & + 7.8000D-01 * RXRAT( 119 ) ! DCB1+HO=0.7800D+00*KET+... & + 4.1000D-01 * RXRAT( 131 ) ! OP2+HO=0.4100D+00*KET+... & + 4.1000D-01 * RXRAT( 132 ) ! OPB+HO=0.4100D+00*KET+... & + 4.1000D-01 * RXRAT( 133 ) ! OP3+HO=0.4100D+00*KET+... & + 3.8000D-01 * RXRAT( 142 ) ! TRPN+HO=0.3800D+00*KET+... & + 1.7000D-02 * RXRAT( 146 ) ! OLI+O3=0.1700D-01*KET+... & + 1.7850D-01 * RXRAT( 147 ) ! API+O3=0.1785D+00*KET+... & + 3.8000D-01 * RXRAT( 150 ) ! TRPN+O3=0.3800D+00*KET+... & + 2.8000D-02 * RXRAT( 153 ) ! UALD+O3=0.2800D-01*KET+... & + 3.8000D-01 * RXRAT( 163 ) ! TRPN+NO3=0.3800D+00*KET+... & + 3.3000D-02 * RXRAT( 186 ) ! HC5P+NO=0.3300D-01*KET+... & + 9.0000D-02 * RXRAT( 189 ) ! OLIP+NO=0.9000D-01*KET+... & + 8.4000D-02 * RXRAT( 194 ) ! APIP1+NO=0.8400D-01*KET+... & + 7.0000D-03 * RXRAT( 196 ) ! APINP1+NO=0.7000D-02*KET+... & + 7.0000D-01 * RXRAT( 212 ) ! UALP+NO=0.7000D+00*KET+NO2+... & + 4.6400D-01 * RXRAT( 219 ) ! OLND+NO=0.4640D+00*KET+... & + 1.0500D-02 * RXRAT( 236 ) ! APIP1+HO2=0.1050D-01*KET+... & + 7.0000D-03 * RXRAT( 238 ) ! APINP1+HO2=0.7000D-02*KET+... & + 4.9700D-01 * RXRAT( 265 ) ! HC3P+MO2=0.4970D+00*KET+... & + 6.1800D-01 * RXRAT( 266 ) ! HC5P+MO2=0.6180D+00*KET+... & + 4.5000D-02 * RXRAT( 268 ) ! OLTP+MO2=0.4500D-01*KET+... & + 2.1800D-01 * RXRAT( 269 ) ! OLIP+MO2=0.2180D+00*KET+... & + 1.8350D-01 * RXRAT( 275 ) ! APIP1+MO2=0.1835D+00*KET+... & + 7.0000D-03 * RXRAT( 277 ) ! APINP1+MO2=0.7000D-02*KET+... & + 5.2500D-01 * RXRAT( 291 ) ! UALP+MO2=0.5250D+00*KET+... & + 3.4800D-01 * RXRAT( 298 ) ! OLND+MO2=0.3480D+00*KET+... & + 6.6200D-01 * RXRAT( 302 ) ! HC3P+ACO3=0.6620D+00*KET+... & + 8.2400D-01 * RXRAT( 303 ) ! HC5P+ACO3=0.8240D+00*KET+... & + 6.0000D-02 * RXRAT( 305 ) ! OLTP+ACO3=0.6000D-01*KET+... & + 2.9000D-01 * RXRAT( 306 ) ! OLIP+ACO3=0.2900D+00*KET+... & + 1.1200D-01 * RXRAT( 312 ) ! APIP1+ACO3=0.1120D+00*KET+... & + 7.0000D-03 * RXRAT( 314 ) ! APINP1+ACO3=0.7000D-02*KET+... & + 7.0000D-01 * RXRAT( 328 ) ! UALP+ACO3=0.7000D+00*KET+... & + 4.6400D-01 * RXRAT( 335 ) ! OLND+ACO3=0.4640D+00*KET+... & + 6.0000D-02 * RXRAT( 342 ) ! HC5P+NO3=0.6000D-01*KET+... & + 1.1000D-01 * RXRAT( 345 ) ! OLIP+NO3=0.1100D+00*KET+... & + 1.1200D-01 * RXRAT( 351 ) ! APIP1+NO3=0.1120D+00*KET+... & + 7.0000D-03 * RXRAT( 353 ) ! APINP1+NO3=0.7000D-02*KET+... & + 7.0000D-01 * RXRAT( 363 ) ! UALP+NO3=0.7000D+00*KET+... & + 4.6400D-01 * RXRAT( 370 ) ! OLND+NO3=0.4640D+00*KET+... & + 1.4900D-01 * RXRAT( 373 ) ! OLNN+OLND=0.1490D+00*KET+... & + 2.8500D-01 * RXRAT( 374 ) ! OLND+OLND=0.2850D+00*KET+... & + 6.5000D-01 * RXRAT( 408 ) ! FURANONE+HO=0.6500D+00*KET+... & + 8.8000D-01 * RXRAT( 474 ) ! HC10P2+NO=0.8800D+00*KET+... & + RXRAT( 481 ) ! HC10P2+NO3=KET+NO2+HO2 & + 7.9400D-02 * RXRAT( 508 ) ! VROCN2OXY4+HO=0.7940D-... & + 1.8400D-01 * RXRAT( 510 ) ! VROCN1OXY6+HO=0.1840D+... & + 1.0680D-01 * RXRAT( 513 ) ! VROCP0OXY4+HO=0.1068D+... LOSS( KET ) = RXRAT( 20 ) ! KET=0.1500D+01*ETHP+... & + RXRAT( 112 ) ! KET+HO=KETP PROD( PINAL ) = 2.7000D-01 * RXRAT( 142 ) ! TRPN+HO=0.2700D+00*PINAL+... & + 2.5350D-01 * RXRAT( 147 ) ! API+O3=0.2535D+00*PINAL+... & + 2.7000D-01 * RXRAT( 150 ) ! TRPN+O3=0.2700D+00*PINAL+... & + 2.7000D-01 * RXRAT( 163 ) ! TRPN+NO3=0.2700D+00*PINAL+... & + 1.9500D-01 * RXRAT( 194 ) ! APIP1+NO=0.1950D+00*PINAL+... & + 6.0450D-01 * RXRAT( 196 ) ! APINP1+NO=0.6045D+00*PINAL+... & + 1.8850D-01 * RXRAT( 236 ) ! APIP1+HO2=0.1885D+00*PINAL+... & + 4.5500D-01 * RXRAT( 238 ) ! APINP1+HO2=0.4550D+... & + 2.7300D-01 * RXRAT( 275 ) ! APIP1+MO2=0.2730D+00*PINAL+... & + 5.3300D-01 * RXRAT( 277 ) ! APINP1+MO2=0.5330D+... & + 2.5350D-01 * RXRAT( 312 ) ! APIP1+ACO3=0.2535D+... & + 6.5000D-01 * RXRAT( 314 ) ! APINP1+ACO3=0.6500D+... & + 2.5350D-01 * RXRAT( 351 ) ! APIP1+NO3=0.2535D+00*PINAL+... & + 6.5000D-01 * RXRAT( 353 ) ! APINP1+NO3=0.6500D+... & + 4.8000D-01 * RXRAT( 378 ) ! APIP2+APIP1=0.4800D+... & + 4.8000D-01 * RXRAT( 381 ) ! LIMP2+APIP1=0.4800D+... & + 4.8000D-01 * RXRAT( 384 ) ! APINP2+APIP1=0.4800D+... & + 4.8000D-01 * RXRAT( 387 ) ! LIMNP2+APIP1=0.4800D+... LOSS( PINAL ) = RXRAT( 17 ) ! PINAL=HO2+HC10P+CO & + RXRAT( 105 ) ! PINAL+HO=0.2300D+00*PINALP+... PROD( HC10P ) = RXRAT( 17 ) ! PINAL=HC10P+HO2+CO & + RXRAT( 18 ) ! LIMAL=HC10P+HO2+CO & + 4.4000D-01 * RXRAT( 132 ) ! OPB+HO=0.4400D+00*HC10P+... & + 4.4000D-01 * RXRAT( 133 ) ! OP3+HO=0.4400D+00*HC10P+... & + RXRAT( 439 ) ! HC10+HO=HC10P LOSS( HC10P ) = RXRAT( 446 ) ! HC10P+NO=0.7400D+00*HC10P2+... & + RXRAT( 453 ) ! HC10P+NO3=HC10P2+NO2 & + RXRAT( 460 ) ! HC10P+HO2=OP2 PROD( LIMAL ) = 6.6000D-01 * RXRAT( 148 ) ! LIM+O3=0.6600D+00*LIMAL+... & + 1.2850D-01 * RXRAT( 194 ) ! APIP1+NO=0.1285D+00*LIMAL+... & + 7.7000D-01 * RXRAT( 198 ) ! LIMP1+NO=0.7700D+00*LIMAL+... & + 4.3000D-01 * RXRAT( 200 ) ! LIMNP1+NO=0.4300D+00*LIMAL+... & + 3.9000D-02 * RXRAT( 236 ) ! APIP1+HO2=0.3900D-01*LIMAL+... & + 1.0000D-01 * RXRAT( 240 ) ! LIMP1+HO2=0.1000D+00*LIMAL+... & + 2.3000D-01 * RXRAT( 242 ) ! LIMNP1+HO2=0.2300D+... & + 2.2050D-01 * RXRAT( 275 ) ! APIP1+MO2=0.2205D+00*LIMAL+... & + RXRAT( 279 ) ! LIMP1+MO2=LIMAL+0.2500D+... & + 3.1000D-01 * RXRAT( 281 ) ! LIMNP1+MO2=0.3100D+... & + 1.7250D-01 * RXRAT( 312 ) ! APIP1+ACO3=0.1725D+... & + RXRAT( 316 ) ! LIMP1+ACO3=LIMAL+0.5600D+... & + 4.6000D-01 * RXRAT( 318 ) ! LIMNP1+ACO3=0.4600D+... & + 1.7250D-01 * RXRAT( 351 ) ! APIP1+NO3=0.1725D+00*LIMAL+... & + RXRAT( 352 ) ! LIMP1+NO3=LIMAL+NO2+HO2+... & + 4.6000D-01 * RXRAT( 354 ) ! LIMNP1+NO3=0.4600D+... & + 4.8000D-01 * RXRAT( 379 ) ! APIP2+LIMP1=0.4800D+... & + 4.8000D-01 * RXRAT( 382 ) ! LIMP2+LIMP1=0.4800D+... & + 4.8000D-01 * RXRAT( 385 ) ! APINP2+LIMP1=0.4800D+... & + 4.8000D-01 * RXRAT( 388 ) ! LIMNP2+LIMP1=0.4800D+... LOSS( LIMAL ) = RXRAT( 18 ) ! LIMAL=HO2+HC10P+CO & + RXRAT( 106 ) ! LIMAL+HO=0.8300D+00*LIMALP+... & + RXRAT( 149 ) ! LIMAL+O3=0.9000D-01*HO+ALD+... PROD( MEK ) = 1.3000D-01 * RXRAT( 120 ) ! DCB2+HO=0.1300D+00*MEK+... & + 6.0000D-02 * RXRAT( 145 ) ! OLT+O3=0.6000D-01*MEK+... & + 4.2000D-02 * RXRAT( 185 ) ! HC3P+NO=0.4200D-01*MEK+... & + 3.3000D-02 * RXRAT( 186 ) ! HC5P+NO=0.3300D-01*MEK+... & + 1.3000D-01 * RXRAT( 188 ) ! OLTP+NO=0.1300D+00*MEK+... & + 7.5000D-02 * RXRAT( 341 ) ! HC3P+NO3=0.7500D-01*MEK+... & + 6.3000D-02 * RXRAT( 342 ) ! HC5P+NO3=0.6300D-01*MEK+... & + 1.8000D-01 * RXRAT( 344 ) ! OLTP+NO3=0.1800D+00*MEK+... & + 2.5810D-01 * RXRAT( 507 ) ! VROCN2OXY8+HO=0.2581D+... & + 7.9400D-02 * RXRAT( 508 ) ! VROCN2OXY4+HO=0.7940D-... & + 3.9000D-02 * RXRAT( 509 ) ! VROCN2OXY2+HO=0.3900D-... & + 1.8400D-01 * RXRAT( 510 ) ! VROCN1OXY6+HO=0.1840D+... & + 6.4600D-02 * RXRAT( 511 ) ! VROCN1OXY3+HO=0.6460D-... & + 2.4400D-02 * RXRAT( 512 ) ! VROCN1OXY1+HO=0.2440D-... & + 1.0680D-01 * RXRAT( 513 ) ! VROCP0OXY4+HO=0.1068D+... & + 4.4500D-02 * RXRAT( 514 ) ! VROCP0OXY2+HO=0.4450D-... & + 8.1800D-02 * RXRAT( 515 ) ! VROCP1OXY3+HO=0.8180D-... & + 2.9700D-02 * RXRAT( 516 ) ! VROCP1OXY1+HO=0.2970D-... & + 6.2800D-02 * RXRAT( 517 ) ! VROCP2OXY2+HO=0.6280D-... & + 6.9800D-02 * RXRAT( 518 ) ! VROCP3OXY2+HO=0.6980D-... & + 7.8600D-02 * RXRAT( 519 ) ! VROCP4OXY2+HO=0.7860D-... & + 5.2600D-02 * RXRAT( 520 ) ! VROCP5OXY1+HO=0.5260D-... & + 5.7100D-02 * RXRAT( 521 ) ! VROCP6OXY1+HO=0.5710D-... & + 2.2660D-01 * RXRAT( 522 ) ! OP3+HO=0.2266D+00*MEK+... LOSS( MEK ) = RXRAT( 19 ) ! MEK=0.1000D+00*MO2+ETHP+... & + RXRAT( 111 ) ! MEK+HO=MEKP PROD( HKET ) = RXRAT( 40 ) ! HONIT=HKET+NO2 & + RXRAT( 140 ) ! MPAN+HO=HKET+NO2 & + RXRAT( 143 ) ! HONIT+HO=HKET+NO3 & + 1.0000D-02 * RXRAT( 145 ) ! OLT+O3=0.1000D-01*HKET+... & + 4.4000D-02 * RXRAT( 146 ) ! OLI+O3=0.4400D-01*HKET+... & + 2.7200D-01 * RXRAT( 186 ) ! HC5P+NO=0.2720D+00*HKET+... & + 2.0000D-02 * RXRAT( 189 ) ! OLIP+NO=0.2000D-01*HKET+... & + RXRAT( 210 ) ! MCP+NO=HKET+0.5000D+00*HO2+... & + 3.2000D-01 * RXRAT( 215 ) ! ADDC+NO=0.3200D+00*HKET+... & + 1.6000D-02 * RXRAT( 274 ) ! ISOP+MO2=0.1600D-01*HKET+... & + 5.0000D-01 * RXRAT( 289 ) ! MCP+MO2=0.5000D+00*HKET+... & + 3.2000D-01 * RXRAT( 294 ) ! ADDC+MO2=0.3200D+00*HKET+... & + 5.0000D-01 * RXRAT( 326 ) ! MCP+ACO3=0.5000D+00*HKET+... & + 3.2000D-01 * RXRAT( 331 ) ! ADDC+ACO3=0.3200D+00*HKET+... & + 2.7500D-01 * RXRAT( 342 ) ! HC5P+NO3=0.2750D+00*HKET+... & + 4.0000D-02 * RXRAT( 345 ) ! OLIP+NO3=0.4000D-01*HKET+... & + 3.3000D-02 * RXRAT( 350 ) ! ISOP+NO3=0.3300D-01*HKET+... & + RXRAT( 361 ) ! MCP+NO3=HKET+HO2+HCHO+NO2 & + 3.2000D-01 * RXRAT( 366 ) ! ADDC+NO3=0.3200D+00*HKET+... & + 6.1300D-01 * RXRAT( 411 ) ! PROG+HO=0.6130D+00*HKET+... & + 3.9000D-02 * RXRAT( 509 ) ! VROCN2OXY2+HO=0.3900D-... & + 6.4600D-02 * RXRAT( 511 ) ! VROCN1OXY3+HO=0.6460D-... & + 2.4400D-02 * RXRAT( 512 ) ! VROCN1OXY1+HO=0.2440D-... & + 4.4500D-02 * RXRAT( 514 ) ! VROCP0OXY2+HO=0.4450D-... & + 8.1800D-02 * RXRAT( 515 ) ! VROCP1OXY3+HO=0.8180D-... & + 2.9700D-02 * RXRAT( 516 ) ! VROCP1OXY1+HO=0.2970D-... & + 6.2800D-02 * RXRAT( 517 ) ! VROCP2OXY2+HO=0.6280D-... & + 6.9800D-02 * RXRAT( 518 ) ! VROCP3OXY2+HO=0.6980D-... & + 7.8600D-02 * RXRAT( 519 ) ! VROCP4OXY2+HO=0.7860D-... & + 5.2600D-02 * RXRAT( 520 ) ! VROCP5OXY1+HO=0.5260D-... & + 5.7100D-02 * RXRAT( 521 ) ! VROCP6OXY1+HO=0.5710D-... LOSS( HKET ) = RXRAT( 21 ) ! HKET=HO2+ACO3+HCHO & + RXRAT( 113 ) ! HKET+HO=HO2+MGLY PROD( MACR ) = 3.0000D-01 * RXRAT( 90 ) ! ISO+O3=0.3000D+00*MACR+... & + 2.8000D-02 * RXRAT( 91 ) ! ISO+NO3=0.2800D-01*MACR+... & + 3.0000D-02 * RXRAT( 92 ) ! ISO+HO=0.3000D-01*MACR+... & + 1.8000D-01 * RXRAT( 94 ) ! ISOP+NO=0.1800D+00*MACR+... & + 3.0000D-02 * RXRAT( 96 ) ! ISHP+HO=0.3000D-01*MACR+... & + 5.7000D-01 * RXRAT( 102 ) ! IPX+HO=0.5700D+00*MACR+... & + 1.5900D-01 * RXRAT( 274 ) ! ISOP+MO2=0.1590D+00*MACR+... & + 2.1900D-01 * RXRAT( 311 ) ! ISOP+ACO3=0.2190D+00*MACR+... & + 3.1800D-01 * RXRAT( 350 ) ! ISOP+NO3=0.3180D+00*MACR+... LOSS( MACR ) = RXRAT( 22 ) ! MACR=0.3400D+00*HO+0.6600D+... & + RXRAT( 114 ) ! MACR+HO=0.5700D+00*MACP+... & + RXRAT( 151 ) ! MACR+O3=0.1900D+00*HO+... & + RXRAT( 167 ) ! MACR+NO3=0.6800D+00*HCHO+... PROD( MACP ) = 3.3000D-01 * RXRAT( 22 ) ! MACR=0.3300D+00*MACP+... & + 3.0000D-01 * RXRAT( 23 ) ! MVK=0.3000D+00*MACP+... & + 1.0000D-01 * RXRAT( 90 ) ! ISO+O3=0.1000D+00*MACP+... & + 5.7000D-01 * RXRAT( 114 ) ! MACR+HO=0.5700D+00*MACP+... & + 2.1000D-01 * RXRAT( 121 ) ! DCB3+HO=0.2100D+00*MACP+... & + RXRAT( 134 ) ! MAHP+HO=MACP & + 3.2000D-01 * RXRAT( 167 ) ! MACR+NO3=0.3200D+00*MACP+... & + RXRAT( 174 ) ! MPAN+NO3=MACP+NO2 & + RXRAT( 182 ) ! MPAN=MACP+NO2 & + 5.7000D-01 * RXRAT( 393 ) ! ACRO+HO=0.5700D+00*MACP+... & + 3.2000D-01 * RXRAT( 395 ) ! ACRO+NO3=0.3200D+00*MACP+... LOSS( MACP ) = RXRAT( 181 ) ! MACP+NO2=MPAN & + RXRAT( 209 ) ! MACP+NO=0.6500D+00*MO2+... & + RXRAT( 251 ) ! MACP+HO2=MAHP & + RXRAT( 288 ) ! MACP+MO2=0.5000D+00*HO2+... & + RXRAT( 325 ) ! MACP+ACO3=0.6350D+00*ORA2+... & + RXRAT( 360 ) ! MACP+NO3=HCHO+0.5380D+... PROD( XO2 ) = 3.4000D-01 * RXRAT( 22 ) ! MACR=0.3400D+00*XO2+... & + 2.0000D-01 * RXRAT( 28 ) ! DCB1=0.2000D+00*XO2+... & + 2.0000D-01 * RXRAT( 29 ) ! DCB2=0.2000D+00*XO2+... & + 7.0000D-02 * RXRAT( 131 ) ! OP2+HO=0.7000D-01*XO2+... & + 7.0000D-02 * RXRAT( 132 ) ! OPB+HO=0.7000D-01*XO2+... & + 7.0000D-02 * RXRAT( 133 ) ! OP3+HO=0.7000D-01*XO2+... & + 3.5000D-01 * RXRAT( 137 ) ! PAA+HO=0.3500D+00*XO2+... & + RXRAT( 138 ) ! PAN+HO=XO2+NO3+HCHO & + RXRAT( 139 ) ! PPN+HO=XO2+NO3+HCHO & + 1.0000D-02 * RXRAT( 152 ) ! MVK+O3=0.1000D-01*XO2+... & + 1.0000D-01 * RXRAT( 153 ) ! UALD+O3=0.1000D+00*XO2+... & + 6.0000D-01 * RXRAT( 154 ) ! DCB1+O3=0.6000D+00*XO2+HO2+... & + 6.0000D-01 * RXRAT( 155 ) ! DCB2+O3=0.6000D+00*XO2+HO2+... & + 6.8000D-01 * RXRAT( 167 ) ! MACR+NO3=0.6800D+00*XO2+... & + RXRAT( 168 ) ! UALD+NO3=XO2+HO2+0.6680D+... & + 8.9000D-02 * RXRAT( 185 ) ! HC3P+NO=0.8900D-01*XO2+... & + 2.3500D-01 * RXRAT( 186 ) ! HC5P+NO=0.2350D+00*XO2+... & + 1.6000D-01 * RXRAT( 208 ) ! KETP+NO=0.1600D+00*XO2+... & + 7.0000D-01 * RXRAT( 211 ) ! MVKP+NO=0.7000D+00*XO2+... & + 2.6000D-02 * RXRAT( 265 ) ! HC3P+MO2=0.2600D-01*XO2+... & + 1.9100D-01 * RXRAT( 266 ) ! HC5P+MO2=0.1910D+00*XO2+... & + 1.1600D+00 * RXRAT( 290 ) ! MVKP+MO2=0.1160D+01*XO2+... & + 2.6000D-02 * RXRAT( 302 ) ! HC3P+ACO3=0.2600D-01*XO2+... & + 1.9100D-01 * RXRAT( 303 ) ! HC5P+ACO3=0.1910D+00*XO2+... & + 1.1600D+00 * RXRAT( 327 ) ! MVKP+ACO3=0.1160D+01*XO2+... & + 9.2000D-02 * RXRAT( 341 ) ! HC3P+NO3=0.9200D-01*XO2+... & + 4.8500D-01 * RXRAT( 342 ) ! HC5P+NO3=0.4850D+00*XO2+... & + 7.0000D-01 * RXRAT( 362 ) ! MVKP+NO3=0.7000D+00*XO2+... & + 6.8000D-01 * RXRAT( 395 ) ! ACRO+NO3=0.6800D+00*XO2+... LOSS( XO2 ) = RXRAT( 221 ) ! XO2+NO=NO2 & + RXRAT( 262 ) ! XO2+HO2=OP2 & + RXRAT( 300 ) ! XO2+MO2=HO2+HCHO & + RXRAT( 337 ) ! XO2+ACO3=MO2 & + RXRAT( 375 ) ! XO2+NO3=NO2 & + RXRAT( 376 ) ! XO2+RCO3=ETHP & + 2.0000D+00 * RXRAT( 377 ) ! XO2+XO2= PROD( MVK ) = 1.4000D-01 * RXRAT( 90 ) ! ISO+O3=0.1400D+00*MVK+... & + 2.6000D-01 * RXRAT( 91 ) ! ISO+NO3=0.2600D+00*MVK+... & + 5.1000D-01 * RXRAT( 94 ) ! ISOP+NO=0.5100D+00*MVK+... & + 1.3000D-01 * RXRAT( 96 ) ! ISHP+HO=0.1300D+00*MVK+... & + 1.5000D-01 * RXRAT( 98 ) ! INO2+NO=0.1500D+00*MVK+... & + 4.3000D-01 * RXRAT( 102 ) ! IPX+HO=0.4300D+00*MVK+... & + 2.5000D-01 * RXRAT( 274 ) ! ISOP+MO2=0.2500D+00*MVK+... & + 3.0500D-01 * RXRAT( 311 ) ! ISOP+ACO3=0.3050D+00*MVK+... & + 5.0000D-01 * RXRAT( 350 ) ! ISOP+NO3=0.5000D+00*MVK+... & + 4.8000D-01 * RXRAT( 380 ) ! APIP2+ISOP=0.4800D+00*MVK+... & + 4.8000D-01 * RXRAT( 383 ) ! LIMP2+ISOP=0.4800D+00*MVK+... & + 4.8000D-01 * RXRAT( 386 ) ! APINP2+ISOP=0.4800D+00*MVK+... & + 4.8000D-01 * RXRAT( 389 ) ! LIMNP2+ISOP=0.4800D+00*MVK+... & + 2.3100D-01 * RXRAT( 401 ) ! BDE13P+MO2=0.2310D+00*MVK+... & + 1.8500D-01 * RXRAT( 402 ) ! BDE13P+ACO3=0.1850D+00*MVK+... LOSS( MVK ) = RXRAT( 23 ) ! MVK=0.3000D+00*MO2+0.3000D+... & + RXRAT( 115 ) ! MVK+HO=MVKP & + RXRAT( 152 ) ! MVK+O3=0.1600D+00*HO+... PROD( GLY ) = 5.0000D-01 * RXRAT( 28 ) ! DCB1=0.5000D+00*GLY+... & + 5.0000D-01 * RXRAT( 29 ) ! DCB2=0.5000D+00*GLY+... & + 6.5000D-01 * RXRAT( 85 ) ! ACE+HO=0.6500D+00*GLY+... & + 2.0000D-02 * RXRAT( 96 ) ! ISHP+HO=0.2000D-01*GLY+... & + 1.0000D-01 * RXRAT( 119 ) ! DCB1+HO=0.1000D+00*GLY+... & + 1.0000D-01 * RXRAT( 120 ) ! DCB2+HO=0.1000D+00*GLY+... & + 2.7000D-01 * RXRAT( 121 ) ! DCB3+HO=0.2700D+00*GLY+... & + 4.9100D-01 * RXRAT( 153 ) ! UALD+O3=0.4910D+00*GLY+... & + 5.0000D-02 * RXRAT( 154 ) ! DCB1+O3=0.5000D-01*GLY+HO2+... & + 5.0000D-02 * RXRAT( 155 ) ! DCB2+O3=0.5000D-01*GLY+HO2+... & + 4.8000D-01 * RXRAT( 156 ) ! DCB3+O3=0.4800D+00*GLY+HO2+... & + 9.9800D-01 * RXRAT( 190 ) ! BENP+NO=0.9980D+00*GLY+... & + 5.4770D-01 * RXRAT( 191 ) ! TOLP+NO=0.5477D+00*GLY+... & + 7.0290D-01 * RXRAT( 192 ) ! XYLP+NO=0.7029D+00*GLY+... & + 5.4770D-01 * RXRAT( 193 ) ! EBZP+NO=0.5477D+00*GLY+... & + 1.8000D-01 * RXRAT( 212 ) ! UALP+NO=0.1800D+00*GLY+NO2+... & + 6.8000D-01 * RXRAT( 215 ) ! ADDC+NO=0.6800D+00*GLY+NO2+... & + RXRAT( 217 ) ! ORAP+NO=GLY+NO2+HO2 & + RXRAT( 220 ) ! ADCN+NO=GLY+0.2000D+01*NO2+OP2 & + 5.0000D-02 * RXRAT( 265 ) ! HC3P+MO2=0.5000D-01*GLY+... & + RXRAT( 270 ) ! BENP+MO2=GLY+0.1370D+... & + 5.4880D-01 * RXRAT( 271 ) ! TOLP+MO2=0.5488D+00*GLY+... & + 7.0430D-01 * RXRAT( 272 ) ! XYLP+MO2=0.7043D+00*GLY+... & + 5.4880D-01 * RXRAT( 273 ) ! EBZP+MO2=0.5488D+00*GLY+... & + 1.8000D-02 * RXRAT( 274 ) ! ISOP+MO2=0.1800D-01*GLY+... & + 1.3500D-01 * RXRAT( 291 ) ! UALP+MO2=0.1350D+00*GLY+... & + 6.8000D-01 * RXRAT( 294 ) ! ADDC+MO2=0.6800D+00*GLY+... & + RXRAT( 296 ) ! ORAP+MO2=GLY+HO2+HCHO & + 7.0000D-01 * RXRAT( 299 ) ! ADCN+MO2=0.7000D+00*GLY+... & + 6.7000D-02 * RXRAT( 302 ) ! HC3P+ACO3=0.6700D-01*GLY+... & + RXRAT( 307 ) ! BENP+ACO3=GLY+HO2+0.3000D+... & + 5.4880D-01 * RXRAT( 308 ) ! TOLP+ACO3=0.5488D+00*GLY+... & + 7.0430D-01 * RXRAT( 309 ) ! XYLP+ACO3=0.7043D+00*GLY+... & + 5.4880D-01 * RXRAT( 310 ) ! EBZP+ACO3=0.5488D+00*GLY+... & + 1.8000D-01 * RXRAT( 328 ) ! UALP+ACO3=0.1800D+00*GLY+... & + 6.8000D-01 * RXRAT( 331 ) ! ADDC+ACO3=0.6800D+00*GLY+... & + RXRAT( 333 ) ! ORAP+ACO3=GLY+MO2 & + 7.0000D-01 * RXRAT( 336 ) ! ADCN+ACO3=0.7000D+00*GLY+... & + RXRAT( 346 ) ! BENP+NO3=GLY+HO2+0.0000D+... & + 5.4880D-01 * RXRAT( 347 ) ! TOLP+NO3=0.5488D+00*GLY+... & + 7.0430D-01 * RXRAT( 348 ) ! XYLP+NO3=0.7043D+00*GLY+... & + 5.4880D-01 * RXRAT( 349 ) ! EBZP+NO3=0.5488D+00*GLY+... & + 2.4000D-02 * RXRAT( 350 ) ! ISOP+NO3=0.2400D-01*GLY+... & + 1.8000D-01 * RXRAT( 363 ) ! UALP+NO3=0.1800D+00*GLY+... & + 6.8000D-01 * RXRAT( 366 ) ! ADDC+NO3=0.6800D+00*GLY+... & + RXRAT( 368 ) ! ORAP+NO3=GLY+NO2+HO2 & + RXRAT( 371 ) ! ADCN+NO3=GLY+0.2000D+... & + 6.2000D-01 * RXRAT( 394 ) ! ACRO+O3=0.6200D+00*GLY+... & + 3.1000D-01 * RXRAT( 408 ) ! FURANONE+HO=0.3100D+00*GLY+... & + 4.6930D-01 * RXRAT( 491 ) ! VROCP6AROP+NO=0.4693D+... & + 4.7020D-01 * RXRAT( 492 ) ! VROCP6AROP+NO3=0.4702D+... & + 4.7020D-01 * RXRAT( 493 ) ! VROCP6AROP+MO2=0.4702D+... & + 4.7020D-01 * RXRAT( 494 ) ! VROCP6AROP+ACO3=0.4702D+... & + 4.6930D-01 * RXRAT( 497 ) ! VROCP5AROP+NO=0.4693D+... & + 4.7020D-01 * RXRAT( 498 ) ! VROCP5AROP+NO3=0.4702D+... & + 4.7020D-01 * RXRAT( 499 ) ! VROCP5AROP+MO2=0.4702D+... & + 4.7020D-01 * RXRAT( 500 ) ! VROCP5AROP+ACO3=0.4702D+... & + 4.6930D-01 * RXRAT( 503 ) ! NAPHP+NO=0.4693D+00*GLY+... & + 4.7020D-01 * RXRAT( 504 ) ! NAPHP+NO3=0.4702D+00*GLY+... & + 4.7020D-01 * RXRAT( 505 ) ! NAPHP+MO2=0.4702D+00*GLY+... & + 4.7020D-01 * RXRAT( 506 ) ! NAPHP+ACO3=0.4702D+00*GLY+... LOSS( GLY ) = RXRAT( 24 ) ! GLY=0.2000D+01*CO & + RXRAT( 25 ) ! GLY=HCHO+CO & + RXRAT( 26 ) ! GLY=0.2000D+01*HO2+0.2000D+... & + RXRAT( 117 ) ! GLY+HO=HO2+0.2000D+01*CO & + RXRAT( 169 ) ! GLY+NO3=HO2+0.2000D+01*CO+HNO3 & + RXRAT( 421 ) ! GLY=AGLYJ PROD( MGLY ) = 5.0000D-01 * RXRAT( 28 ) ! DCB1=0.5000D+00*MGLY+... & + 5.0000D-01 * RXRAT( 29 ) ! DCB2=0.5000D+00*MGLY+... & + 5.0000D-02 * RXRAT( 92 ) ! ISO+HO=0.5000D-01*MGLY+... & + 4.0000D-02 * RXRAT( 96 ) ! ISHP+HO=0.4000D-01*MGLY+... & + RXRAT( 113 ) ! HKET+HO=MGLY+HO2 & + 1.0000D-02 * RXRAT( 119 ) ! DCB1+HO=0.1000D-01*MGLY+... & + 1.0000D-02 * RXRAT( 120 ) ! DCB2+HO=0.1000D-01*MGLY+... & + 1.0000D-02 * RXRAT( 121 ) ! DCB3+HO=0.1000D-01*MGLY+... & + 5.0000D-01 * RXRAT( 151 ) ! MACR+O3=0.5000D+00*MGLY+... & + 5.4000D-01 * RXRAT( 152 ) ! MVK+O3=0.5400D+00*MGLY+... & + 3.0000D-03 * RXRAT( 153 ) ! UALD+O3=0.3000D-02*MGLY+... & + 8.0000D-02 * RXRAT( 154 ) ! DCB1+O3=0.8000D-01*MGLY+... & + 8.0000D-02 * RXRAT( 155 ) ! DCB2+O3=0.8000D-01*MGLY+... & + 6.8000D-01 * RXRAT( 167 ) ! MACR+NO3=0.6800D+00*MGLY+... & + 3.6510D-01 * RXRAT( 191 ) ! TOLP+NO=0.3651D+00*MGLY+... & + 2.4700D-01 * RXRAT( 192 ) ! XYLP+NO=0.2470D+00*MGLY+... & + 3.6510D-01 * RXRAT( 193 ) ! EBZP+NO=0.3651D+00*MGLY+... & + 5.4000D-01 * RXRAT( 208 ) ! KETP+NO=0.5400D+00*MGLY+... & + 3.0000D-01 * RXRAT( 211 ) ! MVKP+NO=0.3000D+00*MGLY+... & + 2.1000D-01 * RXRAT( 212 ) ! UALP+NO=0.2100D+00*MGLY+... & + 3.6590D-01 * RXRAT( 271 ) ! TOLP+MO2=0.3659D+00*MGLY+... & + 2.4750D-01 * RXRAT( 272 ) ! XYLP+MO2=0.2475D+00*MGLY+... & + 3.6590D-01 * RXRAT( 273 ) ! EBZP+MO2=0.3659D+00*MGLY+... & + 5.0000D-01 * RXRAT( 290 ) ! MVKP+MO2=0.5000D+00*MGLY+... & + 1.0500D-01 * RXRAT( 291 ) ! UALP+MO2=0.1050D+00*MGLY+... & + 3.6590D-01 * RXRAT( 308 ) ! TOLP+ACO3=0.3659D+00*MGLY+... & + 2.4750D-01 * RXRAT( 309 ) ! XYLP+ACO3=0.2475D+00*MGLY+... & + 3.6590D-01 * RXRAT( 310 ) ! EBZP+ACO3=0.3659D+00*MGLY+... & + 5.0000D-01 * RXRAT( 327 ) ! MVKP+ACO3=0.5000D+00*MGLY+... & + 1.0500D-01 * RXRAT( 328 ) ! UALP+ACO3=0.1050D+00*MGLY+... & + 3.6590D-01 * RXRAT( 347 ) ! TOLP+NO3=0.3659D+00*MGLY+... & + 2.4750D-01 * RXRAT( 348 ) ! XYLP+NO3=0.2475D+00*MGLY+... & + 3.6590D-01 * RXRAT( 349 ) ! EBZP+NO3=0.3659D+00*MGLY+... & + 3.0000D-01 * RXRAT( 362 ) ! MVKP+NO3=0.3000D+00*MGLY+... & + 2.1000D-01 * RXRAT( 363 ) ! UALP+NO3=0.2100D+00*MGLY+... & + 6.8000D-01 * RXRAT( 395 ) ! ACRO+NO3=0.6800D+00*MGLY+... & + 4.6930D-01 * RXRAT( 491 ) ! VROCP6AROP+NO=0.4693D+... & + 4.7020D-01 * RXRAT( 492 ) ! VROCP6AROP+NO3=0.4702D+... & + 4.7020D-01 * RXRAT( 493 ) ! VROCP6AROP+MO2=0.4702D+... & + 4.7020D-01 * RXRAT( 494 ) ! VROCP6AROP+ACO3=0.4702D+... & + 4.6930D-01 * RXRAT( 497 ) ! VROCP5AROP+NO=0.4693D+... & + 4.7020D-01 * RXRAT( 498 ) ! VROCP5AROP+NO3=0.4702D+... & + 4.7020D-01 * RXRAT( 499 ) ! VROCP5AROP+MO2=0.4702D+... & + 4.7020D-01 * RXRAT( 500 ) ! VROCP5AROP+ACO3=0.4702D+... & + 4.6930D-01 * RXRAT( 503 ) ! NAPHP+NO=0.4693D+00*MGLY+... & + 4.7020D-01 * RXRAT( 504 ) ! NAPHP+NO3=0.4702D+00*MGLY+... & + 4.7020D-01 * RXRAT( 505 ) ! NAPHP+MO2=0.4702D+00*MGLY+... & + 4.7020D-01 * RXRAT( 506 ) ! NAPHP+ACO3=0.4702D+00*MGLY+... LOSS( MGLY ) = RXRAT( 27 ) ! MGLY=HO2+ACO3+CO & + RXRAT( 118 ) ! MGLY+HO=ACO3+CO & + RXRAT( 170 ) ! MGLY+NO3=ACO3+CO+HNO3 & + RXRAT( 422 ) ! MGLY=AGLYJ PROD( DCB1 ) = 7.0000D-01 * RXRAT( 155 ) ! DCB2+O3=0.7000D+00*DCB1+... & + 7.0000D-01 * RXRAT( 156 ) ! DCB3+O3=0.7000D+00*DCB1+... & + 5.4770D-01 * RXRAT( 191 ) ! TOLP+NO=0.5477D+00*DCB1+... & + 6.7000D-01 * RXRAT( 207 ) ! MEKP+NO=0.6700D+00*DCB1+... & + 5.4880D-01 * RXRAT( 271 ) ! TOLP+MO2=0.5488D+00*DCB1+... & + 3.3400D-01 * RXRAT( 286 ) ! MEKP+MO2=0.3340D+00*DCB1+... & + 5.0000D-01 * RXRAT( 287 ) ! KETP+MO2=0.5000D+00*DCB1+... & + 5.4880D-01 * RXRAT( 308 ) ! TOLP+ACO3=0.5488D+00*DCB1+... & + 3.3400D-01 * RXRAT( 323 ) ! MEKP+ACO3=0.3340D+00*DCB1+... & + 5.0000D-01 * RXRAT( 324 ) ! KETP+ACO3=0.5000D+00*DCB1+... & + 5.4880D-01 * RXRAT( 347 ) ! TOLP+NO3=0.5488D+00*DCB1+... & + 6.7000D-01 * RXRAT( 358 ) ! MEKP+NO3=0.6700D+00*DCB1+... & + RXRAT( 359 ) ! KETP+NO3=DCB1+NO2+HO2 & + 4.9000D-01 * RXRAT( 405 ) ! FURAN+HO=0.4900D+00*DCB1+... & + 8.0000D-01 * RXRAT( 410 ) ! FURAN+NO3=0.8000D+00*DCB1+... & + 2.5810D-01 * RXRAT( 507 ) ! VROCN2OXY8+HO=0.2581D+... & + 7.9400D-02 * RXRAT( 508 ) ! VROCN2OXY4+HO=0.7940D-... & + 3.9000D-02 * RXRAT( 509 ) ! VROCN2OXY2+HO=0.3900D-... & + 1.8400D-01 * RXRAT( 510 ) ! VROCN1OXY6+HO=0.1840D+... & + 6.4600D-02 * RXRAT( 511 ) ! VROCN1OXY3+HO=0.6460D-... & + 2.4400D-02 * RXRAT( 512 ) ! VROCN1OXY1+HO=0.2440D-... & + 1.0680D-01 * RXRAT( 513 ) ! VROCP0OXY4+HO=0.1068D+... & + 4.4500D-02 * RXRAT( 514 ) ! VROCP0OXY2+HO=0.4450D-... & + 8.1800D-02 * RXRAT( 515 ) ! VROCP1OXY3+HO=0.8180D-... & + 2.9700D-02 * RXRAT( 516 ) ! VROCP1OXY1+HO=0.2970D-... & + 6.2800D-02 * RXRAT( 517 ) ! VROCP2OXY2+HO=0.6280D-... & + 6.9800D-02 * RXRAT( 518 ) ! VROCP3OXY2+HO=0.6980D-... & + 7.8600D-02 * RXRAT( 519 ) ! VROCP4OXY2+HO=0.7860D-... & + 5.2600D-02 * RXRAT( 520 ) ! VROCP5OXY1+HO=0.5260D-... & + 5.7100D-02 * RXRAT( 521 ) ! VROCP6OXY1+HO=0.5710D-... & + 2.2660D-01 * RXRAT( 522 ) ! OP3+HO=0.2266D+00*DCB1+... LOSS( DCB1 ) = RXRAT( 28 ) ! DCB1=0.1500D+01*HO2+... & + RXRAT( 119 ) ! DCB1+HO=0.5200D+00*HO2+... & + RXRAT( 154 ) ! DCB1+O3=0.5000D-01*HO+HO2+... PROD( DCB2 ) = 2.4950D-01 * RXRAT( 190 ) ! BENP+NO=0.2495D+00*DCB2+... & + 5.9840D-01 * RXRAT( 192 ) ! XYLP+NO=0.5984D+00*DCB2+... & + 4.5640D-01 * RXRAT( 193 ) ! EBZP+NO=0.4564D+00*DCB2+... & + 2.5000D-01 * RXRAT( 270 ) ! BENP+MO2=0.2500D+00*DCB2+... & + 5.9960D-01 * RXRAT( 272 ) ! XYLP+MO2=0.5996D+00*DCB2+... & + 4.5730D-01 * RXRAT( 273 ) ! EBZP+MO2=0.4573D+00*DCB2+... & + 2.5000D-01 * RXRAT( 307 ) ! BENP+ACO3=0.2500D+00*DCB2+... & + 5.9960D-01 * RXRAT( 309 ) ! XYLP+ACO3=0.5996D+00*DCB2+... & + 4.5730D-01 * RXRAT( 310 ) ! EBZP+ACO3=0.4573D+00*DCB2+... & + 2.5000D-01 * RXRAT( 346 ) ! BENP+NO3=0.2500D+00*DCB2+... & + 5.9960D-01 * RXRAT( 348 ) ! XYLP+NO3=0.5996D+00*DCB2+... & + 4.5730D-01 * RXRAT( 349 ) ! EBZP+NO3=0.4573D+00*DCB2+... & + 4.6930D-01 * RXRAT( 491 ) ! VROCP6AROP+NO=0.4693D+... & + 4.7020D-01 * RXRAT( 492 ) ! VROCP6AROP+NO3=0.4702D+... & + 4.7020D-01 * RXRAT( 493 ) ! VROCP6AROP+MO2=0.4702D+... & + 4.7020D-01 * RXRAT( 494 ) ! VROCP6AROP+ACO3=0.4702D+... & + 4.6930D-01 * RXRAT( 497 ) ! VROCP5AROP+NO=0.4693D+... & + 4.7020D-01 * RXRAT( 498 ) ! VROCP5AROP+NO3=0.4702D+... & + 4.7020D-01 * RXRAT( 499 ) ! VROCP5AROP+MO2=0.4702D+... & + 4.7020D-01 * RXRAT( 500 ) ! VROCP5AROP+ACO3=0.4702D+... & + 4.6930D-01 * RXRAT( 503 ) ! NAPHP+NO=0.4693D+00*DCB2+... & + 4.7020D-01 * RXRAT( 504 ) ! NAPHP+NO3=0.4702D+00*DCB2+... & + 4.7020D-01 * RXRAT( 505 ) ! NAPHP+MO2=0.4702D+00*DCB2+... & + 4.7020D-01 * RXRAT( 506 ) ! NAPHP+ACO3=0.4702D+00*DCB2+... LOSS( DCB2 ) = RXRAT( 29 ) ! DCB2=0.1500D+01*HO2+... & + RXRAT( 120 ) ! DCB2+HO=0.5200D+00*HO2+... & + RXRAT( 155 ) ! DCB2+O3=0.5000D-01*HO+HO2+... PROD( BALD ) = 2.0000D-02 * RXRAT( 145 ) ! OLT+O3=0.2000D-01*BALD+... & + 8.5200D-02 * RXRAT( 191 ) ! TOLP+NO=0.8520D-01*BALD+... & + 4.8100D-02 * RXRAT( 192 ) ! XYLP+NO=0.4810D-01*BALD+... & + 8.5200D-02 * RXRAT( 193 ) ! EBZP+NO=0.8520D-01*BALD+... & + 8.5400D-02 * RXRAT( 271 ) ! TOLP+MO2=0.8540D-01*BALD+... & + 4.8200D-02 * RXRAT( 272 ) ! XYLP+MO2=0.4820D-01*BALD+... & + 8.5400D-02 * RXRAT( 273 ) ! EBZP+MO2=0.8540D-01*BALD+... & + 8.5400D-02 * RXRAT( 308 ) ! TOLP+ACO3=0.8540D-01*BALD+... & + 4.8200D-02 * RXRAT( 309 ) ! XYLP+ACO3=0.4820D-01*BALD+... & + 8.5400D-02 * RXRAT( 310 ) ! EBZP+ACO3=0.8540D-01*BALD+... & + 8.5400D-02 * RXRAT( 347 ) ! TOLP+NO3=0.8540D-01*BALD+... & + 4.8200D-02 * RXRAT( 348 ) ! XYLP+NO3=0.4820D-01*BALD+... & + 8.5400D-02 * RXRAT( 349 ) ! EBZP+NO3=0.8540D-01*BALD+... & + 5.9400D-02 * RXRAT( 491 ) ! VROCP6AROP+NO=0.5940D-... & + 5.9500D-02 * RXRAT( 492 ) ! VROCP6AROP+NO3=0.5950D-... & + 5.9500D-02 * RXRAT( 493 ) ! VROCP6AROP+MO2=0.5950D-... & + 5.9500D-02 * RXRAT( 494 ) ! VROCP6AROP+ACO3=0.5950D-... & + RXRAT( 528 ) ! STYP+NO=BALD+HO2+HCHO+NO2 & + RXRAT( 529 ) ! STYP+NO3=BALD+HO2+HCHO+NO2 & + RXRAT( 530 ) ! STYP+MO2=BALD+0.1680D+... & + RXRAT( 531 ) ! STYP+ACO3=BALD+HCHO+HO2+... LOSS( BALD ) = RXRAT( 30 ) ! BALD=CHO+HO2+CO & + RXRAT( 122 ) ! BALD+HO=BALP PROD( CHO ) = RXRAT( 30 ) ! BALD=CHO+HO2+CO & + 5.9000D-02 * RXRAT( 123 ) ! PHEN+HO=0.5900D-01*CHO+... & + 5.6000D-02 * RXRAT( 124 ) ! CSL+HO=0.5600D-01*CHO+... & + 3.3900D-01 * RXRAT( 171 ) ! PHEN+NO3=0.3390D+00*CHO+... & + 3.2000D-01 * RXRAT( 172 ) ! CSL+NO3=0.3200D+00*CHO+... LOSS( CHO ) = RXRAT( 223 ) ! CHO+NO2=ONIT & + RXRAT( 256 ) ! CHO+HO2=CSL PROD( OP1 ) = 3.8500D-02 * RXRAT( 147 ) ! API+O3=0.3850D-01*OP1+... & + 2.3000D-01 * RXRAT( 149 ) ! LIMAL+O3=0.2300D+00*OP1+... & + RXRAT( 225 ) ! MO2+HO2=OP1 LOSS( OP1 ) = RXRAT( 31 ) ! OP1=HO+HO2+HCHO & + RXRAT( 130 ) ! OP1+HO=0.3500D+00*HO+... PROD( OP2 ) = 7.8000D-01 * RXRAT( 120 ) ! DCB2+HO=0.7800D+00*OP2+... & + 7.9000D-01 * RXRAT( 121 ) ! DCB3+HO=0.7900D+00*OP2+... & + 6.5000D-01 * RXRAT( 154 ) ! DCB1+O3=0.6500D+00*OP2+HO2+... & + 6.5000D-01 * RXRAT( 155 ) ! DCB2+O3=0.6500D+00*OP2+HO2+... & + 6.8000D-01 * RXRAT( 215 ) ! ADDC+NO=0.6800D+00*OP2+NO2+... & + RXRAT( 220 ) ! ADCN+NO=OP2+GLY+0.2000D+01*NO2 & + RXRAT( 226 ) ! ETHP+HO2=OP2 & + RXRAT( 227 ) ! HC3P+HO2=OP2 & + RXRAT( 228 ) ! HC5P+HO2=OP2 & + RXRAT( 229 ) ! ETEP+HO2=OP2 & + RXRAT( 230 ) ! OLTP+HO2=OP2 & + RXRAT( 231 ) ! OLIP+HO2=OP2 & + 6.0210D-01 * RXRAT( 232 ) ! BENP+HO2=0.6021D+00*OP2+... & + 7.1950D-01 * RXRAT( 233 ) ! TOLP+HO2=0.7195D+00*OP2+... & + 4.8200D-02 * RXRAT( 234 ) ! XYLP+HO2=0.4820D-01*OP2+... & + 8.5400D-02 * RXRAT( 235 ) ! EBZP+HO2=0.8540D-01*OP2+... & + 8.5000D-01 * RXRAT( 248 ) ! ACTP+HO2=0.8500D+00*OP2+... & + RXRAT( 249 ) ! MEKP+HO2=OP2 & + RXRAT( 250 ) ! KETP+HO2=OP2 & + RXRAT( 253 ) ! MVKP+HO2=OP2 & + RXRAT( 254 ) ! UALP+HO2=OP2 & + RXRAT( 255 ) ! ADDC+HO2=OP2 & + RXRAT( 257 ) ! MCTP+HO2=OP2 & + RXRAT( 258 ) ! ORAP+HO2=OP2 & + RXRAT( 261 ) ! ADCN+HO2=OP2 & + RXRAT( 262 ) ! XO2+HO2=OP2 & + 6.8000D-01 * RXRAT( 294 ) ! ADDC+MO2=0.6800D+00*OP2+... & + 7.0000D-01 * RXRAT( 299 ) ! ADCN+MO2=0.7000D+00*OP2+... & + 6.8000D-01 * RXRAT( 331 ) ! ADDC+ACO3=0.6800D+00*OP2+... & + 7.0000D-01 * RXRAT( 336 ) ! ADCN+ACO3=0.7000D+00*OP2+... & + 6.8000D-01 * RXRAT( 366 ) ! ADDC+NO3=0.6800D+00*OP2+... & + RXRAT( 371 ) ! ADCN+NO3=OP2+GLY+0.2000D+... & + RXRAT( 400 ) ! BDE13P+HO2=OP2 & + 6.0000D-01 * RXRAT( 407 ) ! FURANO2+HO2=0.6000D+00*OP2+... & + RXRAT( 460 ) ! HC10P+HO2=OP2 & + 4.0000D-03 * RXRAT( 508 ) ! VROCN2OXY4+HO=0.4000D-... & + 1.3500D-02 * RXRAT( 511 ) ! VROCN1OXY3+HO=0.1350D-... & + 6.2000D-03 * RXRAT( 512 ) ! VROCN1OXY1+HO=0.6200D-... & + 5.4000D-03 * RXRAT( 513 ) ! VROCP0OXY4+HO=0.5400D-... & + 1.7000D-02 * RXRAT( 515 ) ! VROCP1OXY3+HO=0.1700D-... & + 2.5000D-03 * RXRAT( 516 ) ! VROCP1OXY1+HO=0.2500D-... & + 2.3000D-03 * RXRAT( 517 ) ! VROCP2OXY2+HO=0.2300D-... & + 1.1400D-02 * RXRAT( 518 ) ! VROCP3OXY2+HO=0.1140D-... & + 1.5500D-02 * RXRAT( 519 ) ! VROCP4OXY2+HO=0.1550D-... & + 3.8400D-02 * RXRAT( 520 ) ! VROCP5OXY1+HO=0.3840D-... & + 5.8500D-02 * RXRAT( 521 ) ! VROCP6OXY1+HO=0.5850D-... LOSS( OP2 ) = RXRAT( 32 ) ! OP2=HO+HO2+ALD & + RXRAT( 131 ) ! OP2+HO=0.1000D-01*HO+... PROD( OPB ) = 7.1500D-02 * RXRAT( 194 ) ! APIP1+NO=0.7150D-01*OPB+... & + 7.6200D-01 * RXRAT( 236 ) ! APIP1+HO2=0.7620D+00*OPB+... & + 9.0000D-01 * RXRAT( 240 ) ! LIMP1+HO2=0.9000D+00*OPB+... & + 7.5000D-01 * RXRAT( 244 ) ! PINALP+HO2=0.7500D+00*OPB+... & + 9.0000D-01 * RXRAT( 245 ) ! LIMALP+HO2=0.9000D+00*OPB+... & + 8.4500D-02 * RXRAT( 275 ) ! APIP1+MO2=0.8450D-01*OPB+... & + 9.1000D-02 * RXRAT( 312 ) ! APIP1+ACO3=0.9100D-01*OPB+... & + 9.1000D-02 * RXRAT( 351 ) ! APIP1+NO3=0.9100D-01*OPB+... LOSS( OPB ) = RXRAT( 33 ) ! OPB=HO+HO2+ALD & + RXRAT( 132 ) ! OPB+HO=0.1000D-01*HO+... PROD( OP3 ) = 6.7470D-01 * RXRAT( 234 ) ! XYLP+HO2=0.6747D+00*OP3+... & + 6.3410D-01 * RXRAT( 235 ) ! EBZP+HO2=0.6341D+00*OP3+... & + 3.0800D-02 * RXRAT( 508 ) ! VROCN2OXY4+HO=0.3080D-... & + 2.6000D-03 * RXRAT( 509 ) ! VROCN2OXY2+HO=0.2600D-... & + 1.6300D-02 * RXRAT( 512 ) ! VROCN1OXY1+HO=0.1630D-... & + 1.0500D-02 * RXRAT( 514 ) ! VROCP0OXY2+HO=0.1050D-... & + 1.5400D-02 * RXRAT( 515 ) ! VROCP1OXY3+HO=0.1540D-... & + 6.6000D-03 * RXRAT( 516 ) ! VROCP1OXY1+HO=0.6600D-... & + 4.1000D-03 * RXRAT( 517 ) ! VROCP2OXY2+HO=0.4100D-... & + 5.0600D-02 * RXRAT( 518 ) ! VROCP3OXY2+HO=0.5060D-... & + 6.0700D-02 * RXRAT( 519 ) ! VROCP4OXY2+HO=0.6070D-... & + 2.1600D-02 * RXRAT( 520 ) ! VROCP5OXY1+HO=0.2160D-... & + 3.1600D-02 * RXRAT( 521 ) ! VROCP6OXY1+HO=0.3160D-... LOSS( OP3 ) = RXRAT( 34 ) ! OP3=HO+HO2+ALD & + RXRAT( 133 ) ! OP3+HO=0.1000D-01*HO+... & + RXRAT( 522 ) ! OP3+HO=HO+0.1188D+... PROD( PAA ) = 1.1000D-01 * RXRAT( 156 ) ! DCB3+O3=0.1100D+00*PAA+HO2+... & + 3.6000D-01 * RXRAT( 203 ) ! LIMALP+NO=0.3600D+00*PAA+... & + 1.0000D-01 * RXRAT( 245 ) ! LIMALP+HO2=0.1000D+00*PAA+... & + 4.1000D-01 * RXRAT( 246 ) ! ACO3+HO2=0.4100D+00*PAA+... & + 4.1000D-01 * RXRAT( 247 ) ! RCO3+HO2=0.4100D+00*PAA+... LOSS( PAA ) = RXRAT( 35 ) ! PAA=HO+MO2 & + RXRAT( 137 ) ! PAA+HO=0.3500D+00*HO+... PROD( ONIT ) = RXRAT( 168 ) ! UALD+NO3=ONIT+XO2+0.6680D+... & + 6.5000D-02 * RXRAT( 185 ) ! HC3P+NO=0.6500D-01*ONIT+... & + 1.3600D-01 * RXRAT( 186 ) ! HC5P+NO=0.1360D+00*ONIT+... & + 3.0000D-02 * RXRAT( 188 ) ! OLTP+NO=0.3000D-01*ONIT+... & + 5.0000D-02 * RXRAT( 189 ) ! OLIP+NO=0.5000D-01*ONIT+... & + 2.0000D-04 * RXRAT( 191 ) ! TOLP+NO=0.2000D-03*ONIT+... & + 1.0000D-04 * RXRAT( 192 ) ! XYLP+NO=0.1000D-03*ONIT+... & + 2.0000D-04 * RXRAT( 193 ) ! EBZP+NO=0.2000D-03*ONIT+... & + 7.0000D-02 * RXRAT( 196 ) ! APINP1+NO=0.7000D-01*ONIT+... & + 7.0000D-02 * RXRAT( 200 ) ! LIMNP1+NO=0.7000D-01*ONIT+... & + RXRAT( 218 ) ! OLNN+NO=ONIT+HO2+NO2 & + RXRAT( 222 ) ! BAL2+NO2=ONIT & + RXRAT( 223 ) ! CHO+NO2=ONIT & + RXRAT( 224 ) ! MCTO+NO2=ONIT & + RXRAT( 259 ) ! OLNN+HO2=ONIT & + RXRAT( 260 ) ! OLND+HO2=ONIT & + RXRAT( 297 ) ! OLNN+MO2=ONIT+HCHO+0.2000D+... & + 5.0000D-01 * RXRAT( 298 ) ! OLND+MO2=0.5000D+00*ONIT+... & + 3.0000D-01 * RXRAT( 299 ) ! ADCN+MO2=0.3000D+00*ONIT+... & + RXRAT( 334 ) ! OLNN+ACO3=ONIT+MO2+HO2 & + 3.0000D-01 * RXRAT( 336 ) ! ADCN+ACO3=0.3000D+00*ONIT+... & + RXRAT( 369 ) ! OLNN+NO3=ONIT+NO2+HO2 & + 2.0000D+00 * RXRAT( 372 ) ! OLNN+OLNN=0.2000D+01*ONIT+HO2 & + 1.5000D+00 * RXRAT( 373 ) ! OLNN+OLND=0.1500D+01*ONIT+... & + RXRAT( 374 ) ! OLND+OLND=ONIT+0.5040D+... & + 3.2000D-02 * RXRAT( 398 ) ! BDE13P+NO=0.3200D-01*ONIT+... & + 8.0000D-02 * RXRAT( 406 ) ! FURANO2+NO=0.8000D-01*ONIT+... & + 2.6000D-01 * RXRAT( 446 ) ! HC10P+NO=0.2600D+00*ONIT+... & + 1.2000D-01 * RXRAT( 474 ) ! HC10P2+NO=0.1200D+00*ONIT+... LOSS( ONIT ) = RXRAT( 36 ) ! ONIT=HO2+NO2+0.2000D+... & + RXRAT( 141 ) ! ONIT+HO=HC3P+NO2 PROD( TRPN ) = 2.3700D-01 * RXRAT( 194 ) ! APIP1+NO=0.2370D+00*TRPN+... & + 2.3450D-01 * RXRAT( 196 ) ! APINP1+NO=0.2345D+00*TRPN+... & + 2.3000D-01 * RXRAT( 198 ) ! LIMP1+NO=0.2300D+00*TRPN+... & + 5.7000D-01 * RXRAT( 200 ) ! LIMNP1+NO=0.5700D+00*TRPN+... & + 3.6000D-01 * RXRAT( 202 ) ! PINALP+NO=0.3600D+00*TRPN+... & + 6.4000D-01 * RXRAT( 203 ) ! LIMALP+NO=0.6400D+00*TRPN+... & + 4.6100D-01 * RXRAT( 238 ) ! APINP1+HO2=0.4610D+00*TRPN+... & + 7.7000D-01 * RXRAT( 242 ) ! LIMNP1+HO2=0.7700D+00*TRPN+... & + 3.4100D-01 * RXRAT( 277 ) ! APINP1+MO2=0.3410D+00*TRPN+... & + 6.9000D-01 * RXRAT( 281 ) ! LIMNP1+MO2=0.6900D+00*TRPN+... & + 1.7500D-01 * RXRAT( 314 ) ! APINP1+ACO3=0.1750D+... & + 5.4000D-01 * RXRAT( 318 ) ! LIMNP1+ACO3=0.5400D+... & + 1.7500D-01 * RXRAT( 353 ) ! APINP1+NO3=0.1750D+00*TRPN+... & + 5.4000D-01 * RXRAT( 354 ) ! LIMNP1+NO3=0.5400D+00*TRPN+... LOSS( TRPN ) = RXRAT( 39 ) ! TRPN=NO2+0.6700D+00*KET+... & + RXRAT( 142 ) ! TRPN+HO=0.3300D+00*HONIT+... & + RXRAT( 150 ) ! TRPN+O3=0.3300D+00*HONIT+... & + RXRAT( 163 ) ! TRPN+NO3=0.3300D+00*HONIT+... PROD( HONIT ) = 3.3000D-01 * RXRAT( 142 ) ! TRPN+HO=0.3300D+00*HONIT+... & + 3.3000D-01 * RXRAT( 150 ) ! TRPN+O3=0.3300D+00*HONIT+... & + 3.3000D-01 * RXRAT( 163 ) ! TRPN+NO3=0.3300D+00*HONIT+... LOSS( HONIT ) = RXRAT( 40 ) ! HONIT=HKET+NO2 & + RXRAT( 143 ) ! HONIT+HO=HKET+NO3 PROD( SO2 ) = 0.0D0 LOSS( SO2 ) = RXRAT( 76 ) ! SO2+HO=HO2+SULF+SULRXN PROD( SULF ) = RXRAT( 76 ) ! SO2+HO=SULF+HO2+SULRXN LOSS( SULF ) = 0.0D0 PROD( SULRXN ) = RXRAT( 76 ) ! SO2+HO=SULRXN+SULF+HO2 LOSS( SULRXN ) = 0.0D0 PROD( ETH ) = 2.0000D-02 * RXRAT( 145 ) ! OLT+O3=0.2000D-01*ETH+... & + 1.0000D-02 * RXRAT( 146 ) ! OLI+O3=0.1000D-01*ETH+... LOSS( ETH ) = RXRAT( 79 ) ! ETH+HO=ETHP PROD( HC3 ) = 1.5000D-02 * RXRAT( 145 ) ! OLT+O3=0.1500D-01*HC3+... & + 1.0000D-02 * RXRAT( 146 ) ! OLI+O3=0.1000D-01*HC3+... & + 6.6500D-02 * RXRAT( 147 ) ! API+O3=0.6650D-01*HC3+... LOSS( HC3 ) = RXRAT( 80 ) ! HC3+HO=HC3P+0.2810D-04*ASOATJ PROD( HC3P ) = RXRAT( 80 ) ! HC3+HO=HC3P+0.2810D-04*ASOATJ & + 4.4000D-01 * RXRAT( 131 ) ! OP2+HO=0.4400D+00*HC3P+... & + RXRAT( 141 ) ! ONIT+HO=HC3P+NO2 & + 4.0000D-02 * RXRAT( 145 ) ! OLT+O3=0.4000D-01*HC3P+... & + 4.0000D-02 * RXRAT( 146 ) ! OLI+O3=0.4000D-01*HC3P+... & + 2.5810D-01 * RXRAT( 507 ) ! VROCN2OXY8+HO=0.2581D+... & + 7.9400D-02 * RXRAT( 508 ) ! VROCN2OXY4+HO=0.7940D-... & + 3.9000D-02 * RXRAT( 509 ) ! VROCN2OXY2+HO=0.3900D-... & + 1.8400D-01 * RXRAT( 510 ) ! VROCN1OXY6+HO=0.1840D+... & + 6.4600D-02 * RXRAT( 511 ) ! VROCN1OXY3+HO=0.6460D-... & + 2.4400D-02 * RXRAT( 512 ) ! VROCN1OXY1+HO=0.2440D-... & + 1.0680D-01 * RXRAT( 513 ) ! VROCP0OXY4+HO=0.1068D+... & + 4.4500D-02 * RXRAT( 514 ) ! VROCP0OXY2+HO=0.4450D-... & + 8.1800D-02 * RXRAT( 515 ) ! VROCP1OXY3+HO=0.8180D-... & + 2.9700D-02 * RXRAT( 516 ) ! VROCP1OXY1+HO=0.2970D-... & + 6.2800D-02 * RXRAT( 517 ) ! VROCP2OXY2+HO=0.6280D-... & + 6.9800D-02 * RXRAT( 518 ) ! VROCP3OXY2+HO=0.6980D-... & + 7.8600D-02 * RXRAT( 519 ) ! VROCP4OXY2+HO=0.7860D-... & + 5.2600D-02 * RXRAT( 520 ) ! VROCP5OXY1+HO=0.5260D-... & + 5.7100D-02 * RXRAT( 521 ) ! VROCP6OXY1+HO=0.5710D-... & + 2.2660D-01 * RXRAT( 522 ) ! OP3+HO=0.2266D+00*HC3P+... LOSS( HC3P ) = RXRAT( 185 ) ! HC3P+NO=0.6600D+00*HO2+... & + RXRAT( 227 ) ! HC3P+HO2=OP2 & + RXRAT( 265 ) ! HC3P+MO2=0.8940D+00*HO2+... & + RXRAT( 302 ) ! HC3P+ACO3=0.3940D+00*HO2+... & + RXRAT( 341 ) ! HC3P+NO3=0.2540D+00*HO2+... PROD( ASOATJ ) = 2.8100D-05 * RXRAT( 80 ) ! HC3+HO=0.2810D-04*ASOATJ+HC3P & + 1.3400D-03 * RXRAT( 81 ) ! HC5+HO=0.1340D-02*ASOATJ+HC5P & + 1.5200D-01 * RXRAT( 123 ) ! PHEN+HO=0.1520D+00*ASOATJ+... & + 2.0000D-01 * RXRAT( 124 ) ! CSL+HO=0.2000D+00*ASOATJ+... & + 1.5200D-01 * RXRAT( 171 ) ! PHEN+NO3=0.1520D+00*ASOATJ+... & + 2.0000D-01 * RXRAT( 172 ) ! CSL+NO3=0.2000D+00*ASOATJ+... & + 1.4900D-01 * RXRAT( 391 ) ! VROCIOXY+HO=0.1490D+... & + 1.0100D-03 * RXRAT( 392 ) ! SLOWROC+HO=0.1010D-... & + 4.0000D-02 * RXRAT( 408 ) ! FURANONE+HO=0.4000D-... LOSS( ASOATJ ) = 0.0D0 PROD( HC5 ) = 6.0000D-03 * RXRAT( 145 ) ! OLT+O3=0.6000D-02*HC5+... LOSS( HC5 ) = RXRAT( 81 ) ! HC5+HO=HC5P+0.1340D-02*ASOATJ PROD( HC5P ) = RXRAT( 81 ) ! HC5+HO=HC5P+0.1340D-02*ASOATJ & + 2.0000D-02 * RXRAT( 145 ) ! OLT+O3=0.2000D-01*HC5P+... & + 7.9400D-02 * RXRAT( 508 ) ! VROCN2OXY4+HO=0.7940D-... & + 9.2500D-02 * RXRAT( 509 ) ! VROCN2OXY2+HO=0.9250D-... & + 1.8400D-01 * RXRAT( 510 ) ! VROCN1OXY6+HO=0.1840D+... & + 1.7530D-01 * RXRAT( 511 ) ! VROCN1OXY3+HO=0.1753D+... & + 5.3700D-02 * RXRAT( 512 ) ! VROCN1OXY1+HO=0.5370D-... & + 1.0680D-01 * RXRAT( 513 ) ! VROCP0OXY4+HO=0.1068D+... & + 1.0550D-01 * RXRAT( 514 ) ! VROCP0OXY2+HO=0.1055D+... & + 2.2200D-01 * RXRAT( 515 ) ! VROCP1OXY3+HO=0.2220D+... & + 6.5400D-02 * RXRAT( 516 ) ! VROCP1OXY1+HO=0.6540D-... & + 1.4890D-01 * RXRAT( 517 ) ! VROCP2OXY2+HO=0.1489D+... & + 1.6560D-01 * RXRAT( 518 ) ! VROCP3OXY2+HO=0.1656D+... & + 1.7300D-01 * RXRAT( 519 ) ! VROCP4OXY2+HO=0.1730D+... & + 1.2800D-01 * RXRAT( 520 ) ! VROCP5OXY1+HO=0.1280D+... & + 1.5440D-01 * RXRAT( 521 ) ! VROCP6OXY1+HO=0.1544D+... LOSS( HC5P ) = RXRAT( 186 ) ! HC5P+NO=0.2000D+00*HO2+... & + RXRAT( 228 ) ! HC5P+HO2=OP2 & + RXRAT( 266 ) ! HC5P+MO2=0.8420D+00*HO2+... & + RXRAT( 303 ) ! HC5P+ACO3=0.3420D+00*HO2+... & + RXRAT( 342 ) ! HC5P+NO3=0.4880D+00*HO2+... PROD( ETE ) = 2.5000D-01 * RXRAT( 396 ) ! ACRO=0.2500D+00*ETE+... & + 1.7000D-01 * RXRAT( 403 ) ! BDE13+O3=0.1700D+00*ETE+... LOSS( ETE ) = RXRAT( 82 ) ! ETE+HO=ETEP & + RXRAT( 144 ) ! ETE+O3=0.8000D-01*HO+... & + RXRAT( 158 ) ! ETE+NO3=0.8000D+00*OLNN+... PROD( ETEP ) = RXRAT( 82 ) ! ETE+HO=ETEP LOSS( ETEP ) = RXRAT( 187 ) ! ETEP+NO=HO2+NO2+0.1600D+... & + RXRAT( 229 ) ! ETEP+HO2=OP2 & + RXRAT( 267 ) ! ETEP+MO2=HO2+0.1950D+... & + RXRAT( 304 ) ! ETEP+ACO3=0.5000D+00*HO2+... & + RXRAT( 343 ) ! ETEP+NO3=HO2+NO2+0.1600D+... PROD( OLT ) = 1.5300D-01 * RXRAT( 90 ) ! ISO+O3=0.1530D+00*OLT+... & + 2.5000D-01 * RXRAT( 401 ) ! BDE13P+MO2=0.2500D+00*OLT+... LOSS( OLT ) = RXRAT( 83 ) ! OLT+HO=OLTP & + RXRAT( 145 ) ! OLT+O3=0.2200D+00*HO+... & + RXRAT( 159 ) ! OLT+NO3=0.4300D+00*OLNN+... PROD( OLTP ) = RXRAT( 83 ) ! OLT+HO=OLTP LOSS( OLTP ) = RXRAT( 188 ) ! OLTP+NO=0.7800D+00*HO2+... & + RXRAT( 230 ) ! OLTP+HO2=OP2 & + RXRAT( 268 ) ! OLTP+MO2=HO2+0.1500D+... & + RXRAT( 305 ) ! OLTP+ACO3=0.5000D+00*HO2+... & + RXRAT( 344 ) ! OLTP+NO3=0.4700D+00*ALD+... PROD( OLI ) = 0.0D0 LOSS( OLI ) = RXRAT( 84 ) ! OLI+HO=OLIP & + RXRAT( 146 ) ! OLI+O3=0.4600D+00*HO+... & + RXRAT( 160 ) ! OLI+NO3=0.1100D+00*OLNN+... PROD( OLIP ) = RXRAT( 84 ) ! OLI+HO=OLIP LOSS( OLIP ) = RXRAT( 189 ) ! OLIP+NO=0.8300D+00*HO2+... & + RXRAT( 231 ) ! OLIP+HO2=OP2 & + RXRAT( 269 ) ! OLIP+MO2=HO2+0.7500D+... & + RXRAT( 306 ) ! OLIP+ACO3=0.5000D+00*HO2+... & + RXRAT( 345 ) ! OLIP+NO3=0.8600D+00*HO2+... PROD( ACE ) = 0.0D0 LOSS( ACE ) = RXRAT( 85 ) ! ACE+HO=0.6500D+00*HO+... PROD( ORA1 ) = 3.5000D-01 * RXRAT( 85 ) ! ACE+HO=0.3500D+00*ORA1+... & + 2.8000D-01 * RXRAT( 90 ) ! ISO+O3=0.2800D+00*ORA1+... & + 3.7000D-01 * RXRAT( 144 ) ! ETE+O3=0.3700D+00*ORA1+... & + 3.0000D-02 * RXRAT( 145 ) ! OLT+O3=0.3000D-01*ORA1+... & + 2.8000D-02 * RXRAT( 147 ) ! API+O3=0.2800D-01*ORA1+... & + 1.5000D-01 * RXRAT( 149 ) ! LIMAL+O3=0.1500D+00*ORA1+... & + 4.5000D-01 * RXRAT( 151 ) ! MACR+O3=0.4500D+00*ORA1+... & + 7.0000D-02 * RXRAT( 152 ) ! MVK+O3=0.7000D-01*ORA1+... & + 4.4000D-02 * RXRAT( 153 ) ! UALD+O3=0.4400D-01*ORA1+... & + 2.5000D-01 * RXRAT( 156 ) ! DCB3+O3=0.2500D+00*ORA1+... LOSS( ORA1 ) = RXRAT( 135 ) ! ORA1+HO=HO2 PROD( BEN ) = 3.2000D-02 * RXRAT( 145 ) ! OLT+O3=0.3200D-01*BEN+... LOSS( BEN ) = RXRAT( 86 ) ! BEN+HO=0.4700D+00*BENP+... PROD( BENP ) = 4.7000D-01 * RXRAT( 86 ) ! BEN+HO=0.4700D+00*BENP+... LOSS( BENP ) = RXRAT( 190 ) ! BENP+NO=0.0000D+00*ONIT+... & + RXRAT( 232 ) ! BENP+HO2=0.6021D+00*OP2+... & + RXRAT( 270 ) ! BENP+MO2=0.6800D+00*HCHO+... & + RXRAT( 307 ) ! BENP+ACO3=0.7000D+00*MO2+... & + RXRAT( 346 ) ! BENP+NO3=NO2+HO2+0.0000D+... PROD( PHEN ) = 5.3000D-01 * RXRAT( 86 ) ! BEN+HO=0.5300D+00*PHEN+... LOSS( PHEN ) = RXRAT( 123 ) ! PHEN+HO=0.1520D+00*ASOATJ+... & + RXRAT( 171 ) ! PHEN+NO3=0.1520D+00*ASOATJ+... PROD( TOL ) = 0.0D0 LOSS( TOL ) = RXRAT( 87 ) ! TOL+HO=0.8200D+00*TOLP+... PROD( TOLP ) = 8.2000D-01 * RXRAT( 87 ) ! TOL+HO=0.8200D+00*TOLP+... LOSS( TOLP ) = RXRAT( 191 ) ! TOLP+NO=0.2000D-03*ONIT+... & + RXRAT( 233 ) ! TOLP+HO2=0.7195D+00*OP2+... & + RXRAT( 271 ) ! TOLP+MO2=0.6800D+00*HCHO+... & + RXRAT( 308 ) ! TOLP+ACO3=0.7000D+00*MO2+... & + RXRAT( 347 ) ! TOLP+NO3=NO2+0.9146D+... PROD( CSL ) = 1.8000D-01 * RXRAT( 87 ) ! TOL+HO=0.1800D+00*CSL+... & + 1.7000D-01 * RXRAT( 88 ) ! XYL+HO=0.1700D+00*CSL+... & + 1.8000D-01 * RXRAT( 89 ) ! EBZ+HO=0.1800D+00*CSL+... & + RXRAT( 256 ) ! CHO+HO2=CSL LOSS( CSL ) = RXRAT( 124 ) ! CSL+HO=0.2000D+00*ASOATJ+... & + RXRAT( 172 ) ! CSL+NO3=0.2000D+00*ASOATJ+... PROD( XYL ) = 0.0D0 LOSS( XYL ) = RXRAT( 88 ) ! XYL+HO=0.8300D+00*XYLP+... PROD( XYLP ) = 8.3000D-01 * RXRAT( 88 ) ! XYL+HO=0.8300D+00*XYLP+... LOSS( XYLP ) = RXRAT( 192 ) ! XYLP+NO=0.1000D-03*ONIT+... & + RXRAT( 234 ) ! XYLP+HO2=0.4820D-01*OP2+... & + RXRAT( 272 ) ! XYLP+MO2=0.6800D+00*HCHO+... & + RXRAT( 309 ) ! XYLP+ACO3=0.7000D+00*MO2+... & + RXRAT( 348 ) ! XYLP+NO3=NO2+0.9518D+... PROD( EBZ ) = 0.0D0 LOSS( EBZ ) = RXRAT( 89 ) ! EBZ+HO=0.8200D+00*EBZP+... PROD( EBZP ) = 8.2000D-01 * RXRAT( 89 ) ! EBZ+HO=0.8200D+00*EBZP+... LOSS( EBZP ) = RXRAT( 193 ) ! EBZP+NO=0.2000D-03*ONIT+... & + RXRAT( 235 ) ! EBZP+HO2=0.8540D-01*OP2+... & + RXRAT( 273 ) ! EBZP+MO2=0.6800D+00*HCHO+... & + RXRAT( 310 ) ! EBZP+ACO3=0.7000D+00*MO2+... & + RXRAT( 349 ) ! EBZP+NO3=NO2+0.9146D+... PROD( ISO ) = 0.0D0 LOSS( ISO ) = RXRAT( 90 ) ! ISO+O3=0.2500D+00*HO+... & + RXRAT( 91 ) ! ISO+NO3=0.4000D+00*NO2+... & + RXRAT( 92 ) ! ISO+HO=ISOP+0.2500D+... PROD( ISON ) = 4.5000D-02 * RXRAT( 91 ) ! ISO+NO3=0.4500D-01*ISON+... & + 1.3000D-01 * RXRAT( 94 ) ! ISOP+NO=0.1300D+00*ISON+... & + 5.0000D-02 * RXRAT( 98 ) ! INO2+NO=0.5000D-01*ISON+... LOSS( ISON ) = RXRAT( 99 ) ! ISON+HO=HO+0.3500D+... & + RXRAT( 101 ) ! ISON=HNO3+ROH PROD( INO2 ) = 5.5500D-01 * RXRAT( 91 ) ! ISO+NO3=0.5550D+00*INO2+... LOSS( INO2 ) = RXRAT( 97 ) ! INO2+HO2=0.4500D+00*HO+... & + RXRAT( 98 ) ! INO2+NO=0.1500D+00*MVK+... PROD( ISOP ) = RXRAT( 92 ) ! ISO+HO=ISOP+0.2500D+... & + RXRAT( 95 ) ! ISHP+HO=ISOP LOSS( ISOP ) = RXRAT( 93 ) ! ISOP+HO2=ISHP+0.7000D-... & + RXRAT( 94 ) ! ISOP+NO=0.1300D+00*ISON+... & + RXRAT( 274 ) ! ISOP+MO2=HO2+0.1310D+... & + RXRAT( 311 ) ! ISOP+ACO3=0.5000D+00*HO2+... & + RXRAT( 350 ) ! ISOP+NO3=HO2+NO2+0.7500D+... & + RXRAT( 380 ) ! ISOP+APIP2=0.9600D+00*HOM+... & + RXRAT( 383 ) ! ISOP+LIMP2=0.9600D+00*HOM+... & + RXRAT( 386 ) ! ISOP+APINP2=0.9600D+00*HOM+... & + RXRAT( 389 ) ! ISOP+LIMNP2=0.9600D+00*HOM+... PROD( ISHP ) = RXRAT( 93 ) ! ISOP+HO2=ISHP+0.7000D-... LOSS( ISHP ) = RXRAT( 95 ) ! ISHP+HO=ISOP & + RXRAT( 96 ) ! ISHP+HO=0.4000D-01*MGLY+... PROD( IEPOX ) = 4.4000D-01 * RXRAT( 96 ) ! ISHP+HO=0.4400D+00*IEPOX+... & + 1.7000D-01 * RXRAT( 99 ) ! ISON+HO=0.1700D+00*IEPOX+... LOSS( IEPOX ) = RXRAT( 390 ) ! IEPOX+HO=HO & + RXRAT( 428 ) ! IEPOX=IEPOXP PROD( IPX ) = 1.4000D-01 * RXRAT( 96 ) ! ISHP+HO=0.1400D+00*IPX+... & + 2.0000D-02 * RXRAT( 97 ) ! INO2+HO2=0.2000D-01*IPX+... LOSS( IPX ) = RXRAT( 102 ) ! IPX+HO=0.5700D+00*MACR+... & + RXRAT( 431 ) ! IPX=AISO4J PROD( INALD ) = 9.5000D-01 * RXRAT( 97 ) ! INO2+HO2=0.9500D+00*INALD+... & + 6.5000D-01 * RXRAT( 98 ) ! INO2+NO=0.6500D+00*INALD+... & + 3.5000D-01 * RXRAT( 99 ) ! ISON+HO=0.3500D+00*INALD+... LOSS( INALD ) = RXRAT( 100 ) ! INALD+HO=CO+NO2+0.3000D+... & + RXRAT( 432 ) ! INALD=AISO5J+HNO3 PROD( ROH ) = RXRAT( 101 ) ! ISON=ROH+HNO3 & + 2.5000D-01 * RXRAT( 265 ) ! HC3P+MO2=0.2500D+00*ROH+... & + 2.5000D-01 * RXRAT( 266 ) ! HC5P+MO2=0.2500D+00*ROH+... & + 2.5000D-01 * RXRAT( 268 ) ! OLTP+MO2=0.2500D+00*ROH+... & + 2.5000D-01 * RXRAT( 269 ) ! OLIP+MO2=0.2500D+00*ROH+... & + 2.5000D-01 * RXRAT( 274 ) ! ISOP+MO2=0.2500D+00*ROH+... & + 2.5000D-01 * RXRAT( 285 ) ! ACTP+MO2=0.2500D+00*ROH+... & + 2.5000D-01 * RXRAT( 286 ) ! MEKP+MO2=0.2500D+00*ROH+... & + 2.5000D-01 * RXRAT( 287 ) ! KETP+MO2=0.2500D+00*ROH+... & + 2.5000D-01 * RXRAT( 288 ) ! MACP+MO2=0.2500D+00*ROH+... & + 2.5000D-01 * RXRAT( 289 ) ! MCP+MO2=0.2500D+00*ROH+HO2+... & + 2.5000D-01 * RXRAT( 290 ) ! MVKP+MO2=0.2500D+00*ROH+... & + 2.5000D-01 * RXRAT( 291 ) ! UALP+MO2=0.2500D+00*ROH+... & + 2.5000D-01 * RXRAT( 298 ) ! OLND+MO2=0.2500D+00*ROH+... & + 4.8000D-01 * RXRAT( 378 ) ! APIP2+APIP1=0.4800D+00*ROH+... & + 4.8000D-01 * RXRAT( 379 ) ! APIP2+LIMP1=0.4800D+00*ROH+... & + 4.8000D-01 * RXRAT( 380 ) ! APIP2+ISOP=0.4800D+00*ROH+... & + 4.8000D-01 * RXRAT( 381 ) ! LIMP2+APIP1=0.4800D+00*ROH+... & + 4.8000D-01 * RXRAT( 382 ) ! LIMP2+LIMP1=0.4800D+00*ROH+... & + 4.8000D-01 * RXRAT( 383 ) ! LIMP2+ISOP=0.4800D+00*ROH+... & + 4.8000D-01 * RXRAT( 384 ) ! APINP2+APIP1=0.4800D+... & + 4.8000D-01 * RXRAT( 385 ) ! APINP2+LIMP1=0.4800D+... & + 4.8000D-01 * RXRAT( 386 ) ! APINP2+ISOP=0.4800D+00*ROH+... & + 4.8000D-01 * RXRAT( 387 ) ! LIMNP2+APIP1=0.4800D+... & + 4.8000D-01 * RXRAT( 388 ) ! LIMNP2+LIMP1=0.4800D+... & + 4.8000D-01 * RXRAT( 389 ) ! LIMNP2+ISOP=0.4800D+00*ROH+... LOSS( ROH ) = RXRAT( 128 ) ! ROH+HO=HO2+0.7190D+00*ALD+... PROD( API ) = 0.0D0 LOSS( API ) = RXRAT( 103 ) ! API+HO=0.9750D+00*APIP1+... & + RXRAT( 147 ) ! API+O3=0.6055D+00*HO+... & + RXRAT( 161 ) ! API+NO3=0.9750D+00*APINP1+... PROD( APIP1 ) = 9.7500D-01 * RXRAT( 103 ) ! API+HO=0.9750D+00*APIP1+... LOSS( APIP1 ) = RXRAT( 194 ) ! APIP1+NO=0.2370D+00*TRPN+... & + RXRAT( 236 ) ! APIP1+HO2=0.3900D-01*ACT+... & + RXRAT( 275 ) ! APIP1+MO2=0.1030D+01*HCHO+... & + RXRAT( 312 ) ! APIP1+ACO3=0.2535D+... & + RXRAT( 351 ) ! APIP1+NO3=NO2+HO2+0.2535D+... & + RXRAT( 378 ) ! APIP1+APIP2=0.9600D+00*HOM+... & + RXRAT( 381 ) ! APIP1+LIMP2=0.9600D+00*HOM+... & + RXRAT( 384 ) ! APIP1+APINP2=0.9600D+... & + RXRAT( 387 ) ! APIP1+LIMNP2=0.9600D+... PROD( APIP2 ) = 2.5000D-02 * RXRAT( 103 ) ! API+HO=0.2500D-01*APIP2+... LOSS( APIP2 ) = RXRAT( 195 ) ! APIP2+NO=0.8200D+00*HO+... & + RXRAT( 237 ) ! APIP2+HO2=HOM & + RXRAT( 276 ) ! APIP2+MO2=HO2+0.7500D+... & + RXRAT( 313 ) ! APIP2+ACO3=0.5000D+00*HO+... & + RXRAT( 378 ) ! APIP2+APIP1=0.9600D+00*HOM+... & + RXRAT( 379 ) ! APIP2+LIMP1=0.9600D+00*HOM+... & + RXRAT( 380 ) ! APIP2+ISOP=0.9600D+00*HOM+... PROD( LIM ) = 0.0D0 LOSS( LIM ) = RXRAT( 104 ) ! LIM+HO=0.9450D+00*LIMP1+... & + RXRAT( 148 ) ! LIM+O3=0.6600D+00*HO+... & + RXRAT( 162 ) ! LIM+NO3=0.9450D+00*LIMNP1+... PROD( LIMP1 ) = 9.4500D-01 * RXRAT( 104 ) ! LIM+HO=0.9450D+00*LIMP1+... LOSS( LIMP1 ) = RXRAT( 198 ) ! LIMP1+NO=0.2300D+00*TRPN+... & + RXRAT( 240 ) ! LIMP1+HO2=0.9000D+00*OPB+... & + RXRAT( 279 ) ! LIMP1+MO2=0.2500D+00*MOH+... & + RXRAT( 316 ) ! LIMP1+ACO3=LIMAL+0.5600D+... & + RXRAT( 352 ) ! LIMP1+NO3=HO2+NO2+LIMAL+... & + RXRAT( 379 ) ! LIMP1+APIP2=0.9600D+00*HOM+... & + RXRAT( 382 ) ! LIMP1+LIMP2=0.9600D+00*HOM+... & + RXRAT( 385 ) ! LIMP1+APINP2=0.9600D+... & + RXRAT( 388 ) ! LIMP1+LIMNP2=0.9600D+... PROD( LIMP2 ) = 5.5000D-02 * RXRAT( 104 ) ! LIM+HO=0.5500D-01*LIMP2+... LOSS( LIMP2 ) = RXRAT( 199 ) ! LIMP2+NO=0.7700D+00*HO+... & + RXRAT( 241 ) ! LIMP2+HO2=HOM & + RXRAT( 280 ) ! LIMP2+MO2=HO2+0.7500D+... & + RXRAT( 317 ) ! LIMP2+ACO3=0.5000D+00*HO+... & + RXRAT( 381 ) ! LIMP2+APIP1=0.9600D+00*HOM+... & + RXRAT( 382 ) ! LIMP2+LIMP1=0.9600D+00*HOM+... & + RXRAT( 383 ) ! LIMP2+ISOP=0.9600D+00*HOM+... PROD( PINALP ) = 2.3000D-01 * RXRAT( 105 ) ! PINAL+HO=0.2300D+00*PINALP+... & + 2.1450D-01 * RXRAT( 147 ) ! API+O3=0.2145D+00*PINALP+... LOSS( PINALP ) = RXRAT( 175 ) ! PINALP=HOM & + RXRAT( 202 ) ! PINALP+NO=0.3600D+00*TRPN+... & + RXRAT( 244 ) ! PINALP+HO2=0.7500D+00*OPB+... PROD( RCO3 ) = 7.7000D-01 * RXRAT( 105 ) ! PINAL+HO=0.7700D+00*RCO3+... & + 1.7000D-01 * RXRAT( 106 ) ! LIMAL+HO=0.1700D+00*RCO3+... & + RXRAT( 109 ) ! ALD+HO=RCO3 & + 2.8050D-01 * RXRAT( 147 ) ! API+O3=0.2805D+00*RCO3+... & + 3.3000D-01 * RXRAT( 148 ) ! LIM+O3=0.3300D+00*RCO3+... & + 6.0000D-01 * RXRAT( 154 ) ! DCB1+O3=0.6000D+00*RCO3+... & + 6.0000D-01 * RXRAT( 155 ) ! DCB2+O3=0.6000D+00*RCO3+... & + RXRAT( 166 ) ! ALD+NO3=RCO3+HNO3 & + RXRAT( 180 ) ! PPN=RCO3+NO2 LOSS( RCO3 ) = RXRAT( 179 ) ! RCO3+NO2=PPN & + RXRAT( 205 ) ! RCO3+NO=ETHP+NO2 & + RXRAT( 247 ) ! RCO3+HO2=0.4400D+00*HO+... & + RXRAT( 284 ) ! RCO3+MO2=0.9000D+00*HO2+... & + RXRAT( 321 ) ! RCO3+ACO3=MO2+ETHP & + 2.0000D+00 * RXRAT( 338 ) ! RCO3+RCO3=0.2000D+01*ETHP & + RXRAT( 356 ) ! RCO3+NO3=ETHP+NO2 & + RXRAT( 376 ) ! RCO3+XO2=ETHP PROD( LIMALP ) = 8.3000D-01 * RXRAT( 106 ) ! LIMAL+HO=0.8300D+00*LIMALP+... LOSS( LIMALP ) = RXRAT( 176 ) ! LIMALP=HOM & + RXRAT( 203 ) ! LIMALP+NO=0.6400D+00*TRPN+... & + RXRAT( 245 ) ! LIMALP+HO2=0.9000D+00*OPB+... PROD( ACTP ) = RXRAT( 110 ) ! ACT+HO=ACTP LOSS( ACTP ) = RXRAT( 206 ) ! ACTP+NO=ACO3+NO2+HCHO & + RXRAT( 248 ) ! ACTP+HO2=0.1500D+00*HO+... & + RXRAT( 285 ) ! ACTP+MO2=0.5000D+00*HO2+... & + RXRAT( 322 ) ! ACTP+ACO3=0.5000D+00*MO2+... & + RXRAT( 357 ) ! ACTP+NO3=ACO3+NO2+HCHO PROD( MEKP ) = RXRAT( 111 ) ! MEK+HO=MEKP & + 2.5810D-01 * RXRAT( 507 ) ! VROCN2OXY8+HO=0.2581D+... & + 7.9400D-02 * RXRAT( 508 ) ! VROCN2OXY4+HO=0.7940D-... & + 3.9000D-02 * RXRAT( 509 ) ! VROCN2OXY2+HO=0.3900D-... & + 1.8400D-01 * RXRAT( 510 ) ! VROCN1OXY6+HO=0.1840D+... & + 6.4600D-02 * RXRAT( 511 ) ! VROCN1OXY3+HO=0.6460D-... & + 2.4400D-02 * RXRAT( 512 ) ! VROCN1OXY1+HO=0.2440D-... & + 1.0680D-01 * RXRAT( 513 ) ! VROCP0OXY4+HO=0.1068D+... & + 4.4500D-02 * RXRAT( 514 ) ! VROCP0OXY2+HO=0.4450D-... & + 8.1800D-02 * RXRAT( 515 ) ! VROCP1OXY3+HO=0.8180D-... & + 2.9700D-02 * RXRAT( 516 ) ! VROCP1OXY1+HO=0.2970D-... & + 6.2800D-02 * RXRAT( 517 ) ! VROCP2OXY2+HO=0.6280D-... & + 6.9800D-02 * RXRAT( 518 ) ! VROCP3OXY2+HO=0.6980D-... & + 7.8600D-02 * RXRAT( 519 ) ! VROCP4OXY2+HO=0.7860D-... & + 5.2600D-02 * RXRAT( 520 ) ! VROCP5OXY1+HO=0.5260D-... & + 5.7100D-02 * RXRAT( 521 ) ! VROCP6OXY1+HO=0.5710D-... & + 2.2660D-01 * RXRAT( 522 ) ! OP3+HO=0.2266D+00*MEKP+... LOSS( MEKP ) = RXRAT( 207 ) ! MEKP+NO=0.6700D+00*HO2+NO2+... & + RXRAT( 249 ) ! MEKP+HO2=OP2 & + RXRAT( 286 ) ! MEKP+MO2=0.8340D+00*HO2+... & + RXRAT( 323 ) ! MEKP+ACO3=0.3300D+00*HO2+... & + RXRAT( 358 ) ! MEKP+NO3=0.6700D+00*HO2+... PROD( KETP ) = RXRAT( 112 ) ! KET+HO=KETP & + 7.9400D-02 * RXRAT( 508 ) ! VROCN2OXY4+HO=0.7940D-... & + 1.0680D-01 * RXRAT( 513 ) ! VROCP0OXY4+HO=0.1068D+... LOSS( KETP ) = RXRAT( 208 ) ! KETP+NO=0.7700D+00*HO2+... & + RXRAT( 250 ) ! KETP+HO2=OP2 & + RXRAT( 287 ) ! KETP+MO2=HO2+0.7500D+... & + RXRAT( 324 ) ! KETP+ACO3=0.5000D+00*HO2+... & + RXRAT( 359 ) ! KETP+NO3=HO2+NO2+DCB1 PROD( MCP ) = 4.3000D-01 * RXRAT( 114 ) ! MACR+HO=0.4300D+00*MCP+... & + 4.3000D-01 * RXRAT( 393 ) ! ACRO+HO=0.4300D+00*MCP+... LOSS( MCP ) = RXRAT( 210 ) ! MCP+NO=NO2+0.5000D+00*HO2+... & + RXRAT( 252 ) ! MCP+HO2=MAHP & + RXRAT( 289 ) ! MCP+MO2=NO2+HO2+0.1500D+... & + RXRAT( 326 ) ! MCP+ACO3=NO2+0.5000D+... & + RXRAT( 361 ) ! MCP+NO3=NO2+HO2+HCHO+HKET PROD( MVKP ) = RXRAT( 115 ) ! MVK+HO=MVKP LOSS( MVKP ) = RXRAT( 211 ) ! MVKP+NO=0.3000D+00*HO2+... & + RXRAT( 253 ) ! MVKP+HO2=OP2 & + RXRAT( 290 ) ! MVKP+MO2=HO2+0.1160D+... & + RXRAT( 327 ) ! MVKP+ACO3=0.5000D+00*HO2+... & + RXRAT( 362 ) ! MVKP+NO3=0.3000D+00*HO2+... PROD( UALP ) = 6.8700D-01 * RXRAT( 116 ) ! UALD+HO=0.6870D+00*UALP+... LOSS( UALP ) = RXRAT( 212 ) ! UALP+NO=HO2+NO2+0.6100D+... & + RXRAT( 254 ) ! UALP+HO2=OP2 & + RXRAT( 291 ) ! UALP+MO2=HO2+0.3050D+00*CO+... & + RXRAT( 328 ) ! UALP+ACO3=0.5000D+00*HO2+... & + RXRAT( 363 ) ! UALP+NO3=HO2+NO2+0.6100D+... PROD( DCB3 ) = 2.4950D-01 * RXRAT( 190 ) ! BENP+NO=0.2495D+00*DCB3+... & + 2.5000D-01 * RXRAT( 270 ) ! BENP+MO2=0.2500D+00*DCB3+... & + 2.5000D-01 * RXRAT( 307 ) ! BENP+ACO3=0.2500D+00*DCB3+... & + 2.5000D-01 * RXRAT( 346 ) ! BENP+NO3=0.2500D+00*DCB3+... & + 2.0000D-01 * RXRAT( 410 ) ! FURAN+NO3=0.2000D+00*DCB3+... LOSS( DCB3 ) = RXRAT( 121 ) ! DCB3+HO=0.5600D+00*HO2+... & + RXRAT( 156 ) ! DCB3+O3=0.5000D-01*HO+HO2+... PROD( BALP ) = RXRAT( 122 ) ! BALD+HO=BALP LOSS( BALP ) = RXRAT( 213 ) ! BALP+NO=BAL1+NO2 & + RXRAT( 292 ) ! BALP+MO2=HO2+BAL1+HCHO & + RXRAT( 329 ) ! BALP+ACO3=MO2+BAL1 & + RXRAT( 364 ) ! BALP+NO3=BAL1+NO2 PROD( ADDC ) = 1.7000D-01 * RXRAT( 123 ) ! PHEN+HO=0.1700D+00*ADDC+... & + 1.6000D-01 * RXRAT( 124 ) ! CSL+HO=0.1600D+00*ADDC+... & + 8.5000D-01 * RXRAT( 171 ) ! PHEN+NO3=0.8500D+00*ADDC+... & + 8.0000D-02 * RXRAT( 172 ) ! CSL+NO3=0.8000D-01*ADDC+... LOSS( ADDC ) = RXRAT( 215 ) ! ADDC+NO=HO2+NO2+0.3200D+... & + RXRAT( 255 ) ! ADDC+HO2=OP2 & + RXRAT( 294 ) ! ADDC+MO2=0.2000D+01*HO2+... & + RXRAT( 331 ) ! ADDC+ACO3=0.2000D+01*HO2+... & + RXRAT( 366 ) ! ADDC+NO3=HO2+NO2+0.3200D+... PROD( MCT ) = 6.1900D-01 * RXRAT( 123 ) ! PHEN+HO=0.6190D+00*MCT+... & + 5.8400D-01 * RXRAT( 124 ) ! CSL+HO=0.5840D+00*MCT+... LOSS( MCT ) = RXRAT( 125 ) ! MCT+HO=MCTO & + RXRAT( 173 ) ! MCT+NO3=MCTO+HNO3 PROD( MCTO ) = RXRAT( 125 ) ! MCT+HO=MCTO & + RXRAT( 173 ) ! MCT+NO3=MCTO+HNO3 & + RXRAT( 216 ) ! MCTP+NO=MCTO+NO2 & + RXRAT( 295 ) ! MCTP+MO2=MCTO+HO2+HCHO & + RXRAT( 332 ) ! MCTP+ACO3=MCTO+MO2+HO2 & + RXRAT( 367 ) ! MCTP+NO3=MCTO+NO2 LOSS( MCTO ) = RXRAT( 157 ) ! MCTO+O3=MCTP & + RXRAT( 224 ) ! MCTO+NO2=ONIT PROD( MOH ) = 6.3000D-01 * RXRAT( 263 ) ! MO2+MO2=0.6300D+00*MOH+... & + 2.5000D-01 * RXRAT( 264 ) ! ETHP+MO2=0.2500D+00*MOH+... & + 2.5000D-01 * RXRAT( 265 ) ! HC3P+MO2=0.2500D+00*MOH+... & + 2.5000D-01 * RXRAT( 266 ) ! HC5P+MO2=0.2500D+00*MOH+... & + 2.5000D-01 * RXRAT( 267 ) ! ETEP+MO2=0.2500D+00*MOH+... & + 2.5000D-01 * RXRAT( 268 ) ! OLTP+MO2=0.2500D+00*MOH+... & + 2.5000D-01 * RXRAT( 269 ) ! OLIP+MO2=0.2500D+00*MOH+... & + 3.2000D-01 * RXRAT( 270 ) ! BENP+MO2=0.3200D+00*MOH+... & + 3.2000D-01 * RXRAT( 271 ) ! TOLP+MO2=0.3200D+00*MOH+... & + 3.2000D-01 * RXRAT( 272 ) ! XYLP+MO2=0.3200D+00*MOH+... & + 3.2000D-01 * RXRAT( 273 ) ! EBZP+MO2=0.3200D+00*MOH+... & + 2.5000D-01 * RXRAT( 274 ) ! ISOP+MO2=0.2500D+00*MOH+... & + 1.1050D-01 * RXRAT( 275 ) ! APIP1+MO2=0.1105D+00*MOH+... & + 2.5000D-01 * RXRAT( 276 ) ! APIP2+MO2=0.2500D+00*MOH+... & + 4.3000D-02 * RXRAT( 277 ) ! APINP1+MO2=0.4300D-01*MOH+... & + 2.5000D-01 * RXRAT( 278 ) ! APINP2+MO2=0.2500D+00*MOH+... & + 2.5000D-01 * RXRAT( 279 ) ! LIMP1+MO2=0.2500D+00*MOH+... & + 2.5000D-01 * RXRAT( 280 ) ! LIMP2+MO2=0.2500D+00*MOH+... & + 9.0000D-02 * RXRAT( 281 ) ! LIMNP1+MO2=0.9000D-01*MOH+... & + 2.5000D-01 * RXRAT( 282 ) ! LIMNP2+MO2=0.2500D+00*MOH+... & + 2.5000D-01 * RXRAT( 285 ) ! ACTP+MO2=0.2500D+00*MOH+... & + 2.5000D-01 * RXRAT( 286 ) ! MEKP+MO2=0.2500D+00*MOH+... & + 2.5000D-01 * RXRAT( 287 ) ! KETP+MO2=0.2500D+00*MOH+... & + 2.5000D-01 * RXRAT( 288 ) ! MACP+MO2=0.2500D+00*MOH+... & + 2.5000D-01 * RXRAT( 289 ) ! MCP+MO2=0.2500D+00*MOH+HO2+... & + 2.5000D-01 * RXRAT( 290 ) ! MVKP+MO2=0.2500D+00*MOH+... & + 2.5000D-01 * RXRAT( 291 ) ! UALP+MO2=0.2500D+00*MOH+... & + 2.5000D-01 * RXRAT( 298 ) ! OLND+MO2=0.2500D+00*MOH+... & + 3.2000D-01 * RXRAT( 401 ) ! BDE13P+MO2=0.3200D+00*MOH+... & + 3.2000D-01 * RXRAT( 493 ) ! VROCP6AROP+MO2=0.3200D+... & + 3.2000D-01 * RXRAT( 499 ) ! VROCP5AROP+MO2=0.3200D+... & + 3.2000D-01 * RXRAT( 505 ) ! NAPHP+MO2=0.3200D+00*MOH+... & + 3.2000D-01 * RXRAT( 530 ) ! STYP+MO2=0.3200D+00*MOH+... LOSS( MOH ) = RXRAT( 126 ) ! MOH+HO=HO2+HCHO PROD( EOH ) = 2.5000D-01 * RXRAT( 264 ) ! ETHP+MO2=0.2500D+00*EOH+... LOSS( EOH ) = RXRAT( 127 ) ! EOH+HO=HO2+ACD PROD( ETEG ) = 2.5000D-01 * RXRAT( 267 ) ! ETEP+MO2=0.2500D+00*ETEG+... LOSS( ETEG ) = RXRAT( 129 ) ! ETEG+HO=HO2+ALD PROD( MAHP ) = RXRAT( 251 ) ! MACP+HO2=MAHP & + RXRAT( 252 ) ! MCP+HO2=MAHP LOSS( MAHP ) = RXRAT( 134 ) ! MAHP+HO=MACP PROD( ORA2 ) = 6.0000D-02 * RXRAT( 145 ) ! OLT+O3=0.6000D-01*ORA2+... & + 1.7000D-02 * RXRAT( 146 ) ! OLI+O3=0.1700D-01*ORA2+... & + 6.5000D-03 * RXRAT( 147 ) ! API+O3=0.6500D-02*ORA2+... & + 1.0000D-02 * RXRAT( 148 ) ! LIM+O3=0.1000D-01*ORA2+... & + 7.0000D-02 * RXRAT( 152 ) ! MVK+O3=0.7000D-01*ORA2+... & + 2.5000D-01 * RXRAT( 156 ) ! DCB3+O3=0.2500D+00*ORA2+... & + 1.5000D-01 * RXRAT( 246 ) ! ACO3+HO2=0.1500D+00*ORA2+... & + 1.5000D-01 * RXRAT( 247 ) ! RCO3+HO2=0.1500D+00*ORA2+... & + 1.0000D-01 * RXRAT( 283 ) ! ACO3+MO2=0.1000D+00*ORA2+... & + 1.0000D-01 * RXRAT( 284 ) ! RCO3+MO2=0.1000D+00*ORA2+... & + 1.2500D-01 * RXRAT( 285 ) ! ACTP+MO2=0.1250D+00*ORA2+... & + 6.7000D-02 * RXRAT( 288 ) ! MACP+MO2=0.6700D-01*ORA2+... & + 2.9200D-01 * RXRAT( 290 ) ! MVKP+MO2=0.2920D+00*ORA2+... & + 5.0000D-01 * RXRAT( 301 ) ! ETHP+ACO3=0.5000D+00*ORA2+... & + 5.0000D-01 * RXRAT( 302 ) ! HC3P+ACO3=0.5000D+00*ORA2+... & + 5.0000D-01 * RXRAT( 303 ) ! HC5P+ACO3=0.5000D+00*ORA2+... & + 5.0000D-01 * RXRAT( 304 ) ! ETEP+ACO3=0.5000D+00*ORA2+... & + 5.0000D-01 * RXRAT( 305 ) ! OLTP+ACO3=0.5000D+00*ORA2+... & + 5.0000D-01 * RXRAT( 306 ) ! OLIP+ACO3=0.5000D+00*ORA2+... & + 3.0000D-01 * RXRAT( 307 ) ! BENP+ACO3=0.3000D+00*ORA2+... & + 3.0000D-01 * RXRAT( 308 ) ! TOLP+ACO3=0.3000D+00*ORA2+... & + 3.0000D-01 * RXRAT( 309 ) ! XYLP+ACO3=0.3000D+00*ORA2+... & + 3.0000D-01 * RXRAT( 310 ) ! EBZP+ACO3=0.3000D+00*ORA2+... & + 5.0000D-01 * RXRAT( 311 ) ! ISOP+ACO3=0.5000D+00*ORA2+... & + 5.0000D-01 * RXRAT( 313 ) ! APIP2+ACO3=0.5000D+00*ORA2+... & + 5.0000D-01 * RXRAT( 315 ) ! APINP2+ACO3=0.5000D+... & + 5.0000D-01 * RXRAT( 317 ) ! LIMP2+ACO3=0.5000D+00*ORA2+... & + 5.0000D-01 * RXRAT( 319 ) ! LIMNP2+ACO3=0.5000D+... & + 7.5000D-01 * RXRAT( 322 ) ! ACTP+ACO3=0.7500D+00*ORA2+... & + 5.0000D-01 * RXRAT( 323 ) ! MEKP+ACO3=0.5000D+00*ORA2+... & + 5.0000D-01 * RXRAT( 324 ) ! KETP+ACO3=0.5000D+00*ORA2+... & + 6.3500D-01 * RXRAT( 325 ) ! MACP+ACO3=0.6350D+00*ORA2+... & + 5.0000D-01 * RXRAT( 326 ) ! MCP+ACO3=0.5000D+00*ORA2+... & + 1.0830D+00 * RXRAT( 327 ) ! MVKP+ACO3=0.1083D+01*ORA2+... & + 5.0000D-01 * RXRAT( 328 ) ! UALP+ACO3=0.5000D+00*ORA2+... & + 5.0000D-01 * RXRAT( 335 ) ! OLND+ACO3=0.5000D+00*ORA2+... & + 3.0000D-01 * RXRAT( 402 ) ! BDE13P+ACO3=0.3000D+... & + 3.0000D-01 * RXRAT( 494 ) ! VROCP6AROP+ACO3=0.3000D+... & + 3.0000D-01 * RXRAT( 500 ) ! VROCP5AROP+ACO3=0.3000D+... & + 3.0000D-01 * RXRAT( 506 ) ! NAPHP+ACO3=0.3000D+00*ORA2+... & + 3.0000D-01 * RXRAT( 531 ) ! STYP+ACO3=0.3000D+00*ORA2+... LOSS( ORA2 ) = RXRAT( 136 ) ! ORA2+HO=0.6400D+00*MO2+... PROD( ORAP ) = 3.6000D-01 * RXRAT( 136 ) ! ORA2+HO=0.3600D+00*ORAP+... LOSS( ORAP ) = RXRAT( 217 ) ! ORAP+NO=NO2+GLY+HO2 & + RXRAT( 258 ) ! ORAP+HO2=OP2 & + RXRAT( 296 ) ! ORAP+MO2=HCHO+HO2+GLY & + RXRAT( 333 ) ! ORAP+ACO3=MO2+GLY & + RXRAT( 368 ) ! ORAP+NO3=NO2+GLY+HO2 PROD( PPN ) = RXRAT( 179 ) ! RCO3+NO2=PPN LOSS( PPN ) = RXRAT( 139 ) ! PPN+HO=XO2+NO3+HCHO & + RXRAT( 180 ) ! PPN=RCO3+NO2 PROD( MPAN ) = RXRAT( 181 ) ! MACP+NO2=MPAN LOSS( MPAN ) = RXRAT( 140 ) ! MPAN+HO=NO2+HKET & + RXRAT( 174 ) ! MPAN+NO3=MACP+NO2 & + RXRAT( 182 ) ! MPAN=MACP+NO2 PROD( MCTP ) = RXRAT( 157 ) ! MCTO+O3=MCTP LOSS( MCTP ) = RXRAT( 216 ) ! MCTP+NO=MCTO+NO2 & + RXRAT( 257 ) ! MCTP+HO2=OP2 & + RXRAT( 295 ) ! MCTP+MO2=HO2+MCTO+HCHO & + RXRAT( 332 ) ! MCTP+ACO3=HO2+MO2+MCTO & + RXRAT( 367 ) ! MCTP+NO3=NO2+MCTO PROD( OLNN ) = 8.0000D-01 * RXRAT( 158 ) ! ETE+NO3=0.8000D+00*OLNN+... & + 4.3000D-01 * RXRAT( 159 ) ! OLT+NO3=0.4300D+00*OLNN+... & + 1.1000D-01 * RXRAT( 160 ) ! OLI+NO3=0.1100D+00*OLNN+... & + 9.0000D-01 * RXRAT( 404 ) ! BDE13+NO3=0.9000D+00*OLNN+... LOSS( OLNN ) = RXRAT( 218 ) ! OLNN+NO=NO2+HO2+ONIT & + RXRAT( 259 ) ! OLNN+HO2=ONIT & + RXRAT( 297 ) ! OLNN+MO2=0.2000D+01*HO2+... & + RXRAT( 334 ) ! OLNN+ACO3=HO2+MO2+ONIT & + RXRAT( 369 ) ! OLNN+NO3=HO2+NO2+ONIT & + 2.0000D+00 * RXRAT( 372 ) ! OLNN+OLNN=HO2+0.2000D+01*ONIT & + RXRAT( 373 ) ! OLNN+OLND=0.5000D+00*HO2+... PROD( OLND ) = 2.0000D-01 * RXRAT( 158 ) ! ETE+NO3=0.2000D+00*OLND+... & + 5.7000D-01 * RXRAT( 159 ) ! OLT+NO3=0.5700D+00*OLND+... & + 8.9000D-01 * RXRAT( 160 ) ! OLI+NO3=0.8900D+00*OLND+... & + 1.0000D-01 * RXRAT( 404 ) ! BDE13+NO3=0.1000D+00*OLND+... LOSS( OLND ) = RXRAT( 219 ) ! OLND+NO=0.2000D+01*NO2+... & + RXRAT( 260 ) ! OLND+HO2=ONIT & + RXRAT( 298 ) ! OLND+MO2=0.5000D+00*HO2+... & + RXRAT( 335 ) ! OLND+ACO3=0.5000D+00*MO2+... & + RXRAT( 370 ) ! OLND+NO3=0.2000D+01*NO2+... & + RXRAT( 373 ) ! OLND+OLNN=0.5000D+00*HO2+... & + 2.0000D+00 * RXRAT( 374 ) ! OLND+OLND=NO2+0.5040D+... PROD( APINP1 ) = 9.7500D-01 * RXRAT( 161 ) ! API+NO3=0.9750D+00*APINP1+... LOSS( APINP1 ) = RXRAT( 196 ) ! APINP1+NO=0.1696D+01*NO2+... & + RXRAT( 238 ) ! APINP1+HO2=0.4610D+00*TRPN+... & + RXRAT( 277 ) ! APINP1+MO2=0.3410D+00*TRPN+... & + RXRAT( 314 ) ! APINP1+ACO3=0.8250D+00*NO2+... & + RXRAT( 353 ) ! APINP1+NO3=0.1825D+01*NO2+... PROD( APINP2 ) = 2.5000D-02 * RXRAT( 161 ) ! API+NO3=0.2500D-01*APINP2+... LOSS( APINP2 ) = RXRAT( 197 ) ! APINP2+NO=0.8200D+00*NO2+... & + RXRAT( 239 ) ! APINP2+HO2=HOM & + RXRAT( 278 ) ! APINP2+MO2=0.7500D+00*HO2+... & + RXRAT( 315 ) ! APINP2+ACO3=0.5000D+00*NO2+... & + RXRAT( 384 ) ! APINP2+APIP1=0.9600D+... & + RXRAT( 385 ) ! APINP2+LIMP1=0.9600D+... & + RXRAT( 386 ) ! APINP2+ISOP=0.9600D+00*HOM+... PROD( LIMNP1 ) = 9.4500D-01 * RXRAT( 162 ) ! LIM+NO3=0.9450D+00*LIMNP1+... LOSS( LIMNP1 ) = RXRAT( 200 ) ! LIMNP1+NO=0.5700D+00*TRPN+... & + RXRAT( 242 ) ! LIMNP1+HO2=0.7700D+00*TRPN+... & + RXRAT( 281 ) ! LIMNP1+MO2=0.6900D+00*TRPN+... & + RXRAT( 318 ) ! LIMNP1+ACO3=MO2+0.4600D+... & + RXRAT( 354 ) ! LIMNP1+NO3=0.1460D+01*NO2+... PROD( LIMNP2 ) = 5.5000D-02 * RXRAT( 162 ) ! LIM+NO3=0.5500D-01*LIMNP2+... LOSS( LIMNP2 ) = RXRAT( 201 ) ! LIMNP2+NO=0.7700D+00*NO2+... & + RXRAT( 243 ) ! LIMNP2+HO2=HOM & + RXRAT( 282 ) ! LIMNP2+MO2=0.7500D+00*HO2+... & + RXRAT( 319 ) ! LIMNP2+ACO3=0.5000D+00*MO2+... & + RXRAT( 387 ) ! LIMNP2+APIP1=0.9600D+... & + RXRAT( 388 ) ! LIMNP2+LIMP1=0.9600D+... & + RXRAT( 389 ) ! LIMNP2+ISOP=0.9600D+00*HOM+... PROD( ADCN ) = 4.2400D-01 * RXRAT( 171 ) ! PHEN+NO3=0.4240D+00*ADCN+... & + 4.0000D-01 * RXRAT( 172 ) ! CSL+NO3=0.4000D+00*ADCN+... LOSS( ADCN ) = RXRAT( 220 ) ! ADCN+NO=0.2000D+01*NO2+GLY+OP2 & + RXRAT( 261 ) ! ADCN+HO2=OP2 & + RXRAT( 299 ) ! ADCN+MO2=HO2+0.7000D+... & + RXRAT( 336 ) ! ADCN+ACO3=HO2+MO2+0.7000D+... & + RXRAT( 371 ) ! ADCN+NO3=0.2000D+01*NO2+... PROD( HOM ) = RXRAT( 175 ) ! PINALP=HOM & + RXRAT( 176 ) ! LIMALP=HOM & + RXRAT( 195 ) ! APIP2+NO=HOM+0.8200D+... & + RXRAT( 197 ) ! APINP2+NO=HOM+0.8200D+... & + RXRAT( 199 ) ! LIMP2+NO=HOM+0.7700D+... & + RXRAT( 201 ) ! LIMNP2+NO=HOM+0.7700D+... & + 6.4000D-01 * RXRAT( 202 ) ! PINALP+NO=0.6400D+00*HOM+... & + RXRAT( 237 ) ! APIP2+HO2=HOM & + RXRAT( 239 ) ! APINP2+HO2=HOM & + RXRAT( 241 ) ! LIMP2+HO2=HOM & + RXRAT( 243 ) ! LIMNP2+HO2=HOM & + 2.5000D-01 * RXRAT( 244 ) ! PINALP+HO2=0.2500D+00*HOM+... & + RXRAT( 276 ) ! APIP2+MO2=HOM+0.7500D+... & + RXRAT( 278 ) ! APINP2+MO2=HOM+0.7500D+... & + RXRAT( 280 ) ! LIMP2+MO2=HOM+0.7500D+... & + RXRAT( 282 ) ! LIMNP2+MO2=HOM+0.7500D+... & + RXRAT( 313 ) ! APIP2+ACO3=HOM+0.5000D+... & + RXRAT( 315 ) ! APINP2+ACO3=HOM+0.5000D+... & + RXRAT( 317 ) ! LIMP2+ACO3=HOM+0.5000D+... & + RXRAT( 319 ) ! LIMNP2+ACO3=HOM+0.5000D+... & + 9.6000D-01 * RXRAT( 378 ) ! APIP2+APIP1=0.9600D+00*HOM+... & + 9.6000D-01 * RXRAT( 379 ) ! APIP2+LIMP1=0.9600D+00*HOM+... & + 9.6000D-01 * RXRAT( 380 ) ! APIP2+ISOP=0.9600D+00*HOM+... & + 9.6000D-01 * RXRAT( 381 ) ! LIMP2+APIP1=0.9600D+00*HOM+... & + 9.6000D-01 * RXRAT( 382 ) ! LIMP2+LIMP1=0.9600D+00*HOM+... & + 9.6000D-01 * RXRAT( 383 ) ! LIMP2+ISOP=0.9600D+00*HOM+... & + 9.6000D-01 * RXRAT( 384 ) ! APINP2+APIP1=0.9600D+... & + 9.6000D-01 * RXRAT( 385 ) ! APINP2+LIMP1=0.9600D+... & + 9.6000D-01 * RXRAT( 386 ) ! APINP2+ISOP=0.9600D+00*HOM+... & + 9.6000D-01 * RXRAT( 387 ) ! LIMNP2+APIP1=0.9600D+... & + 9.6000D-01 * RXRAT( 388 ) ! LIMNP2+LIMP1=0.9600D+... & + 9.6000D-01 * RXRAT( 389 ) ! LIMNP2+ISOP=0.9600D+00*HOM+... LOSS( HOM ) = 0.0D0 PROD( VROCP4OXY2 ) = 1.2000D-03 * RXRAT( 190 ) ! BENP+NO=0.1200D-... & + 1.3000D-03 * RXRAT( 191 ) ! TOLP+NO=0.1300D-... & + 2.8000D-01 * RXRAT( 440 ) ! VROCP6ALKP+NO=0.2800D+... & + RXRAT( 467 ) ! HC10P2=VROCP4OXY2+HO2 & + 1.6000D-01 * RXRAT( 489 ) ! VROCP6ARO+HO=0.1600D+... & + 5.9500D-02 * RXRAT( 490 ) ! VROCP6AROP+HO2=0.5950D-... & + 1.0000D-04 * RXRAT( 491 ) ! VROCP6AROP+NO=0.1000D-... & + 5.9400D-02 * RXRAT( 497 ) ! VROCP5AROP+NO=0.5940D-... & + 5.9500D-02 * RXRAT( 498 ) ! VROCP5AROP+NO3=0.5950D-... & + 5.9500D-02 * RXRAT( 499 ) ! VROCP5AROP+MO2=0.5950D-... & + 5.9500D-02 * RXRAT( 500 ) ! VROCP5AROP+ACO3=0.5950D-... & + 5.9500D-02 * RXRAT( 503 ) ! NAPHP+NO=0.5950D-... & + 5.9500D-02 * RXRAT( 504 ) ! NAPHP+NO3=0.5950D-... & + 5.9500D-02 * RXRAT( 505 ) ! NAPHP+MO2=0.5950D-... & + 5.9500D-02 * RXRAT( 506 ) ! NAPHP+ACO3=0.5950D-... & + 1.8300D-02 * RXRAT( 508 ) ! VROCN2OXY4+HO=0.1830D-... & + 4.5500D-02 * RXRAT( 509 ) ! VROCN2OXY2+HO=0.4550D-... & + 5.1200D-02 * RXRAT( 511 ) ! VROCN1OXY3+HO=0.5120D-... & + 5.0900D-02 * RXRAT( 512 ) ! VROCN1OXY1+HO=0.5090D-... & + 2.4600D-02 * RXRAT( 513 ) ! VROCP0OXY4+HO=0.2460D-... & + 5.1900D-02 * RXRAT( 514 ) ! VROCP0OXY2+HO=0.5190D-... & + 6.4900D-02 * RXRAT( 515 ) ! VROCP1OXY3+HO=0.6490D-... & + 6.6800D-02 * RXRAT( 516 ) ! VROCP1OXY1+HO=0.6680D-... & + 7.3300D-02 * RXRAT( 517 ) ! VROCP2OXY2+HO=0.7330D-... & + 4.2600D-02 * RXRAT( 518 ) ! VROCP3OXY2+HO=0.4260D-... & + 7.2400D-02 * RXRAT( 520 ) ! VROCP5OXY1+HO=0.7240D-... & + 1.4630D-01 * RXRAT( 521 ) ! VROCP6OXY1+HO=0.1463D+... LOSS( VROCP4OXY2 ) = 9.9760D-01 * RXRAT( 519 ) ! VROCP4OXY2+HO=0.2400D-... PROD( VROCN1OXY6 ) = 8.0000D-04 * RXRAT( 190 ) ! BENP+NO=0.8000D-... & + 6.0000D-04 * RXRAT( 191 ) ! TOLP+NO=0.6000D-... & + 3.9790D-01 * RXRAT( 232 ) ! BENP+HO2=0.3979D+... & + 2.8050D-01 * RXRAT( 233 ) ! TOLP+HO2=0.2805D+... & + 1.2100D-02 * RXRAT( 508 ) ! VROCN2OXY4+HO=0.1210D-... & + 1.5300D-02 * RXRAT( 509 ) ! VROCN2OXY2+HO=0.1530D-... & + 3.1900D-02 * RXRAT( 511 ) ! VROCN1OXY3+HO=0.3190D-... & + 1.2200D-02 * RXRAT( 512 ) ! VROCN1OXY1+HO=0.1220D-... & + 3.2000D-02 * RXRAT( 513 ) ! VROCP0OXY4+HO=0.3200D-... & + 3.2500D-02 * RXRAT( 514 ) ! VROCP0OXY2+HO=0.3250D-... & + 7.4000D-02 * RXRAT( 515 ) ! VROCP1OXY3+HO=0.7400D-... & + 8.0000D-03 * RXRAT( 516 ) ! VROCP1OXY1+HO=0.8000D-... & + 5.1300D-02 * RXRAT( 517 ) ! VROCP2OXY2+HO=0.5130D-... & + 5.2600D-02 * RXRAT( 518 ) ! VROCP3OXY2+HO=0.5260D-... & + 4.8000D-02 * RXRAT( 519 ) ! VROCP4OXY2+HO=0.4800D-... & + 9.0000D-03 * RXRAT( 520 ) ! VROCP5OXY1+HO=0.9000D-... & + 6.1000D-03 * RXRAT( 521 ) ! VROCP6OXY1+HO=0.6100D-... & + 3.9000D-02 * RXRAT( 522 ) ! OP3+HO=0.3900D-... LOSS( VROCN1OXY6 ) = RXRAT( 510 ) ! VROCN1OXY6+HO=HO+0.2036D+... PROD( FURANONE ) = 4.9900D-01 * RXRAT( 190 ) ! BENP+NO=0.4990D+... & + 3.6510D-01 * RXRAT( 191 ) ! TOLP+NO=0.3651D+... & + 3.5150D-01 * RXRAT( 192 ) ! XYLP+NO=0.3515D+... & + 4.5640D-01 * RXRAT( 193 ) ! EBZP+NO=0.4564D+... & + 5.0000D-01 * RXRAT( 270 ) ! BENP+MO2=0.5000D+... & + 3.6590D-01 * RXRAT( 271 ) ! TOLP+MO2=0.3659D+... & + 3.5220D-01 * RXRAT( 272 ) ! XYLP+MO2=0.3522D+... & + 4.5730D-01 * RXRAT( 273 ) ! EBZP+MO2=0.4573D+... & + 5.0000D-01 * RXRAT( 307 ) ! BENP+ACO3=0.5000D+... & + 3.6590D-01 * RXRAT( 308 ) ! TOLP+ACO3=0.3659D+... & + 3.5220D-01 * RXRAT( 309 ) ! XYLP+ACO3=0.3522D+... & + 4.5730D-01 * RXRAT( 310 ) ! EBZP+ACO3=0.4573D+... & + 5.0000D-01 * RXRAT( 346 ) ! BENP+NO3=0.5000D+... & + 3.6590D-01 * RXRAT( 347 ) ! TOLP+NO3=0.3659D+... & + 3.5220D-01 * RXRAT( 348 ) ! XYLP+NO3=0.3522D+... & + 4.5730D-01 * RXRAT( 349 ) ! EBZP+NO3=0.4573D+... & + 9.2000D-01 * RXRAT( 406 ) ! FURANO2+NO=0.9200D+... & + 4.0000D-01 * RXRAT( 407 ) ! FURANO2+HO2=0.4000D+... & + 4.6930D-01 * RXRAT( 491 ) ! VROCP6AROP+NO=0.4693D+... & + 4.7020D-01 * RXRAT( 492 ) ! VROCP6AROP+NO3=0.4702D+... & + 4.7020D-01 * RXRAT( 493 ) ! VROCP6AROP+MO2=0.4702D+... & + 4.7020D-01 * RXRAT( 494 ) ! VROCP6AROP+ACO3=0.4702D+... & + 4.6930D-01 * RXRAT( 497 ) ! VROCP5AROP+NO=0.4693D+... & + 4.7020D-01 * RXRAT( 498 ) ! VROCP5AROP+NO3=0.4702D+... & + 4.7020D-01 * RXRAT( 499 ) ! VROCP5AROP+MO2=0.4702D+... & + 4.7020D-01 * RXRAT( 500 ) ! VROCP5AROP+ACO3=0.4702D+... & + 4.6930D-01 * RXRAT( 503 ) ! NAPHP+NO=0.4693D+... & + 4.7020D-01 * RXRAT( 504 ) ! NAPHP+NO3=0.4702D+... & + 4.7020D-01 * RXRAT( 505 ) ! NAPHP+MO2=0.4702D+... & + 4.7020D-01 * RXRAT( 506 ) ! NAPHP+ACO3=0.4702D+... LOSS( FURANONE ) = RXRAT( 408 ) ! FURANONE+HO=0.6500D+00*KET+... PROD( VROCP3OXY2 ) = 1.3000D-03 * RXRAT( 192 ) ! XYLP+NO=0.1300D-... & + 1.3000D-03 * RXRAT( 193 ) ! EBZP+NO=0.1300D-... & + RXRAT( 414 ) ! SESQNRO2+NO=VROCP3OXY2+... & + RXRAT( 415 ) ! SESQNRO2+NO3=VROCP3OXY2+... & + 9.8200D-01 * RXRAT( 416 ) ! SESQ+O3=0.9820D+... & + RXRAT( 419 ) ! SESQRO2+NO3=VROCP3OXY2 & + 7.5300D-01 * RXRAT( 420 ) ! SESQRO2+NO=0.7530D+... & + 2.8000D-01 * RXRAT( 441 ) ! VROCP5ALKP+NO=0.2800D+... & + RXRAT( 454 ) ! VROCP6ALKP+HO2=VROCP3OXY2 & + RXRAT( 461 ) ! VROCP6ALKP2=VROCP3OXY2+HO2 & + 8.6000D-01 * RXRAT( 468 ) ! VROCP6ALKP2+NO=0.8600D+... & + RXRAT( 475 ) ! VROCP6ALKP2+NO3=VROCP3OXY2+... & + 1.6000D-01 * RXRAT( 495 ) ! VROCP5ARO+HO=0.1600D+... & + 5.9500D-02 * RXRAT( 496 ) ! VROCP5AROP+HO2=0.5950D-... & + 1.0000D-04 * RXRAT( 497 ) ! VROCP5AROP+NO=0.1000D-... & + 1.6000D-01 * RXRAT( 501 ) ! NAPH+HO=0.1600D+... & + 5.9500D-02 * RXRAT( 502 ) ! NAPHP+HO2=0.5950D-... & + 3.9800D-02 * RXRAT( 508 ) ! VROCN2OXY4+HO=0.3980D-... & + 4.5200D-02 * RXRAT( 509 ) ! VROCN2OXY2+HO=0.4520D-... & + 4.6200D-02 * RXRAT( 511 ) ! VROCN1OXY3+HO=0.4620D-... & + 5.1800D-02 * RXRAT( 512 ) ! VROCN1OXY1+HO=0.5180D-... & + 5.3500D-02 * RXRAT( 513 ) ! VROCP0OXY4+HO=0.5350D-... & + 5.1600D-02 * RXRAT( 514 ) ! VROCP0OXY2+HO=0.5160D-... & + 5.8500D-02 * RXRAT( 515 ) ! VROCP1OXY3+HO=0.5850D-... & + 7.0900D-02 * RXRAT( 516 ) ! VROCP1OXY1+HO=0.7090D-... & + 2.9300D-02 * RXRAT( 517 ) ! VROCP2OXY2+HO=0.2930D-... & + 4.5600D-02 * RXRAT( 519 ) ! VROCP4OXY2+HO=0.4560D-... & + 1.5660D-01 * RXRAT( 520 ) ! VROCP5OXY1+HO=0.1566D+... & + 1.3840D-01 * RXRAT( 521 ) ! VROCP6OXY1+HO=0.1384D+... & + RXRAT( 527 ) ! STYP+HO2=VROCP3OXY2 LOSS( VROCP3OXY2 ) = 9.9140D-01 * RXRAT( 518 ) ! VROCP3OXY2+HO=0.8600D-... PROD( VROCP0OXY4 ) = 6.0000D-04 * RXRAT( 192 ) ! XYLP+NO=0.6000D-... & + 6.0000D-04 * RXRAT( 193 ) ! EBZP+NO=0.6000D-... & + 2.7710D-01 * RXRAT( 234 ) ! XYLP+HO2=0.2771D+... & + 2.8050D-01 * RXRAT( 235 ) ! EBZP+HO2=0.2805D+... & + RXRAT( 413 ) ! SESQNRO2+HO2=VROCP0OXY4 & + 6.2400D-02 * RXRAT( 508 ) ! VROCN2OXY4+HO=0.6240D-... & + 1.8900D-02 * RXRAT( 509 ) ! VROCN2OXY2+HO=0.1890D-... & + 1.9400D-02 * RXRAT( 511 ) ! VROCN1OXY3+HO=0.1940D-... & + 2.9100D-02 * RXRAT( 512 ) ! VROCN1OXY1+HO=0.2910D-... & + 3.0700D-02 * RXRAT( 514 ) ! VROCP0OXY2+HO=0.3070D-... & + 6.3100D-02 * RXRAT( 515 ) ! VROCP1OXY3+HO=0.6310D-... & + 2.9200D-02 * RXRAT( 516 ) ! VROCP1OXY1+HO=0.2920D-... & + 1.3370D-01 * RXRAT( 517 ) ! VROCP2OXY2+HO=0.1337D+... & + 1.5500D-01 * RXRAT( 518 ) ! VROCP3OXY2+HO=0.1550D+... & + 8.8100D-02 * RXRAT( 519 ) ! VROCP4OXY2+HO=0.8810D-... & + 7.0200D-02 * RXRAT( 520 ) ! VROCP5OXY1+HO=0.7020D-... & + 2.2400D-02 * RXRAT( 521 ) ! VROCP6OXY1+HO=0.2240D-... & + 1.1400D-02 * RXRAT( 522 ) ! OP3+HO=0.1140D-... LOSS( VROCP0OXY4 ) = 9.9890D-01 * RXRAT( 513 ) ! VROCP0OXY4+HO=0.1100D-... PROD( BAL1 ) = RXRAT( 213 ) ! BALP+NO=BAL1+NO2 & + RXRAT( 292 ) ! BALP+MO2=BAL1+HO2+HCHO & + RXRAT( 329 ) ! BALP+ACO3=BAL1+MO2 & + RXRAT( 364 ) ! BALP+NO3=BAL1+NO2 LOSS( BAL1 ) = RXRAT( 214 ) ! BAL1+NO=BAL2+NO2 & + RXRAT( 293 ) ! BAL1+MO2=HO2+BAL2+HCHO & + RXRAT( 330 ) ! BAL1+ACO3=MO2+BAL2 & + RXRAT( 365 ) ! BAL1+NO3=BAL2+NO2 PROD( BAL2 ) = RXRAT( 214 ) ! BAL1+NO=BAL2+NO2 & + RXRAT( 293 ) ! BAL1+MO2=BAL2+HO2+HCHO & + RXRAT( 330 ) ! BAL1+ACO3=BAL2+MO2 & + RXRAT( 365 ) ! BAL1+NO3=BAL2+NO2 LOSS( BAL2 ) = RXRAT( 222 ) ! BAL2+NO2=ONIT PROD( ELHOM ) = 4.0000D-02 * RXRAT( 378 ) ! APIP2+APIP1=0.4000D-... & + 4.0000D-02 * RXRAT( 379 ) ! APIP2+LIMP1=0.4000D-... & + 4.0000D-02 * RXRAT( 380 ) ! APIP2+ISOP=0.4000D-... & + 4.0000D-02 * RXRAT( 381 ) ! LIMP2+APIP1=0.4000D-... & + 4.0000D-02 * RXRAT( 382 ) ! LIMP2+LIMP1=0.4000D-... & + 4.0000D-02 * RXRAT( 383 ) ! LIMP2+ISOP=0.4000D-... & + 4.0000D-02 * RXRAT( 384 ) ! APINP2+APIP1=0.4000D-... & + 4.0000D-02 * RXRAT( 385 ) ! APINP2+LIMP1=0.4000D-... & + 4.0000D-02 * RXRAT( 386 ) ! APINP2+ISOP=0.4000D-... & + 4.0000D-02 * RXRAT( 387 ) ! LIMNP2+APIP1=0.4000D-... & + 4.0000D-02 * RXRAT( 388 ) ! LIMNP2+LIMP1=0.4000D-... & + 4.0000D-02 * RXRAT( 389 ) ! LIMNP2+ISOP=0.4000D-... LOSS( ELHOM ) = 0.0D0 PROD( VROCIOXY ) = 0.0D0 LOSS( VROCIOXY ) = RXRAT( 391 ) ! VROCIOXY+HO=0.8520D+... PROD( SLOWROC ) = 0.0D0 LOSS( SLOWROC ) = RXRAT( 392 ) ! SLOWROC+HO=ETHP+0.1010D-... PROD( ACRO ) = 8.9500D-01 * RXRAT( 398 ) ! BDE13P+NO=0.8950D+00*ACRO+... & + 9.2500D-01 * RXRAT( 399 ) ! BDE13P+NO3=0.9250D+00*ACRO+... & + 4.6300D-01 * RXRAT( 401 ) ! BDE13P+MO2=0.4630D+00*ACRO+... & + 7.4000D-01 * RXRAT( 402 ) ! BDE13P+ACO3=0.7400D+... & + 6.2000D-01 * RXRAT( 403 ) ! BDE13+O3=0.6200D+00*ACRO+... & + 9.0000D-01 * RXRAT( 404 ) ! BDE13+NO3=0.9000D+00*ACRO+... LOSS( ACRO ) = RXRAT( 393 ) ! ACRO+HO=0.5700D+00*MACP+... & + RXRAT( 394 ) ! ACRO+O3=0.8400D+00*CO+... & + RXRAT( 395 ) ! ACRO+NO3=0.6800D+00*HCHO+... & + RXRAT( 396 ) ! ACRO=CO+0.4770D+00*HO2+... PROD( BDE13 ) = 0.0D0 LOSS( BDE13 ) = RXRAT( 397 ) ! BDE13+HO=0.6670D+00*BDE13P+... & + RXRAT( 403 ) ! BDE13+O3=0.6200D+00*ACRO+... & + RXRAT( 404 ) ! BDE13+NO3=0.9000D+00*OLNN+... PROD( BDE13P ) = 6.6700D-01 * RXRAT( 397 ) ! BDE13+HO=0.6670D+00*BDE13P+... LOSS( BDE13P ) = RXRAT( 398 ) ! BDE13P+NO=0.9680D+00*HO2+... & + RXRAT( 399 ) ! BDE13P+NO3=HO2+NO2+0.9250D+... & + RXRAT( 400 ) ! BDE13P+HO2=OP2 & + RXRAT( 401 ) ! BDE13P+MO2=0.3200D+00*MOH+... & + RXRAT( 402 ) ! BDE13P+ACO3=0.7000D+00*MO2+... PROD( FURAN ) = 7.2000D-02 * RXRAT( 398 ) ! BDE13P+NO=0.7200D-01*FURAN+... & + 7.5000D-02 * RXRAT( 399 ) ! BDE13P+NO3=0.7500D-... & + 3.7000D-02 * RXRAT( 401 ) ! BDE13P+MO2=0.3700D-... & + 6.0000D-02 * RXRAT( 402 ) ! BDE13P+ACO3=0.6000D-... LOSS( FURAN ) = RXRAT( 405 ) ! FURAN+HO=0.4900D+00*DCB1+... & + RXRAT( 409 ) ! FURAN+O3=0.2000D-01*HO+ALD & + RXRAT( 410 ) ! FURAN+NO3=NO2+0.8000D+... PROD( FURANO2 ) = 5.1000D-01 * RXRAT( 405 ) ! FURAN+HO=0.5100D+... LOSS( FURANO2 ) = RXRAT( 406 ) ! FURANO2+NO=0.8000D-01*ONIT+... & + RXRAT( 407 ) ! FURANO2+HO2=0.6000D+00*OP2+... PROD( PROG ) = 0.0D0 LOSS( PROG ) = RXRAT( 411 ) ! PROG+HO=0.6130D+00*HKET+... PROD( SESQ ) = 0.0D0 LOSS( SESQ ) = RXRAT( 412 ) ! SESQ+NO3=SESQNRO2 & + RXRAT( 416 ) ! SESQ+O3=0.9820D+... & + RXRAT( 417 ) ! SESQ+HO=SESQRO2 PROD( SESQNRO2 ) = RXRAT( 412 ) ! SESQ+NO3=SESQNRO2 LOSS( SESQNRO2 ) = RXRAT( 413 ) ! SESQNRO2+HO2=VROCP0OXY4 & + RXRAT( 414 ) ! SESQNRO2+NO=VROCP3OXY2+... & + RXRAT( 415 ) ! SESQNRO2+NO3=VROCP3OXY2+... PROD( VROCN2OXY2 ) = 1.8000D-02 * RXRAT( 416 ) ! SESQ+O3=0.1800D-... & + RXRAT( 459 ) ! VROCP1ALKP+HO2=VROCN2OXY2 & + RXRAT( 466 ) ! VROCP1ALKP2=VROCN2OXY2+HO2 & + 1.4000D-01 * RXRAT( 472 ) ! VROCP2ALKP2+NO=0.1400D+... & + RXRAT( 473 ) ! VROCP1ALKP2+NO=VROCN2OXY2+... & + RXRAT( 480 ) ! VROCP1ALKP2+NO3=VROCN2OXY2+... & + RXRAT( 485 ) ! VROCP3ALKP2+HO2=VROCN2OXY2 & + RXRAT( 486 ) ! VROCP2ALKP2+HO2=VROCN2OXY2 & + RXRAT( 487 ) ! VROCP1ALKP2+HO2=VROCN2OXY2 & + 8.8000D-03 * RXRAT( 511 ) ! VROCN1OXY3+HO=0.8800D-... & + 7.2610D-01 * RXRAT( 512 ) ! VROCN1OXY1+HO=0.7261D+... & + 1.1560D-01 * RXRAT( 514 ) ! VROCP0OXY2+HO=0.1156D+... & + 4.0000D-04 * RXRAT( 515 ) ! VROCP1OXY3+HO=0.4000D-... & + 3.3490D-01 * RXRAT( 516 ) ! VROCP1OXY1+HO=0.3349D+... & + 1.0400D-02 * RXRAT( 517 ) ! VROCP2OXY2+HO=0.1040D-... & + 9.0000D-04 * RXRAT( 518 ) ! VROCP3OXY2+HO=0.9000D-... & + 6.0000D-04 * RXRAT( 520 ) ! VROCP5OXY1+HO=0.6000D-... LOSS( VROCN2OXY2 ) = 7.8590D-01 * RXRAT( 509 ) ! VROCN2OXY2+HO=0.2141D+... PROD( SESQRO2 ) = RXRAT( 417 ) ! SESQ+HO=SESQRO2 LOSS( SESQRO2 ) = RXRAT( 418 ) ! SESQRO2+HO2=VROCP0OXY2 & + RXRAT( 419 ) ! SESQRO2+NO3=VROCP3OXY2 & + RXRAT( 420 ) ! SESQRO2+NO=0.2470D+... PROD( VROCP0OXY2 ) = RXRAT( 418 ) ! SESQRO2+HO2=VROCP0OXY2 & + 2.8000D-01 * RXRAT( 444 ) ! VROCP2ALKP+NO=0.2800D+... & + RXRAT( 457 ) ! VROCP3ALKP+HO2=VROCP0OXY2 & + RXRAT( 464 ) ! VROCP3ALKP2=VROCP0OXY2+HO2 & + 1.4000D-01 * RXRAT( 470 ) ! VROCP4ALKP2+NO=0.1400D+... & + 8.6000D-01 * RXRAT( 471 ) ! VROCP3ALKP2+NO=0.8600D+... & + RXRAT( 478 ) ! VROCP3ALKP2+NO3=VROCP0OXY2+... & + RXRAT( 483 ) ! VROCP5ALKP2+HO2=VROCP0OXY2 & + 9.0480D-01 * RXRAT( 496 ) ! VROCP5AROP+HO2=0.9048D+... & + 4.5600D-02 * RXRAT( 509 ) ! VROCN2OXY2+HO=0.4560D-... & + 1.0400D-02 * RXRAT( 511 ) ! VROCN1OXY3+HO=0.1040D-... & + 4.5400D-02 * RXRAT( 512 ) ! VROCN1OXY1+HO=0.4540D-... & + 7.0000D-04 * RXRAT( 515 ) ! VROCP1OXY3+HO=0.7000D-... & + 7.6600D-02 * RXRAT( 516 ) ! VROCP1OXY1+HO=0.7660D-... & + 4.0300D-02 * RXRAT( 517 ) ! VROCP2OXY2+HO=0.4030D-... & + 1.5500D-02 * RXRAT( 518 ) ! VROCP3OXY2+HO=0.1550D-... & + 1.5300D-02 * RXRAT( 520 ) ! VROCP5OXY1+HO=0.1530D-... LOSS( VROCP0OXY2 ) = 9.9760D-01 * RXRAT( 514 ) ! VROCP0OXY2+HO=0.2400D-... PROD( VROCP1OXY3 ) = 2.4700D-01 * RXRAT( 420 ) ! SESQRO2+NO=0.2470D+... & + 1.4000D-01 * RXRAT( 469 ) ! VROCP5ALKP2+NO=0.1400D+... & + RXRAT( 482 ) ! VROCP6ALKP2+HO2=VROCP1OXY3 & + 9.0480D-01 * RXRAT( 490 ) ! VROCP6AROP+HO2=0.9048D+... & + 1.8000D-03 * RXRAT( 497 ) ! VROCP5AROP+NO=0.1800D-... & + 9.0480D-01 * RXRAT( 502 ) ! NAPHP+HO2=0.9048D+... & + 3.8800D-02 * RXRAT( 508 ) ! VROCN2OXY4+HO=0.3880D-... & + 3.1400D-02 * RXRAT( 509 ) ! VROCN2OXY2+HO=0.3140D-... & + 5.1000D-02 * RXRAT( 511 ) ! VROCN1OXY3+HO=0.5100D-... & + 2.3400D-02 * RXRAT( 512 ) ! VROCN1OXY1+HO=0.2340D-... & + 3.9500D-02 * RXRAT( 514 ) ! VROCP0OXY2+HO=0.3950D-... & + 2.7700D-02 * RXRAT( 516 ) ! VROCP1OXY1+HO=0.2770D-... & + 5.1100D-02 * RXRAT( 517 ) ! VROCP2OXY2+HO=0.5110D-... & + 1.0510D-01 * RXRAT( 518 ) ! VROCP3OXY2+HO=0.1051D+... & + 9.1600D-02 * RXRAT( 519 ) ! VROCP4OXY2+HO=0.9160D-... & + 1.0380D-01 * RXRAT( 520 ) ! VROCP5OXY1+HO=0.1038D+... & + 5.0300D-02 * RXRAT( 521 ) ! VROCP6OXY1+HO=0.5030D-... LOSS( VROCP1OXY3 ) = 9.9940D-01 * RXRAT( 515 ) ! VROCP1OXY3+HO=0.6000D-... PROD( AGLYJ ) = RXRAT( 421 ) ! GLY=AGLYJ & + RXRAT( 422 ) ! MGLY=AGLYJ LOSS( AGLYJ ) = 0.0D0 PROD( IEPOXP ) = RXRAT( 428 ) ! IEPOX=IEPOXP LOSS( IEPOXP ) = RXRAT( 429 ) ! IEPOXP=AISO3NOSJ & + RXRAT( 430 ) ! IEPOXP+ASO4J=AISO3OSJ PROD( AISO3NOSJ ) = RXRAT( 429 ) ! IEPOXP=AISO3NOSJ LOSS( AISO3NOSJ ) = 0.0D0 PROD( ASO4J ) = 0.0D0 LOSS( ASO4J ) = RXRAT( 430 ) ! ASO4J+IEPOXP=AISO3OSJ PROD( AISO3OSJ ) = RXRAT( 430 ) ! IEPOXP+ASO4J=AISO3OSJ LOSS( AISO3OSJ ) = 0.0D0 PROD( AISO4J ) = RXRAT( 431 ) ! IPX=AISO4J LOSS( AISO4J ) = 0.0D0 PROD( AISO5J ) = RXRAT( 432 ) ! INALD=AISO5J+HNO3 LOSS( AISO5J ) = 0.0D0 PROD( VROCP6ALK ) = 0.0D0 LOSS( VROCP6ALK ) = RXRAT( 433 ) ! VROCP6ALK+HO=VROCP6ALKP PROD( VROCP6ALKP ) = RXRAT( 433 ) ! VROCP6ALK+HO=VROCP6ALKP LOSS( VROCP6ALKP ) = RXRAT( 440 ) ! VROCP6ALKP+NO=0.7200D+... & + RXRAT( 447 ) ! VROCP6ALKP+NO3=VROCP6ALKP2+NO2 & + RXRAT( 454 ) ! VROCP6ALKP+HO2=VROCP3OXY2 PROD( VROCP5ALK ) = 0.0D0 LOSS( VROCP5ALK ) = RXRAT( 434 ) ! VROCP5ALK+HO=VROCP5ALKP PROD( VROCP5ALKP ) = RXRAT( 434 ) ! VROCP5ALK+HO=VROCP5ALKP LOSS( VROCP5ALKP ) = RXRAT( 441 ) ! VROCP5ALKP+NO=0.7200D+... & + RXRAT( 448 ) ! VROCP5ALKP+NO3=VROCP5ALKP2+NO2 & + RXRAT( 455 ) ! VROCP5ALKP+HO2=VROCP2OXY2 PROD( VROCP4ALK ) = 0.0D0 LOSS( VROCP4ALK ) = RXRAT( 435 ) ! VROCP4ALK+HO=VROCP4ALKP PROD( VROCP4ALKP ) = RXRAT( 435 ) ! VROCP4ALK+HO=VROCP4ALKP LOSS( VROCP4ALKP ) = RXRAT( 442 ) ! VROCP4ALKP+NO=0.7200D+... & + RXRAT( 449 ) ! VROCP4ALKP+NO3=VROCP4ALKP2+NO2 & + RXRAT( 456 ) ! VROCP4ALKP+HO2=VROCP1OXY1 PROD( VROCP3ALK ) = 0.0D0 LOSS( VROCP3ALK ) = RXRAT( 436 ) ! VROCP3ALK+HO=VROCP3ALKP PROD( VROCP3ALKP ) = RXRAT( 436 ) ! VROCP3ALK+HO=VROCP3ALKP LOSS( VROCP3ALKP ) = RXRAT( 443 ) ! VROCP3ALKP+NO=0.7200D+... & + RXRAT( 450 ) ! VROCP3ALKP+NO3=VROCP3ALKP2+NO2 & + RXRAT( 457 ) ! VROCP3ALKP+HO2=VROCP0OXY2 PROD( VROCP2ALK ) = 0.0D0 LOSS( VROCP2ALK ) = RXRAT( 437 ) ! VROCP2ALK+HO=VROCP2ALKP PROD( VROCP2ALKP ) = RXRAT( 437 ) ! VROCP2ALK+HO=VROCP2ALKP LOSS( VROCP2ALKP ) = RXRAT( 444 ) ! VROCP2ALKP+NO=0.7200D+... & + RXRAT( 451 ) ! VROCP2ALKP+NO3=VROCP2ALKP2+NO2 & + RXRAT( 458 ) ! VROCP2ALKP+HO2=VROCN1OXY1 PROD( VROCP1ALK ) = 0.0D0 LOSS( VROCP1ALK ) = RXRAT( 438 ) ! VROCP1ALK+HO=VROCP1ALKP PROD( VROCP1ALKP ) = RXRAT( 438 ) ! VROCP1ALK+HO=VROCP1ALKP LOSS( VROCP1ALKP ) = RXRAT( 445 ) ! VROCP1ALKP+NO=0.7200D+... & + RXRAT( 452 ) ! VROCP1ALKP+NO3=VROCP1ALKP2+NO2 & + RXRAT( 459 ) ! VROCP1ALKP+HO2=VROCN2OXY2 PROD( HC10 ) = 0.0D0 LOSS( HC10 ) = RXRAT( 439 ) ! HC10+HO=HC10P PROD( VROCP6ALKP2 ) = 7.2000D-01 * RXRAT( 440 ) ! VROCP6ALKP+NO=0.7200D+... & + RXRAT( 447 ) ! VROCP6ALKP+NO3=VROCP6ALKP2+NO2 LOSS( VROCP6ALKP2 ) = RXRAT( 461 ) ! VROCP6ALKP2=HO2+VROCP3OXY2 & + RXRAT( 468 ) ! VROCP6ALKP2+NO=0.1400D+... & + RXRAT( 475 ) ! VROCP6ALKP2+NO3=NO2+... & + RXRAT( 482 ) ! VROCP6ALKP2+HO2=VROCP1OXY3 PROD( VROCP5ALKP2 ) = 7.2000D-01 * RXRAT( 441 ) ! VROCP5ALKP+NO=0.7200D+... & + RXRAT( 448 ) ! VROCP5ALKP+NO3=VROCP5ALKP2+NO2 LOSS( VROCP5ALKP2 ) = RXRAT( 462 ) ! VROCP5ALKP2=HO2+VROCP2OXY2 & + RXRAT( 469 ) ! VROCP5ALKP2+NO=0.1400D+... & + RXRAT( 476 ) ! VROCP5ALKP2+NO3=NO2+... & + RXRAT( 483 ) ! VROCP5ALKP2+HO2=VROCP0OXY2 PROD( VROCP4ALKP2 ) = 7.2000D-01 * RXRAT( 442 ) ! VROCP4ALKP+NO=0.7200D+... & + RXRAT( 449 ) ! VROCP4ALKP+NO3=VROCP4ALKP2+NO2 LOSS( VROCP4ALKP2 ) = RXRAT( 463 ) ! VROCP4ALKP2=HO2+VROCP1OXY1 & + RXRAT( 470 ) ! VROCP4ALKP2+NO=0.1400D+... & + RXRAT( 477 ) ! VROCP4ALKP2+NO3=NO2+... & + RXRAT( 484 ) ! VROCP4ALKP2+HO2=VROCN1OXY1 PROD( VROCP2OXY2 ) = 2.8000D-01 * RXRAT( 442 ) ! VROCP4ALKP+NO=0.2800D+... & + RXRAT( 455 ) ! VROCP5ALKP+HO2=VROCP2OXY2 & + RXRAT( 462 ) ! VROCP5ALKP2=VROCP2OXY2+HO2 & + 1.4000D-01 * RXRAT( 468 ) ! VROCP6ALKP2+NO=0.1400D+... & + 8.6000D-01 * RXRAT( 469 ) ! VROCP5ALKP2+NO=0.8600D+... & + RXRAT( 476 ) ! VROCP5ALKP2+NO3=VROCP2OXY2+... & + RXRAT( 488 ) ! HC10P2+HO2=VROCP2OXY2 & + 1.8000D-03 * RXRAT( 491 ) ! VROCP6AROP+NO=0.1800D-... & + 1.8000D-03 * RXRAT( 503 ) ! NAPHP+NO=0.1800D-... & + 4.9100D-02 * RXRAT( 508 ) ! VROCN2OXY4+HO=0.4910D-... & + 4.5900D-02 * RXRAT( 509 ) ! VROCN2OXY2+HO=0.4590D-... & + 5.1200D-02 * RXRAT( 511 ) ! VROCN1OXY3+HO=0.5120D-... & + 6.2400D-02 * RXRAT( 512 ) ! VROCN1OXY1+HO=0.6240D-... & + 6.6000D-02 * RXRAT( 513 ) ! VROCP0OXY4+HO=0.6600D-... & + 5.3900D-02 * RXRAT( 514 ) ! VROCP0OXY2+HO=0.5390D-... & + 2.2700D-02 * RXRAT( 515 ) ! VROCP1OXY3+HO=0.2270D-... & + 6.5100D-02 * RXRAT( 516 ) ! VROCP1OXY1+HO=0.6510D-... & + 5.3500D-02 * RXRAT( 518 ) ! VROCP3OXY2+HO=0.5350D-... & + 9.7200D-02 * RXRAT( 519 ) ! VROCP4OXY2+HO=0.9720D-... & + 1.6500D-01 * RXRAT( 520 ) ! VROCP5OXY1+HO=0.1650D+... & + 8.7900D-02 * RXRAT( 521 ) ! VROCP6OXY1+HO=0.8790D-... LOSS( VROCP2OXY2 ) = 9.7640D-01 * RXRAT( 517 ) ! VROCP2OXY2+HO=0.2360D-... PROD( VROCP3ALKP2 ) = 7.2000D-01 * RXRAT( 443 ) ! VROCP3ALKP+NO=0.7200D+... & + RXRAT( 450 ) ! VROCP3ALKP+NO3=VROCP3ALKP2+NO2 LOSS( VROCP3ALKP2 ) = RXRAT( 464 ) ! VROCP3ALKP2=HO2+VROCP0OXY2 & + RXRAT( 471 ) ! VROCP3ALKP2+NO=0.1400D+... & + RXRAT( 478 ) ! VROCP3ALKP2+NO3=NO2+... & + RXRAT( 485 ) ! VROCP3ALKP2+HO2=VROCN2OXY2 PROD( VROCP1OXY1 ) = 2.8000D-01 * RXRAT( 443 ) ! VROCP3ALKP+NO=0.2800D+... & + RXRAT( 456 ) ! VROCP4ALKP+HO2=VROCP1OXY1 & + RXRAT( 463 ) ! VROCP4ALKP2=VROCP1OXY1+HO2 & + 8.6000D-01 * RXRAT( 470 ) ! VROCP4ALKP2+NO=0.8600D+... & + RXRAT( 477 ) ! VROCP4ALKP2+NO3=VROCP1OXY1+... & + 1.9900D-02 * RXRAT( 509 ) ! VROCN2OXY2+HO=0.1990D-... & + 7.5000D-03 * RXRAT( 511 ) ! VROCN1OXY3+HO=0.7500D-... & + 3.5200D-02 * RXRAT( 512 ) ! VROCN1OXY1+HO=0.3520D-... & + 2.1500D-02 * RXRAT( 514 ) ! VROCP0OXY2+HO=0.2150D-... & + 6.8000D-03 * RXRAT( 517 ) ! VROCP2OXY2+HO=0.6800D-... & + 1.3000D-03 * RXRAT( 518 ) ! VROCP3OXY2+HO=0.1300D-... & + 7.3000D-03 * RXRAT( 519 ) ! VROCP4OXY2+HO=0.7300D-... & + 3.1000D-03 * RXRAT( 520 ) ! VROCP5OXY1+HO=0.3100D-... & + 2.2000D-03 * RXRAT( 521 ) ! VROCP6OXY1+HO=0.2200D-... LOSS( VROCP1OXY1 ) = 9.8820D-01 * RXRAT( 516 ) ! VROCP1OXY1+HO=0.1180D-... PROD( VROCP2ALKP2 ) = 7.2000D-01 * RXRAT( 444 ) ! VROCP2ALKP+NO=0.7200D+... & + RXRAT( 451 ) ! VROCP2ALKP+NO3=VROCP2ALKP2+NO2 LOSS( VROCP2ALKP2 ) = RXRAT( 465 ) ! VROCP2ALKP2=HO2+VROCN1OXY1 & + RXRAT( 472 ) ! VROCP2ALKP2+NO=0.1400D+... & + RXRAT( 479 ) ! VROCP2ALKP2+NO3=NO2+... & + RXRAT( 486 ) ! VROCP2ALKP2+HO2=VROCN2OXY2 PROD( VROCP1ALKP2 ) = 7.2000D-01 * RXRAT( 445 ) ! VROCP1ALKP+NO=0.7200D+... & + RXRAT( 452 ) ! VROCP1ALKP+NO3=VROCP1ALKP2+NO2 LOSS( VROCP1ALKP2 ) = RXRAT( 466 ) ! VROCP1ALKP2=HO2+VROCN2OXY2 & + RXRAT( 473 ) ! VROCP1ALKP2+NO=VROCN2OXY2+... & + RXRAT( 480 ) ! VROCP1ALKP2+NO3=NO2+... & + RXRAT( 487 ) ! VROCP1ALKP2+HO2=VROCN2OXY2 PROD( VROCN1OXY1 ) = 2.8000D-01 * RXRAT( 445 ) ! VROCP1ALKP+NO=0.2800D+... & + RXRAT( 458 ) ! VROCP2ALKP+HO2=VROCN1OXY1 & + RXRAT( 465 ) ! VROCP2ALKP2=VROCN1OXY1+HO2 & + 1.4000D-01 * RXRAT( 471 ) ! VROCP3ALKP2+NO=0.1400D+... & + 8.6000D-01 * RXRAT( 472 ) ! VROCP2ALKP2+NO=0.8600D+... & + RXRAT( 479 ) ! VROCP2ALKP2+NO3=VROCN1OXY1+... & + RXRAT( 484 ) ! VROCP4ALKP2+HO2=VROCN1OXY1 & + 9.6000D-03 * RXRAT( 509 ) ! VROCN2OXY2+HO=0.9600D-... & + 4.6000D-03 * RXRAT( 514 ) ! VROCP0OXY2+HO=0.4600D-... & + 7.5800D-02 * RXRAT( 516 ) ! VROCP1OXY1+HO=0.7580D-... & + 1.3000D-03 * RXRAT( 517 ) ! VROCP2OXY2+HO=0.1300D-... LOSS( VROCN1OXY1 ) = 9.9300D-01 * RXRAT( 512 ) ! VROCN1OXY1+HO=0.7000D-... PROD( HC10P2 ) = 7.4000D-01 * RXRAT( 446 ) ! HC10P+NO=0.7400D+00*HC10P2+... & + RXRAT( 453 ) ! HC10P+NO3=HC10P2+NO2 LOSS( HC10P2 ) = RXRAT( 467 ) ! HC10P2=HO2+VROCP4OXY2 & + RXRAT( 474 ) ! HC10P2+NO=0.1200D+00*ONIT+... & + RXRAT( 481 ) ! HC10P2+NO3=NO2+KET+HO2 & + RXRAT( 488 ) ! HC10P2+HO2=VROCP2OXY2 PROD( VROCP6ARO ) = 0.0D0 LOSS( VROCP6ARO ) = RXRAT( 489 ) ! VROCP6ARO+HO=0.8400D+... PROD( VROCP6AROP ) = 8.4000D-01 * RXRAT( 489 ) ! VROCP6ARO+HO=0.8400D+... LOSS( VROCP6AROP ) = RXRAT( 490 ) ! VROCP6AROP+HO2=0.5950D-... & + RXRAT( 491 ) ! VROCP6AROP+NO=0.1000D-... & + RXRAT( 492 ) ! VROCP6AROP+NO3=NO2+0.9405D+... & + RXRAT( 493 ) ! VROCP6AROP+MO2=0.6800D+... & + RXRAT( 494 ) ! VROCP6AROP+ACO3=0.7000D+... PROD( VROCN2OXY4 ) = 3.5700D-02 * RXRAT( 490 ) ! VROCP6AROP+HO2=0.3570D-... & + 3.5700D-02 * RXRAT( 496 ) ! VROCP5AROP+HO2=0.3570D-... & + 1.0000D-04 * RXRAT( 497 ) ! VROCP5AROP+NO=0.1000D-... & + 5.6380D-01 * RXRAT( 509 ) ! VROCN2OXY2+HO=0.5638D+... & + 7.1000D-03 * RXRAT( 510 ) ! VROCN1OXY6+HO=0.7100D-... & + 4.0250D-01 * RXRAT( 511 ) ! VROCN1OXY3+HO=0.4025D+... & + 1.1900D-01 * RXRAT( 512 ) ! VROCN1OXY1+HO=0.1190D+... & + 1.1650D-01 * RXRAT( 513 ) ! VROCP0OXY4+HO=0.1165D+... & + 4.5790D-01 * RXRAT( 514 ) ! VROCP0OXY2+HO=0.4579D+... & + 1.9240D-01 * RXRAT( 515 ) ! VROCP1OXY3+HO=0.1924D+... & + 1.3400D-01 * RXRAT( 516 ) ! VROCP1OXY1+HO=0.1340D+... & + 1.7260D-01 * RXRAT( 517 ) ! VROCP2OXY2+HO=0.1726D+... & + 7.6500D-02 * RXRAT( 518 ) ! VROCP3OXY2+HO=0.7650D-... & + 1.6700D-02 * RXRAT( 519 ) ! VROCP4OXY2+HO=0.1670D-... & + 1.0300D-02 * RXRAT( 520 ) ! VROCP5OXY1+HO=0.1030D-... & + 8.0000D-04 * RXRAT( 522 ) ! OP3+HO=0.8000D-... LOSS( VROCN2OXY4 ) = 8.0230D-01 * RXRAT( 508 ) ! VROCN2OXY4+HO=0.1977D+... PROD( VROCN1OXY3 ) = 1.0000D-04 * RXRAT( 491 ) ! VROCP6AROP+NO=0.1000D-... & + 1.5200D-02 * RXRAT( 508 ) ! VROCN2OXY4+HO=0.1520D-... & + 2.9800D-02 * RXRAT( 509 ) ! VROCN2OXY2+HO=0.2980D-... & + 3.0500D-02 * RXRAT( 512 ) ! VROCN1OXY1+HO=0.3050D-... & + 1.8300D-02 * RXRAT( 513 ) ! VROCP0OXY4+HO=0.1830D-... & + 6.5700D-02 * RXRAT( 514 ) ! VROCP0OXY2+HO=0.6570D-... & + 4.5200D-02 * RXRAT( 515 ) ! VROCP1OXY3+HO=0.4520D-... & + 1.1930D-01 * RXRAT( 516 ) ! VROCP1OXY1+HO=0.1193D+... & + 1.1180D-01 * RXRAT( 517 ) ! VROCP2OXY2+HO=0.1118D+... & + 4.8900D-02 * RXRAT( 518 ) ! VROCP3OXY2+HO=0.4890D-... & + 2.4600D-02 * RXRAT( 519 ) ! VROCP4OXY2+HO=0.2460D-... & + 1.4600D-02 * RXRAT( 520 ) ! VROCP5OXY1+HO=0.1460D-... & + 4.9000D-03 * RXRAT( 521 ) ! VROCP6OXY1+HO=0.4900D-... LOSS( VROCN1OXY3 ) = 9.9240D-01 * RXRAT( 511 ) ! VROCN1OXY3+HO=0.7600D-... PROD( VROCP5ARO ) = 0.0D0 LOSS( VROCP5ARO ) = RXRAT( 495 ) ! VROCP5ARO+HO=0.8400D+... PROD( VROCP5AROP ) = 8.4000D-01 * RXRAT( 495 ) ! VROCP5ARO+HO=0.8400D+... LOSS( VROCP5AROP ) = RXRAT( 496 ) ! VROCP5AROP+HO2=0.5950D-... & + RXRAT( 497 ) ! VROCP5AROP+NO=0.1000D-... & + RXRAT( 498 ) ! VROCP5AROP+NO3=NO2+0.9405D+... & + RXRAT( 499 ) ! VROCP5AROP+MO2=0.6800D+... & + RXRAT( 500 ) ! VROCP5AROP+ACO3=0.7000D+... PROD( NAPH ) = 0.0D0 LOSS( NAPH ) = RXRAT( 501 ) ! NAPH+HO=0.8400D+00*NAPHP+... PROD( NAPHP ) = 8.4000D-01 * RXRAT( 501 ) ! NAPH+HO=0.8400D+00*NAPHP+... LOSS( NAPHP ) = RXRAT( 502 ) ! NAPHP+HO2=0.5950D-... & + RXRAT( 503 ) ! NAPHP+NO=0.5950D-... & + RXRAT( 504 ) ! NAPHP+NO3=NO2+0.9405D+... & + RXRAT( 505 ) ! NAPHP+MO2=0.6800D+00*HCHO+... & + RXRAT( 506 ) ! NAPHP+ACO3=0.7000D+00*MO2+... PROD( VROCN2OXY8 ) = 3.5700D-02 * RXRAT( 502 ) ! NAPHP+HO2=0.3570D-... & + 1.0000D-04 * RXRAT( 503 ) ! NAPHP+NO=0.1000D-... & + 4.6400D-01 * RXRAT( 508 ) ! VROCN2OXY4+HO=0.4640D+... & + 1.0410D-01 * RXRAT( 509 ) ! VROCN2OXY2+HO=0.1041D+... & + 2.0360D-01 * RXRAT( 510 ) ! VROCN1OXY6+HO=0.2036D+... & + 2.7920D-01 * RXRAT( 511 ) ! VROCN1OXY3+HO=0.2792D+... & + 7.4000D-03 * RXRAT( 512 ) ! VROCN1OXY1+HO=0.7400D-... & + 2.8220D-01 * RXRAT( 513 ) ! VROCP0OXY4+HO=0.2822D+... & + 6.5900D-02 * RXRAT( 514 ) ! VROCP0OXY2+HO=0.6590D-... & + 1.7780D-01 * RXRAT( 515 ) ! VROCP1OXY3+HO=0.1778D+... & + 2.3000D-03 * RXRAT( 516 ) ! VROCP1OXY1+HO=0.2300D-... & + 4.4500D-02 * RXRAT( 517 ) ! VROCP2OXY2+HO=0.4450D-... & + 3.1700D-02 * RXRAT( 518 ) ! VROCP3OXY2+HO=0.3170D-... & + 1.1700D-02 * RXRAT( 519 ) ! VROCP4OXY2+HO=0.1170D-... & + 1.1880D-01 * RXRAT( 522 ) ! OP3+HO=0.1188D+... LOSS( VROCN2OXY8 ) = 9.1460D-01 * RXRAT( 507 ) ! VROCN2OXY8+HO=0.8540D-... PROD( VROCP5OXY1 ) = 3.2500D-02 * RXRAT( 509 ) ! VROCN2OXY2+HO=0.3250D-... & + 1.3800D-02 * RXRAT( 511 ) ! VROCN1OXY3+HO=0.1380D-... & + 3.4700D-02 * RXRAT( 512 ) ! VROCN1OXY1+HO=0.3470D-... & + 3.7100D-02 * RXRAT( 514 ) ! VROCP0OXY2+HO=0.3710D-... & + 1.7400D-02 * RXRAT( 515 ) ! VROCP1OXY3+HO=0.1740D-... & + 4.2300D-02 * RXRAT( 516 ) ! VROCP1OXY1+HO=0.4230D-... & + 5.2300D-02 * RXRAT( 517 ) ! VROCP2OXY2+HO=0.5230D-... & + 5.8200D-02 * RXRAT( 518 ) ! VROCP3OXY2+HO=0.5820D-... & + 4.7900D-02 * RXRAT( 519 ) ! VROCP4OXY2+HO=0.4790D-... & + 4.3200D-02 * RXRAT( 521 ) ! VROCP6OXY1+HO=0.4320D-... LOSS( VROCP5OXY1 ) = 9.9380D-01 * RXRAT( 520 ) ! VROCP5OXY1+HO=0.6200D-... PROD( VROCP6OXY1 ) = 3.6900D-02 * RXRAT( 509 ) ! VROCN2OXY2+HO=0.3690D-... & + 7.4800D-02 * RXRAT( 512 ) ! VROCN1OXY1+HO=0.7480D-... & + 4.2100D-02 * RXRAT( 514 ) ! VROCP0OXY2+HO=0.4210D-... & + 9.1100D-02 * RXRAT( 516 ) ! VROCP1OXY1+HO=0.9110D-... & + 5.9500D-02 * RXRAT( 517 ) ! VROCP2OXY2+HO=0.5950D-... & + 6.6100D-02 * RXRAT( 518 ) ! VROCP3OXY2+HO=0.6610D-... & + 7.4500D-02 * RXRAT( 519 ) ! VROCP4OXY2+HO=0.7450D-... & + 1.3980D-01 * RXRAT( 520 ) ! VROCP5OXY1+HO=0.1398D+... LOSS( VROCP6OXY1 ) = 9.0430D-01 * RXRAT( 521 ) ! VROCP6OXY1+HO=0.9570D-... PROD( ECH4 ) = 0.0D0 LOSS( ECH4 ) = RXRAT( 523 ) ! ECH4+HO=MO2 PROD( ATRPNJ ) = 0.0D0 LOSS( ATRPNJ ) = RXRAT( 524 ) ! ATRPNJ=AHOMJ+HNO3 PROD( AHOMJ ) = RXRAT( 524 ) ! ATRPNJ=AHOMJ+HNO3 & + RXRAT( 525 ) ! AHONITJ=AHOMJ+HNO3 LOSS( AHOMJ ) = 0.0D0 PROD( AHONITJ ) = 0.0D0 LOSS( AHONITJ ) = RXRAT( 525 ) ! AHONITJ=AHOMJ+HNO3 PROD( STY ) = 0.0D0 LOSS( STY ) = RXRAT( 526 ) ! STY+HO=STYP PROD( STYP ) = RXRAT( 526 ) ! STY+HO=STYP LOSS( STYP ) = RXRAT( 527 ) ! STYP+HO2=VROCP3OXY2 & + RXRAT( 528 ) ! STYP+NO=NO2+HO2+HCHO+BALD & + RXRAT( 529 ) ! STYP+NO3=NO2+HO2+HCHO+BALD & + RXRAT( 530 ) ! STYP+MO2=0.1370D+01*HO2+... & + RXRAT( 531 ) ! STYP+ACO3=HO2+HCHO+BALD+... RETURN END ================================================ FILE: CCTM/src/gas/ebi_cracmm2/hrrates.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE HRRATES C*********************************************************************** C C FUNCTION: To calculate rates of reactions C C PRECONDITIONS: For the CRACMM2 mechanism C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by EBI solver program, Mar 15, 2024 C C*********************************************************************** USE HRDATA IMPLICIT NONE C.....INCLUDES: NONE C.....ARGUMENTS: NONE C.....PARAMETERS: NONE C.....EXTERNAL FUNCTIONS: NONE C.....SAVED VARIABLES: NONE ! CHARACTER( 16 ), SAVE :: PNAME = 'HRRATES' ! Program name C.....LOCAL VARIABLES: None C*********************************************************************** C..NOTE: RXRAT commented out are not referenced by any routine RXRAT( 1 ) = RKI( 1 ) * YC( O3 ) RXRAT( 2 ) = RKI( 2 ) * YC( O3 ) RXRAT( 3 ) = RKI( 3 ) * YC( H2O2 ) ! RXRAT( 4 ) = RKI( 4 ) * YC( NO2 ) RXRAT( 5 ) = RKI( 5 ) * YC( NO3 ) RXRAT( 6 ) = RKI( 6 ) * YC( NO3 ) RXRAT( 7 ) = RKI( 7 ) * YC( HONO ) RXRAT( 8 ) = RKI( 8 ) * YC( HNO3 ) RXRAT( 9 ) = RKI( 9 ) * YC( HNO4 ) RXRAT( 10 ) = RKI( 10 ) * YC( HCHO ) RXRAT( 11 ) = RKI( 11 ) * YC( HCHO ) RXRAT( 12 ) = RKI( 12 ) * YC( ACD ) RXRAT( 13 ) = RKI( 13 ) * YC( ALD ) RXRAT( 14 ) = RKI( 14 ) * YC( ACT ) RXRAT( 15 ) = RKI( 15 ) * YC( ACT ) RXRAT( 16 ) = RKI( 16 ) * YC( UALD ) RXRAT( 17 ) = RKI( 17 ) * YC( PINAL ) RXRAT( 18 ) = RKI( 18 ) * YC( LIMAL ) RXRAT( 19 ) = RKI( 19 ) * YC( MEK ) RXRAT( 20 ) = RKI( 20 ) * YC( KET ) RXRAT( 21 ) = RKI( 21 ) * YC( HKET ) RXRAT( 22 ) = RKI( 22 ) * YC( MACR ) RXRAT( 23 ) = RKI( 23 ) * YC( MVK ) RXRAT( 24 ) = RKI( 24 ) * YC( GLY ) RXRAT( 25 ) = RKI( 25 ) * YC( GLY ) RXRAT( 26 ) = RKI( 26 ) * YC( GLY ) RXRAT( 27 ) = RKI( 27 ) * YC( MGLY ) RXRAT( 28 ) = RKI( 28 ) * YC( DCB1 ) RXRAT( 29 ) = RKI( 29 ) * YC( DCB2 ) RXRAT( 30 ) = RKI( 30 ) * YC( BALD ) RXRAT( 31 ) = RKI( 31 ) * YC( OP1 ) RXRAT( 32 ) = RKI( 32 ) * YC( OP2 ) RXRAT( 33 ) = RKI( 33 ) * YC( OPB ) RXRAT( 34 ) = RKI( 34 ) * YC( OP3 ) RXRAT( 35 ) = RKI( 35 ) * YC( PAA ) RXRAT( 36 ) = RKI( 36 ) * YC( ONIT ) RXRAT( 37 ) = RKI( 37 ) * YC( PAN ) RXRAT( 38 ) = RKI( 38 ) * YC( PAN ) RXRAT( 39 ) = RKI( 39 ) * YC( TRPN ) RXRAT( 40 ) = RKI( 40 ) * YC( HONIT ) ! RXRAT( 41 ) = RKI( 41 ) * YC( O3 ) * YC( HO ) ! RXRAT( 42 ) = RKI( 42 ) * YC( O3 ) * YC( HO2 ) ! RXRAT( 43 ) = RKI( 43 ) * YC( O3 ) * YC( NO ) RXRAT( 44 ) = RKI( 44 ) * YC( O3 ) * YC( NO2 ) ! RXRAT( 45 ) = RKI( 45 ) * YC( O3P ) ! RXRAT( 46 ) = RKI( 46 ) * YC( O3P ) * YC( O3 ) ! RXRAT( 47 ) = RKI( 47 ) * YC( O1D ) ! RXRAT( 48 ) = RKI( 48 ) * YC( O1D ) ! RXRAT( 49 ) = RKI( 49 ) * YC( O1D ) ! RXRAT( 50 ) = RKI( 50 ) * YC( HO ) ! RXRAT( 51 ) = RKI( 51 ) * YC( HO ) * YC( HO2 ) RXRAT( 52 ) = RKI( 52 ) * YC( HO2 ) * YC( HO2 ) RXRAT( 53 ) = RKI( 53 ) * YC( HO2 ) * YC( HO2 ) RXRAT( 54 ) = RKI( 54 ) * YC( H2O2 ) * YC( HO ) ! RXRAT( 55 ) = RKI( 55 ) * YC( NO ) * YC( O3P ) ! RXRAT( 56 ) = RKI( 56 ) * YC( NO ) * YC( HO ) ! RXRAT( 57 ) = RKI( 57 ) * YC( NO ) * YC( HO2 ) RXRAT( 58 ) = RKI( 58 ) * YC( NO ) * YC( HO2 ) ! RXRAT( 59 ) = RKI( 59 ) * YC( NO ) * YC( NO ) RXRAT( 60 ) = RKI( 60 ) * YC( HONO ) * YC( HO ) ! RXRAT( 61 ) = RKI( 61 ) * YC( NO2 ) * YC( O3P ) RXRAT( 62 ) = RKI( 62 ) * YC( NO2 ) * YC( O3P ) RXRAT( 63 ) = RKI( 63 ) * YC( NO2 ) * YC( HO ) RXRAT( 64 ) = RKI( 64 ) * YC( HNO3 ) * YC( HO ) RXRAT( 65 ) = RKI( 65 ) * YC( NO3 ) * YC( HO ) RXRAT( 66 ) = RKI( 66 ) * YC( NO3 ) * YC( HO2 ) RXRAT( 67 ) = RKI( 67 ) * YC( NO3 ) * YC( NO ) RXRAT( 68 ) = RKI( 68 ) * YC( NO3 ) * YC( NO2 ) RXRAT( 69 ) = RKI( 69 ) * YC( NO3 ) * YC( NO3 ) ! RXRAT( 70 ) = RKI( 70 ) * YC( NO3 ) * YC( NO2 ) RXRAT( 71 ) = RKI( 71 ) * YC( N2O5 ) RXRAT( 72 ) = RKI( 72 ) * YC( N2O5 ) ! RXRAT( 73 ) = RKI( 73 ) * YC( NO2 ) * YC( HO2 ) RXRAT( 74 ) = RKI( 74 ) * YC( HNO4 ) RXRAT( 75 ) = RKI( 75 ) * YC( HNO4 ) * YC( HO ) RXRAT( 76 ) = RKI( 76 ) * YC( SO2 ) * YC( HO ) RXRAT( 77 ) = RKI( 77 ) * YC( CO ) * YC( HO ) RXRAT( 78 ) = RKI( 78 ) * YC( HO ) RXRAT( 79 ) = RKI( 79 ) * YC( ETH ) * YC( HO ) RXRAT( 80 ) = RKI( 80 ) * YC( HC3 ) * YC( HO ) RXRAT( 81 ) = RKI( 81 ) * YC( HC5 ) * YC( HO ) RXRAT( 82 ) = RKI( 82 ) * YC( ETE ) * YC( HO ) RXRAT( 83 ) = RKI( 83 ) * YC( OLT ) * YC( HO ) RXRAT( 84 ) = RKI( 84 ) * YC( OLI ) * YC( HO ) RXRAT( 85 ) = RKI( 85 ) * YC( ACE ) * YC( HO ) RXRAT( 86 ) = RKI( 86 ) * YC( BEN ) * YC( HO ) RXRAT( 87 ) = RKI( 87 ) * YC( TOL ) * YC( HO ) RXRAT( 88 ) = RKI( 88 ) * YC( XYL ) * YC( HO ) RXRAT( 89 ) = RKI( 89 ) * YC( EBZ ) * YC( HO ) RXRAT( 90 ) = RKI( 90 ) * YC( ISO ) * YC( O3 ) RXRAT( 91 ) = RKI( 91 ) * YC( ISO ) * YC( NO3 ) RXRAT( 92 ) = RKI( 92 ) * YC( ISO ) * YC( HO ) RXRAT( 93 ) = RKI( 93 ) * YC( ISOP ) * YC( HO2 ) RXRAT( 94 ) = RKI( 94 ) * YC( ISOP ) * YC( NO ) RXRAT( 95 ) = RKI( 95 ) * YC( ISHP ) * YC( HO ) RXRAT( 96 ) = RKI( 96 ) * YC( ISHP ) * YC( HO ) RXRAT( 97 ) = RKI( 97 ) * YC( INO2 ) * YC( HO2 ) RXRAT( 98 ) = RKI( 98 ) * YC( INO2 ) * YC( NO ) RXRAT( 99 ) = RKI( 99 ) * YC( ISON ) * YC( HO ) RXRAT( 100 ) = RKI( 100 ) * YC( HO ) * YC( INALD ) RXRAT( 101 ) = RKI( 101 ) * YC( ISON ) RXRAT( 102 ) = RKI( 102 ) * YC( IPX ) * YC( HO ) RXRAT( 103 ) = RKI( 103 ) * YC( API ) * YC( HO ) RXRAT( 104 ) = RKI( 104 ) * YC( LIM ) * YC( HO ) RXRAT( 105 ) = RKI( 105 ) * YC( PINAL ) * YC( HO ) RXRAT( 106 ) = RKI( 106 ) * YC( LIMAL ) * YC( HO ) RXRAT( 107 ) = RKI( 107 ) * YC( HCHO ) * YC( HO ) RXRAT( 108 ) = RKI( 108 ) * YC( ACD ) * YC( HO ) RXRAT( 109 ) = RKI( 109 ) * YC( ALD ) * YC( HO ) RXRAT( 110 ) = RKI( 110 ) * YC( ACT ) * YC( HO ) RXRAT( 111 ) = RKI( 111 ) * YC( MEK ) * YC( HO ) RXRAT( 112 ) = RKI( 112 ) * YC( KET ) * YC( HO ) RXRAT( 113 ) = RKI( 113 ) * YC( HKET ) * YC( HO ) RXRAT( 114 ) = RKI( 114 ) * YC( MACR ) * YC( HO ) RXRAT( 115 ) = RKI( 115 ) * YC( MVK ) * YC( HO ) RXRAT( 116 ) = RKI( 116 ) * YC( UALD ) * YC( HO ) RXRAT( 117 ) = RKI( 117 ) * YC( GLY ) * YC( HO ) RXRAT( 118 ) = RKI( 118 ) * YC( MGLY ) * YC( HO ) RXRAT( 119 ) = RKI( 119 ) * YC( DCB1 ) * YC( HO ) RXRAT( 120 ) = RKI( 120 ) * YC( DCB2 ) * YC( HO ) RXRAT( 121 ) = RKI( 121 ) * YC( DCB3 ) * YC( HO ) RXRAT( 122 ) = RKI( 122 ) * YC( BALD ) * YC( HO ) RXRAT( 123 ) = RKI( 123 ) * YC( PHEN ) * YC( HO ) RXRAT( 124 ) = RKI( 124 ) * YC( CSL ) * YC( HO ) RXRAT( 125 ) = RKI( 125 ) * YC( MCT ) * YC( HO ) RXRAT( 126 ) = RKI( 126 ) * YC( MOH ) * YC( HO ) RXRAT( 127 ) = RKI( 127 ) * YC( EOH ) * YC( HO ) RXRAT( 128 ) = RKI( 128 ) * YC( ROH ) * YC( HO ) RXRAT( 129 ) = RKI( 129 ) * YC( ETEG ) * YC( HO ) RXRAT( 130 ) = RKI( 130 ) * YC( OP1 ) * YC( HO ) RXRAT( 131 ) = RKI( 131 ) * YC( OP2 ) * YC( HO ) RXRAT( 132 ) = RKI( 132 ) * YC( OPB ) * YC( HO ) RXRAT( 133 ) = RKI( 133 ) * YC( OP3 ) * YC( HO ) RXRAT( 134 ) = RKI( 134 ) * YC( MAHP ) * YC( HO ) RXRAT( 135 ) = RKI( 135 ) * YC( ORA1 ) * YC( HO ) RXRAT( 136 ) = RKI( 136 ) * YC( ORA2 ) * YC( HO ) RXRAT( 137 ) = RKI( 137 ) * YC( PAA ) * YC( HO ) RXRAT( 138 ) = RKI( 138 ) * YC( PAN ) * YC( HO ) RXRAT( 139 ) = RKI( 139 ) * YC( PPN ) * YC( HO ) RXRAT( 140 ) = RKI( 140 ) * YC( MPAN ) * YC( HO ) RXRAT( 141 ) = RKI( 141 ) * YC( ONIT ) * YC( HO ) RXRAT( 142 ) = RKI( 142 ) * YC( TRPN ) * YC( HO ) RXRAT( 143 ) = RKI( 143 ) * YC( HONIT ) * YC( HO ) RXRAT( 144 ) = RKI( 144 ) * YC( ETE ) * YC( O3 ) RXRAT( 145 ) = RKI( 145 ) * YC( OLT ) * YC( O3 ) RXRAT( 146 ) = RKI( 146 ) * YC( OLI ) * YC( O3 ) RXRAT( 147 ) = RKI( 147 ) * YC( API ) * YC( O3 ) RXRAT( 148 ) = RKI( 148 ) * YC( LIM ) * YC( O3 ) RXRAT( 149 ) = RKI( 149 ) * YC( LIMAL ) * YC( O3 ) RXRAT( 150 ) = RKI( 150 ) * YC( TRPN ) * YC( O3 ) RXRAT( 151 ) = RKI( 151 ) * YC( MACR ) * YC( O3 ) RXRAT( 152 ) = RKI( 152 ) * YC( MVK ) * YC( O3 ) RXRAT( 153 ) = RKI( 153 ) * YC( UALD ) * YC( O3 ) RXRAT( 154 ) = RKI( 154 ) * YC( DCB1 ) * YC( O3 ) RXRAT( 155 ) = RKI( 155 ) * YC( DCB2 ) * YC( O3 ) RXRAT( 156 ) = RKI( 156 ) * YC( DCB3 ) * YC( O3 ) RXRAT( 157 ) = RKI( 157 ) * YC( MCTO ) * YC( O3 ) RXRAT( 158 ) = RKI( 158 ) * YC( ETE ) * YC( NO3 ) RXRAT( 159 ) = RKI( 159 ) * YC( OLT ) * YC( NO3 ) RXRAT( 160 ) = RKI( 160 ) * YC( OLI ) * YC( NO3 ) RXRAT( 161 ) = RKI( 161 ) * YC( API ) * YC( NO3 ) RXRAT( 162 ) = RKI( 162 ) * YC( LIM ) * YC( NO3 ) RXRAT( 163 ) = RKI( 163 ) * YC( TRPN ) * YC( NO3 ) RXRAT( 164 ) = RKI( 164 ) * YC( HCHO ) * YC( NO3 ) RXRAT( 165 ) = RKI( 165 ) * YC( ACD ) * YC( NO3 ) RXRAT( 166 ) = RKI( 166 ) * YC( ALD ) * YC( NO3 ) RXRAT( 167 ) = RKI( 167 ) * YC( MACR ) * YC( NO3 ) RXRAT( 168 ) = RKI( 168 ) * YC( UALD ) * YC( NO3 ) RXRAT( 169 ) = RKI( 169 ) * YC( GLY ) * YC( NO3 ) RXRAT( 170 ) = RKI( 170 ) * YC( MGLY ) * YC( NO3 ) RXRAT( 171 ) = RKI( 171 ) * YC( PHEN ) * YC( NO3 ) RXRAT( 172 ) = RKI( 172 ) * YC( CSL ) * YC( NO3 ) RXRAT( 173 ) = RKI( 173 ) * YC( MCT ) * YC( NO3 ) RXRAT( 174 ) = RKI( 174 ) * YC( MPAN ) * YC( NO3 ) RXRAT( 175 ) = RKI( 175 ) * YC( PINALP ) RXRAT( 176 ) = RKI( 176 ) * YC( LIMALP ) ! RXRAT( 177 ) = RKI( 177 ) * YC( ACO3 ) * YC( NO2 ) RXRAT( 178 ) = RKI( 178 ) * YC( PAN ) RXRAT( 179 ) = RKI( 179 ) * YC( RCO3 ) * YC( NO2 ) RXRAT( 180 ) = RKI( 180 ) * YC( PPN ) RXRAT( 181 ) = RKI( 181 ) * YC( MACP ) * YC( NO2 ) RXRAT( 182 ) = RKI( 182 ) * YC( MPAN ) RXRAT( 183 ) = RKI( 183 ) * YC( MO2 ) * YC( NO ) RXRAT( 184 ) = RKI( 184 ) * YC( ETHP ) * YC( NO ) RXRAT( 185 ) = RKI( 185 ) * YC( HC3P ) * YC( NO ) RXRAT( 186 ) = RKI( 186 ) * YC( HC5P ) * YC( NO ) RXRAT( 187 ) = RKI( 187 ) * YC( ETEP ) * YC( NO ) RXRAT( 188 ) = RKI( 188 ) * YC( OLTP ) * YC( NO ) RXRAT( 189 ) = RKI( 189 ) * YC( OLIP ) * YC( NO ) RXRAT( 190 ) = RKI( 190 ) * YC( BENP ) * YC( NO ) RXRAT( 191 ) = RKI( 191 ) * YC( TOLP ) * YC( NO ) RXRAT( 192 ) = RKI( 192 ) * YC( XYLP ) * YC( NO ) RXRAT( 193 ) = RKI( 193 ) * YC( EBZP ) * YC( NO ) RXRAT( 194 ) = RKI( 194 ) * YC( APIP1 ) * YC( NO ) RXRAT( 195 ) = RKI( 195 ) * YC( APIP2 ) * YC( NO ) RXRAT( 196 ) = RKI( 196 ) * YC( APINP1 ) * YC( NO ) RXRAT( 197 ) = RKI( 197 ) * YC( APINP2 ) * YC( NO ) RXRAT( 198 ) = RKI( 198 ) * YC( LIMP1 ) * YC( NO ) RXRAT( 199 ) = RKI( 199 ) * YC( LIMP2 ) * YC( NO ) RXRAT( 200 ) = RKI( 200 ) * YC( LIMNP1 ) * YC( NO ) RXRAT( 201 ) = RKI( 201 ) * YC( LIMNP2 ) * YC( NO ) RXRAT( 202 ) = RKI( 202 ) * YC( PINALP ) * YC( NO ) RXRAT( 203 ) = RKI( 203 ) * YC( LIMALP ) * YC( NO ) RXRAT( 204 ) = RKI( 204 ) * YC( ACO3 ) * YC( NO ) RXRAT( 205 ) = RKI( 205 ) * YC( RCO3 ) * YC( NO ) RXRAT( 206 ) = RKI( 206 ) * YC( ACTP ) * YC( NO ) RXRAT( 207 ) = RKI( 207 ) * YC( MEKP ) * YC( NO ) RXRAT( 208 ) = RKI( 208 ) * YC( KETP ) * YC( NO ) RXRAT( 209 ) = RKI( 209 ) * YC( MACP ) * YC( NO ) RXRAT( 210 ) = RKI( 210 ) * YC( MCP ) * YC( NO ) RXRAT( 211 ) = RKI( 211 ) * YC( MVKP ) * YC( NO ) RXRAT( 212 ) = RKI( 212 ) * YC( UALP ) * YC( NO ) RXRAT( 213 ) = RKI( 213 ) * YC( BALP ) * YC( NO ) RXRAT( 214 ) = RKI( 214 ) * YC( BAL1 ) * YC( NO ) RXRAT( 215 ) = RKI( 215 ) * YC( ADDC ) * YC( NO ) RXRAT( 216 ) = RKI( 216 ) * YC( MCTP ) * YC( NO ) RXRAT( 217 ) = RKI( 217 ) * YC( ORAP ) * YC( NO ) RXRAT( 218 ) = RKI( 218 ) * YC( OLNN ) * YC( NO ) RXRAT( 219 ) = RKI( 219 ) * YC( OLND ) * YC( NO ) RXRAT( 220 ) = RKI( 220 ) * YC( ADCN ) * YC( NO ) RXRAT( 221 ) = RKI( 221 ) * YC( XO2 ) * YC( NO ) RXRAT( 222 ) = RKI( 222 ) * YC( BAL2 ) * YC( NO2 ) RXRAT( 223 ) = RKI( 223 ) * YC( CHO ) * YC( NO2 ) RXRAT( 224 ) = RKI( 224 ) * YC( MCTO ) * YC( NO2 ) RXRAT( 225 ) = RKI( 225 ) * YC( MO2 ) * YC( HO2 ) RXRAT( 226 ) = RKI( 226 ) * YC( ETHP ) * YC( HO2 ) RXRAT( 227 ) = RKI( 227 ) * YC( HC3P ) * YC( HO2 ) RXRAT( 228 ) = RKI( 228 ) * YC( HC5P ) * YC( HO2 ) RXRAT( 229 ) = RKI( 229 ) * YC( ETEP ) * YC( HO2 ) RXRAT( 230 ) = RKI( 230 ) * YC( OLTP ) * YC( HO2 ) RXRAT( 231 ) = RKI( 231 ) * YC( OLIP ) * YC( HO2 ) RXRAT( 232 ) = RKI( 232 ) * YC( BENP ) * YC( HO2 ) RXRAT( 233 ) = RKI( 233 ) * YC( TOLP ) * YC( HO2 ) RXRAT( 234 ) = RKI( 234 ) * YC( XYLP ) * YC( HO2 ) RXRAT( 235 ) = RKI( 235 ) * YC( EBZP ) * YC( HO2 ) RXRAT( 236 ) = RKI( 236 ) * YC( APIP1 ) * YC( HO2 ) RXRAT( 237 ) = RKI( 237 ) * YC( APIP2 ) * YC( HO2 ) RXRAT( 238 ) = RKI( 238 ) * YC( APINP1 ) * YC( HO2 ) RXRAT( 239 ) = RKI( 239 ) * YC( APINP2 ) * YC( HO2 ) RXRAT( 240 ) = RKI( 240 ) * YC( LIMP1 ) * YC( HO2 ) RXRAT( 241 ) = RKI( 241 ) * YC( LIMP2 ) * YC( HO2 ) RXRAT( 242 ) = RKI( 242 ) * YC( LIMNP1 ) * YC( HO2 ) RXRAT( 243 ) = RKI( 243 ) * YC( LIMNP2 ) * YC( HO2 ) RXRAT( 244 ) = RKI( 244 ) * YC( PINALP ) * YC( HO2 ) RXRAT( 245 ) = RKI( 245 ) * YC( LIMALP ) * YC( HO2 ) RXRAT( 246 ) = RKI( 246 ) * YC( ACO3 ) * YC( HO2 ) RXRAT( 247 ) = RKI( 247 ) * YC( RCO3 ) * YC( HO2 ) RXRAT( 248 ) = RKI( 248 ) * YC( ACTP ) * YC( HO2 ) RXRAT( 249 ) = RKI( 249 ) * YC( MEKP ) * YC( HO2 ) RXRAT( 250 ) = RKI( 250 ) * YC( KETP ) * YC( HO2 ) RXRAT( 251 ) = RKI( 251 ) * YC( MACP ) * YC( HO2 ) RXRAT( 252 ) = RKI( 252 ) * YC( MCP ) * YC( HO2 ) RXRAT( 253 ) = RKI( 253 ) * YC( MVKP ) * YC( HO2 ) RXRAT( 254 ) = RKI( 254 ) * YC( UALP ) * YC( HO2 ) RXRAT( 255 ) = RKI( 255 ) * YC( ADDC ) * YC( HO2 ) RXRAT( 256 ) = RKI( 256 ) * YC( CHO ) * YC( HO2 ) RXRAT( 257 ) = RKI( 257 ) * YC( MCTP ) * YC( HO2 ) RXRAT( 258 ) = RKI( 258 ) * YC( ORAP ) * YC( HO2 ) RXRAT( 259 ) = RKI( 259 ) * YC( OLNN ) * YC( HO2 ) RXRAT( 260 ) = RKI( 260 ) * YC( OLND ) * YC( HO2 ) RXRAT( 261 ) = RKI( 261 ) * YC( ADCN ) * YC( HO2 ) RXRAT( 262 ) = RKI( 262 ) * YC( XO2 ) * YC( HO2 ) RXRAT( 263 ) = RKI( 263 ) * YC( MO2 ) * YC( MO2 ) RXRAT( 264 ) = RKI( 264 ) * YC( ETHP ) * YC( MO2 ) RXRAT( 265 ) = RKI( 265 ) * YC( HC3P ) * YC( MO2 ) RXRAT( 266 ) = RKI( 266 ) * YC( HC5P ) * YC( MO2 ) RXRAT( 267 ) = RKI( 267 ) * YC( ETEP ) * YC( MO2 ) RXRAT( 268 ) = RKI( 268 ) * YC( OLTP ) * YC( MO2 ) RXRAT( 269 ) = RKI( 269 ) * YC( OLIP ) * YC( MO2 ) RXRAT( 270 ) = RKI( 270 ) * YC( BENP ) * YC( MO2 ) RXRAT( 271 ) = RKI( 271 ) * YC( TOLP ) * YC( MO2 ) RXRAT( 272 ) = RKI( 272 ) * YC( XYLP ) * YC( MO2 ) RXRAT( 273 ) = RKI( 273 ) * YC( EBZP ) * YC( MO2 ) RXRAT( 274 ) = RKI( 274 ) * YC( ISOP ) * YC( MO2 ) RXRAT( 275 ) = RKI( 275 ) * YC( APIP1 ) * YC( MO2 ) RXRAT( 276 ) = RKI( 276 ) * YC( APIP2 ) * YC( MO2 ) RXRAT( 277 ) = RKI( 277 ) * YC( APINP1 ) * YC( MO2 ) RXRAT( 278 ) = RKI( 278 ) * YC( APINP2 ) * YC( MO2 ) RXRAT( 279 ) = RKI( 279 ) * YC( LIMP1 ) * YC( MO2 ) RXRAT( 280 ) = RKI( 280 ) * YC( LIMP2 ) * YC( MO2 ) RXRAT( 281 ) = RKI( 281 ) * YC( LIMNP1 ) * YC( MO2 ) RXRAT( 282 ) = RKI( 282 ) * YC( LIMNP2 ) * YC( MO2 ) RXRAT( 283 ) = RKI( 283 ) * YC( ACO3 ) * YC( MO2 ) RXRAT( 284 ) = RKI( 284 ) * YC( RCO3 ) * YC( MO2 ) RXRAT( 285 ) = RKI( 285 ) * YC( ACTP ) * YC( MO2 ) RXRAT( 286 ) = RKI( 286 ) * YC( MEKP ) * YC( MO2 ) RXRAT( 287 ) = RKI( 287 ) * YC( KETP ) * YC( MO2 ) RXRAT( 288 ) = RKI( 288 ) * YC( MACP ) * YC( MO2 ) RXRAT( 289 ) = RKI( 289 ) * YC( MCP ) * YC( MO2 ) RXRAT( 290 ) = RKI( 290 ) * YC( MVKP ) * YC( MO2 ) RXRAT( 291 ) = RKI( 291 ) * YC( UALP ) * YC( MO2 ) RXRAT( 292 ) = RKI( 292 ) * YC( BALP ) * YC( MO2 ) RXRAT( 293 ) = RKI( 293 ) * YC( BAL1 ) * YC( MO2 ) RXRAT( 294 ) = RKI( 294 ) * YC( ADDC ) * YC( MO2 ) RXRAT( 295 ) = RKI( 295 ) * YC( MCTP ) * YC( MO2 ) RXRAT( 296 ) = RKI( 296 ) * YC( ORAP ) * YC( MO2 ) RXRAT( 297 ) = RKI( 297 ) * YC( OLNN ) * YC( MO2 ) RXRAT( 298 ) = RKI( 298 ) * YC( OLND ) * YC( MO2 ) RXRAT( 299 ) = RKI( 299 ) * YC( ADCN ) * YC( MO2 ) RXRAT( 300 ) = RKI( 300 ) * YC( XO2 ) * YC( MO2 ) RXRAT( 301 ) = RKI( 301 ) * YC( ETHP ) * YC( ACO3 ) RXRAT( 302 ) = RKI( 302 ) * YC( HC3P ) * YC( ACO3 ) RXRAT( 303 ) = RKI( 303 ) * YC( HC5P ) * YC( ACO3 ) RXRAT( 304 ) = RKI( 304 ) * YC( ETEP ) * YC( ACO3 ) RXRAT( 305 ) = RKI( 305 ) * YC( OLTP ) * YC( ACO3 ) RXRAT( 306 ) = RKI( 306 ) * YC( OLIP ) * YC( ACO3 ) RXRAT( 307 ) = RKI( 307 ) * YC( BENP ) * YC( ACO3 ) RXRAT( 308 ) = RKI( 308 ) * YC( TOLP ) * YC( ACO3 ) RXRAT( 309 ) = RKI( 309 ) * YC( XYLP ) * YC( ACO3 ) RXRAT( 310 ) = RKI( 310 ) * YC( EBZP ) * YC( ACO3 ) RXRAT( 311 ) = RKI( 311 ) * YC( ISOP ) * YC( ACO3 ) RXRAT( 312 ) = RKI( 312 ) * YC( APIP1 ) * YC( ACO3 ) RXRAT( 313 ) = RKI( 313 ) * YC( APIP2 ) * YC( ACO3 ) RXRAT( 314 ) = RKI( 314 ) * YC( APINP1 ) * YC( ACO3 ) RXRAT( 315 ) = RKI( 315 ) * YC( APINP2 ) * YC( ACO3 ) RXRAT( 316 ) = RKI( 316 ) * YC( LIMP1 ) * YC( ACO3 ) RXRAT( 317 ) = RKI( 317 ) * YC( LIMP2 ) * YC( ACO3 ) RXRAT( 318 ) = RKI( 318 ) * YC( LIMNP1 ) * YC( ACO3 ) RXRAT( 319 ) = RKI( 319 ) * YC( LIMNP2 ) * YC( ACO3 ) RXRAT( 320 ) = RKI( 320 ) * YC( ACO3 ) * YC( ACO3 ) RXRAT( 321 ) = RKI( 321 ) * YC( RCO3 ) * YC( ACO3 ) RXRAT( 322 ) = RKI( 322 ) * YC( ACTP ) * YC( ACO3 ) RXRAT( 323 ) = RKI( 323 ) * YC( MEKP ) * YC( ACO3 ) RXRAT( 324 ) = RKI( 324 ) * YC( KETP ) * YC( ACO3 ) RXRAT( 325 ) = RKI( 325 ) * YC( MACP ) * YC( ACO3 ) RXRAT( 326 ) = RKI( 326 ) * YC( MCP ) * YC( ACO3 ) RXRAT( 327 ) = RKI( 327 ) * YC( MVKP ) * YC( ACO3 ) RXRAT( 328 ) = RKI( 328 ) * YC( UALP ) * YC( ACO3 ) RXRAT( 329 ) = RKI( 329 ) * YC( BALP ) * YC( ACO3 ) RXRAT( 330 ) = RKI( 330 ) * YC( BAL1 ) * YC( ACO3 ) RXRAT( 331 ) = RKI( 331 ) * YC( ADDC ) * YC( ACO3 ) RXRAT( 332 ) = RKI( 332 ) * YC( MCTP ) * YC( ACO3 ) RXRAT( 333 ) = RKI( 333 ) * YC( ORAP ) * YC( ACO3 ) RXRAT( 334 ) = RKI( 334 ) * YC( OLNN ) * YC( ACO3 ) RXRAT( 335 ) = RKI( 335 ) * YC( OLND ) * YC( ACO3 ) RXRAT( 336 ) = RKI( 336 ) * YC( ADCN ) * YC( ACO3 ) RXRAT( 337 ) = RKI( 337 ) * YC( XO2 ) * YC( ACO3 ) RXRAT( 338 ) = RKI( 338 ) * YC( RCO3 ) * YC( RCO3 ) RXRAT( 339 ) = RKI( 339 ) * YC( MO2 ) * YC( NO3 ) RXRAT( 340 ) = RKI( 340 ) * YC( ETHP ) * YC( NO3 ) RXRAT( 341 ) = RKI( 341 ) * YC( HC3P ) * YC( NO3 ) RXRAT( 342 ) = RKI( 342 ) * YC( HC5P ) * YC( NO3 ) RXRAT( 343 ) = RKI( 343 ) * YC( ETEP ) * YC( NO3 ) RXRAT( 344 ) = RKI( 344 ) * YC( OLTP ) * YC( NO3 ) RXRAT( 345 ) = RKI( 345 ) * YC( OLIP ) * YC( NO3 ) RXRAT( 346 ) = RKI( 346 ) * YC( BENP ) * YC( NO3 ) RXRAT( 347 ) = RKI( 347 ) * YC( TOLP ) * YC( NO3 ) RXRAT( 348 ) = RKI( 348 ) * YC( XYLP ) * YC( NO3 ) RXRAT( 349 ) = RKI( 349 ) * YC( EBZP ) * YC( NO3 ) RXRAT( 350 ) = RKI( 350 ) * YC( ISOP ) * YC( NO3 ) RXRAT( 351 ) = RKI( 351 ) * YC( APIP1 ) * YC( NO3 ) RXRAT( 352 ) = RKI( 352 ) * YC( LIMP1 ) * YC( NO3 ) RXRAT( 353 ) = RKI( 353 ) * YC( APINP1 ) * YC( NO3 ) RXRAT( 354 ) = RKI( 354 ) * YC( LIMNP1 ) * YC( NO3 ) RXRAT( 355 ) = RKI( 355 ) * YC( ACO3 ) * YC( NO3 ) RXRAT( 356 ) = RKI( 356 ) * YC( RCO3 ) * YC( NO3 ) RXRAT( 357 ) = RKI( 357 ) * YC( ACTP ) * YC( NO3 ) RXRAT( 358 ) = RKI( 358 ) * YC( MEKP ) * YC( NO3 ) RXRAT( 359 ) = RKI( 359 ) * YC( KETP ) * YC( NO3 ) RXRAT( 360 ) = RKI( 360 ) * YC( MACP ) * YC( NO3 ) RXRAT( 361 ) = RKI( 361 ) * YC( MCP ) * YC( NO3 ) RXRAT( 362 ) = RKI( 362 ) * YC( MVKP ) * YC( NO3 ) RXRAT( 363 ) = RKI( 363 ) * YC( UALP ) * YC( NO3 ) RXRAT( 364 ) = RKI( 364 ) * YC( BALP ) * YC( NO3 ) RXRAT( 365 ) = RKI( 365 ) * YC( BAL1 ) * YC( NO3 ) RXRAT( 366 ) = RKI( 366 ) * YC( ADDC ) * YC( NO3 ) RXRAT( 367 ) = RKI( 367 ) * YC( MCTP ) * YC( NO3 ) RXRAT( 368 ) = RKI( 368 ) * YC( ORAP ) * YC( NO3 ) RXRAT( 369 ) = RKI( 369 ) * YC( OLNN ) * YC( NO3 ) RXRAT( 370 ) = RKI( 370 ) * YC( OLND ) * YC( NO3 ) RXRAT( 371 ) = RKI( 371 ) * YC( ADCN ) * YC( NO3 ) RXRAT( 372 ) = RKI( 372 ) * YC( OLNN ) * YC( OLNN ) RXRAT( 373 ) = RKI( 373 ) * YC( OLNN ) * YC( OLND ) RXRAT( 374 ) = RKI( 374 ) * YC( OLND ) * YC( OLND ) RXRAT( 375 ) = RKI( 375 ) * YC( XO2 ) * YC( NO3 ) RXRAT( 376 ) = RKI( 376 ) * YC( XO2 ) * YC( RCO3 ) RXRAT( 377 ) = RKI( 377 ) * YC( XO2 ) * YC( XO2 ) RXRAT( 378 ) = RKI( 378 ) * YC( APIP2 ) * YC( APIP1 ) RXRAT( 379 ) = RKI( 379 ) * YC( APIP2 ) * YC( LIMP1 ) RXRAT( 380 ) = RKI( 380 ) * YC( APIP2 ) * YC( ISOP ) RXRAT( 381 ) = RKI( 381 ) * YC( LIMP2 ) * YC( APIP1 ) RXRAT( 382 ) = RKI( 382 ) * YC( LIMP2 ) * YC( LIMP1 ) RXRAT( 383 ) = RKI( 383 ) * YC( LIMP2 ) * YC( ISOP ) RXRAT( 384 ) = RKI( 384 ) * YC( APINP2 ) * YC( APIP1 ) RXRAT( 385 ) = RKI( 385 ) * YC( APINP2 ) * YC( LIMP1 ) RXRAT( 386 ) = RKI( 386 ) * YC( APINP2 ) * YC( ISOP ) RXRAT( 387 ) = RKI( 387 ) * YC( LIMNP2 ) * YC( APIP1 ) RXRAT( 388 ) = RKI( 388 ) * YC( LIMNP2 ) * YC( LIMP1 ) RXRAT( 389 ) = RKI( 389 ) * YC( LIMNP2 ) * YC( ISOP ) RXRAT( 390 ) = RKI( 390 ) * YC( IEPOX ) * YC( HO ) RXRAT( 391 ) = RKI( 391 ) * YC( VROCIOXY ) * YC( HO ) RXRAT( 392 ) = RKI( 392 ) * YC( SLOWROC ) * YC( HO ) RXRAT( 393 ) = RKI( 393 ) * YC( ACRO ) * YC( HO ) RXRAT( 394 ) = RKI( 394 ) * YC( ACRO ) * YC( O3 ) RXRAT( 395 ) = RKI( 395 ) * YC( ACRO ) * YC( NO3 ) RXRAT( 396 ) = RKI( 396 ) * YC( ACRO ) RXRAT( 397 ) = RKI( 397 ) * YC( BDE13 ) * YC( HO ) RXRAT( 398 ) = RKI( 398 ) * YC( BDE13P ) * YC( NO ) RXRAT( 399 ) = RKI( 399 ) * YC( BDE13P ) * YC( NO3 ) RXRAT( 400 ) = RKI( 400 ) * YC( BDE13P ) * YC( HO2 ) RXRAT( 401 ) = RKI( 401 ) * YC( BDE13P ) * YC( MO2 ) RXRAT( 402 ) = RKI( 402 ) * YC( BDE13P ) * YC( ACO3 ) RXRAT( 403 ) = RKI( 403 ) * YC( BDE13 ) * YC( O3 ) RXRAT( 404 ) = RKI( 404 ) * YC( BDE13 ) * YC( NO3 ) RXRAT( 405 ) = RKI( 405 ) * YC( FURAN ) * YC( HO ) RXRAT( 406 ) = RKI( 406 ) * YC( FURANO2 ) * YC( NO ) RXRAT( 407 ) = RKI( 407 ) * YC( FURANO2 ) * YC( HO2 ) RXRAT( 408 ) = RKI( 408 ) * YC( FURANONE ) * YC( HO ) RXRAT( 409 ) = RKI( 409 ) * YC( FURAN ) * YC( O3 ) RXRAT( 410 ) = RKI( 410 ) * YC( FURAN ) * YC( NO3 ) RXRAT( 411 ) = RKI( 411 ) * YC( PROG ) * YC( HO ) RXRAT( 412 ) = RKI( 412 ) * YC( SESQ ) * YC( NO3 ) RXRAT( 413 ) = RKI( 413 ) * YC( SESQNRO2 ) * YC( HO2 ) RXRAT( 414 ) = RKI( 414 ) * YC( SESQNRO2 ) * YC( NO ) RXRAT( 415 ) = RKI( 415 ) * YC( SESQNRO2 ) * YC( NO3 ) RXRAT( 416 ) = RKI( 416 ) * YC( SESQ ) * YC( O3 ) RXRAT( 417 ) = RKI( 417 ) * YC( SESQ ) * YC( HO ) RXRAT( 418 ) = RKI( 418 ) * YC( SESQRO2 ) * YC( HO2 ) RXRAT( 419 ) = RKI( 419 ) * YC( SESQRO2 ) * YC( NO3 ) RXRAT( 420 ) = RKI( 420 ) * YC( SESQRO2 ) * YC( NO ) RXRAT( 421 ) = RKI( 421 ) * YC( GLY ) RXRAT( 422 ) = RKI( 422 ) * YC( MGLY ) RXRAT( 423 ) = RKI( 423 ) * YC( N2O5 ) RXRAT( 424 ) = RKI( 424 ) * YC( NO2 ) ! RXRAT( 425 ) = RKI( 425 ) * YC( HO2 ) RXRAT( 426 ) = RKI( 426 ) * YC( NO3 ) ! RXRAT( 427 ) = RKI( 427 ) * YC( O3 ) RXRAT( 428 ) = RKI( 428 ) * YC( IEPOX ) RXRAT( 429 ) = RKI( 429 ) * YC( IEPOXP ) RXRAT( 430 ) = RKI( 430 ) * YC( IEPOXP ) * YC( ASO4J ) RXRAT( 431 ) = RKI( 431 ) * YC( IPX ) RXRAT( 432 ) = RKI( 432 ) * YC( INALD ) RXRAT( 433 ) = RKI( 433 ) * YC( VROCP6ALK ) * YC( HO ) RXRAT( 434 ) = RKI( 434 ) * YC( VROCP5ALK ) * YC( HO ) RXRAT( 435 ) = RKI( 435 ) * YC( VROCP4ALK ) * YC( HO ) RXRAT( 436 ) = RKI( 436 ) * YC( VROCP3ALK ) * YC( HO ) RXRAT( 437 ) = RKI( 437 ) * YC( VROCP2ALK ) * YC( HO ) RXRAT( 438 ) = RKI( 438 ) * YC( VROCP1ALK ) * YC( HO ) RXRAT( 439 ) = RKI( 439 ) * YC( HC10 ) * YC( HO ) RXRAT( 440 ) = RKI( 440 ) * YC( VROCP6ALKP ) * YC( NO ) RXRAT( 441 ) = RKI( 441 ) * YC( VROCP5ALKP ) * YC( NO ) RXRAT( 442 ) = RKI( 442 ) * YC( VROCP4ALKP ) * YC( NO ) RXRAT( 443 ) = RKI( 443 ) * YC( VROCP3ALKP ) * YC( NO ) RXRAT( 444 ) = RKI( 444 ) * YC( VROCP2ALKP ) * YC( NO ) RXRAT( 445 ) = RKI( 445 ) * YC( VROCP1ALKP ) * YC( NO ) RXRAT( 446 ) = RKI( 446 ) * YC( HC10P ) * YC( NO ) RXRAT( 447 ) = RKI( 447 ) * YC( VROCP6ALKP ) * YC( NO3 ) RXRAT( 448 ) = RKI( 448 ) * YC( VROCP5ALKP ) * YC( NO3 ) RXRAT( 449 ) = RKI( 449 ) * YC( VROCP4ALKP ) * YC( NO3 ) RXRAT( 450 ) = RKI( 450 ) * YC( VROCP3ALKP ) * YC( NO3 ) RXRAT( 451 ) = RKI( 451 ) * YC( VROCP2ALKP ) * YC( NO3 ) RXRAT( 452 ) = RKI( 452 ) * YC( VROCP1ALKP ) * YC( NO3 ) RXRAT( 453 ) = RKI( 453 ) * YC( HC10P ) * YC( NO3 ) RXRAT( 454 ) = RKI( 454 ) * YC( VROCP6ALKP ) * YC( HO2 ) RXRAT( 455 ) = RKI( 455 ) * YC( VROCP5ALKP ) * YC( HO2 ) RXRAT( 456 ) = RKI( 456 ) * YC( VROCP4ALKP ) * YC( HO2 ) RXRAT( 457 ) = RKI( 457 ) * YC( VROCP3ALKP ) * YC( HO2 ) RXRAT( 458 ) = RKI( 458 ) * YC( VROCP2ALKP ) * YC( HO2 ) RXRAT( 459 ) = RKI( 459 ) * YC( VROCP1ALKP ) * YC( HO2 ) RXRAT( 460 ) = RKI( 460 ) * YC( HC10P ) * YC( HO2 ) RXRAT( 461 ) = RKI( 461 ) * YC( VROCP6ALKP2 ) RXRAT( 462 ) = RKI( 462 ) * YC( VROCP5ALKP2 ) RXRAT( 463 ) = RKI( 463 ) * YC( VROCP4ALKP2 ) RXRAT( 464 ) = RKI( 464 ) * YC( VROCP3ALKP2 ) RXRAT( 465 ) = RKI( 465 ) * YC( VROCP2ALKP2 ) RXRAT( 466 ) = RKI( 466 ) * YC( VROCP1ALKP2 ) RXRAT( 467 ) = RKI( 467 ) * YC( HC10P2 ) RXRAT( 468 ) = RKI( 468 ) * YC( VROCP6ALKP2 ) * YC( NO ) RXRAT( 469 ) = RKI( 469 ) * YC( VROCP5ALKP2 ) * YC( NO ) RXRAT( 470 ) = RKI( 470 ) * YC( VROCP4ALKP2 ) * YC( NO ) RXRAT( 471 ) = RKI( 471 ) * YC( VROCP3ALKP2 ) * YC( NO ) RXRAT( 472 ) = RKI( 472 ) * YC( VROCP2ALKP2 ) * YC( NO ) RXRAT( 473 ) = RKI( 473 ) * YC( VROCP1ALKP2 ) * YC( NO ) RXRAT( 474 ) = RKI( 474 ) * YC( HC10P2 ) * YC( NO ) RXRAT( 475 ) = RKI( 475 ) * YC( VROCP6ALKP2 ) * YC( NO3 ) RXRAT( 476 ) = RKI( 476 ) * YC( VROCP5ALKP2 ) * YC( NO3 ) RXRAT( 477 ) = RKI( 477 ) * YC( VROCP4ALKP2 ) * YC( NO3 ) RXRAT( 478 ) = RKI( 478 ) * YC( VROCP3ALKP2 ) * YC( NO3 ) RXRAT( 479 ) = RKI( 479 ) * YC( VROCP2ALKP2 ) * YC( NO3 ) RXRAT( 480 ) = RKI( 480 ) * YC( VROCP1ALKP2 ) * YC( NO3 ) RXRAT( 481 ) = RKI( 481 ) * YC( HC10P2 ) * YC( NO3 ) RXRAT( 482 ) = RKI( 482 ) * YC( VROCP6ALKP2 ) * YC( HO2 ) RXRAT( 483 ) = RKI( 483 ) * YC( VROCP5ALKP2 ) * YC( HO2 ) RXRAT( 484 ) = RKI( 484 ) * YC( VROCP4ALKP2 ) * YC( HO2 ) RXRAT( 485 ) = RKI( 485 ) * YC( VROCP3ALKP2 ) * YC( HO2 ) RXRAT( 486 ) = RKI( 486 ) * YC( VROCP2ALKP2 ) * YC( HO2 ) RXRAT( 487 ) = RKI( 487 ) * YC( VROCP1ALKP2 ) * YC( HO2 ) RXRAT( 488 ) = RKI( 488 ) * YC( HC10P2 ) * YC( HO2 ) RXRAT( 489 ) = RKI( 489 ) * YC( VROCP6ARO ) * YC( HO ) RXRAT( 490 ) = RKI( 490 ) * YC( VROCP6AROP ) * YC( HO2 ) RXRAT( 491 ) = RKI( 491 ) * YC( VROCP6AROP ) * YC( NO ) RXRAT( 492 ) = RKI( 492 ) * YC( VROCP6AROP ) * YC( NO3 ) RXRAT( 493 ) = RKI( 493 ) * YC( VROCP6AROP ) * YC( MO2 ) RXRAT( 494 ) = RKI( 494 ) * YC( VROCP6AROP ) * YC( ACO3 ) RXRAT( 495 ) = RKI( 495 ) * YC( VROCP5ARO ) * YC( HO ) RXRAT( 496 ) = RKI( 496 ) * YC( VROCP5AROP ) * YC( HO2 ) RXRAT( 497 ) = RKI( 497 ) * YC( VROCP5AROP ) * YC( NO ) RXRAT( 498 ) = RKI( 498 ) * YC( VROCP5AROP ) * YC( NO3 ) RXRAT( 499 ) = RKI( 499 ) * YC( VROCP5AROP ) * YC( MO2 ) RXRAT( 500 ) = RKI( 500 ) * YC( VROCP5AROP ) * YC( ACO3 ) RXRAT( 501 ) = RKI( 501 ) * YC( NAPH ) * YC( HO ) RXRAT( 502 ) = RKI( 502 ) * YC( NAPHP ) * YC( HO2 ) RXRAT( 503 ) = RKI( 503 ) * YC( NAPHP ) * YC( NO ) RXRAT( 504 ) = RKI( 504 ) * YC( NAPHP ) * YC( NO3 ) RXRAT( 505 ) = RKI( 505 ) * YC( NAPHP ) * YC( MO2 ) RXRAT( 506 ) = RKI( 506 ) * YC( NAPHP ) * YC( ACO3 ) RXRAT( 507 ) = RKI( 507 ) * YC( VROCN2OXY8 ) * YC( HO ) RXRAT( 508 ) = RKI( 508 ) * YC( VROCN2OXY4 ) * YC( HO ) RXRAT( 509 ) = RKI( 509 ) * YC( VROCN2OXY2 ) * YC( HO ) RXRAT( 510 ) = RKI( 510 ) * YC( VROCN1OXY6 ) * YC( HO ) RXRAT( 511 ) = RKI( 511 ) * YC( VROCN1OXY3 ) * YC( HO ) RXRAT( 512 ) = RKI( 512 ) * YC( VROCN1OXY1 ) * YC( HO ) RXRAT( 513 ) = RKI( 513 ) * YC( VROCP0OXY4 ) * YC( HO ) RXRAT( 514 ) = RKI( 514 ) * YC( VROCP0OXY2 ) * YC( HO ) RXRAT( 515 ) = RKI( 515 ) * YC( VROCP1OXY3 ) * YC( HO ) RXRAT( 516 ) = RKI( 516 ) * YC( VROCP1OXY1 ) * YC( HO ) RXRAT( 517 ) = RKI( 517 ) * YC( VROCP2OXY2 ) * YC( HO ) RXRAT( 518 ) = RKI( 518 ) * YC( VROCP3OXY2 ) * YC( HO ) RXRAT( 519 ) = RKI( 519 ) * YC( VROCP4OXY2 ) * YC( HO ) RXRAT( 520 ) = RKI( 520 ) * YC( VROCP5OXY1 ) * YC( HO ) RXRAT( 521 ) = RKI( 521 ) * YC( VROCP6OXY1 ) * YC( HO ) RXRAT( 522 ) = RKI( 522 ) * YC( OP3 ) * YC( HO ) RXRAT( 523 ) = RKI( 523 ) * YC( ECH4 ) * YC( HO ) RXRAT( 524 ) = RKI( 524 ) * YC( ATRPNJ ) RXRAT( 525 ) = RKI( 525 ) * YC( AHONITJ ) RXRAT( 526 ) = RKI( 526 ) * YC( STY ) * YC( HO ) RXRAT( 527 ) = RKI( 527 ) * YC( STYP ) * YC( HO2 ) RXRAT( 528 ) = RKI( 528 ) * YC( STYP ) * YC( NO ) RXRAT( 529 ) = RKI( 529 ) * YC( STYP ) * YC( NO3 ) RXRAT( 530 ) = RKI( 530 ) * YC( STYP ) * YC( MO2 ) RXRAT( 531 ) = RKI( 531 ) * YC( STYP ) * YC( ACO3 ) RETURN END ================================================ FILE: CCTM/src/gas/ebi_cracmm2/hrsolver.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE HRSOLVER( JDATE, JTIME, C, R, L ) C********************************************************************** C C FUNCTION: EBI solver C C PRECONDITIONS: For the CRACMM2 mechanism C C KEY SUBROUTINES/FUNCTIONS CALLED: HRRATES, HRG1, HRG2, HRG3 C HRG4, HRPRODLOSS C DEGRADE C C REVISION HISTORY: Created by EBI solver program, Mar 15, 2024 C 21 Jun 10 J.Young: convert for Namelist redesign C 18 Jul 14 B.Hutzell: revised 1) to use the RXNS_DATA and RXNS_FUNCTION C modules instead of include files and 2) to use C real(8) variables C********************************************************************** USE RUNTIME_VARS USE UTILIO_DEFN USE RXNS_DATA USE HRDATA USE PA_IRR_MODULE #ifdef isam USE SA_IRR_DEFN #endif #ifdef sens USE DDM3D_CHEM, ONLY: YCDDM USE CGRID_SPCS, ONLY: GC_SPC #endif USE DEGRADE_ROUTINES, ONLY : DEGRADE, SA_DEGRADE_STEP IMPLICIT NONE C..INCLUDES: C..ARGUMENTS: INTEGER, INTENT( IN ) :: JDATE ! Current date (YYYYDDD) INTEGER, INTENT( IN ) :: JTIME ! Current time (HHMMSS) INTEGER, INTENT( IN ) :: C, R, L ! Cell col, row, lev C..PARAMETERS: INTEGER, PARAMETER :: MXBKUPS = 5 ! Max no. of back-ups allowed INTEGER, PARAMETER :: STAT = 1 ! Status code REAL( 8 ), PARAMETER :: DTMIN = 1.0D-08 ! Smallest time step allowed, min REAL( 8 ), PARAMETER :: EPSLON = 1.0D-30 ! Small number REAL( 8 ), PARAMETER :: MAXPRED = 1.0D+03 ! Upper limit on predicted conc REAL( 8 ), PARAMETER :: ZERO = 1.0D-40 ! effective zero REAL( 8 ), PARAMETER :: FLOOR = 1.0D-08 ! Min conc for RTOL C..EXTERNAL FUNCTIONS: C..SAVED LOCAL VARIABLES: CHARACTER( 16 ), SAVE :: PNAME = 'HRSOLVER' ! Program name LOGICAL, SAVE :: LFIRST = .TRUE. ! Flag for first call LOGICAL, ALLOCATABLE, SAVE :: LEBISPFL( : ) ! Convergence Error Flag for EBI species LOGICAL, ALLOCATABLE, SAVE :: MAXCONC ( : ) ! MAXCONC ERROR Flag for EBI species LOGICAL, ALLOCATABLE, SAVE :: NOTMAX ( : ) ! Initial concentration not greater than MAXPRED REAL( 8 ), ALLOCATABLE, SAVE :: RERROR ( : ) ! Relative Error REAL( 8 ), ALLOCATABLE, SAVE :: AERROR ( : ) ! Absolute Error C..SCRATCH LOCAL VARIABLES: CHARACTER( 132 ) :: MSG ! Message text INTEGER CELLNO ! Cell no. fo debug output INTEGER ITER ! Loop index for Backward Euler iterations INTEGER S ! Loop index for species INTEGER SP ! Imbedded loop index for species INTEGER NEBI ! Loop index for time steps INTEGER NINR ! No. of inner time steps #ifdef hrdebug INTEGER N ! Loop index #endif INTEGER M ! species index INTEGER EBI ! Loop index INTEGER NBKUPS ! No. of times time step reduced INTEGER ERR ! Allocate error flag LOGICAL LEBI_CONV ! Flag for EBI convergence LOGICAL MXFL ! hit MAXPRED flag REAL( 8 ) DTC ! Time step to take REAL( 8 ) DTG ! Time step in degrade routines, sec REAL( 8 ) FXDLOSS ! Total loss due to negative stoichiometry REAL( 8 ) VARLOSS ! Loss excluding negative stoichiometry #ifdef hrdebug CHARACTER( 8 ) :: NOTE ! Convergence fail note INTEGER COL ! Column to generate deboug output for INTEGER ROW ! Row to generate deboug output for INTEGER LEV ! Level to generate deboug output for INTEGER DBGOUT ! Output unit for debu outpt LOGICAL LDEBUG ! Debug output flag LOGICAL, SAVE :: LOPEN = .FALSE. #endif C********************************************************************** IF( LFIRST ) THEN LFIRST = .FALSE. ALLOCATE ( LEBISPFL( NUMB_MECH_SPC ), STAT = ERR ) IF ( ERR .NE. 0 ) THEN MSG = 'Error allocating LEBISPFL' CALL M3EXIT( PNAME, JDATE, JTIME, MSG, XSTAT1 ) END IF ALLOCATE ( MAXCONC( NUMB_MECH_SPC ), STAT = ERR ) IF ( ERR .NE. 0 ) THEN MSG = 'Error allocating MAXCONC' CALL M3EXIT( PNAME, JDATE, JTIME, MSG, XSTAT1 ) END IF ALLOCATE ( NOTMAX( NUMB_MECH_SPC ), STAT = ERR ) IF ( ERR .NE. 0 ) THEN MSG = 'Error allocating NOTMAX' CALL M3EXIT( PNAME, JDATE, JTIME, MSG, XSTAT1 ) END IF ALLOCATE ( RERROR( NUMB_MECH_SPC ), STAT = ERR ) IF ( ERR .NE. 0 ) THEN MSG = 'Error allocating ERROR' CALL M3EXIT( PNAME, JDATE, JTIME, MSG, XSTAT1 ) END IF ALLOCATE ( AERROR( NUMB_MECH_SPC ), STAT = ERR ) IF ( ERR .NE. 0 ) THEN MSG = 'Error allocating AERROR' CALL M3EXIT( PNAME, JDATE, JTIME, MSG, XSTAT1 ) END IF END IF #ifdef sens YCDDM = 0.0D0 #endif c++++++++++++++++++++++++Debug section++++++++++++++++++++++++++++++++++ #ifdef hrdebug COL = 0 ROW = 0 LEV = 0 IF( C .EQ. COL .AND. R .EQ. ROW .AND. L .EQ. LEV ) THEN c IF( JTIME .EQ. 160000 ) THEN LDEBUG = .TRUE. ELSE LDEBUG = .FALSE. END IF IF( LDEBUG ) THEN IF( .NOT. LOPEN ) THEN DBGOUT = JUNIT() OPEN( UNIT = DBGOUT, FILE = 'debug.out' ) LOPEN = .TRUE. END IF WRITE( DBGOUT, '( A, 2I4, I3, 1X, I7, 1X, I6 ) ' ) & 'Debug output for col/row/lev/date/time:', & C, R, L, JDATE, JTIME WRITE( DBGOUT, '( A, F7.2) ' ) & 'EBI_TMSTEP = ', EBI_TMSTEP WRITE( DBGOUT, '( A )' ) 'Starting concs and rate constants' DO N = 1, NUMB_MECH_SPC WRITE( DBGOUT, '( A, I3, 1X, A, 1X, 1PD13.5 )' ) & 'SP ',N, CHEMISTRY_SPC( N ), YC( N ) END DO DO N = 1, N_RXNS WRITE( DBGOUT, '( A, I3, 1X, 1PD13.5 )' ) & 'RKI ', N, RKI( N ) END DO END IF #endif c++++++++++++++++++++++++Debug section++++++++++++++++++++++++++++++++++ DTC = EBI_TMSTEP N_EBI_IT = 0 NBKUPS = 0 N_INR_STEPS = 1 NEBI = 1 LEBI_CONV = .TRUE. #ifdef isam UPDATE_SOLD = .FALSE. UPDATE_PROBABILITIES = .TRUE. CALL SA_IRR_UNBLOCKED ( .TRUE., RKI, YC, DTC ) #endif DO S = 1, NUMB_MECH_SPC IF( YC( S ) .LE. MAXPRED )THEN NOTMAX( S ) = .TRUE. ELSE NOTMAX( S ) = .FALSE. WRITE(LOGDEV,91000)C, R, L, CHEMISTRY_SPC(S), YC(S) END IF END DO ! Initial PA_IRR IF( CALL_IRR ) CALL PA_IRR ( .TRUE., RKI, YC, DTC ) SA_DEGRADE_STEP = 0 TSTEP_EBI: DO ! EBI time-step loop SUBSTEP_EBI: DO NINR = 1, N_INR_STEPS ! time substeps loop ! first attempt is sub time-step equals EBI time-step IF( LEBI_CONV ) YC0 = YC ! Set ICs for EBI iterations ITER_SUBSTEP: DO ITER = 1, NEBITER ! iteration loop solving for sub time-step N_EBI_IT = N_EBI_IT + 1 CALL HRRATES c++++++++++++++++++++++++Debug section++++++++++++++++++++++++++++++++++ #ifdef hrdebug IF( LDEBUG ) THEN WRITE( DBGOUT, '( A, I5 )' ) 'ITER NO ', ITER WRITE( DBGOUT, '( A, F12.5 )' ) & ' DTC=', DTC IF( ITER .EQ. 1 ) THEN WRITE( DBGOUT, '( A )' ) 'Starting reaction rates' DO N = 1, N_RXNS WRITE( DBGOUT, '( A, I3, 1X, 1PD13.5 )' ) & 'RXRAT ', N, RXRAT( NCELL, N ) END DO END IF END IF #endif c++++++++++++++++++++++++Debug section++++++++++++++++++++++++++++++++++ cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Call routines to compute concentrations of groups 1-4 cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc CALL HRG1( DTC ) CALL HRG2( DTC ) CALL HRG3( DTC ) CALL HRG4( DTC ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Do the Euler backward method cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc CALL HRPRODLOSS DO EBI = 1, N_EBISP S = EBISP( EBI ) YCP( S ) = YC( S )*( ( YC0( S ) + PROD( S ) * DTC ) & / ( YC( S ) + LOSS( S ) * DTC ) ) END DO cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Check for convergence cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc LEBI_CONV = .TRUE. MXFL = .FALSE. DO S = 1, NUMB_MECH_SPC LEBISPFL( S ) = .FALSE. YCP( S ) = MAX( ZERO, YCP( S ) ) AERROR( S ) = MAX( ABS( YC(S)-YCP(S) ), EPSLON ) RERROR( S ) = AERROR( S ) / MAX( FLOOR, ABS( YC(S)+YCP(S) ) ) IF( RERROR( S ) .GT. RTOL(S) .OR. AERROR( S ) .GT. 1.0D-5 )THEN LEBI_CONV = .FALSE. LEBISPFL( S ) = .TRUE. END IF c..test if predictions growing too large IF( YCP( S ) .GT. MAXPRED .AND. NOTMAX( S ) ) THEN MXFL = .TRUE. LEBI_CONV = .FALSE. LEBISPFL( S ) = .TRUE. END IF YC( S ) = YCP( S ) END DO c..test if predictions growing too large, abort interation loop IF( MXFL ) EXIT ITER_SUBSTEP c++++++++++++++++++++++++Debug section++++++++++++++++++++++++++++++++++ #ifdef hrdebug IF( LDEBUG ) THEN WRITE( DBGOUT, '( A, I5 )' ) 'Concs after ITER= ', ITER DO S = 1, NUMB_MECH_SPC IF( LEBISPFL( S ) ) THEN NOTE = 'CONV FAIL' ELSE NOTE = ' ' END IF WRITE( DBGOUT, '( I3, 1X, A, 1PD13.5, 1X, A )' ) & S, CHEMISTRY_SPC( S ), YC( S ), NOTE END DO IF( LEBI_CONV ) WRITE( DBGOUT, '( A )' ) & '****Convergence achieved' END IF #endif c++++++++++++++++++++++++Debug section++++++++++++++++++++++++++++++++++ IF( LEBI_CONV ) THEN DTG = 60.0D0 * DTC DO S = 1, NUMB_MECH_SPC M = CGRID_INDEX( S ) YCCELL( M ) = YC( S ) END DO #if defined(isam) || defined(verbose_isam) SA_DEGRADE_STEP = SA_DEGRADE_STEP + 1 #endif IF( CALL_DEG )CALL DEGRADE(YCCELL, DTG, JDATE, JTIME) ! :WTH Call degradation routine IF( CALL_IRR ) CALL PA_IRR ( .FALSE., RKI, YC, DTC ) #ifdef isam IF( NEBI .EQ. N_EBI_STEPS )UPDATE_SOLD = .TRUE. CALL SA_IRR_UNBLOCKED ( .FALSE., RKI, YC, DTC ) UPDATE_PROBABILITIES = .FALSE. #endif #ifdef sens C Update the sum for the average over the chemistry integration YCDDM = YCDDM & + ( ( 0.5D0 * DTC ) * ( YC + YC0 ) ) #endif CYCLE SUBSTEP_EBI ! solve for next sub time-step END IF END DO ITER_SUBSTEP ! interating for substep failed, attempt to increase number of sub time-steps NBKUPS = NBKUPS + 1 ! IF( NBKUPS .LE. MXBKUPS ) THEN IF ( DTC .GT. DTMIN ) THEN ! reset YC and cut sub time-step in half IF ( MXFL ) THEN WRITE( LOGDEV, 92008 ) NBKUPS WRITE( LOGDEV, 92009 ) C+PECOL_OFFSET, R+PEROW_OFFSET, L DO S = 1, NUMB_MECH_SPC IF( LEBISPFL( S ) )WRITE( LOGDEV, 92010 )TRIM( CHEMISTRY_SPC( S ) ), & YC0(S), YCP(S) END DO ELSE WRITE( LOGDEV, 92000 ) C+PECOL_OFFSET, R+PEROW_OFFSET, L, NBKUPS DO S = 1, NUMB_MECH_SPC IF( LEBISPFL( S ) )WRITE( LOGDEV, 92010 )TRIM( CHEMISTRY_SPC( S ) ), & YC0(S), YCP(S) END DO END IF YC = YC0 ! Set ICs for EBI time-step DTC = 0.5D0 * DTC N_INR_STEPS = 2 ** NBKUPS EXIT SUBSTEP_EBI ELSE WRITE( LOGDEV, 92040 ) C+PECOL_OFFSET, R+PEROW_OFFSET, L WRITE( LOGDEV, 92060 ) DO S = 1, NUMB_MECH_SPC IF( LEBISPFL( S ) ) WRITE( LOGDEV, 92080 ) CHEMISTRY_SPC( S ), & YC0(S), YCP(S) END DO MSG = 'ERROR: Stopping because of EBI convergence failures' CALL M3EXIT( PNAME, JDATE, JTIME, MSG, XSTAT2 ) END IF END DO SUBSTEP_EBI IF( LEBI_CONV )THEN NEBI = 1 + NEBI ! test for completing final EBI time-step IF( NEBI .GT. N_EBI_STEPS )EXIT TSTEP_EBI ! test whether backups were done IF( NBKUPS .EQ. 0 )CYCLE TSTEP_EBI ! Reset NBKUPS, N_INR_STEPS and sub-time step NBKUPS = 0 N_INR_STEPS = 1 DTC = EBI_TMSTEP END IF END DO TSTEP_EBI #ifdef sens ! Compute average over integration and filter values YCDDM = YCDDM / CHEMSTEP WHERE ( YCDDM .LT. 1.0D-25 ) YCDDM = 0.0D0 #endif RETURN 91000 FORMAT( 'WARNING: EBI solver in cell (',2(I4,','),I4,') Init.Conc. for ', & A16, ' = ', ES12.4,' ppmV') 92000 FORMAT( 'WARNING: EBI Euler convergence failure' / & ' Reducing EBI time step because of ', & ' convergence failure in ' / & ' Cell (', I3, ', ', I3, ', ', I3, ')' , & ' Solution Attempt #', I2 / & ' Below Species Causing Error: Init.Conc, Pred.Conc.' ) 92008 FORMAT( 'WARNING: At solution attempt #', I2 ) 92009 FORMAT( 'WARNING: EBI Euler convergence failure' / & ' Reducing EBI time step because of ', & ' MAXPRED failure in ' / & ' Cell (', I3, ', ', I3, ', ', I3, ')' , & ' for the below species: : Init.Conc, Pred.Conc.') 92010 FORMAT( A16, 2(1X,ES12.4), ' ppmV' ) 92040 FORMAT( 'ERROR: Max number of EBI time step reductions exceeded' & / ' Convergence failure for cell (', I3, ', ', I3, & ', ', I3, ')' ) 92060 FORMAT( ' Convergence failure for the following species:', & 'Init.Conc, Pred.Conc.' ) 92080 FORMAT( 10X, A, 2(1X,ES12.4), ' ppmV ' ) 92061 FORMAT( ' Convergence failure for the following species:', & 'Init.Conc, Pred.Conc.,Rel.Error,' ) 92081 FORMAT( 10X, A, 2(1X,ES12.4), ' ppmV ', ES12.4,'%' ) END ================================================ FILE: CCTM/src/gas/ebi_racm2_ae6_aq/hrdata_mod.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! MODULE HRDATA C************************************************************************* C C FUNCTION: Mechanism & solver data for EBI solver C C PRECONDITIONS: For the RACM2_AE6_AQ mechanism C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by EBI solver program, Jun 8, 2022 C C 18 Jul 14 B.Hutzell: revised to use real(8) variables for solution C************************************************************************* c..EBI solver fixed parameters INTEGER, PARAMETER :: NEBITER = 1000 ! No. of iterations for EBI INTEGER, PARAMETER :: MAX_CELLS_EBI = 1 ! max # cells in local conc arrays REAL( 8 ), PARAMETER :: DELTAT = 2.500D+00 ! EBI time step (min) c..Mechanism specific variables INTEGER N_SPEC ! No. of species in mechanism INTEGER N_RXNS ! No. of reactions in mechanism INTEGER N_EBISP ! No. of species solved by EBI INTEGER NING1 ! No. of species in group 1 INTEGER NING2 ! No. of species in group 2 INTEGER N_SPCL_RKS ! No. of special rate constants INTEGER N_ACTSP ! No. of species in mechanism (non-ss spec) INTEGER NCELL ! cell number in EBI Block c..Control flags LOGICAL L_AE_VRSN ! Flag for aerosol version of mech LOGICAL L_AQ_VRSN ! Flag for aqueous chemistry version of mech LOGICAL CALL_IRR ! Flag initializing for IRR and calling PA_IRR ! SWITCH for calling DEGRADE routine LOGICAL, SAVE :: CALL_DEG = .TRUE. c..Miscellaneous variables INTEGER N_EBI_IT ! No. of iterations for EBI INTEGER N_EBI_STEPS ! No. of time steps for EBI INTEGER N_INR_STEPS ! No. of inner time steps for EBI INTEGER PECOL_OFFSET ! Local Column Offset for processor INTEGER PEROW_OFFSET ! Local Column Offset for processor INTEGER, SAVE :: MODEL_SPECIES ! No. of species in CGRID REAL( 8 ) EBI_TMSTEP ! Time step for EBI loops (min) REAL( 8 ) CHEMSTEP ! Chemistry integration interval (min) c...Allocatable arrays INTEGER, ALLOCATABLE :: EBISP( : ) ! Index of EBI species INTEGER, ALLOCATABLE :: SSASP( : ) ! Index of ss species INTEGER, ALLOCATABLE :: ACTSP( : ) ! Index of active species INTEGER, ALLOCATABLE :: IOLD2NEW( :,: ) ! YC species map, used if NSPECIAL > 0 REAL( 8 ), ALLOCATABLE :: RKI( : ) ! Rate constants REAL( 8 ), ALLOCATABLE :: RKI_SAV( :, : ) ! Saved values of RKI for SS species calcs REAL( 8 ), ALLOCATABLE :: YC ( : ) ! Species concentrations REAL( 8 ), ALLOCATABLE :: YC0( : ) ! Species concentrations REAL( 8 ), ALLOCATABLE :: YCP( : ) ! Species concentrations REAL( 8 ), ALLOCATABLE :: SYC( :, : ) ! Species concentrations REAL, ALLOCATABLE :: FORWARD_CONV( : ) ! CGRID to CHEM Species conversion factor REAL, ALLOCATABLE :: REVERSE_CONV( : ) ! CHEM to CGRID Species conversion factor REAL( 8 ), ALLOCATABLE :: RXRAT( : ) ! Reaction rates REAL( 8 ), ALLOCATABLE :: RTOL( : ) ! Species tolerances REAL( 8 ), ALLOCATABLE :: YCCELL( : ) ! ALL Species in cgrid REAL( 8 ), ALLOCATABLE :: PROD( : ) ! Prod of species REAL( 8 ), ALLOCATABLE :: LOSS( : ) ! Loss of species REAL, ALLOCATABLE :: PRES( :, :, : ) ! pressure (Pa) REAL, ALLOCATABLE :: QV ( :, :, : ) ! water vapor (Kg/Kg air) REAL, ALLOCATABLE :: TA ( :, :, : ) ! temperature (K) REAL, ALLOCATABLE :: SEAICE ( :, :) ! fractional seaice cover, [-] REAL, ALLOCATABLE :: DENS( :, :, : ) ! mass density (Kg/m^3) REAL, ALLOCATABLE :: SEAWATER_ZONE ( :,: ) ! fractional area of OPEN+SURF LOGICAL, ALLOCATABLE :: LFLAGIRR ( :,:,: ) ! Conduct IRR for cell REAL( 8 ), ALLOCATABLE :: ATMPRES ( : ) ! Cell pressure, Atm ! REAL( 8 ), ALLOCATABLE :: PRESCELL( : ) ! Cell pressure, Pa REAL( 8 ), ALLOCATABLE :: H2O ( : ) ! Cell H2O mixing ratio (ppmV) REAL( 8 ), ALLOCATABLE :: TEMP ( : ) ! Cell Temperature REAL( 8 ), ALLOCATABLE :: DENSITY ( : ) ! Cell mass density (Kg/m3) REAL( 8 ), ALLOCATABLE :: HET ( :, : ) ! cell heterogeneous reaction rates REAL( 8 ), ALLOCATABLE :: RJIN ( :, : ) ! J-values for a cell REAL( 8 ), ALLOCATABLE :: SEAWATER ( : ) ! fractional area of OPEN+SURF for specific cell c..Species indices INTEGER, PARAMETER :: O3 = 1 INTEGER, PARAMETER :: O3P = 2 INTEGER, PARAMETER :: O1D = 3 INTEGER, PARAMETER :: H2O2 = 4 INTEGER, PARAMETER :: HO = 5 INTEGER, PARAMETER :: NO2 = 6 INTEGER, PARAMETER :: NO = 7 INTEGER, PARAMETER :: NO3 = 8 INTEGER, PARAMETER :: HONO = 9 INTEGER, PARAMETER :: HNO3 = 10 INTEGER, PARAMETER :: HNO4 = 11 INTEGER, PARAMETER :: HO2 = 12 INTEGER, PARAMETER :: HCHO = 13 INTEGER, PARAMETER :: CO = 14 INTEGER, PARAMETER :: ACD = 15 INTEGER, PARAMETER :: MO2 = 16 INTEGER, PARAMETER :: ALD = 17 INTEGER, PARAMETER :: ETHP = 18 INTEGER, PARAMETER :: ACT = 19 INTEGER, PARAMETER :: ACO3 = 20 INTEGER, PARAMETER :: UALD = 21 INTEGER, PARAMETER :: KET = 22 INTEGER, PARAMETER :: MEK = 23 INTEGER, PARAMETER :: HKET = 24 INTEGER, PARAMETER :: MACR = 25 INTEGER, PARAMETER :: MACP = 26 INTEGER, PARAMETER :: XO2 = 27 INTEGER, PARAMETER :: MVK = 28 INTEGER, PARAMETER :: GLY = 29 INTEGER, PARAMETER :: MGLY = 30 INTEGER, PARAMETER :: DCB1 = 31 INTEGER, PARAMETER :: DCB2 = 32 INTEGER, PARAMETER :: BALD = 33 INTEGER, PARAMETER :: CHO = 34 INTEGER, PARAMETER :: OP1 = 35 INTEGER, PARAMETER :: OP2 = 36 INTEGER, PARAMETER :: PAA = 37 INTEGER, PARAMETER :: ONIT = 38 INTEGER, PARAMETER :: PAN = 39 INTEGER, PARAMETER :: N2O5 = 40 INTEGER, PARAMETER :: SO2 = 41 INTEGER, PARAMETER :: SULF = 42 INTEGER, PARAMETER :: SULRXN = 43 INTEGER, PARAMETER :: ETH = 44 INTEGER, PARAMETER :: HC3 = 45 INTEGER, PARAMETER :: HC3P = 46 INTEGER, PARAMETER :: HC5 = 47 INTEGER, PARAMETER :: HC5P = 48 INTEGER, PARAMETER :: HC8 = 49 INTEGER, PARAMETER :: HC8P = 50 INTEGER, PARAMETER :: ETE = 51 INTEGER, PARAMETER :: ETEP = 52 INTEGER, PARAMETER :: OLT = 53 INTEGER, PARAMETER :: OLTP = 54 INTEGER, PARAMETER :: OLI = 55 INTEGER, PARAMETER :: OLIP = 56 INTEGER, PARAMETER :: DIEN = 57 INTEGER, PARAMETER :: ACE = 58 INTEGER, PARAMETER :: ORA1 = 59 INTEGER, PARAMETER :: BENZENE = 60 INTEGER, PARAMETER :: BENP = 61 INTEGER, PARAMETER :: EPX = 62 INTEGER, PARAMETER :: PHEN = 63 INTEGER, PARAMETER :: BENZRO2 = 64 INTEGER, PARAMETER :: TOL = 65 INTEGER, PARAMETER :: TR2 = 66 INTEGER, PARAMETER :: TLP1 = 67 INTEGER, PARAMETER :: CSL = 68 INTEGER, PARAMETER :: TOLRO2 = 69 INTEGER, PARAMETER :: XYM = 70 INTEGER, PARAMETER :: XY2 = 71 INTEGER, PARAMETER :: XYL1 = 72 INTEGER, PARAMETER :: XYLRO2 = 73 INTEGER, PARAMETER :: XYP = 74 INTEGER, PARAMETER :: XYO = 75 INTEGER, PARAMETER :: XYO2 = 76 INTEGER, PARAMETER :: ISO = 77 INTEGER, PARAMETER :: ISOP = 78 INTEGER, PARAMETER :: ISOPRXN = 79 INTEGER, PARAMETER :: API = 80 INTEGER, PARAMETER :: APIP = 81 INTEGER, PARAMETER :: TRPRXN = 82 INTEGER, PARAMETER :: LIM = 83 INTEGER, PARAMETER :: LIMP = 84 INTEGER, PARAMETER :: RCO3 = 85 INTEGER, PARAMETER :: ACTP = 86 INTEGER, PARAMETER :: MEKP = 87 INTEGER, PARAMETER :: KETP = 88 INTEGER, PARAMETER :: MCP = 89 INTEGER, PARAMETER :: MVKP = 90 INTEGER, PARAMETER :: UALP = 91 INTEGER, PARAMETER :: DCB3 = 92 INTEGER, PARAMETER :: BALP = 93 INTEGER, PARAMETER :: ADDC = 94 INTEGER, PARAMETER :: MCT = 95 INTEGER, PARAMETER :: MCTO = 96 INTEGER, PARAMETER :: MOH = 97 INTEGER, PARAMETER :: EOH = 98 INTEGER, PARAMETER :: ROH = 99 INTEGER, PARAMETER :: ETEG = 100 INTEGER, PARAMETER :: ISHP = 101 INTEGER, PARAMETER :: IEPOX = 102 INTEGER, PARAMETER :: MAHP = 103 INTEGER, PARAMETER :: ORA2 = 104 INTEGER, PARAMETER :: ORAP = 105 INTEGER, PARAMETER :: PPN = 106 INTEGER, PARAMETER :: MPAN = 107 INTEGER, PARAMETER :: NALD = 108 INTEGER, PARAMETER :: ISON = 109 INTEGER, PARAMETER :: MCTP = 110 INTEGER, PARAMETER :: OLNN = 111 INTEGER, PARAMETER :: OLND = 112 INTEGER, PARAMETER :: ADCN = 113 INTEGER, PARAMETER :: TOLP = 114 INTEGER, PARAMETER :: PER1 = 115 INTEGER, PARAMETER :: XYLP = 116 INTEGER, PARAMETER :: PER2 = 117 INTEGER, PARAMETER :: XYOP = 118 INTEGER, PARAMETER :: BAL1 = 119 INTEGER, PARAMETER :: BAL2 = 120 INTEGER, PARAMETER :: TOLNRXN = 121 INTEGER, PARAMETER :: TOLHRXN = 122 INTEGER, PARAMETER :: XYLNRXN = 123 INTEGER, PARAMETER :: XYLHRXN = 124 INTEGER, PARAMETER :: BNZNRXN = 125 INTEGER, PARAMETER :: BNZHRXN = 126 INTEGER, PARAMETER :: SESQ = 127 INTEGER, PARAMETER :: SESQRXN = 128 INTEGER, PARAMETER :: NAPH = 129 INTEGER, PARAMETER :: PAHRO2 = 130 INTEGER, PARAMETER :: PAHNRXN = 131 INTEGER, PARAMETER :: PAHHRXN = 132 INTEGER, PARAMETER :: SOAALK = 133 INTEGER, PARAMETER :: ALKRXN = 134 INTEGER, PARAMETER :: AISO3J = 135 INTEGER, PARAMETER :: AXYL1J = 136 INTEGER, PARAMETER :: AOLGAJ = 137 INTEGER, PARAMETER :: AXYL2J = 138 INTEGER, PARAMETER :: ATOL1J = 139 INTEGER, PARAMETER :: ATOL2J = 140 INTEGER, PARAMETER :: ABNZ1J = 141 INTEGER, PARAMETER :: ABNZ2J = 142 INTEGER, PARAMETER :: ATRP1J = 143 INTEGER, PARAMETER :: AOLGBJ = 144 INTEGER, PARAMETER :: ATRP2J = 145 INTEGER, PARAMETER :: AISO1J = 146 INTEGER, PARAMETER :: AISO2J = 147 INTEGER, PARAMETER :: ASQTJ = 148 INTEGER, PARAMETER :: APAH1J = 149 INTEGER, PARAMETER :: APAH2J = 150 INTEGER, PARAMETER :: AALK1J = 151 INTEGER, PARAMETER :: AALK2J = 152 INTEGER, PARAMETER :: APOCI = 153 INTEGER, PARAMETER :: APNCOMI = 154 INTEGER, PARAMETER :: APOCJ = 155 INTEGER, PARAMETER :: APNCOMJ = 156 INTEGER, PARAMETER :: PCVOC = 157 INTEGER, PARAMETER :: PCSOARXN = 158 INTEGER, PARAMETER :: VLVPO1 = 159 INTEGER, PARAMETER :: VSVPO1 = 160 INTEGER, PARAMETER :: VSVPO2 = 161 INTEGER, PARAMETER :: VSVPO3 = 162 INTEGER, PARAMETER :: VIVPO1 = 163 INTEGER, PARAMETER :: VLVOO1 = 164 INTEGER, PARAMETER :: VLVOO2 = 165 INTEGER, PARAMETER :: VSVOO2 = 166 INTEGER, PARAMETER :: VSVOO3 = 167 INTEGER, PARAMETER :: VSVOO1 = 168 END MODULE HRDATA ================================================ FILE: CCTM/src/gas/ebi_racm2_ae6_aq/hrdriver.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE CHEM( CGRID, JDATE, JTIME, TSTEP ) C********************************************************************** C C FUNCTION: Driver subroutine for Euler Backward Iterative solver C C PRECONDITIONS: For the RACM2_AE6_AQ mechanism C C KEY SUBROUTINES/FUNCTIONS CALLED: HRINIT, HRCALCKS, HRSOLVER C FIND_DEGRADED, INIT_DEGRADE, FINAL_DEGRADE C C REVISION HISTORY: Created by EBI solver program, Jun 8, 2022 C Based on the algorithm in "Test of Two Numerical C Schemes for Use in Atmospheric Transport-Chemistry C Models", O. Hertel, R. Berkowicz, J. Christensen, C and O. Hov, Atm Env., Vol. 27A, No. 16, 1993. C Original MEBI code developed by Ho-Chun Huang, C SUNY, Albany -- "On the performance of numerical C solvers for a chemistry submodel in three-dimensional C air quality models 1. Box model simulations", C H. Huang and J.S. Chang, JGR, Vol 106, No. D17, 2001. C This version replaces Huang and Chang use of numerical C solutions with analytical solutions derived in C Hertel et al. C 21 Jun 10 J.Young: convert for Namelist redesign C 11 May 11 D.Wong: incorporated twoway model implementation C 27 Sep 11 B.Hutzell: revised method for defining CALL_DEG variable C 18 Jul 14 B.Hutzell: revised: 1) to use the RXNS_DATA and RXNS_FUNCTION C modules instead of include files, 2) to enable C reactions between species types, 3) to calculate C heterogeneous rate constants via AEROSOL_CHEMISTRY C module, 4) to replace call to HRCALCKS with C subroutine in RXNS_FUNCTION module and 5) to change C how degrade routines are used, if present C 02 Dec 14 B.Hutzell: 1) added terrestrial data to conduct surface C dependent reactions and 2) modified the call CALC_RCONST C routine C 01 Feb 19 D.Wong: Implemented centralized I/O approach, removed all MY_N C clauses C********************************************************************** USE HGRD_DEFN ! horizontal domain specifications USE VGRD_DEFN ! vertical layer specifications USE CGRID_SPCS ! CGRID mechanism species USE UTILIO_DEFN ! IOAPI parameters and functions declarations USE RXNS_DATA USE AEROSOL_CHEMISTRY USE RXNS_FUNCTION #ifdef isam USE SA_IRR_DEFN USE SA_DEFN #endif USE HRDATA USE PHOT_MOD, Only: INIT_PHOT_SHARED, RJ ! photolysis rate, in-line module USE PA_DEFN, Only: LIRR ! Process Analysis control and data variable USE PA_IRR_CLT #ifndef isam USE DEGRADE_ROUTINES, ONLY : N_REACT, RXTANT_MAP, DEG_LAY, DEG_COL, DEG_ROW, & FIND_DEGRADED, INIT_DEGRADE, FINAL_DEGRADE #else USE DEGRADE_ROUTINES, ONLY : N_REACT, RXTANT_MAP, SA_DEGRADE_EXTRACT, & FIND_DEGRADED, INIT_DEGRADE, FINAL_DEGRADE, & SA_DEGRADE_UPLOAD, DEG_LAY, DEG_COL, DEG_ROW #endif USE CENTRALIZED_IO_MODULE, ONLY : INTERPOLATE_VAR, OCEAN, SZONE #ifdef sens USE DDM3D_CHEM Use DDM3D_DEFN, Only: DATENUM, STARTDATE, IPT, IDATE, HIGH, NP, NPMAX, CKTIME #endif IMPLICIT NONE C..Includes: INCLUDE SUBST_FILES_ID ! CMAQ files INCLUDE SUBST_CONST ! CMAQ constants INCLUDE SUBST_EMISPRM ! Emissions processing control parameters C..Arguments: REAL, POINTER :: CGRID( :,:,:,: ) ! Species concentrations INTEGER JDATE ! Current date (YYYYDDD) INTEGER JTIME ! Current time (HHMMSS) INTEGER TSTEP( 3 ) ! Time step vector (HHMMSS) C..Parameters: REAL( 8 ), PARAMETER :: DCONMIN = 1.0D-30 ! minimum species concentration allowed REAL, PARAMETER :: CONCMIN = 1.0E-30 ! minimum species concentration allowed REAL, PARAMETER :: MAOMV = 1.0E6 * MWAIR / MWWAT ! Mol Wt of air over Mol Wt of water times 1.0E6 C..External Functions: C..Saved Local Variables: CHARACTER( 16 ), SAVE :: PNAME = 'HRDRIVER' ! Program name INTEGER, SAVE :: ISTFL ! Unit no. of iteration stat output file LOGICAL, SAVE :: LFIRST = .TRUE. ! Flag for first call to this subroutine REAL( 8 ), SAVE :: PA2ATM ! Pascal to atm conv fac C..Scratch Local Variables: CHARACTER( 132 ) :: MSG ! Message text CHARACTER( 16 ) :: VNAME ! Name of I/O API data variable INTEGER C, E, L, R, S ! Loop indices INTEGER ISP ! array index INTEGER AVGEBI ! Average no. of EBI iterations INTEGER DELT_SEC ! EBI max time step in seconds INTEGER ESP ! Loop index for emissions species INTEGER ITMSTEP ! Chemistry integration interval (sec) INTEGER LEV ! Layer index INTEGER MIDDATE ! Date at time step midpoint INTEGER MIDTIME ! Time at time step midpoint INTEGER NPH ! Index for number of phot. rxns in PHOT INTEGER SPC ! Species loop index #ifdef hrstats INTEGER MNEBI ! Min no. of EBI iterations INTEGER MXEBI ! Max no. of EBI iterations #endif LOGICAL LSUNLIGHT ! Flag for sunlight REAL INV_DENS ! reciprocal of air mass density, m3/Kg #ifdef hrstats REAL SUMEBI ! Sum of EBI iterations #endif INTERFACE SUBROUTINE HRSOLVER( JDATE, JTIME, C, R, L ) INTEGER, INTENT( IN ) :: JDATE ! Current date (YYYYDDD) INTEGER, INTENT( IN ) :: JTIME ! Current time (HHMMSS) INTEGER, INTENT( IN ) :: C, R, L ! Cell col, row, lev END SUBROUTINE HRSOLVER SUBROUTINE HETCHEM_UPDATE_AERO( CGRID ) REAL, POINTER :: CGRID( :,:,:,: ) ! species concentration in cell END SUBROUTINE HETCHEM_UPDATE_AERO END INTERFACE C********************************************************************** IF( NUMB_MECH_SPC .EQ. 0 ) RETURN ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c On first call, call routines to set-up for EBI solver ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF( LFIRST ) THEN IF( MECHNAME .NE. 'RACM2_AE6_AQ' ) THEN MSG = 'This version of the EBI solver can only be used with' & // ' the RACM2_AE6_AQ chemical mechanism' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF #ifdef emis_chem EMISVD = .FALSE. #else EMISVD = .TRUE. #endif IF( INDEX( MECHNAME, 'AE' ) .NE. 0 ) THEN L_AE_VRSN = .TRUE. ELSE L_AE_VRSN = .FALSE. END IF IF( INDEX( MECHNAME, 'AQ' ) .NE. 0 ) THEN L_AQ_VRSN = .TRUE. ELSE L_AQ_VRSN = .FALSE. END IF IF( LIRR ) THEN CALL_IRR = .TRUE. ELSE CALL_IRR = .FALSE. END IF MODEL_SPECIES = NSPCSD ! WTH: find number of model species ! Determine whether DEGRADE rountines are needed. CALL FIND_DEGRADED( JDATE, JTIME, CALL_DEG ) IF( CALL_DEG )THEN WRITE(LOGDEV,*)'TX DEGRADE ROUTINES USED' WRITE(LOGDEV,*)'Mechanism contains degraded species' #ifdef verbose_gas ELSE WRITE(LOGDEV,*)'TX DEGRADE ROUTINES OMITTED' WRITE(LOGDEV,*)'MECHANISM does not include degraded species' #endif END IF CALL HRINIT ITMSTEP = TIME2SEC( TSTEP( 2 ) ) CHEMSTEP = REAL( ITMSTEP, 8 ) / 60.0D0 WRITE( LOGDEV, 92000 ) CHEMSTEP, DELTAT WRITE( LOGDEV, 92020 ) DO SPC = 1, NUMB_MECH_SPC WRITE( LOGDEV, 92040 ) CHEMISTRY_SPC( SPC ), RTOL( SPC ) END DO PA2ATM = REAL( 1.0 / STDATMPA, 8) c..If emissions processing requested stop IF( .NOT. EMISVD ) THEN ! assumes emis processing in gas chem MSG = 'ERROR: EBI solver not configured to '// & 'process emissions in chemistry' CALL M3EXIT( PNAME, JDATE, JTIME, MSG, XSTAT1 ) END IF ! End if doing emissions #ifdef hrstats ISTFL = JUNIT() OPEN( UNIT=ISTFL, FILE='iterstat.dat' ) WRITE( ISTFL, 94020 ) #endif C Define processor offsets PECOL_OFFSET = COLSD_PE( 1, MYPE+1 ) - 1 PEROW_OFFSET = ROWSD_PE( 1, MYPE+1 ) - 1 ALLOCATE( SEAWATER_ZONE( NCOLS, NROWS ) ) DO R = 1, NROWS DO C = 1, NCOLS SEAWATER_ZONE( C,R ) = OCEAN( C,R ) + SZONE( C,R ) END DO END DO ALLOCATE( DENS( NCOLS, NROWS, NLAYS ), PRES( NCOLS, NROWS, NLAYS ), & QV ( NCOLS, NROWS, NLAYS ), TA ( NCOLS, NROWS, NLAYS ), & SEAICE( NCOLS, NROWS ) ) C..Initialize shared photolysis data CALL INIT_PHOT_SHARED() C..Determine which cells need IRR ALLOCATE( LFLAGIRR ( NCOLS, NROWS, NLAYS ) ) CALL PA_IRR_CKCELLS ( LFLAGIRR ) #ifdef isam NUMB_ISAM_CELLS = 1.0D0 / ( NCOLS * NROWS * NLAYS ) CALL SA_IRR_INIT #endif #ifdef sens CALL INIT_DDM3D_CHEM() C For higher order sensitivities IF ( HIGH ) THEN DO RXN = 1, NRXNS IF( NREACT( RXN ) .EQ. 1 ) THEN ORDER1( RXN ) = .TRUE. ELSE ORDER1( RXN ) = .FALSE. END IF END DO END IF #endif LFIRST = .FALSE. END IF ! First time ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C Set date and time to center of time step, get necessary physical C data ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc MIDDATE = JDATE MIDTIME = JTIME ITMSTEP = TIME2SEC( TSTEP( 2 ) ) CHEMSTEP = REAL( ITMSTEP, 8 ) / 60.0D0 CALL NEXTIME( MIDDATE, MIDTIME, SEC2TIME( ITMSTEP / 2 ) ) C.. Compute number of time step loops and step size for EBI solver DELT_SEC = INT( DELTAT * 60.0D0 + 0.1D0 ) IF( DELT_SEC .GE. ITMSTEP ) THEN N_EBI_STEPS = 2 EBI_TMSTEP = 0.5D0 * CHEMSTEP ELSE IF( MOD( ITMSTEP, DELT_SEC ) .EQ. 0 ) THEN N_EBI_STEPS = ITMSTEP / DELT_SEC ELSE N_EBI_STEPS = ITMSTEP / DELT_SEC + 1 END IF EBI_TMSTEP = CHEMSTEP / REAL( N_EBI_STEPS, 8 ) END IF N_INR_STEPS = 1 C.. Get fractional seaice coverage from the METCRO2D file. CALL INTERPOLATE_VAR ('SEAICE', MIDDATE, MIDTIME, SEAICE) C.. Get ambient temperature in K CALL INTERPOLATE_VAR ('TA', MIDDATE, MIDTIME, TA) C.. Get specific humidity in Kg H2O / Kg air CALL INTERPOLATE_VAR ('QV', MIDDATE, MIDTIME, QV) ! Get ambient MASS DENSITY in Kg/m^3 CALL INTERPOLATE_VAR ('DENS', MIDDATE, MIDTIME, DENS) C.. Get pressure in Pascals CALL INTERPOLATE_VAR ('PRES', MIDDATE, MIDTIME, PRES) C.. Get Heteorogeneous rates and Update Aerosol Distribution Properties CALL HETCHEM_RATES( TA, PRES, QV, CGRID, DENS ) #ifdef sens DATENUM = 1 + JDATE - STARTDATE ! Set the date and hour counters used in sensitivity calls C For reaction rate sensitivities DO NP = 1, NPMAX IF ( IPT( NP ) .EQ. 5 ) THEN CALL CKTIME( JDATE,JTIME,NP,RXNFLAG(NP) ) ! Rxnflag set to true iff ipt=5 and time, date within bounds IF ( IDATE( NP, DATENUM ) .NE. 1 ) RXNFLAG( NP ) = .FALSE. ELSE RXNFLAG( NP ) = .FALSE. END IF END DO #endif sens ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Top of loop over cells ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc #ifdef hrstats MNEBI = 1000 MXEBI = 0 SUMEBI = 0.0 #endif NCELL = 1 DO L = 1, NLAYS DO R = 1, NROWS DO C = 1, NCOLS DEG_LAY = L DEG_ROW = R DEG_COL = C c..reset CALL_IRR based on cell's values CALL_IRR = LFLAGIRR( C,R,L ) c..Load ICs INV_DENS = 1.0 / DENS( C,R,L ) DO SPC = 1, NUMB_MECH_SPC S = CGRID_INDEX( SPC ) IF( CONVERT_CONC( SPC ) )THEN YC( SPC ) = REAL( MAX( CONCMIN, & INV_DENS*FORWARD_CONV( SPC )*CGRID( C,R,L,S )), 8 ) ELSE YC( SPC ) = REAL( MAX( CGRID( C,R,L,S ), CONCMIN), 8 ) END IF END DO IF(CALL_DEG)THEN ! INITIALIZE degradation routines YCCELL = 0.0D0 DO S = 1, MODEL_SPECIES YCCELL( S ) = REAL( CGRID(C,R,L,S), 8) END DO CALL INIT_DEGRADE(YCCELL,TA(C,R,L),DENS(C,R,L),PRES(C,R,L),QV(C,R,L),RJIN(NCELL,:), & JDATE, JTIME) #ifdef isam CALL SA_DEGRADE_EXTRACT( C,R,L,DENS(C,R,L) ) #endif END IF c..Set physical quantities TEMP( NCELL ) = REAL( TA( C,R,L ), 8) DENSITY( NCELL ) = REAL( DENS( C,R,L ), 8) ! PRESCELL( NCELL ) = REAL( PRES( C,R,L ), 8) ATMPRES( NCELL ) = PA2ATM * REAL( PRES( C,R,L ), 8) H2O( NCELL ) = REAL( MAX ( MAOMV * QV( C,R,L ), 0.0 ), 8) SEAWATER (NCELL) = MAX ( 0.0D0, ( REAL( SEAWATER_ZONE( C,R ) - SEAICE (C,R) ,8) ) ) c..Get rate constants LSUNLIGHT = .FALSE. FORALL( NPH = 1:NPHOTAB ) RJIN( NCELL,NPH ) = REAL( RJ( C,R,L,NPH ), 8) IF( MAXVAL(RJIN) .GT. 0.0D0 ) LSUNLIGHT = .TRUE. FORALL ( NPH = 1:NHETERO )HET( NCELL,NPH ) = REAL( KHETERO( NPH,C,R,L ), 8) CALL CALC_RCONST( TEMP, ATMPRES, H2O, RJIN, HET, LSUNLIGHT, SEAWATER, RKI_SAV, NCELL ) FORALL( NPH = 1:NRXNS )RKI( NPH ) = RKI_SAV( NCELL, NPH ) #ifdef isam #if defined(isam) || defined(verbose_isam) C...For diagnosing IRR calculations in log files IF( CHECK_ISAM )THEN WRITE_CELL = .FALSE. IF( C .EQ. MAX(1, NCOLS/2) .AND. R .EQ. MAX(1,NROWS/2) .AND. L .EQ. 1 )THEN WRITE_CELL = .TRUE. WRITE(LOGDEV,*)'WRITE_CELL = .TRUE.' ELSE WRITE_CELL = .FALSE. END IF END IF #endif CALL SA_IRR_EXTRACT( C, R, L, DENS( C,R,L ),YC ) #endif c..Call EBI solver N_EBI_IT = 0 CALL HRSOLVER( JDATE, JTIME, C, R, L ) #ifdef hrstats MXEBI = MAX( MXEBI, N_EBI_IT ) MNEBI = MIN( MNEBI, N_EBI_IT ) SUMEBI = SUMEBI + REAL( N_EBI_IT ) #endif c..Update concentration array DO SPC = 1, NUMB_MECH_SPC S = CGRID_INDEX( SPC ) IF( CONVERT_CONC( SPC ) )THEN CGRID( C,R,L,S ) = REAL( REVERSE_CONV( SPC ) * DENS( C,R,L ) & * MAX( YC( SPC ), DCONMIN), 4) ELSE CGRID( C,R,L,S ) = REAL( MAX( YC( SPC ), DCONMIN), 4) END IF END DO IF(CALL_DEG)THEN ! WTH: update based on degrade routines CALL FINAL_DEGRADE(YCCELL) UPDATE_DEGRADED: DO SPC = 1, N_REACT ISP = RXTANT_MAP( SPC ) IF( ISP .LE. 0 )CYCLE UPDATE_DEGRADED DO S = 1, NUMB_MECH_SPC IF( CGRID_INDEX( S ) .EQ. ISP )CYCLE UPDATE_DEGRADED END DO CGRID(C,R,L,ISP) = REAL( YCCELL(ISP), 4) END DO UPDATE_DEGRADED #ifdef isam CALL SA_DEGRADE_UPLOAD( C,R,L,DENS(C,R,L) ) #endif END IF #ifdef isam CALL SA_IRR_UPLOAD( C, R, L, DENS( C,R,L ), YC ) #endif c..update irrout arrays if needed IF ( LFLAGIRR( C,R,L ) )CALL PA_IRR_CELLENDF( C, R, L ) #ifdef sens DO RXN = 1, NRXNS SRK( RXN ) = RKI( RXN ) IF ( HIGH ) THEN IF ( ORDER1 (RXN ) ) THEN SRK2( RXN ) = 0.0 ELSE SRK2( RXN ) = RKI( RXN ) END IF END IF END DO CALL SOLVE_DDM3D_CHEM( C,R,L,CHEMSTEP ) #endif END DO END DO END DO ! Update Aerosol Surface Area CALL HETCHEM_UPDATE_AERO( CGRID ) #ifdef hrstats AVGEBI = SUMEBI / REAL( NCOLS * NROWS * NLAYS ) WRITE( ISTFL, 94040 ) JDATE, JTIME, MNEBI, AVGEBI, MXEBI #endif RETURN C*********************** FORMAT STATEMENTS **************************** 92000 FORMAT( / 10X, 'Euler Backward Iterative Parameters -' & / 10X, 'Chemistry Integration Time Interval (min):', F12.4, & / 10X, 'EBI maximum time step (min): ', F12.4 ) 92020 FORMAT( //10X, 'Species convergence tolerances:' ) 92040 FORMAT( 10X, A16, 2X, 1PE12.2 ) 92060 FORMAT( / 10X, 'Emissions Processing in Chemistry ...' & / 10X, 'Number of Emissions Layers: ', I3 & / 10X, 'out of total Number of Model Layers:', I3 ) 94020 FORMAT( 'DATE TIME ', 'MNEBI AVEBI MXEBI' ) 94040 FORMAT( I7, 1X, I6, 1X, 3( I5, 1X ) ) END ================================================ FILE: CCTM/src/gas/ebi_racm2_ae6_aq/hrg1.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE HRG1( DTC ) C********************************************************************** C C FUNCTION: To solve for the concentration of NO2, NO, O3, and O3P C algebraically. C C PRECONDITIONS: For the RACM2_AE6_AQ mechanism C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by EBI solver program, Jun 8, 2022 C C 18 Jul 14 B.Hutzell: revised to use real(8) variables C 01 Jun 18 B.Hutzell: replaced steady solution for O1D with backward Euler C approximation. To match conditions where the initial C concentration cannot be neglected. C********************************************************************** USE HRDATA IMPLICIT NONE C..INCLUDES: None C..ARGUMENTS: REAL( 8 ), INTENT( IN ) :: DTC ! Time step C..PARAMETERS: None C..EXTERNAL FUNCTIONS: NONE C..SAVED LOCAL VARIABLES: ! CHARACTER( 16 ), SAVE :: PNAME = 'HRG1' ! Prgram Name C..SCRATCH LOCAL VARIABLES: REAL( 8 ) :: O1D_S ! sum of O1D loss frequencies REAL( 8 ) :: O3P_S ! stoich coeff for O3P from O1D REAL( 8 ) :: R1_2 ! production term for NO from NO2 REAL( 8 ) :: R2_1 ! production term for NO2 from NO REAL( 8 ) :: P1, P2, P3, P12 ! production terms for NO, NO2, O3, & O3P REAL( 8 ) :: L1, L2, L3, L12 ! loss terms for NO, NO2, O3, O3P REAL( 8 ) :: L1_INV, L2_INV, & L3_INV, L12_INV ! inverse of loss terms REAL( 8 ) :: T1, T2, T3, T4, T5 ! intermerdiate terms REAL( 8 ) :: F1, F2, F3 ! intermerdiate terms REAL( 8 ) :: A, B, C ! coefficients for quadratic equation REAL( 8 ) :: Q, XX, S1, S2 ! intermerdiate terms REAL( 8 ) :: RK1, RK2, RK3 ! rate constants REAL( 8 ) :: PO3 ! temp variable for O3 C********************************************************************** cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c O1D Section c 1) sum of the rate constants for all O1D loss reactions c 2) get fractional yield of O3P from O1D loss cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc O1D_S = RKI( 40 ) ! O1D=O3P & + RKI( 41 ) ! O1D=O3P & + RKI( 42 ) ! O1D=0.2000D+01*HO O3P_S = RKI( 40 ) ! O1D=O3P & + RKI( 41 ) ! O1D=O3P O3P_S = O3P_S / O1D_S cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c NO Section c R1_2 = production of NO from NO2 ( rates of form k[NO2][x] ) c except NO2+NO3=NO+NO2 (it is treated as if it were NO3=NO ) c P1 = remaining NO production terms c L1 = loss of NO (except rxns producing NO2 - they are in R2_1) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc R1_2 = RKI( 4 ) ! NO2=NO+O3P & + RKI( 54 ) * YC ( O3P ) ! NO2+O3P=NO R1_2 = R1_2 * DTC P1 = RXRAT( 5 ) ! NO3=NO & + RXRAT( 7 ) ! HONO=NO+HO & + RXRAT( 61 ) ! NO2+NO3=NO+NO2 P1 = YC0( NO ) + P1 * DTC L1 = RKI( 49 ) * YC ( HO ) ! NO+HO=HONO & + RKI( 51 ) * YC ( HO2 ) ! NO+HO2=HNO3 & + 6.5000D-02 * RKI( 174 ) * YC ( HC3P ) ! NO+HC3P=0.6600D+... & + 1.3600D-01 * RKI( 175 ) * YC ( HC5P ) ! NO+HC5P=0.2000D+... & + 2.6100D-01 * RKI( 176 ) * YC ( HC8P ) ! NO+HC8P=0.6060D+... & + 3.0000D-02 * RKI( 178 ) * YC ( OLTP ) ! NO+OLTP=0.7800D+... & + 5.0000D-02 * RKI( 179 ) * YC ( OLIP ) ! NO+OLIP=0.8300D+... & + 8.2000D-02 * RKI( 180 ) * YC ( BENP ) ! NO+BENP=0.9180D+... & + 5.0000D-02 * RKI( 182 ) * YC ( TOLP ) ! NO+TOLP=0.9500D+... & + 5.0000D-02 * RKI( 183 ) * YC ( PER1 ) ! NO+PER1=0.5000D+... & + 5.0000D-02 * RKI( 185 ) * YC ( XYLP ) ! NO+XYLP=0.9500D+... & + 5.0000D-02 * RKI( 186 ) * YC ( PER2 ) ! NO+PER2=0.9500D+... & + 5.0000D-02 * RKI( 187 ) * YC ( XYOP ) ! NO+XYOP=0.9500D+... & + 1.2000D-01 * RKI( 188 ) * YC ( ISOP ) ! NO+ISOP=0.8800D+... & + 1.8000D-01 * RKI( 189 ) * YC ( APIP ) ! NO+APIP=0.8200D+... L1 = 1.0D0 + L1 * DTC cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c NO2 Section c R2_1 = production of NO2 from NO ( rates of form k[NO][x] ) c a) NO+O3=NO2 not included c b) NO+NO3=2NO2 ( 1/2 of NO2 formation rate included ) c c) NO3+NO2=NO+NO2 is not included for NO2 c P2 = remaining NO2 production terms c a) NO+O3=NO2 not included c b) NO+NO3=2NO2 (1/2 of NO2 formation rate included ) c L2 = loss of NO2 (except rxns producing NO2 - they are in R1_2) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc R2_1 = RKI( 48 ) * YC ( O3P ) ! NO+O3P=NO2 & + RKI( 50 ) * YC ( HO2 ) ! NO+HO2=NO2+HO & + 2.0000D+00 * RKI( 52 ) * YC ( NO ) ! NO+NO=0.2000D+01*NO2 & + RKI( 60 ) * YC ( NO3 ) ! NO+NO3=0.2000D+... & + RKI( 172 ) * YC ( MO2 ) ! NO+MO2=NO2+HO2+HCHO & + RKI( 173 ) * YC ( ETHP ) ! NO+ETHP=NO2+HO2+ACD & + 9.3500D-01 * RKI( 174 ) * YC ( HC3P ) ! NO+HC3P=0.9350D+... & + 8.6400D-01 * RKI( 175 ) * YC ( HC5P ) ! NO+HC5P=0.8640D+... & + 7.3900D-01 * RKI( 176 ) * YC ( HC8P ) ! NO+HC8P=0.7390D+... & + RKI( 177 ) * YC ( ETEP ) ! NO+ETEP=NO2+HO2+... & + 9.7000D-01 * RKI( 178 ) * YC ( OLTP ) ! NO+OLTP=0.9700D+... & + 9.5000D-01 * RKI( 179 ) * YC ( OLIP ) ! NO+OLIP=0.9500D+... & + 9.1800D-01 * RKI( 180 ) * YC ( BENP ) ! NO+BENP=0.9180D+... & + RKI( 181 ) * YC ( TLP1 ) ! NO+TLP1=NO2+BALD & + 9.5000D-01 * RKI( 182 ) * YC ( TOLP ) ! NO+TOLP=0.9500D+... & + 9.5000D-01 * RKI( 183 ) * YC ( PER1 ) ! NO+PER1=0.9500D+... & + RKI( 184 ) * YC ( XYL1 ) ! NO+XYL1=NO2+BALD & + 9.5000D-01 * RKI( 185 ) * YC ( XYLP ) ! NO+XYLP=0.9500D+... & + 9.5000D-01 * RKI( 186 ) * YC ( PER2 ) ! NO+PER2=0.9500D+... & + 9.5000D-01 * RKI( 187 ) * YC ( XYOP ) ! NO+XYOP=0.9500D+... & + 8.8000D-01 * RKI( 188 ) * YC ( ISOP ) ! NO+ISOP=0.8800D+... & + 8.2000D-01 * RKI( 189 ) * YC ( APIP ) ! NO+APIP=0.8200D+... & + RKI( 190 ) * YC ( LIMP ) ! NO+LIMP=NO2+... & + RKI( 191 ) * YC ( ACO3 ) ! NO+ACO3=NO2+MO2 & + RKI( 192 ) * YC ( RCO3 ) ! NO+RCO3=NO2+ETHP & + RKI( 193 ) * YC ( ACTP ) ! NO+ACTP=NO2+ACO3+... & + RKI( 194 ) * YC ( MEKP ) ! NO+MEKP=NO2+... & + RKI( 195 ) * YC ( KETP ) ! NO+KETP=NO2+... & + RKI( 196 ) * YC ( MACP ) ! NO+MACP=NO2+... & + RKI( 197 ) * YC ( MCP ) ! NO+MCP=NO2+... & + RKI( 198 ) * YC ( MVKP ) ! NO+MVKP=NO2+... & + RKI( 199 ) * YC ( UALP ) ! NO+UALP=NO2+HO2+... & + RKI( 200 ) * YC ( BALP ) ! NO+BALP=NO2+BAL1 & + RKI( 201 ) * YC ( BAL1 ) ! NO+BAL1=NO2+BAL2 & + RKI( 202 ) * YC ( ADDC ) ! NO+ADDC=NO2+HO2+... & + RKI( 203 ) * YC ( MCTP ) ! NO+MCTP=NO2+MCTO & + RKI( 204 ) * YC ( ORAP ) ! NO+ORAP=NO2+GLY+HO2 & + RKI( 205 ) * YC ( OLNN ) ! NO+OLNN=NO2+HO2+ONIT & + RKI( 206 ) * YC ( OLND ) ! NO+OLND=0.2000D+... & + RKI( 207 ) * YC ( ADCN ) ! NO+ADCN=0.2000D+... & + RKI( 208 ) * YC ( XO2 ) ! NO+XO2=NO2 R2_1 = R2_1 * DTC P2 = RXRAT( 6 ) ! NO3=NO2+O3P & + RXRAT( 8 ) ! HNO3=NO2+HO & + 8.0000D-01 * RXRAT( 9 ) ! HNO4=0.8000D+00*NO2+... & + RXRAT( 31 ) ! ONIT=NO2+HO2+0.2000D+... & + RXRAT( 32 ) ! PAN=NO2+ACO3 & + RXRAT( 53 ) ! HONO+HO=NO2 & + RXRAT( 58 ) ! NO3+HO=NO2+HO2 & + 7.0000D-01 * RXRAT( 59 ) ! NO3+HO2=0.7000D+... & + RXRAT( 60 ) ! NO+NO3=0.2000D+01*NO2 & + 2.0000D+00 * RXRAT( 62 ) ! NO3+NO3=0.2000D+01*NO2 & + RXRAT( 64 ) ! N2O5=NO2+NO3 & + RXRAT( 67 ) ! HNO4=NO2+HO2 & + RXRAT( 68 ) ! HNO4+HO=NO2 & + RXRAT( 122 ) ! MPAN+HO=NO2+HKET & + RXRAT( 123 ) ! ONIT+HO=NO2+HC3P & + RXRAT( 124 ) ! NALD+HO=NO2+XO2+HKET & + 6.8000D-01 * RXRAT( 151 ) ! MACR+NO3=0.6800D+... & + 5.0000D-01 * RXRAT( 157 ) ! EPX+NO3=0.5000D+... & + RXRAT( 159 ) ! MPAN+NO3=NO2+MACP & + RXRAT( 167 ) ! PAN=NO2+ACO3 & + RXRAT( 169 ) ! PPN=NO2+RCO3 & + RXRAT( 171 ) ! MPAN=NO2+MACP & + RXRAT( 206 ) ! NO+OLND=0.2000D+... & + RXRAT( 207 ) ! NO+ADCN=0.2000D+... & + RXRAT( 273 ) ! MCP+MO2=NO2+HO2+... & + 5.0000D-01 * RXRAT( 282 ) ! OLND+MO2=0.5000D+... & + 7.0000D-01 * RXRAT( 283 ) ! ADCN+MO2=0.7000D+... & + RXRAT( 309 ) ! MCP+ACO3=NO2+0.5000D+... & + RXRAT( 318 ) ! OLND+ACO3=NO2+0.5000D+... & + 7.0000D-01 * RXRAT( 319 ) ! ADCN+ACO3=0.7000D+... & + RXRAT( 322 ) ! MO2+NO3=NO2+HCHO+HO2 & + RXRAT( 323 ) ! ETHP+NO3=NO2+HO2+ACD & + RXRAT( 324 ) ! HC3P+NO3=NO2+0.1400D+... & + RXRAT( 325 ) ! HC5P+NO3=NO2+0.5500D-... & + RXRAT( 326 ) ! HC8P+NO3=NO2+0.1800D+... & + RXRAT( 327 ) ! ETEP+NO3=NO2+HO2+... & + RXRAT( 328 ) ! OLTP+NO3=NO2+0.7900D+... & + RXRAT( 329 ) ! OLIP+NO3=NO2+0.7200D+... & + RXRAT( 330 ) ! BENP+NO3=NO2+HO2+... & + RXRAT( 331 ) ! TLP1+NO3=NO2+BALD & + RXRAT( 332 ) ! TOLP+NO3=NO2+HO2+DCB2 & + RXRAT( 333 ) ! PER1+NO3=NO2+0.5000D+... & + RXRAT( 334 ) ! XYL1+NO3=NO2+BALD & + RXRAT( 335 ) ! XYLP+NO3=NO2+HO2+DCB3 & + RXRAT( 336 ) ! PER2+NO3=NO2+HO2+MGLY+... & + RXRAT( 337 ) ! XYOP+NO3=NO2+HO2+... & + RXRAT( 338 ) ! ISOP+NO3=NO2+HO2+... & + RXRAT( 339 ) ! APIP+NO3=NO2+HO2+ALD+KET & + RXRAT( 340 ) ! LIMP+NO3=NO2+HO2+... & + RXRAT( 341 ) ! ACO3+NO3=NO2+MO2 & + RXRAT( 342 ) ! RCO3+NO3=NO2+ETHP & + RXRAT( 343 ) ! ACTP+NO3=NO2+ACO3+HCHO & + RXRAT( 344 ) ! MEKP+NO3=NO2+0.6700D+... & + RXRAT( 345 ) ! KETP+NO3=NO2+HO2+DCB1 & + RXRAT( 346 ) ! MACP+NO3=NO2+0.5380D+... & + RXRAT( 347 ) ! MCP+NO3=NO2+HO2+HCHO+HKET & + RXRAT( 348 ) ! MVKP+NO3=NO2+0.7000D+... & + RXRAT( 349 ) ! UALP+NO3=NO2+HO2+... & + RXRAT( 350 ) ! BALP+NO3=NO2+BAL1 & + RXRAT( 351 ) ! BAL1+NO3=NO2+BAL2 & + RXRAT( 352 ) ! ADDC+NO3=NO2+HO2+... & + RXRAT( 353 ) ! MCTP+NO3=NO2+MCTO & + RXRAT( 354 ) ! ORAP+NO3=NO2+GLY+HO2 & + RXRAT( 355 ) ! OLNN+NO3=NO2+HO2+ONIT & + 2.0000D+00 * RXRAT( 356 ) ! OLND+NO3=0.2000D+... & + 2.0000D+00 * RXRAT( 357 ) ! ADCN+NO3=0.2000D+... & + 5.0000D-01 * RXRAT( 359 ) ! OLNN+OLND=0.5000D+... & + RXRAT( 360 ) ! OLND+OLND=NO2+0.5040D+... & + RXRAT( 361 ) ! XO2+NO3=NO2 P2 = YC0( NO2 ) + P2 * DTC L2 = RKI( 37 ) * YC ( O3 ) ! NO2+O3=NO3 & + RKI( 55 ) * YC ( O3P ) ! NO2+O3P=NO3 & + RKI( 56 ) * YC ( HO ) ! NO2+HO=HNO3 & + RKI( 63 ) * YC ( NO3 ) ! NO2+NO3=N2O5 & + RKI( 66 ) * YC ( HO2 ) ! NO2+HO2=HNO4 & + RKI( 166 ) * YC ( ACO3 ) ! NO2+ACO3=PAN & + RKI( 168 ) * YC ( RCO3 ) ! NO2+RCO3=PPN & + RKI( 170 ) * YC ( MACP ) ! NO2+MACP=MPAN & + RKI( 209 ) * YC ( BAL2 ) ! NO2+BAL2=ONIT & + RKI( 210 ) * YC ( CHO ) ! NO2+CHO=ONIT & + RKI( 211 ) * YC ( MCTO ) ! NO2+MCTO=ONIT & + RKI( 379 ) ! NO2=0.5000D+... L2 = 1.0D0 + L2 * DTC cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c O3 Section c P3 = production of O3 except O+O2=O3 c L3 = loss terms for O3 except NO+O3=NO2 cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc P3 = YC0( O3 ) L3 = RKI( 1 ) ! O3=O3P & + RKI( 2 ) ! O3=O1D & + RKI( 34 ) * YC ( HO ) ! O3+HO=HO2 & + RKI( 35 ) * YC ( HO2 ) ! O3+HO2=HO & + RKI( 37 ) * YC ( NO2 ) ! O3+NO2=NO3 & + RKI( 39 ) * YC ( O3P ) ! O3+O3P= & + RKI( 126 ) * YC ( ETE ) ! O3+ETE=0.8000D-... & + RKI( 127 ) * YC ( OLT ) ! O3+OLT=0.2200D+... & + RKI( 128 ) * YC ( OLI ) ! O3+OLI=0.4600D+... & + RKI( 129 ) * YC ( DIEN ) ! O3+DIEN=0.9000D-... & + RKI( 130 ) * YC ( ISO ) ! O3+ISO=0.2500D+... & + RKI( 131 ) * YC ( API ) ! O3+API=0.8500D+... & + RKI( 132 ) * YC ( LIM ) ! O3+LIM=0.8500D+... & + RKI( 133 ) * YC ( MACR ) ! O3+MACR=0.1900D+... & + RKI( 134 ) * YC ( MVK ) ! O3+MVK=0.1600D+... & + RKI( 135 ) * YC ( UALD ) ! O3+UALD=0.1000D+... & + RKI( 136 ) * YC ( DCB1 ) ! O3+DCB1=0.5000D-... & + RKI( 137 ) * YC ( DCB2 ) ! O3+DCB2=0.5000D-... & + RKI( 138 ) * YC ( DCB3 ) ! O3+DCB3=0.5000D-... & + RKI( 139 ) * YC ( EPX ) ! O3+EPX=0.5000D-... & + RKI( 140 ) * YC ( MCTO ) ! O3+MCTO=MCTP & + RKI( 380 ) ! O3= L3 = 1.0D0 + L3 * DTC cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c O3P Section c P12 = production of O3P except NO2+hv=O3P (J1) c L12 = loss terms cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc P12 = RXRAT( 1 ) ! O3=O3P & + O3P_S * RXRAT( 2 ) ! O3=O1D & + RXRAT( 6 ) ! NO3=O3P+NO2 & + 9.0000D-02 * RXRAT( 129 ) ! DIEN+O3=0.9000D-... P12 = YC0( O3P ) + P12 * DTC L12 = RKI( 38 ) ! O3P=O3 & + RKI( 39 ) * YC ( O3 ) ! O3P+O3= & + RKI( 48 ) * YC ( NO ) ! O3P+NO=NO2 & + RKI( 54 ) * YC ( NO2 ) ! O3P+NO2=NO & + RKI( 55 ) * YC ( NO2 ) ! O3P+NO2=NO3 L12 = 1.0D0 + L12 * DTC ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Solution section ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c..compute reciprocal of loss terms L1_INV = 1.0D0 / L1 L2_INV = 1.0D0 / L2 L3_INV = 1.0D0 / L3 L12_INV = 1.0D0 / L12 c..compute specific k*delta t terms RK1 = RKI( 4 ) * DTC ! J1 (NO2+hv=NO+O3P) RK2 = RKI( 38 ) * DTC ! J2 (O3P+O2=O3) RK3 = RKI( 36 ) * DTC ! k1_3 (NO+O3=NO2) c..compute terms that are used to calulate a,b & c T1 = RK1 * L2_INV ! J1 / ( 1.0 + Lno2 * dt ) T2 = R1_2 * L2_INV ! r1,2 / ( 1.0 + Lno2 * dt) T3 = R2_1 * L1_INV ! r2,1 / ( 1.0 + Lno * dt) T4 = RK2 * L12_INV ! J2 / ( 1.0 + Lo3p * dt ) T5 = T3 * P1 - T2 * P2 ! T3 * Pno - T2 * Pno2 F1 = 1.0D0 + T2 + T3 ! factor in calculating a & b F2 = T1 * T4 ! factor in calculating a & b F3 = L3 * L1 + RK3 * P1 ! (1 + Lo3 * dt) (1 + lno * dt ) ! + k1,3 * dt * Pno PO3 = P3 + P12 * T4 A = RK3 * ( F1 - F2 ) B = F1 * F3 + RK3 * ( F2 * ( P2 - P1 ) + PO3 + T5 ) C = RK3 * P1 * ( PO3 + P2 * F2 ) + F3 * T5 Q = -0.5D0 * ( B + SIGN( 1.0D0, B ) * SQRT( B * B - 4.0D0 * A * C ) ) XX = MAX( Q / A , C / Q ) ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Species solutions c [NO] = ( P1 + x ) / ( 1 + L1 ) c [NO2] = ( P2 - x ) / ( 1 + L2 ) c [O3 ] = ( P3 + Ko3p->O3 ) / (1 + K1,3 * [NO] + L3 ) c [O3P] = ( P12 + J1 * [NO2] ) / ( 1 + L12 ) c [O1D] = ( yc0(o1d) + Ko3->o1d * [O3] *dtc) / ( 1 + O1D_S*dtc ) ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc YCP( NO ) = MAX( 0.0D0, ( P1 + XX ) * L1_INV ) YCP( NO2 ) = MAX( 0.0D0, ( P2 - XX ) * L2_INV ) S1 = P12 + RK1 * YCP( NO2 ) S2 = T4 * S1 YCP( O3 ) = ( P3 + S2 ) / ( L3 + RK3 * YCP( NO ) ) YCP( O3P ) = S1 * L12_INV YCP( O1D ) = ( YC0( O1D ) + RKI( 2 ) * YCP( O3 ) * DTC ) & / ( 1.0D0 + O1D_S * DTC ) RETURN END ================================================ FILE: CCTM/src/gas/ebi_racm2_ae6_aq/hrg2.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE HRG2( DTC ) C********************************************************************** C C FUNCTION: To solve for the concentration of HO, HO2, HONO, and C HNO4 alebraically. C C PRECONDITIONS: For the RACM2_AE6_AQ mechanism C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by EBI solver program, Jun 8, 2022 C C 18 Jul 14 B.Hutzell: revised to use real(8) variables C********************************************************************** USE HRDATA IMPLICIT NONE C..INCLUDES: None C..ARGUMENTS: REAL( 8 ), INTENT( IN ) :: DTC ! Time step C..PARAMETERS: None C..EXTERNAL FUNCTIONS: NONE C..SAVED LOCAL VARIABLES: ! CHARACTER( 16 ), SAVE :: PNAME = 'HRG2' ! Program name C..SCRATCH LOCAL VARIABLES: REAL( 8 ) :: O1D_S ! sum of O1D loss frequencies REAL( 8 ) :: OH_S ! stoich coeff for OH from O1D+H2O or H2 REAL( 8 ) :: HO2_S ! stoich coeff for HO2 from O1D+H2 rxn REAL( 8 ) :: XOH_S ! stoich coeff for OH & HONO from NO2EX loss rxn REAL( 8 ) :: R4_19 ! production of OH from HONO REAL( 8 ) :: R19_4 ! production of HONO from OH REAL( 8 ) :: R4_5 ! production of OH from HO2 REAL( 8 ) :: R5_4 ! production of HO2 from OH REAL( 8 ) :: R5_21 ! production of HO2 from HNO4 REAL( 8 ) :: R21_5 ! production of HNO4 from HO2 REAL( 8 ) :: P4, P5, P19, P21 ! species production form other paths REAL( 8 ) :: L4, L5, L19, L21 ! species loss terms REAL( 8 ) :: A, B, C ! coeffs of quadratic eq. for HO2 REAL( 8 ) :: Q ! intermediate term REAL( 8 ) :: T1, T2, T3 ! intermediate terms REAL( 8 ) :: L21_INV ! reciprocal of HNO4 loss term C********************************************************************** c..stoichiometric coefficient for production of HOX from O3 via O1D O1D_S = RKI( 40 ) ! O1D=O3P & + RKI( 41 ) ! O1D=O3P & + RKI( 42 ) ! O1D=0.2000D+01*HO OH_S = 2.0000D+00 * RKI( 42 ) ! O1D=0.2000D+01*HO OH_S = OH_S / O1D_S c..Production of HO from HO2 (r4,5 terms ) R4_5 = RKI( 35 ) * YC ( O3 ) ! HO2+O3=HO & + RKI( 50 ) * YC ( NO ) ! HO2+NO=HO+NO2 & + 7.0000D-01 * RKI( 59 ) * YC ( NO3 ) ! HO2+NO3=0.7000D+... & + 4.4000D-01 * RKI( 231 ) * YC ( ACO3 ) ! HO2+ACO3=0.4400D+... & + 4.4000D-01 * RKI( 232 ) * YC ( RCO3 ) ! HO2+RCO3=0.4400D+... & + 1.5000D-01 * RKI( 233 ) * YC ( ACTP ) ! HO2+ACTP=0.1500D+... R4_5 = R4_5 * DTC c..Production of HO from HONO (r4,19 terms ) R4_19 = RKI( 7 ) ! HONO=HO+NO R4_19 = R4_19 * DTC c..Remaining HO production P4 = 2.0000D+00 * RXRAT( 3 ) ! H2O2=0.2000D+01*HO & + RXRAT( 8 ) ! HNO3=HO+NO2 & + 2.0000D-01 * RXRAT( 9 ) ! HNO4=0.2000D+00*HO+0.8000D+... & + 3.4000D-01 * RXRAT( 19 ) ! MACR=0.3400D+00*HO+0.6600D+... & + RXRAT( 28 ) ! OP1=HO+HO2+HCHO & + RXRAT( 29 ) ! OP2=HO+HO2+ALD & + RXRAT( 30 ) ! PAA=HO+MO2 & + OH_S * RXRAT( 2 ) ! O1D=0.2000D+01*HO & + 8.0000D-02 * RXRAT( 126 ) ! ETE+O3=0.8000D-01*HO+... & + 2.2000D-01 * RXRAT( 127 ) ! OLT+O3=0.2200D+00*HO+... & + 4.6000D-01 * RXRAT( 128 ) ! OLI+O3=0.4600D+00*HO+... & + 2.8000D-01 * RXRAT( 129 ) ! DIEN+O3=0.2800D+00*HO+... & + 2.5000D-01 * RXRAT( 130 ) ! ISO+O3=0.2500D+00*HO+... & + 8.5000D-01 * RXRAT( 131 ) ! API+O3=0.8500D+00*HO+... & + 8.5000D-01 * RXRAT( 132 ) ! LIM+O3=0.8500D+00*HO+... & + 1.9000D-01 * RXRAT( 133 ) ! MACR+O3=0.1900D+00*HO+... & + 1.6000D-01 * RXRAT( 134 ) ! MVK+O3=0.1600D+00*HO+... & + 1.0000D-01 * RXRAT( 135 ) ! UALD+O3=0.1000D+00*HO+... & + 5.0000D-02 * RXRAT( 136 ) ! DCB1+O3=0.5000D-01*HO+HO2+... & + 5.0000D-02 * RXRAT( 137 ) ! DCB2+O3=0.5000D-01*HO+HO2+... & + 5.0000D-02 * RXRAT( 138 ) ! DCB3+O3=0.5000D-01*HO+HO2+... & + 5.0000D-02 * RXRAT( 139 ) ! EPX+O3=0.5000D-01*HO+... & + 5.0000D-01 * RXRAT( 157 ) ! EPX+NO3=0.5000D+00*HO+... & + 2.8000D-01 * RXRAT( 160 ) ! TR2=0.2800D+00*HO+0.2900D+... & + 4.9000D-01 * RXRAT( 161 ) ! TOLP=0.4900D+00*HO+0.1000D-... & + 1.5800D-01 * RXRAT( 162 ) ! XY2=0.1580D+00*HO+0.3080D+... & + 3.9000D-01 * RXRAT( 163 ) ! XYLP=0.3900D+00*HO+0.1000D-... & + 1.5800D-01 * RXRAT( 164 ) ! XYO2=0.1580D+00*HO+0.3080D+... & + 3.9000D-01 * RXRAT( 165 ) ! XYOP=0.3900D+00*HO+0.1000D-... P4 = YC0( HO ) + P4 * DTC c..Production of HO2 from OH ( r5,4 terms ) R5_4 = RKI( 34 ) * YC ( O3 ) ! HO+O3=HO2 & + RKI( 43 ) ! HO=HO2 & + RKI( 47 ) * YC ( H2O2 ) ! HO+H2O2=HO2 & + RKI( 58 ) * YC ( NO3 ) ! HO+NO3=HO2+NO2 & + RKI( 69 ) * YC ( SO2 ) ! HO+SO2=HO2+SULF+... & + RKI( 70 ) * YC ( CO ) ! HO+CO=HO2 & + 4.9000D-02 * RKI( 75 ) * YC ( HC8 ) ! HO+HC8=0.4900D-... & + 3.5000D-01 * RKI( 80 ) * YC ( ACE ) ! HO+ACE=0.3500D+... & + 6.4800D-01 * RKI( 81 ) * YC ( BENZENE ) ! HO+BENZENE=... & + 1.7700D-01 * RKI( 82 ) * YC ( TOL ) ! HO+TOL=0.1770D+... & + 1.7700D-01 * RKI( 83 ) * YC ( XYM ) ! HO+XYM=0.1770D+... & + 1.7700D-01 * RKI( 84 ) * YC ( XYP ) ! HO+XYP=0.1770D+... & + 1.7700D-01 * RKI( 85 ) * YC ( XYO ) ! HO+XYO=0.1770D+... & + RKI( 89 ) * YC ( HCHO ) ! HO+HCHO=HO2+CO & + RKI( 95 ) * YC ( HKET ) ! HO+HKET=HO2+MGLY & + RKI( 99 ) * YC ( GLY ) ! HO+GLY=HO2+... & + 5.2000D-01 * RKI( 101 ) * YC ( DCB1 ) ! HO+DCB1=0.5200D+... & + 5.2000D-01 * RKI( 102 ) * YC ( DCB2 ) ! HO+DCB2=0.5200D+... & + 5.6000D-01 * RKI( 103 ) * YC ( DCB3 ) ! HO+DCB3=0.5600D+... & + 7.3000D-01 * RKI( 105 ) * YC ( PHEN ) ! HO+PHEN=0.7300D+... & + 7.3000D-01 * RKI( 106 ) * YC ( CSL ) ! HO+CSL=0.7300D+... & + RKI( 107 ) * YC ( EPX ) ! HO+EPX=HO2+XO2+... & + RKI( 109 ) * YC ( MOH ) ! HO+MOH=HO2+HCHO & + RKI( 110 ) * YC ( EOH ) ! HO+EOH=HO2+ACD & + RKI( 111 ) * YC ( ROH ) ! HO+ROH=HO2+... & + RKI( 112 ) * YC ( ETEG ) ! HO+ETEG=HO2+ALD & + RKI( 117 ) * YC ( ORA1 ) ! HO+ORA1=HO2 R5_4 = R5_4 * DTC c..Production of HO2 from HNO4 (r5,21 term ) R5_21 = 8.0000D-01 * RKI( 9 ) ! HNO4=0.8000D+... & + RKI( 67 ) ! HNO4=HO2+NO2 R5_21 = R5_21 * DTC c..Remaining HO2 production terms P5 = 2.0000D+00 * RXRAT( 11 ) ! HCHO=0.2000D+01*HO2+CO & + RXRAT( 12 ) ! ACD=HO2+MO2+CO & + RXRAT( 13 ) ! ALD=HO2+ETHP+CO & + 1.2200D+00 * RXRAT( 15 ) ! UALD=0.1220D+01*HO2+... & + RXRAT( 18 ) ! HKET=HO2+ACO3+HCHO & + 6.6000D-01 * RXRAT( 19 ) ! MACR=0.6600D+00*HO2+... & + 2.0000D+00 * RXRAT( 23 ) ! GLY=0.2000D+01*HO2+0.2000D+... & + RXRAT( 24 ) ! MGLY=HO2+ACO3+CO & + 1.5000D+00 * RXRAT( 25 ) ! DCB1=0.1500D+01*HO2+... & + 1.5000D+00 * RXRAT( 26 ) ! DCB2=0.1500D+01*HO2+... & + RXRAT( 27 ) ! BALD=HO2+CHO+CO & + RXRAT( 28 ) ! OP1=HO2+HO+HCHO & + RXRAT( 29 ) ! OP2=HO2+HO+ALD & + RXRAT( 31 ) ! ONIT=HO2+NO2+0.2000D+... & + 1.5000D-01 * RXRAT( 126 ) ! ETE+O3=0.1500D+00*HO2+... & + 3.2000D-01 * RXRAT( 127 ) ! OLT+O3=0.3200D+00*HO2+... & + 7.0000D-02 * RXRAT( 128 ) ! OLI+O3=0.7000D-01*HO2+... & + 3.0000D-01 * RXRAT( 129 ) ! DIEN+O3=0.3000D+00*HO2+... & + 2.5000D-01 * RXRAT( 130 ) ! ISO+O3=0.2500D+00*HO2+... & + 1.0000D-01 * RXRAT( 131 ) ! API+O3=0.1000D+00*HO2+... & + 1.0000D-01 * RXRAT( 132 ) ! LIM+O3=0.1000D+00*HO2+... & + 1.4000D-01 * RXRAT( 133 ) ! MACR+O3=0.1400D+00*HO2+... & + 1.1000D-01 * RXRAT( 134 ) ! MVK+O3=0.1100D+00*HO2+... & + 7.2000D-02 * RXRAT( 135 ) ! UALD+O3=0.7200D-01*HO2+... & + RXRAT( 136 ) ! DCB1+O3=HO2+0.5000D-01*HO+... & + RXRAT( 137 ) ! DCB2+O3=HO2+0.5000D-01*HO+... & + RXRAT( 138 ) ! DCB3+O3=HO2+0.5000D-01*HO+... & + 1.5000D+00 * RXRAT( 139 ) ! EPX+O3=0.1500D+01*HO2+... & + RXRAT( 148 ) ! HCHO+NO3=HO2+CO+HNO3 & + RXRAT( 152 ) ! UALD+NO3=HO2+XO2+0.6680D+... & + RXRAT( 153 ) ! GLY+NO3=HO2+0.2000D+01*CO+HNO3 & + 1.5000D+00 * RXRAT( 157 ) ! EPX+NO3=0.1500D+01*HO2+... & + 2.9000D-01 * RXRAT( 160 ) ! TR2=0.2900D+00*HO2+0.2800D+... & + 1.0000D-02 * RXRAT( 161 ) ! TOLP=0.1000D-01*HO2+... & + 3.0800D-01 * RXRAT( 162 ) ! XY2=0.3080D+00*HO2+0.1580D+... & + 1.0000D-02 * RXRAT( 163 ) ! XYLP=0.1000D-01*HO2+... & + 3.0800D-01 * RXRAT( 164 ) ! XYO2=0.3080D+00*HO2+... & + 1.0000D-02 * RXRAT( 165 ) ! XYOP=0.1000D-01*HO2+... & + RXRAT( 172 ) ! MO2+NO=HO2+NO2+HCHO & + RXRAT( 173 ) ! ETHP+NO=HO2+NO2+ACD & + 6.6000D-01 * RXRAT( 174 ) ! HC3P+NO=0.6600D+00*HO2+... & + 2.0000D-01 * RXRAT( 175 ) ! HC5P+NO=0.2000D+00*HO2+... & + 6.0600D-01 * RXRAT( 176 ) ! HC8P+NO=0.6060D+00*HO2+... & + RXRAT( 177 ) ! ETEP+NO=HO2+NO2+0.1600D+... & + 7.8000D-01 * RXRAT( 178 ) ! OLTP+NO=0.7800D+00*HO2+... & + 8.3000D-01 * RXRAT( 179 ) ! OLIP+NO=0.8300D+00*HO2+... & + 9.1800D-01 * RXRAT( 180 ) ! BENP+NO=0.9180D+00*HO2+... & + 9.5000D-01 * RXRAT( 182 ) ! TOLP+NO=0.9500D+00*HO2+... & + 5.0000D-01 * RXRAT( 183 ) ! PER1+NO=0.5000D+00*HO2+... & + 9.5000D-01 * RXRAT( 185 ) ! XYLP+NO=0.9500D+00*HO2+... & + 9.5000D-01 * RXRAT( 186 ) ! PER2+NO=0.9500D+00*HO2+... & + 9.5000D-01 * RXRAT( 187 ) ! XYOP+NO=0.9500D+00*HO2+... & + 8.8000D-01 * RXRAT( 188 ) ! ISOP+NO=0.8800D+00*HO2+... & + 8.2000D-01 * RXRAT( 189 ) ! APIP+NO=0.8200D+00*HO2+... & + RXRAT( 190 ) ! LIMP+NO=HO2+0.6800D+... & + 6.7000D-01 * RXRAT( 194 ) ! MEKP+NO=0.6700D+00*HO2+NO2+... & + 7.7000D-01 * RXRAT( 195 ) ! KETP+NO=0.7700D+00*HO2+... & + 5.0000D-01 * RXRAT( 197 ) ! MCP+NO=0.5000D+00*HO2+NO2+... & + 3.0000D-01 * RXRAT( 198 ) ! MVKP+NO=0.3000D+00*HO2+... & + RXRAT( 199 ) ! UALP+NO=HO2+NO2+0.6100D+... & + RXRAT( 202 ) ! ADDC+NO=HO2+NO2+0.3200D+... & + RXRAT( 204 ) ! ORAP+NO=HO2+GLY+NO2 & + RXRAT( 205 ) ! OLNN+NO=HO2+NO2+ONIT & + 7.4000D-01 * RXRAT( 248 ) ! MO2+MO2=0.7400D+00*HO2+... & + RXRAT( 249 ) ! ETHP+MO2=HO2+0.7500D+... & + 8.9400D-01 * RXRAT( 250 ) ! HC3P+MO2=0.8940D+00*HO2+... & + 8.4200D-01 * RXRAT( 251 ) ! HC5P+MO2=0.8420D+00*HO2+... & + 9.1000D-01 * RXRAT( 252 ) ! HC8P+MO2=0.9100D+00*HO2+... & + RXRAT( 253 ) ! ETEP+MO2=HO2+0.1950D+... & + RXRAT( 254 ) ! OLTP+MO2=HO2+0.1500D+... & + RXRAT( 255 ) ! OLIP+MO2=HO2+0.7500D+... & + 1.6000D+00 * RXRAT( 256 ) ! BENP+MO2=0.1600D+01*HO2+... & + RXRAT( 257 ) ! TLP1+MO2=HO2+HCHO+BALD & + 2.0000D+00 * RXRAT( 258 ) ! TOLP+MO2=0.2000D+01*HO2+... & + 2.0000D+00 * RXRAT( 259 ) ! PER1+MO2=0.2000D+01*HO2+... & + RXRAT( 260 ) ! XYL1+MO2=HO2+HCHO+BALD & + 2.0000D+00 * RXRAT( 261 ) ! XYLP+MO2=0.2000D+01*HO2+... & + 2.0000D+00 * RXRAT( 262 ) ! PER2+MO2=0.2000D+01*HO2+... & + 2.0000D+00 * RXRAT( 263 ) ! XYOP+MO2=0.2000D+01*HO2+... & + RXRAT( 264 ) ! ISOP+MO2=HO2+0.1310D+... & + RXRAT( 265 ) ! APIP+MO2=HO2+0.7500D+... & + RXRAT( 266 ) ! LIMP+MO2=HO2+0.1040D+... & + 9.0000D-01 * RXRAT( 267 ) ! ACO3+MO2=0.9000D+00*HO2+... & + 9.0000D-01 * RXRAT( 268 ) ! RCO3+MO2=0.9000D+00*HO2+... & + 5.0000D-01 * RXRAT( 269 ) ! ACTP+MO2=0.5000D+00*HO2+... & + 8.3400D-01 * RXRAT( 270 ) ! MEKP+MO2=0.8340D+00*HO2+... & + RXRAT( 271 ) ! KETP+MO2=HO2+0.7500D+... & + 5.0000D-01 * RXRAT( 272 ) ! MACP+MO2=0.5000D+00*HO2+... & + RXRAT( 273 ) ! MCP+MO2=HO2+NO2+0.1500D+... & + RXRAT( 274 ) ! MVKP+MO2=HO2+0.1160D+... & + RXRAT( 275 ) ! UALP+MO2=HO2+0.3050D+00*CO+... & + RXRAT( 276 ) ! BALP+MO2=HO2+BAL1+HCHO & + RXRAT( 277 ) ! BAL1+MO2=HO2+BAL2+HCHO & + 2.0000D+00 * RXRAT( 278 ) ! ADDC+MO2=0.2000D+01*HO2+... & + RXRAT( 279 ) ! MCTP+MO2=HO2+MCTO+HCHO & + RXRAT( 280 ) ! ORAP+MO2=HO2+HCHO+GLY & + 2.0000D+00 * RXRAT( 281 ) ! OLNN+MO2=0.2000D+01*HO2+... & + 5.0000D-01 * RXRAT( 282 ) ! OLND+MO2=0.5000D+00*HO2+... & + RXRAT( 283 ) ! ADCN+MO2=HO2+0.7000D+... & + RXRAT( 284 ) ! XO2+MO2=HO2+HCHO & + 5.0000D-01 * RXRAT( 285 ) ! ETHP+ACO3=0.5000D+00*HO2+... & + 3.9400D-01 * RXRAT( 286 ) ! HC3P+ACO3=0.3940D+00*HO2+... & + 3.4200D-01 * RXRAT( 287 ) ! HC5P+ACO3=0.3420D+00*HO2+... & + 3.0300D-01 * RXRAT( 288 ) ! HC8P+ACO3=0.3030D+00*HO2+... & + 5.0000D-01 * RXRAT( 289 ) ! ETEP+ACO3=0.5000D+00*HO2+... & + 5.0000D-01 * RXRAT( 290 ) ! OLTP+ACO3=0.5000D+00*HO2+... & + 5.0000D-01 * RXRAT( 291 ) ! OLIP+ACO3=0.5000D+00*HO2+... & + 6.0000D-01 * RXRAT( 292 ) ! BENP+ACO3=0.6000D+00*HO2+... & + RXRAT( 294 ) ! TOLP+ACO3=HO2+MO2+DCB2 & + RXRAT( 295 ) ! PER1+ACO3=HO2+MO2+MGLY+DCB1 & + RXRAT( 297 ) ! XYLP+ACO3=HO2+MO2+DCB2 & + RXRAT( 298 ) ! PER2+ACO3=HO2+MO2+MGLY+... & + RXRAT( 299 ) ! XYOP+ACO3=HO2+MO2+0.3680D+... & + 5.0000D-01 * RXRAT( 300 ) ! ISOP+ACO3=0.5000D+00*HO2+... & + 5.0000D-01 * RXRAT( 301 ) ! APIP+ACO3=0.5000D+00*HO2+... & + 5.0000D-01 * RXRAT( 302 ) ! LIMP+ACO3=0.5000D+00*HO2+... & + 3.3000D-01 * RXRAT( 306 ) ! MEKP+ACO3=0.3300D+00*HO2+... & + 5.0000D-01 * RXRAT( 307 ) ! KETP+ACO3=0.5000D+00*HO2+... & + 5.0000D-01 * RXRAT( 309 ) ! MCP+ACO3=0.5000D+00*HO2+... & + 5.0000D-01 * RXRAT( 310 ) ! MVKP+ACO3=0.5000D+00*HO2+... & + 5.0000D-01 * RXRAT( 311 ) ! UALP+ACO3=0.5000D+00*HO2+... & + 2.0000D+00 * RXRAT( 314 ) ! ADDC+ACO3=0.2000D+01*HO2+... & + RXRAT( 315 ) ! MCTP+ACO3=HO2+MO2+MCTO & + RXRAT( 317 ) ! OLNN+ACO3=HO2+MO2+ONIT & + RXRAT( 319 ) ! ADCN+ACO3=HO2+MO2+0.7000D+... & + RXRAT( 322 ) ! MO2+NO3=HO2+HCHO+NO2 & + RXRAT( 323 ) ! ETHP+NO3=HO2+NO2+ACD & + 2.5400D-01 * RXRAT( 324 ) ! HC3P+NO3=0.2540D+00*HO2+... & + 4.8800D-01 * RXRAT( 325 ) ! HC5P+NO3=0.4880D+00*HO2+... & + 8.2000D-01 * RXRAT( 326 ) ! HC8P+NO3=0.8200D+00*HO2+... & + RXRAT( 327 ) ! ETEP+NO3=HO2+NO2+0.1600D+... & + 7.9000D-01 * RXRAT( 328 ) ! OLTP+NO3=0.7900D+00*HO2+... & + 8.6000D-01 * RXRAT( 329 ) ! OLIP+NO3=0.8600D+00*HO2+... & + RXRAT( 330 ) ! BENP+NO3=HO2+NO2+0.5000D+... & + RXRAT( 332 ) ! TOLP+NO3=HO2+NO2+DCB2 & + 5.0000D-01 * RXRAT( 333 ) ! PER1+NO3=0.5000D+00*HO2+... & + RXRAT( 335 ) ! XYLP+NO3=HO2+NO2+DCB3 & + RXRAT( 336 ) ! PER2+NO3=HO2+NO2+MGLY+DCB1+... & + RXRAT( 337 ) ! XYOP+NO3=HO2+NO2+0.3680D+... & + RXRAT( 338 ) ! ISOP+NO3=HO2+NO2+0.7500D+... & + RXRAT( 339 ) ! APIP+NO3=HO2+NO2+ALD+KET & + RXRAT( 340 ) ! LIMP+NO3=HO2+NO2+0.3850D+... & + 6.7000D-01 * RXRAT( 344 ) ! MEKP+NO3=0.6700D+00*HO2+... & + RXRAT( 345 ) ! KETP+NO3=HO2+NO2+DCB1 & + RXRAT( 347 ) ! MCP+NO3=HO2+NO2+HCHO+HKET & + 3.0000D-01 * RXRAT( 348 ) ! MVKP+NO3=0.3000D+00*HO2+... & + RXRAT( 349 ) ! UALP+NO3=HO2+NO2+0.6100D+... & + RXRAT( 352 ) ! ADDC+NO3=HO2+NO2+0.3200D+... & + RXRAT( 354 ) ! ORAP+NO3=HO2+GLY+NO2 & + RXRAT( 355 ) ! OLNN+NO3=HO2+NO2+ONIT & + RXRAT( 358 ) ! OLNN+OLNN=HO2+0.2000D+01*ONIT & + 5.0000D-01 * RXRAT( 359 ) ! OLNN+OLND=0.5000D+00*HO2+... P5 = YC0( HO2 ) + P5 * DTC c..Production of HONO from OH (r19,4 terms ) R19_4 = RKI( 49 ) * YC( NO ) * DTC ! OH+NO=HONO c..Remaining HONO production terms P19 = 5.0000D-01 * RXRAT( 379 ) ! NO2=0.5000D+00*HONO+... P19 = YC0( HONO ) + P19 * DTC c..Production of HNO4 from HO2 (r21,5 term ) R21_5 = RKI( 66 ) * YCP( NO2 ) * DTC ! HO2+NO2=HNO4 c..Remaining HNO4 production terms P21 = YC0( HNO4 ) c..HO loss terms not in R5_4 & R19_4 L4 = RKI( 44 ) * YC ( HO2 ) ! HO+HO2= & + RKI( 53 ) * YC ( HONO ) ! HO+HONO=NO2 & + RKI( 56 ) * YC ( NO2 ) ! HO+NO2=HNO3 & + RKI( 57 ) * YC ( HNO3 ) ! HO+HNO3=NO3 & + RKI( 68 ) * YC ( HNO4 ) ! HO+HNO4=NO2 & + RKI( 71 ) ! HO=MO2 & + RKI( 72 ) * YC ( ETH ) ! HO+ETH=ETHP & + RKI( 73 ) * YC ( HC3 ) ! HO+HC3=HC3P & + RKI( 74 ) * YC ( HC5 ) ! HO+HC5=HC5P & + 9.5100D-01 * RKI( 75 ) * YC ( HC8 ) ! HO+HC8=0.4900D-... & + RKI( 76 ) * YC ( ETE ) ! HO+ETE=ETEP & + RKI( 77 ) * YC ( OLT ) ! HO+OLT=OLTP & + RKI( 78 ) * YC ( OLI ) ! HO+OLI=OLIP & + RKI( 79 ) * YC ( DIEN ) ! HO+DIEN=OLIP & + 3.5200D-01 * RKI( 81 ) * YC ( BENZENE ) ! HO+BENZENE=... & + 8.2300D-01 * RKI( 82 ) * YC ( TOL ) ! HO+TOL=0.1770D+... & + 8.2300D-01 * RKI( 83 ) * YC ( XYM ) ! HO+XYM=0.1770D+... & + 8.2300D-01 * RKI( 84 ) * YC ( XYP ) ! HO+XYP=0.1770D+... & + 8.2300D-01 * RKI( 85 ) * YC ( XYO ) ! HO+XYO=0.1770D+... & + RKI( 86 ) * YC ( ISO ) ! HO+ISO=ISOP+ISOPRXN & + RKI( 87 ) * YC ( API ) ! HO+API=APIP+TRPRXN & + RKI( 88 ) * YC ( LIM ) ! HO+LIM=LIMP+TRPRXN & + RKI( 90 ) * YC ( ACD ) ! HO+ACD=ACO3 & + RKI( 91 ) * YC ( ALD ) ! HO+ALD=RCO3 & + RKI( 92 ) * YC ( ACT ) ! HO+ACT=ACTP & + RKI( 93 ) * YC ( MEK ) ! HO+MEK=MEKP & + RKI( 94 ) * YC ( KET ) ! HO+KET=KETP & + RKI( 96 ) * YC ( MACR ) ! HO+MACR=0.5700D+... & + RKI( 97 ) * YC ( MVK ) ! HO+MVK=MVKP & + RKI( 98 ) * YC ( UALD ) ! HO+UALD=0.3130D+... & + RKI( 100 ) * YC ( MGLY ) ! HO+MGLY=ACO3+CO & + 4.8000D-01 * RKI( 101 ) * YC ( DCB1 ) ! HO+DCB1=0.5200D+... & + 4.8000D-01 * RKI( 102 ) * YC ( DCB2 ) ! HO+DCB2=0.5200D+... & + 4.4000D-01 * RKI( 103 ) * YC ( DCB3 ) ! HO+DCB3=0.5600D+... & + RKI( 104 ) * YC ( BALD ) ! HO+BALD=BALP & + 2.7000D-01 * RKI( 105 ) * YC ( PHEN ) ! HO+PHEN=0.7300D+... & + 2.7000D-01 * RKI( 106 ) * YC ( CSL ) ! HO+CSL=0.7300D+... & + RKI( 108 ) * YC ( MCT ) ! HO+MCT=MCTO & + 6.5000D-01 * RKI( 113 ) * YC ( OP1 ) ! HO+OP1=0.3500D+... & + 9.9000D-01 * RKI( 114 ) * YC ( OP2 ) ! HO+OP2=0.1000D-... & + RKI( 116 ) * YC ( MAHP ) ! HO+MAHP=MACP & + RKI( 118 ) * YC ( ORA2 ) ! HO+ORA2=0.6400D+... & + 6.5000D-01 * RKI( 119 ) * YC ( PAA ) ! HO+PAA=0.3500D+... & + RKI( 120 ) * YC ( PAN ) ! HO+PAN=XO2+NO3+HCHO & + RKI( 121 ) * YC ( PPN ) ! HO+PPN=XO2+NO3+HCHO & + RKI( 122 ) * YC ( MPAN ) ! HO+MPAN=NO2+HKET & + RKI( 123 ) * YC ( ONIT ) ! HO+ONIT=HC3P+NO2 & + RKI( 124 ) * YC ( NALD ) ! HO+NALD=NO2+XO2+HKET & + RKI( 125 ) * YC ( ISON ) ! HO+ISON=NALD+... L4 = 1.0D0 + L4 * DTC + R5_4 + R19_4 c..HO2 loss terms not included in R4_5 & R21_5 (except for HO2+HO2 ) L5 = RKI( 44 ) * YC ( HO ) ! HO2+HO= & + RKI( 51 ) * YC ( NO ) ! HO2+NO=HNO3 & + 3.0000D-01 * RKI( 59 ) * YC ( NO3 ) ! HO2+NO3=0.7000D+... & + RKI( 212 ) * YC ( MO2 ) ! HO2+MO2=OP1 & + RKI( 213 ) * YC ( ETHP ) ! HO2+ETHP=OP2 & + RKI( 214 ) * YC ( HC3P ) ! HO2+HC3P=OP2 & + RKI( 215 ) * YC ( HC5P ) ! HO2+HC5P=OP2 & + RKI( 216 ) * YC ( HC8P ) ! HO2+HC8P=OP2 & + RKI( 217 ) * YC ( ETEP ) ! HO2+ETEP=OP2 & + RKI( 218 ) * YC ( OLTP ) ! HO2+OLTP=OP2 & + RKI( 219 ) * YC ( OLIP ) ! HO2+OLIP=OP2 & + RKI( 220 ) * YC ( BENP ) ! HO2+BENP=OP2 & + RKI( 221 ) * YC ( TLP1 ) ! HO2+TLP1=OP2 & + RKI( 222 ) * YC ( TOLP ) ! HO2+TOLP=OP2 & + RKI( 223 ) * YC ( PER1 ) ! HO2+PER1=OP2 & + RKI( 224 ) * YC ( XYL1 ) ! HO2+XYL1=OP2 & + RKI( 225 ) * YC ( XYLP ) ! HO2+XYLP=OP2 & + RKI( 226 ) * YC ( PER2 ) ! HO2+PER2=OP2 & + RKI( 227 ) * YC ( XYOP ) ! HO2+XYOP=OP2 & + RKI( 228 ) * YC ( ISOP ) ! HO2+ISOP=ISHP & + RKI( 229 ) * YC ( APIP ) ! HO2+APIP=OP2 & + RKI( 230 ) * YC ( LIMP ) ! HO2+LIMP=OP2 & + 5.6000D-01 * RKI( 231 ) * YC ( ACO3 ) ! HO2+ACO3=0.4400D+... & + 5.6000D-01 * RKI( 232 ) * YC ( RCO3 ) ! HO2+RCO3=0.4400D+... & + 8.5000D-01 * RKI( 233 ) * YC ( ACTP ) ! HO2+ACTP=0.1500D+... & + RKI( 234 ) * YC ( MEKP ) ! HO2+MEKP=OP2 & + RKI( 235 ) * YC ( KETP ) ! HO2+KETP=OP2 & + RKI( 236 ) * YC ( MACP ) ! HO2+MACP=MAHP & + RKI( 237 ) * YC ( MCP ) ! HO2+MCP=MAHP & + RKI( 238 ) * YC ( MVKP ) ! HO2+MVKP=OP2 & + RKI( 239 ) * YC ( UALP ) ! HO2+UALP=OP2 & + RKI( 240 ) * YC ( ADDC ) ! HO2+ADDC=OP2 & + RKI( 241 ) * YC ( CHO ) ! HO2+CHO=CSL & + RKI( 242 ) * YC ( MCTP ) ! HO2+MCTP=OP2 & + RKI( 243 ) * YC ( ORAP ) ! HO2+ORAP=OP2 & + RKI( 244 ) * YC ( OLNN ) ! HO2+OLNN=ONIT & + RKI( 245 ) * YC ( OLND ) ! HO2+OLND=ONIT & + RKI( 246 ) * YC ( ADCN ) ! HO2+ADCN=OP2 & + RKI( 247 ) * YC ( XO2 ) ! HO2+XO2=OP2 L5 = 1.0D0 + L5 * DTC + R4_5 + R21_5 c..HONO loss terms not included in R4_19 L19 = RKI( 53 ) * YC ( HO ) ! HONO+HO=NO2 L19 = 1.0D0 + L19 * DTC + R4_19 c..HNO4 loss terms not included in R5_21 L21 = 2.0000D-01 * RKI( 9 ) ! HNO4=0.8000D+... & + RKI( 68 ) * YC ( HO ) ! HNO4+HO=NO2 L21 = 1.0D0 + L21 * DTC + R5_21 ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Solution section ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c..compute terms used to calculate a,b & c L21_INV = 1.0D0 / L21 T1 = 1.0D0 / ( L4 * L19 - R4_19 * R19_4 ) T2 = R5_4 * T1 T3 = R5_21 * L21_INV c..solve quadratic equation for HO2 A = 2.0D0 * ( RKI( 45 ) + RKI( 46 ) ) * DTC B = L5 - T3 * R21_5 - T2 * R4_5 * L19 C = P5 + T3 * P21 + T2 * ( P4 * L19 + P19 * R4_19 ) Q = -0.5D0 * ( B + SIGN( 1.0D0, B ) * SQRT( B * B + 4.0D0 * A * C ) ) YCP( HO2 ) = MAX( Q / A , -C / Q ) c..compute remaining species concentrations YCP( HO ) = ( ( P4 + R4_5 * YCP( HO2 ) ) * L19 + R4_19 * P19 ) * T1 YCP( HNO4 ) = ( P21 + R21_5 * YCP( HO2 ) ) * L21_INV YCP( HONO ) = ( P19 + R19_4 * YCP( HO ) ) / L19 RETURN END ================================================ FILE: CCTM/src/gas/ebi_racm2_ae6_aq/hrg3.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE HRG3( DTC ) C********************************************************************** C C FUNCTION: To solve for the concentration of C2O3 and PAN C C PRECONDITIONS: For the RACM2_AE6_AQ mechanism C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by EBI solver program, Jun 8, 2022 C C 18 Jul 14 B.Hutzell: revised to use real(8) variables C********************************************************************** USE HRDATA IMPLICIT NONE C..INCLUDES: NONE C..ARGUMENTS: REAL( 8 ), INTENT( IN ) :: DTC ! Time step C..PARAMETERS: NONE C..EXTERNAL FUNCTIONS: NONE C..SAVED LOCAL VARIABLES: ! CHARACTER( 16 ), SAVE :: PNAME = 'HRG3' ! Program name C..SCRATCH LOCAL VARIABLES: REAL( 8 ) :: A, B, C, Q ! Quadratic equation terms REAL( 8 ) :: CMN ! Temp scalar REAL( 8 ) :: L8 ! Loss of CCO_O2 REAL( 8 ) :: L9 ! Loss of PAN REAL( 8 ) :: P8 ! Production of CCO_O2 REAL( 8 ) :: K8_8 ! Kaco3+aco3 * delta t REAL( 8 ) :: R8_9 ! Kpan-->aco3 * delta t REAL( 8 ) :: R9_8 ! Kaco3+no2-->pan * [NO2] * delta t C********************************************************************** c..Production of ACO3 (except from PAN ) P8 = RXRAT( 14 ) ! ACT=ACO3+MO2 & + 7.8400D-01 * RXRAT( 15 ) ! UALD=0.7840D+00*ACO3+... & + RXRAT( 16 ) ! MEK=ACO3+0.5000D+00*ETHP+... & + RXRAT( 17 ) ! KET=ACO3+ETHP & + RXRAT( 18 ) ! HKET=ACO3+HO2+HCHO & + 6.7000D-01 * RXRAT( 19 ) ! MACR=0.6700D+00*ACO3+... & + RXRAT( 24 ) ! MGLY=ACO3+HO2+CO & + 2.5000D-01 * RXRAT( 25 ) ! DCB1=0.2500D+00*ACO3+... & + 2.5000D-01 * RXRAT( 26 ) ! DCB2=0.2500D+00*ACO3+... & + RXRAT( 90 ) ! ACD+HO=ACO3 & + 3.1300D-01 * RXRAT( 98 ) ! UALD+HO=0.3130D+00*ACO3+... & + RXRAT( 100 ) ! MGLY+HO=ACO3+CO & + 6.5000D-01 * RXRAT( 119 ) ! PAA+HO=0.6500D+00*ACO3+... & + 9.0000D-02 * RXRAT( 128 ) ! OLI+O3=0.9000D-01*ACO3+... & + 1.5000D-01 * RXRAT( 129 ) ! DIEN+O3=0.1500D+00*ACO3+... & + 1.0000D-01 * RXRAT( 130 ) ! ISO+O3=0.1000D+00*ACO3+... & + 1.0000D-01 * RXRAT( 133 ) ! MACR+O3=0.1000D+00*ACO3+... & + 2.8000D-01 * RXRAT( 134 ) ! MVK+O3=0.2800D+00*ACO3+... & + 2.0000D-03 * RXRAT( 135 ) ! UALD+O3=0.2000D-02*ACO3+... & + RXRAT( 149 ) ! ACD+NO3=ACO3+HNO3 & + RXRAT( 154 ) ! MGLY+NO3=ACO3+CO+HNO3 & + RXRAT( 193 ) ! ACTP+NO=ACO3+NO2+HCHO & + 2.3000D-01 * RXRAT( 195 ) ! KETP+NO=0.2300D+00*ACO3+... & + 3.5000D-01 * RXRAT( 196 ) ! MACP+NO=0.3500D+00*ACO3+... & + 7.0000D-01 * RXRAT( 198 ) ! MVKP+NO=0.7000D+00*ACO3+... & + 1.5000D-01 * RXRAT( 233 ) ! ACTP+HO2=0.1500D+00*ACO3+... & + 5.0000D-01 * RXRAT( 269 ) ! ACTP+MO2=0.5000D+00*ACO3+... & + 2.6900D-01 * RXRAT( 272 ) ! MACP+MO2=0.2690D+00*ACO3+... & + 1.1600D+00 * RXRAT( 274 ) ! MVKP+MO2=0.1160D+01*ACO3+... & + 1.6000D-01 * RXRAT( 310 ) ! MVKP+ACO3=0.1160D+01*ACO3+... & + RXRAT( 343 ) ! ACTP+NO3=ACO3+NO2+HCHO & + 5.3800D-01 * RXRAT( 346 ) ! MACP+NO3=0.5380D+00*ACO3+... & + 7.0000D-01 * RXRAT( 348 ) ! MVKP+NO3=0.7000D+00*ACO3+... c..Loss frequency of ACO3 ( not including ACO3 + ACO3 ) L8 = RKI( 166 ) * YC ( NO2 ) ! ACO3+NO2=PAN & + RKI( 191 ) * YC ( NO ) ! ACO3+NO=MO2+NO2 & + RKI( 231 ) * YC ( HO2 ) ! ACO3+HO2=0.4400D+... & + RKI( 267 ) * YC ( MO2 ) ! ACO3+MO2=0.9000D+... & + RKI( 285 ) * YC ( ETHP ) ! ACO3+ETHP=... & + RKI( 286 ) * YC ( HC3P ) ! ACO3+HC3P=... & + RKI( 287 ) * YC ( HC5P ) ! ACO3+HC5P=... & + RKI( 288 ) * YC ( HC8P ) ! ACO3+HC8P=... & + RKI( 289 ) * YC ( ETEP ) ! ACO3+ETEP=... & + RKI( 290 ) * YC ( OLTP ) ! ACO3+OLTP=... & + RKI( 291 ) * YC ( OLIP ) ! ACO3+OLIP=... & + RKI( 292 ) * YC ( BENP ) ! ACO3+BENP=... & + RKI( 293 ) * YC ( TLP1 ) ! ACO3+TLP1=MO2+BALD & + RKI( 294 ) * YC ( TOLP ) ! ACO3+TOLP=HO2+... & + RKI( 295 ) * YC ( PER1 ) ! ACO3+PER1=HO2+... & + RKI( 296 ) * YC ( XYL1 ) ! ACO3+XYL1=MO2+BALD & + RKI( 297 ) * YC ( XYLP ) ! ACO3+XYLP=HO2+... & + RKI( 298 ) * YC ( PER2 ) ! ACO3+PER2=HO2+... & + RKI( 299 ) * YC ( XYOP ) ! ACO3+XYOP=HO2+... & + RKI( 300 ) * YC ( ISOP ) ! ACO3+ISOP=... & + RKI( 301 ) * YC ( APIP ) ! ACO3+APIP=... & + RKI( 302 ) * YC ( LIMP ) ! ACO3+LIMP=... & + RKI( 304 ) * YC ( RCO3 ) ! ACO3+RCO3=MO2+ETHP & + 5.0000D-01 * RKI( 305 ) * YC ( ACTP ) ! ACO3+ACTP=... & + RKI( 306 ) * YC ( MEKP ) ! ACO3+MEKP=... & + RKI( 307 ) * YC ( KETP ) ! ACO3+KETP=... & + 7.3100D-01 * RKI( 308 ) * YC ( MACP ) ! ACO3+MACP=... & + RKI( 309 ) * YC ( MCP ) ! ACO3+MCP=NO2+... & + RKI( 311 ) * YC ( UALP ) ! ACO3+UALP=... & + RKI( 312 ) * YC ( BALP ) ! ACO3+BALP=MO2+BAL1 & + RKI( 313 ) * YC ( BAL1 ) ! ACO3+BAL1=MO2+BAL2 & + RKI( 314 ) * YC ( ADDC ) ! ACO3+ADDC=... & + RKI( 315 ) * YC ( MCTP ) ! ACO3+MCTP=HO2+... & + RKI( 316 ) * YC ( ORAP ) ! ACO3+ORAP=MO2+GLY & + RKI( 317 ) * YC ( OLNN ) ! ACO3+OLNN=HO2+... & + RKI( 318 ) * YC ( OLND ) ! ACO3+OLND=... & + RKI( 319 ) * YC ( ADCN ) ! ACO3+ADCN=HO2+... & + RKI( 320 ) * YC ( XO2 ) ! ACO3+XO2=MO2 & + RKI( 341 ) * YC ( NO3 ) ! ACO3+NO3=MO2+NO2 c..Loss frequency of PAN L9 = RKI( 32 ) ! PAN=ACO3+NO2 & + RKI( 33 ) ! PAN=MO2+NO3 & + RKI( 120 ) * YC ( HO ) ! PAN+HO=XO2+NO3+HCHO & + RKI( 167 ) ! PAN=ACO3+NO2 c..K8_8, R8_9, and R9_8 terms K8_8 = RKI( 303 ) * DTC R8_9 = ( RKI( 32 ) & + RKI( 167 ) ) * DTC R9_8 = ( RKI( 166 ) * YC( NO2 ) ) * DTC c..Solution of quadratic equation to get ACO3 & PAN CMN = 1.0 + L9 * DTC A = 2.0D0 * K8_8 * CMN B = CMN * ( 1.0D0 + L8 * DTC ) - R8_9 * R9_8 C = CMN * ( YC0( ACO3 ) + P8 * DTC ) + R8_9 * YC0( PAN ) Q = -0.5D0 * ( B + SIGN( 1.0D0, B ) * SQRT( B * B + 4.0D0 * A * C ) ) YCP( ACO3 ) = MAX( Q / A , -C / Q ) YCP( PAN ) = ( YC0( PAN ) + R9_8 * YCP( ACO3 ) ) / CMN RETURN END ================================================ FILE: CCTM/src/gas/ebi_racm2_ae6_aq/hrg4.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE HRG4( DTC ) C********************************************************************** C C FUNCTION: To solve for the concentration of NO3 and N2O5 C C PRECONDITIONS: For the RACM2_AE6_AQ mechanism C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by EBI solver program, Jun 8, 2022 C C 18 Jul 14 B.Hutzell: revised to use real(8) variables C********************************************************************** USE HRDATA IMPLICIT NONE C..INCLUDES: NONE C..ARGUMENTS: REAL( 8 ), INTENT( IN ) :: DTC ! Time step C..PARAMETERS: NONE C..EXTERNAL FUNCTIONS: NONE C..SAVED LOCAL VARIABLES: ! CHARACTER( 16 ), SAVE :: PNAME = 'HRG4' ! Program name C..SCRATCH LOCAL VARIABLES: REAL( 8 ) :: A, B, C, Q ! Quadratic equation terms REAL( 8 ) :: CMN ! Temp scalar REAL( 8 ) :: L15 ! Loss of NO3 REAL( 8 ) :: L16 ! Loss of N2O5 REAL( 8 ) :: P15 ! Production of NO3 REAL( 8 ) :: K15_15 ! Kno3+no3 * delta t REAL( 8 ) :: R15_16 ! Kn2o5-->no3 * delta t REAL( 8 ) :: R16_15 ! Kno3+no2-->n2o5[NO2] * delta t C********************************************************************** c..Production of NO3 (except from N2O5 ) P15 = 2.0000D-01 * RKI( 9 ) * YC ( HNO4 ) ! HNO4=0.2000D+00*NO3+... & + RKI( 33 ) * YC ( PAN ) ! PAN=NO3+MO2 & + RKI( 37 ) * YCP( O3 ) * YCP( NO2 ) ! O3+NO2=NO3 & + RKI( 55 ) * YCP( NO2 ) * YCP( O3P ) ! NO2+O3P=NO3 & + RKI( 57 ) * YC ( HNO3 ) * YCP( HO ) ! HNO3+HO=NO3 & + RKI( 120 ) * YC ( PAN ) * YCP( HO ) ! PAN+HO=NO3+XO2+HCHO & + RKI( 121 ) * YC ( PPN ) * YCP( HO ) ! PPN+HO=NO3+XO2+HCHO c..Loss frequency of NO3 ( except NO3 + NO3 if present ) L15 = RKI( 5 ) ! NO3=NO & + RKI( 6 ) ! NO3=O3P+NO2 & + RKI( 58 ) * YCP( HO ) ! NO3+HO=HO2+NO2 & + RKI( 59 ) * YCP( HO2 ) ! NO3+HO2=0.7000D+... & + RKI( 60 ) * YCP( NO ) ! NO3+NO=0.2000D+... & + RKI( 61 ) * YCP( NO2 ) ! NO3+NO2=NO+NO2 & + RKI( 63 ) * YCP( NO2 ) ! NO3+NO2=N2O5 & + RKI( 141 ) * YC ( ETE ) ! NO3+ETE=0.8000D+... & + RKI( 142 ) * YC ( OLT ) ! NO3+OLT=0.4300D+... & + RKI( 143 ) * YC ( OLI ) ! NO3+OLI=0.1100D+... & + RKI( 144 ) * YC ( DIEN ) ! NO3+DIEN=0.9000D+... & + RKI( 145 ) * YC ( ISO ) ! NO3+ISO=ISON+ISOPRXN & + RKI( 146 ) * YC ( API ) ! NO3+API=0.1000D+... & + RKI( 147 ) * YC ( LIM ) ! NO3+LIM=0.7100D+... & + RKI( 148 ) * YC ( HCHO ) ! NO3+HCHO=HO2+CO+HNO3 & + RKI( 149 ) * YC ( ACD ) ! NO3+ACD=ACO3+HNO3 & + RKI( 150 ) * YC ( ALD ) ! NO3+ALD=RCO3+HNO3 & + RKI( 151 ) * YC ( MACR ) ! NO3+MACR=0.6800D+... & + RKI( 152 ) * YC ( UALD ) ! NO3+UALD=HO2+XO2+... & + RKI( 153 ) * YC ( GLY ) ! NO3+GLY=HO2+... & + RKI( 154 ) * YC ( MGLY ) ! NO3+MGLY=ACO3+CO+... & + RKI( 155 ) * YC ( PHEN ) ! NO3+PHEN=0.4000D+... & + RKI( 156 ) * YC ( CSL ) ! NO3+CSL=0.4000D+... & + RKI( 157 ) * YC ( EPX ) ! NO3+EPX=0.5000D+... & + RKI( 158 ) * YC ( MCT ) ! NO3+MCT=MCTO+HNO3 & + RKI( 159 ) * YC ( MPAN ) ! NO3+MPAN=MACP+NO2 & + RKI( 322 ) * YC ( MO2 ) ! NO3+MO2=HO2+HCHO+NO2 & + RKI( 323 ) * YC ( ETHP ) ! NO3+ETHP=HO2+NO2+ACD & + RKI( 324 ) * YC ( HC3P ) ! NO3+HC3P=0.2540D+... & + RKI( 325 ) * YC ( HC5P ) ! NO3+HC5P=0.4880D+... & + RKI( 326 ) * YC ( HC8P ) ! NO3+HC8P=0.8200D+... & + RKI( 327 ) * YC ( ETEP ) ! NO3+ETEP=HO2+NO2+... & + RKI( 328 ) * YC ( OLTP ) ! NO3+OLTP=0.4700D+... & + RKI( 329 ) * YC ( OLIP ) ! NO3+OLIP=0.8600D+... & + RKI( 330 ) * YC ( BENP ) ! NO3+BENP=HO2+NO2+... & + RKI( 331 ) * YC ( TLP1 ) ! NO3+TLP1=NO2+BALD & + RKI( 332 ) * YC ( TOLP ) ! NO3+TOLP=HO2+NO2+... & + RKI( 333 ) * YC ( PER1 ) ! NO3+PER1=0.5000D+... & + RKI( 334 ) * YC ( XYL1 ) ! NO3+XYL1=NO2+BALD & + RKI( 335 ) * YC ( XYLP ) ! NO3+XYLP=HO2+NO2+... & + RKI( 336 ) * YC ( PER2 ) ! NO3+PER2=HO2+NO2+... & + RKI( 337 ) * YC ( XYOP ) ! NO3+XYOP=HO2+NO2+... & + RKI( 338 ) * YC ( ISOP ) ! NO3+ISOP=HO2+NO2+... & + RKI( 339 ) * YC ( APIP ) ! NO3+APIP=HO2+NO2+... & + RKI( 340 ) * YC ( LIMP ) ! NO3+LIMP=HO2+NO2+... & + RKI( 341 ) * YC ( ACO3 ) ! NO3+ACO3=MO2+NO2 & + RKI( 342 ) * YC ( RCO3 ) ! NO3+RCO3=ETHP+NO2 & + RKI( 343 ) * YC ( ACTP ) ! NO3+ACTP=ACO3+... & + RKI( 344 ) * YC ( MEKP ) ! NO3+MEKP=0.6700D+... & + RKI( 345 ) * YC ( KETP ) ! NO3+KETP=HO2+NO2+... & + RKI( 346 ) * YC ( MACP ) ! NO3+MACP=HCHO+... & + RKI( 347 ) * YC ( MCP ) ! NO3+MCP=NO2+HO2+... & + RKI( 348 ) * YC ( MVKP ) ! NO3+MVKP=0.3000D+... & + RKI( 349 ) * YC ( UALP ) ! NO3+UALP=HO2+NO2+... & + RKI( 350 ) * YC ( BALP ) ! NO3+BALP=BAL1+NO2 & + RKI( 351 ) * YC ( BAL1 ) ! NO3+BAL1=BAL2+NO2 & + RKI( 352 ) * YC ( ADDC ) ! NO3+ADDC=HO2+NO2+... & + RKI( 353 ) * YC ( MCTP ) ! NO3+MCTP=NO2+MCTO & + RKI( 354 ) * YC ( ORAP ) ! NO3+ORAP=NO2+GLY+HO2 & + RKI( 355 ) * YC ( OLNN ) ! NO3+OLNN=HO2+NO2+... & + RKI( 356 ) * YC ( OLND ) ! NO3+OLND=0.2000D+... & + RKI( 357 ) * YC ( ADCN ) ! NO3+ADCN=0.2000D+... & + RKI( 361 ) * YC ( XO2 ) ! NO3+XO2=NO2 c..Loss frequency of N2O5 L16 = RKI( 64 ) ! N2O5=NO2+NO3 & + RKI( 65 ) ! N2O5=0.2000D+01*HNO3 & + RKI( 378 ) ! N2O5=0.2000D+01*HNO3 c..K15_15, R15_16, and R16_15 terms K15_15 = RKI( 62 ) * DTC R15_16 = ( RKI( 64 ) ) * DTC R16_15 = RKI( 63 ) * YCP( NO2 ) * DTC c..Solution of quadratic equation to get NO3 & N2O5 CMN = 1.0D0 + L16 * DTC A = 2.0D0 * K15_15 * CMN B = CMN * ( 1.0D0 + L15 * DTC ) - R15_16 * R16_15 C = CMN * ( YC0( NO3 ) + P15 * DTC ) + R15_16 * YC0( N2O5 ) Q = -0.5D0 * ( B + SIGN( 1.0D0, B ) * SQRT( B * B + 4.0D0 * A * C ) ) YCP( NO3 ) = MAX( Q / A , -C / Q ) YCP( N2O5 ) = ( YC0( N2O5 ) + R16_15 * YCP( NO3 ) ) / CMN RETURN END ================================================ FILE: CCTM/src/gas/ebi_racm2_ae6_aq/hrinit.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE HRINIT C*********************************************************************** C C FUNCTION: To initialize species tolerances, arrays, and indices C C PRECONDITIONS: For the RACM2_AE6_AQ mechanism C C RETURN VALUES: None C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by EBI solver program, Jun 8, 2022 C 21 Jun 10 J.Young: convert for Namelist redesign C 18 Jul 14 B.Hutzell: revised to use the RXNS_DATA and RXNS_FUNCTION C modules instead of include files C*********************************************************************** USE UTILIO_DEFN USE HRDATA USE RXNS_DATA USE RXNS_FUNCTION IMPLICIT NONE C.....INCLUDES: Include SUBST_CONST ! common constants C.....ARGUMENTS: NONE C.....PARAMETERS: NONE C.....SAVED VARIABLES: CHARACTER( 16 ), SAVE :: PNAME = 'HRINIT' ! Program name C.....LOCAL VARIABLES: CHARACTER( 132 ) :: MSG ! Log message INTEGER N ! Loop index INTEGER IOS ! Allocate error status C*********************************************************************** N_SPEC = NUMB_MECH_SPC N_RXNS = NRXNS N_SPCL_RKS = 0 ALLOCATE( RKI( NRXNS ), & RKI_SAV( MAX_CELLS_EBI, NRXNS ), & FORWARD_CONV( NUMB_MECH_SPC), & REVERSE_CONV( NUMB_MECH_SPC), & RXRAT( NRXNS ), & RTOL( NUMB_MECH_SPC), & YC( NUMB_MECH_SPC), & YC0( NUMB_MECH_SPC), & YCP( NUMB_MECH_SPC), & PROD( NUMB_MECH_SPC), & LOSS( NUMB_MECH_SPC), & STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating RKI, RXRAT, RTOL, YC, YC0, YCP, FORWARD_CONV, ' & // 'REVERSE_CONV, PROD, LOSS, or PNEG' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF ALLOCATE( ATMPRES( MAX_CELLS_EBI ), & H2O ( MAX_CELLS_EBI ), & TEMP ( MAX_CELLS_EBI ), & DENSITY( MAX_CELLS_EBI ), & HET ( MAX_CELLS_EBI, NHETERO ), & RJIN ( MAX_CELLS_EBI, NPHOTAB ), & SEAWATER ( MAX_CELLS_EBI ) , & STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating ATMPRES, H2O, TEMP, HET, RJIN, SEAWATER ' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF IF( NSPECIAL .GT. 0 )THEN ALLOCATE( SYC( MAX_CELLS_EBI, NUMB_MECH_SPC ), STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating SYC' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF ALLOCATE( IOLD2NEW( NUMB_MECH_SPC, 1 ), STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating IOLD2NEW' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF DO N = 1, NUMB_MECH_SPC IOLD2NEW( N, 1 ) = N END DO END IF IF( .NOT. MAP_CHEMISTRY_SPECIES() )THEN MSG = 'Detected above error(s) when mapping Chemistry species from CGRID species' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT2 ) END IF DO N = 1, NUMB_MECH_SPC FORWARD_CONV( N ) = 1.0E-3 * MWAIR / SPECIES_MOLWT( N ) REVERSE_CONV( N ) = 1.0E+3 / MWAIR * SPECIES_MOLWT( N ) END DO ! initialize all reaction rates to zero so unused array elements are defined RXRAT = 0.0D0 ! initialize all production and loss rates to zero so unused array elements are defined PROD = 0.0D0 LOSS = 0.0D0 NING1 = 4 NING2 = 4 ALLOCATE( YCCELL( MODEL_SPECIES), STAT = IOS ) ! array for degradation routines IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating YCCELL ' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF c..Allocate and define ebi species N_EBISP = 155 ALLOCATE( EBISP( N_EBISP ), STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating EBISP' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF EBISP( 1 ) = H2O2 EBISP( 2 ) = HNO3 EBISP( 3 ) = HCHO EBISP( 4 ) = CO EBISP( 5 ) = ACD EBISP( 6 ) = MO2 EBISP( 7 ) = ALD EBISP( 8 ) = ETHP EBISP( 9 ) = ACT EBISP( 10 ) = UALD EBISP( 11 ) = KET EBISP( 12 ) = MEK EBISP( 13 ) = HKET EBISP( 14 ) = MACR EBISP( 15 ) = MACP EBISP( 16 ) = XO2 EBISP( 17 ) = MVK EBISP( 18 ) = GLY EBISP( 19 ) = MGLY EBISP( 20 ) = DCB1 EBISP( 21 ) = DCB2 EBISP( 22 ) = BALD EBISP( 23 ) = CHO EBISP( 24 ) = OP1 EBISP( 25 ) = OP2 EBISP( 26 ) = PAA EBISP( 27 ) = ONIT EBISP( 28 ) = SO2 EBISP( 29 ) = SULF EBISP( 30 ) = SULRXN EBISP( 31 ) = ETH EBISP( 32 ) = HC3 EBISP( 33 ) = HC3P EBISP( 34 ) = HC5 EBISP( 35 ) = HC5P EBISP( 36 ) = HC8 EBISP( 37 ) = HC8P EBISP( 38 ) = ETE EBISP( 39 ) = ETEP EBISP( 40 ) = OLT EBISP( 41 ) = OLTP EBISP( 42 ) = OLI EBISP( 43 ) = OLIP EBISP( 44 ) = DIEN EBISP( 45 ) = ACE EBISP( 46 ) = ORA1 EBISP( 47 ) = BENZENE EBISP( 48 ) = BENP EBISP( 49 ) = EPX EBISP( 50 ) = PHEN EBISP( 51 ) = BENZRO2 EBISP( 52 ) = TOL EBISP( 53 ) = TR2 EBISP( 54 ) = TLP1 EBISP( 55 ) = CSL EBISP( 56 ) = TOLRO2 EBISP( 57 ) = XYM EBISP( 58 ) = XY2 EBISP( 59 ) = XYL1 EBISP( 60 ) = XYLRO2 EBISP( 61 ) = XYP EBISP( 62 ) = XYO EBISP( 63 ) = XYO2 EBISP( 64 ) = ISO EBISP( 65 ) = ISOP EBISP( 66 ) = ISOPRXN EBISP( 67 ) = API EBISP( 68 ) = APIP EBISP( 69 ) = TRPRXN EBISP( 70 ) = LIM EBISP( 71 ) = LIMP EBISP( 72 ) = RCO3 EBISP( 73 ) = ACTP EBISP( 74 ) = MEKP EBISP( 75 ) = KETP EBISP( 76 ) = MCP EBISP( 77 ) = MVKP EBISP( 78 ) = UALP EBISP( 79 ) = DCB3 EBISP( 80 ) = BALP EBISP( 81 ) = ADDC EBISP( 82 ) = MCT EBISP( 83 ) = MCTO EBISP( 84 ) = MOH EBISP( 85 ) = EOH EBISP( 86 ) = ROH EBISP( 87 ) = ETEG EBISP( 88 ) = ISHP EBISP( 89 ) = IEPOX EBISP( 90 ) = MAHP EBISP( 91 ) = ORA2 EBISP( 92 ) = ORAP EBISP( 93 ) = PPN EBISP( 94 ) = MPAN EBISP( 95 ) = NALD EBISP( 96 ) = ISON EBISP( 97 ) = MCTP EBISP( 98 ) = OLNN EBISP( 99 ) = OLND EBISP( 100 ) = ADCN EBISP( 101 ) = TOLP EBISP( 102 ) = PER1 EBISP( 103 ) = XYLP EBISP( 104 ) = PER2 EBISP( 105 ) = XYOP EBISP( 106 ) = BAL1 EBISP( 107 ) = BAL2 EBISP( 108 ) = TOLNRXN EBISP( 109 ) = TOLHRXN EBISP( 110 ) = XYLNRXN EBISP( 111 ) = XYLHRXN EBISP( 112 ) = BNZNRXN EBISP( 113 ) = BNZHRXN EBISP( 114 ) = SESQ EBISP( 115 ) = SESQRXN EBISP( 116 ) = NAPH EBISP( 117 ) = PAHRO2 EBISP( 118 ) = PAHNRXN EBISP( 119 ) = PAHHRXN EBISP( 120 ) = SOAALK EBISP( 121 ) = ALKRXN EBISP( 122 ) = AISO3J EBISP( 123 ) = AXYL1J EBISP( 124 ) = AOLGAJ EBISP( 125 ) = AXYL2J EBISP( 126 ) = ATOL1J EBISP( 127 ) = ATOL2J EBISP( 128 ) = ABNZ1J EBISP( 129 ) = ABNZ2J EBISP( 130 ) = ATRP1J EBISP( 131 ) = AOLGBJ EBISP( 132 ) = ATRP2J EBISP( 133 ) = AISO1J EBISP( 134 ) = AISO2J EBISP( 135 ) = ASQTJ EBISP( 136 ) = APAH1J EBISP( 137 ) = APAH2J EBISP( 138 ) = AALK1J EBISP( 139 ) = AALK2J EBISP( 140 ) = APOCI EBISP( 141 ) = APNCOMI EBISP( 142 ) = APOCJ EBISP( 143 ) = APNCOMJ EBISP( 144 ) = PCVOC EBISP( 145 ) = PCSOARXN EBISP( 146 ) = VLVPO1 EBISP( 147 ) = VSVPO1 EBISP( 148 ) = VSVPO2 EBISP( 149 ) = VSVPO3 EBISP( 150 ) = VIVPO1 EBISP( 151 ) = VLVOO1 EBISP( 152 ) = VLVOO2 EBISP( 153 ) = VSVOO2 EBISP( 154 ) = VSVOO3 EBISP( 155 ) = VSVOO1 cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Set species tolerances cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc RTOL( O3 ) = 5.0D-04 RTOL( O3P ) = 1.0D+00 RTOL( O1D ) = 1.0D+00 RTOL( H2O2 ) = 5.0D-04 RTOL( HO ) = 5.0D-04 RTOL( NO2 ) = 5.0D-04 RTOL( NO ) = 5.0D-04 RTOL( NO3 ) = 5.0D-04 RTOL( HONO ) = 5.0D-04 RTOL( HNO3 ) = 5.0D-04 RTOL( HNO4 ) = 5.0D-04 RTOL( HO2 ) = 5.0D-04 RTOL( HCHO ) = 5.0D-04 RTOL( CO ) = 5.0D-04 RTOL( ACD ) = 5.0D-04 RTOL( MO2 ) = 5.0D-04 RTOL( ALD ) = 5.0D-04 RTOL( ETHP ) = 5.0D-04 RTOL( ACT ) = 5.0D-04 RTOL( ACO3 ) = 5.0D-04 RTOL( UALD ) = 5.0D-04 RTOL( KET ) = 5.0D-04 RTOL( MEK ) = 5.0D-04 RTOL( HKET ) = 5.0D-04 RTOL( MACR ) = 5.0D-04 RTOL( MACP ) = 5.0D-04 RTOL( XO2 ) = 5.0D-04 RTOL( MVK ) = 5.0D-04 RTOL( GLY ) = 5.0D-04 RTOL( MGLY ) = 5.0D-04 RTOL( DCB1 ) = 5.0D-04 RTOL( DCB2 ) = 5.0D-04 RTOL( BALD ) = 5.0D-04 RTOL( CHO ) = 5.0D-04 RTOL( OP1 ) = 5.0D-04 RTOL( OP2 ) = 5.0D-04 RTOL( PAA ) = 5.0D-04 RTOL( ONIT ) = 5.0D-04 RTOL( PAN ) = 5.0D-04 RTOL( N2O5 ) = 5.0D-04 RTOL( SO2 ) = 5.0D-04 RTOL( SULF ) = 1.0D+00 RTOL( SULRXN ) = 1.0D+00 RTOL( ETH ) = 5.0D-04 RTOL( HC3 ) = 5.0D-04 RTOL( HC3P ) = 5.0D-04 RTOL( HC5 ) = 5.0D-04 RTOL( HC5P ) = 5.0D-04 RTOL( HC8 ) = 5.0D-04 RTOL( HC8P ) = 5.0D-04 RTOL( ETE ) = 5.0D-04 RTOL( ETEP ) = 5.0D-04 RTOL( OLT ) = 5.0D-04 RTOL( OLTP ) = 5.0D-04 RTOL( OLI ) = 5.0D-04 RTOL( OLIP ) = 5.0D-04 RTOL( DIEN ) = 5.0D-04 RTOL( ACE ) = 5.0D-04 RTOL( ORA1 ) = 5.0D-04 RTOL( BENZENE ) = 5.0D-04 RTOL( BENP ) = 5.0D-04 RTOL( EPX ) = 5.0D-04 RTOL( PHEN ) = 5.0D-04 RTOL( BENZRO2 ) = 5.0D-04 RTOL( TOL ) = 5.0D-04 RTOL( TR2 ) = 5.0D-04 RTOL( TLP1 ) = 5.0D-04 RTOL( CSL ) = 5.0D-04 RTOL( TOLRO2 ) = 5.0D-04 RTOL( XYM ) = 5.0D-04 RTOL( XY2 ) = 5.0D-04 RTOL( XYL1 ) = 5.0D-04 RTOL( XYLRO2 ) = 5.0D-04 RTOL( XYP ) = 5.0D-04 RTOL( XYO ) = 5.0D-04 RTOL( XYO2 ) = 5.0D-04 RTOL( ISO ) = 5.0D-04 RTOL( ISOP ) = 5.0D-04 RTOL( ISOPRXN ) = 1.0D+00 RTOL( API ) = 5.0D-04 RTOL( APIP ) = 5.0D-04 RTOL( TRPRXN ) = 1.0D+00 RTOL( LIM ) = 5.0D-04 RTOL( LIMP ) = 5.0D-04 RTOL( RCO3 ) = 5.0D-04 RTOL( ACTP ) = 5.0D-04 RTOL( MEKP ) = 5.0D-04 RTOL( KETP ) = 5.0D-04 RTOL( MCP ) = 5.0D-04 RTOL( MVKP ) = 5.0D-04 RTOL( UALP ) = 5.0D-04 RTOL( DCB3 ) = 5.0D-04 RTOL( BALP ) = 5.0D-04 RTOL( ADDC ) = 5.0D-04 RTOL( MCT ) = 5.0D-04 RTOL( MCTO ) = 5.0D-04 RTOL( MOH ) = 5.0D-04 RTOL( EOH ) = 5.0D-04 RTOL( ROH ) = 5.0D-04 RTOL( ETEG ) = 5.0D-04 RTOL( ISHP ) = 5.0D-04 RTOL( IEPOX ) = 5.0D-04 RTOL( MAHP ) = 5.0D-04 RTOL( ORA2 ) = 5.0D-04 RTOL( ORAP ) = 5.0D-04 RTOL( PPN ) = 5.0D-04 RTOL( MPAN ) = 5.0D-04 RTOL( NALD ) = 5.0D-04 RTOL( ISON ) = 5.0D-04 RTOL( MCTP ) = 5.0D-04 RTOL( OLNN ) = 5.0D-04 RTOL( OLND ) = 5.0D-04 RTOL( ADCN ) = 5.0D-04 RTOL( TOLP ) = 5.0D-04 RTOL( PER1 ) = 5.0D-04 RTOL( XYLP ) = 5.0D-04 RTOL( PER2 ) = 5.0D-04 RTOL( XYOP ) = 5.0D-04 RTOL( BAL1 ) = 5.0D-04 RTOL( BAL2 ) = 5.0D-04 RTOL( TOLNRXN ) = 1.0D+00 RTOL( TOLHRXN ) = 1.0D+00 RTOL( XYLNRXN ) = 1.0D+00 RTOL( XYLHRXN ) = 1.0D+00 RTOL( BNZNRXN ) = 1.0D+00 RTOL( BNZHRXN ) = 1.0D+00 RTOL( SESQ ) = 5.0D-04 RTOL( SESQRXN ) = 1.0D+00 RTOL( NAPH ) = 5.0D-04 RTOL( PAHRO2 ) = 1.0D+00 RTOL( PAHNRXN ) = 1.0D+00 RTOL( PAHHRXN ) = 1.0D+00 RTOL( SOAALK ) = 5.0D-04 RTOL( ALKRXN ) = 1.0D+00 RTOL( AISO3J ) = 5.0D-04 RTOL( AXYL1J ) = 5.0D-04 RTOL( AOLGAJ ) = 5.0D-04 RTOL( AXYL2J ) = 5.0D-04 RTOL( ATOL1J ) = 5.0D-04 RTOL( ATOL2J ) = 5.0D-04 RTOL( ABNZ1J ) = 5.0D-04 RTOL( ABNZ2J ) = 5.0D-04 RTOL( ATRP1J ) = 5.0D-04 RTOL( AOLGBJ ) = 5.0D-04 RTOL( ATRP2J ) = 5.0D-04 RTOL( AISO1J ) = 5.0D-04 RTOL( AISO2J ) = 5.0D-04 RTOL( ASQTJ ) = 5.0D-04 RTOL( APAH1J ) = 5.0D-04 RTOL( APAH2J ) = 5.0D-04 RTOL( AALK1J ) = 5.0D-04 RTOL( AALK2J ) = 5.0D-04 RTOL( APOCI ) = 5.0D-04 RTOL( APNCOMI ) = 5.0D-04 RTOL( APOCJ ) = 5.0D-04 RTOL( APNCOMJ ) = 5.0D-04 RTOL( PCVOC ) = 5.0D-04 RTOL( PCSOARXN ) = 5.0D-04 RTOL( VLVPO1 ) = 5.0D-04 RTOL( VSVPO1 ) = 5.0D-04 RTOL( VSVPO2 ) = 5.0D-04 RTOL( VSVPO3 ) = 5.0D-04 RTOL( VIVPO1 ) = 5.0D-04 RTOL( VLVOO1 ) = 5.0D-04 RTOL( VLVOO2 ) = 5.0D-04 RTOL( VSVOO2 ) = 5.0D-04 RTOL( VSVOO3 ) = 5.0D-04 RTOL( VSVOO1 ) = 5.0D-04 RETURN END ================================================ FILE: CCTM/src/gas/ebi_racm2_ae6_aq/hrprodloss.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE HRPRODLOSS C*********************************************************************** C C FUNCTION: To compute the production and loss rates for EBI species C C PRECONDITIONS: For the RACM2_AE6_AQ mechanism C C RETURN VALUES: None C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by EBI solver program, Jun 8, 2022 C C 18 Jul 14 B.Hutzell: revised to use real(8) variables C*********************************************************************** USE HRDATA IMPLICIT NONE C.....INCLUDES: NONE C.....ARGUMENTS: NONE C.....PARAMETERS: NONE C.....EXTERNAL FUNCTIONS: NONE C.....SAVED VARIABLES: NONE ! CHARACTER( 16 ), SAVE :: PNAME = 'HRPRODLOSS' ! Program name C.....LOCAL VARIABLES: C*********************************************************************** PROD( H2O2 ) = RXRAT( 45 ) ! HO2+HO2=H2O2 & + RXRAT( 46 ) ! HO2+HO2=H2O2 & + 6.8000D-02 * RXRAT( 127 ) ! OLT+O3=0.6800D-01*H2O2+... & + 2.6000D-02 * RXRAT( 128 ) ! OLI+O3=0.2600D-01*H2O2+... & + 1.0000D-03 * RXRAT( 129 ) ! DIEN+O3=0.1000D-02*H2O2+... & + 9.0000D-02 * RXRAT( 130 ) ! ISO+O3=0.9000D-01*H2O2+... & + 2.0000D-02 * RXRAT( 131 ) ! API+O3=0.2000D-01*H2O2+... & + 2.0000D-02 * RXRAT( 132 ) ! LIM+O3=0.2000D-01*H2O2+... LOSS( H2O2 ) = RXRAT( 3 ) ! H2O2=0.2000D+01*HO & + RXRAT( 47 ) ! H2O2+HO=HO2 PROD( HNO3 ) = RXRAT( 51 ) ! NO+HO2=HNO3 & + RXRAT( 56 ) ! NO2+HO=HNO3 & + 3.0000D-01 * RXRAT( 59 ) ! NO3+HO2=0.3000D+00*HNO3+... & + 2.0000D+00 * RXRAT( 65 ) ! N2O5=0.2000D+01*HNO3 & + RXRAT( 148 ) ! HCHO+NO3=HNO3+CO+HO2 & + RXRAT( 149 ) ! ACD+NO3=HNO3+ACO3 & + RXRAT( 150 ) ! ALD+NO3=HNO3+RCO3 & + 3.2000D-01 * RXRAT( 151 ) ! MACR+NO3=0.3200D+00*HNO3+... & + RXRAT( 153 ) ! GLY+NO3=HNO3+0.2000D+01*CO+HO2 & + RXRAT( 154 ) ! MGLY+NO3=HNO3+CO+ACO3 & + 5.0000D-01 * RXRAT( 155 ) ! PHEN+NO3=0.5000D+00*HNO3+... & + 5.0000D-01 * RXRAT( 156 ) ! CSL+NO3=0.5000D+00*HNO3+... & + 5.0000D-01 * RXRAT( 157 ) ! EPX+NO3=0.5000D+00*HNO3+... & + RXRAT( 158 ) ! MCT+NO3=HNO3+MCTO & + 2.0000D+00 * RXRAT( 378 ) ! N2O5=0.2000D+01*HNO3 & + 5.0000D-01 * RXRAT( 379 ) ! NO2=0.5000D+00*HNO3+... LOSS( HNO3 ) = RXRAT( 8 ) ! HNO3=HO+NO2 & + RXRAT( 57 ) ! HNO3+HO=NO3 PROD( HCHO ) = 3.5000D-01 * RXRAT( 15 ) ! UALD=0.3500D+00*HCHO+... & + RXRAT( 18 ) ! HKET=HCHO+ACO3+HO2 & + 6.7000D-01 * RXRAT( 19 ) ! MACR=0.6700D+00*HCHO+... & + RXRAT( 22 ) ! GLY=HCHO+CO & + RXRAT( 28 ) ! OP1=HCHO+HO2+HO & + RXRAT( 109 ) ! MOH+HO=HCHO+HO2 & + 3.5000D-01 * RXRAT( 113 ) ! OP1+HO=0.3500D+00*HCHO+... & + 3.5000D-01 * RXRAT( 119 ) ! PAA+HO=0.3500D+00*HCHO+... & + RXRAT( 120 ) ! PAN+HO=HCHO+NO3+XO2 & + RXRAT( 121 ) ! PPN+HO=HCHO+NO3+XO2 & + 7.0000D-02 * RXRAT( 125 ) ! ISON+HO=0.7000D-01*HCHO+... & + RXRAT( 126 ) ! ETE+O3=HCHO+0.1500D+00*HO2+... & + 5.6000D-01 * RXRAT( 127 ) ! OLT+O3=0.5600D+00*HCHO+... & + 9.0000D-02 * RXRAT( 128 ) ! OLI+O3=0.9000D-01*HCHO+... & + 9.0000D-01 * RXRAT( 129 ) ! DIEN+O3=0.9000D+00*HCHO+... & + 5.8000D-01 * RXRAT( 130 ) ! ISO+O3=0.5800D+00*HCHO+... & + 4.0000D-02 * RXRAT( 132 ) ! LIM+O3=0.4000D-01*HCHO+... & + 1.0000D-01 * RXRAT( 134 ) ! MVK+O3=0.1000D+00*HCHO+... & + 8.0000D-02 * RXRAT( 135 ) ! UALD+O3=0.8000D-01*HCHO+... & + 5.0000D-02 * RXRAT( 136 ) ! DCB1+O3=0.5000D-01*HCHO+... & + 5.0000D-02 * RXRAT( 137 ) ! DCB2+O3=0.5000D-01*HCHO+... & + 6.8000D-01 * RXRAT( 151 ) ! MACR+NO3=0.6800D+00*HCHO+... & + 3.3200D-01 * RXRAT( 152 ) ! UALD+NO3=0.3320D+00*HCHO+... & + RXRAT( 172 ) ! MO2+NO=HCHO+NO2+HO2 & + 1.8000D-02 * RXRAT( 175 ) ! HC5P+NO=0.1800D-01*HCHO+... & + 1.6000D+00 * RXRAT( 177 ) ! ETEP+NO=0.1600D+01*HCHO+... & + 7.8000D-01 * RXRAT( 178 ) ! OLTP+NO=0.7800D+00*HCHO+... & + 2.0000D-01 * RXRAT( 188 ) ! ISOP+NO=0.2000D+00*HCHO+... & + 2.3000D-01 * RXRAT( 189 ) ! APIP+NO=0.2300D+00*HCHO+... & + 4.3000D-01 * RXRAT( 190 ) ! LIMP+NO=0.4300D+00*HCHO+... & + RXRAT( 193 ) ! ACTP+NO=HCHO+NO2+ACO3 & + 3.3000D-01 * RXRAT( 194 ) ! MEKP+NO=0.3300D+00*HCHO+... & + 6.5000D-01 * RXRAT( 196 ) ! MACP+NO=0.6500D+00*HCHO+... & + 5.0000D-01 * RXRAT( 197 ) ! MCP+NO=0.5000D+00*HCHO+... & + 3.0000D-01 * RXRAT( 198 ) ! MVKP+NO=0.3000D+00*HCHO+... & + 3.0000D-02 * RXRAT( 199 ) ! UALP+NO=0.3000D-01*HCHO+... & + 2.8700D-01 * RXRAT( 206 ) ! OLND+NO=0.2870D+00*HCHO+... & + 1.5000D-01 * RXRAT( 233 ) ! ACTP+HO2=0.1500D+00*HCHO+... & + 1.3700D+00 * RXRAT( 248 ) ! MO2+MO2=0.1370D+01*HCHO+... & + 7.5000D-01 * RXRAT( 249 ) ! ETHP+MO2=0.7500D+00*HCHO+... & + 8.2700D-01 * RXRAT( 250 ) ! HC3P+MO2=0.8270D+00*HCHO+... & + 7.7700D-01 * RXRAT( 251 ) ! HC5P+MO2=0.7770D+00*HCHO+... & + 7.5000D-01 * RXRAT( 252 ) ! HC8P+MO2=0.7500D+00*HCHO+... & + 1.9500D+00 * RXRAT( 253 ) ! ETEP+MO2=0.1950D+01*HCHO+... & + 1.5000D+00 * RXRAT( 254 ) ! OLTP+MO2=0.1500D+01*HCHO+... & + 7.5000D-01 * RXRAT( 255 ) ! OLIP+MO2=0.7500D+00*HCHO+... & + RXRAT( 256 ) ! BENP+MO2=HCHO+0.4590D+... & + RXRAT( 257 ) ! TLP1+MO2=HCHO+HO2+BALD & + RXRAT( 258 ) ! TOLP+MO2=HCHO+0.2000D+... & + RXRAT( 259 ) ! PER1+MO2=HCHO+0.2000D+... & + RXRAT( 260 ) ! XYL1+MO2=HCHO+HO2+BALD & + RXRAT( 261 ) ! XYLP+MO2=HCHO+0.2000D+... & + RXRAT( 262 ) ! PER2+MO2=HCHO+0.2000D+... & + RXRAT( 263 ) ! XYOP+MO2=HCHO+0.2000D+... & + 1.3100D+00 * RXRAT( 264 ) ! ISOP+MO2=0.1310D+01*HCHO+... & + 7.5000D-01 * RXRAT( 265 ) ! APIP+MO2=0.7500D+00*HCHO+... & + 1.0400D+00 * RXRAT( 266 ) ! LIMP+MO2=0.1040D+01*HCHO+... & + RXRAT( 267 ) ! ACO3+MO2=HCHO+0.9000D+... & + RXRAT( 268 ) ! RCO3+MO2=HCHO+0.9000D+... & + 1.5000D+00 * RXRAT( 269 ) ! ACTP+MO2=0.1500D+01*HCHO+... & + RXRAT( 270 ) ! MEKP+MO2=HCHO+0.8340D+... & + 7.5000D-01 * RXRAT( 271 ) ! KETP+MO2=0.7500D+00*HCHO+... & + 1.6600D+00 * RXRAT( 272 ) ! MACP+MO2=0.1660D+01*HCHO+... & + 1.5000D+00 * RXRAT( 273 ) ! MCP+MO2=0.1500D+01*HCHO+... & + 1.5000D+00 * RXRAT( 274 ) ! MVKP+MO2=0.1500D+01*HCHO+... & + 7.7300D-01 * RXRAT( 275 ) ! UALP+MO2=0.7730D+00*HCHO+... & + RXRAT( 276 ) ! BALP+MO2=HCHO+BAL1+HO2 & + RXRAT( 277 ) ! BAL1+MO2=HCHO+BAL2+HO2 & + RXRAT( 278 ) ! ADDC+MO2=HCHO+0.2000D+... & + RXRAT( 279 ) ! MCTP+MO2=HCHO+MCTO+HO2 & + RXRAT( 280 ) ! ORAP+MO2=HCHO+HO2+GLY & + RXRAT( 281 ) ! OLNN+MO2=HCHO+0.2000D+... & + 9.6500D-01 * RXRAT( 282 ) ! OLND+MO2=0.9650D+00*HCHO+... & + RXRAT( 283 ) ! ADCN+MO2=HCHO+0.7000D+... & + RXRAT( 284 ) ! XO2+MO2=HCHO+HO2 & + 1.3000D-01 * RXRAT( 286 ) ! HC3P+ACO3=0.1300D+00*HCHO+... & + 4.2000D-02 * RXRAT( 287 ) ! HC5P+ACO3=0.4200D-01*HCHO+... & + 1.6000D+00 * RXRAT( 289 ) ! ETEP+ACO3=0.1600D+01*HCHO+... & + RXRAT( 290 ) ! OLTP+ACO3=HCHO+0.5000D+... & + 1.0480D+00 * RXRAT( 300 ) ! ISOP+ACO3=0.1048D+01*HCHO+... & + 3.8500D-01 * RXRAT( 302 ) ! LIMP+ACO3=0.3850D+00*HCHO+... & + RXRAT( 305 ) ! ACTP+ACO3=HCHO+0.5000D+... & + 3.3000D-01 * RXRAT( 306 ) ! MEKP+ACO3=0.3300D+00*HCHO+... & + RXRAT( 308 ) ! MACP+ACO3=HCHO+0.5000D+... & + RXRAT( 309 ) ! MCP+ACO3=HCHO+0.5000D+... & + RXRAT( 310 ) ! MVKP+ACO3=HCHO+0.5000D+... & + 3.0000D-02 * RXRAT( 311 ) ! UALP+ACO3=0.3000D-01*HCHO+... & + 2.8700D-01 * RXRAT( 318 ) ! OLND+ACO3=0.2870D+00*HCHO+... & + RXRAT( 322 ) ! MO2+NO3=HCHO+HO2+NO2 & + 2.4000D-02 * RXRAT( 325 ) ! HC5P+NO3=0.2400D-01*HCHO+... & + 1.6000D+00 * RXRAT( 327 ) ! ETEP+NO3=0.1600D+01*HCHO+... & + 7.9000D-01 * RXRAT( 328 ) ! OLTP+NO3=0.7900D+00*HCHO+... & + 7.5000D-01 * RXRAT( 338 ) ! ISOP+NO3=0.7500D+00*HCHO+... & + 3.8500D-01 * RXRAT( 340 ) ! LIMP+NO3=0.3850D+00*HCHO+... & + RXRAT( 343 ) ! ACTP+NO3=HCHO+NO2+ACO3 & + 3.3000D-01 * RXRAT( 344 ) ! MEKP+NO3=0.3300D+00*HCHO+... & + RXRAT( 346 ) ! MACP+NO3=HCHO+0.5380D+... & + RXRAT( 347 ) ! MCP+NO3=HCHO+HO2+NO2+HKET & + 3.0000D-01 * RXRAT( 348 ) ! MVKP+NO3=0.3000D+00*HCHO+... & + 3.0000D-02 * RXRAT( 349 ) ! UALP+NO3=0.3000D-01*HCHO+... & + 2.8700D-01 * RXRAT( 356 ) ! OLND+NO3=0.2870D+00*HCHO+... & + 2.0200D-01 * RXRAT( 359 ) ! OLNN+OLND=0.2020D+00*HCHO+... & + 5.0400D-01 * RXRAT( 360 ) ! OLND+OLND=0.5040D+00*HCHO+... LOSS( HCHO ) = RXRAT( 10 ) ! HCHO=CO & + RXRAT( 11 ) ! HCHO=0.2000D+01*HO2+CO & + RXRAT( 89 ) ! HCHO+HO=HO2+CO & + RXRAT( 148 ) ! HCHO+NO3=HO2+CO+HNO3 PROD( CO ) = RXRAT( 10 ) ! HCHO=CO & + RXRAT( 11 ) ! HCHO=CO+0.2000D+01*HO2 & + RXRAT( 12 ) ! ACD=CO+MO2+HO2 & + RXRAT( 13 ) ! ALD=CO+ETHP+HO2 & + 1.2200D+00 * RXRAT( 15 ) ! UALD=0.1220D+01*CO+0.7840D+... & + 6.7000D-01 * RXRAT( 19 ) ! MACR=0.6700D+00*CO+0.6600D+... & + 7.0000D-01 * RXRAT( 20 ) ! MVK=0.7000D+00*CO+0.3000D+... & + 2.0000D+00 * RXRAT( 21 ) ! GLY=0.2000D+01*CO & + RXRAT( 22 ) ! GLY=CO+HCHO & + 2.0000D+00 * RXRAT( 23 ) ! GLY=0.2000D+01*CO+0.2000D+... & + RXRAT( 24 ) ! MGLY=CO+ACO3+HO2 & + RXRAT( 25 ) ! DCB1=CO+0.2500D+00*ACO3+... & + RXRAT( 26 ) ! DCB2=CO+0.2500D+00*ACO3+... & + RXRAT( 27 ) ! BALD=CO+HO2+CHO & + 3.5000D-01 * RXRAT( 80 ) ! ACE+HO=0.3500D+00*CO+... & + RXRAT( 89 ) ! HCHO+HO=CO+HO2 & + 2.0000D+00 * RXRAT( 99 ) ! GLY+HO=0.2000D+01*CO+HO2 & + RXRAT( 100 ) ! MGLY+HO=CO+ACO3 & + 3.3000D-01 * RXRAT( 101 ) ! DCB1+HO=0.3300D+00*CO+... & + 3.3000D-01 * RXRAT( 102 ) ! DCB2+HO=0.3300D+00*CO+... & + 1.1000D-01 * RXRAT( 103 ) ! DCB3+HO=0.1100D+00*CO+... & + RXRAT( 107 ) ! EPX+HO=CO+XO2+HO2+ALD & + 4.3000D-01 * RXRAT( 126 ) ! ETE+O3=0.4300D+00*CO+... & + 4.3000D-01 * RXRAT( 127 ) ! OLT+O3=0.4300D+00*CO+... & + 3.7000D-01 * RXRAT( 128 ) ! OLI+O3=0.3700D+00*CO+... & + 3.6000D-01 * RXRAT( 129 ) ! DIEN+O3=0.3600D+00*CO+... & + 1.4000D-01 * RXRAT( 130 ) ! ISO+O3=0.1400D+00*CO+... & + 1.4000D-01 * RXRAT( 131 ) ! API+O3=0.1400D+00*CO+... & + 1.4000D-01 * RXRAT( 132 ) ! LIM+O3=0.1400D+00*CO+... & + 2.2000D-01 * RXRAT( 133 ) ! MACR+O3=0.2200D+00*CO+... & + 5.6000D-01 * RXRAT( 134 ) ! MVK+O3=0.5600D+00*CO+... & + 2.4300D-01 * RXRAT( 135 ) ! UALD+O3=0.2430D+00*CO+... & + 1.5000D+00 * RXRAT( 136 ) ! DCB1+O3=0.1500D+01*CO+HO2+... & + 1.5000D+00 * RXRAT( 137 ) ! DCB2+O3=0.1500D+01*CO+HO2+... & + 1.5000D+00 * RXRAT( 138 ) ! DCB3+O3=0.1500D+01*CO+HO2+... & + 1.5000D+00 * RXRAT( 139 ) ! EPX+O3=0.1500D+01*CO+... & + RXRAT( 148 ) ! HCHO+NO3=CO+HO2+HNO3 & + 6.6800D-01 * RXRAT( 152 ) ! UALD+NO3=0.6680D+00*CO+XO2+... & + 2.0000D+00 * RXRAT( 153 ) ! GLY+NO3=0.2000D+01*CO+HO2+HNO3 & + RXRAT( 154 ) ! MGLY+NO3=CO+ACO3+HNO3 & + 1.5000D+00 * RXRAT( 157 ) ! EPX+NO3=0.1500D+01*CO+... & + 6.5000D-01 * RXRAT( 196 ) ! MACP+NO=0.6500D+00*CO+... & + 6.1000D-01 * RXRAT( 199 ) ! UALP+NO=0.6100D+00*CO+NO2+... & + 5.0000D-01 * RXRAT( 272 ) ! MACP+MO2=0.5000D+00*CO+... & + 3.0500D-01 * RXRAT( 275 ) ! UALP+MO2=0.3050D+00*CO+HO2+... & + 5.0000D-01 * RXRAT( 308 ) ! MACP+ACO3=0.5000D+00*CO+... & + 5.0000D-01 * RXRAT( 311 ) ! UALP+ACO3=0.5000D+00*CO+... & + RXRAT( 346 ) ! MACP+NO3=CO+0.5380D+... & + 6.1000D-01 * RXRAT( 349 ) ! UALP+NO3=0.6100D+00*CO+NO2+... LOSS( CO ) = RXRAT( 70 ) ! CO+HO=HO2 PROD( ACD ) = RXRAT( 110 ) ! EOH+HO=ACD+HO2 & + 1.8400D-01 * RXRAT( 111 ) ! ROH+HO=0.1840D+00*ACD+... & + 1.0000D-02 * RXRAT( 127 ) ! OLT+O3=0.1000D-01*ACD+... & + 4.5700D-01 * RXRAT( 128 ) ! OLI+O3=0.4570D+00*ACD+... & + 4.2000D-01 * RXRAT( 135 ) ! UALD+O3=0.4200D+00*ACD+... & + RXRAT( 173 ) ! ETHP+NO=ACD+NO2+HO2 & + 5.0400D-01 * RXRAT( 174 ) ! HC3P+NO=0.5040D+00*ACD+... & + 4.5000D-02 * RXRAT( 175 ) ! HC5P+NO=0.4500D-01*ACD+... & + 1.2000D-02 * RXRAT( 178 ) ! OLTP+NO=0.1200D-01*ACD+... & + 8.1000D-01 * RXRAT( 179 ) ! OLIP+NO=0.8100D+00*ACD+... & + 7.5000D-01 * RXRAT( 249 ) ! ETHP+MO2=0.7500D+00*ACD+... & + RXRAT( 285 ) ! ETHP+ACO3=ACD+0.5000D+... & + RXRAT( 323 ) ! ETHP+NO3=ACD+NO2+HO2 & + 5.1900D-01 * RXRAT( 324 ) ! HC3P+NO3=0.5190D+00*ACD+... & + 4.8000D-02 * RXRAT( 325 ) ! HC5P+NO3=0.4800D-01*ACD+... & + 2.0000D-02 * RXRAT( 328 ) ! OLTP+NO3=0.2000D-01*ACD+... & + 8.5000D-01 * RXRAT( 329 ) ! OLIP+NO3=0.8500D+00*ACD+... LOSS( ACD ) = RXRAT( 12 ) ! ACD=HO2+MO2+CO & + RXRAT( 90 ) ! ACD+HO=ACO3 & + RXRAT( 149 ) ! ACD+NO3=ACO3+HNO3 PROD( MO2 ) = RXRAT( 12 ) ! ACD=MO2+HO2+CO & + RXRAT( 14 ) ! ACT=MO2+ACO3 & + 5.0000D-01 * RXRAT( 16 ) ! MEK=0.5000D+00*MO2+0.5000D+... & + 3.0000D-01 * RXRAT( 20 ) ! MVK=0.3000D+00*MO2+0.3000D+... & + RXRAT( 30 ) ! PAA=MO2+HO & + RXRAT( 33 ) ! PAN=MO2+NO3 & + RXRAT( 71 ) ! HO=MO2 & + 6.5000D-01 * RXRAT( 113 ) ! OP1+HO=0.6500D+00*MO2+... & + 6.4000D-01 * RXRAT( 118 ) ! ORA2+HO=0.6400D+00*MO2+... & + 8.0000D-02 * RXRAT( 127 ) ! OLT+O3=0.8000D-01*MO2+... & + 3.2000D-01 * RXRAT( 128 ) ! OLI+O3=0.3200D+00*MO2+... & + 3.0000D-02 * RXRAT( 129 ) ! DIEN+O3=0.3000D-01*MO2+... & + 8.0000D-02 * RXRAT( 130 ) ! ISO+O3=0.8000D-01*MO2+... & + 8.0000D-03 * RXRAT( 135 ) ! UALD+O3=0.8000D-02*MO2+... & + 1.3100D-01 * RXRAT( 174 ) ! HC3P+NO=0.1310D+00*MO2+... & + 5.1000D-02 * RXRAT( 175 ) ! HC5P+NO=0.5100D-01*MO2+... & + RXRAT( 191 ) ! ACO3+NO=MO2+NO2 & + 6.5000D-01 * RXRAT( 196 ) ! MACP+NO=0.6500D+00*MO2+... & + 4.4000D-01 * RXRAT( 231 ) ! ACO3+HO2=0.4400D+00*MO2+... & + 5.0000D-01 * RXRAT( 285 ) ! ETHP+ACO3=0.5000D+00*MO2+... & + 5.8000D-01 * RXRAT( 286 ) ! HC3P+ACO3=0.5800D+00*MO2+... & + 5.1800D-01 * RXRAT( 287 ) ! HC5P+ACO3=0.5180D+00*MO2+... & + 5.0000D-01 * RXRAT( 288 ) ! HC8P+ACO3=0.5000D+00*MO2+... & + 5.0000D-01 * RXRAT( 289 ) ! ETEP+ACO3=0.5000D+00*MO2+... & + 5.0000D-01 * RXRAT( 290 ) ! OLTP+ACO3=0.5000D+00*MO2+... & + 5.0000D-01 * RXRAT( 291 ) ! OLIP+ACO3=0.5000D+00*MO2+... & + RXRAT( 292 ) ! BENP+ACO3=MO2+0.6000D+... & + RXRAT( 293 ) ! TLP1+ACO3=MO2+BALD & + RXRAT( 294 ) ! TOLP+ACO3=MO2+HO2+DCB2 & + RXRAT( 295 ) ! PER1+ACO3=MO2+HO2+MGLY+DCB1 & + RXRAT( 296 ) ! XYL1+ACO3=MO2+BALD & + RXRAT( 297 ) ! XYLP+ACO3=MO2+HO2+DCB2 & + RXRAT( 298 ) ! PER2+ACO3=MO2+HO2+MGLY+... & + RXRAT( 299 ) ! XYOP+ACO3=MO2+HO2+0.3680D+... & + 5.0000D-01 * RXRAT( 300 ) ! ISOP+ACO3=0.5000D+00*MO2+... & + 5.0000D-01 * RXRAT( 301 ) ! APIP+ACO3=0.5000D+00*MO2+... & + 5.0000D-01 * RXRAT( 302 ) ! LIMP+ACO3=0.5000D+00*MO2+... & + 2.0000D+00 * RXRAT( 303 ) ! ACO3+ACO3=0.2000D+01*MO2 & + RXRAT( 304 ) ! RCO3+ACO3=MO2+ETHP & + 5.0000D-01 * RXRAT( 305 ) ! ACTP+ACO3=0.5000D+00*MO2+... & + 5.0000D-01 * RXRAT( 306 ) ! MEKP+ACO3=0.5000D+00*MO2+... & + 5.0000D-01 * RXRAT( 307 ) ! KETP+ACO3=0.5000D+00*MO2+... & + 5.0000D-01 * RXRAT( 308 ) ! MACP+ACO3=0.5000D+00*MO2+... & + 5.0000D-01 * RXRAT( 309 ) ! MCP+ACO3=0.5000D+00*MO2+... & + 5.0000D-01 * RXRAT( 310 ) ! MVKP+ACO3=0.5000D+00*MO2+... & + 5.0000D-01 * RXRAT( 311 ) ! UALP+ACO3=0.5000D+00*MO2+... & + RXRAT( 312 ) ! BALP+ACO3=MO2+BAL1 & + RXRAT( 313 ) ! BAL1+ACO3=MO2+BAL2 & + RXRAT( 314 ) ! ADDC+ACO3=MO2+0.2000D+... & + RXRAT( 315 ) ! MCTP+ACO3=MO2+HO2+MCTO & + RXRAT( 316 ) ! ORAP+ACO3=MO2+GLY & + RXRAT( 317 ) ! OLNN+ACO3=MO2+HO2+ONIT & + 5.0000D-01 * RXRAT( 318 ) ! OLND+ACO3=0.5000D+00*MO2+... & + RXRAT( 319 ) ! ADCN+ACO3=MO2+HO2+0.7000D+... & + RXRAT( 320 ) ! XO2+ACO3=MO2 & + 1.4000D-01 * RXRAT( 324 ) ! HC3P+NO3=0.1400D+00*MO2+... & + 5.5000D-02 * RXRAT( 325 ) ! HC5P+NO3=0.5500D-01*MO2+... & + RXRAT( 341 ) ! ACO3+NO3=MO2+NO2 LOSS( MO2 ) = RXRAT( 172 ) ! MO2+NO=HO2+NO2+HCHO & + RXRAT( 212 ) ! MO2+HO2=OP1 & + 2.0000D+00 * RXRAT( 248 ) ! MO2+MO2=0.7400D+00*HO2+... & + RXRAT( 249 ) ! MO2+ETHP=HO2+0.7500D+... & + 9.2000D-01 * RXRAT( 250 ) ! MO2+HC3P=0.8000D-01*MO2+... & + 9.8200D-01 * RXRAT( 251 ) ! MO2+HC5P=0.1800D-01*MO2+... & + RXRAT( 252 ) ! MO2+HC8P=0.9100D+00*HO2+... & + RXRAT( 253 ) ! MO2+ETEP=HO2+0.1950D+... & + RXRAT( 254 ) ! MO2+OLTP=HO2+0.1500D+... & + RXRAT( 255 ) ! MO2+OLIP=HO2+0.7500D+... & + RXRAT( 256 ) ! MO2+BENP=0.1600D+01*HO2+... & + RXRAT( 257 ) ! MO2+TLP1=HO2+HCHO+BALD & + RXRAT( 258 ) ! MO2+TOLP=0.2000D+01*HO2+... & + RXRAT( 259 ) ! MO2+PER1=0.2000D+01*HO2+... & + RXRAT( 260 ) ! MO2+XYL1=HO2+HCHO+BALD & + RXRAT( 261 ) ! MO2+XYLP=0.2000D+01*HO2+... & + RXRAT( 262 ) ! MO2+PER2=0.2000D+01*HO2+... & + RXRAT( 263 ) ! MO2+XYOP=0.2000D+01*HO2+... & + RXRAT( 264 ) ! MO2+ISOP=HO2+0.1310D+... & + RXRAT( 265 ) ! MO2+APIP=HO2+0.7500D+... & + RXRAT( 266 ) ! MO2+LIMP=HO2+0.1040D+... & + 1.0000D-01 * RXRAT( 267 ) ! MO2+ACO3=0.9000D+00*MO2+... & + 1.0000D-01 * RXRAT( 268 ) ! MO2+RCO3=0.9000D+00*MO2+... & + RXRAT( 269 ) ! MO2+ACTP=0.5000D+00*HO2+... & + RXRAT( 270 ) ! MO2+MEKP=0.8340D+00*HO2+... & + RXRAT( 271 ) ! MO2+KETP=HO2+0.7500D+... & + 7.5000D-01 * RXRAT( 272 ) ! MO2+MACP=0.2500D+00*MO2+... & + RXRAT( 273 ) ! MO2+MCP=NO2+HO2+0.1500D+... & + RXRAT( 274 ) ! MO2+MVKP=HO2+0.1160D+... & + RXRAT( 275 ) ! MO2+UALP=HO2+0.3050D+00*CO+... & + RXRAT( 276 ) ! MO2+BALP=HO2+BAL1+HCHO & + RXRAT( 277 ) ! MO2+BAL1=HO2+BAL2+HCHO & + RXRAT( 278 ) ! MO2+ADDC=0.2000D+01*HO2+... & + RXRAT( 279 ) ! MO2+MCTP=HO2+MCTO+HCHO & + RXRAT( 280 ) ! MO2+ORAP=HCHO+HO2+GLY & + RXRAT( 281 ) ! MO2+OLNN=0.2000D+01*HO2+... & + RXRAT( 282 ) ! MO2+OLND=0.5000D+00*HO2+... & + RXRAT( 283 ) ! MO2+ADCN=HO2+0.7000D+... & + RXRAT( 284 ) ! MO2+XO2=HO2+HCHO & + RXRAT( 322 ) ! MO2+NO3=HO2+HCHO+NO2 PROD( ALD ) = 4.3400D-01 * RXRAT( 15 ) ! UALD=0.4340D+00*ALD+... & + RXRAT( 29 ) ! OP2=ALD+HO2+HO & + 2.0000D-01 * RXRAT( 31 ) ! ONIT=0.2000D+00*ALD+NO2+... & + 2.5000D-02 * RXRAT( 75 ) ! HC8+HO=0.2500D-01*ALD+... & + 4.0000D-01 * RXRAT( 101 ) ! DCB1+HO=0.4000D+00*ALD+... & + RXRAT( 107 ) ! EPX+HO=ALD+XO2+CO+HO2 & + 7.1900D-01 * RXRAT( 111 ) ! ROH+HO=0.7190D+00*ALD+HO2+... & + RXRAT( 112 ) ! ETEG+HO=ALD+HO2 & + 8.0000D-02 * RXRAT( 114 ) ! OP2+HO=0.8000D-01*ALD+... & + 4.4000D-01 * RXRAT( 127 ) ! OLT+O3=0.4400D+00*ALD+... & + 7.3000D-01 * RXRAT( 128 ) ! OLI+O3=0.7300D+00*ALD+... & + 6.5000D-01 * RXRAT( 131 ) ! API+O3=0.6500D+00*ALD+... & + 1.0000D-01 * RXRAT( 134 ) ! MVK+O3=0.1000D+00*ALD+... & + 3.3200D-01 * RXRAT( 152 ) ! UALD+NO3=0.3320D+00*ALD+... & + 1.3200D-01 * RXRAT( 174 ) ! HC3P+NO=0.1320D+00*ALD+... & + 2.0300D-01 * RXRAT( 175 ) ! HC5P+NO=0.2030D+00*ALD+... & + 1.5000D-01 * RXRAT( 176 ) ! HC8P+NO=0.1500D+00*ALD+... & + 2.0000D-01 * RXRAT( 177 ) ! ETEP+NO=0.2000D+00*ALD+NO2+... & + 4.4000D-01 * RXRAT( 178 ) ! OLTP+NO=0.4400D+00*ALD+... & + 6.8000D-01 * RXRAT( 179 ) ! OLIP+NO=0.6800D+00*ALD+... & + 2.7000D-02 * RXRAT( 188 ) ! ISOP+NO=0.2700D-01*ALD+... & + 4.3000D-01 * RXRAT( 189 ) ! APIP+NO=0.4300D+00*ALD+... & + 4.6000D-01 * RXRAT( 195 ) ! KETP+NO=0.4600D+00*ALD+... & + 7.0000D-01 * RXRAT( 198 ) ! MVKP+NO=0.7000D+00*ALD+... & + 2.7000D-01 * RXRAT( 199 ) ! UALP+NO=0.2700D+00*ALD+NO2+... & + 1.2400D+00 * RXRAT( 206 ) ! OLND+NO=0.1240D+01*ALD+... & + 1.9800D-01 * RXRAT( 250 ) ! HC3P+MO2=0.1980D+00*ALD+... & + 2.5100D-01 * RXRAT( 251 ) ! HC5P+MO2=0.2510D+00*ALD+... & + 1.9700D-01 * RXRAT( 252 ) ! HC8P+MO2=0.1970D+00*ALD+... & + 1.5000D-01 * RXRAT( 253 ) ! ETEP+MO2=0.1500D+00*ALD+... & + 7.0500D-01 * RXRAT( 254 ) ! OLTP+MO2=0.7050D+00*ALD+... & + 1.2800D+00 * RXRAT( 255 ) ! OLIP+MO2=0.1280D+01*ALD+... & + 2.3000D-02 * RXRAT( 264 ) ! ISOP+MO2=0.2300D-01*ALD+... & + 7.5000D-01 * RXRAT( 265 ) ! APIP+MO2=0.7500D+00*ALD+... & + 1.7500D+00 * RXRAT( 274 ) ! MVKP+MO2=0.1750D+01*ALD+... & + 2.0300D-01 * RXRAT( 275 ) ! UALP+MO2=0.2030D+00*ALD+... & + 9.3000D-01 * RXRAT( 282 ) ! OLND+MO2=0.9300D+00*ALD+... & + 2.7300D-01 * RXRAT( 286 ) ! HC3P+ACO3=0.2730D+00*ALD+... & + 3.8100D-01 * RXRAT( 287 ) ! HC5P+ACO3=0.3810D+00*ALD+... & + 2.1700D-01 * RXRAT( 288 ) ! HC8P+ACO3=0.2170D+00*ALD+... & + 2.0000D-01 * RXRAT( 289 ) ! ETEP+ACO3=0.2000D+00*ALD+... & + 9.4000D-01 * RXRAT( 290 ) ! OLTP+ACO3=0.9400D+00*ALD+... & + 1.7100D+00 * RXRAT( 291 ) ! OLIP+ACO3=0.1710D+01*ALD+... & + RXRAT( 301 ) ! APIP+ACO3=ALD+0.5000D+... & + 2.3000D+00 * RXRAT( 310 ) ! MVKP+ACO3=0.2300D+01*ALD+... & + 2.7000D-01 * RXRAT( 311 ) ! UALP+ACO3=0.2700D+00*ALD+... & + 1.2400D+00 * RXRAT( 318 ) ! OLND+ACO3=0.1240D+01*ALD+... & + 1.4700D-01 * RXRAT( 324 ) ! HC3P+NO3=0.1470D+00*ALD+... & + 2.4100D-01 * RXRAT( 325 ) ! HC5P+NO3=0.2410D+00*ALD+... & + 2.0300D-01 * RXRAT( 326 ) ! HC8P+NO3=0.2030D+00*ALD+... & + 2.0000D-01 * RXRAT( 327 ) ! ETEP+NO3=0.2000D+00*ALD+... & + 4.7000D-01 * RXRAT( 328 ) ! OLTP+NO3=0.4700D+00*ALD+... & + 7.2000D-01 * RXRAT( 329 ) ! OLIP+NO3=0.7200D+00*ALD+... & + 3.1000D-02 * RXRAT( 338 ) ! ISOP+NO3=0.3100D-01*ALD+... & + RXRAT( 339 ) ! APIP+NO3=ALD+NO2+HO2+KET & + 7.0000D-01 * RXRAT( 348 ) ! MVKP+NO3=0.7000D+00*ALD+... & + 2.7000D-01 * RXRAT( 349 ) ! UALP+NO3=0.2700D+00*ALD+... & + 1.2400D+00 * RXRAT( 356 ) ! OLND+NO3=0.1240D+01*ALD+... & + 6.4000D-01 * RXRAT( 359 ) ! OLNN+OLND=0.6400D+00*ALD+... & + 1.2100D+00 * RXRAT( 360 ) ! OLND+OLND=0.1210D+01*ALD+... LOSS( ALD ) = RXRAT( 13 ) ! ALD=HO2+ETHP+CO & + RXRAT( 91 ) ! ALD+HO=RCO3 & + RXRAT( 150 ) ! ALD+NO3=RCO3+HNO3 PROD( ETHP ) = RXRAT( 13 ) ! ALD=ETHP+HO2+CO & + 5.0000D-01 * RXRAT( 16 ) ! MEK=0.5000D+00*ETHP+... & + RXRAT( 17 ) ! KET=ETHP+ACO3 & + RXRAT( 72 ) ! ETH+HO=ETHP & + 6.0000D-02 * RXRAT( 127 ) ! OLT+O3=0.6000D-01*ETHP+... & + 7.0000D-02 * RXRAT( 128 ) ! OLI+O3=0.7000D-01*ETHP+... & + 2.0000D-01 * RXRAT( 131 ) ! API+O3=0.2000D+00*ETHP+... & + 1.6000D-01 * RXRAT( 132 ) ! LIM+O3=0.1600D+00*ETHP+... & + 4.8000D-02 * RXRAT( 174 ) ! HC3P+NO=0.4800D-01*ETHP+... & + 2.3100D-01 * RXRAT( 175 ) ! HC5P+NO=0.2310D+00*ETHP+... & + 1.3300D-01 * RXRAT( 176 ) ! HC8P+NO=0.1330D+00*ETHP+... & + RXRAT( 192 ) ! RCO3+NO=ETHP+NO2 & + 4.4000D-01 * RXRAT( 232 ) ! RCO3+HO2=0.4400D+00*ETHP+... & + 2.6000D-02 * RXRAT( 250 ) ! HC3P+MO2=0.2600D-01*ETHP+... & + 1.4000D-01 * RXRAT( 251 ) ! HC5P+MO2=0.1400D+00*ETHP+... & + 9.0000D-02 * RXRAT( 252 ) ! HC8P+MO2=0.9000D-01*ETHP+... & + 2.6000D-02 * RXRAT( 286 ) ! HC3P+ACO3=0.2600D-01*ETHP+... & + 1.4000D-01 * RXRAT( 287 ) ! HC5P+ACO3=0.1400D+00*ETHP+... & + 6.7000D-02 * RXRAT( 288 ) ! HC8P+ACO3=0.6700D-01*ETHP+... & + RXRAT( 304 ) ! RCO3+ACO3=ETHP+MO2 & + 2.0000D+00 * RXRAT( 321 ) ! RCO3+RCO3=0.2000D+01*ETHP & + 5.0300D-01 * RXRAT( 324 ) ! HC3P+NO3=0.5030D+00*ETHP+... & + 2.8000D-01 * RXRAT( 325 ) ! HC5P+NO3=0.2800D+00*ETHP+... & + 1.8000D-01 * RXRAT( 326 ) ! HC8P+NO3=0.1800D+00*ETHP+... & + RXRAT( 342 ) ! RCO3+NO3=ETHP+NO2 & + RXRAT( 362 ) ! XO2+RCO3=ETHP LOSS( ETHP ) = RXRAT( 173 ) ! ETHP+NO=HO2+NO2+ACD & + RXRAT( 213 ) ! ETHP+HO2=OP2 & + RXRAT( 249 ) ! ETHP+MO2=HO2+0.7500D+... & + RXRAT( 285 ) ! ETHP+ACO3=0.5000D+00*HO2+... & + RXRAT( 323 ) ! ETHP+NO3=HO2+NO2+ACD PROD( ACT ) = 3.0000D-02 * RXRAT( 127 ) ! OLT+O3=0.3000D-01*ACT+... & + 1.1000D-01 * RXRAT( 128 ) ! OLI+O3=0.1100D+00*ACT+... & + 1.6500D-01 * RXRAT( 174 ) ! HC3P+NO=0.1650D+00*ACT+... & + 2.1700D-01 * RXRAT( 175 ) ! HC5P+NO=0.2170D+00*ACT+... & + 6.0000D-02 * RXRAT( 178 ) ! OLTP+NO=0.6000D-01*ACT+... & + 2.0000D-01 * RXRAT( 179 ) ! OLIP+NO=0.2000D+00*ACT+... & + 1.1000D-01 * RXRAT( 189 ) ! APIP+NO=0.1100D+00*ACT+... & + 9.5000D-02 * RXRAT( 324 ) ! HC3P+NO3=0.9500D-01*ACT+... & + 2.4700D-01 * RXRAT( 325 ) ! HC5P+NO3=0.2470D+00*ACT+... & + 9.0000D-02 * RXRAT( 328 ) ! OLTP+NO3=0.9000D-01*ACT+... & + 2.0000D-01 * RXRAT( 329 ) ! OLIP+NO3=0.2000D+00*ACT+... LOSS( ACT ) = RXRAT( 14 ) ! ACT=MO2+ACO3 & + RXRAT( 92 ) ! ACT+HO=ACTP PROD( UALD ) = 7.0000D-01 * RXRAT( 20 ) ! MVK=0.7000D+00*UALD+... & + 6.8000D-01 * RXRAT( 190 ) ! LIMP+NO=0.6800D+00*UALD+... LOSS( UALD ) = RXRAT( 15 ) ! UALD=0.1220D+01*HO2+... & + RXRAT( 98 ) ! UALD+HO=0.3130D+00*ACO3+... & + RXRAT( 135 ) ! UALD+O3=0.1000D+00*HO+... & + RXRAT( 152 ) ! UALD+NO3=HO2+XO2+0.6680D+... PROD( KET ) = 2.1600D-01 * RXRAT( 15 ) ! UALD=0.2160D+00*KET+... & + 8.0000D-01 * RXRAT( 31 ) ! ONIT=0.8000D+00*KET+NO2+... & + 7.8000D-01 * RXRAT( 101 ) ! DCB1+HO=0.7800D+00*KET+... & + 4.1000D-01 * RXRAT( 114 ) ! OP2+HO=0.4100D+00*KET+... & + 1.7000D-02 * RXRAT( 128 ) ! OLI+O3=0.1700D-01*KET+... & + 5.3000D-01 * RXRAT( 131 ) ! API+O3=0.5300D+00*KET+... & + 2.8000D-02 * RXRAT( 135 ) ! UALD+O3=0.2800D-01*KET+... & + 3.3000D-02 * RXRAT( 175 ) ! HC5P+NO=0.3300D-01*KET+... & + 6.4200D-01 * RXRAT( 176 ) ! HC8P+NO=0.6420D+00*KET+... & + 9.0000D-02 * RXRAT( 179 ) ! OLIP+NO=0.9000D-01*KET+... & + 4.4000D-01 * RXRAT( 189 ) ! APIP+NO=0.4400D+00*KET+... & + 7.0000D-01 * RXRAT( 199 ) ! UALP+NO=0.7000D+00*KET+NO2+... & + 4.6400D-01 * RXRAT( 206 ) ! OLND+NO=0.4640D+00*KET+... & + 4.9700D-01 * RXRAT( 250 ) ! HC3P+MO2=0.4970D+00*KET+... & + 6.1800D-01 * RXRAT( 251 ) ! HC5P+MO2=0.6180D+00*KET+... & + 6.5200D-01 * RXRAT( 252 ) ! HC8P+MO2=0.6520D+00*KET+... & + 4.5000D-02 * RXRAT( 254 ) ! OLTP+MO2=0.4500D-01*KET+... & + 2.1800D-01 * RXRAT( 255 ) ! OLIP+MO2=0.2180D+00*KET+... & + 7.5000D-01 * RXRAT( 265 ) ! APIP+MO2=0.7500D+00*KET+... & + 5.2500D-01 * RXRAT( 275 ) ! UALP+MO2=0.5250D+00*KET+... & + 3.4800D-01 * RXRAT( 282 ) ! OLND+MO2=0.3480D+00*KET+... & + 6.6200D-01 * RXRAT( 286 ) ! HC3P+ACO3=0.6620D+00*KET+... & + 8.2400D-01 * RXRAT( 287 ) ! HC5P+ACO3=0.8240D+00*KET+... & + 6.4200D-01 * RXRAT( 288 ) ! HC8P+ACO3=0.6420D+00*KET+... & + 6.0000D-02 * RXRAT( 290 ) ! OLTP+ACO3=0.6000D-01*KET+... & + 2.9000D-01 * RXRAT( 291 ) ! OLIP+ACO3=0.2900D+00*KET+... & + RXRAT( 301 ) ! APIP+ACO3=KET+0.5000D+... & + 7.0000D-01 * RXRAT( 311 ) ! UALP+ACO3=0.7000D+00*KET+... & + 4.6400D-01 * RXRAT( 318 ) ! OLND+ACO3=0.4640D+00*KET+... & + 6.0000D-02 * RXRAT( 325 ) ! HC5P+NO3=0.6000D-01*KET+... & + 8.6900D-01 * RXRAT( 326 ) ! HC8P+NO3=0.8690D+00*KET+... & + 1.1000D-01 * RXRAT( 329 ) ! OLIP+NO3=0.1100D+00*KET+... & + RXRAT( 339 ) ! APIP+NO3=KET+NO2+ALD+HO2 & + 7.0000D-01 * RXRAT( 349 ) ! UALP+NO3=0.7000D+00*KET+... & + 4.6400D-01 * RXRAT( 356 ) ! OLND+NO3=0.4640D+00*KET+... & + 1.4900D-01 * RXRAT( 359 ) ! OLNN+OLND=0.1490D+00*KET+... & + 2.8500D-01 * RXRAT( 360 ) ! OLND+OLND=0.2850D+00*KET+... LOSS( KET ) = RXRAT( 17 ) ! KET=ETHP+ACO3 & + RXRAT( 94 ) ! KET+HO=KETP PROD( MEK ) = 1.3000D-01 * RXRAT( 102 ) ! DCB2+HO=0.1300D+00*MEK+... & + 6.0000D-02 * RXRAT( 127 ) ! OLT+O3=0.6000D-01*MEK+... & + 4.2000D-02 * RXRAT( 174 ) ! HC3P+NO=0.4200D-01*MEK+... & + 3.3000D-02 * RXRAT( 175 ) ! HC5P+NO=0.3300D-01*MEK+... & + 1.3000D-01 * RXRAT( 178 ) ! OLTP+NO=0.1300D+00*MEK+... & + 7.5000D-02 * RXRAT( 324 ) ! HC3P+NO3=0.7500D-01*MEK+... & + 6.3000D-02 * RXRAT( 325 ) ! HC5P+NO3=0.6300D-01*MEK+... & + 1.8000D-01 * RXRAT( 328 ) ! OLTP+NO3=0.1800D+00*MEK+... LOSS( MEK ) = RXRAT( 16 ) ! MEK=0.5000D+00*MO2+0.5000D+... & + RXRAT( 93 ) ! MEK+HO=MEKP PROD( HKET ) = 2.4000D-02 * RXRAT( 75 ) ! HC8+HO=0.2400D-01*HKET+... & + RXRAT( 122 ) ! MPAN+HO=HKET+NO2 & + RXRAT( 124 ) ! NALD+HO=HKET+XO2+NO2 & + 7.0000D-02 * RXRAT( 125 ) ! ISON+HO=0.7000D-01*HKET+... & + 1.0000D-02 * RXRAT( 127 ) ! OLT+O3=0.1000D-01*HKET+... & + 4.4000D-02 * RXRAT( 128 ) ! OLI+O3=0.4400D-01*HKET+... & + 2.7200D-01 * RXRAT( 175 ) ! HC5P+NO=0.2720D+00*HKET+... & + 2.0000D-02 * RXRAT( 179 ) ! OLIP+NO=0.2000D-01*HKET+... & + 2.9000D-02 * RXRAT( 188 ) ! ISOP+NO=0.2900D-01*HKET+... & + RXRAT( 197 ) ! MCP+NO=HKET+0.5000D+00*HO2+... & + 3.2000D-01 * RXRAT( 202 ) ! ADDC+NO=0.3200D+00*HKET+... & + 1.6000D-02 * RXRAT( 264 ) ! ISOP+MO2=0.1600D-01*HKET+... & + 5.0000D-01 * RXRAT( 273 ) ! MCP+MO2=0.5000D+00*HKET+... & + 3.2000D-01 * RXRAT( 278 ) ! ADDC+MO2=0.3200D+00*HKET+... & + 5.0000D-01 * RXRAT( 309 ) ! MCP+ACO3=0.5000D+00*HKET+... & + 3.2000D-01 * RXRAT( 314 ) ! ADDC+ACO3=0.3200D+00*HKET+... & + 2.7500D-01 * RXRAT( 325 ) ! HC5P+NO3=0.2750D+00*HKET+... & + 4.0000D-02 * RXRAT( 329 ) ! OLIP+NO3=0.4000D-01*HKET+... & + 3.3000D-02 * RXRAT( 338 ) ! ISOP+NO3=0.3300D-01*HKET+... & + RXRAT( 347 ) ! MCP+NO3=HKET+HO2+HCHO+NO2 & + 3.2000D-01 * RXRAT( 352 ) ! ADDC+NO3=0.3200D+00*HKET+... LOSS( HKET ) = RXRAT( 18 ) ! HKET=HO2+ACO3+HCHO & + RXRAT( 95 ) ! HKET+HO=HO2+MGLY PROD( MACR ) = RXRAT( 115 ) ! ISHP+HO=MACR+HO+0.9040D+... & + 3.9000D-01 * RXRAT( 129 ) ! DIEN+O3=0.3900D+00*MACR+... & + 4.6100D-01 * RXRAT( 130 ) ! ISO+O3=0.4610D+00*MACR+... & + 7.9000D-01 * RXRAT( 132 ) ! LIM+O3=0.7900D+00*MACR+... & + 9.0000D-01 * RXRAT( 144 ) ! DIEN+NO3=0.9000D+00*MACR+... & + 2.8000D-01 * RXRAT( 188 ) ! ISOP+NO=0.2800D+00*MACR+... & + 1.5900D-01 * RXRAT( 264 ) ! ISOP+MO2=0.1590D+00*MACR+... & + 3.0800D-01 * RXRAT( 266 ) ! LIMP+MO2=0.3080D+00*MACR+... & + 2.1900D-01 * RXRAT( 300 ) ! ISOP+ACO3=0.2190D+00*MACR+... & + 3.0800D-01 * RXRAT( 302 ) ! LIMP+ACO3=0.3080D+00*MACR+... & + 3.1800D-01 * RXRAT( 338 ) ! ISOP+NO3=0.3180D+00*MACR+... & + 6.1500D-01 * RXRAT( 340 ) ! LIMP+NO3=0.6150D+00*MACR+... LOSS( MACR ) = RXRAT( 19 ) ! MACR=0.3400D+00*HO+0.6600D+... & + RXRAT( 96 ) ! MACR+HO=0.5700D+00*MACP+... & + RXRAT( 133 ) ! MACR+O3=0.1900D+00*HO+... & + RXRAT( 151 ) ! MACR+NO3=0.6800D+00*HCHO+... PROD( MACP ) = 3.3000D-01 * RXRAT( 19 ) ! MACR=0.3300D+00*MACP+... & + 3.0000D-01 * RXRAT( 20 ) ! MVK=0.3000D+00*MACP+... & + 5.7000D-01 * RXRAT( 96 ) ! MACR+HO=0.5700D+00*MACP+... & + 2.1000D-01 * RXRAT( 103 ) ! DCB3+HO=0.2100D+00*MACP+... & + RXRAT( 116 ) ! MAHP+HO=MACP & + 1.0000D-01 * RXRAT( 130 ) ! ISO+O3=0.1000D+00*MACP+... & + 3.2000D-01 * RXRAT( 151 ) ! MACR+NO3=0.3200D+00*MACP+... & + RXRAT( 159 ) ! MPAN+NO3=MACP+NO2 & + RXRAT( 171 ) ! MPAN=MACP+NO2 LOSS( MACP ) = RXRAT( 170 ) ! MACP+NO2=MPAN & + RXRAT( 196 ) ! MACP+NO=0.6500D+00*MO2+... & + RXRAT( 236 ) ! MACP+HO2=MAHP & + RXRAT( 272 ) ! MACP+MO2=0.5000D+00*HO2+... & + RXRAT( 308 ) ! MACP+ACO3=0.6350D+00*ORA2+... & + RXRAT( 346 ) ! MACP+NO3=HCHO+0.5380D+... PROD( XO2 ) = 3.4000D-01 * RXRAT( 19 ) ! MACR=0.3400D+00*XO2+... & + 2.0000D-01 * RXRAT( 25 ) ! DCB1=0.2000D+00*XO2+... & + 2.0000D-01 * RXRAT( 26 ) ! DCB2=0.2000D+00*XO2+... & + RXRAT( 107 ) ! EPX+HO=XO2+HO2+CO+ALD & + 7.0000D-02 * RXRAT( 114 ) ! OP2+HO=0.7000D-01*XO2+... & + 3.5000D-01 * RXRAT( 119 ) ! PAA+HO=0.3500D+00*XO2+... & + RXRAT( 120 ) ! PAN+HO=XO2+NO3+HCHO & + RXRAT( 121 ) ! PPN+HO=XO2+NO3+HCHO & + RXRAT( 124 ) ! NALD+HO=XO2+NO2+HKET & + 1.3000D-01 * RXRAT( 129 ) ! DIEN+O3=0.1300D+00*XO2+... & + 1.0000D-02 * RXRAT( 134 ) ! MVK+O3=0.1000D-01*XO2+... & + 1.0000D-01 * RXRAT( 135 ) ! UALD+O3=0.1000D+00*XO2+... & + 6.0000D-01 * RXRAT( 136 ) ! DCB1+O3=0.6000D+00*XO2+HO2+... & + 6.0000D-01 * RXRAT( 137 ) ! DCB2+O3=0.6000D+00*XO2+HO2+... & + 6.8000D-01 * RXRAT( 151 ) ! MACR+NO3=0.6800D+00*XO2+... & + RXRAT( 152 ) ! UALD+NO3=XO2+HO2+0.6680D+... & + 8.9000D-02 * RXRAT( 174 ) ! HC3P+NO=0.8900D-01*XO2+... & + 2.3500D-01 * RXRAT( 175 ) ! HC5P+NO=0.2350D+00*XO2+... & + 4.1600D-01 * RXRAT( 176 ) ! HC8P+NO=0.4160D+00*XO2+... & + 1.6000D-01 * RXRAT( 195 ) ! KETP+NO=0.1600D+00*XO2+... & + 7.0000D-01 * RXRAT( 198 ) ! MVKP+NO=0.7000D+00*XO2+... & + 2.6000D-02 * RXRAT( 250 ) ! HC3P+MO2=0.2600D-01*XO2+... & + 1.9100D-01 * RXRAT( 251 ) ! HC5P+MO2=0.1910D+00*XO2+... & + 2.8100D-01 * RXRAT( 252 ) ! HC8P+MO2=0.2810D+00*XO2+... & + 1.1600D+00 * RXRAT( 274 ) ! MVKP+MO2=0.1160D+01*XO2+... & + 2.6000D-02 * RXRAT( 286 ) ! HC3P+ACO3=0.2600D-01*XO2+... & + 1.9100D-01 * RXRAT( 287 ) ! HC5P+ACO3=0.1910D+00*XO2+... & + 2.0800D-01 * RXRAT( 288 ) ! HC8P+ACO3=0.2080D+00*XO2+... & + 1.1600D+00 * RXRAT( 310 ) ! MVKP+ACO3=0.1160D+01*XO2+... & + 9.2000D-02 * RXRAT( 324 ) ! HC3P+NO3=0.9200D-01*XO2+... & + 4.8500D-01 * RXRAT( 325 ) ! HC5P+NO3=0.4850D+00*XO2+... & + 5.6300D-01 * RXRAT( 326 ) ! HC8P+NO3=0.5630D+00*XO2+... & + 7.0000D-01 * RXRAT( 348 ) ! MVKP+NO3=0.7000D+00*XO2+... LOSS( XO2 ) = RXRAT( 208 ) ! XO2+NO=NO2 & + RXRAT( 247 ) ! XO2+HO2=OP2 & + RXRAT( 284 ) ! XO2+MO2=HO2+HCHO & + RXRAT( 320 ) ! XO2+ACO3=MO2 & + RXRAT( 361 ) ! XO2+NO3=NO2 & + RXRAT( 362 ) ! XO2+RCO3=ETHP & + 2.0000D+00 * RXRAT( 363 ) ! XO2+XO2= PROD( MVK ) = 1.8900D-01 * RXRAT( 130 ) ! ISO+O3=0.1890D+00*MVK+... & + 4.4000D-01 * RXRAT( 188 ) ! ISOP+NO=0.4400D+00*MVK+... & + 2.5000D-01 * RXRAT( 264 ) ! ISOP+MO2=0.2500D+00*MVK+... & + 3.0500D-01 * RXRAT( 300 ) ! ISOP+ACO3=0.3050D+00*MVK+... & + 5.0000D-01 * RXRAT( 338 ) ! ISOP+NO3=0.5000D+00*MVK+... LOSS( MVK ) = RXRAT( 20 ) ! MVK=0.3000D+00*MO2+0.3000D+... & + RXRAT( 97 ) ! MVK+HO=MVKP & + RXRAT( 134 ) ! MVK+O3=0.1600D+00*HO+... PROD( GLY ) = 5.0000D-01 * RXRAT( 25 ) ! DCB1=0.5000D+00*GLY+... & + 5.0000D-01 * RXRAT( 26 ) ! DCB2=0.5000D+00*GLY+... & + 6.5000D-01 * RXRAT( 80 ) ! ACE+HO=0.6500D+00*GLY+... & + 1.0000D-01 * RXRAT( 101 ) ! DCB1+HO=0.1000D+00*GLY+... & + 1.0000D-01 * RXRAT( 102 ) ! DCB2+HO=0.1000D+00*GLY+... & + 2.7000D-01 * RXRAT( 103 ) ! DCB3+HO=0.2700D+00*GLY+... & + 4.9100D-01 * RXRAT( 135 ) ! UALD+O3=0.4910D+00*GLY+... & + 5.0000D-02 * RXRAT( 136 ) ! DCB1+O3=0.5000D-01*GLY+HO2+... & + 5.0000D-02 * RXRAT( 137 ) ! DCB2+O3=0.5000D-01*GLY+HO2+... & + 4.8000D-01 * RXRAT( 138 ) ! DCB3+O3=0.4800D+00*GLY+HO2+... & + RXRAT( 139 ) ! EPX+O3=GLY+0.1500D+01*HO2+... & + RXRAT( 157 ) ! EPX+NO3=GLY+0.1500D+01*HO2+... & + 9.1800D-01 * RXRAT( 180 ) ! BENP+NO=0.9180D+00*GLY+... & + 3.5000D-01 * RXRAT( 187 ) ! XYOP+NO=0.3500D+00*GLY+... & + 2.1000D-02 * RXRAT( 188 ) ! ISOP+NO=0.2100D-01*GLY+... & + 1.8000D-01 * RXRAT( 199 ) ! UALP+NO=0.1800D+00*GLY+NO2+... & + 6.8000D-01 * RXRAT( 202 ) ! ADDC+NO=0.6800D+00*GLY+NO2+... & + RXRAT( 204 ) ! ORAP+NO=GLY+NO2+HO2 & + RXRAT( 207 ) ! ADCN+NO=GLY+0.2000D+01*NO2+OP2 & + 5.0000D-02 * RXRAT( 250 ) ! HC3P+MO2=0.5000D-01*GLY+... & + 6.0000D-01 * RXRAT( 256 ) ! BENP+MO2=0.6000D+00*GLY+... & + 2.7100D-01 * RXRAT( 258 ) ! TOLP+MO2=0.2710D+00*GLY+... & + 3.6800D-01 * RXRAT( 263 ) ! XYOP+MO2=0.3680D+00*GLY+... & + 1.8000D-02 * RXRAT( 264 ) ! ISOP+MO2=0.1800D-01*GLY+... & + 1.3500D-01 * RXRAT( 275 ) ! UALP+MO2=0.1350D+00*GLY+... & + 6.8000D-01 * RXRAT( 278 ) ! ADDC+MO2=0.6800D+00*GLY+... & + RXRAT( 280 ) ! ORAP+MO2=GLY+HO2+HCHO & + 7.0000D-01 * RXRAT( 283 ) ! ADCN+MO2=0.7000D+00*GLY+... & + 6.7000D-02 * RXRAT( 286 ) ! HC3P+ACO3=0.6700D-01*GLY+... & + 6.0000D-01 * RXRAT( 292 ) ! BENP+ACO3=0.6000D+00*GLY+... & + 3.6800D-01 * RXRAT( 299 ) ! XYOP+ACO3=0.3680D+00*GLY+... & + 1.8000D-01 * RXRAT( 311 ) ! UALP+ACO3=0.1800D+00*GLY+... & + 6.8000D-01 * RXRAT( 314 ) ! ADDC+ACO3=0.6800D+00*GLY+... & + RXRAT( 316 ) ! ORAP+ACO3=GLY+MO2 & + 7.0000D-01 * RXRAT( 319 ) ! ADCN+ACO3=0.7000D+00*GLY+... & + RXRAT( 330 ) ! BENP+NO3=GLY+NO2+0.5000D+... & + 3.6800D-01 * RXRAT( 337 ) ! XYOP+NO3=0.3680D+00*GLY+... & + 2.4000D-02 * RXRAT( 338 ) ! ISOP+NO3=0.2400D-01*GLY+... & + 1.8000D-01 * RXRAT( 349 ) ! UALP+NO3=0.1800D+00*GLY+... & + 6.8000D-01 * RXRAT( 352 ) ! ADDC+NO3=0.6800D+00*GLY+... & + RXRAT( 354 ) ! ORAP+NO3=GLY+NO2+HO2 & + RXRAT( 357 ) ! ADCN+NO3=GLY+0.2000D+... LOSS( GLY ) = RXRAT( 21 ) ! GLY=0.2000D+01*CO & + RXRAT( 22 ) ! GLY=HCHO+CO & + RXRAT( 23 ) ! GLY=0.2000D+01*HO2+0.2000D+... & + RXRAT( 99 ) ! GLY+HO=HO2+0.2000D+01*CO & + RXRAT( 153 ) ! GLY+NO3=HO2+0.2000D+01*CO+HNO3 PROD( MGLY ) = 5.0000D-01 * RXRAT( 25 ) ! DCB1=0.5000D+00*MGLY+... & + 5.0000D-01 * RXRAT( 26 ) ! DCB2=0.5000D+00*MGLY+... & + RXRAT( 95 ) ! HKET+HO=MGLY+HO2 & + 1.0000D-02 * RXRAT( 101 ) ! DCB1+HO=0.1000D-01*MGLY+... & + 1.0000D-02 * RXRAT( 102 ) ! DCB2+HO=0.1000D-01*MGLY+... & + 1.0000D-02 * RXRAT( 103 ) ! DCB3+HO=0.1000D-01*MGLY+... & + 5.0000D-01 * RXRAT( 133 ) ! MACR+O3=0.5000D+00*MGLY+... & + 5.4000D-01 * RXRAT( 134 ) ! MVK+O3=0.5400D+00*MGLY+... & + 3.0000D-03 * RXRAT( 135 ) ! UALD+O3=0.3000D-02*MGLY+... & + 8.0000D-02 * RXRAT( 136 ) ! DCB1+O3=0.8000D-01*MGLY+... & + 8.0000D-02 * RXRAT( 137 ) ! DCB2+O3=0.8000D-01*MGLY+... & + 6.8000D-01 * RXRAT( 151 ) ! MACR+NO3=0.6800D+00*MGLY+... & + 5.0000D-01 * RXRAT( 183 ) ! PER1+NO=0.5000D+00*MGLY+... & + 9.5000D-01 * RXRAT( 186 ) ! PER2+NO=0.9500D+00*MGLY+... & + 6.0000D-01 * RXRAT( 187 ) ! XYOP+NO=0.6000D+00*MGLY+... & + 5.4000D-01 * RXRAT( 195 ) ! KETP+NO=0.5400D+00*MGLY+... & + 3.0000D-01 * RXRAT( 198 ) ! MVKP+NO=0.3000D+00*MGLY+... & + 2.1000D-01 * RXRAT( 199 ) ! UALP+NO=0.2100D+00*MGLY+... & + RXRAT( 259 ) ! PER1+MO2=MGLY+HCHO+0.2000D+... & + RXRAT( 262 ) ! PER2+MO2=MGLY+HCHO+0.2000D+... & + 6.3200D-01 * RXRAT( 263 ) ! XYOP+MO2=0.6320D+00*MGLY+... & + 5.0000D-01 * RXRAT( 274 ) ! MVKP+MO2=0.5000D+00*MGLY+... & + 1.0500D-01 * RXRAT( 275 ) ! UALP+MO2=0.1050D+00*MGLY+... & + RXRAT( 295 ) ! PER1+ACO3=MGLY+MO2+HO2+DCB1 & + RXRAT( 298 ) ! PER2+ACO3=MGLY+MO2+HO2+... & + 6.3200D-01 * RXRAT( 299 ) ! XYOP+ACO3=0.6320D+00*MGLY+... & + 5.0000D-01 * RXRAT( 310 ) ! MVKP+ACO3=0.5000D+00*MGLY+... & + 1.0500D-01 * RXRAT( 311 ) ! UALP+ACO3=0.1050D+00*MGLY+... & + 5.0000D-01 * RXRAT( 333 ) ! PER1+NO3=0.5000D+00*MGLY+... & + RXRAT( 336 ) ! PER2+NO3=MGLY+NO2+HO2+DCB1+... & + 6.3200D-01 * RXRAT( 337 ) ! XYOP+NO3=0.6320D+00*MGLY+... & + 3.0000D-01 * RXRAT( 348 ) ! MVKP+NO3=0.3000D+00*MGLY+... & + 2.1000D-01 * RXRAT( 349 ) ! UALP+NO3=0.2100D+00*MGLY+... LOSS( MGLY ) = RXRAT( 24 ) ! MGLY=HO2+ACO3+CO & + RXRAT( 100 ) ! MGLY+HO=ACO3+CO & + RXRAT( 154 ) ! MGLY+NO3=ACO3+CO+HNO3 PROD( DCB1 ) = 7.0000D-01 * RXRAT( 137 ) ! DCB2+O3=0.7000D+00*DCB1+... & + 7.0000D-01 * RXRAT( 138 ) ! DCB3+O3=0.7000D+00*DCB1+... & + 5.0000D-01 * RXRAT( 183 ) ! PER1+NO=0.5000D+00*DCB1+... & + 9.5000D-01 * RXRAT( 186 ) ! PER2+NO=0.9500D+00*DCB1+... & + 7.0000D-01 * RXRAT( 187 ) ! XYOP+NO=0.7000D+00*DCB1+... & + 6.7000D-01 * RXRAT( 194 ) ! MEKP+NO=0.6700D+00*DCB1+... & + RXRAT( 259 ) ! PER1+MO2=DCB1+HCHO+MGLY+... & + RXRAT( 262 ) ! PER2+MO2=DCB1+HCHO+MGLY+... & + 7.3700D-01 * RXRAT( 263 ) ! XYOP+MO2=0.7370D+00*DCB1+... & + 3.3400D-01 * RXRAT( 270 ) ! MEKP+MO2=0.3340D+00*DCB1+... & + 5.0000D-01 * RXRAT( 271 ) ! KETP+MO2=0.5000D+00*DCB1+... & + RXRAT( 295 ) ! PER1+ACO3=DCB1+MO2+MGLY+HO2 & + RXRAT( 298 ) ! PER2+ACO3=DCB1+MO2+MGLY+... & + 7.3700D-01 * RXRAT( 299 ) ! XYOP+ACO3=0.7370D+00*DCB1+... & + 3.3400D-01 * RXRAT( 306 ) ! MEKP+ACO3=0.3340D+00*DCB1+... & + 5.0000D-01 * RXRAT( 307 ) ! KETP+ACO3=0.5000D+00*DCB1+... & + 5.0000D-01 * RXRAT( 333 ) ! PER1+NO3=0.5000D+00*DCB1+... & + RXRAT( 336 ) ! PER2+NO3=DCB1+NO2+MGLY+HO2+... & + 7.3700D-01 * RXRAT( 337 ) ! XYOP+NO3=0.7370D+00*DCB1+... & + 6.7000D-01 * RXRAT( 344 ) ! MEKP+NO3=0.6700D+00*DCB1+... & + RXRAT( 345 ) ! KETP+NO3=DCB1+NO2+HO2 LOSS( DCB1 ) = RXRAT( 25 ) ! DCB1=0.1500D+01*HO2+... & + RXRAT( 101 ) ! DCB1+HO=0.5200D+00*HO2+... & + RXRAT( 136 ) ! DCB1+O3=0.5000D-01*HO+HO2+... PROD( DCB2 ) = 2.8000D-01 * RXRAT( 160 ) ! TR2=0.2800D+00*DCB2+... & + 4.9000D-01 * RXRAT( 161 ) ! TOLP=0.4900D+00*DCB2+... & + 2.2400D-01 * RXRAT( 162 ) ! XY2=0.2240D+00*DCB2+... & + 4.9000D-01 * RXRAT( 163 ) ! XYLP=0.4900D+00*DCB2+... & + 2.2400D-01 * RXRAT( 164 ) ! XYO2=0.2240D+00*DCB2+... & + 4.9000D-01 * RXRAT( 165 ) ! XYOP=0.4900D+00*DCB2+... & + 4.5900D-01 * RXRAT( 180 ) ! BENP+NO=0.4590D+00*DCB2+... & + 9.5000D-01 * RXRAT( 182 ) ! TOLP+NO=0.9500D+00*DCB2+... & + 7.3000D-02 * RXRAT( 187 ) ! XYOP+NO=0.7300D-01*DCB2+... & + 4.5900D-01 * RXRAT( 256 ) ! BENP+MO2=0.4590D+00*DCB2+... & + RXRAT( 258 ) ! TOLP+MO2=DCB2+HCHO+0.2710D+... & + RXRAT( 261 ) ! XYLP+MO2=DCB2+HCHO+0.2000D+... & + 7.7000D-02 * RXRAT( 263 ) ! XYOP+MO2=0.7700D-01*DCB2+... & + 4.5900D-01 * RXRAT( 292 ) ! BENP+ACO3=0.4590D+00*DCB2+... & + RXRAT( 294 ) ! TOLP+ACO3=DCB2+MO2+HO2 & + RXRAT( 297 ) ! XYLP+ACO3=DCB2+MO2+HO2 & + 7.7000D-02 * RXRAT( 299 ) ! XYOP+ACO3=0.7700D-01*DCB2+... & + 5.0000D-01 * RXRAT( 330 ) ! BENP+NO3=0.5000D+00*DCB2+... & + RXRAT( 332 ) ! TOLP+NO3=DCB2+NO2+HO2 & + 7.7000D-02 * RXRAT( 337 ) ! XYOP+NO3=0.7700D-01*DCB2+... LOSS( DCB2 ) = RXRAT( 26 ) ! DCB2=0.1500D+01*HO2+... & + RXRAT( 102 ) ! DCB2+HO=0.5200D+00*HO2+... & + RXRAT( 137 ) ! DCB2+O3=0.5000D-01*HO+HO2+... PROD( BALD ) = 2.0000D-02 * RXRAT( 127 ) ! OLT+O3=0.2000D-01*BALD+... & + 8.5000D-01 * RXRAT( 139 ) ! EPX+O3=0.8500D+00*BALD+... & + RXRAT( 181 ) ! TLP1+NO=BALD+NO2 & + 5.0000D-01 * RXRAT( 183 ) ! PER1+NO=0.5000D+00*BALD+... & + RXRAT( 184 ) ! XYL1+NO=BALD+NO2 & + RXRAT( 257 ) ! TLP1+MO2=BALD+HCHO+HO2 & + RXRAT( 260 ) ! XYL1+MO2=BALD+HCHO+HO2 & + RXRAT( 293 ) ! TLP1+ACO3=BALD+MO2 & + RXRAT( 296 ) ! XYL1+ACO3=BALD+MO2 & + RXRAT( 331 ) ! TLP1+NO3=BALD+NO2 & + 5.0000D-01 * RXRAT( 333 ) ! PER1+NO3=0.5000D+00*BALD+... & + RXRAT( 334 ) ! XYL1+NO3=BALD+NO2 LOSS( BALD ) = RXRAT( 27 ) ! BALD=CHO+HO2+CO & + RXRAT( 104 ) ! BALD+HO=BALP PROD( CHO ) = RXRAT( 27 ) ! BALD=CHO+HO2+CO & + 7.0000D-02 * RXRAT( 105 ) ! PHEN+HO=0.7000D-01*CHO+... & + 7.0000D-02 * RXRAT( 106 ) ! CSL+HO=0.7000D-01*CHO+... & + 4.0000D-01 * RXRAT( 155 ) ! PHEN+NO3=0.4000D+00*CHO+... & + 4.0000D-01 * RXRAT( 156 ) ! CSL+NO3=0.4000D+00*CHO+... LOSS( CHO ) = RXRAT( 210 ) ! CHO+NO2=ONIT & + RXRAT( 241 ) ! CHO+HO2=CSL PROD( OP1 ) = RXRAT( 212 ) ! MO2+HO2=OP1 LOSS( OP1 ) = RXRAT( 28 ) ! OP1=HO+HO2+HCHO & + RXRAT( 113 ) ! OP1+HO=0.3500D+00*HO+... PROD( OP2 ) = 7.8000D-01 * RXRAT( 102 ) ! DCB2+HO=0.7800D+00*OP2+... & + 7.9000D-01 * RXRAT( 103 ) ! DCB3+HO=0.7900D+00*OP2+... & + 6.5000D-01 * RXRAT( 136 ) ! DCB1+O3=0.6500D+00*OP2+HO2+... & + 6.5000D-01 * RXRAT( 137 ) ! DCB2+O3=0.6500D+00*OP2+HO2+... & + 6.8000D-01 * RXRAT( 202 ) ! ADDC+NO=0.6800D+00*OP2+NO2+... & + RXRAT( 207 ) ! ADCN+NO=OP2+GLY+0.2000D+01*NO2 & + RXRAT( 213 ) ! ETHP+HO2=OP2 & + RXRAT( 214 ) ! HC3P+HO2=OP2 & + RXRAT( 215 ) ! HC5P+HO2=OP2 & + RXRAT( 216 ) ! HC8P+HO2=OP2 & + RXRAT( 217 ) ! ETEP+HO2=OP2 & + RXRAT( 218 ) ! OLTP+HO2=OP2 & + RXRAT( 219 ) ! OLIP+HO2=OP2 & + RXRAT( 220 ) ! BENP+HO2=OP2 & + RXRAT( 221 ) ! TLP1+HO2=OP2 & + RXRAT( 222 ) ! TOLP+HO2=OP2 & + RXRAT( 223 ) ! PER1+HO2=OP2 & + RXRAT( 224 ) ! XYL1+HO2=OP2 & + RXRAT( 225 ) ! XYLP+HO2=OP2 & + RXRAT( 226 ) ! PER2+HO2=OP2 & + RXRAT( 227 ) ! XYOP+HO2=OP2 & + RXRAT( 229 ) ! APIP+HO2=OP2 & + RXRAT( 230 ) ! LIMP+HO2=OP2 & + 8.5000D-01 * RXRAT( 233 ) ! ACTP+HO2=0.8500D+00*OP2+... & + RXRAT( 234 ) ! MEKP+HO2=OP2 & + RXRAT( 235 ) ! KETP+HO2=OP2 & + RXRAT( 238 ) ! MVKP+HO2=OP2 & + RXRAT( 239 ) ! UALP+HO2=OP2 & + RXRAT( 240 ) ! ADDC+HO2=OP2 & + RXRAT( 242 ) ! MCTP+HO2=OP2 & + RXRAT( 243 ) ! ORAP+HO2=OP2 & + RXRAT( 246 ) ! ADCN+HO2=OP2 & + RXRAT( 247 ) ! XO2+HO2=OP2 & + 6.8000D-01 * RXRAT( 278 ) ! ADDC+MO2=0.6800D+00*OP2+... & + 7.0000D-01 * RXRAT( 283 ) ! ADCN+MO2=0.7000D+00*OP2+... & + 6.8000D-01 * RXRAT( 314 ) ! ADDC+ACO3=0.6800D+00*OP2+... & + 7.0000D-01 * RXRAT( 319 ) ! ADCN+ACO3=0.7000D+00*OP2+... & + 6.8000D-01 * RXRAT( 352 ) ! ADDC+NO3=0.6800D+00*OP2+... & + RXRAT( 357 ) ! ADCN+NO3=OP2+GLY+0.2000D+... LOSS( OP2 ) = RXRAT( 29 ) ! OP2=HO+HO2+ALD & + RXRAT( 114 ) ! OP2+HO=0.1000D-01*HO+... PROD( PAA ) = 1.1000D-01 * RXRAT( 138 ) ! DCB3+O3=0.1100D+00*PAA+HO2+... & + 4.1000D-01 * RXRAT( 231 ) ! ACO3+HO2=0.4100D+00*PAA+... & + 4.1000D-01 * RXRAT( 232 ) ! RCO3+HO2=0.4100D+00*PAA+... LOSS( PAA ) = RXRAT( 30 ) ! PAA=HO+MO2 & + RXRAT( 119 ) ! PAA+HO=0.3500D+00*HO+... PROD( ONIT ) = RXRAT( 152 ) ! UALD+NO3=ONIT+XO2+0.6680D+... & + 6.5000D-02 * RXRAT( 174 ) ! HC3P+NO=0.6500D-01*ONIT+... & + 1.3600D-01 * RXRAT( 175 ) ! HC5P+NO=0.1360D+00*ONIT+... & + 2.6100D-01 * RXRAT( 176 ) ! HC8P+NO=0.2610D+00*ONIT+... & + 3.0000D-02 * RXRAT( 178 ) ! OLTP+NO=0.3000D-01*ONIT+... & + 5.0000D-02 * RXRAT( 179 ) ! OLIP+NO=0.5000D-01*ONIT+... & + 8.2000D-02 * RXRAT( 180 ) ! BENP+NO=0.8200D-01*ONIT+... & + 5.0000D-02 * RXRAT( 182 ) ! TOLP+NO=0.5000D-01*ONIT+... & + 5.0000D-02 * RXRAT( 183 ) ! PER1+NO=0.5000D-01*ONIT+... & + 5.0000D-02 * RXRAT( 185 ) ! XYLP+NO=0.5000D-01*ONIT+... & + 5.0000D-02 * RXRAT( 186 ) ! PER2+NO=0.5000D-01*ONIT+... & + 5.0000D-02 * RXRAT( 187 ) ! XYOP+NO=0.5000D-01*ONIT+... & + 1.8000D-01 * RXRAT( 189 ) ! APIP+NO=0.1800D+00*ONIT+... & + RXRAT( 205 ) ! OLNN+NO=ONIT+HO2+NO2 & + RXRAT( 209 ) ! BAL2+NO2=ONIT & + RXRAT( 210 ) ! CHO+NO2=ONIT & + RXRAT( 211 ) ! MCTO+NO2=ONIT & + RXRAT( 244 ) ! OLNN+HO2=ONIT & + RXRAT( 245 ) ! OLND+HO2=ONIT & + RXRAT( 281 ) ! OLNN+MO2=ONIT+HCHO+0.2000D+... & + 5.0000D-01 * RXRAT( 282 ) ! OLND+MO2=0.5000D+00*ONIT+... & + 3.0000D-01 * RXRAT( 283 ) ! ADCN+MO2=0.3000D+00*ONIT+... & + RXRAT( 317 ) ! OLNN+ACO3=ONIT+MO2+HO2 & + 3.0000D-01 * RXRAT( 319 ) ! ADCN+ACO3=0.3000D+00*ONIT+... & + RXRAT( 355 ) ! OLNN+NO3=ONIT+NO2+HO2 & + 2.0000D+00 * RXRAT( 358 ) ! OLNN+OLNN=0.2000D+01*ONIT+HO2 & + 1.5000D+00 * RXRAT( 359 ) ! OLNN+OLND=0.1500D+01*ONIT+... & + RXRAT( 360 ) ! OLND+OLND=ONIT+0.5040D+... LOSS( ONIT ) = RXRAT( 31 ) ! ONIT=HO2+NO2+0.2000D+... & + RXRAT( 123 ) ! ONIT+HO=HC3P+NO2 PROD( SO2 ) = 0.0D0 LOSS( SO2 ) = RXRAT( 69 ) ! SO2+HO=HO2+SULF+SULRXN PROD( SULF ) = RXRAT( 69 ) ! SO2+HO=SULF+HO2+SULRXN LOSS( SULF ) = 0.0D0 PROD( SULRXN ) = RXRAT( 69 ) ! SO2+HO=SULRXN+SULF+HO2 LOSS( SULRXN ) = 0.0D0 PROD( ETH ) = 2.0000D-02 * RXRAT( 127 ) ! OLT+O3=0.2000D-01*ETH+... & + 1.0000D-02 * RXRAT( 128 ) ! OLI+O3=0.1000D-01*ETH+... LOSS( ETH ) = RXRAT( 72 ) ! ETH+HO=ETHP PROD( HC3 ) = 1.5000D-02 * RXRAT( 127 ) ! OLT+O3=0.1500D-01*HC3+... & + 1.0000D-02 * RXRAT( 128 ) ! OLI+O3=0.1000D-01*HC3+... LOSS( HC3 ) = RXRAT( 73 ) ! HC3+HO=HC3P PROD( HC3P ) = RXRAT( 73 ) ! HC3+HO=HC3P & + 4.4000D-01 * RXRAT( 114 ) ! OP2+HO=0.4400D+00*HC3P+... & + RXRAT( 123 ) ! ONIT+HO=HC3P+NO2 & + 4.0000D-02 * RXRAT( 127 ) ! OLT+O3=0.4000D-01*HC3P+... & + 4.0000D-02 * RXRAT( 128 ) ! OLI+O3=0.4000D-01*HC3P+... LOSS( HC3P ) = RXRAT( 174 ) ! HC3P+NO=0.6600D+00*HO2+... & + RXRAT( 214 ) ! HC3P+HO2=OP2 & + RXRAT( 250 ) ! HC3P+MO2=0.8940D+00*HO2+... & + RXRAT( 286 ) ! HC3P+ACO3=0.3940D+00*HO2+... & + RXRAT( 324 ) ! HC3P+NO3=0.2540D+00*HO2+... PROD( HC5 ) = 6.0000D-03 * RXRAT( 127 ) ! OLT+O3=0.6000D-02*HC5+... LOSS( HC5 ) = RXRAT( 74 ) ! HC5+HO=HC5P PROD( HC5P ) = RXRAT( 74 ) ! HC5+HO=HC5P & + 2.0000D-02 * RXRAT( 127 ) ! OLT+O3=0.2000D-01*HC5P+... LOSS( HC5P ) = RXRAT( 175 ) ! HC5P+NO=0.2000D+00*HO2+... & + RXRAT( 215 ) ! HC5P+HO2=OP2 & + RXRAT( 251 ) ! HC5P+MO2=0.8420D+00*HO2+... & + RXRAT( 287 ) ! HC5P+ACO3=0.3420D+00*HO2+... & + RXRAT( 325 ) ! HC5P+NO3=0.4880D+00*HO2+... PROD( HC8 ) = 0.0D0 LOSS( HC8 ) = RXRAT( 75 ) ! HC8+HO=0.4900D-01*HO2+... PROD( HC8P ) = 9.5100D-01 * RXRAT( 75 ) ! HC8+HO=0.9510D+00*HC8P+... LOSS( HC8P ) = RXRAT( 176 ) ! HC8P+NO=0.6060D+00*HO2+... & + RXRAT( 216 ) ! HC8P+HO2=OP2 & + RXRAT( 252 ) ! HC8P+MO2=0.9100D+00*HO2+... & + RXRAT( 288 ) ! HC8P+ACO3=0.3030D+00*HO2+... & + RXRAT( 326 ) ! HC8P+NO3=0.8200D+00*HO2+... PROD( ETE ) = 0.0D0 LOSS( ETE ) = RXRAT( 76 ) ! ETE+HO=ETEP & + RXRAT( 126 ) ! ETE+O3=0.8000D-01*HO+... & + RXRAT( 141 ) ! ETE+NO3=0.8000D+00*OLNN+... PROD( ETEP ) = RXRAT( 76 ) ! ETE+HO=ETEP LOSS( ETEP ) = RXRAT( 177 ) ! ETEP+NO=HO2+NO2+0.1600D+... & + RXRAT( 217 ) ! ETEP+HO2=OP2 & + RXRAT( 253 ) ! ETEP+MO2=HO2+0.1950D+... & + RXRAT( 289 ) ! ETEP+ACO3=0.5000D+00*HO2+... & + RXRAT( 327 ) ! ETEP+NO3=HO2+NO2+0.1600D+... PROD( OLT ) = 3.5000D-01 * RXRAT( 129 ) ! DIEN+O3=0.3500D+00*OLT+... & + 1.5300D-01 * RXRAT( 130 ) ! ISO+O3=0.1530D+00*OLT+... & + 4.6000D-01 * RXRAT( 132 ) ! LIM+O3=0.4600D+00*OLT+... LOSS( OLT ) = RXRAT( 77 ) ! OLT+HO=OLTP & + RXRAT( 127 ) ! OLT+O3=0.2200D+00*HO+... & + RXRAT( 142 ) ! OLT+NO3=0.4300D+00*OLNN+... PROD( OLTP ) = RXRAT( 77 ) ! OLT+HO=OLTP LOSS( OLTP ) = RXRAT( 178 ) ! OLTP+NO=0.7800D+00*HO2+... & + RXRAT( 218 ) ! OLTP+HO2=OP2 & + RXRAT( 254 ) ! OLTP+MO2=HO2+0.1500D+... & + RXRAT( 290 ) ! OLTP+ACO3=0.5000D+00*HO2+... & + RXRAT( 328 ) ! OLTP+NO3=0.4700D+00*ALD+... PROD( OLI ) = 5.0000D-02 * RXRAT( 190 ) ! LIMP+NO=0.5000D-01*OLI+... & + 1.9200D-01 * RXRAT( 266 ) ! LIMP+MO2=0.1920D+00*OLI+... & + 1.9200D-01 * RXRAT( 302 ) ! LIMP+ACO3=0.1920D+00*OLI+... & + 3.8500D-01 * RXRAT( 340 ) ! LIMP+NO3=0.3850D+00*OLI+... LOSS( OLI ) = RXRAT( 78 ) ! OLI+HO=OLIP & + RXRAT( 128 ) ! OLI+O3=0.4600D+00*HO+... & + RXRAT( 143 ) ! OLI+NO3=0.1100D+00*OLNN+... PROD( OLIP ) = RXRAT( 78 ) ! OLI+HO=OLIP & + RXRAT( 79 ) ! DIEN+HO=OLIP LOSS( OLIP ) = RXRAT( 179 ) ! OLIP+NO=0.8300D+00*HO2+... & + RXRAT( 219 ) ! OLIP+HO2=OP2 & + RXRAT( 255 ) ! OLIP+MO2=HO2+0.7500D+... & + RXRAT( 291 ) ! OLIP+ACO3=0.5000D+00*HO2+... & + RXRAT( 329 ) ! OLIP+NO3=0.8600D+00*HO2+... PROD( DIEN ) = 0.0D0 LOSS( DIEN ) = RXRAT( 79 ) ! DIEN+HO=OLIP & + RXRAT( 129 ) ! DIEN+O3=0.9000D-01*O3P+... & + RXRAT( 144 ) ! DIEN+NO3=0.9000D+00*OLNN+... PROD( ACE ) = 0.0D0 LOSS( ACE ) = RXRAT( 80 ) ! ACE+HO=0.6500D+00*HO+... PROD( ORA1 ) = 3.5000D-01 * RXRAT( 80 ) ! ACE+HO=0.3500D+00*ORA1+... & + 3.7000D-01 * RXRAT( 126 ) ! ETE+O3=0.3700D+00*ORA1+... & + 3.0000D-02 * RXRAT( 127 ) ! OLT+O3=0.3000D-01*ORA1+... & + 1.5000D-01 * RXRAT( 129 ) ! DIEN+O3=0.1500D+00*ORA1+... & + 2.8000D-01 * RXRAT( 130 ) ! ISO+O3=0.2800D+00*ORA1+... & + 1.0000D-02 * RXRAT( 132 ) ! LIM+O3=0.1000D-01*ORA1+... & + 4.5000D-01 * RXRAT( 133 ) ! MACR+O3=0.4500D+00*ORA1+... & + 7.0000D-02 * RXRAT( 134 ) ! MVK+O3=0.7000D-01*ORA1+... & + 4.4000D-02 * RXRAT( 135 ) ! UALD+O3=0.4400D-01*ORA1+... & + 2.5000D-01 * RXRAT( 138 ) ! DCB3+O3=0.2500D+00*ORA1+... & + 7.0000D-02 * RXRAT( 189 ) ! APIP+NO=0.7000D-01*ORA1+... & + 7.0000D-02 * RXRAT( 190 ) ! LIMP+NO=0.7000D-01*ORA1+... LOSS( ORA1 ) = RXRAT( 117 ) ! ORA1+HO=HO2 PROD( BENZENE ) = 3.2000D-02 * RXRAT( 127 ) ! OLT+O3=0.3200D-01*BENZENE+... LOSS( BENZENE ) = RXRAT( 81 ) ! BENZENE+HO=0.6480D+00*HO2+... PROD( BENP ) = 3.5200D-01 * RXRAT( 81 ) ! BENZENE+HO=0.3520D+00*BENP+... LOSS( BENP ) = RXRAT( 180 ) ! BENP+NO=0.9180D+00*HO2+... & + RXRAT( 220 ) ! BENP+HO2=OP2 & + RXRAT( 256 ) ! BENP+MO2=0.1600D+01*HO2+... & + RXRAT( 292 ) ! BENP+ACO3=0.6000D+00*HO2+... & + RXRAT( 330 ) ! BENP+NO3=HO2+NO2+0.5000D+... PROD( EPX ) = 1.1800D-01 * RXRAT( 81 ) ! BENZENE+HO=0.1180D+00*EPX+... & + 2.8000D-01 * RXRAT( 160 ) ! TR2=0.2800D+00*EPX+0.2900D+... & + 8.4000D-01 * RXRAT( 162 ) ! XY2=0.8400D+00*EPX+0.3080D+... & + 8.4000D-01 * RXRAT( 164 ) ! XYO2=0.8400D+00*EPX+... LOSS( EPX ) = RXRAT( 107 ) ! EPX+HO=HO2+XO2+CO+ALD & + RXRAT( 139 ) ! EPX+O3=0.5000D-01*HO+... & + RXRAT( 157 ) ! EPX+NO3=0.5000D+00*HO+... PROD( PHEN ) = 5.3000D-01 * RXRAT( 81 ) ! BENZENE+HO=0.5300D+00*PHEN+... LOSS( PHEN ) = RXRAT( 105 ) ! PHEN+HO=0.7300D+00*HO2+... & + RXRAT( 155 ) ! PHEN+NO3=0.4000D+00*CHO+... PROD( BENZRO2 ) = RXRAT( 81 ) ! BENZENE+HO=BENZRO2+0.3520D+... LOSS( BENZRO2 ) = RXRAT( 368 ) ! BENZRO2+NO=NO+BNZNRXN & + RXRAT( 369 ) ! BENZRO2+HO2=HO2+BNZHRXN PROD( TOL ) = 0.0D0 LOSS( TOL ) = RXRAT( 82 ) ! TOL+HO=0.1770D+00*HO2+... PROD( TR2 ) = 7.6300D-01 * RXRAT( 82 ) ! TOL+HO=0.7630D+00*TR2+... LOSS( TR2 ) = RXRAT( 160 ) ! TR2=0.2800D+00*HO+0.2900D+... PROD( TLP1 ) = 6.0000D-02 * RXRAT( 82 ) ! TOL+HO=0.6000D-01*TLP1+... LOSS( TLP1 ) = RXRAT( 181 ) ! TLP1+NO=NO2+BALD & + RXRAT( 221 ) ! TLP1+HO2=OP2 & + RXRAT( 257 ) ! TLP1+MO2=HO2+HCHO+BALD & + RXRAT( 293 ) ! TLP1+ACO3=MO2+BALD & + RXRAT( 331 ) ! TLP1+NO3=NO2+BALD PROD( CSL ) = 1.7700D-01 * RXRAT( 82 ) ! TOL+HO=0.1770D+00*CSL+... & + 1.7700D-01 * RXRAT( 83 ) ! XYM+HO=0.1770D+00*CSL+... & + 1.7700D-01 * RXRAT( 84 ) ! XYP+HO=0.1770D+00*CSL+... & + 1.7700D-01 * RXRAT( 85 ) ! XYO+HO=0.1770D+00*CSL+... & + 1.0000D-02 * RXRAT( 160 ) ! TR2=0.1000D-01*CSL+0.2900D+... & + 1.0000D-02 * RXRAT( 161 ) ! TOLP=0.1000D-01*CSL+... & + 1.0000D-02 * RXRAT( 162 ) ! XY2=0.1000D-01*CSL+0.3080D+... & + 1.0000D-02 * RXRAT( 163 ) ! XYLP=0.1000D-01*CSL+... & + 1.0000D-02 * RXRAT( 164 ) ! XYO2=0.1000D-01*CSL+... & + 1.0000D-02 * RXRAT( 165 ) ! XYOP=0.1000D-01*CSL+... & + RXRAT( 241 ) ! CHO+HO2=CSL LOSS( CSL ) = RXRAT( 106 ) ! CSL+HO=0.7300D+00*HO2+... & + RXRAT( 156 ) ! CSL+NO3=0.4000D+00*CHO+... PROD( TOLRO2 ) = RXRAT( 82 ) ! TOL+HO=TOLRO2+0.7630D+... LOSS( TOLRO2 ) = RXRAT( 364 ) ! TOLRO2+NO=NO+TOLNRXN & + RXRAT( 365 ) ! TOLRO2+HO2=HO2+TOLHRXN PROD( XYM ) = 0.0D0 LOSS( XYM ) = RXRAT( 83 ) ! XYM+HO=0.1770D+00*HO2+... PROD( XY2 ) = 7.6300D-01 * RXRAT( 83 ) ! XYM+HO=0.7630D+00*XY2+... & + 7.6300D-01 * RXRAT( 84 ) ! XYP+HO=0.7630D+00*XY2+... LOSS( XY2 ) = RXRAT( 162 ) ! XY2=0.1580D+00*HO+0.3080D+... PROD( XYL1 ) = 6.0000D-02 * RXRAT( 83 ) ! XYM+HO=0.6000D-01*XYL1+... & + 6.0000D-02 * RXRAT( 84 ) ! XYP+HO=0.6000D-01*XYL1+... & + 6.0000D-02 * RXRAT( 85 ) ! XYO+HO=0.6000D-01*XYL1+... LOSS( XYL1 ) = RXRAT( 184 ) ! XYL1+NO=NO2+BALD & + RXRAT( 224 ) ! XYL1+HO2=OP2 & + RXRAT( 260 ) ! XYL1+MO2=HO2+HCHO+BALD & + RXRAT( 296 ) ! XYL1+ACO3=MO2+BALD & + RXRAT( 334 ) ! XYL1+NO3=NO2+BALD PROD( XYLRO2 ) = 9.8000D-01 * RXRAT( 83 ) ! XYM+HO=0.9800D+00*XYLRO2+... & + RXRAT( 84 ) ! XYP+HO=XYLRO2+0.7630D+... & + RXRAT( 85 ) ! XYO+HO=XYLRO2+0.7630D+... LOSS( XYLRO2 ) = RXRAT( 366 ) ! XYLRO2+NO=NO+XYLNRXN & + RXRAT( 367 ) ! XYLRO2+HO2=HO2+XYLHRXN PROD( XYP ) = 0.0D0 LOSS( XYP ) = RXRAT( 84 ) ! XYP+HO=0.1770D+00*HO2+... PROD( XYO ) = 0.0D0 LOSS( XYO ) = RXRAT( 85 ) ! XYO+HO=0.1770D+00*HO2+... PROD( XYO2 ) = 7.6300D-01 * RXRAT( 85 ) ! XYO+HO=0.7630D+00*XYO2+... LOSS( XYO2 ) = RXRAT( 164 ) ! XYO2=0.1580D+00*HO+0.3080D+... PROD( ISO ) = 0.0D0 LOSS( ISO ) = RXRAT( 86 ) ! ISO+HO=ISOP+ISOPRXN & + RXRAT( 130 ) ! ISO+O3=0.2500D+00*HO+... & + RXRAT( 145 ) ! ISO+NO3=ISON+ISOPRXN PROD( ISOP ) = RXRAT( 86 ) ! ISO+HO=ISOP+ISOPRXN LOSS( ISOP ) = RXRAT( 188 ) ! ISOP+NO=0.8800D+00*HO2+... & + RXRAT( 228 ) ! ISOP+HO2=ISHP & + RXRAT( 264 ) ! ISOP+MO2=HO2+0.1310D+... & + RXRAT( 300 ) ! ISOP+ACO3=0.5000D+00*HO2+... & + RXRAT( 338 ) ! ISOP+NO3=HO2+NO2+0.7500D+... PROD( ISOPRXN ) = RXRAT( 86 ) ! ISO+HO=ISOPRXN+ISOP & + RXRAT( 145 ) ! ISO+NO3=ISOPRXN+ISON LOSS( ISOPRXN ) = 0.0D0 PROD( API ) = 0.0D0 LOSS( API ) = RXRAT( 87 ) ! API+HO=APIP+TRPRXN & + RXRAT( 131 ) ! API+O3=0.8500D+00*HO+... & + RXRAT( 146 ) ! API+NO3=0.1000D+00*OLNN+... PROD( APIP ) = RXRAT( 87 ) ! API+HO=APIP+TRPRXN LOSS( APIP ) = RXRAT( 189 ) ! APIP+NO=0.8200D+00*HO2+... & + RXRAT( 229 ) ! APIP+HO2=OP2 & + RXRAT( 265 ) ! APIP+MO2=HO2+0.7500D+... & + RXRAT( 301 ) ! APIP+ACO3=0.5000D+00*HO2+... & + RXRAT( 339 ) ! APIP+NO3=HO2+NO2+ALD+KET PROD( TRPRXN ) = RXRAT( 87 ) ! API+HO=TRPRXN+APIP & + RXRAT( 88 ) ! LIM+HO=TRPRXN+LIMP & + RXRAT( 131 ) ! API+O3=TRPRXN+0.1000D+... & + RXRAT( 132 ) ! LIM+O3=TRPRXN+0.1000D+... & + RXRAT( 146 ) ! API+NO3=TRPRXN+0.9000D+... & + RXRAT( 147 ) ! LIM+NO3=TRPRXN+0.2900D+... LOSS( TRPRXN ) = 0.0D0 PROD( LIM ) = 0.0D0 LOSS( LIM ) = RXRAT( 88 ) ! LIM+HO=LIMP+TRPRXN & + RXRAT( 132 ) ! LIM+O3=0.8500D+00*HO+... & + RXRAT( 147 ) ! LIM+NO3=0.7100D+00*OLNN+... PROD( LIMP ) = RXRAT( 88 ) ! LIM+HO=LIMP+TRPRXN LOSS( LIMP ) = RXRAT( 190 ) ! LIMP+NO=HO2+0.6800D+... & + RXRAT( 230 ) ! LIMP+HO2=OP2 & + RXRAT( 266 ) ! LIMP+MO2=HO2+0.1040D+... & + RXRAT( 302 ) ! LIMP+ACO3=0.5000D+00*HO2+... & + RXRAT( 340 ) ! LIMP+NO3=HO2+NO2+0.3850D+... PROD( RCO3 ) = RXRAT( 91 ) ! ALD+HO=RCO3 & + 6.0000D-01 * RXRAT( 136 ) ! DCB1+O3=0.6000D+00*RCO3+... & + 6.0000D-01 * RXRAT( 137 ) ! DCB2+O3=0.6000D+00*RCO3+... & + RXRAT( 150 ) ! ALD+NO3=RCO3+HNO3 & + 2.5000D-01 * RXRAT( 162 ) ! XY2=0.2500D+00*RCO3+... & + 2.5000D-01 * RXRAT( 164 ) ! XYO2=0.2500D+00*RCO3+... & + RXRAT( 169 ) ! PPN=RCO3+NO2 LOSS( RCO3 ) = RXRAT( 168 ) ! RCO3+NO2=PPN & + RXRAT( 192 ) ! RCO3+NO=ETHP+NO2 & + RXRAT( 232 ) ! RCO3+HO2=0.4400D+00*HO+... & + RXRAT( 268 ) ! RCO3+MO2=0.9000D+00*HO2+... & + RXRAT( 304 ) ! RCO3+ACO3=MO2+ETHP & + 2.0000D+00 * RXRAT( 321 ) ! RCO3+RCO3=0.2000D+01*ETHP & + RXRAT( 342 ) ! RCO3+NO3=ETHP+NO2 & + RXRAT( 362 ) ! RCO3+XO2=ETHP PROD( ACTP ) = RXRAT( 92 ) ! ACT+HO=ACTP LOSS( ACTP ) = RXRAT( 193 ) ! ACTP+NO=ACO3+NO2+HCHO & + RXRAT( 233 ) ! ACTP+HO2=0.1500D+00*HO+... & + RXRAT( 269 ) ! ACTP+MO2=0.5000D+00*HO2+... & + RXRAT( 305 ) ! ACTP+ACO3=0.5000D+00*MO2+... & + RXRAT( 343 ) ! ACTP+NO3=ACO3+NO2+HCHO PROD( MEKP ) = RXRAT( 93 ) ! MEK+HO=MEKP LOSS( MEKP ) = RXRAT( 194 ) ! MEKP+NO=0.6700D+00*HO2+NO2+... & + RXRAT( 234 ) ! MEKP+HO2=OP2 & + RXRAT( 270 ) ! MEKP+MO2=0.8340D+00*HO2+... & + RXRAT( 306 ) ! MEKP+ACO3=0.3300D+00*HO2+... & + RXRAT( 344 ) ! MEKP+NO3=0.6700D+00*HO2+... PROD( KETP ) = RXRAT( 94 ) ! KET+HO=KETP & + 2.0000D-02 * RXRAT( 129 ) ! DIEN+O3=0.2000D-01*KETP+... & + 4.2000D-01 * RXRAT( 131 ) ! API+O3=0.4200D+00*KETP+... & + 4.2000D-01 * RXRAT( 132 ) ! LIM+O3=0.4200D+00*KETP+... LOSS( KETP ) = RXRAT( 195 ) ! KETP+NO=0.7700D+00*HO2+... & + RXRAT( 235 ) ! KETP+HO2=OP2 & + RXRAT( 271 ) ! KETP+MO2=HO2+0.7500D+... & + RXRAT( 307 ) ! KETP+ACO3=0.5000D+00*HO2+... & + RXRAT( 345 ) ! KETP+NO3=HO2+NO2+DCB1 PROD( MCP ) = 4.3000D-01 * RXRAT( 96 ) ! MACR+HO=0.4300D+00*MCP+... LOSS( MCP ) = RXRAT( 197 ) ! MCP+NO=NO2+0.5000D+00*HO2+... & + RXRAT( 237 ) ! MCP+HO2=MAHP & + RXRAT( 273 ) ! MCP+MO2=NO2+HO2+0.1500D+... & + RXRAT( 309 ) ! MCP+ACO3=NO2+0.5000D+... & + RXRAT( 347 ) ! MCP+NO3=NO2+HO2+HCHO+HKET PROD( MVKP ) = RXRAT( 97 ) ! MVK+HO=MVKP LOSS( MVKP ) = RXRAT( 198 ) ! MVKP+NO=0.3000D+00*HO2+... & + RXRAT( 238 ) ! MVKP+HO2=OP2 & + RXRAT( 274 ) ! MVKP+MO2=HO2+0.1160D+... & + RXRAT( 310 ) ! MVKP+ACO3=0.5000D+00*HO2+... & + RXRAT( 348 ) ! MVKP+NO3=0.3000D+00*HO2+... PROD( UALP ) = 6.8700D-01 * RXRAT( 98 ) ! UALD+HO=0.6870D+00*UALP+... LOSS( UALP ) = RXRAT( 199 ) ! UALP+NO=HO2+NO2+0.6100D+... & + RXRAT( 239 ) ! UALP+HO2=OP2 & + RXRAT( 275 ) ! UALP+MO2=HO2+0.3050D+00*CO+... & + RXRAT( 311 ) ! UALP+ACO3=0.5000D+00*HO2+... & + RXRAT( 349 ) ! UALP+NO3=HO2+NO2+0.6100D+... PROD( DCB3 ) = 4.5900D-01 * RXRAT( 180 ) ! BENP+NO=0.4590D+00*DCB3+... & + 9.5000D-01 * RXRAT( 185 ) ! XYLP+NO=0.9500D+00*DCB3+... & + 1.0500D+00 * RXRAT( 186 ) ! PER2+NO=0.1050D+01*DCB3+... & + 1.7700D-01 * RXRAT( 187 ) ! XYOP+NO=0.1770D+00*DCB3+... & + 4.5900D-01 * RXRAT( 256 ) ! BENP+MO2=0.4590D+00*DCB3+... & + 1.0500D+00 * RXRAT( 262 ) ! PER2+MO2=0.1050D+01*DCB3+... & + 1.8600D-01 * RXRAT( 263 ) ! XYOP+MO2=0.1860D+00*DCB3+... & + 4.5800D-01 * RXRAT( 292 ) ! BENP+ACO3=0.4580D+00*DCB3+... & + 1.0500D+00 * RXRAT( 298 ) ! PER2+ACO3=0.1050D+01*DCB3+... & + 1.8600D-01 * RXRAT( 299 ) ! XYOP+ACO3=0.1860D+00*DCB3+... & + 5.0000D-01 * RXRAT( 330 ) ! BENP+NO3=0.5000D+00*DCB3+... & + RXRAT( 335 ) ! XYLP+NO3=DCB3+NO2+HO2 & + 1.0500D+00 * RXRAT( 336 ) ! PER2+NO3=0.1050D+01*DCB3+... & + 1.8600D-01 * RXRAT( 337 ) ! XYOP+NO3=0.1860D+00*DCB3+... LOSS( DCB3 ) = RXRAT( 103 ) ! DCB3+HO=0.5600D+00*HO2+... & + RXRAT( 138 ) ! DCB3+O3=0.5000D-01*HO+HO2+... PROD( BALP ) = RXRAT( 104 ) ! BALD+HO=BALP LOSS( BALP ) = RXRAT( 200 ) ! BALP+NO=BAL1+NO2 & + RXRAT( 276 ) ! BALP+MO2=HO2+BAL1+HCHO & + RXRAT( 312 ) ! BALP+ACO3=MO2+BAL1 & + RXRAT( 350 ) ! BALP+NO3=BAL1+NO2 PROD( ADDC ) = 2.0000D-01 * RXRAT( 105 ) ! PHEN+HO=0.2000D+00*ADDC+... & + 2.0000D-01 * RXRAT( 106 ) ! CSL+HO=0.2000D+00*ADDC+... & + 1.0000D-01 * RXRAT( 155 ) ! PHEN+NO3=0.1000D+00*ADDC+... & + 1.0000D-01 * RXRAT( 156 ) ! CSL+NO3=0.1000D+00*ADDC+... LOSS( ADDC ) = RXRAT( 202 ) ! ADDC+NO=HO2+NO2+0.3200D+... & + RXRAT( 240 ) ! ADDC+HO2=OP2 & + RXRAT( 278 ) ! ADDC+MO2=0.2000D+01*HO2+... & + RXRAT( 314 ) ! ADDC+ACO3=0.2000D+01*HO2+... & + RXRAT( 352 ) ! ADDC+NO3=HO2+NO2+0.3200D+... PROD( MCT ) = 7.3000D-01 * RXRAT( 105 ) ! PHEN+HO=0.7300D+00*MCT+... & + 7.3000D-01 * RXRAT( 106 ) ! CSL+HO=0.7300D+00*MCT+... LOSS( MCT ) = RXRAT( 108 ) ! MCT+HO=MCTO & + RXRAT( 158 ) ! MCT+NO3=MCTO+HNO3 PROD( MCTO ) = RXRAT( 108 ) ! MCT+HO=MCTO & + RXRAT( 158 ) ! MCT+NO3=MCTO+HNO3 & + RXRAT( 203 ) ! MCTP+NO=MCTO+NO2 & + RXRAT( 279 ) ! MCTP+MO2=MCTO+HO2+HCHO & + RXRAT( 315 ) ! MCTP+ACO3=MCTO+MO2+HO2 & + RXRAT( 353 ) ! MCTP+NO3=MCTO+NO2 LOSS( MCTO ) = RXRAT( 140 ) ! MCTO+O3=MCTP & + RXRAT( 211 ) ! MCTO+NO2=ONIT PROD( MOH ) = 6.3000D-01 * RXRAT( 248 ) ! MO2+MO2=0.6300D+00*MOH+... & + 2.5000D-01 * RXRAT( 249 ) ! ETHP+MO2=0.2500D+00*MOH+... & + 2.5000D-01 * RXRAT( 250 ) ! HC3P+MO2=0.2500D+00*MOH+... & + 2.5000D-01 * RXRAT( 251 ) ! HC5P+MO2=0.2500D+00*MOH+... & + 2.5000D-01 * RXRAT( 252 ) ! HC8P+MO2=0.2500D+00*MOH+... & + 2.5000D-01 * RXRAT( 253 ) ! ETEP+MO2=0.2500D+00*MOH+... & + 2.5000D-01 * RXRAT( 254 ) ! OLTP+MO2=0.2500D+00*MOH+... & + 2.5000D-01 * RXRAT( 255 ) ! OLIP+MO2=0.2500D+00*MOH+... & + 2.5000D-01 * RXRAT( 264 ) ! ISOP+MO2=0.2500D+00*MOH+... & + 2.5000D-01 * RXRAT( 265 ) ! APIP+MO2=0.2500D+00*MOH+... & + 2.5000D-01 * RXRAT( 266 ) ! LIMP+MO2=0.2500D+00*MOH+... & + 2.5000D-01 * RXRAT( 269 ) ! ACTP+MO2=0.2500D+00*MOH+... & + 2.5000D-01 * RXRAT( 270 ) ! MEKP+MO2=0.2500D+00*MOH+... & + 2.5000D-01 * RXRAT( 271 ) ! KETP+MO2=0.2500D+00*MOH+... & + 2.5000D-01 * RXRAT( 272 ) ! MACP+MO2=0.2500D+00*MOH+... & + 2.5000D-01 * RXRAT( 273 ) ! MCP+MO2=0.2500D+00*MOH+HO2+... & + 2.5000D-01 * RXRAT( 274 ) ! MVKP+MO2=0.2500D+00*MOH+... & + 2.5000D-01 * RXRAT( 275 ) ! UALP+MO2=0.2500D+00*MOH+... & + 2.5000D-01 * RXRAT( 282 ) ! OLND+MO2=0.2500D+00*MOH+... LOSS( MOH ) = RXRAT( 109 ) ! MOH+HO=HO2+HCHO PROD( EOH ) = 2.5000D-01 * RXRAT( 249 ) ! ETHP+MO2=0.2500D+00*EOH+... LOSS( EOH ) = RXRAT( 110 ) ! EOH+HO=HO2+ACD PROD( ROH ) = 2.5000D-01 * RXRAT( 250 ) ! HC3P+MO2=0.2500D+00*ROH+... & + 2.5000D-01 * RXRAT( 251 ) ! HC5P+MO2=0.2500D+00*ROH+... & + 2.5000D-01 * RXRAT( 252 ) ! HC8P+MO2=0.2500D+00*ROH+... & + 2.5000D-01 * RXRAT( 254 ) ! OLTP+MO2=0.2500D+00*ROH+... & + 2.5000D-01 * RXRAT( 255 ) ! OLIP+MO2=0.2500D+00*ROH+... & + 2.5000D-01 * RXRAT( 264 ) ! ISOP+MO2=0.2500D+00*ROH+... & + 2.5000D-01 * RXRAT( 265 ) ! APIP+MO2=0.2500D+00*ROH+... & + 2.5000D-01 * RXRAT( 266 ) ! LIMP+MO2=0.2500D+00*ROH+... & + 2.5000D-01 * RXRAT( 269 ) ! ACTP+MO2=0.2500D+00*ROH+... & + 2.5000D-01 * RXRAT( 270 ) ! MEKP+MO2=0.2500D+00*ROH+... & + 2.5000D-01 * RXRAT( 271 ) ! KETP+MO2=0.2500D+00*ROH+... & + 2.5000D-01 * RXRAT( 272 ) ! MACP+MO2=0.2500D+00*ROH+... & + 2.5000D-01 * RXRAT( 273 ) ! MCP+MO2=0.2500D+00*ROH+HO2+... & + 2.5000D-01 * RXRAT( 274 ) ! MVKP+MO2=0.2500D+00*ROH+... & + 2.5000D-01 * RXRAT( 275 ) ! UALP+MO2=0.2500D+00*ROH+... & + 2.5000D-01 * RXRAT( 282 ) ! OLND+MO2=0.2500D+00*ROH+... LOSS( ROH ) = RXRAT( 111 ) ! ROH+HO=HO2+0.7190D+00*ALD+... PROD( ETEG ) = 2.5000D-01 * RXRAT( 253 ) ! ETEP+MO2=0.2500D+00*ETEG+... LOSS( ETEG ) = RXRAT( 112 ) ! ETEG+HO=HO2+ALD PROD( ISHP ) = RXRAT( 228 ) ! ISOP+HO2=ISHP LOSS( ISHP ) = RXRAT( 115 ) ! ISHP+HO=HO+MACR+0.9040D+... PROD( IEPOX ) = 9.0400D-01 * RXRAT( 115 ) ! ISHP+HO=0.9040D+00*IEPOX+... LOSS( IEPOX ) = RXRAT( 377 ) ! IEPOX+HO=HO & + RXRAT( 381 ) ! IEPOX=AISO3J PROD( MAHP ) = RXRAT( 236 ) ! MACP+HO2=MAHP & + RXRAT( 237 ) ! MCP+HO2=MAHP LOSS( MAHP ) = RXRAT( 116 ) ! MAHP+HO=MACP PROD( ORA2 ) = 6.0000D-02 * RXRAT( 127 ) ! OLT+O3=0.6000D-01*ORA2+... & + 1.7000D-02 * RXRAT( 128 ) ! OLI+O3=0.1700D-01*ORA2+... & + 7.0000D-02 * RXRAT( 132 ) ! LIM+O3=0.7000D-01*ORA2+... & + 7.0000D-02 * RXRAT( 134 ) ! MVK+O3=0.7000D-01*ORA2+... & + 2.5000D-01 * RXRAT( 138 ) ! DCB3+O3=0.2500D+00*ORA2+... & + 1.5000D-01 * RXRAT( 231 ) ! ACO3+HO2=0.1500D+00*ORA2+... & + 1.5000D-01 * RXRAT( 232 ) ! RCO3+HO2=0.1500D+00*ORA2+... & + 1.0000D-01 * RXRAT( 267 ) ! ACO3+MO2=0.1000D+00*ORA2+... & + 1.0000D-01 * RXRAT( 268 ) ! RCO3+MO2=0.1000D+00*ORA2+... & + 1.2500D-01 * RXRAT( 269 ) ! ACTP+MO2=0.1250D+00*ORA2+... & + 6.7000D-02 * RXRAT( 272 ) ! MACP+MO2=0.6700D-01*ORA2+... & + 2.9200D-01 * RXRAT( 274 ) ! MVKP+MO2=0.2920D+00*ORA2+... & + 5.0000D-01 * RXRAT( 285 ) ! ETHP+ACO3=0.5000D+00*ORA2+... & + 5.0000D-01 * RXRAT( 286 ) ! HC3P+ACO3=0.5000D+00*ORA2+... & + 5.0000D-01 * RXRAT( 287 ) ! HC5P+ACO3=0.5000D+00*ORA2+... & + 4.9500D-01 * RXRAT( 288 ) ! HC8P+ACO3=0.4950D+00*ORA2+... & + 5.0000D-01 * RXRAT( 289 ) ! ETEP+ACO3=0.5000D+00*ORA2+... & + 5.0000D-01 * RXRAT( 290 ) ! OLTP+ACO3=0.5000D+00*ORA2+... & + 5.0000D-01 * RXRAT( 291 ) ! OLIP+ACO3=0.5000D+00*ORA2+... & + 5.0000D-01 * RXRAT( 300 ) ! ISOP+ACO3=0.5000D+00*ORA2+... & + RXRAT( 301 ) ! APIP+ACO3=ORA2+0.5000D+... & + 5.0000D-01 * RXRAT( 302 ) ! LIMP+ACO3=0.5000D+00*ORA2+... & + 7.5000D-01 * RXRAT( 305 ) ! ACTP+ACO3=0.7500D+00*ORA2+... & + 5.0000D-01 * RXRAT( 306 ) ! MEKP+ACO3=0.5000D+00*ORA2+... & + 5.0000D-01 * RXRAT( 307 ) ! KETP+ACO3=0.5000D+00*ORA2+... & + 6.3500D-01 * RXRAT( 308 ) ! MACP+ACO3=0.6350D+00*ORA2+... & + 5.0000D-01 * RXRAT( 309 ) ! MCP+ACO3=0.5000D+00*ORA2+... & + 1.0830D+00 * RXRAT( 310 ) ! MVKP+ACO3=0.1083D+01*ORA2+... & + 5.0000D-01 * RXRAT( 311 ) ! UALP+ACO3=0.5000D+00*ORA2+... & + 5.0000D-01 * RXRAT( 318 ) ! OLND+ACO3=0.5000D+00*ORA2+... LOSS( ORA2 ) = RXRAT( 118 ) ! ORA2+HO=0.6400D+00*MO2+... PROD( ORAP ) = 3.6000D-01 * RXRAT( 118 ) ! ORA2+HO=0.3600D+00*ORAP+... LOSS( ORAP ) = RXRAT( 204 ) ! ORAP+NO=NO2+GLY+HO2 & + RXRAT( 243 ) ! ORAP+HO2=OP2 & + RXRAT( 280 ) ! ORAP+MO2=HCHO+HO2+GLY & + RXRAT( 316 ) ! ORAP+ACO3=MO2+GLY & + RXRAT( 354 ) ! ORAP+NO3=NO2+GLY+HO2 PROD( PPN ) = RXRAT( 168 ) ! RCO3+NO2=PPN LOSS( PPN ) = RXRAT( 121 ) ! PPN+HO=XO2+NO3+HCHO & + RXRAT( 169 ) ! PPN=RCO3+NO2 PROD( MPAN ) = RXRAT( 170 ) ! MACP+NO2=MPAN LOSS( MPAN ) = RXRAT( 122 ) ! MPAN+HO=NO2+HKET & + RXRAT( 159 ) ! MPAN+NO3=MACP+NO2 & + RXRAT( 171 ) ! MPAN=MACP+NO2 PROD( NALD ) = RXRAT( 125 ) ! ISON+HO=NALD+0.7000D-... LOSS( NALD ) = RXRAT( 124 ) ! NALD+HO=NO2+XO2+HKET PROD( ISON ) = RXRAT( 145 ) ! ISO+NO3=ISON+ISOPRXN & + 1.2000D-01 * RXRAT( 188 ) ! ISOP+NO=0.1200D+00*ISON+... LOSS( ISON ) = RXRAT( 125 ) ! ISON+HO=NALD+0.7000D-... PROD( MCTP ) = RXRAT( 140 ) ! MCTO+O3=MCTP LOSS( MCTP ) = RXRAT( 203 ) ! MCTP+NO=MCTO+NO2 & + RXRAT( 242 ) ! MCTP+HO2=OP2 & + RXRAT( 279 ) ! MCTP+MO2=HO2+MCTO+HCHO & + RXRAT( 315 ) ! MCTP+ACO3=HO2+MO2+MCTO & + RXRAT( 353 ) ! MCTP+NO3=NO2+MCTO PROD( OLNN ) = 8.0000D-01 * RXRAT( 141 ) ! ETE+NO3=0.8000D+00*OLNN+... & + 4.3000D-01 * RXRAT( 142 ) ! OLT+NO3=0.4300D+00*OLNN+... & + 1.1000D-01 * RXRAT( 143 ) ! OLI+NO3=0.1100D+00*OLNN+... & + 9.0000D-01 * RXRAT( 144 ) ! DIEN+NO3=0.9000D+00*OLNN+... & + 1.0000D-01 * RXRAT( 146 ) ! API+NO3=0.1000D+00*OLNN+... & + 7.1000D-01 * RXRAT( 147 ) ! LIM+NO3=0.7100D+00*OLNN+... LOSS( OLNN ) = RXRAT( 205 ) ! OLNN+NO=NO2+HO2+ONIT & + RXRAT( 244 ) ! OLNN+HO2=ONIT & + RXRAT( 281 ) ! OLNN+MO2=0.2000D+01*HO2+... & + RXRAT( 317 ) ! OLNN+ACO3=HO2+MO2+ONIT & + RXRAT( 355 ) ! OLNN+NO3=HO2+NO2+ONIT & + 2.0000D+00 * RXRAT( 358 ) ! OLNN+OLNN=HO2+0.2000D+01*ONIT & + RXRAT( 359 ) ! OLNN+OLND=0.5000D+00*HO2+... PROD( OLND ) = 2.0000D-01 * RXRAT( 141 ) ! ETE+NO3=0.2000D+00*OLND+... & + 5.7000D-01 * RXRAT( 142 ) ! OLT+NO3=0.5700D+00*OLND+... & + 8.9000D-01 * RXRAT( 143 ) ! OLI+NO3=0.8900D+00*OLND+... & + 1.0000D-01 * RXRAT( 144 ) ! DIEN+NO3=0.1000D+00*OLND+... & + 9.0000D-01 * RXRAT( 146 ) ! API+NO3=0.9000D+00*OLND+... & + 2.9000D-01 * RXRAT( 147 ) ! LIM+NO3=0.2900D+00*OLND+... LOSS( OLND ) = RXRAT( 206 ) ! OLND+NO=0.2000D+01*NO2+... & + RXRAT( 245 ) ! OLND+HO2=ONIT & + RXRAT( 282 ) ! OLND+MO2=0.5000D+00*HO2+... & + RXRAT( 318 ) ! OLND+ACO3=0.5000D+00*MO2+... & + RXRAT( 356 ) ! OLND+NO3=0.2000D+01*NO2+... & + RXRAT( 359 ) ! OLND+OLNN=0.5000D+00*HO2+... & + 2.0000D+00 * RXRAT( 360 ) ! OLND+OLND=NO2+0.5040D+... PROD( ADCN ) = 5.0000D-01 * RXRAT( 155 ) ! PHEN+NO3=0.5000D+00*ADCN+... & + 5.0000D-01 * RXRAT( 156 ) ! CSL+NO3=0.5000D+00*ADCN+... LOSS( ADCN ) = RXRAT( 207 ) ! ADCN+NO=0.2000D+01*NO2+GLY+OP2 & + RXRAT( 246 ) ! ADCN+HO2=OP2 & + RXRAT( 283 ) ! ADCN+MO2=HO2+0.7000D+... & + RXRAT( 319 ) ! ADCN+ACO3=HO2+MO2+0.7000D+... & + RXRAT( 357 ) ! ADCN+NO3=0.2000D+01*NO2+... PROD( TOLP ) = 2.8000D-01 * RXRAT( 160 ) ! TR2=0.2800D+00*TOLP+... LOSS( TOLP ) = RXRAT( 161 ) ! TOLP=0.4900D+00*HO+0.1000D-... & + RXRAT( 182 ) ! TOLP+NO=0.9500D+00*HO2+... & + RXRAT( 222 ) ! TOLP+HO2=OP2 & + RXRAT( 258 ) ! TOLP+MO2=0.2000D+01*HO2+... & + RXRAT( 294 ) ! TOLP+ACO3=HO2+MO2+DCB2 & + RXRAT( 332 ) ! TOLP+NO3=HO2+NO2+DCB2 PROD( PER1 ) = 1.5000D-01 * RXRAT( 160 ) ! TR2=0.1500D+00*PER1+... & + 5.0000D-01 * RXRAT( 161 ) ! TOLP=0.5000D+00*PER1+... LOSS( PER1 ) = RXRAT( 183 ) ! PER1+NO=0.5000D+00*HO2+... & + RXRAT( 223 ) ! PER1+HO2=OP2 & + RXRAT( 259 ) ! PER1+MO2=0.2000D+01*HO2+... & + RXRAT( 295 ) ! PER1+ACO3=HO2+MO2+MGLY+DCB1 & + RXRAT( 333 ) ! PER1+NO3=0.5000D+00*HO2+... PROD( XYLP ) = 3.0800D-01 * RXRAT( 162 ) ! XY2=0.3080D+00*XYLP+... LOSS( XYLP ) = RXRAT( 163 ) ! XYLP=0.3900D+00*HO+0.1000D-... & + RXRAT( 185 ) ! XYLP+NO=0.9500D+00*HO2+... & + RXRAT( 225 ) ! XYLP+HO2=OP2 & + RXRAT( 261 ) ! XYLP+MO2=0.2000D+01*HO2+... & + RXRAT( 297 ) ! XYLP+ACO3=HO2+MO2+DCB2 & + RXRAT( 335 ) ! XYLP+NO3=HO2+NO2+DCB3 PROD( PER2 ) = 1.5000D-01 * RXRAT( 162 ) ! XY2=0.1500D+00*PER2+... & + 3.0000D-01 * RXRAT( 163 ) ! XYLP=0.3000D+00*PER2+... & + 1.5000D-01 * RXRAT( 164 ) ! XYO2=0.1500D+00*PER2+... & + 5.0000D-01 * RXRAT( 165 ) ! XYOP=0.5000D+00*PER2+... LOSS( PER2 ) = RXRAT( 186 ) ! PER2+NO=0.9500D+00*HO2+... & + RXRAT( 226 ) ! PER2+HO2=OP2 & + RXRAT( 262 ) ! PER2+MO2=0.2000D+01*HO2+... & + RXRAT( 298 ) ! PER2+ACO3=HO2+MO2+MGLY+... & + RXRAT( 336 ) ! PER2+NO3=HO2+NO2+MGLY+DCB1+... PROD( XYOP ) = 3.0800D-01 * RXRAT( 164 ) ! XYO2=0.3080D+00*XYOP+... LOSS( XYOP ) = RXRAT( 165 ) ! XYOP=0.3900D+00*HO+0.1000D-... & + RXRAT( 187 ) ! XYOP+NO=0.9500D+00*HO2+... & + RXRAT( 227 ) ! XYOP+HO2=OP2 & + RXRAT( 263 ) ! XYOP+MO2=0.2000D+01*HO2+... & + RXRAT( 299 ) ! XYOP+ACO3=HO2+MO2+0.3680D+... & + RXRAT( 337 ) ! XYOP+NO3=HO2+NO2+0.3680D+... PROD( BAL1 ) = RXRAT( 200 ) ! BALP+NO=BAL1+NO2 & + RXRAT( 276 ) ! BALP+MO2=BAL1+HO2+HCHO & + RXRAT( 312 ) ! BALP+ACO3=BAL1+MO2 & + RXRAT( 350 ) ! BALP+NO3=BAL1+NO2 LOSS( BAL1 ) = RXRAT( 201 ) ! BAL1+NO=BAL2+NO2 & + RXRAT( 277 ) ! BAL1+MO2=HO2+BAL2+HCHO & + RXRAT( 313 ) ! BAL1+ACO3=MO2+BAL2 & + RXRAT( 351 ) ! BAL1+NO3=BAL2+NO2 PROD( BAL2 ) = RXRAT( 201 ) ! BAL1+NO=BAL2+NO2 & + RXRAT( 277 ) ! BAL1+MO2=BAL2+HO2+HCHO & + RXRAT( 313 ) ! BAL1+ACO3=BAL2+MO2 & + RXRAT( 351 ) ! BAL1+NO3=BAL2+NO2 LOSS( BAL2 ) = RXRAT( 209 ) ! BAL2+NO2=ONIT PROD( TOLNRXN ) = RXRAT( 364 ) ! TOLRO2+NO=TOLNRXN+NO LOSS( TOLNRXN ) = 0.0D0 PROD( TOLHRXN ) = RXRAT( 365 ) ! TOLRO2+HO2=TOLHRXN+HO2 LOSS( TOLHRXN ) = 0.0D0 PROD( XYLNRXN ) = RXRAT( 366 ) ! XYLRO2+NO=XYLNRXN+NO LOSS( XYLNRXN ) = 0.0D0 PROD( XYLHRXN ) = RXRAT( 367 ) ! XYLRO2+HO2=XYLHRXN+HO2 LOSS( XYLHRXN ) = 0.0D0 PROD( BNZNRXN ) = RXRAT( 368 ) ! BENZRO2+NO=BNZNRXN+NO LOSS( BNZNRXN ) = 0.0D0 PROD( BNZHRXN ) = RXRAT( 369 ) ! BENZRO2+HO2=BNZHRXN+HO2 LOSS( BNZHRXN ) = 0.0D0 PROD( SESQ ) = 0.0D0 LOSS( SESQ ) = RXRAT( 370 ) ! SESQ+O3=O3+SESQRXN & + RXRAT( 371 ) ! SESQ+HO=HO+SESQRXN & + RXRAT( 372 ) ! SESQ+NO3=NO3+SESQRXN PROD( SESQRXN ) = RXRAT( 370 ) ! SESQ+O3=SESQRXN+O3 & + RXRAT( 371 ) ! SESQ+HO=SESQRXN+HO & + RXRAT( 372 ) ! SESQ+NO3=SESQRXN+NO3 LOSS( SESQRXN ) = 0.0D0 PROD( NAPH ) = 0.0D0 LOSS( NAPH ) = RXRAT( 373 ) ! NAPH+HO=HO+PAHRO2 PROD( PAHRO2 ) = RXRAT( 373 ) ! NAPH+HO=PAHRO2+HO LOSS( PAHRO2 ) = RXRAT( 374 ) ! PAHRO2+NO=NO+PAHNRXN & + RXRAT( 375 ) ! PAHRO2+HO2=HO2+PAHHRXN PROD( PAHNRXN ) = RXRAT( 374 ) ! PAHRO2+NO=PAHNRXN+NO LOSS( PAHNRXN ) = 0.0D0 PROD( PAHHRXN ) = RXRAT( 375 ) ! PAHRO2+HO2=PAHHRXN+HO2 LOSS( PAHHRXN ) = 0.0D0 PROD( SOAALK ) = 0.0D0 LOSS( SOAALK ) = RXRAT( 376 ) ! SOAALK+HO=HO+0.4700D+00*ALKRXN PROD( ALKRXN ) = 4.7000D-01 * RXRAT( 376 ) ! SOAALK+HO=0.4700D+00*ALKRXN+HO LOSS( ALKRXN ) = 0.0D0 PROD( AISO3J ) = RXRAT( 381 ) ! IEPOX=AISO3J LOSS( AISO3J ) = 0.0D0 PROD( AXYL1J ) = 0.0D0 LOSS( AXYL1J ) = RXRAT( 382 ) ! AXYL1J=0.8571D+00*AOLGAJ PROD( AOLGAJ ) = 8.5710D-01 * RXRAT( 382 ) ! AXYL1J=0.8571D+00*AOLGAJ & + 1.1429D+00 * RXRAT( 383 ) ! AXYL2J=0.1143D+01*AOLGAJ & + 8.5710D-01 * RXRAT( 384 ) ! ATOL1J=0.8571D+00*AOLGAJ & + 1.1429D+00 * RXRAT( 385 ) ! ATOL2J=0.1143D+01*AOLGAJ & + 7.1430D-01 * RXRAT( 386 ) ! ABNZ1J=0.7143D+00*AOLGAJ & + 7.1430D-01 * RXRAT( 387 ) ! ABNZ2J=0.7143D+00*AOLGAJ & + 1.4286D+00 * RXRAT( 393 ) ! APAH1J=0.1429D+01*AOLGAJ & + 1.4286D+00 * RXRAT( 394 ) ! APAH2J=0.1429D+01*AOLGAJ & + 1.7143D+00 * RXRAT( 395 ) ! AALK1J=0.1714D+01*AOLGAJ & + 1.7143D+00 * RXRAT( 396 ) ! AALK2J=0.1714D+01*AOLGAJ LOSS( AOLGAJ ) = 0.0D0 PROD( AXYL2J ) = 0.0D0 LOSS( AXYL2J ) = RXRAT( 383 ) ! AXYL2J=0.1143D+01*AOLGAJ PROD( ATOL1J ) = 0.0D0 LOSS( ATOL1J ) = RXRAT( 384 ) ! ATOL1J=0.8571D+00*AOLGAJ PROD( ATOL2J ) = 0.0D0 LOSS( ATOL2J ) = RXRAT( 385 ) ! ATOL2J=0.1143D+01*AOLGAJ PROD( ABNZ1J ) = 0.0D0 LOSS( ABNZ1J ) = RXRAT( 386 ) ! ABNZ1J=0.7143D+00*AOLGAJ PROD( ABNZ2J ) = 0.0D0 LOSS( ABNZ2J ) = RXRAT( 387 ) ! ABNZ2J=0.7143D+00*AOLGAJ PROD( ATRP1J ) = 0.0D0 LOSS( ATRP1J ) = RXRAT( 388 ) ! ATRP1J=0.8000D+00*AOLGBJ PROD( AOLGBJ ) = 8.0000D-01 * RXRAT( 388 ) ! ATRP1J=0.8000D+00*AOLGBJ & + 9.0000D-01 * RXRAT( 389 ) ! ATRP2J=0.9000D+00*AOLGBJ & + 5.0000D-01 * RXRAT( 390 ) ! AISO1J=0.5000D+00*AOLGBJ & + 5.0000D-01 * RXRAT( 391 ) ! AISO2J=0.5000D+00*AOLGBJ & + 1.5000D+00 * RXRAT( 392 ) ! ASQTJ=0.1500D+01*AOLGBJ LOSS( AOLGBJ ) = 0.0D0 PROD( ATRP2J ) = 0.0D0 LOSS( ATRP2J ) = RXRAT( 389 ) ! ATRP2J=0.9000D+00*AOLGBJ PROD( AISO1J ) = 0.0D0 LOSS( AISO1J ) = RXRAT( 390 ) ! AISO1J=0.5000D+00*AOLGBJ PROD( AISO2J ) = 0.0D0 LOSS( AISO2J ) = RXRAT( 391 ) ! AISO2J=0.5000D+00*AOLGBJ PROD( ASQTJ ) = 0.0D0 LOSS( ASQTJ ) = RXRAT( 392 ) ! ASQTJ=0.1500D+01*AOLGBJ PROD( APAH1J ) = 0.0D0 LOSS( APAH1J ) = RXRAT( 393 ) ! APAH1J=0.1429D+01*AOLGAJ PROD( APAH2J ) = 0.0D0 LOSS( APAH2J ) = RXRAT( 394 ) ! APAH2J=0.1429D+01*AOLGAJ PROD( AALK1J ) = 0.0D0 LOSS( AALK1J ) = RXRAT( 395 ) ! AALK1J=0.1714D+01*AOLGAJ PROD( AALK2J ) = 0.0D0 LOSS( AALK2J ) = RXRAT( 396 ) ! AALK2J=0.1714D+01*AOLGAJ PROD( APOCI ) = 0.0D0 LOSS( APOCI ) = 0.0D0 PROD( APNCOMI ) = 1.2500D+00 * RXRAT( 397 ) ! APOCI+HO=0.1250D+... LOSS( APNCOMI ) = RXRAT( 398 ) ! APNCOMI+HO=HO PROD( APOCJ ) = 0.0D0 LOSS( APOCJ ) = 0.0D0 PROD( APNCOMJ ) = 1.2500D+00 * RXRAT( 399 ) ! APOCJ+HO=0.1250D+... LOSS( APNCOMJ ) = RXRAT( 400 ) ! APNCOMJ+HO=HO PROD( PCVOC ) = 0.0D0 LOSS( PCVOC ) = RXRAT( 401 ) ! PCVOC+HO=HO+PCSOARXN PROD( PCSOARXN ) = RXRAT( 401 ) ! PCVOC+HO=PCSOARXN+HO LOSS( PCSOARXN ) = 0.0D0 PROD( VLVPO1 ) = 3.0030D-01 * RXRAT( 403 ) ! VSVPO1+HO=0.3003D+... & + 3.8560D-01 * RXRAT( 404 ) ! VSVPO2+HO=0.3856D+... & + 2.1810D-01 * RXRAT( 405 ) ! VSVPO3+HO=0.2181D+... & + 2.4120D-01 * RXRAT( 406 ) ! VIVPO1+HO=0.2412D+... LOSS( VLVPO1 ) = 5.1430D-01 * RXRAT( 402 ) ! VLVPO1+HO=0.4857D+... PROD( VSVPO1 ) = 6.2000D-03 * RXRAT( 402 ) ! VLVPO1+HO=0.6200D-... & + 9.5000D-02 * RXRAT( 404 ) ! VSVPO2+HO=0.9500D-... & + 3.0630D-01 * RXRAT( 405 ) ! VSVPO3+HO=0.3063D+... & + 2.0890D-01 * RXRAT( 406 ) ! VIVPO1+HO=0.2089D+... LOSS( VSVPO1 ) = 7.1380D-01 * RXRAT( 403 ) ! VSVPO1+HO=0.2862D+... PROD( VSVPO2 ) = 2.5000D-03 * RXRAT( 402 ) ! VLVPO1+HO=0.2500D-... & + 4.1000D-03 * RXRAT( 403 ) ! VSVPO1+HO=0.4100D-... & + 1.5300D-02 * RXRAT( 405 ) ! VSVPO3+HO=0.1530D-... & + 3.0000D-01 * RXRAT( 406 ) ! VIVPO1+HO=0.3000D+... LOSS( VSVPO2 ) = 8.6270D-01 * RXRAT( 404 ) ! VSVPO2+HO=0.1373D+... PROD( VSVPO3 ) = 2.6000D-03 * RXRAT( 402 ) ! VLVPO1+HO=0.2600D-... & + 3.5000D-03 * RXRAT( 403 ) ! VSVPO1+HO=0.3500D-... & + 5.0000D-04 * RXRAT( 404 ) ! VSVPO2+HO=0.5000D-... LOSS( VSVPO3 ) = 8.9570D-01 * RXRAT( 405 ) ! VSVPO3+HO=0.1043D+... PROD( VIVPO1 ) = 2.3000D-03 * RXRAT( 402 ) ! VLVPO1+HO=0.2300D-... LOSS( VIVPO1 ) = RXRAT( 406 ) ! VIVPO1+HO=HO+0.2412D+... PROD( VLVOO1 ) = 2.9440D-01 * RXRAT( 402 ) ! VLVPO1+HO=0.2944D+... & + 2.2390D-01 * RXRAT( 403 ) ! VSVPO1+HO=0.2239D+... & + 2.0510D-01 * RXRAT( 404 ) ! VSVPO2+HO=0.2051D+... & + 1.8930D-01 * RXRAT( 405 ) ! VSVPO3+HO=0.1893D+... & + 2.0280D-01 * RXRAT( 406 ) ! VIVPO1+HO=0.2028D+... & + 2.8580D-01 * RXRAT( 408 ) ! VLVOO2+HO=0.2858D+... & + 3.3030D-01 * RXRAT( 409 ) ! VSVOO1+HO=0.3303D+... & + 3.4440D-01 * RXRAT( 410 ) ! VSVOO2+HO=0.3444D+... & + 3.8860D-01 * RXRAT( 411 ) ! VSVOO3+HO=0.3886D+... LOSS( VLVOO1 ) = 3.3360D-01 * RXRAT( 407 ) ! VLVOO1+HO=0.6664D+... PROD( VLVOO2 ) = 2.0210D-01 * RXRAT( 402 ) ! VLVPO1+HO=0.2021D+... & + 1.8200D-01 * RXRAT( 403 ) ! VSVPO1+HO=0.1820D+... & + 1.7640D-01 * RXRAT( 404 ) ! VSVPO2+HO=0.1764D+... & + 1.6680D-01 * RXRAT( 405 ) ! VSVPO3+HO=0.1668D+... & + 4.7100D-02 * RXRAT( 406 ) ! VIVPO1+HO=0.4710D-... & + 1.4300D-02 * RXRAT( 407 ) ! VLVOO1+HO=0.1430D-... & + 2.2720D-01 * RXRAT( 409 ) ! VSVOO1+HO=0.2272D+... & + 2.7490D-01 * RXRAT( 410 ) ! VSVOO2+HO=0.2749D+... & + 2.4210D-01 * RXRAT( 411 ) ! VSVOO3+HO=0.2421D+... LOSS( VLVOO2 ) = 6.0690D-01 * RXRAT( 408 ) ! VLVOO2+HO=0.3931D+... PROD( VSVOO2 ) = 1.9000D-03 * RXRAT( 402 ) ! VLVPO1+HO=0.1900D-... & + 1.2390D-01 * RXRAT( 407 ) ! VLVOO1+HO=0.1239D+... & + 1.0270D-01 * RXRAT( 408 ) ! VLVOO2+HO=0.1027D+... & + 7.0200D-02 * RXRAT( 409 ) ! VSVOO1+HO=0.7020D-... & + 3.8500D-02 * RXRAT( 411 ) ! VSVOO3+HO=0.3850D-... LOSS( VSVOO2 ) = 7.4230D-01 * RXRAT( 410 ) ! VSVOO2+HO=0.2577D+... PROD( VSVOO3 ) = 2.3000D-03 * RXRAT( 402 ) ! VLVPO1+HO=0.2300D-... & + 1.8310D-01 * RXRAT( 407 ) ! VLVOO1+HO=0.1831D+... & + 2.0450D-01 * RXRAT( 408 ) ! VLVOO2+HO=0.2045D+... & + 1.1160D-01 * RXRAT( 409 ) ! VSVOO1+HO=0.1116D+... & + 7.3900D-02 * RXRAT( 410 ) ! VSVOO2+HO=0.7390D-... LOSS( VSVOO3 ) = 7.3330D-01 * RXRAT( 411 ) ! VSVOO3+HO=0.2667D+... PROD( VSVOO1 ) = 1.2300D-02 * RXRAT( 407 ) ! VLVOO1+HO=0.1230D-... & + 1.3900D-02 * RXRAT( 408 ) ! VLVOO2+HO=0.1390D-... & + 4.9100D-02 * RXRAT( 410 ) ! VSVOO2+HO=0.4910D-... & + 6.4000D-02 * RXRAT( 411 ) ! VSVOO3+HO=0.6400D-... LOSS( VSVOO1 ) = 7.3930D-01 * RXRAT( 409 ) ! VSVOO1+HO=0.2607D+... RETURN END ================================================ FILE: CCTM/src/gas/ebi_racm2_ae6_aq/hrrates.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE HRRATES C*********************************************************************** C C FUNCTION: To calculate rates of reactions C C PRECONDITIONS: For the RACM2_AE6_AQ mechanism C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by EBI solver program, Jun 8, 2022 C C*********************************************************************** USE HRDATA IMPLICIT NONE C.....INCLUDES: NONE C.....ARGUMENTS: NONE C.....PARAMETERS: NONE C.....EXTERNAL FUNCTIONS: NONE C.....SAVED VARIABLES: NONE ! CHARACTER( 16 ), SAVE :: PNAME = 'HRRATES' ! Program name C.....LOCAL VARIABLES: None C*********************************************************************** C..NOTE: RXRAT commented out are not referenced by any routine RXRAT( 1 ) = RKI( 1 ) * YC( O3 ) RXRAT( 2 ) = RKI( 2 ) * YC( O3 ) RXRAT( 3 ) = RKI( 3 ) * YC( H2O2 ) ! RXRAT( 4 ) = RKI( 4 ) * YC( NO2 ) RXRAT( 5 ) = RKI( 5 ) * YC( NO3 ) RXRAT( 6 ) = RKI( 6 ) * YC( NO3 ) RXRAT( 7 ) = RKI( 7 ) * YC( HONO ) RXRAT( 8 ) = RKI( 8 ) * YC( HNO3 ) RXRAT( 9 ) = RKI( 9 ) * YC( HNO4 ) RXRAT( 10 ) = RKI( 10 ) * YC( HCHO ) RXRAT( 11 ) = RKI( 11 ) * YC( HCHO ) RXRAT( 12 ) = RKI( 12 ) * YC( ACD ) RXRAT( 13 ) = RKI( 13 ) * YC( ALD ) RXRAT( 14 ) = RKI( 14 ) * YC( ACT ) RXRAT( 15 ) = RKI( 15 ) * YC( UALD ) RXRAT( 16 ) = RKI( 16 ) * YC( MEK ) RXRAT( 17 ) = RKI( 17 ) * YC( KET ) RXRAT( 18 ) = RKI( 18 ) * YC( HKET ) RXRAT( 19 ) = RKI( 19 ) * YC( MACR ) RXRAT( 20 ) = RKI( 20 ) * YC( MVK ) RXRAT( 21 ) = RKI( 21 ) * YC( GLY ) RXRAT( 22 ) = RKI( 22 ) * YC( GLY ) RXRAT( 23 ) = RKI( 23 ) * YC( GLY ) RXRAT( 24 ) = RKI( 24 ) * YC( MGLY ) RXRAT( 25 ) = RKI( 25 ) * YC( DCB1 ) RXRAT( 26 ) = RKI( 26 ) * YC( DCB2 ) RXRAT( 27 ) = RKI( 27 ) * YC( BALD ) RXRAT( 28 ) = RKI( 28 ) * YC( OP1 ) RXRAT( 29 ) = RKI( 29 ) * YC( OP2 ) RXRAT( 30 ) = RKI( 30 ) * YC( PAA ) RXRAT( 31 ) = RKI( 31 ) * YC( ONIT ) RXRAT( 32 ) = RKI( 32 ) * YC( PAN ) RXRAT( 33 ) = RKI( 33 ) * YC( PAN ) ! RXRAT( 34 ) = RKI( 34 ) * YC( O3 ) * YC( HO ) ! RXRAT( 35 ) = RKI( 35 ) * YC( O3 ) * YC( HO2 ) ! RXRAT( 36 ) = RKI( 36 ) * YC( O3 ) * YC( NO ) RXRAT( 37 ) = RKI( 37 ) * YC( O3 ) * YC( NO2 ) ! RXRAT( 38 ) = RKI( 38 ) * YC( O3P ) ! RXRAT( 39 ) = RKI( 39 ) * YC( O3P ) * YC( O3 ) ! RXRAT( 40 ) = RKI( 40 ) * YC( O1D ) ! RXRAT( 41 ) = RKI( 41 ) * YC( O1D ) ! RXRAT( 42 ) = RKI( 42 ) * YC( O1D ) ! RXRAT( 43 ) = RKI( 43 ) * YC( HO ) ! RXRAT( 44 ) = RKI( 44 ) * YC( HO ) * YC( HO2 ) RXRAT( 45 ) = RKI( 45 ) * YC( HO2 ) * YC( HO2 ) RXRAT( 46 ) = RKI( 46 ) * YC( HO2 ) * YC( HO2 ) RXRAT( 47 ) = RKI( 47 ) * YC( H2O2 ) * YC( HO ) ! RXRAT( 48 ) = RKI( 48 ) * YC( NO ) * YC( O3P ) ! RXRAT( 49 ) = RKI( 49 ) * YC( NO ) * YC( HO ) ! RXRAT( 50 ) = RKI( 50 ) * YC( NO ) * YC( HO2 ) RXRAT( 51 ) = RKI( 51 ) * YC( NO ) * YC( HO2 ) ! RXRAT( 52 ) = RKI( 52 ) * YC( NO ) * YC( NO ) RXRAT( 53 ) = RKI( 53 ) * YC( HONO ) * YC( HO ) ! RXRAT( 54 ) = RKI( 54 ) * YC( NO2 ) * YC( O3P ) RXRAT( 55 ) = RKI( 55 ) * YC( NO2 ) * YC( O3P ) RXRAT( 56 ) = RKI( 56 ) * YC( NO2 ) * YC( HO ) RXRAT( 57 ) = RKI( 57 ) * YC( HNO3 ) * YC( HO ) RXRAT( 58 ) = RKI( 58 ) * YC( NO3 ) * YC( HO ) RXRAT( 59 ) = RKI( 59 ) * YC( NO3 ) * YC( HO2 ) RXRAT( 60 ) = RKI( 60 ) * YC( NO3 ) * YC( NO ) RXRAT( 61 ) = RKI( 61 ) * YC( NO3 ) * YC( NO2 ) RXRAT( 62 ) = RKI( 62 ) * YC( NO3 ) * YC( NO3 ) ! RXRAT( 63 ) = RKI( 63 ) * YC( NO3 ) * YC( NO2 ) RXRAT( 64 ) = RKI( 64 ) * YC( N2O5 ) RXRAT( 65 ) = RKI( 65 ) * YC( N2O5 ) ! RXRAT( 66 ) = RKI( 66 ) * YC( NO2 ) * YC( HO2 ) RXRAT( 67 ) = RKI( 67 ) * YC( HNO4 ) RXRAT( 68 ) = RKI( 68 ) * YC( HNO4 ) * YC( HO ) RXRAT( 69 ) = RKI( 69 ) * YC( SO2 ) * YC( HO ) RXRAT( 70 ) = RKI( 70 ) * YC( CO ) * YC( HO ) RXRAT( 71 ) = RKI( 71 ) * YC( HO ) RXRAT( 72 ) = RKI( 72 ) * YC( ETH ) * YC( HO ) RXRAT( 73 ) = RKI( 73 ) * YC( HC3 ) * YC( HO ) RXRAT( 74 ) = RKI( 74 ) * YC( HC5 ) * YC( HO ) RXRAT( 75 ) = RKI( 75 ) * YC( HC8 ) * YC( HO ) RXRAT( 76 ) = RKI( 76 ) * YC( ETE ) * YC( HO ) RXRAT( 77 ) = RKI( 77 ) * YC( OLT ) * YC( HO ) RXRAT( 78 ) = RKI( 78 ) * YC( OLI ) * YC( HO ) RXRAT( 79 ) = RKI( 79 ) * YC( DIEN ) * YC( HO ) RXRAT( 80 ) = RKI( 80 ) * YC( ACE ) * YC( HO ) RXRAT( 81 ) = RKI( 81 ) * YC( BENZENE ) * YC( HO ) RXRAT( 82 ) = RKI( 82 ) * YC( TOL ) * YC( HO ) RXRAT( 83 ) = RKI( 83 ) * YC( XYM ) * YC( HO ) RXRAT( 84 ) = RKI( 84 ) * YC( XYP ) * YC( HO ) RXRAT( 85 ) = RKI( 85 ) * YC( XYO ) * YC( HO ) RXRAT( 86 ) = RKI( 86 ) * YC( ISO ) * YC( HO ) RXRAT( 87 ) = RKI( 87 ) * YC( API ) * YC( HO ) RXRAT( 88 ) = RKI( 88 ) * YC( LIM ) * YC( HO ) RXRAT( 89 ) = RKI( 89 ) * YC( HCHO ) * YC( HO ) RXRAT( 90 ) = RKI( 90 ) * YC( ACD ) * YC( HO ) RXRAT( 91 ) = RKI( 91 ) * YC( ALD ) * YC( HO ) RXRAT( 92 ) = RKI( 92 ) * YC( ACT ) * YC( HO ) RXRAT( 93 ) = RKI( 93 ) * YC( MEK ) * YC( HO ) RXRAT( 94 ) = RKI( 94 ) * YC( KET ) * YC( HO ) RXRAT( 95 ) = RKI( 95 ) * YC( HKET ) * YC( HO ) RXRAT( 96 ) = RKI( 96 ) * YC( MACR ) * YC( HO ) RXRAT( 97 ) = RKI( 97 ) * YC( MVK ) * YC( HO ) RXRAT( 98 ) = RKI( 98 ) * YC( UALD ) * YC( HO ) RXRAT( 99 ) = RKI( 99 ) * YC( GLY ) * YC( HO ) RXRAT( 100 ) = RKI( 100 ) * YC( MGLY ) * YC( HO ) RXRAT( 101 ) = RKI( 101 ) * YC( DCB1 ) * YC( HO ) RXRAT( 102 ) = RKI( 102 ) * YC( DCB2 ) * YC( HO ) RXRAT( 103 ) = RKI( 103 ) * YC( DCB3 ) * YC( HO ) RXRAT( 104 ) = RKI( 104 ) * YC( BALD ) * YC( HO ) RXRAT( 105 ) = RKI( 105 ) * YC( PHEN ) * YC( HO ) RXRAT( 106 ) = RKI( 106 ) * YC( CSL ) * YC( HO ) RXRAT( 107 ) = RKI( 107 ) * YC( EPX ) * YC( HO ) RXRAT( 108 ) = RKI( 108 ) * YC( MCT ) * YC( HO ) RXRAT( 109 ) = RKI( 109 ) * YC( MOH ) * YC( HO ) RXRAT( 110 ) = RKI( 110 ) * YC( EOH ) * YC( HO ) RXRAT( 111 ) = RKI( 111 ) * YC( ROH ) * YC( HO ) RXRAT( 112 ) = RKI( 112 ) * YC( ETEG ) * YC( HO ) RXRAT( 113 ) = RKI( 113 ) * YC( OP1 ) * YC( HO ) RXRAT( 114 ) = RKI( 114 ) * YC( OP2 ) * YC( HO ) RXRAT( 115 ) = RKI( 115 ) * YC( ISHP ) * YC( HO ) RXRAT( 116 ) = RKI( 116 ) * YC( MAHP ) * YC( HO ) RXRAT( 117 ) = RKI( 117 ) * YC( ORA1 ) * YC( HO ) RXRAT( 118 ) = RKI( 118 ) * YC( ORA2 ) * YC( HO ) RXRAT( 119 ) = RKI( 119 ) * YC( PAA ) * YC( HO ) RXRAT( 120 ) = RKI( 120 ) * YC( PAN ) * YC( HO ) RXRAT( 121 ) = RKI( 121 ) * YC( PPN ) * YC( HO ) RXRAT( 122 ) = RKI( 122 ) * YC( MPAN ) * YC( HO ) RXRAT( 123 ) = RKI( 123 ) * YC( ONIT ) * YC( HO ) RXRAT( 124 ) = RKI( 124 ) * YC( NALD ) * YC( HO ) RXRAT( 125 ) = RKI( 125 ) * YC( ISON ) * YC( HO ) RXRAT( 126 ) = RKI( 126 ) * YC( ETE ) * YC( O3 ) RXRAT( 127 ) = RKI( 127 ) * YC( OLT ) * YC( O3 ) RXRAT( 128 ) = RKI( 128 ) * YC( OLI ) * YC( O3 ) RXRAT( 129 ) = RKI( 129 ) * YC( DIEN ) * YC( O3 ) RXRAT( 130 ) = RKI( 130 ) * YC( ISO ) * YC( O3 ) RXRAT( 131 ) = RKI( 131 ) * YC( API ) * YC( O3 ) RXRAT( 132 ) = RKI( 132 ) * YC( LIM ) * YC( O3 ) RXRAT( 133 ) = RKI( 133 ) * YC( MACR ) * YC( O3 ) RXRAT( 134 ) = RKI( 134 ) * YC( MVK ) * YC( O3 ) RXRAT( 135 ) = RKI( 135 ) * YC( UALD ) * YC( O3 ) RXRAT( 136 ) = RKI( 136 ) * YC( DCB1 ) * YC( O3 ) RXRAT( 137 ) = RKI( 137 ) * YC( DCB2 ) * YC( O3 ) RXRAT( 138 ) = RKI( 138 ) * YC( DCB3 ) * YC( O3 ) RXRAT( 139 ) = RKI( 139 ) * YC( EPX ) * YC( O3 ) RXRAT( 140 ) = RKI( 140 ) * YC( MCTO ) * YC( O3 ) RXRAT( 141 ) = RKI( 141 ) * YC( ETE ) * YC( NO3 ) RXRAT( 142 ) = RKI( 142 ) * YC( OLT ) * YC( NO3 ) RXRAT( 143 ) = RKI( 143 ) * YC( OLI ) * YC( NO3 ) RXRAT( 144 ) = RKI( 144 ) * YC( DIEN ) * YC( NO3 ) RXRAT( 145 ) = RKI( 145 ) * YC( ISO ) * YC( NO3 ) RXRAT( 146 ) = RKI( 146 ) * YC( API ) * YC( NO3 ) RXRAT( 147 ) = RKI( 147 ) * YC( LIM ) * YC( NO3 ) RXRAT( 148 ) = RKI( 148 ) * YC( HCHO ) * YC( NO3 ) RXRAT( 149 ) = RKI( 149 ) * YC( ACD ) * YC( NO3 ) RXRAT( 150 ) = RKI( 150 ) * YC( ALD ) * YC( NO3 ) RXRAT( 151 ) = RKI( 151 ) * YC( MACR ) * YC( NO3 ) RXRAT( 152 ) = RKI( 152 ) * YC( UALD ) * YC( NO3 ) RXRAT( 153 ) = RKI( 153 ) * YC( GLY ) * YC( NO3 ) RXRAT( 154 ) = RKI( 154 ) * YC( MGLY ) * YC( NO3 ) RXRAT( 155 ) = RKI( 155 ) * YC( PHEN ) * YC( NO3 ) RXRAT( 156 ) = RKI( 156 ) * YC( CSL ) * YC( NO3 ) RXRAT( 157 ) = RKI( 157 ) * YC( EPX ) * YC( NO3 ) RXRAT( 158 ) = RKI( 158 ) * YC( MCT ) * YC( NO3 ) RXRAT( 159 ) = RKI( 159 ) * YC( MPAN ) * YC( NO3 ) RXRAT( 160 ) = RKI( 160 ) * YC( TR2 ) RXRAT( 161 ) = RKI( 161 ) * YC( TOLP ) RXRAT( 162 ) = RKI( 162 ) * YC( XY2 ) RXRAT( 163 ) = RKI( 163 ) * YC( XYLP ) RXRAT( 164 ) = RKI( 164 ) * YC( XYO2 ) RXRAT( 165 ) = RKI( 165 ) * YC( XYOP ) ! RXRAT( 166 ) = RKI( 166 ) * YC( ACO3 ) * YC( NO2 ) RXRAT( 167 ) = RKI( 167 ) * YC( PAN ) RXRAT( 168 ) = RKI( 168 ) * YC( RCO3 ) * YC( NO2 ) RXRAT( 169 ) = RKI( 169 ) * YC( PPN ) RXRAT( 170 ) = RKI( 170 ) * YC( MACP ) * YC( NO2 ) RXRAT( 171 ) = RKI( 171 ) * YC( MPAN ) RXRAT( 172 ) = RKI( 172 ) * YC( MO2 ) * YC( NO ) RXRAT( 173 ) = RKI( 173 ) * YC( ETHP ) * YC( NO ) RXRAT( 174 ) = RKI( 174 ) * YC( HC3P ) * YC( NO ) RXRAT( 175 ) = RKI( 175 ) * YC( HC5P ) * YC( NO ) RXRAT( 176 ) = RKI( 176 ) * YC( HC8P ) * YC( NO ) RXRAT( 177 ) = RKI( 177 ) * YC( ETEP ) * YC( NO ) RXRAT( 178 ) = RKI( 178 ) * YC( OLTP ) * YC( NO ) RXRAT( 179 ) = RKI( 179 ) * YC( OLIP ) * YC( NO ) RXRAT( 180 ) = RKI( 180 ) * YC( BENP ) * YC( NO ) RXRAT( 181 ) = RKI( 181 ) * YC( TLP1 ) * YC( NO ) RXRAT( 182 ) = RKI( 182 ) * YC( TOLP ) * YC( NO ) RXRAT( 183 ) = RKI( 183 ) * YC( PER1 ) * YC( NO ) RXRAT( 184 ) = RKI( 184 ) * YC( XYL1 ) * YC( NO ) RXRAT( 185 ) = RKI( 185 ) * YC( XYLP ) * YC( NO ) RXRAT( 186 ) = RKI( 186 ) * YC( PER2 ) * YC( NO ) RXRAT( 187 ) = RKI( 187 ) * YC( XYOP ) * YC( NO ) RXRAT( 188 ) = RKI( 188 ) * YC( ISOP ) * YC( NO ) RXRAT( 189 ) = RKI( 189 ) * YC( APIP ) * YC( NO ) RXRAT( 190 ) = RKI( 190 ) * YC( LIMP ) * YC( NO ) RXRAT( 191 ) = RKI( 191 ) * YC( ACO3 ) * YC( NO ) RXRAT( 192 ) = RKI( 192 ) * YC( RCO3 ) * YC( NO ) RXRAT( 193 ) = RKI( 193 ) * YC( ACTP ) * YC( NO ) RXRAT( 194 ) = RKI( 194 ) * YC( MEKP ) * YC( NO ) RXRAT( 195 ) = RKI( 195 ) * YC( KETP ) * YC( NO ) RXRAT( 196 ) = RKI( 196 ) * YC( MACP ) * YC( NO ) RXRAT( 197 ) = RKI( 197 ) * YC( MCP ) * YC( NO ) RXRAT( 198 ) = RKI( 198 ) * YC( MVKP ) * YC( NO ) RXRAT( 199 ) = RKI( 199 ) * YC( UALP ) * YC( NO ) RXRAT( 200 ) = RKI( 200 ) * YC( BALP ) * YC( NO ) RXRAT( 201 ) = RKI( 201 ) * YC( BAL1 ) * YC( NO ) RXRAT( 202 ) = RKI( 202 ) * YC( ADDC ) * YC( NO ) RXRAT( 203 ) = RKI( 203 ) * YC( MCTP ) * YC( NO ) RXRAT( 204 ) = RKI( 204 ) * YC( ORAP ) * YC( NO ) RXRAT( 205 ) = RKI( 205 ) * YC( OLNN ) * YC( NO ) RXRAT( 206 ) = RKI( 206 ) * YC( OLND ) * YC( NO ) RXRAT( 207 ) = RKI( 207 ) * YC( ADCN ) * YC( NO ) RXRAT( 208 ) = RKI( 208 ) * YC( XO2 ) * YC( NO ) RXRAT( 209 ) = RKI( 209 ) * YC( BAL2 ) * YC( NO2 ) RXRAT( 210 ) = RKI( 210 ) * YC( CHO ) * YC( NO2 ) RXRAT( 211 ) = RKI( 211 ) * YC( MCTO ) * YC( NO2 ) RXRAT( 212 ) = RKI( 212 ) * YC( MO2 ) * YC( HO2 ) RXRAT( 213 ) = RKI( 213 ) * YC( ETHP ) * YC( HO2 ) RXRAT( 214 ) = RKI( 214 ) * YC( HC3P ) * YC( HO2 ) RXRAT( 215 ) = RKI( 215 ) * YC( HC5P ) * YC( HO2 ) RXRAT( 216 ) = RKI( 216 ) * YC( HC8P ) * YC( HO2 ) RXRAT( 217 ) = RKI( 217 ) * YC( ETEP ) * YC( HO2 ) RXRAT( 218 ) = RKI( 218 ) * YC( OLTP ) * YC( HO2 ) RXRAT( 219 ) = RKI( 219 ) * YC( OLIP ) * YC( HO2 ) RXRAT( 220 ) = RKI( 220 ) * YC( BENP ) * YC( HO2 ) RXRAT( 221 ) = RKI( 221 ) * YC( TLP1 ) * YC( HO2 ) RXRAT( 222 ) = RKI( 222 ) * YC( TOLP ) * YC( HO2 ) RXRAT( 223 ) = RKI( 223 ) * YC( PER1 ) * YC( HO2 ) RXRAT( 224 ) = RKI( 224 ) * YC( XYL1 ) * YC( HO2 ) RXRAT( 225 ) = RKI( 225 ) * YC( XYLP ) * YC( HO2 ) RXRAT( 226 ) = RKI( 226 ) * YC( PER2 ) * YC( HO2 ) RXRAT( 227 ) = RKI( 227 ) * YC( XYOP ) * YC( HO2 ) RXRAT( 228 ) = RKI( 228 ) * YC( ISOP ) * YC( HO2 ) RXRAT( 229 ) = RKI( 229 ) * YC( APIP ) * YC( HO2 ) RXRAT( 230 ) = RKI( 230 ) * YC( LIMP ) * YC( HO2 ) RXRAT( 231 ) = RKI( 231 ) * YC( ACO3 ) * YC( HO2 ) RXRAT( 232 ) = RKI( 232 ) * YC( RCO3 ) * YC( HO2 ) RXRAT( 233 ) = RKI( 233 ) * YC( ACTP ) * YC( HO2 ) RXRAT( 234 ) = RKI( 234 ) * YC( MEKP ) * YC( HO2 ) RXRAT( 235 ) = RKI( 235 ) * YC( KETP ) * YC( HO2 ) RXRAT( 236 ) = RKI( 236 ) * YC( MACP ) * YC( HO2 ) RXRAT( 237 ) = RKI( 237 ) * YC( MCP ) * YC( HO2 ) RXRAT( 238 ) = RKI( 238 ) * YC( MVKP ) * YC( HO2 ) RXRAT( 239 ) = RKI( 239 ) * YC( UALP ) * YC( HO2 ) RXRAT( 240 ) = RKI( 240 ) * YC( ADDC ) * YC( HO2 ) RXRAT( 241 ) = RKI( 241 ) * YC( CHO ) * YC( HO2 ) RXRAT( 242 ) = RKI( 242 ) * YC( MCTP ) * YC( HO2 ) RXRAT( 243 ) = RKI( 243 ) * YC( ORAP ) * YC( HO2 ) RXRAT( 244 ) = RKI( 244 ) * YC( OLNN ) * YC( HO2 ) RXRAT( 245 ) = RKI( 245 ) * YC( OLND ) * YC( HO2 ) RXRAT( 246 ) = RKI( 246 ) * YC( ADCN ) * YC( HO2 ) RXRAT( 247 ) = RKI( 247 ) * YC( XO2 ) * YC( HO2 ) RXRAT( 248 ) = RKI( 248 ) * YC( MO2 ) * YC( MO2 ) RXRAT( 249 ) = RKI( 249 ) * YC( ETHP ) * YC( MO2 ) RXRAT( 250 ) = RKI( 250 ) * YC( HC3P ) * YC( MO2 ) RXRAT( 251 ) = RKI( 251 ) * YC( HC5P ) * YC( MO2 ) RXRAT( 252 ) = RKI( 252 ) * YC( HC8P ) * YC( MO2 ) RXRAT( 253 ) = RKI( 253 ) * YC( ETEP ) * YC( MO2 ) RXRAT( 254 ) = RKI( 254 ) * YC( OLTP ) * YC( MO2 ) RXRAT( 255 ) = RKI( 255 ) * YC( OLIP ) * YC( MO2 ) RXRAT( 256 ) = RKI( 256 ) * YC( BENP ) * YC( MO2 ) RXRAT( 257 ) = RKI( 257 ) * YC( TLP1 ) * YC( MO2 ) RXRAT( 258 ) = RKI( 258 ) * YC( TOLP ) * YC( MO2 ) RXRAT( 259 ) = RKI( 259 ) * YC( PER1 ) * YC( MO2 ) RXRAT( 260 ) = RKI( 260 ) * YC( XYL1 ) * YC( MO2 ) RXRAT( 261 ) = RKI( 261 ) * YC( XYLP ) * YC( MO2 ) RXRAT( 262 ) = RKI( 262 ) * YC( PER2 ) * YC( MO2 ) RXRAT( 263 ) = RKI( 263 ) * YC( XYOP ) * YC( MO2 ) RXRAT( 264 ) = RKI( 264 ) * YC( ISOP ) * YC( MO2 ) RXRAT( 265 ) = RKI( 265 ) * YC( APIP ) * YC( MO2 ) RXRAT( 266 ) = RKI( 266 ) * YC( LIMP ) * YC( MO2 ) RXRAT( 267 ) = RKI( 267 ) * YC( ACO3 ) * YC( MO2 ) RXRAT( 268 ) = RKI( 268 ) * YC( RCO3 ) * YC( MO2 ) RXRAT( 269 ) = RKI( 269 ) * YC( ACTP ) * YC( MO2 ) RXRAT( 270 ) = RKI( 270 ) * YC( MEKP ) * YC( MO2 ) RXRAT( 271 ) = RKI( 271 ) * YC( KETP ) * YC( MO2 ) RXRAT( 272 ) = RKI( 272 ) * YC( MACP ) * YC( MO2 ) RXRAT( 273 ) = RKI( 273 ) * YC( MCP ) * YC( MO2 ) RXRAT( 274 ) = RKI( 274 ) * YC( MVKP ) * YC( MO2 ) RXRAT( 275 ) = RKI( 275 ) * YC( UALP ) * YC( MO2 ) RXRAT( 276 ) = RKI( 276 ) * YC( BALP ) * YC( MO2 ) RXRAT( 277 ) = RKI( 277 ) * YC( BAL1 ) * YC( MO2 ) RXRAT( 278 ) = RKI( 278 ) * YC( ADDC ) * YC( MO2 ) RXRAT( 279 ) = RKI( 279 ) * YC( MCTP ) * YC( MO2 ) RXRAT( 280 ) = RKI( 280 ) * YC( ORAP ) * YC( MO2 ) RXRAT( 281 ) = RKI( 281 ) * YC( OLNN ) * YC( MO2 ) RXRAT( 282 ) = RKI( 282 ) * YC( OLND ) * YC( MO2 ) RXRAT( 283 ) = RKI( 283 ) * YC( ADCN ) * YC( MO2 ) RXRAT( 284 ) = RKI( 284 ) * YC( XO2 ) * YC( MO2 ) RXRAT( 285 ) = RKI( 285 ) * YC( ETHP ) * YC( ACO3 ) RXRAT( 286 ) = RKI( 286 ) * YC( HC3P ) * YC( ACO3 ) RXRAT( 287 ) = RKI( 287 ) * YC( HC5P ) * YC( ACO3 ) RXRAT( 288 ) = RKI( 288 ) * YC( HC8P ) * YC( ACO3 ) RXRAT( 289 ) = RKI( 289 ) * YC( ETEP ) * YC( ACO3 ) RXRAT( 290 ) = RKI( 290 ) * YC( OLTP ) * YC( ACO3 ) RXRAT( 291 ) = RKI( 291 ) * YC( OLIP ) * YC( ACO3 ) RXRAT( 292 ) = RKI( 292 ) * YC( BENP ) * YC( ACO3 ) RXRAT( 293 ) = RKI( 293 ) * YC( TLP1 ) * YC( ACO3 ) RXRAT( 294 ) = RKI( 294 ) * YC( TOLP ) * YC( ACO3 ) RXRAT( 295 ) = RKI( 295 ) * YC( PER1 ) * YC( ACO3 ) RXRAT( 296 ) = RKI( 296 ) * YC( XYL1 ) * YC( ACO3 ) RXRAT( 297 ) = RKI( 297 ) * YC( XYLP ) * YC( ACO3 ) RXRAT( 298 ) = RKI( 298 ) * YC( PER2 ) * YC( ACO3 ) RXRAT( 299 ) = RKI( 299 ) * YC( XYOP ) * YC( ACO3 ) RXRAT( 300 ) = RKI( 300 ) * YC( ISOP ) * YC( ACO3 ) RXRAT( 301 ) = RKI( 301 ) * YC( APIP ) * YC( ACO3 ) RXRAT( 302 ) = RKI( 302 ) * YC( LIMP ) * YC( ACO3 ) RXRAT( 303 ) = RKI( 303 ) * YC( ACO3 ) * YC( ACO3 ) RXRAT( 304 ) = RKI( 304 ) * YC( RCO3 ) * YC( ACO3 ) RXRAT( 305 ) = RKI( 305 ) * YC( ACTP ) * YC( ACO3 ) RXRAT( 306 ) = RKI( 306 ) * YC( MEKP ) * YC( ACO3 ) RXRAT( 307 ) = RKI( 307 ) * YC( KETP ) * YC( ACO3 ) RXRAT( 308 ) = RKI( 308 ) * YC( MACP ) * YC( ACO3 ) RXRAT( 309 ) = RKI( 309 ) * YC( MCP ) * YC( ACO3 ) RXRAT( 310 ) = RKI( 310 ) * YC( MVKP ) * YC( ACO3 ) RXRAT( 311 ) = RKI( 311 ) * YC( UALP ) * YC( ACO3 ) RXRAT( 312 ) = RKI( 312 ) * YC( BALP ) * YC( ACO3 ) RXRAT( 313 ) = RKI( 313 ) * YC( BAL1 ) * YC( ACO3 ) RXRAT( 314 ) = RKI( 314 ) * YC( ADDC ) * YC( ACO3 ) RXRAT( 315 ) = RKI( 315 ) * YC( MCTP ) * YC( ACO3 ) RXRAT( 316 ) = RKI( 316 ) * YC( ORAP ) * YC( ACO3 ) RXRAT( 317 ) = RKI( 317 ) * YC( OLNN ) * YC( ACO3 ) RXRAT( 318 ) = RKI( 318 ) * YC( OLND ) * YC( ACO3 ) RXRAT( 319 ) = RKI( 319 ) * YC( ADCN ) * YC( ACO3 ) RXRAT( 320 ) = RKI( 320 ) * YC( XO2 ) * YC( ACO3 ) RXRAT( 321 ) = RKI( 321 ) * YC( RCO3 ) * YC( RCO3 ) RXRAT( 322 ) = RKI( 322 ) * YC( MO2 ) * YC( NO3 ) RXRAT( 323 ) = RKI( 323 ) * YC( ETHP ) * YC( NO3 ) RXRAT( 324 ) = RKI( 324 ) * YC( HC3P ) * YC( NO3 ) RXRAT( 325 ) = RKI( 325 ) * YC( HC5P ) * YC( NO3 ) RXRAT( 326 ) = RKI( 326 ) * YC( HC8P ) * YC( NO3 ) RXRAT( 327 ) = RKI( 327 ) * YC( ETEP ) * YC( NO3 ) RXRAT( 328 ) = RKI( 328 ) * YC( OLTP ) * YC( NO3 ) RXRAT( 329 ) = RKI( 329 ) * YC( OLIP ) * YC( NO3 ) RXRAT( 330 ) = RKI( 330 ) * YC( BENP ) * YC( NO3 ) RXRAT( 331 ) = RKI( 331 ) * YC( TLP1 ) * YC( NO3 ) RXRAT( 332 ) = RKI( 332 ) * YC( TOLP ) * YC( NO3 ) RXRAT( 333 ) = RKI( 333 ) * YC( PER1 ) * YC( NO3 ) RXRAT( 334 ) = RKI( 334 ) * YC( XYL1 ) * YC( NO3 ) RXRAT( 335 ) = RKI( 335 ) * YC( XYLP ) * YC( NO3 ) RXRAT( 336 ) = RKI( 336 ) * YC( PER2 ) * YC( NO3 ) RXRAT( 337 ) = RKI( 337 ) * YC( XYOP ) * YC( NO3 ) RXRAT( 338 ) = RKI( 338 ) * YC( ISOP ) * YC( NO3 ) RXRAT( 339 ) = RKI( 339 ) * YC( APIP ) * YC( NO3 ) RXRAT( 340 ) = RKI( 340 ) * YC( LIMP ) * YC( NO3 ) RXRAT( 341 ) = RKI( 341 ) * YC( ACO3 ) * YC( NO3 ) RXRAT( 342 ) = RKI( 342 ) * YC( RCO3 ) * YC( NO3 ) RXRAT( 343 ) = RKI( 343 ) * YC( ACTP ) * YC( NO3 ) RXRAT( 344 ) = RKI( 344 ) * YC( MEKP ) * YC( NO3 ) RXRAT( 345 ) = RKI( 345 ) * YC( KETP ) * YC( NO3 ) RXRAT( 346 ) = RKI( 346 ) * YC( MACP ) * YC( NO3 ) RXRAT( 347 ) = RKI( 347 ) * YC( MCP ) * YC( NO3 ) RXRAT( 348 ) = RKI( 348 ) * YC( MVKP ) * YC( NO3 ) RXRAT( 349 ) = RKI( 349 ) * YC( UALP ) * YC( NO3 ) RXRAT( 350 ) = RKI( 350 ) * YC( BALP ) * YC( NO3 ) RXRAT( 351 ) = RKI( 351 ) * YC( BAL1 ) * YC( NO3 ) RXRAT( 352 ) = RKI( 352 ) * YC( ADDC ) * YC( NO3 ) RXRAT( 353 ) = RKI( 353 ) * YC( MCTP ) * YC( NO3 ) RXRAT( 354 ) = RKI( 354 ) * YC( ORAP ) * YC( NO3 ) RXRAT( 355 ) = RKI( 355 ) * YC( OLNN ) * YC( NO3 ) RXRAT( 356 ) = RKI( 356 ) * YC( OLND ) * YC( NO3 ) RXRAT( 357 ) = RKI( 357 ) * YC( ADCN ) * YC( NO3 ) RXRAT( 358 ) = RKI( 358 ) * YC( OLNN ) * YC( OLNN ) RXRAT( 359 ) = RKI( 359 ) * YC( OLNN ) * YC( OLND ) RXRAT( 360 ) = RKI( 360 ) * YC( OLND ) * YC( OLND ) RXRAT( 361 ) = RKI( 361 ) * YC( XO2 ) * YC( NO3 ) RXRAT( 362 ) = RKI( 362 ) * YC( XO2 ) * YC( RCO3 ) RXRAT( 363 ) = RKI( 363 ) * YC( XO2 ) * YC( XO2 ) RXRAT( 364 ) = RKI( 364 ) * YC( TOLRO2 ) * YC( NO ) RXRAT( 365 ) = RKI( 365 ) * YC( TOLRO2 ) * YC( HO2 ) RXRAT( 366 ) = RKI( 366 ) * YC( XYLRO2 ) * YC( NO ) RXRAT( 367 ) = RKI( 367 ) * YC( XYLRO2 ) * YC( HO2 ) RXRAT( 368 ) = RKI( 368 ) * YC( BENZRO2 ) * YC( NO ) RXRAT( 369 ) = RKI( 369 ) * YC( BENZRO2 ) * YC( HO2 ) RXRAT( 370 ) = RKI( 370 ) * YC( SESQ ) * YC( O3 ) RXRAT( 371 ) = RKI( 371 ) * YC( SESQ ) * YC( HO ) RXRAT( 372 ) = RKI( 372 ) * YC( SESQ ) * YC( NO3 ) RXRAT( 373 ) = RKI( 373 ) * YC( NAPH ) * YC( HO ) RXRAT( 374 ) = RKI( 374 ) * YC( PAHRO2 ) * YC( NO ) RXRAT( 375 ) = RKI( 375 ) * YC( PAHRO2 ) * YC( HO2 ) RXRAT( 376 ) = RKI( 376 ) * YC( SOAALK ) * YC( HO ) RXRAT( 377 ) = RKI( 377 ) * YC( IEPOX ) * YC( HO ) RXRAT( 378 ) = RKI( 378 ) * YC( N2O5 ) RXRAT( 379 ) = RKI( 379 ) * YC( NO2 ) ! RXRAT( 380 ) = RKI( 380 ) * YC( O3 ) RXRAT( 381 ) = RKI( 381 ) * YC( IEPOX ) RXRAT( 382 ) = RKI( 382 ) * YC( AXYL1J ) RXRAT( 383 ) = RKI( 383 ) * YC( AXYL2J ) RXRAT( 384 ) = RKI( 384 ) * YC( ATOL1J ) RXRAT( 385 ) = RKI( 385 ) * YC( ATOL2J ) RXRAT( 386 ) = RKI( 386 ) * YC( ABNZ1J ) RXRAT( 387 ) = RKI( 387 ) * YC( ABNZ2J ) RXRAT( 388 ) = RKI( 388 ) * YC( ATRP1J ) RXRAT( 389 ) = RKI( 389 ) * YC( ATRP2J ) RXRAT( 390 ) = RKI( 390 ) * YC( AISO1J ) RXRAT( 391 ) = RKI( 391 ) * YC( AISO2J ) RXRAT( 392 ) = RKI( 392 ) * YC( ASQTJ ) RXRAT( 393 ) = RKI( 393 ) * YC( APAH1J ) RXRAT( 394 ) = RKI( 394 ) * YC( APAH2J ) RXRAT( 395 ) = RKI( 395 ) * YC( AALK1J ) RXRAT( 396 ) = RKI( 396 ) * YC( AALK2J ) RXRAT( 397 ) = RKI( 397 ) * YC( APOCI ) * YC( HO ) RXRAT( 398 ) = RKI( 398 ) * YC( APNCOMI ) * YC( HO ) RXRAT( 399 ) = RKI( 399 ) * YC( APOCJ ) * YC( HO ) RXRAT( 400 ) = RKI( 400 ) * YC( APNCOMJ ) * YC( HO ) RXRAT( 401 ) = RKI( 401 ) * YC( PCVOC ) * YC( HO ) RXRAT( 402 ) = RKI( 402 ) * YC( VLVPO1 ) * YC( HO ) RXRAT( 403 ) = RKI( 403 ) * YC( VSVPO1 ) * YC( HO ) RXRAT( 404 ) = RKI( 404 ) * YC( VSVPO2 ) * YC( HO ) RXRAT( 405 ) = RKI( 405 ) * YC( VSVPO3 ) * YC( HO ) RXRAT( 406 ) = RKI( 406 ) * YC( VIVPO1 ) * YC( HO ) RXRAT( 407 ) = RKI( 407 ) * YC( VLVOO1 ) * YC( HO ) RXRAT( 408 ) = RKI( 408 ) * YC( VLVOO2 ) * YC( HO ) RXRAT( 409 ) = RKI( 409 ) * YC( VSVOO1 ) * YC( HO ) RXRAT( 410 ) = RKI( 410 ) * YC( VSVOO2 ) * YC( HO ) RXRAT( 411 ) = RKI( 411 ) * YC( VSVOO3 ) * YC( HO ) RETURN END ================================================ FILE: CCTM/src/gas/ebi_racm2_ae6_aq/hrsolver.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE HRSOLVER( JDATE, JTIME, C, R, L ) C********************************************************************** C C FUNCTION: EBI solver C C PRECONDITIONS: For the RACM2_AE6_AQ mechanism C C KEY SUBROUTINES/FUNCTIONS CALLED: HRRATES, HRG1, HRG2, HRG3 C HRG4, HRPRODLOSS C DEGRADE C C REVISION HISTORY: Created by EBI solver program, Jun 8, 2022 C 21 Jun 10 J.Young: convert for Namelist redesign C 18 Jul 14 B.Hutzell: revised 1) to use the RXNS_DATA and RXNS_FUNCTION C modules instead of include files and 2) to use C real(8) variables C********************************************************************** USE RUNTIME_VARS USE UTILIO_DEFN USE RXNS_DATA USE HRDATA USE PA_IRR_MODULE #ifdef isam USE SA_IRR_DEFN #endif #ifdef sens USE DDM3D_CHEM, ONLY: YCDDM USE CGRID_SPCS, ONLY: GC_SPC #endif USE DEGRADE_ROUTINES, ONLY : DEGRADE, SA_DEGRADE_STEP IMPLICIT NONE C..INCLUDES: C..ARGUMENTS: INTEGER, INTENT( IN ) :: JDATE ! Current date (YYYYDDD) INTEGER, INTENT( IN ) :: JTIME ! Current time (HHMMSS) INTEGER, INTENT( IN ) :: C, R, L ! Cell col, row, lev C..PARAMETERS: INTEGER, PARAMETER :: MXBKUPS = 5 ! Max no. of back-ups allowed INTEGER, PARAMETER :: STAT = 1 ! Status code REAL( 8 ), PARAMETER :: DTMIN = 1.0D-08 ! Smallest time step allowed, min REAL( 8 ), PARAMETER :: EPSLON = 1.0D-30 ! Small number REAL( 8 ), PARAMETER :: MAXPRED = 1.0D+03 ! Upper limit on predicted conc REAL( 8 ), PARAMETER :: ZERO = 1.0D-40 ! effective zero REAL( 8 ), PARAMETER :: FLOOR = 1.0D-08 ! Min conc for RTOL C..EXTERNAL FUNCTIONS: C..SAVED LOCAL VARIABLES: CHARACTER( 16 ), SAVE :: PNAME = 'HRSOLVER' ! Program name LOGICAL, SAVE :: LFIRST = .TRUE. ! Flag for first call LOGICAL, ALLOCATABLE, SAVE :: LEBISPFL( : ) ! Convergence Error Flag for EBI species LOGICAL, ALLOCATABLE, SAVE :: MAXCONC ( : ) ! MAXCONC ERROR Flag for EBI species LOGICAL, ALLOCATABLE, SAVE :: NOTMAX ( : ) ! Initial concentration not greater than MAXPRED REAL( 8 ), ALLOCATABLE, SAVE :: RERROR ( : ) ! Relative Error REAL( 8 ), ALLOCATABLE, SAVE :: AERROR ( : ) ! Absolute Error C..SCRATCH LOCAL VARIABLES: CHARACTER( 132 ) :: MSG ! Message text INTEGER CELLNO ! Cell no. fo debug output INTEGER ITER ! Loop index for Backward Euler iterations INTEGER S ! Loop index for species INTEGER SP ! Imbedded loop index for species INTEGER NEBI ! Loop index for time steps INTEGER NINR ! No. of inner time steps #ifdef hrdebug INTEGER N ! Loop index #endif INTEGER M ! species index INTEGER EBI ! Loop index INTEGER NBKUPS ! No. of times time step reduced INTEGER ERR ! Allocate error flag LOGICAL LEBI_CONV ! Flag for EBI convergence LOGICAL MXFL ! hit MAXPRED flag REAL( 8 ) DTC ! Time step to take REAL( 8 ) DTG ! Time step in degrade routines, sec REAL( 8 ) FXDLOSS ! Total loss due to negative stoichiometry REAL( 8 ) VARLOSS ! Loss excluding negative stoichiometry #ifdef hrdebug CHARACTER( 8 ) :: NOTE ! Convergence fail note INTEGER COL ! Column to generate deboug output for INTEGER ROW ! Row to generate deboug output for INTEGER LEV ! Level to generate deboug output for INTEGER DBGOUT ! Output unit for debu outpt LOGICAL LDEBUG ! Debug output flag LOGICAL, SAVE :: LOPEN = .FALSE. #endif C********************************************************************** IF( LFIRST ) THEN LFIRST = .FALSE. ALLOCATE ( LEBISPFL( NUMB_MECH_SPC ), STAT = ERR ) IF ( ERR .NE. 0 ) THEN MSG = 'Error allocating LEBISPFL' CALL M3EXIT( PNAME, JDATE, JTIME, MSG, XSTAT1 ) END IF ALLOCATE ( MAXCONC( NUMB_MECH_SPC ), STAT = ERR ) IF ( ERR .NE. 0 ) THEN MSG = 'Error allocating MAXCONC' CALL M3EXIT( PNAME, JDATE, JTIME, MSG, XSTAT1 ) END IF ALLOCATE ( NOTMAX( NUMB_MECH_SPC ), STAT = ERR ) IF ( ERR .NE. 0 ) THEN MSG = 'Error allocating NOTMAX' CALL M3EXIT( PNAME, JDATE, JTIME, MSG, XSTAT1 ) END IF ALLOCATE ( RERROR( NUMB_MECH_SPC ), STAT = ERR ) IF ( ERR .NE. 0 ) THEN MSG = 'Error allocating ERROR' CALL M3EXIT( PNAME, JDATE, JTIME, MSG, XSTAT1 ) END IF ALLOCATE ( AERROR( NUMB_MECH_SPC ), STAT = ERR ) IF ( ERR .NE. 0 ) THEN MSG = 'Error allocating AERROR' CALL M3EXIT( PNAME, JDATE, JTIME, MSG, XSTAT1 ) END IF END IF #ifdef sens YCDDM = 0.0D0 #endif c++++++++++++++++++++++++Debug section++++++++++++++++++++++++++++++++++ #ifdef hrdebug COL = 0 ROW = 0 LEV = 0 IF( C .EQ. COL .AND. R .EQ. ROW .AND. L .EQ. LEV ) THEN c IF( JTIME .EQ. 160000 ) THEN LDEBUG = .TRUE. ELSE LDEBUG = .FALSE. END IF IF( LDEBUG ) THEN IF( .NOT. LOPEN ) THEN DBGOUT = JUNIT() OPEN( UNIT = DBGOUT, FILE = 'debug.out' ) LOPEN = .TRUE. END IF WRITE( DBGOUT, '( A, 2I4, I3, 1X, I7, 1X, I6 ) ' ) & 'Debug output for col/row/lev/date/time:', & C, R, L, JDATE, JTIME WRITE( DBGOUT, '( A, F7.2) ' ) & 'EBI_TMSTEP = ', EBI_TMSTEP WRITE( DBGOUT, '( A )' ) 'Starting concs and rate constants' DO N = 1, NUMB_MECH_SPC WRITE( DBGOUT, '( A, I3, 1X, A, 1X, 1PD13.5 )' ) & 'SP ',N, CHEMISTRY_SPC( N ), YC( N ) END DO DO N = 1, N_RXNS WRITE( DBGOUT, '( A, I3, 1X, 1PD13.5 )' ) & 'RKI ', N, RKI( N ) END DO END IF #endif c++++++++++++++++++++++++Debug section++++++++++++++++++++++++++++++++++ DTC = EBI_TMSTEP N_EBI_IT = 0 NBKUPS = 0 N_INR_STEPS = 1 NEBI = 1 LEBI_CONV = .TRUE. #ifdef isam UPDATE_SOLD = .FALSE. UPDATE_PROBABILITIES = .TRUE. CALL SA_IRR_UNBLOCKED ( .TRUE., RKI, YC, DTC ) #endif DO S = 1, NUMB_MECH_SPC IF( YC( S ) .LE. MAXPRED )THEN NOTMAX( S ) = .TRUE. ELSE NOTMAX( S ) = .FALSE. WRITE(LOGDEV,91000)C, R, L, CHEMISTRY_SPC(S), YC(S) END IF END DO ! Initial PA_IRR IF( CALL_IRR ) CALL PA_IRR ( .TRUE., RKI, YC, DTC ) SA_DEGRADE_STEP = 0 TSTEP_EBI: DO ! EBI time-step loop SUBSTEP_EBI: DO NINR = 1, N_INR_STEPS ! time substeps loop ! first attempt is sub time-step equals EBI time-step IF( LEBI_CONV ) YC0 = YC ! Set ICs for EBI iterations ITER_SUBSTEP: DO ITER = 1, NEBITER ! iteration loop solving for sub time-step N_EBI_IT = N_EBI_IT + 1 CALL HRRATES c++++++++++++++++++++++++Debug section++++++++++++++++++++++++++++++++++ #ifdef hrdebug IF( LDEBUG ) THEN WRITE( DBGOUT, '( A, I5 )' ) 'ITER NO ', ITER WRITE( DBGOUT, '( A, F12.5 )' ) & ' DTC=', DTC IF( ITER .EQ. 1 ) THEN WRITE( DBGOUT, '( A )' ) 'Starting reaction rates' DO N = 1, N_RXNS WRITE( DBGOUT, '( A, I3, 1X, 1PD13.5 )' ) & 'RXRAT ', N, RXRAT( NCELL, N ) END DO END IF END IF #endif c++++++++++++++++++++++++Debug section++++++++++++++++++++++++++++++++++ cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Call routines to compute concentrations of groups 1-4 cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc CALL HRG1( DTC ) CALL HRG2( DTC ) CALL HRG3( DTC ) CALL HRG4( DTC ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Do the Euler backward method cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc CALL HRPRODLOSS DO EBI = 1, N_EBISP S = EBISP( EBI ) YCP( S ) = YC( S )*( ( YC0( S ) + PROD( S ) * DTC ) & / ( YC( S ) + LOSS( S ) * DTC ) ) END DO cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Check for convergence cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc LEBI_CONV = .TRUE. MXFL = .FALSE. DO S = 1, NUMB_MECH_SPC LEBISPFL( S ) = .FALSE. YCP( S ) = MAX( ZERO, YCP( S ) ) AERROR( S ) = MAX( ABS( YC(S)-YCP(S) ), EPSLON ) RERROR( S ) = AERROR( S ) / MAX( FLOOR, ABS( YC(S)+YCP(S) ) ) IF( RERROR( S ) .GT. RTOL(S) .OR. AERROR( S ) .GT. 1.0D-5 )THEN LEBI_CONV = .FALSE. LEBISPFL( S ) = .TRUE. END IF c..test if predictions growing too large IF( YCP( S ) .GT. MAXPRED .AND. NOTMAX( S ) ) THEN MXFL = .TRUE. LEBI_CONV = .FALSE. LEBISPFL( S ) = .TRUE. END IF YC( S ) = YCP( S ) END DO c..test if predictions growing too large, abort interation loop IF( MXFL ) EXIT ITER_SUBSTEP c++++++++++++++++++++++++Debug section++++++++++++++++++++++++++++++++++ #ifdef hrdebug IF( LDEBUG ) THEN WRITE( DBGOUT, '( A, I5 )' ) 'Concs after ITER= ', ITER DO S = 1, NUMB_MECH_SPC IF( LEBISPFL( S ) ) THEN NOTE = 'CONV FAIL' ELSE NOTE = ' ' END IF WRITE( DBGOUT, '( I3, 1X, A, 1PD13.5, 1X, A )' ) & S, CHEMISTRY_SPC( S ), YC( S ), NOTE END DO IF( LEBI_CONV ) WRITE( DBGOUT, '( A )' ) & '****Convergence achieved' END IF #endif c++++++++++++++++++++++++Debug section++++++++++++++++++++++++++++++++++ IF( LEBI_CONV ) THEN DTG = 60.0D0 * DTC DO S = 1, NUMB_MECH_SPC M = CGRID_INDEX( S ) YCCELL( M ) = YC( S ) END DO #if defined(isam) || defined(verbose_isam) SA_DEGRADE_STEP = SA_DEGRADE_STEP + 1 #endif IF( CALL_DEG )CALL DEGRADE(YCCELL, DTG, JDATE, JTIME) ! :WTH Call degradation routine IF( CALL_IRR ) CALL PA_IRR ( .FALSE., RKI, YC, DTC ) #ifdef isam IF( NEBI .EQ. N_EBI_STEPS )UPDATE_SOLD = .TRUE. CALL SA_IRR_UNBLOCKED ( .FALSE., RKI, YC, DTC ) UPDATE_PROBABILITIES = .FALSE. #endif #ifdef sens C Update the sum for the average over the chemistry integration YCDDM = YCDDM & + ( ( 0.5D0 * DTC ) * ( YC + YC0 ) ) #endif CYCLE SUBSTEP_EBI ! solve for next sub time-step END IF END DO ITER_SUBSTEP ! interating for substep failed, attempt to increase number of sub time-steps NBKUPS = NBKUPS + 1 ! IF( NBKUPS .LE. MXBKUPS ) THEN IF ( DTC .GT. DTMIN ) THEN ! reset YC and cut sub time-step in half IF ( MXFL ) THEN WRITE( LOGDEV, 92008 ) NBKUPS WRITE( LOGDEV, 92009 ) C+PECOL_OFFSET, R+PEROW_OFFSET, L DO S = 1, NUMB_MECH_SPC IF( LEBISPFL( S ) )WRITE( LOGDEV, 92010 )TRIM( CHEMISTRY_SPC( S ) ), & YC0(S), YCP(S) END DO ELSE WRITE( LOGDEV, 92000 ) C+PECOL_OFFSET, R+PEROW_OFFSET, L, NBKUPS DO S = 1, NUMB_MECH_SPC IF( LEBISPFL( S ) )WRITE( LOGDEV, 92010 )TRIM( CHEMISTRY_SPC( S ) ), & YC0(S), YCP(S) END DO END IF YC = YC0 ! Set ICs for EBI time-step DTC = 0.5D0 * DTC N_INR_STEPS = 2 ** NBKUPS EXIT SUBSTEP_EBI ELSE WRITE( LOGDEV, 92040 ) C+PECOL_OFFSET, R+PEROW_OFFSET, L WRITE( LOGDEV, 92060 ) DO S = 1, NUMB_MECH_SPC IF( LEBISPFL( S ) ) WRITE( LOGDEV, 92080 ) CHEMISTRY_SPC( S ), & YC0(S), YCP(S) END DO MSG = 'ERROR: Stopping because of EBI convergence failures' CALL M3EXIT( PNAME, JDATE, JTIME, MSG, XSTAT2 ) END IF END DO SUBSTEP_EBI IF( LEBI_CONV )THEN NEBI = 1 + NEBI ! test for completing final EBI time-step IF( NEBI .GT. N_EBI_STEPS )EXIT TSTEP_EBI ! test whether backups were done IF( NBKUPS .EQ. 0 )CYCLE TSTEP_EBI ! Reset NBKUPS, N_INR_STEPS and sub-time step NBKUPS = 0 N_INR_STEPS = 1 DTC = EBI_TMSTEP END IF END DO TSTEP_EBI #ifdef sens ! Compute average over integration and filter values YCDDM = YCDDM / CHEMSTEP WHERE ( YCDDM .LT. 1.0D-25 ) YCDDM = 0.0D0 #endif RETURN 91000 FORMAT( 'WARNING: EBI solver in cell (',2(I4,','),I4,') Init.Conc. for ', & A16, ' = ', ES12.4,' ppmV') 92000 FORMAT( 'WARNING: EBI Euler convergence failure' / & ' Reducing EBI time step because of ', & ' convergence failure in ' / & ' Cell (', I3, ', ', I3, ', ', I3, ')' , & ' Solution Attempt #', I2 / & ' Below Species Causing Error: Init.Conc, Pred.Conc.' ) 92008 FORMAT( 'WARNING: At solution attempt #', I2 ) 92009 FORMAT( 'WARNING: EBI Euler convergence failure' / & ' Reducing EBI time step because of ', & ' MAXPRED failure in ' / & ' Cell (', I3, ', ', I3, ', ', I3, ')' , & ' for the below species: : Init.Conc, Pred.Conc.') 92010 FORMAT( A16, 2(1X,ES12.4), ' ppmV' ) 92040 FORMAT( 'ERROR: Max number of EBI time step reductions exceeded' & / ' Convergence failure for cell (', I3, ', ', I3, & ', ', I3, ')' ) 92060 FORMAT( ' Convergence failure for the following species:', & 'Init.Conc, Pred.Conc.' ) 92080 FORMAT( 10X, A, 2(1X,ES12.4), ' ppmV ' ) 92061 FORMAT( ' Convergence failure for the following species:', & 'Init.Conc, Pred.Conc.,Rel.Error,' ) 92081 FORMAT( 10X, A, 2(1X,ES12.4), ' ppmV ', ES12.4,'%' ) END ================================================ FILE: CCTM/src/gas/ebi_saprc07tc_ae6_aq/hrdata_mod.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! MODULE HRDATA C************************************************************************* C C FUNCTION: Mechanism & solver data for EBI solver C C PRECONDITIONS: For the SAPRC07TC_AE6_AQ mechanism C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by EBI solver program, Jun 8, 2022 C C 18 Jul 14 B.Hutzell: revised to use real(8) variables for solution C************************************************************************* c..EBI solver fixed parameters INTEGER, PARAMETER :: NEBITER = 1000 ! No. of iterations for EBI INTEGER, PARAMETER :: MAX_CELLS_EBI = 1 ! max # cells in local conc arrays REAL( 8 ), PARAMETER :: DELTAT = 2.500D+00 ! EBI time step (min) c..Mechanism specific variables INTEGER N_SPEC ! No. of species in mechanism INTEGER N_RXNS ! No. of reactions in mechanism INTEGER N_EBISP ! No. of species solved by EBI INTEGER NING1 ! No. of species in group 1 INTEGER NING2 ! No. of species in group 2 INTEGER N_SPCL_RKS ! No. of special rate constants INTEGER N_ACTSP ! No. of species in mechanism (non-ss spec) INTEGER NCELL ! cell number in EBI Block c..Control flags LOGICAL L_AE_VRSN ! Flag for aerosol version of mech LOGICAL L_AQ_VRSN ! Flag for aqueous chemistry version of mech LOGICAL CALL_IRR ! Flag initializing for IRR and calling PA_IRR ! SWITCH for calling DEGRADE routine LOGICAL, SAVE :: CALL_DEG = .TRUE. c..Miscellaneous variables INTEGER N_EBI_IT ! No. of iterations for EBI INTEGER N_EBI_STEPS ! No. of time steps for EBI INTEGER N_INR_STEPS ! No. of inner time steps for EBI INTEGER PECOL_OFFSET ! Local Column Offset for processor INTEGER PEROW_OFFSET ! Local Column Offset for processor INTEGER, SAVE :: MODEL_SPECIES ! No. of species in CGRID REAL( 8 ) EBI_TMSTEP ! Time step for EBI loops (min) REAL( 8 ) CHEMSTEP ! Chemistry integration interval (min) c...Allocatable arrays INTEGER, ALLOCATABLE :: EBISP( : ) ! Index of EBI species INTEGER, ALLOCATABLE :: SSASP( : ) ! Index of ss species INTEGER, ALLOCATABLE :: ACTSP( : ) ! Index of active species INTEGER, ALLOCATABLE :: IOLD2NEW( :,: ) ! YC species map, used if NSPECIAL > 0 REAL( 8 ), ALLOCATABLE :: RKI( : ) ! Rate constants REAL( 8 ), ALLOCATABLE :: RKI_SAV( :, : ) ! Saved values of RKI for SS species calcs REAL( 8 ), ALLOCATABLE :: YC ( : ) ! Species concentrations REAL( 8 ), ALLOCATABLE :: YC0( : ) ! Species concentrations REAL( 8 ), ALLOCATABLE :: YCP( : ) ! Species concentrations REAL( 8 ), ALLOCATABLE :: SYC( :, : ) ! Species concentrations REAL, ALLOCATABLE :: FORWARD_CONV( : ) ! CGRID to CHEM Species conversion factor REAL, ALLOCATABLE :: REVERSE_CONV( : ) ! CHEM to CGRID Species conversion factor REAL( 8 ), ALLOCATABLE :: RXRAT( : ) ! Reaction rates REAL( 8 ), ALLOCATABLE :: RTOL( : ) ! Species tolerances REAL( 8 ), ALLOCATABLE :: YCCELL( : ) ! ALL Species in cgrid REAL( 8 ), ALLOCATABLE :: PROD( : ) ! Prod of species REAL( 8 ), ALLOCATABLE :: LOSS( : ) ! Loss of species REAL, ALLOCATABLE :: PRES( :, :, : ) ! pressure (Pa) REAL, ALLOCATABLE :: QV ( :, :, : ) ! water vapor (Kg/Kg air) REAL, ALLOCATABLE :: TA ( :, :, : ) ! temperature (K) REAL, ALLOCATABLE :: SEAICE ( :, :) ! fractional seaice cover, [-] REAL, ALLOCATABLE :: DENS( :, :, : ) ! mass density (Kg/m^3) REAL, ALLOCATABLE :: SEAWATER_ZONE ( :,: ) ! fractional area of OPEN+SURF LOGICAL, ALLOCATABLE :: LFLAGIRR ( :,:,: ) ! Conduct IRR for cell REAL( 8 ), ALLOCATABLE :: ATMPRES ( : ) ! Cell pressure, Atm ! REAL( 8 ), ALLOCATABLE :: PRESCELL( : ) ! Cell pressure, Pa REAL( 8 ), ALLOCATABLE :: H2O ( : ) ! Cell H2O mixing ratio (ppmV) REAL( 8 ), ALLOCATABLE :: TEMP ( : ) ! Cell Temperature REAL( 8 ), ALLOCATABLE :: DENSITY ( : ) ! Cell mass density (Kg/m3) REAL( 8 ), ALLOCATABLE :: HET ( :, : ) ! cell heterogeneous reaction rates REAL( 8 ), ALLOCATABLE :: RJIN ( :, : ) ! J-values for a cell REAL( 8 ), ALLOCATABLE :: SEAWATER ( : ) ! fractional area of OPEN+SURF for specific cell c..Species indices INTEGER, PARAMETER :: NO2 = 1 INTEGER, PARAMETER :: NO = 2 INTEGER, PARAMETER :: O3P = 3 INTEGER, PARAMETER :: O3 = 4 INTEGER, PARAMETER :: NO3 = 5 INTEGER, PARAMETER :: N2O5 = 6 INTEGER, PARAMETER :: HNO3 = 7 INTEGER, PARAMETER :: O1D = 8 INTEGER, PARAMETER :: OH = 9 INTEGER, PARAMETER :: HONO = 10 INTEGER, PARAMETER :: HO2 = 11 INTEGER, PARAMETER :: CO = 12 INTEGER, PARAMETER :: CO2 = 13 INTEGER, PARAMETER :: HNO4 = 14 INTEGER, PARAMETER :: HO2H = 15 INTEGER, PARAMETER :: SO2 = 16 INTEGER, PARAMETER :: SULF = 17 INTEGER, PARAMETER :: SULRXN = 18 INTEGER, PARAMETER :: MEO2 = 19 INTEGER, PARAMETER :: HCHO = 20 INTEGER, PARAMETER :: COOH = 21 INTEGER, PARAMETER :: MEOH = 22 INTEGER, PARAMETER :: RO2C = 23 INTEGER, PARAMETER :: RO2XC = 24 INTEGER, PARAMETER :: MECO3 = 25 INTEGER, PARAMETER :: PAN = 26 INTEGER, PARAMETER :: CCOOOH = 27 INTEGER, PARAMETER :: CCOOH = 28 INTEGER, PARAMETER :: RCO3 = 29 INTEGER, PARAMETER :: PAN2 = 30 INTEGER, PARAMETER :: xHO2 = 31 INTEGER, PARAMETER :: yROOH = 32 INTEGER, PARAMETER :: xCCHO = 33 INTEGER, PARAMETER :: RCOOOH = 34 INTEGER, PARAMETER :: RCOOH = 35 INTEGER, PARAMETER :: BZCO3 = 36 INTEGER, PARAMETER :: PBZN = 37 INTEGER, PARAMETER :: BZO = 38 INTEGER, PARAMETER :: MACO3 = 39 INTEGER, PARAMETER :: MAPAN = 40 INTEGER, PARAMETER :: TBUO = 41 INTEGER, PARAMETER :: RNO3 = 42 INTEGER, PARAMETER :: ACETONE = 43 INTEGER, PARAMETER :: NPHE = 44 INTEGER, PARAMETER :: CRES = 45 INTEGER, PARAMETER :: xOH = 46 INTEGER, PARAMETER :: xNO2 = 47 INTEGER, PARAMETER :: xMEO2 = 48 INTEGER, PARAMETER :: xMECO3 = 49 INTEGER, PARAMETER :: xRCO3 = 50 INTEGER, PARAMETER :: xMACO3 = 51 INTEGER, PARAMETER :: xTBUO = 52 INTEGER, PARAMETER :: xCO = 53 INTEGER, PARAMETER :: CCHO = 54 INTEGER, PARAMETER :: RCHO = 55 INTEGER, PARAMETER :: xHCHO = 56 INTEGER, PARAMETER :: MEK = 57 INTEGER, PARAMETER :: zRNO3 = 58 INTEGER, PARAMETER :: xRCHO = 59 INTEGER, PARAMETER :: HCOOH = 60 INTEGER, PARAMETER :: xMGLY = 61 INTEGER, PARAMETER :: xBACL = 62 INTEGER, PARAMETER :: ROOH = 63 INTEGER, PARAMETER :: xPROD2 = 64 INTEGER, PARAMETER :: R6OOH = 65 INTEGER, PARAMETER :: PRD2 = 66 INTEGER, PARAMETER :: yR6OOH = 67 INTEGER, PARAMETER :: RAOOH = 68 INTEGER, PARAMETER :: MGLY = 69 INTEGER, PARAMETER :: IPRD = 70 INTEGER, PARAMETER :: xGLY = 71 INTEGER, PARAMETER :: xMEK = 72 INTEGER, PARAMETER :: xAFG1 = 73 INTEGER, PARAMETER :: xAFG2 = 74 INTEGER, PARAMETER :: GLY = 75 INTEGER, PARAMETER :: AFG1 = 76 INTEGER, PARAMETER :: AFG2 = 77 INTEGER, PARAMETER :: HCOCO3 = 78 INTEGER, PARAMETER :: BACL = 79 INTEGER, PARAMETER :: BALD = 80 INTEGER, PARAMETER :: AFG3 = 81 INTEGER, PARAMETER :: xIPRD = 82 INTEGER, PARAMETER :: MACR = 83 INTEGER, PARAMETER :: MVK = 84 INTEGER, PARAMETER :: xHOCCHO = 85 INTEGER, PARAMETER :: xRNO3 = 86 INTEGER, PARAMETER :: HOCCHO = 87 INTEGER, PARAMETER :: xACETONE = 88 INTEGER, PARAMETER :: ACROLEIN = 89 INTEGER, PARAMETER :: xBALD = 90 INTEGER, PARAMETER :: xAFG3 = 91 INTEGER, PARAMETER :: xMACR = 92 INTEGER, PARAMETER :: xMVK = 93 INTEGER, PARAMETER :: yISOPOOH = 94 INTEGER, PARAMETER :: ISOPOOH = 95 INTEGER, PARAMETER :: yRAOOH = 96 INTEGER, PARAMETER :: xACROLEIN = 97 INTEGER, PARAMETER :: ETHENE = 98 INTEGER, PARAMETER :: PROPENE = 99 INTEGER, PARAMETER :: BUTADIENE13 = 100 INTEGER, PARAMETER :: ISOPRENE = 101 INTEGER, PARAMETER :: ISOPRXN = 102 INTEGER, PARAMETER :: IEPOX = 103 INTEGER, PARAMETER :: ARO2MN = 104 INTEGER, PARAMETER :: IEPOXOO = 105 INTEGER, PARAMETER :: APIN = 106 INTEGER, PARAMETER :: TRPRXN = 107 INTEGER, PARAMETER :: ACETYLENE = 108 INTEGER, PARAMETER :: BENZENE = 109 INTEGER, PARAMETER :: BENZRO2 = 110 INTEGER, PARAMETER :: TOLUENE = 111 INTEGER, PARAMETER :: TOLRO2 = 112 INTEGER, PARAMETER :: MXYL = 113 INTEGER, PARAMETER :: XYLRO2 = 114 INTEGER, PARAMETER :: OXYL = 115 INTEGER, PARAMETER :: PXYL = 116 INTEGER, PARAMETER :: TMBENZ124 = 117 INTEGER, PARAMETER :: ETOH = 118 INTEGER, PARAMETER :: ALK1 = 119 INTEGER, PARAMETER :: ALK2 = 120 INTEGER, PARAMETER :: ALK3 = 121 INTEGER, PARAMETER :: ALK4 = 122 INTEGER, PARAMETER :: ALK5 = 123 INTEGER, PARAMETER :: SOAALK = 124 INTEGER, PARAMETER :: ALKRXN = 125 INTEGER, PARAMETER :: OLE1 = 126 INTEGER, PARAMETER :: OLE2 = 127 INTEGER, PARAMETER :: ARO1 = 128 INTEGER, PARAMETER :: NAPHTHAL = 129 INTEGER, PARAMETER :: PAHRO2 = 130 INTEGER, PARAMETER :: TERP = 131 INTEGER, PARAMETER :: SESQ = 132 INTEGER, PARAMETER :: SESQRXN = 133 INTEGER, PARAMETER :: CL2 = 134 INTEGER, PARAMETER :: CL = 135 INTEGER, PARAMETER :: CLNO = 136 INTEGER, PARAMETER :: CLONO = 137 INTEGER, PARAMETER :: CLNO2 = 138 INTEGER, PARAMETER :: HCL = 139 INTEGER, PARAMETER :: CLO = 140 INTEGER, PARAMETER :: CLONO2 = 141 INTEGER, PARAMETER :: HOCL = 142 INTEGER, PARAMETER :: xCL = 143 INTEGER, PARAMETER :: xCLCCHO = 144 INTEGER, PARAMETER :: xCLACET = 145 INTEGER, PARAMETER :: CLCCHO = 146 INTEGER, PARAMETER :: CLACET = 147 INTEGER, PARAMETER :: CLCHO = 148 INTEGER, PARAMETER :: BNZNRXN = 149 INTEGER, PARAMETER :: BNZHRXN = 150 INTEGER, PARAMETER :: XYLNRXN = 151 INTEGER, PARAMETER :: XYLHRXN = 152 INTEGER, PARAMETER :: TOLNRXN = 153 INTEGER, PARAMETER :: TOLHRXN = 154 INTEGER, PARAMETER :: PAHNRXN = 155 INTEGER, PARAMETER :: PAHHRXN = 156 INTEGER, PARAMETER :: HCHO_PRIMARY = 157 INTEGER, PARAMETER :: CCHO_PRIMARY = 158 INTEGER, PARAMETER :: ACRO_PRIMARY = 159 INTEGER, PARAMETER :: H2NO3PIJ = 160 INTEGER, PARAMETER :: H2NO3PK = 161 INTEGER, PARAMETER :: ACLI = 162 INTEGER, PARAMETER :: ACLJ = 163 INTEGER, PARAMETER :: ACLK = 164 INTEGER, PARAMETER :: AXYL1J = 165 INTEGER, PARAMETER :: AOLGAJ = 166 INTEGER, PARAMETER :: AXYL2J = 167 INTEGER, PARAMETER :: ATOL1J = 168 INTEGER, PARAMETER :: ATOL2J = 169 INTEGER, PARAMETER :: ABNZ1J = 170 INTEGER, PARAMETER :: ABNZ2J = 171 INTEGER, PARAMETER :: ATRP1J = 172 INTEGER, PARAMETER :: AOLGBJ = 173 INTEGER, PARAMETER :: ATRP2J = 174 INTEGER, PARAMETER :: AISO1J = 175 INTEGER, PARAMETER :: AISO2J = 176 INTEGER, PARAMETER :: ASQTJ = 177 INTEGER, PARAMETER :: APAH1J = 178 INTEGER, PARAMETER :: APAH2J = 179 INTEGER, PARAMETER :: AALK1J = 180 INTEGER, PARAMETER :: AALK2J = 181 INTEGER, PARAMETER :: APOCI = 182 INTEGER, PARAMETER :: APNCOMI = 183 INTEGER, PARAMETER :: APOCJ = 184 INTEGER, PARAMETER :: APNCOMJ = 185 INTEGER, PARAMETER :: PCVOC = 186 INTEGER, PARAMETER :: PCSOARXN = 187 INTEGER, PARAMETER :: VLVPO1 = 188 INTEGER, PARAMETER :: VSVPO1 = 189 INTEGER, PARAMETER :: VSVPO2 = 190 INTEGER, PARAMETER :: VSVPO3 = 191 INTEGER, PARAMETER :: VIVPO1 = 192 INTEGER, PARAMETER :: VLVOO1 = 193 INTEGER, PARAMETER :: VLVOO2 = 194 INTEGER, PARAMETER :: VSVOO2 = 195 INTEGER, PARAMETER :: VSVOO3 = 196 INTEGER, PARAMETER :: VSVOO1 = 197 INTEGER, PARAMETER :: AISO3J = 198 END MODULE HRDATA ================================================ FILE: CCTM/src/gas/ebi_saprc07tc_ae6_aq/hrdriver.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE CHEM( CGRID, JDATE, JTIME, TSTEP ) C********************************************************************** C C FUNCTION: Driver subroutine for Euler Backward Iterative solver C C PRECONDITIONS: For the SAPRC07TC_AE6_AQ mechanism C C KEY SUBROUTINES/FUNCTIONS CALLED: HRINIT, HRCALCKS, HRSOLVER C FIND_DEGRADED, INIT_DEGRADE, FINAL_DEGRADE C C REVISION HISTORY: Created by EBI solver program, Jun 8, 2022 C Based on the algorithm in "Test of Two Numerical C Schemes for Use in Atmospheric Transport-Chemistry C Models", O. Hertel, R. Berkowicz, J. Christensen, C and O. Hov, Atm Env., Vol. 27A, No. 16, 1993. C Original MEBI code developed by Ho-Chun Huang, C SUNY, Albany -- "On the performance of numerical C solvers for a chemistry submodel in three-dimensional C air quality models 1. Box model simulations", C H. Huang and J.S. Chang, JGR, Vol 106, No. D17, 2001. C This version replaces Huang and Chang use of numerical C solutions with analytical solutions derived in C Hertel et al. C 21 Jun 10 J.Young: convert for Namelist redesign C 11 May 11 D.Wong: incorporated twoway model implementation C 27 Sep 11 B.Hutzell: revised method for defining CALL_DEG variable C 18 Jul 14 B.Hutzell: revised: 1) to use the RXNS_DATA and RXNS_FUNCTION C modules instead of include files, 2) to enable C reactions between species types, 3) to calculate C heterogeneous rate constants via AEROSOL_CHEMISTRY C module, 4) to replace call to HRCALCKS with C subroutine in RXNS_FUNCTION module and 5) to change C how degrade routines are used, if present C 02 Dec 14 B.Hutzell: 1) added terrestrial data to conduct surface C dependent reactions and 2) modified the call CALC_RCONST C routine C 01 Feb 19 D.Wong: Implemented centralized I/O approach, removed all MY_N C clauses C********************************************************************** USE HGRD_DEFN ! horizontal domain specifications USE VGRD_DEFN ! vertical layer specifications USE CGRID_SPCS ! CGRID mechanism species USE UTILIO_DEFN ! IOAPI parameters and functions declarations USE RXNS_DATA USE AEROSOL_CHEMISTRY USE RXNS_FUNCTION #ifdef isam USE SA_IRR_DEFN USE SA_DEFN #endif USE HRDATA USE PHOT_MOD, Only: INIT_PHOT_SHARED, RJ ! photolysis rate, in-line module USE PA_DEFN, Only: LIRR ! Process Analysis control and data variable USE PA_IRR_CLT #ifndef isam USE DEGRADE_ROUTINES, ONLY : N_REACT, RXTANT_MAP, DEG_LAY, DEG_COL, DEG_ROW, & FIND_DEGRADED, INIT_DEGRADE, FINAL_DEGRADE #else USE DEGRADE_ROUTINES, ONLY : N_REACT, RXTANT_MAP, SA_DEGRADE_EXTRACT, & FIND_DEGRADED, INIT_DEGRADE, FINAL_DEGRADE, & SA_DEGRADE_UPLOAD, DEG_LAY, DEG_COL, DEG_ROW #endif USE CENTRALIZED_IO_MODULE, ONLY : INTERPOLATE_VAR, OCEAN, SZONE #ifdef sens USE DDM3D_CHEM Use DDM3D_DEFN, Only: DATENUM, STARTDATE, IPT, IDATE, HIGH, NP, NPMAX, CKTIME #endif IMPLICIT NONE C..Includes: INCLUDE SUBST_FILES_ID ! CMAQ files INCLUDE SUBST_CONST ! CMAQ constants INCLUDE SUBST_EMISPRM ! Emissions processing control parameters C..Arguments: REAL, POINTER :: CGRID( :,:,:,: ) ! Species concentrations INTEGER JDATE ! Current date (YYYYDDD) INTEGER JTIME ! Current time (HHMMSS) INTEGER TSTEP( 3 ) ! Time step vector (HHMMSS) C..Parameters: REAL( 8 ), PARAMETER :: DCONMIN = 1.0D-30 ! minimum species concentration allowed REAL, PARAMETER :: CONCMIN = 1.0E-30 ! minimum species concentration allowed REAL, PARAMETER :: MAOMV = 1.0E6 * MWAIR / MWWAT ! Mol Wt of air over Mol Wt of water times 1.0E6 C..External Functions: C..Saved Local Variables: CHARACTER( 16 ), SAVE :: PNAME = 'HRDRIVER' ! Program name INTEGER, SAVE :: ISTFL ! Unit no. of iteration stat output file LOGICAL, SAVE :: LFIRST = .TRUE. ! Flag for first call to this subroutine REAL( 8 ), SAVE :: PA2ATM ! Pascal to atm conv fac C..Scratch Local Variables: CHARACTER( 132 ) :: MSG ! Message text CHARACTER( 16 ) :: VNAME ! Name of I/O API data variable INTEGER C, E, L, R, S ! Loop indices INTEGER ISP ! array index INTEGER AVGEBI ! Average no. of EBI iterations INTEGER DELT_SEC ! EBI max time step in seconds INTEGER ESP ! Loop index for emissions species INTEGER ITMSTEP ! Chemistry integration interval (sec) INTEGER LEV ! Layer index INTEGER MIDDATE ! Date at time step midpoint INTEGER MIDTIME ! Time at time step midpoint INTEGER NPH ! Index for number of phot. rxns in PHOT INTEGER SPC ! Species loop index #ifdef hrstats INTEGER MNEBI ! Min no. of EBI iterations INTEGER MXEBI ! Max no. of EBI iterations #endif LOGICAL LSUNLIGHT ! Flag for sunlight REAL INV_DENS ! reciprocal of air mass density, m3/Kg #ifdef hrstats REAL SUMEBI ! Sum of EBI iterations #endif INTERFACE SUBROUTINE HRSOLVER( JDATE, JTIME, C, R, L ) INTEGER, INTENT( IN ) :: JDATE ! Current date (YYYYDDD) INTEGER, INTENT( IN ) :: JTIME ! Current time (HHMMSS) INTEGER, INTENT( IN ) :: C, R, L ! Cell col, row, lev END SUBROUTINE HRSOLVER SUBROUTINE HETCHEM_UPDATE_AERO( CGRID ) REAL, POINTER :: CGRID( :,:,:,: ) ! species concentration in cell END SUBROUTINE HETCHEM_UPDATE_AERO END INTERFACE C********************************************************************** IF( NUMB_MECH_SPC .EQ. 0 ) RETURN ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c On first call, call routines to set-up for EBI solver ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF( LFIRST ) THEN IF( MECHNAME .NE. 'SAPRC07TC_AE6_AQ' ) THEN MSG = 'This version of the EBI solver can only be used with' & // ' the SAPRC07TC_AE6_AQ chemical mechanism' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF #ifdef emis_chem EMISVD = .FALSE. #else EMISVD = .TRUE. #endif IF( INDEX( MECHNAME, 'AE' ) .NE. 0 ) THEN L_AE_VRSN = .TRUE. ELSE L_AE_VRSN = .FALSE. END IF IF( INDEX( MECHNAME, 'AQ' ) .NE. 0 ) THEN L_AQ_VRSN = .TRUE. ELSE L_AQ_VRSN = .FALSE. END IF IF( LIRR ) THEN CALL_IRR = .TRUE. ELSE CALL_IRR = .FALSE. END IF MODEL_SPECIES = NSPCSD ! WTH: find number of model species ! Determine whether DEGRADE rountines are needed. CALL FIND_DEGRADED( JDATE, JTIME, CALL_DEG ) IF( CALL_DEG )THEN WRITE(LOGDEV,*)'TX DEGRADE ROUTINES USED' WRITE(LOGDEV,*)'Mechanism contains degraded species' #ifdef verbose_gas ELSE WRITE(LOGDEV,*)'TX DEGRADE ROUTINES OMITTED' WRITE(LOGDEV,*)'MECHANISM does not include degraded species' #endif END IF CALL HRINIT ITMSTEP = TIME2SEC( TSTEP( 2 ) ) CHEMSTEP = REAL( ITMSTEP, 8 ) / 60.0D0 WRITE( LOGDEV, 92000 ) CHEMSTEP, DELTAT WRITE( LOGDEV, 92020 ) DO SPC = 1, NUMB_MECH_SPC WRITE( LOGDEV, 92040 ) CHEMISTRY_SPC( SPC ), RTOL( SPC ) END DO PA2ATM = REAL( 1.0 / STDATMPA, 8) c..If emissions processing requested stop IF( .NOT. EMISVD ) THEN ! assumes emis processing in gas chem MSG = 'ERROR: EBI solver not configured to '// & 'process emissions in chemistry' CALL M3EXIT( PNAME, JDATE, JTIME, MSG, XSTAT1 ) END IF ! End if doing emissions #ifdef hrstats ISTFL = JUNIT() OPEN( UNIT=ISTFL, FILE='iterstat.dat' ) WRITE( ISTFL, 94020 ) #endif C Define processor offsets PECOL_OFFSET = COLSD_PE( 1, MYPE+1 ) - 1 PEROW_OFFSET = ROWSD_PE( 1, MYPE+1 ) - 1 ALLOCATE( SEAWATER_ZONE( NCOLS, NROWS ) ) DO R = 1, NROWS DO C = 1, NCOLS SEAWATER_ZONE( C,R ) = OCEAN( C,R ) + SZONE( C,R ) END DO END DO ALLOCATE( DENS( NCOLS, NROWS, NLAYS ), PRES( NCOLS, NROWS, NLAYS ), & QV ( NCOLS, NROWS, NLAYS ), TA ( NCOLS, NROWS, NLAYS ), & SEAICE( NCOLS, NROWS ) ) C..Initialize shared photolysis data CALL INIT_PHOT_SHARED() C..Determine which cells need IRR ALLOCATE( LFLAGIRR ( NCOLS, NROWS, NLAYS ) ) CALL PA_IRR_CKCELLS ( LFLAGIRR ) #ifdef isam NUMB_ISAM_CELLS = 1.0D0 / ( NCOLS * NROWS * NLAYS ) CALL SA_IRR_INIT #endif #ifdef sens CALL INIT_DDM3D_CHEM() C For higher order sensitivities IF ( HIGH ) THEN DO RXN = 1, NRXNS IF( NREACT( RXN ) .EQ. 1 ) THEN ORDER1( RXN ) = .TRUE. ELSE ORDER1( RXN ) = .FALSE. END IF END DO END IF #endif LFIRST = .FALSE. END IF ! First time ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C Set date and time to center of time step, get necessary physical C data ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc MIDDATE = JDATE MIDTIME = JTIME ITMSTEP = TIME2SEC( TSTEP( 2 ) ) CHEMSTEP = REAL( ITMSTEP, 8 ) / 60.0D0 CALL NEXTIME( MIDDATE, MIDTIME, SEC2TIME( ITMSTEP / 2 ) ) C.. Compute number of time step loops and step size for EBI solver DELT_SEC = INT( DELTAT * 60.0D0 + 0.1D0 ) IF( DELT_SEC .GE. ITMSTEP ) THEN N_EBI_STEPS = 2 EBI_TMSTEP = 0.5D0 * CHEMSTEP ELSE IF( MOD( ITMSTEP, DELT_SEC ) .EQ. 0 ) THEN N_EBI_STEPS = ITMSTEP / DELT_SEC ELSE N_EBI_STEPS = ITMSTEP / DELT_SEC + 1 END IF EBI_TMSTEP = CHEMSTEP / REAL( N_EBI_STEPS, 8 ) END IF N_INR_STEPS = 1 C.. Get fractional seaice coverage from the METCRO2D file. CALL INTERPOLATE_VAR ('SEAICE', MIDDATE, MIDTIME, SEAICE) C.. Get ambient temperature in K CALL INTERPOLATE_VAR ('TA', MIDDATE, MIDTIME, TA) C.. Get specific humidity in Kg H2O / Kg air CALL INTERPOLATE_VAR ('QV', MIDDATE, MIDTIME, QV) ! Get ambient MASS DENSITY in Kg/m^3 CALL INTERPOLATE_VAR ('DENS', MIDDATE, MIDTIME, DENS) C.. Get pressure in Pascals CALL INTERPOLATE_VAR ('PRES', MIDDATE, MIDTIME, PRES) C.. Get Heteorogeneous rates and Update Aerosol Distribution Properties CALL HETCHEM_RATES( TA, PRES, QV, CGRID, DENS ) #ifdef sens DATENUM = 1 + JDATE - STARTDATE ! Set the date and hour counters used in sensitivity calls C For reaction rate sensitivities DO NP = 1, NPMAX IF ( IPT( NP ) .EQ. 5 ) THEN CALL CKTIME( JDATE,JTIME,NP,RXNFLAG(NP) ) ! Rxnflag set to true iff ipt=5 and time, date within bounds IF ( IDATE( NP, DATENUM ) .NE. 1 ) RXNFLAG( NP ) = .FALSE. ELSE RXNFLAG( NP ) = .FALSE. END IF END DO #endif sens ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Top of loop over cells ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc #ifdef hrstats MNEBI = 1000 MXEBI = 0 SUMEBI = 0.0 #endif NCELL = 1 DO L = 1, NLAYS DO R = 1, NROWS DO C = 1, NCOLS DEG_LAY = L DEG_ROW = R DEG_COL = C c..reset CALL_IRR based on cell's values CALL_IRR = LFLAGIRR( C,R,L ) c..Load ICs INV_DENS = 1.0 / DENS( C,R,L ) DO SPC = 1, NUMB_MECH_SPC S = CGRID_INDEX( SPC ) IF( CONVERT_CONC( SPC ) )THEN YC( SPC ) = REAL( MAX( CONCMIN, & INV_DENS*FORWARD_CONV( SPC )*CGRID( C,R,L,S )), 8 ) ELSE YC( SPC ) = REAL( MAX( CGRID( C,R,L,S ), CONCMIN), 8 ) END IF END DO IF(CALL_DEG)THEN ! INITIALIZE degradation routines YCCELL = 0.0D0 DO S = 1, MODEL_SPECIES YCCELL( S ) = REAL( CGRID(C,R,L,S), 8) END DO CALL INIT_DEGRADE(YCCELL,TA(C,R,L),DENS(C,R,L),PRES(C,R,L),QV(C,R,L),RJIN(NCELL,:), & JDATE, JTIME) #ifdef isam CALL SA_DEGRADE_EXTRACT( C,R,L,DENS(C,R,L) ) #endif END IF c..Set physical quantities TEMP( NCELL ) = REAL( TA( C,R,L ), 8) DENSITY( NCELL ) = REAL( DENS( C,R,L ), 8) ! PRESCELL( NCELL ) = REAL( PRES( C,R,L ), 8) ATMPRES( NCELL ) = PA2ATM * REAL( PRES( C,R,L ), 8) H2O( NCELL ) = REAL( MAX ( MAOMV * QV( C,R,L ), 0.0 ), 8) SEAWATER (NCELL) = MAX ( 0.0D0, ( REAL( SEAWATER_ZONE( C,R ) - SEAICE (C,R) ,8) ) ) c..Get rate constants LSUNLIGHT = .FALSE. FORALL( NPH = 1:NPHOTAB ) RJIN( NCELL,NPH ) = REAL( RJ( C,R,L,NPH ), 8) IF( MAXVAL(RJIN) .GT. 0.0D0 ) LSUNLIGHT = .TRUE. FORALL ( NPH = 1:NHETERO )HET( NCELL,NPH ) = REAL( KHETERO( NPH,C,R,L ), 8) CALL CALC_RCONST( TEMP, ATMPRES, H2O, RJIN, HET, LSUNLIGHT, SEAWATER, RKI_SAV, NCELL ) FORALL( NPH = 1:NRXNS )RKI( NPH ) = RKI_SAV( NCELL, NPH ) #ifdef isam #if defined(isam) || defined(verbose_isam) C...For diagnosing IRR calculations in log files IF( CHECK_ISAM )THEN WRITE_CELL = .FALSE. IF( C .EQ. MAX(1, NCOLS/2) .AND. R .EQ. MAX(1,NROWS/2) .AND. L .EQ. 1 )THEN WRITE_CELL = .TRUE. WRITE(LOGDEV,*)'WRITE_CELL = .TRUE.' ELSE WRITE_CELL = .FALSE. END IF END IF #endif CALL SA_IRR_EXTRACT( C, R, L, DENS( C,R,L ),YC ) #endif c..Call EBI solver N_EBI_IT = 0 CALL HRSOLVER( JDATE, JTIME, C, R, L ) #ifdef hrstats MXEBI = MAX( MXEBI, N_EBI_IT ) MNEBI = MIN( MNEBI, N_EBI_IT ) SUMEBI = SUMEBI + REAL( N_EBI_IT ) #endif c..Update concentration array DO SPC = 1, NUMB_MECH_SPC S = CGRID_INDEX( SPC ) IF( CONVERT_CONC( SPC ) )THEN CGRID( C,R,L,S ) = REAL( REVERSE_CONV( SPC ) * DENS( C,R,L ) & * MAX( YC( SPC ), DCONMIN), 4) ELSE CGRID( C,R,L,S ) = REAL( MAX( YC( SPC ), DCONMIN), 4) END IF END DO IF(CALL_DEG)THEN ! WTH: update based on degrade routines CALL FINAL_DEGRADE(YCCELL) UPDATE_DEGRADED: DO SPC = 1, N_REACT ISP = RXTANT_MAP( SPC ) IF( ISP .LE. 0 )CYCLE UPDATE_DEGRADED DO S = 1, NUMB_MECH_SPC IF( CGRID_INDEX( S ) .EQ. ISP )CYCLE UPDATE_DEGRADED END DO CGRID(C,R,L,ISP) = REAL( YCCELL(ISP), 4) END DO UPDATE_DEGRADED #ifdef isam CALL SA_DEGRADE_UPLOAD( C,R,L,DENS(C,R,L) ) #endif END IF #ifdef isam CALL SA_IRR_UPLOAD( C, R, L, DENS( C,R,L ), YC ) #endif c..update irrout arrays if needed IF ( LFLAGIRR( C,R,L ) )CALL PA_IRR_CELLENDF( C, R, L ) #ifdef sens DO RXN = 1, NRXNS SRK( RXN ) = RKI( RXN ) IF ( HIGH ) THEN IF ( ORDER1 (RXN ) ) THEN SRK2( RXN ) = 0.0 ELSE SRK2( RXN ) = RKI( RXN ) END IF END IF END DO CALL SOLVE_DDM3D_CHEM( C,R,L,CHEMSTEP ) #endif END DO END DO END DO ! Update Aerosol Surface Area CALL HETCHEM_UPDATE_AERO( CGRID ) #ifdef hrstats AVGEBI = SUMEBI / REAL( NCOLS * NROWS * NLAYS ) WRITE( ISTFL, 94040 ) JDATE, JTIME, MNEBI, AVGEBI, MXEBI #endif RETURN C*********************** FORMAT STATEMENTS **************************** 92000 FORMAT( / 10X, 'Euler Backward Iterative Parameters -' & / 10X, 'Chemistry Integration Time Interval (min):', F12.4, & / 10X, 'EBI maximum time step (min): ', F12.4 ) 92020 FORMAT( //10X, 'Species convergence tolerances:' ) 92040 FORMAT( 10X, A16, 2X, 1PE12.2 ) 92060 FORMAT( / 10X, 'Emissions Processing in Chemistry ...' & / 10X, 'Number of Emissions Layers: ', I3 & / 10X, 'out of total Number of Model Layers:', I3 ) 94020 FORMAT( 'DATE TIME ', 'MNEBI AVEBI MXEBI' ) 94040 FORMAT( I7, 1X, I6, 1X, 3( I5, 1X ) ) END ================================================ FILE: CCTM/src/gas/ebi_saprc07tc_ae6_aq/hrg1.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE HRG1( DTC ) C********************************************************************** C C FUNCTION: To solve for the concentration of NO2, NO, O3, and O3P C algebraically. C C PRECONDITIONS: For the SAPRC07TC_AE6_AQ mechanism C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by EBI solver program, Jun 8, 2022 C C 18 Jul 14 B.Hutzell: revised to use real(8) variables C 01 Jun 18 B.Hutzell: replaced steady solution for O1D with backward Euler C approximation. To match conditions where the initial C concentration cannot be neglected. C********************************************************************** USE HRDATA IMPLICIT NONE C..INCLUDES: None C..ARGUMENTS: REAL( 8 ), INTENT( IN ) :: DTC ! Time step C..PARAMETERS: None C..EXTERNAL FUNCTIONS: NONE C..SAVED LOCAL VARIABLES: ! CHARACTER( 16 ), SAVE :: PNAME = 'HRG1' ! Prgram Name C..SCRATCH LOCAL VARIABLES: REAL( 8 ) :: O1D_S ! sum of O1D loss frequencies REAL( 8 ) :: O3P_S ! stoich coeff for O3P from O1D REAL( 8 ) :: R1_2 ! production term for NO from NO2 REAL( 8 ) :: R2_1 ! production term for NO2 from NO REAL( 8 ) :: P1, P2, P3, P12 ! production terms for NO, NO2, O3, & O3P REAL( 8 ) :: L1, L2, L3, L12 ! loss terms for NO, NO2, O3, O3P REAL( 8 ) :: L1_INV, L2_INV, & L3_INV, L12_INV ! inverse of loss terms REAL( 8 ) :: T1, T2, T3, T4, T5 ! intermerdiate terms REAL( 8 ) :: F1, F2, F3 ! intermerdiate terms REAL( 8 ) :: A, B, C ! coefficients for quadratic equation REAL( 8 ) :: Q, XX, S1, S2 ! intermerdiate terms REAL( 8 ) :: RK1, RK2, RK3 ! rate constants REAL( 8 ) :: PO3 ! temp variable for O3 C********************************************************************** cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c O1D Section c 1) sum of the rate constants for all O1D loss reactions c 2) get fractional yield of O3P from O1D loss cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc O1D_S = RKI( 20 ) ! O1D=0.2000D+01*OH & + RKI( 21 ) ! O1D=O3P O3P_S = RKI( 21 ) ! O1D=O3P O3P_S = O3P_S / O1D_S cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c NO Section c R1_2 = production of NO from NO2 ( rates of form k[NO2][x] ) c except NO2+NO3=NO+NO2 (it is treated as if it were NO3=NO ) c P1 = remaining NO production terms c L1 = loss of NO (except rxns producing NO2 - they are in R2_1) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc R1_2 = RKI( 1 ) ! NO2=NO+O3P & + RKI( 5 ) * YC ( O3P ) ! NO2+O3P=NO R1_2 = R1_2 * DTC P1 = RXRAT( 15 ) ! NO2+NO3=NO+NO2 & + RXRAT( 16 ) ! NO3=NO & + RXRAT( 23 ) ! HONO=NO+OH & + RXRAT( 592 ) ! CLNO=NO+CL P1 = YC0( NO ) + P1 * DTC L1 = RKI( 22 ) * YC ( OH ) ! NO+OH=HONO & + RKI( 57 ) * YC ( RO2XC ) ! NO+RO2XC= & + RKI( 591 ) * YC ( CL ) ! NO+CL=CLNO L1 = 1.0D0 + L1 * DTC cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c NO2 Section c R2_1 = production of NO2 from NO ( rates of form k[NO][x] ) c a) NO+O3=NO2 not included c b) NO+NO3=2NO2 ( 1/2 of NO2 formation rate included ) c c) NO3+NO2=NO+NO2 is not included for NO2 c P2 = remaining NO2 production terms c a) NO+O3=NO2 not included c b) NO+NO3=2NO2 (1/2 of NO2 formation rate included ) c L2 = loss of NO2 (except rxns producing NO2 - they are in R1_2) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc R2_1 = RKI( 4 ) * YC ( O3P ) ! NO+O3P=NO2 & + RKI( 9 ) * YC ( NO3 ) ! NO+NO3=0.2000D+... & + 2.0000D+00 * RKI( 10 ) * YC ( NO ) ! NO+NO=0.2000D+01*NO2 & + RKI( 31 ) * YC ( HO2 ) ! NO+HO2=NO2+OH & + RKI( 46 ) * YC ( MEO2 ) ! NO+MEO2=NO2+HCHO+HO2 & + RKI( 52 ) * YC ( RO2C ) ! NO+RO2C=NO2 & + RKI( 66 ) * YC ( MECO3 ) ! NO+MECO3=NO2+CO2+... & + RKI( 76 ) * YC ( RCO3 ) ! NO+RCO3=NO2+RO2C+... & + RKI( 87 ) * YC ( BZCO3 ) ! NO+BZCO3=NO2+CO2+... & + RKI( 99 ) * YC ( MACO3 ) ! NO+MACO3=NO2+CO2+... & + RKI( 283 ) * YC ( HCOCO3 ) ! NO+HCOCO3=NO2+CO+... & + RKI( 548 ) * YC ( IEPOXOO ) ! NO+IEPOXOO=NO2+... & + RKI( 601 ) * YC ( CLO ) ! NO+CLO=NO2+CL R2_1 = R2_1 * DTC P2 = RXRAT( 9 ) ! NO+NO3=0.2000D+01*NO2 & + RXRAT( 12 ) ! N2O5=NO2+NO3 & + RXRAT( 17 ) ! NO3=NO2+O3P & + RXRAT( 24 ) ! OH+HONO=NO2 & + RXRAT( 26 ) ! OH+NO3=NO2+HO2 & + RXRAT( 28 ) ! HNO3=NO2+OH & + RXRAT( 33 ) ! HNO4=NO2+HO2 & + 6.1000D-01 * RXRAT( 34 ) ! HNO4=0.6100D+00*NO2+... & + RXRAT( 35 ) ! HNO4+OH=NO2 & + 8.0000D-01 * RXRAT( 39 ) ! NO3+HO2=0.8000D+... & + 2.0000D+00 * RXRAT( 40 ) ! NO3+NO3=0.2000D+01*NO2 & + RXRAT( 49 ) ! MEO2+NO3=NO2+HO2+HCHO & + RXRAT( 54 ) ! RO2C+NO3=NO2 & + RXRAT( 59 ) ! RO2XC+NO3=NO2 & + RXRAT( 64 ) ! PAN=NO2+MECO3 & + 6.0000D-01 * RXRAT( 65 ) ! PAN=0.6000D+00*NO2+... & + RXRAT( 68 ) ! MECO3+NO3=NO2+CO2+MEO2 & + RXRAT( 74 ) ! PAN2=NO2+RCO3 & + 6.0000D-01 * RXRAT( 75 ) ! PAN2=0.6000D+00*NO2+... & + RXRAT( 78 ) ! RCO3+NO3=NO2+RO2C+... & + RXRAT( 85 ) ! PBZN=NO2+BZCO3 & + 6.0000D-01 * RXRAT( 86 ) ! PBZN=0.6000D+00*NO2+... & + RXRAT( 89 ) ! BZCO3+NO3=NO2+CO2+BZO+... & + RXRAT( 97 ) ! MAPAN=NO2+MACO3 & + 6.0000D-01 * RXRAT( 98 ) ! MAPAN=0.6000D+00*NO2+... & + RXRAT( 101 ) ! MACO3+NO3=NO2+CO2+... & + RXRAT( 134 ) ! NO+xNO2=NO2+NO & + RXRAT( 136 ) ! xNO2+NO3=NO2+NO3 & + 5.0000D-01 * RXRAT( 137 ) ! xNO2+MEO2=0.5000D+... & + 5.0000D-01 * RXRAT( 138 ) ! xNO2+RO2C=0.5000D+... & + 5.0000D-01 * RXRAT( 139 ) ! xNO2+RO2XC=0.5000D+... & + RXRAT( 140 ) ! xNO2+MECO3=NO2+MECO3 & + RXRAT( 141 ) ! xNO2+RCO3=NO2+RCO3 & + RXRAT( 142 ) ! xNO2+BZCO3=NO2+BZCO3 & + RXRAT( 143 ) ! xNO2+MACO3=NO2+MACO3 & + 1.9000D-02 * RXRAT( 269 ) ! RNO3+OH=0.1900D-... & + RXRAT( 270 ) ! RNO3=NO2+0.5540D+... & + RXRAT( 595 ) ! CLONO=NO2+CL & + RXRAT( 596 ) ! CLNO2=NO2+CL & + RXRAT( 600 ) ! CL+NO3=NO2+CLO & + RXRAT( 603 ) ! CLONO2=NO2+CLO & + RXRAT( 605 ) ! CLONO2=NO2+CLO & + 3.8000D-02 * RXRAT( 618 ) ! RNO3+CL=0.3800D-... P2 = YC0( NO2 ) + P2 * DTC L2 = RKI( 6 ) * YC ( O3P ) ! NO2+O3P=NO3 & + RKI( 8 ) * YC ( O3 ) ! NO2+O3=NO3 & + RKI( 11 ) * YC ( NO3 ) ! NO2+NO3=N2O5 & + RKI( 25 ) * YC ( OH ) ! NO2+OH=HNO3 & + RKI( 32 ) * YC ( HO2 ) ! NO2+HO2=HNO4 & + RKI( 63 ) * YC ( MECO3 ) ! NO2+MECO3=PAN & + RKI( 73 ) * YC ( RCO3 ) ! NO2+RCO3=PAN2 & + RKI( 84 ) * YC ( BZCO3 ) ! NO2+BZCO3=PBZN & + RKI( 96 ) * YC ( MACO3 ) ! NO2+MACO3=MAPAN & + RKI( 109 ) * YC ( TBUO ) ! NO2+TBUO=RNO3 & + RKI( 111 ) * YC ( BZO ) ! NO2+BZO=NPHE & + RKI( 284 ) * YC ( HCOCO3 ) ! NO2+HCOCO3=HO2+... & + RKI( 593 ) * YC ( CL ) ! NO2+CL=CLONO & + RKI( 594 ) * YC ( CL ) ! NO2+CL=CLNO2 & + RKI( 602 ) * YC ( CLO ) ! NO2+CLO=CLONO2 & + RKI( 713 ) ! NO2=0.5000D+... L2 = 1.0D0 + L2 * DTC cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c O3 Section c P3 = production of O3 except O+O2=O3 c L3 = loss terms for O3 except NO+O3=NO2 cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc P3 = 1.5000D-01 * RXRAT( 67 ) ! MECO3+HO2=0.1500D+... & + 1.5000D-01 * RXRAT( 77 ) ! RCO3+HO2=0.1500D+... & + 1.5000D-01 * RXRAT( 88 ) ! BZCO3+HO2=0.1500D+... & + 1.5000D-01 * RXRAT( 100 ) ! MACO3+HO2=0.1500D+... & + 1.5000D-01 * RXRAT( 285 ) ! HCOCO3+HO2=0.1500D+... P3 = YC0( O3 ) + P3 * DTC L3 = RKI( 3 ) * YC ( O3P ) ! O3+O3P= & + RKI( 8 ) * YC ( NO2 ) ! O3+NO2=NO3 & + RKI( 18 ) ! O3=O1D & + RKI( 19 ) ! O3=O3P & + RKI( 30 ) * YC ( OH ) ! O3+OH=HO2 & + RKI( 36 ) * YC ( HO2 ) ! O3+HO2=OH & + RKI( 247 ) * YC ( AFG1 ) ! O3+AFG1=0.8260D+... & + RKI( 250 ) * YC ( AFG2 ) ! O3+AFG2=0.8260D+... & + RKI( 253 ) * YC ( AFG3 ) ! O3+AFG3=0.4710D+... & + RKI( 255 ) * YC ( MACR ) ! O3+MACR=0.2080D+... & + RKI( 260 ) * YC ( MVK ) ! O3+MVK=0.1640D+... & + RKI( 264 ) * YC ( IPRD ) ! O3+IPRD=0.2850D+... & + RKI( 275 ) * YC ( ACROLEIN ) ! O3+ACROLEIN=... & + RKI( 528 ) * YC ( ETHENE ) ! O3+ETHENE=... & + RKI( 532 ) * YC ( PROPENE ) ! O3+PROPENE=... & + RKI( 536 ) * YC ( BUTADIENE13 ) ! O3+BUTADIENE13=... & + RKI( 540 ) * YC ( ISOPRENE ) ! O3+ISOPRENE=... & + RKI( 553 ) * YC ( APIN ) ! O3+APIN=0.9000D-... & + RKI( 557 ) * YC ( ACETYLENE ) ! O3+ACETYLENE=... & + RKI( 572 ) * YC ( OLE1 ) ! O3+OLE1=0.9500D-... & + RKI( 576 ) * YC ( OLE2 ) ! O3+OLE2=0.9400D-... & + RKI( 583 ) * YC ( TERP ) ! O3+TERP=0.7800D-... & + RKI( 587 ) * YC ( SESQ ) ! O3+SESQ=0.7800D-... & + RKI( 599 ) * YC ( CL ) ! O3+CL=CLO & + RKI( 721 ) ! O3= L3 = 1.0D0 + L3 * DTC cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c O3P Section c P12 = production of O3P except NO2+hv=O3P (J1) c L12 = loss terms cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc P12 = RXRAT( 17 ) ! NO3=O3P+NO2 & + O3P_S * RXRAT( 18 ) ! O3=O1D & + RXRAT( 19 ) ! O3=O3P P12 = YC0( O3P ) + P12 * DTC L12 = RKI( 2 ) ! O3P=O3 & + RKI( 3 ) * YC ( O3 ) ! O3P+O3= & + RKI( 4 ) * YC ( NO ) ! O3P+NO=NO2 & + RKI( 5 ) * YC ( NO2 ) ! O3P+NO2=NO & + RKI( 6 ) * YC ( NO2 ) ! O3P+NO2=NO3 & + RKI( 257 ) * YC ( MACR ) ! O3P+MACR=RCHO & + RKI( 261 ) * YC ( MVK ) ! O3P+MVK=0.4500D+... & + RKI( 277 ) * YC ( ACROLEIN ) ! O3P+ACROLEIN=RCHO & + RKI( 530 ) * YC ( ETHENE ) ! O3P+ETHENE=0.8000D+... & + RKI( 534 ) * YC ( PROPENE ) ! O3P+PROPENE=0.4500D+... & + RKI( 538 ) * YC ( BUTADIENE13 ) ! O3P+BUTADIENE13=... & + RKI( 542 ) * YC ( ISOPRENE ) ! O3P+ISOPRENE=0.2500D+... & + RKI( 555 ) * YC ( APIN ) ! O3P+APIN=PRD2+TRPRXN & + RKI( 574 ) * YC ( OLE1 ) ! O3P+OLE1=0.4500D+... & + RKI( 578 ) * YC ( OLE2 ) ! O3P+OLE2=0.7900D-... & + RKI( 585 ) * YC ( TERP ) ! O3P+TERP=0.2370D+... & + RKI( 589 ) * YC ( SESQ ) ! O3P+SESQ=0.2370D+... L12 = 1.0D0 + L12 * DTC ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Solution section ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c..compute reciprocal of loss terms L1_INV = 1.0D0 / L1 L2_INV = 1.0D0 / L2 L3_INV = 1.0D0 / L3 L12_INV = 1.0D0 / L12 c..compute specific k*delta t terms RK1 = RKI( 1 ) * DTC ! J1 (NO2+hv=NO+O3P) RK2 = RKI( 2 ) * DTC ! J2 (O3P+O2=O3) RK3 = RKI( 7 ) * DTC ! k1_3 (NO+O3=NO2) c..compute terms that are used to calulate a,b & c T1 = RK1 * L2_INV ! J1 / ( 1.0 + Lno2 * dt ) T2 = R1_2 * L2_INV ! r1,2 / ( 1.0 + Lno2 * dt) T3 = R2_1 * L1_INV ! r2,1 / ( 1.0 + Lno * dt) T4 = RK2 * L12_INV ! J2 / ( 1.0 + Lo3p * dt ) T5 = T3 * P1 - T2 * P2 ! T3 * Pno - T2 * Pno2 F1 = 1.0D0 + T2 + T3 ! factor in calculating a & b F2 = T1 * T4 ! factor in calculating a & b F3 = L3 * L1 + RK3 * P1 ! (1 + Lo3 * dt) (1 + lno * dt ) ! + k1,3 * dt * Pno PO3 = P3 + P12 * T4 A = RK3 * ( F1 - F2 ) B = F1 * F3 + RK3 * ( F2 * ( P2 - P1 ) + PO3 + T5 ) C = RK3 * P1 * ( PO3 + P2 * F2 ) + F3 * T5 Q = -0.5D0 * ( B + SIGN( 1.0D0, B ) * SQRT( B * B - 4.0D0 * A * C ) ) XX = MAX( Q / A , C / Q ) ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Species solutions c [NO] = ( P1 + x ) / ( 1 + L1 ) c [NO2] = ( P2 - x ) / ( 1 + L2 ) c [O3 ] = ( P3 + Ko3p->O3 ) / (1 + K1,3 * [NO] + L3 ) c [O3P] = ( P12 + J1 * [NO2] ) / ( 1 + L12 ) c [O1D] = ( yc0(o1d) + Ko3->o1d * [O3] *dtc) / ( 1 + O1D_S*dtc ) ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc YCP( NO ) = MAX( 0.0D0, ( P1 + XX ) * L1_INV ) YCP( NO2 ) = MAX( 0.0D0, ( P2 - XX ) * L2_INV ) S1 = P12 + RK1 * YCP( NO2 ) S2 = T4 * S1 YCP( O3 ) = ( P3 + S2 ) / ( L3 + RK3 * YCP( NO ) ) YCP( O3P ) = S1 * L12_INV YCP( O1D ) = ( YC0( O1D ) + RKI( 18 ) * YCP( O3 ) * DTC ) & / ( 1.0D0 + O1D_S * DTC ) RETURN END ================================================ FILE: CCTM/src/gas/ebi_saprc07tc_ae6_aq/hrg2.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE HRG2( DTC ) C********************************************************************** C C FUNCTION: To solve for the concentration of HO, HO2, HONO, and C HNO4 alebraically. C C PRECONDITIONS: For the SAPRC07TC_AE6_AQ mechanism C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by EBI solver program, Jun 8, 2022 C C 18 Jul 14 B.Hutzell: revised to use real(8) variables C********************************************************************** USE HRDATA IMPLICIT NONE C..INCLUDES: None C..ARGUMENTS: REAL( 8 ), INTENT( IN ) :: DTC ! Time step C..PARAMETERS: None C..EXTERNAL FUNCTIONS: NONE C..SAVED LOCAL VARIABLES: ! CHARACTER( 16 ), SAVE :: PNAME = 'HRG2' ! Program name C..SCRATCH LOCAL VARIABLES: REAL( 8 ) :: O1D_S ! sum of O1D loss frequencies REAL( 8 ) :: OH_S ! stoich coeff for OH from O1D+H2O or H2 REAL( 8 ) :: HO2_S ! stoich coeff for HO2 from O1D+H2 rxn REAL( 8 ) :: XOH_S ! stoich coeff for OH & HONO from NO2EX loss rxn REAL( 8 ) :: R4_19 ! production of OH from HONO REAL( 8 ) :: R19_4 ! production of HONO from OH REAL( 8 ) :: R4_5 ! production of OH from HO2 REAL( 8 ) :: R5_4 ! production of HO2 from OH REAL( 8 ) :: R5_21 ! production of HO2 from HNO4 REAL( 8 ) :: R21_5 ! production of HNO4 from HO2 REAL( 8 ) :: P4, P5, P19, P21 ! species production form other paths REAL( 8 ) :: L4, L5, L19, L21 ! species loss terms REAL( 8 ) :: A, B, C ! coeffs of quadratic eq. for HO2 REAL( 8 ) :: Q ! intermediate term REAL( 8 ) :: T1, T2, T3 ! intermediate terms REAL( 8 ) :: L21_INV ! reciprocal of HNO4 loss term C********************************************************************** c..stoichiometric coefficient for production of HOX from O3 via O1D O1D_S = RKI( 20 ) ! O1D=0.2000D+01*OH & + RKI( 21 ) ! O1D=O3P OH_S = 2.0000D+00 * RKI( 20 ) ! O1D=0.2000D+01*OH OH_S = OH_S / O1D_S c..Production of HO from HO2 (r4,5 terms ) R4_5 = RKI( 31 ) * YC ( NO ) ! HO2+NO=OH+NO2 & + RKI( 36 ) * YC ( O3 ) ! HO2+O3=OH & + 8.0000D-01 * RKI( 39 ) * YC ( NO3 ) ! HO2+NO3=0.8000D+... & + 4.4000D-01 * RKI( 67 ) * YC ( MECO3 ) ! HO2+MECO3=... & + 4.4000D-01 * RKI( 77 ) * YC ( RCO3 ) ! HO2+RCO3=0.4400D+... & + 4.4000D-01 * RKI( 88 ) * YC ( BZCO3 ) ! HO2+BZCO3=... & + 4.4000D-01 * RKI( 100 ) * YC ( MACO3 ) ! HO2+MACO3=... & + 4.4000D-01 * RKI( 285 ) * YC ( HCOCO3 ) ! HO2+HCOCO3=... & + 1.7500D-01 * RKI( 547 ) * YC ( IEPOXOO ) ! HO2+IEPOXOO=... & + RKI( 598 ) * YC ( CL ) ! HO2+CL=OH+CLO R4_5 = R4_5 * DTC c..Production of HO from HONO (r4,19 terms ) R4_19 = RKI( 23 ) ! HONO=OH+NO R4_19 = R4_19 * DTC c..Remaining HO production P4 = OH_S * RXRAT( 18 ) ! O1D=0.2000D+01*OH & + RXRAT( 28 ) ! HNO3=OH+NO2 & + 3.9000D-01 * RXRAT( 34 ) ! HNO4=0.3900D+00*OH+0.6100D+... & + 2.0000D+00 * RXRAT( 41 ) ! HO2H=0.2000D+01*OH & + RXRAT( 124 ) ! xOH+NO=OH+NO & + RXRAT( 126 ) ! xOH+NO3=OH+NO3 & + 5.0000D-01 * RXRAT( 127 ) ! xOH+MEO2=0.5000D+00*OH+MEO2 & + 5.0000D-01 * RXRAT( 128 ) ! xOH+RO2C=0.5000D+00*OH+RO2C & + 5.0000D-01 * RXRAT( 129 ) ! xOH+RO2XC=0.5000D+00*OH+RO2XC & + RXRAT( 130 ) ! xOH+MECO3=OH+MECO3 & + RXRAT( 131 ) ! xOH+RCO3=OH+RCO3 & + RXRAT( 132 ) ! xOH+BZCO3=OH+BZCO3 & + RXRAT( 133 ) ! xOH+MACO3=OH+MACO3 & + RXRAT( 223 ) ! COOH=OH+HO2+HCHO & + RXRAT( 225 ) ! ROOH=OH+HO2+RCHO & + RXRAT( 227 ) ! R6OOH=OH+0.1420D+00*HO2+... & + RXRAT( 229 ) ! RAOOH=OH+HO2+0.5000D+... & + 8.2600D-01 * RXRAT( 247 ) ! AFG1+O3=0.8260D+00*OH+... & + 8.2600D-01 * RXRAT( 250 ) ! AFG2+O3=0.8260D+00*OH+... & + 4.7100D-01 * RXRAT( 253 ) ! AFG3+O3=0.4710D+00*OH+... & + 2.0800D-01 * RXRAT( 255 ) ! MACR+O3=0.2080D+00*OH+... & + 3.3000D-01 * RXRAT( 258 ) ! MACR=0.3300D+00*OH+0.6700D+... & + 1.6400D-01 * RXRAT( 260 ) ! MVK+O3=0.1640D+00*OH+... & + 2.8500D-01 * RXRAT( 264 ) ! IPRD+O3=0.2850D+00*OH+... & + 3.3000D-01 * RXRAT( 275 ) ! ACROLEIN+O3=0.3300D+00*OH+... & + 1.7800D-01 * RXRAT( 278 ) ! ACROLEIN=0.1780D+00*OH+... & + RXRAT( 280 ) ! CCOOOH=OH+CO2+MEO2 & + RXRAT( 282 ) ! RCOOOH=OH+xCCHO+yROOH+CO2+xHO2 & + 1.6000D-01 * RXRAT( 528 ) ! ETHENE+O3=0.1600D+00*OH+... & + 3.5000D-01 * RXRAT( 532 ) ! PROPENE+O3=0.3500D+00*OH+... & + 8.0000D-02 * RXRAT( 536 ) ! BUTADIENE13+O3=0.8000D-... & + 2.6600D-01 * RXRAT( 540 ) ! ISOPRENE+O3=0.2660D+00*OH+... & + RXRAT( 545 ) ! ISOPOOH=OH+0.9100D+00*HO2+... & + 9.5000D-01 * RXRAT( 547 ) ! HO2+IEPOXOO=0.1125D+01*OH+... & + 1.2500D-01 * RXRAT( 548 ) ! IEPOXOO+NO=0.1250D+00*OH+... & + 6.3000D-02 * RXRAT( 549 ) ! IEPOXOO+MEO2=0.6300D-01*OH+... & + 6.3000D-02 * RXRAT( 550 ) ! IEPOXOO+RO2C=0.6300D-01*OH+... & + 1.2500D-01 * RXRAT( 551 ) ! IEPOXOO+MECO3=0.1250D+... & + 7.2800D-01 * RXRAT( 553 ) ! APIN+O3=0.7280D+00*OH+... & + 5.0000D-01 * RXRAT( 557 ) ! ACETYLENE+O3=0.5000D+00*OH+... & + 1.2800D-01 * RXRAT( 572 ) ! OLE1+O3=0.1280D+00*OH+... & + 4.4300D-01 * RXRAT( 576 ) ! OLE2+O3=0.4430D+00*OH+... & + 4.9900D-01 * RXRAT( 583 ) ! TERP+O3=0.4990D+00*OH+... & + 4.9900D-01 * RXRAT( 587 ) ! SESQ+O3=0.4990D+00*OH+... & + RXRAT( 608 ) ! HOCL=OH+CL & + 4.1400D-01 * RXRAT( 624 ) ! ROOH+CL=0.4140D+00*OH+HCL+... & + 1.4500D-01 * RXRAT( 625 ) ! R6OOH+CL=0.1450D+00*OH+HCL+... & + 1.3900D-01 * RXRAT( 626 ) ! RAOOH+CL=0.1390D+00*OH+... P4 = YC0( OH ) + P4 * DTC c..Production of HO2 from OH ( r5,4 terms ) R5_4 = RKI( 26 ) * YC ( NO3 ) ! OH+NO3=HO2+NO2 & + RKI( 29 ) * YC ( CO ) ! OH+CO=HO2+CO2 & + RKI( 30 ) * YC ( O3 ) ! OH+O3=HO2 & + RKI( 42 ) * YC ( HO2H ) ! OH+HO2H=HO2 & + RKI( 44 ) * YC ( SO2 ) ! OH+SO2=HO2+SULF+... & + RKI( 45 ) ! OH=HO2 & + RKI( 206 ) * YC ( HCHO ) ! OH+HCHO=HO2+CO & + RKI( 218 ) * YC ( MEOH ) ! OH+MEOH=HO2+HCHO & + RKI( 219 ) * YC ( HCOOH ) ! OH+HCOOH=HO2+CO2 & + 1.4800D-01 * RKI( 228 ) * YC ( RAOOH ) ! OH+RAOOH=0.1480D+... & + 7.0000D-01 * RKI( 232 ) * YC ( GLY ) ! OH+GLY=0.7000D+... & + 4.7200D-01 * RKI( 267 ) * YC ( PRD2 ) ! OH+PRD2=0.4720D+... & + 1.8900D-01 * RKI( 269 ) * YC ( RNO3 ) ! OH+RNO3=0.1890D+... & + 3.0000D-01 * RKI( 556 ) * YC ( ACETYLENE ) ! OH+ACETYLENE=... & + 5.7000D-01 * RKI( 558 ) * YC ( BENZENE ) ! OH+BENZENE=... & + 1.8100D-01 * RKI( 559 ) * YC ( TOLUENE ) ! OH+TOLUENE=... & + 1.5900D-01 * RKI( 560 ) * YC ( MXYL ) ! OH+MXYL=0.1590D+... & + 1.6100D-01 * RKI( 561 ) * YC ( OXYL ) ! OH+OXYL=0.1610D+... & + 1.5900D-01 * RKI( 562 ) * YC ( PXYL ) ! OH+PXYL=0.1590D+... & + 2.2000D-02 * RKI( 563 ) * YC ( TMBENZ124 ) ! OH+TMBENZ124=... & + 9.5000D-01 * RKI( 564 ) * YC ( ETOH ) ! OH+ETOH=0.9500D+... & + 1.2300D-01 * RKI( 579 ) * YC ( ARO1 ) ! OH+ARO1=0.1230D+... & + 7.7000D-02 * RKI( 580 ) * YC ( ARO2MN ) ! OH+ARO2MN=... & + 7.7000D-02 * RKI( 581 ) * YC ( NAPHTHAL ) ! OH+NAPHTHAL=... R5_4 = R5_4 * DTC c..Production of HO2 from HNO4 (r5,21 term ) R5_21 = RKI( 33 ) ! HNO4=HO2+NO2 & + 6.1000D-01 * RKI( 34 ) ! HNO4=0.6100D+... R5_21 = R5_21 * DTC c..Remaining HO2 production terms P5 = RXRAT( 46 ) ! MEO2+NO=HO2+HCHO+NO2 & + RXRAT( 49 ) ! MEO2+NO3=HO2+HCHO+NO2 & + 2.0000D+00 * RXRAT( 51 ) ! MEO2+MEO2=0.2000D+01*HO2+... & + 5.0000D-01 * RXRAT( 55 ) ! RO2C+MEO2=0.5000D+00*HO2+... & + 5.0000D-01 * RXRAT( 60 ) ! RO2XC+MEO2=0.5000D+00*HO2+... & + 9.0000D-01 * RXRAT( 69 ) ! MECO3+MEO2=0.9000D+00*HO2+... & + RXRAT( 79 ) ! RCO3+MEO2=HO2+HCHO+RO2C+... & + RXRAT( 90 ) ! BZCO3+MEO2=HO2+HCHO+RO2C+... & + RXRAT( 102 ) ! MACO3+MEO2=HO2+0.2000D+... & + RXRAT( 114 ) ! xHO2+NO=HO2+NO & + RXRAT( 116 ) ! xHO2+NO3=HO2+NO3 & + 5.0000D-01 * RXRAT( 117 ) ! xHO2+MEO2=0.5000D+00*HO2+MEO2 & + 5.0000D-01 * RXRAT( 118 ) ! xHO2+RO2C=0.5000D+00*HO2+RO2C & + 5.0000D-01 * RXRAT( 119 ) ! xHO2+RO2XC=0.5000D+00*HO2+... & + RXRAT( 120 ) ! xHO2+MECO3=HO2+MECO3 & + RXRAT( 121 ) ! xHO2+RCO3=HO2+RCO3 & + RXRAT( 122 ) ! xHO2+BZCO3=HO2+BZCO3 & + RXRAT( 123 ) ! xHO2+MACO3=HO2+MACO3 & + 2.0000D+00 * RXRAT( 204 ) ! HCHO=0.2000D+01*HO2+CO & + RXRAT( 207 ) ! HCHO+NO3=HO2+HNO3+CO & + RXRAT( 209 ) ! CCHO=HO2+CO+MEO2 & + RXRAT( 212 ) ! RCHO=HO2+xHO2+yROOH+xCCHO+... & + RXRAT( 223 ) ! COOH=HO2+OH+HCHO & + RXRAT( 225 ) ! ROOH=HO2+OH+RCHO & + 1.4200D-01 * RXRAT( 227 ) ! R6OOH=0.1420D+00*HO2+OH+... & + RXRAT( 229 ) ! RAOOH=HO2+OH+0.5000D+... & + 2.0000D+00 * RXRAT( 230 ) ! GLY=0.2000D+01*HO2+0.2000D+... & + 7.0000D-01 * RXRAT( 233 ) ! GLY+NO3=0.7000D+00*HO2+... & + RXRAT( 234 ) ! MGLY=HO2+CO+MECO3 & + 5.2200D-01 * RXRAT( 247 ) ! AFG1+O3=0.5220D+00*HO2+... & + 1.0230D+00 * RXRAT( 248 ) ! AFG1=0.1023D+01*HO2+... & + 5.2200D-01 * RXRAT( 250 ) ! AFG2+O3=0.5220D+00*HO2+... & + 5.5400D-01 * RXRAT( 253 ) ! AFG3+O3=0.5540D+00*HO2+... & + 1.0800D-01 * RXRAT( 255 ) ! MACR+O3=0.1080D+00*HO2+... & + 6.7000D-01 * RXRAT( 258 ) ! MACR=0.6700D+00*HO2+... & + 6.4000D-02 * RXRAT( 260 ) ! MVK+O3=0.6400D-01*HO2+... & + 4.0000D-01 * RXRAT( 264 ) ! IPRD+O3=0.4000D+00*HO2+... & + 1.2330D+00 * RXRAT( 266 ) ! IPRD=0.1233D+01*HO2+... & + 3.4400D-01 * RXRAT( 270 ) ! RNO3=0.3440D+00*HO2+... & + 2.0000D+00 * RXRAT( 272 ) ! HOCCHO=0.2000D+01*HO2+CO+HCHO & + 8.3000D-01 * RXRAT( 275 ) ! ACROLEIN+O3=0.8300D+00*HO2+... & + 1.0660D+00 * RXRAT( 278 ) ! ACROLEIN=0.1066D+01*HO2+... & + RXRAT( 283 ) ! HCOCO3+NO=HO2+CO+CO2+NO2 & + RXRAT( 284 ) ! HCOCO3+NO2=HO2+CO+CO2+NO3 & + RXRAT( 498 ) ! zRNO3+NO3=HO2+PRD2+NO3 & + 5.0000D-01 * RXRAT( 499 ) ! zRNO3+MEO2=0.5000D+00*HO2+... & + 5.0000D-01 * RXRAT( 500 ) ! zRNO3+RO2C=0.5000D+00*HO2+... & + 5.0000D-01 * RXRAT( 501 ) ! zRNO3+RO2XC=0.5000D+00*HO2+... & + RXRAT( 502 ) ! zRNO3+MECO3=HO2+PRD2+MECO3 & + RXRAT( 503 ) ! zRNO3+RCO3=HO2+PRD2+RCO3 & + RXRAT( 504 ) ! zRNO3+BZCO3=HO2+PRD2+BZCO3 & + RXRAT( 505 ) ! zRNO3+MACO3=HO2+PRD2+MACO3 & + 1.6000D-01 * RXRAT( 528 ) ! ETHENE+O3=0.1600D+00*HO2+... & + 8.0000D-01 * RXRAT( 530 ) ! ETHENE+O3P=0.8000D+00*HO2+... & + 1.6500D-01 * RXRAT( 532 ) ! PROPENE+O3=0.1650D+00*HO2+... & + 8.0000D-02 * RXRAT( 536 ) ! BUTADIENE13+O3=0.8000D-... & + 2.5000D-01 * RXRAT( 538 ) ! BUTADIENE13+O3P=0.2500D+... & + 6.6000D-02 * RXRAT( 540 ) ! ISOPRENE+O3=0.6600D-01*HO2+... & + 9.1000D-01 * RXRAT( 545 ) ! ISOPOOH=0.9100D+00*HO2+OH+... & + 8.2500D-01 * RXRAT( 548 ) ! IEPOXOO+NO=0.8250D+00*HO2+... & + 9.1300D-01 * RXRAT( 549 ) ! IEPOXOO+MEO2=0.9130D+... & + 4.1300D-01 * RXRAT( 550 ) ! IEPOXOO+RO2C=0.4130D+... & + 8.2500D-01 * RXRAT( 551 ) ! IEPOXOO+MECO3=0.8250D+... & + 9.0000D-03 * RXRAT( 553 ) ! APIN+O3=0.9000D-02*HO2+... & + 1.5000D+00 * RXRAT( 557 ) ! ACETYLENE+O3=0.1500D+... & + 9.5000D-02 * RXRAT( 572 ) ! OLE1+O3=0.9500D-01*HO2+... & + 9.4000D-02 * RXRAT( 576 ) ! OLE2+O3=0.9400D-01*HO2+... & + 7.8000D-02 * RXRAT( 583 ) ! TERP+O3=0.7800D-01*HO2+... & + 7.8000D-02 * RXRAT( 587 ) ! SESQ+O3=0.7800D-01*HO2+... & + RXRAT( 611 ) ! CL=HO2+HCL & + RXRAT( 612 ) ! HCHO+CL=HO2+HCL+CO & + RXRAT( 614 ) ! MEOH+CL=HO2+HCHO+HCL & + 5.5000D-02 * RXRAT( 618 ) ! RNO3+CL=0.5500D-01*HO2+... & + 3.1400D-01 * RXRAT( 619 ) ! PRD2+CL=0.3140D+00*HO2+HCL+... & + 6.3000D-01 * RXRAT( 620 ) ! GLY+CL=0.6300D+00*HO2+HCL+... & + 1.4800D-01 * RXRAT( 626 ) ! RAOOH+CL=0.1480D+00*HO2+... & + 8.4000D-02 * RXRAT( 630 ) ! IPRD+CL=0.8400D-01*HO2+... & + RXRAT( 631 ) ! CLCCHO=HO2+CO+RO2C+xCL+... & + RXRAT( 671 ) ! ACETYLENE+CL=HO2+CO & + 6.8800D-01 * RXRAT( 677 ) ! ETOH+CL=0.6880D+00*HO2+HCL+... P5 = YC0( HO2 ) + P5 * DTC c..Production of HONO from OH (r19,4 terms ) R19_4 = RKI( 22 ) * YC( NO ) * DTC ! OH+NO=HONO c..Remaining HONO production terms P19 = RXRAT( 241 ) ! NPHE=HONO & + 5.0000D-01 * RXRAT( 713 ) ! NO2=0.5000D+00*HONO+... P19 = YC0( HONO ) + P19 * DTC c..Production of HNO4 from HO2 (r21,5 term ) R21_5 = RKI( 32 ) * YCP( NO2 ) * DTC ! HO2+NO2=HNO4 c..Remaining HNO4 production terms P21 = YC0( HNO4 ) c..OH loss terms not in R5_4 & R19_4 L4 = RKI( 24 ) * YC ( HONO ) ! OH+HONO=NO2 & + RKI( 25 ) * YC ( NO2 ) ! OH+NO2=HNO3 & + RKI( 27 ) * YC ( HNO3 ) ! OH+HNO3=NO3 & + RKI( 35 ) * YC ( HNO4 ) ! OH+HNO4=NO2 & + RKI( 43 ) * YC ( HO2 ) ! OH+HO2= & + RKI( 208 ) * YC ( CCHO ) ! OH+CCHO=MECO3 & + RKI( 211 ) * YC ( RCHO ) ! OH+RCHO=0.9650D+... & + RKI( 214 ) * YC ( ACETONE ) ! OH+ACETONE=RO2C+... & + RKI( 216 ) * YC ( MEK ) ! OH+MEK=0.9670D+... & + RKI( 220 ) * YC ( CCOOH ) ! OH+CCOOH=0.5090D+... & + RKI( 221 ) * YC ( RCOOH ) ! OH+RCOOH=RO2C+... & + 7.0000D-01 * RKI( 222 ) * YC ( COOH ) ! OH+COOH=0.3000D+... & + 2.5600D-01 * RKI( 224 ) * YC ( ROOH ) ! OH+ROOH=0.7440D+... & + 1.6000D-01 * RKI( 226 ) * YC ( R6OOH ) ! OH+R6OOH=0.8400D+... & + 7.1300D-01 * RKI( 228 ) * YC ( RAOOH ) ! OH+RAOOH=0.1480D+... & + 3.0000D-01 * RKI( 232 ) * YC ( GLY ) ! OH+GLY=0.7000D+... & + RKI( 235 ) * YC ( MGLY ) ! OH+MGLY=CO+MECO3 & + RKI( 238 ) * YC ( CRES ) ! OH+CRES=0.2000D+... & + RKI( 240 ) * YC ( NPHE ) ! OH+NPHE=BZO & + RKI( 243 ) * YC ( BALD ) ! OH+BALD=BZCO3 & + RKI( 246 ) * YC ( AFG1 ) ! OH+AFG1=0.2170D+... & + RKI( 249 ) * YC ( AFG2 ) ! OH+AFG2=0.2170D+... & + RKI( 252 ) * YC ( AFG3 ) ! OH+AFG3=0.2060D+... & + RKI( 254 ) * YC ( MACR ) ! OH+MACR=0.5000D+... & + RKI( 259 ) * YC ( MVK ) ! OH+MVK=0.9750D+... & + RKI( 263 ) * YC ( IPRD ) ! OH+IPRD=0.2890D+... & + 5.2800D-01 * RKI( 267 ) * YC ( PRD2 ) ! OH+PRD2=0.4720D+... & + 8.1100D-01 * RKI( 269 ) * YC ( RNO3 ) ! OH+RNO3=0.1890D+... & + RKI( 271 ) * YC ( HOCCHO ) ! OH+HOCCHO=MECO3 & + RKI( 274 ) * YC ( ACROLEIN ) ! OH+ACROLEIN=... & + RKI( 279 ) * YC ( CCOOOH ) ! OH+CCOOOH=... & + RKI( 281 ) * YC ( RCOOOH ) ! OH+RCOOOH=... & + RKI( 526 ) ! OH=MEO2 & + RKI( 527 ) * YC ( ETHENE ) ! OH+ETHENE=xHO2+... & + RKI( 531 ) * YC ( PROPENE ) ! OH+PROPENE=... & + RKI( 535 ) * YC ( BUTADIENE13 ) ! OH+BUTADIENE13=... & + RKI( 539 ) * YC ( ISOPRENE ) ! OH+ISOPRENE=... & + 3.9000D-01 * RKI( 544 ) * YC ( ISOPOOH ) ! OH+ISOPOOH=... & + RKI( 546 ) * YC ( IEPOX ) ! OH+IEPOX=IEPOXOO & + RKI( 552 ) * YC ( APIN ) ! OH+APIN=0.7990D+... & + 3.1400D-01 * RKI( 558 ) * YC ( BENZENE ) ! OH+BENZENE=... & + 5.0700D-01 * RKI( 559 ) * YC ( TOLUENE ) ! OH+TOLUENE=... & + 6.0200D-01 * RKI( 560 ) * YC ( MXYL ) ! OH+MXYL=0.1590D+... & + 6.4100D-01 * RKI( 561 ) * YC ( OXYL ) ! OH+OXYL=0.1610D+... & + 5.6300D-01 * RKI( 562 ) * YC ( PXYL ) ! OH+PXYL=0.1590D+... & + 7.4800D-01 * RKI( 563 ) * YC ( TMBENZ124 ) ! OH+TMBENZ124=... & + 5.0000D-02 * RKI( 564 ) * YC ( ETOH ) ! OH+ETOH=0.9500D+... & + RKI( 565 ) * YC ( ALK1 ) ! OH+ALK1=xHO2+... & + RKI( 566 ) * YC ( ALK2 ) ! OH+ALK2=0.9650D+... & + RKI( 567 ) * YC ( ALK3 ) ! OH+ALK3=0.6950D+... & + RKI( 568 ) * YC ( ALK4 ) ! OH+ALK4=0.8300D+... & + RKI( 569 ) * YC ( ALK5 ) ! OH+ALK5=0.6470D+... & + RKI( 571 ) * YC ( OLE1 ) ! OH+OLE1=0.8710D+... & + RKI( 575 ) * YC ( OLE2 ) ! OH+OLE2=0.9120D+... & + 6.7500D-01 * RKI( 579 ) * YC ( ARO1 ) ! OH+ARO1=0.1230D+... & + 7.4500D-01 * RKI( 580 ) * YC ( ARO2MN ) ! OH+ARO2MN=... & + 7.4500D-01 * RKI( 581 ) * YC ( NAPHTHAL ) ! OH+NAPHTHAL=... & + RKI( 582 ) * YC ( TERP ) ! OH+TERP=0.7340D+... & + RKI( 586 ) * YC ( SESQ ) ! OH+SESQ=0.7340D+... & + RKI( 610 ) * YC ( HCL ) ! OH+HCL=CL & + RKI( 632 ) * YC ( CLCCHO ) ! OH+CLCCHO=RCO3 L4 = 1.0D0 + L4 * DTC + R5_4 + R19_4 c..HO2 loss terms not included in R4_5 & R21_5 (except for HO2+HO2 ) L5 = 2.0000D-01 * RKI( 39 ) * YC ( NO3 ) ! HO2+NO3=0.8000D+... & + RKI( 43 ) * YC ( OH ) ! HO2+OH= & + RKI( 47 ) * YC ( MEO2 ) ! HO2+MEO2=COOH & + RKI( 48 ) * YC ( MEO2 ) ! HO2+MEO2=HCHO & + RKI( 53 ) * YC ( RO2C ) ! HO2+RO2C= & + RKI( 58 ) * YC ( RO2XC ) ! HO2+RO2XC= & + 5.6000D-01 * RKI( 67 ) * YC ( MECO3 ) ! HO2+MECO3=... & + 5.6000D-01 * RKI( 77 ) * YC ( RCO3 ) ! HO2+RCO3=0.4400D+... & + 5.6000D-01 * RKI( 88 ) * YC ( BZCO3 ) ! HO2+BZCO3=... & + 5.6000D-01 * RKI( 100 ) * YC ( MACO3 ) ! HO2+MACO3=... & + RKI( 112 ) * YC ( BZO ) ! HO2+BZO=CRES & + 1.2000D-01 * RKI( 285 ) * YC ( HCOCO3 ) ! HO2+HCOCO3=... & + RKI( 597 ) * YC ( CL ) ! HO2+CL=HCL & + RKI( 607 ) * YC ( CLO ) ! HO2+CLO=HOCL L5 = 1.0D0 + L5 * DTC + R4_5 + R21_5 c..HONO loss terms not included in R4_19 L19 = RKI( 24 ) * YC ( OH ) ! HONO+OH=NO2 L19 = 1.0D0 + L19 * DTC + R4_19 c..HNO4 loss terms not included in R5_21 L21 = 3.9000D-01 * RKI( 34 ) ! HNO4=0.6100D+... & + RKI( 35 ) * YC ( OH ) ! HNO4+OH=NO2 L21 = 1.0D0 + L21 * DTC + R5_21 ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Solution section ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c..compute terms used to calculate a,b & c L21_INV = 1.0D0 / L21 T1 = 1.0D0 / ( L4 * L19 - R4_19 * R19_4 ) T2 = R5_4 * T1 T3 = R5_21 * L21_INV c..solve quadratic equation for HO2 A = 2.0D0 * ( RKI( 37 ) + RKI( 38 ) ) * DTC B = L5 - T3 * R21_5 - T2 * R4_5 * L19 C = P5 + T3 * P21 + T2 * ( P4 * L19 + P19 * R4_19 ) Q = -0.5D0 * ( B + SIGN( 1.0D0, B ) * SQRT( B * B + 4.0D0 * A * C ) ) YCP( HO2 ) = MAX( Q / A , -C / Q ) c..compute remaining species concentrations YCP( OH ) = ( ( P4 + R4_5 * YCP( HO2 ) ) * L19 + R4_19 * P19 ) * T1 YCP( HNO4 ) = ( P21 + R21_5 * YCP( HO2 ) ) * L21_INV YCP( HONO ) = ( P19 + R19_4 * YCP( OH ) ) / L19 RETURN END ================================================ FILE: CCTM/src/gas/ebi_saprc07tc_ae6_aq/hrg3.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE HRG3( DTC ) C********************************************************************** C C FUNCTION: To solve for the concentration of C2O3 and PAN C C PRECONDITIONS: For the SAPRC07TC_AE6_AQ mechanism C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by EBI solver program, Jun 8, 2022 C C 18 Jul 14 B.Hutzell: revised to use real(8) variables C********************************************************************** USE HRDATA IMPLICIT NONE C..INCLUDES: NONE C..ARGUMENTS: REAL( 8 ), INTENT( IN ) :: DTC ! Time step C..PARAMETERS: NONE C..EXTERNAL FUNCTIONS: NONE C..SAVED LOCAL VARIABLES: ! CHARACTER( 16 ), SAVE :: PNAME = 'HRG3' ! Program name C..SCRATCH LOCAL VARIABLES: REAL( 8 ) :: A, B, C, Q ! Quadratic equation terms REAL( 8 ) :: CMN ! Temp scalar REAL( 8 ) :: L8 ! Loss of CCO_O2 REAL( 8 ) :: L9 ! Loss of PAN REAL( 8 ) :: P8 ! Production of CCO_O2 REAL( 8 ) :: K8_8 ! Kmeco3+meco3 * delta t REAL( 8 ) :: R8_9 ! Kpan-->meco3 * delta t REAL( 8 ) :: R9_8 ! Kmeco3+no2-->pan * [NO2] * delta t C********************************************************************** c..Production of MECO3 (except from PAN ) P8 = 4.0000D-01 * RXRAT( 98 ) ! MAPAN=0.4000D+00*MECO3+... & + RXRAT( 99 ) ! MACO3+NO=MECO3+CO2+HCHO+NO2 & + 4.4000D-01 * RXRAT( 100 ) ! MACO3+HO2=0.4400D+00*MECO3+... & + RXRAT( 101 ) ! MACO3+NO3=MECO3+CO2+HCHO+NO2 & + RXRAT( 102 ) ! MACO3+MEO2=MECO3+HO2+CO2+... & + RXRAT( 103 ) ! MACO3+RO2C=MECO3+HCHO+CO2 & + RXRAT( 104 ) ! MACO3+RO2XC=MECO3+HCHO+CO2 & + RXRAT( 106 ) ! MACO3+RCO3=MECO3+HCHO+RO2C+... & + RXRAT( 107 ) ! MACO3+BZCO3=MECO3+HCHO+BZO+... & + 2.0000D+00 * RXRAT( 108 ) ! MACO3+MACO3=0.2000D+... & + RXRAT( 154 ) ! xMECO3+NO=MECO3+NO & + RXRAT( 156 ) ! xMECO3+NO3=MECO3+NO3 & + 5.0000D-01 * RXRAT( 157 ) ! xMECO3+MEO2=0.5000D+... & + 5.0000D-01 * RXRAT( 158 ) ! xMECO3+RO2C=0.5000D+... & + 5.0000D-01 * RXRAT( 159 ) ! xMECO3+RO2XC=0.5000D+... & + RXRAT( 160 ) ! xMECO3+MECO3=0.2000D+01*MECO3 & + RXRAT( 161 ) ! xMECO3+RCO3=MECO3+RCO3 & + RXRAT( 162 ) ! xMECO3+BZCO3=MECO3+BZCO3 & + RXRAT( 163 ) ! xMECO3+MACO3=MECO3+MACO3 & + RXRAT( 208 ) ! CCHO+OH=MECO3 & + RXRAT( 210 ) ! CCHO+NO3=MECO3+HNO3 & + 6.2000D-01 * RXRAT( 215 ) ! ACETONE=0.6200D+00*MECO3+... & + RXRAT( 217 ) ! MEK=MECO3+RO2C+xHO2+xCCHO+... & + RXRAT( 234 ) ! MGLY=MECO3+CO+HO2 & + RXRAT( 235 ) ! MGLY+OH=MECO3+CO & + RXRAT( 236 ) ! MGLY+NO3=MECO3+CO+HNO3 & + 2.0000D+00 * RXRAT( 237 ) ! BACL=0.2000D+01*MECO3 & + 3.0500D-01 * RXRAT( 248 ) ! AFG1=0.3050D+00*MECO3+... & + 1.3000D-02 * RXRAT( 253 ) ! AFG3+O3=0.1300D-01*MECO3+... & + 3.4000D-01 * RXRAT( 258 ) ! MACR=0.3400D+00*MECO3+... & + 4.6700D-01 * RXRAT( 266 ) ! IPRD=0.4670D+00*MECO3+... & + 4.0000D-01 * RXRAT( 268 ) ! PRD2=0.4000D+00*MECO3+... & + RXRAT( 271 ) ! HOCCHO+OH=MECO3 & + RXRAT( 273 ) ! HOCCHO+NO3=MECO3+HNO3 & + 9.8000D-01 * RXRAT( 279 ) ! CCOOOH+OH=0.9800D+00*MECO3+... & + RXRAT( 613 ) ! CCHO+CL=MECO3+HCL & + RXRAT( 621 ) ! MGLY+CL=MECO3+CO+HCL & + RXRAT( 634 ) ! CLACET=MECO3+RO2C+xCL+... c..Loss frequency of MECO3 ( not including MECO3 + MECO3 ) L8 = RKI( 63 ) * YC ( NO2 ) ! MECO3+NO2=PAN & + RKI( 66 ) * YC ( NO ) ! MECO3+NO=MEO2+... & + RKI( 67 ) * YC ( HO2 ) ! MECO3+HO2=... & + RKI( 68 ) * YC ( NO3 ) ! MECO3+NO3=MEO2+... & + RKI( 69 ) * YC ( MEO2 ) ! MECO3+MEO2=... & + RKI( 70 ) * YC ( RO2C ) ! MECO3+RO2C=MEO2+CO2 & + RKI( 71 ) * YC ( RO2XC ) ! MECO3+RO2XC=MEO2+CO2 & + RKI( 82 ) * YC ( RCO3 ) ! MECO3+RCO3=... & + RKI( 93 ) * YC ( BZCO3 ) ! MECO3+BZCO3=... & + RKI( 551 ) * YC ( IEPOXOO ) ! MECO3+IEPOXOO=... c..Loss frequency of PAN L9 = RKI( 64 ) ! PAN=MECO3+NO2 & + RKI( 65 ) ! PAN=0.6000D+... c..K8_8, R8_9, and R9_8 terms K8_8 = RKI( 72 ) * DTC R8_9 = ( RKI( 64 ) & + RKI( 65 ) ) * DTC R9_8 = ( RKI( 63 ) * YC( NO2 ) ) * DTC c..Solution of quadratic equation to get MECO3 & PAN CMN = 1.0 + L9 * DTC A = 2.0D0 * K8_8 * CMN B = CMN * ( 1.0D0 + L8 * DTC ) - R8_9 * R9_8 C = CMN * ( YC0( MECO3 ) + P8 * DTC ) + R8_9 * YC0( PAN ) Q = -0.5D0 * ( B + SIGN( 1.0D0, B ) * SQRT( B * B + 4.0D0 * A * C ) ) YCP( MECO3 ) = MAX( Q / A , -C / Q ) YCP( PAN ) = ( YC0( PAN ) + R9_8 * YCP( MECO3 ) ) / CMN RETURN END ================================================ FILE: CCTM/src/gas/ebi_saprc07tc_ae6_aq/hrg4.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE HRG4( DTC ) C********************************************************************** C C FUNCTION: To solve for the concentration of NO3 and N2O5 C C PRECONDITIONS: For the SAPRC07TC_AE6_AQ mechanism C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by EBI solver program, Jun 8, 2022 C C 18 Jul 14 B.Hutzell: revised to use real(8) variables C********************************************************************** USE HRDATA IMPLICIT NONE C..INCLUDES: NONE C..ARGUMENTS: REAL( 8 ), INTENT( IN ) :: DTC ! Time step C..PARAMETERS: NONE C..EXTERNAL FUNCTIONS: NONE C..SAVED LOCAL VARIABLES: ! CHARACTER( 16 ), SAVE :: PNAME = 'HRG4' ! Program name C..SCRATCH LOCAL VARIABLES: REAL( 8 ) :: A, B, C, Q ! Quadratic equation terms REAL( 8 ) :: CMN ! Temp scalar REAL( 8 ) :: L15 ! Loss of NO3 REAL( 8 ) :: L16 ! Loss of N2O5 REAL( 8 ) :: P15 ! Production of NO3 REAL( 8 ) :: K15_15 ! Kno3+no3 * delta t REAL( 8 ) :: R15_16 ! Kn2o5-->no3 * delta t REAL( 8 ) :: R16_15 ! Kno3+no2-->n2o5[NO2] * delta t C********************************************************************** c..Production of NO3 (except from N2O5 ) P15 = RKI( 6 ) * YCP( O3P ) * YCP( NO2 ) ! O3P+NO2=NO3 & + RKI( 8 ) * YCP( O3 ) * YCP( NO2 ) ! O3+NO2=NO3 & + RKI( 27 ) * YCP( OH ) * YC ( HNO3 ) ! OH+HNO3=NO3 & + 3.9000D-01 * RKI( 34 ) * YC ( HNO4 ) ! HNO4=0.3900D+00*NO3+... & + 4.0000D-01 * RKI( 65 ) * YC ( PAN ) ! PAN=0.4000D+00*NO3+0.6000D+... & + 4.0000D-01 * RKI( 75 ) * YC ( PAN2 ) ! PAN2=0.4000D+00*NO3+... & + 4.0000D-01 * RKI( 86 ) * YC ( PBZN ) ! PBZN=0.4000D+00*NO3+... & + 4.0000D-01 * RKI( 98 ) * YC ( MAPAN ) ! MAPAN=0.4000D+00*NO3+... & + RKI( 284 ) * YC ( HCOCO3 ) * YCP( NO2 ) ! HCOCO3+NO2=NO3+CO+CO2+HO2 & + RKI( 604 ) * YC ( CLONO2 ) ! CLONO2=NO3+CL & + RKI( 606 ) * YC ( CL ) * YC ( CLONO2 ) ! CL+CLONO2=NO3+CL2 c..Loss frequency of NO3 ( except NO3 + NO3 if present ) L15 = RKI( 9 ) * YCP( NO ) ! NO3+NO=0.2000D+... & + RKI( 11 ) * YCP( NO2 ) ! NO3+NO2=N2O5 & + RKI( 15 ) * YCP( NO2 ) ! NO3+NO2=NO+NO2 & + RKI( 16 ) ! NO3=NO & + RKI( 17 ) ! NO3=NO2+O3P & + RKI( 26 ) * YCP( OH ) ! NO3+OH=HO2+NO2 & + RKI( 39 ) * YCP( HO2 ) ! NO3+HO2=0.8000D+... & + RKI( 49 ) * YC ( MEO2 ) ! NO3+MEO2=HCHO+... & + RKI( 54 ) * YC ( RO2C ) ! NO3+RO2C=NO2 & + RKI( 59 ) * YC ( RO2XC ) ! NO3+RO2XC=NO2 & + RKI( 68 ) * YC ( MECO3 ) ! NO3+MECO3=MEO2+... & + RKI( 78 ) * YC ( RCO3 ) ! NO3+RCO3=NO2+... & + RKI( 89 ) * YC ( BZCO3 ) ! NO3+BZCO3=NO2+... & + RKI( 101 ) * YC ( MACO3 ) ! NO3+MACO3=NO2+... & + RKI( 207 ) * YC ( HCHO ) ! NO3+HCHO=HNO3+HO2+CO & + RKI( 210 ) * YC ( CCHO ) ! NO3+CCHO=HNO3+MECO3 & + RKI( 213 ) * YC ( RCHO ) ! NO3+RCHO=HNO3+RCO3 & + RKI( 233 ) * YC ( GLY ) ! NO3+GLY=HNO3+... & + RKI( 236 ) * YC ( MGLY ) ! NO3+MGLY=HNO3+CO+... & + RKI( 239 ) * YC ( CRES ) ! NO3+CRES=HNO3+BZO & + RKI( 245 ) * YC ( BALD ) ! NO3+BALD=HNO3+BZCO3 & + RKI( 256 ) * YC ( MACR ) ! NO3+MACR=0.5000D+... & + RKI( 265 ) * YC ( IPRD ) ! NO3+IPRD=0.1500D+... & + RKI( 273 ) * YC ( HOCCHO ) ! NO3+HOCCHO=HNO3+... & + RKI( 276 ) * YC ( ACROLEIN ) ! NO3+ACROLEIN=... & + RKI( 529 ) * YC ( ETHENE ) ! NO3+ETHENE=xHO2+... & + RKI( 533 ) * YC ( PROPENE ) ! NO3+PROPENE=... & + RKI( 537 ) * YC ( BUTADIENE13 ) ! NO3+BUTADIENE13=... & + RKI( 541 ) * YC ( ISOPRENE ) ! NO3+ISOPRENE=... & + RKI( 554 ) * YC ( APIN ) ! NO3+APIN=0.5600D-... & + RKI( 573 ) * YC ( OLE1 ) ! NO3+OLE1=0.7720D+... & + RKI( 577 ) * YC ( OLE2 ) ! NO3+OLE2=0.4000D+... & + RKI( 584 ) * YC ( TERP ) ! NO3+TERP=0.2270D+... & + RKI( 588 ) * YC ( SESQ ) ! NO3+SESQ=0.2270D+... & + RKI( 600 ) * YC ( CL ) ! NO3+CL=CLO+NO2 c..Loss frequency of N2O5 L16 = RKI( 12 ) ! N2O5=NO2+NO3 & + RKI( 13 ) ! N2O5=0.2000D+01*HNO3 & + RKI( 14 ) ! N2O5=0.2000D+01*HNO3 & + RKI( 714 ) ! N2O5=HNO3+H2NO3PIJ & + RKI( 715 ) ! N2O5=HNO3+H2NO3PK c..K15_15, R15_16, and R16_15 terms K15_15 = RKI( 40 ) * DTC R15_16 = ( RKI( 12 ) ) * DTC R16_15 = RKI( 11 ) * YCP( NO2 ) * DTC c..Solution of quadratic equation to get NO3 & N2O5 CMN = 1.0D0 + L16 * DTC A = 2.0D0 * K15_15 * CMN B = CMN * ( 1.0D0 + L15 * DTC ) - R15_16 * R16_15 C = CMN * ( YC0( NO3 ) + P15 * DTC ) + R15_16 * YC0( N2O5 ) Q = -0.5D0 * ( B + SIGN( 1.0D0, B ) * SQRT( B * B + 4.0D0 * A * C ) ) YCP( NO3 ) = MAX( Q / A , -C / Q ) YCP( N2O5 ) = ( YC0( N2O5 ) + R16_15 * YCP( NO3 ) ) / CMN RETURN END ================================================ FILE: CCTM/src/gas/ebi_saprc07tc_ae6_aq/hrinit.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE HRINIT C*********************************************************************** C C FUNCTION: To initialize species tolerances, arrays, and indices C C PRECONDITIONS: For the SAPRC07TC_AE6_AQ mechanism C C RETURN VALUES: None C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by EBI solver program, Jun 8, 2022 C 21 Jun 10 J.Young: convert for Namelist redesign C 18 Jul 14 B.Hutzell: revised to use the RXNS_DATA and RXNS_FUNCTION C modules instead of include files C*********************************************************************** USE UTILIO_DEFN USE HRDATA USE RXNS_DATA USE RXNS_FUNCTION IMPLICIT NONE C.....INCLUDES: Include SUBST_CONST ! common constants C.....ARGUMENTS: NONE C.....PARAMETERS: NONE C.....SAVED VARIABLES: CHARACTER( 16 ), SAVE :: PNAME = 'HRINIT' ! Program name C.....LOCAL VARIABLES: CHARACTER( 132 ) :: MSG ! Log message INTEGER N ! Loop index INTEGER IOS ! Allocate error status C*********************************************************************** N_SPEC = NUMB_MECH_SPC N_RXNS = NRXNS N_SPCL_RKS = 0 ALLOCATE( RKI( NRXNS ), & RKI_SAV( MAX_CELLS_EBI, NRXNS ), & FORWARD_CONV( NUMB_MECH_SPC), & REVERSE_CONV( NUMB_MECH_SPC), & RXRAT( NRXNS ), & RTOL( NUMB_MECH_SPC), & YC( NUMB_MECH_SPC), & YC0( NUMB_MECH_SPC), & YCP( NUMB_MECH_SPC), & PROD( NUMB_MECH_SPC), & LOSS( NUMB_MECH_SPC), & STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating RKI, RXRAT, RTOL, YC, YC0, YCP, FORWARD_CONV, ' & // 'REVERSE_CONV, PROD, LOSS, or PNEG' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF ALLOCATE( ATMPRES( MAX_CELLS_EBI ), & H2O ( MAX_CELLS_EBI ), & TEMP ( MAX_CELLS_EBI ), & DENSITY( MAX_CELLS_EBI ), & HET ( MAX_CELLS_EBI, NHETERO ), & RJIN ( MAX_CELLS_EBI, NPHOTAB ), & SEAWATER ( MAX_CELLS_EBI ) , & STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating ATMPRES, H2O, TEMP, HET, RJIN, SEAWATER ' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF IF( NSPECIAL .GT. 0 )THEN ALLOCATE( SYC( MAX_CELLS_EBI, NUMB_MECH_SPC ), STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating SYC' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF ALLOCATE( IOLD2NEW( NUMB_MECH_SPC, 1 ), STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating IOLD2NEW' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF DO N = 1, NUMB_MECH_SPC IOLD2NEW( N, 1 ) = N END DO END IF IF( .NOT. MAP_CHEMISTRY_SPECIES() )THEN MSG = 'Detected above error(s) when mapping Chemistry species from CGRID species' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT2 ) END IF DO N = 1, NUMB_MECH_SPC FORWARD_CONV( N ) = 1.0E-3 * MWAIR / SPECIES_MOLWT( N ) REVERSE_CONV( N ) = 1.0E+3 / MWAIR * SPECIES_MOLWT( N ) END DO ! initialize all reaction rates to zero so unused array elements are defined RXRAT = 0.0D0 ! initialize all production and loss rates to zero so unused array elements are defined PROD = 0.0D0 LOSS = 0.0D0 NING1 = 4 NING2 = 4 ALLOCATE( YCCELL( MODEL_SPECIES), STAT = IOS ) ! array for degradation routines IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating YCCELL ' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF c..Allocate and define ebi species N_EBISP = 185 ALLOCATE( EBISP( N_EBISP ), STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating EBISP' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF EBISP( 1 ) = HNO3 EBISP( 2 ) = CO EBISP( 3 ) = CO2 EBISP( 4 ) = HO2H EBISP( 5 ) = SO2 EBISP( 6 ) = SULF EBISP( 7 ) = SULRXN EBISP( 8 ) = MEO2 EBISP( 9 ) = HCHO EBISP( 10 ) = COOH EBISP( 11 ) = MEOH EBISP( 12 ) = RO2C EBISP( 13 ) = RO2XC EBISP( 14 ) = CCOOOH EBISP( 15 ) = CCOOH EBISP( 16 ) = RCO3 EBISP( 17 ) = PAN2 EBISP( 18 ) = xHO2 EBISP( 19 ) = yROOH EBISP( 20 ) = xCCHO EBISP( 21 ) = RCOOOH EBISP( 22 ) = RCOOH EBISP( 23 ) = BZCO3 EBISP( 24 ) = PBZN EBISP( 25 ) = BZO EBISP( 26 ) = MACO3 EBISP( 27 ) = MAPAN EBISP( 28 ) = TBUO EBISP( 29 ) = RNO3 EBISP( 30 ) = ACETONE EBISP( 31 ) = NPHE EBISP( 32 ) = CRES EBISP( 33 ) = xOH EBISP( 34 ) = xNO2 EBISP( 35 ) = xMEO2 EBISP( 36 ) = xMECO3 EBISP( 37 ) = xRCO3 EBISP( 38 ) = xMACO3 EBISP( 39 ) = xTBUO EBISP( 40 ) = xCO EBISP( 41 ) = CCHO EBISP( 42 ) = RCHO EBISP( 43 ) = xHCHO EBISP( 44 ) = MEK EBISP( 45 ) = zRNO3 EBISP( 46 ) = xRCHO EBISP( 47 ) = HCOOH EBISP( 48 ) = xMGLY EBISP( 49 ) = xBACL EBISP( 50 ) = ROOH EBISP( 51 ) = xPROD2 EBISP( 52 ) = R6OOH EBISP( 53 ) = PRD2 EBISP( 54 ) = yR6OOH EBISP( 55 ) = RAOOH EBISP( 56 ) = MGLY EBISP( 57 ) = IPRD EBISP( 58 ) = xGLY EBISP( 59 ) = xMEK EBISP( 60 ) = xAFG1 EBISP( 61 ) = xAFG2 EBISP( 62 ) = GLY EBISP( 63 ) = AFG1 EBISP( 64 ) = AFG2 EBISP( 65 ) = HCOCO3 EBISP( 66 ) = BACL EBISP( 67 ) = BALD EBISP( 68 ) = AFG3 EBISP( 69 ) = xIPRD EBISP( 70 ) = MACR EBISP( 71 ) = MVK EBISP( 72 ) = xHOCCHO EBISP( 73 ) = xRNO3 EBISP( 74 ) = HOCCHO EBISP( 75 ) = xACETONE EBISP( 76 ) = ACROLEIN EBISP( 77 ) = xBALD EBISP( 78 ) = xAFG3 EBISP( 79 ) = xMACR EBISP( 80 ) = xMVK EBISP( 81 ) = yISOPOOH EBISP( 82 ) = ISOPOOH EBISP( 83 ) = yRAOOH EBISP( 84 ) = xACROLEIN EBISP( 85 ) = ETHENE EBISP( 86 ) = PROPENE EBISP( 87 ) = BUTADIENE13 EBISP( 88 ) = ISOPRENE EBISP( 89 ) = ISOPRXN EBISP( 90 ) = IEPOX EBISP( 91 ) = ARO2MN EBISP( 92 ) = IEPOXOO EBISP( 93 ) = APIN EBISP( 94 ) = TRPRXN EBISP( 95 ) = ACETYLENE EBISP( 96 ) = BENZENE EBISP( 97 ) = BENZRO2 EBISP( 98 ) = TOLUENE EBISP( 99 ) = TOLRO2 EBISP( 100 ) = MXYL EBISP( 101 ) = XYLRO2 EBISP( 102 ) = OXYL EBISP( 103 ) = PXYL EBISP( 104 ) = TMBENZ124 EBISP( 105 ) = ETOH EBISP( 106 ) = ALK1 EBISP( 107 ) = ALK2 EBISP( 108 ) = ALK3 EBISP( 109 ) = ALK4 EBISP( 110 ) = ALK5 EBISP( 111 ) = SOAALK EBISP( 112 ) = ALKRXN EBISP( 113 ) = OLE1 EBISP( 114 ) = OLE2 EBISP( 115 ) = ARO1 EBISP( 116 ) = NAPHTHAL EBISP( 117 ) = PAHRO2 EBISP( 118 ) = TERP EBISP( 119 ) = SESQ EBISP( 120 ) = SESQRXN EBISP( 121 ) = CL2 EBISP( 122 ) = CL EBISP( 123 ) = CLNO EBISP( 124 ) = CLONO EBISP( 125 ) = CLNO2 EBISP( 126 ) = HCL EBISP( 127 ) = CLO EBISP( 128 ) = CLONO2 EBISP( 129 ) = HOCL EBISP( 130 ) = xCL EBISP( 131 ) = xCLCCHO EBISP( 132 ) = xCLACET EBISP( 133 ) = CLCCHO EBISP( 134 ) = CLACET EBISP( 135 ) = CLCHO EBISP( 136 ) = BNZNRXN EBISP( 137 ) = BNZHRXN EBISP( 138 ) = XYLNRXN EBISP( 139 ) = XYLHRXN EBISP( 140 ) = TOLNRXN EBISP( 141 ) = TOLHRXN EBISP( 142 ) = PAHNRXN EBISP( 143 ) = PAHHRXN EBISP( 144 ) = HCHO_PRIMARY EBISP( 145 ) = CCHO_PRIMARY EBISP( 146 ) = ACRO_PRIMARY EBISP( 147 ) = H2NO3PIJ EBISP( 148 ) = H2NO3PK EBISP( 149 ) = ACLI EBISP( 150 ) = ACLJ EBISP( 151 ) = ACLK EBISP( 152 ) = AXYL1J EBISP( 153 ) = AOLGAJ EBISP( 154 ) = AXYL2J EBISP( 155 ) = ATOL1J EBISP( 156 ) = ATOL2J EBISP( 157 ) = ABNZ1J EBISP( 158 ) = ABNZ2J EBISP( 159 ) = ATRP1J EBISP( 160 ) = AOLGBJ EBISP( 161 ) = ATRP2J EBISP( 162 ) = AISO1J EBISP( 163 ) = AISO2J EBISP( 164 ) = ASQTJ EBISP( 165 ) = APAH1J EBISP( 166 ) = APAH2J EBISP( 167 ) = AALK1J EBISP( 168 ) = AALK2J EBISP( 169 ) = APOCI EBISP( 170 ) = APNCOMI EBISP( 171 ) = APOCJ EBISP( 172 ) = APNCOMJ EBISP( 173 ) = PCVOC EBISP( 174 ) = PCSOARXN EBISP( 175 ) = VLVPO1 EBISP( 176 ) = VSVPO1 EBISP( 177 ) = VSVPO2 EBISP( 178 ) = VSVPO3 EBISP( 179 ) = VIVPO1 EBISP( 180 ) = VLVOO1 EBISP( 181 ) = VLVOO2 EBISP( 182 ) = VSVOO2 EBISP( 183 ) = VSVOO3 EBISP( 184 ) = VSVOO1 EBISP( 185 ) = AISO3J cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Set species tolerances cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc RTOL( NO2 ) = 5.0D-04 RTOL( NO ) = 5.0D-04 RTOL( O3P ) = 1.0D+00 RTOL( O3 ) = 5.0D-04 RTOL( NO3 ) = 5.0D-04 RTOL( N2O5 ) = 5.0D-04 RTOL( HNO3 ) = 5.0D-04 RTOL( O1D ) = 1.0D+00 RTOL( OH ) = 5.0D-04 RTOL( HONO ) = 5.0D-04 RTOL( HO2 ) = 5.0D-04 RTOL( CO ) = 5.0D-04 RTOL( CO2 ) = 5.0D-04 RTOL( HNO4 ) = 5.0D-04 RTOL( HO2H ) = 5.0D-04 RTOL( SO2 ) = 5.0D-04 RTOL( SULF ) = 1.0D+00 RTOL( SULRXN ) = 1.0D+00 RTOL( MEO2 ) = 5.0D-04 RTOL( HCHO ) = 5.0D-04 RTOL( COOH ) = 5.0D-04 RTOL( MEOH ) = 5.0D-04 RTOL( RO2C ) = 5.0D-04 RTOL( RO2XC ) = 5.0D-04 RTOL( MECO3 ) = 5.0D-04 RTOL( PAN ) = 5.0D-04 RTOL( CCOOOH ) = 5.0D-04 RTOL( CCOOH ) = 5.0D-04 RTOL( RCO3 ) = 5.0D-04 RTOL( PAN2 ) = 5.0D-04 RTOL( xHO2 ) = 5.0D-04 RTOL( yROOH ) = 5.0D-04 RTOL( xCCHO ) = 5.0D-04 RTOL( RCOOOH ) = 5.0D-04 RTOL( RCOOH ) = 5.0D-04 RTOL( BZCO3 ) = 5.0D-04 RTOL( PBZN ) = 5.0D-04 RTOL( BZO ) = 5.0D-04 RTOL( MACO3 ) = 5.0D-04 RTOL( MAPAN ) = 5.0D-04 RTOL( TBUO ) = 5.0D-04 RTOL( RNO3 ) = 5.0D-04 RTOL( ACETONE ) = 5.0D-04 RTOL( NPHE ) = 5.0D-04 RTOL( CRES ) = 5.0D-04 RTOL( xOH ) = 5.0D-04 RTOL( xNO2 ) = 5.0D-04 RTOL( xMEO2 ) = 5.0D-04 RTOL( xMECO3 ) = 5.0D-04 RTOL( xRCO3 ) = 5.0D-04 RTOL( xMACO3 ) = 5.0D-04 RTOL( xTBUO ) = 5.0D-04 RTOL( xCO ) = 5.0D-04 RTOL( CCHO ) = 5.0D-04 RTOL( RCHO ) = 5.0D-04 RTOL( xHCHO ) = 5.0D-04 RTOL( MEK ) = 5.0D-04 RTOL( zRNO3 ) = 5.0D-04 RTOL( xRCHO ) = 5.0D-04 RTOL( HCOOH ) = 5.0D-04 RTOL( xMGLY ) = 5.0D-04 RTOL( xBACL ) = 5.0D-04 RTOL( ROOH ) = 5.0D-04 RTOL( xPROD2 ) = 5.0D-04 RTOL( R6OOH ) = 5.0D-04 RTOL( PRD2 ) = 5.0D-04 RTOL( yR6OOH ) = 5.0D-04 RTOL( RAOOH ) = 5.0D-04 RTOL( MGLY ) = 5.0D-04 RTOL( IPRD ) = 5.0D-04 RTOL( xGLY ) = 5.0D-04 RTOL( xMEK ) = 5.0D-04 RTOL( xAFG1 ) = 5.0D-04 RTOL( xAFG2 ) = 5.0D-04 RTOL( GLY ) = 5.0D-04 RTOL( AFG1 ) = 5.0D-04 RTOL( AFG2 ) = 5.0D-04 RTOL( HCOCO3 ) = 5.0D-04 RTOL( BACL ) = 5.0D-04 RTOL( BALD ) = 5.0D-04 RTOL( AFG3 ) = 5.0D-04 RTOL( xIPRD ) = 5.0D-04 RTOL( MACR ) = 5.0D-04 RTOL( MVK ) = 5.0D-04 RTOL( xHOCCHO ) = 5.0D-04 RTOL( xRNO3 ) = 5.0D-04 RTOL( HOCCHO ) = 5.0D-04 RTOL( xACETONE ) = 5.0D-04 RTOL( ACROLEIN ) = 5.0D-04 RTOL( xBALD ) = 5.0D-04 RTOL( xAFG3 ) = 5.0D-04 RTOL( xMACR ) = 5.0D-04 RTOL( xMVK ) = 5.0D-04 RTOL( yISOPOOH ) = 5.0D-04 RTOL( ISOPOOH ) = 5.0D-04 RTOL( yRAOOH ) = 5.0D-04 RTOL( xACROLEIN ) = 5.0D-04 RTOL( ETHENE ) = 5.0D-04 RTOL( PROPENE ) = 5.0D-04 RTOL( BUTADIENE13 ) = 5.0D-04 RTOL( ISOPRENE ) = 5.0D-04 RTOL( ISOPRXN ) = 1.0D+00 RTOL( IEPOX ) = 5.0D-04 RTOL( ARO2MN ) = 5.0D-04 RTOL( IEPOXOO ) = 5.0D-04 RTOL( APIN ) = 5.0D-04 RTOL( TRPRXN ) = 1.0D+00 RTOL( ACETYLENE ) = 5.0D-04 RTOL( BENZENE ) = 5.0D-04 RTOL( BENZRO2 ) = 5.0D-04 RTOL( TOLUENE ) = 5.0D-04 RTOL( TOLRO2 ) = 5.0D-04 RTOL( MXYL ) = 5.0D-04 RTOL( XYLRO2 ) = 5.0D-04 RTOL( OXYL ) = 5.0D-04 RTOL( PXYL ) = 5.0D-04 RTOL( TMBENZ124 ) = 5.0D-04 RTOL( ETOH ) = 5.0D-04 RTOL( ALK1 ) = 5.0D-04 RTOL( ALK2 ) = 5.0D-04 RTOL( ALK3 ) = 5.0D-04 RTOL( ALK4 ) = 5.0D-04 RTOL( ALK5 ) = 5.0D-04 RTOL( SOAALK ) = 5.0D-04 RTOL( ALKRXN ) = 1.0D+00 RTOL( OLE1 ) = 5.0D-04 RTOL( OLE2 ) = 5.0D-04 RTOL( ARO1 ) = 5.0D-04 RTOL( NAPHTHAL ) = 5.0D-04 RTOL( PAHRO2 ) = 1.0D+00 RTOL( TERP ) = 5.0D-04 RTOL( SESQ ) = 5.0D-04 RTOL( SESQRXN ) = 1.0D+00 RTOL( CL2 ) = 5.0D-04 RTOL( CL ) = 5.0D-04 RTOL( CLNO ) = 5.0D-04 RTOL( CLONO ) = 5.0D-04 RTOL( CLNO2 ) = 5.0D-04 RTOL( HCL ) = 5.0D-04 RTOL( CLO ) = 5.0D-04 RTOL( CLONO2 ) = 5.0D-04 RTOL( HOCL ) = 5.0D-04 RTOL( xCL ) = 5.0D-04 RTOL( xCLCCHO ) = 5.0D-04 RTOL( xCLACET ) = 5.0D-04 RTOL( CLCCHO ) = 5.0D-04 RTOL( CLACET ) = 5.0D-04 RTOL( CLCHO ) = 5.0D-04 RTOL( BNZNRXN ) = 1.0D+00 RTOL( BNZHRXN ) = 1.0D+00 RTOL( XYLNRXN ) = 1.0D+00 RTOL( XYLHRXN ) = 1.0D+00 RTOL( TOLNRXN ) = 1.0D+00 RTOL( TOLHRXN ) = 1.0D+00 RTOL( PAHNRXN ) = 1.0D+00 RTOL( PAHHRXN ) = 1.0D+00 RTOL( HCHO_PRIMARY ) = 5.0D-04 RTOL( CCHO_PRIMARY ) = 5.0D-04 RTOL( ACRO_PRIMARY ) = 5.0D-04 RTOL( H2NO3PIJ ) = 5.0D-04 RTOL( H2NO3PK ) = 5.0D-04 RTOL( ACLI ) = 5.0D-04 RTOL( ACLJ ) = 5.0D-04 RTOL( ACLK ) = 5.0D-04 RTOL( AXYL1J ) = 5.0D-04 RTOL( AOLGAJ ) = 5.0D-04 RTOL( AXYL2J ) = 5.0D-04 RTOL( ATOL1J ) = 5.0D-04 RTOL( ATOL2J ) = 5.0D-04 RTOL( ABNZ1J ) = 5.0D-04 RTOL( ABNZ2J ) = 5.0D-04 RTOL( ATRP1J ) = 5.0D-04 RTOL( AOLGBJ ) = 5.0D-04 RTOL( ATRP2J ) = 5.0D-04 RTOL( AISO1J ) = 5.0D-04 RTOL( AISO2J ) = 5.0D-04 RTOL( ASQTJ ) = 5.0D-04 RTOL( APAH1J ) = 5.0D-04 RTOL( APAH2J ) = 5.0D-04 RTOL( AALK1J ) = 5.0D-04 RTOL( AALK2J ) = 5.0D-04 RTOL( APOCI ) = 5.0D-04 RTOL( APNCOMI ) = 5.0D-04 RTOL( APOCJ ) = 5.0D-04 RTOL( APNCOMJ ) = 5.0D-04 RTOL( PCVOC ) = 5.0D-04 RTOL( PCSOARXN ) = 5.0D-04 RTOL( VLVPO1 ) = 5.0D-04 RTOL( VSVPO1 ) = 5.0D-04 RTOL( VSVPO2 ) = 5.0D-04 RTOL( VSVPO3 ) = 5.0D-04 RTOL( VIVPO1 ) = 5.0D-04 RTOL( VLVOO1 ) = 5.0D-04 RTOL( VLVOO2 ) = 5.0D-04 RTOL( VSVOO2 ) = 5.0D-04 RTOL( VSVOO3 ) = 5.0D-04 RTOL( VSVOO1 ) = 5.0D-04 RTOL( AISO3J ) = 5.0D-04 RETURN END ================================================ FILE: CCTM/src/gas/ebi_saprc07tc_ae6_aq/hrprodloss.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE HRPRODLOSS C*********************************************************************** C C FUNCTION: To compute the production and loss rates for EBI species C C PRECONDITIONS: For the SAPRC07TC_AE6_AQ mechanism C C RETURN VALUES: None C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by EBI solver program, Jun 8, 2022 C C 18 Jul 14 B.Hutzell: revised to use real(8) variables C*********************************************************************** USE HRDATA IMPLICIT NONE C.....INCLUDES: NONE C.....ARGUMENTS: NONE C.....PARAMETERS: NONE C.....EXTERNAL FUNCTIONS: NONE C.....SAVED VARIABLES: NONE ! CHARACTER( 16 ), SAVE :: PNAME = 'HRPRODLOSS' ! Program name C.....LOCAL VARIABLES: C*********************************************************************** PROD( HNO3 ) = 2.0000D+00 * RXRAT( 13 ) ! N2O5=0.2000D+01*HNO3 & + 2.0000D+00 * RXRAT( 14 ) ! N2O5=0.2000D+01*HNO3 & + RXRAT( 25 ) ! OH+NO2=HNO3 & + 2.0000D-01 * RXRAT( 39 ) ! NO3+HO2=0.2000D+00*HNO3+... & + RXRAT( 207 ) ! HCHO+NO3=HNO3+HO2+CO & + RXRAT( 210 ) ! CCHO+NO3=HNO3+MECO3 & + RXRAT( 213 ) ! RCHO+NO3=HNO3+RCO3 & + RXRAT( 233 ) ! GLY+NO3=HNO3+0.7000D+... & + RXRAT( 236 ) ! MGLY+NO3=HNO3+CO+MECO3 & + RXRAT( 239 ) ! CRES+NO3=HNO3+BZO & + RXRAT( 245 ) ! BALD+NO3=HNO3+BZCO3 & + 5.0000D-01 * RXRAT( 256 ) ! MACR+NO3=0.5000D+00*HNO3+... & + 1.5000D-01 * RXRAT( 265 ) ! IPRD+NO3=0.1500D+00*HNO3+... & + RXRAT( 273 ) ! HOCCHO+NO3=HNO3+MECO3 & + 9.6700D-01 * RXRAT( 276 ) ! ACROLEIN+NO3=0.9670D+... & + 5.0000D-01 * RXRAT( 713 ) ! NO2=0.5000D+00*HNO3+... & + RXRAT( 714 ) ! N2O5=HNO3+H2NO3PIJ & + RXRAT( 715 ) ! N2O5=HNO3+H2NO3PK & + RXRAT( 716 ) ! H2NO3PIJ=HNO3 & + RXRAT( 717 ) ! H2NO3PK=HNO3 LOSS( HNO3 ) = RXRAT( 27 ) ! HNO3+OH=NO3 & + RXRAT( 28 ) ! HNO3=OH+NO2 PROD( CO ) = RXRAT( 194 ) ! xCO+NO=CO+NO & + RXRAT( 196 ) ! xCO+NO3=CO+NO3 & + 5.0000D-01 * RXRAT( 197 ) ! xCO+MEO2=0.5000D+00*CO+MEO2 & + 5.0000D-01 * RXRAT( 198 ) ! xCO+RO2C=0.5000D+00*CO+RO2C & + 5.0000D-01 * RXRAT( 199 ) ! xCO+RO2XC=0.5000D+00*CO+RO2XC & + RXRAT( 200 ) ! xCO+MECO3=CO+MECO3 & + RXRAT( 201 ) ! xCO+RCO3=CO+RCO3 & + RXRAT( 202 ) ! xCO+BZCO3=CO+BZCO3 & + RXRAT( 203 ) ! xCO+MACO3=CO+MACO3 & + RXRAT( 204 ) ! HCHO=CO+0.2000D+01*HO2 & + RXRAT( 205 ) ! HCHO=CO & + RXRAT( 206 ) ! HCHO+OH=CO+HO2 & + RXRAT( 207 ) ! HCHO+NO3=CO+HO2+HNO3 & + RXRAT( 209 ) ! CCHO=CO+HO2+MEO2 & + RXRAT( 212 ) ! RCHO=CO+xHO2+yROOH+xCCHO+... & + 3.8000D-01 * RXRAT( 215 ) ! ACETONE=0.3800D+00*CO+... & + 2.0000D+00 * RXRAT( 230 ) ! GLY=0.2000D+01*CO+0.2000D+... & + RXRAT( 231 ) ! GLY=CO+HCHO & + 1.4000D+00 * RXRAT( 232 ) ! GLY+OH=0.1400D+01*CO+... & + 1.4000D+00 * RXRAT( 233 ) ! GLY+NO3=0.1400D+01*CO+... & + RXRAT( 234 ) ! MGLY=CO+HO2+MECO3 & + RXRAT( 235 ) ! MGLY+OH=CO+MECO3 & + RXRAT( 236 ) ! MGLY+NO3=CO+HNO3+MECO3 & + 5.2200D-01 * RXRAT( 247 ) ! AFG1+O3=0.5220D+00*CO+... & + 6.9500D-01 * RXRAT( 248 ) ! AFG1=0.6950D+00*CO+0.1730D+... & + 5.2200D-01 * RXRAT( 250 ) ! AFG2+O3=0.5220D+00*CO+... & + 5.8000D-01 * RXRAT( 253 ) ! AFG3+O3=0.5800D+00*CO+... & + 4.5000D-01 * RXRAT( 255 ) ! MACR+O3=0.4500D+00*CO+... & + 6.7000D-01 * RXRAT( 258 ) ! MACR=0.6700D+00*CO+0.6700D+... & + 4.7500D-01 * RXRAT( 260 ) ! MVK+O3=0.4750D+00*CO+... & + 6.0000D-01 * RXRAT( 262 ) ! MVK=0.6000D+00*CO+0.4000D+... & + 4.9800D-01 * RXRAT( 264 ) ! IPRD+O3=0.4980D+00*CO+... & + 1.2330D+00 * RXRAT( 266 ) ! IPRD=0.1233D+01*CO+0.4670D+... & + RXRAT( 272 ) ! HOCCHO=CO+0.2000D+01*HO2+HCHO & + 1.0050D+00 * RXRAT( 275 ) ! ACROLEIN+O3=0.1005D+01*CO+... & + 1.1880D+00 * RXRAT( 278 ) ! ACROLEIN=0.1188D+01*CO+... & + RXRAT( 283 ) ! HCOCO3+NO=CO+HO2+CO2+NO2 & + RXRAT( 284 ) ! HCOCO3+NO2=CO+HO2+CO2+NO3 & + 4.4000D-01 * RXRAT( 285 ) ! HCOCO3+HO2=0.4400D+00*CO+... & + 5.1000D-01 * RXRAT( 528 ) ! ETHENE+O3=0.5100D+00*CO+... & + 5.1000D-01 * RXRAT( 530 ) ! ETHENE+O3P=0.5100D+00*CO+... & + 5.2500D-01 * RXRAT( 532 ) ! PROPENE+O3=0.5250D+00*CO+... & + 2.5500D-01 * RXRAT( 536 ) ! BUTADIENE13+O3=0.2550D+... & + 2.7500D-01 * RXRAT( 540 ) ! ISOPRENE+O3=0.2750D+00*CO+... & + 2.5100D-01 * RXRAT( 547 ) ! IEPOXOO+HO2=0.2510D+00*CO+... & + 2.5100D-01 * RXRAT( 548 ) ! IEPOXOO+NO=0.2510D+00*CO+... & + 1.2600D-01 * RXRAT( 549 ) ! IEPOXOO+MEO2=0.1260D+00*CO+... & + 1.2600D-01 * RXRAT( 550 ) ! IEPOXOO+RO2C=0.1260D+00*CO+... & + 2.5100D-01 * RXRAT( 551 ) ! IEPOXOO+MECO3=0.2510D+... & + 2.9000D-02 * RXRAT( 553 ) ! APIN+O3=0.2900D-01*CO+... & + 3.0000D-01 * RXRAT( 556 ) ! ACETYLENE+OH=0.3000D+00*CO+... & + 1.5000D+00 * RXRAT( 557 ) ! ACETYLENE+O3=0.1500D+01*CO+... & + 3.0300D-01 * RXRAT( 572 ) ! OLE1+O3=0.3030D+00*CO+... & + 2.9900D-01 * RXRAT( 576 ) ! OLE2+O3=0.2990D+00*CO+... & + 2.4900D-01 * RXRAT( 583 ) ! TERP+O3=0.2490D+00*CO+... & + 2.4900D-01 * RXRAT( 587 ) ! SESQ+O3=0.2490D+00*CO+... & + RXRAT( 612 ) ! HCHO+CL=CO+HO2+HCL & + 1.2600D+00 * RXRAT( 620 ) ! GLY+CL=0.1260D+01*CO+... & + RXRAT( 621 ) ! MGLY+CL=CO+HCL+MECO3 & + RXRAT( 631 ) ! CLCCHO=CO+HO2+RO2C+xCL+... & + RXRAT( 671 ) ! ACETYLENE+CL=CO+HO2 LOSS( CO ) = RXRAT( 29 ) ! CO+OH=HO2+CO2 PROD( CO2 ) = RXRAT( 29 ) ! OH+CO=CO2+HO2 & + 4.0000D-01 * RXRAT( 65 ) ! PAN=0.4000D+00*CO2+0.6000D+... & + RXRAT( 66 ) ! MECO3+NO=CO2+MEO2+NO2 & + 4.4000D-01 * RXRAT( 67 ) ! MECO3+HO2=0.4400D+00*CO2+... & + RXRAT( 68 ) ! MECO3+NO3=CO2+MEO2+NO2 & + 9.0000D-01 * RXRAT( 69 ) ! MECO3+MEO2=0.9000D+00*CO2+... & + RXRAT( 70 ) ! MECO3+RO2C=CO2+MEO2 & + RXRAT( 71 ) ! MECO3+RO2XC=CO2+MEO2 & + 2.0000D+00 * RXRAT( 72 ) ! MECO3+MECO3=0.2000D+01*CO2+... & + 4.0000D-01 * RXRAT( 75 ) ! PAN2=0.4000D+00*CO2+... & + RXRAT( 76 ) ! RCO3+NO=CO2+RO2C+xHO2+... & + 4.4000D-01 * RXRAT( 77 ) ! RCO3+HO2=0.4400D+00*CO2+... & + RXRAT( 78 ) ! RCO3+NO3=CO2+RO2C+xHO2+... & + RXRAT( 79 ) ! RCO3+MEO2=CO2+HO2+RO2C+... & + RXRAT( 80 ) ! RCO3+RO2C=CO2+xHO2+xCCHO+... & + RXRAT( 81 ) ! RCO3+RO2XC=CO2+xHO2+xCCHO+... & + 2.0000D+00 * RXRAT( 82 ) ! RCO3+MECO3=0.2000D+01*CO2+... & + 2.0000D+00 * RXRAT( 83 ) ! RCO3+RCO3=0.2000D+01*CO2+... & + 4.0000D-01 * RXRAT( 86 ) ! PBZN=0.4000D+00*CO2+... & + RXRAT( 87 ) ! BZCO3+NO=CO2+NO2+BZO+RO2C & + 4.4000D-01 * RXRAT( 88 ) ! BZCO3+HO2=0.4400D+00*CO2+... & + RXRAT( 89 ) ! BZCO3+NO3=CO2+NO2+BZO+RO2C & + RXRAT( 90 ) ! BZCO3+MEO2=CO2+HO2+RO2C+... & + RXRAT( 91 ) ! BZCO3+RO2C=CO2+BZO+RO2C & + RXRAT( 92 ) ! BZCO3+RO2XC=CO2+BZO+RO2C & + 2.0000D+00 * RXRAT( 93 ) ! BZCO3+MECO3=0.2000D+01*CO2+... & + 2.0000D+00 * RXRAT( 94 ) ! BZCO3+RCO3=0.2000D+01*CO2+... & + 2.0000D+00 * RXRAT( 95 ) ! BZCO3+BZCO3=0.2000D+01*CO2+... & + 4.0000D-01 * RXRAT( 98 ) ! MAPAN=0.4000D+00*CO2+... & + RXRAT( 99 ) ! MACO3+NO=CO2+NO2+HCHO+MECO3 & + 4.4000D-01 * RXRAT( 100 ) ! MACO3+HO2=0.4400D+00*CO2+... & + RXRAT( 101 ) ! MACO3+NO3=CO2+NO2+HCHO+MECO3 & + RXRAT( 102 ) ! MACO3+MEO2=CO2+HO2+0.2000D+... & + RXRAT( 103 ) ! MACO3+RO2C=CO2+HCHO+MECO3 & + RXRAT( 104 ) ! MACO3+RO2XC=CO2+HCHO+MECO3 & + 2.0000D+00 * RXRAT( 105 ) ! MACO3+MECO3=0.2000D+01*CO2+... & + 2.0000D+00 * RXRAT( 106 ) ! MACO3+RCO3=0.2000D+01*CO2+... & + 2.0000D+00 * RXRAT( 107 ) ! MACO3+BZCO3=0.2000D+01*CO2+... & + 2.0000D+00 * RXRAT( 108 ) ! MACO3+MACO3=0.2000D+01*CO2+... & + RXRAT( 219 ) ! HCOOH+OH=CO2+HO2 & + 5.0900D-01 * RXRAT( 220 ) ! CCOOH+OH=0.5090D+00*CO2+... & + 1.4300D-01 * RXRAT( 221 ) ! RCOOH+OH=0.1430D+00*CO2+... & + 1.7400D-01 * RXRAT( 247 ) ! AFG1+O3=0.1740D+00*CO2+... & + 1.7400D-01 * RXRAT( 250 ) ! AFG2+O3=0.1740D+00*CO2+... & + 1.9000D-01 * RXRAT( 253 ) ! AFG3+O3=0.1900D+00*CO2+... & + 1.1700D-01 * RXRAT( 255 ) ! MACR+O3=0.1170D+00*CO2+... & + 1.2400D-01 * RXRAT( 260 ) ! MVK+O3=0.1240D+00*CO2+... & + 1.4000D-01 * RXRAT( 264 ) ! IPRD+O3=0.1400D+00*CO2+... & + 3.1000D-01 * RXRAT( 275 ) ! ACROLEIN+O3=0.3100D+00*CO2+... & + 1.0200D-01 * RXRAT( 278 ) ! ACROLEIN=0.1020D+00*CO2+... & + 2.0000D-02 * RXRAT( 279 ) ! CCOOOH+OH=0.2000D-01*CO2+... & + RXRAT( 280 ) ! CCOOOH=CO2+MEO2+OH & + 1.1000D-01 * RXRAT( 281 ) ! RCOOOH+OH=0.1100D+00*CO2+... & + RXRAT( 282 ) ! RCOOOH=CO2+xCCHO+yROOH+xHO2+OH & + RXRAT( 283 ) ! HCOCO3+NO=CO2+CO+HO2+NO2 & + RXRAT( 284 ) ! HCOCO3+NO2=CO2+CO+HO2+NO3 & + 4.4000D-01 * RXRAT( 285 ) ! HCOCO3+HO2=0.4400D+00*CO2+... & + 1.2000D-01 * RXRAT( 528 ) ! ETHENE+O3=0.1200D+00*CO2+... & + 2.1500D-01 * RXRAT( 532 ) ! PROPENE+O3=0.2150D+00*CO2+... & + 1.8500D-01 * RXRAT( 536 ) ! BUTADIENE13+O3=0.1850D+... & + 1.2200D-01 * RXRAT( 540 ) ! ISOPRENE+O3=0.1220D+00*CO2+... & + 2.0000D-01 * RXRAT( 547 ) ! IEPOXOO+HO2=0.2000D+00*CO2+... & + 2.0000D-01 * RXRAT( 548 ) ! IEPOXOO+NO=0.2000D+00*CO2+... & + 1.0000D-01 * RXRAT( 549 ) ! IEPOXOO+MEO2=0.1000D+... & + 1.0000D-01 * RXRAT( 550 ) ! IEPOXOO+RO2C=0.1000D+... & + 1.2000D+00 * RXRAT( 551 ) ! IEPOXOO+MECO3=0.1200D+... & + 1.7000D-02 * RXRAT( 553 ) ! APIN+O3=0.1700D-01*CO2+... & + 5.0000D-01 * RXRAT( 557 ) ! ACETYLENE+O3=0.5000D+... & + 8.8000D-02 * RXRAT( 572 ) ! OLE1+O3=0.8800D-01*CO2+... & + 1.6100D-01 * RXRAT( 576 ) ! OLE2+O3=0.1610D+00*CO2+... & + 6.3000D-02 * RXRAT( 583 ) ! TERP+O3=0.6300D-01*CO2+... & + 6.3000D-02 * RXRAT( 587 ) ! SESQ+O3=0.6300D-01*CO2+... LOSS( CO2 ) = 0.0D0 PROD( HO2H ) = RXRAT( 37 ) ! HO2+HO2=HO2H & + RXRAT( 38 ) ! HO2+HO2=HO2H LOSS( HO2H ) = RXRAT( 41 ) ! HO2H=0.2000D+01*OH & + RXRAT( 42 ) ! HO2H+OH=HO2 PROD( SO2 ) = 0.0D0 LOSS( SO2 ) = RXRAT( 44 ) ! SO2+OH=HO2+SULF+SULRXN PROD( SULF ) = RXRAT( 44 ) ! OH+SO2=SULF+HO2+SULRXN LOSS( SULF ) = 0.0D0 PROD( SULRXN ) = RXRAT( 44 ) ! OH+SO2=SULRXN+SULF+HO2 LOSS( SULRXN ) = 0.0D0 PROD( MEO2 ) = 4.0000D-01 * RXRAT( 65 ) ! PAN=0.4000D+00*MEO2+... & + RXRAT( 66 ) ! MECO3+NO=MEO2+CO2+NO2 & + 4.4000D-01 * RXRAT( 67 ) ! MECO3+HO2=0.4400D+00*MEO2+... & + RXRAT( 68 ) ! MECO3+NO3=MEO2+CO2+NO2 & + RXRAT( 70 ) ! MECO3+RO2C=MEO2+CO2 & + RXRAT( 71 ) ! MECO3+RO2XC=MEO2+CO2 & + 2.0000D+00 * RXRAT( 72 ) ! MECO3+MECO3=0.2000D+... & + RXRAT( 82 ) ! RCO3+MECO3=MEO2+0.2000D+... & + RXRAT( 93 ) ! BZCO3+MECO3=MEO2+0.2000D+... & + RXRAT( 105 ) ! MACO3+MECO3=MEO2+0.2000D+... & + RXRAT( 110 ) ! TBUO=MEO2+ACETONE & + RXRAT( 144 ) ! xMEO2+NO=MEO2+NO & + RXRAT( 146 ) ! xMEO2+NO3=MEO2+NO3 & + 5.0000D-01 * RXRAT( 147 ) ! xMEO2+MEO2=0.1500D+01*MEO2 & + 5.0000D-01 * RXRAT( 148 ) ! xMEO2+RO2C=0.5000D+00*MEO2+... & + 5.0000D-01 * RXRAT( 149 ) ! xMEO2+RO2XC=0.5000D+... & + RXRAT( 150 ) ! xMEO2+MECO3=MEO2+MECO3 & + RXRAT( 151 ) ! xMEO2+RCO3=MEO2+RCO3 & + RXRAT( 152 ) ! xMEO2+BZCO3=MEO2+BZCO3 & + RXRAT( 153 ) ! xMEO2+MACO3=MEO2+MACO3 & + RXRAT( 209 ) ! CCHO=MEO2+HO2+CO & + 1.3800D+00 * RXRAT( 215 ) ! ACETONE=0.1380D+01*MEO2+... & + 5.0900D-01 * RXRAT( 220 ) ! CCOOH+OH=0.5090D+00*MEO2+... & + 7.0000D-01 * RXRAT( 222 ) ! COOH+OH=0.7000D+00*MEO2+... & + 1.7300D-01 * RXRAT( 248 ) ! AFG1=0.1730D+00*MEO2+... & + 4.0000D-01 * RXRAT( 262 ) ! MVK=0.4000D+00*MEO2+... & + 2.3400D-01 * RXRAT( 278 ) ! ACROLEIN=0.2340D+00*MEO2+... & + RXRAT( 280 ) ! CCOOOH=MEO2+CO2+OH & + RXRAT( 526 ) ! OH=MEO2 & + 5.1000D-01 * RXRAT( 530 ) ! ETHENE+O3P=0.5100D+00*MEO2+... & + 3.5500D-01 * RXRAT( 532 ) ! PROPENE+O3=0.3550D+00*MEO2+... & + 2.5000D-01 * RXRAT( 542 ) ! ISOPRENE+O3P=0.2500D+... & + RXRAT( 551 ) ! IEPOXOO+MECO3=MEO2+0.2750D+... & + 3.0700D-01 * RXRAT( 576 ) ! OLE2+O3=0.3070D+00*MEO2+... & + RXRAT( 665 ) ! CL=MEO2+HCL LOSS( MEO2 ) = RXRAT( 46 ) ! MEO2+NO=NO2+HCHO+HO2 & + RXRAT( 47 ) ! MEO2+HO2=COOH & + RXRAT( 48 ) ! MEO2+HO2=HCHO & + RXRAT( 49 ) ! MEO2+NO3=HCHO+HO2+NO2 & + 2.0000D+00 * RXRAT( 50 ) ! MEO2+MEO2=MEOH+HCHO & + 2.0000D+00 * RXRAT( 51 ) ! MEO2+MEO2=0.2000D+01*HCHO+... & + RXRAT( 55 ) ! MEO2+RO2C=0.5000D+00*HO2+... & + RXRAT( 60 ) ! MEO2+RO2XC=0.5000D+00*HO2+... & + 1.0000D-01 * RXRAT( 69 ) ! MEO2+MECO3=0.9000D+00*MEO2+... & + RXRAT( 79 ) ! MEO2+RCO3=HCHO+HO2+RO2C+... & + RXRAT( 90 ) ! MEO2+BZCO3=HCHO+HO2+RO2C+... & + RXRAT( 102 ) ! MEO2+MACO3=0.2000D+01*HCHO+... & + RXRAT( 549 ) ! MEO2+IEPOXOO=0.3630D+... PROD( HCHO ) = RXRAT( 46 ) ! MEO2+NO=HCHO+NO2+HO2 & + RXRAT( 48 ) ! MEO2+HO2=HCHO & + RXRAT( 49 ) ! MEO2+NO3=HCHO+HO2+NO2 & + RXRAT( 50 ) ! MEO2+MEO2=HCHO+MEOH & + 2.0000D+00 * RXRAT( 51 ) ! MEO2+MEO2=0.2000D+01*HCHO+... & + 7.5000D-01 * RXRAT( 55 ) ! RO2C+MEO2=0.7500D+00*HCHO+... & + 7.5000D-01 * RXRAT( 60 ) ! RO2XC+MEO2=0.7500D+00*HCHO+... & + RXRAT( 69 ) ! MECO3+MEO2=HCHO+0.1000D+... & + RXRAT( 79 ) ! RCO3+MEO2=HCHO+HO2+RO2C+... & + RXRAT( 90 ) ! BZCO3+MEO2=HCHO+HO2+RO2C+... & + 4.0000D-01 * RXRAT( 98 ) ! MAPAN=0.4000D+00*HCHO+... & + RXRAT( 99 ) ! MACO3+NO=HCHO+CO2+NO2+MECO3 & + 4.4000D-01 * RXRAT( 100 ) ! MACO3+HO2=0.4400D+00*HCHO+... & + RXRAT( 101 ) ! MACO3+NO3=HCHO+CO2+NO2+MECO3 & + 2.0000D+00 * RXRAT( 102 ) ! MACO3+MEO2=0.2000D+01*HCHO+... & + RXRAT( 103 ) ! MACO3+RO2C=HCHO+CO2+MECO3 & + RXRAT( 104 ) ! MACO3+RO2XC=HCHO+CO2+MECO3 & + RXRAT( 105 ) ! MACO3+MECO3=HCHO+MEO2+... & + RXRAT( 106 ) ! MACO3+RCO3=HCHO+MECO3+RO2C+... & + RXRAT( 107 ) ! MACO3+BZCO3=HCHO+MECO3+BZO+... & + 2.0000D+00 * RXRAT( 108 ) ! MACO3+MACO3=0.2000D+... & + RXRAT( 218 ) ! MEOH+OH=HCHO+HO2 & + 3.0000D-01 * RXRAT( 222 ) ! COOH+OH=0.3000D+00*HCHO+... & + RXRAT( 223 ) ! COOH=HCHO+HO2+OH & + RXRAT( 231 ) ! GLY=HCHO+CO & + 1.0000D-01 * RXRAT( 255 ) ! MACR+O3=0.1000D+00*HCHO+... & + 3.4000D-01 * RXRAT( 258 ) ! MACR=0.3400D+00*HCHO+... & + 5.0000D-02 * RXRAT( 260 ) ! MVK+O3=0.5000D-01*HCHO+... & + 1.2400D-01 * RXRAT( 264 ) ! IPRD+O3=0.1240D+00*HCHO+... & + 3.0000D-01 * RXRAT( 266 ) ! IPRD=0.3000D+00*HCHO+... & + 2.0000D-03 * RXRAT( 267 ) ! PRD2+OH=0.2000D-02*HCHO+... & + 7.4000D-02 * RXRAT( 270 ) ! RNO3=0.7400D-01*HCHO+... & + RXRAT( 272 ) ! HOCCHO=HCHO+0.2000D+01*HO2+CO & + 5.0000D-01 * RXRAT( 275 ) ! ACROLEIN+O3=0.5000D+... & + 3.4000D-01 * RXRAT( 278 ) ! ACROLEIN=0.3400D+00*HCHO+... & + RXRAT( 286 ) ! xHCHO+NO=HCHO+NO & + RXRAT( 288 ) ! xHCHO+NO3=HCHO+NO3 & + 5.0000D-01 * RXRAT( 289 ) ! xHCHO+MEO2=0.5000D+00*HCHO+... & + 5.0000D-01 * RXRAT( 290 ) ! xHCHO+RO2C=0.5000D+00*HCHO+... & + 5.0000D-01 * RXRAT( 291 ) ! xHCHO+RO2XC=0.5000D+... & + RXRAT( 292 ) ! xHCHO+MECO3=HCHO+MECO3 & + RXRAT( 293 ) ! xHCHO+RCO3=HCHO+RCO3 & + RXRAT( 294 ) ! xHCHO+BZCO3=HCHO+BZCO3 & + RXRAT( 295 ) ! xHCHO+MACO3=HCHO+MACO3 & + RXRAT( 528 ) ! ETHENE+O3=HCHO+0.1600D+... & + 5.0000D-01 * RXRAT( 532 ) ! PROPENE+O3=0.5000D+00*HCHO+... & + 5.0000D-01 * RXRAT( 536 ) ! BUTADIENE13+O3=0.5000D+... & + 4.0000D-01 * RXRAT( 540 ) ! ISOPRENE+O3=0.4000D+... & + 7.5000D-01 * RXRAT( 545 ) ! ISOPOOH=0.7500D+00*HCHO+... & + 3.7500D-01 * RXRAT( 547 ) ! IEPOXOO+HO2=0.3750D+... & + 3.7500D-01 * RXRAT( 548 ) ! IEPOXOO+NO=0.3750D+00*HCHO+... & + 9.3800D-01 * RXRAT( 549 ) ! IEPOXOO+MEO2=0.9380D+... & + 1.8800D-01 * RXRAT( 550 ) ! IEPOXOO+RO2C=0.1880D+... & + 3.7500D-01 * RXRAT( 551 ) ! IEPOXOO+MECO3=0.3750D+... & + 5.0000D-01 * RXRAT( 572 ) ! OLE1+O3=0.5000D+00*HCHO+... & + 1.3100D-01 * RXRAT( 576 ) ! OLE2+O3=0.1310D+00*HCHO+... & + 1.2700D-01 * RXRAT( 583 ) ! TERP+O3=0.1270D+00*HCHO+... & + 1.2700D-01 * RXRAT( 587 ) ! SESQ+O3=0.1270D+00*HCHO+... & + RXRAT( 614 ) ! MEOH+CL=HCHO+HCL+HO2 LOSS( HCHO ) = RXRAT( 204 ) ! HCHO=0.2000D+01*HO2+CO & + RXRAT( 205 ) ! HCHO=CO & + RXRAT( 206 ) ! HCHO+OH=HO2+CO & + RXRAT( 207 ) ! HCHO+NO3=HNO3+HO2+CO & + RXRAT( 612 ) ! HCHO+CL=HCL+HO2+CO PROD( COOH ) = RXRAT( 47 ) ! MEO2+HO2=COOH LOSS( COOH ) = RXRAT( 222 ) ! COOH+OH=0.3000D+00*HCHO+... & + RXRAT( 223 ) ! COOH=HCHO+HO2+OH PROD( MEOH ) = RXRAT( 50 ) ! MEO2+MEO2=MEOH+HCHO & + 2.5000D-01 * RXRAT( 55 ) ! RO2C+MEO2=0.2500D+00*MEOH+... & + 2.5000D-01 * RXRAT( 60 ) ! RO2XC+MEO2=0.2500D+00*MEOH+... & + 2.5000D-01 * RXRAT( 549 ) ! IEPOXOO+MEO2=0.2500D+... LOSS( MEOH ) = RXRAT( 218 ) ! MEOH+OH=HCHO+HO2 & + RXRAT( 614 ) ! MEOH+CL=HCL+HCHO+HO2 PROD( RO2C ) = 4.0000D-01 * RXRAT( 75 ) ! PAN2=0.4000D+00*RO2C+... & + RXRAT( 76 ) ! RCO3+NO=RO2C+NO2+xHO2+... & + 4.4000D-01 * RXRAT( 77 ) ! RCO3+HO2=0.4400D+00*RO2C+... & + RXRAT( 78 ) ! RCO3+NO3=RO2C+NO2+xHO2+... & + RXRAT( 79 ) ! RCO3+MEO2=RO2C+HO2+HCHO+... & + RXRAT( 81 ) ! RCO3+RO2XC=RO2C+xHO2+xCCHO+... & + RXRAT( 82 ) ! RCO3+MECO3=RO2C+MEO2+... & + 2.0000D+00 * RXRAT( 83 ) ! RCO3+RCO3=0.2000D+01*RO2C+... & + 4.0000D-01 * RXRAT( 86 ) ! PBZN=0.4000D+00*RO2C+... & + RXRAT( 87 ) ! BZCO3+NO=RO2C+CO2+BZO+NO2 & + 4.4000D-01 * RXRAT( 88 ) ! BZCO3+HO2=0.4400D+00*RO2C+... & + RXRAT( 89 ) ! BZCO3+NO3=RO2C+CO2+BZO+NO2 & + RXRAT( 90 ) ! BZCO3+MEO2=RO2C+HO2+HCHO+... & + RXRAT( 92 ) ! BZCO3+RO2XC=RO2C+BZO+CO2 & + RXRAT( 93 ) ! BZCO3+MECO3=RO2C+MEO2+BZO+... & + 2.0000D+00 * RXRAT( 94 ) ! BZCO3+RCO3=0.2000D+01*RO2C+... & + 2.0000D+00 * RXRAT( 95 ) ! BZCO3+BZCO3=0.2000D+... & + RXRAT( 106 ) ! MACO3+RCO3=RO2C+MECO3+HCHO+... & + RXRAT( 107 ) ! MACO3+BZCO3=RO2C+MECO3+BZO+... & + RXRAT( 113 ) ! BZO=RO2C+CRES+xHO2 & + 3.5000D-02 * RXRAT( 211 ) ! RCHO+OH=0.3500D-01*RO2C+... & + RXRAT( 212 ) ! RCHO=RO2C+xHO2+yROOH+xCCHO+... & + RXRAT( 214 ) ! ACETONE+OH=RO2C+xMECO3+... & + 9.6700D-01 * RXRAT( 216 ) ! MEK+OH=0.9670D+00*RO2C+... & + RXRAT( 217 ) ! MEK=RO2C+MECO3+xHO2+xCCHO+... & + 4.9100D-01 * RXRAT( 220 ) ! CCOOH+OH=0.4910D+00*RO2C+... & + RXRAT( 221 ) ! RCOOH+OH=RO2C+xHO2+0.1430D+... & + 2.5100D-01 * RXRAT( 224 ) ! ROOH+OH=0.2510D+00*RO2C+... & + 2.2200D-01 * RXRAT( 226 ) ! R6OOH+OH=0.2220D+00*RO2C+... & + 7.8200D-01 * RXRAT( 227 ) ! R6OOH=0.7820D+00*RO2C+... & + 5.8900D-01 * RXRAT( 228 ) ! RAOOH+OH=0.5890D+00*RO2C+... & + 8.0000D-01 * RXRAT( 238 ) ! CRES+OH=0.8000D+00*RO2C+... & + 7.2300D-01 * RXRAT( 246 ) ! AFG1+OH=0.7230D+00*RO2C+... & + 6.5200D-01 * RXRAT( 247 ) ! AFG1+O3=0.6520D+00*RO2C+... & + 7.2300D-01 * RXRAT( 249 ) ! AFG2+OH=0.7230D+00*RO2C+... & + 6.5200D-01 * RXRAT( 250 ) ! AFG2+O3=0.6520D+00*RO2C+... & + 7.3300D-01 * RXRAT( 252 ) ! AFG3+OH=0.7330D+00*RO2C+... & + 2.5800D-01 * RXRAT( 253 ) ! AFG3+O3=0.2580D+00*RO2C+... & + 5.0000D-01 * RXRAT( 254 ) ! MACR+OH=0.5000D+00*RO2C+... & + 1.0000D-01 * RXRAT( 255 ) ! MACR+O3=0.1000D+00*RO2C+... & + 5.0000D-01 * RXRAT( 256 ) ! MACR+NO3=0.5000D+00*RO2C+... & + 3.3000D-01 * RXRAT( 258 ) ! MACR=0.3300D+00*RO2C+... & + 9.7500D-01 * RXRAT( 259 ) ! MVK+OH=0.9750D+00*RO2C+... & + 5.0000D-02 * RXRAT( 260 ) ! MVK+O3=0.5000D-01*RO2C+... & + 6.7000D-01 * RXRAT( 263 ) ! IPRD+OH=0.6700D+00*RO2C+... & + 4.8000D-02 * RXRAT( 264 ) ! IPRD+O3=0.4800D-01*RO2C+... & + 7.9900D-01 * RXRAT( 265 ) ! IPRD+NO3=0.7990D+00*RO2C+... & + 4.7300D-01 * RXRAT( 267 ) ! PRD2+OH=0.4730D+00*RO2C+... & + 1.5900D+00 * RXRAT( 268 ) ! PRD2=0.1590D+01*RO2C+... & + 9.7600D-01 * RXRAT( 269 ) ! RNO3+OH=0.9760D+00*RO2C+... & + 7.2100D-01 * RXRAT( 270 ) ! RNO3=0.7210D+00*RO2C+... & + 2.5000D-01 * RXRAT( 274 ) ! ACROLEIN+OH=0.2500D+... & + 3.1000D-02 * RXRAT( 276 ) ! ACROLEIN+NO3=0.3100D-... & + 2.0000D-02 * RXRAT( 279 ) ! CCOOOH+OH=0.2000D-01*RO2C+... & + 1.9400D-01 * RXRAT( 281 ) ! RCOOOH+OH=0.1940D+00*RO2C+... & + RXRAT( 527 ) ! ETHENE+OH=RO2C+xHO2+... & + RXRAT( 529 ) ! ETHENE+NO3=RO2C+xHO2+xRCHO+... & + 2.9000D-01 * RXRAT( 530 ) ! ETHENE+O3P=0.2900D+00*RO2C+... & + 9.8400D-01 * RXRAT( 531 ) ! PROPENE+OH=0.9840D+00*RO2C+... & + 9.4900D-01 * RXRAT( 533 ) ! PROPENE+NO3=0.9490D+... & + 1.1890D+00 * RXRAT( 535 ) ! BUTADIENE13+OH=0.1189D+... & + 1.0550D+00 * RXRAT( 537 ) ! BUTADIENE13+NO3=0.1055D+... & + 2.3500D-01 * RXRAT( 538 ) ! BUTADIENE13+O3P=0.2350D+... & + 9.8600D-01 * RXRAT( 539 ) ! ISOPRENE+OH=0.9860D+... & + 1.9200D-01 * RXRAT( 540 ) ! ISOPRENE+O3=0.1920D+... & + 9.3600D-01 * RXRAT( 541 ) ! ISOPRENE+NO3=0.9360D+... & + 2.4000D-01 * RXRAT( 542 ) ! ISOPRENE+O3P=0.2400D+... & + 3.5000D-01 * RXRAT( 544 ) ! ISOPOOH+OH=0.3500D+00*RO2C+... & + 9.0000D-02 * RXRAT( 545 ) ! ISOPOOH=0.9000D-01*RO2C+... & + 1.0420D+00 * RXRAT( 552 ) ! APIN+OH=0.1042D+01*RO2C+... & + 1.5110D+00 * RXRAT( 553 ) ! APIN+O3=0.1511D+01*RO2C+... & + 1.0500D+00 * RXRAT( 554 ) ! APIN+NO3=0.1050D+01*RO2C+... & + 2.9000D-01 * RXRAT( 558 ) ! BENZENE+OH=0.2900D+00*RO2C+... & + 4.5400D-01 * RXRAT( 559 ) ! TOLUENE+OH=0.4540D+00*RO2C+... & + 5.2000D-01 * RXRAT( 560 ) ! MXYL+OH=0.5200D+00*RO2C+... & + 5.5400D-01 * RXRAT( 561 ) ! OXYL+OH=0.5540D+00*RO2C+... & + 4.8700D-01 * RXRAT( 562 ) ! PXYL+OH=0.4870D+00*RO2C+... & + 6.2700D-01 * RXRAT( 563 ) ! TMBENZ124+OH=0.6270D+... & + 5.0000D-02 * RXRAT( 564 ) ! ETOH+OH=0.5000D-01*RO2C+... & + RXRAT( 565 ) ! ALK1+OH=RO2C+xHO2+xCCHO+yROOH & + 9.6500D-01 * RXRAT( 566 ) ! ALK2+OH=0.9650D+00*RO2C+... & + 1.2530D+00 * RXRAT( 567 ) ! ALK3+OH=0.1253D+01*RO2C+... & + 1.7630D+00 * RXRAT( 568 ) ! ALK4+OH=0.1763D+01*RO2C+... & + 1.6050D+00 * RXRAT( 569 ) ! ALK5+OH=0.1605D+01*RO2C+... & + 1.2020D+00 * RXRAT( 571 ) ! OLE1+OH=0.1202D+01*RO2C+... & + 9.0000D-02 * RXRAT( 572 ) ! OLE1+O3=0.9000D-01*RO2C+... & + 1.4630D+00 * RXRAT( 573 ) ! OLE1+NO3=0.1463D+01*RO2C+... & + 9.5300D-01 * RXRAT( 575 ) ! OLE2+OH=0.9530D+00*RO2C+... & + 2.1200D-01 * RXRAT( 576 ) ! OLE2+O3=0.2120D+00*RO2C+... & + 1.1930D+00 * RXRAT( 577 ) ! OLE2+NO3=0.1193D+01*RO2C+... & + 5.6600D-01 * RXRAT( 579 ) ! ARO1+OH=0.5660D+00*RO2C+... & + 6.1700D-01 * RXRAT( 580 ) ! ARO2MN+OH=0.6170D+00*RO2C+... & + 6.1700D-01 * RXRAT( 581 ) ! NAPHTHAL+OH=0.6170D+... & + 1.2110D+00 * RXRAT( 582 ) ! TERP+OH=0.1211D+01*RO2C+... & + 4.9000D-01 * RXRAT( 583 ) ! TERP+O3=0.4900D+00*RO2C+... & + 1.7860D+00 * RXRAT( 584 ) ! TERP+NO3=0.1786D+01*RO2C+... & + 1.2110D+00 * RXRAT( 586 ) ! SESQ+OH=0.1211D+01*RO2C+... & + 4.9000D-01 * RXRAT( 587 ) ! SESQ+O3=0.4900D+00*RO2C+... & + 1.7860D+00 * RXRAT( 588 ) ! SESQ+NO3=0.1786D+01*RO2C+... & + 1.0000D-01 * RXRAT( 615 ) ! RCHO+CL=0.1000D+00*RO2C+... & + RXRAT( 616 ) ! ACETONE+CL=RO2C+HCL+xHCHO+... & + 9.7500D-01 * RXRAT( 617 ) ! MEK+CL=0.9750D+00*RO2C+HCL+... & + 1.2820D+00 * RXRAT( 618 ) ! RNO3+CL=0.1282D+01*RO2C+... & + 6.8000D-01 * RXRAT( 619 ) ! PRD2+CL=0.6800D+00*RO2C+... & + 5.8800D-01 * RXRAT( 624 ) ! ROOH+CL=0.5880D+00*RO2C+... & + 1.0780D+00 * RXRAT( 625 ) ! R6OOH+CL=0.1078D+01*RO2C+... & + 5.8900D-01 * RXRAT( 626 ) ! RAOOH+CL=0.5890D+00*RO2C+... & + 1.0320D+00 * RXRAT( 627 ) ! ACROLEIN+CL=0.1032D+... & + 8.0200D-01 * RXRAT( 628 ) ! MACR+CL=0.8020D+00*RO2C+... & + 1.2830D+00 * RXRAT( 629 ) ! MVK+CL=0.1283D+01*RO2C+... & + 7.3000D-01 * RXRAT( 630 ) ! IPRD+CL=0.7300D+00*RO2C+... & + RXRAT( 631 ) ! CLCCHO=RO2C+CO+HO2+xCL+... & + RXRAT( 634 ) ! CLACET=RO2C+MECO3+xCL+... & + 2.0000D+00 * RXRAT( 666 ) ! ETHENE+CL=0.2000D+01*RO2C+... & + 9.7100D-01 * RXRAT( 667 ) ! PROPENE+CL=0.9710D+00*RO2C+... & + 1.8840D+00 * RXRAT( 668 ) ! BUTADIENE13+CL=0.1884D+... & + 1.1680D+00 * RXRAT( 669 ) ! ISOPRENE+CL=0.1168D+... & + 2.2580D+00 * RXRAT( 670 ) ! APIN+CL=0.2258D+01*RO2C+... & + 8.9400D-01 * RXRAT( 672 ) ! TOLUENE+CL=0.8940D+00*RO2C+... & + 8.6400D-01 * RXRAT( 673 ) ! MXYL+CL=0.8640D+00*RO2C+... & + 8.6400D-01 * RXRAT( 674 ) ! OXYL+CL=0.8640D+00*RO2C+... & + 8.6400D-01 * RXRAT( 675 ) ! PXYL+CL=0.8640D+00*RO2C+... & + 8.3800D-01 * RXRAT( 676 ) ! TMBENZ124+CL=0.8380D+... & + 3.1200D-01 * RXRAT( 677 ) ! ETOH+CL=0.3120D+00*RO2C+... & + RXRAT( 678 ) ! ALK1+CL=RO2C+xHO2+HCL+... & + 9.7000D-01 * RXRAT( 679 ) ! ALK2+CL=0.9700D+00*RO2C+... & + 1.3610D+00 * RXRAT( 680 ) ! ALK3+CL=0.1361D+01*RO2C+... & + 1.7370D+00 * RXRAT( 681 ) ! ALK4+CL=0.1737D+01*RO2C+... & + 1.5410D+00 * RXRAT( 682 ) ! ALK5+CL=0.1541D+01*RO2C+... & + 1.6080D+00 * RXRAT( 683 ) ! OLE1+CL=0.1608D+01*RO2C+... & + 1.4920D+00 * RXRAT( 684 ) ! OLE2+CL=0.1492D+01*RO2C+... & + 8.4000D-01 * RXRAT( 685 ) ! ARO1+CL=0.8400D+00*RO2C+... & + 8.2800D-01 * RXRAT( 686 ) ! ARO2MN+CL=0.8280D+00*RO2C+... & + 8.2800D-01 * RXRAT( 687 ) ! NAPHTHAL+CL=0.8280D+... & + 2.2580D+00 * RXRAT( 688 ) ! TERP+CL=0.2258D+01*RO2C+... & + 2.2580D+00 * RXRAT( 689 ) ! SESQ+CL=0.2258D+01*RO2C+... LOSS( RO2C ) = RXRAT( 52 ) ! RO2C+NO=NO2 & + RXRAT( 53 ) ! RO2C+HO2= & + RXRAT( 54 ) ! RO2C+NO3=NO2 & + RXRAT( 55 ) ! RO2C+MEO2=0.5000D+00*HO2+... & + 2.0000D+00 * RXRAT( 56 ) ! RO2C+RO2C= & + RXRAT( 61 ) ! RO2C+RO2XC= & + RXRAT( 70 ) ! RO2C+MECO3=MEO2+CO2 & + RXRAT( 103 ) ! RO2C+MACO3=CO2+HCHO+MECO3 & + RXRAT( 550 ) ! RO2C+IEPOXOO=0.3630D+... PROD( RO2XC ) = 3.9000D-02 * RXRAT( 216 ) ! MEK+OH=0.3900D-01*RO2XC+... & + 4.0000D-03 * RXRAT( 224 ) ! ROOH+OH=0.4000D-02*RO2XC+... & + 2.9000D-02 * RXRAT( 226 ) ! R6OOH+OH=0.2900D-01*RO2XC+... & + 7.7000D-02 * RXRAT( 227 ) ! R6OOH=0.7700D-01*RO2XC+... & + 1.2400D-01 * RXRAT( 228 ) ! RAOOH+OH=0.1240D+00*RO2XC+... & + 6.0000D-02 * RXRAT( 246 ) ! AFG1+OH=0.6000D-01*RO2XC+... & + 6.0000D-02 * RXRAT( 249 ) ! AFG2+OH=0.6000D-01*RO2XC+... & + 1.1700D-01 * RXRAT( 252 ) ! AFG3+OH=0.1170D+00*RO2XC+... & + 7.0000D-03 * RXRAT( 253 ) ! AFG3+O3=0.7000D-02*RO2XC+... & + 2.5000D-02 * RXRAT( 259 ) ! MVK+OH=0.2500D-01*RO2XC+... & + 4.1000D-02 * RXRAT( 263 ) ! IPRD+OH=0.4100D-01*RO2XC+... & + 5.1000D-02 * RXRAT( 265 ) ! IPRD+NO3=0.5100D-01*RO2XC+... & + 7.1000D-02 * RXRAT( 267 ) ! PRD2+OH=0.7100D-01*RO2XC+... & + 8.7000D-02 * RXRAT( 268 ) ! PRD2=0.8700D-01*RO2XC+... & + 1.7500D-01 * RXRAT( 269 ) ! RNO3+OH=0.1750D+00*RO2XC+... & + 1.0200D-01 * RXRAT( 270 ) ! RNO3=0.1020D+00*RO2XC+... & + 2.0000D-03 * RXRAT( 276 ) ! ACROLEIN+NO3=0.2000D-... & + 1.6000D-02 * RXRAT( 531 ) ! PROPENE+OH=0.1600D-... & + 5.1000D-02 * RXRAT( 533 ) ! PROPENE+NO3=0.5100D-... & + 4.9000D-02 * RXRAT( 535 ) ! BUTADIENE13+OH=0.4900D-... & + 6.5000D-02 * RXRAT( 537 ) ! BUTADIENE13+NO3=0.6500D-... & + 1.5000D-02 * RXRAT( 538 ) ! BUTADIENE13+O3P=0.1500D-... & + 9.3000D-02 * RXRAT( 539 ) ! ISOPRENE+OH=0.9300D-... & + 8.0000D-03 * RXRAT( 540 ) ! ISOPRENE+O3=0.8000D-... & + 6.4000D-02 * RXRAT( 541 ) ! ISOPRENE+NO3=0.6400D-... & + 1.0000D-02 * RXRAT( 542 ) ! ISOPRENE+O3P=0.1000D-... & + 1.9700D-01 * RXRAT( 552 ) ! APIN+OH=0.1970D+00*RO2XC+... & + 3.3700D-01 * RXRAT( 553 ) ! APIN+O3=0.3370D+00*RO2XC+... & + 2.9300D-01 * RXRAT( 554 ) ! APIN+NO3=0.2930D+00*RO2XC+... & + 2.4000D-02 * RXRAT( 558 ) ! BENZENE+OH=0.2400D-... & + 5.4000D-02 * RXRAT( 559 ) ! TOLUENE+OH=0.5400D-... & + 8.2000D-02 * RXRAT( 560 ) ! MXYL+OH=0.8200D-01*RO2XC+... & + 8.7000D-02 * RXRAT( 561 ) ! OXYL+OH=0.8700D-01*RO2XC+... & + 7.6000D-02 * RXRAT( 562 ) ! PXYL+OH=0.7600D-01*RO2XC+... & + 1.2100D-01 * RXRAT( 563 ) ! TMBENZ124+OH=0.1210D+... & + 3.5000D-02 * RXRAT( 566 ) ! ALK2+OH=0.3500D-01*RO2XC+... & + 7.0000D-02 * RXRAT( 567 ) ! ALK3+OH=0.7000D-01*RO2XC+... & + 1.4900D-01 * RXRAT( 568 ) ! ALK4+OH=0.1490D+00*RO2XC+... & + 3.5300D-01 * RXRAT( 569 ) ! ALK5+OH=0.3530D+00*RO2XC+... & + 1.2800D-01 * RXRAT( 571 ) ! OLE1+OH=0.1280D+00*RO2XC+... & + 5.0000D-03 * RXRAT( 572 ) ! OLE1+O3=0.5000D-02*RO2XC+... & + 2.2800D-01 * RXRAT( 573 ) ! OLE1+NO3=0.2280D+00*RO2XC+... & + 8.8000D-02 * RXRAT( 575 ) ! OLE2+OH=0.8800D-01*RO2XC+... & + 3.0000D-03 * RXRAT( 576 ) ! OLE2+O3=0.3000D-02*RO2XC+... & + 1.4000D-01 * RXRAT( 577 ) ! OLE2+NO3=0.1400D+00*RO2XC+... & + 1.1000D-01 * RXRAT( 579 ) ! ARO1+OH=0.1100D+00*RO2XC+... & + 1.2800D-01 * RXRAT( 580 ) ! ARO2MN+OH=0.1280D+00*RO2XC+... & + 1.2800D-01 * RXRAT( 581 ) ! NAPHTHAL+OH=0.1280D+... & + 2.0100D-01 * RXRAT( 582 ) ! TERP+OH=0.2010D+00*RO2XC+... & + 1.2100D-01 * RXRAT( 583 ) ! TERP+O3=0.1210D+00*RO2XC+... & + 4.6000D-01 * RXRAT( 584 ) ! TERP+NO3=0.4600D+00*RO2XC+... & + 2.0100D-01 * RXRAT( 586 ) ! SESQ+OH=0.2010D+00*RO2XC+... & + 1.2100D-01 * RXRAT( 587 ) ! SESQ+O3=0.1210D+00*RO2XC+... & + 4.6000D-01 * RXRAT( 588 ) ! SESQ+NO3=0.4600D+00*RO2XC+... & + 3.9000D-02 * RXRAT( 617 ) ! MEK+CL=0.3900D-01*RO2XC+... & + 2.0200D-01 * RXRAT( 618 ) ! RNO3+CL=0.2020D+00*RO2XC+... & + 1.1600D-01 * RXRAT( 619 ) ! PRD2+CL=0.1160D+00*RO2XC+... & + 1.1700D-01 * RXRAT( 625 ) ! R6OOH+CL=0.1170D+00*RO2XC+... & + 1.2400D-01 * RXRAT( 626 ) ! RAOOH+CL=0.1240D+00*RO2XC+... & + 2.6000D-02 * RXRAT( 627 ) ! ACROLEIN+CL=0.2600D-... & + 3.3000D-02 * RXRAT( 628 ) ! MACR+CL=0.3300D-01*RO2XC+... & + 5.3000D-02 * RXRAT( 629 ) ! MVK+CL=0.5300D-01*RO2XC+... & + 5.1000D-02 * RXRAT( 630 ) ! IPRD+CL=0.5100D-01*RO2XC+... & + 2.9000D-02 * RXRAT( 667 ) ! PROPENE+CL=0.2900D-... & + 6.9000D-02 * RXRAT( 668 ) ! BUTADIENE13+CL=0.6900D-... & + 8.5000D-02 * RXRAT( 669 ) ! ISOPRENE+CL=0.8500D-... & + 5.8200D-01 * RXRAT( 670 ) ! APIN+CL=0.5820D+00*RO2XC+... & + 1.0600D-01 * RXRAT( 672 ) ! TOLUENE+CL=0.1060D+... & + 1.3600D-01 * RXRAT( 673 ) ! MXYL+CL=0.1360D+00*RO2XC+... & + 1.3600D-01 * RXRAT( 674 ) ! OXYL+CL=0.1360D+00*RO2XC+... & + 1.3600D-01 * RXRAT( 675 ) ! PXYL+CL=0.1360D+00*RO2XC+... & + 1.6200D-01 * RXRAT( 676 ) ! TMBENZ124+CL=0.1620D+... & + 3.0000D-02 * RXRAT( 679 ) ! ALK2+CL=0.3000D-01*RO2XC+... & + 7.0000D-02 * RXRAT( 680 ) ! ALK3+CL=0.7000D-01*RO2XC+... & + 1.6500D-01 * RXRAT( 681 ) ! ALK4+CL=0.1650D+00*RO2XC+... & + 3.5200D-01 * RXRAT( 682 ) ! ALK5+CL=0.3520D+00*RO2XC+... & + 1.2700D-01 * RXRAT( 683 ) ! OLE1+CL=0.1270D+00*RO2XC+... & + 1.0600D-01 * RXRAT( 684 ) ! OLE2+CL=0.1060D+00*RO2XC+... & + 1.6000D-01 * RXRAT( 685 ) ! ARO1+CL=0.1600D+00*RO2XC+... & + 1.7200D-01 * RXRAT( 686 ) ! ARO2MN+CL=0.1720D+00*RO2XC+... & + 1.7200D-01 * RXRAT( 687 ) ! NAPHTHAL+CL=0.1720D+... & + 5.8200D-01 * RXRAT( 688 ) ! TERP+CL=0.5820D+00*RO2XC+... & + 5.8200D-01 * RXRAT( 689 ) ! SESQ+CL=0.5820D+00*RO2XC+... LOSS( RO2XC ) = RXRAT( 57 ) ! RO2XC+NO= & + RXRAT( 58 ) ! RO2XC+HO2= & + RXRAT( 59 ) ! RO2XC+NO3=NO2 & + RXRAT( 60 ) ! RO2XC+MEO2=0.5000D+00*HO2+... & + RXRAT( 61 ) ! RO2XC+RO2C= & + 2.0000D+00 * RXRAT( 62 ) ! RO2XC+RO2XC= & + RXRAT( 71 ) ! RO2XC+MECO3=MEO2+CO2 & + RXRAT( 81 ) ! RO2XC+RCO3=RO2C+xHO2+xCCHO+... & + RXRAT( 92 ) ! RO2XC+BZCO3=RO2C+BZO+CO2 & + RXRAT( 104 ) ! RO2XC+MACO3=CO2+HCHO+MECO3 PROD( CCOOOH ) = 1.0500D-01 * RXRAT( 67 ) ! MECO3+HO2=0.1050D+... LOSS( CCOOOH ) = RXRAT( 279 ) ! CCOOOH+OH=0.9800D+00*MECO3+... & + RXRAT( 280 ) ! CCOOOH=MEO2+CO2+OH PROD( CCOOH ) = 4.5000D-02 * RXRAT( 67 ) ! MECO3+HO2=0.4500D-01*CCOOH+... & + 1.0000D-01 * RXRAT( 69 ) ! MECO3+MEO2=0.1000D+... & + 5.0000D-02 * RXRAT( 278 ) ! ACROLEIN=0.5000D-01*CCOOH+... & + 7.5000D-02 * RXRAT( 532 ) ! PROPENE+O3=0.7500D-... & + 6.5000D-02 * RXRAT( 576 ) ! OLE2+O3=0.6500D-01*CCOOH+... LOSS( CCOOH ) = RXRAT( 220 ) ! CCOOH+OH=0.5090D+00*MEO2+... PROD( RCO3 ) = RXRAT( 74 ) ! PAN2=RCO3+NO2 & + 6.0000D-01 * RXRAT( 75 ) ! PAN2=0.6000D+00*RCO3+... & + RXRAT( 164 ) ! xRCO3+NO=RCO3+NO & + RXRAT( 166 ) ! xRCO3+NO3=RCO3+NO3 & + 5.0000D-01 * RXRAT( 167 ) ! xRCO3+MEO2=0.5000D+00*RCO3+... & + 5.0000D-01 * RXRAT( 168 ) ! xRCO3+RO2C=0.5000D+00*RCO3+... & + 5.0000D-01 * RXRAT( 169 ) ! xRCO3+RO2XC=0.5000D+... & + RXRAT( 170 ) ! xRCO3+MECO3=RCO3+MECO3 & + RXRAT( 171 ) ! xRCO3+RCO3=0.2000D+01*RCO3 & + RXRAT( 172 ) ! xRCO3+BZCO3=RCO3+BZCO3 & + RXRAT( 173 ) ! xRCO3+MACO3=RCO3+MACO3 & + 9.6500D-01 * RXRAT( 211 ) ! RCHO+OH=0.9650D+00*RCO3+... & + RXRAT( 213 ) ! RCHO+NO3=RCO3+HNO3 & + 3.0000D-01 * RXRAT( 266 ) ! IPRD=0.3000D+00*RCO3+... & + 6.0000D-01 * RXRAT( 268 ) ! PRD2=0.6000D+00*RCO3+... & + 8.0600D-01 * RXRAT( 281 ) ! RCOOOH+OH=0.8060D+00*RCO3+... & + 9.0000D-01 * RXRAT( 615 ) ! RCHO+CL=0.9000D+00*RCO3+... & + 3.7000D-01 * RXRAT( 620 ) ! GLY+CL=0.3700D+00*RCO3+... & + RXRAT( 632 ) ! CLCCHO+OH=RCO3 & + RXRAT( 633 ) ! CLCCHO+CL=RCO3+HCL LOSS( RCO3 ) = RXRAT( 73 ) ! RCO3+NO2=PAN2 & + RXRAT( 76 ) ! RCO3+NO=NO2+RO2C+xHO2+... & + RXRAT( 77 ) ! RCO3+HO2=0.3075D+00*RCOOOH+... & + RXRAT( 78 ) ! RCO3+NO3=NO2+RO2C+xHO2+... & + RXRAT( 79 ) ! RCO3+MEO2=HCHO+HO2+RO2C+... & + RXRAT( 80 ) ! RCO3+RO2C=RO2C+xHO2+xCCHO+... & + RXRAT( 81 ) ! RCO3+RO2XC=RO2C+xHO2+xCCHO+... & + RXRAT( 82 ) ! RCO3+MECO3=0.2000D+01*CO2+... & + 2.0000D+00 * RXRAT( 83 ) ! RCO3+RCO3=0.2000D+01*RO2C+... & + RXRAT( 94 ) ! RCO3+BZCO3=0.2000D+01*CO2+... & + RXRAT( 106 ) ! RCO3+MACO3=HCHO+MECO3+RO2C+... PROD( PAN2 ) = RXRAT( 73 ) ! RCO3+NO2=PAN2 LOSS( PAN2 ) = RXRAT( 74 ) ! PAN2=RCO3+NO2 & + RXRAT( 75 ) ! PAN2=0.6000D+00*RCO3+... PROD( xHO2 ) = 4.0000D-01 * RXRAT( 75 ) ! PAN2=0.4000D+00*xHO2+... & + RXRAT( 76 ) ! RCO3+NO=xHO2+RO2C+NO2+... & + 4.4000D-01 * RXRAT( 77 ) ! RCO3+HO2=0.4400D+00*xHO2+... & + RXRAT( 78 ) ! RCO3+NO3=xHO2+RO2C+NO2+... & + RXRAT( 79 ) ! RCO3+MEO2=xHO2+HO2+RO2C+... & + RXRAT( 80 ) ! RCO3+RO2C=xHO2+RO2C+xCCHO+... & + RXRAT( 81 ) ! RCO3+RO2XC=xHO2+RO2C+xCCHO+... & + RXRAT( 82 ) ! RCO3+MECO3=xHO2+MEO2+RO2C+... & + 2.0000D+00 * RXRAT( 83 ) ! RCO3+RCO3=0.2000D+01*xHO2+... & + RXRAT( 94 ) ! BZCO3+RCO3=xHO2+0.2000D+... & + RXRAT( 106 ) ! MACO3+RCO3=xHO2+MECO3+RO2C+... & + RXRAT( 113 ) ! BZO=xHO2+RO2C+CRES & + 3.5000D-02 * RXRAT( 211 ) ! RCHO+OH=0.3500D-01*xHO2+... & + RXRAT( 212 ) ! RCHO=xHO2+RO2C+yROOH+xCCHO+... & + 3.7600D-01 * RXRAT( 216 ) ! MEK+OH=0.3760D+00*xHO2+... & + RXRAT( 217 ) ! MEK=xHO2+RO2C+MECO3+xCCHO+... & + 4.9100D-01 * RXRAT( 220 ) ! CCOOH+OH=0.4910D+00*xHO2+... & + RXRAT( 221 ) ! RCOOH+OH=xHO2+RO2C+0.1430D+... & + 2.3900D-01 * RXRAT( 224 ) ! ROOH+OH=0.2390D+00*xHO2+... & + 9.0000D-02 * RXRAT( 226 ) ! R6OOH+OH=0.9000D-01*xHO2+... & + 7.8200D-01 * RXRAT( 227 ) ! R6OOH=0.7820D+00*xHO2+... & + 5.6500D-01 * RXRAT( 228 ) ! RAOOH+OH=0.5650D+00*xHO2+... & + 8.0000D-01 * RXRAT( 238 ) ! CRES+OH=0.8000D+00*xHO2+... & + 5.2100D-01 * RXRAT( 246 ) ! AFG1+OH=0.5210D+00*xHO2+... & + 5.2100D-01 * RXRAT( 249 ) ! AFG2+OH=0.5210D+00*xHO2+... & + 5.6100D-01 * RXRAT( 252 ) ! AFG3+OH=0.5610D+00*xHO2+... & + 9.5000D-02 * RXRAT( 253 ) ! AFG3+O3=0.9500D-01*xHO2+... & + 5.0000D-01 * RXRAT( 254 ) ! MACR+OH=0.5000D+00*xHO2+... & + 5.0000D-01 * RXRAT( 256 ) ! MACR+NO3=0.5000D+00*xHO2+... & + 3.0000D-01 * RXRAT( 259 ) ! MVK+OH=0.3000D+00*xHO2+... & + 5.0000D-02 * RXRAT( 260 ) ! MVK+O3=0.5000D-01*xHO2+... & + 6.7000D-01 * RXRAT( 263 ) ! IPRD+OH=0.6700D+00*xHO2+... & + 7.9900D-01 * RXRAT( 265 ) ! IPRD+NO3=0.7990D+00*xHO2+... & + 3.7900D-01 * RXRAT( 267 ) ! PRD2+OH=0.3790D+00*xHO2+... & + 9.1300D-01 * RXRAT( 268 ) ! PRD2=0.9130D+00*xHO2+... & + 3.0500D-01 * RXRAT( 269 ) ! RNO3+OH=0.3050D+00*xHO2+... & + 5.5400D-01 * RXRAT( 270 ) ! RNO3=0.5540D+00*xHO2+... & + 2.5000D-01 * RXRAT( 274 ) ! ACROLEIN+OH=0.2500D+... & + 3.1000D-02 * RXRAT( 276 ) ! ACROLEIN+NO3=0.3100D-... & + 8.4000D-02 * RXRAT( 281 ) ! RCOOOH+OH=0.8400D-01*xHO2+... & + RXRAT( 282 ) ! RCOOOH=xHO2+xCCHO+yROOH+CO2+OH & + RXRAT( 527 ) ! ETHENE+OH=xHO2+RO2C+... & + RXRAT( 529 ) ! ETHENE+NO3=xHO2+RO2C+xRCHO+... & + 2.9000D-01 * RXRAT( 530 ) ! ETHENE+O3P=0.2900D+00*xHO2+... & + 9.8400D-01 * RXRAT( 531 ) ! PROPENE+OH=0.9840D+00*xHO2+... & + 9.4900D-01 * RXRAT( 533 ) ! PROPENE+NO3=0.9490D+... & + 9.5100D-01 * RXRAT( 535 ) ! BUTADIENE13+OH=0.9510D+... & + 8.1500D-01 * RXRAT( 537 ) ! BUTADIENE13+NO3=0.8150D+... & + 1.1700D-01 * RXRAT( 538 ) ! BUTADIENE13+O3P=0.1170D+... & + 9.0700D-01 * RXRAT( 539 ) ! ISOPRENE+OH=0.9070D+... & + 7.4900D-01 * RXRAT( 541 ) ! ISOPRENE+NO3=0.7490D+... & + 3.1000D-01 * RXRAT( 544 ) ! ISOPOOH+OH=0.3100D+00*xHO2+... & + 7.9900D-01 * RXRAT( 552 ) ! APIN+OH=0.7990D+00*xHO2+... & + 1.0200D-01 * RXRAT( 553 ) ! APIN+O3=0.1020D+00*xHO2+... & + 5.6000D-02 * RXRAT( 554 ) ! APIN+NO3=0.5600D-01*xHO2+... & + 2.9000D-01 * RXRAT( 558 ) ! BENZENE+OH=0.2900D+00*xHO2+... & + 4.5400D-01 * RXRAT( 559 ) ! TOLUENE+OH=0.4540D+00*xHO2+... & + 5.2000D-01 * RXRAT( 560 ) ! MXYL+OH=0.5200D+00*xHO2+... & + 5.5400D-01 * RXRAT( 561 ) ! OXYL+OH=0.5540D+00*xHO2+... & + 4.8700D-01 * RXRAT( 562 ) ! PXYL+OH=0.4870D+00*xHO2+... & + 6.2700D-01 * RXRAT( 563 ) ! TMBENZ124+OH=0.6270D+... & + 5.0000D-02 * RXRAT( 564 ) ! ETOH+OH=0.5000D-01*xHO2+... & + RXRAT( 565 ) ! ALK1+OH=xHO2+RO2C+xCCHO+yROOH & + 9.6500D-01 * RXRAT( 566 ) ! ALK2+OH=0.9650D+00*xHO2+... & + 6.9500D-01 * RXRAT( 567 ) ! ALK3+OH=0.6950D+00*xHO2+... & + 8.3000D-01 * RXRAT( 568 ) ! ALK4+OH=0.8300D+00*xHO2+... & + 6.4700D-01 * RXRAT( 569 ) ! ALK5+OH=0.6470D+00*xHO2+... & + 8.7100D-01 * RXRAT( 571 ) ! OLE1+OH=0.8710D+00*xHO2+... & + 5.7000D-02 * RXRAT( 572 ) ! OLE1+O3=0.5700D-01*xHO2+... & + 7.7200D-01 * RXRAT( 573 ) ! OLE1+NO3=0.7720D+00*xHO2+... & + 9.1200D-01 * RXRAT( 575 ) ! OLE2+OH=0.9120D+00*xHO2+... & + 4.1000D-02 * RXRAT( 576 ) ! OLE2+O3=0.4100D-01*xHO2+... & + 4.0000D-01 * RXRAT( 577 ) ! OLE2+NO3=0.4000D+00*xHO2+... & + 5.6600D-01 * RXRAT( 579 ) ! ARO1+OH=0.5660D+00*xHO2+... & + 6.1700D-01 * RXRAT( 580 ) ! ARO2MN+OH=0.6170D+00*xHO2+... & + 6.1700D-01 * RXRAT( 581 ) ! NAPHTHAL+OH=0.6170D+... & + 7.3400D-01 * RXRAT( 582 ) ! TERP+OH=0.7340D+00*xHO2+... & + 4.6000D-02 * RXRAT( 583 ) ! TERP+O3=0.4600D-01*xHO2+... & + 2.2700D-01 * RXRAT( 584 ) ! TERP+NO3=0.2270D+00*xHO2+... & + 7.3400D-01 * RXRAT( 586 ) ! SESQ+OH=0.7340D+00*xHO2+... & + 4.6000D-02 * RXRAT( 587 ) ! SESQ+O3=0.4600D-01*xHO2+... & + 2.2700D-01 * RXRAT( 588 ) ! SESQ+NO3=0.2270D+00*xHO2+... & + 1.0000D-01 * RXRAT( 615 ) ! RCHO+CL=0.1000D+00*xHO2+... & + 8.4000D-01 * RXRAT( 617 ) ! MEK+CL=0.8400D+00*xHO2+... & + 5.4700D-01 * RXRAT( 618 ) ! RNO3+CL=0.5470D+00*xHO2+... & + 5.4100D-01 * RXRAT( 619 ) ! PRD2+CL=0.5410D+00*xHO2+... & + RXRAT( 622 ) ! CRES+CL=xHO2+HCL+xBALD+yR6OOH & + 4.8200D-01 * RXRAT( 624 ) ! ROOH+CL=0.4820D+00*xHO2+... & + 2.3700D-01 * RXRAT( 625 ) ! R6OOH+CL=0.2370D+00*xHO2+... & + 5.6500D-01 * RXRAT( 626 ) ! RAOOH+CL=0.5650D+00*xHO2+... & + 4.8400D-01 * RXRAT( 627 ) ! ACROLEIN+CL=0.4840D+... & + 8.0200D-01 * RXRAT( 628 ) ! MACR+CL=0.8020D+00*xHO2+... & + 3.2200D-01 * RXRAT( 629 ) ! MVK+CL=0.3220D+00*xHO2+... & + 7.1200D-01 * RXRAT( 630 ) ! IPRD+CL=0.7120D+00*xHO2+... & + RXRAT( 666 ) ! ETHENE+CL=xHO2+0.2000D+... & + 9.7100D-01 * RXRAT( 667 ) ! PROPENE+CL=0.9710D+00*xHO2+... & + 3.9000D-01 * RXRAT( 668 ) ! BUTADIENE13+CL=0.3900D+... & + 7.3800D-01 * RXRAT( 669 ) ! ISOPRENE+CL=0.7380D+... & + 2.5200D-01 * RXRAT( 670 ) ! APIN+CL=0.2520D+00*xHO2+... & + 8.9400D-01 * RXRAT( 672 ) ! TOLUENE+CL=0.8940D+00*xHO2+... & + 8.6400D-01 * RXRAT( 673 ) ! MXYL+CL=0.8640D+00*xHO2+... & + 8.6400D-01 * RXRAT( 674 ) ! OXYL+CL=0.8640D+00*xHO2+... & + 8.6400D-01 * RXRAT( 675 ) ! PXYL+CL=0.8640D+00*xHO2+... & + 8.3800D-01 * RXRAT( 676 ) ! TMBENZ124+CL=0.8380D+... & + 3.1200D-01 * RXRAT( 677 ) ! ETOH+CL=0.3120D+00*xHO2+... & + RXRAT( 678 ) ! ALK1+CL=xHO2+HCL+RO2C+... & + 9.7000D-01 * RXRAT( 679 ) ! ALK2+CL=0.9700D+00*xHO2+... & + 8.3500D-01 * RXRAT( 680 ) ! ALK3+CL=0.8350D+00*xHO2+... & + 8.2700D-01 * RXRAT( 681 ) ! ALK4+CL=0.8270D+00*xHO2+... & + 6.4700D-01 * RXRAT( 682 ) ! ALK5+CL=0.6470D+00*xHO2+... & + 8.7300D-01 * RXRAT( 683 ) ! OLE1+CL=0.8730D+00*xHO2+... & + 4.5000D-01 * RXRAT( 684 ) ! OLE2+CL=0.4500D+00*xHO2+... & + 8.4000D-01 * RXRAT( 685 ) ! ARO1+CL=0.8400D+00*xHO2+... & + 8.2800D-01 * RXRAT( 686 ) ! ARO2MN+CL=0.8280D+00*xHO2+... & + 8.2800D-01 * RXRAT( 687 ) ! NAPHTHAL+CL=0.8280D+... & + 2.5200D-01 * RXRAT( 688 ) ! TERP+CL=0.2520D+00*xHO2+... & + 2.5200D-01 * RXRAT( 689 ) ! SESQ+CL=0.2520D+00*xHO2+... LOSS( xHO2 ) = RXRAT( 114 ) ! xHO2+NO=NO+HO2 & + RXRAT( 115 ) ! xHO2+HO2=HO2 & + RXRAT( 116 ) ! xHO2+NO3=NO3+HO2 & + RXRAT( 117 ) ! xHO2+MEO2=MEO2+0.5000D+00*HO2 & + RXRAT( 118 ) ! xHO2+RO2C=RO2C+0.5000D+00*HO2 & + RXRAT( 119 ) ! xHO2+RO2XC=RO2XC+0.5000D+... & + RXRAT( 120 ) ! xHO2+MECO3=MECO3+HO2 & + RXRAT( 121 ) ! xHO2+RCO3=RCO3+HO2 & + RXRAT( 122 ) ! xHO2+BZCO3=BZCO3+HO2 & + RXRAT( 123 ) ! xHO2+MACO3=MACO3+HO2 PROD( yROOH ) = 4.0000D-01 * RXRAT( 75 ) ! PAN2=0.4000D+00*yROOH+... & + RXRAT( 76 ) ! RCO3+NO=yROOH+RO2C+xHO2+... & + 4.4000D-01 * RXRAT( 77 ) ! RCO3+HO2=0.4400D+00*yROOH+... & + RXRAT( 78 ) ! RCO3+NO3=yROOH+RO2C+xHO2+... & + RXRAT( 79 ) ! RCO3+MEO2=yROOH+HO2+RO2C+... & + RXRAT( 80 ) ! RCO3+RO2C=yROOH+xHO2+xCCHO+... & + RXRAT( 81 ) ! RCO3+RO2XC=yROOH+xHO2+... & + RXRAT( 82 ) ! RCO3+MECO3=yROOH+MEO2+RO2C+... & + 2.0000D+00 * RXRAT( 83 ) ! RCO3+RCO3=0.2000D+01*yROOH+... & + RXRAT( 94 ) ! BZCO3+RCO3=yROOH+0.2000D+... & + RXRAT( 106 ) ! MACO3+RCO3=yROOH+MECO3+... & + 3.5000D-02 * RXRAT( 211 ) ! RCHO+OH=0.3500D-01*yROOH+... & + RXRAT( 212 ) ! RCHO=yROOH+xHO2+RO2C+xCCHO+... & + RXRAT( 214 ) ! ACETONE+OH=yROOH+xMECO3+... & + RXRAT( 216 ) ! MEK+OH=yROOH+0.3900D-... & + RXRAT( 217 ) ! MEK=yROOH+RO2C+xHO2+xCCHO+... & + 4.9100D-01 * RXRAT( 220 ) ! CCOOH+OH=0.4910D+00*yROOH+... & + RXRAT( 221 ) ! RCOOH+OH=yROOH+xHO2+... & + 2.5600D-01 * RXRAT( 224 ) ! ROOH+OH=0.2560D+00*yROOH+... & + 1.6000D-01 * RXRAT( 226 ) ! R6OOH+OH=0.1600D+00*yROOH+... & + 5.0000D-01 * RXRAT( 254 ) ! MACR+OH=0.5000D+00*yROOH+... & + 1.0000D-01 * RXRAT( 255 ) ! MACR+O3=0.1000D+00*yROOH+... & + 5.0000D-01 * RXRAT( 256 ) ! MACR+NO3=0.5000D+00*yROOH+... & + 3.3000D-01 * RXRAT( 258 ) ! MACR=0.3300D+00*yROOH+... & + RXRAT( 259 ) ! MVK+OH=yROOH+0.2500D-... & + 5.0000D-02 * RXRAT( 260 ) ! MVK+O3=0.5000D-01*yROOH+... & + 1.5700D-01 * RXRAT( 269 ) ! RNO3+OH=0.1570D+00*yROOH+... & + 6.6000D-02 * RXRAT( 270 ) ! RNO3=0.6600D-01*yROOH+... & + 2.5000D-01 * RXRAT( 274 ) ! ACROLEIN+OH=0.2500D+... & + 3.3000D-02 * RXRAT( 276 ) ! ACROLEIN+NO3=0.3300D-... & + 2.0000D-02 * RXRAT( 279 ) ! CCOOOH+OH=0.2000D-01*yROOH+... & + 1.9400D-01 * RXRAT( 281 ) ! RCOOOH+OH=0.1940D+00*yROOH+... & + RXRAT( 282 ) ! RCOOOH=yROOH+xCCHO+xHO2+CO2+OH & + RXRAT( 527 ) ! ETHENE+OH=yROOH+RO2C+... & + RXRAT( 529 ) ! ETHENE+NO3=yROOH+RO2C+... & + 2.9000D-01 * RXRAT( 530 ) ! ETHENE+O3P=0.2900D+... & + RXRAT( 531 ) ! PROPENE+OH=yROOH+0.9840D+... & + RXRAT( 533 ) ! PROPENE+NO3=yROOH+0.9490D+... & + RXRAT( 535 ) ! BUTADIENE13+OH=yROOH+... & + RXRAT( 537 ) ! BUTADIENE13+NO3=yROOH+... & + 2.5000D-01 * RXRAT( 538 ) ! BUTADIENE13+O3P=0.2500D+... & + 5.0000D-02 * RXRAT( 564 ) ! ETOH+OH=0.5000D-01*yROOH+... & + RXRAT( 565 ) ! ALK1+OH=yROOH+RO2C+xCCHO+xHO2 & + RXRAT( 566 ) ! ALK2+OH=yROOH+0.9650D+... & + 9.8300D-01 * RXRAT( 567 ) ! ALK3+OH=0.9830D+00*yROOH+... & + 1.6900D-01 * RXRAT( 571 ) ! OLE1+OH=0.1690D+00*yROOH+... & + 1.1000D-02 * RXRAT( 572 ) ! OLE1+O3=0.1100D-01*yROOH+... & + 1.6900D-01 * RXRAT( 573 ) ! OLE1+NO3=0.1690D+00*yROOH+... & + 3.1900D-01 * RXRAT( 575 ) ! OLE2+OH=0.3190D+00*yROOH+... & + 7.3000D-02 * RXRAT( 576 ) ! OLE2+O3=0.7300D-01*yROOH+... & + 3.1900D-01 * RXRAT( 577 ) ! OLE2+NO3=0.3190D+00*yROOH+... & + 1.0000D-01 * RXRAT( 615 ) ! RCHO+CL=0.1000D+00*yROOH+... & + RXRAT( 616 ) ! ACETONE+CL=yROOH+RO2C+... & + RXRAT( 617 ) ! MEK+CL=yROOH+0.9750D+... & + 5.8600D-01 * RXRAT( 624 ) ! ROOH+CL=0.5860D+00*yROOH+... & + 7.8400D-01 * RXRAT( 627 ) ! ACROLEIN+CL=0.7840D+... & + 8.3500D-01 * RXRAT( 628 ) ! MACR+CL=0.8350D+00*yROOH+... & + RXRAT( 629 ) ! MVK+CL=yROOH+0.5300D-... & + RXRAT( 631 ) ! CLCCHO=yROOH+CO+RO2C+xCL+... & + RXRAT( 634 ) ! CLACET=yROOH+RO2C+xCL+... & + RXRAT( 667 ) ! PROPENE+CL=yROOH+0.9710D+... & + RXRAT( 668 ) ! BUTADIENE13+CL=yROOH+... & + 3.1200D-01 * RXRAT( 677 ) ! ETOH+CL=0.3120D+00*yROOH+... & + RXRAT( 678 ) ! ALK1+CL=yROOH+xHO2+RO2C+... & + RXRAT( 679 ) ! ALK2+CL=yROOH+0.9700D+... & + 9.8300D-01 * RXRAT( 680 ) ! ALK3+CL=0.9830D+00*yROOH+... & + 1.6900D-01 * RXRAT( 683 ) ! OLE1+CL=0.1690D+00*yROOH+... & + 3.1900D-01 * RXRAT( 684 ) ! OLE2+CL=0.3190D+00*yROOH+... LOSS( yROOH ) = RXRAT( 456 ) ! yROOH+NO=NO & + RXRAT( 457 ) ! yROOH+HO2=HO2+ROOH & + RXRAT( 458 ) ! yROOH+NO3=NO3 & + RXRAT( 459 ) ! yROOH+MEO2=MEO2+0.5000D+00*MEK & + RXRAT( 460 ) ! yROOH+RO2C=RO2C+0.5000D+00*MEK & + RXRAT( 461 ) ! yROOH+RO2XC=RO2XC+0.5000D+... & + RXRAT( 462 ) ! yROOH+MECO3=MECO3 & + RXRAT( 463 ) ! yROOH+RCO3=RCO3 & + RXRAT( 464 ) ! yROOH+BZCO3=BZCO3 & + RXRAT( 465 ) ! yROOH+MACO3=MACO3 PROD( xCCHO ) = 4.0000D-01 * RXRAT( 75 ) ! PAN2=0.4000D+00*xCCHO+... & + RXRAT( 76 ) ! RCO3+NO=xCCHO+RO2C+xHO2+... & + 4.4000D-01 * RXRAT( 77 ) ! RCO3+HO2=0.4400D+00*xCCHO+... & + RXRAT( 78 ) ! RCO3+NO3=xCCHO+RO2C+xHO2+... & + RXRAT( 79 ) ! RCO3+MEO2=xCCHO+HO2+RO2C+... & + RXRAT( 80 ) ! RCO3+RO2C=xCCHO+xHO2+RO2C+... & + RXRAT( 81 ) ! RCO3+RO2XC=xCCHO+xHO2+RO2C+... & + RXRAT( 82 ) ! RCO3+MECO3=xCCHO+MEO2+RO2C+... & + 2.0000D+00 * RXRAT( 83 ) ! RCO3+RCO3=0.2000D+01*xCCHO+... & + RXRAT( 94 ) ! BZCO3+RCO3=xCCHO+0.2000D+... & + RXRAT( 106 ) ! MACO3+RCO3=xCCHO+MECO3+... & + 3.5000D-02 * RXRAT( 211 ) ! RCHO+OH=0.3500D-01*xCCHO+... & + RXRAT( 212 ) ! RCHO=xCCHO+xHO2+yROOH+RO2C+... & + 5.0400D-01 * RXRAT( 216 ) ! MEK+OH=0.5040D+00*xCCHO+... & + RXRAT( 217 ) ! MEK=xCCHO+RO2C+xHO2+MECO3+... & + 1.4200D-01 * RXRAT( 221 ) ! RCOOH+OH=0.1420D+00*xCCHO+... & + 1.2000D-02 * RXRAT( 224 ) ! ROOH+OH=0.1200D-01*xCCHO+... & + 2.0000D-02 * RXRAT( 226 ) ! R6OOH+OH=0.2000D-01*xCCHO+... & + 2.6000D-02 * RXRAT( 227 ) ! R6OOH=0.2600D-01*xCCHO+... & + 8.3000D-02 * RXRAT( 267 ) ! PRD2+OH=0.8300D-01*xCCHO+... & + 1.6300D-01 * RXRAT( 268 ) ! PRD2=0.1630D+00*xCCHO+... & + 4.2900D-01 * RXRAT( 269 ) ! RNO3+OH=0.4290D+00*xCCHO+... & + 2.3000D-01 * RXRAT( 270 ) ! RNO3=0.2300D+00*xCCHO+... & + 1.6700D-01 * RXRAT( 274 ) ! ACROLEIN+OH=0.1670D+... & + 1.1000D-01 * RXRAT( 281 ) ! RCOOOH+OH=0.1100D+00*xCCHO+... & + RXRAT( 282 ) ! RCOOOH=xCCHO+xHO2+yROOH+CO2+OH & + 9.8400D-01 * RXRAT( 531 ) ! PROPENE+OH=0.9840D+... & + RXRAT( 565 ) ! ALK1+OH=xCCHO+RO2C+xHO2+yROOH & + 4.4500D-01 * RXRAT( 567 ) ! ALK3+OH=0.4450D+00*xCCHO+... & + 4.3800D-01 * RXRAT( 568 ) ! ALK4+OH=0.4380D+00*xCCHO+... & + 1.0600D-01 * RXRAT( 569 ) ! ALK5+OH=0.1060D+00*xCCHO+... & + 1.0000D-02 * RXRAT( 571 ) ! OLE1+OH=0.1000D-01*xCCHO+... & + 1.1000D-02 * RXRAT( 572 ) ! OLE1+O3=0.1100D-01*xCCHO+... & + 1.3000D-02 * RXRAT( 573 ) ! OLE1+NO3=0.1300D-01*xCCHO+... & + 8.3500D-01 * RXRAT( 575 ) ! OLE2+OH=0.8350D+00*xCCHO+... & + 7.1000D-02 * RXRAT( 576 ) ! OLE2+O3=0.7100D-01*xCCHO+... & + 5.7900D-01 * RXRAT( 577 ) ! OLE2+NO3=0.5790D+00*xCCHO+... & + 2.0000D-03 * RXRAT( 588 ) ! SESQ+NO3=0.2000D-02*xCCHO+... & + 1.0000D-01 * RXRAT( 615 ) ! RCHO+CL=0.1000D+00*xCCHO+... & + 7.0000D-02 * RXRAT( 617 ) ! MEK+CL=0.7000D-01*xCCHO+... & + 3.0000D-01 * RXRAT( 618 ) ! RNO3+CL=0.3000D+00*xCCHO+... & + 1.0900D-01 * RXRAT( 619 ) ! PRD2+CL=0.1090D+00*xCCHO+... & + 1.0400D-01 * RXRAT( 624 ) ! ROOH+CL=0.1040D+00*xCCHO+... & + 1.8600D-01 * RXRAT( 625 ) ! R6OOH+CL=0.1860D+00*xCCHO+... & + RXRAT( 678 ) ! ALK1+CL=xCCHO+xHO2+RO2C+... & + 3.4000D-01 * RXRAT( 680 ) ! ALK3+CL=0.3400D+00*xCCHO+... & + 2.8700D-01 * RXRAT( 681 ) ! ALK4+CL=0.2870D+00*xCCHO+... & + 8.0000D-02 * RXRAT( 682 ) ! ALK5+CL=0.8000D-01*xCCHO+... & + 2.0600D-01 * RXRAT( 683 ) ! OLE1+CL=0.2060D+00*xCCHO+... & + 3.8300D-01 * RXRAT( 684 ) ! OLE2+CL=0.3830D+00*xCCHO+... LOSS( xCCHO ) = RXRAT( 296 ) ! xCCHO+NO=NO+CCHO & + RXRAT( 297 ) ! xCCHO+HO2=HO2 & + RXRAT( 298 ) ! xCCHO+NO3=NO3+CCHO & + RXRAT( 299 ) ! xCCHO+MEO2=MEO2+0.5000D+... & + RXRAT( 300 ) ! xCCHO+RO2C=RO2C+0.5000D+... & + RXRAT( 301 ) ! xCCHO+RO2XC=RO2XC+0.5000D+... & + RXRAT( 302 ) ! xCCHO+MECO3=MECO3+CCHO & + RXRAT( 303 ) ! xCCHO+RCO3=RCO3+CCHO & + RXRAT( 304 ) ! xCCHO+BZCO3=BZCO3+CCHO & + RXRAT( 305 ) ! xCCHO+MACO3=MACO3+CCHO PROD( RCOOOH ) = 3.0750D-01 * RXRAT( 77 ) ! RCO3+HO2=0.3075D+00*RCOOOH+... & + 3.0750D-01 * RXRAT( 88 ) ! BZCO3+HO2=0.3075D+... & + 3.0750D-01 * RXRAT( 100 ) ! MACO3+HO2=0.3075D+... LOSS( RCOOOH ) = RXRAT( 281 ) ! RCOOOH+OH=0.8060D+00*RCO3+... & + RXRAT( 282 ) ! RCOOOH=xHO2+xCCHO+yROOH+CO2+OH PROD( RCOOH ) = 1.0250D-01 * RXRAT( 77 ) ! RCO3+HO2=0.1025D+00*RCOOH+... & + 1.0250D-01 * RXRAT( 88 ) ! BZCO3+HO2=0.1025D+00*RCOOH+... & + 1.0250D-01 * RXRAT( 100 ) ! MACO3+HO2=0.1025D+00*RCOOH+... & + 3.7200D-01 * RXRAT( 264 ) ! IPRD+O3=0.3720D+00*RCOOH+... & + 1.5900D-01 * RXRAT( 572 ) ! OLE1+O3=0.1590D+00*RCOOH+... & + 2.3500D-01 * RXRAT( 576 ) ! OLE2+O3=0.2350D+00*RCOOH+... & + 6.8000D-02 * RXRAT( 583 ) ! TERP+O3=0.6800D-01*RCOOH+... & + 6.8000D-02 * RXRAT( 587 ) ! SESQ+O3=0.6800D-01*RCOOH+... LOSS( RCOOH ) = RXRAT( 221 ) ! RCOOH+OH=RO2C+xHO2+0.1430D+... PROD( BZCO3 ) = RXRAT( 85 ) ! PBZN=BZCO3+NO2 & + 6.0000D-01 * RXRAT( 86 ) ! PBZN=0.6000D+00*BZCO3+... & + RXRAT( 243 ) ! BALD+OH=BZCO3 & + RXRAT( 245 ) ! BALD+NO3=BZCO3+HNO3 & + RXRAT( 623 ) ! BALD+CL=BZCO3+HCL LOSS( BZCO3 ) = RXRAT( 84 ) ! BZCO3+NO2=PBZN & + RXRAT( 87 ) ! BZCO3+NO=NO2+CO2+BZO+RO2C & + RXRAT( 88 ) ! BZCO3+HO2=0.3075D+... & + RXRAT( 89 ) ! BZCO3+NO3=NO2+CO2+BZO+RO2C & + RXRAT( 90 ) ! BZCO3+MEO2=HCHO+HO2+RO2C+... & + RXRAT( 91 ) ! BZCO3+RO2C=RO2C+BZO+CO2 & + RXRAT( 92 ) ! BZCO3+RO2XC=RO2C+BZO+CO2 & + RXRAT( 93 ) ! BZCO3+MECO3=0.2000D+01*CO2+... & + RXRAT( 94 ) ! BZCO3+RCO3=0.2000D+01*CO2+... & + 2.0000D+00 * RXRAT( 95 ) ! BZCO3+BZCO3=0.2000D+01*BZO+... & + RXRAT( 107 ) ! BZCO3+MACO3=HCHO+MECO3+BZO+... PROD( PBZN ) = RXRAT( 84 ) ! BZCO3+NO2=PBZN LOSS( PBZN ) = RXRAT( 85 ) ! PBZN=BZCO3+NO2 & + RXRAT( 86 ) ! PBZN=0.6000D+00*BZCO3+... PROD( BZO ) = 4.0000D-01 * RXRAT( 86 ) ! PBZN=0.4000D+00*BZO+... & + RXRAT( 87 ) ! BZCO3+NO=BZO+CO2+NO2+RO2C & + 4.4000D-01 * RXRAT( 88 ) ! BZCO3+HO2=0.4400D+00*BZO+... & + RXRAT( 89 ) ! BZCO3+NO3=BZO+CO2+NO2+RO2C & + RXRAT( 90 ) ! BZCO3+MEO2=BZO+HO2+RO2C+... & + RXRAT( 91 ) ! BZCO3+RO2C=BZO+RO2C+CO2 & + RXRAT( 92 ) ! BZCO3+RO2XC=BZO+RO2C+CO2 & + RXRAT( 93 ) ! BZCO3+MECO3=BZO+MEO2+... & + RXRAT( 94 ) ! BZCO3+RCO3=BZO+0.2000D+... & + 2.0000D+00 * RXRAT( 95 ) ! BZCO3+BZCO3=0.2000D+01*BZO+... & + RXRAT( 107 ) ! MACO3+BZCO3=BZO+MECO3+HCHO+... & + 2.0000D-01 * RXRAT( 238 ) ! CRES+OH=0.2000D+00*BZO+... & + RXRAT( 239 ) ! CRES+NO3=BZO+HNO3 & + RXRAT( 240 ) ! NPHE+OH=BZO LOSS( BZO ) = RXRAT( 111 ) ! BZO+NO2=NPHE & + RXRAT( 112 ) ! BZO+HO2=CRES & + RXRAT( 113 ) ! BZO=CRES+RO2C+xHO2 PROD( MACO3 ) = RXRAT( 97 ) ! MAPAN=MACO3+NO2 & + 6.0000D-01 * RXRAT( 98 ) ! MAPAN=0.6000D+00*MACO3+... & + RXRAT( 174 ) ! xMACO3+NO=MACO3+NO & + RXRAT( 176 ) ! xMACO3+NO3=MACO3+NO3 & + 5.0000D-01 * RXRAT( 177 ) ! xMACO3+MEO2=0.5000D+... & + 5.0000D-01 * RXRAT( 178 ) ! xMACO3+RO2C=0.5000D+... & + 5.0000D-01 * RXRAT( 179 ) ! xMACO3+RO2XC=0.5000D+... & + RXRAT( 180 ) ! xMACO3+MECO3=MACO3+MECO3 & + RXRAT( 181 ) ! xMACO3+RCO3=MACO3+RCO3 & + RXRAT( 182 ) ! xMACO3+BZCO3=MACO3+BZCO3 & + RXRAT( 183 ) ! xMACO3+MACO3=0.2000D+01*MACO3 & + 2.1700D-01 * RXRAT( 246 ) ! AFG1+OH=0.2170D+00*MACO3+... & + 5.0000D-01 * RXRAT( 248 ) ! AFG1=0.5000D+00*MACO3+... & + 2.1700D-01 * RXRAT( 249 ) ! AFG2+OH=0.2170D+00*MACO3+... & + 2.0600D-01 * RXRAT( 252 ) ! AFG3+OH=0.2060D+00*MACO3+... & + 5.0000D-01 * RXRAT( 254 ) ! MACR+OH=0.5000D+00*MACO3+... & + 5.0000D-01 * RXRAT( 256 ) ! MACR+NO3=0.5000D+00*MACO3+... & + 3.3000D-01 * RXRAT( 258 ) ! MACR=0.3300D+00*MACO3+... & + 4.0000D-01 * RXRAT( 262 ) ! MVK=0.4000D+00*MACO3+... & + 2.8900D-01 * RXRAT( 263 ) ! IPRD+OH=0.2890D+00*MACO3+... & + 1.5000D-01 * RXRAT( 265 ) ! IPRD+NO3=0.1500D+00*MACO3+... & + 7.5000D-01 * RXRAT( 274 ) ! ACROLEIN+OH=0.7500D+... & + 9.6700D-01 * RXRAT( 276 ) ! ACROLEIN+NO3=0.9670D+... & + 3.3000D-01 * RXRAT( 278 ) ! ACROLEIN=0.3300D+00*MACO3+... & + 2.1600D-01 * RXRAT( 627 ) ! ACROLEIN+CL=0.2160D+... & + 1.6500D-01 * RXRAT( 628 ) ! MACR+CL=0.1650D+00*MACO3+... & + 1.5400D-01 * RXRAT( 630 ) ! IPRD+CL=0.1540D+00*MACO3+... LOSS( MACO3 ) = RXRAT( 96 ) ! MACO3+NO2=MAPAN & + RXRAT( 99 ) ! MACO3+NO=NO2+CO2+HCHO+MECO3 & + RXRAT( 100 ) ! MACO3+HO2=0.3075D+... & + RXRAT( 101 ) ! MACO3+NO3=NO2+CO2+HCHO+MECO3 & + RXRAT( 102 ) ! MACO3+MEO2=0.2000D+01*HCHO+... & + RXRAT( 103 ) ! MACO3+RO2C=CO2+HCHO+MECO3 & + RXRAT( 104 ) ! MACO3+RO2XC=CO2+HCHO+MECO3 & + RXRAT( 105 ) ! MACO3+MECO3=0.2000D+01*CO2+... & + RXRAT( 106 ) ! MACO3+RCO3=HCHO+MECO3+RO2C+... & + RXRAT( 107 ) ! MACO3+BZCO3=HCHO+MECO3+BZO+... & + 2.0000D+00 * RXRAT( 108 ) ! MACO3+MACO3=0.2000D+... PROD( MAPAN ) = RXRAT( 96 ) ! MACO3+NO2=MAPAN LOSS( MAPAN ) = RXRAT( 97 ) ! MAPAN=MACO3+NO2 & + RXRAT( 98 ) ! MAPAN=0.6000D+00*MACO3+... PROD( TBUO ) = RXRAT( 184 ) ! xTBUO+NO=TBUO+NO & + RXRAT( 186 ) ! xTBUO+NO3=TBUO+NO3 & + 5.0000D-01 * RXRAT( 187 ) ! xTBUO+MEO2=0.5000D+00*TBUO+... & + 5.0000D-01 * RXRAT( 188 ) ! xTBUO+RO2C=0.5000D+00*TBUO+... & + 5.0000D-01 * RXRAT( 189 ) ! xTBUO+RO2XC=0.5000D+... & + RXRAT( 190 ) ! xTBUO+MECO3=TBUO+MECO3 & + RXRAT( 191 ) ! xTBUO+RCO3=TBUO+RCO3 & + RXRAT( 192 ) ! xTBUO+BZCO3=TBUO+BZCO3 & + RXRAT( 193 ) ! xTBUO+MACO3=TBUO+MACO3 LOSS( TBUO ) = RXRAT( 109 ) ! TBUO+NO2=RNO3 & + RXRAT( 110 ) ! TBUO=ACETONE+MEO2 PROD( RNO3 ) = RXRAT( 109 ) ! TBUO+NO2=RNO3 & + RXRAT( 446 ) ! xRNO3+NO=RNO3+NO & + RXRAT( 448 ) ! xRNO3+NO3=RNO3+NO3 & + 5.0000D-01 * RXRAT( 449 ) ! xRNO3+MEO2=0.5000D+00*RNO3+... & + 5.0000D-01 * RXRAT( 450 ) ! xRNO3+RO2C=0.5000D+00*RNO3+... & + 5.0000D-01 * RXRAT( 451 ) ! xRNO3+RO2XC=0.5000D+... & + RXRAT( 452 ) ! xRNO3+MECO3=RNO3+MECO3 & + RXRAT( 453 ) ! xRNO3+RCO3=RNO3+RCO3 & + RXRAT( 454 ) ! xRNO3+BZCO3=RNO3+BZCO3 & + RXRAT( 455 ) ! xRNO3+MACO3=RNO3+MACO3 & + RXRAT( 496 ) ! zRNO3+NO=RNO3+NO LOSS( RNO3 ) = 8.1100D-01 * RXRAT( 269 ) ! RNO3+OH=0.1890D+00*RNO3+... & + RXRAT( 270 ) ! RNO3=0.3440D+00*HO2+... & + 9.4500D-01 * RXRAT( 618 ) ! RNO3+CL=0.5500D-01*RNO3+... PROD( ACETONE ) = RXRAT( 110 ) ! TBUO=ACETONE+MEO2 & + RXRAT( 316 ) ! xACETONE+NO=ACETONE+NO & + RXRAT( 318 ) ! xACETONE+NO3=ACETONE+NO3 & + 5.0000D-01 * RXRAT( 319 ) ! xACETONE+MEO2=0.5000D+... & + 5.0000D-01 * RXRAT( 320 ) ! xACETONE+RO2C=0.5000D+... & + 5.0000D-01 * RXRAT( 321 ) ! xACETONE+RO2XC=0.5000D+... & + RXRAT( 322 ) ! xACETONE+MECO3=ACETONE+MECO3 & + RXRAT( 323 ) ! xACETONE+RCO3=ACETONE+RCO3 & + RXRAT( 324 ) ! xACETONE+BZCO3=ACETONE+BZCO3 & + RXRAT( 325 ) ! xACETONE+MACO3=ACETONE+MACO3 & + 5.1000D-02 * RXRAT( 576 ) ! OLE2+O3=0.5100D-01*ACETONE+... LOSS( ACETONE ) = RXRAT( 214 ) ! ACETONE+OH=RO2C+xMECO3+... & + RXRAT( 215 ) ! ACETONE=0.6200D+00*MECO3+... & + RXRAT( 616 ) ! ACETONE+CL=HCL+RO2C+xHCHO+... PROD( NPHE ) = RXRAT( 111 ) ! BZO+NO2=NPHE LOSS( NPHE ) = RXRAT( 240 ) ! NPHE+OH=BZO & + RXRAT( 241 ) ! NPHE=HONO & + RXRAT( 242 ) ! NPHE= PROD( CRES ) = RXRAT( 112 ) ! BZO+HO2=CRES & + RXRAT( 113 ) ! BZO=CRES+RO2C+xHO2 & + 5.7000D-01 * RXRAT( 558 ) ! BENZENE+OH=0.5700D+00*CRES+... & + 1.8100D-01 * RXRAT( 559 ) ! TOLUENE+OH=0.1810D+00*CRES+... & + 1.5900D-01 * RXRAT( 560 ) ! MXYL+OH=0.1590D+00*CRES+... & + 1.6100D-01 * RXRAT( 561 ) ! OXYL+OH=0.1610D+00*CRES+... & + 1.5900D-01 * RXRAT( 562 ) ! PXYL+OH=0.1590D+00*CRES+... & + 2.2000D-02 * RXRAT( 563 ) ! TMBENZ124+OH=0.2200D-... & + 1.2300D-01 * RXRAT( 579 ) ! ARO1+OH=0.1230D+00*CRES+... & + 7.7000D-02 * RXRAT( 580 ) ! ARO2MN+OH=0.7700D-01*CRES+... & + 7.7000D-02 * RXRAT( 581 ) ! NAPHTHAL+OH=0.7700D-... LOSS( CRES ) = RXRAT( 238 ) ! CRES+OH=0.2000D+00*BZO+... & + RXRAT( 239 ) ! CRES+NO3=HNO3+BZO & + RXRAT( 622 ) ! CRES+CL=HCL+xHO2+xBALD+yR6OOH PROD( xOH ) = 1.2000D-02 * RXRAT( 224 ) ! ROOH+OH=0.1200D-01*xOH+... & + 4.1000D-02 * RXRAT( 226 ) ! R6OOH+OH=0.4100D-01*xOH+... & + 2.4000D-02 * RXRAT( 228 ) ! RAOOH+OH=0.2400D-01*xOH+... & + 2.0000D-02 * RXRAT( 279 ) ! CCOOOH+OH=0.2000D-01*xOH+... & + 1.1000D-01 * RXRAT( 281 ) ! RCOOOH+OH=0.1100D+00*xOH+... & + 1.0400D-01 * RXRAT( 624 ) ! ROOH+CL=0.1040D+00*xOH+... & + 5.0200D-01 * RXRAT( 625 ) ! R6OOH+CL=0.5020D+00*xOH+... & + 2.4000D-02 * RXRAT( 626 ) ! RAOOH+CL=0.2400D-01*xOH+... LOSS( xOH ) = RXRAT( 124 ) ! xOH+NO=NO+OH & + RXRAT( 125 ) ! xOH+HO2=HO2 & + RXRAT( 126 ) ! xOH+NO3=NO3+OH & + RXRAT( 127 ) ! xOH+MEO2=MEO2+0.5000D+00*OH & + RXRAT( 128 ) ! xOH+RO2C=RO2C+0.5000D+00*OH & + RXRAT( 129 ) ! xOH+RO2XC=RO2XC+0.5000D+00*OH & + RXRAT( 130 ) ! xOH+MECO3=MECO3+OH & + RXRAT( 131 ) ! xOH+RCO3=RCO3+OH & + RXRAT( 132 ) ! xOH+BZCO3=BZCO3+OH & + RXRAT( 133 ) ! xOH+MACO3=MACO3+OH PROD( xNO2 ) = 3.1300D-01 * RXRAT( 269 ) ! RNO3+OH=0.3130D+00*xNO2+... & + 1.2000D-01 * RXRAT( 537 ) ! BUTADIENE13+NO3=0.1200D+... & + 1.8700D-01 * RXRAT( 541 ) ! ISOPRENE+NO3=0.1870D+... & + 6.4300D-01 * RXRAT( 554 ) ! APIN+NO3=0.6430D+00*xNO2+... & + 4.2600D-01 * RXRAT( 577 ) ! OLE2+NO3=0.4260D+00*xNO2+... & + 2.8700D-01 * RXRAT( 584 ) ! TERP+NO3=0.2870D+00*xNO2+... & + 2.8700D-01 * RXRAT( 588 ) ! SESQ+NO3=0.2870D+00*xNO2+... & + 1.5900D-01 * RXRAT( 618 ) ! RNO3+CL=0.1590D+00*xNO2+... LOSS( xNO2 ) = RXRAT( 134 ) ! xNO2+NO=NO+NO2 & + RXRAT( 135 ) ! xNO2+HO2=HO2 & + RXRAT( 136 ) ! xNO2+NO3=NO3+NO2 & + RXRAT( 137 ) ! xNO2+MEO2=MEO2+0.5000D+00*NO2 & + RXRAT( 138 ) ! xNO2+RO2C=RO2C+0.5000D+00*NO2 & + RXRAT( 139 ) ! xNO2+RO2XC=RO2XC+0.5000D+... & + RXRAT( 140 ) ! xNO2+MECO3=MECO3+NO2 & + RXRAT( 141 ) ! xNO2+RCO3=RCO3+NO2 & + RXRAT( 142 ) ! xNO2+BZCO3=BZCO3+NO2 & + RXRAT( 143 ) ! xNO2+MACO3=MACO3+NO2 PROD( xMEO2 ) = 1.0000D-02 * RXRAT( 568 ) ! ALK4+OH=0.1000D-01*xMEO2+... & + 1.0000D-03 * RXRAT( 571 ) ! OLE1+OH=0.1000D-02*xMEO2+... & + 3.5000D-02 * RXRAT( 577 ) ! OLE2+NO3=0.3500D-01*xMEO2+... & + 3.0000D-03 * RXRAT( 681 ) ! ALK4+CL=0.3000D-02*xMEO2+... & + 1.0000D-03 * RXRAT( 684 ) ! OLE2+CL=0.1000D-02*xMEO2+... LOSS( xMEO2 ) = RXRAT( 144 ) ! xMEO2+NO=NO+MEO2 & + RXRAT( 145 ) ! xMEO2+HO2=HO2 & + RXRAT( 146 ) ! xMEO2+NO3=NO3+MEO2 & + RXRAT( 147 ) ! xMEO2+MEO2=0.1500D+01*MEO2 & + RXRAT( 148 ) ! xMEO2+RO2C=RO2C+0.5000D+... & + RXRAT( 149 ) ! xMEO2+RO2XC=RO2XC+0.5000D+... & + RXRAT( 150 ) ! xMEO2+MECO3=MECO3+MEO2 & + RXRAT( 151 ) ! xMEO2+RCO3=RCO3+MEO2 & + RXRAT( 152 ) ! xMEO2+BZCO3=BZCO3+MEO2 & + RXRAT( 153 ) ! xMEO2+MACO3=MACO3+MEO2 PROD( xMECO3 ) = RXRAT( 214 ) ! ACETONE+OH=xMECO3+RO2C+... & + 5.1000D-01 * RXRAT( 216 ) ! MEK+OH=0.5100D+00*xMECO3+... & + 2.0100D-01 * RXRAT( 246 ) ! AFG1+OH=0.2010D+00*xMECO3+... & + 2.0100D-01 * RXRAT( 249 ) ! AFG2+OH=0.2010D+00*xMECO3+... & + 1.1700D-01 * RXRAT( 252 ) ! AFG3+OH=0.1170D+00*xMECO3+... & + 3.3000D-01 * RXRAT( 258 ) ! MACR=0.3300D+00*xMECO3+... & + 6.7500D-01 * RXRAT( 259 ) ! MVK+OH=0.6750D+00*xMECO3+... & + 2.9000D-02 * RXRAT( 267 ) ! PRD2+OH=0.2900D-01*xMECO3+... & + 1.0000D-03 * RXRAT( 553 ) ! APIN+O3=0.1000D-02*xMECO3+... & + 1.1000D-02 * RXRAT( 568 ) ! ALK4+OH=0.1100D-01*xMECO3+... & + 1.5600D-01 * RXRAT( 576 ) ! OLE2+O3=0.1560D+00*xMECO3+... & + 2.0200D-01 * RXRAT( 583 ) ! TERP+O3=0.2020D+00*xMECO3+... & + 2.0200D-01 * RXRAT( 587 ) ! SESQ+O3=0.2020D+00*xMECO3+... & + RXRAT( 616 ) ! ACETONE+CL=xMECO3+RO2C+... & + 8.5000D-02 * RXRAT( 617 ) ! MEK+CL=0.8500D-01*xMECO3+... & + 7.0000D-03 * RXRAT( 619 ) ! PRD2+CL=0.7000D-02*xMECO3+... & + 6.2500D-01 * RXRAT( 629 ) ! MVK+CL=0.6250D+00*xMECO3+... & + 3.4000D-02 * RXRAT( 670 ) ! APIN+CL=0.3400D-01*xMECO3+... & + 4.0000D-03 * RXRAT( 681 ) ! ALK4+CL=0.4000D-02*xMECO3+... & + 3.4000D-02 * RXRAT( 688 ) ! TERP+CL=0.3400D-01*xMECO3+... & + 3.4000D-02 * RXRAT( 689 ) ! SESQ+CL=0.3400D-01*xMECO3+... LOSS( xMECO3 ) = RXRAT( 154 ) ! xMECO3+NO=NO+MECO3 & + RXRAT( 155 ) ! xMECO3+HO2=HO2 & + RXRAT( 156 ) ! xMECO3+NO3=NO3+MECO3 & + RXRAT( 157 ) ! xMECO3+MEO2=MEO2+0.5000D+... & + RXRAT( 158 ) ! xMECO3+RO2C=RO2C+0.5000D+... & + RXRAT( 159 ) ! xMECO3+RO2XC=RO2XC+0.5000D+... & + RXRAT( 160 ) ! xMECO3+MECO3=0.2000D+01*MECO3 & + RXRAT( 161 ) ! xMECO3+RCO3=RCO3+MECO3 & + RXRAT( 162 ) ! xMECO3+BZCO3=BZCO3+MECO3 & + RXRAT( 163 ) ! xMECO3+MACO3=MACO3+MECO3 PROD( xRCO3 ) = 7.4000D-02 * RXRAT( 216 ) ! MEK+OH=0.7400D-01*xRCO3+... & + 6.5200D-01 * RXRAT( 247 ) ! AFG1+O3=0.6520D+00*xRCO3+... & + 6.5200D-01 * RXRAT( 250 ) ! AFG2+O3=0.6520D+00*xRCO3+... & + 1.6300D-01 * RXRAT( 253 ) ! AFG3+O3=0.1630D+00*xRCO3+... & + 1.0000D-01 * RXRAT( 255 ) ! MACR+O3=0.1000D+00*xRCO3+... & + 5.0000D-02 * RXRAT( 260 ) ! MVK+O3=0.5000D-01*xRCO3+... & + 4.8000D-02 * RXRAT( 264 ) ! IPRD+O3=0.4800D-01*xRCO3+... & + 4.9000D-02 * RXRAT( 267 ) ! PRD2+OH=0.4900D-01*xRCO3+... & + 4.0000D-03 * RXRAT( 552 ) ! APIN+OH=0.4000D-02*xRCO3+... & + 2.9700D-01 * RXRAT( 553 ) ! APIN+O3=0.2970D+00*xRCO3+... & + 7.0000D-03 * RXRAT( 554 ) ! APIN+NO3=0.7000D-02*xRCO3+... & + 8.0000D-03 * RXRAT( 576 ) ! OLE2+O3=0.8000D-02*xRCO3+... & + 6.4000D-02 * RXRAT( 582 ) ! TERP+OH=0.6400D-01*xRCO3+... & + 5.9000D-02 * RXRAT( 583 ) ! TERP+O3=0.5900D-01*xRCO3+... & + 2.6000D-02 * RXRAT( 584 ) ! TERP+NO3=0.2600D-01*xRCO3+... & + 6.4000D-02 * RXRAT( 586 ) ! SESQ+OH=0.6400D-01*xRCO3+... & + 5.9000D-02 * RXRAT( 587 ) ! SESQ+O3=0.5900D-01*xRCO3+... & + 2.6000D-02 * RXRAT( 588 ) ! SESQ+NO3=0.2600D-01*xRCO3+... & + 3.6000D-02 * RXRAT( 617 ) ! MEK+CL=0.3600D-01*xRCO3+... & + 2.2000D-02 * RXRAT( 619 ) ! PRD2+CL=0.2200D-01*xRCO3+... & + 5.0000D-02 * RXRAT( 670 ) ! APIN+CL=0.5000D-01*xRCO3+... & + 5.0000D-02 * RXRAT( 688 ) ! TERP+CL=0.5000D-01*xRCO3+... & + 5.0000D-02 * RXRAT( 689 ) ! SESQ+CL=0.5000D-01*xRCO3+... LOSS( xRCO3 ) = RXRAT( 164 ) ! xRCO3+NO=NO+RCO3 & + RXRAT( 165 ) ! xRCO3+HO2=HO2 & + RXRAT( 166 ) ! xRCO3+NO3=NO3+RCO3 & + RXRAT( 167 ) ! xRCO3+MEO2=MEO2+0.5000D+... & + RXRAT( 168 ) ! xRCO3+RO2C=RO2C+0.5000D+... & + RXRAT( 169 ) ! xRCO3+RO2XC=RO2XC+0.5000D+... & + RXRAT( 170 ) ! xRCO3+MECO3=MECO3+RCO3 & + RXRAT( 171 ) ! xRCO3+RCO3=0.2000D+01*RCO3 & + RXRAT( 172 ) ! xRCO3+BZCO3=BZCO3+RCO3 & + RXRAT( 173 ) ! xRCO3+MACO3=MACO3+RCO3 PROD( xMACO3 ) = 1.1800D-01 * RXRAT( 538 ) ! BUTADIENE13+O3P=0.1180D+... & + 1.9200D-01 * RXRAT( 540 ) ! ISOPRENE+O3=0.1920D+... & + 2.4000D-01 * RXRAT( 542 ) ! ISOPRENE+O3P=0.2400D+... & + 1.6000D-02 * RXRAT( 670 ) ! APIN+CL=0.1600D-01*xMACO3+... & + 1.6000D-02 * RXRAT( 688 ) ! TERP+CL=0.1600D-01*xMACO3+... & + 1.6000D-02 * RXRAT( 689 ) ! SESQ+CL=0.1600D-01*xMACO3+... LOSS( xMACO3 ) = RXRAT( 174 ) ! xMACO3+NO=NO+MACO3 & + RXRAT( 175 ) ! xMACO3+HO2=HO2 & + RXRAT( 176 ) ! xMACO3+NO3=NO3+MACO3 & + RXRAT( 177 ) ! xMACO3+MEO2=MEO2+0.5000D+... & + RXRAT( 178 ) ! xMACO3+RO2C=RO2C+0.5000D+... & + RXRAT( 179 ) ! xMACO3+RO2XC=RO2XC+0.5000D+... & + RXRAT( 180 ) ! xMACO3+MECO3=MECO3+MACO3 & + RXRAT( 181 ) ! xMACO3+RCO3=RCO3+MACO3 & + RXRAT( 182 ) ! xMACO3+BZCO3=BZCO3+MACO3 & + RXRAT( 183 ) ! xMACO3+MACO3=0.2000D+01*MACO3 PROD( xTBUO ) = 2.3600D-01 * RXRAT( 567 ) ! ALK3+OH=0.2360D+00*xTBUO+... & + 9.4000D-02 * RXRAT( 680 ) ! ALK3+CL=0.9400D-01*xTBUO+... LOSS( xTBUO ) = RXRAT( 184 ) ! xTBUO+NO=NO+TBUO & + RXRAT( 185 ) ! xTBUO+HO2=HO2 & + RXRAT( 186 ) ! xTBUO+NO3=NO3+TBUO & + RXRAT( 187 ) ! xTBUO+MEO2=MEO2+0.5000D+... & + RXRAT( 188 ) ! xTBUO+RO2C=RO2C+0.5000D+... & + RXRAT( 189 ) ! xTBUO+RO2XC=RO2XC+0.5000D+... & + RXRAT( 190 ) ! xTBUO+MECO3=MECO3+TBUO & + RXRAT( 191 ) ! xTBUO+RCO3=RCO3+TBUO & + RXRAT( 192 ) ! xTBUO+BZCO3=BZCO3+TBUO & + RXRAT( 193 ) ! xTBUO+MACO3=MACO3+TBUO PROD( xCO ) = 3.5000D-02 * RXRAT( 211 ) ! RCHO+OH=0.3500D-01*xCO+... & + 3.3400D-01 * RXRAT( 246 ) ! AFG1+OH=0.3340D+00*xCO+... & + 3.3400D-01 * RXRAT( 249 ) ! AFG2+OH=0.3340D+00*xCO+... & + 1.1400D-01 * RXRAT( 252 ) ! AFG3+OH=0.1140D+00*xCO+... & + 4.1600D-01 * RXRAT( 254 ) ! MACR+OH=0.4160D+00*xCO+... & + 5.0000D-01 * RXRAT( 256 ) ! MACR+NO3=0.5000D+00*xCO+... & + 3.3600D-01 * RXRAT( 263 ) ! IPRD+OH=0.3360D+00*xCO+... & + 5.7200D-01 * RXRAT( 265 ) ! IPRD+NO3=0.5720D+00*xCO+... & + 1.6700D-01 * RXRAT( 274 ) ! ACROLEIN+OH=0.1670D+00*xCO+... & + 3.1000D-02 * RXRAT( 276 ) ! ACROLEIN+NO3=0.3100D-... & + 2.7800D-01 * RXRAT( 530 ) ! ETHENE+O3P=0.2780D+00*xCO+... & + 1.1500D-01 * RXRAT( 538 ) ! BUTADIENE13+O3P=0.1150D+... & + 2.0000D-03 * RXRAT( 552 ) ! APIN+OH=0.2000D-02*xCO+... & + 5.1000D-02 * RXRAT( 553 ) ! APIN+O3=0.5100D-01*xCO+... & + 5.0000D-03 * RXRAT( 554 ) ! APIN+NO3=0.5000D-02*xCO+... & + 2.0000D-03 * RXRAT( 568 ) ! ALK4+OH=0.2000D-02*xCO+... & + 1.0000D-03 * RXRAT( 582 ) ! TERP+OH=0.1000D-02*xCO+... & + 1.2000D-02 * RXRAT( 584 ) ! TERP+NO3=0.1200D-01*xCO+... & + 1.0000D-03 * RXRAT( 586 ) ! SESQ+OH=0.1000D-02*xCO+... & + 1.2000D-02 * RXRAT( 588 ) ! SESQ+NO3=0.1200D-01*xCO+... & + 1.0000D-01 * RXRAT( 615 ) ! RCHO+CL=0.1000D+00*xCO+... & + 4.8400D-01 * RXRAT( 627 ) ! ACROLEIN+CL=0.4840D+00*xCO+... & + 5.4100D-01 * RXRAT( 628 ) ! MACR+CL=0.5410D+00*xCO+... & + 4.9800D-01 * RXRAT( 630 ) ! IPRD+CL=0.4980D+00*xCO+... & + 3.5000D-02 * RXRAT( 670 ) ! APIN+CL=0.3500D-01*xCO+... & + 3.0000D-03 * RXRAT( 681 ) ! ALK4+CL=0.3000D-02*xCO+... & + 3.5000D-02 * RXRAT( 688 ) ! TERP+CL=0.3500D-01*xCO+... & + 3.5000D-02 * RXRAT( 689 ) ! SESQ+CL=0.3500D-01*xCO+... LOSS( xCO ) = RXRAT( 194 ) ! xCO+NO=NO+CO & + RXRAT( 195 ) ! xCO+HO2=HO2 & + RXRAT( 196 ) ! xCO+NO3=NO3+CO & + RXRAT( 197 ) ! xCO+MEO2=MEO2+0.5000D+00*CO & + RXRAT( 198 ) ! xCO+RO2C=RO2C+0.5000D+00*CO & + RXRAT( 199 ) ! xCO+RO2XC=RO2XC+0.5000D+00*CO & + RXRAT( 200 ) ! xCO+MECO3=MECO3+CO & + RXRAT( 201 ) ! xCO+RCO3=RCO3+CO & + RXRAT( 202 ) ! xCO+BZCO3=BZCO3+CO & + RXRAT( 203 ) ! xCO+MACO3=MACO3+CO PROD( CCHO ) = 1.0000D-03 * RXRAT( 267 ) ! PRD2+OH=0.1000D-02*CCHO+... & + 2.1400D-01 * RXRAT( 270 ) ! RNO3=0.2140D+00*CCHO+... & + RXRAT( 296 ) ! xCCHO+NO=CCHO+NO & + RXRAT( 298 ) ! xCCHO+NO3=CCHO+NO3 & + 5.0000D-01 * RXRAT( 299 ) ! xCCHO+MEO2=0.5000D+00*CCHO+... & + 5.0000D-01 * RXRAT( 300 ) ! xCCHO+RO2C=0.5000D+00*CCHO+... & + 5.0000D-01 * RXRAT( 301 ) ! xCCHO+RO2XC=0.5000D+... & + RXRAT( 302 ) ! xCCHO+MECO3=CCHO+MECO3 & + RXRAT( 303 ) ! xCCHO+RCO3=CCHO+RCO3 & + RXRAT( 304 ) ! xCCHO+BZCO3=CCHO+BZCO3 & + RXRAT( 305 ) ! xCCHO+MACO3=CCHO+MACO3 & + 1.0000D-01 * RXRAT( 530 ) ! ETHENE+O3P=0.1000D+00*CCHO+... & + 5.0000D-01 * RXRAT( 532 ) ! PROPENE+O3=0.5000D+00*CCHO+... & + 9.5000D-01 * RXRAT( 564 ) ! ETOH+OH=0.9500D+00*CCHO+... & + 4.5300D-01 * RXRAT( 576 ) ! OLE2+O3=0.4530D+00*CCHO+... & + 6.8800D-01 * RXRAT( 677 ) ! ETOH+CL=0.6880D+00*CCHO+... LOSS( CCHO ) = RXRAT( 208 ) ! CCHO+OH=MECO3 & + RXRAT( 209 ) ! CCHO=CO+HO2+MEO2 & + RXRAT( 210 ) ! CCHO+NO3=HNO3+MECO3 & + RXRAT( 613 ) ! CCHO+CL=HCL+MECO3 PROD( RCHO ) = 7.4400D-01 * RXRAT( 224 ) ! ROOH+OH=0.7440D+00*RCHO+... & + RXRAT( 225 ) ! ROOH=RCHO+HO2+OH & + 8.5000D-02 * RXRAT( 227 ) ! R6OOH=0.8500D-01*RCHO+... & + RXRAT( 257 ) ! MACR+O3P=RCHO & + 4.5000D-01 * RXRAT( 261 ) ! MVK+O3P=0.4500D+00*RCHO+... & + 1.4300D-01 * RXRAT( 267 ) ! PRD2+OH=0.1430D+00*RCHO+... & + 1.0000D-03 * RXRAT( 269 ) ! RNO3+OH=0.1000D-02*RCHO+... & + 7.4000D-02 * RXRAT( 270 ) ! RNO3=0.7400D-01*RCHO+... & + RXRAT( 277 ) ! ACROLEIN+O3P=RCHO & + RXRAT( 306 ) ! xRCHO+NO=RCHO+NO & + RXRAT( 308 ) ! xRCHO+NO3=RCHO+NO3 & + 5.0000D-01 * RXRAT( 309 ) ! xRCHO+MEO2=0.5000D+00*RCHO+... & + 5.0000D-01 * RXRAT( 310 ) ! xRCHO+RO2C=0.5000D+00*RCHO+... & + 5.0000D-01 * RXRAT( 311 ) ! xRCHO+RO2XC=0.5000D+... & + RXRAT( 312 ) ! xRCHO+MECO3=RCHO+MECO3 & + RXRAT( 313 ) ! xRCHO+RCO3=RCHO+RCO3 & + RXRAT( 314 ) ! xRCHO+BZCO3=RCHO+BZCO3 & + RXRAT( 315 ) ! xRCHO+MACO3=RCHO+MACO3 & + 4.5000D-01 * RXRAT( 534 ) ! PROPENE+O3P=0.4500D+... & + 6.1000D-01 * RXRAT( 544 ) ! ISOPOOH+OH=0.6100D+00*RCHO+... & + 1.1000D-01 * RXRAT( 545 ) ! ISOPOOH=0.1100D+00*RCHO+... & + 5.0000D-01 * RXRAT( 572 ) ! OLE1+O3=0.5000D+00*RCHO+... & + 4.5000D-01 * RXRAT( 574 ) ! OLE1+O3P=0.4500D+00*RCHO+... & + 3.3300D-01 * RXRAT( 576 ) ! OLE2+O3=0.3330D+00*RCHO+... & + 7.9000D-02 * RXRAT( 578 ) ! OLE2+O3P=0.7900D-01*RCHO+... & + 2.3700D-01 * RXRAT( 585 ) ! TERP+O3P=0.2370D+00*RCHO+... & + 2.3700D-01 * RXRAT( 589 ) ! SESQ+O3P=0.2370D+00*RCHO+... & + 9.0000D-03 * RXRAT( 618 ) ! RNO3+CL=0.9000D-02*RCHO+... & + 1.9800D-01 * RXRAT( 619 ) ! PRD2+CL=0.1980D+00*RCHO+... & + 4.1400D-01 * RXRAT( 624 ) ! ROOH+CL=0.4140D+00*RCHO+... LOSS( RCHO ) = RXRAT( 211 ) ! RCHO+OH=0.9650D+00*RCO3+... & + RXRAT( 212 ) ! RCHO=RO2C+xHO2+yROOH+xCCHO+... & + RXRAT( 213 ) ! RCHO+NO3=HNO3+RCO3 & + RXRAT( 615 ) ! RCHO+CL=HCL+0.9000D+... PROD( xHCHO ) = RXRAT( 214 ) ! ACETONE+OH=xHCHO+xMECO3+... & + 8.8000D-02 * RXRAT( 216 ) ! MEK+OH=0.8800D-01*xHCHO+... & + 1.2000D-02 * RXRAT( 224 ) ! ROOH+OH=0.1200D-01*xHCHO+... & + 6.5200D-01 * RXRAT( 247 ) ! AFG1+O3=0.6520D+00*xHCHO+... & + 6.5200D-01 * RXRAT( 250 ) ! AFG2+O3=0.6520D+00*xHCHO+... & + 1.6300D-01 * RXRAT( 253 ) ! AFG3+O3=0.1630D+00*xHCHO+... & + 8.4000D-02 * RXRAT( 254 ) ! MACR+OH=0.8400D-01*xHCHO+... & + 1.0000D-01 * RXRAT( 255 ) ! MACR+O3=0.1000D+00*xHCHO+... & + 3.3000D-01 * RXRAT( 258 ) ! MACR=0.3300D+00*xHCHO+... & + 3.0000D-01 * RXRAT( 259 ) ! MVK+OH=0.3000D+00*xHCHO+... & + 5.0000D-02 * RXRAT( 260 ) ! MVK+O3=0.5000D-01*xHCHO+... & + 5.5000D-02 * RXRAT( 263 ) ! IPRD+OH=0.5500D-01*xHCHO+... & + 1.0000D-03 * RXRAT( 264 ) ! IPRD+O3=0.1000D-02*xHCHO+... & + 2.2700D-01 * RXRAT( 265 ) ! IPRD+NO3=0.2270D+00*xHCHO+... & + 2.1100D-01 * RXRAT( 267 ) ! PRD2+OH=0.2110D+00*xHCHO+... & + 3.0300D-01 * RXRAT( 268 ) ! PRD2=0.3030D+00*xHCHO+... & + 1.1000D-02 * RXRAT( 269 ) ! RNO3+OH=0.1100D-01*xHCHO+... & + 6.1000D-02 * RXRAT( 270 ) ! RNO3=0.6100D-01*xHCHO+... & + 8.3000D-02 * RXRAT( 274 ) ! ACROLEIN+OH=0.8300D-... & + 2.0000D-02 * RXRAT( 279 ) ! CCOOOH+OH=0.2000D-01*xHCHO+... & + 1.6100D+00 * RXRAT( 527 ) ! ETHENE+OH=0.1610D+01*xHCHO+... & + 2.7800D-01 * RXRAT( 530 ) ! ETHENE+O3P=0.2780D+... & + 9.8400D-01 * RXRAT( 531 ) ! PROPENE+OH=0.9840D+... & + 7.0800D-01 * RXRAT( 535 ) ! BUTADIENE13+OH=0.7080D+... & + 1.1500D-01 * RXRAT( 537 ) ! BUTADIENE13+NO3=0.1150D+... & + 6.2400D-01 * RXRAT( 539 ) ! ISOPRENE+OH=0.6240D+... & + 1.9200D-01 * RXRAT( 540 ) ! ISOPRENE+O3=0.1920D+... & + 2.4000D-01 * RXRAT( 542 ) ! ISOPRENE+O3P=0.2400D+... & + 2.6000D-01 * RXRAT( 544 ) ! ISOPOOH+OH=0.2600D+... & + 2.2000D-02 * RXRAT( 552 ) ! APIN+OH=0.2200D-01*xHCHO+... & + 3.4400D-01 * RXRAT( 553 ) ! APIN+O3=0.3440D+00*xHCHO+... & + 7.0000D-03 * RXRAT( 554 ) ! APIN+NO3=0.7000D-02*xHCHO+... & + 8.1000D-02 * RXRAT( 564 ) ! ETOH+OH=0.8100D-01*xHCHO+... & + 2.6000D-02 * RXRAT( 567 ) ! ALK3+OH=0.2600D-01*xHCHO+... & + 2.9000D-02 * RXRAT( 568 ) ! ALK4+OH=0.2900D-01*xHCHO+... & + 4.0000D-02 * RXRAT( 569 ) ! ALK5+OH=0.4000D-01*xHCHO+... & + 5.8200D-01 * RXRAT( 571 ) ! OLE1+OH=0.5820D+00*xHCHO+... & + 1.7900D-01 * RXRAT( 575 ) ! OLE2+OH=0.1790D+00*xHCHO+... & + 1.1400D-01 * RXRAT( 576 ) ! OLE2+O3=0.1140D+00*xHCHO+... & + 7.2000D-02 * RXRAT( 577 ) ! OLE2+NO3=0.7200D-01*xHCHO+... & + 4.1100D-01 * RXRAT( 582 ) ! TERP+OH=0.4110D+00*xHCHO+... & + 3.3000D-02 * RXRAT( 583 ) ! TERP+O3=0.3300D-01*xHCHO+... & + 2.3000D-02 * RXRAT( 584 ) ! TERP+NO3=0.2300D-01*xHCHO+... & + 4.1100D-01 * RXRAT( 586 ) ! SESQ+OH=0.4110D+00*xHCHO+... & + 3.3000D-02 * RXRAT( 587 ) ! SESQ+O3=0.3300D-01*xHCHO+... & + 2.3000D-02 * RXRAT( 588 ) ! SESQ+NO3=0.2300D-01*xHCHO+... & + RXRAT( 616 ) ! ACETONE+CL=xHCHO+RO2C+HCL+... & + 6.5000D-02 * RXRAT( 617 ) ! MEK+CL=0.6500D-01*xHCHO+... & + 4.5000D-02 * RXRAT( 618 ) ! RNO3+CL=0.4500D-01*xHCHO+... & + 2.3700D-01 * RXRAT( 619 ) ! PRD2+CL=0.2370D+00*xHCHO+... & + 1.0600D-01 * RXRAT( 624 ) ! ROOH+CL=0.1060D+00*xHCHO+... & + 2.7400D-01 * RXRAT( 627 ) ! ACROLEIN+CL=0.2740D+... & + 1.9500D-01 * RXRAT( 630 ) ! IPRD+CL=0.1950D+00*xHCHO+... & + RXRAT( 631 ) ! CLCCHO=xHCHO+CO+RO2C+xCL+... & + RXRAT( 634 ) ! CLACET=xHCHO+RO2C+xCL+... & + RXRAT( 666 ) ! ETHENE+CL=xHCHO+0.2000D+... & + 8.6300D-01 * RXRAT( 668 ) ! BUTADIENE13+CL=0.8630D+... & + 2.7500D-01 * RXRAT( 669 ) ! ISOPRENE+CL=0.2750D+... & + 1.5800D-01 * RXRAT( 670 ) ! APIN+CL=0.1580D+00*xHCHO+... & + 5.0300D-01 * RXRAT( 677 ) ! ETOH+CL=0.5030D+00*xHCHO+... & + 7.8000D-02 * RXRAT( 680 ) ! ALK3+CL=0.7800D-01*xHCHO+... & + 3.4000D-02 * RXRAT( 681 ) ! ALK4+CL=0.3400D-01*xHCHO+... & + 2.2000D-02 * RXRAT( 682 ) ! ALK5+CL=0.2200D-01*xHCHO+... & + 3.6000D-02 * RXRAT( 683 ) ! OLE1+CL=0.3600D-01*xHCHO+... & + 1.9000D-01 * RXRAT( 684 ) ! OLE2+CL=0.1900D+00*xHCHO+... & + 1.5800D-01 * RXRAT( 688 ) ! TERP+CL=0.1580D+00*xHCHO+... & + 1.5800D-01 * RXRAT( 689 ) ! SESQ+CL=0.1580D+00*xHCHO+... LOSS( xHCHO ) = RXRAT( 286 ) ! xHCHO+NO=NO+HCHO & + RXRAT( 287 ) ! xHCHO+HO2=HO2 & + RXRAT( 288 ) ! xHCHO+NO3=NO3+HCHO & + RXRAT( 289 ) ! xHCHO+MEO2=MEO2+0.5000D+... & + RXRAT( 290 ) ! xHCHO+RO2C=RO2C+0.5000D+... & + RXRAT( 291 ) ! xHCHO+RO2XC=RO2XC+0.5000D+... & + RXRAT( 292 ) ! xHCHO+MECO3=MECO3+HCHO & + RXRAT( 293 ) ! xHCHO+RCO3=RCO3+HCHO & + RXRAT( 294 ) ! xHCHO+BZCO3=BZCO3+HCHO & + RXRAT( 295 ) ! xHCHO+MACO3=MACO3+HCHO PROD( MEK ) = 5.5000D-01 * RXRAT( 261 ) ! MVK+O3P=0.5500D+00*MEK+... & + 2.1000D-01 * RXRAT( 264 ) ! IPRD+O3=0.2100D+00*MEK+... & + 2.3300D-01 * RXRAT( 266 ) ! IPRD=0.2330D+00*MEK+... & + 1.0000D-02 * RXRAT( 269 ) ! RNO3+OH=0.1000D-01*MEK+... & + 1.2400D-01 * RXRAT( 270 ) ! RNO3=0.1240D+00*MEK+... & + RXRAT( 326 ) ! xMEK+NO=MEK+NO & + RXRAT( 328 ) ! xMEK+NO3=MEK+NO3 & + 5.0000D-01 * RXRAT( 329 ) ! xMEK+MEO2=0.5000D+00*MEK+MEO2 & + 5.0000D-01 * RXRAT( 330 ) ! xMEK+RO2C=0.5000D+00*MEK+RO2C & + 5.0000D-01 * RXRAT( 331 ) ! xMEK+RO2XC=0.5000D+00*MEK+... & + RXRAT( 332 ) ! xMEK+MECO3=MEK+MECO3 & + RXRAT( 333 ) ! xMEK+RCO3=MEK+RCO3 & + RXRAT( 334 ) ! xMEK+BZCO3=MEK+BZCO3 & + RXRAT( 335 ) ! xMEK+MACO3=MEK+MACO3 & + 5.0000D-01 * RXRAT( 459 ) ! yROOH+MEO2=0.5000D+00*MEK+MEO2 & + 5.0000D-01 * RXRAT( 460 ) ! yROOH+RO2C=0.5000D+00*MEK+RO2C & + 5.0000D-01 * RXRAT( 461 ) ! yROOH+RO2XC=0.5000D+00*MEK+... & + 5.5000D-01 * RXRAT( 534 ) ! PROPENE+O3P=0.5500D+00*MEK+... & + 7.2500D-01 * RXRAT( 547 ) ! IEPOXOO+HO2=0.7250D+00*MEK+... & + 7.2500D-01 * RXRAT( 548 ) ! IEPOXOO+NO=0.7250D+00*MEK+... & + 3.6300D-01 * RXRAT( 549 ) ! IEPOXOO+MEO2=0.3630D+... & + 3.6300D-01 * RXRAT( 550 ) ! IEPOXOO+RO2C=0.3630D+... & + 7.2500D-01 * RXRAT( 551 ) ! IEPOXOO+MECO3=0.7250D+... & + 8.0000D-03 * RXRAT( 553 ) ! APIN+O3=0.8000D-02*MEK+... & + 9.0000D-03 * RXRAT( 572 ) ! OLE1+O3=0.9000D-02*MEK+... & + 3.9000D-01 * RXRAT( 574 ) ! OLE1+O3P=0.3900D+00*MEK+... & + 3.3000D-02 * RXRAT( 576 ) ! OLE2+O3=0.3300D-01*MEK+... & + 7.5100D-01 * RXRAT( 578 ) ! OLE2+O3P=0.7510D+00*MEK+... & + 2.0000D-03 * RXRAT( 583 ) ! TERP+O3=0.2000D-02*MEK+... & + 2.0000D-03 * RXRAT( 587 ) ! SESQ+O3=0.2000D-02*MEK+... & + 1.8000D-02 * RXRAT( 618 ) ! RNO3+CL=0.1800D-01*MEK+... LOSS( MEK ) = RXRAT( 216 ) ! MEK+OH=0.9670D+00*RO2C+... & + RXRAT( 217 ) ! MEK=MECO3+RO2C+xHO2+xCCHO+... & + RXRAT( 617 ) ! MEK+CL=HCL+0.9750D+00*RO2C+... PROD( zRNO3 ) = 3.9000D-02 * RXRAT( 216 ) ! MEK+OH=0.3900D-01*zRNO3+... & + 4.0000D-03 * RXRAT( 224 ) ! ROOH+OH=0.4000D-02*zRNO3+... & + 2.9000D-02 * RXRAT( 226 ) ! R6OOH+OH=0.2900D-01*zRNO3+... & + 7.7000D-02 * RXRAT( 227 ) ! R6OOH=0.7700D-01*zRNO3+... & + 1.2400D-01 * RXRAT( 228 ) ! RAOOH+OH=0.1240D+00*zRNO3+... & + 6.0000D-02 * RXRAT( 246 ) ! AFG1+OH=0.6000D-01*zRNO3+... & + 6.0000D-02 * RXRAT( 249 ) ! AFG2+OH=0.6000D-01*zRNO3+... & + 1.1700D-01 * RXRAT( 252 ) ! AFG3+OH=0.1170D+00*zRNO3+... & + 7.0000D-03 * RXRAT( 253 ) ! AFG3+O3=0.7000D-02*zRNO3+... & + 2.5000D-02 * RXRAT( 259 ) ! MVK+OH=0.2500D-01*zRNO3+... & + 4.1000D-02 * RXRAT( 263 ) ! IPRD+OH=0.4100D-01*zRNO3+... & + 5.1000D-02 * RXRAT( 265 ) ! IPRD+NO3=0.5100D-01*zRNO3+... & + 7.1000D-02 * RXRAT( 267 ) ! PRD2+OH=0.7100D-01*zRNO3+... & + 8.7000D-02 * RXRAT( 268 ) ! PRD2=0.8700D-01*zRNO3+... & + 1.7500D-01 * RXRAT( 269 ) ! RNO3+OH=0.1750D+00*zRNO3+... & + 1.0200D-01 * RXRAT( 270 ) ! RNO3=0.1020D+00*zRNO3+... & + 2.0000D-03 * RXRAT( 276 ) ! ACROLEIN+NO3=0.2000D-... & + 1.6000D-02 * RXRAT( 531 ) ! PROPENE+OH=0.1600D-... & + 5.1000D-02 * RXRAT( 533 ) ! PROPENE+NO3=0.5100D-... & + 4.9000D-02 * RXRAT( 535 ) ! BUTADIENE13+OH=0.4900D-... & + 6.5000D-02 * RXRAT( 537 ) ! BUTADIENE13+NO3=0.6500D-... & + 1.5000D-02 * RXRAT( 538 ) ! BUTADIENE13+O3P=0.1500D-... & + 9.3000D-02 * RXRAT( 539 ) ! ISOPRENE+OH=0.9300D-... & + 8.0000D-03 * RXRAT( 540 ) ! ISOPRENE+O3=0.8000D-... & + 6.4000D-02 * RXRAT( 541 ) ! ISOPRENE+NO3=0.6400D-... & + 1.0000D-02 * RXRAT( 542 ) ! ISOPRENE+O3P=0.1000D-... & + 1.9700D-01 * RXRAT( 552 ) ! APIN+OH=0.1970D+00*zRNO3+... & + 3.3700D-01 * RXRAT( 553 ) ! APIN+O3=0.3370D+00*zRNO3+... & + 2.9300D-01 * RXRAT( 554 ) ! APIN+NO3=0.2930D+00*zRNO3+... & + 2.4000D-02 * RXRAT( 558 ) ! BENZENE+OH=0.2400D-... & + 5.4000D-02 * RXRAT( 559 ) ! TOLUENE+OH=0.5400D-... & + 8.2000D-02 * RXRAT( 560 ) ! MXYL+OH=0.8200D-01*zRNO3+... & + 8.7000D-02 * RXRAT( 561 ) ! OXYL+OH=0.8700D-01*zRNO3+... & + 7.6000D-02 * RXRAT( 562 ) ! PXYL+OH=0.7600D-01*zRNO3+... & + 1.2100D-01 * RXRAT( 563 ) ! TMBENZ124+OH=0.1210D+... & + 3.5000D-02 * RXRAT( 566 ) ! ALK2+OH=0.3500D-01*zRNO3+... & + 7.0000D-02 * RXRAT( 567 ) ! ALK3+OH=0.7000D-01*zRNO3+... & + 1.4900D-01 * RXRAT( 568 ) ! ALK4+OH=0.1490D+00*zRNO3+... & + 3.5300D-01 * RXRAT( 569 ) ! ALK5+OH=0.3530D+00*zRNO3+... & + 1.2800D-01 * RXRAT( 571 ) ! OLE1+OH=0.1280D+00*zRNO3+... & + 5.0000D-03 * RXRAT( 572 ) ! OLE1+O3=0.5000D-02*zRNO3+... & + 2.2800D-01 * RXRAT( 573 ) ! OLE1+NO3=0.2280D+00*zRNO3+... & + 8.8000D-02 * RXRAT( 575 ) ! OLE2+OH=0.8800D-01*zRNO3+... & + 3.0000D-03 * RXRAT( 576 ) ! OLE2+O3=0.3000D-02*zRNO3+... & + 1.4000D-01 * RXRAT( 577 ) ! OLE2+NO3=0.1400D+00*zRNO3+... & + 1.1000D-01 * RXRAT( 579 ) ! ARO1+OH=0.1100D+00*zRNO3+... & + 1.2800D-01 * RXRAT( 580 ) ! ARO2MN+OH=0.1280D+00*zRNO3+... & + 1.2800D-01 * RXRAT( 581 ) ! NAPHTHAL+OH=0.1280D+... & + 2.0100D-01 * RXRAT( 582 ) ! TERP+OH=0.2010D+00*zRNO3+... & + 1.2100D-01 * RXRAT( 583 ) ! TERP+O3=0.1210D+00*zRNO3+... & + 4.6000D-01 * RXRAT( 584 ) ! TERP+NO3=0.4600D+00*zRNO3+... & + 2.0100D-01 * RXRAT( 586 ) ! SESQ+OH=0.2010D+00*zRNO3+... & + 1.2100D-01 * RXRAT( 587 ) ! SESQ+O3=0.1210D+00*zRNO3+... & + 4.6000D-01 * RXRAT( 588 ) ! SESQ+NO3=0.4600D+00*zRNO3+... & + 3.9000D-02 * RXRAT( 617 ) ! MEK+CL=0.3900D-01*zRNO3+... & + 2.0200D-01 * RXRAT( 618 ) ! RNO3+CL=0.2020D+00*zRNO3+... & + 1.1600D-01 * RXRAT( 619 ) ! PRD2+CL=0.1160D+00*zRNO3+... & + 1.1700D-01 * RXRAT( 625 ) ! R6OOH+CL=0.1170D+00*zRNO3+... & + 1.2400D-01 * RXRAT( 626 ) ! RAOOH+CL=0.1240D+00*zRNO3+... & + 2.6000D-02 * RXRAT( 627 ) ! ACROLEIN+CL=0.2600D-... & + 3.3000D-02 * RXRAT( 628 ) ! MACR+CL=0.3300D-01*zRNO3+... & + 5.3000D-02 * RXRAT( 629 ) ! MVK+CL=0.5300D-01*zRNO3+... & + 5.1000D-02 * RXRAT( 630 ) ! IPRD+CL=0.5100D-01*zRNO3+... & + 2.9000D-02 * RXRAT( 667 ) ! PROPENE+CL=0.2900D-... & + 6.9000D-02 * RXRAT( 668 ) ! BUTADIENE13+CL=0.6900D-... & + 8.5000D-02 * RXRAT( 669 ) ! ISOPRENE+CL=0.8500D-... & + 5.8200D-01 * RXRAT( 670 ) ! APIN+CL=0.5820D+00*zRNO3+... & + 1.0600D-01 * RXRAT( 672 ) ! TOLUENE+CL=0.1060D+... & + 1.3600D-01 * RXRAT( 673 ) ! MXYL+CL=0.1360D+00*zRNO3+... & + 1.3600D-01 * RXRAT( 674 ) ! OXYL+CL=0.1360D+00*zRNO3+... & + 1.3600D-01 * RXRAT( 675 ) ! PXYL+CL=0.1360D+00*zRNO3+... & + 1.6200D-01 * RXRAT( 676 ) ! TMBENZ124+CL=0.1620D+... & + 3.0000D-02 * RXRAT( 679 ) ! ALK2+CL=0.3000D-01*zRNO3+... & + 7.0000D-02 * RXRAT( 680 ) ! ALK3+CL=0.7000D-01*zRNO3+... & + 1.6500D-01 * RXRAT( 681 ) ! ALK4+CL=0.1650D+00*zRNO3+... & + 3.5200D-01 * RXRAT( 682 ) ! ALK5+CL=0.3520D+00*zRNO3+... & + 1.2700D-01 * RXRAT( 683 ) ! OLE1+CL=0.1270D+00*zRNO3+... & + 1.0600D-01 * RXRAT( 684 ) ! OLE2+CL=0.1060D+00*zRNO3+... & + 1.6000D-01 * RXRAT( 685 ) ! ARO1+CL=0.1600D+00*zRNO3+... & + 1.7200D-01 * RXRAT( 686 ) ! ARO2MN+CL=0.1720D+00*zRNO3+... & + 1.7200D-01 * RXRAT( 687 ) ! NAPHTHAL+CL=0.1720D+... & + 5.8200D-01 * RXRAT( 688 ) ! TERP+CL=0.5820D+00*zRNO3+... & + 5.8200D-01 * RXRAT( 689 ) ! SESQ+CL=0.5820D+00*zRNO3+... LOSS( zRNO3 ) = RXRAT( 496 ) ! zRNO3+NO=NO+RNO3 & + RXRAT( 497 ) ! zRNO3+HO2=HO2 & + RXRAT( 498 ) ! zRNO3+NO3=NO3+PRD2+HO2 & + RXRAT( 499 ) ! zRNO3+MEO2=MEO2+0.5000D+... & + RXRAT( 500 ) ! zRNO3+RO2C=RO2C+0.5000D+... & + RXRAT( 501 ) ! zRNO3+RO2XC=RO2XC+0.5000D+... & + RXRAT( 502 ) ! zRNO3+MECO3=MECO3+PRD2+HO2 & + RXRAT( 503 ) ! zRNO3+RCO3=RCO3+PRD2+HO2 & + RXRAT( 504 ) ! zRNO3+BZCO3=BZCO3+PRD2+HO2 & + RXRAT( 505 ) ! zRNO3+MACO3=MACO3+PRD2+HO2 PROD( xRCHO ) = 3.7600D-01 * RXRAT( 216 ) ! MEK+OH=0.3760D+00*xRCHO+... & + 4.0000D-01 * RXRAT( 221 ) ! RCOOH+OH=0.4000D+00*xRCHO+... & + 2.0500D-01 * RXRAT( 224 ) ! ROOH+OH=0.2050D+00*xRCHO+... & + 7.5000D-02 * RXRAT( 226 ) ! R6OOH+OH=0.7500D-01*xRCHO+... & + 5.8000D-02 * RXRAT( 227 ) ! R6OOH=0.5800D-01*xRCHO+... & + 4.4800D-01 * RXRAT( 228 ) ! RAOOH+OH=0.4480D+00*xRCHO+... & + 4.0700D-01 * RXRAT( 246 ) ! AFG1+OH=0.4070D+00*xRCHO+... & + 4.0700D-01 * RXRAT( 249 ) ! AFG2+OH=0.4070D+00*xRCHO+... & + 1.3000D-02 * RXRAT( 263 ) ! IPRD+OH=0.1300D-01*xRCHO+... & + 2.1800D-01 * RXRAT( 265 ) ! IPRD+NO3=0.2180D+00*xRCHO+... & + 4.0200D-01 * RXRAT( 267 ) ! PRD2+OH=0.4020D+00*xRCHO+... & + 7.8000D-01 * RXRAT( 268 ) ! PRD2=0.7800D+00*xRCHO+... & + 3.6000D-02 * RXRAT( 269 ) ! RNO3+OH=0.3600D-01*xRCHO+... & + 6.3000D-02 * RXRAT( 270 ) ! RNO3=0.6300D-01*xRCHO+... & + 8.4000D-02 * RXRAT( 281 ) ! RCOOOH+OH=0.8400D-01*xRCHO+... & + RXRAT( 529 ) ! ETHENE+NO3=xRCHO+RO2C+xHO2+... & + 4.0000D-02 * RXRAT( 544 ) ! ISOPOOH+OH=0.4000D-... & + 7.7600D-01 * RXRAT( 552 ) ! APIN+OH=0.7760D+00*xRCHO+... & + 2.4000D-01 * RXRAT( 553 ) ! APIN+O3=0.2400D+00*xRCHO+... & + 6.8400D-01 * RXRAT( 554 ) ! APIN+NO3=0.6840D+00*xRCHO+... & + 2.6100D-01 * RXRAT( 566 ) ! ALK2+OH=0.2610D+00*xRCHO+... & + 1.2200D-01 * RXRAT( 567 ) ! ALK3+OH=0.1220D+00*xRCHO+... & + 2.3600D-01 * RXRAT( 568 ) ! ALK4+OH=0.2360D+00*xRCHO+... & + 2.0900D-01 * RXRAT( 569 ) ! ALK5+OH=0.2090D+00*xRCHO+... & + 6.6600D-01 * RXRAT( 571 ) ! OLE1+OH=0.6660D+00*xRCHO+... & + 4.4000D-02 * RXRAT( 572 ) ! OLE1+O3=0.4400D-01*xRCHO+... & + 3.0000D-03 * RXRAT( 573 ) ! OLE1+NO3=0.3000D-02*xRCHO+... & + 5.1000D-01 * RXRAT( 575 ) ! OLE2+OH=0.5100D+00*xRCHO+... & + 1.9000D-02 * RXRAT( 576 ) ! OLE2+O3=0.1900D-01*xRCHO+... & + 1.6300D-01 * RXRAT( 577 ) ! OLE2+NO3=0.1630D+00*xRCHO+... & + 3.8500D-01 * RXRAT( 582 ) ! TERP+OH=0.3850D+00*xRCHO+... & + 2.0800D-01 * RXRAT( 583 ) ! TERP+O3=0.2080D+00*xRCHO+... & + 4.0300D-01 * RXRAT( 584 ) ! TERP+NO3=0.4030D+00*xRCHO+... & + 3.8500D-01 * RXRAT( 586 ) ! SESQ+OH=0.3850D+00*xRCHO+... & + 2.0800D-01 * RXRAT( 587 ) ! SESQ+O3=0.2080D+00*xRCHO+... & + 4.0300D-01 * RXRAT( 588 ) ! SESQ+NO3=0.4030D+00*xRCHO+... & + 8.4000D-01 * RXRAT( 617 ) ! MEK+CL=0.8400D+00*xRCHO+... & + 2.0000D-02 * RXRAT( 618 ) ! RNO3+CL=0.2000D-01*xRCHO+... & + 5.9100D-01 * RXRAT( 619 ) ! PRD2+CL=0.5910D+00*xRCHO+... & + 1.9700D-01 * RXRAT( 624 ) ! ROOH+CL=0.1970D+00*xRCHO+... & + 6.7600D-01 * RXRAT( 625 ) ! R6OOH+CL=0.6760D+00*xRCHO+... & + 4.4800D-01 * RXRAT( 626 ) ! RAOOH+CL=0.4480D+00*xRCHO+... & + 1.8500D-01 * RXRAT( 670 ) ! APIN+CL=0.1850D+00*xRCHO+... & + 4.8200D-01 * RXRAT( 679 ) ! ALK2+CL=0.4820D+00*xRCHO+... & + 3.4300D-01 * RXRAT( 680 ) ! ALK3+CL=0.3430D+00*xRCHO+... & + 4.1200D-01 * RXRAT( 681 ) ! ALK4+CL=0.4120D+00*xRCHO+... & + 2.5800D-01 * RXRAT( 682 ) ! ALK5+CL=0.2580D+00*xRCHO+... & + 7.2000D-02 * RXRAT( 683 ) ! OLE1+CL=0.7200D-01*xRCHO+... & + 3.1700D-01 * RXRAT( 684 ) ! OLE2+CL=0.3170D+00*xRCHO+... & + 1.8500D-01 * RXRAT( 688 ) ! TERP+CL=0.1850D+00*xRCHO+... & + 1.8500D-01 * RXRAT( 689 ) ! SESQ+CL=0.1850D+00*xRCHO+... LOSS( xRCHO ) = RXRAT( 306 ) ! xRCHO+NO=NO+RCHO & + RXRAT( 307 ) ! xRCHO+HO2=HO2 & + RXRAT( 308 ) ! xRCHO+NO3=NO3+RCHO & + RXRAT( 309 ) ! xRCHO+MEO2=MEO2+0.5000D+... & + RXRAT( 310 ) ! xRCHO+RO2C=RO2C+0.5000D+... & + RXRAT( 311 ) ! xRCHO+RO2XC=RO2XC+0.5000D+... & + RXRAT( 312 ) ! xRCHO+MECO3=MECO3+RCHO & + RXRAT( 313 ) ! xRCHO+RCO3=RCO3+RCHO & + RXRAT( 314 ) ! xRCHO+BZCO3=BZCO3+RCHO & + RXRAT( 315 ) ! xRCHO+MACO3=MACO3+RCHO PROD( HCOOH ) = 3.3300D-01 * RXRAT( 255 ) ! MACR+O3=0.3330D+00*HCOOH+... & + 3.5100D-01 * RXRAT( 260 ) ! MVK+O3=0.3510D+00*HCOOH+... & + 1.0000D-01 * RXRAT( 264 ) ! IPRD+O3=0.1000D+00*HCOOH+... & + 1.8500D-01 * RXRAT( 275 ) ! ACROLEIN+O3=0.1850D+... & + 3.7000D-01 * RXRAT( 528 ) ! ETHENE+O3=0.3700D+00*HCOOH+... & + 1.8500D-01 * RXRAT( 532 ) ! PROPENE+O3=0.1850D+... & + 1.8500D-01 * RXRAT( 536 ) ! BUTADIENE13+O3=0.1850D+... & + 2.0400D-01 * RXRAT( 540 ) ! ISOPRENE+O3=0.2040D+... & + 7.4000D-02 * RXRAT( 547 ) ! IEPOXOO+HO2=0.7400D-... & + 7.4000D-02 * RXRAT( 548 ) ! IEPOXOO+NO=0.7400D-... & + 3.7000D-02 * RXRAT( 549 ) ! IEPOXOO+MEO2=0.3700D-... & + 3.7000D-02 * RXRAT( 550 ) ! IEPOXOO+RO2C=0.3700D-... & + 7.4000D-02 * RXRAT( 551 ) ! IEPOXOO+MECO3=0.7400D-... & + 3.0000D-01 * RXRAT( 556 ) ! ACETYLENE+OH=0.3000D+... & + 1.8500D-01 * RXRAT( 572 ) ! OLE1+O3=0.1850D+00*HCOOH+... & + 2.4000D-02 * RXRAT( 576 ) ! OLE2+O3=0.2400D-01*HCOOH+... & + 1.7200D-01 * RXRAT( 583 ) ! TERP+O3=0.1720D+00*HCOOH+... & + 1.7200D-01 * RXRAT( 587 ) ! SESQ+O3=0.1720D+00*HCOOH+... LOSS( HCOOH ) = RXRAT( 219 ) ! HCOOH+OH=HO2+CO2 PROD( xMGLY ) = 4.9100D-01 * RXRAT( 220 ) ! CCOOH+OH=0.4910D+00*xMGLY+... & + 2.5200D-01 * RXRAT( 228 ) ! RAOOH+OH=0.2520D+00*xMGLY+... & + 2.5000D-01 * RXRAT( 238 ) ! CRES+OH=0.2500D+00*xMGLY+... & + 2.6700D-01 * RXRAT( 246 ) ! AFG1+OH=0.2670D+00*xMGLY+... & + 2.6700D-01 * RXRAT( 249 ) ! AFG2+OH=0.2670D+00*xMGLY+... & + 1.5300D-01 * RXRAT( 252 ) ! AFG3+OH=0.1530D+00*xMGLY+... & + 9.5000D-02 * RXRAT( 253 ) ! AFG3+O3=0.9500D-01*xMGLY+... & + 8.4000D-02 * RXRAT( 254 ) ! MACR+OH=0.8400D-01*xMGLY+... & + 3.0000D-01 * RXRAT( 259 ) ! MVK+OH=0.3000D+00*xMGLY+... & + 1.7400D-01 * RXRAT( 263 ) ! IPRD+OH=0.1740D+00*xMGLY+... & + 8.0000D-03 * RXRAT( 265 ) ! IPRD+NO3=0.8000D-02*xMGLY+... & + 2.0000D-02 * RXRAT( 552 ) ! APIN+OH=0.2000D-01*xMGLY+... & + 2.0000D-03 * RXRAT( 554 ) ! APIN+NO3=0.2000D-02*xMGLY+... & + 1.5100D-01 * RXRAT( 559 ) ! TOLUENE+OH=0.1510D+... & + 3.8000D-01 * RXRAT( 560 ) ! MXYL+OH=0.3800D+00*xMGLY+... & + 2.3800D-01 * RXRAT( 561 ) ! OXYL+OH=0.2380D+00*xMGLY+... & + 1.1200D-01 * RXRAT( 562 ) ! PXYL+OH=0.1120D+00*xMGLY+... & + 4.0500D-01 * RXRAT( 563 ) ! TMBENZ124+OH=0.4050D+... & + 1.0000D-01 * RXRAT( 579 ) ! ARO1+OH=0.1000D+00*xMGLY+... & + 3.1200D-01 * RXRAT( 580 ) ! ARO2MN+OH=0.3120D+00*xMGLY+... & + 3.1200D-01 * RXRAT( 581 ) ! NAPHTHAL+OH=0.3120D+... & + 3.0000D-03 * RXRAT( 582 ) ! TERP+OH=0.3000D-02*xMGLY+... & + 3.0000D-03 * RXRAT( 583 ) ! TERP+O3=0.3000D-02*xMGLY+... & + 3.0000D-03 * RXRAT( 586 ) ! SESQ+OH=0.3000D-02*xMGLY+... & + 3.0000D-03 * RXRAT( 587 ) ! SESQ+O3=0.3000D-02*xMGLY+... & + 2.5200D-01 * RXRAT( 626 ) ! RAOOH+CL=0.2520D+00*xMGLY+... & + 1.7000D-02 * RXRAT( 630 ) ! IPRD+CL=0.1700D-01*xMGLY+... LOSS( xMGLY ) = RXRAT( 356 ) ! xMGLY+NO=NO+MGLY & + RXRAT( 357 ) ! xMGLY+HO2=HO2 & + RXRAT( 358 ) ! xMGLY+NO3=NO3+MGLY & + RXRAT( 359 ) ! xMGLY+MEO2=MEO2+0.5000D+... & + RXRAT( 360 ) ! xMGLY+RO2C=RO2C+0.5000D+... & + RXRAT( 361 ) ! xMGLY+RO2XC=RO2XC+0.5000D+... & + RXRAT( 362 ) ! xMGLY+MECO3=MECO3+MGLY & + RXRAT( 363 ) ! xMGLY+RCO3=RCO3+MGLY & + RXRAT( 364 ) ! xMGLY+BZCO3=BZCO3+MGLY & + RXRAT( 365 ) ! xMGLY+MACO3=MACO3+MGLY PROD( xBACL ) = 4.5700D-01 * RXRAT( 221 ) ! RCOOH+OH=0.4570D+00*xBACL+... & + 1.9000D-02 * RXRAT( 252 ) ! AFG3+OH=0.1900D-01*xBACL+... & + 2.3000D-02 * RXRAT( 552 ) ! APIN+OH=0.2300D-01*xBACL+... & + 8.1000D-02 * RXRAT( 553 ) ! APIN+O3=0.8100D-01*xBACL+... & + 1.8500D-01 * RXRAT( 561 ) ! OXYL+OH=0.1850D+00*xBACL+... & + 1.1200D-01 * RXRAT( 563 ) ! TMBENZ124+OH=0.1120D+... & + 1.3400D-01 * RXRAT( 580 ) ! ARO2MN+OH=0.1340D+00*xBACL+... & + 1.3400D-01 * RXRAT( 581 ) ! NAPHTHAL+OH=0.1340D+... & + 9.0000D-03 * RXRAT( 582 ) ! TERP+OH=0.9000D-02*xBACL+... & + 3.9000D-02 * RXRAT( 583 ) ! TERP+O3=0.3900D-01*xBACL+... & + 9.0000D-03 * RXRAT( 586 ) ! SESQ+OH=0.9000D-02*xBACL+... & + 3.9000D-02 * RXRAT( 587 ) ! SESQ+O3=0.3900D-01*xBACL+... & + 3.0000D-03 * RXRAT( 670 ) ! APIN+CL=0.3000D-02*xBACL+... & + 3.0000D-03 * RXRAT( 688 ) ! TERP+CL=0.3000D-02*xBACL+... & + 3.0000D-03 * RXRAT( 689 ) ! SESQ+CL=0.3000D-02*xBACL+... LOSS( xBACL ) = RXRAT( 366 ) ! xBACL+NO=NO+BACL & + RXRAT( 367 ) ! xBACL+HO2=HO2 & + RXRAT( 368 ) ! xBACL+NO3=NO3+BACL & + RXRAT( 369 ) ! xBACL+MEO2=MEO2+0.5000D+... & + RXRAT( 370 ) ! xBACL+RO2C=RO2C+0.5000D+... & + RXRAT( 371 ) ! xBACL+RO2XC=RO2XC+0.5000D+... & + RXRAT( 372 ) ! xBACL+MECO3=MECO3+BACL & + RXRAT( 373 ) ! xBACL+RCO3=RCO3+BACL & + RXRAT( 374 ) ! xBACL+BZCO3=BZCO3+BACL & + RXRAT( 375 ) ! xBACL+MACO3=MACO3+BACL PROD( ROOH ) = RXRAT( 457 ) ! yROOH+HO2=ROOH+HO2 LOSS( ROOH ) = RXRAT( 224 ) ! ROOH+OH=0.7440D+00*OH+... & + RXRAT( 225 ) ! ROOH=RCHO+HO2+OH & + RXRAT( 624 ) ! ROOH+CL=HCL+0.4140D+00*OH+... PROD( xPROD2 ) = 3.4000D-02 * RXRAT( 224 ) ! ROOH+OH=0.3400D-01*xPROD2+... & + 8.4000D-02 * RXRAT( 226 ) ! R6OOH+OH=0.8400D-01*xPROD2+... & + 6.9800D-01 * RXRAT( 227 ) ! R6OOH=0.6980D+00*xPROD2+... & + 3.3200D-01 * RXRAT( 263 ) ! IPRD+OH=0.3320D+00*xPROD2+... & + 7.0000D-03 * RXRAT( 267 ) ! PRD2+OH=0.7000D-02*xPROD2+... & + 3.1000D-02 * RXRAT( 269 ) ! RNO3+OH=0.3100D-01*xPROD2+... & + 2.6100D-01 * RXRAT( 270 ) ! RNO3=0.2610D+00*xPROD2+... & + 1.4600D-01 * RXRAT( 568 ) ! ALK4+OH=0.1460D+00*xPROD2+... & + 4.0700D-01 * RXRAT( 569 ) ! ALK5+OH=0.4070D+00*xPROD2+... & + 1.6800D-01 * RXRAT( 571 ) ! OLE1+OH=0.1680D+00*xPROD2+... & + 2.3000D-02 * RXRAT( 575 ) ! OLE2+OH=0.2300D-01*xPROD2+... & + 3.0900D-01 * RXRAT( 579 ) ! ARO1+OH=0.3090D+00*xPROD2+... & + 5.7000D-02 * RXRAT( 580 ) ! ARO2MN+OH=0.5700D-... & + 5.7000D-02 * RXRAT( 581 ) ! NAPHTHAL+OH=0.5700D-... & + 4.0900D-01 * RXRAT( 582 ) ! TERP+OH=0.4090D+00*xPROD2+... & + 4.0900D-01 * RXRAT( 586 ) ! SESQ+OH=0.4090D+00*xPROD2+... & + 4.6000D-02 * RXRAT( 618 ) ! RNO3+CL=0.4600D-01*xPROD2+... & + 4.0000D-02 * RXRAT( 619 ) ! PRD2+CL=0.4000D-01*xPROD2+... & + 2.8000D-01 * RXRAT( 625 ) ! R6OOH+CL=0.2800D+00*xPROD2+... & + 1.3000D-01 * RXRAT( 681 ) ! ALK4+CL=0.1300D+00*xPROD2+... & + 3.7800D-01 * RXRAT( 682 ) ! ALK5+CL=0.3780D+00*xPROD2+... & + 8.4000D-01 * RXRAT( 685 ) ! ARO1+CL=0.8400D+00*xPROD2+... & + 3.5900D-01 * RXRAT( 686 ) ! ARO2MN+CL=0.3590D+... & + 3.5900D-01 * RXRAT( 687 ) ! NAPHTHAL+CL=0.3590D+... LOSS( xPROD2 ) = RXRAT( 336 ) ! xPROD2+NO=NO+PRD2 & + RXRAT( 337 ) ! xPROD2+HO2=HO2 & + RXRAT( 338 ) ! xPROD2+NO3=NO3+PRD2 & + RXRAT( 339 ) ! xPROD2+MEO2=MEO2+0.5000D+... & + RXRAT( 340 ) ! xPROD2+RO2C=RO2C+0.5000D+... & + RXRAT( 341 ) ! xPROD2+RO2XC=RO2XC+0.5000D+... & + RXRAT( 342 ) ! xPROD2+MECO3=MECO3+PRD2 & + RXRAT( 343 ) ! xPROD2+RCO3=RCO3+PRD2 & + RXRAT( 344 ) ! xPROD2+BZCO3=BZCO3+PRD2 & + RXRAT( 345 ) ! xPROD2+MACO3=MACO3+PRD2 PROD( R6OOH ) = RXRAT( 467 ) ! yR6OOH+HO2=R6OOH+HO2 LOSS( R6OOH ) = RXRAT( 226 ) ! R6OOH+OH=0.8400D+00*OH+... & + RXRAT( 227 ) ! R6OOH=OH+0.1420D+00*HO2+... & + RXRAT( 625 ) ! R6OOH+CL=HCL+0.1450D+00*OH+... PROD( PRD2 ) = 8.4000D-01 * RXRAT( 226 ) ! R6OOH+OH=0.8400D+00*PRD2+... & + 1.4200D-01 * RXRAT( 227 ) ! R6OOH=0.1420D+00*PRD2+... & + 7.4000D-02 * RXRAT( 228 ) ! RAOOH+OH=0.7400D-01*PRD2+... & + RXRAT( 251 ) ! AFG2=PRD2 & + 6.0000D-01 * RXRAT( 262 ) ! MVK=0.6000D+00*PRD2+... & + 8.0000D-03 * RXRAT( 269 ) ! RNO3+OH=0.8000D-02*PRD2+... & + 1.9000D-01 * RXRAT( 270 ) ! RNO3=0.1900D+00*PRD2+... & + RXRAT( 336 ) ! xPROD2+NO=PRD2+NO & + RXRAT( 338 ) ! xPROD2+NO3=PRD2+NO3 & + 5.0000D-01 * RXRAT( 339 ) ! xPROD2+MEO2=0.5000D+... & + 5.0000D-01 * RXRAT( 340 ) ! xPROD2+RO2C=0.5000D+... & + 5.0000D-01 * RXRAT( 341 ) ! xPROD2+RO2XC=0.5000D+... & + RXRAT( 342 ) ! xPROD2+MECO3=PRD2+MECO3 & + RXRAT( 343 ) ! xPROD2+RCO3=PRD2+RCO3 & + RXRAT( 344 ) ! xPROD2+BZCO3=PRD2+BZCO3 & + RXRAT( 345 ) ! xPROD2+MACO3=PRD2+MACO3 & + 5.0000D-01 * RXRAT( 469 ) ! yR6OOH+MEO2=0.5000D+... & + 5.0000D-01 * RXRAT( 470 ) ! yR6OOH+RO2C=0.5000D+... & + 5.0000D-01 * RXRAT( 471 ) ! yR6OOH+RO2XC=0.5000D+... & + 5.0000D-01 * RXRAT( 479 ) ! yISOPOOH+MEO2=0.5000D+... & + 5.0000D-01 * RXRAT( 480 ) ! yISOPOOH+RO2C=0.5000D+... & + 5.0000D-01 * RXRAT( 481 ) ! yISOPOOH+RO2XC=0.5000D+... & + 5.0000D-01 * RXRAT( 489 ) ! yRAOOH+MEO2=0.5000D+... & + 5.0000D-01 * RXRAT( 490 ) ! yRAOOH+RO2C=0.5000D+... & + 5.0000D-01 * RXRAT( 491 ) ! yRAOOH+RO2XC=0.5000D+... & + RXRAT( 498 ) ! zRNO3+NO3=PRD2+NO3+HO2 & + 5.0000D-01 * RXRAT( 499 ) ! zRNO3+MEO2=0.5000D+00*PRD2+... & + 5.0000D-01 * RXRAT( 500 ) ! zRNO3+RO2C=0.5000D+00*PRD2+... & + 5.0000D-01 * RXRAT( 501 ) ! zRNO3+RO2XC=0.5000D+... & + RXRAT( 502 ) ! zRNO3+MECO3=PRD2+MECO3+HO2 & + RXRAT( 503 ) ! zRNO3+RCO3=PRD2+RCO3+HO2 & + RXRAT( 504 ) ! zRNO3+BZCO3=PRD2+BZCO3+HO2 & + RXRAT( 505 ) ! zRNO3+MACO3=PRD2+MACO3+HO2 & + 1.2500D-01 * RXRAT( 536 ) ! BUTADIENE13+O3=0.1250D+... & + 7.5000D-01 * RXRAT( 538 ) ! BUTADIENE13+O3P=0.7500D+... & + 1.0000D-01 * RXRAT( 540 ) ! ISOPRENE+O3=0.1000D+... & + 7.5000D-01 * RXRAT( 542 ) ! ISOPRENE+O3P=0.7500D+... & + 5.0000D-01 * RXRAT( 549 ) ! IEPOXOO+MEO2=0.5000D+... & + 5.0000D-01 * RXRAT( 550 ) ! IEPOXOO+RO2C=0.5000D+... & + 2.5500D-01 * RXRAT( 553 ) ! APIN+O3=0.2550D+00*PRD2+... & + RXRAT( 555 ) ! APIN+O3P=PRD2+TRPRXN & + 2.6800D-01 * RXRAT( 572 ) ! OLE1+O3=0.2680D+00*PRD2+... & + 1.6000D-01 * RXRAT( 574 ) ! OLE1+O3P=0.1600D+00*PRD2+... & + 3.7000D-02 * RXRAT( 576 ) ! OLE2+O3=0.3700D-01*PRD2+... & + 1.7000D-01 * RXRAT( 578 ) ! OLE2+O3P=0.1700D+00*PRD2+... & + 5.0200D-01 * RXRAT( 583 ) ! TERP+O3=0.5020D+00*PRD2+... & + 7.6300D-01 * RXRAT( 585 ) ! TERP+O3P=0.7630D+00*PRD2+... & + 5.0200D-01 * RXRAT( 587 ) ! SESQ+O3=0.5020D+00*PRD2+... & + 7.6300D-01 * RXRAT( 589 ) ! SESQ+O3P=0.7630D+00*PRD2+... & + 1.2000D-02 * RXRAT( 618 ) ! RNO3+CL=0.1200D-01*PRD2+... & + 1.4500D-01 * RXRAT( 625 ) ! R6OOH+CL=0.1450D+00*PRD2+... & + 7.4000D-02 * RXRAT( 626 ) ! RAOOH+CL=0.7400D-01*PRD2+... LOSS( PRD2 ) = 6.7100D-01 * RXRAT( 267 ) ! PRD2+OH=0.3290D+00*PRD2+... & + RXRAT( 268 ) ! PRD2=0.9130D+00*xHO2+... & + 8.8400D-01 * RXRAT( 619 ) ! PRD2+CL=0.1160D+00*PRD2+... PROD( yR6OOH ) = 8.5800D-01 * RXRAT( 227 ) ! R6OOH=0.8580D+00*yR6OOH+... & + 7.1300D-01 * RXRAT( 228 ) ! RAOOH+OH=0.7130D+00*yR6OOH+... & + 8.0000D-01 * RXRAT( 238 ) ! CRES+OH=0.8000D+00*yR6OOH+... & + 7.8300D-01 * RXRAT( 246 ) ! AFG1+OH=0.7830D+00*yR6OOH+... & + 6.5200D-01 * RXRAT( 247 ) ! AFG1+O3=0.6520D+00*yR6OOH+... & + 7.8300D-01 * RXRAT( 249 ) ! AFG2+OH=0.7830D+00*yR6OOH+... & + 6.5200D-01 * RXRAT( 250 ) ! AFG2+O3=0.6520D+00*yR6OOH+... & + 7.9400D-01 * RXRAT( 252 ) ! AFG3+OH=0.7940D+00*yR6OOH+... & + 2.6400D-01 * RXRAT( 253 ) ! AFG3+O3=0.2640D+00*yR6OOH+... & + 7.1100D-01 * RXRAT( 263 ) ! IPRD+OH=0.7110D+00*yR6OOH+... & + 4.8000D-02 * RXRAT( 264 ) ! IPRD+O3=0.4800D-01*yR6OOH+... & + 8.5000D-01 * RXRAT( 265 ) ! IPRD+NO3=0.8500D+00*yR6OOH+... & + 5.2800D-01 * RXRAT( 267 ) ! PRD2+OH=0.5280D+00*yR6OOH+... & + RXRAT( 268 ) ! PRD2=yR6OOH+0.4000D+... & + 6.3600D-01 * RXRAT( 269 ) ! RNO3+OH=0.6360D+00*yR6OOH+... & + 5.9100D-01 * RXRAT( 270 ) ! RNO3=0.5910D+00*yR6OOH+... & + 2.0000D-01 * RXRAT( 540 ) ! ISOPRENE+O3=0.2000D+... & + RXRAT( 541 ) ! ISOPRENE+NO3=yR6OOH+... & + 2.5000D-01 * RXRAT( 542 ) ! ISOPRENE+O3P=0.2500D+... & + RXRAT( 552 ) ! APIN+OH=yR6OOH+0.4000D-... & + 7.3700D-01 * RXRAT( 553 ) ! APIN+O3=0.7370D+00*yR6OOH+... & + RXRAT( 554 ) ! APIN+NO3=yR6OOH+0.6430D+... & + 7.3000D-02 * RXRAT( 559 ) ! TOLUENE+OH=0.7300D-... & + 4.7000D-02 * RXRAT( 560 ) ! MXYL+OH=0.4700D-01*yR6OOH+... & + 5.5000D-02 * RXRAT( 561 ) ! OXYL+OH=0.5500D-01*yR6OOH+... & + 1.0200D-01 * RXRAT( 562 ) ! PXYL+OH=0.1020D+00*yR6OOH+... & + 4.3000D-02 * RXRAT( 563 ) ! TMBENZ124+OH=0.4300D-... & + 1.7000D-02 * RXRAT( 567 ) ! ALK3+OH=0.1700D-01*yR6OOH+... & + RXRAT( 568 ) ! ALK4+OH=yR6OOH+0.1000D-... & + RXRAT( 569 ) ! ALK5+OH=yR6OOH+0.1605D+... & + 8.3100D-01 * RXRAT( 571 ) ! OLE1+OH=0.8310D+00*yR6OOH+... & + 5.2000D-02 * RXRAT( 572 ) ! OLE1+O3=0.5200D-01*yR6OOH+... & + 8.3100D-01 * RXRAT( 573 ) ! OLE1+NO3=0.8310D+00*yR6OOH+... & + 6.8100D-01 * RXRAT( 575 ) ! OLE2+OH=0.6810D+00*yR6OOH+... & + 1.3600D-01 * RXRAT( 576 ) ! OLE2+O3=0.1360D+00*yR6OOH+... & + 6.8100D-01 * RXRAT( 577 ) ! OLE2+NO3=0.6810D+00*yR6OOH+... & + 3.6900D-01 * RXRAT( 579 ) ! ARO1+OH=0.3690D+00*yR6OOH+... & + 1.0100D-01 * RXRAT( 580 ) ! ARO2MN+OH=0.1010D+... & + 1.0100D-01 * RXRAT( 581 ) ! NAPHTHAL+OH=0.1010D+... & + RXRAT( 582 ) ! TERP+OH=yR6OOH+0.6400D-... & + 4.2800D-01 * RXRAT( 583 ) ! TERP+O3=0.4280D+00*yR6OOH+... & + RXRAT( 584 ) ! TERP+NO3=yR6OOH+0.2870D+... & + RXRAT( 586 ) ! SESQ+OH=yR6OOH+0.6400D-... & + 4.2800D-01 * RXRAT( 587 ) ! SESQ+O3=0.4280D+00*yR6OOH+... & + RXRAT( 588 ) ! SESQ+NO3=yR6OOH+0.2870D+... & + 9.0800D-01 * RXRAT( 618 ) ! RNO3+CL=0.9080D+00*yR6OOH+... & + 6.8600D-01 * RXRAT( 619 ) ! PRD2+CL=0.6860D+00*yR6OOH+... & + RXRAT( 622 ) ! CRES+CL=yR6OOH+xHO2+xBALD+HCL & + 8.5500D-01 * RXRAT( 625 ) ! R6OOH+CL=0.8550D+00*yR6OOH+... & + 7.1300D-01 * RXRAT( 626 ) ! RAOOH+CL=0.7130D+00*yR6OOH+... & + 7.6200D-01 * RXRAT( 630 ) ! IPRD+CL=0.7620D+00*yR6OOH+... & + RXRAT( 669 ) ! ISOPRENE+CL=yR6OOH+0.7380D+... & + RXRAT( 670 ) ! APIN+CL=yR6OOH+0.2520D+... & + 1.7000D-02 * RXRAT( 680 ) ! ALK3+CL=0.1700D-01*yR6OOH+... & + RXRAT( 681 ) ! ALK4+CL=yR6OOH+0.8270D+... & + RXRAT( 682 ) ! ALK5+CL=yR6OOH+0.6470D+... & + 8.3100D-01 * RXRAT( 683 ) ! OLE1+CL=0.8310D+00*yR6OOH+... & + 6.8100D-01 * RXRAT( 684 ) ! OLE2+CL=0.6810D+00*yR6OOH+... & + RXRAT( 688 ) ! TERP+CL=yR6OOH+0.2520D+... & + RXRAT( 689 ) ! SESQ+CL=yR6OOH+0.6800D-... LOSS( yR6OOH ) = RXRAT( 466 ) ! yR6OOH+NO=NO & + RXRAT( 467 ) ! yR6OOH+HO2=HO2+R6OOH & + RXRAT( 468 ) ! yR6OOH+NO3=NO3 & + RXRAT( 469 ) ! yR6OOH+MEO2=MEO2+0.5000D+... & + RXRAT( 470 ) ! yR6OOH+RO2C=RO2C+0.5000D+... & + RXRAT( 471 ) ! yR6OOH+RO2XC=RO2XC+0.5000D+... & + RXRAT( 472 ) ! yR6OOH+MECO3=MECO3 & + RXRAT( 473 ) ! yR6OOH+RCO3=RCO3 & + RXRAT( 474 ) ! yR6OOH+BZCO3=BZCO3 & + RXRAT( 475 ) ! yR6OOH+MACO3=MACO3 PROD( RAOOH ) = RXRAT( 487 ) ! yRAOOH+HO2=RAOOH+HO2 LOSS( RAOOH ) = RXRAT( 228 ) ! RAOOH+OH=0.1390D+00*OH+... & + RXRAT( 229 ) ! RAOOH=OH+HO2+0.5000D+... & + RXRAT( 626 ) ! RAOOH+CL=0.4040D+00*HCL+... PROD( MGLY ) = 1.4700D-01 * RXRAT( 228 ) ! RAOOH+OH=0.1470D+00*MGLY+... & + 5.0000D-01 * RXRAT( 229 ) ! RAOOH=0.5000D+00*MGLY+HO2+... & + 5.6800D-01 * RXRAT( 247 ) ! AFG1+O3=0.5680D+00*MGLY+... & + 3.0500D-01 * RXRAT( 248 ) ! AFG1=0.3050D+00*MGLY+... & + 5.6800D-01 * RXRAT( 250 ) ! AFG2+O3=0.5680D+00*MGLY+... & + 1.8400D-01 * RXRAT( 253 ) ! AFG3+O3=0.1840D+00*MGLY+... & + 9.0000D-01 * RXRAT( 255 ) ! MACR+O3=0.9000D+00*MGLY+... & + 9.5000D-01 * RXRAT( 260 ) ! MVK+O3=0.9500D+00*MGLY+... & + 7.4200D-01 * RXRAT( 264 ) ! IPRD+O3=0.7420D+00*MGLY+... & + RXRAT( 356 ) ! xMGLY+NO=MGLY+NO & + RXRAT( 358 ) ! xMGLY+NO3=MGLY+NO3 & + 5.0000D-01 * RXRAT( 359 ) ! xMGLY+MEO2=0.5000D+00*MGLY+... & + 5.0000D-01 * RXRAT( 360 ) ! xMGLY+RO2C=0.5000D+00*MGLY+... & + 5.0000D-01 * RXRAT( 361 ) ! xMGLY+RO2XC=0.5000D+... & + RXRAT( 362 ) ! xMGLY+MECO3=MGLY+MECO3 & + RXRAT( 363 ) ! xMGLY+RCO3=MGLY+RCO3 & + RXRAT( 364 ) ! xMGLY+BZCO3=MGLY+BZCO3 & + RXRAT( 365 ) ! xMGLY+MACO3=MGLY+MACO3 & + 2.7500D-01 * RXRAT( 547 ) ! IEPOXOO+HO2=0.2750D+... & + 2.7500D-01 * RXRAT( 548 ) ! IEPOXOO+NO=0.2750D+00*MGLY+... & + 1.3800D-01 * RXRAT( 549 ) ! IEPOXOO+MEO2=0.1380D+... & + 1.3800D-01 * RXRAT( 550 ) ! IEPOXOO+RO2C=0.1380D+... & + 2.7500D-01 * RXRAT( 551 ) ! IEPOXOO+MECO3=0.2750D+... & + 1.4700D-01 * RXRAT( 626 ) ! RAOOH+CL=0.1470D+00*MGLY+... LOSS( MGLY ) = RXRAT( 234 ) ! MGLY=HO2+CO+MECO3 & + RXRAT( 235 ) ! MGLY+OH=CO+MECO3 & + RXRAT( 236 ) ! MGLY+NO3=HNO3+CO+MECO3 & + RXRAT( 621 ) ! MGLY+CL=HCL+CO+MECO3 PROD( IPRD ) = 1.3900D-01 * RXRAT( 228 ) ! RAOOH+OH=0.1390D+00*IPRD+... & + 3.0000D-03 * RXRAT( 253 ) ! AFG3+O3=0.3000D-02*IPRD+... & + RXRAT( 436 ) ! xIPRD+NO=IPRD+NO & + RXRAT( 438 ) ! xIPRD+NO3=IPRD+NO3 & + 5.0000D-01 * RXRAT( 439 ) ! xIPRD+MEO2=0.5000D+00*IPRD+... & + 5.0000D-01 * RXRAT( 440 ) ! xIPRD+RO2C=0.5000D+00*IPRD+... & + 5.0000D-01 * RXRAT( 441 ) ! xIPRD+RO2XC=0.5000D+... & + RXRAT( 442 ) ! xIPRD+MECO3=IPRD+MECO3 & + RXRAT( 443 ) ! xIPRD+RCO3=IPRD+RCO3 & + RXRAT( 444 ) ! xIPRD+BZCO3=IPRD+BZCO3 & + RXRAT( 445 ) ! xIPRD+MACO3=IPRD+MACO3 & + 1.5000D-01 * RXRAT( 540 ) ! ISOPRENE+O3=0.1500D+... & + 1.3900D-01 * RXRAT( 626 ) ! RAOOH+CL=0.1390D+00*IPRD+... LOSS( IPRD ) = RXRAT( 263 ) ! IPRD+OH=0.2890D+00*MACO3+... & + RXRAT( 264 ) ! IPRD+O3=0.2850D+00*OH+... & + RXRAT( 265 ) ! IPRD+NO3=0.1500D+00*MACO3+... & + RXRAT( 266 ) ! IPRD=0.1233D+01*HO2+... & + RXRAT( 630 ) ! IPRD+CL=0.4010D+00*HCL+... PROD( xGLY ) = 2.6000D-02 * RXRAT( 228 ) ! RAOOH+OH=0.2600D-01*xGLY+... & + 1.0700D-01 * RXRAT( 246 ) ! AFG1+OH=0.1070D+00*xGLY+... & + 1.0700D-01 * RXRAT( 249 ) ! AFG2+OH=0.1070D+00*xGLY+... & + 2.7400D-01 * RXRAT( 252 ) ! AFG3+OH=0.2740D+00*xGLY+... & + 1.5000D-01 * RXRAT( 263 ) ! IPRD+OH=0.1500D+00*xGLY+... & + 8.3000D-02 * RXRAT( 274 ) ! ACROLEIN+OH=0.8300D-... & + 1.2000D-02 * RXRAT( 530 ) ! ETHENE+O3P=0.1200D-01*xGLY+... & + 2.0000D-03 * RXRAT( 553 ) ! APIN+O3=0.2000D-02*xGLY+... & + 2.9000D-01 * RXRAT( 558 ) ! BENZENE+OH=0.2900D+00*xGLY+... & + 2.3800D-01 * RXRAT( 559 ) ! TOLUENE+OH=0.2380D+00*xGLY+... & + 1.0000D-01 * RXRAT( 560 ) ! MXYL+OH=0.1000D+00*xGLY+... & + 8.4000D-02 * RXRAT( 561 ) ! OXYL+OH=0.8400D-01*xGLY+... & + 2.8600D-01 * RXRAT( 562 ) ! PXYL+OH=0.2860D+00*xGLY+... & + 7.4000D-02 * RXRAT( 563 ) ! TMBENZ124+OH=0.7400D-... & + 1.5800D-01 * RXRAT( 579 ) ! ARO1+OH=0.1580D+00*xGLY+... & + 8.8000D-02 * RXRAT( 580 ) ! ARO2MN+OH=0.8800D-01*xGLY+... & + 8.8000D-02 * RXRAT( 581 ) ! NAPHTHAL+OH=0.8800D-... & + 2.6000D-02 * RXRAT( 626 ) ! RAOOH+CL=0.2600D-01*xGLY+... & + 2.7400D-01 * RXRAT( 627 ) ! ACROLEIN+CL=0.2740D+... & + 7.0000D-03 * RXRAT( 670 ) ! APIN+CL=0.7000D-02*xGLY+... & + 7.0000D-03 * RXRAT( 688 ) ! TERP+CL=0.7000D-02*xGLY+... & + 7.0000D-03 * RXRAT( 689 ) ! SESQ+CL=0.7000D-02*xGLY+... LOSS( xGLY ) = RXRAT( 346 ) ! xGLY+NO=NO+GLY & + RXRAT( 347 ) ! xGLY+HO2=HO2 & + RXRAT( 348 ) ! xGLY+NO3=NO3+GLY & + RXRAT( 349 ) ! xGLY+MEO2=MEO2+0.5000D+00*GLY & + RXRAT( 350 ) ! xGLY+RO2C=RO2C+0.5000D+00*GLY & + RXRAT( 351 ) ! xGLY+RO2XC=RO2XC+0.5000D+... & + RXRAT( 352 ) ! xGLY+MECO3=MECO3+GLY & + RXRAT( 353 ) ! xGLY+RCO3=RCO3+GLY & + RXRAT( 354 ) ! xGLY+BZCO3=BZCO3+GLY & + RXRAT( 355 ) ! xGLY+MACO3=MACO3+GLY PROD( xMEK ) = 3.0000D-02 * RXRAT( 228 ) ! RAOOH+OH=0.3000D-01*xMEK+... & + 1.2900D-01 * RXRAT( 246 ) ! AFG1+OH=0.1290D+00*xMEK+... & + 1.2900D-01 * RXRAT( 249 ) ! AFG2+OH=0.1290D+00*xMEK+... & + 4.1600D-01 * RXRAT( 254 ) ! MACR+OH=0.4160D+00*xMEK+... & + 1.5000D-01 * RXRAT( 263 ) ! IPRD+OH=0.1500D+00*xMEK+... & + 1.1500D-01 * RXRAT( 267 ) ! PRD2+OH=0.1150D+00*xMEK+... & + 1.7000D-01 * RXRAT( 269 ) ! RNO3+OH=0.1700D+00*xMEK+... & + 8.3000D-02 * RXRAT( 270 ) ! RNO3=0.8300D-01*xMEK+... & + 3.3200D-01 * RXRAT( 567 ) ! ALK3+OH=0.3320D+00*xMEK+... & + 1.0600D-01 * RXRAT( 568 ) ! ALK4+OH=0.1060D+00*xMEK+... & + 8.6000D-02 * RXRAT( 569 ) ! ALK5+OH=0.8600D-01*xMEK+... & + 8.0000D-02 * RXRAT( 575 ) ! OLE2+OH=0.8000D-01*xMEK+... & + 1.0000D-03 * RXRAT( 576 ) ! OLE2+O3=0.1000D-02*xMEK+... & + 2.0000D-03 * RXRAT( 577 ) ! OLE2+NO3=0.2000D-02*xMEK+... & + 7.0000D-03 * RXRAT( 582 ) ! TERP+OH=0.7000D-02*xMEK+... & + 7.0000D-03 * RXRAT( 586 ) ! SESQ+OH=0.7000D-02*xMEK+... & + 4.1000D-02 * RXRAT( 618 ) ! RNO3+CL=0.4100D-01*xMEK+... & + 5.1000D-02 * RXRAT( 619 ) ! PRD2+CL=0.5100D-01*xMEK+... & + 2.8500D-01 * RXRAT( 624 ) ! ROOH+CL=0.2850D+00*xMEK+... & + 3.0000D-02 * RXRAT( 626 ) ! RAOOH+CL=0.3000D-01*xMEK+... & + 2.5300D-01 * RXRAT( 680 ) ! ALK3+CL=0.2530D+00*xMEK+... & + 7.6000D-02 * RXRAT( 681 ) ! ALK4+CL=0.7600D-01*xMEK+... & + 4.1000D-02 * RXRAT( 682 ) ! ALK5+CL=0.4100D-01*xMEK+... & + 4.2000D-02 * RXRAT( 684 ) ! OLE2+CL=0.4200D-01*xMEK+... LOSS( xMEK ) = RXRAT( 326 ) ! xMEK+NO=NO+MEK & + RXRAT( 327 ) ! xMEK+HO2=HO2 & + RXRAT( 328 ) ! xMEK+NO3=NO3+MEK & + RXRAT( 329 ) ! xMEK+MEO2=MEO2+0.5000D+00*MEK & + RXRAT( 330 ) ! xMEK+RO2C=RO2C+0.5000D+00*MEK & + RXRAT( 331 ) ! xMEK+RO2XC=RO2XC+0.5000D+... & + RXRAT( 332 ) ! xMEK+MECO3=MECO3+MEK & + RXRAT( 333 ) ! xMEK+RCO3=RCO3+MEK & + RXRAT( 334 ) ! xMEK+BZCO3=BZCO3+MEK & + RXRAT( 335 ) ! xMEK+MACO3=MACO3+MEK PROD( xAFG1 ) = 7.3000D-02 * RXRAT( 228 ) ! RAOOH+OH=0.7300D-01*xAFG1+... & + 1.9500D-01 * RXRAT( 252 ) ! AFG3+OH=0.1950D+00*xAFG1+... & + 1.0000D-03 * RXRAT( 538 ) ! BUTADIENE13+O3P=0.1000D-... & + 2.9000D-02 * RXRAT( 558 ) ! BENZENE+OH=0.2900D-... & + 1.9500D-01 * RXRAT( 559 ) ! TOLUENE+OH=0.1950D+... & + 3.3600D-01 * RXRAT( 560 ) ! MXYL+OH=0.3360D+00*xAFG1+... & + 2.5300D-01 * RXRAT( 561 ) ! OXYL+OH=0.2530D+00*xAFG1+... & + 4.5000D-02 * RXRAT( 562 ) ! PXYL+OH=0.4500D-01*xAFG1+... & + 8.8000D-02 * RXRAT( 563 ) ! TMBENZ124+OH=0.8800D-... & + 7.2000D-02 * RXRAT( 579 ) ! ARO1+OH=0.7200D-01*xAFG1+... & + 2.2100D-01 * RXRAT( 580 ) ! ARO2MN+OH=0.2210D+00*xAFG1+... & + 2.2100D-01 * RXRAT( 581 ) ! NAPHTHAL+OH=0.2210D+... & + 7.3000D-02 * RXRAT( 626 ) ! RAOOH+CL=0.7300D-01*xAFG1+... & + 9.0000D-03 * RXRAT( 630 ) ! IPRD+CL=0.9000D-02*xAFG1+... & + 6.0000D-03 * RXRAT( 670 ) ! APIN+CL=0.6000D-02*xAFG1+... & + 6.0000D-03 * RXRAT( 688 ) ! TERP+CL=0.6000D-02*xAFG1+... & + 6.0000D-03 * RXRAT( 689 ) ! SESQ+CL=0.6000D-02*xAFG1+... LOSS( xAFG1 ) = RXRAT( 386 ) ! xAFG1+NO=NO+AFG1 & + RXRAT( 387 ) ! xAFG1+HO2=HO2 & + RXRAT( 388 ) ! xAFG1+NO3=NO3+AFG1 & + RXRAT( 389 ) ! xAFG1+MEO2=MEO2+0.5000D+... & + RXRAT( 390 ) ! xAFG1+RO2C=RO2C+0.5000D+... & + RXRAT( 391 ) ! xAFG1+RO2XC=RO2XC+0.5000D+... & + RXRAT( 392 ) ! xAFG1+MECO3=MECO3+AFG1 & + RXRAT( 393 ) ! xAFG1+RCO3=RCO3+AFG1 & + RXRAT( 394 ) ! xAFG1+BZCO3=BZCO3+AFG1 & + RXRAT( 395 ) ! xAFG1+MACO3=MACO3+AFG1 PROD( xAFG2 ) = 7.3000D-02 * RXRAT( 228 ) ! RAOOH+OH=0.7300D-01*xAFG2+... & + 1.9500D-01 * RXRAT( 252 ) ! AFG3+OH=0.1950D+00*xAFG2+... & + 1.0000D-03 * RXRAT( 538 ) ! BUTADIENE13+O3P=0.1000D-... & + 2.6100D-01 * RXRAT( 558 ) ! BENZENE+OH=0.2610D+... & + 1.9500D-01 * RXRAT( 559 ) ! TOLUENE+OH=0.1950D+... & + 1.4400D-01 * RXRAT( 560 ) ! MXYL+OH=0.1440D+00*xAFG2+... & + 2.5300D-01 * RXRAT( 561 ) ! OXYL+OH=0.2530D+00*xAFG2+... & + 6.7000D-02 * RXRAT( 562 ) ! PXYL+OH=0.6700D-01*xAFG2+... & + 3.5200D-01 * RXRAT( 563 ) ! TMBENZ124+OH=0.3520D+... & + 1.8500D-01 * RXRAT( 579 ) ! ARO1+OH=0.1850D+00*xAFG2+... & + 2.4700D-01 * RXRAT( 580 ) ! ARO2MN+OH=0.2470D+00*xAFG2+... & + 2.4700D-01 * RXRAT( 581 ) ! NAPHTHAL+OH=0.2470D+... & + 7.3000D-02 * RXRAT( 626 ) ! RAOOH+CL=0.7300D-01*xAFG2+... & + 9.0000D-03 * RXRAT( 630 ) ! IPRD+CL=0.9000D-02*xAFG2+... & + 6.0000D-03 * RXRAT( 670 ) ! APIN+CL=0.6000D-02*xAFG2+... & + 6.0000D-03 * RXRAT( 688 ) ! TERP+CL=0.6000D-02*xAFG2+... & + 6.0000D-03 * RXRAT( 689 ) ! SESQ+CL=0.6000D-02*xAFG2+... LOSS( xAFG2 ) = RXRAT( 396 ) ! xAFG2+NO=NO+AFG2 & + RXRAT( 397 ) ! xAFG2+HO2=HO2 & + RXRAT( 398 ) ! xAFG2+NO3=NO3+AFG2 & + RXRAT( 399 ) ! xAFG2+MEO2=MEO2+0.5000D+... & + RXRAT( 400 ) ! xAFG2+RO2C=RO2C+0.5000D+... & + RXRAT( 401 ) ! xAFG2+RO2XC=RO2XC+0.5000D+... & + RXRAT( 402 ) ! xAFG2+MECO3=MECO3+AFG2 & + RXRAT( 403 ) ! xAFG2+RCO3=RCO3+AFG2 & + RXRAT( 404 ) ! xAFG2+BZCO3=BZCO3+AFG2 & + RXRAT( 405 ) ! xAFG2+MACO3=MACO3+AFG2 PROD( GLY ) = 5.0000D-01 * RXRAT( 229 ) ! RAOOH=0.5000D+00*GLY+HO2+... & + 4.3200D-01 * RXRAT( 247 ) ! AFG1+O3=0.4320D+00*GLY+... & + 1.9500D-01 * RXRAT( 248 ) ! AFG1=0.1950D+00*GLY+... & + 4.3200D-01 * RXRAT( 250 ) ! AFG2+O3=0.4320D+00*GLY+... & + 3.6600D-01 * RXRAT( 253 ) ! AFG3+O3=0.3660D+00*GLY+... & + 2.3000D-02 * RXRAT( 264 ) ! IPRD+O3=0.2300D-01*GLY+... & + 5.0000D-01 * RXRAT( 275 ) ! ACROLEIN+O3=0.5000D+00*GLY+... & + 5.6000D-01 * RXRAT( 285 ) ! HCOCO3+HO2=0.5600D+00*GLY+... & + RXRAT( 346 ) ! xGLY+NO=GLY+NO & + RXRAT( 348 ) ! xGLY+NO3=GLY+NO3 & + 5.0000D-01 * RXRAT( 349 ) ! xGLY+MEO2=0.5000D+00*GLY+MEO2 & + 5.0000D-01 * RXRAT( 350 ) ! xGLY+RO2C=0.5000D+00*GLY+RO2C & + 5.0000D-01 * RXRAT( 351 ) ! xGLY+RO2XC=0.5000D+00*GLY+... & + RXRAT( 352 ) ! xGLY+MECO3=GLY+MECO3 & + RXRAT( 353 ) ! xGLY+RCO3=GLY+RCO3 & + RXRAT( 354 ) ! xGLY+BZCO3=GLY+BZCO3 & + RXRAT( 355 ) ! xGLY+MACO3=GLY+MACO3 & + 2.7500D-01 * RXRAT( 547 ) ! IEPOXOO+HO2=0.2750D+00*GLY+... & + 2.7500D-01 * RXRAT( 548 ) ! IEPOXOO+NO=0.2750D+00*GLY+... & + 1.3800D-01 * RXRAT( 549 ) ! IEPOXOO+MEO2=0.1380D+... & + 1.3800D-01 * RXRAT( 550 ) ! IEPOXOO+RO2C=0.1380D+... & + 2.7500D-01 * RXRAT( 551 ) ! IEPOXOO+MECO3=0.2750D+... & + 7.0000D-01 * RXRAT( 556 ) ! ACETYLENE+OH=0.7000D+... LOSS( GLY ) = RXRAT( 230 ) ! GLY=0.2000D+01*CO+0.2000D+... & + RXRAT( 231 ) ! GLY=HCHO+CO & + RXRAT( 232 ) ! GLY+OH=0.7000D+00*HO2+... & + RXRAT( 233 ) ! GLY+NO3=HNO3+0.7000D+... & + RXRAT( 620 ) ! GLY+CL=HCL+0.6300D+00*HO2+... PROD( AFG1 ) = 5.0000D-01 * RXRAT( 229 ) ! RAOOH=0.5000D+00*AFG1+HO2+... & + 3.5000D-01 * RXRAT( 253 ) ! AFG3+O3=0.3500D+00*AFG1+... & + RXRAT( 386 ) ! xAFG1+NO=AFG1+NO & + RXRAT( 388 ) ! xAFG1+NO3=AFG1+NO3 & + 5.0000D-01 * RXRAT( 389 ) ! xAFG1+MEO2=0.5000D+00*AFG1+... & + 5.0000D-01 * RXRAT( 390 ) ! xAFG1+RO2C=0.5000D+00*AFG1+... & + 5.0000D-01 * RXRAT( 391 ) ! xAFG1+RO2XC=0.5000D+... & + RXRAT( 392 ) ! xAFG1+MECO3=AFG1+MECO3 & + RXRAT( 393 ) ! xAFG1+RCO3=AFG1+RCO3 & + RXRAT( 394 ) ! xAFG1+BZCO3=AFG1+BZCO3 & + RXRAT( 395 ) ! xAFG1+MACO3=AFG1+MACO3 & + 4.2000D-02 * RXRAT( 630 ) ! IPRD+CL=0.4200D-01*AFG1+... LOSS( AFG1 ) = RXRAT( 246 ) ! AFG1+OH=0.2170D+00*MACO3+... & + RXRAT( 247 ) ! AFG1+O3=0.8260D+00*OH+... & + RXRAT( 248 ) ! AFG1=0.1023D+01*HO2+... PROD( AFG2 ) = 5.0000D-01 * RXRAT( 229 ) ! RAOOH=0.5000D+00*AFG2+HO2+... & + 3.5000D-01 * RXRAT( 253 ) ! AFG3+O3=0.3500D+00*AFG2+... & + RXRAT( 396 ) ! xAFG2+NO=AFG2+NO & + RXRAT( 398 ) ! xAFG2+NO3=AFG2+NO3 & + 5.0000D-01 * RXRAT( 399 ) ! xAFG2+MEO2=0.5000D+00*AFG2+... & + 5.0000D-01 * RXRAT( 400 ) ! xAFG2+RO2C=0.5000D+00*AFG2+... & + 5.0000D-01 * RXRAT( 401 ) ! xAFG2+RO2XC=0.5000D+... & + RXRAT( 402 ) ! xAFG2+MECO3=AFG2+MECO3 & + RXRAT( 403 ) ! xAFG2+RCO3=AFG2+RCO3 & + RXRAT( 404 ) ! xAFG2+BZCO3=AFG2+BZCO3 & + RXRAT( 405 ) ! xAFG2+MACO3=AFG2+MACO3 & + 4.2000D-02 * RXRAT( 630 ) ! IPRD+CL=0.4200D-01*AFG2+... LOSS( AFG2 ) = RXRAT( 249 ) ! AFG2+OH=0.2170D+00*MACO3+... & + RXRAT( 250 ) ! AFG2+O3=0.8260D+00*OH+... & + RXRAT( 251 ) ! AFG2=PRD2 PROD( HCOCO3 ) = 3.0000D-01 * RXRAT( 232 ) ! GLY+OH=0.3000D+00*HCOCO3+... & + 3.0000D-01 * RXRAT( 233 ) ! GLY+NO3=0.3000D+00*HCOCO3+... LOSS( HCOCO3 ) = RXRAT( 283 ) ! HCOCO3+NO=HO2+CO+CO2+NO2 & + RXRAT( 284 ) ! HCOCO3+NO2=HO2+CO+CO2+NO3 & + RXRAT( 285 ) ! HCOCO3+HO2=0.4400D+00*OH+... PROD( BACL ) = RXRAT( 366 ) ! xBACL+NO=BACL+NO & + RXRAT( 368 ) ! xBACL+NO3=BACL+NO3 & + 5.0000D-01 * RXRAT( 369 ) ! xBACL+MEO2=0.5000D+00*BACL+... & + 5.0000D-01 * RXRAT( 370 ) ! xBACL+RO2C=0.5000D+00*BACL+... & + 5.0000D-01 * RXRAT( 371 ) ! xBACL+RO2XC=0.5000D+... & + RXRAT( 372 ) ! xBACL+MECO3=BACL+MECO3 & + RXRAT( 373 ) ! xBACL+RCO3=BACL+RCO3 & + RXRAT( 374 ) ! xBACL+BZCO3=BACL+BZCO3 & + RXRAT( 375 ) ! xBACL+MACO3=BACL+MACO3 LOSS( BACL ) = RXRAT( 237 ) ! BACL=0.2000D+01*MECO3 PROD( BALD ) = RXRAT( 376 ) ! xBALD+NO=BALD+NO & + RXRAT( 378 ) ! xBALD+NO3=BALD+NO3 & + 5.0000D-01 * RXRAT( 379 ) ! xBALD+MEO2=0.5000D+00*BALD+... & + 5.0000D-01 * RXRAT( 380 ) ! xBALD+RO2C=0.5000D+00*BALD+... & + 5.0000D-01 * RXRAT( 381 ) ! xBALD+RO2XC=0.5000D+... & + RXRAT( 382 ) ! xBALD+MECO3=BALD+MECO3 & + RXRAT( 383 ) ! xBALD+RCO3=BALD+RCO3 & + RXRAT( 384 ) ! xBALD+BZCO3=BALD+BZCO3 & + RXRAT( 385 ) ! xBALD+MACO3=BALD+MACO3 LOSS( BALD ) = RXRAT( 243 ) ! BALD+OH=BZCO3 & + RXRAT( 244 ) ! BALD= & + RXRAT( 245 ) ! BALD+NO3=HNO3+BZCO3 & + RXRAT( 623 ) ! BALD+CL=HCL+BZCO3 PROD( AFG3 ) = RXRAT( 406 ) ! xAFG3+NO=AFG3+NO & + RXRAT( 408 ) ! xAFG3+NO3=AFG3+NO3 & + 5.0000D-01 * RXRAT( 409 ) ! xAFG3+MEO2=0.5000D+00*AFG3+... & + 5.0000D-01 * RXRAT( 410 ) ! xAFG3+RO2C=0.5000D+00*AFG3+... & + 5.0000D-01 * RXRAT( 411 ) ! xAFG3+RO2XC=0.5000D+... & + RXRAT( 412 ) ! xAFG3+MECO3=AFG3+MECO3 & + RXRAT( 413 ) ! xAFG3+RCO3=AFG3+RCO3 & + RXRAT( 414 ) ! xAFG3+BZCO3=AFG3+BZCO3 & + RXRAT( 415 ) ! xAFG3+MACO3=AFG3+MACO3 & + 1.1600D-01 * RXRAT( 558 ) ! BENZENE+OH=0.1160D+00*AFG3+... & + 3.1200D-01 * RXRAT( 559 ) ! TOLUENE+OH=0.3120D+00*AFG3+... & + 2.3900D-01 * RXRAT( 560 ) ! MXYL+OH=0.2390D+00*AFG3+... & + 1.9800D-01 * RXRAT( 561 ) ! OXYL+OH=0.1980D+00*AFG3+... & + 2.7800D-01 * RXRAT( 562 ) ! PXYL+OH=0.2780D+00*AFG3+... & + 2.3000D-01 * RXRAT( 563 ) ! TMBENZ124+OH=0.2300D+... & + 2.0200D-01 * RXRAT( 579 ) ! ARO1+OH=0.2020D+00*AFG3+... & + 1.7800D-01 * RXRAT( 580 ) ! ARO2MN+OH=0.1780D+00*AFG3+... & + 1.7800D-01 * RXRAT( 581 ) ! NAPHTHAL+OH=0.1780D+... LOSS( AFG3 ) = RXRAT( 252 ) ! AFG3+OH=0.2060D+00*MACO3+... & + 8.6100D-01 * RXRAT( 253 ) ! AFG3+O3=0.1390D+00*AFG3+... PROD( xIPRD ) = 2.3100D-01 * RXRAT( 252 ) ! AFG3+OH=0.2310D+00*xIPRD+... & + 4.7100D-01 * RXRAT( 535 ) ! BUTADIENE13+OH=0.4710D+... & + 1.2000D-01 * RXRAT( 537 ) ! BUTADIENE13+NO3=0.1200D+... & + 3.5700D-01 * RXRAT( 539 ) ! ISOPRENE+OH=0.3570D+... & + 9.3600D-01 * RXRAT( 541 ) ! ISOPRENE+NO3=0.9360D+... & + 9.0000D-03 * RXRAT( 571 ) ! OLE1+OH=0.9000D-02*xIPRD+... & + 1.2000D-02 * RXRAT( 575 ) ! OLE2+OH=0.1200D-01*xIPRD+... & + 2.0000D-03 * RXRAT( 582 ) ! TERP+OH=0.2000D-02*xIPRD+... & + 1.0000D-03 * RXRAT( 583 ) ! TERP+O3=0.1000D-02*xIPRD+... & + 4.0000D-03 * RXRAT( 584 ) ! TERP+NO3=0.4000D-02*xIPRD+... & + 2.0000D-03 * RXRAT( 586 ) ! SESQ+OH=0.2000D-02*xIPRD+... & + 1.0000D-03 * RXRAT( 587 ) ! SESQ+O3=0.1000D-02*xIPRD+... & + 4.0000D-03 * RXRAT( 588 ) ! SESQ+NO3=0.4000D-02*xIPRD+... & + 8.2000D-02 * RXRAT( 628 ) ! MACR+CL=0.8200D-01*xIPRD+... & + 1.1500D-01 * RXRAT( 630 ) ! IPRD+CL=0.1150D+00*xIPRD+... & + 4.7300D-01 * RXRAT( 668 ) ! BUTADIENE13+CL=0.4730D+... & + 6.7100D-01 * RXRAT( 669 ) ! ISOPRENE+CL=0.6710D+... & + 1.5800D-01 * RXRAT( 670 ) ! APIN+CL=0.1580D+00*xIPRD+... & + 3.8000D-02 * RXRAT( 683 ) ! OLE1+CL=0.3800D-01*xIPRD+... & + 1.6100D-01 * RXRAT( 684 ) ! OLE2+CL=0.1610D+00*xIPRD+... & + 1.5800D-01 * RXRAT( 688 ) ! TERP+CL=0.1580D+00*xIPRD+... & + 1.5800D-01 * RXRAT( 689 ) ! SESQ+CL=0.1580D+00*xIPRD+... LOSS( xIPRD ) = RXRAT( 436 ) ! xIPRD+NO=NO+IPRD & + RXRAT( 437 ) ! xIPRD+HO2=HO2 & + RXRAT( 438 ) ! xIPRD+NO3=NO3+IPRD & + RXRAT( 439 ) ! xIPRD+MEO2=MEO2+0.5000D+... & + RXRAT( 440 ) ! xIPRD+RO2C=RO2C+0.5000D+... & + RXRAT( 441 ) ! xIPRD+RO2XC=RO2XC+0.5000D+... & + RXRAT( 442 ) ! xIPRD+MECO3=MECO3+IPRD & + RXRAT( 443 ) ! xIPRD+RCO3=RCO3+IPRD & + RXRAT( 444 ) ! xIPRD+BZCO3=BZCO3+IPRD & + RXRAT( 445 ) ! xIPRD+MACO3=MACO3+IPRD PROD( MACR ) = 3.0000D-03 * RXRAT( 253 ) ! AFG3+O3=0.3000D-02*MACR+... & + RXRAT( 416 ) ! xMACR+NO=MACR+NO & + RXRAT( 418 ) ! xMACR+NO3=MACR+NO3 & + 5.0000D-01 * RXRAT( 419 ) ! xMACR+MEO2=0.5000D+00*MACR+... & + 5.0000D-01 * RXRAT( 420 ) ! xMACR+RO2C=0.5000D+00*MACR+... & + 5.0000D-01 * RXRAT( 421 ) ! xMACR+RO2XC=0.5000D+... & + RXRAT( 422 ) ! xMACR+MECO3=MACR+MECO3 & + RXRAT( 423 ) ! xMACR+RCO3=MACR+RCO3 & + RXRAT( 424 ) ! xMACR+BZCO3=MACR+BZCO3 & + RXRAT( 425 ) ! xMACR+MACO3=MACR+MACO3 & + 3.9000D-01 * RXRAT( 540 ) ! ISOPRENE+O3=0.3900D+... & + 2.9000D-01 * RXRAT( 545 ) ! ISOPOOH=0.2900D+00*MACR+... LOSS( MACR ) = RXRAT( 254 ) ! MACR+OH=0.5000D+00*MACO3+... & + RXRAT( 255 ) ! MACR+O3=0.2080D+00*OH+... & + RXRAT( 256 ) ! MACR+NO3=0.5000D+00*MACO3+... & + RXRAT( 257 ) ! MACR+O3P=RCHO & + RXRAT( 258 ) ! MACR=0.3300D+00*OH+0.6700D+... & + RXRAT( 628 ) ! MACR+CL=0.2500D+00*HCL+... PROD( MVK ) = 4.0000D-03 * RXRAT( 253 ) ! AFG3+O3=0.4000D-02*MVK+... & + RXRAT( 426 ) ! xMVK+NO=MVK+NO & + RXRAT( 428 ) ! xMVK+NO3=MVK+NO3 & + 5.0000D-01 * RXRAT( 429 ) ! xMVK+MEO2=0.5000D+00*MVK+MEO2 & + 5.0000D-01 * RXRAT( 430 ) ! xMVK+RO2C=0.5000D+00*MVK+RO2C & + 5.0000D-01 * RXRAT( 431 ) ! xMVK+RO2XC=0.5000D+00*MVK+... & + RXRAT( 432 ) ! xMVK+MECO3=MVK+MECO3 & + RXRAT( 433 ) ! xMVK+RCO3=MVK+RCO3 & + RXRAT( 434 ) ! xMVK+BZCO3=MVK+BZCO3 & + RXRAT( 435 ) ! xMVK+MACO3=MVK+MACO3 & + 3.7500D-01 * RXRAT( 536 ) ! BUTADIENE13+O3=0.3750D+... & + 1.6000D-01 * RXRAT( 540 ) ! ISOPRENE+O3=0.1600D+00*MVK+... & + 4.5000D-01 * RXRAT( 545 ) ! ISOPOOH=0.4500D+00*MVK+... LOSS( MVK ) = RXRAT( 259 ) ! MVK+OH=0.9750D+00*RO2C+... & + RXRAT( 260 ) ! MVK+O3=0.1640D+00*OH+... & + RXRAT( 261 ) ! MVK+O3P=0.4500D+00*RCHO+... & + RXRAT( 262 ) ! MVK=0.4000D+00*MEO2+... & + RXRAT( 629 ) ! MVK+CL=0.1283D+01*RO2C+... PROD( xHOCCHO ) = 6.7500D-01 * RXRAT( 259 ) ! MVK+OH=0.6750D+00*xHOCCHO+... & + 1.2900D-01 * RXRAT( 263 ) ! IPRD+OH=0.1290D+00*xHOCCHO+... & + 4.7000D-02 * RXRAT( 264 ) ! IPRD+O3=0.4700D-01*xHOCCHO+... & + 1.9500D-01 * RXRAT( 527 ) ! ETHENE+OH=0.1950D+... & + 1.0000D-02 * RXRAT( 564 ) ! ETOH+OH=0.1000D-01*xHOCCHO+... & + 7.0000D-03 * RXRAT( 571 ) ! OLE1+OH=0.7000D-02*xHOCCHO+... & + 2.0000D-03 * RXRAT( 584 ) ! TERP+NO3=0.2000D-... & + 6.1000D-02 * RXRAT( 677 ) ! ETOH+CL=0.6100D-01*xHOCCHO+... LOSS( xHOCCHO ) = RXRAT( 506 ) ! xHOCCHO+NO=NO+HOCCHO & + RXRAT( 507 ) ! xHOCCHO+HO2=HO2 & + RXRAT( 508 ) ! xHOCCHO+NO3=NO3+HOCCHO & + RXRAT( 509 ) ! xHOCCHO+MEO2=MEO2+0.5000D+... & + RXRAT( 510 ) ! xHOCCHO+RO2C=RO2C+0.5000D+... & + RXRAT( 511 ) ! xHOCCHO+RO2XC=RO2XC+... & + RXRAT( 512 ) ! xHOCCHO+MECO3=MECO3+HOCCHO & + RXRAT( 513 ) ! xHOCCHO+RCO3=RCO3+HOCCHO & + RXRAT( 514 ) ! xHOCCHO+BZCO3=BZCO3+HOCCHO & + RXRAT( 515 ) ! xHOCCHO+MACO3=MACO3+HOCCHO PROD( xRNO3 ) = 5.7200D-01 * RXRAT( 265 ) ! IPRD+NO3=0.5720D+00*xRNO3+... & + 3.0500D-01 * RXRAT( 269 ) ! RNO3+OH=0.3050D+00*xRNO3+... & + 3.1000D-02 * RXRAT( 276 ) ! ACROLEIN+NO3=0.3100D-... & + 3.5500D-01 * RXRAT( 537 ) ! BUTADIENE13+NO3=0.3550D+... & + 5.0000D-02 * RXRAT( 544 ) ! ISOPOOH+OH=0.5000D-... & + 5.6000D-02 * RXRAT( 554 ) ! APIN+NO3=0.5600D-01*xRNO3+... & + 7.7400D-01 * RXRAT( 573 ) ! OLE1+NO3=0.7740D+00*xRNO3+... & + 3.2000D-01 * RXRAT( 577 ) ! OLE2+NO3=0.3200D+00*xRNO3+... & + 2.2800D-01 * RXRAT( 584 ) ! TERP+NO3=0.2280D+00*xRNO3+... & + 2.2800D-01 * RXRAT( 588 ) ! SESQ+NO3=0.2280D+00*xRNO3+... & + 5.4700D-01 * RXRAT( 618 ) ! RNO3+CL=0.5470D+00*xRNO3+... LOSS( xRNO3 ) = RXRAT( 446 ) ! xRNO3+NO=NO+RNO3 & + RXRAT( 447 ) ! xRNO3+HO2=HO2 & + RXRAT( 448 ) ! xRNO3+NO3=NO3+RNO3 & + RXRAT( 449 ) ! xRNO3+MEO2=MEO2+0.5000D+... & + RXRAT( 450 ) ! xRNO3+RO2C=RO2C+0.5000D+... & + RXRAT( 451 ) ! xRNO3+RO2XC=RO2XC+0.5000D+... & + RXRAT( 452 ) ! xRNO3+MECO3=MECO3+RNO3 & + RXRAT( 453 ) ! xRNO3+RCO3=RCO3+RNO3 & + RXRAT( 454 ) ! xRNO3+BZCO3=BZCO3+RNO3 & + RXRAT( 455 ) ! xRNO3+MACO3=MACO3+RNO3 PROD( HOCCHO ) = 4.6700D-01 * RXRAT( 266 ) ! IPRD=0.4670D+00*HOCCHO+... & + RXRAT( 506 ) ! xHOCCHO+NO=HOCCHO+NO & + RXRAT( 508 ) ! xHOCCHO+NO3=HOCCHO+NO3 & + 5.0000D-01 * RXRAT( 509 ) ! xHOCCHO+MEO2=0.5000D+... & + 5.0000D-01 * RXRAT( 510 ) ! xHOCCHO+RO2C=0.5000D+... & + 5.0000D-01 * RXRAT( 511 ) ! xHOCCHO+RO2XC=0.5000D+... & + RXRAT( 512 ) ! xHOCCHO+MECO3=HOCCHO+MECO3 & + RXRAT( 513 ) ! xHOCCHO+RCO3=HOCCHO+RCO3 & + RXRAT( 514 ) ! xHOCCHO+BZCO3=HOCCHO+BZCO3 & + RXRAT( 515 ) ! xHOCCHO+MACO3=HOCCHO+MACO3 & + 2.7500D-01 * RXRAT( 547 ) ! IEPOXOO+HO2=0.2750D+... & + 2.7500D-01 * RXRAT( 548 ) ! IEPOXOO+NO=0.2750D+... & + 1.3800D-01 * RXRAT( 549 ) ! IEPOXOO+MEO2=0.1380D+... & + 1.3800D-01 * RXRAT( 550 ) ! IEPOXOO+RO2C=0.1380D+... & + 2.7500D-01 * RXRAT( 551 ) ! IEPOXOO+MECO3=0.2750D+... LOSS( HOCCHO ) = RXRAT( 271 ) ! HOCCHO+OH=MECO3 & + RXRAT( 272 ) ! HOCCHO=CO+0.2000D+01*HO2+HCHO & + RXRAT( 273 ) ! HOCCHO+NO3=HNO3+MECO3 PROD( xACETONE ) = 4.0000D-03 * RXRAT( 269 ) ! RNO3+OH=0.4000D-... & + 8.0000D-03 * RXRAT( 270 ) ! RNO3=0.8000D-02*xACETONE+... & + 3.4000D-02 * RXRAT( 552 ) ! APIN+OH=0.3400D-... & + 3.4500D-01 * RXRAT( 553 ) ! APIN+O3=0.3450D+... & + 6.9000D-02 * RXRAT( 554 ) ! APIN+NO3=0.6900D-... & + 7.0400D-01 * RXRAT( 566 ) ! ALK2+OH=0.7040D+... & + 2.4000D-02 * RXRAT( 567 ) ! ALK3+OH=0.2400D-... & + 4.2600D-01 * RXRAT( 568 ) ! ALK4+OH=0.4260D+... & + 7.1000D-02 * RXRAT( 569 ) ! ALK5+OH=0.7100D-... & + 7.0000D-03 * RXRAT( 571 ) ! OLE1+OH=0.7000D-... & + 3.0000D-03 * RXRAT( 572 ) ! OLE1+O3=0.3000D-... & + 3.4000D-02 * RXRAT( 573 ) ! OLE1+NO3=0.3400D-... & + 1.4400D-01 * RXRAT( 575 ) ! OLE2+OH=0.1440D+... & + 1.1600D-01 * RXRAT( 577 ) ! OLE2+NO3=0.1160D+... & + 3.7000D-02 * RXRAT( 582 ) ! TERP+OH=0.3700D-... & + 5.7000D-02 * RXRAT( 583 ) ! TERP+O3=0.5700D-... & + 2.3900D-01 * RXRAT( 584 ) ! TERP+NO3=0.2390D+... & + 3.7000D-02 * RXRAT( 586 ) ! SESQ+OH=0.3700D-... & + 5.7000D-02 * RXRAT( 587 ) ! SESQ+O3=0.5700D-... & + 2.3900D-01 * RXRAT( 588 ) ! SESQ+NO3=0.2390D+... & + 3.0000D-03 * RXRAT( 618 ) ! RNO3+CL=0.3000D-... & + 2.7400D-01 * RXRAT( 670 ) ! APIN+CL=0.2740D+... & + 4.8800D-01 * RXRAT( 679 ) ! ALK2+CL=0.4880D+... & + 7.5000D-02 * RXRAT( 680 ) ! ALK3+CL=0.7500D-... & + 2.4700D-01 * RXRAT( 681 ) ! ALK4+CL=0.2470D+... & + 4.4000D-02 * RXRAT( 682 ) ! ALK5+CL=0.4400D-... & + 8.6000D-02 * RXRAT( 684 ) ! OLE2+CL=0.8600D-... & + 2.7400D-01 * RXRAT( 688 ) ! TERP+CL=0.2740D+... & + 2.7400D-01 * RXRAT( 689 ) ! SESQ+CL=0.2740D+... LOSS( xACETONE ) = RXRAT( 316 ) ! xACETONE+NO=NO+ACETONE & + RXRAT( 317 ) ! xACETONE+HO2=HO2 & + RXRAT( 318 ) ! xACETONE+NO3=NO3+ACETONE & + RXRAT( 319 ) ! xACETONE+MEO2=MEO2+0.5000D+... & + RXRAT( 320 ) ! xACETONE+RO2C=RO2C+0.5000D+... & + RXRAT( 321 ) ! xACETONE+RO2XC=RO2XC+... & + RXRAT( 322 ) ! xACETONE+MECO3=MECO3+ACETONE & + RXRAT( 323 ) ! xACETONE+RCO3=RCO3+ACETONE & + RXRAT( 324 ) ! xACETONE+BZCO3=BZCO3+ACETONE & + RXRAT( 325 ) ! xACETONE+MACO3=MACO3+ACETONE PROD( ACROLEIN ) = RXRAT( 516 ) ! xACROLEIN+NO=ACROLEIN+NO & + RXRAT( 518 ) ! xACROLEIN+NO3=ACROLEIN+NO3 & + 5.0000D-01 * RXRAT( 519 ) ! xACROLEIN+MEO2=0.5000D+... & + 5.0000D-01 * RXRAT( 520 ) ! xACROLEIN+RO2C=0.5000D+... & + 5.0000D-01 * RXRAT( 521 ) ! xACROLEIN+RO2XC=0.5000D+... & + RXRAT( 522 ) ! xACROLEIN+MECO3=ACROLEIN+MECO3 & + RXRAT( 523 ) ! xACROLEIN+RCO3=ACROLEIN+RCO3 & + RXRAT( 524 ) ! xACROLEIN+BZCO3=ACROLEIN+BZCO3 & + RXRAT( 525 ) ! xACROLEIN+MACO3=ACROLEIN+MACO3 & + 5.0000D-01 * RXRAT( 536 ) ! BUTADIENE13+O3=0.5000D+... LOSS( ACROLEIN ) = RXRAT( 274 ) ! ACROLEIN+OH=0.2500D+... & + RXRAT( 275 ) ! ACROLEIN+O3=0.8300D+00*HO2+... & + RXRAT( 276 ) ! ACROLEIN+NO3=0.3100D-... & + RXRAT( 277 ) ! ACROLEIN+O3P=RCHO & + RXRAT( 278 ) ! ACROLEIN=0.1066D+01*HO2+... & + RXRAT( 627 ) ! ACROLEIN+CL=0.4840D+... PROD( xBALD ) = 6.5000D-02 * RXRAT( 559 ) ! TOLUENE+OH=0.6500D-... & + 4.1000D-02 * RXRAT( 560 ) ! MXYL+OH=0.4100D-01*xBALD+... & + 4.7000D-02 * RXRAT( 561 ) ! OXYL+OH=0.4700D-01*xBALD+... & + 8.8000D-02 * RXRAT( 562 ) ! PXYL+OH=0.8800D-01*xBALD+... & + 3.6000D-02 * RXRAT( 563 ) ! TMBENZ124+OH=0.3600D-... & + 2.6000D-02 * RXRAT( 580 ) ! ARO2MN+OH=0.2600D-01*xBALD+... & + 2.6000D-02 * RXRAT( 581 ) ! NAPHTHAL+OH=0.2600D-... & + RXRAT( 622 ) ! CRES+CL=xBALD+xHO2+HCL+yR6OOH & + 8.9400D-01 * RXRAT( 672 ) ! TOLUENE+CL=0.8940D+... & + 8.6400D-01 * RXRAT( 673 ) ! MXYL+CL=0.8640D+00*xBALD+... & + 8.6400D-01 * RXRAT( 674 ) ! OXYL+CL=0.8640D+00*xBALD+... & + 8.6400D-01 * RXRAT( 675 ) ! PXYL+CL=0.8640D+00*xBALD+... & + 8.3800D-01 * RXRAT( 676 ) ! TMBENZ124+CL=0.8380D+... & + 4.6900D-01 * RXRAT( 686 ) ! ARO2MN+CL=0.4690D+00*xBALD+... & + 4.6900D-01 * RXRAT( 687 ) ! NAPHTHAL+CL=0.4690D+... LOSS( xBALD ) = RXRAT( 376 ) ! xBALD+NO=NO+BALD & + RXRAT( 377 ) ! xBALD+HO2=HO2 & + RXRAT( 378 ) ! xBALD+NO3=NO3+BALD & + RXRAT( 379 ) ! xBALD+MEO2=MEO2+0.5000D+... & + RXRAT( 380 ) ! xBALD+RO2C=RO2C+0.5000D+... & + RXRAT( 381 ) ! xBALD+RO2XC=RO2XC+0.5000D+... & + RXRAT( 382 ) ! xBALD+MECO3=MECO3+BALD & + RXRAT( 383 ) ! xBALD+RCO3=RCO3+BALD & + RXRAT( 384 ) ! xBALD+BZCO3=BZCO3+BALD & + RXRAT( 385 ) ! xBALD+MACO3=MACO3+BALD PROD( xAFG3 ) = 2.8600D-01 * RXRAT( 562 ) ! PXYL+OH=0.2860D+00*xAFG3+... & + 1.5100D-01 * RXRAT( 563 ) ! TMBENZ124+OH=0.1510D+... & + 6.8000D-02 * RXRAT( 580 ) ! ARO2MN+OH=0.6800D-01*xAFG3+... & + 6.8000D-02 * RXRAT( 581 ) ! NAPHTHAL+OH=0.6800D-... & + 1.0000D-03 * RXRAT( 670 ) ! APIN+CL=0.1000D-02*xAFG3+... & + 1.0000D-03 * RXRAT( 688 ) ! TERP+CL=0.1000D-02*xAFG3+... & + 1.0000D-03 * RXRAT( 689 ) ! SESQ+CL=0.1000D-02*xAFG3+... LOSS( xAFG3 ) = RXRAT( 406 ) ! xAFG3+NO=NO+AFG3 & + RXRAT( 407 ) ! xAFG3+HO2=HO2 & + RXRAT( 408 ) ! xAFG3+NO3=NO3+AFG3 & + RXRAT( 409 ) ! xAFG3+MEO2=MEO2+0.5000D+... & + RXRAT( 410 ) ! xAFG3+RO2C=RO2C+0.5000D+... & + RXRAT( 411 ) ! xAFG3+RO2XC=RO2XC+0.5000D+... & + RXRAT( 412 ) ! xAFG3+MECO3=MECO3+AFG3 & + RXRAT( 413 ) ! xAFG3+RCO3=RCO3+AFG3 & + RXRAT( 414 ) ! xAFG3+BZCO3=BZCO3+AFG3 & + RXRAT( 415 ) ! xAFG3+MACO3=MACO3+AFG3 PROD( xMACR ) = 2.3000D-01 * RXRAT( 539 ) ! ISOPRENE+OH=0.2300D+... & + 1.0000D-01 * RXRAT( 544 ) ! ISOPOOH+OH=0.1000D+... & + 1.0000D-03 * RXRAT( 571 ) ! OLE1+OH=0.1000D-02*xMACR+... & + 2.0000D-03 * RXRAT( 583 ) ! TERP+O3=0.2000D-02*xMACR+... & + 5.0000D-03 * RXRAT( 584 ) ! TERP+NO3=0.5000D-02*xMACR+... & + 2.0000D-03 * RXRAT( 587 ) ! SESQ+O3=0.2000D-02*xMACR+... & + 5.0000D-03 * RXRAT( 588 ) ! SESQ+NO3=0.5000D-02*xMACR+... & + 2.5000D-02 * RXRAT( 684 ) ! OLE2+CL=0.2500D-01*xMACR+... LOSS( xMACR ) = RXRAT( 416 ) ! xMACR+NO=NO+MACR & + RXRAT( 417 ) ! xMACR+HO2=HO2 & + RXRAT( 418 ) ! xMACR+NO3=NO3+MACR & + RXRAT( 419 ) ! xMACR+MEO2=MEO2+0.5000D+... & + RXRAT( 420 ) ! xMACR+RO2C=RO2C+0.5000D+... & + RXRAT( 421 ) ! xMACR+RO2XC=RO2XC+0.5000D+... & + RXRAT( 422 ) ! xMACR+MECO3=MECO3+MACR & + RXRAT( 423 ) ! xMACR+RCO3=RCO3+MACR & + RXRAT( 424 ) ! xMACR+BZCO3=BZCO3+MACR & + RXRAT( 425 ) ! xMACR+MACO3=MACO3+MACR PROD( xMVK ) = 4.6000D-01 * RXRAT( 537 ) ! BUTADIENE13+NO3=0.4600D+... & + 3.2000D-01 * RXRAT( 539 ) ! ISOPRENE+OH=0.3200D+... & + 1.6000D-01 * RXRAT( 544 ) ! ISOPOOH+OH=0.1600D+00*xMVK+... & + 1.2000D-02 * RXRAT( 571 ) ! OLE1+OH=0.1200D-01*xMVK+... & + 2.0000D-03 * RXRAT( 575 ) ! OLE2+OH=0.2000D-02*xMVK+... & + 3.0000D-03 * RXRAT( 582 ) ! TERP+OH=0.3000D-02*xMVK+... & + 1.0000D-03 * RXRAT( 584 ) ! TERP+NO3=0.1000D-02*xMVK+... & + 3.0000D-03 * RXRAT( 586 ) ! SESQ+OH=0.3000D-02*xMVK+... & + 1.0000D-03 * RXRAT( 588 ) ! SESQ+NO3=0.1000D-02*xMVK+... & + 1.7700D-01 * RXRAT( 669 ) ! ISOPRENE+CL=0.1770D+... & + 3.0000D-03 * RXRAT( 670 ) ! APIN+CL=0.3000D-02*xMVK+... & + 1.9000D-02 * RXRAT( 683 ) ! OLE1+CL=0.1900D-01*xMVK+... & + 5.8000D-02 * RXRAT( 684 ) ! OLE2+CL=0.5800D-01*xMVK+... & + 3.0000D-03 * RXRAT( 688 ) ! TERP+CL=0.3000D-02*xMVK+... & + 3.0000D-03 * RXRAT( 689 ) ! SESQ+CL=0.3000D-02*xMVK+... LOSS( xMVK ) = RXRAT( 426 ) ! xMVK+NO=NO+MVK & + RXRAT( 427 ) ! xMVK+HO2=HO2 & + RXRAT( 428 ) ! xMVK+NO3=NO3+MVK & + RXRAT( 429 ) ! xMVK+MEO2=MEO2+0.5000D+00*MVK & + RXRAT( 430 ) ! xMVK+RO2C=RO2C+0.5000D+00*MVK & + RXRAT( 431 ) ! xMVK+RO2XC=RO2XC+0.5000D+... & + RXRAT( 432 ) ! xMVK+MECO3=MECO3+MVK & + RXRAT( 433 ) ! xMVK+RCO3=RCO3+MVK & + RXRAT( 434 ) ! xMVK+BZCO3=BZCO3+MVK & + RXRAT( 435 ) ! xMVK+MACO3=MACO3+MVK PROD( yISOPOOH ) = RXRAT( 539 ) ! ISOPRENE+OH=yISOPOOH+... & + 3.8700D-01 * RXRAT( 544 ) ! ISOPOOH+OH=0.3870D+... LOSS( yISOPOOH ) = RXRAT( 476 ) ! yISOPOOH+NO=NO & + RXRAT( 477 ) ! yISOPOOH+HO2=HO2+ISOPOOH & + RXRAT( 478 ) ! yISOPOOH+NO3=NO3 & + RXRAT( 479 ) ! yISOPOOH+MEO2=MEO2+0.5000D+... & + RXRAT( 480 ) ! yISOPOOH+RO2C=RO2C+0.5000D+... & + RXRAT( 481 ) ! yISOPOOH+RO2XC=RO2XC+... & + RXRAT( 482 ) ! yISOPOOH+MECO3=MECO3 & + RXRAT( 483 ) ! yISOPOOH+RCO3=RCO3 & + RXRAT( 484 ) ! yISOPOOH+BZCO3=BZCO3 & + RXRAT( 485 ) ! yISOPOOH+MACO3=MACO3 PROD( ISOPOOH ) = RXRAT( 477 ) ! yISOPOOH+HO2=ISOPOOH+HO2 LOSS( ISOPOOH ) = RXRAT( 543 ) ! ISOPOOH+OH=IEPOX+OH & + RXRAT( 544 ) ! ISOPOOH+OH=0.1600D+00*xMVK+... & + RXRAT( 545 ) ! ISOPOOH=OH+0.9100D+00*HO2+... PROD( yRAOOH ) = 3.1400D-01 * RXRAT( 558 ) ! BENZENE+OH=0.3140D+... & + 4.3500D-01 * RXRAT( 559 ) ! TOLUENE+OH=0.4350D+... & + 5.5500D-01 * RXRAT( 560 ) ! MXYL+OH=0.5550D+00*yRAOOH+... & + 5.8600D-01 * RXRAT( 561 ) ! OXYL+OH=0.5860D+00*yRAOOH+... & + 4.6100D-01 * RXRAT( 562 ) ! PXYL+OH=0.4610D+00*yRAOOH+... & + 7.0500D-01 * RXRAT( 563 ) ! TMBENZ124+OH=0.7050D+... LOSS( yRAOOH ) = RXRAT( 486 ) ! yRAOOH+NO=NO & + RXRAT( 487 ) ! yRAOOH+HO2=HO2+RAOOH & + RXRAT( 488 ) ! yRAOOH+NO3=NO3 & + RXRAT( 489 ) ! yRAOOH+MEO2=MEO2+0.5000D+... & + RXRAT( 490 ) ! yRAOOH+RO2C=RO2C+0.5000D+... & + RXRAT( 491 ) ! yRAOOH+RO2XC=RO2XC+0.5000D+... & + RXRAT( 492 ) ! yRAOOH+MECO3=MECO3 & + RXRAT( 493 ) ! yRAOOH+RCO3=RCO3 & + RXRAT( 494 ) ! yRAOOH+BZCO3=BZCO3 & + RXRAT( 495 ) ! yRAOOH+MACO3=MACO3 PROD( xACROLEIN ) = 4.8000D-01 * RXRAT( 535 ) ! BUTADIENE13+OH=0.4800D+... & + 1.1500D-01 * RXRAT( 538 ) ! BUTADIENE13+O3P=0.1150D+... & + 3.6000D-02 * RXRAT( 571 ) ! OLE1+OH=0.3600D-... & + 1.2400D-01 * RXRAT( 667 ) ! PROPENE+CL=0.1240D+... & + 4.5700D-01 * RXRAT( 668 ) ! BUTADIENE13+CL=0.4570D+... & + 2.1500D-01 * RXRAT( 683 ) ! OLE1+CL=0.2150D+... LOSS( xACROLEIN ) = RXRAT( 516 ) ! xACROLEIN+NO=NO+ACROLEIN & + RXRAT( 517 ) ! xACROLEIN+HO2=HO2 & + RXRAT( 518 ) ! xACROLEIN+NO3=NO3+ACROLEIN & + RXRAT( 519 ) ! xACROLEIN+MEO2=MEO2+... & + RXRAT( 520 ) ! xACROLEIN+RO2C=RO2C+... & + RXRAT( 521 ) ! xACROLEIN+RO2XC=RO2XC+... & + RXRAT( 522 ) ! xACROLEIN+MECO3=MECO3+ACROLEIN & + RXRAT( 523 ) ! xACROLEIN+RCO3=RCO3+ACROLEIN & + RXRAT( 524 ) ! xACROLEIN+BZCO3=BZCO3+ACROLEIN & + RXRAT( 525 ) ! xACROLEIN+MACO3=MACO3+ACROLEIN PROD( ETHENE ) = 0.0D0 LOSS( ETHENE ) = RXRAT( 527 ) ! ETHENE+OH=xHO2+RO2C+... & + RXRAT( 528 ) ! ETHENE+O3=0.1600D+00*HO2+... & + RXRAT( 529 ) ! ETHENE+NO3=xHO2+RO2C+xRCHO+... & + RXRAT( 530 ) ! ETHENE+O3P=0.8000D+00*HO2+... & + RXRAT( 666 ) ! ETHENE+CL=xHO2+0.2000D+... PROD( PROPENE ) = 0.0D0 LOSS( PROPENE ) = RXRAT( 531 ) ! PROPENE+OH=0.9840D+00*xHO2+... & + RXRAT( 532 ) ! PROPENE+O3=0.1650D+00*HO2+... & + RXRAT( 533 ) ! PROPENE+NO3=0.9490D+... & + RXRAT( 534 ) ! PROPENE+O3P=0.4500D+... & + RXRAT( 667 ) ! PROPENE+CL=0.1240D+00*HCL+... PROD( BUTADIENE13 ) = 0.0D0 LOSS( BUTADIENE13 ) = RXRAT( 535 ) ! BUTADIENE13+OH=0.9510D+... & + RXRAT( 536 ) ! BUTADIENE13+O3=0.8000D-... & + RXRAT( 537 ) ! BUTADIENE13+NO3=0.8150D+... & + RXRAT( 538 ) ! BUTADIENE13+O3P=0.2500D+... & + RXRAT( 668 ) ! BUTADIENE13+CL=0.3900D+... PROD( ISOPRENE ) = 0.0D0 LOSS( ISOPRENE ) = RXRAT( 539 ) ! ISOPRENE+OH=0.9070D+... & + RXRAT( 540 ) ! ISOPRENE+O3=0.6600D-01*HO2+... & + RXRAT( 541 ) ! ISOPRENE+NO3=0.7490D+... & + RXRAT( 542 ) ! ISOPRENE+O3P=0.2500D+... & + RXRAT( 669 ) ! ISOPRENE+CL=0.1500D+00*HCL+... PROD( ISOPRXN ) = RXRAT( 539 ) ! ISOPRENE+OH=ISOPRXN+... & + RXRAT( 541 ) ! ISOPRENE+NO3=ISOPRXN+... LOSS( ISOPRXN ) = 0.0D0 PROD( IEPOX ) = RXRAT( 543 ) ! ISOPOOH+OH=IEPOX+OH LOSS( IEPOX ) = RXRAT( 546 ) ! IEPOX+OH=IEPOXOO & + RXRAT( 752 ) ! IEPOX=AISO3J PROD( ARO2MN ) = 2.0000D-02 * RXRAT( 544 ) ! ISOPOOH+OH=0.2000D-... & + 5.0000D-02 * RXRAT( 545 ) ! ISOPOOH=0.5000D-01*ARO2MN+... LOSS( ARO2MN ) = RXRAT( 580 ) ! ARO2MN+OH=0.7700D-01*HO2+... & + RXRAT( 686 ) ! ARO2MN+CL=0.8280D+00*xHO2+... PROD( IEPOXOO ) = RXRAT( 546 ) ! IEPOX+OH=IEPOXOO LOSS( IEPOXOO ) = RXRAT( 547 ) ! IEPOXOO+HO2=0.7250D+00*MEK+... & + RXRAT( 548 ) ! IEPOXOO+NO=0.7250D+00*MEK+... & + RXRAT( 549 ) ! IEPOXOO+MEO2=0.3630D+... & + RXRAT( 550 ) ! IEPOXOO+RO2C=0.3630D+... & + RXRAT( 551 ) ! IEPOXOO+MECO3=0.7250D+... PROD( APIN ) = 0.0D0 LOSS( APIN ) = RXRAT( 552 ) ! APIN+OH=0.7990D+00*xHO2+... & + RXRAT( 553 ) ! APIN+O3=0.9000D-02*HO2+... & + RXRAT( 554 ) ! APIN+NO3=0.5600D-01*xHO2+... & + RXRAT( 555 ) ! APIN+O3P=PRD2+TRPRXN & + RXRAT( 670 ) ! APIN+CL=0.5480D+00*HCL+... PROD( TRPRXN ) = RXRAT( 552 ) ! APIN+OH=TRPRXN+0.4000D-... & + RXRAT( 553 ) ! APIN+O3=TRPRXN+0.1020D+... & + RXRAT( 554 ) ! APIN+NO3=TRPRXN+0.6430D+... & + RXRAT( 555 ) ! APIN+O3P=TRPRXN+PRD2 & + RXRAT( 582 ) ! TERP+OH=TRPRXN+0.6400D-... & + RXRAT( 583 ) ! TERP+O3=TRPRXN+0.4600D-... & + RXRAT( 584 ) ! TERP+NO3=TRPRXN+0.2870D+... & + RXRAT( 585 ) ! TERP+O3P=TRPRXN+0.7630D+... LOSS( TRPRXN ) = 0.0D0 PROD( ACETYLENE ) = 0.0D0 LOSS( ACETYLENE ) = RXRAT( 556 ) ! ACETYLENE+OH=0.3000D+... & + RXRAT( 557 ) ! ACETYLENE+O3=0.1500D+... & + RXRAT( 671 ) ! ACETYLENE+CL=HO2+CO PROD( BENZENE ) = 0.0D0 LOSS( BENZENE ) = RXRAT( 558 ) ! BENZENE+OH=0.5700D+00*HO2+... PROD( BENZRO2 ) = RXRAT( 558 ) ! BENZENE+OH=BENZRO2+0.2900D+... LOSS( BENZRO2 ) = RXRAT( 690 ) ! BENZRO2+NO=NO+BNZNRXN & + RXRAT( 691 ) ! BENZRO2+HO2=HO2+BNZHRXN PROD( TOLUENE ) = 0.0D0 LOSS( TOLUENE ) = RXRAT( 559 ) ! TOLUENE+OH=0.1810D+00*HO2+... & + RXRAT( 672 ) ! TOLUENE+CL=0.8940D+00*xHO2+... PROD( TOLRO2 ) = RXRAT( 559 ) ! TOLUENE+OH=TOLRO2+0.4540D+... & + RXRAT( 579 ) ! ARO1+OH=TOLRO2+0.5660D+... LOSS( TOLRO2 ) = RXRAT( 694 ) ! TOLRO2+NO=NO+TOLNRXN & + RXRAT( 695 ) ! TOLRO2+HO2=HO2+TOLHRXN PROD( MXYL ) = 0.0D0 LOSS( MXYL ) = RXRAT( 560 ) ! MXYL+OH=0.1590D+00*HO2+... & + RXRAT( 673 ) ! MXYL+CL=0.8640D+00*xHO2+... PROD( XYLRO2 ) = RXRAT( 560 ) ! MXYL+OH=XYLRO2+0.5200D+... & + RXRAT( 561 ) ! OXYL+OH=XYLRO2+0.5540D+... & + RXRAT( 562 ) ! PXYL+OH=XYLRO2+0.4870D+... & + RXRAT( 563 ) ! TMBENZ124+OH=XYLRO2+... & + RXRAT( 580 ) ! ARO2MN+OH=XYLRO2+0.6170D+... LOSS( XYLRO2 ) = RXRAT( 692 ) ! XYLRO2+NO=NO+XYLNRXN & + RXRAT( 693 ) ! XYLRO2+HO2=HO2+XYLHRXN PROD( OXYL ) = 0.0D0 LOSS( OXYL ) = RXRAT( 561 ) ! OXYL+OH=0.1610D+00*HO2+... & + RXRAT( 674 ) ! OXYL+CL=0.8640D+00*xHO2+... PROD( PXYL ) = 0.0D0 LOSS( PXYL ) = RXRAT( 562 ) ! PXYL+OH=0.1590D+00*HO2+... & + RXRAT( 675 ) ! PXYL+CL=0.8640D+00*xHO2+... PROD( TMBENZ124 ) = 0.0D0 LOSS( TMBENZ124 ) = RXRAT( 563 ) ! TMBENZ124+OH=0.2200D-... & + RXRAT( 676 ) ! TMBENZ124+CL=0.8380D+... PROD( ETOH ) = 0.0D0 LOSS( ETOH ) = RXRAT( 564 ) ! ETOH+OH=0.9500D+00*HO2+... & + RXRAT( 677 ) ! ETOH+CL=HCL+0.6880D+00*HO2+... PROD( ALK1 ) = 0.0D0 LOSS( ALK1 ) = RXRAT( 565 ) ! ALK1+OH=xHO2+RO2C+xCCHO+yROOH & + RXRAT( 678 ) ! ALK1+CL=HCL+xHO2+RO2C+... PROD( ALK2 ) = 0.0D0 LOSS( ALK2 ) = RXRAT( 566 ) ! ALK2+OH=0.9650D+00*xHO2+... & + RXRAT( 679 ) ! ALK2+CL=HCL+0.9700D+... PROD( ALK3 ) = 0.0D0 LOSS( ALK3 ) = RXRAT( 567 ) ! ALK3+OH=0.6950D+00*xHO2+... & + RXRAT( 680 ) ! ALK3+CL=HCL+0.8350D+... PROD( ALK4 ) = 0.0D0 LOSS( ALK4 ) = RXRAT( 568 ) ! ALK4+OH=0.8300D+00*xHO2+... & + RXRAT( 681 ) ! ALK4+CL=HCL+0.8270D+... PROD( ALK5 ) = 0.0D0 LOSS( ALK5 ) = RXRAT( 569 ) ! ALK5+OH=0.6470D+00*xHO2+... & + RXRAT( 682 ) ! ALK5+CL=HCL+0.6470D+... PROD( SOAALK ) = 0.0D0 LOSS( SOAALK ) = RXRAT( 570 ) ! SOAALK+OH=OH+0.4700D+00*ALKRXN PROD( ALKRXN ) = 4.7000D-01 * RXRAT( 570 ) ! SOAALK+OH=0.4700D+00*ALKRXN+OH LOSS( ALKRXN ) = 0.0D0 PROD( OLE1 ) = 0.0D0 LOSS( OLE1 ) = RXRAT( 571 ) ! OLE1+OH=0.8710D+00*xHO2+... & + RXRAT( 572 ) ! OLE1+O3=0.9500D-01*HO2+... & + RXRAT( 573 ) ! OLE1+NO3=0.7720D+00*xHO2+... & + RXRAT( 574 ) ! OLE1+O3P=0.4500D+00*RCHO+... & + RXRAT( 683 ) ! OLE1+CL=0.3840D+00*HCL+... PROD( OLE2 ) = 0.0D0 LOSS( OLE2 ) = RXRAT( 575 ) ! OLE2+OH=0.9120D+00*xHO2+... & + RXRAT( 576 ) ! OLE2+O3=0.9400D-01*HO2+... & + RXRAT( 577 ) ! OLE2+NO3=0.4000D+00*xHO2+... & + RXRAT( 578 ) ! OLE2+O3P=0.7900D-01*RCHO+... & + RXRAT( 684 ) ! OLE2+CL=0.2790D+00*HCL+... PROD( ARO1 ) = 0.0D0 LOSS( ARO1 ) = RXRAT( 579 ) ! ARO1+OH=0.1230D+00*HO2+... & + RXRAT( 685 ) ! ARO1+CL=0.8400D+00*xHO2+... PROD( NAPHTHAL ) = 0.0D0 LOSS( NAPHTHAL ) = RXRAT( 581 ) ! NAPHTHAL+OH=0.7700D-01*HO2+... & + RXRAT( 687 ) ! NAPHTHAL+CL=0.8280D+... PROD( PAHRO2 ) = RXRAT( 581 ) ! NAPHTHAL+OH=PAHRO2+0.6170D+... LOSS( PAHRO2 ) = RXRAT( 696 ) ! PAHRO2+NO=NO+PAHNRXN & + RXRAT( 697 ) ! PAHRO2+HO2=HO2+PAHHRXN PROD( TERP ) = 0.0D0 LOSS( TERP ) = RXRAT( 582 ) ! TERP+OH=0.7340D+00*xHO2+... & + RXRAT( 583 ) ! TERP+O3=0.7800D-01*HO2+... & + RXRAT( 584 ) ! TERP+NO3=0.2270D+00*xHO2+... & + RXRAT( 585 ) ! TERP+O3P=0.2370D+00*RCHO+... & + RXRAT( 688 ) ! TERP+CL=0.5480D+00*HCL+... PROD( SESQ ) = 0.0D0 LOSS( SESQ ) = RXRAT( 586 ) ! SESQ+OH=0.7340D+00*xHO2+... & + RXRAT( 587 ) ! SESQ+O3=0.7800D-01*HO2+... & + RXRAT( 588 ) ! SESQ+NO3=0.2270D+00*xHO2+... & + RXRAT( 589 ) ! SESQ+O3P=0.2370D+00*RCHO+... & + RXRAT( 689 ) ! SESQ+CL=0.2520D+00*xHO2+... PROD( SESQRXN ) = RXRAT( 586 ) ! SESQ+OH=SESQRXN+0.6400D-... & + RXRAT( 587 ) ! SESQ+O3=SESQRXN+0.4600D-... & + RXRAT( 588 ) ! SESQ+NO3=SESQRXN+0.2870D+... & + RXRAT( 589 ) ! SESQ+O3P=SESQRXN+0.7630D+... LOSS( SESQRXN ) = 0.0D0 PROD( CL2 ) = RXRAT( 606 ) ! CL+CLONO2=CL2+NO3 & + 2.9000D-01 * RXRAT( 609 ) ! CLO+CLO=0.2900D+00*CL2+... LOSS( CL2 ) = RXRAT( 590 ) ! CL2=0.2000D+01*CL PROD( CL ) = 2.0000D+00 * RXRAT( 590 ) ! CL2=0.2000D+01*CL & + RXRAT( 592 ) ! CLNO=CL+NO & + RXRAT( 595 ) ! CLONO=CL+NO2 & + RXRAT( 596 ) ! CLNO2=CL+NO2 & + RXRAT( 601 ) ! CLO+NO=CL+NO2 & + RXRAT( 604 ) ! CLONO2=CL+NO3 & + RXRAT( 608 ) ! HOCL=CL+OH & + 1.4200D+00 * RXRAT( 609 ) ! CLO+CLO=0.1420D+01*CL+... & + RXRAT( 610 ) ! OH+HCL=CL & + RXRAT( 635 ) ! xCL+NO=CL+NO & + RXRAT( 637 ) ! xCL+NO3=CL+NO3 & + 5.0000D-01 * RXRAT( 638 ) ! xCL+MEO2=0.5000D+00*CL+MEO2 & + 5.0000D-01 * RXRAT( 639 ) ! xCL+RO2C=0.5000D+00*CL+RO2C & + 5.0000D-01 * RXRAT( 640 ) ! xCL+RO2XC=0.5000D+00*CL+RO2XC & + RXRAT( 641 ) ! xCL+MECO3=CL+MECO3 & + RXRAT( 642 ) ! xCL+RCO3=CL+RCO3 & + RXRAT( 643 ) ! xCL+BZCO3=CL+BZCO3 & + RXRAT( 644 ) ! xCL+MACO3=CL+MACO3 LOSS( CL ) = RXRAT( 591 ) ! CL+NO=CLNO & + RXRAT( 593 ) ! CL+NO2=CLONO & + RXRAT( 594 ) ! CL+NO2=CLNO2 & + RXRAT( 597 ) ! CL+HO2=HCL & + RXRAT( 598 ) ! CL+HO2=CLO+OH & + RXRAT( 599 ) ! CL+O3=CLO & + RXRAT( 600 ) ! CL+NO3=CLO+NO2 & + RXRAT( 606 ) ! CL+CLONO2=CL2+NO3 & + RXRAT( 611 ) ! CL=HCL+HO2 & + RXRAT( 612 ) ! CL+HCHO=HCL+HO2+CO & + RXRAT( 613 ) ! CL+CCHO=HCL+MECO3 & + RXRAT( 614 ) ! CL+MEOH=HCL+HCHO+HO2 & + RXRAT( 615 ) ! CL+RCHO=HCL+0.9000D+... & + RXRAT( 616 ) ! CL+ACETONE=HCL+RO2C+xHCHO+... & + RXRAT( 617 ) ! CL+MEK=HCL+0.9750D+00*RO2C+... & + RXRAT( 618 ) ! CL+RNO3=HCL+0.3800D-01*NO2+... & + RXRAT( 619 ) ! CL+PRD2=HCL+0.3140D+00*HO2+... & + RXRAT( 620 ) ! CL+GLY=HCL+0.6300D+00*HO2+... & + RXRAT( 621 ) ! CL+MGLY=HCL+CO+MECO3 & + RXRAT( 622 ) ! CL+CRES=HCL+xHO2+xBALD+yR6OOH & + RXRAT( 623 ) ! CL+BALD=HCL+BZCO3 & + RXRAT( 624 ) ! CL+ROOH=HCL+0.4140D+00*OH+... & + RXRAT( 625 ) ! CL+R6OOH=HCL+0.1450D+00*OH+... & + RXRAT( 626 ) ! CL+RAOOH=0.4040D+00*HCL+... & + RXRAT( 627 ) ! CL+ACROLEIN=0.4840D+... & + RXRAT( 628 ) ! CL+MACR=0.2500D+00*HCL+... & + RXRAT( 629 ) ! CL+MVK=0.1283D+01*RO2C+... & + RXRAT( 630 ) ! CL+IPRD=0.4010D+00*HCL+... & + RXRAT( 633 ) ! CL+CLCCHO=HCL+RCO3 & + RXRAT( 665 ) ! CL=HCL+MEO2 & + RXRAT( 666 ) ! CL+ETHENE=xHO2+0.2000D+... & + RXRAT( 667 ) ! CL+PROPENE=0.1240D+00*HCL+... & + RXRAT( 668 ) ! CL+BUTADIENE13=0.3900D+... & + RXRAT( 669 ) ! CL+ISOPRENE=0.1500D+00*HCL+... & + RXRAT( 670 ) ! CL+APIN=0.5480D+00*HCL+... & + RXRAT( 671 ) ! CL+ACETYLENE=HO2+CO & + RXRAT( 672 ) ! CL+TOLUENE=0.8940D+00*xHO2+... & + RXRAT( 673 ) ! CL+MXYL=0.8640D+00*xHO2+... & + RXRAT( 674 ) ! CL+OXYL=0.8640D+00*xHO2+... & + RXRAT( 675 ) ! CL+PXYL=0.8640D+00*xHO2+... & + RXRAT( 676 ) ! CL+TMBENZ124=0.8380D+... & + RXRAT( 677 ) ! CL+ETOH=HCL+0.6880D+00*HO2+... & + RXRAT( 678 ) ! CL+ALK1=HCL+xHO2+RO2C+... & + RXRAT( 679 ) ! CL+ALK2=HCL+0.9700D+... & + RXRAT( 680 ) ! CL+ALK3=HCL+0.8350D+... & + RXRAT( 681 ) ! CL+ALK4=HCL+0.8270D+... & + RXRAT( 682 ) ! CL+ALK5=HCL+0.6470D+... & + RXRAT( 683 ) ! CL+OLE1=0.3840D+00*HCL+... & + RXRAT( 684 ) ! CL+OLE2=0.2790D+00*HCL+... & + RXRAT( 685 ) ! CL+ARO1=0.8400D+00*xHO2+... & + RXRAT( 686 ) ! CL+ARO2MN=0.8280D+00*xHO2+... & + RXRAT( 687 ) ! CL+NAPHTHAL=0.8280D+... & + RXRAT( 688 ) ! CL+TERP=0.5480D+00*HCL+... & + RXRAT( 689 ) ! CL+SESQ=0.2520D+00*xHO2+... PROD( CLNO ) = RXRAT( 591 ) ! CL+NO=CLNO LOSS( CLNO ) = RXRAT( 592 ) ! CLNO=CL+NO PROD( CLONO ) = RXRAT( 593 ) ! CL+NO2=CLONO LOSS( CLONO ) = RXRAT( 595 ) ! CLONO=CL+NO2 PROD( CLNO2 ) = RXRAT( 594 ) ! CL+NO2=CLNO2 & + RXRAT( 718 ) ! H2NO3PIJ+ACLI=CLNO2 & + RXRAT( 719 ) ! H2NO3PIJ+ACLJ=CLNO2 & + RXRAT( 720 ) ! H2NO3PK+ACLK=CLNO2 LOSS( CLNO2 ) = RXRAT( 596 ) ! CLNO2=CL+NO2 PROD( HCL ) = RXRAT( 597 ) ! CL+HO2=HCL & + RXRAT( 611 ) ! CL=HCL+HO2 & + RXRAT( 612 ) ! HCHO+CL=HCL+HO2+CO & + RXRAT( 613 ) ! CCHO+CL=HCL+MECO3 & + RXRAT( 614 ) ! MEOH+CL=HCL+HCHO+HO2 & + RXRAT( 615 ) ! RCHO+CL=HCL+0.9000D+... & + RXRAT( 616 ) ! ACETONE+CL=HCL+RO2C+xHCHO+... & + RXRAT( 617 ) ! MEK+CL=HCL+0.9750D+00*RO2C+... & + RXRAT( 618 ) ! RNO3+CL=HCL+0.3800D-01*NO2+... & + RXRAT( 619 ) ! PRD2+CL=HCL+0.3140D+00*HO2+... & + RXRAT( 620 ) ! GLY+CL=HCL+0.6300D+00*HO2+... & + RXRAT( 621 ) ! MGLY+CL=HCL+CO+MECO3 & + RXRAT( 622 ) ! CRES+CL=HCL+xHO2+xBALD+yR6OOH & + RXRAT( 623 ) ! BALD+CL=HCL+BZCO3 & + RXRAT( 624 ) ! ROOH+CL=HCL+0.4140D+00*OH+... & + RXRAT( 625 ) ! R6OOH+CL=HCL+0.1450D+00*OH+... & + 4.0400D-01 * RXRAT( 626 ) ! RAOOH+CL=0.4040D+00*HCL+... & + 2.1600D-01 * RXRAT( 627 ) ! ACROLEIN+CL=0.2160D+00*HCL+... & + 2.5000D-01 * RXRAT( 628 ) ! MACR+CL=0.2500D+00*HCL+... & + 4.0100D-01 * RXRAT( 630 ) ! IPRD+CL=0.4010D+00*HCL+... & + RXRAT( 633 ) ! CLCCHO+CL=HCL+RCO3 & + RXRAT( 665 ) ! CL=HCL+MEO2 & + 1.2400D-01 * RXRAT( 667 ) ! PROPENE+CL=0.1240D+00*HCL+... & + 1.5000D-01 * RXRAT( 669 ) ! ISOPRENE+CL=0.1500D+00*HCL+... & + 5.4800D-01 * RXRAT( 670 ) ! APIN+CL=0.5480D+00*HCL+... & + RXRAT( 677 ) ! ETOH+CL=HCL+0.6880D+00*HO2+... & + RXRAT( 678 ) ! ALK1+CL=HCL+xHO2+RO2C+... & + RXRAT( 679 ) ! ALK2+CL=HCL+0.9700D+... & + RXRAT( 680 ) ! ALK3+CL=HCL+0.8350D+... & + RXRAT( 681 ) ! ALK4+CL=HCL+0.8270D+... & + RXRAT( 682 ) ! ALK5+CL=HCL+0.6470D+... & + 3.8400D-01 * RXRAT( 683 ) ! OLE1+CL=0.3840D+00*HCL+... & + 2.7900D-01 * RXRAT( 684 ) ! OLE2+CL=0.2790D+00*HCL+... & + 5.4800D-01 * RXRAT( 688 ) ! TERP+CL=0.5480D+00*HCL+... & + 5.4800D-01 * RXRAT( 689 ) ! SESQ+CL=0.5480D+00*HCL+... LOSS( HCL ) = RXRAT( 610 ) ! HCL+OH=CL PROD( CLO ) = RXRAT( 598 ) ! CL+HO2=CLO+OH & + RXRAT( 599 ) ! CL+O3=CLO & + RXRAT( 600 ) ! CL+NO3=CLO+NO2 & + RXRAT( 603 ) ! CLONO2=CLO+NO2 & + RXRAT( 605 ) ! CLONO2=CLO+NO2 LOSS( CLO ) = RXRAT( 601 ) ! CLO+NO=CL+NO2 & + RXRAT( 602 ) ! CLO+NO2=CLONO2 & + RXRAT( 607 ) ! CLO+HO2=HOCL & + 2.0000D+00 * RXRAT( 609 ) ! CLO+CLO=0.2900D+00*CL2+... PROD( CLONO2 ) = RXRAT( 602 ) ! CLO+NO2=CLONO2 LOSS( CLONO2 ) = RXRAT( 603 ) ! CLONO2=CLO+NO2 & + RXRAT( 604 ) ! CLONO2=CL+NO3 & + RXRAT( 605 ) ! CLONO2=CLO+NO2 & + RXRAT( 606 ) ! CLONO2+CL=CL2+NO3 PROD( HOCL ) = RXRAT( 607 ) ! CLO+HO2=HOCL LOSS( HOCL ) = RXRAT( 608 ) ! HOCL=OH+CL PROD( xCL ) = 2.7400D-01 * RXRAT( 627 ) ! ACROLEIN+CL=0.2740D+00*xCL+... & + RXRAT( 631 ) ! CLCCHO=xCL+CO+RO2C+HO2+... & + RXRAT( 634 ) ! CLACET=xCL+RO2C+MECO3+... & + 5.4100D-01 * RXRAT( 668 ) ! BUTADIENE13+CL=0.5410D+... & + 1.7700D-01 * RXRAT( 669 ) ! ISOPRENE+CL=0.1770D+00*xCL+... & + 6.8000D-02 * RXRAT( 670 ) ! APIN+CL=0.6800D-01*xCL+... & + 4.4200D-01 * RXRAT( 684 ) ! OLE2+CL=0.4420D+00*xCL+... & + 6.8000D-02 * RXRAT( 688 ) ! TERP+CL=0.6800D-01*xCL+... & + 6.8000D-02 * RXRAT( 689 ) ! SESQ+CL=0.6800D-01*xCL+... LOSS( xCL ) = RXRAT( 635 ) ! xCL+NO=NO+CL & + RXRAT( 636 ) ! xCL+HO2=HO2 & + RXRAT( 637 ) ! xCL+NO3=NO3+CL & + RXRAT( 638 ) ! xCL+MEO2=MEO2+0.5000D+00*CL & + RXRAT( 639 ) ! xCL+RO2C=RO2C+0.5000D+00*CL & + RXRAT( 640 ) ! xCL+RO2XC=RO2XC+0.5000D+00*CL & + RXRAT( 641 ) ! xCL+MECO3=MECO3+CL & + RXRAT( 642 ) ! xCL+RCO3=RCO3+CL & + RXRAT( 643 ) ! xCL+BZCO3=BZCO3+CL & + RXRAT( 644 ) ! xCL+MACO3=MACO3+CL PROD( xCLCCHO ) = 4.8400D-01 * RXRAT( 627 ) ! ACROLEIN+CL=0.4840D+... & + 1.8000D-01 * RXRAT( 628 ) ! MACR+CL=0.1800D+00*xCLCCHO+... & + 9.4700D-01 * RXRAT( 629 ) ! MVK+CL=0.9470D+00*xCLCCHO+... & + 1.4000D-01 * RXRAT( 630 ) ! IPRD+CL=0.1400D+00*xCLCCHO+... & + 3.0600D-01 * RXRAT( 667 ) ! PROPENE+CL=0.3060D+... & + 6.7000D-02 * RXRAT( 669 ) ! ISOPRENE+CL=0.6700D-... & + 1.0900D-01 * RXRAT( 670 ) ! APIN+CL=0.1090D+00*xCLCCHO+... & + 1.9200D-01 * RXRAT( 683 ) ! OLE1+CL=0.1920D+00*xCLCCHO+... & + 1.3000D-02 * RXRAT( 684 ) ! OLE2+CL=0.1300D-01*xCLCCHO+... & + 1.0900D-01 * RXRAT( 688 ) ! TERP+CL=0.1090D+00*xCLCCHO+... & + 1.0900D-01 * RXRAT( 689 ) ! SESQ+CL=0.1090D+00*xCLCCHO+... LOSS( xCLCCHO ) = RXRAT( 645 ) ! xCLCCHO+NO=NO+CLCCHO & + RXRAT( 646 ) ! xCLCCHO+HO2=HO2 & + RXRAT( 647 ) ! xCLCCHO+NO3=NO3+CLCCHO & + RXRAT( 648 ) ! xCLCCHO+MEO2=MEO2+0.5000D+... & + RXRAT( 649 ) ! xCLCCHO+RO2C=RO2C+0.5000D+... & + RXRAT( 650 ) ! xCLCCHO+RO2XC=RO2XC+... & + RXRAT( 651 ) ! xCLCCHO+MECO3=MECO3+CLCCHO & + RXRAT( 652 ) ! xCLCCHO+RCO3=RCO3+CLCCHO & + RXRAT( 653 ) ! xCLCCHO+BZCO3=BZCO3+CLCCHO & + RXRAT( 654 ) ! xCLCCHO+MACO3=MACO3+CLCCHO PROD( xCLACET ) = 5.4100D-01 * RXRAT( 628 ) ! MACR+CL=0.5410D+00*xCLACET+... & + 4.2000D-01 * RXRAT( 630 ) ! IPRD+CL=0.4200D+00*xCLACET+... & + 5.4000D-01 * RXRAT( 667 ) ! PROPENE+CL=0.5400D+... & + 3.3700D-01 * RXRAT( 683 ) ! OLE1+CL=0.3370D+00*xCLACET+... & + 1.9100D-01 * RXRAT( 684 ) ! OLE2+CL=0.1910D+00*xCLACET+... LOSS( xCLACET ) = RXRAT( 655 ) ! xCLACET+NO=NO+CLACET & + RXRAT( 656 ) ! xCLACET+HO2=HO2 & + RXRAT( 657 ) ! xCLACET+NO3=NO3+CLACET & + RXRAT( 658 ) ! xCLACET+MEO2=MEO2+0.5000D+... & + RXRAT( 659 ) ! xCLACET+RO2C=RO2C+0.5000D+... & + RXRAT( 660 ) ! xCLACET+RO2XC=RO2XC+... & + RXRAT( 661 ) ! xCLACET+MECO3=MECO3+CLACET & + RXRAT( 662 ) ! xCLACET+RCO3=RCO3+CLACET & + RXRAT( 663 ) ! xCLACET+BZCO3=BZCO3+CLACET & + RXRAT( 664 ) ! xCLACET+MACO3=MACO3+CLACET PROD( CLCCHO ) = RXRAT( 645 ) ! xCLCCHO+NO=CLCCHO+NO & + RXRAT( 647 ) ! xCLCCHO+NO3=CLCCHO+NO3 & + 5.0000D-01 * RXRAT( 648 ) ! xCLCCHO+MEO2=0.5000D+... & + 5.0000D-01 * RXRAT( 649 ) ! xCLCCHO+RO2C=0.5000D+... & + 5.0000D-01 * RXRAT( 650 ) ! xCLCCHO+RO2XC=0.5000D+... & + RXRAT( 651 ) ! xCLCCHO+MECO3=CLCCHO+MECO3 & + RXRAT( 652 ) ! xCLCCHO+RCO3=CLCCHO+RCO3 & + RXRAT( 653 ) ! xCLCCHO+BZCO3=CLCCHO+BZCO3 & + RXRAT( 654 ) ! xCLCCHO+MACO3=CLCCHO+MACO3 LOSS( CLCCHO ) = RXRAT( 631 ) ! CLCCHO=HO2+CO+RO2C+xCL+... & + RXRAT( 632 ) ! CLCCHO+OH=RCO3 & + RXRAT( 633 ) ! CLCCHO+CL=HCL+RCO3 PROD( CLACET ) = RXRAT( 655 ) ! xCLACET+NO=CLACET+NO & + RXRAT( 657 ) ! xCLACET+NO3=CLACET+NO3 & + 5.0000D-01 * RXRAT( 658 ) ! xCLACET+MEO2=0.5000D+... & + 5.0000D-01 * RXRAT( 659 ) ! xCLACET+RO2C=0.5000D+... & + 5.0000D-01 * RXRAT( 660 ) ! xCLACET+RO2XC=0.5000D+... & + RXRAT( 661 ) ! xCLACET+MECO3=CLACET+MECO3 & + RXRAT( 662 ) ! xCLACET+RCO3=CLACET+RCO3 & + RXRAT( 663 ) ! xCLACET+BZCO3=CLACET+BZCO3 & + RXRAT( 664 ) ! xCLACET+MACO3=CLACET+MACO3 LOSS( CLACET ) = RXRAT( 634 ) ! CLACET=MECO3+RO2C+xCL+... PROD( CLCHO ) = RXRAT( 666 ) ! ETHENE+CL=CLCHO+0.2000D+... LOSS( CLCHO ) = 0.0D0 PROD( BNZNRXN ) = RXRAT( 690 ) ! BENZRO2+NO=BNZNRXN+NO LOSS( BNZNRXN ) = 0.0D0 PROD( BNZHRXN ) = RXRAT( 691 ) ! BENZRO2+HO2=BNZHRXN+HO2 LOSS( BNZHRXN ) = 0.0D0 PROD( XYLNRXN ) = RXRAT( 692 ) ! XYLRO2+NO=XYLNRXN+NO LOSS( XYLNRXN ) = 0.0D0 PROD( XYLHRXN ) = RXRAT( 693 ) ! XYLRO2+HO2=XYLHRXN+HO2 LOSS( XYLHRXN ) = 0.0D0 PROD( TOLNRXN ) = RXRAT( 694 ) ! TOLRO2+NO=TOLNRXN+NO LOSS( TOLNRXN ) = 0.0D0 PROD( TOLHRXN ) = RXRAT( 695 ) ! TOLRO2+HO2=TOLHRXN+HO2 LOSS( TOLHRXN ) = 0.0D0 PROD( PAHNRXN ) = RXRAT( 696 ) ! PAHRO2+NO=PAHNRXN+NO LOSS( PAHNRXN ) = 0.0D0 PROD( PAHHRXN ) = RXRAT( 697 ) ! PAHRO2+HO2=PAHHRXN+HO2 LOSS( PAHHRXN ) = 0.0D0 PROD( HCHO_PRIMARY ) = 0.0D0 LOSS( HCHO_PRIMARY ) = RXRAT( 698 ) ! HCHO_PRIMARY= & + RXRAT( 699 ) ! HCHO_PRIMARY= & + RXRAT( 700 ) ! HCHO_PRIMARY+OH=OH & + RXRAT( 701 ) ! HCHO_PRIMARY+NO3=NO3 & + RXRAT( 702 ) ! HCHO_PRIMARY+CL=CL PROD( CCHO_PRIMARY ) = 0.0D0 LOSS( CCHO_PRIMARY ) = RXRAT( 703 ) ! CCHO_PRIMARY+OH=OH & + RXRAT( 704 ) ! CCHO_PRIMARY= & + RXRAT( 705 ) ! CCHO_PRIMARY+NO3=NO3 & + RXRAT( 706 ) ! CCHO_PRIMARY+CL=CL PROD( ACRO_PRIMARY ) = 0.0D0 LOSS( ACRO_PRIMARY ) = RXRAT( 707 ) ! ACRO_PRIMARY+OH=OH & + RXRAT( 708 ) ! ACRO_PRIMARY+O3=O3 & + RXRAT( 709 ) ! ACRO_PRIMARY+NO3=NO3 & + RXRAT( 710 ) ! ACRO_PRIMARY+O3P=O3P & + RXRAT( 711 ) ! ACRO_PRIMARY= & + RXRAT( 712 ) ! ACRO_PRIMARY+CL=CL PROD( H2NO3PIJ ) = RXRAT( 714 ) ! N2O5=H2NO3PIJ+HNO3 LOSS( H2NO3PIJ ) = RXRAT( 716 ) ! H2NO3PIJ=HNO3 & + RXRAT( 718 ) ! H2NO3PIJ+ACLI=CLNO2 & + RXRAT( 719 ) ! H2NO3PIJ+ACLJ=CLNO2 PROD( H2NO3PK ) = RXRAT( 715 ) ! N2O5=H2NO3PK+HNO3 LOSS( H2NO3PK ) = RXRAT( 717 ) ! H2NO3PK=HNO3 & + RXRAT( 720 ) ! H2NO3PK+ACLK=CLNO2 PROD( ACLI ) = 0.0D0 LOSS( ACLI ) = RXRAT( 718 ) ! ACLI+H2NO3PIJ=CLNO2 PROD( ACLJ ) = 0.0D0 LOSS( ACLJ ) = RXRAT( 719 ) ! ACLJ+H2NO3PIJ=CLNO2 PROD( ACLK ) = 0.0D0 LOSS( ACLK ) = RXRAT( 720 ) ! ACLK+H2NO3PK=CLNO2 PROD( AXYL1J ) = 0.0D0 LOSS( AXYL1J ) = RXRAT( 722 ) ! AXYL1J=0.8571D+00*AOLGAJ PROD( AOLGAJ ) = 8.5710D-01 * RXRAT( 722 ) ! AXYL1J=0.8571D+00*AOLGAJ & + 1.1429D+00 * RXRAT( 723 ) ! AXYL2J=0.1143D+01*AOLGAJ & + 8.5710D-01 * RXRAT( 724 ) ! ATOL1J=0.8571D+00*AOLGAJ & + 1.1429D+00 * RXRAT( 725 ) ! ATOL2J=0.1143D+01*AOLGAJ & + 7.1430D-01 * RXRAT( 726 ) ! ABNZ1J=0.7143D+00*AOLGAJ & + 7.1430D-01 * RXRAT( 727 ) ! ABNZ2J=0.7143D+00*AOLGAJ & + 1.4286D+00 * RXRAT( 733 ) ! APAH1J=0.1429D+01*AOLGAJ & + 1.4286D+00 * RXRAT( 734 ) ! APAH2J=0.1429D+01*AOLGAJ & + 1.7143D+00 * RXRAT( 735 ) ! AALK1J=0.1714D+01*AOLGAJ & + 1.7143D+00 * RXRAT( 736 ) ! AALK2J=0.1714D+01*AOLGAJ LOSS( AOLGAJ ) = 0.0D0 PROD( AXYL2J ) = 0.0D0 LOSS( AXYL2J ) = RXRAT( 723 ) ! AXYL2J=0.1143D+01*AOLGAJ PROD( ATOL1J ) = 0.0D0 LOSS( ATOL1J ) = RXRAT( 724 ) ! ATOL1J=0.8571D+00*AOLGAJ PROD( ATOL2J ) = 0.0D0 LOSS( ATOL2J ) = RXRAT( 725 ) ! ATOL2J=0.1143D+01*AOLGAJ PROD( ABNZ1J ) = 0.0D0 LOSS( ABNZ1J ) = RXRAT( 726 ) ! ABNZ1J=0.7143D+00*AOLGAJ PROD( ABNZ2J ) = 0.0D0 LOSS( ABNZ2J ) = RXRAT( 727 ) ! ABNZ2J=0.7143D+00*AOLGAJ PROD( ATRP1J ) = 0.0D0 LOSS( ATRP1J ) = RXRAT( 728 ) ! ATRP1J=0.8000D+00*AOLGBJ PROD( AOLGBJ ) = 8.0000D-01 * RXRAT( 728 ) ! ATRP1J=0.8000D+00*AOLGBJ & + 9.0000D-01 * RXRAT( 729 ) ! ATRP2J=0.9000D+00*AOLGBJ & + 5.0000D-01 * RXRAT( 730 ) ! AISO1J=0.5000D+00*AOLGBJ & + 5.0000D-01 * RXRAT( 731 ) ! AISO2J=0.5000D+00*AOLGBJ & + 1.5000D+00 * RXRAT( 732 ) ! ASQTJ=0.1500D+01*AOLGBJ LOSS( AOLGBJ ) = 0.0D0 PROD( ATRP2J ) = 0.0D0 LOSS( ATRP2J ) = RXRAT( 729 ) ! ATRP2J=0.9000D+00*AOLGBJ PROD( AISO1J ) = 0.0D0 LOSS( AISO1J ) = RXRAT( 730 ) ! AISO1J=0.5000D+00*AOLGBJ PROD( AISO2J ) = 0.0D0 LOSS( AISO2J ) = RXRAT( 731 ) ! AISO2J=0.5000D+00*AOLGBJ PROD( ASQTJ ) = 0.0D0 LOSS( ASQTJ ) = RXRAT( 732 ) ! ASQTJ=0.1500D+01*AOLGBJ PROD( APAH1J ) = 0.0D0 LOSS( APAH1J ) = RXRAT( 733 ) ! APAH1J=0.1429D+01*AOLGAJ PROD( APAH2J ) = 0.0D0 LOSS( APAH2J ) = RXRAT( 734 ) ! APAH2J=0.1429D+01*AOLGAJ PROD( AALK1J ) = 0.0D0 LOSS( AALK1J ) = RXRAT( 735 ) ! AALK1J=0.1714D+01*AOLGAJ PROD( AALK2J ) = 0.0D0 LOSS( AALK2J ) = RXRAT( 736 ) ! AALK2J=0.1714D+01*AOLGAJ PROD( APOCI ) = 0.0D0 LOSS( APOCI ) = 0.0D0 PROD( APNCOMI ) = 1.2500D+00 * RXRAT( 737 ) ! APOCI+OH=0.1250D+... LOSS( APNCOMI ) = RXRAT( 738 ) ! APNCOMI+OH=OH PROD( APOCJ ) = 0.0D0 LOSS( APOCJ ) = 0.0D0 PROD( APNCOMJ ) = 1.2500D+00 * RXRAT( 739 ) ! APOCJ+OH=0.1250D+... LOSS( APNCOMJ ) = RXRAT( 740 ) ! APNCOMJ+OH=OH PROD( PCVOC ) = 0.0D0 LOSS( PCVOC ) = RXRAT( 741 ) ! PCVOC+OH=OH+PCSOARXN PROD( PCSOARXN ) = RXRAT( 741 ) ! PCVOC+OH=PCSOARXN+OH LOSS( PCSOARXN ) = 0.0D0 PROD( VLVPO1 ) = 3.0030D-01 * RXRAT( 743 ) ! VSVPO1+OH=0.3003D+... & + 3.8560D-01 * RXRAT( 744 ) ! VSVPO2+OH=0.3856D+... & + 2.1810D-01 * RXRAT( 745 ) ! VSVPO3+OH=0.2181D+... & + 2.4120D-01 * RXRAT( 746 ) ! VIVPO1+OH=0.2412D+... LOSS( VLVPO1 ) = 5.1430D-01 * RXRAT( 742 ) ! VLVPO1+OH=0.4857D+... PROD( VSVPO1 ) = 6.2000D-03 * RXRAT( 742 ) ! VLVPO1+OH=0.6200D-... & + 9.5000D-02 * RXRAT( 744 ) ! VSVPO2+OH=0.9500D-... & + 3.0630D-01 * RXRAT( 745 ) ! VSVPO3+OH=0.3063D+... & + 2.0890D-01 * RXRAT( 746 ) ! VIVPO1+OH=0.2089D+... LOSS( VSVPO1 ) = 7.1380D-01 * RXRAT( 743 ) ! VSVPO1+OH=0.2862D+... PROD( VSVPO2 ) = 2.5000D-03 * RXRAT( 742 ) ! VLVPO1+OH=0.2500D-... & + 4.1000D-03 * RXRAT( 743 ) ! VSVPO1+OH=0.4100D-... & + 1.5300D-02 * RXRAT( 745 ) ! VSVPO3+OH=0.1530D-... & + 3.0000D-01 * RXRAT( 746 ) ! VIVPO1+OH=0.3000D+... LOSS( VSVPO2 ) = 8.6270D-01 * RXRAT( 744 ) ! VSVPO2+OH=0.1373D+... PROD( VSVPO3 ) = 2.6000D-03 * RXRAT( 742 ) ! VLVPO1+OH=0.2600D-... & + 3.5000D-03 * RXRAT( 743 ) ! VSVPO1+OH=0.3500D-... & + 5.0000D-04 * RXRAT( 744 ) ! VSVPO2+OH=0.5000D-... LOSS( VSVPO3 ) = 8.9570D-01 * RXRAT( 745 ) ! VSVPO3+OH=0.1043D+... PROD( VIVPO1 ) = 2.3000D-03 * RXRAT( 742 ) ! VLVPO1+OH=0.2300D-... LOSS( VIVPO1 ) = RXRAT( 746 ) ! VIVPO1+OH=OH+0.2412D+... PROD( VLVOO1 ) = 2.9440D-01 * RXRAT( 742 ) ! VLVPO1+OH=0.2944D+... & + 2.2390D-01 * RXRAT( 743 ) ! VSVPO1+OH=0.2239D+... & + 2.0510D-01 * RXRAT( 744 ) ! VSVPO2+OH=0.2051D+... & + 1.8930D-01 * RXRAT( 745 ) ! VSVPO3+OH=0.1893D+... & + 2.0280D-01 * RXRAT( 746 ) ! VIVPO1+OH=0.2028D+... & + 2.8580D-01 * RXRAT( 748 ) ! VLVOO2+OH=0.2858D+... & + 3.3030D-01 * RXRAT( 749 ) ! VSVOO1+OH=0.3303D+... & + 3.4440D-01 * RXRAT( 750 ) ! VSVOO2+OH=0.3444D+... & + 3.8860D-01 * RXRAT( 751 ) ! VSVOO3+OH=0.3886D+... LOSS( VLVOO1 ) = 3.3360D-01 * RXRAT( 747 ) ! VLVOO1+OH=0.6664D+... PROD( VLVOO2 ) = 2.0210D-01 * RXRAT( 742 ) ! VLVPO1+OH=0.2021D+... & + 1.8200D-01 * RXRAT( 743 ) ! VSVPO1+OH=0.1820D+... & + 1.7640D-01 * RXRAT( 744 ) ! VSVPO2+OH=0.1764D+... & + 1.6680D-01 * RXRAT( 745 ) ! VSVPO3+OH=0.1668D+... & + 4.7100D-02 * RXRAT( 746 ) ! VIVPO1+OH=0.4710D-... & + 1.4300D-02 * RXRAT( 747 ) ! VLVOO1+OH=0.1430D-... & + 2.2720D-01 * RXRAT( 749 ) ! VSVOO1+OH=0.2272D+... & + 2.7490D-01 * RXRAT( 750 ) ! VSVOO2+OH=0.2749D+... & + 2.4210D-01 * RXRAT( 751 ) ! VSVOO3+OH=0.2421D+... LOSS( VLVOO2 ) = 6.0690D-01 * RXRAT( 748 ) ! VLVOO2+OH=0.3931D+... PROD( VSVOO2 ) = 1.9000D-03 * RXRAT( 742 ) ! VLVPO1+OH=0.1900D-... & + 1.2390D-01 * RXRAT( 747 ) ! VLVOO1+OH=0.1239D+... & + 1.0270D-01 * RXRAT( 748 ) ! VLVOO2+OH=0.1027D+... & + 7.0200D-02 * RXRAT( 749 ) ! VSVOO1+OH=0.7020D-... & + 3.8500D-02 * RXRAT( 751 ) ! VSVOO3+OH=0.3850D-... LOSS( VSVOO2 ) = 7.4230D-01 * RXRAT( 750 ) ! VSVOO2+OH=0.2577D+... PROD( VSVOO3 ) = 2.3000D-03 * RXRAT( 742 ) ! VLVPO1+OH=0.2300D-... & + 1.8310D-01 * RXRAT( 747 ) ! VLVOO1+OH=0.1831D+... & + 2.0450D-01 * RXRAT( 748 ) ! VLVOO2+OH=0.2045D+... & + 1.1160D-01 * RXRAT( 749 ) ! VSVOO1+OH=0.1116D+... & + 7.3900D-02 * RXRAT( 750 ) ! VSVOO2+OH=0.7390D-... LOSS( VSVOO3 ) = 7.3330D-01 * RXRAT( 751 ) ! VSVOO3+OH=0.2667D+... PROD( VSVOO1 ) = 1.2300D-02 * RXRAT( 747 ) ! VLVOO1+OH=0.1230D-... & + 1.3900D-02 * RXRAT( 748 ) ! VLVOO2+OH=0.1390D-... & + 4.9100D-02 * RXRAT( 750 ) ! VSVOO2+OH=0.4910D-... & + 6.4000D-02 * RXRAT( 751 ) ! VSVOO3+OH=0.6400D-... LOSS( VSVOO1 ) = 7.3930D-01 * RXRAT( 749 ) ! VSVOO1+OH=0.2607D+... PROD( AISO3J ) = RXRAT( 752 ) ! IEPOX=AISO3J LOSS( AISO3J ) = 0.0D0 RETURN END ================================================ FILE: CCTM/src/gas/ebi_saprc07tc_ae6_aq/hrrates.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE HRRATES C*********************************************************************** C C FUNCTION: To calculate rates of reactions C C PRECONDITIONS: For the SAPRC07TC_AE6_AQ mechanism C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by EBI solver program, Jun 8, 2022 C C*********************************************************************** USE HRDATA IMPLICIT NONE C.....INCLUDES: NONE C.....ARGUMENTS: NONE C.....PARAMETERS: NONE C.....EXTERNAL FUNCTIONS: NONE C.....SAVED VARIABLES: NONE ! CHARACTER( 16 ), SAVE :: PNAME = 'HRRATES' ! Program name C.....LOCAL VARIABLES: None C*********************************************************************** C..NOTE: RXRAT commented out are not referenced by any routine ! RXRAT( 1 ) = RKI( 1 ) * YC( NO2 ) ! RXRAT( 2 ) = RKI( 2 ) * YC( O3P ) ! RXRAT( 3 ) = RKI( 3 ) * YC( O3P ) * YC( O3 ) ! RXRAT( 4 ) = RKI( 4 ) * YC( O3P ) * YC( NO ) ! RXRAT( 5 ) = RKI( 5 ) * YC( O3P ) * YC( NO2 ) RXRAT( 6 ) = RKI( 6 ) * YC( O3P ) * YC( NO2 ) ! RXRAT( 7 ) = RKI( 7 ) * YC( O3 ) * YC( NO ) RXRAT( 8 ) = RKI( 8 ) * YC( O3 ) * YC( NO2 ) RXRAT( 9 ) = RKI( 9 ) * YC( NO ) * YC( NO3 ) ! RXRAT( 10 ) = RKI( 10 ) * YC( NO ) * YC( NO ) ! RXRAT( 11 ) = RKI( 11 ) * YC( NO2 ) * YC( NO3 ) RXRAT( 12 ) = RKI( 12 ) * YC( N2O5 ) RXRAT( 13 ) = RKI( 13 ) * YC( N2O5 ) RXRAT( 14 ) = RKI( 14 ) * YC( N2O5 ) RXRAT( 15 ) = RKI( 15 ) * YC( NO2 ) * YC( NO3 ) RXRAT( 16 ) = RKI( 16 ) * YC( NO3 ) RXRAT( 17 ) = RKI( 17 ) * YC( NO3 ) RXRAT( 18 ) = RKI( 18 ) * YC( O3 ) RXRAT( 19 ) = RKI( 19 ) * YC( O3 ) ! RXRAT( 20 ) = RKI( 20 ) * YC( O1D ) ! RXRAT( 21 ) = RKI( 21 ) * YC( O1D ) ! RXRAT( 22 ) = RKI( 22 ) * YC( OH ) * YC( NO ) RXRAT( 23 ) = RKI( 23 ) * YC( HONO ) RXRAT( 24 ) = RKI( 24 ) * YC( OH ) * YC( HONO ) RXRAT( 25 ) = RKI( 25 ) * YC( OH ) * YC( NO2 ) RXRAT( 26 ) = RKI( 26 ) * YC( OH ) * YC( NO3 ) RXRAT( 27 ) = RKI( 27 ) * YC( OH ) * YC( HNO3 ) RXRAT( 28 ) = RKI( 28 ) * YC( HNO3 ) RXRAT( 29 ) = RKI( 29 ) * YC( OH ) * YC( CO ) ! RXRAT( 30 ) = RKI( 30 ) * YC( OH ) * YC( O3 ) ! RXRAT( 31 ) = RKI( 31 ) * YC( HO2 ) * YC( NO ) ! RXRAT( 32 ) = RKI( 32 ) * YC( HO2 ) * YC( NO2 ) RXRAT( 33 ) = RKI( 33 ) * YC( HNO4 ) RXRAT( 34 ) = RKI( 34 ) * YC( HNO4 ) RXRAT( 35 ) = RKI( 35 ) * YC( HNO4 ) * YC( OH ) ! RXRAT( 36 ) = RKI( 36 ) * YC( HO2 ) * YC( O3 ) RXRAT( 37 ) = RKI( 37 ) * YC( HO2 ) * YC( HO2 ) RXRAT( 38 ) = RKI( 38 ) * YC( HO2 ) * YC( HO2 ) RXRAT( 39 ) = RKI( 39 ) * YC( NO3 ) * YC( HO2 ) RXRAT( 40 ) = RKI( 40 ) * YC( NO3 ) * YC( NO3 ) RXRAT( 41 ) = RKI( 41 ) * YC( HO2H ) RXRAT( 42 ) = RKI( 42 ) * YC( HO2H ) * YC( OH ) ! RXRAT( 43 ) = RKI( 43 ) * YC( OH ) * YC( HO2 ) RXRAT( 44 ) = RKI( 44 ) * YC( OH ) * YC( SO2 ) ! RXRAT( 45 ) = RKI( 45 ) * YC( OH ) RXRAT( 46 ) = RKI( 46 ) * YC( MEO2 ) * YC( NO ) RXRAT( 47 ) = RKI( 47 ) * YC( MEO2 ) * YC( HO2 ) RXRAT( 48 ) = RKI( 48 ) * YC( MEO2 ) * YC( HO2 ) RXRAT( 49 ) = RKI( 49 ) * YC( MEO2 ) * YC( NO3 ) RXRAT( 50 ) = RKI( 50 ) * YC( MEO2 ) * YC( MEO2 ) RXRAT( 51 ) = RKI( 51 ) * YC( MEO2 ) * YC( MEO2 ) RXRAT( 52 ) = RKI( 52 ) * YC( RO2C ) * YC( NO ) RXRAT( 53 ) = RKI( 53 ) * YC( RO2C ) * YC( HO2 ) RXRAT( 54 ) = RKI( 54 ) * YC( RO2C ) * YC( NO3 ) RXRAT( 55 ) = RKI( 55 ) * YC( RO2C ) * YC( MEO2 ) RXRAT( 56 ) = RKI( 56 ) * YC( RO2C ) * YC( RO2C ) RXRAT( 57 ) = RKI( 57 ) * YC( RO2XC ) * YC( NO ) RXRAT( 58 ) = RKI( 58 ) * YC( RO2XC ) * YC( HO2 ) RXRAT( 59 ) = RKI( 59 ) * YC( RO2XC ) * YC( NO3 ) RXRAT( 60 ) = RKI( 60 ) * YC( RO2XC ) * YC( MEO2 ) RXRAT( 61 ) = RKI( 61 ) * YC( RO2XC ) * YC( RO2C ) RXRAT( 62 ) = RKI( 62 ) * YC( RO2XC ) * YC( RO2XC ) ! RXRAT( 63 ) = RKI( 63 ) * YC( MECO3 ) * YC( NO2 ) RXRAT( 64 ) = RKI( 64 ) * YC( PAN ) RXRAT( 65 ) = RKI( 65 ) * YC( PAN ) RXRAT( 66 ) = RKI( 66 ) * YC( MECO3 ) * YC( NO ) RXRAT( 67 ) = RKI( 67 ) * YC( MECO3 ) * YC( HO2 ) RXRAT( 68 ) = RKI( 68 ) * YC( MECO3 ) * YC( NO3 ) RXRAT( 69 ) = RKI( 69 ) * YC( MECO3 ) * YC( MEO2 ) RXRAT( 70 ) = RKI( 70 ) * YC( MECO3 ) * YC( RO2C ) RXRAT( 71 ) = RKI( 71 ) * YC( MECO3 ) * YC( RO2XC ) RXRAT( 72 ) = RKI( 72 ) * YC( MECO3 ) * YC( MECO3 ) RXRAT( 73 ) = RKI( 73 ) * YC( RCO3 ) * YC( NO2 ) RXRAT( 74 ) = RKI( 74 ) * YC( PAN2 ) RXRAT( 75 ) = RKI( 75 ) * YC( PAN2 ) RXRAT( 76 ) = RKI( 76 ) * YC( RCO3 ) * YC( NO ) RXRAT( 77 ) = RKI( 77 ) * YC( RCO3 ) * YC( HO2 ) RXRAT( 78 ) = RKI( 78 ) * YC( RCO3 ) * YC( NO3 ) RXRAT( 79 ) = RKI( 79 ) * YC( RCO3 ) * YC( MEO2 ) RXRAT( 80 ) = RKI( 80 ) * YC( RCO3 ) * YC( RO2C ) RXRAT( 81 ) = RKI( 81 ) * YC( RCO3 ) * YC( RO2XC ) RXRAT( 82 ) = RKI( 82 ) * YC( RCO3 ) * YC( MECO3 ) RXRAT( 83 ) = RKI( 83 ) * YC( RCO3 ) * YC( RCO3 ) RXRAT( 84 ) = RKI( 84 ) * YC( BZCO3 ) * YC( NO2 ) RXRAT( 85 ) = RKI( 85 ) * YC( PBZN ) RXRAT( 86 ) = RKI( 86 ) * YC( PBZN ) RXRAT( 87 ) = RKI( 87 ) * YC( BZCO3 ) * YC( NO ) RXRAT( 88 ) = RKI( 88 ) * YC( BZCO3 ) * YC( HO2 ) RXRAT( 89 ) = RKI( 89 ) * YC( BZCO3 ) * YC( NO3 ) RXRAT( 90 ) = RKI( 90 ) * YC( BZCO3 ) * YC( MEO2 ) RXRAT( 91 ) = RKI( 91 ) * YC( BZCO3 ) * YC( RO2C ) RXRAT( 92 ) = RKI( 92 ) * YC( BZCO3 ) * YC( RO2XC ) RXRAT( 93 ) = RKI( 93 ) * YC( BZCO3 ) * YC( MECO3 ) RXRAT( 94 ) = RKI( 94 ) * YC( BZCO3 ) * YC( RCO3 ) RXRAT( 95 ) = RKI( 95 ) * YC( BZCO3 ) * YC( BZCO3 ) RXRAT( 96 ) = RKI( 96 ) * YC( MACO3 ) * YC( NO2 ) RXRAT( 97 ) = RKI( 97 ) * YC( MAPAN ) RXRAT( 98 ) = RKI( 98 ) * YC( MAPAN ) RXRAT( 99 ) = RKI( 99 ) * YC( MACO3 ) * YC( NO ) RXRAT( 100 ) = RKI( 100 ) * YC( MACO3 ) * YC( HO2 ) RXRAT( 101 ) = RKI( 101 ) * YC( MACO3 ) * YC( NO3 ) RXRAT( 102 ) = RKI( 102 ) * YC( MACO3 ) * YC( MEO2 ) RXRAT( 103 ) = RKI( 103 ) * YC( MACO3 ) * YC( RO2C ) RXRAT( 104 ) = RKI( 104 ) * YC( MACO3 ) * YC( RO2XC ) RXRAT( 105 ) = RKI( 105 ) * YC( MACO3 ) * YC( MECO3 ) RXRAT( 106 ) = RKI( 106 ) * YC( MACO3 ) * YC( RCO3 ) RXRAT( 107 ) = RKI( 107 ) * YC( MACO3 ) * YC( BZCO3 ) RXRAT( 108 ) = RKI( 108 ) * YC( MACO3 ) * YC( MACO3 ) RXRAT( 109 ) = RKI( 109 ) * YC( TBUO ) * YC( NO2 ) RXRAT( 110 ) = RKI( 110 ) * YC( TBUO ) RXRAT( 111 ) = RKI( 111 ) * YC( BZO ) * YC( NO2 ) RXRAT( 112 ) = RKI( 112 ) * YC( BZO ) * YC( HO2 ) RXRAT( 113 ) = RKI( 113 ) * YC( BZO ) RXRAT( 114 ) = RKI( 114 ) * YC( xHO2 ) * YC( NO ) RXRAT( 115 ) = RKI( 115 ) * YC( xHO2 ) * YC( HO2 ) RXRAT( 116 ) = RKI( 116 ) * YC( xHO2 ) * YC( NO3 ) RXRAT( 117 ) = RKI( 117 ) * YC( xHO2 ) * YC( MEO2 ) RXRAT( 118 ) = RKI( 118 ) * YC( xHO2 ) * YC( RO2C ) RXRAT( 119 ) = RKI( 119 ) * YC( xHO2 ) * YC( RO2XC ) RXRAT( 120 ) = RKI( 120 ) * YC( xHO2 ) * YC( MECO3 ) RXRAT( 121 ) = RKI( 121 ) * YC( xHO2 ) * YC( RCO3 ) RXRAT( 122 ) = RKI( 122 ) * YC( xHO2 ) * YC( BZCO3 ) RXRAT( 123 ) = RKI( 123 ) * YC( xHO2 ) * YC( MACO3 ) RXRAT( 124 ) = RKI( 124 ) * YC( xOH ) * YC( NO ) RXRAT( 125 ) = RKI( 125 ) * YC( xOH ) * YC( HO2 ) RXRAT( 126 ) = RKI( 126 ) * YC( xOH ) * YC( NO3 ) RXRAT( 127 ) = RKI( 127 ) * YC( xOH ) * YC( MEO2 ) RXRAT( 128 ) = RKI( 128 ) * YC( xOH ) * YC( RO2C ) RXRAT( 129 ) = RKI( 129 ) * YC( xOH ) * YC( RO2XC ) RXRAT( 130 ) = RKI( 130 ) * YC( xOH ) * YC( MECO3 ) RXRAT( 131 ) = RKI( 131 ) * YC( xOH ) * YC( RCO3 ) RXRAT( 132 ) = RKI( 132 ) * YC( xOH ) * YC( BZCO3 ) RXRAT( 133 ) = RKI( 133 ) * YC( xOH ) * YC( MACO3 ) RXRAT( 134 ) = RKI( 134 ) * YC( xNO2 ) * YC( NO ) RXRAT( 135 ) = RKI( 135 ) * YC( xNO2 ) * YC( HO2 ) RXRAT( 136 ) = RKI( 136 ) * YC( xNO2 ) * YC( NO3 ) RXRAT( 137 ) = RKI( 137 ) * YC( xNO2 ) * YC( MEO2 ) RXRAT( 138 ) = RKI( 138 ) * YC( xNO2 ) * YC( RO2C ) RXRAT( 139 ) = RKI( 139 ) * YC( xNO2 ) * YC( RO2XC ) RXRAT( 140 ) = RKI( 140 ) * YC( xNO2 ) * YC( MECO3 ) RXRAT( 141 ) = RKI( 141 ) * YC( xNO2 ) * YC( RCO3 ) RXRAT( 142 ) = RKI( 142 ) * YC( xNO2 ) * YC( BZCO3 ) RXRAT( 143 ) = RKI( 143 ) * YC( xNO2 ) * YC( MACO3 ) RXRAT( 144 ) = RKI( 144 ) * YC( xMEO2 ) * YC( NO ) RXRAT( 145 ) = RKI( 145 ) * YC( xMEO2 ) * YC( HO2 ) RXRAT( 146 ) = RKI( 146 ) * YC( xMEO2 ) * YC( NO3 ) RXRAT( 147 ) = RKI( 147 ) * YC( xMEO2 ) * YC( MEO2 ) RXRAT( 148 ) = RKI( 148 ) * YC( xMEO2 ) * YC( RO2C ) RXRAT( 149 ) = RKI( 149 ) * YC( xMEO2 ) * YC( RO2XC ) RXRAT( 150 ) = RKI( 150 ) * YC( xMEO2 ) * YC( MECO3 ) RXRAT( 151 ) = RKI( 151 ) * YC( xMEO2 ) * YC( RCO3 ) RXRAT( 152 ) = RKI( 152 ) * YC( xMEO2 ) * YC( BZCO3 ) RXRAT( 153 ) = RKI( 153 ) * YC( xMEO2 ) * YC( MACO3 ) RXRAT( 154 ) = RKI( 154 ) * YC( xMECO3 ) * YC( NO ) RXRAT( 155 ) = RKI( 155 ) * YC( xMECO3 ) * YC( HO2 ) RXRAT( 156 ) = RKI( 156 ) * YC( xMECO3 ) * YC( NO3 ) RXRAT( 157 ) = RKI( 157 ) * YC( xMECO3 ) * YC( MEO2 ) RXRAT( 158 ) = RKI( 158 ) * YC( xMECO3 ) * YC( RO2C ) RXRAT( 159 ) = RKI( 159 ) * YC( xMECO3 ) * YC( RO2XC ) RXRAT( 160 ) = RKI( 160 ) * YC( xMECO3 ) * YC( MECO3 ) RXRAT( 161 ) = RKI( 161 ) * YC( xMECO3 ) * YC( RCO3 ) RXRAT( 162 ) = RKI( 162 ) * YC( xMECO3 ) * YC( BZCO3 ) RXRAT( 163 ) = RKI( 163 ) * YC( xMECO3 ) * YC( MACO3 ) RXRAT( 164 ) = RKI( 164 ) * YC( xRCO3 ) * YC( NO ) RXRAT( 165 ) = RKI( 165 ) * YC( xRCO3 ) * YC( HO2 ) RXRAT( 166 ) = RKI( 166 ) * YC( xRCO3 ) * YC( NO3 ) RXRAT( 167 ) = RKI( 167 ) * YC( xRCO3 ) * YC( MEO2 ) RXRAT( 168 ) = RKI( 168 ) * YC( xRCO3 ) * YC( RO2C ) RXRAT( 169 ) = RKI( 169 ) * YC( xRCO3 ) * YC( RO2XC ) RXRAT( 170 ) = RKI( 170 ) * YC( xRCO3 ) * YC( MECO3 ) RXRAT( 171 ) = RKI( 171 ) * YC( xRCO3 ) * YC( RCO3 ) RXRAT( 172 ) = RKI( 172 ) * YC( xRCO3 ) * YC( BZCO3 ) RXRAT( 173 ) = RKI( 173 ) * YC( xRCO3 ) * YC( MACO3 ) RXRAT( 174 ) = RKI( 174 ) * YC( xMACO3 ) * YC( NO ) RXRAT( 175 ) = RKI( 175 ) * YC( xMACO3 ) * YC( HO2 ) RXRAT( 176 ) = RKI( 176 ) * YC( xMACO3 ) * YC( NO3 ) RXRAT( 177 ) = RKI( 177 ) * YC( xMACO3 ) * YC( MEO2 ) RXRAT( 178 ) = RKI( 178 ) * YC( xMACO3 ) * YC( RO2C ) RXRAT( 179 ) = RKI( 179 ) * YC( xMACO3 ) * YC( RO2XC ) RXRAT( 180 ) = RKI( 180 ) * YC( xMACO3 ) * YC( MECO3 ) RXRAT( 181 ) = RKI( 181 ) * YC( xMACO3 ) * YC( RCO3 ) RXRAT( 182 ) = RKI( 182 ) * YC( xMACO3 ) * YC( BZCO3 ) RXRAT( 183 ) = RKI( 183 ) * YC( xMACO3 ) * YC( MACO3 ) RXRAT( 184 ) = RKI( 184 ) * YC( xTBUO ) * YC( NO ) RXRAT( 185 ) = RKI( 185 ) * YC( xTBUO ) * YC( HO2 ) RXRAT( 186 ) = RKI( 186 ) * YC( xTBUO ) * YC( NO3 ) RXRAT( 187 ) = RKI( 187 ) * YC( xTBUO ) * YC( MEO2 ) RXRAT( 188 ) = RKI( 188 ) * YC( xTBUO ) * YC( RO2C ) RXRAT( 189 ) = RKI( 189 ) * YC( xTBUO ) * YC( RO2XC ) RXRAT( 190 ) = RKI( 190 ) * YC( xTBUO ) * YC( MECO3 ) RXRAT( 191 ) = RKI( 191 ) * YC( xTBUO ) * YC( RCO3 ) RXRAT( 192 ) = RKI( 192 ) * YC( xTBUO ) * YC( BZCO3 ) RXRAT( 193 ) = RKI( 193 ) * YC( xTBUO ) * YC( MACO3 ) RXRAT( 194 ) = RKI( 194 ) * YC( xCO ) * YC( NO ) RXRAT( 195 ) = RKI( 195 ) * YC( xCO ) * YC( HO2 ) RXRAT( 196 ) = RKI( 196 ) * YC( xCO ) * YC( NO3 ) RXRAT( 197 ) = RKI( 197 ) * YC( xCO ) * YC( MEO2 ) RXRAT( 198 ) = RKI( 198 ) * YC( xCO ) * YC( RO2C ) RXRAT( 199 ) = RKI( 199 ) * YC( xCO ) * YC( RO2XC ) RXRAT( 200 ) = RKI( 200 ) * YC( xCO ) * YC( MECO3 ) RXRAT( 201 ) = RKI( 201 ) * YC( xCO ) * YC( RCO3 ) RXRAT( 202 ) = RKI( 202 ) * YC( xCO ) * YC( BZCO3 ) RXRAT( 203 ) = RKI( 203 ) * YC( xCO ) * YC( MACO3 ) RXRAT( 204 ) = RKI( 204 ) * YC( HCHO ) RXRAT( 205 ) = RKI( 205 ) * YC( HCHO ) RXRAT( 206 ) = RKI( 206 ) * YC( HCHO ) * YC( OH ) RXRAT( 207 ) = RKI( 207 ) * YC( HCHO ) * YC( NO3 ) RXRAT( 208 ) = RKI( 208 ) * YC( CCHO ) * YC( OH ) RXRAT( 209 ) = RKI( 209 ) * YC( CCHO ) RXRAT( 210 ) = RKI( 210 ) * YC( CCHO ) * YC( NO3 ) RXRAT( 211 ) = RKI( 211 ) * YC( RCHO ) * YC( OH ) RXRAT( 212 ) = RKI( 212 ) * YC( RCHO ) RXRAT( 213 ) = RKI( 213 ) * YC( RCHO ) * YC( NO3 ) RXRAT( 214 ) = RKI( 214 ) * YC( ACETONE ) * YC( OH ) RXRAT( 215 ) = RKI( 215 ) * YC( ACETONE ) RXRAT( 216 ) = RKI( 216 ) * YC( MEK ) * YC( OH ) RXRAT( 217 ) = RKI( 217 ) * YC( MEK ) RXRAT( 218 ) = RKI( 218 ) * YC( MEOH ) * YC( OH ) RXRAT( 219 ) = RKI( 219 ) * YC( HCOOH ) * YC( OH ) RXRAT( 220 ) = RKI( 220 ) * YC( CCOOH ) * YC( OH ) RXRAT( 221 ) = RKI( 221 ) * YC( RCOOH ) * YC( OH ) RXRAT( 222 ) = RKI( 222 ) * YC( COOH ) * YC( OH ) RXRAT( 223 ) = RKI( 223 ) * YC( COOH ) RXRAT( 224 ) = RKI( 224 ) * YC( ROOH ) * YC( OH ) RXRAT( 225 ) = RKI( 225 ) * YC( ROOH ) RXRAT( 226 ) = RKI( 226 ) * YC( R6OOH ) * YC( OH ) RXRAT( 227 ) = RKI( 227 ) * YC( R6OOH ) RXRAT( 228 ) = RKI( 228 ) * YC( RAOOH ) * YC( OH ) RXRAT( 229 ) = RKI( 229 ) * YC( RAOOH ) RXRAT( 230 ) = RKI( 230 ) * YC( GLY ) RXRAT( 231 ) = RKI( 231 ) * YC( GLY ) RXRAT( 232 ) = RKI( 232 ) * YC( GLY ) * YC( OH ) RXRAT( 233 ) = RKI( 233 ) * YC( GLY ) * YC( NO3 ) RXRAT( 234 ) = RKI( 234 ) * YC( MGLY ) RXRAT( 235 ) = RKI( 235 ) * YC( MGLY ) * YC( OH ) RXRAT( 236 ) = RKI( 236 ) * YC( MGLY ) * YC( NO3 ) RXRAT( 237 ) = RKI( 237 ) * YC( BACL ) RXRAT( 238 ) = RKI( 238 ) * YC( CRES ) * YC( OH ) RXRAT( 239 ) = RKI( 239 ) * YC( CRES ) * YC( NO3 ) RXRAT( 240 ) = RKI( 240 ) * YC( NPHE ) * YC( OH ) RXRAT( 241 ) = RKI( 241 ) * YC( NPHE ) RXRAT( 242 ) = RKI( 242 ) * YC( NPHE ) RXRAT( 243 ) = RKI( 243 ) * YC( BALD ) * YC( OH ) RXRAT( 244 ) = RKI( 244 ) * YC( BALD ) RXRAT( 245 ) = RKI( 245 ) * YC( BALD ) * YC( NO3 ) RXRAT( 246 ) = RKI( 246 ) * YC( AFG1 ) * YC( OH ) RXRAT( 247 ) = RKI( 247 ) * YC( AFG1 ) * YC( O3 ) RXRAT( 248 ) = RKI( 248 ) * YC( AFG1 ) RXRAT( 249 ) = RKI( 249 ) * YC( AFG2 ) * YC( OH ) RXRAT( 250 ) = RKI( 250 ) * YC( AFG2 ) * YC( O3 ) RXRAT( 251 ) = RKI( 251 ) * YC( AFG2 ) RXRAT( 252 ) = RKI( 252 ) * YC( AFG3 ) * YC( OH ) RXRAT( 253 ) = RKI( 253 ) * YC( AFG3 ) * YC( O3 ) RXRAT( 254 ) = RKI( 254 ) * YC( MACR ) * YC( OH ) RXRAT( 255 ) = RKI( 255 ) * YC( MACR ) * YC( O3 ) RXRAT( 256 ) = RKI( 256 ) * YC( MACR ) * YC( NO3 ) RXRAT( 257 ) = RKI( 257 ) * YC( MACR ) * YC( O3P ) RXRAT( 258 ) = RKI( 258 ) * YC( MACR ) RXRAT( 259 ) = RKI( 259 ) * YC( MVK ) * YC( OH ) RXRAT( 260 ) = RKI( 260 ) * YC( MVK ) * YC( O3 ) RXRAT( 261 ) = RKI( 261 ) * YC( MVK ) * YC( O3P ) RXRAT( 262 ) = RKI( 262 ) * YC( MVK ) RXRAT( 263 ) = RKI( 263 ) * YC( IPRD ) * YC( OH ) RXRAT( 264 ) = RKI( 264 ) * YC( IPRD ) * YC( O3 ) RXRAT( 265 ) = RKI( 265 ) * YC( IPRD ) * YC( NO3 ) RXRAT( 266 ) = RKI( 266 ) * YC( IPRD ) RXRAT( 267 ) = RKI( 267 ) * YC( PRD2 ) * YC( OH ) RXRAT( 268 ) = RKI( 268 ) * YC( PRD2 ) RXRAT( 269 ) = RKI( 269 ) * YC( RNO3 ) * YC( OH ) RXRAT( 270 ) = RKI( 270 ) * YC( RNO3 ) RXRAT( 271 ) = RKI( 271 ) * YC( HOCCHO ) * YC( OH ) RXRAT( 272 ) = RKI( 272 ) * YC( HOCCHO ) RXRAT( 273 ) = RKI( 273 ) * YC( HOCCHO ) * YC( NO3 ) RXRAT( 274 ) = RKI( 274 ) * YC( ACROLEIN ) * YC( OH ) RXRAT( 275 ) = RKI( 275 ) * YC( ACROLEIN ) * YC( O3 ) RXRAT( 276 ) = RKI( 276 ) * YC( ACROLEIN ) * YC( NO3 ) RXRAT( 277 ) = RKI( 277 ) * YC( ACROLEIN ) * YC( O3P ) RXRAT( 278 ) = RKI( 278 ) * YC( ACROLEIN ) RXRAT( 279 ) = RKI( 279 ) * YC( CCOOOH ) * YC( OH ) RXRAT( 280 ) = RKI( 280 ) * YC( CCOOOH ) RXRAT( 281 ) = RKI( 281 ) * YC( RCOOOH ) * YC( OH ) RXRAT( 282 ) = RKI( 282 ) * YC( RCOOOH ) RXRAT( 283 ) = RKI( 283 ) * YC( HCOCO3 ) * YC( NO ) RXRAT( 284 ) = RKI( 284 ) * YC( HCOCO3 ) * YC( NO2 ) RXRAT( 285 ) = RKI( 285 ) * YC( HCOCO3 ) * YC( HO2 ) RXRAT( 286 ) = RKI( 286 ) * YC( xHCHO ) * YC( NO ) RXRAT( 287 ) = RKI( 287 ) * YC( xHCHO ) * YC( HO2 ) RXRAT( 288 ) = RKI( 288 ) * YC( xHCHO ) * YC( NO3 ) RXRAT( 289 ) = RKI( 289 ) * YC( xHCHO ) * YC( MEO2 ) RXRAT( 290 ) = RKI( 290 ) * YC( xHCHO ) * YC( RO2C ) RXRAT( 291 ) = RKI( 291 ) * YC( xHCHO ) * YC( RO2XC ) RXRAT( 292 ) = RKI( 292 ) * YC( xHCHO ) * YC( MECO3 ) RXRAT( 293 ) = RKI( 293 ) * YC( xHCHO ) * YC( RCO3 ) RXRAT( 294 ) = RKI( 294 ) * YC( xHCHO ) * YC( BZCO3 ) RXRAT( 295 ) = RKI( 295 ) * YC( xHCHO ) * YC( MACO3 ) RXRAT( 296 ) = RKI( 296 ) * YC( xCCHO ) * YC( NO ) RXRAT( 297 ) = RKI( 297 ) * YC( xCCHO ) * YC( HO2 ) RXRAT( 298 ) = RKI( 298 ) * YC( xCCHO ) * YC( NO3 ) RXRAT( 299 ) = RKI( 299 ) * YC( xCCHO ) * YC( MEO2 ) RXRAT( 300 ) = RKI( 300 ) * YC( xCCHO ) * YC( RO2C ) RXRAT( 301 ) = RKI( 301 ) * YC( xCCHO ) * YC( RO2XC ) RXRAT( 302 ) = RKI( 302 ) * YC( xCCHO ) * YC( MECO3 ) RXRAT( 303 ) = RKI( 303 ) * YC( xCCHO ) * YC( RCO3 ) RXRAT( 304 ) = RKI( 304 ) * YC( xCCHO ) * YC( BZCO3 ) RXRAT( 305 ) = RKI( 305 ) * YC( xCCHO ) * YC( MACO3 ) RXRAT( 306 ) = RKI( 306 ) * YC( xRCHO ) * YC( NO ) RXRAT( 307 ) = RKI( 307 ) * YC( xRCHO ) * YC( HO2 ) RXRAT( 308 ) = RKI( 308 ) * YC( xRCHO ) * YC( NO3 ) RXRAT( 309 ) = RKI( 309 ) * YC( xRCHO ) * YC( MEO2 ) RXRAT( 310 ) = RKI( 310 ) * YC( xRCHO ) * YC( RO2C ) RXRAT( 311 ) = RKI( 311 ) * YC( xRCHO ) * YC( RO2XC ) RXRAT( 312 ) = RKI( 312 ) * YC( xRCHO ) * YC( MECO3 ) RXRAT( 313 ) = RKI( 313 ) * YC( xRCHO ) * YC( RCO3 ) RXRAT( 314 ) = RKI( 314 ) * YC( xRCHO ) * YC( BZCO3 ) RXRAT( 315 ) = RKI( 315 ) * YC( xRCHO ) * YC( MACO3 ) RXRAT( 316 ) = RKI( 316 ) * YC( xACETONE ) * YC( NO ) RXRAT( 317 ) = RKI( 317 ) * YC( xACETONE ) * YC( HO2 ) RXRAT( 318 ) = RKI( 318 ) * YC( xACETONE ) * YC( NO3 ) RXRAT( 319 ) = RKI( 319 ) * YC( xACETONE ) * YC( MEO2 ) RXRAT( 320 ) = RKI( 320 ) * YC( xACETONE ) * YC( RO2C ) RXRAT( 321 ) = RKI( 321 ) * YC( xACETONE ) * YC( RO2XC ) RXRAT( 322 ) = RKI( 322 ) * YC( xACETONE ) * YC( MECO3 ) RXRAT( 323 ) = RKI( 323 ) * YC( xACETONE ) * YC( RCO3 ) RXRAT( 324 ) = RKI( 324 ) * YC( xACETONE ) * YC( BZCO3 ) RXRAT( 325 ) = RKI( 325 ) * YC( xACETONE ) * YC( MACO3 ) RXRAT( 326 ) = RKI( 326 ) * YC( xMEK ) * YC( NO ) RXRAT( 327 ) = RKI( 327 ) * YC( xMEK ) * YC( HO2 ) RXRAT( 328 ) = RKI( 328 ) * YC( xMEK ) * YC( NO3 ) RXRAT( 329 ) = RKI( 329 ) * YC( xMEK ) * YC( MEO2 ) RXRAT( 330 ) = RKI( 330 ) * YC( xMEK ) * YC( RO2C ) RXRAT( 331 ) = RKI( 331 ) * YC( xMEK ) * YC( RO2XC ) RXRAT( 332 ) = RKI( 332 ) * YC( xMEK ) * YC( MECO3 ) RXRAT( 333 ) = RKI( 333 ) * YC( xMEK ) * YC( RCO3 ) RXRAT( 334 ) = RKI( 334 ) * YC( xMEK ) * YC( BZCO3 ) RXRAT( 335 ) = RKI( 335 ) * YC( xMEK ) * YC( MACO3 ) RXRAT( 336 ) = RKI( 336 ) * YC( xPROD2 ) * YC( NO ) RXRAT( 337 ) = RKI( 337 ) * YC( xPROD2 ) * YC( HO2 ) RXRAT( 338 ) = RKI( 338 ) * YC( xPROD2 ) * YC( NO3 ) RXRAT( 339 ) = RKI( 339 ) * YC( xPROD2 ) * YC( MEO2 ) RXRAT( 340 ) = RKI( 340 ) * YC( xPROD2 ) * YC( RO2C ) RXRAT( 341 ) = RKI( 341 ) * YC( xPROD2 ) * YC( RO2XC ) RXRAT( 342 ) = RKI( 342 ) * YC( xPROD2 ) * YC( MECO3 ) RXRAT( 343 ) = RKI( 343 ) * YC( xPROD2 ) * YC( RCO3 ) RXRAT( 344 ) = RKI( 344 ) * YC( xPROD2 ) * YC( BZCO3 ) RXRAT( 345 ) = RKI( 345 ) * YC( xPROD2 ) * YC( MACO3 ) RXRAT( 346 ) = RKI( 346 ) * YC( xGLY ) * YC( NO ) RXRAT( 347 ) = RKI( 347 ) * YC( xGLY ) * YC( HO2 ) RXRAT( 348 ) = RKI( 348 ) * YC( xGLY ) * YC( NO3 ) RXRAT( 349 ) = RKI( 349 ) * YC( xGLY ) * YC( MEO2 ) RXRAT( 350 ) = RKI( 350 ) * YC( xGLY ) * YC( RO2C ) RXRAT( 351 ) = RKI( 351 ) * YC( xGLY ) * YC( RO2XC ) RXRAT( 352 ) = RKI( 352 ) * YC( xGLY ) * YC( MECO3 ) RXRAT( 353 ) = RKI( 353 ) * YC( xGLY ) * YC( RCO3 ) RXRAT( 354 ) = RKI( 354 ) * YC( xGLY ) * YC( BZCO3 ) RXRAT( 355 ) = RKI( 355 ) * YC( xGLY ) * YC( MACO3 ) RXRAT( 356 ) = RKI( 356 ) * YC( xMGLY ) * YC( NO ) RXRAT( 357 ) = RKI( 357 ) * YC( xMGLY ) * YC( HO2 ) RXRAT( 358 ) = RKI( 358 ) * YC( xMGLY ) * YC( NO3 ) RXRAT( 359 ) = RKI( 359 ) * YC( xMGLY ) * YC( MEO2 ) RXRAT( 360 ) = RKI( 360 ) * YC( xMGLY ) * YC( RO2C ) RXRAT( 361 ) = RKI( 361 ) * YC( xMGLY ) * YC( RO2XC ) RXRAT( 362 ) = RKI( 362 ) * YC( xMGLY ) * YC( MECO3 ) RXRAT( 363 ) = RKI( 363 ) * YC( xMGLY ) * YC( RCO3 ) RXRAT( 364 ) = RKI( 364 ) * YC( xMGLY ) * YC( BZCO3 ) RXRAT( 365 ) = RKI( 365 ) * YC( xMGLY ) * YC( MACO3 ) RXRAT( 366 ) = RKI( 366 ) * YC( xBACL ) * YC( NO ) RXRAT( 367 ) = RKI( 367 ) * YC( xBACL ) * YC( HO2 ) RXRAT( 368 ) = RKI( 368 ) * YC( xBACL ) * YC( NO3 ) RXRAT( 369 ) = RKI( 369 ) * YC( xBACL ) * YC( MEO2 ) RXRAT( 370 ) = RKI( 370 ) * YC( xBACL ) * YC( RO2C ) RXRAT( 371 ) = RKI( 371 ) * YC( xBACL ) * YC( RO2XC ) RXRAT( 372 ) = RKI( 372 ) * YC( xBACL ) * YC( MECO3 ) RXRAT( 373 ) = RKI( 373 ) * YC( xBACL ) * YC( RCO3 ) RXRAT( 374 ) = RKI( 374 ) * YC( xBACL ) * YC( BZCO3 ) RXRAT( 375 ) = RKI( 375 ) * YC( xBACL ) * YC( MACO3 ) RXRAT( 376 ) = RKI( 376 ) * YC( xBALD ) * YC( NO ) RXRAT( 377 ) = RKI( 377 ) * YC( xBALD ) * YC( HO2 ) RXRAT( 378 ) = RKI( 378 ) * YC( xBALD ) * YC( NO3 ) RXRAT( 379 ) = RKI( 379 ) * YC( xBALD ) * YC( MEO2 ) RXRAT( 380 ) = RKI( 380 ) * YC( xBALD ) * YC( RO2C ) RXRAT( 381 ) = RKI( 381 ) * YC( xBALD ) * YC( RO2XC ) RXRAT( 382 ) = RKI( 382 ) * YC( xBALD ) * YC( MECO3 ) RXRAT( 383 ) = RKI( 383 ) * YC( xBALD ) * YC( RCO3 ) RXRAT( 384 ) = RKI( 384 ) * YC( xBALD ) * YC( BZCO3 ) RXRAT( 385 ) = RKI( 385 ) * YC( xBALD ) * YC( MACO3 ) RXRAT( 386 ) = RKI( 386 ) * YC( xAFG1 ) * YC( NO ) RXRAT( 387 ) = RKI( 387 ) * YC( xAFG1 ) * YC( HO2 ) RXRAT( 388 ) = RKI( 388 ) * YC( xAFG1 ) * YC( NO3 ) RXRAT( 389 ) = RKI( 389 ) * YC( xAFG1 ) * YC( MEO2 ) RXRAT( 390 ) = RKI( 390 ) * YC( xAFG1 ) * YC( RO2C ) RXRAT( 391 ) = RKI( 391 ) * YC( xAFG1 ) * YC( RO2XC ) RXRAT( 392 ) = RKI( 392 ) * YC( xAFG1 ) * YC( MECO3 ) RXRAT( 393 ) = RKI( 393 ) * YC( xAFG1 ) * YC( RCO3 ) RXRAT( 394 ) = RKI( 394 ) * YC( xAFG1 ) * YC( BZCO3 ) RXRAT( 395 ) = RKI( 395 ) * YC( xAFG1 ) * YC( MACO3 ) RXRAT( 396 ) = RKI( 396 ) * YC( xAFG2 ) * YC( NO ) RXRAT( 397 ) = RKI( 397 ) * YC( xAFG2 ) * YC( HO2 ) RXRAT( 398 ) = RKI( 398 ) * YC( xAFG2 ) * YC( NO3 ) RXRAT( 399 ) = RKI( 399 ) * YC( xAFG2 ) * YC( MEO2 ) RXRAT( 400 ) = RKI( 400 ) * YC( xAFG2 ) * YC( RO2C ) RXRAT( 401 ) = RKI( 401 ) * YC( xAFG2 ) * YC( RO2XC ) RXRAT( 402 ) = RKI( 402 ) * YC( xAFG2 ) * YC( MECO3 ) RXRAT( 403 ) = RKI( 403 ) * YC( xAFG2 ) * YC( RCO3 ) RXRAT( 404 ) = RKI( 404 ) * YC( xAFG2 ) * YC( BZCO3 ) RXRAT( 405 ) = RKI( 405 ) * YC( xAFG2 ) * YC( MACO3 ) RXRAT( 406 ) = RKI( 406 ) * YC( xAFG3 ) * YC( NO ) RXRAT( 407 ) = RKI( 407 ) * YC( xAFG3 ) * YC( HO2 ) RXRAT( 408 ) = RKI( 408 ) * YC( xAFG3 ) * YC( NO3 ) RXRAT( 409 ) = RKI( 409 ) * YC( xAFG3 ) * YC( MEO2 ) RXRAT( 410 ) = RKI( 410 ) * YC( xAFG3 ) * YC( RO2C ) RXRAT( 411 ) = RKI( 411 ) * YC( xAFG3 ) * YC( RO2XC ) RXRAT( 412 ) = RKI( 412 ) * YC( xAFG3 ) * YC( MECO3 ) RXRAT( 413 ) = RKI( 413 ) * YC( xAFG3 ) * YC( RCO3 ) RXRAT( 414 ) = RKI( 414 ) * YC( xAFG3 ) * YC( BZCO3 ) RXRAT( 415 ) = RKI( 415 ) * YC( xAFG3 ) * YC( MACO3 ) RXRAT( 416 ) = RKI( 416 ) * YC( xMACR ) * YC( NO ) RXRAT( 417 ) = RKI( 417 ) * YC( xMACR ) * YC( HO2 ) RXRAT( 418 ) = RKI( 418 ) * YC( xMACR ) * YC( NO3 ) RXRAT( 419 ) = RKI( 419 ) * YC( xMACR ) * YC( MEO2 ) RXRAT( 420 ) = RKI( 420 ) * YC( xMACR ) * YC( RO2C ) RXRAT( 421 ) = RKI( 421 ) * YC( xMACR ) * YC( RO2XC ) RXRAT( 422 ) = RKI( 422 ) * YC( xMACR ) * YC( MECO3 ) RXRAT( 423 ) = RKI( 423 ) * YC( xMACR ) * YC( RCO3 ) RXRAT( 424 ) = RKI( 424 ) * YC( xMACR ) * YC( BZCO3 ) RXRAT( 425 ) = RKI( 425 ) * YC( xMACR ) * YC( MACO3 ) RXRAT( 426 ) = RKI( 426 ) * YC( xMVK ) * YC( NO ) RXRAT( 427 ) = RKI( 427 ) * YC( xMVK ) * YC( HO2 ) RXRAT( 428 ) = RKI( 428 ) * YC( xMVK ) * YC( NO3 ) RXRAT( 429 ) = RKI( 429 ) * YC( xMVK ) * YC( MEO2 ) RXRAT( 430 ) = RKI( 430 ) * YC( xMVK ) * YC( RO2C ) RXRAT( 431 ) = RKI( 431 ) * YC( xMVK ) * YC( RO2XC ) RXRAT( 432 ) = RKI( 432 ) * YC( xMVK ) * YC( MECO3 ) RXRAT( 433 ) = RKI( 433 ) * YC( xMVK ) * YC( RCO3 ) RXRAT( 434 ) = RKI( 434 ) * YC( xMVK ) * YC( BZCO3 ) RXRAT( 435 ) = RKI( 435 ) * YC( xMVK ) * YC( MACO3 ) RXRAT( 436 ) = RKI( 436 ) * YC( xIPRD ) * YC( NO ) RXRAT( 437 ) = RKI( 437 ) * YC( xIPRD ) * YC( HO2 ) RXRAT( 438 ) = RKI( 438 ) * YC( xIPRD ) * YC( NO3 ) RXRAT( 439 ) = RKI( 439 ) * YC( xIPRD ) * YC( MEO2 ) RXRAT( 440 ) = RKI( 440 ) * YC( xIPRD ) * YC( RO2C ) RXRAT( 441 ) = RKI( 441 ) * YC( xIPRD ) * YC( RO2XC ) RXRAT( 442 ) = RKI( 442 ) * YC( xIPRD ) * YC( MECO3 ) RXRAT( 443 ) = RKI( 443 ) * YC( xIPRD ) * YC( RCO3 ) RXRAT( 444 ) = RKI( 444 ) * YC( xIPRD ) * YC( BZCO3 ) RXRAT( 445 ) = RKI( 445 ) * YC( xIPRD ) * YC( MACO3 ) RXRAT( 446 ) = RKI( 446 ) * YC( xRNO3 ) * YC( NO ) RXRAT( 447 ) = RKI( 447 ) * YC( xRNO3 ) * YC( HO2 ) RXRAT( 448 ) = RKI( 448 ) * YC( xRNO3 ) * YC( NO3 ) RXRAT( 449 ) = RKI( 449 ) * YC( xRNO3 ) * YC( MEO2 ) RXRAT( 450 ) = RKI( 450 ) * YC( xRNO3 ) * YC( RO2C ) RXRAT( 451 ) = RKI( 451 ) * YC( xRNO3 ) * YC( RO2XC ) RXRAT( 452 ) = RKI( 452 ) * YC( xRNO3 ) * YC( MECO3 ) RXRAT( 453 ) = RKI( 453 ) * YC( xRNO3 ) * YC( RCO3 ) RXRAT( 454 ) = RKI( 454 ) * YC( xRNO3 ) * YC( BZCO3 ) RXRAT( 455 ) = RKI( 455 ) * YC( xRNO3 ) * YC( MACO3 ) RXRAT( 456 ) = RKI( 456 ) * YC( yROOH ) * YC( NO ) RXRAT( 457 ) = RKI( 457 ) * YC( yROOH ) * YC( HO2 ) RXRAT( 458 ) = RKI( 458 ) * YC( yROOH ) * YC( NO3 ) RXRAT( 459 ) = RKI( 459 ) * YC( yROOH ) * YC( MEO2 ) RXRAT( 460 ) = RKI( 460 ) * YC( yROOH ) * YC( RO2C ) RXRAT( 461 ) = RKI( 461 ) * YC( yROOH ) * YC( RO2XC ) RXRAT( 462 ) = RKI( 462 ) * YC( yROOH ) * YC( MECO3 ) RXRAT( 463 ) = RKI( 463 ) * YC( yROOH ) * YC( RCO3 ) RXRAT( 464 ) = RKI( 464 ) * YC( yROOH ) * YC( BZCO3 ) RXRAT( 465 ) = RKI( 465 ) * YC( yROOH ) * YC( MACO3 ) RXRAT( 466 ) = RKI( 466 ) * YC( yR6OOH ) * YC( NO ) RXRAT( 467 ) = RKI( 467 ) * YC( yR6OOH ) * YC( HO2 ) RXRAT( 468 ) = RKI( 468 ) * YC( yR6OOH ) * YC( NO3 ) RXRAT( 469 ) = RKI( 469 ) * YC( yR6OOH ) * YC( MEO2 ) RXRAT( 470 ) = RKI( 470 ) * YC( yR6OOH ) * YC( RO2C ) RXRAT( 471 ) = RKI( 471 ) * YC( yR6OOH ) * YC( RO2XC ) RXRAT( 472 ) = RKI( 472 ) * YC( yR6OOH ) * YC( MECO3 ) RXRAT( 473 ) = RKI( 473 ) * YC( yR6OOH ) * YC( RCO3 ) RXRAT( 474 ) = RKI( 474 ) * YC( yR6OOH ) * YC( BZCO3 ) RXRAT( 475 ) = RKI( 475 ) * YC( yR6OOH ) * YC( MACO3 ) RXRAT( 476 ) = RKI( 476 ) * YC( yISOPOOH ) * YC( NO ) RXRAT( 477 ) = RKI( 477 ) * YC( yISOPOOH ) * YC( HO2 ) RXRAT( 478 ) = RKI( 478 ) * YC( yISOPOOH ) * YC( NO3 ) RXRAT( 479 ) = RKI( 479 ) * YC( yISOPOOH ) * YC( MEO2 ) RXRAT( 480 ) = RKI( 480 ) * YC( yISOPOOH ) * YC( RO2C ) RXRAT( 481 ) = RKI( 481 ) * YC( yISOPOOH ) * YC( RO2XC ) RXRAT( 482 ) = RKI( 482 ) * YC( yISOPOOH ) * YC( MECO3 ) RXRAT( 483 ) = RKI( 483 ) * YC( yISOPOOH ) * YC( RCO3 ) RXRAT( 484 ) = RKI( 484 ) * YC( yISOPOOH ) * YC( BZCO3 ) RXRAT( 485 ) = RKI( 485 ) * YC( yISOPOOH ) * YC( MACO3 ) RXRAT( 486 ) = RKI( 486 ) * YC( yRAOOH ) * YC( NO ) RXRAT( 487 ) = RKI( 487 ) * YC( yRAOOH ) * YC( HO2 ) RXRAT( 488 ) = RKI( 488 ) * YC( yRAOOH ) * YC( NO3 ) RXRAT( 489 ) = RKI( 489 ) * YC( yRAOOH ) * YC( MEO2 ) RXRAT( 490 ) = RKI( 490 ) * YC( yRAOOH ) * YC( RO2C ) RXRAT( 491 ) = RKI( 491 ) * YC( yRAOOH ) * YC( RO2XC ) RXRAT( 492 ) = RKI( 492 ) * YC( yRAOOH ) * YC( MECO3 ) RXRAT( 493 ) = RKI( 493 ) * YC( yRAOOH ) * YC( RCO3 ) RXRAT( 494 ) = RKI( 494 ) * YC( yRAOOH ) * YC( BZCO3 ) RXRAT( 495 ) = RKI( 495 ) * YC( yRAOOH ) * YC( MACO3 ) RXRAT( 496 ) = RKI( 496 ) * YC( zRNO3 ) * YC( NO ) RXRAT( 497 ) = RKI( 497 ) * YC( zRNO3 ) * YC( HO2 ) RXRAT( 498 ) = RKI( 498 ) * YC( zRNO3 ) * YC( NO3 ) RXRAT( 499 ) = RKI( 499 ) * YC( zRNO3 ) * YC( MEO2 ) RXRAT( 500 ) = RKI( 500 ) * YC( zRNO3 ) * YC( RO2C ) RXRAT( 501 ) = RKI( 501 ) * YC( zRNO3 ) * YC( RO2XC ) RXRAT( 502 ) = RKI( 502 ) * YC( zRNO3 ) * YC( MECO3 ) RXRAT( 503 ) = RKI( 503 ) * YC( zRNO3 ) * YC( RCO3 ) RXRAT( 504 ) = RKI( 504 ) * YC( zRNO3 ) * YC( BZCO3 ) RXRAT( 505 ) = RKI( 505 ) * YC( zRNO3 ) * YC( MACO3 ) RXRAT( 506 ) = RKI( 506 ) * YC( xHOCCHO ) * YC( NO ) RXRAT( 507 ) = RKI( 507 ) * YC( xHOCCHO ) * YC( HO2 ) RXRAT( 508 ) = RKI( 508 ) * YC( xHOCCHO ) * YC( NO3 ) RXRAT( 509 ) = RKI( 509 ) * YC( xHOCCHO ) * YC( MEO2 ) RXRAT( 510 ) = RKI( 510 ) * YC( xHOCCHO ) * YC( RO2C ) RXRAT( 511 ) = RKI( 511 ) * YC( xHOCCHO ) * YC( RO2XC ) RXRAT( 512 ) = RKI( 512 ) * YC( xHOCCHO ) * YC( MECO3 ) RXRAT( 513 ) = RKI( 513 ) * YC( xHOCCHO ) * YC( RCO3 ) RXRAT( 514 ) = RKI( 514 ) * YC( xHOCCHO ) * YC( BZCO3 ) RXRAT( 515 ) = RKI( 515 ) * YC( xHOCCHO ) * YC( MACO3 ) RXRAT( 516 ) = RKI( 516 ) * YC( xACROLEIN ) * YC( NO ) RXRAT( 517 ) = RKI( 517 ) * YC( xACROLEIN ) * YC( HO2 ) RXRAT( 518 ) = RKI( 518 ) * YC( xACROLEIN ) * YC( NO3 ) RXRAT( 519 ) = RKI( 519 ) * YC( xACROLEIN ) * YC( MEO2 ) RXRAT( 520 ) = RKI( 520 ) * YC( xACROLEIN ) * YC( RO2C ) RXRAT( 521 ) = RKI( 521 ) * YC( xACROLEIN ) * YC( RO2XC ) RXRAT( 522 ) = RKI( 522 ) * YC( xACROLEIN ) * YC( MECO3 ) RXRAT( 523 ) = RKI( 523 ) * YC( xACROLEIN ) * YC( RCO3 ) RXRAT( 524 ) = RKI( 524 ) * YC( xACROLEIN ) * YC( BZCO3 ) RXRAT( 525 ) = RKI( 525 ) * YC( xACROLEIN ) * YC( MACO3 ) RXRAT( 526 ) = RKI( 526 ) * YC( OH ) RXRAT( 527 ) = RKI( 527 ) * YC( ETHENE ) * YC( OH ) RXRAT( 528 ) = RKI( 528 ) * YC( ETHENE ) * YC( O3 ) RXRAT( 529 ) = RKI( 529 ) * YC( ETHENE ) * YC( NO3 ) RXRAT( 530 ) = RKI( 530 ) * YC( ETHENE ) * YC( O3P ) RXRAT( 531 ) = RKI( 531 ) * YC( PROPENE ) * YC( OH ) RXRAT( 532 ) = RKI( 532 ) * YC( PROPENE ) * YC( O3 ) RXRAT( 533 ) = RKI( 533 ) * YC( PROPENE ) * YC( NO3 ) RXRAT( 534 ) = RKI( 534 ) * YC( PROPENE ) * YC( O3P ) RXRAT( 535 ) = RKI( 535 ) * YC( BUTADIENE13 ) * YC( OH ) RXRAT( 536 ) = RKI( 536 ) * YC( BUTADIENE13 ) * YC( O3 ) RXRAT( 537 ) = RKI( 537 ) * YC( BUTADIENE13 ) * YC( NO3 ) RXRAT( 538 ) = RKI( 538 ) * YC( BUTADIENE13 ) * YC( O3P ) RXRAT( 539 ) = RKI( 539 ) * YC( ISOPRENE ) * YC( OH ) RXRAT( 540 ) = RKI( 540 ) * YC( ISOPRENE ) * YC( O3 ) RXRAT( 541 ) = RKI( 541 ) * YC( ISOPRENE ) * YC( NO3 ) RXRAT( 542 ) = RKI( 542 ) * YC( ISOPRENE ) * YC( O3P ) RXRAT( 543 ) = RKI( 543 ) * YC( ISOPOOH ) * YC( OH ) RXRAT( 544 ) = RKI( 544 ) * YC( ISOPOOH ) * YC( OH ) RXRAT( 545 ) = RKI( 545 ) * YC( ISOPOOH ) RXRAT( 546 ) = RKI( 546 ) * YC( IEPOX ) * YC( OH ) RXRAT( 547 ) = RKI( 547 ) * YC( IEPOXOO ) * YC( HO2 ) RXRAT( 548 ) = RKI( 548 ) * YC( IEPOXOO ) * YC( NO ) RXRAT( 549 ) = RKI( 549 ) * YC( IEPOXOO ) * YC( MEO2 ) RXRAT( 550 ) = RKI( 550 ) * YC( IEPOXOO ) * YC( RO2C ) RXRAT( 551 ) = RKI( 551 ) * YC( IEPOXOO ) * YC( MECO3 ) RXRAT( 552 ) = RKI( 552 ) * YC( APIN ) * YC( OH ) RXRAT( 553 ) = RKI( 553 ) * YC( APIN ) * YC( O3 ) RXRAT( 554 ) = RKI( 554 ) * YC( APIN ) * YC( NO3 ) RXRAT( 555 ) = RKI( 555 ) * YC( APIN ) * YC( O3P ) RXRAT( 556 ) = RKI( 556 ) * YC( ACETYLENE ) * YC( OH ) RXRAT( 557 ) = RKI( 557 ) * YC( ACETYLENE ) * YC( O3 ) RXRAT( 558 ) = RKI( 558 ) * YC( BENZENE ) * YC( OH ) RXRAT( 559 ) = RKI( 559 ) * YC( TOLUENE ) * YC( OH ) RXRAT( 560 ) = RKI( 560 ) * YC( MXYL ) * YC( OH ) RXRAT( 561 ) = RKI( 561 ) * YC( OXYL ) * YC( OH ) RXRAT( 562 ) = RKI( 562 ) * YC( PXYL ) * YC( OH ) RXRAT( 563 ) = RKI( 563 ) * YC( TMBENZ124 ) * YC( OH ) RXRAT( 564 ) = RKI( 564 ) * YC( ETOH ) * YC( OH ) RXRAT( 565 ) = RKI( 565 ) * YC( ALK1 ) * YC( OH ) RXRAT( 566 ) = RKI( 566 ) * YC( ALK2 ) * YC( OH ) RXRAT( 567 ) = RKI( 567 ) * YC( ALK3 ) * YC( OH ) RXRAT( 568 ) = RKI( 568 ) * YC( ALK4 ) * YC( OH ) RXRAT( 569 ) = RKI( 569 ) * YC( ALK5 ) * YC( OH ) RXRAT( 570 ) = RKI( 570 ) * YC( SOAALK ) * YC( OH ) RXRAT( 571 ) = RKI( 571 ) * YC( OLE1 ) * YC( OH ) RXRAT( 572 ) = RKI( 572 ) * YC( OLE1 ) * YC( O3 ) RXRAT( 573 ) = RKI( 573 ) * YC( OLE1 ) * YC( NO3 ) RXRAT( 574 ) = RKI( 574 ) * YC( OLE1 ) * YC( O3P ) RXRAT( 575 ) = RKI( 575 ) * YC( OLE2 ) * YC( OH ) RXRAT( 576 ) = RKI( 576 ) * YC( OLE2 ) * YC( O3 ) RXRAT( 577 ) = RKI( 577 ) * YC( OLE2 ) * YC( NO3 ) RXRAT( 578 ) = RKI( 578 ) * YC( OLE2 ) * YC( O3P ) RXRAT( 579 ) = RKI( 579 ) * YC( ARO1 ) * YC( OH ) RXRAT( 580 ) = RKI( 580 ) * YC( ARO2MN ) * YC( OH ) RXRAT( 581 ) = RKI( 581 ) * YC( NAPHTHAL ) * YC( OH ) RXRAT( 582 ) = RKI( 582 ) * YC( TERP ) * YC( OH ) RXRAT( 583 ) = RKI( 583 ) * YC( TERP ) * YC( O3 ) RXRAT( 584 ) = RKI( 584 ) * YC( TERP ) * YC( NO3 ) RXRAT( 585 ) = RKI( 585 ) * YC( TERP ) * YC( O3P ) RXRAT( 586 ) = RKI( 586 ) * YC( SESQ ) * YC( OH ) RXRAT( 587 ) = RKI( 587 ) * YC( SESQ ) * YC( O3 ) RXRAT( 588 ) = RKI( 588 ) * YC( SESQ ) * YC( NO3 ) RXRAT( 589 ) = RKI( 589 ) * YC( SESQ ) * YC( O3P ) RXRAT( 590 ) = RKI( 590 ) * YC( CL2 ) RXRAT( 591 ) = RKI( 591 ) * YC( CL ) * YC( NO ) RXRAT( 592 ) = RKI( 592 ) * YC( CLNO ) RXRAT( 593 ) = RKI( 593 ) * YC( CL ) * YC( NO2 ) RXRAT( 594 ) = RKI( 594 ) * YC( CL ) * YC( NO2 ) RXRAT( 595 ) = RKI( 595 ) * YC( CLONO ) RXRAT( 596 ) = RKI( 596 ) * YC( CLNO2 ) RXRAT( 597 ) = RKI( 597 ) * YC( CL ) * YC( HO2 ) RXRAT( 598 ) = RKI( 598 ) * YC( CL ) * YC( HO2 ) RXRAT( 599 ) = RKI( 599 ) * YC( CL ) * YC( O3 ) RXRAT( 600 ) = RKI( 600 ) * YC( CL ) * YC( NO3 ) RXRAT( 601 ) = RKI( 601 ) * YC( CLO ) * YC( NO ) RXRAT( 602 ) = RKI( 602 ) * YC( CLO ) * YC( NO2 ) RXRAT( 603 ) = RKI( 603 ) * YC( CLONO2 ) RXRAT( 604 ) = RKI( 604 ) * YC( CLONO2 ) RXRAT( 605 ) = RKI( 605 ) * YC( CLONO2 ) RXRAT( 606 ) = RKI( 606 ) * YC( CL ) * YC( CLONO2 ) RXRAT( 607 ) = RKI( 607 ) * YC( CLO ) * YC( HO2 ) RXRAT( 608 ) = RKI( 608 ) * YC( HOCL ) RXRAT( 609 ) = RKI( 609 ) * YC( CLO ) * YC( CLO ) RXRAT( 610 ) = RKI( 610 ) * YC( OH ) * YC( HCL ) RXRAT( 611 ) = RKI( 611 ) * YC( CL ) RXRAT( 612 ) = RKI( 612 ) * YC( HCHO ) * YC( CL ) RXRAT( 613 ) = RKI( 613 ) * YC( CCHO ) * YC( CL ) RXRAT( 614 ) = RKI( 614 ) * YC( MEOH ) * YC( CL ) RXRAT( 615 ) = RKI( 615 ) * YC( RCHO ) * YC( CL ) RXRAT( 616 ) = RKI( 616 ) * YC( ACETONE ) * YC( CL ) RXRAT( 617 ) = RKI( 617 ) * YC( MEK ) * YC( CL ) RXRAT( 618 ) = RKI( 618 ) * YC( RNO3 ) * YC( CL ) RXRAT( 619 ) = RKI( 619 ) * YC( PRD2 ) * YC( CL ) RXRAT( 620 ) = RKI( 620 ) * YC( GLY ) * YC( CL ) RXRAT( 621 ) = RKI( 621 ) * YC( MGLY ) * YC( CL ) RXRAT( 622 ) = RKI( 622 ) * YC( CRES ) * YC( CL ) RXRAT( 623 ) = RKI( 623 ) * YC( BALD ) * YC( CL ) RXRAT( 624 ) = RKI( 624 ) * YC( ROOH ) * YC( CL ) RXRAT( 625 ) = RKI( 625 ) * YC( R6OOH ) * YC( CL ) RXRAT( 626 ) = RKI( 626 ) * YC( RAOOH ) * YC( CL ) RXRAT( 627 ) = RKI( 627 ) * YC( ACROLEIN ) * YC( CL ) RXRAT( 628 ) = RKI( 628 ) * YC( MACR ) * YC( CL ) RXRAT( 629 ) = RKI( 629 ) * YC( MVK ) * YC( CL ) RXRAT( 630 ) = RKI( 630 ) * YC( IPRD ) * YC( CL ) RXRAT( 631 ) = RKI( 631 ) * YC( CLCCHO ) RXRAT( 632 ) = RKI( 632 ) * YC( CLCCHO ) * YC( OH ) RXRAT( 633 ) = RKI( 633 ) * YC( CLCCHO ) * YC( CL ) RXRAT( 634 ) = RKI( 634 ) * YC( CLACET ) RXRAT( 635 ) = RKI( 635 ) * YC( xCL ) * YC( NO ) RXRAT( 636 ) = RKI( 636 ) * YC( xCL ) * YC( HO2 ) RXRAT( 637 ) = RKI( 637 ) * YC( xCL ) * YC( NO3 ) RXRAT( 638 ) = RKI( 638 ) * YC( xCL ) * YC( MEO2 ) RXRAT( 639 ) = RKI( 639 ) * YC( xCL ) * YC( RO2C ) RXRAT( 640 ) = RKI( 640 ) * YC( xCL ) * YC( RO2XC ) RXRAT( 641 ) = RKI( 641 ) * YC( xCL ) * YC( MECO3 ) RXRAT( 642 ) = RKI( 642 ) * YC( xCL ) * YC( RCO3 ) RXRAT( 643 ) = RKI( 643 ) * YC( xCL ) * YC( BZCO3 ) RXRAT( 644 ) = RKI( 644 ) * YC( xCL ) * YC( MACO3 ) RXRAT( 645 ) = RKI( 645 ) * YC( xCLCCHO ) * YC( NO ) RXRAT( 646 ) = RKI( 646 ) * YC( xCLCCHO ) * YC( HO2 ) RXRAT( 647 ) = RKI( 647 ) * YC( xCLCCHO ) * YC( NO3 ) RXRAT( 648 ) = RKI( 648 ) * YC( xCLCCHO ) * YC( MEO2 ) RXRAT( 649 ) = RKI( 649 ) * YC( xCLCCHO ) * YC( RO2C ) RXRAT( 650 ) = RKI( 650 ) * YC( xCLCCHO ) * YC( RO2XC ) RXRAT( 651 ) = RKI( 651 ) * YC( xCLCCHO ) * YC( MECO3 ) RXRAT( 652 ) = RKI( 652 ) * YC( xCLCCHO ) * YC( RCO3 ) RXRAT( 653 ) = RKI( 653 ) * YC( xCLCCHO ) * YC( BZCO3 ) RXRAT( 654 ) = RKI( 654 ) * YC( xCLCCHO ) * YC( MACO3 ) RXRAT( 655 ) = RKI( 655 ) * YC( xCLACET ) * YC( NO ) RXRAT( 656 ) = RKI( 656 ) * YC( xCLACET ) * YC( HO2 ) RXRAT( 657 ) = RKI( 657 ) * YC( xCLACET ) * YC( NO3 ) RXRAT( 658 ) = RKI( 658 ) * YC( xCLACET ) * YC( MEO2 ) RXRAT( 659 ) = RKI( 659 ) * YC( xCLACET ) * YC( RO2C ) RXRAT( 660 ) = RKI( 660 ) * YC( xCLACET ) * YC( RO2XC ) RXRAT( 661 ) = RKI( 661 ) * YC( xCLACET ) * YC( MECO3 ) RXRAT( 662 ) = RKI( 662 ) * YC( xCLACET ) * YC( RCO3 ) RXRAT( 663 ) = RKI( 663 ) * YC( xCLACET ) * YC( BZCO3 ) RXRAT( 664 ) = RKI( 664 ) * YC( xCLACET ) * YC( MACO3 ) RXRAT( 665 ) = RKI( 665 ) * YC( CL ) RXRAT( 666 ) = RKI( 666 ) * YC( ETHENE ) * YC( CL ) RXRAT( 667 ) = RKI( 667 ) * YC( PROPENE ) * YC( CL ) RXRAT( 668 ) = RKI( 668 ) * YC( BUTADIENE13 ) * YC( CL ) RXRAT( 669 ) = RKI( 669 ) * YC( ISOPRENE ) * YC( CL ) RXRAT( 670 ) = RKI( 670 ) * YC( APIN ) * YC( CL ) RXRAT( 671 ) = RKI( 671 ) * YC( ACETYLENE ) * YC( CL ) RXRAT( 672 ) = RKI( 672 ) * YC( TOLUENE ) * YC( CL ) RXRAT( 673 ) = RKI( 673 ) * YC( MXYL ) * YC( CL ) RXRAT( 674 ) = RKI( 674 ) * YC( OXYL ) * YC( CL ) RXRAT( 675 ) = RKI( 675 ) * YC( PXYL ) * YC( CL ) RXRAT( 676 ) = RKI( 676 ) * YC( TMBENZ124 ) * YC( CL ) RXRAT( 677 ) = RKI( 677 ) * YC( ETOH ) * YC( CL ) RXRAT( 678 ) = RKI( 678 ) * YC( ALK1 ) * YC( CL ) RXRAT( 679 ) = RKI( 679 ) * YC( ALK2 ) * YC( CL ) RXRAT( 680 ) = RKI( 680 ) * YC( ALK3 ) * YC( CL ) RXRAT( 681 ) = RKI( 681 ) * YC( ALK4 ) * YC( CL ) RXRAT( 682 ) = RKI( 682 ) * YC( ALK5 ) * YC( CL ) RXRAT( 683 ) = RKI( 683 ) * YC( OLE1 ) * YC( CL ) RXRAT( 684 ) = RKI( 684 ) * YC( OLE2 ) * YC( CL ) RXRAT( 685 ) = RKI( 685 ) * YC( ARO1 ) * YC( CL ) RXRAT( 686 ) = RKI( 686 ) * YC( ARO2MN ) * YC( CL ) RXRAT( 687 ) = RKI( 687 ) * YC( NAPHTHAL ) * YC( CL ) RXRAT( 688 ) = RKI( 688 ) * YC( TERP ) * YC( CL ) RXRAT( 689 ) = RKI( 689 ) * YC( SESQ ) * YC( CL ) RXRAT( 690 ) = RKI( 690 ) * YC( BENZRO2 ) * YC( NO ) RXRAT( 691 ) = RKI( 691 ) * YC( BENZRO2 ) * YC( HO2 ) RXRAT( 692 ) = RKI( 692 ) * YC( XYLRO2 ) * YC( NO ) RXRAT( 693 ) = RKI( 693 ) * YC( XYLRO2 ) * YC( HO2 ) RXRAT( 694 ) = RKI( 694 ) * YC( TOLRO2 ) * YC( NO ) RXRAT( 695 ) = RKI( 695 ) * YC( TOLRO2 ) * YC( HO2 ) RXRAT( 696 ) = RKI( 696 ) * YC( PAHRO2 ) * YC( NO ) RXRAT( 697 ) = RKI( 697 ) * YC( PAHRO2 ) * YC( HO2 ) RXRAT( 698 ) = RKI( 698 ) * YC( HCHO_PRIMARY ) RXRAT( 699 ) = RKI( 699 ) * YC( HCHO_PRIMARY ) RXRAT( 700 ) = RKI( 700 ) * YC( HCHO_PRIMARY ) * YC( OH ) RXRAT( 701 ) = RKI( 701 ) * YC( HCHO_PRIMARY ) * YC( NO3 ) RXRAT( 702 ) = RKI( 702 ) * YC( HCHO_PRIMARY ) * YC( CL ) RXRAT( 703 ) = RKI( 703 ) * YC( CCHO_PRIMARY ) * YC( OH ) RXRAT( 704 ) = RKI( 704 ) * YC( CCHO_PRIMARY ) RXRAT( 705 ) = RKI( 705 ) * YC( CCHO_PRIMARY ) * YC( NO3 ) RXRAT( 706 ) = RKI( 706 ) * YC( CCHO_PRIMARY ) * YC( CL ) RXRAT( 707 ) = RKI( 707 ) * YC( ACRO_PRIMARY ) * YC( OH ) RXRAT( 708 ) = RKI( 708 ) * YC( ACRO_PRIMARY ) * YC( O3 ) RXRAT( 709 ) = RKI( 709 ) * YC( ACRO_PRIMARY ) * YC( NO3 ) RXRAT( 710 ) = RKI( 710 ) * YC( ACRO_PRIMARY ) * YC( O3P ) RXRAT( 711 ) = RKI( 711 ) * YC( ACRO_PRIMARY ) RXRAT( 712 ) = RKI( 712 ) * YC( ACRO_PRIMARY ) * YC( CL ) RXRAT( 713 ) = RKI( 713 ) * YC( NO2 ) RXRAT( 714 ) = RKI( 714 ) * YC( N2O5 ) RXRAT( 715 ) = RKI( 715 ) * YC( N2O5 ) RXRAT( 716 ) = RKI( 716 ) * YC( H2NO3PIJ ) RXRAT( 717 ) = RKI( 717 ) * YC( H2NO3PK ) RXRAT( 718 ) = RKI( 718 ) * YC( H2NO3PIJ ) * YC( ACLI ) RXRAT( 719 ) = RKI( 719 ) * YC( H2NO3PIJ ) * YC( ACLJ ) RXRAT( 720 ) = RKI( 720 ) * YC( H2NO3PK ) * YC( ACLK ) ! RXRAT( 721 ) = RKI( 721 ) * YC( O3 ) RXRAT( 722 ) = RKI( 722 ) * YC( AXYL1J ) RXRAT( 723 ) = RKI( 723 ) * YC( AXYL2J ) RXRAT( 724 ) = RKI( 724 ) * YC( ATOL1J ) RXRAT( 725 ) = RKI( 725 ) * YC( ATOL2J ) RXRAT( 726 ) = RKI( 726 ) * YC( ABNZ1J ) RXRAT( 727 ) = RKI( 727 ) * YC( ABNZ2J ) RXRAT( 728 ) = RKI( 728 ) * YC( ATRP1J ) RXRAT( 729 ) = RKI( 729 ) * YC( ATRP2J ) RXRAT( 730 ) = RKI( 730 ) * YC( AISO1J ) RXRAT( 731 ) = RKI( 731 ) * YC( AISO2J ) RXRAT( 732 ) = RKI( 732 ) * YC( ASQTJ ) RXRAT( 733 ) = RKI( 733 ) * YC( APAH1J ) RXRAT( 734 ) = RKI( 734 ) * YC( APAH2J ) RXRAT( 735 ) = RKI( 735 ) * YC( AALK1J ) RXRAT( 736 ) = RKI( 736 ) * YC( AALK2J ) RXRAT( 737 ) = RKI( 737 ) * YC( APOCI ) * YC( OH ) RXRAT( 738 ) = RKI( 738 ) * YC( APNCOMI ) * YC( OH ) RXRAT( 739 ) = RKI( 739 ) * YC( APOCJ ) * YC( OH ) RXRAT( 740 ) = RKI( 740 ) * YC( APNCOMJ ) * YC( OH ) RXRAT( 741 ) = RKI( 741 ) * YC( PCVOC ) * YC( OH ) RXRAT( 742 ) = RKI( 742 ) * YC( VLVPO1 ) * YC( OH ) RXRAT( 743 ) = RKI( 743 ) * YC( VSVPO1 ) * YC( OH ) RXRAT( 744 ) = RKI( 744 ) * YC( VSVPO2 ) * YC( OH ) RXRAT( 745 ) = RKI( 745 ) * YC( VSVPO3 ) * YC( OH ) RXRAT( 746 ) = RKI( 746 ) * YC( VIVPO1 ) * YC( OH ) RXRAT( 747 ) = RKI( 747 ) * YC( VLVOO1 ) * YC( OH ) RXRAT( 748 ) = RKI( 748 ) * YC( VLVOO2 ) * YC( OH ) RXRAT( 749 ) = RKI( 749 ) * YC( VSVOO1 ) * YC( OH ) RXRAT( 750 ) = RKI( 750 ) * YC( VSVOO2 ) * YC( OH ) RXRAT( 751 ) = RKI( 751 ) * YC( VSVOO3 ) * YC( OH ) RXRAT( 752 ) = RKI( 752 ) * YC( IEPOX ) RETURN END ================================================ FILE: CCTM/src/gas/ebi_saprc07tc_ae6_aq/hrsolver.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE HRSOLVER( JDATE, JTIME, C, R, L ) C********************************************************************** C C FUNCTION: EBI solver C C PRECONDITIONS: For the SAPRC07TC_AE6_AQ mechanism C C KEY SUBROUTINES/FUNCTIONS CALLED: HRRATES, HRG1, HRG2, HRG3 C HRG4, HRPRODLOSS C DEGRADE C C REVISION HISTORY: Created by EBI solver program, Jun 8, 2022 C 21 Jun 10 J.Young: convert for Namelist redesign C 18 Jul 14 B.Hutzell: revised 1) to use the RXNS_DATA and RXNS_FUNCTION C modules instead of include files and 2) to use C real(8) variables C********************************************************************** USE RUNTIME_VARS USE UTILIO_DEFN USE RXNS_DATA USE HRDATA USE PA_IRR_MODULE #ifdef isam USE SA_IRR_DEFN #endif #ifdef sens USE DDM3D_CHEM, ONLY: YCDDM USE CGRID_SPCS, ONLY: GC_SPC #endif USE DEGRADE_ROUTINES, ONLY : DEGRADE, SA_DEGRADE_STEP IMPLICIT NONE C..INCLUDES: C..ARGUMENTS: INTEGER, INTENT( IN ) :: JDATE ! Current date (YYYYDDD) INTEGER, INTENT( IN ) :: JTIME ! Current time (HHMMSS) INTEGER, INTENT( IN ) :: C, R, L ! Cell col, row, lev C..PARAMETERS: INTEGER, PARAMETER :: MXBKUPS = 5 ! Max no. of back-ups allowed INTEGER, PARAMETER :: STAT = 1 ! Status code REAL( 8 ), PARAMETER :: DTMIN = 1.0D-08 ! Smallest time step allowed, min REAL( 8 ), PARAMETER :: EPSLON = 1.0D-30 ! Small number REAL( 8 ), PARAMETER :: MAXPRED = 1.0D+03 ! Upper limit on predicted conc REAL( 8 ), PARAMETER :: ZERO = 1.0D-40 ! effective zero REAL( 8 ), PARAMETER :: FLOOR = 1.0D-08 ! Min conc for RTOL C..EXTERNAL FUNCTIONS: C..SAVED LOCAL VARIABLES: CHARACTER( 16 ), SAVE :: PNAME = 'HRSOLVER' ! Program name LOGICAL, SAVE :: LFIRST = .TRUE. ! Flag for first call LOGICAL, ALLOCATABLE, SAVE :: LEBISPFL( : ) ! Convergence Error Flag for EBI species LOGICAL, ALLOCATABLE, SAVE :: MAXCONC ( : ) ! MAXCONC ERROR Flag for EBI species LOGICAL, ALLOCATABLE, SAVE :: NOTMAX ( : ) ! Initial concentration not greater than MAXPRED REAL( 8 ), ALLOCATABLE, SAVE :: RERROR ( : ) ! Relative Error REAL( 8 ), ALLOCATABLE, SAVE :: AERROR ( : ) ! Absolute Error C..SCRATCH LOCAL VARIABLES: CHARACTER( 132 ) :: MSG ! Message text INTEGER CELLNO ! Cell no. fo debug output INTEGER ITER ! Loop index for Backward Euler iterations INTEGER S ! Loop index for species INTEGER SP ! Imbedded loop index for species INTEGER NEBI ! Loop index for time steps INTEGER NINR ! No. of inner time steps #ifdef hrdebug INTEGER N ! Loop index #endif INTEGER M ! species index INTEGER EBI ! Loop index INTEGER NBKUPS ! No. of times time step reduced INTEGER ERR ! Allocate error flag LOGICAL LEBI_CONV ! Flag for EBI convergence LOGICAL MXFL ! hit MAXPRED flag REAL( 8 ) DTC ! Time step to take REAL( 8 ) DTG ! Time step in degrade routines, sec REAL( 8 ) FXDLOSS ! Total loss due to negative stoichiometry REAL( 8 ) VARLOSS ! Loss excluding negative stoichiometry #ifdef hrdebug CHARACTER( 8 ) :: NOTE ! Convergence fail note INTEGER COL ! Column to generate deboug output for INTEGER ROW ! Row to generate deboug output for INTEGER LEV ! Level to generate deboug output for INTEGER DBGOUT ! Output unit for debu outpt LOGICAL LDEBUG ! Debug output flag LOGICAL, SAVE :: LOPEN = .FALSE. #endif C********************************************************************** IF( LFIRST ) THEN LFIRST = .FALSE. ALLOCATE ( LEBISPFL( NUMB_MECH_SPC ), STAT = ERR ) IF ( ERR .NE. 0 ) THEN MSG = 'Error allocating LEBISPFL' CALL M3EXIT( PNAME, JDATE, JTIME, MSG, XSTAT1 ) END IF ALLOCATE ( MAXCONC( NUMB_MECH_SPC ), STAT = ERR ) IF ( ERR .NE. 0 ) THEN MSG = 'Error allocating MAXCONC' CALL M3EXIT( PNAME, JDATE, JTIME, MSG, XSTAT1 ) END IF ALLOCATE ( NOTMAX( NUMB_MECH_SPC ), STAT = ERR ) IF ( ERR .NE. 0 ) THEN MSG = 'Error allocating NOTMAX' CALL M3EXIT( PNAME, JDATE, JTIME, MSG, XSTAT1 ) END IF ALLOCATE ( RERROR( NUMB_MECH_SPC ), STAT = ERR ) IF ( ERR .NE. 0 ) THEN MSG = 'Error allocating ERROR' CALL M3EXIT( PNAME, JDATE, JTIME, MSG, XSTAT1 ) END IF ALLOCATE ( AERROR( NUMB_MECH_SPC ), STAT = ERR ) IF ( ERR .NE. 0 ) THEN MSG = 'Error allocating AERROR' CALL M3EXIT( PNAME, JDATE, JTIME, MSG, XSTAT1 ) END IF END IF #ifdef sens YCDDM = 0.0D0 #endif c++++++++++++++++++++++++Debug section++++++++++++++++++++++++++++++++++ #ifdef hrdebug COL = 0 ROW = 0 LEV = 0 IF( C .EQ. COL .AND. R .EQ. ROW .AND. L .EQ. LEV ) THEN c IF( JTIME .EQ. 160000 ) THEN LDEBUG = .TRUE. ELSE LDEBUG = .FALSE. END IF IF( LDEBUG ) THEN IF( .NOT. LOPEN ) THEN DBGOUT = JUNIT() OPEN( UNIT = DBGOUT, FILE = 'debug.out' ) LOPEN = .TRUE. END IF WRITE( DBGOUT, '( A, 2I4, I3, 1X, I7, 1X, I6 ) ' ) & 'Debug output for col/row/lev/date/time:', & C, R, L, JDATE, JTIME WRITE( DBGOUT, '( A, F7.2) ' ) & 'EBI_TMSTEP = ', EBI_TMSTEP WRITE( DBGOUT, '( A )' ) 'Starting concs and rate constants' DO N = 1, NUMB_MECH_SPC WRITE( DBGOUT, '( A, I3, 1X, A, 1X, 1PD13.5 )' ) & 'SP ',N, CHEMISTRY_SPC( N ), YC( N ) END DO DO N = 1, N_RXNS WRITE( DBGOUT, '( A, I3, 1X, 1PD13.5 )' ) & 'RKI ', N, RKI( N ) END DO END IF #endif c++++++++++++++++++++++++Debug section++++++++++++++++++++++++++++++++++ DTC = EBI_TMSTEP N_EBI_IT = 0 NBKUPS = 0 N_INR_STEPS = 1 NEBI = 1 LEBI_CONV = .TRUE. #ifdef isam UPDATE_SOLD = .FALSE. UPDATE_PROBABILITIES = .TRUE. CALL SA_IRR_UNBLOCKED ( .TRUE., RKI, YC, DTC ) #endif DO S = 1, NUMB_MECH_SPC IF( YC( S ) .LE. MAXPRED )THEN NOTMAX( S ) = .TRUE. ELSE NOTMAX( S ) = .FALSE. WRITE(LOGDEV,91000)C, R, L, CHEMISTRY_SPC(S), YC(S) END IF END DO ! Initial PA_IRR IF( CALL_IRR ) CALL PA_IRR ( .TRUE., RKI, YC, DTC ) SA_DEGRADE_STEP = 0 TSTEP_EBI: DO ! EBI time-step loop SUBSTEP_EBI: DO NINR = 1, N_INR_STEPS ! time substeps loop ! first attempt is sub time-step equals EBI time-step IF( LEBI_CONV ) YC0 = YC ! Set ICs for EBI iterations ITER_SUBSTEP: DO ITER = 1, NEBITER ! iteration loop solving for sub time-step N_EBI_IT = N_EBI_IT + 1 CALL HRRATES c++++++++++++++++++++++++Debug section++++++++++++++++++++++++++++++++++ #ifdef hrdebug IF( LDEBUG ) THEN WRITE( DBGOUT, '( A, I5 )' ) 'ITER NO ', ITER WRITE( DBGOUT, '( A, F12.5 )' ) & ' DTC=', DTC IF( ITER .EQ. 1 ) THEN WRITE( DBGOUT, '( A )' ) 'Starting reaction rates' DO N = 1, N_RXNS WRITE( DBGOUT, '( A, I3, 1X, 1PD13.5 )' ) & 'RXRAT ', N, RXRAT( NCELL, N ) END DO END IF END IF #endif c++++++++++++++++++++++++Debug section++++++++++++++++++++++++++++++++++ cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Call routines to compute concentrations of groups 1-4 cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc CALL HRG1( DTC ) CALL HRG2( DTC ) CALL HRG3( DTC ) CALL HRG4( DTC ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Do the Euler backward method cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc CALL HRPRODLOSS DO EBI = 1, N_EBISP S = EBISP( EBI ) YCP( S ) = YC( S )*( ( YC0( S ) + PROD( S ) * DTC ) & / ( YC( S ) + LOSS( S ) * DTC ) ) END DO cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Check for convergence cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc LEBI_CONV = .TRUE. MXFL = .FALSE. DO S = 1, NUMB_MECH_SPC LEBISPFL( S ) = .FALSE. YCP( S ) = MAX( ZERO, YCP( S ) ) AERROR( S ) = MAX( ABS( YC(S)-YCP(S) ), EPSLON ) RERROR( S ) = AERROR( S ) / MAX( FLOOR, ABS( YC(S)+YCP(S) ) ) IF( RERROR( S ) .GT. RTOL(S) .OR. AERROR( S ) .GT. 1.0D-5 )THEN LEBI_CONV = .FALSE. LEBISPFL( S ) = .TRUE. END IF c..test if predictions growing too large IF( YCP( S ) .GT. MAXPRED .AND. NOTMAX( S ) ) THEN MXFL = .TRUE. LEBI_CONV = .FALSE. LEBISPFL( S ) = .TRUE. END IF YC( S ) = YCP( S ) END DO c..test if predictions growing too large, abort interation loop IF( MXFL ) EXIT ITER_SUBSTEP c++++++++++++++++++++++++Debug section++++++++++++++++++++++++++++++++++ #ifdef hrdebug IF( LDEBUG ) THEN WRITE( DBGOUT, '( A, I5 )' ) 'Concs after ITER= ', ITER DO S = 1, NUMB_MECH_SPC IF( LEBISPFL( S ) ) THEN NOTE = 'CONV FAIL' ELSE NOTE = ' ' END IF WRITE( DBGOUT, '( I3, 1X, A, 1PD13.5, 1X, A )' ) & S, CHEMISTRY_SPC( S ), YC( S ), NOTE END DO IF( LEBI_CONV ) WRITE( DBGOUT, '( A )' ) & '****Convergence achieved' END IF #endif c++++++++++++++++++++++++Debug section++++++++++++++++++++++++++++++++++ IF( LEBI_CONV ) THEN DTG = 60.0D0 * DTC DO S = 1, NUMB_MECH_SPC M = CGRID_INDEX( S ) YCCELL( M ) = YC( S ) END DO #if defined(isam) || defined(verbose_isam) SA_DEGRADE_STEP = SA_DEGRADE_STEP + 1 #endif IF( CALL_DEG )CALL DEGRADE(YCCELL, DTG, JDATE, JTIME) ! :WTH Call degradation routine IF( CALL_IRR ) CALL PA_IRR ( .FALSE., RKI, YC, DTC ) #ifdef isam IF( NEBI .EQ. N_EBI_STEPS )UPDATE_SOLD = .TRUE. CALL SA_IRR_UNBLOCKED ( .FALSE., RKI, YC, DTC ) UPDATE_PROBABILITIES = .FALSE. #endif #ifdef sens C Update the sum for the average over the chemistry integration YCDDM = YCDDM & + ( ( 0.5D0 * DTC ) * ( YC + YC0 ) ) #endif CYCLE SUBSTEP_EBI ! solve for next sub time-step END IF END DO ITER_SUBSTEP ! interating for substep failed, attempt to increase number of sub time-steps NBKUPS = NBKUPS + 1 ! IF( NBKUPS .LE. MXBKUPS ) THEN IF ( DTC .GT. DTMIN ) THEN ! reset YC and cut sub time-step in half IF ( MXFL ) THEN WRITE( LOGDEV, 92008 ) NBKUPS WRITE( LOGDEV, 92009 ) C+PECOL_OFFSET, R+PEROW_OFFSET, L DO S = 1, NUMB_MECH_SPC IF( LEBISPFL( S ) )WRITE( LOGDEV, 92010 )TRIM( CHEMISTRY_SPC( S ) ), & YC0(S), YCP(S) END DO ELSE WRITE( LOGDEV, 92000 ) C+PECOL_OFFSET, R+PEROW_OFFSET, L, NBKUPS DO S = 1, NUMB_MECH_SPC IF( LEBISPFL( S ) )WRITE( LOGDEV, 92010 )TRIM( CHEMISTRY_SPC( S ) ), & YC0(S), YCP(S) END DO END IF YC = YC0 ! Set ICs for EBI time-step DTC = 0.5D0 * DTC N_INR_STEPS = 2 ** NBKUPS EXIT SUBSTEP_EBI ELSE WRITE( LOGDEV, 92040 ) C+PECOL_OFFSET, R+PEROW_OFFSET, L WRITE( LOGDEV, 92060 ) DO S = 1, NUMB_MECH_SPC IF( LEBISPFL( S ) ) WRITE( LOGDEV, 92080 ) CHEMISTRY_SPC( S ), & YC0(S), YCP(S) END DO MSG = 'ERROR: Stopping because of EBI convergence failures' CALL M3EXIT( PNAME, JDATE, JTIME, MSG, XSTAT2 ) END IF END DO SUBSTEP_EBI IF( LEBI_CONV )THEN NEBI = 1 + NEBI ! test for completing final EBI time-step IF( NEBI .GT. N_EBI_STEPS )EXIT TSTEP_EBI ! test whether backups were done IF( NBKUPS .EQ. 0 )CYCLE TSTEP_EBI ! Reset NBKUPS, N_INR_STEPS and sub-time step NBKUPS = 0 N_INR_STEPS = 1 DTC = EBI_TMSTEP END IF END DO TSTEP_EBI #ifdef sens ! Compute average over integration and filter values YCDDM = YCDDM / CHEMSTEP WHERE ( YCDDM .LT. 1.0D-25 ) YCDDM = 0.0D0 #endif RETURN 91000 FORMAT( 'WARNING: EBI solver in cell (',2(I4,','),I4,') Init.Conc. for ', & A16, ' = ', ES12.4,' ppmV') 92000 FORMAT( 'WARNING: EBI Euler convergence failure' / & ' Reducing EBI time step because of ', & ' convergence failure in ' / & ' Cell (', I3, ', ', I3, ', ', I3, ')' , & ' Solution Attempt #', I2 / & ' Below Species Causing Error: Init.Conc, Pred.Conc.' ) 92008 FORMAT( 'WARNING: At solution attempt #', I2 ) 92009 FORMAT( 'WARNING: EBI Euler convergence failure' / & ' Reducing EBI time step because of ', & ' MAXPRED failure in ' / & ' Cell (', I3, ', ', I3, ', ', I3, ')' , & ' for the below species: : Init.Conc, Pred.Conc.') 92010 FORMAT( A16, 2(1X,ES12.4), ' ppmV' ) 92040 FORMAT( 'ERROR: Max number of EBI time step reductions exceeded' & / ' Convergence failure for cell (', I3, ', ', I3, & ', ', I3, ')' ) 92060 FORMAT( ' Convergence failure for the following species:', & 'Init.Conc, Pred.Conc.' ) 92080 FORMAT( 10X, A, 2(1X,ES12.4), ' ppmV ' ) 92061 FORMAT( ' Convergence failure for the following species:', & 'Init.Conc, Pred.Conc.,Rel.Error,' ) 92081 FORMAT( 10X, A, 2(1X,ES12.4), ' ppmV ', ES12.4,'%' ) END ================================================ FILE: CCTM/src/gas/ebi_saprc07tic_ae7i_aq/hrdata_mod.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! MODULE HRDATA C************************************************************************* C C FUNCTION: Mechanism & solver data for EBI solver C C PRECONDITIONS: For the SAPRC07TIC_AE7I_AQ mechanism C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by EBI solver program, Jun 8, 2022 C C 18 Jul 14 B.Hutzell: revised to use real(8) variables for solution C************************************************************************* c..EBI solver fixed parameters INTEGER, PARAMETER :: NEBITER = 1000 ! No. of iterations for EBI INTEGER, PARAMETER :: MAX_CELLS_EBI = 1 ! max # cells in local conc arrays REAL( 8 ), PARAMETER :: DELTAT = 1.250D+00 ! EBI time step (min) c..Mechanism specific variables INTEGER N_SPEC ! No. of species in mechanism INTEGER N_RXNS ! No. of reactions in mechanism INTEGER N_EBISP ! No. of species solved by EBI INTEGER NING1 ! No. of species in group 1 INTEGER NING2 ! No. of species in group 2 INTEGER N_SPCL_RKS ! No. of special rate constants INTEGER N_ACTSP ! No. of species in mechanism (non-ss spec) INTEGER NCELL ! cell number in EBI Block c..Control flags LOGICAL L_AE_VRSN ! Flag for aerosol version of mech LOGICAL L_AQ_VRSN ! Flag for aqueous chemistry version of mech LOGICAL CALL_IRR ! Flag initializing for IRR and calling PA_IRR ! SWITCH for calling DEGRADE routine LOGICAL, SAVE :: CALL_DEG = .TRUE. c..Miscellaneous variables INTEGER N_EBI_IT ! No. of iterations for EBI INTEGER N_EBI_STEPS ! No. of time steps for EBI INTEGER N_INR_STEPS ! No. of inner time steps for EBI INTEGER PECOL_OFFSET ! Local Column Offset for processor INTEGER PEROW_OFFSET ! Local Column Offset for processor INTEGER, SAVE :: MODEL_SPECIES ! No. of species in CGRID REAL( 8 ) EBI_TMSTEP ! Time step for EBI loops (min) REAL( 8 ) CHEMSTEP ! Chemistry integration interval (min) c...Allocatable arrays INTEGER, ALLOCATABLE :: EBISP( : ) ! Index of EBI species INTEGER, ALLOCATABLE :: SSASP( : ) ! Index of ss species INTEGER, ALLOCATABLE :: ACTSP( : ) ! Index of active species INTEGER, ALLOCATABLE :: IOLD2NEW( :,: ) ! YC species map, used if NSPECIAL > 0 REAL( 8 ), ALLOCATABLE :: RKI( : ) ! Rate constants REAL( 8 ), ALLOCATABLE :: RKI_SAV( :, : ) ! Saved values of RKI for SS species calcs REAL( 8 ), ALLOCATABLE :: YC ( : ) ! Species concentrations REAL( 8 ), ALLOCATABLE :: YC0( : ) ! Species concentrations REAL( 8 ), ALLOCATABLE :: YCP( : ) ! Species concentrations REAL( 8 ), ALLOCATABLE :: SYC( :, : ) ! Species concentrations REAL, ALLOCATABLE :: FORWARD_CONV( : ) ! CGRID to CHEM Species conversion factor REAL, ALLOCATABLE :: REVERSE_CONV( : ) ! CHEM to CGRID Species conversion factor REAL( 8 ), ALLOCATABLE :: RXRAT( : ) ! Reaction rates REAL( 8 ), ALLOCATABLE :: RTOL( : ) ! Species tolerances REAL( 8 ), ALLOCATABLE :: YCCELL( : ) ! ALL Species in cgrid REAL( 8 ), ALLOCATABLE :: PROD( : ) ! Prod of species REAL( 8 ), ALLOCATABLE :: LOSS( : ) ! Loss of species REAL, ALLOCATABLE :: PRES( :, :, : ) ! pressure (Pa) REAL, ALLOCATABLE :: QV ( :, :, : ) ! water vapor (Kg/Kg air) REAL, ALLOCATABLE :: TA ( :, :, : ) ! temperature (K) REAL, ALLOCATABLE :: SEAICE ( :, :) ! fractional seaice cover, [-] REAL, ALLOCATABLE :: DENS( :, :, : ) ! mass density (Kg/m^3) REAL, ALLOCATABLE :: SEAWATER_ZONE ( :,: ) ! fractional area of OPEN+SURF LOGICAL, ALLOCATABLE :: LFLAGIRR ( :,:,: ) ! Conduct IRR for cell REAL( 8 ), ALLOCATABLE :: ATMPRES ( : ) ! Cell pressure, Atm ! REAL( 8 ), ALLOCATABLE :: PRESCELL( : ) ! Cell pressure, Pa REAL( 8 ), ALLOCATABLE :: H2O ( : ) ! Cell H2O mixing ratio (ppmV) REAL( 8 ), ALLOCATABLE :: TEMP ( : ) ! Cell Temperature REAL( 8 ), ALLOCATABLE :: DENSITY ( : ) ! Cell mass density (Kg/m3) REAL( 8 ), ALLOCATABLE :: HET ( :, : ) ! cell heterogeneous reaction rates REAL( 8 ), ALLOCATABLE :: RJIN ( :, : ) ! J-values for a cell REAL( 8 ), ALLOCATABLE :: SEAWATER ( : ) ! fractional area of OPEN+SURF for specific cell c..Species indices INTEGER, PARAMETER :: NO2 = 1 INTEGER, PARAMETER :: NO = 2 INTEGER, PARAMETER :: O3P = 3 INTEGER, PARAMETER :: O3 = 4 INTEGER, PARAMETER :: NO3 = 5 INTEGER, PARAMETER :: N2O5 = 6 INTEGER, PARAMETER :: HNO3 = 7 INTEGER, PARAMETER :: O1D = 8 INTEGER, PARAMETER :: OH = 9 INTEGER, PARAMETER :: HONO = 10 INTEGER, PARAMETER :: HO2 = 11 INTEGER, PARAMETER :: CO = 12 INTEGER, PARAMETER :: CO2 = 13 INTEGER, PARAMETER :: HNO4 = 14 INTEGER, PARAMETER :: HO2H = 15 INTEGER, PARAMETER :: SO2 = 16 INTEGER, PARAMETER :: SULF = 17 INTEGER, PARAMETER :: SULRXN = 18 INTEGER, PARAMETER :: MEO2 = 19 INTEGER, PARAMETER :: HCHO = 20 INTEGER, PARAMETER :: COOH = 21 INTEGER, PARAMETER :: MEOH = 22 INTEGER, PARAMETER :: RO2C = 23 INTEGER, PARAMETER :: RO2XC = 24 INTEGER, PARAMETER :: MECO3 = 25 INTEGER, PARAMETER :: PAN = 26 INTEGER, PARAMETER :: CCOOOH = 27 INTEGER, PARAMETER :: CCOOH = 28 INTEGER, PARAMETER :: RCO3 = 29 INTEGER, PARAMETER :: PAN2 = 30 INTEGER, PARAMETER :: xHO2 = 31 INTEGER, PARAMETER :: yROOH = 32 INTEGER, PARAMETER :: xCCHO = 33 INTEGER, PARAMETER :: RCOOOH = 34 INTEGER, PARAMETER :: RCOOH = 35 INTEGER, PARAMETER :: BZCO3 = 36 INTEGER, PARAMETER :: PBZN = 37 INTEGER, PARAMETER :: BZO = 38 INTEGER, PARAMETER :: MACO3 = 39 INTEGER, PARAMETER :: MAPAN = 40 INTEGER, PARAMETER :: TBUO = 41 INTEGER, PARAMETER :: RNO3 = 42 INTEGER, PARAMETER :: ACETONE = 43 INTEGER, PARAMETER :: NPHE = 44 INTEGER, PARAMETER :: CRES = 45 INTEGER, PARAMETER :: xOH = 46 INTEGER, PARAMETER :: xNO2 = 47 INTEGER, PARAMETER :: xMEO2 = 48 INTEGER, PARAMETER :: xMECO3 = 49 INTEGER, PARAMETER :: xRCO3 = 50 INTEGER, PARAMETER :: xMACO3 = 51 INTEGER, PARAMETER :: xTBUO = 52 INTEGER, PARAMETER :: xCO = 53 INTEGER, PARAMETER :: CCHO = 54 INTEGER, PARAMETER :: RCHO = 55 INTEGER, PARAMETER :: xHCHO = 56 INTEGER, PARAMETER :: MEK = 57 INTEGER, PARAMETER :: zRNO3 = 58 INTEGER, PARAMETER :: xRCHO = 59 INTEGER, PARAMETER :: HCOOH = 60 INTEGER, PARAMETER :: xMGLY = 61 INTEGER, PARAMETER :: xBACL = 62 INTEGER, PARAMETER :: ROOH = 63 INTEGER, PARAMETER :: xPROD2 = 64 INTEGER, PARAMETER :: R6OOH = 65 INTEGER, PARAMETER :: PRD2 = 66 INTEGER, PARAMETER :: yR6OOH = 67 INTEGER, PARAMETER :: RAOOH = 68 INTEGER, PARAMETER :: MGLY = 69 INTEGER, PARAMETER :: IPRD = 70 INTEGER, PARAMETER :: xGLY = 71 INTEGER, PARAMETER :: xMEK = 72 INTEGER, PARAMETER :: xAFG1 = 73 INTEGER, PARAMETER :: xAFG2 = 74 INTEGER, PARAMETER :: GLY = 75 INTEGER, PARAMETER :: AFG1 = 76 INTEGER, PARAMETER :: AFG2 = 77 INTEGER, PARAMETER :: HCOCO3 = 78 INTEGER, PARAMETER :: BACL = 79 INTEGER, PARAMETER :: BALD = 80 INTEGER, PARAMETER :: AFG3 = 81 INTEGER, PARAMETER :: xIPRD = 82 INTEGER, PARAMETER :: MACR = 83 INTEGER, PARAMETER :: MVK = 84 INTEGER, PARAMETER :: xHOCCHO = 85 INTEGER, PARAMETER :: xRNO3 = 86 INTEGER, PARAMETER :: HOCCHO = 87 INTEGER, PARAMETER :: xACETONE = 88 INTEGER, PARAMETER :: ACROLEIN = 89 INTEGER, PARAMETER :: xBALD = 90 INTEGER, PARAMETER :: xAFG3 = 91 INTEGER, PARAMETER :: xMACR = 92 INTEGER, PARAMETER :: xMVK = 93 INTEGER, PARAMETER :: xMTNO3 = 94 INTEGER, PARAMETER :: MTNO3 = 95 INTEGER, PARAMETER :: IMACO3 = 96 INTEGER, PARAMETER :: yRAOOH = 97 INTEGER, PARAMETER :: zMTNO3 = 98 INTEGER, PARAMETER :: xACROLEIN = 99 INTEGER, PARAMETER :: ETHENE = 100 INTEGER, PARAMETER :: PROPENE = 101 INTEGER, PARAMETER :: BUTADIENE13 = 102 INTEGER, PARAMETER :: ISOPRENE = 103 INTEGER, PARAMETER :: APIN = 104 INTEGER, PARAMETER :: TRPRXN = 105 INTEGER, PARAMETER :: ACETYLENE = 106 INTEGER, PARAMETER :: BENZENE = 107 INTEGER, PARAMETER :: BENZRO2 = 108 INTEGER, PARAMETER :: TOLUENE = 109 INTEGER, PARAMETER :: TOLRO2 = 110 INTEGER, PARAMETER :: MXYL = 111 INTEGER, PARAMETER :: XYLRO2 = 112 INTEGER, PARAMETER :: OXYL = 113 INTEGER, PARAMETER :: PXYL = 114 INTEGER, PARAMETER :: TMBENZ124 = 115 INTEGER, PARAMETER :: ETOH = 116 INTEGER, PARAMETER :: ALK1 = 117 INTEGER, PARAMETER :: ALK2 = 118 INTEGER, PARAMETER :: ALK3 = 119 INTEGER, PARAMETER :: ALK4 = 120 INTEGER, PARAMETER :: ALK5 = 121 INTEGER, PARAMETER :: SOAALK = 122 INTEGER, PARAMETER :: SVAVB2 = 123 INTEGER, PARAMETER :: SVAVB3 = 124 INTEGER, PARAMETER :: SVAVB4 = 125 INTEGER, PARAMETER :: OLE1 = 126 INTEGER, PARAMETER :: OLE2 = 127 INTEGER, PARAMETER :: ARO1 = 128 INTEGER, PARAMETER :: ARO2MN = 129 INTEGER, PARAMETER :: NAPHTHAL = 130 INTEGER, PARAMETER :: PAHRO2 = 131 INTEGER, PARAMETER :: TERP = 132 INTEGER, PARAMETER :: TERPNRO2 = 133 INTEGER, PARAMETER :: SESQ = 134 INTEGER, PARAMETER :: SESQRXN = 135 INTEGER, PARAMETER :: CL2 = 136 INTEGER, PARAMETER :: CL = 137 INTEGER, PARAMETER :: CLNO = 138 INTEGER, PARAMETER :: CLONO = 139 INTEGER, PARAMETER :: CLNO2 = 140 INTEGER, PARAMETER :: HCL = 141 INTEGER, PARAMETER :: CLO = 142 INTEGER, PARAMETER :: CLONO2 = 143 INTEGER, PARAMETER :: HOCL = 144 INTEGER, PARAMETER :: xCL = 145 INTEGER, PARAMETER :: xCLCCHO = 146 INTEGER, PARAMETER :: xCLACET = 147 INTEGER, PARAMETER :: CLCCHO = 148 INTEGER, PARAMETER :: CLACET = 149 INTEGER, PARAMETER :: CLCHO = 150 INTEGER, PARAMETER :: SVAVB1 = 151 INTEGER, PARAMETER :: HCHO_PRIMARY = 152 INTEGER, PARAMETER :: CCHO_PRIMARY = 153 INTEGER, PARAMETER :: ACRO_PRIMARY = 154 INTEGER, PARAMETER :: ISOPO2 = 155 INTEGER, PARAMETER :: ISOPRXN = 156 INTEGER, PARAMETER :: ISOPND = 157 INTEGER, PARAMETER :: ISOPNB = 158 INTEGER, PARAMETER :: HC5 = 159 INTEGER, PARAMETER :: DIBOO = 160 INTEGER, PARAMETER :: ISOPOOH = 161 INTEGER, PARAMETER :: HPALD = 162 INTEGER, PARAMETER :: HACET = 163 INTEGER, PARAMETER :: NISOPO2 = 164 INTEGER, PARAMETER :: NIT1 = 165 INTEGER, PARAMETER :: NISOPOOH = 166 INTEGER, PARAMETER :: HC5OO = 167 INTEGER, PARAMETER :: DHMOB = 168 INTEGER, PARAMETER :: ISOPNOOD = 169 INTEGER, PARAMETER :: PROPNN = 170 INTEGER, PARAMETER :: MVKN = 171 INTEGER, PARAMETER :: ETHLN = 172 INTEGER, PARAMETER :: RNO3I = 173 INTEGER, PARAMETER :: ISOPNOOB = 174 INTEGER, PARAMETER :: MACRN = 175 INTEGER, PARAMETER :: NIT1NO3OOA = 176 INTEGER, PARAMETER :: NIT1NO3OOB = 177 INTEGER, PARAMETER :: ISOPNN = 178 INTEGER, PARAMETER :: NIT1OHOO = 179 INTEGER, PARAMETER :: MVKOO = 180 INTEGER, PARAMETER :: MACROO = 181 INTEGER, PARAMETER :: PYRUACD = 182 INTEGER, PARAMETER :: IEPOX = 183 INTEGER, PARAMETER :: IEPOXOO = 184 INTEGER, PARAMETER :: IMPAA = 185 INTEGER, PARAMETER :: IMAPAN = 186 INTEGER, PARAMETER :: IMAE = 187 INTEGER, PARAMETER :: IHMML = 188 INTEGER, PARAMETER :: H2NO3PIJ = 189 INTEGER, PARAMETER :: H2NO3PK = 190 INTEGER, PARAMETER :: ACLI = 191 INTEGER, PARAMETER :: ACLJ = 192 INTEGER, PARAMETER :: ACLK = 193 INTEGER, PARAMETER :: IEPOXP = 194 INTEGER, PARAMETER :: IMAEP = 195 INTEGER, PARAMETER :: IHMMLP = 196 INTEGER, PARAMETER :: AIETETJ = 197 INTEGER, PARAMETER :: ASO4J = 198 INTEGER, PARAMETER :: AIEOSJ = 199 INTEGER, PARAMETER :: ADIMJ = 200 INTEGER, PARAMETER :: AIMGAJ = 201 INTEGER, PARAMETER :: AIMOSJ = 202 INTEGER, PARAMETER :: AISO1J = 203 INTEGER, PARAMETER :: AOLGBJ = 204 INTEGER, PARAMETER :: AISO2J = 205 INTEGER, PARAMETER :: ASQTJ = 206 INTEGER, PARAMETER :: AAVB2J = 207 INTEGER, PARAMETER :: AOLGAJ = 208 INTEGER, PARAMETER :: AAVB3J = 209 INTEGER, PARAMETER :: AAVB4J = 210 INTEGER, PARAMETER :: APOCI = 211 INTEGER, PARAMETER :: APNCOMI = 212 INTEGER, PARAMETER :: APOCJ = 213 INTEGER, PARAMETER :: APNCOMJ = 214 INTEGER, PARAMETER :: PCVOC = 215 INTEGER, PARAMETER :: PCSOARXN = 216 INTEGER, PARAMETER :: VLVPO1 = 217 INTEGER, PARAMETER :: VSVPO1 = 218 INTEGER, PARAMETER :: VSVPO2 = 219 INTEGER, PARAMETER :: VSVPO3 = 220 INTEGER, PARAMETER :: VIVPO1 = 221 INTEGER, PARAMETER :: VLVOO1 = 222 INTEGER, PARAMETER :: VLVOO2 = 223 INTEGER, PARAMETER :: VSVOO2 = 224 INTEGER, PARAMETER :: VSVOO3 = 225 INTEGER, PARAMETER :: VSVOO1 = 226 INTEGER, PARAMETER :: AMTNO3J = 227 INTEGER, PARAMETER :: AMTHYDJ = 228 INTEGER, PARAMETER :: AISOPNNJ = 229 INTEGER, PARAMETER :: AGLYJ = 230 END MODULE HRDATA ================================================ FILE: CCTM/src/gas/ebi_saprc07tic_ae7i_aq/hrdriver.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE CHEM( CGRID, JDATE, JTIME, TSTEP ) C********************************************************************** C C FUNCTION: Driver subroutine for Euler Backward Iterative solver C C PRECONDITIONS: For the SAPRC07TIC_AE7I_AQ mechanism C C KEY SUBROUTINES/FUNCTIONS CALLED: HRINIT, HRCALCKS, HRSOLVER C FIND_DEGRADED, INIT_DEGRADE, FINAL_DEGRADE C C REVISION HISTORY: Created by EBI solver program, Jun 8, 2022 C Based on the algorithm in "Test of Two Numerical C Schemes for Use in Atmospheric Transport-Chemistry C Models", O. Hertel, R. Berkowicz, J. Christensen, C and O. Hov, Atm Env., Vol. 27A, No. 16, 1993. C Original MEBI code developed by Ho-Chun Huang, C SUNY, Albany -- "On the performance of numerical C solvers for a chemistry submodel in three-dimensional C air quality models 1. Box model simulations", C H. Huang and J.S. Chang, JGR, Vol 106, No. D17, 2001. C This version replaces Huang and Chang use of numerical C solutions with analytical solutions derived in C Hertel et al. C 21 Jun 10 J.Young: convert for Namelist redesign C 11 May 11 D.Wong: incorporated twoway model implementation C 27 Sep 11 B.Hutzell: revised method for defining CALL_DEG variable C 18 Jul 14 B.Hutzell: revised: 1) to use the RXNS_DATA and RXNS_FUNCTION C modules instead of include files, 2) to enable C reactions between species types, 3) to calculate C heterogeneous rate constants via AEROSOL_CHEMISTRY C module, 4) to replace call to HRCALCKS with C subroutine in RXNS_FUNCTION module and 5) to change C how degrade routines are used, if present C 02 Dec 14 B.Hutzell: 1) added terrestrial data to conduct surface C dependent reactions and 2) modified the call CALC_RCONST C routine C 01 Feb 19 D.Wong: Implemented centralized I/O approach, removed all MY_N C clauses C********************************************************************** USE HGRD_DEFN ! horizontal domain specifications USE VGRD_DEFN ! vertical layer specifications USE CGRID_SPCS ! CGRID mechanism species USE UTILIO_DEFN ! IOAPI parameters and functions declarations USE RXNS_DATA USE AEROSOL_CHEMISTRY USE RXNS_FUNCTION #ifdef isam USE SA_IRR_DEFN USE SA_DEFN #endif USE HRDATA USE PHOT_MOD, Only: INIT_PHOT_SHARED, RJ ! photolysis rate, in-line module USE PA_DEFN, Only: LIRR ! Process Analysis control and data variable USE PA_IRR_CLT #ifndef isam USE DEGRADE_ROUTINES, ONLY : N_REACT, RXTANT_MAP, DEG_LAY, DEG_COL, DEG_ROW, & FIND_DEGRADED, INIT_DEGRADE, FINAL_DEGRADE #else USE DEGRADE_ROUTINES, ONLY : N_REACT, RXTANT_MAP, SA_DEGRADE_EXTRACT, & FIND_DEGRADED, INIT_DEGRADE, FINAL_DEGRADE, & SA_DEGRADE_UPLOAD, DEG_LAY, DEG_COL, DEG_ROW #endif USE CENTRALIZED_IO_MODULE, ONLY : INTERPOLATE_VAR, OCEAN, SZONE #ifdef sens USE DDM3D_CHEM Use DDM3D_DEFN, Only: DATENUM, STARTDATE, IPT, IDATE, HIGH, NP, NPMAX, CKTIME #endif IMPLICIT NONE C..Includes: INCLUDE SUBST_FILES_ID ! CMAQ files INCLUDE SUBST_CONST ! CMAQ constants INCLUDE SUBST_EMISPRM ! Emissions processing control parameters C..Arguments: REAL, POINTER :: CGRID( :,:,:,: ) ! Species concentrations INTEGER JDATE ! Current date (YYYYDDD) INTEGER JTIME ! Current time (HHMMSS) INTEGER TSTEP( 3 ) ! Time step vector (HHMMSS) C..Parameters: REAL( 8 ), PARAMETER :: DCONMIN = 1.0D-30 ! minimum species concentration allowed REAL, PARAMETER :: CONCMIN = 1.0E-30 ! minimum species concentration allowed REAL, PARAMETER :: MAOMV = 1.0E6 * MWAIR / MWWAT ! Mol Wt of air over Mol Wt of water times 1.0E6 C..External Functions: C..Saved Local Variables: CHARACTER( 16 ), SAVE :: PNAME = 'HRDRIVER' ! Program name INTEGER, SAVE :: ISTFL ! Unit no. of iteration stat output file LOGICAL, SAVE :: LFIRST = .TRUE. ! Flag for first call to this subroutine REAL( 8 ), SAVE :: PA2ATM ! Pascal to atm conv fac C..Scratch Local Variables: CHARACTER( 132 ) :: MSG ! Message text CHARACTER( 16 ) :: VNAME ! Name of I/O API data variable INTEGER C, E, L, R, S ! Loop indices INTEGER ISP ! array index INTEGER AVGEBI ! Average no. of EBI iterations INTEGER DELT_SEC ! EBI max time step in seconds INTEGER ESP ! Loop index for emissions species INTEGER ITMSTEP ! Chemistry integration interval (sec) INTEGER LEV ! Layer index INTEGER MIDDATE ! Date at time step midpoint INTEGER MIDTIME ! Time at time step midpoint INTEGER NPH ! Index for number of phot. rxns in PHOT INTEGER SPC ! Species loop index #ifdef hrstats INTEGER MNEBI ! Min no. of EBI iterations INTEGER MXEBI ! Max no. of EBI iterations #endif LOGICAL LSUNLIGHT ! Flag for sunlight REAL INV_DENS ! reciprocal of air mass density, m3/Kg #ifdef hrstats REAL SUMEBI ! Sum of EBI iterations #endif INTERFACE SUBROUTINE HRSOLVER( JDATE, JTIME, C, R, L ) INTEGER, INTENT( IN ) :: JDATE ! Current date (YYYYDDD) INTEGER, INTENT( IN ) :: JTIME ! Current time (HHMMSS) INTEGER, INTENT( IN ) :: C, R, L ! Cell col, row, lev END SUBROUTINE HRSOLVER SUBROUTINE HETCHEM_UPDATE_AERO( CGRID ) REAL, POINTER :: CGRID( :,:,:,: ) ! species concentration in cell END SUBROUTINE HETCHEM_UPDATE_AERO END INTERFACE C********************************************************************** IF( NUMB_MECH_SPC .EQ. 0 ) RETURN ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c On first call, call routines to set-up for EBI solver ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF( LFIRST ) THEN IF( MECHNAME .NE. 'SAPRC07TIC_AE7I_AQ' ) THEN MSG = 'This version of the EBI solver can only be used with' & // ' the SAPRC07TIC_AE7I_AQ chemical mechanism' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF #ifdef emis_chem EMISVD = .FALSE. #else EMISVD = .TRUE. #endif IF( INDEX( MECHNAME, 'AE' ) .NE. 0 ) THEN L_AE_VRSN = .TRUE. ELSE L_AE_VRSN = .FALSE. END IF IF( INDEX( MECHNAME, 'AQ' ) .NE. 0 ) THEN L_AQ_VRSN = .TRUE. ELSE L_AQ_VRSN = .FALSE. END IF IF( LIRR ) THEN CALL_IRR = .TRUE. ELSE CALL_IRR = .FALSE. END IF MODEL_SPECIES = NSPCSD ! WTH: find number of model species ! Determine whether DEGRADE rountines are needed. CALL FIND_DEGRADED( JDATE, JTIME, CALL_DEG ) IF( CALL_DEG )THEN WRITE(LOGDEV,*)'TX DEGRADE ROUTINES USED' WRITE(LOGDEV,*)'Mechanism contains degraded species' #ifdef verbose_gas ELSE WRITE(LOGDEV,*)'TX DEGRADE ROUTINES OMITTED' WRITE(LOGDEV,*)'MECHANISM does not include degraded species' #endif END IF CALL HRINIT ITMSTEP = TIME2SEC( TSTEP( 2 ) ) CHEMSTEP = REAL( ITMSTEP, 8 ) / 60.0D0 WRITE( LOGDEV, 92000 ) CHEMSTEP, DELTAT WRITE( LOGDEV, 92020 ) DO SPC = 1, NUMB_MECH_SPC WRITE( LOGDEV, 92040 ) CHEMISTRY_SPC( SPC ), RTOL( SPC ) END DO PA2ATM = REAL( 1.0 / STDATMPA, 8) c..If emissions processing requested stop IF( .NOT. EMISVD ) THEN ! assumes emis processing in gas chem MSG = 'ERROR: EBI solver not configured to '// & 'process emissions in chemistry' CALL M3EXIT( PNAME, JDATE, JTIME, MSG, XSTAT1 ) END IF ! End if doing emissions #ifdef hrstats ISTFL = JUNIT() OPEN( UNIT=ISTFL, FILE='iterstat.dat' ) WRITE( ISTFL, 94020 ) #endif C Define processor offsets PECOL_OFFSET = COLSD_PE( 1, MYPE+1 ) - 1 PEROW_OFFSET = ROWSD_PE( 1, MYPE+1 ) - 1 ALLOCATE( SEAWATER_ZONE( NCOLS, NROWS ) ) DO R = 1, NROWS DO C = 1, NCOLS SEAWATER_ZONE( C,R ) = OCEAN( C,R ) + SZONE( C,R ) END DO END DO ALLOCATE( DENS( NCOLS, NROWS, NLAYS ), PRES( NCOLS, NROWS, NLAYS ), & QV ( NCOLS, NROWS, NLAYS ), TA ( NCOLS, NROWS, NLAYS ), & SEAICE( NCOLS, NROWS ) ) C..Initialize shared photolysis data CALL INIT_PHOT_SHARED() C..Determine which cells need IRR ALLOCATE( LFLAGIRR ( NCOLS, NROWS, NLAYS ) ) CALL PA_IRR_CKCELLS ( LFLAGIRR ) #ifdef isam NUMB_ISAM_CELLS = 1.0D0 / ( NCOLS * NROWS * NLAYS ) CALL SA_IRR_INIT #endif #ifdef sens CALL INIT_DDM3D_CHEM() C For higher order sensitivities IF ( HIGH ) THEN DO RXN = 1, NRXNS IF( NREACT( RXN ) .EQ. 1 ) THEN ORDER1( RXN ) = .TRUE. ELSE ORDER1( RXN ) = .FALSE. END IF END DO END IF #endif LFIRST = .FALSE. END IF ! First time ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C Set date and time to center of time step, get necessary physical C data ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc MIDDATE = JDATE MIDTIME = JTIME ITMSTEP = TIME2SEC( TSTEP( 2 ) ) CHEMSTEP = REAL( ITMSTEP, 8 ) / 60.0D0 CALL NEXTIME( MIDDATE, MIDTIME, SEC2TIME( ITMSTEP / 2 ) ) C.. Compute number of time step loops and step size for EBI solver DELT_SEC = INT( DELTAT * 60.0D0 + 0.1D0 ) IF( DELT_SEC .GE. ITMSTEP ) THEN N_EBI_STEPS = 2 EBI_TMSTEP = 0.5D0 * CHEMSTEP ELSE IF( MOD( ITMSTEP, DELT_SEC ) .EQ. 0 ) THEN N_EBI_STEPS = ITMSTEP / DELT_SEC ELSE N_EBI_STEPS = ITMSTEP / DELT_SEC + 1 END IF EBI_TMSTEP = CHEMSTEP / REAL( N_EBI_STEPS, 8 ) END IF N_INR_STEPS = 1 C.. Get fractional seaice coverage from the METCRO2D file. CALL INTERPOLATE_VAR ('SEAICE', MIDDATE, MIDTIME, SEAICE) C.. Get ambient temperature in K CALL INTERPOLATE_VAR ('TA', MIDDATE, MIDTIME, TA) C.. Get specific humidity in Kg H2O / Kg air CALL INTERPOLATE_VAR ('QV', MIDDATE, MIDTIME, QV) ! Get ambient MASS DENSITY in Kg/m^3 CALL INTERPOLATE_VAR ('DENS', MIDDATE, MIDTIME, DENS) C.. Get pressure in Pascals CALL INTERPOLATE_VAR ('PRES', MIDDATE, MIDTIME, PRES) C.. Get Heteorogeneous rates and Update Aerosol Distribution Properties CALL HETCHEM_RATES( TA, PRES, QV, CGRID, DENS ) #ifdef sens DATENUM = 1 + JDATE - STARTDATE ! Set the date and hour counters used in sensitivity calls C For reaction rate sensitivities DO NP = 1, NPMAX IF ( IPT( NP ) .EQ. 5 ) THEN CALL CKTIME( JDATE,JTIME,NP,RXNFLAG(NP) ) ! Rxnflag set to true iff ipt=5 and time, date within bounds IF ( IDATE( NP, DATENUM ) .NE. 1 ) RXNFLAG( NP ) = .FALSE. ELSE RXNFLAG( NP ) = .FALSE. END IF END DO #endif sens ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Top of loop over cells ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc #ifdef hrstats MNEBI = 1000 MXEBI = 0 SUMEBI = 0.0 #endif NCELL = 1 DO L = 1, NLAYS DO R = 1, NROWS DO C = 1, NCOLS DEG_LAY = L DEG_ROW = R DEG_COL = C c..reset CALL_IRR based on cell's values CALL_IRR = LFLAGIRR( C,R,L ) c..Load ICs INV_DENS = 1.0 / DENS( C,R,L ) DO SPC = 1, NUMB_MECH_SPC S = CGRID_INDEX( SPC ) IF( CONVERT_CONC( SPC ) )THEN YC( SPC ) = REAL( MAX( CONCMIN, & INV_DENS*FORWARD_CONV( SPC )*CGRID( C,R,L,S )), 8 ) ELSE YC( SPC ) = REAL( MAX( CGRID( C,R,L,S ), CONCMIN), 8 ) END IF END DO IF(CALL_DEG)THEN ! INITIALIZE degradation routines YCCELL = 0.0D0 DO S = 1, MODEL_SPECIES YCCELL( S ) = REAL( CGRID(C,R,L,S), 8) END DO CALL INIT_DEGRADE(YCCELL,TA(C,R,L),DENS(C,R,L),PRES(C,R,L),QV(C,R,L),RJIN(NCELL,:), & JDATE, JTIME) #ifdef isam CALL SA_DEGRADE_EXTRACT( C,R,L,DENS(C,R,L) ) #endif END IF c..Set physical quantities TEMP( NCELL ) = REAL( TA( C,R,L ), 8) DENSITY( NCELL ) = REAL( DENS( C,R,L ), 8) ! PRESCELL( NCELL ) = REAL( PRES( C,R,L ), 8) ATMPRES( NCELL ) = PA2ATM * REAL( PRES( C,R,L ), 8) H2O( NCELL ) = REAL( MAX ( MAOMV * QV( C,R,L ), 0.0 ), 8) SEAWATER (NCELL) = MAX ( 0.0D0, ( REAL( SEAWATER_ZONE( C,R ) - SEAICE (C,R) ,8) ) ) c..Get rate constants LSUNLIGHT = .FALSE. FORALL( NPH = 1:NPHOTAB ) RJIN( NCELL,NPH ) = REAL( RJ( C,R,L,NPH ), 8) IF( MAXVAL(RJIN) .GT. 0.0D0 ) LSUNLIGHT = .TRUE. FORALL ( NPH = 1:NHETERO )HET( NCELL,NPH ) = REAL( KHETERO( NPH,C,R,L ), 8) CALL CALC_RCONST( TEMP, ATMPRES, H2O, RJIN, HET, LSUNLIGHT, SEAWATER, RKI_SAV, NCELL ) FORALL( NPH = 1:NRXNS )RKI( NPH ) = RKI_SAV( NCELL, NPH ) #ifdef isam #if defined(isam) || defined(verbose_isam) C...For diagnosing IRR calculations in log files IF( CHECK_ISAM )THEN WRITE_CELL = .FALSE. IF( C .EQ. MAX(1, NCOLS/2) .AND. R .EQ. MAX(1,NROWS/2) .AND. L .EQ. 1 )THEN WRITE_CELL = .TRUE. WRITE(LOGDEV,*)'WRITE_CELL = .TRUE.' ELSE WRITE_CELL = .FALSE. END IF END IF #endif CALL SA_IRR_EXTRACT( C, R, L, DENS( C,R,L ),YC ) #endif c..Call EBI solver N_EBI_IT = 0 CALL HRSOLVER( JDATE, JTIME, C, R, L ) #ifdef hrstats MXEBI = MAX( MXEBI, N_EBI_IT ) MNEBI = MIN( MNEBI, N_EBI_IT ) SUMEBI = SUMEBI + REAL( N_EBI_IT ) #endif c..Update concentration array DO SPC = 1, NUMB_MECH_SPC S = CGRID_INDEX( SPC ) IF( CONVERT_CONC( SPC ) )THEN CGRID( C,R,L,S ) = REAL( REVERSE_CONV( SPC ) * DENS( C,R,L ) & * MAX( YC( SPC ), DCONMIN), 4) ELSE CGRID( C,R,L,S ) = REAL( MAX( YC( SPC ), DCONMIN), 4) END IF END DO IF(CALL_DEG)THEN ! WTH: update based on degrade routines CALL FINAL_DEGRADE(YCCELL) UPDATE_DEGRADED: DO SPC = 1, N_REACT ISP = RXTANT_MAP( SPC ) IF( ISP .LE. 0 )CYCLE UPDATE_DEGRADED DO S = 1, NUMB_MECH_SPC IF( CGRID_INDEX( S ) .EQ. ISP )CYCLE UPDATE_DEGRADED END DO CGRID(C,R,L,ISP) = REAL( YCCELL(ISP), 4) END DO UPDATE_DEGRADED #ifdef isam CALL SA_DEGRADE_UPLOAD( C,R,L,DENS(C,R,L) ) #endif END IF #ifdef isam CALL SA_IRR_UPLOAD( C, R, L, DENS( C,R,L ), YC ) #endif c..update irrout arrays if needed IF ( LFLAGIRR( C,R,L ) )CALL PA_IRR_CELLENDF( C, R, L ) #ifdef sens DO RXN = 1, NRXNS SRK( RXN ) = RKI( RXN ) IF ( HIGH ) THEN IF ( ORDER1 (RXN ) ) THEN SRK2( RXN ) = 0.0 ELSE SRK2( RXN ) = RKI( RXN ) END IF END IF END DO CALL SOLVE_DDM3D_CHEM( C,R,L,CHEMSTEP ) #endif END DO END DO END DO ! Update Aerosol Surface Area CALL HETCHEM_UPDATE_AERO( CGRID ) #ifdef hrstats AVGEBI = SUMEBI / REAL( NCOLS * NROWS * NLAYS ) WRITE( ISTFL, 94040 ) JDATE, JTIME, MNEBI, AVGEBI, MXEBI #endif RETURN C*********************** FORMAT STATEMENTS **************************** 92000 FORMAT( / 10X, 'Euler Backward Iterative Parameters -' & / 10X, 'Chemistry Integration Time Interval (min):', F12.4, & / 10X, 'EBI maximum time step (min): ', F12.4 ) 92020 FORMAT( //10X, 'Species convergence tolerances:' ) 92040 FORMAT( 10X, A16, 2X, 1PE12.2 ) 92060 FORMAT( / 10X, 'Emissions Processing in Chemistry ...' & / 10X, 'Number of Emissions Layers: ', I3 & / 10X, 'out of total Number of Model Layers:', I3 ) 94020 FORMAT( 'DATE TIME ', 'MNEBI AVEBI MXEBI' ) 94040 FORMAT( I7, 1X, I6, 1X, 3( I5, 1X ) ) END ================================================ FILE: CCTM/src/gas/ebi_saprc07tic_ae7i_aq/hrg1.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE HRG1( DTC ) C********************************************************************** C C FUNCTION: To solve for the concentration of NO2, NO, O3, and O3P C algebraically. C C PRECONDITIONS: For the SAPRC07TIC_AE7I_AQ mechanism C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by EBI solver program, Jun 8, 2022 C C 18 Jul 14 B.Hutzell: revised to use real(8) variables C 01 Jun 18 B.Hutzell: replaced steady solution for O1D with backward Euler C approximation. To match conditions where the initial C concentration cannot be neglected. C********************************************************************** USE HRDATA IMPLICIT NONE C..INCLUDES: None C..ARGUMENTS: REAL( 8 ), INTENT( IN ) :: DTC ! Time step C..PARAMETERS: None C..EXTERNAL FUNCTIONS: NONE C..SAVED LOCAL VARIABLES: ! CHARACTER( 16 ), SAVE :: PNAME = 'HRG1' ! Prgram Name C..SCRATCH LOCAL VARIABLES: REAL( 8 ) :: O1D_S ! sum of O1D loss frequencies REAL( 8 ) :: O3P_S ! stoich coeff for O3P from O1D REAL( 8 ) :: R1_2 ! production term for NO from NO2 REAL( 8 ) :: R2_1 ! production term for NO2 from NO REAL( 8 ) :: P1, P2, P3, P12 ! production terms for NO, NO2, O3, & O3P REAL( 8 ) :: L1, L2, L3, L12 ! loss terms for NO, NO2, O3, O3P REAL( 8 ) :: L1_INV, L2_INV, & L3_INV, L12_INV ! inverse of loss terms REAL( 8 ) :: T1, T2, T3, T4, T5 ! intermerdiate terms REAL( 8 ) :: F1, F2, F3 ! intermerdiate terms REAL( 8 ) :: A, B, C ! coefficients for quadratic equation REAL( 8 ) :: Q, XX, S1, S2 ! intermerdiate terms REAL( 8 ) :: RK1, RK2, RK3 ! rate constants REAL( 8 ) :: PO3 ! temp variable for O3 C********************************************************************** cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c O1D Section c 1) sum of the rate constants for all O1D loss reactions c 2) get fractional yield of O3P from O1D loss cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc O1D_S = RKI( 20 ) ! O1D=0.2000D+01*OH & + RKI( 21 ) ! O1D=O3P O3P_S = RKI( 21 ) ! O1D=O3P O3P_S = O3P_S / O1D_S cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c NO Section c R1_2 = production of NO from NO2 ( rates of form k[NO2][x] ) c except NO2+NO3=NO+NO2 (it is treated as if it were NO3=NO ) c P1 = remaining NO production terms c L1 = loss of NO (except rxns producing NO2 - they are in R2_1) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc R1_2 = RKI( 1 ) ! NO2=NO+O3P & + RKI( 5 ) * YC ( O3P ) ! NO2+O3P=NO R1_2 = R1_2 * DTC P1 = RXRAT( 15 ) ! NO2+NO3=NO+NO2 & + RXRAT( 16 ) ! NO3=NO & + RXRAT( 23 ) ! HONO=NO+OH & + RXRAT( 589 ) ! CLNO=NO+CL P1 = YC0( NO ) + P1 * DTC L1 = RKI( 22 ) * YC ( OH ) ! NO+OH=HONO & + RKI( 57 ) * YC ( RO2XC ) ! NO+RO2XC= & + 1.7300D-01 * RKI( 571 ) * YC ( TERPNRO2 ) ! NO+TERPNRO2=... & + RKI( 588 ) * YC ( CL ) ! NO+CL=CLNO & + 1.1700D-01 * RKI( 710 ) * YC ( ISOPO2 ) ! NO+ISOPO2=... & + 6.0000D-02 * RKI( 757 ) * YC ( NIT1NO3OOB ) ! NO+NIT1NO3OOB=... & + 6.6000D-02 * RKI( 764 ) * YC ( NIT1OHOO ) ! NO+NIT1OHOO=... & + 1.1000D-01 * RKI( 775 ) * YC ( MVKOO ) ! NO+MVKOO=0.6250D+... & + 1.5000D-01 * RKI( 780 ) * YC ( MACROO ) ! NO+MACROO=... L1 = 1.0D0 + L1 * DTC cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c NO2 Section c R2_1 = production of NO2 from NO ( rates of form k[NO][x] ) c a) NO+O3=NO2 not included c b) NO+NO3=2NO2 ( 1/2 of NO2 formation rate included ) c c) NO3+NO2=NO+NO2 is not included for NO2 c P2 = remaining NO2 production terms c a) NO+O3=NO2 not included c b) NO+NO3=2NO2 (1/2 of NO2 formation rate included ) c L2 = loss of NO2 (except rxns producing NO2 - they are in R1_2) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc R2_1 = RKI( 4 ) * YC ( O3P ) ! NO+O3P=NO2 & + RKI( 9 ) * YC ( NO3 ) ! NO+NO3=0.2000D+... & + 2.0000D+00 * RKI( 10 ) * YC ( NO ) ! NO+NO=0.2000D+01*NO2 & + RKI( 31 ) * YC ( HO2 ) ! NO+HO2=NO2+OH & + RKI( 46 ) * YC ( MEO2 ) ! NO+MEO2=NO2+HCHO+HO2 & + RKI( 52 ) * YC ( RO2C ) ! NO+RO2C=NO2 & + RKI( 66 ) * YC ( MECO3 ) ! NO+MECO3=NO2+CO2+... & + RKI( 76 ) * YC ( RCO3 ) ! NO+RCO3=NO2+RO2C+... & + RKI( 87 ) * YC ( BZCO3 ) ! NO+BZCO3=NO2+CO2+... & + RKI( 268 ) * YC ( HCOCO3 ) ! NO+HCOCO3=NO2+CO+... & + 8.2700D-01 * RKI( 571 ) * YC ( TERPNRO2 ) ! NO+TERPNRO2=... & + RKI( 598 ) * YC ( CLO ) ! NO+CLO=NO2+CL & + 8.8300D-01 * RKI( 710 ) * YC ( ISOPO2 ) ! NO+ISOPO2=... & + RKI( 721 ) * YC ( NISOPO2 ) ! NO+NISOPO2=... & + RKI( 728 ) * YC ( HC5OO ) ! NO+HC5OO=NO2+... & + RKI( 735 ) * YC ( ISOPNOOD ) ! NO+ISOPNOOD=... & + RKI( 742 ) * YC ( ISOPNOOB ) ! NO+ISOPNOOB=... & + RKI( 750 ) * YC ( NIT1NO3OOA ) ! NO+NIT1NO3OOA=... & + 9.4000D-01 * RKI( 757 ) * YC ( NIT1NO3OOB ) ! NO+NIT1NO3OOB=... & + 9.3400D-01 * RKI( 764 ) * YC ( NIT1OHOO ) ! NO+NIT1OHOO=... & + RKI( 769 ) * YC ( DIBOO ) ! NO+DIBOO=NO2+HO2+... & + 8.9000D-01 * RKI( 775 ) * YC ( MVKOO ) ! NO+MVKOO=0.8900D+... & + 8.5000D-01 * RKI( 780 ) * YC ( MACROO ) ! NO+MACROO=... & + RKI( 785 ) * YC ( MACO3 ) ! NO+MACO3=NO2+CO+... & + RKI( 815 ) * YC ( IEPOXOO ) ! NO+IEPOXOO=NO2+... & + RKI( 827 ) * YC ( IMACO3 ) ! NO+IMACO3=NO2+CO+... R2_1 = R2_1 * DTC P2 = RXRAT( 9 ) ! NO+NO3=0.2000D+01*NO2 & + RXRAT( 12 ) ! N2O5=NO2+NO3 & + RXRAT( 17 ) ! NO3=NO2+O3P & + RXRAT( 24 ) ! OH+HONO=NO2 & + RXRAT( 26 ) ! OH+NO3=NO2+HO2 & + RXRAT( 28 ) ! HNO3=NO2+OH & + RXRAT( 33 ) ! HNO4=NO2+HO2 & + 6.1000D-01 * RXRAT( 34 ) ! HNO4=0.6100D+00*NO2+... & + RXRAT( 35 ) ! HNO4+OH=NO2 & + 8.0000D-01 * RXRAT( 39 ) ! NO3+HO2=0.8000D+... & + 2.0000D+00 * RXRAT( 40 ) ! NO3+NO3=0.2000D+01*NO2 & + RXRAT( 49 ) ! MEO2+NO3=NO2+HO2+HCHO & + RXRAT( 54 ) ! RO2C+NO3=NO2 & + RXRAT( 59 ) ! RO2XC+NO3=NO2 & + RXRAT( 64 ) ! PAN=NO2+MECO3 & + 6.0000D-01 * RXRAT( 65 ) ! PAN=0.6000D+00*NO2+... & + RXRAT( 68 ) ! MECO3+NO3=NO2+CO2+MEO2 & + RXRAT( 74 ) ! PAN2=NO2+RCO3 & + 6.0000D-01 * RXRAT( 75 ) ! PAN2=0.6000D+00*NO2+... & + RXRAT( 78 ) ! RCO3+NO3=NO2+RO2C+... & + RXRAT( 85 ) ! PBZN=NO2+BZCO3 & + 6.0000D-01 * RXRAT( 86 ) ! PBZN=0.6000D+00*NO2+... & + RXRAT( 89 ) ! BZCO3+NO3=NO2+CO2+BZO+... & + RXRAT( 97 ) ! MAPAN=NO2+MACO3 & + 6.0000D-01 * RXRAT( 98 ) ! MAPAN=0.6000D+00*NO2+... & + RXRAT( 124 ) ! NO+xNO2=NO2+NO & + RXRAT( 126 ) ! xNO2+NO3=NO2+NO3 & + 5.0000D-01 * RXRAT( 127 ) ! xNO2+MEO2=0.5000D+... & + 5.0000D-01 * RXRAT( 128 ) ! xNO2+RO2C=0.5000D+... & + 5.0000D-01 * RXRAT( 129 ) ! xNO2+RO2XC=0.5000D+... & + RXRAT( 130 ) ! xNO2+MECO3=NO2+MECO3 & + RXRAT( 131 ) ! xNO2+RCO3=NO2+RCO3 & + RXRAT( 132 ) ! xNO2+BZCO3=NO2+BZCO3 & + RXRAT( 133 ) ! xNO2+MACO3=NO2+MACO3 & + 1.9000D-02 * RXRAT( 255 ) ! RNO3+OH=0.1900D-... & + RXRAT( 256 ) ! RNO3=NO2+0.5540D+... & + 1.5310D+00 * RXRAT( 573 ) ! TERPNRO2+NO3=0.1531D+... & + 2.6600D-01 * RXRAT( 574 ) ! TERPNRO2+MEO2=0.2660D+... & + 2.6600D-01 * RXRAT( 575 ) ! TERPNRO2+RO2C=0.2660D+... & + 2.6600D-01 * RXRAT( 576 ) ! TERPNRO2+RO2XC=... & + 5.3100D-01 * RXRAT( 577 ) ! TERPNRO2+MECO3=... & + 5.3100D-01 * RXRAT( 578 ) ! TERPNRO2+RCO3=0.5310D+... & + 5.3100D-01 * RXRAT( 579 ) ! TERPNRO2+BZCO3=... & + 5.3100D-01 * RXRAT( 580 ) ! TERPNRO2+MACO3=... & + 5.3100D-01 * RXRAT( 581 ) ! TERPNRO2+IMACO3=... & + RXRAT( 592 ) ! CLONO=NO2+CL & + RXRAT( 593 ) ! CLNO2=NO2+CL & + RXRAT( 597 ) ! CL+NO3=NO2+CLO & + RXRAT( 600 ) ! CLONO2=NO2+CLO & + RXRAT( 602 ) ! CLONO2=NO2+CLO & + 3.8000D-02 * RXRAT( 615 ) ! RNO3+CL=0.3800D-... & + 1.3000D+00 * RXRAT( 720 ) ! NISOPO2+NO3=0.1300D+... & + 3.0000D-01 * RXRAT( 721 ) ! NO+NISOPO2=0.1300D+... & + 1.5000D-01 * RXRAT( 723 ) ! NISOPO2+MEO2=0.1500D+... & + 1.5000D-01 * RXRAT( 724 ) ! NISOPO2+RO2C=0.1500D+... & + 3.0000D-01 * RXRAT( 725 ) ! NISOPO2+NISOPO2=... & + 3.0000D-01 * RXRAT( 726 ) ! NISOPO2+MECO3=0.3000D+... & + 3.4000D-01 * RXRAT( 735 ) ! NO+ISOPNOOD=0.1340D+... & + 1.7000D-01 * RXRAT( 737 ) ! ISOPNOOD+MEO2=0.1700D+... & + 1.7000D-01 * RXRAT( 738 ) ! ISOPNOOD+RO2C=0.1700D+... & + 3.4000D-01 * RXRAT( 739 ) ! ISOPNOOD+MECO3=... & + 3.6000D-01 * RXRAT( 740 ) ! ISOPND+O3=0.3600D+... & + 6.0000D-01 * RXRAT( 742 ) ! NO+ISOPNOOB=0.1600D+... & + 3.0000D-01 * RXRAT( 744 ) ! ISOPNOOB+MEO2=0.3000D+... & + 3.0000D-01 * RXRAT( 745 ) ! ISOPNOOB+RO2C=0.3000D+... & + 6.0000D-01 * RXRAT( 746 ) ! ISOPNOOB+MECO3=... & + 2.8000D-01 * RXRAT( 747 ) ! ISOPNB+O3=0.2800D+... & + RXRAT( 749 ) ! NIT1NO3OOA+NO3=NO2+... & + RXRAT( 756 ) ! NIT1NO3OOB+NO3=NO2+... & + 7.0000D-01 * RXRAT( 762 ) ! NIT1+O3=0.7000D+... & + RXRAT( 787 ) ! MACO3+NO3=NO2+CO+CO2+... & + RXRAT( 795 ) ! MAPAN+OH=NO2+CO+HACET & + RXRAT( 799 ) ! ETHLN+OH=NO2+CO2+HCHO & + RXRAT( 800 ) ! ETHLN=NO2+HCHO+HO2+CO & + RXRAT( 801 ) ! PROPNN+OH=NO2+MGLY & + RXRAT( 802 ) ! ISOPNN+OH=NO2+PROPNN & + RXRAT( 803 ) ! PROPNN=NO2+HCHO+MECO3 & + 2.0000D+00 * RXRAT( 804 ) ! ISOPNN=0.2000D+01*NO2+... & + RXRAT( 806 ) ! MVKN=NO2+MECO3+HOCCHO & + 8.5000D-01 * RXRAT( 807 ) ! MACRN+OH=0.8500D+... & + RXRAT( 808 ) ! MACRN=NO2+HACET+CO+HO2 & + RXRAT( 820 ) ! RNO3I+OH=NO2+HO2+PRD2 & + RXRAT( 829 ) ! IMACO3+NO3=NO2+CO+CO2+... & + RXRAT( 840 ) ! IMAPAN=NO2+IMACO3 & + 6.0000D-01 * RXRAT( 841 ) ! IMAPAN=0.6000D+00*NO2+... & + RXRAT( 848 ) ! xNO2+IMACO3=NO2+IMACO3 & + 3.8000D-02 * RXRAT( 881 ) ! MTNO3+CL=0.3800D-... & + 1.9000D-02 * RXRAT( 882 ) ! MTNO3+OH=0.1900D-... & + RXRAT( 883 ) ! MTNO3=NO2+0.5540D+... P2 = YC0( NO2 ) + P2 * DTC L2 = RKI( 6 ) * YC ( O3P ) ! NO2+O3P=NO3 & + RKI( 8 ) * YC ( O3 ) ! NO2+O3=NO3 & + RKI( 11 ) * YC ( NO3 ) ! NO2+NO3=N2O5 & + RKI( 25 ) * YC ( OH ) ! NO2+OH=HNO3 & + RKI( 32 ) * YC ( HO2 ) ! NO2+HO2=HNO4 & + RKI( 63 ) * YC ( MECO3 ) ! NO2+MECO3=PAN & + RKI( 73 ) * YC ( RCO3 ) ! NO2+RCO3=PAN2 & + RKI( 84 ) * YC ( BZCO3 ) ! NO2+BZCO3=PBZN & + RKI( 96 ) * YC ( MACO3 ) ! NO2+MACO3=MAPAN & + RKI( 99 ) * YC ( TBUO ) ! NO2+TBUO=RNO3 & + RKI( 101 ) * YC ( BZO ) ! NO2+BZO=NPHE & + RKI( 269 ) * YC ( HCOCO3 ) ! NO2+HCOCO3=HO2+... & + RKI( 590 ) * YC ( CL ) ! NO2+CL=CLONO & + RKI( 591 ) * YC ( CL ) ! NO2+CL=CLNO2 & + RKI( 599 ) * YC ( CLO ) ! NO2+CLO=CLONO2 & + RKI( 751 ) * YC ( NIT1NO3OOA ) ! NO2+NIT1NO3OOA=MAPAN & + RKI( 839 ) * YC ( IMACO3 ) ! NO2+IMACO3=IMAPAN & + RKI( 884 ) ! NO2=0.5000D+... L2 = 1.0D0 + L2 * DTC cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c O3 Section c P3 = production of O3 except O+O2=O3 c L3 = loss terms for O3 except NO+O3=NO2 cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc P3 = 1.5000D-01 * RXRAT( 67 ) ! MECO3+HO2=0.1500D+... & + 1.5000D-01 * RXRAT( 77 ) ! RCO3+HO2=0.1500D+... & + 1.5000D-01 * RXRAT( 88 ) ! BZCO3+HO2=0.1500D+... & + 1.5000D-01 * RXRAT( 270 ) ! HCOCO3+HO2=0.1500D+... & + 2.5000D-01 * RXRAT( 752 ) ! NIT1NO3OOA+HO2=... & + 1.5000D-01 * RXRAT( 786 ) ! MACO3+HO2=0.1500D+... & + 2.5000D-01 * RXRAT( 828 ) ! IMACO3+HO2=0.2500D+... P3 = YC0( O3 ) + P3 * DTC L3 = RKI( 3 ) * YC ( O3P ) ! O3+O3P= & + RKI( 8 ) * YC ( NO2 ) ! O3+NO2=NO3 & + RKI( 18 ) ! O3=O1D & + RKI( 19 ) ! O3=O3P & + RKI( 30 ) * YC ( OH ) ! O3+OH=HO2 & + RKI( 36 ) * YC ( HO2 ) ! O3+HO2=OH & + RKI( 237 ) * YC ( AFG1 ) ! O3+AFG1=0.8260D+... & + RKI( 240 ) * YC ( AFG2 ) ! O3+AFG2=0.8260D+... & + RKI( 243 ) * YC ( AFG3 ) ! O3+AFG3=0.4710D+... & + RKI( 244 ) * YC ( MACR ) ! O3+MACR=0.2080D+... & + RKI( 246 ) * YC ( MVK ) ! O3+MVK=0.1640D+... & + RKI( 250 ) * YC ( IPRD ) ! O3+IPRD=0.2850D+... & + RKI( 260 ) * YC ( ACROLEIN ) ! O3+ACROLEIN=... & + RKI( 525 ) * YC ( ETHENE ) ! O3+ETHENE=... & + RKI( 529 ) * YC ( PROPENE ) ! O3+PROPENE=... & + RKI( 533 ) * YC ( BUTADIENE13 ) ! O3+BUTADIENE13=... & + RKI( 536 ) * YC ( ISOPRENE ) ! O3+ISOPRENE=... & + RKI( 539 ) * YC ( APIN ) ! O3+APIN=0.9000D-... & + RKI( 543 ) * YC ( ACETYLENE ) ! O3+ACETYLENE=... & + RKI( 558 ) * YC ( OLE1 ) ! O3+OLE1=0.9500D-... & + RKI( 562 ) * YC ( OLE2 ) ! O3+OLE2=0.9400D-... & + RKI( 569 ) * YC ( TERP ) ! O3+TERP=0.7800D-... & + RKI( 584 ) * YC ( SESQ ) ! O3+SESQ=0.7800D-... & + RKI( 596 ) * YC ( CL ) ! O3+CL=CLO & + RKI( 733 ) * YC ( HC5 ) ! O3+HC5=0.5000D+... & + RKI( 740 ) * YC ( ISOPND ) ! O3+ISOPND=... & + RKI( 747 ) * YC ( ISOPNB ) ! O3+ISOPNB=... & + RKI( 762 ) * YC ( NIT1 ) ! O3+NIT1=0.3000D+... & + RKI( 892 ) ! O3= L3 = 1.0D0 + L3 * DTC cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c O3P Section c P12 = production of O3P except NO2+hv=O3P (J1) c L12 = loss terms cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc P12 = RXRAT( 17 ) ! NO3=O3P+NO2 & + O3P_S * RXRAT( 18 ) ! O3=O1D & + RXRAT( 19 ) ! O3=O3P P12 = YC0( O3P ) + P12 * DTC L12 = RKI( 2 ) ! O3P=O3 & + RKI( 3 ) * YC ( O3 ) ! O3P+O3= & + RKI( 4 ) * YC ( NO ) ! O3P+NO=NO2 & + RKI( 5 ) * YC ( NO2 ) ! O3P+NO2=NO & + RKI( 6 ) * YC ( NO2 ) ! O3P+NO2=NO3 & + RKI( 245 ) * YC ( MACR ) ! O3P+MACR=RCHO & + RKI( 247 ) * YC ( MVK ) ! O3P+MVK=0.4500D+... & + RKI( 262 ) * YC ( ACROLEIN ) ! O3P+ACROLEIN=RCHO & + RKI( 527 ) * YC ( ETHENE ) ! O3P+ETHENE=0.8000D+... & + RKI( 531 ) * YC ( PROPENE ) ! O3P+PROPENE=0.4500D+... & + RKI( 535 ) * YC ( BUTADIENE13 ) ! O3P+BUTADIENE13=... & + RKI( 537 ) * YC ( ISOPRENE ) ! O3P+ISOPRENE=0.2500D+... & + RKI( 541 ) * YC ( APIN ) ! O3P+APIN=PRD2+TRPRXN & + RKI( 560 ) * YC ( OLE1 ) ! O3P+OLE1=0.4500D+... & + RKI( 564 ) * YC ( OLE2 ) ! O3P+OLE2=0.7900D-... & + RKI( 582 ) * YC ( TERP ) ! O3P+TERP=0.2370D+... & + RKI( 586 ) * YC ( SESQ ) ! O3P+SESQ=0.2370D+... L12 = 1.0D0 + L12 * DTC ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Solution section ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c..compute reciprocal of loss terms L1_INV = 1.0D0 / L1 L2_INV = 1.0D0 / L2 L3_INV = 1.0D0 / L3 L12_INV = 1.0D0 / L12 c..compute specific k*delta t terms RK1 = RKI( 1 ) * DTC ! J1 (NO2+hv=NO+O3P) RK2 = RKI( 2 ) * DTC ! J2 (O3P+O2=O3) RK3 = RKI( 7 ) * DTC ! k1_3 (NO+O3=NO2) c..compute terms that are used to calulate a,b & c T1 = RK1 * L2_INV ! J1 / ( 1.0 + Lno2 * dt ) T2 = R1_2 * L2_INV ! r1,2 / ( 1.0 + Lno2 * dt) T3 = R2_1 * L1_INV ! r2,1 / ( 1.0 + Lno * dt) T4 = RK2 * L12_INV ! J2 / ( 1.0 + Lo3p * dt ) T5 = T3 * P1 - T2 * P2 ! T3 * Pno - T2 * Pno2 F1 = 1.0D0 + T2 + T3 ! factor in calculating a & b F2 = T1 * T4 ! factor in calculating a & b F3 = L3 * L1 + RK3 * P1 ! (1 + Lo3 * dt) (1 + lno * dt ) ! + k1,3 * dt * Pno PO3 = P3 + P12 * T4 A = RK3 * ( F1 - F2 ) B = F1 * F3 + RK3 * ( F2 * ( P2 - P1 ) + PO3 + T5 ) C = RK3 * P1 * ( PO3 + P2 * F2 ) + F3 * T5 Q = -0.5D0 * ( B + SIGN( 1.0D0, B ) * SQRT( B * B - 4.0D0 * A * C ) ) XX = MAX( Q / A , C / Q ) ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Species solutions c [NO] = ( P1 + x ) / ( 1 + L1 ) c [NO2] = ( P2 - x ) / ( 1 + L2 ) c [O3 ] = ( P3 + Ko3p->O3 ) / (1 + K1,3 * [NO] + L3 ) c [O3P] = ( P12 + J1 * [NO2] ) / ( 1 + L12 ) c [O1D] = ( yc0(o1d) + Ko3->o1d * [O3] *dtc) / ( 1 + O1D_S*dtc ) ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc YCP( NO ) = MAX( 0.0D0, ( P1 + XX ) * L1_INV ) YCP( NO2 ) = MAX( 0.0D0, ( P2 - XX ) * L2_INV ) S1 = P12 + RK1 * YCP( NO2 ) S2 = T4 * S1 YCP( O3 ) = ( P3 + S2 ) / ( L3 + RK3 * YCP( NO ) ) YCP( O3P ) = S1 * L12_INV YCP( O1D ) = ( YC0( O1D ) + RKI( 18 ) * YCP( O3 ) * DTC ) & / ( 1.0D0 + O1D_S * DTC ) RETURN END ================================================ FILE: CCTM/src/gas/ebi_saprc07tic_ae7i_aq/hrg2.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE HRG2( DTC ) C********************************************************************** C C FUNCTION: To solve for the concentration of HO, HO2, HONO, and C HNO4 alebraically. C C PRECONDITIONS: For the SAPRC07TIC_AE7I_AQ mechanism C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by EBI solver program, Jun 8, 2022 C C 18 Jul 14 B.Hutzell: revised to use real(8) variables C********************************************************************** USE HRDATA IMPLICIT NONE C..INCLUDES: None C..ARGUMENTS: REAL( 8 ), INTENT( IN ) :: DTC ! Time step C..PARAMETERS: None C..EXTERNAL FUNCTIONS: NONE C..SAVED LOCAL VARIABLES: ! CHARACTER( 16 ), SAVE :: PNAME = 'HRG2' ! Program name C..SCRATCH LOCAL VARIABLES: REAL( 8 ) :: O1D_S ! sum of O1D loss frequencies REAL( 8 ) :: OH_S ! stoich coeff for OH from O1D+H2O or H2 REAL( 8 ) :: HO2_S ! stoich coeff for HO2 from O1D+H2 rxn REAL( 8 ) :: XOH_S ! stoich coeff for OH & HONO from NO2EX loss rxn REAL( 8 ) :: R4_19 ! production of OH from HONO REAL( 8 ) :: R19_4 ! production of HONO from OH REAL( 8 ) :: R4_5 ! production of OH from HO2 REAL( 8 ) :: R5_4 ! production of HO2 from OH REAL( 8 ) :: R5_21 ! production of HO2 from HNO4 REAL( 8 ) :: R21_5 ! production of HNO4 from HO2 REAL( 8 ) :: P4, P5, P19, P21 ! species production form other paths REAL( 8 ) :: L4, L5, L19, L21 ! species loss terms REAL( 8 ) :: A, B, C ! coeffs of quadratic eq. for HO2 REAL( 8 ) :: Q ! intermediate term REAL( 8 ) :: T1, T2, T3 ! intermediate terms REAL( 8 ) :: L21_INV ! reciprocal of HNO4 loss term C********************************************************************** c..stoichiometric coefficient for production of HOX from O3 via O1D O1D_S = RKI( 20 ) ! O1D=0.2000D+01*OH & + RKI( 21 ) ! O1D=O3P OH_S = 2.0000D+00 * RKI( 20 ) ! O1D=0.2000D+01*OH OH_S = OH_S / O1D_S c..Production of HO from HO2 (r4,5 terms ) R4_5 = RKI( 31 ) * YC ( NO ) ! HO2+NO=OH+NO2 & + RKI( 36 ) * YC ( O3 ) ! HO2+O3=OH & + 8.0000D-01 * RKI( 39 ) * YC ( NO3 ) ! HO2+NO3=0.8000D+... & + 4.4000D-01 * RKI( 67 ) * YC ( MECO3 ) ! HO2+MECO3=... & + 4.4000D-01 * RKI( 77 ) * YC ( RCO3 ) ! HO2+RCO3=0.4400D+... & + 4.4000D-01 * RKI( 88 ) * YC ( BZCO3 ) ! HO2+BZCO3=... & + 4.4000D-01 * RKI( 270 ) * YC ( HCOCO3 ) ! HO2+HCOCO3=... & + RKI( 595 ) * YC ( CL ) ! HO2+CL=OH+CLO & + 1.2000D-01 * RKI( 711 ) * YC ( ISOPO2 ) ! HO2+ISOPO2=... & + 4.4000D-01 * RKI( 786 ) * YC ( MACO3 ) ! HO2+MACO3=... & + 1.7500D-01 * RKI( 814 ) * YC ( IEPOXOO ) ! HO2+IEPOXOO=... R4_5 = R4_5 * DTC c..Production of HO from HONO (r4,19 terms ) R4_19 = RKI( 23 ) ! HONO=OH+NO R4_19 = R4_19 * DTC c..Remaining HO production P4 = OH_S * RXRAT( 18 ) ! O1D=0.2000D+01*OH & + RXRAT( 28 ) ! HNO3=OH+NO2 & + 3.9000D-01 * RXRAT( 34 ) ! HNO4=0.3900D+00*OH+0.6100D+... & + 2.0000D+00 * RXRAT( 41 ) ! HO2H=0.2000D+01*OH & + RXRAT( 114 ) ! xOH+NO=OH+NO & + RXRAT( 116 ) ! xOH+NO3=OH+NO3 & + 5.0000D-01 * RXRAT( 117 ) ! xOH+MEO2=0.5000D+00*OH+MEO2 & + 5.0000D-01 * RXRAT( 118 ) ! xOH+RO2C=0.5000D+00*OH+RO2C & + 5.0000D-01 * RXRAT( 119 ) ! xOH+RO2XC=0.5000D+00*OH+RO2XC & + RXRAT( 120 ) ! xOH+MECO3=OH+MECO3 & + RXRAT( 121 ) ! xOH+RCO3=OH+RCO3 & + RXRAT( 122 ) ! xOH+BZCO3=OH+BZCO3 & + RXRAT( 123 ) ! xOH+MACO3=OH+MACO3 & + RXRAT( 213 ) ! COOH=OH+HO2+HCHO & + RXRAT( 215 ) ! ROOH=OH+HO2+RCHO & + RXRAT( 217 ) ! R6OOH=OH+0.1420D+00*HO2+... & + RXRAT( 219 ) ! RAOOH=OH+HO2+0.5000D+... & + 8.2600D-01 * RXRAT( 237 ) ! AFG1+O3=0.8260D+00*OH+... & + 8.2600D-01 * RXRAT( 240 ) ! AFG2+O3=0.8260D+00*OH+... & + 4.7100D-01 * RXRAT( 243 ) ! AFG3+O3=0.4710D+00*OH+... & + 2.0800D-01 * RXRAT( 244 ) ! MACR+O3=0.2080D+00*OH+... & + 1.6400D-01 * RXRAT( 246 ) ! MVK+O3=0.1640D+00*OH+... & + 2.8500D-01 * RXRAT( 250 ) ! IPRD+O3=0.2850D+00*OH+... & + 3.3000D-01 * RXRAT( 260 ) ! ACROLEIN+O3=0.3300D+00*OH+... & + 1.7800D-01 * RXRAT( 263 ) ! ACROLEIN=0.1780D+00*OH+... & + RXRAT( 265 ) ! CCOOOH=OH+CO2+MEO2 & + RXRAT( 267 ) ! RCOOOH=OH+xCCHO+yROOH+CO2+xHO2 & + 1.6000D-01 * RXRAT( 525 ) ! ETHENE+O3=0.1600D+00*OH+... & + 3.5000D-01 * RXRAT( 529 ) ! PROPENE+O3=0.3500D+00*OH+... & + 8.0000D-02 * RXRAT( 533 ) ! BUTADIENE13+O3=0.8000D-... & + 2.6600D-01 * RXRAT( 536 ) ! ISOPRENE+O3=0.2660D+00*OH+... & + 7.2800D-01 * RXRAT( 539 ) ! APIN+O3=0.7280D+00*OH+... & + 5.0000D-01 * RXRAT( 543 ) ! ACETYLENE+O3=0.5000D+00*OH+... & + 1.2800D-01 * RXRAT( 558 ) ! OLE1+O3=0.1280D+00*OH+... & + 4.4300D-01 * RXRAT( 562 ) ! OLE2+O3=0.4430D+00*OH+... & + 4.9900D-01 * RXRAT( 569 ) ! TERP+O3=0.4990D+00*OH+... & + 4.9900D-01 * RXRAT( 584 ) ! SESQ+O3=0.4990D+00*OH+... & + RXRAT( 605 ) ! HOCL=OH+CL & + 4.1400D-01 * RXRAT( 621 ) ! ROOH+CL=0.4140D+00*OH+HCL+... & + 1.4500D-01 * RXRAT( 622 ) ! R6OOH+CL=0.1450D+00*OH+HCL+... & + 1.3900D-01 * RXRAT( 623 ) ! RAOOH+CL=0.1390D+00*OH+... & + RXRAT( 717 ) ! HPALD=OH+HO2+0.5000D+... & + 7.9000D-01 * RXRAT( 733 ) ! HC5+O3=0.7900D+00*OH+... & + 7.3000D-01 * RXRAT( 740 ) ! ISOPND+O3=0.7300D+00*OH+... & + 3.4000D-01 * RXRAT( 747 ) ! ISOPNB+O3=0.3400D+00*OH+... & + 8.5000D-01 * RXRAT( 762 ) ! NIT1+O3=0.8500D+00*OH+... & + 9.5000D-01 * RXRAT( 814 ) ! HO2+IEPOXOO=0.1125D+01*OH+... & + 1.2500D-01 * RXRAT( 815 ) ! IEPOXOO+NO=0.1250D+00*OH+... & + 6.3000D-02 * RXRAT( 816 ) ! IEPOXOO+MEO2=0.6300D-01*OH+... & + 6.3000D-02 * RXRAT( 817 ) ! IEPOXOO+RO2C=0.6300D-01*OH+... & + 1.2500D-01 * RXRAT( 818 ) ! IEPOXOO+MECO3=0.1250D+... & + RXRAT( 819 ) ! ISOPOOH=OH+0.9100D+00*HO2+... & + 3.3000D-01 * RXRAT( 825 ) ! MACR=0.3300D+00*OH+0.6700D+... & + RXRAT( 838 ) ! MACROO=OH+CO+HACET & + RXRAT( 849 ) ! xOH+IMACO3=OH+IMACO3 P4 = YC0( OH ) + P4 * DTC c..Production of HO2 from OH ( r5,4 terms ) R5_4 = RKI( 26 ) * YC ( NO3 ) ! OH+NO3=HO2+NO2 & + RKI( 29 ) * YC ( CO ) ! OH+CO=HO2+CO2 & + RKI( 30 ) * YC ( O3 ) ! OH+O3=HO2 & + RKI( 42 ) * YC ( HO2H ) ! OH+HO2H=HO2 & + RKI( 44 ) * YC ( SO2 ) ! OH+SO2=HO2+SULF+... & + RKI( 45 ) ! OH=HO2 & + RKI( 196 ) * YC ( HCHO ) ! OH+HCHO=HO2+CO & + RKI( 208 ) * YC ( MEOH ) ! OH+MEOH=HO2+HCHO & + RKI( 209 ) * YC ( HCOOH ) ! OH+HCOOH=HO2+CO2 & + 1.4800D-01 * RKI( 218 ) * YC ( RAOOH ) ! OH+RAOOH=0.1480D+... & + 7.0000D-01 * RKI( 222 ) * YC ( GLY ) ! OH+GLY=0.7000D+... & + 4.7200D-01 * RKI( 253 ) * YC ( PRD2 ) ! OH+PRD2=0.4720D+... & + 1.8900D-01 * RKI( 255 ) * YC ( RNO3 ) ! OH+RNO3=0.1890D+... & + 3.0000D-01 * RKI( 542 ) * YC ( ACETYLENE ) ! OH+ACETYLENE=... & + 5.7000D-01 * RKI( 544 ) * YC ( BENZENE ) ! OH+BENZENE=... & + 1.8100D-01 * RKI( 545 ) * YC ( TOLUENE ) ! OH+TOLUENE=... & + 1.5900D-01 * RKI( 546 ) * YC ( MXYL ) ! OH+MXYL=0.1590D+... & + 1.6100D-01 * RKI( 547 ) * YC ( OXYL ) ! OH+OXYL=0.1610D+... & + 1.5900D-01 * RKI( 548 ) * YC ( PXYL ) ! OH+PXYL=0.1590D+... & + 2.2000D-02 * RKI( 549 ) * YC ( TMBENZ124 ) ! OH+TMBENZ124=... & + 9.5000D-01 * RKI( 550 ) * YC ( ETOH ) ! OH+ETOH=0.9500D+... & + 1.2300D-01 * RKI( 565 ) * YC ( ARO1 ) ! OH+ARO1=0.1230D+... & + 7.7000D-02 * RKI( 566 ) * YC ( ARO2MN ) ! OH+ARO2MN=... & + 7.7000D-02 * RKI( 567 ) * YC ( NAPHTHAL ) ! OH+NAPHTHAL=... & + 7.5000D-01 * RKI( 796 ) * YC ( HOCCHO ) ! OH+HOCCHO=... & + 8.2500D-01 * RKI( 797 ) * YC ( HACET ) ! OH+HACET=0.8250D+... & + 5.0000D-01 * RKI( 809 ) * YC ( DHMOB ) ! OH+DHMOB=0.5000D+... & + RKI( 820 ) * YC ( RNO3I ) ! OH+RNO3I=HO2+NO2+... & + 1.9000D-01 * RKI( 877 ) * YC ( IMAPAN ) ! OH+IMAPAN=... & + 1.8900D-01 * RKI( 882 ) * YC ( MTNO3 ) ! OH+MTNO3=0.1890D+... R5_4 = R5_4 * DTC c..Production of HO2 from HNO4 (r5,21 term ) R5_21 = RKI( 33 ) ! HNO4=HO2+NO2 & + 6.1000D-01 * RKI( 34 ) ! HNO4=0.6100D+... R5_21 = R5_21 * DTC c..Remaining HO2 production terms P5 = RXRAT( 46 ) ! MEO2+NO=HO2+HCHO+NO2 & + RXRAT( 49 ) ! MEO2+NO3=HO2+HCHO+NO2 & + 2.0000D+00 * RXRAT( 51 ) ! MEO2+MEO2=0.2000D+01*HO2+... & + 5.0000D-01 * RXRAT( 55 ) ! RO2C+MEO2=0.5000D+00*HO2+... & + 5.0000D-01 * RXRAT( 60 ) ! RO2XC+MEO2=0.5000D+00*HO2+... & + 9.0000D-01 * RXRAT( 69 ) ! MECO3+MEO2=0.9000D+00*HO2+... & + RXRAT( 79 ) ! RCO3+MEO2=HO2+HCHO+RO2C+... & + RXRAT( 90 ) ! BZCO3+MEO2=HO2+HCHO+RO2C+... & + RXRAT( 104 ) ! xHO2+NO=HO2+NO & + RXRAT( 106 ) ! xHO2+NO3=HO2+NO3 & + 5.0000D-01 * RXRAT( 107 ) ! xHO2+MEO2=0.5000D+00*HO2+MEO2 & + 5.0000D-01 * RXRAT( 108 ) ! xHO2+RO2C=0.5000D+00*HO2+RO2C & + 5.0000D-01 * RXRAT( 109 ) ! xHO2+RO2XC=0.5000D+00*HO2+... & + RXRAT( 110 ) ! xHO2+MECO3=HO2+MECO3 & + RXRAT( 111 ) ! xHO2+RCO3=HO2+RCO3 & + RXRAT( 112 ) ! xHO2+BZCO3=HO2+BZCO3 & + RXRAT( 113 ) ! xHO2+MACO3=HO2+MACO3 & + 2.0000D+00 * RXRAT( 194 ) ! HCHO=0.2000D+01*HO2+CO & + RXRAT( 197 ) ! HCHO+NO3=HO2+HNO3+CO & + RXRAT( 199 ) ! CCHO=HO2+CO+MEO2 & + RXRAT( 202 ) ! RCHO=HO2+xHO2+yROOH+xCCHO+... & + RXRAT( 213 ) ! COOH=HO2+OH+HCHO & + RXRAT( 215 ) ! ROOH=HO2+OH+RCHO & + 1.4200D-01 * RXRAT( 217 ) ! R6OOH=0.1420D+00*HO2+OH+... & + RXRAT( 219 ) ! RAOOH=HO2+OH+0.5000D+... & + 2.0000D+00 * RXRAT( 220 ) ! GLY=0.2000D+01*HO2+0.2000D+... & + 7.0000D-01 * RXRAT( 223 ) ! GLY+NO3=0.7000D+00*HO2+... & + RXRAT( 224 ) ! MGLY=HO2+CO+MECO3 & + 5.2200D-01 * RXRAT( 237 ) ! AFG1+O3=0.5220D+00*HO2+... & + 1.0230D+00 * RXRAT( 238 ) ! AFG1=0.1023D+01*HO2+... & + 5.2200D-01 * RXRAT( 240 ) ! AFG2+O3=0.5220D+00*HO2+... & + 5.5400D-01 * RXRAT( 243 ) ! AFG3+O3=0.5540D+00*HO2+... & + 1.0800D-01 * RXRAT( 244 ) ! MACR+O3=0.1080D+00*HO2+... & + 6.4000D-02 * RXRAT( 246 ) ! MVK+O3=0.6400D-01*HO2+... & + 4.0000D-01 * RXRAT( 250 ) ! IPRD+O3=0.4000D+00*HO2+... & + 1.2330D+00 * RXRAT( 252 ) ! IPRD=0.1233D+01*HO2+... & + 3.4400D-01 * RXRAT( 256 ) ! RNO3=0.3440D+00*HO2+... & + 2.0000D+00 * RXRAT( 257 ) ! HOCCHO=0.2000D+01*HO2+CO+HCHO & + 8.3000D-01 * RXRAT( 260 ) ! ACROLEIN+O3=0.8300D+00*HO2+... & + 1.0660D+00 * RXRAT( 263 ) ! ACROLEIN=0.1066D+01*HO2+... & + RXRAT( 268 ) ! HCOCO3+NO=HO2+CO+CO2+NO2 & + RXRAT( 269 ) ! HCOCO3+NO2=HO2+CO+CO2+NO3 & + RXRAT( 484 ) ! zRNO3+NO3=HO2+PRD2+NO3 & + 5.0000D-01 * RXRAT( 485 ) ! zRNO3+MEO2=0.5000D+00*HO2+... & + 5.0000D-01 * RXRAT( 486 ) ! zRNO3+RO2C=0.5000D+00*HO2+... & + 5.0000D-01 * RXRAT( 487 ) ! zRNO3+RO2XC=0.5000D+00*HO2+... & + RXRAT( 488 ) ! zRNO3+MECO3=HO2+PRD2+MECO3 & + RXRAT( 489 ) ! zRNO3+RCO3=HO2+PRD2+RCO3 & + RXRAT( 490 ) ! zRNO3+BZCO3=HO2+PRD2+BZCO3 & + RXRAT( 491 ) ! zRNO3+MACO3=HO2+PRD2+MACO3 & + RXRAT( 494 ) ! zMTNO3+NO3=HO2+PRD2+NO3 & + 5.0000D-01 * RXRAT( 495 ) ! zMTNO3+MEO2=0.5000D+00*HO2+... & + 5.0000D-01 * RXRAT( 496 ) ! zMTNO3+RO2C=0.5000D+00*HO2+... & + 5.0000D-01 * RXRAT( 497 ) ! zMTNO3+RO2XC=0.5000D+... & + RXRAT( 498 ) ! zMTNO3+MECO3=HO2+PRD2+MECO3 & + RXRAT( 499 ) ! zMTNO3+RCO3=HO2+PRD2+RCO3 & + RXRAT( 500 ) ! zMTNO3+BZCO3=HO2+PRD2+BZCO3 & + RXRAT( 501 ) ! zMTNO3+MACO3=HO2+PRD2+MACO3 & + RXRAT( 502 ) ! zMTNO3+IMACO3=HO2+PRD2+IMACO3 & + 1.6000D-01 * RXRAT( 525 ) ! ETHENE+O3=0.1600D+00*HO2+... & + 8.0000D-01 * RXRAT( 527 ) ! ETHENE+O3P=0.8000D+00*HO2+... & + 1.6500D-01 * RXRAT( 529 ) ! PROPENE+O3=0.1650D+00*HO2+... & + 8.0000D-02 * RXRAT( 533 ) ! BUTADIENE13+O3=0.8000D-... & + 2.5000D-01 * RXRAT( 535 ) ! BUTADIENE13+O3P=0.2500D+... & + 6.6000D-02 * RXRAT( 536 ) ! ISOPRENE+O3=0.6600D-01*HO2+... & + 9.0000D-03 * RXRAT( 539 ) ! APIN+O3=0.9000D-02*HO2+... & + 1.5000D+00 * RXRAT( 543 ) ! ACETYLENE+O3=0.1500D+... & + 9.5000D-02 * RXRAT( 558 ) ! OLE1+O3=0.9500D-01*HO2+... & + 9.4000D-02 * RXRAT( 562 ) ! OLE2+O3=0.9400D-01*HO2+... & + 7.8000D-02 * RXRAT( 569 ) ! TERP+O3=0.7800D-01*HO2+... & + 2.2700D-01 * RXRAT( 571 ) ! TERPNRO2+NO=0.2270D+00*HO2+... & + 4.2000D-01 * RXRAT( 573 ) ! TERPNRO2+NO3=0.4200D+... & + 7.1000D-01 * RXRAT( 574 ) ! TERPNRO2+MEO2=0.7100D+... & + 2.1000D-01 * RXRAT( 575 ) ! TERPNRO2+RO2C=0.2100D+... & + 2.1000D-01 * RXRAT( 576 ) ! TERPNRO2+RO2XC=0.2100D+... & + 4.2000D-01 * RXRAT( 577 ) ! TERPNRO2+MECO3=0.4200D+... & + 4.2000D-01 * RXRAT( 578 ) ! TERPNRO2+RCO3=0.4200D+... & + 4.2000D-01 * RXRAT( 579 ) ! TERPNRO2+BZCO3=0.4200D+... & + 4.2000D-01 * RXRAT( 580 ) ! TERPNRO2+MACO3=0.4200D+... & + 4.2000D-01 * RXRAT( 581 ) ! TERPNRO2+IMACO3=0.4200D+... & + 7.8000D-02 * RXRAT( 584 ) ! SESQ+O3=0.7800D-01*HO2+... & + RXRAT( 608 ) ! CL=HO2+HCL & + RXRAT( 609 ) ! HCHO+CL=HO2+HCL+CO & + RXRAT( 611 ) ! MEOH+CL=HO2+HCHO+HCL & + 5.5000D-02 * RXRAT( 615 ) ! RNO3+CL=0.5500D-01*HO2+... & + 3.1400D-01 * RXRAT( 616 ) ! PRD2+CL=0.3140D+00*HO2+HCL+... & + 6.3000D-01 * RXRAT( 617 ) ! GLY+CL=0.6300D+00*HO2+HCL+... & + 1.4800D-01 * RXRAT( 623 ) ! RAOOH+CL=0.1480D+00*HO2+... & + 8.4000D-02 * RXRAT( 626 ) ! IPRD+CL=0.8400D-01*HO2+... & + RXRAT( 627 ) ! CLCCHO=HO2+CO+RO2C+xCL+... & + RXRAT( 667 ) ! ACETYLENE+CL=HO2+CO & + 6.8800D-01 * RXRAT( 673 ) ! ETOH+CL=0.6880D+00*HO2+HCL+... & + 8.0300D-01 * RXRAT( 710 ) ! ISOPO2+NO=0.8030D+00*HO2+... & + 9.5000D-01 * RXRAT( 712 ) ! ISOPO2+MEO2=0.9500D+00*HO2+... & + 4.5000D-01 * RXRAT( 713 ) ! ISOPO2+RO2C=0.4500D+00*HO2+... & + 9.1000D-01 * RXRAT( 714 ) ! ISOPO2+ISOPO2=0.9100D+... & + 9.1000D-01 * RXRAT( 715 ) ! ISOPO2+MECO3=0.9100D+... & + RXRAT( 716 ) ! ISOPO2=HO2+HPALD & + RXRAT( 717 ) ! HPALD=HO2+OH+0.5000D+... & + 8.0000D-01 * RXRAT( 720 ) ! NISOPO2+NO3=0.8000D+00*HO2+... & + 8.0000D-01 * RXRAT( 721 ) ! NISOPO2+NO=0.8000D+00*HO2+... & + 9.0000D-01 * RXRAT( 723 ) ! NISOPO2+MEO2=0.9000D+... & + 4.0000D-01 * RXRAT( 724 ) ! NISOPO2+RO2C=0.4000D+... & + 8.0000D-01 * RXRAT( 725 ) ! NISOPO2+NISOPO2=0.8000D+... & + 8.0000D-01 * RXRAT( 726 ) ! NISOPO2+MECO3=0.8000D+... & + RXRAT( 728 ) ! HC5OO+NO=HO2+0.2340D+... & + RXRAT( 730 ) ! HC5OO+MEO2=HO2+0.1170D+... & + 5.0000D-01 * RXRAT( 731 ) ! HC5OO+RO2C=0.5000D+00*HO2+... & + RXRAT( 732 ) ! HC5OO+MECO3=HO2+CO2+... & + 6.0000D-01 * RXRAT( 733 ) ! HC5+O3=0.6000D+00*HO2+... & + 3.5000D-01 * RXRAT( 735 ) ! ISOPNOOD+NO=0.3500D+00*HO2+... & + 6.7500D-01 * RXRAT( 737 ) ! ISOPNOOD+MEO2=0.6750D+... & + 1.7500D-01 * RXRAT( 738 ) ! ISOPNOOD+RO2C=0.1750D+... & + 3.5000D-01 * RXRAT( 739 ) ! ISOPNOOD+MECO3=0.3500D+... & + 3.9000D-01 * RXRAT( 740 ) ! ISOPND+O3=0.3900D+00*HO2+... & + 4.0000D-01 * RXRAT( 742 ) ! ISOPNOOB+NO=0.4000D+00*HO2+... & + 7.0000D-01 * RXRAT( 744 ) ! ISOPNOOB+MEO2=0.7000D+... & + 2.0000D-01 * RXRAT( 745 ) ! ISOPNOOB+RO2C=0.2000D+... & + 4.0000D-01 * RXRAT( 746 ) ! ISOPNOOB+MECO3=0.4000D+... & + 8.0000D-02 * RXRAT( 747 ) ! ISOPNB+O3=0.8000D-01*HO2+... & + RXRAT( 749 ) ! NIT1NO3OOA+NO3=HO2+PROPNN+... & + RXRAT( 750 ) ! NIT1NO3OOA+NO=HO2+PROPNN+... & + RXRAT( 753 ) ! NIT1NO3OOA+RO2C=HO2+CO+CO2+... & + 2.0000D+00 * RXRAT( 754 ) ! NIT1NO3OOA+MEO2=0.2000D+... & + RXRAT( 755 ) ! NIT1NO3OOA+MECO3=HO2+... & + 5.0000D-01 * RXRAT( 760 ) ! NIT1NO3OOB+MEO2=0.5000D+... & + 4.5000D-01 * RXRAT( 762 ) ! NIT1+O3=0.4500D+00*HO2+... & + 9.3400D-01 * RXRAT( 764 ) ! NIT1OHOO+NO=0.9340D+00*HO2+... & + 7.0000D-01 * RXRAT( 766 ) ! NIT1OHOO+RO2C=0.7000D+... & + 1.2000D+00 * RXRAT( 767 ) ! NIT1OHOO+MEO2=0.1200D+... & + RXRAT( 768 ) ! NIT1OHOO+MECO3=HO2+CO2+... & + RXRAT( 769 ) ! DIBOO+NO=HO2+NO2+0.5200D+... & + RXRAT( 771 ) ! DIBOO+MEO2=HO2+0.2600D+... & + 5.0000D-01 * RXRAT( 772 ) ! DIBOO+RO2C=0.5000D+00*HO2+... & + RXRAT( 773 ) ! DIBOO+MECO3=HO2+0.5200D+... & + 2.6500D-01 * RXRAT( 775 ) ! MVKOO+NO=0.2650D+00*HO2+... & + 6.5000D-01 * RXRAT( 777 ) ! MVKOO+MEO2=0.6500D+00*HO2+... & + 1.5000D-01 * RXRAT( 778 ) ! MVKOO+RO2C=0.1500D+00*HO2+... & + 3.0000D-01 * RXRAT( 779 ) ! MVKOO+MECO3=0.3000D+00*HO2+... & + 8.5000D-01 * RXRAT( 780 ) ! MACROO+NO=0.8500D+00*HO2+... & + RXRAT( 782 ) ! MACROO+MEO2=HO2+0.4240D+... & + 5.0000D-01 * RXRAT( 783 ) ! MACROO+RO2C=0.5000D+00*HO2+... & + RXRAT( 784 ) ! MACROO+MECO3=HO2+CO2+MEO2+... & + RXRAT( 788 ) ! MACO3+MEO2=HO2+0.2000D+... & + RXRAT( 798 ) ! HACET=HO2+MECO3+HCHO & + RXRAT( 800 ) ! ETHLN=HO2+HCHO+NO2+CO & + RXRAT( 808 ) ! MACRN=HO2+NO2+CO+HACET & + 8.2500D-01 * RXRAT( 815 ) ! IEPOXOO+NO=0.8250D+00*HO2+... & + 9.1300D-01 * RXRAT( 816 ) ! IEPOXOO+MEO2=0.9130D+... & + 4.1300D-01 * RXRAT( 817 ) ! IEPOXOO+RO2C=0.4130D+... & + 8.2500D-01 * RXRAT( 818 ) ! IEPOXOO+MECO3=0.8250D+... & + 9.1000D-01 * RXRAT( 819 ) ! ISOPOOH=0.9100D+00*HO2+OH+... & + 6.7000D-01 * RXRAT( 825 ) ! MACR=0.6700D+00*HO2+... & + RXRAT( 830 ) ! IMACO3+MEO2=HO2+0.2000D+... & + RXRAT( 850 ) ! xHO2+IMACO3=HO2+IMACO3 & + RXRAT( 853 ) ! zRNO3+IMACO3=HO2+PRD2+IMACO3 & + 5.5000D-02 * RXRAT( 881 ) ! MTNO3+CL=0.5500D-01*HO2+... & + 3.4400D-01 * RXRAT( 883 ) ! MTNO3=0.3440D+00*HO2+... P5 = YC0( HO2 ) + P5 * DTC c..Production of HONO from OH (r19,4 terms ) R19_4 = RKI( 22 ) * YC( NO ) * DTC ! OH+NO=HONO c..Remaining HONO production terms P19 = RXRAT( 231 ) ! NPHE=HONO & + 5.0000D-01 * RXRAT( 884 ) ! NO2=0.5000D+00*HONO+... P19 = YC0( HONO ) + P19 * DTC c..Production of HNO4 from HO2 (r21,5 term ) R21_5 = RKI( 32 ) * YCP( NO2 ) * DTC ! HO2+NO2=HNO4 c..Remaining HNO4 production terms P21 = YC0( HNO4 ) c..OH loss terms not in R5_4 & R19_4 L4 = RKI( 24 ) * YC ( HONO ) ! OH+HONO=NO2 & + RKI( 25 ) * YC ( NO2 ) ! OH+NO2=HNO3 & + RKI( 27 ) * YC ( HNO3 ) ! OH+HNO3=NO3 & + RKI( 35 ) * YC ( HNO4 ) ! OH+HNO4=NO2 & + RKI( 43 ) * YC ( HO2 ) ! OH+HO2= & + RKI( 198 ) * YC ( CCHO ) ! OH+CCHO=MECO3 & + RKI( 201 ) * YC ( RCHO ) ! OH+RCHO=0.9650D+... & + RKI( 204 ) * YC ( ACETONE ) ! OH+ACETONE=RO2C+... & + RKI( 206 ) * YC ( MEK ) ! OH+MEK=0.9670D+... & + RKI( 210 ) * YC ( CCOOH ) ! OH+CCOOH=0.5090D+... & + RKI( 211 ) * YC ( RCOOH ) ! OH+RCOOH=RO2C+... & + 7.0000D-01 * RKI( 212 ) * YC ( COOH ) ! OH+COOH=0.3000D+... & + 2.5600D-01 * RKI( 214 ) * YC ( ROOH ) ! OH+ROOH=0.7440D+... & + 1.6000D-01 * RKI( 216 ) * YC ( R6OOH ) ! OH+R6OOH=0.8400D+... & + 7.1300D-01 * RKI( 218 ) * YC ( RAOOH ) ! OH+RAOOH=0.1480D+... & + 3.0000D-01 * RKI( 222 ) * YC ( GLY ) ! OH+GLY=0.7000D+... & + RKI( 225 ) * YC ( MGLY ) ! OH+MGLY=CO+MECO3 & + RKI( 228 ) * YC ( CRES ) ! OH+CRES=0.2000D+... & + RKI( 230 ) * YC ( NPHE ) ! OH+NPHE=BZO & + RKI( 233 ) * YC ( BALD ) ! OH+BALD=BZCO3 & + RKI( 236 ) * YC ( AFG1 ) ! OH+AFG1=0.2170D+... & + RKI( 239 ) * YC ( AFG2 ) ! OH+AFG2=0.2170D+... & + RKI( 242 ) * YC ( AFG3 ) ! OH+AFG3=0.2060D+... & + RKI( 249 ) * YC ( IPRD ) ! OH+IPRD=0.2890D+... & + 5.2800D-01 * RKI( 253 ) * YC ( PRD2 ) ! OH+PRD2=0.4720D+... & + 8.1100D-01 * RKI( 255 ) * YC ( RNO3 ) ! OH+RNO3=0.1890D+... & + RKI( 259 ) * YC ( ACROLEIN ) ! OH+ACROLEIN=... & + RKI( 264 ) * YC ( CCOOOH ) ! OH+CCOOOH=... & + RKI( 266 ) * YC ( RCOOOH ) ! OH+RCOOOH=... & + RKI( 523 ) ! OH=MEO2 & + RKI( 524 ) * YC ( ETHENE ) ! OH+ETHENE=xHO2+... & + RKI( 528 ) * YC ( PROPENE ) ! OH+PROPENE=... & + RKI( 532 ) * YC ( BUTADIENE13 ) ! OH+BUTADIENE13=... & + RKI( 538 ) * YC ( APIN ) ! OH+APIN=0.7990D+... & + 3.1400D-01 * RKI( 544 ) * YC ( BENZENE ) ! OH+BENZENE=... & + 5.0700D-01 * RKI( 545 ) * YC ( TOLUENE ) ! OH+TOLUENE=... & + 6.0200D-01 * RKI( 546 ) * YC ( MXYL ) ! OH+MXYL=0.1590D+... & + 6.4100D-01 * RKI( 547 ) * YC ( OXYL ) ! OH+OXYL=0.1610D+... & + 5.6300D-01 * RKI( 548 ) * YC ( PXYL ) ! OH+PXYL=0.1590D+... & + 7.4800D-01 * RKI( 549 ) * YC ( TMBENZ124 ) ! OH+TMBENZ124=... & + 5.0000D-02 * RKI( 550 ) * YC ( ETOH ) ! OH+ETOH=0.9500D+... & + RKI( 551 ) * YC ( ALK1 ) ! OH+ALK1=xHO2+... & + RKI( 552 ) * YC ( ALK2 ) ! OH+ALK2=0.9650D+... & + RKI( 553 ) * YC ( ALK3 ) ! OH+ALK3=0.6950D+... & + RKI( 554 ) * YC ( ALK4 ) ! OH+ALK4=0.8300D+... & + RKI( 555 ) * YC ( ALK5 ) ! OH+ALK5=0.6470D+... & + RKI( 557 ) * YC ( OLE1 ) ! OH+OLE1=0.8710D+... & + RKI( 561 ) * YC ( OLE2 ) ! OH+OLE2=0.9120D+... & + 6.7500D-01 * RKI( 565 ) * YC ( ARO1 ) ! OH+ARO1=0.1230D+... & + 7.4500D-01 * RKI( 566 ) * YC ( ARO2MN ) ! OH+ARO2MN=... & + 7.4500D-01 * RKI( 567 ) * YC ( NAPHTHAL ) ! OH+NAPHTHAL=... & + RKI( 568 ) * YC ( TERP ) ! OH+TERP=0.7340D+... & + RKI( 583 ) * YC ( SESQ ) ! OH+SESQ=0.7340D+... & + RKI( 607 ) * YC ( HCL ) ! OH+HCL=CL & + RKI( 628 ) * YC ( CLCCHO ) ! OH+CLCCHO=RCO3 & + RKI( 709 ) * YC ( ISOPRENE ) ! OH+ISOPRENE=... & + RKI( 727 ) * YC ( HC5 ) ! OH+HC5=HC5OO & + RKI( 734 ) * YC ( ISOPND ) ! OH+ISOPND=ISOPNOOD & + RKI( 741 ) * YC ( ISOPNB ) ! OH+ISOPNB=ISOPNOOB & + RKI( 763 ) * YC ( NIT1 ) ! OH+NIT1=0.3450D+... & + RKI( 774 ) * YC ( MVK ) ! OH+MVK=MVKOO & + RKI( 795 ) * YC ( MAPAN ) ! OH+MAPAN=HACET+... & + 7.5000D-02 * RKI( 797 ) * YC ( HACET ) ! OH+HACET=0.8250D+... & + RKI( 799 ) * YC ( ETHLN ) ! OH+ETHLN=HCHO+... & + RKI( 801 ) * YC ( PROPNN ) ! OH+PROPNN=MGLY+NO2 & + RKI( 802 ) * YC ( ISOPNN ) ! OH+ISOPNN=PROPNN+NO2 & + RKI( 805 ) * YC ( MVKN ) ! OH+MVKN=0.6500D+... & + RKI( 807 ) * YC ( MACRN ) ! OH+MACRN=0.8000D-... & + 5.0000D-01 * RKI( 809 ) * YC ( DHMOB ) ! OH+DHMOB=0.5000D+... & + 3.8700D-01 * RKI( 812 ) * YC ( ISOPOOH ) ! OH+ISOPOOH=... & + RKI( 813 ) * YC ( IEPOX ) ! OH+IEPOX=IEPOXOO & + 3.0000D-01 * RKI( 822 ) * YC ( NISOPOOH ) ! OH+NISOPOOH=... & + RKI( 823 ) * YC ( MACR ) ! OH+MACR=0.5300D+... & + 8.1000D-01 * RKI( 877 ) * YC ( IMAPAN ) ! OH+IMAPAN=... & + RKI( 878 ) * YC ( IMAE ) ! OH+IMAE= & + RKI( 879 ) * YC ( IHMML ) ! OH+IHMML= & + RKI( 880 ) * YC ( IMPAA ) ! OH+IMPAA=0.8300D+... & + 8.1100D-01 * RKI( 882 ) * YC ( MTNO3 ) ! OH+MTNO3=0.1890D+... L4 = 1.0D0 + L4 * DTC + R5_4 + R19_4 c..HO2 loss terms not included in R4_5 & R21_5 (except for HO2+HO2 ) L5 = 2.0000D-01 * RKI( 39 ) * YC ( NO3 ) ! HO2+NO3=0.8000D+... & + RKI( 43 ) * YC ( OH ) ! HO2+OH= & + RKI( 47 ) * YC ( MEO2 ) ! HO2+MEO2=COOH & + RKI( 48 ) * YC ( MEO2 ) ! HO2+MEO2=HCHO & + RKI( 53 ) * YC ( RO2C ) ! HO2+RO2C= & + RKI( 58 ) * YC ( RO2XC ) ! HO2+RO2XC= & + 5.6000D-01 * RKI( 67 ) * YC ( MECO3 ) ! HO2+MECO3=... & + 5.6000D-01 * RKI( 77 ) * YC ( RCO3 ) ! HO2+RCO3=0.4400D+... & + 5.6000D-01 * RKI( 88 ) * YC ( BZCO3 ) ! HO2+BZCO3=... & + RKI( 102 ) * YC ( BZO ) ! HO2+BZO=CRES & + 1.2000D-01 * RKI( 270 ) * YC ( HCOCO3 ) ! HO2+HCOCO3=... & + RKI( 572 ) * YC ( TERPNRO2 ) ! HO2+TERPNRO2=MTNO3 & + RKI( 594 ) * YC ( CL ) ! HO2+CL=HCL & + RKI( 604 ) * YC ( CLO ) ! HO2+CLO=HOCL & + 7.6000D-01 * RKI( 711 ) * YC ( ISOPO2 ) ! HO2+ISOPO2=... & + RKI( 722 ) * YC ( NISOPO2 ) ! HO2+NISOPO2=NISOPOOH & + RKI( 729 ) * YC ( HC5OO ) ! HO2+HC5OO=R6OOH & + RKI( 736 ) * YC ( ISOPNOOD ) ! HO2+ISOPNOOD=RNO3I & + RKI( 743 ) * YC ( ISOPNOOB ) ! HO2+ISOPNOOB=RNO3I & + RKI( 752 ) * YC ( NIT1NO3OOA ) ! HO2+NIT1NO3OOA=... & + RKI( 758 ) * YC ( NIT1NO3OOB ) ! HO2+NIT1NO3OOB=RNO3I & + RKI( 765 ) * YC ( NIT1OHOO ) ! HO2+NIT1OHOO=R6OOH & + RKI( 770 ) * YC ( DIBOO ) ! HO2+DIBOO=R6OOH & + RKI( 776 ) * YC ( MVKOO ) ! HO2+MVKOO=ROOH & + RKI( 781 ) * YC ( MACROO ) ! HO2+MACROO=ROOH & + 5.6000D-01 * RKI( 786 ) * YC ( MACO3 ) ! HO2+MACO3=... & + RKI( 828 ) * YC ( IMACO3 ) ! HO2+IMACO3=... L5 = 1.0D0 + L5 * DTC + R4_5 + R21_5 c..HONO loss terms not included in R4_19 L19 = RKI( 24 ) * YC ( OH ) ! HONO+OH=NO2 L19 = 1.0D0 + L19 * DTC + R4_19 c..HNO4 loss terms not included in R5_21 L21 = 3.9000D-01 * RKI( 34 ) ! HNO4=0.6100D+... & + RKI( 35 ) * YC ( OH ) ! HNO4+OH=NO2 L21 = 1.0D0 + L21 * DTC + R5_21 ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Solution section ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c..compute terms used to calculate a,b & c L21_INV = 1.0D0 / L21 T1 = 1.0D0 / ( L4 * L19 - R4_19 * R19_4 ) T2 = R5_4 * T1 T3 = R5_21 * L21_INV c..solve quadratic equation for HO2 A = 2.0D0 * ( RKI( 37 ) + RKI( 38 ) ) * DTC B = L5 - T3 * R21_5 - T2 * R4_5 * L19 C = P5 + T3 * P21 + T2 * ( P4 * L19 + P19 * R4_19 ) Q = -0.5D0 * ( B + SIGN( 1.0D0, B ) * SQRT( B * B + 4.0D0 * A * C ) ) YCP( HO2 ) = MAX( Q / A , -C / Q ) c..compute remaining species concentrations YCP( OH ) = ( ( P4 + R4_5 * YCP( HO2 ) ) * L19 + R4_19 * P19 ) * T1 YCP( HNO4 ) = ( P21 + R21_5 * YCP( HO2 ) ) * L21_INV YCP( HONO ) = ( P19 + R19_4 * YCP( OH ) ) / L19 RETURN END ================================================ FILE: CCTM/src/gas/ebi_saprc07tic_ae7i_aq/hrg3.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE HRG3( DTC ) C********************************************************************** C C FUNCTION: To solve for the concentration of C2O3 and PAN C C PRECONDITIONS: For the SAPRC07TIC_AE7I_AQ mechanism C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by EBI solver program, Jun 8, 2022 C C 18 Jul 14 B.Hutzell: revised to use real(8) variables C********************************************************************** USE HRDATA IMPLICIT NONE C..INCLUDES: NONE C..ARGUMENTS: REAL( 8 ), INTENT( IN ) :: DTC ! Time step C..PARAMETERS: NONE C..EXTERNAL FUNCTIONS: NONE C..SAVED LOCAL VARIABLES: ! CHARACTER( 16 ), SAVE :: PNAME = 'HRG3' ! Program name C..SCRATCH LOCAL VARIABLES: REAL( 8 ) :: A, B, C, Q ! Quadratic equation terms REAL( 8 ) :: CMN ! Temp scalar REAL( 8 ) :: L8 ! Loss of CCO_O2 REAL( 8 ) :: L9 ! Loss of PAN REAL( 8 ) :: P8 ! Production of CCO_O2 REAL( 8 ) :: K8_8 ! Kmeco3+meco3 * delta t REAL( 8 ) :: R8_9 ! Kpan-->meco3 * delta t REAL( 8 ) :: R9_8 ! Kmeco3+no2-->pan * [NO2] * delta t C********************************************************************** c..Production of MECO3 (except from PAN ) P8 = 4.0000D-01 * RXRAT( 98 ) ! MAPAN=0.4000D+00*MECO3+... & + RXRAT( 144 ) ! xMECO3+NO=MECO3+NO & + RXRAT( 146 ) ! xMECO3+NO3=MECO3+NO3 & + 5.0000D-01 * RXRAT( 147 ) ! xMECO3+MEO2=0.5000D+... & + 5.0000D-01 * RXRAT( 148 ) ! xMECO3+RO2C=0.5000D+... & + 5.0000D-01 * RXRAT( 149 ) ! xMECO3+RO2XC=0.5000D+... & + RXRAT( 150 ) ! xMECO3+MECO3=0.2000D+01*MECO3 & + RXRAT( 151 ) ! xMECO3+RCO3=MECO3+RCO3 & + RXRAT( 152 ) ! xMECO3+BZCO3=MECO3+BZCO3 & + RXRAT( 153 ) ! xMECO3+MACO3=MECO3+MACO3 & + RXRAT( 198 ) ! CCHO+OH=MECO3 & + RXRAT( 200 ) ! CCHO+NO3=MECO3+HNO3 & + 6.2000D-01 * RXRAT( 205 ) ! ACETONE=0.6200D+00*MECO3+... & + RXRAT( 207 ) ! MEK=MECO3+RO2C+xHO2+xCCHO+... & + RXRAT( 224 ) ! MGLY=MECO3+CO+HO2 & + RXRAT( 225 ) ! MGLY+OH=MECO3+CO & + RXRAT( 226 ) ! MGLY+NO3=MECO3+CO+HNO3 & + 2.0000D+00 * RXRAT( 227 ) ! BACL=0.2000D+01*MECO3 & + 3.0500D-01 * RXRAT( 238 ) ! AFG1=0.3050D+00*MECO3+... & + 1.3000D-02 * RXRAT( 243 ) ! AFG3+O3=0.1300D-01*MECO3+... & + 4.6700D-01 * RXRAT( 252 ) ! IPRD=0.4670D+00*MECO3+... & + 4.0000D-01 * RXRAT( 254 ) ! PRD2=0.4000D+00*MECO3+... & + RXRAT( 258 ) ! HOCCHO+NO3=MECO3+HNO3 & + 9.8000D-01 * RXRAT( 264 ) ! CCOOOH+OH=0.9800D+00*MECO3+... & + RXRAT( 580 ) ! TERPNRO2+MACO3=MECO3+... & + RXRAT( 581 ) ! TERPNRO2+IMACO3=MECO3+... & + RXRAT( 610 ) ! CCHO+CL=MECO3+HCL & + RXRAT( 618 ) ! MGLY+CL=MECO3+CO+HCL & + RXRAT( 630 ) ! CLACET=MECO3+RO2C+xCL+... & + 3.5000D-01 * RXRAT( 733 ) ! HC5+O3=0.3500D+00*MECO3+... & + 6.2500D-01 * RXRAT( 775 ) ! MVKOO+NO=0.6250D+00*MECO3+... & + 3.5000D-01 * RXRAT( 777 ) ! MVKOO+MEO2=0.3500D+... & + 3.5000D-01 * RXRAT( 778 ) ! MVKOO+RO2C=0.3500D+... & + 4.4000D-01 * RXRAT( 786 ) ! MACO3+HO2=0.4400D+00*MECO3+... & + RXRAT( 798 ) ! HACET=MECO3+HO2+HCHO & + RXRAT( 803 ) ! PROPNN=MECO3+HCHO+NO2 & + RXRAT( 804 ) ! ISOPNN=MECO3+HCHO+0.2000D+... & + RXRAT( 806 ) ! MVKN=MECO3+NO2+HOCCHO & + 3.4000D-01 * RXRAT( 825 ) ! MACR=0.3400D+00*MECO3+... & + 4.0000D-01 * RXRAT( 841 ) ! IMAPAN=0.4000D+00*MECO3+... & + RXRAT( 846 ) ! xMECO3+IMACO3=MECO3+IMACO3 c..Loss frequency of MECO3 ( not including MECO3 + MECO3 ) L8 = RKI( 63 ) * YC ( NO2 ) ! MECO3+NO2=PAN & + RKI( 66 ) * YC ( NO ) ! MECO3+NO=MEO2+... & + RKI( 67 ) * YC ( HO2 ) ! MECO3+HO2=... & + RKI( 68 ) * YC ( NO3 ) ! MECO3+NO3=MEO2+... & + RKI( 69 ) * YC ( MEO2 ) ! MECO3+MEO2=... & + RKI( 70 ) * YC ( RO2C ) ! MECO3+RO2C=MEO2+CO2 & + RKI( 71 ) * YC ( RO2XC ) ! MECO3+RO2XC=MEO2+CO2 & + RKI( 82 ) * YC ( RCO3 ) ! MECO3+RCO3=... & + RKI( 93 ) * YC ( BZCO3 ) ! MECO3+BZCO3=... & + RKI( 577 ) * YC ( TERPNRO2 ) ! MECO3+TERPNRO2=... & + RKI( 715 ) * YC ( ISOPO2 ) ! MECO3+ISOPO2=... & + RKI( 726 ) * YC ( NISOPO2 ) ! MECO3+NISOPO2=... & + RKI( 732 ) * YC ( HC5OO ) ! MECO3+HC5OO=MEO2+... & + RKI( 739 ) * YC ( ISOPNOOD ) ! MECO3+ISOPNOOD=... & + RKI( 746 ) * YC ( ISOPNOOB ) ! MECO3+ISOPNOOB=... & + RKI( 755 ) * YC ( NIT1NO3OOA ) ! MECO3+NIT1NO3OOA=... & + RKI( 761 ) * YC ( NIT1NO3OOB ) ! MECO3+NIT1NO3OOB=... & + RKI( 768 ) * YC ( NIT1OHOO ) ! MECO3+NIT1OHOO=... & + RKI( 773 ) * YC ( DIBOO ) ! MECO3+DIBOO=HO2+... & + 3.0000D-01 * RKI( 779 ) * YC ( MVKOO ) ! MECO3+MVKOO=MEO2+... & + RKI( 784 ) * YC ( MACROO ) ! MECO3+MACROO=... & + RKI( 791 ) * YC ( MACO3 ) ! MECO3+MACO3=... & + RKI( 818 ) * YC ( IEPOXOO ) ! MECO3+IEPOXOO=... & + RKI( 833 ) * YC ( IMACO3 ) ! MECO3+IMACO3=... c..Loss frequency of PAN L9 = RKI( 64 ) ! PAN=MECO3+NO2 & + RKI( 65 ) ! PAN=0.6000D+... c..K8_8, R8_9, and R9_8 terms K8_8 = RKI( 72 ) * DTC R8_9 = ( RKI( 64 ) & + RKI( 65 ) ) * DTC R9_8 = ( RKI( 63 ) * YC( NO2 ) ) * DTC c..Solution of quadratic equation to get MECO3 & PAN CMN = 1.0 + L9 * DTC A = 2.0D0 * K8_8 * CMN B = CMN * ( 1.0D0 + L8 * DTC ) - R8_9 * R9_8 C = CMN * ( YC0( MECO3 ) + P8 * DTC ) + R8_9 * YC0( PAN ) Q = -0.5D0 * ( B + SIGN( 1.0D0, B ) * SQRT( B * B + 4.0D0 * A * C ) ) YCP( MECO3 ) = MAX( Q / A , -C / Q ) YCP( PAN ) = ( YC0( PAN ) + R9_8 * YCP( MECO3 ) ) / CMN RETURN END ================================================ FILE: CCTM/src/gas/ebi_saprc07tic_ae7i_aq/hrg4.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE HRG4( DTC ) C********************************************************************** C C FUNCTION: To solve for the concentration of NO3 and N2O5 C C PRECONDITIONS: For the SAPRC07TIC_AE7I_AQ mechanism C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by EBI solver program, Jun 8, 2022 C C 18 Jul 14 B.Hutzell: revised to use real(8) variables C********************************************************************** USE HRDATA IMPLICIT NONE C..INCLUDES: NONE C..ARGUMENTS: REAL( 8 ), INTENT( IN ) :: DTC ! Time step C..PARAMETERS: NONE C..EXTERNAL FUNCTIONS: NONE C..SAVED LOCAL VARIABLES: ! CHARACTER( 16 ), SAVE :: PNAME = 'HRG4' ! Program name C..SCRATCH LOCAL VARIABLES: REAL( 8 ) :: A, B, C, Q ! Quadratic equation terms REAL( 8 ) :: CMN ! Temp scalar REAL( 8 ) :: L15 ! Loss of NO3 REAL( 8 ) :: L16 ! Loss of N2O5 REAL( 8 ) :: P15 ! Production of NO3 REAL( 8 ) :: K15_15 ! Kno3+no3 * delta t REAL( 8 ) :: R15_16 ! Kn2o5-->no3 * delta t REAL( 8 ) :: R16_15 ! Kno3+no2-->n2o5[NO2] * delta t C********************************************************************** c..Production of NO3 (except from N2O5 ) P15 = RKI( 6 ) * YCP( O3P ) * YCP( NO2 ) ! O3P+NO2=NO3 & + RKI( 8 ) * YCP( O3 ) * YCP( NO2 ) ! O3+NO2=NO3 & + RKI( 27 ) * YCP( OH ) * YC ( HNO3 ) ! OH+HNO3=NO3 & + 3.9000D-01 * RKI( 34 ) * YC ( HNO4 ) ! HNO4=0.3900D+00*NO3+... & + 4.0000D-01 * RKI( 65 ) * YC ( PAN ) ! PAN=0.4000D+00*NO3+0.6000D+... & + 4.0000D-01 * RKI( 75 ) * YC ( PAN2 ) ! PAN2=0.4000D+00*NO3+... & + 4.0000D-01 * RKI( 86 ) * YC ( PBZN ) ! PBZN=0.4000D+00*NO3+... & + 4.0000D-01 * RKI( 98 ) * YC ( MAPAN ) ! MAPAN=0.4000D+00*NO3+... & + RKI( 269 ) * YC ( HCOCO3 ) * YCP( NO2 ) ! HCOCO3+NO2=NO3+CO+CO2+HO2 & + RKI( 601 ) * YC ( CLONO2 ) ! CLONO2=NO3+CL & + RKI( 603 ) * YC ( CL ) * YC ( CLONO2 ) ! CL+CLONO2=NO3+CL2 & + 3.1000D-01 * RKI( 735 ) * YC ( ISOPNOOD ) * YC ( NO ) ! ISOPNOOD+NO=0.3100D+00*NO3+... & + 1.5500D-01 * RKI( 737 ) * YC ( ISOPNOOD ) * YC ( MEO2 ) ! ISOPNOOD+MEO2=0.1550D+... & + 1.5500D-01 * RKI( 738 ) * YC ( ISOPNOOD ) * YC ( RO2C ) ! ISOPNOOD+RO2C=0.1550D+... & + 3.1000D-01 * RKI( 739 ) * YC ( ISOPNOOD ) * YC ( MECO3 ) ! ISOPNOOD+MECO3=0.3100D+... & + RKI( 805 ) * YC ( MVKN ) * YCP( OH ) ! MVKN+OH=NO3+0.6500D+... & + 1.5000D-01 * RKI( 807 ) * YC ( MACRN ) * YCP( OH ) ! MACRN+OH=0.1500D+00*NO3+... & + 4.0000D-01 * RKI( 841 ) * YC ( IMAPAN ) ! IMAPAN=0.4000D+00*NO3+... & + 8.1000D-01 * RKI( 877 ) * YC ( IMAPAN ) * YCP( OH ) ! IMAPAN+OH=0.8100D+00*NO3+... c..Loss frequency of NO3 ( except NO3 + NO3 if present ) L15 = RKI( 9 ) * YCP( NO ) ! NO3+NO=0.2000D+... & + RKI( 11 ) * YCP( NO2 ) ! NO3+NO2=N2O5 & + RKI( 15 ) * YCP( NO2 ) ! NO3+NO2=NO+NO2 & + RKI( 16 ) ! NO3=NO & + RKI( 17 ) ! NO3=NO2+O3P & + RKI( 26 ) * YCP( OH ) ! NO3+OH=HO2+NO2 & + RKI( 39 ) * YCP( HO2 ) ! NO3+HO2=0.8000D+... & + RKI( 49 ) * YC ( MEO2 ) ! NO3+MEO2=HCHO+... & + RKI( 54 ) * YC ( RO2C ) ! NO3+RO2C=NO2 & + RKI( 59 ) * YC ( RO2XC ) ! NO3+RO2XC=NO2 & + RKI( 68 ) * YC ( MECO3 ) ! NO3+MECO3=MEO2+... & + RKI( 78 ) * YC ( RCO3 ) ! NO3+RCO3=NO2+... & + RKI( 89 ) * YC ( BZCO3 ) ! NO3+BZCO3=NO2+... & + RKI( 197 ) * YC ( HCHO ) ! NO3+HCHO=HNO3+HO2+CO & + RKI( 200 ) * YC ( CCHO ) ! NO3+CCHO=HNO3+MECO3 & + RKI( 203 ) * YC ( RCHO ) ! NO3+RCHO=HNO3+RCO3 & + RKI( 223 ) * YC ( GLY ) ! NO3+GLY=HNO3+... & + RKI( 226 ) * YC ( MGLY ) ! NO3+MGLY=HNO3+CO+... & + RKI( 229 ) * YC ( CRES ) ! NO3+CRES=HNO3+BZO & + RKI( 235 ) * YC ( BALD ) ! NO3+BALD=HNO3+BZCO3 & + RKI( 251 ) * YC ( IPRD ) ! NO3+IPRD=0.1500D+... & + RKI( 258 ) * YC ( HOCCHO ) ! NO3+HOCCHO=HNO3+... & + RKI( 261 ) * YC ( ACROLEIN ) ! NO3+ACROLEIN=... & + RKI( 526 ) * YC ( ETHENE ) ! NO3+ETHENE=xHO2+... & + RKI( 530 ) * YC ( PROPENE ) ! NO3+PROPENE=... & + RKI( 534 ) * YC ( BUTADIENE13 ) ! NO3+BUTADIENE13=... & + RKI( 540 ) * YC ( APIN ) ! NO3+APIN=0.5600D-... & + RKI( 559 ) * YC ( OLE1 ) ! NO3+OLE1=0.7720D+... & + RKI( 563 ) * YC ( OLE2 ) ! NO3+OLE2=0.4000D+... & + RKI( 570 ) * YC ( TERP ) ! NO3+TERP=TERPNRO2 & + RKI( 573 ) * YC ( TERPNRO2 ) ! NO3+TERPNRO2=... & + RKI( 585 ) * YC ( SESQ ) ! NO3+SESQ=0.2270D+... & + RKI( 597 ) * YC ( CL ) ! NO3+CL=CLO+NO2 & + RKI( 719 ) * YC ( ISOPRENE ) ! NO3+ISOPRENE=NISOPO2 & + RKI( 720 ) * YC ( NISOPO2 ) ! NO3+NISOPO2=... & + RKI( 748 ) * YC ( NIT1 ) ! NO3+NIT1=0.6000D+... & + RKI( 749 ) * YC ( NIT1NO3OOA ) ! NO3+NIT1NO3OOA=... & + RKI( 756 ) * YC ( NIT1NO3OOB ) ! NO3+NIT1NO3OOB=... & + RKI( 787 ) * YC ( MACO3 ) ! NO3+MACO3=NO2+CO+... & + RKI( 824 ) * YC ( MACR ) ! NO3+MACR=0.5000D+... & + RKI( 829 ) * YC ( IMACO3 ) ! NO3+IMACO3=NO2+... & + RKI( 904 ) ! NO3=HNO3 c..Loss frequency of N2O5 L16 = RKI( 12 ) ! N2O5=NO2+NO3 & + RKI( 13 ) ! N2O5=0.2000D+01*HNO3 & + RKI( 14 ) ! N2O5=0.2000D+01*HNO3 & + RKI( 885 ) ! N2O5=HNO3+H2NO3PIJ & + RKI( 886 ) ! N2O5=HNO3+H2NO3PK c..K15_15, R15_16, and R16_15 terms K15_15 = RKI( 40 ) * DTC R15_16 = ( RKI( 12 ) ) * DTC R16_15 = RKI( 11 ) * YCP( NO2 ) * DTC c..Solution of quadratic equation to get NO3 & N2O5 CMN = 1.0D0 + L16 * DTC A = 2.0D0 * K15_15 * CMN B = CMN * ( 1.0D0 + L15 * DTC ) - R15_16 * R16_15 C = CMN * ( YC0( NO3 ) + P15 * DTC ) + R15_16 * YC0( N2O5 ) Q = -0.5D0 * ( B + SIGN( 1.0D0, B ) * SQRT( B * B + 4.0D0 * A * C ) ) YCP( NO3 ) = MAX( Q / A , -C / Q ) YCP( N2O5 ) = ( YC0( N2O5 ) + R16_15 * YCP( NO3 ) ) / CMN RETURN END ================================================ FILE: CCTM/src/gas/ebi_saprc07tic_ae7i_aq/hrinit.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE HRINIT C*********************************************************************** C C FUNCTION: To initialize species tolerances, arrays, and indices C C PRECONDITIONS: For the SAPRC07TIC_AE7I_AQ mechanism C C RETURN VALUES: None C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by EBI solver program, Jun 8, 2022 C 21 Jun 10 J.Young: convert for Namelist redesign C 18 Jul 14 B.Hutzell: revised to use the RXNS_DATA and RXNS_FUNCTION C modules instead of include files C*********************************************************************** USE UTILIO_DEFN USE HRDATA USE RXNS_DATA USE RXNS_FUNCTION IMPLICIT NONE C.....INCLUDES: Include SUBST_CONST ! common constants C.....ARGUMENTS: NONE C.....PARAMETERS: NONE C.....SAVED VARIABLES: CHARACTER( 16 ), SAVE :: PNAME = 'HRINIT' ! Program name C.....LOCAL VARIABLES: CHARACTER( 132 ) :: MSG ! Log message INTEGER N ! Loop index INTEGER IOS ! Allocate error status C*********************************************************************** N_SPEC = NUMB_MECH_SPC N_RXNS = NRXNS N_SPCL_RKS = 0 ALLOCATE( RKI( NRXNS ), & RKI_SAV( MAX_CELLS_EBI, NRXNS ), & FORWARD_CONV( NUMB_MECH_SPC), & REVERSE_CONV( NUMB_MECH_SPC), & RXRAT( NRXNS ), & RTOL( NUMB_MECH_SPC), & YC( NUMB_MECH_SPC), & YC0( NUMB_MECH_SPC), & YCP( NUMB_MECH_SPC), & PROD( NUMB_MECH_SPC), & LOSS( NUMB_MECH_SPC), & STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating RKI, RXRAT, RTOL, YC, YC0, YCP, FORWARD_CONV, ' & // 'REVERSE_CONV, PROD, LOSS, or PNEG' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF ALLOCATE( ATMPRES( MAX_CELLS_EBI ), & H2O ( MAX_CELLS_EBI ), & TEMP ( MAX_CELLS_EBI ), & DENSITY( MAX_CELLS_EBI ), & HET ( MAX_CELLS_EBI, NHETERO ), & RJIN ( MAX_CELLS_EBI, NPHOTAB ), & SEAWATER ( MAX_CELLS_EBI ) , & STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating ATMPRES, H2O, TEMP, HET, RJIN, SEAWATER ' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF IF( NSPECIAL .GT. 0 )THEN ALLOCATE( SYC( MAX_CELLS_EBI, NUMB_MECH_SPC ), STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating SYC' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF ALLOCATE( IOLD2NEW( NUMB_MECH_SPC, 1 ), STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating IOLD2NEW' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF DO N = 1, NUMB_MECH_SPC IOLD2NEW( N, 1 ) = N END DO END IF IF( .NOT. MAP_CHEMISTRY_SPECIES() )THEN MSG = 'Detected above error(s) when mapping Chemistry species from CGRID species' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT2 ) END IF DO N = 1, NUMB_MECH_SPC FORWARD_CONV( N ) = 1.0E-3 * MWAIR / SPECIES_MOLWT( N ) REVERSE_CONV( N ) = 1.0E+3 / MWAIR * SPECIES_MOLWT( N ) END DO ! initialize all reaction rates to zero so unused array elements are defined RXRAT = 0.0D0 ! initialize all production and loss rates to zero so unused array elements are defined PROD = 0.0D0 LOSS = 0.0D0 NING1 = 4 NING2 = 4 ALLOCATE( YCCELL( MODEL_SPECIES), STAT = IOS ) ! array for degradation routines IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating YCCELL ' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF c..Allocate and define ebi species N_EBISP = 217 ALLOCATE( EBISP( N_EBISP ), STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating EBISP' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF EBISP( 1 ) = HNO3 EBISP( 2 ) = CO EBISP( 3 ) = CO2 EBISP( 4 ) = HO2H EBISP( 5 ) = SO2 EBISP( 6 ) = SULF EBISP( 7 ) = SULRXN EBISP( 8 ) = MEO2 EBISP( 9 ) = HCHO EBISP( 10 ) = COOH EBISP( 11 ) = MEOH EBISP( 12 ) = RO2C EBISP( 13 ) = RO2XC EBISP( 14 ) = CCOOOH EBISP( 15 ) = CCOOH EBISP( 16 ) = RCO3 EBISP( 17 ) = PAN2 EBISP( 18 ) = xHO2 EBISP( 19 ) = yROOH EBISP( 20 ) = xCCHO EBISP( 21 ) = RCOOOH EBISP( 22 ) = RCOOH EBISP( 23 ) = BZCO3 EBISP( 24 ) = PBZN EBISP( 25 ) = BZO EBISP( 26 ) = MACO3 EBISP( 27 ) = MAPAN EBISP( 28 ) = TBUO EBISP( 29 ) = RNO3 EBISP( 30 ) = ACETONE EBISP( 31 ) = NPHE EBISP( 32 ) = CRES EBISP( 33 ) = xOH EBISP( 34 ) = xNO2 EBISP( 35 ) = xMEO2 EBISP( 36 ) = xMECO3 EBISP( 37 ) = xRCO3 EBISP( 38 ) = xMACO3 EBISP( 39 ) = xTBUO EBISP( 40 ) = xCO EBISP( 41 ) = CCHO EBISP( 42 ) = RCHO EBISP( 43 ) = xHCHO EBISP( 44 ) = MEK EBISP( 45 ) = zRNO3 EBISP( 46 ) = xRCHO EBISP( 47 ) = HCOOH EBISP( 48 ) = xMGLY EBISP( 49 ) = xBACL EBISP( 50 ) = ROOH EBISP( 51 ) = xPROD2 EBISP( 52 ) = R6OOH EBISP( 53 ) = PRD2 EBISP( 54 ) = yR6OOH EBISP( 55 ) = RAOOH EBISP( 56 ) = MGLY EBISP( 57 ) = IPRD EBISP( 58 ) = xGLY EBISP( 59 ) = xMEK EBISP( 60 ) = xAFG1 EBISP( 61 ) = xAFG2 EBISP( 62 ) = GLY EBISP( 63 ) = AFG1 EBISP( 64 ) = AFG2 EBISP( 65 ) = HCOCO3 EBISP( 66 ) = BACL EBISP( 67 ) = BALD EBISP( 68 ) = AFG3 EBISP( 69 ) = xIPRD EBISP( 70 ) = MACR EBISP( 71 ) = MVK EBISP( 72 ) = xHOCCHO EBISP( 73 ) = xRNO3 EBISP( 74 ) = HOCCHO EBISP( 75 ) = xACETONE EBISP( 76 ) = ACROLEIN EBISP( 77 ) = xBALD EBISP( 78 ) = xAFG3 EBISP( 79 ) = xMACR EBISP( 80 ) = xMVK EBISP( 81 ) = xMTNO3 EBISP( 82 ) = MTNO3 EBISP( 83 ) = IMACO3 EBISP( 84 ) = yRAOOH EBISP( 85 ) = zMTNO3 EBISP( 86 ) = xACROLEIN EBISP( 87 ) = ETHENE EBISP( 88 ) = PROPENE EBISP( 89 ) = BUTADIENE13 EBISP( 90 ) = ISOPRENE EBISP( 91 ) = APIN EBISP( 92 ) = TRPRXN EBISP( 93 ) = ACETYLENE EBISP( 94 ) = BENZENE EBISP( 95 ) = BENZRO2 EBISP( 96 ) = TOLUENE EBISP( 97 ) = TOLRO2 EBISP( 98 ) = MXYL EBISP( 99 ) = XYLRO2 EBISP( 100 ) = OXYL EBISP( 101 ) = PXYL EBISP( 102 ) = TMBENZ124 EBISP( 103 ) = ETOH EBISP( 104 ) = ALK1 EBISP( 105 ) = ALK2 EBISP( 106 ) = ALK3 EBISP( 107 ) = ALK4 EBISP( 108 ) = ALK5 EBISP( 109 ) = SOAALK EBISP( 110 ) = SVAVB2 EBISP( 111 ) = SVAVB3 EBISP( 112 ) = SVAVB4 EBISP( 113 ) = OLE1 EBISP( 114 ) = OLE2 EBISP( 115 ) = ARO1 EBISP( 116 ) = ARO2MN EBISP( 117 ) = NAPHTHAL EBISP( 118 ) = PAHRO2 EBISP( 119 ) = TERP EBISP( 120 ) = TERPNRO2 EBISP( 121 ) = SESQ EBISP( 122 ) = SESQRXN EBISP( 123 ) = CL2 EBISP( 124 ) = CL EBISP( 125 ) = CLNO EBISP( 126 ) = CLONO EBISP( 127 ) = CLNO2 EBISP( 128 ) = HCL EBISP( 129 ) = CLO EBISP( 130 ) = CLONO2 EBISP( 131 ) = HOCL EBISP( 132 ) = xCL EBISP( 133 ) = xCLCCHO EBISP( 134 ) = xCLACET EBISP( 135 ) = CLCCHO EBISP( 136 ) = CLACET EBISP( 137 ) = CLCHO EBISP( 138 ) = SVAVB1 EBISP( 139 ) = HCHO_PRIMARY EBISP( 140 ) = CCHO_PRIMARY EBISP( 141 ) = ACRO_PRIMARY EBISP( 142 ) = ISOPO2 EBISP( 143 ) = ISOPRXN EBISP( 144 ) = ISOPND EBISP( 145 ) = ISOPNB EBISP( 146 ) = HC5 EBISP( 147 ) = DIBOO EBISP( 148 ) = ISOPOOH EBISP( 149 ) = HPALD EBISP( 150 ) = HACET EBISP( 151 ) = NISOPO2 EBISP( 152 ) = NIT1 EBISP( 153 ) = NISOPOOH EBISP( 154 ) = HC5OO EBISP( 155 ) = DHMOB EBISP( 156 ) = ISOPNOOD EBISP( 157 ) = PROPNN EBISP( 158 ) = MVKN EBISP( 159 ) = ETHLN EBISP( 160 ) = RNO3I EBISP( 161 ) = ISOPNOOB EBISP( 162 ) = MACRN EBISP( 163 ) = NIT1NO3OOA EBISP( 164 ) = NIT1NO3OOB EBISP( 165 ) = ISOPNN EBISP( 166 ) = NIT1OHOO EBISP( 167 ) = MVKOO EBISP( 168 ) = MACROO EBISP( 169 ) = PYRUACD EBISP( 170 ) = IEPOX EBISP( 171 ) = IEPOXOO EBISP( 172 ) = IMPAA EBISP( 173 ) = IMAPAN EBISP( 174 ) = IMAE EBISP( 175 ) = IHMML EBISP( 176 ) = H2NO3PIJ EBISP( 177 ) = H2NO3PK EBISP( 178 ) = ACLI EBISP( 179 ) = ACLJ EBISP( 180 ) = ACLK EBISP( 181 ) = IEPOXP EBISP( 182 ) = IMAEP EBISP( 183 ) = IHMMLP EBISP( 184 ) = AIETETJ EBISP( 185 ) = ASO4J EBISP( 186 ) = AIEOSJ EBISP( 187 ) = ADIMJ EBISP( 188 ) = AIMGAJ EBISP( 189 ) = AIMOSJ EBISP( 190 ) = AISO1J EBISP( 191 ) = AOLGBJ EBISP( 192 ) = AISO2J EBISP( 193 ) = ASQTJ EBISP( 194 ) = AAVB2J EBISP( 195 ) = AOLGAJ EBISP( 196 ) = AAVB3J EBISP( 197 ) = AAVB4J EBISP( 198 ) = APOCI EBISP( 199 ) = APNCOMI EBISP( 200 ) = APOCJ EBISP( 201 ) = APNCOMJ EBISP( 202 ) = PCVOC EBISP( 203 ) = PCSOARXN EBISP( 204 ) = VLVPO1 EBISP( 205 ) = VSVPO1 EBISP( 206 ) = VSVPO2 EBISP( 207 ) = VSVPO3 EBISP( 208 ) = VIVPO1 EBISP( 209 ) = VLVOO1 EBISP( 210 ) = VLVOO2 EBISP( 211 ) = VSVOO2 EBISP( 212 ) = VSVOO3 EBISP( 213 ) = VSVOO1 EBISP( 214 ) = AMTNO3J EBISP( 215 ) = AMTHYDJ EBISP( 216 ) = AISOPNNJ EBISP( 217 ) = AGLYJ cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Set species tolerances cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc RTOL( NO2 ) = 5.0D-04 RTOL( NO ) = 5.0D-04 RTOL( O3P ) = 1.0D+00 RTOL( O3 ) = 5.0D-04 RTOL( NO3 ) = 5.0D-04 RTOL( N2O5 ) = 5.0D-04 RTOL( HNO3 ) = 5.0D-04 RTOL( O1D ) = 1.0D+00 RTOL( OH ) = 5.0D-04 RTOL( HONO ) = 5.0D-04 RTOL( HO2 ) = 5.0D-04 RTOL( CO ) = 5.0D-04 RTOL( CO2 ) = 5.0D-04 RTOL( HNO4 ) = 5.0D-04 RTOL( HO2H ) = 5.0D-04 RTOL( SO2 ) = 5.0D-04 RTOL( SULF ) = 1.0D+00 RTOL( SULRXN ) = 1.0D+00 RTOL( MEO2 ) = 5.0D-04 RTOL( HCHO ) = 5.0D-04 RTOL( COOH ) = 5.0D-04 RTOL( MEOH ) = 5.0D-04 RTOL( RO2C ) = 5.0D-04 RTOL( RO2XC ) = 5.0D-04 RTOL( MECO3 ) = 5.0D-04 RTOL( PAN ) = 5.0D-04 RTOL( CCOOOH ) = 5.0D-04 RTOL( CCOOH ) = 5.0D-04 RTOL( RCO3 ) = 5.0D-04 RTOL( PAN2 ) = 5.0D-04 RTOL( xHO2 ) = 5.0D-04 RTOL( yROOH ) = 5.0D-04 RTOL( xCCHO ) = 5.0D-04 RTOL( RCOOOH ) = 5.0D-04 RTOL( RCOOH ) = 5.0D-04 RTOL( BZCO3 ) = 5.0D-04 RTOL( PBZN ) = 5.0D-04 RTOL( BZO ) = 5.0D-04 RTOL( MACO3 ) = 5.0D-04 RTOL( MAPAN ) = 5.0D-04 RTOL( TBUO ) = 5.0D-04 RTOL( RNO3 ) = 5.0D-04 RTOL( ACETONE ) = 5.0D-04 RTOL( NPHE ) = 5.0D-04 RTOL( CRES ) = 5.0D-04 RTOL( xOH ) = 5.0D-04 RTOL( xNO2 ) = 5.0D-04 RTOL( xMEO2 ) = 5.0D-04 RTOL( xMECO3 ) = 5.0D-04 RTOL( xRCO3 ) = 5.0D-04 RTOL( xMACO3 ) = 5.0D-04 RTOL( xTBUO ) = 5.0D-04 RTOL( xCO ) = 5.0D-04 RTOL( CCHO ) = 5.0D-04 RTOL( RCHO ) = 5.0D-04 RTOL( xHCHO ) = 5.0D-04 RTOL( MEK ) = 5.0D-04 RTOL( zRNO3 ) = 5.0D-04 RTOL( xRCHO ) = 5.0D-04 RTOL( HCOOH ) = 5.0D-04 RTOL( xMGLY ) = 5.0D-04 RTOL( xBACL ) = 5.0D-04 RTOL( ROOH ) = 5.0D-04 RTOL( xPROD2 ) = 5.0D-04 RTOL( R6OOH ) = 5.0D-04 RTOL( PRD2 ) = 5.0D-04 RTOL( yR6OOH ) = 5.0D-04 RTOL( RAOOH ) = 5.0D-04 RTOL( MGLY ) = 5.0D-04 RTOL( IPRD ) = 5.0D-04 RTOL( xGLY ) = 5.0D-04 RTOL( xMEK ) = 5.0D-04 RTOL( xAFG1 ) = 5.0D-04 RTOL( xAFG2 ) = 5.0D-04 RTOL( GLY ) = 5.0D-04 RTOL( AFG1 ) = 5.0D-04 RTOL( AFG2 ) = 5.0D-04 RTOL( HCOCO3 ) = 5.0D-04 RTOL( BACL ) = 5.0D-04 RTOL( BALD ) = 5.0D-04 RTOL( AFG3 ) = 5.0D-04 RTOL( xIPRD ) = 5.0D-04 RTOL( MACR ) = 5.0D-04 RTOL( MVK ) = 5.0D-04 RTOL( xHOCCHO ) = 5.0D-04 RTOL( xRNO3 ) = 5.0D-04 RTOL( HOCCHO ) = 5.0D-04 RTOL( xACETONE ) = 5.0D-04 RTOL( ACROLEIN ) = 5.0D-04 RTOL( xBALD ) = 5.0D-04 RTOL( xAFG3 ) = 5.0D-04 RTOL( xMACR ) = 5.0D-04 RTOL( xMVK ) = 5.0D-04 RTOL( xMTNO3 ) = 5.0D-04 RTOL( MTNO3 ) = 5.0D-04 RTOL( IMACO3 ) = 5.0D-04 RTOL( yRAOOH ) = 5.0D-04 RTOL( zMTNO3 ) = 5.0D-04 RTOL( xACROLEIN ) = 5.0D-04 RTOL( ETHENE ) = 5.0D-04 RTOL( PROPENE ) = 5.0D-04 RTOL( BUTADIENE13 ) = 5.0D-04 RTOL( ISOPRENE ) = 5.0D-04 RTOL( APIN ) = 5.0D-04 RTOL( TRPRXN ) = 1.0D+00 RTOL( ACETYLENE ) = 5.0D-04 RTOL( BENZENE ) = 5.0D-04 RTOL( BENZRO2 ) = 5.0D-04 RTOL( TOLUENE ) = 5.0D-04 RTOL( TOLRO2 ) = 5.0D-04 RTOL( MXYL ) = 5.0D-04 RTOL( XYLRO2 ) = 5.0D-04 RTOL( OXYL ) = 5.0D-04 RTOL( PXYL ) = 5.0D-04 RTOL( TMBENZ124 ) = 5.0D-04 RTOL( ETOH ) = 5.0D-04 RTOL( ALK1 ) = 5.0D-04 RTOL( ALK2 ) = 5.0D-04 RTOL( ALK3 ) = 5.0D-04 RTOL( ALK4 ) = 5.0D-04 RTOL( ALK5 ) = 5.0D-04 RTOL( SOAALK ) = 5.0D-04 RTOL( SVAVB2 ) = 5.0D-04 RTOL( SVAVB3 ) = 5.0D-04 RTOL( SVAVB4 ) = 5.0D-04 RTOL( OLE1 ) = 5.0D-04 RTOL( OLE2 ) = 5.0D-04 RTOL( ARO1 ) = 5.0D-04 RTOL( ARO2MN ) = 5.0D-04 RTOL( NAPHTHAL ) = 5.0D-04 RTOL( PAHRO2 ) = 1.0D+00 RTOL( TERP ) = 5.0D-04 RTOL( TERPNRO2 ) = 5.0D-04 RTOL( SESQ ) = 5.0D-04 RTOL( SESQRXN ) = 1.0D+00 RTOL( CL2 ) = 5.0D-04 RTOL( CL ) = 5.0D-04 RTOL( CLNO ) = 5.0D-04 RTOL( CLONO ) = 5.0D-04 RTOL( CLNO2 ) = 5.0D-04 RTOL( HCL ) = 5.0D-04 RTOL( CLO ) = 5.0D-04 RTOL( CLONO2 ) = 5.0D-04 RTOL( HOCL ) = 5.0D-04 RTOL( xCL ) = 5.0D-04 RTOL( xCLCCHO ) = 5.0D-04 RTOL( xCLACET ) = 5.0D-04 RTOL( CLCCHO ) = 5.0D-04 RTOL( CLACET ) = 5.0D-04 RTOL( CLCHO ) = 5.0D-04 RTOL( SVAVB1 ) = 5.0D-04 RTOL( HCHO_PRIMARY ) = 5.0D-04 RTOL( CCHO_PRIMARY ) = 5.0D-04 RTOL( ACRO_PRIMARY ) = 5.0D-04 RTOL( ISOPO2 ) = 5.0D-04 RTOL( ISOPRXN ) = 1.0D+00 RTOL( ISOPND ) = 5.0D-04 RTOL( ISOPNB ) = 5.0D-04 RTOL( HC5 ) = 5.0D-04 RTOL( DIBOO ) = 5.0D-04 RTOL( ISOPOOH ) = 5.0D-04 RTOL( HPALD ) = 5.0D-04 RTOL( HACET ) = 5.0D-04 RTOL( NISOPO2 ) = 5.0D-04 RTOL( NIT1 ) = 5.0D-04 RTOL( NISOPOOH ) = 5.0D-04 RTOL( HC5OO ) = 5.0D-04 RTOL( DHMOB ) = 5.0D-04 RTOL( ISOPNOOD ) = 5.0D-04 RTOL( PROPNN ) = 5.0D-04 RTOL( MVKN ) = 5.0D-04 RTOL( ETHLN ) = 5.0D-04 RTOL( RNO3I ) = 5.0D-04 RTOL( ISOPNOOB ) = 5.0D-04 RTOL( MACRN ) = 5.0D-04 RTOL( NIT1NO3OOA ) = 5.0D-04 RTOL( NIT1NO3OOB ) = 5.0D-04 RTOL( ISOPNN ) = 5.0D-04 RTOL( NIT1OHOO ) = 5.0D-04 RTOL( MVKOO ) = 5.0D-04 RTOL( MACROO ) = 5.0D-04 RTOL( PYRUACD ) = 5.0D-04 RTOL( IEPOX ) = 5.0D-04 RTOL( IEPOXOO ) = 5.0D-04 RTOL( IMPAA ) = 5.0D-04 RTOL( IMAPAN ) = 5.0D-04 RTOL( IMAE ) = 5.0D-04 RTOL( IHMML ) = 5.0D-04 RTOL( H2NO3PIJ ) = 5.0D-04 RTOL( H2NO3PK ) = 5.0D-04 RTOL( ACLI ) = 5.0D-04 RTOL( ACLJ ) = 5.0D-04 RTOL( ACLK ) = 5.0D-04 RTOL( IEPOXP ) = 5.0D-04 RTOL( IMAEP ) = 5.0D-04 RTOL( IHMMLP ) = 5.0D-04 RTOL( AIETETJ ) = 5.0D-04 RTOL( ASO4J ) = 5.0D-04 RTOL( AIEOSJ ) = 5.0D-04 RTOL( ADIMJ ) = 5.0D-04 RTOL( AIMGAJ ) = 5.0D-04 RTOL( AIMOSJ ) = 5.0D-04 RTOL( AISO1J ) = 5.0D-04 RTOL( AOLGBJ ) = 5.0D-04 RTOL( AISO2J ) = 5.0D-04 RTOL( ASQTJ ) = 5.0D-04 RTOL( AAVB2J ) = 5.0D-04 RTOL( AOLGAJ ) = 5.0D-04 RTOL( AAVB3J ) = 5.0D-04 RTOL( AAVB4J ) = 5.0D-04 RTOL( APOCI ) = 5.0D-04 RTOL( APNCOMI ) = 5.0D-04 RTOL( APOCJ ) = 5.0D-04 RTOL( APNCOMJ ) = 5.0D-04 RTOL( PCVOC ) = 5.0D-04 RTOL( PCSOARXN ) = 5.0D-04 RTOL( VLVPO1 ) = 5.0D-04 RTOL( VSVPO1 ) = 5.0D-04 RTOL( VSVPO2 ) = 5.0D-04 RTOL( VSVPO3 ) = 5.0D-04 RTOL( VIVPO1 ) = 5.0D-04 RTOL( VLVOO1 ) = 5.0D-04 RTOL( VLVOO2 ) = 5.0D-04 RTOL( VSVOO2 ) = 5.0D-04 RTOL( VSVOO3 ) = 5.0D-04 RTOL( VSVOO1 ) = 5.0D-04 RTOL( AMTNO3J ) = 5.0D-04 RTOL( AMTHYDJ ) = 5.0D-04 RTOL( AISOPNNJ ) = 5.0D-04 RTOL( AGLYJ ) = 5.0D-04 RETURN END ================================================ FILE: CCTM/src/gas/ebi_saprc07tic_ae7i_aq/hrprodloss.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE HRPRODLOSS C*********************************************************************** C C FUNCTION: To compute the production and loss rates for EBI species C C PRECONDITIONS: For the SAPRC07TIC_AE7I_AQ mechanism C C RETURN VALUES: None C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by EBI solver program, Jun 8, 2022 C C 18 Jul 14 B.Hutzell: revised to use real(8) variables C*********************************************************************** USE HRDATA IMPLICIT NONE C.....INCLUDES: NONE C.....ARGUMENTS: NONE C.....PARAMETERS: NONE C.....EXTERNAL FUNCTIONS: NONE C.....SAVED VARIABLES: NONE ! CHARACTER( 16 ), SAVE :: PNAME = 'HRPRODLOSS' ! Program name C.....LOCAL VARIABLES: C*********************************************************************** PROD( HNO3 ) = 2.0000D+00 * RXRAT( 13 ) ! N2O5=0.2000D+01*HNO3 & + 2.0000D+00 * RXRAT( 14 ) ! N2O5=0.2000D+01*HNO3 & + RXRAT( 25 ) ! OH+NO2=HNO3 & + 2.0000D-01 * RXRAT( 39 ) ! NO3+HO2=0.2000D+00*HNO3+... & + RXRAT( 197 ) ! HCHO+NO3=HNO3+HO2+CO & + RXRAT( 200 ) ! CCHO+NO3=HNO3+MECO3 & + RXRAT( 203 ) ! RCHO+NO3=HNO3+RCO3 & + RXRAT( 223 ) ! GLY+NO3=HNO3+0.7000D+... & + RXRAT( 226 ) ! MGLY+NO3=HNO3+CO+MECO3 & + RXRAT( 229 ) ! CRES+NO3=HNO3+BZO & + RXRAT( 235 ) ! BALD+NO3=HNO3+BZCO3 & + 1.5000D-01 * RXRAT( 251 ) ! IPRD+NO3=0.1500D+00*HNO3+... & + RXRAT( 258 ) ! HOCCHO+NO3=HNO3+MECO3 & + 9.6700D-01 * RXRAT( 261 ) ! ACROLEIN+NO3=0.9670D+... & + 6.0000D-01 * RXRAT( 748 ) ! NIT1+NO3=0.6000D+00*HNO3+... & + 5.0000D-01 * RXRAT( 824 ) ! MACR+NO3=0.5000D+00*HNO3+... & + 5.0000D-01 * RXRAT( 884 ) ! NO2=0.5000D+00*HNO3+... & + RXRAT( 885 ) ! N2O5=HNO3+H2NO3PIJ & + RXRAT( 886 ) ! N2O5=HNO3+H2NO3PK & + RXRAT( 887 ) ! H2NO3PIJ=HNO3 & + RXRAT( 888 ) ! H2NO3PK=HNO3 & + RXRAT( 904 ) ! NO3=HNO3 & + RXRAT( 926 ) ! AMTNO3J=HNO3+AMTHYDJ & + 2.0000D+00 * RXRAT( 927 ) ! AISOPNNJ=0.2000D+01*HNO3+... LOSS( HNO3 ) = RXRAT( 27 ) ! HNO3+OH=NO3 & + RXRAT( 28 ) ! HNO3=OH+NO2 PROD( CO ) = RXRAT( 184 ) ! xCO+NO=CO+NO & + RXRAT( 186 ) ! xCO+NO3=CO+NO3 & + 5.0000D-01 * RXRAT( 187 ) ! xCO+MEO2=0.5000D+00*CO+MEO2 & + 5.0000D-01 * RXRAT( 188 ) ! xCO+RO2C=0.5000D+00*CO+RO2C & + 5.0000D-01 * RXRAT( 189 ) ! xCO+RO2XC=0.5000D+00*CO+RO2XC & + RXRAT( 190 ) ! xCO+MECO3=CO+MECO3 & + RXRAT( 191 ) ! xCO+RCO3=CO+RCO3 & + RXRAT( 192 ) ! xCO+BZCO3=CO+BZCO3 & + RXRAT( 193 ) ! xCO+MACO3=CO+MACO3 & + RXRAT( 194 ) ! HCHO=CO+0.2000D+01*HO2 & + RXRAT( 195 ) ! HCHO=CO & + RXRAT( 196 ) ! HCHO+OH=CO+HO2 & + RXRAT( 197 ) ! HCHO+NO3=CO+HO2+HNO3 & + RXRAT( 199 ) ! CCHO=CO+HO2+MEO2 & + RXRAT( 202 ) ! RCHO=CO+xHO2+yROOH+xCCHO+... & + 3.8000D-01 * RXRAT( 205 ) ! ACETONE=0.3800D+00*CO+... & + 2.0000D+00 * RXRAT( 220 ) ! GLY=0.2000D+01*CO+0.2000D+... & + RXRAT( 221 ) ! GLY=CO+HCHO & + 1.4000D+00 * RXRAT( 222 ) ! GLY+OH=0.1400D+01*CO+... & + 1.4000D+00 * RXRAT( 223 ) ! GLY+NO3=0.1400D+01*CO+... & + RXRAT( 224 ) ! MGLY=CO+HO2+MECO3 & + RXRAT( 225 ) ! MGLY+OH=CO+MECO3 & + RXRAT( 226 ) ! MGLY+NO3=CO+HNO3+MECO3 & + 5.2200D-01 * RXRAT( 237 ) ! AFG1+O3=0.5220D+00*CO+... & + 6.9500D-01 * RXRAT( 238 ) ! AFG1=0.6950D+00*CO+0.1730D+... & + 5.2200D-01 * RXRAT( 240 ) ! AFG2+O3=0.5220D+00*CO+... & + 5.8000D-01 * RXRAT( 243 ) ! AFG3+O3=0.5800D+00*CO+... & + 4.5000D-01 * RXRAT( 244 ) ! MACR+O3=0.4500D+00*CO+... & + 4.7500D-01 * RXRAT( 246 ) ! MVK+O3=0.4750D+00*CO+... & + 6.0000D-01 * RXRAT( 248 ) ! MVK=0.6000D+00*CO+0.4000D+... & + 4.9800D-01 * RXRAT( 250 ) ! IPRD+O3=0.4980D+00*CO+... & + 1.2330D+00 * RXRAT( 252 ) ! IPRD=0.1233D+01*CO+0.4670D+... & + RXRAT( 257 ) ! HOCCHO=CO+0.2000D+01*HO2+HCHO & + 1.0050D+00 * RXRAT( 260 ) ! ACROLEIN+O3=0.1005D+01*CO+... & + 1.1880D+00 * RXRAT( 263 ) ! ACROLEIN=0.1188D+01*CO+... & + RXRAT( 268 ) ! HCOCO3+NO=CO+HO2+CO2+NO2 & + RXRAT( 269 ) ! HCOCO3+NO2=CO+HO2+CO2+NO3 & + 4.4000D-01 * RXRAT( 270 ) ! HCOCO3+HO2=0.4400D+00*CO+... & + 5.1000D-01 * RXRAT( 525 ) ! ETHENE+O3=0.5100D+00*CO+... & + 5.1000D-01 * RXRAT( 527 ) ! ETHENE+O3P=0.5100D+00*CO+... & + 5.2500D-01 * RXRAT( 529 ) ! PROPENE+O3=0.5250D+00*CO+... & + 2.5500D-01 * RXRAT( 533 ) ! BUTADIENE13+O3=0.2550D+... & + 2.7500D-01 * RXRAT( 536 ) ! ISOPRENE+O3=0.2750D+00*CO+... & + 2.9000D-02 * RXRAT( 539 ) ! APIN+O3=0.2900D-01*CO+... & + 3.0000D-01 * RXRAT( 542 ) ! ACETYLENE+OH=0.3000D+00*CO+... & + 1.5000D+00 * RXRAT( 543 ) ! ACETYLENE+O3=0.1500D+01*CO+... & + 3.0300D-01 * RXRAT( 558 ) ! OLE1+O3=0.3030D+00*CO+... & + 2.9900D-01 * RXRAT( 562 ) ! OLE2+O3=0.2990D+00*CO+... & + 2.4900D-01 * RXRAT( 569 ) ! TERP+O3=0.2490D+00*CO+... & + 1.2000D-02 * RXRAT( 571 ) ! TERPNRO2+NO=0.1200D-01*CO+... & + 2.2000D-02 * RXRAT( 573 ) ! TERPNRO2+NO3=0.2200D-01*CO+... & + 1.1000D-02 * RXRAT( 574 ) ! TERPNRO2+MEO2=0.1100D-... & + 1.1000D-02 * RXRAT( 575 ) ! TERPNRO2+RO2C=0.1100D-... & + 1.1000D-02 * RXRAT( 576 ) ! TERPNRO2+RO2XC=0.1100D-... & + 2.2000D-02 * RXRAT( 577 ) ! TERPNRO2+MECO3=0.2200D-... & + 2.2000D-02 * RXRAT( 578 ) ! TERPNRO2+RCO3=0.2200D-... & + 2.2000D-02 * RXRAT( 579 ) ! TERPNRO2+BZCO3=0.2200D-... & + 2.2000D-02 * RXRAT( 580 ) ! TERPNRO2+MACO3=0.2200D-... & + 2.2000D-02 * RXRAT( 581 ) ! TERPNRO2+IMACO3=0.2200D-... & + 2.4900D-01 * RXRAT( 584 ) ! SESQ+O3=0.2490D+00*CO+... & + RXRAT( 609 ) ! HCHO+CL=CO+HO2+HCL & + 1.2600D+00 * RXRAT( 617 ) ! GLY+CL=0.1260D+01*CO+... & + RXRAT( 618 ) ! MGLY+CL=CO+HCL+MECO3 & + RXRAT( 627 ) ! CLCCHO=CO+HO2+RO2C+xCL+... & + RXRAT( 667 ) ! ACETYLENE+CL=CO+HO2 & + 9.0000D-02 * RXRAT( 728 ) ! HC5OO+NO=0.9000D-01*CO+... & + 4.5000D-02 * RXRAT( 730 ) ! HC5OO+MEO2=0.4500D-01*CO+... & + 4.5000D-02 * RXRAT( 731 ) ! HC5OO+RO2C=0.4500D-01*CO+... & + 9.0000D-02 * RXRAT( 732 ) ! HC5OO+MECO3=0.9000D-01*CO+... & + 5.9000D-01 * RXRAT( 733 ) ! HC5+O3=0.5900D+00*CO+... & + 2.9000D-02 * RXRAT( 740 ) ! ISOPND+O3=0.2900D-01*CO+... & + 2.6000D-01 * RXRAT( 747 ) ! ISOPNB+O3=0.2600D+00*CO+... & + RXRAT( 749 ) ! NIT1NO3OOA+NO3=CO+PROPNN+... & + RXRAT( 750 ) ! NIT1NO3OOA+NO=CO+PROPNN+... & + RXRAT( 753 ) ! NIT1NO3OOA+RO2C=CO+PROPNN+... & + RXRAT( 754 ) ! NIT1NO3OOA+MEO2=CO+PROPNN+... & + RXRAT( 755 ) ! NIT1NO3OOA+MECO3=CO+... & + 4.5000D-01 * RXRAT( 762 ) ! NIT1+O3=0.4500D+00*CO+... & + 1.5000D-02 * RXRAT( 764 ) ! NIT1OHOO+NO=0.1500D-01*CO+... & + 1.1000D-02 * RXRAT( 766 ) ! NIT1OHOO+RO2C=0.1100D-... & + 1.1000D-02 * RXRAT( 767 ) ! NIT1OHOO+MEO2=0.1100D-... & + 1.6000D-02 * RXRAT( 768 ) ! NIT1OHOO+MECO3=0.1600D-... & + 7.2000D-01 * RXRAT( 780 ) ! MACROO+NO=0.7200D+00*CO+... & + 4.2400D-01 * RXRAT( 782 ) ! MACROO+MEO2=0.4240D+00*CO+... & + 4.2400D-01 * RXRAT( 783 ) ! MACROO+RO2C=0.4240D+00*CO+... & + 8.5000D-01 * RXRAT( 784 ) ! MACROO+MECO3=0.8500D+00*CO+... & + RXRAT( 785 ) ! MACO3+NO=CO+NO2+CO2+HCHO+MEO2 & + RXRAT( 787 ) ! MACO3+NO3=CO+NO2+CO2+HCHO+MEO2 & + RXRAT( 788 ) ! MACO3+MEO2=CO+HO2+0.2000D+... & + RXRAT( 789 ) ! MACO3+RO2C=CO+CO2+HCHO+MEO2 & + RXRAT( 790 ) ! MACO3+RO2XC=CO+CO2+HCHO+MEO2 & + RXRAT( 791 ) ! MACO3+MECO3=CO+0.2000D+... & + RXRAT( 792 ) ! MACO3+RCO3=CO+0.2000D+... & + RXRAT( 793 ) ! MACO3+BZCO3=CO+0.2000D+... & + 2.0000D+00 * RXRAT( 794 ) ! MACO3+MACO3=0.2000D+01*CO+... & + RXRAT( 795 ) ! MAPAN+OH=CO+HACET+NO2 & + 5.2000D-01 * RXRAT( 796 ) ! HOCCHO+OH=0.5200D+00*CO+... & + 5.0000D-02 * RXRAT( 797 ) ! HACET+OH=0.5000D-01*CO+... & + RXRAT( 800 ) ! ETHLN=CO+HCHO+HO2+NO2 & + RXRAT( 808 ) ! MACRN=CO+NO2+HACET+HO2 & + 1.5000D+00 * RXRAT( 809 ) ! DHMOB+OH=0.1500D+01*CO+... & + 2.5100D-01 * RXRAT( 814 ) ! IEPOXOO+HO2=0.2510D+00*CO+... & + 2.5100D-01 * RXRAT( 815 ) ! IEPOXOO+NO=0.2510D+00*CO+... & + 1.2600D-01 * RXRAT( 816 ) ! IEPOXOO+MEO2=0.1260D+00*CO+... & + 1.2600D-01 * RXRAT( 817 ) ! IEPOXOO+RO2C=0.1260D+00*CO+... & + 2.5100D-01 * RXRAT( 818 ) ! IEPOXOO+MECO3=0.2510D+... & + 6.7000D-01 * RXRAT( 825 ) ! MACR=0.6700D+00*CO+0.6700D+... & + RXRAT( 827 ) ! IMACO3+NO=CO+NO2+CO2+HCHO+MEO2 & + RXRAT( 829 ) ! IMACO3+NO3=CO+NO2+CO2+HCHO+... & + RXRAT( 830 ) ! IMACO3+MEO2=CO+HO2+0.2000D+... & + RXRAT( 831 ) ! IMACO3+RO2C=CO+CO2+HCHO+MEO2 & + RXRAT( 832 ) ! IMACO3+RO2XC=CO+CO2+HCHO+MEO2 & + RXRAT( 833 ) ! IMACO3+MECO3=CO+0.2000D+... & + RXRAT( 834 ) ! IMACO3+RCO3=CO+0.2000D+... & + RXRAT( 835 ) ! IMACO3+BZCO3=CO+0.2000D+... & + 2.0000D+00 * RXRAT( 836 ) ! IMACO3+MACO3=0.2000D+01*CO+... & + 2.0000D+00 * RXRAT( 837 ) ! IMACO3+IMACO3=0.2000D+... & + RXRAT( 838 ) ! MACROO=CO+HACET+OH & + RXRAT( 842 ) ! xCO+IMACO3=CO+IMACO3 & + 3.0000D-02 * RXRAT( 877 ) ! IMAPAN+OH=0.3000D-01*CO+... LOSS( CO ) = RXRAT( 29 ) ! CO+OH=HO2+CO2 PROD( CO2 ) = RXRAT( 29 ) ! OH+CO=CO2+HO2 & + 4.0000D-01 * RXRAT( 65 ) ! PAN=0.4000D+00*CO2+0.6000D+... & + RXRAT( 66 ) ! MECO3+NO=CO2+MEO2+NO2 & + 4.4000D-01 * RXRAT( 67 ) ! MECO3+HO2=0.4400D+00*CO2+... & + RXRAT( 68 ) ! MECO3+NO3=CO2+MEO2+NO2 & + 9.0000D-01 * RXRAT( 69 ) ! MECO3+MEO2=0.9000D+00*CO2+... & + RXRAT( 70 ) ! MECO3+RO2C=CO2+MEO2 & + RXRAT( 71 ) ! MECO3+RO2XC=CO2+MEO2 & + 2.0000D+00 * RXRAT( 72 ) ! MECO3+MECO3=0.2000D+01*CO2+... & + 4.0000D-01 * RXRAT( 75 ) ! PAN2=0.4000D+00*CO2+... & + RXRAT( 76 ) ! RCO3+NO=CO2+RO2C+xHO2+... & + 4.4000D-01 * RXRAT( 77 ) ! RCO3+HO2=0.4400D+00*CO2+... & + RXRAT( 78 ) ! RCO3+NO3=CO2+RO2C+xHO2+... & + RXRAT( 79 ) ! RCO3+MEO2=CO2+HO2+RO2C+... & + RXRAT( 80 ) ! RCO3+RO2C=CO2+xHO2+xCCHO+... & + RXRAT( 81 ) ! RCO3+RO2XC=CO2+xHO2+xCCHO+... & + 2.0000D+00 * RXRAT( 82 ) ! RCO3+MECO3=0.2000D+01*CO2+... & + 2.0000D+00 * RXRAT( 83 ) ! RCO3+RCO3=0.2000D+01*CO2+... & + 4.0000D-01 * RXRAT( 86 ) ! PBZN=0.4000D+00*CO2+... & + RXRAT( 87 ) ! BZCO3+NO=CO2+NO2+BZO+RO2C & + 4.4000D-01 * RXRAT( 88 ) ! BZCO3+HO2=0.4400D+00*CO2+... & + RXRAT( 89 ) ! BZCO3+NO3=CO2+NO2+BZO+RO2C & + RXRAT( 90 ) ! BZCO3+MEO2=CO2+HO2+RO2C+... & + RXRAT( 91 ) ! BZCO3+RO2C=CO2+BZO+RO2C & + RXRAT( 92 ) ! BZCO3+RO2XC=CO2+BZO+RO2C & + 2.0000D+00 * RXRAT( 93 ) ! BZCO3+MECO3=0.2000D+01*CO2+... & + 2.0000D+00 * RXRAT( 94 ) ! BZCO3+RCO3=0.2000D+01*CO2+... & + 2.0000D+00 * RXRAT( 95 ) ! BZCO3+BZCO3=0.2000D+01*CO2+... & + 4.0000D-01 * RXRAT( 98 ) ! MAPAN=0.4000D+00*CO2+... & + RXRAT( 209 ) ! HCOOH+OH=CO2+HO2 & + 5.0900D-01 * RXRAT( 210 ) ! CCOOH+OH=0.5090D+00*CO2+... & + 1.4300D-01 * RXRAT( 211 ) ! RCOOH+OH=0.1430D+00*CO2+... & + 1.7400D-01 * RXRAT( 237 ) ! AFG1+O3=0.1740D+00*CO2+... & + 1.7400D-01 * RXRAT( 240 ) ! AFG2+O3=0.1740D+00*CO2+... & + 1.9000D-01 * RXRAT( 243 ) ! AFG3+O3=0.1900D+00*CO2+... & + 1.1700D-01 * RXRAT( 244 ) ! MACR+O3=0.1170D+00*CO2+... & + 1.2400D-01 * RXRAT( 246 ) ! MVK+O3=0.1240D+00*CO2+... & + 1.4000D-01 * RXRAT( 250 ) ! IPRD+O3=0.1400D+00*CO2+... & + 3.1000D-01 * RXRAT( 260 ) ! ACROLEIN+O3=0.3100D+00*CO2+... & + 1.0200D-01 * RXRAT( 263 ) ! ACROLEIN=0.1020D+00*CO2+... & + 2.0000D-02 * RXRAT( 264 ) ! CCOOOH+OH=0.2000D-01*CO2+... & + RXRAT( 265 ) ! CCOOOH=CO2+MEO2+OH & + 1.1000D-01 * RXRAT( 266 ) ! RCOOOH+OH=0.1100D+00*CO2+... & + RXRAT( 267 ) ! RCOOOH=CO2+xCCHO+yROOH+xHO2+OH & + RXRAT( 268 ) ! HCOCO3+NO=CO2+CO+HO2+NO2 & + RXRAT( 269 ) ! HCOCO3+NO2=CO2+CO+HO2+NO3 & + 4.4000D-01 * RXRAT( 270 ) ! HCOCO3+HO2=0.4400D+00*CO2+... & + 1.2000D-01 * RXRAT( 525 ) ! ETHENE+O3=0.1200D+00*CO2+... & + 2.1500D-01 * RXRAT( 529 ) ! PROPENE+O3=0.2150D+00*CO2+... & + 1.8500D-01 * RXRAT( 533 ) ! BUTADIENE13+O3=0.1850D+... & + 1.2200D-01 * RXRAT( 536 ) ! ISOPRENE+O3=0.1220D+00*CO2+... & + 1.7000D-02 * RXRAT( 539 ) ! APIN+O3=0.1700D-01*CO2+... & + 5.0000D-01 * RXRAT( 543 ) ! ACETYLENE+O3=0.5000D+... & + 8.8000D-02 * RXRAT( 558 ) ! OLE1+O3=0.8800D-01*CO2+... & + 1.6100D-01 * RXRAT( 562 ) ! OLE2+O3=0.1610D+00*CO2+... & + 6.3000D-02 * RXRAT( 569 ) ! TERP+O3=0.6300D-01*CO2+... & + RXRAT( 577 ) ! TERPNRO2+MECO3=CO2+0.4220D+... & + RXRAT( 578 ) ! TERPNRO2+RCO3=CO2+0.4220D+... & + RXRAT( 579 ) ! TERPNRO2+BZCO3=CO2+0.4220D+... & + RXRAT( 580 ) ! TERPNRO2+MACO3=CO2+0.1043D+... & + RXRAT( 581 ) ! TERPNRO2+IMACO3=CO2+... & + 6.3000D-02 * RXRAT( 584 ) ! SESQ+O3=0.6300D-01*CO2+... & + RXRAT( 715 ) ! ISOPO2+MECO3=CO2+MEO2+... & + RXRAT( 726 ) ! NISOPO2+MECO3=CO2+MEO2+... & + RXRAT( 732 ) ! HC5OO+MECO3=CO2+MEO2+... & + 8.0000D-02 * RXRAT( 733 ) ! HC5+O3=0.8000D-01*CO2+... & + RXRAT( 739 ) ! ISOPNOOD+MECO3=CO2+MEO2+... & + 1.7000D-02 * RXRAT( 740 ) ! ISOPND+O3=0.1700D-01*CO2+... & + RXRAT( 746 ) ! ISOPNOOB+MECO3=CO2+MEO2+... & + 7.0000D-02 * RXRAT( 747 ) ! ISOPNB+O3=0.7000D-01*CO2+... & + RXRAT( 749 ) ! NIT1NO3OOA+NO3=CO2+PROPNN+... & + RXRAT( 750 ) ! NIT1NO3OOA+NO=CO2+PROPNN+... & + RXRAT( 753 ) ! NIT1NO3OOA+RO2C=CO2+CO+... & + RXRAT( 754 ) ! NIT1NO3OOA+MEO2=CO2+CO+... & + 2.0000D+00 * RXRAT( 755 ) ! NIT1NO3OOA+MECO3=0.2000D+... & + RXRAT( 761 ) ! NIT1NO3OOB+MECO3=CO2+MEO2+... & + 1.5000D-01 * RXRAT( 762 ) ! NIT1+O3=0.1500D+00*CO2+... & + RXRAT( 768 ) ! NIT1OHOO+MECO3=CO2+MEO2+... & + RXRAT( 773 ) ! DIBOO+MECO3=CO2+0.5200D+... & + RXRAT( 779 ) ! MVKOO+MECO3=CO2+MEO2+... & + RXRAT( 784 ) ! MACROO+MECO3=CO2+MEO2+HO2+... & + RXRAT( 785 ) ! MACO3+NO=CO2+CO+NO2+HCHO+MEO2 & + 4.4000D-01 * RXRAT( 786 ) ! MACO3+HO2=0.4400D+00*CO2+... & + RXRAT( 787 ) ! MACO3+NO3=CO2+CO+NO2+HCHO+MEO2 & + RXRAT( 788 ) ! MACO3+MEO2=CO2+HO2+CO+... & + RXRAT( 789 ) ! MACO3+RO2C=CO2+CO+HCHO+MEO2 & + RXRAT( 790 ) ! MACO3+RO2XC=CO2+CO+HCHO+MEO2 & + 2.0000D+00 * RXRAT( 791 ) ! MACO3+MECO3=0.2000D+01*CO2+... & + 2.0000D+00 * RXRAT( 792 ) ! MACO3+RCO3=0.2000D+01*CO2+... & + 2.0000D+00 * RXRAT( 793 ) ! MACO3+BZCO3=0.2000D+01*CO2+... & + 2.0000D+00 * RXRAT( 794 ) ! MACO3+MACO3=0.2000D+01*CO2+... & + 3.5000D-01 * RXRAT( 796 ) ! HOCCHO+OH=0.3500D+00*CO2+... & + 2.0000D-01 * RXRAT( 797 ) ! HACET+OH=0.2000D+00*CO2+... & + RXRAT( 799 ) ! ETHLN+OH=CO2+HCHO+NO2 & + 9.3000D-01 * RXRAT( 807 ) ! MACRN+OH=0.9300D+00*CO2+... & + RXRAT( 810 ) ! PYRUACD=CO2+CCHO & + 2.0000D-01 * RXRAT( 814 ) ! IEPOXOO+HO2=0.2000D+00*CO2+... & + 2.0000D-01 * RXRAT( 815 ) ! IEPOXOO+NO=0.2000D+00*CO2+... & + 1.0000D-01 * RXRAT( 816 ) ! IEPOXOO+MEO2=0.1000D+... & + 1.0000D-01 * RXRAT( 817 ) ! IEPOXOO+RO2C=0.1000D+... & + 1.2000D+00 * RXRAT( 818 ) ! IEPOXOO+MECO3=0.1200D+... & + RXRAT( 827 ) ! IMACO3+NO=CO2+CO+NO2+HCHO+MEO2 & + RXRAT( 829 ) ! IMACO3+NO3=CO2+CO+NO2+HCHO+... & + RXRAT( 830 ) ! IMACO3+MEO2=CO2+HO2+CO+... & + RXRAT( 831 ) ! IMACO3+RO2C=CO2+CO+HCHO+MEO2 & + RXRAT( 832 ) ! IMACO3+RO2XC=CO2+CO+HCHO+MEO2 & + 2.0000D+00 * RXRAT( 833 ) ! IMACO3+MECO3=0.2000D+... & + 2.0000D+00 * RXRAT( 834 ) ! IMACO3+RCO3=0.2000D+01*CO2+... & + 2.0000D+00 * RXRAT( 835 ) ! IMACO3+BZCO3=0.2000D+... & + 2.0000D+00 * RXRAT( 836 ) ! IMACO3+MACO3=0.2000D+... & + 2.0000D+00 * RXRAT( 837 ) ! IMACO3+IMACO3=0.2000D+... & + 4.0000D-01 * RXRAT( 841 ) ! IMAPAN=0.4000D+00*CO2+... LOSS( CO2 ) = 0.0D0 PROD( HO2H ) = RXRAT( 37 ) ! HO2+HO2=HO2H & + RXRAT( 38 ) ! HO2+HO2=HO2H LOSS( HO2H ) = RXRAT( 41 ) ! HO2H=0.2000D+01*OH & + RXRAT( 42 ) ! HO2H+OH=HO2 PROD( SO2 ) = 0.0D0 LOSS( SO2 ) = RXRAT( 44 ) ! SO2+OH=HO2+SULF+SULRXN PROD( SULF ) = RXRAT( 44 ) ! OH+SO2=SULF+HO2+SULRXN LOSS( SULF ) = 0.0D0 PROD( SULRXN ) = RXRAT( 44 ) ! OH+SO2=SULRXN+SULF+HO2 LOSS( SULRXN ) = 0.0D0 PROD( MEO2 ) = 4.0000D-01 * RXRAT( 65 ) ! PAN=0.4000D+00*MEO2+... & + RXRAT( 66 ) ! MECO3+NO=MEO2+CO2+NO2 & + 4.4000D-01 * RXRAT( 67 ) ! MECO3+HO2=0.4400D+00*MEO2+... & + RXRAT( 68 ) ! MECO3+NO3=MEO2+CO2+NO2 & + RXRAT( 70 ) ! MECO3+RO2C=MEO2+CO2 & + RXRAT( 71 ) ! MECO3+RO2XC=MEO2+CO2 & + 2.0000D+00 * RXRAT( 72 ) ! MECO3+MECO3=0.2000D+... & + RXRAT( 82 ) ! RCO3+MECO3=MEO2+0.2000D+... & + RXRAT( 93 ) ! BZCO3+MECO3=MEO2+0.2000D+... & + RXRAT( 100 ) ! TBUO=MEO2+ACETONE & + RXRAT( 134 ) ! xMEO2+NO=MEO2+NO & + RXRAT( 136 ) ! xMEO2+NO3=MEO2+NO3 & + 5.0000D-01 * RXRAT( 137 ) ! xMEO2+MEO2=0.1500D+01*MEO2 & + 5.0000D-01 * RXRAT( 138 ) ! xMEO2+RO2C=0.5000D+00*MEO2+... & + 5.0000D-01 * RXRAT( 139 ) ! xMEO2+RO2XC=0.5000D+... & + RXRAT( 140 ) ! xMEO2+MECO3=MEO2+MECO3 & + RXRAT( 141 ) ! xMEO2+RCO3=MEO2+RCO3 & + RXRAT( 142 ) ! xMEO2+BZCO3=MEO2+BZCO3 & + RXRAT( 143 ) ! xMEO2+MACO3=MEO2+MACO3 & + RXRAT( 199 ) ! CCHO=MEO2+HO2+CO & + 1.3800D+00 * RXRAT( 205 ) ! ACETONE=0.1380D+01*MEO2+... & + 5.0900D-01 * RXRAT( 210 ) ! CCOOH+OH=0.5090D+00*MEO2+... & + 7.0000D-01 * RXRAT( 212 ) ! COOH+OH=0.7000D+00*MEO2+... & + 1.7300D-01 * RXRAT( 238 ) ! AFG1=0.1730D+00*MEO2+... & + 4.0000D-01 * RXRAT( 248 ) ! MVK=0.4000D+00*MEO2+... & + 2.3400D-01 * RXRAT( 263 ) ! ACROLEIN=0.2340D+00*MEO2+... & + RXRAT( 265 ) ! CCOOOH=MEO2+CO2+OH & + RXRAT( 523 ) ! OH=MEO2 & + 5.1000D-01 * RXRAT( 527 ) ! ETHENE+O3P=0.5100D+00*MEO2+... & + 3.5500D-01 * RXRAT( 529 ) ! PROPENE+O3=0.3550D+00*MEO2+... & + 2.5000D-01 * RXRAT( 537 ) ! ISOPRENE+O3P=0.2500D+... & + 3.0700D-01 * RXRAT( 562 ) ! OLE2+O3=0.3070D+00*MEO2+... & + RXRAT( 577 ) ! TERPNRO2+MECO3=MEO2+... & + RXRAT( 661 ) ! CL=MEO2+HCL & + RXRAT( 715 ) ! ISOPO2+MECO3=MEO2+CO2+... & + RXRAT( 726 ) ! NISOPO2+MECO3=MEO2+CO2+... & + RXRAT( 732 ) ! HC5OO+MECO3=MEO2+CO2+... & + RXRAT( 739 ) ! ISOPNOOD+MECO3=MEO2+CO2+... & + RXRAT( 746 ) ! ISOPNOOB+MECO3=MEO2+CO2+... & + RXRAT( 755 ) ! NIT1NO3OOA+MECO3=MEO2+... & + RXRAT( 761 ) ! NIT1NO3OOB+MECO3=MEO2+CO2+... & + RXRAT( 768 ) ! NIT1OHOO+MECO3=MEO2+CO2+... & + RXRAT( 773 ) ! DIBOO+MECO3=MEO2+0.5200D+... & + RXRAT( 779 ) ! MVKOO+MECO3=MEO2+CO2+... & + RXRAT( 784 ) ! MACROO+MECO3=MEO2+CO2+HO2+... & + RXRAT( 785 ) ! MACO3+NO=MEO2+CO+CO2+HCHO+NO2 & + RXRAT( 787 ) ! MACO3+NO3=MEO2+CO+CO2+HCHO+NO2 & + RXRAT( 789 ) ! MACO3+RO2C=MEO2+CO2+HCHO+CO & + RXRAT( 790 ) ! MACO3+RO2XC=MEO2+CO2+HCHO+CO & + 2.0000D+00 * RXRAT( 791 ) ! MACO3+MECO3=0.2000D+... & + RXRAT( 792 ) ! MACO3+RCO3=MEO2+0.2000D+... & + RXRAT( 793 ) ! MACO3+BZCO3=MEO2+0.2000D+... & + 2.0000D+00 * RXRAT( 794 ) ! MACO3+MACO3=0.2000D+... & + 1.2500D-01 * RXRAT( 797 ) ! HACET+OH=0.1250D+00*MEO2+... & + RXRAT( 818 ) ! IEPOXOO+MECO3=MEO2+0.2750D+... & + RXRAT( 827 ) ! IMACO3+NO=MEO2+CO+CO2+HCHO+NO2 & + RXRAT( 829 ) ! IMACO3+NO3=MEO2+CO+CO2+... & + RXRAT( 831 ) ! IMACO3+RO2C=MEO2+CO2+HCHO+CO & + RXRAT( 832 ) ! IMACO3+RO2XC=MEO2+CO2+HCHO+CO & + 2.0000D+00 * RXRAT( 833 ) ! IMACO3+MECO3=0.2000D+... & + RXRAT( 834 ) ! IMACO3+RCO3=MEO2+0.2000D+... & + RXRAT( 835 ) ! IMACO3+BZCO3=MEO2+0.2000D+... & + 2.0000D+00 * RXRAT( 836 ) ! IMACO3+MACO3=0.2000D+... & + 2.0000D+00 * RXRAT( 837 ) ! IMACO3+IMACO3=0.2000D+... & + RXRAT( 847 ) ! xMEO2+IMACO3=MEO2+IMACO3 LOSS( MEO2 ) = RXRAT( 46 ) ! MEO2+NO=NO2+HCHO+HO2 & + RXRAT( 47 ) ! MEO2+HO2=COOH & + RXRAT( 48 ) ! MEO2+HO2=HCHO & + RXRAT( 49 ) ! MEO2+NO3=HCHO+HO2+NO2 & + 2.0000D+00 * RXRAT( 50 ) ! MEO2+MEO2=MEOH+HCHO & + 2.0000D+00 * RXRAT( 51 ) ! MEO2+MEO2=0.2000D+01*HCHO+... & + RXRAT( 55 ) ! MEO2+RO2C=0.5000D+00*HO2+... & + RXRAT( 60 ) ! MEO2+RO2XC=0.5000D+00*HO2+... & + 1.0000D-01 * RXRAT( 69 ) ! MEO2+MECO3=0.9000D+00*MEO2+... & + RXRAT( 79 ) ! MEO2+RCO3=HCHO+HO2+RO2C+... & + RXRAT( 90 ) ! MEO2+BZCO3=HCHO+HO2+RO2C+... & + RXRAT( 574 ) ! MEO2+TERPNRO2=0.2660D+... & + RXRAT( 712 ) ! MEO2+ISOPO2=0.9500D+00*HO2+... & + RXRAT( 723 ) ! MEO2+NISOPO2=0.6000D+... & + RXRAT( 730 ) ! MEO2+HC5OO=0.1170D+... & + RXRAT( 737 ) ! MEO2+ISOPNOOD=0.1700D+... & + RXRAT( 744 ) ! MEO2+ISOPNOOB=0.3000D+... & + RXRAT( 754 ) ! MEO2+NIT1NO3OOA=PROPNN+CO+... & + RXRAT( 760 ) ! MEO2+NIT1NO3OOB=0.7000D+... & + RXRAT( 767 ) ! MEO2+NIT1OHOO=0.6890D+... & + RXRAT( 771 ) ! MEO2+DIBOO=HO2+0.2600D+... & + RXRAT( 777 ) ! MEO2+MVKOO=0.3500D+... & + RXRAT( 782 ) ! MEO2+MACROO=HO2+0.4240D+... & + RXRAT( 816 ) ! MEO2+IEPOXOO=0.3630D+... PROD( HCHO ) = RXRAT( 46 ) ! MEO2+NO=HCHO+NO2+HO2 & + RXRAT( 48 ) ! MEO2+HO2=HCHO & + RXRAT( 49 ) ! MEO2+NO3=HCHO+HO2+NO2 & + RXRAT( 50 ) ! MEO2+MEO2=HCHO+MEOH & + 2.0000D+00 * RXRAT( 51 ) ! MEO2+MEO2=0.2000D+01*HCHO+... & + 7.5000D-01 * RXRAT( 55 ) ! RO2C+MEO2=0.7500D+00*HCHO+... & + 7.5000D-01 * RXRAT( 60 ) ! RO2XC+MEO2=0.7500D+00*HCHO+... & + RXRAT( 69 ) ! MECO3+MEO2=HCHO+0.1000D+... & + RXRAT( 79 ) ! RCO3+MEO2=HCHO+HO2+RO2C+... & + RXRAT( 90 ) ! BZCO3+MEO2=HCHO+HO2+RO2C+... & + 4.0000D-01 * RXRAT( 98 ) ! MAPAN=0.4000D+00*HCHO+... & + RXRAT( 208 ) ! MEOH+OH=HCHO+HO2 & + 3.0000D-01 * RXRAT( 212 ) ! COOH+OH=0.3000D+00*HCHO+... & + RXRAT( 213 ) ! COOH=HCHO+HO2+OH & + RXRAT( 221 ) ! GLY=HCHO+CO & + 1.0000D-01 * RXRAT( 244 ) ! MACR+O3=0.1000D+00*HCHO+... & + 5.0000D-02 * RXRAT( 246 ) ! MVK+O3=0.5000D-01*HCHO+... & + 1.2400D-01 * RXRAT( 250 ) ! IPRD+O3=0.1240D+00*HCHO+... & + 3.0000D-01 * RXRAT( 252 ) ! IPRD=0.3000D+00*HCHO+... & + 2.0000D-03 * RXRAT( 253 ) ! PRD2+OH=0.2000D-02*HCHO+... & + 7.4000D-02 * RXRAT( 256 ) ! RNO3=0.7400D-01*HCHO+... & + RXRAT( 257 ) ! HOCCHO=HCHO+0.2000D+01*HO2+CO & + 5.0000D-01 * RXRAT( 260 ) ! ACROLEIN+O3=0.5000D+... & + 3.4000D-01 * RXRAT( 263 ) ! ACROLEIN=0.3400D+00*HCHO+... & + RXRAT( 271 ) ! xHCHO+NO=HCHO+NO & + RXRAT( 273 ) ! xHCHO+NO3=HCHO+NO3 & + 5.0000D-01 * RXRAT( 274 ) ! xHCHO+MEO2=0.5000D+00*HCHO+... & + 5.0000D-01 * RXRAT( 275 ) ! xHCHO+RO2C=0.5000D+00*HCHO+... & + 5.0000D-01 * RXRAT( 276 ) ! xHCHO+RO2XC=0.5000D+... & + RXRAT( 277 ) ! xHCHO+MECO3=HCHO+MECO3 & + RXRAT( 278 ) ! xHCHO+RCO3=HCHO+RCO3 & + RXRAT( 279 ) ! xHCHO+BZCO3=HCHO+BZCO3 & + RXRAT( 280 ) ! xHCHO+MACO3=HCHO+MACO3 & + RXRAT( 525 ) ! ETHENE+O3=HCHO+0.1600D+... & + 5.0000D-01 * RXRAT( 529 ) ! PROPENE+O3=0.5000D+00*HCHO+... & + 5.0000D-01 * RXRAT( 533 ) ! BUTADIENE13+O3=0.5000D+... & + 4.0000D-01 * RXRAT( 536 ) ! ISOPRENE+O3=0.4000D+... & + 5.0000D-01 * RXRAT( 558 ) ! OLE1+O3=0.5000D+00*HCHO+... & + 1.3100D-01 * RXRAT( 562 ) ! OLE2+O3=0.1310D+00*HCHO+... & + 1.2700D-01 * RXRAT( 569 ) ! TERP+O3=0.1270D+00*HCHO+... & + 2.3000D-02 * RXRAT( 571 ) ! TERPNRO2+NO=0.2300D-... & + 4.3000D-02 * RXRAT( 573 ) ! TERPNRO2+NO3=0.4300D-... & + 7.7200D-01 * RXRAT( 574 ) ! TERPNRO2+MEO2=0.7720D+... & + 2.2000D-02 * RXRAT( 575 ) ! TERPNRO2+RO2C=0.2200D-... & + 2.2000D-02 * RXRAT( 576 ) ! TERPNRO2+RO2XC=0.2200D-... & + 4.3000D-02 * RXRAT( 577 ) ! TERPNRO2+MECO3=0.4300D-... & + 4.3000D-02 * RXRAT( 578 ) ! TERPNRO2+RCO3=0.4300D-... & + 4.3000D-02 * RXRAT( 579 ) ! TERPNRO2+BZCO3=0.4300D-... & + 1.0430D+00 * RXRAT( 580 ) ! TERPNRO2+MACO3=0.1043D+... & + 1.0430D+00 * RXRAT( 581 ) ! TERPNRO2+IMACO3=0.1043D+... & + 1.2700D-01 * RXRAT( 584 ) ! SESQ+O3=0.1270D+00*HCHO+... & + RXRAT( 611 ) ! MEOH+CL=HCHO+HCL+HO2 & + 6.6000D-01 * RXRAT( 710 ) ! ISOPO2+NO=0.6600D+00*HCHO+... & + 1.2000D-01 * RXRAT( 711 ) ! ISOPO2+HO2=0.1200D+00*HCHO+... & + 1.1200D+00 * RXRAT( 712 ) ! ISOPO2+MEO2=0.1120D+... & + 3.7000D-01 * RXRAT( 713 ) ! ISOPO2+RO2C=0.3700D+... & + 7.5000D-01 * RXRAT( 714 ) ! ISOPO2+ISOPO2=0.7500D+... & + 7.5000D-01 * RXRAT( 715 ) ! ISOPO2+MECO3=0.7500D+... & + RXRAT( 717 ) ! HPALD=HCHO+HO2+0.5000D+... & + 7.0000D-02 * RXRAT( 720 ) ! NISOPO2+NO3=0.7000D-... & + 7.0000D-02 * RXRAT( 721 ) ! NISOPO2+NO=0.7000D-01*HCHO+... & + 7.8500D-01 * RXRAT( 723 ) ! NISOPO2+MEO2=0.7850D+... & + 3.5000D-02 * RXRAT( 724 ) ! NISOPO2+RO2C=0.3500D-... & + 7.0000D-02 * RXRAT( 725 ) ! NISOPO2+NISOPO2=0.7000D-... & + 7.0000D-02 * RXRAT( 726 ) ! NISOPO2+MECO3=0.7000D-... & + 7.5000D-01 * RXRAT( 730 ) ! HC5OO+MEO2=0.7500D+00*HCHO+... & + 2.0000D-02 * RXRAT( 733 ) ! HC5+O3=0.2000D-01*HCHO+... & + 7.2000D-01 * RXRAT( 735 ) ! ISOPNOOD+NO=0.7200D+... & + 1.1100D+00 * RXRAT( 737 ) ! ISOPNOOD+MEO2=0.1110D+... & + 3.6000D-01 * RXRAT( 738 ) ! ISOPNOOD+RO2C=0.3600D+... & + 7.2000D-01 * RXRAT( 739 ) ! ISOPNOOD+MECO3=0.7200D+... & + 3.8000D-02 * RXRAT( 740 ) ! ISOPND+O3=0.3800D-01*HCHO+... & + 4.0000D-01 * RXRAT( 742 ) ! ISOPNOOB+NO=0.4000D+... & + 9.5000D-01 * RXRAT( 744 ) ! ISOPNOOB+MEO2=0.9500D+... & + 2.0000D-01 * RXRAT( 745 ) ! ISOPNOOB+RO2C=0.2000D+... & + 4.0000D-01 * RXRAT( 746 ) ! ISOPNOOB+MECO3=0.4000D+... & + 5.6000D-01 * RXRAT( 747 ) ! ISOPNB+O3=0.5600D+00*HCHO+... & + RXRAT( 754 ) ! NIT1NO3OOA+MEO2=HCHO+CO+... & + 7.5000D-01 * RXRAT( 760 ) ! NIT1NO3OOB+MEO2=0.7500D+... & + 7.5000D-01 * RXRAT( 767 ) ! NIT1OHOO+MEO2=0.7500D+... & + 7.5000D-01 * RXRAT( 771 ) ! DIBOO+MEO2=0.7500D+00*HCHO+... & + 2.6500D-01 * RXRAT( 775 ) ! MVKOO+NO=0.2650D+00*HCHO+... & + 9.0000D-01 * RXRAT( 777 ) ! MVKOO+MEO2=0.9000D+00*HCHO+... & + 1.5000D-01 * RXRAT( 778 ) ! MVKOO+RO2C=0.1500D+00*HCHO+... & + 3.0000D-01 * RXRAT( 779 ) ! MVKOO+MECO3=0.3000D+... & + 1.3000D-01 * RXRAT( 780 ) ! MACROO+NO=0.1300D+00*HCHO+... & + 8.2600D-01 * RXRAT( 782 ) ! MACROO+MEO2=0.8260D+... & + 7.6000D-02 * RXRAT( 783 ) ! MACROO+RO2C=0.7600D-... & + 1.5000D-01 * RXRAT( 784 ) ! MACROO+MECO3=0.1500D+... & + RXRAT( 785 ) ! MACO3+NO=HCHO+CO+CO2+NO2+MEO2 & + 4.4000D-01 * RXRAT( 786 ) ! MACO3+HO2=0.4400D+00*HCHO+... & + RXRAT( 787 ) ! MACO3+NO3=HCHO+CO+CO2+NO2+MEO2 & + 2.0000D+00 * RXRAT( 788 ) ! MACO3+MEO2=0.2000D+01*HCHO+... & + RXRAT( 789 ) ! MACO3+RO2C=HCHO+CO2+CO+MEO2 & + RXRAT( 790 ) ! MACO3+RO2XC=HCHO+CO2+CO+MEO2 & + RXRAT( 791 ) ! MACO3+MECO3=HCHO+0.2000D+... & + RXRAT( 792 ) ! MACO3+RCO3=HCHO+0.2000D+... & + RXRAT( 793 ) ! MACO3+BZCO3=HCHO+0.2000D+... & + 2.0000D+00 * RXRAT( 794 ) ! MACO3+MACO3=0.2000D+... & + 7.1000D-01 * RXRAT( 796 ) ! HOCCHO+OH=0.7100D+00*HCHO+... & + RXRAT( 798 ) ! HACET=HCHO+MECO3+HO2 & + RXRAT( 799 ) ! ETHLN+OH=HCHO+CO2+NO2 & + RXRAT( 800 ) ! ETHLN=HCHO+NO2+HO2+CO & + RXRAT( 803 ) ! PROPNN=HCHO+MECO3+NO2 & + RXRAT( 804 ) ! ISOPNN=HCHO+MECO3+0.2000D+... & + 3.5000D-01 * RXRAT( 805 ) ! MVKN+OH=0.3500D+00*HCHO+... & + 8.0000D-02 * RXRAT( 807 ) ! MACRN+OH=0.8000D-01*HCHO+... & + 3.7500D-01 * RXRAT( 814 ) ! IEPOXOO+HO2=0.3750D+... & + 3.7500D-01 * RXRAT( 815 ) ! IEPOXOO+NO=0.3750D+00*HCHO+... & + 9.3800D-01 * RXRAT( 816 ) ! IEPOXOO+MEO2=0.9380D+... & + 1.8800D-01 * RXRAT( 817 ) ! IEPOXOO+RO2C=0.1880D+... & + 3.7500D-01 * RXRAT( 818 ) ! IEPOXOO+MECO3=0.3750D+... & + 7.5000D-01 * RXRAT( 819 ) ! ISOPOOH=0.7500D+00*HCHO+... & + 3.4000D-01 * RXRAT( 825 ) ! MACR=0.3400D+00*HCHO+... & + RXRAT( 827 ) ! IMACO3+NO=HCHO+CO+CO2+NO2+MEO2 & + RXRAT( 829 ) ! IMACO3+NO3=HCHO+CO+CO2+NO2+... & + 2.0000D+00 * RXRAT( 830 ) ! IMACO3+MEO2=0.2000D+... & + RXRAT( 831 ) ! IMACO3+RO2C=HCHO+CO2+CO+MEO2 & + RXRAT( 832 ) ! IMACO3+RO2XC=HCHO+CO2+CO+MEO2 & + RXRAT( 833 ) ! IMACO3+MECO3=HCHO+0.2000D+... & + RXRAT( 834 ) ! IMACO3+RCO3=HCHO+0.2000D+... & + RXRAT( 835 ) ! IMACO3+BZCO3=HCHO+0.2000D+... & + 2.0000D+00 * RXRAT( 836 ) ! IMACO3+MACO3=0.2000D+... & + 2.0000D+00 * RXRAT( 837 ) ! IMACO3+IMACO3=0.2000D+... & + 4.0000D-01 * RXRAT( 841 ) ! IMAPAN=0.4000D+00*HCHO+... & + RXRAT( 873 ) ! xHCHO+IMACO3=HCHO+IMACO3 & + 1.9000D-01 * RXRAT( 877 ) ! IMAPAN+OH=0.1900D+00*HCHO+... & + 7.4000D-02 * RXRAT( 883 ) ! MTNO3=0.7400D-01*HCHO+... LOSS( HCHO ) = RXRAT( 194 ) ! HCHO=0.2000D+01*HO2+CO & + RXRAT( 195 ) ! HCHO=CO & + RXRAT( 196 ) ! HCHO+OH=HO2+CO & + RXRAT( 197 ) ! HCHO+NO3=HNO3+HO2+CO & + RXRAT( 609 ) ! HCHO+CL=HCL+HO2+CO PROD( COOH ) = RXRAT( 47 ) ! MEO2+HO2=COOH LOSS( COOH ) = RXRAT( 212 ) ! COOH+OH=0.3000D+00*HCHO+... & + RXRAT( 213 ) ! COOH=HCHO+HO2+OH PROD( MEOH ) = RXRAT( 50 ) ! MEO2+MEO2=MEOH+HCHO & + 2.5000D-01 * RXRAT( 55 ) ! RO2C+MEO2=0.2500D+00*MEOH+... & + 2.5000D-01 * RXRAT( 60 ) ! RO2XC+MEO2=0.2500D+00*MEOH+... & + 2.5000D-01 * RXRAT( 574 ) ! TERPNRO2+MEO2=0.2500D+... & + 2.5000D-01 * RXRAT( 712 ) ! ISOPO2+MEO2=0.2500D+... & + 2.5000D-01 * RXRAT( 723 ) ! NISOPO2+MEO2=0.2500D+... & + 2.5000D-01 * RXRAT( 730 ) ! HC5OO+MEO2=0.2500D+00*MEOH+... & + 2.5000D-01 * RXRAT( 737 ) ! ISOPNOOD+MEO2=0.2500D+... & + 2.5000D-01 * RXRAT( 744 ) ! ISOPNOOB+MEO2=0.2500D+... & + 2.5000D-01 * RXRAT( 760 ) ! NIT1NO3OOB+MEO2=0.2500D+... & + 2.5000D-01 * RXRAT( 767 ) ! NIT1OHOO+MEO2=0.2500D+... & + 2.5000D-01 * RXRAT( 771 ) ! DIBOO+MEO2=0.2500D+00*MEOH+... & + 2.5000D-01 * RXRAT( 777 ) ! MVKOO+MEO2=0.2500D+00*MEOH+... & + 2.5000D-01 * RXRAT( 782 ) ! MACROO+MEO2=0.2500D+... & + 2.5000D-01 * RXRAT( 816 ) ! IEPOXOO+MEO2=0.2500D+... LOSS( MEOH ) = RXRAT( 208 ) ! MEOH+OH=HCHO+HO2 & + RXRAT( 611 ) ! MEOH+CL=HCL+HCHO+HO2 PROD( RO2C ) = 4.0000D-01 * RXRAT( 75 ) ! PAN2=0.4000D+00*RO2C+... & + RXRAT( 76 ) ! RCO3+NO=RO2C+NO2+xHO2+... & + 4.4000D-01 * RXRAT( 77 ) ! RCO3+HO2=0.4400D+00*RO2C+... & + RXRAT( 78 ) ! RCO3+NO3=RO2C+NO2+xHO2+... & + RXRAT( 79 ) ! RCO3+MEO2=RO2C+HO2+HCHO+... & + RXRAT( 81 ) ! RCO3+RO2XC=RO2C+xHO2+xCCHO+... & + RXRAT( 82 ) ! RCO3+MECO3=RO2C+MEO2+... & + 2.0000D+00 * RXRAT( 83 ) ! RCO3+RCO3=0.2000D+01*RO2C+... & + 4.0000D-01 * RXRAT( 86 ) ! PBZN=0.4000D+00*RO2C+... & + RXRAT( 87 ) ! BZCO3+NO=RO2C+CO2+BZO+NO2 & + 4.4000D-01 * RXRAT( 88 ) ! BZCO3+HO2=0.4400D+00*RO2C+... & + RXRAT( 89 ) ! BZCO3+NO3=RO2C+CO2+BZO+NO2 & + RXRAT( 90 ) ! BZCO3+MEO2=RO2C+HO2+HCHO+... & + RXRAT( 92 ) ! BZCO3+RO2XC=RO2C+BZO+CO2 & + RXRAT( 93 ) ! BZCO3+MECO3=RO2C+MEO2+BZO+... & + 2.0000D+00 * RXRAT( 94 ) ! BZCO3+RCO3=0.2000D+01*RO2C+... & + 2.0000D+00 * RXRAT( 95 ) ! BZCO3+BZCO3=0.2000D+... & + RXRAT( 103 ) ! BZO=RO2C+CRES+xHO2 & + 3.5000D-02 * RXRAT( 201 ) ! RCHO+OH=0.3500D-01*RO2C+... & + RXRAT( 202 ) ! RCHO=RO2C+xHO2+yROOH+xCCHO+... & + RXRAT( 204 ) ! ACETONE+OH=RO2C+xMECO3+... & + 9.6700D-01 * RXRAT( 206 ) ! MEK+OH=0.9670D+00*RO2C+... & + RXRAT( 207 ) ! MEK=RO2C+MECO3+xHO2+xCCHO+... & + 4.9100D-01 * RXRAT( 210 ) ! CCOOH+OH=0.4910D+00*RO2C+... & + RXRAT( 211 ) ! RCOOH+OH=RO2C+xHO2+0.1430D+... & + 2.5100D-01 * RXRAT( 214 ) ! ROOH+OH=0.2510D+00*RO2C+... & + 2.2200D-01 * RXRAT( 216 ) ! R6OOH+OH=0.2220D+00*RO2C+... & + 7.8200D-01 * RXRAT( 217 ) ! R6OOH=0.7820D+00*RO2C+... & + 5.8900D-01 * RXRAT( 218 ) ! RAOOH+OH=0.5890D+00*RO2C+... & + 8.0000D-01 * RXRAT( 228 ) ! CRES+OH=0.8000D+00*RO2C+... & + 7.2300D-01 * RXRAT( 236 ) ! AFG1+OH=0.7230D+00*RO2C+... & + 6.5200D-01 * RXRAT( 237 ) ! AFG1+O3=0.6520D+00*RO2C+... & + 7.2300D-01 * RXRAT( 239 ) ! AFG2+OH=0.7230D+00*RO2C+... & + 6.5200D-01 * RXRAT( 240 ) ! AFG2+O3=0.6520D+00*RO2C+... & + 7.3300D-01 * RXRAT( 242 ) ! AFG3+OH=0.7330D+00*RO2C+... & + 2.5800D-01 * RXRAT( 243 ) ! AFG3+O3=0.2580D+00*RO2C+... & + 1.0000D-01 * RXRAT( 244 ) ! MACR+O3=0.1000D+00*RO2C+... & + 5.0000D-02 * RXRAT( 246 ) ! MVK+O3=0.5000D-01*RO2C+... & + 6.7000D-01 * RXRAT( 249 ) ! IPRD+OH=0.6700D+00*RO2C+... & + 4.8000D-02 * RXRAT( 250 ) ! IPRD+O3=0.4800D-01*RO2C+... & + 7.9900D-01 * RXRAT( 251 ) ! IPRD+NO3=0.7990D+00*RO2C+... & + 4.7300D-01 * RXRAT( 253 ) ! PRD2+OH=0.4730D+00*RO2C+... & + 1.5900D+00 * RXRAT( 254 ) ! PRD2=0.1590D+01*RO2C+... & + 9.7600D-01 * RXRAT( 255 ) ! RNO3+OH=0.9760D+00*RO2C+... & + 7.2100D-01 * RXRAT( 256 ) ! RNO3=0.7210D+00*RO2C+... & + 2.5000D-01 * RXRAT( 259 ) ! ACROLEIN+OH=0.2500D+... & + 3.1000D-02 * RXRAT( 261 ) ! ACROLEIN+NO3=0.3100D-... & + 2.0000D-02 * RXRAT( 264 ) ! CCOOOH+OH=0.2000D-01*RO2C+... & + 1.9400D-01 * RXRAT( 266 ) ! RCOOOH+OH=0.1940D+00*RO2C+... & + RXRAT( 524 ) ! ETHENE+OH=RO2C+xHO2+... & + RXRAT( 526 ) ! ETHENE+NO3=RO2C+xHO2+xRCHO+... & + 2.9000D-01 * RXRAT( 527 ) ! ETHENE+O3P=0.2900D+00*RO2C+... & + 9.8400D-01 * RXRAT( 528 ) ! PROPENE+OH=0.9840D+00*RO2C+... & + 9.4900D-01 * RXRAT( 530 ) ! PROPENE+NO3=0.9490D+... & + 1.1890D+00 * RXRAT( 532 ) ! BUTADIENE13+OH=0.1189D+... & + 1.0550D+00 * RXRAT( 534 ) ! BUTADIENE13+NO3=0.1055D+... & + 2.3500D-01 * RXRAT( 535 ) ! BUTADIENE13+O3P=0.2350D+... & + 1.9200D-01 * RXRAT( 536 ) ! ISOPRENE+O3=0.1920D+... & + 2.4000D-01 * RXRAT( 537 ) ! ISOPRENE+O3P=0.2400D+... & + 1.0420D+00 * RXRAT( 538 ) ! APIN+OH=0.1042D+01*RO2C+... & + 1.5110D+00 * RXRAT( 539 ) ! APIN+O3=0.1511D+01*RO2C+... & + 1.0500D+00 * RXRAT( 540 ) ! APIN+NO3=0.1050D+01*RO2C+... & + 2.9000D-01 * RXRAT( 544 ) ! BENZENE+OH=0.2900D+00*RO2C+... & + 4.5400D-01 * RXRAT( 545 ) ! TOLUENE+OH=0.4540D+00*RO2C+... & + 5.2000D-01 * RXRAT( 546 ) ! MXYL+OH=0.5200D+00*RO2C+... & + 5.5400D-01 * RXRAT( 547 ) ! OXYL+OH=0.5540D+00*RO2C+... & + 4.8700D-01 * RXRAT( 548 ) ! PXYL+OH=0.4870D+00*RO2C+... & + 6.2700D-01 * RXRAT( 549 ) ! TMBENZ124+OH=0.6270D+... & + 5.0000D-02 * RXRAT( 550 ) ! ETOH+OH=0.5000D-01*RO2C+... & + RXRAT( 551 ) ! ALK1+OH=RO2C+xHO2+xCCHO+yROOH & + 9.6500D-01 * RXRAT( 552 ) ! ALK2+OH=0.9650D+00*RO2C+... & + 1.2530D+00 * RXRAT( 553 ) ! ALK3+OH=0.1253D+01*RO2C+... & + 1.7630D+00 * RXRAT( 554 ) ! ALK4+OH=0.1763D+01*RO2C+... & + 1.6050D+00 * RXRAT( 555 ) ! ALK5+OH=0.1605D+01*RO2C+... & + 1.2020D+00 * RXRAT( 557 ) ! OLE1+OH=0.1202D+01*RO2C+... & + 9.0000D-02 * RXRAT( 558 ) ! OLE1+O3=0.9000D-01*RO2C+... & + 1.4630D+00 * RXRAT( 559 ) ! OLE1+NO3=0.1463D+01*RO2C+... & + 9.5300D-01 * RXRAT( 561 ) ! OLE2+OH=0.9530D+00*RO2C+... & + 2.1200D-01 * RXRAT( 562 ) ! OLE2+O3=0.2120D+00*RO2C+... & + 1.1930D+00 * RXRAT( 563 ) ! OLE2+NO3=0.1193D+01*RO2C+... & + 5.6600D-01 * RXRAT( 565 ) ! ARO1+OH=0.5660D+00*RO2C+... & + 6.1700D-01 * RXRAT( 566 ) ! ARO2MN+OH=0.6170D+00*RO2C+... & + 6.1700D-01 * RXRAT( 567 ) ! NAPHTHAL+OH=0.6170D+... & + 1.2110D+00 * RXRAT( 568 ) ! TERP+OH=0.1211D+01*RO2C+... & + 4.9000D-01 * RXRAT( 569 ) ! TERP+O3=0.4900D+00*RO2C+... & + 4.2400D-01 * RXRAT( 571 ) ! TERPNRO2+NO=0.4240D+... & + 7.8600D-01 * RXRAT( 573 ) ! TERPNRO2+NO3=0.7860D+... & + 3.9300D-01 * RXRAT( 574 ) ! TERPNRO2+MEO2=0.3930D+... & + 3.9300D-01 * RXRAT( 576 ) ! TERPNRO2+RO2XC=0.3930D+... & + 7.8600D-01 * RXRAT( 577 ) ! TERPNRO2+MECO3=0.7860D+... & + 1.7860D+00 * RXRAT( 578 ) ! TERPNRO2+RCO3=0.1786D+... & + 1.7860D+00 * RXRAT( 579 ) ! TERPNRO2+BZCO3=0.1786D+... & + 7.8600D-01 * RXRAT( 580 ) ! TERPNRO2+MACO3=0.7860D+... & + 7.8600D-01 * RXRAT( 581 ) ! TERPNRO2+IMACO3=0.7860D+... & + 1.2110D+00 * RXRAT( 583 ) ! SESQ+OH=0.1211D+01*RO2C+... & + 4.9000D-01 * RXRAT( 584 ) ! SESQ+O3=0.4900D+00*RO2C+... & + 1.7860D+00 * RXRAT( 585 ) ! SESQ+NO3=0.1786D+01*RO2C+... & + 1.0000D-01 * RXRAT( 612 ) ! RCHO+CL=0.1000D+00*RO2C+... & + RXRAT( 613 ) ! ACETONE+CL=RO2C+HCL+xHCHO+... & + 9.7500D-01 * RXRAT( 614 ) ! MEK+CL=0.9750D+00*RO2C+HCL+... & + 1.2820D+00 * RXRAT( 615 ) ! RNO3+CL=0.1282D+01*RO2C+... & + 6.8000D-01 * RXRAT( 616 ) ! PRD2+CL=0.6800D+00*RO2C+... & + 5.8800D-01 * RXRAT( 621 ) ! ROOH+CL=0.5880D+00*RO2C+... & + 1.0780D+00 * RXRAT( 622 ) ! R6OOH+CL=0.1078D+01*RO2C+... & + 5.8900D-01 * RXRAT( 623 ) ! RAOOH+CL=0.5890D+00*RO2C+... & + 1.0320D+00 * RXRAT( 624 ) ! ACROLEIN+CL=0.1032D+... & + 1.2830D+00 * RXRAT( 625 ) ! MVK+CL=0.1283D+01*RO2C+... & + 7.3000D-01 * RXRAT( 626 ) ! IPRD+CL=0.7300D+00*RO2C+... & + RXRAT( 627 ) ! CLCCHO=RO2C+CO+HO2+xCL+... & + RXRAT( 630 ) ! CLACET=RO2C+MECO3+xCL+... & + 2.0000D+00 * RXRAT( 662 ) ! ETHENE+CL=0.2000D+01*RO2C+... & + 9.7100D-01 * RXRAT( 663 ) ! PROPENE+CL=0.9710D+00*RO2C+... & + 1.8840D+00 * RXRAT( 664 ) ! BUTADIENE13+CL=0.1884D+... & + 1.1680D+00 * RXRAT( 665 ) ! ISOPRENE+CL=0.1168D+... & + 2.2580D+00 * RXRAT( 666 ) ! APIN+CL=0.2258D+01*RO2C+... & + 8.9400D-01 * RXRAT( 668 ) ! TOLUENE+CL=0.8940D+00*RO2C+... & + 8.6400D-01 * RXRAT( 669 ) ! MXYL+CL=0.8640D+00*RO2C+... & + 8.6400D-01 * RXRAT( 670 ) ! OXYL+CL=0.8640D+00*RO2C+... & + 8.6400D-01 * RXRAT( 671 ) ! PXYL+CL=0.8640D+00*RO2C+... & + 8.3800D-01 * RXRAT( 672 ) ! TMBENZ124+CL=0.8380D+... & + 3.1200D-01 * RXRAT( 673 ) ! ETOH+CL=0.3120D+00*RO2C+... & + RXRAT( 674 ) ! ALK1+CL=RO2C+xHO2+HCL+... & + 9.7000D-01 * RXRAT( 675 ) ! ALK2+CL=0.9700D+00*RO2C+... & + 1.3610D+00 * RXRAT( 676 ) ! ALK3+CL=0.1361D+01*RO2C+... & + 1.7370D+00 * RXRAT( 677 ) ! ALK4+CL=0.1737D+01*RO2C+... & + 1.5410D+00 * RXRAT( 678 ) ! ALK5+CL=0.1541D+01*RO2C+... & + 1.6080D+00 * RXRAT( 679 ) ! OLE1+CL=0.1608D+01*RO2C+... & + 1.4920D+00 * RXRAT( 680 ) ! OLE2+CL=0.1492D+01*RO2C+... & + 8.4000D-01 * RXRAT( 681 ) ! ARO1+CL=0.8400D+00*RO2C+... & + 8.2800D-01 * RXRAT( 682 ) ! ARO2MN+CL=0.8280D+00*RO2C+... & + 8.2800D-01 * RXRAT( 683 ) ! NAPHTHAL+CL=0.8280D+... & + 2.2580D+00 * RXRAT( 684 ) ! TERP+CL=0.2258D+01*RO2C+... & + 2.2580D+00 * RXRAT( 685 ) ! SESQ+CL=0.2258D+01*RO2C+... & + RXRAT( 792 ) ! MACO3+RCO3=RO2C+0.2000D+... & + RXRAT( 793 ) ! MACO3+BZCO3=RO2C+0.2000D+... & + 5.0000D-01 * RXRAT( 824 ) ! MACR+NO3=0.5000D+00*RO2C+... & + 3.3000D-01 * RXRAT( 825 ) ! MACR=0.3300D+00*RO2C+... & + 8.0200D-01 * RXRAT( 826 ) ! MACR+CL=0.8020D+00*RO2C+... & + RXRAT( 834 ) ! IMACO3+RCO3=RO2C+0.2000D+... & + RXRAT( 835 ) ! IMACO3+BZCO3=RO2C+0.2000D+... & + 1.2820D+00 * RXRAT( 881 ) ! MTNO3+CL=0.1282D+01*RO2C+... & + 9.7600D-01 * RXRAT( 882 ) ! MTNO3+OH=0.9760D+00*RO2C+... & + 7.2100D-01 * RXRAT( 883 ) ! MTNO3=0.7210D+00*RO2C+... LOSS( RO2C ) = RXRAT( 52 ) ! RO2C+NO=NO2 & + RXRAT( 53 ) ! RO2C+HO2= & + RXRAT( 54 ) ! RO2C+NO3=NO2 & + RXRAT( 55 ) ! RO2C+MEO2=0.5000D+00*HO2+... & + 2.0000D+00 * RXRAT( 56 ) ! RO2C+RO2C= & + RXRAT( 61 ) ! RO2C+RO2XC= & + RXRAT( 70 ) ! RO2C+MECO3=MEO2+CO2 & + 6.0700D-01 * RXRAT( 575 ) ! RO2C+TERPNRO2=0.3930D+... & + RXRAT( 713 ) ! RO2C+ISOPO2=0.4500D+00*HO2+... & + RXRAT( 724 ) ! RO2C+NISOPO2=0.6000D+... & + RXRAT( 731 ) ! RO2C+HC5OO=0.1170D+... & + RXRAT( 738 ) ! RO2C+ISOPNOOD=0.1700D+... & + RXRAT( 745 ) ! RO2C+ISOPNOOB=0.3000D+... & + RXRAT( 753 ) ! RO2C+NIT1NO3OOA=PROPNN+CO+... & + RXRAT( 759 ) ! RO2C+NIT1NO3OOB=0.7000D+... & + RXRAT( 766 ) ! RO2C+NIT1OHOO=0.6890D+... & + RXRAT( 772 ) ! RO2C+DIBOO=0.5000D+00*HO2+... & + RXRAT( 778 ) ! RO2C+MVKOO=0.3500D+... & + RXRAT( 783 ) ! RO2C+MACROO=0.5000D+00*HO2+... & + RXRAT( 789 ) ! RO2C+MACO3=CO+CO2+HCHO+MEO2 & + RXRAT( 817 ) ! RO2C+IEPOXOO=0.3630D+... & + RXRAT( 831 ) ! RO2C+IMACO3=CO+CO2+HCHO+MEO2 PROD( RO2XC ) = 3.9000D-02 * RXRAT( 206 ) ! MEK+OH=0.3900D-01*RO2XC+... & + 4.0000D-03 * RXRAT( 214 ) ! ROOH+OH=0.4000D-02*RO2XC+... & + 2.9000D-02 * RXRAT( 216 ) ! R6OOH+OH=0.2900D-01*RO2XC+... & + 7.7000D-02 * RXRAT( 217 ) ! R6OOH=0.7700D-01*RO2XC+... & + 1.2400D-01 * RXRAT( 218 ) ! RAOOH+OH=0.1240D+00*RO2XC+... & + 6.0000D-02 * RXRAT( 236 ) ! AFG1+OH=0.6000D-01*RO2XC+... & + 6.0000D-02 * RXRAT( 239 ) ! AFG2+OH=0.6000D-01*RO2XC+... & + 1.1700D-01 * RXRAT( 242 ) ! AFG3+OH=0.1170D+00*RO2XC+... & + 7.0000D-03 * RXRAT( 243 ) ! AFG3+O3=0.7000D-02*RO2XC+... & + 4.1000D-02 * RXRAT( 249 ) ! IPRD+OH=0.4100D-01*RO2XC+... & + 5.1000D-02 * RXRAT( 251 ) ! IPRD+NO3=0.5100D-01*RO2XC+... & + 7.1000D-02 * RXRAT( 253 ) ! PRD2+OH=0.7100D-01*RO2XC+... & + 8.7000D-02 * RXRAT( 254 ) ! PRD2=0.8700D-01*RO2XC+... & + 1.7500D-01 * RXRAT( 255 ) ! RNO3+OH=0.1750D+00*RO2XC+... & + 1.0200D-01 * RXRAT( 256 ) ! RNO3=0.1020D+00*RO2XC+... & + 2.0000D-03 * RXRAT( 261 ) ! ACROLEIN+NO3=0.2000D-... & + 1.6000D-02 * RXRAT( 528 ) ! PROPENE+OH=0.1600D-... & + 5.1000D-02 * RXRAT( 530 ) ! PROPENE+NO3=0.5100D-... & + 4.9000D-02 * RXRAT( 532 ) ! BUTADIENE13+OH=0.4900D-... & + 6.5000D-02 * RXRAT( 534 ) ! BUTADIENE13+NO3=0.6500D-... & + 1.5000D-02 * RXRAT( 535 ) ! BUTADIENE13+O3P=0.1500D-... & + 8.0000D-03 * RXRAT( 536 ) ! ISOPRENE+O3=0.8000D-... & + 1.0000D-02 * RXRAT( 537 ) ! ISOPRENE+O3P=0.1000D-... & + 1.9700D-01 * RXRAT( 538 ) ! APIN+OH=0.1970D+00*RO2XC+... & + 3.3700D-01 * RXRAT( 539 ) ! APIN+O3=0.3370D+00*RO2XC+... & + 2.9300D-01 * RXRAT( 540 ) ! APIN+NO3=0.2930D+00*RO2XC+... & + 2.4000D-02 * RXRAT( 544 ) ! BENZENE+OH=0.2400D-... & + 5.4000D-02 * RXRAT( 545 ) ! TOLUENE+OH=0.5400D-... & + 8.2000D-02 * RXRAT( 546 ) ! MXYL+OH=0.8200D-01*RO2XC+... & + 8.7000D-02 * RXRAT( 547 ) ! OXYL+OH=0.8700D-01*RO2XC+... & + 7.6000D-02 * RXRAT( 548 ) ! PXYL+OH=0.7600D-01*RO2XC+... & + 1.2100D-01 * RXRAT( 549 ) ! TMBENZ124+OH=0.1210D+... & + 3.5000D-02 * RXRAT( 552 ) ! ALK2+OH=0.3500D-01*RO2XC+... & + 7.0000D-02 * RXRAT( 553 ) ! ALK3+OH=0.7000D-01*RO2XC+... & + 1.4900D-01 * RXRAT( 554 ) ! ALK4+OH=0.1490D+00*RO2XC+... & + 3.5300D-01 * RXRAT( 555 ) ! ALK5+OH=0.3530D+00*RO2XC+... & + 1.2800D-01 * RXRAT( 557 ) ! OLE1+OH=0.1280D+00*RO2XC+... & + 5.0000D-03 * RXRAT( 558 ) ! OLE1+O3=0.5000D-02*RO2XC+... & + 2.2800D-01 * RXRAT( 559 ) ! OLE1+NO3=0.2280D+00*RO2XC+... & + 8.8000D-02 * RXRAT( 561 ) ! OLE2+OH=0.8800D-01*RO2XC+... & + 3.0000D-03 * RXRAT( 562 ) ! OLE2+O3=0.3000D-02*RO2XC+... & + 1.4000D-01 * RXRAT( 563 ) ! OLE2+NO3=0.1400D+00*RO2XC+... & + 1.1000D-01 * RXRAT( 565 ) ! ARO1+OH=0.1100D+00*RO2XC+... & + 1.2800D-01 * RXRAT( 566 ) ! ARO2MN+OH=0.1280D+00*RO2XC+... & + 1.2800D-01 * RXRAT( 567 ) ! NAPHTHAL+OH=0.1280D+... & + 2.0100D-01 * RXRAT( 568 ) ! TERP+OH=0.2010D+00*RO2XC+... & + 1.2100D-01 * RXRAT( 569 ) ! TERP+O3=0.1210D+00*RO2XC+... & + 2.0100D-01 * RXRAT( 583 ) ! SESQ+OH=0.2010D+00*RO2XC+... & + 1.2100D-01 * RXRAT( 584 ) ! SESQ+O3=0.1210D+00*RO2XC+... & + 4.6000D-01 * RXRAT( 585 ) ! SESQ+NO3=0.4600D+00*RO2XC+... & + 3.9000D-02 * RXRAT( 614 ) ! MEK+CL=0.3900D-01*RO2XC+... & + 2.0200D-01 * RXRAT( 615 ) ! RNO3+CL=0.2020D+00*RO2XC+... & + 1.1600D-01 * RXRAT( 616 ) ! PRD2+CL=0.1160D+00*RO2XC+... & + 1.1700D-01 * RXRAT( 622 ) ! R6OOH+CL=0.1170D+00*RO2XC+... & + 1.2400D-01 * RXRAT( 623 ) ! RAOOH+CL=0.1240D+00*RO2XC+... & + 2.6000D-02 * RXRAT( 624 ) ! ACROLEIN+CL=0.2600D-... & + 5.3000D-02 * RXRAT( 625 ) ! MVK+CL=0.5300D-01*RO2XC+... & + 5.1000D-02 * RXRAT( 626 ) ! IPRD+CL=0.5100D-01*RO2XC+... & + 2.9000D-02 * RXRAT( 663 ) ! PROPENE+CL=0.2900D-... & + 6.9000D-02 * RXRAT( 664 ) ! BUTADIENE13+CL=0.6900D-... & + 8.5000D-02 * RXRAT( 665 ) ! ISOPRENE+CL=0.8500D-... & + 5.8200D-01 * RXRAT( 666 ) ! APIN+CL=0.5820D+00*RO2XC+... & + 1.0600D-01 * RXRAT( 668 ) ! TOLUENE+CL=0.1060D+... & + 1.3600D-01 * RXRAT( 669 ) ! MXYL+CL=0.1360D+00*RO2XC+... & + 1.3600D-01 * RXRAT( 670 ) ! OXYL+CL=0.1360D+00*RO2XC+... & + 1.3600D-01 * RXRAT( 671 ) ! PXYL+CL=0.1360D+00*RO2XC+... & + 1.6200D-01 * RXRAT( 672 ) ! TMBENZ124+CL=0.1620D+... & + 3.0000D-02 * RXRAT( 675 ) ! ALK2+CL=0.3000D-01*RO2XC+... & + 7.0000D-02 * RXRAT( 676 ) ! ALK3+CL=0.7000D-01*RO2XC+... & + 1.6500D-01 * RXRAT( 677 ) ! ALK4+CL=0.1650D+00*RO2XC+... & + 3.5200D-01 * RXRAT( 678 ) ! ALK5+CL=0.3520D+00*RO2XC+... & + 1.2700D-01 * RXRAT( 679 ) ! OLE1+CL=0.1270D+00*RO2XC+... & + 1.0600D-01 * RXRAT( 680 ) ! OLE2+CL=0.1060D+00*RO2XC+... & + 1.6000D-01 * RXRAT( 681 ) ! ARO1+CL=0.1600D+00*RO2XC+... & + 1.7200D-01 * RXRAT( 682 ) ! ARO2MN+CL=0.1720D+00*RO2XC+... & + 1.7200D-01 * RXRAT( 683 ) ! NAPHTHAL+CL=0.1720D+... & + 5.8200D-01 * RXRAT( 684 ) ! TERP+CL=0.5820D+00*RO2XC+... & + 5.8200D-01 * RXRAT( 685 ) ! SESQ+CL=0.5820D+00*RO2XC+... & + 3.3000D-02 * RXRAT( 826 ) ! MACR+CL=0.3300D-01*RO2XC+... & + 2.0200D-01 * RXRAT( 881 ) ! MTNO3+CL=0.2020D+00*RO2XC+... & + 1.7500D-01 * RXRAT( 882 ) ! MTNO3+OH=0.1750D+00*RO2XC+... & + 1.0200D-01 * RXRAT( 883 ) ! MTNO3=0.1020D+00*RO2XC+... LOSS( RO2XC ) = RXRAT( 57 ) ! RO2XC+NO= & + RXRAT( 58 ) ! RO2XC+HO2= & + RXRAT( 59 ) ! RO2XC+NO3=NO2 & + RXRAT( 60 ) ! RO2XC+MEO2=0.5000D+00*HO2+... & + RXRAT( 61 ) ! RO2XC+RO2C= & + 2.0000D+00 * RXRAT( 62 ) ! RO2XC+RO2XC= & + RXRAT( 71 ) ! RO2XC+MECO3=MEO2+CO2 & + RXRAT( 81 ) ! RO2XC+RCO3=RO2C+xHO2+xCCHO+... & + RXRAT( 92 ) ! RO2XC+BZCO3=RO2C+BZO+CO2 & + RXRAT( 576 ) ! RO2XC+TERPNRO2=0.2660D+... & + RXRAT( 790 ) ! RO2XC+MACO3=CO+CO2+HCHO+MEO2 & + RXRAT( 832 ) ! RO2XC+IMACO3=CO+CO2+HCHO+MEO2 PROD( CCOOOH ) = 1.0500D-01 * RXRAT( 67 ) ! MECO3+HO2=0.1050D+... LOSS( CCOOOH ) = RXRAT( 264 ) ! CCOOOH+OH=0.9800D+00*MECO3+... & + RXRAT( 265 ) ! CCOOOH=MEO2+CO2+OH PROD( CCOOH ) = 4.5000D-02 * RXRAT( 67 ) ! MECO3+HO2=0.4500D-01*CCOOH+... & + 1.0000D-01 * RXRAT( 69 ) ! MECO3+MEO2=0.1000D+... & + 5.0000D-02 * RXRAT( 263 ) ! ACROLEIN=0.5000D-01*CCOOH+... & + 7.5000D-02 * RXRAT( 529 ) ! PROPENE+O3=0.7500D-... & + 6.5000D-02 * RXRAT( 562 ) ! OLE2+O3=0.6500D-01*CCOOH+... & + 1.2500D-01 * RXRAT( 797 ) ! HACET+OH=0.1250D+00*CCOOH+... & + 8.0000D-02 * RXRAT( 807 ) ! MACRN+OH=0.8000D-01*CCOOH+... LOSS( CCOOH ) = RXRAT( 210 ) ! CCOOH+OH=0.5090D+00*MEO2+... PROD( RCO3 ) = RXRAT( 74 ) ! PAN2=RCO3+NO2 & + 6.0000D-01 * RXRAT( 75 ) ! PAN2=0.6000D+00*RCO3+... & + RXRAT( 154 ) ! xRCO3+NO=RCO3+NO & + RXRAT( 156 ) ! xRCO3+NO3=RCO3+NO3 & + 5.0000D-01 * RXRAT( 157 ) ! xRCO3+MEO2=0.5000D+00*RCO3+... & + 5.0000D-01 * RXRAT( 158 ) ! xRCO3+RO2C=0.5000D+00*RCO3+... & + 5.0000D-01 * RXRAT( 159 ) ! xRCO3+RO2XC=0.5000D+... & + RXRAT( 160 ) ! xRCO3+MECO3=RCO3+MECO3 & + RXRAT( 161 ) ! xRCO3+RCO3=0.2000D+01*RCO3 & + RXRAT( 162 ) ! xRCO3+BZCO3=RCO3+BZCO3 & + RXRAT( 163 ) ! xRCO3+MACO3=RCO3+MACO3 & + 9.6500D-01 * RXRAT( 201 ) ! RCHO+OH=0.9650D+00*RCO3+... & + RXRAT( 203 ) ! RCHO+NO3=RCO3+HNO3 & + 3.0000D-01 * RXRAT( 252 ) ! IPRD=0.3000D+00*RCO3+... & + 6.0000D-01 * RXRAT( 254 ) ! PRD2=0.6000D+00*RCO3+... & + 8.0600D-01 * RXRAT( 266 ) ! RCOOOH+OH=0.8060D+00*RCO3+... & + 2.6000D-02 * RXRAT( 571 ) ! TERPNRO2+NO=0.2600D-... & + 4.8000D-02 * RXRAT( 573 ) ! TERPNRO2+NO3=0.4800D-... & + 2.4000D-02 * RXRAT( 574 ) ! TERPNRO2+MEO2=0.2400D-... & + 2.4000D-02 * RXRAT( 575 ) ! TERPNRO2+RO2C=0.2400D-... & + 2.4000D-02 * RXRAT( 576 ) ! TERPNRO2+RO2XC=0.2400D-... & + 4.8000D-02 * RXRAT( 577 ) ! TERPNRO2+MECO3=0.4800D-... & + 4.8000D-02 * RXRAT( 579 ) ! TERPNRO2+BZCO3=0.4800D-... & + 4.8000D-02 * RXRAT( 580 ) ! TERPNRO2+MACO3=0.4800D-... & + 4.8000D-02 * RXRAT( 581 ) ! TERPNRO2+IMACO3=0.4800D-... & + 9.0000D-01 * RXRAT( 612 ) ! RCHO+CL=0.9000D+00*RCO3+... & + 3.7000D-01 * RXRAT( 617 ) ! GLY+CL=0.3700D+00*RCO3+... & + RXRAT( 628 ) ! CLCCHO+OH=RCO3 & + RXRAT( 629 ) ! CLCCHO+CL=RCO3+HCL & + RXRAT( 845 ) ! xRCO3+IMACO3=RCO3+IMACO3 LOSS( RCO3 ) = RXRAT( 73 ) ! RCO3+NO2=PAN2 & + RXRAT( 76 ) ! RCO3+NO=NO2+RO2C+xHO2+... & + RXRAT( 77 ) ! RCO3+HO2=0.3075D+00*RCOOOH+... & + RXRAT( 78 ) ! RCO3+NO3=NO2+RO2C+xHO2+... & + RXRAT( 79 ) ! RCO3+MEO2=HCHO+HO2+RO2C+... & + RXRAT( 80 ) ! RCO3+RO2C=RO2C+xHO2+xCCHO+... & + RXRAT( 81 ) ! RCO3+RO2XC=RO2C+xHO2+xCCHO+... & + RXRAT( 82 ) ! RCO3+MECO3=0.2000D+01*CO2+... & + 2.0000D+00 * RXRAT( 83 ) ! RCO3+RCO3=0.2000D+01*RO2C+... & + RXRAT( 94 ) ! RCO3+BZCO3=0.2000D+01*CO2+... & + 9.5200D-01 * RXRAT( 578 ) ! RCO3+TERPNRO2=0.4800D-... & + RXRAT( 792 ) ! RCO3+MACO3=CO+0.2000D+... & + RXRAT( 834 ) ! RCO3+IMACO3=CO+0.2000D+... PROD( PAN2 ) = RXRAT( 73 ) ! RCO3+NO2=PAN2 LOSS( PAN2 ) = RXRAT( 74 ) ! PAN2=RCO3+NO2 & + RXRAT( 75 ) ! PAN2=0.6000D+00*RCO3+... PROD( xHO2 ) = 4.0000D-01 * RXRAT( 75 ) ! PAN2=0.4000D+00*xHO2+... & + RXRAT( 76 ) ! RCO3+NO=xHO2+RO2C+NO2+... & + 4.4000D-01 * RXRAT( 77 ) ! RCO3+HO2=0.4400D+00*xHO2+... & + RXRAT( 78 ) ! RCO3+NO3=xHO2+RO2C+NO2+... & + RXRAT( 79 ) ! RCO3+MEO2=xHO2+HO2+RO2C+... & + RXRAT( 80 ) ! RCO3+RO2C=xHO2+RO2C+xCCHO+... & + RXRAT( 81 ) ! RCO3+RO2XC=xHO2+RO2C+xCCHO+... & + RXRAT( 82 ) ! RCO3+MECO3=xHO2+MEO2+RO2C+... & + 2.0000D+00 * RXRAT( 83 ) ! RCO3+RCO3=0.2000D+01*xHO2+... & + RXRAT( 94 ) ! BZCO3+RCO3=xHO2+0.2000D+... & + RXRAT( 103 ) ! BZO=xHO2+RO2C+CRES & + 3.5000D-02 * RXRAT( 201 ) ! RCHO+OH=0.3500D-01*xHO2+... & + RXRAT( 202 ) ! RCHO=xHO2+RO2C+yROOH+xCCHO+... & + 3.7600D-01 * RXRAT( 206 ) ! MEK+OH=0.3760D+00*xHO2+... & + RXRAT( 207 ) ! MEK=xHO2+RO2C+MECO3+xCCHO+... & + 4.9100D-01 * RXRAT( 210 ) ! CCOOH+OH=0.4910D+00*xHO2+... & + RXRAT( 211 ) ! RCOOH+OH=xHO2+RO2C+0.1430D+... & + 2.3900D-01 * RXRAT( 214 ) ! ROOH+OH=0.2390D+00*xHO2+... & + 9.0000D-02 * RXRAT( 216 ) ! R6OOH+OH=0.9000D-01*xHO2+... & + 7.8200D-01 * RXRAT( 217 ) ! R6OOH=0.7820D+00*xHO2+... & + 5.6500D-01 * RXRAT( 218 ) ! RAOOH+OH=0.5650D+00*xHO2+... & + 8.0000D-01 * RXRAT( 228 ) ! CRES+OH=0.8000D+00*xHO2+... & + 5.2100D-01 * RXRAT( 236 ) ! AFG1+OH=0.5210D+00*xHO2+... & + 5.2100D-01 * RXRAT( 239 ) ! AFG2+OH=0.5210D+00*xHO2+... & + 5.6100D-01 * RXRAT( 242 ) ! AFG3+OH=0.5610D+00*xHO2+... & + 9.5000D-02 * RXRAT( 243 ) ! AFG3+O3=0.9500D-01*xHO2+... & + 5.0000D-02 * RXRAT( 246 ) ! MVK+O3=0.5000D-01*xHO2+... & + 6.7000D-01 * RXRAT( 249 ) ! IPRD+OH=0.6700D+00*xHO2+... & + 7.9900D-01 * RXRAT( 251 ) ! IPRD+NO3=0.7990D+00*xHO2+... & + 3.7900D-01 * RXRAT( 253 ) ! PRD2+OH=0.3790D+00*xHO2+... & + 9.1300D-01 * RXRAT( 254 ) ! PRD2=0.9130D+00*xHO2+... & + 3.0500D-01 * RXRAT( 255 ) ! RNO3+OH=0.3050D+00*xHO2+... & + 5.5400D-01 * RXRAT( 256 ) ! RNO3=0.5540D+00*xHO2+... & + 2.5000D-01 * RXRAT( 259 ) ! ACROLEIN+OH=0.2500D+... & + 3.1000D-02 * RXRAT( 261 ) ! ACROLEIN+NO3=0.3100D-... & + 8.4000D-02 * RXRAT( 266 ) ! RCOOOH+OH=0.8400D-01*xHO2+... & + RXRAT( 267 ) ! RCOOOH=xHO2+xCCHO+yROOH+CO2+OH & + RXRAT( 524 ) ! ETHENE+OH=xHO2+RO2C+... & + RXRAT( 526 ) ! ETHENE+NO3=xHO2+RO2C+xRCHO+... & + 2.9000D-01 * RXRAT( 527 ) ! ETHENE+O3P=0.2900D+00*xHO2+... & + 9.8400D-01 * RXRAT( 528 ) ! PROPENE+OH=0.9840D+00*xHO2+... & + 9.4900D-01 * RXRAT( 530 ) ! PROPENE+NO3=0.9490D+... & + 9.5100D-01 * RXRAT( 532 ) ! BUTADIENE13+OH=0.9510D+... & + 8.1500D-01 * RXRAT( 534 ) ! BUTADIENE13+NO3=0.8150D+... & + 1.1700D-01 * RXRAT( 535 ) ! BUTADIENE13+O3P=0.1170D+... & + 7.9900D-01 * RXRAT( 538 ) ! APIN+OH=0.7990D+00*xHO2+... & + 1.0200D-01 * RXRAT( 539 ) ! APIN+O3=0.1020D+00*xHO2+... & + 5.6000D-02 * RXRAT( 540 ) ! APIN+NO3=0.5600D-01*xHO2+... & + 2.9000D-01 * RXRAT( 544 ) ! BENZENE+OH=0.2900D+00*xHO2+... & + 4.5400D-01 * RXRAT( 545 ) ! TOLUENE+OH=0.4540D+00*xHO2+... & + 5.2000D-01 * RXRAT( 546 ) ! MXYL+OH=0.5200D+00*xHO2+... & + 5.5400D-01 * RXRAT( 547 ) ! OXYL+OH=0.5540D+00*xHO2+... & + 4.8700D-01 * RXRAT( 548 ) ! PXYL+OH=0.4870D+00*xHO2+... & + 6.2700D-01 * RXRAT( 549 ) ! TMBENZ124+OH=0.6270D+... & + 5.0000D-02 * RXRAT( 550 ) ! ETOH+OH=0.5000D-01*xHO2+... & + RXRAT( 551 ) ! ALK1+OH=xHO2+RO2C+xCCHO+yROOH & + 9.6500D-01 * RXRAT( 552 ) ! ALK2+OH=0.9650D+00*xHO2+... & + 6.9500D-01 * RXRAT( 553 ) ! ALK3+OH=0.6950D+00*xHO2+... & + 8.3000D-01 * RXRAT( 554 ) ! ALK4+OH=0.8300D+00*xHO2+... & + 6.4700D-01 * RXRAT( 555 ) ! ALK5+OH=0.6470D+00*xHO2+... & + 8.7100D-01 * RXRAT( 557 ) ! OLE1+OH=0.8710D+00*xHO2+... & + 5.7000D-02 * RXRAT( 558 ) ! OLE1+O3=0.5700D-01*xHO2+... & + 7.7200D-01 * RXRAT( 559 ) ! OLE1+NO3=0.7720D+00*xHO2+... & + 9.1200D-01 * RXRAT( 561 ) ! OLE2+OH=0.9120D+00*xHO2+... & + 4.1000D-02 * RXRAT( 562 ) ! OLE2+O3=0.4100D-01*xHO2+... & + 4.0000D-01 * RXRAT( 563 ) ! OLE2+NO3=0.4000D+00*xHO2+... & + 5.6600D-01 * RXRAT( 565 ) ! ARO1+OH=0.5660D+00*xHO2+... & + 6.1700D-01 * RXRAT( 566 ) ! ARO2MN+OH=0.6170D+00*xHO2+... & + 6.1700D-01 * RXRAT( 567 ) ! NAPHTHAL+OH=0.6170D+... & + 7.3400D-01 * RXRAT( 568 ) ! TERP+OH=0.7340D+00*xHO2+... & + 4.6000D-02 * RXRAT( 569 ) ! TERP+O3=0.4600D-01*xHO2+... & + RXRAT( 578 ) ! TERPNRO2+RCO3=xHO2+0.4220D+... & + 7.3400D-01 * RXRAT( 583 ) ! SESQ+OH=0.7340D+00*xHO2+... & + 4.6000D-02 * RXRAT( 584 ) ! SESQ+O3=0.4600D-01*xHO2+... & + 2.2700D-01 * RXRAT( 585 ) ! SESQ+NO3=0.2270D+00*xHO2+... & + 1.0000D-01 * RXRAT( 612 ) ! RCHO+CL=0.1000D+00*xHO2+... & + 8.4000D-01 * RXRAT( 614 ) ! MEK+CL=0.8400D+00*xHO2+... & + 5.4700D-01 * RXRAT( 615 ) ! RNO3+CL=0.5470D+00*xHO2+... & + 5.4100D-01 * RXRAT( 616 ) ! PRD2+CL=0.5410D+00*xHO2+... & + RXRAT( 619 ) ! CRES+CL=xHO2+HCL+xBALD+yR6OOH & + 4.8200D-01 * RXRAT( 621 ) ! ROOH+CL=0.4820D+00*xHO2+... & + 2.3700D-01 * RXRAT( 622 ) ! R6OOH+CL=0.2370D+00*xHO2+... & + 5.6500D-01 * RXRAT( 623 ) ! RAOOH+CL=0.5650D+00*xHO2+... & + 4.8400D-01 * RXRAT( 624 ) ! ACROLEIN+CL=0.4840D+... & + 3.2200D-01 * RXRAT( 625 ) ! MVK+CL=0.3220D+00*xHO2+... & + 7.1200D-01 * RXRAT( 626 ) ! IPRD+CL=0.7120D+00*xHO2+... & + RXRAT( 662 ) ! ETHENE+CL=xHO2+0.2000D+... & + 9.7100D-01 * RXRAT( 663 ) ! PROPENE+CL=0.9710D+00*xHO2+... & + 3.9000D-01 * RXRAT( 664 ) ! BUTADIENE13+CL=0.3900D+... & + 7.3800D-01 * RXRAT( 665 ) ! ISOPRENE+CL=0.7380D+... & + 2.5200D-01 * RXRAT( 666 ) ! APIN+CL=0.2520D+00*xHO2+... & + 8.9400D-01 * RXRAT( 668 ) ! TOLUENE+CL=0.8940D+00*xHO2+... & + 8.6400D-01 * RXRAT( 669 ) ! MXYL+CL=0.8640D+00*xHO2+... & + 8.6400D-01 * RXRAT( 670 ) ! OXYL+CL=0.8640D+00*xHO2+... & + 8.6400D-01 * RXRAT( 671 ) ! PXYL+CL=0.8640D+00*xHO2+... & + 8.3800D-01 * RXRAT( 672 ) ! TMBENZ124+CL=0.8380D+... & + 3.1200D-01 * RXRAT( 673 ) ! ETOH+CL=0.3120D+00*xHO2+... & + RXRAT( 674 ) ! ALK1+CL=xHO2+HCL+RO2C+... & + 9.7000D-01 * RXRAT( 675 ) ! ALK2+CL=0.9700D+00*xHO2+... & + 8.3500D-01 * RXRAT( 676 ) ! ALK3+CL=0.8350D+00*xHO2+... & + 8.2700D-01 * RXRAT( 677 ) ! ALK4+CL=0.8270D+00*xHO2+... & + 6.4700D-01 * RXRAT( 678 ) ! ALK5+CL=0.6470D+00*xHO2+... & + 8.7300D-01 * RXRAT( 679 ) ! OLE1+CL=0.8730D+00*xHO2+... & + 4.5000D-01 * RXRAT( 680 ) ! OLE2+CL=0.4500D+00*xHO2+... & + 8.4000D-01 * RXRAT( 681 ) ! ARO1+CL=0.8400D+00*xHO2+... & + 8.2800D-01 * RXRAT( 682 ) ! ARO2MN+CL=0.8280D+00*xHO2+... & + 8.2800D-01 * RXRAT( 683 ) ! NAPHTHAL+CL=0.8280D+... & + 2.5200D-01 * RXRAT( 684 ) ! TERP+CL=0.2520D+00*xHO2+... & + 2.5200D-01 * RXRAT( 685 ) ! SESQ+CL=0.2520D+00*xHO2+... & + RXRAT( 792 ) ! MACO3+RCO3=xHO2+0.2000D+... & + 5.0000D-01 * RXRAT( 824 ) ! MACR+NO3=0.5000D+00*xHO2+... & + 8.0200D-01 * RXRAT( 826 ) ! MACR+CL=0.8020D+00*xHO2+... & + RXRAT( 834 ) ! IMACO3+RCO3=xHO2+0.2000D+... & + 5.4700D-01 * RXRAT( 881 ) ! MTNO3+CL=0.5470D+00*xHO2+... & + 3.0500D-01 * RXRAT( 882 ) ! MTNO3+OH=0.3050D+00*xHO2+... & + 5.5400D-01 * RXRAT( 883 ) ! MTNO3=0.5540D+00*xHO2+... LOSS( xHO2 ) = RXRAT( 104 ) ! xHO2+NO=NO+HO2 & + RXRAT( 105 ) ! xHO2+HO2=HO2 & + RXRAT( 106 ) ! xHO2+NO3=NO3+HO2 & + RXRAT( 107 ) ! xHO2+MEO2=MEO2+0.5000D+00*HO2 & + RXRAT( 108 ) ! xHO2+RO2C=RO2C+0.5000D+00*HO2 & + RXRAT( 109 ) ! xHO2+RO2XC=RO2XC+0.5000D+... & + RXRAT( 110 ) ! xHO2+MECO3=MECO3+HO2 & + RXRAT( 111 ) ! xHO2+RCO3=RCO3+HO2 & + RXRAT( 112 ) ! xHO2+BZCO3=BZCO3+HO2 & + RXRAT( 113 ) ! xHO2+MACO3=MACO3+HO2 & + RXRAT( 850 ) ! xHO2+IMACO3=IMACO3+HO2 PROD( yROOH ) = 4.0000D-01 * RXRAT( 75 ) ! PAN2=0.4000D+00*yROOH+... & + RXRAT( 76 ) ! RCO3+NO=yROOH+RO2C+xHO2+... & + 4.4000D-01 * RXRAT( 77 ) ! RCO3+HO2=0.4400D+00*yROOH+... & + RXRAT( 78 ) ! RCO3+NO3=yROOH+RO2C+xHO2+... & + RXRAT( 79 ) ! RCO3+MEO2=yROOH+HO2+RO2C+... & + RXRAT( 80 ) ! RCO3+RO2C=yROOH+xHO2+xCCHO+... & + RXRAT( 81 ) ! RCO3+RO2XC=yROOH+xHO2+... & + RXRAT( 82 ) ! RCO3+MECO3=yROOH+MEO2+RO2C+... & + 2.0000D+00 * RXRAT( 83 ) ! RCO3+RCO3=0.2000D+01*yROOH+... & + RXRAT( 94 ) ! BZCO3+RCO3=yROOH+0.2000D+... & + 3.5000D-02 * RXRAT( 201 ) ! RCHO+OH=0.3500D-01*yROOH+... & + RXRAT( 202 ) ! RCHO=yROOH+xHO2+RO2C+xCCHO+... & + RXRAT( 204 ) ! ACETONE+OH=yROOH+xMECO3+... & + RXRAT( 206 ) ! MEK+OH=yROOH+0.3900D-... & + RXRAT( 207 ) ! MEK=yROOH+RO2C+xHO2+xCCHO+... & + 4.9100D-01 * RXRAT( 210 ) ! CCOOH+OH=0.4910D+00*yROOH+... & + RXRAT( 211 ) ! RCOOH+OH=yROOH+xHO2+... & + 2.5600D-01 * RXRAT( 214 ) ! ROOH+OH=0.2560D+00*yROOH+... & + 1.6000D-01 * RXRAT( 216 ) ! R6OOH+OH=0.1600D+00*yROOH+... & + 1.0000D-01 * RXRAT( 244 ) ! MACR+O3=0.1000D+00*yROOH+... & + 5.0000D-02 * RXRAT( 246 ) ! MVK+O3=0.5000D-01*yROOH+... & + 1.5700D-01 * RXRAT( 255 ) ! RNO3+OH=0.1570D+00*yROOH+... & + 6.6000D-02 * RXRAT( 256 ) ! RNO3=0.6600D-01*yROOH+... & + 2.5000D-01 * RXRAT( 259 ) ! ACROLEIN+OH=0.2500D+... & + 3.3000D-02 * RXRAT( 261 ) ! ACROLEIN+NO3=0.3300D-... & + 2.0000D-02 * RXRAT( 264 ) ! CCOOOH+OH=0.2000D-01*yROOH+... & + 1.9400D-01 * RXRAT( 266 ) ! RCOOOH+OH=0.1940D+00*yROOH+... & + RXRAT( 267 ) ! RCOOOH=yROOH+xCCHO+xHO2+CO2+OH & + RXRAT( 524 ) ! ETHENE+OH=yROOH+RO2C+... & + RXRAT( 526 ) ! ETHENE+NO3=yROOH+RO2C+... & + 2.9000D-01 * RXRAT( 527 ) ! ETHENE+O3P=0.2900D+... & + RXRAT( 528 ) ! PROPENE+OH=yROOH+0.9840D+... & + RXRAT( 530 ) ! PROPENE+NO3=yROOH+0.9490D+... & + RXRAT( 532 ) ! BUTADIENE13+OH=yROOH+... & + RXRAT( 534 ) ! BUTADIENE13+NO3=yROOH+... & + 2.5000D-01 * RXRAT( 535 ) ! BUTADIENE13+O3P=0.2500D+... & + 5.0000D-02 * RXRAT( 550 ) ! ETOH+OH=0.5000D-01*yROOH+... & + RXRAT( 551 ) ! ALK1+OH=yROOH+RO2C+xCCHO+xHO2 & + RXRAT( 552 ) ! ALK2+OH=yROOH+0.9650D+... & + 9.8300D-01 * RXRAT( 553 ) ! ALK3+OH=0.9830D+00*yROOH+... & + 1.6900D-01 * RXRAT( 557 ) ! OLE1+OH=0.1690D+00*yROOH+... & + 1.1000D-02 * RXRAT( 558 ) ! OLE1+O3=0.1100D-01*yROOH+... & + 1.6900D-01 * RXRAT( 559 ) ! OLE1+NO3=0.1690D+00*yROOH+... & + 3.1900D-01 * RXRAT( 561 ) ! OLE2+OH=0.3190D+00*yROOH+... & + 7.3000D-02 * RXRAT( 562 ) ! OLE2+O3=0.7300D-01*yROOH+... & + 3.1900D-01 * RXRAT( 563 ) ! OLE2+NO3=0.3190D+00*yROOH+... & + RXRAT( 578 ) ! TERPNRO2+RCO3=yROOH+... & + 1.0000D-01 * RXRAT( 612 ) ! RCHO+CL=0.1000D+00*yROOH+... & + RXRAT( 613 ) ! ACETONE+CL=yROOH+RO2C+... & + RXRAT( 614 ) ! MEK+CL=yROOH+0.9750D+... & + 5.8600D-01 * RXRAT( 621 ) ! ROOH+CL=0.5860D+00*yROOH+... & + 7.8400D-01 * RXRAT( 624 ) ! ACROLEIN+CL=0.7840D+... & + RXRAT( 625 ) ! MVK+CL=yROOH+0.5300D-... & + RXRAT( 627 ) ! CLCCHO=yROOH+CO+RO2C+xCL+... & + RXRAT( 630 ) ! CLACET=yROOH+RO2C+xCL+... & + RXRAT( 663 ) ! PROPENE+CL=yROOH+0.9710D+... & + RXRAT( 664 ) ! BUTADIENE13+CL=yROOH+... & + 3.1200D-01 * RXRAT( 673 ) ! ETOH+CL=0.3120D+00*yROOH+... & + RXRAT( 674 ) ! ALK1+CL=yROOH+xHO2+RO2C+... & + RXRAT( 675 ) ! ALK2+CL=yROOH+0.9700D+... & + 9.8300D-01 * RXRAT( 676 ) ! ALK3+CL=0.9830D+00*yROOH+... & + 1.6900D-01 * RXRAT( 679 ) ! OLE1+CL=0.1690D+00*yROOH+... & + 3.1900D-01 * RXRAT( 680 ) ! OLE2+CL=0.3190D+00*yROOH+... & + RXRAT( 792 ) ! MACO3+RCO3=yROOH+0.2000D+... & + 5.0000D-01 * RXRAT( 824 ) ! MACR+NO3=0.5000D+00*yROOH+... & + 3.3000D-01 * RXRAT( 825 ) ! MACR=0.3300D+00*yROOH+... & + 8.3500D-01 * RXRAT( 826 ) ! MACR+CL=0.8350D+00*yROOH+... & + RXRAT( 834 ) ! IMACO3+RCO3=yROOH+0.2000D+... & + 1.5700D-01 * RXRAT( 882 ) ! MTNO3+OH=0.1570D+00*yROOH+... & + 6.6000D-02 * RXRAT( 883 ) ! MTNO3=0.6600D-01*yROOH+... LOSS( yROOH ) = RXRAT( 452 ) ! yROOH+NO=NO & + RXRAT( 453 ) ! yROOH+HO2=HO2+ROOH & + RXRAT( 454 ) ! yROOH+NO3=NO3 & + RXRAT( 455 ) ! yROOH+MEO2=MEO2+0.5000D+00*MEK & + RXRAT( 456 ) ! yROOH+RO2C=RO2C+0.5000D+00*MEK & + RXRAT( 457 ) ! yROOH+RO2XC=RO2XC+0.5000D+... & + RXRAT( 458 ) ! yROOH+MECO3=MECO3 & + RXRAT( 459 ) ! yROOH+RCO3=RCO3 & + RXRAT( 460 ) ! yROOH+BZCO3=BZCO3 & + RXRAT( 461 ) ! yROOH+MACO3=MACO3 & + RXRAT( 856 ) ! yROOH+IMACO3=IMACO3 PROD( xCCHO ) = 4.0000D-01 * RXRAT( 75 ) ! PAN2=0.4000D+00*xCCHO+... & + RXRAT( 76 ) ! RCO3+NO=xCCHO+RO2C+xHO2+... & + 4.4000D-01 * RXRAT( 77 ) ! RCO3+HO2=0.4400D+00*xCCHO+... & + RXRAT( 78 ) ! RCO3+NO3=xCCHO+RO2C+xHO2+... & + RXRAT( 79 ) ! RCO3+MEO2=xCCHO+HO2+RO2C+... & + RXRAT( 80 ) ! RCO3+RO2C=xCCHO+xHO2+RO2C+... & + RXRAT( 81 ) ! RCO3+RO2XC=xCCHO+xHO2+RO2C+... & + RXRAT( 82 ) ! RCO3+MECO3=xCCHO+MEO2+RO2C+... & + 2.0000D+00 * RXRAT( 83 ) ! RCO3+RCO3=0.2000D+01*xCCHO+... & + RXRAT( 94 ) ! BZCO3+RCO3=xCCHO+0.2000D+... & + 3.5000D-02 * RXRAT( 201 ) ! RCHO+OH=0.3500D-01*xCCHO+... & + RXRAT( 202 ) ! RCHO=xCCHO+xHO2+yROOH+RO2C+... & + 5.0400D-01 * RXRAT( 206 ) ! MEK+OH=0.5040D+00*xCCHO+... & + RXRAT( 207 ) ! MEK=xCCHO+RO2C+xHO2+MECO3+... & + 1.4200D-01 * RXRAT( 211 ) ! RCOOH+OH=0.1420D+00*xCCHO+... & + 1.2000D-02 * RXRAT( 214 ) ! ROOH+OH=0.1200D-01*xCCHO+... & + 2.0000D-02 * RXRAT( 216 ) ! R6OOH+OH=0.2000D-01*xCCHO+... & + 2.6000D-02 * RXRAT( 217 ) ! R6OOH=0.2600D-01*xCCHO+... & + 8.3000D-02 * RXRAT( 253 ) ! PRD2+OH=0.8300D-01*xCCHO+... & + 1.6300D-01 * RXRAT( 254 ) ! PRD2=0.1630D+00*xCCHO+... & + 4.2900D-01 * RXRAT( 255 ) ! RNO3+OH=0.4290D+00*xCCHO+... & + 2.3000D-01 * RXRAT( 256 ) ! RNO3=0.2300D+00*xCCHO+... & + 1.6700D-01 * RXRAT( 259 ) ! ACROLEIN+OH=0.1670D+... & + 1.1000D-01 * RXRAT( 266 ) ! RCOOOH+OH=0.1100D+00*xCCHO+... & + RXRAT( 267 ) ! RCOOOH=xCCHO+xHO2+yROOH+CO2+OH & + 9.8400D-01 * RXRAT( 528 ) ! PROPENE+OH=0.9840D+... & + RXRAT( 551 ) ! ALK1+OH=xCCHO+RO2C+xHO2+yROOH & + 4.4500D-01 * RXRAT( 553 ) ! ALK3+OH=0.4450D+00*xCCHO+... & + 4.3800D-01 * RXRAT( 554 ) ! ALK4+OH=0.4380D+00*xCCHO+... & + 1.0600D-01 * RXRAT( 555 ) ! ALK5+OH=0.1060D+00*xCCHO+... & + 1.0000D-02 * RXRAT( 557 ) ! OLE1+OH=0.1000D-01*xCCHO+... & + 1.1000D-02 * RXRAT( 558 ) ! OLE1+O3=0.1100D-01*xCCHO+... & + 1.3000D-02 * RXRAT( 559 ) ! OLE1+NO3=0.1300D-01*xCCHO+... & + 8.3500D-01 * RXRAT( 561 ) ! OLE2+OH=0.8350D+00*xCCHO+... & + 7.1000D-02 * RXRAT( 562 ) ! OLE2+O3=0.7100D-01*xCCHO+... & + 5.7900D-01 * RXRAT( 563 ) ! OLE2+NO3=0.5790D+00*xCCHO+... & + RXRAT( 578 ) ! TERPNRO2+RCO3=xCCHO+... & + 2.0000D-03 * RXRAT( 585 ) ! SESQ+NO3=0.2000D-02*xCCHO+... & + 1.0000D-01 * RXRAT( 612 ) ! RCHO+CL=0.1000D+00*xCCHO+... & + 7.0000D-02 * RXRAT( 614 ) ! MEK+CL=0.7000D-01*xCCHO+... & + 3.0000D-01 * RXRAT( 615 ) ! RNO3+CL=0.3000D+00*xCCHO+... & + 1.0900D-01 * RXRAT( 616 ) ! PRD2+CL=0.1090D+00*xCCHO+... & + 1.0400D-01 * RXRAT( 621 ) ! ROOH+CL=0.1040D+00*xCCHO+... & + 1.8600D-01 * RXRAT( 622 ) ! R6OOH+CL=0.1860D+00*xCCHO+... & + RXRAT( 674 ) ! ALK1+CL=xCCHO+xHO2+RO2C+... & + 3.4000D-01 * RXRAT( 676 ) ! ALK3+CL=0.3400D+00*xCCHO+... & + 2.8700D-01 * RXRAT( 677 ) ! ALK4+CL=0.2870D+00*xCCHO+... & + 8.0000D-02 * RXRAT( 678 ) ! ALK5+CL=0.8000D-01*xCCHO+... & + 2.0600D-01 * RXRAT( 679 ) ! OLE1+CL=0.2060D+00*xCCHO+... & + 3.8300D-01 * RXRAT( 680 ) ! OLE2+CL=0.3830D+00*xCCHO+... & + RXRAT( 792 ) ! MACO3+RCO3=xCCHO+0.2000D+... & + RXRAT( 834 ) ! IMACO3+RCO3=xCCHO+0.2000D+... & + 3.0000D-01 * RXRAT( 881 ) ! MTNO3+CL=0.3000D+00*xCCHO+... & + 4.2900D-01 * RXRAT( 882 ) ! MTNO3+OH=0.4290D+00*xCCHO+... & + 2.3000D-01 * RXRAT( 883 ) ! MTNO3=0.2300D+00*xCCHO+... LOSS( xCCHO ) = RXRAT( 281 ) ! xCCHO+NO=NO+CCHO & + RXRAT( 282 ) ! xCCHO+HO2=HO2 & + RXRAT( 283 ) ! xCCHO+NO3=NO3+CCHO & + RXRAT( 284 ) ! xCCHO+MEO2=MEO2+0.5000D+... & + RXRAT( 285 ) ! xCCHO+RO2C=RO2C+0.5000D+... & + RXRAT( 286 ) ! xCCHO+RO2XC=RO2XC+0.5000D+... & + RXRAT( 287 ) ! xCCHO+MECO3=MECO3+CCHO & + RXRAT( 288 ) ! xCCHO+RCO3=RCO3+CCHO & + RXRAT( 289 ) ! xCCHO+BZCO3=BZCO3+CCHO & + RXRAT( 290 ) ! xCCHO+MACO3=MACO3+CCHO & + RXRAT( 872 ) ! xCCHO+IMACO3=IMACO3+CCHO PROD( RCOOOH ) = 3.0750D-01 * RXRAT( 77 ) ! RCO3+HO2=0.3075D+00*RCOOOH+... & + 3.0750D-01 * RXRAT( 88 ) ! BZCO3+HO2=0.3075D+... & + 7.5000D-01 * RXRAT( 752 ) ! NIT1NO3OOA+HO2=0.7500D+... & + 3.0750D-01 * RXRAT( 786 ) ! MACO3+HO2=0.3075D+... LOSS( RCOOOH ) = RXRAT( 266 ) ! RCOOOH+OH=0.8060D+00*RCO3+... & + RXRAT( 267 ) ! RCOOOH=xHO2+xCCHO+yROOH+CO2+OH PROD( RCOOH ) = 1.0250D-01 * RXRAT( 77 ) ! RCO3+HO2=0.1025D+00*RCOOH+... & + 1.0250D-01 * RXRAT( 88 ) ! BZCO3+HO2=0.1025D+00*RCOOH+... & + 3.7200D-01 * RXRAT( 250 ) ! IPRD+O3=0.3720D+00*RCOOH+... & + 1.5900D-01 * RXRAT( 558 ) ! OLE1+O3=0.1590D+00*RCOOH+... & + 2.3500D-01 * RXRAT( 562 ) ! OLE2+O3=0.2350D+00*RCOOH+... & + 6.8000D-02 * RXRAT( 569 ) ! TERP+O3=0.6800D-01*RCOOH+... & + 6.8000D-02 * RXRAT( 584 ) ! SESQ+O3=0.6800D-01*RCOOH+... & + 1.7000D-01 * RXRAT( 728 ) ! HC5OO+NO=0.1700D+00*RCOOH+... & + 8.5000D-02 * RXRAT( 730 ) ! HC5OO+MEO2=0.8500D-... & + 8.5000D-02 * RXRAT( 731 ) ! HC5OO+RO2C=0.8500D-... & + 1.7000D-01 * RXRAT( 732 ) ! HC5OO+MECO3=0.1700D+... & + 1.3000D-01 * RXRAT( 733 ) ! HC5+O3=0.1300D+00*RCOOH+... & + 1.2000D-01 * RXRAT( 740 ) ! ISOPND+O3=0.1200D+00*RCOOH+... & + 2.5000D-01 * RXRAT( 752 ) ! NIT1NO3OOA+HO2=0.2500D+... & + 1.0250D-01 * RXRAT( 786 ) ! MACO3+HO2=0.1025D+00*RCOOH+... & + 2.5000D-01 * RXRAT( 828 ) ! IMACO3+HO2=0.2500D+... LOSS( RCOOH ) = RXRAT( 211 ) ! RCOOH+OH=RO2C+xHO2+0.1430D+... PROD( BZCO3 ) = RXRAT( 85 ) ! PBZN=BZCO3+NO2 & + 6.0000D-01 * RXRAT( 86 ) ! PBZN=0.6000D+00*BZCO3+... & + RXRAT( 233 ) ! BALD+OH=BZCO3 & + RXRAT( 235 ) ! BALD+NO3=BZCO3+HNO3 & + RXRAT( 620 ) ! BALD+CL=BZCO3+HCL LOSS( BZCO3 ) = RXRAT( 84 ) ! BZCO3+NO2=PBZN & + RXRAT( 87 ) ! BZCO3+NO=NO2+CO2+BZO+RO2C & + RXRAT( 88 ) ! BZCO3+HO2=0.3075D+... & + RXRAT( 89 ) ! BZCO3+NO3=NO2+CO2+BZO+RO2C & + RXRAT( 90 ) ! BZCO3+MEO2=HCHO+HO2+RO2C+... & + RXRAT( 91 ) ! BZCO3+RO2C=RO2C+BZO+CO2 & + RXRAT( 92 ) ! BZCO3+RO2XC=RO2C+BZO+CO2 & + RXRAT( 93 ) ! BZCO3+MECO3=0.2000D+01*CO2+... & + RXRAT( 94 ) ! BZCO3+RCO3=0.2000D+01*CO2+... & + 2.0000D+00 * RXRAT( 95 ) ! BZCO3+BZCO3=0.2000D+01*BZO+... & + RXRAT( 579 ) ! BZCO3+TERPNRO2=0.5310D+... & + RXRAT( 793 ) ! BZCO3+MACO3=CO+0.2000D+... & + RXRAT( 835 ) ! BZCO3+IMACO3=CO+0.2000D+... PROD( PBZN ) = RXRAT( 84 ) ! BZCO3+NO2=PBZN LOSS( PBZN ) = RXRAT( 85 ) ! PBZN=BZCO3+NO2 & + RXRAT( 86 ) ! PBZN=0.6000D+00*BZCO3+... PROD( BZO ) = 4.0000D-01 * RXRAT( 86 ) ! PBZN=0.4000D+00*BZO+... & + RXRAT( 87 ) ! BZCO3+NO=BZO+CO2+NO2+RO2C & + 4.4000D-01 * RXRAT( 88 ) ! BZCO3+HO2=0.4400D+00*BZO+... & + RXRAT( 89 ) ! BZCO3+NO3=BZO+CO2+NO2+RO2C & + RXRAT( 90 ) ! BZCO3+MEO2=BZO+HO2+RO2C+... & + RXRAT( 91 ) ! BZCO3+RO2C=BZO+RO2C+CO2 & + RXRAT( 92 ) ! BZCO3+RO2XC=BZO+RO2C+CO2 & + RXRAT( 93 ) ! BZCO3+MECO3=BZO+MEO2+... & + RXRAT( 94 ) ! BZCO3+RCO3=BZO+0.2000D+... & + 2.0000D+00 * RXRAT( 95 ) ! BZCO3+BZCO3=0.2000D+01*BZO+... & + 2.0000D-01 * RXRAT( 228 ) ! CRES+OH=0.2000D+00*BZO+... & + RXRAT( 229 ) ! CRES+NO3=BZO+HNO3 & + RXRAT( 230 ) ! NPHE+OH=BZO & + RXRAT( 579 ) ! TERPNRO2+BZCO3=BZO+0.4220D+... & + RXRAT( 793 ) ! MACO3+BZCO3=BZO+0.2000D+... & + RXRAT( 835 ) ! IMACO3+BZCO3=BZO+0.2000D+... LOSS( BZO ) = RXRAT( 101 ) ! BZO+NO2=NPHE & + RXRAT( 102 ) ! BZO+HO2=CRES & + RXRAT( 103 ) ! BZO=CRES+RO2C+xHO2 PROD( MACO3 ) = RXRAT( 97 ) ! MAPAN=MACO3+NO2 & + 6.0000D-01 * RXRAT( 98 ) ! MAPAN=0.6000D+00*MACO3+... & + RXRAT( 164 ) ! xMACO3+NO=MACO3+NO & + RXRAT( 166 ) ! xMACO3+NO3=MACO3+NO3 & + 5.0000D-01 * RXRAT( 167 ) ! xMACO3+MEO2=0.5000D+... & + 5.0000D-01 * RXRAT( 168 ) ! xMACO3+RO2C=0.5000D+... & + 5.0000D-01 * RXRAT( 169 ) ! xMACO3+RO2XC=0.5000D+... & + RXRAT( 170 ) ! xMACO3+MECO3=MACO3+MECO3 & + RXRAT( 171 ) ! xMACO3+RCO3=MACO3+RCO3 & + RXRAT( 172 ) ! xMACO3+BZCO3=MACO3+BZCO3 & + RXRAT( 173 ) ! xMACO3+MACO3=0.2000D+01*MACO3 & + 2.1700D-01 * RXRAT( 236 ) ! AFG1+OH=0.2170D+00*MACO3+... & + 5.0000D-01 * RXRAT( 238 ) ! AFG1=0.5000D+00*MACO3+... & + 2.1700D-01 * RXRAT( 239 ) ! AFG2+OH=0.2170D+00*MACO3+... & + 2.0600D-01 * RXRAT( 242 ) ! AFG3+OH=0.2060D+00*MACO3+... & + 4.0000D-01 * RXRAT( 248 ) ! MVK=0.4000D+00*MACO3+... & + 2.8900D-01 * RXRAT( 249 ) ! IPRD+OH=0.2890D+00*MACO3+... & + 1.5000D-01 * RXRAT( 251 ) ! IPRD+NO3=0.1500D+00*MACO3+... & + 7.5000D-01 * RXRAT( 259 ) ! ACROLEIN+OH=0.7500D+... & + 9.6700D-01 * RXRAT( 261 ) ! ACROLEIN+NO3=0.9670D+... & + 3.3000D-01 * RXRAT( 263 ) ! ACROLEIN=0.3300D+00*MACO3+... & + RXRAT( 451 ) ! xMTNO3+IMACO3=MACO3+MTNO3 & + 2.1600D-01 * RXRAT( 624 ) ! ACROLEIN+CL=0.2160D+... & + 1.5400D-01 * RXRAT( 626 ) ! IPRD+CL=0.1540D+00*MACO3+... & + RXRAT( 844 ) ! xMACO3+IMACO3=MACO3+IMACO3 LOSS( MACO3 ) = RXRAT( 96 ) ! MACO3+NO2=MAPAN & + RXRAT( 580 ) ! MACO3+TERPNRO2=CO2+0.1043D+... & + RXRAT( 785 ) ! MACO3+NO=NO2+CO+CO2+HCHO+MEO2 & + RXRAT( 786 ) ! MACO3+HO2=0.3075D+... & + RXRAT( 787 ) ! MACO3+NO3=NO2+CO+CO2+HCHO+MEO2 & + RXRAT( 788 ) ! MACO3+MEO2=0.2000D+01*HCHO+... & + RXRAT( 789 ) ! MACO3+RO2C=CO+CO2+HCHO+MEO2 & + RXRAT( 790 ) ! MACO3+RO2XC=CO+CO2+HCHO+MEO2 & + RXRAT( 791 ) ! MACO3+MECO3=0.2000D+01*CO2+... & + RXRAT( 792 ) ! MACO3+RCO3=CO+0.2000D+... & + RXRAT( 793 ) ! MACO3+BZCO3=CO+0.2000D+... & + 2.0000D+00 * RXRAT( 794 ) ! MACO3+MACO3=0.2000D+01*CO+... & + RXRAT( 836 ) ! MACO3+IMACO3=0.2000D+01*CO+... PROD( MAPAN ) = RXRAT( 96 ) ! MACO3+NO2=MAPAN & + RXRAT( 751 ) ! NIT1NO3OOA+NO2=MAPAN LOSS( MAPAN ) = RXRAT( 97 ) ! MAPAN=MACO3+NO2 & + RXRAT( 98 ) ! MAPAN=0.6000D+00*MACO3+... & + RXRAT( 795 ) ! MAPAN+OH=HACET+CO+NO2 PROD( TBUO ) = RXRAT( 174 ) ! xTBUO+NO=TBUO+NO & + RXRAT( 176 ) ! xTBUO+NO3=TBUO+NO3 & + 5.0000D-01 * RXRAT( 177 ) ! xTBUO+MEO2=0.5000D+00*TBUO+... & + 5.0000D-01 * RXRAT( 178 ) ! xTBUO+RO2C=0.5000D+00*TBUO+... & + 5.0000D-01 * RXRAT( 179 ) ! xTBUO+RO2XC=0.5000D+... & + RXRAT( 180 ) ! xTBUO+MECO3=TBUO+MECO3 & + RXRAT( 181 ) ! xTBUO+RCO3=TBUO+RCO3 & + RXRAT( 182 ) ! xTBUO+BZCO3=TBUO+BZCO3 & + RXRAT( 183 ) ! xTBUO+MACO3=TBUO+MACO3 & + RXRAT( 843 ) ! xTBUO+IMACO3=TBUO+IMACO3 LOSS( TBUO ) = RXRAT( 99 ) ! TBUO+NO2=RNO3 & + RXRAT( 100 ) ! TBUO=ACETONE+MEO2 PROD( RNO3 ) = RXRAT( 99 ) ! TBUO+NO2=RNO3 & + RXRAT( 431 ) ! xRNO3+NO=RNO3+NO & + RXRAT( 433 ) ! xRNO3+NO3=RNO3+NO3 & + 5.0000D-01 * RXRAT( 434 ) ! xRNO3+MEO2=0.5000D+00*RNO3+... & + 5.0000D-01 * RXRAT( 435 ) ! xRNO3+RO2C=0.5000D+00*RNO3+... & + 5.0000D-01 * RXRAT( 436 ) ! xRNO3+RO2XC=0.5000D+... & + RXRAT( 437 ) ! xRNO3+MECO3=RNO3+MECO3 & + RXRAT( 438 ) ! xRNO3+RCO3=RNO3+RCO3 & + RXRAT( 439 ) ! xRNO3+BZCO3=RNO3+BZCO3 & + RXRAT( 440 ) ! xRNO3+MACO3=RNO3+MACO3 & + RXRAT( 482 ) ! zRNO3+NO=RNO3+NO & + RXRAT( 857 ) ! xRNO3+IMACO3=RNO3+IMACO3 LOSS( RNO3 ) = 8.1100D-01 * RXRAT( 255 ) ! RNO3+OH=0.1890D+00*RNO3+... & + RXRAT( 256 ) ! RNO3=0.3440D+00*HO2+... & + 9.4500D-01 * RXRAT( 615 ) ! RNO3+CL=0.5500D-01*RNO3+... PROD( ACETONE ) = RXRAT( 100 ) ! TBUO=ACETONE+MEO2 & + RXRAT( 301 ) ! xACETONE+NO=ACETONE+NO & + RXRAT( 303 ) ! xACETONE+NO3=ACETONE+NO3 & + 5.0000D-01 * RXRAT( 304 ) ! xACETONE+MEO2=0.5000D+... & + 5.0000D-01 * RXRAT( 305 ) ! xACETONE+RO2C=0.5000D+... & + 5.0000D-01 * RXRAT( 306 ) ! xACETONE+RO2XC=0.5000D+... & + RXRAT( 307 ) ! xACETONE+MECO3=ACETONE+MECO3 & + RXRAT( 308 ) ! xACETONE+RCO3=ACETONE+RCO3 & + RXRAT( 309 ) ! xACETONE+BZCO3=ACETONE+BZCO3 & + RXRAT( 310 ) ! xACETONE+MACO3=ACETONE+MACO3 & + 5.1000D-02 * RXRAT( 562 ) ! OLE2+O3=0.5100D-01*ACETONE+... & + 2.3900D-01 * RXRAT( 571 ) ! TERPNRO2+NO=0.2390D+... & + 4.4300D-01 * RXRAT( 573 ) ! TERPNRO2+NO3=0.4430D+... & + 2.2200D-01 * RXRAT( 574 ) ! TERPNRO2+MEO2=0.2220D+... & + 2.2200D-01 * RXRAT( 575 ) ! TERPNRO2+RO2C=0.2220D+... & + 2.2200D-01 * RXRAT( 576 ) ! TERPNRO2+RO2XC=0.2220D+... & + 4.4300D-01 * RXRAT( 577 ) ! TERPNRO2+MECO3=0.4430D+... & + 4.4300D-01 * RXRAT( 578 ) ! TERPNRO2+RCO3=0.4430D+... & + 4.4300D-01 * RXRAT( 579 ) ! TERPNRO2+BZCO3=0.4430D+... & + 4.4300D-01 * RXRAT( 580 ) ! TERPNRO2+MACO3=0.4430D+... & + 4.4300D-01 * RXRAT( 581 ) ! TERPNRO2+IMACO3=0.4430D+... & + RXRAT( 870 ) ! xACETONE+IMACO3=ACETONE+IMACO3 LOSS( ACETONE ) = RXRAT( 204 ) ! ACETONE+OH=RO2C+xMECO3+... & + RXRAT( 205 ) ! ACETONE=0.6200D+00*MECO3+... & + RXRAT( 613 ) ! ACETONE+CL=HCL+RO2C+xHCHO+... PROD( NPHE ) = RXRAT( 101 ) ! BZO+NO2=NPHE LOSS( NPHE ) = RXRAT( 230 ) ! NPHE+OH=BZO & + RXRAT( 231 ) ! NPHE=HONO & + RXRAT( 232 ) ! NPHE= PROD( CRES ) = RXRAT( 102 ) ! BZO+HO2=CRES & + RXRAT( 103 ) ! BZO=CRES+RO2C+xHO2 & + 5.7000D-01 * RXRAT( 544 ) ! BENZENE+OH=0.5700D+00*CRES+... & + 1.8100D-01 * RXRAT( 545 ) ! TOLUENE+OH=0.1810D+00*CRES+... & + 1.5900D-01 * RXRAT( 546 ) ! MXYL+OH=0.1590D+00*CRES+... & + 1.6100D-01 * RXRAT( 547 ) ! OXYL+OH=0.1610D+00*CRES+... & + 1.5900D-01 * RXRAT( 548 ) ! PXYL+OH=0.1590D+00*CRES+... & + 2.2000D-02 * RXRAT( 549 ) ! TMBENZ124+OH=0.2200D-... & + 1.2300D-01 * RXRAT( 565 ) ! ARO1+OH=0.1230D+00*CRES+... & + 7.7000D-02 * RXRAT( 566 ) ! ARO2MN+OH=0.7700D-01*CRES+... & + 7.7000D-02 * RXRAT( 567 ) ! NAPHTHAL+OH=0.7700D-... LOSS( CRES ) = RXRAT( 228 ) ! CRES+OH=0.2000D+00*BZO+... & + RXRAT( 229 ) ! CRES+NO3=HNO3+BZO & + RXRAT( 619 ) ! CRES+CL=HCL+xHO2+xBALD+yR6OOH PROD( xOH ) = 1.2000D-02 * RXRAT( 214 ) ! ROOH+OH=0.1200D-01*xOH+... & + 4.1000D-02 * RXRAT( 216 ) ! R6OOH+OH=0.4100D-01*xOH+... & + 2.4000D-02 * RXRAT( 218 ) ! RAOOH+OH=0.2400D-01*xOH+... & + 2.0000D-02 * RXRAT( 264 ) ! CCOOOH+OH=0.2000D-01*xOH+... & + 1.1000D-01 * RXRAT( 266 ) ! RCOOOH+OH=0.1100D+00*xOH+... & + 1.0400D-01 * RXRAT( 621 ) ! ROOH+CL=0.1040D+00*xOH+... & + 5.0200D-01 * RXRAT( 622 ) ! R6OOH+CL=0.5020D+00*xOH+... & + 2.4000D-02 * RXRAT( 623 ) ! RAOOH+CL=0.2400D-01*xOH+... LOSS( xOH ) = RXRAT( 114 ) ! xOH+NO=NO+OH & + RXRAT( 115 ) ! xOH+HO2=HO2 & + RXRAT( 116 ) ! xOH+NO3=NO3+OH & + RXRAT( 117 ) ! xOH+MEO2=MEO2+0.5000D+00*OH & + RXRAT( 118 ) ! xOH+RO2C=RO2C+0.5000D+00*OH & + RXRAT( 119 ) ! xOH+RO2XC=RO2XC+0.5000D+00*OH & + RXRAT( 120 ) ! xOH+MECO3=MECO3+OH & + RXRAT( 121 ) ! xOH+RCO3=RCO3+OH & + RXRAT( 122 ) ! xOH+BZCO3=BZCO3+OH & + RXRAT( 123 ) ! xOH+MACO3=MACO3+OH & + RXRAT( 849 ) ! xOH+IMACO3=IMACO3+OH PROD( xNO2 ) = 3.1300D-01 * RXRAT( 255 ) ! RNO3+OH=0.3130D+00*xNO2+... & + 1.2000D-01 * RXRAT( 534 ) ! BUTADIENE13+NO3=0.1200D+... & + 6.4300D-01 * RXRAT( 540 ) ! APIN+NO3=0.6430D+00*xNO2+... & + 4.2600D-01 * RXRAT( 563 ) ! OLE2+NO3=0.4260D+00*xNO2+... & + 2.8700D-01 * RXRAT( 585 ) ! SESQ+NO3=0.2870D+00*xNO2+... & + 1.5900D-01 * RXRAT( 615 ) ! RNO3+CL=0.1590D+00*xNO2+... & + 1.5900D-01 * RXRAT( 881 ) ! MTNO3+CL=0.1590D+00*xNO2+... & + 3.1300D-01 * RXRAT( 882 ) ! MTNO3+OH=0.3130D+00*xNO2+... LOSS( xNO2 ) = RXRAT( 124 ) ! xNO2+NO=NO+NO2 & + RXRAT( 125 ) ! xNO2+HO2=HO2 & + RXRAT( 126 ) ! xNO2+NO3=NO3+NO2 & + RXRAT( 127 ) ! xNO2+MEO2=MEO2+0.5000D+00*NO2 & + RXRAT( 128 ) ! xNO2+RO2C=RO2C+0.5000D+00*NO2 & + RXRAT( 129 ) ! xNO2+RO2XC=RO2XC+0.5000D+... & + RXRAT( 130 ) ! xNO2+MECO3=MECO3+NO2 & + RXRAT( 131 ) ! xNO2+RCO3=RCO3+NO2 & + RXRAT( 132 ) ! xNO2+BZCO3=BZCO3+NO2 & + RXRAT( 133 ) ! xNO2+MACO3=MACO3+NO2 & + RXRAT( 848 ) ! xNO2+IMACO3=IMACO3+NO2 PROD( xMEO2 ) = 1.0000D-02 * RXRAT( 554 ) ! ALK4+OH=0.1000D-01*xMEO2+... & + 1.0000D-03 * RXRAT( 557 ) ! OLE1+OH=0.1000D-02*xMEO2+... & + 3.5000D-02 * RXRAT( 563 ) ! OLE2+NO3=0.3500D-01*xMEO2+... & + 3.0000D-03 * RXRAT( 677 ) ! ALK4+CL=0.3000D-02*xMEO2+... & + 1.0000D-03 * RXRAT( 680 ) ! OLE2+CL=0.1000D-02*xMEO2+... LOSS( xMEO2 ) = RXRAT( 134 ) ! xMEO2+NO=NO+MEO2 & + RXRAT( 135 ) ! xMEO2+HO2=HO2 & + RXRAT( 136 ) ! xMEO2+NO3=NO3+MEO2 & + RXRAT( 137 ) ! xMEO2+MEO2=0.1500D+01*MEO2 & + RXRAT( 138 ) ! xMEO2+RO2C=RO2C+0.5000D+... & + RXRAT( 139 ) ! xMEO2+RO2XC=RO2XC+0.5000D+... & + RXRAT( 140 ) ! xMEO2+MECO3=MECO3+MEO2 & + RXRAT( 141 ) ! xMEO2+RCO3=RCO3+MEO2 & + RXRAT( 142 ) ! xMEO2+BZCO3=BZCO3+MEO2 & + RXRAT( 143 ) ! xMEO2+MACO3=MACO3+MEO2 & + RXRAT( 847 ) ! xMEO2+IMACO3=IMACO3+MEO2 PROD( xMECO3 ) = RXRAT( 204 ) ! ACETONE+OH=xMECO3+RO2C+... & + 5.1000D-01 * RXRAT( 206 ) ! MEK+OH=0.5100D+00*xMECO3+... & + 2.0100D-01 * RXRAT( 236 ) ! AFG1+OH=0.2010D+00*xMECO3+... & + 2.0100D-01 * RXRAT( 239 ) ! AFG2+OH=0.2010D+00*xMECO3+... & + 1.1700D-01 * RXRAT( 242 ) ! AFG3+OH=0.1170D+00*xMECO3+... & + 2.9000D-02 * RXRAT( 253 ) ! PRD2+OH=0.2900D-01*xMECO3+... & + 1.0000D-03 * RXRAT( 539 ) ! APIN+O3=0.1000D-02*xMECO3+... & + 1.1000D-02 * RXRAT( 554 ) ! ALK4+OH=0.1100D-01*xMECO3+... & + 1.5600D-01 * RXRAT( 562 ) ! OLE2+O3=0.1560D+00*xMECO3+... & + 2.0200D-01 * RXRAT( 569 ) ! TERP+O3=0.2020D+00*xMECO3+... & + 2.0200D-01 * RXRAT( 584 ) ! SESQ+O3=0.2020D+00*xMECO3+... & + RXRAT( 613 ) ! ACETONE+CL=xMECO3+RO2C+... & + 8.5000D-02 * RXRAT( 614 ) ! MEK+CL=0.8500D-01*xMECO3+... & + 7.0000D-03 * RXRAT( 616 ) ! PRD2+CL=0.7000D-02*xMECO3+... & + 6.2500D-01 * RXRAT( 625 ) ! MVK+CL=0.6250D+00*xMECO3+... & + 3.4000D-02 * RXRAT( 666 ) ! APIN+CL=0.3400D-01*xMECO3+... & + 4.0000D-03 * RXRAT( 677 ) ! ALK4+CL=0.4000D-02*xMECO3+... & + 3.4000D-02 * RXRAT( 684 ) ! TERP+CL=0.3400D-01*xMECO3+... & + 3.4000D-02 * RXRAT( 685 ) ! SESQ+CL=0.3400D-01*xMECO3+... & + 3.3000D-01 * RXRAT( 825 ) ! MACR=0.3300D+00*xMECO3+... LOSS( xMECO3 ) = RXRAT( 144 ) ! xMECO3+NO=NO+MECO3 & + RXRAT( 145 ) ! xMECO3+HO2=HO2 & + RXRAT( 146 ) ! xMECO3+NO3=NO3+MECO3 & + RXRAT( 147 ) ! xMECO3+MEO2=MEO2+0.5000D+... & + RXRAT( 148 ) ! xMECO3+RO2C=RO2C+0.5000D+... & + RXRAT( 149 ) ! xMECO3+RO2XC=RO2XC+0.5000D+... & + RXRAT( 150 ) ! xMECO3+MECO3=0.2000D+01*MECO3 & + RXRAT( 151 ) ! xMECO3+RCO3=RCO3+MECO3 & + RXRAT( 152 ) ! xMECO3+BZCO3=BZCO3+MECO3 & + RXRAT( 153 ) ! xMECO3+MACO3=MACO3+MECO3 & + RXRAT( 846 ) ! xMECO3+IMACO3=IMACO3+MECO3 PROD( xRCO3 ) = 7.4000D-02 * RXRAT( 206 ) ! MEK+OH=0.7400D-01*xRCO3+... & + 6.5200D-01 * RXRAT( 237 ) ! AFG1+O3=0.6520D+00*xRCO3+... & + 6.5200D-01 * RXRAT( 240 ) ! AFG2+O3=0.6520D+00*xRCO3+... & + 1.6300D-01 * RXRAT( 243 ) ! AFG3+O3=0.1630D+00*xRCO3+... & + 1.0000D-01 * RXRAT( 244 ) ! MACR+O3=0.1000D+00*xRCO3+... & + 5.0000D-02 * RXRAT( 246 ) ! MVK+O3=0.5000D-01*xRCO3+... & + 4.8000D-02 * RXRAT( 250 ) ! IPRD+O3=0.4800D-01*xRCO3+... & + 4.9000D-02 * RXRAT( 253 ) ! PRD2+OH=0.4900D-01*xRCO3+... & + 4.0000D-03 * RXRAT( 538 ) ! APIN+OH=0.4000D-02*xRCO3+... & + 2.9700D-01 * RXRAT( 539 ) ! APIN+O3=0.2970D+00*xRCO3+... & + 7.0000D-03 * RXRAT( 540 ) ! APIN+NO3=0.7000D-02*xRCO3+... & + 8.0000D-03 * RXRAT( 562 ) ! OLE2+O3=0.8000D-02*xRCO3+... & + 6.4000D-02 * RXRAT( 568 ) ! TERP+OH=0.6400D-01*xRCO3+... & + 5.9000D-02 * RXRAT( 569 ) ! TERP+O3=0.5900D-01*xRCO3+... & + 6.4000D-02 * RXRAT( 583 ) ! SESQ+OH=0.6400D-01*xRCO3+... & + 5.9000D-02 * RXRAT( 584 ) ! SESQ+O3=0.5900D-01*xRCO3+... & + 2.6000D-02 * RXRAT( 585 ) ! SESQ+NO3=0.2600D-01*xRCO3+... & + 3.6000D-02 * RXRAT( 614 ) ! MEK+CL=0.3600D-01*xRCO3+... & + 2.2000D-02 * RXRAT( 616 ) ! PRD2+CL=0.2200D-01*xRCO3+... & + 5.0000D-02 * RXRAT( 666 ) ! APIN+CL=0.5000D-01*xRCO3+... & + 5.0000D-02 * RXRAT( 684 ) ! TERP+CL=0.5000D-01*xRCO3+... & + 5.0000D-02 * RXRAT( 685 ) ! SESQ+CL=0.5000D-01*xRCO3+... LOSS( xRCO3 ) = RXRAT( 154 ) ! xRCO3+NO=NO+RCO3 & + RXRAT( 155 ) ! xRCO3+HO2=HO2 & + RXRAT( 156 ) ! xRCO3+NO3=NO3+RCO3 & + RXRAT( 157 ) ! xRCO3+MEO2=MEO2+0.5000D+... & + RXRAT( 158 ) ! xRCO3+RO2C=RO2C+0.5000D+... & + RXRAT( 159 ) ! xRCO3+RO2XC=RO2XC+0.5000D+... & + RXRAT( 160 ) ! xRCO3+MECO3=MECO3+RCO3 & + RXRAT( 161 ) ! xRCO3+RCO3=0.2000D+01*RCO3 & + RXRAT( 162 ) ! xRCO3+BZCO3=BZCO3+RCO3 & + RXRAT( 163 ) ! xRCO3+MACO3=MACO3+RCO3 & + RXRAT( 845 ) ! xRCO3+IMACO3=IMACO3+RCO3 PROD( xMACO3 ) = 1.1800D-01 * RXRAT( 535 ) ! BUTADIENE13+O3P=0.1180D+... & + 1.9200D-01 * RXRAT( 536 ) ! ISOPRENE+O3=0.1920D+... & + 2.4000D-01 * RXRAT( 537 ) ! ISOPRENE+O3P=0.2400D+... & + 1.6000D-02 * RXRAT( 666 ) ! APIN+CL=0.1600D-01*xMACO3+... & + 1.6000D-02 * RXRAT( 684 ) ! TERP+CL=0.1600D-01*xMACO3+... & + 1.6000D-02 * RXRAT( 685 ) ! SESQ+CL=0.1600D-01*xMACO3+... LOSS( xMACO3 ) = RXRAT( 164 ) ! xMACO3+NO=NO+MACO3 & + RXRAT( 165 ) ! xMACO3+HO2=HO2 & + RXRAT( 166 ) ! xMACO3+NO3=NO3+MACO3 & + RXRAT( 167 ) ! xMACO3+MEO2=MEO2+0.5000D+... & + RXRAT( 168 ) ! xMACO3+RO2C=RO2C+0.5000D+... & + RXRAT( 169 ) ! xMACO3+RO2XC=RO2XC+0.5000D+... & + RXRAT( 170 ) ! xMACO3+MECO3=MECO3+MACO3 & + RXRAT( 171 ) ! xMACO3+RCO3=RCO3+MACO3 & + RXRAT( 172 ) ! xMACO3+BZCO3=BZCO3+MACO3 & + RXRAT( 173 ) ! xMACO3+MACO3=0.2000D+01*MACO3 & + RXRAT( 844 ) ! xMACO3+IMACO3=IMACO3+MACO3 PROD( xTBUO ) = 2.3600D-01 * RXRAT( 553 ) ! ALK3+OH=0.2360D+00*xTBUO+... & + 9.4000D-02 * RXRAT( 676 ) ! ALK3+CL=0.9400D-01*xTBUO+... LOSS( xTBUO ) = RXRAT( 174 ) ! xTBUO+NO=NO+TBUO & + RXRAT( 175 ) ! xTBUO+HO2=HO2 & + RXRAT( 176 ) ! xTBUO+NO3=NO3+TBUO & + RXRAT( 177 ) ! xTBUO+MEO2=MEO2+0.5000D+... & + RXRAT( 178 ) ! xTBUO+RO2C=RO2C+0.5000D+... & + RXRAT( 179 ) ! xTBUO+RO2XC=RO2XC+0.5000D+... & + RXRAT( 180 ) ! xTBUO+MECO3=MECO3+TBUO & + RXRAT( 181 ) ! xTBUO+RCO3=RCO3+TBUO & + RXRAT( 182 ) ! xTBUO+BZCO3=BZCO3+TBUO & + RXRAT( 183 ) ! xTBUO+MACO3=MACO3+TBUO & + RXRAT( 843 ) ! xTBUO+IMACO3=IMACO3+TBUO PROD( xCO ) = 3.5000D-02 * RXRAT( 201 ) ! RCHO+OH=0.3500D-01*xCO+... & + 3.3400D-01 * RXRAT( 236 ) ! AFG1+OH=0.3340D+00*xCO+... & + 3.3400D-01 * RXRAT( 239 ) ! AFG2+OH=0.3340D+00*xCO+... & + 1.1400D-01 * RXRAT( 242 ) ! AFG3+OH=0.1140D+00*xCO+... & + 3.3600D-01 * RXRAT( 249 ) ! IPRD+OH=0.3360D+00*xCO+... & + 5.7200D-01 * RXRAT( 251 ) ! IPRD+NO3=0.5720D+00*xCO+... & + 1.6700D-01 * RXRAT( 259 ) ! ACROLEIN+OH=0.1670D+00*xCO+... & + 3.1000D-02 * RXRAT( 261 ) ! ACROLEIN+NO3=0.3100D-... & + 2.7800D-01 * RXRAT( 527 ) ! ETHENE+O3P=0.2780D+00*xCO+... & + 1.1500D-01 * RXRAT( 535 ) ! BUTADIENE13+O3P=0.1150D+... & + 2.0000D-03 * RXRAT( 538 ) ! APIN+OH=0.2000D-02*xCO+... & + 5.1000D-02 * RXRAT( 539 ) ! APIN+O3=0.5100D-01*xCO+... & + 5.0000D-03 * RXRAT( 540 ) ! APIN+NO3=0.5000D-02*xCO+... & + 2.0000D-03 * RXRAT( 554 ) ! ALK4+OH=0.2000D-02*xCO+... & + 1.0000D-03 * RXRAT( 568 ) ! TERP+OH=0.1000D-02*xCO+... & + 1.0000D-03 * RXRAT( 583 ) ! SESQ+OH=0.1000D-02*xCO+... & + 1.2000D-02 * RXRAT( 585 ) ! SESQ+NO3=0.1200D-01*xCO+... & + 1.0000D-01 * RXRAT( 612 ) ! RCHO+CL=0.1000D+00*xCO+... & + 4.8400D-01 * RXRAT( 624 ) ! ACROLEIN+CL=0.4840D+00*xCO+... & + 4.9800D-01 * RXRAT( 626 ) ! IPRD+CL=0.4980D+00*xCO+... & + 3.5000D-02 * RXRAT( 666 ) ! APIN+CL=0.3500D-01*xCO+... & + 3.0000D-03 * RXRAT( 677 ) ! ALK4+CL=0.3000D-02*xCO+... & + 3.5000D-02 * RXRAT( 684 ) ! TERP+CL=0.3500D-01*xCO+... & + 3.5000D-02 * RXRAT( 685 ) ! SESQ+CL=0.3500D-01*xCO+... & + 5.0000D-01 * RXRAT( 824 ) ! MACR+NO3=0.5000D+00*xCO+... & + 5.4100D-01 * RXRAT( 826 ) ! MACR+CL=0.5410D+00*xCO+... LOSS( xCO ) = RXRAT( 184 ) ! xCO+NO=NO+CO & + RXRAT( 185 ) ! xCO+HO2=HO2 & + RXRAT( 186 ) ! xCO+NO3=NO3+CO & + RXRAT( 187 ) ! xCO+MEO2=MEO2+0.5000D+00*CO & + RXRAT( 188 ) ! xCO+RO2C=RO2C+0.5000D+00*CO & + RXRAT( 189 ) ! xCO+RO2XC=RO2XC+0.5000D+00*CO & + RXRAT( 190 ) ! xCO+MECO3=MECO3+CO & + RXRAT( 191 ) ! xCO+RCO3=RCO3+CO & + RXRAT( 192 ) ! xCO+BZCO3=BZCO3+CO & + RXRAT( 193 ) ! xCO+MACO3=MACO3+CO & + RXRAT( 842 ) ! xCO+IMACO3=IMACO3+CO PROD( CCHO ) = 1.0000D-03 * RXRAT( 253 ) ! PRD2+OH=0.1000D-02*CCHO+... & + 2.1400D-01 * RXRAT( 256 ) ! RNO3=0.2140D+00*CCHO+... & + RXRAT( 281 ) ! xCCHO+NO=CCHO+NO & + RXRAT( 283 ) ! xCCHO+NO3=CCHO+NO3 & + 5.0000D-01 * RXRAT( 284 ) ! xCCHO+MEO2=0.5000D+00*CCHO+... & + 5.0000D-01 * RXRAT( 285 ) ! xCCHO+RO2C=0.5000D+00*CCHO+... & + 5.0000D-01 * RXRAT( 286 ) ! xCCHO+RO2XC=0.5000D+... & + RXRAT( 287 ) ! xCCHO+MECO3=CCHO+MECO3 & + RXRAT( 288 ) ! xCCHO+RCO3=CCHO+RCO3 & + RXRAT( 289 ) ! xCCHO+BZCO3=CCHO+BZCO3 & + RXRAT( 290 ) ! xCCHO+MACO3=CCHO+MACO3 & + 1.0000D-01 * RXRAT( 527 ) ! ETHENE+O3P=0.1000D+00*CCHO+... & + 5.0000D-01 * RXRAT( 529 ) ! PROPENE+O3=0.5000D+00*CCHO+... & + 9.5000D-01 * RXRAT( 550 ) ! ETOH+OH=0.9500D+00*CCHO+... & + 4.5300D-01 * RXRAT( 562 ) ! OLE2+O3=0.4530D+00*CCHO+... & + 6.8800D-01 * RXRAT( 673 ) ! ETOH+CL=0.6880D+00*CCHO+... & + RXRAT( 810 ) ! PYRUACD=CCHO+CO2 & + RXRAT( 872 ) ! xCCHO+IMACO3=CCHO+IMACO3 & + 2.1400D-01 * RXRAT( 883 ) ! MTNO3=0.2140D+00*CCHO+... LOSS( CCHO ) = RXRAT( 198 ) ! CCHO+OH=MECO3 & + RXRAT( 199 ) ! CCHO=CO+HO2+MEO2 & + RXRAT( 200 ) ! CCHO+NO3=HNO3+MECO3 & + RXRAT( 610 ) ! CCHO+CL=HCL+MECO3 PROD( RCHO ) = 7.4400D-01 * RXRAT( 214 ) ! ROOH+OH=0.7440D+00*RCHO+... & + RXRAT( 215 ) ! ROOH=RCHO+HO2+OH & + 8.5000D-02 * RXRAT( 217 ) ! R6OOH=0.8500D-01*RCHO+... & + RXRAT( 245 ) ! MACR+O3P=RCHO & + 4.5000D-01 * RXRAT( 247 ) ! MVK+O3P=0.4500D+00*RCHO+... & + 1.4300D-01 * RXRAT( 253 ) ! PRD2+OH=0.1430D+00*RCHO+... & + 1.0000D-03 * RXRAT( 255 ) ! RNO3+OH=0.1000D-02*RCHO+... & + 7.4000D-02 * RXRAT( 256 ) ! RNO3=0.7400D-01*RCHO+... & + RXRAT( 262 ) ! ACROLEIN+O3P=RCHO & + RXRAT( 291 ) ! xRCHO+NO=RCHO+NO & + RXRAT( 293 ) ! xRCHO+NO3=RCHO+NO3 & + 5.0000D-01 * RXRAT( 294 ) ! xRCHO+MEO2=0.5000D+00*RCHO+... & + 5.0000D-01 * RXRAT( 295 ) ! xRCHO+RO2C=0.5000D+00*RCHO+... & + 5.0000D-01 * RXRAT( 296 ) ! xRCHO+RO2XC=0.5000D+... & + RXRAT( 297 ) ! xRCHO+MECO3=RCHO+MECO3 & + RXRAT( 298 ) ! xRCHO+RCO3=RCHO+RCO3 & + RXRAT( 299 ) ! xRCHO+BZCO3=RCHO+BZCO3 & + RXRAT( 300 ) ! xRCHO+MACO3=RCHO+MACO3 & + 4.5000D-01 * RXRAT( 531 ) ! PROPENE+O3P=0.4500D+... & + 5.0000D-01 * RXRAT( 558 ) ! OLE1+O3=0.5000D+00*RCHO+... & + 4.5000D-01 * RXRAT( 560 ) ! OLE1+O3P=0.4500D+00*RCHO+... & + 3.3300D-01 * RXRAT( 562 ) ! OLE2+O3=0.3330D+00*RCHO+... & + 7.9000D-02 * RXRAT( 564 ) ! OLE2+O3P=0.7900D-01*RCHO+... & + 4.0300D-01 * RXRAT( 571 ) ! TERPNRO2+NO=0.4030D+... & + 7.4600D-01 * RXRAT( 573 ) ! TERPNRO2+NO3=0.7460D+... & + 3.7300D-01 * RXRAT( 574 ) ! TERPNRO2+MEO2=0.3730D+... & + 3.7300D-01 * RXRAT( 575 ) ! TERPNRO2+RO2C=0.3730D+... & + 3.7300D-01 * RXRAT( 576 ) ! TERPNRO2+RO2XC=0.3730D+... & + 7.4600D-01 * RXRAT( 577 ) ! TERPNRO2+MECO3=0.7460D+... & + 7.4600D-01 * RXRAT( 578 ) ! TERPNRO2+RCO3=0.7460D+... & + 7.4600D-01 * RXRAT( 579 ) ! TERPNRO2+BZCO3=0.7460D+... & + 7.4600D-01 * RXRAT( 580 ) ! TERPNRO2+MACO3=0.7460D+... & + 7.4600D-01 * RXRAT( 581 ) ! TERPNRO2+IMACO3=0.7460D+... & + 2.3700D-01 * RXRAT( 582 ) ! TERP+O3P=0.2370D+00*RCHO+... & + 2.3700D-01 * RXRAT( 586 ) ! SESQ+O3P=0.2370D+00*RCHO+... & + 9.0000D-03 * RXRAT( 615 ) ! RNO3+CL=0.9000D-02*RCHO+... & + 1.9800D-01 * RXRAT( 616 ) ! PRD2+CL=0.1980D+00*RCHO+... & + 4.1400D-01 * RXRAT( 621 ) ! ROOH+CL=0.4140D+00*RCHO+... & + RXRAT( 871 ) ! xRCHO+IMACO3=RCHO+IMACO3 & + 9.0000D-03 * RXRAT( 881 ) ! MTNO3+CL=0.9000D-02*RCHO+... & + 1.0000D-03 * RXRAT( 882 ) ! MTNO3+OH=0.1000D-02*RCHO+... & + 7.4000D-02 * RXRAT( 883 ) ! MTNO3=0.7400D-01*RCHO+... LOSS( RCHO ) = RXRAT( 201 ) ! RCHO+OH=0.9650D+00*RCO3+... & + RXRAT( 202 ) ! RCHO=RO2C+xHO2+yROOH+xCCHO+... & + RXRAT( 203 ) ! RCHO+NO3=HNO3+RCO3 & + RXRAT( 612 ) ! RCHO+CL=HCL+0.9000D+... PROD( xHCHO ) = RXRAT( 204 ) ! ACETONE+OH=xHCHO+xMECO3+... & + 8.8000D-02 * RXRAT( 206 ) ! MEK+OH=0.8800D-01*xHCHO+... & + 1.2000D-02 * RXRAT( 214 ) ! ROOH+OH=0.1200D-01*xHCHO+... & + 6.5200D-01 * RXRAT( 237 ) ! AFG1+O3=0.6520D+00*xHCHO+... & + 6.5200D-01 * RXRAT( 240 ) ! AFG2+O3=0.6520D+00*xHCHO+... & + 1.6300D-01 * RXRAT( 243 ) ! AFG3+O3=0.1630D+00*xHCHO+... & + 1.0000D-01 * RXRAT( 244 ) ! MACR+O3=0.1000D+00*xHCHO+... & + 5.0000D-02 * RXRAT( 246 ) ! MVK+O3=0.5000D-01*xHCHO+... & + 5.5000D-02 * RXRAT( 249 ) ! IPRD+OH=0.5500D-01*xHCHO+... & + 1.0000D-03 * RXRAT( 250 ) ! IPRD+O3=0.1000D-02*xHCHO+... & + 2.2700D-01 * RXRAT( 251 ) ! IPRD+NO3=0.2270D+00*xHCHO+... & + 2.1100D-01 * RXRAT( 253 ) ! PRD2+OH=0.2110D+00*xHCHO+... & + 3.0300D-01 * RXRAT( 254 ) ! PRD2=0.3030D+00*xHCHO+... & + 1.1000D-02 * RXRAT( 255 ) ! RNO3+OH=0.1100D-01*xHCHO+... & + 6.1000D-02 * RXRAT( 256 ) ! RNO3=0.6100D-01*xHCHO+... & + 8.3000D-02 * RXRAT( 259 ) ! ACROLEIN+OH=0.8300D-... & + 2.0000D-02 * RXRAT( 264 ) ! CCOOOH+OH=0.2000D-01*xHCHO+... & + 1.6100D+00 * RXRAT( 524 ) ! ETHENE+OH=0.1610D+01*xHCHO+... & + 2.7800D-01 * RXRAT( 527 ) ! ETHENE+O3P=0.2780D+... & + 9.8400D-01 * RXRAT( 528 ) ! PROPENE+OH=0.9840D+... & + 7.0800D-01 * RXRAT( 532 ) ! BUTADIENE13+OH=0.7080D+... & + 1.1500D-01 * RXRAT( 534 ) ! BUTADIENE13+NO3=0.1150D+... & + 1.9200D-01 * RXRAT( 536 ) ! ISOPRENE+O3=0.1920D+... & + 2.4000D-01 * RXRAT( 537 ) ! ISOPRENE+O3P=0.2400D+... & + 2.2000D-02 * RXRAT( 538 ) ! APIN+OH=0.2200D-01*xHCHO+... & + 3.4400D-01 * RXRAT( 539 ) ! APIN+O3=0.3440D+00*xHCHO+... & + 7.0000D-03 * RXRAT( 540 ) ! APIN+NO3=0.7000D-02*xHCHO+... & + 8.1000D-02 * RXRAT( 550 ) ! ETOH+OH=0.8100D-01*xHCHO+... & + 2.6000D-02 * RXRAT( 553 ) ! ALK3+OH=0.2600D-01*xHCHO+... & + 2.9000D-02 * RXRAT( 554 ) ! ALK4+OH=0.2900D-01*xHCHO+... & + 4.0000D-02 * RXRAT( 555 ) ! ALK5+OH=0.4000D-01*xHCHO+... & + 5.8200D-01 * RXRAT( 557 ) ! OLE1+OH=0.5820D+00*xHCHO+... & + 1.7900D-01 * RXRAT( 561 ) ! OLE2+OH=0.1790D+00*xHCHO+... & + 1.1400D-01 * RXRAT( 562 ) ! OLE2+O3=0.1140D+00*xHCHO+... & + 7.2000D-02 * RXRAT( 563 ) ! OLE2+NO3=0.7200D-01*xHCHO+... & + 4.1100D-01 * RXRAT( 568 ) ! TERP+OH=0.4110D+00*xHCHO+... & + 3.3000D-02 * RXRAT( 569 ) ! TERP+O3=0.3300D-01*xHCHO+... & + 4.1100D-01 * RXRAT( 583 ) ! SESQ+OH=0.4110D+00*xHCHO+... & + 3.3000D-02 * RXRAT( 584 ) ! SESQ+O3=0.3300D-01*xHCHO+... & + 2.3000D-02 * RXRAT( 585 ) ! SESQ+NO3=0.2300D-01*xHCHO+... & + RXRAT( 613 ) ! ACETONE+CL=xHCHO+RO2C+HCL+... & + 6.5000D-02 * RXRAT( 614 ) ! MEK+CL=0.6500D-01*xHCHO+... & + 4.5000D-02 * RXRAT( 615 ) ! RNO3+CL=0.4500D-01*xHCHO+... & + 2.3700D-01 * RXRAT( 616 ) ! PRD2+CL=0.2370D+00*xHCHO+... & + 1.0600D-01 * RXRAT( 621 ) ! ROOH+CL=0.1060D+00*xHCHO+... & + 2.7400D-01 * RXRAT( 624 ) ! ACROLEIN+CL=0.2740D+... & + 1.9500D-01 * RXRAT( 626 ) ! IPRD+CL=0.1950D+00*xHCHO+... & + RXRAT( 627 ) ! CLCCHO=xHCHO+CO+RO2C+xCL+... & + RXRAT( 630 ) ! CLACET=xHCHO+RO2C+xCL+... & + RXRAT( 662 ) ! ETHENE+CL=xHCHO+0.2000D+... & + 8.6300D-01 * RXRAT( 664 ) ! BUTADIENE13+CL=0.8630D+... & + 2.7500D-01 * RXRAT( 665 ) ! ISOPRENE+CL=0.2750D+... & + 1.5800D-01 * RXRAT( 666 ) ! APIN+CL=0.1580D+00*xHCHO+... & + 5.0300D-01 * RXRAT( 673 ) ! ETOH+CL=0.5030D+00*xHCHO+... & + 7.8000D-02 * RXRAT( 676 ) ! ALK3+CL=0.7800D-01*xHCHO+... & + 3.4000D-02 * RXRAT( 677 ) ! ALK4+CL=0.3400D-01*xHCHO+... & + 2.2000D-02 * RXRAT( 678 ) ! ALK5+CL=0.2200D-01*xHCHO+... & + 3.6000D-02 * RXRAT( 679 ) ! OLE1+CL=0.3600D-01*xHCHO+... & + 1.9000D-01 * RXRAT( 680 ) ! OLE2+CL=0.1900D+00*xHCHO+... & + 1.5800D-01 * RXRAT( 684 ) ! TERP+CL=0.1580D+00*xHCHO+... & + 1.5800D-01 * RXRAT( 685 ) ! SESQ+CL=0.1580D+00*xHCHO+... & + 3.3000D-01 * RXRAT( 825 ) ! MACR=0.3300D+00*xHCHO+... & + 4.5000D-02 * RXRAT( 881 ) ! MTNO3+CL=0.4500D-01*xHCHO+... & + 1.1000D-02 * RXRAT( 882 ) ! MTNO3+OH=0.1100D-01*xHCHO+... & + 6.1000D-02 * RXRAT( 883 ) ! MTNO3=0.6100D-01*xHCHO+... LOSS( xHCHO ) = RXRAT( 271 ) ! xHCHO+NO=NO+HCHO & + RXRAT( 272 ) ! xHCHO+HO2=HO2 & + RXRAT( 273 ) ! xHCHO+NO3=NO3+HCHO & + RXRAT( 274 ) ! xHCHO+MEO2=MEO2+0.5000D+... & + RXRAT( 275 ) ! xHCHO+RO2C=RO2C+0.5000D+... & + RXRAT( 276 ) ! xHCHO+RO2XC=RO2XC+0.5000D+... & + RXRAT( 277 ) ! xHCHO+MECO3=MECO3+HCHO & + RXRAT( 278 ) ! xHCHO+RCO3=RCO3+HCHO & + RXRAT( 279 ) ! xHCHO+BZCO3=BZCO3+HCHO & + RXRAT( 280 ) ! xHCHO+MACO3=MACO3+HCHO & + RXRAT( 873 ) ! xHCHO+IMACO3=IMACO3+HCHO PROD( MEK ) = 5.5000D-01 * RXRAT( 247 ) ! MVK+O3P=0.5500D+00*MEK+... & + 2.1000D-01 * RXRAT( 250 ) ! IPRD+O3=0.2100D+00*MEK+... & + 2.3300D-01 * RXRAT( 252 ) ! IPRD=0.2330D+00*MEK+... & + 1.0000D-02 * RXRAT( 255 ) ! RNO3+OH=0.1000D-01*MEK+... & + 1.2400D-01 * RXRAT( 256 ) ! RNO3=0.1240D+00*MEK+... & + RXRAT( 311 ) ! xMEK+NO=MEK+NO & + RXRAT( 313 ) ! xMEK+NO3=MEK+NO3 & + 5.0000D-01 * RXRAT( 314 ) ! xMEK+MEO2=0.5000D+00*MEK+MEO2 & + 5.0000D-01 * RXRAT( 315 ) ! xMEK+RO2C=0.5000D+00*MEK+RO2C & + 5.0000D-01 * RXRAT( 316 ) ! xMEK+RO2XC=0.5000D+00*MEK+... & + RXRAT( 317 ) ! xMEK+MECO3=MEK+MECO3 & + RXRAT( 318 ) ! xMEK+RCO3=MEK+RCO3 & + RXRAT( 319 ) ! xMEK+BZCO3=MEK+BZCO3 & + RXRAT( 320 ) ! xMEK+MACO3=MEK+MACO3 & + 5.0000D-01 * RXRAT( 455 ) ! yROOH+MEO2=0.5000D+00*MEK+MEO2 & + 5.0000D-01 * RXRAT( 456 ) ! yROOH+RO2C=0.5000D+00*MEK+RO2C & + 5.0000D-01 * RXRAT( 457 ) ! yROOH+RO2XC=0.5000D+00*MEK+... & + 5.5000D-01 * RXRAT( 531 ) ! PROPENE+O3P=0.5500D+00*MEK+... & + 8.0000D-03 * RXRAT( 539 ) ! APIN+O3=0.8000D-02*MEK+... & + 9.0000D-03 * RXRAT( 558 ) ! OLE1+O3=0.9000D-02*MEK+... & + 3.9000D-01 * RXRAT( 560 ) ! OLE1+O3P=0.3900D+00*MEK+... & + 3.3000D-02 * RXRAT( 562 ) ! OLE2+O3=0.3300D-01*MEK+... & + 7.5100D-01 * RXRAT( 564 ) ! OLE2+O3P=0.7510D+00*MEK+... & + 2.0000D-03 * RXRAT( 569 ) ! TERP+O3=0.2000D-02*MEK+... & + 2.0000D-03 * RXRAT( 584 ) ! SESQ+O3=0.2000D-02*MEK+... & + 1.8000D-02 * RXRAT( 615 ) ! RNO3+CL=0.1800D-01*MEK+... & + 5.0000D-01 * RXRAT( 777 ) ! MVKOO+MEO2=0.5000D+00*MEK+... & + 5.0000D-01 * RXRAT( 778 ) ! MVKOO+RO2C=0.5000D+00*MEK+... & + RXRAT( 869 ) ! xMEK+IMACO3=MEK+IMACO3 & + 1.8000D-02 * RXRAT( 881 ) ! MTNO3+CL=0.1800D-01*MEK+... & + 1.0000D-02 * RXRAT( 882 ) ! MTNO3+OH=0.1000D-01*MEK+... & + 1.2400D-01 * RXRAT( 883 ) ! MTNO3=0.1240D+00*MEK+... LOSS( MEK ) = RXRAT( 206 ) ! MEK+OH=0.9670D+00*RO2C+... & + RXRAT( 207 ) ! MEK=MECO3+RO2C+xHO2+xCCHO+... & + RXRAT( 614 ) ! MEK+CL=HCL+0.9750D+00*RO2C+... PROD( zRNO3 ) = 3.9000D-02 * RXRAT( 206 ) ! MEK+OH=0.3900D-01*zRNO3+... & + 4.0000D-03 * RXRAT( 214 ) ! ROOH+OH=0.4000D-02*zRNO3+... & + 2.9000D-02 * RXRAT( 216 ) ! R6OOH+OH=0.2900D-01*zRNO3+... & + 7.7000D-02 * RXRAT( 217 ) ! R6OOH=0.7700D-01*zRNO3+... & + 1.2400D-01 * RXRAT( 218 ) ! RAOOH+OH=0.1240D+00*zRNO3+... & + 6.0000D-02 * RXRAT( 236 ) ! AFG1+OH=0.6000D-01*zRNO3+... & + 6.0000D-02 * RXRAT( 239 ) ! AFG2+OH=0.6000D-01*zRNO3+... & + 1.1700D-01 * RXRAT( 242 ) ! AFG3+OH=0.1170D+00*zRNO3+... & + 7.0000D-03 * RXRAT( 243 ) ! AFG3+O3=0.7000D-02*zRNO3+... & + 4.1000D-02 * RXRAT( 249 ) ! IPRD+OH=0.4100D-01*zRNO3+... & + 5.1000D-02 * RXRAT( 251 ) ! IPRD+NO3=0.5100D-01*zRNO3+... & + 7.1000D-02 * RXRAT( 253 ) ! PRD2+OH=0.7100D-01*zRNO3+... & + 8.7000D-02 * RXRAT( 254 ) ! PRD2=0.8700D-01*zRNO3+... & + 1.7500D-01 * RXRAT( 255 ) ! RNO3+OH=0.1750D+00*zRNO3+... & + 1.0200D-01 * RXRAT( 256 ) ! RNO3=0.1020D+00*zRNO3+... & + 2.0000D-03 * RXRAT( 261 ) ! ACROLEIN+NO3=0.2000D-... & + 1.6000D-02 * RXRAT( 528 ) ! PROPENE+OH=0.1600D-... & + 5.1000D-02 * RXRAT( 530 ) ! PROPENE+NO3=0.5100D-... & + 4.9000D-02 * RXRAT( 532 ) ! BUTADIENE13+OH=0.4900D-... & + 6.5000D-02 * RXRAT( 534 ) ! BUTADIENE13+NO3=0.6500D-... & + 1.5000D-02 * RXRAT( 535 ) ! BUTADIENE13+O3P=0.1500D-... & + 8.0000D-03 * RXRAT( 536 ) ! ISOPRENE+O3=0.8000D-... & + 1.0000D-02 * RXRAT( 537 ) ! ISOPRENE+O3P=0.1000D-... & + 1.9700D-01 * RXRAT( 538 ) ! APIN+OH=0.1970D+00*zRNO3+... & + 3.3700D-01 * RXRAT( 539 ) ! APIN+O3=0.3370D+00*zRNO3+... & + 2.9300D-01 * RXRAT( 540 ) ! APIN+NO3=0.2930D+00*zRNO3+... & + 2.4000D-02 * RXRAT( 544 ) ! BENZENE+OH=0.2400D-... & + 5.4000D-02 * RXRAT( 545 ) ! TOLUENE+OH=0.5400D-... & + 8.2000D-02 * RXRAT( 546 ) ! MXYL+OH=0.8200D-01*zRNO3+... & + 8.7000D-02 * RXRAT( 547 ) ! OXYL+OH=0.8700D-01*zRNO3+... & + 7.6000D-02 * RXRAT( 548 ) ! PXYL+OH=0.7600D-01*zRNO3+... & + 1.2100D-01 * RXRAT( 549 ) ! TMBENZ124+OH=0.1210D+... & + 3.5000D-02 * RXRAT( 552 ) ! ALK2+OH=0.3500D-01*zRNO3+... & + 7.0000D-02 * RXRAT( 553 ) ! ALK3+OH=0.7000D-01*zRNO3+... & + 1.4900D-01 * RXRAT( 554 ) ! ALK4+OH=0.1490D+00*zRNO3+... & + 3.5300D-01 * RXRAT( 555 ) ! ALK5+OH=0.3530D+00*zRNO3+... & + 1.2800D-01 * RXRAT( 557 ) ! OLE1+OH=0.1280D+00*zRNO3+... & + 5.0000D-03 * RXRAT( 558 ) ! OLE1+O3=0.5000D-02*zRNO3+... & + 2.2800D-01 * RXRAT( 559 ) ! OLE1+NO3=0.2280D+00*zRNO3+... & + 8.8000D-02 * RXRAT( 561 ) ! OLE2+OH=0.8800D-01*zRNO3+... & + 3.0000D-03 * RXRAT( 562 ) ! OLE2+O3=0.3000D-02*zRNO3+... & + 1.4000D-01 * RXRAT( 563 ) ! OLE2+NO3=0.1400D+00*zRNO3+... & + 1.1000D-01 * RXRAT( 565 ) ! ARO1+OH=0.1100D+00*zRNO3+... & + 1.2800D-01 * RXRAT( 566 ) ! ARO2MN+OH=0.1280D+00*zRNO3+... & + 1.2800D-01 * RXRAT( 567 ) ! NAPHTHAL+OH=0.1280D+... & + 2.0100D-01 * RXRAT( 583 ) ! SESQ+OH=0.2010D+00*zRNO3+... & + 1.2100D-01 * RXRAT( 584 ) ! SESQ+O3=0.1210D+00*zRNO3+... & + 4.6000D-01 * RXRAT( 585 ) ! SESQ+NO3=0.4600D+00*zRNO3+... & + 3.9000D-02 * RXRAT( 614 ) ! MEK+CL=0.3900D-01*zRNO3+... & + 2.0200D-01 * RXRAT( 615 ) ! RNO3+CL=0.2020D+00*zRNO3+... & + 1.1600D-01 * RXRAT( 616 ) ! PRD2+CL=0.1160D+00*zRNO3+... & + 1.1700D-01 * RXRAT( 622 ) ! R6OOH+CL=0.1170D+00*zRNO3+... & + 1.2400D-01 * RXRAT( 623 ) ! RAOOH+CL=0.1240D+00*zRNO3+... & + 2.6000D-02 * RXRAT( 624 ) ! ACROLEIN+CL=0.2600D-... & + 5.3000D-02 * RXRAT( 625 ) ! MVK+CL=0.5300D-01*zRNO3+... & + 5.1000D-02 * RXRAT( 626 ) ! IPRD+CL=0.5100D-01*zRNO3+... & + 2.9000D-02 * RXRAT( 663 ) ! PROPENE+CL=0.2900D-... & + 6.9000D-02 * RXRAT( 664 ) ! BUTADIENE13+CL=0.6900D-... & + 8.5000D-02 * RXRAT( 665 ) ! ISOPRENE+CL=0.8500D-... & + 5.8200D-01 * RXRAT( 666 ) ! APIN+CL=0.5820D+00*zRNO3+... & + 1.0600D-01 * RXRAT( 668 ) ! TOLUENE+CL=0.1060D+... & + 1.3600D-01 * RXRAT( 669 ) ! MXYL+CL=0.1360D+00*zRNO3+... & + 1.3600D-01 * RXRAT( 670 ) ! OXYL+CL=0.1360D+00*zRNO3+... & + 1.3600D-01 * RXRAT( 671 ) ! PXYL+CL=0.1360D+00*zRNO3+... & + 1.6200D-01 * RXRAT( 672 ) ! TMBENZ124+CL=0.1620D+... & + 3.0000D-02 * RXRAT( 675 ) ! ALK2+CL=0.3000D-01*zRNO3+... & + 7.0000D-02 * RXRAT( 676 ) ! ALK3+CL=0.7000D-01*zRNO3+... & + 1.6500D-01 * RXRAT( 677 ) ! ALK4+CL=0.1650D+00*zRNO3+... & + 3.5200D-01 * RXRAT( 678 ) ! ALK5+CL=0.3520D+00*zRNO3+... & + 1.2700D-01 * RXRAT( 679 ) ! OLE1+CL=0.1270D+00*zRNO3+... & + 1.0600D-01 * RXRAT( 680 ) ! OLE2+CL=0.1060D+00*zRNO3+... & + 1.6000D-01 * RXRAT( 681 ) ! ARO1+CL=0.1600D+00*zRNO3+... & + 1.7200D-01 * RXRAT( 682 ) ! ARO2MN+CL=0.1720D+00*zRNO3+... & + 1.7200D-01 * RXRAT( 683 ) ! NAPHTHAL+CL=0.1720D+... & + 5.8200D-01 * RXRAT( 684 ) ! TERP+CL=0.5820D+00*zRNO3+... & + 5.8200D-01 * RXRAT( 685 ) ! SESQ+CL=0.5820D+00*zRNO3+... & + 3.3000D-02 * RXRAT( 826 ) ! MACR+CL=0.3300D-01*zRNO3+... LOSS( zRNO3 ) = RXRAT( 482 ) ! zRNO3+NO=NO+RNO3 & + RXRAT( 483 ) ! zRNO3+HO2=HO2 & + RXRAT( 484 ) ! zRNO3+NO3=NO3+PRD2+HO2 & + RXRAT( 485 ) ! zRNO3+MEO2=MEO2+0.5000D+... & + RXRAT( 486 ) ! zRNO3+RO2C=RO2C+0.5000D+... & + RXRAT( 487 ) ! zRNO3+RO2XC=RO2XC+0.5000D+... & + RXRAT( 488 ) ! zRNO3+MECO3=MECO3+PRD2+HO2 & + RXRAT( 489 ) ! zRNO3+RCO3=RCO3+PRD2+HO2 & + RXRAT( 490 ) ! zRNO3+BZCO3=BZCO3+PRD2+HO2 & + RXRAT( 491 ) ! zRNO3+MACO3=MACO3+PRD2+HO2 & + RXRAT( 853 ) ! zRNO3+IMACO3=IMACO3+PRD2+HO2 PROD( xRCHO ) = 3.7600D-01 * RXRAT( 206 ) ! MEK+OH=0.3760D+00*xRCHO+... & + 4.0000D-01 * RXRAT( 211 ) ! RCOOH+OH=0.4000D+00*xRCHO+... & + 2.0500D-01 * RXRAT( 214 ) ! ROOH+OH=0.2050D+00*xRCHO+... & + 7.5000D-02 * RXRAT( 216 ) ! R6OOH+OH=0.7500D-01*xRCHO+... & + 5.8000D-02 * RXRAT( 217 ) ! R6OOH=0.5800D-01*xRCHO+... & + 4.4800D-01 * RXRAT( 218 ) ! RAOOH+OH=0.4480D+00*xRCHO+... & + 4.0700D-01 * RXRAT( 236 ) ! AFG1+OH=0.4070D+00*xRCHO+... & + 4.0700D-01 * RXRAT( 239 ) ! AFG2+OH=0.4070D+00*xRCHO+... & + 1.3000D-02 * RXRAT( 249 ) ! IPRD+OH=0.1300D-01*xRCHO+... & + 2.1800D-01 * RXRAT( 251 ) ! IPRD+NO3=0.2180D+00*xRCHO+... & + 4.0200D-01 * RXRAT( 253 ) ! PRD2+OH=0.4020D+00*xRCHO+... & + 7.8000D-01 * RXRAT( 254 ) ! PRD2=0.7800D+00*xRCHO+... & + 3.6000D-02 * RXRAT( 255 ) ! RNO3+OH=0.3600D-01*xRCHO+... & + 6.3000D-02 * RXRAT( 256 ) ! RNO3=0.6300D-01*xRCHO+... & + 8.4000D-02 * RXRAT( 266 ) ! RCOOOH+OH=0.8400D-01*xRCHO+... & + RXRAT( 526 ) ! ETHENE+NO3=xRCHO+RO2C+xHO2+... & + 7.7600D-01 * RXRAT( 538 ) ! APIN+OH=0.7760D+00*xRCHO+... & + 2.4000D-01 * RXRAT( 539 ) ! APIN+O3=0.2400D+00*xRCHO+... & + 6.8400D-01 * RXRAT( 540 ) ! APIN+NO3=0.6840D+00*xRCHO+... & + 2.6100D-01 * RXRAT( 552 ) ! ALK2+OH=0.2610D+00*xRCHO+... & + 1.2200D-01 * RXRAT( 553 ) ! ALK3+OH=0.1220D+00*xRCHO+... & + 2.3600D-01 * RXRAT( 554 ) ! ALK4+OH=0.2360D+00*xRCHO+... & + 2.0900D-01 * RXRAT( 555 ) ! ALK5+OH=0.2090D+00*xRCHO+... & + 6.6600D-01 * RXRAT( 557 ) ! OLE1+OH=0.6660D+00*xRCHO+... & + 4.4000D-02 * RXRAT( 558 ) ! OLE1+O3=0.4400D-01*xRCHO+... & + 3.0000D-03 * RXRAT( 559 ) ! OLE1+NO3=0.3000D-02*xRCHO+... & + 5.1000D-01 * RXRAT( 561 ) ! OLE2+OH=0.5100D+00*xRCHO+... & + 1.9000D-02 * RXRAT( 562 ) ! OLE2+O3=0.1900D-01*xRCHO+... & + 1.6300D-01 * RXRAT( 563 ) ! OLE2+NO3=0.1630D+00*xRCHO+... & + 3.8500D-01 * RXRAT( 568 ) ! TERP+OH=0.3850D+00*xRCHO+... & + 2.0800D-01 * RXRAT( 569 ) ! TERP+O3=0.2080D+00*xRCHO+... & + 3.8500D-01 * RXRAT( 583 ) ! SESQ+OH=0.3850D+00*xRCHO+... & + 2.0800D-01 * RXRAT( 584 ) ! SESQ+O3=0.2080D+00*xRCHO+... & + 4.0300D-01 * RXRAT( 585 ) ! SESQ+NO3=0.4030D+00*xRCHO+... & + 8.4000D-01 * RXRAT( 614 ) ! MEK+CL=0.8400D+00*xRCHO+... & + 2.0000D-02 * RXRAT( 615 ) ! RNO3+CL=0.2000D-01*xRCHO+... & + 5.9100D-01 * RXRAT( 616 ) ! PRD2+CL=0.5910D+00*xRCHO+... & + 1.9700D-01 * RXRAT( 621 ) ! ROOH+CL=0.1970D+00*xRCHO+... & + 6.7600D-01 * RXRAT( 622 ) ! R6OOH+CL=0.6760D+00*xRCHO+... & + 4.4800D-01 * RXRAT( 623 ) ! RAOOH+CL=0.4480D+00*xRCHO+... & + 1.8500D-01 * RXRAT( 666 ) ! APIN+CL=0.1850D+00*xRCHO+... & + 4.8200D-01 * RXRAT( 675 ) ! ALK2+CL=0.4820D+00*xRCHO+... & + 3.4300D-01 * RXRAT( 676 ) ! ALK3+CL=0.3430D+00*xRCHO+... & + 4.1200D-01 * RXRAT( 677 ) ! ALK4+CL=0.4120D+00*xRCHO+... & + 2.5800D-01 * RXRAT( 678 ) ! ALK5+CL=0.2580D+00*xRCHO+... & + 7.2000D-02 * RXRAT( 679 ) ! OLE1+CL=0.7200D-01*xRCHO+... & + 3.1700D-01 * RXRAT( 680 ) ! OLE2+CL=0.3170D+00*xRCHO+... & + 1.8500D-01 * RXRAT( 684 ) ! TERP+CL=0.1850D+00*xRCHO+... & + 1.8500D-01 * RXRAT( 685 ) ! SESQ+CL=0.1850D+00*xRCHO+... & + 2.0000D-02 * RXRAT( 881 ) ! MTNO3+CL=0.2000D-01*xRCHO+... & + 3.6000D-02 * RXRAT( 882 ) ! MTNO3+OH=0.3600D-01*xRCHO+... & + 6.3000D-02 * RXRAT( 883 ) ! MTNO3=0.6300D-01*xRCHO+... LOSS( xRCHO ) = RXRAT( 291 ) ! xRCHO+NO=NO+RCHO & + RXRAT( 292 ) ! xRCHO+HO2=HO2 & + RXRAT( 293 ) ! xRCHO+NO3=NO3+RCHO & + RXRAT( 294 ) ! xRCHO+MEO2=MEO2+0.5000D+... & + RXRAT( 295 ) ! xRCHO+RO2C=RO2C+0.5000D+... & + RXRAT( 296 ) ! xRCHO+RO2XC=RO2XC+0.5000D+... & + RXRAT( 297 ) ! xRCHO+MECO3=MECO3+RCHO & + RXRAT( 298 ) ! xRCHO+RCO3=RCO3+RCHO & + RXRAT( 299 ) ! xRCHO+BZCO3=BZCO3+RCHO & + RXRAT( 300 ) ! xRCHO+MACO3=MACO3+RCHO & + RXRAT( 871 ) ! xRCHO+IMACO3=IMACO3+RCHO PROD( HCOOH ) = 3.3300D-01 * RXRAT( 244 ) ! MACR+O3=0.3330D+00*HCOOH+... & + 3.5100D-01 * RXRAT( 246 ) ! MVK+O3=0.3510D+00*HCOOH+... & + 1.0000D-01 * RXRAT( 250 ) ! IPRD+O3=0.1000D+00*HCOOH+... & + 1.8500D-01 * RXRAT( 260 ) ! ACROLEIN+O3=0.1850D+... & + 3.7000D-01 * RXRAT( 525 ) ! ETHENE+O3=0.3700D+00*HCOOH+... & + 1.8500D-01 * RXRAT( 529 ) ! PROPENE+O3=0.1850D+... & + 1.8500D-01 * RXRAT( 533 ) ! BUTADIENE13+O3=0.1850D+... & + 2.0400D-01 * RXRAT( 536 ) ! ISOPRENE+O3=0.2040D+... & + 3.0000D-01 * RXRAT( 542 ) ! ACETYLENE+OH=0.3000D+... & + 1.8500D-01 * RXRAT( 558 ) ! OLE1+O3=0.1850D+00*HCOOH+... & + 2.4000D-02 * RXRAT( 562 ) ! OLE2+O3=0.2400D-01*HCOOH+... & + 1.7200D-01 * RXRAT( 569 ) ! TERP+O3=0.1720D+00*HCOOH+... & + 1.7200D-01 * RXRAT( 584 ) ! SESQ+O3=0.1720D+00*HCOOH+... & + 3.1000D-01 * RXRAT( 735 ) ! ISOPNOOD+NO=0.3100D+... & + 1.5500D-01 * RXRAT( 737 ) ! ISOPNOOD+MEO2=0.1550D+... & + 1.5500D-01 * RXRAT( 738 ) ! ISOPNOOD+RO2C=0.1550D+... & + 3.1000D-01 * RXRAT( 739 ) ! ISOPNOOD+MECO3=0.3100D+... & + 1.6000D-01 * RXRAT( 747 ) ! ISOPNB+O3=0.1600D+00*HCOOH+... & + 1.6000D-01 * RXRAT( 796 ) ! HOCCHO+OH=0.1600D+00*HCOOH+... & + 1.2500D-01 * RXRAT( 797 ) ! HACET+OH=0.1250D+00*HCOOH+... & + 6.5000D-01 * RXRAT( 805 ) ! MVKN+OH=0.6500D+00*HCOOH+... & + 7.0000D-02 * RXRAT( 807 ) ! MACRN+OH=0.7000D-01*HCOOH+... & + 7.4000D-02 * RXRAT( 814 ) ! IEPOXOO+HO2=0.7400D-... & + 7.4000D-02 * RXRAT( 815 ) ! IEPOXOO+NO=0.7400D-... & + 3.7000D-02 * RXRAT( 816 ) ! IEPOXOO+MEO2=0.3700D-... & + 3.7000D-02 * RXRAT( 817 ) ! IEPOXOO+RO2C=0.3700D-... & + 7.4000D-02 * RXRAT( 818 ) ! IEPOXOO+MECO3=0.7400D-... LOSS( HCOOH ) = RXRAT( 209 ) ! HCOOH+OH=HO2+CO2 PROD( xMGLY ) = 4.9100D-01 * RXRAT( 210 ) ! CCOOH+OH=0.4910D+00*xMGLY+... & + 2.5200D-01 * RXRAT( 218 ) ! RAOOH+OH=0.2520D+00*xMGLY+... & + 2.5000D-01 * RXRAT( 228 ) ! CRES+OH=0.2500D+00*xMGLY+... & + 2.6700D-01 * RXRAT( 236 ) ! AFG1+OH=0.2670D+00*xMGLY+... & + 2.6700D-01 * RXRAT( 239 ) ! AFG2+OH=0.2670D+00*xMGLY+... & + 1.5300D-01 * RXRAT( 242 ) ! AFG3+OH=0.1530D+00*xMGLY+... & + 9.5000D-02 * RXRAT( 243 ) ! AFG3+O3=0.9500D-01*xMGLY+... & + 1.7400D-01 * RXRAT( 249 ) ! IPRD+OH=0.1740D+00*xMGLY+... & + 8.0000D-03 * RXRAT( 251 ) ! IPRD+NO3=0.8000D-02*xMGLY+... & + 2.0000D-02 * RXRAT( 538 ) ! APIN+OH=0.2000D-01*xMGLY+... & + 2.0000D-03 * RXRAT( 540 ) ! APIN+NO3=0.2000D-02*xMGLY+... & + 1.5100D-01 * RXRAT( 545 ) ! TOLUENE+OH=0.1510D+... & + 3.8000D-01 * RXRAT( 546 ) ! MXYL+OH=0.3800D+00*xMGLY+... & + 2.3800D-01 * RXRAT( 547 ) ! OXYL+OH=0.2380D+00*xMGLY+... & + 1.1200D-01 * RXRAT( 548 ) ! PXYL+OH=0.1120D+00*xMGLY+... & + 4.0500D-01 * RXRAT( 549 ) ! TMBENZ124+OH=0.4050D+... & + 1.0000D-01 * RXRAT( 565 ) ! ARO1+OH=0.1000D+00*xMGLY+... & + 3.1200D-01 * RXRAT( 566 ) ! ARO2MN+OH=0.3120D+00*xMGLY+... & + 3.1200D-01 * RXRAT( 567 ) ! NAPHTHAL+OH=0.3120D+... & + 3.0000D-03 * RXRAT( 568 ) ! TERP+OH=0.3000D-02*xMGLY+... & + 3.0000D-03 * RXRAT( 569 ) ! TERP+O3=0.3000D-02*xMGLY+... & + 3.0000D-03 * RXRAT( 583 ) ! SESQ+OH=0.3000D-02*xMGLY+... & + 3.0000D-03 * RXRAT( 584 ) ! SESQ+O3=0.3000D-02*xMGLY+... & + 2.5200D-01 * RXRAT( 623 ) ! RAOOH+CL=0.2520D+00*xMGLY+... & + 1.7000D-02 * RXRAT( 626 ) ! IPRD+CL=0.1700D-01*xMGLY+... LOSS( xMGLY ) = RXRAT( 341 ) ! xMGLY+NO=NO+MGLY & + RXRAT( 342 ) ! xMGLY+HO2=HO2 & + RXRAT( 343 ) ! xMGLY+NO3=NO3+MGLY & + RXRAT( 344 ) ! xMGLY+MEO2=MEO2+0.5000D+... & + RXRAT( 345 ) ! xMGLY+RO2C=RO2C+0.5000D+... & + RXRAT( 346 ) ! xMGLY+RO2XC=RO2XC+0.5000D+... & + RXRAT( 347 ) ! xMGLY+MECO3=MECO3+MGLY & + RXRAT( 348 ) ! xMGLY+RCO3=RCO3+MGLY & + RXRAT( 349 ) ! xMGLY+BZCO3=BZCO3+MGLY & + RXRAT( 350 ) ! xMGLY+MACO3=MACO3+MGLY & + RXRAT( 866 ) ! xMGLY+IMACO3=IMACO3+MGLY PROD( xBACL ) = 4.5700D-01 * RXRAT( 211 ) ! RCOOH+OH=0.4570D+00*xBACL+... & + 1.9000D-02 * RXRAT( 242 ) ! AFG3+OH=0.1900D-01*xBACL+... & + 2.3000D-02 * RXRAT( 538 ) ! APIN+OH=0.2300D-01*xBACL+... & + 8.1000D-02 * RXRAT( 539 ) ! APIN+O3=0.8100D-01*xBACL+... & + 1.8500D-01 * RXRAT( 547 ) ! OXYL+OH=0.1850D+00*xBACL+... & + 1.1200D-01 * RXRAT( 549 ) ! TMBENZ124+OH=0.1120D+... & + 1.3400D-01 * RXRAT( 566 ) ! ARO2MN+OH=0.1340D+00*xBACL+... & + 1.3400D-01 * RXRAT( 567 ) ! NAPHTHAL+OH=0.1340D+... & + 9.0000D-03 * RXRAT( 568 ) ! TERP+OH=0.9000D-02*xBACL+... & + 3.9000D-02 * RXRAT( 569 ) ! TERP+O3=0.3900D-01*xBACL+... & + 9.0000D-03 * RXRAT( 583 ) ! SESQ+OH=0.9000D-02*xBACL+... & + 3.9000D-02 * RXRAT( 584 ) ! SESQ+O3=0.3900D-01*xBACL+... & + 3.0000D-03 * RXRAT( 666 ) ! APIN+CL=0.3000D-02*xBACL+... & + 3.0000D-03 * RXRAT( 684 ) ! TERP+CL=0.3000D-02*xBACL+... & + 3.0000D-03 * RXRAT( 685 ) ! SESQ+CL=0.3000D-02*xBACL+... LOSS( xBACL ) = RXRAT( 351 ) ! xBACL+NO=NO+BACL & + RXRAT( 352 ) ! xBACL+HO2=HO2 & + RXRAT( 353 ) ! xBACL+NO3=NO3+BACL & + RXRAT( 354 ) ! xBACL+MEO2=MEO2+0.5000D+... & + RXRAT( 355 ) ! xBACL+RO2C=RO2C+0.5000D+... & + RXRAT( 356 ) ! xBACL+RO2XC=RO2XC+0.5000D+... & + RXRAT( 357 ) ! xBACL+MECO3=MECO3+BACL & + RXRAT( 358 ) ! xBACL+RCO3=RCO3+BACL & + RXRAT( 359 ) ! xBACL+BZCO3=BZCO3+BACL & + RXRAT( 360 ) ! xBACL+MACO3=MACO3+BACL & + RXRAT( 865 ) ! xBACL+IMACO3=IMACO3+BACL PROD( ROOH ) = RXRAT( 453 ) ! yROOH+HO2=ROOH+HO2 & + RXRAT( 776 ) ! MVKOO+HO2=ROOH & + RXRAT( 781 ) ! MACROO+HO2=ROOH LOSS( ROOH ) = RXRAT( 214 ) ! ROOH+OH=0.7440D+00*OH+... & + RXRAT( 215 ) ! ROOH=RCHO+HO2+OH & + RXRAT( 621 ) ! ROOH+CL=HCL+0.4140D+00*OH+... PROD( xPROD2 ) = 3.4000D-02 * RXRAT( 214 ) ! ROOH+OH=0.3400D-01*xPROD2+... & + 8.4000D-02 * RXRAT( 216 ) ! R6OOH+OH=0.8400D-01*xPROD2+... & + 6.9800D-01 * RXRAT( 217 ) ! R6OOH=0.6980D+00*xPROD2+... & + 3.3200D-01 * RXRAT( 249 ) ! IPRD+OH=0.3320D+00*xPROD2+... & + 7.0000D-03 * RXRAT( 253 ) ! PRD2+OH=0.7000D-02*xPROD2+... & + 3.1000D-02 * RXRAT( 255 ) ! RNO3+OH=0.3100D-01*xPROD2+... & + 2.6100D-01 * RXRAT( 256 ) ! RNO3=0.2610D+00*xPROD2+... & + 1.4600D-01 * RXRAT( 554 ) ! ALK4+OH=0.1460D+00*xPROD2+... & + 4.0700D-01 * RXRAT( 555 ) ! ALK5+OH=0.4070D+00*xPROD2+... & + 1.6800D-01 * RXRAT( 557 ) ! OLE1+OH=0.1680D+00*xPROD2+... & + 2.3000D-02 * RXRAT( 561 ) ! OLE2+OH=0.2300D-01*xPROD2+... & + 3.0900D-01 * RXRAT( 565 ) ! ARO1+OH=0.3090D+00*xPROD2+... & + 5.7000D-02 * RXRAT( 566 ) ! ARO2MN+OH=0.5700D-... & + 5.7000D-02 * RXRAT( 567 ) ! NAPHTHAL+OH=0.5700D-... & + 4.0900D-01 * RXRAT( 568 ) ! TERP+OH=0.4090D+00*xPROD2+... & + 4.0900D-01 * RXRAT( 583 ) ! SESQ+OH=0.4090D+00*xPROD2+... & + 4.6000D-02 * RXRAT( 615 ) ! RNO3+CL=0.4600D-01*xPROD2+... & + 4.0000D-02 * RXRAT( 616 ) ! PRD2+CL=0.4000D-01*xPROD2+... & + 2.8000D-01 * RXRAT( 622 ) ! R6OOH+CL=0.2800D+00*xPROD2+... & + 1.3000D-01 * RXRAT( 677 ) ! ALK4+CL=0.1300D+00*xPROD2+... & + 3.7800D-01 * RXRAT( 678 ) ! ALK5+CL=0.3780D+00*xPROD2+... & + 8.4000D-01 * RXRAT( 681 ) ! ARO1+CL=0.8400D+00*xPROD2+... & + 3.5900D-01 * RXRAT( 682 ) ! ARO2MN+CL=0.3590D+... & + 3.5900D-01 * RXRAT( 683 ) ! NAPHTHAL+CL=0.3590D+... & + 4.6000D-02 * RXRAT( 881 ) ! MTNO3+CL=0.4600D-01*xPROD2+... & + 3.1000D-02 * RXRAT( 882 ) ! MTNO3+OH=0.3100D-01*xPROD2+... & + 2.6100D-01 * RXRAT( 883 ) ! MTNO3=0.2610D+00*xPROD2+... LOSS( xPROD2 ) = RXRAT( 321 ) ! xPROD2+NO=NO+PRD2 & + RXRAT( 322 ) ! xPROD2+HO2=HO2 & + RXRAT( 323 ) ! xPROD2+NO3=NO3+PRD2 & + RXRAT( 324 ) ! xPROD2+MEO2=MEO2+0.5000D+... & + RXRAT( 325 ) ! xPROD2+RO2C=RO2C+0.5000D+... & + RXRAT( 326 ) ! xPROD2+RO2XC=RO2XC+0.5000D+... & + RXRAT( 327 ) ! xPROD2+MECO3=MECO3+PRD2 & + RXRAT( 328 ) ! xPROD2+RCO3=RCO3+PRD2 & + RXRAT( 329 ) ! xPROD2+BZCO3=BZCO3+PRD2 & + RXRAT( 330 ) ! xPROD2+MACO3=MACO3+PRD2 & + RXRAT( 868 ) ! xPROD2+IMACO3=IMACO3+PRD2 PROD( R6OOH ) = RXRAT( 463 ) ! yR6OOH+HO2=R6OOH+HO2 & + RXRAT( 729 ) ! HC5OO+HO2=R6OOH & + RXRAT( 765 ) ! NIT1OHOO+HO2=R6OOH & + RXRAT( 770 ) ! DIBOO+HO2=R6OOH LOSS( R6OOH ) = RXRAT( 216 ) ! R6OOH+OH=0.8400D+00*OH+... & + RXRAT( 217 ) ! R6OOH=OH+0.1420D+00*HO2+... & + RXRAT( 622 ) ! R6OOH+CL=HCL+0.1450D+00*OH+... PROD( PRD2 ) = 8.4000D-01 * RXRAT( 216 ) ! R6OOH+OH=0.8400D+00*PRD2+... & + 1.4200D-01 * RXRAT( 217 ) ! R6OOH=0.1420D+00*PRD2+... & + 7.4000D-02 * RXRAT( 218 ) ! RAOOH+OH=0.7400D-01*PRD2+... & + RXRAT( 241 ) ! AFG2=PRD2 & + 6.0000D-01 * RXRAT( 248 ) ! MVK=0.6000D+00*PRD2+... & + 8.0000D-03 * RXRAT( 255 ) ! RNO3+OH=0.8000D-02*PRD2+... & + 1.9000D-01 * RXRAT( 256 ) ! RNO3=0.1900D+00*PRD2+... & + RXRAT( 321 ) ! xPROD2+NO=PRD2+NO & + RXRAT( 323 ) ! xPROD2+NO3=PRD2+NO3 & + 5.0000D-01 * RXRAT( 324 ) ! xPROD2+MEO2=0.5000D+... & + 5.0000D-01 * RXRAT( 325 ) ! xPROD2+RO2C=0.5000D+... & + 5.0000D-01 * RXRAT( 326 ) ! xPROD2+RO2XC=0.5000D+... & + RXRAT( 327 ) ! xPROD2+MECO3=PRD2+MECO3 & + RXRAT( 328 ) ! xPROD2+RCO3=PRD2+RCO3 & + RXRAT( 329 ) ! xPROD2+BZCO3=PRD2+BZCO3 & + RXRAT( 330 ) ! xPROD2+MACO3=PRD2+MACO3 & + 5.0000D-01 * RXRAT( 465 ) ! yR6OOH+MEO2=0.5000D+... & + 5.0000D-01 * RXRAT( 466 ) ! yR6OOH+RO2C=0.5000D+... & + 5.0000D-01 * RXRAT( 467 ) ! yR6OOH+RO2XC=0.5000D+... & + 5.0000D-01 * RXRAT( 475 ) ! yRAOOH+MEO2=0.5000D+... & + 5.0000D-01 * RXRAT( 476 ) ! yRAOOH+RO2C=0.5000D+... & + 5.0000D-01 * RXRAT( 477 ) ! yRAOOH+RO2XC=0.5000D+... & + RXRAT( 484 ) ! zRNO3+NO3=PRD2+NO3+HO2 & + 5.0000D-01 * RXRAT( 485 ) ! zRNO3+MEO2=0.5000D+00*PRD2+... & + 5.0000D-01 * RXRAT( 486 ) ! zRNO3+RO2C=0.5000D+00*PRD2+... & + 5.0000D-01 * RXRAT( 487 ) ! zRNO3+RO2XC=0.5000D+... & + RXRAT( 488 ) ! zRNO3+MECO3=PRD2+MECO3+HO2 & + RXRAT( 489 ) ! zRNO3+RCO3=PRD2+RCO3+HO2 & + RXRAT( 490 ) ! zRNO3+BZCO3=PRD2+BZCO3+HO2 & + RXRAT( 491 ) ! zRNO3+MACO3=PRD2+MACO3+HO2 & + RXRAT( 494 ) ! zMTNO3+NO3=PRD2+NO3+HO2 & + 5.0000D-01 * RXRAT( 495 ) ! zMTNO3+MEO2=0.5000D+... & + 5.0000D-01 * RXRAT( 496 ) ! zMTNO3+RO2C=0.5000D+... & + 5.0000D-01 * RXRAT( 497 ) ! zMTNO3+RO2XC=0.5000D+... & + RXRAT( 498 ) ! zMTNO3+MECO3=PRD2+MECO3+HO2 & + RXRAT( 499 ) ! zMTNO3+RCO3=PRD2+RCO3+HO2 & + RXRAT( 500 ) ! zMTNO3+BZCO3=PRD2+BZCO3+HO2 & + RXRAT( 501 ) ! zMTNO3+MACO3=PRD2+MACO3+HO2 & + RXRAT( 502 ) ! zMTNO3+IMACO3=PRD2+IMACO3+HO2 & + 1.2500D-01 * RXRAT( 533 ) ! BUTADIENE13+O3=0.1250D+... & + 7.5000D-01 * RXRAT( 535 ) ! BUTADIENE13+O3P=0.7500D+... & + 1.0000D-01 * RXRAT( 536 ) ! ISOPRENE+O3=0.1000D+... & + 7.5000D-01 * RXRAT( 537 ) ! ISOPRENE+O3P=0.7500D+... & + 2.5500D-01 * RXRAT( 539 ) ! APIN+O3=0.2550D+00*PRD2+... & + RXRAT( 541 ) ! APIN+O3P=PRD2+TRPRXN & + 2.6800D-01 * RXRAT( 558 ) ! OLE1+O3=0.2680D+00*PRD2+... & + 1.6000D-01 * RXRAT( 560 ) ! OLE1+O3P=0.1600D+00*PRD2+... & + 3.7000D-02 * RXRAT( 562 ) ! OLE2+O3=0.3700D-01*PRD2+... & + 1.7000D-01 * RXRAT( 564 ) ! OLE2+O3P=0.1700D+00*PRD2+... & + 5.0200D-01 * RXRAT( 569 ) ! TERP+O3=0.5020D+00*PRD2+... & + 7.6300D-01 * RXRAT( 582 ) ! TERP+O3P=0.7630D+00*PRD2+... & + 5.0200D-01 * RXRAT( 584 ) ! SESQ+O3=0.5020D+00*PRD2+... & + 7.6300D-01 * RXRAT( 586 ) ! SESQ+O3P=0.7630D+00*PRD2+... & + 1.2000D-02 * RXRAT( 615 ) ! RNO3+CL=0.1200D-01*PRD2+... & + 1.4500D-01 * RXRAT( 622 ) ! R6OOH+CL=0.1450D+00*PRD2+... & + 7.4000D-02 * RXRAT( 623 ) ! RAOOH+CL=0.7400D-01*PRD2+... & + 5.0000D-01 * RXRAT( 712 ) ! ISOPO2+MEO2=0.5000D+... & + 5.0000D-01 * RXRAT( 713 ) ! ISOPO2+RO2C=0.5000D+... & + RXRAT( 714 ) ! ISOPO2+ISOPO2=PRD2+0.7500D+... & + RXRAT( 718 ) ! HPALD+OH=PRD2+OH & + 9.0000D-02 * RXRAT( 728 ) ! HC5OO+NO=0.9000D-01*PRD2+... & + 5.4500D-01 * RXRAT( 730 ) ! HC5OO+MEO2=0.5450D+00*PRD2+... & + 5.4500D-01 * RXRAT( 731 ) ! HC5OO+RO2C=0.5450D+00*PRD2+... & + 9.0000D-02 * RXRAT( 732 ) ! HC5OO+MECO3=0.9000D-... & + 3.4000D-01 * RXRAT( 735 ) ! ISOPNOOD+NO=0.3400D+... & + 1.7000D-01 * RXRAT( 737 ) ! ISOPNOOD+MEO2=0.1700D+... & + 1.7000D-01 * RXRAT( 738 ) ! ISOPNOOD+RO2C=0.1700D+... & + 3.4000D-01 * RXRAT( 739 ) ! ISOPNOOD+MECO3=0.3400D+... & + 5.0000D-01 * RXRAT( 771 ) ! DIBOO+MEO2=0.5000D+00*PRD2+... & + 5.0000D-01 * RXRAT( 772 ) ! DIBOO+RO2C=0.5000D+00*PRD2+... & + 5.0000D-01 * RXRAT( 782 ) ! MACROO+MEO2=0.5000D+... & + 5.0000D-01 * RXRAT( 783 ) ! MACROO+RO2C=0.5000D+... & + 5.0000D-01 * RXRAT( 809 ) ! DHMOB+OH=0.5000D+00*PRD2+... & + 5.0000D-01 * RXRAT( 816 ) ! IEPOXOO+MEO2=0.5000D+... & + 5.0000D-01 * RXRAT( 817 ) ! IEPOXOO+RO2C=0.5000D+... & + RXRAT( 820 ) ! RNO3I+OH=PRD2+HO2+NO2 & + RXRAT( 853 ) ! zRNO3+IMACO3=PRD2+IMACO3+HO2 & + RXRAT( 868 ) ! xPROD2+IMACO3=PRD2+IMACO3 & + 1.2000D-02 * RXRAT( 881 ) ! MTNO3+CL=0.1200D-01*PRD2+... & + 8.0000D-03 * RXRAT( 882 ) ! MTNO3+OH=0.8000D-02*PRD2+... & + 1.9000D-01 * RXRAT( 883 ) ! MTNO3=0.1900D+00*PRD2+... LOSS( PRD2 ) = 6.7100D-01 * RXRAT( 253 ) ! PRD2+OH=0.3290D+00*PRD2+... & + RXRAT( 254 ) ! PRD2=0.9130D+00*xHO2+... & + 8.8400D-01 * RXRAT( 616 ) ! PRD2+CL=0.1160D+00*PRD2+... PROD( yR6OOH ) = 8.5800D-01 * RXRAT( 217 ) ! R6OOH=0.8580D+00*yR6OOH+... & + 7.1300D-01 * RXRAT( 218 ) ! RAOOH+OH=0.7130D+00*yR6OOH+... & + 8.0000D-01 * RXRAT( 228 ) ! CRES+OH=0.8000D+00*yR6OOH+... & + 7.8300D-01 * RXRAT( 236 ) ! AFG1+OH=0.7830D+00*yR6OOH+... & + 6.5200D-01 * RXRAT( 237 ) ! AFG1+O3=0.6520D+00*yR6OOH+... & + 7.8300D-01 * RXRAT( 239 ) ! AFG2+OH=0.7830D+00*yR6OOH+... & + 6.5200D-01 * RXRAT( 240 ) ! AFG2+O3=0.6520D+00*yR6OOH+... & + 7.9400D-01 * RXRAT( 242 ) ! AFG3+OH=0.7940D+00*yR6OOH+... & + 2.6400D-01 * RXRAT( 243 ) ! AFG3+O3=0.2640D+00*yR6OOH+... & + 7.1100D-01 * RXRAT( 249 ) ! IPRD+OH=0.7110D+00*yR6OOH+... & + 4.8000D-02 * RXRAT( 250 ) ! IPRD+O3=0.4800D-01*yR6OOH+... & + 8.5000D-01 * RXRAT( 251 ) ! IPRD+NO3=0.8500D+00*yR6OOH+... & + 5.2800D-01 * RXRAT( 253 ) ! PRD2+OH=0.5280D+00*yR6OOH+... & + RXRAT( 254 ) ! PRD2=yR6OOH+0.4000D+... & + 6.3600D-01 * RXRAT( 255 ) ! RNO3+OH=0.6360D+00*yR6OOH+... & + 5.9100D-01 * RXRAT( 256 ) ! RNO3=0.5910D+00*yR6OOH+... & + 2.0000D-01 * RXRAT( 536 ) ! ISOPRENE+O3=0.2000D+... & + 2.5000D-01 * RXRAT( 537 ) ! ISOPRENE+O3P=0.2500D+... & + RXRAT( 538 ) ! APIN+OH=yR6OOH+0.4000D-... & + 7.3700D-01 * RXRAT( 539 ) ! APIN+O3=0.7370D+00*yR6OOH+... & + RXRAT( 540 ) ! APIN+NO3=yR6OOH+0.6430D+... & + 7.3000D-02 * RXRAT( 545 ) ! TOLUENE+OH=0.7300D-... & + 4.7000D-02 * RXRAT( 546 ) ! MXYL+OH=0.4700D-01*yR6OOH+... & + 5.5000D-02 * RXRAT( 547 ) ! OXYL+OH=0.5500D-01*yR6OOH+... & + 1.0200D-01 * RXRAT( 548 ) ! PXYL+OH=0.1020D+00*yR6OOH+... & + 4.3000D-02 * RXRAT( 549 ) ! TMBENZ124+OH=0.4300D-... & + 1.7000D-02 * RXRAT( 553 ) ! ALK3+OH=0.1700D-01*yR6OOH+... & + RXRAT( 554 ) ! ALK4+OH=yR6OOH+0.1000D-... & + RXRAT( 555 ) ! ALK5+OH=yR6OOH+0.1605D+... & + 8.3100D-01 * RXRAT( 557 ) ! OLE1+OH=0.8310D+00*yR6OOH+... & + 5.2000D-02 * RXRAT( 558 ) ! OLE1+O3=0.5200D-01*yR6OOH+... & + 8.3100D-01 * RXRAT( 559 ) ! OLE1+NO3=0.8310D+00*yR6OOH+... & + 6.8100D-01 * RXRAT( 561 ) ! OLE2+OH=0.6810D+00*yR6OOH+... & + 1.3600D-01 * RXRAT( 562 ) ! OLE2+O3=0.1360D+00*yR6OOH+... & + 6.8100D-01 * RXRAT( 563 ) ! OLE2+NO3=0.6810D+00*yR6OOH+... & + 3.6900D-01 * RXRAT( 565 ) ! ARO1+OH=0.3690D+00*yR6OOH+... & + 1.0100D-01 * RXRAT( 566 ) ! ARO2MN+OH=0.1010D+... & + 1.0100D-01 * RXRAT( 567 ) ! NAPHTHAL+OH=0.1010D+... & + RXRAT( 568 ) ! TERP+OH=yR6OOH+0.6400D-... & + 4.2800D-01 * RXRAT( 569 ) ! TERP+O3=0.4280D+00*yR6OOH+... & + RXRAT( 583 ) ! SESQ+OH=yR6OOH+0.6400D-... & + 4.2800D-01 * RXRAT( 584 ) ! SESQ+O3=0.4280D+00*yR6OOH+... & + RXRAT( 585 ) ! SESQ+NO3=yR6OOH+0.2870D+... & + 9.0800D-01 * RXRAT( 615 ) ! RNO3+CL=0.9080D+00*yR6OOH+... & + 6.8600D-01 * RXRAT( 616 ) ! PRD2+CL=0.6860D+00*yR6OOH+... & + RXRAT( 619 ) ! CRES+CL=yR6OOH+xHO2+xBALD+HCL & + 8.5500D-01 * RXRAT( 622 ) ! R6OOH+CL=0.8550D+00*yR6OOH+... & + 7.1300D-01 * RXRAT( 623 ) ! RAOOH+CL=0.7130D+00*yR6OOH+... & + 7.6200D-01 * RXRAT( 626 ) ! IPRD+CL=0.7620D+00*yR6OOH+... & + RXRAT( 665 ) ! ISOPRENE+CL=yR6OOH+0.7380D+... & + RXRAT( 666 ) ! APIN+CL=yR6OOH+0.2520D+... & + 1.7000D-02 * RXRAT( 676 ) ! ALK3+CL=0.1700D-01*yR6OOH+... & + RXRAT( 677 ) ! ALK4+CL=yR6OOH+0.8270D+... & + RXRAT( 678 ) ! ALK5+CL=yR6OOH+0.6470D+... & + 8.3100D-01 * RXRAT( 679 ) ! OLE1+CL=0.8310D+00*yR6OOH+... & + 6.8100D-01 * RXRAT( 680 ) ! OLE2+CL=0.6810D+00*yR6OOH+... & + RXRAT( 684 ) ! TERP+CL=yR6OOH+0.2520D+... & + RXRAT( 685 ) ! SESQ+CL=yR6OOH+0.6800D-... & + 9.0800D-01 * RXRAT( 881 ) ! MTNO3+CL=0.9080D+00*yR6OOH+... & + 6.3600D-01 * RXRAT( 882 ) ! MTNO3+OH=0.6360D+00*yR6OOH+... & + 5.9100D-01 * RXRAT( 883 ) ! MTNO3=0.5910D+00*yR6OOH+... LOSS( yR6OOH ) = RXRAT( 462 ) ! yR6OOH+NO=NO & + RXRAT( 463 ) ! yR6OOH+HO2=HO2+R6OOH & + RXRAT( 464 ) ! yR6OOH+NO3=NO3 & + RXRAT( 465 ) ! yR6OOH+MEO2=MEO2+0.5000D+... & + RXRAT( 466 ) ! yR6OOH+RO2C=RO2C+0.5000D+... & + RXRAT( 467 ) ! yR6OOH+RO2XC=RO2XC+0.5000D+... & + RXRAT( 468 ) ! yR6OOH+MECO3=MECO3 & + RXRAT( 469 ) ! yR6OOH+RCO3=RCO3 & + RXRAT( 470 ) ! yR6OOH+BZCO3=BZCO3 & + RXRAT( 471 ) ! yR6OOH+MACO3=MACO3 & + RXRAT( 855 ) ! yR6OOH+IMACO3=IMACO3 PROD( RAOOH ) = RXRAT( 473 ) ! yRAOOH+HO2=RAOOH+HO2 LOSS( RAOOH ) = RXRAT( 218 ) ! RAOOH+OH=0.1390D+00*OH+... & + RXRAT( 219 ) ! RAOOH=OH+HO2+0.5000D+... & + RXRAT( 623 ) ! RAOOH+CL=0.4040D+00*HCL+... PROD( MGLY ) = 1.4700D-01 * RXRAT( 218 ) ! RAOOH+OH=0.1470D+00*MGLY+... & + 5.0000D-01 * RXRAT( 219 ) ! RAOOH=0.5000D+00*MGLY+HO2+... & + 5.6800D-01 * RXRAT( 237 ) ! AFG1+O3=0.5680D+00*MGLY+... & + 3.0500D-01 * RXRAT( 238 ) ! AFG1=0.3050D+00*MGLY+... & + 5.6800D-01 * RXRAT( 240 ) ! AFG2+O3=0.5680D+00*MGLY+... & + 1.8400D-01 * RXRAT( 243 ) ! AFG3+O3=0.1840D+00*MGLY+... & + 9.0000D-01 * RXRAT( 244 ) ! MACR+O3=0.9000D+00*MGLY+... & + 9.5000D-01 * RXRAT( 246 ) ! MVK+O3=0.9500D+00*MGLY+... & + 7.4200D-01 * RXRAT( 250 ) ! IPRD+O3=0.7420D+00*MGLY+... & + RXRAT( 341 ) ! xMGLY+NO=MGLY+NO & + RXRAT( 343 ) ! xMGLY+NO3=MGLY+NO3 & + 5.0000D-01 * RXRAT( 344 ) ! xMGLY+MEO2=0.5000D+00*MGLY+... & + 5.0000D-01 * RXRAT( 345 ) ! xMGLY+RO2C=0.5000D+00*MGLY+... & + 5.0000D-01 * RXRAT( 346 ) ! xMGLY+RO2XC=0.5000D+... & + RXRAT( 347 ) ! xMGLY+MECO3=MGLY+MECO3 & + RXRAT( 348 ) ! xMGLY+RCO3=MGLY+RCO3 & + RXRAT( 349 ) ! xMGLY+BZCO3=MGLY+BZCO3 & + RXRAT( 350 ) ! xMGLY+MACO3=MGLY+MACO3 & + 1.4700D-01 * RXRAT( 623 ) ! RAOOH+CL=0.1470D+00*MGLY+... & + 5.0000D-01 * RXRAT( 717 ) ! HPALD=0.5000D+00*MGLY+HO2+... & + 2.3400D-01 * RXRAT( 728 ) ! HC5OO+NO=0.2340D+00*MGLY+... & + 1.1700D-01 * RXRAT( 730 ) ! HC5OO+MEO2=0.1170D+00*MGLY+... & + 1.1700D-01 * RXRAT( 731 ) ! HC5OO+RO2C=0.1170D+00*MGLY+... & + 2.3400D-01 * RXRAT( 732 ) ! HC5OO+MECO3=0.2340D+... & + 5.0000D-01 * RXRAT( 733 ) ! HC5+O3=0.5000D+00*MGLY+... & + 7.0000D-01 * RXRAT( 740 ) ! ISOPND+O3=0.7000D+00*MGLY+... & + 7.0000D-01 * RXRAT( 762 ) ! NIT1+O3=0.7000D+00*MGLY+... & + 5.2000D-01 * RXRAT( 769 ) ! DIBOO+NO=0.5200D+00*MGLY+... & + 2.6000D-01 * RXRAT( 771 ) ! DIBOO+MEO2=0.2600D+00*MGLY+... & + 2.6000D-01 * RXRAT( 772 ) ! DIBOO+RO2C=0.2600D+00*MGLY+... & + 5.2000D-01 * RXRAT( 773 ) ! DIBOO+MECO3=0.5200D+... & + 2.6500D-01 * RXRAT( 775 ) ! MVKOO+NO=0.2650D+00*MGLY+... & + 1.5000D-01 * RXRAT( 777 ) ! MVKOO+MEO2=0.1500D+00*MGLY+... & + 1.5000D-01 * RXRAT( 778 ) ! MVKOO+RO2C=0.1500D+00*MGLY+... & + 3.0000D-01 * RXRAT( 779 ) ! MVKOO+MECO3=0.3000D+... & + 1.3000D-01 * RXRAT( 780 ) ! MACROO+NO=0.1300D+00*MGLY+... & + 7.6000D-02 * RXRAT( 782 ) ! MACROO+MEO2=0.7600D-... & + 7.6000D-02 * RXRAT( 783 ) ! MACROO+RO2C=0.7600D-... & + 1.5000D-01 * RXRAT( 784 ) ! MACROO+MECO3=0.1500D+... & + 7.5000D-01 * RXRAT( 797 ) ! HACET+OH=0.7500D+00*MGLY+... & + RXRAT( 801 ) ! PROPNN+OH=MGLY+NO2 & + 6.5000D-01 * RXRAT( 805 ) ! MVKN+OH=0.6500D+00*MGLY+... & + 7.0000D-02 * RXRAT( 807 ) ! MACRN+OH=0.7000D-01*MGLY+... & + 2.7500D-01 * RXRAT( 814 ) ! IEPOXOO+HO2=0.2750D+... & + 2.7500D-01 * RXRAT( 815 ) ! IEPOXOO+NO=0.2750D+00*MGLY+... & + 1.3800D-01 * RXRAT( 816 ) ! IEPOXOO+MEO2=0.1380D+... & + 1.3800D-01 * RXRAT( 817 ) ! IEPOXOO+RO2C=0.1380D+... & + 2.7500D-01 * RXRAT( 818 ) ! IEPOXOO+MECO3=0.2750D+... & + RXRAT( 866 ) ! xMGLY+IMACO3=MGLY+IMACO3 LOSS( MGLY ) = RXRAT( 224 ) ! MGLY=HO2+CO+MECO3 & + RXRAT( 225 ) ! MGLY+OH=CO+MECO3 & + RXRAT( 226 ) ! MGLY+NO3=HNO3+CO+MECO3 & + RXRAT( 618 ) ! MGLY+CL=HCL+CO+MECO3 & + RXRAT( 929 ) ! MGLY=AGLYJ PROD( IPRD ) = 1.3900D-01 * RXRAT( 218 ) ! RAOOH+OH=0.1390D+00*IPRD+... & + 3.0000D-03 * RXRAT( 243 ) ! AFG3+O3=0.3000D-02*IPRD+... & + RXRAT( 421 ) ! xIPRD+NO=IPRD+NO & + RXRAT( 423 ) ! xIPRD+NO3=IPRD+NO3 & + 5.0000D-01 * RXRAT( 424 ) ! xIPRD+MEO2=0.5000D+00*IPRD+... & + 5.0000D-01 * RXRAT( 425 ) ! xIPRD+RO2C=0.5000D+00*IPRD+... & + 5.0000D-01 * RXRAT( 426 ) ! xIPRD+RO2XC=0.5000D+... & + RXRAT( 427 ) ! xIPRD+MECO3=IPRD+MECO3 & + RXRAT( 428 ) ! xIPRD+RCO3=IPRD+RCO3 & + RXRAT( 429 ) ! xIPRD+BZCO3=IPRD+BZCO3 & + RXRAT( 430 ) ! xIPRD+MACO3=IPRD+MACO3 & + 1.5000D-01 * RXRAT( 536 ) ! ISOPRENE+O3=0.1500D+... & + 4.0000D-03 * RXRAT( 571 ) ! TERPNRO2+NO=0.4000D-... & + 7.0000D-03 * RXRAT( 573 ) ! TERPNRO2+NO3=0.7000D-... & + 4.0000D-03 * RXRAT( 574 ) ! TERPNRO2+MEO2=0.4000D-... & + 4.0000D-03 * RXRAT( 575 ) ! TERPNRO2+RO2C=0.4000D-... & + 4.0000D-03 * RXRAT( 576 ) ! TERPNRO2+RO2XC=0.4000D-... & + 7.0000D-03 * RXRAT( 577 ) ! TERPNRO2+MECO3=0.7000D-... & + 7.0000D-03 * RXRAT( 578 ) ! TERPNRO2+RCO3=0.7000D-... & + 7.0000D-03 * RXRAT( 579 ) ! TERPNRO2+BZCO3=0.7000D-... & + 7.0000D-03 * RXRAT( 580 ) ! TERPNRO2+MACO3=0.7000D-... & + 7.0000D-03 * RXRAT( 581 ) ! TERPNRO2+IMACO3=0.7000D-... & + 1.3900D-01 * RXRAT( 623 ) ! RAOOH+CL=0.1390D+00*IPRD+... & + RXRAT( 858 ) ! xIPRD+IMACO3=IPRD+IMACO3 LOSS( IPRD ) = RXRAT( 249 ) ! IPRD+OH=0.2890D+00*MACO3+... & + RXRAT( 250 ) ! IPRD+O3=0.2850D+00*OH+... & + RXRAT( 251 ) ! IPRD+NO3=0.1500D+00*MACO3+... & + RXRAT( 252 ) ! IPRD=0.1233D+01*HO2+... & + RXRAT( 626 ) ! IPRD+CL=0.4010D+00*HCL+... PROD( xGLY ) = 2.6000D-02 * RXRAT( 218 ) ! RAOOH+OH=0.2600D-01*xGLY+... & + 1.0700D-01 * RXRAT( 236 ) ! AFG1+OH=0.1070D+00*xGLY+... & + 1.0700D-01 * RXRAT( 239 ) ! AFG2+OH=0.1070D+00*xGLY+... & + 2.7400D-01 * RXRAT( 242 ) ! AFG3+OH=0.2740D+00*xGLY+... & + 1.5000D-01 * RXRAT( 249 ) ! IPRD+OH=0.1500D+00*xGLY+... & + 8.3000D-02 * RXRAT( 259 ) ! ACROLEIN+OH=0.8300D-... & + 1.2000D-02 * RXRAT( 527 ) ! ETHENE+O3P=0.1200D-01*xGLY+... & + 2.0000D-03 * RXRAT( 539 ) ! APIN+O3=0.2000D-02*xGLY+... & + 2.9000D-01 * RXRAT( 544 ) ! BENZENE+OH=0.2900D+00*xGLY+... & + 2.3800D-01 * RXRAT( 545 ) ! TOLUENE+OH=0.2380D+00*xGLY+... & + 1.0000D-01 * RXRAT( 546 ) ! MXYL+OH=0.1000D+00*xGLY+... & + 8.4000D-02 * RXRAT( 547 ) ! OXYL+OH=0.8400D-01*xGLY+... & + 2.8600D-01 * RXRAT( 548 ) ! PXYL+OH=0.2860D+00*xGLY+... & + 7.4000D-02 * RXRAT( 549 ) ! TMBENZ124+OH=0.7400D-... & + 1.5800D-01 * RXRAT( 565 ) ! ARO1+OH=0.1580D+00*xGLY+... & + 8.8000D-02 * RXRAT( 566 ) ! ARO2MN+OH=0.8800D-01*xGLY+... & + 8.8000D-02 * RXRAT( 567 ) ! NAPHTHAL+OH=0.8800D-... & + 2.6000D-02 * RXRAT( 623 ) ! RAOOH+CL=0.2600D-01*xGLY+... & + 2.7400D-01 * RXRAT( 624 ) ! ACROLEIN+CL=0.2740D+... & + 7.0000D-03 * RXRAT( 666 ) ! APIN+CL=0.7000D-02*xGLY+... & + 7.0000D-03 * RXRAT( 684 ) ! TERP+CL=0.7000D-02*xGLY+... & + 7.0000D-03 * RXRAT( 685 ) ! SESQ+CL=0.7000D-02*xGLY+... LOSS( xGLY ) = RXRAT( 331 ) ! xGLY+NO=NO+GLY & + RXRAT( 332 ) ! xGLY+HO2=HO2 & + RXRAT( 333 ) ! xGLY+NO3=NO3+GLY & + RXRAT( 334 ) ! xGLY+MEO2=MEO2+0.5000D+00*GLY & + RXRAT( 335 ) ! xGLY+RO2C=RO2C+0.5000D+00*GLY & + RXRAT( 336 ) ! xGLY+RO2XC=RO2XC+0.5000D+... & + RXRAT( 337 ) ! xGLY+MECO3=MECO3+GLY & + RXRAT( 338 ) ! xGLY+RCO3=RCO3+GLY & + RXRAT( 339 ) ! xGLY+BZCO3=BZCO3+GLY & + RXRAT( 340 ) ! xGLY+MACO3=MACO3+GLY & + RXRAT( 867 ) ! xGLY+IMACO3=IMACO3+GLY PROD( xMEK ) = 3.0000D-02 * RXRAT( 218 ) ! RAOOH+OH=0.3000D-01*xMEK+... & + 1.2900D-01 * RXRAT( 236 ) ! AFG1+OH=0.1290D+00*xMEK+... & + 1.2900D-01 * RXRAT( 239 ) ! AFG2+OH=0.1290D+00*xMEK+... & + 1.5000D-01 * RXRAT( 249 ) ! IPRD+OH=0.1500D+00*xMEK+... & + 1.1500D-01 * RXRAT( 253 ) ! PRD2+OH=0.1150D+00*xMEK+... & + 1.7000D-01 * RXRAT( 255 ) ! RNO3+OH=0.1700D+00*xMEK+... & + 8.3000D-02 * RXRAT( 256 ) ! RNO3=0.8300D-01*xMEK+... & + 3.3200D-01 * RXRAT( 553 ) ! ALK3+OH=0.3320D+00*xMEK+... & + 1.0600D-01 * RXRAT( 554 ) ! ALK4+OH=0.1060D+00*xMEK+... & + 8.6000D-02 * RXRAT( 555 ) ! ALK5+OH=0.8600D-01*xMEK+... & + 8.0000D-02 * RXRAT( 561 ) ! OLE2+OH=0.8000D-01*xMEK+... & + 1.0000D-03 * RXRAT( 562 ) ! OLE2+O3=0.1000D-02*xMEK+... & + 2.0000D-03 * RXRAT( 563 ) ! OLE2+NO3=0.2000D-02*xMEK+... & + 7.0000D-03 * RXRAT( 568 ) ! TERP+OH=0.7000D-02*xMEK+... & + 7.0000D-03 * RXRAT( 583 ) ! SESQ+OH=0.7000D-02*xMEK+... & + 4.1000D-02 * RXRAT( 615 ) ! RNO3+CL=0.4100D-01*xMEK+... & + 5.1000D-02 * RXRAT( 616 ) ! PRD2+CL=0.5100D-01*xMEK+... & + 2.8500D-01 * RXRAT( 621 ) ! ROOH+CL=0.2850D+00*xMEK+... & + 3.0000D-02 * RXRAT( 623 ) ! RAOOH+CL=0.3000D-01*xMEK+... & + 2.5300D-01 * RXRAT( 676 ) ! ALK3+CL=0.2530D+00*xMEK+... & + 7.6000D-02 * RXRAT( 677 ) ! ALK4+CL=0.7600D-01*xMEK+... & + 4.1000D-02 * RXRAT( 678 ) ! ALK5+CL=0.4100D-01*xMEK+... & + 4.2000D-02 * RXRAT( 680 ) ! OLE2+CL=0.4200D-01*xMEK+... & + 4.1000D-02 * RXRAT( 881 ) ! MTNO3+CL=0.4100D-01*xMEK+... & + 1.7000D-01 * RXRAT( 882 ) ! MTNO3+OH=0.1700D+00*xMEK+... & + 8.3000D-02 * RXRAT( 883 ) ! MTNO3=0.8300D-01*xMEK+... LOSS( xMEK ) = RXRAT( 311 ) ! xMEK+NO=NO+MEK & + RXRAT( 312 ) ! xMEK+HO2=HO2 & + RXRAT( 313 ) ! xMEK+NO3=NO3+MEK & + RXRAT( 314 ) ! xMEK+MEO2=MEO2+0.5000D+00*MEK & + RXRAT( 315 ) ! xMEK+RO2C=RO2C+0.5000D+00*MEK & + RXRAT( 316 ) ! xMEK+RO2XC=RO2XC+0.5000D+... & + RXRAT( 317 ) ! xMEK+MECO3=MECO3+MEK & + RXRAT( 318 ) ! xMEK+RCO3=RCO3+MEK & + RXRAT( 319 ) ! xMEK+BZCO3=BZCO3+MEK & + RXRAT( 320 ) ! xMEK+MACO3=MACO3+MEK & + RXRAT( 869 ) ! xMEK+IMACO3=IMACO3+MEK PROD( xAFG1 ) = 7.3000D-02 * RXRAT( 218 ) ! RAOOH+OH=0.7300D-01*xAFG1+... & + 1.9500D-01 * RXRAT( 242 ) ! AFG3+OH=0.1950D+00*xAFG1+... & + 1.0000D-03 * RXRAT( 535 ) ! BUTADIENE13+O3P=0.1000D-... & + 2.9000D-02 * RXRAT( 544 ) ! BENZENE+OH=0.2900D-... & + 1.9500D-01 * RXRAT( 545 ) ! TOLUENE+OH=0.1950D+... & + 3.3600D-01 * RXRAT( 546 ) ! MXYL+OH=0.3360D+00*xAFG1+... & + 2.5300D-01 * RXRAT( 547 ) ! OXYL+OH=0.2530D+00*xAFG1+... & + 4.5000D-02 * RXRAT( 548 ) ! PXYL+OH=0.4500D-01*xAFG1+... & + 8.8000D-02 * RXRAT( 549 ) ! TMBENZ124+OH=0.8800D-... & + 7.2000D-02 * RXRAT( 565 ) ! ARO1+OH=0.7200D-01*xAFG1+... & + 2.2100D-01 * RXRAT( 566 ) ! ARO2MN+OH=0.2210D+00*xAFG1+... & + 2.2100D-01 * RXRAT( 567 ) ! NAPHTHAL+OH=0.2210D+... & + 7.3000D-02 * RXRAT( 623 ) ! RAOOH+CL=0.7300D-01*xAFG1+... & + 9.0000D-03 * RXRAT( 626 ) ! IPRD+CL=0.9000D-02*xAFG1+... & + 6.0000D-03 * RXRAT( 666 ) ! APIN+CL=0.6000D-02*xAFG1+... & + 6.0000D-03 * RXRAT( 684 ) ! TERP+CL=0.6000D-02*xAFG1+... & + 6.0000D-03 * RXRAT( 685 ) ! SESQ+CL=0.6000D-02*xAFG1+... LOSS( xAFG1 ) = RXRAT( 371 ) ! xAFG1+NO=NO+AFG1 & + RXRAT( 372 ) ! xAFG1+HO2=HO2 & + RXRAT( 373 ) ! xAFG1+NO3=NO3+AFG1 & + RXRAT( 374 ) ! xAFG1+MEO2=MEO2+0.5000D+... & + RXRAT( 375 ) ! xAFG1+RO2C=RO2C+0.5000D+... & + RXRAT( 376 ) ! xAFG1+RO2XC=RO2XC+0.5000D+... & + RXRAT( 377 ) ! xAFG1+MECO3=MECO3+AFG1 & + RXRAT( 378 ) ! xAFG1+RCO3=RCO3+AFG1 & + RXRAT( 379 ) ! xAFG1+BZCO3=BZCO3+AFG1 & + RXRAT( 380 ) ! xAFG1+MACO3=MACO3+AFG1 & + RXRAT( 863 ) ! xAFG1+IMACO3=IMACO3+AFG1 PROD( xAFG2 ) = 7.3000D-02 * RXRAT( 218 ) ! RAOOH+OH=0.7300D-01*xAFG2+... & + 1.9500D-01 * RXRAT( 242 ) ! AFG3+OH=0.1950D+00*xAFG2+... & + 1.0000D-03 * RXRAT( 535 ) ! BUTADIENE13+O3P=0.1000D-... & + 2.6100D-01 * RXRAT( 544 ) ! BENZENE+OH=0.2610D+... & + 1.9500D-01 * RXRAT( 545 ) ! TOLUENE+OH=0.1950D+... & + 1.4400D-01 * RXRAT( 546 ) ! MXYL+OH=0.1440D+00*xAFG2+... & + 2.5300D-01 * RXRAT( 547 ) ! OXYL+OH=0.2530D+00*xAFG2+... & + 6.7000D-02 * RXRAT( 548 ) ! PXYL+OH=0.6700D-01*xAFG2+... & + 3.5200D-01 * RXRAT( 549 ) ! TMBENZ124+OH=0.3520D+... & + 1.8500D-01 * RXRAT( 565 ) ! ARO1+OH=0.1850D+00*xAFG2+... & + 2.4700D-01 * RXRAT( 566 ) ! ARO2MN+OH=0.2470D+00*xAFG2+... & + 2.4700D-01 * RXRAT( 567 ) ! NAPHTHAL+OH=0.2470D+... & + 7.3000D-02 * RXRAT( 623 ) ! RAOOH+CL=0.7300D-01*xAFG2+... & + 9.0000D-03 * RXRAT( 626 ) ! IPRD+CL=0.9000D-02*xAFG2+... & + 6.0000D-03 * RXRAT( 666 ) ! APIN+CL=0.6000D-02*xAFG2+... & + 6.0000D-03 * RXRAT( 684 ) ! TERP+CL=0.6000D-02*xAFG2+... & + 6.0000D-03 * RXRAT( 685 ) ! SESQ+CL=0.6000D-02*xAFG2+... LOSS( xAFG2 ) = RXRAT( 381 ) ! xAFG2+NO=NO+AFG2 & + RXRAT( 382 ) ! xAFG2+HO2=HO2 & + RXRAT( 383 ) ! xAFG2+NO3=NO3+AFG2 & + RXRAT( 384 ) ! xAFG2+MEO2=MEO2+0.5000D+... & + RXRAT( 385 ) ! xAFG2+RO2C=RO2C+0.5000D+... & + RXRAT( 386 ) ! xAFG2+RO2XC=RO2XC+0.5000D+... & + RXRAT( 387 ) ! xAFG2+MECO3=MECO3+AFG2 & + RXRAT( 388 ) ! xAFG2+RCO3=RCO3+AFG2 & + RXRAT( 389 ) ! xAFG2+BZCO3=BZCO3+AFG2 & + RXRAT( 390 ) ! xAFG2+MACO3=MACO3+AFG2 & + RXRAT( 862 ) ! xAFG2+IMACO3=IMACO3+AFG2 PROD( GLY ) = 5.0000D-01 * RXRAT( 219 ) ! RAOOH=0.5000D+00*GLY+HO2+... & + 4.3200D-01 * RXRAT( 237 ) ! AFG1+O3=0.4320D+00*GLY+... & + 1.9500D-01 * RXRAT( 238 ) ! AFG1=0.1950D+00*GLY+... & + 4.3200D-01 * RXRAT( 240 ) ! AFG2+O3=0.4320D+00*GLY+... & + 3.6600D-01 * RXRAT( 243 ) ! AFG3+O3=0.3660D+00*GLY+... & + 2.3000D-02 * RXRAT( 250 ) ! IPRD+O3=0.2300D-01*GLY+... & + 5.0000D-01 * RXRAT( 260 ) ! ACROLEIN+O3=0.5000D+00*GLY+... & + 5.6000D-01 * RXRAT( 270 ) ! HCOCO3+HO2=0.5600D+00*GLY+... & + RXRAT( 331 ) ! xGLY+NO=GLY+NO & + RXRAT( 333 ) ! xGLY+NO3=GLY+NO3 & + 5.0000D-01 * RXRAT( 334 ) ! xGLY+MEO2=0.5000D+00*GLY+MEO2 & + 5.0000D-01 * RXRAT( 335 ) ! xGLY+RO2C=0.5000D+00*GLY+RO2C & + 5.0000D-01 * RXRAT( 336 ) ! xGLY+RO2XC=0.5000D+00*GLY+... & + RXRAT( 337 ) ! xGLY+MECO3=GLY+MECO3 & + RXRAT( 338 ) ! xGLY+RCO3=GLY+RCO3 & + RXRAT( 339 ) ! xGLY+BZCO3=GLY+BZCO3 & + RXRAT( 340 ) ! xGLY+MACO3=GLY+MACO3 & + 7.0000D-01 * RXRAT( 542 ) ! ACETYLENE+OH=0.7000D+... & + 2.5000D-01 * RXRAT( 717 ) ! HPALD=0.2500D+00*GLY+HO2+... & + 2.1600D-01 * RXRAT( 728 ) ! HC5OO+NO=0.2160D+00*GLY+... & + 1.0800D-01 * RXRAT( 730 ) ! HC5OO+MEO2=0.1080D+00*GLY+... & + 1.0800D-01 * RXRAT( 731 ) ! HC5OO+RO2C=0.1080D+00*GLY+... & + 2.1600D-01 * RXRAT( 732 ) ! HC5OO+MECO3=0.2160D+00*GLY+... & + 3.5000D-01 * RXRAT( 733 ) ! HC5+O3=0.3500D+00*GLY+... & + RXRAT( 756 ) ! NIT1NO3OOB+NO3=GLY+ISOPNN+NO2 & + 9.4000D-01 * RXRAT( 757 ) ! NIT1NO3OOB+NO=0.9400D+... & + 7.0000D-01 * RXRAT( 759 ) ! NIT1NO3OOB+RO2C=0.7000D+... & + 7.0000D-01 * RXRAT( 760 ) ! NIT1NO3OOB+MEO2=0.7000D+... & + RXRAT( 761 ) ! NIT1NO3OOB+MECO3=GLY+CO2+... & + 7.0000D-01 * RXRAT( 762 ) ! NIT1+O3=0.7000D+00*GLY+... & + 9.1900D-01 * RXRAT( 764 ) ! NIT1OHOO+NO=0.9190D+00*GLY+... & + 6.8900D-01 * RXRAT( 766 ) ! NIT1OHOO+RO2C=0.6890D+... & + 6.8900D-01 * RXRAT( 767 ) ! NIT1OHOO+MEO2=0.6890D+... & + 9.8400D-01 * RXRAT( 768 ) ! NIT1OHOO+MECO3=0.9840D+... & + 4.8000D-01 * RXRAT( 769 ) ! DIBOO+NO=0.4800D+00*GLY+... & + 2.4000D-01 * RXRAT( 771 ) ! DIBOO+MEO2=0.2400D+00*GLY+... & + 2.4000D-01 * RXRAT( 772 ) ! DIBOO+RO2C=0.2400D+00*GLY+... & + 4.8000D-01 * RXRAT( 773 ) ! DIBOO+MECO3=0.4800D+00*GLY+... & + 1.3000D-01 * RXRAT( 796 ) ! HOCCHO+OH=0.1300D+00*GLY+... & + 2.7500D-01 * RXRAT( 814 ) ! IEPOXOO+HO2=0.2750D+00*GLY+... & + 2.7500D-01 * RXRAT( 815 ) ! IEPOXOO+NO=0.2750D+00*GLY+... & + 1.3800D-01 * RXRAT( 816 ) ! IEPOXOO+MEO2=0.1380D+... & + 1.3800D-01 * RXRAT( 817 ) ! IEPOXOO+RO2C=0.1380D+... & + 2.7500D-01 * RXRAT( 818 ) ! IEPOXOO+MECO3=0.2750D+... & + RXRAT( 867 ) ! xGLY+IMACO3=GLY+IMACO3 LOSS( GLY ) = RXRAT( 220 ) ! GLY=0.2000D+01*CO+0.2000D+... & + RXRAT( 221 ) ! GLY=HCHO+CO & + RXRAT( 222 ) ! GLY+OH=0.7000D+00*HO2+... & + RXRAT( 223 ) ! GLY+NO3=HNO3+0.7000D+... & + RXRAT( 617 ) ! GLY+CL=HCL+0.6300D+00*HO2+... & + RXRAT( 928 ) ! GLY=AGLYJ PROD( AFG1 ) = 5.0000D-01 * RXRAT( 219 ) ! RAOOH=0.5000D+00*AFG1+HO2+... & + 3.5000D-01 * RXRAT( 243 ) ! AFG3+O3=0.3500D+00*AFG1+... & + RXRAT( 371 ) ! xAFG1+NO=AFG1+NO & + RXRAT( 373 ) ! xAFG1+NO3=AFG1+NO3 & + 5.0000D-01 * RXRAT( 374 ) ! xAFG1+MEO2=0.5000D+00*AFG1+... & + 5.0000D-01 * RXRAT( 375 ) ! xAFG1+RO2C=0.5000D+00*AFG1+... & + 5.0000D-01 * RXRAT( 376 ) ! xAFG1+RO2XC=0.5000D+... & + RXRAT( 377 ) ! xAFG1+MECO3=AFG1+MECO3 & + RXRAT( 378 ) ! xAFG1+RCO3=AFG1+RCO3 & + RXRAT( 379 ) ! xAFG1+BZCO3=AFG1+BZCO3 & + RXRAT( 380 ) ! xAFG1+MACO3=AFG1+MACO3 & + 4.2000D-02 * RXRAT( 626 ) ! IPRD+CL=0.4200D-01*AFG1+... & + RXRAT( 863 ) ! xAFG1+IMACO3=AFG1+IMACO3 LOSS( AFG1 ) = RXRAT( 236 ) ! AFG1+OH=0.2170D+00*MACO3+... & + RXRAT( 237 ) ! AFG1+O3=0.8260D+00*OH+... & + RXRAT( 238 ) ! AFG1=0.1023D+01*HO2+... PROD( AFG2 ) = 5.0000D-01 * RXRAT( 219 ) ! RAOOH=0.5000D+00*AFG2+HO2+... & + 3.5000D-01 * RXRAT( 243 ) ! AFG3+O3=0.3500D+00*AFG2+... & + RXRAT( 381 ) ! xAFG2+NO=AFG2+NO & + RXRAT( 383 ) ! xAFG2+NO3=AFG2+NO3 & + 5.0000D-01 * RXRAT( 384 ) ! xAFG2+MEO2=0.5000D+00*AFG2+... & + 5.0000D-01 * RXRAT( 385 ) ! xAFG2+RO2C=0.5000D+00*AFG2+... & + 5.0000D-01 * RXRAT( 386 ) ! xAFG2+RO2XC=0.5000D+... & + RXRAT( 387 ) ! xAFG2+MECO3=AFG2+MECO3 & + RXRAT( 388 ) ! xAFG2+RCO3=AFG2+RCO3 & + RXRAT( 389 ) ! xAFG2+BZCO3=AFG2+BZCO3 & + RXRAT( 390 ) ! xAFG2+MACO3=AFG2+MACO3 & + 4.2000D-02 * RXRAT( 626 ) ! IPRD+CL=0.4200D-01*AFG2+... & + RXRAT( 862 ) ! xAFG2+IMACO3=AFG2+IMACO3 LOSS( AFG2 ) = RXRAT( 239 ) ! AFG2+OH=0.2170D+00*MACO3+... & + RXRAT( 240 ) ! AFG2+O3=0.8260D+00*OH+... & + RXRAT( 241 ) ! AFG2=PRD2 PROD( HCOCO3 ) = 3.0000D-01 * RXRAT( 222 ) ! GLY+OH=0.3000D+00*HCOCO3+... & + 3.0000D-01 * RXRAT( 223 ) ! GLY+NO3=0.3000D+00*HCOCO3+... LOSS( HCOCO3 ) = RXRAT( 268 ) ! HCOCO3+NO=HO2+CO+CO2+NO2 & + RXRAT( 269 ) ! HCOCO3+NO2=HO2+CO+CO2+NO3 & + RXRAT( 270 ) ! HCOCO3+HO2=0.4400D+00*OH+... PROD( BACL ) = RXRAT( 351 ) ! xBACL+NO=BACL+NO & + RXRAT( 353 ) ! xBACL+NO3=BACL+NO3 & + 5.0000D-01 * RXRAT( 354 ) ! xBACL+MEO2=0.5000D+00*BACL+... & + 5.0000D-01 * RXRAT( 355 ) ! xBACL+RO2C=0.5000D+00*BACL+... & + 5.0000D-01 * RXRAT( 356 ) ! xBACL+RO2XC=0.5000D+... & + RXRAT( 357 ) ! xBACL+MECO3=BACL+MECO3 & + RXRAT( 358 ) ! xBACL+RCO3=BACL+RCO3 & + RXRAT( 359 ) ! xBACL+BZCO3=BACL+BZCO3 & + RXRAT( 360 ) ! xBACL+MACO3=BACL+MACO3 & + 2.4000D-01 * RXRAT( 747 ) ! ISOPNB+O3=0.2400D+00*BACL+... & + RXRAT( 865 ) ! xBACL+IMACO3=BACL+IMACO3 LOSS( BACL ) = RXRAT( 227 ) ! BACL=0.2000D+01*MECO3 PROD( BALD ) = RXRAT( 361 ) ! xBALD+NO=BALD+NO & + RXRAT( 363 ) ! xBALD+NO3=BALD+NO3 & + 5.0000D-01 * RXRAT( 364 ) ! xBALD+MEO2=0.5000D+00*BALD+... & + 5.0000D-01 * RXRAT( 365 ) ! xBALD+RO2C=0.5000D+00*BALD+... & + 5.0000D-01 * RXRAT( 366 ) ! xBALD+RO2XC=0.5000D+... & + RXRAT( 367 ) ! xBALD+MECO3=BALD+MECO3 & + RXRAT( 368 ) ! xBALD+RCO3=BALD+RCO3 & + RXRAT( 369 ) ! xBALD+BZCO3=BALD+BZCO3 & + RXRAT( 370 ) ! xBALD+MACO3=BALD+MACO3 & + RXRAT( 864 ) ! xBALD+IMACO3=BALD+IMACO3 LOSS( BALD ) = RXRAT( 233 ) ! BALD+OH=BZCO3 & + RXRAT( 234 ) ! BALD= & + RXRAT( 235 ) ! BALD+NO3=HNO3+BZCO3 & + RXRAT( 620 ) ! BALD+CL=HCL+BZCO3 PROD( AFG3 ) = RXRAT( 391 ) ! xAFG3+NO=AFG3+NO & + RXRAT( 393 ) ! xAFG3+NO3=AFG3+NO3 & + 5.0000D-01 * RXRAT( 394 ) ! xAFG3+MEO2=0.5000D+00*AFG3+... & + 5.0000D-01 * RXRAT( 395 ) ! xAFG3+RO2C=0.5000D+00*AFG3+... & + 5.0000D-01 * RXRAT( 396 ) ! xAFG3+RO2XC=0.5000D+... & + RXRAT( 397 ) ! xAFG3+MECO3=AFG3+MECO3 & + RXRAT( 398 ) ! xAFG3+RCO3=AFG3+RCO3 & + RXRAT( 399 ) ! xAFG3+BZCO3=AFG3+BZCO3 & + RXRAT( 400 ) ! xAFG3+MACO3=AFG3+MACO3 & + 1.1600D-01 * RXRAT( 544 ) ! BENZENE+OH=0.1160D+00*AFG3+... & + 3.1200D-01 * RXRAT( 545 ) ! TOLUENE+OH=0.3120D+00*AFG3+... & + 2.3900D-01 * RXRAT( 546 ) ! MXYL+OH=0.2390D+00*AFG3+... & + 1.9800D-01 * RXRAT( 547 ) ! OXYL+OH=0.1980D+00*AFG3+... & + 2.7800D-01 * RXRAT( 548 ) ! PXYL+OH=0.2780D+00*AFG3+... & + 2.3000D-01 * RXRAT( 549 ) ! TMBENZ124+OH=0.2300D+... & + 2.0200D-01 * RXRAT( 565 ) ! ARO1+OH=0.2020D+00*AFG3+... & + 1.7800D-01 * RXRAT( 566 ) ! ARO2MN+OH=0.1780D+00*AFG3+... & + 1.7800D-01 * RXRAT( 567 ) ! NAPHTHAL+OH=0.1780D+... & + RXRAT( 861 ) ! xAFG3+IMACO3=AFG3+IMACO3 LOSS( AFG3 ) = RXRAT( 242 ) ! AFG3+OH=0.2060D+00*MACO3+... & + 8.6100D-01 * RXRAT( 243 ) ! AFG3+O3=0.1390D+00*AFG3+... PROD( xIPRD ) = 2.3100D-01 * RXRAT( 242 ) ! AFG3+OH=0.2310D+00*xIPRD+... & + 4.7100D-01 * RXRAT( 532 ) ! BUTADIENE13+OH=0.4710D+... & + 1.2000D-01 * RXRAT( 534 ) ! BUTADIENE13+NO3=0.1200D+... & + 9.0000D-03 * RXRAT( 557 ) ! OLE1+OH=0.9000D-02*xIPRD+... & + 1.2000D-02 * RXRAT( 561 ) ! OLE2+OH=0.1200D-01*xIPRD+... & + 2.0000D-03 * RXRAT( 568 ) ! TERP+OH=0.2000D-02*xIPRD+... & + 1.0000D-03 * RXRAT( 569 ) ! TERP+O3=0.1000D-02*xIPRD+... & + 2.0000D-03 * RXRAT( 583 ) ! SESQ+OH=0.2000D-02*xIPRD+... & + 1.0000D-03 * RXRAT( 584 ) ! SESQ+O3=0.1000D-02*xIPRD+... & + 4.0000D-03 * RXRAT( 585 ) ! SESQ+NO3=0.4000D-02*xIPRD+... & + 1.1500D-01 * RXRAT( 626 ) ! IPRD+CL=0.1150D+00*xIPRD+... & + 4.7300D-01 * RXRAT( 664 ) ! BUTADIENE13+CL=0.4730D+... & + 6.7100D-01 * RXRAT( 665 ) ! ISOPRENE+CL=0.6710D+... & + 1.5800D-01 * RXRAT( 666 ) ! APIN+CL=0.1580D+00*xIPRD+... & + 3.8000D-02 * RXRAT( 679 ) ! OLE1+CL=0.3800D-01*xIPRD+... & + 1.6100D-01 * RXRAT( 680 ) ! OLE2+CL=0.1610D+00*xIPRD+... & + 1.5800D-01 * RXRAT( 684 ) ! TERP+CL=0.1580D+00*xIPRD+... & + 1.5800D-01 * RXRAT( 685 ) ! SESQ+CL=0.1580D+00*xIPRD+... & + 8.2000D-02 * RXRAT( 826 ) ! MACR+CL=0.8200D-01*xIPRD+... LOSS( xIPRD ) = RXRAT( 421 ) ! xIPRD+NO=NO+IPRD & + RXRAT( 422 ) ! xIPRD+HO2=HO2 & + RXRAT( 423 ) ! xIPRD+NO3=NO3+IPRD & + RXRAT( 424 ) ! xIPRD+MEO2=MEO2+0.5000D+... & + RXRAT( 425 ) ! xIPRD+RO2C=RO2C+0.5000D+... & + RXRAT( 426 ) ! xIPRD+RO2XC=RO2XC+0.5000D+... & + RXRAT( 427 ) ! xIPRD+MECO3=MECO3+IPRD & + RXRAT( 428 ) ! xIPRD+RCO3=RCO3+IPRD & + RXRAT( 429 ) ! xIPRD+BZCO3=BZCO3+IPRD & + RXRAT( 430 ) ! xIPRD+MACO3=MACO3+IPRD & + RXRAT( 858 ) ! xIPRD+IMACO3=IMACO3+IPRD PROD( MACR ) = 3.0000D-03 * RXRAT( 243 ) ! AFG3+O3=0.3000D-02*MACR+... & + RXRAT( 401 ) ! xMACR+NO=MACR+NO & + RXRAT( 403 ) ! xMACR+NO3=MACR+NO3 & + 5.0000D-01 * RXRAT( 404 ) ! xMACR+MEO2=0.5000D+00*MACR+... & + 5.0000D-01 * RXRAT( 405 ) ! xMACR+RO2C=0.5000D+00*MACR+... & + 5.0000D-01 * RXRAT( 406 ) ! xMACR+RO2XC=0.5000D+... & + RXRAT( 407 ) ! xMACR+MECO3=MACR+MECO3 & + RXRAT( 408 ) ! xMACR+RCO3=MACR+RCO3 & + RXRAT( 409 ) ! xMACR+BZCO3=MACR+BZCO3 & + RXRAT( 410 ) ! xMACR+MACO3=MACR+MACO3 & + 3.9000D-01 * RXRAT( 536 ) ! ISOPRENE+O3=0.3900D+... & + 5.0000D-03 * RXRAT( 571 ) ! TERPNRO2+NO=0.5000D-... & + 9.0000D-03 * RXRAT( 573 ) ! TERPNRO2+NO3=0.9000D-... & + 5.0000D-03 * RXRAT( 574 ) ! TERPNRO2+MEO2=0.5000D-... & + 5.0000D-03 * RXRAT( 575 ) ! TERPNRO2+RO2C=0.5000D-... & + 5.0000D-03 * RXRAT( 576 ) ! TERPNRO2+RO2XC=0.5000D-... & + 9.0000D-03 * RXRAT( 577 ) ! TERPNRO2+MECO3=0.9000D-... & + 9.0000D-03 * RXRAT( 578 ) ! TERPNRO2+RCO3=0.9000D-... & + 9.0000D-03 * RXRAT( 579 ) ! TERPNRO2+BZCO3=0.9000D-... & + 9.0000D-03 * RXRAT( 580 ) ! TERPNRO2+MACO3=0.9000D-... & + 9.0000D-03 * RXRAT( 581 ) ! TERPNRO2+IMACO3=0.9000D-... & + 2.6000D-01 * RXRAT( 710 ) ! ISOPO2+NO=0.2600D+00*MACR+... & + 4.7000D-02 * RXRAT( 711 ) ! ISOPO2+HO2=0.4700D-01*MACR+... & + 1.5000D-01 * RXRAT( 712 ) ! ISOPO2+MEO2=0.1500D+... & + 1.5000D-01 * RXRAT( 713 ) ! ISOPO2+RO2C=0.1500D+... & + 2.9000D-01 * RXRAT( 714 ) ! ISOPO2+ISOPO2=0.2900D+... & + 2.9000D-01 * RXRAT( 715 ) ! ISOPO2+MECO3=0.2900D+... & + 3.5000D-02 * RXRAT( 720 ) ! NISOPO2+NO3=0.3500D-... & + 3.5000D-02 * RXRAT( 721 ) ! NISOPO2+NO=0.3500D-01*MACR+... & + 1.7500D-02 * RXRAT( 723 ) ! NISOPO2+MEO2=0.1750D-... & + 1.7500D-02 * RXRAT( 724 ) ! NISOPO2+RO2C=0.1750D-... & + 3.5000D-02 * RXRAT( 725 ) ! NISOPO2+NISOPO2=0.3500D-... & + 3.5000D-02 * RXRAT( 726 ) ! NISOPO2+MECO3=0.3500D-... & + 2.9000D-01 * RXRAT( 819 ) ! ISOPOOH=0.2900D+00*MACR+... & + RXRAT( 860 ) ! xMACR+IMACO3=MACR+IMACO3 LOSS( MACR ) = RXRAT( 244 ) ! MACR+O3=0.2080D+00*OH+... & + RXRAT( 245 ) ! MACR+O3P=RCHO & + RXRAT( 823 ) ! MACR+OH=0.5300D+00*MACROO+... & + RXRAT( 824 ) ! MACR+NO3=0.5000D+00*IMACO3+... & + RXRAT( 825 ) ! MACR=0.3300D+00*OH+0.6700D+... & + RXRAT( 826 ) ! MACR+CL=0.2500D+00*HCL+... PROD( MVK ) = 4.0000D-03 * RXRAT( 243 ) ! AFG3+O3=0.4000D-02*MVK+... & + RXRAT( 411 ) ! xMVK+NO=MVK+NO & + RXRAT( 413 ) ! xMVK+NO3=MVK+NO3 & + 5.0000D-01 * RXRAT( 414 ) ! xMVK+MEO2=0.5000D+00*MVK+MEO2 & + 5.0000D-01 * RXRAT( 415 ) ! xMVK+RO2C=0.5000D+00*MVK+RO2C & + 5.0000D-01 * RXRAT( 416 ) ! xMVK+RO2XC=0.5000D+00*MVK+... & + RXRAT( 417 ) ! xMVK+MECO3=MVK+MECO3 & + RXRAT( 418 ) ! xMVK+RCO3=MVK+RCO3 & + RXRAT( 419 ) ! xMVK+BZCO3=MVK+BZCO3 & + RXRAT( 420 ) ! xMVK+MACO3=MVK+MACO3 & + 3.7500D-01 * RXRAT( 533 ) ! BUTADIENE13+O3=0.3750D+... & + 1.6000D-01 * RXRAT( 536 ) ! ISOPRENE+O3=0.1600D+00*MVK+... & + 1.0000D-03 * RXRAT( 571 ) ! TERPNRO2+NO=0.1000D-02*MVK+... & + 2.0000D-03 * RXRAT( 573 ) ! TERPNRO2+NO3=0.2000D-... & + 1.0000D-03 * RXRAT( 574 ) ! TERPNRO2+MEO2=0.1000D-... & + 1.0000D-03 * RXRAT( 575 ) ! TERPNRO2+RO2C=0.1000D-... & + 1.0000D-03 * RXRAT( 576 ) ! TERPNRO2+RO2XC=0.1000D-... & + 2.0000D-03 * RXRAT( 577 ) ! TERPNRO2+MECO3=0.2000D-... & + 2.0000D-03 * RXRAT( 578 ) ! TERPNRO2+RCO3=0.2000D-... & + 2.0000D-03 * RXRAT( 579 ) ! TERPNRO2+BZCO3=0.2000D-... & + 2.0000D-03 * RXRAT( 580 ) ! TERPNRO2+MACO3=0.2000D-... & + 2.0000D-03 * RXRAT( 581 ) ! TERPNRO2+IMACO3=0.2000D-... & + 4.0000D-01 * RXRAT( 710 ) ! ISOPO2+NO=0.4000D+00*MVK+... & + 7.3000D-02 * RXRAT( 711 ) ! ISOPO2+HO2=0.7300D-01*MVK+... & + 2.3000D-01 * RXRAT( 712 ) ! ISOPO2+MEO2=0.2300D+00*MVK+... & + 2.3000D-01 * RXRAT( 713 ) ! ISOPO2+RO2C=0.2300D+00*MVK+... & + 4.5000D-01 * RXRAT( 714 ) ! ISOPO2+ISOPO2=0.4500D+... & + 4.5000D-01 * RXRAT( 715 ) ! ISOPO2+MECO3=0.4500D+... & + 3.5000D-02 * RXRAT( 720 ) ! NISOPO2+NO3=0.3500D-01*MVK+... & + 3.5000D-02 * RXRAT( 721 ) ! NISOPO2+NO=0.3500D-01*MVK+... & + 1.7500D-02 * RXRAT( 723 ) ! NISOPO2+MEO2=0.1750D-... & + 1.7500D-02 * RXRAT( 724 ) ! NISOPO2+RO2C=0.1750D-... & + 3.5000D-02 * RXRAT( 725 ) ! NISOPO2+NISOPO2=0.3500D-... & + 3.5000D-02 * RXRAT( 726 ) ! NISOPO2+MECO3=0.3500D-... & + 4.5000D-01 * RXRAT( 819 ) ! ISOPOOH=0.4500D+00*MVK+... & + RXRAT( 859 ) ! xMVK+IMACO3=MVK+IMACO3 LOSS( MVK ) = RXRAT( 246 ) ! MVK+O3=0.1640D+00*OH+... & + RXRAT( 247 ) ! MVK+O3P=0.4500D+00*RCHO+... & + RXRAT( 248 ) ! MVK=0.4000D+00*MEO2+... & + RXRAT( 625 ) ! MVK+CL=0.1283D+01*RO2C+... & + RXRAT( 774 ) ! MVK+OH=MVKOO PROD( xHOCCHO ) = 1.2900D-01 * RXRAT( 249 ) ! IPRD+OH=0.1290D+00*xHOCCHO+... & + 4.7000D-02 * RXRAT( 250 ) ! IPRD+O3=0.4700D-01*xHOCCHO+... & + 1.9500D-01 * RXRAT( 524 ) ! ETHENE+OH=0.1950D+... & + 1.0000D-02 * RXRAT( 550 ) ! ETOH+OH=0.1000D-01*xHOCCHO+... & + 7.0000D-03 * RXRAT( 557 ) ! OLE1+OH=0.7000D-02*xHOCCHO+... & + 6.1000D-02 * RXRAT( 673 ) ! ETOH+CL=0.6100D-01*xHOCCHO+... LOSS( xHOCCHO ) = RXRAT( 503 ) ! xHOCCHO+NO=NO+HOCCHO & + RXRAT( 504 ) ! xHOCCHO+HO2=HO2 & + RXRAT( 505 ) ! xHOCCHO+NO3=NO3+HOCCHO & + RXRAT( 506 ) ! xHOCCHO+MEO2=MEO2+0.5000D+... & + RXRAT( 507 ) ! xHOCCHO+RO2C=RO2C+0.5000D+... & + RXRAT( 508 ) ! xHOCCHO+RO2XC=RO2XC+... & + RXRAT( 509 ) ! xHOCCHO+MECO3=MECO3+HOCCHO & + RXRAT( 510 ) ! xHOCCHO+RCO3=RCO3+HOCCHO & + RXRAT( 511 ) ! xHOCCHO+BZCO3=BZCO3+HOCCHO & + RXRAT( 512 ) ! xHOCCHO+MACO3=MACO3+HOCCHO & + RXRAT( 852 ) ! xHOCCHO+IMACO3=IMACO3+HOCCHO PROD( xRNO3 ) = 5.7200D-01 * RXRAT( 251 ) ! IPRD+NO3=0.5720D+00*xRNO3+... & + 3.0500D-01 * RXRAT( 255 ) ! RNO3+OH=0.3050D+00*xRNO3+... & + 3.1000D-02 * RXRAT( 261 ) ! ACROLEIN+NO3=0.3100D-... & + 3.5500D-01 * RXRAT( 534 ) ! BUTADIENE13+NO3=0.3550D+... & + 5.6000D-02 * RXRAT( 540 ) ! APIN+NO3=0.5600D-01*xRNO3+... & + 7.7400D-01 * RXRAT( 559 ) ! OLE1+NO3=0.7740D+00*xRNO3+... & + 3.2000D-01 * RXRAT( 563 ) ! OLE2+NO3=0.3200D+00*xRNO3+... & + 2.2800D-01 * RXRAT( 585 ) ! SESQ+NO3=0.2280D+00*xRNO3+... & + 5.4700D-01 * RXRAT( 615 ) ! RNO3+CL=0.5470D+00*xRNO3+... LOSS( xRNO3 ) = RXRAT( 431 ) ! xRNO3+NO=NO+RNO3 & + RXRAT( 432 ) ! xRNO3+HO2=HO2 & + RXRAT( 433 ) ! xRNO3+NO3=NO3+RNO3 & + RXRAT( 434 ) ! xRNO3+MEO2=MEO2+0.5000D+... & + RXRAT( 435 ) ! xRNO3+RO2C=RO2C+0.5000D+... & + RXRAT( 436 ) ! xRNO3+RO2XC=RO2XC+0.5000D+... & + RXRAT( 437 ) ! xRNO3+MECO3=MECO3+RNO3 & + RXRAT( 438 ) ! xRNO3+RCO3=RCO3+RNO3 & + RXRAT( 439 ) ! xRNO3+BZCO3=BZCO3+RNO3 & + RXRAT( 440 ) ! xRNO3+MACO3=MACO3+RNO3 & + RXRAT( 857 ) ! xRNO3+IMACO3=IMACO3+RNO3 PROD( HOCCHO ) = 4.6700D-01 * RXRAT( 252 ) ! IPRD=0.4670D+00*HOCCHO+... & + RXRAT( 503 ) ! xHOCCHO+NO=HOCCHO+NO & + RXRAT( 505 ) ! xHOCCHO+NO3=HOCCHO+NO3 & + 5.0000D-01 * RXRAT( 506 ) ! xHOCCHO+MEO2=0.5000D+... & + 5.0000D-01 * RXRAT( 507 ) ! xHOCCHO+RO2C=0.5000D+... & + 5.0000D-01 * RXRAT( 508 ) ! xHOCCHO+RO2XC=0.5000D+... & + RXRAT( 509 ) ! xHOCCHO+MECO3=HOCCHO+MECO3 & + RXRAT( 510 ) ! xHOCCHO+RCO3=HOCCHO+RCO3 & + RXRAT( 511 ) ! xHOCCHO+BZCO3=HOCCHO+BZCO3 & + RXRAT( 512 ) ! xHOCCHO+MACO3=HOCCHO+MACO3 & + 2.0000D-03 * RXRAT( 571 ) ! TERPNRO2+NO=0.2000D-... & + 4.0000D-03 * RXRAT( 573 ) ! TERPNRO2+NO3=0.4000D-... & + 2.0000D-03 * RXRAT( 574 ) ! TERPNRO2+MEO2=0.2000D-... & + 2.0000D-03 * RXRAT( 575 ) ! TERPNRO2+RO2C=0.2000D-... & + 2.0000D-03 * RXRAT( 576 ) ! TERPNRO2+RO2XC=0.2000D-... & + 4.0000D-03 * RXRAT( 577 ) ! TERPNRO2+MECO3=0.4000D-... & + 4.0000D-03 * RXRAT( 578 ) ! TERPNRO2+RCO3=0.4000D-... & + 4.0000D-03 * RXRAT( 579 ) ! TERPNRO2+BZCO3=0.4000D-... & + 4.0000D-03 * RXRAT( 580 ) ! TERPNRO2+MACO3=0.4000D-... & + 4.0000D-03 * RXRAT( 581 ) ! TERPNRO2+IMACO3=0.4000D-... & + 2.5000D-01 * RXRAT( 717 ) ! HPALD=0.2500D+00*HOCCHO+... & + 2.3400D-01 * RXRAT( 728 ) ! HC5OO+NO=0.2340D+00*HOCCHO+... & + 1.1700D-01 * RXRAT( 730 ) ! HC5OO+MEO2=0.1170D+... & + 1.1700D-01 * RXRAT( 731 ) ! HC5OO+RO2C=0.1170D+... & + 2.3400D-01 * RXRAT( 732 ) ! HC5OO+MECO3=0.2340D+... & + 3.5000D-01 * RXRAT( 733 ) ! HC5+O3=0.3500D+00*HOCCHO+... & + 1.5000D-01 * RXRAT( 735 ) ! ISOPNOOD+NO=0.1500D+... & + 7.5000D-02 * RXRAT( 737 ) ! ISOPNOOD+MEO2=0.7500D-... & + 7.5000D-02 * RXRAT( 738 ) ! ISOPNOOD+RO2C=0.7500D-... & + 1.5000D-01 * RXRAT( 739 ) ! ISOPNOOD+MECO3=0.1500D+... & + 3.4000D-01 * RXRAT( 740 ) ! ISOPND+O3=0.3400D+... & + 6.0000D-01 * RXRAT( 742 ) ! ISOPNOOB+NO=0.6000D+... & + 3.0000D-01 * RXRAT( 744 ) ! ISOPNOOB+MEO2=0.3000D+... & + 3.0000D-01 * RXRAT( 745 ) ! ISOPNOOB+RO2C=0.3000D+... & + 6.0000D-01 * RXRAT( 746 ) ! ISOPNOOB+MECO3=0.6000D+... & + 5.2000D-01 * RXRAT( 769 ) ! DIBOO+NO=0.5200D+00*HOCCHO+... & + 2.6000D-01 * RXRAT( 771 ) ! DIBOO+MEO2=0.2600D+... & + 2.6000D-01 * RXRAT( 772 ) ! DIBOO+RO2C=0.2600D+... & + 5.2000D-01 * RXRAT( 773 ) ! DIBOO+MECO3=0.5200D+... & + 6.2500D-01 * RXRAT( 775 ) ! MVKOO+NO=0.6250D+00*HOCCHO+... & + 3.5000D-01 * RXRAT( 777 ) ! MVKOO+MEO2=0.3500D+... & + 3.5000D-01 * RXRAT( 778 ) ! MVKOO+RO2C=0.3500D+... & + 7.0000D-01 * RXRAT( 779 ) ! MVKOO+MECO3=0.7000D+... & + RXRAT( 806 ) ! MVKN=HOCCHO+NO2+MECO3 & + 2.7500D-01 * RXRAT( 814 ) ! IEPOXOO+HO2=0.2750D+... & + 2.7500D-01 * RXRAT( 815 ) ! IEPOXOO+NO=0.2750D+... & + 1.3800D-01 * RXRAT( 816 ) ! IEPOXOO+MEO2=0.1380D+... & + 1.3800D-01 * RXRAT( 817 ) ! IEPOXOO+RO2C=0.1380D+... & + 2.7500D-01 * RXRAT( 818 ) ! IEPOXOO+MECO3=0.2750D+... & + RXRAT( 852 ) ! xHOCCHO+IMACO3=HOCCHO+IMACO3 LOSS( HOCCHO ) = RXRAT( 257 ) ! HOCCHO=CO+0.2000D+01*HO2+HCHO & + RXRAT( 258 ) ! HOCCHO+NO3=HNO3+MECO3 & + RXRAT( 796 ) ! HOCCHO+OH=0.7500D+00*HO2+... PROD( xACETONE ) = 4.0000D-03 * RXRAT( 255 ) ! RNO3+OH=0.4000D-... & + 8.0000D-03 * RXRAT( 256 ) ! RNO3=0.8000D-02*xACETONE+... & + 3.4000D-02 * RXRAT( 538 ) ! APIN+OH=0.3400D-... & + 3.4500D-01 * RXRAT( 539 ) ! APIN+O3=0.3450D+... & + 6.9000D-02 * RXRAT( 540 ) ! APIN+NO3=0.6900D-... & + 7.0400D-01 * RXRAT( 552 ) ! ALK2+OH=0.7040D+... & + 2.4000D-02 * RXRAT( 553 ) ! ALK3+OH=0.2400D-... & + 4.2600D-01 * RXRAT( 554 ) ! ALK4+OH=0.4260D+... & + 7.1000D-02 * RXRAT( 555 ) ! ALK5+OH=0.7100D-... & + 7.0000D-03 * RXRAT( 557 ) ! OLE1+OH=0.7000D-... & + 3.0000D-03 * RXRAT( 558 ) ! OLE1+O3=0.3000D-... & + 3.4000D-02 * RXRAT( 559 ) ! OLE1+NO3=0.3400D-... & + 1.4400D-01 * RXRAT( 561 ) ! OLE2+OH=0.1440D+... & + 1.1600D-01 * RXRAT( 563 ) ! OLE2+NO3=0.1160D+... & + 3.7000D-02 * RXRAT( 568 ) ! TERP+OH=0.3700D-... & + 5.7000D-02 * RXRAT( 569 ) ! TERP+O3=0.5700D-... & + 3.7000D-02 * RXRAT( 583 ) ! SESQ+OH=0.3700D-... & + 5.7000D-02 * RXRAT( 584 ) ! SESQ+O3=0.5700D-... & + 2.3900D-01 * RXRAT( 585 ) ! SESQ+NO3=0.2390D+... & + 3.0000D-03 * RXRAT( 615 ) ! RNO3+CL=0.3000D-... & + 2.7400D-01 * RXRAT( 666 ) ! APIN+CL=0.2740D+... & + 4.8800D-01 * RXRAT( 675 ) ! ALK2+CL=0.4880D+... & + 7.5000D-02 * RXRAT( 676 ) ! ALK3+CL=0.7500D-... & + 2.4700D-01 * RXRAT( 677 ) ! ALK4+CL=0.2470D+... & + 4.4000D-02 * RXRAT( 678 ) ! ALK5+CL=0.4400D-... & + 8.6000D-02 * RXRAT( 680 ) ! OLE2+CL=0.8600D-... & + 2.7400D-01 * RXRAT( 684 ) ! TERP+CL=0.2740D+... & + 2.7400D-01 * RXRAT( 685 ) ! SESQ+CL=0.2740D+... & + 3.0000D-03 * RXRAT( 881 ) ! MTNO3+CL=0.3000D-... & + 4.0000D-03 * RXRAT( 882 ) ! MTNO3+OH=0.4000D-... & + 8.0000D-03 * RXRAT( 883 ) ! MTNO3=0.8000D-02*xACETONE+... LOSS( xACETONE ) = RXRAT( 301 ) ! xACETONE+NO=NO+ACETONE & + RXRAT( 302 ) ! xACETONE+HO2=HO2 & + RXRAT( 303 ) ! xACETONE+NO3=NO3+ACETONE & + RXRAT( 304 ) ! xACETONE+MEO2=MEO2+0.5000D+... & + RXRAT( 305 ) ! xACETONE+RO2C=RO2C+0.5000D+... & + RXRAT( 306 ) ! xACETONE+RO2XC=RO2XC+... & + RXRAT( 307 ) ! xACETONE+MECO3=MECO3+ACETONE & + RXRAT( 308 ) ! xACETONE+RCO3=RCO3+ACETONE & + RXRAT( 309 ) ! xACETONE+BZCO3=BZCO3+ACETONE & + RXRAT( 310 ) ! xACETONE+MACO3=MACO3+ACETONE & + RXRAT( 870 ) ! xACETONE+IMACO3=IMACO3+ACETONE PROD( ACROLEIN ) = RXRAT( 513 ) ! xACROLEIN+NO=ACROLEIN+NO & + RXRAT( 515 ) ! xACROLEIN+NO3=ACROLEIN+NO3 & + 5.0000D-01 * RXRAT( 516 ) ! xACROLEIN+MEO2=0.5000D+... & + 5.0000D-01 * RXRAT( 517 ) ! xACROLEIN+RO2C=0.5000D+... & + 5.0000D-01 * RXRAT( 518 ) ! xACROLEIN+RO2XC=0.5000D+... & + RXRAT( 519 ) ! xACROLEIN+MECO3=ACROLEIN+MECO3 & + RXRAT( 520 ) ! xACROLEIN+RCO3=ACROLEIN+RCO3 & + RXRAT( 521 ) ! xACROLEIN+BZCO3=ACROLEIN+BZCO3 & + RXRAT( 522 ) ! xACROLEIN+MACO3=ACROLEIN+MACO3 & + 5.0000D-01 * RXRAT( 533 ) ! BUTADIENE13+O3=0.5000D+... & + RXRAT( 851 ) ! xACROLEIN+IMACO3=ACROLEIN+... LOSS( ACROLEIN ) = RXRAT( 259 ) ! ACROLEIN+OH=0.2500D+... & + RXRAT( 260 ) ! ACROLEIN+O3=0.8300D+00*HO2+... & + RXRAT( 261 ) ! ACROLEIN+NO3=0.3100D-... & + RXRAT( 262 ) ! ACROLEIN+O3P=RCHO & + RXRAT( 263 ) ! ACROLEIN=0.1066D+01*HO2+... & + RXRAT( 624 ) ! ACROLEIN+CL=0.4840D+... PROD( xBALD ) = 6.5000D-02 * RXRAT( 545 ) ! TOLUENE+OH=0.6500D-... & + 4.1000D-02 * RXRAT( 546 ) ! MXYL+OH=0.4100D-01*xBALD+... & + 4.7000D-02 * RXRAT( 547 ) ! OXYL+OH=0.4700D-01*xBALD+... & + 8.8000D-02 * RXRAT( 548 ) ! PXYL+OH=0.8800D-01*xBALD+... & + 3.6000D-02 * RXRAT( 549 ) ! TMBENZ124+OH=0.3600D-... & + 2.6000D-02 * RXRAT( 566 ) ! ARO2MN+OH=0.2600D-01*xBALD+... & + 2.6000D-02 * RXRAT( 567 ) ! NAPHTHAL+OH=0.2600D-... & + RXRAT( 619 ) ! CRES+CL=xBALD+xHO2+HCL+yR6OOH & + 8.9400D-01 * RXRAT( 668 ) ! TOLUENE+CL=0.8940D+... & + 8.6400D-01 * RXRAT( 669 ) ! MXYL+CL=0.8640D+00*xBALD+... & + 8.6400D-01 * RXRAT( 670 ) ! OXYL+CL=0.8640D+00*xBALD+... & + 8.6400D-01 * RXRAT( 671 ) ! PXYL+CL=0.8640D+00*xBALD+... & + 8.3800D-01 * RXRAT( 672 ) ! TMBENZ124+CL=0.8380D+... & + 4.6900D-01 * RXRAT( 682 ) ! ARO2MN+CL=0.4690D+00*xBALD+... & + 4.6900D-01 * RXRAT( 683 ) ! NAPHTHAL+CL=0.4690D+... LOSS( xBALD ) = RXRAT( 361 ) ! xBALD+NO=NO+BALD & + RXRAT( 362 ) ! xBALD+HO2=HO2 & + RXRAT( 363 ) ! xBALD+NO3=NO3+BALD & + RXRAT( 364 ) ! xBALD+MEO2=MEO2+0.5000D+... & + RXRAT( 365 ) ! xBALD+RO2C=RO2C+0.5000D+... & + RXRAT( 366 ) ! xBALD+RO2XC=RO2XC+0.5000D+... & + RXRAT( 367 ) ! xBALD+MECO3=MECO3+BALD & + RXRAT( 368 ) ! xBALD+RCO3=RCO3+BALD & + RXRAT( 369 ) ! xBALD+BZCO3=BZCO3+BALD & + RXRAT( 370 ) ! xBALD+MACO3=MACO3+BALD & + RXRAT( 864 ) ! xBALD+IMACO3=IMACO3+BALD PROD( xAFG3 ) = 2.8600D-01 * RXRAT( 548 ) ! PXYL+OH=0.2860D+00*xAFG3+... & + 1.5100D-01 * RXRAT( 549 ) ! TMBENZ124+OH=0.1510D+... & + 6.8000D-02 * RXRAT( 566 ) ! ARO2MN+OH=0.6800D-01*xAFG3+... & + 6.8000D-02 * RXRAT( 567 ) ! NAPHTHAL+OH=0.6800D-... & + 1.0000D-03 * RXRAT( 666 ) ! APIN+CL=0.1000D-02*xAFG3+... & + 1.0000D-03 * RXRAT( 684 ) ! TERP+CL=0.1000D-02*xAFG3+... & + 1.0000D-03 * RXRAT( 685 ) ! SESQ+CL=0.1000D-02*xAFG3+... LOSS( xAFG3 ) = RXRAT( 391 ) ! xAFG3+NO=NO+AFG3 & + RXRAT( 392 ) ! xAFG3+HO2=HO2 & + RXRAT( 393 ) ! xAFG3+NO3=NO3+AFG3 & + RXRAT( 394 ) ! xAFG3+MEO2=MEO2+0.5000D+... & + RXRAT( 395 ) ! xAFG3+RO2C=RO2C+0.5000D+... & + RXRAT( 396 ) ! xAFG3+RO2XC=RO2XC+0.5000D+... & + RXRAT( 397 ) ! xAFG3+MECO3=MECO3+AFG3 & + RXRAT( 398 ) ! xAFG3+RCO3=RCO3+AFG3 & + RXRAT( 399 ) ! xAFG3+BZCO3=BZCO3+AFG3 & + RXRAT( 400 ) ! xAFG3+MACO3=MACO3+AFG3 & + RXRAT( 861 ) ! xAFG3+IMACO3=IMACO3+AFG3 PROD( xMACR ) = 1.0000D-03 * RXRAT( 557 ) ! OLE1+OH=0.1000D-02*xMACR+... & + 2.0000D-03 * RXRAT( 569 ) ! TERP+O3=0.2000D-02*xMACR+... & + 2.0000D-03 * RXRAT( 584 ) ! SESQ+O3=0.2000D-02*xMACR+... & + 5.0000D-03 * RXRAT( 585 ) ! SESQ+NO3=0.5000D-02*xMACR+... & + 2.5000D-02 * RXRAT( 680 ) ! OLE2+CL=0.2500D-01*xMACR+... LOSS( xMACR ) = RXRAT( 401 ) ! xMACR+NO=NO+MACR & + RXRAT( 402 ) ! xMACR+HO2=HO2 & + RXRAT( 403 ) ! xMACR+NO3=NO3+MACR & + RXRAT( 404 ) ! xMACR+MEO2=MEO2+0.5000D+... & + RXRAT( 405 ) ! xMACR+RO2C=RO2C+0.5000D+... & + RXRAT( 406 ) ! xMACR+RO2XC=RO2XC+0.5000D+... & + RXRAT( 407 ) ! xMACR+MECO3=MECO3+MACR & + RXRAT( 408 ) ! xMACR+RCO3=RCO3+MACR & + RXRAT( 409 ) ! xMACR+BZCO3=BZCO3+MACR & + RXRAT( 410 ) ! xMACR+MACO3=MACO3+MACR & + RXRAT( 860 ) ! xMACR+IMACO3=IMACO3+MACR PROD( xMVK ) = 4.6000D-01 * RXRAT( 534 ) ! BUTADIENE13+NO3=0.4600D+... & + 1.2000D-02 * RXRAT( 557 ) ! OLE1+OH=0.1200D-01*xMVK+... & + 2.0000D-03 * RXRAT( 561 ) ! OLE2+OH=0.2000D-02*xMVK+... & + 3.0000D-03 * RXRAT( 568 ) ! TERP+OH=0.3000D-02*xMVK+... & + 3.0000D-03 * RXRAT( 583 ) ! SESQ+OH=0.3000D-02*xMVK+... & + 1.0000D-03 * RXRAT( 585 ) ! SESQ+NO3=0.1000D-02*xMVK+... & + 1.7700D-01 * RXRAT( 665 ) ! ISOPRENE+CL=0.1770D+... & + 3.0000D-03 * RXRAT( 666 ) ! APIN+CL=0.3000D-02*xMVK+... & + 1.9000D-02 * RXRAT( 679 ) ! OLE1+CL=0.1900D-01*xMVK+... & + 5.8000D-02 * RXRAT( 680 ) ! OLE2+CL=0.5800D-01*xMVK+... & + 3.0000D-03 * RXRAT( 684 ) ! TERP+CL=0.3000D-02*xMVK+... & + 3.0000D-03 * RXRAT( 685 ) ! SESQ+CL=0.3000D-02*xMVK+... LOSS( xMVK ) = RXRAT( 411 ) ! xMVK+NO=NO+MVK & + RXRAT( 412 ) ! xMVK+HO2=HO2 & + RXRAT( 413 ) ! xMVK+NO3=NO3+MVK & + RXRAT( 414 ) ! xMVK+MEO2=MEO2+0.5000D+00*MVK & + RXRAT( 415 ) ! xMVK+RO2C=RO2C+0.5000D+00*MVK & + RXRAT( 416 ) ! xMVK+RO2XC=RO2XC+0.5000D+... & + RXRAT( 417 ) ! xMVK+MECO3=MECO3+MVK & + RXRAT( 418 ) ! xMVK+RCO3=RCO3+MVK & + RXRAT( 419 ) ! xMVK+BZCO3=BZCO3+MVK & + RXRAT( 420 ) ! xMVK+MACO3=MACO3+MVK & + RXRAT( 859 ) ! xMVK+IMACO3=IMACO3+MVK PROD( xMTNO3 ) = 5.4700D-01 * RXRAT( 881 ) ! MTNO3+CL=0.5470D+00*xMTNO3+... & + 3.0500D-01 * RXRAT( 882 ) ! MTNO3+OH=0.3050D+00*xMTNO3+... LOSS( xMTNO3 ) = RXRAT( 441 ) ! xMTNO3+NO=NO+MTNO3 & + RXRAT( 442 ) ! xMTNO3+HO2=HO2 & + RXRAT( 443 ) ! xMTNO3+NO3=NO3+MTNO3 & + RXRAT( 444 ) ! xMTNO3+MEO2=MEO2+0.5000D+... & + RXRAT( 445 ) ! xMTNO3+RO2C=RO2C+0.5000D+... & + RXRAT( 446 ) ! xMTNO3+RO2XC=RO2XC+0.5000D+... & + RXRAT( 447 ) ! xMTNO3+MECO3=MECO3+MTNO3 & + RXRAT( 448 ) ! xMTNO3+RCO3=RCO3+MTNO3 & + RXRAT( 449 ) ! xMTNO3+BZCO3=BZCO3+MTNO3 & + RXRAT( 450 ) ! xMTNO3+MACO3=MACO3+MTNO3 & + RXRAT( 451 ) ! xMTNO3+IMACO3=MACO3+MTNO3 PROD( MTNO3 ) = RXRAT( 441 ) ! xMTNO3+NO=MTNO3+NO & + RXRAT( 443 ) ! xMTNO3+NO3=MTNO3+NO3 & + 5.0000D-01 * RXRAT( 444 ) ! xMTNO3+MEO2=0.5000D+... & + 5.0000D-01 * RXRAT( 445 ) ! xMTNO3+RO2C=0.5000D+... & + 5.0000D-01 * RXRAT( 446 ) ! xMTNO3+RO2XC=0.5000D+... & + RXRAT( 447 ) ! xMTNO3+MECO3=MTNO3+MECO3 & + RXRAT( 448 ) ! xMTNO3+RCO3=MTNO3+RCO3 & + RXRAT( 449 ) ! xMTNO3+BZCO3=MTNO3+BZCO3 & + RXRAT( 450 ) ! xMTNO3+MACO3=MTNO3+MACO3 & + RXRAT( 451 ) ! xMTNO3+IMACO3=MTNO3+MACO3 & + RXRAT( 492 ) ! zMTNO3+NO=MTNO3+NO & + 6.8800D-01 * RXRAT( 571 ) ! TERPNRO2+NO=0.6880D+... & + RXRAT( 572 ) ! TERPNRO2+HO2=MTNO3 & + 4.2200D-01 * RXRAT( 573 ) ! TERPNRO2+NO3=0.4220D+... & + 7.1100D-01 * RXRAT( 574 ) ! TERPNRO2+MEO2=0.7110D+... & + 7.1100D-01 * RXRAT( 575 ) ! TERPNRO2+RO2C=0.7110D+... & + 7.1100D-01 * RXRAT( 576 ) ! TERPNRO2+RO2XC=0.7110D+... & + 4.2200D-01 * RXRAT( 577 ) ! TERPNRO2+MECO3=0.4220D+... & + 4.2200D-01 * RXRAT( 578 ) ! TERPNRO2+RCO3=0.4220D+... & + 4.2200D-01 * RXRAT( 579 ) ! TERPNRO2+BZCO3=0.4220D+... & + 4.2200D-01 * RXRAT( 580 ) ! TERPNRO2+MACO3=0.4220D+... & + 4.2200D-01 * RXRAT( 581 ) ! TERPNRO2+IMACO3=0.4220D+... LOSS( MTNO3 ) = 9.4500D-01 * RXRAT( 881 ) ! MTNO3+CL=0.5500D-01*MTNO3+... & + 8.1100D-01 * RXRAT( 882 ) ! MTNO3+OH=0.1890D+00*MTNO3+... & + RXRAT( 883 ) ! MTNO3=0.3440D+00*HO2+... PROD( IMACO3 ) = 4.7000D-01 * RXRAT( 823 ) ! MACR+OH=0.4700D+00*IMACO3+... & + 5.0000D-01 * RXRAT( 824 ) ! MACR+NO3=0.5000D+00*IMACO3+... & + 3.3000D-01 * RXRAT( 825 ) ! MACR=0.3300D+00*IMACO3+... & + 1.6500D-01 * RXRAT( 826 ) ! MACR+CL=0.1650D+00*IMACO3+... & + RXRAT( 840 ) ! IMAPAN=IMACO3+NO2 & + 6.0000D-01 * RXRAT( 841 ) ! IMAPAN=0.6000D+00*IMACO3+... & + 8.3000D-01 * RXRAT( 880 ) ! IMPAA+OH=0.8300D+00*IMACO3+... LOSS( IMACO3 ) = RXRAT( 451 ) ! IMACO3+xMTNO3=MACO3+MTNO3 & + RXRAT( 581 ) ! IMACO3+TERPNRO2=CO2+... & + RXRAT( 827 ) ! IMACO3+NO=NO2+CO+CO2+HCHO+MEO2 & + RXRAT( 828 ) ! IMACO3+HO2=0.7500D+... & + RXRAT( 829 ) ! IMACO3+NO3=NO2+CO+CO2+HCHO+... & + RXRAT( 830 ) ! IMACO3+MEO2=0.2000D+... & + RXRAT( 831 ) ! IMACO3+RO2C=CO+CO2+HCHO+MEO2 & + RXRAT( 832 ) ! IMACO3+RO2XC=CO+CO2+HCHO+MEO2 & + RXRAT( 833 ) ! IMACO3+MECO3=0.2000D+... & + RXRAT( 834 ) ! IMACO3+RCO3=CO+0.2000D+... & + RXRAT( 835 ) ! IMACO3+BZCO3=CO+0.2000D+... & + RXRAT( 836 ) ! IMACO3+MACO3=0.2000D+01*CO+... & + 2.0000D+00 * RXRAT( 837 ) ! IMACO3+IMACO3=0.2000D+... & + RXRAT( 839 ) ! IMACO3+NO2=IMAPAN PROD( yRAOOH ) = 3.1400D-01 * RXRAT( 544 ) ! BENZENE+OH=0.3140D+... & + 4.3500D-01 * RXRAT( 545 ) ! TOLUENE+OH=0.4350D+... & + 5.5500D-01 * RXRAT( 546 ) ! MXYL+OH=0.5550D+00*yRAOOH+... & + 5.8600D-01 * RXRAT( 547 ) ! OXYL+OH=0.5860D+00*yRAOOH+... & + 4.6100D-01 * RXRAT( 548 ) ! PXYL+OH=0.4610D+00*yRAOOH+... & + 7.0500D-01 * RXRAT( 549 ) ! TMBENZ124+OH=0.7050D+... LOSS( yRAOOH ) = RXRAT( 472 ) ! yRAOOH+NO=NO & + RXRAT( 473 ) ! yRAOOH+HO2=HO2+RAOOH & + RXRAT( 474 ) ! yRAOOH+NO3=NO3 & + RXRAT( 475 ) ! yRAOOH+MEO2=MEO2+0.5000D+... & + RXRAT( 476 ) ! yRAOOH+RO2C=RO2C+0.5000D+... & + RXRAT( 477 ) ! yRAOOH+RO2XC=RO2XC+0.5000D+... & + RXRAT( 478 ) ! yRAOOH+MECO3=MECO3 & + RXRAT( 479 ) ! yRAOOH+RCO3=RCO3 & + RXRAT( 480 ) ! yRAOOH+BZCO3=BZCO3 & + RXRAT( 481 ) ! yRAOOH+MACO3=MACO3 & + RXRAT( 854 ) ! yRAOOH+IMACO3=IMACO3 PROD( zMTNO3 ) = 2.0100D-01 * RXRAT( 568 ) ! TERP+OH=0.2010D+00*zMTNO3+... & + 1.2100D-01 * RXRAT( 569 ) ! TERP+O3=0.1210D+00*zMTNO3+... & + 2.0200D-01 * RXRAT( 881 ) ! MTNO3+CL=0.2020D+00*zMTNO3+... & + 1.7500D-01 * RXRAT( 882 ) ! MTNO3+OH=0.1750D+00*zMTNO3+... & + 1.0200D-01 * RXRAT( 883 ) ! MTNO3=0.1020D+00*zMTNO3+... LOSS( zMTNO3 ) = RXRAT( 492 ) ! zMTNO3+NO=NO+MTNO3 & + RXRAT( 493 ) ! zMTNO3+HO2=HO2 & + RXRAT( 494 ) ! zMTNO3+NO3=NO3+PRD2+HO2 & + RXRAT( 495 ) ! zMTNO3+MEO2=MEO2+0.5000D+... & + RXRAT( 496 ) ! zMTNO3+RO2C=RO2C+0.5000D+... & + RXRAT( 497 ) ! zMTNO3+RO2XC=RO2XC+0.5000D+... & + RXRAT( 498 ) ! zMTNO3+MECO3=MECO3+PRD2+HO2 & + RXRAT( 499 ) ! zMTNO3+RCO3=RCO3+PRD2+HO2 & + RXRAT( 500 ) ! zMTNO3+BZCO3=BZCO3+PRD2+HO2 & + RXRAT( 501 ) ! zMTNO3+MACO3=MACO3+PRD2+HO2 & + RXRAT( 502 ) ! zMTNO3+IMACO3=IMACO3+PRD2+HO2 PROD( xACROLEIN ) = 5.8000D-01 * RXRAT( 532 ) ! BUTADIENE13+OH=0.5800D+... & + 1.1500D-01 * RXRAT( 535 ) ! BUTADIENE13+O3P=0.1150D+... & + 3.6000D-02 * RXRAT( 557 ) ! OLE1+OH=0.3600D-... & + 1.2400D-01 * RXRAT( 663 ) ! PROPENE+CL=0.1240D+... & + 4.5700D-01 * RXRAT( 664 ) ! BUTADIENE13+CL=0.4570D+... & + 2.1500D-01 * RXRAT( 679 ) ! OLE1+CL=0.2150D+... LOSS( xACROLEIN ) = RXRAT( 513 ) ! xACROLEIN+NO=NO+ACROLEIN & + RXRAT( 514 ) ! xACROLEIN+HO2=HO2 & + RXRAT( 515 ) ! xACROLEIN+NO3=NO3+ACROLEIN & + RXRAT( 516 ) ! xACROLEIN+MEO2=MEO2+... & + RXRAT( 517 ) ! xACROLEIN+RO2C=RO2C+... & + RXRAT( 518 ) ! xACROLEIN+RO2XC=RO2XC+... & + RXRAT( 519 ) ! xACROLEIN+MECO3=MECO3+ACROLEIN & + RXRAT( 520 ) ! xACROLEIN+RCO3=RCO3+ACROLEIN & + RXRAT( 521 ) ! xACROLEIN+BZCO3=BZCO3+ACROLEIN & + RXRAT( 522 ) ! xACROLEIN+MACO3=MACO3+ACROLEIN & + RXRAT( 851 ) ! xACROLEIN+IMACO3=IMACO3+... PROD( ETHENE ) = 0.0D0 LOSS( ETHENE ) = RXRAT( 524 ) ! ETHENE+OH=xHO2+RO2C+... & + RXRAT( 525 ) ! ETHENE+O3=0.1600D+00*HO2+... & + RXRAT( 526 ) ! ETHENE+NO3=xHO2+RO2C+xRCHO+... & + RXRAT( 527 ) ! ETHENE+O3P=0.8000D+00*HO2+... & + RXRAT( 662 ) ! ETHENE+CL=xHO2+0.2000D+... PROD( PROPENE ) = 0.0D0 LOSS( PROPENE ) = RXRAT( 528 ) ! PROPENE+OH=0.9840D+00*xHO2+... & + RXRAT( 529 ) ! PROPENE+O3=0.1650D+00*HO2+... & + RXRAT( 530 ) ! PROPENE+NO3=0.9490D+... & + RXRAT( 531 ) ! PROPENE+O3P=0.4500D+... & + RXRAT( 663 ) ! PROPENE+CL=0.1240D+00*HCL+... PROD( BUTADIENE13 ) = 0.0D0 LOSS( BUTADIENE13 ) = RXRAT( 532 ) ! BUTADIENE13+OH=0.9510D+... & + RXRAT( 533 ) ! BUTADIENE13+O3=0.8000D-... & + RXRAT( 534 ) ! BUTADIENE13+NO3=0.8150D+... & + RXRAT( 535 ) ! BUTADIENE13+O3P=0.2500D+... & + RXRAT( 664 ) ! BUTADIENE13+CL=0.3900D+... PROD( ISOPRENE ) = 0.0D0 LOSS( ISOPRENE ) = RXRAT( 536 ) ! ISOPRENE+O3=0.6600D-01*HO2+... & + RXRAT( 537 ) ! ISOPRENE+O3P=0.2500D+... & + RXRAT( 665 ) ! ISOPRENE+CL=0.1500D+00*HCL+... & + RXRAT( 709 ) ! ISOPRENE+OH=ISOPO2+ISOPRXN & + RXRAT( 719 ) ! ISOPRENE+NO3=NISOPO2 PROD( APIN ) = 0.0D0 LOSS( APIN ) = RXRAT( 538 ) ! APIN+OH=0.7990D+00*xHO2+... & + RXRAT( 539 ) ! APIN+O3=0.9000D-02*HO2+... & + RXRAT( 540 ) ! APIN+NO3=0.5600D-01*xHO2+... & + RXRAT( 541 ) ! APIN+O3P=PRD2+TRPRXN & + RXRAT( 666 ) ! APIN+CL=0.5480D+00*HCL+... PROD( TRPRXN ) = RXRAT( 538 ) ! APIN+OH=TRPRXN+0.4000D-... & + RXRAT( 539 ) ! APIN+O3=TRPRXN+0.1020D+... & + RXRAT( 541 ) ! APIN+O3P=TRPRXN+PRD2 & + RXRAT( 568 ) ! TERP+OH=TRPRXN+0.6400D-... & + RXRAT( 569 ) ! TERP+O3=TRPRXN+0.4600D-... & + RXRAT( 582 ) ! TERP+O3P=TRPRXN+0.7630D+... LOSS( TRPRXN ) = 0.0D0 PROD( ACETYLENE ) = 0.0D0 LOSS( ACETYLENE ) = RXRAT( 542 ) ! ACETYLENE+OH=0.3000D+... & + RXRAT( 543 ) ! ACETYLENE+O3=0.1500D+... & + RXRAT( 667 ) ! ACETYLENE+CL=HO2+CO PROD( BENZENE ) = 0.0D0 LOSS( BENZENE ) = RXRAT( 544 ) ! BENZENE+OH=0.5700D+00*HO2+... PROD( BENZRO2 ) = RXRAT( 544 ) ! BENZENE+OH=BENZRO2+0.2900D+... LOSS( BENZRO2 ) = RXRAT( 686 ) ! BENZRO2+NO=NO+0.3400D-... & + RXRAT( 687 ) ! BENZRO2+HO2=HO2+0.1460D+... PROD( TOLUENE ) = 0.0D0 LOSS( TOLUENE ) = RXRAT( 545 ) ! TOLUENE+OH=0.1810D+00*HO2+... & + RXRAT( 668 ) ! TOLUENE+CL=0.8940D+00*xHO2+... PROD( TOLRO2 ) = RXRAT( 545 ) ! TOLUENE+OH=TOLRO2+0.4540D+... & + RXRAT( 565 ) ! ARO1+OH=TOLRO2+0.5660D+... LOSS( TOLRO2 ) = RXRAT( 690 ) ! TOLRO2+NO=NO+0.1600D-... & + RXRAT( 691 ) ! TOLRO2+HO2=HO2+0.1400D+... PROD( MXYL ) = 0.0D0 LOSS( MXYL ) = RXRAT( 546 ) ! MXYL+OH=0.1590D+00*HO2+... & + RXRAT( 669 ) ! MXYL+CL=0.8640D+00*xHO2+... PROD( XYLRO2 ) = RXRAT( 546 ) ! MXYL+OH=XYLRO2+0.5200D+... & + RXRAT( 547 ) ! OXYL+OH=XYLRO2+0.5540D+... & + RXRAT( 548 ) ! PXYL+OH=XYLRO2+0.4870D+... & + RXRAT( 549 ) ! TMBENZ124+OH=XYLRO2+... & + RXRAT( 566 ) ! ARO2MN+OH=XYLRO2+0.6170D+... LOSS( XYLRO2 ) = RXRAT( 688 ) ! XYLRO2+NO=NO+0.1500D-... & + RXRAT( 689 ) ! XYLRO2+HO2=HO2+0.1930D+... PROD( OXYL ) = 0.0D0 LOSS( OXYL ) = RXRAT( 547 ) ! OXYL+OH=0.1610D+00*HO2+... & + RXRAT( 670 ) ! OXYL+CL=0.8640D+00*xHO2+... PROD( PXYL ) = 0.0D0 LOSS( PXYL ) = RXRAT( 548 ) ! PXYL+OH=0.1590D+00*HO2+... & + RXRAT( 671 ) ! PXYL+CL=0.8640D+00*xHO2+... PROD( TMBENZ124 ) = 0.0D0 LOSS( TMBENZ124 ) = RXRAT( 549 ) ! TMBENZ124+OH=0.2200D-... & + RXRAT( 672 ) ! TMBENZ124+CL=0.8380D+... PROD( ETOH ) = 0.0D0 LOSS( ETOH ) = RXRAT( 550 ) ! ETOH+OH=0.9500D+00*HO2+... & + RXRAT( 673 ) ! ETOH+CL=HCL+0.6880D+00*HO2+... PROD( ALK1 ) = 0.0D0 LOSS( ALK1 ) = RXRAT( 551 ) ! ALK1+OH=xHO2+RO2C+xCCHO+yROOH & + RXRAT( 674 ) ! ALK1+CL=HCL+xHO2+RO2C+... PROD( ALK2 ) = 0.0D0 LOSS( ALK2 ) = RXRAT( 552 ) ! ALK2+OH=0.9650D+00*xHO2+... & + RXRAT( 675 ) ! ALK2+CL=HCL+0.9700D+... PROD( ALK3 ) = 0.0D0 LOSS( ALK3 ) = RXRAT( 553 ) ! ALK3+OH=0.6950D+00*xHO2+... & + RXRAT( 676 ) ! ALK3+CL=HCL+0.8350D+... PROD( ALK4 ) = 0.0D0 LOSS( ALK4 ) = RXRAT( 554 ) ! ALK4+OH=0.8300D+00*xHO2+... & + RXRAT( 677 ) ! ALK4+CL=HCL+0.8270D+... PROD( ALK5 ) = 0.0D0 LOSS( ALK5 ) = RXRAT( 555 ) ! ALK5+OH=0.6470D+00*xHO2+... & + RXRAT( 678 ) ! ALK5+CL=HCL+0.6470D+... PROD( SOAALK ) = 0.0D0 LOSS( SOAALK ) = RXRAT( 556 ) ! SOAALK+OH=OH+0.6000D-... PROD( SVAVB2 ) = 6.0000D-03 * RXRAT( 556 ) ! SOAALK+OH=0.6000D-... & + 3.4000D-02 * RXRAT( 686 ) ! BENZRO2+NO=0.3400D-... & + 1.5000D-02 * RXRAT( 688 ) ! XYLRO2+NO=0.1500D-... & + 1.6000D-02 * RXRAT( 690 ) ! TOLRO2+NO=0.1600D-... & + 2.8000D-02 * RXRAT( 692 ) ! PAHRO2+NO=0.2800D-... LOSS( SVAVB2 ) = 0.0D0 PROD( SVAVB3 ) = 5.2000D-02 * RXRAT( 556 ) ! SOAALK+OH=0.5200D-... & + 2.3000D-02 * RXRAT( 688 ) ! XYLRO2+NO=0.2300D-... & + 5.1000D-02 * RXRAT( 690 ) ! TOLRO2+NO=0.5100D-... & + 2.2500D-01 * RXRAT( 692 ) ! PAHRO2+NO=0.2250D+... LOSS( SVAVB3 ) = 0.0D0 PROD( SVAVB4 ) = 8.1000D-02 * RXRAT( 556 ) ! SOAALK+OH=0.8100D-... & + 3.9200D-01 * RXRAT( 686 ) ! BENZRO2+NO=0.3920D+... & + 6.0000D-02 * RXRAT( 688 ) ! XYLRO2+NO=0.6000D-... & + 4.7000D-02 * RXRAT( 690 ) ! TOLRO2+NO=0.4700D-... & + 1.9100D-01 * RXRAT( 692 ) ! PAHRO2+NO=0.1910D+... LOSS( SVAVB4 ) = 0.0D0 PROD( OLE1 ) = 0.0D0 LOSS( OLE1 ) = RXRAT( 557 ) ! OLE1+OH=0.8710D+00*xHO2+... & + RXRAT( 558 ) ! OLE1+O3=0.9500D-01*HO2+... & + RXRAT( 559 ) ! OLE1+NO3=0.7720D+00*xHO2+... & + RXRAT( 560 ) ! OLE1+O3P=0.4500D+00*RCHO+... & + RXRAT( 679 ) ! OLE1+CL=0.3840D+00*HCL+... PROD( OLE2 ) = 0.0D0 LOSS( OLE2 ) = RXRAT( 561 ) ! OLE2+OH=0.9120D+00*xHO2+... & + RXRAT( 562 ) ! OLE2+O3=0.9400D-01*HO2+... & + RXRAT( 563 ) ! OLE2+NO3=0.4000D+00*xHO2+... & + RXRAT( 564 ) ! OLE2+O3P=0.7900D-01*RCHO+... & + RXRAT( 680 ) ! OLE2+CL=0.2790D+00*HCL+... PROD( ARO1 ) = 0.0D0 LOSS( ARO1 ) = RXRAT( 565 ) ! ARO1+OH=0.1230D+00*HO2+... & + RXRAT( 681 ) ! ARO1+CL=0.8400D+00*xHO2+... PROD( ARO2MN ) = 4.3000D-02 * RXRAT( 710 ) ! ISOPO2+NO=0.4300D-... & + 2.0000D-02 * RXRAT( 712 ) ! ISOPO2+MEO2=0.2000D-... & + 2.0000D-02 * RXRAT( 713 ) ! ISOPO2+RO2C=0.2000D-... & + 5.0000D-02 * RXRAT( 714 ) ! ISOPO2+ISOPO2=0.5000D-... & + 5.0000D-02 * RXRAT( 715 ) ! ISOPO2+MECO3=0.5000D-... & + 5.0000D-02 * RXRAT( 819 ) ! ISOPOOH=0.5000D-01*ARO2MN+... LOSS( ARO2MN ) = RXRAT( 566 ) ! ARO2MN+OH=0.7700D-01*HO2+... & + RXRAT( 682 ) ! ARO2MN+CL=0.8280D+00*xHO2+... PROD( NAPHTHAL ) = 0.0D0 LOSS( NAPHTHAL ) = RXRAT( 567 ) ! NAPHTHAL+OH=0.7700D-01*HO2+... & + RXRAT( 683 ) ! NAPHTHAL+CL=0.8280D+... PROD( PAHRO2 ) = RXRAT( 567 ) ! NAPHTHAL+OH=PAHRO2+0.6170D+... LOSS( PAHRO2 ) = RXRAT( 692 ) ! PAHRO2+NO=NO+0.2800D-... & + RXRAT( 693 ) ! PAHRO2+HO2=HO2+0.4730D+... PROD( TERP ) = 0.0D0 LOSS( TERP ) = RXRAT( 568 ) ! TERP+OH=0.7340D+00*xHO2+... & + RXRAT( 569 ) ! TERP+O3=0.7800D-01*HO2+... & + RXRAT( 570 ) ! TERP+NO3=TERPNRO2 & + RXRAT( 582 ) ! TERP+O3P=0.2370D+00*RCHO+... & + RXRAT( 684 ) ! TERP+CL=0.5480D+00*HCL+... PROD( TERPNRO2 ) = RXRAT( 570 ) ! TERP+NO3=TERPNRO2 LOSS( TERPNRO2 ) = RXRAT( 571 ) ! TERPNRO2+NO=0.8270D+00*NO2+... & + RXRAT( 572 ) ! TERPNRO2+HO2=MTNO3 & + RXRAT( 573 ) ! TERPNRO2+NO3=0.1531D+... & + RXRAT( 574 ) ! TERPNRO2+MEO2=0.2660D+... & + RXRAT( 575 ) ! TERPNRO2+RO2C=0.2660D+... & + RXRAT( 576 ) ! TERPNRO2+RO2XC=0.2660D+... & + RXRAT( 577 ) ! TERPNRO2+MECO3=0.5310D+... & + RXRAT( 578 ) ! TERPNRO2+RCO3=0.5310D+... & + RXRAT( 579 ) ! TERPNRO2+BZCO3=0.5310D+... & + RXRAT( 580 ) ! TERPNRO2+MACO3=CO2+0.1043D+... & + RXRAT( 581 ) ! TERPNRO2+IMACO3=CO2+... PROD( SESQ ) = 0.0D0 LOSS( SESQ ) = RXRAT( 583 ) ! SESQ+OH=0.7340D+00*xHO2+... & + RXRAT( 584 ) ! SESQ+O3=0.7800D-01*HO2+... & + RXRAT( 585 ) ! SESQ+NO3=0.2270D+00*xHO2+... & + RXRAT( 586 ) ! SESQ+O3P=0.2370D+00*RCHO+... & + RXRAT( 685 ) ! SESQ+CL=0.2520D+00*xHO2+... PROD( SESQRXN ) = RXRAT( 583 ) ! SESQ+OH=SESQRXN+0.6400D-... & + RXRAT( 584 ) ! SESQ+O3=SESQRXN+0.4600D-... & + RXRAT( 585 ) ! SESQ+NO3=SESQRXN+0.2870D+... & + RXRAT( 586 ) ! SESQ+O3P=SESQRXN+0.7630D+... LOSS( SESQRXN ) = 0.0D0 PROD( CL2 ) = RXRAT( 603 ) ! CL+CLONO2=CL2+NO3 & + 2.9000D-01 * RXRAT( 606 ) ! CLO+CLO=0.2900D+00*CL2+... LOSS( CL2 ) = RXRAT( 587 ) ! CL2=0.2000D+01*CL PROD( CL ) = 2.0000D+00 * RXRAT( 587 ) ! CL2=0.2000D+01*CL & + RXRAT( 589 ) ! CLNO=CL+NO & + RXRAT( 592 ) ! CLONO=CL+NO2 & + RXRAT( 593 ) ! CLNO2=CL+NO2 & + RXRAT( 598 ) ! CLO+NO=CL+NO2 & + RXRAT( 601 ) ! CLONO2=CL+NO3 & + RXRAT( 605 ) ! HOCL=CL+OH & + 1.4200D+00 * RXRAT( 606 ) ! CLO+CLO=0.1420D+01*CL+... & + RXRAT( 607 ) ! OH+HCL=CL & + RXRAT( 631 ) ! xCL+NO=CL+NO & + RXRAT( 633 ) ! xCL+NO3=CL+NO3 & + 5.0000D-01 * RXRAT( 634 ) ! xCL+MEO2=0.5000D+00*CL+MEO2 & + 5.0000D-01 * RXRAT( 635 ) ! xCL+RO2C=0.5000D+00*CL+RO2C & + 5.0000D-01 * RXRAT( 636 ) ! xCL+RO2XC=0.5000D+00*CL+RO2XC & + RXRAT( 637 ) ! xCL+MECO3=CL+MECO3 & + RXRAT( 638 ) ! xCL+RCO3=CL+RCO3 & + RXRAT( 639 ) ! xCL+BZCO3=CL+BZCO3 & + RXRAT( 640 ) ! xCL+MACO3=CL+MACO3 & + RXRAT( 874 ) ! xCL+IMACO3=CL+IMACO3 LOSS( CL ) = RXRAT( 588 ) ! CL+NO=CLNO & + RXRAT( 590 ) ! CL+NO2=CLONO & + RXRAT( 591 ) ! CL+NO2=CLNO2 & + RXRAT( 594 ) ! CL+HO2=HCL & + RXRAT( 595 ) ! CL+HO2=CLO+OH & + RXRAT( 596 ) ! CL+O3=CLO & + RXRAT( 597 ) ! CL+NO3=CLO+NO2 & + RXRAT( 603 ) ! CL+CLONO2=CL2+NO3 & + RXRAT( 608 ) ! CL=HCL+HO2 & + RXRAT( 609 ) ! CL+HCHO=HCL+HO2+CO & + RXRAT( 610 ) ! CL+CCHO=HCL+MECO3 & + RXRAT( 611 ) ! CL+MEOH=HCL+HCHO+HO2 & + RXRAT( 612 ) ! CL+RCHO=HCL+0.9000D+... & + RXRAT( 613 ) ! CL+ACETONE=HCL+RO2C+xHCHO+... & + RXRAT( 614 ) ! CL+MEK=HCL+0.9750D+00*RO2C+... & + RXRAT( 615 ) ! CL+RNO3=HCL+0.3800D-01*NO2+... & + RXRAT( 616 ) ! CL+PRD2=HCL+0.3140D+00*HO2+... & + RXRAT( 617 ) ! CL+GLY=HCL+0.6300D+00*HO2+... & + RXRAT( 618 ) ! CL+MGLY=HCL+CO+MECO3 & + RXRAT( 619 ) ! CL+CRES=HCL+xHO2+xBALD+yR6OOH & + RXRAT( 620 ) ! CL+BALD=HCL+BZCO3 & + RXRAT( 621 ) ! CL+ROOH=HCL+0.4140D+00*OH+... & + RXRAT( 622 ) ! CL+R6OOH=HCL+0.1450D+00*OH+... & + RXRAT( 623 ) ! CL+RAOOH=0.4040D+00*HCL+... & + RXRAT( 624 ) ! CL+ACROLEIN=0.4840D+... & + RXRAT( 625 ) ! CL+MVK=0.1283D+01*RO2C+... & + RXRAT( 626 ) ! CL+IPRD=0.4010D+00*HCL+... & + RXRAT( 629 ) ! CL+CLCCHO=HCL+RCO3 & + RXRAT( 661 ) ! CL=HCL+MEO2 & + RXRAT( 662 ) ! CL+ETHENE=xHO2+0.2000D+... & + RXRAT( 663 ) ! CL+PROPENE=0.1240D+00*HCL+... & + RXRAT( 664 ) ! CL+BUTADIENE13=0.3900D+... & + RXRAT( 665 ) ! CL+ISOPRENE=0.1500D+00*HCL+... & + RXRAT( 666 ) ! CL+APIN=0.5480D+00*HCL+... & + RXRAT( 667 ) ! CL+ACETYLENE=HO2+CO & + RXRAT( 668 ) ! CL+TOLUENE=0.8940D+00*xHO2+... & + RXRAT( 669 ) ! CL+MXYL=0.8640D+00*xHO2+... & + RXRAT( 670 ) ! CL+OXYL=0.8640D+00*xHO2+... & + RXRAT( 671 ) ! CL+PXYL=0.8640D+00*xHO2+... & + RXRAT( 672 ) ! CL+TMBENZ124=0.8380D+... & + RXRAT( 673 ) ! CL+ETOH=HCL+0.6880D+00*HO2+... & + RXRAT( 674 ) ! CL+ALK1=HCL+xHO2+RO2C+... & + RXRAT( 675 ) ! CL+ALK2=HCL+0.9700D+... & + RXRAT( 676 ) ! CL+ALK3=HCL+0.8350D+... & + RXRAT( 677 ) ! CL+ALK4=HCL+0.8270D+... & + RXRAT( 678 ) ! CL+ALK5=HCL+0.6470D+... & + RXRAT( 679 ) ! CL+OLE1=0.3840D+00*HCL+... & + RXRAT( 680 ) ! CL+OLE2=0.2790D+00*HCL+... & + RXRAT( 681 ) ! CL+ARO1=0.8400D+00*xHO2+... & + RXRAT( 682 ) ! CL+ARO2MN=0.8280D+00*xHO2+... & + RXRAT( 683 ) ! CL+NAPHTHAL=0.8280D+... & + RXRAT( 684 ) ! CL+TERP=0.5480D+00*HCL+... & + RXRAT( 685 ) ! CL+SESQ=0.2520D+00*xHO2+... & + RXRAT( 826 ) ! CL+MACR=0.2500D+00*HCL+... & + RXRAT( 881 ) ! CL+MTNO3=HCL+0.3800D-... PROD( CLNO ) = RXRAT( 588 ) ! CL+NO=CLNO LOSS( CLNO ) = RXRAT( 589 ) ! CLNO=CL+NO PROD( CLONO ) = RXRAT( 590 ) ! CL+NO2=CLONO LOSS( CLONO ) = RXRAT( 592 ) ! CLONO=CL+NO2 PROD( CLNO2 ) = RXRAT( 591 ) ! CL+NO2=CLNO2 & + RXRAT( 889 ) ! H2NO3PIJ+ACLI=CLNO2 & + RXRAT( 890 ) ! H2NO3PIJ+ACLJ=CLNO2 & + RXRAT( 891 ) ! H2NO3PK+ACLK=CLNO2 LOSS( CLNO2 ) = RXRAT( 593 ) ! CLNO2=CL+NO2 PROD( HCL ) = RXRAT( 594 ) ! CL+HO2=HCL & + RXRAT( 608 ) ! CL=HCL+HO2 & + RXRAT( 609 ) ! HCHO+CL=HCL+HO2+CO & + RXRAT( 610 ) ! CCHO+CL=HCL+MECO3 & + RXRAT( 611 ) ! MEOH+CL=HCL+HCHO+HO2 & + RXRAT( 612 ) ! RCHO+CL=HCL+0.9000D+... & + RXRAT( 613 ) ! ACETONE+CL=HCL+RO2C+xHCHO+... & + RXRAT( 614 ) ! MEK+CL=HCL+0.9750D+00*RO2C+... & + RXRAT( 615 ) ! RNO3+CL=HCL+0.3800D-01*NO2+... & + RXRAT( 616 ) ! PRD2+CL=HCL+0.3140D+00*HO2+... & + RXRAT( 617 ) ! GLY+CL=HCL+0.6300D+00*HO2+... & + RXRAT( 618 ) ! MGLY+CL=HCL+CO+MECO3 & + RXRAT( 619 ) ! CRES+CL=HCL+xHO2+xBALD+yR6OOH & + RXRAT( 620 ) ! BALD+CL=HCL+BZCO3 & + RXRAT( 621 ) ! ROOH+CL=HCL+0.4140D+00*OH+... & + RXRAT( 622 ) ! R6OOH+CL=HCL+0.1450D+00*OH+... & + 4.0400D-01 * RXRAT( 623 ) ! RAOOH+CL=0.4040D+00*HCL+... & + 2.1600D-01 * RXRAT( 624 ) ! ACROLEIN+CL=0.2160D+00*HCL+... & + 4.0100D-01 * RXRAT( 626 ) ! IPRD+CL=0.4010D+00*HCL+... & + RXRAT( 629 ) ! CLCCHO+CL=HCL+RCO3 & + RXRAT( 661 ) ! CL=HCL+MEO2 & + 1.2400D-01 * RXRAT( 663 ) ! PROPENE+CL=0.1240D+00*HCL+... & + 1.5000D-01 * RXRAT( 665 ) ! ISOPRENE+CL=0.1500D+00*HCL+... & + 5.4800D-01 * RXRAT( 666 ) ! APIN+CL=0.5480D+00*HCL+... & + RXRAT( 673 ) ! ETOH+CL=HCL+0.6880D+00*HO2+... & + RXRAT( 674 ) ! ALK1+CL=HCL+xHO2+RO2C+... & + RXRAT( 675 ) ! ALK2+CL=HCL+0.9700D+... & + RXRAT( 676 ) ! ALK3+CL=HCL+0.8350D+... & + RXRAT( 677 ) ! ALK4+CL=HCL+0.8270D+... & + RXRAT( 678 ) ! ALK5+CL=HCL+0.6470D+... & + 3.8400D-01 * RXRAT( 679 ) ! OLE1+CL=0.3840D+00*HCL+... & + 2.7900D-01 * RXRAT( 680 ) ! OLE2+CL=0.2790D+00*HCL+... & + 5.4800D-01 * RXRAT( 684 ) ! TERP+CL=0.5480D+00*HCL+... & + 5.4800D-01 * RXRAT( 685 ) ! SESQ+CL=0.5480D+00*HCL+... & + 2.5000D-01 * RXRAT( 826 ) ! MACR+CL=0.2500D+00*HCL+... & + RXRAT( 881 ) ! MTNO3+CL=HCL+0.3800D-... LOSS( HCL ) = RXRAT( 607 ) ! HCL+OH=CL PROD( CLO ) = RXRAT( 595 ) ! CL+HO2=CLO+OH & + RXRAT( 596 ) ! CL+O3=CLO & + RXRAT( 597 ) ! CL+NO3=CLO+NO2 & + RXRAT( 600 ) ! CLONO2=CLO+NO2 & + RXRAT( 602 ) ! CLONO2=CLO+NO2 LOSS( CLO ) = RXRAT( 598 ) ! CLO+NO=CL+NO2 & + RXRAT( 599 ) ! CLO+NO2=CLONO2 & + RXRAT( 604 ) ! CLO+HO2=HOCL & + 2.0000D+00 * RXRAT( 606 ) ! CLO+CLO=0.2900D+00*CL2+... PROD( CLONO2 ) = RXRAT( 599 ) ! CLO+NO2=CLONO2 LOSS( CLONO2 ) = RXRAT( 600 ) ! CLONO2=CLO+NO2 & + RXRAT( 601 ) ! CLONO2=CL+NO3 & + RXRAT( 602 ) ! CLONO2=CLO+NO2 & + RXRAT( 603 ) ! CLONO2+CL=CL2+NO3 PROD( HOCL ) = RXRAT( 604 ) ! CLO+HO2=HOCL LOSS( HOCL ) = RXRAT( 605 ) ! HOCL=OH+CL PROD( xCL ) = 2.7400D-01 * RXRAT( 624 ) ! ACROLEIN+CL=0.2740D+00*xCL+... & + RXRAT( 627 ) ! CLCCHO=xCL+CO+RO2C+HO2+... & + RXRAT( 630 ) ! CLACET=xCL+RO2C+MECO3+... & + 5.4100D-01 * RXRAT( 664 ) ! BUTADIENE13+CL=0.5410D+... & + 1.7700D-01 * RXRAT( 665 ) ! ISOPRENE+CL=0.1770D+00*xCL+... & + 6.8000D-02 * RXRAT( 666 ) ! APIN+CL=0.6800D-01*xCL+... & + 4.4200D-01 * RXRAT( 680 ) ! OLE2+CL=0.4420D+00*xCL+... & + 6.8000D-02 * RXRAT( 684 ) ! TERP+CL=0.6800D-01*xCL+... & + 6.8000D-02 * RXRAT( 685 ) ! SESQ+CL=0.6800D-01*xCL+... LOSS( xCL ) = RXRAT( 631 ) ! xCL+NO=NO+CL & + RXRAT( 632 ) ! xCL+HO2=HO2 & + RXRAT( 633 ) ! xCL+NO3=NO3+CL & + RXRAT( 634 ) ! xCL+MEO2=MEO2+0.5000D+00*CL & + RXRAT( 635 ) ! xCL+RO2C=RO2C+0.5000D+00*CL & + RXRAT( 636 ) ! xCL+RO2XC=RO2XC+0.5000D+00*CL & + RXRAT( 637 ) ! xCL+MECO3=MECO3+CL & + RXRAT( 638 ) ! xCL+RCO3=RCO3+CL & + RXRAT( 639 ) ! xCL+BZCO3=BZCO3+CL & + RXRAT( 640 ) ! xCL+MACO3=MACO3+CL & + RXRAT( 874 ) ! xCL+IMACO3=IMACO3+CL PROD( xCLCCHO ) = 4.8400D-01 * RXRAT( 624 ) ! ACROLEIN+CL=0.4840D+... & + 9.4700D-01 * RXRAT( 625 ) ! MVK+CL=0.9470D+00*xCLCCHO+... & + 1.4000D-01 * RXRAT( 626 ) ! IPRD+CL=0.1400D+00*xCLCCHO+... & + 3.0600D-01 * RXRAT( 663 ) ! PROPENE+CL=0.3060D+... & + 6.7000D-02 * RXRAT( 665 ) ! ISOPRENE+CL=0.6700D-... & + 1.0900D-01 * RXRAT( 666 ) ! APIN+CL=0.1090D+00*xCLCCHO+... & + 1.9200D-01 * RXRAT( 679 ) ! OLE1+CL=0.1920D+00*xCLCCHO+... & + 1.3000D-02 * RXRAT( 680 ) ! OLE2+CL=0.1300D-01*xCLCCHO+... & + 1.0900D-01 * RXRAT( 684 ) ! TERP+CL=0.1090D+00*xCLCCHO+... & + 1.0900D-01 * RXRAT( 685 ) ! SESQ+CL=0.1090D+00*xCLCCHO+... & + 1.8000D-01 * RXRAT( 826 ) ! MACR+CL=0.1800D+00*xCLCCHO+... LOSS( xCLCCHO ) = RXRAT( 641 ) ! xCLCCHO+NO=NO+CLCCHO & + RXRAT( 642 ) ! xCLCCHO+HO2=HO2 & + RXRAT( 643 ) ! xCLCCHO+NO3=NO3+CLCCHO & + RXRAT( 644 ) ! xCLCCHO+MEO2=MEO2+0.5000D+... & + RXRAT( 645 ) ! xCLCCHO+RO2C=RO2C+0.5000D+... & + RXRAT( 646 ) ! xCLCCHO+RO2XC=RO2XC+... & + RXRAT( 647 ) ! xCLCCHO+MECO3=MECO3+CLCCHO & + RXRAT( 648 ) ! xCLCCHO+RCO3=RCO3+CLCCHO & + RXRAT( 649 ) ! xCLCCHO+BZCO3=BZCO3+CLCCHO & + RXRAT( 650 ) ! xCLCCHO+MACO3=MACO3+CLCCHO & + RXRAT( 876 ) ! xCLCCHO+IMACO3=IMACO3+CLCCHO PROD( xCLACET ) = 4.2000D-01 * RXRAT( 626 ) ! IPRD+CL=0.4200D+00*xCLACET+... & + 5.4000D-01 * RXRAT( 663 ) ! PROPENE+CL=0.5400D+... & + 3.3700D-01 * RXRAT( 679 ) ! OLE1+CL=0.3370D+00*xCLACET+... & + 1.9100D-01 * RXRAT( 680 ) ! OLE2+CL=0.1910D+00*xCLACET+... & + 5.4100D-01 * RXRAT( 826 ) ! MACR+CL=0.5410D+00*xCLACET+... LOSS( xCLACET ) = RXRAT( 651 ) ! xCLACET+NO=NO+CLACET & + RXRAT( 652 ) ! xCLACET+HO2=HO2 & + RXRAT( 653 ) ! xCLACET+NO3=NO3+CLACET & + RXRAT( 654 ) ! xCLACET+MEO2=MEO2+0.5000D+... & + RXRAT( 655 ) ! xCLACET+RO2C=RO2C+0.5000D+... & + RXRAT( 656 ) ! xCLACET+RO2XC=RO2XC+... & + RXRAT( 657 ) ! xCLACET+MECO3=MECO3+CLACET & + RXRAT( 658 ) ! xCLACET+RCO3=RCO3+CLACET & + RXRAT( 659 ) ! xCLACET+BZCO3=BZCO3+CLACET & + RXRAT( 660 ) ! xCLACET+MACO3=MACO3+CLACET & + RXRAT( 875 ) ! xCLACET+IMACO3=IMACO3+CLACET PROD( CLCCHO ) = RXRAT( 641 ) ! xCLCCHO+NO=CLCCHO+NO & + RXRAT( 643 ) ! xCLCCHO+NO3=CLCCHO+NO3 & + 5.0000D-01 * RXRAT( 644 ) ! xCLCCHO+MEO2=0.5000D+... & + 5.0000D-01 * RXRAT( 645 ) ! xCLCCHO+RO2C=0.5000D+... & + 5.0000D-01 * RXRAT( 646 ) ! xCLCCHO+RO2XC=0.5000D+... & + RXRAT( 647 ) ! xCLCCHO+MECO3=CLCCHO+MECO3 & + RXRAT( 648 ) ! xCLCCHO+RCO3=CLCCHO+RCO3 & + RXRAT( 649 ) ! xCLCCHO+BZCO3=CLCCHO+BZCO3 & + RXRAT( 650 ) ! xCLCCHO+MACO3=CLCCHO+MACO3 & + RXRAT( 876 ) ! xCLCCHO+IMACO3=CLCCHO+IMACO3 LOSS( CLCCHO ) = RXRAT( 627 ) ! CLCCHO=HO2+CO+RO2C+xCL+... & + RXRAT( 628 ) ! CLCCHO+OH=RCO3 & + RXRAT( 629 ) ! CLCCHO+CL=HCL+RCO3 PROD( CLACET ) = RXRAT( 651 ) ! xCLACET+NO=CLACET+NO & + RXRAT( 653 ) ! xCLACET+NO3=CLACET+NO3 & + 5.0000D-01 * RXRAT( 654 ) ! xCLACET+MEO2=0.5000D+... & + 5.0000D-01 * RXRAT( 655 ) ! xCLACET+RO2C=0.5000D+... & + 5.0000D-01 * RXRAT( 656 ) ! xCLACET+RO2XC=0.5000D+... & + RXRAT( 657 ) ! xCLACET+MECO3=CLACET+MECO3 & + RXRAT( 658 ) ! xCLACET+RCO3=CLACET+RCO3 & + RXRAT( 659 ) ! xCLACET+BZCO3=CLACET+BZCO3 & + RXRAT( 660 ) ! xCLACET+MACO3=CLACET+MACO3 & + RXRAT( 875 ) ! xCLACET+IMACO3=CLACET+IMACO3 LOSS( CLACET ) = RXRAT( 630 ) ! CLACET=MECO3+RO2C+xCL+... PROD( CLCHO ) = RXRAT( 662 ) ! ETHENE+CL=CLCHO+0.2000D+... LOSS( CLCHO ) = 0.0D0 PROD( SVAVB1 ) = 1.4600D-01 * RXRAT( 687 ) ! BENZRO2+HO2=0.1460D+... & + 1.9300D-01 * RXRAT( 689 ) ! XYLRO2+HO2=0.1930D+... & + 1.4000D-01 * RXRAT( 691 ) ! TOLRO2+HO2=0.1400D+... & + 4.7300D-01 * RXRAT( 693 ) ! PAHRO2+HO2=0.4730D+... LOSS( SVAVB1 ) = 0.0D0 PROD( HCHO_PRIMARY ) = 0.0D0 LOSS( HCHO_PRIMARY ) = RXRAT( 694 ) ! HCHO_PRIMARY= & + RXRAT( 695 ) ! HCHO_PRIMARY= & + RXRAT( 696 ) ! HCHO_PRIMARY+OH=OH & + RXRAT( 697 ) ! HCHO_PRIMARY+NO3=NO3 & + RXRAT( 698 ) ! HCHO_PRIMARY+CL=CL PROD( CCHO_PRIMARY ) = 0.0D0 LOSS( CCHO_PRIMARY ) = RXRAT( 699 ) ! CCHO_PRIMARY+OH=OH & + RXRAT( 700 ) ! CCHO_PRIMARY= & + RXRAT( 701 ) ! CCHO_PRIMARY+NO3=NO3 & + RXRAT( 702 ) ! CCHO_PRIMARY+CL=CL PROD( ACRO_PRIMARY ) = 0.0D0 LOSS( ACRO_PRIMARY ) = RXRAT( 703 ) ! ACRO_PRIMARY+OH=OH & + RXRAT( 704 ) ! ACRO_PRIMARY+O3=O3 & + RXRAT( 705 ) ! ACRO_PRIMARY+NO3=NO3 & + RXRAT( 706 ) ! ACRO_PRIMARY+O3P=O3P & + RXRAT( 707 ) ! ACRO_PRIMARY= & + RXRAT( 708 ) ! ACRO_PRIMARY+CL=CL PROD( ISOPO2 ) = RXRAT( 709 ) ! ISOPRENE+OH=ISOPO2+ISOPRXN & + 3.8700D-01 * RXRAT( 812 ) ! ISOPOOH+OH=0.3870D+... LOSS( ISOPO2 ) = RXRAT( 710 ) ! ISOPO2+NO=0.4000D+00*MVK+... & + RXRAT( 711 ) ! ISOPO2+HO2=0.8800D+... & + RXRAT( 712 ) ! ISOPO2+MEO2=0.9500D+00*HO2+... & + RXRAT( 713 ) ! ISOPO2+RO2C=0.4500D+00*HO2+... & + 2.0000D+00 * RXRAT( 714 ) ! ISOPO2+ISOPO2=0.9100D+... & + RXRAT( 715 ) ! ISOPO2+MECO3=MEO2+CO2+... & + RXRAT( 716 ) ! ISOPO2=HO2+HPALD PROD( ISOPRXN ) = RXRAT( 709 ) ! ISOPRENE+OH=ISOPRXN+ISOPO2 LOSS( ISOPRXN ) = 0.0D0 PROD( ISOPND ) = 7.0000D-02 * RXRAT( 710 ) ! ISOPO2+NO=0.7000D-... & + 2.5000D-01 * RXRAT( 723 ) ! NISOPO2+MEO2=0.2500D+... & + 2.5000D-01 * RXRAT( 724 ) ! NISOPO2+RO2C=0.2500D+... & + 5.0000D-01 * RXRAT( 725 ) ! NISOPO2+NISOPO2=0.5000D+... LOSS( ISOPND ) = RXRAT( 734 ) ! ISOPND+OH=ISOPNOOD & + RXRAT( 740 ) ! ISOPND+O3=0.3600D+00*ETHLN+... PROD( ISOPNB ) = 4.7000D-02 * RXRAT( 710 ) ! ISOPO2+NO=0.4700D-... LOSS( ISOPNB ) = RXRAT( 741 ) ! ISOPNB+OH=ISOPNOOB & + RXRAT( 747 ) ! ISOPNB+O3=0.1200D+00*MVKN+... PROD( HC5 ) = 1.0000D-01 * RXRAT( 710 ) ! ISOPO2+NO=0.1000D+00*HC5+... & + 6.0000D-02 * RXRAT( 712 ) ! ISOPO2+MEO2=0.6000D-01*HC5+... & + 6.0000D-02 * RXRAT( 713 ) ! ISOPO2+RO2C=0.6000D-01*HC5+... & + 1.1000D-01 * RXRAT( 714 ) ! ISOPO2+ISOPO2=0.1100D+... & + 1.1000D-01 * RXRAT( 715 ) ! ISOPO2+MECO3=0.1100D+... & + 2.3000D-01 * RXRAT( 720 ) ! NISOPO2+NO3=0.2300D+00*HC5+... & + 2.3000D-01 * RXRAT( 721 ) ! NISOPO2+NO=0.2300D+00*HC5+... & + 1.1500D-01 * RXRAT( 723 ) ! NISOPO2+MEO2=0.1150D+... & + 1.1500D-01 * RXRAT( 724 ) ! NISOPO2+RO2C=0.1150D+... & + 2.3000D-01 * RXRAT( 725 ) ! NISOPO2+NISOPO2=0.2300D+... & + 2.3000D-01 * RXRAT( 726 ) ! NISOPO2+MECO3=0.2300D+... & + 6.1300D-01 * RXRAT( 812 ) ! ISOPOOH+OH=0.6130D+00*HC5+... & + 1.1000D-01 * RXRAT( 819 ) ! ISOPOOH=0.1100D+00*HC5+... LOSS( HC5 ) = RXRAT( 727 ) ! HC5+OH=HC5OO & + RXRAT( 733 ) ! HC5+O3=0.5000D+00*MGLY+... PROD( DIBOO ) = 8.0000D-02 * RXRAT( 710 ) ! ISOPO2+NO=0.8000D-01*DIBOO+... & + 5.0000D-02 * RXRAT( 712 ) ! ISOPO2+MEO2=0.5000D-... & + 5.0000D-02 * RXRAT( 713 ) ! ISOPO2+RO2C=0.5000D-... & + 9.0000D-02 * RXRAT( 714 ) ! ISOPO2+ISOPO2=0.9000D-... & + 9.0000D-02 * RXRAT( 715 ) ! ISOPO2+MECO3=0.9000D-... & + 9.0000D-02 * RXRAT( 819 ) ! ISOPOOH=0.9000D-01*DIBOO+... LOSS( DIBOO ) = RXRAT( 769 ) ! DIBOO+NO=NO2+HO2+0.5200D+... & + RXRAT( 770 ) ! DIBOO+HO2=R6OOH & + RXRAT( 771 ) ! DIBOO+MEO2=HO2+0.2600D+... & + RXRAT( 772 ) ! DIBOO+RO2C=0.5000D+00*HO2+... & + RXRAT( 773 ) ! DIBOO+MECO3=HO2+0.5200D+... PROD( ISOPOOH ) = 8.8000D-01 * RXRAT( 711 ) ! ISOPO2+HO2=0.8800D+... LOSS( ISOPOOH ) = RXRAT( 811 ) ! ISOPOOH+OH=IEPOX+OH & + RXRAT( 812 ) ! ISOPOOH+OH=0.3870D+... & + RXRAT( 819 ) ! ISOPOOH=OH+0.9100D+00*HO2+... PROD( HPALD ) = RXRAT( 716 ) ! ISOPO2=HPALD+HO2 LOSS( HPALD ) = RXRAT( 717 ) ! HPALD=OH+HO2+0.5000D+... & + RXRAT( 718 ) ! HPALD+OH=OH+PRD2 PROD( HACET ) = 5.0000D-01 * RXRAT( 717 ) ! HPALD=0.5000D+00*HACET+HO2+... & + 2.1600D-01 * RXRAT( 728 ) ! HC5OO+NO=0.2160D+00*HACET+... & + 1.0800D-01 * RXRAT( 730 ) ! HC5OO+MEO2=0.1080D+... & + 1.0800D-01 * RXRAT( 731 ) ! HC5OO+RO2C=0.1080D+... & + 2.1600D-01 * RXRAT( 732 ) ! HC5OO+MECO3=0.2160D+... & + 1.5000D-01 * RXRAT( 733 ) ! HC5+O3=0.1500D+00*HACET+... & + 4.4000D-01 * RXRAT( 735 ) ! ISOPNOOD+NO=0.4400D+... & + 2.2000D-01 * RXRAT( 737 ) ! ISOPNOOD+MEO2=0.2200D+... & + 2.2000D-01 * RXRAT( 738 ) ! ISOPNOOD+RO2C=0.2200D+... & + 4.4000D-01 * RXRAT( 739 ) ! ISOPNOOD+MECO3=0.4400D+... & + 1.6000D-01 * RXRAT( 740 ) ! ISOPND+O3=0.1600D+00*HACET+... & + 6.0000D-01 * RXRAT( 742 ) ! ISOPNOOB+NO=0.6000D+... & + 3.0000D-01 * RXRAT( 744 ) ! ISOPNOOB+MEO2=0.3000D+... & + 3.0000D-01 * RXRAT( 745 ) ! ISOPNOOB+RO2C=0.3000D+... & + 6.0000D-01 * RXRAT( 746 ) ! ISOPNOOB+MECO3=0.6000D+... & + 4.0000D-02 * RXRAT( 747 ) ! ISOPNB+O3=0.4000D-01*HACET+... & + 4.8000D-01 * RXRAT( 769 ) ! DIBOO+NO=0.4800D+00*HACET+... & + 2.4000D-01 * RXRAT( 771 ) ! DIBOO+MEO2=0.2400D+... & + 2.4000D-01 * RXRAT( 772 ) ! DIBOO+RO2C=0.2400D+... & + 4.8000D-01 * RXRAT( 773 ) ! DIBOO+MECO3=0.4800D+... & + 7.2000D-01 * RXRAT( 780 ) ! MACROO+NO=0.7200D+00*HACET+... & + 4.2400D-01 * RXRAT( 782 ) ! MACROO+MEO2=0.4240D+... & + 4.2400D-01 * RXRAT( 783 ) ! MACROO+RO2C=0.4240D+... & + 8.5000D-01 * RXRAT( 784 ) ! MACROO+MECO3=0.8500D+... & + RXRAT( 795 ) ! MAPAN+OH=HACET+CO+NO2 & + 8.5000D-01 * RXRAT( 807 ) ! MACRN+OH=0.8500D+00*HACET+... & + RXRAT( 808 ) ! MACRN=HACET+NO2+CO+HO2 & + 5.0000D-01 * RXRAT( 809 ) ! DHMOB+OH=0.5000D+00*HACET+... & + 7.2500D-01 * RXRAT( 814 ) ! IEPOXOO+HO2=0.7250D+... & + 7.2500D-01 * RXRAT( 815 ) ! IEPOXOO+NO=0.7250D+... & + 3.6300D-01 * RXRAT( 816 ) ! IEPOXOO+MEO2=0.3630D+... & + 3.6300D-01 * RXRAT( 817 ) ! IEPOXOO+RO2C=0.3630D+... & + 7.2500D-01 * RXRAT( 818 ) ! IEPOXOO+MECO3=0.7250D+... & + RXRAT( 838 ) ! MACROO=HACET+CO+OH & + 3.0000D-02 * RXRAT( 877 ) ! IMAPAN+OH=0.3000D-01*HACET+... LOSS( HACET ) = RXRAT( 797 ) ! HACET+OH=0.7500D+00*MGLY+... & + RXRAT( 798 ) ! HACET=HO2+MECO3+HCHO PROD( NISOPO2 ) = RXRAT( 719 ) ! ISOPRENE+NO3=NISOPO2 & + 3.0000D-01 * RXRAT( 822 ) ! NISOPOOH+OH=0.3000D+... LOSS( NISOPO2 ) = RXRAT( 720 ) ! NISOPO2+NO3=0.7000D+... & + RXRAT( 721 ) ! NISOPO2+NO=0.7000D+00*NIT1+... & + RXRAT( 722 ) ! NISOPO2+HO2=NISOPOOH & + RXRAT( 723 ) ! NISOPO2+MEO2=0.6000D+... & + RXRAT( 724 ) ! NISOPO2+RO2C=0.6000D+... & + 2.0000D+00 * RXRAT( 725 ) ! NISOPO2+NISOPO2=0.1200D+... & + RXRAT( 726 ) ! NISOPO2+MECO3=MEO2+CO2+... PROD( NIT1 ) = 7.0000D-01 * RXRAT( 720 ) ! NISOPO2+NO3=0.7000D+... & + 7.0000D-01 * RXRAT( 721 ) ! NISOPO2+NO=0.7000D+00*NIT1+... & + 6.0000D-01 * RXRAT( 723 ) ! NISOPO2+MEO2=0.6000D+... & + 6.0000D-01 * RXRAT( 724 ) ! NISOPO2+RO2C=0.6000D+... & + 1.2000D+00 * RXRAT( 725 ) ! NISOPO2+NISOPO2=0.1200D+... & + 7.0000D-01 * RXRAT( 726 ) ! NISOPO2+MECO3=0.7000D+... & + 7.0000D-01 * RXRAT( 822 ) ! NISOPOOH+OH=0.7000D+... LOSS( NIT1 ) = RXRAT( 748 ) ! NIT1+NO3=0.6000D+... & + RXRAT( 762 ) ! NIT1+O3=0.3000D+00*PROPNN+... & + RXRAT( 763 ) ! NIT1+OH=0.3450D+... PROD( NISOPOOH ) = RXRAT( 722 ) ! NISOPO2+HO2=NISOPOOH LOSS( NISOPOOH ) = RXRAT( 821 ) ! NISOPOOH+OH=RNO3I+OH & + RXRAT( 822 ) ! NISOPOOH+OH=0.3000D+... PROD( HC5OO ) = RXRAT( 727 ) ! HC5+OH=HC5OO LOSS( HC5OO ) = RXRAT( 728 ) ! HC5OO+NO=NO2+0.2340D+... & + RXRAT( 729 ) ! HC5OO+HO2=R6OOH & + RXRAT( 730 ) ! HC5OO+MEO2=0.1170D+... & + RXRAT( 731 ) ! HC5OO+RO2C=0.1170D+... & + RXRAT( 732 ) ! HC5OO+MECO3=MEO2+CO2+... PROD( DHMOB ) = 2.9000D-01 * RXRAT( 728 ) ! HC5OO+NO=0.2900D+00*DHMOB+... & + 1.4500D-01 * RXRAT( 730 ) ! HC5OO+MEO2=0.1450D+... & + 1.4500D-01 * RXRAT( 731 ) ! HC5OO+RO2C=0.1450D+... & + 2.9000D-01 * RXRAT( 732 ) ! HC5OO+MECO3=0.2900D+... LOSS( DHMOB ) = RXRAT( 809 ) ! DHMOB+OH=0.1500D+01*CO+... PROD( ISOPNOOD ) = RXRAT( 734 ) ! ISOPND+OH=ISOPNOOD LOSS( ISOPNOOD ) = RXRAT( 735 ) ! ISOPNOOD+NO=0.3400D+... & + RXRAT( 736 ) ! ISOPNOOD+HO2=RNO3I & + RXRAT( 737 ) ! ISOPNOOD+MEO2=0.1700D+... & + RXRAT( 738 ) ! ISOPNOOD+RO2C=0.1700D+... & + RXRAT( 739 ) ! ISOPNOOD+MECO3=MEO2+CO2+... PROD( PROPNN ) = 1.5000D-01 * RXRAT( 735 ) ! ISOPNOOD+NO=0.1500D+... & + 7.5000D-02 * RXRAT( 737 ) ! ISOPNOOD+MEO2=0.7500D-... & + 7.5000D-02 * RXRAT( 738 ) ! ISOPNOOD+RO2C=0.7500D-... & + 1.5000D-01 * RXRAT( 739 ) ! ISOPNOOD+MECO3=0.1500D+... & + 2.9000D-01 * RXRAT( 740 ) ! ISOPND+O3=0.2900D+... & + RXRAT( 749 ) ! NIT1NO3OOA+NO3=PROPNN+NO2+... & + RXRAT( 750 ) ! NIT1NO3OOA+NO=PROPNN+NO2+... & + RXRAT( 753 ) ! NIT1NO3OOA+RO2C=PROPNN+CO+... & + RXRAT( 754 ) ! NIT1NO3OOA+MEO2=PROPNN+CO+... & + RXRAT( 755 ) ! NIT1NO3OOA+MECO3=PROPNN+... & + 3.0000D-01 * RXRAT( 762 ) ! NIT1+O3=0.3000D+00*PROPNN+... & + 9.1900D-01 * RXRAT( 764 ) ! NIT1OHOO+NO=0.9190D+... & + 6.8900D-01 * RXRAT( 766 ) ! NIT1OHOO+RO2C=0.6890D+... & + 6.8900D-01 * RXRAT( 767 ) ! NIT1OHOO+MEO2=0.6890D+... & + 9.8400D-01 * RXRAT( 768 ) ! NIT1OHOO+MECO3=0.9840D+... & + RXRAT( 802 ) ! ISOPNN+OH=PROPNN+NO2 LOSS( PROPNN ) = RXRAT( 801 ) ! PROPNN+OH=MGLY+NO2 & + RXRAT( 803 ) ! PROPNN=MECO3+HCHO+NO2 PROD( MVKN ) = 7.0000D-02 * RXRAT( 735 ) ! ISOPNOOD+NO=0.7000D-... & + 3.5000D-02 * RXRAT( 737 ) ! ISOPNOOD+MEO2=0.3500D-... & + 3.5000D-02 * RXRAT( 738 ) ! ISOPNOOD+RO2C=0.3500D-... & + 7.0000D-02 * RXRAT( 739 ) ! ISOPNOOD+MECO3=0.7000D-... & + 1.4000D-01 * RXRAT( 742 ) ! ISOPNOOB+NO=0.1400D+... & + 7.0000D-02 * RXRAT( 744 ) ! ISOPNOOB+MEO2=0.7000D-... & + 7.0000D-02 * RXRAT( 745 ) ! ISOPNOOB+RO2C=0.7000D-... & + 1.4000D-01 * RXRAT( 746 ) ! ISOPNOOB+MECO3=0.1400D+... & + 1.2000D-01 * RXRAT( 747 ) ! ISOPNB+O3=0.1200D+00*MVKN+... & + 1.1000D-01 * RXRAT( 775 ) ! MVKOO+NO=0.1100D+00*MVKN+... LOSS( MVKN ) = RXRAT( 805 ) ! MVKN+OH=0.6500D+00*HCOOH+... & + RXRAT( 806 ) ! MVKN=MECO3+NO2+HOCCHO PROD( ETHLN ) = 1.3000D-01 * RXRAT( 735 ) ! ISOPNOOD+NO=0.1300D+... & + 6.5000D-02 * RXRAT( 737 ) ! ISOPNOOD+MEO2=0.6500D-... & + 6.5000D-02 * RXRAT( 738 ) ! ISOPNOOD+RO2C=0.6500D-... & + 1.3000D-01 * RXRAT( 739 ) ! ISOPNOOD+MECO3=0.1300D+... & + 3.6000D-01 * RXRAT( 740 ) ! ISOPND+O3=0.3600D+00*ETHLN+... LOSS( ETHLN ) = RXRAT( 799 ) ! ETHLN+OH=HCHO+CO2+NO2 & + RXRAT( 800 ) ! ETHLN=NO2+HCHO+HO2+CO PROD( RNO3I ) = RXRAT( 736 ) ! ISOPNOOD+HO2=RNO3I & + 5.0000D-01 * RXRAT( 737 ) ! ISOPNOOD+MEO2=0.5000D+... & + 5.0000D-01 * RXRAT( 738 ) ! ISOPNOOD+RO2C=0.5000D+... & + RXRAT( 743 ) ! ISOPNOOB+HO2=RNO3I & + 5.0000D-01 * RXRAT( 744 ) ! ISOPNOOB+MEO2=0.5000D+... & + 5.0000D-01 * RXRAT( 745 ) ! ISOPNOOB+RO2C=0.5000D+... & + 2.8000D-01 * RXRAT( 747 ) ! ISOPNB+O3=0.2800D+00*RNO3I+... & + 6.0000D-02 * RXRAT( 757 ) ! NIT1NO3OOB+NO=0.6000D-... & + RXRAT( 758 ) ! NIT1NO3OOB+HO2=RNO3I & + 3.0000D-01 * RXRAT( 759 ) ! NIT1NO3OOB+RO2C=0.3000D+... & + 3.0000D-01 * RXRAT( 760 ) ! NIT1NO3OOB+MEO2=0.3000D+... & + 8.1000D-02 * RXRAT( 764 ) ! NIT1OHOO+NO=0.8100D-... & + 3.1100D-01 * RXRAT( 766 ) ! NIT1OHOO+RO2C=0.3110D+... & + 3.1100D-01 * RXRAT( 767 ) ! NIT1OHOO+MEO2=0.3110D+... & + 1.6000D-02 * RXRAT( 768 ) ! NIT1OHOO+MECO3=0.1600D-... & + RXRAT( 821 ) ! NISOPOOH+OH=RNO3I+OH LOSS( RNO3I ) = RXRAT( 820 ) ! RNO3I+OH=NO2+HO2+PRD2 PROD( ISOPNOOB ) = RXRAT( 741 ) ! ISOPNB+OH=ISOPNOOB LOSS( ISOPNOOB ) = RXRAT( 742 ) ! ISOPNOOB+NO=0.6000D+... & + RXRAT( 743 ) ! ISOPNOOB+HO2=RNO3I & + RXRAT( 744 ) ! ISOPNOOB+MEO2=0.3000D+... & + RXRAT( 745 ) ! ISOPNOOB+RO2C=0.3000D+... & + RXRAT( 746 ) ! ISOPNOOB+MECO3=MEO2+CO2+... PROD( MACRN ) = 2.6000D-01 * RXRAT( 742 ) ! ISOPNOOB+NO=0.2600D+... & + 1.3000D-01 * RXRAT( 744 ) ! ISOPNOOB+MEO2=0.1300D+... & + 1.3000D-01 * RXRAT( 745 ) ! ISOPNOOB+RO2C=0.1300D+... & + 2.6000D-01 * RXRAT( 746 ) ! ISOPNOOB+MECO3=0.2600D+... & + 3.2000D-01 * RXRAT( 747 ) ! ISOPNB+O3=0.3200D+00*MACRN+... & + 1.5000D-01 * RXRAT( 780 ) ! MACROO+NO=0.1500D+00*MACRN+... LOSS( MACRN ) = RXRAT( 807 ) ! MACRN+OH=0.8000D-01*CCOOH+... & + RXRAT( 808 ) ! MACRN=HACET+NO2+CO+HO2 PROD( NIT1NO3OOA ) = 6.0000D-01 * RXRAT( 748 ) ! NIT1+NO3=0.6000D+... & + 3.4500D-01 * RXRAT( 763 ) ! NIT1+OH=0.3450D+... LOSS( NIT1NO3OOA ) = RXRAT( 749 ) ! NIT1NO3OOA+NO3=NO2+PROPNN+... & + RXRAT( 750 ) ! NIT1NO3OOA+NO=NO2+PROPNN+... & + RXRAT( 751 ) ! NIT1NO3OOA+NO2=MAPAN & + RXRAT( 752 ) ! NIT1NO3OOA+HO2=0.7500D+... & + RXRAT( 753 ) ! NIT1NO3OOA+RO2C=PROPNN+CO+... & + RXRAT( 754 ) ! NIT1NO3OOA+MEO2=PROPNN+CO+... & + RXRAT( 755 ) ! NIT1NO3OOA+MECO3=MEO2+... PROD( NIT1NO3OOB ) = 4.0000D-01 * RXRAT( 748 ) ! NIT1+NO3=0.4000D+... LOSS( NIT1NO3OOB ) = RXRAT( 756 ) ! NIT1NO3OOB+NO3=ISOPNN+GLY+NO2 & + RXRAT( 757 ) ! NIT1NO3OOB+NO=0.9400D+... & + RXRAT( 758 ) ! NIT1NO3OOB+HO2=RNO3I & + RXRAT( 759 ) ! NIT1NO3OOB+RO2C=0.7000D+... & + RXRAT( 760 ) ! NIT1NO3OOB+MEO2=0.7000D+... & + RXRAT( 761 ) ! NIT1NO3OOB+MECO3=MEO2+CO2+... PROD( ISOPNN ) = RXRAT( 756 ) ! NIT1NO3OOB+NO3=ISOPNN+GLY+NO2 & + 9.4000D-01 * RXRAT( 757 ) ! NIT1NO3OOB+NO=0.9400D+... & + 7.0000D-01 * RXRAT( 759 ) ! NIT1NO3OOB+RO2C=0.7000D+... & + 7.0000D-01 * RXRAT( 760 ) ! NIT1NO3OOB+MEO2=0.7000D+... & + RXRAT( 761 ) ! NIT1NO3OOB+MECO3=ISOPNN+... LOSS( ISOPNN ) = RXRAT( 802 ) ! ISOPNN+OH=PROPNN+NO2 & + RXRAT( 804 ) ! ISOPNN=MECO3+HCHO+0.2000D+... PROD( NIT1OHOO ) = 6.5500D-01 * RXRAT( 763 ) ! NIT1+OH=0.6550D+... LOSS( NIT1OHOO ) = RXRAT( 764 ) ! NIT1OHOO+NO=0.9190D+... & + RXRAT( 765 ) ! NIT1OHOO+HO2=R6OOH & + RXRAT( 766 ) ! NIT1OHOO+RO2C=0.6890D+... & + RXRAT( 767 ) ! NIT1OHOO+MEO2=0.6890D+... & + RXRAT( 768 ) ! NIT1OHOO+MECO3=MEO2+CO2+... PROD( MVKOO ) = RXRAT( 774 ) ! MVK+OH=MVKOO LOSS( MVKOO ) = RXRAT( 775 ) ! MVKOO+NO=0.6250D+00*HOCCHO+... & + RXRAT( 776 ) ! MVKOO+HO2=ROOH & + RXRAT( 777 ) ! MVKOO+MEO2=0.3500D+... & + RXRAT( 778 ) ! MVKOO+RO2C=0.3500D+... & + RXRAT( 779 ) ! MVKOO+MECO3=MEO2+CO2+... PROD( MACROO ) = 5.3000D-01 * RXRAT( 823 ) ! MACR+OH=0.5300D+00*MACROO+... LOSS( MACROO ) = RXRAT( 780 ) ! MACROO+NO=0.8500D+00*NO2+... & + RXRAT( 781 ) ! MACROO+HO2=ROOH & + RXRAT( 782 ) ! MACROO+MEO2=HO2+0.4240D+... & + RXRAT( 783 ) ! MACROO+RO2C=0.5000D+00*HO2+... & + RXRAT( 784 ) ! MACROO+MECO3=MEO2+CO2+HO2+... & + RXRAT( 838 ) ! MACROO=HACET+CO+OH PROD( PYRUACD ) = 3.5000D-01 * RXRAT( 805 ) ! MVKN+OH=0.3500D+00*PYRUACD+... LOSS( PYRUACD ) = RXRAT( 810 ) ! PYRUACD=CCHO+CO2 PROD( IEPOX ) = RXRAT( 811 ) ! ISOPOOH+OH=IEPOX+OH LOSS( IEPOX ) = RXRAT( 813 ) ! IEPOX+OH=IEPOXOO & + RXRAT( 893 ) ! IEPOX=IEPOXP PROD( IEPOXOO ) = RXRAT( 813 ) ! IEPOX+OH=IEPOXOO LOSS( IEPOXOO ) = RXRAT( 814 ) ! IEPOXOO+HO2=0.7250D+... & + RXRAT( 815 ) ! IEPOXOO+NO=0.7250D+... & + RXRAT( 816 ) ! IEPOXOO+MEO2=0.3630D+... & + RXRAT( 817 ) ! IEPOXOO+RO2C=0.3630D+... & + RXRAT( 818 ) ! IEPOXOO+MECO3=0.7250D+... PROD( IMPAA ) = 7.5000D-01 * RXRAT( 828 ) ! IMACO3+HO2=0.7500D+... LOSS( IMPAA ) = RXRAT( 880 ) ! IMPAA+OH=0.8300D+00*IMACO3+... PROD( IMAPAN ) = RXRAT( 839 ) ! IMACO3+NO2=IMAPAN LOSS( IMAPAN ) = RXRAT( 840 ) ! IMAPAN=IMACO3+NO2 & + RXRAT( 841 ) ! IMAPAN=0.6000D+00*IMACO3+... & + RXRAT( 877 ) ! IMAPAN+OH=0.3000D-01*HACET+... PROD( IMAE ) = 2.1000D-01 * RXRAT( 877 ) ! IMAPAN+OH=0.2100D+00*IMAE+... LOSS( IMAE ) = RXRAT( 878 ) ! IMAE+OH= & + RXRAT( 894 ) ! IMAE=IMAEP PROD( IHMML ) = 5.7000D-01 * RXRAT( 877 ) ! IMAPAN+OH=0.5700D+00*IHMML+... & + 1.7000D-01 * RXRAT( 880 ) ! IMPAA+OH=0.1700D+00*IHMML+... LOSS( IHMML ) = RXRAT( 879 ) ! IHMML+OH= & + RXRAT( 895 ) ! IHMML=IHMMLP PROD( H2NO3PIJ ) = RXRAT( 885 ) ! N2O5=H2NO3PIJ+HNO3 LOSS( H2NO3PIJ ) = RXRAT( 887 ) ! H2NO3PIJ=HNO3 & + RXRAT( 889 ) ! H2NO3PIJ+ACLI=CLNO2 & + RXRAT( 890 ) ! H2NO3PIJ+ACLJ=CLNO2 PROD( H2NO3PK ) = RXRAT( 886 ) ! N2O5=H2NO3PK+HNO3 LOSS( H2NO3PK ) = RXRAT( 888 ) ! H2NO3PK=HNO3 & + RXRAT( 891 ) ! H2NO3PK+ACLK=CLNO2 PROD( ACLI ) = 0.0D0 LOSS( ACLI ) = RXRAT( 889 ) ! ACLI+H2NO3PIJ=CLNO2 PROD( ACLJ ) = 0.0D0 LOSS( ACLJ ) = RXRAT( 890 ) ! ACLJ+H2NO3PIJ=CLNO2 PROD( ACLK ) = 0.0D0 LOSS( ACLK ) = RXRAT( 891 ) ! ACLK+H2NO3PK=CLNO2 PROD( IEPOXP ) = RXRAT( 893 ) ! IEPOX=IEPOXP LOSS( IEPOXP ) = RXRAT( 896 ) ! IEPOXP=AIETETJ & + RXRAT( 897 ) ! IEPOXP+ASO4J=AIEOSJ & + RXRAT( 898 ) ! IEPOXP+AIETETJ=ADIMJ & + RXRAT( 899 ) ! IEPOXP+AIEOSJ=ADIMJ PROD( IMAEP ) = RXRAT( 894 ) ! IMAE=IMAEP LOSS( IMAEP ) = RXRAT( 900 ) ! IMAEP=AIMGAJ & + RXRAT( 901 ) ! IMAEP+ASO4J=AIMOSJ PROD( IHMMLP ) = RXRAT( 895 ) ! IHMML=IHMMLP LOSS( IHMMLP ) = RXRAT( 902 ) ! IHMMLP=AIMGAJ & + RXRAT( 903 ) ! IHMMLP+ASO4J=AIMOSJ PROD( AIETETJ ) = RXRAT( 896 ) ! IEPOXP=AIETETJ LOSS( AIETETJ ) = RXRAT( 898 ) ! AIETETJ+IEPOXP=ADIMJ PROD( ASO4J ) = 0.0D0 LOSS( ASO4J ) = RXRAT( 897 ) ! ASO4J+IEPOXP=AIEOSJ & + RXRAT( 901 ) ! ASO4J+IMAEP=AIMOSJ & + RXRAT( 903 ) ! ASO4J+IHMMLP=AIMOSJ PROD( AIEOSJ ) = RXRAT( 897 ) ! IEPOXP+ASO4J=AIEOSJ LOSS( AIEOSJ ) = RXRAT( 899 ) ! AIEOSJ+IEPOXP=ADIMJ PROD( ADIMJ ) = RXRAT( 898 ) ! IEPOXP+AIETETJ=ADIMJ & + RXRAT( 899 ) ! IEPOXP+AIEOSJ=ADIMJ LOSS( ADIMJ ) = 0.0D0 PROD( AIMGAJ ) = RXRAT( 900 ) ! IMAEP=AIMGAJ & + RXRAT( 902 ) ! IHMMLP=AIMGAJ LOSS( AIMGAJ ) = 0.0D0 PROD( AIMOSJ ) = RXRAT( 901 ) ! IMAEP+ASO4J=AIMOSJ & + RXRAT( 903 ) ! IHMMLP+ASO4J=AIMOSJ LOSS( AIMOSJ ) = 0.0D0 PROD( AISO1J ) = 0.0D0 LOSS( AISO1J ) = RXRAT( 905 ) ! AISO1J=0.5000D+00*AOLGBJ PROD( AOLGBJ ) = 5.0000D-01 * RXRAT( 905 ) ! AISO1J=0.5000D+00*AOLGBJ & + 5.0000D-01 * RXRAT( 906 ) ! AISO2J=0.5000D+00*AOLGBJ & + 1.5000D+00 * RXRAT( 907 ) ! ASQTJ=0.1500D+01*AOLGBJ LOSS( AOLGBJ ) = 0.0D0 PROD( AISO2J ) = 0.0D0 LOSS( AISO2J ) = RXRAT( 906 ) ! AISO2J=0.5000D+00*AOLGBJ PROD( ASQTJ ) = 0.0D0 LOSS( ASQTJ ) = RXRAT( 907 ) ! ASQTJ=0.1500D+01*AOLGBJ PROD( AAVB2J ) = 0.0D0 LOSS( AAVB2J ) = RXRAT( 908 ) ! AAVB2J=0.9070D+00*AOLGAJ PROD( AOLGAJ ) = 9.0700D-01 * RXRAT( 908 ) ! AAVB2J=0.9070D+00*AOLGAJ & + 9.2500D-01 * RXRAT( 909 ) ! AAVB3J=0.9250D+00*AOLGAJ & + 9.4300D-01 * RXRAT( 910 ) ! AAVB4J=0.9430D+00*AOLGAJ LOSS( AOLGAJ ) = 0.0D0 PROD( AAVB3J ) = 0.0D0 LOSS( AAVB3J ) = RXRAT( 909 ) ! AAVB3J=0.9250D+00*AOLGAJ PROD( AAVB4J ) = 0.0D0 LOSS( AAVB4J ) = RXRAT( 910 ) ! AAVB4J=0.9430D+00*AOLGAJ PROD( APOCI ) = 0.0D0 LOSS( APOCI ) = 0.0D0 PROD( APNCOMI ) = 1.2500D+00 * RXRAT( 911 ) ! APOCI+OH=0.1250D+... LOSS( APNCOMI ) = RXRAT( 912 ) ! APNCOMI+OH=OH PROD( APOCJ ) = 0.0D0 LOSS( APOCJ ) = 0.0D0 PROD( APNCOMJ ) = 1.2500D+00 * RXRAT( 913 ) ! APOCJ+OH=0.1250D+... LOSS( APNCOMJ ) = RXRAT( 914 ) ! APNCOMJ+OH=OH PROD( PCVOC ) = 0.0D0 LOSS( PCVOC ) = RXRAT( 915 ) ! PCVOC+OH=OH+PCSOARXN PROD( PCSOARXN ) = RXRAT( 915 ) ! PCVOC+OH=PCSOARXN+OH LOSS( PCSOARXN ) = 0.0D0 PROD( VLVPO1 ) = 3.0030D-01 * RXRAT( 917 ) ! VSVPO1+OH=0.3003D+... & + 3.8560D-01 * RXRAT( 918 ) ! VSVPO2+OH=0.3856D+... & + 2.1810D-01 * RXRAT( 919 ) ! VSVPO3+OH=0.2181D+... & + 2.4120D-01 * RXRAT( 920 ) ! VIVPO1+OH=0.2412D+... LOSS( VLVPO1 ) = 5.1430D-01 * RXRAT( 916 ) ! VLVPO1+OH=0.4857D+... PROD( VSVPO1 ) = 6.2000D-03 * RXRAT( 916 ) ! VLVPO1+OH=0.6200D-... & + 9.5000D-02 * RXRAT( 918 ) ! VSVPO2+OH=0.9500D-... & + 3.0630D-01 * RXRAT( 919 ) ! VSVPO3+OH=0.3063D+... & + 2.0890D-01 * RXRAT( 920 ) ! VIVPO1+OH=0.2089D+... LOSS( VSVPO1 ) = 7.1380D-01 * RXRAT( 917 ) ! VSVPO1+OH=0.2862D+... PROD( VSVPO2 ) = 2.5000D-03 * RXRAT( 916 ) ! VLVPO1+OH=0.2500D-... & + 4.1000D-03 * RXRAT( 917 ) ! VSVPO1+OH=0.4100D-... & + 1.5300D-02 * RXRAT( 919 ) ! VSVPO3+OH=0.1530D-... & + 3.0000D-01 * RXRAT( 920 ) ! VIVPO1+OH=0.3000D+... LOSS( VSVPO2 ) = 8.6270D-01 * RXRAT( 918 ) ! VSVPO2+OH=0.1373D+... PROD( VSVPO3 ) = 2.6000D-03 * RXRAT( 916 ) ! VLVPO1+OH=0.2600D-... & + 3.5000D-03 * RXRAT( 917 ) ! VSVPO1+OH=0.3500D-... & + 5.0000D-04 * RXRAT( 918 ) ! VSVPO2+OH=0.5000D-... LOSS( VSVPO3 ) = 8.9570D-01 * RXRAT( 919 ) ! VSVPO3+OH=0.1043D+... PROD( VIVPO1 ) = 2.3000D-03 * RXRAT( 916 ) ! VLVPO1+OH=0.2300D-... LOSS( VIVPO1 ) = RXRAT( 920 ) ! VIVPO1+OH=OH+0.2412D+... PROD( VLVOO1 ) = 2.9440D-01 * RXRAT( 916 ) ! VLVPO1+OH=0.2944D+... & + 2.2390D-01 * RXRAT( 917 ) ! VSVPO1+OH=0.2239D+... & + 2.0510D-01 * RXRAT( 918 ) ! VSVPO2+OH=0.2051D+... & + 1.8930D-01 * RXRAT( 919 ) ! VSVPO3+OH=0.1893D+... & + 2.0280D-01 * RXRAT( 920 ) ! VIVPO1+OH=0.2028D+... & + 2.8580D-01 * RXRAT( 922 ) ! VLVOO2+OH=0.2858D+... & + 3.3030D-01 * RXRAT( 923 ) ! VSVOO1+OH=0.3303D+... & + 3.4440D-01 * RXRAT( 924 ) ! VSVOO2+OH=0.3444D+... & + 3.8860D-01 * RXRAT( 925 ) ! VSVOO3+OH=0.3886D+... LOSS( VLVOO1 ) = 3.3360D-01 * RXRAT( 921 ) ! VLVOO1+OH=0.6664D+... PROD( VLVOO2 ) = 2.0210D-01 * RXRAT( 916 ) ! VLVPO1+OH=0.2021D+... & + 1.8200D-01 * RXRAT( 917 ) ! VSVPO1+OH=0.1820D+... & + 1.7640D-01 * RXRAT( 918 ) ! VSVPO2+OH=0.1764D+... & + 1.6680D-01 * RXRAT( 919 ) ! VSVPO3+OH=0.1668D+... & + 4.7100D-02 * RXRAT( 920 ) ! VIVPO1+OH=0.4710D-... & + 1.4300D-02 * RXRAT( 921 ) ! VLVOO1+OH=0.1430D-... & + 2.2720D-01 * RXRAT( 923 ) ! VSVOO1+OH=0.2272D+... & + 2.7490D-01 * RXRAT( 924 ) ! VSVOO2+OH=0.2749D+... & + 2.4210D-01 * RXRAT( 925 ) ! VSVOO3+OH=0.2421D+... LOSS( VLVOO2 ) = 6.0690D-01 * RXRAT( 922 ) ! VLVOO2+OH=0.3931D+... PROD( VSVOO2 ) = 1.9000D-03 * RXRAT( 916 ) ! VLVPO1+OH=0.1900D-... & + 1.2390D-01 * RXRAT( 921 ) ! VLVOO1+OH=0.1239D+... & + 1.0270D-01 * RXRAT( 922 ) ! VLVOO2+OH=0.1027D+... & + 7.0200D-02 * RXRAT( 923 ) ! VSVOO1+OH=0.7020D-... & + 3.8500D-02 * RXRAT( 925 ) ! VSVOO3+OH=0.3850D-... LOSS( VSVOO2 ) = 7.4230D-01 * RXRAT( 924 ) ! VSVOO2+OH=0.2577D+... PROD( VSVOO3 ) = 2.3000D-03 * RXRAT( 916 ) ! VLVPO1+OH=0.2300D-... & + 1.8310D-01 * RXRAT( 921 ) ! VLVOO1+OH=0.1831D+... & + 2.0450D-01 * RXRAT( 922 ) ! VLVOO2+OH=0.2045D+... & + 1.1160D-01 * RXRAT( 923 ) ! VSVOO1+OH=0.1116D+... & + 7.3900D-02 * RXRAT( 924 ) ! VSVOO2+OH=0.7390D-... LOSS( VSVOO3 ) = 7.3330D-01 * RXRAT( 925 ) ! VSVOO3+OH=0.2667D+... PROD( VSVOO1 ) = 1.2300D-02 * RXRAT( 921 ) ! VLVOO1+OH=0.1230D-... & + 1.3900D-02 * RXRAT( 922 ) ! VLVOO2+OH=0.1390D-... & + 4.9100D-02 * RXRAT( 924 ) ! VSVOO2+OH=0.4910D-... & + 6.4000D-02 * RXRAT( 925 ) ! VSVOO3+OH=0.6400D-... LOSS( VSVOO1 ) = 7.3930D-01 * RXRAT( 923 ) ! VSVOO1+OH=0.2607D+... PROD( AMTNO3J ) = 0.0D0 LOSS( AMTNO3J ) = RXRAT( 926 ) ! AMTNO3J=HNO3+AMTHYDJ PROD( AMTHYDJ ) = RXRAT( 926 ) ! AMTNO3J=AMTHYDJ+HNO3 & + 5.0000D-01 * RXRAT( 927 ) ! AISOPNNJ=0.5000D+... LOSS( AMTHYDJ ) = 0.0D0 PROD( AISOPNNJ ) = 0.0D0 LOSS( AISOPNNJ ) = RXRAT( 927 ) ! AISOPNNJ=0.2000D+01*HNO3+... PROD( AGLYJ ) = RXRAT( 928 ) ! GLY=AGLYJ & + RXRAT( 929 ) ! MGLY=AGLYJ LOSS( AGLYJ ) = 0.0D0 RETURN END ================================================ FILE: CCTM/src/gas/ebi_saprc07tic_ae7i_aq/hrrates.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE HRRATES C*********************************************************************** C C FUNCTION: To calculate rates of reactions C C PRECONDITIONS: For the SAPRC07TIC_AE7I_AQ mechanism C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by EBI solver program, Jun 8, 2022 C C*********************************************************************** USE HRDATA IMPLICIT NONE C.....INCLUDES: NONE C.....ARGUMENTS: NONE C.....PARAMETERS: NONE C.....EXTERNAL FUNCTIONS: NONE C.....SAVED VARIABLES: NONE ! CHARACTER( 16 ), SAVE :: PNAME = 'HRRATES' ! Program name C.....LOCAL VARIABLES: None C*********************************************************************** C..NOTE: RXRAT commented out are not referenced by any routine ! RXRAT( 1 ) = RKI( 1 ) * YC( NO2 ) ! RXRAT( 2 ) = RKI( 2 ) * YC( O3P ) ! RXRAT( 3 ) = RKI( 3 ) * YC( O3P ) * YC( O3 ) ! RXRAT( 4 ) = RKI( 4 ) * YC( O3P ) * YC( NO ) ! RXRAT( 5 ) = RKI( 5 ) * YC( O3P ) * YC( NO2 ) RXRAT( 6 ) = RKI( 6 ) * YC( O3P ) * YC( NO2 ) ! RXRAT( 7 ) = RKI( 7 ) * YC( O3 ) * YC( NO ) RXRAT( 8 ) = RKI( 8 ) * YC( O3 ) * YC( NO2 ) RXRAT( 9 ) = RKI( 9 ) * YC( NO ) * YC( NO3 ) ! RXRAT( 10 ) = RKI( 10 ) * YC( NO ) * YC( NO ) ! RXRAT( 11 ) = RKI( 11 ) * YC( NO2 ) * YC( NO3 ) RXRAT( 12 ) = RKI( 12 ) * YC( N2O5 ) RXRAT( 13 ) = RKI( 13 ) * YC( N2O5 ) RXRAT( 14 ) = RKI( 14 ) * YC( N2O5 ) RXRAT( 15 ) = RKI( 15 ) * YC( NO2 ) * YC( NO3 ) RXRAT( 16 ) = RKI( 16 ) * YC( NO3 ) RXRAT( 17 ) = RKI( 17 ) * YC( NO3 ) RXRAT( 18 ) = RKI( 18 ) * YC( O3 ) RXRAT( 19 ) = RKI( 19 ) * YC( O3 ) ! RXRAT( 20 ) = RKI( 20 ) * YC( O1D ) ! RXRAT( 21 ) = RKI( 21 ) * YC( O1D ) ! RXRAT( 22 ) = RKI( 22 ) * YC( OH ) * YC( NO ) RXRAT( 23 ) = RKI( 23 ) * YC( HONO ) RXRAT( 24 ) = RKI( 24 ) * YC( OH ) * YC( HONO ) RXRAT( 25 ) = RKI( 25 ) * YC( OH ) * YC( NO2 ) RXRAT( 26 ) = RKI( 26 ) * YC( OH ) * YC( NO3 ) RXRAT( 27 ) = RKI( 27 ) * YC( OH ) * YC( HNO3 ) RXRAT( 28 ) = RKI( 28 ) * YC( HNO3 ) RXRAT( 29 ) = RKI( 29 ) * YC( OH ) * YC( CO ) ! RXRAT( 30 ) = RKI( 30 ) * YC( OH ) * YC( O3 ) ! RXRAT( 31 ) = RKI( 31 ) * YC( HO2 ) * YC( NO ) ! RXRAT( 32 ) = RKI( 32 ) * YC( HO2 ) * YC( NO2 ) RXRAT( 33 ) = RKI( 33 ) * YC( HNO4 ) RXRAT( 34 ) = RKI( 34 ) * YC( HNO4 ) RXRAT( 35 ) = RKI( 35 ) * YC( HNO4 ) * YC( OH ) ! RXRAT( 36 ) = RKI( 36 ) * YC( HO2 ) * YC( O3 ) RXRAT( 37 ) = RKI( 37 ) * YC( HO2 ) * YC( HO2 ) RXRAT( 38 ) = RKI( 38 ) * YC( HO2 ) * YC( HO2 ) RXRAT( 39 ) = RKI( 39 ) * YC( NO3 ) * YC( HO2 ) RXRAT( 40 ) = RKI( 40 ) * YC( NO3 ) * YC( NO3 ) RXRAT( 41 ) = RKI( 41 ) * YC( HO2H ) RXRAT( 42 ) = RKI( 42 ) * YC( HO2H ) * YC( OH ) ! RXRAT( 43 ) = RKI( 43 ) * YC( OH ) * YC( HO2 ) RXRAT( 44 ) = RKI( 44 ) * YC( OH ) * YC( SO2 ) ! RXRAT( 45 ) = RKI( 45 ) * YC( OH ) RXRAT( 46 ) = RKI( 46 ) * YC( MEO2 ) * YC( NO ) RXRAT( 47 ) = RKI( 47 ) * YC( MEO2 ) * YC( HO2 ) RXRAT( 48 ) = RKI( 48 ) * YC( MEO2 ) * YC( HO2 ) RXRAT( 49 ) = RKI( 49 ) * YC( MEO2 ) * YC( NO3 ) RXRAT( 50 ) = RKI( 50 ) * YC( MEO2 ) * YC( MEO2 ) RXRAT( 51 ) = RKI( 51 ) * YC( MEO2 ) * YC( MEO2 ) RXRAT( 52 ) = RKI( 52 ) * YC( RO2C ) * YC( NO ) RXRAT( 53 ) = RKI( 53 ) * YC( RO2C ) * YC( HO2 ) RXRAT( 54 ) = RKI( 54 ) * YC( RO2C ) * YC( NO3 ) RXRAT( 55 ) = RKI( 55 ) * YC( RO2C ) * YC( MEO2 ) RXRAT( 56 ) = RKI( 56 ) * YC( RO2C ) * YC( RO2C ) RXRAT( 57 ) = RKI( 57 ) * YC( RO2XC ) * YC( NO ) RXRAT( 58 ) = RKI( 58 ) * YC( RO2XC ) * YC( HO2 ) RXRAT( 59 ) = RKI( 59 ) * YC( RO2XC ) * YC( NO3 ) RXRAT( 60 ) = RKI( 60 ) * YC( RO2XC ) * YC( MEO2 ) RXRAT( 61 ) = RKI( 61 ) * YC( RO2XC ) * YC( RO2C ) RXRAT( 62 ) = RKI( 62 ) * YC( RO2XC ) * YC( RO2XC ) ! RXRAT( 63 ) = RKI( 63 ) * YC( MECO3 ) * YC( NO2 ) RXRAT( 64 ) = RKI( 64 ) * YC( PAN ) RXRAT( 65 ) = RKI( 65 ) * YC( PAN ) RXRAT( 66 ) = RKI( 66 ) * YC( MECO3 ) * YC( NO ) RXRAT( 67 ) = RKI( 67 ) * YC( MECO3 ) * YC( HO2 ) RXRAT( 68 ) = RKI( 68 ) * YC( MECO3 ) * YC( NO3 ) RXRAT( 69 ) = RKI( 69 ) * YC( MECO3 ) * YC( MEO2 ) RXRAT( 70 ) = RKI( 70 ) * YC( MECO3 ) * YC( RO2C ) RXRAT( 71 ) = RKI( 71 ) * YC( MECO3 ) * YC( RO2XC ) RXRAT( 72 ) = RKI( 72 ) * YC( MECO3 ) * YC( MECO3 ) RXRAT( 73 ) = RKI( 73 ) * YC( RCO3 ) * YC( NO2 ) RXRAT( 74 ) = RKI( 74 ) * YC( PAN2 ) RXRAT( 75 ) = RKI( 75 ) * YC( PAN2 ) RXRAT( 76 ) = RKI( 76 ) * YC( RCO3 ) * YC( NO ) RXRAT( 77 ) = RKI( 77 ) * YC( RCO3 ) * YC( HO2 ) RXRAT( 78 ) = RKI( 78 ) * YC( RCO3 ) * YC( NO3 ) RXRAT( 79 ) = RKI( 79 ) * YC( RCO3 ) * YC( MEO2 ) RXRAT( 80 ) = RKI( 80 ) * YC( RCO3 ) * YC( RO2C ) RXRAT( 81 ) = RKI( 81 ) * YC( RCO3 ) * YC( RO2XC ) RXRAT( 82 ) = RKI( 82 ) * YC( RCO3 ) * YC( MECO3 ) RXRAT( 83 ) = RKI( 83 ) * YC( RCO3 ) * YC( RCO3 ) RXRAT( 84 ) = RKI( 84 ) * YC( BZCO3 ) * YC( NO2 ) RXRAT( 85 ) = RKI( 85 ) * YC( PBZN ) RXRAT( 86 ) = RKI( 86 ) * YC( PBZN ) RXRAT( 87 ) = RKI( 87 ) * YC( BZCO3 ) * YC( NO ) RXRAT( 88 ) = RKI( 88 ) * YC( BZCO3 ) * YC( HO2 ) RXRAT( 89 ) = RKI( 89 ) * YC( BZCO3 ) * YC( NO3 ) RXRAT( 90 ) = RKI( 90 ) * YC( BZCO3 ) * YC( MEO2 ) RXRAT( 91 ) = RKI( 91 ) * YC( BZCO3 ) * YC( RO2C ) RXRAT( 92 ) = RKI( 92 ) * YC( BZCO3 ) * YC( RO2XC ) RXRAT( 93 ) = RKI( 93 ) * YC( BZCO3 ) * YC( MECO3 ) RXRAT( 94 ) = RKI( 94 ) * YC( BZCO3 ) * YC( RCO3 ) RXRAT( 95 ) = RKI( 95 ) * YC( BZCO3 ) * YC( BZCO3 ) RXRAT( 96 ) = RKI( 96 ) * YC( MACO3 ) * YC( NO2 ) RXRAT( 97 ) = RKI( 97 ) * YC( MAPAN ) RXRAT( 98 ) = RKI( 98 ) * YC( MAPAN ) RXRAT( 99 ) = RKI( 99 ) * YC( TBUO ) * YC( NO2 ) RXRAT( 100 ) = RKI( 100 ) * YC( TBUO ) RXRAT( 101 ) = RKI( 101 ) * YC( BZO ) * YC( NO2 ) RXRAT( 102 ) = RKI( 102 ) * YC( BZO ) * YC( HO2 ) RXRAT( 103 ) = RKI( 103 ) * YC( BZO ) RXRAT( 104 ) = RKI( 104 ) * YC( xHO2 ) * YC( NO ) RXRAT( 105 ) = RKI( 105 ) * YC( xHO2 ) * YC( HO2 ) RXRAT( 106 ) = RKI( 106 ) * YC( xHO2 ) * YC( NO3 ) RXRAT( 107 ) = RKI( 107 ) * YC( xHO2 ) * YC( MEO2 ) RXRAT( 108 ) = RKI( 108 ) * YC( xHO2 ) * YC( RO2C ) RXRAT( 109 ) = RKI( 109 ) * YC( xHO2 ) * YC( RO2XC ) RXRAT( 110 ) = RKI( 110 ) * YC( xHO2 ) * YC( MECO3 ) RXRAT( 111 ) = RKI( 111 ) * YC( xHO2 ) * YC( RCO3 ) RXRAT( 112 ) = RKI( 112 ) * YC( xHO2 ) * YC( BZCO3 ) RXRAT( 113 ) = RKI( 113 ) * YC( xHO2 ) * YC( MACO3 ) RXRAT( 114 ) = RKI( 114 ) * YC( xOH ) * YC( NO ) RXRAT( 115 ) = RKI( 115 ) * YC( xOH ) * YC( HO2 ) RXRAT( 116 ) = RKI( 116 ) * YC( xOH ) * YC( NO3 ) RXRAT( 117 ) = RKI( 117 ) * YC( xOH ) * YC( MEO2 ) RXRAT( 118 ) = RKI( 118 ) * YC( xOH ) * YC( RO2C ) RXRAT( 119 ) = RKI( 119 ) * YC( xOH ) * YC( RO2XC ) RXRAT( 120 ) = RKI( 120 ) * YC( xOH ) * YC( MECO3 ) RXRAT( 121 ) = RKI( 121 ) * YC( xOH ) * YC( RCO3 ) RXRAT( 122 ) = RKI( 122 ) * YC( xOH ) * YC( BZCO3 ) RXRAT( 123 ) = RKI( 123 ) * YC( xOH ) * YC( MACO3 ) RXRAT( 124 ) = RKI( 124 ) * YC( xNO2 ) * YC( NO ) RXRAT( 125 ) = RKI( 125 ) * YC( xNO2 ) * YC( HO2 ) RXRAT( 126 ) = RKI( 126 ) * YC( xNO2 ) * YC( NO3 ) RXRAT( 127 ) = RKI( 127 ) * YC( xNO2 ) * YC( MEO2 ) RXRAT( 128 ) = RKI( 128 ) * YC( xNO2 ) * YC( RO2C ) RXRAT( 129 ) = RKI( 129 ) * YC( xNO2 ) * YC( RO2XC ) RXRAT( 130 ) = RKI( 130 ) * YC( xNO2 ) * YC( MECO3 ) RXRAT( 131 ) = RKI( 131 ) * YC( xNO2 ) * YC( RCO3 ) RXRAT( 132 ) = RKI( 132 ) * YC( xNO2 ) * YC( BZCO3 ) RXRAT( 133 ) = RKI( 133 ) * YC( xNO2 ) * YC( MACO3 ) RXRAT( 134 ) = RKI( 134 ) * YC( xMEO2 ) * YC( NO ) RXRAT( 135 ) = RKI( 135 ) * YC( xMEO2 ) * YC( HO2 ) RXRAT( 136 ) = RKI( 136 ) * YC( xMEO2 ) * YC( NO3 ) RXRAT( 137 ) = RKI( 137 ) * YC( xMEO2 ) * YC( MEO2 ) RXRAT( 138 ) = RKI( 138 ) * YC( xMEO2 ) * YC( RO2C ) RXRAT( 139 ) = RKI( 139 ) * YC( xMEO2 ) * YC( RO2XC ) RXRAT( 140 ) = RKI( 140 ) * YC( xMEO2 ) * YC( MECO3 ) RXRAT( 141 ) = RKI( 141 ) * YC( xMEO2 ) * YC( RCO3 ) RXRAT( 142 ) = RKI( 142 ) * YC( xMEO2 ) * YC( BZCO3 ) RXRAT( 143 ) = RKI( 143 ) * YC( xMEO2 ) * YC( MACO3 ) RXRAT( 144 ) = RKI( 144 ) * YC( xMECO3 ) * YC( NO ) RXRAT( 145 ) = RKI( 145 ) * YC( xMECO3 ) * YC( HO2 ) RXRAT( 146 ) = RKI( 146 ) * YC( xMECO3 ) * YC( NO3 ) RXRAT( 147 ) = RKI( 147 ) * YC( xMECO3 ) * YC( MEO2 ) RXRAT( 148 ) = RKI( 148 ) * YC( xMECO3 ) * YC( RO2C ) RXRAT( 149 ) = RKI( 149 ) * YC( xMECO3 ) * YC( RO2XC ) RXRAT( 150 ) = RKI( 150 ) * YC( xMECO3 ) * YC( MECO3 ) RXRAT( 151 ) = RKI( 151 ) * YC( xMECO3 ) * YC( RCO3 ) RXRAT( 152 ) = RKI( 152 ) * YC( xMECO3 ) * YC( BZCO3 ) RXRAT( 153 ) = RKI( 153 ) * YC( xMECO3 ) * YC( MACO3 ) RXRAT( 154 ) = RKI( 154 ) * YC( xRCO3 ) * YC( NO ) RXRAT( 155 ) = RKI( 155 ) * YC( xRCO3 ) * YC( HO2 ) RXRAT( 156 ) = RKI( 156 ) * YC( xRCO3 ) * YC( NO3 ) RXRAT( 157 ) = RKI( 157 ) * YC( xRCO3 ) * YC( MEO2 ) RXRAT( 158 ) = RKI( 158 ) * YC( xRCO3 ) * YC( RO2C ) RXRAT( 159 ) = RKI( 159 ) * YC( xRCO3 ) * YC( RO2XC ) RXRAT( 160 ) = RKI( 160 ) * YC( xRCO3 ) * YC( MECO3 ) RXRAT( 161 ) = RKI( 161 ) * YC( xRCO3 ) * YC( RCO3 ) RXRAT( 162 ) = RKI( 162 ) * YC( xRCO3 ) * YC( BZCO3 ) RXRAT( 163 ) = RKI( 163 ) * YC( xRCO3 ) * YC( MACO3 ) RXRAT( 164 ) = RKI( 164 ) * YC( xMACO3 ) * YC( NO ) RXRAT( 165 ) = RKI( 165 ) * YC( xMACO3 ) * YC( HO2 ) RXRAT( 166 ) = RKI( 166 ) * YC( xMACO3 ) * YC( NO3 ) RXRAT( 167 ) = RKI( 167 ) * YC( xMACO3 ) * YC( MEO2 ) RXRAT( 168 ) = RKI( 168 ) * YC( xMACO3 ) * YC( RO2C ) RXRAT( 169 ) = RKI( 169 ) * YC( xMACO3 ) * YC( RO2XC ) RXRAT( 170 ) = RKI( 170 ) * YC( xMACO3 ) * YC( MECO3 ) RXRAT( 171 ) = RKI( 171 ) * YC( xMACO3 ) * YC( RCO3 ) RXRAT( 172 ) = RKI( 172 ) * YC( xMACO3 ) * YC( BZCO3 ) RXRAT( 173 ) = RKI( 173 ) * YC( xMACO3 ) * YC( MACO3 ) RXRAT( 174 ) = RKI( 174 ) * YC( xTBUO ) * YC( NO ) RXRAT( 175 ) = RKI( 175 ) * YC( xTBUO ) * YC( HO2 ) RXRAT( 176 ) = RKI( 176 ) * YC( xTBUO ) * YC( NO3 ) RXRAT( 177 ) = RKI( 177 ) * YC( xTBUO ) * YC( MEO2 ) RXRAT( 178 ) = RKI( 178 ) * YC( xTBUO ) * YC( RO2C ) RXRAT( 179 ) = RKI( 179 ) * YC( xTBUO ) * YC( RO2XC ) RXRAT( 180 ) = RKI( 180 ) * YC( xTBUO ) * YC( MECO3 ) RXRAT( 181 ) = RKI( 181 ) * YC( xTBUO ) * YC( RCO3 ) RXRAT( 182 ) = RKI( 182 ) * YC( xTBUO ) * YC( BZCO3 ) RXRAT( 183 ) = RKI( 183 ) * YC( xTBUO ) * YC( MACO3 ) RXRAT( 184 ) = RKI( 184 ) * YC( xCO ) * YC( NO ) RXRAT( 185 ) = RKI( 185 ) * YC( xCO ) * YC( HO2 ) RXRAT( 186 ) = RKI( 186 ) * YC( xCO ) * YC( NO3 ) RXRAT( 187 ) = RKI( 187 ) * YC( xCO ) * YC( MEO2 ) RXRAT( 188 ) = RKI( 188 ) * YC( xCO ) * YC( RO2C ) RXRAT( 189 ) = RKI( 189 ) * YC( xCO ) * YC( RO2XC ) RXRAT( 190 ) = RKI( 190 ) * YC( xCO ) * YC( MECO3 ) RXRAT( 191 ) = RKI( 191 ) * YC( xCO ) * YC( RCO3 ) RXRAT( 192 ) = RKI( 192 ) * YC( xCO ) * YC( BZCO3 ) RXRAT( 193 ) = RKI( 193 ) * YC( xCO ) * YC( MACO3 ) RXRAT( 194 ) = RKI( 194 ) * YC( HCHO ) RXRAT( 195 ) = RKI( 195 ) * YC( HCHO ) RXRAT( 196 ) = RKI( 196 ) * YC( HCHO ) * YC( OH ) RXRAT( 197 ) = RKI( 197 ) * YC( HCHO ) * YC( NO3 ) RXRAT( 198 ) = RKI( 198 ) * YC( CCHO ) * YC( OH ) RXRAT( 199 ) = RKI( 199 ) * YC( CCHO ) RXRAT( 200 ) = RKI( 200 ) * YC( CCHO ) * YC( NO3 ) RXRAT( 201 ) = RKI( 201 ) * YC( RCHO ) * YC( OH ) RXRAT( 202 ) = RKI( 202 ) * YC( RCHO ) RXRAT( 203 ) = RKI( 203 ) * YC( RCHO ) * YC( NO3 ) RXRAT( 204 ) = RKI( 204 ) * YC( ACETONE ) * YC( OH ) RXRAT( 205 ) = RKI( 205 ) * YC( ACETONE ) RXRAT( 206 ) = RKI( 206 ) * YC( MEK ) * YC( OH ) RXRAT( 207 ) = RKI( 207 ) * YC( MEK ) RXRAT( 208 ) = RKI( 208 ) * YC( MEOH ) * YC( OH ) RXRAT( 209 ) = RKI( 209 ) * YC( HCOOH ) * YC( OH ) RXRAT( 210 ) = RKI( 210 ) * YC( CCOOH ) * YC( OH ) RXRAT( 211 ) = RKI( 211 ) * YC( RCOOH ) * YC( OH ) RXRAT( 212 ) = RKI( 212 ) * YC( COOH ) * YC( OH ) RXRAT( 213 ) = RKI( 213 ) * YC( COOH ) RXRAT( 214 ) = RKI( 214 ) * YC( ROOH ) * YC( OH ) RXRAT( 215 ) = RKI( 215 ) * YC( ROOH ) RXRAT( 216 ) = RKI( 216 ) * YC( R6OOH ) * YC( OH ) RXRAT( 217 ) = RKI( 217 ) * YC( R6OOH ) RXRAT( 218 ) = RKI( 218 ) * YC( RAOOH ) * YC( OH ) RXRAT( 219 ) = RKI( 219 ) * YC( RAOOH ) RXRAT( 220 ) = RKI( 220 ) * YC( GLY ) RXRAT( 221 ) = RKI( 221 ) * YC( GLY ) RXRAT( 222 ) = RKI( 222 ) * YC( GLY ) * YC( OH ) RXRAT( 223 ) = RKI( 223 ) * YC( GLY ) * YC( NO3 ) RXRAT( 224 ) = RKI( 224 ) * YC( MGLY ) RXRAT( 225 ) = RKI( 225 ) * YC( MGLY ) * YC( OH ) RXRAT( 226 ) = RKI( 226 ) * YC( MGLY ) * YC( NO3 ) RXRAT( 227 ) = RKI( 227 ) * YC( BACL ) RXRAT( 228 ) = RKI( 228 ) * YC( CRES ) * YC( OH ) RXRAT( 229 ) = RKI( 229 ) * YC( CRES ) * YC( NO3 ) RXRAT( 230 ) = RKI( 230 ) * YC( NPHE ) * YC( OH ) RXRAT( 231 ) = RKI( 231 ) * YC( NPHE ) RXRAT( 232 ) = RKI( 232 ) * YC( NPHE ) RXRAT( 233 ) = RKI( 233 ) * YC( BALD ) * YC( OH ) RXRAT( 234 ) = RKI( 234 ) * YC( BALD ) RXRAT( 235 ) = RKI( 235 ) * YC( BALD ) * YC( NO3 ) RXRAT( 236 ) = RKI( 236 ) * YC( AFG1 ) * YC( OH ) RXRAT( 237 ) = RKI( 237 ) * YC( AFG1 ) * YC( O3 ) RXRAT( 238 ) = RKI( 238 ) * YC( AFG1 ) RXRAT( 239 ) = RKI( 239 ) * YC( AFG2 ) * YC( OH ) RXRAT( 240 ) = RKI( 240 ) * YC( AFG2 ) * YC( O3 ) RXRAT( 241 ) = RKI( 241 ) * YC( AFG2 ) RXRAT( 242 ) = RKI( 242 ) * YC( AFG3 ) * YC( OH ) RXRAT( 243 ) = RKI( 243 ) * YC( AFG3 ) * YC( O3 ) RXRAT( 244 ) = RKI( 244 ) * YC( MACR ) * YC( O3 ) RXRAT( 245 ) = RKI( 245 ) * YC( MACR ) * YC( O3P ) RXRAT( 246 ) = RKI( 246 ) * YC( MVK ) * YC( O3 ) RXRAT( 247 ) = RKI( 247 ) * YC( MVK ) * YC( O3P ) RXRAT( 248 ) = RKI( 248 ) * YC( MVK ) RXRAT( 249 ) = RKI( 249 ) * YC( IPRD ) * YC( OH ) RXRAT( 250 ) = RKI( 250 ) * YC( IPRD ) * YC( O3 ) RXRAT( 251 ) = RKI( 251 ) * YC( IPRD ) * YC( NO3 ) RXRAT( 252 ) = RKI( 252 ) * YC( IPRD ) RXRAT( 253 ) = RKI( 253 ) * YC( PRD2 ) * YC( OH ) RXRAT( 254 ) = RKI( 254 ) * YC( PRD2 ) RXRAT( 255 ) = RKI( 255 ) * YC( RNO3 ) * YC( OH ) RXRAT( 256 ) = RKI( 256 ) * YC( RNO3 ) RXRAT( 257 ) = RKI( 257 ) * YC( HOCCHO ) RXRAT( 258 ) = RKI( 258 ) * YC( HOCCHO ) * YC( NO3 ) RXRAT( 259 ) = RKI( 259 ) * YC( ACROLEIN ) * YC( OH ) RXRAT( 260 ) = RKI( 260 ) * YC( ACROLEIN ) * YC( O3 ) RXRAT( 261 ) = RKI( 261 ) * YC( ACROLEIN ) * YC( NO3 ) RXRAT( 262 ) = RKI( 262 ) * YC( ACROLEIN ) * YC( O3P ) RXRAT( 263 ) = RKI( 263 ) * YC( ACROLEIN ) RXRAT( 264 ) = RKI( 264 ) * YC( CCOOOH ) * YC( OH ) RXRAT( 265 ) = RKI( 265 ) * YC( CCOOOH ) RXRAT( 266 ) = RKI( 266 ) * YC( RCOOOH ) * YC( OH ) RXRAT( 267 ) = RKI( 267 ) * YC( RCOOOH ) RXRAT( 268 ) = RKI( 268 ) * YC( HCOCO3 ) * YC( NO ) RXRAT( 269 ) = RKI( 269 ) * YC( HCOCO3 ) * YC( NO2 ) RXRAT( 270 ) = RKI( 270 ) * YC( HCOCO3 ) * YC( HO2 ) RXRAT( 271 ) = RKI( 271 ) * YC( xHCHO ) * YC( NO ) RXRAT( 272 ) = RKI( 272 ) * YC( xHCHO ) * YC( HO2 ) RXRAT( 273 ) = RKI( 273 ) * YC( xHCHO ) * YC( NO3 ) RXRAT( 274 ) = RKI( 274 ) * YC( xHCHO ) * YC( MEO2 ) RXRAT( 275 ) = RKI( 275 ) * YC( xHCHO ) * YC( RO2C ) RXRAT( 276 ) = RKI( 276 ) * YC( xHCHO ) * YC( RO2XC ) RXRAT( 277 ) = RKI( 277 ) * YC( xHCHO ) * YC( MECO3 ) RXRAT( 278 ) = RKI( 278 ) * YC( xHCHO ) * YC( RCO3 ) RXRAT( 279 ) = RKI( 279 ) * YC( xHCHO ) * YC( BZCO3 ) RXRAT( 280 ) = RKI( 280 ) * YC( xHCHO ) * YC( MACO3 ) RXRAT( 281 ) = RKI( 281 ) * YC( xCCHO ) * YC( NO ) RXRAT( 282 ) = RKI( 282 ) * YC( xCCHO ) * YC( HO2 ) RXRAT( 283 ) = RKI( 283 ) * YC( xCCHO ) * YC( NO3 ) RXRAT( 284 ) = RKI( 284 ) * YC( xCCHO ) * YC( MEO2 ) RXRAT( 285 ) = RKI( 285 ) * YC( xCCHO ) * YC( RO2C ) RXRAT( 286 ) = RKI( 286 ) * YC( xCCHO ) * YC( RO2XC ) RXRAT( 287 ) = RKI( 287 ) * YC( xCCHO ) * YC( MECO3 ) RXRAT( 288 ) = RKI( 288 ) * YC( xCCHO ) * YC( RCO3 ) RXRAT( 289 ) = RKI( 289 ) * YC( xCCHO ) * YC( BZCO3 ) RXRAT( 290 ) = RKI( 290 ) * YC( xCCHO ) * YC( MACO3 ) RXRAT( 291 ) = RKI( 291 ) * YC( xRCHO ) * YC( NO ) RXRAT( 292 ) = RKI( 292 ) * YC( xRCHO ) * YC( HO2 ) RXRAT( 293 ) = RKI( 293 ) * YC( xRCHO ) * YC( NO3 ) RXRAT( 294 ) = RKI( 294 ) * YC( xRCHO ) * YC( MEO2 ) RXRAT( 295 ) = RKI( 295 ) * YC( xRCHO ) * YC( RO2C ) RXRAT( 296 ) = RKI( 296 ) * YC( xRCHO ) * YC( RO2XC ) RXRAT( 297 ) = RKI( 297 ) * YC( xRCHO ) * YC( MECO3 ) RXRAT( 298 ) = RKI( 298 ) * YC( xRCHO ) * YC( RCO3 ) RXRAT( 299 ) = RKI( 299 ) * YC( xRCHO ) * YC( BZCO3 ) RXRAT( 300 ) = RKI( 300 ) * YC( xRCHO ) * YC( MACO3 ) RXRAT( 301 ) = RKI( 301 ) * YC( xACETONE ) * YC( NO ) RXRAT( 302 ) = RKI( 302 ) * YC( xACETONE ) * YC( HO2 ) RXRAT( 303 ) = RKI( 303 ) * YC( xACETONE ) * YC( NO3 ) RXRAT( 304 ) = RKI( 304 ) * YC( xACETONE ) * YC( MEO2 ) RXRAT( 305 ) = RKI( 305 ) * YC( xACETONE ) * YC( RO2C ) RXRAT( 306 ) = RKI( 306 ) * YC( xACETONE ) * YC( RO2XC ) RXRAT( 307 ) = RKI( 307 ) * YC( xACETONE ) * YC( MECO3 ) RXRAT( 308 ) = RKI( 308 ) * YC( xACETONE ) * YC( RCO3 ) RXRAT( 309 ) = RKI( 309 ) * YC( xACETONE ) * YC( BZCO3 ) RXRAT( 310 ) = RKI( 310 ) * YC( xACETONE ) * YC( MACO3 ) RXRAT( 311 ) = RKI( 311 ) * YC( xMEK ) * YC( NO ) RXRAT( 312 ) = RKI( 312 ) * YC( xMEK ) * YC( HO2 ) RXRAT( 313 ) = RKI( 313 ) * YC( xMEK ) * YC( NO3 ) RXRAT( 314 ) = RKI( 314 ) * YC( xMEK ) * YC( MEO2 ) RXRAT( 315 ) = RKI( 315 ) * YC( xMEK ) * YC( RO2C ) RXRAT( 316 ) = RKI( 316 ) * YC( xMEK ) * YC( RO2XC ) RXRAT( 317 ) = RKI( 317 ) * YC( xMEK ) * YC( MECO3 ) RXRAT( 318 ) = RKI( 318 ) * YC( xMEK ) * YC( RCO3 ) RXRAT( 319 ) = RKI( 319 ) * YC( xMEK ) * YC( BZCO3 ) RXRAT( 320 ) = RKI( 320 ) * YC( xMEK ) * YC( MACO3 ) RXRAT( 321 ) = RKI( 321 ) * YC( xPROD2 ) * YC( NO ) RXRAT( 322 ) = RKI( 322 ) * YC( xPROD2 ) * YC( HO2 ) RXRAT( 323 ) = RKI( 323 ) * YC( xPROD2 ) * YC( NO3 ) RXRAT( 324 ) = RKI( 324 ) * YC( xPROD2 ) * YC( MEO2 ) RXRAT( 325 ) = RKI( 325 ) * YC( xPROD2 ) * YC( RO2C ) RXRAT( 326 ) = RKI( 326 ) * YC( xPROD2 ) * YC( RO2XC ) RXRAT( 327 ) = RKI( 327 ) * YC( xPROD2 ) * YC( MECO3 ) RXRAT( 328 ) = RKI( 328 ) * YC( xPROD2 ) * YC( RCO3 ) RXRAT( 329 ) = RKI( 329 ) * YC( xPROD2 ) * YC( BZCO3 ) RXRAT( 330 ) = RKI( 330 ) * YC( xPROD2 ) * YC( MACO3 ) RXRAT( 331 ) = RKI( 331 ) * YC( xGLY ) * YC( NO ) RXRAT( 332 ) = RKI( 332 ) * YC( xGLY ) * YC( HO2 ) RXRAT( 333 ) = RKI( 333 ) * YC( xGLY ) * YC( NO3 ) RXRAT( 334 ) = RKI( 334 ) * YC( xGLY ) * YC( MEO2 ) RXRAT( 335 ) = RKI( 335 ) * YC( xGLY ) * YC( RO2C ) RXRAT( 336 ) = RKI( 336 ) * YC( xGLY ) * YC( RO2XC ) RXRAT( 337 ) = RKI( 337 ) * YC( xGLY ) * YC( MECO3 ) RXRAT( 338 ) = RKI( 338 ) * YC( xGLY ) * YC( RCO3 ) RXRAT( 339 ) = RKI( 339 ) * YC( xGLY ) * YC( BZCO3 ) RXRAT( 340 ) = RKI( 340 ) * YC( xGLY ) * YC( MACO3 ) RXRAT( 341 ) = RKI( 341 ) * YC( xMGLY ) * YC( NO ) RXRAT( 342 ) = RKI( 342 ) * YC( xMGLY ) * YC( HO2 ) RXRAT( 343 ) = RKI( 343 ) * YC( xMGLY ) * YC( NO3 ) RXRAT( 344 ) = RKI( 344 ) * YC( xMGLY ) * YC( MEO2 ) RXRAT( 345 ) = RKI( 345 ) * YC( xMGLY ) * YC( RO2C ) RXRAT( 346 ) = RKI( 346 ) * YC( xMGLY ) * YC( RO2XC ) RXRAT( 347 ) = RKI( 347 ) * YC( xMGLY ) * YC( MECO3 ) RXRAT( 348 ) = RKI( 348 ) * YC( xMGLY ) * YC( RCO3 ) RXRAT( 349 ) = RKI( 349 ) * YC( xMGLY ) * YC( BZCO3 ) RXRAT( 350 ) = RKI( 350 ) * YC( xMGLY ) * YC( MACO3 ) RXRAT( 351 ) = RKI( 351 ) * YC( xBACL ) * YC( NO ) RXRAT( 352 ) = RKI( 352 ) * YC( xBACL ) * YC( HO2 ) RXRAT( 353 ) = RKI( 353 ) * YC( xBACL ) * YC( NO3 ) RXRAT( 354 ) = RKI( 354 ) * YC( xBACL ) * YC( MEO2 ) RXRAT( 355 ) = RKI( 355 ) * YC( xBACL ) * YC( RO2C ) RXRAT( 356 ) = RKI( 356 ) * YC( xBACL ) * YC( RO2XC ) RXRAT( 357 ) = RKI( 357 ) * YC( xBACL ) * YC( MECO3 ) RXRAT( 358 ) = RKI( 358 ) * YC( xBACL ) * YC( RCO3 ) RXRAT( 359 ) = RKI( 359 ) * YC( xBACL ) * YC( BZCO3 ) RXRAT( 360 ) = RKI( 360 ) * YC( xBACL ) * YC( MACO3 ) RXRAT( 361 ) = RKI( 361 ) * YC( xBALD ) * YC( NO ) RXRAT( 362 ) = RKI( 362 ) * YC( xBALD ) * YC( HO2 ) RXRAT( 363 ) = RKI( 363 ) * YC( xBALD ) * YC( NO3 ) RXRAT( 364 ) = RKI( 364 ) * YC( xBALD ) * YC( MEO2 ) RXRAT( 365 ) = RKI( 365 ) * YC( xBALD ) * YC( RO2C ) RXRAT( 366 ) = RKI( 366 ) * YC( xBALD ) * YC( RO2XC ) RXRAT( 367 ) = RKI( 367 ) * YC( xBALD ) * YC( MECO3 ) RXRAT( 368 ) = RKI( 368 ) * YC( xBALD ) * YC( RCO3 ) RXRAT( 369 ) = RKI( 369 ) * YC( xBALD ) * YC( BZCO3 ) RXRAT( 370 ) = RKI( 370 ) * YC( xBALD ) * YC( MACO3 ) RXRAT( 371 ) = RKI( 371 ) * YC( xAFG1 ) * YC( NO ) RXRAT( 372 ) = RKI( 372 ) * YC( xAFG1 ) * YC( HO2 ) RXRAT( 373 ) = RKI( 373 ) * YC( xAFG1 ) * YC( NO3 ) RXRAT( 374 ) = RKI( 374 ) * YC( xAFG1 ) * YC( MEO2 ) RXRAT( 375 ) = RKI( 375 ) * YC( xAFG1 ) * YC( RO2C ) RXRAT( 376 ) = RKI( 376 ) * YC( xAFG1 ) * YC( RO2XC ) RXRAT( 377 ) = RKI( 377 ) * YC( xAFG1 ) * YC( MECO3 ) RXRAT( 378 ) = RKI( 378 ) * YC( xAFG1 ) * YC( RCO3 ) RXRAT( 379 ) = RKI( 379 ) * YC( xAFG1 ) * YC( BZCO3 ) RXRAT( 380 ) = RKI( 380 ) * YC( xAFG1 ) * YC( MACO3 ) RXRAT( 381 ) = RKI( 381 ) * YC( xAFG2 ) * YC( NO ) RXRAT( 382 ) = RKI( 382 ) * YC( xAFG2 ) * YC( HO2 ) RXRAT( 383 ) = RKI( 383 ) * YC( xAFG2 ) * YC( NO3 ) RXRAT( 384 ) = RKI( 384 ) * YC( xAFG2 ) * YC( MEO2 ) RXRAT( 385 ) = RKI( 385 ) * YC( xAFG2 ) * YC( RO2C ) RXRAT( 386 ) = RKI( 386 ) * YC( xAFG2 ) * YC( RO2XC ) RXRAT( 387 ) = RKI( 387 ) * YC( xAFG2 ) * YC( MECO3 ) RXRAT( 388 ) = RKI( 388 ) * YC( xAFG2 ) * YC( RCO3 ) RXRAT( 389 ) = RKI( 389 ) * YC( xAFG2 ) * YC( BZCO3 ) RXRAT( 390 ) = RKI( 390 ) * YC( xAFG2 ) * YC( MACO3 ) RXRAT( 391 ) = RKI( 391 ) * YC( xAFG3 ) * YC( NO ) RXRAT( 392 ) = RKI( 392 ) * YC( xAFG3 ) * YC( HO2 ) RXRAT( 393 ) = RKI( 393 ) * YC( xAFG3 ) * YC( NO3 ) RXRAT( 394 ) = RKI( 394 ) * YC( xAFG3 ) * YC( MEO2 ) RXRAT( 395 ) = RKI( 395 ) * YC( xAFG3 ) * YC( RO2C ) RXRAT( 396 ) = RKI( 396 ) * YC( xAFG3 ) * YC( RO2XC ) RXRAT( 397 ) = RKI( 397 ) * YC( xAFG3 ) * YC( MECO3 ) RXRAT( 398 ) = RKI( 398 ) * YC( xAFG3 ) * YC( RCO3 ) RXRAT( 399 ) = RKI( 399 ) * YC( xAFG3 ) * YC( BZCO3 ) RXRAT( 400 ) = RKI( 400 ) * YC( xAFG3 ) * YC( MACO3 ) RXRAT( 401 ) = RKI( 401 ) * YC( xMACR ) * YC( NO ) RXRAT( 402 ) = RKI( 402 ) * YC( xMACR ) * YC( HO2 ) RXRAT( 403 ) = RKI( 403 ) * YC( xMACR ) * YC( NO3 ) RXRAT( 404 ) = RKI( 404 ) * YC( xMACR ) * YC( MEO2 ) RXRAT( 405 ) = RKI( 405 ) * YC( xMACR ) * YC( RO2C ) RXRAT( 406 ) = RKI( 406 ) * YC( xMACR ) * YC( RO2XC ) RXRAT( 407 ) = RKI( 407 ) * YC( xMACR ) * YC( MECO3 ) RXRAT( 408 ) = RKI( 408 ) * YC( xMACR ) * YC( RCO3 ) RXRAT( 409 ) = RKI( 409 ) * YC( xMACR ) * YC( BZCO3 ) RXRAT( 410 ) = RKI( 410 ) * YC( xMACR ) * YC( MACO3 ) RXRAT( 411 ) = RKI( 411 ) * YC( xMVK ) * YC( NO ) RXRAT( 412 ) = RKI( 412 ) * YC( xMVK ) * YC( HO2 ) RXRAT( 413 ) = RKI( 413 ) * YC( xMVK ) * YC( NO3 ) RXRAT( 414 ) = RKI( 414 ) * YC( xMVK ) * YC( MEO2 ) RXRAT( 415 ) = RKI( 415 ) * YC( xMVK ) * YC( RO2C ) RXRAT( 416 ) = RKI( 416 ) * YC( xMVK ) * YC( RO2XC ) RXRAT( 417 ) = RKI( 417 ) * YC( xMVK ) * YC( MECO3 ) RXRAT( 418 ) = RKI( 418 ) * YC( xMVK ) * YC( RCO3 ) RXRAT( 419 ) = RKI( 419 ) * YC( xMVK ) * YC( BZCO3 ) RXRAT( 420 ) = RKI( 420 ) * YC( xMVK ) * YC( MACO3 ) RXRAT( 421 ) = RKI( 421 ) * YC( xIPRD ) * YC( NO ) RXRAT( 422 ) = RKI( 422 ) * YC( xIPRD ) * YC( HO2 ) RXRAT( 423 ) = RKI( 423 ) * YC( xIPRD ) * YC( NO3 ) RXRAT( 424 ) = RKI( 424 ) * YC( xIPRD ) * YC( MEO2 ) RXRAT( 425 ) = RKI( 425 ) * YC( xIPRD ) * YC( RO2C ) RXRAT( 426 ) = RKI( 426 ) * YC( xIPRD ) * YC( RO2XC ) RXRAT( 427 ) = RKI( 427 ) * YC( xIPRD ) * YC( MECO3 ) RXRAT( 428 ) = RKI( 428 ) * YC( xIPRD ) * YC( RCO3 ) RXRAT( 429 ) = RKI( 429 ) * YC( xIPRD ) * YC( BZCO3 ) RXRAT( 430 ) = RKI( 430 ) * YC( xIPRD ) * YC( MACO3 ) RXRAT( 431 ) = RKI( 431 ) * YC( xRNO3 ) * YC( NO ) RXRAT( 432 ) = RKI( 432 ) * YC( xRNO3 ) * YC( HO2 ) RXRAT( 433 ) = RKI( 433 ) * YC( xRNO3 ) * YC( NO3 ) RXRAT( 434 ) = RKI( 434 ) * YC( xRNO3 ) * YC( MEO2 ) RXRAT( 435 ) = RKI( 435 ) * YC( xRNO3 ) * YC( RO2C ) RXRAT( 436 ) = RKI( 436 ) * YC( xRNO3 ) * YC( RO2XC ) RXRAT( 437 ) = RKI( 437 ) * YC( xRNO3 ) * YC( MECO3 ) RXRAT( 438 ) = RKI( 438 ) * YC( xRNO3 ) * YC( RCO3 ) RXRAT( 439 ) = RKI( 439 ) * YC( xRNO3 ) * YC( BZCO3 ) RXRAT( 440 ) = RKI( 440 ) * YC( xRNO3 ) * YC( MACO3 ) RXRAT( 441 ) = RKI( 441 ) * YC( xMTNO3 ) * YC( NO ) RXRAT( 442 ) = RKI( 442 ) * YC( xMTNO3 ) * YC( HO2 ) RXRAT( 443 ) = RKI( 443 ) * YC( xMTNO3 ) * YC( NO3 ) RXRAT( 444 ) = RKI( 444 ) * YC( xMTNO3 ) * YC( MEO2 ) RXRAT( 445 ) = RKI( 445 ) * YC( xMTNO3 ) * YC( RO2C ) RXRAT( 446 ) = RKI( 446 ) * YC( xMTNO3 ) * YC( RO2XC ) RXRAT( 447 ) = RKI( 447 ) * YC( xMTNO3 ) * YC( MECO3 ) RXRAT( 448 ) = RKI( 448 ) * YC( xMTNO3 ) * YC( RCO3 ) RXRAT( 449 ) = RKI( 449 ) * YC( xMTNO3 ) * YC( BZCO3 ) RXRAT( 450 ) = RKI( 450 ) * YC( xMTNO3 ) * YC( MACO3 ) RXRAT( 451 ) = RKI( 451 ) * YC( xMTNO3 ) * YC( IMACO3 ) RXRAT( 452 ) = RKI( 452 ) * YC( yROOH ) * YC( NO ) RXRAT( 453 ) = RKI( 453 ) * YC( yROOH ) * YC( HO2 ) RXRAT( 454 ) = RKI( 454 ) * YC( yROOH ) * YC( NO3 ) RXRAT( 455 ) = RKI( 455 ) * YC( yROOH ) * YC( MEO2 ) RXRAT( 456 ) = RKI( 456 ) * YC( yROOH ) * YC( RO2C ) RXRAT( 457 ) = RKI( 457 ) * YC( yROOH ) * YC( RO2XC ) RXRAT( 458 ) = RKI( 458 ) * YC( yROOH ) * YC( MECO3 ) RXRAT( 459 ) = RKI( 459 ) * YC( yROOH ) * YC( RCO3 ) RXRAT( 460 ) = RKI( 460 ) * YC( yROOH ) * YC( BZCO3 ) RXRAT( 461 ) = RKI( 461 ) * YC( yROOH ) * YC( MACO3 ) RXRAT( 462 ) = RKI( 462 ) * YC( yR6OOH ) * YC( NO ) RXRAT( 463 ) = RKI( 463 ) * YC( yR6OOH ) * YC( HO2 ) RXRAT( 464 ) = RKI( 464 ) * YC( yR6OOH ) * YC( NO3 ) RXRAT( 465 ) = RKI( 465 ) * YC( yR6OOH ) * YC( MEO2 ) RXRAT( 466 ) = RKI( 466 ) * YC( yR6OOH ) * YC( RO2C ) RXRAT( 467 ) = RKI( 467 ) * YC( yR6OOH ) * YC( RO2XC ) RXRAT( 468 ) = RKI( 468 ) * YC( yR6OOH ) * YC( MECO3 ) RXRAT( 469 ) = RKI( 469 ) * YC( yR6OOH ) * YC( RCO3 ) RXRAT( 470 ) = RKI( 470 ) * YC( yR6OOH ) * YC( BZCO3 ) RXRAT( 471 ) = RKI( 471 ) * YC( yR6OOH ) * YC( MACO3 ) RXRAT( 472 ) = RKI( 472 ) * YC( yRAOOH ) * YC( NO ) RXRAT( 473 ) = RKI( 473 ) * YC( yRAOOH ) * YC( HO2 ) RXRAT( 474 ) = RKI( 474 ) * YC( yRAOOH ) * YC( NO3 ) RXRAT( 475 ) = RKI( 475 ) * YC( yRAOOH ) * YC( MEO2 ) RXRAT( 476 ) = RKI( 476 ) * YC( yRAOOH ) * YC( RO2C ) RXRAT( 477 ) = RKI( 477 ) * YC( yRAOOH ) * YC( RO2XC ) RXRAT( 478 ) = RKI( 478 ) * YC( yRAOOH ) * YC( MECO3 ) RXRAT( 479 ) = RKI( 479 ) * YC( yRAOOH ) * YC( RCO3 ) RXRAT( 480 ) = RKI( 480 ) * YC( yRAOOH ) * YC( BZCO3 ) RXRAT( 481 ) = RKI( 481 ) * YC( yRAOOH ) * YC( MACO3 ) RXRAT( 482 ) = RKI( 482 ) * YC( zRNO3 ) * YC( NO ) RXRAT( 483 ) = RKI( 483 ) * YC( zRNO3 ) * YC( HO2 ) RXRAT( 484 ) = RKI( 484 ) * YC( zRNO3 ) * YC( NO3 ) RXRAT( 485 ) = RKI( 485 ) * YC( zRNO3 ) * YC( MEO2 ) RXRAT( 486 ) = RKI( 486 ) * YC( zRNO3 ) * YC( RO2C ) RXRAT( 487 ) = RKI( 487 ) * YC( zRNO3 ) * YC( RO2XC ) RXRAT( 488 ) = RKI( 488 ) * YC( zRNO3 ) * YC( MECO3 ) RXRAT( 489 ) = RKI( 489 ) * YC( zRNO3 ) * YC( RCO3 ) RXRAT( 490 ) = RKI( 490 ) * YC( zRNO3 ) * YC( BZCO3 ) RXRAT( 491 ) = RKI( 491 ) * YC( zRNO3 ) * YC( MACO3 ) RXRAT( 492 ) = RKI( 492 ) * YC( zMTNO3 ) * YC( NO ) RXRAT( 493 ) = RKI( 493 ) * YC( zMTNO3 ) * YC( HO2 ) RXRAT( 494 ) = RKI( 494 ) * YC( zMTNO3 ) * YC( NO3 ) RXRAT( 495 ) = RKI( 495 ) * YC( zMTNO3 ) * YC( MEO2 ) RXRAT( 496 ) = RKI( 496 ) * YC( zMTNO3 ) * YC( RO2C ) RXRAT( 497 ) = RKI( 497 ) * YC( zMTNO3 ) * YC( RO2XC ) RXRAT( 498 ) = RKI( 498 ) * YC( zMTNO3 ) * YC( MECO3 ) RXRAT( 499 ) = RKI( 499 ) * YC( zMTNO3 ) * YC( RCO3 ) RXRAT( 500 ) = RKI( 500 ) * YC( zMTNO3 ) * YC( BZCO3 ) RXRAT( 501 ) = RKI( 501 ) * YC( zMTNO3 ) * YC( MACO3 ) RXRAT( 502 ) = RKI( 502 ) * YC( zMTNO3 ) * YC( IMACO3 ) RXRAT( 503 ) = RKI( 503 ) * YC( xHOCCHO ) * YC( NO ) RXRAT( 504 ) = RKI( 504 ) * YC( xHOCCHO ) * YC( HO2 ) RXRAT( 505 ) = RKI( 505 ) * YC( xHOCCHO ) * YC( NO3 ) RXRAT( 506 ) = RKI( 506 ) * YC( xHOCCHO ) * YC( MEO2 ) RXRAT( 507 ) = RKI( 507 ) * YC( xHOCCHO ) * YC( RO2C ) RXRAT( 508 ) = RKI( 508 ) * YC( xHOCCHO ) * YC( RO2XC ) RXRAT( 509 ) = RKI( 509 ) * YC( xHOCCHO ) * YC( MECO3 ) RXRAT( 510 ) = RKI( 510 ) * YC( xHOCCHO ) * YC( RCO3 ) RXRAT( 511 ) = RKI( 511 ) * YC( xHOCCHO ) * YC( BZCO3 ) RXRAT( 512 ) = RKI( 512 ) * YC( xHOCCHO ) * YC( MACO3 ) RXRAT( 513 ) = RKI( 513 ) * YC( xACROLEIN ) * YC( NO ) RXRAT( 514 ) = RKI( 514 ) * YC( xACROLEIN ) * YC( HO2 ) RXRAT( 515 ) = RKI( 515 ) * YC( xACROLEIN ) * YC( NO3 ) RXRAT( 516 ) = RKI( 516 ) * YC( xACROLEIN ) * YC( MEO2 ) RXRAT( 517 ) = RKI( 517 ) * YC( xACROLEIN ) * YC( RO2C ) RXRAT( 518 ) = RKI( 518 ) * YC( xACROLEIN ) * YC( RO2XC ) RXRAT( 519 ) = RKI( 519 ) * YC( xACROLEIN ) * YC( MECO3 ) RXRAT( 520 ) = RKI( 520 ) * YC( xACROLEIN ) * YC( RCO3 ) RXRAT( 521 ) = RKI( 521 ) * YC( xACROLEIN ) * YC( BZCO3 ) RXRAT( 522 ) = RKI( 522 ) * YC( xACROLEIN ) * YC( MACO3 ) RXRAT( 523 ) = RKI( 523 ) * YC( OH ) RXRAT( 524 ) = RKI( 524 ) * YC( ETHENE ) * YC( OH ) RXRAT( 525 ) = RKI( 525 ) * YC( ETHENE ) * YC( O3 ) RXRAT( 526 ) = RKI( 526 ) * YC( ETHENE ) * YC( NO3 ) RXRAT( 527 ) = RKI( 527 ) * YC( ETHENE ) * YC( O3P ) RXRAT( 528 ) = RKI( 528 ) * YC( PROPENE ) * YC( OH ) RXRAT( 529 ) = RKI( 529 ) * YC( PROPENE ) * YC( O3 ) RXRAT( 530 ) = RKI( 530 ) * YC( PROPENE ) * YC( NO3 ) RXRAT( 531 ) = RKI( 531 ) * YC( PROPENE ) * YC( O3P ) RXRAT( 532 ) = RKI( 532 ) * YC( BUTADIENE13 ) * YC( OH ) RXRAT( 533 ) = RKI( 533 ) * YC( BUTADIENE13 ) * YC( O3 ) RXRAT( 534 ) = RKI( 534 ) * YC( BUTADIENE13 ) * YC( NO3 ) RXRAT( 535 ) = RKI( 535 ) * YC( BUTADIENE13 ) * YC( O3P ) RXRAT( 536 ) = RKI( 536 ) * YC( ISOPRENE ) * YC( O3 ) RXRAT( 537 ) = RKI( 537 ) * YC( ISOPRENE ) * YC( O3P ) RXRAT( 538 ) = RKI( 538 ) * YC( APIN ) * YC( OH ) RXRAT( 539 ) = RKI( 539 ) * YC( APIN ) * YC( O3 ) RXRAT( 540 ) = RKI( 540 ) * YC( APIN ) * YC( NO3 ) RXRAT( 541 ) = RKI( 541 ) * YC( APIN ) * YC( O3P ) RXRAT( 542 ) = RKI( 542 ) * YC( ACETYLENE ) * YC( OH ) RXRAT( 543 ) = RKI( 543 ) * YC( ACETYLENE ) * YC( O3 ) RXRAT( 544 ) = RKI( 544 ) * YC( BENZENE ) * YC( OH ) RXRAT( 545 ) = RKI( 545 ) * YC( TOLUENE ) * YC( OH ) RXRAT( 546 ) = RKI( 546 ) * YC( MXYL ) * YC( OH ) RXRAT( 547 ) = RKI( 547 ) * YC( OXYL ) * YC( OH ) RXRAT( 548 ) = RKI( 548 ) * YC( PXYL ) * YC( OH ) RXRAT( 549 ) = RKI( 549 ) * YC( TMBENZ124 ) * YC( OH ) RXRAT( 550 ) = RKI( 550 ) * YC( ETOH ) * YC( OH ) RXRAT( 551 ) = RKI( 551 ) * YC( ALK1 ) * YC( OH ) RXRAT( 552 ) = RKI( 552 ) * YC( ALK2 ) * YC( OH ) RXRAT( 553 ) = RKI( 553 ) * YC( ALK3 ) * YC( OH ) RXRAT( 554 ) = RKI( 554 ) * YC( ALK4 ) * YC( OH ) RXRAT( 555 ) = RKI( 555 ) * YC( ALK5 ) * YC( OH ) RXRAT( 556 ) = RKI( 556 ) * YC( SOAALK ) * YC( OH ) RXRAT( 557 ) = RKI( 557 ) * YC( OLE1 ) * YC( OH ) RXRAT( 558 ) = RKI( 558 ) * YC( OLE1 ) * YC( O3 ) RXRAT( 559 ) = RKI( 559 ) * YC( OLE1 ) * YC( NO3 ) RXRAT( 560 ) = RKI( 560 ) * YC( OLE1 ) * YC( O3P ) RXRAT( 561 ) = RKI( 561 ) * YC( OLE2 ) * YC( OH ) RXRAT( 562 ) = RKI( 562 ) * YC( OLE2 ) * YC( O3 ) RXRAT( 563 ) = RKI( 563 ) * YC( OLE2 ) * YC( NO3 ) RXRAT( 564 ) = RKI( 564 ) * YC( OLE2 ) * YC( O3P ) RXRAT( 565 ) = RKI( 565 ) * YC( ARO1 ) * YC( OH ) RXRAT( 566 ) = RKI( 566 ) * YC( ARO2MN ) * YC( OH ) RXRAT( 567 ) = RKI( 567 ) * YC( NAPHTHAL ) * YC( OH ) RXRAT( 568 ) = RKI( 568 ) * YC( TERP ) * YC( OH ) RXRAT( 569 ) = RKI( 569 ) * YC( TERP ) * YC( O3 ) RXRAT( 570 ) = RKI( 570 ) * YC( TERP ) * YC( NO3 ) RXRAT( 571 ) = RKI( 571 ) * YC( TERPNRO2 ) * YC( NO ) RXRAT( 572 ) = RKI( 572 ) * YC( TERPNRO2 ) * YC( HO2 ) RXRAT( 573 ) = RKI( 573 ) * YC( TERPNRO2 ) * YC( NO3 ) RXRAT( 574 ) = RKI( 574 ) * YC( TERPNRO2 ) * YC( MEO2 ) RXRAT( 575 ) = RKI( 575 ) * YC( TERPNRO2 ) * YC( RO2C ) RXRAT( 576 ) = RKI( 576 ) * YC( TERPNRO2 ) * YC( RO2XC ) RXRAT( 577 ) = RKI( 577 ) * YC( TERPNRO2 ) * YC( MECO3 ) RXRAT( 578 ) = RKI( 578 ) * YC( TERPNRO2 ) * YC( RCO3 ) RXRAT( 579 ) = RKI( 579 ) * YC( TERPNRO2 ) * YC( BZCO3 ) RXRAT( 580 ) = RKI( 580 ) * YC( TERPNRO2 ) * YC( MACO3 ) RXRAT( 581 ) = RKI( 581 ) * YC( TERPNRO2 ) * YC( IMACO3 ) RXRAT( 582 ) = RKI( 582 ) * YC( TERP ) * YC( O3P ) RXRAT( 583 ) = RKI( 583 ) * YC( SESQ ) * YC( OH ) RXRAT( 584 ) = RKI( 584 ) * YC( SESQ ) * YC( O3 ) RXRAT( 585 ) = RKI( 585 ) * YC( SESQ ) * YC( NO3 ) RXRAT( 586 ) = RKI( 586 ) * YC( SESQ ) * YC( O3P ) RXRAT( 587 ) = RKI( 587 ) * YC( CL2 ) RXRAT( 588 ) = RKI( 588 ) * YC( CL ) * YC( NO ) RXRAT( 589 ) = RKI( 589 ) * YC( CLNO ) RXRAT( 590 ) = RKI( 590 ) * YC( CL ) * YC( NO2 ) RXRAT( 591 ) = RKI( 591 ) * YC( CL ) * YC( NO2 ) RXRAT( 592 ) = RKI( 592 ) * YC( CLONO ) RXRAT( 593 ) = RKI( 593 ) * YC( CLNO2 ) RXRAT( 594 ) = RKI( 594 ) * YC( CL ) * YC( HO2 ) RXRAT( 595 ) = RKI( 595 ) * YC( CL ) * YC( HO2 ) RXRAT( 596 ) = RKI( 596 ) * YC( CL ) * YC( O3 ) RXRAT( 597 ) = RKI( 597 ) * YC( CL ) * YC( NO3 ) RXRAT( 598 ) = RKI( 598 ) * YC( CLO ) * YC( NO ) RXRAT( 599 ) = RKI( 599 ) * YC( CLO ) * YC( NO2 ) RXRAT( 600 ) = RKI( 600 ) * YC( CLONO2 ) RXRAT( 601 ) = RKI( 601 ) * YC( CLONO2 ) RXRAT( 602 ) = RKI( 602 ) * YC( CLONO2 ) RXRAT( 603 ) = RKI( 603 ) * YC( CL ) * YC( CLONO2 ) RXRAT( 604 ) = RKI( 604 ) * YC( CLO ) * YC( HO2 ) RXRAT( 605 ) = RKI( 605 ) * YC( HOCL ) RXRAT( 606 ) = RKI( 606 ) * YC( CLO ) * YC( CLO ) RXRAT( 607 ) = RKI( 607 ) * YC( OH ) * YC( HCL ) RXRAT( 608 ) = RKI( 608 ) * YC( CL ) RXRAT( 609 ) = RKI( 609 ) * YC( HCHO ) * YC( CL ) RXRAT( 610 ) = RKI( 610 ) * YC( CCHO ) * YC( CL ) RXRAT( 611 ) = RKI( 611 ) * YC( MEOH ) * YC( CL ) RXRAT( 612 ) = RKI( 612 ) * YC( RCHO ) * YC( CL ) RXRAT( 613 ) = RKI( 613 ) * YC( ACETONE ) * YC( CL ) RXRAT( 614 ) = RKI( 614 ) * YC( MEK ) * YC( CL ) RXRAT( 615 ) = RKI( 615 ) * YC( RNO3 ) * YC( CL ) RXRAT( 616 ) = RKI( 616 ) * YC( PRD2 ) * YC( CL ) RXRAT( 617 ) = RKI( 617 ) * YC( GLY ) * YC( CL ) RXRAT( 618 ) = RKI( 618 ) * YC( MGLY ) * YC( CL ) RXRAT( 619 ) = RKI( 619 ) * YC( CRES ) * YC( CL ) RXRAT( 620 ) = RKI( 620 ) * YC( BALD ) * YC( CL ) RXRAT( 621 ) = RKI( 621 ) * YC( ROOH ) * YC( CL ) RXRAT( 622 ) = RKI( 622 ) * YC( R6OOH ) * YC( CL ) RXRAT( 623 ) = RKI( 623 ) * YC( RAOOH ) * YC( CL ) RXRAT( 624 ) = RKI( 624 ) * YC( ACROLEIN ) * YC( CL ) RXRAT( 625 ) = RKI( 625 ) * YC( MVK ) * YC( CL ) RXRAT( 626 ) = RKI( 626 ) * YC( IPRD ) * YC( CL ) RXRAT( 627 ) = RKI( 627 ) * YC( CLCCHO ) RXRAT( 628 ) = RKI( 628 ) * YC( CLCCHO ) * YC( OH ) RXRAT( 629 ) = RKI( 629 ) * YC( CLCCHO ) * YC( CL ) RXRAT( 630 ) = RKI( 630 ) * YC( CLACET ) RXRAT( 631 ) = RKI( 631 ) * YC( xCL ) * YC( NO ) RXRAT( 632 ) = RKI( 632 ) * YC( xCL ) * YC( HO2 ) RXRAT( 633 ) = RKI( 633 ) * YC( xCL ) * YC( NO3 ) RXRAT( 634 ) = RKI( 634 ) * YC( xCL ) * YC( MEO2 ) RXRAT( 635 ) = RKI( 635 ) * YC( xCL ) * YC( RO2C ) RXRAT( 636 ) = RKI( 636 ) * YC( xCL ) * YC( RO2XC ) RXRAT( 637 ) = RKI( 637 ) * YC( xCL ) * YC( MECO3 ) RXRAT( 638 ) = RKI( 638 ) * YC( xCL ) * YC( RCO3 ) RXRAT( 639 ) = RKI( 639 ) * YC( xCL ) * YC( BZCO3 ) RXRAT( 640 ) = RKI( 640 ) * YC( xCL ) * YC( MACO3 ) RXRAT( 641 ) = RKI( 641 ) * YC( xCLCCHO ) * YC( NO ) RXRAT( 642 ) = RKI( 642 ) * YC( xCLCCHO ) * YC( HO2 ) RXRAT( 643 ) = RKI( 643 ) * YC( xCLCCHO ) * YC( NO3 ) RXRAT( 644 ) = RKI( 644 ) * YC( xCLCCHO ) * YC( MEO2 ) RXRAT( 645 ) = RKI( 645 ) * YC( xCLCCHO ) * YC( RO2C ) RXRAT( 646 ) = RKI( 646 ) * YC( xCLCCHO ) * YC( RO2XC ) RXRAT( 647 ) = RKI( 647 ) * YC( xCLCCHO ) * YC( MECO3 ) RXRAT( 648 ) = RKI( 648 ) * YC( xCLCCHO ) * YC( RCO3 ) RXRAT( 649 ) = RKI( 649 ) * YC( xCLCCHO ) * YC( BZCO3 ) RXRAT( 650 ) = RKI( 650 ) * YC( xCLCCHO ) * YC( MACO3 ) RXRAT( 651 ) = RKI( 651 ) * YC( xCLACET ) * YC( NO ) RXRAT( 652 ) = RKI( 652 ) * YC( xCLACET ) * YC( HO2 ) RXRAT( 653 ) = RKI( 653 ) * YC( xCLACET ) * YC( NO3 ) RXRAT( 654 ) = RKI( 654 ) * YC( xCLACET ) * YC( MEO2 ) RXRAT( 655 ) = RKI( 655 ) * YC( xCLACET ) * YC( RO2C ) RXRAT( 656 ) = RKI( 656 ) * YC( xCLACET ) * YC( RO2XC ) RXRAT( 657 ) = RKI( 657 ) * YC( xCLACET ) * YC( MECO3 ) RXRAT( 658 ) = RKI( 658 ) * YC( xCLACET ) * YC( RCO3 ) RXRAT( 659 ) = RKI( 659 ) * YC( xCLACET ) * YC( BZCO3 ) RXRAT( 660 ) = RKI( 660 ) * YC( xCLACET ) * YC( MACO3 ) RXRAT( 661 ) = RKI( 661 ) * YC( CL ) RXRAT( 662 ) = RKI( 662 ) * YC( ETHENE ) * YC( CL ) RXRAT( 663 ) = RKI( 663 ) * YC( PROPENE ) * YC( CL ) RXRAT( 664 ) = RKI( 664 ) * YC( BUTADIENE13 ) * YC( CL ) RXRAT( 665 ) = RKI( 665 ) * YC( ISOPRENE ) * YC( CL ) RXRAT( 666 ) = RKI( 666 ) * YC( APIN ) * YC( CL ) RXRAT( 667 ) = RKI( 667 ) * YC( ACETYLENE ) * YC( CL ) RXRAT( 668 ) = RKI( 668 ) * YC( TOLUENE ) * YC( CL ) RXRAT( 669 ) = RKI( 669 ) * YC( MXYL ) * YC( CL ) RXRAT( 670 ) = RKI( 670 ) * YC( OXYL ) * YC( CL ) RXRAT( 671 ) = RKI( 671 ) * YC( PXYL ) * YC( CL ) RXRAT( 672 ) = RKI( 672 ) * YC( TMBENZ124 ) * YC( CL ) RXRAT( 673 ) = RKI( 673 ) * YC( ETOH ) * YC( CL ) RXRAT( 674 ) = RKI( 674 ) * YC( ALK1 ) * YC( CL ) RXRAT( 675 ) = RKI( 675 ) * YC( ALK2 ) * YC( CL ) RXRAT( 676 ) = RKI( 676 ) * YC( ALK3 ) * YC( CL ) RXRAT( 677 ) = RKI( 677 ) * YC( ALK4 ) * YC( CL ) RXRAT( 678 ) = RKI( 678 ) * YC( ALK5 ) * YC( CL ) RXRAT( 679 ) = RKI( 679 ) * YC( OLE1 ) * YC( CL ) RXRAT( 680 ) = RKI( 680 ) * YC( OLE2 ) * YC( CL ) RXRAT( 681 ) = RKI( 681 ) * YC( ARO1 ) * YC( CL ) RXRAT( 682 ) = RKI( 682 ) * YC( ARO2MN ) * YC( CL ) RXRAT( 683 ) = RKI( 683 ) * YC( NAPHTHAL ) * YC( CL ) RXRAT( 684 ) = RKI( 684 ) * YC( TERP ) * YC( CL ) RXRAT( 685 ) = RKI( 685 ) * YC( SESQ ) * YC( CL ) RXRAT( 686 ) = RKI( 686 ) * YC( BENZRO2 ) * YC( NO ) RXRAT( 687 ) = RKI( 687 ) * YC( BENZRO2 ) * YC( HO2 ) RXRAT( 688 ) = RKI( 688 ) * YC( XYLRO2 ) * YC( NO ) RXRAT( 689 ) = RKI( 689 ) * YC( XYLRO2 ) * YC( HO2 ) RXRAT( 690 ) = RKI( 690 ) * YC( TOLRO2 ) * YC( NO ) RXRAT( 691 ) = RKI( 691 ) * YC( TOLRO2 ) * YC( HO2 ) RXRAT( 692 ) = RKI( 692 ) * YC( PAHRO2 ) * YC( NO ) RXRAT( 693 ) = RKI( 693 ) * YC( PAHRO2 ) * YC( HO2 ) RXRAT( 694 ) = RKI( 694 ) * YC( HCHO_PRIMARY ) RXRAT( 695 ) = RKI( 695 ) * YC( HCHO_PRIMARY ) RXRAT( 696 ) = RKI( 696 ) * YC( HCHO_PRIMARY ) * YC( OH ) RXRAT( 697 ) = RKI( 697 ) * YC( HCHO_PRIMARY ) * YC( NO3 ) RXRAT( 698 ) = RKI( 698 ) * YC( HCHO_PRIMARY ) * YC( CL ) RXRAT( 699 ) = RKI( 699 ) * YC( CCHO_PRIMARY ) * YC( OH ) RXRAT( 700 ) = RKI( 700 ) * YC( CCHO_PRIMARY ) RXRAT( 701 ) = RKI( 701 ) * YC( CCHO_PRIMARY ) * YC( NO3 ) RXRAT( 702 ) = RKI( 702 ) * YC( CCHO_PRIMARY ) * YC( CL ) RXRAT( 703 ) = RKI( 703 ) * YC( ACRO_PRIMARY ) * YC( OH ) RXRAT( 704 ) = RKI( 704 ) * YC( ACRO_PRIMARY ) * YC( O3 ) RXRAT( 705 ) = RKI( 705 ) * YC( ACRO_PRIMARY ) * YC( NO3 ) RXRAT( 706 ) = RKI( 706 ) * YC( ACRO_PRIMARY ) * YC( O3P ) RXRAT( 707 ) = RKI( 707 ) * YC( ACRO_PRIMARY ) RXRAT( 708 ) = RKI( 708 ) * YC( ACRO_PRIMARY ) * YC( CL ) RXRAT( 709 ) = RKI( 709 ) * YC( ISOPRENE ) * YC( OH ) RXRAT( 710 ) = RKI( 710 ) * YC( ISOPO2 ) * YC( NO ) RXRAT( 711 ) = RKI( 711 ) * YC( ISOPO2 ) * YC( HO2 ) RXRAT( 712 ) = RKI( 712 ) * YC( ISOPO2 ) * YC( MEO2 ) RXRAT( 713 ) = RKI( 713 ) * YC( ISOPO2 ) * YC( RO2C ) RXRAT( 714 ) = RKI( 714 ) * YC( ISOPO2 ) * YC( ISOPO2 ) RXRAT( 715 ) = RKI( 715 ) * YC( ISOPO2 ) * YC( MECO3 ) RXRAT( 716 ) = RKI( 716 ) * YC( ISOPO2 ) RXRAT( 717 ) = RKI( 717 ) * YC( HPALD ) RXRAT( 718 ) = RKI( 718 ) * YC( HPALD ) * YC( OH ) RXRAT( 719 ) = RKI( 719 ) * YC( ISOPRENE ) * YC( NO3 ) RXRAT( 720 ) = RKI( 720 ) * YC( NISOPO2 ) * YC( NO3 ) RXRAT( 721 ) = RKI( 721 ) * YC( NISOPO2 ) * YC( NO ) RXRAT( 722 ) = RKI( 722 ) * YC( NISOPO2 ) * YC( HO2 ) RXRAT( 723 ) = RKI( 723 ) * YC( NISOPO2 ) * YC( MEO2 ) RXRAT( 724 ) = RKI( 724 ) * YC( NISOPO2 ) * YC( RO2C ) RXRAT( 725 ) = RKI( 725 ) * YC( NISOPO2 ) * YC( NISOPO2 ) RXRAT( 726 ) = RKI( 726 ) * YC( NISOPO2 ) * YC( MECO3 ) RXRAT( 727 ) = RKI( 727 ) * YC( HC5 ) * YC( OH ) RXRAT( 728 ) = RKI( 728 ) * YC( HC5OO ) * YC( NO ) RXRAT( 729 ) = RKI( 729 ) * YC( HC5OO ) * YC( HO2 ) RXRAT( 730 ) = RKI( 730 ) * YC( HC5OO ) * YC( MEO2 ) RXRAT( 731 ) = RKI( 731 ) * YC( HC5OO ) * YC( RO2C ) RXRAT( 732 ) = RKI( 732 ) * YC( HC5OO ) * YC( MECO3 ) RXRAT( 733 ) = RKI( 733 ) * YC( HC5 ) * YC( O3 ) RXRAT( 734 ) = RKI( 734 ) * YC( ISOPND ) * YC( OH ) RXRAT( 735 ) = RKI( 735 ) * YC( ISOPNOOD ) * YC( NO ) RXRAT( 736 ) = RKI( 736 ) * YC( ISOPNOOD ) * YC( HO2 ) RXRAT( 737 ) = RKI( 737 ) * YC( ISOPNOOD ) * YC( MEO2 ) RXRAT( 738 ) = RKI( 738 ) * YC( ISOPNOOD ) * YC( RO2C ) RXRAT( 739 ) = RKI( 739 ) * YC( ISOPNOOD ) * YC( MECO3 ) RXRAT( 740 ) = RKI( 740 ) * YC( ISOPND ) * YC( O3 ) RXRAT( 741 ) = RKI( 741 ) * YC( ISOPNB ) * YC( OH ) RXRAT( 742 ) = RKI( 742 ) * YC( ISOPNOOB ) * YC( NO ) RXRAT( 743 ) = RKI( 743 ) * YC( ISOPNOOB ) * YC( HO2 ) RXRAT( 744 ) = RKI( 744 ) * YC( ISOPNOOB ) * YC( MEO2 ) RXRAT( 745 ) = RKI( 745 ) * YC( ISOPNOOB ) * YC( RO2C ) RXRAT( 746 ) = RKI( 746 ) * YC( ISOPNOOB ) * YC( MECO3 ) RXRAT( 747 ) = RKI( 747 ) * YC( ISOPNB ) * YC( O3 ) RXRAT( 748 ) = RKI( 748 ) * YC( NIT1 ) * YC( NO3 ) RXRAT( 749 ) = RKI( 749 ) * YC( NIT1NO3OOA ) * YC( NO3 ) RXRAT( 750 ) = RKI( 750 ) * YC( NIT1NO3OOA ) * YC( NO ) RXRAT( 751 ) = RKI( 751 ) * YC( NIT1NO3OOA ) * YC( NO2 ) RXRAT( 752 ) = RKI( 752 ) * YC( NIT1NO3OOA ) * YC( HO2 ) RXRAT( 753 ) = RKI( 753 ) * YC( NIT1NO3OOA ) * YC( RO2C ) RXRAT( 754 ) = RKI( 754 ) * YC( NIT1NO3OOA ) * YC( MEO2 ) RXRAT( 755 ) = RKI( 755 ) * YC( NIT1NO3OOA ) * YC( MECO3 ) RXRAT( 756 ) = RKI( 756 ) * YC( NIT1NO3OOB ) * YC( NO3 ) RXRAT( 757 ) = RKI( 757 ) * YC( NIT1NO3OOB ) * YC( NO ) RXRAT( 758 ) = RKI( 758 ) * YC( NIT1NO3OOB ) * YC( HO2 ) RXRAT( 759 ) = RKI( 759 ) * YC( NIT1NO3OOB ) * YC( RO2C ) RXRAT( 760 ) = RKI( 760 ) * YC( NIT1NO3OOB ) * YC( MEO2 ) RXRAT( 761 ) = RKI( 761 ) * YC( NIT1NO3OOB ) * YC( MECO3 ) RXRAT( 762 ) = RKI( 762 ) * YC( NIT1 ) * YC( O3 ) RXRAT( 763 ) = RKI( 763 ) * YC( NIT1 ) * YC( OH ) RXRAT( 764 ) = RKI( 764 ) * YC( NIT1OHOO ) * YC( NO ) RXRAT( 765 ) = RKI( 765 ) * YC( NIT1OHOO ) * YC( HO2 ) RXRAT( 766 ) = RKI( 766 ) * YC( NIT1OHOO ) * YC( RO2C ) RXRAT( 767 ) = RKI( 767 ) * YC( NIT1OHOO ) * YC( MEO2 ) RXRAT( 768 ) = RKI( 768 ) * YC( NIT1OHOO ) * YC( MECO3 ) RXRAT( 769 ) = RKI( 769 ) * YC( DIBOO ) * YC( NO ) RXRAT( 770 ) = RKI( 770 ) * YC( DIBOO ) * YC( HO2 ) RXRAT( 771 ) = RKI( 771 ) * YC( DIBOO ) * YC( MEO2 ) RXRAT( 772 ) = RKI( 772 ) * YC( DIBOO ) * YC( RO2C ) RXRAT( 773 ) = RKI( 773 ) * YC( DIBOO ) * YC( MECO3 ) RXRAT( 774 ) = RKI( 774 ) * YC( MVK ) * YC( OH ) RXRAT( 775 ) = RKI( 775 ) * YC( MVKOO ) * YC( NO ) RXRAT( 776 ) = RKI( 776 ) * YC( MVKOO ) * YC( HO2 ) RXRAT( 777 ) = RKI( 777 ) * YC( MVKOO ) * YC( MEO2 ) RXRAT( 778 ) = RKI( 778 ) * YC( MVKOO ) * YC( RO2C ) RXRAT( 779 ) = RKI( 779 ) * YC( MVKOO ) * YC( MECO3 ) RXRAT( 780 ) = RKI( 780 ) * YC( MACROO ) * YC( NO ) RXRAT( 781 ) = RKI( 781 ) * YC( MACROO ) * YC( HO2 ) RXRAT( 782 ) = RKI( 782 ) * YC( MACROO ) * YC( MEO2 ) RXRAT( 783 ) = RKI( 783 ) * YC( MACROO ) * YC( RO2C ) RXRAT( 784 ) = RKI( 784 ) * YC( MACROO ) * YC( MECO3 ) RXRAT( 785 ) = RKI( 785 ) * YC( MACO3 ) * YC( NO ) RXRAT( 786 ) = RKI( 786 ) * YC( MACO3 ) * YC( HO2 ) RXRAT( 787 ) = RKI( 787 ) * YC( MACO3 ) * YC( NO3 ) RXRAT( 788 ) = RKI( 788 ) * YC( MACO3 ) * YC( MEO2 ) RXRAT( 789 ) = RKI( 789 ) * YC( MACO3 ) * YC( RO2C ) RXRAT( 790 ) = RKI( 790 ) * YC( MACO3 ) * YC( RO2XC ) RXRAT( 791 ) = RKI( 791 ) * YC( MACO3 ) * YC( MECO3 ) RXRAT( 792 ) = RKI( 792 ) * YC( MACO3 ) * YC( RCO3 ) RXRAT( 793 ) = RKI( 793 ) * YC( MACO3 ) * YC( BZCO3 ) RXRAT( 794 ) = RKI( 794 ) * YC( MACO3 ) * YC( MACO3 ) RXRAT( 795 ) = RKI( 795 ) * YC( MAPAN ) * YC( OH ) RXRAT( 796 ) = RKI( 796 ) * YC( HOCCHO ) * YC( OH ) RXRAT( 797 ) = RKI( 797 ) * YC( HACET ) * YC( OH ) RXRAT( 798 ) = RKI( 798 ) * YC( HACET ) RXRAT( 799 ) = RKI( 799 ) * YC( ETHLN ) * YC( OH ) RXRAT( 800 ) = RKI( 800 ) * YC( ETHLN ) RXRAT( 801 ) = RKI( 801 ) * YC( PROPNN ) * YC( OH ) RXRAT( 802 ) = RKI( 802 ) * YC( ISOPNN ) * YC( OH ) RXRAT( 803 ) = RKI( 803 ) * YC( PROPNN ) RXRAT( 804 ) = RKI( 804 ) * YC( ISOPNN ) RXRAT( 805 ) = RKI( 805 ) * YC( MVKN ) * YC( OH ) RXRAT( 806 ) = RKI( 806 ) * YC( MVKN ) RXRAT( 807 ) = RKI( 807 ) * YC( MACRN ) * YC( OH ) RXRAT( 808 ) = RKI( 808 ) * YC( MACRN ) RXRAT( 809 ) = RKI( 809 ) * YC( DHMOB ) * YC( OH ) RXRAT( 810 ) = RKI( 810 ) * YC( PYRUACD ) RXRAT( 811 ) = RKI( 811 ) * YC( ISOPOOH ) * YC( OH ) RXRAT( 812 ) = RKI( 812 ) * YC( ISOPOOH ) * YC( OH ) RXRAT( 813 ) = RKI( 813 ) * YC( IEPOX ) * YC( OH ) RXRAT( 814 ) = RKI( 814 ) * YC( IEPOXOO ) * YC( HO2 ) RXRAT( 815 ) = RKI( 815 ) * YC( IEPOXOO ) * YC( NO ) RXRAT( 816 ) = RKI( 816 ) * YC( IEPOXOO ) * YC( MEO2 ) RXRAT( 817 ) = RKI( 817 ) * YC( IEPOXOO ) * YC( RO2C ) RXRAT( 818 ) = RKI( 818 ) * YC( IEPOXOO ) * YC( MECO3 ) RXRAT( 819 ) = RKI( 819 ) * YC( ISOPOOH ) RXRAT( 820 ) = RKI( 820 ) * YC( RNO3I ) * YC( OH ) RXRAT( 821 ) = RKI( 821 ) * YC( NISOPOOH ) * YC( OH ) RXRAT( 822 ) = RKI( 822 ) * YC( NISOPOOH ) * YC( OH ) RXRAT( 823 ) = RKI( 823 ) * YC( MACR ) * YC( OH ) RXRAT( 824 ) = RKI( 824 ) * YC( MACR ) * YC( NO3 ) RXRAT( 825 ) = RKI( 825 ) * YC( MACR ) RXRAT( 826 ) = RKI( 826 ) * YC( MACR ) * YC( CL ) RXRAT( 827 ) = RKI( 827 ) * YC( IMACO3 ) * YC( NO ) RXRAT( 828 ) = RKI( 828 ) * YC( IMACO3 ) * YC( HO2 ) RXRAT( 829 ) = RKI( 829 ) * YC( IMACO3 ) * YC( NO3 ) RXRAT( 830 ) = RKI( 830 ) * YC( IMACO3 ) * YC( MEO2 ) RXRAT( 831 ) = RKI( 831 ) * YC( IMACO3 ) * YC( RO2C ) RXRAT( 832 ) = RKI( 832 ) * YC( IMACO3 ) * YC( RO2XC ) RXRAT( 833 ) = RKI( 833 ) * YC( IMACO3 ) * YC( MECO3 ) RXRAT( 834 ) = RKI( 834 ) * YC( IMACO3 ) * YC( RCO3 ) RXRAT( 835 ) = RKI( 835 ) * YC( IMACO3 ) * YC( BZCO3 ) RXRAT( 836 ) = RKI( 836 ) * YC( IMACO3 ) * YC( MACO3 ) RXRAT( 837 ) = RKI( 837 ) * YC( IMACO3 ) * YC( IMACO3 ) RXRAT( 838 ) = RKI( 838 ) * YC( MACROO ) RXRAT( 839 ) = RKI( 839 ) * YC( IMACO3 ) * YC( NO2 ) RXRAT( 840 ) = RKI( 840 ) * YC( IMAPAN ) RXRAT( 841 ) = RKI( 841 ) * YC( IMAPAN ) RXRAT( 842 ) = RKI( 842 ) * YC( xCO ) * YC( IMACO3 ) RXRAT( 843 ) = RKI( 843 ) * YC( xTBUO ) * YC( IMACO3 ) RXRAT( 844 ) = RKI( 844 ) * YC( xMACO3 ) * YC( IMACO3 ) RXRAT( 845 ) = RKI( 845 ) * YC( xRCO3 ) * YC( IMACO3 ) RXRAT( 846 ) = RKI( 846 ) * YC( xMECO3 ) * YC( IMACO3 ) RXRAT( 847 ) = RKI( 847 ) * YC( xMEO2 ) * YC( IMACO3 ) RXRAT( 848 ) = RKI( 848 ) * YC( xNO2 ) * YC( IMACO3 ) RXRAT( 849 ) = RKI( 849 ) * YC( xOH ) * YC( IMACO3 ) RXRAT( 850 ) = RKI( 850 ) * YC( xHO2 ) * YC( IMACO3 ) RXRAT( 851 ) = RKI( 851 ) * YC( xACROLEIN ) * YC( IMACO3 ) RXRAT( 852 ) = RKI( 852 ) * YC( xHOCCHO ) * YC( IMACO3 ) RXRAT( 853 ) = RKI( 853 ) * YC( zRNO3 ) * YC( IMACO3 ) RXRAT( 854 ) = RKI( 854 ) * YC( yRAOOH ) * YC( IMACO3 ) RXRAT( 855 ) = RKI( 855 ) * YC( yR6OOH ) * YC( IMACO3 ) RXRAT( 856 ) = RKI( 856 ) * YC( yROOH ) * YC( IMACO3 ) RXRAT( 857 ) = RKI( 857 ) * YC( xRNO3 ) * YC( IMACO3 ) RXRAT( 858 ) = RKI( 858 ) * YC( xIPRD ) * YC( IMACO3 ) RXRAT( 859 ) = RKI( 859 ) * YC( xMVK ) * YC( IMACO3 ) RXRAT( 860 ) = RKI( 860 ) * YC( xMACR ) * YC( IMACO3 ) RXRAT( 861 ) = RKI( 861 ) * YC( xAFG3 ) * YC( IMACO3 ) RXRAT( 862 ) = RKI( 862 ) * YC( xAFG2 ) * YC( IMACO3 ) RXRAT( 863 ) = RKI( 863 ) * YC( xAFG1 ) * YC( IMACO3 ) RXRAT( 864 ) = RKI( 864 ) * YC( xBALD ) * YC( IMACO3 ) RXRAT( 865 ) = RKI( 865 ) * YC( xBACL ) * YC( IMACO3 ) RXRAT( 866 ) = RKI( 866 ) * YC( xMGLY ) * YC( IMACO3 ) RXRAT( 867 ) = RKI( 867 ) * YC( xGLY ) * YC( IMACO3 ) RXRAT( 868 ) = RKI( 868 ) * YC( xPROD2 ) * YC( IMACO3 ) RXRAT( 869 ) = RKI( 869 ) * YC( xMEK ) * YC( IMACO3 ) RXRAT( 870 ) = RKI( 870 ) * YC( xACETONE ) * YC( IMACO3 ) RXRAT( 871 ) = RKI( 871 ) * YC( xRCHO ) * YC( IMACO3 ) RXRAT( 872 ) = RKI( 872 ) * YC( xCCHO ) * YC( IMACO3 ) RXRAT( 873 ) = RKI( 873 ) * YC( xHCHO ) * YC( IMACO3 ) RXRAT( 874 ) = RKI( 874 ) * YC( xCL ) * YC( IMACO3 ) RXRAT( 875 ) = RKI( 875 ) * YC( xCLACET ) * YC( IMACO3 ) RXRAT( 876 ) = RKI( 876 ) * YC( xCLCCHO ) * YC( IMACO3 ) RXRAT( 877 ) = RKI( 877 ) * YC( IMAPAN ) * YC( OH ) RXRAT( 878 ) = RKI( 878 ) * YC( IMAE ) * YC( OH ) RXRAT( 879 ) = RKI( 879 ) * YC( IHMML ) * YC( OH ) RXRAT( 880 ) = RKI( 880 ) * YC( IMPAA ) * YC( OH ) RXRAT( 881 ) = RKI( 881 ) * YC( MTNO3 ) * YC( CL ) RXRAT( 882 ) = RKI( 882 ) * YC( MTNO3 ) * YC( OH ) RXRAT( 883 ) = RKI( 883 ) * YC( MTNO3 ) RXRAT( 884 ) = RKI( 884 ) * YC( NO2 ) RXRAT( 885 ) = RKI( 885 ) * YC( N2O5 ) RXRAT( 886 ) = RKI( 886 ) * YC( N2O5 ) RXRAT( 887 ) = RKI( 887 ) * YC( H2NO3PIJ ) RXRAT( 888 ) = RKI( 888 ) * YC( H2NO3PK ) RXRAT( 889 ) = RKI( 889 ) * YC( H2NO3PIJ ) * YC( ACLI ) RXRAT( 890 ) = RKI( 890 ) * YC( H2NO3PIJ ) * YC( ACLJ ) RXRAT( 891 ) = RKI( 891 ) * YC( H2NO3PK ) * YC( ACLK ) ! RXRAT( 892 ) = RKI( 892 ) * YC( O3 ) RXRAT( 893 ) = RKI( 893 ) * YC( IEPOX ) RXRAT( 894 ) = RKI( 894 ) * YC( IMAE ) RXRAT( 895 ) = RKI( 895 ) * YC( IHMML ) RXRAT( 896 ) = RKI( 896 ) * YC( IEPOXP ) RXRAT( 897 ) = RKI( 897 ) * YC( IEPOXP ) * YC( ASO4J ) RXRAT( 898 ) = RKI( 898 ) * YC( IEPOXP ) * YC( AIETETJ ) RXRAT( 899 ) = RKI( 899 ) * YC( IEPOXP ) * YC( AIEOSJ ) RXRAT( 900 ) = RKI( 900 ) * YC( IMAEP ) RXRAT( 901 ) = RKI( 901 ) * YC( IMAEP ) * YC( ASO4J ) RXRAT( 902 ) = RKI( 902 ) * YC( IHMMLP ) RXRAT( 903 ) = RKI( 903 ) * YC( IHMMLP ) * YC( ASO4J ) RXRAT( 904 ) = RKI( 904 ) * YC( NO3 ) RXRAT( 905 ) = RKI( 905 ) * YC( AISO1J ) RXRAT( 906 ) = RKI( 906 ) * YC( AISO2J ) RXRAT( 907 ) = RKI( 907 ) * YC( ASQTJ ) RXRAT( 908 ) = RKI( 908 ) * YC( AAVB2J ) RXRAT( 909 ) = RKI( 909 ) * YC( AAVB3J ) RXRAT( 910 ) = RKI( 910 ) * YC( AAVB4J ) RXRAT( 911 ) = RKI( 911 ) * YC( APOCI ) * YC( OH ) RXRAT( 912 ) = RKI( 912 ) * YC( APNCOMI ) * YC( OH ) RXRAT( 913 ) = RKI( 913 ) * YC( APOCJ ) * YC( OH ) RXRAT( 914 ) = RKI( 914 ) * YC( APNCOMJ ) * YC( OH ) RXRAT( 915 ) = RKI( 915 ) * YC( PCVOC ) * YC( OH ) RXRAT( 916 ) = RKI( 916 ) * YC( VLVPO1 ) * YC( OH ) RXRAT( 917 ) = RKI( 917 ) * YC( VSVPO1 ) * YC( OH ) RXRAT( 918 ) = RKI( 918 ) * YC( VSVPO2 ) * YC( OH ) RXRAT( 919 ) = RKI( 919 ) * YC( VSVPO3 ) * YC( OH ) RXRAT( 920 ) = RKI( 920 ) * YC( VIVPO1 ) * YC( OH ) RXRAT( 921 ) = RKI( 921 ) * YC( VLVOO1 ) * YC( OH ) RXRAT( 922 ) = RKI( 922 ) * YC( VLVOO2 ) * YC( OH ) RXRAT( 923 ) = RKI( 923 ) * YC( VSVOO1 ) * YC( OH ) RXRAT( 924 ) = RKI( 924 ) * YC( VSVOO2 ) * YC( OH ) RXRAT( 925 ) = RKI( 925 ) * YC( VSVOO3 ) * YC( OH ) RXRAT( 926 ) = RKI( 926 ) * YC( AMTNO3J ) RXRAT( 927 ) = RKI( 927 ) * YC( AISOPNNJ ) RXRAT( 928 ) = RKI( 928 ) * YC( GLY ) RXRAT( 929 ) = RKI( 929 ) * YC( MGLY ) RETURN END ================================================ FILE: CCTM/src/gas/ebi_saprc07tic_ae7i_aq/hrsolver.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE HRSOLVER( JDATE, JTIME, C, R, L ) C********************************************************************** C C FUNCTION: EBI solver C C PRECONDITIONS: For the SAPRC07TIC_AE7I_AQ mechanism C C KEY SUBROUTINES/FUNCTIONS CALLED: HRRATES, HRG1, HRG2, HRG3 C HRG4, HRPRODLOSS C DEGRADE C C REVISION HISTORY: Created by EBI solver program, Jun 8, 2022 C 21 Jun 10 J.Young: convert for Namelist redesign C 18 Jul 14 B.Hutzell: revised 1) to use the RXNS_DATA and RXNS_FUNCTION C modules instead of include files and 2) to use C real(8) variables C********************************************************************** USE RUNTIME_VARS USE UTILIO_DEFN USE RXNS_DATA USE HRDATA USE PA_IRR_MODULE #ifdef isam USE SA_IRR_DEFN #endif #ifdef sens USE DDM3D_CHEM, ONLY: YCDDM USE CGRID_SPCS, ONLY: GC_SPC #endif USE DEGRADE_ROUTINES, ONLY : DEGRADE, SA_DEGRADE_STEP IMPLICIT NONE C..INCLUDES: C..ARGUMENTS: INTEGER, INTENT( IN ) :: JDATE ! Current date (YYYYDDD) INTEGER, INTENT( IN ) :: JTIME ! Current time (HHMMSS) INTEGER, INTENT( IN ) :: C, R, L ! Cell col, row, lev C..PARAMETERS: INTEGER, PARAMETER :: MXBKUPS = 5 ! Max no. of back-ups allowed INTEGER, PARAMETER :: STAT = 1 ! Status code REAL( 8 ), PARAMETER :: DTMIN = 1.0D-08 ! Smallest time step allowed, min REAL( 8 ), PARAMETER :: EPSLON = 1.0D-30 ! Small number REAL( 8 ), PARAMETER :: MAXPRED = 1.0D+03 ! Upper limit on predicted conc REAL( 8 ), PARAMETER :: ZERO = 1.0D-40 ! effective zero REAL( 8 ), PARAMETER :: FLOOR = 1.0D-08 ! Min conc for RTOL C..EXTERNAL FUNCTIONS: C..SAVED LOCAL VARIABLES: CHARACTER( 16 ), SAVE :: PNAME = 'HRSOLVER' ! Program name LOGICAL, SAVE :: LFIRST = .TRUE. ! Flag for first call LOGICAL, ALLOCATABLE, SAVE :: LEBISPFL( : ) ! Convergence Error Flag for EBI species LOGICAL, ALLOCATABLE, SAVE :: MAXCONC ( : ) ! MAXCONC ERROR Flag for EBI species LOGICAL, ALLOCATABLE, SAVE :: NOTMAX ( : ) ! Initial concentration not greater than MAXPRED REAL( 8 ), ALLOCATABLE, SAVE :: RERROR ( : ) ! Relative Error REAL( 8 ), ALLOCATABLE, SAVE :: AERROR ( : ) ! Absolute Error C..SCRATCH LOCAL VARIABLES: CHARACTER( 132 ) :: MSG ! Message text INTEGER CELLNO ! Cell no. fo debug output INTEGER ITER ! Loop index for Backward Euler iterations INTEGER S ! Loop index for species INTEGER SP ! Imbedded loop index for species INTEGER NEBI ! Loop index for time steps INTEGER NINR ! No. of inner time steps #ifdef hrdebug INTEGER N ! Loop index #endif INTEGER M ! species index INTEGER EBI ! Loop index INTEGER NBKUPS ! No. of times time step reduced INTEGER ERR ! Allocate error flag LOGICAL LEBI_CONV ! Flag for EBI convergence LOGICAL MXFL ! hit MAXPRED flag REAL( 8 ) DTC ! Time step to take REAL( 8 ) DTG ! Time step in degrade routines, sec REAL( 8 ) FXDLOSS ! Total loss due to negative stoichiometry REAL( 8 ) VARLOSS ! Loss excluding negative stoichiometry #ifdef hrdebug CHARACTER( 8 ) :: NOTE ! Convergence fail note INTEGER COL ! Column to generate deboug output for INTEGER ROW ! Row to generate deboug output for INTEGER LEV ! Level to generate deboug output for INTEGER DBGOUT ! Output unit for debu outpt LOGICAL LDEBUG ! Debug output flag LOGICAL, SAVE :: LOPEN = .FALSE. #endif C********************************************************************** IF( LFIRST ) THEN LFIRST = .FALSE. ALLOCATE ( LEBISPFL( NUMB_MECH_SPC ), STAT = ERR ) IF ( ERR .NE. 0 ) THEN MSG = 'Error allocating LEBISPFL' CALL M3EXIT( PNAME, JDATE, JTIME, MSG, XSTAT1 ) END IF ALLOCATE ( MAXCONC( NUMB_MECH_SPC ), STAT = ERR ) IF ( ERR .NE. 0 ) THEN MSG = 'Error allocating MAXCONC' CALL M3EXIT( PNAME, JDATE, JTIME, MSG, XSTAT1 ) END IF ALLOCATE ( NOTMAX( NUMB_MECH_SPC ), STAT = ERR ) IF ( ERR .NE. 0 ) THEN MSG = 'Error allocating NOTMAX' CALL M3EXIT( PNAME, JDATE, JTIME, MSG, XSTAT1 ) END IF ALLOCATE ( RERROR( NUMB_MECH_SPC ), STAT = ERR ) IF ( ERR .NE. 0 ) THEN MSG = 'Error allocating ERROR' CALL M3EXIT( PNAME, JDATE, JTIME, MSG, XSTAT1 ) END IF ALLOCATE ( AERROR( NUMB_MECH_SPC ), STAT = ERR ) IF ( ERR .NE. 0 ) THEN MSG = 'Error allocating AERROR' CALL M3EXIT( PNAME, JDATE, JTIME, MSG, XSTAT1 ) END IF END IF #ifdef sens YCDDM = 0.0D0 #endif c++++++++++++++++++++++++Debug section++++++++++++++++++++++++++++++++++ #ifdef hrdebug COL = 0 ROW = 0 LEV = 0 IF( C .EQ. COL .AND. R .EQ. ROW .AND. L .EQ. LEV ) THEN c IF( JTIME .EQ. 160000 ) THEN LDEBUG = .TRUE. ELSE LDEBUG = .FALSE. END IF IF( LDEBUG ) THEN IF( .NOT. LOPEN ) THEN DBGOUT = JUNIT() OPEN( UNIT = DBGOUT, FILE = 'debug.out' ) LOPEN = .TRUE. END IF WRITE( DBGOUT, '( A, 2I4, I3, 1X, I7, 1X, I6 ) ' ) & 'Debug output for col/row/lev/date/time:', & C, R, L, JDATE, JTIME WRITE( DBGOUT, '( A, F7.2) ' ) & 'EBI_TMSTEP = ', EBI_TMSTEP WRITE( DBGOUT, '( A )' ) 'Starting concs and rate constants' DO N = 1, NUMB_MECH_SPC WRITE( DBGOUT, '( A, I3, 1X, A, 1X, 1PD13.5 )' ) & 'SP ',N, CHEMISTRY_SPC( N ), YC( N ) END DO DO N = 1, N_RXNS WRITE( DBGOUT, '( A, I3, 1X, 1PD13.5 )' ) & 'RKI ', N, RKI( N ) END DO END IF #endif c++++++++++++++++++++++++Debug section++++++++++++++++++++++++++++++++++ DTC = EBI_TMSTEP N_EBI_IT = 0 NBKUPS = 0 N_INR_STEPS = 1 NEBI = 1 LEBI_CONV = .TRUE. #ifdef isam UPDATE_SOLD = .FALSE. UPDATE_PROBABILITIES = .TRUE. CALL SA_IRR_UNBLOCKED ( .TRUE., RKI, YC, DTC ) #endif DO S = 1, NUMB_MECH_SPC IF( YC( S ) .LE. MAXPRED )THEN NOTMAX( S ) = .TRUE. ELSE NOTMAX( S ) = .FALSE. WRITE(LOGDEV,91000)C, R, L, CHEMISTRY_SPC(S), YC(S) END IF END DO ! Initial PA_IRR IF( CALL_IRR ) CALL PA_IRR ( .TRUE., RKI, YC, DTC ) SA_DEGRADE_STEP = 0 TSTEP_EBI: DO ! EBI time-step loop SUBSTEP_EBI: DO NINR = 1, N_INR_STEPS ! time substeps loop ! first attempt is sub time-step equals EBI time-step IF( LEBI_CONV ) YC0 = YC ! Set ICs for EBI iterations ITER_SUBSTEP: DO ITER = 1, NEBITER ! iteration loop solving for sub time-step N_EBI_IT = N_EBI_IT + 1 CALL HRRATES c++++++++++++++++++++++++Debug section++++++++++++++++++++++++++++++++++ #ifdef hrdebug IF( LDEBUG ) THEN WRITE( DBGOUT, '( A, I5 )' ) 'ITER NO ', ITER WRITE( DBGOUT, '( A, F12.5 )' ) & ' DTC=', DTC IF( ITER .EQ. 1 ) THEN WRITE( DBGOUT, '( A )' ) 'Starting reaction rates' DO N = 1, N_RXNS WRITE( DBGOUT, '( A, I3, 1X, 1PD13.5 )' ) & 'RXRAT ', N, RXRAT( NCELL, N ) END DO END IF END IF #endif c++++++++++++++++++++++++Debug section++++++++++++++++++++++++++++++++++ cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Call routines to compute concentrations of groups 1-4 cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc CALL HRG1( DTC ) CALL HRG2( DTC ) CALL HRG3( DTC ) CALL HRG4( DTC ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Do the Euler backward method cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc CALL HRPRODLOSS DO EBI = 1, N_EBISP S = EBISP( EBI ) YCP( S ) = YC( S )*( ( YC0( S ) + PROD( S ) * DTC ) & / ( YC( S ) + LOSS( S ) * DTC ) ) END DO cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Check for convergence cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc LEBI_CONV = .TRUE. MXFL = .FALSE. DO S = 1, NUMB_MECH_SPC LEBISPFL( S ) = .FALSE. YCP( S ) = MAX( ZERO, YCP( S ) ) AERROR( S ) = MAX( ABS( YC(S)-YCP(S) ), EPSLON ) RERROR( S ) = AERROR( S ) / MAX( FLOOR, ABS( YC(S)+YCP(S) ) ) IF( RERROR( S ) .GT. RTOL(S) .OR. AERROR( S ) .GT. 1.0D-5 )THEN LEBI_CONV = .FALSE. LEBISPFL( S ) = .TRUE. END IF c..test if predictions growing too large IF( YCP( S ) .GT. MAXPRED .AND. NOTMAX( S ) ) THEN MXFL = .TRUE. LEBI_CONV = .FALSE. LEBISPFL( S ) = .TRUE. END IF YC( S ) = YCP( S ) END DO c..test if predictions growing too large, abort interation loop IF( MXFL ) EXIT ITER_SUBSTEP c++++++++++++++++++++++++Debug section++++++++++++++++++++++++++++++++++ #ifdef hrdebug IF( LDEBUG ) THEN WRITE( DBGOUT, '( A, I5 )' ) 'Concs after ITER= ', ITER DO S = 1, NUMB_MECH_SPC IF( LEBISPFL( S ) ) THEN NOTE = 'CONV FAIL' ELSE NOTE = ' ' END IF WRITE( DBGOUT, '( I3, 1X, A, 1PD13.5, 1X, A )' ) & S, CHEMISTRY_SPC( S ), YC( S ), NOTE END DO IF( LEBI_CONV ) WRITE( DBGOUT, '( A )' ) & '****Convergence achieved' END IF #endif c++++++++++++++++++++++++Debug section++++++++++++++++++++++++++++++++++ IF( LEBI_CONV ) THEN DTG = 60.0D0 * DTC DO S = 1, NUMB_MECH_SPC M = CGRID_INDEX( S ) YCCELL( M ) = YC( S ) END DO #if defined(isam) || defined(verbose_isam) SA_DEGRADE_STEP = SA_DEGRADE_STEP + 1 #endif IF( CALL_DEG )CALL DEGRADE(YCCELL, DTG, JDATE, JTIME) ! :WTH Call degradation routine IF( CALL_IRR ) CALL PA_IRR ( .FALSE., RKI, YC, DTC ) #ifdef isam IF( NEBI .EQ. N_EBI_STEPS )UPDATE_SOLD = .TRUE. CALL SA_IRR_UNBLOCKED ( .FALSE., RKI, YC, DTC ) UPDATE_PROBABILITIES = .FALSE. #endif #ifdef sens C Update the sum for the average over the chemistry integration YCDDM = YCDDM & + ( ( 0.5D0 * DTC ) * ( YC + YC0 ) ) #endif CYCLE SUBSTEP_EBI ! solve for next sub time-step END IF END DO ITER_SUBSTEP ! interating for substep failed, attempt to increase number of sub time-steps NBKUPS = NBKUPS + 1 ! IF( NBKUPS .LE. MXBKUPS ) THEN IF ( DTC .GT. DTMIN ) THEN ! reset YC and cut sub time-step in half IF ( MXFL ) THEN WRITE( LOGDEV, 92008 ) NBKUPS WRITE( LOGDEV, 92009 ) C+PECOL_OFFSET, R+PEROW_OFFSET, L DO S = 1, NUMB_MECH_SPC IF( LEBISPFL( S ) )WRITE( LOGDEV, 92010 )TRIM( CHEMISTRY_SPC( S ) ), & YC0(S), YCP(S) END DO ELSE WRITE( LOGDEV, 92000 ) C+PECOL_OFFSET, R+PEROW_OFFSET, L, NBKUPS DO S = 1, NUMB_MECH_SPC IF( LEBISPFL( S ) )WRITE( LOGDEV, 92010 )TRIM( CHEMISTRY_SPC( S ) ), & YC0(S), YCP(S) END DO END IF YC = YC0 ! Set ICs for EBI time-step DTC = 0.5D0 * DTC N_INR_STEPS = 2 ** NBKUPS EXIT SUBSTEP_EBI ELSE WRITE( LOGDEV, 92040 ) C+PECOL_OFFSET, R+PEROW_OFFSET, L WRITE( LOGDEV, 92060 ) DO S = 1, NUMB_MECH_SPC IF( LEBISPFL( S ) ) WRITE( LOGDEV, 92080 ) CHEMISTRY_SPC( S ), & YC0(S), YCP(S) END DO MSG = 'ERROR: Stopping because of EBI convergence failures' CALL M3EXIT( PNAME, JDATE, JTIME, MSG, XSTAT2 ) END IF END DO SUBSTEP_EBI IF( LEBI_CONV )THEN NEBI = 1 + NEBI ! test for completing final EBI time-step IF( NEBI .GT. N_EBI_STEPS )EXIT TSTEP_EBI ! test whether backups were done IF( NBKUPS .EQ. 0 )CYCLE TSTEP_EBI ! Reset NBKUPS, N_INR_STEPS and sub-time step NBKUPS = 0 N_INR_STEPS = 1 DTC = EBI_TMSTEP END IF END DO TSTEP_EBI #ifdef sens ! Compute average over integration and filter values YCDDM = YCDDM / CHEMSTEP WHERE ( YCDDM .LT. 1.0D-25 ) YCDDM = 0.0D0 #endif RETURN 91000 FORMAT( 'WARNING: EBI solver in cell (',2(I4,','),I4,') Init.Conc. for ', & A16, ' = ', ES12.4,' ppmV') 92000 FORMAT( 'WARNING: EBI Euler convergence failure' / & ' Reducing EBI time step because of ', & ' convergence failure in ' / & ' Cell (', I3, ', ', I3, ', ', I3, ')' , & ' Solution Attempt #', I2 / & ' Below Species Causing Error: Init.Conc, Pred.Conc.' ) 92008 FORMAT( 'WARNING: At solution attempt #', I2 ) 92009 FORMAT( 'WARNING: EBI Euler convergence failure' / & ' Reducing EBI time step because of ', & ' MAXPRED failure in ' / & ' Cell (', I3, ', ', I3, ', ', I3, ')' , & ' for the below species: : Init.Conc, Pred.Conc.') 92010 FORMAT( A16, 2(1X,ES12.4), ' ppmV' ) 92040 FORMAT( 'ERROR: Max number of EBI time step reductions exceeded' & / ' Convergence failure for cell (', I3, ', ', I3, & ', ', I3, ')' ) 92060 FORMAT( ' Convergence failure for the following species:', & 'Init.Conc, Pred.Conc.' ) 92080 FORMAT( 10X, A, 2(1X,ES12.4), ' ppmV ' ) 92061 FORMAT( ' Convergence failure for the following species:', & 'Init.Conc, Pred.Conc.,Rel.Error,' ) 92081 FORMAT( 10X, A, 2(1X,ES12.4), ' ppmV ', ES12.4,'%' ) END ================================================ FILE: CCTM/src/gas/ros3/rbdata_mod.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/CCTM/src/gas/ros3/rbdata_mod.F,v 1.4 2011/10/21 16:11:10 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% MODULE RBDATA C************************************************************************* C C Function: Mechanism & solver data for ROS3 solver C C Preconditions: None C C Key Subroutines/Functions Called: None C C REVISIOn History: Prototype created by Jerry Gipson, August, 2004 C 31 Jan 05 J.Young: dyn alloc - establish both horizontal C & vertical domain specifications in one module (GRID_CONF) C Get BLKSIZE from module GRID_CONF C 29 Jul 05 WTH: added variable used by degrade routines. C 10 Aug 11 J.Young: Replaced I/O API include files C with UTILIO_DEFN C 15 Jul 14 B.Hutzell: 1) added variable to variable to converted C species concentration unit based on species type C 21 Mar 22 G . Sarwar: changed BLKLAND to BLKSEAWATER C************************************************************************* USE GRID_CONF ! horizontal & vertical domain specifications IMPLICIT NONE #ifdef rbstats INTEGER NSTEPS ! No. of steps for stats INTEGER NFAILS ! No. of convergence failures for stats INTEGER N_BAD_STARTS ! No. of failures at int start for stats #endif c..Miscellaneous variables INTEGER, PARAMETER :: NCS = 1 ! no. of chemical mechanisms INTEGER, PARAMETER :: NCS2 = 2 * NCS ! accounts for day/night INTEGER, PARAMETER :: MXRCT = 3 ! max no. of reactants c..Sparse Matrix maximum dimensions INTEGER, PARAMETER :: MAXGL = 150 ! Max # of P/L terms per species INTEGER, PARAMETER :: MAXGL2 = 70 ! Dimension (smaller than maxgl) INTEGER, PARAMETER :: MAXGL3 = 100 ! Dimension (smaller than maxgl) INTEGER, PARAMETER :: MXARRAY = 5400 ! Max # of terms in I-hJ matrix c..Mechanism specific variables INTEGER :: N_SPEC ! No. of species in mech INTEGER :: N_RXNS ! No. of reactions in mech INTEGER :: MXCOUNT1, MXCOUNT2 ! Sparse matrx pntr dimensions INTEGER :: MXRR, MXRP ! Max # of PD terms LOGICAL :: LREORDER ! Flag to reorder or not LOGICAL :: LORDERING ! Flag for reordering LOGICAL :: LSUNLIGHT ! Flag for sun c...Allocatable arrays REAL( 8 ), ALLOCATABLE :: RKI( :,: ) ! Rate constants REAL( 8 ), ALLOCATABLE :: ATOL( : ) ! Species absolute tolerances REAL( 8 ), ALLOCATABLE :: RTOL( : ) ! Species relative tolerances REAL, ALLOCATABLE :: FORWARD_CONV( : ) ! CGRID to CHEM Species conversion factor REAL( 8 ), ALLOCATABLE :: REVERSE_CONV( : ) ! CHEM to CGRID Species conversion factor REAL( 8 ), ALLOCATABLE :: Y( :,: ) ! Species concentrations REAL( 8 ), ALLOCATABLE :: Y_DEGRADE( :,: ) ! Concentration for degradation #ifdef sens REAL( 8 ), ALLOCATABLE :: YAVE( :,: ) ! Species concentrations #endif c..Block variables INTEGER :: BLKID ! Block ID INTEGER :: NBLKS ! No. of blocks in domain INTEGER :: NUMCELLS ! No. of cells in a block c..Sparse Matrix variables INTEGER :: ISCHAN ! No. of reacting species in current mech INTEGER :: ISCHANG( NCS ) ! No. of reacting species in day & nite INTEGER :: NUSERAT( NCS2 ) ! No. of active rxns in day & nite INTEGER :: IARRAY( NCS2 ) ! No. of PD terms in I-hJ matrix C Most of the following are allocated in RBINIT INTEGER, ALLOCATABLE :: NKUSERAT( :,: ) ! Rxn nos of active rxns INTEGER, ALLOCATABLE :: IRM2 ( :,:,: ) ! Species rxn array INTEGER, ALLOCATABLE :: ICOEFF( :,:,: ) ! stoich coeff indx INTEGER, ALLOCATABLE :: JARRAYPT( :,:,: ) ! A-Matrix index INTEGER, ALLOCATABLE :: JARRL( :,:,: ) ! Pntr to PD Loss term INTEGER, ALLOCATABLE :: JARRP( :,:,: ) ! Pntr to PD Prod term INTEGER, ALLOCATABLE :: JLIAL( :,:,: ) ! Spec # for PD loss term INTEGER, ALLOCATABLE :: JPIAL( :,:,: ) ! Spec # for PD prod term INTEGER, ALLOCATABLE :: INEW2OLD( :,: ) ! Spec index xref INTEGER, ALLOCATABLE :: IOLD2NEW( :,: ) ! Spec index xref INTEGER, ALLOCATABLE :: NDERIVL( :,: ) ! # of PD loss terms INTEGER, ALLOCATABLE :: NDERIVP( :,: ) ! # of PD prod terms c..indices for decomposition INTEGER, ALLOCATABLE :: JZLO( : ) ! # of ops in decmp loop 1 INTEGER, ALLOCATABLE :: IDEC1LO( :,: ) ! decomp loop 1 bound INTEGER, ALLOCATABLE :: IDEC1HI( :,: ) ! decomp loop 1 bound INTEGER, ALLOCATABLE :: IJDECA( : ) ! Pntr for ij term 1 in decomp loop 1 INTEGER, ALLOCATABLE :: IJDECB( : ) ! Pntr for ij term 2 in decomp loop 1 INTEGER, ALLOCATABLE :: IKDECA( : ) ! Pntr for ik term 1 in decomp loop 1 INTEGER, ALLOCATABLE :: IKDECB( : ) ! Pntr for ik term 2 in decomp loop 1 INTEGER, ALLOCATABLE :: KJDECA( : ) ! Pntr for kj term 1 in decomp loop 1 INTEGER, ALLOCATABLE :: KJDECB( : ) ! Pntr for kj term 2 in decomp loop 1 INTEGER, ALLOCATABLE :: JZEROA( : ) ! Pntr for j term 1 in decomp loop 2 INTEGER, ALLOCATABLE :: JZEROB( : ) ! Pntr for j term 2 in decomp loop 2 INTEGER, ALLOCATABLE :: JHIZ1( :,: ) ! # of 2-term groups in dcmp loop 2 INTEGER, ALLOCATABLE :: JHIZ2( :,: ) ! # of 1-term groups in dcmp loop 2 INTEGER, ALLOCATABLE :: KZLO1( :,: ) ! Start indx for 2-term bksb loop 1 INTEGER, ALLOCATABLE :: KZLO2( :,: ) ! Start indx for 1-term bksb loop 1 INTEGER, ALLOCATABLE :: KZHI0( :,: ) ! End index for 5-term bksub loop 1 INTEGER, ALLOCATABLE :: KZHI1( :,: ) ! End index for 2-term bksub loop 1 INTEGER, ALLOCATABLE :: KZERO( :,: ) ! Pointer to bksub j index INTEGER, ALLOCATABLE :: MZHI0 ( :,: ) ! End index for 5-term bksub loop 2 INTEGER, ALLOCATABLE :: MZHI1 ( :,: ) ! End index for 2-term bksub loop 2 INTEGER, ALLOCATABLE :: MZILCH( :,: ) ! # of calcs in bksub loop 2 (U) INTEGER, ALLOCATABLE :: MZLO1 ( :,: ) ! Start indx for 2-term bksb loop 2 INTEGER, ALLOCATABLE :: MZLO2 ( :,: ) ! Start indx for 1-term bksb loop 2 INTEGER, ALLOCATABLE :: KZILCH( :,: ) ! # of calcs in bksub loop 1 (L) C Allocated here INTEGER, ALLOCATABLE :: CCOL( : ) ! Column indx of ordered cells INTEGER, ALLOCATABLE :: CROW( : ) ! Row indx for ordered cells INTEGER, ALLOCATABLE :: CLEV( : ) ! Layer indx of ordered cells INTEGER, ALLOCATABLE :: BLKCNO( : ) ! Cell offset for each block INTEGER, ALLOCATABLE :: BLKLEN( : ) ! # of cells in each block INTEGER, ALLOCATABLE :: NORDCELL( : ) ! Ordered cell's original cell # C Domain decomposition info from CONC file INTEGER :: STARTCOLCO INTEGER :: ENDCOLCO INTEGER :: STARTROWCO INTEGER :: ENDROWCO REAL( 8 ), ALLOCATABLE :: VDIAG( :,: ) ! LU-Matrix diagonal terms REAL( 8 ), ALLOCATABLE :: CC2( :,: ) ! Array holding LU-Matrix REAL( 8 ), ALLOCATABLE :: ERRMX2( : ) ! Estimated stiffness of each cell REAL( 8 ), ALLOCATABLE :: BLKTEMP( : ) ! Cell temp, deg K REAL( 8 ), ALLOCATABLE :: BLKPRES( : ) ! Cell press, Pa REAL( 8 ), ALLOCATABLE :: BLKCH2O( : ) ! Cell water conc, ppm REAL( 8 ), ALLOCATABLE :: BLKDENS( : ) ! Cell air density, kg/m^3 REAL, ALLOCATABLE :: BLKSVOL( : ) ! Cell air specific volume, m^3/kg INTEGER :: NJPHOT ! Number of J-values set in PHOT REAL( 8 ), ALLOCATABLE :: RJBLK( :,: ) ! J-values for each cell in block LOGICAL :: CALL_DEG = .FALSE. ! SWITCH for calling DEGRADE routine REAL( 8 ), ALLOCATABLE :: BLKSEAWATER( : ) ! fractional area of OPEN+SURF LOGICAL :: PRINT_CELL INTEGER :: ROS3_LOG CONTAINS FUNCTION CELLVAR_ALLOC() RESULT ( SUCCESS ) USE UTILIO_DEFN LOGICAL :: SUCCESS LOGICAL, SAVE :: FIRSTIME = .TRUE. INTEGER :: ALST CHARACTER( 96 ) :: XMSG = ' ' C This function is expected to be called only once - at startup IF ( FIRSTIME ) THEN FIRSTIME = .FALSE. SUCCESS = .TRUE. ALLOCATE ( CCOL( MXCELLS ), STAT = ALST ) IF ( ALST .NE. 0 ) THEN XMSG = '*** CCOL Memory allocation failed' CALL M3WARN ( 'CELLVAR_ALLOC', 0, 0, XMSG ) SUCCESS = .FALSE.; RETURN END IF CCOL = 0 ALLOCATE ( CROW( MXCELLS ), STAT = ALST ) IF ( ALST .NE. 0 ) THEN XMSG = '*** CROW Memory allocation failed' CALL M3WARN ( 'CELLVAR_ALLOC', 0, 0, XMSG ) SUCCESS = .FALSE.; RETURN END IF CROW = 0 ALLOCATE ( CLEV( MXCELLS ), STAT = ALST ) IF ( ALST .NE. 0 ) THEN XMSG = '*** CLEV Memory allocation failed' CALL M3WARN ( 'CELLVAR_ALLOC', 0, 0, XMSG ) SUCCESS = .FALSE.; RETURN END IF CLEV = 0 ALLOCATE ( BLKCNO( MXBLKS ), STAT = ALST ) IF ( ALST .NE. 0 ) THEN XMSG = '*** BLKCNO Memory allocation failed' CALL M3WARN ( 'CELLVAR_ALLOC', 0, 0, XMSG ) SUCCESS = .FALSE.; RETURN END IF BLKCNO = 0 ALLOCATE ( BLKLEN( MXBLKS ), STAT = ALST ) IF ( ALST .NE. 0 ) THEN XMSG = '*** BLKLEN Memory allocation failed' CALL M3WARN ( 'CELLVAR_ALLOC', 0, 0, XMSG ) SUCCESS = .FALSE.; RETURN END IF BLKLEN = 0 ALLOCATE ( NORDCELL( MXCELLS ), STAT = ALST ) IF ( ALST .NE. 0 ) THEN XMSG = '*** NORDCELL Memory allocation failed' CALL M3WARN ( 'CELLVAR_ALLOC', 0, 0, XMSG ) SUCCESS = .FALSE.; RETURN END IF NORDCELL = 0 ALLOCATE ( ERRMX2( MXCELLS ), STAT = ALST ) IF ( ALST .NE. 0 ) THEN XMSG = '*** ERRMX2 Memory allocation failed' CALL M3WARN ( 'CELLVAR_ALLOC', 0, 0, XMSG ) SUCCESS = .FALSE.; RETURN END IF ERRMX2 = 0 ELSE ! called more than once XMSG = 'Horizontal domain dependent variables already allocated' CALL M3WARN ( 'CELLVAR_ALLOC', 0, 0, XMSG ) SUCCESS = .FALSE.; RETURN END IF ! FIRSTIME RETURN END FUNCTION CELLVAR_ALLOC END MODULE RBDATA ================================================ FILE: CCTM/src/gas/ros3/rbdecomp.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/CCTM/src/gas/ros3/rbdecomp.F,v 1.3 2011/10/21 16:11:10 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% SUBROUTINE RBDECOMP( NCSP ) C*********************************************************************** C C Function: Decompose the matrix [A] into lower- and upper- C triangular form to facilitate solution of the set of C linear simultaneous equations of the form [A]{x}={b}. C C Preconditions: None C C Key Subroutines/Functions Called: None C C Revision History: Prototype created by Jerry Gipson, August, 2004. C Based on the SMVGEAR code originally developed by C M. Jacobson, (Atm. Env., Vol 28, No 2, 1994). C C 14 Jul 14 B.Hutzell: added intent declaration to arguments C*********************************************************************** USE RBDATA ! ROS3 solver data IMPLICIT NONE C..Includes: INTEGER, INTENT( IN ) :: NCSP ! Index of chem mech to use ! 1=gas/day, 2=gas/night C..Arguments: None C..Parameters: None C..External Functions: None C..Local Variables: INTEGER IAR ! Pointer to diagonal terms INTEGER IC ! Loop index for ops in decomp loop 1 INTEGER IDLO ! Start index for decomp loop 1 INTEGER IDHI ! End index for decomp loop 1 INTEGER IJ0 ! Pointer to ij term 1 in decomp loop 1 INTEGER IJ1 ! Pointer to ij term 2 in decomp loop 1 INTEGER IJA ! Pointer to ij term 1 in decomp loop 2 INTEGER IJB ! Pointer to ij term 2 in decomp loop 2 INTEGER IK0 ! Pointer to ik term 1 in decomp loop 1 INTEGER IK1 ! Pointer to ik term 2 in decomp loop 1 INTEGER J ! Loop index for number of species INTEGER JC ! Loop index for ops in decomp loop 2 INTEGER JHI1 ! End index for 2-term decomp loop 2 INTEGER JHI2 ! End index for 1-term decomp loop 2 INTEGER JLO1 ! Start index for 2-term decomp loop 2 INTEGER JLO2 ! Start index for 1-term decomp loop 2 INTEGER KJ0 ! Pointer to kj term 1 in decomp loop 1 INTEGER KJ1 ! Pointer to kj term 2 in decomp loop 1 INTEGER NCELL ! Loop index for number of cells c*********************************************************************** cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c First loop of L-U decomposition cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc JHI2 = JZLO( NCSP ) DO 100 J = 1, ISCHAN IDLO = IDEC1LO( J,NCSP ) IDHI = IDEC1HI( J,NCSP ) DO IC = IDLO, IDHI IJ0 = IJDECA( IC ) IJ1 = IJDECB( IC ) IK0 = IKDECA( IC ) IK1 = IKDECB( IC ) KJ0 = KJDECA( IC ) KJ1 = KJDECB( IC ) DO NCELL = 1, NUMCELLS CC2( NCELL,IJ0 ) = CC2( NCELL,IJ0 ) & - CC2( NCELL,IK0 ) * CC2( NCELL,KJ0 ) CC2( NCELL,IJ1 ) = CC2( NCELL,IJ1 ) & - CC2( NCELL,IK1 ) * CC2( NCELL,KJ1 ) END DO END DO c...vdiag = 1 / current diagonal term of the decomposed matrix IAR = JARRAYPT( J, J, NCSP ) DO NCELL = 1, NUMCELLS VDIAG( NCELL,J ) = 1.0D0 / CC2( NCELL,IAR ) END DO cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Second loop of decompostion. The elements of L are divided by the c diagonal element, and the process is divided into parts to improve c vectorization. cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc JLO1 = JHI2 + 1 JHI1 = JHI2 + JHIZ1( J, NCSP ) JLO2 = JHI1 + 1 JHI2 = JHI1 + JHIZ2( J, NCSP ) c...do 2 terms at a time DO JC = JLO1, JHI1 IJA = JZEROA( JC ) IJB = JZEROB( JC ) DO NCELL = 1, NUMCELLS CC2( NCELL,IJA ) = CC2( NCELL,IJA ) * VDIAG( NCELL,J ) CC2( NCELL,IJB ) = CC2( NCELL,IJB ) * VDIAG( NCELL,J ) END DO END DO c...do 1 term at a time DO JC = JLO2, JHI2 IJA = JZEROA( JC ) DO NCELL = 1, NUMCELLS CC2( NCELL,IJA ) = CC2( NCELL,IJA ) * VDIAG( NCELL,J ) END DO END DO 100 CONTINUE RETURN END ================================================ FILE: CCTM/src/gas/ros3/rbdriver.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE CHEM( CONC, JDATE, JTIME, TSTEP ) C********************************************************************** C C Function: To control gas phase chemistry calculations performed by C the vectorized Rosenbrock solver C C Preconditions: None C C Key Subroutines/Functions Called: RBINIT C RBSPARSE C CALCKS C RBSOLVER C FIND_DEGRADED C INIT_DEGRADE C FINAL_DEGRADE C C Revision History: Prototype created by Jerry Gipson, August, 2004 C Based on the solver described by Sandu et al C ( Atm. Env., Vol. 31, No. 20, 1997 ) and included C in the Kinetic PreProcessor ( see for example C Sandu et al., At, Env., Vol. 37, 5097-5114, C 2003). This code also incorporates efficiency C concepts originally developed by M. Jacobson C for SMVGEAR (Atm. Env., Vol 28, No 2, 1994). C Adapted from Subroutine CHEM in CMAQ SMVGEAR C C 31 Jan 05 J.Young: dyn alloc - establish both horizontal C & vertical domain specifications in one module (GRID_CONF) C 29 Jul 05 WTH: Added IF blocks that call degrade C routines if MECHNAME contains 'TX' C substring. C 28 Jun 10 J.Young: convert for Namelist redesign C 29 Mar 11 S.Roselle: Replaced I/O API include files C with UTILIO_DEFN C 31 Aug 11 B.Hutzell revised method that determines calling C degrade routine C 29 Sep 11 D.Wong: incorporated twoway model implementation C 18 Jan 13 B.Hutzell: 1) added using heteorogeneous rate constants C by using function in AEROSOL_CHEMISTRY module, C 15 Jul 14 B.Hutzell: 1) replaced mechanism include files with C RXNS_DATA module, 2) replaced call to CALCLK with CALC_RCONST in C RXNS_FUNCTION module, 3) enabled reactions between all species C types by using unit conversion factors and 4) revised usage for C INIT_DEGRADE and FINAL_DEGRADE routines C 02 Dec 14 B.Hutzell 1) added terrestrial data to conduct surface C dependent reactions and 2) modified the call CALC_RCONST routine C 16 Sep 16 J.Young: update for inline procan (IRR) C 21 Mar 22 G . Sarwar: updated simple halogen chemistry C********************************************************************** USE RXNS_DATA USE RXNS_FUNCTION USE GRID_CONF ! horizontal & vertical domain specifications USE RBDATA ! ROS3 solver data USE CGRID_SPCS ! CGRID mechanism species USE UTILIO_DEFN USE PHOT_MOD, Only: INIT_PHOT_SHARED, RJ ! photolysis rate, in-line module USE AEROSOL_CHEMISTRY ! USE DEGRADE_SETUP_TOX, ONLY : NCELLS, N_REACT, RXTANT_MAP, USE DEGRADE_ROUTINES, ONLY : NCELLS, N_REACT, RXTANT_MAP, & ICELL_WRITE, WRITE_CELL, WRITE_BLOCK, & FIND_DEGRADED, INIT_DEGRADE_BLK, FINAL_DEGRADE_BLK USE PA_DEFN, Only: LIRR ! Process Anaylsis control and data variable USE PA_IRR_CLT USE CENTRALIZED_IO_MODULE, ONLY : INTERPOLATE_VAR, OCEAN, SZONE #ifdef sens USE DDM3D_CHEM Use DDM3D_DEFN, Only: DATENUM, STARTDATE, IPT, IDATE, HIGH, NP, NPMAX, CKTIME #endif IMPLICIT NONE C..Includes: INCLUDE SUBST_FILES_ID ! CMAQ files INCLUDE SUBST_CONST ! CMAQ constants C..Arguments: REAL, POINTER :: CONC( :,:,:,: ) ! Concentrations INTEGER JDATE ! Current date (YYYYDDD) INTEGER JTIME ! Current time (HHMMSS) INTEGER TSTEP( 3 ) ! Time step vector (HHMMSS) C..Parameters: INTEGER, PARAMETER :: IZERO = 0 ! Integer zero REAL, PARAMETER :: CONCMIN = 1.0E-30 ! Minimum conc REAL, PARAMETER :: CONCOFM = 1.0E+06 ! conc. of M = 1E+06 ppm REAL, PARAMETER :: PA2ATM = 1.0 / STDATMPA ! Pascal to atm conv fac REAL, PARAMETER :: MAOMV = MWAIR / MWWAT ! Mol Wt of air over Mol Wt of water REAL, PARAMETER :: QV_TO_PPM = CONCOFM * MAOMV ! factor to convert water wapor into ppm C..External Functions: C..Local Variables: LOGICAL, SAVE :: LFIRST = .TRUE. ! Flag for first call to this subroutine LOGICAL, SAVE :: FIRSTCALL = .TRUE. ! Another Flag for first call LOGICAL, SAVE :: LIRRBLK ! Flag for IRR to be done for block INTEGER, SAVE :: NOXYZ ! Total number of grid cells REAL, SAVE :: AIRFC ! Factor to convert gms air to ppm REAL( 8 ) :: CHEMSTEP ! Chem integration interval (min) REAL( 8 ) :: VALLOW ! Value holder for sort routine CHARACTER( 16 ) :: PNAME = 'RBDRIVER' ! Procedure name CHARACTER( 16 ) :: VNAME ! Name of I/O API data variable CHARACTER( 144 ) :: MSG ! Message text INTEGER C, R, L, S ! Loop indices INTEGER ALLOCSTAT ! Allocate status code INTEGER OFFSET ! Starting cell number of a block INTEGER NCSP ! Mech no: 1=gas/day 2=gas/night INTEGER BLK ! Loop index for block of cells INTEGER CELLNUM ! Cell number INTEGER COL ! Column index INTEGER IPAR ! Pointer for cell sort routine INTEGER IRVAL ! Pointer for cell sort routine INTEGER IRXN ! Reaction number INTEGER ISP ! Species index INTEGER ISPOLD ! Species number in original order INTEGER ISPNEW ! Species number in new sorted order INTEGER ITMSTEP ! Chemistry integration interval (sec) INTEGER JPAR ! Pointer for cell sort routine INTEGER JREORD ! Index holder for sort routine INTEGER LEV ! Layer index INTEGER LVAL ! Pointer for cell sort routine INTEGER MIDDATE ! Date at time step midpoint INTEGER MIDTIME ! Time at time step midpoint INTEGER NCELL ! Index for number of cells INTEGER NIRRCLS ! No. of cells in block for IRR INTEGER NPH ! Index for number of phot. rxns in PHOT INTEGER NRX ! Index for number of reactions INTEGER ROW ! Row index INTEGER SPC ! Species loop index INTEGER VAR ! Variable number on I/O API file INTEGER NUMB_CELLS INTEGER, ALLOCATABLE, SAVE :: IRRCELL( : ) ! Cell No. of an IRR cell REAL, ALLOCATABLE, SAVE :: SEAICE ( :, : ) ! fractional seaice cover, [-] ! REAL, ALLOCATABLE, SAVE :: DENSA_J( :, :, : ) ! Cell density (Kg/m**3) REAL, ALLOCATABLE, SAVE :: DENS ( :, :, : ) ! Cell density (Kg/m**3) REAL, ALLOCATABLE, SAVE :: PRES ( :, :, : ) ! Cell pressure (Pa) REAL, ALLOCATABLE, SAVE :: QV ( :, :, : ) ! Cell water vapor (Kg/Kg air) REAL, ALLOCATABLE, SAVE :: TA ( :, :, : ) ! Cell temperature (K) REAL, ALLOCATABLE, SAVE :: SEAWATER_ZONE ( :,: ) ! fractional area of OPEN+SURF REAL( 8 ), ALLOCATABLE, SAVE :: BLKHET( :, : ) #ifdef rbstats CHARACTER( 16 ), SAVE :: CTM_RBSTATS_1 = 'CTM_RBSTATS_1' CHARACTER( 16 ), ALLOCATABLE, SAVE :: VSTATS( : ) ! INTEGER, SAVE :: WSTEP = 0 INTEGER, ALLOCATABLE, SAVE :: STAT_SUM( :,:,:,: ) INTEGER EDATE, ETIME REAL ALLOCATABLE, SAVE :: STATOUT( :, :, : ) #endif INTERFACE SUBROUTINE RBSOLVER ( JDATE, JTIME, CHEMSTEP, NCSP, & LIRRFLAG, NIRRCLS, IRRCELL ) INTEGER, INTENT( IN ) :: JDATE, JTIME REAL( 8 ), INTENT( IN ) :: CHEMSTEP INTEGER, INTENT( IN ) :: NCSP LOGICAL, INTENT( IN ) :: LIRRFLAG INTEGER, INTENT( INOUT ) :: NIRRCLS INTEGER, INTENT( IN ) :: IRRCELL( : ) END SUBROUTINE RBSOLVER SUBROUTINE HETCHEM_UPDATE_AERO( CGRID ) REAL, POINTER :: CGRID( :,:,:,: ) ! species concentration in cell END SUBROUTINE HETCHEM_UPDATE_AERO END INTERFACE C********************************************************************** #ifdef isam MSG = 'ERROR: Rosenbrock Chemistry Solver does not perform source apportionment.' WRITE(LOGDEV,'(A)')TRIM( MSG ) MSG = 'Must use the EBI solver for the chemical mechanism' CALL M3EXIT( PNAME, JDATE, JTIME, MSG, XSTAT1 ) #endif IF ( NUMB_MECH_SPC .EQ. 0 ) THEN CALL M3MESG( '*** WARNING: Gas-Chemistry processing bypassed!' ) RETURN END IF ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c On first call, call routines to set-up for Gear solver and c set-up to do emissions here if that option is invoked ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF ( LFIRST ) THEN LFIRST = .FALSE. ROS3_LOG = LOGDEV ! GASLOG = LOGDEV IF ( .NOT. CELLVAR_ALLOC() ) THEN MSG = 'Failure allocating variables dependent on horizontal extents' CALL M3EXIT( PNAME, JDATE, JTIME, MSG, XSTAT1 ) END IF CALL RBINIT CALL RBSPARSE( ) CALL RESET_SPECIES_POINTERS( IOLD2NEW ) NOXYZ = NCOLS * NROWS * NLAYS C...Initialize and report data WRITE( LOGDEV, 92020 ) NOXYZ, BLKSIZE, NBLKS, BLKLEN( 1 ), BLKLEN( NBLKS ) WRITE( LOGDEV, 92040 ) GLBL_RTOL, GLBL_ATOL C.. Get fractional seawater coverage from the OCEAN file. ALLOCATE( SEAWATER_ZONE( NCOLS, NROWS ) ) DO ROW = 1, NROWS DO COL = 1, NCOLS SEAWATER_ZONE( COL,ROW ) = OCEAN( COL,ROW ) + SZONE( COL,ROW ) END DO END DO #ifdef mpas STARTCOLCO = 1 ENDCOLCO = NCOLS STARTROWCO = 1 ENDROWCO = 1 #else STARTCOLCO = COLSX_PE( 1, MYPE + 1 ) ENDCOLCO = COLSX_PE( 2, MYPE + 1 ) STARTROWCO = ROWSX_PE( 1, MYPE + 1 ) ENDROWCO = ROWSX_PE( 2, MYPE + 1 ) #endif ALLOCATE( DENS( NCOLS, NROWS, NLAYS ), PRES( NCOLS, NROWS, NLAYS ), & QV ( NCOLS, NROWS, NLAYS ), TA ( NCOLS, NROWS, NLAYS ), & SEAICE( NCOLS, NROWS ) ) ALLOCATE( IRRCELL( BLKSIZE ) ) IRRCELL = 0 c..Open file for solver stats if requested #ifdef rbstats ALLOCATE( VSTATS( 3 ) ) VSTATS( 1 ) = 'N_STRT_FAILS' VSTATS( 2 ) = 'N_FAILS' VSTATS( 3 ) = 'N_STEPS' IF ( MYPE .EQ. 0 ) THEN IF ( .NOT. OPEN3( CTM_CONC_1, FSREAD3, PNAME ) ) THEN MSG = 'Could not open ' // CTM_CONC_1 // ' file for readonly' CALL M3EXIT( PNAME, JDATE, JTIME, MSG, XSTAT2 ) END IF IF ( .NOT. DESC3( CTM_CONC_1 ) ) THEN MSG = 'Could not get description of concentration file ' & // CTM_CONC_1 CALL M3EXIT( PNAME, JDATE, JTIME, MSG, XSTAT2 ) END IF EDATE = JDATE ETIME = JTIME CALL NEXTIME( EDATE, ETIME, TSTEP( 1 ) ) SDATE3D = EDATE STIME3D = ETIME NVARS3D = 3 NCOLS3D = GL_NCOLS NROWS3D = GL_NROWS NLAYS3D = NLAYS VNAME3D( 1 ) = 'N_STRT_FAILS' VNAME3D( 2 ) = 'N_FAILS' VNAME3D( 3 ) = 'N_STEPS' VDESC3D( 1 ) = 'Number of fails at start' VDESC3D( 2 ) = 'Number of step fails' VDESC3D( 3 ) = 'Number of steps' UNITS3D( 1 ) = '' UNITS3D( 2 ) = '' UNITS3D( 3 ) = '' VTYPE3D( 1 ) = M3REAL VTYPE3D( 2 ) = M3REAL VTYPE3D( 3 ) = M3REAL IF ( .NOT. OPEN3( CTM_RBSTATS_1, FSNEW3, PNAME ) ) THEN MSG = 'Could not create '// TRIM( CTM_RBSTATS_1 ) // ' file' CALL M3EXIT( PNAME, SDATE3D, STIME3D, MSG, XSTAT2 ) END IF END IF ALLOCATE( STAT_SUM( NCOLS, NROWS, NLAYS, 3 ) ) ALLOCATE( STATOUT( NCOLS, NROWS, NLAYS ) ) STAT_SUM = 0 #endif C..Initialize shared photolysis data CALL INIT_PHOT_SHARED() ALLOCATE( BLKHET( BLKSIZE, NHETERO ) ) C Determine whether DEGRADE rountines are needed. CALL FIND_DEGRADED( JDATE, JTIME, CALL_DEG ) IF( CALL_DEG ) THEN WRITE( LOGDEV, * ) 'DEGRADE ROUTINES USED' WRITE( LOGDEV, * ) 'Mechanism contains degraded species' #ifdef verbose_gas ALLOCATE( WRITE_CELLL( BLKSIZE ) ) ELSE WRITE( LOGDEV, * ) 'DEGRADE ROUTINES not USED' WRITE( LOGDEV, * ) 'Mechanism contains NO degraded species' #endif ENDIF C set up degradation array ALLOCATE( Y_DEGRADE( BLKSIZE, NSPCSD ) ) #ifdef sens CALL INIT_DDM3D_CHEM() C For higher order sensitivities IF ( HIGH ) THEN DO IRXN = 1, NRXNS IF( NREACT( IRXN ) .LE. 1 ) THEN ORDER1( IRXN ) = .TRUE. ELSE ORDER1( IRXN ) = .FALSE. END IF END DO END IF #endif END IF ! First call ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C Start of integration driver after first call ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc NIRRCLS = 0 ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C Set date and time to center of time step, get necessary physical C data, and get photolysis rates ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc MIDDATE = JDATE MIDTIME = JTIME ITMSTEP = TIME2SEC( TSTEP( 2 ) ) CHEMSTEP = REAL( ITMSTEP, 8 ) / 60.0D0 CALL NEXTIME( MIDDATE, MIDTIME, SEC2TIME( ITMSTEP / 2 ) ) C.. Get fractional seaice coverage from the METCRO2D file. CALL INTERPOLATE_VAR ('SEAICE', MIDDATE, MIDTIME, SEAICE) C.. Get ambient temperature in K CALL INTERPOLATE_VAR ('TA', MIDDATE, MIDTIME, TA) C.. Get specific humidity in Kg H2O / Kg air CALL INTERPOLATE_VAR ('QV', MIDDATE, MIDTIME, QV) ! Get ambient MASS DENSITY in Kg/m^3 CALL INTERPOLATE_VAR ('DENS', MIDDATE, MIDTIME, DENS) C.. Get pressure in Pascals CALL INTERPOLATE_VAR ('PRES', MIDDATE, MIDTIME, PRES) C.. Get Heterogeneous Rates using Aerosol Surface Area. Also Store C a snapshot of the aerosol surface area so that it can be C appropriately updated after the solver finds a solution. CALL HETCHEM_RATES( TA, PRES, QV, CONC, DENS ) #ifdef sens C Set the date and hour counters used in sensitivity calls DATENUM = 1 + JDATE - STARTDATE C For reaction rate sensitivities DO NP = 1, NPMAX IF ( IPT( NP ) .EQ. 5 ) THEN CALL CKTIME( JDATE,JTIME,NP,RXNFLAG(NP) ) ! Rxnflag set to true if ipt=5 and time, date within bounds IF ( IDATE( NP, DATENUM ) .NE. 1 ) RXNFLAG( NP ) = .FALSE. ELSE RXNFLAG( NP ) = .FALSE. END IF END DO #endif ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Set flag for reordering of cells and put cells in sequential c order initially ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc LORDERING = .TRUE. IF ( .NOT. LREORDER .OR. NBLKS .EQ. 1 ) LORDERING = .FALSE. DO NCELL = 1, NOXYZ NORDCELL( NCELL ) = NCELL END DO cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C Top of loop over blocks. This loop will be done once if C no reordering, twice if reordering is required cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 100 CONTINUE ERRMX2 = 0.0D0 DO 500 BLK = 1, NBLKS BLKID = BLK NUMCELLS = BLKLEN( BLK ) OFFSET = BLKCNO( BLK ) IF ( .NOT. LORDERING .AND. LIRR ) THEN LIRRBLK = .FALSE. CALL PA_IRR_CKBLK ( NUMCELLS, LIRRBLK, OFFSET, & CCOL, CROW, CLEV, NORDCELL, NIRRCLS, & IRRCELL ) END IF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C Put the grid cell physical data in the block arrays, converting C pressure to atmospheres, water vapor to ppm, emissions to ppm/min, C assigning seawater values cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc DO NCELL = 1, NUMCELLS CELLNUM = NORDCELL( OFFSET + NCELL ) COL = CCOL( CELLNUM ) ROW = CROW( CELLNUM ) LEV = CLEV( CELLNUM ) BLKTEMP( NCELL ) = REAL( TA( COL,ROW,LEV ), 8 ) BLKDENS( NCELL ) = REAL( DENS( COL,ROW,LEV ), 8 ) BLKSVOL( NCELL ) = 1.0 / DENS( COL,ROW,LEV ) BLKPRES( NCELL ) = REAL( PA2ATM * PRES( COL, ROW, LEV ), 8 ) BLKCH2O( NCELL ) = REAL( MAX( QV_TO_PPM * QV( COL,ROW,LEV ), 0.0 ), 8) BLKSEAWATER (NCELL) = MAX ( 0.0, ( SEAWATER_ZONE( COL,ROW ) - SEAICE (COL,ROW) ) ) END DO cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C Put the grid cell concentrations in the block arrays cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc DO ISP = 1, ISCHANG( NCS ) SPC = CGRID_INDEX( ISP ) ! SPC = ISP ISPNEW = IOLD2NEW( ISP,NCS ) DO NCELL = 1, NUMCELLS CELLNUM = NORDCELL( OFFSET + NCELL ) COL = CCOL( CELLNUM ) ROW = CROW( CELLNUM ) LEV = CLEV( CELLNUM ) IF( CONVERT_CONC( ISP ) )THEN Y( NCELL,ISPNEW ) = REAL( MAX( FORWARD_CONV( ISP ) * BLKSVOL( NCELL ) & * CONC( COL,ROW,LEV,SPC ), CONCMIN), 8 ) ELSE Y( NCELL,ISPNEW ) = REAL( MAX( CONC( COL,ROW,LEV,SPC ), CONCMIN), 8 ) END IF END DO END DO cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C Get photolytic, heteorogeneous and thermal rate constants & call solver cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc LSUNLIGHT = .FALSE. DO NCELL = 1, NUMCELLS CELLNUM = NORDCELL( OFFSET + NCELL ) COL = CCOL( CELLNUM ) ! wrong order ROW = CROW( CELLNUM ) LEV = CLEV( CELLNUM ) DO NPH = 1, NHETERO BLKHET( NCELL, NPH ) = KHETERO( NPH, COL, ROW, LEV ) END DO DO NPH = 1, NPHOTAB RJBLK( NCELL,NPH ) = REAL( RJ( COL,ROW,LEV,NPH ), 8 ) IF ( RJBLK( NCELL, NPH ) .GT. 0.0D0 ) LSUNLIGHT = .TRUE. END DO END DO CALL CALC_RCONST( BLKTEMP, BLKPRES, BLKCH2O, RJBLK, BLKHET, LSUNLIGHT, BLKSEAWATER, RKI, NUMCELLS ) IF ( LSUNLIGHT ) THEN NCSP = NCS ELSE NCSP = NCS + 1 END IF C update cell concentrations for degradation routines IF ( CALL_DEG ) THEN Y_DEGRADE = 0.0 DO ISP = 1, NSPCSD DO NCELL = 1, NUMCELLS CELLNUM = NORDCELL( OFFSET + NCELL ) COL = CCOL( CELLNUM ) ROW = CROW( CELLNUM ) LEV = CLEV( CELLNUM ) Y_DEGRADE( NCELL,ISP ) = REAL(MAX( CONC( COL,ROW,LEV,ISP ), CONCMIN), 8 ) END DO END DO ! Use FPP flag to check results from species degrade routines #ifdef verbose_gas WRITE_BLOCK = .FALSE. ICELL_WRITE = 1 DO NCELL = 1, NUMCELLS CELLNUM = NORDCELL( OFFSET + NCELL ) COL = CCOL( CELLNUM ) ROW = CROW( CELLNUM ) LEV = CLEV( CELLNUM ) IF( LEV .EQ. 1 .AND. ROW .EQ. 1 .AND. COL .EQ. 1 )THEN WRITE_BLOCK = .TRUE. ICELL_WRITE = NCELL WRITE_CELL( NCELL ) = .TRUE. ELSE WRITE_CELL( NCELL ) = .FALSE. END IF END DO #endif C..initialize degradation routines NCELLS = NUMCELLS CALL INIT_DEGRADE_BLK( Y_DEGRADE, BLKTEMP, BLKDENS, BLKPRES, BLKCH2O, RJBLK, & JDATE, JTIME ) END IF #ifdef rbstats NSTEPS = 0 NFAILS = 0 N_BAD_STARTS = 0 #endif CALL RBSOLVER( JDATE, JTIME, CHEMSTEP, NCSP, & LIRRBLK, NIRRCLS, IRRCELL ) ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C If not ordering cells, save performance statistics and C store updated concentrations. ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF ( .NOT. LORDERING ) THEN C..Update concentrations DO ISP = 1, ISCHANG( NCS ) ISPOLD = INEW2OLD( ISP,NCS ) SPC = CGRID_INDEX( ISPOLD ) DO NCELL = 1, NUMCELLS CELLNUM = NORDCELL( OFFSET + NCELL ) COL = CCOL( CELLNUM ) ROW = CROW( CELLNUM ) LEV = CLEV( CELLNUM ) IF( CONVERT_CONC( ISPOLD ) )THEN CONC( COL,ROW,LEV,SPC ) = REAL( REVERSE_CONV( ISPOLD ) & * BLKDENS( NCELL ) * Y( NCELL,ISP ), 4) ELSE CONC( COL,ROW,LEV,SPC ) = REAL( Y( NCELL,ISP ), 4) END IF END DO END DO IF ( CALL_DEG ) THEN C Update CGRID based on the degradation routines CALL FINAL_DEGRADE_BLK( Y_DEGRADE ) UPDATE_DEGRADED: DO ISP = 1, N_REACT S = RXTANT_MAP( ISP ) IF( S .LE. 0 )CYCLE UPDATE_DEGRADED DO SPC = 1, NUMB_MECH_SPC IF( S .EQ. CGRID_INDEX( SPC ) )CYCLE UPDATE_DEGRADED END DO DO NCELL = 1, NUMCELLS CELLNUM = NORDCELL( OFFSET + NCELL ) COL = CCOL( CELLNUM ) ROW = CROW( CELLNUM ) LEV = CLEV( CELLNUM ) CONC( COL,ROW,LEV,S ) = REAL( Y_DEGRADE( NCELL,S ), 4) END DO END DO UPDATE_DEGRADED END IF !WTH #ifdef sens NUMB_CELLS = NUMCELLS DO NCELL = 1, NUMB_CELLS DO IRXN = 1, NRXNS SRK( IRXN ) = RKI( NCELL,IRXN ) IF ( HIGH ) THEN IF ( NREACT( IRXN ) .LE. 1 ) THEN SRK2( IRXN ) = 0.0 ELSE IF ( NREACT( IRXN ) .EQ. 2 ) THEN SRK2( IRXN ) = REAL( RKI( NCELL,IRXN ), 4 ) ELSE IF ( NREACT( IRXN ) .EQ. 3 ) THEN SRK2( IRXN ) = REAL( RKI( NCELL,IRXN ),4 ) ELSE SRK2( IRXN ) = 0.0 END IF END IF END DO DO ISP = 1,NUMB_MECH_SPC ! ISPOLD = INEW2OLD( ISP,NCS ) ! YCDDM( ISPOLD ) = YAVE(NCELL,ISP) YCDDM( ISP ) = YAVE(NCELL,ISP) END DO CELLNUM = NORDCELL( OFFSET + NCELL ) COL = CCOL( CELLNUM ) ROW = CROW( CELLNUM ) LEV = CLEV( CELLNUM ) ! CALL SOLVE_DDM3D_CHEM( COL,ROW,LEV,CHEMSTEP ) CALL SOLVE_DDM3D_CHEM( COL,ROW,LEV,CHEMSTEP,IOLD2NEW,INEW2OLD ) END DO NUMCELLS = NUMB_CELLS #endif #ifdef rbstats DO NCELL = 1, NUMCELLS CELLNUM = NORDCELL( OFFSET + NCELL ) COL = CCOL( CELLNUM ) ROW = CROW( CELLNUM ) LEV = CLEV( CELLNUM ) STAT_SUM( COL,ROW,LEV,1 ) = STAT_SUM( COL,ROW,LEV,1 ) & + N_BAD_STARTS STAT_SUM( COL,ROW,LEV,2 ) = STAT_SUM( COL,ROW,LEV,2 ) & + NFAILS STAT_SUM( COL,ROW,LEV,3 ) = STAT_SUM( COL,ROW,LEV,3 ) & + NSTEPS END DO #endif IF ( LIRRBLK ) CALL PA_IRR_BLKENDC ( OFFSET, CCOL, CROW, CLEV, & NORDCELL, NIRRCLS, IRRCELL ) END IF 500 CONTINUE ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C End of block loop; reorder cells if necessary and go back do the C block loop again. Taken from Jacobson 1994. ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF ( LORDERING ) THEN LORDERING = .FALSE. LVAL = NOXYZ / 2 + 1 IRVAL = NOXYZ 600 CONTINUE IF ( LVAL .GT. 1 ) THEN LVAL = LVAL - 1 VALLOW = ERRMX2( LVAL ) JREORD = NORDCELL( LVAL ) ELSE VALLOW = ERRMX2( IRVAL ) JREORD = NORDCELL( IRVAL ) ERRMX2( IRVAL ) = ERRMX2( 1 ) NORDCELL( IRVAL ) = NORDCELL( 1 ) IRVAL = IRVAL - 1 IF ( IRVAL.EQ.1 ) THEN ERRMX2( IRVAL ) = VALLOW NORDCELL( IRVAL ) = JREORD GO TO 100 END IF END IF IPAR = LVAL JPAR = LVAL + LVAL 650 CONTINUE IF ( JPAR .LE. IRVAL ) THEN IF ( JPAR .LT. IRVAL ) THEN IF ( ERRMX2( JPAR ) .LT. ERRMX2( JPAR + 1 ) ) JPAR = JPAR + 1 END IF IF ( VALLOW .LT. ERRMX2( JPAR )) THEN ERRMX2( IPAR ) = ERRMX2( JPAR ) NORDCELL( IPAR ) = NORDCELL( JPAR ) IPAR = JPAR JPAR = JPAR + JPAR ELSE JPAR = IRVAL + 1 END IF GO TO 650 END IF ERRMX2( IPAR ) = VALLOW NORDCELL( IPAR ) = JREORD GO TO 600 END IF !Update Aerosol Surface Area CALL HETCHEM_UPDATE_AERO( CONC ) ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C Output performance statistics if required and return ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc #ifdef rbstats WSTEP = WSTEP + TIME2SEC( TSTEP( 2 ) ) EDATE = JDATE ETIME = JTIME CALL NEXTIME( EDATE, ETIME, TSTEP( 2 ) ) IF ( WSTEP .GE. TIME2SEC( TSTEP( 1 ) ) ) THEN WSTEP = 0 DO S = 1, 3 DO R = 1, NROWS DO C = 1, NCOLS DO L = 1, NLAYS STATOUT( C, R, L ) = INT( STAT_SUM( C,R,L,S ) & + 0.00001 ) END DO END DO END DO IF ( .NOT. WRITE3( CTM_RBSTATS_1, VSTATS( S ), & EDATE, ETIME, STATOUT ) ) THEN XMSG = 'Could not write ' // CTM_RBSTATS_1 // ' file' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF END DO STAT_SUM = 0.0 END IF #endif IF( FIRSTCALL )FIRSTCALL = .FALSE. RETURN C*********************** FORMAT STATEMENTS **************************** 92020 FORMAT( / 10X, 'Chemistry Solver Blocking Parameters ... ', & / 10X, 'Domain Size (number of cells): ', I10 & / 10X, 'Dimensioning Block Size (number of cells): ', I10 & / 10X, 'Number of Blocks: ', I10 & / 10X, 'Size of General Blocks: ', I10 & / 10X, 'Size of Last Block: ', I10 ) 92040 FORMAT( / 10X, 'Rosenbrock Chemistry Solver Error Control ', & 'Parameters ...', & / 10X, 'RTOL : ', 1PE12.3, & / 10X, 'ATOL : ', 1PE12.3, ' ppm' ) END ================================================ FILE: CCTM/src/gas/ros3/rbfeval.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/CCTM/src/gas/ros3/rbfeval.F,v 1.3 2011/10/21 16:11:10 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% SUBROUTINE RBFEVAL( NCSP, YIN, YDOT ) C*********************************************************************** C C Function: Compute YDOT = dc/dt for each species. YDOT is the C net rate of change in species concentrations resulting C from chemical production minus chemical loss. C C Preconditions: None C C Key Subroutines/Functions Called: None C C Revision History: Prototype created by Jerry Gipson, August, 2004 C Based on the SMVGEAR code originally developed by C M. Jacobson, (Atm. Env., Vol 28, No 2, 1994). C 31 Jan 05 J.Young: get BLKSIZE from dyn alloc horizontal C & vertical domain specifications module (GRID_CONF) C 28 Jun 10 J.Young: remove unnecessary modules and includes C 15 Jul 14 B.Hutzell: replaced mechanism include files with C RXNS_DATA module, replaced call to CALC_SPECIAL with C SPECIAL_RATES in RXNS_FUNCTION module and added intent C declarations to arguments C*********************************************************************** USE RXNS_DATA USE RXNS_FUNCTION USE RBDATA ! ROS3 solver data IMPLICIT NONE C..Includes: C..Arguments: INTEGER, INTENT( IN ) :: NCSP ! Index of mech to use: 1=gas/day, 2=gas/night REAL( 8 ), INTENT( INOUT ) :: YIN( :, : ) ! Species concs, ppm REAL( 8 ), INTENT( OUT ) :: YDOT( :, : ) ! Species rates of change, ppm/min C..Parameters: None C..External FUNCTIONS: None C..Local Variables: INTEGER ISP ! Loop index for species INTEGER ISP1, ISP2, ISP3 ! Pointers to species numbers INTEGER NCELL ! Loop index for number of cells INTEGER NP ! Loop index for number of products INTEGER NR ! Loop index for number of reactants INTEGER NRK ! Reaction number INTEGER NRX ! Loop index for number of reactions REAL( 8 ) :: RXRAT( BLKSIZE,NRXNS ) ! Computed rxn rates C*********************************************************************** IF ( NSPECIAL_RXN .GT. 0 ) THEN ! calculate special rate coefficients CALL SPECIAL_RATES( NUMCELLS, YIN, BLKTEMP, BLKDENS, RKI ) END IF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Initialize dc/dt cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc DO ISP = 1, ISCHAN DO NCELL = 1, NUMCELLS YDOT( NCELL,ISP ) = 0.0D0 END DO END DO cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Loop over reactions to calculate dc/dt cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc DO 100 NRX = 1, NUSERAT( NCSP ) NRK = NKUSERAT( NRX,NCSP ) c..Calculate reaction rate IF ( NREACT( NRK ) .EQ. 1 ) THEN ISP1 = IRM2( NRK, 1, NCS ) DO NCELL = 1, NUMCELLS RXRAT( NCELL,NRK ) = RKI( NCELL,NRK ) & * YIN( NCELL,ISP1 ) END DO ELSE IF ( NREACT( NRK ) .EQ. 2 ) THEN ISP1 = IRM2( NRK,1,NCS ) ISP2 = IRM2( NRK,2,NCS ) DO NCELL = 1, NUMCELLS RXRAT( NCELL,NRK ) = RKI( NCELL,NRK ) & * YIN( NCELL,ISP1 ) & * YIN( NCELL,ISP2 ) END DO ELSE IF ( NREACT( NRK ) .EQ. 3 ) THEN ISP1 = IRM2( NRK,1,NCS ) ISP2 = IRM2( NRK,2,NCS ) ISP3 = IRM2( NRK,3,NCS ) DO NCELL = 1, NUMCELLS RXRAT( NCELL,NRK ) = RKI( NCELL,NRK ) & * YIN( NCELL,ISP1 ) & * YIN( NCELL,ISP2 ) & * YIN( NCELL,ISP3 ) END DO ELSE IF ( NREACT( NRK ) .EQ. 0 ) THEN DO NCELL = 1, NUMCELLS RXRAT( NCELL,NRK ) = RKI( NCELL,NRK ) END DO END IF c..Subtract loss terms from dc/dt for this reaction DO NR = 1, NREACT( NRK ) ISP1 = IRM2( NRK,NR,NCS ) DO NCELL = 1, NUMCELLS YDOT( NCELL,ISP1 ) = YDOT( NCELL,ISP1 ) & - RXRAT( NCELL,NRK ) END DO END DO c..Add production terms to dc/dt for this reaction DO NP = 1, NPRDCT( NRK ) ISP1 = IRM2( NRK,NP+3,NCS ) DO NCELL = 1, NUMCELLS YDOT( NCELL,ISP1 ) = YDOT( NCELL,ISP1 ) & + SC( NRK,NP ) * RXRAT( NCELL,NRK ) END DO END DO 100 CONTINUE ! END LOOP OVER REACTIONS RETURN END ================================================ FILE: CCTM/src/gas/ros3/rbinit.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/CCTM/src/gas/ros3/rbinit.F,v 1.4 2011/10/21 16:11:10 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% SUBROUTINE RBINIT C*********************************************************************** C C Function: To initialize species tolerances, allocate arrays, and C define grid structure C C Preconditions: None C C Return Values: None C C Key Subroutines/Functions CALLED: None C C Revision History: Prototype created by Jerry Gipson, August, 2004 C 31 Jan 05 J.Young: dyn alloc - establish both horizontal C & vertical domain specifications in one module (GRID_CONF) C Get BLKSIZE from module GRID_CONF C 29 Jul 05 WTH: allocate variables used by degrade routines. C 28 Jun 10 J.Young: convert for Namelist redesign C 29 Mar 11 S.Roselle: Replaced I/O API include files C with UTILIO_DEFN C 15 Jul 14 B.Hutzell: 1) replaced mechanism include files with C RXNS_DATA module, 2) inserted call to function MAP_CHEMISTRY_SPECIES C RXNS_FUNCTION module, and 3) inserted do loop that calculates species C unit conversion factors based on species type C 21 Mar 22 G . Sarwar: changed BLKLAND to BLKSEAWATER C C*********************************************************************** USE RXNS_DATA USE GRID_CONF ! horizontal & vertical domain specifications USE RBDATA ! Rosenbrock solver data USE CGRID_SPCS ! CGRID mechanism species USE UTILIO_DEFN USE RXNS_FUNCTION IMPLICIT NONE C.....Includes: Include SUBST_CONST ! common constants C.....Arguments: NONE C.....Parameters: CHARACTER( 16 ), PARAMETER :: PNAME = 'RBINIT' ! Procedure name C.....External Functions: C.....Local Variables: CHARACTER( 132 ) :: XMSG ! Log error message CHARACTER( 80 ) :: VARDESC ! Description of environment variable INTEGER N ! Loop index INTEGER COL ! Column number index INTEGER IAVGSIZE ! Average number of cells per block INTEGER LEV ! Level number index INTEGER OFFSET ! Pointer for start cell number in a block INTEGER NBLK ! Block number index INTEGER NCOUNT ! Counter for number of cells for grid INTEGER NOXYZ ! Total number of cells for grid INTEGER ROW ! Row number index INTEGER STATUS ! Status code for functions REAL DEFTOL ! Default tolerance value C*********************************************************************** ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c..Initialize vars & allocate arrays used in sparse matrix treatment ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc LREORDER = .TRUE. N_SPEC = NUMB_MECH_SPC N_RXNS = NRXNS ! loads RBDATA from RXCM.EXT MXRR = 3 * MXRCT MXRP = 3 * MXPRD MXCOUNT1 = NUMB_MECH_SPC * MAXGL3 * 3 MXCOUNT2 = NUMB_MECH_SPC * MAXGL3 * 3 ALLOCATE( NKUSERAT( NRXNS,NCS2 ), & NDERIVL ( NRXNS,NCS2 ), & NDERIVP ( NRXNS,NCS2 ), STAT = STATUS ) IF ( STATUS .NE. 0 ) THEN XMSG = 'ERROR allocating NKUSERAT, NDERIVL or NDERIVP' CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT2 ) END IF ALLOCATE( IRM2( NRXNS,MXRCT+MXPRD,NCS2 ), & ICOEFF( NRXNS,MXRP,NCS2 ), STAT = STATUS ) IF ( STATUS .NE. 0 ) THEN XMSG = 'ERROR allocating IRM2 or ICOEFF' CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT2 ) END IF ALLOCATE( JARRAYPT( NUMB_MECH_SPC,NUMB_MECH_SPC,NCS2 ), STAT = STATUS ) IF ( STATUS .NE. 0 ) THEN XMSG = 'ERROR allocating JARRAYPT' CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT2 ) END IF ALLOCATE( JARRL( NRXNS,MXRR,NCS2 ), & JARRP( NRXNS,MXRP,NCS2 ), & JLIAL( NRXNS,MXRR,NCS2 ), & JPIAL( NRXNS,MXRP,NCS2 ), STAT = STATUS ) IF ( STATUS .NE. 0 ) THEN XMSG = 'ERROR allocating JARRL, JARRP, JLIAL, or JPIAL' CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT2 ) END IF ALLOCATE( INEW2OLD( NUMB_MECH_SPC,NCS ), & IOLD2NEW( NUMB_MECH_SPC,NCS ), STAT = STATUS ) IF ( STATUS .NE. 0 ) THEN XMSG = 'ERROR allocating INEW2OLD or IOLD2NEW' CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT2 ) END IF ALLOCATE( JZEROA( MXARRAY ), & JZEROB( MXARRAY ), STAT = STATUS ) IF ( STATUS .NE. 0 ) THEN XMSG = 'ERROR allocating JZEROA or JZEROB' CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT2 ) END IF ALLOCATE( JZLO( NCS2 ), & IDEC1LO( NUMB_MECH_SPC,NCS2 ), & IDEC1HI( NUMB_MECH_SPC,NCS2 ), STAT = STATUS ) IF ( STATUS .NE. 0 ) THEN XMSG = 'ERROR allocating JZLO, IDEC1LO or IDEC1HI' CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT2 ) END IF ALLOCATE( IJDECA( MXCOUNT2 ), & IJDECB( MXCOUNT2 ), & IKDECA( MXCOUNT2 ), & IKDECB( MXCOUNT2 ), & KJDECA( MXCOUNT2 ), & KJDECB( MXCOUNT2 ), STAT = STATUS ) IF ( STATUS .NE. 0 ) THEN XMSG = 'ERROR allocating IJDECA, IJDECB, IKDECA, IKDECB, KJDECA, or KJDECB' CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT2 ) END IF ALLOCATE( JHIZ1( NUMB_MECH_SPC,NCS2 ), & JHIZ2( NUMB_MECH_SPC,NCS2 ), & KZLO1( NUMB_MECH_SPC,NCS2 ), & KZLO2( NUMB_MECH_SPC,NCS2 ), & KZHI0( NUMB_MECH_SPC,NCS2 ), & KZHI1( NUMB_MECH_SPC,NCS2 ), STAT = STATUS ) IF ( STATUS .NE. 0 ) THEN XMSG = 'ERROR allocating JHIZ1, JHIZ2, KZLO1, KZLO2, KZHI0, or KZHI1' CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT2 ) END IF ALLOCATE( KZERO( MXARRAY,NCS2 ), STAT = STATUS ) IF ( STATUS .NE. 0 ) THEN XMSG = 'ERROR allocating KZERO' CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT2 ) END IF ALLOCATE( KZILCH( NUMB_MECH_SPC,NCS2 ), & MZHI0 ( NUMB_MECH_SPC,NCS2 ), & MZHI1 ( NUMB_MECH_SPC,NCS2 ), & MZILCH( NUMB_MECH_SPC,NCS2 ), & MZLO1 ( NUMB_MECH_SPC,NCS2 ), & MZLO2 ( NUMB_MECH_SPC,NCS2 ), STAT = STATUS ) IF ( STATUS .NE. 0 ) THEN XMSG = 'ERROR allocating KZILCH, MZHI0, MZHI1, MZILCH, MZLO1, or MZLO2' CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT2 ) END IF ALLOCATE( VDIAG( BLKSIZE,NUMB_MECH_SPC ), STAT = STATUS ) IF ( STATUS .NE. 0 ) THEN XMSG = 'ERROR allocating VDIAG' CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT2 ) END IF ALLOCATE( CC2( BLKSIZE,0:MXARRAY ), STAT = STATUS ) IF ( STATUS .NE. 0 ) THEN XMSG = 'ERROR allocating CC2' CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT2 ) END IF c..cell & solver data ALLOCATE( BLKTEMP( BLKSIZE ), & BLKPRES( BLKSIZE ), & BLKCH2O( BLKSIZE ), & BLKDENS( BLKSIZE ), & BLKSVOL( BLKSIZE ), & BLKSEAWATER( BLKSIZE ), STAT = STATUS ) IF ( STATUS .NE. 0 ) THEN XMSG = 'ERROR allocating BLKTEMP, BLKPRES, BLKCH2O, BLKDENS, ' & // 'BLKSVOL, BLKSEAWATER ' CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT2 ) END IF NJPHOT = NPHOTAB ALLOCATE( RJBLK( BLKSIZE,NJPHOT ), STAT = STATUS ) IF ( STATUS .NE. 0 ) THEN XMSG = 'ERROR allocating RJBLK' CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT2 ) END IF ALLOCATE( RKI( BLKSIZE,NRXNS ), & ATOL( NUMB_MECH_SPC ), & RTOL( NUMB_MECH_SPC ), & FORWARD_CONV( NUMB_MECH_SPC ), & REVERSE_CONV( NUMB_MECH_SPC ), & Y( BLKSIZE,NUMB_MECH_SPC ), STAT = STATUS ) IF ( STATUS .NE. 0 ) THEN XMSG = 'ERROR allocating RKI, ATOL, RTOL, or Y' CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT2 ) END IF #ifdef sens ALLOCATE( YAVE( BLKSIZE,NUMB_MECH_SPC ), STAT = STATUS ) IF ( STATUS .NE. 0 ) THEN XMSG = 'ERROR allocating YAVE' CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT2 ) END IF #endif ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Set convergence tolerances for each species; currently uses c one set of tolerances for all species ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF( .NOT. MAP_CHEMISTRY_SPECIES() )THEN XMSG = 'Detected above error(s) when mapping Chemistry species from CGRID species' CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT2 ) END IF DO N = 1, NUMB_MECH_SPC ATOL( N ) = REAL( GLBL_ATOL, 8 ) RTOL( N ) = REAL( GLBL_RTOL, 8 ) FORWARD_CONV( N ) = 1.0E-3 * MWAIR / REAL( SPECIES_MOLWT( N ) ) REVERSE_CONV( N ) = REAL( 1.0 / FORWARD_CONV( N ), 8 ) END DO cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Get number of cells in grid and store i,j,k indices of cells in c sequential order cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc NCOUNT = 0 DO LEV = 1, NLAYS DO COL = 1, NCOLS DO ROW = 1, NROWS ! DO ROW = 1, NROWS ! DO COL = 1, NCOLS NCOUNT = NCOUNT + 1 CCOL( NCOUNT ) = COL CROW( NCOUNT ) = ROW CLEV( NCOUNT ) = LEV END DO END DO END DO cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Define block structure for grid; stop if maxblks exceeded cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc NOXYZ = NCOUNT NBLKS = 1 + ( NOXYZ - 1 ) / BLKSIZE IF ( NBLKS .GT. MXBLKS ) THEN WRITE( XMSG, 92020 ) NBLKS, MXBLKS CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT1 ) END IF IAVGSIZE = 1 + ( NOXYZ - 1 ) / NBLKS IAVGSIZE = MIN( IAVGSIZE, BLKSIZE ) OFFSET = 0 DO NBLK = 1, NBLKS - 1 BLKCNO( NBLK ) = OFFSET BLKLEN( NBLK ) = IAVGSIZE OFFSET = OFFSET + IAVGSIZE END DO BLKCNO( NBLKS ) = OFFSET BLKLEN( NBLKS ) = NOXYZ - ( ( NBLK-1 ) * IAVGSIZE ) RETURN C********************** FORMAT Statements ****************************** 92020 FORMAT( 1X, 'ERROR: Maximum Number of Blocks Exceeded', & ' for Grid', 'NBLKS=', I3, 1X, ' MAXBLKS=', & I3, ' Change GRPARMS.EXT' ) END ================================================ FILE: CCTM/src/gas/ros3/rbjacob.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/CCTM/src/gas/ros3/rbjacob.F,v 1.3 2011/10/21 16:11:10 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% SUBROUTINE RBJACOB( NCSP, YIN ) C*********************************************************************** C C Function: Compute the Jacobian matrix, [J] ( Jij = d[dCi/dt]/dCj ) C C Preconditions: None C C Key Subroutines/Functions Called: None C C Revision History: Prototype created by Jerry Gipson, August, 2004 C Based on the SMVGEAR code originally developed by C M. Jacobson, (Atm. Env., Vol 28, No 2, 1994). C C 31 Jan 05 J.Young: get BLKSIZE from dyn alloc horizontal C & vertical domain specifications module (GRID_CONF) C 28 Jun 10 J.Young: remove unneccesary modules and include files C 22 Aug 11 J.Young: fixed bug: initialize CC2( NCELL,0 ) C 15 Jul 14 B.Hutzell: replaced mechanism include files with C RXNS_DATA module and added intent declarations to arguments C C*********************************************************************** USE RXNS_DATA USE RBDATA ! ROS3 solver data IMPLICIT NONE C..Includes: C..Arguments: INTEGER, INTENT( IN ) :: NCSP ! Index of chem mech to use; 1=gas/day, 2=gas/night REAL( 8 ), INTENT( IN ) :: YIN( :, : ) ! Species concs, ppm C..Parameters: None C..External Functions: None C..Local Variables: INTEGER IALP ! Pointer to location of PD term in EXPLIC INTEGER IAR ! Loop index for non-zero entries in [P] INTEGER IARP ! Pointer to location of PD term in [P] INTEGER IARRY ! Pointer to end of [P] entries INTEGER ISCP ! Pointer to stoichiometric coefficient INTEGER ISPC ! Loop index for species INTEGER JR1, JR2, JR3 ! Pointer to reactant species conc. INTEGER NCELL ! Loop index for number of cells INTEGER NL ! Loop index for loss PD terms INTEGER NLD ! Number of loss PD terms for each rxn. INTEGER NP ! Loop index for prod PD terms INTEGER NPD ! Number of prod PD terms for each rxn. INTEGER NRK ! Reaction number INTEGER NRX ! Loop index for number of reactions INTEGER NONDIAG ! Pointer to end of off-diagonal entries INTEGER NONDIAG1 ! Pointer to start of diagonal entries REAL( 8 ) :: CR2 ! Temporary product for 3 reactant rxns REAL( 8 ) :: FRACN ! Stoichiometric coeff. times b*h REAL( 8 ) :: EXPLIC( BLKSIZE,3 ) ! Reaction partial derivative terms C*********************************************************************** cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Zero out Jacobian ( stored in sparse matrix array cc2 ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IARRY = IARRAY( NCSP ) NONDIAG = IARRY - ISCHAN NONDIAG1 = NONDIAG + 1 ! DO IAR = 1, NONDIAG DO IAR = 0, NONDIAG DO NCELL = 1, NUMCELLS CC2( NCELL,IAR ) = 0.0D0 END DO END DO DO IAR = NONDIAG1, IARRY DO NCELL = 1, NUMCELLS CC2( NCELL,IAR ) = 0.0D0 END DO END DO cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Loop over reaction rates adding partial derivative terms; EXPLIC c holds the PD terms according to number of reactants cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc DO 240 NRX = 1, NUSERAT( NCSP ) NRK = NKUSERAT( NRX,NCSP ) c...partial derivative term for reactions with 1 reactant IF ( NREACT( NRK ) .EQ. 1 ) THEN DO NCELL = 1, NUMCELLS EXPLIC( NCELL,1 ) = RKI( NCELL,NRK ) END DO c...partial derivative terms for reactions with 2 reactants ELSE IF ( NREACT( NRK ) .EQ. 2 ) THEN JR1 = IRM2( NRK,1,NCS ) JR2 = IRM2( NRK,2,NCS ) DO NCELL = 1, NUMCELLS EXPLIC( NCELL,1 ) = RKI( NCELL,NRK ) & * YIN( NCELL,JR2 ) EXPLIC( NCELL,2 ) = RKI( NCELL,NRK ) & * YIN( NCELL,JR1 ) END DO c.....partial derivative terms for reactions with 3 reactants ELSE IF ( NREACT( NRK ) .EQ. 3 ) THEN JR1 = IRM2( NRK,1,NCS ) JR2 = IRM2( NRK,2,NCS ) JR3 = IRM2( NRK,3,NCS ) DO NCELL = 1, NUMCELLS CR2 = RKI( NCELL,NRK ) * YIN( NCELL,JR2 ) EXPLIC( NCELL,1 ) = CR2 * YIN( NCELL,JR3 ) EXPLIC( NCELL,2 ) = RKI( NCELL,NRK ) & * YIN( NCELL,JR1 ) & * YIN( NCELL,JR3 ) EXPLIC( NCELL,3 ) = CR2 * YIN( NCELL,JR1 ) END DO END IF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Add PD terms to [J] for this reaction cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c...loss terms NLD = NDERIVL( NRK,NCSP ) DO NL = 1, NLD IARP = JARRL( NRK,NL,NCSP ) IALP = JLIAL( NRK,NL,NCSP ) DO NCELL = 1, NUMCELLS CC2( NCELL,IARP ) = CC2( NCELL,IARP ) - EXPLIC( NCELL,IALP ) END DO END DO ! End loop over loss terms c...production terms with stoichiomteric coeff EQ 1.0 and NE 1.0 NPD = NDERIVP( NRK,NCSP ) DO 220 NP = 1, NPD IARP = JARRP( NRK,NP,NCSP ) IALP = JPIAL( NRK,NP,NCSP ) IF ( ICOEFF( NRK,NP,NCSP ) .EQ. 0 ) THEN c..production terms with unit stoichiometry DO NCELL = 1, NUMCELLS CC2( NCELL,IARP ) = CC2( NCELL,IARP ) + EXPLIC( NCELL,IALP ) END DO ELSE c..production terms with non-unit stoichiometry ISCP = ICOEFF( NRK,NP,NCSP ) FRACN = SC( NRK,ISCP ) DO NCELL = 1, NUMCELLS CC2( NCELL,IARP ) = CC2( NCELL,IARP ) + FRACN & * EXPLIC( NCELL,IALP ) END DO END IF 220 CONTINUE ! End loop over production terms 240 CONTINUE ! End loop over reactions RETURN END ================================================ FILE: CCTM/src/gas/ros3/rbsolve.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/CCTM/src/gas/ros3/rbsolve.F,v 1.3 2011/10/21 16:11:10 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% SUBROUTINE RBSOLVE( NCSP, RHS ) C********************************************************************** C C Function: Solve the set of linear simultaneous equations of the C form [A]{x}={b} using the decomposed lower and upper C triangular matrices [L] and [U]. The subroutine first C solves for {c} in [L]{c}={b}, and then for {x} in C [U]{x}={c}. C C Preconditions: Subroutine DECOMP must have been called C C Key Subroutines/Functions Called: None C C Revision History: Prototype created by Jerry Gipson, August, 2004. C Based on the SMVGEAR code originally developed by C M. Jacobson, (Atm. Env., Vol 28, No 2, 1994) C C 31 Jan 05 J.Young: get BLKSIZE from dyn alloc horizontal C & vertical domain specifications module (GRID_CONF) C 28 Jun 10 J.Young: remove unnecessary modules and include files C 14 Jul 14 B.Hutzell: added intent declaration to arguments C*********************************************************************** USE RBDATA ! ROS3 solver data IMPLICIT NONE C..Includes: None C..Arguments: INTEGER, INTENT( IN ) :: NCSP ! Index of chem mech to use: 1=gas/day, 2=gas/night REAL( 8 ), INTENT( INOUT ) :: RHS( :,: ) ! Right hand side = {b} C..Parameters: None C..External Functions: None C..Local Variables: INTEGER I ! Loop index for number of species INTEGER IJ ! Counter of # of terms summed INTEGER IJ0, IJ1, IJ2, ! Pointers to location of ij entries in & IJ3, IJ4 ! decomposed matrix INTEGER J, J1, J2, J3, J4 ! Pointers to species # for dc/dt INTEGER JZ ! Loop index inner backsub loops INTEGER NCELL ! Loop index for number of cells C*********************************************************************** cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Back-substition loop 1 cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IJ = 1 DO 60 I = 1, ISCHAN c.....sum 5 terms at a time DO JZ = 1, KZHI0( I, NCSP ), 5 IJ0 = IJ IJ1 = IJ + 1 IJ2 = IJ + 2 IJ3 = IJ + 3 IJ4 = IJ + 4 J = KZERO( IJ0,NCSP ) J1 = KZERO( IJ1,NCSP ) J2 = KZERO( IJ2,NCSP ) J3 = KZERO( IJ3,NCSP ) J4 = KZERO( IJ4,NCSP ) IJ = IJ + 5 DO NCELL = 1, NUMCELLS RHS( NCELL,I ) = RHS( NCELL,I ) & - CC2( NCELL,IJ0 ) * RHS( NCELL, J ) & - CC2( NCELL,IJ1 ) * RHS( NCELL,J1 ) & - CC2( NCELL,IJ2 ) * RHS( NCELL,J2 ) & - CC2( NCELL,IJ3 ) * RHS( NCELL,J3 ) & - CC2( NCELL,IJ4 ) * RHS( NCELL,J4 ) END DO END DO c.....sum 2 terms at a time DO JZ = KZLO1( I,NCSP ), KZHI1( I,NCSP ), 2 IJ0 = IJ IJ1 = IJ + 1 J = KZERO( IJ0,NCSP ) J1 = KZERO( IJ1,NCSP ) IJ = IJ + 2 DO NCELL = 1, NUMCELLS RHS( NCELL,I ) = RHS( NCELL,I ) & - CC2( NCELL,IJ0 ) * RHS( NCELL, J ) & - CC2( NCELL,IJ1 ) * RHS( NCELL,J1 ) END DO END DO c.....sum 1 term at a time DO JZ = KZLO2( I,NCSP ), KZILCH( I,NCSP ) IJ0 = IJ J = KZERO( IJ0,NCSP ) IJ = IJ + 1 DO NCELL = 1, NUMCELLS RHS( NCELL,I ) = RHS( NCELL,I ) & - CC2( NCELL,IJ0 ) * RHS( NCELL,J ) END DO END DO 60 CONTINUE cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Back-substitution loop 2 cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc DO 180 I = ISCHAN, 1, -1 c...sum 5 terms at a time DO JZ = 1, MZHI0( I,NCSP ), 5 IJ0 = IJ IJ1 = IJ + 1 IJ2 = IJ + 2 IJ3 = IJ + 3 IJ4 = IJ + 4 J = KZERO( IJ0,NCSP ) J1 = KZERO( IJ1,NCSP ) J2 = KZERO( IJ2,NCSP ) J3 = KZERO( IJ3,NCSP ) J4 = KZERO( IJ4,NCSP ) IJ = IJ + 5 DO NCELL = 1, NUMCELLS RHS( NCELL,I ) = RHS( NCELL,I ) & - CC2( NCELL,IJ0 ) * RHS( NCELL, J ) & - CC2( NCELL,IJ1 ) * RHS( NCELL,J1 ) & - CC2( NCELL,IJ2 ) * RHS( NCELL,J2 ) & - CC2( NCELL,IJ3 ) * RHS( NCELL,J3 ) & - CC2( NCELL,IJ4 ) * RHS( NCELL,J4 ) END DO END DO c...sum 2 terms at a time DO JZ = MZLO1( I,NCSP ), MZHI1( I,NCSP ), 2 IJ0 = IJ IJ1 = IJ + 1 J = KZERO( IJ0,NCSP ) J1 = KZERO( IJ1,NCSP ) IJ = IJ + 2 DO NCELL = 1, NUMCELLS RHS( NCELL,I ) = RHS( NCELL,I ) & - CC2( NCELL,IJ0 ) * RHS( NCELL, J ) & - CC2( NCELL,IJ1 ) * RHS( NCELL,J1 ) END DO END DO c...sum 1 term at a time DO JZ = MZLO2( I,NCSP ), MZILCH( I,NCSP ) IJ0 = IJ J = KZERO( IJ0,NCSP ) IJ = IJ + 1 DO NCELL = 1, NUMCELLS RHS( NCELL,I ) = RHS( NCELL,I ) & - CC2( NCELL,IJ0 ) * RHS( NCELL,J ) END DO END DO c...adjust diagonal element DO NCELL = 1, NUMCELLS RHS( NCELL,I ) = RHS( NCELL,I ) * VDIAG( NCELL,I ) END DO 180 CONTINUE RETURN END ================================================ FILE: CCTM/src/gas/ros3/rbsolver.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/CCTM/src/gas/ros3/rbsolver.F,v 1.5 2011/10/21 16:11:11 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% SUBROUTINE RBSOLVER( JDATE, JTIME, CHEMSTEP, NCSP, & LIRRFLAG, NIRRCLS, IRRCELL ) C********************************************************************** C C Function: ROS3 solver C C Preconditions: None C C Key Subroutines/Functions Called: C DEGRADE_BLK C C Revision History: Prototype created by Jerry Gipson, August, 2004 C Based on the solver described by Sandu et al C ( Atm. Env., Vol. 31, No. 20, 1997 ) and included C in the Kinetic PreProcessor-KPP ( see for example C Sandu et al., At, Env., Vol. 37, 5097-5114, C 2003). This code also incorporates efficiency C concepts originally developed by M. Jacobson C for SMVGEAR (Atm. Env., Vol 28, No 2, 1994) C C 31 Jan 05 J.Young: get BLKSIZE from dyn alloc horizontal C & vertical domain specifications module (GRID_CONF) C 29 Jul 05 WTH: Added IF blocks that call degrade C routines if CALL_DEG is true, i.e., C if MECHNAME contains 'TX' substring. C 28 Jun 10 J.Young: convert for Namelist redesign C 29 Mar 11 S.Roselle: Replaced I/O API include files C with UTILIO_DEFN C 15 Jul 14 B.Hutzell: replaced mechanism include files with C RXNS_DATA module, updated explicit interfaces and revised C block for FPP flag redebug is set in compilation C 21 Mar 22 G . Sarwar: changed BLKLAND to BLKSEAWATER C********************************************************************** ! USE GRID_CONF ! horizontal & vertical domain specifications USE RXNS_DATA USE RBDATA ! ROS3 solver data USE CGRID_SPCS ! CGRID mechanism species USE UTILIO_DEFN USE DEGRADE_ROUTINES, ONLY: DEGRADE_BLK USE PA_IRR_MODULE IMPLICIT NONE C..Includes: C..Arguments: INTEGER, INTENT( IN ) :: JDATE ! Current date (YYYYDDD) INTEGER, INTENT( IN ) :: JTIME ! Current time (HHMMSS) REAL( 8 ), INTENT( IN ) :: CHEMSTEP ! Chem integration interval (min) INTEGER, INTENT( IN ) :: NCSP ! Index of chem mech to use ! 1=gas/day, 2=gas/night LOGICAL, INTENT( IN ) :: LIRRFLAG ! Flag for IRR calculations INTEGER, INTENT( INOUT ) :: NIRRCLS ! No. of cells in block for IRR INTEGER, INTENT( IN ) :: IRRCELL( : ) ! Cell No. of an IRR cell C..Parameters: c..ROS3 solver parameters - from KPP REAL( 8 ), PARAMETER :: GAM = 0.43586652150845899941601945119356D+00 REAL( 8 ), PARAMETER :: C21 = -0.10156171083877702091975600115545D+01 REAL( 8 ), PARAMETER :: C31 = 0.40759956452537699824805835358067D+01 REAL( 8 ), PARAMETER :: C32 = 0.92076794298330791242156818474003D+01 REAL( 8 ), PARAMETER :: B1 = 0.10000000000000000000000000000000D+01 REAL( 8 ), PARAMETER :: B2 = 0.61697947043828245592553615689730D+01 REAL( 8 ), PARAMETER :: B3 = -0.42772256543218573326238373806514D+00 REAL( 8 ), PARAMETER :: D1 = 0.50000000000000000000000000000000D+00 REAL( 8 ), PARAMETER :: D2 = -0.29079558716805469821718236208017D+01 REAL( 8 ), PARAMETER :: D3 = 0.22354069897811569627360909276199D+00 REAL( 8 ), PARAMETER :: A21 = 1.0D+00 REAL( 8 ), PARAMETER :: A31 = 1.0D+00 REAL( 8 ), PARAMETER :: A32 = 0.0D+00 REAL( 8 ), PARAMETER :: G1 = 0.43586652150845899941601945119356D+00 REAL( 8 ), PARAMETER :: G2 = 0.24291996454816804366592249683314D+00 REAL( 8 ), PARAMETER :: G3 = 0.21851380027664058511513169485832D+01 REAL( 8 ), PARAMETER :: GROW = 1.0D+00 / 3.00D+00 REAL( 8 ), PARAMETER :: RGAM = 1.0D+00 / GAM REAL( 8 ), PARAMETER :: DTSTART = 0.5D-01 ! Starting time step (min) REAL( 8 ), PARAMETER :: DTMIN = 1.0D-08 ! Min time step REAL( 8 ), PARAMETER :: DTMAX = 1.0D+01 ! Max time step REAL( 8 ), PARAMETER :: UROUND = 1.0D-18 ! Roundoff parameter REAL( 8 ), PARAMETER :: FACMAX = 1.0D+01 ! Max time step factor REAL( 8 ), PARAMETER :: FACMIN = 1.0D-01 ! Min time step factor REAL( 8 ), PARAMETER :: FACONE = 1.0D+00 ! Time step fac of 1.0 REAL( 8 ), PARAMETER :: CONMIN = 1.0D-30 ! Min conc C..External FUNCTIONS: C..Local Variables: CHARACTER( 16 ), SAVE :: PNAME = 'RBSOLVER' ! Procedure name CHARACTER( 96 ) :: XMSG = ' ' LOGICAL, SAVE :: LFIRST = .TRUE. ! Flag for first call INTEGER I, J, N, JSPC ! Loop indices INTEGER IDIAGBEG ! Index of diagonal start in Jac array INTEGER OFFSET ! Cell offset for blcock INTEGER NCELL ! Cell loop index INTEGER NRX ! Loop index for reactions INTEGER ISPOLD ! Species index for old array order INTEGER NCALL_DEGRADE ! WTH INTEGER IOS ! status LOGICAL LPASS ! Flag for convergence achieved REAL(8), ALLOCATABLE, SAVE :: CIRR ( :,: ) ! Species concs for IRR analysis REAL(8), ALLOCATABLE, SAVE :: RKIRR( :,: ) ! Rate constants for IRR analysis INTEGER, ALLOCATABLE, SAVE :: DUMMY( : ) ! Dummy array for IRR call REAL( 8 ) :: D REAL( 8 ) :: DT ! Time step REAL( 8 ) :: DTCELL ! Time step for each cell for IRR REAL( 8 ) :: DTINV ! Inverse of time step REAL( 8 ) :: DTFAC ! Time step scale factor REAL( 8 ) :: GDTINV ! Inverse of gamma x time step REAL( 8 ) :: TNOW ! Elapsed time at start of integration step REAL( 8 ) :: TEND ! Elapsed time at end of integration step REAL( 8 ) :: DT_DEGRADE ! WTH: Time step for degradation routine REAL( 8 ) :: YTOL ! Species tolerance REAL( 8 ), SAVE :: RNSPEC ! Recipricol of # of species REAL( 8 ) :: X1, X2 ! Temp ROS3 variables REAL( 8 ) :: ERRYMAX ! Cell/species stiffness estimate REAL( 8 ) :: YLOWEPS ! Tolerance ratio used in stiffness calc REAL( 8 ) :: MAXERR ! Max of cell error estimates REAL( 8 ) :: OLDERR ! OLD max error INTEGER COL_ERR ! column for max of cell error estimate INTEGER ROW_ERR ! row for max of cell error estimate INTEGER LAY_ERR ! layer for max of cell error estimate INTEGER CELL_MAXERR ! cell with maximum error estimate REAL( 8 ) :: MAX_SPC_ERR ! species error in the cell REAL( 8 ), ALLOCATABLE, SAVE :: YDOT( :,: ) ! dc/dt array c.....ROS3 intermediate variables REAL( 8 ), ALLOCATABLE, SAVE :: K1( :,: ) REAL( 8 ), ALLOCATABLE, SAVE :: K2( :,: ) REAL( 8 ), ALLOCATABLE, SAVE :: K3( :,: ) REAL( 8 ), ALLOCATABLE, SAVE :: K4( :,: ) REAL( 8 ), ALLOCATABLE, SAVE :: YP( :,: ) ! Predicted conc REAL( 8 ), ALLOCATABLE, SAVE :: ERR( : ) ! Error est for each cell #ifdef rbdebug INTEGER COL, CD ! Column for debug output INTEGER ROW, RD ! Row for debug output INTEGER LEV, LD ! Level for debug output INTEGER DBGOUT ! Output unit for debug output LOGICAL LDEBUG ! Debug output flag LOGICAL, SAVE :: LOPEN = .FALSE. ! Flag for debug file opened #endif INTERFACE SUBROUTINE RBFEVAL( NCSP, YIN, YDOT ) INTEGER, INTENT( IN ) :: NCSP ! Index of mech to use: 1=gas/day, 2=gas/night REAL( 8 ), INTENT( INOUT ) :: YIN( :, : ) ! Species concs, ppm REAL( 8 ), INTENT( OUT ) :: YDOT( :, : ) ! Species rates of change, ppm/min END SUBROUTINE RBFEVAL SUBROUTINE RBSOLVE( NCSP, RHS ) INTEGER, INTENT( IN ) :: NCSP ! Index of chem mech to use: 1=gas/day, 2=gas/night REAL( 8 ), INTENT( INOUT ) :: RHS( :,: ) ! Right hand side = {b} END SUBROUTINE RBSOLVE SUBROUTINE RBJACOB( NCSP, YIN ) INTEGER, INTENT( IN ) :: NCSP ! Index of chem mech to use; 1=gas/day, 2=gas/night REAL( 8 ), INTENT( IN ) :: YIN( :,: ) ! Species concs, ppm END SUBROUTINE RBJACOB SUBROUTINE RBDECOMP( NCSP ) INTEGER, INTENT( IN ) :: NCSP ! Index of chem mech to use: 1=gas/day, 2=gas/night END SUBROUTINE END INTERFACE C********************************************************************** CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC C The s-stage Rosenbrock method solves the following equations C s C Y(n+1) = Yn + SUM( Bi * Ki) C i=1 C where C i-1 i C Ki = H * F[ Yn + SUM( Aij * Kj ) ] + H * J * SUM( GAMMAij * Kj ) C j=1 j=1 C C See Sandu et al. for details and the values of Bi, GAMMAij, Aij, etc. C C For computational efficiency, the equations are re-arranged as C follows (e.g., see Press, Numerical Recipes, Chap 16 on ODEs ) C C Gi = SUM( GAMMAij * Kj ) + GAMMA * Ki i=1,...s C C [ I / GAMMA H - J ] G1 = F[ Yn ] C [ I / GAMMA H - J ] G2 = F[ Yn + A21 * G1 ] + ( C21 * G1 ) / H C [ I / GAMMA H - J ] G3 = F[ Yn + A31 * G1 + A32 * G2 ] + C ( C31 * G1 + C32 G2 ) / H C C The code below sequentially calculates the Gi, and then computes C Y(n+1) via the first formula. Note that the parameter values will be C different from those shown in Sandu et al. because the code computes C Gi instead of Ki CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC IF ( LFIRST ) THEN LFIRST = .FALSE. ALLOCATE ( YDOT( BLKSIZE,N_SPEC ), & K1 ( BLKSIZE,N_SPEC ), & K2 ( BLKSIZE,N_SPEC ), & K3 ( BLKSIZE,N_SPEC ), & K4 ( BLKSIZE,N_SPEC ), & YP ( BLKSIZE,N_SPEC ), & ERR ( BLKSIZE ), STAT = IOS ) IF ( IOS .NE. 0 ) THEN XMSG = '*** Memory Allocation Error' CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT1 ) END IF ! IF ( LIRRFLAG ) THEN !*** This works only if in irr subdomain window ALLOCATE ( CIRR ( BLKSIZE,N_SPEC ), & RKIRR ( BLKSIZE,N_RXNS ), & DUMMY ( BLKSIZE ), STAT = IOS ) IF ( IOS .NE. 0 ) THEN XMSG = '*** Memory Allocation Error' CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT1 ) END IF ! END IF RNSPEC = 1.0 / FLOAT( N_SPEC ) END IF ! LFIRST c++++++++++++++++++++++++Debug section++++++++++++++++++++++++++++++++++ #ifdef rbdebug ! CD, RD, LD set by modifying code CD = 0 RD = 0 LD = 0 DO NCELL = 1, NUMCELLS COL = CCOL( NCELL ) ROW = CROW( NCELL ) LEV = CLEV( NCELL ) IF ( CD .EQ. COL .AND. RD .EQ. ROW .AND. LD .EQ. LEV ) THEN ! IF ( JTIME .EQ. 160000 ) THEN LDEBUG = .TRUE. EXIT ELSE LDEBUG = .FALSE. END IF END DO IF ( LDEBUG ) THEN IF ( .NOT. LOPEN ) THEN DBGOUT = JUNIT() OPEN( UNIT = DBGOUT, FILE = 'debug.out' ) LOPEN = .TRUE. END IF WRITE( DBGOUT, '( A, 2I4, I3, 1X, I7, 1X, I6 ) ' ) & 'Debug output for col/row/lev/date/time:', & C, R, L, JDATE, JTIME WRITE( DBGOUT, '( A, F7.2) ' ) & 'CHEMTMSTEP = ', CHEMSTEP WRITE( DBGOUT, '( A )' ) 'Starting concs and rate constants' DO N = 1, N_SPEC WRITE( DBGOUT, '( A, I3, 1X, A, 1X, 1PE13.5 )' ) & 'SP ',N, CHEMISTRY_SPC( N ), Y( NCELL, N ) END DO DO N = 1, N_RXNS WRITE( DBGOUT, '( A, I3, 1X, 1PE13.5 )' ) & 'RKI ', N, RKI( NCELL, N ) END DO END IF #endif c++++++++++++++++++++++++Debug section++++++++++++++++++++++++++++++++++ ISCHAN = ISCHANG( NCS ) IDIAGBEG = IARRAY( NCSP ) - ISCHAN + 1 DT = MAX( DTMIN, DTSTART ) TNOW = 0.0D+00 NCALL_DEGRADE = 0 LPASS = .FALSE. OFFSET = BLKCNO( BLKID ) IF ( LIRRFLAG ) THEN DO NRX = 1, N_RXNS DO NCELL = 1, NIRRCLS RKIRR( NCELL,NRX ) = RKI( IRRCELL( NCELL ),NRX ) END DO END DO DTCELL = 0.0D0 DO I = 1, ISCHAN ISPOLD = INEW2OLD( I, NCS ) DO NCELL = 1, NIRRCLS CIRR( NCELL, ISPOLD ) = Y( IRRCELL( NCELL ),I ) END DO END DO CALL PA_IRR ( .TRUE., .FALSE., RKIRR, CIRR, DTCELL, NIRRCLS, DUMMY ) END IF #ifdef sens YAVE = 0.0D0 #endif DO 100 WHILE ( TNOW .LT. CHEMSTEP ) CALL RBFEVAL( NCSP, Y, YDOT ) IF ( LORDERING ) THEN DO JSPC = 1, ISCHAN YLOWEPS = ATOL( JSPC ) / ( MIN( RTOL( JSPC ), 0.003D+00 ) ) DO NCELL = 1, NUMCELLS ERRYMAX = YDOT( NCELL,JSPC ) & / ( Y( NCELL,JSPC ) + YLOWEPS ) ERRMX2( OFFSET + NCELL ) = ERRMX2( OFFSET + NCELL ) & + ERRYMAX * ERRYMAX END DO END DO RETURN END IF TEND = TNOW + DT IF ( TEND .GT. CHEMSTEP ) THEN DT = CHEMSTEP - TNOW TEND = CHEMSTEP END IF DTINV = 1.0D+00 / DT GDTINV = DTINV * RGAM CALL RBJACOB( NCSP, Y ) DO J = IDIAGBEG, IARRAY( NCSP ) DO NCELL = 1, NUMCELLS CC2( NCELL,J ) = CC2( NCELL,J ) - GDTINV END DO END DO CALL RBDECOMP( NCSP ) c..stage 1 DO N = 1, N_SPEC DO NCELL = 1, NUMCELLS K1( NCELL,N ) = -YDOT( NCELL,N ) END DO END DO CALL RBSOLVE( NCSP, K1 ) c..stage 2 DO N = 1, N_SPEC DO NCELL = 1, NUMCELLS YP( NCELL,N ) = Y( NCELL,N ) + K1( NCELL,N ) END DO END DO CALL RBFEVAL( NCSP, YP, YDOT ) X1 = C21 * DTINV DO N = 1, N_SPEC DO NCELL = 1, NUMCELLS K2( NCELL,N ) = -YDOT( NCELL,N ) - X1 * K1( NCELL,N ) END DO END DO CALL RBSOLVE( NCSP, K2 ) c..stage 3 X1 = C31 * DTINV X2 = C32 * DTINV DO N = 1, N_SPEC DO NCELL = 1, NUMCELLS K3( NCELL,N ) = -YDOT( NCELL,N ) - X1 * K1( NCELL,N ) & - X2 * K2( NCELL, N ) END DO END DO CALL RBSOLVE( NCSP, K3 ) c..final solution DO N = 1, N_SPEC DO NCELL = 1, NUMCELLS YP( NCELL,N ) = Y( NCELL,N ) + B1 * K1( NCELL,N ) & + B2 * K2( NCELL,N ) + B3 * K3( NCELL,N ) END DO END DO c..Estimate error ERR = 0.0D+00 DO N = 1, N_SPEC DO NCELL = 1, NUMCELLS YTOL = ATOL( N ) + RTOL( N ) * ABS( YP( NCELL,N ) ) ERR( NCELL ) = ERR( NCELL ) & + ( ( D1 * K1( NCELL,N ) + D2 * K2( NCELL,N ) & + D3 * K3( NCELL,N ) ) / YTOL ) ** 2 END DO END DO MAXERR = 0.0D+00 OLDERR = MAXERR MAX_SPC_ERR = 0.0D+00 DO NCELL = 1, NUMCELLS MAXERR = MAX( MAXERR, UROUND, SQRT( ERR( NCELL ) * RNSPEC ) ) IF ( OLDERR .NE. MAXERR )THEN OLDERR = MAXERR COL_ERR = CCOL( NCELL ) ROW_ERR = CROW( NCELL ) LAY_ERR = CLEV( NCELL ) CELL_MAXERR = NCELL END IF END DO DTFAC = 0.9D+00 / MAXERR ** GROW IF ( MAXERR .LE. 1.0D+00 ) THEN #ifdef rbstats NSTEPS = NSTEPS + 1 #endif DO N = 1, NUMB_MECH_SPC DO NCELL = 1, NUMCELLS #ifdef sens YAVE( NCELL,N ) = YAVE( NCELL,N ) & + 0.5D0 * (Y( NCELL,N )+ MAX(YP( NCELL,N),CONMIN)) & * DT #endif Y( NCELL,N ) = MAX( YP( NCELL,N ), CONMIN ) END DO END DO IF ( LIRRFLAG ) THEN DTCELL = DT DO I = 1, ISCHAN ISPOLD = INEW2OLD( I, NCS ) DO NCELL = 1, NIRRCLS CIRR( NCELL,ISPOLD ) = Y( IRRCELL( NCELL ), I ) END DO END DO CALL PA_IRR ( .FALSE., .FALSE., RKIRR, CIRR, DTCELL, & NIRRCLS, DUMMY ) END IF IF ( CALL_DEG ) THEN !:WTH applying degradation algorithm DT_DEGRADE = 60.0D0 * ( TEND - TNOW ) DO I = 1, ISCHAN ISPOLD = INEW2OLD( I,NCS ) N = CGRID_INDEX( ISPOLD ) DO NCELL = 1, NUMCELLS Y_DEGRADE( NCELL,N ) = Y( NCELL,I ) END DO END DO NCALL_DEGRADE = NCALL_DEGRADE + 1 CALL DEGRADE_BLK( Y_DEGRADE, DT_DEGRADE, JDATE, JTIME, BLKID ) END IF !:WTH TNOW = TEND IF ( LPASS ) THEN DTFAC = MAX( FACMIN, MIN( DTFAC, FACMAX ) ) ELSE DTFAC = MAX( FACMIN, MIN( DTFAC, FACONE ) ) END IF DT = MIN( DTMAX, MAX( DTMIN, DTFAC * DT ) ) LPASS = .TRUE. ELSE #ifdef rbstats IF ( NFAILS .EQ. 0 .AND. TNOW .EQ. 0.0 ) N_BAD_STARTS = N_BAD_STARTS + 1 NFAILS = NFAILS + 1 #endif ! DTFAC = MAX( FACMIN, MIN( DTFAC, FACONE ) ) DT = FACMIN * DT LPASS = .FALSE. IF ( DT .LT. DTMIN ) THEN WRITE( LOGDEV, 92110 ) JDATE, JTIME, & (COL_ERR + STARTCOLCO ), ( ROW_ERR + STARTROWCO ), LAY_ERR WRITE( LOGDEV, 92113) N_SPEC, NUMB_MECH_SPC WRITE( LOGDEV, 92216) MAXERR, SQRT( ERR( CELL_MAXERR ) * RNSPEC ) DO N = 1, N_SPEC YTOL = ATOL( N ) + RTOL( N ) * ABS( YP( CELL_MAXERR, N ) ) MAX_SPC_ERR = ( ( D1 * K1( CELL_MAXERR,N ) & + D2 * K2( CELL_MAXERR,N ) & + D3 * K3( CELL_MAXERR,N ) ) / YTOL ) ** 2.0D0 & / ERR( CELL_MAXERR ) ISPOLD = INEW2OLD( N, NCS ) WRITE( LOGDEV, 92114 ) ISPOLD, TRIM( CHEMISTRY_SPC( ISPOLD ) ), & MAX_SPC_ERR, Y( CELL_MAXERR,N ), YP( CELL_MAXERR,N ) END DO WRITE( LOGDEV, 92215 ) BLKTEMP( CELL_MAXERR ), BLKPRES( CELL_MAXERR ), & BLKDENS( CELL_MAXERR ), BLKCH2O( CELL_MAXERR ), BLKSEAWATER( CELL_MAXERR ) WRITE( LOGDEV, 92115 ) DO N = 1, NJPHOT WRITE( LOGDEV, 92214 ) N, PHOTAB( N ), RJBLK( CELL_MAXERR,N ) END DO c..write photolysis rates used in cell DO N = 1, NMPHOT IF ( IPH( N,3 ) .NE. 0 ) THEN I = IPH( N,1 ) J = IPH( N,2 ) IF ( RTDAT( 1, I ) .GT. 0.0D+00 )THEN WRITE( LOGDEV, 92116 ) TRIM( RXLABEL( I ) ), & TRIM( PHOTAB( J ) ), RKI( CELL_MAXERR,I ) / RTDAT( 1,I ) END IF END IF END DO DO N = 1, NMPHOT IF ( IPH( N,3 ) .EQ. 0 ) THEN I = IPH( N,1 ) J = IPH( N,2 ) WRITE( LOGDEV, 92117 ) TRIM( RXLABEL( I ) ), & TRIM( RXLABEL( J ) ), RKI( CELL_MAXERR, J ) END IF END DO CALL M3EXIT( PNAME, JDATE, JTIME, ' ', XSTAT2 ) END IF END IF 100 END DO ! end time integration loop #ifdef sens ! complete calculation for YAVE YAVE(1:NUMCELLS,1:NUMB_MECH_SPC) = YAVE(1:NUMCELLS,1:NUMB_MECH_SPC) / CHEMSTEP ! YAVE = 0.5D0*(YAVE+Y) #endif RETURN 92100 FORMAT( ' Convergence failure ', & ' JDATE = ', I7, ' JTIME = ' , I6 ) 92110 FORMAT( ' Convergence failure in Gas Chemistry Solver ', & ' JDATE = ', I7, ' JTIME = ' , I6, & ' at COL = ', I4, ' ROW = ', I4, ' LAY = ', I4 ) 92113 FORMAT( 'Number of Species solved = ', I4, ' out of ', & I4, ' Total GC Species ') 92114 FORMAT('CHEMISTRY_SPC( ', I4, ' ) = ', A16,' Error Contribution =', & ES12.4, ' Initial Conc = ', ES12.4 , & ' Predicted Conc = ', ES12.4 ) 92115 FORMAT(' Rates used in Photolysis Reactions ') 92116 FORMAT('Reaction: ', A16, ' uses PHOTAB ', A16, ' = ', ES12.4) 92117 FORMAT('Reaction: ', A16, ' uses Reaction ', A16, ' = ', ES12.4) 92216 FORMAT(/ 'MAXERR = ', ES12.4 & / 'SQRT( ERR( CELL_MAXERR ) * RNSPEC ) = ', ES12.4) 92214 FORMAT( I3, A16,' = ', E12.4) 92215 FORMAT(/ 'Cell Properties ' & / 'Temp = ', ES12.4, ' K ' & / 'Press = ', ES12.4,' Pa ' & / 'Dens = ', ES12.4, ' Kg/m3 ' & / 'H2O Vapor = ', ES12.4, ' ppm ' & / 'SEAWATER( - ) = ', ES12.4 ) END ================================================ FILE: CCTM/src/gas/ros3/rbsparse.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/CCTM/src/gas/ros3/rbsparse.F,v 1.4 2011/10/21 16:11:11 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% SUBROUTINE RBSPARSE( ) C*********************************************************************** C Function: To define array pointers for sparse matrix storage by C doing symbolic LU decomposition C Preconditions: None C Key Subroutines/Functions Called: None C Revision History: Prototype created by Jerry Gipson, August, 2004. C Based on the SMVGEAR code originally developed by C M. Jacobson, (Atm. Env., Vol 28, No 2, 1994) C 28 Jun 10 J.Young: convert for Namelist redesign C 29 Mar 11 S.Roselle: Replaced I/O API include files C with UTILIO_DEFN C 15 Jul 14 B.Hutzell: replaced mechanism include files with C RXNS_DATA module and supplement error message when array C bounds exceed maximum values C*********************************************************************** USE RXNS_DATA USE RBDATA ! ROS3 solver data USE CGRID_SPCS ! CGRID mechanism species USE UTILIO_DEFN IMPLICIT NONE C..Includes: C..Arguments: C..Parameters: INTEGER, PARAMETER :: IZERO = 0 ! Integer zero C..External Functions: None C..Local Variables: LOGICAL, SAVE :: INITIALIZED = .FALSE. ! Flag for first call to this subroutine INTEGER :: IFNEVER = 0 ! Flag for counter initialization INTEGER :: NDLMAX = 0 ! Max # of PD loss terms in any reaction INTEGER :: NDPMAX = 0 ! Max # of PD prod terms in any reaction CHARACTER( 16 ), PARAMETER :: PNAME = 'RBSPRSE_A' ! Procedure name CHARACTER( 80 ) :: MSG ! Mesaage text for output log INTEGER I,J,K,I1,J1,I2 ! Matrix loop indices INTEGER IA, IB ! I,J index holders for decomp loop 2 INTEGER INEW, JNEW ! Index for sorted species number INTEGER IOLD, JOLD ! Index for old species number INTEGER IPA, KPA ! I,K index holders for decomp loop 1 INTEGER IPB, KPB ! I,K index holders for decomp loop 1 INTEGER IPROD, JP ! Species number of a product INTEGER IREACT, IR, JR ! Species number of a reactant INTEGER ISP, ISP2 ! Species loop indices INTEGER JRE, JPR, IRE ! Indices for nonzero Jacobian entries INTEGER JZ3, JZ4 ! Counter for calcs in backsub groupings INTEGER NP, IAP ! Product loop indices INTEGER NR, IAL, JAL ! Reactant loop indices INTEGER IAR ! Pointer to location of PD term INTEGER IARRAY2 ! Final # of matrix entries w/ Sp. Mat INTEGER ICB ! Counter for # of terms in decomp loop 1 INTEGER ICBSUM ! Running count of calcs for j index ! in decomp loop 1 INTEGER ICCOUNT ! Two term op count for decomp loop 1 INTEGER ICNT ! Total op counter for decomp loop 1 INTEGER ICNTA ! op. counter for decomp loop 1 w/ Sp Mat INTEGER ICNTB ! op. counter for decomp loop 1 w/ Sp Mat INTEGER IFSUN ! Day/night loop index INTEGER IJSTEP ! Number of terms to calc in decomp loops INTEGER IMINNEW ! Index holder for sort routine INTEGER IMINOLD ! Index holder for sort routine INTEGER IPORR ! Species number of a product or reactant INTEGER JCB ! Counter for # of terms in decomp loop 2 INTEGER JCCOUNT ! Two term op count for decomp loop 2 INTEGER JCNT ! Total op counter for decomp loop 2 INTEGER JCNTA ! op. counter for decomp loop 2 w/o Sp Mat INTEGER JCNTB ! op. counter for decomp loop 2 w/ Sp Mat INTEGER JZ ! Loop index for backsub loops INTEGER KA ! Loop index for decomposition loops INTEGER KCNT ! op. counter for bksub loop 1 w/ Sp. Mat. INTEGER KCNTA ! op. counter for bksub loop 1 w/o Sp Mat INTEGER KNTARRAY ! Final # of matrix entries w/o Sp. Mat INTEGER KOUNT0 ! Initial # of matrix entries w/ Sp. Mat INTEGER KOUNT0A ! Initial # of matrix entries w/o Sp. Mat INTEGER KZ ! # of nonzero calcs in backsub loop 1 INTEGER NCSP ! Mechanism number NCS+1=day NCS+2=night INTEGER NK ! Reaction number INTEGER NLS ! Number of loss PD terms INTEGER NOCHANG ! Count of number of species not reacting INTEGER NPR ! Number of prod PD terms INTEGER NQQ ! Loop index for Gear order INTEGER NRPP ! Reactant plus product loop index INTEGER NRX ! Reaction loop index INTEGER NU ! Active reaction count holder INTEGER MCNT ! op. counter for bksub loop 2 w/ Sp. Mat. INTEGER MCNTA ! op. counter for bksub loop 2 w/o Sp. Mat. INTEGER MINVALU ! Current number of PD terms in sort INTEGER MZ ! # of nonzero calcs in backsub loop 2 !KSPARSE INTEGER, ALLOCATABLE :: ICLO( : ) ! Pointer to # of ops in decomp loop 1 INTEGER, ALLOCATABLE :: JCLO( : ) ! Pointer to # of ops in decomp loop 2 INTEGER, ALLOCATABLE :: IZEROI( : ) ! Pointer to decomp loop 1 i index INTEGER, ALLOCATABLE :: IZEROK( : ) ! Pointer to decomp loop 1 k index INTEGER, ALLOCATABLE :: JZERO ( : ) ! Pointer to decomp loop 2 i index INTEGER, ALLOCATABLE :: IZILCH ( :,: ) ! # of nonzero calcs in decomp loop 1 INTEGER, ALLOCATABLE :: JZILCH ( :,: ) ! # of nonzero calcs in decomp loop 2 INTEGER, ALLOCATABLE :: LZERO ( :,: ) ! Symbolic Jacobian matrix !JSPARSE INTEGER, ALLOCATABLE :: ISAPORL( : ) ! Count of PD terms for each species INTEGER, ALLOCATABLE :: ISPARDER( :,: ) ! Indicator of a PD term in the ! Jacobian matrix INTEGER IOS ! status c..The following can be uncommented to print symbolic J-matrix c integer iglg c character(1), allocatable :: ichrout( : ) C*********************************************************************** c..The following can be uncommented to print symbolic J-matrix c allocate( ichrout( n_spec) ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Initialize some variables on first call cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF ( INITIALIZED )THEN RETURN ELSE INITIALIZED = .TRUE. END IF ALLOCATE( ISAPORL ( NUMB_MECH_SPC ), & ISPARDER( NUMB_MECH_SPC,NUMB_MECH_SPC ), & STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = '*** Memory allocation failed' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Initialize Prod/loss and PD tabulator arrays cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc NCSP = NCS ISAPORL = 0 ISPARDER = 0 cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Set the number of Partial derivative terms in the Jacobian and c count the number of terms for each species cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc DO NRX = 1, NRXNS DO NR = 1, 3 IREACT = IRR( NRX,NR ) IF ( IREACT .NE. 0 ) THEN DO NRPP = 1, 3 + MXPRD IPORR = IRR( NRX,NRPP ) IF ( IPORR .NE. 0 ) ISPARDER( IPORR,IREACT ) = 1 END DO END IF END DO END DO DO IREACT = 1, NUMB_MECH_SPC DO IPORR = 1, NUMB_MECH_SPC IF ( ISPARDER( IPORR,IREACT ) .EQ. 1 ) & ISAPORL( IPORR ) = ISAPORL( IPORR ) + 1 END DO END DO cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Sort the species, putting all with zero partial derivative c terms at the bottom and those with fewest PD terms at top. c Set arrays for species with zero PD terms cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc ISCHANG = 0 NOCHANG = NUMB_MECH_SPC DO JOLD = 1, NUMB_MECH_SPC IF ( ISAPORL( JOLD ) .GT. 0 ) THEN ISCHANG( NCS ) = ISCHANG( NCS ) + 1 JNEW = ISCHANG( NCS ) INEW2OLD( JNEW,NCS ) = JOLD IOLD2NEW( JOLD,NCS ) = JNEW ELSE INEW2OLD( NOCHANG,NCS ) = JOLD IOLD2NEW( JOLD,NCS ) = NOCHANG NOCHANG = NOCHANG - 1 END IF END DO cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Now sort by number of PD terms, fewest at position 1, most at c the end position. cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc DO JNEW = 1, ISCHANG( NCS ) c Uncomment the following three lines to turn off species ordering; c not recommended since computational efficiency reduced ! INEW2OLD( JNEW,NCS ) = JNEW ! IOLD2NEW( JNEW,NCS ) = JNEW ! IF ( JNEW .NE. 0 ) GO TO 180 JOLD = INEW2OLD( JNEW,NCS ) MINVALU = ISAPORL( JOLD ) IMINOLD = JOLD IMINNEW = JNEW DO INEW = JNEW + 1, ISCHANG( NCS ) IOLD = INEW2OLD( INEW,NCS ) IF ( ISAPORL( IOLD ) .LT. MINVALU ) THEN MINVALU = ISAPORL( IOLD ) IMINOLD = IOLD IMINNEW = INEW END IF END DO INEW2OLD( IMINNEW,NCS ) = JOLD INEW2OLD( JNEW,NCS ) = IMINOLD IOLD2NEW( JOLD,NCS ) = IMINNEW IOLD2NEW( IMINOLD,NCS ) = JNEW END DO cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Fill the irm2 array using the new species order developed above. c Also determine active reactions for day and then night (i.e., photo c reactions determined by BTEST=.TRUE. are not included for nighttime) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc NUSERAT = 0 DO NRX = 1, NRXNS DO NR = 1, NREACT( NRX ) IREACT = IRR( NRX,NR ) IRM2( NRX,NR,NCS ) = IOLD2NEW( IREACT,NCS ) END DO DO NP = 1, NPRDCT( NRX ) IPROD = IRR( NRX, NP + 3 ) IRM2( NRX,NP+3,NCS ) = IOLD2NEW( IPROD,NCS ) END DO IF ( NREACT( NRX ) .GT. 0 ) THEN NUSERAT( NCS ) = NUSERAT( NCS ) + 1 NU = NUSERAT( NCS ) NKUSERAT( NU, NCS ) = NRX IF ( .NOT. ( BTEST ( IRXBITS( NRX ),1 ) ) ) THEN NUSERAT( NCS + 1 ) = NUSERAT( NCS + 1 ) + 1 NU = NUSERAT( NCS + 1 ) NKUSERAT( NU, NCS + 1 ) = NRX END IF END IF END DO DEALLOCATE( ISAPORL, ISPARDER ) ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Do symbolic LU decomposition to determine sparse storage array c structures. Done twice, first for day and then for night. An entry c of 1 in lzero means a non-negative entry in the Jacobian. First c put ones on the diagonal and zeroes everywhere else. ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc ALLOCATE( ICLO( NCS2 ), & JCLO( NCS2 ), & IZEROI( MXCOUNT1 ), & IZEROK( MXCOUNT2 ), & JZERO ( MXCOUNT1 ), STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = '*** Memory allocation failed' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF ALLOCATE( LZERO ( NUMB_MECH_SPC,NUMB_MECH_SPC ), & IZILCH ( NUMB_MECH_SPC,NCS2 ), & JZILCH ( NUMB_MECH_SPC,NCS2 ), STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = '*** Memory allocation failed' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF IZILCH = 0 JZILCH = 0 JHIZ1 = 0 JHIZ2 = 0 KZILCH = 0 MZILCH = 0 NDERIVL = 0 NDERIVP = 0 JARRAYPT = 0 IJDECA = 0 IKDECA = 0 KJDECA = 0 IJDECB = 0 IKDECB = 0 KJDECB = 0 LOOP_SUN: DO IFSUN = 1, 2 NCSP = IFSUN DO I = 1, NUMB_MECH_SPC DO J = 1, NUMB_MECH_SPC LZERO( J,I ) = 0 END DO LZERO( I,I ) = 1 END DO cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Fill in the rest of the entries in the Jacobian cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc DO NRX = 1, NUSERAT( NCSP ) NK = NKUSERAT( NRX,NCSP ) DO NR = 1, NREACT( NK ) IRE = IRM2( NK,NR,NCS ) DO JAL = 1, NREACT( NK ) JRE = IRM2( NK,JAL,NCS ) LZERO( JRE,IRE ) = 1 END DO DO IAP = 1, NPRDCT( NK ) JPR = IRM2( NK,3+IAP,NCS ) LZERO( JPR,IRE ) = 1 END DO END DO END DO ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Uncomment to print the undecomposed matrix symbolically ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c iglg = 0 c write( logdev,8200 ) c8200 format(//1x,'jacobian ') c write( logdev,8211 ) (chemistry_spc(inew2old(j,ncs))(1:1),j=1,n_spec) c8211 format( 9x, 40( 2x,A1 ) ) c write( logdev,8211 ) (chemistry_spc(inew2old(j,ncs))(2:2),j=1,n_spec) c write( logdev,8211 ) (chemistry_spc(inew2old(j,ncs))(3:3),j=1,n_spec) c write( logdev,8211 ) (chemistry_spc(inew2old(j,ncs))(4:4),j=1,n_spec) c write( logdev,8210 ) (i,i=1,ischang(ncs)) c8210 format( /9x, 40I3 ) c DO 585 i = 1, ischang( ncs ) c k = inew2old( i,ncs ) c DO 584 j=1,n_spec c if ( lzero(i,j ) .NE. 0 ) then c iglg = iglg + 1 c ichrout( j ) = 'X' c else c ichrout( j ) = ' ' c end if c584 continue c write( logdev,8220 ) chemistry_spc( k ), i, (ichrout( j ), j=1,n_spec) c8220 format( 1x, A4, 1x, I2, 1x, 40( 2x,A1 ) ) c585 continue c write( logdev,8230 ) iglg c8230 format( 1x,'Total number of nonzero entries=',I5 ) ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Set up arrays for decomposition / back-substitution of sparse c matrices by removing all calculations involving a zero. ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF ( IFNEVER.EQ.0 ) THEN IFNEVER = 1 ICNT = 0 JCNT = 0 ICCOUNT = 0 JCCOUNT = 0 END IF KOUNT0A = 0 KOUNT0 = 0 ICNTA = 0 ICNTB = 0 JCNTA = 0 JCNTB = 0 KCNTA = 0 MCNTA = 0 KCNT = 0 MCNT = 0 IARRAY2 = 0 ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Count number of entries w/ and w/o sparse matrix storage ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc DO J = 1, ISCHANG( NCS ) DO K = 1, ISCHANG( NCS ) KOUNT0A = KOUNT0A + 1 IF ( LZERO( J,K ) .EQ. 1 ) KOUNT0 = KOUNT0 + 1 END DO END DO ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Do the symbolic decomposition (ludcmp) converting [A] to [L][U] ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc ICLO( NCSP ) = ICNT + 1 JCLO( NCSP ) = JCNT + 1 DO J = 1, ISCHANG( NCS ) J1 = J - 1 c... First loop of decomposition DO I = 2, ISCHANG( NCS ) I1 = J1 IF ( I .LE. J1 ) I1 = I - 1 DO K = 1, I1 ICNTA = ICNTA + 1 IF ( LZERO( I,K ) .EQ. 1 .AND. LZERO( K,J ) .EQ. 1 ) & THEN IZILCH( J,NCSP ) = IZILCH( J,NCSP ) + 1 ICNT = ICNT + 1 ICNTB = ICNTB + 1 IZEROK( ICNT ) = K IZEROI( ICNT ) = I LZERO( I,J ) = 1 END IF END DO END DO c... Second loop of decomposition DO I = J + 1, ISCHANG( NCS ) JCNTA = JCNTA + 1 IF ( LZERO( I,J ) .EQ. 1 ) THEN JZILCH( J,NCSP ) = JZILCH( J,NCSP ) + 1 JCNT = JCNT + 1 JCNTB = JCNTB + 1 JZERO( JCNT ) = I END IF END DO END DO ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Do symbolic back-substition for solving [L][U]{x}={b}. Store data c in sparse matrix pointer jarraypt. ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c... First loop of back-substitution DO I = 2, ISCHANG( NCS ) I1 = I - 1 DO J = 1, I1 KCNTA = KCNTA + 1 IF ( LZERO( I,J ) .EQ. 1 ) THEN KZILCH( I,NCSP ) = KZILCH( I,NCSP ) + 1 KCNT = KCNT + 1 IARRAY2 = IARRAY2 + 1 KZERO( IARRAY2,NCSP ) = J JARRAYPT( I,J,NCSP ) = IARRAY2 END IF END DO END DO c... Second loop of back-substitution DO I = ISCHANG( NCS ) - 1, 1, -1 I2 = I + 1 DO J = I + 1, ISCHANG( NCS ) MCNTA = MCNTA + 1 IF ( LZERO( I,J ) .EQ. 1 ) THEN MZILCH( I,NCSP ) = MZILCH( I,NCSP ) + 1 MCNT = MCNT + 1 IARRAY2 = IARRAY2 + 1 KZERO( IARRAY2,NCSP ) = J JARRAYPT( I,J,NCSP ) = IARRAY2 END IF END DO END DO ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Fill jarraypt with remaining diagonal array points and save counts ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc DO I = 1, ISCHANG( NCS ) IARRAY2 = IARRAY2 + 1 JARRAYPT( I,I,NCSP ) = IARRAY2 END DO IARRAY( NCSP ) = IARRAY2 KNTARRAY = KCNTA + MCNTA + ISCHANG( NCS ) ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Do decomposition again to change arrays to use jarraypt CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC JCB = JCLO( NCSP ) JZLO( NCSP ) = JCCOUNT ICBSUM = ICLO( NCSP ) - 1 IJSTEP = 2 DO J = 1, ISCHANG( NCS ) c...First loop of decomposition IDEC1LO( J,NCSP ) = ICCOUNT + 1 ICB = ICBSUM + 1 ICBSUM = ICBSUM + IZILCH( J, NCSP ) DO KA = 1, IZILCH( J,NCSP ), IJSTEP ICCOUNT = ICCOUNT + 1 IPA = IZEROI( ICB ) KPA = IZEROK( ICB ) IJDECA( ICCOUNT ) = JARRAYPT( IPA, J,NCSP ) IKDECA( ICCOUNT ) = JARRAYPT( IPA,KPA,NCSP ) KJDECA( ICCOUNT ) = JARRAYPT( KPA, J,NCSP ) IF ( ICB + 1 .LE. ICBSUM ) THEN IPB = IZEROI( ICB + 1 ) KPB = IZEROK( ICB + 1 ) IJDECB( ICCOUNT ) = JARRAYPT( IPB, J,NCSP ) IKDECB( ICCOUNT ) = JARRAYPT( IPB,KPB,NCSP ) KJDECB( ICCOUNT ) = JARRAYPT( KPB, J,NCSP ) END IF ICB = ICB + IJSTEP END DO IDEC1HI( J,NCSP ) = ICCOUNT c...Second loop of decomposition JZ = JZILCH( J, NCSP ) DO I = 1, JZ - 1, 2 JCCOUNT = JCCOUNT + 1 JHIZ1( J,NCSP ) = JHIZ1( J,NCSP ) + 1 IA = JZERO( JCB ) IB = JZERO( JCB + 1 ) JZEROA( JCCOUNT ) = JARRAYPT( IA,J,NCSP ) JZEROB( JCCOUNT ) = JARRAYPT( IB,J,NCSP ) JCB = JCB + 2 END DO IF ( MOD( JZ,2 ) .EQ. 1 ) THEN JCCOUNT = JCCOUNT + 1 JHIZ2( J,NCSP ) = JHIZ2( J,NCSP ) + 1 IA = JZERO( JCB ) JZEROA( JCCOUNT ) = JARRAYPT( IA,J,NCSP ) JCB = JCB + 1 END IF END DO ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Group terms to increase efficiency in back-substition ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c... First back-substitution loop DO I = 1, ISCHANG( NCS ) KZ = KZILCH( I,NCSP ) KZHI0( I,NCSP ) = KZ - 4 JZ3 = 0 DO JZ = 1, KZHI0( I,NCSP ), 5 JZ3 = JZ + 4 END DO KZLO1( I,NCSP ) = JZ3 + 1 KZHI1( I,NCSP ) = KZ - 1 JZ4 = JZ3 DO JZ = JZ3 + 1, KZ - 1, 2 JZ4 = JZ + 1 END DO KZLO2( I,NCSP ) = JZ4 + 1 END DO c... Second loop of back-substitution DO I = ISCHANG( NCS ), 1, -1 MZ = MZILCH( I,NCSP ) MZHI0( I,NCSP ) = MZ - 4 JZ3 = 0 DO JZ = 1, MZHI0( I,NCSP ), 5 JZ3 = JZ + 4 END DO MZLO1( I,NCSP ) = JZ3 + 1 MZHI1( I,NCSP ) = MZ - 1 JZ4 = JZ3 DO JZ = JZ3+1, MZ-1, 2 JZ4 = JZ + 1 END DO MZLO2( I,NCSP ) = JZ4 + 1 END DO cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Check dimensions cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF ( ICNT .GT. MXCOUNT2 .OR. JCNT .GT. MXCOUNT1 .OR. & IARRAY2 .GT. MXARRAY .OR. ICCOUNT .GT. MXCOUNT2 .OR. & JCCOUNT .GT. MXARRAY ) THEN WRITE( MSG, 94000 ) CALL M3MESG( MSG ) WRITE( MSG, 94020 ) MXCOUNT2, ICNT CALL M3MESG( MSG ) WRITE( MSG, 94040 ) MXCOUNT1, JCNT CALL M3MESG( MSG ) WRITE( MSG, 94060 ) MXARRAY, IARRAY2 CALL M3MESG( MSG ) WRITE( MSG, 94080 ) MXCOUNT2, ICCOUNT CALL M3MESG( MSG ) WRITE( MSG, 94100 ) MXARRAY, JCCOUNT, MAXGL3 WRITE( LOGDEV,94110 ) CALL M3MESG( MSG ) CALL M3EXIT( PNAME, IZERO, IZERO, ' ', XSTAT1 ) END IF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Set final arrays for partial derivative calculations cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc DO NRX = 1, NUSERAT( NCSP ) NK = NKUSERAT( NRX,NCSP ) DO IAL = 1, NREACT( NK ) IR = IRM2( NK,IAL,NCS ) DO JAL = 1, NREACT( NK ) JR = IRM2( NK,JAL,NCS ) IAR = JARRAYPT( JR,IR,NCSP ) NDERIVL( NK,NCSP ) = NDERIVL( NK,NCSP ) + 1 NLS = NDERIVL( NK,NCSP ) JARRL( NK,NLS,NCSP ) = IAR JLIAL( NK,NLS,NCSP ) = IAL NDLMAX = MAX( NLS,NDLMAX ) END DO DO IAP = 1, NPRDCT( NK ) JP = IRM2( NK,IAP+3,NCS ) IAR = JARRAYPT( JP,IR,NCSP ) NDERIVP( NK,NCSP ) = NDERIVP( NK,NCSP ) + 1 NPR = NDERIVP( NK,NCSP ) JARRP( NK,NPR,NCSP ) = IAR JPIAL( NK,NPR,NCSP ) = IAL ICOEFF( NK,NPR,NCSP ) = 0 IF ( ABS( SC( NK,IAP ) - 1.0D0 ) .GT. 1.0D-06 ) THEN ICOEFF( NK,NPR,NCSP ) = IAP END IF NDPMAX = MAX( NPR,NDPMAX ) END DO END DO END DO cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Check dimensions of PD arrays cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF ( NDPMAX .GT. MXRP .OR. NDLMAX .GT. MXRR ) THEN WRITE( MSG, 94000 ) CALL M3MESG( MSG ) WRITE( MSG, 94200 ) MXRP, NDPMAX CALL M3MESG( MSG ) WRITE( MSG, 94220 ) MXRR, NDLMAX CALL M3MESG( MSG ) CALL M3EXIT( PNAME, IZERO, IZERO, ' ', XSTAT1 ) END IF 700 END DO LOOP_SUN DEALLOCATE( ICLO, & JCLO, & IZEROI, & IZEROK, & JZERO, & LZERO, & IZILCH, & JZILCH ) RETURN C********************** FORMAT STATEMENTS ****************************** 94000 FORMAT( 1X,'One of the dimensions below is too small:') 94020 FORMAT( 1X,'DIMENSION: MXCOUNT2 = ',I6,' VARIABLE: ICNT = ',I6) 94040 FORMAT( 1X,'DIMENSION: MXCOUNT1 = ',I6,' VARIABLE: JCNT = ',I6) 94060 FORMAT( 1X,'DIMENSION: MXARRAY = ',I6,' VARIABLE: IARRAY2 = ',I6) 94080 FORMAT( 1X,'DIMENSION: MXCOUNT2 = ',I6,' VARIABLE: ICCOUNT = ',I6) 94100 FORMAT( 1X,'DIMENSION: MXARRAY = ',I6,' VARIABLE: JCCOUNT = ',I6,' MAXGL3 = ',I6 ) 94110 FORMAT( 1X,'NOTE: MXCOUNT[1,2] = NUMB_MECH_SPC * MAXGL3 * 3' ) 94200 FORMAT( 1X,'DIMENSION: MXRP = ',I6,' VARIABLE: NDPMAX = ',I6) 94220 FORMAT( 1X,'DIMENSION: MXRR = ',I6,' VARIABLE: NDLMAX = ',I6) END ================================================ FILE: CCTM/src/gas/smvgear/GRVARS.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/CCTM/src/gas/smvgear/GRVARS.F,v 1.3 2011/10/21 16:11:12 yoj Exp $ MODULE GRVARS ! USE GRID_CONF, ONLY: BLKSIZE ! horizontal & vertical domain specifications USE GRID_CONF ! horizontal & vertical domain specifications IMPLICIT NONE C...................................................................... C INCLUDE FILE: GRPARMS.EXT C CONTAINS: Dimensioning parameters for Gear solver C REVISION HISTORY: Prototype created by Jerry Gipson, June, 1995 C Revised 3/15/96 by Jerry Gipson to conform to C Models-3 minimum IOV configuration. C Revised December 1996 by Jerry Gipson to conform C to the Models-3 interim CTM that includes emissions C in chemistry. C Revised April 1997 to distinguish NSPCS from NSPCSD C Revised April 1997 to conform to Models-3 framework C Modified June, 1997 by Jerry Gipson to be consistent C with beta CTM C...................................................................... C # of chemical mechanisms used INTEGER, PARAMETER :: NCS = 1 C 2 * # of chemical mechanisms INTEGER, PARAMETER :: NCS2 = 2 * NCS INTEGER, PARAMETER :: MXRCT = 3 ! max no. of reactants C Maximum # of terms in [P]=[I]-bh[J] INTEGER, PARAMETER :: MXARRAY = 5400 C Maximum # prod/loss terms for a species INTEGER, PARAMETER :: MAXGL = 150 C A dimension smaller that MAXGL INTEGER, PARAMETER :: MAXGL2 = 70 C A dimension smaller MAXGL2 INTEGER, PARAMETER :: MAXGL3 = 100 C Maximum order possible INTEGER, PARAMETER :: MXORDER = 7 C Sparse matrix pointer dimension INTEGER :: MXCOUNT1 C Sparse matrix pointer dimension INTEGER :: MXCOUNT2 C Sparse matrix pointer dimension INTEGER :: MXCOUNT3 C Sparse matrix pointer dimension INTEGER :: MXCOUNT4 C Maximum # of reactant PD terms INTEGER :: MXRR C Maximum # of product PD terms INTEGER :: MXRP C............................ end GRPARMS.EXT ......................... C...................................................................... C INCLUDE FILE: GRVARS1.EXT C CONTAINS: Common block definitions for Gear control data that are C set in subroutine GRINIT C REVISION HISTORY: Prototype created by Jerry Gipson, June, 1995 C Revised 3/14/96 by Jerry Gipson to conform to C the Models-3 minimum IOV configuration. C Revised December 1996 by Jerry Gipson to conform C to the Models-3 interim CTM that includes emissions C in chemistry. C Modified June, 1997 by Jerry Gipson to be consistent C with beta CTM C 17 Aug 01 by J.Young: split out variables that are C intrinsically dependent on NCOLS, NROWS into an f90 C module C...................................................................... LOGICAL LDEBUG ! Flag to turn on/off debug output LOGICAL LDUMPBLK ! Flag to dump IC data for one block LOGICAL LDUMPCELL ! Flag to dump IC data for one cell LOGICAL LTRACE ! Flag for trace report for one block LOGICAL LPERFSMRY ! Flag for Gear summary statistics LOGICAL LCELLCONC ! Flag to output cell concentrations LOGICAL LREORDER ! Flag to reorder cells for Gear solver C ldebug option -- output debug report for one run INTEGER DBGCOL ! Column number for debug data INTEGER DBGROW ! Row number for debug data INTEGER DBGLEV ! Layer number for debug data INTEGER IBLKBUG ! Block number for debug output INTEGER ICPR ! Cell number for cell data output INTEGER IRUNBUG ! Run number for debug output INTEGER IUNDBG ! Unit number of output file INTEGER NPDOUT ! Number for Jacobian evaluation output INTEGER NSTEPOUT ! Gear step number for debug output INTEGER NSUBOUT ! Number for RHS evaluation output C ldumpblk option -- output IC data for one block INTEGER IBLKBLK ! Block number to output INTEGER IRUNBLK ! Run number to output INTEGER IUNBIC ! Unit number of output file C ldumpcell option -- output IC data for one cell INTEGER IBLKCELL ! Block number to output INTEGER INUMCELL ! Cell number to output INTEGER IRUNCELL ! Run number to output INTEGER IUNCIC ! Unit number of output file C ltrace option -- output trace report for one run INTEGER IBLKTRC ! Block number to output INTEGER IRUNTRC1 ! Run number to output INTEGER IRUNTRC2 ! Run number to output INTEGER IUNTRC ! Unit number of output file C lperfsmry option -- output Gear performance report for entire run INTEGER IUNPERF ! Unit number for output file C lcellconc option -- output conc. of one cell at Gear time steps INTEGER CCOLOUT ! Column index of cell to output INTEGER CLEVOUT ! Layer index of cell to output INTEGER CROWOUT ! Row index of cell to output INTEGER IRUNPRO1 ! Starting run number for output INTEGER IRUNPRO2 ! Ending run number for output INTEGER IUNCOUT ! Unit number of output file INTEGER NCELL1 ! cell where col, row, lev equal one C Other variables INTEGER NBLKS ! Number of blocks of cells C real variables REAL( 8 ) :: CONCMIN ! Zero threshold used in Gear solver REAL( 8 ) :: FRACDEC ! Gear time step reduction factor REAL( 8 ) :: HMAXNIT ! Maximum Gear time step for nighttime REAL( 8 ) :: HMIN ! Minimum Gear time step REAL( 8 ) :: RUNMIN ! Simulation time for lcellconc option REAL( 8 ) :: ZBOUND ! Lower bound of zero threshold REAL( 8 ) :: ERRMAX ( NCS ) ! Gear relative error tolerance REAL( 8 ) :: HMAXDAY( NCS ) ! Maximum Gear time step for daytime REAL( 8 ) :: YLOW ( NCS ) ! Gear absolute error tolerance C........................... end GRVARS1.EXT .......................... C...................................................................... C INCLUDE FILE: GRVARS2.EXT C CONTAINS: Common block definitions for Gear control data that are C set in subroutine GRSPARS C REVISION HISTORY: Prototype created by Jerry Gipson, June, 1995. C Revised 3/14/96 by Jerry Gipson to conform to C the Models-3 minimum IOV configuration. C Revised December 1996 by Jerry Gipson to conform C to the Models-3 interim CTM that includes emissions C in chemistry. C Revised April 1997 to distinguish NSPCS from NSPCS C Revised April 1997 to conform to Models-3 framework C Modified June, 1997 by Jerry Gipson to be consistent C with beta CTM C...................................................................... INTEGER MAXORD ! Max order allowed INTEGER MBETWEEN ! Max # of steps between calls to update ! the Jacobian INTEGER MSTEP ! Max # of corrector iterations allowed INTEGER IARRAY( NCS2 ) ! Number of PD terms in sparse matrix INTEGER, ALLOCATABLE, SAVE :: IJDECA( : ) ! Pointer for ij term 1 in decomp loop 1 INTEGER, ALLOCATABLE, SAVE :: IJDECB( : ) ! Pointer for ij term 2 in decomp loop 1 INTEGER, ALLOCATABLE, SAVE :: IKDECA( : ) ! Pointer for ik term 1 in decomp loop 1 INTEGER, ALLOCATABLE, SAVE :: IKDECB( : ) ! Pointer for ik term 2 in decomp loop 1 INTEGER ISCHANG( NCS ) ! Number of reacting species INTEGER JZEROA( MXARRAY ) ! Pointer for j term 1 in decomp loop 2 INTEGER JZEROB( MXARRAY ) ! Pointer for j term 2 in decomp loop 2 INTEGER JZLO( NCS2 ) ! # of ops in decomp loop 1 INTEGER, ALLOCATABLE, SAVE :: KJDECA( : ) ! Pointer for kj term 1 in decomp loop 1 INTEGER, ALLOCATABLE, SAVE :: KJDECB( : ) ! Pointer for kj term 2 in decomp loop 1 INTEGER NUSERAT( NCS2 ) ! Number of active reactions in day and ! night mechanisms INTEGER, ALLOCATABLE, SAVE :: IDEC1LO ( :, : ) ! Inner start index for dcmp loop 1 INTEGER, ALLOCATABLE, SAVE :: IDEC1HI ( :, : ) ! Inner end index for dcmp loop 1 INTEGER, ALLOCATABLE, SAVE :: INEW2OLD( :, : ) ! Gives sorted species number from ! original species number index INTEGER, ALLOCATABLE, SAVE :: IOLD2NEW( :, : ) ! Gives original species number ! from sorted species number index INTEGER, ALLOCATABLE, SAVE :: JHIZ1 ( :, : ) ! # of 2-term groups in dcmp loop 2 INTEGER, ALLOCATABLE, SAVE :: JHIZ2 ( :, : ) ! # of 1-term groups in dcmp loop 2 INTEGER :: KZERO ( MXARRAY, NCS2 ) ! Pointer to bksub j index INTEGER, ALLOCATABLE, SAVE :: KZHI0 ( :, : ) ! End index for 5-term bksub loop 1 INTEGER, ALLOCATABLE, SAVE :: KZHI1 ( :, : ) ! End index for 2-term bksub loop 1 INTEGER, ALLOCATABLE, SAVE :: KZILCH( :, : ) ! # of calcs in bksub loop 1 (L) INTEGER, ALLOCATABLE, SAVE :: KZLO1 ( :, : ) ! Start index for 2-term bksub loop 1 INTEGER, ALLOCATABLE, SAVE :: KZLO2 ( :, : ) ! Start index for 1-term bksub loop 1 INTEGER, ALLOCATABLE, SAVE :: MZHI0 ( :, : ) ! End index for 5-term bksub loop 2 INTEGER, ALLOCATABLE, SAVE :: MZHI1 ( :, : ) ! End index for 2-term bksub loop 2 INTEGER, ALLOCATABLE, SAVE :: MZILCH( :, : ) ! # of calcs in bksub loop 2 (U) INTEGER, ALLOCATABLE, SAVE :: MZLO1 ( :, : ) ! Start index for 2-term bksub loop 2 INTEGER, ALLOCATABLE, SAVE :: MZLO2 ( :, : ) ! Start index for 1-term bksub loop 2 INTEGER, ALLOCATABLE, SAVE :: NDERIVL ( :, : ) ! # of loss PD terms per reaction INTEGER, ALLOCATABLE, SAVE :: NDERIVP ( :, : ) ! # of prod PD terms per reaction INTEGER, ALLOCATABLE, SAVE :: NKUSERAT( :, : ) ! Rxn numbers of active reactions ! in day and night INTEGER, ALLOCATABLE, SAVE :: IRM2 ( :,:,: ) ! Species rxn array INTEGER, ALLOCATABLE, SAVE :: ICOEFF( :,:,: ) ! stoich coeff indx INTEGER, ALLOCATABLE, SAVE :: JARRL( :,:,: ) ! Pntr to PD Loss term INTEGER, ALLOCATABLE, SAVE :: JARRP( :,:,: ) ! Pntr to PD Prod term INTEGER, ALLOCATABLE, SAVE :: JLIAL( :,:,: ) ! Spec # for PD loss term INTEGER, ALLOCATABLE, SAVE :: JPIAL( :,:,: ) ! Spec # for PD prod term INTEGER, ALLOCATABLE, SAVE :: JARRAYPT( :, :, : ) ! Pointer to location of the ! PD terms in the 1D vector REAL( 8 ) :: CONP15( MXORDER ) ! Gear parameters used in convergence test REAL( 8 ) :: CONPST( MXORDER ) ! Gear parameters used in convergence test REAL( 8 ) :: ENQQ1 ( MXORDER ) ! Gear coefficients used to select order REAL( 8 ) :: ENQQ2 ( MXORDER ) ! and step size REAL( 8 ) :: ENQQ3 ( MXORDER ) ! REAL( 8 ) :: ASET( 10, 8 ) ! Gear parameters for calculating [P] and ! and determining the order REAL( 8 ) :: PERTST( MXORDER, 3 ) ! Gear coefficients used to select order and step size DATA PERTST / ! (7,3) & 2.0D0, 4.5D0, 7.333D0, 10.42D0, 13.7D0, 17.15D0, 1.0D0, & 3.0D0, 6.0D0, 9.167D0, 12.5D0, 15.98D0, 1.0D0, 1.0D0, & 1.0D0, 1.0D0, 0.5D0, 0.1667D0, 0.04133D0, 0.008267D0, 1.0D0 / C...................................................................... C INCLUDE FILE: GRVARS3.EXT C CONTAINS: Common block definitions for Gear data that are set in C in the solver subroutines C REVISION HISTORY: Prototype created by Jerry Gipson, June, 1995. C Revised 3/14/96 by Jerry Gipson to conform to C the Models-3 minimum IOV configuration. C Revised December 1996 by Jerry Gipson to conform C to the Models-3 interim CTM that includes emissions C in chemistry. C Revised April 1997 to distinguish NSPCS from NSPCS C Revised April 1997 to conform to Models-3 framework C Modified June, 1997 by Jerry Gipson to be consistent C with beta CTM C 17 Aug 01 by J.Young: split out variables that are C intrinsically dependent on NCOLS, NROWS into an f90 C module C...................................................................... LOGICAL LCONCOUT ! Flag to turn on cell conc. output LOGICAL LORDERING ! Flag to indicate cell ordering on LOGICAL LSUNLIGHT ! Flag for daytime LOGICAL LTRCOUT ! Flag to turn on Trace output INTEGER BLKID ! Number of block being processed INTEGER CELLOUT ! Number of cell to output concentrations INTEGER IRSTART ! Number of restarts at beginning INTEGER ISCHAN ! Number of species in [P] INTEGER OFFSET ! Pointer for start cell number in block INTEGER MXORDUSED ! Maximum order used INTEGER NCFAIL ! Number of convergence failures INTEGER NCSP ! Day/night mechanism index; ! = NCS ===>day; = NCS+1 ===>night INTEGER NEFAIL ! Number of error test failures INTEGER NPDERIV ! Number of Jacobian updates INTEGER NSTEPS ! Number of steps used INTEGER NSUBFUN ! Number of RHS evaluations INTEGER NUMBKUPS ! Number of backups INTEGER NUMCELLS ! Number of cells in block being processed INTEGER NUMNEWT ! Number of iterations REAL( 8 ) :: HMAX ! Maximum Gear time step (min) REAL( 8 ) :: R1DELT ! Time step times Gear coefficient REAL( 8 ), ALLOCATABLE, SAVE :: BLKTEMP( : ) ! Cell temp, deg K REAL( 8 ), ALLOCATABLE, SAVE :: BLKPRES( : ) ! Cell press, Pa REAL( 8 ), ALLOCATABLE, SAVE :: BLKCH2O( : ) ! Cell water conc, ppm REAL( 8 ), ALLOCATABLE, SAVE :: BLKDENS( : ) ! Cell air denisty, kg/m^3 REAL, ALLOCATABLE, SAVE :: BLKSVOL( : ) ! Cell air specific volume, m^3/kg REAL( 8 ), ALLOCATABLE, SAVE :: RJBLK( :,: ) ! J-values for each cell in block REAL( 8 ), ALLOCATABLE, SAVE :: BLKHET( :, : ) ! heterogeneous rate in block REAL( 8 ), ALLOCATABLE, SAVE :: BLKSEAWATER( : ) ! fractional area of OPEN+SURF REAL( 8 ), ALLOCATABLE, SAVE :: BLKCONC( :, : ) ! Species conc. for cells in block ! in original species order (ppm) REAL( 8 ), ALLOCATABLE, SAVE :: CNEW( :, : ) ! Species conc. for cells in block #ifdef sens REAL( 8 ), ALLOCATABLE :: CAVEG( :,: ) ! Average species concentrations over time step REAL( 8 ), ALLOCATABLE :: CINIT( :,: ) ! species concentrations at start of subtime step REAL( 8 ), ALLOCATABLE :: CFINI( :,: ) ! species concentrations at start of subtime step #endif ! in sorted species order (ppm) REAL( 8 ), ALLOCATABLE, SAVE :: EMBLK( :, : ) ! Species emissions in each cell REAL( 8 ), ALLOCATABLE, SAVE :: GLOSS( :, : ) ! dc/dt for each species (i.e., RHS) REAL( 8 ), ALLOCATABLE, SAVE :: VDIAG( :, : ) ! L-U Diagonal terms REAL( 8 ) :: CC2( BLKSIZE, 0:MXARRAY ) ! Array holding Jacobian REAL( 8 ), ALLOCATABLE, SAVE :: RK ( :,: ) ! Rate constants REAL( 8 ), ALLOCATABLE, SAVE :: RXRAT( :,: ) ! Reaction rates for each cell REAL, ALLOCATABLE, SAVE :: FORWARD_CONV( : ) ! CGRID to CHEM Species conversion factor REAL( 8 ), ALLOCATABLE, SAVE :: REVERSE_CONV( : ) ! CHEM to CGRID Species conversion factor C........................... end GRVARS3.EXT .......................... C....................................................................... C MODULE GRVARS C smvgear variables that are dependent on NCOLS, NROWS C Revision History: J.Young 17 Aug 01: create C J.Young 31 Jan 05: get MXCELLS from dyn alloc horizontal C & vertical domain specifications module (GRID_CONF) C 29 Jul 05 WTH: added variable used by degrade routines. C 29 Mar 11 S.Roselle: Replaced I/O API include files C with UTILIO_DEFN C 15 Jul 14 B.Hutzell: 1) replaced mechanism include files with C RXNS_DATA module, 2) inserted call to function MAP_CHEMISTRY_SPECIES C RXNS_FUNCTION module, 3) changed several array declarations from fixed C to allocatable dimensions, and 4) inserted do loop that calculates species C unit conversion factors based on species type C....................................................................... C Column index of ordered cells INTEGER, ALLOCATABLE, SAVE :: CCOL( : ) C Row index for ordered cells INTEGER, ALLOCATABLE, SAVE :: CROW( : ) C Layer index of ordered cells INTEGER, ALLOCATABLE, SAVE :: CLEV( : ) C Cell number offset for each block INTEGER, ALLOCATABLE, SAVE :: BLKCNO( : ) C Number of cells in each block INTEGER, ALLOCATABLE, SAVE :: BLKLEN( : ) C Original cell number of ordered cell index INTEGER, ALLOCATABLE, SAVE :: NORDCELL( : ) C Estimated stiffness of each cell REAL( 8 ), ALLOCATABLE, SAVE :: ERRMX2( : ) LOGICAL, SAVE :: CALL_DEG = .FALSE. ! WTH: SWITCH for calling DEGRADE routine CONTAINS SUBROUTINE GRVARS_INIT( JDATE, JTIME ) USE RXNS_DATA USE UTILIO_DEFN USE RXNS_FUNCTION IMPLICIT NONE C.....Includes: INCLUDE SUBST_CONST ! common constants INTEGER, INTENT( IN ) :: JDATE, JTIME INTEGER :: IOS, N CHARACTER( 16 ) :: PNAME = 'GRVARS_INIT' ! Procedure name CHARACTER( 96 ) :: MSG = ' ' C----------------------------------------------------------------------- MXCOUNT1 = NUMB_MECH_SPC * MAXGL3 * 3 MXCOUNT2 = NUMB_MECH_SPC * MAXGL3 * 3 MXCOUNT3 = NRXNS * 4 MXCOUNT4 = NRXNS * 5 MXRR = 3 * 3 MXRP = 3 * MXPRD ALLOCATE ( IJDECA( MXCOUNT2 ), & IJDECB( MXCOUNT2 ), & IKDECA( MXCOUNT2 ), & IKDECB( MXCOUNT2 ), & KJDECA( MXCOUNT2 ), & KJDECB( MXCOUNT2 ), STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = '*** Memory allocation failed for ' & // 'IJDECA, IJDECB, IKDECA, IKDECB, KJDECA,or KJDECB' CALL M3EXIT( PNAME, JDATE, JTIME, MSG, XSTAT2 ) END IF IJDECA = 0 ! array assignment IJDECB = 0 ! array assignment IKDECA = 0 ! array assignment IKDECB = 0 ! array assignment KJDECA = 0 ! array assignment KJDECB = 0 ! array assignment ALLOCATE ( IDEC1LO ( NUMB_MECH_SPC, NCS2 ), & IDEC1HI ( NUMB_MECH_SPC, NCS2 ), & INEW2OLD( NUMB_MECH_SPC, NCS ), & IOLD2NEW( NUMB_MECH_SPC, NCS ), & JHIZ1 ( NUMB_MECH_SPC, NCS2 ), & JHIZ2 ( NUMB_MECH_SPC, NCS2 ), & KZHI0 ( NUMB_MECH_SPC, NCS2 ), & KZHI1 ( NUMB_MECH_SPC, NCS2 ), & KZILCH ( NUMB_MECH_SPC, NCS2 ), & KZLO1 ( NUMB_MECH_SPC, NCS2 ), & KZLO2 ( NUMB_MECH_SPC, NCS2 ), & MZHI0 ( NUMB_MECH_SPC, NCS2 ), & MZHI1 ( NUMB_MECH_SPC, NCS2 ), & MZILCH ( NUMB_MECH_SPC, NCS2 ), & MZLO1 ( NUMB_MECH_SPC, NCS2 ), & MZLO2 ( NUMB_MECH_SPC, NCS2 ), STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = '*** Memory allocation failed for' & // 'IDEC1LO, IDEC1HI, INEW2OLD, IOLD2NEW, JHIZ1, JHIZ2, ' & // 'KZHI0, KZHI1, KZILCH, KZLO1, KZLO2, ' & // 'MZHI0, MZHI1, MZILCH, MZLO1, or MZLO2' CALL M3EXIT( PNAME, JDATE, JTIME, MSG, XSTAT2 ) END IF ALLOCATE ( JARRAYPT( NUMB_MECH_SPC, NUMB_MECH_SPC, NCS2 ), STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = '*** Memory allocation failed for JARRAYPT' CALL M3EXIT( PNAME, JDATE, JTIME, MSG, XSTAT2 ) END IF JARRAYPT = 0 ! array assignment ALLOCATE ( BLKCONC( BLKSIZE, NUMB_MECH_SPC ), & CNEW ( BLKSIZE, NUMB_MECH_SPC ), & EMBLK ( BLKSIZE, NUMB_MECH_SPC ), & GLOSS ( BLKSIZE, NUMB_MECH_SPC ), & VDIAG ( BLKSIZE, NUMB_MECH_SPC ), STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = '*** Memory allocation failed for ' & // 'BLKCONC, CNEW, EMBLK, GLOSS, or VDIAG' CALL M3EXIT( PNAME, JDATE, JTIME, MSG, XSTAT2 ) END IF #ifdef sens ALLOCATE( CINIT( BLKSIZE,NUMB_MECH_SPC ), & CFINI( BLKSIZE,NUMB_MECH_SPC ), & CAVEG( BLKSIZE,NUMB_MECH_SPC ), STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'ERROR allocating CINIT,CFINI,CAVEG' CALL M3EXIT( PNAME, JDATE, JTIME, MSG, XSTAT2 ) END IF #endif ALLOCATE ( CCOL( MXCELLS ), & CROW( MXCELLS ), & CLEV( MXCELLS ), & BLKCNO( MXBLKS ), & BLKLEN( MXBLKS ), & NORDCELL( MXCELLS ), & ERRMX2( MXCELLS ), STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = '*** Memory allocation failed for' & // ' CCOL, CROW, CLEV, BLKCNO, BLKLEN, NORDCELL, or ERRMX2' CALL M3EXIT( PNAME, JDATE, JTIME, MSG, XSTAT2 ) END IF c..cell & solver data ALLOCATE( BLKTEMP( BLKSIZE ), & BLKPRES( BLKSIZE ), & BLKCH2O( BLKSIZE ), & BLKDENS( BLKSIZE ), & BLKSVOL( BLKSIZE ), & BLKSEAWATER( BLKSIZE ), STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'ERROR allocating BLKTEMP, BLKPRES, BLKCH2O, BLKDENS, ' & // 'BLKSVOL, BLKSEAWATER ' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT2 ) END IF ALLOCATE( RJBLK( BLKSIZE,NPHOTAB ), & BLKHET( BLKSIZE, NHETERO ), STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'ERROR allocating RJBLK or BLKHET' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT2 ) END IF ALLOCATE( FORWARD_CONV( NUMB_MECH_SPC ), & REVERSE_CONV( NUMB_MECH_SPC ), STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'ERROR allocating FORWARD_CONV or REVERSE_CONV' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT2 ) END IF IF( .NOT. MAP_CHEMISTRY_SPECIES() )THEN MSG = 'Detected above error(s) when mapping Chemistry species from CGRID species' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT2 ) END IF DO N = 1, NUMB_MECH_SPC FORWARD_CONV( N ) = 1.0E-3 * MWAIR / REAL( SPECIES_MOLWT( N ) ) REVERSE_CONV( N ) = REAL( 1.0 / FORWARD_CONV( N ), 8 ) END DO ALLOCATE( NKUSERAT( NRXNS,NCS2 ), & NDERIVL ( NRXNS,NCS2 ), & NDERIVP ( NRXNS,NCS2 ), STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'ERROR allocating NKUSERAT, NDERIVL or NDERIVP' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT2 ) END IF ALLOCATE( RK( BLKSIZE,NRXNS ), & RXRAT( BLKSIZE,NRXNS ), STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'ERROR allocating RK or RXRAT' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT2 ) END IF ALLOCATE( JARRL( MXRR,NRXNS,NCS2 ), & JARRP( MXRP,NRXNS,NCS2 ), & JLIAL( MXRR,NRXNS,NCS2 ), & JPIAL( MXRP,NRXNS,NCS2 ), STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'ERROR allocating JARRL, JARRP, JLIAL, or JPIAL' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT2 ) END IF ALLOCATE( IRM2( MXRCT+MXPRD,NRXNS,NCS2 ), & ICOEFF( MXRP,NRXNS,NCS2 ), STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'ERROR allocating IRM2 or ICOEFF' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT2 ) END IF END SUBROUTINE GRVARS_INIT SUBROUTINE OPTIMAL_ATOL_PPM( YP, NUMCELLS, YP_ABST ) USE UTILIO_DEFN USE RXNS_DATA IMPLICIT NONE ! arguments: REAL( 8 ), INTENT( IN ) :: YP( :,: ) INTEGER, INTENT( IN ) :: NUMCELLS REAL( 8 ), INTENT( INOUT ) :: YP_ABST( : ) ! local: REAL( 8 ), PARAMETER :: MASS_TO_NUMBER = 2.079267D19 ! coefficient to air mass (kg/m3) to number density (molec/cm3) REAL( 8 ), PARAMETER :: COEFF1 = 1.0D-6 * MASS_TO_NUMBER ! coefficient to convert ppm to molec/cm3 REAL( 8 ), PARAMETER :: COEFF2 = 1.0D0 / COEFF1 ! coefficient to convert molec/cm3 to ppm REAL( 8 ), PARAMETER :: COEFF1_STP = 2.54103D13 INTEGER, PARAMETER :: NBINS = 5 REAL( 8 ), SAVE :: ATOL_LEVEL( NBINS + 1 ) REAL( 8 ), SAVE :: ATOL_FLOOR INTEGER, ALLOCATABLE, SAVE :: SPECIES_CUTOFF( : ) INTEGER, ALLOCATABLE, SAVE :: BIN_COUNTS( :,: ) INTEGER, ALLOCATABLE, SAVE :: CUM_COUNTS( :,: ) LOGICAL, SAVE :: FIRST_CALL = .TRUE. INTEGER :: I INTEGER :: JSPC INTEGER :: NCELL INTEGER :: NBIN REAL( 8 ) :: ABHI REAL( 8 ) :: ABLO CHARACTER( 82 ) :: XMSG IF ( FIRST_CALL ) THEN ! ensure GEAR_MAX_ATOL is greater than GEAR_MAX_ATOL IF( GEAR_MAX_ATOL .LE. GEAR_MIN_ATOL )THEN XMSG = "GEAR_MAX_ATOL must be greater than GEAR_MIN_ATOL" CALL M3EXIT( 'OPTIMAL_ATOL_PPM', 0, 0, XMSG, XSTAT2 ) END IF ! set absolute tolerance bins ABHI = LOG10( REAL( GEAR_MAX_ATOL,8 ) ) ABLO = LOG10( REAL( GEAR_MIN_ATOL,8 ) ) ! ATOL_LEVEL( 1 ) = 10.0D0**ABHI ATOL_LEVEL( NBINS + 1 ) = 10.0D0**ABLO ATOL_FLOOR = REAL( GEAR_CONC_FLOOR,8 ) ! ensure GEAR_MAX_ATOL is greater than GEAR_MAX_ATOL IF( GEAR_MIN_ATOL .LE. GEAR_CONC_FLOOR )THEN XMSG = "GEAR_MIN_ATOL must be greater than GEAR_CONC_FLOOR" CALL M3EXIT( 'OPTIMAL_ATOL_PPM', 0, 0, XMSG, XSTAT2 ) END IF DO I = 2, NBINS ATOL_LEVEL(I) = 10.0D0**(ABLO + (ABHI - ABLO) * REAL( (NBINS-I+1),8 ) / REAL( NBINS,8 ) ) END DO ALLOCATE ( BIN_COUNTS( BLKSIZE,NBINS+1 ), & CUM_COUNTS( BLKSIZE,NBINS+1 ), & SPECIES_CUTOFF( BLKSIZE ) ) FIRST_CALL = .FALSE. SPECIES_CUTOFF = INT( 0.4E0 * REAL( NUMB_MECH_SPC ) ) END IF ! ********************************************************************* ! determine initial absolute error tolerance ! ********************************************************************* ! iabovk = number of species whose concentrations are larger than yabst ! BIN_COUNTS = counts number of concentrations above ATOL_LEVEL(i), i = 1.. ! yabst = absolute error tolerance (ppm) ! abtol = pre-defined absolute error tolerances ! BIN_COUNTS = 0 CUM_COUNTS = 0 ! DO JSPC = 1, NUMB_MECH_SPC DO NCELL = 1, NUMCELLS IF (YP(NCELL,JSPC).GE.ATOL_LEVEL(1)) THEN BIN_COUNTS(NCELL,1) = BIN_COUNTS(NCELL,1) + 1 ELSE IF (YP(NCELL,JSPC).GE.ATOL_LEVEL(2)) THEN BIN_COUNTS(NCELL,2) = BIN_COUNTS(NCELL,2) + 1 ELSE IF (YP(NCELL,JSPC).GE.ATOL_LEVEL(3)) THEN BIN_COUNTS(NCELL,3) = BIN_COUNTS(NCELL,3) + 1 ELSE IF (YP(NCELL,JSPC).GE.ATOL_LEVEL(4)) THEN BIN_COUNTS(NCELL,4) = BIN_COUNTS(NCELL,4) + 1 ELSE IF (YP(NCELL,JSPC).GE.ATOL_LEVEL(5)) THEN BIN_COUNTS(NCELL,5) = BIN_COUNTS(NCELL,5) + 1 ELSE IF (YP(NCELL,JSPC).GE.ATOL_FLOOR)THEN BIN_COUNTS(NCELL,6) = BIN_COUNTS(NCELL,6) + 1 ENDIF END DO ! JSPC END DO ! NCELL DO NCELL = 1, NUMCELLS ! CUM_COUNTS(NCELL,1) = BIN_COUNTS(NCELL,1) CUM_COUNTS(NCELL,2) = BIN_COUNTS(NCELL,2) & + CUM_COUNTS(NCELL,1) CUM_COUNTS(NCELL,3) = BIN_COUNTS(NCELL,3) & + CUM_COUNTS(NCELL,2) CUM_COUNTS(NCELL,4) = BIN_COUNTS(NCELL,4) & + CUM_COUNTS(NCELL,3) CUM_COUNTS(NCELL,5) = BIN_COUNTS(NCELL,5) & + CUM_COUNTS(NCELL,4) CUM_COUNTS(NCELL,6) = BIN_COUNTS(NCELL,6) & + CUM_COUNTS(NCELL,5) SPECIES_CUTOFF( NCELL ) = INT( 0.4E0 * REAL(CUM_COUNTS(NCELL,6)) ) END DO ! YP_ABST = ATOL_LEVEL(6) DO NCELL = 1, NUMCELLS IF (CUM_COUNTS(NCELL,1).GT.SPECIES_CUTOFF(NCELL)) THEN YP_ABST(NCELL) = ATOL_LEVEL(1) NBIN = 1 ELSE IF (CUM_COUNTS(NCELL,2).GT.SPECIES_CUTOFF(NCELL) ) THEN YP_ABST(NCELL) = ATOL_LEVEL(2) NBIN = 2 ELSE IF (CUM_COUNTS(NCELL,3).GT.SPECIES_CUTOFF(NCELL) ) THEN YP_ABST(NCELL) = ATOL_LEVEL(3) NBIN = 3 ELSE IF (CUM_COUNTS(NCELL,4).GT.SPECIES_CUTOFF(NCELL) ) THEN YP_ABST(NCELL) = ATOL_LEVEL(4) NBIN = 4 ELSE IF (CUM_COUNTS(NCELL,5).GT.SPECIES_CUTOFF(NCELL) ) THEN YP_ABST(NCELL) = ATOL_LEVEL(5) NBIN = 5 ELSE YP_ABST(NCELL) = ATOL_LEVEL(6) NBIN = 6 ENDIF END DO ! NCELL RETURN END SUBROUTINE OPTIMAL_ATOL_PPM END MODULE GRVARS ================================================ FILE: CCTM/src/gas/smvgear/grbacksub.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/CCTM/src/gas/smvgear/grbacksub.F,v 1.2 2011/10/21 16:11:13 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C @(#)grbacksub.F 1.1 /project/mod3/CMAQ/src/chem/smvgear/SCCS/s.grbacksub .F 07 Jul 1997 12:45:20 SUBROUTINE BACKSUB C********************************************************************** C C FUNCTION: To solve the set of linear simultaneous equations of the C form [A]{x}={b} using the decomposed lower and upper C triangular matrices [L] and [U]. The subroutine first C solves for {c} in [L]{c}={b}, and then for {x} in C [U]{x}={c}. C C PRECONDITIONS: Subroutine DECOMP must have been called C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Prototype created by Jerry Gipson, June, 1995. C Based on the code originally developed by C M. Jacobson, (Atm. Env., Vol 28, No 2, 1994). C Revised 3/14/96 by Jerry Gipson to conform to C the Models-3 minimum IOV configuration. C Revised December 1996 by Jerry Gipson to conform C to the Models-3 interim CTM that includes emissions C in chemistry. C Modified June, 1997 by Jerry Gipson to be consistent C with beta CTM C Modified September, 1997 by Jerry Gipson to be C consistent with the targetted CTM C 16 Aug 01 J.Young: Use HGRD_DEFN C 31 Jan 05 J.Young: get BLKSIZE from dyn alloc horizontal C & vertical domain specifications module (GRID_CONF) C 28 Jun 10 J.Young: remove unnecessary modules and includes C*********************************************************************** USE GRVARS ! inherits GRID_CONF IMPLICIT NONE C..INCLUDES: None C..ARGUMENTS: None C..PARAMETERS: None C..EXTERNAL FUNCTIONS: None C..SAVED LOCAL VARIABLES: None C..SCRATCH LOCAL VARIABLES: INTEGER I ! Loop index for number of species INTEGER IJ ! Counter of # of terms summed INTEGER IJ0,IJ1,IJ2, ! Pointers to loaction of ij entries in & IJ3,IJ4 ! decomposed matrix INTEGER J,J1,J2,J3,J4 ! Pointers to species # for dc/dt INTEGER JZ ! Loop index inner backsub loops INTEGER NCELL ! Loop index for number of cells C*********************************************************************** cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Back-substition loop 1 cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IJ = 1 DO 80 I = 1, ISCHAN c.....sum 5 terms at a time DO JZ = 1, KZHI0( I, NCSP ), 5 IJ0 = IJ IJ1 = IJ + 1 IJ2 = IJ + 2 IJ3 = IJ + 3 IJ4 = IJ + 4 J = KZERO( IJ0, NCSP ) J1 = KZERO( IJ1, NCSP ) J2 = KZERO( IJ2, NCSP ) J3 = KZERO( IJ3, NCSP ) J4 = KZERO( IJ4, NCSP ) IJ = IJ + 5 DO NCELL = 1, NUMCELLS GLOSS( NCELL,I ) = GLOSS( NCELL, I ) & - CC2( NCELL, IJ0 ) * GLOSS( NCELL, J ) & - CC2( NCELL, IJ1 ) * GLOSS( NCELL, J1 ) & - CC2( NCELL, IJ2 ) * GLOSS( NCELL, J2 ) & - CC2( NCELL, IJ3 ) * GLOSS( NCELL, J3 ) & - CC2( NCELL, IJ4 ) * GLOSS( NCELL, J4 ) END DO END DO c.....sum 2 terms at a time DO JZ = KZLO1( I, NCSP ), KZHI1( I, NCSP ), 2 IJ0 = IJ IJ1 = IJ + 1 J = KZERO( IJ0, NCSP ) J1 = KZERO( IJ1, NCSP ) IJ = IJ + 2 DO NCELL = 1, NUMCELLS GLOSS( NCELL, I ) = GLOSS( NCELL, I ) & - CC2( NCELL,IJ0 ) * GLOSS( NCELL, J ) & - CC2( NCELL,IJ1 ) * GLOSS( NCELL, J1 ) END DO END DO c.....sum 1 term at a time DO JZ = KZLO2( I, NCSP ), KZILCH( I, NCSP ) IJ0 = IJ J = KZERO( IJ0, NCSP ) IJ = IJ + 1 DO NCELL = 1, NUMCELLS GLOSS( NCELL, I ) = GLOSS( NCELL, I ) & - CC2( NCELL, IJ0 ) * GLOSS( NCELL, J ) END DO END DO 80 CONTINUE cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Back-substitution loop 2 cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc DO 180 I = ISCHAN, 1, -1 c...sum 5 terms at a time DO JZ = 1, MZHI0( I, NCSP ), 5 IJ0 = IJ IJ1 = IJ + 1 IJ2 = IJ + 2 IJ3 = IJ + 3 IJ4 = IJ + 4 J = KZERO( IJ0, NCSP ) J1 = KZERO( IJ1, NCSP ) J2 = KZERO( IJ2, NCSP ) J3 = KZERO( IJ3, NCSP ) J4 = KZERO( IJ4, NCSP ) IJ = IJ + 5 DO NCELL = 1, NUMCELLS GLOSS( NCELL, I ) = GLOSS( NCELL, I ) & - CC2( NCELL, IJ0 ) * GLOSS( NCELL, J ) & - CC2( NCELL, IJ1 ) * GLOSS( NCELL, J1 ) & - CC2( NCELL, IJ2 ) * GLOSS( NCELL, J2 ) & - CC2( NCELL, IJ3 ) * GLOSS( NCELL, J3 ) & - CC2( NCELL, IJ4 ) * GLOSS( NCELL, J4 ) END DO END DO c...sum 2 terms at a time DO JZ = MZLO1( I, NCSP ), MZHI1( I, NCSP ), 2 IJ0 = IJ IJ1 = IJ + 1 J = KZERO( IJ0, NCSP ) J1 = KZERO( IJ1, NCSP ) IJ = IJ + 2 DO NCELL = 1, NUMCELLS GLOSS( NCELL, I ) = GLOSS( NCELL, I ) & - CC2( NCELL, IJ0 ) * GLOSS( NCELL, J ) & - CC2( NCELL, IJ1 ) * GLOSS( NCELL, J1 ) END DO END DO c...sum 1 term at a time DO JZ = MZLO2( I, NCSP ), MZILCH( I, NCSP ) IJ0 = IJ J = KZERO( IJ0, NCSP ) IJ = IJ + 1 DO NCELL = 1, NUMCELLS GLOSS( NCELL, I ) = GLOSS( NCELL, I ) & - CC2( NCELL, IJ0 ) * GLOSS( NCELL, J ) END DO END DO c...adjust diagonal element DO NCELL = 1, NUMCELLS GLOSS( NCELL, I ) = GLOSS( NCELL, I ) * VDIAG( NCELL, I ) END DO 180 CONTINUE RETURN END ================================================ FILE: CCTM/src/gas/smvgear/grdecomp.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/CCTM/src/gas/smvgear/grdecomp.F,v 1.3 2011/10/21 16:11:14 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C @(#)grdecomp.F 1.1 /project/mod3/CMAQ/src/chem/smvgear/SCCS/s.grdecomp. F 07 Jul 1997 12:45:23 SUBROUTINE DECOMP C*********************************************************************** C C FUNCTION: To decompose the matrix [P] into lower- and upper C triangular form to facilitate solution of the set of C linear simultaneous equations of the form [A]{x}={b}. C C PRECONDITIONS: None C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Prototype created by Jerry Gipson, June, 1995. C Based on the code originally developed by C M. Jacobson, (Atm. Env., Vol 28, No 2, 1994). C Revised 3/14/96 by Jerry Gipson to conform to C the Models-3 minimum IOV configuration C Revised December 1996 by Jerry Gipson to conform C to the Models-3 interim CTM that includes emissions C in chemistry. C Modified June, 1997 by Jerry Gipson to be consistent C with beta CTM C Modified September, 1997 by Jerry Gipson to be C consistent with the targetted CTM C 16 Aug 01 J.Young: Use HGRD_DEFN C 31 Jan 05 J.Young: get BLKSIZE from dyn alloc horizontal C & vertical domain specifications module (GRID_CONF) C 30 Jun 10 J.Young: convert for Namelist redesign; move all C local include file variables into GRVARS module C*********************************************************************** USE GRVARS ! inherits GRID_CONF IMPLICIT NONE C..INCLUDES: None C..ARGUMENTS: None C..PARAMETERS: None C..EXTERNAL FUNCTIONS: None C..SAVED LOCAL VARIABLES: None C..SCRATCH LOCAL VARIABLES: INTEGER IAR ! Pointer to diagonal terms INTEGER IC ! Loop index for ops in decomp loop 1 INTEGER IDLO ! Start index for decomp loop 1 INTEGER IDHI ! End index for decomp loop 1 INTEGER IJ0 ! Pointer to ij term 1 in decomp loop 1 INTEGER IJ1 ! Pointer to ij term 2 in decomp loop 1 INTEGER IJA ! Pointer to ij term 1 in decomp loop 2 INTEGER IJB ! Pointer to ij term 2 in decomp loop 2 INTEGER IK0 ! Pointer to ik term 1 in decomp loop 1 INTEGER IK1 ! Pointer to ik term 2 in decomp loop 1 INTEGER J ! Loop index for number of species INTEGER JC ! Loop index for ops in decomp loop 2 INTEGER JHI1 ! End index for 2-term decomp loop 2 INTEGER JHI2 ! End index for 1-term decomp loop 2 INTEGER JLO1 ! Start index for 2-term decomp loop 2 INTEGER JLO2 ! Start index for 1-term decomp loop 2 INTEGER KJ0 ! Pointer to kj term 1 in decomp loop 1 INTEGER KJ1 ! Pointer to kj term 2 in decomp loop 1 INTEGER NCELL ! Loop index for number of cells c*********************************************************************** integer mxijdeca, mxijdecb, mxikdeca, mxikdecb, mxkjdeca, mxkjdecb cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c First loop of L-U decomposition cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc JHI2 = JZLO( NCSP ) DO 100 J = 1, ISCHAN IDLO = IDEC1LO( J, NCSP ) IDHI = IDEC1HI( J, NCSP ) ! if ( idhi .gt. 0 ) then ! mxijdeca = 0 ! mxijdecb = 0 ! mxikdeca = 0 ! mxikdecb = 0 ! mxkjdeca = 0 ! mxkjdecb = 0 ! do ic = idlo, idhi ! if ( ijdeca( ic ) .gt. mxijdeca ) mxijdeca = ijdeca( ic ) ! if ( ijdecb( ic ) .gt. mxijdecb ) mxijdecb = ijdecb( ic ) ! if ( ikdeca( ic ) .gt. mxikdeca ) mxikdeca = ikdeca( ic ) ! if ( ikdecb( ic ) .gt. mxikdecb ) mxikdecb = ikdecb( ic ) ! if ( kjdeca( ic ) .gt. mxkjdeca ) mxkjdeca = kjdeca( ic ) ! if ( kjdecb( ic ) .gt. mxkjdecb ) mxkjdecb = kjdecb( ic ) ! end do ! write( *,* ) '@==================== j', j, ' =========================@' ! write( *,* ) '@=@ mxijdeca: ', mxijdeca ! write( *,* ) '@=@ mxijdecb: ', mxijdecb ! write( *,* ) '@=@ mxikdeca: ', mxikdeca ! write( *,* ) '@=@ mxikdecb: ', mxikdecb ! write( *,* ) '@=@ mxkjdeca: ', mxkjdeca ! write( *,* ) '@=@ mxkjdecb: ', mxkjdecb ! end if DO IC = IDLO, IDHI IJ0 = IJDECA( IC ) IJ1 = IJDECB( IC ) IK0 = IKDECA( IC ) IK1 = IKDECB( IC ) KJ0 = KJDECA( IC ) KJ1 = KJDECB( IC ) DO NCELL = 1, NUMCELLS CC2( NCELL, IJ0 ) = CC2( NCELL, IJ0 ) - & CC2( NCELL, IK0 ) * CC2( NCELL, KJ0 ) CC2( NCELL, IJ1 ) = CC2( NCELL, IJ1 ) - & CC2( NCELL, IK1 ) * CC2( NCELL, KJ1 ) END DO END DO c...vdiag = 1 / current diagonal term of the decomposed matrix IAR = JARRAYPT( J, J, NCSP ) DO NCELL = 1, NUMCELLS VDIAG( NCELL, J ) = 1.0D0 / CC2( NCELL, IAR ) END DO cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Second loop of decompostion. The elements of L are divided by the c diagonal element, and the process is divided into parts to improve c vectorization. cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc JLO1 = JHI2 + 1 JHI1 = JHI2 + JHIZ1( J, NCSP ) JLO2 = JHI1 + 1 JHI2 = JHI1 + JHIZ2( J, NCSP ) c...determine 2 terms at a time DO JC = JLO1, JHI1 IJA = JZEROA( JC ) IJB = JZEROB( JC ) DO NCELL = 1, NUMCELLS CC2( NCELL, IJA ) = CC2( NCELL, IJA ) * VDIAG( NCELL, J ) CC2( NCELL, IJB ) = CC2( NCELL, IJB ) * VDIAG( NCELL, J ) END DO END DO c...determine 1 term at a time DO JC = JLO2, JHI2 IJA = JZEROA( JC ) DO NCELL = 1, NUMCELLS CC2( NCELL, IJA ) = CC2( NCELL, IJA ) * VDIAG( NCELL, J ) END DO END DO 100 CONTINUE RETURN END ================================================ FILE: CCTM/src/gas/smvgear/grdriver.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE CHEM( CONC, JDATE, JTIME, TSTEP ) C********************************************************************** C C FUNCTION: To control gas phase chemistry calculations performed by C the vectorized Gear solver (aka SMVGEAR) C C PRECONDITIONS: None C C KEY SUBROUTINES/FUNCTIONS CALLED: GRINIT C JSPARSE C SIGMAFH C CALCKS C SMVGEAR C C REVISION HISTORY: Prototype created by Jerry Gipson, June, 1995 C C Revised 3/14/96 by Jerry Gipson to conform to C the Models-3 minimum IOV configuration. C Revised December 1996 by Jerry Gipson to conform C to the Models-3 interim CTM that includes emissions C in chemistry. C Add DTIME performance stats as cpp option (Jeff Dec 96) C Revised April 1997 to distinguish NSPCS from NSPCSD C Revised April 1997 to conform to Models-3 framework C Revised June 1997 to conform to beta version C Modified June, 1997 by Jerry Gipson to be consistent C with beta CTM C Modified September, 1997 by Jerry Gipson to be C consistent with the tartgtted CTM C Modified March, 1998 by Jerry Gipson to read C an emission file with units of moles/s C Mod for unicode by Jeff, Feb. 1999 C 16 Aug 01 J.Young: dyn alloc - Use HGRD_DEFN; replace C INTERP3 with INTERPX; some allocatable arrays; C Use GRVARS module C 31 Jan 05 J.Young: dyn alloc - establish both horizontal C & vertical domain specifications in one module (GRID_CONF) C 29 Jul 05 WTH: Added IF blocks that call degrade C routines if MECHNAME contains 'TX' C substring. C 28 Jun 10 J.Young: convert for Namelist redesign C 29 Mar 11 S.Roselle: Replaced I/O API include files C with UTILIO_DEFN C 31 Aug 11 B.Hutzell revised method that determines calling C degrade routine C 29 Sep 11 D.Wong: incorporated twoway model implementation C 15 Jul 14 B.Hutzell: 1) replaced mechanism include files with C RXNS_DATA module, 2) replaced call to CALCLK with CALC_RCONST C in RXNS_FUNCTION module, 3) enabled reactions between all C species type by using unit conversion factors and 4) updated C the explicit interace SMVGEAR, 5) added using heteorogeneous C rate constants by calling subroutine in AEROSOL_CHEMISTRY module, C and 6) revised usage for INIT_DEGRADE and FINAL_DEGRADE routines C 02 Dec 14 B.Hutzell 1) added terrestrial data to conduct surface C dependent reactions and 2) modified the call CALC_RCONST routine C 16 Sep 16 J.Young: update for inline procan (IRR) C********************************************************************** USE RXNS_DATA USE RXNS_FUNCTION USE CGRID_SPCS ! CGRID species number and offsets USE UTILIO_DEFN USE GRVARS ! inherits GRID_CONF USE AEROSOL_CHEMISTRY USE DEGRADE_ROUTINES, ONLY : NCELLS, N_REACT, RXTANT_MAP, & ICELL_WRITE, WRITE_CELL, WRITE_BLOCK, & FIND_DEGRADED, INIT_DEGRADE_BLK, FINAL_DEGRADE_BLK USE PHOT_MOD, Only: INIT_PHOT_SHARED, RJ ! photolysis rate, in-line module USE PA_DEFN, Only: LIRR ! Process Anaylsis control and data variable USE PA_IRR_CLT USE CENTRALIZED_IO_MODULE, ONLY : INTERPOLATE_VAR, OCEAN, SZONE #ifdef sens USE DDM3D_CHEM, DDM_RK => RK Use DDM3D_DEFN, Only: DATENUM, STARTDATE, IPT, IDATE, HIGH, NP, NPMAX, CKTIME #endif IMPLICIT NONE C..INCLUDES: INCLUDE SUBST_FILES_ID ! CMAQ files INCLUDE SUBST_CONST ! CMAQ constants C..ARGUMENTS: REAL, POINTER :: CONC( :,:,:,: ) ! concentrations INTEGER JDATE ! Current date (YYYYDDD) INTEGER JTIME ! Current time (HHMMSS) INTEGER TSTEP( 3 ) ! Time step vector (HHMMSS) C..PARAMETERS: C Integer zero INTEGER, PARAMETER :: IZERO = 0 C Conc. of M = 1E+06 ppm REAL, PARAMETER :: CONCOFM = 1.0E+06 C Pascal to atm conversion factor REAL, PARAMETER :: PA2ATM = 1.0 / STDATMPA C..EXTERNAL FUNCTIONS: C..SAVED LOCAL VARIABLES: LOGICAL, SAVE :: LFIRST = .TRUE. ! Flag for first call to this subroutine LOGICAL, SAVE :: EMISVD = .TRUE. ! emission rates in vertical diffusion INTEGER, SAVE :: IRUNC ! Counter of calls to this subroutine INTEGER, SAVE :: NOXYZ ! Total number of grid cells LOGICAL, SAVE :: LIRRBLK ! Flag to indicate IRR to be done for block REAL, SAVE :: AIRFC ! Factor to convert gms air to ppm REAL, SAVE :: MAOMV ! Mol Wt of air over Mol Wt of water INTEGER, SAVE :: EMISLYRS ! number of emission layers from file C..SCRATCH LOCAL VARIABLES: CHARACTER( 144 ) :: MSG ! Message text CHARACTER( 16 ) :: PNAME = 'GRDRIVER' ! Procedure name CHARACTER( 16 ) :: UNITSCK ! Units description CHARACTER( 16 ) :: VNAME ! Name of I/O API data variable CHARACTER( 16 ) :: UC_UNITS ! Units in upper case INTEGER BLK ! Loop index for block of cells INTEGER CELLNUM ! Cell number INTEGER COL ! Column index INTEGER ESP ! Loop index for emissions species INTEGER IPAR ! Pointer for cell sort routine INTEGER IRVAL ! Pointer for cell sort routine INTEGER IRXN ! Reaction number INTEGER ISP ! Species index INTEGER ISPOLD ! Species number in original order INTEGER ISPNEW ! Species number in new sorted order INTEGER ITMSTEP ! Chemistry integration interval (sec) INTEGER JPAR ! Pointer for cell sort routine INTEGER JREORD ! Index holder for sort routine INTEGER LEV ! Layer index INTEGER LVAL ! Pointer for cell sort routine INTEGER MIDDATE ! Date at time step midpoint INTEGER MIDTIME ! Time at time step midpoint INTEGER NCELL ! Index for number of cells INTEGER NIRRCLS ! No. of cells in block for IRR INTEGER NMID ! Middle cell number in block INTEGER NPH ! Index for number of phot. rxns in PHOT INTEGER NRX ! Index for number of reactions INTEGER ROW ! Row index INTEGER SPC ! Species loop index INTEGER VAR ! Variable number on I/O API file INTEGER ALLOCSTAT ! test for array allocation status INTEGER, ALLOCATABLE, SAVE :: IRRCELL ( : ) ! Cell No. of an IRR cell INTEGER, ALLOCATABLE :: IRSPERF ( : ) ! Number of restarts at beginning INTEGER, ALLOCATABLE :: MXORDPERF ( : ) ! Maximum order used INTEGER, ALLOCATABLE :: NBKUPS ( : ) ! Number of backups INTEGER, ALLOCATABLE :: NCFAILPERF( : ) ! Number of convergence failures INTEGER, ALLOCATABLE :: NEFAILPERF( : ) ! Number of error test failures INTEGER, ALLOCATABLE :: NITERPERF ( : ) ! Number of iterations INTEGER, ALLOCATABLE :: NSTPERF ( : ) ! Number of steps used INTEGER, ALLOCATABLE :: NPDPERF ( : ) ! Number of Jacobian updates INTEGER, ALLOCATABLE :: NSUBPERF ( : ) ! Number of RHS evaluations REAL( 8 ) CHEMSTEP ! Chemistry integration interval (min) REAL( 8 ) VALLOW ! Value holder for sort routine REAL CONVEM ! Emissions conversion factor REAL CONVFC ! Emissions conversion factor REAL DX ! Cell x-dimension REAL DY ! Cell y-dimension REAL, ALLOCATABLE, SAVE :: SEAICE ( :, : ) ! fractional seaice cover, [-] ! REAL, ALLOCATABLE, SAVE :: DENSA_J( :, :, : ) ! Cell density (Kg/m**3) REAL, ALLOCATABLE, SAVE :: DENS ( :, :, : ) ! Cell density (Kg/m**3) REAL, ALLOCATABLE, SAVE :: PRES ( :, :, : ) ! Cell pressure (Pa) REAL, ALLOCATABLE, SAVE :: QV ( :, :, : ) ! Cell water vapor (Kg/Kg air) REAL, ALLOCATABLE, SAVE :: TA ( :, :, : ) ! Cell temperature (K) REAL, ALLOCATABLE, SAVE :: SEAWATER_ZONE ( :,: ) ! fractional area of OPEN+SURF REAL( 8 ), ALLOCATABLE, SAVE :: Y_DEGRADE ( : , : ) ! concentration array used ! by degradation routines INTERFACE SUBROUTINE SMVGEAR ( IRUN, JDATE, JTIME, CHEMSTEP, & LIRRFLAG, NIRRCLS, IRRCELL ) INTEGER, INTENT( IN ) :: IRUN ! Counter of calls to calling subroutine INTEGER, INTENT( IN ) :: JDATE ! Date at start of integration INTEGER, INTENT( IN ) :: JTIME ! Time at start of integration INTEGER, INTENT( IN ) :: NIRRCLS ! No. of cells in block for IRR INTEGER, INTENT( IN ) :: IRRCELL( : ) ! Cell No. of an IRR cell LOGICAL, INTENT( IN ) :: LIRRFLAG ! Flag for IRR calculations REAL( 8 ), INTENT( IN ) :: CHEMSTEP ! Chemistry integration interval (min) END SUBROUTINE SMVGEAR SUBROUTINE HETCHEM_UPDATE_AERO( CGRID ) REAL, POINTER :: CGRID( :,:,:,: ) ! species concentration in cell END SUBROUTINE HETCHEM_UPDATE_AERO END INTERFACE ! logical, save :: bingo1 = .true. ! logical, save :: bingo2 C********************************************************************** #ifdef isam MSG = 'ERROR: SMVGEAR Chemistry Solver does not perform source apportionment.' WRITE(LOGDEV,'(A)')TRIM( MSG ) MSG = 'Must use the EBI solver for the chemical mechanism' CALL M3EXIT( PNAME, JDATE, JTIME, MSG, XSTAT1 ) #endif IF ( NUMB_MECH_SPC .EQ. 0 ) RETURN ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c On first call, call routines to set-up for Gear solver and c set-up to do emissions here if that option is invoked ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF ( LFIRST ) THEN LFIRST = .FALSE. CALL GRVARS_INIT( JDATE, JTIME ) CALL GRINIT CALL JSPARSE CALL RESET_SPECIES_POINTERS( IOLD2NEW ) NOXYZ = NCOLS * NROWS * NLAYS MAOMV = MWAIR / MWWAT C...Initialize and report data EMBLK = 0.0 WRITE( LOGDEV, 92020 ) NOXYZ, BLKSIZE, NBLKS, BLKLEN( 1 ), & BLKLEN( NBLKS ) WRITE( LOGDEV, 92040 ) ERRMAX( 1 ), YLOW( 1 ) ALLOCATE( SEAWATER_ZONE( NCOLS, NROWS ) ) DO ROW = 1, NROWS DO COL = 1, NCOLS SEAWATER_ZONE( COL,ROW ) = OCEAN( COL,ROW ) + SZONE( COL,ROW ) END DO END DO ALLOCATE( DENS( NCOLS, NROWS, NLAYS ), PRES( NCOLS, NROWS, NLAYS ), & QV ( NCOLS, NROWS, NLAYS ), TA ( NCOLS, NROWS, NLAYS ), & SEAICE( NCOLS, NROWS ) ) ALLOCATE( IRRCELL( BLKSIZE ) ) IRRCELL = 0 C..Initialize shared photolysis data CALL INIT_PHOT_SHARED() C:WTH Determine whether DEGRADE routines are needed. CALL FIND_DEGRADED( JDATE, JTIME, CALL_DEG ) IF( CALL_DEG ) THEN WRITE( LOGDEV, * ) 'DEGRADE ROUTINES USED' WRITE( LOGDEV, * ) 'Mechanism contains degraded species' #ifdef verbose_gas ELSE WRITE( LOGDEV, * ) 'DEGRADE ROUTINES not USED' WRITE( LOGDEV, * ) 'Mechanism contains NO degraded species' #endif ENDIF C:WTH set up degradation array ALLOCATE( Y_DEGRADE( BLKSIZE, NSPCSD ) ) #ifdef sens CALL INIT_DDM3D_CHEM() C For higher order sensitivities IF ( HIGH ) THEN DO IRXN = 1, NRXNS IF( NREACT( IRXN ) .LE. 1 ) THEN ORDER1( IRXN ) = .TRUE. ELSE ORDER1( IRXN ) = .FALSE. END IF END DO END IF #endif ENDIF ! First call ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C Start of integration driver after first call ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IRUNC = IRUNC + 1 NIRRCLS = 0 ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C Set date and time to center of time step, get necessary physical C data, and get photolysis rates ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc MIDDATE = JDATE MIDTIME = JTIME ITMSTEP = TIME2SEC( TSTEP( 2 ) ) CHEMSTEP = REAL( ITMSTEP, 8 ) / 60.0D0 CALL NEXTIME( MIDDATE, MIDTIME, SEC2TIME( ITMSTEP / 2 ) ) C.. Get fractional seaice coverage from the METCRO2D file. CALL INTERPOLATE_VAR ('SEAICE', MIDDATE, MIDTIME, SEAICE) C.. Get ambient temperature in K CALL INTERPOLATE_VAR ('TA', MIDDATE, MIDTIME, TA) C.. Get specific humidity in Kg H2O / Kg air CALL INTERPOLATE_VAR ('QV', MIDDATE, MIDTIME, QV) ! Get ambient MASS DENSITY in Kg/m^3 CALL INTERPOLATE_VAR ('DENS', MIDDATE, MIDTIME, DENS) C.. Get pressure in Pascals CALL INTERPOLATE_VAR ('PRES', MIDDATE, MIDTIME, PRES) C.. Get Heterogeneous reaction rates using aerosol surface area. Also C store the initial surface area so that it can be updated after the C solver finds a solution. CALL HETCHEM_RATES( TA, PRES, QV, CONC, DENS ) #ifdef sens C Set the date and hour counters used in sensitivity calls DATENUM = 1 + JDATE - STARTDATE C For reaction rate sensitivities DO NP = 1, NPMAX IF ( IPT( NP ) .EQ. 5 ) THEN CALL CKTIME( JDATE,JTIME,NP,RXNFLAG(NP) ) ! Rxnflag set to true if ipt=5 and time, date within bounds IF ( IDATE( NP, DATENUM ) .NE. 1 ) RXNFLAG( NP ) = .FALSE. ELSE RXNFLAG( NP ) = .FALSE. END IF END DO #endif ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Set flag for reordering of cells and put cells in sequential c order initially ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc LORDERING = .TRUE. IF ( .NOT. LREORDER .OR. NBLKS .EQ. 1 ) LORDERING = .FALSE. DO NCELL = 1, NOXYZ NORDCELL( NCELL ) = NCELL ENDDO cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C Top of loop over blocks. This loop will be done once if C no reordering, twice if reordering is required cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 100 CONTINUE ERRMX2 = 0.0D0 DO 500 BLK = 1, NBLKS BLKID = BLK NUMCELLS = BLKLEN( BLK ) OFFSET = BLKCNO( BLK ) IF ( .NOT. LORDERING .AND. LIRR ) THEN LIRRBLK = .FALSE. CALL PA_IRR_CKBLK ( NUMCELLS, LIRRBLK, OFFSET, & CCOL, CROW, CLEV, NORDCELL, NIRRCLS, & IRRCELL ) ENDIF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C Put the grid cell physical data in the block arrays, converting C pressure to atmospheres, water vapor to ppm, emissions to ppm/min, C setting to land if seaice coverage is nonzero cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF ( .NOT. EMISVD )EMBLK = 0.0 DO NCELL = 1, NUMCELLS CELLNUM = NORDCELL( OFFSET + NCELL ) COL = CCOL( CELLNUM ) ROW = CROW( CELLNUM ) LEV = CLEV( CELLNUM ) BLKTEMP( NCELL ) = REAL( TA( COL,ROW,LEV ), 8 ) BLKDENS( NCELL ) = REAL( DENS( COL,ROW,LEV ), 8 ) BLKSVOL( NCELL ) = 1.0 / DENS( COL,ROW,LEV ) BLKPRES( NCELL ) = REAL( PA2ATM * PRES( COL, ROW, LEV ), 8 ) BLKCH2O( NCELL ) = REAL( MAX( QV( COL,ROW,LEV ) * MAOMV * CONCOFM, 0.0 ), 8) BLKSEAWATER (NCELL) = MAX ( 0.0, ( SEAWATER_ZONE( COL,ROW ) - SEAICE (COL,ROW) ) ) ENDDO cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C Put the grid cell concentrations in the block arrays cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc DO ISP = 1, ISCHANG( NCS ) SPC = CGRID_INDEX( ISP ) ISPNEW = IOLD2NEW( ISP, NCS ) DO NCELL = 1, NUMCELLS CELLNUM = NORDCELL( OFFSET + NCELL ) COL = CCOL( CELLNUM ) ROW = CROW( CELLNUM ) LEV = CLEV( CELLNUM ) IF( CONVERT_CONC( ISP ) )THEN CNEW( NCELL,ISPNEW ) = REAL( MAX( FORWARD_CONV( ISP ) * BLKSVOL( NCELL ) & * CONC( COL,ROW,LEV,SPC ), CONCMIN), 8 ) ELSE CNEW( NCELL,ISPNEW ) = REAL( MAX( CONC( COL,ROW,LEV,SPC ), CONCMIN), 8 ) END IF BLKCONC( NCELL, ISP ) = CNEW( NCELL,ISPNEW ) #ifdef sens CINIT( NCELL, ISP ) = CNEW( NCELL,ISPNEW ) #endif ENDDO ENDDO cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C Get heterogeneous, photolytic and thermal rate constants cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc LSUNLIGHT = .FALSE. DO NCELL = 1, NUMCELLS CELLNUM = NORDCELL( OFFSET + NCELL ) COL = CCOL( CELLNUM ) ROW = CROW( CELLNUM ) LEV = CLEV( CELLNUM ) DO NPH = 1, NPHOTAB RJBLK( NCELL, NPH ) = REAL( RJ( COL, ROW, LEV, NPH ), 8 ) IF ( RJBLK( NCELL, NPH ) .GT. 0.0 ) LSUNLIGHT = .TRUE. ENDDO DO NPH = 1, NHETERO BLKHET( NCELL, NPH ) = KHETERO( NPH, COL, ROW, LEV ) END DO ENDDO CALL CALC_RCONST( BLKTEMP, BLKPRES, BLKCH2O, RJBLK, BLKHET, LSUNLIGHT, BLKSEAWATER, RK, NUMCELLS ) #ifdef debug_gear DO NCELL = 1, NUMCELLS CELLNUM = NORDCELL( OFFSET + NCELL ) NCSP = 1 IF( NCELL1 .EQ. CELLNUM )THEN CALL SUBFUN DO ISP = 1, NUMB_MECH_SPC WRITE(LOGDEV,'(A,ES12.4)')CHEMISTRY_SPC(ISP)//' = ',BLKCONC( NCELL1, ISP ) END DO DO NPH = 1,NRXNS WRITE(LOGDEV,'(I3,1X,A,2(1X,ES12.4))')NPH,RXLABEL(NPH),RK(NCELL1,NPH),RXRAT(NCELL1,NPH) END DO END IF END DO #endif IF ( LSUNLIGHT ) THEN HMAX = HMAXDAY( NCS ) NCSP = NCS ELSE HMAX = HMAXNIT NCSP = NCS + 1 ENDIF C..WTH: Put concentrations into degradation array IF ( CALL_DEG ) THEN Y_DEGRADE = 0.0D0 ! Use FPP flag to check results from species degrade routines DO ISP = 1, NSPCSD DO NCELL = 1, NUMCELLS CELLNUM = NORDCELL( OFFSET + NCELL ) COL = CCOL( CELLNUM ) ROW = CROW( CELLNUM ) LEV = CLEV( CELLNUM ) Y_DEGRADE( NCELL,ISP ) = REAL(MAX( CONC( COL,ROW,LEV,ISP ), CONCMIN), 8 ) ENDDO ENDDO ! Use FPP flag to check results from species degrade routines #ifdef verbose_gas WRITE_BLOCK = .FALSE. ICELL_WRITE = 1 DO NCELL = 1, NUMCELLS CELLNUM = NORDCELL( OFFSET + NCELL ) COL = CCOL( CELLNUM ) ROW = CROW( CELLNUM ) LEV = CLEV( CELLNUM ) IF( LEV .EQ. 1 .AND. ROW .EQ. 1 .AND. COL .EQ. 1 )THEN WRITE_BLOCK = .TRUE. ICELL_WRITE = NCELL WRITE_CELL( NCELL ) = .TRUE. ELSE WRITE_CELL( NCELL ) = .FALSE. END IF END DO #endif C..initialize degradation routines NCELLS = NUMCELLS CALL INIT_DEGRADE_BLK( Y_DEGRADE, BLKTEMP, BLKDENS, BLKPRES, BLKCH2O, RJBLK, & JDATE, JTIME ) ENDIF ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C Call Gear solver for the integration interval ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc CALL SMVGEAR( IRUNC, JDATE, JTIME, CHEMSTEP, LIRRBLK, NIRRCLS, IRRCELL ) ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C If not ordering cells, save performance statistics, do debug output C if requested, and store updated concentrations. ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF ( .NOT. LORDERING ) THEN C..Update concentrations DO ISP = 1, ISCHANG( NCS ) ISPOLD = INEW2OLD( ISP, NCS ) SPC = CGRID_INDEX( ISPOLD ) DO NCELL = 1, NUMCELLS CELLNUM = NORDCELL( OFFSET + NCELL ) ROW = CROW( CELLNUM ) COL = CCOL( CELLNUM ) LEV = CLEV( CELLNUM ) #ifdef sens CFINI( NCELL, ISPOLD ) = CNEW( NCELL,ISP ) #endif IF( CONVERT_CONC( ISPOLD ) )THEN CONC( COL,ROW,LEV,SPC ) = REAL( REVERSE_CONV( ISPOLD ) & * BLKDENS( NCELL ) * CNEW( NCELL,ISP ), 4) ELSE CONC( COL,ROW,LEV,SPC ) = REAL( CNEW( NCELL,ISP ), 4) ENDIF ENDDO ENDDO IF ( CALL_DEG ) THEN C Update degradation array with species treated by Rosenbach solver C C DO ISP = 1, ISCHANG( NCS ) C ISPOLD = INEW2OLD( ISP, NCS ) C DO NCELL = 1, NUMCELLS C Y_DEGRADE( NCELL,ISPOLD ) = Y( NCELL,ISP ) C END DO C END DO C Update CGRID based on the degradation routines CALL FINAL_DEGRADE_BLK( Y_DEGRADE ) UPDATE_DEGRADED: DO ISP = 1, N_REACT VAR = RXTANT_MAP( ISP ) IF( VAR .LE. 0 )CYCLE UPDATE_DEGRADED DO SPC = 1, NUMB_MECH_SPC IF( VAR .EQ. CGRID_INDEX( SPC ) )CYCLE UPDATE_DEGRADED END DO DO NCELL = 1, NUMCELLS CELLNUM = NORDCELL( OFFSET + NCELL ) COL = CCOL( CELLNUM ) ROW = CROW( CELLNUM ) LEV = CLEV( CELLNUM ) CONC( COL,ROW,LEV,VAR ) = REAL( Y_DEGRADE( NCELL,VAR ), 4) END DO END DO UPDATE_DEGRADED ENDIF IF ( LIRRBLK ) CALL PA_IRR_BLKENDC ( OFFSET, CCOL, CROW, CLEV, & NORDCELL, NIRRCLS, IRRCELL ) #ifdef sens DO NCELL = 1, NUMCELLS DO IRXN = 1, NRXNS SRK( IRXN ) = RK( NCELL,IRXN ) IF ( HIGH ) THEN IF ( NREACT( IRXN ) .LE. 1 ) THEN SRK2( IRXN ) = 0.0 ELSE IF ( NREACT( IRXN ) .EQ. 2 ) THEN SRK2( IRXN ) = REAL( RK( NCELL,IRXN ), 4 ) ELSE IF ( NREACT( IRXN ) .EQ. 3 ) THEN SRK2( IRXN ) = REAL( RK( NCELL,IRXN ),4 ) ELSE SRK2( IRXN ) = 0.0 END IF END IF END DO DO ISP = 1,NUMB_MECH_SPC ! ISPOLD = INEW2OLD( ISP,NCS ) ! YCDDM( ISP ) = 0.5D0 * ( CINIT(NCELL,ISP)+CFINI( NCELL,ISP ) ) YCDDM( ISP ) = CAVEG(NCELL,ISP) END DO CELLNUM = NORDCELL( OFFSET + NCELL ) COL = CCOL( CELLNUM ) ROW = CROW( CELLNUM ) LEV = CLEV( CELLNUM ) CALL SOLVE_DDM3D_CHEM( COL,ROW,LEV,CHEMSTEP ) ! CALL SOLVE_DDM3D_CHEM( COL,ROW,LEV,CHEMSTEP,IOLD2NEW,INEW2OLD ) END DO #endif ENDIF 500 CONTINUE ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C End of block loop; reorder cells if necessary and go back do the C block loop again. Taken from Jacobson 1994. (Heapsort on ERRMX2) ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF ( LORDERING ) THEN LORDERING = .FALSE. LVAL = NOXYZ * 0.5 + 1 IRVAL = NOXYZ 600 CONTINUE IF ( LVAL .GT. 1 ) THEN LVAL = LVAL - 1 VALLOW = ERRMX2( LVAL ) JREORD = NORDCELL( LVAL ) ELSE VALLOW = ERRMX2( IRVAL ) JREORD = NORDCELL( IRVAL ) ERRMX2( IRVAL ) = ERRMX2( 1 ) NORDCELL( IRVAL ) = NORDCELL( 1 ) IRVAL = IRVAL - 1 IF ( IRVAL.EQ.1 ) THEN ERRMX2( IRVAL ) = VALLOW NORDCELL( IRVAL ) = JREORD GO TO 100 ENDIF ENDIF IPAR = LVAL JPAR = LVAL + LVAL 650 CONTINUE IF ( JPAR .LE. IRVAL ) THEN IF ( JPAR .LT. IRVAL ) THEN IF ( ERRMX2( JPAR ) .LT. ERRMX2( JPAR + 1 ) ) JPAR = JPAR + 1 ENDIF IF ( VALLOW .LT. ERRMX2( JPAR )) THEN ERRMX2( IPAR ) = ERRMX2( JPAR ) NORDCELL( IPAR ) = NORDCELL( JPAR ) IPAR = JPAR JPAR = JPAR + JPAR ELSE JPAR = IRVAL + 1 ENDIF GO TO 650 ENDIF ERRMX2( IPAR ) = VALLOW NORDCELL( IPAR ) = JREORD GO TO 600 ENDIF !Update Aerosol Surface Area CALL HETCHEM_UPDATE_AERO( CONC ) RETURN C*********************** FORMAT STATEMENTS **************************** 92000 FORMAT( / 10X, 'Emissions Processing in Chemistry ...' & / 10X, 'Number of Emissions Layers: ', I3 & / 10X, 'out of total Number of Model Layers:', I3 ) 92020 FORMAT( / 10X, 'Chemistry Solver Blocking Parameters ... ', & / 10X, 'Domain Size (number of cells): ', I10 & / 10X, 'Dimensioning Block Size (number of cells): ', I10 & / 10X, 'Number of Blocks: ', I10 & / 10X, 'Size of General Blocks: ', I10 & / 10X, 'Size of Last Block: ', I10 ) 92040 FORMAT( / 10X, 'Chemistry Solver Error Control Parameters ...', & / 10X, 'RTOL : ', 1PE12.3, & / 10X, 'ATOL : ', 1PE12.3, ' ppm' ) 93000 FORMAT( 'units' ) 93020 FORMAT( A4, 1X, 1PE15.6 ) 93040 FORMAT( 'TEMP', 1X, 1PE15.6 ) 93060 FORMAT( 'H2O ', 1X, 1PE15.6 ) 93080 FORMAT( 'PRES', 1X, 1PE15.6 ) 93085 FORMAT( 'SEAWATER', 1X, 1PE15.6 ) 93100 FORMAT( I3, 1X, 1PE15.6 ) 93120 FORMAT( 1X, 'Rate constants at start of irun=', I4, & ' block=', I4 ) 93140 FORMAT( 1X, 'n= ', I3, ' k=', 1PE20.8 ) 93160 FORMAT( /1X, 'Species concentrations at start of irun=', I4, & ' for block=',I4) 93180 FORMAT( 1X, 'C(0)= ', I3, 2X, A4, 2x, 3( 1PE20.10 ) ) 93200 FORMAT( 1X, 'C(0)= ', I3, 2X, 'M ', 2X, 1PE20.10 ) 93220 FORMAT( 1X, 'C(0)= ', I3, 2X, 'O2 ', 2X, 1PE20.10 ) 93240 FORMAT( 1X, 'C(0)= ', I3, 2X, 'N2 ', 2X, 1PE20.10 ) 93260 FORMAT( 1X, 'C(0)= ', I3, 2X, 'H2O ', 2X, 3( 1PE20.10 ) ) 93280 FORMAT( 1X, 'TEMP (K) = ', 3( 1PE20.10 ) ) 93300 FORMAT( 1X, 'PRESS(ATM) = ', 3( 1PE20.10 ) ) 93305 FORMAT( 1X, 'SEAWATER (-) = ', 3( 1PE20.10 ) ) 93320 FORMAT( /1X, 'Species concentrations at end of irun=', I4, & ' Cell=', I5 ) 93340 FORMAT( 1x, 'C(end)= ', I3, 2x, A4, 2x, 1PE20.8) 93360 FORMAT( //1X, 'Concs for cell 1, cell ',I3,' and cell ',I3 ) 93380 FORMAT( 1X, 'C(E)= ',I3, 2X, A4, 2X, 3( 1PE20.10 ) ) END ================================================ FILE: CCTM/src/gas/smvgear/grinit.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE GRINIT C********************************************************************** C C FUNCTION: To initialize Gear chemistry solver variables and to group C cells into blocks C C PRECONDITIONS: None C C RETURN VALUES: All values stored in common blocks C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Prototype created By Jerry Gipson, June, 1995. C C Revised 3/14/96 by Jerry Gipson to conform to C Models-3 minimum IOV configuration. C Revised December 1996 by Jerry Gipson to conform C to the Models-3 interim CTM that includes emissions C in chemistry. C Revised April 1997 to conform to Models-3 beta C version C Revised May 1997 to optionally get Gear tolerances C from environment variables C Modified June, 1997 by Jerry Gipson to be consistent C with beta CTM C Modified September, 1997 by Jerry Gipson to be C consistent with the targetted CTM C Mod for unicode by Jeff, Feb. 1999 C 16 Aug 01 J.Young: Use HGRD_DEFN; Use GRVARS C 31 Jan 05 J.Young: dyn alloc - establish both horizontal C & vertical domain specifications in one module (GRID_CONF) C 28 Jun 10 J.Young: remove unnecessary modules and includes C 30 Jun 10 J.Young: convert for Namelist redesign; move all C local include file variables into GRVARS module C 29 Mar 11 S.Roselle: Use UTILIO_DEFN for external functions C*********************************************************************** USE RUNTIME_VARS USE GRVARS ! inherits GRID_CONF USE UTILIO_DEFN IMPLICIT NONE C.....INCLUDES: None C.....ARGUMENTS: None C.....PARAMETERS: None C.....EXTERNAL FUNCTIONS: None C.....SAVED VARIABLES: None C.....LOCAL VARIABLES: CHARACTER( 80 ) :: VARDESC ! Description of environment variable CHARACTER( 96 ) :: MSG ! Error message CHARACTER( 16 ) :: PNAME = 'GRINIT' ! Program Name INTEGER COL ! Column number index INTEGER IAVGSIZE ! Average number of cells per block INTEGER IDUMMY ! Dummy integer variable INTEGER IERRST ! Ouput error status number INTEGER LEV ! Level number index INTEGER NBLK ! Block number index INTEGER NCOUNT ! Counter for number of cells for grid INTEGER NOXYZ ! Total number of cells for grid INTEGER ROW ! Row number index INTEGER STATUS ! Status code for functions C*********************************************************************** cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Set control parameters for output report options cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc #ifdef debug_gear LDEBUG = .FALSE. IF( LDEBUG ) THEN IRUNBUG = 1 NSTEPOUT = 1 NSUBOUT = 1 NPDOUT = 1 DBGCOL = 10 DBGROW = 10 DBGLEV = 1 IUNDBG = JUNIT( ) OPEN( UNIT = IUNDBG, FILE = 'DEBUG.OUT' ) ENDIF LDUMPBLK = .FALSE. IF( LDUMPBLK ) THEN IRUNBLK = 1 IBLKBLK = 1 IUNBIC = JUNIT( ) OPEN( UNIT = IUNBIC, FILE = 'ICBLKOUT.OUT', & FORM = 'UNFORMATTED' ) ENDIF LDUMPCELL = .FALSE. IF( LDUMPCELL ) THEN IRUNCELL = 1 IBLKCELL = 1 INUMCELL = 1 IUNCIC = JUNIT( ) OPEN( UNIT = IUNCIC, FILE= 'ICCELLOUT.OUT' ) ENDIF LTRACE = .FALSE. IF( LTRACE ) THEN IRUNTRC1 = 1 IRUNTRC2 = 2 IBLKTRC = 1 IUNTRC = JUNIT( ) OPEN( UNIT = IUNTRC, FILE = 'TRACE.OUT' ) WRITE( IUNTRC, 93020 ) IBLKTRC WRITE( IUNTRC, 93040 ) ENDIF LPERFSMRY = .FALSE. IF( LPERFSMRY ) THEN IUNPERF = JUNIT( ) OPEN( UNIT = IUNPERF, FILE= 'PERFSMRY.OUT', & FORM = 'UNFORMATTED') ENDIF LCELLCONC = .FALSE. IF( LCELLCONC ) THEN RUNMIN = 0.0 IRUNPRO1 = 1 IRUNPRO2 = 4 CROWOUT = 18 CCOLOUT = 18 CLEVOUT = 1 IUNCOUT = JUNIT( ) OPEN( UNIT = IUNCOUT, FILE = 'PROFILE.OUT', & FORM = 'UNFORMATTED') ENDIF #endif cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Set some constants for the Gear solver cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc LREORDER = .TRUE. HMAXDAY( NCS ) = 15.0D0 HMAXNIT = 5.0D0 HMIN = 1.0D-10 YLOW ( NCS ) = REAL( GEAR_MIN_ATOL, 8 ) ERRMAX ( NCS ) = REAL( GEAR_RTOL, 8 ) FRACDEC = 0.25D0 CONCMIN = 1.0D-30 ZBOUND = 1.0D-30 cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Get number of cells in grid and store i,j,k indices of cells in c sequential order cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc NCOUNT = 0 DO LEV = 1, NLAYS DO COL = 1, NCOLS DO ROW = 1, NROWS NCOUNT = NCOUNT + 1 CROW( NCOUNT ) = ROW CCOL( NCOUNT ) = COL CLEV( NCOUNT ) = LEV IF( ROW .EQ. 1 .AND. COL .EQ. 1 .AND. LEV .EQ. 1 )NCELL1 = NCOUNT END DO END DO END DO cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Define block structure for grid; stop if maxblks exceeded cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc NOXYZ = NCOUNT NBLKS = 1 + ( NOXYZ - 1 ) / BLKSIZE IF( NBLKS .GT. MXBLKS ) THEN WRITE( MSG, 92020 ) NBLKS, MXBLKS IDUMMY = 0 IERRST = 2 CALL M3EXIT( PNAME, IDUMMY, IDUMMY, MSG, IERRST ) ENDIF IAVGSIZE = 1 + ( NOXYZ - 1 ) / NBLKS IAVGSIZE = MIN( IAVGSIZE, BLKSIZE ) OFFSET = 0 DO NBLK = 1, NBLKS IF( NBLK .LT. NBLKS ) THEN BLKCNO( NBLK ) = OFFSET BLKLEN( NBLK ) = IAVGSIZE OFFSET = OFFSET + IAVGSIZE ! updates in GRVARS module for use in ELSE ! GRDRIVER and GRSMVGEAR BLKCNO( NBLK ) = OFFSET BLKLEN( NBLK ) = NOXYZ - ( ( NBLK-1 ) * IAVGSIZE ) ENDIF END DO RETURN C********************** FORMAT STATEMENTS ****************************** 92020 FORMAT( 1X, 'ERROR: MAXIMUM NUMBER OF BLOCKS EXCEEDED', & ' FOR GRID', 'NBLKS=', I3, 1X, ' MAXBLKS=', & I3, ' CHANGE GRPARMS.EXT' ) 93020 FORMAT( 1X, 'TRACE FOR BLOCK = ', I3 ) 93040 FORMAT( 1X, 'RUN STP# NFE NJE ITR CFL EFL QUSD TIME', & ' H USED HRATIO' ) END ================================================ FILE: CCTM/src/gas/smvgear/grpderiv.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/CCTM/src/gas/smvgear/grpderiv.F,v 1.4 2011/10/21 16:11:14 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C @(#)grpderiv.F 1.1 /project/mod3/CMAQ/src/chem/smvgear/SCCS/s.grpderiv. F 07 Jul 1997 12:45:28 SUBROUTINE PDERIV C*********************************************************************** C C FUNCTION: Compute [P]=[I]-bh[J] where J is the Jacobian matrix, C (i.e., [J] = d[dCi/dt]/dCi), b is the Gear coefficient, C and h is the time-step C C PRECONDITIONS: None C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Prototype created by Jerry Gipson, June, 1995, C Based on the code originally developed by C M. Jacobson, (Atm. Env., Vol 28, No 2, 1994). C Revised 3/14/96 by Jerry Gipson to conform to C the Models-3 minimum IOV configuration C Revised December 1996 by Jerry Gipson to conform C to the Models-3 interim CTM that includes emissions C in chemistry. C Revised April 1997 to distinguish NSPCS from NSPCSD C Revised April 1997 to conform to Models-3 framework C Modified June, 1997 by Jerry Gipson to be consistent C with beta CTM C Modified September, 1997 by Jerry Gipson to be C consistent with the targeted CTM C 16 Aug 01 J.Young: Use HGRD_DEFN C 31 Jan 05 J.Young: get BLKSIZE from dyn alloc horizontal C & vertical domain specifications module (GRID_CONF) C 28 Jun 10 J.Young: convert for Namelist redesign C 29 Mar 11 S.Roselle: Replaced I/O API include files C with UTILIO_DEFN C 22 Aug 11 J.Young: fixed bug: initialize CC2( NCELL,0 ) C 15 Jul 14 B.Hutzell: replaced mechanism include files with C RXNS_DATA module C*********************************************************************** USE RXNS_DATA USE CGRID_SPCS ! CGRID mechanism species USE UTILIO_DEFN USE GRVARS ! inherits GRID_CONF IMPLICIT NONE C..INCLUDES: None C..ARGUMENTS: None C..PARAMETERS: None C..EXTERNAL FUNCTIONS: None C..SAVED LOCAL VARIABLES: None C..SCRATCH LOCAL VARIABLES: INTEGER IALP ! Pointer to location of PD term in EXPLIC INTEGER IAR ! Loop index for non-zero entries in [P] INTEGER IARP ! Pointer to location of PD term in [P] INTEGER IARRY ! Pointer to end of [P] entries INTEGER ISCP ! Pointer to stoichiometric coefficient INTEGER ISPC ! Loop index for species INTEGER JR1, JR2, JR3 ! Pointer to reactant species conc. INTEGER NCELL ! Loop index for number of cells INTEGER NL ! Loop index for loss PD terms INTEGER NLD ! Number of loss PD terms for each rxn. INTEGER NP ! Loop index for prod PD terms INTEGER NPD ! Number of prod PD terms for each rxn. INTEGER NRK ! Reaction number INTEGER NRX ! Loop index for number of reactions INTEGER NONDIAG ! Pointer to end of off-diagonal entries INTEGER NONDIAG1 ! Pointer to start of diagonal entries INTEGER IOS ! Allocate status REAL( 8 ) :: CR2 ! Temporary product for 3 reactant rxns REAL( 8 ) :: FRACN ! Stoichiometric coeff. times b*h REAL( 8 ) :: EXPLIC( BLKSIZE, 3 ) ! Reaction partial derivative terms REAL( 8 ), ALLOCATABLE, SAVE :: CEFF( :, : ) ! Effective species concentrations ! (i.e., zeroed if below ZBOUND) LOGICAL, SAVE :: LFIRST = .TRUE. ! Flag for first call to this subroutine CHARACTER( 16 ) :: PNAME = 'GRPDERIV' ! Procedure name CHARACTER( 144 ) :: MSG ! Message text C*********************************************************************** IF ( LFIRST ) THEN LFIRST = .FALSE. ALLOCATE ( CEFF( BLKSIZE, NUMB_MECH_SPC ), STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = '*** Memory allocation error for CEFF' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF END IF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Increment call counter and set up identity matrix stored in sparse c matrix format (i.e., values of cc2 are entries in P that may be c nonzero). Diagonals come after non-diagonal entries. cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc NPDERIV = NPDERIV + 1 IARRY = IARRAY( NCSP ) NONDIAG = IARRY - ISCHAN NONDIAG1 = NONDIAG + 1 ! DO IAR = 1, NONDIAG DO IAR = 0, NONDIAG DO NCELL = 1, NUMCELLS CC2( NCELL, IAR ) = 0.0D0 END DO END DO DO IAR = NONDIAG1, IARRY DO NCELL = 1, NUMCELLS CC2( NCELL, IAR ) = 1.0D0 END DO END DO cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Set effective concentrations to be used in PD calculations cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc DO ISPC=1,ISCHAN DO NCELL=1,NUMCELLS IF( CNEW( NCELL, ISPC ) .LE. ZBOUND ) THEN CEFF( NCELL, ISPC ) = 0.0D0 ELSE CEFF( NCELL, ISPC ) = CNEW( NCELL, ISPC ) ENDIF END DO END DO cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Loop over reaction rates adding partial derivative terms; EXPLIC c holds the PD terms according to number of reactants cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc DO 240 NRX = 1, NUSERAT( NCSP ) NRK = NKUSERAT( NRX, NCSP ) c...partial derivative term for reactions with 1 reactant IF( NREACT( NRK ) .EQ. 1 ) THEN DO NCELL = 1, NUMCELLS EXPLIC( NCELL, 1 ) = RK( NCELL, NRK ) END DO c...partial derivative terms for reactions with 2 reactants ELSEIF( NREACT( NRK ) .EQ. 2 ) THEN JR1 = IRM2( 1, NRK, NCS ) JR2 = IRM2( 2, NRK, NCS ) DO NCELL = 1, NUMCELLS EXPLIC( NCELL, 1 ) = RK( NCELL, NRK ) * CEFF( NCELL, JR2 ) EXPLIC( NCELL, 2 ) = RK( NCELL, NRK ) * CEFF( NCELL, JR1 ) END DO c.....partial derivative terms for reactions with 3 reactants ELSEIF( NREACT( NRK ).EQ.3 ) THEN JR1 = IRM2( 1, NRK, NCS ) JR2 = IRM2( 2, NRK, NCS ) JR3 = IRM2( 3, NRK, NCS ) DO NCELL = 1, NUMCELLS CR2 = RK( NCELL, NRK ) * CEFF( NCELL, JR2 ) EXPLIC( NCELL, 1 ) = CR2 * CEFF( NCELL, JR3 ) EXPLIC( NCELL, 2 ) = RK( NCELL, NRK ) & * CEFF( NCELL, JR1 ) * CEFF( NCELL, JR3 ) EXPLIC( NCELL, 3 ) = CR2 * CEFF( NCELL, JR1 ) END DO ENDIF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Add PD terms to [P] for this reaction cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c...loss terms NLD = NDERIVL( NRK, NCSP ) DO NL = 1, NLD IARP = JARRL( NL, NRK, NCSP ) IALP = JLIAL( NL, NRK, NCSP ) DO NCELL = 1, NUMCELLS CC2( NCELL, IARP ) = CC2( NCELL, IARP ) & - R1DELT * EXPLIC( NCELL, IALP ) END DO END DO c...production terms with stoichiomteric coeff EQ 1.0 and NE 1.0 NPD = NDERIVP( NRK, NCSP ) DO NP = 1, NPD IARP = JARRP( NP, NRK, NCSP ) IALP = JPIAL( NP, NRK, NCSP ) IF( ICOEFF( NP, NRK, NCSP ) .EQ. 0 ) THEN DO NCELL = 1, NUMCELLS CC2( NCELL, IARP ) = CC2( NCELL, IARP ) & + R1DELT * EXPLIC( NCELL, IALP ) END DO ELSE ISCP = ICOEFF( NP, NRK, NCSP ) FRACN = REAL( SC( NRK, ISCP ), 8 ) * R1DELT DO NCELL = 1, NUMCELLS CC2( NCELL, IARP ) = CC2( NCELL, IARP ) & + FRACN * EXPLIC( NCELL, IALP ) END DO ENDIF END DO 240 CONTINUE RETURN END ================================================ FILE: CCTM/src/gas/smvgear/grsmvgear.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/CCTM/src/gas/smvgear/grsmvgear.F,v 1.4 2011/10/21 16:11:14 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C @(#)grsmvgear.F 1.1 /project/mod3/CMAQ/src/chem/smvgear/SCCS/s.grsmvgear.F 07 Jul 1997 12:45:29 SUBROUTINE SMVGEAR( IRUN, JDATE, JTIME, CHSTEP, LIRRFLAG, & NIRRCLS, IRRCELL ) C*********************************************************************** C C FUNCTION: To perform the Gear chemistry integration for one block C of cells for the requested time interval C C PRECONDITIONS: None C C KEY SUBROUTINES/FUNCTIONS CALLED: BACKSUB C DECOMP C PDERIV C SUBFUN C C REVISION HISTORY: Prototype created by Jerry Gipson, June, 1995. C Based on the code originally developed by C M. Jacobson, (Atm. Env., Vol 28, No 2, 1994). C Revised 3/14/96 by Jerry Gipson to conform to C the Models-3 minimum IOV configuration C Revised December 1996 by Jerry Gipson to conform C to the Models-3 interim CTM that includes emissions C in chemistry. C Revised April 1997 to distinguish NSPCS from NSPCSD C Revised April 1997 to conform to Models-3 framework C Modified June, 1997 by Jerry Gipson to be consistent C with beta CTM C Modified September, 1997 by Jerry Gipson to be C consistent with the targeted CTM C 16 Aug 01 J.Young: Use HGRD_DEFN; Use GRVARS C 31 Jan 05 J.Young: get BLKSIZE from dyn alloc horizontal C & vertical domain specifications module (GRID_CONF) C 29 Jul 05 WTH: Added IF blocks that call degrade C routines if CALL_DEG is true, i.e., C if MECHNAME contains 'TX' substring. C 28 Jun 10 J.Young: convert for Namelist redesign C 30 Jun 10 J.Young: convert for Namelist redesign; move all C local include file variables into GRVARS module C 29 Mar 11 S.Roselle: Replaced I/O API include files C with UTILIO_DEFN C 15 Jul 14 B.Hutzell: replaced mechanism include files with C RXNS_DATA module and added intent declarations to arguments C********************************************************************** USE RUNTIME_VARS, ONLY: LOGDEV USE RXNS_DATA USE CGRID_SPCS ! CGRID species number and offsets USE UTILIO_DEFN USE GRVARS ! inherits GRID_CONF USE DEGRADE_ROUTINES, ONLY: DEGRADE_BLK USE PA_IRR_MODULE IMPLICIT NONE C..INCLUDES: None C..ARGUMENTS: INTEGER, INTENT( IN ) :: IRUN ! Counter of calls to calling subroutine INTEGER, INTENT( IN ) :: JDATE ! Date at start of integration INTEGER, INTENT( IN ) :: JTIME ! Time at start of integration INTEGER, INTENT( IN ) :: NIRRCLS ! No. of cells in block for IRR INTEGER, INTENT( IN ) :: IRRCELL( : ) ! Cell No. of an IRR cell LOGICAL, INTENT( IN ) :: LIRRFLAG ! Flag for IRR calculations REAL( 8 ), INTENT( IN ) :: CHSTEP ! Chemistry integration interval (min) C..PARAMETERS: INTEGER, PARAMETER :: NZERO = 0 ! Integer zero INTEGER, PARAMETER :: N999 = 999 ! Integer 999 ! INTEGER, PARAMETER :: MXLOWRED = 10 ! Max number of times min time step lowered INTEGER, PARAMETER :: MXLOWRED = 20 ! Max number of times min time step lowered REAL( 8 ), PARAMETER :: CONCOFM = 1000000.0D0 ! Concentration of M REAL( 8 ), PARAMETER :: ONE = 1.0D0 REAL( 8 ), PARAMETER :: ZERO = 0.0D0 REAL( 8 ), PARAMETER :: PT2 = 0.2D0 REAL( 8 ), PARAMETER :: PT003 = 0.003D0 REAL( 8 ), PARAMETER :: OMIC = 0.000001D0 REAL( 8 ), PARAMETER :: OPT2MIC = 0.0000012D0 REAL( 8 ), PARAMETER :: OPT3MIC = 0.0000013D0 REAL( 8 ), PARAMETER :: OPT4MIC = 0.0000014D0 REAL( 8 ), PARAMETER :: DTMIN_DEGRADE = 90.0D0 ! WTH: Minimum degradation time step (sec) C..EXTERNAL FUNCTIONS: None C..SAVED LOCAL VARIABLES: None LOGICAL, SAVE :: LFIRST = .TRUE. ! Flag for first call to this subroutine C..LOCAL VARIABLES: CHARACTER( 16 ) :: PNAME = 'SMVGEAR' ! Procedure name CHARACTER( 132 ) :: MSG = ' ' ! Message text CHARACTER( 12 ) :: REAL_CLOCK( 3 ) LOGICAL HIGHER_ORDER ! use next order for relative timestep INTEGER COL ! Column number of cell INTEGER EXITSTAT ! Exit status code INTEGER I ! Pointer to species location in arrays INTEGER I1 ! Pointer to deriv location in arrays INTEGER IDOUB ! Counter for testing order and step size INTEGER IFSUCCESS ! Flag for successful time step, 1=Y,0=N INTEGER IPTR ! Pointer for array holding the P matrix INTEGER ISCHAN1 ! One less than # of chemistry species INTEGER ISPC, JSPC ! Loop index for species INTEGER ISPNEW ! Index for species in sorted order INTEGER ISPOLD, JSPOLD ! Index for species in original order INTEGER J, JB ! Loop indices for order INTEGER JEVAL ! Flag for Jacobian update (1=yes) INTEGER JFAIL ! # of error test failures in one step INTEGER JRESTAR ! Counter for # of restarts INTEGER JS1 ! Loop index for derivative location INTEGER JSPC1, JSPC2 ! Pointers to species locations in arrays INTEGER JSPC3 ! Pointers to species locations in arrays INTEGER KSTEP ! Current order + 1 INTEGER L3 ! Newton iteration counter INTEGER LEV ! Level number of cell INTEGER NCELL ! Loop index for cell number INTEGER NEGFLAG ! Flag for negative corrected concs INTEGER NQQ ! Order of current time step INTEGER NQISC ! Product of order and number of species INTEGER NQQISC ! Current order times # of species INTEGER NQQOLD ! Order of previous time step INTEGER NQUSED ! Order of last successful step INTEGER NRX ! Loop index for # of reactions INTEGER NSLP ! Last step number for a Jacobian update INTEGER NTRCFAIL ! Conv. failure count for trace output INTEGER NTREFAIL ! Error test failure count for trace output INTEGER NTRNEWT ! Newton iteration count for trace output INTEGER NTRPDV ! Jacobian update count for trace output INTEGER NTRSTEP ! Step count for trace output INTEGER NTRSUB ! RHS evaluation count for trace output INTEGER NUMCELL ! Number of cell as currently ordered INTEGER NYLOWRED ! Number of times min time step lowered INTEGER ROW ! Row number of cell INTEGER SPC ! species index INTEGER IOS ! Allocate status INTEGER NCELLMAX ! cell with maximum total error INTEGER, SAVE :: S_DATE_TIME( 8 ) INTEGER, SAVE :: F_DATE_TIME( 8 ) INTEGER, SAVE :: NSPCS1 ! # of species plus 1 INTEGER, ALLOCATABLE, SAVE :: DUMMY( : ) ! Dummy array for IRR call REAL( 8 ) :: DTCELL ! Time step for each cell for IRR REAL( 8 ), ALLOCATABLE, SAVE :: CIRR ( :, : ) ! Species concs for IRR analysis REAL( 8 ), ALLOCATABLE, SAVE :: RKIRR( :, : ) ! Rate constants for IRR analysis REAL( 8 ) :: ABST2 ! Inverse of time step squared REAL( 8 ) :: ASN1 ! Gear BDF coefficient REAL( 8 ) :: CCONOUT ! Debug corrected concentration REAL( 8 ) :: CHEMSTEP ! Chemistry integration interval (min) REAL( 8 ) :: CONSMULT ! Parameter to increase order REAL( 8 ) :: DCON ! Convergence test parameter REAL( 8 ) :: DELT ! Size of Gear time step REAL( 8 ) :: DER1MAX ! Max rms error for current order-1 REAL( 8 ) :: DER2MAX ! Max rms error for current order REAL( 8 ) :: DER3MAX ! Max rms error for current order+1 REAL( 8 ) :: DRATE ! Convergence test parameter REAL( 8 ) :: DT_DEGRADE ! WTH: Time step for degradation routine (sec) REAL( 8 ) :: EDWN ! Trunc. error parameter for order - 1 REAL( 8 ) :: ENQQ ! Trunc. error parameter for current order REAL( 8 ) :: EPS ! Gear relative error tolerance used REAL( 8 ) :: EPS1 ! reciprocal of relative error tolerance REAL( 8 ) :: EPSLOW ! Relative tolerance used in h0 calc REAL( 8 ) :: ERRYMAX ! Error term REAL( 8 ) :: EUP ! Trunc. error parameter for order + 1 REAL( 8 ) :: HLAST ! Size of previous successful time step REAL( 8 ) :: HRATIO ! Relative change in a*h REAL( 8 ) :: HRATNTR ! Ratio of current to previous step size REAL( 8 ) :: HRMAX ! Max relative change in a*h allowed REAL( 8 ) :: HUSED ! Size of current successful time step REAL( 8 ) :: H0FAC ! Factor to apply to first step size REAL( 8 ) :: ORDER ! # of dc/dt equations REAL( 8 ) :: PR1 ! 1.0 / time-step at current order - 1 REAL( 8 ) :: PR2 ! 1.0 / time-step at current order REAL( 8 ) :: PR3 ! 1.0 / time-step at current order + 1 REAL( 8 ) :: RDELMAX ! Max relative step size change allowed REAL( 8 ) :: RDELT ! Time-step ratio REAL( 8 ) :: RDELTA ! Product of time step ratios REAL( 8 ) :: RDELTDN ! Time step at current order - 1 REAL( 8 ) :: RDELTSM ! Time step at current order REAL( 8 ) :: RDELTUP ! Time step at current order + 1 REAL( 8 ) :: RMSERR = 0.0D0 ! Max RMS error for convergence test REAL( 8 ) :: RMSERRP ! Previous max RMS error for REAL( 8 ) :: RMSRAT ! Convergence rate REAL( 8 ) :: RMSTOP ! Max sum of squares of error estimates REAL( 8 ) :: TIMREMAIN ! Remaining integration time (min) REAL( 8 ) :: TOLD ! Elapsed time at previous step (min) REAL( 8 ) :: XELAPS ! Elasped time (min) REAL( 8 ), ALLOCATABLE, SAVE :: DELY ( : ) ! Sum of squares of error estimates REAL( 8 ), ALLOCATABLE, SAVE :: CEST ( :,: ) ! Error estimates for previous step REAL( 8 ), ALLOCATABLE, SAVE :: CHOLD( :,: ) ! Factor for error tests REAL( 8 ), ALLOCATABLE, SAVE :: DTLOS( :,: ) ! Correction array for Newton iter. REAL( 8 ), ALLOCATABLE, SAVE :: CONC ( :,: ) ! Old concs and derivatives REAL( 8 ), ALLOCATABLE, SAVE :: ERROR_CNEW ( :,: ) ! error in species predictions REAL( 8 ), ALLOCATABLE, SAVE :: YNEW_DEGRADE( :,:) ! concs for degradation routines REAL( 8 ), ALLOCATABLE, SAVE :: YLOWA( : ) ! Gear absolute error tolerance used REAL( 8 ), ALLOCATABLE, SAVE :: YLOWEPS( : ) ! Tolerance ratio used in h0 calc REAL( 8 ), ALLOCATABLE, SAVE :: YLOWEPS1( : ) ! Absolute tol over relative tol C********************************************************************** IF ( LFIRST ) THEN LFIRST = .FALSE. NSPCS1 = NUMB_MECH_SPC + 1 ALLOCATE ( CEST ( BLKSIZE, NSPCS1 ), & CHOLD( BLKSIZE, NUMB_MECH_SPC ), & DTLOS( BLKSIZE, NSPCS1 ), & CONC ( BLKSIZE, NUMB_MECH_SPC*MXORDER ), & ERROR_CNEW( BLKSIZE, NUMB_MECH_SPC ), & YNEW_DEGRADE( BLKSIZE, NSPCSD), & DELY( BLKSIZE ), STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = '*** Memory allocation failure for ' & // 'CEST, CHOLD, DTLOS, CONC, YNEW_DEGRADE, or DELY' CALL M3EXIT( PNAME, JDATE, JTIME, MSG, XSTAT1 ) END IF ALLOCATE ( YLOWA ( BLKSIZE ), & YLOWEPS ( BLKSIZE ), & YLOWEPS1( BLKSIZE ), STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = '*** Memory allocation failure for ' & // 'YLOWA, YLOWEPS, or YLOWEPS1' CALL M3EXIT( PNAME, JDATE, JTIME, MSG, XSTAT1 ) END IF ! initial absolute tolerance to run script option YLOWA = YLOW( 1 ) ! IF ( LIRRFLAG ) THEN ALLOCATE ( CIRR( BLKSIZE, NUMB_MECH_SPC ), & DUMMY( BLKSIZE ), & RKIRR( BLKSIZE, NRXNS ), STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = '*** Memory allocation failure for ' & // 'CIRR, DUMMY, DTCELL, or RKIRR' CALL M3EXIT( PNAME, JDATE, JTIME, MSG, XSTAT1 ) END IF ! END IF END IF #ifdef sens CAVEG = 0.0D0 #endif cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Set up for debug output and initialize variables cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc NSUBFUN = 0 NPDERIV = 0 NSTEPS = 0 NUMNEWT = 0 NCFAIL = 0 NEFAIL = 0 MXORDUSED = 0 NUMBKUPS = 0 IRSTART = -1 NYLOWRED = 0 IF ( LORDERING ) THEN YLOWA = YLOW( 1 ) ELSE CALL OPTIMAL_ATOL_PPM( CNEW, NUMCELLS, YLOWA ) END IF EPS = ERRMAX( NCS ) EPS1 = 1.0D0 / EPS EPSLOW = MIN( EPS, PT003 ) ISCHAN = ISCHANG( NCS ) ISCHAN1 = ISCHAN - 1 ORDER = REAL( ISCHAN, 8 ) JFAIL = 0 IF( LSUNLIGHT ) THEN H0FAC = 0.0625D0 ELSE H0FAC = 1.0D0 ENDIF CHEMSTEP = CHSTEP ABST2 = 1.0D0 / ( CHEMSTEP * CHEMSTEP ) IF( LIRRFLAG ) THEN DO NRX = 1, NRXNS DO NCELL = 1, NIRRCLS RKIRR( NCELL, NRX ) = RK( IRRCELL( NCELL ), NRX ) ENDDO ENDDO ENDIF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Enter here either at beginning of interval or if delt < hmin cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc LOOP_BEGIN: DO IFSUCCESS = 1 IDOUB = 2 XELAPS = 0.0D0 TOLD = XELAPS RDELMAX = 10000.0D0 NSLP = MBETWEEN JRESTAR = 0 HRMAX = 0.3D0 HRATIO = 0.0D0 ASN1 = 1.0D0 YLOWEPS1 = YLOWA * EPS1 TIMREMAIN = CHEMSTEP C:WTH DT_DEGRADE = 0.0D0 LOOP_INITIALIZE: DO ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Calculate initial values of first derivatives and do debug output c if necessary ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc CALL SUBFUN cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c At the integration start or restart (e.g., the first time-step c or if excessive failures occur), the time-step is predicted with c the formula from LSODES (Hindmarsh and Sherman, 1983 - ODEPACK). c However, if the cells are being reordered, return after estimating c the stiffness. cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc YLOWEPS = YLOWA / EPSLOW DO NCELL = 1, NUMCELLS DELY( NCELL ) = 0.0D0 ENDDO c...compute sum of squares of dcdt/conc DO 220 JSPC = 1, ISCHAN DO 220 NCELL = 1, NUMCELLS ERRYMAX = GLOSS( NCELL, JSPC ) / & ( CNEW( NCELL, JSPC ) + YLOWEPS( NCELL ) ) DELY( NCELL ) = DELY( NCELL ) + ERRYMAX * ERRYMAX ERROR_CNEW(NCELL,JSPC) = ERRYMAX 220 CONTINUE c.....if reordering, store stiffness estimate and return IF( LORDERING ) THEN DO NCELL = 1, NUMCELLS ERRMX2( OFFSET + NCELL ) = DELY( NCELL ) ENDDO RETURN ENDIF c.....get largest stiffness estimate and compute from c.....sqrt(rmstop / [epslow * order]) = rmsnorm of error scaled c.....to epslow * cnew + ylow RMSTOP = 0.0 DO 260 NCELL = 1, NUMCELLS IF( DELY( NCELL ) .GT. RMSTOP ) THEN RMSTOP = DELY( NCELL ) END IF 260 CONTINUE DELT = SQRT( EPSLOW / ( ABST2 + RMSTOP / ORDER ) ) * H0FAC DELT = MIN( DELT, CHEMSTEP ) DELT = MIN( DELT, HMAX ) DELT = MAX( DELT, HMIN ) NQQ = 1 cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Store initial concentration and first derivatives x time-step and c initialize/save some data cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc DO 280 JSPC = 1, ISCHAN JS1 = ISCHAN + JSPC DO 280 NCELL = 1, NUMCELLS CONC( NCELL, JSPC ) = CNEW( NCELL, JSPC ) CONC( NCELL, JS1 ) = DELT * GLOSS( NCELL, JSPC ) 280 CONTINUE NQQOLD = 0 RDELT = 1.0D0 JEVAL = 1 IF( LIRRFLAG ) THEN DTCELL = 0.0D0 DO I = 1, ISCHAN DO NCELL = 1, NIRRCLS CIRR( NCELL, I ) = BLKCONC( IRRCELL( NCELL ), I ) ENDDO ENDDO CALL PA_IRR ( .TRUE., .FALSE., RKIRR, CIRR, DTCELL, & NIRRCLS, DUMMY ) ENDIF IF( CALL_DEG ) THEN !:WTH Initialize for degradation routines YNEW_DEGRADE = 0.0D0 DO I = 1, ISCHAN SPC = CGRID_INDEX( I ) DO NCELL = 1, NUMCELLS YNEW_DEGRADE( NCELL,SPC ) = BLKCONC( NCELL, I ) END DO END DO ENDIF #ifdef sens DO ISPOLD = 1, ISCHAN DO NCELL = 1, NUMCELLS CFINI( NCELL,ISPOLD ) = BLKCONC( NCELL,ISPOLD ) END DO END DO #endif cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Update coefficients of the order. NQQ is the order. ASET and c PERTST are defined in SUBROUTINE JSPARSE. Note that PERTST c is the original pertst**2. Also, exit smvgear if we reach the c end of the time-interval cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc LOOP_ORDER: DO HIGHER_ORDER = .TRUE. TIMREMAIN = CHEMSTEP - XELAPS IF( NSTEPS .EQ. 0 ) IRSTART = IRSTART + 1 c.....quit or update coefficients IF( TIMREMAIN .LE. OMIC )EXIT LOOP_BEGIN IF( NQQ .NE. NQQOLD ) THEN NQQOLD = NQQ KSTEP = NQQ + 1 HRATIO = HRATIO * ASET( NQQ, 1 ) / ASN1 ASN1 = ASET( NQQ, 1 ) ENQQ = PERTST( NQQ, 1 ) * ORDER EUP = PERTST( NQQ, 2 ) * ORDER EDWN = PERTST( NQQ, 3 ) * ORDER NQQISC = NQQ * ISCHAN ENDIF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Update the time step and do debug output if necessary cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc RDELT = MIN( RDELT, RDELMAX, HMAX/DELT, TIMREMAIN/DELT ) DELT = DELT * RDELT HRATIO = HRATIO * RDELT cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c If delt < hmin, decrease ylowa and re-start the time-interval cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF( DELT .LT. HMIN ) THEN WRITE( MSG, 94000 ) DELT, XELAPS, TIMREMAIN, MAXVAL(YLOWA), EPS CALL M3MESG( MSG ) WRITE( MSG, 94010 ) NSTEPS, BLKID, IRUN, NQQ CALL M3MESG( MSG ) WRITE( MSG, 94015 ) RDELT, DER2MAX, ENQQ CALL M3MESG( MSG ) YLOWA = YLOWA * 0.1 NYLOWRED = NYLOWRED + 1 IF( NYLOWRED .LT. MXLOWRED ) THEN DO 340 ISPNEW = 1, ISCHAN ISPOLD = INEW2OLD( ISPNEW, NCS ) DO 340 NCELL = 1, NUMCELLS CNEW( NCELL, ISPNEW ) = BLKCONC( NCELL, ISPOLD ) 340 CONTINUE CYCLE LOOP_BEGIN ELSE WRITE(LOGDEV,'(A16,6(1X,A12))')'CHEMSTRY_SPECIES',' Pred.Conc ',' Init.Conc ',' Squar.Erro ' DO ISPOLD = 1, ISCHAN ISPNEW = IOLD2NEW( ISPOLD, NCS ) WRITE(LOGDEV,'(A16,6(1X,ES12.4))')CHEMISTRY_SPC(ISPOLD), & CNEW( NCELLMAX, ISPNEW ), BLKCONC( NCELLMAX, ISPOLD ), & (ERROR_CNEW(NCELLMAX,ISPNEW)*ERROR_CNEW(NCELLMAX,ISPNEW)) END DO write(logdev,'(A,ES12.4)')'For error = ',DELY( NCELLMAX ) WRITE(LOGDEV,'(A16,3(1X,A12))')'Reaction.Label',' Rate.Const ',' React.Rate ' DO J = 1,NRXNS WRITE(LOGDEV,'(A16,3(1X,ES12.4))')RXLABEL(J),RK(NCELLMAX,J),RXRAT(NCELLMAX,J) END DO WRITE( MSG, 94020 ) CALL M3EXIT( 'SMVGEAR', JDATE, JTIME, MSG, XSTAT2 ) ENDIF ENDIF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c If delt is different than during the last step (if rdelt.ne.1), c scale the derivatives cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF( RDELT .NE. 1.0 ) THEN RDELTA = 1.0 I1 = 1 DO 360 J = 2, KSTEP RDELTA = RDELTA * RDELT I1 = I1 + ISCHAN DO 360 I = I1, I1 + ISCHAN1 DO 360 NCELL = 1, NUMCELLS CONC( NCELL, I ) = CONC( NCELL, I ) * RDELTA 360 CONTINUE ENDIF IF( RDELT .LT. 1.0 ) NUMBKUPS = NUMBKUPS + 1 cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c If the last step was successful, reset rdelmax = 10 and update c the chold array with current values of cnew. cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF( IFSUCCESS .EQ. 1 ) THEN RDELMAX = 10.0 IF( MOD( NSTEPS,3 ) .EQ. 2 )THEN CALL OPTIMAL_ATOL_PPM( CNEW, NUMCELLS, YLOWA ) END IF YLOWEPS1 = YLOWA * EPS1 DO 380 JSPC = 1, ISCHAN DO 380 NCELL = 1, NUMCELLS CHOLD( NCELL, JSPC ) = EPS1 / & ( ABS( CNEW( NCELL, JSPC ) ) + YLOWEPS1(NCELL) ) 380 CONTINUE ENDIF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c PREDICTION c Check whether the Jacobian should be updated, compute the predicted c concentration and derivatives by multiplying previous values by c the pascal triangle matrix, and do debug output if necessary cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF( ABS( HRATIO-1.0 ) .GT. HRMAX. OR. NSTEPS .GE. NSLP ) JEVAL = 1 XELAPS = XELAPS + DELT I1 = NQQISC + 1 DO 400 JB = 1, NQQ I1 = I1 - ISCHAN DO 400 I = I1, NQQISC J = I + ISCHAN DO 400 NCELL = 1, NUMCELLS CONC( NCELL, I ) = CONC( NCELL, I ) + CONC( NCELL, J ) 400 CONTINUE cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c NEWTON ITERATION c This is the top of the corrector loop. Take up to mstep corrector c iterations. Test convergence by requiring that changes be less c than the rms norm weighted by chold. Accumulate the correction in c the array dtlos(). It equals the j-th derivative of conc() c multiplied by delt**kstep / (factorial(kstep-1)*ASET(kstep)); thus, c it is proportional to the actual errors to the lowest power of c delt present (delt**kstep) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 440 L3 = 0 c.....Increment counter, initialize cnew, and zero the correction array NUMNEWT = NUMNEWT + 1 DO 460 I = 1, ISCHAN DO 460 NCELL = 1, NUMCELLS CNEW( NCELL, I ) = CONC( NCELL, I ) DTLOS( NCELL, I ) = 0.0D0 460 CONTINUE c.....If JEVAL = 1, re-evaluate predictor matrix before starting the c.....corrector iteration. After calling PDERIV and DECOMP, set c.....JEVAL = -1 to prevent recalling PDERIV until necessary IF( JEVAL .EQ. 1 ) THEN R1DELT = -ASN1 * DELT CALL PDERIV CALL DECOMP JEVAL = -1 HRATIO = 1.0D0 NSLP = NSTEPS + MBETWEEN DRATE = 0.70D0 ENDIF c.....evaluate the first derivative using latest cnew and do debug c.....output if necessary 520 CONTINUE CALL SUBFUN c.....compute error (gloss) from the corrected calculation of the c.....first derivative and do debug output if necessary DO 620 ISPC = 1, ISCHAN JSPC = ISPC + ISCHAN DO 620 NCELL = 1, NUMCELLS GLOSS( NCELL, ISPC ) = DELT * GLOSS( NCELL, ISPC ) - & ( CONC( NCELL, JSPC ) + & DTLOS( NCELL, ISPC ) ) 620 CONTINUE c.....Solve the linear system of equations with the corrector error. c.....Backsub.f originally from numerical recipes (Press et al.) CALL BACKSUB c.....Sum-up the accumulated error, correct the concentration with the c.....error, and begin to calculate the rmsnorm of the error relative c.....to chold. If a negative conc occurs, treat it like a c.....convergence failure. DO NCELL = 1, NUMCELLS DELY( NCELL ) = 0.0D0 ENDDO NEGFLAG = + 1 DO 700 ISPC = 1, ISCHAN DO 700 NCELL = 1, NUMCELLS DTLOS( NCELL, ISPC ) = DTLOS( NCELL, ISPC ) + & GLOSS( NCELL, ISPC ) CNEW( NCELL, ISPC ) = CONC( NCELL, ISPC ) + ASN1 * & DTLOS( NCELL ,ISPC ) ERRYMAX = GLOSS( NCELL, ISPC ) * CHOLD( NCELL, ISPC ) DELY( NCELL ) = DELY( NCELL ) + ERRYMAX * ERRYMAX ERROR_CNEW(NCELL,ISPC) = ERRYMAX 700 CONTINUE NEGFLAG = 0 c....Save the previous rms error and calculate the new rms error. RMSERRP = RMSERR DER2MAX = 0.0D0 DO NCELL = 1, NUMCELLS IF( DELY( NCELL ).GT.DER2MAX )THEN DER2MAX = DELY( NCELL ) NCELLMAX = NCELL END IF ENDDO RMSERR = SQRT( DER2MAX / ORDER ) L3 = L3 + 1 RMSRAT = 0.0D0 IF( L3.GT.1 ) THEN RMSRAT = RMSERR / RMSERRP DRATE = MAX( 0.2 * DRATE, RMSRAT ) ENDIF c....If dcon < 1, then sufficient convergence has occurred. Otherwise, c....if the ratio of the current to previous rmserr is decreasing, c....iterate more. If it is not, then the convergence test failed. DCON = RMSERR * MIN( CONPST( NQQ ), CONP15( NQQ ) * DRATE ) IF( DCON .LE. 1.0 ) GO TO 780 ! convergence achieved IF( L3 .LT. MSTEP ) GO TO 520 ! continue Newton Iteration cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c CONVERGENCE FAILURE c The next block of code is executed when the convergence test fails. c If the Jacobian matrix is more than one step old, update it and c try for convergence again. If the Jacobian is current, reduce the c time-step, re-set the accumulated derivatives to their values c before the failed step, and retry with the smaller step. cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc NCFAIL = NCFAIL + 1 IF( JEVAL .EQ. 0 ) THEN JEVAL = 1 GO TO 440 ! restart Newton Iteration with updated Jacobian ENDIF RDELMAX = 2.0 XELAPS = TOLD RDELT = FRACDEC JEVAL = 1 IFSUCCESS = 0 I1 = NQQISC + 1 DO 760 JB = 1, NQQ I1 = I1 - ISCHAN DO 760 I = I1, NQQISC J = I + ISCHAN DO 760 NCELL = 1, NUMCELLS CONC( NCELL, I ) = CONC( NCELL, I ) - CONC( NCELL, J ) 760 CONTINUE CYCLE LOOP_ORDER ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c CONVERGENCE ACHIEVED c The program comes here when the corrector iteration converges. Set c JEVAL = 0 so that it does not need to be called on the next step and c then test the accumulated error. ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 780 JEVAL = 0 IF( L3 .GT. 1 ) THEN DO NCELL = 1, NUMCELLS DELY( NCELL ) = 0.0D0 ENDDO DO 840 JSPC = 1, ISCHAN DO 840 NCELL = 1, NUMCELLS ERRYMAX = DTLOS( NCELL, JSPC ) * CHOLD( NCELL, JSPC ) DELY( NCELL ) = DELY( NCELL ) + ERRYMAX * ERRYMAX ERROR_CNEW(NCELL,JSPC) = ERRYMAX 840 CONTINUE DER2MAX = 0.0D0 DO NCELL = 1, NUMCELLS IF( DELY( NCELL ) .GT. DER2MAX )THEN DER2MAX = DELY( NCELL ) NCELLMAX = NCELL END IF ENDDO ENDIF IF( DER2MAX .GT. ENQQ ) THEN cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c ERROR TEST FAILURE c The next block of code is executed when the error test fails. In c all cases, the derivatives are re-set to their values before trying c this time-step. Then, c (a) if the number of error test failures is LE 6, the time-step c is re-estimated at the same or one lower order and the step c retried; c (b) if the number of failures is GT 6 and LE 20, the time-step is c lowered by fracdec and the step retried; c (c) If the number of failures is GT 20, the order is reset to one, c the time-step lowered by 0.1, and the step retried; c (d) if the number of failures is GE 100, the program is stopped. cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc NEFAIL = NEFAIL + 1 XELAPS = TOLD JFAIL = JFAIL + 1 I1 = NQQISC + 1 DO 880 JB = 1, NQQ I1 = I1 - ISCHAN DO 880 I = I1, NQQISC J = I + ISCHAN DO 880 NCELL = 1, NUMCELLS CONC( NCELL, I ) = CONC( NCELL, I ) - CONC( NCELL, J ) 880 CONTINUE RDELMAX = 2.0D0 IF( JFAIL .LE. 6 ) THEN IFSUCCESS = 0 RDELTUP = 0.0D0 HIGHER_ORDER = .FALSE. ELSEIF( JFAIL .LE. 20 ) THEN IFSUCCESS = 0 RDELT = FRACDEC CYCLE LOOP_ORDER ELSE IFSUCCESS = 1 DELT = DELT * 0.1D0 RDELT = 1.0D0 JFAIL = 0 JRESTAR = JRESTAR + 1 IDOUB = 5 DO 900 I = 1, ISCHAN DO 900 NCELL = 1, NUMCELLS CNEW( NCELL, I ) = CONC( NCELL, I ) 900 CONTINUE WRITE( MSG, 94040 ) DELT, XELAPS IF( JRESTAR .EQ. 100 ) THEN MSG = 'Integration stopped because of excessive errors.' CALL M3EXIT( 'SMVGEAR', JDATE, JTIME, MSG, XSTAT2 ) ENDIF CYCLE LOOP_INITIALIZE ENDIF ELSE cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c ERROR TEST PASSED c The following block of code is executed when the error test is c passed (i.e., the step was successful). Reset JFAIL = 0, set c IFSUCCESS = 1, reset TOLD, increment NSTEPS, update the c concentration and all derivatives, zero concentrations and c derivatives below the specified lower concentration bound, do c any requested outputs, and go the end if this is the last step. cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc JFAIL = 0 IFSUCCESS = 1 TOLD = XELAPS NSTEPS = NSTEPS + 1 NQUSED = NQQ HUSED = DELT MXORDUSED = MAX( MXORDUSED, NQUSED ) I1 = 1 - ISCHAN DO 920 J = 1, KSTEP I1 = I1 + ISCHAN DO 920 I = I1, I1 + ISCHAN1 JSPC = I - I1 + 1 DO 920 NCELL = 1, NUMCELLS CONC( NCELL, I ) = CONC( NCELL, I ) + ASET( NQQ, J ) * & DTLOS( NCELL, JSPC ) 920 CONTINUE DO 940 I = 1, ISCHAN DO 940 NCELL = 1, NUMCELLS IF( CONC( NCELL, I ) .LE. CONCMIN ) THEN CONC( NCELL, I ) = ZBOUND CNEW( NCELL, I ) = ZBOUND CONC( NCELL, I + ISCHAN ) = 0.0D0 CONC( NCELL, I + 2 * ISCHAN ) = 0.0D0 CONC( NCELL, I + 3 * ISCHAN ) = 0.0D0 CONC( NCELL, I + 4 * ISCHAN ) = 0.0D0 CONC( NCELL, I + 5 * ISCHAN ) = 0.0D0 ENDIF 940 CONTINUE IF( LIRRFLAG ) THEN DTCELL = DELT DO I = 1, ISCHAN ISPOLD = INEW2OLD( I, NCS ) DO NCELL = 1, NIRRCLS CIRR( NCELL, ISPOLD ) = CONC( IRRCELL( NCELL ), I ) ENDDO ENDDO CALL PA_IRR ( .FALSE., .FALSE., RKIRR, CIRR, DTCELL, & NIRRCLS, DUMMY ) ENDIF IF( CALL_DEG ) THEN !:WTH update DT_DEGRADE and apply DT_DEGRADE = 60.0D0 * DELT + DT_DEGRADE IF( DT_DEGRADE .GE. DTMIN_DEGRADE .OR. ( CHEMSTEP - XELAPS ) .LE. OMIC ) THEN DO I = 1, ISCHAN ISPOLD = INEW2OLD( I, NCS ) SPC = CGRID_INDEX( ISPOLD ) DO NCELL = 1, NUMCELLS YNEW_DEGRADE( NCELL, SPC ) = CONC( NCELL, I ) ENDDO ENDDO CALL DEGRADE_BLK( YNEW_DEGRADE, DT_DEGRADE, JDATE, JTIME, BLKID ) DT_DEGRADE = 0.0D0 ENDIF ENDIF #ifdef sens DO ISPOLD = 1, ISCHAN ISPNEW = IOLD2NEW( ISPOLD,1 ) DO NCELL = 1, NUMCELLS CAVEG( NCELL, ISPOLD ) = CAVEG( NCELL, ISPOLD ) & + 0.5D0 * ( CFINI( NCELL, ISPOLD ) + CONC( NCELL, ISPNEW ) ) & * DELT CFINI( NCELL, ISPOLD ) = CONC( NCELL, ISPNEW ) ENDDO ENDDO #endif cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c SELECTION OF NEXT TIME-STEP c The next block of code determines the next whether to test the c time-step and order for a change. IDOUB counts the number of c successful steps before testing for a change. c If IDOUB > 1, decrease IDOUB and go on to the next time-step with c the current step-size and order. c If IDOUB = 1, store the value of the error (DTLOS) for the time- c step prediction, which will occur when idoub = 0, c but go on to the next step with the current step- c size and order. c If IDOUB = 0, test the time-step and order for a change. cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF( IDOUB .GT. 1 ) THEN IDOUB = IDOUB - 1 IF( IDOUB .EQ. 1 ) THEN DO 980 JSPC = 1, ISCHAN, 2 JSPC1 = JSPC + 1 DO 980 NCELL = 1, NUMCELLS CEST( NCELL, JSPC ) = DTLOS( NCELL, JSPC ) CEST( NCELL, JSPC1 ) = DTLOS( NCELL, JSPC1 ) 980 CONTINUE ENDIF RDELT = 1.0 CYCLE LOOP_ORDER ENDIF ENDIF ! End of error test block IF( HIGHER_ORDER )THEN cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c The following block of code gets estimates for the next step-size by c computing step sizes at the curent order, one order higher than c the current order, and one order lower than the current order. c In each case, the smallest step-size among all cells is selected. c The final step-size and order selected are the ones that give the c largest step-size. cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c.....estimate the time-step ratio at one order higher IF( NQQ .LT. MAXORD ) THEN DO NCELL = 1, NUMCELLS DELY( NCELL ) = 0.0D0 ENDDO DO 1020 JSPC = 1, ISCHAN DO 1020 NCELL = 1, NUMCELLS ERRYMAX = ( DTLOS( NCELL, JSPC ) - & CEST( NCELL, JSPC ) ) * CHOLD( NCELL, JSPC ) DELY( NCELL ) = DELY( NCELL ) + ERRYMAX * ERRYMAX ERROR_CNEW(NCELL,JSPC) = ERRYMAX 1020 CONTINUE DER3MAX = 0.0D0 DO NCELL = 1, NUMCELLS IF( DELY( NCELL ) .GT. DER3MAX )THEN DER3MAX = DELY( NCELL ) NCELLMAX = NCELL END IF ENDDO PR3 = 1.4 * ( DER3MAX / EUP ) ** ENQQ3( NQQ ) RDELTUP = 1.0D0 / ( PR3 + OPT4MIC ) ELSE RDELTUP = 0.0D0 ENDIF END IF ! HIGHER_ORDER HIGHER_ORDER = .TRUE. c.....estimate the time-step ratio at the current order 1060 PR2 = 1.2D0 * ( DER2MAX / ENQQ ) ** ENQQ2( NQQ ) RDELTSM = 1.0D0 / ( PR2 + OPT2MIC ) c.....estimate the time-step ratio at one order lower IF( NQQ .GT. 1 ) THEN DO NCELL = 1, NUMCELLS DELY( NCELL ) = 0.0D0 ENDDO DO 1100 JSPC = 1, ISCHAN I = JSPC + ( KSTEP - 1 ) * ISCHAN DO 1100 NCELL = 1, NUMCELLS ERRYMAX = CONC( NCELL, I ) * CHOLD( NCELL, JSPC ) DELY( NCELL ) = DELY( NCELL ) + ERRYMAX * ERRYMAX ERROR_CNEW(NCELL,JSPC) = ERRYMAX 1100 CONTINUE DER1MAX = 0.0D0 DO NCELL = 1, NUMCELLS IF( DELY( NCELL ) .GT. DER1MAX )THEN DER1MAX = DELY( NCELL ) NCELLMAX = NCELL END IF ENDDO PR1 = 1.3D0 * ( DER1MAX / EDWN ) ** ENQQ1( NQQ ) RDELTDN = 1.0D0 / ( PR1 + OPT3MIC ) ELSE RDELTDN = 0.0D0 ENDIF c.....choose the largest of the predicted time-steps ratios RDELT = MAX( RDELTSM, RDELTUP, RDELTDN ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c The next block of code selects the final size of the next time c step and then returns to statement 440 to do the next step. cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c.....If the last step was successful and rdelt is small, keep the c.....current step and order and require three successful steps before c.....re-checking the time-step and order IF( RDELT .LT. 1.1 .AND. IFSUCCESS .EQ. 1 ) THEN IDOUB = 3 CYCLE LOOP_ORDER ENDIF c.....If the maximum time-step ratio is that of one order lower than c.....the current order, decrease the order. If the current step failed, c.....make sure the next step-size is no larger than the current size IF( RDELT .EQ. RDELTDN ) THEN NQQ = NQQ - 1 IF( IFSUCCESS .EQ. 0 ) RDELT = MIN( RDELT, ONE ) ELSEIF( RDELT .EQ. RDELTUP ) THEN c.....If the maximum time-step ratio is that of one order higher than c.....the current order, increase the order and add a derivative term c.....for the higher order. CONSMULT = ASET( NQQ, KSTEP ) / REAL( KSTEP, 8 ) NQQ = KSTEP NQISC = NQQ * ISCHAN DO 1140 JSPC = 1, ISCHAN I1 = JSPC + NQISC DO 1140 NCELL = 1, NUMCELLS CONC( NCELL, I1 ) = DTLOS( NCELL, JSPC ) * CONSMULT 1140 CONTINUE ENDIF c.....If the last two steps have failed, minimize the time-step ratio. c.....In all cases, re-set idoub to the current order + 1. IF( JFAIL .GE. 2 ) RDELT = MIN( RDELT, PT2 ) IDOUB = NQQ + 1 END DO LOOP_ORDER ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c The next block of code is performed when the integration has been c succesfully completed for the required time period. Set final c concentrations, update counters,do any required output, and return c to the driver subroutine -- CHEM. ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc END DO LOOP_INITIALIZE END DO LOOP_BEGIN DO 1180 ISPC = 1, ISCHAN DO 1180 NCELL = 1, NUMCELLS IF( CNEW( NCELL, ISPC ) .LE. ZBOUND ) & CNEW( NCELL, ISPC ) = CONCMIN 1180 CONTINUE #ifdef sens CHEMSTEP = 1.0D0 / CHEMSTEP DO I = 1, ISCHAN DO NCELL = 1, NUMCELLS CAVEG( NCELL,I ) = MAX( CAVEG( NCELL,I )*CHEMSTEP,CONCMIN ) ENDDO ENDDO #endif RETURN C********************** FORMAT STATEMENTS ****************************** 93000 FORMAT( /1X, 'Rate constants and reaction rates', & ' used for irun=',I4,', nstep=',I4,', nsubfun=',I4, & ' delt=0.0' ) 93020 FORMAT( 1X, 'n= ', I3, ' k=', 1PE20.8, ' R=', 1PE20.8 ) 93040 FORMAT( /1X, 'Species concentrations used for irun=', I4, & ' nstep=', I4, ' nsubfun=', I4 ) 93060 FORMAT( 1X, 'C= ', I3, 2X, A4, 2X, 1PE20.8 ) 93080 FORMAT( 1X, 'C= ', I3, 2X, 'M ', 2X, 1PE20.8 ) 93100 FORMAT( 1X, 'C= ', I3, 2X, 'O2 ', 2X, 1PE20.8 ) 93120 FORMAT( 1X, 'C= ', I3, 2X, 'N2 ', 2X, 1PE20.8 ) 93140 FORMAT( 1X, 'C= ', I3, 2X, 'H2O ', 2X, 1PE20.8 ) 93160 FORMAT( /1X, 'dc/dt for irun=', I4, ' nstep=', I4, & ' nsubfun=', I4, ' delt=0.0' ) 93180 FORMAT( 1X, 'dcdt= ', I3, 1X, A10, 4X, 1X, 1PE20.8 ) 93200 FORMAT( 1X, I3, I5, 5I4, I5, F11.6, 1X, 1PE11.4, 1X, 0PF10.3 ) 93220 FORMAT( /1X, '****Start or restart step =', I4, ' for irun=', I3, & ' block=', I3 ) 93240 FORMAT( 5X, 'Data for irun', I5, ' block', I3, ' cell', I7, & ' (',I3, ',', I3, ',', I2, ')' ) 93260 FORMAT( 5X, 'xelaps = ', 1PE15.8, ' old delt = ', 1PE15.8/ & 10X, 'new delt = ', 1PE15.8, ' timremain = ', 1PE15.8/ & 10X, 'rdelt=', 1PE15.8, ' nqq = ', I4, & ' kstep = ', I4, ' idoub = ', I4, ' jeval=', I3 ) 93280 FORMAT( /1X, 'Conc and derivs at beginning of step' ) 93300 FORMAT( 1X, 'Conc', I4, 1X, A16, 4X, 1X, 4( 1PE15.8 ) ) 93320 FORMAT( /1X, 'Predicted Conc for irun=', I4, ' nstep=', I4, & ' delt=', 1PE15.8 ) 93340 FORMAT( 1X, 'C(p)=', I3, 1X, A16, 4X, 1X, 4( 1PE15.8 ) ) 93360 FORMAT( /1X ) 93380 FORMAT( 5X, 'Pderiv called for irun=', I4, ' nstep=', I4, & ' npderiv=', I4, ' hratio=', 1PE12.4 ) 93400 FORMAT( /1X, 'Jacobian for irun=', I4,' nstep=', I4, & ' npdout=', I4, ' l3=', I2, ' delt=', 1PE15.8 ) 93420 FORMAT( 1x, 'jac ', 3I4, 1X, A16, 4X, 1x, A16, 4X, 1X, 1PE20.8 ) 93440 FORMAT( 5X, 'Subfun was called for irun=', I3, ' nstep=', I3, & ' nsubfun=', I3,' iter=', I3 ) 93460 FORMAT( /1X, 'Concs at start of iter=',I3, & ' irun=', I4, ' nstep=', I4, ' delt=', 1PE15.8 ) 93480 FORMAT( 1X, 'Cm(', I1, ') =', I3, 1X, A10, 4X, 1X, 4( 1PE15.8 ) ) 93500 FORMAT( /1X, 'dc/dt for irun=', I4, ' nstep=' , I4, ' nsubfun=', & I4 ) 93520 FORMAT( 1X, 'dcdt= ', I3, 1X, A10, 4X, 1X, 1PE20.8 ) 93540 FORMAT( /1X, 'Error for irun=', I4, ' nstep=', I4, ' iter=', I4, & ' delt=',1PE15.8 ) 93560 FORMAT( 1X, 'Cerr=', I3, 1X, A10, 4X, 1X, 1PE20.8 ) 93580 FORMAT( /1X, 'Correction for irun=', I4,' nstep=', I4,' iter=', & I4, ' delt=', 1PE15.8 ) 93600 FORMAT( 1X, 'Coor=', I3, 1X, A10, 4X, 1X, 1PE20.8 ) 93620 FORMAT( 5X, 'No convergence for irun=', I4, ' step=', I3, & ' iter=', I1,' delt=', 1PE15.8 / 10x, 'dcon=', & 1PE15.8, ' rmsrat=', 1PE15.8 ) 93640 FORMAT( 5X, 'Corrector failed to converge for irun=', I4, & ' nsteps=', I4,' after ', I4,' tries , numneg=', I6 ) 93660 FORMAT( 5X, 'Time step being reduced for irun=', I4, ' step=', & I4, ' rdelt=', 1PE15.8 ) 93680 FORMAT( 5X, 'Convergence achieved for irun=', I4, ' nsteps=', I4, & ' after ', I4,' tries , delt=', 1PE15.8 ) 93700 FORMAT( /1X, ' Conc after successful convergence' ) 93720 FORMAT( 1X, 'C(e)=', I3, 1X, A10, 4X, 1X, 4( 1PE15.8 ) ) 93740 FORMAT( 5X, 'Error test failed for irun=', I4,' nsteps=', I4, & ' delt=', 1PE15.8 / 10x,' d=', E15.8, 1X, ' e=', & E15.8 ) 93760 FORMAT( 5X, 'Error test passed for step=', I4, & ' of irun=',I4/10x,'delt=', 1PE20.8, & ' xelaps=', 1PE20.8 / 10X, 'nqq=', I3, & ' kstep=', I3, ' idoub=', I3 ) 93780 FORMAT( /1X, 'C and Cprimes after ', I4, & ' steps of irun=',I4 ) 93800 FORMAT( 1X, 'C(n)=', I4, 1X, A10, 4X, 1X, 4( 1PE15.8 ) ) 93820 FORMAT( 5X, 'rdelt=', 1PE15.8, ' idoub=', I3, ' at irun=', I4, & ' nstep=', I4 ) 93840 FORMAT( 1X, '****** End of step ', I4, ' **********' ) 93860 FORMAT( 5X, 'rdelt @ nq=', E15.8, ' rdelt @ nq+1=', E15.8, & ' rdelt @ nq-1=', E15.8 ) 93900 FORMAT( 'SMVGEAR: NCELL, RMSTOP, CCOL, CROW, NLEV =', I8, E15.8, 3I8 ) 94000 FORMAT( 'SMVGEAR: delt too small =', 1PE8.2,' time, ', & 'timremain, ylowa, eps = ',4( 1PE9.3, 1X ) ) 94010 FORMAT( 'NSTEPS, BLKID, IRUN, NQQ:', 4I8 ) 94015 FORMAT( 'RDELT, DER2MAX, ENQQ: ', 3E15.8 ) 94020 FORMAT( 'SMVGEAR: YLOWA reduced too many times. check original', & ' YLOWR' ) 94040 FORMAT( 'delt dec to =', E13.5, '; time ', E13.5, ' because ', & 'excessive errors' ) END ================================================ FILE: CCTM/src/gas/smvgear/grsprse.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/CCTM/src/gas/smvgear/grsprse.F,v 1.3 2011/10/21 16:11:14 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C @(#)grsprse.F 1.1 /project/mod3/CMAQ/src/chem/smvgear/SCCS/s.grsprse.F 07 Jul 1997 12:45:30 SUBROUTINE JSPARSE C*********************************************************************** C C FUNCTION: To define array pointers for sparse matrix storage by C doing symbolic LU decomposition C C PRECONDITIONS: None C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Prototype created by Jerry Gipson, June, 1995. C Based on the code originally developed by C M. Jacobson, (Atm. Env., Vol 28, No 2, 1994). C Revised 3/24/96 By Jerry Gipson to conform to C the Models-3 minimum IOV configuration C Revised December 1996 by Jerry Gipson to conform C to the Models-3 interim CTM that includes emissions C in chemistry. C Revised April 1997 to distinguish NSPCS from NSPCSD C Revised April 1997 to conform to Models-3 framework C Modified June, 1997 by Jerry Gipson to be consistent C with beta CTM C Modified September, 1997 by Jerry Gipson to be C consistent with the targeted CTM C 16 Aug 01 J.Young: Use HGRD_DEFN C 28 Jun 10 J.Young: convert for Namelist redesign C 30 Jun 10 J.Young: convert for Namelist redesign; move all C local include file variables into GRVARS module C 29 Mar 11 S.Roselle: Replaced I/O API include files C with UTILIO_DEFN C 15 Jul 14 B.Hutzell: replaced mechanism include files with C RXNS_DATA module and supplement error message when array C bounds exceed maximum values C*********************************************************************** USE RXNS_DATA USE CGRID_SPCS ! CGRID mechanism species USE UTILIO_DEFN USE GRVARS ! inherits GRID_CONF IMPLICIT NONE C..INCLUDES: None C..ARGUMENTS: None C..PARAMETERS: None C..EXTERNAL FUNCTIONS: None C..SAVED LOCAL VARIABLES: LOGICAL, SAVE :: INITIALIZED = .FALSE. ! Flag for first call to this subroutine INTEGER, SAVE :: IFNEVER = 0 ! Flag for counter initialization INTEGER, SAVE :: NDLMAX = 0 ! Max # of PD loss terms in any reaction INTEGER, SAVE :: NDPMAX = 0 ! Max # of PD prod terms in any reaction C..SCRATCH LOCAL VARIABLES: CHARACTER( 16 ) :: PNAME = 'GRSPRSE' ! Program name CHARACTER( 80 ) :: MSG ! Mesaage text for output to log INTEGER EXITSTAT ! Exit status code INTEGER I,J,K,I1,J1,I2 ! Matrix loop indices INTEGER IA, IB ! I,J index holders for decomp loop 2 INTEGER INEW, JNEW ! Index for sorted species number INTEGER IOLD, JOLD ! Index for old species number INTEGER IPA, KPA ! I,K index holders for decomp loop 1 INTEGER IPB, KPB ! I,K index holders for decomp loop 1 INTEGER IPROD, JP ! Species number of a product INTEGER IREACT, IR, JR ! Species number of a reactant INTEGER ISP, ISP2, JSP ! Species loop indices INTEGER JRE, JPR, IRE ! Indices for nonzero Jacobian entries INTEGER JZ3, JZ4 ! Counter for calcs in backsub groupings INTEGER NP, IAP ! Product loop indices INTEGER NR, IAL, JAL ! Reactant loop indices INTEGER IAR ! Pointer to location of PD term INTEGER IARRAY2 ! Final # of matrix entries w/ Sp. Mat INTEGER ICB ! Counter for # of terms in decomp loop 1 INTEGER ICBSUM ! Running count of calcs for j index ! in decomp loop 1 INTEGER ICCOUNT ! Two term op count for decomp loop 1 INTEGER ICNT ! Total op counter for decomp loop 1 INTEGER ICNTA ! op. counter for decomp loop 1 w/ Sp Mat INTEGER ICNTB ! op. counter for decomp loop 1 w/ Sp Mat INTEGER IFSUN ! Day/night loop index INTEGER IJSTEP ! Number of terms to calc in decomp loops INTEGER IMINNEW ! Index holder for sort routine INTEGER IMINOLD ! Index holder for sort routine INTEGER IPORR ! Species number of a product or reactant INTEGER, SAVE :: IZERO = 0 ! Integer zero INTEGER JCB ! Counter for # of terms in decomp loop 2 INTEGER JCCOUNT ! Two term op count for decomp loop 2 INTEGER JCNT ! Total op counter for decomp loop 2 INTEGER JCNTA ! op. counter for decomp loop 2 w/o Sp Mat INTEGER JCNTB ! op. counter for decomp loop 2 w/ Sp Mat INTEGER JZ ! Loop index for backsub loops INTEGER KA ! Loop index for decomposition loops INTEGER KCNT ! op. counter for bksub loop 1 w/ Sp. Mat. INTEGER KCNTA ! op. counter for bksub loop 1 w/o Sp Mat INTEGER KNTARRAY ! Final # of matrix entries w/o Sp. Mat INTEGER KOUNT0 ! Initial # of matrix entries w/ Sp. Mat INTEGER KOUNT0A ! Initial # of matrix entries w/o Sp. Mat INTEGER KZ ! # of nonzero calcs in backsub loop 1 INTEGER NCS12 ! Mechanism number NCS+1=day NCS+2=night INTEGER NK ! Reaction number INTEGER NLS ! Number of loss PD terms INTEGER NOCHANG ! Count of number of species not reacting INTEGER NPR ! Number of prod PD terms INTEGER NQQ ! Loop index for Gear order INTEGER NRPP ! Reactant plus product loop index INTEGER NRX ! Reaction loop index INTEGER NU ! Active reaction count holder INTEGER MCNT ! op. counter for bksub loop 2 w/ Sp. Mat. INTEGER MCNTA ! op. counter for bksub loop 2 w/o Sp. Mat. INTEGER MINVALU ! Current number of PD terms in sort INTEGER MZ ! # of nonzero calcs in backsub loop 2 !KSPARSE INTEGER, ALLOCATABLE :: ICLO( : ) ! Pointer to # of ops in decomp loop 1 INTEGER, ALLOCATABLE :: JCLO( : ) ! Pointer to # of ops in decomp loop 2 INTEGER, ALLOCATABLE :: IZEROI( : ) ! Pointer to decomp loop 1 i index INTEGER, ALLOCATABLE :: IZEROK( : ) ! Pointer to decomp loop 1 k index INTEGER, ALLOCATABLE :: JZERO ( : ) ! Pointer to decomp loop 2 i index INTEGER, ALLOCATABLE :: IZILCH ( :,: ) ! # of nonzero calcs in decomp loop 1 INTEGER, ALLOCATABLE :: JZILCH ( :,: ) ! # of nonzero calcs in decomp loop 2 INTEGER, ALLOCATABLE :: LZERO ( :,: ) ! Symbolic Jacobian matrix !JSPARSE INTEGER, ALLOCATABLE :: ISAPORL( : ) ! Count of PD terms for each species INTEGER, ALLOCATABLE :: ISPARDER( :,: ) ! Indicator of a PD term in the INTEGER IOS ! Allocate status C----------------------------------------------------------------------- cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Initialize some variables on first call cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF ( INITIALIZED )THEN RETURN ELSE INITIALIZED = .TRUE. END IF ALLOCATE( ISAPORL ( NUMB_MECH_SPC ), & ISPARDER( NUMB_MECH_SPC,NUMB_MECH_SPC ), & STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = '*** Memory allocation failed' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Initialize Prod/loss and PD tabulator arrays cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc NCS12 = NCS ISAPORL = 0 ISPARDER = 0 cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Set the number of Partial derivative terms in the Jacobian and c count the number of terms for each species cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc DO NRX = 1, NRXNS DO NR = 1, 3 IREACT = IRR( NRX, NR ) IF( IREACT .NE. 0 ) THEN DO NRPP = 1, 3 + MXPRD IPORR = IRR( NRX, NRPP ) IF( IPORR .NE. 0 ) ISPARDER( IPORR, IREACT ) = 1 ENDDO ENDIF ENDDO ENDDO DO IREACT = 1, NUMB_MECH_SPC DO IPORR = 1, NUMB_MECH_SPC IF( ISPARDER( IPORR, IREACT ) .EQ. 1 ) & ISAPORL( IPORR ) = ISAPORL( IPORR ) + 1 ENDDO ENDDO cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Sort the species, putting all with zero partial derivative c terms at the bottom and those with fewest PD terms at top. c Set arrays for species with zero PD terms cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc ISCHANG = 0 NOCHANG = NUMB_MECH_SPC DO JOLD = 1, NUMB_MECH_SPC IF( ISAPORL( JOLD ) .GT. 0 ) THEN ISCHANG( NCS ) = ISCHANG( NCS ) + 1 JNEW = ISCHANG( NCS ) INEW2OLD( JNEW, NCS ) = JOLD IOLD2NEW( JOLD, NCS ) = JNEW ELSE INEW2OLD( NOCHANG, NCS ) = JOLD IOLD2NEW( JOLD, NCS ) = NOCHANG NOCHANG = NOCHANG - 1 ENDIF ENDDO cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Now sort by number of PD terms, fewest at position 1, most at c the end position. cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc DO JNEW = 1, ISCHANG( NCS ) c uncomment the following three lines to turn off ordering ! INEW2OLD( JNEW, NCS ) = JNEW ! IOLD2NEW( JNEW, NCS ) = JNEW ! IF( JNEW .NE. 0 ) GO TO 180 c uncomment the above three lines to turn off ordering JOLD = INEW2OLD( JNEW, NCS ) MINVALU = ISAPORL( JOLD ) IMINOLD = JOLD IMINNEW = JNEW DO INEW = JNEW + 1, ISCHANG( NCS ) IOLD = INEW2OLD( INEW, NCS ) IF( ISAPORL( IOLD ) .LT. MINVALU ) THEN MINVALU = ISAPORL( IOLD ) IMINOLD = IOLD IMINNEW = INEW ENDIF ENDDO INEW2OLD( IMINNEW, NCS ) = JOLD INEW2OLD( JNEW, NCS ) = IMINOLD IOLD2NEW( JOLD, NCS ) = IMINNEW IOLD2NEW( IMINOLD, NCS ) = JNEW ENDDO cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Fill the irm2 array using the new species order developed above. c Also determine active reactions for day and then night (i.e., photo c reactions determined by BTEST=.TRUE. are not included for nighttime) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc NUSERAT = 0 DO NRX = 1, NRXNS DO NR = 1, NREACT( NRX ) IREACT = IRR( NRX, NR ) IRM2( NR, NRX, NCS ) = IOLD2NEW( IREACT,NCS ) ENDDO DO NP = 1, NPRDCT( NRX ) IPROD = IRR( NRX, NP + 3 ) IRM2( NP+3, NRX, NCS ) = IOLD2NEW( IPROD, NCS ) ENDDO IF( NREACT( NRX ) .GT. 0 ) THEN NUSERAT( NCS ) = NUSERAT( NCS ) + 1 NU = NUSERAT( NCS ) NKUSERAT( NU, NCS ) = NRX IF( .NOT. ( BTEST ( IRXBITS( NRX ),1 ) ) ) THEN NUSERAT( NCS + 1 ) = NUSERAT( NCS + 1 ) + 1 NU = NUSERAT( NCS + 1 ) NKUSERAT( NU, NCS + 1 ) = NRX ENDIF ENDIF ENDDO DEALLOCATE( ISAPORL, ISPARDER ) ALLOCATE( ICLO( NCS2 ), & JCLO( NCS2 ), & IZEROI( MXCOUNT1 ), & IZEROK( MXCOUNT2 ), & JZERO ( MXCOUNT1 ), STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = '*** Memory allocation failed' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF ALLOCATE( LZERO ( NUMB_MECH_SPC,NUMB_MECH_SPC ), & IZILCH ( NUMB_MECH_SPC,NCS2 ), & JZILCH ( NUMB_MECH_SPC,NCS2 ), STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = '*** Memory allocation failed' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF IZILCH = 0 JZILCH = 0 JHIZ1 = 0 JHIZ2 = 0 KZILCH = 0 MZILCH = 0 NDERIVL = 0 NDERIVP = 0 JARRAYPT = 0 IJDECA = 0 IKDECA = 0 KJDECA = 0 IJDECB = 0 IKDECB = 0 KJDECB = 0 ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Do symbolic LU decomposition to determine sparse storage array c structures. Done twice, first for day and then for night. An entry c of 1 in lzero means a non-negative entry in the Jacobian. First c put ones on the diagonal and zeroes everywhere else. ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc DO 700 IFSUN = 1, 2 NCS12 = IFSUN DO I = 1, NUMB_MECH_SPC DO J = 1, NUMB_MECH_SPC LZERO( J, I ) = 0 ENDDO LZERO( I, I ) = 1 ENDDO cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Fill in the rest of the entries in the Jacobian cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc DO NRX = 1, NUSERAT( NCS12 ) NK = NKUSERAT( NRX, NCS12 ) DO NR = 1, NREACT( NK ) IRE = IRM2( NR, NK, NCS ) DO JAL = 1, NREACT( NK ) JRE = IRM2( JAL, NK, NCS ) LZERO( JRE, IRE ) = 1 ENDDO DO IAP = 1, NPRDCT( NK ) JPR = IRM2( 3+IAP, NK, NCS ) LZERO( JPR, IRE ) = 1 ENDDO ENDDO ENDDO ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Set up arrays for decomposition / back-substitution of sparse c matrices by removing all calculations involving a zero. ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF ( IFNEVER.EQ.0 ) THEN IFNEVER = 1 ICNT = 0 JCNT = 0 ICCOUNT = 0 JCCOUNT = 0 ENDIF KOUNT0A = 0 KOUNT0 = 0 ICNTA = 0 ICNTB = 0 JCNTA = 0 JCNTB = 0 KCNTA = 0 MCNTA = 0 KCNT = 0 MCNT = 0 IARRAY2 = 0 ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Count number of entries w/ and w/o sparse matrix storage ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc DO J = 1, ISCHANG( NCS ) DO K = 1, ISCHANG( NCS ) KOUNT0A = KOUNT0A + 1 IF( LZERO( J, K ) .EQ. 1 ) KOUNT0 = KOUNT0 + 1 ENDDO ENDDO ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Do the symbolic decomposition (ludcmp) converting [A] to [L][U] ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc ICLO( NCS12 ) = ICNT + 1 JCLO( NCS12 ) = JCNT + 1 DO J = 1, ISCHANG( NCS ) J1 = J - 1 c... First loop of decomposition DO I = 2, ISCHANG( NCS ) I1 = J1 IF( I .LE. J1 ) I1 = I - 1 DO K = 1, I1 ICNTA = ICNTA + 1 IF( LZERO( I, K ) .EQ. 1 .AND. LZERO( K, J ) .EQ. 1 ) & THEN IZILCH( J, NCS12 ) = IZILCH( J, NCS12 ) + 1 ICNT = ICNT + 1 ICNTB = ICNTB + 1 IZEROK( ICNT ) = K IZEROI( ICNT ) = I LZERO( I, J ) = 1 ENDIF ENDDO ENDDO c... Second loop of decomposition DO I = J + 1, ISCHANG( NCS ) JCNTA = JCNTA + 1 IF( LZERO( I, J ) .EQ. 1 ) THEN JZILCH( J, NCS12 ) = JZILCH( J, NCS12 ) + 1 JCNT = JCNT + 1 JCNTB = JCNTB + 1 JZERO( JCNT ) = I ENDIF ENDDO ENDDO ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Do symbolic back-substition for solving [L][U]{x}={b}. Store data c in sparse matrix pointer jarraypt. ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c... First loop of back-substitution DO I = 2, ISCHANG( NCS ) I1 = I - 1 DO J = 1, I1 KCNTA = KCNTA + 1 IF( LZERO( I, J ) .EQ. 1 ) THEN KZILCH( I, NCS12 ) = KZILCH( I, NCS12 ) + 1 KCNT = KCNT + 1 IARRAY2 = IARRAY2 + 1 KZERO( IARRAY2, NCS12 ) = J JARRAYPT( I, J, NCS12 ) = IARRAY2 ENDIF ENDDO ENDDO c... Second loop of back-substitution DO I = ISCHANG( NCS ) - 1, 1, -1 I2 = I + 1 DO J = I + 1, ISCHANG( NCS ) MCNTA = MCNTA + 1 IF( LZERO( I, J ) .EQ. 1 ) THEN MZILCH( I, NCS12 ) = MZILCH( I, NCS12 ) + 1 MCNT = MCNT + 1 IARRAY2 = IARRAY2 + 1 KZERO( IARRAY2, NCS12 ) = J JARRAYPT( I, J, NCS12 ) = IARRAY2 ENDIF ENDDO ENDDO ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Fill jarraypt with remaining diagonal array points and save counts ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc DO I = 1, ISCHANG( NCS ) IARRAY2 = IARRAY2 + 1 JARRAYPT( I, I, NCS12 ) = IARRAY2 ENDDO IARRAY( NCS12 ) = IARRAY2 KNTARRAY = KCNTA + MCNTA + ISCHANG( NCS ) ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Do decomposition again to change arrays to use jarraypt CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC JCB = JCLO( NCS12 ) JZLO( NCS12 ) = JCCOUNT ICBSUM = ICLO( NCS12 ) - 1 IJSTEP = 2 DO J = 1, ISCHANG( NCS ) c...First loop of decomposition IDEC1LO( J, NCS12 ) = ICCOUNT + 1 ICB = ICBSUM + 1 ICBSUM = ICBSUM + IZILCH( J, NCS12 ) DO KA = 1, IZILCH( J, NCS12 ), IJSTEP ICCOUNT = ICCOUNT + 1 IPA = IZEROI( ICB ) KPA = IZEROK( ICB ) IJDECA( ICCOUNT ) = JARRAYPT( IPA, J, NCS12 ) IKDECA( ICCOUNT ) = JARRAYPT( IPA, KPA, NCS12 ) KJDECA( ICCOUNT ) = JARRAYPT( KPA, J, NCS12 ) IF( ICB + 1 .LE. ICBSUM ) THEN IPB = IZEROI( ICB + 1 ) KPB = IZEROK( ICB + 1 ) IJDECB( ICCOUNT ) = JARRAYPT( IPB, J, NCS12 ) IKDECB( ICCOUNT ) = JARRAYPT( IPB, KPB, NCS12 ) KJDECB( ICCOUNT ) = JARRAYPT( KPB, J, NCS12 ) ENDIF ICB = ICB + IJSTEP ENDDO IDEC1HI( J, NCS12 ) = ICCOUNT c...Second loop of decomposition JZ = JZILCH( J, NCS12 ) DO I = 1, JZ - 1, 2 JCCOUNT = JCCOUNT + 1 JHIZ1( J, NCS12 ) = JHIZ1( J, NCS12 ) + 1 IA = JZERO( JCB ) IB = JZERO( JCB + 1 ) JZEROA( JCCOUNT ) = JARRAYPT( IA, J, NCS12 ) JZEROB( JCCOUNT ) = JARRAYPT( IB, J, NCS12 ) JCB = JCB + 2 ENDDO IF( MOD( JZ, 2 ) .EQ. 1 ) THEN JCCOUNT = JCCOUNT + 1 JHIZ2( J, NCS12 ) = JHIZ2( J, NCS12 ) + 1 IA = JZERO( JCB ) JZEROA( JCCOUNT ) = JARRAYPT( IA, J, NCS12 ) JCB = JCB + 1 ENDIF ENDDO ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Group terms to increase efficiency in back-substition ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c... First back-substitution loop DO I = 1, ISCHANG( NCS ) KZ = KZILCH( I, NCS12 ) KZHI0( I, NCS12 ) = KZ - 4 JZ3 = 0 DO JZ = 1, KZHI0( I, NCS12 ), 5 JZ3 = JZ + 4 ENDDO KZLO1( I, NCS12 ) = JZ3 + 1 KZHI1( I, NCS12 ) = KZ - 1 JZ4 = JZ3 DO JZ = JZ3 + 1, KZ - 1, 2 JZ4 = JZ + 1 ENDDO KZLO2( I, NCS12 ) = JZ4 + 1 ENDDO c... Second loop of back-substitution DO I = ISCHANG( NCS ), 1, -1 MZ = MZILCH( I, NCS12 ) MZHI0( I, NCS12 ) = MZ - 4 JZ3 = 0 DO JZ = 1, MZHI0( I, NCS12 ), 5 JZ3 = JZ + 4 ENDDO MZLO1( I, NCS12 ) = JZ3 + 1 MZHI1( I, NCS12 ) = MZ - 1 JZ4 = JZ3 DO JZ = JZ3+1, MZ-1, 2 JZ4 = JZ + 1 ENDDO MZLO2( I, NCS12 ) = JZ4 + 1 ENDDO cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Check dimensions and print out array savings if ldebug on cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF( ICNT.GT.MXCOUNT2 .OR. JCNT .GT. MXCOUNT1 .OR. & IARRAY2 .GT. MXARRAY .OR. ICCOUNT .GT. MXCOUNT2 .OR. & JCCOUNT .GT. MXARRAY ) THEN WRITE( MSG, 94000 ) CALL M3MESG( MSG ) WRITE( MSG, 94020 ) MXCOUNT2, ICNT CALL M3MESG( MSG ) WRITE( MSG, 94040 ) MXCOUNT1, JCNT CALL M3MESG( MSG ) WRITE( MSG, 94060 ) MXARRAY, IARRAY2 CALL M3MESG( MSG ) WRITE( MSG, 94080 ) MXCOUNT2, ICCOUNT CALL M3MESG( MSG ) WRITE( MSG, 94100 ) MXARRAY, JCCOUNT, MAXGL3 CALL M3MESG( MSG ) WRITE( MSG,94110 ) CALL M3MESG( MSG ) EXITSTAT = 2 CALL M3EXIT( PNAME, IZERO, IZERO, ' ', EXITSTAT ) ENDIF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Set final arrays for partial derivative calculations cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc DO NRX = 1, NUSERAT( NCS12 ) NK = NKUSERAT( NRX, NCS12 ) DO IAL = 1, NREACT( NK ) IR = IRM2( IAL, NK, NCS ) DO JAL = 1, NREACT( NK ) JR = IRM2( JAL, NK, NCS ) IAR = JARRAYPT( JR, IR, NCS12 ) NDERIVL( NK, NCS12 ) = NDERIVL( NK, NCS12 ) + 1 NLS = NDERIVL( NK, NCS12 ) JARRL( NLS, NK, NCS12 ) = IAR JLIAL( NLS, NK, NCS12 ) = IAL NDLMAX = MAX( NLS, NDLMAX ) ENDDO DO IAP = 1, NPRDCT( NK ) JP = IRM2( IAP + 3, NK, NCS ) IAR = JARRAYPT( JP, IR, NCS12 ) NDERIVP( NK, NCS12 ) = NDERIVP( NK, NCS12 ) + 1 NPR = NDERIVP( NK, NCS12 ) JARRP( NPR, NK, NCS12 ) = IAR JPIAL( NPR, NK, NCS12 ) = IAL ICOEFF( NPR, NK, NCS12 ) = 0 IF( ABS( SC( NK, IAP ) - 1.0D0 ) .GT. 1.0D-06 ) THEN ICOEFF( NPR, NK, NCS12 ) = IAP ENDIF NDPMAX = MAX( NPR, NDPMAX ) ENDDO ENDDO ENDDO cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Check dimensions of PD arrays cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF( NDPMAX .GT. MXRP .OR. NDLMAX .GT. MXRR ) THEN WRITE( MSG, 94000 ) CALL M3MESG( MSG ) WRITE( MSG, 94200 ) MXRP, NDPMAX CALL M3MESG( MSG ) WRITE( MSG, 94220 ) MXRR, NDLMAX CALL M3MESG( MSG ) EXITSTAT = 2 CALL M3EXIT( PNAME, IZERO, IZERO, ' ', EXITSTAT ) ENDIF 700 CONTINUE DEALLOCATE( ICLO, & JCLO, & IZEROI, & IZEROK, & JZERO, & LZERO, & IZILCH, & JZILCH ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Set some parameters for the Gear integration method cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc MSTEP = 3 MAXORD = 5 MBETWEEN = 50 DO NQQ = 1, 7 ENQQ1( NQQ ) = 0.5E+00 / FLOAT( NQQ ) ENQQ2( NQQ ) = 0.5E+00 / FLOAT( NQQ + 1 ) ENQQ3( NQQ ) = 0.5E+00 / FLOAT( NQQ + 2 ) CONPST( NQQ ) = 1.0E+00 / ( PERTST( NQQ, 1 ) & * ENQQ3( NQQ ) ) CONP15( NQQ ) = 1.5E+00 * CONPST( NQQ ) PERTST( NQQ, 1 ) = PERTST( NQQ, 1 ) * PERTST( NQQ, 1 ) PERTST( NQQ, 2 ) = PERTST( NQQ, 2 ) * PERTST( NQQ, 2 ) PERTST( NQQ, 3 ) = PERTST( NQQ, 3 ) * PERTST( NQQ, 3 ) ENDDO DO I2 = 1, 6 ASET( I2, 2 ) = 1.0D+00 ASET( I2, 8 ) = 0.0D0 ENDDO ASET( 1, 1 ) = 1.0D0 ASET( 2, 1 ) = 2.0D0 / 3.0D0 ASET( 2, 3 ) = 1.0D0 / 3.0D0 ASET( 3, 1 ) = 6.0D0 / 11.0D0 ASET( 3, 3 ) = 6.0D0 / 11.0D0 ASET( 3, 4 ) = 1.0D0 / 11.0D0 ASET( 4, 1 ) = 12.0D0 / 25.0D0 ASET( 4, 3 ) = 0.70D0 ASET( 4, 4 ) = 0.20D0 ASET( 4, 5 ) = 0.02D0 ASET( 5, 1 ) = 60.0D0 / 137.0D0 ASET( 5, 3 ) = 225.0D0 / 274.0D0 ASET( 5, 4 ) = 85.0D0 / 274.0D0 ASET( 5, 5 ) = 15.0D0 / 274.0D0 ASET( 5, 6 ) = 1.0D0 / 274.0D0 ASET( 6, 1 ) = 180.0D0 / 441.0D0 ASET( 6, 3 ) = 406.0D0 / 441.0D0 ASET( 6, 4 ) = 735.0D0 / 1764.0D0 ASET( 6, 5 ) = 175.0D0 / 1764.0D0 ASET( 6, 6 ) = 21.0D0 / 1764.0D0 ASET( 6, 7 ) = 1.0D0 / 1764.0D0 RETURN C********************** FORMAT STATEMENTS ****************************** 93000 FORMAT( 1X,/'PARAM POSS MATRIX POINTS -- NONZEROS -- NCS12=',I4/ & 1X, 'INITMAT ',4X,I8,9X,I8/ & 1X, 'FINMAT ',4X,I8,9X,I8/ & 1X, 'DECOMP1 ',4X,I8,9X,I8/ & 1X, 'DECOMP2 ',4X,I8,9X,I8/ & 1X, 'BACKSB1 ',4X,I8,9X,I8/ & 1X, 'BACKSB2 ',4X,I8,9X,I8/) 94000 FORMAT( 1X,'One of the dimensions below is too small:') 94020 FORMAT( 1X,'DIMENSION: MXCOUNT2 = ',I6,' VARIABLE: ICNT = ',I6) 94040 FORMAT( 1X,'DIMENSION: MXCOUNT1 = ',I6,' VARIABLE: JCNT = ',I6) 94060 FORMAT( 1X,'DIMENSION: MXARRAY = ',I6,' VARIABLE: IARRAY2 = ',I6) 94080 FORMAT( 1X,'DIMENSION: MXCOUNT2 = ',I6,' VARIABLE: ICCOUNT = ',I6) 94100 FORMAT( 1X,'DIMENSION: MXARRAY = ',I6,' VARIABLE: JCCOUNT = ',I6,' MAXGL3 = ',I6 ) 94110 FORMAT( 1X,'NOTE: MXCOUNT[1,2] = NUMB_MECH_SPC * MAXGL3 * 3' ) 94200 FORMAT( 1X,'DIMENSION: MXRP = ',I6,' VARIABLE: NDPMAX = ',I6) 94220 FORMAT( 1X,'DIMENSION: MXRR = ',I6,' VARIABLE: NDLMAX = ',I6) END ================================================ FILE: CCTM/src/gas/smvgear/grsubfun.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/CCTM/src/gas/smvgear/grsubfun.F,v 1.2 2011/10/21 16:11:15 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C @(#)grsubfun.F 1.1 /project/mod3/CMAQ/src/chem/smvgear/SCCS/s.grsubfun. F 07 Jul 1997 12:45:32 SUBROUTINE SUBFUN C*********************************************************************** C C FUNCTION: To Compute GLOSS = dc/dt for each species. GLOSS is the C net rate of change in species concentrations resulting C from chemical production minus chemical loss. C C PRECONDITIONS: None C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Prototype created by Jerry Gipson, June, 1995. C Based on the code originally developed by C M. Jacobson, (Atm. Env., Vol 28, No 2, 1994). C Revised 3/14/96 by Jerry Gipson to conform to C the Models-3 minimum IOV configuration C Revised December 1996 by Jerry Gipson to conform C to the Models-3 interim CTM that includes emissions C in chemistry. C Modified June, 1997 by Jerry Gipson to be consistent C with beta CTM C Modified September, 1997 by Jerry Gipson to be C consistent with the targeted CTM C 16 Aug 01 J.Young: Use HGRD_DEFN C 31 Jan 05 J.Young: get BLKSIZE from dyn alloc horizontal C & vertical domain specifications module (GRID_CONF) C 28 Jun 10 J.Young: remove unnecessary modules and includes C 30 Jun 10 J.Young: convert for Namelist redesign; move all C local include file variables into GRVARS module C 15 Jul 14 B.Hutzell: replaced mechanism include files with C RXNS_DATA module and replace call to CALC_SPECIAL with C SPECIAL_RATES in RXNS_FUNCTION module C*********************************************************************** USE RXNS_DATA USE RXNS_FUNCTION USE GRVARS ! inherits GRID_CONF IMPLICIT NONE C..INCLUDES: None C..ARGUMENTS: None C..PARAMETERS: None C..EXTERNAL FUNCTIONS: None C..SAVED LOCAL VARIABLES: None C..SCRATCH LOCAL VARIABLES: INTEGER ISP ! Loop index for species INTEGER ISP1, ISP2, ISP3 ! Pointers to species numbers INTEGER NCELL ! Loop index for number of cells INTEGER NP ! Loop index for number of products INTEGER NR ! Loop index for number of reactants INTEGER NRK ! Reaction number INTEGER NRX ! Loop index for number of reactions C*********************************************************************** IF ( NSPECIAL_RXN .GT. 0 ) THEN ! calculate special rate coefficients CALL SPECIAL_RATES( NUMCELLS, CNEW, BLKTEMP, BLKDENS, RK ) END IF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Increment call counter and initialize dcdt=gloss cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc NSUBFUN = NSUBFUN + 1 DO ISP = 1, ISCHAN DO NCELL = 1, NUMCELLS GLOSS( NCELL, ISP ) = EMBLK( NCELL, ISP ) ENDDO ENDDO cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c loop over reactions and calculate rate of reaction cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc DO 220 NRX = 1, NUSERAT( NCSP ) NRK = NKUSERAT( NRX, NCSP ) IF( NREACT( NRK ) .EQ. 1 ) THEN ISP1 = IRM2( 1, NRK, NCS ) DO NCELL = 1, NUMCELLS RXRAT( NCELL, NRK ) = RK( NCELL, NRK ) & * CNEW( NCELL, ISP1 ) ENDDO ELSEIF( NREACT( NRK ) .EQ. 2 ) THEN ISP1 = IRM2( 1, NRK, NCS ) ISP2 = IRM2( 2, NRK, NCS ) DO NCELL = 1, NUMCELLS RXRAT( NCELL, NRK ) = RK( NCELL, NRK ) & * CNEW( NCELL, ISP1 ) & * CNEW( NCELL, ISP2 ) ENDDO ELSEIF( NREACT( NRK ) .EQ. 3 ) THEN ISP1 = IRM2( 1, NRK, NCS ) ISP2 = IRM2( 2, NRK, NCS ) ISP3 = IRM2( 3, NRK, NCS ) DO NCELL = 1, NUMCELLS RXRAT( NCELL, NRK ) = RK( NCELL, NRK ) & * CNEW( NCELL, ISP1 ) & * CNEW( NCELL, ISP2 ) & * CNEW( NCELL, ISP3 ) ENDDO ELSEIF( NREACT( NRK ) .EQ. 0 ) THEN DO NCELL = 1, NUMCELLS RXRAT( NCELL, NRK ) = RK( NCELL, NRK ) ENDDO ENDIF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Subtract loss terms from gloss for this reaction cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc DO NR = 1, NREACT( NRK ) ISP1 = IRM2( NR, NRK, NCS ) DO NCELL = 1, NUMCELLS GLOSS( NCELL, ISP1 ) = GLOSS( NCELL, ISP1 ) & - RXRAT( NCELL, NRK ) ENDDO ENDDO cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Add production terms to gloss for this reaction cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc DO NP = 1, NPRDCT( NRK ) ISP1 = IRM2( NP + 3, NRK, NCS ) DO NCELL = 1, NUMCELLS GLOSS( NCELL, ISP1 ) = GLOSS( NCELL, ISP1 ) & + REAL( SC( NRK, NP ), 8 ) * RXRAT( NCELL, NRK ) ENDDO ENDDO 220 CONTINUE ! END LOOP OVER REACTIONS cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c If the species concentration is at or below the threshold and it c is being destroyed, zero the loss rate. cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc DO ISP = 1, ISCHAN DO NCELL = 1, NUMCELLS IF( CNEW( NCELL, ISP ) .LE. ZBOUND .AND. & GLOSS( NCELL, ISP ) .LT. 0.0D0 ) THEN GLOSS( NCELL, ISP ) = 0.0D0 ENDIF ENDDO ENDDO RETURN END ================================================ FILE: CCTM/src/grid/cartesian/GRID_CONF.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: MODULE GRID_CONF C Define the horizontal grid and vertical layer structure by inheriting C HGRD_DEFN and VGRD_DEFN. In addition, set up the computational blocking C parameters. C VGRD_DEFN replaces COORD.EXT and VGRD.EXT C Revision History: Jeff Young 31 Jen 05: created C....................................................................... USE HGRD_DEFN ! horizontal domain specifications USE VGRD_DEFN ! vertical layer specifications USE utilio_defn IMPLICIT NONE ! INTEGER, PARAMETER :: BLKSIZE = 500 INTEGER, PARAMETER :: BLKSIZE = 50 INTEGER, SAVE :: MXCELLS INTEGER, SAVE :: MXBLKS CONTAINS FUNCTION GRID_INIT ( NPROCS, MYID ) RESULT ( SUCCESS ) INTEGER :: NPROCS INTEGER :: MYID LOGICAL :: SUCCESS LOGICAL, SAVE :: FIRSTIME = .TRUE. CHARACTER( 96 ) :: MSG = ' ' C----------------------------------------------------------------------- C This function is expected to be called only once - at startup IF ( FIRSTIME ) THEN FIRSTIME = .FALSE. SUCCESS = .TRUE. #ifdef mpas MXCELLS = NCOLS * NROWS * NLAYS MXBLKS = 1 + ( MXCELLS - 1 ) / BLKSIZE #else C Set up horizontal domain and calculate processor-to-subdomain maps IF ( .NOT. HGRD_INIT ( NPROCS, MYID ) ) THEN MSG = '*** Failure defining horizontal domain' CALL M3WARN ( 'GRID_INIT', 0, 0, MSG ) SUCCESS = .FALSE. RETURN END IF C define vertical layer structure IF ( .NOT. VGRD_INIT() ) THEN MSG = '*** Failure defining vertical structure' CALL M3WARN ( 'GRID_INIT', 0, 0, MSG ) SUCCESS = .FALSE. RETURN END IF MXCELLS = NCOLS * NROWS * NLAYS MXBLKS = 1 + ( MXCELLS - 1 ) / BLKSIZE ELSE MSG = 'Domain configuration already defined' CALL M3WARN ( 'GRID_INIT', 0, 0, MSG ) SUCCESS = .FALSE.; RETURN #endif END IF ! FIRSTIME RETURN END FUNCTION GRID_INIT END MODULE GRID_CONF ================================================ FILE: CCTM/src/grid/cartesian/HGRD_DEFN.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: MODULE HGRD_DEFN C Define the horizontal domain, globally and for each processor, if parallel C Revision History: David Wong 18 Feb 01: created C Jeff Young 23 Feb 01: generalize C 31 Mar 01: add BLKPRM.EXT C 10 Nov 01: change to use GRIDDESC, env vars C J Gipson 01 Sep 04: change block size to 50 C J Young 07 Dec 04: remove layer dependency (for MXCELLS, C MXBLKS) to implement vertical layer C dyn alloc appropriately C J Young 22 Dec 05: move proc. anayl. stuff to PAGRD_DEFN C S. Roselle 29 Mar 11: Replaced I/O API include files C with UTILIO_DEFN C D. Wong 11 May 11: incorporated twoway model implementation C D. Wong Aug 15: Added a new logical variable, IO_PE_INCLUSIVE C to facilitate parallel I/O implementation C D. Wong 01 Feb 19: removed all MY_N clauses C....................................................................... USE RUNTIME_VARS IMPLICIT NONE C returned coordinate system (projection) CHARACTER( 16 ), SAVE :: COORD_SYS_NAME C map projection type (should be named PRTYP_GD!) INTEGER, SAVE :: GDTYP_GD = 2 ! LAMGRD3 C first map projection parameter (degrees) REAL( 8 ), SAVE :: P_ALP_GD = 30.0 C second map projection parameter (degrees) REAL( 8 ), SAVE :: P_BET_GD = 60.0 C third map projection parameter (degrees) REAL( 8 ), SAVE :: P_GAM_GD = -90.0 C longitude for coord-system center (degrees) REAL( 8 ), SAVE :: XCENT_GD = -90.0 C latitude for coord-system center (degrees) REAL( 8 ), SAVE :: YCENT_GD = 40.0 REAL( 8 ), SAVE :: XORIG_GD ! X-coordinate origin of computational grid REAL( 8 ), SAVE :: YORIG_GD ! Y-coordinate origin of computational grid REAL( 8 ), SAVE :: XCELL_GD ! X-coordinate cell width (M) REAL( 8 ), SAVE :: YCELL_GD ! Y-coordinate cell width (M) INTEGER, SAVE :: GL_NCOLS ! no. of columns in global grid INTEGER, SAVE :: GL_NROWS ! no. of rows in global grid INTEGER, SAVE :: GL_NBNDY ! no. of cells in one layer of global boundary INTEGER, SAVE :: NCOLS ! grid columns array dimension INTEGER, SAVE :: NROWS ! grid rows array dimension INTEGER, SAVE :: NBNDY ! no. of cells in one layer of local boundary ! INTEGER, PARAMETER :: NTHIK = 1 ! boundary thickness (cells) INTEGER, SAVE :: NTHIK ! boundary thickness (cells) INTEGER, SAVE :: MY_NCOLS_DOT ! local no. of dot file grid columns INTEGER, SAVE :: MY_NROWS_DOT ! local no. of dot file grid rows C column range for each processor INTEGER, ALLOCATABLE, SAVE :: COLSX_PE( :,: ) INTEGER, ALLOCATABLE, SAVE :: COLSD_PE( :,: ) ! dot file C row range for each processor INTEGER, ALLOCATABLE, SAVE :: ROWSX_PE( :,: ) INTEGER, ALLOCATABLE, SAVE :: ROWSD_PE( :,: ) ! dot file C maximum stencil displacement in the north, east, south, and west direction INTEGER, PARAMETER :: MNDIS = 2 INTEGER, PARAMETER :: MEDIS = 2 INTEGER, PARAMETER :: MSDIS = 2 INTEGER, PARAMETER :: MWDIS = 2 LOGICAL :: IO_PE_INCLUSIVE C BLKPRM ! INTEGER, PARAMETER :: BLKSIZE = 500 ! INTEGER, PARAMETER :: BLKSIZE = 50 ! INTEGER, SAVE :: MXCELLS ! INTEGER, SAVE :: MXBLKS C Integral average conc CONTAINS FUNCTION HGRD_INIT ( NPROCS, MYID ) RESULT ( SUCCESS ) USE UTILIO_DEFN ! INCLUDE SUBST_VGRD_ID ! vertical dimensioning parameters INTEGER, INTENT( IN ) :: NPROCS ! total worker processors INTEGER, INTENT( IN ) :: MYID LOGICAL :: SUCCESS LOGICAL, SAVE :: FIRSTIME = .TRUE. CHARACTER( 96 ) :: XMSG = ' ' C environment variable grid name to select from GRIDDESC INTEGER :: STATUS, ALST INTEGER, ALLOCATABLE :: NCOLS_PE( : ) ! Column range for each PE INTEGER, ALLOCATABLE :: NROWS_PE( : ) ! Row range for each PE INTEGER I C----------------------------------------------------------------------- C This function is expected to be called only once - at startup IF ( FIRSTIME ) THEN FIRSTIME = .FALSE. SUCCESS = .TRUE. MYPE = MYID #ifndef mpas C With GRID_NAME (only input) retrieve all horizontal grid parameters from C the grid description file pointed to by the GRIDDESC env var: WRITE( LOGDEV, * ) CALL LOG_HEADING( LOGDEV, "Retrieve Horizontal Grid" ) IF ( .NOT. DSCGRID ( GRID_NAME, & COORD_SYS_NAME, GDTYP_GD, & P_ALP_GD, P_BET_GD, P_GAM_GD, & XCENT_GD, YCENT_GD, & XORIG_GD, YORIG_GD, XCELL_GD, YCELL_GD, & GL_NCOLS, GL_NROWS, NTHIK ) ) THEN XMSG = 'Failure retrieving horizontal grid parameters' CALL M3WARN ( 'HGRD_INIT', 0, 0, XMSG ) SUCCESS = .FALSE.; RETURN END IF #endif IF ( GL_NROWS .LE. 1 .AND. GL_NCOLS .LE. 1 ) COLUMN_MODEL = .TRUE. C Check NPROCS against NPCOL*NPROW IF ( NPROCS .NE. NPCOL*NPROW ) THEN WRITE( LOGDEV,* ) ' --- Nprocs, NProw, NPcol ', & NPROCS, NPROW, NPCOL XMSG = 'NPROCS is not equal to NPCOL*NPROW' CALL M3WARN ( 'HGRD_INIT', 0, 0, XMSG ) SUCCESS = .FALSE.; RETURN END IF IF ( NPROCS .GT. GL_NCOLS*GL_NROWS ) THEN WRITE( LOGDEV,* ) ' --- Nprocs, TOTAL_NCOLS, TOTAL_NROWS ', & NPROCS, GL_NCOLS, GL_NROWS IF ( MYPE .EQ. 0 ) THEN WRITE( OUTDEV,'(A,4(1X,I4))') ' --- Nprocs, TOTAL_NCOLS, TOTAL_NROWS ', & NPROCS, GL_NCOLS, GL_NROWS END IF XMSG = 'NPROCS must be less than or equal to TOTAL_NCOLS*TOTAL_NROWS' IF ( MYPE .EQ. 0 ) THEN WRITE(OUTDEV,'(A)')TRIM( XMSG ) END IF CALL M3WARN ( 'HGRD_INIT', 0, 0, XMSG ) XMSG = 'Change NPROCS, NPCOL, NPROW in runscript to fit TOTAL_NCOLS and TOTAL_NROWS' IF ( MYPE .EQ. 0 ) THEN WRITE(OUTDEV,'(A,/)')TRIM( XMSG ) END IF WRITE(LOGDEV,'(A)')TRIM( XMSG ) SUCCESS = .FALSE.; RETURN END IF ALLOCATE ( COLSX_PE( 2,NPROCS ), & ROWSX_PE( 2,NPROCS ), STAT = ALST ) IF ( ALST .NE. 0 ) THEN XMSG = '*** COLSX_PE or ROWSX_PE Memory allocation failed' CALL M3WARN ( 'HGRD_INIT', 0, 0, XMSG ) SUCCESS = .FALSE.; RETURN END IF ALLOCATE ( COLSD_PE( 2,NPROCS ), & ROWSD_PE( 2,NPROCS ), STAT = ALST ) IF ( ALST .NE. 0 ) THEN XMSG = '*** COLSD_PE or ROWSD_PE Memory allocation failed' CALL M3WARN ( 'HGRD_INIT', 0, 0, XMSG ) SUCCESS = .FALSE.; RETURN END IF ALLOCATE ( NCOLS_PE( NPROCS ), & NROWS_PE( NPROCS ), STAT = ALST ) IF ( ALST .NE. 0 ) THEN XMSG = '*** NCOLS_PE or NROWS_PE Memory allocation failed' CALL M3WARN ( 'HGRD_INIT', 0, 0, XMSG ) SUCCESS = .FALSE.; RETURN END IF C Construct the processor-to-subdomain map for main domain CALL SUBHDOMAIN( NPROCS, NPCOL, NPROW, GL_NCOLS, GL_NROWS, & NCOLS_PE, NROWS_PE, COLSX_PE, ROWSX_PE ) C Get corresponding dot file map DO I = 1, NPROCS COLSD_PE( 1,I ) = COLSX_PE( 1,I ) COLSD_PE( 2,I ) = COLSX_PE( 2,I ) ROWSD_PE( 1,I ) = ROWSX_PE( 1,I ) ROWSD_PE( 2,I ) = ROWSX_PE( 2,I ) END DO DO I = NPCOL, NPROCS, NPCOL COLSD_PE( 2,I ) = COLSD_PE( 2,I ) + 1 END DO DO I = NPROCS, NPROCS - NPCOL + 1, -1 ROWSD_PE( 2,I ) = ROWSD_PE( 2,I ) + 1 END DO NCOLS = NCOLS_PE( MYPE+1 ) NROWS = NROWS_PE( MYPE+1 ) NBNDY = 2*NTHIK * ( NCOLS + NROWS + 2*NTHIK ) GL_NBNDY = 2*NTHIK * ( GL_NCOLS + GL_NROWS + 2*NTHIK ) MY_NCOLS_DOT = COLSD_PE( 2,MYPE+1 ) - COLSD_PE( 1,MYPE+1 ) + 1 MY_NROWS_DOT = ROWSD_PE( 2,MYPE+1 ) - ROWSD_PE( 1,MYPE+1 ) + 1 ! MXCELLS = NCOLS * NROWS * NLAYS ! MXBLKS = 1 + ( MXCELLS - 1 ) / BLKSIZE DEALLOCATE ( NCOLS_PE ) DEALLOCATE ( NROWS_PE ) ELSE XMSG = 'Horizontal domain decomposition already defined' CALL M3WARN ( 'HGRD_INIT', 0, 0, XMSG ) SUCCESS = .FALSE.; RETURN END IF ! FIRSTIME RETURN END FUNCTION HGRD_INIT END MODULE HGRD_DEFN ================================================ FILE: CCTM/src/grid/cartesian/PAGRD_DEFN.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: MODULE PAGRD_DEFN C process analysis variables that are dependent on NCOLS, NROWS C Preconditions: HGRD_INIT() called from PAR_INIT, which is called from DRIVER C Revision History: C J.Young 17 Aug 01: create C D.Wong, J.Young Oct 01: set dimensions for DELC and CSAV correctly for C subdomain; IRROUT must have full domain because of SE_DATA_COPY in pa_output C J.Young 31 Jan 05: dyn alloc - establish both horizontal & vertical domain C specifications in one module C J.Young 22 Dec 05: move proc. analy. stuff from HGRD_DEFN to here. create C arrays COLSZ_PE and ROWSZ_PE for proc analy, which are equivalent to C COLSX_PE and ROWSX_PE C J.Young 8 Jul 10: minor mods C S. Roselle 29 Mar 11: Replaced I/O API include files with UTILIO_DEFN C J.Young 14 Sep 11: allow default subdomain values C J.Young 28 Jun 16: use PA_DEFN module intead of include files C J.Young 16 Sep 16: update for inline procan C C. Nolte, S. Roselle Sep 18: replace M3UTILIO with UTILIO_DEFN C D.Dwong 01 Feb 19: removed all MY_N clauses C....................................................................... USE RUNTIME_VARS IMPLICIT NONE C Total number of columns, rows and layers for PA output INTEGER, SAVE :: PACOLS, PAROWS, PALEVS C Starting and ending column of local PA grid in this processor INTEGER, SAVE :: MY_BEGCOL, MY_ENDCOL C Starting and ending row of local PA grid in this processor INTEGER, SAVE :: MY_BEGROW, MY_ENDROW C Starting and ending layer of local PA grid in this processor INTEGER, SAVE :: MY_BEGLEV, MY_ENDLEV C Starting and ending column of local IRR grid in this processor INTEGER, SAVE :: MY_IRR_BEGCOL, MY_IRR_ENDCOL C Starting and ending row of local IRR grid in this processor INTEGER, SAVE :: MY_IRR_BEGROW, MY_IRR_ENDROW C Starting and ending layer of local IRR grid in this processor INTEGER, SAVE :: MY_IRR_BEGLEV, MY_IRR_ENDLEV C Number of columns and rows of local PA/IRR grid in this processor INTEGER, SAVE :: MY_PACOLS, MY_PAROWS C column and row range for each processor INTEGER, ALLOCATABLE, SAVE :: COLSZ_PE( :,: ), ROWSZ_PE( :,: ) C Conc difference for a science process REAL, ALLOCATABLE, SAVE :: DELC( :,:,:,: ) C Array for outputting IRR results REAL, ALLOCATABLE, SAVE :: IRROUT( :,:,:,: ) C Buffer for writing IRR results REAL, ALLOCATABLE, SAVE :: DBUFF( :,:,: ) CONTAINS FUNCTION PAGRD_INIT ( RANK ) RESULT ( SUCCESS ) USE GRID_CONF ! horizontal & vertical domain specifications USE UTILIO_DEFN #ifndef mpas #ifdef parallel USE SE_MODULES ! stenex (using SE_UTIL_MODULE) #else USE NOOP_MODULES ! stenex (using NOOP_UTIL_MODULE) #endif #endif USE PA_DEFN ! Process Anaylsis control and data variables INTEGER, INTENT( IN ) :: RANK LOGICAL SUCCESS INTEGER IRCOLS INTEGER IRROWS INTEGER IRLEVS INTEGER, ALLOCATABLE :: NCOLS_PE( : ) ! Column range for each PE INTEGER, ALLOCATABLE :: NROWS_PE( : ) ! Row range for each PE LOGICAL, SAVE :: FIRSTIME = .TRUE. INTEGER ALST INTEGER X1F0 ! dimension homotopy for parallel or serial CHARACTER( 16 ) :: PNAME = 'PAGRD_INIT' CHARACTER( 96 ) :: XMSG = ' ' C----------------------------------------------------------------------- C This function is expected to be called only once - at startup IF ( FIRSTIME ) THEN FIRSTIME = .FALSE. SUCCESS = .TRUE. IF ( LIPR .OR. LIRR ) THEN C Retrieve the process analysis subdomain dimensions: IF ( PA_ENDCOL .EQ. 0 ) PA_ENDCOL = GL_NCOLS IF ( PA_ENDROW .EQ. 0 ) PA_ENDROW = GL_NROWS IF ( PA_ENDLEV .EQ. 0 ) PA_ENDLEV = NLAYS IF ( PA_BEGCOL .LT. 1 .OR. PA_ENDCOL .GT. GL_NCOLS .OR. & PA_BEGROW .LT. 1 .OR. PA_ENDROW .GT. GL_NROWS .OR. & PA_BEGLEV .LT. 1 .OR. PA_ENDLEV .GT. NLAYS ) THEN XMSG = 'Process Analysis domain inconsistent with CTM domain' CALL M3WARN ( PNAME, 0, 0, XMSG ) SUCCESS = .FALSE.; RETURN END IF #ifndef mpas C Determine IPR subgrid mapping with data redistribution CALL SUBST_SUBGRID_INDEX & ( PA_BEGCOL, PA_ENDCOL, PA_BEGROW, PA_ENDROW, & PA_BEGLEV, PA_ENDLEV, & MY_BEGCOL, MY_ENDCOL, MY_BEGROW, MY_ENDROW, & MY_BEGLEV, MY_ENDLEV, MY_PACOLS, MY_PAROWS ) PACOLS = PA_ENDCOL - PA_BEGCOL + 1 PAROWS = PA_ENDROW - PA_BEGROW + 1 PALEVS = PA_ENDLEV - PA_BEGLEV + 1 #endif ALLOCATE ( NCOLS_PE( NPROCS ), & NROWS_PE( NPROCS ), STAT = ALST ) IF ( ALST .NE. 0 ) THEN XMSG = '*** PA_NCOLS_PE or PA_NROWS_PE Memory allocation failed' CALL M3WARN ( PNAME, 0, 0, XMSG ) SUCCESS = .FALSE.; RETURN END IF ALLOCATE ( COLSZ_PE( 2,NPROCS ), & ROWSZ_PE( 2,NPROCS ), STAT = ALST ) IF ( ALST .NE. 0 ) THEN XMSG = '*** COLSX_PE or ROWSX_PE Memory allocation failed' CALL M3WARN ( PNAME, 0, 0, XMSG ) SUCCESS = .FALSE.; RETURN END IF C Construct the processor-to-subdomain map for IPR domain CALL SUBHDOMAIN( NPROCS, NPCOL, NPROW, PACOLS, PAROWS, & NCOLS_PE, NROWS_PE, COLSZ_PE, ROWSZ_PE ) MY_PACOLS = NCOLS_PE( RANK+1 ) MY_PAROWS = NROWS_PE( RANK+1 ) IF ( LIPR ) THEN ALLOCATE ( DELC( MY_PACOLS,MY_PAROWS,PALEVS,NIPRVAR ), & STAT = ALST ) IF ( ALST .NE. 0 ) THEN XMSG = '*** DELC Memory allocation failed' CALL M3WARN ( PNAME, 0, 0, XMSG ) SUCCESS = .FALSE.; RETURN END IF END IF IF ( LIRR ) THEN C Determine IRR subgrid mapping without data redistribution #ifndef mpas CALL SUBST_SUBGRID_INDEX & ( PA_BEGCOL, PA_ENDCOL, PA_BEGROW, PA_ENDROW, & PA_BEGLEV, PA_ENDLEV, & MY_IRR_BEGCOL, MY_IRR_ENDCOL, MY_IRR_BEGROW, & MY_IRR_ENDROW, MY_IRR_BEGLEV, MY_IRR_ENDLEV, 'N' ) #endif X1F0 = ( NCOLS / GL_NCOLS ) * ( NROWS / GL_NROWS ) IRCOLS = X1F0 * PACOLS + ( 1 - X1F0 ) * NCOLS IRROWS = X1F0 * PAROWS + ( 1 - X1F0 ) * NROWS IRLEVS = PALEVS ALLOCATE ( IRROUT( IRCOLS,IRROWS,IRLEVS,NIRRVAR ), & STAT = ALST ) IF ( ALST .NE. 0 ) THEN XMSG = '*** IRROUT Memory allocation failed' CALL M3WARN ( PNAME, 0, 0, XMSG ) SUCCESS = .FALSE.; RETURN END IF ALLOCATE ( DBUFF( MY_PACOLS,MY_PAROWS,PALEVS ), STAT = ALST ) IF ( ALST .NE. 0 ) THEN XMSG = 'ERROR allocating DBUFF' CALL M3WARN ( PNAME, 0, 0, XMSG ) SUCCESS = .FALSE.; RETURN ENDIF END IF ELSE PA_BEGCOL = 1 PA_ENDCOL = 1 PA_BEGROW = 1 PA_ENDROW = 1 PA_BEGLEV = 1 PA_ENDLEV = 1 XMSG = 'No Process Analysis for this run' CALL M3WARN ( PNAME, 0, 0, XMSG ) SUCCESS = .TRUE.; RETURN END IF ELSE ! called more than once XMSG = 'Horizontal domain dependent variables already allocated' CALL M3WARN ( PNAME, 0, 0, XMSG ) SUCCESS = .FALSE.; RETURN END IF ! FIRSTIME RETURN END FUNCTION PAGRD_INIT END MODULE PAGRD_DEFN ================================================ FILE: CCTM/src/grid/cartesian/PCGRID_DEFN.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: MODULE PCGRID_DEFN C----------------------------------------------------------------------- C Function: C Create CGRID target, PCGRID. CGRID becomes a pointer to enable a one- C cell ghost region around CGRID for PinG C Preconditions: C Horizontal domain extents must be set (subroutine PAR_INIT -> HGRD_DEFN) C Number of species in the species groups must be available (include files C in CGRID_SPCS) C This module is referenced in driver and sciproc. driver must call HGRD_INIT, C CGRID_MAP, and PAR_INIT prior to calling PCGRID_INIT (below). C Subroutines and functions called: C Revision history: C Apr 00 - Al, David, Jeff - initial implementation C Dec 00 - Jeff - add CGRID_MAP "method" C Jan 01 - Jeff - remove CGRID_MAP "method" - now in module CGRID_SPCS C Nov 01 - Jeff - correct pointer reference for ping C Dec 04 - Jeff - dyn alloc - USE VGRD_DEFN C Jan 05 - Jeff - dyn alloc - establish both horizontal & vertical C domain specifications in one module C 21 Jun 10 J.Young: convert for Namelist redesign C 29 Mar 11 S.Roselle: Replaced I/O API include files with UTILIO_DEFN C----------------------------------------------------------------------- USE GRID_CONF ! horizontal & vertical domain specifications USE CGRID_SPCS, ONLY: NSPCSD ! CGRID mechanism species IMPLICIT NONE REAL, ALLOCATABLE, SAVE, TARGET :: PCGRID( :,:,:,: ) CONTAINS FUNCTION PCGRID_INIT () RESULT ( SUCCESS ) USE UTILIO_DEFN ! INCLUDE SUBST_VGRD_ID ! vertical dimensioning parameters LOGICAL :: SUCCESS INTEGER :: ALLOCSTAT LOGICAL, SAVE :: FIRSTIME = .TRUE. CHARACTER( 120 ) :: XMSG = ' ' C PCGRID extents INTEGER :: LCOL INTEGER :: HCOL INTEGER :: LROW INTEGER :: HROW SUCCESS = .TRUE. IF ( FIRSTIME ) THEN FIRSTIME = .FALSE. #ifdef parallel LCOL = 1 - NTHIK HCOL = NCOLS + NTHIK LROW = 1 - NTHIK HROW = NROWS + NTHIK #else LCOL = 1 HCOL = NCOLS LROW = 1 HROW = NROWS #endif ALLOCATE ( PCGRID( LCOL:HCOL,LROW:HROW,NLAYS,NSPCSD ), & STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating PCGRID' CALL M3WARN ( 'PCGRID_INIT', 0, 0, XMSG ) SUCCESS = .FALSE.; RETURN END IF PCGRID = 0.0 ! PCGRID = -999.999 ELSE XMSG = 'PCGRID already ALLOCATED' CALL M3WARN ( 'PCGRID_INIT', 0, 0, XMSG ) SUCCESS = .FALSE.; RETURN END IF RETURN END FUNCTION PCGRID_INIT END MODULE PCGRID_DEFN ================================================ FILE: CCTM/src/grid/cartesian/VGRD_DEFN.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: MODULE VGRD_DEFN C Define the vertical layer structure (replaces COORD.EXT and VGRD.EXT) C Revision History: Jeff Young: 6 Dec 04: created C 26 Jul 06: comments in line with PARMS3.EXT C S. Roselle 29 Mar 11: Replaced I/O API include files C with UTILIO_DEFN C D. Wong 11 May 11: incorporated twoway model implementation C....................................................................... USE RUNTIME_VARS IMPLICIT NONE INTEGER, SAVE :: NLAYS = 0 REAL, ALLOCATABLE, SAVE :: VGLVS_GD( : ) ! vert layer surface values REAL, ALLOCATABLE, SAVE :: X3FACE_GD( : ) ! mono. incr. vert coord values ! = 1 - VGLVS_GD CHARACTER( 16 ), SAVE :: GDNAME_GD C The definitions and declarations in this F90 Module follow those C given in the I/O-API include file FDESC3C.EXT and replace similar C definitions. This F90 Module is compatible with FDESC3C.EXT. C VGTYP_GD: C The vertical grid type: C 1: VGSGPH3 : hydrostatic sigma-P C 2: VGSGPN3 : non-h sigma-P C 3: VGSIGZ3 : sigma-Z C 4: VGPRES3 : pressure (mb) C 5: VGZVAL3 : Z (m) (above sea lvl) C 6: VGHVAL3 : H (m) (above ground) C 7: VGWRFEM : WRF mass-core sigma C 8: VGWRFNM : WRF NMM C 9: IMISS3 for vertical coordinates not stored in VGLVSD C (e.g., temporally or spatially changing vertical coordinates) INTEGER, SAVE :: VGTYP_GD C VGTPUN_GD: C The units of the vertical coordinate top. CHARACTER( 16 ), SAVE :: VGTPUN_GD C VGTOP_GD: C The value for the model top used in the definition of the sigma coordinate C systems in the VGTPUN_GD units. REAL, SAVE :: VGTOP_GD C For sigma-P, the relationship between pressure levels P and sigma-P is C given by: C sigma-P = ( P - VGTOP_GD ) / (P_srf - VGTOP_GD ), C where P_srf is the surface pressure. C VGLVUN_GD: C The units of the vertical coordinate surface values, CHARACTER( 16 ) :: VGLVUN_GD C----------------------------------------------------------------------- CONTAINS FUNCTION VGRD_INIT ( ) RESULT ( SUCCESS ) USE UTILIO_DEFN IMPLICIT NONE LOGICAL :: SUCCESS LOGICAL, SAVE :: FIRSTIME = .TRUE. CHARACTER( 96 ) :: XMSG = ' ' ! CHARACTER( 16 ) :: LAYER_FILE = 'LAYER_FILE' CHARACTER( 16 ) :: LAYER_FILE = 'MET_CRO_3D' INTEGER L, ALLOCSTAT C This function is expected to be called only once - at startup IF ( FIRSTIME ) THEN FIRSTIME = .FALSE. SUCCESS = .TRUE. #ifndef mpas C get vert layer definition from LAYER_FILE WRITE( LOGDEV, * ) CALL LOG_HEADING( LOGDEV, "Retrieve Vertical Grid" ) IF ( .NOT. OPEN3( LAYER_FILE, FSREAD3, 'VGRD_INIT' ) ) THEN XMSG = 'Could not open '// LAYER_FILE CALL M3WARN ( 'VGRD_INIT', 0, 0, XMSG ) SUCCESS = .FALSE.; RETURN END IF IF ( .NOT. DESC3( LAYER_FILE ) ) THEN XMSG = 'Could not get ' // LAYER_FILE // ' file description' CALL M3WARN ( 'VGRD_INIT', 0, 0, XMSG ) SUCCESS = .FALSE.; RETURN END IF GDNAME_GD = GDNAM3D NLAYS = NLAYS3D VGTYP_GD = VGTYP3D VGTOP_GD = VGTOP3D VGTPUN_GD = 'Pa' VGLVUN_GD = 'none' ALLOCATE ( VGLVS_GD( NLAYS + 1 ), STAT = ALLOCSTAT ) ALLOCATE ( X3FACE_GD( 0:NLAYS ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating VGLVS_GD, X3FACE_GD' CALL M3WARN ( 'VGRD_INIT', 0, 0, XMSG ) SUCCESS = .FALSE.; RETURN END IF DO L = 1, NLAYS + 1 VGLVS_GD( L ) = VGLVS3D( L ) END DO C set layer layer thickenesses DO L = 0, NLAYS X3FACE_GD( L ) = 1.0 - VGLVS_GD( L + 1 ) END DO ELSE XMSG = 'Vertical layer structure already defined' CALL M3WARN ( 'VGRD_INIT', 0, 0, XMSG ) SUCCESS = .FALSE.; RETURN #endif END IF ! FIRSTIME RETURN END FUNCTION VGRD_INIT END MODULE VGRD_DEFN C 21 VGLVS_GD X3FACE_GD C C 1 1.0 0.0 C 2 0.995 0.005 C 3 0.99 0.01 C 4 0.985 0.015 C 5 0.98 0.02 C 6 0.97 0.03 C 7 0.96 0.04 C 8 0.945 0.055 C 9 0.93 0.07 C 10 0.91 0.09 C 11 0.89 0.11 C 12 0.865 0.135 C 13 0.84 0.16 C 14 0.78 0.22 C 15 0.7 0.3 C 16 0.6 0.4 C 17 0.5 0.5 C 18 0.4 0.6 C 19 0.3 0.7 C 20 0.2 0.8 C 21 0.1 0.9 C 22 0.0 1.0 ================================================ FILE: CCTM/src/hadv/ppm/advbc_map.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE ADVBC_MAP ( CONCMIN, BCNAME, BCFAC, ONFILE ) C----------------------------------------------------------------------- C Function: C Set up advected species mapping to BCON data - read variable BCNAME C from file - if BCNAME is blank, skip read and zero out the BCON array C for the variable corresponding to the blank BCNAME C BCNAME returned is either the file variable name, the file name C corresponding to the ICBC surrogate nate, or blank C Preconditions: C Subroutines and functions called: C OPEN3, DESC3, INDEX1, TRIMLEN, FINDEX, M3MESG, M3EXIT C Revision history: C Jeff - Aug 1997 Based on beta version C 21 Jun 10 J.Young: convert for Namelist redesign C 16 Feb 11 S.Roselle: replaced I/O API include files with UTILIO_DEFN; C removed deprecated TRIMLEN C 10 Sep 11 J.Young: changed Namelist surrogate policy to enable use of C icbc factors C 21 Oct 16 D.Wong: If both surrogate and species are on the BC file, write to C the log that the surrogate is used. C 01 Feb 19 D.Wong: Implemented centralized I/O approach C----------------------------------------------------------------------- USE CGRID_SPCS ! CGRID mechanism species USE UTILIO_DEFN USE CENTRALIZED_IO_MODULE, only : n_cio_bc_file_vars, cio_bc_file_var_name IMPLICIT NONE C Includes: INCLUDE SUBST_FILES_ID ! file name parameters C Arguments: CHARACTER( 16 ), INTENT( IN ) :: CONCMIN ! min value allowed for BCs CHARACTER( 16 ), INTENT( OUT ) :: BCNAME( : ) ! BC name for adv species REAL, INTENT( OUT ) :: BCFAC ( : ) ! Scale factor for BCs LOGICAL, INTENT( OUT ) :: ONFILE( : ) ! BCs exist on file for this name C External Functions: INTEGER, EXTERNAL :: FINDEX C Local variables: CHARACTER( 16 ) :: PNAME = 'ADVBC_MAP' ! CHARACTER( 16 ) :: BLNK = ' ' ! CHARACTER( 16 ) :: BLNK = ' ' CHARACTER( 96 ) :: XMSG = ' ' CHARACTER( 16 ), ALLOCATABLE, SAVE :: WRVAR( : ) INTEGER WRCNT ! no. of species not on file INTEGER :: XDATE = 999999 ! dummy date INTEGER :: XTIME = 999999 ! dummy time INTEGER INDX ! Species index INTEGER ISUR ! Surrogate index INTEGER ITRNS ! Transport species index INTEGER SPC, VAR ! loop copunters INTEGER IERR LOGICAL, SAVE :: FIRSTIME = .TRUE. C Map advected species to bc`s IF ( FIRSTIME ) THEN FIRSTIME = .FALSE. ALLOCATE ( WRVAR( N_GC_TRNS + N_AE_TRNS + N_NR_TRNS + N_TR_ADV ), STAT = IERR ) IF ( IERR .NE. 0 ) THEN XMSG = 'Error allocating WRVAR' CALL M3EXIT( PNAME, XDATE, XTIME, XMSG, XSTAT1 ) END IF END IF SPC = 0 ! Map advected reactive gas species to bc`s IF ( N_GC_TRNS .GT. 0 ) THEN WRCNT = 0 DO VAR = 1, N_GC_TRNS SPC = SPC + 1 ONFILE( SPC ) = .TRUE. BCFAC( SPC ) = 1.0 INDX = 0 ISUR = FINDEX( GC_TRNS_MAP( VAR ), N_GC_BC, GC_BC_MAP ) IF ( ISUR .NE. 0 ) THEN ! variable has a surrogate name INDX = INDEX1( GC_BC( ISUR ), n_cio_bc_file_vars, cio_bc_file_var_name ) IF ( INDX .NE. 0 ) THEN ! BC file surrogate is used BCNAME( SPC ) = cio_bc_file_var_name( INDX ) BCFAC( SPC ) = GC_BC_FAC( ISUR ) END IF END IF ! If there is no surrogate or it can`t be found, look ! for the adv species on the BC file IF ( ISUR .EQ. 0 .OR. INDX .EQ. 0 ) THEN ITRNS = INDEX1( GC_TRNS( VAR ), n_cio_bc_file_vars, cio_bc_file_var_name ) IF ( ITRNS .NE. 0 ) THEN BCNAME( SPC ) = cio_bc_file_var_name( ITRNS ) ELSE ONFILE( SPC ) = .FALSE. WRCNT = WRCNT + 1 WRVAR( WRCNT ) = GC_TRNS( VAR ) END IF END IF #ifdef verbose_rdbcon write( logdev,* ) '=b=spc,name: ', spc, bcname( spc ), & ' bcfac:', bcfac( spc ) write( logdev,* ) ' ' #endif END DO IF ( WRCNT .GT. 0 ) THEN WRITE( LOGDEV,1019 ) TRIM( BNDY_CONC_1 ), TRIM( CONCMIN ) DO VAR = 1, WRCNT WRITE( LOGDEV,1025 ) TRIM( WRVAR( VAR ) ) END DO END IF END IF ! Map advected aerosol species to bc`s IF ( N_AE_TRNS .GT. 0 ) THEN WRCNT = 0 DO VAR = 1, N_AE_TRNS SPC = SPC + 1 ONFILE( SPC ) = .TRUE. BCFAC( SPC ) = 1.0 INDX = 0 ISUR = FINDEX( AE_TRNS_MAP( VAR ), N_AE_BC, AE_BC_MAP ) IF ( ISUR .NE. 0 ) THEN ! variable has a surrogate name INDX = INDEX1( AE_BC( ISUR ), n_cio_bc_file_vars, cio_bc_file_var_name ) IF ( INDX .NE. 0 ) THEN ! BC file surrogate is used BCNAME( SPC ) = cio_bc_file_var_name( INDX ) BCFAC( SPC ) = AE_BC_FAC( ISUR ) END IF END IF ! If there is no surrogate or it can`t be found, look ! for the adv species on the BC file IF ( ISUR .EQ. 0 .OR. INDX .EQ. 0 ) THEN ITRNS = INDEX1( AE_TRNS( VAR ), n_cio_bc_file_vars, cio_bc_file_var_name ) IF ( ITRNS .NE. 0 ) THEN BCNAME( SPC ) = cio_bc_file_var_name( ITRNS ) ELSE ONFILE( SPC ) = .FALSE. WRCNT = WRCNT + 1 WRVAR( WRCNT ) = AE_TRNS( VAR ) END IF END IF #ifdef verbose_rdbcon write( logdev,* ) '=b=spc,name: ', spc, bcname( spc ), & ' bcfac:', bcfac( spc ) write( logdev,* ) ' ' #endif END DO IF ( WRCNT .GT. 0 ) THEN WRITE( LOGDEV,1019 ) TRIM( BNDY_CONC_1 ), TRIM( CONCMIN ) DO VAR = 1, WRCNT WRITE( LOGDEV,1025 ) TRIM( WRVAR( VAR ) ) END DO END IF END IF ! Map advected non-reactive species to bc`s IF ( N_NR_TRNS .GT. 0 ) THEN WRCNT = 0 DO VAR = 1, N_NR_TRNS SPC = SPC + 1 ONFILE( SPC ) = .TRUE. BCFAC( SPC ) = 1.0 INDX = 0 ISUR = FINDEX( NR_TRNS_MAP( VAR ), N_NR_BC, NR_BC_MAP ) IF ( ISUR .NE. 0 ) THEN ! variable has a surrogate name INDX = INDEX1( NR_BC( ISUR ), n_cio_bc_file_vars, cio_bc_file_var_name ) IF ( INDX .NE. 0 ) THEN ! BC file surrogate is used BCNAME( SPC ) = cio_bc_file_var_name( INDX ) BCFAC( SPC ) = NR_BC_FAC( ISUR ) END IF END IF ! If there is no surrogate or it can`t be found, look ! for the adv species on the BC file IF ( ISUR .EQ. 0 .OR. INDX .EQ. 0 ) THEN ITRNS = INDEX1( NR_TRNS( VAR ), n_cio_bc_file_vars, cio_bc_file_var_name ) IF ( ITRNS .NE. 0 ) THEN BCNAME( SPC ) = cio_bc_file_var_name( ITRNS ) ELSE ONFILE( SPC ) = .FALSE. WRCNT = WRCNT + 1 WRVAR( WRCNT ) = NR_TRNS( VAR ) END IF END IF #ifdef verbose_rdbcon write( logdev,* ) '=b=spc,name: ', spc, bcname( spc ), & ' bcfac:', bcfac( spc ) write( logdev,* ) ' ' #endif END DO IF ( WRCNT .GT. 0 ) THEN WRITE( LOGDEV,1019 ) TRIM( BNDY_CONC_1 ), TRIM( CONCMIN ) DO VAR = 1, WRCNT WRITE( LOGDEV,1025 ) TRIM( WRVAR( VAR ) ) END DO END IF END IF ! Map advected tracer species to bc`s IF ( N_TR_ADV .GT. 0 ) THEN WRCNT = 0 DO VAR = 1, N_TR_ADV SPC = SPC + 1 ONFILE( SPC ) = .TRUE. BCFAC( SPC ) = 1.0 INDX = 0 ISUR = FINDEX( TR_ADV_MAP( VAR ), N_TR_BC, TR_BC_MAP ) IF ( ISUR .NE. 0 ) THEN ! variable has a surrogate name INDX = INDEX1( TR_BC( ISUR ), n_cio_bc_file_vars, cio_bc_file_var_name ) IF ( INDX .NE. 0 ) THEN ! BC file surrogate is used BCNAME( SPC ) = cio_bc_file_var_name( INDX ) BCFAC( SPC ) = TR_BC_FAC( ISUR ) END IF END IF ! If there is no surrogate or it can`t be found, look ! for the adv species on the BC file IF ( ISUR .EQ. 0 .OR. INDX .EQ. 0 ) THEN ITRNS = INDEX1( TR_ADV( VAR ), n_cio_bc_file_vars, cio_bc_file_var_name ) IF ( ITRNS .NE. 0 ) THEN BCNAME( SPC ) = cio_bc_file_var_name( ITRNS ) ELSE ONFILE( SPC ) = .FALSE. WRCNT = WRCNT + 1 WRVAR( WRCNT ) = TR_ADV( VAR ) END IF END IF #ifdef verbose_rdbcon write( logdev,* ) '=b=spc,name: ', spc, bcname( spc ), & ' bcfac:', bcfac( spc ) write( logdev,* ) ' ' #endif END DO IF ( WRCNT .GT. 0 ) THEN WRITE( LOGDEV,1019 ) TRIM( BNDY_CONC_1 ), TRIM( CONCMIN ) DO VAR = 1, WRCNT WRITE( LOGDEV,1025 ) TRIM( WRVAR( VAR ) ) END DO END IF END IF RETURN 1015 FORMAT( / 5X, "BC file surrogate ", A, " used instead of adv species, ", A ) 1019 FORMAT( / 5X, "No BC's in file " A, " for the following adv species:" & 1X, "Set to " A ) 1025 FORMAT( 10X, A ) END ================================================ FILE: CCTM/src/hadv/ppm/hadvppm.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE HADV ( CGRID, JDATE, JTIME, TSTEP, ASTEP ) C----------------------------------------------------------------------- C Function: C Advection in the horizontal plane C The process time step is set equal to TSTEP(2). Boundary concentrations C are coupled in RDBCON with SqRDMT = Sq. Root [det ( metric tensor )] C = Jacobian / (map scale factor)**2 C where Air Density X SqRDMT is loaded into last BCON slot for advection. C Preconditions: C Dates and times represented YYYYDDD:HHMMSS. C No "skipped" dates and times. All boundary input variables have the C same boundary perimeter structure with a thickness of 1 C CGRID in transport units: SQRT{DET[metric tensor]}*concentration (Mass/Vol) C Subroutines and functions called: C Revision history: C 19 Jan 2004: Jeff Young C 7 Jul 2007: Jeff Young - declare MTRHOJ dimensions properly in order to retain C them as declared in X_YAMO and Y_YAMO C 21 Jun 10 J.Young: convert for Namelist redesign C 16 Feb 11 S.Roselle: replaced I/O API include files with UTILIO_DEFN C 11 May 11 D.Wong: incorporated twoway model implementation C May 2019 j. pleim: removed yamo hadvect subroutines C 11 Dec 19 S.L.Napelenok: ddm-3d implementation for version 5.3.1 C----------------------------------------------------------------------- USE GRID_CONF ! horizontal & vertical domain specifications USE CGRID_SPCS ! CGRID mechanism species USE XY_BUDGET USE PA_DEFN, ONLY: LIPR USE UTILIO_DEFN #ifdef parallel USE SE_MODULES ! stenex (using SE_COMM_MODULE, SE_UTIL_MODULE) #else USE NOOP_MODULES ! stenex (using NOOP_COMM_MODULE, NOOP_UTIL_MODULE) #endif #ifdef sens USE DDM3D_DEFN, ONLY:SENGRID, NPMAX, NP, BSEN #endif IMPLICIT NONE C Includes: INCLUDE SUBST_FILES_ID ! file name parameters INCLUDE SUBST_PE_COMM ! PE communication displacement and direction C Arguments: REAL, POINTER :: CGRID( :,:,:,: ) INTEGER JDATE ! current model date, coded YYYYDDD INTEGER JTIME ! current model time, coded HHMMSS INTEGER TSTEP( 3 ) ! time step vector (HHMMSS) ! TSTEP(1) = local output step ! TSTEP(2) = sciproc sync. step (chem) ! TSTEP(3) = twoway model time step w.r.t. wrf time ! step and wrf/cmaq call frequency INTEGER ASTEP( : ) ! layer advection time step C External Functions: None C Parameters: C Advected species dimension INTEGER, SAVE :: N_SPC_ADV C File Variables: REAL, ALLOCATABLE, SAVE :: BCON( :,: ) ! boundary concentrations C Local Variables: INTEGER ALLOCSTAT CHARACTER( 16 ) :: PNAME = 'HADVPPM' LOGICAL, SAVE :: FIRSTIME = .TRUE. LOGICAL, ALLOCATABLE, SAVE :: XYFIRST( : ) REAL, ALLOCATABLE, SAVE :: CGRID0( :,:,: ), XADV(:,:,:), YADV(:,:,:) CHARACTER( 96 ) :: XMSG = ' ' CHARACTER( 199 ) :: XMSG2 = ' ' INTEGER STEP ! ASTEP( L ), (dt) in sec INTEGER DSTEP ! dt accumulator INTEGER FDATE ! interpolation date INTEGER FTIME ! interpolation time INTEGER SYNCSTEP INTEGER LVL ! loop counters LOGICAL L_WRITE_WARNING C Required interface for allocatable array dummy arguments INTERFACE SUBROUTINE RDBCON ( FDATE, FTIME, TSTEP, LVL, BCON, & L_WRITE_WARNING ) INTEGER, INTENT( IN ) :: FDATE, FTIME, TSTEP, LVL REAL, INTENT( OUT ) :: BCON( :,: ) LOGICAL, INTENT( INOUT ) :: L_WRITE_WARNING END SUBROUTINE RDBCON SUBROUTINE X_PPM ( CGRID, FDATE, FTIME, TSTEP, LVL, BCON ) REAL, POINTER :: CGRID( :,:,:,: ) INTEGER, INTENT( IN ) :: FDATE, FTIME, TSTEP, LVL ! REAL, INTENT( IN ) :: BCON( NBNDY,* ) REAL, INTENT( IN ) :: BCON( :,: ) END SUBROUTINE X_PPM SUBROUTINE Y_PPM ( CGRID, FDATE, FTIME, TSTEP, LVL, BCON ) REAL, POINTER :: CGRID( :,:,:,: ) INTEGER, INTENT( IN ) :: FDATE, FTIME, TSTEP, LVL ! REAL, INTENT( IN ) :: BCON( NBNDY,: ) REAL, INTENT( IN ) :: BCON( :,: ) END SUBROUTINE Y_PPM ! SUBROUTINE LCKSUMMER ( PNAME, CGRID, JDATE, JTIME, LVL ) ! CHARACTER( * ), INTENT( IN ) :: PNAME ! REAL, POINTER :: CGRID( :,:,:,: ) ! INTEGER, INTENT( IN ) :: JDATE, JTIME, LVL ! END SUBROUTINE LCKSUMMER END INTERFACE C----------------------------------------------------------------------- IF ( FIRSTIME ) THEN FIRSTIME = .FALSE. ALLOCATE( XYFIRST( NLAYS ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating XYFIRST' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF XYFIRST( : ) = .TRUE. C Get CGRID offsets N_SPC_ADV = N_GC_TRNS + N_AE_TRNS + N_NR_TRNS + N_TR_ADV + 1 ! add 1 for advecting RHOJ ALLOCATE ( BCON( NBNDY,N_SPC_ADV ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating BCON' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF IF ( LIPR ) THEN ALLOCATE ( DELC_XADV( NCOLS,NROWS,NLAYS,NSPCSD ), & DELC_YADV( NCOLS,NROWS,NLAYS,NSPCSD ), & XADV( NCOLS,NROWS,NSPCSD ), & YADV( NCOLS,NROWS,NSPCSD ), & CGRID0( NCOLS,NROWS,NSPCSD ) ) END IF #ifdef sens ALLOCATE ( BSEN( NBNDY,N_SPC_ADV,NPMAX ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating BSEN' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF #endif END IF ! if firstime SYNCSTEP = TIME2SEC( TSTEP( 2 ) ) ! Initialize Budget Variables IF (LIPR) THEN DELC_XADV = 0.0 DELC_YADV = 0.0 END IF L_WRITE_WARNING = .TRUE. DO 301 LVL = 1, NLAYS STEP = TIME2SEC ( ASTEP( LVL ) ) DSTEP = STEP FDATE = JDATE FTIME = JTIME IF ( LIPR ) THEN XADV = 0.0 YADV = 0.0 END IF 101 CONTINUE CALL RDBCON ( FDATE, FTIME, ASTEP( LVL ), LVL, BCON, L_WRITE_WARNING ) IF ( LIPR ) CGRID0( :,:,: ) = CGRID( :,:,LVL,: ) IF ( XYFIRST( LVL ) ) THEN XYFIRST( LVL ) = .FALSE. CALL X_PPM ( CGRID, FDATE, FTIME, ASTEP( LVL ), LVL, BCON ) ! CALL LCKSUMMER ( 'X_PPM', CGRID, FDATE, FTIME, LVL ) IF ( LIPR ) THEN XADV( :,:,: ) = XADV( :,:,: ) + CGRID( :,:,LVL,: ) - CGRID0( :,:,: ) CGRID0( :,:,: ) = CGRID( :,:,LVL,: ) END IF CALL Y_PPM ( CGRID, FDATE, FTIME, ASTEP( LVL ), LVL, BCON ) ! CALL LCKSUMMER ( 'Y_PPM', CGRID, FDATE, FTIME, LVL ) IF ( LIPR ) THEN YADV( :,:,: ) = YADV( :,:,: ) + CGRID( :,:,LVL,: ) - CGRID0( :,:,: ) CGRID0( :,:,: ) = CGRID( :,:,LVL,: ) END IF ELSE XYFIRST( LVL ) = .TRUE. CALL Y_PPM ( CGRID, FDATE, FTIME, ASTEP( LVL ), LVL, BCON ) ! CALL LCKSUMMER ( 'Y_PPM', CGRID, FDATE, FTIME, LVL ) IF ( LIPR ) THEN YADV( :,:,: ) = YADV( :,:,: ) + CGRID( :,:,LVL,: ) - CGRID0( :,:,: ) CGRID0( :,:,: ) = CGRID( :,:,LVL,: ) END IF CALL X_PPM ( CGRID, FDATE, FTIME, ASTEP( LVL ), LVL, BCON ) ! CALL LCKSUMMER ( 'X_PPM', CGRID, FDATE, FTIME, LVL ) IF ( LIPR ) THEN XADV( :,:,: ) = XADV( :,:,: ) + CGRID( :,:,LVL,: ) - CGRID0( :,:,: ) CGRID0( :,:,: ) = CGRID( :,:,LVL,: ) END IF END IF DSTEP = DSTEP + STEP IF ( DSTEP .LE. SYNCSTEP ) THEN CALL NEXTIME( FDATE, FTIME, SEC2TIME( STEP ) ) GO TO 101 END IF IF (LIPR ) THEN DELC_XADV( :,:,LVL,: ) = DELC_XADV( :,:,LVL,: ) + XADV( :,:,: ) DELC_YADV( :,:,LVL,: ) = DELC_YADV( :,:,LVL,: ) + YADV( :,:,: ) END IF 301 CONTINUE RETURN END ================================================ FILE: CCTM/src/hadv/ppm/hcontvel.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE HCONTVEL ( JDATE, JTIME, TSTEP, LVL, UORV, WIND ) C----------------------------------------------------------------------- C Function: C This subroutine reads physical velocities in the x1 or x2 directions C and returns the contravariant velocities. C Preconditions: C This routine can be used only for conformal map coordinates C in the horizontal. C Dates and times should be represented YYYYDDD:HHMMSS. C Must call for U-Winds first (UORV = UFLAG) C Subroutines and functions called: C INTERPX, INTERPB, M3EXIT, TIME2SEC, SEC2TIME, NEXTIME C Revision history: C January 30, 1996 by Clint L. Ingram at NCSC: created for C RADM-coordinates C 22 Apr 97 Jeff: C 7 Aug 97 Jeff: for NTHIK = 1 C 4 Feb 98 Jeff: deal with end-of-scenario C 20 Sep 98 David Wong: parallelized the code C -- adjust the data declaration for DENSJ C -- remove indirect index reference, and re-adapt to C a general case C -- invoke stencil exchange library C 21 Nov 00 J.Young: PE_COMM3 -> Dave Wong's f90 stenex COMM C 30 Mar 01 J.Young: dyn alloc - Use HGRD_DEFN; replace INTERP3 with INTERPX C 6 Apr 01 J.Young: Eliminate NTHIN confusion (assumes NTHIK = 1) C 12 Apr 01 J.Young: Use PINTERPB for boundary data C 23 Jun 03 J.Young: for layer dependent advection tstep C 31 Jan 05 J.Young: dyn alloc - establish both horizontal & vertical C domain specifications in one module C 16 Feb 11 S.Roselle: replaced I/O API include files with UTILIO_DEFN; C removed deprecated TRIMLEN C 11 May 11 D.Wong: incorporated twoway model implementation C 28 Jul 11 David Wong: set REVERT to .false. for twoway model case since C buffered file has only two time steps data C 01 Feb 19 David Wong: Implemented centralized I/O approach, removed all MY_N C clauses C----------------------------------------------------------------------- USE GRID_CONF ! horizontal & vertical domain specifications USE UTILIO_DEFN #ifdef parallel USE SE_MODULES ! stenex (using SE_COMM_MODULE) #else USE NOOP_MODULES ! stenex (using NOOP_COMM_MODULE) #endif use CENTRALIZED_IO_MODULE, only : interpolate_var, window IMPLICIT NONE C Includes: INCLUDE SUBST_FILES_ID ! file name parameters INCLUDE SUBST_PE_COMM ! PE communication displacement and direction C Arguments: INTEGER, INTENT( IN ) :: JDATE ! current model date, coded YYYYDDD INTEGER, INTENT( IN ) :: JTIME ! current model time, coded HHMMSS INTEGER, INTENT( IN ) :: TSTEP ! time step (HHMMSS) INTEGER, INTENT( IN ) :: LVL ! layer CHARACTER( 16 ), INTENT( IN ) :: UORV ! flag for velocity component ! REAL WIND( NCOLS+1,NROWS+1 ) REAL, INTENT( OUT ) :: WIND( :,: ) ! CX xi-velocity C Parameters: CHARACTER( 16 ), PARAMETER :: UFLAG = 'X1VEL' CHARACTER( 16 ), PARAMETER :: VFLAG = 'X2VEL' C file variables: ! REAL DENSJ_BUF( NCOLS,NROWS,NLAYS ) ! Jacobian * air density REAL, ALLOCATABLE, SAVE :: DENSJ_BUF( :,:,: ) ! Jacobian * air density ! REAL, ALLOCATABLE, SAVE :: DENSJ_BUF( :,: ) ! Jacobian * air density ! REAL DENSJ_BND( NBNDY,NLAYS ) ! bndy Jacobian * air density REAL, ALLOCATABLE, SAVE :: DENSJ_BND( :,: ) ! bndy Jacobian * air density ! REAL DENSJ( 0:NCOLS+1,0:NROWS+1,NLAYS ) REAL, ALLOCATABLE, SAVE :: DENSJ( :,: ) ! Jacobian * air density C External Functions: None C local variables: LOGICAL, SAVE :: FIRSTIME = .TRUE. INTEGER ROW ! Row index INTEGER COL ! Column index INTEGER MDATE ! mid-advection date INTEGER MTIME ! mid-advection time INTEGER, SAVE :: LDATE( 3 ) ! last date for data on file INTEGER, SAVE :: LTIME( 3 ) ! last time for data on file LOGICAL REVERT ! recover last time step if true INTEGER STEP ! advection time step in seconds REAL DJ ! temporary Jacobian * air density INTEGER ESTAT CHARACTER( 16 ) :: VNAME CHARACTER( 16 ) :: PNAME = 'HCONTVEL' CHARACTER( 16 ) :: AMSG CHARACTER( 14 ) :: MSG1 = 'Error reading ' CHARACTER( 96 ) :: XMSG = ' ' CHARACTER( 8 ), SAVE :: COMMSTR INTEGER COUNT ! Counter for constructing density array. LOGICAL, SAVE :: CSTAGUV = .TRUE. ! Winds are available on C staggered grid? integer, save :: old_time = -9 C----------------------------------------------------------------------- IF ( FIRSTIME ) THEN FIRSTIME = .FALSE. CALL LSTEPF( MET_CRO_3D, LDATE( 1 ), LTIME( 1 ) ) ! CALL LSTEPF( MET_BDY_3D, LDATE( 2 ), LTIME( 2 ) ) CALL LSTEPF( MET_DOT_3D, LDATE( 3 ), LTIME( 3 ) ) ! LDATE( 1 ) = MIN( LDATE( 1 ), LDATE( 2 ), LDATE( 3 ) ) ! LTIME( 1 ) = SEC2TIME( MIN( ! & TIME2SEC( LTIME( 1 ) ), ! & TIME2SEC( LTIME( 2 ) ), ! & TIME2SEC( LTIME( 3 ) ) ! & ) ) LDATE( 1 ) = MIN( LDATE( 1 ), LDATE( 3 ) ) LTIME( 1 ) = SEC2TIME( MIN( & TIME2SEC( LTIME( 1 ) ), & TIME2SEC( LTIME( 3 ) ) & ) ) WRITE( COMMSTR,'(4I2)' ) 1, 1-NTHIK, 2, 1-NTHIK ! ' 1 0 2 0' VNAME3D = ' ' ! array assignment IF ( .NOT. DESC3( MET_DOT_3D ) ) THEN XMSG = 'Could not get ' & // TRIM( MET_DOT_3D ) // ' file description' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF VNAME = 'UWINDC' IF ( INDEX1( VNAME, NVARS3D, VNAME3D ) .LE. 0 ) THEN XMSG = 'Could not find ' // VNAME // ' in ' // MET_DOT_3D CALL M3WARN( PNAME, JDATE, JTIME, XMSG ) CSTAGUV = .FALSE. END IF IF ( .NOT. CSTAGUV ) THEN ALLOCATE ( DENSJ( 0:NCOLS+1,0:NROWS+1 ), STAT = ESTAT ) IF ( ESTAT .NE. 0 ) THEN XMSG = 'Failure allocating DENSJ' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF IF ( .NOT. WINDOW ) THEN ALLOCATE ( DENSJ_BUF( ncols,nrows,NLAYS ),STAT = ESTAT ) ! ALLOCATE ( DENSJ_BUF( NCOLSDENS,NROWSDENS ), STAT = ESTAT ) IF ( ESTAT .NE. 0 ) THEN XMSG = 'Failure allocating DENSJ_BUF' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF ALLOCATE ( DENSJ_BND( NBNDY,NLAYS ), STAT = ESTAT ) IF ( ESTAT .NE. 0 ) THEN XMSG = 'Failure allocating DENSJ_BND' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF END IF END IF END IF ! if firstime MDATE = JDATE MTIME = JTIME STEP = TIME2SEC( TSTEP ) CALL NEXTIME( MDATE, MTIME, SEC2TIME( STEP / 2 ) ) #ifdef twoway REVERT = .FALSE. #else IF ( MDATE .LT. LDATE( 1 ) ) THEN REVERT = .FALSE. ELSE IF ( MDATE .EQ. LDATE( 1 ) ) THEN IF ( MTIME .LE. LTIME( 1 ) ) THEN REVERT = .FALSE. ELSE REVERT = .TRUE. END IF ELSE ! MDATE .GT. LDATE REVERT = .TRUE. END IF #endif IF ( REVERT ) THEN XMSG = 'Current scenario interpolation step not available in all of ' & // TRIM( MET_CRO_3D ) // ', ' & // TRIM( MET_BDY_3D ) // ' and ' & // TRIM( MET_DOT_3D ) CALL M3MESG( XMSG ) WRITE( AMSG,'( 2I8 )' ) LDATE( 1 ), LTIME( 1 ) XMSG = 'Using data for last file step: ' // AMSG CALL M3MESG( XMSG ) MDATE = LDATE( 1 ) MTIME = LTIME( 1 ) END IF IF ( LVL .GT. NLAYS ) THEN WRITE( XMSG,'( "layer", I4, " greater than NLAYS" )') LVL CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF C Try to read u-component wind on C-staggered grid from variable UWINDC. C (First available in MCIPv3.5, Fall 2009.) If UWINDC is not in MET_DOT_3D, C try to read u-component wind on B-staggered grid as UWIND. IF ( UORV .EQ. UFLAG ) THEN IF ( CSTAGUV ) THEN call interpolate_var ('UWINDC', mdate, mtime, WIND, SLAY=LVL) RETURN END IF ELSE IF ( UORV .EQ. VFLAG ) THEN C If u-component wind was C-staggered, read v-component wind on C-staggered C grid. Otherwise, read v-component wind from B-staggered grid. IF ( CSTAGUV ) THEN call interpolate_var ('VWINDC', mdate, mtime, WIND, SLAY=LVL) RETURN END IF ELSE XMSG = 'UORV Flag, not set correctly' CALL M3EXIT( PNAME, MDATE, MTIME, XMSG, XSTAT2 ) END IF ! if UORV C Interpolate Jacobian X Air Density VNAME = 'DENSA_J' IF ( WINDOW ) THEN call interpolate_var ('DENSA_J', mdate, mtime, DENSJ, slay=lvl) ELSE ! need to extend data from bndy file IF (old_time .ne. mtime) THEN call interpolate_var (VNAME, mdate, mtime, DENSJ_BUF) old_time = mtime call interpolate_var (VNAME, mdate, mtime, DENSJ_BND, 'b') END IF C Load DENSJ array DO ROW = 1, NROWS DO COL = 1, NCOLS DENSJ( COL,ROW ) = DENSJ_BUF( COL,ROW,LVL ) END DO END DO C Fill in DENSJ array for boundaries COUNT = 0 DO ROW = 0, 0 DO COL = 1, NCOLS+1 COUNT = COUNT + 1 DENSJ( COL,ROW ) = DENSJ_BND( COUNT,LVL ) ! South END DO END DO DO ROW = 1, NROWS+1 DO COL = NCOLS+1, NCOLS+1 COUNT = COUNT + 1 DENSJ( COL,ROW ) = DENSJ_BND( COUNT,LVL ) ! East END DO END DO DO ROW = NROWS+1, NROWS+1 DO COL = 0, NCOLS COUNT = COUNT + 1 DENSJ( COL,ROW ) = DENSJ_BND( COUNT,LVL ) ! North END DO END DO DO ROW = 0, NROWS DO COL = 0, 0 COUNT = COUNT + 1 DENSJ( COL,ROW ) = DENSJ_BND( COUNT,LVL ) ! West END DO END DO END IF ! WINDOW C Interpolate Contravariant Velocity components (already at flux points) C X Jacobian X Air Density IF ( UORV .EQ. UFLAG ) THEN call interpolate_var ('UHAT_JD', mdate, mtime, WIND, SLAY=LVL) C get west-direction RhoJ in halo cells and retrieve contravariant velocities CALL SUBST_COMM ( DENSJ, DSPL_N0_E0_S0_W1, DRCN_W, COMMSTR ) DO ROW = 1, NROWS DO COL = 1, NCOLS+1 DJ = 0.5 * ( DENSJ( COL,ROW) + DENSJ( COL-1,ROW ) ) WIND( COL,ROW ) = WIND( COL,ROW ) / DJ END DO END DO ELSE call interpolate_var ('VHAT_JD', mdate, mtime, WIND, SLAY=LVL) C get south-direction RhoJ in halo cells and retrieve contravariant velocities CALL SUBST_COMM ( DENSJ, DSPL_N0_E0_S1_W0, DRCN_S, COMMSTR ) DO ROW = 1, NROWS+1 DO COL = 1, NCOLS DJ = 0.5 * ( DENSJ( COL,ROW ) + DENSJ( COL,ROW-1 ) ) WIND( COL,ROW ) = WIND( COL,ROW ) / DJ END DO END DO END IF RETURN END ================================================ FILE: CCTM/src/hadv/ppm/hppm.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE HPPM ( NI, NJ, CON, VEL, DT, DS, ORI, & F_LO_IN, F_LO_OUT, F_HI_IN, F_HI_OUT ) C---------------------------------------------------------------------- C Function C This is the one-dimensional implementation of piecewise parabolic C method. Variable grid spacing is allowed. The scheme is positive C definite and monotonic. It is conservative, and causes small C numerical diffusion. C A piecewise continuous parabola is used as the intepolation polynomial. C The slope of the parabola at cell edges are computed from a cumulative C function of the advected quantity. These slopes are further modified C so that the interpolation function is monotone. For more detailed C information see: C Colella, P., and P. L. Woodward, (1984), "The Piecewise Parabolic C Method (PPM) for Gas-Dynamical Simulations," J. Comput. Phys. 54, C 174-201. C The concentrations at boundary cells (i.e., at 1 and NI) are not C computed here. They should be updated according to the boundary C conditions. C The following definitions are used: C |---------------> Positive direction C C -->|Boundary|<----------------Main Grid----------------->|Boundary|<-- C C |<------>|<------>| ~|<------>|~ |<------>|<------>| C CON(0) CON(1) CON(i) CON(n) CON(n+1) C C VEL(1)-->| VEL(i)-->| |-->VEL(i+1) |-->VEL(n+1) C C FP(0)-->| FP(i-1)-->| |-->FP(i) |-->FP(n) C C FM(1)<--| FM(i)<--| |<--FM(i+1) |<--FM(n+1) C C -->| DS(i) |<-- C---------------------------------------------------------------------- C Revision History: C 20 April, 1993 by M. Talat Odman at NCSC: C Created based on Colella and Woodward (1984) C 15 Sept., 1993 by Daewon Byun at EPA: C Original code obtained from Phillip Colella at Berkeley C 29 Nov., 1993 by M. Talat Odman at NCSC: C Found no difference from original code C 05 Oct., 1993 by M. Talat Odman at NCSC: C Modified for EDSS archive, made discontinuity capturing an option C Sep 97 Jeff C Aug 98 - Jeff - optimize for mesh coefficients C David Wong - Sep. 1998 C -- parallelized the code C -- Expanded the one-level nested loop which involves either with row or C column, into a three-level nested loop with layers and species. C Corresponding arrays' dimensions were adjusted accordingly C Jeff - optimize for mesh coefficients C C David Wong - 1/8/99 C -- BARRIER is removed C C David Wong - 1/12/99 C -- inside BNDY_HI_PE conditional code segment, NI is changed to MY_NI C C David Wong - 1/12/99 C -- change se_loop_index argument list C -- add new subroutine call to determine lo and hi boundary processor C 22 Nov 00 J.Young: PE_COMM2E -> Dave Wong's f90 stenex COMM C PE_COMM3E -> Dave Wong's f90 stenex COMM C 23 Feb 01 J.Young: allocatable arrays ... C Since F90 does not preserve dummy argument array C indices, CONI( 1:NI+2,, ) is copied into local array C CON( 0:NI+1,, ). C The caller of HPPM dimensions the actual argument, C as CON( -NTHIK+1:MY_NCOLS+NTHIK,, ). C 3 Sep 01 David Wong C -- use "dynamic" data structure instead of F90 ALLOCATE statement to C avoid memory fragmentation which eventually leads to not enough C contigous memory (F90 bug?) C 24 Mar 04 G.Hammond: moved all mpi communication to caller C 06/16/04 by Peter Percell & Daewon Byun at UH-IMAQS: C - Fixed bug in using fluxes in non-uniform grids to update concentrations C 14 Feb 05 J.Young: fix DS dimension bug C 11 Oct 05 J.Young: re-dimension lattice arrays to one C 1 Nov 06 J.Young: Following Glenn Hammond, moved all communication C out of HPPM; using "swap_sandia" communication in caller; update only C local values in the CGRID array within a time step, discarding previous C ghost values. C 1 May 07 J.Young: Following Peter Percell, eliminate CONI,DSI using interface C specification in caller C 11 May 09 J.Young: Simplify - remove STEEPEN option (never used); assume constant C cell widths, DS( i ) C 11 May 10 D.Wong: Change local dynamic arrays: make allocatable to enable proper C PGI compiliation; fix a max first dimension C 16 Feb 11 S.Roselle: replaced I/O API include files with UTILIO_DEFN C---------------------------------------------------------------------- USE HGRD_DEFN USE UTILIO_DEFN USE PA_DEFN, ONLY : BUDGET_DIAG, BUDGET_HPPM #ifdef parallel USE SE_MODULES ! stenex (using SE_UTIL_MODULE) #else USE NOOP_MODULES ! stenex (using NOOP_UTIL_MODULE) #endif IMPLICIT NONE C Includes: ! #ifdef parallel INTEGER, PARAMETER :: SWP = 3 INTEGER, PARAMETER :: X1 = 1 INTEGER, PARAMETER :: X2 = 2 INTEGER, PARAMETER :: X3 = 3 ! #else ! INTEGER, PARAMETER :: SWP = 1 ! INTEGER, PARAMETER :: X1 = 0 ! INTEGER, PARAMETER :: X2 = 0 ! INTEGER, PARAMETER :: X3 = 0 ! #endif C Arguments: INTEGER, INTENT( IN ) :: NI, NJ ! number of zones (cells) REAL, INTENT( INOUT ) :: CON( 1-SWP:,1: ) ! conc's in the zones (cells) REAL, INTENT( IN ) :: VEL( : ) ! velocities at zone (cell) boundaries REAL, INTENT( IN ) :: DT ! time step REAL, INTENT( IN ) :: DS ! distance between zone (cell) boundaries CHARACTER, INTENT( IN ) :: ORI ! orientation of advection ('C'-x or 'R'-y) C Parameters: REAL, PARAMETER :: TWO3RDS = 2.0 / 3.0 REAL, PARAMETER :: SIXTH = 1.0 / 6.0 C Local variables: CHARACTER, SAVE :: FIRSTORI = ' ' ! for test if Col or Row orientation change LOGICAL, SAVE :: FIRSTIME = .TRUE. INTEGER, SAVE :: NSPCS INTEGER, SAVE :: NSPCS_BUDGET = 0 ! REAL :: FM ( 1:NI+1, SIZE( CON,2 ) ) ! outflux from left or bottom of cell ! REAL :: FP ( 0:NI, SIZE( CON,2 ) ) ! outflux from right or top of cell ! REAL :: CM ( 1-X1:NI+X1+1,SIZE( CON,2 ) ) ! zone R.H. trial intercept ! REAL :: CL ( 1-X1:NI+X1 ) ! zone L.H. intercept ! REAL :: CR ( 1-X1:NI+X1 ) ! zone R.H. intercept ! REAL :: DC ( 0-X1:NI+X1+1,SIZE( CON,2 ) ) ! CR - CL ! REAL :: C6 ( 1-X1:NI+X1 ) ! coefficient of second-order term REAL, ALLOCATABLE, SAVE :: FM( :,: ) ! outflux from left or bottom of cell REAL, ALLOCATABLE, SAVE :: FP( :,: ) ! outflux from right or top of cell REAL, ALLOCATABLE, SAVE :: CM( :,: ) ! zone R.H. trial intercept REAL, ALLOCATABLE, SAVE :: CL( : ) ! zone L.H. intercept REAL, ALLOCATABLE, SAVE :: CR( : ) ! zone R.H. intercept REAL, ALLOCATABLE, SAVE :: DC( :,: ) ! CR - CL REAL, ALLOCATABLE, SAVE :: C6( : ) ! coefficient of second-order term REAL C0, C1 ! Boundary fluxes returned for budget calculations ! Units of boundary fluxes are assumed to be ! density (aerosols) or mixing ratio (gases). These values ! are in 'coupled' space, meaning they need to be decoupled ! using the Jacobian and map scale factor in order to properly ! contribute to total mass calculations. REAL, INTENT( OUT) :: F_LO_IN( : ) ! influx to domain from left of row or bottom of column REAL, INTENT( OUT) :: F_LO_OUT(: ) ! outflux to domain from left of row or bottom of column REAL, INTENT( OUT) :: F_HI_IN( : ) ! influx to domain from right of row or bottom of top REAL, INTENT( OUT) :: F_HI_OUT(: ) ! outflux to domain from right of row or bottom of top LOGICAL, SAVE :: BNDY_LO_PE, BNDY_HI_PE CHARACTER( 96 ) :: XMSG = ' ' CHARACTER( 16 ) :: PNAME = 'HPPM' REAL X, Y ! Courant number INTEGER NMX, ASTAT INTEGER I, S ! loop indices C---------------------------------------------------------------------- #ifdef isam FIRSTIME = .TRUE. #else IF ( FIRSTIME ) THEN FIRSTIME = .FALSE. #endif NMX = MAX( NI,NJ ) NSPCS = SIZE ( CON,2 ) ALLOCATE( FM( 1:NMX+1, NSPCS ), & FP( 0:NMX, NSPCS ), & CM( 1-X1:NMX+X1+1, NSPCS ), & CL( 1-X1:NMX+X1 ), & CR( 1-X1:NMX+X1 ), & DC( 0-X1:NMX+X1+1, NSPCS ), & C6( 1-X1:NMX+X1 ), & STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN XMSG = '*** Error allocating FM, FP, CM, CL, CR, DC, or C6' CALL M3EXIT ( PNAME, 0, 0, XMSG, XSTAT1 ) END IF #ifdef isam #else END IF ! Firstime #endif IF ( ORI .NE. FIRSTORI ) THEN FIRSTORI = ORI CALL SUBST_HI_LO_BND_PE ( ORI, BNDY_LO_PE, BNDY_HI_PE ) END IF ! FIRSTORI C Set all fluxes to zero. Either positive or negative flux will remain zero C depending on the sign of the velocity. FM( 1:NI+1,: ) = 0.0 FP( 0:NI,: ) = 0.0 ! #ifndef parallel C If PE near bottom or left domain boundary... C Zeroth order polynomial at the boundary cells C First order polynomial at the next cells, no monotonicity constraint needed ! IF ( BNDY_LO_PE ) THEN ! DO S = 1, NSPCS ! CM( 1,S ) = CON( 1,S ) ! CM( 2,S ) = 0.5 * ( CON( 1,S ) + CON( 2,S ) ) ! END DO ! END IF C If PE near top or right domain boundary... C Zeroth order polynomial at the boundary cells C First order polynomial at the next cells, no monotonicity constraint needed ! IF ( BNDY_HI_PE ) THEN ! DO S = 1, NSPCS ! CM( NI+1,S ) = CON( NI,S ) ! CM( NI,S ) = 0.5 * ( CON( NI,S ) + CON( NI-1,S ) ) ! END DO ! END IF ! #endif C Second order polynomial inside the domain DO S = 1, NSPCS DO I = 2 - X3, NI + X3 - 1 C Compute average slope in the i'th zone C Equation (1.7) C0 = CON( I,S ) - CON( I-1,S ) C1 = CON( I+1,S ) - CON( I,S ) DC( I,S ) = 0.5 * ( C0 + C1 ) C Guarantee that CM lies between CON(I) and CON(I+1) - monotonicity constraint C Equation (1.8) IF ( C0 * C1 .GT. 0.0 ) THEN DC( I,S ) = SIGN( 1.0, DC( I,S ) ) & * MIN( ABS( DC( I,S ) ), & 2.0 * ABS( C0 ), & 2.0 * ABS( C1 ) ) ELSE DC( I,S ) = 0.0 END IF END DO ! I C Equation (1.6) DO I = 3 - X3, NI + X3 - 1 CM( I,S ) = 0.5 * ( CON( I,S ) + CON( I-1,S ) ) & - SIXTH * ( DC( I,S ) - DC( I-1,S ) ) END DO END DO ! S C Generate piecewise parabolic distributions DO S = 1, NSPCS DO I = 1 - X1, NI + X1 C Equation (1.15) CR( I ) = CM( I+1,S ) CL( I ) = CM( I,S ) C Monotonicity IF ( ( CR( I ) - CON( I,S ) ) & * ( CON( I,S ) - CL( I ) ) .GT. 0.0 ) THEN C Temporary computation of DC and C6 DC( I,S ) = CR( I ) - CL( I ) C6( I ) = 6.0 * ( CON( I,S ) - 0.5 * ( CL( I ) + CR( I ) ) ) C overshoot cases - Equation (1.10) IF ( DC( I,S ) * C6( I ) .GT. & DC( I,S ) * DC( I,S ) ) THEN CL( I ) = 3.0 * CON( I,S ) - 2.0 * CR( I ) ELSE IF ( -DC( I,S ) * DC( I,S ) .GT. & DC( I,S ) * C6( I ) ) THEN CR( I ) = 3.0 * CON( I,S ) - 2.0 * CL( I ) END IF ELSE ! Local extremum: Interpolation ! function is set to be a constant CL( I ) = CON( I,S ) CR( I ) = CL( I ) END IF DC( I,S ) = CR( I ) - CL( I ) ! Equation (1.5) C6( I ) = 6.0 * ( CON( I,S ) - 0.5 * ( CL( I ) + CR( I ) ) ) END DO ! I C Compute fluxes from the parabolic distribution as in Equation (1.12) ! #ifdef parallel ! I = 0 ! IF ( VEL( I+1 ) .GT. 0.0 ) THEN ! Y = VEL( I+1 ) * DT ! X = Y / DS ! FP( I,S ) = Y * ( CR( I ) - 0.5 * X * ( DC( I,S ) ! & - C6( I ) * ( 1.0 - TWO3RDS * X ) ) ) ! END IF ! #endif ! IF ( BNDY_LO_PE ) THEN I = 0 IF ( VEL( I+1 ) .GT. 0.0 ) THEN Y = VEL( I+1 ) * DT X = Y / DS FP( I,S ) = Y * ( CR( I ) - 0.5 * X * ( DC( I,S ) & - C6( I ) * ( 1.0 - TWO3RDS * X ) ) ) END IF ! END IF DO I = 1, NI C function for mass leaving interval I at lower face (I-1/2) C = length of segment leaving * integral average concentration in that segment IF ( VEL( I ) .LT. 0.0 ) THEN Y = -VEL( I ) * DT X = Y / DS FM( I,S ) = Y * ( CL( I ) + 0.5 * X * ( DC( I,S ) & + C6( I ) * ( 1.0 - TWO3RDS * X ) ) ) END IF C function for mass leaving interval I at upper face (I+1/2) IF ( VEL( I+1 ) .GT. 0.0 ) THEN Y = VEL( I+1 ) * DT X = Y / DS FP( I,S ) = Y * ( CR( I ) - 0.5 * X * ( DC( I,S ) & - C6( I ) * ( 1.0 - TWO3RDS * X ) ) ) END IF END DO ! I ! #ifdef parallel ! I = NI + 1 ! IF ( VEL( I ) .LT. 0.0 ) THEN ! Y = -VEL( I ) * DT ! X = Y / DS ! FM( I,S ) = Y * ( CL( I ) + 0.5 * X * ( DC( I,S ) ! & + C6( I ) * ( 1.0 - TWO3RDS * X ) ) ) ! END IF ! #endif ! IF ( BNDY_HI_PE ) THEN I = NI + 1 IF ( VEL( I ) .LT. 0.0 ) THEN Y = -VEL( I ) * DT X = Y / DS FM( I,S ) = Y * ( CL( I ) + 0.5 * X * ( DC( I,S ) & + C6( I ) * ( 1.0 - TWO3RDS * X ) ) ) END IF ! END IF END DO ! S C Compute fluxes from boundary cells C If PE near top or left boundary... IF ( BNDY_LO_PE ) THEN IF ( VEL( 1 ) .GT. 0.0 ) THEN Y = VEL( 1 ) * DT DO S = 1, NSPCS FP( 0,S ) = Y * CON( 0,S ) END DO END IF END IF C If PE near bottom or right boundary... IF ( BNDY_HI_PE ) THEN IF ( VEL( NI+1 ) .LT. 0.0 ) THEN Y = -VEL( NI+1 ) * DT DO S = 1, NSPCS FM( NI+1,S ) = Y * CON( NI+1,S ) END DO END IF END IF C Update concentrations as in Equation (1.13) DO S = 1, NSPCS DO I = 1, NI CON( I,S ) = CON( I,S ) & + ( FP( I-1,S ) - FP( I,S ) + FM( I+1,S ) - FM( I,S ) ) / DS END DO END DO C Store boundary fluxes in budget variables C Units: change in density (aerosols) or mixing ratio (gases) IF ( BUDGET_HPPM ) THEN NSPCS_BUDGET = MIN( NSPCS,SIZE( F_LO_IN ) ) F_LO_IN ( 1:NSPCS_BUDGET ) = FP( 0,1:NSPCS_BUDGET ) / DS F_LO_OUT( 1:NSPCS_BUDGET ) = FM( 1,1:NSPCS_BUDGET ) / DS F_HI_OUT( 1:NSPCS_BUDGET ) = FP( NI,1:NSPCS_BUDGET ) / DS F_HI_IN ( 1:NSPCS_BUDGET ) = FM( NI+1,1:NSPCS_BUDGET ) / DS END IF #ifdef isam Ckrt...deallocate local arrays....20140126 IF ( ALLOCATED( FM ) ) DEALLOCATE( FM ) IF ( ALLOCATED( FP ) ) DEALLOCATE( FP ) IF ( ALLOCATED( CM ) ) DEALLOCATE( CM ) IF ( ALLOCATED( CL ) ) DEALLOCATE( CL ) IF ( ALLOCATED( CR ) ) DEALLOCATE( CR ) IF ( ALLOCATED( DC ) ) DEALLOCATE( DC ) IF ( ALLOCATED( C6 ) ) DEALLOCATE( C6 ) #endif RETURN END ================================================ FILE: CCTM/src/hadv/ppm/rdbcon.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE RDBCON ( JDATE, JTIME, TSTEP, LVL, BCON, & L_WRITE_WARNING ) C----------------------------------------------------------------------- C Function: C Read boundary concentrations data for advection and couple with C SqRDMT, Where SqRDMT = Sq. Root [det ( metric tensor )] C = Vertical Jacobian / (map scale factor)**2 C Load Air Density X SqRDMT = RHOJ into last BCON slot for advection C Preconditions: C Subroutines and Functions Called: C INTERPX, INTERPB, M3EXIT, TRIMLEN, ADVBC_MAP, TIME2SEC, SEC2TIME, NEXTIME C Revision History: C Jeff - Aug 1997 Based on beta version, keep in ppmV units (not aerosols) C Jeff - Dec 97 - add CMIN C Jeff - Apr 98 - fix conversion/coupling for aerosol number species C Jeff - Apr 01 - dyn alloc - Use PINTERB for boundary data - assume the met C data could come from a larger file, but not the conc cata C 23 Jun 03 J.Young: for layer dependent advection tstep C 31 Jan 05 J.Young: dyn alloc - establish both horizontal & vertical C domain specifications in one module C 21 Jun 10 J.Young: convert for Namelist redesign C 16 Feb 11 S.Roselle: replaced I/O API include files with UTILIO_DEFN; C removed deprecated TRIMLEN C 08 Jun 12 J.Young: remove full character blank padding for GNU Fortran (GCC) 4.1.2 C 14 Sep 15 J.Young: change Fortran string comparison to logical from advbc_map C 01 Feb 19 D.Wong: Implemented centralized I/O approach, removed all MY_N C clauses C 11 Dec 19 S.L.Napelenok: ddm-3d implementation for version 5.3.1 C----------------------------------------------------------------------- USE GRID_CONF ! horizontal & vertical domain specifications USE CGRID_SPCS ! CGRID mechanism species USE UTILIO_DEFN USE AERO_DATA, only : CHECK_AERO_ICBC, N_MODE use CENTRALIZED_IO_MODULE, only : interpolate_var, window use RUNTIME_VARS, only : BC_AERO_M2WET, BC_AERO_M2USE #ifdef sens USE DDM3D_DEFN, ONLY:SENGRID, NPMAX, NP, BSEN, SEN_PAR, BCS #endif IMPLICIT NONE C Includes: INCLUDE SUBST_CONST ! constants INCLUDE SUBST_FILES_ID ! file name parameters C Arguments: INTEGER, INTENT( IN ) :: JDATE ! current model date, coded YYYYDDD INTEGER, INTENT( IN ) :: JTIME ! current model time, coded HHMMSS INTEGER, INTENT( IN ) :: TSTEP ! timestep INTEGER, INTENT( IN ) :: LVL ! layer REAL, INTENT( OUT ) :: BCON( :,: ) ! boundary concentrations LOGICAL, INTENT( INOUT ) :: L_WRITE_WARNING ! Write Aerosol BC Warning C Parameters: REAL, PARAMETER :: KGPMG = 1.0E-09 ! Kg / micro-gram REAL, PARAMETER :: CMIN = 1.0E-30 CHARACTER( 16 ) :: CONCMIN C File variables: REAL, ALLOCATABLE, SAVE :: JACOBM_BND( :,: ) ! boundary Jacobian REAL, ALLOCATABLE, SAVE :: RHOJ_BND ( :,: ) ! mid-layer boundary RhoJ REAL, ALLOCATABLE, SAVE :: JACOBM_BUF( :,: ) ! grid Jacobian REAL, ALLOCATABLE, SAVE :: RHOJ_BUF ( :,: ) ! mid-layer grid RhoJ REAL, ALLOCATABLE, SAVE :: BBUF ( :,: ) ! bcon file buffer REAL, ALLOCATABLE, SAVE :: BBUF_TMP ( :,: ) ! bcon file buffer C External Functions: None C Local variables: CHARACTER( 16 ) :: PNAME = 'RDBCON' CHARACTER( 16 ) :: VNAME LOGICAL, SAVE :: FIRSTIME = .TRUE. CHARACTER( 16 ) :: BLNK = ' ' CHARACTER( 16 ) :: BCNAME_TMP = ' ' CHARACTER( 16 ), ALLOCATABLE, SAVE :: BCNAME( : ) ! BC name for adv species REAL, ALLOCATABLE, SAVE :: BCFAC( : ) ! Scale factor for BCs LOGICAL, ALLOCATABLE, SAVE :: ONFILE( : ) ! BC species on the file CHARACTER( 96 ) :: XMSG = ' ' CHARACTER( 199 ) :: XMSG2 = ' ' INTEGER :: STAT( N_MODE ) INTEGER, SAVE :: N_SPC_ADV INTEGER MDATE ! mid-advection date INTEGER MTIME ! mid-advection time INTEGER STEP ! advection time step in seconds INTEGER BND, VAR, SPC ! loop counters INTEGER COL, ROW, IMODE ! loop counters INTEGER STRT, FINI, IAER, J INTEGER ALLOCSTAT INTEGER COUNT ! Counter for constructing boundary arrays #ifdef sens INTEGER SENNUM CHARACTER(16 ) :: SNAME ! Name of sens bc parameter CHARACTER( 16 ), ALLOCATABLE, SAVE :: S_BCNAME( :,: ) #endif INTERFACE SUBROUTINE ADVBC_MAP( CONCMIN, BCNAME, BCFAC, ONFILE ) CHARACTER( 16 ), INTENT( IN ) :: CONCMIN CHARACTER( 16 ), INTENT( OUT ) :: BCNAME( : ) REAL, INTENT( OUT ) :: BCFAC ( : ) LOGICAL, INTENT( OUT ) :: ONFILE( : ) END SUBROUTINE ADVBC_MAP END INTERFACE #ifdef verbose_rdbcon real sumbc integer s #endif C----------------------------------------------------------------------- IF ( FIRSTIME ) THEN FIRSTIME = .FALSE. WRITE( CONCMIN,'(1PE9.2)' ) CMIN ALLOCATE ( BBUF( NBNDY,NLAYS ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating BBUF' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF ALLOCATE ( BBUF_TMP( NBNDY,NLAYS ), STAT = ALLOCSTAT ) N_SPC_ADV = N_GC_TRNS + N_AE_TRNS + N_NR_TRNS + N_TR_ADV + 1 ! add 1 for advecting RHOJ ALLOCATE ( BCNAME( N_SPC_ADV ), & BCFAC ( N_SPC_ADV ), & ONFILE( N_SPC_ADV ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating BCNAME, BCFAC, or ONFILE' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF C create advected species map to bc`s CALL ADVBC_MAP ( CONCMIN, BCNAME, BCFAC, ONFILE ) ALLOCATE ( JACOBM_BND( NBNDY,NLAYS ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating JACOBM_BND' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF ALLOCATE ( RHOJ_BND( NBNDY,NLAYS ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating RHOJ_BND' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF IF ( WINDOW ) THEN ALLOCATE ( JACOBM_BUF( 0:NCOLS+1,0:NROWS+1 ), & STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating JACOBM_BUF' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF ALLOCATE ( RHOJ_BUF( 0:NCOLS+1,0:NROWS+1 ), & STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating RHOJ_BUF' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF END IF #ifdef sens ALLOCATE ( S_BCNAME( N_SPC_ADV,NPMAX ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating S_BCNAME' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF IF ( BCS ) THEN DO NP = 1, NPMAX FINI = N_GC_TRNS + N_AE_TRNS + N_NR_TRNS + N_TR_ADV DO VAR = 1, FINI S_BCNAME( VAR,NP ) = TRIM( BCNAME( VAR ) ) // '_' // SEN_PAR( NP ) END DO END DO ENDIF #endif END IF ! if FIRSTIME MDATE = JDATE MTIME = JTIME STEP = TIME2SEC( TSTEP ) CALL NEXTIME( MDATE, MTIME, SEC2TIME( STEP / 2 ) ) C Read & interpolate boundary SqrDMT, and RhoJ C According to the METBDY3D File, variables have the following units: C JACOBM - Meters C DENSA_J - KG M-2 IF ( WINDOW ) THEN RHOJ_BUF = 0.0 call interpolate_var ('DENSA_J', mdate, mtime, RHOJ_BUF, slay=lvl) call interpolate_var ('JACOBM', mdate, mtime, JACOBM_BUF, slay=lvl) C Fill in DENSJ array for boundaries COUNT = 0 DO ROW = 0, 0 ! South DO COL = 1, NCOLS+1 COUNT = COUNT + 1 JACOBM_BND( COUNT,LVL ) = JACOBM_BUF( COL,ROW ) RHOJ_BND ( COUNT,LVL ) = RHOJ_BUF ( COL,ROW ) END DO END DO DO ROW = 1, NROWS+1 ! East DO COL = NCOLS+1, NCOLS+1 COUNT = COUNT + 1 JACOBM_BND( COUNT,LVL ) = JACOBM_BUF( COL,ROW ) RHOJ_BND ( COUNT,LVL ) = RHOJ_BUF ( COL,ROW ) END DO END DO DO ROW = NROWS+1, NROWS+1 ! North DO COL = 0, NCOLS COUNT = COUNT + 1 JACOBM_BND( COUNT,LVL ) = JACOBM_BUF( COL,ROW ) RHOJ_BND ( COUNT,LVL ) = RHOJ_BUF ( COL,ROW ) END DO END DO DO ROW = 0, NROWS ! West DO COL = 0, 0 COUNT = COUNT + 1 JACOBM_BND( COUNT,LVL ) = JACOBM_BUF( COL,ROW ) RHOJ_BND ( COUNT,LVL ) = RHOJ_BUF ( COL,ROW ) END DO END DO ELSE #ifdef parallel call interpolate_var ('JACOBM', mdate, mtime, JACOBM_BND, 'b', lvl) #else call interpolate_var ('JACOBM', mdate, mtime, JACOBM_BND, 'b') #endif #ifdef parallel call interpolate_var ('DENSA_J', mdate, mtime, RHOJ_BND, 'b', lvl) #else call interpolate_var ('DENSA_J', mdate, mtime, RHOJ_BND, 'b') #endif END IF ! WINDOW BCON = 0.0 C Read & interpolate boundary concentrations ! Gas-Phase Species STRT = 1 FINI = N_GC_TRNS DO 141 VAR = STRT, FINI IF ( ONFILE( VAR ) ) THEN BBUF = 0.0 ! array assignment #ifdef parallel call interpolate_var (BCNAME(VAR), mdate, mtime, BBUF, 'b', lvl) #else call interpolate_var (BCNAME(VAR), mdate, mtime, BBUF, 'b') #endif DO BND = 1, NBNDY BCON( BND,VAR ) = BCFAC( VAR ) * BBUF( BND,LVL ) & * RHOJ_BND( BND,LVL ) END DO ELSE DO BND = 1, NBNDY BCON( BND,VAR ) = CMIN END DO END IF 141 CONTINUE #ifdef verbose_rdbcon if ( lvl .eq. 1 ) then write( logdev,'(/"@@@b ", i8, i7.6)') jdate, jtime do var = strt, fini sumbc = 0.0 do bnd = 1, nbndy sumbc = sumbc + bcon( bnd,var ) end do write( logdev,'("@@@b ", a, g16.6)') bcname( var ), sumbc end do end if #endif ! Particle Species SPC = 0 STRT = N_GC_TRNS + 1 FINI = N_GC_TRNS + N_AE_TRNS DO 151 VAR = STRT, FINI SPC = SPC + 1 IF ( ONFILE( VAR ) ) THEN BBUF = 0.0 ! array assignment #ifdef parallel call interpolate_var (BCNAME(VAR), mdate, mtime, BBUF, 'b', lvl) #else call interpolate_var (BCNAME(VAR), mdate, mtime, BBUF, 'b') #endif ! Add Non-Carbon Mass to Carbon Mass if the model is ! running semivolatile POA IF ( BCNAME( VAR )( 1:4 ) .EQ. 'APOC' .AND. & AE_TRNS( SPC )( 1:4 ) .NE. 'APOC' ) THEN BBUF_TMP = 0.0 BCNAME_TMP = 'APNCOM' // BCNAME( VAR )( 5:5 ) #ifdef parallel call interpolate_var (BCNAME_TMP, mdate, mtime, BBUF_TMP, 'b', lvl) #else call interpolate_var (BCNAME_TMP, mdate, mtime, BBUF_TMP, 'b') #endif BBUF = BBUF + BBUF_TMP END IF ! Units of JACOBM_BND are Meters, according to the input ! file. Units of BBUF are ug m-3 ( m2 m-3 for surface ! area and N m-3 for number). BCON( 1:NBNDY,VAR ) = BCFAC( VAR ) * BBUF( 1:NBNDY,LVL ) & * JACOBM_BND( 1:NBNDY,LVL ) ! Found bc's (microgram/m**3, m**2/m**3, or number/m**3) ! Also Do a Mass conversion as long as this particle ! species is not Number or Surface Area. IF ( AE_TRNS( SPC )( 1:3 ) .NE. 'NUM' .AND. & AE_TRNS( SPC )( 1:3 ) .NE. 'SRF' ) THEN BCON( 1:NBNDY,VAR ) = BCON( 1:NBNDY,VAR ) * KGPMG END IF ELSE BCON( 1:NBNDY,VAR ) = CMIN END IF 151 CONTINUE WHERE( BCON .NE. BCON ) BCON = 0.0 !Check Aerosol Size Distributions and Warn !the User if They Are Not Robust. !This routine outputs aerosol surface area consistent with !the BC_AERO_M2WET specification. DO BND = 1,NBNDY CALL CHECK_AERO_ICBC( BCON( BND,STRT:FINI ), BC_AERO_M2WET, & BC_AERO_M2USE, .TRUE., & L_WRITE_WARNING,1,BND,LVL ) END DO #ifdef verbose_rdbcon if ( lvl .eq. 1 ) then do var = strt, fini sumbc = 0.0 do bnd = 1, nbndy sumbc = sumbc + bcon( bnd,var ) end do write( logdev,'("@@@b ", a, g16.6)') bcname( var ), sumbc end do end if #endif ! Non-Reactive Species STRT = N_GC_TRNS + N_AE_TRNS + 1 FINI = N_GC_TRNS + N_AE_TRNS + N_NR_TRNS DO 161 VAR = STRT, FINI IF ( ONFILE( VAR ) ) THEN BBUF = 0.0 ! array assignment #ifdef parallel call interpolate_var (BCNAME(VAR), mdate, mtime, BBUF, 'b', lvl) #else call interpolate_var (BCNAME(VAR), mdate, mtime, BBUF, 'b') #endif DO BND = 1, NBNDY BCON( BND,VAR ) = BCFAC( VAR ) * BBUF( BND,LVL ) & * RHOJ_BND( BND,LVL ) END DO ELSE DO BND = 1, NBNDY BCON( BND,VAR ) = CMIN END DO END IF 161 CONTINUE #ifdef verbose_rdbcon if ( lvl .eq. 1 ) then do var = strt, fini sumbc = 0.0 do bnd = 1, nbndy sumbc = sumbc + bcon( bnd,var ) end do write( logdev,'("@@@b ", a, g16.6)') bcname( var ), sumbc end do end if #endif ! Tracer Species STRT = N_GC_TRNS + N_AE_TRNS + N_NR_TRNS + 1 FINI = N_GC_TRNS + N_AE_TRNS + N_NR_TRNS + N_TR_ADV DO 171 VAR = STRT, FINI IF ( ONFILE( VAR ) ) THEN BBUF = 0.0 ! array assignment #ifdef parallel call interpolate_var (BCNAME(VAR), mdate, mtime, BBUF, 'b', lvl) #else call interpolate_var (BCNAME(VAR), mdate, mtime, BBUF, 'b') #endif DO BND = 1, NBNDY BCON( BND,VAR ) = BCFAC( VAR ) * BBUF( BND,LVL ) & * RHOJ_BND( BND,LVL ) END DO ELSE DO BND = 1, NBNDY BCON( BND,VAR ) = CMIN END DO END IF 171 CONTINUE #ifdef verbose_rdbcon if ( lvl .eq. 1 ) then do var = strt, fini sumbc = 0.0 do bnd = 1, nbndy sumbc = sumbc + bcon( bnd,var ) end do write( logdev,'("@@@b ", a, g16.6)') bcname( var ), sumbc end do end if #endif C for advecting Air Density X Jacobian DO BND = 1, NBNDY BCON( BND,N_SPC_ADV ) = RHOJ_BND( BND,LVL ) END DO #ifdef sens C Initialize BSEN as zero, if flag is set for using bc files, use those, C otherwise skip all of this.' BSEN = 0.0 c IF ( BCS ) THEN c DO NP = 1, NPMAX c STRT = 1 c FINI = N_GC_TRNS c DO 241 VAR = STRT, FINI c IF ( ONFILE( VAR ) ) THEN c BBUF = 0.0 ! array assignment c IF ( .NOT. INTERPB( BNDY_SENS_1, S_BCNAME( VAR,NP ), PNAME, c & MDATE, MTIME, NBNDY*NLAYS, BBUF ) ) THEN c XMSG = 'Could not read ' // TRIM( S_BCNAME( VAR,NP ) ) // ' from ' c & // BNDY_SENS_1 c CALL M3EXIT( PNAME, MDATE, MTIME, XMSG, XSTAT1 ) c ELSE ! found bc's (PPM) on file; convert c DO BND = 1, NBNDY c BSEN( BND,VAR,NP ) = BCFAC( VAR ) * BBUF( BND,LVL ) c & * RHOJ_BND( BND,LVL ) c END DO c END IF c ELSE c DO BND = 1, NBNDY c BSEN( BND,VAR,NP ) = 0.0 c END DO c END IF c241 CONTINUE c SPC = 0 c STRT = N_GC_TRNS + 1 c FINI = N_GC_TRNS + N_AE_TRNS c DO 251 VAR = STRT, FINI c SPC = SPC + 1 c IF ( ONFILE( VAR ) ) THEN c BBUF = 0.0 ! array assignment c IF ( .NOT. INTERPB ( BNDY_SENS_1, S_BCNAME( VAR,NP ), PNAME, c & MDATE, MTIME, NBNDY*NLAYS, BBUF ) ) THEN c XMSG = 'Could not read ' // TRIM( S_BCNAME ( VAR,NP ) ) // ' from ' c & // BNDY_SENS_1 c CALL M3EXIT( PNAME, MDATE, MTIME, XMSG, XSTAT1 ) c ELSE ! found bc's (microgram/m**3, m**2/m**3, or number/m**3) c ! on file; convert c IF ( AE_TRNS( SPC )( 1:3 ) .EQ. 'NUM' ) THEN c DO BND = 1, NBNDY c BSEN( BND,VAR,NP ) = BCFAC( VAR ) * BBUF( BND,LVL ) c & * JACOBM_BND( BND,LVL ) c END DO c ELSE IF ( AE_TRNS( SPC )( 1:3 ) .EQ. 'SRF' ) THEN c DO BND = 1, NBNDY c BSEN( BND,VAR,NP ) = BCFAC( VAR ) * BBUF( BND,LVL ) c & * JACOBM_BND( BND,LVL ) c END DO c ELSE c DO BND = 1, NBNDY c BSEN( BND,VAR,NP ) = BCFAC( VAR ) * BBUF( BND,LVL ) * KGPMG c & * JACOBM_BND( BND,LVL ) c END DO c END IF c END IF c ELSE c DO BND = 1, NBNDY c BSEN( BND,VAR,NP ) = 0.0 c END DO c END IF c251 CONTINUE c STRT = N_GC_TRNS + N_AE_TRNS + 1 c FINI = N_GC_TRNS + N_AE_TRNS + N_NR_TRNS c DO 261 VAR = STRT, FINI c IF ( ONFILE( VAR ) ) THEN c BBUF = 0.0 ! array assignment c IF ( .NOT. INTERPB ( BNDY_SENS_1, S_BCNAME( VAR,NP ), PNAME, c & MDATE, MTIME, NBNDY*NLAYS, BBUF ) ) THEN c XMSG = 'Could not read ' // TRIM( S_BCNAME( VAR,NP ) ) // ' from ' c & // BNDY_SENS_1 c CALL M3EXIT( PNAME, MDATE, MTIME, XMSG, XSTAT1 ) c ELSE ! found bc's (PPM) on file; convert c DO BND = 1, NBNDY c BSEN( BND,VAR,NP ) = BCFAC( VAR ) * BBUF( BND,LVL ) c & * RHOJ_BND( BND,LVL ) c END DO c END IF c ELSE c DO BND = 1, NBNDY c BSEN( BND,VAR,NP ) = 0.0 c END DO c END IF c261 CONTINUE c STRT = N_GC_TRNS + N_AE_TRNS + N_NR_TRNS + 1 c FINI = N_GC_TRNS + N_AE_TRNS + N_NR_TRNS + N_TR_ADV c DO 271 VAR = STRT, FINI c IF ( ONFILE( VAR ) ) THEN c BBUF = 0.0 ! array assignment c IF ( .NOT. INTERPB ( BNDY_SENS_1, S_BCNAME( VAR,NP ), PNAME, c & MDATE, MTIME, NBNDY*NLAYS, BBUF ) ) THEN c XMSG = 'Could not read ' // TRIM( S_BCNAME( VAR,NP ) ) // ' from ' c & // BNDY_SENS_1 c CALL M3EXIT( PNAME, MDATE, MTIME, XMSG, XSTAT1 ) c ELSE ! found bc's (PPM) on file; convert c DO BND = 1, NBNDY c BSEN( BND,VAR,NP ) = BCFAC( VAR ) * BBUF( BND,LVL ) c & * RHOJ_BND( BND,LVL ) c END DO c END IF c ELSE c DO BND = 1, NBNDY c BSEN( BND,VAR,NP ) = 0.0 c END DO c END IF c271 CONTINUE c DO BND = 1, NBNDY c BSEN( BND,N_SPC_ADV,NP ) = 0.0 c END DO c END DO c ENDIF #endif RETURN END ================================================ FILE: CCTM/src/hadv/ppm/x_ppm.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE X_PPM ( CGRID, FDATE, FTIME, TSTEP, LVL, BCON ) C----------------------------------------------------------------------- C Function: C Piecewise Parabolic Method advection in the X-direction C Preconditions: C Subroutines and functions called: C Revision history: C 28 Jun 2004: Jeff Young C 1 Nov 06: Jeff Young - Following Glenn Hammond, moved all communication C out of HPPM to this level; using "swap_sandia" communication; update only C local values in the CGRID array within a time step, discarding previous C ghost values. C 11 May 2009: Jeff Young: Simplify - assume constant cell widths, DS( i ) C 11 May 2010: Jeff Young: New hppm fix for PGI compiler by David Wong C 21 Jun 2010: Jeff Young: convert for Namelist redesign C 16 Feb 2011: Shawn Roselle: replaced I/O API include files with UTILIO_DEFN C 19 Oct 2015: Jeff Young: Remove stmnt func to resolve PGI compiler error C 29 Nov 17 David Wong: removed all SWAP routines and replaced with SE_COMM C 16 NOv 2018 S.Napelenok: ISAM implementation C 1 Feb 19 David Wong: removed all MY_N clauses C 11 Dec 19 S.L.Napelenok: ddm-3d implementation for version 5.3.1 C----------------------------------------------------------------------- USE HGRD_DEFN ! horizontal domain specifications USE GRID_CONF, ONLY: NLAYS USE CGRID_SPCS ! CGRID mechanism species USE UTILIO_DEFN USE PA_DEFN, ONLY : BUDGET_DIAG, BUDGET_HPPM USE XY_BUDGET, ONLY : F_WEST_IN, F_WEST_OUT, F_EAST_IN, F_EAST_OUT use CENTRALIZED_IO_MODULE, only : interpolate_var, MSFX2 #ifdef parallel USE SE_MODULES ! stenex (using SE_COMM_MODULE, SE_UTIL_MODULE) #else USE NOOP_MODULES ! stenex (using NOOP_COMM_MODULE, NOOP_UTIL_MODULE) #endif #ifdef isam USE SA_DEFN, Only: ISAM, N_SPCTAG, S_SPCTAG, T_SPCTAG, & TRANSPORT_SPC, BCON_SPC, MAP_ADVtoSA #endif #ifdef sens USE DDM3D_DEFN, ONLY:SENGRID, NPMAX, NP, BSEN, BCS, DATENUM, IPT, IDATE, IPARM, IREGION, CKTIME, STARTDATE #endif IMPLICIT NONE C Includes: INCLUDE SUBST_CONST ! constants INCLUDE SUBST_PE_COMM ! PE communication displacement and direction C Arguments: REAL, POINTER :: CGRID( :,:,:,: ) INTEGER, INTENT( IN ) :: FDATE ! current model date, coded YYYYDDD INTEGER, INTENT( IN ) :: FTIME ! current model time, coded HHMMSS INTEGER, INTENT( IN ) :: TSTEP ! time step (HHMMSS) INTEGER, INTENT( IN ) :: LVL ! layer REAL, INTENT( IN ) :: BCON( :,: ) ! boundary concentrations C External Functions not declared in IODECL3.EXT: REAL, EXTERNAL :: ZFDBC C Parameters: C Advected species dimension INTEGER, SAVE :: N_SPC_ADV ! #ifdef parallel INTEGER, PARAMETER :: SWP = 3 ! #else ! INTEGER, PARAMETER :: SWP = 1 ! #endif C File Variables: REAL UHAT( NCOLS+1,NROWS+1 ) ! x1-component CX-velocity C Local Variables: CHARACTER( 16 ) :: PNAME = 'X_PPM' LOGICAL, SAVE :: FIRSTIME = .TRUE. CHARACTER( 96 ) :: XMSG = ' ' REAL, SAVE :: DX1, DX2, AX ! dx1 (meters), dx2(m), ax(m2) REAL, ALLOCATABLE, SAVE :: VELX( : ), ! Velocities along a row & CONX( :,: ) ! Conc's along a row #ifdef isam REAL, ALLOCATABLE, SAVE :: SA_CONX( :,: ) #endif REAL DT ! TSTEP in sec INTEGER ALLOCSTAT INTEGER, ALLOCATABLE, SAVE :: ADV_MAP( : ) ! global adv map to CGRID CHARACTER( 16 ) :: X1VEL = 'X1VEL' INTEGER COL, ROW, SPC, VAR, I ! loop counters INTEGER A2C REAL :: JACOBM( NCOLS,NROWS,NLAYS ) !"total" Jacobian REAL :: ZF( NCOLS,NROWS,NLAYS ) !Grid cell height REAL, PARAMETER :: MWAIR_SI = 0.02897 ! kg mol-1 REAL :: VOL, VOL2 ! Grid Volume LOGICAL, SAVE :: BNDY_PE_LOX, BNDY_PE_HIX REAL, ALLOCATABLE, SAVE :: F_LO_IN( : ) REAL, ALLOCATABLE, SAVE :: F_LO_OUT( : ) REAL, ALLOCATABLE, SAVE :: F_HI_IN( : ) REAL, ALLOCATABLE, SAVE :: F_HI_OUT( : ) #ifdef parallel INTEGER EAST_COL REAL, ALLOCATABLE, SAVE :: HALO_EAST( :,:,: ) REAL, ALLOCATABLE, SAVE :: HALO_WEST( :,:,: ) REAL, ALLOCATABLE, SAVE :: BUF_EW( :,:,: ) #ifdef isam REAL, ALLOCATABLE, SAVE :: SA_HALO_EAST( :,:,: ) REAL, ALLOCATABLE, SAVE :: SA_HALO_WEST( :,:,: ) REAL, ALLOCATABLE, SAVE :: SA_BUF_EW( :,:,: ) REAL, ALLOCATABLE, SAVE :: SA_F_LO_IN( : ) REAL, ALLOCATABLE, SAVE :: SA_F_LO_OUT( : ) REAL, ALLOCATABLE, SAVE :: SA_F_HI_IN( : ) REAL, ALLOCATABLE, SAVE :: SA_F_HI_OUT( : ) #endif #endif INTEGER, SAVE :: EFX ! fixed parameter for eastern boundary INTEGER, SAVE :: WFX ! fixed parameter for western boundary #ifdef sens LOGICAL TIMEFLAG ! checks if within desired time REAL, ALLOCATABLE, SAVE :: SENX( :,: ) ! Sens along a row REAL, EXTERNAL :: S_ZFDBC ! similar to zfdbc, for sens #ifdef parallel REAL, ALLOCATABLE, SAVE :: S_HALO_EAST( :,:,:,: ) REAL, ALLOCATABLE, SAVE :: S_HALO_WEST( :,:,:,: ) REAL, ALLOCATABLE, SAVE :: S_BUF_EW( :,:,:,: ) #endif #endif C Required interface for allocatable array dummy arguments INTERFACE SUBROUTINE HCONTVEL( FDATE, FTIME, TSTEP, LVL, UORV, UHAT ) INTEGER, INTENT( IN ) :: FDATE, FTIME, TSTEP, LVL CHARACTER( 16 ), INTENT( IN ) :: UORV REAL, INTENT( OUT ) :: UHAT( :,: ) END SUBROUTINE HCONTVEL SUBROUTINE HPPM ( NI, NJ, CON, VEL, DT, DS, ORI, & F_LO_IN, F_LO_OUT, F_HI_IN, F_HI_OUT ) ! #ifdef parallel INTEGER, PARAMETER :: SWP = 3 ! #else ! INTEGER, PARAMETER :: SWP = 1 ! #endif INTEGER, INTENT( IN ) :: NI, NJ REAL, INTENT( INOUT ) :: CON( 1-SWP:,1: ) REAL, INTENT( IN ) :: VEL( : ) REAL, INTENT( IN ) :: DT REAL, INTENT( IN ) :: DS CHARACTER, INTENT( IN ) :: ORI REAL , INTENT( OUT) :: F_LO_IN( : ) REAL , INTENT( OUT) :: F_LO_OUT( : ) REAL , INTENT( OUT) :: F_HI_IN( : ) REAL , INTENT( OUT) :: F_HI_OUT( : ) END SUBROUTINE HPPM END INTERFACE C----------------------------------------------------------------------- IF ( FIRSTIME ) THEN FIRSTIME = .FALSE. EFX = NCOLS + 1 WFX = 2 * NCOLS + NROWS + 4 C Get dx1 from HGRD_DEFN module IF ( GDTYP_GD .EQ. LATGRD3 ) THEN DX1 = DG2M * XCELL_GD & * COS( PI180*( YORIG_GD + YCELL_GD*FLOAT( GL_NROWS/2 ))) ! in m. DX2 = DG2M * YCELL_GD ELSE DX1 = XCELL_GD ! in m. DX2 = YCELL_GD ! in m. END IF AX = DX1 * DX2 ! in m2 N_SPC_ADV = N_GC_TRNS + N_AE_TRNS + N_NR_TRNS + N_TR_ADV + 1 ! add 1 for advecting RHOJ ALLOCATE ( CONX( 1-SWP:NCOLS+SWP,N_SPC_ADV ), #ifdef isam & SA_CONX( 1-SWP:NCOLS+SWP,N_SPCTAG ), ! 20120816 #endif & VELX( NCOLS+1 ), STAT = ALLOCSTAT ) ! Vel along a row IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating VELX, or CONX' CALL M3EXIT ( PNAME, FDATE, FTIME, XMSG, XSTAT1 ) END IF #ifdef isam SA_CONX = 0.0 #endif ALLOCATE ( ADV_MAP( N_SPC_ADV ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating ADV_MAP' CALL M3EXIT ( PNAME, FDATE, FTIME, XMSG, XSTAT1 ) END IF #ifdef parallel ALLOCATE ( HALO_EAST( SWP,NROWS,N_SPC_ADV ), & HALO_WEST( SWP,NROWS,N_SPC_ADV ), & BUF_EW ( SWP,NROWS,N_SPC_ADV ), #ifdef isam & SA_HALO_EAST( SWP,NROWS,N_SPCTAG ), & SA_HALO_WEST( SWP,NROWS,N_SPCTAG ), & SA_BUF_EW ( SWP,NROWS,N_SPCTAG ), #endif & STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating HALO_EAST, HALO_WEST, or BUF_EW' CALL M3EXIT ( PNAME, FDATE, FTIME, XMSG, XSTAT1 ) END IF HALO_EAST = 0.0 ! array HALO_WEST = 0.0 ! array BUF_EW = 0.0 ! array #ifdef isam SA_HALO_EAST = 0.0 ! KRT array SA_HALO_WEST = 0.0 ! KRT array SA_BUF_EW = 0.0 ! KRT array #endif #endif #ifdef sens ALLOCATE ( SENX( 1-SWP:NCOLS+SWP,N_SPC_ADV ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating SENX' CALL M3EXIT ( PNAME, FDATE, FTIME, XMSG, XSTAT1 ) END IF #ifdef parallel ALLOCATE ( S_HALO_EAST( SWP,NROWS,N_SPC_ADV,NPMAX ), & S_HALO_WEST( SWP,NROWS,N_SPC_ADV,NPMAX ), & S_BUF_EW ( SWP,NROWS,N_SPC_ADV,NPMAX ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = & 'Failure allocating S_HALO_EAST, S_HALO_WEST, or S_BUF_EW' CALL M3EXIT ( PNAME, FDATE, FTIME, XMSG, XSTAT1 ) END IF S_HALO_EAST = 0.0 ! array S_HALO_WEST = 0.0 ! array S_BUF_EW = 0.0 ! array #endif #endif C Create global map to CGRID SPC = 0 DO VAR = 1, N_GC_TRNS SPC = SPC + 1 ADV_MAP( SPC ) = GC_STRT - 1 + GC_TRNS_MAP( VAR ) END DO DO VAR = 1, N_AE_TRNS SPC = SPC + 1 ADV_MAP( SPC ) = AE_STRT - 1 + AE_TRNS_MAP( VAR ) END DO DO VAR = 1, N_NR_TRNS SPC = SPC + 1 ADV_MAP( SPC ) = NR_STRT - 1 + NR_TRNS_MAP( VAR ) END DO DO VAR = 1, N_TR_ADV SPC = SPC + 1 ADV_MAP( SPC ) = TR_STRT - 1 + TR_ADV_MAP( VAR ) END DO ADV_MAP( N_SPC_ADV ) = RHOJ_LOC CALL SUBST_HI_LO_BND_PE ( 'C', BNDY_PE_LOX, BNDY_PE_HIX ) ! Allocate FLuxes for Budget Tool ALLOCATE( F_LO_IN(N_SPC_ADV), & F_LO_OUT(N_SPC_ADV), & F_HI_IN(N_SPC_ADV), & F_HI_OUT(N_SPC_ADV) ) #ifdef isam ALLOCATE( SA_F_LO_IN(N_SPCTAG), & SA_F_LO_OUT(N_SPCTAG), & SA_F_HI_IN(N_SPCTAG), & SA_F_HI_OUT(N_SPCTAG) ) #endif END IF ! if firstime DT = FLOAT ( TIME2SEC ( TSTEP ) ) #ifdef sens ! index that will be used by IDATE DATENUM = 1 + FDATE - STARTDATE #endif C Do the computation for x advection C Get the contravariant x1 velocity component CALL HCONTVEL ( FDATE, FTIME, TSTEP, LVL, X1VEL, UHAT ) CALL SUBST_COMM (UHAT, DSPL_N0_E1_S0_W0, DRCN_E) #ifdef parallel EAST_COL = NCOLS - SWP DO SPC = 1, N_SPC_ADV A2C = ADV_MAP( SPC ) DO ROW = 1, NROWS DO COL = 1, SWP HALO_WEST( COL,ROW,SPC ) = CGRID( COL,ROW,LVL,A2C ) HALO_EAST( COL,ROW,SPC ) = CGRID( EAST_COL+COL,ROW,LVL,A2C ) BUF_EW( COL,ROW,SPC ) = HALO_EAST( COL,ROW,SPC ) #ifdef sens DO NP = 1, NPMAX S_HALO_WEST( COL,ROW,SPC,NP ) = SENGRID( COL,ROW,LVL,NP,A2C ) S_HALO_EAST( COL,ROW,SPC,NP ) = SENGRID( EAST_COL+COL,ROW,LVL,NP,A2C ) S_BUF_EW( COL,ROW,SPC,NP ) = S_HALO_EAST( COL,ROW,SPC,NP ) END DO #endif END DO END DO END DO CALL SUBST_COMM (HALO_WEST, HALO_EAST, DSPL_N0_E1_S0_W0, DRCN_E) CALL SUBST_COMM (BUF_EW, HALO_WEST, DSPL_N0_E0_S0_W1, DRCN_W) #ifdef sens DO NP = 1, NPMAX CALL SUBST_COMM( S_HALO_WEST(:,:,:,NP), S_HALO_EAST(:,:,:,NP), & DSPL_N0_E1_S0_W0, DRCN_E ) CALL SUBST_COMM( S_BUF_EW(:,:,:,NP), S_HALO_WEST(:,:,:,NP), & DSPL_N0_E0_S0_W1, DRCN_W ) END DO #endif #ifdef isam DO SPC = 1, N_SPCTAG IF( TRANSPORT_SPC( SPC ) )THEN DO ROW = 1, NROWS DO COL = 1, SWP SA_HALO_WEST( COL,ROW,SPC ) = & ISAM( COL,ROW,LVL,S_SPCTAG( SPC ),T_SPCTAG ( SPC ) ) SA_HALO_EAST( COL,ROW,SPC ) = & ISAM( EAST_COL+COL,ROW,LVL,S_SPCTAG( SPC ),T_SPCTAG( SPC ) ) SA_BUF_EW( COL,ROW,SPC ) = SA_HALO_EAST( COL,ROW,SPC ) END DO END DO END IF END DO CALL SUBST_COMM (SA_HALO_WEST, SA_HALO_EAST, DSPL_N0_E1_S0_W0, DRCN_E) CALL SUBST_COMM (SA_BUF_EW, SA_HALO_WEST, DSPL_N0_E0_S0_W1, DRCN_W) #endif #endif DO 233 ROW = 1, NROWS DO COL = 1, NCOLS+1 VELX( COL ) = UHAT( COL,ROW ) END DO DO SPC = 1, N_SPC_ADV A2C = ADV_MAP( SPC ) DO COL = 1, NCOLS CONX( COL,SPC ) = CGRID( COL,ROW,LVL,A2C ) END DO #ifdef parallel DO COL = 1, SWP CONX( COL-SWP,SPC ) = HALO_WEST( COL,ROW,SPC ) CONX( NCOLS+COL,SPC ) = HALO_EAST( COL,ROW,SPC ) END DO #endif C West boundary IF ( BNDY_PE_LOX ) THEN IF ( VELX( 1 ) .LT. 0.0 ) THEN ! outflow CONX( 1-SWP:0,SPC ) = & ZFDBC ( CONX( 1,SPC ), CONX( 2,SPC ), & VELX( 1 ), VELX( 2 ) ) ELSE ! inflow CONX( 1-SWP:0,SPC ) = BCON( WFX+ROW,SPC ) END IF END IF C East boundary IF ( BNDY_PE_HIX ) THEN IF ( VELX( NCOLS+1 ) .GT. 0.0 ) THEN ! outflow CONX( NCOLS+1:NCOLS+SWP,SPC ) = & ZFDBC ( CONX( NCOLS,SPC ), CONX( NCOLS-1,SPC ), & VELX( NCOLS+1 ), VELX( NCOLS ) ) ELSE ! inflow CONX( NCOLS+1:NCOLS+SWP,SPC ) = BCON( EFX+ROW,SPC ) END IF END IF END DO #ifdef isam DO SPC = 1, N_SPCTAG IF( TRANSPORT_SPC( SPC ) )THEN DO COL = 1, NCOLS SA_CONX( COL, SPC ) = ISAM( COL,ROW,LVL,S_SPCTAG( SPC ),T_SPCTAG( SPC ) ) END DO #ifdef parallel DO COL = 1, SWP SA_CONX( COL-SWP,SPC ) = SA_HALO_WEST( COL,ROW,SPC ) SA_CONX( NCOLS+COL,SPC ) = SA_HALO_EAST( COL,ROW,SPC ) END DO #endif C West boundary IF ( BNDY_PE_LOX ) THEN IF ( VELX( 1 ) .LT. 0.0 ) THEN ! outflow SA_CONX( 1-SWP:0,SPC ) = & ZFDBC( SA_CONX( 1,SPC ), SA_CONX( 2,SPC ), VELX( 1 ), VELX( 2 ) ) ELSE ! inflow IF ( BCON_SPC( SPC ) ) THEN SA_CONX( 1-SWP:0,SPC ) = BCON( WFX+ROW,MAP_ADVtoSA( SPC ) ) ELSE ! non-bcon tags ? SA_CONX( 1-SWP:0,SPC ) = 0.0 END IF END IF ! velx < 0 ? END IF ! bndy_pe_lox ? C East boundary IF ( BNDY_PE_HIX ) THEN IF ( VELX( NCOLS+1 ) .GT. 0.0 ) THEN ! outflow SA_CONX( NCOLS+1:NCOLS+SWP,SPC ) = & ZFDBC ( SA_CONX( NCOLS,SPC ), SA_CONX( NCOLS-1,SPC ), & VELX( NCOLS+1 ), VELX( NCOLS ) ) ELSE ! inflow IF ( BCON_SPC( SPC ) ) THEN SA_CONX( NCOLS+1:NCOLS+SWP,SPC ) = BCON( EFX+ROW, MAP_ADVtoSA( SPC ) ) ELSE ! non-bcon tags ? SA_CONX( NCOLS+1:NCOLS+SWP,SPC ) = 0.0 END IF END IF ! velx > 0 ? END IF ! bndy_pe_hix ? END IF END DO ! SPC loop #endif C PPM scheme F_LO_IN = 0. F_LO_OUT= 0. F_HI_IN = 0. F_HI_OUT= 0. IF ( BUDGET_DIAG ) BUDGET_HPPM = .TRUE. CALL HPPM ( NCOLS, NROWS, CONX, VELX, DT, DX1, 'C', & F_LO_IN, F_LO_OUT, F_HI_IN, F_HI_OUT ) ! Store Boundary Fluxes for Budget Diagnostic ! Flux units are converted: ! vapors: [Jacobian x rho] x [ppm] --> umol ! aerosol mass: [Jacobian] x [kg m-3] --> kg ! aerosol number: [Jacobian] x [N m-3] --> N ! aerosol surface area: [Jacobian] x [m2 m-3] --> m2 IF ( BUDGET_HPPM ) THEN IF ( BNDY_PE_LOX ) THEN call interpolate_var ('JACOBM', fdate, ftime, JACOBM) call interpolate_var ('ZF', fdate, ftime, ZF) IF ( LVL .EQ. 1 ) THEN VOL = AX * ZF( 1,ROW,1 ) / MSFX2( 1,ROW ) ELSE VOL = AX * ( ZF( 1,ROW,LVL ) - ZF( 1,ROW,LVL-1 ) ) / MSFX2(1,ROW) END IF DO I = 1,N_SPC_ADV A2C = ADV_MAP( I ) VOL2 = VOL IF ( .NOT. CGRID_MASK_AERO( A2C ) ) VOL2 = VOL / MWAIR_SI F_WEST_IN( LVL,A2C ) = F_WEST_IN( LVL,A2C ) & + F_LO_IN(I) / JACOBM( 1,ROW,LVL ) * VOL2 F_WEST_OUT( LVL,A2C ) = F_WEST_OUT( LVL,A2C ) & + F_LO_OUT(I) / JACOBM( 1,ROW,LVL ) * VOL2 END DO END IF IF ( BNDY_PE_HIX ) THEN call interpolate_var ('JACOBM', fdate, ftime, JACOBM) call interpolate_var ('ZF', fdate, ftime, ZF) IF ( LVL .EQ. 1 ) THEN VOL = AX * ZF( NCOLS,ROW,1 ) / MSFX2(NCOLS,ROW) ELSE VOL = AX * (ZF( NCOLS,ROW,LVL ) - ZF( NCOLS,ROW,LVL-1 )) / MSFX2(NCOLS,ROW) END IF DO I = 1,N_SPC_ADV A2C = ADV_MAP( I ) VOL2 = VOL IF ( .NOT. CGRID_MASK_AERO( A2C ) ) VOL2 = VOL / MWAIR_SI F_EAST_IN( LVL,A2C ) = F_EAST_IN( LVL,A2C ) & + F_HI_IN(I) / JACOBM( NCOLS,ROW,LVL ) * VOL2 F_EAST_OUT( LVL,A2C ) = F_EAST_OUT( LVL,A2C ) & + F_HI_OUT(I) / JACOBM( NCOLS,ROW,LVL ) * VOL2 END DO END IF BUDGET_HPPM = .FALSE. END IF #ifdef isam CALL HPPM ( NCOLS, NROWS, SA_CONX, VELX, DT, DX1, 'C', & SA_F_LO_IN, SA_F_LO_OUT, SA_F_HI_IN, SA_F_HI_OUT ) #endif DO SPC = 1, N_SPC_ADV A2C = ADV_MAP( SPC ) DO COL = 1, NCOLS CGRID( COL,ROW,LVL,A2C ) = CONX( COL,SPC ) END DO END DO #ifdef isam DO SPC = 1, N_SPCTAG IF( TRANSPORT_SPC( SPC ) )THEN DO COL = 1, NCOLS ISAM( COL,ROW,LVL,S_SPCTAG( SPC ),T_SPCTAG( SPC ) ) = SA_CONX( COL,SPC ) END DO END IF END DO #endif #ifdef sens DO NP = 1, NPMAX CALL CKTIME( FDATE,FTIME,NP,TIMEFLAG) ! Check if the current time is within the time range DO SPC = 1, N_SPC_ADV A2C = ADV_MAP( SPC ) DO COL = 1, NCOLS SENX( COL,SPC ) = SENGRID( COL,ROW,LVL,NP,A2C ) END DO #ifdef parallel DO COL = 1, SWP SENX( COL-SWP,SPC ) = S_HALO_WEST( COL,ROW,SPC,NP ) SENX( NCOLS+COL,SPC ) = S_HALO_EAST( COL,ROW,SPC,NP ) END DO #endif C West boundary IF ( BNDY_PE_LOX ) THEN IF ( VELX( 1 ) .LT. 0.0 ) THEN ! outflow IF ( CONX( 0, SPC ) .EQ. 0.0 ) THEN SENX( 1-SWP:0, SPC ) = 0.0 ELSE ! Zero-flux divergence boundary condition for sens SENX( 1-SWP:0,SPC ) = & S_ZFDBC ( SENX( 1,SPC ), SENX( 2,SPC ), & VELX( 1 ), VELX( 2 ) ) END IF ELSE ! inflow IF ( BCS ) THEN SENX( 1-SWP:0,SPC ) = BSEN( WFX+ROW,SPC,NP ) ELSE IF ( ( IPT( NP ) .EQ. 2 ) .AND. ( TIMEFLAG ) ) THEN ! Insert boundary condition to SEN iff time, date, ! species, and region match and senstype is BOUN SENX( 1-SWP:0,SPC ) = BCON( WFX+ROW,SPC ) & * IREGION( 1, ROW, LVL, NP ) & * REAL ( IDATE ( NP, DATENUM ) ) & * REAL ( IPARM ( NP, A2C ) ) ELSE ! Otherwise, set to 0 SENX( 1-SWP:0, SPC ) = 0.0 END IF END IF END IF C East boundary IF ( BNDY_PE_HIX ) THEN IF ( VELX( NCOLS+1 ) .GT. 0.0 ) THEN ! outflow IF ( CONX( NCOLS+1, SPC ) .EQ. 0.0 ) THEN SENX( NCOLS+1:NCOLS+SWP, SPC ) = 0.0 ELSE ! Zero-flux divergence boundary condition for ! sens SENX( NCOLS+1:NCOLS+SWP,SPC ) = & S_ZFDBC ( SENX( NCOLS,SPC ), SENX( NCOLS-1,SPC ), & VELX( NCOLS+1 ), VELX( NCOLS ) ) END IF ELSE ! inflow IF ( BCS ) THEN SENX( NCOLS+1:NCOLS+SWP,SPC ) = BSEN( EFX+ROW,SPC,NP ) ELSE IF ( ( IPT( NP ) .EQ. 2 ) .AND. ( TIMEFLAG ) ) THEN ! Insert boundary condition to SEN iff time, date, ! species, and region match and senstype is BOUN SENX( NCOLS+1:NCOLS+SWP,SPC ) = BCON( EFX+ROW,SPC ) & * IREGION( NCOLS, ROW, LVL, NP ) & * REAL ( IDATE ( NP, DATENUM ) ) & * REAL ( IPARM ( NP, A2C ) ) ELSE SENX( NCOLS+1:NCOLS+SWP,SPC ) = 0.0 END IF END IF END IF END DO C PPM scheme CALL HPPM ( NCOLS, NROWS, SENX, VELX, DT, DX1, 'C', & F_LO_IN, F_LO_OUT, F_HI_IN, F_HI_OUT ) DO SPC = 1, N_SPC_ADV A2C = ADV_MAP( SPC ) DO COL = 1, NCOLS SENGRID( COL,ROW,LVL,NP,A2C ) = SENX( COL,SPC ) END DO END DO END DO ! NP #endif 233 CONTINUE RETURN END ================================================ FILE: CCTM/src/hadv/ppm/xy_budget.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! !----------------------------------------------------------------------- Module XY_BUDGET ! Collects Advection Process Rates ! !----------------------------------------------------------------------- Implicit None SAVE ! These Arrays are sorted in the same manner as CGRID so they may ! be directly applied in modules like Process Analysis and ISAM REAL, ALLOCATABLE :: DELC_XADV ( :,:,:,: ) ! Change in Species due to X Advection REAL, ALLOCATABLE :: DELC_YADV ( :,:,:,: ) ! Change in Species due to Y Advection ! Total burden change at boundaries due to advection. The units are ! moles for gases, grams for particle mass, 1 for particle number, ! and m2 for particle surface area. The conversion total burden ! must be done at this level because of variability in vertical ! grid cell height over the model output time step. REAL, ALLOCATABLE :: F_WEST_IN ( :,: ) ! Mass entering the western boundary REAL, ALLOCATABLE :: F_WEST_OUT ( :,: ) ! Mass leaving the western boundary REAL, ALLOCATABLE :: F_EAST_IN ( :,: ) ! Mass entering the eastern boundary REAL, ALLOCATABLE :: F_EAST_OUT ( :,: ) ! Mass leaving the eastern boundary REAL, ALLOCATABLE :: F_SOUTH_IN ( :,: ) ! Mass entering the southern boundary REAL, ALLOCATABLE :: F_SOUTH_OUT( :,: ) ! Mass leaving the southern boundary REAL, ALLOCATABLE :: F_NORTH_IN ( :,: ) ! Mass entering the northern boundary REAL, ALLOCATABLE :: F_NORTH_OUT( :,: ) ! Mass leaving the northern boundary C----------------------------------------------------------------------- End Module XY_BUDGET ================================================ FILE: CCTM/src/hadv/ppm/y_ppm.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE Y_PPM ( CGRID, FDATE, FTIME, TSTEP, LVL, BCON ) C----------------------------------------------------------------------- C Function: C Piecewise Parabolic Method advection in the Y-direction C Preconditions: C Subroutines and functions called: C Revision history: C 28 Jun 2004: Jeff Young C 1 Nov 06: Jeff Young - Following Glenn Hammond, moved all communication C out of HPPM to this level; using "swap_sandia" communication; update only C local values in the CGRID array within a time step, discarding previous C ghost values. C 11 May 2009: Jeff Young: Simplify - assume constant cell widths, DS( i ) C 11 May 2010: Jeff Young: New hppm fix for PGI compiler by David Wong C 21 Jun 2010: Jeff Young: convert for Namelist redesign C 16 Feb 2011: Shawn Roselle: replaced I/O API include files with UTILIO_DEFN C 19 Oct 2015: Jeff Young: Remove stmnt func to resolve PGI compiler error C 29 Nov 17 David Wong: removed all SWAP routines and replaced with SE_COMM C 16 NOv 2018 S.Napelenok: ISAM implementation C 1 Feb 19 David Wong: removed all MY_N clauses C 11 Dec 19 S.L.Napelenok: ddm-3d implementation for version 5.3.1 C----------------------------------------------------------------------- USE HGRD_DEFN ! horizontal domain specifications USE GRID_CONF, ONLY: NLAYS USE CGRID_SPCS ! CGRID mechanism species USE UTILIO_DEFN USE XY_BUDGET, ONLY : F_NORTH_IN, F_NORTH_OUT, F_SOUTH_IN, F_SOUTH_OUT USE PA_DEFN, ONLY : BUDGET_DIAG, BUDGET_HPPM use CENTRALIZED_IO_MODULE, only : interpolate_var, MSFX2 #ifdef parallel USE SE_MODULES ! stenex (using SE_COMM_MODULE, SE_UTIL_MODULE) #else USE NOOP_MODULES ! stenex (using NOOP_COMM_MODULE, NOOP_UTIL_MODULE) #endif #ifdef isam USE SA_DEFN, Only: ISAM, N_SPCTAG, S_SPCTAG, T_SPCTAG, & TRANSPORT_SPC, BCON_SPC, MAP_ADVtoSA #endif #ifdef sens USE DDM3D_DEFN, ONLY:SENGRID, NPMAX, NP, BSEN, BCS, DATENUM, IPT, IDATE, IPARM, IREGION, CKTIME, STARTDATE #endif IMPLICIT NONE C Includes: INCLUDE SUBST_CONST ! constants INCLUDE SUBST_PE_COMM ! PE communication displacement and direction C Arguments: REAL, POINTER :: CGRID( :,:,:,: ) INTEGER, INTENT( IN ) :: FDATE ! current model date, coded YYYYDDD INTEGER, INTENT( IN ) :: FTIME ! current model time, coded HHMMSS INTEGER, INTENT( IN ) :: TSTEP ! time step (HHMMSS) INTEGER, INTENT( IN ) :: LVL ! layer REAL, INTENT( IN ) :: BCON( :,: ) ! boundary concentrations C External Functions: REAL, EXTERNAL :: ZFDBC C Parameters: C Advected species dimension INTEGER, SAVE :: N_SPC_ADV ! #ifdef parallel INTEGER, PARAMETER :: SWP = 3 ! #else ! INTEGER, PARAMETER :: SWP = 1 ! #endif C File Variables: REAL VHAT( NCOLS+1,NROWS+1 ) ! x1-component CX-velocity C Local Variables: CHARACTER( 16 ) :: PNAME = 'Y_PPM' LOGICAL, SAVE :: FIRSTIME = .TRUE. CHARACTER( 96 ) :: XMSG = ' ' REAL, SAVE :: DX2, DX1, AX ! dx2 (meters), dx1 (m), ax (m2) REAL, ALLOCATABLE, SAVE :: VELY( : ), ! Velocities along a column & CONY( :,: ) ! Conc's along a column #ifdef isam REAL, ALLOCATABLE, SAVE :: SA_CONY( :,: ) #endif REAL DT ! TSTEP in sec INTEGER ALLOCSTAT INTEGER, ALLOCATABLE, SAVE :: ADV_MAP( : ) ! global adv map to CGRID CHARACTER( 16 ) :: X2VEL = 'X2VEL' INTEGER COL, ROW, SPC, VAR, I ! loop counters INTEGER A2C REAL :: JACOBM( NCOLS,NROWS,NLAYS ) !"total" Jacobian REAL :: ZF( NCOLS,NROWS,NLAYS ) !Grid cell height REAL, PARAMETER :: MWAIR_SI = 0.02897 ! kg mol-1 REAL :: VOL, VOL2 ! Grid Volume LOGICAL, SAVE :: BNDY_PE_LOY, BNDY_PE_HIY REAL, ALLOCATABLE, SAVE :: F_LO_IN( : ) REAL, ALLOCATABLE, SAVE :: F_LO_OUT( : ) REAL, ALLOCATABLE, SAVE :: F_HI_IN( : ) REAL, ALLOCATABLE, SAVE :: F_HI_OUT( : ) #ifdef parallel INTEGER NORTH_ROW REAL, ALLOCATABLE, SAVE :: HALO_NORTH( :,:,: ) REAL, ALLOCATABLE, SAVE :: HALO_SOUTH( :,:,: ) REAL, ALLOCATABLE, SAVE :: BUF_NS( :,:,: ) #ifdef isam REAL, ALLOCATABLE, SAVE :: SA_HALO_NORTH( :,:,: ) REAL, ALLOCATABLE, SAVE :: SA_HALO_SOUTH( :,:,: ) REAL, ALLOCATABLE, SAVE :: SA_BUF_NS( :,:,: ) REAL, ALLOCATABLE, SAVE :: SA_F_LO_IN( : ) REAL, ALLOCATABLE, SAVE :: SA_F_LO_OUT( : ) REAL, ALLOCATABLE, SAVE :: SA_F_HI_IN( : ) REAL, ALLOCATABLE, SAVE :: SA_F_HI_OUT( : ) #endif #endif INTEGER, SAVE :: SFX ! fixed parameter for southern boundary INTEGER, SAVE :: NFX ! fixed parameter for northern boundary #ifdef sens LOGICAL TIMEFLAG ! checks if within desired time REAL, ALLOCATABLE, SAVE :: SENY( :,: ) ! Sens along a col REAL, EXTERNAL :: S_ZFDBC ! similar to zfdbc, for sens #ifdef parallel REAL, ALLOCATABLE, SAVE :: S_HALO_NORTH( :,:,:,: ) REAL, ALLOCATABLE, SAVE :: S_HALO_SOUTH( :,:,:,: ) REAL, ALLOCATABLE, SAVE :: S_BUF_NS( :,:,:,: ) #endif #endif C Required interface for allocatable array dummy arguments INTERFACE SUBROUTINE HCONTVEL ( FDATE, FTIME, TSTEP, LVL, UORV, UHAT ) INTEGER, INTENT( IN ) :: FDATE, FTIME, TSTEP, LVL CHARACTER( 16 ), INTENT( IN ) :: UORV REAL, INTENT( OUT ) :: UHAT( :,: ) END SUBROUTINE HCONTVEL SUBROUTINE HPPM ( NI, NJ, CON, VEL, DT, DS, ORI, & F_LO_IN, F_LO_OUT, F_HI_IN, F_HI_OUT ) ! #ifdef parallel INTEGER, PARAMETER :: SWP = 3 ! #else ! INTEGER, PARAMETER :: SWP = 1 ! #endif INTEGER, INTENT( IN ) :: NI, NJ REAL, INTENT( IN OUT ) :: CON( 1-SWP:,1: ) REAL, INTENT( IN ) :: VEL( : ) REAL, INTENT( IN ) :: DT REAL, INTENT( IN ) :: DS CHARACTER, INTENT( IN ) :: ORI REAL , INTENT( OUT) :: F_LO_IN( : ) REAL , INTENT( OUT) :: F_LO_OUT( : ) REAL , INTENT( OUT) :: F_HI_IN( : ) REAL , INTENT( OUT) :: F_HI_OUT( : ) END SUBROUTINE HPPM END INTERFACE C----------------------------------------------------------------------- IF ( FIRSTIME ) THEN FIRSTIME = .FALSE. SFX = 0 NFX = NCOLS + NROWS + 3 C Get dx2 from HGRD_DEFN module IF ( GDTYP_GD .EQ. LATGRD3 ) THEN DX1 = DG2M * XCELL_GD & * COS( PI180*( YORIG_GD + YCELL_GD*FLOAT( GL_NROWS/2 ))) ! in m. DX2 = DG2M * YCELL_GD ! in m. ELSE DX1 = XCELL_GD ! in m. DX2 = YCELL_GD ! in m. END IF AX = DX1 * DX2 N_SPC_ADV = N_GC_TRNS + N_AE_TRNS + N_NR_TRNS + N_TR_ADV + 1 ! add 1 for advecting RHOJ ALLOCATE ( CONY( 1-SWP:NROWS+SWP,N_SPC_ADV ), #ifdef isam & SA_CONY( 1-SWP:NROWS+SWP,N_SPCTAG ), #endif & VELY( NROWS+1 ), STAT = ALLOCSTAT ) ! Vel along a col IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating VELY, or CONY' CALL M3EXIT ( PNAME, FDATE, FTIME, XMSG, XSTAT1 ) END IF #ifdef isam SA_CONY = 0.0 #endif ALLOCATE ( ADV_MAP( N_SPC_ADV ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating ADV_MAP' CALL M3EXIT ( PNAME, FDATE, FTIME, XMSG, XSTAT1 ) END IF #ifdef parallel ALLOCATE ( HALO_NORTH( NCOLS,SWP,N_SPC_ADV ), & HALO_SOUTH( NCOLS,SWP,N_SPC_ADV ), & BUF_NS ( NCOLS,SWP,N_SPC_ADV ), #ifdef isam & SA_HALO_NORTH( NCOLS,SWP,N_SPCTAG ), & SA_HALO_SOUTH( NCOLS,SWP,N_SPCTAG ), & SA_BUF_NS ( NCOLS,SWP,N_SPCTAG ), #endif & STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating HALO_NORTH, HALO_SOUTH, or BUF_NS' CALL M3EXIT ( PNAME, FDATE, FTIME, XMSG, XSTAT1 ) END IF HALO_NORTH = 0.0 ! array HALO_SOUTH = 0.0 ! array BUF_NS = 0.0 ! array #ifdef isam SA_HALO_NORTH = 0.0 ! array SA_HALO_SOUTH = 0.0 ! array SA_BUF_NS = 0.0 ! array #endif #endif #ifdef sens ALLOCATE ( SENY( 1-SWP:NROWS+SWP,N_SPC_ADV ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating SENY' CALL M3EXIT ( PNAME, FDATE, FTIME, XMSG, XSTAT1 ) END IF #ifdef parallel ALLOCATE ( S_HALO_NORTH( NCOLS,SWP,N_SPC_ADV,NPMAX ), & S_HALO_SOUTH( NCOLS,SWP,N_SPC_ADV,NPMAX ), & S_BUF_NS ( NCOLS,SWP,N_SPC_ADV,NPMAX ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = & 'Failure allocating S_HALO_NORTH, S_HALO_SOUTH, or S_BUF_NS' CALL M3EXIT ( PNAME, FDATE, FTIME, XMSG, XSTAT1 ) END IF S_HALO_NORTH = 0.0 ! array S_HALO_SOUTH = 0.0 ! array S_BUF_NS = 0.0 ! array #endif #endif C Create global map to CGRID SPC = 0 DO VAR = 1, N_GC_TRNS SPC = SPC + 1 ADV_MAP( SPC ) = GC_STRT - 1 + GC_TRNS_MAP( VAR ) END DO DO VAR = 1, N_AE_TRNS SPC = SPC + 1 ADV_MAP( SPC ) = AE_STRT - 1 + AE_TRNS_MAP( VAR ) END DO DO VAR = 1, N_NR_TRNS SPC = SPC + 1 ADV_MAP( SPC ) = NR_STRT - 1 + NR_TRNS_MAP( VAR ) END DO DO VAR = 1, N_TR_ADV SPC = SPC + 1 ADV_MAP( SPC ) = TR_STRT - 1 + TR_ADV_MAP( VAR ) END DO ADV_MAP( N_SPC_ADV ) = RHOJ_LOC CALL SUBST_HI_LO_BND_PE ( 'R', BNDY_PE_LOY, BNDY_PE_HIY ) ! Allocate FLuxes for Budget Tool ALLOCATE( F_LO_IN(N_SPC_ADV), & F_LO_OUT(N_SPC_ADV), & F_HI_IN(N_SPC_ADV), & F_HI_OUT(N_SPC_ADV) ) #ifdef isam ALLOCATE( SA_F_LO_IN(N_SPCTAG), & SA_F_LO_OUT(N_SPCTAG), & SA_F_HI_IN(N_SPCTAG), & SA_F_HI_OUT(N_SPCTAG) ) #endif END IF ! if firstime DT = FLOAT ( TIME2SEC ( TSTEP ) ) #ifdef sens ! index that will be used by IDATE DATENUM = 1 + FDATE - STARTDATE #endif C Do the computation for y advection C Get the contravariant x2 velocity component CALL HCONTVEL ( FDATE, FTIME, TSTEP, LVL, X2VEL, VHAT ) CALL SUBST_COMM (VHAT, DSPL_N1_E0_S0_W0, DRCN_N) #ifdef parallel NORTH_ROW = NROWS - SWP DO SPC = 1, N_SPC_ADV A2C = ADV_MAP( SPC ) DO ROW = 1, SWP DO COL = 1, NCOLS HALO_SOUTH( COL,ROW,SPC ) = CGRID( COL,ROW,LVL,A2C ) HALO_NORTH( COL,ROW,SPC ) = CGRID( COL,NORTH_ROW+ROW,LVL,A2C ) BUF_NS( COL,ROW,SPC ) = HALO_NORTH( COL,ROW,SPC ) #ifdef sens DO NP = 1, NPMAX S_HALO_SOUTH( COL,ROW,SPC,NP ) = SENGRID( COL,ROW,LVL,NP,A2C ) S_HALO_NORTH( COL,ROW,SPC,NP ) = SENGRID( COL,NORTH_ROW+ROW,LVL,NP,A2C ) S_BUF_NS( COL,ROW,SPC,NP ) = S_HALO_NORTH( COL,ROW,SPC,NP ) END DO #endif END DO END DO END DO CALL SUBST_COMM (HALO_SOUTH, HALO_NORTH, DSPL_N1_E0_S0_W0, DRCN_N) CALL SUBST_COMM (BUF_NS, HALO_SOUTH, DSPL_N0_E0_S1_W0, DRCN_S) #ifdef sens DO NP = 1, NPMAX CALL SUBST_COMM( S_HALO_SOUTH(:,:,:,NP), S_HALO_NORTH(:,:,:,NP), & DSPL_N1_E0_S0_W0, DRCN_N ) CALL SUBST_COMM( S_BUF_NS(:,:,:,NP), S_HALO_SOUTH(:,:,:,NP), & DSPL_N0_E0_S1_W0, DRCN_S ) END DO #endif #ifdef isam DO SPC = 1, N_SPCTAG IF( TRANSPORT_SPC( SPC ) )THEN DO ROW = 1, SWP DO COL = 1, NCOLS SA_HALO_SOUTH( COL,ROW,SPC ) = & ISAM( COL,ROW,LVL,S_SPCTAG( SPC ),T_SPCTAG( SPC ) ) SA_HALO_NORTH( COL,ROW,SPC ) = & ISAM( COL,NORTH_ROW+ROW,LVL,S_SPCTAG( SPC ),T_SPCTAG( SPC ) ) SA_BUF_NS( COL,ROW,SPC ) = SA_HALO_NORTH( COL,ROW,SPC ) END DO END DO END IF END DO CALL SUBST_COMM (SA_HALO_SOUTH, SA_HALO_NORTH, DSPL_N1_E0_S0_W0, DRCN_N) CALL SUBST_COMM (SA_BUF_NS, SA_HALO_SOUTH, DSPL_N0_E0_S1_W0, DRCN_S) #endif #endif DO 233 COL = 1, NCOLS DO ROW = 1, NROWS+1 VELY( ROW ) = VHAT( COL,ROW ) END DO DO SPC = 1, N_SPC_ADV A2C = ADV_MAP( SPC ) DO ROW = 1, NROWS CONY( ROW,SPC ) = CGRID( COL,ROW,LVL,A2C ) END DO #ifdef parallel DO ROW = 1, SWP CONY( ROW-SWP,SPC ) = HALO_SOUTH( COL,ROW,SPC ) CONY( NROWS+ROW,SPC ) = HALO_NORTH( COL,ROW,SPC ) END DO #endif C South boundary IF ( BNDY_PE_LOY ) THEN IF ( VELY( 1 ) .LT. 0.0 ) THEN ! outflow CONY( 1-SWP:0,SPC) = & ZFDBC ( CONY( 1,SPC ), CONY( 2,SPC ), & VELY( 1 ), VELY( 2 ) ) ELSE ! inflow CONY( 1-SWP:0,SPC ) = BCON( SFX+COL,SPC ) END IF END IF C North boundary IF ( BNDY_PE_HIY ) THEN IF ( VELY( NROWS+1 ) .GT. 0.0 ) THEN ! outflow CONY( NROWS+1:NROWS+SWP,SPC ) = & ZFDBC ( CONY( NROWS,SPC ), CONY( NROWS-1,SPC ), & VELY( NROWS+1 ), VELY( NROWS ) ) ELSE ! inflow CONY( NROWS+1:NROWS+SWP,SPC ) = BCON( NFX+COL,SPC ) END IF END IF END DO #ifdef isam DO SPC = 1, N_SPCTAG IF( TRANSPORT_SPC( SPC ) )THEN DO ROW = 1, NROWS SA_CONY( ROW,SPC ) = ISAM( COL,ROW,LVL,S_SPCTAG( SPC ),T_SPCTAG( SPC ) ) END DO #ifdef parallel DO ROW = 1, SWP SA_CONY( ROW-SWP,SPC ) = SA_HALO_SOUTH( COL,ROW,SPC ) SA_CONY( NROWS+ROW,SPC ) = SA_HALO_NORTH( COL,ROW,SPC ) END DO #endif C South boundary IF ( BNDY_PE_LOY ) THEN IF ( VELY( 1 ) .LT. 0.0 ) THEN ! outflow SA_CONY( 1-SWP:0,SPC ) = & ZFDBC ( SA_CONY( 1,SPC ), SA_CONY( 2,SPC ), VELY( 1 ), VELY( 2 ) ) ELSE ! inflow IF ( BCON_SPC( SPC ) ) THEN SA_CONY( 1-SWP:0,SPC ) = BCON( SFX+COL,MAP_ADVtoSA( SPC ) ) ELSE SA_CONY( 1-SWP:0,SPC ) = 0.0 END IF END IF ! vely < 0 ? END IF ! bndy_pe_loy ? C North boundary IF ( BNDY_PE_HIY ) THEN IF ( VELY( NROWS+1 ) .GT. 0.0 ) THEN ! outflow SA_CONY( NROWS+1:NROWS+SWP,SPC ) = & ZFDBC ( SA_CONY( NROWS,SPC ), SA_CONY( NROWS-1,SPC ), & VELY( NROWS+1 ), VELY( NROWS ) ) ELSE ! inflow IF ( BCON_SPC( SPC ) ) THEN SA_CONY( NROWS+1:NROWS+SWP,SPC ) = BCON( NFX+COL,MAP_ADVtoSA( SPC ) ) ELSE SA_CONY( NROWS+1:NROWS+SWP,SPC ) = 0.0 END IF END IF ! vely > 0 ? END IF ! bndy_pe_hiy ? END IF END DO ! SPC loop #endif C PPM scheme F_LO_IN = 0. F_LO_OUT= 0. F_HI_IN = 0. F_HI_OUT= 0. IF ( BUDGET_DIAG ) BUDGET_HPPM = .TRUE. CALL HPPM ( NROWS, NCOLS, CONY, VELY, DT, DX2, 'R', & F_LO_IN, F_LO_OUT, F_HI_IN, F_HI_OUT ) ! Store Boundary Fluxes for Budget Diagnostic ! Flux units are converted: ! vapors: [Jacobian x rho] x [ppm] --> umol ! aerosol mass: [Jacobian] x [kg m-3] --> kg ! aerosol number: [Jacobian] x [N m-3] --> N ! aerosol surface area: [Jacobian] x [m2 m-3] --> m2 IF ( BUDGET_HPPM ) THEN IF ( BNDY_PE_LOY ) THEN call interpolate_var ('JACOBM', fdate, ftime, JACOBM) call interpolate_var ('ZF', fdate, ftime, ZF) IF ( LVL .EQ. 1 ) THEN VOL = AX * ZF( COL,1,1 ) / MSFX2( COL,1 ) ELSE VOL = AX * ( ZF( COL,1,LVL ) - ZF( COL,1,LVL-1 ) ) / MSFX2(COL,1) END IF DO I = 1,N_SPC_ADV A2C = ADV_MAP( I ) VOL2 = VOL IF ( .NOT. CGRID_MASK_AERO( A2C ) ) VOL2 = VOL / MWAIR_SI F_SOUTH_IN( LVL,A2C ) = F_SOUTH_IN( LVL,A2C ) & + F_LO_IN(I) / JACOBM( COL,1,LVL ) * VOL2 F_SOUTH_OUT( LVL,A2C ) = F_SOUTH_OUT( LVL,A2C ) & + F_LO_OUT(I) / JACOBM( COL,1,LVL ) * VOL2 END DO END IF IF ( BNDY_PE_HIY ) THEN call interpolate_var ('JACOBM', fdate, ftime, JACOBM) call interpolate_var ('ZF', fdate, ftime, ZF) IF ( LVL .EQ. 1 ) THEN VOL = AX * ZF( COL,NROWS,1 ) / MSFX2( COL,NROWS ) ELSE VOL = AX * ( ZF( COL,NROWS,LVL ) - ZF( COL,NROWS,LVL-1 ) ) / MSFX2(COL,NROWS) END IF DO I = 1,N_SPC_ADV A2C = ADV_MAP( I ) VOL2 = VOL IF ( .NOT. CGRID_MASK_AERO( A2C ) ) VOL2 = VOL / MWAIR_SI F_NORTH_IN( LVL,A2C ) = F_NORTH_IN( LVL,A2C ) & + F_HI_IN(I) / JACOBM( COL,NROWS,LVL ) * VOL2 F_NORTH_OUT( LVL,A2C ) = F_NORTH_OUT( LVL,A2C ) & + F_HI_OUT(I) / JACOBM( COL,NROWS,LVL ) * VOL2 END DO END IF BUDGET_HPPM = .FALSE. END IF #ifdef isam CALL HPPM ( NROWS, NCOLS, SA_CONY, VELY, DT, DX2, 'R', & SA_F_LO_IN, SA_F_LO_OUT, SA_F_HI_IN, SA_F_HI_OUT ) #endif DO SPC = 1, N_SPC_ADV A2C = ADV_MAP( SPC ) DO ROW = 1, NROWS CGRID( COL,ROW,LVL,A2C ) = CONY( ROW,SPC ) END DO END DO #ifdef isam DO SPC = 1, N_SPCTAG IF( TRANSPORT_SPC( SPC ) )THEN DO ROW = 1, NROWS ISAM( COL,ROW,LVL,S_SPCTAG( SPC ),T_SPCTAG( SPC ) ) = SA_CONY( ROW,SPC ) END DO END IF END DO #endif #ifdef sens DO NP = 1, NPMAX CALL CKTIME( FDATE,FTIME,NP,TIMEFLAG) ! Check if the current time is within the time range DO SPC = 1, N_SPC_ADV A2C = ADV_MAP( SPC ) DO ROW = 1, NROWS SENY( ROW,SPC ) = SENGRID( COL,ROW,LVL,NP,A2C ) END DO #ifdef parallel DO ROW = 1, SWP SENY( ROW-SWP,SPC ) = S_HALO_SOUTH( COL,ROW,SPC,NP ) SENY( NROWS+ROW,SPC ) = S_HALO_NORTH( COL,ROW,SPC,NP ) END DO #endif C South boundary IF ( BNDY_PE_LOY ) THEN IF ( VELY( 1 ) .LT. 0.0 ) THEN ! outflow IF ( CONY( 0, SPC ) .EQ. 0.0 ) THEN SENY( 1-SWP:0, SPC ) = 0.0 ELSE ! Zero-flux divergence boundary condition for sens SENY( 1-SWP:0,SPC ) = & S_ZFDBC ( SENY( 1,SPC ), SENY( 2,SPC ), & VELY( 1 ), VELY( 2 ) ) END IF ELSE ! inflow IF ( BCS ) THEN SENY( 1-SWP:0,SPC ) = BSEN( SFX+COL,SPC,NP ) ELSE IF ( ( IPT( NP ) .EQ. 2 ) .AND. ( TIMEFLAG ) ) THEN ! Insert boundary condition to SEN iff time, date, ! species, and region match and senstype is BOUN SENY( 1-SWP:0,SPC ) = BCON( SFX+COL,SPC ) & * IREGION( COL, 1, LVL, NP ) & * REAL ( IDATE ( NP, DATENUM ) ) & * REAL ( IPARM ( NP, A2C ) ) ELSE ! Otherwise, set to 0 SENY( 1-SWP:0, SPC ) = 0.0 END IF END IF END IF C North boundary IF ( BNDY_PE_HIY ) THEN IF ( VELY( NROWS+1 ) .GT. 0.0 ) THEN ! outflow IF ( CONY( NROWS+1, SPC ) .EQ. 0.0 ) THEN SENY( NROWS+1:NROWS+SWP, SPC ) = 0.0 ELSE ! Zero-flux divergence boundary condition for sens SENY( NROWS+1:NROWS+SWP,SPC ) = & S_ZFDBC ( SENY( NROWS,SPC ), SENY( NROWS-1,SPC ), & VELY( NROWS+1 ), VELY( NROWS ) ) END IF ELSE ! inflow IF ( BCS ) THEN SENY( NROWS+1:NROWS+SWP,SPC ) = BSEN( NFX+COL,SPC,NP ) ELSE IF ( ( IPT( NP ) .EQ. 2 ) .AND. ( TIMEFLAG ) ) THEN ! Insert boundary condition to SEN iff time, date, ! species, and region match and senstype is BOUN SENY( NROWS+1:NROWS+SWP,SPC ) = BCON( NFX+COL,SPC ) & * IREGION( COL, NROWS, LVL, NP ) & * REAL ( IDATE ( NP, DATENUM ) ) & * REAL ( IPARM ( NP, A2C ) ) ELSE SENY( NROWS+1:NROWS+SWP,SPC ) = 0.0 END IF END IF END IF END DO C PPM scheme CALL HPPM ( NROWS, NCOLS, SENY, VELY, DT, DX2, 'R', & F_LO_IN, F_LO_OUT, F_HI_IN, F_HI_OUT ) DO SPC = 1, N_SPC_ADV A2C = ADV_MAP( SPC ) DO ROW = 1, NROWS SENGRID( COL,ROW,LVL,NP,A2C ) = SENY( ROW,SPC ) END DO END DO END DO ! NP #endif 233 CONTINUE RETURN END ================================================ FILE: CCTM/src/hadv/ppm/zfdbc.f ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: REAL FUNCTION ZFDBC (C1, C2, V1, V2) c Zero Flux Divergence Boundary Condition (See Jon Pleim's JGR (1991) paper) c To eliminate reflections and other boundary anomalies C Problem if V1 is outflow, but V2 is inflow IMPLICIT NONE REAL SMALL PARAMETER (SMALL = 1.0E-03 ) ! for small wind speed (m/s) REAL C1, C2, V1, V2 IF ( ABS( V1 ) .GE. SMALL ) THEN IF ( V1 * V2 .GT. 0.0 ) THEN ZFDBC = MAX (0.0, C1 - V2 / V1 * (C2 - C1)) ELSE ZFDBC = C1 ! nothing changes for wind divergence at edge END IF ELSE ZFDBC = C1 ! nothing changes for small wind speed END IF RETURN END ================================================ FILE: CCTM/src/hdiff/multiscale/deform.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE DEFORM ( JDATE, JTIME, DEFORM3D ) C----------------------------------------------------------------------- C Function: C Computes wind deformation based on the contravariant horizontal C velocity components. C Preconditions: C This routine can be used only for conformal map coordinates C in the horizontal. C Dates and times should be represented YYYYDDD:HHMMSS. C Subroutines and functions called: C INTERP3, M3EXIT, TIME2SEC, SEC2TIME, NEXTIME C Revision history: C C Oct 10, 2000 Initial development (code adapted from hcontvel.F) C Daewon Byun and Avi Lacser C 26 Dec 00 J.Young: GLOBAL_RMAX -> Dave Wong's f90 stenex GLOBAL_MAX C PE_COMM3 -> Dave Wong's f90 stenex COMM C C 11 Jan 01 David Wong: -- Introduced two new local variable LOC_UWIND and C LOC_VWIND: because of INTERP3, The file buffer C UWIND, neccessarily does not have dimensions for C a row ghost region. the same is true for VWIND C with respect to a column ghost region. C -- invoked SE_LOOP_INDEX to compute correct loop C index for the local processor C -- corrected communication pattern for DENSJ C 7 Aug 01 J.Young: dyn alloc - Use HGRD_DEFN; replace INTERP3 with INTERPX C and INTERPB; allocatable arrays C Not developed for other than NTHIK = 1 C 25 MAr 04 G.Hammond: move wind velocity ghost cell updates outside layer C loop. Use SNL "swap3d". C 31 Jan 05 J.Young: dyn alloc - establish both horizontal & vertical C domain specifications in one module C 16 Feb 11 S. Roselle: replaced I/O-API include files w/UTILIO_DEFN C 11 May 11 D.Wong: incorporated twoway model implementation C 28 Jul 11 David Wong: set REVERT to .false. for twoway model case since C buffered file has only two time steps data C 29 Nov 17 David Wong: removed all SWAP routines and replaced with SE_COMM C 01 Feb 19 David Wong: Implemented centralized I/O approach, removed all MY_N C clauses C----------------------------------------------------------------------- USE GRID_CONF ! horizontal & vertical domain specifications USE UTILIO_DEFN #ifdef parallel USE SE_MODULES ! stenex (using SE_GLOBAL_MAX_MODULE, SE_COMM_MODULE) #else USE NOOP_MODULES ! stenex (using NOOP_GLOBAL_MAX_MODULE, NOOP_COMM_MODULE) #endif use CENTRALIZED_IO_MODULE, only : interpolate_var, window IMPLICIT NONE C Includes: INCLUDE SUBST_FILES_ID ! file name parameters INCLUDE SUBST_CONST ! constants INCLUDE SUBST_PE_COMM ! PE communication displacement and direction C Parameters: C Arguments: INTEGER, INTENT( IN ) :: JDATE ! current model date, coded YYYYDDD INTEGER, INTENT( IN ) :: JTIME ! current model time, coded HHMMSS REAL, INTENT( OUT ) :: DEFORM3D( :,:,: ) ! Wind deformation C Parameters: C file variables: REAL DENSJ_BUF( NCOLS,NROWS,NLAYS ) ! Jacobian * air density REAL DENSJ_BND( NBNDY,NLAYS ) ! boundary Jacobian * air density C External Functions: None C local variables: LOGICAL, SAVE :: FIRSTIME = .TRUE. INTEGER, SAVE :: MLAYS INTEGER ROW ! Row index INTEGER COL ! Column index INTEGER LVL ! Layer index INTEGER MDATE ! mid-advection date INTEGER MTIME ! mid-advection time ! INTEGER STEP ! advection time step in seconds INTEGER, SAVE :: LDATE( 3 ) ! last date for data on file INTEGER, SAVE :: LTIME( 3 ) ! last time for data on file LOGICAL REVERT ! recover last time step if true REAL DJ ! temporary Jacobian * air density CHARACTER( 16 ) :: VNAME CHARACTER( 16 ) :: PNAME = 'DEFORM' CHARACTER( 16 ) :: AMSG CHARACTER( 96 ) :: XMSG = ' ' C Jacobian * air density REAL DENSJ ( 0:NCOLS+1,0:NROWS+1,NLAYS ) REAL UWIND ( NCOLS+1, NROWS+1,NLAYS ) ! ContrVar x1-velocity REAL LOC_UWIND( NCOLS+1,0:NROWS+1,NLAYS ) ! local CV x1-velocity REAL VWIND ( NCOLS+1, NROWS+1,NLAYS ) ! ContrVar x2-velocity REAL LOC_VWIND( 0:NCOLS+1, NROWS+1,NLAYS ) ! local CV x2-velocity REAL DUDX ( NCOLS, NROWS ) REAL DUDY ( NCOLS, NROWS ) REAL DVDX ( NCOLS, NROWS ) REAL DVDY ( NCOLS, NROWS ) CHARACTER( 8 ), SAVE :: COMMSTR REAL, SAVE :: DX1, DX2 ! X1 & X2 grid size REAL, SAVE :: RDX1, RDX2 ! inverse of DX1 & DX2 ! REAL, SAVE :: RDX1O2, RDX2O2 ! half of inverse of DX1 & DX2 REAL, SAVE :: RDX1O4, RDX2O4 ! quarter of inverse of DX1 & DX2 REAL UBAR1, UBAR2 ! U average at X point (Avi) REAL VBAR1, VBAR2 ! V average at X point (Avi) REAL DF1, DF2 ! deformation components INTEGER C, R, L ! notations for COL, ROW, LVL INTEGER C1, R1 ! C1 = C+1, R1 = R+1 (Avi) INTEGER C2, R2 ! C2 = C-1, R2 = R-1 (Avi) ! INTEGER C1, R1 ! C1 = MAX(1, C-1), R1 = MAX(1, R-1) (Daewon) ! INTEGER C2, R2 ! C2 = MIN(C+1, NCOLS), R2 = MIN(R+1, NROWS) (DBX) INTEGER COUNT ! Counter for constructing density array. REAL DEFMAX ! max deformation (dianostic) INTEGER MY_TEMP INTEGER, SAVE :: FRSTROW, LASTROW, FRSTCOL, LASTCOL C----------------------------------------------------------------------- IF ( FIRSTIME ) THEN FIRSTIME = .FALSE. MLAYS = SIZE ( DEFORM3D,3 ) CALL LSTEPF( MET_CRO_3D, LDATE( 1 ), LTIME( 1 ) ) ! CALL LSTEPF( MET_BDY_3D, LDATE( 2 ), LTIME( 2 ) ) CALL LSTEPF( MET_DOT_3D, LDATE( 3 ), LTIME( 3 ) ) ! LDATE( 1 ) = MIN( LDATE( 1 ), LDATE( 2 ), LDATE( 3 ) ) ! LTIME( 1 ) = SEC2TIME( MIN( ! & TIME2SEC( LTIME( 1 ) ), ! & TIME2SEC( LTIME( 2 ) ), ! & TIME2SEC( LTIME( 3 ) ) ! & ) ) LDATE( 1 ) = MIN( LDATE( 1 ), LDATE( 3 ) ) LTIME( 1 ) = SEC2TIME( MIN( & TIME2SEC( LTIME( 1 ) ), & TIME2SEC( LTIME( 3 ) ) & ) ) WRITE( COMMSTR,'(4I2)' ) 1, 0, 2, 0 C Get/compute DX1 & DX2 IF ( GDTYP_GD .EQ. LATGRD3 ) THEN DX1 = DG2M * XCELL_GD ! in m. DX2 = DG2M * YCELL_GD * & COS( PI180*( YORIG_GD + YCELL_GD * FLOAT( GL_NROWS/2 ))) !in m ELSE DX1 = XCELL_GD ! in m. DX2 = YCELL_GD ! in m. END IF RDX1 = 1.0 / DX1 RDX2 = 1.0 / DX2 ! RDX1O2 = 0.5 / DX1 ! RDX2O2 = 0.5 / DX2 RDX1O4 = 0.25 / DX1 RDX2O4 = 0.25 / DX2 CALL SUBST_LOOP_INDEX ( 'R', 2, NROWS, -1, MY_TEMP, & FRSTROW, LASTROW ) CALL SUBST_LOOP_INDEX ( 'C', 2, NCOLS, -1, MY_TEMP, & FRSTCOL, LASTCOL ) END IF ! if firstime MDATE = JDATE MTIME = JTIME ! STEP = TIME2SEC( TSTEP ) ! CALL NEXTIME( MDATE, MTIME, SEC2TIME( STEP / 2 ) ) #ifdef twoway REVERT = .FALSE. #else IF ( MDATE .LT. LDATE( 1 ) ) THEN REVERT = .FALSE. ELSE IF ( MDATE .EQ. LDATE( 1 ) ) THEN IF ( MTIME .LE. LTIME( 1 ) ) THEN REVERT = .FALSE. ELSE REVERT = .TRUE. END IF ELSE ! MDATE .GT. LDATE REVERT = .TRUE. END IF #endif IF ( REVERT ) THEN XMSG = 'Current scenario interpolation step not available in all of ' & // TRIM( MET_CRO_3D ) // ', ' & // TRIM( MET_BDY_3D ) // ' and ' & // TRIM( MET_DOT_3D ) CALL M3MESG( XMSG ) ! CALL NEXTIME( MDATE, MTIME, -SEC2TIME( STEP / 2 ) ) WRITE( AMSG,'( 2I8 )' ) LDATE( 1 ), LTIME( 1 ) XMSG = 'Using data for last file step: ' // AMSG CALL M3MESG( XMSG ) MDATE = LDATE( 1 ) MTIME = LTIME( 1 ) END IF C Interpolate Jacobian X Air Density IF ( WINDOW ) THEN call interpolate_var ('DENSA_J', mdate, mtime, DENSJ) ELSE ! need to extend data from bndy file call interpolate_var ('DENSA_J', mdate, mtime, DENSJ_BUF) call interpolate_var ('DENSA_J', mdate, mtime, DENSJ_BND, 'b') C Load DENSJ array DO LVL = 1, MLAYS DO ROW = 1, NROWS DO COL = 1, NCOLS DENSJ( COL,ROW,LVL ) = DENSJ_BUF( COL,ROW,LVL ) END DO END DO END DO C Fill in DENSJ array for boundaries DO LVL = 1, MLAYS COUNT = 0 DO ROW = 0, 0 DO COL = 1, NCOLS + 1 COUNT = COUNT + 1 DENSJ( COL,ROW,LVL ) = DENSJ_BND( COUNT,LVL ) ! South END DO END DO DO ROW = 1, NROWS + 1 DO COL = NCOLS + 1, NCOLS + 1 COUNT = COUNT + 1 DENSJ( COL,ROW,LVL ) = DENSJ_BND( COUNT,LVL ) ! East END DO END DO DO ROW = NROWS + 1, NROWS + 1 DO COL = 0, NCOLS COUNT = COUNT + 1 DENSJ( COL,ROW,LVL ) = DENSJ_BND( COUNT,LVL ) ! North END DO END DO DO ROW = 0, NROWS DO COL = 0, 0 COUNT = COUNT + 1 DENSJ( COL,ROW,LVL ) = DENSJ_BND( COUNT,LVL ) ! West END DO END DO END DO END IF ! WINDOW C Interpolate Contravariant Velocity components (already at flux points) C X Jacobian X Air Density call interpolate_var ('UHAT_JD', mdate, mtime, UWIND) call interpolate_var ('VHAT_JD', mdate, mtime, VWIND) C Obtain flux point values of Jacobian * air density and retrieve C contravariant velocities C create U/RhoJ - update ghost regions for RhoJ CALL SUBST_COMM ( DENSJ, DSPL_N0_E1_S0_W1, DRCN_E_W, COMMSTR ) LOC_UWIND = 0.0 ! array assignment DO LVL = 1, MLAYS DO ROW = 1, NROWS DO COL = 1, NCOLS + 1 DJ = 0.5*( DENSJ( COL,ROW,LVL ) + DENSJ( COL-1,ROW,LVL ) ) LOC_UWIND( COL,ROW,LVL ) = UWIND( COL,ROW,LVL ) / DJ END DO END DO END DO C create V/RhoJ - update ghost regions for RhoJ CALL SUBST_COMM ( DENSJ, DSPL_N1_E0_S1_W0, DRCN_N_S, COMMSTR ) LOC_VWIND = 0.0 ! array assignment DO LVL = 1, MLAYS DO ROW = 1, NROWS + 1 DO COL = 1, NCOLS DJ = 0.5*( DENSJ( COL,ROW,LVL ) + DENSJ( COL,ROW-1,LVL ) ) LOC_VWIND( COL,ROW,LVL ) = VWIND( COL,ROW,LVL ) / DJ END DO END DO END DO C Compute wind deformation C initialize deformation arrays C deformation at all boundary cells are defined to be zero DO L = 1, MLAYS DO R = 1, NROWS + 1 DO C = 1, NCOLS + 1 DEFORM3D( C,R,L ) = 0.0 END DO END DO END DO CALL SUBST_COMM ( LOC_UWIND, DSPL_N1_E1_S1_W0, DRCN_N_NE_SE_S, '2 0' ) CALL SUBST_COMM ( LOC_VWIND, DSPL_N1_E1_S0_W1, DRCN_NE_E_W_NW, '1 0' ) DO 101 L = 1, MLAYS DEFMAX = 0.0 C initialize wind shear components (inner domain only dimensioned) DO R = 1, NROWS DO C = 1, NCOLS DUDX( C,R ) = 0.0 DUDY( C,R ) = 0.0 DVDX( C,R ) = 0.0 DVDY( C,R ) = 0.0 END DO END DO C ORIGINAL by Daewon October 2000 C Compute gradients only at inner domain ! DO R = 1, NROWS ! DO C = 1, NCOLS ! C1 = MAX( 1,C-1 ) ! R1 = MAX( 1,R-1 ) ! C2 = MIN( C+1,NCOLS ) ! R2 = MIN( R+1,NROWS ) ! DUDX( C,R ) = ( UWIND( C,R,L ) - UWIND( C1,R,L ) ) * RDX1 ! DUDY( C,R ) = ( UWIND( C,R2,L ) - UWIND( C,R1,L ) ) * RDX2O2 ! DVDX( C,R ) = ( VWIND( C2,R,L ) - VWIND( C1,R,L ) ) * RDX1O2 ! DVDY( C,R ) = ( VWIND( C,R,L ) - VWIND( C,R1,L ) ) * RDX2 ! END DO ! END DO C SUGGESTED by Avi October 2000 C for whole domain (DUDX, DVDY) DO R = 1, NROWS R1 = R + 1 DO C = 1, NCOLS C1 = C + 1 DUDX(C,R) = ( LOC_UWIND( C1,R,L ) - LOC_UWIND( C,R,L ) ) * RDX1 DVDY(C,R) = ( LOC_VWIND( C,R1,L ) - LOC_VWIND( C,R,L ) ) * RDX2 END DO END DO 1003 FORMAT( / '@1@Layer', 4X, 'Max Deform', & 5X, 'DUDX(4,5)', & 5X, 'DUDY(4,5)', & 5X, 'DVDX(4,5)', & 5X, 'DVDY(4,5)' ) C for DUDY inside domain (compute the gradient of the averages) DO R = FRSTROW, LASTROW R1 = R + 1 R2 = R - 1 DO C = 1, NCOLS C1 = C + 1 UBAR1 = LOC_UWIND( C,R1,L ) + LOC_UWIND( C1,R1,L ) UBAR2 = LOC_UWIND( C,R2,L ) + LOC_UWIND( C1,R2,L ) DUDY(C,R) = ( UBAR1 - UBAR2 ) * RDX2O4 END DO END DO C for DVDX inner domain (compute the gradient of the averages) DO R = 1, NROWS R1 = R + 1 DO C = FRSTCOL, LASTCOL C1 = C + 1 C2 = C - 1 VBAR1 = LOC_VWIND( C1,R1,L ) + LOC_VWIND( C1,R,L ) VBAR2 = LOC_VWIND( C2,R1,L ) + LOC_VWIND( C2,R,L ) DVDX(C,R) = ( VBAR1 - VBAR2 ) * RDX1O4 END DO END DO C DUDY = 0 for R=1 and NROWS for all NCOLS C DVDX = 0 for C=1 and NCOLS for all NROWS C END of section done by Avi C Deformation only at inner domain DO R = 1, NROWS DO C = 1, NCOLS DF1 = DUDX( C,R ) - DVDY( C,R ) DF2 = DVDX( C,R ) + DUDY( C,R ) DEFORM3D( C,R,L ) = SQRT( DF1 * DF1 + DF2 * DF2 ) DEFMAX = MAX( DEFMAX, DEFORM3D( C,R,L ) ) END DO END DO 1005 FORMAT( '@1@ ', I3, 2X, 5( 1PE14.6 ) ) 101 CONTINUE ! MLAYS RETURN END ================================================ FILE: CCTM/src/hdiff/multiscale/hcdiff3d.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE HCDIFF3D ( JDATE, JTIME, K11BAR, K22BAR, DT ) C----------------------------------------------------------------------- C Function: C Computes the contravariant diffusivities in x1 or x2 directions C using a constant physical horizontal diffusivity. C Preconditions: C This routine can only be used for conformal map coordinates C in the horizontal. C Dates and times should be represented YYYYDDD:HHMMSS. C Subroutines and functions called: C INTERP3, M3EXIT, DEFORM C Revision history: C October 17, 1995 by M. Talat Odman and Clint L. Ingram at NCSC: C created for SAQM-type coordinates C 5 Nov 97 Jeff targetted C Sep. 1998 David Wong C -- parallelize the code C -- use GLOBAL_MAX to compute the global max C 1/19/99 David Wong C -- add a loop_index call C -- change loop index ending point to avoid accessing invalid region. C (reason to do this is to prevent using boundary data from PINTERP, C which sets pseudo-boundary data to 0) C Jul. 8 1999 David Wong C -- replace GLOBAL_MAX with GLOBAL_RMAX for naming consistency C C 10/10/2000 Daewon Byun C -- generalized 3d horizontal diffusivity C 23 Dec 00 J.Young: GLOBAL_RMAX -> Dave Wong's f90 stenex GLOBAL_MAX C PE_COMM3 -> Dave Wong's f90 stenex COMM C 6 Aug 01 J.Young: Use HGRD_DEFN; replace INTERP3 with INTERPX; C allocatable arrays C 31 Jan 05 J.Young: dyn alloc - establish both horizontal & vertical C domain specifications in one module C 16 Feb 11 S. Roselle: replaced I/O-API include files w/UTILIO_DEFN C 03 Aug 11 David Wong: moved DT calculation outside the loop for efficency C purposes C 01 Feb 19 David Wong: Implemented centralized I/O approach, removed all MY_N C clauses C----------------------------------------------------------------------- USE GRID_CONF ! horizontal & vertical domain specifications USE UTILIO_DEFN USE CENTRALIZED_IO_MODULE #ifdef parallel USE SE_MODULES ! stenex (using SE_GLOBAL_MAX_MODULE, SE_COMM_MODULE, ! SE_UTIL_MODULE) #else USE NOOP_MODULES ! stenex (using NOOP_GLOBAL_MAX_MODULE, NOOP_COMM_MODULE, ! NOOP_UTIL_MODULE) #endif IMPLICIT NONE C Includes: INCLUDE SUBST_CONST ! constants INCLUDE SUBST_FILES_ID ! file name parameters INCLUDE SUBST_PE_COMM ! PE communication displacement and direction C Arguments: INTEGER, INTENT( IN ) :: JDATE ! current model date, coded YYYYDDD INTEGER, INTENT( IN ) :: JTIME ! current model time, coded HHMMSS ! Contravariant diffusivity ! REAL K11BAR3D( NCOLS+1,NROWS+1,NLAYS ) ! x1-flux points ! REAL K22BAR3D( NCOLS+1,NROWS+1,NLAYS ) ! x2-flux points REAL, INTENT( OUT ) :: K11BAR( :,:,: ) ! x1-flux points REAL, INTENT( OUT ) :: K22BAR( :,:,: ) ! x2-flux points REAL, INTENT( OUT ) :: DT ! diffusivity time step C Parameters: C Horizontal eddy diffusivity (m^2/s) ! REAL, PARAMETER :: KH = 3.3E+04 ! From Brost et al., J.Geophys.Res., 1988 ! REAL, PARAMETER :: KH = 50.0 ! For 12 km SARMAP simulation as per SAQM REAL, PARAMETER :: KH = 2000.0 ! For 4 km SARMAP simulation as per SAQM REAL, PARAMETER :: KHMIN = 200.0 ! For min KH assigned for deformation REAL, PARAMETER :: DXB = 4000.0 REAL, PARAMETER :: ALP = 0.28 C "Courant" factor = 99%(1/sqrt(2)) ! REAL, PARAMETER :: CFC = 0.700 REAL, PARAMETER :: CFC = 0.300 C local variables: CHARACTER( 16 ) :: PNAME = 'HCDIFF3D' CHARACTER( 96 ) :: XMSG = ' ' LOGICAL, SAVE :: FIRSTIME = .TRUE. INTEGER, SAVE :: MLAYS REAL, SAVE :: DX1, DX2 ! CX x1- and x2-cell widths REAL, SAVE :: KHA ! resolution-adjusted base diffusivity REAL, SAVE :: ACOEF ! ALP**2 * DX1 * DX2 REAL KHD ! Deformation induced KH REAL DEFORM3D( NCOLS+1,NROWS+1,NLAYS ) ! wind deformation REAL EDDYH3D ( NCOLS+1,NROWS+1,NLAYS ) ! Contra. diffusivity REAL EFFKB ! Effective Kbar ! REAL EKHMAX ! max Contra. diffusivity (diagnos) ! REAL MS2MAX ! max squared map scale factor (diagnos) INTEGER ALLOCSTAT INTEGER COL, ROW, LVL ! column,row,level indices INTEGER MY_TEMP INTEGER, SAVE :: STARTROW, ENDROW INTEGER, SAVE :: STARTCOL, ENDCOL INTERFACE SUBROUTINE DEFORM( JDATE, JTIME, DEFORM3D ) INTEGER, INTENT( IN ) :: JDATE, JTIME REAL, INTENT( OUT ) :: DEFORM3D( :,:,: ) END SUBROUTINE DEFORM END INTERFACE C----------------------------------------------------------------------- IF ( FIRSTIME ) THEN FIRSTIME = .FALSE. MLAYS = SIZE ( K11BAR,3 ) CALL SUBST_LOOP_INDEX ( 'R', 1, NROWS, 1, MY_TEMP, STARTROW, ENDROW ) CALL SUBST_LOOP_INDEX ( 'C', 1, NCOLS, 1, MY_TEMP, STARTCOL, ENDCOL ) IF ( GDTYP_GD .EQ. LATGRD3 ) THEN DX1 = DG2M * XCELL_GD ! in m. DX2 = DG2M * YCELL_GD & * COS( PI180*( YORIG_GD + YCELL_GD * FLOAT( GL_NROWS/2 ))) ! in m. ELSE DX1 = XCELL_GD ! in m. DX2 = YCELL_GD ! in m. END IF C Get map scale factor KHA = ( DXB * DXB ) / ( DX1 * DX2 ) * KH ACOEF = ALP * ALP * ( DX1 * DX2 ) END IF ! if firstime C get wind deformation CALL DEFORM ( JDATE, JTIME, DEFORM3D ) EDDYH3D = 0.0 DO LVL = 1, MLAYS ! EKHMAX = 0.0 DO ROW = STARTROW, ENDROW ! DO ROW = 1, NROWS+1 DO COL = STARTCOL, ENDCOL ! DO COL = 1, NCOLS+1 ! EDDYH3D( COL,ROW,LVL ) = MSFD2( COL,ROW ) * ! & ( ACOEF * KHA * DEFORM3D( COL,ROW,LVL ) ! & / ( KHA + ACOEF * DEFORM3D( COL,ROW,LVL ) ) ! & + KHMIN ) ! Daewon prefers the following KHD = MAX( KHMIN, ACOEF * DEFORM3D( COL,ROW,LVL ) ) EDDYH3D( COL,ROW,LVL ) = MSFD2( COL,ROW ) & * KHA * KHD / ( KHA + KHD ) ! EKHMAX = MAX( EKHMAX, EDDYH3D( COL,ROW,LVL ) ) END DO END DO END DO CALL SUBST_COMM ( EDDYH3D, DSPL_N1_E1_S0_W0, DRCN_N_E ) C Obtain flux average values of contravariant diffusivities EFFKB = 0.0 DO LVL = 1, MLAYS DO ROW = 1, NROWS + 1 DO COL = 1, NCOLS + 1 K11BAR( COL,ROW,LVL ) = 0.0 K22BAR( COL,ROW,LVL ) = 0.0 END DO END DO END DO 1003 FORMAT( / '@2@Layer', 5X, 'Time Step', 9X, 'EffKB' ) DO LVL = 1, MLAYS DO ROW = 1, NROWS DO COL = STARTCOL, ENDCOL K11BAR( COL,ROW,LVL ) = 0.5 * ( EDDYH3D( COL,ROW+1,LVL ) & + EDDYH3D( COL,ROW,LVL ) ) END DO END DO DO COL = STARTCOL, ENDCOL K11BAR( COL,NROWS+1,LVL ) = 0.0 END DO DO ROW = STARTROW, ENDROW DO COL = 1, NCOLS K22BAR( COL,ROW,LVL ) = 0.5 * ( EDDYH3D( COL,ROW,LVL ) & + EDDYH3D( COL+1,ROW,LVL ) ) END DO END DO DO ROW = STARTROW, ENDROW K22BAR( NCOLS+1,ROW,LVL ) = 0.0 END DO DO ROW = 1, NROWS DO COL = 1, NCOLS EFFKB = MAX ( EFFKB, & K11BAR( COL,ROW,LVL ), & K22BAR( COL,ROW,LVL ) ) END DO END DO ! DT = CFC * DX1 * DX2 / SUBST_GLOBAL_MAX ( EFFKB ) 1005 FORMAT( '@2@ ', I3, 1X, F18.7, 1X, F12.7 ) END DO ! for LVL DT = CFC * DX1 * DX2 / SUBST_GLOBAL_MAX ( EFFKB ) RETURN END ================================================ FILE: CCTM/src/hdiff/multiscale/hdiff.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE HDIFF ( CGRID, JDATE, JTIME, TSTEP ) C----------------------------------------------------------------------- C Function: C Horizontal diffusion with constant eddy diffusivity - gen. coord. C The process time step is set equal to TSTEP(2). Boundary concentrations C are set using a Dirichlet (no flux) condition C Preconditions: C Dates and times represented YYYYDDD:HHMMSS. C No "skipped" dates and times. All boundary input variables have the C same boundary perimeter structure with a thickness of 1 C CGRID in ppm units or micro-g/m**3, #/m**3 for aerosols C Subroutines and functions called: C TIME2SEC, SEC2TIME, CGRID_MAP, NEXTIME, RHO_J, C HCDIFF3D C Revision history: C Jeff - 5 Nov 97, 1 Jan 98 C DWB - 1 Feb 98, use simple B/C (no conc gradient at domain boundary) C David Wong Sep. 1998 C -- parallelized the code C -- removed the intermediate constant CRHOJ_Q and placed the answer of C the calculation directly into CGRID. Removed the next immediate C loop completely. C David Wong 1/19/99 C -- add a loop_index call C -- change loop index ending point to avoid accessing invalid region. C (reason to do this is to prevent using boundary data from PINTERP, C which sets pseudo-boundary data to 0) C Daewon Byun 10/10/2000 C -- generalized 3d horizontal diffusivity module C -- accomdates 3d hdiff values C 15 Dec 00 J.Young: PE_COMM3 -> Dave Wong's f90 stenex COMM C 6 Aug 01 J.Young: Use HGRD_DEFN C 25 Mar 04 G.Hammond: RK11/RK22 ghost cell updates moved outside main loop; C use explicit boundary arrays for CGRID ghost cells; C use SNL's "swap3d". C 31 Jan 05 J.Young: dyn alloc - establish both horizontal & vertical C domain specifications in one module C 17 Dec 09 J.Young: fix CONC initializing error for sub-cycling timesteps (DO 344) C reported by Talat Odman and Yongtao Hu of GA tech. C 21 Jun 10 J.Young: convert for Namelist redesign C 16 Feb 11 S. Roselle: replaced I/O-API include files w/UTILIO_DEFN C 11 May 11 D.Wong: incorporated twoway model implementation C 29 Nov 17 D.Wong: removed all SWAP routines and replaced with SE_COMM C 18 Nov 18 S. Napelenok: ISAM implementation C 01 Feb 19 David Wong: removed all MY_N clauses C 11 Dec 19 S.L.Napelenok: ddm-3d implementation for version 5.3.1 C----------------------------------------------------------------------- USE GRID_CONF ! horizontal & vertical domain specifications USE CGRID_SPCS ! CGRID mechanism species USE UTILIO_DEFN #ifdef parallel USE SE_MODULES ! stenex (using SE_COMM_MODULE, SE_UTIL_MODULE) #else USE NOOP_MODULES ! stenex (using NOOP_COMM_MODULE, NOOP_UTIL_MODULE) #endif #ifdef isam USE SA_DEFN, Only: ISAM, N_SPCTAG, S_SPCTAG, T_SPCTAG, TRANSPORT_SPC #endif #ifdef sens USE DDM3D_DEFN, ONLY: SENGRID, NPMAX, NP #endif IMPLICIT NONE C Includes: INCLUDE SUBST_CONST ! constants INCLUDE SUBST_PE_COMM ! PE communication displacement and direction C Arguments: REAL, POINTER :: CGRID( :,:,:,: ) INTEGER, INTENT( IN ) :: JDATE ! current model date, coded YYYYDDD INTEGER, INTENT( IN ) :: JTIME ! current model time, coded HHMMSS INTEGER, INTENT( IN ) :: TSTEP( 3 ) ! time step vector (HHMMSS) ! TSTEP(1) = local output step ! TSTEP(2) = sciproc sync. step (chem) ! TSTEP(3) = twoway model time step w.r.t. wrf time ! step and wrf/cmaq call frequency C External Functions: None C Parameters: C Advected species dimension INTEGER, SAVE :: N_SPC_DIFF C File Variables: REAL CONC ( 0:NCOLS+1,0:NROWS+1 ) ! conc working array REAL RHOJ ( 0:NCOLS+1,0:NROWS+1,NLAYS ) ! density X Jacobian CHARACTER( 8 ), SAVE :: COMMSTR ! for both CONC and RHOJ REAL RK11 ( NCOLS+1,NROWS+1,NLAYS ) ! initially used as RHOJ ! at x1 cell face, then finally as 11 eddy diff. factor REAL RK22 ( NCOLS+1,NROWS+1,NLAYS ) ! initially used as RHOJ ! at x2 cell face, then finally as 22 eddy diff. factor REAL K11BAR3D ( NCOLS+1,NROWS+1,NLAYS ) ! ave. Cx11 eddy diff REAL K22BAR3D ( NCOLS+1,NROWS+1,NLAYS ) ! ave. Cx22 eddy diff REAL DT ! diffusion time step REAL CRHOJ_Q ! intermediate, coupled conc. C Local Variables: CHARACTER( 16 ) :: PNAME = 'HDIFF' LOGICAL, SAVE :: FIRSTIME = .TRUE. REAL DX1 ! dx1 (meters) REAL DX2 ! dx2 (meters) REAL, SAVE :: RDX1S ! reciprocal dx1*dx1 REAL, SAVE :: RDX2S ! reciprocal dx2*dx2 REAL DTDX1S ! dt/dx1**2 REAL DTDX2S ! dt/dx2**2 REAL DTSEC ! model time step in seconds INTEGER NSTEPS ! diffusion time steps INTEGER STEP ! FIX dt INTEGER FDATE ! interpolation date INTEGER FTIME ! interpolation time REAL, ALLOCATABLE, SAVE :: HALO_SOUTH( :,:,: ) REAL, ALLOCATABLE, SAVE :: HALO_NORTH( :,:,: ) REAL, ALLOCATABLE, SAVE :: HALO_WEST ( :,:,: ) REAL, ALLOCATABLE, SAVE :: HALO_EAST ( :,:,: ) REAL, ALLOCATABLE, SAVE :: BUF_NS ( :,:,: ) REAL, ALLOCATABLE, SAVE :: BUF_EW ( :,:,: ) INTEGER, ALLOCATABLE, SAVE :: DIFF_MAP( : ) ! global diff map to CGRID INTEGER C, R, L, S, V, N ! loop counters INTEGER D2C, IOS CHARACTER( 96 ) :: XMSG = ' ' INTEGER MY_TEMP INTEGER, SAVE :: STARTROW, ENDROW INTEGER, SAVE :: STARTCOL, ENDCOL #ifdef isam INTEGER JSPCTAG REAL SA_CONC ( 0:NCOLS+1,0:NROWS+1 ) ! sa_conc working array REAL, ALLOCATABLE, SAVE :: SA_HALO_SOUTH( :,:,: ) REAL, ALLOCATABLE, SAVE :: SA_HALO_NORTH( :,:,: ) REAL, ALLOCATABLE, SAVE :: SA_HALO_WEST ( :,:,: ) REAL, ALLOCATABLE, SAVE :: SA_HALO_EAST ( :,:,: ) REAL, ALLOCATABLE, SAVE :: SA_BUF_NS ( :,:,: ) REAL, ALLOCATABLE, SAVE :: SA_BUF_EW ( :,:,: ) #endif #ifdef sens REAL, ALLOCATABLE, SAVE :: S_HALO_SOUTH( :,:,:,: ) ! ( NCOLS,NLAYS,N_SPC_DIFF,NPMAX ) REAL, ALLOCATABLE, SAVE :: S_HALO_NORTH( :,:,:,: ) ! ( NCOLS,NLAYS,N_SPC_DIFF,NPMAX ) REAL, ALLOCATABLE, SAVE :: S_HALO_WEST ( :,:,:,: ) ! ( NROWS,NLAYS,N_SPC_DIFF,NPMAX ) REAL, ALLOCATABLE, SAVE :: S_HALO_EAST ( :,:,:,: ) ! ( NROWS,NLAYS,N_SPC_DIFF,NPMAX ) REAL, ALLOCATABLE, SAVE :: S_BUF_NS ( :,:,:,: ) ! ( NCOLS,NLAYS,N_SPC_DIFF,NPMAX ) REAL, ALLOCATABLE, SAVE :: S_BUF_EW ( :,:,:,: ) ! ( NROWS,NLAYS,N_SPC_DIFF,NPMAX ) REAL SENSWORK ( 0:NCOLS+1,0:NROWS+1,NPMAX ) ! sens working array #endif INTERFACE SUBROUTINE RHO_J ( JDATE, JTIME, TSTEP, RHOJ ) INTEGER, INTENT( IN ) :: JDATE, JTIME, TSTEP( 3 ) REAL, INTENT( OUT ) :: RHOJ( :,:,: ) END SUBROUTINE RHO_J SUBROUTINE HCDIFF3D ( JDATE, JTIME, K11BAR, K22BAR, DT ) INTEGER, INTENT( IN ) :: JDATE, JTIME REAL, INTENT( OUT ) :: K11BAR( :,:,: ), K22BAR( :,:,: ) REAL, INTENT( OUT ) :: DT END SUBROUTINE HCDIFF3D END INTERFACE C----------------------------------------------------------------------- IF ( FIRSTIME ) THEN FIRSTIME = .FALSE. C Get dx1 from COORD include file IF ( GDTYP_GD .EQ. LATGRD3 ) THEN DX1 = DG2M * XCELL_GD & * COS( PI180*( YORIG_GD + YCELL_GD*FLOAT( GL_NROWS/2 ))) ! in m. DX2 = DG2M * YCELL_GD ! in m. ELSE DX1 = XCELL_GD ! in m. DX2 = YCELL_GD ! in m. END IF RDX1S = 1.0 / ( DX1 * DX1 ) RDX2S = 1.0 / ( DX2 * DX2 ) N_SPC_DIFF = N_GC_TRNS + N_AE_TRNS + N_NR_TRNS + N_TR_DIFF ALLOCATE ( HALO_SOUTH( NCOLS,NLAYS,N_SPC_DIFF ), & HALO_NORTH( NCOLS,NLAYS,N_SPC_DIFF ), & HALO_WEST ( NROWS,NLAYS,N_SPC_DIFF ), & HALO_EAST ( NROWS,NLAYS,N_SPC_DIFF ), & BUF_NS ( NCOLS,NLAYS,N_SPC_DIFF ), & BUF_EW ( NROWS,NLAYS,N_SPC_DIFF ), STAT = IOS ) IF ( IOS .NE. 0 ) THEN XMSG = 'Failure allocating HALO_SOUTH, HALO_NORTH, HALO_WEST, HALO_EAST, BUF_NS, or BUF_EW' CALL M3EXIT ( PNAME, FDATE, FTIME, XMSG, XSTAT1 ) END IF #ifdef isam ALLOCATE ( SA_HALO_SOUTH( NCOLS,NLAYS,N_SPCTAG ), & SA_HALO_NORTH( NCOLS,NLAYS,N_SPCTAG ), & SA_HALO_WEST ( NROWS,NLAYS,N_SPCTAG ), & SA_HALO_EAST ( NROWS,NLAYS,N_SPCTAG ), & SA_BUF_NS ( NCOLS,NLAYS,N_SPCTAG ), & SA_BUF_EW ( NROWS,NLAYS,N_SPCTAG ), STAT = IOS ) IF ( IOS .NE. 0 ) THEN XMSG = 'Failure allocating SA_HALO_SOUTH, SA_HALO_NORTH,' & // ' SA_HALO_WEST, SA_HALO_EAST, SA_BUF_NS, or SA_BUF_EW' CALL M3EXIT ( PNAME, FDATE, FTIME, XMSG, XSTAT1 ) END IF #endif #ifdef sens ALLOCATE ( S_HALO_SOUTH( NCOLS,NLAYS,N_SPC_DIFF,NPMAX ), & S_HALO_NORTH( NCOLS,NLAYS,N_SPC_DIFF,NPMAX ), & S_HALO_WEST ( NROWS,NLAYS,N_SPC_DIFF,NPMAX ), & S_HALO_EAST ( NROWS,NLAYS,N_SPC_DIFF,NPMAX ), & S_BUF_NS ( NCOLS,NLAYS,N_SPC_DIFF,NPMAX ), & S_BUF_EW ( NROWS,NLAYS,N_SPC_DIFF,NPMAX ), STAT = IOS ) IF ( IOS .NE. 0 ) THEN XMSG = 'Failure allocating S_HALO_SOUTH, S_HALO_NORTH,' & // ' S_HALO_WEST, S_HALO_EAST, S_BUF_NS, or S_BUF_EW' CALL M3EXIT ( PNAME, FDATE, FTIME, XMSG, XSTAT1 ) END IF #endif ALLOCATE ( DIFF_MAP( N_SPC_DIFF ), STAT = IOS ) IF ( IOS .NE. 0 ) THEN XMSG = 'Failure allocating DIFF_MAP' CALL M3EXIT ( PNAME, FDATE, FTIME, XMSG, XSTAT1 ) END IF C Create global map to CGRID S = 0 DO V = 1, N_GC_TRNS S = S + 1 DIFF_MAP( S ) = GC_STRT - 1 + GC_TRNS_MAP( V ) END DO DO V = 1, N_AE_TRNS S = S + 1 DIFF_MAP( S ) = AE_STRT - 1 + AE_TRNS_MAP( V ) END DO DO V = 1, N_NR_TRNS S = S + 1 DIFF_MAP( S ) = NR_STRT - 1 + NR_TRNS_MAP( V ) END DO DO V = 1, N_TR_DIFF S = S + 1 DIFF_MAP( S ) = TR_STRT - 1 + TR_DIFF_MAP( V ) END DO C Get file start and end indices for subdomain CALL SUBST_LOOP_INDEX ( 'C', 1, NCOLS, 1, MY_TEMP, STARTCOL, ENDCOL ) CALL SUBST_LOOP_INDEX ( 'R', 1, NROWS, 1, MY_TEMP, STARTROW, ENDROW ) WRITE( COMMSTR,'(4I2)' ) 1, 0, 2, 0 END IF ! if firstime DTSEC = FLOAT( TIME2SEC( TSTEP( 2 ) ) ) FDATE = JDATE FTIME = JTIME C Get the computational grid ( rho X Jacobian ) for this step CALL RHO_J ( FDATE, FTIME, TSTEP, RHOJ ) CALL SUBST_COMM ( RHOJ, DSPL_N0_E0_S1_W1, DRCN_S_W, COMMSTR ) C initialize RK11, RK22 with face values for RHOJ (assumes dx1 = dx2) RK11 = 0.0 ! array assignment RK22 = 0.0 ! array assignment DO L = 1, NLAYS DO R = STARTROW, ENDROW ! DO R = 1, NROWS + 1 DO C = STARTCOL, ENDCOL ! DO C = 1, NCOLS + 1 RK11( C,R,L ) = 0.5 * ( RHOJ( C,R,L ) + RHOJ( C-1,R, L ) ) RK22( C,R,L ) = 0.5 * ( RHOJ( C,R,L ) + RHOJ( C, R-1,L ) ) END DO END DO END DO C Do the gridded computation for horizontal diffusion C Get the contravariant eddy diffusivities CALL HCDIFF3D ( FDATE, FTIME, K11BAR3D, K22BAR3D, DT ) C get number of steps based on eddy time NSTEPS = INT ( DTSEC / DT ) + 1 DT = DTSEC / FLOAT( NSTEPS ) DTDX1S = DT * RDX1S DTDX2S = DT * RDX2S DO L = 1, NLAYS DO R = STARTROW, ENDROW ! DO R = 1, NROWS + 1 DO C = STARTCOL, ENDCOL ! DO C = 1, NCOLS + 1 RK11( C,R,L ) = RK11( C,R,L ) * K11BAR3D( C,R,L ) RK22( C,R,L ) = RK22( C,R,L ) * K22BAR3D( C,R,L ) END DO END DO END DO CALL SUBST_COMM ( RK11, DSPL_N0_E1_S0_W0, DRCN_E ) CALL SUBST_COMM ( RK22, DSPL_N1_E0_S0_W0, DRCN_N ) DO S = 1, N_SPC_DIFF D2C = DIFF_MAP( S ) DO L = 1, NLAYS DO C = 1, NCOLS HALO_SOUTH( C,L,S ) = CGRID( C,1,L,D2C ) / RHOJ( C,1,L ) HALO_NORTH( C,L,S ) = CGRID( C,NROWS,L,D2C ) / RHOJ( C,NROWS,L ) BUF_NS( C,L,S ) = HALO_NORTH( C,L,S ) END DO END DO END DO CALL SUBST_COMM (HALO_SOUTH, HALO_NORTH, DSPL_N1_E0_S0_W0, DRCN_N) CALL SUBST_COMM (BUF_NS, HALO_SOUTH, DSPL_N0_E0_S1_W0, DRCN_S) #ifdef sens DO NP = 1, NPMAX DO S = 1, N_SPC_DIFF D2C = DIFF_MAP( S ) DO L = 1, NLAYS DO C = 1, NCOLS S_HALO_SOUTH( C,L,S,NP ) = SENGRID( C,1,L,NP,D2C ) / RHOJ( C,1,L ) S_HALO_NORTH( C,L,S,NP ) = SENGRID( C,NROWS,L,NP,D2C ) / RHOJ( C,NROWS,L ) S_BUF_NS( C,L,S,NP ) = S_HALO_NORTH( C,L,S,NP ) END DO END DO END DO CALL SUBST_COMM (S_HALO_SOUTH(:,:,:,NP), S_HALO_NORTH(:,:,:,NP), & DSPL_N1_E0_S0_W0, DRCN_N) CALL SUBST_COMM (S_BUF_NS(:,:,:,NP), S_HALO_SOUTH(:,:,:,NP), & DSPL_N0_E0_S1_W0, DRCN_S) END DO #endif DO S = 1, N_SPC_DIFF D2C = DIFF_MAP( S ) DO L = 1, NLAYS DO R = 1, NROWS HALO_WEST( R,L,S ) = CGRID( 1,R,L,D2C ) / RHOJ( 1,R,L ) HALO_EAST( R,L,S ) = CGRID( NCOLS,R,L,D2C ) / RHOJ( NCOLS,R,L ) BUF_EW( R,L,S ) = HALO_EAST( R,L,S ) END DO END DO END DO CALL SUBST_COMM (HALO_WEST, HALO_EAST, DSPL_N0_E1_S0_W0, DRCN_E) CALL SUBST_COMM (BUF_EW, HALO_WEST, DSPL_N0_E0_S0_W1, DRCN_W) #ifdef sens DO NP = 1, NPMAX DO S = 1, N_SPC_DIFF D2C = DIFF_MAP( S ) DO L = 1, NLAYS DO R = 1, NROWS S_HALO_WEST( R,L,S,NP ) = SENGRID( 1,R,L,NP,D2C ) / RHOJ( 1,R,L ) S_HALO_EAST( R,L,S,NP ) = SENGRID( NCOLS,R,L,NP,D2C ) / RHOJ( NCOLS,R,L ) S_BUF_EW( R,L,S,NP ) = S_HALO_EAST( R,L,S,NP ) END DO END DO END DO CALL SUBST_COMM (S_HALO_WEST(:,:,:,NP), S_HALO_EAST(:,:,:,NP), & DSPL_N0_E1_S0_W0, DRCN_E) CALL SUBST_COMM (S_BUF_EW(:,:,:,NP), S_HALO_WEST(:,:,:,NP), & DSPL_N0_E0_S0_W1, DRCN_W) END DO #endif #ifdef isam DO JSPCTAG = 1, N_SPCTAG DO L = 1, NLAYS DO C = 1, NCOLS SA_HALO_SOUTH( C,L,JSPCTAG ) = & ISAM( C,1,L,S_SPCTAG( JSPCTAG ),T_SPCTAG( JSPCTAG ) ) / RHOJ( C,1,L ) SA_HALO_NORTH( C,L,JSPCTAG ) = & ISAM( C,NROWS,L,S_SPCTAG( JSPCTAG ),T_SPCTAG( JSPCTAG ) ) / RHOJ( C,NROWS,L ) SA_BUF_NS( C,L,JSPCTAG ) = SA_HALO_NORTH( C,L,JSPCTAG ) END DO END DO END DO CALL SUBST_COMM (SA_HALO_SOUTH, SA_HALO_NORTH, DSPL_N1_E0_S0_W0, DRCN_N) CALL SUBST_COMM (SA_BUF_NS, SA_HALO_SOUTH, DSPL_N0_E0_S1_W0, DRCN_S) DO JSPCTAG = 1, N_SPCTAG DO L = 1, NLAYS DO R = 1, NROWS SA_HALO_WEST( R,L,JSPCTAG ) = & ISAM( 1,R,L,S_SPCTAG( JSPCTAG ),T_SPCTAG( JSPCTAG ) ) / RHOJ( 1,R,L ) SA_HALO_EAST( R,L,JSPCTAG ) = & ISAM( NCOLS,R,L,S_SPCTAG( JSPCTAG ),T_SPCTAG( JSPCTAG ) ) / RHOJ( NCOLS,R,L ) SA_BUF_EW( R,L,JSPCTAG ) = SA_HALO_EAST( R,L,JSPCTAG ) END DO END DO END DO CALL SUBST_COMM (SA_HALO_WEST, SA_HALO_EAST, DSPL_N0_E1_S0_W0, DRCN_E) CALL SUBST_COMM (SA_BUF_EW, SA_HALO_WEST, DSPL_N0_E0_S0_W1, DRCN_W) #endif C Loop over species, layers, nsteps DO 366 S = 1, N_SPC_DIFF D2C = DIFF_MAP( S ) DO 355 L = 1, NLAYS DO 344 N = 1, NSTEPS C Load working array (CGRID is coupled, CONC is mixing ratio) DO R = 1, NROWS DO C = 1, NCOLS CONC( C,R ) = CGRID( C,R,L,D2C ) / RHOJ( C,R,L ) END DO END DO #ifdef sens DO NP = 1, NPMAX DO R = 1, NROWS DO C = 1, NCOLS SENSWORK( C,R,NP ) = SENGRID( C,R,L,NP,D2C ) / RHOJ( C,R,L ) END DO END DO END DO #endif DO C = 1, NCOLS CONC( C,0 ) = HALO_SOUTH( C,L,S ) CONC( C,NROWS+1 ) = HALO_NORTH( C,L,S ) END DO DO R = 1, NROWS CONC( 0,R ) = HALO_WEST( R,L,S ) CONC( NCOLS+1,R ) = HALO_EAST( R,L,S ) END DO #ifdef sens DO NP = 1, NPMAX DO C = 1, NCOLS SENSWORK( C,0,NP ) = S_HALO_SOUTH( C,L,S,NP ) SENSWORK( C,NROWS+1,NP ) = S_HALO_NORTH( C,L,S,NP ) END DO DO R = 1, NROWS SENSWORK( 0,R,NP ) = S_HALO_WEST( R,L,S,NP ) SENSWORK( NCOLS+1,R,NP ) = S_HALO_EAST( R,L,S,NP ) END DO END DO #endif C Update CGRID DO R = 1, NROWS DO C = 1, NCOLS CGRID( C,R,L,D2C ) = RHOJ( C,R,L ) * CONC( C,R ) & + DTDX1S & * ( RK11( C+1,R,L ) & * ( CONC( C+1,R ) - CONC( C,R ) ) & - RK11( C,R,L ) & * ( CONC( C,R ) - CONC( C-1,R ) ) ) & + DTDX2S & * ( RK22( C,R+1,L ) & * ( CONC( C,R+1 ) - CONC( C,R ) ) & - RK22( C,R,L ) & * ( CONC( C,R ) - CONC( C,R-1 ) ) ) #ifdef sens DO NP = 1, NPMAX SENGRID( C,R,L,NP,D2C ) = RHOJ( C,R,L ) * SENSWORK( C,R,NP ) & + DTDX1S & * ( RK11( C+1,R,L ) & * ( SENSWORK( C+1,R,NP ) - SENSWORK( C,R,NP ) ) & - RK11( C,R,L ) & * ( SENSWORK( C,R,NP ) - SENSWORK( C-1,R,NP ))) & + DTDX2S & * ( RK22( C,R+1,L ) & * ( SENSWORK( C,R+1,NP ) - SENSWORK( C,R,NP ) ) & - RK22( C,R,L ) & * ( SENSWORK( C,R,NP ) - SENSWORK( C,R-1,NP ))) END DO #endif END DO END DO 344 CONTINUE 355 CONTINUE 366 CONTINUE #ifdef isam DO 766 JSPCTAG = 1, N_SPCTAG IF( TRANSPORT_SPC( JSPCTAG ) )THEN DO 755 L = 1, NLAYS DO 744 N = 1, NSTEPS C Load working array (ISAM is coupled, SA_CONC is mixing ratio) DO R = 1, NROWS DO C = 1, NCOLS SA_CONC( C,R ) = & ISAM( C,R,L,S_SPCTAG(JSPCTAG),T_SPCTAG(JSPCTAG) ) / RHOJ( C,R,L ) END DO ! C END DO ! R C Fill 4 boundaries of working array SA_CONC: south, north, west, east DO C = 1, NCOLS SA_CONC( C,0 ) = SA_HALO_SOUTH( C,L,JSPCTAG ) SA_CONC( C,NROWS+1 ) = SA_HALO_NORTH( C,L,JSPCTAG ) END DO ! C DO R = 1, NROWS SA_CONC( 0,R ) = SA_HALO_WEST( R,L,JSPCTAG ) SA_CONC( NCOLS+1,R ) = SA_HALO_EAST( R,L,JSPCTAG ) END DO ! R C Update ISAM DO R = 1, NROWS DO C = 1, NCOLS ISAM( C,R,L,S_SPCTAG(JSPCTAG),T_SPCTAG(JSPCTAG) ) = & RHOJ( C,R,L ) * SA_CONC( C,R ) & + DTDX1S & * ( RK11( C+1,R,L ) & * ( SA_CONC( C+1,R ) - SA_CONC( C,R ) ) & - RK11( C,R,L ) & * ( SA_CONC( C,R ) - SA_CONC( C-1,R ) ) ) & + DTDX2S & * ( RK22( C,R+1,L ) & * ( SA_CONC( C,R+1 ) - SA_CONC( C,R ) ) & - RK22( C,R,L ) & * ( SA_CONC( C,R ) - SA_CONC( C,R-1 ) ) ) END DO END DO 744 CONTINUE 755 CONTINUE END IF 766 CONTINUE #endif RETURN 1001 FORMAT( 5X, 'Negative concentrations reset to', 1PE11.3 ) 1003 FORMAT( 1X, 4I7, 9X, 1PE11.3) END ================================================ FILE: CCTM/src/hdiff/multiscale/rho_j.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/CCTM/src/hdiff/multiscale/rho_j.F,v 1.5 2011/10/21 16:11:22 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE RHO_J ( JDATE, JTIME, TSTEP, RHOJI ) C----------------------------------------------------------------------- C Function: C Get Air Density X SqRDMT for computational grid including boundary C where SqRDMT = Sq. Root [det ( metric tensor )] C = Jacobian / (map scale factor)**2 C Preconditions: C Can be used only for conformal map coordinates in the horizontal. C Dates and times should be represented YYYYDDD:HHMMSS. C Subroutines and functions called: C INTERP3, M3EXIT, TIME2SEC, SEC2TIME, NEXTIME, CHECK3 C Revision history: C 5 Nov 97 Jeff C Sep. 1998 David Wong C -- parallelized the code C -- removed the indirect index reference C 6 Aug 01 J.Young: dyn alloc - Use HGRD_DEFN; replace INTERP3 with C INTERPX and INTERPB; allocatable arrays ... C Since F90 does not preserve dummy argument array C indices, RHOJI( 1:NCOLS+2,, ) is copied into local array C RHOJI( 0:NCOLS+1,, ). C The caller of RHO_J dimensions the actual argument, C as RHOJ( 0:NCOLS+1,, ). C NOTE: NTHIK must be = 1 C 31 Jan 05 J.Young: dyn alloc - establish both horizontal & vertical C domain specifications in one module C 16 Feb 11 S. Roselle: replaced I/O-API include files w/UTILIO_DEFN C 11 May 11 D.Wong: incorporated twoway model implementation C 28 Jul 11 David Wong: set REVERT to .false. for twoway model case since C buffered file has only two time steps data C 1 Feb 19 David Wong: Implemented centralized I/O approach, removed all MY_N C clauses C 1 Aug 19 David Wong: Bug fixed -calling interpolate_var use RHOJ rather C than DENSJ_BUF in WINDOW scenario C----------------------------------------------------------------------- USE GRID_CONF ! horizontal & vertical domain specifications USE UTILIO_DEFN use CENTRALIZED_IO_MODULE IMPLICIT NONE C Includes: ! INCLUDE SUBST_HGRD_ID ! horizontal dimensioning parameters ! INCLUDE SUBST_VGRD_ID ! horizontal dimensioning parameters INCLUDE SUBST_FILES_ID ! file name parameters C Parameters C Arguments: INTEGER, INTENT( IN ) :: JDATE ! current model date, coded YYYYDDD INTEGER, INTENT( IN ) :: JTIME ! current model time, coded HHMMSS INTEGER, INTENT( IN ) :: TSTEP( 3 ) ! time step vector (HHMMSS) ! TSTEP(1) = local output step ! TSTEP(2) = sciproc sync. step (chem) ! TSTEP(3) = twoway model time step w.r.t. wrf time ! step and wrf/cmaq call frequency ! REAL RHOJ( 0:NCOLS+1,0:NROWS+1,NLAYS ) ! Jacobian * air density REAL, INTENT( OUT ) :: RHOJI( :,:,: ) C Parameters: ! INTEGER, PARAMETER :: NTHIN = NTHIK - 1 C file variables: ! REAL DENSJ_BUF( NCOLS,NROWS,NLAYS ) ! Jacobian * air density ! REAL DENSJ_BND( NBNDY,NLAYS ) ! boundary Jacobian * air density REAL, ALLOCATABLE :: DENSJ_BUF( :,:,: ) ! Jacobian * air density REAL, ALLOCATABLE :: DENSJ_BND( :,: ) ! boundary Jacobian * air density C External Functions: None C local variables: CHARACTER( 16 ) :: VNAME CHARACTER( 16 ) :: PNAME = 'RHO_J' CHARACTER( 16 ) :: AMSG CHARACTER( 96 ) :: XMSG = ' ' REAL, ALLOCATABLE :: RHOJ( :,:,: ) INTEGER, SAVE :: MLAYS LOGICAL, SAVE :: FIRSTIME = .TRUE. INTEGER ALLOCSTAT INTEGER COL, ROW, LVL ! column, row, layer indices INTEGER MDATE ! mid-advection date INTEGER MTIME ! mid-advection time INTEGER STEP ! advection time step in seconds INTEGER, SAVE :: LDATE( 2 ) ! last date for data on file INTEGER, SAVE :: LTIME( 2 ) ! last time for data on file LOGICAL REVERT ! recover last time step if true INTEGER COUNT INTEGER, SAVE :: LCB, HCB, LRB, HRB ! convenience pointers C----------------------------------------------------------------------- IF ( FIRSTIME ) THEN FIRSTIME = .FALSE. LCB = 1 - NTHIK HCB = NCOLS + NTHIK LRB = 1 - NTHIK HRB = NROWS + NTHIK MLAYS = SIZE ( RHOJI,3 ) CALL LSTEPF( MET_CRO_3D, LDATE( 1 ), LTIME( 1 ) ) ! CALL LSTEPF( MET_BDY_3D, LDATE( 2 ), LTIME( 2 ) ) ! LDATE( 1 ) = MIN( LDATE( 1 ), LDATE( 2 ) ) ! LTIME( 1 ) = SEC2TIME( MIN( ! & TIME2SEC( LTIME( 1 ) ), ! & TIME2SEC( LTIME( 2 ) ) ! & ) ) END IF ! if firstime MDATE = JDATE MTIME = JTIME STEP = TIME2SEC( TSTEP( 2 ) ) CALL NEXTIME( MDATE, MTIME, SEC2TIME( STEP / 2 ) ) #ifdef twoway REVERT = .FALSE. #else IF ( MDATE .LT. LDATE( 1 ) ) THEN REVERT = .FALSE. ELSE IF ( MDATE .EQ. LDATE( 1 ) ) THEN IF ( MTIME .LE. LTIME( 1 ) ) THEN REVERT = .FALSE. ELSE REVERT = .TRUE. END IF ELSE ! MDATE .GT. LDATE REVERT = .TRUE. END IF #endif IF ( REVERT ) THEN XMSG = 'Current scenario interpolation step not available in both ' & // TRIM( MET_CRO_3D ) // 'and ' & // TRIM( MET_BDY_3D ) CALL M3MESG( XMSG ) ! CALL NEXTIME( MDATE, MTIME, -SEC2TIME( STEP / 2 ) ) WRITE( AMSG,'( 2I8 )' ) LDATE( 1 ), LTIME( 1 ) XMSG = 'Using data for last file step: ' // AMSG CALL M3MESG( XMSG ) MDATE = LDATE( 1 ) MTIME = LTIME( 1 ) END IF C Interpolate Jacobian X Air Density ALLOCATE ( RHOJ( LCB:HCB,LRB:HRB,MLAYS ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating RHOJ' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF IF ( WINDOW ) THEN call interpolate_var ('DENSA_J', mdate, mtime, RHOJ) ELSE ! need to extend data from bndy file ALLOCATE ( DENSJ_BUF( ncols,nrows,NLAYS ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating DENSJ_BUF' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF call interpolate_var ('DENSA_J', mdate, mtime, DENSJ_BUF) ALLOCATE ( DENSJ_BND( NBNDY,MLAYS ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating DENSJ_BND' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF call interpolate_var ('DENSA_J', mdate, mtime, DENSJ_BND, 'b') C Load core of RHOJ array DO LVL = 1, MLAYS DO ROW = 1, NROWS DO COL = 1, NCOLS RHOJ( COL,ROW,LVL ) = DENSJ_BUF( COL,ROW,LVL ) END DO END DO END DO C Fill in DENSJ array for boundaries DO LVL = 1, MLAYS COUNT = 0 DO ROW = 1-NTHIK, 0 DO COL = 1, NCOLS+NTHIK COUNT = COUNT + 1 RHOJ( COL,ROW,LVL ) = DENSJ_BND( COUNT,LVL ) ! South END DO END DO DO ROW = 1, NROWS+NTHIK DO COL = NCOLS+1, NCOLS+NTHIK COUNT = COUNT + 1 RHOJ( COL,ROW,LVL ) = DENSJ_BND( COUNT,LVL ) ! East END DO END DO DO ROW = NROWS+1, NROWS+NTHIK DO COL = 1-NTHIK, NCOLS COUNT = COUNT + 1 RHOJ( COL,ROW,LVL ) = DENSJ_BND( COUNT,LVL ) ! North END DO END DO DO ROW = 1-NTHIK, NROWS DO COL = 1-NTHIK, 0 COUNT = COUNT + 1 RHOJ( COL,ROW,LVL ) = DENSJ_BND( COUNT,LVL ) ! West END DO END DO END DO DEALLOCATE ( DENSJ_BUF ) DEALLOCATE ( DENSJ_BND ) END IF ! WINDOW C Adjust for argument offset (f90 dummy arguments assumed 1-based) DO LVL = 1, MLAYS DO ROW = 0, NROWS + 1 DO COL = 0, NCOLS + 1 RHOJI( COL+1,ROW+1,LVL ) = RHOJ( COL,ROW,LVL ) END DO END DO END DO DEALLOCATE ( RHOJ ) RETURN END ================================================ FILE: CCTM/src/init/diffmsg.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/CCTM/src/init/yamo/diffmsg.F,v 1.4 2011/10/21 16:11:23 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% SUBROUTINE DIFFMSG ( VNAME, INT1, INT2 ) C---------------------------------------------------------------------- C Function: To write message for inconsistency between two values C Preconditions: None C Key Subroutines/ unctions Called: C Revision History: Prototype created by Jerry Gipson, September, 1997 C 16 Feb 11 S.Roselle: replaced I/O API include files with UTILIO_DEFN; C removed deprecated TRIMLEN C 04 Apr 11 S.Roselle: updated string blank space removal to use C fortran intrinsic functions C---------------------------------------------------------------------- USE UTILIO_DEFN IMPLICIT NONE C..INCLUDES: None C..ARGUMENTS: CHARACTER(*) VNAME ! Variable Name CHARACTER(*) STR1 ! Value of character variable 1 CHARACTER(*) STR2 ! Value of character variable 2 INTEGER INT1 ! Value of integer variable 1 INTEGER INT2 ! Value of integer variable 2 C..PARAMETERS: None C..EXTERNAL FUNCTIONS: None C..SAVED LOCAL VARIABLES: None C..SCRATCH LOCAL VARIABLES: CHARACTER( 80 ) MSG CHARACTER( 20 ) CHR1 ! Value of variable 1 in character data CHARACTER( 20 ) CHR2 ! Value of variable 1 in character data C---------------------------------------------------------------------- ENTRY INTDIFF ( VNAME, INT1, INT2 ) WRITE( CHR1, 94020 ) INT1 WRITE( CHR2, 94020 ) INT2 MSG = ' Inconsistent values for ' & // TRIM( ADJUSTL( VNAME ) ) // ': ' & // TRIM( ADJUSTL( CHR1 ) ) // ' versus ' & // TRIM( ADJUSTL( CHR2 ) ) CALL M3MESG( MSG ) RETURN ENTRY CHRDIFF ( VNAME, STR1, STR2 ) MSG = ' Inconsistent values for ' & // TRIM( ADJUSTL( VNAME ) ) // ': ' & // TRIM( ADJUSTL( STR1 ) ) // ' versus ' & // TRIM( ADJUSTL( STR2 ) ) CALL M3MESG( MSG ) RETURN 94020 FORMAT(I20) END ================================================ FILE: CCTM/src/init/flcheck.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE FLCHECK ( STDATE, STTIME, TSTEP ) C----------------------------------------------------------------------- C Function: To check file header data for consistency with COORD.EXT C and runlength; only gridded and boundary files are checked. C Preconditions: None C Key Subroutines/Functions Called: C Revision History: Prototype created by Jerry Gipson, September, 1997 C Modified Jun, 1998 by Jerry Gipson to remove PING C and MEPSE files from being checked C Jeff - Nov 2000 - ck only input files for start date/time C 30 Mar 01 J.Young: elim reference to grid C 6 Jul 10 J.Young: minor mods - F90-ize C 16 Feb 11 S.Roselle: replaced I/O API include files with UTILIO_DEFN C 11 May 11 D.Wong: incorporated twoway model implementation C 11 Apr 16 D.Wong: formulated a robust way to handle a situation when C ACONC file with STIME3 = starting time of the simulation, C and the file is emtpy and requires to go through CHECK3 C----------------------------------------------------------------------- USE UTILIO_DEFN USE RUNTIME_VARS, ONLY : LOG_HEADING, LOG_SUBHEADING, LOG_MESSAGE, & RUNLEN, FL_ERR_STOP, LOGDEV IMPLICIT NONE C Includes: INCLUDE SUBST_FILES_ID ! file name parameters C Arguments: INTEGER, INTENT( IN ) :: STDATE ! Current date (YYYYDDD) INTEGER, INTENT( IN ) :: STTIME ! Current time (HHMMSS) INTEGER, INTENT( IN ) :: TSTEP ! Current time step (HHMMSS) C Parameters: None C External Functions: None C Saved Local Variables: None C Local Variables: CHARACTER( 80 ) :: MSG ! Message buffer CHARACTER( 16 ) :: PNAME = 'FLCHECK' ! Procedure name INTEGER JDATE ! Time step date (YYYYDDD) INTEGER JTIME ! Time step time (HHMMSS) INTEGER N ! Loop index INTEGER STATUS ! Status of returned value LOGICAL LERROR ! Flag to indicate error for 1 or more files LOGICAL LOK ! Flag to indicate error for 1 file CHARACTER( 500 ) :: FNAME INTEGER :: LSTAT LOGICAL :: ESTAT C----------------------------------------------------------------------- #ifndef mpas CALL LOG_HEADING( LOGDEV, 'Check Input File Headers' ) LERROR = .FALSE. DO N = 1, N_FILES ! Detect whether or not this filename logical has been set in the run ! script CALL GET_ENVIRONMENT_VARIABLE( NAME = LGCL_NAME( N ), & VALUE = FNAME, STATUS = LSTAT ) ! Check to see if this file already exists INQUIRE( FILE = TRIM( FNAME ), EXIST = ESTAT ) ! skip checking files that were not set in the run script or do ! not exist IF ( LSTAT .LE. 0 .AND. ESTAT ) THEN LOK = OPEN3( LGCL_NAME( N ), FSREAD3, PNAME ) IF ( LOK ) THEN IF ( DESC3( LGCL_NAME( N ) ) ) THEN ! only check gridded or boundary files IF ( FTYPE3D .EQ. GRDDED3 .OR. FTYPE3D .EQ. BNDARY3 ) THEN MSG = 'Checking header data for file: ' // LGCL_NAME( N ) CALL M3MESG( MSG ) CALL GRDCHECK ( LGCL_NAME( N ), LOK ) ! check time steps for time dependent files IF ( TSTEP3D .GT. 0 ) THEN JDATE = STDATE JTIME = STTIME IF ( .NOT. CHECK3( LGCL_NAME( N ), ALLVAR3, & JDATE, JTIME ) ) THEN LOK = .FALSE. MSG = 'Starting time not on file' CALL M3MESG( MSG ) END IF ! skip checking ending time for output files IF ( IN_MODE( N ) ) THEN CALL NEXTIME ( JDATE, JTIME, RUNLEN ) IF ( .NOT. CHECK3( LGCL_NAME( N ), ALLVAR3, & JDATE, JTIME ) ) THEN LOK = .FALSE. MSG = 'Ending time not on file' CALL M3MESG( MSG ) END IF END IF END IF ! if TSTEP3D .GT. 0 IF ( .NOT. LOK ) LERROR = .TRUE. END IF ! only check gridded or boundary files ELSE LOK = .FALSE. MSG = 'DESC3 failed for ' // LGCL_NAME( N ) CALL M3MESG( MSG ) END IF ! DESC3 successful END IF ! successful open END IF ! skip files not set in run script or that don't exist END DO IF ( LERROR ) THEN MSG = 'Inconsistent header data on input files' IF ( FL_ERR_STOP ) THEN CALL M3EXIT ( PNAME, STDATE, STTIME, MSG, XSTAT2 ) ELSE CALL M3WARN ( PNAME, STDATE, STTIME, MSG ) RETURN END IF ELSE CALL LOG_MESSAGE( LOGDEV, 'No inconsistent header data found on input files' ) WRITE( LOGDEV, * ) END IF #endif RETURN END ================================================ FILE: CCTM/src/init/grdcheck.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/CCTM/src/init/yamo/grdcheck.F,v 1.3 2011/10/21 16:11:24 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% SUBROUTINE GRDCHECK ( FNAME, LOK ) C---------------------------------------------------------------------- C Function: To check files and COORD.EXT for consistency C Preconditions: None C Key Subroutines/Functions Called: C Revision History: C Prototype created by Jerry Gipson, September, 1997 C eliminate EMISLYRS, Jeff, Oct 97 C 2 October, 1998 by Al Bourgeois at LM: parallel implementation C 30 Mar 01 J.Young: dyn alloc - Use HGRD_DEFN C 31 Jan 05 J.Young: dyn alloc - establish both horizontal & vertical C domain specifications in one module C 6 Sep 06 J.Young: ensure LNLAYSOK is initialized - Michael Bane's suggestion C 16 Feb 11 S.Roselle: replaced I/O API include files with UTILIO_DEFN C---------------------------------------------------------------------- USE GRID_CONF ! horizontal & vertical domain specifications USE UTILIO_DEFN IMPLICIT NONE C..INCLUDES: INCLUDE SUBST_FILES_ID ! file name parameters C..ARGUMENTS: CHARACTER*(*) FNAME ! File Name LOGICAL LOK ! Flag to indicate error found C..PARAMETERS: None C..EXTERNAL FUNCTIONS: None C..SAVED LOCAL VARIABLES: None C..SCRATCH LOCAL VARIABLES: CHARACTER*20 CHR1 ! Value of variable 1 in character data CHARACTER*20 CHR2 ! Value of variable 1 in character data CHARACTER*80 MSG ! Message INTEGER LAY ! Loop index for layers INTEGER NCOLS_DOT ! No. of columns for a dot file INTEGER NLAYS_FL ! No. of layers expected on 3D file INTEGER NLAYS2CK ! No. of layers to check vertical levels INTEGER NROWS_DOT ! No. of rows for a dot file LOGICAL LDIFF ! Flag for difference in vertical levels LOGICAL LNLAYSOK ! Flag to indicate no. of vert. layers OK REAL*8 XORIG_FL ! Computed XORIG for dot file REAL*8 YORIG_FL ! Computed YORIG for dot file C---------------------------------------------------------------------- ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C Check horizontal grid structure ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc #ifndef mpas C...For DOT files only IF(INDEX( FNAME, '_DOT_' ) .NE. 0 ) THEN IF( GL_NCOLS + 1 .NE. NCOLS3D ) THEN NCOLS_DOT = GL_NCOLS + 1 CALL INTDIFF( 'GL_NCOLS', NCOLS3D, NCOLS_DOT ) LOK = .FALSE. END IF IF( GL_NROWS + 1 .NE. NROWS3D ) THEN NROWS_DOT = GL_NROWS + 1 CALL INTDIFF( 'GL_NROWS', NROWS3D, NROWS_DOT ) LOK = .FALSE. END IF C...Skip PDM files ELSEIF( INDEX( FNAME, 'PDM_' ) .NE. 0) THEN C...Skip PING files ELSEIF( INDEX( FNAME, '_PING_' ) .NE. 0) THEN C...Skip IPR files ELSEIF( INDEX( FNAME, '_IPR_' ) .NE. 0) THEN C...Skip IRR files ELSEIF( INDEX( FNAME, '_IRR_' ) .NE. 0) THEN C...All other files ELSE IF( GL_NCOLS .NE. NCOLS3D ) THEN CALL INTDIFF( 'GL_NCOLS', NCOLS3D, GL_NCOLS ) LOK = .FALSE. END IF IF( GL_NROWS .NE. NROWS3D ) THEN CALL INTDIFF( 'GL_NROWS', NROWS3D, GL_NROWS ) LOK = .FALSE. END IF END IF C...Check Number of vertical layers only for true 3D files LNLAYSOK = .TRUE. IF( INDEX( FNAME, 'PDM_' ) .EQ. 0 .AND. & INDEX( FNAME, '_PING_' ) .EQ. 0 .AND. NLAYS3D .GT. 1 ) THEN IF( INDEX( FNAME, 'EMIS' ) .GT. 0 .OR. & INDEX( FNAME, 'MEPSE' ) .GT. 0 .OR. & INDEX( FNAME, '_IPR_' ) .GT. 0 .OR. & INDEX( FNAME, '_IRR_' ) .GT. 0 ) THEN ! NLAYS_FL = EMISLYRS NLAYS_FL = NLAYS3D ! don't check this file ELSE NLAYS_FL = NLAYS END IF IF( NLAYS_FL .NE. NLAYS3D ) THEN CALL INTDIFF( 'NLAYS', NLAYS3D, NLAYS_FL ) LOK = .FALSE. LNLAYSOK = .FALSE. END IF IF( NTHIK .NE. NTHIK3D ) THEN CALL INTDIFF( 'NTHIK', NTHIK3D, NTHIK ) LOK = .FALSE. END IF END IF ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C Check Map projection ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF( GDTYP_GD .NE. GDTYP3D ) THEN CALL INTDIFF( 'GDTYP', GDTYP_GD, GDTYP3D ) LOK = .FALSE. END IF C...Check P_ALPHA only for Lambert, Mercator, Stereographic and UTM IF( GDTYP_GD .GE. 2 .AND. GDTYP_GD .LE. 5 ) THEN WRITE( CHR1, 94020 ) P_ALP3D WRITE( CHR2, 94020 ) P_ALP_GD IF( CHR1 .NE. CHR2 ) THEN CALL CHRDIFF( 'P_ALP', CHR1, CHR2 ) LOK = .FALSE. END IF END IF C...Check P_BETA only for Lambert, Mercator, and Stereographic IF( GDTYP_GD .GE. 2 .AND. GDTYP_GD .LE. 4 ) THEN WRITE( CHR1, 94020 ) P_BET3D WRITE( CHR2, 94020 ) P_BET_GD IF( CHR1 .NE. CHR2 ) THEN CALL CHRDIFF( 'P_BET', CHR1, CHR2 ) LOK = .FALSE. END IF END IF C...Check P_GAMMA only for Lambert, Mercator, and Stereographic IF( GDTYP_GD .GE. 2 .AND. GDTYP_GD .LE. 4 ) THEN WRITE( CHR1, 94020 ) P_GAM3D WRITE( CHR2, 94020 ) P_GAM_GD IF( CHR1 .NE. CHR2 ) THEN CALL CHRDIFF( 'P_GAM', CHR1, CHR2 ) LOK = .FALSE. END IF END IF ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C Check for horizontal grid location and size ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C...Check XORG & YORG only for Lambert, Mercator, Stereographic and UTM IF( GDTYP_GD .GE. 2 .AND. GDTYP_GD .LE. 5 ) THEN IF( INDEX( FNAME, '_DOT_' ) .GT. 0 ) THEN XORIG_FL = XORIG_GD - 0.5 * XCELL_GD YORIG_FL = YORIG_GD - 0.5 * YCELL_GD ELSE XORIG_FL = XORIG_GD YORIG_FL = YORIG_GD END IF WRITE( CHR1, 94020 ) XORIG3D WRITE( CHR2, 94020 ) XORIG_FL IF( CHR1 .NE. CHR2 ) THEN CALL CHRDIFF( 'XORIG', CHR1, CHR2 ) LOK = .FALSE. END IF WRITE( CHR1, 94020 ) YORIG3D WRITE( CHR2, 94020 ) YORIG_FL IF( CHR1 .NE. CHR2 ) THEN CALL CHRDIFF( 'YORIG', CHR1, CHR2 ) LOK = .FALSE. END IF END IF C...Check XCENT & YCENT only for Lambert, Mercator, and Stereographic IF( GDTYP_GD .GE. 2 .AND. GDTYP_GD .LE. 4 ) THEN WRITE( CHR1, 94020 ) XCENT3D WRITE( CHR2, 94020 ) XCENT_GD IF( CHR1 .NE. CHR2 ) THEN CALL CHRDIFF( 'XCENT', CHR1, CHR2 ) LOK = .FALSE. END IF WRITE( CHR1, 94020 ) YCENT3D WRITE( CHR2, 94020 ) YCENT_GD IF( CHR1 .NE. CHR2 ) THEN CALL CHRDIFF( 'YCENT', CHR1, CHR2 ) LOK = .FALSE. END IF END IF WRITE( CHR1, 94020 ) XCELL3D WRITE( CHR2, 94020 ) XCELL_GD IF( CHR1 .NE. CHR2 ) THEN CALL CHRDIFF( 'XCELL', CHR1, CHR2 ) LOK = .FALSE. END IF WRITE( CHR1, 94020 ) YCELL3D WRITE( CHR2, 94020 ) YCELL_GD IF( CHR1 .NE. CHR2 ) THEN CALL CHRDIFF( 'YCELL', CHR1, CHR2 ) LOK = .FALSE. END IF ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C Check vertical structure (only for "true" 3D files ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF( INDEX( FNAME, 'PDM_' ) .EQ. 0 .AND. & INDEX( FNAME, '_PING_' ) .EQ. 0 .AND. & NLAYS3D .GT. 1 .AND. LNLAYSOK ) THEN IF( VGTYP_GD .NE. VGTYP3D ) THEN CALL INTDIFF( 'VGTYP', VGTYP3D, VGTYP_GD ) LOK = .FALSE. END IF C..Check for vtop for sigma-p coordinates only IF( VGTYP3D .GE. 1 .AND. VGTYP3D .LE. 2 ) THEN WRITE( CHR1, 94020 ) VGTOP3D WRITE( CHR2, 94020 ) VGTOP_GD IF( CHR1 .NE. CHR2 ) THEN CALL CHRDIFF( 'VGTOP', CHR1, CHR2 ) LOK = .FALSE. END IF END IF C..Check vertical levels for 3D files only LDIFF = .FALSE. IF( INDEX( FNAME, 'EMIS' ) .GT. 0 ) THEN ! NLAYS2CK = EMISLYRS NLAYS2CK = NLAYS3D ELSE NLAYS2CK = NLAYS END IF DO LAY = 1 , NLAYS2CK WRITE( CHR1, 94020 ) VGLVS3D( LAY ) WRITE( CHR2, 94020 ) VGLVS_GD( LAY ) IF( CHR1 .NE. CHR2 ) LDIFF = .TRUE. END DO IF( LDIFF ) THEN MSG = ' Inconsistent value for vertical level' CALL M3MESG( MSG ) LOK = .FALSE. END IF END IF #endif RETURN 94020 FORMAT( 1PE20.4 ) END ================================================ FILE: CCTM/src/init/initscen.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE INITSCEN ( CGRID, TSTEP) C----------------------------------------------------------------------- C Function: C Initialize simulation time period and time stepping constants for C core model driver C Environment variable can reference a previous CONC file to use as C initial data. C Write initial conc data as step "0" on output conc file C Preconditions: C Subroutines and functions called: C M3EXIT, OPEN3, CLOSE3, DESC3, TIME2SEC, HHMMSS C Revision history: C prototype 6/92 by CJC for "concept model" C revised 2/93 by CJC for initial M3 Prototype Alpha C revised 6/14/94 by Dongming Hwang for configuration management prototype C revised 8/30/94 by Dongming Hwang: If CTM_CONC_1 file doesn't exist, C use header info from CHEMINIT3D file. C Interim Version ... (Jeff) C revised 6/12/97 by Jerry Gipson: Get ICs by species name, by surrogate C name, or zero C Jeff - Aug 97 - fixed problems, cleaned up C Jeff - Dec 97 - add CMIN C Jeff - Dec 97 - put in aerosol sulfate inititalization C Jeff - Feb 98 - close init cond files after reading C 2 October, 1998 by Al Bourgeois at LM: parallel implementation C revised 10/7/99 by Shawn Roselle: added surface area species to C aerosol species types C Jeff - Dec 00 - check if append, split out opconc and load_cgrid C - move CGRID_MAP into f90 module C 30 Mar 01 J.Young: dyn alloc - Use HGRD_DEFN; assumed shape arrays C 17 Mar 03 D.Wong: move barrier to avoid race conditions C 28 Aug 03 J.Young: following Zion Wang at CERT, only pe 0 closes C 30 May 05 J.Young: add call to load RHOJ into CGRID C 21 Jun 10 J.Young: convert for Namelist redesign C 16 Feb 11 S.Roselle: replaced I/O API include files with UTILIO_DEFN; C removed deprecated TRIMLEN C 11 May 11 D.Wong: incorporated twoway model implementation C Aug 15 D.Wong: Added two new subroutine calls to open ACONC and WDEP files C Dec 15 D.Wong: new routine wr_init to write the initial data to the CONC file C 1 Feb 19 David Wong: Implemented centralized I/O approach, removed C all MY_N clauses C 29 Oct 18 L.Zhou, S.Napelenok: isam implementation C 26 Nov 19 S. Napelenok: DDM3D implementation for CMAQ v5.3.1 C----------------------------------------------------------------------- USE RUNTIME_VARS USE HGRD_DEFN ! horizontal domain specifications USE CGRID_SPCS ! CGRID mechanism species USE UTILIO_DEFN USE ELMO_DATA, ONLY : L_ELMO, ELMO_NSTEP USE ELMO_PROC, ONLY : OPEN_ELMO #ifndef mpas #ifdef parallel USE SE_MODULES ! stenex (using SE_UTIL_MODULE) USE VERTEXT_MODULE #else USE NOOP_MODULES ! stenex (using NOOP_UTIL_MODULE) #endif #endif #ifdef isam USE SA_DEFN #endif #ifdef sens USE DDM3D_DEFN USE VGRD_DEFN, ONLY: NLAYS #endif IMPLICIT NONE C Includes: INCLUDE SUBST_FILES_ID ! file name parameters C Arguments: ! REAL :: CGRID( :,:,:,: ) ! for initial CONC REAL, POINTER :: CGRID( :,:,:,: ) ! for initial CONC INTEGER TSTEP( 3 ) ! time step vector (HHMMSS) ! TSTEP(1) = local output step ! TSTEP(2) = sciproc sync. step (chem) ! TSTEP(3) = twoway model time step w.r.t. wrf time ! step and wrf/cmaq call frequency ! INTEGER NSTEPS ! run duration, as number of output time steps C Parameters: REAL, PARAMETER :: CMIN = 1.0E-30 C Local Variables CHARACTER( 16 ) :: PNAME = 'INITSCEN' CHARACTER( 16 ) :: FNAME CHARACTER( 96 ) :: MSG = ' ' INTEGER STEPSECS ! seconds per time step INTEGER TOTSECS ! run duration seconds #ifdef Verbose3 real sumcg integer c, r, l, s, v #endif #ifdef sens integer COL,ROW,LAY,SPC #endif INTERFACE SUBROUTINE LOAD_CGRID ( FNAME, SPC_CAT, CMIN, CGRID ) CHARACTER( 16 ), INTENT( IN ) :: FNAME CHARACTER( 2 ), INTENT( IN ) :: SPC_CAT REAL, INTENT( IN ) :: CMIN REAL, POINTER :: CGRID( :,:,:,: ) END SUBROUTINE LOAD_CGRID SUBROUTINE WR_INIT ( CGRID, JDATE, JTIME, TSTEP ) REAL, POINTER :: CGRID(:,:,:,:) INTEGER, INTENT( IN ) :: JDATE INTEGER, INTENT( IN ) :: JTIME INTEGER, INTENT( IN ) :: TSTEP END SUBROUTINE WR_INIT #ifdef isam SUBROUTINE SA_ARRAY_INIT ( CGRID ) IMPLICIT NONE REAL, POINTER :: CGRID( :,:,:,: ) END SUBROUTINE SA_ARRAY_INIT SUBROUTINE OP_SA ( JDATE, JTIME, TSTEP, NSTEPS, FNAME ) IMPLICIT NONE INTEGER :: JDATE, JTIME INTEGER :: TSTEP(2) INTEGER :: NSTEPS CHARACTER( 16 ) :: FNAME END SUBROUTINE OP_SA SUBROUTINE SA_OPWDDEP ( SADEPFILE, JDATE, JTIME, TSTEP ) IMPLICIT NONE CHARACTER( 16 ) :: SADEPFILE ! Dry or wet dep file for tags INTEGER :: JDATE, JTIME, TSTEP END SUBROUTINE SA_OPWDDEP #endif #ifdef sens SUBROUTINE LOAD_SENGRID ( FNAME, STDATE, STTIME, SPC_CAT ) IMPLICIT NONE CHARACTER( 16 ), INTENT( IN ) :: FNAME INTEGER, INTENT( IN ) :: STDATE, STTIME CHARACTER( 2 ), INTENT( IN ) :: SPC_CAT END SUBROUTINE LOAD_SENGRID #endif END INTERFACE C----------------------------------------------------------------------- TSTEP( 1 ) = LOCAL_TSTEP #ifdef isam IF ( MYPE .EQ. 0 ) THEN WRITE( LOGDEV,* ) 'Entered INITSCEN...' WRITE( LOGDEV,* ) 'NSPC_SA, NTAG_SA:', NSPC_SA, NTAG_SA END IF #endif C Initialize the CGRID array CGRID = CMIN C Load CGRID IF ( N_GC_SPC .GT. 0 ) THEN FNAME = INIT_CONC_1 CALL LOAD_CGRID ( FNAME, 'GC', CMIN, CGRID ) #ifdef Verbose3 write( logdev,'(/"@@@c ", i8, i7.6)') stdate, sttime l = 1 do v = gc_strt, gc_fini s = v + 1 - gc_strt sumcg = 0.0 do r = 1, nrows do c = 1, ncols sumcg = sumcg + cgrid( c,r,l,v ) end do end do write( logdev,'("@@@c ", a, i5, g16.6)') gc_spc( s ), s, sumcg end do #endif END IF ! N_GC_SPC > 0 C load rhoj FNAME = MET_CRO_3D CALL LOAD_CGRID ( FNAME, 'RJ', CMIN, CGRID ) C Get aerosols IC's IF ( N_AE_SPC .GT. 0 ) THEN FNAME = INIT_CONC_1 CALL LOAD_CGRID ( FNAME, 'AE', CMIN, CGRID ) END IF ! N_AE_SPC > 0 C Get non-reactives IC's IF ( N_NR_SPC .GT. 0 ) THEN FNAME = INIT_CONC_1 CALL LOAD_CGRID ( FNAME, 'NR', CMIN, CGRID ) END IF ! N_NR_SPC > 0 C Get tracer IC's IF ( N_TR_SPC .GT. 0 ) THEN FNAME = INIT_CONC_1 CALL LOAD_CGRID ( FNAME, 'TR', CMIN, CGRID ) END IF ! N_TR_SPC > 0 C Test opening existing conc file for update CALL LOG_HEADING( LOGDEV, "Open or Create Concentration File" ) C *** Open the aerosol parameters file (diameters and standard deviations). IF ( L_ELMO .AND. IO_PE_INCLUSIVE ) THEN CALL OPEN_ELMO ( STDATE, STTIME, TSTEP( 1 ) ) ELMO_NSTEP = 0.0 END IF #ifndef mpas IF ( .NOT. OPEN3( CTM_CONC_1, FSRDWR3, PNAME ) ) THEN #ifndef twoway BACKSPACE( LOGDEV ) #endif MSG = 'Could not open ' // TRIM( CTM_CONC_1 ) // ' for update - ' & // 'try to open new' CALL M3MESG( MSG ) ! Open the file new CALL SUBST_BARRIER CALL OPCONC ( STDATE, STTIME, TSTEP( 1 ) ) #ifdef parallel CALL OPVEXT ( STDATE, STTIME, TSTEP( 1 ) ) #endif END IF CALL WR_INIT ( CGRID, STDATE, STTIME, TSTEP( 1 ) ) CALL LOG_HEADING( LOGDEV, "Open or Create Average Concentration File" ) CALL OPACONC ( STDATE, STTIME, TSTEP( 1 ) ) CALL LOG_HEADING( LOGDEV, "Open or Create Wet Deposition File" ) CALL OPWDEP ( STDATE, STTIME, TSTEP( 1 ) ) #ifdef sens CALL OPASENS( STDATE, STTIME, TSTEP( 1 ) ) #endif #ifdef isam C Initialize ISAM array CALL SA_ARRAY_INIT ( CGRID ) C Open SA_CONC_1 and SA_CGRID_1 CALL OP_SA ( STDATE, STTIME, TSTEP, 1, SA_CONC_1 ) IF ( MYPE .EQ. 0 ) CALL SA_OPWDDEP ( SA_WD_1, STDATE, STTIME, TSTEP( 1 ) ) #endif #ifdef sens IF ( RST ) THEN ! Load SENGRID from a file IF ( N_GC_SPC .GT. 0 ) THEN FNAME = INIT_SENS_1 CALL LOAD_SENGRID ( FNAME, STDATE, STTIME, 'GC' ) END IF ! N_GC_SPC > 0 FNAME = MET_CRO_3D CALL LOAD_SENGRID ( FNAME, STDATE, STTIME, 'RJ' ) IF ( N_AE_SPC .GT. 0 ) THEN FNAME = INIT_SENS_1 CALL LOAD_SENGRID ( FNAME, STDATE, STTIME, 'AE') END IF ! N_AE_SPC > 0 IF ( N_NR_SPC .GT. 0 ) THEN FNAME = INIT_SENS_1 CALL LOAD_SENGRID ( FNAME, STDATE, STTIME, 'NR' ) END IF ! N_NR_SPC > 0 IF ( N_TR_SPC .GT. 0 ) THEN FNAME = INIT_SENS_1 CALL LOAD_SENGRID ( FNAME, STDATE, STTIME, 'TR' ) END IF ! N_TR_SPC > 0 ELSE ! Set to initial conditions or 0.0 DO NP = 1, NPMAX IF ( IPT( NP ) .EQ. 1 ) THEN DO SPC = 1, NSPCSD DO LAY = 1, NLAYS DO ROW = 1, NROWS DO COL = 1, NCOLS SENGRID( COL, ROW, LAY, NP, SPC) = & CGRID( COL, ROW, LAY, SPC ) & * REAL( IPARM( NP, SPC ) ) & * IREGION( COL, ROW, LAY, NP ) END DO END DO END DO END DO ELSE DO SPC = 1, NSPCSD DO LAY = 1, NLAYS DO ROW = 1, NROWS DO COL = 1, NCOLS SENGRID( COL, ROW, LAY, NP, SPC) = 0.0 END DO END DO END DO END DO END IF END DO END IF #endif CALL SUBST_BARRIER CALL LOG_HEADING( LOGDEV, "Check Initial Concentrations" ) #endif RETURN END ================================================ FILE: CCTM/src/init/load_cgrid.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE LOAD_CGRID ( FNAME, SPC_CAT, CMIN, CGRID ) C----------------------------------------------------------------------- C Function: C Initialize the model CGRID array from file data C Revision history: C Jeff - Dec 00 - split out from initscen.F C - move CGRID_MAP into f90 module C Jeff - Feb 01 - module LOCALFILE to set CCTM IOAPI file defn's C - add BUFSIZE for dfio option C - assumed shape arrays C 30 Mar 01 J.Young: dyn alloc - Use HGRD_DEFN; replace INTERP3 with INTERPX; C 30 Oct 01 J.Young: fix ICBC_FAC C 4 Sep 03 J.Young: fix SPC/NDX bug if ASO4J IC's are unavailable C 20 Nov 03 J.Young: enable loading RHOJ C 31 Jan 05 J.Young: dyn alloc - establish both horizontal & vertical C domain specifications in one module C 21 Jun 10 J.Young: convert for Namelist redesign C 16 Feb 11 S.Roselle: replaced I/O API include files with UTILIO_DEFN; C removed deprecated TRIMLEN C 2 Sep 11 J.Young: change ICBC_FAC policy to always assigning factor, C if specified, not just if a surrogate is also specified C 11 Sep 15 B.Murphy: add condition for no surrogate name C C 08 Mar 19 F. Sidi Split up ICBC_FAC into IC_FAC and BC_FAC for C tracer namelist only C 01 Feb 19 D.Wong: Implemented centralized I/O approach, removed all C MY_N clauses C 01 Feb 19 D.Wong: Implemented centralized I/O approach, removed all C MY_N clauses C 08 Mar 19 F. Sidi Split up ICBC_FAC into IC_FAC and BC_FAC for C tracer namelist only C 13 Mar 19 D. Wong: Implemented centralized I/O approach C----------------------------------------------------------------------- USE GRID_CONF ! horizontal & vertical domain specifications USE CGRID_SPCS ! CGRID mechanism species USE UTILIO_DEFN USE AERO_DATA, ONLY : CHECK_AERO_ICBC, N_MODE Use CENTRALIZED_IO_MODULE, only : interpolate_var USE RUNTIME_VARS, ONLY : IC_AERO_M2WET, IC_AERO_M2USE #ifdef mpas USE coupler_module #endif IMPLICIT NONE INCLUDE SUBST_CONST ! constants INCLUDE SUBST_FILES_ID ! file name parameters C Arguments: CHARACTER( 16 ) :: FNAME INTEGER JDATE INTEGER JTIME CHARACTER( 2 ) :: SPC_CAT REAL CMIN ! REAL :: CGRID( :,:,:,: ) ! for initial CONC REAL, POINTER :: CGRID( :,:,:,: ) ! for initial CONC C Parameters: C minimum aerosol sulfate concentration [ ug/m**3 ] REAL, PARAMETER :: AEROCONCMIN = 0.001 C The following two factors assume that sulfate density is 1.8e3 [ kg/m**3 ] C and that the geometric mean diameter and geometric standard deviations C for the Aitken mode are 0.01e-6 [ m ] and 1.7 respectively C and are 0.07e-6 and 2.0 respectively for the accumulation mode. C factor to calculate aerosol number concentration from aerosol sulfate mass C concentration in the Aitken mode [ ug ]. REAL, PARAMETER :: NUMFACT_I = 2.988524 E11 C factor to calculate aerosol number concentration from aerosol sulfate mass C concentration in the Accumulation mode [ ug ]. REAL, PARAMETER :: NUMFACT_J = 3.560191 E08 C fraction of sulfuric acid vapor taken as aerosol for first time step REAL, PARAMETER :: SO4VAPTOAER = 0.999 C initial fraction of total aerosol sulfate in the Aitken mode REAL, PARAMETER :: IFRACATKN = 0.04 INTEGER, SAVE :: MXSPC INTEGER ASTAT C File variables: REAL :: DENS( NCOLS,NROWS,NLAYS ) ! air density (kg/m^3) REAL :: RHOJ( NCOLS,NROWS,NLAYS ) ! air density X Jacobian (kg/m^2) C External Functions: INTEGER, EXTERNAL :: FINDEX ! looks up number in table. C Local Variables REAL MWH2SO4 ! H2SO4 molec. wt. REAL H2SO4CONV ! ppm -> ug/m**3 INTEGER LSULF ! Gas chem CGRID index INTEGER ISO4AJ, ISO4AI, INUMATKN, INUMACC ! CGRID aerosol indices INTEGER GXOFF, GYOFF ! global origin offset from file C for XTRACT3 INTEGER :: STRTCOLINI, ENDCOLINI, STRTROWINI, ENDROWINI REAL :: DBUFF( NCOLS,NROWS,NLAYS ) REAL :: DBUFF_TMP( NCOLS,NROWS,NLAYS ) INTEGER SPC_STRT, SPC_FINI ! Species Indices INTEGER N_SPCS ! no. of species for this call INTEGER NDX ! loop copy of INDX INTEGER ISUR ! surrogate index INTEGER ISPCS ! model species index INTEGER, ALLOCATABLE, SAVE :: INDX( : ) ! Variable indices for all IC species REAL, ALLOCATABLE, SAVE :: ICBC_FAC( : ) ! Factor to be applied to ICs INTEGER C, R, L, SPC, V, J ! loop counters INTEGER ASPC ! CGRID RHOJ pointer INTEGER STAT( N_MODE ) ! Status reported by Aerosol Dist Checker INTEGER :: IMODE REAL :: AER_PAR( 2, N_MODE,6 ) !Modal parameter after the BC !check (N, dg, sg) ! (N, M2, M3) - Before ! (N, M2, M3) - After REAL :: AECON( N_AE_SPC ) CHARACTER( 16 ) :: PNAME = 'LOAD_CGRID' CHARACTER( 16 ) :: VNAME CHARACTER( 16 ) :: POC_CHK CHARACTER( 16 ) :: ICNAME_TMP CHARACTER( 16 ) :: CONCMIN CHARACTER( 96 ) :: XMSG = ' ' CHARACTER(199 ) :: XMSG2 = ' ' CHARACTER( 40 ) :: CHWARN = 'Domain extents different from model for ' CHARACTER( 24 ) :: ESTR1 = 'No IC found for species ' CHARACTER( 34 ) :: ESTR2 = ' ' CHARACTER( 34 ) :: ESTR3 = ' ' LOGICAL, SAVE :: FIRSTIME = .TRUE. LOGICAL :: L_WRITE_WARNING C----------------------------------------------------------------------- JDATE = STDATE JTIME = STTIME IF ( FIRSTIME ) THEN FIRSTIME = .FALSE. CALL LOG_HEADING( LOGDEV, 'Load Initial Conditions' ) MXSPC = N_GC_SPC + N_AE_SPC + N_NR_SPC + N_TR_SPC ALLOCATE ( INDX( MXSPC ), ICBC_FAC( MXSPC ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN XMSG = 'ERROR allocating INDX or ICBC_FAC' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT2 ) END IF #ifdef mpas ALLOCATE ( INDX_MPAS( MXSPC ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN XMSG = 'ERROR allocating INDX_MPAS ' call M3EXIT (PNAME, JDATE, JTIME, XMSG, 1) END IF INDX_MPAS = 0 #endif END IF WRITE( CONCMIN,'(1PE9.2)' ) CMIN #ifndef mpas IF ( .NOT. OPEN3( FNAME, FSREAD3, PNAME ) ) THEN XMSG = 'Could not open ' // FNAME // ' file' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF IF ( .NOT. DESC3( FNAME ) ) THEN XMSG = 'Could not get ' // FNAME // ' file description' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF IF ( GL_NCOLS .NE. NCOLS3D ) THEN WRITE( LOGDEV,* ) ' ' WRITE( LOGDEV,* ) ' WARNING: ' // CHWARN // FNAME WRITE( LOGDEV,* ) '>> GL_NCOLS: ', GL_NCOLS, ' NCOLS3D: ', NCOLS3D END IF IF ( GL_NROWS .NE. NROWS3D ) THEN WRITE( LOGDEV,* ) ' ' WRITE( LOGDEV,* ) ' WARNING: ' // CHWARN // FNAME WRITE( LOGDEV,* ) '>> GL_NROWS: ', GL_NROWS, ' NROWS3D: ', NROWS3D END IF IF ( NLAYS .NE. NLAYS3D ) THEN XMSG = 'Wrong number of layers in ' // FNAME // ' file' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF #endif ESTR2 = ' in ' // TRIM( FNAME ) // '; Look for ' ESTR3 = ' in ' // TRIM( FNAME ) // '; set to ' // TRIM( CONCMIN ) C The original policy for using surrogate names is first, check if the Namelist C species is on the IC file; if so ignore any surrogate. If the Namelist species C is not on the IC file, then check if the surrogate name is; if so also use the C scale factor (default = 1.0). C Note: parsing in CGRID_SPCS follows this policy for all the Namelist surrogate C types (EMIS, DEPV, ICBC, and SCAV). C => Change this for ICBC: C First check if there's a surrogate name in the Namelist and use it (and the C corresponding scale factor) if it exists. If it's not on the IC file, which it C wouldn`t be if it were blank, e.g., then look for the Namelist species name. If C that name is found on the IC file, then the default scale factor is applied C (default = 1.0). To use a scale factor other that 1.0, there must be a name in C the surrogate slot; it could be the same as the Namelist main species name. C Get INDX DO SPC = 1, MXSPC INDX( SPC ) = 0 END DO SPC_STRT = 0 IF ( SPC_CAT .EQ. 'GC' ) THEN WRITE( XMSG,1009 ) 'transported gas-phase (reactive) species' WRITE( LOGDEV, * ) CALL LOG_MESSAGE( LOGDEV, XMSG ) SPC_STRT = GC_STRT N_SPCS = N_GC_SPC DO SPC = 1, N_SPCS C is there a surrogate name? ISUR = FINDEX ( SPC, N_GC_IC, GC_IC_MAP ) NDX = 0 IF ( ISUR .NE. 0 ) THEN C is it on the IC file? #ifdef mpas NDX = INDEX1( GC_IC( ISUR ), n_all_spc, all_spc ) #else NDX = INDEX1( GC_IC( ISUR ), NVARS3D, VNAME3D ) #endif IF ( NDX .NE. 0 ) THEN C if there`s a surrogate name, CGRID_SPCS handles setting GC_ICBC_FAC INDX( SPC ) = NDX ! index in the IC file ICBC_FAC( SPC ) = GC_IC_FAC( ISUR ) ELSE XMSG = ESTR1 // TRIM( GC_IC( ISUR ) ) // ESTR2 // & TRIM(GC_SPC( SPC )) CALL M3MESG( XMSG ) END IF END IF C If there is no surrogate or it cannot be found, look for the (main) species name on the IC file If ( ISUR .EQ. 0 .OR. NDX .EQ. 0 .OR. (.NOT. NEW_START ) ) THEN #ifdef mpas NDX = INDEX1( GC_SPC( SPC ), n_all_spc, all_spc ) #else NDX = INDEX1( GC_SPC( SPC ), NVARS3D, VNAME3D ) #endif IF ( NDX .NE. 0 ) THEN INDX( SPC ) = NDX ! index in the IC file ICBC_FAC( SPC ) = 1.0 ELSE XMSG = ESTR1 // TRIM( GC_SPC( SPC ) ) // ESTR3 CALL M3MESG( XMSG ) END IF END IF IF ( INDX( SPC ) .GT. 0 ) & WRITE( LOGDEV,1013 ) INDX( SPC ), GC_SPC( SPC ), ICBC_FAC( SPC ) END DO ELSE IF ( SPC_CAT .EQ. 'AE' ) THEN WRITE( XMSG,1009 ) 'transported aerosol species' WRITE( LOGDEV, * ) CALL LOG_MESSAGE( LOGDEV, XMSG ) SPC_STRT = AE_STRT N_SPCS = N_AE_SPC DO SPC = 1, N_SPCS C is there a surrogate name? ISUR = FINDEX ( SPC, N_AE_IC, AE_IC_MAP ) NDX = 0 IF ( ISUR .NE. 0 ) THEN C is it on the IC file? #ifdef mpas NDX = INDEX1( AE_IC( ISUR ), n_all_spc, all_spc ) #else NDX = INDEX1( AE_IC( ISUR ), NVARS3D, VNAME3D ) #endif IF ( NDX .NE. 0 ) THEN INDX( SPC ) = NDX ! index in the IC file ICBC_FAC( SPC ) = AE_IC_FAC( ISUR ) ELSE XMSG = ESTR1 // TRIM( AE_IC( ISUR ) ) // ESTR2 // & TRIM(AE_SPC( SPC )) CALL M3MESG( XMSG ) END IF END IF C If there is no surrogate or it cant be found, look for the (main) species name on the IC file If ( ISUR .EQ. 0 .OR. NDX .EQ. 0 .OR. (.NOT. NEW_START ) ) THEN #ifdef mpas NDX = INDEX1( AE_SPC( SPC ), n_all_spc, all_spc ) #else NDX = INDEX1( AE_SPC( SPC ), NVARS3D, VNAME3D ) #endif IF ( NDX .NE. 0 ) THEN INDX( SPC ) = NDX ICBC_FAC( SPC ) = 1.0 ELSE XMSG = ESTR1 // TRIM( AE_SPC( SPC ) ) // ESTR3 CALL M3MESG( XMSG ) END IF END IF IF ( INDX( SPC ) .GT. 0 ) & WRITE( LOGDEV,1013 ) INDX( SPC ), AE_SPC( SPC ), ICBC_FAC( SPC ) END DO ELSE IF ( SPC_CAT .EQ. 'NR' ) THEN WRITE( XMSG,1009 ) 'transported non-reactive gas species' WRITE( LOGDEV, * ) CALL LOG_MESSAGE( LOGDEV, XMSG ) SPC_STRT = NR_STRT N_SPCS = N_NR_SPC DO SPC = 1, N_SPCS C is there a surrogate name? ISUR = FINDEX ( SPC, N_NR_IC, NR_IC_MAP ) NDX = 0 IF ( ISUR .NE. 0 ) THEN C is it on the IC file? #ifdef mpas NDX = INDEX1( NR_IC( ISUR ), n_all_spc, all_spc ) #else NDX = INDEX1( NR_IC( ISUR ), NVARS3D, VNAME3D ) #endif IF ( NDX .NE. 0 ) THEN INDX( SPC ) = NDX ! index in the IC file ICBC_FAC( SPC ) = NR_IC_FAC( ISUR ) ELSE XMSG = ESTR1 // TRIM( NR_IC( ISUR ) ) // ESTR2 // & TRIM(NR_SPC( SPC )) CALL M3MESG( XMSG ) END IF END IF C If there is no surrogate or it cant be found, look for the (main) species name on the IC file If ( ISUR .EQ. 0 .OR. NDX .EQ. 0 .OR. (.NOT. NEW_START ) ) THEN #ifdef mpas NDX = INDEX1( NR_SPC( SPC ), n_all_spc, all_spc ) #else NDX = INDEX1( NR_SPC( SPC ), NVARS3D, VNAME3D ) #endif IF ( NDX .NE. 0 ) THEN INDX( SPC ) = NDX ICBC_FAC( SPC ) = 1.0 ELSE XMSG = ESTR1 // TRIM( NR_SPC( SPC ) ) // ESTR3 CALL M3MESG( XMSG ) END IF END IF IF ( INDX( SPC ) .GT. 0 ) & WRITE( LOGDEV,1013 ) INDX( SPC ), NR_SPC( SPC ), ICBC_FAC( SPC ) END DO ELSE IF ( SPC_CAT .EQ. 'TR' ) THEN WRITE( XMSG, 1009 ) 'transported inert tracer gas species' WRITE( LOGDEV, * ) CALL LOG_MESSAGE( LOGDEV, XMSG ) SPC_STRT = TR_STRT N_SPCS = N_TR_SPC DO SPC = 1, N_SPCS C is there a surrogate name? ISUR = FINDEX ( SPC, N_TR_IC, TR_IC_MAP ) NDX = 0 IF ( ISUR .NE. 0 ) THEN C is it on the IC file? #ifdef mpas NDX = INDEX1( TR_IC( ISUR ), n_all_spc, all_spc ) #else NDX = INDEX1( TR_IC( ISUR ), NVARS3D, VNAME3D ) #endif IF ( NDX .NE. 0 ) THEN INDX( SPC ) = NDX ! index in the IC file ICBC_FAC( SPC ) = TR_IC_FAC( ISUR ) ELSE XMSG = ESTR1 // TRIM( TR_IC( ISUR ) ) // ESTR2 // & TRIM(TR_SPC( SPC )) CALL M3MESG( XMSG ) END IF END IF C If there is no surrogate or it cant be found, look for the (main) species name on the IC file If ( ISUR .EQ. 0 .OR. NDX .EQ. 0 .OR. (.NOT. NEW_START ) ) THEN #ifdef mpas NDX = INDEX1( TR_SPC( SPC ), n_all_spc, all_spc ) #else NDX = INDEX1( TR_SPC( SPC ), NVARS3D, VNAME3D ) #endif IF ( NDX .NE. 0 ) THEN INDX( SPC ) = NDX ICBC_FAC( SPC ) = 1.0 ELSE XMSG = ESTR1 // TRIM( TR_SPC( SPC ) ) // ESTR3 CALL M3MESG( XMSG ) END IF END IF IF ( INDX( SPC ) .GT. 0 ) & WRITE( LOGDEV,1013 ) INDX( SPC ), TR_SPC( SPC ), ICBC_FAC( SPC ) END DO ELSE IF ( SPC_CAT .EQ. 'RJ' ) THEN N_SPCS = 0 ELSE XMSG = 'Species categories incorrect for CGRID ' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT2 ) END IF C Read into CGRID ! CALL SUBHFILE ( FNAME, GXOFF, GYOFF, ! & STRTCOLINI, ENDCOLINI, STRTROWINI, ENDROWINI ) C IOFDESC common now loaded with FNAME header DO SPC = 1, N_SPCS V = SPC_STRT - 1 + SPC NDX = INDX( SPC ) IF ( NDX .GT. 0 ) THEN #ifndef mpas call interpolate_var (VNAME3D ( NDX ), jdate, jtime, DBUFF) ! Add Non-Carbon Mass to Carbon Mass if any tracer is ! pointing to POC as a surrogate. It is very likely that ! these tracers are seeking the entire POA mass (e.g. ! semivolatile POA tracers). POC_CHK = 'NOTPOC' IF ( SPC_CAT .EQ. 'AE' ) POC_CHK = AE_SPC( SPC ) IF ( VNAME3D( NDX )( 1:4 ) .EQ. 'APOC' .AND. & POC_CHK(1:4) .NE. 'APOC' ) THEN ICNAME_TMP = 'APNCOM' // VNAME3D( NDX )( 5:5 ) call interpolate_var (ICNAME_TMP, jdate, jtime, DBUFF_TMP) DBUFF = DBUFF + DBUFF_TMP END IF ! Load ICs into CGRID DO L = 1, NLAYS DO R = 1, NROWS DO C = 1, NCOLS CGRID( C,R,L,V ) = ICBC_FAC( SPC ) * DBUFF( C,R,L ) END DO END DO END DO #endif END IF ! INDX .GT. 0 END DO IF ( SPC_CAT .EQ. 'RJ' ) THEN C Load RHOJ for transport and mixing ratio advection adjustment call interpolate_var ('DENSA_J', jdate, jtime, RHOJ) ASPC = GC_STRT - 1 + N_GC_SPCD DO L = 1, NLAYS DO R = 1, NROWS DO C = 1, NCOLS CGRID( C,R,L,ASPC ) = RHOJ( C,R,L ) END DO END DO END DO END IF IF ( SPC_CAT .EQ. 'AE' ) THEN CALL LOG_SUBHEADING( LOGDEV, 'Check Aerosol IC Size Distributions' ) ! Check Aerosol Size Distributions and Warn the User if They Are Not Robust. ! Surface area is output from this routine consistent with the ! specification in IC_AERO_M2WET. IF ( NEW_START ) THEN SPC_STRT = AE_STRT SPC_FINI = AE_STRT + N_AE_SPC - 1 L_WRITE_WARNING = .TRUE. DO L = 1, NLAYS DO R = 1, NROWS DO C = 1, NCOLS AECON( 1:N_AE_SPC ) = CGRID( C,R,L,SPC_STRT:SPC_FINI ) CALL CHECK_AERO_ICBC( AECON, IC_AERO_M2WET, IC_AERO_M2USE, & .FALSE., L_WRITE_WARNING, C,R,L ) CGRID( C,R,L,SPC_STRT:SPC_FINI ) = AECON( 1:N_AE_SPC ) END DO END DO END DO END IF C are ASO4J ICs available on the file? VNAME = 'ASO4J' #ifdef mpas NDX = INDEX1( VNAME, n_ae_spc, ae_spc ) #else NDX = INDEX1( VNAME, NVARS3D, VNAME3D ) #endif IF ( NDX .EQ. 0 ) THEN ! ASO4J not on file C Set pointers for gas (vapor) phase sulfur species NDX = INDEX1( VNAME, N_AE_SPC, AE_SPC ) IF ( NDX .NE. 0 ) THEN ISO4AJ = AE_STRT - 1 + NDX ELSE XMSG = 'Could not find ' // VNAME // 'in aerosol table' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT3 ) END IF VNAME = 'SULF' NDX = INDEX1( VNAME, N_GC_G2AE, GC_G2AE ) IF ( NDX .NE. 0 ) THEN LSULF = GC_STRT - 1 + GC_G2AE_MAP( NDX ) MWH2SO4 = GC_MOLWT( GC_G2AE_MAP( NDX ) ) ELSE XMSG = 'Could not find ' // VNAME // 'in gas chem aerosol table' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT3 ) END IF VNAME = 'ASO4I' NDX = INDEX1( VNAME, N_AE_SPC, AE_SPC ) IF ( NDX .NE. 0 ) THEN ISO4AI = AE_STRT - 1 + NDX ELSE XMSG = 'Could not find ' // VNAME // 'in aerosol table' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT3 ) END IF VNAME = 'NUMATKN' NDX = INDEX1( VNAME, N_AE_SPC, AE_SPC ) IF ( NDX .NE. 0 ) THEN INUMATKN = AE_STRT - 1 + NDX ELSE XMSG = 'Could not find ' // VNAME // 'in aerosol table' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT3 ) END IF VNAME = 'NUMACC' NDX = INDEX1( VNAME, N_AE_SPC, AE_SPC ) IF ( NDX .NE. 0 ) THEN INUMACC = AE_STRT - 1 + NDX ELSE XMSG = 'Could not find ' // VNAME // 'in aerosol table' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT3 ) END IF call interpolate_var ('DENS', jdate, jtime, DENS) C Partition the aerosol sulfate arrays with a fraction of the initial SO4 H2SO4CONV = 1.0E3 * MWH2SO4 / MWAIR * SO4VAPTOAER DO L = 1, NLAYS DO R = 1, NROWS DO C = 1, NCOLS C total accumulation mode sulfate: CGRID( C,R,L,ISO4AJ ) = MAX ( AEROCONCMIN, & ( 1.0 - IFRACATKN ) & * H2SO4CONV & * DENS ( C,R,L ) & * CGRID( C,R,L,LSULF ) ) C Accumulation mode number: CGRID( C,R,L,INUMACC ) = NUMFACT_J & * CGRID( C,R,L,ISO4AJ ) C Aitken mode sulfate: CGRID( C,R,L,ISO4AI ) = MAX ( AEROCONCMIN, & IFRACATKN & * H2SO4CONV & * DENS ( C,R,L ) & * CGRID( C,R,L,LSULF ) ) C Aitken mode number: CGRID( C,R,L,INUMATKN ) = NUMFACT_I & * CGRID( C,R,L,ISO4AI ) C correct sulfate vapor concentration for part removed: CGRID( C,R,L,LSULF ) = ( 1.0 - SO4VAPTOAER ) & * CGRID( C,R,L,LSULF) END DO END DO END DO XMSG = 'No IC''s found for aerosol sulfate. ' // & 'Gas Chem sulfate used for partitioning.' CALL M3MESG( XMSG ) END IF ! NDX .EQ. 0 END IF ! SPC_CAT .EQ. 'AE' RETURN 1009 FORMAT( 'Initial Condition Factors used for ', A ) 1013 FORMAT( 5X, I3, 2X, A, 1PG13.5 ) END ================================================ FILE: CCTM/src/init/opaconc.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! !::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE OPACONC ( JDATE, JTIME, TSTEP ) ! Revision History: ! D. Wong - July 15: initial version ! D. Wong 19 May 2016 - renamed ACONC_END_TIME to AVG_FILE_ENDTIME ! F. Sidi 09 Sep 2019 - Replaced L_ACONC_WVEL(depreciated) with W_VEL !----------------------------------------------------------------------- USE GRID_CONF ! horizontal & vertical domain specifications USE AVG_CONC ! integral average CONC USE UTILIO_DEFN #ifndef mpas #ifdef parallel USE SE_MODULES ! stenex (using SE_UTIL_MODULE) #else USE NOOP_MODULES ! stenex (using NOOP_UTIL_MODULE) #endif #endif IMPLICIT NONE ! Include Files: INCLUDE SUBST_FILES_ID ! file name parameters INTEGER, INTENT (IN ) :: JDATE ! current model date, coded YYYYDDD INTEGER, INTENT (IN ) :: JTIME ! current model time, coded HHMMSS INTEGER, INTENT (IN ) :: TSTEP ! output timestep (HHMMSS) ! Local variables: INTEGER MDATE ! modified model date, coded YYYYDDD INTEGER MTIME ! modified model time, coded HHMMSS CHARACTER( 16 ) :: PNAME = 'OPACONC' CHARACTER( 80 ) :: VARDESC = ' ' CHARACTER( 96 ) :: XMSG = ' ' LOGICAL, SAVE :: FIRSTIME = .TRUE. LOGICAL OK INTEGER L, K, KD, VAR, SPC ! loop counters INTEGER STATUS INTEGER TSTEP_RF, NTHIK_RF, NCOLS_RF, NROWS_RF, GDTYP_RF REAL( 8 ) :: P_ALP_RF, P_BET_RF, P_GAM_RF REAL( 8 ) :: XCENT_RF, YCENT_RF REAL( 8 ) :: XORIG_RF, YORIG_RF REAL( 8 ) :: XCELL_RF, YCELL_RF INTEGER VGTYP_RF REAL VGTOP_RF !----------------------------------------------------------------------- ! Change output date/time to starting date/time - e.g. timestamp 1995196:090000 ! represents data computed from time 1995196:090000 to 1995196:100000 #ifndef mpas ! Override default beginning time timestamp for ACONC? IF ( END_TIME ) THEN ! ending time timestamp MDATE = JDATE; MTIME = JTIME CALL NEXTIME ( MDATE, MTIME, TSTEP ) ELSE ! beginning time timestamp MDATE = JDATE; MTIME = JTIME END IF ! Try to open existing file for update OK = OPEN3( A_CONC_1, FSRDWR3, PNAME ) CALL SUBST_GLOBAL_LOGICAL( OK, 'AND' ) IF ( .NOT. OK ) THEN #ifndef twoway BACKSPACE( LOGDEV ) #endif XMSG = 'Could not open ' // TRIM( A_CONC_1 ) & // ' file for update - try to open new' CALL M3MESG( XMSG ) IF ( IO_PE_INCLUSIVE ) THEN ! Get default file header attibutes from CONC file (assumes file already open) IF ( .NOT. DESC3( CTM_CONC_1 ) ) THEN XMSG = 'Could not get ' & // TRIM( CTM_CONC_1 ) & // ' file description' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF ! Set file header attributes that differ from CONC and open the file SDATE3D = MDATE STIME3D = MTIME TSTEP3D = TSTEP NVARS3D = N_ACONC_VARS NLAYS3D = A_NLYS L = 0 DO K = ACONC_BLEV, ACONC_ELEV + 1 L = L + 1 VGLVS3D( L ) = VGLVS_GD( K ) END DO ! GDNAM3D = GDNAME_GD GDNAM3D = GRID_NAME ! from HGRD_DEFN FDESC3D( 1 ) = 'Concentration file output ' FDESC3D( 2 ) = 'Averaged over the synchronization time steps ' FDESC3D( 3 ) = 'Timestamp represents beginning computed date/time ' FDESC3D( 4 ) = 'Layer mapping (CGRID to AGRID):' KD = 4 VAR = ACONC_BLEV L = 0 DO K = KD + 1, MIN ( A_NLYS + KD, MXDESC3 ) L = L + 1 WRITE( FDESC3D( K ),'( "Layer", I3, " to", I3, " " )' ) & VAR + L - 1, L END DO IF ( ( KD + 1 + L ) .LT. MXDESC3 ) THEN DO K = KD + 1 + L, MXDESC3 FDESC3D( K ) = ' ' END DO END IF WRITE( LOGDEV,* ) WRITE( LOGDEV, '(5x,A)' ) 'Avg Conc File Header Description:' DO K = 1, KD + L WRITE( LOGDEV,'(7x,A)' ) TRIM( FDESC3D( K ) ) END DO VAR = 0 DO SPC = 1, N_A_GC_SPC VAR = VAR + 1 VTYPE3D( VAR ) = M3REAL VNAME3D( VAR ) = A_GC_SPC( SPC ) UNITS3D( VAR ) = 'ppmV' VDESC3D( VAR ) = 'Average Molar Mixing Ratio of ' // VNAME3D( VAR ) END DO DO SPC = 1, N_A_AE_SPC VAR = VAR + 1 VTYPE3D( VAR ) = M3REAL VNAME3D( VAR ) = A_AE_SPC( SPC ) IF ( VNAME3D( VAR )(1:3) .EQ. 'NUM' ) THEN UNITS3D( VAR ) = 'm-3' ELSE IF ( VNAME3D( VAR )(1:3) .EQ. 'SRF' ) THEN UNITS3D( VAR ) = 'm2 m-3' ELSE UNITS3D( VAR ) = 'ug m-3' END IF VDESC3D( VAR ) = 'Average Concentrations of ' // VNAME3D( VAR ) END DO DO SPC = 1, N_A_NR_SPC VAR = VAR + 1 VTYPE3D( VAR ) = M3REAL VNAME3D( VAR ) = A_NR_SPC( SPC ) UNITS3D( VAR ) = 'ppmV' VDESC3D( VAR ) = 'Average Molar Mixing Ratio of ' // VNAME3D( VAR ) END DO DO SPC = 1, N_A_TR_SPC VAR = VAR + 1 VTYPE3D( VAR ) = M3REAL VNAME3D( VAR ) = A_TR_SPC( SPC ) UNITS3D( VAR ) = 'ppmV' VDESC3D( VAR ) = 'Average Molar Mixing Ratio of ' // VNAME3D( VAR ) END DO IF ( W_VEL ) THEN VAR = VAR + 1 VTYPE3D( VAR ) = M3REAL VNAME3D( VAR ) = 'W_VEL' UNITS3D( VAR ) = 'm s-1' VDESC3D( VAR ) = 'Vertical Wind Velocity' END IF IF ( L_ACONC_RH ) THEN VAR = VAR + 1 VTYPE3D( VAR ) = M3REAL VNAME3D( VAR ) = 'RH' UNITS3D( VAR ) = '1' VDESC3D( VAR ) = 'Fractional Relative Humidity' END IF IF ( L_ACONC_TA ) THEN VAR = VAR + 1 VTYPE3D( VAR ) = M3REAL VNAME3D( VAR ) = 'TA' UNITS3D( VAR ) = 'K' VDESC3D( VAR ) = 'Air Temperature' END IF IF ( L_ACONC_PRES ) THEN VAR = VAR + 1 VTYPE3D( VAR ) = M3REAL VNAME3D( VAR ) = 'PRES' UNITS3D( VAR ) = 'Pa' VDESC3D( VAR ) = 'Air Pressure' END IF DO SPC = 1, VAR WRITE( LOGDEV,'( 7X, "=> VNAME3D(", I3, " ): ", A )' ) & SPC, VNAME3D( SPC ) END DO IF ( .NOT. OPEN3( A_CONC_1, FSNEW3, PNAME ) ) THEN XMSG = 'Could not open ' & // TRIM( A_CONC_1 ) // ' file' CALL M3EXIT( PNAME, MDATE, MTIME, XMSG, XSTAT1 ) END IF END IF ! MYPE = 0 ELSE ! File exists. Make sure it matches requested output. IF ( .NOT. DESC3( CTM_CONC_1 ) ) THEN XMSG = 'Could not get ' & // TRIM( CTM_CONC_1 ) & // ' file description' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF TSTEP_RF = TSTEP3D NTHIK_RF = NTHIK3D NCOLS_RF = NCOLS3D NROWS_RF = NROWS3D GDTYP_RF = GDTYP3D P_ALP_RF = P_ALP3D P_BET_RF = P_BET3D P_GAM_RF = P_GAM3D XCENT_RF = XCENT3D YCENT_RF = YCENT3D XORIG_RF = XORIG3D YORIG_RF = YORIG3D XCELL_RF = XCELL3D YCELL_RF = YCELL3D VGTYP_RF = VGTYP3D VGTOP_RF = VGTOP3D IF ( .NOT. DESC3( A_CONC_1 ) ) THEN XMSG = 'Could not get ' & // TRIM( A_CONC_1 ) & // ' file description' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF IF ( N_ACONC_VARS .NE. NVARS3D ) THEN WRITE( XMSG, '( A, 2I6 )' ) & 'Number of variables don''t match file: ', N_ACONC_VARS, NVARS3D CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT2 ) END IF DO SPC = 1, N_ASPCS DO VAR = 1, NVARS3D IF ( ACONC_FILE_SPCS( SPC ) .EQ. VNAME3D( VAR ) ) GO TO 101 END DO XMSG = 'Could not find ' // ACONC_FILE_SPCS( SPC ) CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT2 ) 101 CONTINUE END DO IF ( A_NLYS .NE. NLAYS3D ) THEN WRITE( XMSG, '( A, 2I6 )' ) & 'Number of layers don''t match file: ', A_NLYS, NLAYS3D CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT2 ) END IF ! Check other header data with CONC file as reference IF ( TSTEP_RF .NE. TSTEP3D .OR. & NTHIK_RF .NE. NTHIK3D .OR. & NCOLS_RF .NE. NCOLS3D .OR. & NROWS_RF .NE. NROWS3D .OR. & GDTYP_RF .NE. GDTYP3D ) THEN XMSG = 'Header inconsistent on existing A_CONC_1' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT2 ) END IF IF ( P_ALP_RF .NE. P_ALP3D .OR. & P_BET_RF .NE. P_BET3D .OR. & P_GAM_RF .NE. P_GAM3D ) THEN XMSG = 'Header inconsistent on existing A_CONC_1' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT2 ) END IF IF ( XCENT_RF .NE. XCENT3D .OR. & YCENT_RF .NE. YCENT3D ) THEN XMSG = 'Header inconsistent on existing A_CONC_1' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT2 ) END IF IF ( XORIG_RF .NE. XORIG3D .OR. & YORIG_RF .NE. YORIG3D ) THEN XMSG = 'Header inconsistent on existing A_CONC_1' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT2 ) END IF IF ( XCELL_RF .NE. XCELL3D .OR. & YCELL_RF .NE. YCELL3D ) THEN XMSG = 'Header inconsistent on existing A_CONC_1' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT2 ) END IF IF ( VGTYP_RF .NE. VGTYP3D ) THEN XMSG = 'Header inconsistent on existing A_CONC_1' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT2 ) END IF IF ( VGTOP_RF .NE. VGTOP3D ) THEN XMSG = 'Header inconsistent on existing A_CONC_1' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT2 ) END IF END IF ! .NOT. OPEN A_CONC_1 #endif END SUBROUTINE OPACONC ================================================ FILE: CCTM/src/init/opconc.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE OPCONC ( JDATE, JTIME, TSTEP ) C----------------------------------------------------------------------- C Function: C Create the IO/API netCDF header and open the output CONC file C Revision history: C Jeff - Dec 00 - split out from initscen.F C - move CGRID_MAP into f90 module C Jeff - Feb 01 - assumed shape arrays C 30 Mar 01 J.Young: dyn alloc - Use HGRD_DEFN C C 3 Sep 01 David Wong C -- let PE 0 open CTM_CONC_1 as new and later on let the rest open C it for read and write C -- put an explicit barrier before opening a new netCDF file to avoid C NCOPEN error C 7 May 03 J.Young: open and close conc file in processor 0; spin-wait to C deal with nfs network latency for mpich cluster C 28 Aug 03 J.Young: following Zion Wang at CERT, remove the spin-wait and C simplify opening and closing CONC file (see initscen) C 31 Jan 05 J.Young: dyn alloc - establish both horizontal & vertical C domain specifications in one module C 30 May 05 J.Young: optional save derived vert. vel. to conc file C 21 Jan 06 J.Young: add subset non-reactives capability with NR_CONC.EXT C and subset layers saved to conc file; no longer save C RHOJ to conc file C 22 Aug 06 J.Young: enable capturing IC's as 0 timestep C 11 Jun 08 J.Young: clean up C 30 Mar 10 David Wong: removed unnecessary barrier C 16 Feb 11 S.Roselle: replaced I/O API include files with UTILIO_DEFN; C removed deprecated TRIMLEN C Aug 15 D.Wong: Replaced MYPE with IO_PE_INCLUSIVE for parallel I/O C implementation C Added a block of code to let non I/O processor to open C CTM_CONC_1 file C Dec 15 D.Wong: Removed all the data writing parts and moved it into a C new file, wr_init.F C Sep 19 F. Sidi: Replaced L_CONC_WVEL & L_ACONC_WVEL (depreciated) with W_VEL C----------------------------------------------------------------------- USE GRID_CONF ! horizontal & vertical domain specifications USE WVEL_DEFN ! derived vertical velocity component USE STD_CONC ! standard CONC USE UTILIO_DEFN #ifndef mpas #ifdef parallel USE SE_MODULES ! stenex (using SE_UTIL_MODULE) #else USE NOOP_MODULES ! stenex (using NOOP_UTIL_MODULE) #endif #endif IMPLICIT NONE INCLUDE SUBST_FILES_ID ! file name parameters C Arguments: INTEGER JDATE ! starting date (YYYYDDD) INTEGER JTIME ! starting time (HHMMSS) INTEGER TSTEP ! output timestep (HHMMSS) C Local Variables: CHARACTER( 16 ) :: PNAME = 'OPCONC' CHARACTER( 96 ) :: XMSG = ' ' CHARACTER( 28 ) :: SSTR = ' species saved to CONC file:' C environment variable for no. of layers from bottom to save on CONC file CHARACTER( 16 ) :: NLAYS_CONC = 'NLAYS_CONC' C environment variable description CHARACTER( 80 ) :: VARDESC INTEGER K, KD, L, SPC, V, VAR ! loop counters INTEGER STRT, FINI ! loop counters INTEGER INDX LOGICAL, EXTERNAL :: FLUSH3 C----------------------------------------------------------------------- #ifndef mpas C Set output file characteristics based on COORD.EXT and open it FTYPE3D = GRDDED3 SDATE3D = JDATE STIME3D = JTIME TSTEP3D = TSTEP NVARS3D = N_CONC_VARS NCOLS3D = GL_NCOLS NROWS3D = GL_NROWS NLAYS3D = C_NLAYS NTHIK3D = 1 GDTYP3D = GDTYP_GD P_ALP3D = P_ALP_GD P_BET3D = P_BET_GD P_GAM3D = P_GAM_GD XORIG3D = XORIG_GD YORIG3D = YORIG_GD XCENT3D = XCENT_GD YCENT3D = YCENT_GD XCELL3D = XCELL_GD YCELL3D = YCELL_GD VGTYP3D = VGTYP_GD VGTOP3D = VGTOP_GD ! VGTPUN3D = VGTPUN_GD ! currently, not defined DO L = 1, NLAYS3D + 1 VGLVS3D( L ) = VGLVS_GD( L ) END DO GDNAM3D = GRID_NAME ! from HGRD_DEFN FDESC3D( 1 ) = 'Concentration file output' FDESC3D( 2 ) = 'From CMAQ model dyn alloc version CTM' FDESC3D( 3 ) = 'Set of variables (possibly) reduced from CGRID' FDESC3D( 4 ) = 'For next scenario continuation runs,' FDESC3D( 5 ) = 'use the "one-step" CGRID file' KD = 5 V = CONC_BLEV L = 0 DO K = KD + 1, MIN ( C_NLAYS + KD, MXDESC3 ) L = L + 1 WRITE( FDESC3D( K ),'( "Layer", I3, " to", I3, " " )' ) & V + L - 1, L END DO IF ( ( KD + 1 + L ) .LT. MXDESC3 ) THEN DO K = KD + 1 + L, MXDESC3 FDESC3D( K ) = ' ' END DO END IF WRITE( LOGDEV,* ) ' ' WRITE( LOGDEV,* ) ' Conc File Header Description:' DO K = 1, KD + L WRITE( LOGDEV,* ) ' ', TRIM( FDESC3D( K ) ) END DO V = 0 STRT = 1 FINI = N_C_GC_SPC DO SPC = STRT, FINI V = V + 1 VTYPE3D( SPC ) = M3REAL VNAME3D( SPC ) = C_GC_SPC( V ) UNITS3D( SPC ) = 'ppmV' VDESC3D( SPC ) = 'Instantaneous Molar Mixing Ratio ' // VNAME3D( SPC ) END DO V = 0 STRT = FINI + 1 FINI = FINI + N_C_AE_SPC DO SPC = STRT, FINI V = V + 1 VTYPE3D( SPC ) = M3REAL VNAME3D( SPC ) = C_AE_SPC( V ) ! from STD_CONC module IF ( VNAME3D( SPC )(1:3) .EQ. 'NUM' ) THEN UNITS3D( SPC ) = 'm-3' ELSE IF ( VNAME3D( SPC )(1:3) .EQ. 'SRF' ) THEN UNITS3D( SPC ) = 'm2 m-3' ELSE UNITS3D( SPC ) = 'ug m-3' END IF VDESC3D( SPC ) = 'Instantaneous Aerosol Concentration of ' // VNAME3D( SPC ) END DO V = 0 STRT = FINI + 1 FINI = FINI + N_C_NR_SPC DO SPC = STRT, FINI V = V + 1 VTYPE3D( SPC ) = M3REAL VNAME3D( SPC ) = C_NR_SPC( V ) ! from STD_CONC module UNITS3D( SPC ) = 'ppmV' VDESC3D( SPC ) = 'Instantaneous molar mixing ratio of ' // VNAME3D( SPC ) END DO V = 0 STRT = FINI + 1 FINI = FINI + N_C_TR_SPC ! write all TR species DO SPC = STRT, FINI V = V + 1 VTYPE3D( SPC ) = M3REAL VNAME3D( SPC ) = C_TR_SPC( V ) ! from STD_CONC module UNITS3D( SPC ) = 'ppmV' VDESC3D( SPC ) = 'Instantaneous molar mixing ratio of ' // VNAME3D( SPC ) END DO VAR = FINI IF ( W_VEL ) THEN ! for vertical velocity from advection VAR = VAR + 1 VTYPE3D( VAR ) = M3REAL VNAME3D( VAR ) = 'W_VEL' UNITS3D( VAR ) = 'm s-1' VDESC3D( VAR ) = 'Derived vertical velocity component' END IF IF ( L_CONC_RH ) THEN ! for Relative Humidity VAR = VAR + 1 VTYPE3D( VAR ) = M3REAL VNAME3D( VAR ) = 'RH' UNITS3D( VAR ) = '1' VDESC3D( VAR ) = 'Fractional Relative Humidity' END IF IF ( L_CONC_TA ) THEN ! for Temperature VAR = VAR + 1 VTYPE3D( VAR ) = M3REAL VNAME3D( VAR ) = 'TA' UNITS3D( VAR ) = 'K' VDESC3D( VAR ) = 'Air Temperature' END IF IF ( L_CONC_PRES ) THEN ! for Pressure VAR = VAR + 1 VTYPE3D( VAR ) = M3REAL VNAME3D( VAR ) = 'PRES' UNITS3D( VAR ) = 'Pa' VDESC3D( VAR ) = 'Air Pressure' END IF C create header IF ( IO_PE_INCLUSIVE ) THEN ! open new IF ( .NOT. OPEN3( CTM_CONC_1, FSNEW3, PNAME ) ) THEN XMSG = 'Could not open ' // CTM_CONC_1 CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF IF ( .NOT. FLUSH3 ( CTM_CONC_1 ) ) THEN XMSG = 'Could not sync to disk ' // CTM_CONC_1 CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF END IF #endif END SUBROUTINE OPCONC ================================================ FILE: CCTM/src/isam/PISAM_DEFN.F ================================================ MODULE PISAM_DEFN c c20140428 Has function PISAM_INIT c c----------------------------------------------------------------------- ! USE HGRD_DEFN ! horizontal domain specifications USE GRID_CONF ! horizontal domain specifications USE UTILIO_DEFN ! 20120615 IMPLICIT NONE REAL, ALLOCATABLE, SAVE, TARGET :: PISAM( :,:,:,:,: ) CONTAINS FUNCTION PISAM_INIT (NSPC_TSSA, NTAG_TSSA) RESULT ( SUCCESS ) C----------------------------------------------------------------------- C20140428 Create ISAM target, PISAM; just like CGRID on PCGRID. C Called by driver.F C C----------------------------------------------------------------------- ! INCLUDE SUBST_VGRD_ID ! vertical dimensioning parameters !0615 INCLUDE SUBST_IODECL ! I/O definitions and declarations INTEGER :: NSPC_TSSA INTEGER :: NTAG_TSSA LOGICAL :: SUCCESS INTEGER :: ALLOCSTAT LOGICAL, SAVE :: FIRSTIME = .TRUE. CHARACTER( 120 ) :: XMSG = ' ' C PISAM extents INTEGER :: LCOL INTEGER :: HCOL INTEGER :: LROW INTEGER :: HROW SUCCESS = .TRUE. IF ( FIRSTIME ) THEN FIRSTIME = .FALSE. #ifdef parallel LCOL = 1 - NTHIK HCOL = NCOLS + NTHIK LROW = 1 - NTHIK HROW = NROWS + NTHIK #else LCOL = 0 HCOL = NCOLS+1 LROW = 0 HROW = NROWS+1 #endif ALLOCATE ( PISAM( LCOL:HCOL, & LROW:HROW, & NLAYS, & NSPC_TSSA, & NTAG_TSSA ), & STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating PISAM' CALL M3WARN ( 'PISAM_INIT', 0, 0, XMSG ) SUCCESS = .FALSE.; RETURN END IF PISAM = 0.0 ELSE XMSG = 'PISAM already ALLOCATED' CALL M3WARN ( 'PISAM_INIT', 0, 0, XMSG ) SUCCESS = .FALSE.; RETURN END IF RETURN END FUNCTION PISAM_INIT END MODULE PISAM_DEFN ================================================ FILE: CCTM/src/isam/SA_DEFN.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! MODULE SA_DEFN ! KWOK: Define tagging emissions, species, dimensions, etc, based on user-supplied sa_io_list ! KWOK: Created Oct 5, 2010 ! 29 Oct 18 L.Zhou, S.Napelenok: update for cmaq 5.3 release ! 35 Mar 19 S.Napelenok: recode REGION handling and clean-up for release ! 10 Jun 21 G. Sarwar: Added CB6R3M ! 23 Jun 21 G. Sarwar: Replaced CB6R3M with CB6R5M ! 25 June 21 G. Sarwar: Removed CB6R3_AE6_AQ since it is not suported in CMAQ any more ! 26 Apr 22 G. Sarwar: Added DMS USE RUNTIME_VARS, ONLY : VOC_NOX_TRANS, ISAM_NOX_CASE, ISAM_VOC_CASE IMPLICIT NONE SAVE PUBLIC INTEGER ITAG c...Tagging maps CHARACTER( 16 ), ALLOCATABLE :: ISAM_SPEC( :,: ) INTEGER, ALLOCATABLE, SAVE :: MAP_SAtoCGR( : ) INTEGER, ALLOCATABLE, SAVE :: MAP_CGRtoSA( : ) LOGICAL, ALLOCATABLE, SAVE :: L_ISAM_AERO( : ) INTEGER, ALLOCATABLE, SAVE :: MAP_ISAMtoAERO( : ) INTEGER, ALLOCATABLE, SAVE :: MAP_AEROtoSA( :,: ) INTEGER, ALLOCATABLE, SAVE :: MAP_AEROGAStoSA( : ) INTEGER, ALLOCATABLE, SAVE :: MAP_AEROCTRtoSA( : ) LOGICAL, ALLOCATABLE, SAVE :: IS_SPC_AEROSOL( :,: ) LOGICAL, ALLOCATABLE, SAVE :: TRANSPORT_SPC ( : ) LOGICAL, ALLOCATABLE, SAVE :: ISAM_SPECIES_BIAS( :,: ) INTEGER, ALLOCATABLE, SAVE :: STREAM_TO_TAG ( :,: ) INTEGER, ALLOCATABLE, SAVE :: TAGS_PER_STREAM( : ) INTEGER, ALLOCATABLE, SAVE :: MAP_DIFFtoSA( : ) INTEGER, ALLOCATABLE, SAVE :: MAP_ADVtoSA( : ) INTEGER, ALLOCATABLE, SAVE :: ISAM_TO_AERO( : ) ! maps tracked species to bulk concentration if aerosol species INTEGER, ALLOCATABLE, SAVE :: SA_AERO_INDX( : ) ! index of tracked aerosol in ISAM concentration array INTEGER, ALLOCATABLE, SAVE :: ISAM_PVO3_MAP( : ) ! potential vorticity map INTEGER :: NSPC_SA_AE ! number of tracked species that are aerosols INTEGER :: N_SA_AEROSPC ! number of unique aerospc in all tracked aerosols INTEGER, SAVE :: NSPC_SA INTEGER, SAVE :: NTAG_SA INTEGER, SAVE :: NSPC_TRANSPORT INTEGER, PARAMETER :: NBIAS = 4 INTEGER, SAVE :: N_VOC_BIAS INTEGER, SAVE :: N_NOY_BIAS c...Define Allocatable Apportionment Arrays REAL, POINTER :: ISAM ( :,:,:,:,: ) REAL, ALLOCATABLE :: AISAM ( :,:,:,:,: ) REAL, ALLOCATABLE :: TOT_SADEP ( :,:,:,: ) REAL, ALLOCATABLE :: CONV_SADEP ( :,:,:,: ) REAL, ALLOCATABLE :: SA_VDEMIS_CONV( :,:,:,:,: ) ! full emissions array mapped to diffused species REAL, ALLOCATABLE :: SA_VDEMIS_CONV_OTHER( :,:,:,: ) ! emissions left for 'OTHRTAG' REAL, ALLOCATABLE :: SA_VDEMIS_DIFF( :,:,:,:,: ) c...Variables regarding the tag list CHARACTER( 16 ), ALLOCATABLE, SAVE :: TAGNAME( : ) CHARACTER( 96 ) :: TAGCLASSES = ' ' CHARACTER( 96 ), ALLOCATABLE, SAVE :: TAGSTREAMS_TEMP( : ) CHARACTER( 96 ), ALLOCATABLE, SAVE :: TAGSTREAMS( :, : ) INTEGER, ALLOCATABLE, SAVE :: TAGSTREAMS_NUM( : ) CHARACTER( 96 ), ALLOCATABLE, SAVE :: ISAMRGN_TEMP( : ) CHARACTER( 96 ), ALLOCATABLE, SAVE :: ISAMRGN( :, : ) INTEGER, ALLOCATABLE, SAVE :: ISAMRGN_NUM( : ) INTEGER, ALLOCATABLE, SAVE :: ISAMRGN_MAP( :, : ) c...Logical values for tagging species LOGICAL, SAVE :: L_EC = .FALSE. LOGICAL, SAVE :: L_OC = .FALSE. LOGICAL, SAVE :: L_SO4 = .FALSE. LOGICAL, SAVE :: L_NO3 = .FALSE. LOGICAL, SAVE :: L_NH4 = .FALSE. LOGICAL, SAVE :: L_PM25 = .FALSE. LOGICAL, SAVE :: L_OZONE = .FALSE. LOGICAL, SAVE :: L_VOC = .FALSE. LOGICAL, SAVE :: L_CL = .FALSE. LOGICAL, SAVE :: SA_BIDI = .FALSE. ! Chemical Mechanism Lists for Populating ISAM Species Arrays TYPE ISAM_LIST CHARACTER( 16 ), ALLOCATABLE :: LIST( : ) END TYPE ISAM_LIST TYPE( ISAM_LIST ), ALLOCATABLE :: ISAM_SPEC_OZONE( : ), & ISAM_SPEC_NO3( : ), ISAM_SPEC_VOC( : ), & ISAM_SPEC_SO4( : ), ISAM_SPEC_HAPGAS( : ), & ISAM_BIAS_VOC( : ), ISAM_BIAS_NOY( : ) ! Full chemistry commented out because it produced floating ! point error in advection when using debug flags. ! LOGICAL, SAVE :: L_CHEMISTRY ! Cloud Module variables - sln 4 june 2018 REAL, SAVE :: DEPSUM_SAVE = 0.0 REAL, SAVE :: DS4_SAVE = 0.0 REAL, SAVE :: REMOV_SAVE = 0.0 REAL, SAVE :: DEPSUM_AORGC_SAVE = 0.0 REAL, SAVE :: DGLY1_SAVE = 0.0 REAL, SAVE :: DMGLY1_SAVE = 0.0 REAL, SAVE :: REMOV_AORGC_SAVE = 0.0 c...Final, combined tags INTEGER :: N_SPCTAG INTEGER, ALLOCATABLE :: S_SPCTAG( : ) INTEGER, ALLOCATABLE :: T_SPCTAG( : ) CHARACTER( 16 ), ALLOCATABLE :: VNAM_SPCTAG( : ) C ...Tagging indices for bcon, others, icon INTEGER, SAVE :: BIDITAG = 0 INTEGER, SAVE :: BCONTAG = 0 INTEGER, SAVE :: OTHRTAG = 0 INTEGER, SAVE :: ICONTAG = 0 REAL, PRIVATE, ALLOCATABLE :: BUFF2( :,: ) ! Diffusion module variables REAL, ALLOCATABLE, SAVE :: SA_DDEP( :,:,: ) ! Advection module variables LOGICAL, ALLOCATABLE, SAVE :: BCON_SPC( : ) INTEGER, PARAMETER, PRIVATE :: MAX_STRING = 32 ! max length of tagclass name INTEGER, PARAMETER, PRIVATE :: MAX_TAGCLASSES = 200 ! max number of tagclasses INTEGER, PARAMETER, PRIVATE :: NUMB_CLASSES = 19 ! number of defined tagclasses CHARACTER( MAX_STRING ), PARAMETER, PRIVATE :: DEFINED_CLASSES( NUMB_CLASSES ) = & (/ 'AMMONIUM ', & 'OA_TOT ', & 'NVPOA ', & 'CHLORINE ', & 'EC ', & 'SULFATE ', & 'OZONE ', & 'NITRATE ', & 'VOC ', & 'PM_IONS ', & 'ALL ', & 'PM_TOT ', & 'HAP_GAS ', & 'HAP_AERO ', & 'HAP_TOT ', & 'URBAN_TOXICS', & 'PAH_TEQ ', & 'BENAPYRENE ', & 'MERCURY '/) CONTAINS C============================================================ SUBROUTINE CNT_SA_IO_LIST ( NTAGS ) C20140428 Counts the number of emissions tags in the input control file C Called by sa_dim.F C C USE UTILIO_DEFN ! 20120615 c USE HGRD_DEFN USE RUNTIME_VARS, ONLY: ABFLUX, MYPE, LOGDEV IMPLICIT NONE CHARACTER( 16 ) :: PNAME = 'CNT_SA_IO_LIST' CHARACTER( 256 ) :: EQNAME INTEGER INPUT_UNIT INTEGER IOST CHARACTER( 80 ) :: XMSG C external functions INTEGER LEN_TRIM INTEGER, INTENT( OUT ) :: NTAGS INTEGER ILINE CHARACTER( 180 ) :: TXTLINE C----------------------------------------------------------- CALL NAMEVAL( 'SA_IOLIST', EQNAME ) INPUT_UNIT = JUNIT() OPEN ( UNIT = INPUT_UNIT, FILE = EQNAME, STATUS = 'OLD', IOSTAT = IOST ) XMSG = 'Error Opening ' // TRIM( EQNAME ) // ', the SA_IOLIST file' IF ( IOST .NE. 0 ) THEN CALL M3EXIT ( PNAME, 0, 0, XMSG, XSTAT1 ) ENDIF IF ( MYPE .EQ. 0 ) THEN WRITE(LOGDEV, *) TRIM( EQNAME ) // ': Sucessfully Opened' WRITE(LOGDEV, *) 'Start counting the list...' ENDIF NTAGS = 0 COUNTTAG: DO READ ( INPUT_UNIT, '(A)' ) TXTLINE IF ( TXTLINE( 1:7 ) .EQ. 'ENDLIST' ) EXIT COUNTTAG IF ( TXTLINE( 1:7 ) .EQ. 'TAG NAM' ) THEN NTAGS = NTAGS + 1 !IF ( MYPE .EQ. 0 ) PRINT*, TXTLINE ENDIF ! if tag_name c check to see if bidirectional tag is necessary IF ( ABFLUX ) THEN IF ( INDEX( TXTLINE, 'TAG CLASSES') .GT. 0 ) THEN IOST = INDEX( TXTLINE,'AMMONIUM', BACK = .FALSE. ) IF ( IOST .NE. 0 ) THEN SA_BIDI = .TRUE. NTAGS = NTAGS + 1 END IF END IF END IF ENDDO COUNTTAG IF ( SA_BIDI ) BIDITAG = NTAGS ! set to last tag CLOSE( INPUT_UNIT ) END SUBROUTINE CNT_SA_IO_LIST C============================================================ SUBROUTINE RD_SA_IO_LIST ( NTAGS ) C20140428 Read entries in each emissions tag in the input control file C Called by sa_dim.F C C C 05 Nov 2018: L.Zhou, S.Napelenok: Reorganized the control file c USE UTILIO_DEFN USE RUNTIME_VARS, ONLY: ABFLUX, MYPE, LOGDEV IMPLICIT NONE C arguments INTEGER, INTENT( IN ) :: NTAGS CHARACTER( 16 ) :: PNAME = 'RD_SA_IO_LIST' CHARACTER( 256 ) :: EQNAME INTEGER INPUT_UNIT INTEGER IOST CHARACTER( 120 ) :: XMSG C external functions INTEGER LEN_TRIM INTEGER ILINE INTEGER ITAG, TAGLOOP CHARACTER( 128 ) :: TXTLINE C...multi-sectors-for-a-single-tag 20130702 INTEGER ISGSTK CHARACTER( 2 ) :: CSGSTK CHARACTER( 16 ) :: FNAME INTEGER DELIMINATOR_INDEX INTEGER BGN_SG INTEGER I, J ,k CHARACTER(1) :: CHR C----------------------------------------------------------- CALL NAMEVAL( 'SA_IOLIST', EQNAME ) INPUT_UNIT = JUNIT() OPEN ( UNIT = INPUT_UNIT, FILE = EQNAME, STATUS = 'OLD', IOSTAT = IOST ) XMSG = 'Error Opening ' // TRIM( EQNAME ) // ', the SA_IOLIST file' IF ( IOST .NE. 0 ) THEN CALL M3EXIT ( PNAME, 0, 0, XMSG, XSTAT1 ) ENDIF CHR = CHAR(124) 101 READ ( INPUT_UNIT, '(A)' ) TXTLINE IF ( TXTLINE(1:3) .EQ. '!!!' .OR. TXTLINE(1:3) .EQ. '' ) GOTO 101 IF( INDEX( TXTLINE, 'TAG CLASSES' ) .GE. 1 )THEN DELIMINATOR_INDEX = INDEX( TXTLINE, CHAR( 124 ) ) + 1 IF( DELIMINATOR_INDEX .LE. 1 )THEN XMSG = 'ISAM ERROR: TAG CLASSES line missing the "|" deliminator' CALL M3EXIT('SA_IOLIST', 0, 0, XMSG, XSTAT2 ) END IF TAGCLASSES = TXTLINE( DELIMINATOR_INDEX:LEN_TRIM( TXTLINE ) ) IF( LEN_TRIM( TAGCLASSES ) .LT. 1 )THEN XMSG = "ISAM ERROR: TAGCLASSES in control file is blank. " CALL M3EXIT('SA_IOLIST', 0, 0, XMSG, XSTAT2 ) END IF ELSE XMSG = "ISAM ERROR: First Nonblank or Noncomment line " & // "in control file must define TAG CLASSES. " CALL M3EXIT('SA_IOLIST', 0, 0, XMSG, XSTAT2 ) END IF IF ( MYPE .eq. 0 ) then WRITE(LOGDEV, *) 'Reading ISAM control file' WRITE(LOGDEV, *) 'TAGCLASSES = ',TRIM(TAGCLASSES) WRITE(LOGDEV, *) ' for ', NTAGS, ' tags' ENDIF IF ( SA_BIDI ) THEN TAGLOOP = NTAGS -1 ELSE TAGLOOP = NTAGS ENDIF DO ITAG = 1, ( TAGLOOP ) TAGNAME( ITAG ) = ' ' ISAMRGN_TEMP( ITAG ) = ' ' TAGSTREAMS_TEMP( ITAG ) = ' ' 102 READ ( INPUT_UNIT, '(A)' ) TXTLINE IF ( TXTLINE(1:3) .EQ. '!!!' .OR. TXTLINE(1:3) .EQ. '' ) GOTO 102 IF( INDEX( TXTLINE, 'TAG NAME' ) .GE. 1 )THEN DELIMINATOR_INDEX = INDEX( TXTLINE, CHAR( 124 ) ) + 1 IF( DELIMINATOR_INDEX .LE. 1 )THEN XMSG = 'ISAM ERROR: "TAG NAME" line missing the "|" deliminator' CALL M3EXIT('SA_IOLIST', 0, 0, XMSG, XSTAT2 ) END IF TAGNAME( ITAG ) = TXTLINE( DELIMINATOR_INDEX:LEN_TRIM( TXTLINE ) ) IF( LEN_TRIM( TAGNAME( ITAG ) ) .LT. 1 )THEN XMSG = 'ISAM ERROR: a "TAG NAME" in control file is blank. ' CALL M3EXIT('SA_IOLIST', 0, 0, XMSG, XSTAT2 ) END IF IF( INDEX( TAGNAME( ITAG ), "_", BACK = .FALSE. ) .GT. 0 )THEN XMSG = 'ISAM ERROR: TAG NAME: ' // TRIM( TAGNAME( ITAG ) ) & // ' cannot use the underscore character.' CALL M3EXIT('SA_IOLIST', 0, 0, XMSG, XSTAT2 ) END IF ELSE XMSG = "ISAM ERROR: First line defining a TAG " & // 'in control file must contain the "TAG NAME" ' CALL M3EXIT('SA_IOLIST', 0, 0, XMSG, XSTAT2 ) END IF 103 READ ( INPUT_UNIT, '(A)' ) TXTLINE IF ( TXTLINE(1:3) .EQ. '!!!' .OR. TXTLINE(1:3) .EQ. '' ) GOTO 103 IF( INDEX( TXTLINE, 'REGION' ) .GE. 1 )THEN DELIMINATOR_INDEX = INDEX( TXTLINE, CHAR( 124 ) ) + 1 IF( DELIMINATOR_INDEX .LE. 1 )THEN XMSG = 'ISAM ERROR: a "REGION(s)" line missing the "|" deliminator' CALL M3EXIT('SA_IOLIST', 0, 0, XMSG, XSTAT2 ) END IF ISAMRGN_TEMP( ITAG ) = TXTLINE( DELIMINATOR_INDEX:LEN_TRIM( TXTLINE ) ) IF( LEN_TRIM( ISAMRGN_TEMP( ITAG ) ) .LT. 1 )THEN XMSG = 'ISAM ERROR: a "REGION(s)" in control file is blank. ' CALL M3EXIT('SA_IOLIST', 0, 0, XMSG, XSTAT2 ) END IF ELSE XMSG = "ISAM ERROR: Second line defining a TAG " & // 'in control file must contain the "REGION(s)" ' CALL M3EXIT('SA_IOLIST', 0, 0, XMSG, XSTAT2 ) END IF 104 READ ( INPUT_UNIT, '(A)' ) TXTLINE IF ( TXTLINE(1:3) .EQ. '!!!' .OR. TXTLINE(1:3) .EQ. '' ) GOTO 104 IF( INDEX( TXTLINE, 'EMIS STREAM' ) .GE. 1 )THEN DELIMINATOR_INDEX = INDEX( TXTLINE, CHAR( 124 ) ) + 1 IF( DELIMINATOR_INDEX .LE. 1 )THEN XMSG = 'ISAM ERROR: a "EMIS STREAM(s)" line missing the "|" deliminator' CALL M3EXIT('SA_IOLIST', 0, 0, XMSG, XSTAT2 ) END IF TAGSTREAMS_TEMP( ITAG ) = TXTLINE( DELIMINATOR_INDEX:LEN_TRIM( TXTLINE ) ) IF( LEN_TRIM( TAGSTREAMS_TEMP( ITAG ) ) .LT. 1 )THEN XMSG = 'ISAM ERROR: a "EMIS STREAM(s)" in control file is blank. ' CALL M3EXIT('SA_IOLIST', 0, 0, XMSG, XSTAT2 ) END IF ELSE XMSG = "ISAM ERROR: Third line defining a TAG " & // 'in control file must contain the "EMIS STREAM(s)" ' CALL M3EXIT('SA_IOLIST', 0, 0, XMSG, XSTAT2 ) END IF END DO c add a bidirectional tag if necesssary IF ( SA_BIDI ) THEN TAGNAME( NTAGS ) = 'BID' ISAMRGN_TEMP( NTAGS ) = 'EVERYWHERE' TAGSTREAMS_TEMP( NTAGS ) = 'BIDIRECTIONALNH3' ENDIF END SUBROUTINE RD_SA_IO_LIST C============================================================ SUBROUTINE GET_NSPC_SA () C20140428 Determine number of ISAM species C Called by sa_dim.F C USE RUNTIME_VARS USE RXNS_DATA, ONLY : MECHNAME !Get Chemical Mechanism Name USE CGRID_SPCS, ONLY : NSPCSD, CGRID_NAME, N_AE_SPC, AE_SPC, & N_NR_SPC, NR_SPC, CGRID_MASK_GAS, & CGRID_MASK_NR USE AERO_DATA USE SOA_DEFN USE UTILIO_DEFN IMPLICIT NONE INTEGER :: ITAG, IMECH, IAERO, JAERO, ISPEC, IMODE INTEGER :: I, J, K INTEGER :: N_ISAM_MECH, NVL_RESET LOGICAL, ALLOCATABLE :: MERCURY_MECH ( : ) CHARACTER( 32 ), ALLOCATABLE :: ISAM_MECHLIST( : ) TYPE( ISAM_LIST ) :: ISAM_SPEC_HAPAERO, ISAM_SPEC_TOXICS, & ISAM_SPEC_PAHTEQ, ISAM_SPEC_MERCURY LOGICAL :: EFLAG = .FALSE. LOGICAL :: FOUND_SPECIES = .FALSE. INTEGER :: CLASSES_FOUND = 0 CHARACTER( 400 ) :: XMSG CHARACTER( 16 ) :: GASNAME, CTRNAME INTEGER :: IOST CHARACTER( MAX_STRING ), ALLOCATABLE :: CLASS_NAMES( : ) INTEGER :: NCLASSES = 0 c---------------------------------------------------------- N_ISAM_MECH = 9 ALLOCATE( ISAM_MECHLIST( N_ISAM_MECH ), MERCURY_MECH ( N_ISAM_MECH ), & ISAM_SPEC_OZONE( N_ISAM_MECH ), ISAM_SPEC_VOC( N_ISAM_MECH ), & ISAM_SPEC_NO3 ( N_ISAM_MECH ), ISAM_SPEC_SO4( N_ISAM_MECH ), & ISAM_SPEC_HAPGAS( N_ISAM_MECH ), & ISAM_BIAS_VOC( N_ISAM_MECH ), ISAM_BIAS_NOY( N_ISAM_MECH ) ) ISAM_MECHLIST = (/'CB6R3_AE7_AQ ', 'CB6R5_AE7_AQ ', & 'CB6R5M_AE7_AQ ', & 'SAPRC07TC_AE6_AQ ', 'SAPRC07TIC_AE6I_AQ', & 'SAPRC07TIC_AE7I_AQ', 'RACM2_AE6_AQ ', & 'CRACMM1_AQ ', 'CRACMM2 '/ ) MERCURY_MECH = (/ .TRUE., .TRUE., & .TRUE., .FALSE., & .FALSE., .FALSE., & .FALSE., .FALSE. / ) ! Detect Mechanism Number IMECH = INDEX1( MECHNAME, N_ISAM_MECH, ISAM_MECHLIST ) ! When Prescribing Species for Ozone, Nitrate and VOCs, do not ! worry about double-counting. The algorithm will look for each ! species in the ISAM_SPEC array before adding it. Put all of ! the species in each category that you think you will need. ! PRESCRIBE OZONE SPECIES DO J = 1,N_ISAM_MECH ALLOCATE( ISAM_SPEC_OZONE( J )%LIST( 4 ) ) END DO !CB6R3_AE7_AQ ISAM_SPEC_OZONE( 1 )%LIST = (/'O3 ','O1D','HO2','O '/) !CB6R5_AE7_AQ ISAM_SPEC_OZONE( 2 )%LIST = (/'O3 ','O1D','HO2','O '/) !CB6R5M_AE7_AQ ISAM_SPEC_OZONE( 3 )%LIST = (/'O3 ','O1D','HO2','O '/) !SAPRC07TC_AE6_AQ ISAM_SPEC_OZONE( 4 )%LIST = (/'O3 ','O1D','HO2','O3P'/) !SAPRC07TIC_AE6I_AQ ISAM_SPEC_OZONE( 5 )%LIST = (/'O3 ','O1D','HO2','O3P'/) !SAPRC07TIC_AE7I_AQ ISAM_SPEC_OZONE( 6 )%LIST = (/'O3 ','O1D','HO2','O3P'/) !RACM2_AE6_AQ ISAM_SPEC_OZONE( 7 )%LIST = (/'O3 ','O1D','HO2','O3P'/) !CRACMM1_AQ ISAM_SPEC_OZONE( 8 )%LIST = (/'O3 ','O1D','HO2','O3P'/) !CRACMM2 ISAM_SPEC_OZONE( 9 )%LIST = (/'O3 ','O1D','HO2','O3P'/) ! PRESCRIBE VOC SPECIES !CB6R3_AE7_AQ ALLOCATE( ISAM_SPEC_VOC( 1 )%LIST( 28 ) ) ISAM_SPEC_VOC( 1 )%LIST = (/'ALD2 ','ALDX ','ETH ', & 'ETHA ','ETOH ','FORM ','IOLE ','ISOP ', & 'MEOH ','OLE ','PAR ','TERP ','TOL ', & 'XYLMN ','NAPH ','ETHY ','PRPA ','ACET ', & 'KET ','GLY ','BENZENE','GLYD ','MEPX ', & 'APIN ','SOAALK ','ECH4 ','CO ','MGLY '/) !CB6R5_AE7_AQ ALLOCATE( ISAM_SPEC_VOC( 2 )%LIST( 28 ) ) ISAM_SPEC_VOC( 2 )%LIST = (/'ALD2 ','ALDX ','ETH ', & 'ETHA ','ETOH ','FORM ','IOLE ','ISOP ', & 'MEOH ','OLE ','PAR ','TERP ','TOL ', & 'XYLMN ','NAPH ','ETHY ','PRPA ','ACET ', & 'KET ','GLY ','BENZENE','GLYD ','MEPX ', & 'APIN ','SOAALK ','ECH4 ','CO ','MGLY '/) !CB6R5M_AE7_AQ ALLOCATE( ISAM_SPEC_VOC( 3 )%LIST( 28 ) ) ISAM_SPEC_VOC( 3 )%LIST = (/'ALD2 ','ALDX ','ETH ', & 'ETHA ','ETOH ','FORM ','IOLE ','ISOP ', & 'MEOH ','OLE ','PAR ','TERP ','TOL ', & 'XYLMN ','NAPH ','ETHY ','PRPA ','ACET ', & 'KET ','GLY ','BENZENE','GLYD ','MEPX ', & 'APIN ','SOAALK ','ECH4 ','CO ','MGLY '/) !SAPRC07TC_AE6_AQ ALLOCATE( ISAM_SPEC_VOC( 4 )%LIST( 41 ) ) ISAM_SPEC_VOC( 4 )%LIST = (/'HCHO ','CCHO ', & 'RCHO ','xHCHO ','xCCHO ','xRCHO ', & 'ALK1 ','ALK2 ','ALK3 ','ALK4 ', & 'ALK5 ','ETHENE ','ACETYLENE ','PROPENE ', & 'ISOPRENE ','TERP ','SESQ ','APIN ', & 'OLE1 ','OLE2 ','ETOH ','MEOH ', & 'GLY ','MGLY ','BENZENE ','TMBENZ124 ', & 'TOLUENE ','MXYL ','OXYL ','PXYL ', & 'NAPHTHAL ','ARO1 ','ARO2MN ','BUTADIENE13', & 'ACROLEIN ','ACETONE ','MEK ','MVK ', & 'MACR ','SOAALK ','CO '/ ) !SAPRC07TIC_AE6I_AQ ALLOCATE( ISAM_SPEC_VOC( 5 )%LIST( 41 ) ) ISAM_SPEC_VOC( 5 )%LIST = (/'HCHO ','CCHO ', & 'RCHO ','xHCHO ','xCCHO ','xRCHO ', & 'ALK1 ','ALK2 ','ALK3 ','ALK4 ', & 'ALK5 ','ETHENE ','ACETYLENE ','PROPENE ', & 'ISOPRENE ','TERP ','SESQ ','APIN ', & 'OLE1 ','OLE2 ','ETOH ','MEOH ', & 'GLY ','MGLY ','BENZENE ','TMBENZ124 ', & 'TOLUENE ','MXYL ','OXYL ','PXYL ', & 'NAPHTHAL ','ARO1 ','ARO2MN ','BUTADIENE13', & 'ACROLEIN ','ACETONE ','MEK ','MVK ', & 'MACR ','SOAALK ','CO '/ ) !SAPRC07TIC_AE7I_AQ ALLOCATE( ISAM_SPEC_VOC( 6 )%LIST( 41 ) ) ISAM_SPEC_VOC( 6 )%LIST = (/'HCHO ','CCHO ', & 'RCHO ','xHCHO ','xCCHO ','xRCHO ', & 'ALK1 ','ALK2 ','ALK3 ','ALK4 ', & 'ALK5 ','ETHENE ','ACETYLENE ','PROPENE ', & 'ISOPRENE ','TERP ','SESQ ','APIN ', & 'OLE1 ','OLE2 ','ETOH ','MEOH ', & 'GLY ','MGLY ','BENZENE ','TMBENZ124 ', & 'TOLUENE ','MXYL ','OXYL ','PXYL ', & 'NAPHTHAL ','ARO1 ','ARO2MN ','BUTADIENE13', & 'ACROLEIN ','ACETONE ','MEK ','MVK ', & 'MACR ','SOAALK ','CO '/ ) !RACM2_AE6_AQ ALLOCATE( ISAM_SPEC_VOC( 7 )%LIST( 38 ) ) ISAM_SPEC_VOC( 7 )%LIST = (/'HCHO ','ACD ','ALD ', & 'UALD ','HC3 ','HC5 ','HC8 ','OLI ', & 'OLT ','ETH ','ETE ','ACE ','ISO ', & 'SESQ ','LIM ','API ','EOH ','MOH ', & 'GLY ','MGLY ','BENZENE','TOL ','XYM ', & 'XYO ','XYP ','NAPH ','DIEN ','ACT ', & 'HKET ','KET ','MVK ','MEK ','MACR ', & 'DCB1 ','DCB2 ','DCB3 ','SOAALK ','CO '/ ) !CRACMM1_AQ ALLOCATE( ISAM_SPEC_VOC( 8 )%LIST( 96 ) ) ISAM_SPEC_VOC( 8 )%LIST = (/'ACD ','ACE ','ACRO ', & 'ACT ','ALD ','API ','BALD ','BDE13 ', & 'BEN ','CSL ','DCB1 ','DCB2 ','DCB3 ', & 'ELHOM ','EOH ','ETE ','ETEG ','ETH ', & 'FURAN ','FURANONE ','GLY ','HOM ','HC3 ', & 'HC5 ','HC10 ','HCHO ','HKET ','IEPOX ', & 'ISHP ','IPN ','IHN ','IPC ','ISO ', & 'KET ','LIM ','LIMAL ','MACR ','MAHP ', & 'MCT ','MEK ','MGLY ','MOH ','MVK ', & 'NAPH ','OLI ','OLT ','OP1 ','OP2 ', & 'OP3 ','OPB ','ORA1 ','ORA2 ','PINAL ', & 'PHEN ','PROG ','ROH ','SESQ ','SLOWROC ', & 'TOL ','UALD ','XYM ','XYE ','PAA ', & 'PAN ','PPN ','MPAN ','ONIT ','ISON ', & 'TRPN ','VROCIOXY ','VROCP5ARO ','VROCP6ARO ','VROCN2ALK ', & 'VROCN1ALK ','VROCP0ALK ','VROCP1ALK ','VROCP2ALK ','VROCP3ALK ', & 'VROCP4ALK ','VROCP5ALK ','VROCP6ALK ','VROCN2OXY2','VROCN2OXY4', & 'VROCN2OXY8','VROCN1OXY1','VROCN1OXY3','VROCN1OXY6','VROCP0OXY2', & 'VROCP0OXY4','VROCP1OXY1','VROCP1OXY3','VROCP2OXY2','VROCP3OXY2', & 'VROCP4OXY2','VROCP5OXY1','VROCP6OXY1'/ ) !CRACMM2 ALLOCATE( ISAM_SPEC_VOC( 9 )%LIST( 97 ) ) ISAM_SPEC_VOC( 9 )%LIST = (/'ACD ','ACE ','ACRO ', & 'ACT ','ALD ','API ','BALD ','BDE13 ', & 'BEN ','CSL ','DCB1 ','DCB2 ','DCB3 ', & 'EBZ ','ELHOM ','EOH ','ETE ','ETEG ', & 'ETH ','FURAN ','FURANONE ','GLY ','HOM ', & 'HC3 ','HC5 ','HC10 ','HCHO ','HKET ', & 'HONIT ','IEPOX ','ISHP ','IPX ','ISO ', & 'KET ','LIM ','LIMAL ','MACR ','MAHP ', & 'MCT ','MEK ','MGLY ','MOH ','MVK ', & 'NAPH ','OLI ','OLT ','OP1 ','OP2 ', & 'OP3 ','OPB ','ORA1 ','ORA2 ','PINAL ', & 'PHEN ','PROG ','ROH ','SESQ ','SLOWROC ', & 'STY ','TOL ','UALD ','XYL ','PAA ', & 'PAN ','PPN ','MPAN ','ONIT ','ISON ', & 'TRPN ','VROCIOXY ','VROCP5ARO ','VROCP6ARO ','VROCN2ALK ', & 'VROCN1ALK ','VROCP0ALK ','VROCP1ALK ','VROCP2ALK ','VROCP3ALK ', & 'VROCP4ALK ','VROCP5ALK ','VROCP6ALK ','VROCN2OXY2','VROCN2OXY4', & 'VROCN2OXY8','VROCN1OXY1','VROCN1OXY3','VROCN1OXY6','VROCP0OXY2', & 'VROCP0OXY4','VROCP1OXY1','VROCP1OXY3','VROCP2OXY2','VROCP3OXY2', & 'VROCP4OXY2','VROCP5OXY1','VROCP6OXY1','ECH4 '/ ) !PRESCRIBE NITRATE SPECIES !CB6R3_AE7_AQ ALLOCATE( ISAM_SPEC_NO3( 1 )%LIST( 22 ) ) ISAM_SPEC_NO3( 1 )%LIST = (/'HNO3 ','NO ','NO2 ','NO3 ', & 'HONO ','N2O5 ','PAN ','XO2N ','NTR1 ','NTR2 ','INTR ', & 'PNA ','PANX ','CLNO2','CLNO3','XO2 ','XO2H ','MEO2 ', & 'ISO2 ','C2O3 ','CXO3 ','ROR '/ ) !CB6R5_AE7_AQ ALLOCATE( ISAM_SPEC_NO3( 2 )%LIST( 22 ) ) ISAM_SPEC_NO3( 2 )%LIST = (/'HNO3 ','NO ','NO2 ','NO3 ', & 'HONO ','N2O5 ','PAN ','XO2N ','NTR1 ','NTR2 ','INTR ', & 'PNA ','PANX ','CLNO2','CLNO3','XO2 ','XO2H ','MEO2 ', & 'ISO2 ','C2O3 ','CXO3 ','ROR '/ ) !CB6R5M_AE7_AQ ALLOCATE( ISAM_SPEC_NO3( 3 )%LIST( 27 ) ) ISAM_SPEC_NO3( 3 )%LIST = (/'HNO3 ','NO ','NO2 ','NO3 ', & 'HONO ','N2O5 ','PAN ','XO2N ','NTR1 ','NTR2 ','INTR ', & 'PNA ','PANX ','CLNO2','CLNO3','BRNO2','BRNO3','INO ', & 'INO2 ','INO3 ','XO2 ','XO2H ','MEO2 ','ISO2 ','C2O3 ', & 'CXO3 ','ROR '/ ) !SAPRC07TC_AE6_AQ ALLOCATE( ISAM_SPEC_NO3( 4 )%LIST( 25 ) ) ISAM_SPEC_NO3( 4 )%LIST = (/'HNO3 ','NO ','NO2 ','NO3 ', & 'HONO ','N2O5 ','PAN ','HNO4 ','RNO3 ','PAN2 ','CLNO ', & 'CLONO ','CLONO2','xNO2 ','MEO2 ','xMEO2 ','RO2C ','RO2XC ', & 'MECO3 ','xMECO3','RCO3 ','xRCO3 ','BZCO3 ','PBZN ','MACO3 '/ ) !SAPRC07TIC_AE6I_AQ ALLOCATE( ISAM_SPEC_NO3( 5 )%LIST( 40 ) ) ISAM_SPEC_NO3( 5 )%LIST = (/'HNO3 ','NO ','NO2 ', & 'NO3 ','HONO ','N2O5 ','PAN ','HNO4 ', & 'RNO3 ','PAN2 ','CLNO ','CLONO ','CLONO2 ', & 'ETHLN ','IMAE ','IMAPAN ','ISOPNN ','MACRN ', & 'NIT1 ','MVKN ','PROPNN ','MTNO3 ','xNO2 ', & 'MEO2 ','xMEO2 ','RO2C ','RO2XC ','MECO3 ', & 'xMECO3 ','RCO3 ','xRCO3 ','BZCO3 ','PBZN ', & 'MACO3 ','TERPNRO2','ISOPO2 ','NISOPO2 ','MVKOO ', & 'MACROO ','RNO3I '/) !SAPRC07TIC_AE7I_AQ ALLOCATE( ISAM_SPEC_NO3( 6 )%LIST( 40 ) ) ISAM_SPEC_NO3( 6 )%LIST = (/'HNO3 ','NO ','NO2 ', & 'NO3 ','HONO ','N2O5 ','PAN ','HNO4 ', & 'RNO3 ','PAN2 ','CLNO ','CLONO ','CLONO2 ', & 'ETHLN ','IMAE ','IMAPAN ','ISOPNN ','MACRN ', & 'NIT1 ','MVKN ','PROPNN ','MTNO3 ','xNO2 ', & 'MEO2 ','xMEO2 ','RO2C ','RO2XC ','MECO3 ', & 'xMECO3 ','RCO3 ','xRCO3 ','BZCO3 ','PBZN ', & 'MACO3 ','TERPNRO2','ISOPO2 ','NISOPO2 ','MVKOO ', & 'MACROO ','RNO3I '/) !RACM2_AE6_AQ ALLOCATE( ISAM_SPEC_NO3( 7 )%LIST( 23 ) ) ISAM_SPEC_NO3( 7 )%LIST = (/'HNO3','NO ','NO2 ','NO3 ','HONO', & 'N2O5','PAN ','HNO4','ONIT','MPAN','ACO3','MO2 ','HC3P', & 'HC5P','HC8P','KETP','ISOP','ETHP','RCO3','XYLP','TR2 ', & 'BENP','ETEP'/ ) !CRACMM1_AQ ALLOCATE( ISAM_SPEC_NO3( 8 )%LIST( 27 ) ) ISAM_SPEC_NO3( 8 )%LIST = (/ 'HNO3 ','NO ','NO2 ','NO3 ','HONO ', & 'N2O5 ','PAN ','HNO4 ','ONIT ','MPAN ','PPN ','ISON ','TRPN ', & 'NALD ','ACO3 ','MO2 ','HC3P ','HC5P ','HC10P','KETP ','ISOP ', & 'ETHP ','RCO3 ','XYLP ','TR2 ','BENP ','ETEP '/ ) !CRACMM2 ALLOCATE( ISAM_SPEC_NO3( 9 )%LIST( 27 ) ) ISAM_SPEC_NO3( 9 )%LIST = (/ 'HNO3 ','NO ','NO2 ','NO3 ','HONO ', & 'N2O5 ','PAN ','HNO4 ','ONIT ','MPAN ','PPN ','ISON ','TRPN ', & 'INALD','ACO3 ','MO2 ','HC3P ','HC5P ','HC10P','KETP ','ISOP ', & 'ETHP ','RCO3 ','XYLP ','TR2 ','BENP ','ETEP '/ ) !PRESCRIBE SPECIES RELEVANT FOR ASSIGNING BIAS TO VOCs !CB6R3_AE7_AQ ALLOCATE( ISAM_BIAS_VOC( 1 )%LIST( 10 ) ) ISAM_BIAS_VOC( 1 )%LIST = (/'ALD2','ALDX','FORM','ACET', & 'KET ','XO2 ','XO2H','ISO2','C2O3','CXO3'/ ) !CB6R5_AE7_AQ ALLOCATE( ISAM_BIAS_VOC( 2 )%LIST( 10 ) ) ISAM_BIAS_VOC( 2 )%LIST = (/'ALD2','ALDX','FORM','ACET', & 'KET ','XO2 ','XO2H','ISO2','C2O3','CXO3'/ ) !CB6R5M_AE7_AQ ALLOCATE( ISAM_BIAS_VOC( 3 )%LIST( 10 ) ) ISAM_BIAS_VOC( 3 )%LIST = (/'ALD2','ALDX','FORM','ACET', & 'KET ','XO2 ','XO2H','ISO2','C2O3','CXO3'/ ) !SAPRC07TC_AE6_AQ ALLOCATE( ISAM_BIAS_VOC( 4 )%LIST( 12 ) ) ISAM_BIAS_VOC( 4 )%LIST = (/'HCHO ','CCHO ','RCHO ', & 'xHCHO ','xCCHO ','xRCHO ','ACROLEIN','ACETONE ', & 'MECO3 ','xMECO3 ','RCO3 ','xRCO3 '/ ) !SAPRC07TIC_AE6I_AQ ALLOCATE( ISAM_BIAS_VOC( 5 )%LIST( 14 ) ) ISAM_BIAS_VOC( 5 )%LIST = (/'HCHO ','CCHO ','RCHO ', & 'xHCHO ','xCCHO ','xRCHO ','ACROLEIN','ACETONE ', & 'RO2C ','RO2XC ','MECO3 ','xMECO3 ','RCO3 ', & 'xRCO3 '/ ) !SAPRC07TIC_AE7I_AQ ALLOCATE( ISAM_BIAS_VOC( 6 )%LIST( 14 ) ) ISAM_BIAS_VOC( 6 )%LIST = (/'HCHO ','CCHO ','RCHO ', & 'xHCHO ','xCCHO ','xRCHO ','ACROLEIN','ACETONE ', & 'RO2C ','RO2XC ','MECO3 ','xMECO3 ','RCO3 ', & 'xRCO3 '/ ) !RACM2_AE6_AQ ALLOCATE( ISAM_BIAS_VOC( 7 )%LIST( 12 ) ) ISAM_BIAS_VOC( 7 )%LIST = (/'HCHO','ACD ','ALD ','UALD', & 'KET ','ACO3','HC3P','HC5P','HC8P','ISOP','RCO3', & 'XYLP'/ ) !CRACMM1_AQ ALLOCATE( ISAM_BIAS_VOC( 8 )%LIST( 13 ) ) ISAM_BIAS_VOC( 8 )%LIST = (/'HCHO ','ACD ','ALD ','UALD ', & 'KET ','ACO3 ','HC3P ','HC5P ','HC10P','ISOP ','RCO3 ', & 'XYEP ', 'XYMP '/ ) !CRACMM2 ALLOCATE( ISAM_BIAS_VOC( 9 )%LIST( 12 ) ) ISAM_BIAS_VOC( 9 )%LIST = (/'HCHO ','ACD ','ALD ','UALD ', & 'KET ','ACO3 ','HC3P ','HC5P ','HC10P','ISOP ','RCO3 ', & 'XYLP '/ ) !PRESCRIBE SPECIES RELEVANT FOR ASSIGNING BIAS TO NOx EMISSIONS !CB6R3_AE7_AQ ALLOCATE( ISAM_BIAS_NOY( 1 )%LIST( 6 ) ) ISAM_BIAS_NOY( 1 )%LIST = (/'HNO3','NO ','NO2 ','NO3 ', & 'HONO','N2O5'/ ) !CB6R5_AE7_AQ ALLOCATE( ISAM_BIAS_NOY( 2 )%LIST( 6 ) ) ISAM_BIAS_NOY( 2 )%LIST = (/'HNO3','NO ','NO2 ','NO3 ', & 'HONO','N2O5'/ ) !CB6R5M_AE7_AQ ALLOCATE( ISAM_BIAS_NOY( 3 )%LIST( 6 ) ) ISAM_BIAS_NOY( 3 )%LIST = (/'HNO3','NO ','NO2 ','NO3 ', & 'HONO','N2O5'/ ) !SAPRC07TC_AE6_AQ ALLOCATE( ISAM_BIAS_NOY( 4 )%LIST( 6 ) ) ISAM_BIAS_NOY( 4 )%LIST = (/'HNO3','NO ','NO2 ','NO3 ', & 'HONO','N2O5'/ ) !SAPRC07TIC_AE6I_AQ ALLOCATE( ISAM_BIAS_NOY( 5 )%LIST( 7 ) ) ISAM_BIAS_NOY( 5 )%LIST = (/'HNO3','NO ','NO2 ','NO3 ', & 'HONO','N2O5','xNO2'/ ) !SAPRC07TIC_AE7I_AQ ALLOCATE( ISAM_BIAS_NOY( 6 )%LIST( 7 ) ) ISAM_BIAS_NOY( 6 )%LIST = (/'HNO3','NO ','NO2 ','NO3 ', & 'HONO','N2O5','xNO2'/ ) !RACM2_AE6_AQ ALLOCATE( ISAM_BIAS_NOY( 7 )%LIST( 6 ) ) ISAM_BIAS_NOY( 7 )%LIST = (/'HNO3','NO ','NO2 ','NO3 ', & 'HONO','N2O5' / ) !CRACMM1_AQ ALLOCATE( ISAM_BIAS_NOY( 8 )%LIST( 6 ) ) ISAM_BIAS_NOY( 8 )%LIST = (/'HNO3','NO ','NO2 ','NO3 ', & 'HONO','N2O5' / ) !CRACMM2 ALLOCATE( ISAM_BIAS_NOY( 9 )%LIST( 6 ) ) ISAM_BIAS_NOY( 9 )%LIST = (/'HNO3','NO ','NO2 ','NO3 ', & 'HONO','N2O5' / ) !PRESCRIBE SULFATE SPECIES !CB6R3_AE7_AQ ALLOCATE( ISAM_SPEC_SO4( 1 )%LIST( 1 ) ) ISAM_SPEC_SO4( 1 )%LIST = (/'SO2'/ ) !CB6R5_AE7_AQ ALLOCATE( ISAM_SPEC_SO4( 2 )%LIST( 1 ) ) ISAM_SPEC_SO4( 2 )%LIST = (/'SO2', 'DMS'/ ) !CB6R5M_AE7_AQ ALLOCATE( ISAM_SPEC_SO4( 3 )%LIST( 2 ) ) ISAM_SPEC_SO4( 3 )%LIST = (/'SO2','DMS'/ ) !SAPRC07TC_AE6_AQ ALLOCATE( ISAM_SPEC_SO4( 4 )%LIST( 1 ) ) ISAM_SPEC_SO4( 4 )%LIST = (/'SO2'/ ) !SAPRC07TIC_AE6I_AQ ALLOCATE( ISAM_SPEC_SO4( 5 )%LIST( 1 ) ) ISAM_SPEC_SO4( 5 )%LIST = (/'SO2'/ ) !SAPRC07TIC_AE7I_AQ ALLOCATE( ISAM_SPEC_SO4( 6 )%LIST( 1 ) ) ISAM_SPEC_SO4( 6 )%LIST = (/'SO2'/ ) !RACM2_AE6_AQ ALLOCATE( ISAM_SPEC_SO4( 7 )%LIST( 1 ) ) ISAM_SPEC_SO4( 7 )%LIST = (/'SO2'/ ) !CRACMM1_AQ ALLOCATE( ISAM_SPEC_SO4( 8 )%LIST( 1 ) ) ISAM_SPEC_SO4( 8 )%LIST = (/'SO2'/ ) !CRACMM2 ALLOCATE( ISAM_SPEC_SO4( 9 )%LIST( 1 ) ) ISAM_SPEC_SO4( 9 )%LIST = (/'SO2'/ ) !PRESCRIBE HAP SPECIES !CB6R3_AE7_AQ ALLOCATE( ISAM_SPEC_HAPGAS( 1 )%LIST( 7 ) ) ISAM_SPEC_HAPGAS( 1 )%LIST = (/'FORM_PRIMARY','ALD2_PRIMARY', & 'ACROLEIN ','BUTADIENE13 ','ACRO_PRIMARY', & 'TOLU ','CL2 '/) !CB6R5_AE7_AQ ALLOCATE( ISAM_SPEC_HAPGAS( 2 )%LIST( 7 ) ) ISAM_SPEC_HAPGAS( 2 )%LIST = (/'FORM_PRIMARY','ALD2_PRIMARY', & 'ACROLEIN ','BUTADIENE13 ','ACRO_PRIMARY', & 'TOLU ','CL2 '/) !CB6R5M_AE7_AQ ALLOCATE( ISAM_SPEC_HAPGAS( 3 )%LIST( 7 ) ) ISAM_SPEC_HAPGAS( 3 )%LIST = (/'FORM_PRIMARY','ALD2_PRIMARY', & 'ACROLEIN ','BUTADIENE13 ','ACRO_PRIMARY', & 'TOLU ','CL2 '/) !SAPRC07TC_AE6_AQ ALLOCATE( ISAM_SPEC_HAPGAS( 4 )%LIST( 6 ) ) ISAM_SPEC_HAPGAS( 4 )%LIST = (/'HCHO_PRIMARY','CCHO_PRIMARY', & 'ACROLEIN ','BUTADIENE13 ','ACRO_PRIMARY', & 'CL2 '/) !SAPRC07TIC_AE6I_AQ ALLOCATE( ISAM_SPEC_HAPGAS( 5 )%LIST( 6 ) ) ISAM_SPEC_HAPGAS( 5 )%LIST = (/'HCHO_PRIMARY','CCHO_PRIMARY', & 'ACROLEIN ','BUTADIENE13 ','ACRO_PRIMARY', & 'CL2 '/) !SAPRC07TIC_AE7I_AQ ALLOCATE( ISAM_SPEC_HAPGAS( 6 )%LIST( 6 ) ) ISAM_SPEC_HAPGAS( 6 )%LIST = (/'HCHO_PRIMARY','CCHO_PRIMARY', & 'ACROLEIN ','BUTADIENE13 ','ACRO_PRIMARY', & 'CL2 '/) !RACM2_AE6_AQ ALLOCATE( ISAM_SPEC_HAPGAS( 7 )%LIST( 1 ) ) ISAM_SPEC_HAPGAS( 7 )%LIST = (/'DIEN '/) !CRACMM1_AQ ALLOCATE( ISAM_SPEC_HAPGAS( 8 )%LIST( 1 ) ) ISAM_SPEC_HAPGAS( 8 )%LIST = (/'HCHO '/) !CRACMM2 ALLOCATE( ISAM_SPEC_HAPGAS( 9 )%LIST( 1 ) ) ISAM_SPEC_HAPGAS( 9 )%LIST = (/'HCHO '/) !AEROSOL HAPS ALLOCATE( ISAM_SPEC_HAPAERO%LIST( 14 ) ) ISAM_SPEC_HAPAERO%LIST = (/'ANI ','ACR_VI ','ACR_III ','ABE ', & 'APB ','ADE_OTHR','ADE_EC ','ADE_OC ', & 'ADE_NO3 ','ADE_SO4 ','ADE_CORS','ACD ', & 'AMN_HAPS','AAS ' /) !NONREACTIVE TEQ TRACERS for Polycylic Aromatic Hydrocarbons ALLOCATE( ISAM_SPEC_PAHTEQ%LIST( 9 ) ) ISAM_SPEC_PAHTEQ%LIST = ( /'PAH_000E0','PAH_176E5','PAH_880E5','PAH_176E4', & 'PAH_176E3','PAH_192E3','PAH_101E2','PAH_176E2', & 'PAH_114E1'/) ALLOCATE( ISAM_SPEC_TOXICS%LIST( 30 ) ) ISAM_SPEC_TOXICS%LIST( 1:30 ) = (/'ACRY_NITRILE','CARBONTET ','PROPYL_DICL ', & 'DICL_PROPENE','CL4_ETHANE ','CHCL3 ','BR2_C2_12 ','CL2_C2_12 ', & 'ETOX ','ACET_NITRILE','XYLENE ','STYRENE ','ACRYACID ', & 'HEXANE ','METHCHLORIDE','CARBSULFIDE ','CHLOROPRENE ','ETHYLBENZENE', & 'HEXMETH_DIS ','HYDRAZINE ','MAL_ANHYDRID','CL_ETHE ','NAPHTHALENE ', & 'QUINOLINE ','TOL_DIIS ','TRIETHYLAMIN','DICL_BENZENE','CL2_ME ', & 'CL4_ETHE ','CL3_ETHE '/) ALLOCATE( ISAM_SPEC_MERCURY%LIST( 4 ) ) ISAM_SPEC_MERCURY%LIST = ( /'HG ','HGIIGAS ', 'HGIIAER ', & 'APHG '/) ! Allocate Vecotrs for Species Names and Aerosol Precursors ALLOCATE ( ISAM_SPEC( NSPCSD, NTAG_SA ), STAT = IOST ) CALL CHECKMEM( IOST, 'ISAM_SPEC', 'GET_NSPC_SA' ) ISAM_SPEC = '' ALLOCATE ( MAP_ISAMtoAERO( NSPCSD ), STAT = IOST ) CALL CHECKMEM( IOST, 'MAP_ISAMtoAERO', 'GET_NSPC_SA' ) MAP_ISAMtoAERO = 0 ALLOCATE ( MAP_AEROtoSA( N_AEROSPC, N_MODE ), STAT = IOST ) CALL CHECKMEM( IOST, 'MAP_AEROtoSA', 'GET_NSPC_SA' ) MAP_AEROtoSA = 0 ALLOCATE ( MAP_AEROGAStoSA( N_AEROSPC ), STAT = IOST ) CALL CHECKMEM( IOST, 'MAP_AEROGAStoSA', 'GET_NSPC_SA' ) MAP_AEROGAStoSA = 0 ALLOCATE ( MAP_AEROCTRtoSA( N_AEROSPC ), STAT = IOST ) CALL CHECKMEM( IOST, 'MAP_AEROCTRtoSA', 'GET_NSPC_SA' ) MAP_AEROCTRtoSA = 0 ALLOCATE ( L_ISAM_AERO( N_AEROSPC ), STAT = IOST ) CALL CHECKMEM( IOST, 'L_ISAM_AERO', 'GET_NSPC_SA' ) L_ISAM_AERO = .FALSE. ! Allocate ISAM_SPECIES_BIAS array ALLOCATE ( ISAM_SPECIES_BIAS( NBIAS,NSPCSD ), STAT = IOST ) ISAM_SPECIES_BIAS = .FALSE. IF ( IMECH .GT. 0 ) THEN N_VOC_BIAS = SIZE( ISAM_BIAS_VOC( IMECH )%LIST ) N_NOY_BIAS = SIZE( ISAM_BIAS_NOY( IMECH )%LIST ) END IF ! Retrieve User-Defined Tag-Classes and Print Errors/Crash CMAQ ! if the User is requesting tag-classes that aren't defined ALLOCATE( CLASS_NAMES( MAX_TAGCLASSES ) ) CALL CHECKMEM( IOST, 'CLASS_NAMES', 'GET_NSPC_SA' ) CALL PARSE_STRING( TAGCLASSES, NCLASSES, CLASS_NAMES ) IF( NCLASSES .LT. 1 )THEN XMSG = "ISAM ERROR: TAGCLASSES in control file incorrectly defined. " CALL M3EXIT('GET_NSPC_SA', 0, 0, XMSG, XSTAT2 ) END IF DO J = 1, NCLASSES K = INDEX1( CLASS_NAMES( J ), NUMB_CLASSES, DEFINED_CLASSES ) IF( K .LT. 1 )THEN XMSG = "ISAM ERROR: unknown tagclass: " // TRIM( CLASS_NAMES( J ) ) WRITE(LOGDEV,'(A)')TRIM(XMSG ) EFLAG = .TRUE. ELSE CLASSES_FOUND = CLASSES_FOUND + 1 END IF END DO IF( EFLAG .OR. CLASSES_FOUND .LT. 1 )THEN XMSG = 'ISAM ERROR: problem defining tagclasses' WRITE(LOGDEV,'(A)')TRIM(XMSG ) XMSG = 'Permitted TAGCLASSES listed below:' WRITE(LOGDEV,'(A)')TRIM(XMSG ) DO J = 1, NUMB_CLASSES WRITE(LOGDEV,'(2X,A)')TRIM( DEFINED_CLASSES( J ) ) END DO XMSG = 'Above fatal error(s) in setting up ISAM' CALL M3EXIT('GET_NSPC_SA', 0, 0, XMSG, XSTAT2 ) END IF ! Initialize Control Variables L_VOC = .FALSE. L_NO3 = .FALSE. L_NH4 = .FALSE. L_OZONE = .FALSE. L_SO4 = .FALSE. L_CL = .FALSE. ! Initalize Number of ISAM Species NSPC_SA = 0 ! Activate All Species if Requested IF ( INDEX( TAGCLASSES,'ALL' ) .NE. 0 ) THEN ! Add All Particle Species L_ISAM_AERO = .TRUE. ! Add All Gas Species DO ISPEC = 1,NSPCSD IF ( INDEX1( CGRID_NAME(ISPEC), NSPC_SA, ISAM_SPEC(:,1) ) .EQ. 0 & .AND. ( CGRID_MASK_GAS( ISPEC ) .OR. & CGRID_MASK_NR( ISPEC ) ) ) THEN NSPC_SA = NSPC_SA + 1 ISAM_SPEC( NSPC_SA,: ) = CGRID_NAME( ISPEC ) END IF END DO ENDIF ! Activate All Particulate Species if Requested IF ( INDEX( TAGCLASSES,'PM_TOT' ) .NE. 0 ) THEN L_ISAM_AERO = .TRUE. L_VOC = .TRUE. L_NO3 = .TRUE. L_NH4 = .TRUE. L_SO4 = .TRUE. L_CL = .TRUE. ENDIF ! Activate Particulate Ions if Requested IF ( INDEX( TAGCLASSES,'PM_IONS' ) .NE. 0 ) THEN FOUND_SPECIES = .FALSE. CALL ADD_ISAM_SPEC( 'ANA', FOUND_SPECIES, IMECH ) CALL ADD_ISAM_SPEC( 'AMG', FOUND_SPECIES, IMECH ) CALL ADD_ISAM_SPEC( 'AK', FOUND_SPECIES, IMECH ) CALL ADD_ISAM_SPEC( 'ACA', FOUND_SPECIES, IMECH ) CALL ADD_ISAM_SPEC( 'AFE', FOUND_SPECIES, IMECH ) CALL ADD_ISAM_SPEC( 'AAL', FOUND_SPECIES, IMECH ) CALL ADD_ISAM_SPEC( 'ASI', FOUND_SPECIES, IMECH ) CALL ADD_ISAM_SPEC( 'ATI', FOUND_SPECIES, IMECH ) CALL ADD_ISAM_SPEC( 'AMN', FOUND_SPECIES, IMECH ) CALL ADD_ISAM_SPEC( 'AOTHR', FOUND_SPECIES, IMECH ) ! Warn if all species are missing CALL ISAM_SPECIES_WARN( 'PM_IONS', FOUND_SPECIES, EFLAG ) ENDIF ! Activate Particulate Chlorine if Requested IF ( INDEX( TAGCLASSES,'CHLORINE' ) .NE. 0 .OR. L_CL ) THEN FOUND_SPECIES = .FALSE. CALL ADD_ISAM_SPEC( 'ACL', FOUND_SPECIES, IMECH ) CALL ADD_ISAM_SPEC( 'HCL', FOUND_SPECIES, IMECH ) ! Warn if all species are missing CALL ISAM_SPECIES_WARN( 'CHLORINE', FOUND_SPECIES, EFLAG ) ENDIF ! Activate Elemental Carbon if Requested IF ( INDEX( TAGCLASSES,'EC' ) .NE. 0 ) THEN FOUND_SPECIES = .FALSE. CALL ADD_ISAM_SPEC( 'AEC', FOUND_SPECIES, IMECH ) ! Warn if all species are missing CALL ISAM_SPECIES_WARN( 'EC', FOUND_SPECIES, EFLAG ) ENDIF ! Activate Non-Volatile Primary Organic Aerosol if Requested IF ( INDEX( TAGCLASSES,'NVPOA' ) .NE. 0 ) THEN FOUND_SPECIES = .FALSE. CALL ADD_ISAM_SPEC( 'APOC', FOUND_SPECIES, IMECH ) CALL ADD_ISAM_SPEC( 'APNCOM', FOUND_SPECIES, IMECH ) ! Warn if all species are missing CALL ISAM_SPECIES_WARN( 'NVPOA', FOUND_SPECIES, EFLAG ) END IF ! Activate Organic Aerosol if Requested IF ( INDEX( TAGCLASSES,'OA_TOT' ) .NE. 0 ) THEN L_VOC = .TRUE. FOUND_SPECIES = .FALSE. DO IAERO = 1,N_AEROSPC IF ( AEROSPC( IAERO )%OM ) & CALL ADD_ISAM_SPEC( AEROSPC(IAERO)%BULKNAME, & FOUND_SPECIES, IMECH ) END DO ! Warn if all species are missing CALL ISAM_SPECIES_WARN( 'OA_TOT', FOUND_SPECIES, EFLAG ) END IF ! Activate Particulate Sulfate if Requested IF ( INDEX( TAGCLASSES,'SULFATE' ) .NE. 0 .OR. L_SO4 ) THEN FOUND_SPECIES = .FALSE. CALL ADD_ISAM_SPEC( 'ASO4', FOUND_SPECIES, IMECH ) CALL CHECK_MECH( 'SULFATE', IMECH, MECHNAME, EFLAG ) DO ISPEC = 1,SIZE( ISAM_SPEC_SO4( IMECH )%LIST ) CALL ADD_ISAM_SPEC( ISAM_SPEC_SO4(IMECH)%LIST(ISPEC), & FOUND_SPECIES, IMECH ) END DO ! Warn if all species are missing CALL ISAM_SPECIES_WARN( 'SULFATE', FOUND_SPECIES, EFLAG ) ENDIF ! Activate Particulate Ammonium if Requested IF ( INDEX( TAGCLASSES,'AMMONIUM' ) .NE. 0 .OR. L_NH4 ) THEN FOUND_SPECIES = .FALSE. CALL ADD_ISAM_SPEC( 'ANH4', FOUND_SPECIES, IMECH ) CALL ADD_ISAM_SPEC( 'NH3', FOUND_SPECIES, IMECH ) ! Warn if all species are missing CALL ISAM_SPECIES_WARN( 'AMMONIUM', FOUND_SPECIES, EFLAG ) ENDIF ! Add Carbon Monoxide if Requested IF ( INDEX( TAGCLASSES,'CO' ) .NE. 0 ) THEN FOUND_SPECIES = .FALSE. CALL ADD_ISAM_SPEC( 'CO', FOUND_SPECIES, IMECH ) ! Warn if all species are missing CALL ISAM_SPECIES_WARN( 'CO', FOUND_SPECIES, EFLAG ) ENDIF ! Add HAP Gases IF ( INDEX( TAGCLASSES,'HAP_GAS' ) .NE. 0 .OR. & INDEX( TAGCLASSES,'HAP_TOT' ) .NE. 0 ) THEN ! set ozone tracking to true for accurate tracking secondary production of HCHO and CH3CHO L_OZONE = .TRUE. FOUND_SPECIES = .FALSE. CALL CHECK_MECH( 'GASEOUS HAPS', IMECH, MECHNAME, EFLAG ) ! Add each VOC Species according to fields ISAM_SPEC_GASHAPS arrays DO ISPEC = 1,SIZE( ISAM_SPEC_HAPGAS( IMECH )%LIST ) CALL ADD_ISAM_SPEC( ISAM_SPEC_HAPGAS(IMECH)%LIST(ISPEC), & FOUND_SPECIES, IMECH ) END DO ! Warn if all species are missing CALL ISAM_SPECIES_WARN( 'GASEOUS HAPS', FOUND_SPECIES, EFLAG ) ENDIF ! Add Ozone if Requested IF ( INDEX( TAGCLASSES,'OZONE' ) .NE. 0 .OR. L_OZONE ) THEN L_OZONE = .TRUE. L_NO3 = .TRUE. L_VOC = .TRUE. FOUND_SPECIES = .FALSE. CALL CHECK_MECH( 'OZONE', IMECH, MECHNAME, EFLAG ) ! Add Ozone-Relevant Species DO ISPEC = 1,SIZE( ISAM_SPEC_OZONE( IMECH )%LIST ) CALL ADD_ISAM_SPEC( ISAM_SPEC_OZONE(IMECH)%LIST(ISPEC), & FOUND_SPECIES, IMECH ) END DO ! Warn if all species are missing CALL ISAM_SPECIES_WARN( 'OZONE', FOUND_SPECIES, EFLAG ) END IF ! Add Nitrate Species IF ( INDEX( TAGCLASSES,'NITRATE' ) .NE. 0 .OR. L_NO3 ) THEN L_NO3 = .TRUE. FOUND_SPECIES = .FALSE. ! Check that the chemical mechanism name is valid CALL CHECK_MECH( 'NITRATE', IMECH, MECHNAME, EFLAG ) ! Add Aerosol Species CALL ADD_ISAM_SPEC( 'ANO3', FOUND_SPECIES, IMECH ) CALL ADD_ISAM_SPEC( 'AMTNO3', FOUND_SPECIES, IMECH ) CALL ADD_ISAM_SPEC( 'AISOPNN', FOUND_SPECIES, IMECH ) ! Add Nitrate-Relevant Gas Species DO ISPEC = 1,SIZE( ISAM_SPEC_NO3( IMECH )%LIST ) CALL ADD_ISAM_SPEC( ISAM_SPEC_NO3(IMECH)%LIST(ISPEC), & FOUND_SPECIES, IMECH ) END DO ! Warn if all species are missing CALL ISAM_SPECIES_WARN( 'NITRATE', FOUND_SPECIES, EFLAG ) ENDIF ! Add VOC Species for VOC Tag-Class IF ( INDEX( TAGCLASSES,'VOC' ) .NE. 0 .OR. L_VOC ) THEN CALL CHECK_MECH( 'VOC', IMECH, MECHNAME, EFLAG ) ! Add each VOC Species according to fields ISAM_SPEC_VOC arrays DO ISPEC = 1,SIZE( ISAM_SPEC_VOC( IMECH )%LIST ) CALL ADD_ISAM_SPEC( ISAM_SPEC_VOC(IMECH)%LIST(ISPEC), & FOUND_SPECIES, IMECH ) END DO ! Warn if all species are missing CALL ISAM_SPECIES_WARN( 'VOC', FOUND_SPECIES, EFLAG ) END IF ! Add HAP Aerosols IF ( INDEX( TAGCLASSES,'HAP_AERO') .NE. 0 .OR. & INDEX( TAGCLASSES,'HAP_TOT' ) .NE. 0 ) THEN FOUND_SPECIES = .FALSE. DO I = 1,SIZE( ISAM_SPEC_HAPAERO%LIST ) CALL ADD_ISAM_SPEC( ISAM_SPEC_HAPAERO%LIST(I), & FOUND_SPECIES, IMECH ) END DO ! Warn if all species are missing CALL ISAM_SPECIES_WARN( 'HAP_AERO', FOUND_SPECIES, EFLAG ) END IF ! Activate BaP tracking if Requested IF ( INDEX( TAGCLASSES,'BENAPYRENE' ) .NE. 0 .OR. & INDEX( TAGCLASSES,'HAP_TOT' ) .NE. 0 ) THEN FOUND_SPECIES = .FALSE. ! Find aerosol phase and add if found CALL ADD_ISAM_SPEC( 'ABENAPY', FOUND_SPECIES, IMECH ) ! Add Vapor-Phase Benzo[a]Pyrene CALL ADD_ISAM_SPEC( 'BENAPY', FOUND_SPECIES, IMECH ) ! Warn if all species are missing CALL ISAM_SPECIES_WARN( 'BENAPYRENE', FOUND_SPECIES, EFLAG ) END IF ! Activate TEQ PAHs tracking if Requested IF ( INDEX( TAGCLASSES,'PAH_TEQ' ) .NE. 0 .OR. & INDEX( TAGCLASSES,'HAP_TOT' ) .NE. 0 ) THEN FOUND_SPECIES = .FALSE. ! Scan for NonReactive PAH tracers DO I = 1,SIZE( ISAM_SPEC_PAHTEQ%LIST ) CALL ADD_ISAM_SPEC( ISAM_SPEC_PAHTEQ%LIST(I), & FOUND_SPECIES, IMECH ) END DO ! Warn if all species are missing CALL ISAM_SPECIES_WARN( 'PAH TEQ', FOUND_SPECIES, EFLAG ) END IF ! Activate Classic Urban Air Toxics tracking if Requested IF ( INDEX( TAGCLASSES,'URBAN_TOXICS' ) .NE. 0 .OR. & INDEX( TAGCLASSES,'HAP_TOT' ) .NE. 0 ) THEN FOUND_SPECIES = .FALSE. ! Scan for NonReactive PAH tracers DO I = 1,SIZE( ISAM_SPEC_TOXICS%LIST ) CALL ADD_ISAM_SPEC( ISAM_SPEC_TOXICS%LIST(I), & FOUND_SPECIES, IMECH ) END DO ! Warn if all species are missing CALL ISAM_SPECIES_WARN( 'URBAN AIR TOXICS', FOUND_SPECIES, EFLAG ) END IF ! Activate Mercury Toxics IF ( INDEX( TAGCLASSES,'MERCURY' ) .NE. 0 .OR. & INDEX( TAGCLASSES,'HAP_TOT' ) .NE. 0 ) THEN FOUND_SPECIES = .FALSE. ! Find aerosol phase and add if found CALL ADD_ISAM_SPEC( 'APHG', FOUND_SPECIES, IMECH ) ! Add gas-phase mercury species DO ISPEC = 1,(SIZE( ISAM_SPEC_MERCURY%LIST ) ) CALL ADD_ISAM_SPEC( ISAM_SPEC_MERCURY%LIST(ISPEC), FOUND_SPECIES, IMECH ) END DO ! Warn if all species are missing CALL ISAM_SPECIES_WARN( 'MERCURY', FOUND_SPECIES, EFLAG ) END IF ! Add Requested Aerosol Species as defined in L_ISAM_AERO ! Part of this procedure involves distributing the aerosol bulknames ! associated with L_ISAM_AERO into mode-dependent names needed ! for ISAM_SPEC. This section will also associate each ISAM ! aerosol species with its volatility type and gas-phase ! counterparts and precursors, if applicable. DO IAERO = 1,N_AEROSPC IF ( L_ISAM_AERO( IAERO ) ) THEN DO IMODE = 1,N_MODE ! If the aerosol exists in a particular mode, then add ! its name, the name of its counterpart vapor, any ! reaction counters and the type of partitioning (i.e. ! reversible, irreversible, or nonvolatile) IF ( .NOT.AERO_MISSING( IAERO,IMODE ) ) THEN MAP_ISAMtoAERO( NSPC_SA ) = IAERO !Add aerosol name NSPC_SA = NSPC_SA + 1 ISAM_SPEC( NSPC_SA,: ) = AEROSPC( IAERO )%NAME( IMODE ) MAP_AEROtoSA( IAERO,IMODE ) = NSPC_SA !Populate Chemistry Bias Arrays if Applicable IF ( IMECH .GT. 0 ) THEN ISPEC = INDEX1( AEROSPC(IAERO)%BULKNAME, N_VOC_BIAS, & ISAM_BIAS_VOC(IMECH)%LIST ) IF ( ISPEC .GT. 0 ) ISAM_SPECIES_BIAS( 3:4,NSPC_SA ) = .TRUE. ISPEC = INDEX1( AEROSPC(IAERO)%BULKNAME, N_NOY_BIAS, & ISAM_BIAS_NOY(IMECH)%LIST ) IF ( ISPEC .GT. 0 ) ISAM_SPECIES_BIAS( 2:3,NSPC_SA ) = .TRUE. END IF IF ( AEROSPC( IAERO )%VOLTYPE .NE. 'NVL' ) THEN NVL_RESET = 0 ! Add condensable vapor species IF ( AEROSPC(IAERO)%GASNAME .NE. '' ) THEN IF ( INDEX1( AEROSPC(IAERO)%GASNAME, & NSPCSD, CGRID_NAME ) .GT. 0 ) THEN IF ( INDEX1( AEROSPC(IAERO)%GASNAME, & NSPC_SA, ISAM_SPEC(:,1) ) .EQ. 0 ) THEN NSPC_SA = NSPC_SA + 1 ISAM_SPEC( NSPC_SA,:) = AEROSPC( IAERO )%GASNAME MAP_AEROGAStoSA( IAERO ) = NSPC_SA ELSE MAP_AEROGAStoSA( IAERO ) = & INDEX1( AEROSPC(IAERO)%GASNAME, NSPC_SA, ISAM_SPEC(:,1) ) END IF ELSE NVL_RESET = NVL_RESET + 1 END IF END IF ! Add reaction counter species IF ( AEROSPC(IAERO)%CTRNAME .NE. '' ) THEN IF ( INDEX1( AEROSPC(IAERO)%CTRNAME, & NSPCSD, CGRID_NAME ) .GT. 0 ) THEN IF ( INDEX1( AEROSPC(IAERO)%CTRNAME, & NSPC_SA, ISAM_SPEC(:,1) ) .EQ. 0 ) THEN NSPC_SA = NSPC_SA + 1 ISAM_SPEC( NSPC_SA,:) = AEROSPC( IAERO )%CTRNAME MAP_AEROCTRtoSA( IAERO ) = NSPC_SA ELSE MAP_AEROCTRtoSA( IAERO ) = & INDEX1( AEROSPC(IAERO)%CTRNAME, NSPC_SA, ISAM_SPEC(:,1) ) END IF ELSE NVL_RESET = NVL_RESET + 1 END IF END IF ! If neither the condensable vapor nor the ! reaction counter are present in the gas species ! list, then reset the aerosol species to ! nonvolatile and print a note to the log IF ( NVL_RESET .EQ. 2 ) THEN AEROSPC( IAERO )%VOLTYPE = 'NVL' GASNAME = AEROSPC(IAERO)%GASNAME CTRNAME = AEROSPC(IAERO)%CTRNAME IF ( GASNAME .EQ. '' ) GASNAME = 'NONE' IF ( CTRNAME .EQ. '' ) CTRNAME = 'NONE' XMSG = 'Attention: The ISAM aerosol species ' // & TRIM(AEROSPC( IAERO )%NAME( IMODE )) // & ' has been defined in AERO_DATA with condensable ' // & 'vapor species ' // TRIM(GASNAME) // ' and/or '// & 'reaction counter species ' // TRIM(CTRNAME) // & ' but neither of these are activated as ISAM ' // & 'species (e.g. in the ISAM control file. The aerosol '// & 'species will be assumed nonvolatile for ISAM.' CALL LOG_MESSAGE( LOGDEV, XMSG ) END IF END IF END IF END DO END IF END DO ! Resize ISAM_SPEC to NSPC_SA ISAM_SPEC = ISAM_SPEC( 1:NSPC_SA,: ) ISAM_SPECIES_BIAS = ISAM_SPECIES_BIAS( :,1:NSPC_SA ) ! Exit CMAQ if There has been a fatal ISAM Error IF ( EFLAG ) THEN CALL M3EXIT( 'GET_NSPC_SA', 0, 0, 'Above Fatal ISAM ERROR(s) Encountered', XSTAT2 ) END IF END SUBROUTINE GET_NSPC_SA ! -------------------------------------------------------------------------------- SUBROUTINE PARSE_STRING ( ENV_VAL, NVARS, VAL_LIST, LOGDEV ) ! takes a string of items delimited by white space, ! commas or semi-colons) and parse out the items into variables. Two data ! types: character strings and integers (still represented as strings in ! the env var vaules). USE UTILIO_DEFN IMPLICIT NONE CHARACTER( * ), INTENT ( IN ) :: ENV_VAL INTEGER, INTENT ( OUT ) :: NVARS CHARACTER( * ), INTENT ( OUT ) :: VAL_LIST( : ) INTEGER, INTENT ( IN ), OPTIONAL :: LOGDEV INTEGER :: MAX_LEN INTEGER :: LEN_EVAL CHARACTER( 16 ) :: PNAME = 'PARSE_STRING' CHARACTER( 1 ) :: CHR CHARACTER( 96 ) :: XMSG INTEGER :: JP( MAX_STRING*SIZE( VAL_LIST ) ) INTEGER :: KP( MAX_STRING*SIZE( VAL_LIST ) ) INTEGER :: STATUS INTEGER :: IP, V INTEGER :: LOC_LOGDEV IF (PRESENT(LOGDEV)) THEN LOC_LOGDEV = LOGDEV ELSE LOC_LOGDEV = 6 END IF MAX_LEN = MAX_STRING * ( SIZE( VAL_LIST ) + 1 ) ! extra character allows deliminator C Parse: NVARS = 0 C do not count until 1st char in string IP = 0 KP = 1 JP = 1 LEN_EVAL = LEN_TRIM( ENV_VAL ) IF ( LEN_EVAL .GT. MAX_LEN ) THEN XMSG = TRIM( PNAME ) // ': The Environment variable, ' & // TRIM( ENV_VAL ) // ', has too long, greater than ' WRITE(LOGDEV,'(A,I8)')TRIM( XMSG ), MAX_LEN XMSG = 'Above fatal error encountered ' CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT2 ) END IF 101 LOOP_101: DO ! read list IP = IP + 1 IF ( IP .GT. LEN_EVAL ) EXIT LOOP_101 CHR = ENV_VAL( IP:IP ) IF ( CHR .EQ. ' ' .OR. ICHAR ( CHR ) .EQ. 09 ) CYCLE LOOP_101 IF( NVARS .GT. SIZE( VAL_LIST ) )THEN XMSG = TRIM( PNAME ) // ':ERROR: Number of values in List, ' & // TRIM( ENV_VAL ) & // ', greater than the size of its storage array, ' WRITE(LOGDEV,'(A,I4)')TRIM( XMSG ), SIZE( VAL_LIST ) XMSG = 'Above fatal error encountered ' CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT2 ) END IF NVARS = NVARS + 1 JP( NVARS ) = IP ! 1st char IF( IP .EQ. LEN_EVAL )THEN ! word one character long KP( NVARS ) = IP V = 1 EXIT LOOP_101 END IF 201 LOOP_201: DO ! read word IP = IP + 1 CHR = ENV_VAL( IP:IP ) IF ( CHR .NE. ' ' .AND. & CHR .NE. ',' .AND. & CHR .NE. ';' .OR. & ICHAR ( CHR ) .EQ. 09 ) THEN ! 09 = horizontal tab CYCLE LOOP_201 ELSE ! last char in word KP( NVARS ) = IP - 1 V = JP( NVARS ) - IP IF( V .GT. MAX_STRING )THEN XMSG = 'The word, ' // ENV_VAL( JP(NVARS):KP(NVARS) ) & // ', in list, ' // TRIM( ENV_VAL ) & // ', is too long, ' WRITE(LOGDEV,'(A,1X,I2,A,I2)')TRIM( XMSG ), V, ' max allowed ', & MAX_STRING XMSG = 'Above fatal error encountered ' CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT2 ) END IF EXIT LOOP_201 END IF IF ( IP .GE. LEN_EVAL ) EXIT LOOP_101 END DO LOOP_201 END DO LOOP_101 IF( NVARS .GT. SIZE( VAL_LIST ) )THEN XMSG = TRIM( PNAME ) // ':ERROR: Number of values in List, ' & // TRIM( ENV_VAL ) // ', greater than ' WRITE(LOGDEV,'(A,I4)')TRIM( XMSG ), SIZE( VAL_LIST ) XMSG = 'Above fatal error encountered ' CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT2 ) END IF DO V = 1, NVARS VAL_LIST( V ) = ENV_VAL( JP( V ):KP( V ) ) END DO RETURN END SUBROUTINE PARSE_STRING c=============================================================== SUBROUTINE GET_MAP_SAtoCGR () C20140428 Map CGRID species index to ISAM tracer species index C Called by driver.F C USE CGRID_SPCS USE RXNS_DATA, ONLY : MECHNAME, NUMB_MECH_SPC, CHEMISTRY_SPC ! USE DEGRADE_PARAMETERS USE UTILIO_DEFN IMPLICIT NONE INTEGER J_SPC, N, ITAG, I2, ISUM INTEGER N_OZN ! index of ozone in gc_spc list INTEGER IOST CHARACTER( 16 ), ALLOCATABLE, SAVE :: CMAQ_ADV_NAMES( : ) INTEGER FRST, LAST, CMAQ_ADV INTEGER I_SPC, K_SPC, NLIST CHARACTER( 132 ) :: XMSG INTEGER ALLOCSTAT LOGICAL FOUND LOGICAL TRANS_WARN LOGICAL EFLAG c---------------------------------------------------------- ! Initialize number of tags * species N_SPCTAG = NSPC_SA * NTAG_SA ! Allocate vectors and arrays for ISAM species names and property ! fields ALLOCATE ( MAP_SAtoCGR( NSPC_SA ), STAT = ALLOCSTAT ) CALL CHECKMEM( ALLOCSTAT, 'MAP_SAtoCGR', 'GET_MAP_SAtoCGR' ) MAP_SAtoCGR = -1 ALLOCATE ( IS_SPC_AEROSOL( NSPC_SA,NTAG_SA ), STAT = ALLOCSTAT ) CALL CHECKMEM( ALLOCSTAT, 'IS_SPC_AEROSOL', 'IS_SPC_AEROSOL' ) IS_SPC_AEROSOL = .FALSE. ALLOCATE ( TRANSPORT_SPC( N_SPCTAG ), STAT = ALLOCSTAT ) CALL CHECKMEM( ALLOCSTAT, 'TRANSPORT_SPC', 'TRANSPORT_SPC' ) TRANSPORT_SPC = .TRUE. ! Determine which ISAM species are aerosols and are transported ! set species names NSPC_TRANSPORT = 0 ISUM = 0 DO ITAG = 1, NTAG_SA DO J_SPC = 1, NSPC_SA ISUM = ISUM + 1 DO N = 1, N_AE_SPC IF( TRIM( ISAM_SPEC( J_SPC,ITAG ) ) .EQ. TRIM( AE_SPC( N ) ))THEN IS_SPC_AEROSOL( J_SPC,ITAG ) = .TRUE. IF ( ITAG .LT. 2 ) NSPC_SA_AE = NSPC_SA_AE + 1 END IF END DO DO N = 1, N_AE_SPC IF( TRIM( ISAM_SPEC( J_SPC,ITAG ) ) .EQ. TRIM( AE_SPC( N ) ) )THEN IS_SPC_AEROSOL( J_SPC,ITAG ) = .TRUE. END IF END DO FOUND = .FALSE. DO N = 1, N_GC_TRNS IF( ISAM_SPEC( J_SPC,ITAG ) .EQ. GC_TRNS( N ) )FOUND = .TRUE. END DO DO N = 1, N_AE_TRNS IF( ISAM_SPEC( J_SPC,ITAG ) .EQ. AE_TRNS( N ) )FOUND = .TRUE. END DO DO N = 1, N_NR_TRNS IF( ISAM_SPEC( J_SPC,ITAG ) .EQ. NR_TRNS( N ) )FOUND = .TRUE. END DO DO N = 1, N_TR_ADV IF( ISAM_SPEC( J_SPC,ITAG ) .EQ. TR_ADV( N ) )FOUND = .TRUE. END DO TRANSPORT_SPC( ISUM ) = FOUND IF( FOUND )NSPC_TRANSPORT = NSPC_TRANSPORT + 1 END DO END DO ALLOCATE ( ISAM_TO_AERO( NSPC_SA_AE ), STAT = ALLOCSTAT ) CALL CHECKMEM( ALLOCSTAT, 'ISAM_TO_AERO', 'GET_SPC_INDEX' ) ISAM_TO_AERO = -1 ALLOCATE ( SA_AERO_INDX( NSPC_SA_AE ), STAT = ALLOCSTAT ) CALL CHECKMEM( ALLOCSTAT, 'SA_AERO_INDX', 'GET_SPC_INDEX' ) SA_AERO_INDX = -1 ITAG = 1 N = 0 DO J_SPC = 1, NSPC_SA IF( .NOT. IS_SPC_AEROSOL( J_SPC,ITAG ) )CYCLE N = N + 1 DO I_SPC = 1, N_AE_SPC IF( TRIM( ISAM_SPEC( J_SPC,ITAG ) ) .NE. TRIM( AE_SPC( I_SPC ) ) ) CYCLE ISAM_TO_AERO( N ) = I_SPC ! + AE_STRT - 1 SA_AERO_INDX( N ) = J_SPC WRITE(LOGDEV,'(A,I4,1X,I5,1X,A16,I3,1X,A16)') & 'ISAM SPECIES, AEROSOL SPECIES = ',N,SA_AERO_INDX( N ),ISAM_SPEC( J_SPC,ITAG ), & ISAM_TO_AERO( N ),AE_SPC( I_SPC ) END DO END DO C...Assign species index with CMAQ species mappings ! Assign species index with CMAQ species mappings ALLOCATE( MAP_CGRtoSA( NSPCSD ) ) MAP_CGRtoSA = 0 DO N = 1, NSPCSD DO J_SPC = 1, NSPC_SA IF ( ISAM_SPEC( J_SPC,ICONTAG ) .EQ. CGRID_NAME( N ) ) THEN MAP_SAtoCGR( J_SPC ) = N MAP_CGRtoSA( N ) = J_SPC END IF ! ISAM_SPEC and gc_spc match END DO END DO ! number of tagging species EFLAG = .FALSE. DO J_SPC = 1, NSPC_SA IF ( MAP_SAtoCGR( J_SPC ) .LT. 1 ) THEN write(logdev,'(A,A,A)')'Tracked species ' & // TRIM( ISAM_SPEC( J_SPC,ICONTAG ) ) // & ' not found among model species ' EFLAG = .TRUE. END IF END DO IF ( EFLAG ) THEN CALL M3EXIT( 'GET_MAP_SAtoCGR', 0, 0, 'Above Fatal Error Encountered', XSTAT2 ) END IF C...Map SA species for Advection ALLOCATE( MAP_ADVtoSA ( N_SPCTAG ) ) CMAQ_ADV = N_GC_TRNS + N_AE_TRNS + N_NR_TRNS + N_TR_ADV ALLOCATE( CMAQ_ADV_NAMES( CMAQ_ADV ) ) FRST = 0 LAST = 0 IF ( N_GC_TRNS .NE. 0 ) THEN FRST = 1 LAST = N_GC_TRNS CMAQ_ADV_NAMES( FRST:LAST ) = GC_TRNS(1:N_GC_TRNS) ENDIF IF ( N_AE_TRNS .NE. 0 ) THEN FRST = LAST + 1 LAST = LAST + N_AE_TRNS CMAQ_ADV_NAMES( FRST:LAST ) = AE_TRNS(1:N_AE_TRNS) END IF IF ( N_NR_TRNS .NE. 0 ) THEN FRST = LAST + 1 LAST = LAST + N_NR_TRNS CMAQ_ADV_NAMES( FRST:LAST ) = NR_TRNS(1:N_NR_TRNS) END IF IF ( N_TR_ADV .NE. 0 ) THEN FRST = LAST + 1 LAST = LAST + N_TR_ADV CMAQ_ADV_NAMES( FRST:LAST ) = TR_ADV(1:N_TR_ADV) END IF MAP_ADVtoSA = -1 N = 0 TRANS_WARN = .FALSE. DO ITAG = 1, NTAG_SA DO J_SPC = 1, NSPC_SA N = N + 1 MAP_ADVtoSA(N) = INDEX1( ISAM_SPEC(J_SPC,1), CMAQ_ADV, CMAQ_ADV_NAMES ) IF( MAP_ADVtoSA(N) .LT. 1 .AND. ITAG .LT. 2 )THEN TRANS_WARN = .TRUE. XMSG = 'ISAM WARNING: Tagged Species, ' // TRIM( ISAM_SPEC(J_SPC,1) ) & // ' not transported. Modify species namelist(s) to include process.' WRITE(LOGDEV,'(A)')TRIM( XMSG ) END IF END DO END DO IF ( TRANS_WARN ) THEN CALL M3WARN( 'GET_MAP_SAtoCGR', 0, 0, 'Species above are not transported.' ) END IF 95000 FORMAT(2(I3,1X),A,L4,1X,I4) C...Map SA species for DEPV C C... DO THIS LATER IF NEEDED FOR THE GENERAL CASE - RIGHT NOW ONLY DO AMMONIA c ALLOCATE( MAP_DEPVtoSA ( N_SPCTAG ) ) c CMAQ_DEPV = N_GC_DEPV + N_AE_DEPV + N_NR_DEPV + N_TR_DEPV c ALLOCATE( CMAQ_DEPV_NAMES( CMAQ_DEPV ) ) c FRST = 0 c LAST = 0 c IF ( N_GC_DEPV .NE. 0 ) THEN c FRST = 1 c LAST = N_GC_DEPV c CMAQ_DEPV_NAMES( FRST:LAST ) = GC_DEPV(1:N_GC_DEPV) c ENDIF c IF ( N_AE_DEPV .NE. 0 ) THEN c FRST = LAST + 1 c LAST = LAST + N_AE_DEPV c CMAQ_DEPV_NAMES( FRST:LAST ) = AE_DEPV(1:N_AE_DEPV) c END IF c IF ( N_NR_DEPV .NE. 0 ) THEN c FRST = LAST + 1 c LAST = LAST + N_NR_DEPV c CMAQ_DEPV_NAMES( FRST:LAST ) = NR_DEPV(1:N_NR_DEPV) c END IF c IF ( N_TR_DEPV .NE. 0 ) THEN c FRST = LAST + 1 c LAST = LAST + N_TR_DEPV c CMAQ_DEPV_NAMES( FRST:LAST ) = TR_DEPV(1:N_TR_DEPV) c END IF c MAP_DEPVtoSA = -1 c N = 0 ! DO ITAG = 1, NTAG_SA c DO J_SPC = 1, NSPC_SA c N = N + 1 c MAP_DEPVtoSA(N) = INDEX1( ISAM_SPEC(J_SPC,1), CMAQ_DEPV, CMAQ_DEPV_NAMES ) c IF( MAP_DEPVtoSA(N) .LT. 1 )THEN c XMSG = 'ISAM WARNING: Tagged Species, ' // TRIM( ISAM_SPEC(J_SPC,1) ) c & // ' not in DEPV list.' c CALL M3EXIT ( 'MAP_DEPVtoSA', 0, 0, XMSG, XSTAT1 ) c END IF c END DO ! END DO END SUBROUTINE GET_MAP_SAtoCGR !------------------------------------------------------------------------------------------- SUBROUTINE CHECK_MECH( TAG_NAME, IMECH, MECHNAME, EFLAG ) !------------------------------------------------------------------------------------------- ! This subroutine checks whether or not the the chemical mechanism ! that the user has supplied is active for ISAM and reports an ! error if not. !------------------------------------------------------------------------------------------- USE RUNTIME_VARS IMPLICIT NONE INTEGER :: IMECH CHARACTER(*) :: TAG_NAME CHARACTER(32) :: MECHNAME LOGICAL :: EFLAG CHARACTER(400):: XMSG IF ( IMECH .EQ. 0 ) THEN XMSG = "ISAM ERROR: The " // TRIM(TAG_NAME) // " tag group has been selected but the species " & // "for the " // TRIM( MECHNAME ) // " mechanism are not defined. Modify GET_NSPC_SA " & // "and GET_SPC_INDEX subroutines to include MECHNAME cases for it." CALL LOG_MESSAGE( LOGDEV, XMSG ) EFLAG = .TRUE. END IF END SUBROUTINE CHECK_MECH !------------------------------------------------------------------------------------------- SUBROUTINE ADD_ISAM_SPEC( CHEM_NAME, FOUND_SPECIES, IMECH ) !------------------------------------------------------------------------------------------- ! This subroutine adds an aerosol or gas-phase species to the ! ISAM species array and sends back a TRUE value for ! FOUND_SPECIES if the input CHEM_NAME is a CMAQ modeled ! species. !------------------------------------------------------------------------------------------- USE CGRID_SPCS USE UTILIO_DEFN USE AERO_DATA, only : N_AEROSPC, AEROSPC IMPLICIT NONE CHARACTER(*) :: CHEM_NAME LOGICAL :: FOUND_SPECIES INTEGER ISPEC, IAERO, IMECH, J_SPC ! Find Species Index ISPEC = INDEX1( CHEM_NAME, NSPCSD, CGRID_NAME ) IAERO = INDEX1( CHEM_NAME, N_AEROSPC, AEROSPC%BULKNAME ) IF ( IAERO .GT. 0 ) THEN ! Species is an aerosol model species L_ISAM_AERO( IAERO ) = .TRUE. FOUND_SPECIES = .TRUE. ELSE IF ( ISPEC .GT. 0 ) THEN IF ( .NOT. CGRID_MASK_AERO( ISPEC ) ) THEN ! Species is a gas model species IF ( INDEX1( CHEM_NAME, NSPC_SA, ISAM_SPEC(:,1) ) .EQ. 0 ) THEN NSPC_SA = NSPC_SA + 1 ISAM_SPEC( NSPC_SA,: ) = CHEM_NAME ! Populate Chemistry Bias Arrays, if Applicable IF ( IMECH .NE. 0 ) THEN J_SPC = INDEX1( CHEM_NAME, N_VOC_BIAS, ISAM_BIAS_VOC(IMECH)%LIST ) IF ( J_SPC .GT. 0 ) ISAM_SPECIES_BIAS( 3:4,NSPC_SA ) = .TRUE. J_SPC = INDEX1( CHEM_NAME, N_NOY_BIAS, ISAM_BIAS_NOY(IMECH)%LIST ) IF ( J_SPC .GT. 0 ) ISAM_SPECIES_BIAS( 2:3,NSPC_SA ) = .TRUE. END IF END IF FOUND_SPECIES = .TRUE. END IF END IF END SUBROUTINE ADD_ISAM_SPEC !------------------------------------------------------------------------------------------- SUBROUTINE ISAM_SPECIES_WARN( TAG_NAME, FOUND_SPECIES, EFLAG ) !------------------------------------------------------------------------------------------- ! This subroutine prints a warning if no species in a tag class ! are found on CMAQ modeled species list. !------------------------------------------------------------------------------------------- USE RUNTIME_VARS IMPLICIT NONE CHARACTER(*) :: TAG_NAME LOGICAL :: FOUND_SPECIES LOGICAL :: EFLAG CHARACTER(400):: XMSG IF ( .NOT. FOUND_SPECIES ) THEN EFLAG = .TRUE. XMSG = " ISAM ERROR: No member of "//TRIM(TAG_NAME)//" tag class found " & // "in species namelists but control file requests the class." CALL LOG_MESSAGE( LOGDEV, XMSG ) END IF END SUBROUTINE ISAM_SPECIES_WARN END MODULE SA_DEFN ================================================ FILE: CCTM/src/isam/SA_IRR_DEFN.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! MODULE SA_IRR_DEFN C*********************************************************************** C20140428 C C (1) Stores initial reaction rates in a C-R-L-nrxns array C (2) Contains subroutines SA_IRR_INIT C and ACCUMRR C C Aug 16, 2011: chemical integration time interval is in MINUTES C C*********************************************************************** IMPLICIT NONE REAL, ALLOCATABLE :: RXINIT( :,:,:,: ) REAL, ALLOCATABLE :: RKI_INIT( :,:,:,: ) REAL, ALLOCATABLE :: YC_INIT( :,:,:,: ) REAL, ALLOCATABLE :: PRDRATE( : ) REAL, ALLOCATABLE :: RKMID ( : ) !20140307 Integrated Rates INTEGER :: ISAM_CHEMISTRY_SPC ! number of ISAM species om photochemistry INTEGER, ALLOCATABLE :: ISAM_SPC_MAP( : ) ! index in ISAM species array INTEGER, ALLOCATABLE :: ISAM_TO_CHEM( : ) ! index is CHEMSITRY_SPC array LOGICAL, ALLOCATABLE :: CONVERT_ISAM( : ) ! whether to ISAM concentration for photochemsitry LOGICAL, ALLOCATABLE :: BIAS_CHEMISTRY_SPC( :,: ) ! whether to favor chemistry species when a reactant REAL :: CONMIN_TAG ! min tag concentration uploaded REAL( 8 ) :: NUMB_ISAM_CELLS = 0.0D0 REAL( 8 ) :: DCONCMIN ! internal min concentration REAL( 8 ) :: DCONMIN_TAG ! internal min tag concentration REAL( 8 ) :: UNIFORM_DCONMIN_TAG ! min tag concentration evenly distributed REAL( 8 ), ALLOCATABLE :: UGM3_TO_PPM( : ) ! CGRID to CHEM Species conversion factor REAL, ALLOCATABLE :: PPM_TO_UGM3( : ) ! CHEM to CGRID Species conversion factor REAL( 8 ), ALLOCATABLE :: SOLD( :,: ) ! local source concentrations LOGICAL, ALLOCATABLE :: ISAM_SPECIES( : ) LOGICAL :: ISAM_NOT_FOUND = .FALSE. TYPE SPECIES_BUDGET CHARACTER(16) :: SPECIES_NAME = ' ' INTEGER :: NREACTIONS = 0 INTEGER, ALLOCATABLE :: IREACTION( : ) REAL(8), ALLOCATABLE :: COEFF_NET( : ) INTEGER :: NRXNS_PROD = 0 INTEGER, ALLOCATABLE :: IRXN_PROD( : ) REAL(8), ALLOCATABLE :: COEFF_POS( : ) INTEGER :: NRXNS_LOSS = 0 INTEGER, ALLOCATABLE :: IRXN_LOSS( : ) REAL(8), ALLOCATABLE :: COEFF_NEG( : ) END TYPE SPECIES_BUDGET TYPE(SPECIES_BUDGET), ALLOCATABLE :: MECHANISM_BUDGET ( : ) TYPE(SPECIES_BUDGET), ALLOCATABLE :: OX_RADICAL_BUDGET( : ) TYPE(SPECIES_BUDGET), ALLOCATABLE :: ISAM_SPC_BUDGET ( : ) INTEGER :: NRXNS_PROD_H2O2 = 0 ! # reactions producing only H2O2 INTEGER :: NRXNS_PROD_HNO3 = 0 ! # reactions producing only HNO3 INTEGER :: NRXNS_PROD_H2O2_HNO3 = 0 ! # reactions producing H2O2 or HNO3 INTEGER, ALLOCATABLE :: H2O2_HNO3_PROD_RXNS( : ) ! indices of H2O2 or HNO3 producing reactions REAL( 8 ), ALLOCATABLE :: H2O2_HNO3_YIELD( : ) ! H2O2 or HNO3 yield for a reaction subset INTEGER :: ISAM_LOG ! Unit number of output log INTEGER :: ISAM_JDATE = 0 INTEGER :: ISAM_JTIME = 0 INTEGER :: ISAM_NSTEP = 0 #ifdef verbose_isam LOGICAL :: CHECK_ISAM = .TRUE. LOGICAL :: WRITE_BUDGET_REPORT = .TRUE. #else LOGICAL :: CHECK_ISAM = .FALSE. LOGICAL :: WRITE_BUDGET_REPORT = .FALSE. #endif LOGICAL :: WRITE_CELL = .FALSE. LOGICAL :: UPDATE_SOLD = .FALSE. LOGICAL :: UPDATE_PROBABILITIES = .FALSE. INTEGER, PARAMETER :: N_OX_RADICALS = 13 CHARACTER( 16 ) :: OX_RADICALS( N_OX_RADICALS ) = & (/ 'O ', & 'O1D ', & 'ACO3 ', & 'MEO3 ', & 'C2O3 ', & 'O3P ', & 'NO ', & 'NO2 ', & 'NO3 ', & 'N2O5 ', & 'HO2 ', & 'MEO2 ', & 'MO2 ' /) LOGICAL, ALLOCATABLE :: IS_ISAM_OX_RADICAL( : ) LOGICAL, ALLOCATABLE :: IS_CHEM_OX_RADICAL( : ) LOGICAL, ALLOCATABLE :: IS_TAG_NONZERO( : ) INTEGER :: OX_RADICAL_FOUND = 0 INTEGER :: OZONE_INDEX = 0 INTEGER, ALLOCATABLE :: OX_INDEX ( : ) LOGICAL :: ISAM_WITH_OZONE = .FALSE. ! specific species indices in chemical mechanism INTEGER :: H2O2_INDEX = 0 INTEGER :: HNO3_INDEX = 0 INTEGER :: O3_INDEX = 0 LOGICAL :: CHEMISTRY_WITH_O3 = .FALSE. REAL( 8 ), PARAMETER, PRIVATE :: ONE = 1.0D0 REAL( 8 ), PARAMETER, PRIVATE :: ZERO = 0.0D0 REAL( 8 ), PARAMETER, PRIVATE :: CUTOFF = 1.0D-23 REAL( 8 ), PARAMETER, PRIVATE :: BULK_CUTOFF = ZERO CONTAINS SUBROUTINE SA_IRR_INIT USE HGRD_DEFN USE VGRD_DEFN USE UTILIO_DEFN USE RXNS_DATA USE SA_DEFN C Initialize arrays and maps that store reaction rates in each grid cell and that C relate ISAM species to chemistry species C C Called by chemistry driver IMPLICIT NONE C..Includes: INCLUDE SUBST_CONST ! CMAQ constants CHARACTER( 16 ), PARAMETER :: PNAME = 'SA_IRR_INIT' ! Program name INTEGER :: I, J, RXN, IP, IL INTEGER :: IOSTAT INTEGER :: C, L, R, S ! Loop indices INTEGER :: SPC ! array index INTEGER :: IOS CHARACTER( 132 ) :: MSG ! Message text ! temporary arrays to set maps between isam to chemistry species INTEGER, ALLOCATABLE :: ISAM_SPC_IDX( : ) INTEGER, ALLOCATABLE :: ISAM_2_CHEMI( : ) LOGICAL, ALLOCATABLE :: NO_CHEMISTRY( : ) CHARACTER(16), ALLOCATABLE :: FIND_IN_ISAM( : ) ! temporary variables to define MECHANISM_BUDGET INTEGER, ALLOCATABLE :: IREACTION( : ) INTEGER, ALLOCATABLE :: IRXN_PROD( : ) INTEGER, ALLOCATABLE :: IRXN_LOSS( : ) REAL(8), ALLOCATABLE :: COEFF_NET( : ) REAL(8), ALLOCATABLE :: COEFF_POS( : ) REAL(8), ALLOCATABLE :: COEFF_NEG( : ) REAL(8) :: COEFF TYPE(SPECIES_BUDGET) :: H2O2_BUDGET TYPE(SPECIES_BUDGET) :: HNO3_BUDGET C======================================================= ISAM_LOG = INIT3( ) ALLOCATE( ISAM_2_CHEMI( NSPC_SA + 1 ) ) ALLOCATE( ISAM_SPC_IDX( NSPC_SA + 1 ) ) ALLOCATE( NO_CHEMISTRY( NSPC_SA + 1 ) ) ALLOCATE( FIND_IN_ISAM( NSPC_SA + 1 ) ) ALLOCATE( BIAS_CHEMISTRY_SPC( NBIAS, NUMB_MECH_SPC ) ) BIAS_CHEMISTRY_SPC = .FALSE. ! Identify species index in ISAM array ISAM_SPC_IDX = 0 ISAM_2_CHEMI = 0 NO_CHEMISTRY = .TRUE. FIND_IN_ISAM = ' ' SPC = 0 DO S = 1, NSPC_SA FIND_IN_ISAM( S ) = ISAM_SPEC( S,OTHRTAG ) ISAM_SPC_IDX( S ) = S END DO SPC = NSPC_SA ! find tagged species in chemistry_spc array to set value of convert_isam ISAM_CHEMISTRY_SPC = 0 DO S = 1, SPC R = INDEX1( TRIM(FIND_IN_ISAM( S )), NUMB_MECH_SPC, CHEMISTRY_SPC ) IF ( R .LE. 0 ) THEN MSG = 'ISAM SPECIES: ' & // TRIM( FIND_IN_ISAM( S ) ) & // ' not found in CHEMISTRY_SPC array ' CALL M3WARN( PNAME, 0, 0, MSG ) CYCLE END IF ISAM_CHEMISTRY_SPC = ISAM_CHEMISTRY_SPC & + 1 ISAM_2_CHEMI( S ) = R BIAS_CHEMISTRY_SPC( :,R ) = ISAM_SPECIES_BIAS( :,S ) NO_CHEMISTRY( S ) = .FALSE. END DO HNO3_INDEX = INDEX1( 'HNO3', NUMB_MECH_SPC, CHEMISTRY_SPC ) H2O2_INDEX = INDEX1( 'H2O2', NUMB_MECH_SPC, CHEMISTRY_SPC ) IF ( H2O2_INDEX .LT. 1 ) THEN H2O2_INDEX = INDEX1( 'HO2H', NUMB_MECH_SPC, CHEMISTRY_SPC ) END IF O3_INDEX = INDEX1( 'H2O2', NUMB_MECH_SPC, CHEMISTRY_SPC ) IF ( O3_INDEX .GT. 0 ) CHEMISTRY_WITH_O3 = .TRUE. IF ( ISAM_CHEM_BIAS .EQ. 5 ) THEN IF ( H2O2_INDEX .LT. 1 .OR. HNO3_INDEX .LT. 1 ) THEN IF ( H2O2_INDEX .LT. 1 ) THEN WRITE(LOGDEV,'(A)')'ISAM_O3_WEIGHTS set to 5 but hydrogen peroxide not found gas chemistry.' END IF IF ( HNO3_INDEX .LT. 1 ) THEN WRITE(LOGDEV,'(A)')'ISAM_O3_WEIGHTS set to 5 but nitric acid not found gas chemistry.' END IF MSG = 'Above Error(s) not found using ISAM runtime option' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF IF ( O3_INDEX .LT. 1 ) THEN WRITE(LOGDEV,'(A)')'ISAM_O3_WEIGHTS set to 5 but gas chemistry does not have ozone.' WRITE(LOGDEV,'(A)')'ISAM_O3_WEIGHTS reset to 1.' ISAM_CHEM_BIAS = 1 END IF END IF IF( ANY( .NOT. NO_CHEMISTRY ) )THEN C..Save pointer for isam species found in chemistry species ALLOCATE( ISAM_TO_CHEM( ISAM_CHEMISTRY_SPC ) ) ALLOCATE( ISAM_SPC_MAP( ISAM_CHEMISTRY_SPC ) ) WRITE(ISAM_LOG,'(/A)')'Below isam species participate in photochemistry' WRITE(ISAM_LOG,'("SPC ISAM_SPC SPC PHOTOCHEM_SPC ")') L = 0 DO S = 1, SPC IF ( .NOT. NO_CHEMISTRY( S ) ) THEN L = L + 1 C = ISAM_SPC_IDX( S ) R = ISAM_2_CHEMI( S ) ISAM_SPC_MAP( L ) = ISAM_SPC_IDX( S ) ISAM_TO_CHEM( L ) = ISAM_2_CHEMI( S ) WRITE(ISAM_LOG,'(I3,1X,A16,1x,I3,1X,A16)') & C, FIND_IN_ISAM( S ), R, CHEMISTRY_SPC( R ) END IF END DO IF( L .NE. ISAM_CHEMISTRY_SPC )THEN MSG = 'ERROR mapping isam to chemistry species: inconsistent number found' CALL M3EXIT ( PNAME, 0, 0, MSG, XSTAT1 ) END IF ELSE MSG = 'NO ISAM species participate in photochemistry ' CALL M3WARN ( PNAME, 0, 0, MSG ) END IF L = 0 DO S = 1, SPC IF( NO_CHEMISTRY( S ) )THEN C = ISAM_SPC_IDX( S ) IF( C .LE. 0 )CYCLE L = L + 1 IF( L .LT. 2 )THEN WRITE(ISAM_LOG,'(/A)')'Below isam species DO NOT participate in photochemistry' WRITE(ISAM_LOG,'("SPC ISAM_SPC")') END IF WRITE(ISAM_LOG,'(I3,1X,A16,1x,I3,A16)') C, FIND_IN_ISAM( S ) END IF END DO DEALLOCATE( ISAM_2_CHEMI ) DEALLOCATE( ISAM_SPC_IDX ) DEALLOCATE( NO_CHEMISTRY ) C...Allocate and set conversion factors for isam chemistry species ALLOCATE( CONVERT_ISAM( ISAM_CHEMISTRY_SPC ), STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating CONVERT_ISAM' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF ALLOCATE( UGM3_TO_PPM( ISAM_CHEMISTRY_SPC ), & PPM_TO_UGM3( ISAM_CHEMISTRY_SPC ), STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating UGM3_TO_PPM or PPM_TO_UGM3' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF ALLOCATE( IS_ISAM_OX_RADICAL( ISAM_CHEMISTRY_SPC ), STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating IS_ISAM_A_RADICAL' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF IS_ISAM_OX_RADICAL = .FALSE. ALLOCATE( IS_CHEM_OX_RADICAL( NUMB_MECH_SPC ), STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating IS_ISAM_A_RADICAL' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF IS_CHEM_OX_RADICAL = .FALSE. WRITE(ISAM_LOG,'(/A)')'Final Table of ISAM chemistry species' WRITE(ISAM_LOG,'("SPC ISAM_SPC SPC PHOTOCHEM_SPC Mol.Wei Convert Conc. Radical Spc")') ALLOCATE( IS_TAG_NONZERO( NTAG_SA ), STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating IS_TAG_NONZERO' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF ! ALLOCATE( FRAC_TOTAL( NTAG_SA ), STAT = IOS ) ! IF ( IOS .NE. 0 ) THEN ! MSG = 'Error allocating FRAC_TOTAL' ! CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) ! END IF ALLOCATE( ISAM_SPECIES( NUMB_MECH_SPC ), STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating ISAM_SPECIES' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF ISAM_SPECIES = .FALSE. DO S = 1, ISAM_CHEMISTRY_SPC C = ISAM_SPC_MAP( S ) R = ISAM_TO_CHEM( S ) IF( FIND_IN_ISAM( C ) .EQ. 'O3' )THEN ISAM_WITH_OZONE = .TRUE. OZONE_INDEX = R WRITE(ISAM_LOG,'(A)')'ISAM Species include ozone' END IF DO L = 1, N_OX_RADICALS IF( FIND_IN_ISAM( C ) .EQ. OX_RADICALS( L ) )THEN IS_ISAM_OX_RADICAL( S ) = .TRUE. END IF IF( CHEMISTRY_SPC( R ) .EQ. OX_RADICALS( L ) )THEN IS_CHEM_OX_RADICAL( R ) = .TRUE. OX_RADICAL_FOUND = OX_RADICAL_FOUND + 1 END IF END DO CONVERT_ISAM( S ) = CONVERT_CONC( R ) ISAM_SPECIES( R ) = .TRUE. UGM3_TO_PPM ( S ) = REAL( 1.0E-3 * MWAIR / SPECIES_MOLWT( R ), 8 ) PPM_TO_UGM3 ( S ) = 1.0E+3 / MWAIR * SPECIES_MOLWT( R ) WRITE(ISAM_LOG,'(I3,1X,A16,1x,I3,1X,A16,2X,F7.2,3(1X,L14))') & C, FIND_IN_ISAM( C ), R, CHEMISTRY_SPC( R ), SPECIES_MOLWT( R ), & CONVERT_ISAM( S ), IS_ISAM_OX_RADICAL( S ),IS_CHEM_OX_RADICAL( R ) END DO DEALLOCATE( FIND_IN_ISAM ) ALLOCATE( OX_INDEX( OX_RADICAL_FOUND ), STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating SOLD' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF OX_INDEX = 0 DCONMIN_TAG = 1.0D-40 DCONCMIN = 1.0D-30 CONMIN_TAG = 1.0E-30 UNIFORM_DCONMIN_TAG = DCONMIN_TAG / REAL( NTAG_SA,8 ) ALLOCATE( SOLD( NTAG_SA, NUMB_MECH_SPC ), STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating SOLD' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF ALLOCATE( MECHANISM_BUDGET( NUMB_MECH_SPC ), STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating MECHANISM_BUDGET' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF ALLOCATE( IREACTION( NRXNS ), & IRXN_PROD( NRXNS ), & IRXN_LOSS( NRXNS ), & COEFF_POS( NRXNS ), & COEFF_NEG( NRXNS ), & COEFF_NET( NRXNS ), STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating IREACTION and COEFF_NET arrays' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF ISAM_WITH_OZONE = ( ISAM_WITH_OZONE .AND. OX_RADICAL_FOUND .GT. 0 ) IF( OX_RADICAL_FOUND .GT. 0 )THEN ALLOCATE( OX_RADICAL_BUDGET( OX_RADICAL_FOUND ), STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating MECHANISM_BUDGET' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF END IF ! find how reactions affect all chemistry species L = 0 DO SPC = 1, NUMB_MECH_SPC S = 0 IP = 0 IL = 0 MECHANISM_BUDGET( SPC )%SPECIES_NAME = CHEMISTRY_SPC( SPC ) MECHANISM_BUDGET( SPC )%NREACTIONS = 0 MECHANISM_BUDGET( SPC )%NRXNS_PROD = 0 MECHANISM_BUDGET( SPC )%NRXNS_LOSS = 0 IREACTION = 0 COEFF_NET = 0.0D0 COEFF_POS = 0.0D0 COEFF_NEG = 0.0D0 ! set indices for Ox radicals IF( IS_CHEM_OX_RADICAL( SPC ) )THEN L = L + 1 OX_INDEX( L ) = SPC OX_RADICAL_BUDGET( L )%SPECIES_NAME = CHEMISTRY_SPC( SPC ) OX_RADICAL_BUDGET( L )%NREACTIONS = 0 OX_RADICAL_BUDGET( L )%NRXNS_PROD = 0 OX_RADICAL_BUDGET( L )%NRXNS_LOSS = 0 END IF ! find effect on CHEMISTRY_SPC( SPC ) and save results DO R = 1, NRXNS COEFF = EFFECT_REACTION( SPC, R, C ) IF( ABS( COEFF ) .GT. 1.0D-8 )THEN S = S + 1 IREACTION( S ) = R COEFF_NET( S ) = COEFF IF( COEFF .GT. 0.0D0 )THEN IP = IP + 1 IRXN_PROD( IP ) = R COEFF_POS( IP ) = COEFF ELSE IL = IL + 1 IRXN_LOSS( IL ) = R COEFF_NEG( IL ) = ABS( COEFF ) END IF END IF END DO ! set up species budget IF( S .GT. 0 )THEN MECHANISM_BUDGET( SPC )%NREACTIONS = S ALLOCATE( MECHANISM_BUDGET( SPC )%IREACTION( S ), & MECHANISM_BUDGET( SPC )%COEFF_NET( S ), STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating bulk MECHANISM_BUDGET arrays' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF MECHANISM_BUDGET( SPC )%IREACTION( 1:S ) = IREACTION( 1:S ) MECHANISM_BUDGET( SPC )%COEFF_NET( 1:S ) = COEFF_NET( 1:S ) IF( IS_CHEM_OX_RADICAL( SPC ) )THEN OX_RADICAL_BUDGET( L )%NREACTIONS = S ALLOCATE( OX_RADICAL_BUDGET( L )%IREACTION( S ), & OX_RADICAL_BUDGET( L )%COEFF_NET( S ), STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating production OX_RADICAL_BUDGET arrays' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF OX_RADICAL_BUDGET( L )%IREACTION( 1:S ) = IRXN_PROD( 1:S ) OX_RADICAL_BUDGET( L )%COEFF_NET( 1:S ) = COEFF_NET( 1:S ) END IF IF( IP .GT. 0 )THEN ! define production information MECHANISM_BUDGET( SPC )%NRXNS_PROD = IP ALLOCATE( MECHANISM_BUDGET( SPC )%IRXN_PROD( IP ), & MECHANISM_BUDGET( SPC )%COEFF_POS( IP ), STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating production MECHANISM_BUDGET arrays' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF MECHANISM_BUDGET( SPC )%IRXN_PROD( 1:IP ) = IRXN_PROD( 1:IP ) MECHANISM_BUDGET( SPC )%COEFF_POS( 1:IP ) = COEFF_POS( 1:IP ) ! capture production information if OX radical IF( IS_CHEM_OX_RADICAL( SPC ) )THEN OX_RADICAL_BUDGET( L )%NRXNS_PROD = IP ALLOCATE( OX_RADICAL_BUDGET( L )%IRXN_PROD( IP ), & OX_RADICAL_BUDGET( L )%COEFF_POS( IP ), STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating production OX_RADICAL_BUDGET arrays' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF OX_RADICAL_BUDGET( L )%IRXN_PROD( 1:IP ) = IRXN_PROD( 1:IP ) OX_RADICAL_BUDGET( L )%COEFF_POS( 1:IP ) = COEFF_POS( 1:IP ) END IF END IF IF( IL .GT. 0 )THEN ! define destruction information MECHANISM_BUDGET( SPC )%NRXNS_LOSS = IL ALLOCATE( MECHANISM_BUDGET( SPC )%IRXN_LOSS( IL ), & MECHANISM_BUDGET( SPC )%COEFF_NEG( IL ), STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating destruction MECHANISM_BUDGET arrays' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF MECHANISM_BUDGET( SPC )%IRXN_LOSS( 1:IL ) = IRXN_LOSS( 1:IL ) MECHANISM_BUDGET( SPC )%COEFF_NEG( 1:IL ) = COEFF_NEG( 1:IL ) ! capture destruction information if OX radical IF( IS_CHEM_OX_RADICAL( SPC ) )THEN OX_RADICAL_BUDGET( L )%NRXNS_LOSS = IL ALLOCATE( OX_RADICAL_BUDGET( L )%IRXN_LOSS( IL ), & OX_RADICAL_BUDGET( L )%COEFF_NEG( IL ), STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating production OX_RADICAL_BUDGET arrays' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF OX_RADICAL_BUDGET( L )%IRXN_LOSS( 1:IL ) = IRXN_LOSS( 1:IL ) OX_RADICAL_BUDGET( L )%COEFF_NEG( 1:IL ) = COEFF_NET( 1:IL ) END IF END IF END IF END DO DEALLOCATE( IREACTION, & IRXN_PROD, & IRXN_LOSS, & COEFF_POS, & COEFF_NEG, & COEFF_NET ) ! Set Hydrogen Peroxide budget data IF ( H2O2_INDEX .GT. 0 ) THEN H2O2_BUDGET%SPECIES_NAME = CHEMISTRY_SPC( H2O2_INDEX ) H2O2_BUDGET%NREACTIONS = MECHANISM_BUDGET( H2O2_INDEX )%NREACTIONS ! set up reaction data with net hydrogen peroxide change S = H2O2_BUDGET%NREACTIONS IF ( S .GT. 0 ) THEN ALLOCATE( H2O2_BUDGET%IREACTION( S ), & H2O2_BUDGET%COEFF_NET( S ), STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating H2O2 budget array' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF H2O2_BUDGET%IREACTION( 1:S ) = MECHANISM_BUDGET( H2O2_INDEX )%IREACTION( 1:S ) H2O2_BUDGET%COEFF_NET( 1:S ) = MECHANISM_BUDGET( H2O2_INDEX )%COEFF_NET( 1:S ) END IF ! define hydrogen peroxide production reaction information H2O2_BUDGET%NRXNS_PROD = MECHANISM_BUDGET( H2O2_INDEX )%NRXNS_PROD IP = H2O2_BUDGET%NRXNS_PROD IF ( IP .GT. 0 ) THEN ALLOCATE( H2O2_BUDGET%IRXN_PROD( IP ), & H2O2_BUDGET%COEFF_POS( IP ), STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating production H2O2_BUDGET arrays' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF H2O2_BUDGET%IRXN_PROD( 1:IP ) = MECHANISM_BUDGET( H2O2_INDEX )%IRXN_PROD( 1:IP ) H2O2_BUDGET%COEFF_POS( 1:IP ) = MECHANISM_BUDGET( H2O2_INDEX )%COEFF_POS( 1:IP ) END IF ! define hydrogen peroxide production reaction information H2O2_BUDGET%NRXNS_LOSS = MECHANISM_BUDGET( H2O2_INDEX )%NRXNS_LOSS IL = H2O2_BUDGET%NRXNS_LOSS IF ( IL .GT. 0 ) THEN ALLOCATE( H2O2_BUDGET%IRXN_LOSS( IL ), & H2O2_BUDGET%COEFF_NEG( IL ), STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating production H2O2_BUDGET arrays' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF H2O2_BUDGET%IRXN_LOSS( 1:IL ) = MECHANISM_BUDGET( H2O2_INDEX )%IRXN_LOSS( 1:IL ) H2O2_BUDGET%COEFF_NEG( 1:IL ) = MECHANISM_BUDGET( H2O2_INDEX )%COEFF_NEG( 1:IL ) END IF END IF ! Set Nitric Acid budget data IF ( HNO3_INDEX .GT. 0 ) THEN ! set up reaction data with net nitric acid change HNO3_BUDGET%SPECIES_NAME = CHEMISTRY_SPC( HNO3_INDEX ) HNO3_BUDGET%NREACTIONS = MECHANISM_BUDGET( HNO3_INDEX )%NREACTIONS S = HNO3_BUDGET%NREACTIONS IF ( S .GT. 0 ) THEN ALLOCATE( HNO3_BUDGET%IREACTION( S ), & HNO3_BUDGET%COEFF_NET( S ), STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating HNO3 budget array' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF HNO3_BUDGET%IREACTION( 1:S ) = MECHANISM_BUDGET( HNO3_INDEX )%IREACTION( 1:S ) HNO3_BUDGET%COEFF_NET( 1:S ) = MECHANISM_BUDGET( HNO3_INDEX )%COEFF_NET( 1:S ) END IF ! define nitric acid production reaction information HNO3_BUDGET%NRXNS_PROD = MECHANISM_BUDGET( HNO3_INDEX )%NRXNS_PROD IP = HNO3_BUDGET%NRXNS_PROD IF ( IP .GT. 0 ) THEN ALLOCATE( HNO3_BUDGET%IRXN_PROD( IP ), & HNO3_BUDGET%COEFF_POS( IP ), STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating production HNO3_BUDGET arrays' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF HNO3_BUDGET%IRXN_PROD( 1:IP ) = MECHANISM_BUDGET( HNO3_INDEX )%IRXN_PROD( 1:IP ) HNO3_BUDGET%COEFF_POS( 1:IP ) = MECHANISM_BUDGET( HNO3_INDEX )%COEFF_POS( 1:IP ) END IF ! define nitric acid destruction information HNO3_BUDGET%NRXNS_LOSS = MECHANISM_BUDGET( HNO3_INDEX )%NRXNS_LOSS IL = HNO3_BUDGET%NRXNS_LOSS IF ( IL .GT. 0 ) THEN ALLOCATE( HNO3_BUDGET%IRXN_LOSS( IL ), & HNO3_BUDGET%COEFF_NEG( IL ), STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating production HNO3_BUDGET arrays' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF HNO3_BUDGET%IRXN_LOSS( 1:IL ) = MECHANISM_BUDGET( HNO3_INDEX )%IRXN_LOSS( 1:IL ) HNO3_BUDGET%COEFF_NEG( 1:IL ) = MECHANISM_BUDGET( HNO3_INDEX )%COEFF_NEG( 1:IL ) END IF END IF NRXNS_PROD_HNO3 = HNO3_BUDGET%NRXNS_PROD NRXNS_PROD_H2O2 = H2O2_BUDGET%NRXNS_PROD NRXNS_PROD_H2O2_HNO3 = NRXNS_PROD_HNO3 + NRXNS_PROD_H2O2 IF ( NRXNS_PROD_HNO3 .GT. 0 .AND. NRXNS_PROD_HNO3 .GT. 0 ) THEN ALLOCATE( H2O2_HNO3_PROD_RXNS( NRXNS_PROD_H2O2_HNO3 ),STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating production H2O2_HNO3_PROD_RXNS arrays' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF IP = NRXNS_PROD_H2O2 IL = NRXNS_PROD_HNO3 H2O2_HNO3_PROD_RXNS( 1:IP ) = H2O2_BUDGET%IRXN_PROD( 1:IP ) H2O2_HNO3_PROD_RXNS( (IP+1):IP+IL ) = HNO3_BUDGET%IRXN_PROD( 1:IL ) ALLOCATE( H2O2_HNO3_YIELD( NRXNS_PROD_H2O2_HNO3 ),STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating production H2O2_HNO3_YIELD arrays' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF H2O2_HNO3_YIELD( 1:IP ) = H2O2_BUDGET%COEFF_POS( 1:IP ) H2O2_HNO3_YIELD( (IP+1):IP+IL ) = HNO3_BUDGET%COEFF_POS( 1:IL ) END IF ALLOCATE( ISAM_SPC_BUDGET( ISAM_CHEMISTRY_SPC ), STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating ISAM_SPC_BUDGET' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF DO SPC = 1, ISAM_CHEMISTRY_SPC R = ISAM_TO_CHEM( SPC ) ISAM_SPC_BUDGET( SPC )%SPECIES_NAME = MECHANISM_BUDGET( R )%SPECIES_NAME ISAM_SPC_BUDGET( SPC )%NREACTIONS = MECHANISM_BUDGET( R )%NREACTIONS ISAM_SPC_BUDGET( SPC )%NRXNS_PROD = MECHANISM_BUDGET( R )%NRXNS_PROD ISAM_SPC_BUDGET( SPC )%NRXNS_LOSS = MECHANISM_BUDGET( R )%NRXNS_LOSS ! define net information S = ISAM_SPC_BUDGET( SPC )%NREACTIONS IF( S .GT. 0 )THEN ALLOCATE( ISAM_SPC_BUDGET( SPC )%IREACTION( S ), & ISAM_SPC_BUDGET( SPC )%COEFF_NET( S ), STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating bulk ISAM_SPC_BUDGET arrays' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF ISAM_SPC_BUDGET( SPC )%IREACTION( 1:S ) = MECHANISM_BUDGET( R )%IREACTION( 1:S ) ISAM_SPC_BUDGET( SPC )%COEFF_NET( 1:S ) = MECHANISM_BUDGET( R )%COEFF_NET( 1:S ) END IF IP = ISAM_SPC_BUDGET( SPC )%NRXNS_PROD IF( IP .GT. 0 )THEN ! define production information ALLOCATE( ISAM_SPC_BUDGET( SPC )%IRXN_PROD( IP ), & ISAM_SPC_BUDGET( SPC )%COEFF_POS( IP ), STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating production ISAM_SPC_BUDGET arrays' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF ISAM_SPC_BUDGET( SPC )%IRXN_PROD( 1:IP ) = MECHANISM_BUDGET( R )%IRXN_PROD( 1:IP ) ISAM_SPC_BUDGET( SPC )%COEFF_POS( 1:IP ) = MECHANISM_BUDGET( R )%COEFF_POS( 1:IP ) END IF IL = ISAM_SPC_BUDGET( SPC )%NRXNS_LOSS IF( IL .GT. 0 )THEN ! define destruction information ALLOCATE( ISAM_SPC_BUDGET( SPC )%IRXN_LOSS( IL ), & ISAM_SPC_BUDGET( SPC )%COEFF_NEG( IL ), STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating production ISAM_SPC_BUDGET arrays' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF ISAM_SPC_BUDGET( SPC )%IRXN_LOSS( 1:IL ) = MECHANISM_BUDGET( R )%IRXN_LOSS( 1:IL ) ISAM_SPC_BUDGET( SPC )%COEFF_NEG( 1:IL ) = MECHANISM_BUDGET( R )%COEFF_NEG( 1:IL ) END IF WRITE(ISAM_LOG,*)SPC, ISAM_SPC_BUDGET( SPC )%SPECIES_NAME,IP,IL END DO ! report budget for mechanism species and OX radicals IF( WRITE_BUDGET_REPORT ) THEN CALL REPORT_MECH_BUDGET( ISAM_LOG ) IF( OX_RADICAL_FOUND .GT. 0 )THEN CALL REPORT_OX_RADICALS( ISAM_LOG ) ELSE MSG = "Note that no Oxygen Radicals were found in mechanism." WRITE(ISAM_LOG,'(A)')TRIM( MSG ) END IF IF( ISAM_CHEMISTRY_SPC .GT. 0 )THEN CALL REPORT_ISAM_BUDGET( ISAM_LOG ) ELSE MSG = "Note that ISAM found in mechanism." WRITE(ISAM_LOG,'(A)')TRIM( MSG ) END IF END IF END SUBROUTINE SA_IRR_INIT REAL(8) FUNCTION EFFECT_REACTION( NAMINDX, NRX, OCCURS ) C----------------------------------------------------------------------- C Function: To find net effect on the number of species molecules from a reaction C Preconditions: None C Key Subroutines/Functions Called: None C Revision History: C Prototype created by Bill Hutzell, May, 2018 C----------------------------------------------------------------------- USE RXNS_DATA IMPLICIT NONE C Includes: None C Arguments: INTEGER, INTENT(IN ) :: NAMINDX ! Index for chemistry species INTEGER, INTENT(IN ) :: NRX ! Reaction number INTEGER, INTENT(INOUT) :: OCCURS ! Number of products and reaction C Parameters: None C External Functions: None C Local Variables: CHARACTER( 16 ) :: SPECIS ! Species name to check INTEGER INDX ! Pointer to reactant or product in CHEMISTRY_SPC array INTEGER IRRPNTR ! Pointer to reactant or product in IRR array INTEGER N ! Loop index over IRR array REAL(8) TOTAL ! Sum of molecular production and loss coeffecients C----------------------------------------------------------------------- OCCURS = 0 TOTAL = 0.0D0 SPECIS = CHEMISTRY_SPC( NAMINDX ) c..Subtract the number of species molecules lost in this reaction DO N = 1, NREACT( NRX ) INDX = IRR( NRX, N ) IF ( INDX .EQ. NAMINDX ) THEN TOTAL = TOTAL - 1.0D0 OCCURS = OCCURS + 1 END IF END DO c..Add the number of species molecules produced in this reaction DO N = 1, NPRDCT( NRX ) IRRPNTR = N + 3 INDX = IRR( NRX, IRRPNTR ) IF ( INDX .EQ. NAMINDX ) THEN TOTAL = TOTAL + REAL( SC( NRX,N ), 8) OCCURS = OCCURS + 1 END IF END DO EFFECT_REACTION = TOTAL RETURN END FUNCTION EFFECT_REACTION SUBROUTINE REPORT_MECH_BUDGET( OUT_UNIT ) ! purpose writes out USE RXNS_DATA IMPLICIT NONE !..Arguments: INTEGER, INTENT( IN ) :: OUT_UNIT ! output unit # INTEGER SPC INTEGER IR, NR DO SPC = 1, NUMB_MECH_SPC WRITE(OUT_UNIT,95000)MECHANISM_BUDGET( SPC )%SPECIES_NAME, & MECHANISM_BUDGET( SPC )%NREACTIONS DO NR = 1, MECHANISM_BUDGET( SPC )%NREACTIONS IR = MECHANISM_BUDGET( SPC )%IREACTION( NR ) WRITE(OUT_UNIT,95001)RXLABEL( IR ),MECHANISM_BUDGET( SPC )%COEFF_NET( NR ) END DO WRITE(OUT_UNIT,95005)MECHANISM_BUDGET( SPC )%SPECIES_NAME, & MECHANISM_BUDGET( SPC )%NRXNS_PROD DO NR = 1, MECHANISM_BUDGET( SPC )%NRXNS_PROD IR = MECHANISM_BUDGET( SPC )%IRXN_PROD( NR ) WRITE(OUT_UNIT,95001)RXLABEL( IR ),MECHANISM_BUDGET( SPC )%COEFF_POS( NR ) END DO END DO 95000 FORMAT("Chemistry species, ",A16,", changed by the ",I4," below reactions", & / 3X, "Reaction Label ",1X,"Net Coeff." ) 95001 FORMAT(3X,A16,1X,ES12.4) 95005 FORMAT("Radical species, ",A16,", produced by the ",I4," below reactions", & / 3X, "Reaction Label ",1X,"Net Coeff." ) END SUBROUTINE REPORT_MECH_BUDGET SUBROUTINE REPORT_OX_RADICALS( OUT_UNIT ) ! purpose writes out production and loss reaction for each OX radical USE RXNS_DATA IMPLICIT NONE !..Arguments: INTEGER, INTENT( IN ) :: OUT_UNIT ! output unit # INTEGER SPC INTEGER IR, NR DO SPC = 1, OX_RADICAL_FOUND IF( OX_RADICAL_BUDGET( SPC )%NRXNS_PROD .GT. 0 )THEN WRITE(OUT_UNIT,95005)OX_RADICAL_BUDGET( SPC )%SPECIES_NAME, & OX_RADICAL_BUDGET( SPC )%NRXNS_PROD DO NR = 1, OX_RADICAL_BUDGET( SPC )%NRXNS_PROD IR = OX_RADICAL_BUDGET( SPC )%IRXN_PROD( NR ) WRITE(OUT_UNIT,95001)RXLABEL( IR ),OX_RADICAL_BUDGET( SPC )%COEFF_POS( NR ) END DO ELSE WRITE(OUT_UNIT,95003)OX_RADICAL_BUDGET( SPC )%SPECIES_NAME END IF IF( OX_RADICAL_BUDGET( SPC )%NRXNS_LOSS .GT. 0 )THEN WRITE(OUT_UNIT,95002)OX_RADICAL_BUDGET( SPC )%SPECIES_NAME, & OX_RADICAL_BUDGET( SPC )%NRXNS_LOSS DO NR = 1, OX_RADICAL_BUDGET( SPC )%NRXNS_LOSS IR = OX_RADICAL_BUDGET( SPC )%IRXN_LOSS( NR ) WRITE(OUT_UNIT,95001)RXLABEL( IR ),OX_RADICAL_BUDGET( SPC )%COEFF_NEG( NR ) END DO ELSE WRITE(OUT_UNIT,95004)OX_RADICAL_BUDGET( SPC )%SPECIES_NAME END IF END DO 95005 FORMAT("Radical species, ",A16,", produced by the ",I4," below reactions", & / 3X, "Reaction Label ",1X,"Net Coeff." ) 95001 FORMAT(3X,A16,1X,ES12.4) 95002 FORMAT("Radical species, ",A16,", destoryed by the ",I4," below reactions", & / 3X, "Reaction Label ",1X,"Net Coeff." ) 95003 FORMAT(A16, " radical not produced by any reactions.") 95004 FORMAT(A16, " radical not destoryed by any reactions.") END SUBROUTINE REPORT_OX_RADICALS SUBROUTINE REPORT_ISAM_BUDGET( OUT_UNIT ) ! purpose writes out USE RXNS_DATA IMPLICIT NONE !..Arguments: INTEGER, INTENT( IN ) :: OUT_UNIT ! output unit # INTEGER SPC INTEGER IR, NR DO SPC = 1, ISAM_CHEMISTRY_SPC WRITE(OUT_UNIT,95100)ISAM_SPC_BUDGET( SPC )%SPECIES_NAME, & ISAM_SPC_BUDGET( SPC )%NREACTIONS DO NR = 1, ISAM_SPC_BUDGET( SPC )%NREACTIONS IR = ISAM_SPC_BUDGET( SPC )%IREACTION( NR ) WRITE(OUT_UNIT,95101)RXLABEL( IR ),ISAM_SPC_BUDGET( SPC )%COEFF_NET( NR ) END DO WRITE(OUT_UNIT,95105)ISAM_SPC_BUDGET( SPC )%SPECIES_NAME, & ISAM_SPC_BUDGET( SPC )%NRXNS_PROD DO NR = 1, ISAM_SPC_BUDGET( SPC )%NRXNS_PROD IR = ISAM_SPC_BUDGET( SPC )%IRXN_PROD( NR ) WRITE(OUT_UNIT,95101)RXLABEL( IR ),ISAM_SPC_BUDGET( SPC )%COEFF_POS( NR ) END DO END DO 95100 FORMAT(" ISAM species, ",A16,", changed by the ",I4," below reactions", & / 3X, "Reaction Label ",1X,"Net Coeff." ) 95101 FORMAT(3X,A16,1X,ES12.4) 95105 FORMAT(" ISAM species, ",A16,", produced by the ",I4," below reactions", & / 3X, "Reaction Label ",1X,"Net Coeff." ) END SUBROUTINE REPORT_ISAM_BUDGET SUBROUTINE SA_IRR_EXTRACT( COL, ROW, LAY, DENS, CONC ) USE HGRD_DEFN USE VGRD_DEFN USE RXNS_DATA USE UTILIO_DEFN USE SA_DEFN IMPLICIT NONE !..Arguments: INTEGER, INTENT( IN ) :: COL ! cell column index INTEGER, INTENT( IN ) :: ROW ! cell row index INTEGER, INTENT( IN ) :: LAY ! cell layer index REAL, INTENT( IN ) :: DENS ! air mass density, kg/m3 REAL(8), INTENT( IN ) :: CONC( : ) ! cgrid concentrations C..Includes: INCLUDE SUBST_CONST ! CMAQ constants !..Local: CHARACTER( 16 ), PARAMETER :: PNAME = 'SA_IRR_EXTRACT' ! Program name REAL :: FACTOR2 REAL( 8 ) :: TOTAL, FACTOR1, FACTOR3 REAL( 8 ) :: INV_DENS ! one over air mass density, m3/kg INTEGER :: JSPC, KTAG !..variables borrowed from DDM INTEGER :: I, J, RXN INTEGER :: C, L, R, S ! Loop indices INTEGER :: SPC ! array index ! REAL(8) :: TAGS_TOTAL ! INTEGER :: IOS ! CHARACTER( 132 ) :: MSG SOLD = ZERO INV_DENS = REAL( ONE/DENS, 8 ) DO JSPC = 1, ISAM_CHEMISTRY_SPC S = ISAM_TO_CHEM( JSPC ) SPC = ISAM_SPC_MAP( JSPC ) IS_TAG_NONZERO = .FALSE. LOAD_SOLD: DO KTAG = 1, NTAG_SA SOLD( KTAG, S ) = MAX( ZERO, & REAL( ISAM( COL,ROW,LAY,SPC,KTAG ),8 )) END DO LOAD_SOLD ! ktag loop ! TAGS_TOTAL = SUM( SOLD( 1:NTAG_SA, S ) ) ! TAGS_TOTAL = 1.0D0 / MAX( TAGS_TOTAL, DCONMIN_TAG ) FILTER_SOLD: DO KTAG = 1, NTAG_SA ! FRAC_TOTAL( KTAG ) = SOLD( KTAG, S ) * TAGS_TOTAL IF( SOLD( KTAG, S ) .GT. ZERO )THEN IS_TAG_NONZERO( KTAG ) = .TRUE. IF( CONVERT_ISAM( JSPC ) )THEN SOLD( KTAG, S ) = SOLD( KTAG, S ) & * INV_DENS * UGM3_TO_PPM( JSPC ) END IF IF( SOLD( KTAG,S ) .LT. CUTOFF )THEN SOLD( KTAG,S ) = ZERO END IF END IF END DO FILTER_SOLD ! ktag loop ! Remove bangs to prevent All SOLD equaling zero ! IF( MAXVAL( SOLD( 1:NTAG_SA,S ) ) .LE. ZERO )THEN ! IF( ANY( IS_TAG_NONZERO ) )THEN ! DO KTAG = 1, NTAG_SA ! IF( IS_TAG_NONZERO( KTAG ) )THEN ! SOLD( KTAG,S ) = FRAC_TOTAL( KTAG ) * DCONMIN_TAG ! END IF ! END DO ! END IF END DO ! loop jspc #ifdef verbose_isam IF( WRITE_CELL )THEN DO KTAG = 1, NTAG_SA WRITE(ISAM_LOG,*)' ' WRITE(ISAM_LOG,'(A24,2(1X,ES12.4))')'Initial MAX Values', & MAXVAL(ISAM(:,:,:,:,KTAG)) END DO ! ktag loop DO JSPC = 1, NSPC_SA TOTAL = SUM( ISAM( COL,ROW,LAY,JSPC,1:NTAG_SA ) ) WRITE(ISAM_LOG,'(A16,11(1X,ES12.4))')ISAM_SPEC( JSPC,OTHRTAG ), & (ISAM( COL,ROW,LAY,JSPC,KTAG ),KTAG = 1, NTAG_SA), TOTAL END DO WRITE(ISAM_LOG,*)'EX: Initial Totals' DO JSPC = 1, ISAM_CHEMISTRY_SPC S = ISAM_TO_CHEM( JSPC ) SPC = ISAM_SPC_MAP( JSPC ) TOTAL = 0.0 DO KTAG = 1, NTAG_SA TOTAL = TOTAL + ISAM( COL,ROW,LAY,SPC,KTAG ) END DO WRITE(ISAM_LOG,'(2(A16,1X),5(1X,ES12.4))')ISAM_SPEC( SPC,OTHRTAG ), CHEMISTRY_SPC(S), & TOTAL, CONC( S ),TOTAL-CONC( S ), TOTAL/CONC( S ) END DO ! loop jspc END IF #endif END SUBROUTINE SA_IRR_EXTRACT SUBROUTINE SA_IRR_UPLOAD( COL, ROW, LAY, DENS, CONC ) USE HGRD_DEFN USE VGRD_DEFN USE RXNS_DATA USE UTILIO_DEFN USE SA_DEFN ! 20130517 IMPLICIT NONE !..Arguments: INTEGER, INTENT( IN ) :: COL ! cell column index INTEGER, INTENT( IN ) :: ROW ! cell row index INTEGER, INTENT( IN ) :: LAY ! cell layer index REAL, INTENT( IN ) :: DENS ! air mass density, kg/m3 REAL(8), INTENT( IN ) :: CONC( : ) ! cgrid concentrations C..Includes: INCLUDE SUBST_CONST ! CMAQ constants !..Local: CHARACTER( 16 ), PARAMETER :: PNAME = 'SA_IRR_UPLOAD' ! Program name REAL :: TOTAL REAL( 8 ) :: INV_DENS ! one over air mass density, m3/kg INTEGER :: JSPC, KTAG INTEGER :: I, J, RXN INTEGER :: C, L, R, S ! Loop indices INTEGER :: SPC ! array index ! INTEGER :: IOS ! CHARACTER( 132 ) :: MSG REAL :: TEMP_VALUE DO JSPC = 1, ISAM_CHEMISTRY_SPC S = ISAM_TO_CHEM( JSPC ) SPC = ISAM_SPC_MAP( JSPC ) LOAD_ISAM: DO KTAG = 1, NTAG_SA IF( SOLD( KTAG,S ) .GT. DCONCMIN )THEN TEMP_VALUE = REAL( SOLD( KTAG,S ) ) IF( CONVERT_ISAM( JSPC ) )THEN TEMP_VALUE = TEMP_VALUE & * DENS * PPM_TO_UGM3( JSPC ) END IF ISAM( COL,ROW,LAY,SPC,KTAG ) = MAX( CONMIN_TAG, TEMP_VALUE ) ELSE ISAM( COL,ROW,LAY,SPC,KTAG ) = ZERO END IF END DO LOAD_ISAM ! ktag loop END DO ! jspc #ifdef verbose_isam IF( WRITE_CELL )THEN DO KTAG = 1, NTAG_SA WRITE(ISAM_LOG,*)' ' WRITE(ISAM_LOG,'(A24,2(1X,ES12.4))')'Final MAX Values', & MAXVAL(ISAM(:,:,:,:,KTAG)) END DO ! ktag loop DO JSPC = 1, NSPC_SA TOTAL = SUM( ISAM( COL,ROW,LAY,JSPC,1:NTAG_SA ) ) WRITE(ISAM_LOG,'(A16,11(1X,ES12.4))')ISAM_SPEC( JSPC,OTHRTAG ), & (ISAM( COL,ROW,LAY,JSPC,KTAG ),KTAG = 1, NTAG_SA), TOTAL END DO WRITE(ISAM_LOG,*)'UP: Final Totals' DO JSPC = 1, ISAM_CHEMISTRY_SPC S = ISAM_TO_CHEM( JSPC ) SPC = ISAM_SPC_MAP( JSPC ) TEMP_VALUE = MAX( REAL(CONC( S )),1.0E-30 ) TOTAL = 0.0 DO KTAG = 1, NTAG_SA TOTAL = TOTAL + ISAM( COL,ROW,LAY,SPC,KTAG ) END DO WRITE(ISAM_LOG,'(2(A16,1X),3(1X,ES12.4))')ISAM_SPEC( SPC,OTHRTAG ), CHEMISTRY_SPC(S), & TOTAL,TEMP_VALUE,TOTAL-TEMP_VALUE END DO ! loop jspc END IF #endif END SUBROUTINE SA_IRR_UPLOAD C---------------------------------------------------------------------- C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE SA_IRR_UNBLOCKED ( LSTART, RK, CONC, DELT ) C----------------------------------------------------------------------- C Function: Iupdate tag concentrations C Preconditions: None C Key Subroutines/Functions Called: None C Revision History: C Prototype created by Jerry Gipson, September, 1996 C global BLKPRM Jeff Dec 96 C Modified Sept, 1997 by Jerry Gipson to be consistent with targeted CTM C Modified Jun, 1998 by Jerry Gipson to add reaction number error checks C Modified 1/19/99 by David Wong at LM: C -- add four include files because of new PA_CMN.EXT C Modified 2/26/99 by David Wong at LM: C -- remove SUBST_AE_SPC, SUBST_NR_SPC, SUBST_TR_SPC, C three .EXT files C 31 Mar 01 J.Young: Use HGRD_DEFN; eliminate BLKPRM.EXT C 31 Jan 05 J.Young: dyn alloc - establish both horizontal & vertical C domain specifications in one module C 21 Jun 10 J.Young: convert for Namelist redesign C 19 Aug 11 J.Young: Replaced I/O API include files with UTILIO_DEFN C 07 Jul 14 B.Hutzell: replaced mechanism include file(s) with fortran module C----------------------------------------------------------------------- USE GRID_CONF ! horizontal & vertical domain specifications USE RXNS_DATA ! chemical mechanism data USE CGRID_SPCS ! CGRID mechanism species USE SA_DEFN USE UTILIO_DEFN IMPLICIT NONE C..Includes: None C..Arguments: LOGICAL, INTENT( IN ) :: LSTART ! Flag to indicate start of chemical integration period REAL( 8 ), INTENT( IN ) :: RK ( : ) ! Reaction rate coefficients REAL( 8 ), INTENT( IN ) :: CONC( : ) ! species concentrations REAL( 8 ), INTENT( IN ) :: DELT ! Chemistry integration time size C..Parameters: None REAL(8), SAVE :: NOX_VOC_SWITCH ! REAL( VOC_NOX_TRANS,8 ), switch between NOx to limiting ozone production C..External Functions: None CHARACTER( 16 ) , SAVE :: PNAME = 'PA_IRR' ! Program name CHARACTER( 132) :: MSG LOGICAL, SAVE :: LFIRST = .TRUE. ! Flag for first call to subroutine C..Scratch Local Variables: INTEGER ISP1, ISP2, ISP3 ! Species indices INTEGER S, JSPC, SPC ! Species indices INTEGER NCELL ! Loop index for cells INTEGER NIRR ! Loop index for IRR outputs INTEGER NOUT ! IRR output index INTEGER NC,NR,NRX ! Loop index for reactions INTEGER NTEMP ! Loop index for temp IRRs INTEGER NTERM ! Loop index for terms INTEGER ASTAT ! allocation status INTEGER KTAG ! Loop index/pointer for source INTEGER POSITIVE ! count of tag concentration greater than zero REAL(8) TOTAL ! scratch term for summations REAL(8) TOTAL_PROD ! scratch term for total bulk production REAL(8) ISAM_PROD ! scratch term for total isam production REAL(8) TERM ! scratch term for summations REAL(8) TOTAL_LOSS ! scratch term for total bulk loss REAL(8) ISAM_LOSS ! scratch term for total isam loss REAL(8) LOSS_FACT ! effective loss frequency REAL(8) DELTA_BULK ! change in bulk concentration REAL(8) DELTA_H2O2 ! change in bulk H2O2 concentration REAL(8) DELTA_HNO3 ! change in bulk HNO3 concentration REAL(8) COEFF ! Coefficient of IRR term REAL(8) TOTAL_PROBABILITY ! normalization coefficient for SOURCE_PROBABILITY REAL(8) ISAM_TOTAL_PROBABILITY ! normalization coefficient for ISAM_PROBABILITY REAL(8) H2O2_Production ! gross hydrogen peroxide production REAL(8) HNO3_Production ! gross nitric acid production LOGICAL :: REMOVED = .FALSE. ! whether initial concentrations are wiped out LOGICAL, SAVE :: DISTRIBUTE_TO_ALL = .TRUE. ! distribute extra production among all source tags ! or just to the other source tag LOGICAL, ALLOCATABLE, SAVE :: SOURCE_ZERO( : ) ! whether source concentration greater than zero C..Saved Local Variables: REAL( 8 ), ALLOCATABLE, SAVE :: YCOLD ( : ) ! bulk concentrations from previous time step REAL( 8 ), ALLOCATABLE, SAVE :: OUTSIDE( : ) ! species concentration outside isam tags REAL( 8 ), ALLOCATABLE, SAVE :: YCMID ( : ) ! bulk concentrations from previous time step REAL( 8 ), ALLOCATABLE, SAVE :: YCRATES( : ) ! bulk concentration used to calculate reactionvrates REAL( 8 ), ALLOCATABLE, SAVE :: RXRAT ( : ) ! reactions rates REAL( 8 ), ALLOCATABLE, SAVE :: INTRXN ( : ) ! Integrated reaction rates REAL( 8 ) :: ONE_OVER_CONC ! reciprocal of total species concentrations REAL( 8 ), ALLOCATABLE, SAVE :: TOTAL_ISAM_CONC( : ) ! total concentrations from isam sources REAL( 8 ), ALLOCATABLE, SAVE :: NOT_OUTSIDE_ISAM( : ) ! fraction of species not from non-isam sources REAL( 8 ), ALLOCATABLE, SAVE :: NOT_ISAM_SOURCE( :,: ) ! fraction of species not from an isam source REAL( 8 ), ALLOCATABLE, SAVE :: ISAM_SOURCE( :,: ) ! fraction of species from an isam source REAL( 8 ), ALLOCATABLE, SAVE :: SOURCE_PROBABILITY( :,: ) ! probability or amount that a source contributes to reaction REAL( 8 ), ALLOCATABLE, SAVE :: SOURCE_DELTA ( :,: ) ! change in source tag species REAL( 8 ), ALLOCATABLE, SAVE :: SA_DELTA( : ) REAL( 8 ), ALLOCATABLE, SAVE :: SA_LOSS( : ) REAL( 8 ), ALLOCATABLE, SAVE :: ISAM_PROBABILITY ( :,: ) ! probability or amount that a source contributes to reaction LOGICAL, ALLOCATABLE, SAVE :: ZERO_ISAM( : ) ! whether isam species have no effect on reaction LOGICAL, ALLOCATABLE, SAVE :: REBALANCE( : ) ! renormalize tag concentration when production occurs LOGICAL, ALLOCATABLE, SAVE :: SOURCE_NONZERO( :,: ) ! fraction of species not from an isam source INTEGER, ALLOCATABLE, SAVE :: MAP_REACTANT_CASE( : ) LOGICAL, ALLOCATABLE, SAVE :: TWO_REACTANT_CASE( :,:,: ) LOGICAL, ALLOCATABLE, SAVE :: THREE_REACTANT_CASE( :,:,: ) C----------------------------------------------------------------------- ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c On first call, flag the reactions for which to calculate IRRS ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF ( LFIRST ) THEN C set value of NOX_VOC_SWITCH NOX_VOC_SWITCH = REAL( VOC_NOX_TRANS,8 ) C Allocate arrays: ALLOCATE( YCOLD( NUMB_MECH_SPC ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN MSG = 'ERROR allocating YCOLD variable' CALL M3EXIT ( 'SA_IRR', 0, 0, MSG, XSTAT2 ) END IF ALLOCATE( YCMID( NUMB_MECH_SPC ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN MSG = 'ERROR allocating YCOLD variable' CALL M3EXIT ( 'SA_IRR', 0, 0, MSG, XSTAT2 ) END IF ALLOCATE( YCRATES( NUMB_MECH_SPC ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN MSG = 'ERROR allocating YCRATES variable' CALL M3EXIT ( 'SA_IRR', 0, 0, MSG, XSTAT2 ) END IF ALLOCATE( OUTSIDE( NUMB_MECH_SPC ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN MSG = 'ERROR allocating YCOLD variable' CALL M3EXIT ( 'SA_IRR', 0, 0, MSG, XSTAT2 ) END IF OUTSIDE = 0.0D0 ALLOCATE( RXRAT ( NRXNS ), & INTRXN ( NRXNS ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN MSG = 'ERROR allocating SA_IRR variables' CALL M3EXIT ( 'SA_IRR', 0, 0, MSG, XSTAT2 ) END IF ! ALLOCATE( ONE_OVER_CONC( NUMB_MECH_SPC ), STAT = ASTAT ) ! IF ( ASTAT .NE. 0 ) THEN ! MSG = 'ERROR allocating SA_IRR variables' ! CALL M3EXIT ( 'SA_IRR', 0, 0, MSG, XSTAT2 ) ! END IF ALLOCATE( TOTAL_ISAM_CONC( NUMB_MECH_SPC ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN MSG = 'ERROR allocating SA_IRR variables' CALL M3EXIT ( 'SA_IRR', 0, 0, MSG, XSTAT2 ) END IF ALLOCATE( NOT_ISAM_SOURCE( NTAG_SA, NUMB_MECH_SPC ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN MSG = 'ERROR allocating SA_IRR variables' CALL M3EXIT ( 'SA_IRR', 0, 0, MSG, XSTAT2 ) END IF ALLOCATE( ISAM_SOURCE( NTAG_SA, NUMB_MECH_SPC ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN MSG = 'ERROR allocating SA_IRR variables' CALL M3EXIT ( 'SA_IRR', 0, 0, MSG, XSTAT2 ) END IF ALLOCATE( SOURCE_PROBABILITY( NTAG_SA + 1, NRXNS ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN MSG = 'ERROR allocating SA_IRR variables' CALL M3EXIT ( 'SA_IRR', 0, 0, MSG, XSTAT2 ) END IF ALLOCATE( ISAM_PROBABILITY( NTAG_SA, NRXNS ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN MSG = 'ERROR allocating ISAM_PROBABILITY variables' CALL M3EXIT ( 'SA_IRR', 0, 0, MSG, XSTAT2 ) END IF ALLOCATE( ZERO_ISAM( NRXNS ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN MSG = 'ERROR allocating ZERO_ISAM ' CALL M3EXIT ( 'SA_IRR', 0, 0, MSG, XSTAT2 ) END IF ALLOCATE( REBALANCE( NUMB_MECH_SPC ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN MSG = 'ERROR allocating REBALANCE ' CALL M3EXIT ( 'SA_IRR', 0, 0, MSG, XSTAT2 ) END IF REBALANCE = .FALSE. ALLOCATE( SOURCE_DELTA( NTAG_SA + 1, NUMB_MECH_SPC ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN MSG = 'ERROR allocating SOURCE_DELTA ' CALL M3EXIT ( 'SA_IRR', 0, 0, MSG, XSTAT2 ) END IF ALLOCATE( SA_DELTA( NTAG_SA ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN MSG = 'ERROR allocating SA_DELTA ' CALL M3EXIT ( 'SA_IRR', 0, 0, MSG, XSTAT2 ) END IF ALLOCATE( SA_LOSS( NTAG_SA ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN MSG = 'ERROR allocating SA_LOSS ' CALL M3EXIT ( 'SA_IRR', 0, 0, MSG, XSTAT2 ) END IF ALLOCATE( SOURCE_ZERO( NTAG_SA + 1 ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN MSG = 'ERROR allocating SOURCE_ZERO ' CALL M3EXIT ( 'SA_IRR', 0, 0, MSG, XSTAT2 ) END IF LFIRST = .FALSE. ALLOCATE( NOT_OUTSIDE_ISAM( NUMB_MECH_SPC ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN MSG = 'ERROR allocating SA_IRR variables' CALL M3EXIT ( 'SA_IRR', 0, 0, MSG, XSTAT2 ) END IF ALLOCATE( SOURCE_NONZERO( NTAG_SA, NUMB_MECH_SPC ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN MSG = 'ERROR allocating SA_IRR variables' CALL M3EXIT ( 'SA_IRR', 0, 0, MSG, XSTAT2 ) END IF SOURCE_NONZERO = .TRUE. ! map unimolecular, bimolecular and trimolecular reactions ALLOCATE( MAP_REACTANT_CASE( NRXNS ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN MSG = 'ERROR allocating SA_IRR variables' CALL M3EXIT ( 'SA_IRR', 0, 0, MSG, XSTAT2 ) END IF MAP_REACTANT_CASE = -1 ISP1 = 0 ISP2 = 0 ISP3 = 0 DO NRX = 1, NRXNS SELECT CASE ( NREACT( NRX ) ) CASE ( 1 ) ISP1 = ISP1 + 1 MAP_REACTANT_CASE( NRX ) = ISP1 CASE( 2 ) ISP2 = ISP2 + 1 MAP_REACTANT_CASE( NRX ) = ISP2 CASE( 3 ) ISP3 = ISP3 + 1 MAP_REACTANT_CASE( NRX ) = ISP3 END SELECT END DO IF( ISP2 .GT. 0 )THEN ALLOCATE( TWO_REACTANT_CASE( NBIAS,ISP2,3 ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN MSG = 'ERROR allocating SA_IRR variables' CALL M3EXIT ( 'SA_IRR', 0, 0, MSG, XSTAT2 ) END IF TWO_REACTANT_CASE = .FALSE. END IF IF( ISP3 .GT. 0 )THEN ALLOCATE( THREE_REACTANT_CASE( NBIAS,ISP3,7 ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN MSG = 'ERROR allocating SA_IRR variables' CALL M3EXIT ( 'SA_IRR', 0, 0, MSG, XSTAT2 ) END IF THREE_REACTANT_CASE = .FALSE. END IF C...Calculate reactant cases based on species_bias for each reactant DO NC = 1, NBIAS DO NRX = 1, NRXNS NR = MAP_REACTANT_CASE( NRX ) SELECT CASE ( NREACT( NRX ) ) CASE( 2 ) ISP1 = IRR( NRX,1 ) ISP2 = IRR( NRX,2 ) TWO_REACTANT_CASE( NC,NR,1 ) = ( BIAS_CHEMISTRY_SPC( NC,ISP1 ) & .AND. .NOT. BIAS_CHEMISTRY_SPC( NC,ISP2 ) ) TWO_REACTANT_CASE( NC,NR,2 ) = ( .NOT. BIAS_CHEMISTRY_SPC( NC,ISP1 ) & .AND. BIAS_CHEMISTRY_SPC( NC,ISP2 ) ) TWO_REACTANT_CASE( NC,NR,3 ) = ( .NOT. BIAS_CHEMISTRY_SPC( NC,ISP1 ) & .AND. .NOT. BIAS_CHEMISTRY_SPC( NC,ISP2 ) ) & .OR. ( BIAS_CHEMISTRY_SPC( NC,ISP1 ) & .AND. BIAS_CHEMISTRY_SPC( NC,ISP2 ) ) CASE( 3 ) ISP1 = IRR( NRX,1 ) ISP2 = IRR( NRX,2 ) ISP3 = IRR( NRX,3 ) THREE_REACTANT_CASE( NC,NR,1 ) = ( BIAS_CHEMISTRY_SPC( NC,ISP1 ) & .AND. .NOT. BIAS_CHEMISTRY_SPC( NC,ISP2 ) & .AND. .NOT. BIAS_CHEMISTRY_SPC( NC,ISP3 ) ) THREE_REACTANT_CASE( NC,NR,2 ) = ( .NOT. BIAS_CHEMISTRY_SPC( NC,ISP1 ) & .AND. BIAS_CHEMISTRY_SPC( NC,ISP2 ) & .AND. .NOT. BIAS_CHEMISTRY_SPC( NC,ISP3 ) ) THREE_REACTANT_CASE( NC,NR,3 ) = ( .NOT. BIAS_CHEMISTRY_SPC( NC,ISP1 ) & .AND. .NOT. BIAS_CHEMISTRY_SPC( NC,ISP2 ) & .AND. BIAS_CHEMISTRY_SPC( NC,ISP3 ) ) THREE_REACTANT_CASE( NC,NR,4 ) = ( BIAS_CHEMISTRY_SPC( NC,ISP1 ) & .AND. BIAS_CHEMISTRY_SPC( NC,ISP2 ) & .AND. .NOT. BIAS_CHEMISTRY_SPC( NC,ISP3 ) ) THREE_REACTANT_CASE( NC,NR,5 ) = ( BIAS_CHEMISTRY_SPC( NC,ISP1 ) & .AND. .NOT. BIAS_CHEMISTRY_SPC( NC,ISP2 ) & .AND. BIAS_CHEMISTRY_SPC( NC,ISP3 ) ) THREE_REACTANT_CASE( NC,NR,6 ) = ( .NOT. BIAS_CHEMISTRY_SPC( NC,ISP1 ) & .AND. BIAS_CHEMISTRY_SPC( NC,ISP2 ) & .AND. BIAS_CHEMISTRY_SPC( NC,ISP3 ) ) THREE_REACTANT_CASE( NC,NR,7 ) = ( .NOT. BIAS_CHEMISTRY_SPC( NC,ISP1 ) & .AND. .NOT. BIAS_CHEMISTRY_SPC( NC,ISP2 ) & .AND. .NOT. BIAS_CHEMISTRY_SPC( NC,ISP3 ) ) & .OR. ( BIAS_CHEMISTRY_SPC( NC,ISP1 ) & .AND. BIAS_CHEMISTRY_SPC( NC,ISP2 ) & .AND. BIAS_CHEMISTRY_SPC( NC,ISP3 ) ) END SELECT END DO END DO C...Assume that ISAM_SPECIES is fixed over the domain and simulation WHERE ( ISAM_SPECIES ) NOT_OUTSIDE_ISAM = 1.0D0 ELSE WHERE NOT_OUTSIDE_ISAM = 0.0D0 END WHERE DO ISP2 = 1, NUMB_MECH_SPC IF( .NOT. ISAM_SPECIES( ISP2 ) )THEN DO KTAG = 1, NTAG_SA NOT_ISAM_SOURCE( KTAG,ISP2 ) = 1.0D0 END DO END IF END DO END IF ! LFIRST UPDATE_PROBABILITIES = .TRUE. IF( LSTART )THEN ! UPDATE_SOLD = .FALSE. SOURCE_DELTA = 0.0D0 DO NIRR = 1, NUMB_MECH_SPC YCOLD( NIRR ) = CONC( NIRR ) END DO YCMID = YCOLD RETURN END IF C...filter bulk concentrations for concentrations used for reaction rates WHERE ( CONC .GE. BULK_CUTOFF ) YCRATES = CONC ELSE WHERE YCRATES = 0.0D0 END WHERE C...check for bad values TOTAL_ISAM_CONC = 0.0D0 ! 1.0D-40 DO ISP2 = 1, NUMB_MECH_SPC DO KTAG = 1, NTAG_SA TOTAL_ISAM_CONC( ISP2 ) = TOTAL_ISAM_CONC( ISP2 ) & + SOLD( KTAG,ISP2 ) IF( SOLD( KTAG,ISP2 ) .LT. 0.0D0 ) & WRITE(ISAM_LOG,*)TRIM(CHEMISTRY_SPC(ISP2)) // ' bad value = ',SOLD( KTAG,ISP2 ) END DO END DO C..compute species fractions from ISAM groups and the remainder group for all mechanism species ! Note that remainder group (NTAG_SA+1) exists to handle untracked model species DO ISP2 = 1, NUMB_MECH_SPC IF( ISAM_SPECIES( ISP2 ) )THEN ONE_OVER_CONC = 1.0D0 / MAX( TOTAL_ISAM_CONC( ISP2 ), DCONMIN_TAG ) DO KTAG = 1, NTAG_SA ISAM_SOURCE( KTAG,ISP2 ) = SOLD( KTAG,ISP2 )*ONE_OVER_CONC NOT_ISAM_SOURCE( KTAG,ISP2 ) = MAX( 0.0D0, 1.0D0-ISAM_SOURCE( KTAG,ISP2 )) END DO OUTSIDE( ISP2 ) = 0.0D0 NOT_OUTSIDE_ISAM( ISP2 ) = 1.0D0 ELSE ONE_OVER_CONC = 1.0D0 / MAX( YCMID( ISP2 ), DCONMIN_TAG ) DO KTAG = 1, NTAG_SA ISAM_SOURCE( KTAG,ISP2 ) = SOLD( KTAG,ISP2 )*ONE_OVER_CONC NOT_ISAM_SOURCE( KTAG,ISP2 ) = MAX( 0.0D0, 1.0D0-ISAM_SOURCE( KTAG,ISP2 )) END DO IF ( TOTAL_ISAM_CONC( ISP2 ) .GT. DCONMIN_TAG ) THEN TERM = MAX( (YCMID( ISP2 )-TOTAL_ISAM_CONC( ISP2 )), 0.0D0 ) ELSE TERM = YCMID( ISP2 ) END IF OUTSIDE( ISP2 ) = TERM NOT_OUTSIDE_ISAM( ISP2 ) = MAX( 1.0D0 - TERM * ONE_OVER_CONC, 0.0D0 ) END IF DO KTAG = 1, NTAG_SA IF( SOLD( KTAG,ISP2 ) .GE. DCONMIN_TAG )THEN SOURCE_NONZERO( KTAG,ISP2 ) = .TRUE. ELSE SOURCE_NONZERO( KTAG,ISP2 ) = .FALSE. END IF END DO END DO C...Calculate reaction rates and source probabilties IF ( ISAM_CHEM_BIAS .EQ. 5 ) THEN ! for concentrations 0.35 is average of range in ! Sillman et al. (1998). J. Geophys. Res., 103, 22,62922,644, ! but Need to add routine that HNO2 and H2O2 production based MECHANISM_BUDGET array ! ! determine if net production of ozone takes place ! IF ( (CONC( O3_INDEX )-YCMID( O3_INDEX )) .GT. 0.0D0 ) THEN ! Using net change in H2O2 and HNO3 concentrations ! DELTA_H2O2 = CONC( H2O2_INDEX )-YCMID( H2O2_INDEX ) ! DELTA_HNO3 = CONC( HNO3_INDEX )-YCMID( HNO3_INDEX ) ! IF ( DELTA_H2O2/MAX( 1.0D-30,DELTA_NO3 ) .LT. VOC_NOX_TRANS ) THEN ! Using H2O2 and HNO3 concentrations ! IF ( CONC( H2O2_INDEX )/MAX( 1.0D-30,CONC( HNO3_INDEX ) ) .LT. VOC_NOX_TRANS ) THEN ! Using gross production of H2O2 and HNO3 IF ( PH2O2_OVER_PHNO3( RK,CONC ) .GT. NOX_VOC_SWITCH ) THEN ! IF ( PH2O2_OVER_PHNO3( RK,CONC ) .GT. REAL( VOC_NOX_TRANS,8 ) ) THEN NC = ISAM_NOX_CASE ELSE NC = ISAM_VOC_CASE END IF ! ELSE ! NC = 3 ! END IF IF ( WRITE_CELL ) THEN WRITE(ISAM_LOG,*)'PH2O2_OVER_PHNO3, NC = ',PH2O2_OVER_PHNO3( RK,CONC ), NC END IF ELSE NC = ISAM_CHEM_BIAS END IF DO NRX = 1, NRXNS NR = MAP_REACTANT_CASE( NRX ) SELECT CASE ( NREACT( NRX ) ) CASE( 1 ) ISP1 = IRR( NRX,1 ) RXRAT( NRX ) = RK( NRX ) & * YCRATES( ISP1 ) DO KTAG = 1, NTAG_SA SOURCE_PROBABILITY( KTAG,NRX ) = 1.0D0 - NOT_ISAM_SOURCE( KTAG,ISP1 ) END DO KTAG = NTAG_SA + 1 SOURCE_PROBABILITY( KTAG,NRX ) = 1.0D0 - NOT_OUTSIDE_ISAM( ISP1 ) CASE( 2 ) ISP1 = IRR( NRX,1 ) ISP2 = IRR( NRX,2 ) RXRAT( NRX ) = RK( NRX ) & * YCRATES( ISP1 ) & * YCRATES( ISP2 ) IF ( TWO_REACTANT_CASE( NC,NR,1 ) ) THEN DO KTAG = 1, NTAG_SA SOURCE_PROBABILITY( KTAG,NRX ) = 1.0D0 & - NOT_ISAM_SOURCE( KTAG,ISP1 ) END DO KTAG = NTAG_SA + 1 SOURCE_PROBABILITY( KTAG,NRX ) = 1.0D0 & - NOT_OUTSIDE_ISAM( ISP1 ) ELSE IF ( TWO_REACTANT_CASE( NC,NR,2 ) ) THEN DO KTAG = 1, NTAG_SA SOURCE_PROBABILITY( KTAG,NRX ) = 1.0D0 & - NOT_ISAM_SOURCE( KTAG,ISP2 ) END DO KTAG = NTAG_SA + 1 SOURCE_PROBABILITY( KTAG,NRX ) = 1.0D0 & - NOT_OUTSIDE_ISAM( ISP2 ) ELSE IF ( TWO_REACTANT_CASE( NC,NR,3 ) ) THEN DO KTAG = 1, NTAG_SA SOURCE_PROBABILITY( KTAG,NRX ) = 1.0D0 & - NOT_ISAM_SOURCE( KTAG,ISP1 ) & * NOT_ISAM_SOURCE( KTAG,ISP2 ) END DO KTAG = NTAG_SA + 1 SOURCE_PROBABILITY( KTAG,NRX ) = 1.0D0 & - NOT_OUTSIDE_ISAM( ISP1 ) & * NOT_OUTSIDE_ISAM( ISP2 ) END IF CASE( 3 ) ISP1 = IRR( NRX,1 ) ISP2 = IRR( NRX,2 ) ISP3 = IRR( NRX,3 ) RXRAT( NRX ) = RK( NRX ) & * YCRATES( ISP1 ) & * YCRATES( ISP2 ) & * YCRATES( ISP3 ) IF ( THREE_REACTANT_CASE( NC,NR,1 ) ) THEN DO KTAG = 1, NTAG_SA SOURCE_PROBABILITY( KTAG,NRX ) = 1.0D0 & - NOT_ISAM_SOURCE( KTAG,ISP1 ) END DO KTAG = NTAG_SA + 1 SOURCE_PROBABILITY( KTAG,NRX ) = 1.0D0 & - NOT_OUTSIDE_ISAM( ISP1 ) ELSE IF ( THREE_REACTANT_CASE( NC,NR,2 ) ) THEN DO KTAG = 1, NTAG_SA SOURCE_PROBABILITY( KTAG,NRX ) = 1.0D0 & - NOT_ISAM_SOURCE( KTAG,ISP2 ) END DO KTAG = NTAG_SA + 1 SOURCE_PROBABILITY( KTAG,NRX ) = 1.0D0 & - NOT_OUTSIDE_ISAM( ISP2 ) ELSE IF ( THREE_REACTANT_CASE( NC,NR,3 ) ) THEN DO KTAG = 1, NTAG_SA SOURCE_PROBABILITY( KTAG,NRX ) = 1.0D0 & - NOT_ISAM_SOURCE( KTAG,ISP3 ) END DO KTAG = NTAG_SA + 1 SOURCE_PROBABILITY( KTAG,NRX ) = 1.0D0 & - NOT_OUTSIDE_ISAM( ISP3 ) ELSE IF ( THREE_REACTANT_CASE( NC,NR,4 ) ) THEN DO KTAG = 1, NTAG_SA SOURCE_PROBABILITY( KTAG,NRX ) = 1.0D0 & - NOT_ISAM_SOURCE( KTAG,ISP1 ) & * NOT_ISAM_SOURCE( KTAG,ISP2 ) END DO KTAG = NTAG_SA + 1 SOURCE_PROBABILITY( KTAG,NRX ) = 1.0D0 & * NOT_OUTSIDE_ISAM( ISP1 ) & * NOT_OUTSIDE_ISAM( ISP2 ) ELSE IF ( THREE_REACTANT_CASE( NC,NR,5 ) ) THEN DO KTAG = 1, NTAG_SA SOURCE_PROBABILITY( KTAG,NRX ) = 1.0D0 & - NOT_ISAM_SOURCE( KTAG,ISP1 ) & * NOT_ISAM_SOURCE( KTAG,ISP3 ) END DO KTAG = NTAG_SA + 1 SOURCE_PROBABILITY( KTAG,NRX ) = 1.0D0 & * NOT_OUTSIDE_ISAM( ISP1 ) & * NOT_OUTSIDE_ISAM( ISP3 ) ELSE IF ( THREE_REACTANT_CASE( NC,NR,6 ) ) THEN DO KTAG = 1, NTAG_SA SOURCE_PROBABILITY( KTAG,NRX ) = 1.0D0 & - NOT_ISAM_SOURCE( KTAG,ISP2 ) & * NOT_ISAM_SOURCE( KTAG,ISP3 ) END DO KTAG = NTAG_SA + 1 SOURCE_PROBABILITY( KTAG,NRX ) = 1.0D0 & * NOT_OUTSIDE_ISAM( ISP1 ) & * NOT_OUTSIDE_ISAM( ISP3 ) ELSE IF ( THREE_REACTANT_CASE( NC,NR,7 ) ) THEN DO KTAG = 1, NTAG_SA SOURCE_PROBABILITY( KTAG,NRX ) = 1.0D0 & - NOT_ISAM_SOURCE( KTAG,ISP1 ) & * NOT_ISAM_SOURCE( KTAG,ISP2 ) & * NOT_ISAM_SOURCE( KTAG,ISP3 ) END DO KTAG = NTAG_SA + 1 SOURCE_PROBABILITY( KTAG,NRX ) = 1.0D0 & - NOT_OUTSIDE_ISAM( ISP1 ) & * NOT_OUTSIDE_ISAM( ISP2 ) & * NOT_OUTSIDE_ISAM( ISP3 ) END IF CASE( 0 ) RXRAT( NRX ) = RK( NRX ) DO KTAG = 1, NTAG_SA SOURCE_PROBABILITY( KTAG,NRX ) = 0.0D0 END DO KTAG = NTAG_SA + 1 SOURCE_PROBABILITY( KTAG,NRX ) = 1.0D0 END SELECT C..Normalize sources probabilities for reaction ISAM_TOTAL_PROBABILITY = 0.0D0 DO KTAG = 1, NTAG_SA SOURCE_PROBABILITY( KTAG,NRX ) = MAX( SOURCE_PROBABILITY( KTAG,NRX ), 0.0D0 ) ISAM_PROBABILITY ( KTAG,NRX ) = SOURCE_PROBABILITY( KTAG,NRX ) ISAM_TOTAL_PROBABILITY = ISAM_TOTAL_PROBABILITY + ISAM_PROBABILITY( KTAG,NRX ) END DO KTAG = NTAG_SA + 1 SOURCE_PROBABILITY( KTAG,NRX ) = MAX( SOURCE_PROBABILITY( KTAG,NRX ), 0.0D0 ) TOTAL_PROBABILITY = ISAM_TOTAL_PROBABILITY + SOURCE_PROBABILITY( KTAG,NRX ) IF( ISAM_TOTAL_PROBABILITY .LE. 1.0D-30 )THEN ZERO_ISAM( NRX ) = .TRUE. DO KTAG = 1, NTAG_SA ISAM_PROBABILITY( KTAG,NRX ) = 0.0D0 END DO ! ISAM_PROBABILITY( OTHRTAG,NRX ) = 1.0D0 ELSE ZERO_ISAM( NRX ) = .FALSE. ISAM_TOTAL_PROBABILITY = 1.0D0 / ISAM_TOTAL_PROBABILITY DO KTAG = 1, NTAG_SA ISAM_PROBABILITY( KTAG,NRX ) = ISAM_PROBABILITY( KTAG,NRX ) & * ISAM_TOTAL_PROBABILITY END DO END IF IF( TOTAL_PROBABILITY .LT. 0.0D0 )THEN DO JSPC = 1, ISAM_CHEMISTRY_SPC S = ISAM_TO_CHEM( JSPC ) SPC = ISAM_SPC_MAP( JSPC ) WRITE(ISAM_LOG,'(A16,86(1X,ES12.4))')CHEMISTRY_SPC(S),(SOLD( KTAG, S ),KTAG=1,NTAG_SA ), & YCOLD( S ) END DO ! loop jspc MSG = 'Fraction Results, note that last column is total isam over total species CONCentration' WRITE(ISAM_LOG,'(A)')TRIM(MSG) WRITE(ISAM_LOG,'(A16,86(1X,I12))')'Species/Tag #',(KTAG,KTAG=1,NTAG_SA+1) DO ISP2 = 1, NUMB_MECH_SPC WRITE(ISAM_LOG,'(A16,86(1X,ES12.4))')CHEMISTRY_SPC(ISP2), & (1.0D0-NOT_ISAM_SOURCE( KTAG,ISP2 ),KTAG=1,NTAG_SA),1.0D0-NOT_OUTSIDE_ISAM( ISP2 ) END DO MSG = 'Unnormalized Source Probabilities, note that last column is for NonISAM CONCentrations' WRITE(ISAM_LOG,'(A)')TRIM(MSG) WRITE(ISAM_LOG,'(A16,86(1X,I12))')'Reaction/Tag #',(KTAG,KTAG=1,NTAG_SA+1) WRITE(ISAM_LOG,'(A16,86(1X,ES12.4))')RXLABEL( NRX ), & (SOURCE_PROBABILITY( KTAG,NRX ),KTAG=1,NTAG_SA+1) MSG = 'TOTAL_PROBABILITY < zero from reaction label: ' & // TRIM( RXLABEL( NRX ) ) CALL M3EXIT ( 'SA_IRR', 0, 0, MSG, XSTAT2 ) ELSE IF( TOTAL_PROBABILITY .EQ. 0.0D0 )THEN TOTAL_PROBABILITY = 1.0D0 END IF TOTAL_PROBABILITY = 1.0D0 / TOTAL_PROBABILITY DO KTAG = 1, NTAG_SA + 1 SOURCE_PROBABILITY( KTAG,NRX ) = SOURCE_PROBABILITY( KTAG,NRX ) & * TOTAL_PROBABILITY END DO END DO #ifdef verbose_isam IF( WRITE_CELL )THEN MSG = 'Calculated Source Probabilities, note that last column is for NonISAM concentrations' WRITE(ISAM_LOG,'(A)')TRIM(MSG) WRITE(ISAM_LOG,'(A16,86(1X,I12))')'Reaction/Tag #',(KTAG,KTAG=1,NTAG_SA+1) DO NRX = 1, NRXNS WRITE(ISAM_LOG,'(A16,86(1X,ES12.4))')RXLABEL( NRX ), & (SOURCE_PROBABILITY( KTAG,NRX ),KTAG=1,NTAG_SA+1) END DO MSG = 'Caculated ISAM Probabilities, note that last column is their sum' WRITE(ISAM_LOG,'(A)')TRIM(MSG) WRITE(ISAM_LOG,'(A16,86(1X,I12))')'Reaction/Tag #',(KTAG,KTAG=1,NTAG_SA+1) DO NRX = 1, NRXNS ISAM_TOTAL_PROBABILITY = SUM( ISAM_PROBABILITY( 1:NTAG_SA,NRX ) ) WRITE(ISAM_LOG,'(A16,86(1X,ES12.4))')RXLABEL( NRX ), & (ISAM_PROBABILITY( KTAG,NRX ),KTAG=1,NTAG_SA),ISAM_TOTAL_PROBABILITY END DO END IF ! WRITE_CELL #endif C..Compute integrated reaction rates DO NRX = 1, NRXNS INTRXN( NRX ) = DELT * RXRAT( NRX ) END DO c..Compute change in source concentrations for updating source concentrations DO JSPC = 1, NUMB_MECH_SPC ! compute species total production and isam production ISAM_PROD = 0.0D0 TOTAL_PROD = 0.0D0 SA_DELTA = 0.0D0 DO NTERM = 1, MECHANISM_BUDGET( JSPC )%NRXNS_PROD NRX = MECHANISM_BUDGET( JSPC )%IRXN_PROD( NTERM ) COEFF = MECHANISM_BUDGET( JSPC )%COEFF_POS( NTERM ) & * INTRXN( NRX ) TOTAL_PROD = TOTAL_PROD + COEFF IF( .NOT. ZERO_ISAM( NRX ) )THEN DO KTAG = 1, NTAG_SA TERM = COEFF & * MIN( (SOURCE_PROBABILITY( KTAG,NRX ) & + SOURCE_PROBABILITY((NTAG_SA+1),NRX ) & * ISAM_PROBABILITY ( KTAG,NRX )), & 1.0D0 ) ISAM_PROD = ISAM_PROD + TERM SA_DELTA( KTAG ) = SA_DELTA( KTAG ) + TERM END DO END IF END DO IF( ISAM_PROD .GT. TOTAL_PROD )TOTAL_PROD = ISAM_PROD IF ( WRITE_CELL ) THEN IF ( JSPC .EQ. H2O2_INDEX ) THEN H2O2_Production = TOTAL_PROD write(isam_log,*)'H2O2 Production = ',TOTAL_PROD END IF IF ( JSPC .EQ. HNO3_INDEX ) THEN HNO3_Production = TOTAL_PROD write(isam_log,*)'HNO3 Production = ',TOTAL_PROD END IF END IF ! compute species loss ISAM_LOSS = 0.0D0 TOTAL_LOSS = 0.0D0 SA_LOSS = 0.0D0 DO NTERM = 1, MECHANISM_BUDGET( JSPC )%NRXNS_LOSS NRX = MECHANISM_BUDGET( JSPC )%IRXN_LOSS( NTERM ) COEFF = MECHANISM_BUDGET( JSPC )%COEFF_NEG( NTERM ) & * INTRXN( NRX ) TOTAL_LOSS = TOTAL_LOSS + INTRXN( NRX ) END DO NIRR = JSPC DELTA_BULK = (CONC( JSPC )-YCMID( JSPC )) REMOVED = .FALSE. REBALANCE( JSPC ) = .FALSE. IF( TOTAL_PROD .GT. 1.0D-30 )THEN ! estimate net change concentration inside and outside source tags based on total loss IF( TOTAL_LOSS .GT. 1.0D-30 )THEN ! correct outside and isam production/concentration based on the bulk average loss frequency times timestep LOSS_FACT = TOTAL_LOSS / CONC( JSPC ) IF ( LOSS_FACT .LT. 14.0D0 ) THEN ! > one millionth of initial concentration remains ! IF ( LOSS_FACT .LT. 34.5D0 ) THEN ! > one millionth of initial concentration remains REBALANCE( JSPC ) = .TRUE. TERM = ( 1.0D0 - EXP( -LOSS_FACT ) ) COEFF = TERM / LOSS_FACT TOTAL_PROD = TOTAL_PROD * COEFF DO KTAG = 1, NTAG_SA SA_LOSS ( KTAG ) = SOLD( KTAG,JSPC ) * TERM SA_DELTA( KTAG ) = SA_DELTA( KTAG ) * COEFF SOURCE_DELTA( KTAG,JSPC ) = MAX( SA_DELTA( KTAG ) - SA_LOSS( KTAG ), & -SOLD( KTAG,JSPC ) ) END DO ISAM_PROD = SUM( SA_DELTA( 1:NTAG_SA ) ) ! estimate changes in outside concentration based on surplus production OUTSIDE( JSPC ) = OUTSIDE( JSPC ) * ( 1.0D0 - TERM ) & + (TOTAL_PROD-ISAM_PROD) OUTSIDE( JSPC ) = MAX( OUTSIDE( JSPC ),0.0D0 ) ELSE ! tag change removes initial value and apportions bulk concentration to the tag based on its relative production REMOVED = .TRUE. COEFF = CONC( JSPC ) / MAX( TOTAL_PROD,1.0D-30 ) DO KTAG = 1, NTAG_SA SOURCE_DELTA( KTAG,JSPC ) = SA_DELTA( KTAG )*COEFF - SOLD( KTAG,JSPC ) END DO OUTSIDE( JSPC ) = COEFF * MAX( TOTAL_PROD-ISAM_PROD,0.0D0 ) END IF ELSE ! simply scale tag changes based their fraction of production LOSS_FACT = -1.0D0 COEFF = DELTA_BULK / MAX( TOTAL_PROD,1.0D-30 ) DO KTAG = 1, NTAG_SA SOURCE_DELTA( KTAG,JSPC ) = SA_DELTA( KTAG ) * COEFF END DO ! estimate changes in outside concentration based on surplus production and loss OUTSIDE( JSPC ) = OUTSIDE( JSPC ) & + COEFF * MAX( TOTAL_PROD-ISAM_PROD, 0.0D0 ) END IF ! add surplus concentration to tags based on whether species is tracked IF( ISAM_SPECIES( JSPC ) )THEN IF ( ISAM_PROD .GT. 1.0D-30 ) THEN ! add outside concentration to tag based on their production relative to the isam total TERM = 1.0D0 / ISAM_PROD DO KTAG = 1, NTAG_SA SA_DELTA( KTAG ) = TERM * SA_DELTA( KTAG ) SOURCE_DELTA( KTAG,JSPC ) = SOURCE_DELTA( KTAG,JSPC ) & + OUTSIDE( JSPC ) * SA_DELTA( KTAG ) END DO ELSE ! add to other tag TERM = 1.0D0 SOURCE_DELTA( OTHRTAG,JSPC ) = SOURCE_DELTA( OTHRTAG,JSPC ) & + OUTSIDE( JSPC ) END IF END IF ! WRITE( LOGDEV,'(A,6(ES20.10,1X))')'Surplus Changes for ' // CHEMISTRY_SPC( JSPC ) // ' = ', ! & TOTAL_PROD,TOTAL_LOSS,OUTSIDE( JSPC ),COEFF,SUM( SOURCE_DELTA( :,JSPC ) ),ISAM_LOSS #ifdef verbose_isam IF( ISAM_SPECIES( JSPC ) )THEN IF( REMOVED )DELTA_BULK = CONC( JSPC ) IF( WRITE_CELL )WRITE(ISAM_LOG,'(2A,30(1X,ES20.10))', ADVANCE = 'NO')MECHANISM_BUDGET( JSPC )%SPECIES_NAME, & ' P ',-LOSS_FACT,(SOURCE_DELTA( KTAG,JSPC ),KTAG =1, NTAG_SA), OUTSIDE( JSPC ), TERM, DELTA_BULK END IF #endif IF( ISAM_SPECIES( JSPC ) ) OUTSIDE( JSPC ) = 0.0D0 ELSE !!!!IF ( DELTA_BULK .LT. 0.0D0 ) THEN ! scale by relative change in bulk and fraction of species in tag LOSS_FACT = MAX( -1.0D0, DELTA_BULK / MAX( YCMID( JSPC ),DCONMIN_TAG ) ) DO KTAG = 1, NTAG_SA SOURCE_DELTA( KTAG,JSPC ) = SOURCE_DELTA( KTAG, JSPC ) & + SOLD( KTAG,JSPC ) * LOSS_FACT END DO ! have to add lines for outside change? #ifdef verbose_isam IF( ISAM_SPECIES( JSPC ) )THEN IF( WRITE_CELL )WRITE(ISAM_LOG,'(2A,30(1X,ES20.10))',ADVANCE = 'NO')MECHANISM_BUDGET( JSPC )%SPECIES_NAME, & ' L ',-LOSS_FACT,(SOURCE_DELTA( KTAG,JSPC ),KTAG =1, NTAG_SA),OUTSIDE( JSPC ),COEFF, & DELTA_BULK END IF #endif END IF ! #ifdef verbose_isam IF( ISAM_SPECIES( JSPC ) )THEN TOTAL = SUM( SOURCE_DELTA( 1:NTAG_SA,JSPC )) IF( WRITE_CELL )WRITE(ISAM_LOG,'(A,ES12.4,A,ES12.4)') & ' Net ISAM Change ', TOTAL,': Change ISAM-BULK ',( TOTAL-DELTA_BULK ) END IF #endif DO KTAG = 1, NTAG_SA IF( SOURCE_DELTA( KTAG, JSPC ) .LT. -SOLD( KTAG, JSPC ) )THEN SOURCE_DELTA( KTAG, JSPC ) = -SOLD( KTAG, JSPC ) END IF END DO END DO IF ( WRITE_CELL ) THEN write(isam_log,'(A,2(ES12.4,1X))') & 'H2O2_Production/HNO3_Production, PH2O2_OVER_PHNO3 = ', & H2O2_Production/max(HNO3_Production,1.0d-30) ,PH2O2_OVER_PHNO3( RK,CONC ) END IF C...update SOLD using SOURCE_DELTA DO JSPC = 1,NUMB_MECH_SPC NIRR = JSPC DO KTAG = 1, NTAG_SA SOLD( KTAG, JSPC ) = SOLD( KTAG, JSPC ) + SOURCE_DELTA( KTAG, JSPC ) IF( SOLD( KTAG,JSPC ) .LT. DCONMIN_TAG )SOLD( KTAG,JSPC ) = 0.0D0 END DO IF( REBALANCE( JSPC ) )THEN ! adjust tags based on final bulk concentration TERM = MAX( OUTSIDE( JSPC ) + SUM( SOLD(1:NTAG_SA,JSPC) ), DCONMIN_TAG ) COEFF = CONC( JSPC ) / TERM DO KTAG = 1, NTAG_SA SOLD( KTAG,JSPC ) = COEFF * SOLD( KTAG,JSPC ) IF( SOLD( KTAG,JSPC ) .LT. DCONMIN_TAG )SOLD( KTAG,JSPC ) = 0.0D0 END DO OUTSIDE( JSPC ) = COEFF * OUTSIDE ( JSPC ) END IF ! set tags to conmin if initially nonzero IF( MAXVAL( SOLD( 1:NTAG_SA,JSPC ) ) .LT. DCONMIN_TAG )THEN DO KTAG = 1, NTAG_SA IF( SOURCE_NONZERO( KTAG,JSPC ) )SOLD( KTAG,JSPC ) = DCONMIN_TAG END DO ! zero out ICON tag ! SOLD( NTAG_SA,JSPC ) = 0.0D0 END IF END DO #ifdef verbose_isam IF( WRITE_CELL )THEN WRITE(ISAM_LOG,'(A)')'Source Delta Concentration include extra delta then last two columns, Solver Change and Sum Deltas' WRITE(ISAM_LOG,'(A16,86(1X,I12))')'Species/Tag #',(KTAG,KTAG=1,NTAG_SA),0,NTAG_SA+1 ! DO S = 1, NUMB_MECH_SPC DO JSPC = 1, ISAM_CHEMISTRY_SPC S = ISAM_TO_CHEM( JSPC ) WRITE(ISAM_LOG,'(A16,86(1X,ES12.4))')CHEMISTRY_SPC(S),(SOURCE_DELTA( KTAG, JSPC ),KTAG=1,NTAG_SA ), & (CONC( S )-YCMID( S )),SUM(SOURCE_DELTA( 1:(NTAG_SA), JSPC )) END DO WRITE(ISAM_LOG,*)' ' WRITE(ISAM_LOG,'(A21,5(1X,A12))')'ISAM_CHEMISTRY_SPC,',' IRR Conc, ',' True Conc, correction ', & ' IRR Change, ',' True Change ',' Difference ' ! DO NIRR = 1, NUMB_MECH_SPC DO JSPC = 1, ISAM_CHEMISTRY_SPC NIRR = ISAM_TO_CHEM( JSPC ) COEFF = 0.0D0 TERM = 0.0D0 DO KTAG = 1, NTAG_SA ! SOLD( KTAG, NIRR ) = MAX( SOLD( KTAG, NIRR ) + SOURCE_DELTA( KTAG, JSPC ), 0.0D0 ) TERM = TERM + SOLD( KTAG, NIRR ) COEFF = COEFF + SOURCE_DELTA( KTAG, JSPC ) END DO DELTA_BULK = CONC( NIRR )- YCMID( NIRR ) WRITE(ISAM_LOG,'(A21,5(1X,",",ES12.4))')'ISAM_' // CHEMISTRY_SPC(NIRR), & MAX(0.0D0,TERM),CONC( NIRR ),COEFF,DELTA_BULK,(DELTA_BULK-COEFF) END DO END IF #endif DO NIRR = 1, NUMB_MECH_SPC YCMID( NIRR ) = CONC( NIRR ) END DO C..Clear source deltas SOURCE_DELTA = 0.0D0 C..Save concentrations DO NIRR = 1, NUMB_MECH_SPC YCOLD( NIRR ) = CONC( NIRR ) END DO #ifdef verbose_isam IF( WRITE_CELL )THEN WRITE(ISAM_LOG,'(A,I7,1X,I6.6,1X,I3)')'At Date, Time, Nstep = ',ISAM_JDATE,ISAM_JTIME,ISAM_NSTEP WRITE(ISAM_LOG,*)'Final Source Concentration then New Total (Last Column) Concentrations' WRITE(ISAM_LOG,'(A16,86(1X,I12))')'Species/Tag #',(KTAG,KTAG=1,NTAG_SA),0,NTAG_SA+1 ! DO S = 1, NUMB_MECH_SPC DO JSPC = 1, ISAM_CHEMISTRY_SPC S = ISAM_TO_CHEM( JSPC ) WRITE(ISAM_LOG,'(A16,86(1X,ES12.4))')CHEMISTRY_SPC(S),(SOLD( KTAG, S ),KTAG=1,NTAG_SA ), & CONC( S ),SUM(SOLD(1:NTAG_SA,S) ) END DO END IF #endif RETURN END SUBROUTINE SA_IRR_UNBLOCKED REAL( 8 ) FUNCTION PH2O2_OVER_PHNO3( RKI,CONC ) USE UTILIO_DEFN USE RXNS_DATA ! chemical mechanism data IMPLICIT NONE C..Includes: None C..Arguments: REAL( 8 ), INTENT( IN ) :: RKI ( : ) ! Reaction rate coefficients REAL( 8 ), INTENT( IN ) :: CONC ( : ) ! species concentrations C..Parameters: None C..Local INTEGER :: IRXN, ISTART, ISTOP INTEGER :: NRX INTEGER :: IOS INTEGER :: ISP1, ISP2, ISP3 INTEGER, SAVE :: NRXNS_PROD_H2O2_HNO3 = 0 REAL( 8 ) :: PROD_H2O2 REAL( 8 ) :: PROD_HNO3 LOGICAL, SAVE :: FIRSTCALL = .TRUE. LOGICAL, SAVE :: NO_SPECIES_PROD = .FALSE. REAL( 8 ), ALLOCATABLE, SAVE :: RXRAT( : ) CHARACTER( 132 ) :: MSG IF ( FIRSTCALL ) THEN IF ( NRXNS_PROD_HNO3 .LT. 1 .OR. NRXNS_PROD_H2O2 .LT. 1 ) THEN NO_SPECIES_PROD = .TRUE. ELSE NRXNS_PROD_H2O2_HNO3 = NRXNS_PROD_HNO3 + NRXNS_PROD_H2O2 ALLOCATE( RXRAT( NRXNS_PROD_H2O2_HNO3 ), STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating RXRAT arrays' CALL M3EXIT( ' PH2O2_OVER_PHNO3', 0, 0, MSG, XSTAT1 ) END IF END IF FIRSTCALL = .FALSE. END IF IF ( NO_SPECIES_PROD ) THEN PH2O2_OVER_PHNO3 = CONC( H2O2_INDEX ) / MAX( 1.0D-30,CONC( HNO3_INDEX )) RETURN END IF DO IRXN = 1, NRXNS_PROD_H2O2_HNO3 NRX = H2O2_HNO3_PROD_RXNS( IRXN ) SELECT CASE ( NREACT( NRX ) ) CASE( 1 ) ISP1 = IRR( NRX,1 ) RXRAT(IRXN ) = RKI( NRX ) & * CONC( ISP1 ) CASE( 2 ) ISP1 = IRR( NRX,1 ) ISP2 = IRR( NRX,2 ) RXRAT( IRXN ) = RKI( NRX ) & * CONC( ISP1 ) & * CONC( ISP2 ) CASE( 3 ) ISP1 = IRR( NRX,1 ) ISP2 = IRR( NRX,2 ) ISP3 = IRR( NRX,3 ) RXRAT( IRXN ) = RKI( NRX ) & * CONC( ISP1 ) & * CONC( ISP2 ) & * CONC( ISP3 ) CASE( 0 ) RXRAT( IRXN ) = RKI( NRX ) END SELECT END DO ! Compute hydrogen peroxide production PROD_H2O2 = 0.0D0 ISTART = 1 ISTOP = NRXNS_PROD_H2O2 DO IRXN = ISTART, ISTOP PROD_H2O2 = PROD_H2O2 & + H2O2_HNO3_YIELD( IRXN ) * RXRAT( IRXN ) END DO ! Compute hydrogen peroxide production PROD_HNO3 = 0.0D0 ISTART = ISTOP + 1 ISTOP = NRXNS_PROD_H2O2_HNO3 DO IRXN = ISTART, ISTOP PROD_HNO3 = PROD_HNO3 & + H2O2_HNO3_YIELD( IRXN ) * RXRAT( IRXN ) END DO PH2O2_OVER_PHNO3 = PROD_H2O2 / MAX( 1.0D-30,PROD_HNO3 ) END FUNCTION PH2O2_OVER_PHNO3 END MODULE SA_IRR_DEFN ================================================ FILE: CCTM/src/isam/SA_WRAP_AE.F ================================================ SUBROUTINE SA_WRAP_AE( CGRID0, CGRID, JDATE, JTIME, TSTEP ) !************************************************************* !20140428 As a wrapper to apportion the tags with bulk conc after AERO process ! ! Called by sciproc.F ! Revision History: ! ! 13 May 19 David Wong: Implemented centralized I/O approach !************************************************************* USE GRID_CONF USE CGRID_SPCS USE SA_DEFN USE UTILIO_DEFN USE AERO_BUDGET USE AERO_DATA, ONLY : AERO_MISSING, AEROSPC_MAP, N_MODE, & N_AEROSPC, AEROSPC, AEROSPC_MWINV, & AEROSPC_MW USE CENTRALIZED_IO_MODULE, only : interpolate_var IMPLICIT NONE INCLUDE SUBST_FILES_ID INCLUDE SUBST_CONST ! Arguments REAL, POINTER :: CGRID( :,:,:,: ) REAL :: CGRID0( :,:,:,: ) INTEGER, INTENT( IN ) :: JDATE INTEGER, INTENT( IN ) :: JTIME INTEGER, INTENT( IN ) :: TSTEP( 3 ) ! Scratch CHARACTER( 16 ), SAVE :: PNAME = 'SA_WRAP_AE' REAL(8), ALLOCATABLE, SAVE :: BULK0( :,:,:,: ) REAL(8), ALLOCATABLE, SAVE :: CCOND( :,:,:,: ) ! for interpx LOGICAL, SAVE :: FIRSTIME = .TRUE. REAL DENS ( NCOLS,NROWS,NLAYS ) INTEGER MDATE, MTIME, MSTEP CHARACTER( 96 ) :: XMSG = ' ' ! ppm2mole conversion REAL(8) ppm2mole( NCOLS,NROWS,NLAYS ) ! Identify ISAM species indices 20130529 INTEGER :: ISA1, ISA2, ICG1, ICG2, IAER, IM, K, C, R, L INTEGER :: JGAS, CGAS, JCTR, CCTR, JAER( N_MODE ), CAER( N_MODE ) LOGICAL :: OMH2O ! Arrays for combined ammonium, combined nitrates, and combined sulfates REAL(8), ALLOCATABLE, SAVE :: SPEC_BULK0(:,:,:) REAL(8), ALLOCATABLE, SAVE :: TAG_FRAC(:,:,:) REAL(8), ALLOCATABLE, SAVE :: TAG_FRAC2(:,:,:) REAL(8), ALLOCATABLE, SAVE :: BULK1(:,:,:) REAL(8), ALLOCATABLE, SAVE :: BULK_TRANS_SRC(:,:,:) REAL(8), ALLOCATABLE, SAVE :: ISAM0(:,:,:,:,:) REAL(8), ALLOCATABLE, SAVE :: ISAM1(:,:,:,:,:) LOGICAL, ALLOCATABLE, SAVE :: L_MASK_AERO( : ), L_MASK_OM( : ) CHARACTER( 3 ), ALLOCATABLE, SAVE :: L_MASK_TYPE( : ) INTEGER, ALLOCATABLE, SAVE :: L_MASK_IM( : ) REAL(8), PARAMETER :: MIN_VAL = 1.0E-25 REAL(8), SAVE :: MIN_TAGTOT INTEGER ALLOCSTAT !------------------------------------------------------------------- Ckrt Identify species index in ISAM array IF ( FIRSTIME ) THEN FIRSTIME = .FALSE. MIN_TAGTOT = MIN_VAL * NTAG_SA ALLOCATE( & CCOND( NCOLS,NROWS,NLAYS,NSPCSD ), & SPEC_BULK0( NCOLS,NROWS,NLAYS ), & BULK0( NCOLS,NROWS,NLAYS,NSPC_SA ), & BULK1( NCOLS,NROWS,NLAYS ), & BULK_TRANS_SRC( NCOLS,NROWS,NLAYS ), & TAG_FRAC( NCOLS,NROWS,NLAYS ), & TAG_FRAC2( NCOLS,NROWS,NLAYS ), & ISAM0( NCOLS,NROWS,NLAYS,NSPC_SA,NTAG_SA ), & ISAM1( NCOLS,NROWS,NLAYS,NSPC_SA,NTAG_SA ), & STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating CCOND, SPEC_BULK0, ' & //'BULK0, BULK1, BULK_TRANS_SRC, TAG_FRAC, ' & //'ISAM0, or ISAM1.' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF ! Store Masks for Aerosol features in vectors of length NSPC_SA ALLOCATE( L_MASK_AERO( NSPC_SA ), L_MASK_TYPE( NSPC_SA ), & L_MASK_OM( NSPC_SA ) , L_MASK_IM( NSPC_SA ) ) L_MASK_AERO = .FALSE. L_MASK_TYPE = '' L_MASK_OM = .FALSE. L_MASK_IM = 0 DO IAER = 1,N_AEROSPC JAER( : ) = MAP_AEROtoSA( IAER,: ) DO IM = 1,N_MODE IF ( JAER(IM) .NE. 0 ) THEN L_MASK_AERO( JAER(IM) ) = .TRUE. L_MASK_TYPE( JAER(IM) ) = AEROSPC( IAER )%VOLTYPE L_MASK_OM ( JAER(IM) ) = AEROSPC( IAER )%OM L_MASK_IM ( JAER(IM) ) = IM END IF END DO END DO ENDIF ! firstime ? ! Extract Density for gas conversion to umol/m3 MDATE = JDATE MTIME = JTIME MSTEP = TIME2SEC( TSTEP( 2 ) ) CALL NEXTIME ( MDATE, MTIME, SEC2TIME( MSTEP/2 ) ) ! Get Air Density in kg/m3 call interpolate_var ('DENS', MDATE, MTIME, DENS) ! Conversion factor to move gases from ppmv to umol/m3 ppm2mole( :,:,: ) = DBLE( MAX( DENS( :,:,: ) * 1000. / MWAIR, 1e-10 ) ) ! Sum up pre-process tags for each species at each grid cell ISAM0(:,:,:,:,:) = MAX( DBLE( ISAM(:,:,:,:,:) ), MIN_VAL ) ISAM1(:,:,:,:,:) = ISAM0(:,:,:,:,:) BULK0( :,:,:,: ) = SUM( ISAM0( :,:,:,:,: ),5 ) CCOND = DBLE( CGRID0 + AERO_COND + AERO_NPF ) !------------------------! !>>>>> CONDENSATION <<<<>>>> COAGULATION <<<< 0? ENDDO ! jspc ENDDO ! itag Ckrt Set nvars3d for SA_CONC_1 or SA_CGRID_1 file NVARS3D = N_SPCTAG Ckrt Set vname3d for SA_CONC_1 file JSPCTAG = 0 ! write (logdev, *) NSPC_SA, NTAG_SA DO ITAG = 1, NTAG_SA DO JSPC = 1, NSPC_SA JSPCTAG = JSPCTAG + 1 VTYPE3D( JSPCTAG ) = M3REAL VNAME3D( JSPCTAG ) = VNAME(JSPC,ITAG) IF( IS_SPC_AEROSOL( JSPC,ITAG ) )THEN UNITS3D( JSPCTAG ) = "micrograms/m**3 " ELSE UNITS3D( JSPCTAG ) = "ppmV " END IF VDESC3D( JSPCTAG ) = "tracer conc." S_SPCTAG ( JSPCTAG ) = JSPC T_SPCTAG ( JSPCTAG ) = ITAG VNAM_SPCTAG ( JSPCTAG ) = VNAME(JSPC,ITAG) ! WRITE(LOGDEV,'(I4,2(1X,I3),2(1X,A16),2(1X,I3))') ! & JSPCTAG,JSPC,ITAG, ! & VNAME3D( JSPCTAG ), UNITS3D( JSPCTAG ), ! & S_SPCTAG( JSPCTAG ), T_SPCTAG( JSPCTAG ) END DO END DO SDATE3D = JDATE STIME3D = JTIME FTYPE3D = GRDDED3 cyqw TSTEP3D = TSTEP(1) TSTEP3D = TSTEP ( 1 ) * NSTEPS NCOLS3D = GL_NCOLS NROWS3D = GL_NROWS NLAYS3D = SA_NLAYS NTHIK3D = 1 GDTYP3D = GDTYP_GD P_ALP3D = P_ALP_GD P_BET3D = P_BET_GD P_GAM3D = P_GAM_GD XORIG3D = XORIG_GD YORIG3D = YORIG_GD XCENT3D = XCENT_GD YCENT3D = YCENT_GD XCELL3D = XCELL_GD YCELL3D = YCELL_GD VGTYP3D = VGTYP_GD VGTOP3D = VGTOP_GD K = 0 DO L = ISAM_BLEV, ISAM_ELEV K = 1 + K VGLVS3D( K ) = VGLVS_GD( L ) END DO ! GDNAM3D = GDNAME_GD GDNAM3D = GRID_NAME ! from HGRD_DEFN FDESC3D( 1 ) = 'SA_CONC_1 stores contributing srcs ' DO L = 2, MXDESC3 FDESC3D( L ) = ' ' END DO IF ( MYPE .EQ. 0 ) THEN ! CALL M3EXIT( 'OP_SA', 0, 0, 'Fatal Error Encountered', XSTAT2 ) IF ( .NOT. OPEN3( FILE_NAME, FSNEW3, PNAME ) ) THEN XMSG = 'Could not create '// FILE_NAME // ' file' CALL M3EXIT ( PNAME, SDATE3D, STIME3D, XMSG, XSTAT1 ) END IF END IF Ckrt...Write initial conditions to sa_conc_1 ( or last hour sa_cgrid_1 ) ALLOCATE ( ISAM_BUFF( NCOLS, NROWS, SA_NLAYS, N_SPCTAG ), & STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating ISAM_BUFF' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) ENDIF ISAM_BUFF = 0.0 C ! print *, S, N_SPCTAG,ISAM_BLEV, ISAM_ELEV DO S = 1, N_SPCTAG K = 0 DO L = ISAM_BLEV, ISAM_ELEV K = K + 1 ISAM_BUFF( :,:,K,S ) = ISAM( :,:,L,S_SPCTAG(S),T_SPCTAG(S) ) ENDDO END DO ! loop over total tags IF ( .NOT. WRITE3( FILE_NAME, ALLVAR3, JDATE, JTIME, & ISAM_BUFF ) ) THEN XMSG = 'Could not write to ' & // FILE_NAME CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF if ( MYPE .eq. 0 ) then !print*,'Finished write3 S =',S !print*,'While N_SPCTAG =',N_SPCTAG endif DEALLOCATE( ISAM_BUFF ) c.....couple ISAM after writing return end ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c c this subroutine must be implemented to overcome Character*1 X 16 c to Character*16 conversion. c new varname will be created by this way. c c by bo wang c ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc subroutine wr_varname(input, length, ntag_tssa, nspc_tssa, & src_name, varname) c ...argument integer length character*1 :: input(length) integer ntag_tssa, nspc_tssa character*16 src_name character*16 varname c ...local variable integer i CHARACTER*7 CHAR1 Ckrt CHARACTER(len=16-length) :: CHAR1 character(len=length) output character*16 temp c ...external function integer len_trim c..................................................................... do i = 1, length output(i:i) = input(i) end do temp = src_name !0711 do i = 1, 7 do i = 1, min( 7, 16-length-1 ) char1(i:i) = temp(i:i) end do VARNAME = output // '_' // char1 end ================================================ FILE: CCTM/src/isam/sa_array_init.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE SA_ARRAY_INIT(CGRID ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c20140428 If cold start, write ICON values to ISAM; otherwise, c write to ISAM those ISAM values from last hour of previous day c Called by initscen.F c C 01 Nov 2018: S.Napelenok Updates for cmaq5.3 release C 09 May 2019: D.Wong Removed all MY_ clauses C 13 May 2019: D.Wong Moved environment variable ISAM_NEW_START to RUNTIME_VARS C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: USE GRID_CONF USE UTILIO_DEFN ! replaces ioparms, iofdesc, iodecl USE CGRID_SPCS ! covers all kinds of species mapping USE SA_DEFN ! Mc06 USE RUNTIME_VARS, only : ISAM_NEW_START #ifdef parallel USE SE_MODULES ! stenex (using SE_UTIL_MODULE) #else USE NOOP_MODULES ! stenex (using NOOP_UTIL_MODULE) #endif implicit none INCLUDE SUBST_FILES_ID ! file name parameters c.....arguments REAL, POINTER :: CGRID( :,:,:,: ) ! for initial CONC c.....local variables INTEGER C, R, L, S, K ! loop index INTEGER N, NSPC, JVOC ! 20140123 cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c program entry c......................................................... c.....update isam array according to isam ICON source tag IF( ISAM_NEW_START == 'Y') THEN !.....map N_SPC_ADV to the user-query species DO S = 1, NSPC_SA N = MAP_SAtoCGR( S ) DO L = 1, NLAYS DO R = 1, NROWS DO C = 1, NCOLS ISAM(C,R,L,S,ICONTAG) = CGRID(C,R,L,N) END DO ! R END DO ! C END DO ! L END DO ! S ELSE ! Initialize ISAM array by isam output from previous day CALL CREATE_ICON( ) END IF return end C======================================================================= SUBROUTINE CREATE_ICON( ) C********************************************************************** C C FUNCTION: [1] read in a ISAM IOAPI output file C [2] Load the last step's ISAM data into ISAM buffer array C C C********************************************************************** USE GRID_CONF USE UTILIO_DEFN ! replaces ioparms, iofdesc, iodecl USE SA_DEFN ! Mc06 USE RUNTIME_VARS IMPLICIT NONE C.....argument: c.....local variables: CHARACTER( 16 ), PARAMETER :: PNAME = 'create_icon' CHARACTER( 16 ), PARAMETER :: INNAME = 'ISAM_PREVDAY' INTEGER :: JDATE ! current model date, coded YYYYDDD INTEGER :: JTIME ! midpoint model time, coded HHMMSS LOGICAL, SAVE :: FIRSTIME = .TRUE. INTEGER :: GXOFF, GYOFF ! global origin offset from file INTEGER, SAVE :: STARTCOL, ENDCOL, STARTROW, ENDROW INTEGER :: LOGENV INTEGER :: C,R,L,S,K,I INTEGER :: IBGN, JSPCTAG, NSPCTAG CHARACTER( 16 ) :: SPCNAME1( NSPC_SA ) CHARACTER( 16 ) :: NAME_TAG CHARACTER( 99 ) :: XMSG LOGICAL :: EFLAG = .FALSE. REAL, ALLOCATABLE :: TEMP( :,:,: ) C********************************************************************** IF ( FIRSTIME ) THEN FIRSTIME = .FALSE. LOGENV = INIT3() C Get domain decomp info from the emissions file CALL SUBHFILE ( INNAME, GXOFF, GYOFF, & STARTCOL, ENDCOL, STARTROW, ENDROW ) END IF ! FIRSTIME EFLAG = .FALSE. IF ( .NOT. OPEN3( INNAME, FSREAD3, PNAME) )THEN WRITE(LOGDEV, *) 'Error: open file failed', INNAME CALL M3EXIT( 'READ_ISAM_ICON', 0, 0, 'Above Fatal Error Encountered', XSTAT2 ) ENDIF IF ( .NOT. DESC3( INNAME ) ) THEN WRITE(LOGDEV, *) 'Error: read', INNAME, 'failed' CALL M3EXIT( 'READ_ISAM_ICON', 0, 0, 'Above Fatal Error Encountered', XSTAT2 ) ENDIF cyqwang...begin Get The last step data DO I = 1, MXREC3D-1 CALL NEXTIME( SDATE3D, STIME3D, TSTEP3D ) END DO cyqwang...end JDATE = SDATE3D JTIME = STIME3D NSPCTAG = NVARS3D Ckrt....assign ISAM_SPEC( nspc_sa, ntag_sa ) to spcname1( nspc_sa ) DO S = 1, NSPC_SA SPCNAME1( S ) = ISAM_SPEC( S, NTAG_SA ) ENDDO ! s Ckrt allocate data-loading array ALLOCATE( TEMP( NCOLS, NROWS, NLAYS3D ) ) TEMP = 0.0 DO JSPCTAG = 1, NSPCTAG !KRT: extract sa_conc_1 from previous day IF ( .NOT. XTRACT3( INNAME, VNAME3D( JSPCTAG ), & 1, NLAYS3D, STARTROW, ENDROW, STARTCOL, ENDCOL, & JDATE, JTIME, TEMP ) ) THEN XMSG = 'Read failure: file ' // INNAME // & ' variable ' // VNAME3D( JSPCTAG ) // & ' end of file...' WRITE(LOGDEV,*) PNAME, JDATE, JTIME, & TRIM( XMSG ) CALL M3EXIT( 'READ_ISAM_ICON', 0, 0, 'Above Fatal Error Encountered', XSTAT2 ) END IF !KRT: identify isam indices from input species names IBGN = INDEX( VNAME3D( JSPCTAG ),'_', BACK = .TRUE. ) S = INDEX1( VNAME3D( JSPCTAG )( 1:IBGN-1 ),NSPC_SA,SPCNAME1 ) K = INDEX1( VNAME3D( JSPCTAG )( IBGN+1:LEN_TRIM(VNAME3D(JSPCTAG))), & NTAG_SA, TAGNAME ) NAME_TAG = VNAME3D(JSPCTAG)(IBGN+1:LEN_TRIM(VNAME3D(JSPCTAG))) IF ( S .GT. 0 ) THEN IF ( K .GT. 0 ) THEN DO C = 1, NCOLS DO R = 1, NROWS DO L = 1, NLAYS3D ISAM( C,R,L,S,K ) = TEMP( C,R,L ) END DO END DO END DO ELSE ! bcon, othr, or icon tags CK_SUFFX: SELECT CASE ( NAME_TAG ) CASE ( 'BCON', 'BCO' ) K = NTAG_SA - 2 CASE ( 'OTHR', 'OTH' ) K = NTAG_SA - 1 CASE ( 'ICON', 'ICO' ) K = NTAG_SA END SELECT CK_SUFFX IF ( K .LE. 0 ) THEN WRITE(LOGDEV,*)'ISAM ICON Species ', TRIM( VNAME3D(JSPCTAG) ), ' has bad tagname set to ', & TRIM( NAME_TAG ) EFLAG = .TRUE. ELSE DO L = 1, NLAYS3D DO R = 1, NROWS DO C = 1, NCOLS ISAM( C,R,L,S,K ) = TEMP( C,R,L ) END DO END DO END DO END IF ENDIF ! emission tags ENDIF ! species exist in tags END DO ! jspctag IF ( EFLAG ) THEN CALL M3EXIT( 'READ_ISAM_ICON', 0, 0, 'Above Fatal Error Encountered', XSTAT2 ) END IF DEALLOCATE(TEMP) If ( .NOT. CLOSE3( INNAME ) ) Then WRITE ( *,* ) & '>>--> ISAM PREVDAY output not closed properly <--<<' End if RETURN END ================================================ FILE: CCTM/src/isam/sa_dim.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE SA_DIM C KWOK: Determine dimensions of tagging array based on user-supplied sa_io_list C KWOK: Created Oct 20, 2010 C C20140428 Called by driver.F C USE UTILIO_DEFN USE SA_DEFN USE DESID_VARS, ONLY: DESID_N_SRM IMPLICIT NONE CHARACTER( 16 ) :: PNAME = 'SA_DIM' INTEGER IOST INTEGER NTAGS C---------------------------------------------- C...Count the number of tags specified by user CALL CNT_SA_IO_LIST( NTAGS ) C...Reading in the tag information ALLOCATE ( TAGNAME( NTAGS + 4 ), STAT = IOST ) CALL CHECKMEM( IOST, 'TAGNAME', PNAME ) TAGNAME = "NOT" ALLOCATE ( TAGSTREAMS_TEMP( NTAGS ), STAT = IOST ) CALL CHECKMEM( IOST, 'TAGSTREAMS_TEMP', PNAME ) TAGSTREAMS_TEMP = '' ALLOCATE ( TAGSTREAMS_NUM( NTAGS ) ) TAGSTREAMS_NUM = 0 ALLOCATE ( ISAMRGN_TEMP( NTAGS ), STAT = IOST ) CALL CHECKMEM( IOST, 'ISAMRGN_TEMP', PNAME ) ALLOCATE ( ISAMRGN_NUM( NTAGS ), STAT = IOST ) CALL CHECKMEM( IOST, 'ISAMRGN_NUM', PNAME ) ISAMRGN_NUM = 0 C...Process tag infromation from control file CALL RD_SA_IO_LIST( NTAGS ) C...Assign Tag Indices To ICON, BCON, OTHER *in that order* BCONTAG = NTAGS + 1 OTHRTAG = BCONTAG + 1 ICONTAG = OTHRTAG + 1 NTAG_SA = ICONTAG TAGNAME( BCONTAG ) = "BCO" TAGNAME( OTHRTAG ) = "OTH" TAGNAME( ICONTAG ) = "ICO" CALL GET_NSPC_SA N_SPCTAG = NSPC_SA * NTAG_SA CALL GET_MAP_SAtoCGR () ! Allocate arrays of species indices, tagging indices, and ! variable names for the combined species-tags ! i.e. set s_spctag, t_spctag, and vnam_spctag ALLOCATE ( S_SPCTAG( N_SPCTAG ), STAT=IOST ) CALL CHECKMEM( IOST, 'S_SPCTAG', PNAME ) ALLOCATE ( T_SPCTAG( N_SPCTAG ), STAT=IOST ) CALL CHECKMEM( IOST, 'T_SPCTAG', PNAME ) ALLOCATE ( VNAM_SPCTAG( N_SPCTAG ), STAT=IOST ) CALL CHECKMEM( IOST, 'VNAM_SPCTAG', PNAME ) ALLOCATE ( BCON_SPC( N_SPCTAG ), STAT=IOST ) CALL CHECKMEM( IOST, 'BCON_SPC', PNAME ) ! Assign BCON tag indicies used in advection BCON_SPC = .FALSE. BCON_SPC( ((BCONTAG - 1)*NSPC_SA+1) : (NSPC_SA*BCONTAG) ) = .TRUE. END SUBROUTINE SA_DIM ================================================ FILE: CCTM/src/isam/sa_matrix1.f ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/CCTM/src/vdiff/acm2/matrix.F,v 1.5 2011/10/21 16:11:45 yoj Exp $ C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE SA_MATRIX1 ( KL, A, B, E, D, X ) C Rather than solving the ACM2 banded tridiagonal matrix using LU decomposition, C it is much faster to split the solution into the ACM1 convective solver followed C by the tridiagonal solver C MATRIX1 is the ACM1 solver. When the PBL is convective, this solver is called C followed by TRI. If not convective, only TRI is called. C-- ACM1 Matrix is in this form (there is no subdiagonal: C B1 E2 <- note E2 (flux from layer above), not E1 C A2 B2 E3 C A3 B3 E4 C A4 B4 E5 C A5 B5 E6 C A6 B6 USE VGRD_DEFN ! vertical layer specifications USE SA_DEFN ! USE CGRID_SPCS ! CGRID mechanism species USE UTILIO_DEFN IMPLICIT NONE !C Includes: ! INTEGER, SAVE :: N_SPC_DIFF ! global diffusion species C Arguments: INTEGER, INTENT( IN ) :: KL ! CBL sigma height REAL, INTENT( IN ) :: A( : ) ! matrix column one REAL, INTENT( IN ) :: B( : ) ! diagonal REAL, INTENT( IN ) :: E( : ) ! superdiagonal REAL, INTENT( IN ) :: D( :,: ) ! R.H.S REAL, INTENT( OUT ) :: X( :,: ) ! returned solution C Locals: REAL, ALLOCATABLE, SAVE :: BETA( : ) ! REAL :: BETA( N_SPCTAG ) REAL ALPHA, GAMA INTEGER L, V, IOS CHARACTER( 120 ) :: XMSG = ' ' LOGICAL, SAVE :: FIRSTIME = .TRUE. C----------------------------------------------------------------------- IF ( FIRSTIME ) THEN FIRSTIME = .FALSE. ! N_SPC_DIFF = N_GC_TRNS + N_AE_TRNS + N_NR_TRNS + N_TR_DIFF ALLOCATE ( BETA( N_SPCTAG ), STAT = IOS ) IF ( IOS .NE. 0 ) THEN XMSG = 'Failure allocating BETA' CALL M3EXIT( 'SA_MATRIX', 0, 0, XMSG, XSTAT1 ) END IF END IF ! FIRSTIME C-- ACM1 matrix solver DO V = 1, N_SPCTAG BETA( V ) = D( V,1 ) END DO GAMA = B( 1 ) ALPHA = 1.0 DO L = 2, KL ALPHA = -ALPHA * E( L ) / B( L ) DO V = 1, N_SPCTAG BETA( V ) = ALPHA * D( V,L ) + BETA( V ) END DO GAMA = GAMA + ALPHA * A( L ) END DO DO V = 1, N_SPCTAG X( V,1 ) = BETA( V ) / GAMA X( V,KL ) = ( D( V,KL ) - A( KL ) * X( V,1 ) ) / B( KL ) END DO C-- Back sub for Ux=y DO L = KL-1, 2, -1 DO V = 1, N_SPCTAG X( V,L ) = ( D( V,L ) - A( L ) * X( V,1 ) - E( L+1 ) * X( V,L+1 ) ) / B( L ) END DO END DO RETURN END ================================================ FILE: CCTM/src/isam/sa_opwddep.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /amber/home/krt/cmq471/models/CCTM/src/vdiff/acm2_inline/opddep.F,v 1.1.1.1 2010/06/14 16:03:07 sjr Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE SA_OPWDDEP ( SADEPFILE, JDATE, JTIME, TSTEP ) C20140428 Open dry or wet deposition file (SA_DD_1 or SA_WD_1 as SADEPFILE) C for ISAM tracers. C C Called by vdiffproc.F (dry) or initscen.F (wet) USE GRID_CONF ! horizontal & vertical domain specifications USE UTILIO_DEFN ! 20120712 replaces ioparms, iofdesc, iodecl USE SA_DEFN ! Mc06 #ifdef parallel USE SE_MODULES ! stenex (using SE_UTIL_MODULE) #else USE NOOP_MODULES ! stenex (using NOOP_UTIL_MODULE) #endif IMPLICIT NONE INCLUDE SUBST_FILES_ID ! file name parameters C Arguments: CHARACTER( 16 ) SADEPFILE ! Either SA_DD_1 or SA_WD_1 INTEGER JDATE ! current model date, coded YYYYDDD INTEGER JTIME ! current model time, coded HHMMSS INTEGER TSTEP ! output time step C Local variables: CHARACTER( 16 ) :: PNAME = 'OPWDDEP' CHARACTER( 96 ) :: XMSG = ' ' INTEGER V, L ! loop induction variables INTEGER JSPCTAG ! loop induction for the Tags C----------------------------------------------------------------------- C Try to open existing file for update IF ( .NOT. OPEN3( SADEPFILE, FSRDWR3, PNAME ) ) THEN XMSG = 'Could not open ' // SADEPFILE // ' file for update - ' & // 'try to open new' CALL M3MESG( XMSG ) C Set output file characteristics based on COORD.EXT and open the dry dep file FTYPE3D = GRDDED3 SDATE3D = JDATE STIME3D = 10000 * ( JTIME / 10000 ) ! Clear MMSS fields TSTEP3D = TSTEP CALL NEXTIME( SDATE3D, STIME3D, TSTEP3D ) ! start the next hour NVARS3D = N_SPCTAG NCOLS3D = GL_NCOLS NROWS3D = GL_NROWS NLAYS3D = 1 NTHIK3D = 1 GDTYP3D = GDTYP_GD P_ALP3D = P_ALP_GD P_BET3D = P_BET_GD P_GAM3D = P_GAM_GD XORIG3D = XORIG_GD YORIG3D = YORIG_GD XCENT3D = XCENT_GD YCENT3D = YCENT_GD XCELL3D = XCELL_GD YCELL3D = YCELL_GD VGTYP3D = VGTYP_GD VGTOP3D = VGTOP_GD ! VGTPUN3D = VGTPUN_GD ! currently, not defined DO L = 1, NLAYS3D + 1 VGLVS3D( L ) = VGLVS_GD( L ) END DO ! GDNAM3D = GDNAME_GD GDNAM3D = GRID_NAME ! from HGRD_DEFN IF ( SADEPFILE .EQ. SA_DD_1 ) THEN XMSG = ' RADM dry ' ELSEIF ( SADEPFILE .EQ. SA_WD_1 ) THEN XMSG = ' wet ' ENDIF DO JSPCTAG = 1, N_SPCTAG VTYPE3D( JSPCTAG ) = M3REAL VNAME3D( JSPCTAG ) = VNAM_SPCTAG( JSPCTAG ) UNITS3D( JSPCTAG ) = 'kg/hectare' VDESC3D( JSPCTAG ) = 'hourly' // XMSG( 1:LEN_TRIM(XMSG) ) & // 'deposition values' !write(*,*) VNAM_SPCTAG( JSPCTAG ),VNAME3D(JSPCTAG), UNITS3D( JSPCTAG ),VDESC3D( JSPCTAG ) END DO FDESC3D( 1 ) = & 'hourly 1-layer X-point' // XMSG( 1:LEN_TRIM(XMSG) ) & // 'dep data for Tags' DO L = 2, MXDESC3 FDESC3D( L ) = ' ' END DO C Open dry deposition file IF ( .NOT. OPEN3( SADEPFILE, FSNEW3, PNAME ) ) THEN XMSG = 'Could not create '// SADEPFILE // ' file' CALL M3EXIT( PNAME, SDATE3D, STIME3D, XMSG, XSTAT1 ) END IF END IF RETURN END ================================================ FILE: CCTM/src/isam/sa_tri.f ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! ! RCS file, release, date & time of last delta, author, state, [and locker] ! $Header: /amber/home/krt/cmq471/models/CCTM/src/vdiff/acm2_inline/tri.F,v 1.1.1.1 2010/06/14 16:03:07 sjr Exp $ C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE SA_TRI ( L, D, U, B, X ) C----------------------------------------------------------------------- C20140428 Called by vdiffacm2.F C C FUNCTION: C Solves tridiagonal system by Thomas algorithm. Algorithm fails C ( M3ERR ) if first pivot is zero. In that case, rewrite the C equation as a set of order KMAX-1, with X(2) trivially eliminated. C The associated tri-diagonal system is stored in 3 arrays C D : diagonal C L : sub-diagonal C U : super-diagonal C B : right hand side function C X : return solution from tridiagonal solver C [ D(1) U(1) 0 0 0 ... 0 ] C [ L(2) D(2) U(2) 0 0 ... . ] C [ 0 L(3) D(3) U(3) 0 ... . ] C [ . . . . . ] X(i) = B(i) C [ . . . . 0 ] C [ . . . . ] C [ 0 L(n) D(n) ] C where n = NLAYS C PRECONDITIONS REQUIRED: C Dimensionality set up in terms of NLAYS from SUBST_VGRD_ID C SUBROUTINES AND FUNCTIONS CALLED: C REVISION HISTORY: C NO. DATE WHO WHAT C __ ____ ___ ____ C 5 Apr 06 JEP adapted tridiag for use with ACM2 C 4 Aug 96 yoj cleaner C 3 8/16/94 XKX configuration management include statements C 2 3/15/92 CJC For use in Models-3 LCM. C 1 10/19/89 JKV converted for use on IBM C 0 3/89 BDX Initial version C----------------------------------------------------------------------- USE VGRD_DEFN ! vertical layer specifications USE SA_DEFN ! Mc06 IMPLICIT NONE C Arguments: REAL, INTENT( IN ) :: L( : ) ! subdiagonal REAL, INTENT( IN ) :: D( : ) ! diagonal REAL, INTENT( IN ) :: U( : ) ! superdiagonal REAL, INTENT( IN ) :: B( :,: ) ! R.H. side REAL, INTENT( OUT ) :: X( :,: ) ! solution C Local Variables: REAL GAM( NLAYS ) REAL BET INTEGER V, K C Decomposition and forward substitution: BET = 1.0 / D( 1 ) DO V = 1, N_SPCTAG X( V,1 ) = BET * B(V,1 ) END DO DO K = 2, NLAYS GAM( K ) = BET * U( K-1 ) BET = 1.0 / ( D( K ) - L( K ) * GAM( K ) ) DO V = 1, N_SPCTAG X( V, K ) = BET * ( B( V,K ) - L( K ) * X( V,K-1 ) ) END DO END DO C Back-substitution: DO K = NLAYS - 1, 1, -1 DO V = 1, N_SPCTAG X( V,K ) = X( V,K ) - GAM( K+1 ) * X( V,K+1 ) END DO END DO RETURN END ================================================ FILE: CCTM/src/isam/wr_avg_sa.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/work/rep/arc/CCTM/src/driver/wrf/wr_aconc.F,v 1.6 2011/10/21 16:10:43 yoj Exp $ C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE WR_AVG_SA ( JDATE, JTIME, TSTEP ) C20140428 Writes hourly averaged ISAM conc to SA_ACONC_1 C C Called by driver.F C C 01 Nov 2018: S.Napelenok Updates for cmaq5.3 release C 09 May 2019: D.Wong Removed all MY_ clauses C----------------------------------------------------------------------- USE GRID_CONF ! horizontal & vertical domain specifications USE UTILIO_DEFN c USE SA_LAYERS ! 20140428 for AISAM_BLEV, AISAM_ELEV, SA_NLAYS USE SA_DEFN USE RUNTIME_VARS ! USE SUBST_MODULES ! stenex ! USE SUBST_UTIL_MODULE ! stenex #ifdef parallel USE SE_MODULES ! stenex (using SE_UTIL_MODULE) #else USE NOOP_MODULES ! stenex (using NOOP_UTIL_MODULE) #endif IMPLICIT NONE C Include Files: INCLUDE SUBST_FILES_ID ! file name parameters INTEGER JDATE ! current model date, coded YYYYDDD INTEGER JTIME ! current model time, coded HHMMSS INTEGER TSTEP ! output timestep (HHMMSS) C Local variables: REAL, ALLOCATABLE :: BUF4( :,:,:,: ) INTEGER MDATE ! modified model date, coded YYYYDDD INTEGER MTIME ! modified model time, coded HHMMSS CHARACTER( 16 ) :: PNAME = 'WR_AVG_SA' CHARACTER( 16 ) :: ACONC_END_TIME = 'ACONC_END_TIME' CHARACTER( 80 ) :: VARDESC = ' ' CHARACTER( 96 ) :: XMSG = ' ' c INTEGER, SAVE :: LOGDEV ! FORTRAN unit number for log file LOGICAL, SAVE :: FIRSTIME = .TRUE. LOGICAL OK c LOGICAL, SAVE :: END_TIME = .FALSE. INTEGER L, K, KD, VAR, SPC ! loop counters INTEGER STATUS INTEGER, SAVE :: A_NLYS INTEGER TSTEP_RF, NTHIK_RF, NCOLS_RF, NROWS_RF, GDTYP_RF REAL( 8 ) :: P_ALP_RF, P_BET_RF, P_GAM_RF REAL( 8 ) :: XCENT_RF, YCENT_RF REAL( 8 ) :: XORIG_RF, YORIG_RF REAL( 8 ) :: XCELL_RF, YCELL_RF INTEGER VGTYP_RF REAL VGTOP_RF C----------------------------------------------------------------------- C Change output date/time to starting date/time - e.g. timestamp 1995196:090000 C represents data computed from time 1995196:090000 to 1995196:100000 IF ( FIRSTIME ) THEN LOGDEV = INIT3 () C Override default beginning time timestamp for ACONC? c VARDESC = c & 'Flag to Override default beginning time timestamp for ACONC' c END_TIME = ENVYN( ACONC_END_TIME, VARDESC, END_TIME, STATUS ) c IF ( STATUS .EQ. 1 ) THEN c XMSG = 'Environment variable improperly formatted' c CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) c ELSE IF ( STATUS .NE. 0 ) THEN c WRITE( LOGDEV, '(5X, A)' ) VARDESC c XMSG = '... Using default:' c WRITE( LOGDEV, '(5X, A, I9)' ) XMSG, JTIME c END IF END IF IF ( END_TIME ) THEN ! ending time timestamp MDATE = JDATE; MTIME = JTIME ELSE ! beginning time timestamp MDATE = JDATE; MTIME = JTIME CALL NEXTIME ( MDATE, MTIME, -TSTEP ) END IF IF ( FIRSTIME ) THEN FIRSTIME = .FALSE. C Try to open existing file for update c CALL SUBST_BARRIER IF ( AISAM_ELEV .EQ. -1 ) AISAM_ELEV = NLAYS A_NLYS = AISAM_ELEV - AISAM_BLEV + 1 OK = OPEN3( SA_ACONC_1, FSRDWR3, PNAME ) CALL SUBST_GLOBAL_LOGICAL( OK, 'AND' ) IF ( .NOT. OK ) THEN XMSG = 'Could not open ' // TRIM( SA_ACONC_1 ) & // ' file for update - try to open new' CALL M3MESG( XMSG ) IF ( MYPE .EQ. 0 ) THEN C Get default file header attibutes from CONC file (assumes file already open) IF ( .NOT. DESC3( SA_CONC_1 ) ) THEN XMSG = 'Could not get ' & // TRIM( SA_CONC_1 ) & // ' file description' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF C Set file header attributes that differ from CONC and open the file SDATE3D = MDATE STIME3D = MTIME TSTEP3D = TSTEP !0711 NVARS3D = N_SPCTAG NLAYS3D = A_NLYS L = 0 DO K = AISAM_BLEV, AISAM_ELEV L = L + 1 VGLVS3D( L ) = VGLVS_GD( K ) END DO !0711 VGLVS3D( A_NLYS + 1 ) = VGLVS_GD( NLAYS + 1 ) ! GDNAM3D = GDNAME_GD GDNAM3D = GRID_NAME ! from HGRD_DEFN FDESC3D( 1 ) = 'Src Apportionment file output ' FDESC3D( 2 ) = & 'Averaged over the synchronization time steps ' FDESC3D( 3 ) = & 'Timestamp represents beginning computed date/time ' FDESC3D( 4 ) = 'Layer mapping (ISAM to AISAM):' KD = 4 VAR = AISAM_BLEV L = 0 DO K = KD + 1, MIN ( A_NLYS + KD, MXDESC3 ) L = L + 1 WRITE( FDESC3D( K ),'( "Layer", I3, " to", I3, " " )' ) & VAR + L - 1, L END DO IF ( ( KD + 1 + L ) .LT. MXDESC3 ) THEN DO K = KD + 1 + L, MXDESC3 FDESC3D( K ) = ' ' END DO END IF WRITE( LOGDEV,* ) ' ' WRITE( LOGDEV,* ) & ' Avg ISAM File Header Description:' DO K = 1, KD + L WRITE( LOGDEV,* ) ' => ', & TRIM( FDESC3D( K ) ) END DO IF ( .NOT. OPEN3( SA_ACONC_1, FSNEW3, PNAME ) ) THEN XMSG = 'Could not open ' & // TRIM( SA_ACONC_1 ) // ' file' CALL M3EXIT( PNAME, MDATE, MTIME, XMSG, XSTAT1 ) END IF END IF ! MYPE = 0 ELSE C File exists. Make sure it matches requested output. IF ( .NOT. DESC3( SA_CONC_1 ) ) THEN XMSG = 'Could not get ' & // TRIM( SA_CONC_1 ) & // ' file description' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF TSTEP_RF = TSTEP3D NTHIK_RF = NTHIK3D NCOLS_RF = NCOLS3D NROWS_RF = NROWS3D GDTYP_RF = GDTYP3D P_ALP_RF = P_ALP3D P_BET_RF = P_BET3D P_GAM_RF = P_GAM3D XCENT_RF = XCENT3D YCENT_RF = YCENT3D XORIG_RF = XORIG3D YORIG_RF = YORIG3D XCELL_RF = XCELL3D YCELL_RF = YCELL3D VGTYP_RF = VGTYP3D VGTOP_RF = VGTOP3D IF ( .NOT. DESC3( SA_ACONC_1 ) ) THEN XMSG = 'Could not get ' & // TRIM( SA_ACONC_1 ) & // ' file description' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF IF ( N_SPCTAG .NE. NVARS3D ) THEN WRITE( XMSG, '( A, 2I6 )' ) & 'Number of variables don''t match file: ', N_SPCTAG, NVARS3D CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT2 ) END IF DO SPC = 1, N_SPCTAG DO VAR = 1, NVARS3D IF ( VNAM_SPCTAG( SPC ) .EQ. VNAME3D( VAR ) ) GO TO 101 END DO XMSG = 'Could not find ' // VNAM_SPCTAG( SPC ) CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT2 ) 101 CONTINUE END DO IF ( A_NLYS .NE. NLAYS3D ) THEN WRITE( XMSG, '( A, 2I6 )' ) & 'Number of layers don''t match file: ', A_NLYS, NLAYS3D CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT2 ) END IF C Check other header data with CONC file as reference IF ( TSTEP_RF .NE. TSTEP3D .OR. & NTHIK_RF .NE. NTHIK3D .OR. & NCOLS_RF .NE. NCOLS3D .OR. & NROWS_RF .NE. NROWS3D .OR. & GDTYP_RF .NE. GDTYP3D ) THEN XMSG = 'Header inconsistent on existing SA_ACONC_1' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT2 ) END IF IF ( P_ALP_RF .NE. P_ALP3D .OR. & P_BET_RF .NE. P_BET3D .OR. & P_GAM_RF .NE. P_GAM3D ) THEN XMSG = 'Header inconsistent on existing SA_ACONC_1' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT2 ) END IF IF ( XCENT_RF .NE. XCENT3D .OR. & YCENT_RF .NE. YCENT3D ) THEN XMSG = 'Header inconsistent on existing SA_ACONC_1' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT2 ) END IF IF ( XORIG_RF .NE. XORIG3D .OR. & YORIG_RF .NE. YORIG3D ) THEN XMSG = 'Header inconsistent on existing SA_ACONC_1' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT2 ) END IF IF ( XCELL_RF .NE. XCELL3D .OR. & YCELL_RF .NE. YCELL3D ) THEN XMSG = 'Header inconsistent on existing SA_ACONC_1' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT2 ) END IF IF ( VGTYP_RF .NE. VGTYP3D ) THEN XMSG = 'Header inconsistent on existing SA_ACONC_1' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT2 ) END IF IF ( VGTOP_RF .NE. VGTOP3D ) THEN XMSG = 'Header inconsistent on existing SA_ACONC_1' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT2 ) END IF END IF ! .NOT. OPEN SA_ACONC_1 c CALL SUBST_BARRIER END IF ! FIRSTIME IF ( .NOT. ALLOCATED( BUF4 ) ) ALLOCATE( BUF4( NCOLS, NROWS, A_NLYS, N_SPCTAG ) ) DO SPC = 1, N_SPCTAG L = 0 DO K = AISAM_BLEV, AISAM_ELEV L = L + 1 BUF4( :,:,L,SPC ) = AISAM( :,:,L, S_SPCTAG(SPC), T_SPCTAG(SPC) ) ENDDO ! IF ( .NOT. WRITE3( SA_ACONC_1, VNAM_SPCTAG( SPC ), & MDATE, MTIME, BUF4( :,:,:,SPC ) ) ) THEN XMSG = 'Could not write ' & // VNAM_SPCTAG( SPC ) & // ' to ' // SA_ACONC_1 CALL M3EXIT( PNAME, MDATE, MTIME, XMSG, XSTAT1 ) END IF ! write( logdev,* ) ' <>var, A_GC_SPC: ', VAR, A_GC_SPC( SPC ) END DO WRITE( LOGDEV, '( /5X, 3( A, :, 1X ), I8, ":", I6.6 )' ) & 'Timestep written to', SA_ACONC_1, & 'for date and time', MDATE, MTIME IF ( ALLOCATED( BUF4 ) ) DEALLOCATE( BUF4 ) RETURN END ================================================ FILE: CCTM/src/isam/wr_sa.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c c [2] write tssa concentration data c C Revision history C 01 Nov 2018: S.Napelenok Updates for cmaq5.3 release C 09 May 2019: D.Wong Removed all MY_ clauses C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE WR_SA ( JDATE, JTIME, TSTEP, NSTEPS ) C20140428 Writes ISAM values to SA_CONC_1 file C C Called by driver.F ! USE HGRD_DEFN ! horizontal domain specifications USE GRID_CONF USE UTILIO_DEFN ! 20120615 c USE SA_LAYERS USE SA_DEFN ! Mc06 c USE SUBST_MODULES ! stenex USE RUNTIME_VARS #ifdef parallel USE SE_MODULES ! stenex (using SE_UTIL_MODULE) #else USE NOOP_MODULES ! stenex (using NOOP_UTIL_MODULE) #endif IMPLICIT NONE C Include Files: INCLUDE SUBST_FILES_ID ! I/O definitions and declarations C...Arguments Declaration INTEGER JDATE ! current model date, coded YYYYDDD INTEGER JTIME ! current model time, coded HHMMSS INTEGER TSTEP(3) ! format 10000, 0, 0 cyqw INTEGER NSTEPS ! Number of time steps of 3D output cyqw !0711 CHARACTER( 16 ) :: FILE_NAME C...End of argument declaration C Local variables: c INTEGER ALLOCSTAT, LOGDEV INTEGER ALLOCSTAT LOGICAL, SAVE :: FIRSTIME = .TRUE. !20140228 CHARACTER( 16 ) :: PNAME = 'WR_SA' CHARACTER( 96 ) :: XMSG = ' ' INTEGER C,R,S,K,N, L, JSPC ! loop induction variables REAL, ALLOCATABLE, SAVE :: ISAM_BUFF ( :,:,:,: ) ! save added on 20140306 C----------------------------------------------------------------------- CALL SUBST_BARRIER Ckrt print*,'N_SPCTAG, JDATE, JTIME ' Ckrt print*, N_SPCTAG, JDATE, JTIME !0710 IF ( .NOT. OPEN3( FILE_NAME, FSRDWR3, PNAME ) ) THEN !0710 XMSG = 'Could not open ' // FILE_NAME // ' file for update' !0710 CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) !0710 END IF !0711 IF ( .NOT. DESC3( FILE_NAME ) ) THEN !0711 XMSG = 'Could not get file description from ' // FILE_NAME !0711 CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) !0711 END IF IF ( FIRSTIME ) THEN ! 20140228 FIRSTIME = .FALSE. LOGDEV = INIT3 () IF ( MYPE .NE. 0 ) THEN IF ( .NOT. OPEN3( SA_CONC_1, FSREAD3, PNAME ) ) THEN XMSG = 'Could not open ' // SA_CONC_1 // 'file for update' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF !open3 END IF ! mype nonzero IF ( .NOT. DESC3( SA_CONC_1 ) ) THEN XMSG = 'Could not get file description from ' // SA_CONC_1 CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF IF ( ISAM_ELEV .EQ. -1 ) ISAM_ELEV = NLAYS SA_NLAYS = ISAM_ELEV - ISAM_BLEV + 1 !20140306 relocated here the following five lines ALLOCATE ( ISAM_BUFF( NCOLS, NROWS, SA_NLAYS, N_SPCTAG ), & STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating ISAM_BUFF' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) ENDIF IF ( ISAM_ELEV .EQ. -1 ) ISAM_ELEV = NLAYS END IF ! firstime ISAM_BUFF = 0.0 !Ckrt print*,'S,VNAME3D(S),S_SPCTAG(S),T_SPCTAG(S)' DO S = 1, N_SPCTAG K = 0 DO L = ISAM_BLEV, ISAM_ELEV K = K + 1 DO R = 1, NROWS DO C = 1, NCOLS ISAM_BUFF( C,R,K,S ) = ISAM( C,R,L,S_SPCTAG(S),T_SPCTAG(S) ) ENDDO ENDDO ENDDO !20140306 Mentioning of vname3d is dangerous. Use vnam_spctag instead !20140306 IF ( .NOT. WRITE3( SA_CONC_1, VNAME3D(S), JDATE, JTIME, IF ( .NOT. WRITE3( SA_CONC_1, VNAM_SPCTAG(S), JDATE, JTIME, & ISAM_BUFF(:,:,:,S)) ) THEN XMSG = 'Could not write to ' !0711& // FILE_NAME & // SA_CONC_1 CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF END DO !20140306 IF ( ALLOCATED(ISAM_BUFF) ) DEALLOCATE( ISAM_BUFF ) c.....couple ISAM after writing return end ================================================ FILE: CCTM/src/isam/wr_sa_cgrid.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c c [2] write tssa concentration data c C Revision history C 01 Nov 2018: S.Napelenok Updates for cmaq5.3 release C 09 May 2019: D.Wong Removed all MY_ clauses C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE WR_SA_CGRID ( JDATE, JTIME, TSTEP ) C20140428 Writes full ISAM values to a restart file SA_CGRID_1 which would serve as C initial conditions for next day's run C C Called by driver.F USE GRID_CONF USE UTILIO_DEFN ! 20120615 c USE SUBST_MODULES ! stenex USE SA_DEFN ! Mc06 #ifdef parallel USE SE_MODULES ! stenex (using SE_UTIL_MODULE) #else USE NOOP_MODULES ! stenex (using NOOP_UTIL_MODULE) #endif IMPLICIT NONE C Include Files: INCLUDE SUBST_FILES_ID ! I/O definitions and declarations C...Arguments Declaration INTEGER JDATE ! current model date, coded YYYYDDD INTEGER JTIME ! current model time, coded HHMMSS !INTEGER TSTEP(2) ! format 10000, 0, 0 INTEGER TSTEP ! format 10000 C...End of argument declaration C Local variables: c INTEGER ALLOCSTAT, LOGDEV INTEGER ALLOCSTAT CHARACTER( 16 ) :: PNAME = 'WR_SA_CGRID' CHARACTER( 96 ) :: XMSG = ' ' c INTEGER C,R,S,K,N, L, ITAG, JSPC ! loop induction variables INTEGER C,R,S,K,N, L, JSPC ! loop induction variables REAL, ALLOCATABLE :: ISAM_BUFF ( :,:,:,: ) !20140519 LOGICAL, SAVE :: FIRSTIME = .TRUE. LOGICAL OK INTEGER TSTEP_RF, NTHIK_RF, NCOLS_RF, NROWS_RF, GDTYP_RF REAL( 8 ) :: P_ALP_RF, P_BET_RF, P_GAM_RF REAL( 8 ) :: XCENT_RF, YCENT_RF REAL( 8 ) :: XORIG_RF, YORIG_RF REAL( 8 ) :: XCELL_RF, YCELL_RF INTEGER VGTYP_RF REAL VGTOP_RF C----------------------------------------------------------------------- IF ( FIRSTIME ) THEN FIRSTIME = .FALSE. CALL SUBST_BARRIER !20140519 add subst_global_logical call as done in wr_cgrid OK = OPEN3( SA_CGRID_1, FSRDWR3, PNAME ) CALL SUBST_GLOBAL_LOGICAL( OK, 'AND' ) IF ( .NOT. OK ) THEN XMSG = 'Could not open ' // SA_CGRID_1 // & ' file for update - try to open new' CALL M3MESG( XMSG ) IF ( MYPE .EQ. 0 ) THEN ! open sa_conc_1 IF ( .NOT. OPEN3( SA_CONC_1, FSRDWR3, PNAME ) ) THEN XMSG = 'Could not open ' // SA_CONC_1 // & ' file for update ' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) ENDIF ! sa_conc_1 opened ? ! Get description of sa_conc_1 IF ( .NOT. DESC3( SA_CONC_1 ) ) THEN XMSG = 'Could not get file description from ' // SA_CONC_1 CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) ENDIF ! sa_conc_1 description obtained ? SDATE3D = JDATE STIME3D = JTIME NLAYS3D = NLAYS ! Create sa_cgrid_1 IF ( .NOT. OPEN3( SA_CGRID_1, FSNEW3, PNAME ) ) THEN XMSG = 'Could not open' // SA_CGRID_1 CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) ENDIF ! ENDIF ! mype0 ? ELSE ! 20140519 sa_cgrid already opened by any processor IF ( MYPE .EQ. 0 ) THEN IF ( .NOT. DESC3( SA_CONC_1 ) ) THEN XMSG = 'Could not get' // TRIM(SA_CONC_1) // & 'file description' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) ENDIF TSTEP_RF = TSTEP3D NTHIK_RF = NTHIK3D NCOLS_RF = NCOLS3D NROWS_RF = NROWS3D GDTYP_RF = GDTYP3D P_ALP_RF = P_ALP3D P_BET_RF = P_BET3D P_GAM_RF = P_GAM3D XCENT_RF = XCENT3D YCENT_RF = YCENT3D XORIG_RF = XORIG3D YORIG_RF = YORIG3D XCELL_RF = XCELL3D YCELL_RF = YCELL3D VGTYP_RF = VGTYP3D VGTOP_RF = VGTOP3D IF ( .NOT. DESC3( SA_CGRID_1 ) ) THEN XMSG = 'Could not get' // TRIM(SA_CGRID_1) // & 'file description' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) ENDIF IF ( TSTEP_RF .NE. ABS( TSTEP3D ) .OR. & NTHIK_RF .NE. NTHIK3D .OR. & NCOLS_RF .NE. NCOLS3D .OR. & NROWS_RF .NE. NROWS3D .OR. & GDTYP_RF .NE. GDTYP3D ) THEN XMSG = 'Header inconsistent on existing SA_CGRID_1' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT2 ) END IF IF ( P_ALP_RF .NE. P_ALP3D .OR. & P_BET_RF .NE. P_BET3D .OR. & P_GAM_RF .NE. P_GAM3D ) THEN XMSG = 'Header inconsistent on existing SA_CGRID_1' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT2 ) END IF IF ( XCENT_RF .NE. XCENT3D .OR. & YCENT_RF .NE. YCENT3D ) THEN XMSG = 'Header inconsistent on existing SA_CGRID_1' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT2 ) END IF IF ( XORIG_RF .NE. XORIG3D .OR. & YORIG_RF .NE. YORIG3D ) THEN XMSG = 'Header inconsistent on existing SA_CGRID_1' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT2 ) END IF IF ( XCELL_RF .NE. XCELL3D .OR. & YCELL_RF .NE. YCELL3D ) THEN XMSG = 'Header inconsistent on existing SA_CGRID_1' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT2 ) END IF IF ( VGTYP_RF .NE. VGTYP3D ) THEN XMSG = 'Header inconsistent on existing SA_CGRID_1' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT2 ) END IF IF ( VGTOP_RF .NE. VGTOP3D ) THEN XMSG = 'Header inconsistent on existing SA_CGRID_1' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT2 ) END IF ENDIF ! mype 0 END IF ! sa_cgrid_1 opened ? CALL SUBST_BARRIER ALLOCATE ( ISAM_BUFF( NCOLS, NROWS, NLAYS, N_SPCTAG ), & STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating ISAM_BUFF' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) ENDIF ENDIF !firstime ISAM_BUFF = 0.0 DO S = 1, N_SPCTAG ISAM_BUFF( :,:,:,S ) = ISAM( :,:,:,S_SPCTAG(S),T_SPCTAG(S) ) !20140319 IF ( .NOT. WRITE3( SA_CGRID_1, VNAME3D(S), JDATE, JTIME, IF ( .NOT. WRITE3( SA_CGRID_1, VNAM_SPCTAG(S), JDATE, JTIME, & ISAM_BUFF(:,:,:,S)) ) THEN XMSG = 'Could not write to ' & // SA_CGRID_1 CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF END DO ! S ! DEALLOCATE( ISAM_BUFF ) return end ================================================ FILE: CCTM/src/par/mpi/distr_env.c ================================================ /***********************************************************************/ /* Portions of Models-3/CMAQ software were developed or based on */ /* information from various groups: Federal Government employees, */ /* contractors working on a United States Government contract, and */ /* non-Federal sources (including research institutions). These */ /* research institutions have given the Government permission to */ /* use, prepare derivative works, and distribute copies of their */ /* work in Models-3/CMAQ to the public and to permit others to do */ /* so. EPA therefore grants similar permissions for use of the */ /* Models-3/CMAQ software, but users are requested to provide copies */ /* of derivative works to the Government without restrictions as to */ /* use by others. Users are responsible for acquiring their own */ /* copies of commercial software associated with Models-3/CMAQ and */ /* for complying with vendor requirements. Software copyrights by */ /* the MCNC Environmental Modeling Center are used with their */ /* permissions subject to the above restrictions. */ /***********************************************************************/ /* Distributes the CCTM script run time environment from the machine */ /* that launched the script to the other participating machines */ /* Revision History: */ /* Written by shanzhong zhu */ /* Modified by David Wong, SAIC, Api 2003 */ /* Modified 06/2021: Bugfix from Steve Fine, US EPA-OAR */ /* Modified 06/2021: Fahim Sidi, US EPA, Enhanced portability to */ /* other arch(s) that do NOT use Feldman-style Fortran bindings */ #include #include #include #include #include "mpi.h" #ifdef DEBUGGING #define DEBUG(s) s #else #define DEBUG(s) #endif #ifdef FLDMN #define distr_env distr_env_ #endif extern char **environ; #define TEMP_BUF_SIZE 102400 #define CURR_STR_SIZE 10240 extern void distr_env (int *myid_p, int *numprocs_p) { char **environ_ptr; int env_size, total_size, total_size_0, str_size, avail_size; int myid, numprocs; char temp_buf[TEMP_BUF_SIZE], curr_str[CURR_STR_SIZE], *curr_ptr, *curr_name, *curr_val; int ret, i, error; myid = *myid_p; numprocs = *numprocs_p; if (myid == 0) { environ_ptr = environ; env_size = 0; total_size = 0; i = 0; while (environ_ptr[i++] != NULL) { env_size++; total_size = total_size + strlen(environ_ptr[i-1]) + 1; } DEBUG( printf ("last of environment context is %s, total_size is %d. \n", environ_ptr[env_size-1], total_size); ) total_size_0 = total_size; curr_ptr = temp_buf; avail_size = TEMP_BUF_SIZE; for (i=0; i str_size) ) { strcpy (curr_ptr, environ_ptr[i]); curr_ptr = curr_ptr + str_size + 1; avail_size = avail_size - str_size - 1; } else { printf ("your temp_buf in distr_env may not big enough to "); printf ("hold next environmental pair \n"); exit (1); } } } error = MPI_Bcast (&total_size_0, 1, MPI_INT, 0, MPI_COMM_WORLD); error = MPI_Bcast (temp_buf, total_size_0, MPI_CHAR, 0, MPI_COMM_WORLD); if (myid != 0) { DEBUG( printf ("total_size_0 is: %d \n", total_size_0); ) curr_ptr = temp_buf; while (curr_ptr < temp_buf+total_size_0) { if (strlen(curr_ptr) <= CURR_STR_SIZE) { strcpy (curr_str, curr_ptr); curr_ptr = curr_ptr+strlen(curr_str)+1; } else { printf ("The curr_str buffer is not big enough! \n"); exit (1); } DEBUG( printf ("The current environmental value pair is: %s \n", curr_str); ) curr_name = strtok (curr_str, "="); curr_val = strtok (NULL, "\0"); if (curr_val) { if ( ret = setenv (curr_name, curr_val, 0) ) { printf ("error in setting environmental variable %s = %s. \n", curr_name, curr_val); exit (1); } } DEBUG( printf ("check the environmetal variable %s = %s. \n", curr_name, getenv(curr_name)); ) } } MPI_Barrier (MPI_COMM_WORLD); } ================================================ FILE: CCTM/src/par/mpi/mpcomm_init.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/CCTM/src/par/mpi/mpcomm_init.F,v 1.4 2011/10/21 16:11:25 yoj Exp $ C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE MPCOMM_INIT( NPROCS, MYPE, CLOCK, IERR ) C....................................................................... C C Purpose: Initialization for parallel execution of CMAQ C Revision History: C Original version 5/09 Jeff Young - modified from par_init C Modified 02/23/2011 by Shawn Roselle C -- Replaced I/O API include files with UTILIO_DEFN C Modified 08/10/2011 by David Wong C -- Called MPI_INIT if it is a regular CMAQ run C Modified 08/2011 by David Wong C -- Replaced SUBST_MPI with mpif.h C Argument List Description: C In: C INTEGER NLAYS ! Number of layers in entire grid C INTEGER NSPCS ! Number of species in CGRID C Out: C REAL CLOCK ! Wall-clock time (sec) at MPI initialization C INTEGER IERR ! Error code: 0 for ok, 1 for fail C Local Variable Description: C Other Local Variable Descriptions: see below C Calls: M3WARN, MPI_INIT, MPI_COMM_RANK, MPI_COMM_SIZE, MPI_WTIME C........................................................................ USE UTILIO_DEFN IMPLICIT NONE C Include Files ! INCLUDE SUBST_MPI ! MPI definitions and parameters include 'mpif.h' C Arguments INTEGER, INTENT( OUT ) :: NPROCS ! number of parallel processors INTEGER, INTENT( OUT ) :: MYPE ! this parallel processor REAL(8), INTENT( OUT ) :: CLOCK ! Wall-clock time (sec) at MPI initialization INTEGER, INTENT( OUT ) :: IERR ! error code C Local Variables INTEGER FLAG CHARACTER( 80 ) :: XMSG ! Message issued from M3WARN routine CHARACTER( 16 ) :: PNAME = 'MPCOMM_INIT' C------------------------------------------------------------------------ IERR = 0 C Start up MPI #if !defined(twoway) && !defined(mpas) CALL MPI_INIT( FLAG ) IF ( FLAG .NE. 0 ) THEN WRITE( XMSG,'(I6, A)' ) FLAG, 'Error in MPI_INIT.' CALL M3WARN ( PNAME, 0, 0, XMSG ) IERR = 1; RETURN END IF #endif C Get wall-clock time CLOCK = MPI_WTIME() C Get number of processors CALL MPI_COMM_SIZE( MPI_COMM_WORLD, NPROCS, FLAG ) IF ( FLAG .NE. 0 ) THEN WRITE( XMSG,'(I6, A)' ) FLAG, 'Error in MPI_COMM_SIZE.' CALL M3WARN ( PNAME, 0, 0, XMSG ) IERR = 1; RETURN END IF C Get my processor rank (i.e., get ID of this processor) CALL MPI_COMM_RANK( MPI_COMM_WORLD, MYPE, FLAG ) IF ( FLAG .NE. 0 ) THEN WRITE( XMSG,'(I6, A)' ) FLAG, 'Error in MPI_COMM_RANK.' CALL M3WARN ( PNAME, 0, 0, XMSG ) IERR = 1; RETURN END IF #ifdef cluster C Distribute run time environment variables to other machines - by bo wang CALL distr_env ( MYPE, NPROCS ) #endif RETURN END ================================================ FILE: CCTM/src/par/par_noop/par_init_noop.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/CCTM/src/par/par_noop/par_init_noop.F,v 1.2 2011/10/21 16:11:26 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% SUBROUTINE PAR_INIT( COLROW, NSPCS, CLOCK, IERROR ) C..................................................................... C C PURPOSE: No-operation version of parallel initialization, for C running in serial configuration. Local processor C dimensions are set to the one-processor values. C C C REVISION HISTORY: C Original version 10/1998 by Al Bourgeois for merging parallel C and serial codes. C Modified 01/1998 by Al Bourgeois to fix subscripts in arrays C ROWSX_PE and COLSX_PE. C Modified 11/2001 by Jeff Young for dynamic alloc version C Modified 31/01/05 J.Young: dyn alloc - establish both horizontal & C vertical domain specifications in one module C 16 Jan 06 J.Young: possible PA grid init C Modified 03/29/11 S.Roselle: Replaced I/O API include files with C UTILIO_DEFN C C C ARGUMENT LIST DESCRIPTION: C IN: C CHARACTER( 2 ), INTENT( IN ) :: COLROW ! columns/rows arg list check C INTEGER NSPCS ! Number of species in CGRID. C C OUT: C REAL CLOCK ! Wall-clock time (sec) at MPI initialization. C INTEGER IERROR ! Error code. C C C LOCAL VARIABLE DESCRIPTION: see below C C CALLS: None C C........................................................................ USE GRID_CONF ! horizontal & vertical domain specifications USE PA_DEFN ! PROCAN flags USE PAGRD_DEFN ! PA horiz domain specs USE UTILIO_DEFN IMPLICIT NONE C Include Files C Arguments CHARACTER( 2 ), INTENT( IN ) :: COLROW ! columns/rows arg list check INTEGER, INTENT( IN ) :: NSPCS ! Number of species in CGRID REAL, INTENT( OUT ) :: CLOCK ! Wall-clock time (sec) at MPI initialization INTEGER, INTENT( OUT ) :: IERROR ! Error code C Local Variables CHARACTER( 96 ) :: MSG C Set error code to zero. IERROR = 0 NPROCS = 1 MYPE = 0 CLOCK = 0 C Set up horizontal domain and calculate processor-to-subdomain maps C and define vertical layer structure (in module GRID_CONF) IF ( .NOT. GRID_INIT ( NPROCS, MYPE ) ) THEN MSG = '*** Failure defining domain configuration' CALL M3WARN ( 'PAR_INIT', 0, 0, MSG ) IERROR = 1 RETURN END IF C Set up horizontal domain and calculate processor-to-subdomain maps for C process analysis, if required IF ( LIPR .OR. LIRR ) THEN IF ( .NOT. PAGRD_INIT( MYPE ) ) THEN MSG = '*** Failure defining PA domain configuration' CALL M3WARN ( 'PAR_INIT', 0, 0, MSG ) IERROR = 1 RETURN END IF END IF RETURN END ================================================ FILE: CCTM/src/par/par_noop/par_term_noop.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/CCTM/src/par/par_noop/par_term_noop.F,v 1.2 2011/10/21 16:11:26 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% SUBROUTINE PAR_TERM ( CALLER, JDATE, JTIME, BEGTIME ) C ..................................................................... C PURPOSE: Performs no-operation for parallel termination. C REVISION HISTORY: C Original version 10/1998 by Al Bourgeois for parallel implementaion. C Modified 03/29/11 S.Roselle: Replaced I/O API include files with C UTILIO_DEFN C ARGUMENT LIST DESCRIPTION: C IN: C CHARACTER*16 CALLER ! Program name. C INTEGER JDATE ! Current model date, coded YYYYDDD. C INTEGER JTIME ! Current model time, coded HHMMSS. C REAL BEGTIME ! Wall-clock time (sec) at initialization. C ^^^^^^^ not used C OUT: none C LOCAL VARIABLE DESCRIPTION: see below C CALLS: None C........................................................................ USE UTILIO_DEFN IMPLICIT NONE C Include Files: None C Arguments: CHARACTER( 16 ) :: CALLER ! Program name. INTEGER JDATE ! Current model date, coded YYYYDDD. INTEGER JTIME ! Current model time, coded HHMMSS. REAL BEGTIME ! Wall-clock time (sec) at initialization. CHARACTER( 80 ) :: XMSG C........................................................................ C begin function PAR_TERM( CALLER, JDATE, JTIME, BEGTIME ) C Shut down IOAPI IF ( SHUT3() ) THEN XMSG = '>>----> Program completed successfully <----<<' WRITE ( *,'( //5X, A, // )' ) XMSG STOP ELSE XMSG = ' *** FATAL ERROR shutting down Models-3 I/O *** ' WRITE ( *,'( //5X, A, // )' ) XMSG CALL M3EXIT ( 'PAR_TERM', 0, 0, XMSG, 1 ) END IF RETURN END ================================================ FILE: CCTM/src/phot/inline/AERO_PHOTDATA.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! MODULE AERO_PHOTDATA IMPLICIT NONE REAL( 8 ), ALLOCATABLE :: SHELL_MOMENT3( :,: ) ! modal shell third moment conc. REAL( 8 ), ALLOCATABLE :: CORE_MOMENT3 ( :,: ) ! model core third moment conc. REAL, ALLOCATABLE :: BLK_AE_VOL ( :,: ) ! aerosol modal volumes [ m**3/m**3 ] REAL, ALLOCATABLE :: BLK_AE_LSG ( :,: ) ! aerosol modal log of geo. stand. dev REAL, ALLOCATABLE :: BLK_AE_DGN ( :,: ) ! aerosol modal mean geometeric diam. [ m ] REAL, ALLOCATABLE :: AE_DGN_CORE ( :,: ) ! inner core modal mean geometeric diam. [ m ] REAL, ALLOCATABLE :: AE_DGN_SHELL( :,: ) ! modal mean geometeric diam. [ m ] REAL, ALLOCATABLE :: BLK_AE_CONC ( :,:,: ) ! aerosol species concentrations [ ug/m**3] REAL, ALLOCATABLE :: AE_NR_SHELL ( :,:,: ) ! real part of refractive index for outer shell REAL, ALLOCATABLE :: AE_NI_SHELL ( :,:,: ) ! imaginary part of refractive index for outer shell REAL, ALLOCATABLE :: AE_NR_CORE ( :,:,: ) ! real part of refractive index for inner core REAL, ALLOCATABLE :: AE_NI_CORE ( :,:,: ) ! imaginary part of refractive index for inner core REAL, ALLOCATABLE :: BLK_AE_NR ( :,:,: ) ! mean aerosol real part of refractive index REAL, ALLOCATABLE :: BLK_AE_NI ( :,:,: ) ! mean aerosol imaginary part of refractive index REAL, ALLOCATABLE :: AERO_ASYM_FAC ( :,: ) ! aerosol modal averaged asymmetry factor REAL, ALLOCATABLE :: AERO_EXTI_COEF( :,: ) ! aerosol modal averaged extinction coeff., 1/m REAL, ALLOCATABLE :: AERO_SCAT_COEF( :,: ) ! aerosol modal averaged scattering coeff., 1/m REAL, ALLOCATABLE :: AERO_ABSO_COEF( :,: ) ! aerosol modal averaged sbsorption coeff., 1/m REAL, ALLOCATABLE :: AERO_EXTI_550 ( : ) ! aerosol modal averaged extinction coeff. at 550nm, 1/m REAL, ALLOCATABLE :: AERO_ABSO_550 ( : ) ! aerosol modal averaged extinction coeff. at 550nm, 1/m PUBLIC :: AERO_ASYM_FAC, AERO_EXTI_COEF, AERO_SCAT_COEF, AERO_ABSO_COEF, & INIT_AERO_DATA, GET_AERO_DATA INTEGER, ALLOCATABLE, PRIVATE :: REFRACT_INDX_MAP( : ) ! map array for refactive index REAL, ALLOCATABLE, PRIVATE :: VOL_MINS( : ) ! minmum volume permode REAL( 8 ), ALLOCATABLE, PRIVATE :: M3_FACTOR( : ) ! convert mass to portion of 3rd moment LOGICAL, ALLOCATABLE, PRIVATE :: IS_CORE_SPCS( :,: ) ! flag denoting species is in aerosol core INTEGER, PARAMETER, PRIVATE :: NUMB_COR_SPCS = 3 ! number species in core LOGICAL :: CALCULATE_EXT_550 = .FALSE. ! flag to get extinction at 550 nm LOGICAL :: USE_ANGSTROM_INTERP = .FALSE. ! flag to use angstrom exponents for 550 nm INTEGER :: IWL_ANGSTROM_LOWER = 0 ! index for wavelength less than 550 nm INTEGER :: IWL_ANGSTROM_UPPER = 0 ! index for wavelength greater than 550 nm REAL( 8 ) :: ANGSTROM_RATIO = 1.0D0 ! wavelength less than 550 nm divided by 550 nm REAL( 8 ) :: LOG_ANGSTROM_RATIO = 0.0D0 REAL( 8 ) :: ANGSTROM_SPAN = 1.0D0 ! reciprocal of log ((wavelength < 550 nm)/(wavelength > 550 nm) REAL( 8 ) :: ANGSTROM_EXPONENT = 1.0D0 ! Angstrom exponent used to interpolate extinction at 550 nm C *** Species in aerosol core CHARACTER( 16 ), PARAMETER, PRIVATE :: CORE_SPCS( NUMB_COR_SPCS ) = & (/ 'AECI', 'AECJ', 'AECK' /) CONTAINS C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE INIT_AERO_DATA( ) C Allocate and define arrays used to calculate aerosol optical properties USE GRID_CONF, ONLY: NROWS, NCOLS, NLAYS ! horizontal & vertical domain specifications USE UTILIO_DEFN USE AERO_DATA ! aero variable data USE SOA_DEFN ! gas soa data USE AEROMET_DATA ! constants and met data USE CSQY_DATA, ONLY : NWL => NWL_REF, NUM_REFRACTIVE, REFRACTIVE_INDEX, & WAVELENGTH => EFFWL_REF !!! , FIRST_DAY => NEW_START USE WRF_FAST_MIE, ONLY : FAST_MIEAER_MODAL, EFLAG_WRF_FAST_MIE IMPLICIT NONE C Arguments: C Local: CHARACTER( 32 ) :: PNAME = 'INIT_AERO_DATA' CHARACTER( 120 ) :: XMSG INTEGER :: ALLOCSTAT INTEGER :: ESTAT ! status from environment var check INTEGER :: JDATE, JTIME INTEGER :: M, N, SPC, V ! loop counters LOGICAL, SAVE :: INITIALIZED = .FALSE. REAL :: MIE_PARAMETER = 1.0E-3 COMPLEX :: REFINDX = (1.0,0.0) REAL :: EXTAER,SCATAER,GAER REAL :: BSCOEF #ifdef verbose_phot character( 26 ), allocatable :: lambda_list( : ) #endif IF ( INITIALIZED ) THEN RETURN END IF JDATE = 0 JTIME = 0 C...Allocate needed arrays ALLOCATE ( VOL_MINS( N_MODE ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating VOL_MINS' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF ALLOCATE ( BLK_AE_CONC( N_AEROSPC,N_MODE,NLAYS ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating BLK_AE_CONC' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF ALLOCATE ( SHELL_MOMENT3( N_MODE,NLAYS ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating SHELL_MOMENT3' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF ALLOCATE ( BLK_AE_VOL( N_MODE,NLAYS ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating BLK_AE_VOL' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF ALLOCATE ( BLK_AE_LSG( N_MODE,NLAYS ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating BLK_AE_LSG' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF ALLOCATE ( BLK_AE_DGN( N_MODE,NLAYS ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating BLK_AE_DGN' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF ALLOCATE ( AE_DGN_SHELL( N_MODE,NLAYS ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating AE_DGN_SHELL' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF ALLOCATE ( AE_NR_SHELL( N_MODE,NLAYS,NWL ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating AE_NR_SHELL' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF ALLOCATE ( AE_NI_SHELL( N_MODE,NLAYS,NWL ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating AE_NI_SHELL' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF ALLOCATE ( AERO_ASYM_FAC( NLAYS,NWL ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating AERO_ASYM_FAC' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF ALLOCATE ( AERO_EXTI_COEF( NLAYS,NWL ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating AERO_EXTI_FAC' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF ALLOCATE ( AERO_SCAT_COEF( NLAYS,NWL ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating AERO_EXTI_FAC' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF ALLOCATE ( AERO_ABSO_COEF( NLAYS,NWL ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating AERO_ABSO_FAC' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF AERO_SCAT_COEF = 0.0 AERO_EXTI_COEF = 0.0 AERO_ASYM_FAC = 0.0 AERO_ABSO_COEF = 0.0 IF( CALCULATE_EXT_550 )THEN ALLOCATE ( AERO_EXTI_550( NLAYS ), & AERO_ABSO_550( NLAYS ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating AERO_EXTI_550' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF AERO_EXTI_550 = 0.0 AERO_ABSO_550 = 0.0 END IF CALL MAP_AERO() ALLOCATE( M3_FACTOR( N_AEROSPC ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating M3_FACTOR' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF ALLOCATE( REFRACT_INDX_MAP( N_AEROSPC ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating REFRACT_INDX_MAP' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF ! IF( CORE_SHELL )THEN ALLOCATE( IS_CORE_SPCS( N_AEROSPC,N_MODE ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating IS_CORE_SPCS' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF IS_CORE_SPCS = .FALSE. ALLOCATE ( CORE_MOMENT3( N_MODE,NLAYS ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating CORE_MOMENT3' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF ALLOCATE ( AE_DGN_CORE( N_MODE,NLAYS ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating AE_DGN_CORE' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF ALLOCATE ( AE_NR_CORE( N_MODE,NLAYS,NWL ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating AE_NR_CORE' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF ALLOCATE ( AE_NI_CORE( N_MODE,NLAYS,NWL ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating AE_NI_CORE' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF ! END IF C *** Create map for refactive index for each species #ifdef verbose_phot allocate( lambda_list( nwl ) ) do v = 1, nwl write( lambda_list( v ), 5000)int(wavelength( v )), & int(wavelength( v )) end do write( logdev, 5001)(lambda_list( v ), v = 1, nwl) #endif WRITE(LOGDEV,*) CALL M3MESG('METHOD FOR AEROSOL OPTICAL PROPERTIES') xmsg = 'METHOD FOR AEROSOL OPTICAL PROPERTIES' IF ( .NOT. CORE_SHELL ) THEN XMSG = 'CORE-SHELL mixing model option is set to off so' WRITE(LOGDEV,'(A)')TRIM( XMSG ) ELSE XMSG = 'CORE-SHELL mixing model used when aerosol mode has significant black carbon' WRITE(LOGDEV,'(A)')TRIM( XMSG ) XMSG = 'When aerosol mode does not have significant black carbon,' WRITE(LOGDEV,'(A)')TRIM( XMSG ) END IF SELECT CASE ( AEROSOL_OPTICS ) CASE( 1 ) XMSG = 'VOLUME MIXING model and Tabular Mie Method used' WRITE(LOGDEV,'(A)')TRIM( XMSG ) CALL FAST_MIEAER_MODAL( MIE_PARAMETER,REFINDX,EXTAER,SCATAER,GAER,BSCOEF ) IF ( EFLAG_WRF_FAST_MIE ) THEN XMSG = 'Above Failure Initializing Tabular Mie Method for aerosol optics' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF CASE( 2 ) XMSG = 'VOLUME MIXING model and Mie calculation used' WRITE(LOGDEV,'(A)')TRIM( XMSG ) CASE( 3 ) XMSG = 'VOLUME MIXING model and FAST_OPTICS used' WRITE(LOGDEV,'(A)')TRIM( XMSG ) XMSG = '-Approximations to Mie Theory based on Mie paramter and refractive index ' WRITE(LOGDEV,'(A)')TRIM( XMSG ) END SELECT WRITE(LOGDEV,*) FORALL ( SPC = 1:N_MODE ) VOL_MINS( SPC ) = PI6 * AEROMODE( SPC )%MIN_M3CONC DO SPC = 1, N_AEROSPC M3_FACTOR( SPC ) = REAL( 1.0E-9 * F6DPI / AEROSPC( SPC )%DENSITY, 8 ) DO M = 1, NUM_REFRACTIVE IF ( AEROSPC( SPC )%OPTIC_SURR .EQ. REFRACTIVE_INDEX( M )%NAME ) THEN REFRACT_INDX_MAP( SPC ) = M DO N = 1, N_MODE IF ( CORE_SHELL ) THEN DO V = 1, NUMB_COR_SPCS IF ( AEROSPC( SPC )%NAME( N ) .EQ. CORE_SPCS( V ) ) THEN IS_CORE_SPCS( SPC, N ) = .TRUE. END IF END DO END IF #ifdef verbose_phot if ( aero_missing(spc,n) ) cycle write( logdev, 5002)trim( aerospc( spc )%name( n ) ), & trim( refractive_index( m )%name ),is_core_spcs( spc,n ), & (refractive_index( m )%real_part( n,v ), & refractive_index( m )%imag_part( n,v ), v = 1, nwl) #endif END DO EXIT END IF END DO IF ( REFRACT_INDX_MAP( SPC ) .LT. 1 ) THEN DO M = 1, N_MODE IF ( aero_missing(spc,n) ) CYCLE XMSG = 'Species ' // TRIM( AEROSPC( SPC )%NAME( M ) ) & // ' does not use defined refractive index.' CALL M3EXIT ( PNAME, 0, 0, XMSG, XSTAT3 ) END DO END IF END DO IF( CALCULATE_EXT_550 )THEN ! locate 550 nm in wavebands and set-up interpolation IF ( WAVELENGTH( 1 ) .GE. 550.0 ) THEN IWL_ANGSTROM_LOWER = 1 ELSE IF ( WAVELENGTH( NWL ) .LE. 550.0 ) THEN IWL_ANGSTROM_LOWER = NWL ELSE LOOP_FINDW: DO V = 1, NWL - 1 IF ( WAVELENGTH( V ) .LT. 550.0 .AND. WAVELENGTH( V+1 ) .GT. 550.0 ) THEN IWL_ANGSTROM_LOWER = V IWL_ANGSTROM_UPPER = V+1 ANGSTROM_SPAN = REAL( 1.0 / LOG( WAVELENGTH( V ) / WAVELENGTH( V+1 ) ), 8 ) ANGSTROM_RATIO = REAL( (WAVELENGTH( V ) / 550.0), 8) ! ANGSTROM_RATIO = REAL( (WAVELENGTH( V ) / WAVELENGTH( V+1 )), 8) LOG_ANGSTROM_RATIO = LOG( ANGSTROM_RATIO ) ! WRITE(LOGDEV,'(A,2(F7.3,1X))')'Angstrom Interpolation Wavelengths: ', ! & WAVELENGTH( IWL_ANGSTROM_LOWER ), WAVELENGTH( IWL_ANGSTROM_UPPER ) ! WRITE(LOGDEV,'(A,2(ES12.4,1X))')'Angstrom Span, Ratio: ', ! & ANGSTROM_SPAN, ANGSTROM_RATIO USE_ANGSTROM_INTERP = .TRUE. EXIT LOOP_FINDW ELSE IF ( WAVELENGTH( V ) .EQ. 550.0 ) THEN IWL_ANGSTROM_LOWER = V EXIT LOOP_FINDW END IF END DO LOOP_FINDW END IF IF( .NOT. USE_ANGSTROM_INTERP )THEN WRITE(LOGDEV,'(A,2(F7.3,1X))')'No Angstrom Inpolation Used 550 Extinction used at ', & WAVELENGTH( IWL_ANGSTROM_LOWER ) END IF END IF RETURN 5000 FORMAT(2X,'NR_',I3.3,7X,'NI_',I3.3,5X) 5002 FORMAT(2(A16,1X),L12,1X,200(ES12.4,1X)) 5001 FORMAT(' AE_SPC ',1X,' REFRACT_INDX ',1X,'PART_OF_CORE',1X,200(A26)) END SUBROUTINE INIT_AERO_DATA C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE GET_AERO_DATA ( COL, ROW, NLAYS, DENS, CGRID ) C----------------------------------------------------------------------- C FUNCTION: This subroutine calculates the volume, the natural logs of C geometric standard of all 3 modes. It assumes that aerosols have inner C core with an outer shell to compute a core and total diameter per mode. C The code also calculates the average modal aerosol refractive indices C for the inner core and outer shell. C C Internally mixed wet aerosols are assumed. C C NOTE C 2nd moment concentrations (M2) are passed into GETPAR in the C CBLK array. The GETPAR calculations implicitly assume C that the input value of M2 is up to date C If, for example, the input M2 value was calculated C for a "dry" aerosol and the Wet_Moments_FLAG is .TRUE., GETPAR would C incorrectly adjust the M2 concentrations! C C KEY SUBROUTINES/FUNCTIONS CALLED: EXTRACT_AERO, EXTRACT_SOA, GETPAR C AERO_OPTICAL2, AERO_OPTICAL_CS C REVISION HISTORY C 06/13/13 B.Hutzell - initial version created for aero_photdata.F C from version 5.01 C 05/2016 H. Pye and B. Murphy - updated treatment of aerosol C moments C 05/23/16 D.Wong - replaced RRTMG_AERO_OPTICAL_UTIL_MODULE with C CMAQ_RRTMG_AERO_OPTICAL_UTIL_MODULE to avoid C duplication of the same module name on WRF side C of the two-way model C C REFERENCES: C Horvath, H., Size segrated light absorption coefficient for C the atmospheric aerosol, Atmos. Environ., Vol. 29, No. 8, C pp 875-883, 1995. C C Beyer, K.D. A.R. Ravishankara, and E. R. Lovejoy, Meanurements C of H2SO4/H2O and H2SO4/HNO3/H2O solutions, J. Geophys. Res. Vol. C 101, D9, pp 14519-14524, 1996. C C----------------------------------------------------------------------- ! USE GRID_CONF ! horizontal & vertical domain specifications USE RXNS_DATA USE CGRID_SPCS ! CGRID mechanism species USE UTILIO_DEFN USE AERO_DATA ! aero variable data USE SOA_DEFN ! gas soa data USE AEROMET_DATA ! constants and met data USE CSQY_DATA, ONLY : NWL => NWL_REF, NUM_REFRACTIVE, REFRACTIVE_INDEX, & WAVELENGTH => EFFWL_REF USE CMAQ_RRTMG_AERO_OPTICAL_UTIL_MODULE, ONLY : AERO_OPTICAL2, AERO_OPTICAL_CS USE WRF_FAST_MIE, ONLY : AERO_OPTICS_TABULAR IMPLICIT NONE C Includes: C Arguments: INTEGER, INTENT( IN ) :: COL ! specified column index INTEGER, INTENT( IN ) :: ROW ! specified row index INTEGER, INTENT( IN ) :: NLAYS ! # of vertical layers REAL, INTENT( IN ) :: DENS( :,:,: ) REAL, POINTER :: CGRID( :,:,:,: ) C Parameters: REAL( 8 ), PARAMETER :: NEGLECT_FRAC = 1.0D-9 ! skip if below this volume fraction REAL( 8 ), PARAMETER :: ONE_THIRD = 1.0D0/3.0D0 REAL, PARAMETER :: ONE_OVER_PI = 1.0 / PI C Local saved variables: CHARACTER( 16 ), SAVE :: AE_VRSN ! Aerosol version name CHARACTER( 32 ), SAVE :: PNAME = 'GET_AERO_DATA' ! routine name C Local variables: CHARACTER( 16 ) :: VNAME ! varable name CHARACTER( 96 ) :: XMSG = ' ' REAL( 8 ) :: FACTOR REAL( 8 ) :: FRACTION_CORE REAL( 8 ) :: FRACTION_SHELL REAL( 8 ) :: MOMENT3_PORTION REAL( 8 ) :: SUMRI_R_SHELL REAL( 8 ) :: SUMRI_I_SHELL REAL( 8 ) :: SUMRI_R_CORE REAL( 8 ) :: SUMRI_I_CORE REAL( 8 ) :: SUMRI_R REAL( 8 ) :: SUMRI_I REAL DGN_CORE ! geometric mean diameters of aerosol core REAL VOL ! Total Modal aerosol volume REAL VOL_CORE ! Modal aerosol volume of aerosol core REAL DGN_SHELL ! geometric mean diameters of aerosol core REAL VOL_SHELL ! Modal aerosol volume of aerosol core REAL XXLSG ! geometric standard deviation REAL MIE_PARAMETER ! Modal Mie parameter C*** variables for calculating modal averaged properties per layer and lambda COMPLEX NR_SHELL COMPLEX NI_SHELL COMPLEX NR_CORE COMPLEX NI_CORE REAL BEXT_MODE ! total aerosol extinction coefficient [ 1/m ] REAL BSCAT_MODE ! total aerosol scattering coefficient [ 1/m ] REAL GBAR_MODE ! total aerosol asymmetry factor REAL BEXT ! total aerosol extinction coefficient [ 1/m ] REAL VFAC, BSC ! unit correction factors REAL BSCAT ! total aerosol scattering coefficient [ 1/m ] REAL G_BAR ! total aerosol asymmetry factor REAL INV_LAMBDA ! reciprocal of wavelength [ 1/m ] REAL LAMDA_UM ! wavelength [ um ] INTEGER L, V, N, M ! loop counters INTEGER SPC ! species loop counter INTEGER MODE ! aerosol mode loop counter LOGICAL SUCCESS LOGICAL TROUBLE LOGICAL, SAVE :: FIRSTCALL = .TRUE. #ifdef verbose_phot character( 26 ), allocatable :: lambda_list( : ) #endif C----------------------------------------------------------------------- IF ( N_AE_SPC .LE. 0 ) RETURN cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C Put the grid cell physical data in the block arrays cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C *** initialize internal and external dimensions of aerosols CORE_MOMENT3 = 0.0D+0 SHELL_MOMENT3 = 0.0D+0 BLK_AE_VOL = 0.0 BLK_AE_CONC = 0.0 AE_DGN_SHELL = 0.0 AE_DGN_CORE = 0.0 SUCCESS = .TRUE. LAY_LOOP1: DO L = 1, NLAYS C *** extract grid cell concentrations of aero species from CGRID into aerospc_conc C *** in aero_data module C Also converts dry surface area to wet second moment #ifdef sens CALL EXTRACT_AERO ( CGRID( COL,ROW,L,: ), .TRUE., CGRID( COL,ROW,:,: ), .FALSE. ) #else CALL EXTRACT_AERO ( CGRID( COL,ROW,L,: ), .TRUE. ) #endif C *** extract soa concentrations from CGRID AIRDENS = DENS ( COL,ROW,L ) #ifdef sens CALL EXTRACT_SOA ( CGRID( COL,ROW,L,: ), CGRID( COL,ROW,:,: ), .FALSE. ) #else CALL EXTRACT_SOA ( CGRID( COL,ROW,L,: ) ) #endif C *** Calculate geometric mean diameters and standard deviations of "wet" size distribution CALL GETPAR ( .FALSE. ) #ifdef verbose_phot if(col .eq. 1 .and. row .eq. 1 .and. l .eq. 1 )then do m = 1, n_mode write(logdev, 4999)l, m, aeromode_diam( m ),pi6*moment3_conc( m ), & aeromode_lnsg( m ) 4999 format('lay = ',i3,' mode = ',i3,' diam = ',es12.4,' pi6*moment3 = ', & es12.4,' ae_lsg = ', es12.4) end do end if #endif DIME_LOOP: DO MODE = 1, N_MODE FRACTION_CORE = 0.0D+0 FRACTION_SHELL = 0.0D+0 SPC_LOOP1: DO SPC = 1, N_AEROSPC IF ( AEROSPC( SPC )%TRACER ) CYCLE ! skip tracer species IF ( AERO_MISSING( SPC,MODE ) ) CYCLE ! skip undefined species BLK_AE_CONC( SPC,MODE,L ) = AEROSPC_CONC( SPC,MODE ) MOMENT3_PORTION = M3_FACTOR( SPC ) * REAL( AEROSPC_CONC( SPC,MODE ), 8 ) IF ( IS_CORE_SPCS( SPC,MODE ) ) THEN CORE_MOMENT3( MODE,L ) = CORE_MOMENT3( MODE,L ) + MOMENT3_PORTION #ifdef verbose_phot if ( col .eq. 1 .and. row .eq. 1 .and. l .eq. 1 ) then write(logdev,5007)aerospc( spc )%name( mode ),moment3_portion, & core_moment3( mode, l ) 5007 format(a16,1x,'moment3_portion = ',es12.4,1x,'moment3_core = ',es12.4 ) end if #endif ELSE SHELL_MOMENT3( MODE,L ) = SHELL_MOMENT3( MODE,L ) + MOMENT3_PORTION #ifdef verbose_phot if ( col .eq. 1 .and. row .eq. 1 .and. l .eq. 1 ) then write(logdev,5008)aerospc( spc )%name( mode ),moment3_portion, & shell_moment3( mode, l ) 5008 format(a16,1x,'moment3_portion = ',es12.4,1x,'moment3_shell = ',es12.4 ) end if #endif END IF END DO SPC_LOOP1 FRACTION_CORE = CORE_MOMENT3( MODE,L ) / REAL( MOMENT3_CONC( MODE ), 8 ) FRACTION_SHELL = SHELL_MOMENT3( MODE,L ) / REAL( MOMENT3_CONC( MODE ), 8 ) BLK_AE_LSG ( MODE,L ) = AEROMODE_LNSG( MODE ) AE_DGN_SHELL( MODE,L ) = AEROMODE_DIAM( MODE ) IF ( FRACTION_CORE .LT. NEGLECT_FRAC ) THEN AE_DGN_CORE( MODE,L ) = 0.0 ELSE FACTOR = FRACTION_CORE ** ONE_THIRD AE_DGN_CORE( MODE,L ) = REAL( FACTOR * AEROMODE_DIAM( MODE ) ) END IF IF ( MOMENT3_CONC( MODE ) .GT. AEROMODE( MODE )%MIN_M3CONC ) THEN BLK_AE_VOL( MODE,L ) = PI6 * MOMENT3_CONC( MODE ) END IF #ifdef verbose_phot if ( col .eq. 1 .and. row .eq. 1 .and. l .eq. 1 ) then write(logdev, 5006)l, mode, ae_dgn_core( mode,l ), ae_dgn_shell( mode,l ), & blk_ae_vol( mode,l ),blk_ae_lsg( mode,l) 5006 format('lay = ',i3,' mode = ',i3,' dgn_core = ', es12.4, ' dgn_shell = ', & es12.4,' ae_vol = ', es12.4,' ae_lsg = ', es12.4) end if #endif END DO DIME_LOOP END DO LAY_LOOP1 C *** Initialize refractive indices then compute AE_NR_SHELL = 0.0 AE_NI_SHELL = 0.0 AE_NR_CORE = 0.0 AE_NI_CORE = 0.0 LOOP_WAVE: DO V = 1, NWL LAMDA_UM = 1.0E-3 * WAVELENGTH( V ) ! convert to micro-meters INV_LAMBDA = 1.0E9 / WAVELENGTH( V ) LAY_LOOP2: DO L = 1, NLAYS REFRAC_LOOP: DO MODE = 1, N_MODE SUMRI_R_SHELL = 0.0D+0 SUMRI_I_SHELL = 0.0D+0 SUMRI_R_CORE = 0.0D+0 SUMRI_I_CORE = 0.0D+0 SPC_LOOP2: DO SPC = 1, N_AEROSPC IF ( AEROSPC( SPC )%TRACER ) CYCLE ! neglect tracer species IF ( AERO_MISSING( SPC,MODE ) ) CYCLE ! neglect undefined species M = REFRACT_INDX_MAP( SPC ) MOMENT3_PORTION = M3_FACTOR( SPC ) * REAL( BLK_AE_CONC( SPC,MODE,L ), 8) IF ( IS_CORE_SPCS( SPC, MODE ) ) THEN SUMRI_R_CORE = SUMRI_R_CORE + MOMENT3_PORTION & * REAL( REFRACTIVE_INDEX( M )%REAL_PART( MODE,V ), 8) SUMRI_I_CORE = SUMRI_I_CORE + MOMENT3_PORTION & * REAL( REFRACTIVE_INDEX( M )%IMAG_PART( MODE,V ), 8) ELSE SUMRI_R_SHELL = SUMRI_R_SHELL + MOMENT3_PORTION & * REAL( REFRACTIVE_INDEX( M )%REAL_PART( MODE,V ), 8) SUMRI_I_SHELL = SUMRI_I_SHELL + MOMENT3_PORTION & * REAL( REFRACTIVE_INDEX( M )%IMAG_PART( MODE,V ), 8) END IF END DO SPC_LOOP2 C *** Update output array values IF ( CORE_MOMENT3( MODE,L ) .GT. 0.0D0 ) THEN AE_NR_CORE ( MODE,L,V ) = REAL( SUMRI_R_CORE / CORE_MOMENT3( MODE,L ) ) AE_NI_CORE ( MODE,L,V ) = REAL( SUMRI_I_CORE / CORE_MOMENT3( MODE,L ) ) END IF IF ( SHELL_MOMENT3( MODE,L ) .GT. 0.0D0 ) THEN AE_NR_SHELL ( MODE,L,V ) = REAL( SUMRI_R_SHELL / SHELL_MOMENT3( MODE,L ) ) AE_NI_SHELL ( MODE,L,V ) = REAL( SUMRI_I_SHELL / SHELL_MOMENT3( MODE,L ) ) END IF END DO REFRAC_LOOP C***loop over mode again for mean modal extinction and scattering properties G_BAR = 0.0 BEXT = 0.0 BSCAT = 0.0 #ifdef verbose_phot_extra if ( L .eq. 1 .and. V .eq. 1 ) then write(LOGDEV, 9501)L, wavelength( V ), ae_dgn_core( m,l ), ae_dgn_shell( m, l ), & ae_nr_shell( m,L,V ), ae_ni_shell( m,L,V ), ae_nr_core( m,L,V ), & ae_ni_core( m,L,V ) 9501 format('layer = ',i2,' lambda = ',es12.4,' dgn_core = ',es12.4,' dgn_shell = ', & es12.4,' refract_shell(nr,ni) = ', 2(es12.4,1x),' refract_core = ', & 2(es12.4,1x)) end if #endif OPTICS_LOOP: DO MODE = 1, N_MODE TROUBLE = .FALSE. DGN_CORE = AE_DGN_CORE( MODE,L ) DGN_SHELL = AE_DGN_SHELL( MODE,L ) VOL = BLK_AE_VOL( MODE,L ) NR_SHELL = CMPLX( AE_NR_SHELL( MODE,L,V ), AE_NI_SHELL( MODE,L,V ) ) IF ( AE_NR_SHELL( MODE,L,V ) .LE. 0.0 ) SUCCESS = .FALSE. IF ( AE_NI_SHELL( MODE,L,V ) .LE. 0.0 ) SUCCESS = .FALSE. XXLSG = EXP( BLK_AE_LSG( MODE,L ) ) C***calculate the extinction and scattering coefficients in [ 1 / m ] and the asymmetry C*** factor for aerosols. IF ( DGN_CORE .GT. 0.0 .AND. DGN_CORE / DGN_SHELL .LT. 0.999 ) THEN VOL_CORE = PI6 * REAL( CORE_MOMENT3( MODE,L ), 4 ) VOL_SHELL = PI6 * REAL( SHELL_MOMENT3( MODE,L ), 4 ) NR_CORE = CMPLX( AE_NR_CORE( MODE,L,V ), AE_NI_CORE( MODE,L,V ) ) IF ( AE_NR_CORE( MODE,L,V ) .LE. 0.0 ) SUCCESS = .FALSE. IF ( AE_NI_CORE( MODE,L,V ) .LE. 0.0 ) SUCCESS = .FALSE. IF ( VOL_SHELL .LE. 0.0 ) THEN SUCCESS = .FALSE. ! WRITE(6,*)TRIM(PNAME),': VOL_SHELL(',MODE,') = ',VOL_SHELL END IF IF ( VOL_CORE .LE. 0.0 ) THEN SUCCESS = .FALSE. ! WRITE(6,*)TRIM(PNAME),': VOL_CORE(',MODE,') = ',VOL_CORE END IF IF ( DGN_SHELL .LE. 0.0 ) SUCCESS = .FALSE. C *** Core-Shell case for optics IF ( SUCCESS ) CALL AERO_OPTICAL_CS( LAMDA_UM, NR_CORE, NR_SHELL, & VOL_CORE, VOL_SHELL, DGN_CORE, & DGN_SHELL, XXLSG, & BEXT_MODE, BSCAT_MODE, GBAR_MODE, SUCCESS ) VFAC = 1.0 ! correction factor IF ( .NOT. SUCCESS ) THEN WRITE( LOGDEV,9503 ) L, MODE, WAVELENGTH( V ), & AE_DGN_CORE( MODE,L ), AE_DGN_SHELL( MODE,L ), & AE_NR_SHELL( MODE,L,V ), AE_NI_SHELL( MODE,L,V ), & AE_NR_CORE( MODE,L,V ), AE_NI_CORE( MODE,L,V ), & BLK_AE_LSG( MODE,L ) XMSG = 'FAILURE IN AERO_OPTICAL_CS: core with shell case ' CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT1 ) END IF C***sum to get total extinction and scattering C*** and contribution to the overall asymmetry factor BEXT = BEXT + BEXT_MODE BSCAT = BSCAT + BSCAT_MODE G_BAR = G_BAR + BSCAT_MODE * GBAR_MODE ELSE IF ( VOL .GT. 0.0 ) THEN !*** FSB Internal Volume mixture case for optics SELECT CASE( AEROSOL_OPTICS ) CASE( 1 ) CALL AERO_OPTICS_TABULAR( MODE,V,NR_SHELL, VOL, DGN_SHELL, & XXLSG, BEXT_MODE, BSCAT_MODE, GBAR_MODE) VFAC = 1.0 ! correction factor CASE( 2 ) IF ( SUCCESS ) CALL AERO_OPTICAL2( LAMDA_UM, NR_SHELL, VOL, & DGN_SHELL, XXLSG, & BEXT_MODE, BSCAT_MODE, GBAR_MODE, SUCCESS ) VFAC = 1.0 ! correction factor CASE DEFAULT ! AEROSOL_OPTICS equals 3 ! use old fast optics method IF ( SUCCESS ) CALL FAST_OPTICS( AE_NR_SHELL( MODE, L, V ), & AE_NI_SHELL( MODE, L, V ), & WAVELENGTH( V ), DGN_SHELL, XXLSG, & BEXT_MODE, BSCAT_MODE, GBAR_MODE ) VFAC = VOL * INV_LAMBDA ! updated fast optics method; has problems from eposidically infinite values of aerosol optical depth ! MIE_PARAMETER = PI * DGN_SHELL * INV_LAMBDA ! & * EXP( 3.0 * BLK_AE_LSG( MODE, L ) * BLK_AE_LSG( MODE, L ) ) ! IF( SUCCESS ) CALL FASTER_OPTICS( AE_NR_SHELL( MODE, L, V ), ! & AE_NI_SHELL( MODE, L, V ), ! & MIE_PARAMETER, BLK_AE_LSG( MODE, L ), ! & BEXT_MODE, BSCAT_MODE, GBAR_MODE ) ! VFAC = VOL * INV_LAMBDA END SELECT IF ( BEXT_MODE .LT. 0.0 .OR. BEXT_MODE .LT. BSCAT_MODE .OR. BSCAT_MODE .LT. 0.0 ) THEN TROUBLE = .TRUE. END IF IF ( BEXT_MODE .NE. BEXT_MODE .OR. BSCAT_MODE .NE. BSCAT_MODE ) THEN TROUBLE = .TRUE. END IF IF ( GBAR_MODE .NE. GBAR_MODE .OR. ABS( GBAR_MODE ) .GT. 0.9999999 ) THEN TROUBLE = .TRUE. END IF 9402 format('layer = ',i2,' lambda = ',es12.4,' dgn_core = ',es12.4,' dgn_shell = ', & es12.4,' ae_bext = ',es12.4,' ae_bscat = ',es12.4,' ae_gbar = ',es12.4, & ' refract_shell(nr,ni) = ', 2(es12.4,1x),' refract_core = ', 2(es12.4,1x)) IF ( TROUBLE ) THEN write(logdev, 9402)l, wavelength( V ), dgn_core, dgn_shell, bext_mode, & bscat_mode, gbar_mode, ae_nr_shell( mode, l, v ), ae_ni_shell( mode, l, v ), & ae_nr_core( mode, l, v ), ae_ni_core( mode, l, v ) ! write(6, 9402)l, wavelength( V ), dgn_core, dgn_shell, bext_mode, ! & bscat_mode, gbar_mode, ae_nr_shell( mode, l, v ), ae_ni_shell( mode, l, v ), ! & ae_nr_core( mode, l, v ), ae_ni_core( mode, l, v ) WRITE( LOGDEV, 9504 ) L, MODE, WAVELENGTH( V ), & AE_DGN_SHELL( MODE,L ), AE_NR_SHELL( MODE,L,V ), & AE_NI_SHELL( MODE,L,V ), BLK_AE_VOL( MODE,L ), & BLK_AE_LSG( MODE,L ) XMSG = 'FAILURE IN AERO_OPTICAL2: shell only case ' CALL M3WARN( PNAME, 0, 0, XMSG ) END IF IF ( .NOT. SUCCESS ) THEN write(logdev, 9402)l, wavelength( V ), dgn_core, dgn_shell, bext_mode, & bscat_mode, gbar_mode, ae_nr_shell( mode, l, v ), ae_ni_shell( mode, l, v ), & ae_nr_core( mode, l, v ), ae_ni_core( mode, l, v ) ! write(6, 9402)l, wavelength( V ), dgn_core, dgn_shell, bext_mode, ! & bscat_mode, gbar_mode, ae_nr_shell( mode, l, v ), ae_ni_shell( mode, l, v ), ! & ae_nr_core( mode, l, v ), ae_ni_core( mode, l, v ) WRITE( LOGDEV, 9504) L, MODE, WAVELENGTH( V ), & AE_DGN_SHELL( MODE,L ), AE_NR_SHELL( MODE,L,V ), & AE_NI_SHELL( MODE,L,V ), BLK_AE_VOL( MODE,L ), & BLK_AE_LSG( MODE,L ) XMSG = 'FAILURE IN AERO_OPTICAL2: shell only case ' CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT1 ) END IF C***sum to get total extinction and scattering C*** and contribution to the overall asymmetry factor BEXT = BEXT + VFAC * BEXT_MODE BSC = VFAC * BSCAT_MODE BSCAT = BSCAT + BSC G_BAR = G_BAR + BSC * GBAR_MODE END IF END DO OPTICS_LOOP AERO_SCAT_COEF( L,V ) = MAX( BSCAT,1.0E-30 ) AERO_EXTI_COEF( L,V ) = MAX( BEXT, 1.0E-30 ) AERO_ABSO_COEF( L,V ) = MAX( (BEXT-BSCAT), 1.0E-30 ) AERO_ASYM_FAC ( L,V ) = G_BAR / MAX( BSCAT, 1.0E-30 ) #ifdef verbose_phot_extra if( l .eq. 1 .and. v .eq. 1)then write(logdev, 9502)l, wavelength( V ), dgn_core, dgn_shell, bext_mode, & bscat_mode, gbar_mode, ae_nr_shell( l, mode, v ), ae_ni_shell( v, mode, v ), & ae_nr_core( l, mode, iv ), ae_ni_core( l, mode, v ) 9502 format('layer = ',i2,' lambda = ',es12.4,' dgn_core = ',es12.4,' dgn_shell = ', & es12.4,' ae_bext = ',es12.4,' ae_bscat = ',es12.4,' ae_gbar = ',es12.4, & ' refract_shell(nr,ni) = ', 2(es12.4,1x),' refract_core = ', 2(es12.4,1x)) end if #endif END DO LAY_LOOP2 END DO LOOP_WAVE IF( CALCULATE_EXT_550 )THEN ! IF( USE_ANGSTROM_INTERP .AND. FIRSTCALL )THEN ! WRITE(LOGDEV,'(A,2(F7.3,1X))')'Angstrom Interpolation Wavelengths: ', ! & WAVELENGTH( IWL_ANGSTROM_LOWER ), WAVELENGTH( IWL_ANGSTROM_UPPER ) ! WRITE(LOGDEV,'(A,2(ES12.4,1X))')'Angstrom Span, Ratio: ', ! & ANGSTROM_SPAN, ANGSTROM_RATIO ! END IF LOOP_550NM: DO L = 1, NLAYS IF( USE_ANGSTROM_INTERP )THEN ! ANGSTROM_EXPONENT = - REAL( LOG( AERO_EXTI_COEF( L,IWL_ANGSTROM_LOWER ) ! & / AERO_EXTI_COEF( L,IWL_ANGSTROM_UPPER ) ), 8 ) ANGSTROM_EXPONENT = - REAL( LOG( MAX( AERO_EXTI_COEF( L,IWL_ANGSTROM_LOWER ),1.0E-30 ) & / MAX( AERO_EXTI_COEF( L,IWL_ANGSTROM_UPPER ),1.0E-30 ) ), 8 ) & * ANGSTROM_SPAN AERO_EXTI_550( L ) = AERO_EXTI_COEF( L,IWL_ANGSTROM_LOWER ) & * REAL( ANGSTROM_RATIO ** ANGSTROM_EXPONENT, 4 ) ANGSTROM_EXPONENT = - REAL( LOG( MAX( AERO_SCAT_COEF( L,IWL_ANGSTROM_LOWER ),1.0E-30 ) & / MAX( AERO_SCAT_COEF( L,IWL_ANGSTROM_UPPER ),1.0E-30 ) ), 8 ) & * ANGSTROM_SPAN AERO_ABSO_550( L ) = MAX( AERO_EXTI_550( L ) & - AERO_SCAT_COEF( L,IWL_ANGSTROM_LOWER ) & * REAL( ANGSTROM_RATIO ** ANGSTROM_EXPONENT, 4 ), 0.0 ) ! IF ( FIRSTCALL ) THEN ! WRITE( LOGDEV,'(I3,A,7(ES12.4,1X))')L, ! & ' AERO_EXT_LOWER,AERO_EXT_UPPER,EXPONENT,EXPONENT*LOG(RATIO),EXT_550_1,EXT_550_2: ', ! & AERO_EXTI_COEF( L,IWL_ANGSTROM_LOWER ), AERO_EXTI_COEF( L,IWL_ANGSTROM_UPPER ), ! & ANGSTROM_EXPONENT,REAL( ANGSTROM_EXPONENT * LOG_ANGSTROM_RATIO,4),AERO_EXTI_550( L ), ! & AERO_EXTI_COEF( L,IWL_ANGSTROM_LOWER)*ANGSTROM_RATIO ** ANGSTROM_EXPONENT ! END IF ELSE AERO_EXTI_550( L ) = AERO_EXTI_COEF( L,IWL_ANGSTROM_LOWER ) END IF END DO LOOP_550NM ! IF ( FIRSTCALL ) FIRSTCALL = .FALSE. END IF #ifdef verbose_phot if ( col .eq. 1 .and. row .eq. 1 ) then l = 1 v = 1 do mode = 1, n_mode write(logdev, 5005)l, mode, v, ae_nr_core ( mode, l, v ), ae_ni_core ( mode, l, v ), & ae_nr_shell ( mode, l, v ), ae_ni_shell ( mode, l, v ) 5005 format('lay = ',i3,' mode = ',i3,' wlv index = ',i3,' ae_core(nr,ni) = ', & 2(es12.4,1x), ' ae_shell(nr,ni) = ', 2(es12.4,1x)) end do end if #endif 9503 FORMAT('LAYER = ',I3,' MODE = ',I3,' LAMBDA(nm) = ',ES12.4,' DGN_CORE(m) = ',ES12.4, & ' DGN_SHELL(m) = ', ES12.4 / ' REFRACT_IDX_SHELL(NR,NI) = ', 2(ES12.4,1X), & ' REFRACT_IDX_CORE(NR,NI) = ', 2(ES12.4,1X) / ' LN(GEO.STD.DEV.) = ', & ES12.4) 9504 FORMAT('LAYER = ',I3,' MODE = ',I3,' LAMBDA(nm) = ',ES12.4,' DGN(m) = ',ES12.4, & ' REFRACT_IDX(NR,NI) = ', 2(ES12.4,1X) / ' VOL.DENS. = ', ES12.4, & ' LN(GEO.STD.DEV.) = ', ES12.4) RETURN END SUBROUTINE GET_AERO_DATA C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE FASTER_OPTICS ( NR, NI, ALPHV, XLNSIG, BETA_EXT, BETA_SCAT, G ) C----------------------------------------------------------------------- C A parameterization of the aerosol extinction and scattering code C Coded by Dr. Francis S. Binkowski C CEMP, The Institute for the Environment C The University of North Carolina at Chapel Hill C email: frank_binkowski@unc.edu C Code dates. Began February 25, 2005, current March 18, 2005 C modified by FSB May 10, 2005 to calculate asymmetry factor by the C semi-empirical method of Hanna and Mathur. Note that C the normalized scattering coefficient (non-dimensional) is C interpreted as an average of scattering efficiency over the C size distribution C Modified 05/25/2005 to ensure that if ni = 0.0, that C beta_scat = beta_ext. C Modified 03/17/2008 to ensure match with reference calculation for C all cases of sigma_g. C Modified 10/25/2009 to be consistent with research version of code. C The modifications include better representation of the C asymmetry factor. C The form of the mathematical expression for extinction C and scattering is based upon that of C Heintzenberg & Baker (1976), and further inspired by the work C of Willeke and Brockmann(1977) who showed the basic shape of C the extinction resulting from an integration of the Mie extinction C efficiency over a log normal particle size distribution. C This current code has been developed from a direct calculation of C extinction and scattering using a Mie code integrated over C a log normal distribution. The results of that calculation C replicate the Willee and Brockmann (1977) results. C The parameterization is based upon a fit to the standard CMAQ C radiative transfer code for visibility. to which a module for C absorption was added so that absorption and scattering would also be C available. C C The shape has been modified for absorption by small particles C by using the formulae of Penndorf (1962). For large particles, C the shape has been altered by using the large sphere values from C Table I of Irvine (1965) C C Results are consistent with those of Willeke and Brockmann (1977). C C The asymmetry factor is calculated by a new algorithm FSB - 04/04/2008 C Sept 2014: J.Young-change arguments and usage of Mie Paramater attempting C to optimize runtimes or efficiency C Oct 2014: B.Hutzell-Added mininum values for scatttering efficiency for small C highly absorbing particles such as Aitken particle that C are mostly composed of elemental carbon C C References: C C Heintzenberg, J. and M. Baker, Spherical particle populations: C approximate analytic relationship between size distribution C parameters and integral optical properties, Applied Optics, C Volume 15, Number 5 pp 1178-1181, May 1976. C C Irvine, W. M. Light Scattering by spherical particles: Radiation C pressure, asymmetry factor, and extinction cross section, C Journal of eh Optical Society of Amerioca, Vol. 55, NO. 1, C January ,1965 C C Penndorf, R. Scattering and Extinction Coefficeints for small C spherical particles, J. Atmospheric Sciences, Volume 19, p 193, C March 1962. C C Willeke, K. and J. E. Brockmann, Extinction coefficients for C multmodal atmospheric particle size distributions, Atmospheric C Environment, vol. 11, pp 95-999, 1977. C----------------------------------------------------------------------- IMPLICIT NONE INCLUDE SUBST_CONST ! physical constants C***arguments REAL, INTENT( IN ) :: NR, NI ! indices of refraction REAL, INTENT( IN ) :: ALPHV ! Mie parameter for dgv REAL, INTENT( IN ) :: XLNSIG ! log of geometric standard deviation REAL, INTENT( OUT ) :: BETA_EXT ! normalized extinction coefficient REAL, INTENT( OUT ) :: BETA_SCAT ! normalized scattering coefficient REAL, INTENT( OUT ) :: G ! asymmetry factor C***internal variables REAL NR1, NR2, TAU REAL C, CEXT, CSCAT REAL B, BEXT, BSCAT REAL BBFAC REAL ALPHA_I REAL A, LOGX2, XLNSIG2, MM1 REAL, PARAMETER :: SIGMA_G_TWO = 2.0 REAL, PARAMETER :: LOGSIG_TWO = 0.693147 REAL, PARAMETER :: LOGSIG_TWO_SQD = LOGSIG_TWO * LOGSIG_TWO REAL, PARAMETER :: LOGSIG_105 = 1.102500 REAL, PARAMETER :: DIFFSIG = SIGMA_G_TWO - 1.05 REAL, PARAMETER :: A_TWO = 0.5 / LOGSIG_TWO_SQD REAL LARGESCAT ! large sphere limit for scattering REAL LARGEEXT ! large sphere limit for extinction REAL SMALL_G, LARGE_G REAL ALPHV2, ALPHV3 REAL X_ALPHA, X_ALPHA2, X_ALPHA3 REAL SIGMA_G, FCORR REAL EXPFAC2, EXPFAC3 REAL EFAC, EFAC_EXT, EFAC_SCAT REAL DEN1, FAC1, FAC2 REAL F1, F2, F3 REAL G1, G2, G3, G4, G5 REAL NN, TT REAL T1F1, T2F1, T1F2, T2F2, T1F3, T2F3 REAL T1G1, T2G1, T1G2, T2G2, T1G3, T2G3, T1G4, T2G4 REAL T1G5, T2G5, T1P1, T2P1 C***the following are for calculating the Penndorff Coefficients REAL PENN1, A1, A2, A3, PENN2 REAL XNR, XNI, XNR2, XNI2, XNRI, XNRI2, XNRMI REAL XRI, XRI2, XRI36, XNX, XNX2 REAL Z1, Z12, Z2, XC1 C***coefficients for polynomials REAL, PARAMETER :: F1A0 = -1.309193E-1 REAL, PARAMETER :: F1A1 = 2.565668E+0 REAL, PARAMETER :: F2A0 = 1.489233E+1 REAL, PARAMETER :: F2A1 = -5.311351E+1 REAL, PARAMETER :: F2A2 = 8.180334E+1 REAL, PARAMETER :: F2A3 = -4.549854E+1 REAL, PARAMETER :: F3A0 = 5.549359E-1 REAL, PARAMETER :: F3A1 = 2.571002E-1 REAL, PARAMETER :: F3A2 = 9.212703E-1 REAL, PARAMETER :: F3A3 = 5.155047E-2 REAL, PARAMETER :: G1A0 = 1.000000E+0 REAL, PARAMETER :: G1A1 = -7.636121E-1 REAL, PARAMETER :: G1A2 = 1.285532E+0 REAL, PARAMETER :: G1A3 = 1.629161E-2 REAL, PARAMETER :: G2A0 = 1.000000E+0 REAL, PARAMETER :: G2A1 = -2.507954E+0 REAL, PARAMETER :: G2A2 = 5.170246E+0 REAL, PARAMETER :: G2A3 = -4.945515E+0 REAL, PARAMETER :: G3A0 = 1.000000E+0 REAL, PARAMETER :: G3A1 = -2.650134E+0 REAL, PARAMETER :: G3A2 = 4.515327E+0 REAL, PARAMETER :: G3A3 = -4.027442E+0 REAL, PARAMETER :: G4A0 = 1.000000E+0 REAL, PARAMETER :: G4A1 = -8.532647E-1 REAL, PARAMETER :: G4A2 = 6.766073E-1 REAL, PARAMETER :: G5A0 = 1.0 REAL, PARAMETER :: G5A1 = -6.674946E-1 REAL, PARAMETER :: G5A2 = -5.426378E-1 C *** Coefficients for quadratic fit for large particles C from Irvine (1965) Table I REAL, PARAMETER :: IRVA0 = 1.076232E+0 REAL, PARAMETER :: IRVA1 = -4.891972E-2 REAL, PARAMETER :: IRVA2 = -2.243449E-2 C FSB Coefficients for SMALL_G calculation REAL, PARAMETER :: XXA0 = 3.392224E-2 REAL, PARAMETER :: XXA1 = 8.276532E-1 REAL, PARAMETER :: XXA2 = -3.784926E-1 REAL, PARAMETER :: XXA3 = 5.853108E-2 REAL, PARAMETER :: G_ALPHA_I = XXA0 + XXA1 + XXA2 + XXA3 C FSB Coefficients for LARGE_G calculation REAL, PARAMETER :: YYA0 = 6.776173E-1 REAL, PARAMETER :: YYA1 = 2.385339E-2 REAL, PARAMETER :: YYA2 = -7.952263E-4 REAL, PARAMETER :: YYA3 = 9.410370E-6 C FSB Coefficientf for adjusting asymmetry factor calculation REAL, PARAMETER :: CXG0 = -5.845196E-2 REAL, PARAMETER :: CXG1 = 3.229183E-1 REAL, PARAMETER :: CXG2 = 2.764716E-1 REAL, PARAMETER :: CXG3 = -8.790411E-2 C***FSB added for asymmetry factor calculation REAL QSCAT_AVG REAL, PARAMETER :: AA0 = 88.466 REAL, PARAMETER :: AA1 = -61.628 REAL, PARAMETER :: AA2 = 34.483 REAL, PARAMETER :: AA3 = -8.543 REAL, PARAMETER :: AA4 = 0.77435 REAL GMAX REAL QANGLE REAL QQ, QF1, QF2, QF3 REAL QQSUM, QQF1,QQF2, QQF3, QQCORR REAL, PARAMETER :: DEGTORAD = PI180 REAL, PARAMETER :: THREE_PI_TWO = 3.0 * PI / 2.0 C***FSB start calculation SIGMA_G = EXP( XLNSIG ) C FSB check range of SIGMA_G C *** Maximum value of SIGMA_G allowed is 2.0 SIGMA_G = MIN( 2.0, SIGMA_G ) C *** Minimum allowed value fo SIGMA_F is 1.05 SIGMA_G = MAX( 1.05, SIGMA_G ) XLNSIG2 = XLNSIG * XLNSIG A = 0.5 / XLNSIG2 NR1 = NR - 1.0 NR2 = NR * NR C***evaluate polynomials C*** optimize for piplined microprocessor C*** appproach recommended by Dr. Carlie Coats NN = NR1 * NR1 T1F1 = F1A0 + F1A1 * NR1 T1F2 = F2A0 + F2A1 * NR1 T2F2 = F2A2 + F2A3 * NR1 T1F3 = F3A0 + F3A1 * NR1 T2F3 = F3A2 + F3A3 * NR1 F1 = T1F1 ! linear F2 = T1F2 + T2F2 * NN ! cubic F3 = T1F3 + T2F3 * NN ! cubic C = F1 C FSB correct for values of SIGMA_ less than 2.0. C The smallest value of SIGMA_G allowed is 1.05 C 2.0 - 1.05 = 0.95 C FCORR = (1.0 - 0.13 * (SIGMA_G - 1.05) / 0.95 ) C 1.0 / 0.95 = 1.052632. 1.0 / 0.95 * 0.13 = 0.136842 FCORR = 1.0 - 0.136842 * ( SIGMA_G - 1.05 ) CEXT = C * FCORR CSCAT = CEXT B = F3 * A_TWO ALPHA_I = F2 BEXT = B BSCAT = B PENN1 = 0.0 PENN2 = 0.0 ALPHV2 = ALPHV * ALPHV ALPHV3 = ALPHV2 * ALPHV IF ( NI .GT. 0.0 ) THEN TAU = NI / NR1 C***evaluate more polynomials C*** optimize for piplined microprocessor C*** appproach recommended by Dr. Carlie Coats TT = TAU * TAU T1G1 = G1A0 + G1A1 * TAU T2G1 = G1A2 + G1A3 * TAU T1G2 = G2A0 + G2A1 * TAU T2G2 = G2A2 + G2A3 * TAU T1G3 = G3A0 + G3A1 * TAU T2G3 = G3A2 + G3A3 * TAU T1G4 = G4A0 + G4A1 * TAU T2G4 = G4A2 ! quadratic T1G5 = G5A0 + G5A1 * TAU T2G5 = G5A2 ! quadratic G1 = T1G1 + T2G1 * TT G2 = T1G2 + T2G2 * TT G3 = T1G3 + T2G3 * TT G4 = T1G4 + T2G4 * TT G5 = T1G5 + T2G5 * TT C *** adjust the variables CEXT = CEXT * G1 CSCAT = CSCAT * G2 BEXT = BEXT * G3 BSCAT = BSCAT * G4 ALPHA_I = ALPHA_I * G5 C*** Calculate the Penndorf Coefficients for the small particle limit XNR = NR XNI = NI XNR2 = XNR * XNR XNI2 = XNI * XNI XNRI = XNR2 + XNI2 XNRI2 = XNRI * XNRI XNRMI = XNR2 - XNI2 XRI = XNR * XNI XRI2 = XRI * XRI XRI36 = 36.0 * XRI2 XNX = XNRI2 + XNRMI - 2.0 XNX2 = XNX * XNX Z1 = XNRI2 + 4.0 * XNRMI + 4.0 Z12 = Z1 * Z1 Z2 = 4.0 * XNRI2 + 12.0 * XNRMI + 9.0 XC1 = 8.0 / ( 3.0 * Z12 ) A1 = 24.0 * XRI / Z1 A2 = 4.0 * XRI / 15.0 + 20.0 * XRI / ( 3.0 * Z2 ) + & 4.8 * XRI * ( 7.0 * XNRI2 + & 4.0 * ( XNRMI - 5.0 ) ) / Z12 A3 = XC1 * ( XNX2 - XRI36 ) ! ALPHV2 = ALPHV * ALPHV ! ALPHV3 = ALPHV2 * ALPHV EXPFAC2 = EXP( 2.0 * XLNSIG2 ) EXPFAC3 = EXP( 4.5 * XLNSIG2 ) T1P1 = A1 + A2 * ALPHV2 * EXPFAC2 T2P1 = A3 * ALPHV3 * EXPFAC3 C***PENN1 is the analytic integral of the Pendorff formulae over C*** a log normal particle size distribution. PENN1 = THREE_PI_TWO * ( T1P1 + T2P1 ) PENN2 = THREE_PI_TWO * T2P1 END IF ! test for ni > 0.0 X_ALPHA = ALPHV / ALPHA_I ! LOGX2 = LOG( X_ALPHA )** 2 LOGX2 = LOG( X_ALPHA ) LOGX2 = LOGX2 * LOGX2 BBFAC = BEXT * A / ( BEXT + A ) EFAC_EXT = EXP( -BBFAC * LOGX2 ) C***FSB calculate normalized extinction and scattering coefficients BETA_EXT = THREE_PI_TWO * CEXT & * SQRT( A / ( BEXT + A ) ) * EFAC_EXT BETA_SCAT = BETA_EXT ! NI = 0.0 case C *** Check for NI > 0.0 IF ( NI .GT. 0.0 ) THEN ! BBFAC = 1.5 * BBFAC ! reset BBFAC for scattering BBFAC = 1.1 * BBFAC ! reset BBFAC for scattering EFAC_SCAT = EXP( -BBFAC * LOGX2 ) C *** recalculate the normalized scattering coefficient BETA_SCAT = THREE_PI_TWO * CSCAT & * SQRT( A / ( BSCAT + A ) ) * EFAC_SCAT C *** Adjust beta_ext for small particle absorption: IF ( X_ALPHA .LT. 0.13 ) THEN FAC1 = ALPHV + 0.6 * ALPHV2 BETA_EXT = MAX( BETA_EXT, & ( BETA_EXT * FAC1 + ( 1.0 - FAC1 ) * PENN1 ) ) BETA_SCAT = MAX( BETA_SCAT, & ( BETA_SCAT * FAC1 + ( 1.0 - FAC1 ) * PENN2 ) ) END IF ! test for XALPHA < 0.13 ! small highly absorbing particles such as a Tyndall scatterers such as ! described in Jacobson (1999) in Fundmentals of Atmospheric Modeling. This ! is approximately consistent with Penndorf (1962). BETA_SCAT = MAX( 0.001 * BETA_EXT, BETA_SCAT ) END IF ! test for NI > 0.0 C *** Calculate large sphere limits(Irvine, 1965) MM1 = EXP( 0.5 * XLNSIG2 ) / ALPHV C FSB large sphere limit - scattering LARGESCAT = THREE_PI_TWO * ( 8.652439E-01 + 1.501772E-01 * NR ) * MM1 C FSB large spnere limit for extinction ( no edge effects ) LARGEEXT = THREE_PI_TWO * ( 2.0 * MM1 ) C FSB Adjust for large sphere limits IF ( ALPHV .GE. 10.0 ) THEN BETA_EXT = MAX( BETA_EXT, LARGEEXT ) BETA_SCAT = MAX( BETA_SCAT, LARGESCAT ) END IF ! test for 10.0 < ALPHV C***FSB now calculate the asymmetry factor C*** using the Hanna-Mathur quasi-empirical method ! GMAX = 0.0 ! QSCAT_AVG = BETA_SCAT ! QANGLE = AA0 ! IF ( QSCAT_AVG .GT. 1.0E-4 ) THEN ! QQ = QSCAT_AVG * QSCAT_AVG ! QF1 = AA0 + AA1 * QSCAT_AVG ! QF2 = AA2 + AA3 * QSCAT_AVG ! QF3 = AA4 * QSCAT_AVG * QSCAT_AVG ! QANGLE = QF1 + QF2 * QQ + QF3 * QQ ! END IF ! QANGLE = DEGTORAD * QANGLE ! G = COS( QANGLE) ! asymmetry factor C***FSB now calculate the asymmetry factor C*** using a parametric fit to Mie calculations X_ALPHA2 = X_ALPHA * X_ALPHA X_ALPHA3 = X_ALPHA2 * X_ALPHA SMALL_G = 0.0 LARGE_G = 0.0 IF ( ALPHV .LT. 2.6 ) THEN C FSB Calculate SMALL_G for sigma_g = 2.0 QF1 = XXA0 + XXA1 * ALPHV QF2 = XXA2 * ALPHV2 QF3 = XXA3 * ALPHV3 SMALL_G = QF1 + QF2 + QF3 ! valid at sigma_g = 2.0 C FSB adjust SMALL_G for values less than 2.0 C The smallest sigma_g allowed is 1.05 QQF1 = CXG0 + CXG1 * ALPHV QQF2 = CXG2 * ALPHV2 QQF3 = CXG3 * ALPHV3 QQSUM = QQF1 + QQF2 + QQF3 FAC1 = 1.052632 * ( 2.0 - SIGMA_G ) QQSUM = MAX( 0.0, QQSUM ) QQCORR = ( 1.0 - FAC1 ) + FAC1 * QQSUM SMALL_G = SMALL_G * QQCORR G = SMALL_G ELSE IF ( ALPHV .LT. 100.0 ) THEN QF1 = YYA0 + YYA1 * X_ALPHA QF2 = YYA2 * X_ALPHA2 QF3 = YYA3 * X_ALPHA3 LARGE_G = QF1 + QF2 + QF3 G = LARGE_G ELSE C Very large sphere limit from fit to Irvine (1965). G = 1.124484 - 1.153869E-01 * NR END IF RETURN END SUBROUTINE FASTER_OPTICS C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE FAST_OPTICS( NR, NI, LAMBDA, DGN, SIGMA_G, BETA_EXT, BETA_SCAT, G ) C----------------------------------------------------------------------- C A parameterization of the aerosol extinction and scattering code C Coded by Dr. Francis S. Binkowski C CEMP, The Institute for the Environment C The University of North Carolina at Chapel Hill C email: frank_binkowski@unc.edu C Code dates. Began February 25, 2005, current March 18, 2005 C modified by FSB May 10, 2005 to calculate asymmetry factor by the C semi-empirical method of Hanna and Mathur. Note that C the normalized scattering coefficient (non-dimensional) is C interpreted as an average of scattering efficiency over the C size distribution C Modified 05/25/2005 to ensure that if ni = 0.0, that C beta_scat = beta_ext. C Modified 03/17/2008 to ensure match with reference calculation for C all cases of sigma_g. C Modified 10/25/2009 to be consistent with research version of code. C The modifications include better representation of the C asymmetry factor. C The form of the mathematical expression for extinction C and scattering is based upon that of C Heintzenberg & Baker (1976), and further inspired by the work C of Willeke and Brockmann(1977) who showed the basic shape of C the extinction resulting from an integration of the Mie extinction C efficiency over a log normal particle size distribution. C This current code has been developed from a direct calculation of C extinction and scattering using a Mie code integrated over C a log normal distribution. The results of that calculation C replicate the Willee and Brockmann (1977) results. C The parameterization is based upon a fit to the standard CMAQ C radiative transfer code for visibility. to which a module for C absorption was added so that absorption and scattering would also be C available. C C The shape has been modified for absorption by small particles C by using the formulae of Penndorf (1962). For large particles, C the shape has been altered by using the large sphere values from C Table I of Irvine (1965) C C Results are consistent with those of Willeke and Brockmann (1977). C C The asymmetry factor is calculated by a new algorithm FSB - 04/04/2008 C C Oct 2014: B.Hutzell-Added mininum values for scatttering efficiency for small C highly absorbing particles such as Aitken particle that C are mostly composed of elemental carbon C C References: C C Heintzenberg, J. and M. Baker, Spherical particle populations: C approximate analytic relationship between size distribution C parameters and integral optical properties, Applied Optics, C Volume 15, Number 5 pp 1178-1181, May 1976. C C Irvine, W. M. Light Scattering by spherical particles: Radiation C pressure, asymmetry factor, and extinction cross section, C Journal of eh Optical Society of Amerioca, Vol. 55, NO. 1, C January ,1965 C C Penndorf, R. Scattering and Extinction Coefficeints for small C spherical particles, J. Atmospheric Sciences, Volume 19, p 193, C March 1962. C C Willeke, K. and J. E. Brockmann, Extinction coefficients for C multmodal atmospheric particle size distributions, Atmospheric C Environment, vol. 11, pp 95-999, 1977. C----------------------------------------------------------------------- IMPLICIT NONE C***include files INCLUDE SUBST_CONST ! physical constants C***arguments REAL, INTENT( IN ) :: NR, NI ! indices of refraction REAL, INTENT( IN ) :: LAMBDA ! wavelength, nm REAL, INTENT( IN ) :: DGN ! geometric mean diameter, m REAL, INTENT( INOUT ) :: SIGMA_G ! geometric standard deviation REAL, INTENT( OUT ) :: BETA_EXT ! normalized extinction coefficient REAL, INTENT( OUT ) :: BETA_SCAT ! normalized scattering coefficient REAL, INTENT( OUT ) :: G ! asymmetry factor C***internal variables REAL NR1, NR2, TAU REAL C, CEXT, CSCAT REAL B, BEXT, BSCAT REAL BBFAC REAL ALPHV REAL ALPHA_I REAL A, LOGX2, XLNSIG, XLNSIG2, MM1 REAL, PARAMETER :: SIGMA_G_TWO = 2.0 REAL, PARAMETER :: LOGSIG_TWO = 0.693147 REAL, PARAMETER :: LOGSIG_TWO_SQD = LOGSIG_TWO * LOGSIG_TWO REAL, PARAMETER :: LOGSIG_105 = 1.102500 REAL, PARAMETER :: DIFFSIG = SIGMA_G_TWO - 1.05 REAL, PARAMETER :: A_TWO = 0.5 / LOGSIG_TWO_SQD REAL LARGESCAT ! large sphere limit for scattering REAL LARGEEXT ! large sphere limit for extinction REAL SMALL_G, LARGE_G REAL ALPHV2, ALPHV3 REAL X_ALPHA, X_ALPHA2, X_ALPHA3 REAL FCORR REAL EXPFAC2, EXPFAC3 REAL EFAC, EFAC_EXT, EFAC_SCAT REAL DEN1, FAC1, FAC2 REAL F1, F2, F3 REAL G1, G2, G3, G4, G5 REAL NN, TT REAL T1F1, T2F1, T1F2, T2F2, T1F3, T2F3 REAL T1G1, T2G1, T1G2, T2G2, T1G3, T2G3, T1G4, T2G4 REAL T1G5, T2G5, T1P1, T2P1 C***the following are for calculating the Penndorff Coefficients REAL PENN1, A1, A2, A3, PENN2 REAL XNR, XNI, XNR2, XNI2, XNRI, XNRI2, XNRMI REAL XRI, XRI2, XRI36, XNX, XNX2 REAL Z1, Z12, Z2, XC1 C***coefficients for polynomials REAL, PARAMETER :: F1A0 = -1.309193E-1 REAL, PARAMETER :: F1A1 = 2.565668E+0 REAL, PARAMETER :: F2A0 = 1.489233E+1 REAL, PARAMETER :: F2A1 = -5.311351E+1 REAL, PARAMETER :: F2A2 = 8.180334E+1 REAL, PARAMETER :: F2A3 = -4.549854E+1 REAL, PARAMETER :: F3A0 = 5.549359E-1 REAL, PARAMETER :: F3A1 = 2.571002E-1 REAL, PARAMETER :: F3A2 = 9.212703E-1 REAL, PARAMETER :: F3A3 = 5.155047E-2 REAL, PARAMETER :: G1A0 = 1.000000E+0 REAL, PARAMETER :: G1A1 = -7.636121E-1 REAL, PARAMETER :: G1A2 = 1.285532E+0 REAL, PARAMETER :: G1A3 = 1.629161E-2 REAL, PARAMETER :: G2A0 = 1.000000E+0 REAL, PARAMETER :: G2A1 = -2.507954E+0 REAL, PARAMETER :: G2A2 = 5.170246E+0 REAL, PARAMETER :: G2A3 = -4.945515E+0 REAL, PARAMETER :: G3A0 = 1.000000E+0 REAL, PARAMETER :: G3A1 = -2.650134E+0 REAL, PARAMETER :: G3A2 = 4.515327E+0 REAL, PARAMETER :: G3A3 = -4.027442E+0 REAL, PARAMETER :: G4A0 = 1.000000E+0 REAL, PARAMETER :: G4A1 = -8.532647E-1 REAL, PARAMETER :: G4A2 = 6.766073E-1 REAL, PARAMETER :: G5A0 = 1.0 REAL, PARAMETER :: G5A1 = -6.674946E-1 REAL, PARAMETER :: G5A2 = -5.426378E-1 C *** Coefficients for quadratic fit for large particles C from Irvine (1965) Table I REAL, PARAMETER :: IRVA0 = 1.076232E+0 REAL, PARAMETER :: IRVA1 = -4.891972E-2 REAL, PARAMETER :: IRVA2 = -2.243449E-2 C FSB Coefficients for SMALL_G calculation REAL, PARAMETER :: XXA0 = 3.392224E-2 REAL, PARAMETER :: XXA1 = 8.276532E-1 REAL, PARAMETER :: XXA2 = -3.784926E-1 REAL, PARAMETER :: XXA3 = 5.853108E-2 REAL, PARAMETER :: G_ALPHA_I = XXA0 + XXA1 + XXA2 + XXA3 C FSB Coefficients for LARGE_G calculation REAL, PARAMETER :: YYA0 = 6.776173E-1 REAL, PARAMETER :: YYA1 = 2.385339E-2 REAL, PARAMETER :: YYA2 = -7.952263E-4 REAL, PARAMETER :: YYA3 = 9.410370E-6 C FSB Coefficientf for adjusting asymmetry factor calculation REAL, PARAMETER :: CXG0 = -5.845196E-2 REAL, PARAMETER :: CXG1 = 3.229183E-1 REAL, PARAMETER :: CXG2 = 2.764716E-1 REAL, PARAMETER :: CXG3 = -8.790411E-2 C***FSB added for asymmetry factor calculation REAL QSCAT_AVG REAL, PARAMETER :: AA0 = 88.466 REAL, PARAMETER :: AA1 = -61.628 REAL, PARAMETER :: AA2 = 34.483 REAL, PARAMETER :: AA3 = -8.543 REAL, PARAMETER :: AA4 = 0.77435 REAL GMAX REAL QANGLE REAL QQ, QF1, QF2, QF3 REAL QQSUM, QQF1,QQF2, QQF3, QQCORR REAL, PARAMETER :: DEGTORAD = PI180 REAL, PARAMETER :: THREE_PI_TWO = 3.0 * PI / 2.0 REAL, PARAMETER :: SCALE = 1.00E+9 C FSB check range of SIGMA_G C *** Maximum value of SIGMA_G allowed is 2.0 SIGMA_G = MIN( 2.0, SIGMA_G ) C *** Minimum allowed value fo SIGMA_F is 1.05 SIGMA_G = MAX( 1.05, SIGMA_G ) C***FSB start calculation XLNSIG = LOG( SIGMA_G ) ALPHV = SCALE * PI * DGN * EXP( 3.0 * XLNSIG * XLNSIG ) / LAMBDA ALPHV2 = ALPHV * ALPHV ALPHV3 = ALPHV * ALPHV * ALPHV XLNSIG2 = XLNSIG * XLNSIG A = 0.5 / XLNSIG2 NR1 = NR - 1.0 NR2 = NR * NR C***evaluate polynomials C*** optimize for piplined microprocessor C*** appproach recommended by Dr. Carlie Coats NN = NR1 * NR1 T1F1 = F1A0 + F1A1 * NR1 T1F2 = F2A0 + F2A1 * NR1 T2F2 = F2A2 + F2A3 * NR1 T1F3 = F3A0 + F3A1 * NR1 T2F3 = F3A2 + F3A3 * NR1 F1 = T1F1 ! linear F2 = T1F2 + T2F2 * NN ! cubic F3 = T1F3 + T2F3 * NN ! cubic C = F1 C FSB correct for values of SIGMA_ less than 2.0. C The smallest value of SIGMA_G allowed is 1.05 C 2.0 - 1.05 = 0.95 C FCORR = (1.0 - 0.13 * (SIGMA_G - 1.05) / 0.95 ) C 1.0 / 0.95 = 1.052632. 1.0 / 0.95 * 0.13 = 0.136842 FCORR = 1.0 - 0.136842 * ( SIGMA_G - 1.05 ) CEXT = C * FCORR CSCAT = CEXT B = F3 * A_TWO ALPHA_I = F2 BEXT = B BSCAT = B PENN1 = 0.0 PENN2 = 0.0 IF ( NI .GT. 0.0 ) THEN TAU = NI / NR1 C***evaluate more polynomials C*** optimize for piplined microprocessor C*** appproach recommended by Dr. Carlie Coats TT = TAU * TAU T1G1 = G1A0 + G1A1 * TAU T2G1 = G1A2 + G1A3 * TAU T1G2 = G2A0 + G2A1 * TAU T2G2 = G2A2 + G2A3 * TAU T1G3 = G3A0 + G3A1 * TAU T2G3 = G3A2 + G3A3 * TAU T1G4 = G4A0 + G4A1 * TAU T2G4 = G4A2 ! quadratic T1G5 = G5A0 + G5A1 * TAU T2G5 = G5A2 ! quadratic G1 = T1G1 + T2G1 * TT G2 = T1G2 + T2G2 * TT G3 = T1G3 + T2G3 * TT G4 = T1G4 + T2G4 * TT G5 = T1G5 + T2G5 * TT C *** adjust the variables CEXT = CEXT * G1 CSCAT = CSCAT * G2 BEXT = BEXT * G3 BSCAT = BSCAT * G4 ALPHA_I = ALPHA_I * G5 C*** Calculate the Penndorf Coefficients for the small particle limit XNR = NR XNI = NI XNR2 = XNR * XNR XNI2 = XNI * XNI XNRI = XNR2 + XNI2 XNRI2 = XNRI * XNRI XNRMI = XNR2 - XNI2 XRI = XNR * XNI XRI2 = XRI * XRI XRI36 = 36.0 * XRI2 XNX = XNRI2 + XNRMI - 2.0 XNX2 = XNX * XNX Z1 = XNRI2 + 4.0 * XNRMI + 4.0 Z12 = Z1 * Z1 Z2 = 4.0 * XNRI2 + 12.0 * XNRMI + 9.0 XC1 = 8.0 / ( 3.0 * Z12 ) A1 = 24.0 * XRI / Z1 A2 = 4.0 * XRI / 15.0 + 20.0 * XRI / ( 3.0 * Z2 ) + & 4.8 * XRI * ( 7.0 * XNRI2 + & 4.0 * ( XNRMI - 5.0 ) ) / Z12 A3 = XC1 * ( XNX2 - XRI36 ) EXPFAC2 = EXP( 2.0 * XLNSIG2 ) EXPFAC3 = EXP( 4.5 * XLNSIG2 ) T1P1 = A1 + A2 * ALPHV2 * EXPFAC2 T2P1 = A3 * ALPHV3 * EXPFAC3 C***PENN1 is the analytic integral of the Pendorff formulae over C*** a log normal particle size distribution. PENN1 = THREE_PI_TWO * ( T1P1 + T2P1 ) PENN2 = THREE_PI_TWO * T2P1 END IF ! test of ni > 0.0 X_ALPHA = ALPHV / ALPHA_I LOGX2 = LOG( X_ALPHA )** 2 BBFAC = BEXT * A / ( BEXT + A ) EFAC_EXT = EXP( -BBFAC * LOGX2 ) C***FSB calculate normalized extinction and scattering coefficients BETA_EXT = THREE_PI_TWO * CEXT * & SQRT( A / ( BEXT + A ) ) * EFAC_EXT BETA_SCAT = BETA_EXT ! NI = 0.0 case C *** Check for 0.0 < NI IF ( NI .GT. 0.0 ) THEN ! BBFAC = 1.5 * BBFAC ! reset BBFAC for scattering BBFAC = 1.1 * BBFAC ! reset BBFAC for scattering EFAC_SCAT = EXP( -BBFAC * LOGX2 ) C *** recalculate the normalized scattering coefficient BETA_SCAT = THREE_PI_TWO * CSCAT * & SQRT( A / ( BSCAT + A ) ) * EFAC_SCAT C *** Adjust beta_ext for small particle absorption: IF ( X_ALPHA .LT. 0.13 ) THEN FAC1 = ALPHV + 0.6 * ALPHV2 BETA_EXT = MAX( BETA_EXT, & ( BETA_EXT * FAC1 + ( 1.0 - FAC1 ) * PENN1 ) ) BETA_SCAT = MAX( BETA_SCAT, & ( BETA_SCAT * FAC1 + ( 1.0 - FAC1 ) * PENN2 ) ) END IF ! test for XALPHA < 0.13 ! small highly absorbing particles such as a Tyndall scatterers such as ! described in Jacobson (1999) in Fundmentals of Atmospheric Modeling. This ! is approximately consistent with Penndorf (1962). BETA_SCAT = MAX( 0.001 * BETA_EXT, BETA_SCAT ) END IF ! test for 0.0 < NI C *** Calculate large sphere limits(Irvine, 1965) MM1 = EXP( 0.5 * XLNSIG2 ) / ALPHV C FSB large sphere limit - scattering LARGESCAT = THREE_PI_TWO * ( 8.652439E-1 + 1.501772E-1 * NR ) * MM1 C FSB large spnere limit for extinction ( no edge effectss ) LARGEEXT = THREE_PI_TWO * ( 2.0 * MM1 ) C FSB Adjust for large sphere limits IF ( ALPHV .GE. 10.0 ) THEN BETA_EXT = MAX( BETA_EXT, LARGEEXT ) BETA_SCAT = MAX( BETA_SCAT, LARGESCAT ) END IF ! test for 10.0 < ALPHV C***FSB now calculate the asymmetry factor C*** using the Hanna-Mathur quasi-empirical method ! GMAX = 0.0 ! QSCAT_AVG = BETA_SCAT ! QANGLE = AA0 ! IF ( QSCAT_AVG .GT. 1.0E-4 ) THEN ! QQ = QSCAT_AVG * QSCAT_AVG ! QF1 = AA0 + AA1 * QSCAT_AVG ! QF2 = AA2 + AA3 * QSCAT_AVG ! QF3 = AA4 * QSCAT_AVG * QSCAT_AVG ! QANGLE = QF1 + QF2 * QQ + QF3 * QQ ! END IF ! QANGLE = DEGTORAD * QANGLE ! G = COS( QANGLE) ! asymmetry factor C***FSB now calculate the asymmetry factor C*** using a parametric fit to Mie calculations X_ALPHA2 = X_ALPHA * X_ALPHA X_ALPHA3 = X_ALPHA * X_ALPHA * X_ALPHA SMALL_G = 0.0 LARGE_G = 0.0 IF ( ALPHV .LT. 2.6 ) THEN C FSB Calculate SMALL_G for sigma_g = 2.0 QF1 = XXA0 + XXA1 * ALPHV QF2 = XXA2 * ALPHV2 QF3 = XXA3 * ALPHV3 SMALL_G = QF1 + QF2 + QF3 ! valid at sigma_g = 2.0 C FSB adjust SMALL_G for values less than 2.0 C The smallest sigma_g allowed is 1.05 QQF1 = CXG0 + CXG1 * ALPHV QQF2 = CXG2 * ALPHV2 QQF3 = CXG3 * ALPHV3 QQSUM = QQF1 + QQF2 + QQF3 FAC1 = 1.052632 * ( 2.0 - SIGMA_G) QQSUM = MAX( 0.0, QQSUM ) QQCORR = ( 1.0 - FAC1 ) + FAC1 * QQSUM SMALL_G = SMALL_G * QQCORR G = SMALL_G ELSE IF ( ALPHV .LT. 100.0 ) THEN QF1 = YYA0 + YYA1 * X_ALPHA QF2 = YYA2 * X_ALPHA2 QF3 = YYA3 * X_ALPHA3 LARGE_G = QF1 + QF2 + QF3 G = LARGE_G ELSE C Very large sphere limit from fit to Irvine (1965). G = 1.124484 - 1.153869E-1 * NR END IF C Simple and gross fix if appromation exceed realistic bounds G = MAX( -0.9999, MIN( G, 0.9999)) RETURN END SUBROUTINE FAST_OPTICS END MODULE AERO_PHOTDATA ================================================ FILE: CCTM/src/phot/inline/CLOUD_OPTICS.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! !::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: Module Cloud_Optics ! Purpose: ! Calculate the optical properties of hydrometeors per wavelength and layer. ! Five types are treated liquid cloud droplet, ice particles, snowflakes, graupel ! and rain droplet. The last three are lumped into one catagory called cloud ! aggregates ! History: ! 09/15/14: B.Hutzell: Initial version created ! 02/01/19: D.Wong: Cleaned up USE module clauses Implicit None real, parameter :: cldmin = 1.e-20 ! minimum value for cloud quantities real, allocatable :: cloud_liquid_ext ( :,: ) ! resolved cloud liquid droplet extinction, 1/m real, allocatable :: cloud_liquid_scat( :,: ) ! resolved cloud liquid droplet scattering, 1/m real, allocatable :: cloud_liquid_ssa ( :,: ) ! resolved cloud liquid droplet co-albedo real, allocatable :: cloud_liquid_asy ( :,: ) ! resolved cloud liquid droplet asymmetery factor real, allocatable :: cloud_aggreg_ext ( :,: ) ! resolved cloud aggregates extinction, 1/m real, allocatable :: cloud_aggreg_scat( :,: ) ! resolved cloud aggregates scattering, 1/m real, allocatable :: cloud_aggreg_ssa ( :,: ) ! resolved cloud aggregates co-albedo real, allocatable :: cloud_aggreg_asy ( :,: ) ! resolved cloud aggregates asymmetery factor real, allocatable :: cloud_ice_ext ( :,: ) ! resolved cloud ice particle extinction, 1/m real, allocatable :: cloud_ice_scat ( :,: ) ! resolved cloud ice particle scattering, 1/m real, allocatable :: cloud_ice_ssa ( :,: ) ! resolved cloud ice particle single scattering albedo real, allocatable :: cloud_ice_asy ( :,: ) ! resolved cloud ice particle asymmetery factor real, allocatable :: cloud_ice_del ( :,: ) ! resolved cloud ice delta forward tranmission function real, allocatable :: total_tau_cld( : ) ! total optical depth of resolved cloud #ifdef phot_debug real, allocatable :: ave_asymm_cld( : ) ! column average of resolved cloud asymmetry factor real, allocatable :: ave_ssa_cld ( : ) ! column average of resolved cloud single scattering albedo #endif real, allocatable :: cloud_ext_coeff( :,: ) ! total cloud extinction coefficient, 1/m real, allocatable :: cloud_scat_coef( :,: ) ! total cloud scattering coefficent, 1/m real, allocatable :: cloud_asym_fact( :,: ) ! average cloud asymmetery factor real, allocatable :: total_tau_urcld( : ) ! total optical depth of unresolved cloud real, allocatable :: ave_asymm_urcld( : ) ! column average of unresolved cloud asymmetry factor real, allocatable :: ave_ssa_urcld ( : ) ! column average of unresolved cloud single scattering albedo real, allocatable :: rel( : ) ! liquid droplet effective radius, um real, allocatable :: dge( : ) ! generalized ice particle size, um real :: max_dge ! maximum allowed value for dge, um real :: max_dge_squ ! maximum allowed value squared for dge , um2 real :: min_dge ! minimum allowed value for dge, um logical, allocatable :: cloud_layering ( : ) ! flag to use optical depth correction for cloud layering integer :: row_cloud integer :: col_cloud public :: init_cloud_optics, general_effective_size, get_ice_optics, & get_droplet_optics, relcalc, get_aggregate_optics real, parameter, private :: low = 1.e-06 ! epsilon real, parameter, private :: high = 1.0e0 - low ! 1.0 - epsilon real, parameter, private :: cldtiny = high*cldmin ! minimum value for cloud scattering ! Abscissas of Gauss-Laguerre Integration ! for 32 point quadrature real( 8 ), parameter, private :: xk(32) = & (/ 0.0444893658333D+0, 0.23452610952D+0, & 0.576884629302D+0, 1.07244875382D+0, 1.72240877644D+0, 2.52833670643D+0, & 3.49221327285D+0, 4.61645677223D+0, 5.90395848335D+0, 7.3581268086D+0, & 8.98294126732D+0, 10.783012089D+0, 12.763745476D+0, 14.9309117981D+0, & 17.2932661372D+0, 19.8536236493D+0, 22.6357789624D+0, 25.6201482024D+0, & 28.8739336869D+0, 32.3333294017D+0, 36.1132042245D+0, 40.1337377056D+0, & 44.5224085362D+0, 49.2086605665D+0, 54.3501813324D+0, 59.8791192845D+0, & 65.9833617041D+0, 72.6842683222D+0, 80.1883747906D+0, 88.735192639D+0, & 98.8295523184D+0, 111.751398227D+0 /) ! total weights (weight*exp(xk)) of Modified Gauss-Laguerre Integration real( 8 ), parameter, private :: totalw(32) = & (/ 0.114187105768D+0, 0.266065216898D+0, & 0.418793137325D+0, 0.572532846497D+0, 0.727648788453D+0, 0.884536718946D+0, & 1.04361887597D+0, 1.20534920595D+0, 1.37022171969D+0, 1.53877595906D+0, & 1.71164594592D+0, 1.8895649683D+0, 2.07318851235D+0, 2.26590144444D+0, & 2.46997418988D+0, 2.64296709494D+0, 2.76464437462D+0, 3.22890542981D+0, & 2.92019361963D+0, 4.3928479809D+0, 4.27908673189D+0, 5.20480398519D+0, & 5.11436212961D+0, 4.15561492173D+0, 6.19851060567D+0, 5.34795780128D+0, & 6.28339212457D+0, 6.89198340969D+0, 7.92091094244D+0, 9.20440555803D+0, & 11.1637432904D+0, 15.3902417688D+0 /) real( 8 ), private :: newtotalw(32) ! Abscissas for 16 point quadrature real( 8 ), parameter, private :: gauss_laguerre_node( 16 ) = & (/ 0.8764941047892792D-1, 0.4626963289150808D+0, 1.141057774831227D+0, & 2.129283645098381D+0, 3.437086633893207D+0, 5.078018614549768D+0, & 7.070338535048235D+0, 9.438314336391938D+0, 12.21422336886616D+0, & 15.44152736878162D+0, 19.18015685675314D+0, 23.51590569399191D+0, & 28.57872974288214D+0, 34.58339870228663D+0, 41.94045264768833D+0, & 51.70116033954332D+0 /) ! total weights for 16 points real( 8 ), parameter, private :: gauss_laguerre_weight( 16 ) = & (/ 0.2250363148642442D+0, 0.5258360527623427D+0, 0.8319613916870883D+0, & 1.146099240963750D+0, 1.471751316966809D+0, 1.813134687381348D+0, & 2.175517519694609D+0, 2.565762750165028D+0, 2.993215086371375D+0, & 3.471234483102089D+0, 4.020044086444668D+0, 4.672516607732857D+0, & 5.487420657986129D+0, 6.585361233289269D+0, 8.276357984364143D+0, & 11.82427755165841D+0 /) real( 8 ), private :: gauss_laguerre_total( 16 ) real( 8 ), parameter :: cloud_largest = 9.0d+307 real( 8 ), parameter :: cloud_smallest = 9.0d-307 real( 8 ), parameter :: cloud_log_largest = 709.090848126508d0 real( 8 ), parameter :: cloud_log_smallest = -709.090848126508d0 contains !----------------------------------------------------------------------- subroutine init_cloud_optics() use VGRD_DEFN, ONLY : NLAYS USE UTILIO_DEFN USE CSQY_DATA Implicit None integer :: allocstat ! memory allocation status integer :: i Character( 132 ) :: xmsg Character( 32 ) :: pname = 'init_cloud_optics' Logical, Save :: initialized = .false. If ( initialized ) Return initialized = .true. allocate( cloud_layering( nlays ), & rel ( nlays ), & dge ( nlays ), stat = allocstat ) If( allocstat .ne. 0 )Then xmsg = 'Failure Allocating cloud_layering, rel, dge' call m3exit( pname, 0, 0, xmsg, xstat1 ) End If max_dge = maxi_diameter_ice-low max_dge_squ = max_dge*max_dge min_dge = mini_diameter_ice+low cloud_layering = .true. allocate( cloud_liquid_ext ( nlays,nwl_ref ), & cloud_liquid_scat( nlays,nwl_ref ), & cloud_liquid_ssa ( nlays,nwl_ref ), & cloud_liquid_asy ( nlays,nwl_ref ), stat = allocstat ) If( allocstat .ne. 0 )Then xmsg = 'Failure Allocating cloud_liquid_ext, cloud_liquid_scat, cloud_liquid_ssa, cloud_liquid_asy' call m3exit( pname, 0, 0, xmsg, xstat1 ) End If cloud_liquid_ext = 0.0 cloud_liquid_scat = 0.0 cloud_liquid_ssa = 1.0 cloud_liquid_asy = 0.0 allocate( cloud_ice_ext ( nlays,nwl_ref ), & cloud_ice_scat( nlays,nwl_ref ), & cloud_ice_ssa ( nlays,nwl_ref ), & cloud_ice_del ( nlays,nwl_ref ), & cloud_ice_asy ( nlays,nwl_ref ), stat = allocstat ) If( allocstat .ne. 0 )Then xmsg = 'Failure Allocating cloud_ice_ext, cloud_ice_ext,cloud_ice_ssa, cloud_ice_del, ice_asy_rcld' call m3exit( pname, 0, 0, xmsg, xstat1 ) End If cloud_ice_ext = 0.0 cloud_ice_scat = 0.0 cloud_ice_ssa = 1.0 cloud_ice_asy = 0.0 allocate( cloud_aggreg_ext ( nlays,nwl_ref ), & cloud_aggreg_scat( nlays,nwl_ref ), & cloud_aggreg_ssa ( nlays,nwl_ref ), & cloud_aggreg_asy ( nlays,nwl_ref ), stat = allocstat ) If( allocstat .ne. 0 )Then xmsg = 'Failure Allocating cloud_aggreg_ext, cloud_aggreg_ext,cloud_aggreg_ssa,' & // 'cloud_aggreg_del, cloud_aggreg_asy' call m3exit( pname, 0, 0, xmsg, xstat1 ) End If cloud_aggreg_ext = cldmin cloud_aggreg_scat = cldtiny cloud_aggreg_ssa = 1.0 cloud_aggreg_asy = 0.0 allocate( cloud_ext_coeff( nlays,nwl_ref ), & cloud_scat_coef( nlays,nwl_ref ), & cloud_asym_fact( nlays,nwl_ref ), stat = allocstat ) If( allocstat .ne. 0 )Then xmsg = 'Failure Allocating cloud_ext_coeff, cloud_scat_coef, cloud_asy_fact' call m3exit( pname, 0, 0, xmsg, xstat1 ) End If allocate( total_tau_cld( nwl_ref ), stat = allocstat ) If( allocstat .ne. 0 )Then xmsg = 'Failure Allocating total_tau' call m3exit( pname, 0, 0, xmsg, xstat1 ) End If #ifdef phot_debug allocate( ave_asymm_cld( nwl_ref ), & ave_ssa_cld( nwl_ref ), stat = allocstat ) If( allocstat .ne. 0 )Then xmsg = 'Failure Allocating ave_asymm, ave_ssa' call m3exit( pname, 0, 0, xmsg, xstat1 ) End If #endif do i = 1, 32 newtotalw( i ) = xk( i ) * xk( i ) * totalw( i ) end do do i = 1, 16 gauss_laguerre_total( i ) = gauss_laguerre_node( i ) & * gauss_laguerre_node( i ) & * gauss_laguerre_weight( i ) end do end subroutine init_cloud_optics !----------------------------------------------------------------------- subroutine general_effective_size( levels, t ) ! Purpose: calculate the generalized effective size ! of ice particle based on temperature. The routine ! was adapted from WRF version 3.5 implementation of ! RRTMG ! returns the effect raduis, re, of cloud ice particles, at ! temperature, t Implicit None ! Arguments: integer, intent(in) :: levels ! layers of process real, intent(in) :: t(:) ! air temperaure, K ! Local: real corr integer i integer k integer index real, save :: retab(95) ! look up table effective size, um, of ice particle versus ! temperature. Values of re(T) are tabulated over temperature ! interval 180 K -- 274 K; hexagonal columns assumed: ! ! The table comes from CAM version 4.0 and does not matched ! citation reference, equation (4) in ! Kristjsson, J. E., J. M. Edwards, and D. L. Mitchell (1999), ! A new parameterization scheme for the optical properties of ! ice crystals for use in general circulation models of the ! atmosphere, Phys. Chem. Earth, B24, 231236. ! or 1030.7*EXP(0.05522*(Temp-279.5)) ! Array's first value corresponds to Temp equals 186.1 K ! last temp correspond to Temp equal 253.8 K. data retab / & 5.92779, 6.26422, 6.61973, 6.99539, 7.39234, ! 5 & 7.81177, 8.25496, 8.72323, 9.21800, 9.74075, 10.2930, ! 11 & 10.8765, 11.4929, 12.1440, 12.8317, 13.5581, 14.2319, ! 17 & 15.0351, 15.8799, 16.7674, 17.6986, 18.6744, 19.6955, ! 23 & 20.7623, 21.8757, 23.0364, 24.2452, 25.5034, 26.8125, ! 29 & 27.7895, 28.6450, 29.4167, 30.1088, 30.7306, 31.2943, ! 35 & 31.8151, 32.3077, 32.7870, 33.2657, 33.7540, 34.2601, ! 41 & 34.7892, 35.3442, 35.9255, 36.5316, 37.1602, 37.8078, ! 47 & 38.4720, 39.1508, 39.8442, 40.5552, 41.2912, 42.0635, ! 53 & 42.8876, 43.7863, 44.7853, 45.9170, 47.2165, 48.7221, ! 59 & 50.4710, 52.4980, 54.8315, 57.4898, 60.4785, 63.7898, ! 65 & 65.5604, 71.2885, 75.4113, 79.7368, 84.2351, 88.8833, ! 71 & 93.6658, 98.5739, 103.603, 108.752, 114.025, 119.424, ! 77 & 124.954, 130.630, 136.457, 142.446, 148.608, 154.956, ! 83 & 161.503, 168.262, 175.248, 182.473, 189.952, 197.699, ! 89 & 205.728, 214.055, 222.694, 231.661, 240.971, 250.639/ ! 95 do k = 1, levels If( t(k) .le. 179.0 )Then index = 1 Else If( t(k) .ge. 273.0 )Then index = 94 Else index = max( int(t(k)-179.0), 1 ) End If corr = t(k) - aint( t(k) ) ! temperatures of retab values differ by one degree K dge(k) = retab(index) + (retab(index+1)-retab(index))*corr ! Convert from effective radius to generalized effective size (*1.0315; Fu et al. 1996) ! but limit to upper bound in Fu et al. (1996) ice parameterization dge(k) = max( min( max_dge, 1.0315*dge(k) ), min_dge) end do return end subroutine general_effective_size !----------------------------------------------------------------------- subroutine get_ice_optics( levels, t, iwc ) ! Purpose calculate optical properties for ice particles ! Uses Fu (1996) parameterization for ice particle generalized effective size, dge, from 5 to 140 microns, ! *** NOTE: Fu parameterization requires particle size in generalized effective size. ! and uses Ebert and Curry (1992) parameteriztion size, dge, >= 140 microns. ! *** NOTE: Transition between two methods has not been smoothed. ! Algorithm adapted Rapid Radiative Model Global (RRTMG) version 3.8 and Weather Research Forecasting model ! (WRF) version 3.5 USE UTILIO_DEFN ! IO functions and parameters USE CSQY_DATA ! number and value of wavelengths IMPLICIT NONE ! arguments: integer, intent( inout ) :: levels ! layers to process real, intent( inout ) :: t(:) ! air temperaure, K real, intent( in ) :: iwc( : ) ! cloud ice water content, g/m3 ! ice water coefficients (Ebert and Curry,1992, JGR, 97, 3831-3836) real, save :: abari(4) = (/ 3.448e-03, 3.448e-03,3.448e-03,3.4480e-03/) real, save :: bbari(4) = (/ 2.431e+00, 2.431e+00,2.431e+00,2.4310e+00/) real, save :: cbari(4) = (/ 1.000e-05, 1.10e-04 ,1.861e-02,4.6658e-01/) real, save :: dbari(4) = (/ 0.000e+00, 1.405e-05,8.328e-04,2.0500e-05/) real, save :: ebari(4) = (/ 7.661e-01, 0.773e+00,0.794e+00,0.9595e+00/) real, save :: fbari(4) = (/ 5.851e-04, 5.665e-04,7.267e-04,1.0760e-04/) ! Local: real factor real fint real forwice ! forward sccatering parameter integer iwl ! loop counter integer layer ! loop counter integer index character( 132 ) :: XMSG character( 16 ), save :: pname = 'GET_ICE_OPTICS' logical :: error_flag cloud_ice_ext ( 1:levels, 1:nwl_ref ) = cldmin cloud_ice_scat( 1:levels, 1:nwl_ref ) = cldtiny cloud_ice_ssa ( 1:levels, 1:nwl_ref ) = high cloud_ice_asy ( 1:levels, 1:nwl_ref ) = 0.0 dge ( 1:levels ) = 0.0 ! forall( layer = 1:levels ) ! dge( layer ) = 0.0 ! forall( iwl = 1:nwl_ref ) ! cloud_liquid_ext ( layer, iwl ) = cldmin ! cloud_liquid_scat( layer, iwl ) = cldtiny ! cloud_liquid_ssa ( layer, iwl ) = high ! cloud_liquid_asy ( layer, iwl ) = 0.0 ! end forall ! end forall if( maxval( iwc ) .le. cldmin )return call general_effective_size( levels, t ) ! Calculation of optical propeties due to ice particle ! Note that this loop structure may not be the most efficientbecuase the ! inner loop use the farther right array index. The code does this because cycle ! condition per layer may be more efficient than iterating over wavelength than ! layer error_flag = .false. do layer = 1, levels if( iwc( layer ) .le. cldmin )cycle do iwl = 1, nwl_ref #ifdef phot_debug if (dge(layer) .lt. mini_diameter_ice)then write(xmsg,*)Trim(pname) & // ': ICE PARTICLE GENERALIZED EFFECTIVE SIZE OUT OF BOUNDS' & // ' dge(', layer, ') = ', dge(layer),' um ' call m3mesg(xmsg) error_flag = .true. end if #endif if (dge(layer) .ge. mini_diameter_ice .and. dge(layer) .le. maxi_diameter_ice) then factor = freq_diameter_ice * (dge(layer) - mini_diameter_ice) index = int(factor) fint = max( factor - float(index),0.0 ) index = min( ndiameter_ice - 1, max( 1, index ) ) cloud_ice_ext(layer, iwl) = ice_extinct(index,iwl) & + fint * (ice_extinct(index+1,iwl) - ice_extinct(index,iwl)) cloud_ice_ssa(layer, iwl) = 1.0 - ice_coalbedo(index,iwl) & + fint * (ice_coalbedo(index+1,iwl) - ice_coalbedo(index,iwl)) cloud_ice_asy(layer, iwl) = ice_asymfact(index,iwl) & + fint * (ice_asymfact(index+1,iwl) - ice_asymfact(index,iwl)) cloud_ice_del(layer, iwl) = ice_deltrans(index,iwl) & + fint * (ice_deltrans(index+1,iwl) - ice_deltrans(index,iwl)) #ifdef phot_debug if (cloud_ice_del(layer, iwl) .gt. 1.0 .or. cloud_ice_del(layer, iwl) .lt. 0.0)then write(xmsg, 99950)'ice particle delta function outside bounds and equals ', & cloud_ice_del(layer, iwl),' at layer ', layer call m3mesg(xmsg) error_flag = .true. end if #endif if(cloud_ice_ssa(layer, iwl) .gt. low)then forwice = cloud_ice_del(layer, iwl) + 0.5 / cloud_ice_ssa(layer, iwl) else forwice = high end if ! See Fu (1996) p. 2067 if (cloud_ice_asy(layer, iwl) .ge. 1.0) cloud_ice_asy(layer, iwl) = cloud_ice_asy(layer, iwl)-low if (cloud_ice_asy(layer, iwl) .le. 0.0) cloud_ice_asy(layer, iwl) = cloud_ice_asy(layer, iwl)+low if (forwice .gt. cloud_ice_asy(layer, iwl)) forwice = cloud_ice_asy(layer, iwl) else if (dge(layer) .gt. maxi_diameter_ice) then if (effwl_ref(iwl) .lt. 0.700) then index = 1 else if (effwl_ref(iwl) .lt. 1.300) then index = 2 else if (effwl_ref(iwl) .lt. 1.900) then index = 3 else if (effwl_ref(iwl) .lt. 2.500) then index = 4 else ! if (effwl_ref(iwl) .e. 3.500) then index = 5 end if cloud_ice_ext(layer, iwl) = abari(index) + bbari(index)/dge(layer) cloud_ice_ssa(layer, iwl) = 1.0 - cbari(index) - dbari(index)*dge(layer) cloud_ice_asy(layer, iwl) = ebari(index) + fbari(index)*dge(layer) if (cloud_ice_asy(layer, iwl) .ge. 1.0)cloud_ice_asy(layer, iwl) = 1.0-low if (cloud_ice_asy(layer, iwl) .le. 0.0)cloud_ice_asy(layer, iwl) = cloud_ice_asy(layer, iwl)+low forwice = cloud_ice_asy(layer, iwl)*cloud_ice_asy(layer, iwl) end if ! adjust results for fraction of light in forward scattering peak from nonspheric particles ! see Appendix A in Fu (1996), equations A.2(a,b,c) !!! temporary to check interpolation method cloud_ice_ext(layer, iwl) = (1.0 - forwice*cloud_ice_ssa(layer, iwl)) & * cloud_ice_ext(layer, iwl) cloud_ice_ssa(layer, iwl) = cloud_ice_ssa(layer, iwl)*(1.0 - forwice) & / (1.0 - forwice*cloud_ice_ssa(layer, iwl)) cloud_ice_asy(layer, iwl) = (cloud_ice_asy(layer, iwl) - forwice) & / (1.0 - forwice) cloud_ice_del(layer, iwl) = forwice ! convert extinction coefficient to extinction per layer thickness cloud_ice_ext(layer, iwl) = cloud_ice_ext(layer, iwl) * iwc(layer) ! calculate scattering per per layer thickness cloud_ice_scat(layer, iwl) = cloud_ice_ssa(layer, iwl) * cloud_ice_ext(layer, iwl) #ifdef phot_debug ! Check to ensure all calculated quantities are within physical limits. if (cloud_ice_ext(layer, iwl) .lt. 0.0)then write(xmsg,99950)'ice particle extinction equals ', & cloud_ice_ext(layer, iwl), ' at layer = ',layer error_flag = .true. end if if (cloud_ice_ssa(layer, iwl) .gt. high .or. cloud_ice_ssa(layer, iwl) .lt. low)then write(xmsg, 99950)'ice particle SSA outside bounds and equals ', & cloud_ice_ssa(layer, iwl),' at layer ', layer call m3mesg(xmsg) ! error_flag = .true. end if if (cloud_ice_asy(layer, iwl) .gt. 1.0 .or. cloud_ice_asy(layer, iwl) .lt. -1.0)then write(xmsg, 99950)'ice particle asymmetery factor outside bounds and equals ', & cloud_ice_asy(layer, iwl),' at layer ', layer call m3mesg(xmsg) error_flag = .true. end if if (cloud_ice_scat(layer, iwl) .gt. cloud_ice_ext(layer, iwl))then write(xmsg, 99950)'ice particle scattering greater than extinction, SSA ', & cloud_ice_ssa(layer, iwl),' at layer ', layer call m3mesg(xmsg) error_flag = .true. end if #endif end do end do #ifdef phot_debug if( error_flag )then write(xmsg,99951)'Encountered the above Errors at COLUMN = ', col_cloud, & ' and ROW = ', row_cloud call m3exit(pname,0,0,'Encountered the above Errors', XSTAT1 ) end if #endif 99950 format(a,es12.4,a,i3) 99951 format(a,i5,a,i5) 99962 format(a,1x,10(es12.4,1x),a,10(es12.4,1x)) end subroutine get_ice_optics !----------------------------------------------------------------------- subroutine relcalc( levels, t, owater_frac, icefrac, snowfrac ) !----------------------------------------------------------------------- ! Purpose: ! Compute effective radius of cloud water droplets ! Subroutine adapted WRF version 3.5 by Phil Rasch ! Method: ! analytic formula following the formulation originally developed by J. T. Kiehl ! for CAM version 3.0 and 4.0 !----------------------------------------------------------------------- Implicit None ! Arguments: integer, intent( in ) :: levels ! layers to process real, intent( in ) :: t( : ) ! Air Temperature, K real, intent( in ) :: owater_frac ! Open water fractional coverage real, intent( in ) :: icefrac ! Sea Ice fractional coverage real, intent( in ) :: snowfrac ! Snow fractional coverage ! Parameters: real, parameter :: tmelt = 273.16 ! freezing temperature of fresh water (K) real, parameter :: rliqland = 8.0 ! liquid drop size if over land real, parameter :: rliqocean = 14.0 ! liquid drop size if over ocean real, parameter :: rliqice = 14.0 ! liquid drop size if over sea ice real, parameter :: del_land_ocean = rliqocean - rliqland ! real, parameter :: del_land_seaice = rliqice - rliqland real, parameter :: sheight_factor = 1.0e-2 ! conversion factor for snow height ! equal 0.001 in rrtmg implementation in WRF 3.5 ! times 10.0 factor in original relcalc subroutine ! variables: integer :: k ! loop counter real :: snowh ! snow height ! snowh = sheight_factor * snowfrac forall( k=1:levels ) ! effective radius algorithm ! Start with temperature-dependent value appropriate for continental air rel(k) = rliqland + del_land_ocean * min(1.0,max(0.0,0.05*(tmelt-t(k)))) ! Ramp up for snow frac over land; uses fill increase if snow_frac is 100% rel(k) = rel(k) + (rliqocean-rel(k)) * min(1.0, snowfrac) ! min(1.0,max( 0.0, snowh)) ! Ramp up between polluted value over land to clean value over ocean. rel(k) = rel(k) + (rliqocean-rel(k)) * min(1.0,max( 0.0, owater_frac)) ! Ramp up between the resultant value and a sea ice value in the presence of ice. rel(k) = rel(k) + (rliqice-rel(k)) * min(1.0,max( 0.0, icefrac )) end forall end subroutine relcalc !----------------------------------------------------------------------- subroutine get_droplet_optics( levels, t, owater_frac, icefrac, snowfrac, lwc ) USE UTILIO_DEFN ! IO functions and parameters USE CSQY_DATA ! number and value of wavelengths Implicit None ! Agruments: integer, intent( inout ) :: levels ! layers to process real, intent( inout ) :: t( : ) ! Air Temperature, K real, intent( inout ) :: owater_frac ! Open water fractional coverage real, intent( inout ) :: icefrac ! Sea Ice fractional coverage real, intent( inout ) :: snowfrac ! Snow fractional coverage real, intent( in ) :: lwc( : ) ! cloud liquid water content, g/m3 ! local: real :: radliq real :: fint integer :: index integer :: iwl integer :: layer character( 132 ) :: XMSG character( 32 ), save :: pname = 'GET_DROPLET_OPTICS' logical :: error_flag error_flag = .false. ! forall( layer = 1:levels ) ! rel( layer ) = 0.0 ! forall( iwl = 1:nwl_ref ) ! cloud_liquid_ext ( layer, iwl ) = cldmin ! cloud_liquid_scat( layer, iwl ) = cldtiny ! cloud_liquid_ssa ( layer, iwl ) = high ! cloud_liquid_asy ( layer, iwl ) = 0.0 ! end forall ! end forall cloud_liquid_ext ( 1:levels, 1:nwl_ref ) = cldmin cloud_liquid_scat( 1:levels, 1:nwl_ref ) = cldtiny cloud_liquid_ssa ( 1:levels, 1:nwl_ref ) = high cloud_liquid_asy ( 1:levels, 1:nwl_ref ) = 0.0 if( maxval(lwc) .le. cldmin )return call relcalc( levels, t, owater_frac, icefrac, snowfrac ) ! Calculation of optical coefficients due to water clouds droplets ! Note that this loop structure may not be the most efficientbecuase the ! inner loop use the farther right array index. The code does this because cycle ! condition per layer may be more efficient than iterating over wavelength than ! layer error_flag = .false. do layer = 1, levels if( lwc( layer ) .le. cldmin )cycle do iwl = 1, nwl_ref radliq = rel(layer) #ifdef phot_debug if (radliq .lt. mini_radius_liquid .or. radliq .gt. maxi_radius_liquid)then write(xmsg, 99950)'liquid effective radius outside bounds and equals ', radliq, & ' um at layer ', layer call m3mesg(xmsg) error_flag = .true. end if #endif index = int(radliq - init_radius_liquid) if (index .le. 0) index = 1 if (index .ge. nradius_liquid) index = nradius_liquid - 1 fint = max( freq_radius_liquid*(radliq - init_radius_liquid - real(index)), 0.0) cloud_liquid_ext(layer, iwl) = liquid_extinct(index,iwl) & + fint * (liquid_extinct(index+1,iwl) - liquid_extinct(index,iwl)) cloud_liquid_ssa(layer, iwl) = 1.0 - liquid_coalbedo(index,iwl) & + fint * (liquid_coalbedo(index+1,iwl) - liquid_coalbedo(index,iwl)) if (cloud_liquid_ssa(layer, iwl) .le. 0.0)then cloud_liquid_ssa(layer, iwl) = cloud_liquid_ssa(layer, iwl) + low else if(cloud_liquid_ssa(layer, iwl) .ge. 1.0)then cloud_liquid_ssa(layer, iwl) = cloud_liquid_ssa(layer, iwl) - low end if cloud_liquid_asy(layer, iwl) = liquid_asymfact(index,iwl) & + fint * (liquid_asymfact(index+1,iwl) - liquid_asymfact(index,iwl)) ! forwliq(iwl) = cloud_liquid_asy(ig)*cloud_liquid_asy(iwl) ! convert extinction coefficient into extinction per layer cloud_liquid_ext(layer, iwl) = cloud_liquid_ext(layer, iwl) * lwc(layer) ! calculate scattering per layer cloud_liquid_scat(layer, iwl) = cloud_liquid_ssa(layer, iwl) * cloud_liquid_ext(layer, iwl) #ifdef phot_debug ! Check to ensure all calculated quantities are within physical limits. if (cloud_liquid_ext(layer, iwl) .lt. 0.0)then write(xmsg,99950)'cloud droplet extinction equals ', & cloud_liquid_ext(layer, iwl), ' at layer = ',layer error_flag = .true. end if if (cloud_liquid_ssa(layer, iwl) .gt. high .or. cloud_liquid_ssa(layer, iwl) .lt. low)then write(xmsg, 99950)'liquid cloud droplet SSA outside bounds and equals ', & cloud_liquid_ssa(layer, iwl),' at layer ', layer call m3mesg(xmsg) ! error_flag = .true. end if if (cloud_liquid_scat(layer, iwl) .gt. cloud_liquid_ext(layer, iwl))then write(xmsg, 99950)'cloud droplet scattering greater than extinction, SSA = ', & cloud_liquid_ssa(layer, iwl),' at layer ', layer call m3mesg(xmsg) error_flag = .true. end if if (cloud_liquid_asy(layer, iwl) .gt. 1.0 .or. cloud_liquid_asy(layer, iwl) .lt. -1.0)then write(xmsg, 99950)'liquid cloud droplet asymmetery factor outside bounds and equals ', & cloud_liquid_asy(layer, iwl),' at layer ', layer call m3mesg(xmsg) error_flag = .true. end if #endif end do end do #ifdef phot_debug if( error_flag )then write(xmsg,99951)'Encountered the above Errors at COLUMN = ', col_cloud, & ' and ROW = ', row_cloud call m3exit(pname,0,0,'Encountered the above Errors', XSTAT1 ) end if #endif 99950 format(a,es12.4,a,i3) 99951 format(a,i5,a,i5) end subroutine get_droplet_optics !----------------------------------------------------------------------- subroutine aggreg_size_effective(hydro_type, q, reff, nlayers) !--------------------------------------------------------------------------- ! Purpose: compute effective radius of cloud water and ice aggregegates: ! rain droplets, snowflakes and graupel from water liquid and ice ! ! METHOD: ! assume exponential particle size distribution and spherical particles ! use Gauss-Laguerre Quadrature for integration ! HISTORY: 08/15/2014: B.Hutzell adapted from NCAR CAM model version 3 !--------------------------------------------------------------------------- implicit none !..Includes: ! INCLUDE SUBST_CONST ! CMAQ constants !...Arguments: integer, intent(in) :: hydro_type ! aggregegate to calculate real, intent(in) :: q ( : ) ! aggregegate mixing ratio, g/m3 real, intent(out) :: reff( : ) ! effective radius, um integer, intent(in) :: nlayers ! # of layers ! constants ! values for n0 values taken from default column of Table 1. in Wainwright et. al (2014) ! J. of Appl. Meteo. Climat., vol 53. pp 2072. real( 8 ), parameter :: n0_rain = 0.08D0 ! cm(-4) real( 8 ), parameter :: n0_snow = 0.03D0 ! cm(-4) real( 8 ), parameter :: n0_grau = 0.005D0 ! cm(-4) real( 8 ), parameter :: rho_rain = 1000.0D0 ! kg m(-3) real( 8 ), parameter :: rho_snow = 100.0D0 ! kg m(-3) real( 8 ), parameter :: rho_grau = 400.0D0 ! kg m(-3) real( 8 ), parameter :: chi_rain = -4.47806054D+01 ! -2.0*(1.0e+3*pi*rho_rain*n0_rain)**0.25, (cm-4*g/m3)**.25 real( 8 ), parameter :: chi_snow = -1.97059682D+01 ! -2.0*(1.0e+3*pi*rho_snow*n0_snow)**0.25, (cm-4*g/m3)**.25 real( 8 ), parameter :: chi_grau = -1.78063523D+01 ! -2.0*(1.0e+3*pi*rho_grau*n0_grau)**0.25, (cm-4*g/m3)**.25 !!!!!!!!!!! real, parameter :: limit = 1.0E-10 ! value of q where calculation converges to a lower limit real, parameter :: limit = 1.0E-04 ! value of q where calculation converges to a upper limit real, parameter :: dmin_snow = 887.873 ! lower convergence results for snow, um real, parameter :: dmin_grau = dmin_snow ! lower convergence results for graupel, um real, parameter :: dmin_rain = 0.5*dmin_snow ! lower convergence results for rain, um ! local variables integer :: lay, nk real( 8 ) :: rho_hydro real( 8 ) :: sum1, sum2 real( 8 ) :: lamda real( 8 ) :: n0 real( 8 ) :: chi real( 8 ) :: comp real( 8 ) :: psd ! partical size distribution real( 8 ) :: argument real :: factor real :: dmin ! value if q .le. limit ! initialize ! ! cloud rain/snow/graupel effective radius ! if ( maxval( q ) .le. cldmin )then reff( 1:nlayers ) = min_dge return end if select case ( hydro_type ) case( 1 ) rho_hydro = rho_rain n0 = n0_rain chi = chi_rain factor = 1.0e+4 dmin = dmin_rain case( 2 ) rho_hydro = rho_snow n0 = n0_snow chi = chi_snow factor = 2.0e+4 dmin = dmin_snow case( 3 ) rho_hydro = rho_grau n0 = n0_grau chi = chi_grau factor = 2.0e+4 dmin = dmin_snow case default reff( 1:nlayers ) = min_dge return end select do lay = 1, nlayers ! lamda = (1.0e+3*pi*rho_hydro*n0/q(lay))**0.25 if( q(lay) .le. limit )then reff(lay) = dmin cycle end if lamda = chi*(1.0D0/real( q(lay), 8))**0.25D0 sum1 = 0.0D0 sum2 = 0.0D0 !original method used thirty-two nodes do nk = 1, 32 argument = lamda*xk(nk) if( argument .lt. cloud_log_smallest ) cycle ! assume dexp( argument ) equals zero psd = n0*dexp( argument ) comp = newtotalw(nk) * psd sum2 = sum2 + comp sum1 = sum1 + xk(nk)*comp ! reff results sixteen point seem off from thirty two points up to a factor of two ! do nk = 1, 16 ! psd = n0*exp(lamda*gauss_laguerre_node(nk)) ! comp = gauss_laguerre_total(nk) * psd ! sum2 = sum2 + comp ! sum1 = sum1 + gauss_laguerre_node(nk)*comp end do if( sum2 .lt. cloud_smallest )then reff(lay) = dmin else reff(lay) = factor * real( sum1/sum2, 4 ) ! microns end if end do end subroutine aggreg_size_effective !----------------------------------------------------------------------- subroutine get_aggregate_optics( levels, rwc, swc, gwc ) ! Purpose calculate optical properties for aggregates: combined rain droplet, snowflakes and graupel ! Uses Fu (1996) parameterization for ice particle generalized effective size, dge, from 5 to 140 microns, ! Algorithm adapted Rapid Radiative Model Global (RRTMG) version 3.9 and Weather Research Forecasting model ! (WRF) version 3.6 use VGRD_DEFN, ONLY : NLAYS USE UTILIO_DEFN ! IO functions and parameters USE CSQY_DATA ! number and value of wavelengths IMPLICIT NONE ! arguments: integer, intent( inout ) :: levels ! layer to processes real, intent( inout ) :: rwc( : ) ! rain water content, g/m3 real, intent( inout ) :: swc( : ) ! snowflake content, g/m3 real, intent( inout ) :: gwc( : ) ! graupel content, g/m3 ! Local: real :: factor real :: fint real :: forwice ! forward sccatering parameter real :: reff_rain( nlays ) ! effective radius of rain droplet, um real :: deff_snow( nlays ) ! effective diameter of snowflakes, um real :: deff_graupel( nlays ) ! effective diameter of graupel, um real :: deff_hydro( nlays ) ! effective diameter for unmodified hydrometeor, um real :: hydro_content( nlays ) ! unmodified hydrometeor content, g/m3 real :: rain_ext ! rain droplet extinction coefficient, 1/m real :: rain_ssa ! rain droplet sing scattering albedo real :: rain_scat ! rain droplet scattering coefficient, 1/m real :: rain_asy ! rain droplet asymmetry factor real :: snow_ext ! snowflake extinction coefficient, 1/m real :: snow_ssa ! snowflake sing scattering albedo real :: snow_scat ! snowflake scattering coefficient, 1/m real :: snow_asy ! snowflake asymmetry factor real :: graupel_ext ! graupel extinction coefficient, 1/m real :: graupel_ssa ! graupel sing scattering albedo real :: graupel_scat ! graupel scattering coefficient, 1/m real :: graupel_asy ! graupel asymmetry factor real :: snow_del ! snowflake delta forward tranmission function real :: graupel_del ! graupel delta forward tranmission function integer :: iwl ! loop counter integer :: layer ! loop counter integer :: index character( 132 ) :: XMSG character( 32 ), save :: pname = 'GET_AGGREGATE_OPTICS' logical :: error_flag logical :: normalize ! for rain droplets used simple parameterization in Goddard Radiation Model normalize = .false. error_flag = .false. ! initialize optical properties to minimums forall( layer = 1:levels, iwl = 1:nwl_ref ) cloud_aggreg_ext ( layer,iwl ) = cldmin cloud_aggreg_scat( layer,iwl ) = cldtiny cloud_aggreg_asy ( layer,iwl ) = 0.0 cloud_aggreg_ssa ( layer,iwl ) = high end forall ! cloud_aggreg_ext ( 1:levels,1:nwl_ref ) = cldmin ! cloud_aggreg_scat( 1:levels,1:nwl_ref ) = cldtiny ! cloud_aggreg_ssa ( 1:levels,1:nwl_ref ) = high ! cloud_aggreg_asy ( 1:levels,1:nwl_ref ) = 0.0 if( maxval( rwc ) .gt. cldmin )then !!!!!!!!! call aggreg_size_effective( 1, rwc, reff_rain, levels) !Parameterization for rain droplets is taken from Goddard Space Flight Radiation Model !in WRF version 3.6. Their derivation is discussed in Chou and Suarez (1999), ! A Solar Radiation Parameterization for Atmospheric Studies, NASA/TM-1999-104606, !Vol. 15, pages 17-20. rain_ext = 3.0e-3 rain_ssa = high rain_scat = rain_ssa*rain_ext rain_asy = 0.883 do layer = 1, levels if( rwc( layer ) .le. cldmin )cycle forall ( iwl = 1:nwl_ref ) cloud_aggreg_ext (layer,iwl) = rain_ext * rwc(layer) cloud_aggreg_scat(layer,iwl) = rain_scat * rwc(layer) cloud_aggreg_asy (layer,iwl) = rain_asy * cloud_aggreg_scat(layer, iwl) cloud_aggreg_ssa (layer, iwl) = rain_ssa end forall end do normalize = .true. end if if( maxval( swc ) .gt. cldmin )then call aggreg_size_effective( 2, swc, deff_snow, levels) do layer = 1, levels if( swc( layer ) .le. cldmin )cycle deff_hydro(layer) = deff_snow(layer) ! correct the snowflake effective size to be within maxi and min parameters then ! updated concentrations. Latter step is taken from the RRTMG code version 3.9 so Fu (1996) can be ! used for optical properties. if( deff_snow( layer ) .ge. maxi_diameter_ice )then hydro_content( layer ) = swc( layer ) * max_dge_squ & / (deff_snow( layer )*deff_snow( layer )) else hydro_content(layer) = swc(layer) end if deff_snow( layer ) = max( min( deff_snow( layer ), max_dge ), min_dge ) do iwl = 1, nwl_ref factor = freq_diameter_ice * (deff_snow(layer) - mini_diameter_ice) index = int(factor) fint = max( factor - float(index),0.0 ) index = min( ndiameter_ice - 1, max( 1, index ) ) snow_ext = ice_extinct(index,iwl) & + fint * (ice_extinct(index+1,iwl) - ice_extinct(index,iwl)) snow_ssa = 1.0 - ice_coalbedo(index,iwl) & + fint * (ice_coalbedo(index+1,iwl) - ice_coalbedo(index,iwl)) snow_asy = ice_asymfact(index,iwl) & + fint * (ice_asymfact(index+1,iwl) - ice_asymfact(index,iwl)) snow_del = ice_deltrans(index,iwl) & + fint * (ice_deltrans(index+1,iwl) - ice_deltrans(index,iwl)) #ifdef phot_debug if (snow_del .gt. 1.0 .or. snow_del .lt. 0.0)then write(xmsg, 99960)'snowflake delta function outside bounds and equals ', & snow_del,' at layer ', layer call m3mesg(xmsg) error_flag = .true. end if ! if( iwl .eq. 1 .and. row_cloud .eq. 1 .and. col_cloud .eq. 1 )then ! write(log_cloud_optics,99962)'hdc,deff_snow,snow_ext,snow_asy,ssa,del = ', ! & hydro_content( layer ),deff_snow(layer),snow_ext,snow_asy, ! & snow_ssa, snow_del ! end if #endif if(snow_ssa .gt. low)then forwice = snow_del + 0.5 / snow_ssa else forwice = high end if ! See Fu (1996) p. 2067 if (snow_asy .ge. 1.0) snow_asy = snow_asy-low if (snow_asy .le. 0.0) snow_asy = snow_asy+low if (forwice .gt. snow_asy) forwice = snow_asy ! adjust results for fraction of light in forward scattering peak from nonspheric particles ! see Appendix A in Fu (1996), equations A.2(a,b,c) snow_ext = (1.0 - forwice*snow_ssa) * snow_ext snow_ssa = snow_ssa*(1.0 - forwice) / (1.0 - forwice*snow_ssa) snow_asy = (snow_asy - forwice) / (1.0 - forwice) snow_del = forwice ! calculate extinction and scattering coefficients per layer snow_ext = snow_ext * hydro_content(layer) snow_scat = snow_ssa * snow_ext #ifdef phot_debug ! Check to ensure all calculated quantities are within physical limits. if (snow_ext .lt. 0.0 .or. snow_ext .ne. snow_ext )then write(xmsg,99960)'snowflake extinction equals ', & snow_ext, ' at layer = ',layer error_flag = .true. end if if (snow_ssa .gt. high .or. snow_ssa .lt. low .or. snow_ssa .ne. snow_ssa )then write(xmsg, 99960)'snowflake SSA outside bounds and equals ', & snow_ssa,' at layer ', layer call m3mesg(xmsg) ! error_flag = .true. end if if (snow_asy .ge. 1.0 .or. snow_asy .le. -1.0 .or. snow_asy .ne. snow_asy )then write(xmsg, 99960)'snowflake asymmetery factor outside bounds and equals ', & snow_asy,' at layer ', layer call m3mesg(xmsg) error_flag = .true. end if if (snow_scat .gt. snow_ext)then write(xmsg, 99960)'snowflake scattering greater than extinction, SSA ', & snow_ssa,' at layer ', layer call m3mesg(xmsg) error_flag = .true. end if ! if( iwl .eq. 1 .and. row_cloud .eq. 1 .and. col_cloud .eq. 1 )then ! write(log_cloud_optics,99962)'swc,deff_hydro,snow_ext,snow_scat,snow_asyssa,del = ', ! & swc( layer ),deff_hydro(layer),snow_ext/hydro_content(layer),snow_scat/hydro_content(layer),snow_asy, ! & snow_ssa, snow_del ! end if #endif cloud_aggreg_ext(layer, iwl) = cloud_aggreg_ext(layer, iwl) + snow_ext cloud_aggreg_scat(layer, iwl) = cloud_aggreg_scat(layer, iwl) + snow_scat cloud_aggreg_asy(layer, iwl) = cloud_aggreg_asy(layer, iwl) + (snow_asy*snow_scat) #ifdef phot_debug ! if( abs( cloud_aggreg_asy(layer, iwl) ) .ge. cloud_aggreg_scat(layer, iwl) )then ! write(log_cloud_optics,99962) ! & 'swc,deff_hydro,snow_ext,snow_scat,snow_asy * snow_scat, ssa,del, cloud_aggreg_asy = ', ! & swc( layer ),deff_hydro(layer),snow_ext,snow_scat,(snow_asy*snow_scat), ! & snow_ssa, snow_del, cloud_aggreg_asy(layer, iwl), cloud_aggreg_scat(layer, iwl) ! end if #endif end do end do normalize = .true. end if if( maxval( gwc ) .gt. cldmin )then call aggreg_size_effective( 3, gwc, deff_graupel, levels) do layer = 1, levels if( gwc( layer ) .le. cldmin )cycle deff_hydro(layer) = deff_graupel(layer) ! correct effective size to be within maxi and min parameters then ! updated concentrations. Latter step is taken from the RRTMG code ! version 3.9 so Fu (1996) can be used for optical properties. if( deff_graupel( layer ) .ge. maxi_diameter_ice )then hydro_content( layer ) = gwc( layer ) * max_dge_squ & / (deff_graupel( layer )*deff_graupel( layer )) else hydro_content(layer) = gwc(layer) end if deff_graupel( layer ) = max( min( deff_graupel( layer ), max_dge ), min_dge ) do iwl = 1, nwl_ref factor = freq_diameter_ice * (deff_graupel(layer) - mini_diameter_ice) index = int(factor) fint = max( factor - float(index), 0.0 ) index = min( ndiameter_ice - 1, max( 1, index ) ) graupel_ext = ice_extinct(index,iwl) & + fint * (ice_extinct(index+1,iwl) - ice_extinct(index,iwl)) graupel_ssa = 1.0 - ice_coalbedo(index,iwl) & + fint * (ice_coalbedo(index+1,iwl) - ice_coalbedo(index,iwl)) graupel_asy = ice_asymfact(index,iwl) & + fint * (ice_asymfact(index+1,iwl) - ice_asymfact(index,iwl)) graupel_del = ice_deltrans(index,iwl) & + fint * (ice_deltrans(index+1,iwl) - ice_deltrans(index,iwl)) #ifdef phot_debug if (graupel_del .gt. 1.0 .or. graupel_del .lt. 0.0)then write(xmsg, 99960)'graupel delta function outside bounds and equals ', & graupel_del,' at layer ', layer call m3mesg(xmsg) error_flag = .true. end if ! if( iwl .eq. 1 .and. row_cloud .eq. 1 .and. col_cloud .eq. 1 )then ! write(log_cloud_optics,99962)'hdc,deff_graupel,graupel_ext,graupel_asy,ssa,del = ', ! & hydro_content( layer ),deff_graupel(layer),graupel_ext,graupel_asy, ! & graupel_ssa, graupel_del ! end if #endif if(graupel_ssa .gt. low)then forwice = graupel_del + 0.5 / graupel_ssa else forwice = high end if ! See Fu (1996) p. 2067 if (graupel_asy .ge. 1.0) graupel_asy = graupel_asy-low if (graupel_asy .le. 0.0) graupel_asy = graupel_asy+low if (forwice .gt. graupel_asy) forwice = graupel_asy ! adjust results for fraction of light in forward scattering peak from nonspheric particles ! see Appendix A in Fu (1996), equations A.2(a,b,c) !!! temporary to check interpolation method graupel_ext = (1.0 - forwice*graupel_ssa) * graupel_ext graupel_ssa = graupel_ssa*(1.0 - forwice) / (1.0 - forwice*graupel_ssa) graupel_asy = (graupel_asy - forwice) / (1.0 - forwice) graupel_del = forwice ! calculate extinction and scattering coefficients per layer graupel_ext = graupel_ext * hydro_content(layer) graupel_scat = graupel_ssa * graupel_ext #ifdef phot_debug ! Check to ensure all calculated quantities are within physical limits. if (graupel_ext .lt. 0.0 .or. graupel_ext .ne. graupel_ext )then write(xmsg,99960)'graupel extinction equals ', & graupel_ext, ' at layer = ',layer error_flag = .true. end if if (graupel_ssa .gt. high .or. graupel_ssa .lt. low .or. graupel_ssa .ne. graupel_ssa )then write(xmsg, 99960)'graupel SSA outside bounds and equals ', & graupel_ssa,' at layer ', layer call m3mesg(xmsg) ! error_flag = .true. end if if (graupel_asy .gt. 1.0 .or. graupel_asy .lt. -1.0 .or. graupel_asy .ne. graupel_asy )then write(xmsg, 99960)'graupel asymmetery factor outside bounds and equals ', & graupel_asy,' at layer ', layer call m3mesg(xmsg) error_flag = .true. end if ! if( iwl .eq. 1 .and. row_cloud .eq. 1 .and. col_cloud .eq. 1 )then ! write(log_cloud_optics,99962)'gwc,deff_hydro,graupel_ext,graupel_scat,graupel_asy,ssa,del = ', ! & gwc( layer ),deff_hydro(layer),graupel_ext/hydro_content(layer),graupel_scat/hydro_content(layer), ! & graupel_asy,graupel_ssa, graupel_del ! end if #endif cloud_aggreg_ext(layer, iwl) = cloud_aggreg_ext(layer, iwl) + graupel_ext cloud_aggreg_scat(layer, iwl) = cloud_aggreg_scat(layer, iwl) + graupel_scat cloud_aggreg_asy(layer, iwl) = cloud_aggreg_asy(layer, iwl) + (graupel_asy*graupel_scat) #ifdef phot_debug if( abs( cloud_aggreg_asy(layer, iwl) ) .gt. cloud_aggreg_scat(layer, iwl) )then write(logdev,99962) & 'gwc,deff_hydro,graupel_ext,graupel_scat,graupel_asy*graupel_scat,ssa,del, cloud_aggreg_asy = ', & gwc( layer ),deff_hydro(layer),graupel_ext,graupel_scat,(graupel_asy*graupel_scat), & graupel_ssa, graupel_del, cloud_aggreg_asy(layer, iwl), cloud_aggreg_scat(layer, iwl) end if #endif end do end do normalize = .true. end if ! computed average properties: single scattering albedo and asymmetery factor if( .Not. normalize )RETURN forall( layer = 1:levels, iwl = 1:nwl_ref ) cloud_aggreg_ssa(layer,iwl) = cloud_aggreg_scat(layer,iwl)/cloud_aggreg_ext(layer,iwl) cloud_aggreg_asy(layer,iwl) = cloud_aggreg_asy(layer,iwl)/cloud_aggreg_scat(layer,iwl) end forall #ifdef phot_debug ! do layer = 1, nlays ! do iwl = 1,nwl_ref ! if( abs( cloud_aggreg_asy(layer, iwl) ) .ge. 1.0 )then ! write(log_cloud_optics,99964) ! & 'layer, iwln cloud_aggreg_scat, cloud_aggreg_scat, cloud_aggreg_ssa, cloud_aggreg_asy = ', ! & layer, iwl, cloud_aggreg_ext(layer, iwl), cloud_aggreg_scat(layer, iwl), cloud_aggreg_ssa(layer, iwl), ! & cloud_aggreg_asy(layer, iwl) ! error_flag = .true. ! end if ! end do ! end do if( error_flag )then write(xmsg,99961)'Encountered the above Errors at COLUMN = ', col_cloud, & ' and ROW = ', row_cloud call m3exit(pname,0,0,'Encountered the above Errors', XSTAT1 ) end if #endif 99960 format(a,es12.4,a,i3) 99961 format(a,i5,a,i5) 99962 format(a,1x,10(es12.4,1x),a,10(es12.4,1x)) 99964 format(a,2(1x,i3),1x,10(es12.4,1x),a,10(es12.4,1x)) end subroutine get_aggregate_optics !----------------------------------------------------------------------- subroutine clear_hydrometeor_optics() implicit none !Purpose clear values for hydrometeor optical properties !Arguments: None cloud_liquid_ext = 0.0 cloud_liquid_scat = 0.0 cloud_liquid_ssa = 1.0 cloud_liquid_asy = 0.0 cloud_ice_ext = 0.0 cloud_ice_scat = 0.0 cloud_ice_ssa = 1.0 cloud_ice_asy = 0.0 cloud_aggreg_ext = cldmin cloud_aggreg_scat = cldtiny cloud_aggreg_ssa = 1.0 cloud_aggreg_asy = 0.0 end subroutine clear_hydrometeor_optics end module cloud_optics ================================================ FILE: CCTM/src/phot/inline/CSQY_DATA.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! !::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: MODULE CSQY_DATA USE RUNTIME_VARS IMPLICIT NONE CHARACTER( 32 ), PUBLIC :: JTABLE_REF INTEGER, PUBLIC :: NPHOT_REF ! # ref phot reactions INTEGER, PUBLIC :: NTEMP_REF ! # ref temperatures INTEGER, PUBLIC :: NWL_REF ! # ref wavelengths !...Names of the mapped photolysis reactions (available to chemical) !... mechanisms) and their pointers to the reference photolysis rxn CHARACTER( 16 ), ALLOCATABLE, PUBLIC :: PNAME_REF( : ) !...Setup the Mapping from CMAQ chemical reactions to the reference data INTEGER, PUBLIC :: NPHOT_MAP ! # phot mapped reactions CHARACTER( 16 ), ALLOCATABLE, PUBLIC :: PNAME_MAP( : ) INTEGER, ALLOCATABLE, PUBLIC :: PHOT_MAP ( : ) REAL, PUBLIC, ALLOCATABLE :: STWL_REF ( : ) REAL, PUBLIC, ALLOCATABLE :: EFFWL_REF( : ) REAL, PUBLIC, ALLOCATABLE :: ENDWL_REF( : ) REAL, ALLOCATABLE, PUBLIC :: CLD_BETA_REF ( : ) ! cloud extinction coef divided by LWC REAL, ALLOCATABLE, PUBLIC :: CLD_COALBEDO_REF( : ) ! cloud coalbedo REAL, ALLOCATABLE, PUBLIC :: CLD_G_REF ( : ) ! cloud asymmetry factor REAL, ALLOCATABLE, PUBLIC :: FSOLAR_REF( : ) ! initial solar flux [photons*cm-2*s-1] REAL, ALLOCATABLE, PUBLIC :: TEMP_BASE ( : ) ! reference temperatures REAL, ALLOCATABLE, PUBLIC :: TEMP_REF( :,: ) ! reference temperatures REAL, ALLOCATABLE, PUBLIC :: CS_REF ( :,:,: ) ! effective cross sections REAL, ALLOCATABLE, PUBLIC :: QY_REF ( :,:,: ) ! effective quantum yields REAL, ALLOCATABLE, PUBLIC :: ECS_REF( :,:,: ) ! CS*QY averaged UCI Solar Flux INTEGER, PUBLIC :: NTEMP_STRAT_REF ! number of stratos temperatures REAL, ALLOCATABLE, PUBLIC :: TEMP_STRAT_REF( : ) ! temperature for stratos O3 xcross, K REAL, ALLOCATABLE, PUBLIC :: O3_CS_STRAT_REF( :,: ) ! ozone xcross at stratos temperatures, cm2 !... effective quantum yields were computed by performing separate !... interval integrations for the cross sections and for the !... effective cross sections (cs*qy) (calculated on the finer !... wavelength grid. The effective quantum yield values !... were then calculated for the 7 wavelength intervals by !... dividing the effective cross sections by the interval average !... cross sections (eQY=eCS/CS). REAL, ALLOCATABLE, PUBLIC :: EQY_REF( :,:,: ) ! eCS/CS averaged 77 bins in UCI Model INTEGER, PUBLIC :: NUM_REFRACTIVE TYPE MODAL_COMPLEX CHARACTER( 16 ) :: NAME ! name of complex property REAL, ALLOCATABLE, DIMENSION( :, : ) :: REAL_PART ! real part REAL, ALLOCATABLE, DIMENSION( :, : ) :: IMAG_PART ! imaginary part END TYPE MODAL_COMPLEX TYPE( MODAL_COMPLEX ), ALLOCATABLE, PUBLIC :: REFRACTIVE_INDEX( : ) INTEGER, PUBLIC :: IWLR ! wavelength loop variable INTEGER, PUBLIC :: ITTR ! temperature loop variable ! arrays for the size and optical properties of liquid droplets. The latter ! is a function of radius and wavelength INTEGER, PUBLIC :: NRADIUS_LIQUID REAL, ALLOCATABLE, PUBLIC :: RADIUS_LIQUID( : ) ! droplet radius, um REAL, PUBLIC :: INIT_RADIUS_LIQUID REAL, PUBLIC :: MAXI_RADIUS_LIQUID REAL, PUBLIC :: MINI_RADIUS_LIQUID REAL, PUBLIC :: FREQ_RADIUS_LIQUID REAL, ALLOCATABLE, PUBLIC :: LIQUID_EXTINCT( :, : ) ! extinction coefficient, m**3/g REAL, ALLOCATABLE, PUBLIC :: LIQUID_ASYMFACT( :, : ) ! asymmetery factor, dimensionaless REAL, ALLOCATABLE, PUBLIC :: LIQUID_COALBEDO( :, : ) ! One minus single scattering albebo, dimensionaless ! arrays for the size and optical properties of ice particles. The latter ! is a function of effective diameter and wavelength INTEGER, PUBLIC :: NDIAMETER_ICE REAL, ALLOCATABLE, PUBLIC :: DIAMETER_ICE( : ) ! particle effective diameter, um REAL, PUBLIC :: INIT_DIAMETER_ICE REAL, PUBLIC :: MAXI_DIAMETER_ICE REAL, PUBLIC :: MINI_DIAMETER_ICE REAL, PUBLIC :: FREQ_DIAMETER_ICE REAL, ALLOCATABLE, PUBLIC :: ICE_EXTINCT( :, : ) ! extinction coefficient, m**3/g REAL, ALLOCATABLE, PUBLIC :: ICE_ASYMFACT( :, : ) ! asymmetery factor, dimensionaless REAL, ALLOCATABLE, PUBLIC :: ICE_COALBEDO( :, : ) ! One minus single scattering albebo, dimensionaless REAL, ALLOCATABLE, PUBLIC :: ICE_DELTRANS( :, : ) ! Delta Transmission Function at zero scattering angle, dimensionaless PUBLIC :: LOAD_CSQY_DATA, LOAD_OPTICS_DATA, GET_CSQY !***Information for photolysis INTEGER, SAVE :: NWL ! number of wavelengths ! INTEGER, PARAMETER :: NWL_INLINE_METHOD = 7 INTEGER JWAVE ! index use for wavelength INTEGER ITEMP ! index for temperature INTEGER IRRXN REAL, ALLOCATABLE :: WAVELENGTH( : ) ! effective wavelengths [nm ] REAL, ALLOCATABLE :: WAVENUMBER( : ) ! effective wavenumbers [cm-1] REAL, ALLOCATABLE :: FEXT( : ) ! downward solar direct flux at the top of ! of the Atmosphere. [ photons / ( cm **2 s) ] !***surface albedo REAL, ALLOCATABLE :: ALB( : ) ! set in subroutine PHOT !**Cloud albedo values from JPROC REAL, ALLOCATABLE :: CLOUD_BETA_LWC( : ) ! cloud extinction coef divided by LWC REAL, ALLOCATABLE :: CLOUD_COALBEDO( : ) ! cloud coalbedo REAL, ALLOCATABLE :: CLOUD_G( : ) ! cloud asymmetry factor INTEGER :: NTEMP_STRAT REAL, ALLOCATABLE :: XO3CS( :,: ) ! REAL, ALLOCATABLE :: TEMP_O3_STRAT( : ) ! temperature for XO3CS, K !***arrays for reference data for needed photolysis rates REAL, ALLOCATABLE :: XXCS( :,:,: ) ! absorption cross sections REAL, ALLOCATABLE :: XXQY( :,:,: ) ! quantum yield REAL, ALLOCATABLE :: RTEMP_S( :,: ) INTEGER :: MECHANISM_RATES CHARACTER(16), ALLOCATABLE :: PHOTOLYSIS_RATE( : ) ! subset of photolysis rates from CSQY DATA !***Indices for special case photolysis cross sections INTEGER :: LNO2 INTEGER :: LO3O1D INTEGER :: LO3O3P INTEGER :: LACETONE INTEGER :: LKETONE INTEGER :: LMGLY_ADJ INTEGER :: LMGLY_ABS INTEGER :: LHCHOR_06 INTEGER :: LH2O2 INTEGER :: LHNO3 INTEGER :: LACETONE_CO INTEGER :: LACETONE_CH3CO LOGICAL :: ACETONE_CHANNELS ! integer pointer for specific density correction to cross-section ! and/or quantum yield values INTEGER, PARAMETER :: ACETALDEHYDE = 1 INTEGER, PARAMETER :: HIGHER_ALDEHYDES = 2 INTEGER, PARAMETER :: METHYL_VINYL_KETONE = 3 INTEGER, PARAMETER :: METHYL_ACROLEIN = 4 INTEGER, PARAMETER :: METHYL_ETHYL_KETONE = 5 INTEGER, PARAMETER :: METHYL_GLYOXAL_IUPAC04 = 6 INTEGER, PARAMETER :: ACROLEIN = 7 INTEGER, PARAMETER :: FORMALDEHYDE_MOLECULAR = 8 INTEGER, PARAMETER :: ACETONE = 9 INTEGER, PARAMETER :: KETONE_LEGACY = 10 INTEGER, PARAMETER :: KETONE_RACM2 = 11 INTEGER, PARAMETER :: GLYOXAL_RACM2 = 12 INTEGER, PARAMETER :: METHYL_GLYOXAL_LEGACY = 13 INTEGER, PARAMETER :: NBUTYRALDEHYDE = 14 INTEGER, PARAMETER :: BIACETYL = 15 INTEGER, PARAMETER :: ACETONE_CH3CO = 16 INTEGER, PARAMETER :: GLYOXAL_IUPAC_2013 = 17 INTEGER, PARAMETER :: CH3CHO_IUPAC2013 = 18 CHARACTER( 32 ) :: CSQY_ADJUSTMENTS( 0:18 ) DATA CSQY_ADJUSTMENTS / & 'NO_ADJUSTMENT', & 'ACETALDEHYDE', & 'HIGHER_ALDEHYDES', & 'METHYL_VINYL_KETONE', & 'METHYL_ACROLEIN', & 'METHYL_ETHYL_KETONE', & 'METHYL_GLYOXAL_IUPAC04', & 'ACROLEIN', & 'FORMALDEHYDE_MOLECULAR', & 'ACETONE', & 'KETONE_LEGACY', & 'KETONE_RACM2', & 'GLYOXAL_RACM2', & 'METHYL_GLYOXAL_LEGACY', & 'NBUTYRALDEHYDE', & 'BIACETYL', & 'ACETONE_CH3CO', & 'GLYOXAL_IUPAC_2013', & 'CH3CHO_IUPAC2013' / ! integer pointer for density correction to a photolysis rates' cross-section ! and/or quantum yield values INTEGER, ALLOCATABLE :: CSQY_ADJUST( : ) REAL, ALLOCATABLE :: IPHI0_MGLY( : ) ! Reciprocal Methyl Glyoxal Quantum Yields at zero pressure REAL, ALLOCATABLE :: KMGLY ( : ) ! Quenching Coefficient for Methyl Glyoxal Quantum Yields ! coefficients used correct acetaldehyde Quantum Yields based on IUPAC 2013 recommendations REAL, ALLOCATABLE :: IPHIS_CH3CHO( : ) ! Reciprocal acetaldehyde Quantum Yields at surface pressure REAL, ALLOCATABLE :: IPHI0_CH3CHO( : ) ! Reciprocal acetaldehyde Quantum Yields at zero pressure REAL, ALLOCATABLE :: KCH3CHO ( : ) ! Quenching Coefficient for acetaldehyde Quantum Yields INTEGER :: IREFTEMPS ! number of ref. temperatures INTEGER :: NUMB_LANDUSE_REF INTEGER :: INDEX_GRASSLAND_REF INTEGER :: INDEX_OCEAN_REF INTEGER :: INDEX_SEA_ICE CHARACTER(30), ALLOCATABLE :: LANDUSE_REF( : ) REAL, ALLOCATABLE :: ZENITH_COEFF_REF( : ) REAL, ALLOCATABLE :: SEASON_COEFF_REF( : ) REAL, ALLOCATABLE :: SNOW_COEFF_REF( : ) REAL, ALLOCATABLE :: SPECTRAL_ALBEDO_REF( :,: ) INTEGER, PARAMETER :: NUMB_EXPECT_NLCD50 = 50 INTEGER :: NUMB_LANDUSE_NLCD50 CHARACTER(60), ALLOCATABLE :: LANDUSE_NLCD50( : ) INTEGER, ALLOCATABLE :: ALBMAP_REF2NLCD50( : ) REAL, ALLOCATABLE :: ALBFAC_REF2NLCD50( : ) INTEGER, PARAMETER :: NUMB_EXPECT_NLCD40 = 40 INTEGER, SAVE :: NUMB_LANDUSE_NLCD40 CHARACTER(60), ALLOCATABLE :: LANDUSE_NLCD40( : ) INTEGER, ALLOCATABLE :: ALBMAP_REF2NLCD40( : ) REAL, ALLOCATABLE :: ALBFAC_REF2NLCD40( : ) INTEGER, PARAMETER :: NUMB_EXPECT_USGS = 24 INTEGER :: NUMB_LANDUSE_USGS CHARACTER(60), ALLOCATABLE :: LANDUSE_USGS( : ) INTEGER, ALLOCATABLE :: ALBMAP_REF2USGS( : ) REAL, ALLOCATABLE :: ALBFAC_REF2USGS( : ) INTEGER, PARAMETER :: NUMB_EXPECT_MODIS = 33 INTEGER :: NUMB_LANDUSE_MODIS CHARACTER(60), ALLOCATABLE :: LANDUSE_MODIS( : ) INTEGER, ALLOCATABLE :: ALBMAP_REF2MODIS( : ) REAL, ALLOCATABLE :: ALBFAC_REF2MODIS( : ) LOGICAL :: NO_NLCD40 LOGICAL :: WRITE_CELL !***special information for acetone !*** Reference: !*** Cameron-Smith, P., Incorporation of non-linear !*** effective cross section parameterization into a !*** fast photolysis computation code (Fast-J) !*** Journal of Atmospheric Chemistry, Vol. 37, !*** pp 283-297, 2000. INTEGER, PARAMETER :: NWL_ACETONE_FJX = 7 REAL :: OP0( 2, NWL_ACETONE_FJX ) ! variable needed for acetone DATA ( OP0( 1, JWAVE ), JWAVE = 1, NWL_ACETONE_FJX ) / & 2.982E-20, 1.301E-20, 4.321E-21, 1.038E-21, & 5.878E-23, 1.529E-25, 0.0/ DATA ( OP0( 2, JWAVE ), JWAVE = 1, NWL_ACETONE_FJX ) / & 3.255E-20, 1.476E-20, 5.179E-21, 1.304E-21, & 9.619E-23, 2.671E-25, 0.0 / REAL :: YY30( NWL_ACETONE_FJX ) ! variable needed for acetone DATA YY30 / 5.651E-20, 1.595E-19, 2.134E-19, & 1.262E-19, 1.306E-19, 1.548E-19, 0.0 / REAL :: OPTT ! variable needed for acetone CONTAINS SUBROUTINE LOAD_CSQY_DATA ( ) !----------------------------------------------------------------------- ! Purpose: read input file for ! -wavelength bin and temperature structure. ! -photolysis cross-sections and quantum ! ! Revision History: ! 31 Jan 2014 B.Hutzell: Initial Version based on LOAD_REF_DATA in ! CMAQ version 5.0 ! 07 Jul 14 B.Hutzell: replaced mechanism include file(s) with fortran module !----------------------------------------------------------------------- USE UTILIO_DEFN USE RXNS_DATA ! chemical mechanism data IMPLICIT NONE !***arguments C NONE !***local LOGICAL :: WRITE_LOG = .TRUE. CHARACTER( 32 ) :: PNAME = 'LOAD_CSQY_DATA' CHARACTER( 16 ) :: CSQY_FILE = 'CSQY_DATA' ! CSQY_DATA i/o logical name CHARACTER( 16 ) :: PHOT_EXPECT CHARACTER( 30 ) :: LAND_EXPECT CHARACTER( 120 ) :: MSG ! buffer for messages to output CHARACTER( 240 ) :: FILE_LINE CHARACTER( 16 ), ALLOCATABLE :: AE_RERACT_REF( : ) ! INTEGER, INTENT(OUT) :: NWL_PHOT ! # of wavelengths used in PHOT_MOD.F INTEGER :: NWL_PHOT ! # of wavelengths used in PHOT_MOD.F INTEGER :: IOST ! IOST returned from OPEN function INTEGER :: JDATE = 0 INTEGER :: PHOTAB_UNIT INTEGER :: IPHOT, IPHOT_LOAD ! loop indices INTEGER :: ITT, ITT_LOAD ! loop indices INTEGER :: IP_MAP, IP_REF ! photolysis reaction indicies INTEGER :: IWL, IWL_LOAD INTEGER :: STRT, FINI INTEGER :: NAE_REFRACT_REF REAL, ALLOCATABLE :: AE_IMAG_REFRACT( :, : ) REAL, ALLOCATABLE :: AE_REAL_REFRACT( :, : ) LOGICAL :: ERROR_FLAG = .FALSE. !***external functions: none PHOTAB_UNIT = GETEFILE( CSQY_FILE, .TRUE., .TRUE., PNAME ) IF ( PHOTAB_UNIT .LT. 0 ) THEN MSG = 'Error opening the CSQY data file: ' // TRIM( CSQY_FILE ) CALL M3WARN ( PNAME, 0, 0, MSG ) ERROR_FLAG = .TRUE. END IF C...begin read READ( PHOTAB_UNIT,'(22X,A32)' ) JTABLE_REF IF ( JTABLE_REF .NE. MECHNAME ) THEN MSG = 'WARNING: JTABLE mechanism is for ' // JTABLE_REF & // ' but gas chemistry name is ' // MECHNAME CALL M3WARN( PNAME, 0, 0, MSG ) END IF READ( PHOTAB_UNIT,'(10X,I4)' ) NPHOT_MAP IF ( NPHOT_MAP .LT. NPHOTAB ) THEN WRITE( MSG,'( A,1X,I4,1X,A,1X,I4)') & 'Error: CSQY data file has',NPHOT_MAP, & 'rates but the need number is',NPHOTAB CALL M3WARN( PNAME, 0, 0, MSG ) ERROR_FLAG = .TRUE. END IF #ifdef verbose_phot write( LOGDEV,'(A,a32)' )'JTABLE_REF = ',trim(jtable_ref) write( LOGDEV,'(A,10x,i4)' )'NPHOT_MAP = ', nphot_map #endif READ( PHOTAB_UNIT,'(A)' ) FILE_LINE ALLOCATE( PNAME_MAP( NPHOT_MAP ) ) ALLOCATE( PNAME_REF( NPHOT_MAP ) ) ALLOCATE( PHOT_MAP ( NPHOT_MAP ) ) DO IPHOT_LOAD = 1, NPHOT_MAP READ( PHOTAB_UNIT,'(A16)' ) PNAME_REF( IPHOT_LOAD ) #ifdef verbose_phot write( LOGDEV,'(i3,1x,a16)' ) iphot_load, pname_ref( iphot_load ) #endif PNAME_MAP( IPHOT_LOAD ) = PNAME_REF( IPHOT_LOAD ) PHOT_MAP ( IPHOT_LOAD ) = IPHOT_LOAD END DO READ( PHOTAB_UNIT,'(10X,I3)' ) NTEMP_REF #ifdef verbose_phot write( LOGDEV,'(10x,i3)' ) ntemp_ref #endif READ( PHOTAB_UNIT,'(A)' ) FILE_LINE #ifdef verbose_phot write( LOGDEV,* ) trim( file_line ) #endif IREFTEMPS = NTEMP_REF ALLOCATE( TEMP_BASE( NTEMP_REF ) ) DO ITT_LOAD = 1, NTEMP_REF READ( PHOTAB_UNIT,'(A)' ) FILE_LINE #ifdef verbose_phot write( LOGDEV,* ) trim( file_line ) #endif READ( FILE_LINE,* ) IPHOT_LOAD, TEMP_BASE( ITT_LOAD ) #ifdef verbose_phot write( LOGDEV,'(4x,f6.2)' ) temp_base( itt_load ) #endif END DO ALLOCATE( TEMP_REF( NTEMP_REF, NPHOT_MAP) ) DO ITT_LOAD = 1, 15 ! skip next 15 lines READ( PHOTAB_UNIT,'(A)' ) FILE_LINE #ifdef verbose_phot write( LOGDEV, '(I2,1X,A)' )ITT_LOAD,TRIM(FILE_LINE) #endif END DO READ( PHOTAB_UNIT,'(A)' ) FILE_LINE #ifdef verbose_phot write( LOGDEV, '(A)' )TRIM(FILE_LINE) #endif READ( FILE_LINE, 4999) NWL_REF #ifdef verbose_phot write( LOGDEV,'(17x,i3)' ) nwl_ref #endif 4999 FORMAT(17X,I3,2X,17X,I3) NWL = NWL_REF NWL_PHOT = NWL IF ( NWL_REF .LT. 1 ) THEN WRITE( LOGDEV,* ) 'NWL_REF = ', NWL_REF MSG = 'NWL_REF in ' // CSQY_FILE & // ' has the bad value, written above. ' CALL M3EXIT( PNAME, 0, 0, MSG, -1 ) END IF READ( PHOTAB_UNIT,'(A)' ) FILE_LINE #ifdef verbose_phot write( LOGDEV, * )FILE_LINE #endif IF( .NOT. ALLOCATED( STWL_REF ) ) ALLOCATE( STWL_REF ( NWL_REF ) ) IF( .NOT. ALLOCATED( ENDWL_REF ) ) ALLOCATE( ENDWL_REF ( NWL_REF ) ) IF( .NOT. ALLOCATED( FSOLAR_REF ) ) ALLOCATE( FSOLAR_REF( NWL_REF ) ) IF( .NOT. ALLOCATED( EFFWL_REF ) ) ALLOCATE( EFFWL_REF ( NWL_REF ) ) IF( .NOT. ALLOCATED( FEXT ) ) ALLOCATE( FEXT ( NWL_REF ) ) IF( .NOT. ALLOCATED( WAVELENGTH ) ) ALLOCATE( WAVELENGTH( NWL_REF ) ) IF( .NOT. ALLOCATED( WAVENUMBER ) ) ALLOCATE( WAVENUMBER( NWL_REF ) ) DO IWL_LOAD = 1, NWL_REF ! READ( PHOTAB_UNIT,'(4X,3(F8.3,2X),2X,ES12.4,2X,2(F8.3,2X),ES12.4,2X)' ) READ( PHOTAB_UNIT, * )iphot_load, & STWL_REF( IWL_LOAD ), EFFWL_REF( IWL_LOAD ), & ENDWL_REF( IWL_LOAD ), FSOLAR_REF( IWL_LOAD ) #ifdef verbose_phot write( LOGDEV,'(4x,3(f8.3,2x),2x,2(es12.4,2x),f8.3,2x,12(es12.4,2x))' ) & stwl_ref( iwl_load ), effwl_ref( iwl_load ), & endwl_ref( iwl_load ),fsolar_ref( iwl_load ) #endif WAVELENGTH( IWL_LOAD ) = EFFWL_REF ( IWL_LOAD ) WAVENUMBER( IWL_LOAD ) = 1.0E7 / EFFWL_REF ( IWL_LOAD ) FEXT ( IWL_LOAD ) = FSOLAR_REF( IWL_LOAD ) END DO READ( PHOTAB_UNIT,'(A)' ) FILE_LINE READ( PHOTAB_UNIT,'(A)' ) FILE_LINE READ( PHOTAB_UNIT,'(A)' ) FILE_LINE READ( PHOTAB_UNIT,'(A)' ) FILE_LINE ALLOCATE( CS_REF ( NWL_REF, NTEMP_REF, NPHOT_MAP ) ) ALLOCATE( QY_REF ( NWL_REF, NTEMP_REF, NPHOT_MAP ) ) ALLOCATE( EQY_REF( NWL_REF, NTEMP_REF, NPHOT_MAP ) ) ALLOCATE( ECS_REF( NWL_REF, NTEMP_REF, NPHOT_MAP ) ) CS_REF = 0.0 QY_REF = 0.0 EQY_REF = 0.0 ECS_REF = 0.0 DO IPHOT_LOAD = 1, NPHOT_MAP DO ITT_LOAD = 1, NTEMP_REF READ( PHOTAB_UNIT,'(A16,7X,F8.3,1X,40(1PE12.6,2X))' ) & PHOT_EXPECT, TEMP_REF( ITT_LOAD, IPHOT_LOAD), & ( CS_REF( IWL_LOAD, ITT_LOAD, IPHOT_LOAD ), IWL_LOAD = 1, NWL_REF ) #ifdef verbose_phot write( LOGDEV,'(a16,7x,f8.3,1x,40(1pe13.6,2x))' ) & phot_expect, temp_ref( itt_load, iphot_load), & ( cs_ref( iwl_load, itt_load, iphot_load ), iwl_load = 1, nwl_ref ) #endif IF ( PHOT_EXPECT .NE. PNAME_REF( IPHOT_LOAD ) ) THEN MSG = 'CS for ' // TRIM( PHOT_EXPECT ) & // ' does match the order the PHOT_MAP array.' CALL M3EXIT( PNAME, 0, 0, MSG, -1 ) END IF READ( PHOTAB_UNIT,'(A16,7X,F8.3,1X,40(1PE12.6,2X))' ) & PHOT_EXPECT, TEMP_REF( ITT_LOAD, IPHOT_LOAD), & ( EQY_REF( IWL_LOAD, ITT_LOAD, IPHOT_LOAD ), IWL_LOAD = 1, NWL_REF ) QY_REF( 1:NWL_REF, ITT_LOAD, IPHOT_LOAD ) = EQY_REF( 1:NWL_REF, ITT_LOAD, IPHOT_LOAD ) #ifdef verbose_phot write( LOGDEV,'(a16,7x,f8.3,1x,40(1pe13.6,2x))' ) & phot_expect, temp_ref( itt_load, iphot_load), & ( qy_ref( iwl_load, itt_load, iphot_load ), iwl_load = 1, nwl_ref ) #endif IF ( PHOT_EXPECT .NE. PNAME_REF(IPHOT_LOAD) ) THEN MSG = 'EQY for ' // TRIM( PHOT_EXPECT ) & // ' does match the order the PHOT_MAP array.' CALL M3WARN( PNAME, 0, 0, MSG ) ERROR_FLAG = .TRUE. END IF END DO END DO DO ITT_LOAD = 1, 3 ! skip next 3 lines READ( PHOTAB_UNIT,'(A)' ) FILE_LINE END DO READ( PHOTAB_UNIT,'(15X,I3)' ) NTEMP_STRAT_REF #ifdef verbose_phot write( LOGDEV,'(16x,i3)' ) ntemp_strat_ref #endif ALLOCATE( TEMP_STRAT_REF ( NTEMP_STRAT_REF ) ) ALLOCATE( O3_CS_STRAT_REF( NWL_REF, NTEMP_STRAT_REF ) ) READ( PHOTAB_UNIT,'(A)' ) FILE_LINE DO ITT_LOAD = 1, NTEMP_STRAT_REF READ( PHOTAB_UNIT,'(A16,7X,F8.3,1X,40(1PE12.6,2X))' ) & PHOT_EXPECT, TEMP_STRAT_REF( ITT_LOAD ), & ( O3_CS_STRAT_REF( IWL_LOAD, ITT_LOAD ), IWL_LOAD = 1, NWL_REF ) #ifdef verbose_phot write( LOGDEV,'(a16,7x,f8.3,1x,40(1pe13.6,2x))' ) & phot_expect, temp_strat_ref( itt_load ), & ( o3_cs_strat_ref( iwl_load, itt_load ), iwl_load = 1, nwl_ref ) #endif IF ( PHOT_EXPECT .NE. 'O3_STRAT' ) THEN MSG = 'O3_STRAT not found at expected location in CSQY_FILE. ' // & TRIM( PHOT_EXPECT ) // ' found.' CALL M3WARN( PNAME, 0, 0, MSG ) ERROR_FLAG = .TRUE. END IF END DO NTEMP_STRAT = NTEMP_STRAT_REF ALLOCATE( TEMP_O3_STRAT( NTEMP_STRAT_REF ) ) ALLOCATE( XO3CS ( NTEMP_STRAT_REF, NWL_PHOT ) ) DO ITT_LOAD = 1, NTEMP_STRAT_REF TEMP_O3_STRAT( ITT_LOAD ) = TEMP_STRAT_REF( ITT_LOAD ) DO IWL_LOAD = 1, NWL_PHOT XO3CS( ITT_LOAD, IWL_LOAD ) = O3_CS_STRAT_REF( IWL_LOAD, ITT_LOAD ) END DO END DO !***initialize pointers for mandatory photolysis rates LNO2 = 0 LO3O1D = 0 LO3O3P = 0 LACETONE = 0 LKETONE = 0 LMGLY_ADJ = 0 LMGLY_ABS = 0 LHCHOR_06 = 0 LH2O2 = 0 LHNO3 = 0 ! initialized pointers and flag if specific acetone channel are used LACETONE_CO = 0 LACETONE_CH3CO = 0 ACETONE_CHANNELS = .FALSE. !***get needed photolysis data for the model chemistry from the !***CSQY_DATA ALLOCATE( PHOTOLYSIS_RATE ( NPHOTAB ) ) ALLOCATE( XXCS( IREFTEMPS, NWL, NPHOTAB ) ) ALLOCATE( XXQY( IREFTEMPS, NWL, NPHOTAB ) ) ALLOCATE( RTEMP_S( IREFTEMPS, NPHOTAB ) ) MECHANISM_RATES = NPHOTAB DO IPHOT = 1, NPHOTAB IP_MAP = INDEXR( PHOTAB( IPHOT ), NPHOT_MAP, PNAME_MAP ) IF ( IP_MAP .LE. 0 ) THEN MSG = 'FATAL ERROR: photolysis reaction ' // TRIM( PHOTAB( IPHOT ) ) & // ' not found in ' // & 'the reference data! ' ERROR_FLAG = .TRUE. CALL M3WARN ( PNAME, 0, 0, MSG ) CYCLE END IF IP_REF = PHOT_MAP( IP_MAP ) PHOTOLYSIS_RATE( IPHOT ) = PNAME_MAP( IP_MAP ) !***check to see if this photolysis reaction is a special case that !*** is referenced in other sections of the code. if so, then set !*** the appropriate pointers for later processing SELECT CASE ( PHOTOLYSIS_RATE( IPHOT ) ) CASE( 'O3O3P', 'O3O3P_SAPRC99', 'O3O3P_06', 'O3_O3P_IUPAC04', 'O3O3P_NASA06', 'O3_O3P_IUPAC10' ) LO3O3P = IPHOT CASE( 'NO2', 'NO2_SAPRC99', 'NO2_06', 'NO2_RACM2', 'NO2_IUPAC10' ) LNO2 = IPHOT CASE( 'O3O1D', 'O3O1D_SAPRC99' , 'O3O1D_06', 'O3_O1D_IUPAC04', 'O3O1D_NASA06', 'O3_O1D_IUPAC10' ) LO3O1D = IPHOT CASE( 'KETONE', 'KET_RACM2', 'KET_JGR19' ) LKETONE = IPHOT CASE( 'MGLY_ADJ' ) LMGLY_ADJ = IPHOT CASE( 'MGLY_ABS' ) LMGLY_ABS = IPHOT CASE( 'ACETONE', 'CH3COCH3_RACM2', 'ACET_IUPAC10' ) IF( NWL .EQ. NWL_ACETONE_FJX ) LACETONE = IPHOT CASE( 'HCHOR_06', 'HCHO_R_SAPRC99', 'HCHO_RAD_RACM2', 'FORM_R_IUPAC10', & 'FORM_R_IUPAC13', 'HCHO_R_MCMv32', 'HCHO_RAD_JPL19' ) LHCHOR_06 = IPHOT CASE( 'ACET_CH3CO_CRI', 'CH3COCH3A_JPL19' ) LACETONE_CH3CO = IPHOT ACETONE_CHANNELS = .TRUE. CASE( 'H2O2', 'H2O2_SAPRC99', 'H2O2_RACM2', 'H2O2_IUPAC10' ) LH2O2 = IPHOT CASE( 'HNO3', 'HNO3_IUPAC04', 'HNO3_IUPAC10', 'HNO3_RACM2' ) LHNO3 = IPHOT END SELECT !***load the local cross section & quantum yield data from the reference !*** dataset for this photolysis reaction DO ITT = 1, IREFTEMPS RTEMP_S( ITT, IPHOT ) = TEMP_REF( ITT, IP_REF ) DO IWL = 1, NWL XXCS( ITT, IWL, IPHOT ) = CS_REF( IWL, ITT, IP_REF ) XXQY( ITT, IWL, IPHOT ) = QY_REF( IWL, ITT, IP_REF ) END DO ! iwl END DO ! itt END DO ! iphot IF ( LNO2 .EQ. 0 ) THEN MSG = 'NO2 cross-section not found in the CSQY data! ' ERROR_FLAG = .TRUE. CALL M3WARN ( PNAME, 0, 0, MSG ) END IF IF ( LO3O1D .EQ. 0 ) THEN MSG = 'O3(1D) production not found in the CSQY data! ' CALL M3WARN ( 'NEW_OPTICS', 0, 0, MSG ) END IF IF ( LO3O3P .EQ. 0 ) THEN MSG = 'O3 cross-section not found in the CSQY data! ' ERROR_FLAG = .TRUE. CALL M3WARN ( PNAME, 0, 0, MSG ) END IF IF ( LH2O2 .EQ. 0 ) THEN MSG = 'H2O2 cross-section not found in the CSQY data! ' ERROR_FLAG = .TRUE. CALL M3WARN ( PNAME, 0, 0, MSG ) END IF IF ( LHNO3 .EQ. 0 ) THEN MSG = 'HNO3 cross-section not found in the CSQY data! ' ERROR_FLAG = .TRUE. CALL M3WARN ( PNAME, 0, 0, MSG ) END IF IF( ERROR_FLAG )THEN MSG = 'The above fatal error(s) found in CSQY data! ' CALL M3EXIT( PNAME, 0, 0, MSG, -1 ) END IF CLOSE(PHOTAB_UNIT) 5012 FORMAT( 4X,A30,1X,3(F8.3,2X) ) 5013 FORMAT( 22X,I3 ) 5016 FORMAT( 4X,A60,1X,I3,2X,3(F8.3,2X) ) #ifdef verbose_phot 6009 format( a3,', ',8(a,', ') ) 6013 format( a22,1x,i3 ) 6016 format( i3,1x,a60,1x,i3,2x,3(f8.3,2x) ) #endif RETURN END SUBROUTINE LOAD_CSQY_DATA SUBROUTINE LOAD_OPTICS_DATA() !----------------------------------------------------------------------- ! Purpose: read input file for ! -wavelength bin for cross check against ! -size dependent optical data for liquid droplets and ice ! ice particles ! -landuse type data for surface alebdo ! ! Revision History: ! 31 Jan 2014 B.Hutzell: Initial Version based on LOAD_REF_DATA in ! CMAQ version 5.0 !----------------------------------------------------------------------- USE UTILIO_DEFN USE AERO_DATA, ONLY: N_MODE IMPLICIT NONE !***arguments REAL, PARAMETER :: EPSILON = 1.0E-6 ! small number !***local LOGICAL :: WRITE_LOG = .TRUE. CHARACTER( 32 ) :: PNAME = 'LOAD_OPTICS_DATA' CHARACTER( 16 ) :: OPTICS_FILE = 'OPTICS_DATA' ! OPTICS_DATA i/o logical name CHARACTER( 16 ) :: OPTICS_EXPECT CHARACTER( 16 ) :: QUANTITY CHARACTER( 30 ) :: LAND_EXPECT CHARACTER( 120 ) :: MSG ! buffer for messages to output CHARACTER( 240 ) :: FILE_LINE CHARACTER( 16 ), ALLOCATABLE :: AE_RERACT_REF( : ) ! INTEGER, INTENT(OUT) :: NWL_OPTICS ! # of wavelengths used in PHOT_MOD.F INTEGER :: NWL_OPTICS ! # of wavelengths used in PHOT_MOD.F INTEGER :: IOST ! IOST returned from OPEN function INTEGER :: JDATE = 0 INTEGER :: OPTICS_UNIT INTEGER :: IPHOT, IPHOT_LOAD ! loop indices INTEGER :: ITT, ITT_LOAD ! loop indices INTEGER :: IP_MAP, IP_REF ! photolysis reaction indicies INTEGER :: IWL_LOAD INTEGER :: STRT, FINI INTEGER :: NAE_REFRACT_REF REAL, ALLOCATABLE :: AE_IMAG_REFRACT( :, : ) REAL, ALLOCATABLE :: AE_REAL_REFRACT( :, : ) REAL :: DELTA LOGICAL :: ERROR_FLAG = .FALSE. !***external functions: none OPTICS_UNIT = GETEFILE( OPTICS_FILE, .TRUE., .TRUE., PNAME ) READ( OPTICS_UNIT,'(A)' ) FILE_LINE #ifdef verbose_phot write( LOGDEV, '(A)' )TRIM(FILE_LINE) #endif READ( FILE_LINE, 4999) NWL_REF #ifdef verbose_phot write( LOGDEV,'(17x,i3)' ) nwl_ref #endif NWL_OPTICS = NWL_REF DO ITT_LOAD = 1, 15 ! skip next 15 lines READ( OPTICS_UNIT,'(A)' ) FILE_LINE #ifdef verbose_phot write( LOGDEV, '(A)' )TRIM(FILE_LINE) #endif END DO ALLOCATE( CLD_BETA_REF ( NWL_REF ), CLOUD_BETA_LWC( NWL_REF ) ) ALLOCATE( CLD_COALBEDO_REF( NWL_REF ), CLOUD_COALBEDO( NWL_REF ) ) ALLOCATE( CLD_G_REF ( NWL_REF ), CLOUD_G ( NWL_REF ) ) IF( .NOT. ALLOCATED( STWL_REF ) ) ALLOCATE( STWL_REF ( NWL_REF ) ) IF( .NOT. ALLOCATED( ENDWL_REF ) ) ALLOCATE( ENDWL_REF ( NWL_REF ) ) IF( .NOT. ALLOCATED( FSOLAR_REF ) ) ALLOCATE( FSOLAR_REF( NWL_REF ) ) IF( .NOT. ALLOCATED( EFFWL_REF ) ) ALLOCATE( EFFWL_REF ( NWL_REF ) ) IF( .NOT. ALLOCATED( FEXT ) ) ALLOCATE( FEXT ( NWL_REF ) ) IF( .NOT. ALLOCATED( WAVELENGTH ) ) ALLOCATE( WAVELENGTH( NWL_REF ) ) DO IWL_LOAD = 1, NWL_REF READ( OPTICS_UNIT, * )IPHOT_LOAD, & STWL_REF( IWL_LOAD ), EFFWL_REF( IWL_LOAD ), ENDWL_REF( IWL_LOAD ), & CLD_BETA_REF( IWL_LOAD ), CLD_G_REF( IWL_LOAD ), CLD_COALBEDO_REF( IWL_LOAD ) #ifdef verbose_phot write( LOGDEV, 99946 ) & stwl_ref( iwl_load ), effwl_ref( iwl_load ), endwl_ref( iwl_load ), & cld_beta_ref( iwl_load ), cld_g_ref( iwl_load ), cld_coalbedo_ref( iwl_load ) #endif WAVELENGTH( IWL_LOAD ) = EFFWL_REF ( IWL_LOAD ) FEXT ( IWL_LOAD ) = FSOLAR_REF( IWL_LOAD ) CLOUD_BETA_LWC( IWL_LOAD ) = CLD_BETA_REF ( IWL_LOAD ) CLOUD_COALBEDO( IWL_LOAD ) = CLD_COALBEDO_REF( IWL_LOAD ) CLOUD_G ( IWL_LOAD ) = CLD_G_REF ( IWL_LOAD ) END DO DO ITT_LOAD = 1, 7 ! skip next 7 lines READ( OPTICS_UNIT,'(A)' ) FILE_LINE #ifdef verbose_phot write( LOGDEV, '(A)' )TRIM(FILE_LINE) #endif END DO READ( OPTICS_UNIT,'(A)' ) FILE_LINE #ifdef verbose_phot write( LOGDEV, '(A)' )TRIM(FILE_LINE) #endif READ( FILE_LINE, 4999)NAE_REFRACT_REF #ifdef verbose_phot write( LOGDEV, * )' NAE_REFRACT_REF = ', NAE_REFRACT_REF #endif NUM_REFRACTIVE = NAE_REFRACT_REF ALLOCATE( AE_RERACT_REF ( NAE_REFRACT_REF ) ) READ( OPTICS_UNIT,'(A)' ) FILE_LINE #ifdef verbose_phot write( LOGDEV, '(a)')TRIM(FILE_LINE) #endif STRT = SCAN(FILE_LINE, '=', BACK = .TRUE.) + 1 FINI = LEN(FILE_LINE) READ( FILE_LINE( STRT:FINI ), * )( AE_RERACT_REF( ITT_LOAD ), & ITT_LOAD = 1, NAE_REFRACT_REF ) #ifdef verbose_phot write( LOGDEV, 99947)'REFRACTIVE_INDICES' write( LOGDEV, 99948 )(AE_RERACT_REF( ITT_LOAD ),ITT_LOAD = 1, & NAE_REFRACT_REF ) #endif ALLOCATE( AE_REAL_REFRACT ( NAE_REFRACT_REF, NWL_REF ) ) ALLOCATE( AE_IMAG_REFRACT ( NAE_REFRACT_REF, NWL_REF ) ) ALLOCATE( REFRACTIVE_INDEX( NAE_REFRACT_REF ) ) DO ITT_LOAD = 1, NAE_REFRACT_REF ! set up refractive indices used by aero_photdata routine REFRACTIVE_INDEX( ITT_LOAD )%NAME = AE_RERACT_REF( ITT_LOAD ) ALLOCATE( REFRACTIVE_INDEX( ITT_LOAD )%REAL_PART( N_MODE, NWL_REF ) ) ALLOCATE( REFRACTIVE_INDEX( ITT_LOAD )%IMAG_PART( N_MODE, NWL_REF ) ) #ifdef verbose_phot write( LOGDEV, '(i3, 1x, a16)')itt_load, refractive_index( itt_load )%name #endif END DO READ( OPTICS_UNIT,'(A)' ) FILE_LINE #ifdef verbose_phot write( LOGDEV, '(A)' )TRIM(FILE_LINE) #endif DO IWL_LOAD = 1, NWL_REF READ( OPTICS_UNIT, * )iphot_load, & STWL_REF( IWL_LOAD ), EFFWL_REF( IWL_LOAD ), ENDWL_REF( IWL_LOAD ), & (AE_REAL_REFRACT( ITT_LOAD, IWL_LOAD ), AE_IMAG_REFRACT( ITT_LOAD, IWL_LOAD ), & ITT_LOAD = 1, NAE_REFRACT_REF) DO ITT_LOAD = 1, NAE_REFRACT_REF REFRACTIVE_INDEX( ITT_LOAD )%REAL_PART( 1:N_MODE, IWL_LOAD ) & = AE_REAL_REFRACT( ITT_LOAD, IWL_LOAD ) REFRACTIVE_INDEX( ITT_LOAD )%IMAG_PART( 1:N_MODE, IWL_LOAD ) & = AE_IMAG_REFRACT( ITT_LOAD, IWL_LOAD ) END DO #ifdef verbose_phot write( LOGDEV, 99949 ) & stwl_ref( iwl_load ), effwl_ref( iwl_load ), & endwl_ref( iwl_load ),fsolar_ref( iwl_load ), & ( ae_real_refract( itt_load, iwl_load ), & ae_imag_refract( itt_load, iwl_load ), itt_load = 1, nae_refract_ref ) #endif END DO DO ITT_LOAD = 1, 8 ! skip next 8 lines READ( OPTICS_UNIT,'(A)' ) FILE_LINE #ifdef verbose_phot write( LOGDEV, '(a)' )TRIM(FILE_LINE) #endif END DO ! read optical data for liquid droplets READ( FILE_LINE, 4999)NRADIUS_LIQUID #ifdef verbose_phot write( LOGDEV, '(a,i4)' )'NRADIUS_LIQUID = ',NRADIUS_LIQUID #endif ALLOCATE(RADIUS_LIQUID( NRADIUS_LIQUID )) ALLOCATE( LIQUID_EXTINCT(NRADIUS_LIQUID, NWL_OPTICS), & LIQUID_ASYMFACT(NRADIUS_LIQUID, NWL_OPTICS), & LIQUID_COALBEDO(NRADIUS_LIQUID, NWL_OPTICS)) QUANTITY = 'LIQ_EXT' READ( OPTICS_UNIT,'(A)' ) FILE_LINE #ifdef verbose_phot write( LOGDEV, '(a)' )TRIM(FILE_LINE) #endif DO ITT_LOAD = 1, NRADIUS_LIQUID READ( OPTICS_UNIT, * ) & OPTICS_EXPECT, RADIUS_LIQUID( ITT_LOAD ), & ( LIQUID_EXTINCT( ITT_LOAD, IWL_LOAD), IWL_LOAD = 1, NWL_OPTICS ) #ifdef verbose_phot write( LOGDEV, 99950 ) & OPTICS_EXPECT, RADIUS_LIQUID( ITT_LOAD ), & ( LIQUID_EXTINCT( ITT_LOAD, IWL_LOAD), IWL_LOAD = 1, NWL_OPTICS ) #endif IF ( OPTICS_EXPECT .NE. QUANTITY ) THEN MSG = 'Optical quantity read ' // TRIM( OPTICS_EXPECT ) & // ' does match expected quantity, ' // TRIM( QUANTITY ) CALL M3WARN( PNAME, 0, 0, MSG ) ERROR_FLAG = .TRUE. END IF END DO QUANTITY = 'LIQ_ASY' READ( OPTICS_UNIT,'(A)' ) FILE_LINE #ifdef verbose_phot write( LOGDEV, '(a)' )TRIM(FILE_LINE) #endif DO ITT_LOAD = 1, NRADIUS_LIQUID READ( OPTICS_UNIT, * ) & OPTICS_EXPECT, RADIUS_LIQUID( ITT_LOAD ), & ( LIQUID_ASYMFACT( ITT_LOAD, IWL_LOAD), IWL_LOAD = 1, NWL_OPTICS ) #ifdef verbose_phot write( LOGDEV, 99950 ) & OPTICS_EXPECT, RADIUS_LIQUID( ITT_LOAD ), & ( LIQUID_ASYMFACT( ITT_LOAD, IWL_LOAD), IWL_LOAD = 1, NWL_OPTICS ) #endif IF ( OPTICS_EXPECT .NE. QUANTITY ) THEN MSG = 'Optical quantity read ' // TRIM( OPTICS_EXPECT ) & // ' does match expected quantity, ' // TRIM( QUANTITY ) CALL M3WARN( PNAME, 0, 0, MSG ) ERROR_FLAG = .TRUE. END IF END DO READ( OPTICS_UNIT,'(A)' ) FILE_LINE #ifdef verbose_phot write( LOGDEV, '(a)' )TRIM(FILE_LINE) #endif QUANTITY = 'LIQ_COA' DO ITT_LOAD = 1, NRADIUS_LIQUID READ( OPTICS_UNIT, * ) & OPTICS_EXPECT, RADIUS_LIQUID( ITT_LOAD ), & ( LIQUID_COALBEDO( ITT_LOAD, IWL_LOAD), IWL_LOAD = 1, NWL_OPTICS ) #ifdef verbose_phot write( LOGDEV, 99950 ) & OPTICS_EXPECT, RADIUS_LIQUID( ITT_LOAD ), & ( LIQUID_COALBEDO( ITT_LOAD, IWL_LOAD), IWL_LOAD = 1, NWL_OPTICS ) #endif IF ( OPTICS_EXPECT .NE. QUANTITY ) THEN MSG = 'Optical quantity read ' // TRIM( OPTICS_EXPECT ) & // ' does match expected quantity, ' // TRIM( QUANTITY ) CALL M3WARN( PNAME, 0, 0, MSG ) ERROR_FLAG = .TRUE. END IF END DO DO ITT_LOAD = 1, 7 ! skip next 7 lines READ( OPTICS_UNIT,'(A)' ) FILE_LINE #ifdef verbose_phot write( LOGDEV, '(a)' )TRIM(FILE_LINE) #endif END DO ! read optical data for liquid droplets READ( FILE_LINE, 4999)NDIAMETER_ICE #ifdef verbose_phot write( LOGDEV, '(a,i4)' )'NDIAMETER_ICE = ',NDIAMETER_ICE #endif ALLOCATE(DIAMETER_ICE( NDIAMETER_ICE )) ALLOCATE( ICE_EXTINCT(NDIAMETER_ICE, NWL_OPTICS), & ICE_ASYMFACT(NDIAMETER_ICE, NWL_OPTICS), & ICE_COALBEDO(NDIAMETER_ICE, NWL_OPTICS), & ICE_DELTRANS(NDIAMETER_ICE, NWL_OPTICS)) READ( OPTICS_UNIT,'(A)' ) FILE_LINE #ifdef verbose_phot write( LOGDEV, '(a)' )TRIM(FILE_LINE) #endif QUANTITY = 'ICE_EXT' DO ITT_LOAD = 1, NDIAMETER_ICE READ( OPTICS_UNIT, * ) & OPTICS_EXPECT, DIAMETER_ICE( ITT_LOAD ), & ( ICE_EXTINCT( ITT_LOAD, IWL_LOAD), IWL_LOAD = 1, NWL_OPTICS ) #ifdef verbose_phot write( LOGDEV, 99950 ) & OPTICS_EXPECT, DIAMETER_ICE( ITT_LOAD ), & ( ICE_EXTINCT( ITT_LOAD, IWL_LOAD), IWL_LOAD = 1, NWL_OPTICS ) #endif IF ( OPTICS_EXPECT .NE. QUANTITY ) THEN MSG = 'Optical quantity read ' // TRIM( OPTICS_EXPECT ) & // ' does match expected quantity, ' // TRIM( QUANTITY ) CALL M3WARN( PNAME, 0, 0, MSG ) ERROR_FLAG = .TRUE. END IF END DO READ( OPTICS_UNIT,'(A)' ) FILE_LINE #ifdef verbose_phot write( LOGDEV, '(a)' )TRIM(FILE_LINE) #endif QUANTITY = 'ICE_ASY' DO ITT_LOAD = 1, NDIAMETER_ICE READ( OPTICS_UNIT, * ) & OPTICS_EXPECT, DIAMETER_ICE( ITT_LOAD ), & ( ICE_ASYMFACT( ITT_LOAD, IWL_LOAD), IWL_LOAD = 1, NWL_OPTICS ) #ifdef verbose_phot write( LOGDEV, 99950 ) & OPTICS_EXPECT, DIAMETER_ICE( ITT_LOAD ), & ( ICE_ASYMFACT( ITT_LOAD, IWL_LOAD), IWL_LOAD = 1, NWL_OPTICS ) #endif IF ( OPTICS_EXPECT .NE. QUANTITY ) THEN MSG = 'Optical quantity read ' // TRIM( OPTICS_EXPECT ) & // ' does match expected quantity, ' // TRIM( QUANTITY ) CALL M3WARN( PNAME, 0, 0, MSG ) ERROR_FLAG = .TRUE. END IF END DO READ( OPTICS_UNIT,'(A)' ) FILE_LINE #ifdef verbose_phot write( LOGDEV, '(a)' )TRIM(FILE_LINE) #endif QUANTITY = 'ICE_COA' DO ITT_LOAD = 1, NDIAMETER_ICE READ( OPTICS_UNIT, * ) & OPTICS_EXPECT, DIAMETER_ICE( ITT_LOAD ), & ( ICE_COALBEDO( ITT_LOAD, IWL_LOAD), IWL_LOAD = 1, NWL_OPTICS ) #ifdef verbose_phot write( LOGDEV, 99950 ) & OPTICS_EXPECT, DIAMETER_ICE( ITT_LOAD ), & ( ICE_COALBEDO( ITT_LOAD, IWL_LOAD), IWL_LOAD = 1, NWL_OPTICS ) #endif IF ( OPTICS_EXPECT .NE. QUANTITY ) THEN MSG = 'Optical quantity read ' // TRIM( OPTICS_EXPECT ) & // ' does match expected quantity, ' // TRIM( QUANTITY ) CALL M3WARN( PNAME, 0, 0, MSG ) ERROR_FLAG = .TRUE. END IF END DO READ( OPTICS_UNIT,'(A)' ) FILE_LINE #ifdef verbose_phot write( LOGDEV, '(a)' )TRIM(FILE_LINE) #endif QUANTITY = 'ICE_DEL' DO ITT_LOAD = 1, NDIAMETER_ICE READ( OPTICS_UNIT, * ) & OPTICS_EXPECT, DIAMETER_ICE( ITT_LOAD ), & ( ICE_DELTRANS( ITT_LOAD, IWL_LOAD), IWL_LOAD = 1, NWL_OPTICS ) #ifdef verbose_phot write( LOGDEV, 99950 ) & OPTICS_EXPECT, DIAMETER_ICE( ITT_LOAD ), & ( ICE_DELTRANS( ITT_LOAD, IWL_LOAD), IWL_LOAD = 1, NWL_OPTICS ) #endif IF ( OPTICS_EXPECT .NE. QUANTITY ) THEN MSG = 'Optical quantity read ' // TRIM( OPTICS_EXPECT ) & // ' does match expected quantity, ' // TRIM( QUANTITY ) CALL M3WARN( PNAME, 0, 0, MSG ) ERROR_FLAG = .TRUE. END IF END DO ! Determine limit and frequencies of liquid and ice inputs MAXI_RADIUS_LIQUID = MAXVAL( RADIUS_LIQUID ) MINI_RADIUS_LIQUID = MINVAL( RADIUS_LIQUID ) DELTA = (RADIUS_LIQUID( 2 ) - RADIUS_LIQUID( 1 )) IF( DELTA .LE. EPSILON )THEN WRITE( MSG, 99951)DELTA CALL M3WARN( PNAME, 0, 0, MSG ) ERROR_FLAG = .TRUE. ELSE FREQ_RADIUS_LIQUID = 1.0 / DELTA INIT_RADIUS_LIQUID = MINI_RADIUS_LIQUID & - DELTA END IF MAXI_DIAMETER_ICE = MAXVAL( DIAMETER_ICE ) MINI_DIAMETER_ICE = MINVAL( DIAMETER_ICE ) DELTA = (DIAMETER_ICE( 2 ) - DIAMETER_ICE( 1 )) IF( DELTA .LE. EPSILON )THEN WRITE( MSG, 99952)DELTA CALL M3WARN( PNAME, 0, 0, MSG ) ERROR_FLAG = .TRUE. ELSE FREQ_DIAMETER_ICE = 1.0 / DELTA INIT_DIAMETER_ICE = MINI_DIAMETER_ICE & - DELTA END IF ! read data for calculating surface albedo DO ITT_LOAD = 1, 6 ! skip next 6 lines READ( OPTICS_UNIT,'(A)' ) FILE_LINE #ifdef verbose_phot write( LOGDEV, '(a)' )TRIM(FILE_LINE) #endif END DO READ( OPTICS_UNIT,5013 ) NUMB_LANDUSE_REF DO ITT_LOAD = 1, 3 ! skip next 3 lines READ( OPTICS_UNIT,'(A)' ) FILE_LINE #ifdef verbose_phot write( LOGDEV, '(a)' )TRIM(FILE_LINE) #endif END DO READ( OPTICS_UNIT,5013 ) INDEX_GRASSLAND_REF READ( OPTICS_UNIT,5013 ) INDEX_OCEAN_REF READ( OPTICS_UNIT,5013 ) INDEX_SEA_ICE #ifdef verbose_phot write( LOGDEV,6013 )'NUMB_LANDUSE_REF = ', numb_landuse_ref write( LOGDEV,6013 )'INDEX_GRASSLAND_REF = ', index_grassland_ref write( LOGDEV,6013 )'INDEX_OCEAN_REF = ', index_ocean_ref write( LOGDEV,6013 )'INDEX_SEA_ICE = ', index_sea_ice #endif ALLOCATE( LANDUSE_REF ( NUMB_LANDUSE_REF ) ) ALLOCATE( ZENITH_COEFF_REF( NUMB_LANDUSE_REF ) ) ALLOCATE( SEASON_COEFF_REF( NUMB_LANDUSE_REF ) ) ALLOCATE( SNOW_COEFF_REF ( NUMB_LANDUSE_REF ) ) ALLOCATE( SPECTRAL_ALBEDO_REF( NWL_OPTICS, NUMB_LANDUSE_REF ) ) READ( OPTICS_UNIT,'(A)' ) FILE_LINE ! skip line #ifdef verbose_phot write( LOGDEV, '(a)' )TRIM(FILE_LINE) #endif DO ITT_LOAD = 1, NUMB_LANDUSE_REF READ( OPTICS_UNIT,5012 ) LANDUSE_REF( ITT_LOAD ), & ZENITH_COEFF_REF( ITT_LOAD ), & SEASON_COEFF_REF( ITT_LOAD ), & SNOW_COEFF_REF( ITT_LOAD ) #ifdef verbose_phot write( LOGDEV,5012 ) landuse_ref( itt_load ), & zenith_coeff_ref( itt_load ), & season_coeff_ref( itt_load ), & snow_coeff_ref( itt_load ) #endif END DO READ( OPTICS_UNIT,'(A)' ) FILE_LINE ! skip line #ifdef verbose_phot write( LOGDEV, '(a)' )TRIM(FILE_LINE) #endif DO ITT_LOAD = 1, NUMB_LANDUSE_REF READ( OPTICS_UNIT,'(A30,1X,40(1PE12.6,2X))' ) LAND_EXPECT, & ( SPECTRAL_ALBEDO_REF(IWL_LOAD, ITT_LOAD), IWL_LOAD = 1, NWL_REF ) #ifdef verbose_phot write( LOGDEV,'(a30,1x,40(1pe13.6,2x))' ) trim( land_expect ), & ( spectral_albedo_ref(iwl_load, itt_load), iwl_load = 1, nwl_ref ) #endif END DO DO ITT_LOAD = 1, 3 ! skip next 3 lines READ( OPTICS_UNIT,'(A)' ) FILE_LINE #ifdef verbose_phot write( LOGDEV, '(a)' )TRIM(FILE_LINE) #endif END DO READ( OPTICS_UNIT,5013 ) NUMB_LANDUSE_NLCD50 READ( OPTICS_UNIT,'(A)' ) FILE_LINE ! skip line #ifdef verbose_phot write( LOGDEV,6013 ) 'NUMB_NLCD50_MODIS = ', numb_landuse_NLCD50 write( LOGDEV, '(a)' )TRIM(FILE_LINE) #endif ALLOCATE( LANDUSE_NLCD50( NUMB_LANDUSE_NLCD50 ) ) ALLOCATE( ALBMAP_REF2NLCD50( NUMB_LANDUSE_NLCD50 ) ) ALLOCATE( ALBFAC_REF2NLCD50( NUMB_LANDUSE_NLCD50 ) ) DO ITT_LOAD = 1, NUMB_LANDUSE_NLCD50 READ( OPTICS_UNIT,5016 ) LANDUSE_NLCD50( ITT_LOAD ), & ALBMAP_REF2NLCD50( ITT_LOAD ), & ALBFAC_REF2NLCD50( ITT_LOAD ) #ifdef verbose_phot write( LOGDEV,6016 ) itt_load, landuse_NLCD50( itt_load ), & albmap_ref2NLCD50( itt_load ), & albfac_ref2NLCD50( itt_load ) #endif END DO READ( OPTICS_UNIT,5013 ) NUMB_LANDUSE_USGS READ( OPTICS_UNIT,'(A)' ) FILE_LINE ! skip line #ifdef verbose_phot write( LOGDEV,6013 ) 'NUMB_USGS = ', numb_landuse_usgs write( LOGDEV, '(a)' )TRIM(FILE_LINE) #endif ALLOCATE( LANDUSE_USGS ( NUMB_LANDUSE_USGS ) ) ALLOCATE( ALBMAP_REF2USGS( NUMB_LANDUSE_USGS ) ) ALLOCATE( ALBFAC_REF2USGS( NUMB_LANDUSE_USGS ) ) DO ITT_LOAD = 1, NUMB_LANDUSE_USGS READ( OPTICS_UNIT,5016 ) LANDUSE_USGS( ITT_LOAD ), & ALBMAP_REF2USGS( ITT_LOAD ), & ALBFAC_REF2USGS( ITT_LOAD ) #ifdef verbose_phot write( LOGDEV,6016 ) itt_load, landuse_usgs( itt_load ), & albmap_ref2usgs( itt_load ), & albfac_ref2usgs( itt_load ) #endif END DO READ( OPTICS_UNIT,5013 ) NUMB_LANDUSE_MODIS READ( OPTICS_UNIT,'(A)' ) FILE_LINE ! skip line #ifdef verbose_phot write( LOGDEV,6013 ) 'NUMB_MODIS = ', numb_landuse_modis write( LOGDEV, '(a)' )TRIM(FILE_LINE) #endif ALLOCATE( LANDUSE_MODIS ( NUMB_LANDUSE_MODIS ) ) ALLOCATE( ALBMAP_REF2MODIS( NUMB_LANDUSE_MODIS ) ) ALLOCATE( ALBFAC_REF2MODIS( NUMB_LANDUSE_MODIS ) ) DO ITT_LOAD = 1, NUMB_LANDUSE_MODIS READ( OPTICS_UNIT,5016 ) LANDUSE_MODIS( ITT_LOAD ), & ALBMAP_REF2MODIS( ITT_LOAD ), & ALBFAC_REF2MODIS( ITT_LOAD ) #ifdef verbose_phot write( LOGDEV,6016 ) itt_load, landuse_modis( itt_load ), & albmap_ref2modis( itt_load ), & albfac_ref2modis( itt_load ) #endif END DO NO_NLCD40 = .TRUE. ! default condition that file does not contain NLCD40 Landuse data READ( OPTICS_UNIT,5013, END = 101 ) NUMB_LANDUSE_NLCD40 READ( OPTICS_UNIT,'(A)' ) FILE_LINE ! skip line #ifdef verbose_phot write( LOGDEV,6013 ) 'NUMB_NLCD40_MODIS = ', numb_landuse_NLCD40 write( LOGDEV, '(a)' )TRIM(FILE_LINE) #endif ALLOCATE( LANDUSE_NLCD40( NUMB_LANDUSE_NLCD40 ) ) ALLOCATE( ALBMAP_REF2NLCD40( NUMB_LANDUSE_NLCD40 ) ) ALLOCATE( ALBFAC_REF2NLCD40( NUMB_LANDUSE_NLCD40 ) ) DO ITT_LOAD = 1, NUMB_LANDUSE_NLCD40 READ( OPTICS_UNIT,5016 ) LANDUSE_NLCD40( ITT_LOAD ), & ALBMAP_REF2NLCD40( ITT_LOAD ), & ALBFAC_REF2NLCD40( ITT_LOAD ) #ifdef verbose_phot write( LOGDEV,6016 ) itt_load, landuse_NLCD40( itt_load ), & albmap_ref2NLCD40( itt_load ), & albfac_ref2NLCD40( itt_load ) #endif END DO NO_NLCD40 = .FALSE. 101 IF( NO_NLCD40 )THEN MSG = TRIM( PNAME ) // ':' & // TRIM( OPTICS_FILE ) & // ' does not contain data for NLCD40 land use and' & // ' corresponds to CMAQ version 5.01.' CALL M3MESG( MSG ) END IF ! set the default values for surface albedo ALLOCATE( ALB( NWL_OPTICS ) ) DO IWL_LOAD = 1, NWL_OPTICS IF ( WAVELENGTH( IWL_LOAD ) .LE. 380.1 ) THEN ALB( IWL_LOAD ) = 0.05 ELSE ALB( IWL_LOAD ) = 0.10 END IF END DO IF( ERROR_FLAG )THEN MSG = 'The above fatal error(s) found in CSQY data! ' CALL M3EXIT( PNAME, 0, 0, MSG, -1 ) END IF CLOSE(OPTICS_UNIT) 4999 FORMAT(17X,I3,2X,17X,I3) 5012 FORMAT( 4X,A30,1X,3(F8.3,2X) ) 5013 FORMAT( 22X,I3 ) 5016 FORMAT( 4X,A60,1X,I3,2X,3(F8.3,2X) ) 99946 FORMAT(4x,3(f8.3,2x),2x,2(es12.4,2x),f8.3,2x,12(es12.4,2x)) 99947 FORMAT(a3, 1x, a16) 99948 FORMAT(10(a16,1x)) 99949 FORMAT(4x,3(f8.3,2x),2x,2(es12.4,2x),f8.3,2x,12(es12.4,2x)) 99950 FORMAT(a8,1x,f10.3,40(1x,1pe13.6)) 99951 FORMAT('Too Small Differences in Liquid Droplet Radii = ',1PE12.4,' um ') 99952 FORMAT('Too Small Differences in Ice Particle Sizes = ',1PE12.4,' um ') #ifdef verbose_phot 6009 format( a3,', ',8(a,', ') ) 6013 format( a22,1x,i3 ) 6016 format( i3,1x,a60,1x,i3,2x,3(f8.3,2x) ) #endif RETURN END SUBROUTINE LOAD_OPTICS_DATA C/////////////////////////////////////////////////////////////////////// INTEGER FUNCTION INDEXR ( NAME1, N, NAME2 ) C----------------------------------------------------------------------- C C FUNCTION: C This routine searches for NAME1 in list NAME2 C C REVISION HISTORY: C 5/88 Modified for ROMNET C July 29, 2005 by FSB C Changed name to avoid conflict FSB C copied from CMAQ routine INDEX2 to allow internal use C C ARGUMENT LIST DESCRIPTION: C C Input arguments: C NAME1 Character string being searched for C N Length of array to be searched C NAME2 Character array to be searched C C Output arguments: C INDEX1 The position within the NAME2 array that NAME1 C found. If string was not found, INDEX1 = 0 C C LOCAL VARIABLE DESCRIPTION: C None C C----------------------------------------------------------------------- IMPLICIT NONE INTEGER, INTENT(IN) :: N CHARACTER*(*), INTENT(IN) :: NAME1 CHARACTER*(*), INTENT(IN) :: NAME2(*) INTEGER I !***Assume NAME1 is not in list NAME2 INDEXR = 0 DO I = 1, N IF ( INDEX( NAME2( I ), NAME1 ) .EQ. 1 ) THEN INDEXR = I RETURN END IF END DO RETURN END FUNCTION INDEXR SUBROUTINE GET_CSQY ( TEMP, DENS, CSZ, QYZ ) !----------------------------------------------------------------------- ! Purpose: Calculate values of absorption cross ! section and quantum yield, given, temperature and air ! pressure and density. ! ! reference for acetone: ! Cameron-Smith, Philip J., Incorporating non_linear computation ! code (Fast-J), Journal of Atmospheric Chemistry, Vol. 37, ! pp 283-297, 2000) ! ! Mar 2011: Bill Hutzell ! - revised interpolation method for a general number of ! interpolation points ! - revised density corrections for specific photolysis reactions ! Apr 2014: Bill Hutzell ! -revised method to determine what density corrections for a ! specific photolysis reactions from name select to index selection ! -revision agrument an variable names to use data available in CSQY_DATA ! and GRID_CONF modules ! Sept 2014: Bill Hutzell ! -revised fortrans looping constructs attempting to improve computational ! efficiency ! -corrected several density or pressure adjustment for quantum yield based on ! re-consulting source and cited references !----------------------------------------------------------------------- USE GRID_CONF ! horizontal & vertical domain specifications IMPLICIT NONE !***Arguments REAL, INTENT(IN) :: TEMP( : ) ! air temperature [K] REAL, INTENT(IN) :: DENS( : ) ! air density [molecules/cm**3] REAL, INTENT(OUT) :: CSZ( :, :, : ) ! abs cross sections REAL, INTENT(OUT) :: QYZ( :, :, : ) ! quantum yields !***Internal: INTEGER :: IT, IWL, LAYS, IPHOT REAL :: XTEMP ! local temperature REAL :: YTEMP ! temperature difference ratio REAL, ALLOCATABLE, SAVE :: DELTA_REFT( :, : ) INTEGER, ALLOCATABLE, SAVE :: ITEMP( :, : ) REAL, PARAMETER :: TTX1 = 235.0 REAL, PARAMETER :: TTX2 = 298.0 REAL, PARAMETER :: DTTX = TTX2 - TTX1 REAL :: PRESSURE ! units vary REAL :: FACTOR ! scratch variable for yield REAL :: ALPHA, BETA ! scratch variables REAL :: PHI_CO ! CO channel of acetone QYZ REAL :: PHI_CH3CO ! CH3CO channel of acetone QYZ LOGICAL, SAVE :: FIRSTCALL = .TRUE. IF ( FIRSTCALL ) THEN ALLOCATE( ITEMP( NLAYS, MECHANISM_RATES ) ) ALLOCATE( DELTA_REFT( (IREFTEMPS - 1), MECHANISM_RATES ) ) DO IT = 1, IREFTEMPS - 1 DO IPHOT = 1, MECHANISM_RATES DELTA_REFT( IT, IPHOT ) = RTEMP_S( IT + 1, IPHOT ) - RTEMP_S( IT, IPHOT ) END DO END DO CALL DEFINE_CSQY_ADJUST() FIRSTCALL = .FALSE. END IF !***determine and save where layer temperatures fall within range of CS and QY data DO IPHOT = 1, MECHANISM_RATES DO LAYS = 1, NLAYS IF ( TEMP( LAYS ) .LE. RTEMP_S( 1, IPHOT ) ) THEN ITEMP( LAYS, IPHOT ) = 0 ELSE IF ( TEMP( LAYS ) .GE. RTEMP_S( IREFTEMPS, IPHOT ) ) THEN ITEMP( LAYS, IPHOT ) = IREFTEMPS ELSE LOOP_FINDT: DO IT = 1, IREFTEMPS - 1 IF ( TEMP( LAYS ) .GT. RTEMP_S( IT, IPHOT ) .AND. TEMP( LAYS ) .LE. RTEMP_S( IT + 1, IPHOT ) ) THEN ITEMP( LAYS, IPHOT ) = IT EXIT LOOP_FINDT END IF END DO LOOP_FINDT END IF END DO END DO CSZ = 0.0 QYZ = 1.0 !***loop over rates for temperature corrections DO IPHOT = 1, MECHANISM_RATES !***loop over wavelengths DO IWL = 1, NWL_REF !***Loop over layers: DO LAYS = 1, NLAYS !***fetch temperature data XTEMP = TEMP( LAYS ) IT = ITEMP( LAYS, IPHOT ) IF ( IT .EQ. 0 ) THEN !***if the ambient temperature is cooler than the minimum !*** reference temperature, then use the value at the minimum reference temperature CSZ( LAYS, IWL, IPHOT ) = XXCS( IT+1, IWL, IPHOT ) QYZ( LAYS, IWL, IPHOT ) = XXQY( IT+1, IWL, IPHOT ) ELSE IF ( IT .GE. 1 .AND. IT .LT. IREFTEMPS ) THEN !***for the next case use linear interpolation YTEMP = ( XTEMP - RTEMP_S( IT, IPHOT ) ) & / DELTA_REFT( IT, IPHOT ) CSZ( LAYS, IWL, IPHOT ) = XXCS( IT, IWL, IPHOT ) & + ( XXCS( IT+1, IWL, IPHOT ) & - XXCS( IT, IWL, IPHOT ) ) & * YTEMP QYZ( LAYS, IWL, IPHOT ) = XXQY( IT, IWL, IPHOT ) & + ( XXQY( IT+1, IWL, IPHOT ) & - XXQY( IT, IWL, IPHOT ) ) & * YTEMP ELSE !***if the ambient temperature is warmer than the maximum !*** reference temperature, then use the value at the maximum reference temperature CSZ( LAYS, IWL, IPHOT ) = XXCS( IT, IWL, IPHOT ) QYZ( LAYS, IWL, IPHOT ) = XXQY( IT, IWL, IPHOT ) END IF END DO END DO END DO !***Make specific temperature and/or density corrections if needed !***Note specific acetone channels are treated outside these three nested loops DO IPHOT = 1, MECHANISM_RATES IF( CSQY_ADJUST( IPHOT ) .LT. 1 )CYCLE SELECT CASE ( CSQY_ADJUST( IPHOT ) ) CASE ( ACETALDEHYDE ) ! 'CH3CHO -> CH3 + HCO' FORALL( IWL = 1:NWL_REF ) FORALL( LAYS = 1:NLAYS, QYZ( LAYS, IWL, IPHOT ) .GT. 1.0E-5 ) QYZ( LAYS, IWL, IPHOT ) = 1.0 & / ( 1.0 + ( 1.0 / QYZ( LAYS, IWL, IPHOT ) - 1.0 ) * DENS( LAYS ) * 4.0568E-20 ) QYZ( LAYS, IWL, IPHOT ) = MAX( 0.0, MIN( 1.0, QYZ( LAYS, IWL, IPHOT ) ) ) END FORALL END FORALL CASE( CH3CHO_IUPAC2013 ) ! IUPAC 2013 correction for acetaldehyde ! density correction to quantum yield recommended in ! http://iupac.pole-ether.fr/htdocs/datasheets/pdf/P2_CH3CHO+hv.pdf dated June 2013 ! and based on ! Warneck, P. and Moortgat, G.K. (2012). Quantum yields and photodissociation coefficients of ! acetaldehyde in the troposphere, Atmos. Environ., 62, 153-163. FORALL( IWL = 1:NWL_REF ) FORALL( LAYS = 1:NLAYS, QYZ( LAYS, IWL, IPHOT ) .GT. 1.0E-5 ) QYZ( LAYS, IWL, IPHOT ) = QYZ( LAYS, IWL, IPHOT ) & * IPHIS_CH3CHO( IWL ) & / ( IPHI0_CH3CHO( IWL ) + KCH3CHO( IWL ) * DENS( LAYS ) ) QYZ( LAYS, IWL, IPHOT ) = MAX( 0.0, MIN( 1.0, QYZ( LAYS, IWL, IPHOT ) ) ) END FORALL END FORALL ! IF ( FIRSTCALL )THEN ! DO LAYS = 1, NLAYS ! WRITE(LOGDEV, 99951)'DENS, CH3CHO_IUPAC2013 QYZ factor = ', ' ',DENS( LAYS ), ! & (IPHIS_CH3CHO( IWL )/( IPHI0_CH3CHO( IWL ) + KCH3CHO( IWL ) * DENS( LAYS ) ),IWL=1,NWL_REF) ! END DO ! END IF CASE ( HIGHER_ALDEHYDES ) ! C3 and some higher aldehydes !***density correction to quantum yield FORALL( IWL = 1:NWL_REF ) FORALL( LAYS = 1:NLAYS, QYZ( LAYS, IWL, IPHOT ) .GT. 1.0E-5 ) QYZ( LAYS, IWL, IPHOT ) = 1.0 & / ( 1.0 + ( 1.0 / QYZ( LAYS, IWL, IPHOT ) - 1.0 ) * DENS( LAYS ) * 4.0568E-20 ) QYZ( LAYS, IWL, IPHOT ) = MAX( 0.0, MIN( 1.0, QYZ( LAYS, IWL, IPHOT ) ) ) END FORALL END FORALL CASE( NBUTYRALDEHYDE ) ! both photolysis channels for n-C3H7CHO ! based on recommendation in ! IUPAC Recommendation ! http://iupac.pole-ether.fr/htdocs/datasheets/pdf/P11_nC3H7CHO+hv.pdf dated 2002 FORALL( IWL = 1:NWL_REF ) FORALL( LAYS = 1:NLAYS, QYZ( LAYS, IWL, IPHOT ) .GT. 1.0E-5 ) QYZ( LAYS, IWL, IPHOT ) = QYZ( LAYS, IWL, IPHOT ) & * ( 1.81 + 4.919E-3 * TEMP( LAYS ) ) & / ( 1.81 + 2.000E-22 * DENS( LAYS ) * TEMP( LAYS ) ) QYZ( LAYS, IWL, IPHOT ) = MAX( 0.0, MIN( 1.0, QYZ( LAYS, IWL, IPHOT ) ) ) END FORALL END FORALL CASE ( METHYL_VINYL_KETONE ) !***quantum yield from !*** Gierczak, T., J. B. Burkholder, R. K. Talukdar, A. Mellouki, S. B. Barone, !*** and A. R. Ravishankara, Atmospheric fate of methyl vinyl ketone and methacrolein, !*** J. Photochem. Photobiol A: Chemistry, 110 1-10, 1997. !*** depends on pressure and wavelength, set upper limit to 1.0 !*** However, chamber evaluations for SAPRC07T require a pressure correction where !*** number density coefficient is five times higher. !***density correction to quantum yield !***remove wavelength dependence FORALL( LAYS = 1:NLAYS, IWL = 1:NWL_REF ) QYZ( LAYS, IWL, IPHOT ) = QYZ( LAYS, IWL, IPHOT ) * 118.4 & / ( 5.5 + 4.6E-19 * DENS( LAYS ) ) QYZ( LAYS, IWL, IPHOT ) = MAX(0.0, MIN( QYZ( LAYS, IWL, IPHOT ), 1.0 ) ) END FORALL CASE ( METHYL_ACROLEIN ) !***quantum yield based on 2.76 times MVK from !*** Gierczak, T., J. B. Burkholder, R. K. Talukdar, A. Mellouki, S. B. Barone, !*** and A. R. Ravishankara, Atmospheric fate of methyl vinyl ketone and methacrolein, !*** J. Photochem. Photobiol A: Chemistry, 110 1-10, 1997. !*** depends on pressure and wavelength, set upper limit to 1.0 !*** However, chamber evaluations for SAPRC07T require a pressure correction where !*** number density coefficient is five times higher. !***density correction to quantum yield !***remove wavelength dependence FORALL( LAYS = 1:NLAYS, IWL = 1:NWL_REF ) QYZ( LAYS, IWL, IPHOT ) = QYZ( LAYS, IWL, IPHOT ) * 118.4 & / ( 5.5 + 4.6E-19 * DENS( LAYS ) ) QYZ( LAYS, IWL, IPHOT ) = MAX(0.0, MIN( QYZ( LAYS, IWL, IPHOT ), 1.0 ) ) END FORALL CASE ( METHYL_ETHYL_KETONE ) !***Quantum Yields from !*** Raber, W.H. (1992) PhD Thesis, Johannes Gutenberg-Universitaet, Mainz, Germany. !*** other channels assumed negligible (less than 10%). !*** Total quantum yield = 0.38 at 760 Torr. !*** Ttemperature/Density correction to quantum yield in !*** Stern-Volmer form : 1/phi = 0.96 + 2.22e-3*P(torr) !*** Using relative correction to quantum yields based on above formula FORALL( IWL = 1:NWL_REF ) FORALL( LAYS = 1:NLAYS, QYZ( LAYS, IWL, IPHOT ) .GT. 0.0 ) ! skips SAPRC07T cases where qy is set to one and photolysis rate is scaled in mech.def !*** Carter adjusted to 0.175 based on chamber tests and sets the values in !*** mechanism definition file. The photolysis data submitted for SAPRC07T sets this !*** quantum yield to one. ! IF( QYZ( LAYS, IWL, IPHOT ) .GE. 1.0 )THEN ! CYCLE ! END IF ! PRESSURE = ( 1.03547E-19 * DENS( LAYS ) * TEMP( LAYS ) ) ! TORR ! IF ( PRESSURE .LT. 18.02 ) THEN ! QYZ( LAYS, IWL, IPHOT ) = 1.0 ! ELSE ! QYZ( LAYS, IWL, IPHOT ) = 1.0 / ( 0.96 + 2.22E-3 * PRESSURE ) ! END IF QYZ( LAYS, IWL, IPHOT ) = QYZ( LAYS, IWL, IPHOT ) & * ( 0.96 + 5.66639E-03 * TEMP( LAYS ) ) & / ( 0.96 + 2.29874E-22 * DENS( LAYS ) * TEMP( LAYS ) ) QYZ( LAYS, IWL, IPHOT ) = MAX( 0.0, MIN( 1.0, QYZ( LAYS, IWL, IPHOT ) ) ) END FORALL END FORALL CASE ( BIACETYL ) ! Biacetyl quantum yield (CH3CO + CH3CO) = 0.158 for wavelength less than 460 nm ! Pressure correction based on phi(z=infi) and ph(z=0) values based on ! http://iupac.pole-ether.fr/htdocs/datasheets/pdf/P23_Biacetyl+hv.pdf dated 2011 ! by solving the below for kq ! phi(z=infi)/ph(z=0) = (0.76/0.16) = 1.0 + kq*Temp(z=0)*Number_Density(z=0) ! where Temp(z=0) = 298.15K and Number_Density(z=0) = 2.46E19 molecules/cm3 FORALL( IWL = 1:NWL_REF ) FORALL( LAYS = 1:NLAYS, QYZ( LAYS, IWL, IPHOT ) .GT. 0.0 ) QYZ( LAYS, IWL, IPHOT ) = QYZ( LAYS, IWL, IPHOT ) & * ( 1.0 + 1.37662E-02 * TEMP( LAYS ) ) & / ( 1.0 + 5.19481E-22 * DENS( LAYS ) * TEMP( LAYS ) ) QYZ( LAYS, IWL, IPHOT ) = MAX( 0.0, MIN( 1.0, QYZ( LAYS, IWL, IPHOT ) ) ) END FORALL END FORALL CASE ( METHYL_GLYOXAL_IUPAC04 ) DO IWL = 1, NWL_REF IF( WAVELENGTH( IWL ) .GE. 500.0 .OR. WAVELENGTH( IWL ) .LE. 240.0 )CYCLE DO LAYS = 1, NLAYS IF( QYZ( LAYS, IWL, IPHOT ) .LE. 0.0 )CYCLE ! Replaced the following method used in CMAQ 5.01 !*** Pressure dependence based on Koch and Moortgat (1998), !*** J. Phys. Chem. A, vol 102, pages 9142. The application contradicts !*** NASA (2006) & IUPAC (2005) and is used based recommendations for !*** SAPRC07T photolysis rates by William Carter (2009) ! PRESSURE = MIN( 472.0, 1.03547E-19 * DENS( LAYS ) * TEMP( LAYS ) ) ! in TORRs !***remove wavelength dependence ! QYZ( LAYS, IWL, IPHOT ) = 6.4192E10 ! 1.36E8 * ( 472.0 ) ! & / ( 1.0 / QYZ( LAYS, IWL, IPHOT ) - 1.0 ) ! QYZ( LAYS, IWL, IPHOT ) = QYZ( LAYS, IWL, IPHOT ) ! & / ( QYZ( LAYS, IWL, IPHOT ) + 1.36E8 * PRESSURE ) ! by using the relative correction recommended in NASA JPL (2011). Note that linearily interpolated ! values are assumed to be at air number density equal to 2.465E19 molecules/cm3. Pressure units are Torrs. ! New correction is based on recommendation in ! http://iupac.pole-ether.fr/htdocs/datasheets/pdf/P6_CH3COCHO+hv.pdf dated 2003 ! but places lower limit on pressure of 4 Torrs based on source of recommendation: ! Y. Chen, W. Wang and L. Zhu, J. Phys. Chem. A, 104 11126 (2000). PRESSURE = 1.03547E-19 * TEMP( LAYS ) * DENS( LAYS ) FACTOR = 2.5524 * TEMP( LAYS ) ! pressure for dens at 2.465e19 molec/cm3 IF( WAVELENGTH( IWL ) .LE. 370.0 )THEN PRESSURE = MAX( 400.0, PRESSURE ) FACTOR = MAX( 400.0, FACTOR ) END IF QYZ( LAYS, IWL, IPHOT ) = QYZ( LAYS, IWL, IPHOT ) & * ( IPHI0_MGLY( IWL ) + KMGLY( IWL ) * FACTOR ) & / ( IPHI0_MGLY( IWL ) + KMGLY( IWL ) * PRESSURE ) QYZ( LAYS, IWL, IPHOT ) = MAX( 0.0, MIN( 1.0, QYZ( LAYS, IWL, IPHOT ) ) ) END DO END DO CASE ( ACROLEIN ) !***density correction quantum yield DO IWL = 1, NWL_REF DO LAYS = 1, NLAYS !***Number density dependence based on Gardner et. al (1987), !*** J. Phys. Chem., vol 91, pages 1922. The application uses !*** the quantum yields set in in cross-section file. !*** For SAPRC07T CSQY data, yields set approximately four times NASA (2006) !*** because the mechanism developer sums over all possible channels and !*** Gardner et. al may support this conclusion. IF ( DENS( LAYS ) .GE. 8.0E+17 ) THEN QYZ( LAYS, IWL, IPHOT ) = 153.5 * QYZ( LAYS, IWL, IPHOT ) & * ( 4.0E-3 + 1.0 / ( 8.6E-2 + 1.613E-17 * DENS( LAYS ) ) ) ELSE IF ( DENS( LAYS ) .LT. 8.0E+17 ) THEN QYZ( LAYS, IWL, IPHOT ) = 12.431 * QYZ( LAYS, IWL, IPHOT ) END IF QYZ( LAYS, IWL, IPHOT ) = MAX( 0.0, MIN( 1.0, QYZ( LAYS, IWL, IPHOT ) ) ) END DO END DO CASE ( FORMALDEHYDE_MOLECULAR ) ! 'CH2O -> H2 + CO' !***temperature/density correction to quantum yield ! based on ! Sander, S. P., Friedl, R. R., Abbatt, J. P. D., Barker, J. R., ! Burkholder, J. B., Golden, D. M., Kolb, C. E., Kurylo, M. J., ! Moortgat, G. K., Wine, P. H., Huie, R. E., and Orkin, V. L.: ! Chemical kinetics and photochemical data for use in atmospheric ! studies. Evaluation number 17, JPL-Publication 10-6, Pasadena, ! 2011. IF ( LHCHOR_06 .LE. 0 )CYCLE DO IWL = 1, NWL_REF IF ( WAVELENGTH( IWL ) .LE. 329.0 ) CYCLE DO LAYS = 1, NLAYS IF ( QYZ( LAYS, IWL, IPHOT ) .LE. 0.0 ) CYCLE IF( QYZ( LAYS, IWL, LHCHOR_06 ) .GT. 0.9999999 )THEN WRITE(6,*)"QYZ( LAYS, IWL, LHCHOR_06 ) = ",QYZ( LAYS, IWL, LHCHOR_06 ) CALL M3EXIT( 'GET_CSQY', 0, 0, 'CHECK master log for information', -1 ) END IF BETA = 1.0 / ( 1.0 - QYZ( LAYS, IWL, LHCHOR_06 ) ) IF ( TEMP( LAYS ) .LT. 300.0 .AND. TEMP( LAYS ) .GT. 220.0 ) THEN PRESSURE = 1.36312E-22 * DENS( LAYS ) * TEMP( LAYS ) ! pressure units, atm ALPHA = ( 1.0 / QYZ( LAYS, IWL, IPHOT ) - BETA ) & * ( 1.0 + 0.05 * ( WAVELENGTH( IWL ) - 329.0 ) & * ( ( TEMP( LAYS ) - 80.0 ) * 0.0125 ) ) ELSE IF ( TEMP( LAYS ) .LE. 220.0 ) THEN PRESSURE = 3.0E-20 * DENS( LAYS ) ALPHA = ( 1.0 / QYZ( LAYS, IWL, IPHOT ) - BETA ) & * ( 1.0 + 0.0875 * ( WAVELENGTH( IWL ) - 329.0 ) ) ELSE IF ( TEMP( LAYS ) .GE. 300.0 ) THEN PRESSURE = 4.09E-20 * DENS( LAYS ) ALPHA = ( 1.0 / QYZ( LAYS, IWL, IPHOT ) - BETA ) & * ( 1.0 + 0.1375 * ( WAVELENGTH( IWL ) - 329.0 ) ) END IF !***use relative change assuming that air density for interpolated value is 2.465e19 molecules/cm3 QYZ( LAYS, IWL, IPHOT ) = QYZ( LAYS, IWL, IPHOT ) & * ( BETA + 3.3601E-3 * TEMP( LAYS ) * ALPHA ) & / ( BETA + PRESSURE * ALPHA ) ! IF ( FIRSTCALL )THEN ! WRITE(LOGDEV, 99951)'TEMP, DENS, HCHO_M QYZ factor = ', ' ',TEMP( LAYS ), DENS( LAYS ), ! & ( BETA + 3.3601E-3 * TEMP( LAYS ) * ALPHA )/( BETA + PRESSURE * ALPHA ) ! END IF QYZ( LAYS, IWL, IPHOT ) = MAX( 0.0, MIN( 1.0, QYZ( LAYS, IWL, IPHOT ) ) ) END DO END DO CASE ( ACETONE ) ! 'CH3COCH3 -> products' total quantum yield !***temperature/density correction to quantum yield IF ( IPHOT .EQ. LACETONE ) THEN !***OPTT is the effective cross section ( Cs * QY ) !***This is an implementation of eq(21) of Cameron-Smith (2000) !***special information for acetone. Reference: !*** Cameron-Smith, P., Incorporation of non-linear effective cross section !*** parameterization into a fast photolysis computation code (Fast-J) !*** Journal of Atmospheric Chemistry, Vol. 37, pp 283-297, 2000. FORALL( LAYS = 1:NLAYS, IWL = 1:NWL_REF ) CSZ( LAYS, IWL, LACETONE ) = ( ( TTX2 - TEMP( LAYS ) ) * OP0( 1, IWL ) & + ( TEMP( LAYS ) - TTX1 ) * OP0( 2, IWL ) ) & / ( DTTX * ( 1.0 + YY30( IWL ) * DENS( LAYS ) ) ) QYZ( LAYS, IWL, LACETONE ) = 1.0 END FORALL ELSE ! approximate relative correction based on effective wavelengths DO IWL = 1, NWL_REF DO LAYS = 1, NLAYS QYZ( LAYS, IWL, IPHOT ) = RQUANTUM_ACETONE( TEMP( LAYS ), DENS( LAYS ), IWL ) & * QYZ( LAYS, IWL, IPHOT ) QYZ( LAYS, IWL, IPHOT ) = MAX( 0.0, MIN( 1.0, QYZ( LAYS, IWL, IPHOT ) ) ) END DO END DO END IF CASE ( ACETONE_CH3CO ) DO IWL = 1, NWL_REF DO LAYS = 1, NLAYS QYZ( LAYS, IWL, IPHOT ) = RQY_ACETONE_CH3CO( TEMP( LAYS ), DENS( LAYS ), IWL ) & * QYZ( LAYS, IWL, IPHOT ) QYZ( LAYS, IWL, IPHOT ) = MAX( 0.0, MIN( 1.0, QYZ( LAYS, IWL, IPHOT ) ) ) END DO END DO CASE( GLYOXAL_IUPAC_2013 ) DO IWL = 1, NWL_REF DO LAYS = 1, NLAYS QYZ( LAYS, IWL, IPHOT ) = RQY_GLYOXAL( TEMP( LAYS ), DENS( LAYS ), IWL ) & * QYZ( LAYS, IWL, IPHOT ) QYZ( LAYS, IWL, IPHOT ) = MAX( 0.0, MIN( 1.0, QYZ( LAYS, IWL, IPHOT ) ) ) END DO END DO CASE ( KETONE_LEGACY ) FORALL( LAYS = 1:NLAYS, IWL = 1:NWL_REF ) CSZ( LAYS, IWL, IPHOT ) = CSZ( LAYS, IWL, IPHOT ) / ( 1.0 + 0.80E-19 * DENS( LAYS ) ) END FORALL CASE ( KETONE_RACM2 ) ! Ketone treatement from W. Stockwell sbox FORALL( IWL = 1:NWL_REF ) FORALL( LAYS = 1:NLAYS, QYZ( LAYS, IWL, IPHOT ) .GT. 1.0E-5 .AND. QYZ( LAYS, IWL, IPHOT ) .LT. 0.9999 ) QYZ( LAYS, IWL, IPHOT ) = 1.0 & / (1.0 + 4.057E-20 * DENS( LAYS ) * ( 1.0 / QYZ(LAYS, IWL, IPHOT ) - 1.0 )) QYZ( LAYS, IWL, IPHOT ) = MAX( 0.0, MIN( 1.0, QYZ( LAYS, IWL, IPHOT ) ) ) END FORALL END FORALL CASE ( GLYOXAL_RACM2 ) ! glyoxal treatement from W. Stockwell sbox FORALL( IWL = 1:NWL_REF ) FORALL( LAYS = 1:NLAYS, QYZ( LAYS, IWL, IPHOT ) .GT. 1.0E-5 .AND. QYZ( LAYS, IWL, IPHOT ) .LT. 0.9999 ) QYZ( LAYS, IWL, IPHOT ) = 1.0 & / ( 1.0 + 4.057E-20 * DENS( LAYS ) * ( 1.0 / QYZ(LAYS, IWL, IPHOT ) - 1.0 )) QYZ( LAYS, IWL, IPHOT ) = MAX( 0.0, MIN( 1.0, QYZ( LAYS, IWL, IPHOT ) ) ) END FORALL END FORALL CASE ( METHYL_GLYOXAL_LEGACY ) FORALL( LAYS = 1:NLAYS, IWL = 1:NWL_REF ) CSZ( LAYS, IWL, IPHOT ) = CSZ( LAYS, IWL, IPHOT ) / ( 1.0 + 1.67E-19 * DENS( LAYS ) ) END FORALL END SELECT END DO ! loop on IPHOT ! IF ( FIRSTCALL )THEN ! DO IPHOT = 1, MECHANISM_RATES ! DO LAYS = 1, NLAYS ! WRITE(LOGDEV, 99951)'CSZ for ', PHOTOLYSIS_RATE( IPHOT ),(CSZ( LAYS, IWL, IPHOT ),IWL=1,NWL_REF) ! WRITE(LOGDEV, 99951)'QYZ for ', PHOTOLYSIS_RATE( IPHOT ),(QYZ( LAYS, IWL, IPHOT ),IWL=1,NWL_REF) ! END DO ! END DO ! FIRSTCALL = .FALSE. ! END IF 99951 FORMAT(A,A16,40(1X,ES12.4)) RETURN END SUBROUTINE GET_CSQY SUBROUTINE DEFINE_CSQY_ADJUST() ! Purpose determine whether a photolysis rate uses specific corrections to ! CSQY data ! Apr 2014 B.Hutzell Initial version ! Sept 2014 B.Hutzell corrected acetaldehyde case to include CCHO_R_SAPRC99, ! the photolysis rate used in original CB05 mechanism IMPLICIT NONE INTEGER :: IPHOT, IWL REAL( 8 ) :: ILAMBDA ALLOCATE( CSQY_ADJUST( MECHANISM_RATES ) ) DO IPHOT = 1, MECHANISM_RATES SELECT CASE ( TRIM( PHOTOLYSIS_RATE( IPHOT ) ) ) CASE ( 'CCHO_R', 'CCHO_R_SAPRC99', 'CH3CHO_RACM2', 'ALD2_R_IUPAC10', & 'ALD2_R_IUPAC13' ) ! 'CH3CHO -> CH3 + HCO' CSQY_ADJUST( IPHOT ) = ACETALDEHYDE CASE ( 'CCHO_R1_MCMv32', 'CCHO_R2_MCMv32' ) ! 'CH3CHO -> CH3 + HCO' CSQY_ADJUST( IPHOT ) = CH3CHO_IUPAC2013 IF( .NOT. ALLOCATED( KCH3CHO ) ) ALLOCATE( KCH3CHO( NWL_REF ) ) IF( .NOT. ALLOCATED( IPHI0_CH3CHO ) ) ALLOCATE( IPHI0_CH3CHO( NWL_REF ) ) IF( .NOT. ALLOCATED( IPHIS_CH3CHO ) ) ALLOCATE( IPHIS_CH3CHO( NWL_REF ) ) DO IWL = 1, NWL_REF IF( WAVELENGTH( IWL ) .LE. 608.0 )THEN ILAMBDA = REAL( 1.0D0 / WAVELENGTH( IWL ), 8 ) KCH3CHO( IWL ) = REAL( 1.0D-21 & * (1.04D27*EXP(-1.792D4*ILAMBDA) + 1.48D6*EXP(-3.211D3*ILAMBDA))) IPHI0_CH3CHO( IWL ) = 1.0 + EXP( 0.2627801*( WAVELENGTH( IWL ) - 320.56 ) ) IPHIS_CH3CHO( IWL ) = IPHI0_CH3CHO( IWL ) + 2.465E19 * KCH3CHO( IWL ) ELSE ! use values for wavelength equals 608 nm KCH3CHO( IWL ) = 1.64731E-07 IPHI0_CH3CHO( IWL ) = 5.50947E+32 IPHIS_CH3CHO( IWL ) = 5.50946E+32 END IF ! WRITE(LOGDEV, 99951)'DENS, CH3CHO_IUPAC2013 QYZ factor = ', ' ',2.465E19, ! & IPHIS_CH3CHO( IWL ),IPHI0_CH3CHO( IWL ),KCH3CHO( IWL ) END DO CASE ( 'NC3CHO_R_MCMv32', 'NC3CHO_M_MCMv32' ) ! n-C3H7CHO (n-butyraldehyde, n-butanal) CSQY_ADJUST( IPHOT ) = NBUTYRALDEHYDE CASE ( 'C2CHO', 'ALD_RACM2', 'BALD_RACM2', 'UALD_RACM2', 'ALDX_R_IUPAC10', 'ALDX_R_IUPAC13' ) ! C3 and higher aldehydes CSQY_ADJUST( IPHOT ) = HIGHER_ALDEHYDES CASE ( 'MVK_06' ) CSQY_ADJUST( IPHOT ) = METHYL_VINYL_KETONE CASE ( 'MACR_06', 'MACR_RACM2', 'MACR_MCMv32' ) CSQY_ADJUST( IPHOT ) = METHYL_ACROLEIN CASE ( 'MEK_06', 'MEK_MCMv32' ) CSQY_ADJUST( IPHOT ) = METHYL_ETHYL_KETONE CASE ( 'MGLY_06' , 'BACL_07', 'MGLY_IUPAC04', 'MGLY_IUPAC10' ) CSQY_ADJUST( IPHOT ) = METHYL_GLYOXAL_IUPAC04 IF( .NOT. ALLOCATED( KMGLY ) ) ALLOCATE( KMGLY( NWL_REF ) ) IF( .NOT. ALLOCATED( IPHI0_MGLY ) ) ALLOCATE( IPHI0_MGLY( NWL_REF ) ) WHERE( WAVELENGTH .LT. 380.41 ) IPHI0_MGLY = 1.0 KMGLY = 7.08021E-03 ELSE WHERE ! maximum value correspond to wavelength = 711.8954 nm IPHI0_MGLY = MAX( 2.755E+06 * EXP( -5639.0 / WAVELENGTH ), 1.0E+03 ) KMGLY = MAX( 1.93E+04 * EXP( -5639.0 / WAVELENGTH ), 7.00590 ) END WHERE CASE ( 'ACRO_09' ) CSQY_ADJUST( IPHOT ) = ACROLEIN CASE ( 'BIACET_MCMv32' ) CSQY_ADJUST( IPHOT ) = BIACETYL CASE ( 'HCHO_M_MCMv32', 'HCHOM_06', 'HCHO_M_SAPRC99', 'HCHO_MOL_RACM2', 'FORM_M_IUPAC10', & 'FORM_M_IUPAC13', 'HCHO_MOL_JPL19' ) ! 'CH2O -> H2 + CO' CSQY_ADJUST( IPHOT ) = FORMALDEHYDE_MOLECULAR CASE ( 'ACET_06', 'ACETONE', 'CH3COCH3_RACM2', 'ACET_IUPAC10' ) ! 'CH3COCH3 -> products' CSQY_ADJUST( IPHOT ) = ACETONE CASE ( 'KETONE' ) CSQY_ADJUST( IPHOT ) = KETONE_LEGACY CASE ( 'KET_RACM2', 'KET_JGR19', 'HKET_RACM2', 'MEK_RACM2', 'MEK_JGR19', 'MVK_RACM2' ) ! Ketone treatement from W. Stockwell sbox CSQY_ADJUST( IPHOT ) = KETONE_RACM2 CASE ( 'GLYH2_RACM2', 'GLYF_RACM2', 'GLYHX_RACM2', 'MGLY_RACM2' ) ! glyoxal treatement from W. Stockwell sbox CSQY_ADJUST( IPHOT ) = GLYOXAL_RACM2 CASE ( 'GLYOX_R_CRI', 'GLYOX_M_CRI', 'GLY_R_IUPAC10', 'GLY_R_IUPAC13' ) ! glyoxal treatement based on IUPAC 2013 datasheet CSQY_ADJUST( IPHOT ) = GLYOXAL_IUPAC_2013 CASE ( 'MGLY_ADJ', 'MGLY_ABS' ) CSQY_ADJUST( IPHOT ) = METHYL_GLYOXAL_LEGACY CASE ( 'ACET_R2_CRI', 'CH3COCH3A_JPL19' ) CSQY_ADJUST( IPHOT ) = ACETONE_CH3CO CASE DEFAULT CSQY_ADJUST( IPHOT ) = 0 END SELECT ! WRITE(LOGDEV,'(A)')'For rate ' // TRIM( PHOTOLYSIS_RATE( IPHOT ) ) ! & // ' using CSQY_ADJUSTMENT ' // TRIM( CSQY_ADJUSTMENTS( CSQY_ADJUST( IPHOT ) ) ) END DO RETURN 99951 FORMAT(A9,A16,40(1X,ES12.4)) END SUBROUTINE DEFINE_CSQY_ADJUST REAL FUNCTION QUANTUM_ACETONE( TEMP, DENS_NUMB, LAMBDA ) C----------------------------------------------------------------------- C Computes acetone quantum yields according to: C IUPAC (2013) recommendation based on C Blitz, M. A., D. E. Heard, M. J. Pilling, S. R. Arnold, and M. P. Chipperfield C (2004), Pressure and temperature-dependent quantum yields for the C photodissociation of acetone between 279 and 327.5 nm, Geophys. C Res. Lett., 31, L06111, doi:10.1029/2003GL018793. C----------------------------------------------------------------------- IMPLICIT NONE !***arguments REAL, INTENT(IN) :: TEMP ! air temperature, K REAL, INTENT(IN) :: DENS_NUMB ! air number density, 1/cm^3 REAL, INTENT(IN) :: LAMBDA ! wavelength, nm !***local REAL, PARAMETER :: ONE_OVER_295K = 1.0 / 295 ! 1/K REAL A0 ! 1st coef for qy REAL A1 ! 2nd coef for qy REAL A2 ! 3rd coef for qy REAL A3 ! 4th coef for qy REAL A4 ! 5th coef for qy REAL PHI_CO ! CO branch of IUPAC (2013) acetone QYZ REAL PHI_CH3CO ! CH3CO branch of IUPAC (2013) acetone QYZ REAL AA ! scratch variable for IUPAC (2013) acetone QYZ REAL BB ! scratch variable for IUPAC (2013) acetone QYZ REAL CC ! scratch variable for IUPAC (2013) acetone QYZ REAL TEMP_OVER_295K ! temperature divided by 295 K REAL ONE_OVER_LAMBDA ! reciprocal of wavelength, 1E7/nm or 1/cm TEMP_OVER_295K = TEMP * ONE_OVER_295K ONE_OVER_LAMBDA = 1.0E7 / LAMBDA IF ( LAMBDA .GE. 248.0 .AND. LAMBDA .LE. 349.0 ) THEN AA = 0.350 * ( TEMP_OVER_295K )**(-1.28) BB = 0.068 * ( TEMP_OVER_295K )**(-2.65) A0 = ( AA / ( 1.0 - AA ) ) * EXP( BB * ( LAMBDA - 248.0 ) ) PHI_CO = 1.0 / ( 1.0 + A0 ) IF ( LAMBDA .LE. 302.0 ) THEN !***wavelengths 248-302 nm AA = 1.600E-19 * ( TEMP_OVER_295K )**(-2.38) BB = 0.55E-03 * ( TEMP_OVER_295K )**(-3.19) A1 = AA * EXP( -BB * ( ( ONE_OVER_LAMBDA ) - 33113.0 ) ) PHI_CH3CO = ( 1.0 - PHI_CO ) / ( 1.0 + A1*DENS_NUMB ) !***wavelengths 302-349 nm ELSE AA = 1.62E-17 * ( TEMP_OVER_295K )**(-10.03) BB = 1.79E-03 * ( TEMP_OVER_295K )**(-1.364) A2 = AA * EXP( -BB * ( ( ONE_OVER_LAMBDA ) - 30488.0 ) ) AA = 26.29 * ( TEMP_OVER_295K )**(-6.59) BB = 5.72E-7 * ( TEMP_OVER_295K )**(-2.93) CC = ( 30006.0 ) * ( TEMP_OVER_295K )**(-0.064) A3 = AA * EXP( -BB * ( ( ONE_OVER_LAMBDA ) - CC )**2.0 ) AA = 1.67E-15 * ( TEMP_OVER_295K )**(-7.25) BB = 2.08E-03 * ( TEMP_OVER_295K )**(-1.16) A4 = AA * EXP( -BB * ( ( ONE_OVER_LAMBDA ) - 30488.0 ) ) PHI_CH3CO = ( 1.0 - PHI_CO ) & * ( 1.0 + A4 * DENS_NUMB + A3 ) & / ( ( 1.0 + A2 * DENS_NUMB + A3 ) & * ( 1.0 + A4 * DENS_NUMB ) ) END IF QUANTUM_ACETONE = MAX( 0.0, MIN( 1.0, (PHI_CO+PHI_CH3CO) ) ) ELSE IF ( LAMBDA .LT. 248.0 .AND. LAMBDA .GT. 0.0 ) THEN ! set QY to 1.0 !***based on IUPAC (2013) data sheet QUANTUM_ACETONE = 1.0 ELSE IF ( LAMBDA .GT. 349.0 ) THEN QUANTUM_ACETONE = 0.0 END IF RETURN END FUNCTION QUANTUM_ACETONE SUBROUTINE QY_ACETONE_CHANNELS( TEMP, DENS_NUMB, LAMBDA, PHI_CO, PHI_CH3CO ) C----------------------------------------------------------------------- C Computes acetone quantum yields according to: C IUPAC (2013) recommendation based on C Blitz, M. A., D. E. Heard, M. J. Pilling, S. R. Arnold, and M. P. Chipperfield C (2004), Pressure and temperature-dependent quantum yields for the C photodissociation of acetone between 279 and 327.5 nm, Geophys. C Res. Lett., 31, L06111, doi:10.1029/2003GL018793. C----------------------------------------------------------------------- IMPLICIT NONE !***arguments REAL, INTENT(IN) :: TEMP ! air temperature, K REAL, INTENT(IN) :: DENS_NUMB ! air number density, 1/cm^3 REAL, INTENT(IN) :: LAMBDA ! wavelength, nm REAL, INTENT(OUT) :: PHI_CO ! CO branch of IUPAC (2013) acetone QYZ REAL, INTENT(OUT) :: PHI_CH3CO ! CH3CO branch of IUPAC (2013) acetone QYZ !***local REAL, PARAMETER :: ONE_OVER_295K = 1.0 / 295.0 ! 1/K REAL A0 ! 1st coef for qy REAL A1 ! 2nd coef for qy REAL A2 ! 3rd coef for qy REAL A3 ! 4th coef for qy REAL A4 ! 5th coef for qy REAL AA ! scratch variable for IUPAC (2013) acetone QYZ REAL BB ! scratch variable for IUPAC (2013) acetone QYZ REAL CC ! scratch variable for IUPAC (2013) acetone QYZ REAL TEMP_OVER_295K ! temperature divided by 295 K REAL ONE_OVER_LAMBDA ! reciprocal of wavelength, 1E7/nm or 1/cm TEMP_OVER_295K = TEMP * ONE_OVER_295K ONE_OVER_LAMBDA = 1.0E7 / LAMBDA IF ( LAMBDA .GE. 248.0 .AND. LAMBDA .LE. 349.0 ) THEN AA = 0.350 * ( TEMP_OVER_295K )**(-1.28) BB = 0.068 * ( TEMP_OVER_295K )**(-2.65) A0 = ( AA / ( 1.0 - AA ) ) * EXP( BB * ( LAMBDA - 248.0 ) ) PHI_CO = 1.0 / ( 1.0 + A0 ) PHI_CO = MAX( 0.0, MIN( 1.0, PHI_CO ) ) IF ( LAMBDA .LE. 302.0 ) THEN !***wavelengths 248-302 nm AA = 1.60E-19 * ( TEMP_OVER_295K )**(-2.38) BB = 0.55E-03 * ( TEMP_OVER_295K )**(-3.19) A1 = AA * EXP( -BB * ( ( ONE_OVER_LAMBDA ) - 33113.0 ) ) PHI_CH3CO = ( 1.0 - PHI_CO ) / ( 1.0 + A1*DENS_NUMB ) !***wavelengths 302-349 nm ELSE AA = 1.62E-17 * ( TEMP_OVER_295K )**(-10.03) BB = 1.79E-03 * ( TEMP_OVER_295K )**(-1.364) A2 = AA * EXP( -BB * ( ( ONE_OVER_LAMBDA ) - 30488.0 ) ) AA = 26.29 * ( TEMP_OVER_295K )**(-6.59) BB = 5.72E-7 * ( TEMP_OVER_295K )**(-2.93) CC = 30006.0 * ( TEMP_OVER_295K )**(-0.064) A3 = AA * EXP( -BB * ( ( ONE_OVER_LAMBDA ) - CC )**2.0 ) AA = 1.67E-15 * ( TEMP_OVER_295K )**(-7.25) BB = 2.08E-03 * ( TEMP_OVER_295K )**(-1.16) A4 = AA * EXP( -BB * ( ( ONE_OVER_LAMBDA ) - 30488.0 ) ) PHI_CH3CO = ( 1.0 - PHI_CO ) & * ( 1.0 + A4 * DENS_NUMB + A3 ) & / ( ( 1.0 + A2 * DENS_NUMB + A3 ) & * ( 1.0 + A4 * DENS_NUMB ) ) END IF PHI_CH3CO = MAX( 0.0, MIN( 1.0, PHI_CH3CO ) ) ELSE IF ( LAMBDA .LT. 248.0 .AND. LAMBDA .GT. 0.0 ) THEN ! set QY to 1.0 !***based on IUPAC (2013) data sheet PHI_CO = 0.45 PHI_CH3CO = 0.55 ELSE IF ( LAMBDA .GT. 349.0 ) THEN PHI_CO = 0.0 PHI_CH3CO = 0.0 END IF RETURN END SUBROUTINE QY_ACETONE_CHANNELS #ifdef preprocessor REAL FUNCTION RQY_ACETONE_CH3CO( TEMP, DENS_NUMB, LAMBDA ) #else REAL FUNCTION RQY_ACETONE_CH3CO( TEMP, DENS_NUMB, IWAVE ) #endif C----------------------------------------------------------------------- C Computes correction to acetone CH3CO quantum yields at (TEMP, DENS_NUMB) relative to C quantum yields at (TEMP, DENS_NUMB = 2.46E19) according to: C IUPAC (2013) recommendation based on C Blitz, M. A., D. E. Heard, M. J. Pilling, S. R. Arnold, and M. P. Chipperfield C (2004), Pressure and temperature-dependent quantum yields for the C photodissociation of acetone between 279 and 327.5 nm, Geophys. C Res. Lett., 31, L06111, doi:10.1029/2003GL018793. C----------------------------------------------------------------------- IMPLICIT NONE !***arguments REAL, INTENT(IN) :: TEMP ! air temperature, K REAL, INTENT(IN) :: DENS_NUMB ! air number density, molcules/cm^3 #ifdef preprocessor REAL, INTENT(IN) :: LAMBDA ! wavelength, nm #else INTEGER, INTENT(IN) :: IWAVE ! wavelength index #endif !***local REAL, PARAMETER :: ONE_OVER_295K = 1.0 / 295.0 ! 1/K REAL, PARAMETER :: DENS0 = 2.46E19 ! air number at STP, molecules/cm^3 REAL A0 ! 1st coef for qy REAL A1 ! 2nd coef for qy REAL A2 ! 3rd coef for qy REAL A3 ! 4th coef for qy REAL A4 ! 5th coef for qy REAL PHI_CO ! CO qy at (TEMP, DENS_NUMB) REAL PHI_CH3CO ! CH3CO qy at (TEMP, DENS_NUMB) REAL PHI_COS ! CO qy branch at (TEMP, DENS0) REAL PHI_CH3COS ! inverse of CH3CO qy at (TEMP, DENS0) REAL AA ! scratch variable for acetone QY REAL BB ! scratch variable for acetone QY REAL CC ! scratch variable for acetone QY REAL TEMP_OVER_295K ! temperature divided by 295 K REAL ONE_OVER_LAMBDA ! wavenumber, 10E7/nm or 1/cm #ifndef preprocessor REAL LAMBDA ! wavelength, nm LAMBDA = WAVELENGTH( IWAVE ) ONE_OVER_LAMBDA = WAVENUMBER( IWAVE ) #else ONE_OVER_LAMBDA = 1.0E7 / LAMBDA #endif TEMP_OVER_295K = TEMP * ONE_OVER_295K IF ( LAMBDA .GE. 248.0 .AND. LAMBDA .LE. 349.0 ) THEN IF ( LAMBDA .LE. 302.0 ) THEN !***wavelengths 248-302 nm AA = 1.60E-19 * ( TEMP_OVER_295K )**(-2.38) BB = 0.55E-03 * ( TEMP_OVER_295K )**(-3.19) A1 = AA * EXP( -BB * ( ONE_OVER_LAMBDA - 33113.0 ) ) RQY_ACETONE_CH3CO = ( 1.0 + A1*DENS0 ) / ( 1.0 + A1*DENS_NUMB ) !***wavelengths 302-349 nm ELSE AA = 1.62E-17 * ( TEMP_OVER_295K )**(-10.03) BB = 1.79E-03 * ( TEMP_OVER_295K )**(-1.364) A2 = AA * EXP( -BB * ( ONE_OVER_LAMBDA - 30488.0 ) ) AA = 26.29 * ( TEMP_OVER_295K )**(-6.59) BB = 5.72E-7 * ( TEMP_OVER_295K )**(-2.93) CC = 30006.0 * ( TEMP_OVER_295K )**(-0.064) A3 = AA * EXP( -BB * ( ONE_OVER_LAMBDA - CC )**2.0 ) AA = 1.67E-15 * ( TEMP_OVER_295K )**(-7.25) BB = 2.08E-03 * ( TEMP_OVER_295K )**(-1.16) A4 = AA * EXP( -BB * ( ONE_OVER_LAMBDA - 30488.0 ) ) !***below qy_ch3co values are normalized by (1 - qy_co) which does not depend on !***number density PHI_CH3CO = ( 1.0 + A4 * DENS_NUMB + A3 ) & / ( ( 1.0 + A2 * DENS_NUMB + A3 ) * ( 1.0 + A4 * DENS_NUMB ) ) PHI_CH3COS = ( ( 1.0 + A2 * DENS0 + A3 ) * ( 1.0 + A4 * DENS0 ) ) & / ( 1.0 + A4 * DENS0 + A3 ) RQY_ACETONE_CH3CO = PHI_CH3CO * PHI_CH3COS END IF ELSE ! set RQY to 1.0 for 248.0 > LAMBDA or LAMBDA 349.0 RQY_ACETONE_CH3CO = 1.0 END IF RETURN END FUNCTION RQY_ACETONE_CH3CO #ifdef preprocessor REAL FUNCTION RQUANTUM_ACETONE( TEMP, DENS_NUMB, LAMBDA ) #else REAL FUNCTION RQUANTUM_ACETONE( TEMP, DENS_NUMB, IWAVE ) #endif C----------------------------------------------------------------------- C Computes total acetone quantum yields at (TEMP, DENS_NUMB) relative to C quantum yields at (TEMP, DENS_NUMB = 2.46E19) according to C IUPAC (2013) recommendation based on C Blitz, M. A., D. E. Heard, M. J. Pilling, S. R. Arnold, and M. P. Chipperfield C (2004), Pressure and temperature-dependent quantum yields for the C photodissociation of acetone between 279 and 327.5 nm, Geophys. C Res. Lett., 31, L06111, doi:10.1029/2003GL018793. C----------------------------------------------------------------------- IMPLICIT NONE !***arguments REAL, INTENT(IN) :: TEMP ! air temperature, K REAL, INTENT(IN) :: DENS_NUMB ! air number density, 1/cm^3 #ifdef preprocessor REAL, INTENT(IN) :: LAMBDA ! wavelength, nm #else INTEGER, INTENT(IN) :: IWAVE ! wavelength index #endif !***local REAL, PARAMETER :: ONE_OVER_295K = 1.0 / 295.0 ! 1/K REAL, PARAMETER :: DENS0 = 2.46E19 ! air number at STP, molecules/cm^3 REAL A0 ! 1st coef for qy REAL A1 ! 2nd coef for qy REAL A2 ! 3rd coef for qy REAL A3 ! 4th coef for qy REAL A4 ! 5th coef for qy REAL PHI_CO ! CO branch of IUPAC (2013) acetone QYZ REAL DEL_PHI_CO ! one minus CO branch of IUPAC (2013) acetone QYZ REAL PHI_CH3CO ! CH3CO branch of IUPAC (2013) acetone QYZ REAL PHI_CH3CO0 ! CH3CO branch of IUPAC (2013) acetone QYZ at DENS0 REAL AA ! scratch variable for IUPAC (2013) acetone QYZ REAL BB ! scratch variable for IUPAC (2013) acetone QYZ REAL CC ! scratch variable for IUPAC (2013) acetone QYZ REAL TEMP_OVER_295K ! temperature divided by 295 K REAL ONE_OVER_LAMBDA ! reciprocal of wavelength, 1E7/nm or 1/cm #ifndef preprocessor REAL LAMBDA ! wavelength, nm LAMBDA = WAVELENGTH( IWAVE ) ONE_OVER_LAMBDA = WAVENUMBER( IWAVE ) #else ONE_OVER_LAMBDA = 1.0E7 / LAMBDA #endif TEMP_OVER_295K = TEMP * ONE_OVER_295K IF ( LAMBDA .GE. 248.0 .AND. LAMBDA .LE. 349.0 ) THEN AA = 0.350 * ( TEMP_OVER_295K )**(-1.28) BB = 0.068 * ( TEMP_OVER_295K )**(-2.65) A0 = ( AA / ( 1.0 - AA ) ) * EXP( BB * ( LAMBDA - 248.0 ) ) PHI_CO = 1.0 / ( 1.0 + A0 ) DEL_PHI_CO = MAX(0.0, 1.0 - PHI_CO) IF ( LAMBDA .LE. 302.0 ) THEN !***wavelengths 248-302 nm AA = 1.600E-19 * ( TEMP_OVER_295K )**(-2.38) BB = 0.55E-03 * ( TEMP_OVER_295K )**(-3.19) A1 = AA * EXP( -BB * ( ( ONE_OVER_LAMBDA ) - 33113.0 ) ) PHI_CH3CO = DEL_PHI_CO / ( 1.0 + A1*DENS_NUMB ) PHI_CH3CO0 = DEL_PHI_CO / ( 1.0 + A1*DENS0 ) !***wavelengths 302-349 nm ELSE AA = 1.62E-17 * ( TEMP_OVER_295K )**(-10.03) BB = 1.79E-03 * ( TEMP_OVER_295K )**(-1.364) A2 = AA * EXP( -BB * ( ONE_OVER_LAMBDA - 30488.0 ) ) AA = 26.29 * ( TEMP_OVER_295K )**(-6.59) BB = 5.72E-7 * ( TEMP_OVER_295K )**(-2.93) CC = ( 30006.0 ) * ( TEMP_OVER_295K )**(-0.064) A3 = AA * EXP( -BB * ( ONE_OVER_LAMBDA - CC )**2.0 ) AA = 1.67E-15 * ( TEMP_OVER_295K )**(-7.25) BB = 2.08E-03 * ( TEMP_OVER_295K )**(-1.16) A4 = AA * EXP( -BB * ( ONE_OVER_LAMBDA - 30488.0 ) ) PHI_CH3CO = DEL_PHI_CO & * ( 1.0 + A4 * DENS_NUMB + A3 ) & / ( ( 1.0 + A2 * DENS_NUMB + A3 ) & * ( 1.0 + A4 * DENS_NUMB ) ) PHI_CH3CO0 = DEL_PHI_CO & * ( 1.0 + A4 * DENS0 + A3 ) & / ( ( 1.0 + A2 * DENS0 + A3 ) & * ( 1.0 + A4 * DENS0 ) ) END IF IF( (PHI_CO + PHI_CH3CO0) .GT. 1.0E-10 )THEN RQUANTUM_ACETONE = ( PHI_CO + PHI_CH3CO ) / ( PHI_CO + PHI_CH3CO0 ) ELSE RQUANTUM_ACETONE = 1.0 END IF ELSE RQUANTUM_ACETONE = 1.0 END IF RETURN END FUNCTION RQUANTUM_ACETONE #ifdef preprocessor REAL FUNCTION RQY_GLYOXAL( TEMP, DENS_NUMB, LAMBDA ) #else REAL FUNCTION RQY_GLYOXAL( TEMP, DENS_NUMB, IWAVE ) #endif !----------------------------------------------------------------------- ! Computes total glyoxal (CHOCHO) quantum yield at (TEMP, DENS_NUMB) ! relative to total yield at (TEMP0, DENS_NUMB = 2.46E19) according to ! IUPAC (2013) recommendation ! http://iupac.pole-ether.fr/htdocs/datasheets/pdf/P4_%28CHO%292+hv.pdf ! that is based on ! Salter, R. J., Blitz, M. A., Heard, D. E., Kovacs, T., Pilling, M. J., ! Rickard, A. R. and Seakins, P. W. (2013), Quantum yields for the photolysis ! of glyoxal below 350 nm and parameterisations for its photolysis rate in ! the troposphere, Phys. Chem. Chem. Phys., 15, 4984-4994, ! doi:10.1039/c3cp43597k. !----------------------------------------------------------------------- IMPLICIT NONE !***arguments REAL, INTENT(IN) :: TEMP ! air temperature, K REAL, INTENT(IN) :: DENS_NUMB ! air number density, 1/cm^3 #ifdef preprocessor REAL, INTENT(IN) :: LAMBDA ! wavelength, nm #else INTEGER, INTENT(IN) :: IWAVE ! wavelength index #endif !***local REAL, PARAMETER :: ONE_OVER_295K = 1.0 / 295.0 ! 1/K REAL( 8 ), PARAMETER :: DENS0 = 2.46D19 ! air number at STP, molecules/cm^3 REAL( 8 ) TEMP_OVER_295K ! temperature divided by 295 K REAL( 8 ) AA ! scratch variable for qy REAL( 8 ) BB ! scratch variable for qy REAL( 8 ) A1 ! 2nd coef for qy REAL( 8 ) A2 ! 3rd coef for qy REAL( 8 ) A3 ! 4th coef for qy REAL( 8 ) WN_OFFSET ! adjusted wavenumber, 1/cm REAL( 8 ) R8_DENS ! air number density, 1/cm^3 REAL ONE_OVER_LAMBDA ! wavenumber, 10E7/nm or 1/cm REAL QY_DENS_NUMB ! total qy at DENS_NUMB REAL IQY_DENS0 ! reciprocal of total qy at DENS0 #ifndef preprocessor REAL LAMBDA ! wavelength, nm LAMBDA = WAVELENGTH( IWAVE ) WN_OFFSET = REAL( WAVENUMBER( IWAVE ) - 23800.0, 8 ) #else WN_OFFSET = REAL( 1.0E7 / LAMBDA - 23800.0, 8 ) #endif TEMP_OVER_295K = REAL( TEMP * ONE_OVER_295K, 8 ) R8_DENS = REAL( DENS_NUMB, 8 ) IF( LAMBDA .LT. 460.0 .AND. LAMBDA .GT. 250.0 )THEN AA = 6.48D-19 * TEMP_OVER_295K**(-1.83D0) BB = 7.60D-04 * TEMP_OVER_295K**(-0.515D0) A1 = AA * EXP( -BB * WN_OFFSET ) AA = 1.128D02 * TEMP_OVER_295K**(-1.53D0) BB = 4.61D-03 * TEMP_OVER_295K**(-0.507D0) A2 = AA * EXP( -BB * WN_OFFSET ) AA = 2.25D-16 * TEMP_OVER_295K**(-9.18D0) BB = 7.80D-04 * TEMP_OVER_295K**(-7.03D0) A3 = AA * EXP( -BB * WN_OFFSET ) !*** note that values are normalized by total qy at DENS = 0.0 but ! its values equals 1.0 IQY_DENS0 = REAL( (1.0 + A2 + A3*DENS0 ) & / ((1.0 + A1*DENS0 + A2)*(1.0 + A3*DENS0)) ) QY_DENS_NUMB = REAL( (1.0 + A2 + A3*R8_DENS ) & / ((1.0 + A1*R8_DENS + A2)*(1.0 + A3*R8_DENS)) ) RQY_GLYOXAL = QY_DENS_NUMB * IQY_DENS0 ELSE RQY_GLYOXAL = 1.0 END IF RETURN END FUNCTION RQY_GLYOXAL END MODULE CSQY_DATA ================================================ FILE: CCTM/src/phot/inline/PHOTOLYSIS_ALBEDO.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! !::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: MODULE PHOTOLYSIS_ALBEDO C----------------------------------------------------------------------- C FUNCTION: Module contains a function and subroutine use to calculate the diffuse C and direct spectral albedo based on the fractional land use for each grid cell C C History: C 06/04/13 Bill Hutzell - Initial based on the albedo algorithm from phot.F C from CMAQ 5.01 C 08/08/14 Bill Hutzell - 1) commented out snow effect for water surfaces based on C assumption that snow disolves on contact and causes no C change on reflectivity C 2) changed how snow correction for land and sea ice takes C place. The change uses a snow albedo, computed in the C initialization routine instead of using the the snow C correction factor at each call for the surface albedo C calculation. The goal is to make the code easier to modify. C 02/01/19 David Wong - Implemented centralized I/O approach, removed all MY_N C clauses C----------------------------------------------------------------------- IMPLICIT NONE REAL, ALLOCATABLE :: SURFACE_ALBEDO( :,:,: ) ! time dependent surface albedo REAL, ALLOCATABLE :: DIFFUSE_ALBEDO( :,:,: ) ! time dependent surface albedo REAL, ALLOCATABLE :: WATER_FRACTION( :,: ) ! cell fraction covered by water or ocean REAL, ALLOCATABLE :: SEAICE ( :,: ) ! sea ice cover (fraction) REAL, ALLOCATABLE :: SNOCOV ( :,: ) ! snow cover (fractional) INTEGER :: STDATE ! starting GMT [YYYYDDD] INTEGER :: STTIME ! starting time [HHMMSS] INTEGER :: STRTHR ! starting GMT hour [HH] REAL :: JYFREQ ! 2PI/(# days in JYEAR) ! public variables: PUBLIC SURFACE_ALBEDO, DIFFUSE_ALBEDO, WATER_FRACTION, SEAICE, SNOCOV, & STDATE, STTIME, STRTHR, JYFREQ ! public procedures: PUBLIC INITIALIZE_ALBEDO, GET_ALBEDO PRIVATE REAL, PARAMETER :: SEAICE_POINT = 271.36 ! [K] -threshold to form sea ice ! based 2005 WRF model Documentation CHARACTER( 80 ) :: LAND_SCHEME INTEGER :: NUMB_LANDUSE INTEGER :: N_LAND_CLASSES ! number of land classes in scheme INTEGER :: N_WATER_CLASSES ! number of water classes in scheme REAL, ALLOCATABLE :: LANDMASK( :,: ) ! land-water mask: 1 for land and 0 for water INTEGER, ALLOCATABLE :: ALBMAP_TO_REF( : ) ! map from reference to used landuse for albedo REAL, ALLOCATABLE :: ALBFAC_TO_REF( : ) ! factor from reference to used landuse for albedo REAL, ALLOCATABLE :: LAND_ANNUAL ( :,:,:,: ) ! annual average of land albedo weighted by class REAL, ALLOCATABLE :: WATER_ANNUAL ( :,:,:,: ) ! annual average for water albedo weighted class REAL, ALLOCATABLE :: LAND_SNOW ( :,:,:,: ) ! snow covered albedo for land weighted by class REAL, ALLOCATABLE :: MAXIMUM_ALBEDO( : ) ! maximum allowed albedo per wavelength REAL, ALLOCATABLE :: WATER_SEASONAL( : ) ! seasonal coefficient for water albedo REAL, ALLOCATABLE :: WATER_ZENITH ( : ) ! solar zenith coefficient for water albedo REAL, ALLOCATABLE :: LAND_SEASONAL ( : ) ! seasonal coefficient for land albedo REAL, ALLOCATABLE :: LAND_ZENITH ( : ) ! solar zenith coefficient for land albedo REAL, ALLOCATABLE :: SEAICE_ANNUAL ( : ) ! annual average for sea ice REAL, ALLOCATABLE :: SEAICE_SNOW ( : ) ! snow covered albedo for sea ice REAL :: SEAICE_SEASONAL ! seasonal coefficient for sea ice albedo REAL :: SEAICE_ZENITH ! solar zenith coefficient for sea ice albedo REAL, ALLOCATABLE :: SFACTOR_LAND ( : ) ! seasonal correction for land albedo for land class REAL, ALLOCATABLE :: SFACTOR_WATER( : ) ! seasonal correction for water albedo for water class REAL, ALLOCATABLE :: ZFACTOR_LAND ( : ) ! combined seasonal and solar zenith angle correction for land class REAL, ALLOCATABLE :: ZFACTOR_WATER( : ) ! combined seasonal and solar zenith angle correction for water class REAL, ALLOCATABLE :: TEMPG ( :,: ) ! ground surface temperature [K] REAL WATER_SCALE ! water scaling factor used to calculate surface albedo REAL SEASONAL_COEFF ! coefficient for seasonal correction to surface albedo REAL ZENITH_COEFF ! coefficient for zenith angle correction to surface albedo REAL SNOW_COEFF ! coefficient for snow cover correction to surface albedo REAL SEA_MODULATE ! seasonal modulation in surface albedo REAL ZEN_MODULATE ! zenith angle modulation in surface albedo CONTAINS FUNCTION INITIALIZE_ALBEDO( MDATE, MTIME ) RESULT ( SUCCESS ) C... Function sets up arrays and data needed to calculate surface albedos C use in radiative transfer calculation for actinic fluxes USE UTILIO_DEFN ! IOAPI declaratiion and utilities #ifndef mpas #ifdef parallel USE SE_MODULES ! stenex (using SE_UTIL_MODULE) #else USE NOOP_MODULES ! stenex (using NOOP_UTIL_MODULE) #endif #endif USE PHOT_MOD ! photolysis in-line module USE PCGRID_DEFN ! get cgrid USE LSM_MOD, ONLY: N_LUFRAC, LSM_SCHEME => LAND_SCHEME USE CENTRALIZED_IO_MODULE, only : interpolate_var, LWMASK, LUFRAC, HAS_SEAICE IMPLICIT NONE INCLUDE SUBST_FILES_ID ! file name parameters C...Arguments: INTEGER, INTENT( IN ) :: MDATE ! Julian date (YYYYDDD) INTEGER, INTENT( IN ) :: MTIME ! time (HHMMSS) C...Local: REAL :: JYEAR ! year, ADE REAL :: MSCALE ! scaling factor REAL, ALLOCATABLE :: FRACTION_LANDUSE( :,:,: ) ! fractional cover for a landuse LOGICAL :: SUCCESS CHARACTER( 2 ) :: LU_INDEX CHARACTER( 17 ), PARAMETER :: PNAME = 'INITIALIZE_ALBEDO' CHARACTER( 16 ) :: VARNM CHARACTER( 240 ) :: XMSG = ' ' INTEGER :: ROW INTEGER :: COL INTEGER :: LEV INTEGER :: SPC INTEGER :: L INTEGER :: NL, NW INTEGER :: V, N, MODE INTEGER :: ALLOCSTAT INTEGER :: IWAVE LOGICAL, SAVE :: INITIALIZED = .FALSE. IF ( INITIALIZED ) THEN RETURN END IF C...compute start time data and frequency of annual cycle considering leap year STDATE = MDATE STTIME = MTIME STRTHR = MTIME / 10000 JYEAR = FLOAT( MDATE / 1000 ) ! Check this more carefully IF ( MOD( JYEAR, 4.0 ) .EQ. 0.0 ) THEN JYFREQ = 2.0 * PI / 366.0 ELSE JYFREQ = 2.0 * PI / 365.0 END IF SELECT CASE( LSM_SCHEME ) CASE( 'USGS24' ) NUMB_LANDUSE = NUMB_LANDUSE_USGS ! 24 LAND_SCHEME = LSM_SCHEME CASE( 'MODIS' ) NUMB_LANDUSE = NUMB_LANDUSE_MODIS ! 33 LAND_SCHEME = LSM_SCHEME CASE( 'NLCD50' ) NUMB_LANDUSE = NUMB_LANDUSE_NLCD50 ! 50 LAND_SCHEME = LSM_SCHEME CASE( 'NLCD40' ) NUMB_LANDUSE = NUMB_LANDUSE_NLCD40 ! 40 LAND_SCHEME = LSM_SCHEME IF ( NO_NLCD40 ) THEN XMSG = 'GRID_CRO_2D uses NLCD40 landuse scheme but ' & // 'CSQY_FILE does not have albedo factors for ' & // 'NLCD40' WRITE( LOGDEV,'( A )' ) TRIM( PNAME ) // ' : ' // XMSG SUCCESS = .FALSE. RETURN END IF CASE DEFAULT LAND_SCHEME = 'UNKNOWN' NUMB_LANDUSE = 2 ! simple land-water surface albedo END SELECT IF ( NUMB_LANDUSE .NE. 2 ) THEN ! test N_LUFRAC IF ( NUMB_LANDUSE .NE. N_LUFRAC ) THEN XMSG = TRIM( LAND_SCHEME ) // ' Landuse Scheme from (LSM) does ' & // 'not match number of classes expected in PHOT_OPTICS_DATA ' & // 'file' WRITE(LOGDEV,'( A )')TRIM( PNAME ) // ' : ' // XMSG WRITE(LOGDEV,'( 2(A,I4) )')'PHOT_OPTICS_DATA Value: ',NUMB_LANDUSE, & ' Value from Land Surface Module (LSM): ', N_LUFRAC IF( TRIM( LAND_SCHEME ) .EQ. 'MODIS' .AND. N_LUFRAC .EQ. 20 )THEN NUMB_LANDUSE = 20 XMSG = 'Special Case MODIS landuse: MET data has only first 20 classes' WRITE(LOGDEV,'( A )')TRIM( PNAME ) // ' : ' // XMSG XMSG = 'Albedo calculations use only these classes' WRITE(LOGDEV,'( A )')TRIM( PNAME ) // ' : ' // XMSG ELSE SUCCESS = .FALSE. RETURN END IF END IF END IF ALLOCATE ( ALBMAP_TO_REF( NUMB_LANDUSE ), ALBFAC_TO_REF( NUMB_LANDUSE ), & STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating ALBMAP_TO_REF and ALBFAC_TO_REF' WRITE(LOGDEV,'( A )')TRIM( PNAME ) // ' : ' // XMSG SUCCESS = .FALSE. RETURN END IF ALLOCATE ( FRACTION_LANDUSE( NUMB_LANDUSE,NCOLS,NROWS ), & STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating FRACTION_LANDUSE' WRITE(LOGDEV,'( A )')TRIM( PNAME ) // ' : ' // XMSG SUCCESS = .FALSE. RETURN END IF FRACTION_LANDUSE = 0.0 ALBMAP_TO_REF = -1 ALBFAC_TO_REF = 0.0 SELECT CASE( LAND_SCHEME ) CASE( 'USGS24' ) ALBMAP_TO_REF( 1:NUMB_LANDUSE ) = ALBMAP_REF2USGS( 1:NUMB_LANDUSE ) ALBFAC_TO_REF( 1:NUMB_LANDUSE ) = ALBFAC_REF2USGS( 1:NUMB_LANDUSE ) CASE( 'MODIS' ) ALBMAP_TO_REF( 1:NUMB_LANDUSE ) = ALBMAP_REF2MODIS( 1:NUMB_LANDUSE ) ALBFAC_TO_REF( 1:NUMB_LANDUSE ) = ALBFAC_REF2MODIS( 1:NUMB_LANDUSE ) CASE( 'NLCD50' ) ALBMAP_TO_REF( 1:NUMB_LANDUSE ) = ALBMAP_REF2NLCD50( 1:NUMB_LANDUSE ) ALBFAC_TO_REF( 1:NUMB_LANDUSE ) = ALBFAC_REF2NLCD50( 1:NUMB_LANDUSE ) CASE( 'NLCD40' ) ALBMAP_TO_REF( 1:NUMB_LANDUSE ) = ALBMAP_REF2NLCD40( 1:NUMB_LANDUSE ) ALBFAC_TO_REF( 1:NUMB_LANDUSE ) = ALBFAC_REF2NLCD40( 1:NUMB_LANDUSE ) CASE DEFAULT ALBMAP_TO_REF( 1 ) = INDEX_GRASSLAND_REF ALBFAC_TO_REF( 1 ) = 1.0 ALBMAP_TO_REF( 2 ) = INDEX_OCEAN_REF ALBFAC_TO_REF( 2 ) = 1.0 N_WATER_CLASSES = 1 N_LAND_CLASSES = 1 END SELECT IF ( LAND_SCHEME .NE. 'UNKNOWN' ) THEN WRITE( LOGDEV,'( 5X, A /5X, A )' ) TRIM( PNAME ) & // ': Identified ' // TRIM( LAND_SCHEME ) // ' land use scheme', & ' for surface albedo used by inline photolysis calculation.' N_WATER_CLASSES = 0 DO V = 1, NUMB_LANDUSE IF ( ALBMAP_TO_REF( V ) .EQ. INDEX_OCEAN_REF ) THEN N_WATER_CLASSES = N_WATER_CLASSES + 1 END IF DO ROW = 1, NROWS DO COL = 1, NCOLS FRACTION_LANDUSE( V,COL,ROW ) = LUFRAC( COL,ROW,V ) END DO END DO END DO N_LAND_CLASSES = NUMB_LANDUSE - N_WATER_CLASSES IF ( N_LAND_CLASSES .LE. 0 .OR. N_WATER_CLASSES .GE. NUMB_LANDUSE ) THEN WRITE(LOGDEV,'( A, I3,1X,I3 )')' N_WATER_CLASSES, N_LAND_CLASSES = ', & N_WATER_CLASSES, N_LAND_CLASSES XMSG = 'No Land classes found in ' // GRID_CRO_2D // & 'as expected for the ' // TRIM( LAND_SCHEME ) // ' land use scheme' WRITE(LOGDEV,'( A )')TRIM( PNAME ) // ' : ' // XMSG SUCCESS = .FALSE. RETURN END IF IF ( N_LAND_CLASSES .GE. NUMB_LANDUSE .OR. N_WATER_CLASSES .LE. 0 ) THEN WRITE(LOGDEV,'( A, I3,1X,I3 )')' N_WATER_CLASSES, N_LAND_CLASSES = ', & N_WATER_CLASSES, N_LAND_CLASSES XMSG = 'No water classes found in ' // GRID_CRO_2D // & 'as expected for the ' // TRIM( LAND_SCHEME ) // ' land use scheme' WRITE(LOGDEV,'( A )')TRIM( PNAME ) // ' : ' // XMSG SUCCESS = .FALSE. RETURN END IF ELSE XMSG = ': Undentified ' // TRIM( LAND_SCHEME ) & // ' land use scheme for inline photolysis calculation.' & // ' Using default land-water albedo for inline photolysis' & // ' calculation.' WRITE(LOGDEV,'( A )')TRIM( PNAME ) // ' : ' // XMSG DO ROW = 1, NROWS DO COL = 1, NCOLS IF ( LWMASK( COL,ROW ) .LT. 0.5 ) THEN FRACTION_LANDUSE( 2,COL,ROW ) = 1.0 ELSE FRACTION_LANDUSE( 1,COL,ROW ) = 1.0 END IF END DO END DO END IF ALLOCATE ( SNOCOV( NCOLS,NROWS ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating SNOCOV array' WRITE(LOGDEV,'( A )')TRIM( PNAME ) // ' : ' // XMSG SUCCESS = .FALSE. RETURN END IF ALLOCATE ( SEAICE( NCOLS,NROWS ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating SEAICE array' WRITE(LOGDEV,'( A )')TRIM( PNAME ) // ' : ' // XMSG SUCCESS = .FALSE. RETURN END IF IF ( .NOT. HAS_SEAICE ) THEN XMSG = 'MET_CRO_2D DOES NOT CONTAIN SEA ICE DATA. THE SURFACE ALBEDO ' & // 'DOES NOT INCLUDE ITS EFFECTS. Setting to one if water surface ' & // 'temperaure is less than 271.36K (WRF formation threshold).' WRITE( LOGDEV, '(A)' ) XMSG ALLOCATE ( TEMPG( NCOLS,NROWS ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating TEMPG array' WRITE(LOGDEV,'( A )')TRIM( PNAME ) // ' : ' // XMSG SUCCESS = .FALSE. RETURN END IF END IF ALLOCATE ( MAXIMUM_ALBEDO( NWL ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating MAXIMUM_ALBEDO' WRITE(LOGDEV,'( A )')TRIM( PNAME ) // ' : ' // XMSG SUCCESS = .FALSE. RETURN END IF ALLOCATE ( SURFACE_ALBEDO( NWL,NCOLS,NROWS ), & STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating SURFACE_ALBEDO' WRITE(LOGDEV,'( A )')TRIM( PNAME ) // ' : ' // XMSG SUCCESS = .FALSE. RETURN END IF ALLOCATE ( DIFFUSE_ALBEDO( NWL,NCOLS,NROWS ), & STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating DIFFUSE_ALBEDO' WRITE(LOGDEV,'( A )')TRIM( PNAME ) // ' : ' // XMSG SUCCESS = .FALSE. RETURN END IF ALLOCATE ( LAND_ANNUAL ( N_LAND_CLASSES,NWL,NCOLS,NROWS ), & STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating LAND_ANNUAL' WRITE(LOGDEV,'( A )')TRIM( PNAME ) // ' : ' // XMSG SUCCESS = .FALSE. RETURN END IF ALLOCATE ( LAND_SEASONAL( N_LAND_CLASSES ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating LAND_SEASONAL' WRITE(LOGDEV,'( A )')TRIM( PNAME ) // ' : ' // XMSG SUCCESS = .FALSE. RETURN END IF ALLOCATE ( LAND_ZENITH( N_LAND_CLASSES ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating ALBEDO_ZENITH' WRITE(LOGDEV,'( A )')TRIM( PNAME ) // ' : ' // XMSG SUCCESS = .FALSE. RETURN END IF ALLOCATE ( LAND_SNOW( N_LAND_CLASSES,NWL,NCOLS,NROWS ), & STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating ALBEDO_SNOW' WRITE(LOGDEV,'( A )')TRIM( PNAME ) // ' : ' // XMSG SUCCESS = .FALSE. RETURN END IF ALLOCATE ( SFACTOR_LAND( N_LAND_CLASSES ), ZFACTOR_LAND( N_LAND_CLASSES ), & STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating SFACTOR_LAND and ZFACTOR_LAND' WRITE(LOGDEV,'( A )')TRIM( PNAME ) // ' : ' // XMSG SUCCESS = .FALSE. RETURN END IF ALLOCATE ( WATER_ANNUAL( N_WATER_CLASSES,NWL,NCOLS,NROWS ), & STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating WATER_ANNUAL' WRITE(LOGDEV,'( A )')TRIM( PNAME ) // ' : ' // XMSG SUCCESS = .FALSE. RETURN END IF ALLOCATE( SFACTOR_WATER( N_LAND_CLASSES ), ZFACTOR_WATER( N_WATER_CLASSES ), & STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating SFACTOR_WATER and ZFACTOR_WATER' WRITE(LOGDEV,'( A )')TRIM( PNAME ) // ' : ' // XMSG SUCCESS = .FALSE. RETURN END IF ALLOCATE ( SEAICE_ANNUAL( NWL ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating SEAICE_ANNUAL' WRITE(LOGDEV,'( A )')TRIM( PNAME ) // ' : ' // XMSG SUCCESS = .FALSE. RETURN END IF ALLOCATE ( SEAICE_SNOW( NWL ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating SEAICE_SNOW' WRITE(LOGDEV,'( A )')TRIM( PNAME ) // ' : ' // XMSG SUCCESS = .FALSE. RETURN END IF ALLOCATE ( WATER_FRACTION( NCOLS,NROWS ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating WATER_FRACTION' WRITE(LOGDEV,'( A )')TRIM( PNAME ) // ' : ' // XMSG SUCCESS = .FALSE. RETURN END IF ALLOCATE ( WATER_SEASONAL( N_WATER_CLASSES ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating WATER_SEASONAL' WRITE(LOGDEV,'( A )')TRIM( PNAME ) // ' : ' // XMSG SUCCESS = .FALSE. RETURN END IF ALLOCATE ( WATER_ZENITH( N_WATER_CLASSES ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating WATER_ZENITH' WRITE(LOGDEV,'( A )')TRIM( PNAME ) // ' : ' // XMSG SUCCESS = .FALSE. RETURN END IF SURFACE_ALBEDO = 0.0 DIFFUSE_ALBEDO = 0.0 LAND_ANNUAL = 0.0 LAND_SEASONAL = 0.0 LAND_ZENITH = 0.0 LAND_SNOW = 0.0 C...determine average albedo and its adjustment factors for zenith angle, season and snow cover WATER_FRACTION = 0.0 WATER_SEASONAL = 1.0 WATER_ZENITH = 0.0 WATER_ANNUAL = 0.0 LAND_SEASONAL = 1.0 LAND_ZENITH = 0.0 LAND_SNOW = 0.0 LAND_ANNUAL = 0.0 MAXIMUM_ALBEDO = 0.0 NW = 0 NL = 0 DO V = 1, NUMB_LANDUSE ! set values for maximum allowed albedo; should correspond to fresh snow L = ALBMAP_TO_REF( V ) DO IWAVE = 1, NWL MAXIMUM_ALBEDO( IWAVE ) = MAX( MAXIMUM_ALBEDO( IWAVE ), & ALBFAC_TO_REF( V )* SPECTRAL_ALBEDO_REF( IWAVE, L ) ) END DO IF ( L .EQ. INDEX_OCEAN_REF ) THEN NW = NW + 1 WATER_SEASONAL( NW ) = SEASON_COEFF_REF( L ) WATER_ZENITH ( NW ) = ZENITH_COEFF_REF( L ) DO ROW = 1, NROWS DO COL = 1, NCOLS WATER_FRACTION( COL,ROW ) = WATER_FRACTION( COL,ROW ) & + FRACTION_LANDUSE( V,COL,ROW ) WATER_SCALE = ALBFAC_TO_REF( V ) * FRACTION_LANDUSE( V,COL,ROW ) DO IWAVE = 1, NWL WATER_ANNUAL( NW,IWAVE,COL,ROW ) = WATER_SCALE * SPECTRAL_ALBEDO_REF( IWAVE, L ) END DO END DO END DO ELSE NL = NL + 1 LAND_SEASONAL( NL ) = SEASON_COEFF_REF( L ) LAND_ZENITH ( NL ) = ZENITH_COEFF_REF( L ) DO ROW = 1, NROWS DO COL = 1, NCOLS MSCALE = ALBFAC_TO_REF( V ) * FRACTION_LANDUSE( V, COL, ROW ) DO IWAVE = 1, NWL LAND_ANNUAL( NL,IWAVE,COL,ROW ) = MSCALE * SPECTRAL_ALBEDO_REF( IWAVE, L ) LAND_SNOW ( NL,IWAVE,COL,ROW ) = SNOW_COEFF_REF( L ) * LAND_ANNUAL( NL,IWAVE,COL,ROW ) END DO END DO END DO END IF END DO C...set up sea ice annual and snow albedos along with correction factors L = INDEX_SEA_ICE SEAICE_SEASONAL = SEASON_COEFF_REF( L ) SEAICE_ZENITH = ZENITH_COEFF_REF( L ) DO IWAVE = 1, NWL SEAICE_ANNUAL( IWAVE ) = SPECTRAL_ALBEDO_REF( IWAVE, L ) SEAICE_SNOW ( IWAVE ) = SNOW_COEFF_REF( L ) * SEAICE_ANNUAL( IWAVE ) ! write(logdev,*)'SEAICE, SEAICE_ANNUAL, SEAICE_SNOW, SEAICE_SEASONAL, SEAICE_ZENITH = ', ! & SEAICE_ANNUAL( IWAVE), SEAICE_SNOW( IWAVE ),SEAICE_SEASONAL END DO SUCCESS = .TRUE. RETURN END FUNCTION INITIALIZE_ALBEDO SUBROUTINE GET_ALBEDO( MDATE, MTIME, COSZENS, LAT, LON ) C... Subroutine calculates diffuse and direct surface albedo versus wavelength over a set of C latitudes and longitudes USE UTILIO_DEFN ! IOAPI declaratiion and utilities USE PHOT_MOD ! photolysis in-line module #ifndef mpas #ifdef parallel USE SE_MODULES ! stenex (using SE_UTIL_MODULE) #else USE NOOP_MODULES ! stenex (using NOOP_UTIL_MODULE) #endif #endif USE PCGRID_DEFN ! get cgrid USE CENTRALIZED_IO_MODULE, only : interpolate_var, HAS_SEAICE IMPLICIT NONE INCLUDE SUBST_FILES_ID ! file name parameters C arguments: INTEGER, INTENT( IN ) :: MDATE ! Julian date (YYYYDDD) INTEGER, INTENT( IN ) :: MTIME ! time (HHMMSS) REAL, INTENT( IN ) :: COSZENS( :,: ) ! cosine of the solar zenith angle REAL, INTENT( IN ) :: LAT( :,: ) ! north lat at cell center [deg] REAL, INTENT( IN ) :: LON( :,: ) ! west long at cell center [deg] C local: REAL :: CURRENT_HOUR ! current GMT hour [sec] REAL :: JULIAN_DAY ! julian day [days] REAL :: CURRHR_LST ! local standard time at each grid cell REAL :: EQUATION_TIME ! equation of time REAL :: COSZEN ! working cosine of the solar zenith angle REAL :: SINLAT ! sine of latitude REAL :: COSLAT ! cosine of latitude REAL :: MSCALE ! scaling factor REAL :: ALBEDO_LAND ! scratch variable for land fraction REAL :: ALBEDO_WATER ! scratch variable for water fraction REAL :: ALBEDO_SEAICE ! scratch variable for seaice fraction REAL :: SFACTOR_SEAICE ! seasonal correction for seaice albedo REAL :: ZFACTOR_SEAICE ! solar zenith angle correction for seaice albedo REAL :: SNOW_FREE ! snow free fraction of cell REAL :: ICE_FREE ! water fraction free sea ice CHARACTER( 17 ), PARAMETER :: PNAME = 'GET_ALBEDO' CHARACTER( 16 ) :: VARNM CHARACTER( 240 ) :: XMSG = ' ' INTEGER :: ROW INTEGER :: COL INTEGER :: LEV INTEGER :: SPC INTEGER :: L INTEGER :: IWAVE INTEGER :: NW, NL INTEGER :: V, N, MODE INTEGER :: ALLOCSTAT C...Read & Interpolate SNOCOV call interpolate_var ('SNOCOV', mdate, mtime, SNOCOV) IF ( HAS_SEAICE ) THEN call interpolate_var ('SEAICE', mdate, mtime, SEAICE) ELSE call interpolate_var ('TEMPG', mdate, mtime, TEMPG) END IF C...Calculate current hour in GMT and julian day CURRENT_HOUR = REAL( STRTHR, 4 ) & + REAL( SECSDIFF( STDATE, STTIME, MDATE, MTIME ), 4 ) & / 3600.0 JULIAN_DAY = REAL(MOD( MDATE, 1000 ), 4 ) C...Calculate cosines of the zenith angles DO ROW = 1, NROWS DO COL = 1, NCOLS SINLAT = SIN( PI180 * LAT ( COL,ROW ) ) COSLAT = COS( PI180 * LAT ( COL,ROW ) ) C...correct CURRHR for current *positive* West longitude convention C... to obtain LST. C...this convention on longititude should be reexamined for different domains CURRHR_LST = CURRENT_HOUR + LON( COL,ROW ) / 15.0 IF ( .NOT. HAS_SEAICE ) THEN ! determine sea ice can form IF ( TEMPG( COL,ROW ) .LT. SEAICE_POINT .AND. & WATER_FRACTION( COL,ROW ) .GE. 0.95 ) THEN SEAICE( COL,ROW ) = 1.0 ELSE SEAICE( COL,ROW ) = 0.0 END IF END IF C...determine seasonal and snow corrections to surface albedo C... convert julian into time of year for grid cell C... seasonal adjustment has an 11 day phase delay in the solar cycle IF ( LAT( COL,ROW ) .GE. 0.0 ) THEN SEA_MODULATE = COS( JYFREQ * ( JULIAN_DAY + CURRHR_LST / 24.0 + 11.0 ) ) ELSE SEA_MODULATE = COS( JYFREQ * ( JULIAN_DAY + CURRHR_LST / 24.0 + 11.0 ) + PI ) END IF IF ( SEA_MODULATE .GE. 0.0 ) THEN MSCALE = 0.5 * ( 1.0 + SQRT( SEA_MODULATE ) ) ELSE SEA_MODULATE = ABS( SEA_MODULATE ) MSCALE = 0.5 * ( 1.0 - SQRT( SEA_MODULATE ) ) END IF !.. MSCALE equals 1 and 0 on winter and summer soltices, respectively !... Note that seasonal factors are equal to or less than 1.0 FORALL ( NL = 1:N_LAND_CLASSES ) SFACTOR_LAND( NL ) = 1.0 /( 1.0 + MSCALE * (LAND_SEASONAL ( NL ) - 1.0) ) END FORALL ! assume that open water has no other effect than sea ice that is a seasonal effect ! FORALL ( NW = 1:N_WATER_CLASSES ) ! SFACTOR_WATER( NW ) = 1.0 /( 1.0 + MSCALE * (WATER_SEASONAL( NW ) - 1.0) ) ! END FORALL ! SFACTOR_SEAICE = 1.0 /( 1.0 + MSCALE * (SEAICE_SEASONAL-1.0) ) C..Determine zenith angle correction to albedos C...First, test whether zenith angle is greater than 90 degrees. IF ( COSZENS( COL,ROW ) .LE. 0.0 ) THEN FORALL ( NL = 1:N_LAND_CLASSES ) ZFACTOR_LAND( NL ) = MAX( 0.8, ( 1.0 + LAND_ZENITH( NL ) ) ) ZFACTOR_LAND( NL ) = ZFACTOR_LAND( NL ) * SFACTOR_LAND( NL ) END FORALL ! Note that water zenith correction is later combined with seasonal correction FORALL ( NW = 1:N_WATER_CLASSES ) ZFACTOR_WATER( NW ) = MAX( 0.8,( 1.0 + WATER_ZENITH( NW ) ) ) END FORALL ZFACTOR_SEAICE = MAX( 0.8, ( 1.0 + SEAICE_ZENITH ) ) ELSE FORALL ( NL = 1:N_LAND_CLASSES ) ZFACTOR_LAND( NL ) = MAX( 0.8, ( 1.0 + LAND_ZENITH( NL ) ) & / ( 1.0 + 2.0 * COSZENS( COL,ROW ) * LAND_ZENITH( NL ) ) ) ZFACTOR_LAND( NL ) = ZFACTOR_LAND( NL ) * SFACTOR_LAND( NL ) END FORALL ! Note that water zenith correction is later combined with seasonal correction FORALL ( NW = 1:N_WATER_CLASSES ) ZFACTOR_WATER( NW ) = MAX( 0.8, ( 1.0 + WATER_ZENITH( NW ) ) & / ( 1.0 + 2.0 * COSZENS( COL,ROW ) * WATER_ZENITH( NW ) ) ) END FORALL ZFACTOR_SEAICE = MAX( 0.8, ( 1.0 + SEAICE_ZENITH ) & / ( 1.0 + 2.0 * COSZENS( COL,ROW ) * SEAICE_ZENITH ) ) END IF SNOW_FREE = MAX( ( 1.0 - SNOCOV( COL,ROW ) ), 0.0 ) ICE_FREE = MAX( ( 1.0 - SEAICE( COL,ROW ) ), 0.0 ) !...Update the season and zenith corrections for water and sea ice based on ice and water coverage, in !...the case for sea ice FORALL ( NW = 1:N_WATER_CLASSES ) SFACTOR_WATER( NW ) = ICE_FREE !!! * SFACTOR_WATER( NW ) ZFACTOR_WATER( NW ) = ZFACTOR_WATER( NW ) * SFACTOR_WATER( NW ) END FORALL SFACTOR_SEAICE = SEAICE( COL,ROW ) * WATER_FRACTION( COL,ROW ) DO IWAVE = 1, NWL C...compute seasonal diffuse albedos for land, water and seaice separately ALBEDO_LAND = 0.0 ALBEDO_WATER = 0.0 DO NL = 1, N_LAND_CLASSES IF ( LAND_ANNUAL( NL,IWAVE,COL,ROW ) .LT. 1.0E-6 ) CYCLE ALBEDO_LAND = ALBEDO_LAND + SFACTOR_LAND( NL ) & * ( SNOW_FREE * LAND_ANNUAL( NL,IWAVE,COL,ROW ) & + SNOCOV( COL,ROW ) * LAND_SNOW( NL,IWAVE,COL,ROW ) ) END DO DO NW = 1, N_WATER_CLASSES IF ( WATER_ANNUAL( NW,IWAVE,COL,ROW ) .LT. 1.0E-6 ) CYCLE ALBEDO_WATER = ALBEDO_WATER & + SFACTOR_WATER( NW ) * WATER_ANNUAL( NW,IWAVE,COL,ROW ) END DO ALBEDO_SEAICE = SFACTOR_SEAICE & * ( SNOW_FREE * SEAICE_ANNUAL( IWAVE ) & + SNOCOV( COL,ROW ) * SEAICE_SNOW( IWAVE ) ) C...sum for net diffuse albedo DIFFUSE_ALBEDO( IWAVE,COL,ROW ) = ALBEDO_LAND & + ALBEDO_WATER & + ALBEDO_SEAICE MSCALE = MAXIMUM_ALBEDO( IWAVE ) DIFFUSE_ALBEDO( IWAVE,COL,ROW ) = MIN( MSCALE, DIFFUSE_ALBEDO( IWAVE,COL,ROW ) ) C...Calculate albedos for combined correction from solar zenith angle and season ALBEDO_LAND = 0.0 ALBEDO_WATER = 0.0 DO NL = 1, N_LAND_CLASSES IF ( LAND_ANNUAL( NL,IWAVE,COL,ROW ) .LT. 1.0E-6 ) CYCLE ALBEDO_LAND = ALBEDO_LAND + ZFACTOR_LAND( NL ) & * ( SNOW_FREE * LAND_ANNUAL( NL,IWAVE,COL,ROW ) & + SNOCOV( COL,ROW ) * LAND_SNOW( NL,IWAVE,COL,ROW ) ) END DO DO NW = 1, N_WATER_CLASSES IF ( WATER_ANNUAL( NW,IWAVE,COL,ROW ) .LT. 1.0E-6 ) CYCLE ALBEDO_WATER = ALBEDO_WATER & + ZFACTOR_WATER( NW ) * WATER_ANNUAL(NW,IWAVE,COL,ROW ) END DO ALBEDO_SEAICE = ZFACTOR_SEAICE * ALBEDO_SEAICE C....sum for net direct albedo SURFACE_ALBEDO( IWAVE,COL,ROW ) = ALBEDO_LAND & + ALBEDO_WATER & + ALBEDO_SEAICE SURFACE_ALBEDO( IWAVE,COL,ROW ) = MIN( MSCALE, SURFACE_ALBEDO( IWAVE,COL,ROW ) ) END DO ! iwave END DO ! col END DO ! row RETURN END SUBROUTINE GET_ALBEDO END MODULE PHOTOLYSIS_ALBEDO ================================================ FILE: CCTM/src/phot/inline/PHOT_MET_DATA.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! ! Revision history: 01 Feb, 19 D. Wong: Implemented centralized I/O approach, ! removed all MY_N clauses C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: MODULE PHOT_MET_DATA IMPLICIT NONE REAL, ALLOCATABLE :: QC( :,:,: ) ! cloud water content [kg/kg] REAL, ALLOCATABLE :: QR( :,:,: ) ! rain water content [kg/kg] REAL, ALLOCATABLE :: QI( :,:,: ) ! ice content [kg/kg] REAL, ALLOCATABLE :: QS( :,:,: ) ! snow content [kg/kg] REAL, ALLOCATABLE :: QG( :,:,: ) ! graupel content [kg/kg] REAL, ALLOCATABLE :: QV( :,:,: ) ! water vapor content [kg/kg] REAL, ALLOCATABLE :: CFRAC_3D( :,:,: ) ! 3D fractional cloud coverage REAL, ALLOCATABLE :: CFRAC_2D( :,: ) ! layer averaged 3D fractional cloud coverage REAL, ALLOCATABLE :: AVE_HYDROMETEORS( :,: ) ! Cloud Hydrometeor Content averaged over cloudy layers, [g/m3] ! properties of ACM unresolved cloud LOGICAL :: USE_ACM_CLOUD = .TRUE. REAL, ALLOCATABLE :: ACM_CFRAC( :,:,: ) ! total fractional cloud coverage REAL, ALLOCATABLE :: ACM_QC ( :,:,: ) ! cloud water content [kg/kg] REAL, ALLOCATABLE :: ACM_QR ( :,:,: ) ! rain water content [kg/kg] REAL, ALLOCATABLE :: ACM_QI ( :,:,: ) ! ice content [kg/kg] REAL, ALLOCATABLE :: ACM_QG ( :,:,: ) ! graupel content [kg/kg] REAL, ALLOCATABLE :: ACM_CLOUDS ( :,: ) ! subgrid cloud fractions averaged over cloudy layer REAL, ALLOCATABLE :: ACM_AVE_H2O( :,: ) ! subgrid cloud water content averaged over cloudy layer, [g/m3] REAL, ALLOCATABLE :: COSINE_ZENITH( :,: ) ! cosine of solar zenith angle REAL, ALLOCATABLE :: DENS ( :,:,: ) ! air density [Kg/m **3] REAL, ALLOCATABLE :: TA ( :,:,: ) ! air temperature [K] REAL, ALLOCATABLE :: PRES ( :,:,: ) ! air pressure [Pa] REAL, ALLOCATABLE :: ZM ( :,:,: ) ! layer half height agl [m] REAL, ALLOCATABLE :: ZFULL ( :,:,: ) ! layer full height agl [m] REAL :: DIST_TO_SUN ! solar distance [au] ! public variables: PUBLIC :: QC, QR, QI, QS, QG, QV, & CFRAC_2D, CFRAC_3D, AVE_HYDROMETEORS, & USE_ACM_CLOUD, ACM_CFRAC, ACM_QC, ACM_QR, ACM_QI, ACM_QG, & ACM_CLOUDS, ACM_AVE_H2O, & COSINE_ZENITH, & DENS, TA, PRES, ZM, ZFULL, DIST_TO_SUN ! public procedures: PUBLIC :: GET_PHOT_MET, UPDATE_SUN, CLEAR_ACM_CLOUD, & CAPTURE_ACM_CLOUD PRIVATE INTEGER :: HYDROMETEORS ! denotes mix of hydrometeors available ! value cloud water rain ice snow graupel ! 1 x x ! 2 x x x x ! 3 x x x x x REAL, ALLOCATABLE :: CFRAC ( :,: ) ! total fractional cloud coverage REAL, ALLOCATABLE :: DELTA_Z( :,:,: ) ! layer thickness [m] ! flags for hydrometeors available on file: ! LOGICAL :: QV_AVAIL = .TRUE. ! QV (vapor) ! LOGICAL :: QC_AVAIL = .TRUE. ! QC (liquid) ! LOGICAL :: QR_AVAIL = .TRUE. ! QR (rain) ! LOGICAL :: QI_AVAIL = .TRUE. ! QI (ice) ! LOGICAL :: QS_AVAIL = .TRUE. ! QS (snow) ! LOGICAL :: QG_AVAIL = .TRUE. ! QG (graupel) ! LOGICAL :: CFRAC_3D_AVAIL = .TRUE. ! CFRAC_3D LOGICAL :: FIRSTIME = .TRUE. ! flag for first pass thru CHARACTER( 16 ) :: VARNM ! variable name for IOAPI to get CHARACTER( 16 ) :: VNAME_RN CHARACTER( 300 ) :: XMSG = ' ' ! Exit status message INTEGER :: LDATE ! last jdate MET data updated INTEGER :: LTIME ! last jtime MET data updated INTEGER :: STDATE ! jdate MET module initiated INTEGER :: STTIME ! jtime MET module initiated INTEGER :: ACM_DATE = -1 ! last date routine called INTEGER :: ACM_TIME = -1 ! last time routine called INTEGER :: GXOFF, GYOFF ! global origin offset from file REAL, ALLOCATABLE :: SINLATS( :,: ) ! sine of latitude REAL, ALLOCATABLE :: COSLATS( :,: ) ! cosine of latitude REAL :: STRTHR ! starting GMT hour LOGICAL :: SET_ACM_ARRAYS = .TRUE. CONTAINS C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE INIT_PHOT_MET( JDATE, JTIME ) USE GRID_CONF ! horizontal & vertical domain specifications USE UTILIO_DEFN USE CENTRALIZED_IO_MODULE IMPLICIT NONE !...........Includes: INCLUDE SUBST_CONST ! constants INCLUDE SUBST_FILES_ID ! file name parameters !...........Inputs: INTEGER, INTENT( IN ) :: JDATE ! current model date, coded YYYYDDD INTEGER, INTENT( IN ) :: JTIME ! current model time, coded HHMMSS !...........Local: INTEGER :: COL ! column loop counter INTEGER :: ROW ! row loop counter INTEGER :: ASTAT ! memory allocation status CHARACTER( 16 ) :: PNAME = 'INIT_PHOT_MET' LOGICAL, SAVE :: INITIALIZED = .FALSE. IF ( INITIALIZED ) RETURN INITIALIZED = .TRUE. ! set up variables for calculating cosine of solar zenith angle ALLOCATE ( SINLATS( NCOLS,NROWS ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN XMSG = 'Failure allocating SINLATS' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF ALLOCATE ( COSLATS( NCOLS,NROWS ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN XMSG = 'Failure allocating COSLATS' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF DO ROW = 1, NROWS DO COL = 1, NCOLS SINLATS( COL,ROW ) = SIN( PI180 * LAT ( COL,ROW ) ) COSLATS( COL,ROW ) = COS( PI180 * LAT ( COL,ROW ) ) END DO END DO ALLOCATE ( COSINE_ZENITH( NCOLS,NROWS ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN XMSG = 'Failure allocating COSINE_ZENITH' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF ALLOCATE ( CFRAC( NCOLS,NROWS ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN XMSG = 'Failure allocating CFRAC' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF ALLOCATE ( DENS( NCOLS,NROWS,NLAYS ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN XMSG = 'Failure allocating DENS' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF ALLOCATE ( TA( NCOLS,NROWS,NLAYS ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN XMSG = 'Failure allocating TA' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF ALLOCATE ( PRES( NCOLS,NROWS,NLAYS ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN XMSG = 'Failure allocating PRES' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF ALLOCATE ( ZM( NCOLS,NROWS,NLAYS ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN XMSG = 'Failure allocating ZM' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF ALLOCATE ( ZFULL( NCOLS,NROWS,NLAYS ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN XMSG = 'Failure allocating ZFULL' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF ALLOCATE ( DELTA_Z( NCOLS,NROWS,NLAYS ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN XMSG = 'Failure allocating DELTA_Z' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF ALLOCATE ( QV( NCOLS,NROWS,NLAYS ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN XMSG = 'Failure allocating QV' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF ALLOCATE ( QC( NCOLS,NROWS,NLAYS ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN XMSG = 'Failure allocating QC' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF ALLOCATE ( QR( NCOLS,NROWS,NLAYS ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN XMSG = 'Failure allocating QR' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF HYDROMETEORS = 1 ! always cloud water and rain ! test for which optional hydrometeors are available ! For WRF/MCIP: if GQ is available, all hydrometeors are available ! else if QI or QS is available, QC and QR are available IF ( QG_AVAIL ) THEN HYDROMETEORS = 3 ELSE WRITE( LOGDEV, '(3(/10X,A),(/10X,3(A,1X)),(/10X,A))' ) & 'YOU SHOULD VERIFY that the cloud microphysics scheme used', & 'in the Meteorological Model did not include graupel. If', & 'it did, then you need to reprocess the meteorological data', & 'through MCIP and pass QG to file ', & TRIM( MET_CRO_3D ), ' to avoid', & 'errors in the photolysis simulation.' WRITE( LOGDEV, '((/5X,A),/)' ) & 'Processing will continue with QG set to ZERO. <<--<<' IF ( QI_AVAIL ) THEN HYDROMETEORS = 2 ELSE WRITE( LOGDEV, '(3(/10X,A),(/10X,3(A,1X)),(/10X,A))' ) & 'YOU SHOULD VERIFY that the cloud microphysics scheme used', & 'in the Meteorological Model did not include ice/snow. If', & 'it did, then you need to reprocess the meteorological data', & 'through MCIP and pass QI to file ', & TRIM( MET_CRO_3D ), ' to avoid', & 'errors in the photolysis simulation.' WRITE( LOGDEV, '((/5X,A),/)' ) & 'Processing will continue with QI set to ZERO. <<---<<' END IF END IF ALLOCATE ( QG( NCOLS,NROWS,NLAYS ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN XMSG = 'Failure allocating QG' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF QG = 0.0 ALLOCATE ( QI( NCOLS,NROWS,NLAYS ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN XMSG = 'Failure allocating QI' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF QI = 0.0 ALLOCATE ( QS( NCOLS,NROWS,NLAYS ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN XMSG = 'Failure allocating QS' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF QS = 0.0 IF ( SET_ACM_ARRAYS .AND. USE_ACM_CLOUD ) THEN CALL INIT_ACM_CLOUD( 0, 0 ) SET_ACM_ARRAYS = .FALSE. END IF IF ( .NOT. CFRAC_3D_AVAIL ) THEN XMSG = 'Variable CFRAC_3D (cloud fraction) not found in ' // MET_CRO_3D CALL M3WARN ( PNAME, JDATE, JTIME, XMSG ) WRITE( LOGDEV, * ) WRITE( XMSG, '(4A)' ) & 'Model will diagnose layer cloud fraction using Randall (1995) ', & 'and Hong (1998), based on mixing ratios of water vapor and its ', & 'condensed states. You may want to reprocess the meteorological ', & 'data to obtain layer cloud fractions if possible.' CALL LOG_MESSAGE( LOGDEV, XMSG ) END IF ALLOCATE ( CFRAC_3D( NCOLS,NROWS,NLAYS ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN XMSG = 'Failure allocating CFRAC_3D' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF CFRAC_3D = 0.0 ALLOCATE ( CFRAC_2D( NCOLS,NROWS ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN XMSG = 'Failure allocating CFRAC_2D' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF ALLOCATE ( AVE_HYDROMETEORS( NCOLS,NROWS ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN XMSG = 'Failure allocating AVE_HYDROMETEORS' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF ! report out hydrometeors found SELECT CASE( HYDROMETEORS ) CASE( 1 ) WRITE( LOGDEV,2021 ) TRIM( PNAME ), "QC and QR" CASE( 2 ) WRITE( LOGDEV,2021 ) TRIM( PNAME ), "QC, QR, QI and QS" CASE( 3 ) WRITE( LOGDEV,2021 ) TRIM( PNAME ), "QC, QR, QG, QI and QS" END SELECT 2021 FORMAT( /10X, A, ": Cloud has ", A ) LDATE = 0 LTIME = 0 STDATE = JDATE STTIME = JTIME STRTHR = FLOAT( JTIME / 10000 ) FIRSTIME = .FALSE. END SUBROUTINE INIT_PHOT_MET C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE GET_PHOT_MET( JDATE, JTIME, MDATE, MTIME ) USE GRID_CONF ! horizontal & vertical domain specifications USE UTILIO_DEFN ! IO routines & utilties USE CENTRALIZED_IO_MODULE IMPLICIT NONE ! REVISION HISTORY: ! B.Hutzell Oct 13, 2015 Changed computation of effective resolved fraction, CFRAC_2D, ! to be consisitent with random cloud overlap model that in used in the ! radiative transfer calculation. Consult Tain and Curry (1989), JGR, vol.94, ! 9925-9935 for more information. !...........Includes: INCLUDE SUBST_CONST ! constants INCLUDE SUBST_FILES_ID ! file name parameters INTEGER, INTENT( IN ) :: JDATE ! current model date, coded YYYYDDD INTEGER, INTENT( IN ) :: JTIME ! current model time, coded HHMMSS INTEGER, INTENT( IN ) :: MDATE ! date for calculation/interpolation(yyyyddd) INTEGER, INTENT( IN ) :: MTIME ! time for calculation/interpolation (hhmmss) !..........Local: CHARACTER( 16 ), SAVE :: PNAME = 'GET_PHOT_MET' INTEGER :: COL ! column loop counter INTEGER :: ROW ! row loop counter INTEGER :: LAY ! layer loop counter INTEGER :: ASTAT ! allocation status measure REAL :: SUM_WEIGHTS REAL :: WEIGHT REAL :: WATER IF ( FIRSTIME ) THEN CALL INIT_PHOT_MET( JDATE, JTIME ) END IF !...store met file time, date, and step information and compute !... the met timestep in hours IF ( LDATE .EQ. MDATE .AND. LTIME .EQ. MTIME ) RETURN LDATE = MDATE LTIME = MTIME !... Interpolate time dependent layered input variables VARNM = 'ZH' ! midlayer height call interpolate_var (VARNM, mdate, mtime, ZM) VARNM = 'ZF' ! full layer height call interpolate_var (VARNM, mdate, mtime, ZFULL) !...Get air density (kg/m3) VARNM = 'DENS' call interpolate_var (VARNM, mdate, mtime, DENS) !...get temperature [K] VARNM = 'TA' call interpolate_var (VARNM, mdate, mtime, TA) !...pressure [Pa] VARNM = 'PRES' call interpolate_var (VARNM, mdate, mtime, PRES) !...Get resolved cloud fractions VARNM = 'CFRAC' call interpolate_var (VARNM, mdate, mtime, CFRAC) !...Get resolved water vapor mixing ratio (kg H2O / kg air) VARNM = 'QV' call interpolate_var (VARNM, mdate, mtime, QV) !...Get resolved cloud water mixing ratio (kg H2O / kg air) VARNM = 'QC' call interpolate_var (VARNM, mdate, mtime, QC) !...Get resolved rain water mixing ratio (kg H2O / kg air) VARNM = 'QR' call interpolate_var (VARNM, mdate, mtime, QR) IF ( QG_AVAIL ) THEN !...read resolved graupel and the other hydrometeor mixing ratios (kg H2O / kg air) !...from the met file if available VARNM = 'QG' call interpolate_var (VARNM, mdate, mtime, QG) !...read resolved ice and snow mixing ratios (kg H2O / kg air) VARNM = 'QI' call interpolate_var (VARNM, mdate, mtime, QI) VARNM = 'QS' call interpolate_var (VARNM, mdate, mtime, QS) ELSE IF ( QI_AVAIL ) THEN !...read resolved ice and snow mixing ratios (kg H2O / kg air) from the met !...from the met file if available VARNM = 'QI' call interpolate_var (VARNM, mdate, mtime, QI) VARNM = 'QS' call interpolate_var (VARNM, mdate, mtime, QS) END IF ! floor values of QC, QR, QI, QS, and QG to zero IF ( QG_AVAIL ) THEN DO LAY = 1, NLAYS DO ROW = 1, NROWS DO COL = 1, NCOLS QC( COL,ROW,LAY ) = MAX( QC( COL,ROW,LAY ), 0.0 ) QR( COL,ROW,LAY ) = MAX( QR( COL,ROW,LAY ), 0.0 ) QI( COL,ROW,LAY ) = MAX( QI( COL,ROW,LAY ), 0.0 ) QS( COL,ROW,LAY ) = MAX( QS( COL,ROW,LAY ), 0.0 ) QG( COL,ROW,LAY ) = MAX( QG( COL,ROW,LAY ), 0.0 ) END DO END DO END DO ELSE IF ( QI_AVAIL ) THEN DO LAY = 1, NLAYS DO ROW = 1, NROWS DO COL = 1, NCOLS QC( COL,ROW,LAY ) = MAX( QC( COL,ROW,LAY ), 0.0 ) QR( COL,ROW,LAY ) = MAX( QR( COL,ROW,LAY ), 0.0 ) QI( COL,ROW,LAY ) = MAX( QI( COL,ROW,LAY ), 0.0 ) QS( COL,ROW,LAY ) = MAX( QS( COL,ROW,LAY ), 0.0 ) END DO END DO END DO ELSE DO LAY = 1, NLAYS DO ROW = 1, NROWS DO COL = 1, NCOLS QC( COL,ROW,LAY ) = MAX( QC( COL,ROW,LAY ), 0.0 ) QR( COL,ROW,LAY ) = MAX( QR( COL,ROW,LAY ), 0.0 ) END DO END DO END DO END IF DO ROW = 1, NROWS DO COL = 1, NCOLS DELTA_Z( COL,ROW,1 ) = ZFULL( COL,ROW,1 ) FORALL ( LAY = 2:NLAYS ) DELTA_Z( COL,ROW,LAY ) = ZFULL( COL,ROW,LAY ) - ZFULL( COL,ROW,LAY-1 ) END FORALL END DO END DO IF ( CFRAC_3D_AVAIL ) THEN ! read from file VARNM = 'CFRAC_3D' call interpolate_var (VARNM, mdate, mtime, CFRAC_3D) ELSE ! diagnose CFRAC_3D from available data CALL CAL_CFRAC_3D() END IF ! compute averages for resolved cloud DO ROW = 1, NROWS DO COL = 1, NCOLS SUM_WEIGHTS = 0.0 CFRAC_2D( COL,ROW ) = 1.0 AVE_HYDROMETEORS( COL,ROW ) = 0.0 DO LAY = 1, NLAYS IF ( CFRAC_3D( COL,ROW,LAY ) .LE. 0.0 ) CYCLE WEIGHT = DELTA_Z( COL,ROW,LAY ) CFRAC_2D( COL,ROW ) = CFRAC_2D( COL,ROW ) & * ( 1.0 - CFRAC_3D( COL,ROW,LAY ) ) SUM_WEIGHTS = SUM_WEIGHTS + WEIGHT WATER = QC( COL,ROW,LAY ) + QR( COL,ROW,LAY ) + QI( COL,ROW,LAY ) & + QS( COL,ROW,LAY ) + QG( COL,ROW,LAY ) AVE_HYDROMETEORS( COL,ROW ) = AVE_HYDROMETEORS( COL,ROW ) & + DENS( COL,ROW,LAY ) * WATER * WEIGHT #ifdef phot_debug if ( cfrac_2d( col,row ) .ne. cfrac_2d( col,row ) .or. & sum_weights .ne. sum_weights ) then write( logdev,"(a,2es12.4)" ) "WEIGHT, CFRAC_3D = ", & weight, cfrac_3d( col,row,lay ) xmsg = 'Floating point exception for CFRAC_2D' call m3exit ( pname, jdate, jtime, xmsg, xstat1 ) end if #endif END DO IF ( SUM_WEIGHTS .LT. 1.0 ) THEN CFRAC_2D( COL,ROW ) = 0.0 ELSE CFRAC_2D( COL,ROW ) = 1.0 - CFRAC_2D( COL,ROW ) AVE_HYDROMETEORS( COL,ROW ) = 1.0E+3 * AVE_HYDROMETEORS( COL,ROW ) / SUM_WEIGHTS END IF END DO END DO IF ( USE_ACM_CLOUD ) THEN ! compute averages for subgrid clouds DO ROW = 1, NROWS DO COL = 1, NCOLS SUM_WEIGHTS = 0.0 ! ACM_CLOUDS( COL,ROW ) = 0.0 ACM_AVE_H2O( COL,ROW ) = 0.0 DO LAY = 1, NLAYS IF ( ACM_CFRAC( LAY,COL,ROW ) .LE. 0.0 ) CYCLE WEIGHT = DELTA_Z( COL,ROW,LAY ) SUM_WEIGHTS = SUM_WEIGHTS + WEIGHT ! acm clouds do not contain snow WATER = ACM_QC( LAY,COL,ROW ) + ACM_QI( LAY,COL,ROW ) & + ACM_QG( LAY,COL,ROW ) + ACM_QR( LAY,COL,ROW ) ! assume acm cloud is uniform or constant if it does not equal zero so set in ! subroutine CAPTURE_ACM_CLOUD ! ACM_CLOUDS( COL,ROW ) = ACM_CLOUDS( COL,ROW ) ! & + WEIGHT * ACM_CFRAC( LAY,COL,ROW ) ACM_AVE_H2O( COL,ROW ) = ACM_AVE_H2O( COL,ROW ) & + DENS( COL,ROW,LAY ) * WEIGHT * WATER END DO IF ( SUM_WEIGHTS .LT. 1.0 ) CYCLE ! ACM_CLOUDS( COL,ROW ) = ACM_CLOUDS( COL,ROW ) / SUM_WEIGHTS ACM_AVE_H2O( COL,ROW ) = 1.0E+3 * ACM_AVE_H2O( COL,ROW ) / SUM_WEIGHTS END DO END DO END IF END SUBROUTINE GET_PHOT_MET C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE UPDATE_SUN( JDATE, JTIME, MDATE, MTIME ) USE GRID_CONF ! horizontal & vertical domain specifications USE UTILIO_DEFN ! IO routines & utilties USE CENTRALIZED_IO_MODULE IMPLICIT NONE !***include files INCLUDE SUBST_CONST ! physical constants ! Inputs: INTEGER, INTENT( IN ) :: JDATE ! current model date, coded YYYYDDD INTEGER, INTENT( IN ) :: JTIME ! current model time, coded HHMMSS INTEGER, INTENT( IN ) :: MDATE ! date for calculation/interpolation(yyyyddd) INTEGER, INTENT( IN ) :: MTIME ! time for calculation/interpolation (hhmmss) ! Local: INTEGER, SAVE :: PDATE = 0 ! previous date called (yyyyddd) INTEGER, SAVE :: PTIME = 0 ! previous time called (hhmmss) INTEGER :: COL ! column loop counter INTEGER :: ROW ! row loop counter REAL :: SINDEC ! sine of the solar declination REAL :: COSDEC ! cosine of the solar declination REAL :: JYEAR ! year REAL :: JDAY ! current Julian day (DDD) REAL :: EQUATION_OF_TIME ! equation of time REAL :: CURRHR ! current GMT hour REAL :: CURRHR_LST ! local standard time at each grid cell REAL, PARAMETER :: ONE_OVER_15 = 1.0 / 15.0 REAL, PARAMETER :: ONE_OVER_3600 = 1.0 / 3600 IF ( FIRSTIME ) CALL INIT_PHOT_MET( JDATE, JTIME ) IF ( PDATE .EQ. JDATE .AND. PTIME .EQ. JTIME ) RETURN PDATE = JDATE PTIME = JTIME ! Compute distance to sun and set solar declination variables JDAY = FLOAT( MOD( JDATE, 1000 ) ) JYEAR = FLOAT( JDATE / 1000 ) CURRHR = STRTHR & + FLOAT( SECSDIFF( STDATE, STTIME, MDATE, MTIME ) ) & * ONE_OVER_3600 CALL SOLEFM3 ( JYEAR, JDAY, EQUATION_OF_TIME, SINDEC, COSDEC, DIST_TO_SUN ) DO ROW = 1, NROWS DO COL = 1, NCOLS !...correct CURRHR for current *positive* West longitude convention !...to obtain LST. !...this convention on longititude should be reexamined for different domains CURRHR_LST = CURRHR + LON( COL,ROW ) * ONE_OVER_15 CALL GETZEN2 ( CURRHR_LST , SINLATS( COL,ROW ), COSLATS( COL,ROW ), & SINDEC, COSDEC, EQUATION_OF_TIME, & COSINE_ZENITH( COL,ROW ) ) #ifdef verbose_update_sun if ( row .eq. 1 .and. col .eq. 1 ) then write(logdev,"(a,3es12.4)") "PHT: JYEAR, JDSTRT, SOLDIST = ", & jyear, jday, dist_to_sun write(logdev,"(a,7es12.4)") "PHT: CURRHR_LST, SINLAT, COSLAT, " // & "SINDEC, COSDEC, EQT, COSZEN = ", & currhr_lst , sinlats( col,row ), & coslats( col,row ), sindec, cosdec, & equation_of_time, cosine_zenith( col,row ) end if #endif END DO END DO END SUBROUTINE UPDATE_SUN C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE SOLEFM3 ( YEAR, DAY, EQT, SINDEC, COSDEC, SOLDIST ) C----------------------------------------------------------------------- C This subroutine calculates the sine and cosine of the solar C declination and the equation of time, and solar distance C using an approximation to equations used to generate the C tables in The Astronomical Almanac. C input: C year = year (e.g. 1998) C day = day of the year (e.g. Feb. 2 is 33) C lat = latitude in degrees (north is positive) C long = longitude in degrees (east is positive) C output: C EQT = Equation of Time C sindec = sine of the solar declination C cosdec = cosine of the solar declination C soldist = distance of sun in astronomical units C Revision history: C FSB Coded September 9, 2004 by Dr. Francis S. Binkowski C Environmental Modeling for Policy Development group, C The Carolina Environmental Program C The University of North Carolina-Chapel Hill C Email: frank_binkowski@unc.edu C REFERENCE:The code is a modification of that from C J.J. Michalsky, The Astronomical Almanac`s algorithm for C approximate solar position (1950-2050) C Solar Energy vol. 40, No. 3, pp 227-235, 1988. C who based it upon C The Astronomical Almanac, U.S. Gov`t. Printing Office, C Washington DC. Page c24 has the algorithm C The stated accuracy is 0.01 degree for the epoch ( 1950 - 2050). C----------------------------------------------------------------------- IMPLICIT NONE !***arugments REAL, INTENT( IN ) :: YEAR, DAY REAL, INTENT( OUT ) :: EQT, SINDEC, COSDEC, SOLDIST !***include files INCLUDE SUBST_CONST ! physical constants !***parameters ! from SUBST_CONST: REAL, PARAMETER :: PI = 3.1415927 REAL, PARAMETER :: TWOPI = 2.0 * PI ! from SUBST_CONST: REAL, PARAMETER :: PI180 = PI / 180.0 REAL, PARAMETER :: RAD = PI180 REAL, PARAMETER :: RADM1 = 1.0 / RAD !***FSB inline documentation defines the variables. REAL :: DELTA, LEAP, JD, TIME, L, G, LAMDA, EPSILON REAL :: ALPHA REAL :: SING, SIN2G, COSG, COS2G REAL(8) :: NUM, DEN !***start code !***get current julian date, jd !*** the offset year of 1949 is for convenience of having all !*** positive numbers for the epoch (1950 - 2050) DELTA = YEAR - 1949.0 LEAP = AINT( DELTA / 4.0 ) !***jd = 32916.5 + 365.0 * delta + leap + hour / 24.0 !***set hour = 12.0 and 12.0 / 24.0 -> 0.5 JD = 2432916.5 + 365.0 * DELTA + LEAP + DAY + 0.5 !***first number is jd for midnight 0 Jan 1949 !*** leap is leap days since 1949. !*** calculate ecliptic conditions: TIME = JD - 2451545.0 ! 51545.0 is noon Jan 1, 2000 !***calculate mean solar longitude (L) L = 280.460 + 0.985674 * TIME ! mean solar longitude !***now force L to be between 0.0 and 360. degrees L = MODULO( L, 360.0 ) IF ( L .lt. 0.0 ) L = L + 360.0 !***calculate mean anomaly (g) in radians between 0 and twopi G = 357.528 + 0.9856003 * TIME G = MODULO( G, 360.0 ) IF ( G .LT. 0.0 ) G = G + 360.0 G = RAD * G ! in radians now !***calculate trig functions of g using identities !*** this speeds up the calculations SING = SIN( G ) COSG = COS( G ) SIN2G = 2.0 * SING * COSG COS2G = COSG * COSG - SING * SING !***calculate ecliptic longitude ( Lamda) and !*** obliquity (epsilon) of ecliptic in radians LAMDA = L + 1.915 * SING + 0.020 * SIN2G LAMDA = MODULO( LAMDA, 360.0 ) IF ( LAMDA .LT. 0.0 ) LAMDA = LAMDA + 360.0 !***calculate obliquity (epsilon) EPSILON = 23.429 - 4.0E-7 * TIME LAMDA = RAD * LAMDA ! in radians EPSILON = RAD * EPSILON ! in radians !***now calculate right ascension (Alpha) Use this method to get the !*** correct quadrant. NUM = REAL( COS( EPSILON ) * SIN( LAMDA ), 8 ) ! numerator DEN = REAL( COS( LAMDA ), 8 ) ! denominator ALPHA = REAL( ATAN( NUM / DEN ), 4) !***force right ascension to be between 0 and twopi IF ( DEN .LT. 0.0D0 ) THEN ALPHA = ALPHA + PI ELSE IF ( NUM .LT. 0.0D0 ) THEN ALPHA = ALPHA + TWOPI END IF !***Alpha = atan2(num,den) !*** Alpha = MOD(Alpha, 360.0) !*** IF ( Alpha .lt. 0.0) Alpha = Alpha + 360.0 ALPHA = RADM1 * ALPHA ! Alpha now in degrees !***calculate the sine of the declination !*** (sindec) cosine of the declination (cosdec) SINDEC = SIN( EPSILON ) * SIN( LAMDA ) COSDEC = SQRT( 1.0 - SINDEC * SINDEC ) !***calculate the Equation of Time( EQT) in degrees. EQT = L - ALPHA IF ( EQT .GT. 350.0 ) EQT = EQT - 360.0 ! catch a problem !***calculate solar distance SOLDIST = 1.00014 - 0.01671 * COSG - 0.00014 * COS2G RETURN END SUBROUTINE SOLEFM3 C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE GETZEN2 ( TIME, SINLAT, COSLAT, SINDEC, COSDEC, EQT, & COSZEN ) C----------------------------------------------------------------------- C calculate the zenith angle information at the present time step C input: C time = LST in decimal hours < REAL for code portability C----------------------------------------------------------------------- USE RUNTIME_VARS USE CSQY_DATA USE PHOT_MET_DATA, ONLY: CFRAC_2D_AVE => CFRAC_2D IMPLICIT NONE !***include files INCLUDE SUBST_CONST ! physical constants !***parameters REAL, PARAMETER :: SMALL = 1.0E-36 ! a small number !***Fundamental Constants: ( Source: CRC76, pp 1-1 to 1-6) REAL, PARAMETER :: PLANCK_C = 6.62606876E-34 ! Planck's Constant [Js] REAL, PARAMETER :: LIGHT_SPEED = 299792458.0 ! speed of light in a vacuum REAL, PARAMETER :: DU_TO_CONC = 2.6879E16 ! factor from [DU] to [molecules/cm^2] REAL, PARAMETER :: CONC_TO_DU = 1.0 / DU_TO_CONC LOGICAL, PARAMETER :: ADJUST_OZONE = .FALSE. ! Flag to correct tropospheric ozone optical depth based ! on climatology REAL :: MIN_STRATO3_FRAC ! minimum fraction of O3 column in statosphere REAL :: MAX_TROPOO3_FRAC ! maximum fraction of O3 column in troposphere ! REAL, PARAMETER :: MIN_STRATO3_FRAC = 0.55 ! minimum fraction of O3 column in statosphere ! if PTOP = 50 mb ! REAL, PARAMETER :: MAX_TROPOO3_FRAC = 1.0 - MIN_STRATO3_FRAC ! maximum fraction of O3 column in troposphere !***LOGDEV for NEW_OPTICS and supporting routines INTEGER, SAVE :: NEW_OPTICS_LOG INTEGER, SAVE :: N_DIAG_WVL ! number of diagnostic wavelengths in PHOTDIAG3 file INTEGER, ALLOCATABLE, SAVE :: DIAG_WVL( : ) ! pointers to diagnostic wavelengths INTEGER :: N_TROPO_O3_TOGGLE ! number of adjustments to ozone extinction REAL, ALLOCATABLE :: RJ ( :, :, :, : ) ! average grid cell J-values (min-1) REAL, ALLOCATABLE :: RJ_RES ( :, :, :, : ) ! resolved cloud J-values (min-1) REAL, ALLOCATABLE :: RJ_SUB ( :, :, :, : ) ! subgrid cloud J-values (min-1) REAL, ALLOCATABLE :: ETOT_SFC_WL ( :,:,: ) ! total downward irradiance at sfc [ Watts / m**2 ] REAL, ALLOCATABLE :: BLKHCHO( : ) ! formaldehyde concentration [ molecules/cm**3 ] REAL, ALLOCATABLE :: BLKCO ( : ) ! CO concentration [ molecules/cm**3 ] REAL, ALLOCATABLE :: BLKSO2 ( : ) ! SO2 concentration [ molecules/cm**3 ] REAL, ALLOCATABLE :: BLKDZ ( : ) ! layer thicknesses [ m ] REAL, ALLOCATABLE :: GAS_EXTINCTION( :,: ) ! extinction from gases per layer [1/m] REAL, ALLOCATABLE :: EXTINCTION ( :,: ) ! total extinction per layer [1/m] REAL, ALLOCATABLE :: ACTINIC_FLUX ( :,: ) ! actinic fluxes, initially [Photons/(cm^2s)] then [Watts/m^2] REAL, ALLOCATABLE :: IRRADIANCE ( :,: ) ! total downward irradiance [Watts/m^2] REAL :: REFLECTION ! broad band reflection coefficient (diffuse) at model top REAL :: TRANSMISSION ! broad band transmission coefficient (diffuse) at surface REAL :: TRANS_DIRECT ! broad band direct transmission coefficient at surface REAL :: TROPO_O3_COLUMN ! ozone column density in the troposphere [Dobson Units] REAL :: TROPO_O3_TOGGLE ! factor correcting tropospheric ozone column REAL :: O3_TOGGLE_AVE ! average of nonunity factors adjusting ozone extinction REAL :: O3_TOGGLE_MIN ! Max of nonunity factors adjusting ozone extinction REAL :: COS85 ! cosine of 85 degrees ! Summary Aerosol Metrics Needed by the PM Diagnostic Module REAL, ALLOCATABLE, SAVE :: TAU_AERO_550( :,: ) ! total aerosol optical depth at 550 nm (Angstrom Interpolation) REAL, ALLOCATABLE, SAVE :: AERO_EXT_550( :,:,: ) ! aerosol extinction at 550 nm for layer [1/m] REAL, ALLOCATABLE, SAVE :: TAU_ABS_AERO_550( :,: ) ! sbsorption aerosol optical depth at 550 nm (Angstrom Interpolation) REAL, ALLOCATABLE, SAVE :: AERO_ABS_550( :,:,: ) ! aerosol absorption coeff at 550 nm for layer [1/m] LOGICAL :: ONLY_SOLVE_RAD ! only compute fluxes LOGICAL :: OBEY_STRATO3_MINS = .TRUE. ! Has stratospheric O3 column not violated ! climatological minimums, yet? LOGICAL :: STRATO3_MINS_MET ! Does the call to NEW_OPTICS meet the stratospheric O3 column ! climatological minimums? CHARACTER( 133 ) :: PHOT_MOD_MSG INTEGER :: PHOT_COL ! cell column of routine calling module routine INTEGER :: PHOT_ROW ! cell row of routine calling module routine CONTAINS SUBROUTINE INIT_PHOT_SHARED() USE RXNS_DATA ! chemistry variables and data USE GRID_CONF ! horizontal & vertical domain specifications USE UTILIO_DEFN ! Purpose: initialize data and arrays shared by other science processes IMPLICIT NONE !Arguments: None !Local: INTEGER :: ALLOCSTAT CHARACTER( 240 ) :: XMSG = ' ' LOGICAL, SAVE :: INITIALIZED = .FALSE. IF ( INITIALIZED ) RETURN INITIALIZED = .TRUE. CALL LOAD_CSQY_DATA( ) CALL LOAD_OPTICS_DATA( ) ALLOCATE( RJ ( NCOLS, NROWS, NLAYS, NPHOTAB ), & RJ_RES ( NCOLS, NROWS, NLAYS, NPHOTAB ), & RJ_SUB ( NCOLS, NROWS, NLAYS, NPHOTAB ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating photolysis rate arrays' CALL M3EXIT ( 'INIT_PHOT_SHARED', 0, 0, XMSG, XSTAT1 ) END IF ALLOCATE( ETOT_SFC_WL( NCOLS,NROWS,NWL ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating irradiance rate array' CALL M3EXIT ( 'INIT_PHOT_SHARED', 0, 0, XMSG, XSTAT1 ) END IF RJ = 0.0; RJ_RES = 0.0; RJ_SUB = 0.0 ETOT_SFC_WL = 0.0 END SUBROUTINE INIT_PHOT_SHARED C/////////////////////////////////////////////////////////////////////// SUBROUTINE NEW_OPTICS ( JDATE, JTIME, NLAYS, & BLKTA, BLKPRS, BLKDENS, BLKZH, BLKZF, & BLKO3, BLKNO2, & ZSFC, COSZEN, SINZEN, RSQD, & NEW_PROFILE, CLOUDS, CLDFRC, & BLKRJ, TAUC_AERO, TAU_TOT, TAUO3_TOP, & TAU_RAY, SSA_AERO, TAU_CLOUD, TOTAL_O3_COLUMN ) C----------------------------------------------------------------------- C C FSB NOTE new call vector <<<<<<<<<<<<< ********** C C FSB This version has clouds C FSB calculates the photolysis rates as a function of species and height C C first coded 10/19/2004 by Dr. Francis S. Binkowski C Carolina Environmental Program C University of North Carolina at Chapel Hill C email: frank_binkowski@unc.edu C modified by FSB July 29, 2005, 01/19/2006 by FSB C C Mar 2011 Bill Hutzell C -revised arguement to account for aerosol redesign in C CMAQ version 5.0 C -change array declaration to allow flexible number of C wavelength bins C Apr 2012 Bill Hutzell C -revised error checking to needed photolysis data C -modified case statement for RACM2 photolysis rates C -moved aerosol optics to its own module C 07 Jul 14 B.Hutzell: replaced mechanism include file(s) with fortran module C----------------------------------------------------------------------- USE UTILIO_DEFN USE RXNS_DATA ! chemical mechanism data USE CLOUD_OPTICS ! data and routines for optics of cloud hydrometeors USE AERO_PHOTDATA IMPLICIT NONE !***arguments INTEGER, INTENT(IN) :: JDATE ! julian date YYYYDDD INTEGER, INTENT(IN) :: JTIME ! TIME HHMMSS INTEGER, INTENT(IN) :: NLAYS ! # of vertical layers REAL, INTENT(IN) :: BLKPRS ( : ) ! Air pressure in [ atm ] REAL, INTENT(IN) :: BLKTA ( : ) ! Air temperature [ K ] REAL, INTENT(IN) :: BLKDENS( : ) ! Air density [ molecules / cm**3 ] REAL, INTENT(IN) :: BLKZH ( : ) ! layer half-height [ m ] REAL, INTENT(IN) :: BLKZF ( : ) ! layer full height[ m ] REAL, INTENT(IN) :: BLKO3 ( : ) ! O3 concentration [ molecules / cm**3 ] REAL, INTENT(IN) :: BLKNO2 ( : ) ! NO2 concentration [ molecules / cm**3 ] REAL, INTENT(IN) :: ZSFC ! surface height (msl) [ m ] REAL, INTENT(IN) :: COSZEN, SINZEN ! sine and cosine of the zenith angle REAL, INTENT(IN) :: RSQD ! square of solar distance [ au**2 ] LOGICAL, INTENT(IN) :: NEW_PROFILE ! Has the atmospheric profile changed since last call? LOGICAL, INTENT(IN) :: CLOUDS( : ) ! Does layer have clouds REAL, INTENT(IN) :: CLDFRC( : ) ! fraction of gridcell covered by cloud REAL, INTENT(OUT) :: BLKRJ( :,: ) ! photolysis rates [ 1 / sec ] REAL, INTENT(OUT) :: TAUC_AERO( :,: ) ! aerosol optical depth, bottom of layer REAL, INTENT(OUT) :: TAU_TOT ( :,: ) ! total optical depth, bottom of layer REAL, INTENT(OUT) :: TAU_CLOUD( :,: ) ! cloud optical depth, bottom of layer REAL, INTENT(INOUT) :: TAUO3_TOP( : ) ! optical depth of ozone above model domain REAL, INTENT(INOUT) :: TAU_RAY ( : ) ! Rayleigh optical depth above model domain REAL, INTENT(OUT) :: SSA_AERO ( : ) ! single scatering albedo for aerosol column REAL, INTENT(INOUT) :: TOTAL_O3_COLUMN ! total ozone colum density [ DU ] !***internal REAL, PARAMETER :: ONE_OVER_PI = 1.0 / PI REAL, PARAMETER :: STRAT_TEMP = 225.0 ! stratospheric temperature REAL, PARAMETER :: ZTOA = 50.0E3 ! top of the atmosphere [ m ] INTEGER L, I, IWL, II, ILEV, IPHOT, MODE ! loop indices INTEGER NLEVEL REAL SOLAR_FLUX ! solar flux at atmosphere top in a wavelength band, [photons/(cm^2*s)] REAL INSOLATION ! downward solar flux at atmosphere top summed over wavelength bands, [photons/(cm^2*s)] REAL DELTA_O3_COLUMN ! change in ozone column density [molecules/cm2] REAL STRAT_O3_COLUMN ! ozone column density in the stratosphere [molecules/cm2] REAL STRAT_O3_COLMIN ! ozone minium column density in the stratosphere [molecules/cm2] REAL TAU_O3 ! optical depth of stratospheric ozone [ m ] REAL DENSTOM ! estimated air density at top of model [ molecules / cm**3 ] REAL LAMDA ! wavelength [ nm ] REAL INV_LAMBDA ! reciprocal of wavelength [ 1/nm ] REAL LAMDA_UM ! wavelength [ um ] !***working absorption cross sections [ cm**2 ]. These have been corrected !*** for ambient ( pressure and temperature ) conditions. REAL AO3 REAL ANO2 REAL BETA_M ! molecular scattering coefficient [ 1/m ] REAL BEXT ! total aerosol extinction coefficient [ 1/m ] REAL VFAC, BSC ! unit correction factors REAL BSCAT ! total aerosol scattering coefficient [ 1/m ] REAL G_BAR ! total aerosol asymmetry factor !***FSB The following variable is aq switch that allows a fast version of !*** aerosol optics to be used when set to .TRUE. !***scattering and absorption for the layer REAL DTABS_A, DTABS_M, DTSCAT_A, DTSCAT_M, DTSCAT, DTABS !***variables describing the layer heights and slants ! REAL DJ, DF REAL ZTOM ! top of model [ m ] REAL, ALLOCATABLE, SAVE :: DSDH_TD( : ) ! slant path function from top down REAL, ALLOCATABLE, SAVE :: DSDH( : ) ! slant path function REAL, SAVE :: DSDH_TOP ! slantpath function from ZTOM to ZTOA !***Increment of optical depth REAL, ALLOCATABLE, SAVE :: DTAU ( : ) ! total depth at level REAL, ALLOCATABLE, SAVE :: DT_AERO ( : ) ! aerosol contribution at level REAL, ALLOCATABLE, SAVE :: DT_CLOUD( : ) ! cloud contribution at level !***single scattering albedo for layer REAL, ALLOCATABLE, SAVE :: OM( : ) !***asymmetry factor REAL, ALLOCATABLE, SAVE :: G( : ) !***arrays for fluxes and irradiances used in !***delta-Eddington code REAL, ALLOCATABLE, SAVE :: FDIR( : ) ! direct actinic flux REAL, ALLOCATABLE, SAVE :: FUP ( : ) ! diffuse upward actinic flux REAL, ALLOCATABLE, SAVE :: FDN ( : ) ! diffuse downward flux REAL, ALLOCATABLE, SAVE :: EDIR( : ) ! direct irradiance REAL, ALLOCATABLE, SAVE :: EUP ( : ) ! diffuse upward irradiance REAL, ALLOCATABLE, SAVE :: EDN ( : ) ! diffuse downward irradiance !***surface albedo REAL RSFC REAL FX REAL, ALLOCATABLE, SAVE :: ESUM( : ) ! total downward irradiance REAL, ALLOCATABLE, SAVE :: FSUM( : ) ! total actinic flux !***needed for stratospheric Raleigh optical depth REAL, PARAMETER :: R_G = 100.0 * RDGAS / GRAV ! dry air gas constant ! divided by gravitational ! acceleration [cm/K] NOTE: cgs units REAL HSCALE ! Scale height [cm] ! NOTE: cgs units REAL NBAR ! total number of air molecules [ # /cm**2 ] ! above top of model domain !***FSB Cloud properties. !*** FSB These properties are taken fro HU & Stamnes,1993, !*** An accurate parameterizationof the radiative properties of !*** water clouds suitable for use in climate models, Journal of !*** Climate, vol. 6, pp. 728-742. The values in the data statements !*** were calculated with an equivalent radius of 10 micrometers. !*** Note: Hu &Stamnes give beta in [ 1 / km/ for LWC in [ g / m**3 ] !*** the values for beta/ LWC also give beta in [1/m] with LWC in [g/m **3] REAL G_CLOUD ! local cloud asymmetry factor REAL OM_CLOUD ! local cloud single scattering albedo REAL DTSCAT_CLOUD ! level increment in cloud scattering optical REAL TAU_SCAT_CLD ! total scattering optical depth of cloud REAL LAYERING_FACTOR ! correction factor for cloud layering REAL STOZONE LOGICAL, SAVE :: FIRST = .TRUE. ! Flag for first call LOGICAL :: SUCCESS !***arrays for fluxes and irradiances used in REAL, ALLOCATABLE, SAVE :: SRAYL( : ) ! Molecular scattering cross sections [ cm ** 2] REAL, ALLOCATABLE, SAVE :: TAU_SCAT( : ) ! aerosol scattering optical depth REAL, ALLOCATABLE, SAVE :: CONV_WM2( : ) ! conversion factor [photons/(cm**2 s )] to [Watts/m**2] !***three-dimensional array for Cs and Qy !*** (temperature, wavelength, species) !***(layer, wavelength species) REAL, ALLOCATABLE, SAVE :: CSZ( :,:,: ) REAL, ALLOCATABLE, SAVE :: QYZ( :,:,: ) IF ( FIRST ) THEN ALLOCATE( CONV_WM2( NWL ) ) ALLOCATE( SRAYL ( NWL ) ) ALLOCATE( TAU_SCAT( NWL ) ) ALLOCATE( CSZ( NLAYS,NWL,NPHOTAB ) ) ALLOCATE( QYZ( NLAYS,NWL,NPHOTAB ) ) ALLOCATE( GAS_EXTINCTION( NLAYS,NWL ) ) ALLOCATE( EXTINCTION ( NLAYS,NWL ) ) ALLOCATE( ACTINIC_FLUX ( NLAYS,NWL ) ) ALLOCATE( IRRADIANCE ( NLAYS,NWL ) ) ALLOCATE( DSDH_TD ( NLAYS+1 ), & DSDH ( NLAYS ), & DTAU ( NLAYS+1 ), & DT_AERO ( NLAYS+1 ), & DT_CLOUD( NLAYS+1 ), & OM ( NLAYS+1 ), & G ( NLAYS+1 ), & FDIR ( NLAYS+1 ), & FUP ( NLAYS+1 ), & FDN ( NLAYS+1 ), & EDIR ( NLAYS+1 ), & EUP ( NLAYS+1 ), & EDN ( NLAYS+1 ), & ESUM ( NLAYS ), & FSUM ( NLAYS ) ) !***FSB Set up conversion factor for !*** [photons / ( cm**2 s) ] to [Watts / m**2 ] !*** THE 1.0E13 FACTO IS 1.0E9 * 1.0 E4 !*** The 1.0e9 is for the wavelength [ nm ] -> [ m ] !*** The 1.0e4 is for the area [ cm **2 ] -> [ m**2 ] DO IWL = 1, NWL LAMDA = WAVELENGTH( IWL ) CONV_WM2( IWL ) = 1.0E13 * ( PLANCK_C * LIGHT_SPEED ) / LAMDA END DO ! COS85 = COS( 85.0 * PI180 ) !***get molecular scattering cross sections CALL GETSRAY ( NWL, WAVELENGTH, SRAYL ) FIRST = .FALSE. END IF ! FIRSTIME !***initialize BLKRJ and other layer variables BLKRJ = 0.0 GAS_EXTINCTION = 0.0 EXTINCTION = 0.0 ACTINIC_FLUX = 0.0 IRRADIANCE = 0.0 REFLECTION = 0.0 TRANSMISSION = 0.0 TRANS_DIRECT = 0.0 INSOLATION = 0.0 TROPO_O3_TOGGLE = 1.0 STRATO3_MINS_MET = .TRUE. !***Initialize sums or set default values for outputs: ! TAUC_AERO, TAU_TOT, TAUO3_TOP, TAU_RAY, SSA_AERO, etc. TAUC_AERO = 0.0 TAU_TOT = 0.0 TAU_CLOUD = 0.0 TAU_SCAT = 0.0 SSA_AERO = 0.0 TOTAL_TAU_CLD = 0.0 #ifdef phot_debug AVE_SSA_CLD = 0.0 AVE_ASYMM_CLD = 0.0 #endif !***Test zenith angle. If coszen is zero or negative, zenith angle is !*** equal to or greater than 90 degrees, i.e. before sunrise or !*** after sunset at the surface. !*** Return all photolysis rates set to zero. Ignore possible twilight !*** processes in upper troposphere. !***FSB NOTE: tests of the algorithm for slant path show that the !*** critical zenith angle for the tropospheric slant path is 88 degrees, !*** but the critical zenith angle for the stratospheric slant path is !*** 85 degrees. Thus, the code returns zeros for angles greater then or !*** equalt to 85 degrees. cos( 85 degrees ) equals 8.715574e-02. IF ( COSZEN .LE. COS85 ) THEN TAUO3_TOP = 0.0 TAU_RAY = 0.0 TROPO_O3_COLUMN = 0.0 TROPO_O3_TOGGLE = 1.0 ! BLKDZ = 0.0 CALL SLANTPATH2 ( NLAYS, BLKZF, ZSFC, REARTH, SINZEN, BLKDZ, DSDH ) RETURN END IF IF ( NEW_PROFILE ) THEN ! update based on new temperature and density profile !***Adjust cross sections and quantum yields for ambient conditions CALL GET_CSQY ( BLKTA, BLKDENS, CSZ, QYZ ) !***calculate scale height from top of model domain HSCALE = R_G * BLKTA( NLAYS ) !***estimate air density at top of model domain DENSTOM = BLKDENS( NLAYS ) & * EXP( -100.0 * ( BLKZF( NLAYS + 1 ) - BLKZH( NLAYS ) ) & / HSCALE ) !***calculate the total number of air molecules [ # / cm**2 ] !*** above top of model domain. NBAR = HSCALE * DENSTOM !***set top of modeling domain ZTOM = BLKZF( NLAYS + 1 ) !***get layer thicknesses and slantpath starting at the TOP ! BLKDZ = 0.0 CALL SLANTPATH2 ( NLAYS, BLKZF, ZSFC, REARTH, SINZEN, BLKDZ, DSDH ) !***get slantpath from ZTOM to ZTOA CALL SLANTPATHTOP ( ZTOM, ZTOA, ZSFC, REARTH, SINZEN, DSDH_TOP ) C*** find ozone column density for atmosphere, stratosphere, and troposphere STRAT_O3_COLUMN = DU_TO_CONC * REAL( TOTAL_O3_COLUMN ) ! STRAT_O3_COLMIN = 0.10 * STRAT_O3_COLUMN STRAT_O3_COLMIN = MIN_STRATO3_FRAC * STRAT_O3_COLUMN SUCCESS = .TRUE. TROPO_O3_COLUMN = 0.0 DO L = NLAYS, 1, -1 DELTA_O3_COLUMN = 100.0 * BLKO3( L ) * BLKDZ( L ) STRAT_O3_COLUMN = STRAT_O3_COLUMN - DELTA_O3_COLUMN TROPO_O3_COLUMN = TROPO_O3_COLUMN + DELTA_O3_COLUMN IF ( STRAT_O3_COLUMN .LT. STRAT_O3_COLMIN .AND. SUCCESS ) THEN IF( OBEY_STRATO3_MINS )THEN WRITE( LOGDEV,'( /A, F5.2, A, 3(/A), I3, A, F8.3, A , 2(I4,1X) )' ) & 'PHOT WARNING: First Occurance where computed stratospheric O3 column < ', & 100.0*MIN_STRATO3_FRAC,'%', & 'observed total column. The percentage is a global minimum based on ', & 'climatological ozone profiles. ', & 'The Error accumulates downward from layer = ', L, ' or alt= ', & 0.001*BLKZF( L ),' Km for col,row = ', PHOT_COL, PHOT_ROW END IF SUCCESS = .FALSE. END IF END DO STRAT_O3_COLUMN = CONC_TO_DU * STRAT_O3_COLUMN TROPO_O3_COLUMN = CONC_TO_DU * TROPO_O3_COLUMN #ifdef verbose_PHOT_MOD IF( PHOT_COL .EQ. 1 .AND. PHOT_ROW .EQ. 1 )THEN WRITE( LOGDEV,*)'TOTAL_O3_COLUMN, TROPO_O3_COLUMN = ',TOTAL_O3_COLUMN, TROPO_O3_COLUMN END IF #endif IF ( .NOT. SUCCESS ) THEN TROPO_O3_TOGGLE = MAX_TROPOO3_FRAC * TOTAL_O3_COLUMN & / TROPO_O3_COLUMN N_TROPO_O3_TOGGLE = N_TROPO_O3_TOGGLE + 1 O3_TOGGLE_AVE = O3_TOGGLE_AVE + TROPO_O3_TOGGLE O3_TOGGLE_MIN = MIN( O3_TOGGLE_MIN, TROPO_O3_TOGGLE) STRATO3_MINS_MET = .FALSE. STRAT_O3_COLUMN = CONC_TO_DU * STRAT_O3_COLMIN IF( OBEY_STRATO3_MINS )THEN ! write to PE log for first occurance WRITE( LOGDEV, 99983)STRAT_O3_COLUMN IF( ADJUST_OZONE ) WRITE( LOGDEV, 99984)TROPO_O3_TOGGLE WRITE( LOGDEV, 99887) WRITE( LOGDEV, 99888)TOTAL_O3_COLUMN, TROPO_O3_COLUMN, MAX_TROPOO3_FRAC WRITE( LOGDEV, 99999) OBEY_STRATO3_MINS = .FALSE. END IF IF( .NOT. ADJUST_OZONE ) TROPO_O3_TOGGLE = 1.0 ! reset toggle to one ELSE TROPO_O3_TOGGLE = 1.0 END IF 99983 FORMAT( 'Corrective Action: 1) Stratospheric O3 column set to ',F8.3,' DU' ) 99984 FORMAT( 'and 2) Extinction from Model Domain O3 multiplied by ',F9.6 ) 99887 FORMAT(/'Check TROPO_O3_EXCEED and N_EXCEED_TROPO3 in PHOTDIAG1 file for ' & /'values greater than zero to assess the extent of the ' & /'problem. TROPO_O3_EXCEED and N_EXCEED_TROPO3 are the average ' & /'exceedance and their number over file time step for each grid cell,' & /'respectively. Exceedance depends on the predicted tropospheric' & /'fraction over the maximum allowed fraction of the total ozone column.' & /'Its value equals the ratio minus one if ratio is greater than one and' & /'zero if the ratio is less than or equal to one. N_EXCEED_TROPO3 ' & /'counts the number of nonzero values per timestep') 99888 FORMAT(/'Direct Cause: Predicted O3 tropospheric Column exceeds maximum allowed ' & /'fraction of total OMI column.', & /'OMI Total O3 Column = ',F8.3,' DU: Model Tropospheric O3 Column = ',F8.3,' DU', & /'Climatological Expected Tropospheric Fraction = ',F9.6) 99999 FORMAT(/'ULTIMATE causes include boundary condition and meteorological input files. ' & /'Check the former for unrealistic concentrations of ozone and its precursors.' & /'Check the latter for unrealistic advection and diffusion parameters.') DO IWL = 1, NWL !***Get optical depth for stratospheric ozone column !***Note that stratosphere ozone coluumn assumed to exist above model domain CALL GET_TAUO3 ( IWL, STRAT_O3_COLUMN, STRAT_TEMP, TAUO3_TOP( IWL ) ) !***get Rayleigh optical depth for stratosphere TAU_RAY( IWL ) = NBAR * SRAYL( IWL ) END DO END IF ! for NEW_PROFILE !***loop over wavelengths DO IWL = 1, NWL ! outermost loop ! RSFC = ALB( IWL ) ! surface albedo !***set scaling factor for reducing extraterrestrial flux !*** add ozone and Rayleigh optical depths. Use the !*** pseudospherical correction for the stratosphere. SOLAR_FLUX = FEXT( IWL ) / RSQD !*** initialize tau, delta tau's, other variables and loop over layers DTAU = 0.0 DT_AERO = 0.0 DT_CLOUD = 0.0 DTSCAT_CLOUD = 0.0 TAU_SCAT_CLD = 0.0 DO L = 2, NLAYS + 1 II = NLAYS + 2 - L ! from top to bottom !***in the following statements the factor of 100.0 converts !*** converts [ 1 / cm ] to [ 1 / m ] BETA_M = SRAYL( IWL ) * BLKDENS( II ) * 100.0 AO3 = CSZ( II,IWL,LO3O3P ) * BLKO3 ( II ) * 100.0 AO3 = TROPO_O3_TOGGLE * AO3 ANO2 = CSZ( II,IWL,LNO2 ) * BLKNO2 ( II ) * 100.0 !***set up aerosol optical properties G_BAR = AERO_ASYM_FAC ( II,IWL ) BEXT = AERO_EXTI_COEF( II,IWL ) BSCAT = AERO_SCAT_COEF( II,IWL ) !***calculate total absorption and scattering contributions !***to optical depth !***The contributions to scattering and absorption from molecules and particles !*** are calculated separately to facilitate the calculation !*** of the total single scatering albedo of the column of aerosols !*** as measured by satellites. DTSCAT_M = BETA_M * BLKDZ( II ) ! molecular scattering DTSCAT_A = BSCAT * BLKDZ( II ) ! particle scattering DTSCAT_M = MAX( DTSCAT_M, SMALL ) DTSCAT_A = MAX( DTSCAT_A, SMALL ) DTABS_M = ( AO3 + ANO2 ) * BLKDZ( II ) ! molecular absorption DTABS_A = ( BEXT - BSCAT ) * BLKDZ( II ) ! particle absorption DTABS_M = MAX( DTABS_M, SMALL ) DTABS_A = MAX( DTABS_A, SMALL ) GAS_EXTINCTION( II,IWL ) = BETA_M + AO3 + ANO2 ! gas extinction EXTINCTION( II,IWL ) = BETA_M + BEXT + AO3 + ANO2 ! gas and aerosol extinction IF ( CLOUDS( II ) ) THEN DT_CLOUD( L ) = ( CLOUD_LIQUID_EXT( II,IWL ) & + CLOUD_ICE_EXT( II,IWL ) & + CLOUD_AGGREG_EXT( II,IWL ) ) * BLKDZ( II ) DTSCAT_CLOUD = ( CLOUD_LIQUID_SCAT( II,IWL ) & + CLOUD_ICE_SCAT( II,IWL ) & + CLOUD_AGGREG_SCAT( II,IWL ) ) * BLKDZ( II ) !Adjust DT_CLOUD for cloud fraction by 1/2 power of CLDFRC to approximate cloud overlap. !Note that the power results because the resolved cloud conentrations are averaged over !the grid cell so the net overlap correction equal cfrac**(3/2) from Briegleb (1992) times !cfrac**(-1) for actual in-cloud concentrations (see Voulgarakis et al., 2009, Geosci Model !Dev., vol. 2, pp. 59-72. IF ( CLOUD_LAYERING( II ) ) THEN LAYERING_FACTOR = SQRT( CLDFRC( II ) ) ELSE LAYERING_FACTOR = CLDFRC( II ) END IF DT_CLOUD( L ) = DT_CLOUD( L ) * LAYERING_FACTOR DTSCAT_CLOUD = DTSCAT_CLOUD * LAYERING_FACTOR EXTINCTION( II,IWL ) = EXTINCTION( II,IWL ) & + ( CLOUD_LIQUID_EXT( II,IWL ) & + CLOUD_ICE_EXT( II,IWL ) & + CLOUD_AGGREG_EXT( II,IWL ) ) * LAYERING_FACTOR TAU_SCAT_CLD = TAU_SCAT_CLD + DTSCAT_CLOUD IF ( DT_CLOUD( L ) .GT. 1.0E-6 ) THEN OM_CLOUD = MAX( 0.000001, MIN( DTSCAT_CLOUD /DT_CLOUD( L ), 0.99999) ) IF ( OM_CLOUD .LT. 0.0 .OR. OM_CLOUD .GT. 1.0 .OR. OM_CLOUD .NE. OM_CLOUD) THEN WRITE( LOGDEV,'(A,I3,A,ES12.4,A)',ADVANCE = 'NO') & 'OM_CLOUD( L = ', L, ' ) = ', OM_CLOUD,' resetting to ' OM_CLOUD = MAX( 0.000001, MIN( OM_CLOUD, 0.99999)) WRITE( LOGDEV,'(ES12.4)')OM_CLOUD WRITE( LOGDEV,'(A,2(ES12.4,1X))')'DT_CLOUD, DTSCAT_CLOUD = ', & DT_CLOUD, DTSCAT_CLOUD WRITE( LOGDEV,'(A,2(ES12.4,1X))')'LIQUID_EXT, LIQUID_SCAT = ', & CLOUD_LIQUID_EXT( II,IWL ), CLOUD_LIQUID_SCAT( II,IWL ) WRITE( LOGDEV,'(A,2(ES12.4,1X))')'ICE_EXT, ICE_SCAT = ', & CLOUD_ICE_EXT( II,IWL ), CLOUD_ICE_SCAT( II,IWL ) WRITE( LOGDEV,'(A,2(ES12.4,1X))')'AGGREG_EXT, AGGREG_SCAT = ', & CLOUD_AGGREG_EXT( II,IWL ), CLOUD_AGGREG_SCAT( II,IWL ) CALL M3EXIT( 'NEW_OPTICS', JDATE, JTIME, ' ', XSTAT1 ) END IF ELSE OM_CLOUD = 1.0 END IF IF ( DTSCAT_CLOUD .GT. 1.0E-6 ) THEN G_CLOUD = ( (CLOUD_LIQUID_ASY( II,IWL ) * CLOUD_LIQUID_SCAT( II,IWL )) & + (CLOUD_ICE_ASY( II,IWL ) * CLOUD_ICE_SCAT( II,IWL )) & + (CLOUD_AGGREG_ASY( II,IWL ) * CLOUD_AGGREG_SCAT( II,IWL )) ) & * BLKDZ( II ) * LAYERING_FACTOR #ifdef phot_debug IF ( .NOT. ONLY_SOLVE_RAD ) THEN AVE_ASYMM_CLD( IWL ) = AVE_ASYMM_CLD( IWL ) + G_CLOUD IF ( AVE_ASYMM_CLD( IWL ) .GT. TAU_SCAT_CLD ) THEN WRITE( LOGDEV,'(A,I3,2(A,ES12.4))' ) & 'Sum for AVE_ASYMM_CLD at L (', L,') = ', AVE_ASYMM_CLD( IWL ), & ' Sum for TAU_SCAT_CLD = ',TAU_SCAT_CLD WRITE( LOGDEV,'(A,2(ES12.4,1X))' ) & 'AVE_ASYMM_CLD Increment = ', G_CLOUD WRITE( LOGDEV,'(A,2(ES12.4,1X))' ) & 'TAU_SCAT_CLD Increment = ', DTSCAT_CLOUD END IF END IF #endif G_CLOUD = G_CLOUD / DTSCAT_CLOUD IF ( G_CLOUD .GE. 1.0 .OR. G_CLOUD .LE. -1.0 .OR. G_CLOUD .NE. G_CLOUD ) THEN WRITE( LOGDEV,'(A,I3,A,ES12.4,A)',ADVANCE = 'NO' ) & 'G_CLOUD( L = ', L, ' ) = ', G_CLOUD,' resetting to ' G_CLOUD = MIN( 0.9999, MAX( G_CLOUD, -0.9999) ) WRITE( LOGDEV,'(ES12.4)') G_CLOUD WRITE( LOGDEV,'(A,2(ES12.4,1X))' ) & 'LIQUID_ASY, LIQUID_SCAT = ', & CLOUD_LIQUID_ASY( II,IWL ), CLOUD_LIQUID_SCAT( II,IWL ) WRITE( LOGDEV,'(A,2(ES12.4,1X))' ) & 'ICE_ASY, ICE_SCAT = ', & CLOUD_ICE_ASY( II,IWL ), CLOUD_ICE_SCAT( II,IWL ) WRITE( LOGDEV,'(A,2(ES12.4,1X))' ) & 'AGGREG_ASY, AGGREG_SCAT = ', & CLOUD_AGGREG_ASY( II,IWL ), CLOUD_AGGREG_SCAT( II,IWL ) CALL M3EXIT( 'NEW_OPTICS', JDATE, JTIME, ' ', XSTAT1 ) END IF ELSE G_CLOUD = 0.0 END IF ELSE DTSCAT_CLOUD = 0.0 G_CLOUD = 0.0 OM_CLOUD = 1.0 END IF !***calculate total absorption and scattering contributions !***to optical depth DTSCAT = DTSCAT_M + DTSCAT_A + DTSCAT_CLOUD DTABS = DTABS_M + DTABS_A + MAX(( 1.0 - OM_CLOUD ), 0.0) * DT_CLOUD( L ) !***set aerosol optical depth for later use DT_AERO ( L ) = BEXT * BLKDZ( II ) !***Now calculate the vertical profiles of optical depth, !*** single scattering albedo, asymmetry factor !*** and DSDH starting at the top. DTAU( L ) = DTSCAT + DTABS OM ( L ) = DTSCAT / ( DTSCAT + DTABS ) G ( L ) = ( G_BAR * DTSCAT_A + G_CLOUD * DTSCAT_CLOUD ) / DTSCAT IF ( G( L ) .GE. 1.0 .OR. G( L ) .LE. -1.0 .OR. G( L ) .NE. G( L ) ) THEN WRITE( LOGDEV,'(A,ES12.4,A)',ADVANCE = 'NO' ) & 'G( L ) = ', G( L ),' resetting to ' G( L ) = MIN( 0.9999, MAX( G( L ), -0.9999) ) WRITE( LOGDEV,'(ES12.4)')G( L ) WRITE( LOGDEV,'(A,10(1X,ES12.4))' ) & 'DTSCAT_M, DTSCAT_A, DTSCAT_CLOUD, G_BAR, G_CLOUD = ', & DTSCAT_M, DTSCAT_A, DTSCAT_CLOUD, G_BAR, G_CLOUD END IF IF ( OM( L ) .GT. 1.0 .OR. OM( L ) .LE. 0.0 .OR. OM( L ) .NE. OM( L ) ) THEN WRITE( LOGDEV,'(A,ES12.4,A)',ADVANCE = 'NO' ) & 'OM( L ) = ', OM( L ),' resetting to ' OM( L ) = MIN( 0.9999, MAX( OM( L ), 0.0001) ) #ifdef phot_debug WRITE( LOGDEV,'(ES12.4)' ) OM( L ) WRITE( LOGDEV,'(A,4(1X,ES12.4))' ) & 'DTSCAT, DTABS, ( DTSCAT + DTABS) = ', & DTSCAT, DTABS, ( DTSCAT + DTABS ) WRITE( LOGDEV,'(A,4(1X,ES12.4))' ) & 'DTSCAT_M, DTSCAT_A, DTSCAT_CLOUD = ', & DTSCAT_M, DTSCAT_A, DTSCAT_CLOUD WRITE( LOGDEV,'(A,4(1X,ES12.4))' ) & 'DDTABS_M, DTABS_A, MAX(( 1.0-OM_CLOUD ), 0.0) * DT_CLOUD( L ) = ', & DTABS_M, DTABS_A, MAX(( 1.0 - OM_CLOUD ), 0.0) * DT_CLOUD( L ) WRITE( LOGDEV,'(A,4(1X,ES12.4))' ) & ' AO3, ANO2,AERO_BEXT, AERO_BSCAT = ', & AO3, ANO2,BEXT, BSCAT #endif ELSE #ifdef phot_debug IF ( OM( L ) .EQ. 1.0 ) THEN WRITE( LOGDEV,'(A,4(1X,ES12.4))' ) & 'DTSCAT, DTABS, ( DTSCAT + DTABS ) = ', & DTSCAT, DTABS, (DTSCAT + DTABS) WRITE( LOGDEV,'(A,4(1X,ES12.4))' ) & 'DTSCAT_M, DTSCAT_A, DTSCAT_CLOUD = ', & DTSCAT_M, DTSCAT_A, DTSCAT_CLOUD WRITE( LOGDEV,'(A,4(1X,ES12.4))' ) & 'DDTABS_M, DTABS_A, MAX(( 1.0-OM_CLOUD ), 0.0) * DT_CLOUD( L ) = ', & DTABS_M, DTABS_A, MAX(( 1.0 - OM_CLOUD ), 0.0 ) * DT_CLOUD( L) WRITE( LOGDEV,'(A,4(1X,ES12.4))' ) & 'AO3, ANO2,AERO_BEXT, AERO_BSCAT = ', & AO3, ANO2,BEXT, BSCAT END IF #endif OM( L ) = MIN( 0.9999, OM( L ) ) END IF DSDH_TD( L ) = DSDH( L - 1 ) IF ( ONLY_SOLVE_RAD ) CYCLE !***FSB get sums of unscaled optical depths TAU_SCAT( IWL ) = TAU_SCAT ( IWL ) + DTSCAT_A !***initialize optical depth profiles to the layer increment TAUC_AERO( II,IWL ) = DT_AERO( L ) ! aerosol optical depth TAU_TOT ( II,IWL ) = DTAU( L ) ! total optical depth TAU_CLOUD( II,IWL ) = DT_CLOUD( L ) ! cloud optical depth !***change extinction units from meters to Megameters EXTINCTION( II,IWL ) = 1000.0 * EXTINCTION( II,IWL ) END DO ! loop over layers !***set values for the stratosphere OM ( 1 ) = TAU_RAY( IWL ) / ( TAU_RAY( IWL ) + TAUO3_TOP( IWL ) ) G ( 1 ) = 0.05 DTAU ( 1 ) = TAUO3_TOP( IWL ) + TAU_RAY( IWL ) DSDH_TD( 1 ) = DSDH_TOP NLEVEL = NLAYS + 1 IF ( .NOT. ONLY_SOLVE_RAD ) THEN !***calculate optical depth profiles TAU_TOT ( NLAYS,IWL ) = TAU_TOT ( NLAYS,IWL ) + DTAU( 1 ) TAUC_AERO( NLAYS,IWL ) = TAUC_AERO( NLAYS,IWL ) + DT_AERO( 1 ) TAU_CLOUD( NLAYS,IWL ) = TAU_CLOUD( NLAYS,IWL ) + DT_CLOUD( 1 ) DO L = NLAYS-1, 1, -1 TAU_TOT ( L,IWL ) = TAU_TOT ( L,IWL ) + TAU_TOT ( L+1,IWL ) TAUC_AERO( L,IWL ) = TAUC_AERO( L,IWL ) + TAUC_AERO( L+1,IWL ) TAU_CLOUD( L,IWL ) = TAU_CLOUD( L,IWL ) + TAU_CLOUD( L+1,IWL ) END DO END IF !***Set fluxes to zero FDIR = 0.0 FUP = 0.0 FDN = 0.0 EDIR = 0.0 EUP = 0.0 EDN = 0.0 !***calculate fluxes and irradiances CALL TWOSTREAM_S ( NLEVEL, COSZEN, ALB( IWL ), DTAU, OM, G, DSDH_TD, & FDIR, FUP, FDN, EDIR, EUP, EDN ) DO L = 1, NLAYS II = NLAYS + 2 - L FSUM( L ) = FDIR( II ) + FDN( II ) + FUP( II ) ! actinic flux ESUM( L ) = EDIR( II ) + EDN( II ) ! downward irradiance END DO ! loop over layers ! add diffusion and direct components for calculating reflectivity and transmissivity INSOLATION = INSOLATION + SOLAR_FLUX REFLECTION = REFLECTION + SOLAR_FLUX * EUP( 1 ) TRANSMISSION = TRANSMISSION + SOLAR_FLUX * EDN( NLEVEL ) TRANS_DIRECT = TRANS_DIRECT + SOLAR_FLUX * EDIR( NLEVEL ) IF ( ONLY_SOLVE_RAD ) CYCLE !***FSB Calculate column averaged scattering albedo and asymmetry factor IF ( TAUC_AERO( 1,IWL ) .GT. 1.0E-30 ) THEN SSA_AERO( IWL ) = TAU_SCAT( IWL ) / TAUC_AERO( 1,IWL ) END IF TOTAL_TAU_CLD( IWL ) = TAU_CLOUD( 1,IWL ) #ifdef phot_debug IF ( TAU_CLOUD( 1,IWL ) .GT. 1.0E-20 ) THEN IF ( AVE_ASYMM_CLD( IWL ) .GT. TAU_SCAT_CLD ) THEN WRITE( LOGDEV,'(A,I3,2(A,ES12.4))' ) & 'Sum for AVE_ASYMM_CLD at L(', 1,') = ', AVE_ASYMM_CLD( IWL ), & 'Sum for TAU_SCAT_CLD = ',TAU_SCAT_CLD WRITE( LOGDEV,'(A,2(ES12.4,1X))' ) & 'AVE_ASYMM_CLD Increment = ', G_CLOUD WRITE( LOGDEV,'(A,2(ES12.4,1X))' ) & 'TAU_SCAT_CLD Increment = ', & DTSCAT_CLOUD END IF IF ( TAU_SCAT_CLD .GT. 1.0E-20 ) THEN AVE_ASYMM_CLD( IWL ) = AVE_ASYMM_CLD( IWL ) / TAU_SCAT_CLD AVE_SSA_CLD ( IWL ) = TAU_SCAT_CLD / TAU_CLOUD( 1,IWL ) ELSE AVE_ASYMM_CLD( IWL ) = 0.0 AVE_SSA_CLD ( IWL ) = 0.0 END IF IF ( ABS( AVE_ASYMM_CLD( IWL ) ) .GE. 1.0 ) THEN WRITE( LOGDEV,'(A,I3,2(A,ES12.4))' ) & 'Sum for AVE_ASYMM_CLD at L(', 1,') = ', AVE_ASYMM_CLD( IWL )*TAU_SCAT_CLD, & 'Sum for TAU_SCAT_CLD = ',TAU_SCAT_CLD WRITE( LOGDEV,'(A,2(ES12.4,1X))' ) & 'AVE_ASYMM_CLD Increment = ', G_CLOUD WRITE( LOGDEV,'(A,2(ES12.4,1X))' ) & 'TAU_SCAT_CLD Increment = ', DTSCAT_CLOUD END IF ELSE TOTAL_TAU_CLD( IWL ) = 0.0 AVE_SSA_CLD ( IWL ) = 0.0 AVE_ASYMM_CLD( IWL ) = 0.0 END IF #endif !***FSB capture the total downward irradiance at the surface [ W / m**2] ! ! ETOT_SFC( IWL ) = CONV_WM2( IWL ) * FLXSCALE * FEXT( IWL ) ! & * ESUM( 1 ) FORALL( L = 1:NLAYS ) !***multiply by the solar flux at the domain top for !***actinic flux and irradiance; keeping actinic flux in photons/(cm^2*s) ACTINIC_FLUX( L,IWL ) = SOLAR_FLUX * FSUM( L ) IRRADIANCE ( L,IWL ) = SOLAR_FLUX * CONV_WM2( IWL ) * ESUM( L ) END FORALL END DO ! loop over wavelengths ! normalize reflection and transmission coefficients INSOLATION = 1.0 / ( COSZEN * INSOLATION ) TRANS_DIRECT = TRANS_DIRECT * INSOLATION REFLECTION = ONE_OVER_PI * REFLECTION * INSOLATION TRANSMISSION = ONE_OVER_PI * TRANSMISSION * INSOLATION IF ( ONLY_SOLVE_RAD ) RETURN ! compute photolysis rates DO IPHOT = 1, NPHOTAB DO IWL = 1, NWL DO L = 1, NLAYS BLKRJ( L,IPHOT ) = BLKRJ( L,IPHOT ) & + ACTINIC_FLUX( L,IWL ) & * CSZ( L,IWL,IPHOT ) * QYZ( L,IWL,IPHOT ) ! [ 1 / sec ] END DO END DO END DO ! loop on layers, wavelength, IPHOT ! convert actinic flux to watts/m^2 FORALL( L = 1:NLAYS, IWL=1:NWL ) ACTINIC_FLUX( L,IWL ) = ACTINIC_FLUX( L,IWL ) * CONV_WM2( IWL ) END FORALL !***compute rate of photolysis (j-values) for each reaction 9503 FORMAT('LAYER = ',I3,' MODE = ',I3,' LAMBDA(nm) = ',ES12.4,' DGN_CORE(m) = ',ES12.4, & ' DGN_SHELL(m) = ', ES12.4 / ' REFRACT_IDX_SHELL(NR,NI) = ', 2(ES12.4,1X), & ' REFRACT_IDX_CORE(NR,NI) = ', 2(ES12.4,1X) / ' LN(GEO.STD.DEV.) = ', & ES12.4) 9504 FORMAT('LAYER = ',I3,' MODE = ',I3,' LAMBDA(nm) = ',ES12.4,' DGN(m) = ',ES12.4, & ' REFRACT_IDX(NR,NI) = ', 2(ES12.4,1X) / ' VOL.DENS. = ', ES12.4, & ' LN(GEO.STD.DEV.) = ', ES12.4) 99985 FORMAT('ERROR: Modeled Troposheric Ozone Column downward from layer ',I3,1X) 99986 FORMAT('exceeds Top Ozone Column based on OMI.data file. Negative Optical Depths ') 99987 FORMAT('but are physically unlikey.') 99988 FORMAT(' SETTING O3 Column ABOVE PTOP TO 25% of OMI.dat value ') 99989 FORMAT(' FOR ROW/COL = ',2(1X,I4)) RETURN END SUBROUTINE NEW_OPTICS C/////////////////////////////////////////////////////////////////////// SUBROUTINE GETSRAY ( NWL, LAMDA, SRAYL ) C----------------------------------------------------------------------- C calculate molecular (Rayleigh) scattering cross section, srayl C C coded 09/08/2004 by Dr. Francis S. Binkowski C Carolina Environmental Program C University of North Carolina at Chapel Hill C email: frank_binkowski@unc.edu C C Reference: C Nicolet, M., On the molecular scattering in the terrestrial C atmosphere: An empirical formula for its calculation in the C homoshpere, Planetary and Space Science. Vol. 32,No. 11, C Pages 1467-1468, November 1984. C----------------------------------------------------------------------- IMPLICIT NONE !***arguments INTEGER, INTENT( IN ) :: NWL ! number of wavelength bins REAL, INTENT( IN ) :: LAMDA( : ) ! wavelengths [nm] REAL, INTENT( OUT ) :: SRAYL( : ) ! molecular scattering cross sections [cm**2] !***Internal variables INTEGER I REAL WMICRN ! wavelenght in micrometers REAL WMICRN1 ! 1 / wmicrn REAL XX ! variable in Nicolet method !***get molecular scattering cross section. This is a fixed !*** function of wavelength. DO I = 1, NWL WMICRN = 1.0E-3 * LAMDA( I ) ! wavelength in micrometers WMICRN1 = 1.0 / WMICRN IF ( WMICRN .LE. 0.55 ) THEN XX = 3.6772 + 0.389 * WMICRN + 0.09426 * WMICRN1 ELSE XX = 4.04 END IF SRAYL( I ) = 4.02E-28 * WMICRN1**XX ! in [cm**2] END DO RETURN END SUBROUTINE GETSRAY SUBROUTINE GET_TAUO3 ( IWL, STOZONE, STRAT_TEMP, TAU_O3 ) C----------------------------------------------------------------------- C subroutine to calculate the optical depth of ozone in the C stratosphere C C special cross sections for calculating stratospheric ozone C optical depth C C the following temperatures and cross sections are from C Fast-J C REFERENCE: C Wild, O., X. Zhu, and M.J. Prather, Fast-J: Accurate simulation C of in- and below-clolud photolysis in tropospheric chemical C models, C Journal of Atmospheric Chemistry, Vol. 37, pp 245-282, 2000 C C coded 10/20/2004 by Dr. Francis S. Binkowski C Carolina Environmental Program C University of North Carolina at Chapel Hill C email: frank_binkowski@unc.edu C Updated to Fast-JX version 5.0 C Mar 2011 Bill Hutzell C revised interpolation method for a general number of C interpolation points C C----------------------------------------------------------------------- IMPLICIT NONE !***arguments INTEGER, INTENT( IN ) :: IWL ! wavelenth index REAL, INTENT( IN ) :: STOZONE ! ozone column amount [ DU ] REAL, INTENT( IN ) :: STRAT_TEMP ! average temperature for stratosphere [ K ] REAL, INTENT( OUT ) :: TAU_O3 ! optical depth for statosphere !***Local INTEGER IXT, IXTEMP REAL OZONE_CS ! interpolated ozone absorption cross section REAL YTT ! interpolation variable !***Find temperature range: IF ( STRAT_TEMP .LE. TEMP_O3_STRAT( 1 ) ) IXTEMP = 0 DO IXT = 1, NTEMP_STRAT - 1 IF ( STRAT_TEMP .GT. TEMP_O3_STRAT( IXT ) .AND. & STRAT_TEMP .LT. TEMP_O3_STRAT( IXT + 1 ) ) THEN IXTEMP = IXT YTT = ( STRAT_TEMP - TEMP_O3_STRAT( IXT ) ) & / ( TEMP_O3_STRAT( IXT + 1 ) - TEMP_O3_STRAT( IXT ) ) END IF END DO IF ( STRAT_TEMP .GE. TEMP_O3_STRAT( NTEMP_STRAT ) ) THEN IXTEMP = NTEMP_STRAT YTT = 0.0 END IF !***do linear interpolation IF ( IXTEMP .EQ. 0 ) THEN OZONE_CS = XO3CS( 1, IWL ) ELSE IF ( IXTEMP .GE. 1 .AND. IXTEMP .LT. NTEMP_STRAT ) THEN OZONE_CS = XO3CS( IXTEMP, IWL ) + & ( XO3CS( IXTEMP+1, IWL ) - XO3CS( IXTEMP, IWL ) ) * YTT ELSE IF ( IXTEMP .EQ. NTEMP_STRAT ) THEN OZONE_CS = XO3CS( IXTEMP, IWL ) END IF TAU_O3 = DU_TO_CONC * STOZONE * OZONE_CS RETURN END SUBROUTINE GET_TAUO3 C/////////////////////////////////////////////////////////////////////// SUBROUTINE O3AMT ( XLAT, XLONG, MDAY, OZONE ) C----------------------------------------------------------------------- C This subroutine implements an algorithm for the annual behavior C of total ozone ( taken here to be stratospheric) from C climatology C Reference: C Van Heuklon, Thomas K., Estimating atmospheric ozone for solar C radiation models, Solar Energy, Vol. 22, pp 63-68, 1979. C updated from an earlier version by C Dr. Francis S. Binkowski, The Carolina Environmental Program, C The University of North Carolina at Chapel Hill. C Email: frank_binkowski@unc.edu C November 03. 2004. C Only Northern Hemisphere is implemented. C----------------------------------------------------------------------- IMPLICIT NONE !***arguments INTEGER, INTENT( IN ) :: MDAY ! Day number during the year ! Jan 1st = 1.0, Feb 1st = 32, etc. REAL, INTENT( IN ) :: XLAT ! latitude of point on earth's surface REAL, INTENT( IN ) :: XLONG ! longitude of point on earth's surface REAL, INTENT( OUT ) :: OZONE ! Total column amount of ozone [ DU ] !***Internal: !***The following parameters are from Table 1 of Van Heuklon (1979). REAL, SAVE :: A, B, C, D, F, G, H, FJ DATA A/150.0/, B/1.28/, C/40.0/, D/0.9865/, F/-30.0/, G/20.0/, & H/3.0/, FJ/235.0/ !***FSB FJ is the equatorial annual average of atmospheric ozone !*** content, as noted on page 65 of Nav Heulklon (1979). This value !*** sets the basic background for ozone. REAL, PARAMETER :: RD = 0.017453 ! degrees to radians !***Variables of convenience REAL E, FI, BPHI, DEF, HLI, SINB, SINB2 !***set the day E = FLOAT( MDAY ) FI = 20.0 IF ( XLONG .LT. 0.0 ) FI = 0.0 BPHI = B * XLAT * RD DEF = D * ( E + F ) * RD HLI = H * ( XLONG + FI ) * RD SINB = SIN( BPHI ) SINB2 = SINB * SINB !***the following equation implements equation (4) of VanHeuklon (1979) OZONE = FJ + ( A + C * SIN( DEF ) + G * SIN( HLI ) ) * SINB2 RETURN END SUBROUTINE O3AMT C/////////////////////////////////////////////////////////////////////// SUBROUTINE SLANTPATH2 ( NLAYS, Z, ZSFC, REARTH, SINZEN, DZ, DSDH ) C----------------------------------------------------------------------- C PURPOSE: C Calculate slant path, ds/dh, over vertical depth in spherical C geometry also calculates the layer thicknesses. C NOTE!!! C This version is restricted to zenith angle less than 90 degrees C----------------------------------------------------------------------- C ARGUMENTS: C INPUT: C NLAYS - INTEGER, number of specified altitude levels C z - REAL, altitude (agl) [m] <<< meters C This is from file ZF ( full layers ) from METCRO3D C Z(1) is zero. C zsfc - REAL, ground elevation (msl) [m] C rearth - REAL, radius of the earth [m] C sinzen - REAL, sine of solar zenith angle C C OUTPUT: C dz - REAL, layer thicknesses [ m ] C dsdh - REAL, slant path of direct beam through each layer C when travelling from the top of the atmosphere downward C----------------------------------------------------------------------- C EDIT HISTORY: C Inspired by sphers from TUV C 09/08/2004 modified to specialize for CMAQ application C by Dr. Francis S. Binkowski C Environmental Modeling for Policy Development group, C The Carolina Environmental Program C The University of North Carolina-Chapel Hill C Email: frank_binkowski@unc.edu C C----------------------------------------------------------------------- C REFERENCE: C Dahlback, A. and K. Stamnes, A new spherical model for computing C the radiation field available for photolysis and heating at C twilight, Planetary and Space Sciences, Vol. 39, No. 5, C pp 671-683, 1991. C C----------------------------------------------------------------------- IMPLICIT NONE !***arguments INTEGER, INTENT( IN ) :: NLAYS REAL, INTENT( IN ) :: Z ( : ) REAL, INTENT( IN ) :: ZSFC REAL, INTENT( IN ) :: REARTH REAL, INTENT( IN ) :: SINZEN REAL, INTENT( OUT ) :: DZ ( : ) ! layer thicknesses counting from surface upward REAL, INTENT( OUT ) :: DSDH( : ) !***Internal INTEGER I, J, K ! loop indices REAL RE REAL DSJ ! slant path length [m] REAL DHJ ! layer thickness [m] REAL( 8 ) :: RJ, RJP1 REAL( 8 ) :: RPSINZ ! rpsinz = (re + zd(i)) * sinzen REAL( 8 ) :: RPSINZ2 ! rpsinz * rpsinz REAL( 8 ) :: GA, GB ! see usage REAL :: ZE( NLAYS + 1 ) ! altitudes MSL REAL :: ZD( NLAYS + 1 ) ! array of altitudes indexed from top REAL :: DZI( NLAYS ) ! layer thicknesses counting downward from the top C----------------------------------------------------------------------- !***re include the altitude above sea level to the radius of the earth RE = REARTH + ZSFC !***ze is the altitude above msl DO K = 1, NLAYS + 1 ZE( K ) = Z( K ) !!sjr ZE(K) = Z(K) - ZSFC END DO !*** DZ(1) = ZE(2) - ZE(1) !*** DZI(1) = ZE(NLAYS + 1) - ZE(NLAYS) !***calculate dz DO K = 1, NLAYS DZ( K ) = ZE( K + 1 ) - ZE( K ) END DO !***zd, dzi are inverse coordinates of ze & dz DO K = 1, NLAYS + 1 J = NLAYS + 1 - K + 1 ZD( J ) = ZE( K ) END DO DO K = 1, NLAYS J = NLAYS + 1 - K DZI( J ) = DZ( K ) END DO !***initialize dsdh DO I = 1, NLAYS DSDH( I ) = 0.0 END DO !***FSB The following code is a direct implementation of appendix B !*** of Dahlbeck and Stamnes (1991) for the case of solar zenith !*** angle less than 90 degree. !***calculate ds/dh of every layer starting at the top DO J = 1, NLAYS !*** K = NLAYS - J +1 RPSINZ = REAL( ( RE + ZD( J ) ) * SINZEN , 8 ) RPSINZ2 = RPSINZ * RPSINZ IF ( J .LT. NLAYS ) THEN RJ = REAL( RE + ZD( J ), 8 ) RJP1 = REAL( RE + ZD( J + 1 ), 8 ) DHJ = DZI( J ) ELSE RJ = REAL( RE + ZD( J ), 8) RJP1 = REAL( RE, 8 ) DHJ = DZI( J ) END IF !***define GA and GB GB = SQRT( MAX( 0.0D0, RJ * RJ - RPSINZ2 ) ) GA = SQRT( MAX( 0.0D0, RJP1 * RJP1 - RPSINZ2 ) ) !***This is equation B1 from Dahlbeck and Stamnes (1991) DSJ = ABS( REAL(GB - GA, 4 ) ) !***this is the slant path (Chapman) function. DSDH( J ) = DSJ / DHJ ! Note dsdh is on a top to bottom grid. END DO ! loop over altitude RETURN END SUBROUTINE SLANTPATH2 C/////////////////////////////////////////////////////////////////////// SUBROUTINE SLANTPATHTOP ( ZTOM, ZTOA, ZSFC, REARTH, SINZEN, & DSDHTOP ) C----------------------------------------------------------------------- C FSB This is a SPECIAL version to get the slant path from the top of C the modeling domain (ztom) to the top of the atmosphere (ztoa). C----------------------------------------------------------------------- C PURPOSE: C Calculate slant path, ds/dh, over vertical depth in spherical C geometry also calculates the layer thicknesses. C NOTE!!! C This version is restricted to zenith angle less than 90 degrees C----------------------------------------------------------------------- C ARGUMENTS: C INPUT: C ztom - REAL, altitude (agl) of top of modeling domain [m] << computes raining cloud physics C ICLDTYPE = 2 => does the same for non-precip clouds utilizing saved C info from RNCLD in the case of co-existing clouds C C PRECONDITIONS REQUIRED: C Dates and times represented YYYYDDD:HHMMSS. C C C REVISION HISTORY: C Adapted 3/93 by CJC from science module template C Version 3/3/93 with complete LCM aqueous chem by JNY. C Modified 6/3-7/93 by CJC & JNY to correct treatment of half layers C vs. full layers in loop 255: calculation of DTDP centered at C quarter-layers using PSTAR; corresponding revisions to TLCL, TSAT. C Uses 4th order R-K solver there. C Version 6/5/93 by CJC using relative rainout rates. C Version 7/6/93 by CJC using INTERP3() C Adapted from LCM aqueous chemistry, initial version, 9/93 C by JNY and CJC C Completion of EM cloud mixing, JNY 12/93 C Inclusion of EM aqueous chemistry JNY 12/93 C UPGRADE TO FULL RADM CLOUD MODULE EMULATION, JNY 4/94 C 8/16/94 by Dongming Hwang Configuration management template C Adapted 10/96 by S.Roselle for Models-3 C 1/97 s.roselle added McHenry`s well mixed assumption code C 8/97 S.Roselle revised cgrid units, pressure units, rainfall C to hourly amounts, built indices for wet dep species, C scavenged species, and aqueous species, built wrapper C around aqueous chemistry module C 10/97 S.Roselle removed McHenry`s well mixed assumption code C and put back the below cloud concentration scaling C 11/97 S.Roselle moved the wet deposition output to the calling C routine--CLDPROC C 01/98 S.Roselle moved indexing code to AQINTER, also C moved scavenging to SCAVWDEP C 03/98 S.Roselle read sub-hourly rainfall data C 12/98 David Wong at LM: C -- changed division of 8000, 2, 1000 to its corresponding C reciprocal C -- added INT in the expression STEP * 0.5 when calling SEC2TIME C 03/99 David Wong at LM: C -- replaced "/ FRAC * .001" by "/ ( FRAC * 1000.0 )" to minimize C lost of significant digits in calculation C Jeff - Dec 00 - move CGRID_MAP into f90 module C Jeff - Sep 01 - Dyn Alloc - Use HGRD_DEFN C 4/02 S.Roselle changed minimum horizontal resolution for subgrid C clouds from 12km to 8km. C 1/05 J.Young: dyn alloc - establish both horizontal & vertical C domain specifications in one module C 5/05 J.Pleim Replaced cloud mixing algorithm with ACM C 6/05 S.Roselle added new cloud diagnostic variables C 7/05 J.Young: clean up and mod for CMAQ-F C 8/10 J.Young: replace chem mechanism include files with namelists C and accomodate Shawn Roselle`s, Sergey Napelenok`s C and Steve Howard`s aerosol reengineering C 3/11 S.Roselle: replaced I/O API include files with UTILIO_DEFN C 5/11/11 D.Wong: incorporated twoway model implementation C 7/11 G. Sarwar: calculate zenith angle to determine daytime and nightime C needed for sulfur oxidation via metal catalysis C 9/11 S.Roselle: enable CMAQ subgrid cloud model only when met. driver C uses a convective cloud parameterization (removed minimum C horizontal grid resolution restriction) C 02Aug12 S.Roselle: instrumented to calculate and return C transmissivity for convective clouds C 04Apr14 B.Hutzell: Added routine call to capture cloud fractions, C water, and ice mixing ratios C 11Feb15 J.Young: Updated call to czangle.F which uses the ASX_DATA_MOD shared C data module (Implemented by J.Bash on 07 Nov 14) C 09/04/15 D.Wong: - Made variable declaration method consistent in the caller C and calling routines C - Used a variable rather than an array in calculation to C reduce memory footprint and to increase code efficiency C 28May15 J.Young: cleanup C 12Jun15 B.Hutzell: Moved call to CLEAR_ACM_CLOUD to after FIRSTIME block to C insure results from previous time step are removed C 12Jan16 D.Wong: Fixed a bug that causes different result when code run with C different domain decomposition C 4Apr16 J.Bash Calculate the Sundqvist et al. 1989 threshold humidities C for cloud formation based on Mocko and Cotton (1995) to be C More consistent with WRF C 01Feb19 D.Wong: Implemented centralized I/O approach, removed all MY_N C clauses C 01AUG19 D.Wong: Modified code to work with two-way model C 11 Nov 19 F. Sidi: Changed MSTEP to accomdate Centralized I/O changes C----------------------------------------------------------------------- USE GRID_CONF ! horizontal & vertical domain specifications USE HGRD_DEFN, ONLY: MYPE USE UTILIO_DEFN USE PHOT_MET_DATA, ONLY: USE_ACM_CLOUD, CLEAR_ACM_CLOUD, CAPTURE_ACM_CLOUD USE ASX_DATA_MOD, ONLY: INIT_MET, GRID_DATA USE CENTRALIZED_IO_MODULE, ONLY: RCA_AVAIL, cio_model_sdate, #ifdef mpas & cell_area, #endif & cio_model_stime, & interpolate_var, & file_tstep, f_met IMPLICIT NONE C...........INCLUDES INCLUDE SUBST_CONST ! constants INCLUDE SUBST_FILES_ID ! file name parameters C...........Arguments INTEGER, INTENT( IN ) :: JDATE INTEGER, INTENT( IN ) :: JTIME INTEGER, INTENT( IN ) :: TSTEP( 3 ) C...........Parameters #ifdef mpas C critical rel humidity for land (fraction) REAL, ALLOCATABLE, SAVE :: RCRITL(:,:) C critical rel humidity for water (fraction) REAL, ALLOCATABLE, SAVE :: RCRITW(:,:) #else C critical rel humidity for land (fraction) REAL, SAVE :: RCRITL C critical rel humidity for water (fraction) REAL, SAVE :: RCRITW #endif C intermediate factor REAL :: XKM C param contlng sidewall entrainment function for raining clouds REAL, PARAMETER :: SIDEFAC = 0.5 C storm rainout efficiency REAL, PARAMETER :: STORME = 0.3 C emp sat vapor press constant from RADM REAL, PARAMETER :: C303 = 19.83 C emp sat vapor press constant from RADM REAL, PARAMETER :: C302 = 5417.4 C g/kg REAL, PARAMETER :: GPKG = 1.0E+03 C 1 hectare = 1.0e4 m**2 REAL, PARAMETER :: M2PHA = 1.0E+04 C subgrid scale temp perturb (deg K) REAL, PARAMETER :: PERT = 1.5 C wvp mix ratio perturb (dimensionless) REAL, PARAMETER :: PERQ = 1.5E-3 C rainfall threshold (mm/hr) REAL, PARAMETER :: RTHRESH = 0.1 C vapor press of water at 0 C (Pa) REAL, PARAMETER :: VP0PA = 611.2 C 1.0 / (vapor press of water @ 0 C) (1/Pa) REAL, PARAMETER :: VPINV = 1.0 / VP0PA C converg. crit. for entrainment solver REAL, PARAMETER :: TST = 0.01 C assumed cloud lifetime for convective clouds (sec) REAL, PARAMETER :: TCLIFE = 3600.0 C ratio of mol wt of water vapor to mol wt of air REAL, PARAMETER :: MVOMA = MWWAT / MWAIR C ratio of dry gas const to specific heat REAL, PARAMETER :: ROVCP = RDGAS / CPD C ratio of latent heat of vap to specific heat REAL, PARAMETER :: LVOCP = LV0 / CPD C dry adiabatic lapse rate (deg K/m) REAL, PARAMETER :: DALR = GRAV / CPD C Number of species in CGRID INTEGER, SAVE :: MXSPCS C parameter to control frequency of convective cloud processing C SYNCCLD=.TRUE. : every synchronization timestep C SYNCCLD=.FALSE. : every hour on the half hour LOGICAL, PARAMETER :: SYNCCLD = .TRUE. ! default to sync timestep INTEGER ICLDTYPE ! 1: raining, 2: either CNP or PFW C...........Local Variables C-------for ACM version - jp 2/05 REAL DPB #ifndef mpas REAL, ALLOCATABLE, SAVE :: SIGF( : ) #endif C------------------------------------------- LOGICAL, SAVE :: FIRSTIME = .TRUE. ! flag for first pass thru LOGICAL, SAVE :: CONVCLD = .TRUE. ! flag for modeling convective clds CHARACTER( 16 ) :: PNAME = 'CONVCLD_ACM' ! prcess name CHARACTER( 16 ) :: VARNM ! variable name for IOAPI to get CHARACTER( 16 ), SAVE :: RC_NAME ! RC name: old is RC and new is RCA INTEGER ATIME ! time diff from half-hour INTEGER CLTOP ! model LAY containing cloud top INTEGER COL ! column loop counter INTEGER ROW ! row loop counter INTEGER CTOP ! dummy variable for cloud top layer INTEGER FINI ! ending position INTEGER I599C ! entrainment solver iteration counter INTEGER LAY ! layer loop counter INTEGER MDATE ! process date INTEGER MTIME ! process time (half-hour) INTEGER, SAVE :: MSTEP ! met file time step (hhmmss) INTEGER, SAVE :: SDATE ! met file start date INTEGER SPC ! liquid species loop counter INTEGER STEP ! step loop counter INTEGER STRT ! starting position INTEGER, SAVE :: STIME ! met file start time INTEGER VAR ! variable loop counter INTEGER CLBASE ! cld base layer INTEGER CLTOPUSTBL ! unstable cld top layer INTEGER ISOUND ! flag for sounding stability INTEGER SRCLAY ! cloud source level vert index REAL AIRM ! total air mass (mol/m2) in cloudy air REAL AIRMB0 ! mol/m2 air below cloud REAL AIRMBI ! inverse mol/m2 air below cloud REAL ALFA0 ! aitken mode number scavenging coef REAL ALFA2 ! aitken mode sfc area scavenging coef REAL ALFA3 ! aitken mode mass scavenging coef REAL ARPRES ! ave cloud pres in atm REAL CONDIS ! REAL CTHK ! cloud thickness (m) REAL CTHK1 ! aq chem calc cloud thickness REAL DAMDP ! dry adiabatic minus dew point lapse rate REAL DP ! pressure increment along moist adiabat REAL DPLR ! dew point lapse rate REAL DQI ! change in ice mix ratio due to melting caused by entrainment REAL DQL ! change in liq wat mix ratio due to evap caused by entrainment REAL DTCLD ! cloud integration timestep (s) REAL DTDP ! moist adiabatic lapse rate REAL DZLCL ! height increment to LCL above source level REAL ZLCL ! height of LCL above ground REAL EMAX ! water vapor pressure at source level REAL EQTH ! parcel equivalent potential temperature REAL EQTHM ! parcel equivalent potential temp REAL FA ! entrainment functional value at TEMPA REAL FB ! entrainment functional value at TEMPB REAL FRAC ! cloud fractional coverage REAL FTST ! functional product in Walcek bisection solver REAL HTST ! temp diff in Walcek bisection solver REAL, SAVE :: METSTEP ! reciprocal of timestep on the met file, 1/hr REAL P1 ! intermediate pressure used in calculating WL REAL P2 ! intermediate pressure used in calculating WL REAL P3 ! intermediate pressure used in calculating WL REAL PBAR ! mean pressure in vertical increments up from LCL along moist adiabat REAL PBARC ! mean cloud pressure (Pa) REAL PMAX ! parcel pressure REAL PP ! scratch pressure variable REAL PRATE ! total rainfall (mm/hr) REAL PRATE1 ! storm rainfall rate (mm/hr) REAL QENT ! wat vap mix ratio due to cld sidewall entrainmt REAL QP ! perturbed water vap mix ratio of parcel REAL QXS ! int. excess wat ov grid cell needed for rainout REAL REMOVAC ! variable storing H+ deposition REAL RHOAIR ! air density in kg/m3 REAL RLH ! relative humidity REAL RLHSRC ! relative humidity at cld src level REAL RTCH ! chemical gas const times temp REAL T1 ! perturbed temp to calc neutral buoyancy also used as max temp in cell comparing cloud with environment REAL TBAR ! mean temp in vertical increments up from LCL along moist adiabat REAL TBARC ! mean cloud temp (K) REAL TBASE ! iterative temp along moist adiabat REAL TDMAX ! dew point at source level REAL TEMPA ! lower limit on temp for entrainment solver REAL TEMPB ! upper limit on temp for entrainment solver REAL TEMPC ! scratch temp solved for cloudy air parcel REAL TENT ! temp accounting for cld sidewall entrainment REAL THMAX ! parcel potential temperature REAL TI ! init temp of cloud air before evap of water REAL TLCL ! temp at LCL REAL TMAX ! perturbed temp of parcel REAL TP ! perturbed temp of parcel REAL TTOP ! scr vbl used in application of Eq. 7, W&T REAL TWC ! tot wat cont in cloud (kg H2O/m3 air) REAL WCBAR ! liq water content of cloud (kg/m3) REAL WL ! Warner profile (an earlier version appears appears in Walcek and Taylor (JAS, 1986) REAL WTBAR ! total wat cont (kg/m2) int. thru cloud depth REAL X1 ! intermediate vbles in lapse rate calculation X1 also reused as scratch vble in mixing REAL QDIF ! scratch vbl used in entrainment solver REAL CLOD REAL LWP REAL STRNS ! intermediate to set subgrid cld transmissivity REAL :: DENSL( NLAYS ) ! air density (kg/m3) REAL :: F ( NLAYS ) ! cloud entrainment fraction to be solved for REAL :: FSIDE( NLAYS ) ! sidewall entrainment vertical profile REAL :: LWC ( NLAYS ) ! liq wat cont of cloud in kg H2O/m3 air REAL, ALLOCATABLE, SAVE :: QICE ( : ) ! ice mixing ratio in cloud REAL, ALLOCATABLE, SAVE :: QLQD ( : ) ! actual liq. wat. mix ratio in cloud REAL :: QVC ( NLAYS ) ! saturation wat vap mix ratio at T1 REAL :: QWAT ( NLAYS ) ! liq wat mix rat, taken as total condensed water (ice + liq) profile (Eq.4, W&T) REAL :: RHOM2( NLAYS ) ! mol/m2 air REAL :: TCLD ( NLAYS ) ! temp of cloudy air parcel REAL FRACMAX ! max frac cov for NP cld REAL PLCL ! pressure at LCL REAL QMAX ! pertbd w.. mix rat of parcel REAL :: RAIN( NCOLS,NROWS ) ! this timestep rainfall (mm/hr) REAL BCLDWT ! below cloud weighting function REAL :: RC ( NCOLS,NROWS ) ! hourly convective rainfall (cm) REAL :: PBL ( NCOLS,NROWS ) ! PBL height (m) REAL :: DZZ ( NCOLS,NROWS,NLAYS ) ! computed gridded vble REAL :: DZZL ( NLAYS ) ! grid cell delta Z REAL :: PRES ( NCOLS,NROWS,NLAYS ) ! file gridded vble REAL :: PRESL( NLAYS ) ! grid cell pressure REAL :: QAD ( NLAYS ) ! moist adiab. sat. mix ratio REAL :: QV ( NCOLS,NROWS,NLAYS ) ! input gridded vble REAL :: QVL ( NLAYS ) ! grid cell sp. hum. REAL :: TA ( NCOLS,NROWS,NLAYS ) ! input gridded vble REAL :: TAL ( NLAYS ) ! grid cell temp REAL :: TSAT ( NLAYS ) ! parcel temp along moist adiabat @ half levels REAL :: ZH ( NCOLS,NROWS,NLAYS ) ! mid-layer height (m) REAL :: ZF ( NCOLS,NROWS,NLAYS ) ! level/layer-face height (m) INTEGER ALLOCSTAT INTEGER STATUS CHARACTER( 120 ) :: XMSG = ' ' ! Exit status message C...........Statement Functions REAL ESAT ! sat vap pres (Pa) as fn of T (deg K) REAL QSAT ! sat water vapor mixing ratio REAL T ! temperature dummy arg REAL E ! sat vapor pressure dummy arg REAL P ! pressure dummy arg ESAT( T ) = VP0PA * EXP( C303 - ( C302 / T ) ) QSAT( E, P ) = MVOMA * ( E / ( P - E ) ) C----------------------------------------------------------------------- C begin body of subroutine CONVCLD_ACM C...INITIALIZATION for the CONVCLD_ACM module: C... event-statistics variables. IF ( FIRSTIME ) THEN FIRSTIME = .FALSE. CALL INIT_MET( JDATE, JTIME ) C...check the grid resolution from the MET_CRO_2D and set an appropriate C... flag as to whether convective clouds should be run for the given C... resolution C...open MET_CRO_3D ! IF ( .NOT. OPEN3( MET_CRO_3D, FSREAD3, PNAME ) ) THEN ! XMSG = 'Could not open '// MET_CRO_3D // ' file' ! CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) ! END IF C...get description from the met file ! IF ( .NOT. DESC3( MET_CRO_2D ) ) THEN ! XMSG = 'Could not get ' // MET_CRO_2D //' file description' ! CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) ! END IF C cccccccccccccccccccc enable backward compatiblity ccccccccccccccccccccc IF ( RCA_AVAIL ) THEN RC_NAME = 'RCA' ELSE RC_NAME = 'RC' END IF C...store met file time, date, and step information and compute C... the met timestep in hours SDATE = cio_model_sdate STIME = cio_model_stime MSTEP = file_tstep(f_met) METSTEP = 3600.0 / FLOAT( TIME2SEC( MSTEP ) ) ! convert to 1/hours C...check convective precipitation on met files to determine if WRF used C... a convective parameterization call interpolate_var (RC_NAME, sdate, stime, RC) C...in coordination with MCIPv4.0, negative values will be loaded into the RC C... field if a convective parameterization was not used in the WRF simulation IF ( MAXVAL( RC ) .LT. 0.0 ) THEN CONVCLD = .FALSE. XMSG = 'MCIP files indicate no convective parameterization was ' & // 'used in the WRF simulation' CALL M3WARN ( PNAME, JDATE, JTIME, XMSG ) XMSG = 'Processing will continue without subgrid clouds' CALL M3MESG ( XMSG ) RETURN END IF C...allocate saved arrays #ifndef mpas ALLOCATE ( SIGF( 0:NLAYS ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating SIGF' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF DO LAY = 1, NLAYS SIGF( LAY ) = 1.0 - X3FACE_GD( LAY ) END DO SIGF( 0 ) = 1.0 #endif ALLOCATE ( QLQD ( NLAYS ), & QICE ( NLAYS ), & STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating BMOL, CBASE0, CBASEF, CEND, POLC, REMOV,' & // 'QLQD or QICE' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF C...Calculate the Sundqvist et al. 1989 threshold humidities for cloud formation based on C...Mocko and Cotton (1995) #ifdef mpas ALLOCATE ( RCRITL( NCOLS,NROWS ), & RCRITW( NCOLS,NROWS ), & STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'EXIT: Failure allocating RCRITL, RCRITW' call prog_interrupt (PNAME, JDATE, JTIME, XMSG, 1) END IF DO ROW = 1, NROWS DO COL = 1, NCOLS ! Reformulate using cell_area to replace XKM RCRITW(COL,ROW) = 0.879 + SQRT( 1.0 / ( 100.0 + 1.0E-6*cell_area(col,row) )) RCRITL(COL,ROW) = 0.839 + SQRT( 1.0 / ( 50.0 + 0.5 * 1.0E-9*(cell_area(col,row))**1.5 ) ) END DO END DO #else XKM = REAL( XCELL_GD / 1000 ) RCRITW = 0.879 + SQRT( 1.0 / ( 100.0 + XKM * XKM ) ) RCRITL = 0.839 + SQRT( 1.0 / ( 50.0 + 0.5 * XKM ** 3 ) ) #endif END IF ! Firstime IF ( .NOT. CONVCLD ) RETURN C...check option for processing clouds on the synchronization timestep MDATE = JDATE MTIME = JTIME C...set the cloud timestep (=adv timestep) STEP = TIME2SEC( TSTEP( 2 ) ) ! syncronization timestep DTCLD = REAL( STEP ) C...set time to the midpoint of this timestep for data interpolation CALL NEXTIME ( MDATE, MTIME, SEC2TIME( STEP / 2 ) ) C...clear arrays that capture ACM cloud results IF ( USE_ACM_CLOUD ) CALL CLEAR_ACM_CLOUD( JDATE, JTIME ) C...ACTUAL SCIENCE PROCESS (loop on internal process time steps): C... Interpolate time dependent layered input variables C... (reading those variables for which it is necessary) call interpolate_var ('TA', mdate, mtime, TA) call interpolate_var ('QV', mdate, mtime, QV) call interpolate_var ('ZF', mdate, mtime, ZF) call interpolate_var ('ZH', mdate, mtime, ZH) C...Get pressure (Pa) call interpolate_var ('PRES', mdate, mtime, PRES) C...compute layer thicknesses (m) DO ROW = 1, NROWS DO COL = 1, NCOLS DZZ( COL,ROW, 1 ) = ZF( COL,ROW, 1 ) DO LAY = 2, NLAYS DZZ( COL,ROW,LAY ) = ZF( COL,ROW,LAY ) - ZF( COL,ROW,LAY - 1 ) END DO END DO END DO C...Get PBL height (m) call interpolate_var ('PBL', mdate, mtime, PBL) C...advance the MDATE and MTIME to the next time on the met file C... to get ready to read the precipitation amounts. C... Precipitation data WILL NOT BE INTERPOLATED! Precipitation data C... on the input file are amounts within the metfiles timestep. IF ( .NOT. CURRSTEP( JDATE, JTIME, SDATE, STIME, MSTEP, & MDATE, MTIME ) ) THEN XMSG = 'Cannot get step-starting date and time' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT3 ) END IF CALL NEXTIME ( MDATE, MTIME, MSTEP ) ! set mdate:mtime to the hour C...Get convective precipitation amount (cm) call interpolate_var (RC_NAME, mdate, mtime, RC) C...Convert the rainfall rate into mm/hr, then set a flag noting the C... presence of raining clouds if the rainfall is above the specified C... threshold DO ROW = 1, NROWS DO COL = 1, NCOLS RAIN( COL,ROW ) = 10.0 * RC( COL,ROW ) * METSTEP END DO END DO IF ( MINVAL( RAIN ) .LT. 0.0 ) THEN XMSG = 'NEGATIVE RAIN...PROBABLY BAD MET DATA... in' // MET_CRO_2D CALL M3EXIT ( PNAME, MDATE, MTIME, XMSG, XSTAT1 ) END IF C...Loop through all grid cells DO 311 ROW = 1, NROWS DO 301 COL = 1, NCOLS QLQD = 0.0 QICE = 0.0 FRAC = 0.0 CLBASE = NLAYS CLTOP = CLBASE CLTOPUSTBL = NLAYS QMAX = 0.0 PLCL = 0.0 SRCLAY = NLAYS DO LAY = 1, NLAYS QAD( LAY ) = 0.0 PRESL( LAY ) = PRES( COL,ROW,LAY ) TAL( LAY ) = TA( COL,ROW,LAY ) QVL( LAY ) = QV( COL,ROW,LAY ) DZZL( LAY ) = DZZ( COL,ROW,LAY ) DENSL( LAY ) = PRESL( LAY ) / ( RDGAS * TAL( LAY ) ) END DO C...Test for raining clouds C...If the rainfall amount is below the specified threshold, then set C... values for some of the parameters which will be used when the C... routine is called again for non-precipitating clouds...then C... skip to the next grid cell. IF ( RAIN( COL,ROW ) .GE. RTHRESH ) THEN ICLDTYPE = 1 PRATE = RAIN( COL,ROW ) FRACMAX = 0.0 ELSE ICLDTYPE = 2 FRACMAX = 0.5 END IF C...Determine cloud source level by determining equivalent C... potential temperature profile given perturbed temperature C... and water vapor to account for local hot spots which C... initiate convection. Layer with maximum equivalent C... potential temperature is cloud source layer. SRCLAY = 1 TMAX = TAL( 1 ) + PERT QMAX = QVL( 1 ) + PERQ PMAX = PRESL( 1 ) THMAX = TMAX * ( 1.0E+05 / PMAX ) ** ROVCP EQTHM = THMAX * EXP( LVOCP * QMAX / TMAX ) DO LAY = 2, NLAYS PP = PRESL( LAY ) IF ( ZH( COL,ROW,LAY ) .GT. 3000.0 ) EXIT ! 650 mb TP = TAL( LAY ) + PERT QP = QVL( LAY ) + PERQ THMAX = TP * ( 1.0E+05 / PP ) ** ROVCP EQTH = THMAX * EXP( LVOCP * QP / TP ) IF ( EQTH .GT. EQTHM ) THEN TMAX = TP SRCLAY = LAY QMAX = QP PMAX = PP EQTHM = EQTH END IF END DO C...Equivalent potential temp max is now known between LAY 1 C... and 650 mb. We now proceed to compute lifting condensation C... level. First, compute vapor pressure at the source level. C... Find dewpoint using empirical relationship, avoiding C... supersaturation. Then compute dew point lapse rate - C... see Walcek and Taylor, 1986. EMAX = QMAX * PMAX / ( MVOMA + QMAX ) TDMAX = C302 / ( C303 - LOG( EMAX * VPINV ) ) TDMAX = MIN( TDMAX, TMAX ) DPLR = ( GRAV * TDMAX * TDMAX ) / ( MVOMA * LV0 * TMAX ) c...Compute difference between dry adiabatic and dew point lapse C... rate, height increment above source level to reach LCL, C... then calculate value of pressure at LCL. Save result C... in CONV_DEP( *,*,N_SPC_WDEP+2 ). DAMDP = DALR - DPLR IF ( DAMDP .LE. 0.0 ) THEN DZLCL = 0.0 PLCL = PMAX C...walcek formula TLCL = TMAX C...walcek formula ELSE DZLCL = ( TMAX - TDMAX ) / DAMDP C...walcek formula TLCL = TMAX - DALR * DZLCL C...walcek formula TBAR = TMAX - 0.5 * DALR * DZLCL ! midpt of TMAX, TLCL TBAR = MAX( TBAR , 150.0 ) PLCL = PMAX * EXP( -( GRAV / RDGAS ) * DZLCL / TBAR ) ZLCL = DZLCL + ZH( COL,ROW, SRCLAY ) END IF C...Determine cloud base at LAY in which LCL resides, C... but not below layer 2. C...plcl above middle of top layer IF ( PRESL( NLAYS ) .GE. PLCL ) THEN PLCL = PRESL( NLAYS ) CLBASE = NLAYS CLTOP = CLBASE WRITE( LOGDEV,* ) ' WARNING: PLCL above top: Continuing' C...search loop to find CLBASE ELSE DO LAY = 2, NLAYS IF ( PRESL( LAY ) .LE. PLCL ) THEN CLBASE = LAY GO TO 245 END IF END DO CLBASE = NLAYS ! if you get here base never found 245 CONTINUE END IF ! if plcl < ptop or , or ... C...CLBASE is LAY of LCL. Now, determine cloud top by following C... moist adiabat up from CLBASE. Assume a stable sounding C... (ISOUND=0) at first. Moist adiabat solver calculates C... saturation temperatures TF at the full levels and TSAT( COL,ROW,LAY ) C... at the half-levels, using a 2nd order Runge method employing C... temperatures and pressures at the quarter-levels. ISOUND = 0 DO 255 LAY = CLBASE, NLAYS C...walcek formulas DP = PRESL( LAY - 1 ) - PRESL( LAY ) PBAR = PRESL( LAY - 1 ) - DP * 0.5 IF ( LAY .EQ. CLBASE ) THEN DP = PLCL - PRESL( LAY ) PBAR = PLCL - DP * 0.5 TBASE = TLCL END IF TBAR = MAX( TBASE - 0.00065 * DP, 150.0 ) X1 = LV0 * QSAT( ESAT( TBAR ), PBAR ) / ( RDGAS * TBAR ) ! Walcek's DTDP = ( ( RDGAS * TBAR ) / ( PBAR * CPD ) ) ! original & * ( ( 1.0 + X1 ) ! formulas & / ( 1.0 + ( 0.622 * LVOCP / TBAR ) * X1 ) ) TSAT( LAY ) = MAX( TBASE - DP * DTDP, 150.0 ) QAD ( LAY ) = QSAT( ESAT( TSAT( LAY ) ), PRESL( LAY ) ) TBASE = TSAT( LAY ) C...end Walcek formulas C...QAD is the moist adiabatic saturation mixing ratio, needed C... for the entrainment solver C... Now make choice on stability of sounding, comparing parcel C... temperature TSAT with environmental temperature TA. C... ISOUND is index for sounding stability. If ISOUND=0, C... moist adiabat never warmer than environment (stable). C... ISOUND=1, moist adiabat becomes warmer than environment C... (unstable). IF ( ISOUND .EQ. 0 ) THEN IF ( TSAT( LAY ) .GT. TAL( LAY ) ) ISOUND = 1 ELSE ! cloud top determined by neutral bouyancy T1 = TSAT( LAY ) ! - 0.5 * PERT IF ( T1 .LT. TAL( LAY ) ) THEN CLTOP = LAY - 1 GO TO 256 END IF END IF 255 CONTINUE ! end loop following moist adiabat CLTOP = NLAYS - 1 ! if you get here: cloud stable or no top 256 CONTINUE C...At this point, if ISOUND has not been set to 1, we have a C... "stable" cloud. In this case, we find cloud top by relative C... humidity criterion, or, not let cloud top go above 600mb. IF ( ISOUND .EQ. 0 ) THEN IF ( ICLDTYPE .NE. 1 ) GO TO 299 DO 265 LAY = CLBASE + 1, NLAYS IF ( PRESL( LAY ) .LE. 60000.0 ) THEN CLTOP = LAY - 1 GO TO 267 ! loop exit END IF RLH = QVL( LAY ) / QSAT( ESAT( TAL( LAY ) ), PRESL( LAY ) ) IF ( RLH .LT. 0.65 ) THEN CLTOP = LAY - 1 GO TO 267 ! loop exit END IF 265 CONTINUE CLTOP = NLAYS - 1 ! if you get here: top never found ELSE CLTOPUSTBL = CLTOP ! store unstable cloud top END IF 267 CONTINUE ! loop exit target IF ( ICLDTYPE .NE. 1 ) THEN ! get cloud top for either CNP or PFW IF ( ZLCL .GT. PBL( COL,ROW ) ) GO TO 299 C...compute relative humidity at the cloud source level RLHSRC = MIN( 1.0, QVL( SRCLAY ) & / QSAT( ESAT( TAL( SRCLAY ) ), PRESL( SRCLAY ) ) ) C...If all tests pass, then a CNP or PFW cloud exists C... Proceed to find CLTOP for CNP or PFW; don`t allow C... cloud top to exceed 500mb, or, when RH falls below C... 65%, cloud top found C...Distiguish between CNP and PFW by whether rain is falling C... in the cell; if PFW, limit depth and find new CLTOP, C... else leave CLTOP alone IF ( CLTOP .EQ. CLBASE ) THEN GO TO 322 ELSE ! confine PFW to 1500 meters CTOP = CLTOP DO LAY = CTOP, CLBASE, -1 IF ( ZH( COL,ROW,LAY ) - ZH( COL,ROW,CLBASE ) .LE. 3000.0 ) THEN CLTOP = LAY GO TO 322 ! exit loop END IF END DO END IF 322 CONTINUE ! loop exit for PFW cloud C...If unstable CNP or PFW, limit CLTOP to CLTOPUSTBL so that C... QAD profile is known through cloud depth for entrainment C... solver IF ( ISOUND .EQ. 1 ) CLTOP = MIN( CLTOP, CLTOPUSTBL ) C...Now compute fractional coverage for either CNP or PFW: C...Now based on Sunqdvist et al. 1989 DOI: 10.1175/1520-0493(1989)117<1641:CACPSW>2.0.CO;2 FRAC = 0.0 IF ( GRID_DATA%LWMASK( COL,ROW ) .EQ. 1.0 ) THEN ! land #ifdef mpas IF ( RLHSRC .GE. RCRITL( COL,ROW) ) & FRAC = 1.0 - SQRT( ( 1.0 - RLHSRC ) / ( 1.0 - RCRITL( COL,ROW ) ) ) #else IF ( RLHSRC .GE. RCRITL ) & FRAC = 1.0 - SQRT( ( 1.0 - RLHSRC ) / ( 1.0 - RCRITL ) ) #endif ELSE ! water #ifdef mpas IF ( RLHSRC .GE. RCRITW( COL,ROW ) ) & FRAC = 1.0 - SQRT( ( 1.0 - RLHSRC ) / ( 1.0 - RCRITW( COL,ROW ) ) ) #else IF ( RLHSRC .GE. RCRITW ) & FRAC = 1.0 - SQRT( ( 1.0 - RLHSRC ) / ( 1.0 - RCRITW ) ) #endif END IF FRAC = MAX( 0.0, MIN( FRAC, 0.95 ) ) IF ( FRAC .LT. 0.01 ) GO TO 299 END IF ! end of existence, depth and frac cov calc for ! either PFW or CNP clouds C...Now cloud existence is established, initialize various C... variables needed for rest of computations C...First, get mol air/m2 at each layer, initialize FSIDE DO LAY = 1, NLAYS RHOM2( LAY ) = PRESL( LAY ) * DZZL( LAY ) & * 1.0E3 / ( RDGAS * MWAIR * TAL( LAY ) ) FSIDE( LAY ) = 0.0 END DO C...Initialize variables needed for entrainment and in-cloud properties solver QXS = 0.0 ! integrated excess water over grid cell nec. for rnout AIRM = 0.0 ! total air mass (mol/m2) in cloudy layers PBARC = 0.0 ! in-cloud average pressure CTHK = 0.0 ! cloud thickness (m) WCBAR = 0.0 ! condensed wat cont (kg/m2) integ. thru cloud depth WTBAR = 0.0 ! total wat cont (kg/m2) integrated thru cloud depth TBARC = 0.0 ! cloud mean temp (K) C...Determine condensed water content and entrainment at each cloud level C... Determine FSIDE profile for raining clouds; side entrainment C... only for PFW and CNP clouds IF ( ICLDTYPE .EQ. 1 ) THEN ! raining cloud IF ( CLBASE .EQ. CLTOP ) THEN FSIDE( CLBASE ) = 1.0 ELSE DO LAY = CLBASE, CLTOP FSIDE( LAY ) = 1.0 END DO END IF ELSE ! CNP or PFW DO LAY = CLBASE, CLTOP FSIDE( LAY ) = 1.0 END DO END IF C...Use Warner profile to close system of conservation and C... thermodynamic equations solved iteratively, using Secant solver DO LAY = CLBASE, CLTOP WL = 0.7 * EXP( ( PRESL( LAY ) - PLCL ) * 0.000125 ) + 0.2 IF ( LAY .EQ. CLBASE ) THEN P1 = 0.5 * ( PRESL( LAY ) + PRESL( LAY - 1 ) ) IF ( PLCL .LT. P1 ) THEN P2 = 0.5 * ( PRESL( LAY + 1 ) + PRESL( LAY ) ) P3 = ( P2 + PLCL ) * 0.5 WL = 0.7 * EXP( ( P3 - PLCL ) * 0.000125 ) + 0.2 END IF END IF c...original Walcek bisection solver QWAT( LAY ) = WL * ( QMAX - QAD( LAY ) ) QWAT( LAY ) = MAX( QWAT( LAY ), 1.0E-20 ) TEMPA = TSAT( LAY ) - 20.0 TEMPB = TSAT( LAY ) + 10.0 QENT = FSIDE( LAY ) * QVL( LAY ) & + ( 1.0 - FSIDE( LAY ) ) * QVL( CLTOP ) QDIF = QENT - QMAX IF ( QDIF .EQ. 0.0 ) QDIF = 1.0E-10 F( LAY ) = ( QSAT( ESAT( TEMPA ), PRESL( LAY ) ) & + QWAT( LAY ) - QMAX ) / QDIF F( LAY ) = MIN( F( LAY ), 1.0 ) F( LAY ) = MAX( F( LAY ), 0.0 ) TTOP = TAL( CLTOP ) * ( PRESL( LAY ) / PRESL( CLTOP ) ) ** ROVCP TENT = TTOP * ( 1.0 - FSIDE( LAY ) ) + TAL( LAY ) * FSIDE( LAY ) TI = TSAT( LAY ) * ( 1.0 - F( LAY ) ) + TENT * F( LAY ) DQL = ( QMAX - QAD( LAY ) ) * ( 1.0 - F( LAY ) - WL ) DQI = 0.0 IF ( TEMPA .LT. 273.15 ) THEN DQI = -QWAT( LAY ) * ( TEMPA - 273.15 ) / 18.0 IF ( TEMPA .LE. 255.15 ) DQI = QWAT( LAY ) END IF FA = CPD * ( TEMPA - TI ) + LV0 * DQL + LF0 * DQI C...test for convergence, then cut the interval in half I599C = 0 599 CONTINUE HTST = TEMPB - TEMPA IF ( HTST .LT. TST ) GO TO 595 ! convergence I599C = I599C + 1 IF ( I599C .GT. 1000 ) THEN WRITE( XMSG, 91010 ) & 'NO CONVERGENCE IN ENTRAINMENT SOLVER AT COL= ', & COL, ' ROW= ', ROW, ' ICLDTYPE= ', ICLDTYPE CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT2 ) END IF TEMPC = ( TEMPA + TEMPB ) * 0.5 QENT = FSIDE( LAY ) * QVL( LAY ) & + ( 1.0 - FSIDE( LAY ) ) * QVL( CLTOP ) QDIF = QENT - QMAX IF ( QDIF .EQ. 0.0 ) QDIF = 1.0E-10 F( LAY ) = ( QSAT( ESAT( TEMPC ), PRESL( LAY ) ) & + QWAT( LAY ) - QMAX ) / QDIF F( LAY ) = MIN( F( LAY ), 0.99 ) F( LAY ) = MAX( F( LAY ), 0.01 ) TTOP = TAL( CLTOP ) * ( PRESL( LAY ) / PRESL( CLTOP ) ) ** ROVCP TENT = TTOP * ( 1.0 - FSIDE( LAY ) ) + TAL( LAY ) * FSIDE( LAY ) TI = TSAT( LAY ) * ( 1.0 - F( LAY ) ) + TENT * F( LAY ) DQL = ( QMAX - QAD( LAY ) ) * ( 1.0 - F( LAY ) - WL ) DQI = 0.0 IF ( TEMPC .LT. 273.15 ) THEN DQI = -QWAT( LAY ) * ( TEMPC - 273.15 ) / 18.0 IF ( TEMPC .LE. 255.15 ) DQI = QWAT( LAY ) END IF FB = CPD * ( TEMPC - TI ) + LV0 * DQL + LF0 * DQI FTST = FA * FB C...if fa*fb < 0 then zero lies between ta & tc C...if fa*fb > 0 then zero lies between tc & tb IF ( FTST .LE. 0.0 ) THEN TEMPB = TEMPC ELSE TEMPA = TEMPC END IF GO TO 599 595 CONTINUE ! exit from iterator, convergence achieved C...we have obtained parcel temp TEMPC at layer LAY C...and entrainment fraction F(LAY) C...end of Walcek bisection solver TCLD( LAY ) = MAX( TEMPC, 150.0 ) C...ice load in cloud is a function of temperature below freezing IF ( TCLD( LAY ) .LT. 273.15 ) THEN QICE( LAY ) = -QWAT( LAY ) * ( TCLD( LAY ) - 273.15 ) / 18.0 IF ( TCLD( LAY ) .LE. 255.15 ) QICE( LAY ) = QWAT( LAY ) END IF C...After determining the ice fraction, compute the actual C... liquid water mixing ratio: QLQD( LAY ) = QWAT( LAY ) - QICE( LAY ) C...compute the Liquid Water Content (LWC) by taking the C... product of the liquid wat mix ratio and the air density C... LWC in kg H2O per m**3 air: RHOAIR = PRESL( LAY ) / ( RDGAS * TCLD( LAY ) ) LWC( LAY ) = QLQD( LAY ) * RHOAIR LWC( LAY ) = MAX( 5.0E-6, LWC( LAY ) ) ! lower limit TWC = QWAT( LAY ) * RHOAIR ! total water content C...Now perform vertical integration, weighting by liquid water C... content so that averaged quantities (used in Aqueous C... Chemistry) get the greatest weight where the liquid C... water content is greatest. C...weighted cloud temp TBARC = TBARC + TCLD( LAY ) * DZZL( LAY ) * LWC( LAY ) C...weighted cloud pres PBARC = PBARC + PRESL( LAY ) * DZZL( LAY ) * LWC( LAY ) C...integrated liquid water content (kg/m3) WCBAR = WCBAR + DZZL( LAY ) * LWC( LAY ) C...integrated total water content WTBAR = WTBAR + DZZL( LAY ) * TWC CTHK = CTHK + DZZL( LAY ) ! Cloud thickness C...Now compute integrated excess water over grid cell C... average necessary for rainout, through cloud depth. C... First, get max temp in the cell (either in cloud or env.) T1 = MAX( TCLD( LAY ), TAL( LAY ) ) C...get saturation water vapor mixing ratio at that temp: QVC( LAY ) = QSAT( ESAT( T1 ), PRESL( LAY ) ) C...excess water is the sum of total condensed and saturated C... vapor minus grid cell average mixing ratio: QXS in kg/m2: C... integrated through cloud depth QXS = QXS & + ( QWAT( LAY ) + QVC( LAY ) - QVL( LAY ) ) & * RHOAIR * DZZL( LAY ) C...get total air mass in cloudy layers: AIRM = AIRM + RHOM2( LAY ) END DO C...Now begin to split calculations for non-raining and raining C... clouds depending on inner loop index ICLDTYPE (1 = raining, C... 2 = nonraining: either CNP of PFW:) IF ( ICLDTYPE .EQ. 2 ) THEN ! no precip or excess water PRATE1 = 1.0E-30 PRATE = 1.0E-30 QXS = 1.0E-30 GO TO 7000 ! branch for further CNP or PFW calculations END IF C...continue here for raining cloud... C...get PRATE1, storm rainout rate in mm/hour, noting that 1 kg C... of water occupies a 1 mm thick layer of water in a square meter C... of ground (accounts for density of water = 1000 kg/m3) PRATE1 = STORME * QXS * 3600.0 / TCLIFE IF ( PRATE1 .LE. 1.001 * PRATE ) THEN FRAC = 0.999 ! Changed back to .999 - jp 6/05 PRATE1 = PRATE / FRAC ELSE FRAC = PRATE / PRATE1 END IF IF ( FRAC .LT. 0.01 ) GO TO 299 C...for raining cloud, compute water properties of interest C... below cloud base. First, parameterize total water content TWC = ( 0.067 * PRATE ** ( 0.846 ) ) / ( FRAC * 1000.0 ) ! tot wat cont kg/m3 DO LAY = 1, CLBASE - 1 TCLD( LAY ) = TAL( LAY ) RHOAIR = PRESL( LAY ) / ( RDGAS * TCLD( LAY ) ) QWAT( LAY ) = TWC / RHOAIR ! kg H2O / kg air C...again partition into ice and liquid IF ( TCLD( LAY ) .LT. 273.15 ) THEN QICE( LAY) = -QWAT( LAY ) * ( TCLD( LAY ) - 273.15 ) / 18.0 IF ( TCLD( LAY ) .LE. 255.15 ) QICE( LAY ) = QWAT( LAY ) END IF QLQD( LAY ) = QWAT( LAY ) - QICE( LAY ) LWC ( LAY ) = QLQD( LAY ) * RHOAIR LWC ( LAY ) = MAX( 5.0E-06, LWC( LAY ) ) ! lower limit PBARC = PBARC + PRESL( LAY ) * DZZL( LAY ) * LWC( LAY ) TBARC = TBARC + TCLD( LAY ) * DZZL( LAY ) * LWC( LAY ) WCBAR = WCBAR + DZZL( LAY ) * LWC( LAY ) WTBAR = WTBAR + DZZL( LAY ) * TWC CTHK = CTHK + DZZL( LAY ) C...excess water is all rain QXS = QXS + QWAT( LAY ) * RHOAIR * DZZL( LAY ) END DO C...Final calc of storm rainfall rate and frac area (raining clds) PRATE1 = STORME * QXS * 3600.0 / TCLIFE IF ( PRATE1 .LE. 1.001 * PRATE ) THEN FRAC = 0.999 ! Changed back to .999 - jp 6/05 PRATE1 = PRATE / FRAC ELSE FRAC = PRATE / PRATE1 END IF IF ( FRAC .LT. 0.01 ) GO TO 299 7000 CONTINUE ! target of cloudtype split C...Capture cloud information for both cloud types IF ( USE_ACM_CLOUD ) THEN ! WRITE(6,'(A,7(I8,1X),3(ES12.4,1X))') ! & 'MYPE, JDATE, JTIME, COL, ROW, SUBGRID CLD CLBASE, CLTOP,FRAC, SUM(QLQD), SUM(QICE) = ', ! & MYPE, JDATE, JTIME, COL, ROW, CLBASE, CLTOP,FRAC, SUM(QLQD), SUM(QICE) CALL CAPTURE_ACM_CLOUD( JDATE, JTIME, COL, ROW, CLBASE, CLTOP, & FRAC, QLQD, QICE ) END IF 299 CONTINUE 301 CONTINUE ! end loop on columns COL 311 CONTINUE ! end loop on rows ROW RETURN ! from main routine CLDPROC 91010 FORMAT( 3( A, :, I3, : ) ) END SUBROUTINE CONVCLD_PROP_ACM ================================================ FILE: CCTM/src/phot/inline/o3totcol.f ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! subroutine o3totcol ( latitude, longitude, jdate, jtime, ozone ) !---------------------------------------------------------------------- ! Function: ! This subroutine returns total column ozone [DU] for any lat, lon, and date, ! by interpolating spacially and temporally between OMI/TOMS data in file ! OMI. The interpolation of ozone between lat, lon, and time is linear. ! If missing data are encourntered (designated as -1.0 in OMI), the ! interpolation proceeds with available contiguous and conterminous data. ! ! Revision history: ! Aug 11 J.Streicher: initial version ! Dec 2013 S.Roselle: time-records adjusted to input file provided; ! improved logfile reporting ! Jun 2015 J.Young: maintain code stnds !---------------------------------------------------------------------- use runtime_vars use utilio_defn implicit none ! arguments integer, intent( in ) :: jdate ! Julian day of the year (yyyyddd) integer, intent( in ) :: jtime ! time (hhmmss) real, intent( in ) :: latitude ! latitude of point on earth's surface real, intent( in ) :: longitude ! longitude of point on earth's surface real, intent( inout ) :: ozone ! total column ozone [DU] ! parameters real, parameter :: sec2day = 1.0 / 8.64E+4 ! local variables character( 16 ), save :: tmfile = 'OMI' character( 16 ), save :: pname = 'O3TOTCOL' character( 96 ) :: xmsg = ' ' character( 96 ) :: xmsgs( 3 ) integer :: allocstat integer :: ilat integer :: ilon integer :: i integer :: icount integer :: ios integer :: nrecs integer :: jyear integer :: time integer, save :: nlat ! = 17 ! or 19 integer, save :: nlon ! = 17 integer, save :: nt integer, save :: it integer, save :: icolumn_prev = 1 integer, save :: icolumn_next = 2 integer, save :: tmunit integer, save :: jdate_prev = 0 integer, save :: jtime_prev = 0 integer, save :: jstdate, jenddate, jtdate_temp real :: flag( 8 ) real :: x2 real :: x3 real :: np_oz real :: sp_oz real :: total real :: latitudem real :: tdate_temp, tdate real, save :: x1 real, save :: strdate, enddate real, save :: max_lat, min_lat real, allocatable, save :: t( : ) real, allocatable, save :: lat( : ) real, allocatable, save :: lon( : ) real, allocatable, save :: oz( :, :, : ) ! two timesteps for interpolation logical, save :: firsttime = .true. !---------------------------------------------------------------------- if ( firsttime ) then firsttime = .false. tmunit = getefile( tmfile, .true., .true., pname ) if ( tmunit .lt. 0 ) then xmsg = 'Error opening ' // tmfile call m3exit ( pname, jdate, 0, xmsg, xstat1 ) end if read( tmunit, '(5x,i7)') nlat read( tmunit, '(5x,i7)') nlon write(logdev,'(a,i7,a,i7)')'OMI Ozone column data has Lat by Lon Resolution: ', & nlat,'X',nlon allocate ( lat( nlat ), stat = allocstat ) if ( allocstat .ne. 0 ) then xmsg = 'Failure allocating lat' call m3exit ( pname, jdate, 0, xmsg, xstat1 ) end if allocate ( lon( nlon ), stat = allocstat ) if ( allocstat .ne. 0 ) then xmsg = 'Failure allocating lon' call m3exit ( pname, jdate, 0, xmsg, xstat1 ) end if ! Assign values to array of longitudes: lon x2 = 360.0 / real( nlon - 1 ) do ilon = 1, nlon lon( ilon ) = -180.0 + x2 * real( ilon - 1 ) end do nrecs = 0 read( tmunit, * ) ! skip header record do read( tmunit, *, iostat=ios ) if ( ios .ne. 0 ) exit nrecs = nrecs + 1 end do if ( nrecs .gt. 0 ) nt = nrecs / nlat allocate ( t( nt ), stat = allocstat ) if ( allocstat .ne. 0 ) then xmsg = 'Failure allocating T' call m3exit ( pname, jdate, 0, xmsg, xstat1 ) end if allocate ( oz( nlat, nlon, 2 ), stat = allocstat ) if ( allocstat .ne. 0 ) then xmsg = 'Failure allocating oz ' call m3exit ( pname, jdate, 0, xmsg, xstat1 ) end if rewind( tmunit ) read( tmunit, * ) read( tmunit, * ) read( tmunit, * ) ! When adding x lines of data to OMI.dat, increase upper limit by x ! Note: ilat(1) => North to South in degrees ! Note: ilon(1) = International Dateline (ID) = ilon(nlon); ilon(2)=> West of ID ! Read in array of dates (format: yyyy.yyy) do it = 1, nt do ilat = 1, nlat read( tmunit,* ) t( it ), lat( ilat ) end do end do max_lat = maxval( lat ) min_lat = minval( lat ) strdate = minval( t ) enddate = maxval( t ) end if ! firsttime if ( jdate .ne. jdate_prev .or. jtime .ne. jtime_prev ) then ! Use a temporary dummy variable jdate_temp so as not to overwrite jdate jtime_prev = jtime jyear = jdate / 1000 time = mod(jtime, 100) + 60*mod(jtime/100, 100)+ 3600*(jtime/10000) tdate = real( jyear ) & + ( real( jdate - jyear * 1000 ) + real( time ) * sec2day ) * yr2day( jyear ) tdate_temp = tdate ! Determine if the ozone database includes the requested jdate if ( tdate .ge. enddate ) then ! Submitted date is outside of ozone database range. ! Total column ozone will be estimated from the corresponding Julian Day ! of the prior year tdate_temp = aint( enddate ) + ( tdate - aint( tdate ) ) if ( tdate_temp .gt. enddate ) then tdate_temp = tdate_temp - 1.0 end if jenddate = int( enddate ) * 1000 & + int( ( 1.0 / yr2day( int( enddate ) ) ) & * ( enddate - aint( enddate ) ) ) jtdate_temp = int( tdate_temp ) * 1000 & + nint( ( 1.0 / yr2day( int( tdate_temp ) ) ) & * ( tdate_temp - aint( tdate_temp ) ) ) if( jdate_prev .ne. jdate )then ! write message to log xmsg = 'Requested date is beyond available data on OMI file: <' & // dt2str( jenddate, 0 ) call m3warn ( pname, jdate, 0, xmsg ) xmsgs( 1 ) = 'Total column ozone will be estimated from the corresponding Julian Day ' xmsgs( 2 ) = 'of the last available year on the ' & // 'OMI input file:' // dt2str( jtdate_temp, 0 ) // '<<---<<' write(xmsgs( 3 ),'(A,F14.8)')'Exact date: ',tdate_temp call m3parag ( 3, xmsgs ) end if else if ( tdate .le. strdate ) then ! Submitted date is outside of ozone database range. ! Total column ozone will be estimated from the corresponding Julian Day of ! the subsequent year tdate_temp = real( int( strdate ) ) + ( tdate - real( int( tdate ) ) ) if ( tdate_temp .lt. strdate ) then tdate_temp = tdate_temp + 1.0 end if jstdate = int( strdate ) * 1000 & + int( ( 1.0 / yr2day( int( strdate ) ) ) & * ( strdate - aint( strdate ) ) ) jtdate_temp = int( tdate_temp ) * 1000 & + nint( ( 1.0 / yr2day( int( tdate_temp ) ) ) & * ( tdate_temp - aint( tdate_temp ) ) ) if( jdate_prev .ne. jdate )then ! write message to log xmsg = 'Requested date preceeds available data on OMI file: >' & // dt2str( jstdate, 0 ) call m3warn ( pname, jdate, 0, xmsg ) xmsgs( 1 ) = 'Total column ozone will be estimated from the corresponding Julian Day' xmsgs( 2 ) = 'of the next available year on the OMI input file:' & // dt2str( jtdate_temp, 0 ) // '<<---<<' xmsgs( 3 ) = ' ' call m3parag ( 3, xmsgs ) end if ! Submitted date falls within the satellite data measurement gap beginning ! on 24 Nov 1994 and ending on 22 Jul 1996. else if ( ( tdate .ge. 1994.899 ) .and. & ( tdate .le. 1996.557 ) ) then if ( tdate .le. 1995.738 ) then tdate_temp = tdate - 1.0 ! use previous year else tdate_temp = tdate + 1.0 ! use subsequent year end if jtdate_temp = int( tdate_temp ) * 1000 & + nint( ( 1.0 / yr2day( int( tdate_temp ) ) ) & * ( tdate_temp - aint( tdate_temp ) ) ) if( jdate_prev .ne. jdate )then ! write message to log xmsg = 'Requested date falls within satellite data' & // ' measurement gap: 24 Nov 1994 - 22 Jul 1996' call m3warn ( pname, jdate, 0, xmsg ) xmsgs( 1 ) = 'Total column ozone will be estimated from the corresponding Julian Day' xmsgs( 2 ) = 'of the closest available year on the OMI input file:' & // dt2str( jtdate_temp, 0 ) // '<<---<<' xmsgs( 3 ) = ' ' call m3parag ( 3, xmsgs ) end if else if( jdate_prev .ne. jdate )then ! write message to log xmsgs( 1 ) = 'Total column ozone will be interpolated to day ' & // dt2str( jdate, 0 ) xmsgs( 2 ) = 'from data available on the OMI input file' xmsgs( 3 ) = ' ' call m3parag ( 3, xmsgs ) end if end if if( jdate_prev .ne. jdate )then ! need to update day interpolation points jdate_prev = jdate oz = 0.0 ! When adding x lines of data to OMI.dat, increase upper limit by x ! and increase the dimension of t as needed ! Determine the specific dates in the database that bound the requested jdate ! i.e. (it) < (jdate_temp) < (it+1) ! where it is the index var for the database ! and determine the interpolation factor ?x1? between the bounding dates ! reset oz and jdate_prev x1 = 0.0 x1loop: do it = 1, nt-1 if ( ( tdate_temp .ge. t( it ) ) .and. & ( tdate_temp .le. t( it+1 ) ) ) then icolumn_prev = it icolumn_next = it + 1 exit x1loop end if end do x1loop ! Determine the corresponding bounding ozone values for all lats and lons rewind( tmunit ) read( tmunit,* ) read( tmunit,* ) read( tmunit,* ) do i = 1, it-1 do ilat = 1, nlat read( tmunit,* ) end do end do do ilat = 1, nlat read( tmunit,* ) t( it ), lat( ilat ), ( oz( ilat, ilon, 1 ), ilon=1,(nlon-1) ) oz( ilat, nlon, 1 ) = oz( ilat, 1, 1 ) end do do ilat = 1, nlat read( tmunit,* ) t( it+1 ), lat( ilat ), ( oz( ilat, ilon, 2 ), ilon=1,(nlon-1) ) oz( ilat, nlon, 2 ) = oz( ilat, 1, 2 ) end do end if x1 = ( tdate_temp - t( icolumn_prev ) ) / ( t( icolumn_next ) - t( icolumn_prev ) ) end if ! jdate .ne. jdate_prev and jtime .ne. jday flag = 0.0 ozone = 0.0 latitudem = 0.0 x2 = 0.0 x3 = 0.0 ! Handle the special case of lat > max_lat or lat < min_lat. ! use a dummy latitude variable latitudem so as to prevent overwriting latitude if ( latitude .gt. max_lat ) then latitudem = max_lat else if ( latitude .lt. min_lat ) then latitudem = min_lat else latitudem = latitude end if ! Identify the database latitudes that bound the requested latitude ! Determine the proportionality x2 x2loop: do ilat = 1, nlat-1 if ( ( latitudem .le. lat( ilat ) ) .and. & ( latitudem .ge. lat( ilat+1 ) ) ) then x2 = ( latitudem - lat( ilat+1 ) ) / ( lat( ilat ) - lat( ilat+1 ) ) exit x2loop end if end do x2loop ! Analogously determine the proportionality x3 fot longitude x3loop: do ilon = 1, nlon-1 if ( ( longitude .ge. lon( ilon ) ) .and. & ( longitude .le. lon( ilon+1 ) ) ) then x3 = ( longitude - lon( ilon ) ) / ( lon( ilon+1 ) - lon( ilon ) ) exit x3loop end if end do x3loop ozone = 0.0 ! Determine the interpolated ozone, with consideration that some of the 8 ozone values ! of the data cube may be missing. Construct the estimate from those values that are ! available flag = 1.0 if ( oz( ilat, ilon+1, 2 ) .le. 0.0 ) then oz( ilat, ilon+1, 2 ) = 0.0 flag( 1 ) = 0.0 else flag( 1 ) = x1 * x2 * x3 end if if ( oz( ilat, ilon, 2 ) .le. 0.0 ) then oz( ilat, ilon, 2 ) = 0.0 flag( 2 ) = 0.0 else flag( 2 ) = x1 * x2 * ( 1.0 - x3 ) end if if ( oz( ilat+1, ilon+1, 2 ) .le. 0.0 ) then oz( ilat+1, ilon+1, 2 ) = 0.0 flag( 3 ) = 0.0 else flag( 3 ) = x1 * ( 1.0 - x2 ) * x3 end if if ( oz( ilat+1, ilon, 2 ) .le. 0.0 ) then oz( ilat+1, ilon, 2 ) = 0.0 flag( 4 ) = 0.0 else flag( 4 ) = x1 * ( 1.0 - x2 ) * ( 1.0 - x3 ) end if if ( oz( ilat, ilon+1, 1 ) .le. 0.0 ) then oz( ilat, ilon+1, 1 ) = 0.0 flag( 5 ) = 0.0 else flag( 5 ) = ( 1.0 - x1 ) * x2 * x3 end if if ( oz( ilat, ilon, 1 ) .le. 0.0 ) then oz( ilat, ilon, 1 ) = 0.0 flag( 6 ) = 0.0 else flag( 6 ) = ( 1.0 - x1 ) * x2 * ( 1.0 - x3 ) end if if ( oz( ilat+1, ilon+1, 1 ) .le. 0.0 ) then oz( ilat+1, ilon+1, 1 ) = 0.0 flag( 7 ) = 0.0 else flag( 7 ) = ( 1.0 - x1 ) * ( 1.0 - x2 ) * x3 end if if ( oz( ilat+1, ilon, 1 ) .le. 0.0 ) then oz( ilat+1, ilon, 1 ) = 0.0 flag( 8 ) = 0.0 else flag( 8 ) = ( 1.0 - x1 ) * ( 1.0 - x2 ) * ( 1.0 - x3 ) end if ozone = ( x1 ) * ( x2 ) * ( x3 ) * oz( ilat , ilon+1, 2 ) & +( x1 ) * ( x2 ) * ( 1.0-x3 ) * oz( ilat , ilon , 2 ) & +( x1 ) * ( 1.0-x2 ) * ( x3 ) * oz( ilat+1, ilon+1, 2 ) & +( x1 ) * ( 1.0-x2 ) * ( 1.0-x3 ) * oz( ilat+1, ilon , 2 ) & +( 1.0-x1 ) * ( x2 ) * ( x3 ) * oz( ilat , ilon+1, 1 ) & +( 1.0-x1 ) * ( x2 ) * ( 1.0-x3 ) * oz( ilat , ilon , 1 ) & +( 1.0-x1 ) * ( 1.0-x2 ) * ( x3 ) * oz( ilat+1, ilon+1, 1 ) & +( 1.0-x1 ) * ( 1.0-x2 ) * ( 1.0-x3 ) * oz( ilat+1, ilon , 1 ) total = sum( flag ) ! Special case of min_lat > lat or lat > max_lat if ( latitude .ge. max_lat ) then np_oz = 0.0 icount = 0 do ilon = 1, nlon if ( ( ( oz( 1, ilon, 1 ) ) .le. 0.0 ) .or. & ( ( oz( 1, ilon, 2 ) ) .le. 0.0 ) ) then cycle else icount = icount + 1 np_oz = np_oz + ( ( 1.0 - x1 ) * oz( 1, ilon, 1 ) & + x1 * oz( 1, ilon, 2 ) ) end if end do if ( icount .eq. 0 ) then go to 899 end if np_oz = np_oz / real( icount ) else if ( latitude .le. min_lat ) then sp_oz = 0.0 icount = 0 do ilon = 1, nlon if ( ( ( oz( nlat, ilon, 1 ) ) .le. 0.0 ) .or. & ( ( oz( nlat, ilon, 2 ) ) .le. 0.0 ) ) then cycle else icount = icount + 1 sp_oz = sp_oz + ( ( 1.0 - x1 ) * oz( nlat, ilon, 1 ) & + x1 * oz( nlat, ilon, 2 ) ) end if end do if ( icount .eq. 0 ) then go to 899 end if sp_oz = sp_oz / real( icount ) end if ! Special case of abs(lat) > 80 is complete ! When no contiguous and conterminous data are available, default to 300 DU: if ( total .le. 0.0 ) then ozone = 300.0 else if ( latitude .ge. max_lat ) then np_oz = np_oz / total ozone = ( ( latitude - max_lat ) * 0.1 ) * np_oz & + ( 1.0 - ( ( ( latitude - max_lat ) * 0.1 ) ) ) * ozone / total else if ( latitude .le. min_lat ) then sp_oz = sp_oz / total ozone = ( ( latitude - min_lat ) * 0.1 ) * sp_oz & + ( 1.0 - ( ( ( latitude - min_lat ) * 0.1 ) ) ) * ozone / total else ozone = ozone / total end if end if 899 if ( ozone .lt. 100.0 ) then ozone = 100.0 ! xmsg = 'interpolated ozone column below 100 DU' ! write(logdev,'(A,20(F10.4,1X))')'For time:',tdate_temp ! write(logdev,'(A,20(F10.4,1X))')'At lat,lon:',latitude,longitude ! write(logdev,'(A,20(F10.4,1X))')'Intepolated data' ! write(logdev,'(A,20(F10.4,1X))')'Time Point 1', ! & t( icolumn_prev ),lat( ilat ),lat( ilat+1 ),lon( ilon),lon( ilon+1 ), ! & oz( ilat, ilon+1, 1 ), oz( ilat , ilon , 1 ), ! & oz( ilat+1, ilon+1, 1 ), oz( ilat+1, ilon , 1 ) ! write(logdev,'(A,20(F10.4,1X))')'Time Point 2', ! & t( icolumn_next ),lat( ilat ),lat( ilat+1 ),lon( ilon),lon( ilon+1 ), ! & oz( ilat, ilon+1, 2 ), oz( ilat , ilon , 2 ), ! & oz( ilat+1, ilon+1, 2 ), oz( ilat+1, ilon , 2 ) ! write(logdev,'(A,20(F10.4,1X))')'Weights, x1, x2,x3: ',x1, x2,x3 ! CALL M3EXIT( 'o3totcol', JDATE, JTIME, XMSG, XSTAT1 ) else if ( ozone .gt. 800.0 ) then ! xmsg = 'interpolated ozone column above 800 DU' ! write(logdev,'(A,20(F10.4,1X))')'For time:',tdate_temp ! write(logdev,'(A,20(F10.4,1X))')'At lat,lon:',latitude,longitude ! write(logdev,'(A,20(F10.4,1X))')'Intepolated data' ! write(logdev,'(A,20(F10.4,1X))')'Time Point 1', ! & t( icolumn_prev ),lat( ilat ),lat( ilat+1 ),lon( ilon),lon( ilon+1 ), ! & oz( ilat, ilon+1, 1 ), oz( ilat , ilon , 1 ), ! & oz( ilat+1, ilon+1, 1 ), oz( ilat+1, ilon , 1 ) ! write(logdev,'(A,20(F10.4,1X))')'Time Point 2', ! & t( icolumn_next ),lat( ilat ),lat( ilat+1 ),lon( ilon),lon( ilon+1 ), ! & oz( ilat, ilon+1, 2 ), oz( ilat , ilon , 2 ), ! & oz( ilat+1, ilon+1, 2 ), oz( ilat+1, ilon , 2 ) ! write(logdev,'(A,20(F10.4,1X))')'Weights, x1, x2,x3: ',x1, x2,x3 ! CALL M3EXIT( 'o3totcol', JDATE, JTIME, XMSG, XSTAT1 ) ozone = 800.0 end if return end subroutine o3totcol ================================================ FILE: CCTM/src/phot/inline/opphot.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/work/rep/arc/CCTM/src/phot/phot_inline/opphot.F,v 1.3 2011/10/21 16:11:28 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE OPPHOT ( JDATE, JTIME, TSTEP ) C----------------------------------------------------------------------- C C FUNCTION: Opens the photolysis diagnostic files C C PRECONDITIONS REQUIRED: C None C C REVISION HISTORY: C Date Who What C -------- ---------- ----------------------------------------- C 01/2008 S.Roselle Adapted from OPDIAM in the aerosol module C for opening the photolysis diagnostic files C 03/2011 B.Hutzell Generalized and modified to write out surface albedo C 03/29/11 S.Roselle Replaced I/O API include files with UTILIO_DEFN C 09/30/14 B.Hutzell Added several diagnostics based on changes to cloud C and aerosol description in radiation transfer solution C----------------------------------------------------------------------- USE GRID_CONF ! horizontal & vertical domain specifications USE RXNS_DATA ! chemical mechanism declarations and data USE UTILIO_DEFN USE PHOT_MET_DATA, ONLY: USE_ACM_CLOUD ! Met and Grid data USE PHOT_MOD ! photolysis in-line routines and data IMPLICIT none INCLUDE SUBST_FILES_ID ! file name parameters C...Arguments INTEGER, INTENT( IN ) :: JDATE ! current model date, coded YYYYDDD INTEGER, INTENT( IN ) :: JTIME ! current model time, coded HHMMSS INTEGER, INTENT( IN ) :: TSTEP ! output time step C...Local variables CHARACTER( 16 ), SAVE :: PNAME = 'OPPHOT' CHARACTER( 16 ) :: LAMBDA CHARACTER( 96 ) :: XMSG = ' ' INTEGER N, L, JWL, INCR ! loop variables C----------------------------------------------------------------------- #ifndef mpas C...Try to open existing file for update IF ( .NOT. OPEN3( CTM_RJ_1, FSRDWR3, PNAME ) ) THEN XMSG = 'Could not open ' // CTM_RJ_1 // ' file for update - ' & // 'try to open new' CALL M3MESG( XMSG ) C...Set output file characteristics based on COORD.EXT and open C... the photolysis diagnostic file FTYPE3D = GRDDED3 SDATE3D = JDATE STIME3D = JTIME TSTEP3D = TSTEP NCOLS3D = GL_NCOLS NROWS3D = GL_NROWS NLAYS3D = 1 NTHIK3D = 1 GDTYP3D = GDTYP_GD P_ALP3D = P_ALP_GD P_BET3D = P_BET_GD P_GAM3D = P_GAM_GD XORIG3D = XORIG_GD YORIG3D = YORIG_GD XCENT3D = XCENT_GD YCENT3D = YCENT_GD XCELL3D = XCELL_GD YCELL3D = YCELL_GD VGTYP3D = VGTYP_GD VGTOP3D = VGTOP_GD DO L = 1, NLAYS3D + 1 VGLVS3D( L ) = VGLVS_GD( L ) END DO GDNAM3D = GRID_NAME ! from HGRD_DEFN C...CSA Variables, Units and Descriptions for RJ_FILE N = 1 VNAME3D( N ) = 'COSZENS' UNITS3D( N ) = '' VDESC3D( N ) = 'Cosine of Solar Zenith Angle' VTYPE3D( N ) = M3REAL N = N + 1 VNAME3D( N ) = 'OZONE_COLUMN' UNITS3D( N ) = 'DU' VDESC3D( N ) = 'Observed Total Ozone Column Density' VTYPE3D( N ) = M3REAL N = N + 1 VNAME3D( N ) = 'NO2_COLUMN' UNITS3D( N ) = 'petamolec cm-2' VDESC3D( N ) = 'Predicted nitrogen dioxide column density' VTYPE3D( N ) = M3REAL N = N + 1 VNAME3D( N ) = 'CO_COLUMN' UNITS3D( N ) = 'petamolec cm-2' VDESC3D( N ) = 'Predicted carbon monoxide column density' VTYPE3D( N ) = M3REAL N = N + 1 VNAME3D( N ) = 'SO2_COLUMN' UNITS3D( N ) = 'petamolec cm-2' VDESC3D( N ) = 'Predicted sulfur dioxide column density' VTYPE3D( N ) = M3REAL N = N + 1 VNAME3D( N ) = 'HCHO_COLUMN' UNITS3D( N ) = 'petamolec cm-2' VDESC3D( N ) = 'Predicted formaldehyde column density' VTYPE3D( N ) = M3REAL N = N + 1 VNAME3D( N ) = 'TROPO_O3_COLUMN' UNITS3D( N ) = 'DU' VDESC3D( N ) = 'Predicted Tropospheric Ozone Column density' VTYPE3D( N ) = M3REAL N = N + 1 VNAME3D( N ) = 'JNO2' UNITS3D( N ) = 'min-1' VDESC3D( N ) = 'Photodissociation rate of NO2' VTYPE3D( N ) = M3REAL N = N + 1 VNAME3D( N ) = 'JO3O1D' UNITS3D( N ) = 'min-1' VDESC3D( N ) = 'Photodissociation rate of ozone producing O(1D)' VTYPE3D( N ) = M3REAL N = N + 1 VNAME3D( N ) = 'RESOLVED_CFRAC' UNITS3D( N ) = '1' VDESC3D( N ) = 'Resolved Cloud Fraction averaged over cloudy layers' VTYPE3D( N ) = M3REAL N = N + 1 VNAME3D( N ) = 'RESOLVED_WBAR' UNITS3D( N ) = 'g m-3' VDESC3D( N ) = 'Resolved Cloud Hydrometeor Content averaged over cloudy layers' VTYPE3D( N ) = M3REAL IF( USE_ACM_CLOUD )THEN N = N + 1 VNAME3D( N ) = 'SUBGRID_CFRAC' UNITS3D( N ) = '1' VDESC3D( N ) = 'Subgrid Cloud Fraction averaged over cloudy layers' VTYPE3D( N ) = M3REAL N = N + 1 VNAME3D( N ) = 'SUBGRID_WBAR' UNITS3D( N ) = 'g m-3' VDESC3D( N ) = 'Subgrid Cloud Hydrometeor Content averaged over cloudy layers' VTYPE3D( N ) = M3REAL END IF N = N + 1 VNAME3D( N ) = 'TRANS_DIFFUSE' UNITS3D( N ) = '1' VDESC3D( N ) = 'broad band transmission coefficient for diffuse radiation at surface' VTYPE3D( N ) = M3REAL N = N + 1 VNAME3D( N ) = 'TRANS_DIRECT' UNITS3D( N ) = '1' VDESC3D( N ) = 'broad band transmission coefficient for direct radiation at surface' VTYPE3D( N ) = M3REAL N = N + 1 VNAME3D( N ) = 'REFLECTION' UNITS3D( N ) = '1' VDESC3D( N ) = 'broad band reflection coefficient at top of atmosphere' VTYPE3D( N ) = M3REAL N = N + 1 VNAME3D( N ) = 'CLR_TRANS_DIF' UNITS3D( N ) = '1' VDESC3D( N ) = 'broad band diffuse transmission for clear sky at surface' VTYPE3D( N ) = M3REAL N = N + 1 VNAME3D( N ) = 'CLR_TRANS_DIR' UNITS3D( N ) = '1' VDESC3D( N ) = 'broad band direct transmission for clear sky at surface' VTYPE3D( N ) = M3REAL N = N + 1 VNAME3D( N ) = 'CLR_REFLECTION' UNITS3D( N ) = '1' VDESC3D( N ) = 'broad band reflection for clear sky at top of atmosphere' VTYPE3D( N ) = M3REAL N = N + 1 VNAME3D( N ) = 'TROPO_O3_EXCEED' UNITS3D( N ) = '1' VDESC3D( N ) = 'Average Exceedance of modeled ozone column from max fraction of Total Column, ' & // ' a relative fraction from total column.' VTYPE3D( N ) = M3REAL N = N + 1 VNAME3D( N ) = 'N_EXCEED_TROPO3' UNITS3D( N ) = '' VDESC3D( N ) = '# of times predicted tropospheric ozone column exceeds observed total column ' & // 'per file time step' VTYPE3D( N ) = M3REAL DO JWL = 1, NWL C...assumes that lamba in nanometers is on order of 100 or less WRITE( LAMBDA,'(I3.3)' ) INT( WAVELENGTH( JWL ) ) N = N + 1 VNAME3D( N ) = 'ETOT_SFC_W' // TRIM( LAMBDA ) UNITS3D( N ) = 'W m-2' VDESC3D( N ) = 'Total Downward Irradiance at surface at ' & // TRIM( LAMBDA ) // ' nm' VTYPE3D( N ) = M3REAL N = N + 1 VNAME3D( N ) = 'AOD_W' // TRIM( LAMBDA ) UNITS3D( N ) = '' VDESC3D( N ) = 'Total Aerosol Optical Depth at ' & // TRIM( LAMBDA ) // ' nm' VTYPE3D( N ) = M3REAL N = N + 1 VNAME3D( N ) = 'AOD_ABS_W' // TRIM( LAMBDA ) UNITS3D( N ) = '' VDESC3D( N ) = 'Absorption Aerosol Optical Depth at ' & // TRIM( LAMBDA ) // ' nm' VTYPE3D( N ) = M3REAL N = N + 1 VNAME3D( N ) = 'TAU_CLOUD_W' // TRIM( LAMBDA ) UNITS3D( N ) = '' VDESC3D( N ) = 'Cloud Optical Depth at ' & // TRIM( LAMBDA ) // ' nm' VTYPE3D( N ) = M3REAL #ifdef phot_debug N = N + 1 VNAME3D( N ) = 'SSA_CLOUD_W' // TRIM( LAMBDA ) UNITS3D( N ) = '1' VDESC3D( N ) = 'Column Averaged Cloud Single Scattering Albedo at ' & // TRIM( LAMBDA ) // ' nm' VTYPE3D( N ) = M3REAL N = N + 1 VNAME3D( N ) = 'ASY_CLOUD_W' // TRIM( LAMBDA ) UNITS3D( N ) = '' VDESC3D( N ) = 'Column Averaged Cloud Asymmetry Factor at ' & // TRIM( LAMBDA ) // ' nm' VTYPE3D( N ) = M3REAL #endif N = N + 1 VNAME3D( N ) = 'TAU_TOT_W' // TRIM( LAMBDA ) UNITS3D( N ) = '' VDESC3D( N ) = 'Total Optical Depth at' & // TRIM( LAMBDA ) // ' nm' VTYPE3D( N ) = M3REAL N = N + 1 VNAME3D( N ) = 'TAUO3_TOP_W' // TRIM( LAMBDA ) UNITS3D( N ) = '' VDESC3D( N ) = 'Optical Depth of O3 above model domain at ' & // TRIM( LAMBDA ) // ' nm' VTYPE3D( N ) = M3REAL N = N + 1 VNAME3D( N ) = 'ALBEDO_W' // TRIM( LAMBDA ) UNITS3D( N ) = '1' VDESC3D( N ) = 'Surface Albedo at the wavelength at ' & // TRIM( LAMBDA ) // ' nm' VTYPE3D( N ) = M3REAL ENDDO N = N + 1 VNAME3D( N ) = 'AOD_W550_ANGST' UNITS3D( N ) = '' VDESC3D( N ) = 'Aerosol Optical Depth at' & // ' 550 nm based on an Angstrom Interpolation' VTYPE3D( N ) = M3REAL N = N + 1 VNAME3D( N ) = 'AAOD_W550_ANGST' UNITS3D( N ) = '' VDESC3D( N ) = 'Aerosol Absorption Optical Depth at' & // ' 550 nm based on an Angstrom Interpolation' VTYPE3D( N ) = M3REAL NVARS3D = N FDESC3D( 1 ) = 'Surface Values of Optical Inputs and Radiative Results ' FDESC3D( 2 ) = 'from the In-line calculation of Photolysis Rates ' FDESC3D( 3 ) = 'for the ' // TRIM( MECHNAME ) // ' photochemical mechanism ' DO L = 4, MXDESC3 FDESC3D( L ) = ' ' END DO !C...Write ascii table describing variables ! WRITE(LOGDEV,'(A)')'*PHOTDIAG1 File Contents' ! WRITE(LOGDEV,'(A)')'**Surface Values of Optical Inputs and Radiative ' ! & // 'Results from the In-line calculation of Photolysis Rates ' ! WRITE(LOGDEV,99950) ! WRITE(LOGDEV,99951) ! DO L = 1, NVARS3D ! WRITE(LOGDEV,99952)TRIM(VNAME3D( L )),TRIM(UNITS3D( L )),TRIM(VDESC3D( L )) ! END DO C...Open the 1st photolysis diagnostic file IF ( .NOT. OPEN3( CTM_RJ_1, FSNEW3, PNAME ) ) THEN XMSG = 'Could not create '// CTM_RJ_1 // ' file' CALL M3EXIT ( PNAME, SDATE3D, STIME3D, XMSG, XSTAT1 ) END IF END IF C...Try to open existing file for update IF ( .NOT. OPEN3( CTM_RJ_2, FSRDWR3, PNAME ) ) THEN XMSG = 'Could not open ' // CTM_RJ_2 // ' file for update - ' & // 'try to open new' CALL M3MESG ( XMSG ) C...Set output file characteristics based on COORD.EXT and open C... the photolysis diagnostic file FTYPE3D = GRDDED3 SDATE3D = JDATE STIME3D = JTIME TSTEP3D = TSTEP NCOLS3D = GL_NCOLS NROWS3D = GL_NROWS NLAYS3D = NLAYS_DIAG NTHIK3D = 1 GDTYP3D = GDTYP_GD P_ALP3D = P_ALP_GD P_BET3D = P_BET_GD P_GAM3D = P_GAM_GD XORIG3D = XORIG_GD YORIG3D = YORIG_GD XCENT3D = XCENT_GD YCENT3D = YCENT_GD XCELL3D = XCELL_GD YCELL3D = YCELL_GD VGTYP3D = VGTYP_GD VGTOP3D = VGTOP_GD GDNAM3D = GRID_NAME ! from HGRD_DEFN DO L = 1, NLAYS3D + 1 VGLVS3D( L ) = VGLVS_GD( L ) END DO FDESC3D( 1 ) = 'Three dimensional values of Photolysis rates ' FDESC3D( 2 ) = 'used to make predictions for the ' // TRIM( MECHNAME ) FDESC3D( 3 ) = 'photochemical mechanism from the In-line calculation.' FDESC3D( 4 ) = 'Data files can be found in CMAQ repository under subdirectory,' FDESC3D( 5 ) = 'UTIL/inline_phot_preproc/photolysis_CSQY_data' DO N = 6, MXDESC3 FDESC3D( N ) = ' ' END DO C...load data from photolysis reaction list DO N = 1, NPHOTAB VNAME3D( N ) = PHOTAB( N ) VTYPE3D( N ) = M3REAL UNITS3D( N ) = 'min-1' VDESC3D( N ) = 'Photolysis rates calculated based on data file; ' // VNAME3D(N) END DO NVARS3D = NPHOTAB !C...Write ascii table describing variables ! WRITE(LOGDEV,'(A)')'*PHOTDIAG2 File Contents' ! WRITE(LOGDEV,'(A)')'**Three dimensionals values of Photolysis rates ' ! & // 'used to make predictions from the In-line calculation ' ! & // ' of Photolysis Rates ' ! WRITE(LOGDEV,99950) ! WRITE(LOGDEV,99951) ! DO L = 1, NVARS3D ! WRITE(LOGDEV,99952)TRIM(VNAME3D( L )),TRIM(UNITS3D( L )),TRIM(VDESC3D( L )) ! END DO IF ( .NOT. OPEN3( CTM_RJ_2, FSNEW3, PNAME ) ) THEN XMSG = 'Could not create '// CTM_RJ_2 // ' file' CALL M3EXIT ( PNAME, SDATE3D, STIME3D, XMSG, XSTAT1 ) END IF END IF C...Try to open existing file for update IF ( .NOT. OPEN3( CTM_RJ_3, FSRDWR3, PNAME ) ) THEN XMSG = 'Could not open ' // CTM_RJ_3 // ' file for update - ' & // 'try to open new' CALL M3MESG ( XMSG ) C...Set output file characteristics based on COORD.EXT and open C... the photolysis diagnostic file FTYPE3D = GRDDED3 SDATE3D = JDATE STIME3D = JTIME TSTEP3D = TSTEP NCOLS3D = GL_NCOLS NROWS3D = GL_NROWS NLAYS3D = NLAYS_DIAG NTHIK3D = 1 GDTYP3D = GDTYP_GD P_ALP3D = P_ALP_GD P_BET3D = P_BET_GD P_GAM3D = P_GAM_GD XORIG3D = XORIG_GD YORIG3D = YORIG_GD XCENT3D = XCENT_GD YCENT3D = YCENT_GD XCELL3D = XCELL_GD YCELL3D = YCELL_GD VGTYP3D = VGTYP_GD VGTOP3D = VGTOP_GD GDNAM3D = GRID_NAME ! from HGRD_DEFN DO L = 1, NLAYS3D + 1 VGLVS3D( L ) = VGLVS_GD( L ) END DO FDESC3D( 1 ) = 'Three dimensionals values of Optical Inputs and Radiative' FDESC3D( 2 ) = 'Results from the In-line photolysis calculation using the' FDESC3D( 3 ) = TRIM( MECHNAME ) // ' photochemical mechanism.' DO N = 4, MXDESC3 FDESC3D( N ) = ' ' END DO N = 0 DO L = 1, N_DIAG_WVL C...assumes that lamba in nanometers is on order of 100 or less JWL = DIAG_WVL( L ) WRITE( LAMBDA,'(I3.3)' ) INT( WAVELENGTH( JWL ) ) N = N + 1 VNAME3D( N ) = 'AERO_SCAT_W' // TRIM( LAMBDA ) UNITS3D( N ) = 'Km-1' VDESC3D( N ) = 'Aerosol Scattering of layer at ' & // TRIM( LAMBDA ) // ' nm' VTYPE3D( N ) = M3REAL N = N + 1 VNAME3D( N ) = 'AERO_ASYM_W' // TRIM( LAMBDA ) UNITS3D( N ) = '' VDESC3D( N ) = 'Aerosol Asymmetry Factor at ' & // TRIM( LAMBDA ) // ' nm' VTYPE3D( N ) = M3REAL N = N + 1 VNAME3D( N ) = 'EXT_W' // TRIM( LAMBDA ) UNITS3D( N ) = 'Km-1' VDESC3D( N ) = 'Total Extinction of layer for ' & // TRIM( LAMBDA ) // ' nm' VTYPE3D( N ) = M3REAL N = N + 1 VNAME3D( N ) = 'GAS_EXT_W' // TRIM( LAMBDA ) UNITS3D( N ) = 'Km-1' VDESC3D( N ) = 'Total Extinction from Rayleigh scattering NO2 and O3 in layer for ' & // TRIM( LAMBDA ) // ' nm' VTYPE3D( N ) = M3REAL N = N + 1 VNAME3D( N ) = 'EXT_AERO_W' // TRIM( LAMBDA ) UNITS3D( N ) = 'Km-1' VDESC3D( N ) = 'Aerosol Extinction in layer for ' & // TRIM( LAMBDA ) // ' nm' VTYPE3D( N ) = M3REAL N = N + 1 VNAME3D( N ) = 'ACTINIC_FX_W' // TRIM( LAMBDA ) UNITS3D( N ) = 'W m-2' VDESC3D( N ) = 'Net Actinic Flux, ' & // TRIM( LAMBDA ) // ' nm' VTYPE3D( N ) = M3REAL END DO N = N + 1 VNAME3D( N ) = 'CFRAC_3D' UNITS3D( N ) = '1' VDESC3D( N ) = 'Resolved Cloud Fraction in grid cell' VTYPE3D( N ) = M3REAL N = N + 1 VNAME3D( N ) = 'EXT_AERO_W550' UNITS3D( N ) = 'Km-1' VDESC3D( N ) = ' Aerosol Extinction of layer for ' & // '550 nm based on an Angstrom Interpolation' VTYPE3D( N ) = M3REAL NVARS3D = N !C...Write ascii table describing variables ! WRITE(LOGDEV,'(A)')'*PHOTDIAG3 File Contents' ! WRITE(LOGDEV,'(A)')'**Three dimensionals values of Optical Inputs and Radiative ' ! & // 'Results from the In-line photolysis calculation.' ! WRITE(LOGDEV,99950) ! WRITE(LOGDEV,99951) ! DO L = 1, NVARS3D ! WRITE(LOGDEV,99952)TRIM(VNAME3D( L )),TRIM(UNITS3D( L )),TRIM(VDESC3D( L )) ! END DO C...Open the 3rd photolysis diagnostic file IF ( .NOT. OPEN3( CTM_RJ_3, FSNEW3, PNAME ) ) THEN XMSG = 'Could not create '// CTM_RJ_3 // ' file' CALL M3EXIT ( PNAME, SDATE3D, STIME3D, XMSG, XSTAT1 ) END IF END IF #endif 99950 FORMAT('|Variable Name|Units|Description |') 99951 FORMAT('|:----|:----:|:---------------------------------------------|') 99952 FORMAT('|', A16, '|', A16, '|', A, '|') RETURN END SUBROUTINE OPPHOT ================================================ FILE: CCTM/src/phot/inline/phot.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! !::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE PHOT ( CGRID, JDATE, JTIME, DTSTEP ) !----------------------------------------------------------------------- ! ! Function: Calculates the photolysis rate constant to be used by the ! chemical solver. It calculates these rates at each gridcell using ! codes adapted from JPROC. Cloud correction now called within the ! loops over MY-ROW & MY_COLS ! ! Preconditions: HGRD_INIT() called from PAR_INIT, which is called from ! DRIVER ! ! Subroutines/Functions called: M3EXIT, SUBHFILE, CGRID_MAP, ! OPPHOT, LOAD_CSQY_DATA, LOAD_OPTICS_DATA, INITIALIZE_ALBEDO, ! GET_PHOT_MET, UPDATE_SUN, GET_ALBEDO, GET_DROPLET_OPTICS, ! GET_ICE_OPTICS, GET_AGGREGATE_OPTICS, CLEAR_HYDROMETEOR_OPTICS, ! GET_AERO_DATA, O3TOTCOL, and NEW_OPTICS ! ! Revision History. ! Started 10/08/2004 with existing PHOT and JPROC coded by ! Dr. Francis S. Binkowski ! Carolina Environmental Program ! University of North Carolina at Chapel Hill ! email: frank_binkowski@unc.edu ! August 2005, Sarav Arunachalam, CEP, UNC-CH ! - Minor revisions while integrating with CMAQ ! - Error check for NPHOTS added (this version works only for SAPRC-99) ! - Added creation of new file CTM_RJ_1 to write out RJ values ! for O3 and NO2 (both clear sky and cloud effects), and ! ETOT_SFC, TAU_AERO, TAU_TOT and TAUO3_TOP values for 7 wavelengths ! June 2007, David Wong ! -- inline with CMAQ ! - declare RJ as assumed shape array to match with the caller routine ! - allow PE 0 only to open the output file ! - output species: NO2_CLOUD and O3_CLOUD with AMISS value when all cells ! are dark and JTIME_CHK = 0 ! - output species: NO2_CLOUD and O3_CLOUD with AMISS value when CLDATT is ! 0 and JTIME_CHK = 0 ! December 2007, Francis Binkowski ! code has been modified to call the new on-line version that ! has the cloud effects built in. new photolysis routine to ! replace PHOT in CMAQ ! January 2008, Shawn Roselle ! - reformatted for inclusion in CMAQ ! - added additional 3-d photolysis rate diagnostic file ! - moved code for opening the diagnostic files to a separate subroutine ! - moved aerosol pointer evaluation to a FORTRAN module ! - simplified code for writing the diagnostic file ! - changed code to call NEW_OPTICS twice, once for clear sky and ! another time for the cloudy fraction of the grid cell. RJ's are ! computed based on the cloud fraction weighting. ! March 2011, Bill Hutzell ! - enable wavelength dependent arrays to have an allocatable number ! of wavelength bins ! - added data structure and algorithm to compute a surface albedo that ! depends on time and landuse catagory based on work by John Striecher ! (AMAD/USEPA) ! - revised writing to RJ1 file to include surface albedo ! - moved photolysis and opacity data from CSQY module to an ASCII input ! file ! - added routine called LOAD_REF_DATA (inside the PHOT_MOD module) that i ! reads this input file ! - added call to a routine called AERO_PHOTDATA that returns opacity data ! on the aerosol distribution ! - revised NEW_OPTICS' arguments based on aerosol redesign in CMAQ ! version 5.0 ! March 29, 2011 S.Roselle ! - Replaced I/O API include files with UTILIO_DEFN ! 07 Jul 14 B.Hutzell: replaced mechanism include file(s) with fortran module ! 26 Sep 14 B.Hutzell: 1) moved calculation of surface albedo to its own ! fortran module ! 2) changed loading procedure for loading optical data; ! two files now used ! 3) reading and calculation of met and geo data ! now acomplished by a fortran module ! 4) changed description and accounting of cloud effects ! from 2D liquid water clouds to 3D resolved and subgrid ! clouds with multi-phases of water ! 5) inserted calculation of aerosol optical properties via ! fortran module to improve efficiency in radiative ! transfer solution ! 6) moved the O3TOTCOL routine from the PHOT_MOD to simplify ! the NEW_OPTICS routine ! 7) Several miscellaneous changes attempting to improve efficiency ! June 10 15 J.Young: Modified diagnostic output timestamp to fix for other than one ! hour time steps. ! Aug 12, 15 D. Wong: Replaced MYPE with IO_PE_INCLUSIVE for parallel I/O implementation ! Feb 01, 19 David Wong: Implemented centralized I/O approach, removed all MY_N ! clauses !---------------------------------------------------------------------- C...modules USE RUNTIME_VARS, ONLY : START_DATE => STDATE, START_TIME => STTIME USE RXNS_DATA ! chemistry varaibles and data USE GRID_CONF ! horizontal & vertical domain specifications USE CGRID_SPCS ! CGRID species number and offsets USE UTILIO_DEFN USE AERO_DATA ! describes aerosol distribution USE PHOT_MOD ! photolysis in-line module - inherits CSQY_DATA module USE AERO_PHOTDATA ! arrays and routines for aerosol dimensions and refractive indices USE PHOTOLYSIS_ALBEDO ! surface albedo data and routines USE PHOT_MET_DATA ! Met and Grid data USE CLOUD_OPTICS ! data and routines for optics of cloud hydrometeors USE SEAS_STRAT_O3_MIN ! monthly minimum fraction of ozone column density above Pressure TOP USE CENTRALIZED_IO_MODULE, ONLY : LAT, LON, HT USE ELMO_DATA, ONLY : ELMO_AOD_550, ELMO_EXT_550 #ifdef mpas use mio_module use coupler_module #else #ifdef parallel USE SE_MODULES ! stenex (using SE_UTIL_MODULE) #else USE NOOP_MODULES ! stenex (using NOOP_UTIL_MODULE) #endif #endif IMPLICIT NONE !...include files INCLUDE SUBST_FILES_ID ! file name parameters !...arguments REAL, POINTER :: CGRID( :,:,:,: ) ! Species concentrations INTEGER, INTENT( IN ) :: JDATE ! current Julian date (YYYYDDD) INTEGER, INTENT( IN ) :: JTIME ! current time (HHMMSS) INTEGER, INTENT( IN ) :: DTSTEP( : ) ! time step vector (HHMMSS) !...parameters LOGICAL, PARAMETER :: CLDATT = .TRUE. ! include cloud attenuation REAL, PARAMETER :: DENS_CONV = ( 1.0E+03 * AVO / MWAIR ) * 1.0E-06 ! convert from kg/m**3 to #/cc REAL, PARAMETER :: PPM_MCM3 = 1.0E-06 ! convert from ppm to molecules / cc mol_Spec/mol_Air = ppm * 1E-06 REAL, PARAMETER :: PRES_CONV = 1.0 / STDATMPA ! conversion factor Pa to atm REAL, PARAMETER :: ZTOA = 50.0E3 ! height of top of atmosphere [ m ] (=50km) ! based a 2005 WRF model Documentation REAL, PARAMETER :: EPSLON = 1.0E-30 ! Small number !...external functions: none !...local variables LOGICAL, SAVE :: FIRSTIME = .TRUE. ! Flag for first call to PHOT LOGICAL, SAVE :: CALL_INIT_ALBEDO = .TRUE. LOGICAL, SAVE :: CALL_GET_ALBEDO = .TRUE. LOGICAL :: ZERO_ICE CHARACTER( 3 ), ALLOCATABLE, SAVE :: WLTXT( : ) CHARACTER( 16 ) :: VARNM CHARACTER( 16 ), SAVE :: PNAME = 'PHOT' CHARACTER( 16 ) :: V_LIST( 2 ) CHARACTER( 16 ) :: REQUESTED_WAVE CHARACTER( 16 ), ALLOCATABLE :: WAVE_LIST( : ) CHARACTER( 80 ) :: VARDESC ! environment variable description CHARACTER( 240 ) :: XMSG = ' ' INTEGER, SAVE :: LGC_O3 = 0 ! pointer to O3 in CGRID INTEGER, SAVE :: LGC_NO2 = 0 ! pointer to NO2 in CGRID INTEGER, SAVE :: LGC_CO = 0 ! pointer to CO in CGRID INTEGER, SAVE :: LGC_SO2 = 0 ! pointer to SO2 in CGRID INTEGER, SAVE :: LGC_HCHO = 0 ! pointer to formaldehyde in CGRID INTEGER, SAVE :: TSTEP ! output timestep in sec INTEGER ESTAT ! status from environment var check INTEGER IPHOT ! photolysis rate loop index INTEGER ROW INTEGER COL INTEGER LEV INTEGER SPC INTEGER IWL INTEGER L INTEGER V, N, MODE LOGICAL :: JTIME_CHK ! To check for JTIME to write RJ values INTEGER, SAVE :: ODATE ! output date INTEGER, SAVE :: OTIME ! output time INTEGER, SAVE :: OSTEP ! time since last write diagnostics INTEGER ALLOCSTAT INTEGER ITMSTEP ! one half synchronization timestep (sec) INTEGER MIDDATE ! Date at time step midpoint INTEGER MIDTIME ! Time at time step midpoint INTEGER, SAVE :: TDATE INTEGER, SAVE :: PECOL_OFFSET ! Local Column Offset for processor INTEGER, SAVE :: PEROW_OFFSET ! Local Column Offset for processor INTEGER, SAVE :: TSTEP_COUNT ! counter between calls to write diagnostics REAL CURRHR ! current GMT hour REAL JULIAN_DAY ! time of year [days] REAL CURRHR_LST ! local standard time at each grid cell REAL CTOP ! cloud top in single dimension REAL CBASE ! cloud base in single dimension REAL ZLEV ! height in single dimension REAL ZEN ! cosine of zenith angle REAL SINLAT ! sine of latitude REAL COSLAT ! cosine of latitude REAL RSQD ! square of soldist REAL ZSFC ! surface height (msl) [ m ] REAL EQT ! equation of time REAL SOLDIST ! solar distance [ au ] REAL SINDEC ! sine of the solar declination REAL COSDEC ! cosine of the solar declination REAL COSZEN ! working cosine of the solar zenith angle REAL SINZEN ! working sine of the solar zenith angle REAL LATCR ! local latitude REAL LONCR ! local longitude REAL OWATER_FRAC ! Open water fraction REAL SNOW_FRAC ! Snow fractional coverage REAL SEAICE_FRAC ! Sea Ice fraction REAL RES_SKY_REFLECT ! reflection coefficient based on resolved sky REAL RES_SKY_TRANS ! diffuse transmission coefficient based on resolved sky REAL RES_SKY_TRANSD ! direct transmission coefficient based on resolved sky REAL :: TOTAL_O3_COLUMN ! total ozone column density, DU REAL, SAVE :: JYEAR = 0.0 ! year REAL, SAVE :: JD_STRAT_O3MIN = 0.0 ! Julian day (YYYYDDD) of min fraction for stratos ozone INTEGER, PARAMETER :: DAYS( 12 ) = (/ 0, 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30 /) INTEGER, SAVE :: IMONTH = 0 REAL, ALLOCATABLE, SAVE :: ETOT_SFC ( : ) ! total downward irradiance at sfc [ Watts / m**2 ] REAL, ALLOCATABLE, SAVE :: TAUO3_TOP( : ) ! optical depth of ozone above model domain REAL, ALLOCATABLE, SAVE :: TAU_RAY ( : ) ! Rayleigh optical depth above model domain REAL, ALLOCATABLE, SAVE :: TAUC_AERO( :,: ) ! aerosol optical depth at layer bottom REAL, ALLOCATABLE, SAVE :: TAU_TOT ( :,: ) ! total optical depth at layer bottom REAL, ALLOCATABLE, SAVE :: TAU_CLOUD( :,: ) ! cloud optical depth at layer bottom REAL, ALLOCATABLE, SAVE :: SSA ( : ) ! aerosol single scattering albedo, column average REAL MSCALE ! combined factor to scale ppm to Molecules / cm**3 ! and correct for ambient temperaure and pressure ! FSB new arrays for new on-line cloud version REAL, ALLOCATABLE, SAVE :: LWC ( : ) ! cloud liquid water content [ g/m**3 ] REAL, ALLOCATABLE, SAVE :: RWC ( : ) ! rain water content [ g/m**3 ] REAL, ALLOCATABLE, SAVE :: IWC ( : ) ! ice liquid water content [ g/m**3 ] REAL, ALLOCATABLE, SAVE :: SWC ( : ) ! snow content [ g/m**3 ] REAL, ALLOCATABLE, SAVE :: GWC ( : ) ! graupel content [ g/m**3 ] REAL, ALLOCATABLE, SAVE :: CLDFRAC( : ) ! fractional cloud cover REAL, ALLOCATABLE, SAVE :: BLKPRS ( : ) ! Air pressure in [ Pa ] REAL, ALLOCATABLE, SAVE :: BLKTA ( : ) ! Air temperature [ K ] REAL, ALLOCATABLE, SAVE :: BLKDENS( : ) ! Air density [ molecules / m**3 ] REAL, ALLOCATABLE, SAVE :: BLKZH ( : ) ! layer half-height [ m ] REAL, ALLOCATABLE, SAVE :: BLKO3 ( : ) ! O3 concentration [ molecules/cm**3 ] REAL, ALLOCATABLE, SAVE :: BLKNO2 ( : ) ! NO2 concentration [ molecules/cm**3 ] REAL, ALLOCATABLE, SAVE :: BLKZF ( : ) ! layer full-height [ m ] REAL, ALLOCATABLE, SAVE :: BLKRJ_RES( :, : ) ! photolysis rates REAL, ALLOCATABLE, SAVE :: BLKRJ_ACM( :, : ) ! photolysis rates LOGICAL, ALLOCATABLE, SAVE :: CLOUDS( : ) ! Does layer have clouds? LOGICAL :: NEW_PROFILE ! Has atmospheric temperature and density profile changed? LOGICAL :: DARK ! Are this processor's cells in darkness? !...Variables for diagnostic outputs REAL, ALLOCATABLE, SAVE :: N_EXCEED_TROPO3( :,: ) ! Number of adjustments tropospheric ozone optical depth REAL, ALLOCATABLE, SAVE :: TOTAL_OC( :,: ) ! total ozone column [DU] REAL, ALLOCATABLE, SAVE :: TROPO_OC( :,: ) ! tropospheric ozone column [DU] REAL, ALLOCATABLE, SAVE :: NO2_COLUMN ( :,: ) ! tropospheric NO2 column [] REAL, ALLOCATABLE, SAVE :: CO_COLUMN ( :,: ) ! tropospheric CO column [] REAL, ALLOCATABLE, SAVE :: HCHO_COLUMN( :,: ) ! tropospheric HCHO column [DU] REAL, ALLOCATABLE, SAVE :: SO2_COLUMN ( :,: ) ! tropospheric SO2 column [DU] REAL, ALLOCATABLE, SAVE :: TROPO_O3_EXCEED( :,: ) ! Factor used to adjust tropospheric ozone optical depth REAL, ALLOCATABLE, SAVE :: TRANSMIS_DIFFUSE( :,: ) ! diffuse transmission coefficient at surface REAL, ALLOCATABLE, SAVE :: TRANSMIS_DIRECT( :,: ) ! direct transmission coefficient at surface REAL, ALLOCATABLE, SAVE :: REFLECT_COEFF( :,: ) ! reflection coefficient at top of atmosphere REAL, ALLOCATABLE, SAVE :: TAU_AERO_WL ( :,:,: ) ! total aerosol optical depth REAL, ALLOCATABLE, SAVE :: TAU_ABS_AERO( :,:,: ) ! aerosol absorpion optical depth REAL, ALLOCATABLE, SAVE :: TAU_CLOUD_WL( :,:,: ) ! total cloud optical depth REAL, ALLOCATABLE, SAVE :: CLR_TRANSMISSION( :,: ) ! diffuse transmission coefficient of clouds REAL, ALLOCATABLE, SAVE :: CLR_REFLECTION ( :,: ) ! reflection coefficient of cloud REAL, ALLOCATABLE, SAVE :: CLR_TRANS_DIRECT( :,: ) ! direct transmission coefficient of clouds #ifdef phot_debug REAL, ALLOCATABLE, SAVE :: ASY_CLOUD_WL( :,:,: ) ! columm average of cloud asymmetry factor REAL, ALLOCATABLE, SAVE :: SSA_CLOUD_WL( :,:,: ) ! columm average of cloud single scattering albedo #endif REAL, ALLOCATABLE, SAVE :: TAU_TOT_WL ( :,:,: ) ! total optical depth REAL, ALLOCATABLE, SAVE :: TAUO3_TOP_WL( :,:,: ) ! optical depth of ozone above model domain REAL, ALLOCATABLE, SAVE :: AERO_SCAT ( :,:,:,: ) ! aerosol scattering for layer [1/Km] REAL, ALLOCATABLE, SAVE :: AERO_ASYM ( :,:,:,: ) ! aerosol asymmetry factor REAL, ALLOCATABLE, SAVE :: TOT_EXT ( :,:,:,: ) ! total extinction for layer [1/Km] REAL, ALLOCATABLE, SAVE :: GAS_EXT ( :,:,:,: ) ! clear sky extinction for layer [1/Km] REAL, ALLOCATABLE, SAVE :: AERO_EXT ( :,:,:,: ) ! aerosol extinction for layer [1/Km] REAL, ALLOCATABLE, SAVE :: ACTINIC_FX( :,:,:,: ) ! net actinic flux [watts/m**2] REAL, ALLOCATABLE, SAVE :: OUTPUT_BUFF ( :,:,: ) ! output buffer for DIAG2 and DIAG3 files #ifdef mpas ! this is for creating the output name list character (512) :: fname character (30), allocatable, save :: name_list(:) character (30) :: oname character (120) :: buf, buf2 integer, save :: loc_n integer :: loc_nvars, stat, k, fnum logical :: found character (20) :: time_stamp integer, save :: gcount = 0 #endif INTERFACE SUBROUTINE O3TOTCOL ( LATITUDE, LONGITUDE, JDATE, JTIME, OZONE ) INTEGER, INTENT( IN ) :: JDATE ! Julian day of the year (yyyyddd) INTEGER, INTENT( IN ) :: JTIME ! time (hhmmss) REAL, INTENT( IN ) :: LATITUDE ! latitude of point on earth's surface REAL, INTENT( IN ) :: LONGITUDE ! longitude of point on earth's surface REAL, INTENT( INOUT ) :: OZONE ! total column ozone [DU] END SUBROUTINE O3TOTCOL SUBROUTINE CONVCLD_PROP_ACM( JDATE, JTIME, TSTEP ) INTEGER, INTENT( IN ) :: JDATE INTEGER, INTENT( IN ) :: JTIME INTEGER, INTENT( IN ) :: TSTEP( 3 ) END SUBROUTINE CONVCLD_PROP_ACM END INTERFACE ! ---------------------------------------------------------------------- IF ( FIRSTIME ) THEN FIRSTIME = .FALSE. TSTEP = TIME2SEC( DTSTEP( 1 ) ) ! output timestep for phot diagnostic files !...Set flag to initialize calculating aerosol extinction at 550 nm via Angstrom Exponents CALCULATE_EXT_550 = .TRUE. !PHOTDIAG #ifdef mpas PECOL_OFFSET = 0 PEROW_OFFSET = 0 #else PECOL_OFFSET = COLSD_PE( 1, MYPE+1 ) - 1 PEROW_OFFSET = ROWSD_PE( 1, MYPE+1 ) - 1 #endif CALL INIT_PHOT_SHARED() !...Allocate array needed to calculation aerosol and cloud optical properties CALL INIT_AERO_DATA( ) CALL INIT_CLOUD_OPTICS( ) ! set cosine values for sun effectively below horizon COS85 = COS( 85.0 * PI180 ) !...Initialize Surface albedo method IF ( .NOT. INITIALIZE_ALBEDO( JDATE, JTIME ) ) THEN XMSG = 'Failure initializing photolysis surface albedo algorithm' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF ALLOCATE( ETOT_SFC ( NWL ) ) ALLOCATE( LWC ( NLAYS ) ) ALLOCATE( RWC ( NLAYS ) ) ALLOCATE( IWC ( NLAYS ) ) ALLOCATE( SWC ( NLAYS ) ) ALLOCATE( GWC ( NLAYS ) ) ALLOCATE( BLKPRS ( NLAYS ) ) ALLOCATE( BLKTA ( NLAYS ) ) ALLOCATE( BLKDZ ( NLAYS ) ) ALLOCATE( BLKDENS( NLAYS ) ) ALLOCATE( BLKZH ( NLAYS ) ) ALLOCATE( BLKO3 ( NLAYS ) ) ALLOCATE( BLKNO2 ( NLAYS ) ) ALLOCATE( BLKZF ( NLAYS+1 ) ) ALLOCATE( CLOUDS ( NLAYS ) ) ALLOCATE( CLDFRAC( NLAYS ) ) ALLOCATE( BLKRJ_RES( NLAYS,NPHOTAB ) ) ALLOCATE( BLKRJ_ACM( NLAYS,NPHOTAB ) ) ALLOCATE( TAUO3_TOP( NWL ) ) ALLOCATE( TAU_RAY ( NWL ) ) ALLOCATE( SSA ( NWL ) ) ALLOCATE( TAU_CLOUD( NLAYS,NWL ) ) ALLOCATE( TAUC_AERO( NLAYS,NWL ) ) ALLOCATE( TAU_TOT ( NLAYS,NWL ) ) ALLOCATE( TOTAL_OC ( NCOLS,NROWS ) ) ALLOCATE( TAU_ABS_AERO_550( NCOLS,NROWS ) ) ALLOCATE( TAU_AERO_550 ( NCOLS,NROWS ) ) TAU_AERO_550 = 0.0 TAU_ABS_AERO_550 = 0.0 IF ( PHOTDIAG ) THEN ALLOCATE( TROPO_OC ( NCOLS,NROWS ) ) ALLOCATE( CO_COLUMN ( NCOLS,NROWS ) ) ALLOCATE( SO2_COLUMN ( NCOLS,NROWS ) ) ALLOCATE( NO2_COLUMN ( NCOLS,NROWS ) ) ALLOCATE( HCHO_COLUMN( NCOLS,NROWS ) ) ALLOCATE( TROPO_O3_EXCEED( NCOLS,NROWS ) ) ALLOCATE( N_EXCEED_TROPO3( NCOLS,NROWS ) ) ALLOCATE( TRANSMIS_DIFFUSE( NCOLS,NROWS ) ) ALLOCATE( TRANSMIS_DIRECT ( NCOLS,NROWS ) ) ALLOCATE( REFLECT_COEFF ( NCOLS,NROWS ) ) ALLOCATE( CLR_TRANSMISSION( NCOLS,NROWS ) ) ALLOCATE( CLR_TRANS_DIRECT( NCOLS,NROWS ) ) ALLOCATE( CLR_REFLECTION ( NCOLS,NROWS ) ) ALLOCATE( TAU_AERO_WL ( NCOLS,NROWS,NWL ) ) ALLOCATE( TAU_ABS_AERO ( NCOLS,NROWS,NWL ) ) ALLOCATE( TAU_CLOUD_WL ( NCOLS,NROWS,NWL ) ) #ifdef phot_debug ALLOCATE( SSA_CLOUD_WL( NCOLS,NROWS,NWL ) ) ALLOCATE( ASY_CLOUD_WL( NCOLS,NROWS,NWL ) ) #endif ALLOCATE( TAU_TOT_WL ( NCOLS,NROWS,NWL ) ) ALLOCATE( TAUO3_TOP_WL( NCOLS,NROWS,NWL ) ) N_EXCEED_TROPO3 = 0.0 TROPO_O3_EXCEED = 0.0 TSTEP_COUNT = 0 TROPO_OC = 0.0 CO_COLUMN = 0.0 SO2_COLUMN = 0.0 NO2_COLUMN = 0.0 HCHO_COLUMN = 0.0 TAU_ABS_AERO = 0.0 !...write wavelength data to a character array ALLOCATE ( WLTXT( NWL ) ) DO IWL = 1, NWL WRITE( WLTXT( IWL ),'(I3.3)' ) INT( WAVELENGTH( IWL ) ) END DO ! get wanted number of layers for PHOTDIAG2 and PHOTDIAG3 files IF ( NLAYS_DIAG .EQ. 0 ) NLAYS_DIAG = NLAYS NLAYS_DIAG = MAX( 1, MIN( NLAYS_DIAG, NLAYS)) ! get wanted wavelengths for PHOTDIAG2 and PHOTDIAG3 files ALLOCATE( WAVE_LIST( NWL ) ) WAVE_LIST( : ) = '' IF ( NWAVE .GT. NWL ) & CALL LOG_MESSAGE( LOGDEV, 'Error: the number of ' // & 'wavelengths the user has requested for diagnostic ' // & 'photolysis output exceeds the number of internal model ' // & 'wavelengths.' ) IF ( NWAVE .EQ. 0 ) THEN ! use all wavelenghts N_DIAG_WVL = NWL ALLOCATE ( DIAG_WVL( N_DIAG_WVL ) , STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating DIAG_WVL' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF DO IWL = 1, NWL DIAG_WVL( IWL ) = IWL END DO WRITE(LOGDEV,'(5X,A,I3)')'Environment Variable NWAVE_PHOTDIAG not found ' & // 'setting PHOTDIAG2 and PHOTDIAG3 to output all wavelengths. Integer ' & // 'truncated values are below.' DO IWL = 1, N_DIAG_WVL SPC = DIAG_WVL( IWL ) WRITE(LOGDEV,'(5X,I3,1X,A16)')IWL, WLTXT(SPC) END DO ELSE ! use the environment list WAVE_LIST( 1:NWAVE ) = WAVE_ENV( 1:NWAVE ) N_DIAG_WVL = 0 ! first remove identical values DO V = 1, NWAVE-1 DO L = (V+1), NWAVE IF( TRIM( WAVE_LIST( V ) ) .EQ. TRIM( WAVE_LIST( L ) ) )THEN WAVE_LIST( L ) = " " END IF END DO END DO ! Now count number of unique values DO V = 1, NWAVE IF( LEN_TRIM( WAVE_LIST( V ) ) .GT. 0 )N_DIAG_WVL = N_DIAG_WVL + 1 END DO ALLOCATE ( DIAG_WVL( N_DIAG_WVL ) , STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating DIAG_WVL' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF ! Next find unique list value in wavelenght spectrum IWL = 0 DO V = 1, NWAVE IF( LEN_TRIM( WAVE_LIST( V ) ) .LT. 1 )CYCLE IWL = IWL + 1 DIAG_WVL( IWL ) = INDEXR ( TRIM( WAVE_LIST( V ) ), NWL, WLTXT ) IF ( DIAG_WVL( IWL ) .LT. 1 ) THEN WRITE(LOGDEV,'(5X,A)')'PHOT: Cannot find requested wavelength, ' & // TRIM( WAVE_LIST( IWL ) ) // ' for DIAG2 and DIAG3 files ' & // ' in spectrum ' END IF END DO IF( MINVAL( DIAG_WVL ) .LT. 1 )THEN XMSG = 'FAILED TO find the above requested wavelenght spectrum ' WRITE( LOGDEV,'(5X,A)')XMSG XMSG = 'Permitted integer truncated values of wavelenght spectrum ' DO IWL = 1, NWL WRITE(LOGDEV,'(10X,I3,1X,A16)')IWL, WLTXT(IWL) END DO XMSG = 'ERROR using the environment variable, NWAVE_PHOTDIAG ' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) ELSE WRITE(LOGDEV,'(5X,A,I3)')'Environment Variable NWAVE_PHOTDIAG found ' & // 'setting PHOTDIAG2 and PHOTDIAG3 to output below wavelenghts' DO IWL = 1, N_DIAG_WVL SPC = DIAG_WVL( IWL ) WRITE(LOGDEV,'(5X,I3,1X,A16)')IWL, WLTXT(SPC) END DO END IF END IF WRITE(LOGDEV,'(/)') ALLOCATE ( AERO_ASYM( NCOLS,NROWS,NLAYS_DIAG,N_DIAG_WVL ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating 3D AERO_ASYM' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF ALLOCATE ( AERO_SCAT( NCOLS,NROWS,NLAYS_DIAG,N_DIAG_WVL ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating 3D AERO_SCAT' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF ALLOCATE ( AERO_EXT( NCOLS,NROWS,NLAYS_DIAG,N_DIAG_WVL ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating 3D AERO_EXT' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF ALLOCATE ( TOT_EXT( NCOLS,NROWS,NLAYS_DIAG,N_DIAG_WVL ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating 3D TOT_EXT' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF ALLOCATE ( GAS_EXT( NCOLS,NROWS,NLAYS_DIAG,N_DIAG_WVL ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating 3D GAS_EXT' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF ALLOCATE ( ACTINIC_FX( NCOLS,NROWS,NLAYS_DIAG,N_DIAG_WVL ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating ACTINIC_FX' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF ALLOCATE ( OUTPUT_BUFF( NCOLS,NROWS,NLAYS_DIAG ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating OUTPUT_BUFF' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF VARNM = 'CO' LGC_CO = INDEX1( VARNM, N_GC_SPC, GC_SPC ) IF ( LGC_CO .LE. 0 ) THEN XMSG = 'Could not find ' // VARNM // 'in species table' CALL M3WARN ( PNAME, JDATE, JTIME, XMSG ) WRITE(LOGDEV,95101) END IF VARNM = 'SO2' LGC_SO2 = INDEX1( VARNM, N_GC_SPC, GC_SPC ) IF ( LGC_SO2 .LE. 0 ) THEN XMSG = 'Could not find ' // VARNM // 'in species table' CALL M3WARN ( PNAME, JDATE, JTIME, XMSG ) WRITE(LOGDEV,95101) END IF VARNM = 'HCHO' LGC_HCHO = INDEX1( VARNM, N_GC_SPC, GC_SPC ) IF ( LGC_HCHO .LE. 0 ) THEN VARNM = 'FORM' LGC_HCHO = INDEX1( VARNM, N_GC_SPC, GC_SPC ) IF ( LGC_HCHO .LE. 0 ) THEN XMSG = 'Could not find HCHO or FORM, i.e., formaldehyde, in species table' CALL M3WARN ( PNAME, JDATE, JTIME, XMSG ) WRITE(LOGDEV,95101) END IF END IF !...open the photolysis diagnostic files ODATE = START_DATE; OTIME = START_TIME; OSTEP = 0 #ifndef mpas #ifdef phot_write_start IF ( IO_PE_INCLUSIVE ) CALL OPPHOT ( ODATE, OTIME, DTSTEP( 1 ) ) #else CALL NEXTIME ( ODATE, OTIME, DTSTEP( 1 ) ) ! output timestamp ending time IF ( IO_PE_INCLUSIVE ) CALL OPPHOT ( ODATE, OTIME, DTSTEP( 1 ) ) ! reset ODATE and OTIME for counting ODATE = START_DATE; OTIME = START_TIME #endif #endif END IF ! photdiag #ifndef mpas CALL SUBST_BARRIER #endif ALLOCATE ( AERO_EXT_550( NCOLS,NROWS,NLAYS ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating 3D AERO_EXT_550' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF !...set pointers to species O3 and NO2 in CGRID VARNM = 'O3' LGC_O3 = INDEX1( VARNM, N_GC_SPC, GC_SPC ) IF ( LGC_O3 .LE. 0 ) THEN XMSG = 'Could not find ' // VARNM // 'in species table' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT3 ) END IF VARNM = 'NO2' LGC_NO2 = INDEX1( VARNM, N_GC_SPC, GC_SPC ) IF ( LGC_NO2 .LE. 0 ) THEN XMSG = 'Could not find ' // VARNM // 'in species table' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT3 ) END IF #ifdef mpas ! this is for creating the output name list found = .false. fnum = 0 do while ((.not. found) .and. (fnum < mio_outfile_def_info%num_of_file_definitions)) fnum = fnum + 1 if ('CTM_OUT' == mio_outfile_def_info%flist(fnum)%fname) then found = .true. end if end do if (.not. found) then write (logdev, *) ' Abort: file CTM_OUT not on the file_input.txt' stop end if loc_nvars = mio_outfile_def_info%flist(fnum)%nvars loc_n = 0 if (found) then allocate (name_list(loc_nvars), stat=stat) do n = 1, loc_nvars buf = mio_outfile_def_info%flist(fnum)%vlist(n) found = .false. k = 0 do while (.not. found) k = k + 1 if (buf(k:k) == ' ') then found = .true. end if end do if (buf(1:3) == 'PD_') then loc_n = loc_n + 1 name_list(loc_n) = buf(4:k-1) end if end do end if #endif END IF ! firstime IF ( INT ( JD_STRAT_O3MIN ) .NE. JDATE ) THEN !...set minimum fraction of ozone column above PTOP CALL SEASONAL_STRAT_O3( JDATE, JTIME ) MIN_STRATO3_FRAC = MONTH_STRAT_03_FRAC MAX_TROPOO3_FRAC = MAX( 1.0 - MONTH_STRAT_03_FRAC, 0.0 ) JD_STRAT_O3MIN = REAL( JDATE, 4) END IF !...initialize variables tracking whether stratosphere ozone column satisfies !...climatological averages. O3_TOGGLE_AVE = 0.0 O3_TOGGLE_MIN = 1.0 N_TROPO_O3_TOGGLE = 0 TSTEP_COUNT = TSTEP_COUNT + 1 MIDDATE = JDATE MIDTIME = JTIME ITMSTEP = TIME2SEC( DTSTEP( 2 ) ) / 2 CALL NEXTIME( MIDDATE, MIDTIME, SEC2TIME( ITMSTEP ) ) CALL CONVCLD_PROP_ACM( JDATE, JTIME, DTSTEP ) CALL GET_PHOT_MET( JDATE, JTIME, MIDDATE, MIDTIME ) !...Get cosine of solar parameters and set DARK CALL UPDATE_SUN( JDATE, JTIME, MIDDATE, MIDTIME ) RSQD = DIST_TO_SUN * DIST_TO_SUN IF ( MAXVAL( COSINE_ZENITH ) .LE. 0.0 ) THEN DARK = .TRUE. ELSE DARK = .FALSE. END IF !...set surface albedos CALL GET_ALBEDO( MIDDATE, MIDTIME, COSINE_ZENITH, LAT, LON ) !...SA Write COSINE_ZENITH array at the end of each output tstep JTIME_CHK = .FALSE. OSTEP = OSTEP + TIME2SEC( DTSTEP( 2 ) ) JTIME_CHK = ( OSTEP .GE. TIME2SEC( DTSTEP( 1 ) ) ) IF ( JTIME_CHK ) THEN OSTEP = 0 CALL NEXTIME( ODATE, OTIME, DTSTEP( 1 ) ) END IF #ifdef phot_write_start JTIME_CHK = ( ODATE .EQ. STDATE .AND. OTIME .EQ. STTIME ) #endif IF ( PHOTDIAG ) THEN #ifdef parallel_io IF ( .NOT. IO_PE_INCLUSIVE ) THEN IF ( .NOT. OPEN3( CTM_RJ_1, FSREAD3, PNAME ) ) THEN XMSG = 'Could not open ' // TRIM(CTM_RJ_1) CALL M3EXIT( PNAME, ODATE, OTIME, XMSG, XSTAT1 ) END IF IF ( .NOT. OPEN3( CTM_RJ_2, FSREAD3, PNAME ) ) THEN XMSG = 'Could not open ' // TRIM(CTM_RJ_2) CALL M3EXIT( PNAME, ODATE, OTIME, XMSG, XSTAT1 ) END IF IF ( .NOT. OPEN3( CTM_RJ_3, FSREAD3, PNAME ) ) THEN XMSG = 'Could not open ' // TRIM(CTM_RJ_3) CALL M3EXIT( PNAME, ODATE, OTIME, XMSG, XSTAT1 ) END IF END IF #endif END IF CALCULATE_EXT_550 = .TRUE. !JTIME_CHK !...If sun below horizon at all cells, zero photolysis rates & exit !... (assumes sun below horizon at *all* levels!) IF ( DARK ) THEN RJ = 0.0 RJ_SUB = 0.0 RJ_RES = 0.0 ETOT_SFC_WL = 0.0 AERO_EXT_550 = 0.0 TAU_AERO_550 = 0.0 TAU_ABS_AERO_550 = 0.0 !...Initialize ETOT_SFC, TAU_AERO, TAU_TOT, TAUO3_TOP to 0.0 !...Write data to output diagnostic file IF ( JTIME_CHK .AND. PHOTDIAG ) THEN TAUO3_TOP_WL = 0.0 TAU_AERO_WL = 0.0 TAU_ABS_AERO = 0.0 TAU_CLOUD_WL = 0.0 #ifdef phot_debug SSA_CLOUD_WL = 0.0 ASY_CLOUD_WL = 0.0 #endif TAU_TOT_WL = 0.0 TOT_EXT = 0.0 GAS_EXT = 0.0 AERO_EXT = 0.0 AERO_SCAT = 0.0 AERO_ASYM = 0.0 ACTINIC_FX = 0.0 TRANSMIS_DIFFUSE = 0.0 TRANSMIS_DIRECT = 0.0 REFLECT_COEFF = 0.0 CLR_TRANSMISSION = 0.0 CLR_TRANS_DIRECT = 0.0 CLR_REFLECTION = 0.0 DO ROW = 1, NROWS DO COL = 1, NCOLS BLKDENS( 1 ) = DENS ( COL,ROW,1 ) * DENS_CONV ! [molecules / cm**3] BLKDZ ( 1 ) = ZFULL( COL,ROW,1 ) DO L = 2, NLAYS BLKDENS( L ) = DENS( COL,ROW,L ) * DENS_CONV ! [molecules / cm**3] BLKDZ ( L ) = ZFULL( COL,ROW,L ) - ZFULL( COL,ROW,L-1 ) END DO MSCALE = 1.0E-19 ! 100.0*10E-15*PPM_MCM3, so units are petamolecules/cm2 CALL COLUMN_GAS( IGAS=LGC_CO, UNIT_FACTOR=MSCALE, COLUMN_DENSITY=CO_COLUMN ) CALL COLUMN_GAS( IGAS=LGC_SO2, UNIT_FACTOR=MSCALE, COLUMN_DENSITY=SO2_COLUMN ) CALL COLUMN_GAS( IGAS=LGC_NO2, UNIT_FACTOR=MSCALE, COLUMN_DENSITY=NO2_COLUMN ) CALL COLUMN_GAS( IGAS=LGC_HCHO, UNIT_FACTOR=MSCALE, COLUMN_DENSITY=HCHO_COLUMN ) MSCALE = 1.0E-4 * CONC_TO_DU ! so units are Dobsons CALL COLUMN_GAS( IGAS=LGC_O3, UNIT_FACTOR=MSCALE, COLUMN_DENSITY=TROPO_OC ) !...get total ozone column based on OMI observations CALL O3TOTCOL ( LAT( COL,ROW ), LON( COL,ROW ), MIDDATE, MIDTIME, TOTAL_OC( COL,ROW ) ) END DO END DO ELSE DO ROW = 1, NROWS DO COL = 1, NCOLS !...get total ozone column based on OMI observations CALL O3TOTCOL ( LAT( COL,ROW ), LON( COL,ROW ), MIDDATE,MIDTIME, TOTAL_OC( COL,ROW ) ) END DO END DO END IF ! if JTIME_CHK and PHOTDIAG ELSE ! all cells not dark !...MAIN loop over all rows and columns LOOP_ROWS: DO ROW = 1, NROWS LOOP_COLS: DO COL = 1, NCOLS PHOT_COL = COL + PECOL_OFFSET PHOT_ROW = ROW + PEROW_OFFSET COSZEN = COSINE_ZENITH( COL,ROW ) ! local cosine of solar zenith angle TAU_AERO_550( COL,ROW ) = 0.0 AERO_EXT_550( COL,ROW,: ) = 0.0 TAU_ABS_AERO_550( COL,ROW ) = 0.0 IF ( COSZEN .LE. 0.0 ) THEN !...the cell is dark: set variables to zero and cycle RJ( COL,ROW, :,: ) = 0.0 RJ_RES( COL,ROW, :,: ) = 0.0 RJ_SUB( COL,ROW, :,: ) = 0.0 ETOT_SFC_WL ( COL,ROW, : ) = 0.0 IF ( JTIME_CHK .AND. PHOTDIAG ) THEN TAUO3_TOP_WL( COL,ROW, : ) = 0.0 TAU_AERO_WL ( COL,ROW, : ) = 0.0 TAU_ABS_AERO( COL,ROW, : ) = 0.0 TAU_CLOUD_WL( COL,ROW, : ) = 0.0 #ifdef phot_debug SSA_CLOUD_WL( COL,ROW, : ) = 0.0 ASY_CLOUD_WL( COL,ROW, : ) = 0.0 #endif TAU_TOT_WL ( COL,ROW, : ) = 0.0 TOT_EXT ( COL,ROW, :,: ) = 0.0 GAS_EXT ( COL,ROW, :,: ) = 0.0 AERO_EXT ( COL,ROW, :,: ) = 0.0 AERO_SCAT ( COL,ROW, :,: ) = 0.0 AERO_ASYM ( COL,ROW, :,: ) = 0.0 ACTINIC_FX ( COL,ROW, :,: ) = 0.0 ! TROPO_O3_EXCEED( COL,ROW ) = 0.0 TRANSMIS_DIFFUSE( COL,ROW ) = 0.0 TRANSMIS_DIRECT ( COL,ROW ) = 0.0 REFLECT_COEFF ( COL,ROW ) = 0.0 CLR_TRANSMISSION( COL,ROW ) = 0.0 CLR_TRANS_DIRECT( COL,ROW ) = 0.0 CLR_REFLECTION ( COL,ROW ) = 0.0 BLKDENS( 1 ) = DENS ( COL,ROW,1 ) * DENS_CONV ! [molecules / cm**3] BLKDZ ( 1 ) = ZFULL( COL,ROW,1 ) DO L = 2, NLAYS BLKDENS( L ) = DENS( COL,ROW,L ) * DENS_CONV ! [molecules / cm**3] BLKDZ ( L ) = ZFULL( COL,ROW,L ) - ZFULL( COL,ROW,L-1 ) END DO MSCALE = 1.0E-19 ! 100.0*10E-15*PPM_MCM3, so units are petamolecules/cm2 CALL COLUMN_GAS( IGAS=LGC_CO, UNIT_FACTOR=MSCALE, COLUMN_DENSITY=CO_COLUMN ) CALL COLUMN_GAS( IGAS=LGC_SO2, UNIT_FACTOR=MSCALE, COLUMN_DENSITY=SO2_COLUMN ) CALL COLUMN_GAS( IGAS=LGC_NO2, UNIT_FACTOR=MSCALE, COLUMN_DENSITY=NO2_COLUMN ) CALL COLUMN_GAS( IGAS=LGC_HCHO, UNIT_FACTOR=MSCALE, COLUMN_DENSITY=HCHO_COLUMN ) MSCALE = 1.0E-4 * CONC_TO_DU ! so units are Dobsons CALL COLUMN_GAS( IGAS=LGC_O3, UNIT_FACTOR=MSCALE, COLUMN_DENSITY=TROPO_OC ) !...get total ozone column based on OMI observations CALL O3TOTCOL ( LAT( COL,ROW ), LON( COL,ROW ), MIDDATE, MIDTIME, TOTAL_OC( COL,ROW ) ) END IF CYCLE LOOP_COLS END IF !...initialize BLKRJ using F90 array operations. BLKRJ_RES = 0.0 BLKRJ_ACM = 0.0 !...Set height of lowest level to zero BLKZF( 1 ) = 0.0 ZSFC = HT( COL,ROW ) ! surface height [m] SINZEN = SQRT( 1.0 - COSZEN * COSZEN ) ! sine of zenith angle !...get total ozone column based on OMI observations CALL O3TOTCOL ( LAT( COL,ROW ), LON( COL,ROW ), MIDDATE, MIDTIME, TOTAL_O3_COLUMN ) IF ( USE_ACM_CLOUD .OR. CLDATT ) THEN OWATER_FRAC = MAX( ( 1.0 - SEAICE( COL,ROW ) ), 0.0 ) & * WATER_FRACTION( COL,ROW ) SEAICE_FRAC = SEAICE( COL,ROW ) * WATER_FRACTION( COL,ROW ) SNOW_FRAC = SNOCOV( COL,ROW ) COL_CLOUD = PHOT_COL ROW_CLOUD = PHOT_ROW END IF !...loop over vertical layers ambient air conditions and gas concentration DO L = 1, NLAYS !...Fetch the grid cell ambient data at each layer. BLKTA ( L ) = TA ( COL,ROW,L ) ! temperature [K] BLKPRS ( L ) = PRES ( COL,ROW,L ) / STDATMPA ! [atmospheres] BLKDENS( L ) = DENS ( COL,ROW,L ) * DENS_CONV ! [molecules / cm**3] BLKZH ( L ) = ZM ( COL,ROW,L ) ! mid layer height [m] BLKZF ( L+1 ) = ZFULL( COL,ROW,L ) ! full layer height [m] !...set scale factor for [ppm] -> [molecule / cm**3] !... To go from ppm to molecule/cc: !... molecule/cc = ppm * 1.0E-06 * DENS (given in molecule/cc) MSCALE = BLKDENS( L ) * PPM_MCM3 !...fetch ozone and no2 and convert to [ molecules / cm **3 ] !... and adjust the volume for ambient temperature and pressure. BLKO3 ( L ) = CGRID( COL,ROW,L,LGC_O3 ) * MSCALE BLKNO2( L ) = CGRID( COL,ROW,L,LGC_NO2 ) * MSCALE ZLEV = BLKZF( L ) END DO ! loop on layers ambient conditions and gases IF ( CLDATT .AND. CFRAC_2D( COL,ROW ) .GT. 0.0 ) THEN DO L = 1, NLAYS IF ( CFRAC_3D( COL,ROW,L ) .GT. 0.0 ) THEN CLOUDS ( L ) = .TRUE. CLOUD_LAYERING( L ) = .TRUE. CLDFRAC( L ) = CFRAC_3D( COL,ROW,L ) !... set hydrometeor concentrations for resolved cloud MSCALE = 1.0E+3 * DENS ( COL,ROW,L ) IWC( L ) = MSCALE * QI( COL,ROW,L ) GWC( L ) = MSCALE * QG( COL,ROW,L ) SWC( L ) = MSCALE * QS( COL,ROW,L ) LWC( L ) = MSCALE * QC( COL,ROW,L ) RWC( L ) = MSCALE * QR( COL,ROW,L ) ELSE CLOUDS ( L ) = .FALSE. CLOUD_LAYERING( L ) = .FALSE. CLDFRAC( L ) = 0.0 IWC( L ) = 0.0 GWC( L ) = 0.0 SWC( L ) = 0.0 LWC( L ) = 0.0 RWC( L ) = 0.0 END IF END DO ! loop on layers clouds ! get optical properties of resolved cloud hydrometeors CALL GET_DROPLET_OPTICS( NLAYS, BLKTA, OWATER_FRAC, SEAICE_FRAC, SNOW_FRAC, LWC ) CALL GET_ICE_OPTICS( NLAYS, BLKTA, IWC ) CALL GET_AGGREGATE_OPTICS( NLAYS, RWC, SWC, GWC ) ELSE CLOUDS = .FALSE. CLOUD_LAYERING = .FALSE. CLDFRAC = 0.0 ! hydrometeor concentrations LWC = 0.0 IWC = 0.0 RWC = 0.0 SWC = 0.0 RWC = 0.0 CALL CLEAR_HYDROMETEOR_OPTICS() END IF !..calculate needed aerosol properties in column ! IF ( CORE_SHELL ) THEN CALL GET_AERO_DATA ( COL,ROW, NLAYS, DENS, CGRID ) ! ELSE ! CALL AERO_OPTICS_INTERNAL( COL,ROW, NLAYS, CGRID ) ! END IF ! set surface albedo DO IWL = 1, NWL ALB( IWL ) = SURFACE_ALBEDO( IWL, COL,ROW ) END DO !...calculate resolved-sky photolysis rates at all layers: NEW_PROFILE = .TRUE. ONLY_SOLVE_RAD = .FALSE. CALL NEW_OPTICS ( JDATE, JTIME, NLAYS, & BLKTA, BLKPRS, BLKDENS, BLKZH, BLKZF, & BLKO3, BLKNO2, & ZSFC, COSZEN, SINZEN, RSQD, & NEW_PROFILE, CLOUDS, CLDFRAC, & BLKRJ_RES, TAUC_AERO, TAU_TOT, TAUO3_TOP, & TAU_RAY, SSA, TAU_CLOUD, TOTAL_O3_COLUMN ) !...load diagnostic file arrays ! Aerosol extinction and optical depth are saved every ! time step FORALL ( L = 1:NLAYS ) AERO_EXT_550( COL,ROW,L ) = 1000.0 * AERO_EXTI_550( L ) END FORALL DO LEV = 1, NLAYS TAU_AERO_550 ( COL,ROW ) = TAU_AERO_550 ( COL,ROW ) & + AERO_EXTI_550( LEV ) * BLKDZ( LEV ) TAU_ABS_AERO_550 ( COL,ROW ) = TAU_ABS_AERO_550 ( COL,ROW ) & + AERO_ABSO_550( LEV ) * BLKDZ( LEV ) END DO IF ( PHOTDIAG .AND. .NOT. STRATO3_MINS_MET ) THEN N_EXCEED_TROPO3( COL,ROW ) = N_EXCEED_TROPO3( COL,ROW ) + 1.0 TROPO_O3_EXCEED( COL,ROW ) = TROPO_O3_COLUMN/(MAX_TROPOO3_FRAC*TOTAL_O3_COLUMN) - 1.0 & + TROPO_O3_EXCEED( COL,ROW ) END IF FORALL ( IWL = 1:NWL ) ETOT_SFC_WL ( COL,ROW,IWL ) = IRRADIANCE( 1,IWL ) END FORALL IF ( JTIME_CHK .AND. PHOTDIAG ) THEN TOTAL_OC( COL,ROW ) = TOTAL_O3_COLUMN TRANSMIS_DIFFUSE( COL,ROW ) = TRANSMISSION TRANSMIS_DIRECT( COL,ROW ) = TRANS_DIRECT REFLECT_COEFF( COL,ROW ) = REFLECTION DO IWL = 1, NWL TAUO3_TOP_WL( COL,ROW,IWL ) = TAUO3_TOP( IWL ) TAU_AERO_WL ( COL,ROW,IWL ) = TAUC_AERO( 1,IWL ) TAU_ABS_AERO( COL,ROW,IWL ) = 0.0 TAU_TOT_WL ( COL,ROW,IWL ) = TAU_TOT ( 1,IWL ) TAU_CLOUD_WL( COL,ROW,IWL ) = TAU_CLOUD( 1,IWL ) #ifdef phot_debug SSA_CLOUD_WL( COL,ROW,IWL ) = AVE_SSA_CLD ( IWL ) ASY_CLOUD_WL( COL,ROW,IWL ) = AVE_ASYMM_CLD( IWL ) #endif END DO DO IWL = 1, NWL DO LEV = 1, NLAYS TAU_ABS_AERO( COL,ROW,IWL ) = TAU_ABS_AERO( COL,ROW,IWL ) & + AERO_ABSO_COEF( LEV,IWL ) * BLKDZ( LEV ) END DO END DO DO L = 1, N_DIAG_WVL IWL = DIAG_WVL( L ) FORALL ( LEV = 1:NLAYS_DIAG ) ACTINIC_FX( COL,ROW,LEV,L ) = ACTINIC_FLUX( LEV,IWL ) TOT_EXT ( COL,ROW,LEV,L ) = 1000.0 * EXTINCTION( LEV,IWL ) GAS_EXT ( COL,ROW,LEV,L ) = 1000.0 * GAS_EXTINCTION( LEV,IWL ) AERO_EXT( COL,ROW,LEV,L ) = 1000.0 * AERO_EXTI_COEF( LEV,IWL ) AERO_SCAT ( COL,ROW,LEV,L ) = 1000.0 * AERO_SCAT_COEF( LEV,IWL ) END FORALL FORALL ( LEV = 1:NLAYS_DIAG, AERO_EXTI_COEF( LEV,IWL ) .GT. EPSLON ) AERO_ASYM( COL,ROW,LEV,L ) = AERO_ASYM_FAC( LEV,IWL ) END FORALL FORALL ( LEV = 1:NLAYS_DIAG, AERO_EXTI_COEF( LEV,IWL ) .LE. EPSLON ) AERO_ASYM( COL,ROW,LEV,L ) = 0.0 END FORALL END DO IF ( COSZEN .LE. COS85 ) THEN ! calculate because NEW_OPTICS sets BLKDZ and TROPO_O3_COLUMN to zero BLKDZ( 1 ) = BLKZF( 2 ) DO L = 2, NLAYS BLKDZ( L ) = BLKZF( L+1 ) - BLKZF( L ) END DO MSCALE = 1.0E-4 * CONC_TO_DU ! so units are Dobsons CALL COLUMN_GAS( IGAS=LGC_O3, UNIT_FACTOR=MSCALE, COLUMN_DENSITY=TROPO_OC ) ELSE TROPO_OC( COL,ROW ) = TROPO_O3_COLUMN END IF MSCALE = 1.0E-19 ! 100.0*10E-15*PPM_MCM3, so units are petamolecules/cm2 CALL COLUMN_GAS( IGAS=LGC_CO, UNIT_FACTOR=MSCALE, COLUMN_DENSITY=CO_COLUMN ) CALL COLUMN_GAS( IGAS=LGC_SO2, UNIT_FACTOR=MSCALE, COLUMN_DENSITY=SO2_COLUMN ) CALL COLUMN_GAS( IGAS=LGC_NO2, UNIT_FACTOR=MSCALE, COLUMN_DENSITY=NO2_COLUMN ) CALL COLUMN_GAS( IGAS=LGC_HCHO, UNIT_FACTOR=MSCALE, COLUMN_DENSITY=HCHO_COLUMN ) END IF !Set Photolysis rates to resolved sky values FORALL ( L = 1:NLAYS, IPHOT = 1:NPHOTAB ) RJ( COL,ROW, L,IPHOT ) = 60.0 * BLKRJ_RES( L,IPHOT ) END FORALL ! Loop on layers and NPHOTAB FORALL ( L = 1:NLAYS, IPHOT = 1:NPHOTAB ) RJ_RES( COL,ROW, L,IPHOT ) = 60.0 * BLKRJ_RES( L,IPHOT ) END FORALL ! Loop on layers and NPHOTAB IF ( USE_ACM_CLOUD ) THEN IF ( ACM_CLOUDS( COL,ROW ) .GT. 0.0 ) THEN ! save resolved sky reflection and transmission coefficients for possible latter use RES_SKY_REFLECT = REFLECTION RES_SKY_TRANS = TRANSMISSION RES_SKY_TRANSD = TRANS_DIRECT !...find the highest layer of the sub-grid (convective) cloud DO LEV = NLAYS, 1, -1 IF ( ACM_CFRAC( LEV, COL,ROW ) .GT. 0.0 ) EXIT END DO !...replace the lower layers with sub-grid cloud properties DO L = 1, LEV SWC( L ) = 0.0 IF ( ACM_CFRAC( L,COL,ROW ) .GT. 0.0 ) THEN CLOUDS ( L ) = .TRUE. CLDFRAC( L ) = 1.0 MSCALE = 1.0E+3 * DENS ( COL,ROW, L ) LWC( L ) = MSCALE * ACM_QC( L,COL,ROW ) IWC( L ) = MSCALE * ACM_QI( L,COL,ROW ) RWC( L ) = MSCALE * ACM_QR( L,COL,ROW ) GWC( L ) = MSCALE * ACM_QG( L,COL,ROW ) ELSE CLOUDS( L ) = .FALSE. CLDFRAC( L ) = 0.0 LWC( L ) = 0.0 IWC( L ) = 0.0 RWC( L ) = 0.0 GWC( L ) = 0.0 END IF CLOUD_LAYERING( L ) = .FALSE. END DO ! get optical properties of of subgrid cloud hydrometeors CALL GET_DROPLET_OPTICS( LEV, BLKTA, OWATER_FRAC, SEAICE_FRAC, SNOW_FRAC, LWC ) CALL GET_ICE_OPTICS( LEV, BLKTA, IWC ) CALL GET_AGGREGATE_OPTICS( LEV, RWC, SWC, GWC ) !...calculate the acm-cloud photolysis rates for all layers: NEW_PROFILE = .FALSE. CALL NEW_OPTICS ( JDATE, JTIME, NLAYS, & BLKTA, BLKPRS, BLKDENS, BLKZH, BLKZF, & BLKO3, BLKNO2, & ZSFC, COSZEN, SINZEN, RSQD, & NEW_PROFILE, CLOUDS, CLDFRAC, & BLKRJ_ACM, TAUC_AERO, TAU_TOT, TAUO3_TOP, & TAU_RAY, SSA, TAU_CLOUD, TOTAL_O3_COLUMN ) !...load diagnostic file arrays !...compute a cloud-fraction weighted average of ETOT_SFC and TAU_TOT !... note that both TAUC_AERO and TAUO3_TOP are the same for clear and !... cloudy regions MSCALE = MAX( 1.0 - ACM_CLOUDS( COL,ROW ), 0.0 ) DO IWL = 1, NWL ETOT_SFC_WL ( COL,ROW,IWL ) = MSCALE * ETOT_SFC_WL( COL,ROW,IWL ) & + ACM_CLOUDS( COL,ROW ) * IRRADIANCE( 1,IWL ) END DO IF ( JTIME_CHK .AND. PHOTDIAG ) THEN TRANSMIS_DIRECT( COL,ROW ) = MSCALE * TRANSMIS_DIRECT( COL,ROW ) & + ACM_CLOUDS( COL,ROW ) * TRANS_DIRECT TRANSMIS_DIFFUSE( COL,ROW ) = MSCALE * TRANSMIS_DIFFUSE( COL,ROW ) & + ACM_CLOUDS( COL,ROW ) * TRANSMISSION REFLECT_COEFF( COL,ROW ) = MSCALE * REFLECT_COEFF( COL,ROW ) & + ACM_CLOUDS( COL,ROW ) * REFLECTION DO IWL = 1, NWL TAU_TOT_WL ( COL,ROW,IWL ) = MSCALE * TAU_TOT_WL( COL,ROW,IWL ) & + ACM_CLOUDS( COL,ROW ) * TAU_TOT( 1,IWL ) TAU_CLOUD_WL( COL,ROW,IWL ) = MSCALE * TAU_CLOUD_WL( COL,ROW,IWL ) & + ACM_CLOUDS( COL,ROW ) * TAU_CLOUD( 1,IWL ) #ifdef phot_debug SSA_CLOUD_WL( COL,ROW,IWL ) = MSCALE * SSA_CLOUD_WL( COL,ROW,IWL ) & + ACM_CLOUDS( COL,ROW ) * AVE_SSA_CLD ( IWL ) ASY_CLOUD_WL( COL,ROW,IWL ) = MSCALE * ASY_CLOUD_WL( COL,ROW,IWL ) & + ACM_CLOUDS( COL,ROW ) * AVE_ASYMM_CLD( IWL ) #endif END DO ! iwl DO LEV = 1, NLAYS_DIAG DO L = 1, N_DIAG_WVL IWL = DIAG_WVL( L ) TOT_EXT( COL,ROW,LEV,L ) = MSCALE * TOT_EXT( COL,ROW,LEV,L ) & + ACM_CLOUDS( COL,ROW ) * EXTINCTION( LEV,IWL ) ACTINIC_FX( COL,ROW,LEV,L ) = MSCALE * ACTINIC_FX( COL,ROW,LEV,L ) & + ACM_CLOUDS( COL,ROW ) * ACTINIC_FLUX( LEV,IWL ) END DO END DO END IF ! photdiag !Photolysis rates become a weighted average of the values from resolved and ACM skies FORALL ( L = 1:NLAYS, IPHOT = 1:NPHOTAB ) RJ_SUB( COL,ROW, L, IPHOT ) = 60.0 * BLKRJ_ACM( L,IPHOT ) RJ( COL,ROW, L, IPHOT ) = ACM_CLOUDS( COL,ROW ) * RJ_SUB( COL,ROW, L, IPHOT ) & + MSCALE * RJ( COL,ROW,L,IPHOT ) END FORALL ! Loop on layers and PHOT END IF END IF ! not USE_ACM_CLOUD and ACM_CLOUDS > 0 IF ( JTIME_CHK .AND. PHOTDIAG ) THEN ! compute clear sky reflection and transmission coefficients IF ( ANY( CLOUDS ) ) THEN IF ( CFRAC_2D( COL,ROW ) .GT. 0.0 ) THEN ! resolved and subgrid clouds exist CLOUDS = .FALSE. NEW_PROFILE = .FALSE. ONLY_SOLVE_RAD = .TRUE. CALL NEW_OPTICS ( JDATE, JTIME, NLAYS, & BLKTA, BLKPRS, BLKDENS, BLKZH, BLKZF, & BLKO3, BLKNO2, & ZSFC, COSZEN, SINZEN, RSQD, & NEW_PROFILE, CLOUDS, CLDFRAC, & BLKRJ_RES, TAUC_AERO, TAU_TOT, TAUO3_TOP, & TAU_RAY, SSA, TAU_CLOUD, TOTAL_O3_COLUMN) CLR_REFLECTION ( COL,ROW ) = REFLECTION CLR_TRANSMISSION( COL,ROW ) = TRANSMISSION CLR_TRANS_DIRECT( COL,ROW ) = TRANS_DIRECT ELSE ! only subgrid clouds exist CLR_REFLECTION ( COL,ROW ) = RES_SKY_REFLECT CLR_TRANSMISSION( COL,ROW ) = RES_SKY_TRANS CLR_TRANS_DIRECT( COL,ROW ) = RES_SKY_TRANSD END IF ELSE ! no cloud in vertical column CLR_REFLECTION ( COL,ROW ) = REFLECTION CLR_TRANSMISSION( COL,ROW ) = TRANSMISSION CLR_TRANS_DIRECT( COL,ROW ) = TRANS_DIRECT END IF END IF END DO LOOP_COLS END DO LOOP_ROWS END IF ! Store PM Diagnostic AOD and extinction ELMO_AOD_550 = TAU_AERO_550 ELMO_EXT_550 = AERO_EXT_550 !...report on whether stratospheric ozone column satisfies climatological minimums IF( N_TROPO_O3_TOGGLE .GT. 0 )THEN O3_TOGGLE_AVE = O3_TOGGLE_AVE / REAL( N_TROPO_O3_TOGGLE ) WRITE( LOGDEV, 9500 )'PHOT: Exceedance of tropospheric ozone column ', & 'or below top of model domains based on stratospheric column minimum ', & 'at date and time; ', JDATE, JTIME, N_TROPO_O3_TOGGLE, (1.0/O3_TOGGLE_AVE - 1.0), & (1.0/O3_TOGGLE_MIN - 1.0) END IF !...write diagnostic data to output file at the end of every output tstep IF ( JTIME_CHK ) THEN IF ( PHOTDIAG ) THEN #ifdef mpas if ((loc_n > 0) .and. mpas_diag) then time_stamp = ctm_out_clock oname = 'PD_AOD_W550_ANGST' gcount = gcount + 1 call mio_fwrite ('CTM_OUT', oname, pname, TAU_AERO_550(:,1), TIME_STAMP) TAU_AERO_550 = 0.0 oname = 'PD_TROP_O3_COLUMN' call mio_fwrite ('CTM_OUT', oname, pname, TROPO_OC(:,1), TIME_STAMP) oname = 'PD_CO_COLUMN' call mio_fwrite ('CTM_OUT', oname, pname, CO_COLUMN(:,1), TIME_STAMP) oname = 'PD_NO2_COLUMN' call mio_fwrite ('CTM_OUT', oname, pname, NO2_COLUMN(:,1), TIME_STAMP) oname = 'PD_HCHO_COLUMN' call mio_fwrite ('CTM_OUT', oname, pname, HCHO_COLUMN(:,1), TIME_STAMP) oname = 'PD_SO2_COLUMN' call mio_fwrite ('CTM_OUT', oname, pname, SO2_COLUMN(:,1), TIME_STAMP) end if #else VARNM = 'COSZENS' IF ( .NOT. WRITE3( CTM_RJ_1, VARNM, ODATE, OTIME, & COSINE_ZENITH ) ) THEN XMSG = 'Error writing variable ' // VARNM CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF VARNM = 'OZONE_COLUMN' IF ( .NOT. WRITE3( CTM_RJ_1, VARNM, ODATE, OTIME, TOTAL_OC ) ) THEN XMSG = 'Error writing variable ' // VARNM CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF VARNM = 'CO_COLUMN' IF ( .NOT. WRITE3( CTM_RJ_1, VARNM, ODATE, OTIME, CO_COLUMN ) ) THEN XMSG = 'Error writing variable ' // VARNM CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF VARNM = 'SO2_COLUMN' IF ( .NOT. WRITE3( CTM_RJ_1, VARNM, ODATE, OTIME, SO2_COLUMN ) ) THEN XMSG = 'Error writing variable ' // VARNM CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF VARNM = 'NO2_COLUMN' IF ( .NOT. WRITE3( CTM_RJ_1, VARNM, ODATE, OTIME, NO2_COLUMN ) ) THEN XMSG = 'Error writing variable ' // VARNM CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF VARNM = 'HCHO_COLUMN' IF ( .NOT. WRITE3( CTM_RJ_1, VARNM, ODATE, OTIME, HCHO_COLUMN ) ) THEN XMSG = 'Error writing variable ' // VARNM CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF VARNM = 'TROPO_O3_COLUMN' IF ( .NOT. WRITE3( CTM_RJ_1, VARNM, ODATE, OTIME, TROPO_OC ) ) THEN XMSG = 'Error writing variable ' // VARNM CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF VARNM = 'TRANS_DIFFUSE' IF ( .NOT. WRITE3( CTM_RJ_1, VARNM, ODATE, OTIME, TRANSMIS_DIFFUSE ) ) THEN XMSG = 'Error writing variable ' // VARNM CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF VARNM = 'TRANS_DIRECT' IF ( .NOT. WRITE3( CTM_RJ_1, VARNM, ODATE, OTIME, TRANSMIS_DIRECT ) ) THEN XMSG = 'Error writing variable ' // VARNM CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF VARNM = 'REFLECTION' IF ( .NOT. WRITE3( CTM_RJ_1, VARNM, ODATE, OTIME, REFLECT_COEFF ) ) THEN XMSG = 'Error writing variable ' // VARNM CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF VARNM = 'CLR_TRANS_DIF' IF ( .NOT. WRITE3( CTM_RJ_1, VARNM, ODATE, OTIME, CLR_TRANSMISSION ) ) THEN XMSG = 'Error writing variable ' // VARNM CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF VARNM = 'CLR_TRANS_DIR' IF ( .NOT. WRITE3( CTM_RJ_1, VARNM, ODATE, OTIME, CLR_TRANS_DIRECT ) ) THEN XMSG = 'Error writing variable ' // VARNM CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF VARNM = 'CLR_REFLECTION' IF ( .NOT. WRITE3( CTM_RJ_1, VARNM, ODATE, OTIME, CLR_REFLECTION ) ) THEN XMSG = 'Error writing variable ' // VARNM CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF VARNM = 'TROPO_O3_EXCEED' TROPO_O3_EXCEED = TROPO_O3_EXCEED / REAL( MAX(1, TSTEP_COUNT) ) IF ( .NOT. WRITE3( CTM_RJ_1, VARNM, ODATE, OTIME, TROPO_O3_EXCEED ) ) THEN XMSG = 'Error writing variable ' // VARNM CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF TROPO_O3_EXCEED = 0.0 ! reset sum and counter TSTEP_COUNT = 0 VARNM = 'N_EXCEED_TROPO3' IF ( .NOT. WRITE3( CTM_RJ_1, VARNM, ODATE, OTIME, N_EXCEED_TROPO3 ) ) THEN XMSG = 'Error writing variable ' // VARNM CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF N_EXCEED_TROPO3 = 0.0 ! reset counter VARNM = 'JNO2' IF ( .NOT. WRITE3( CTM_RJ_1, VARNM, ODATE, OTIME, RJ( :,:,1, LNO2 ) ) ) THEN XMSG = 'Error writing variable ' // VARNM CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF VARNM = 'JO3O1D' IF ( .NOT. WRITE3( CTM_RJ_1, VARNM, ODATE, OTIME, RJ( :,:,1,LO3O1D ) ) ) THEN XMSG = 'Error writing variable ' // VARNM CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF VARNM = 'RESOLVED_CFRAC' IF ( .NOT. WRITE3( CTM_RJ_1, VARNM, ODATE, OTIME, CFRAC_2D ) ) THEN XMSG = 'Error writing variable ' // VARNM CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF VARNM = 'RESOLVED_WBAR' IF ( .NOT. WRITE3( CTM_RJ_1, VARNM, ODATE, OTIME, AVE_HYDROMETEORS ) ) THEN XMSG = 'Error writing variable ' // VARNM CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF IF ( USE_ACM_CLOUD ) THEN VARNM = 'SUBGRID_CFRAC' IF ( .NOT. WRITE3( CTM_RJ_1, VARNM, ODATE, OTIME, ACM_CLOUDS ) ) THEN XMSG = 'Error writing variable ' // VARNM CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF VARNM = 'SUBGRID_WBAR' IF ( .NOT. WRITE3( CTM_RJ_1, VARNM, ODATE, OTIME, ACM_AVE_H2O ) ) THEN XMSG = 'Error writing variable ' // VARNM CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF END IF DO IWL = 1, NWL VARNM = 'ETOT_SFC_W' // WLTXT( IWL ) IF ( .NOT. WRITE3( CTM_RJ_1, VARNM, ODATE, & OTIME, ETOT_SFC_WL( :,:,IWL ) ) ) THEN XMSG = 'Error writing variable ' // VARNM CALL M3EXIT ( PNAME, ODATE, OTIME, XMSG, XSTAT1 ) END IF VARNM = 'AOD_W' // WLTXT( IWL ) IF ( .NOT. WRITE3( CTM_RJ_1, VARNM, ODATE, & OTIME, TAU_AERO_WL( :,:,IWL ) ) ) THEN XMSG = 'Error writing variable ' // VARNM CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF VARNM = 'AOD_ABS_W' // WLTXT( IWL ) IF ( .NOT. WRITE3( CTM_RJ_1, VARNM, ODATE, & OTIME, TAU_ABS_AERO( :,:,IWL ) ) ) THEN XMSG = 'Error writing variable ' // VARNM CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF VARNM = 'TAU_CLOUD_W' // WLTXT( IWL ) IF ( .NOT. WRITE3( CTM_RJ_1, VARNM, ODATE, & OTIME, TAU_CLOUD_WL( :,:,IWL ) ) ) THEN XMSG = 'Error writing variable ' // VARNM CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF #ifdef phot_debug VARNM = 'SSA_CLOUD_W' // WLTXT( IWL ) IF ( .NOT. WRITE3( CTM_RJ_1, VARNM, ODATE, & OTIME, SSA_CLOUD_WL( :,:,IWL ) ) ) THEN XMSG = 'Error writing variable ' // VARNM CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF VARNM = 'ASY_CLOUD_W' // WLTXT( IWL ) IF ( .NOT. WRITE3( CTM_RJ_1, VARNM, ODATE, & OTIME, ASY_CLOUD_WL( :,:,IWL ) ) ) THEN XMSG = 'Error writing variable ' // VARNM CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF #endif VARNM = 'TAU_TOT_W' // WLTXT( IWL ) IF ( .NOT. WRITE3( CTM_RJ_1, VARNM, ODATE, & OTIME, TAU_TOT_WL( :,:,IWL ) ) ) THEN XMSG = 'Error writing variable ' // VARNM CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF VARNM = 'TAUO3_TOP_W' // WLTXT( IWL ) IF ( .NOT. WRITE3( CTM_RJ_1, VARNM, ODATE, & OTIME, TAUO3_TOP_WL( :,:,IWL ) ) ) THEN XMSG = 'Error writing variable ' // VARNM CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF VARNM = 'ALBEDO_W' // WLTXT( IWL ) IF ( .NOT. WRITE3( CTM_RJ_1, VARNM, ODATE, OTIME, & SURFACE_ALBEDO( IWL,:,: ) ) ) THEN XMSG = 'Error writing variable ' // VARNM CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF END DO ! iwl VARNM = 'AOD_W550_ANGST' IF ( .NOT. WRITE3( CTM_RJ_1, VARNM, ODATE, OTIME, TAU_AERO_550 ) ) THEN XMSG = 'Error writing variable ' // VARNM CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF VARNM = 'AAOD_W550_ANGST' IF ( .NOT. WRITE3( CTM_RJ_1, VARNM, ODATE, OTIME, TAU_ABS_AERO_550 ) ) THEN XMSG = 'Error writing variable ' // VARNM CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF WRITE( LOGDEV, '( /5X, 3( A, :, 1X ), I8, ":", I6.6 )' ) & 'Photolysis Surface Summary written to', CTM_RJ_1, & 'for date and time', ODATE, OTIME DO IPHOT = 1, NPHOTAB OUTPUT_BUFF( 1:NCOLS,1:NROWS,1:NLAYS_DIAG ) = RJ( 1:NCOLS,1:NROWS,1:NLAYS_DIAG,IPHOT ) IF ( .NOT. WRITE3( CTM_RJ_2, PHOTAB( IPHOT ), ODATE, & OTIME, OUTPUT_BUFF ) ) THEN XMSG = 'Could not write ' // CTM_RJ_2 // ' file' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF END DO WRITE( LOGDEV, '( /5X, 3( A, :, 1X ), I8, ":", I6.6 )' ) & 'Photolysis Rates written to', CTM_RJ_2, & 'for date and time', ODATE, OTIME VARNM = 'CFRAC_3D' OUTPUT_BUFF( 1:NCOLS,1:NROWS,1:NLAYS_DIAG ) = CFRAC_3D( 1:NCOLS,1:NROWS,1:NLAYS_DIAG ) IF ( .NOT. WRITE3( CTM_RJ_3, VARNM, ODATE, OTIME, OUTPUT_BUFF ) ) THEN XMSG = 'Could not write ' // TRIM( VARNM ) // ' to ' // CTM_RJ_3 // ' file' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF DO L = 1, N_DIAG_WVL IWL = DIAG_WVL( L ) VARNM = 'ACTINIC_FX_W' // WLTXT( IWL ) IF ( .NOT. WRITE3( CTM_RJ_3, VARNM, ODATE, OTIME, ACTINIC_FX( :,:,:,L ) ) ) THEN XMSG = 'Error writing variable ' // VARNM CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF VARNM = 'AERO_SCAT_W' // WLTXT( IWL ) IF ( .NOT. WRITE3( CTM_RJ_3, VARNM, ODATE, OTIME, AERO_SCAT( :,:,:,L ) ) ) THEN XMSG = 'Error writing variable ' // VARNM CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF VARNM = 'AERO_ASYM_W' // WLTXT( IWL ) IF ( .NOT. WRITE3( CTM_RJ_3, VARNM, ODATE, OTIME, AERO_ASYM( :,:,:,L ) ) ) THEN XMSG = 'Error writing variable ' // VARNM CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF VARNM = 'EXT_AERO_W' // WLTXT( IWL ) IF ( .NOT. WRITE3( CTM_RJ_3, VARNM, ODATE, OTIME, AERO_EXT( :,:,:,L ) ) ) THEN XMSG = 'Error writing variable ' // VARNM CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF VARNM = 'EXT_W' // WLTXT( IWL ) IF ( .NOT. WRITE3( CTM_RJ_3, VARNM, ODATE, OTIME, TOT_EXT( :,:,:,L ) ) ) THEN XMSG = 'Error writing variable ' // VARNM CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF VARNM = 'GAS_EXT_W' // WLTXT( IWL ) IF ( .NOT. WRITE3( CTM_RJ_3, VARNM, ODATE, OTIME, GAS_EXT( :,:,:,L ) ) ) THEN XMSG = 'Error writing variable ' // VARNM CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF END DO VARNM = 'EXT_AERO_W550' IF ( .NOT. WRITE3( CTM_RJ_3, VARNM, ODATE, OTIME, AERO_EXT_550( :,:,: ) ) ) THEN XMSG = 'Error writing variable ' // VARNM CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF WRITE( LOGDEV, '( /5X, 3( A, :, 1X ), I8, ":", I6.6 )' ) & 'Radiative and Optical Data written to', CTM_RJ_3, & 'for date and time', ODATE, OTIME #endif END IF ! PHOTDIAG END IF ! if JTIME_CHK TAU_AERO_550 = 0.0 1003 FORMAT( 8X, 'Processor ',I4.4,' is in darkness at ', I8.7, ':', I6.6, & 1X, 'GMT - no photolysis') 9500 FORMAT(3(/ A), I7, 1X, I6.6, 1X, / "Total Number: ", I9, ";Mean Value: ", F9.6, & "; Max Value: ",F9.6 /) 95101 FORMAT('Diagnostic Output will have zero values for the column density.', & / 'The lack of information does not affect model predictions.' ) CONTAINS SUBROUTINE COLUMN_GAS( IGAS, UNIT_FACTOR, COLUMN_DENSITY ) ! Purpose: calculates column density in unit based on the value of UNIT_FACTOR IMPLICIT NONE ! argument: INTEGER, INTENT( IN ) :: IGAS ! species index in CGRID REAL, INTENT( OUT ) :: COLUMN_DENSITY( :,: ) ! units determined by inputs REAL, INTENT( IN ) :: UNIT_FACTOR ! converts from 10E6*molecules*cm-2 ! local parameter: ! REAL, PARAMETER :: UNIT_FACTOR = 1.0E-6 * CONC_TO_DU ! unit conversion factor IF( IGAS .LE. 0 )RETURN ! assumes column_density set to zero at allocation COLUMN_DENSITY( COL,ROW ) = 0.0 DO LEV = 1, NLAYS COLUMN_DENSITY( COL,ROW ) = ( UNIT_FACTOR * BLKDENS( LEV ) ) & * CGRID( COL,ROW,LEV,IGAS ) * BLKDZ ( LEV ) & + COLUMN_DENSITY( COL,ROW ) END DO END SUBROUTINE COLUMN_GAS END SUBROUTINE PHOT ================================================ FILE: CCTM/src/phot/inline/wrf_fast_mie.F ================================================ module wrf_fast_mie integer, parameter :: lunerr = -1 REAL( 8 ), PUBLIC :: CPU_TIME_DELTA1 = 0.0D0 ! Timing individual REAL( 8 ), PUBLIC :: CPU_TIME_DELTA2 = 0.0D0 ! Timing individual REAL( 8 ), PUBLIC :: CPU_TIME_DELTA3 = 0.0D0 ! Timing individual public fast_mieaer_modal, aero_optics_tabular ! integer, private :: logdev real(8),parameter,private :: pii = 3.14159265358979323846264338327950288419716939937510582097494D0 real, parameter,private :: pi = 3.14159265 real, parameter,private :: sqrtpi = pi**(0.5) real, parameter,private :: sqrtpi1 = 1.0 / sqrtpi real, parameter,private :: sqrt2 = 2.0**(0.5) real, parameter,private :: three_pi_two = 3.0 * pi / 2.0 Logical, Parameter, Private :: Use_Odd_Quadrature = .True. Integer, Parameter, Private :: Quadrature_Points = 3 ! Integer, Parameter, Private :: Quadrature_Points = 1 !B.Hutzell One point quadature IGH = 1 real, parameter, Private :: ghxi_1(1) = 0.00000000000 real, parameter, Private :: ghwi_1(1) = 1.77245385091 !B.Hutzell Three point quadature IGH = 3 real, parameter, Private :: ghxi_3(3) = (/ -1.22474487139, & 0.00000000000, & 1.22474487139 /) real, parameter, Private :: ghwi_3(3) = (/ 0.295408975151, & 1.181635900000, & 0.295408975151 /) !B.Hutzell Five point quadature IGH = 5 real(8), parameter, Private :: ghxi_5(5) = (/ -2.02018287046d0, & -0.958572464614d0, & 0.00000000000d0, & 0.958572464614d0, & 2.02018287046d0 /) real(8), parameter, Private :: ghwi_5(5) = (/ 0.019953242059d0, & 0.393619323152d0, & 0.945308720483d0, & 0.393619323152d0, & 0.019953242059d0 /) !B.Hutzell Nine point quadature IGH = 9 points !No. Abscissas Weight Total Weight real, parameter, Private :: ghxi_9(9) = (/ -3.19099320178, & -2.26658058453, & -1.46855328922, & -0.72355101875, & 0.00000000000, & 0.72355101875, & 1.46855328922, & 2.26658058453, & 3.19099320178 /) real, parameter, Private :: ghwi_9(9) = (/ 3.96069772633E-5, & 0.00494362428, & 0.08847452739, & 0.43265155900, & 0.72023521561, & 0.43265155900, & 0.08847452739, & 0.004943624275, & 3.96069772633E-5 /) Type :: Optics_Tables integer :: nradii real :: rmin real :: rmax real :: bma real :: bpa real :: xrmin real :: xrmax real :: xr real, allocatable :: extp( :,:,:,: ) ! specific extinction real, allocatable :: albp( :,:,:,: ) ! single scat alb real, allocatable :: asmp( :,:,:,: ) ! asymmetry factor real, allocatable :: ascat( :,:,:,: ) ! scattering efficiency, JCB 2004/02/09 real, allocatable :: pmom2( :,:,:,: ) ! phase function expansion, #2 real, allocatable :: pmom3( :,:,:,: ) ! phase function expansion, #3 real, allocatable :: pmom4( :,:,:,: ) ! phase function expansion, #4 real, allocatable :: pmom5( :,:,:,: ) ! phase function expansion, #5 real, allocatable :: pmom6( :,:,:,: ) ! phase function expansion, #6 real, allocatable :: pmom7( :,:,:,: ) ! phase function expansion, #7 real, allocatable :: sback2p( :,:,:,: ) ! backscatter end Type Type :: Optics_Tables_MP integer :: nradii real :: rmin real :: rmax real :: bma real :: bpa real :: xrmin real :: xrmax real :: xr real, allocatable :: extp( :,:,: ) ! specific extinction real, allocatable :: albp( :,:,: ) ! single scat alb real, allocatable :: asmp( :,:,: ) ! asymmetry factor real, allocatable :: ascat( :,:,: ) ! scattering efficiency, JCB 2004/02/09 ! real, allocatable :: pmom2( :,:,: ) ! phase function expansion, #2 ! real, allocatable :: pmom3( :,:,: ) ! phase function expansion, #3 ! real, allocatable :: pmom4( :,:,: ) ! phase function expansion, #4 ! real, allocatable :: pmom5( :,:,: ) ! phase function expansion, #5 ! real, allocatable :: pmom6( :,:,: ) ! phase function expansion, #6 ! real, allocatable :: pmom7( :,:,: ) ! phase function expansion, #7 real, allocatable :: sback2p( :,:,: ) ! backscatter end Type Type(Optics_Tables_MP), Allocatable, Private :: Modal_Tables( : ) Type(Optics_Tables_MP), Allocatable, Private :: Modal_Tables_Check( : ) integer, parameter, private :: prefr=22,prefi=33 integer, parameter, private :: nsiz=200,nlog=30 integer, private :: nbin_a_maxd ! Max # of aerosol bins or modes integer, private :: nspint ! Num of spectral intervals across integer, private :: ncoef=40 ! number of chebychev polynomials used integer, private :: nrefr,nrefi ! number of step between max/min of real and imaginary refractive indices ! integer, parameter :: nsizes(n_mode) = (/ 200,200,200 /) integer, allocatable, private :: nsizes( : ) real, private :: sback_bhmie ! aerosol backscattering coefficient real, private :: refrmin ! minimum of real part of refractive index real, private :: refrmax ! maximum of real part of refractive index real, private :: refimin ! minimum of imag part of refractive index real, private :: refimax ! maximum of imag part of refractive index real, private :: drefr ! increment in real part of refractive index real, private :: drefi ! increment in imag part of refractive index real, private :: reciprocal_drefr ! reciprocal of increment in real part of refractive index real, private :: reciprocal_drefi ! reciprocal of increment in imag part of refractive index real, private :: reciprocal_drefri ! reciprocal of real times imag increments of refractive index real, allocatable, private :: wavmid( : ) ! wavelenghts, cm real, allocatable, private :: refrtab(:) ! table of real refractive indices for aerosols real, allocatable, private :: refitab(:) ! table of imag refractive indices for aerosols logical :: BHMIE_SUCCESS = .True. Logical :: Create_Table = .false. Logical :: eflag_wrf_fast_mie = .false. contains ! ------------------------------------------------------------------ subroutine aero_optics_tabular( mode,iwave, crefin, Vol, dgn, & sig, bext, bscat, gfac) ! FSB NOTE: this subroutine calculates for single mode ! *** calculate the extinction and scattering coefficients and ! assymetry factors for each wavelength as a sum over the ! individual lognormal modes. Each mode may have a different ! set of refractive indices. USE CSQY_DATA, ONLY : NWL => NWL_REF, WAVELENGTH => EFFWL_REF IMPLICIT NONE ! *** input variables integer, intent(in) :: mode ! aerosol mode index integer, intent(in) :: iwave ! index in wavelength array complex, intent(in) :: crefin ! Complex refractive index real, intent(in) :: Vol ! modal aerosol volumes [m**3 /m**3] real, intent(in) :: dgn ! modal geometric mean diameter [m] real, intent(in) :: sig ! geometric standard deviation ! *** output variables real, intent(out) :: bext ! extinction coefficient [ 1 / m ] real, intent(out) :: bscat ! scattering coefficient [ 1 / m ] real, intent(out) :: gfac ! assymetry factor for Mie and molecular scattering character( 32 ), parameter :: pname = 'aero_optics_tabular' ! FSB define parameters real, parameter :: integral_factor = three_pi_two * sqrtpi1 ! *** internal variables real :: beta_Sc ! aerosol scattering coefficient real :: beta_Ex ! aerosol extinction coefficients real :: G ! modal aerosol assymetry factors real :: sum_g real :: LSIGX real :: lambdam1 ! 1/ lambda (m) real :: dgv ! geometric mean of volume distribution (m) real :: mie_volume_parameter ! Mie size parameter for volume distribution real :: vfac real :: bscoef ! backscatter efficiency real :: dgv_p, dgv_m ! diameters at quadature points real :: mie_par_top, mie_par_bot ! mie parameter at quadature points ! variable for integration over volume distribution real :: nr real :: aa1 real :: xlnsig real :: sum_e,sum_s, xi,wxi,xf real :: sum_sg ! *** these are Qext/alfa and Qscat/alfv at the abscissas real :: qalfip_e, qalfim_e ! extinction real :: qalfip_s, qalfim_s ! scattering real :: gsalfp, gsalfm ! scattering times asymmetry factor integer :: i real, allocatable, save :: GHXI(:), GHWI(:) ! weight and abscissas integer, save :: IGH ! number of weights and abscissa integer, save :: NMAX ! optimumized number of weights and abscissa Logical, Save :: Initialize = .True. If( Initialize )Then Select Case( Quadrature_Points ) Case( 1,3,5,9 ) IGH = Quadrature_Points Case Default IGH = 3 End Select NMAX = Max( Int( IGH / 2 ), 0) Allocate( GHXI( NMAX + 1 ), GHWI( NMAX + 1 ) ) Select Case ( IGH ) Case ( 1 ) GHXI(1) = ghxi_1(1) GHWI(1) = ghwi_1(1) Case ( 3 ) do i = 1, NMAX + 1 GHXI(i) = ghxi_3(i) GHWI(i) = ghwi_3(i) end do Case ( 5 ) do i = 1, NMAX + 1 GHXI(i) = ghxi_5(i) GHWI(i) = ghwi_5(i) end do Case ( 9 ) do i = 1, NMAX + 1 GHXI(i) = ghxi_9(i) GHWI(i) = ghwi_9(i) end do end select Initialize = .False. End If ! Algorithm based on 04/15/2012 codes ! by Dr. Francis S. Binkowski ! Center for Environmental Modeling for Policy Development ! Institute for the Environment ! University of North Carolina at Chapel Hill ! email: frank_binkowski@unc.edu ! *** initialize variables lambdam1 = 1.0e9 / wavelength(iwave) ! lambdam1 in [ m^(-1) ] bext = 0.0 bscat = 0.0 sum_g = 0.0 LSIGX = log(sig) ! calculate Mie size parameter for volume distribution ! exp(3.0 * xlnsig*xlnsig) converts dgn to dgv (volume diameter) dgv = dgn * exp(3.0 * LSIGX * LSIGX) mie_volume_parameter = pi * dgv * lambdam1 nr = real(crefin) ! Integration code over modal volume distribution aa1 = sqrt2 * lsigx ! This 1.0 / Sqrt( A ) in derivation of the integral where A = 1.0 / ( 2.0 * xlnsg**2 ) ! For wet_diameter in fast_mieaer call ! Need wet_diameter corresponding xi or Gauss-Hermite Quadrature point ! dgv * exp[ u / sqrt(A) ] where u = xi Gauss-Hermite Quadrature ! Therefore, xf = exp( xi / sqrt(A) ) or xf = exp( xi * aa1 ) bext = 1.0e-30 ! [ 1 / m ] bscat = 1.0e-30 ! [ 1 / m ] gfac = 0.0 ! return !start integration at zero point xi = 0.0 wxi = GHWI(NMAX+1) xf = 1.0 ! fetch the effficiencies at zero point call fast_mieaer_modal( mie_volume_parameter,crefin,qalfip_e,qalfip_s,gsalfp,bscoef ) sum_e = wxi * qalfip_e sum_s = wxi * qalfip_s sum_sg = wxi * gsalfp ! FSB do NMAX calls to the MIE codes do i = 1, NMAX xi = GHXI(i) wxi = GHWI(i) xf = exp( xi * aa1 ) dgv_p = dgv * xf dgv_m = dgv / xf ! division cheaper than another exp() mie_par_top = mie_volume_parameter * xf mie_par_bot = mie_volume_parameter / xf ! *** call subroutine to fetch the effficiencies call fast_mieaer_modal( mie_par_top,crefin,qalfip_e,qalfip_s,gsalfp,bscoef ) call fast_mieaer_modal( mie_par_bot,crefin,qalfim_e,qalfim_s,gsalfm,bscoef ) sum_e = sum_e + wxi * ( qalfip_e + qalfim_e ) sum_s = sum_s + wxi * ( qalfip_s + qalfim_s ) sum_sg = sum_sg + wxi * ( gsalfp + gsalfm ) end do G = sum_sg / sum_s ! this is beta_Ex = integral_factor * sum_e ! beta_Sc = integral_factor * sum_s ! *** bhmie driver returns values divided by mie_vol_parameter ! Calculate the actual extinction and scattering coefficients ! by multplying by the modal volume and dividing by the wavelength vfac = Vol * lambdam1 bext = vfac * beta_Ex ! [ 1 / m ] bscat = vfac * beta_Sc ! [ 1 / m ] gfac = G 99501 Format(I2,' Quadrature Points for Volume Averaged Aerosol Optics') 99504 Format('Even Number Quadrature Points for Volume Averaged Aerosol Optics') END SUBROUTINE aero_optics_tabular subroutine fast_mieaer_modal( mie_parameter,refindx,extaer,scataer,gaer,bscoef ) !!!!! USE UTILIO_DEFN USE AERO_DATA ! aero variable data USE CSQY_DATA, ONLY : NWL => NWL_REF, NUM_REFRACTIVE, REFRACTIVE_INDEX, & WAVELENGTH => EFFWL_REF, FIRST_DAY => NEW_START use get_env_module IMPLICIT NONE !*********************************************************************** ! Purpose: calculate aerosol scattering albedo, asymmetry factor, and ! extinction efficencies. If Two_Stream is true, sets Legendre coefficients. ! The method parameterizes aerosol coefficients using chebychev polynomials ! requires double precision on 32-bit machines uses Wiscombe's (1979) mie ! scattering code or Bohren-Huffman (1983) Mie scattering ! subroutine, bhmie, to calculates efficiencies by a homogenous ! isotropic sphere. The latter subroutine is used if RadTran solution is a ! Two Stream Method. ! ! INPUT ! mie_parameter -- 2*pi*wet diameter/wavelength ! refindx -- volume averaged complex index of refraction ! OUTPUT: ! real sactaer ! aerosol single scattering efficiency ! gaer ! aerosol asymmetery factor ! extaer ! aerosol extinction efficiency, ! bscoef ! aerosol backscatter efficiency, to convert steradian divide by 4*PI !---------------------------------------------------------------------- ! arguments: real, intent(in) :: mie_parameter complex, intent(in) :: refindx real, intent(out) :: extaer,scataer,gaer real, intent(out) :: bscoef !local variables character( 32 ), parameter :: pname = 'fast_mieaer_modal' real weighte, weights ! various bookeeping variables integer, parameter :: ltype = 1 ! total number of indicies of refraction real x real thesum ! for normalizing things real sizem ! size in microns integer kcallmieaer ! integer m, j, nc, klevel real, save :: pscat !scattering cross section real, save :: pext ! parameterized specific extinction (cm2/g) real, save :: pasm ! parameterized asymmetry factor real, save :: pd_pscat !scattering cross section real, save :: pd_pext ! parameterized specific extinction (cm2/g) real, save :: pd_pasm ! parameterized asymmetry factor real ppmom2 ! 2 Lengendre expansion coefficient (numbered 0,1,2,...) real ppmom3 ! 3 ... real ppmom4 ! 4 ... real ppmom5 ! 5 ... real ppmom6 ! 6 ... real ppmom7 ! 7 ... real sback2 ! JCB 2007/02/01 sback*conjg(sback) integer ns ! Spectral loop index integer i ! Longitude loop index integer k ! Level loop index integer, save :: isecfrm0 = 0 integer :: ncoef_check ! number of chebychev polynomials used integer, save :: numang=0,nmom=7,ipolzn=0,momdim=7 integer :: nrefr_check,nrefi_check integer :: nsize integer :: nr,ni ! real(8) :: pmom(0:7,1) real(8), save :: xmu(1) = 1.0d0 real(8), save :: mimcut = 0.0d0 complex(8) :: sforw,sback,tforw(2),tback(2) complex(8) :: s1(1),s2(1) logical, save :: perfct = .false. logical, save :: anyang = .false. logical, save :: prnt(2) = (/ .false., .false./) logical, save :: first = .true. logical, save :: TWO_STREAM = .true. logical :: search logical :: exists real :: aero_radius integer itab,jtab integer itabp,jtabp real ttab,utab ! nsiz = number of wet particle sizes ! crefin = complex refractive index integer n real(8), allocatable :: qext( : ) ! array of extinction efficiencies real(8), allocatable :: qsca( : ) ! array of scattering efficiencies real(8), allocatable :: gqsc( : ) ! array of asymmetry factor * scattering efficiency real, allocatable :: asymm( : ) ! array of asymmetry factor real, allocatable :: scat( : ) ! JCB 2004/02/09 real, allocatable :: sb2( : ) ! JCB 2007/02/01 - 4*abs(sback)^2/(size parameter)^2 backscattering efficiency real, allocatable :: qextr4( : ) ! extinction, real*4 real, allocatable :: rs( : ) ! surface mode radius (cm) real, allocatable, save :: cext (:) real, allocatable, save :: casm (:) real, allocatable, save :: cpmom2 (:) real, allocatable, save :: cscat (:) real, allocatable, save :: cpsback2p(:) real(8) :: thesize ! 2 pi radpart / waveleng = size parameter complex(8) :: crefin,crefd complex(8), save :: crefw real, save :: rmin=0.005e-4,rmax=50.e-4 ! min, max aerosol size bin real bma,bpa real, save :: xrmin,xrmax,xr real xrad ! normalized aerosol radius real, save :: rhoh2o = 1.0 ! density of liquid water (g/cm3) real refr ! real part of refractive index real refi ! imaginary part of refractive index real thesize_bhmie ! 2 pi radpart / waveleng = size parameter real qext_bhmie ! array of extinction efficiencies real qsca_bhmie ! array of scattering efficiencies real qback_bhmie ! array of scattering efficiencies real gsca_bhmie ! array of asymmetry factor * scattering efficiency complex refrel_bhmie real :: weight_real ! nomralized real part refractive index difference used in bilinear interpolation real :: weight_imag ! nomralized imaginary part refractive index difference used in bilinear interpolation real :: wrwi ! weighting factors used on bilinear interpolation points real :: wr_wrwi ! weighting factors used on bilinear interpolation points real :: wi_wrwi ! weighting factors used on bilinear interpolation points real :: one_wrwi_wi ! weighting factors used on bilinear interpolation points real :: quadrature_factor real :: max_quad_point real :: reciprocal_drefr_check ! reciprocal of increment in real part of refractive index real :: reciprocal_drefi_check ! reciprocal of increment in imag part of refractive index real :: reciprocal_drefri_check ! reciprocal of real times imag increments of refractive index real :: refrmin_check ! minimum of real part of refractive index real :: refrmax_check ! maximum of real part of refractive index real :: refimin_check ! minimum of imag part of refractive index real :: refimax_check ! maximum of imag part of refractive index real :: drefr_check ! increment in real part of refractive index real :: drefi_check ! increment in imag part of refractive index real, allocatable :: refrtab_check(:) ! table of real refractive indices for aerosols real, allocatable :: refitab_check(:) ! table of imag refractive indices for aerosols real, allocatable, save :: ch(:) ! values of chebychev polynomials real, parameter :: pie = pi real, parameter :: third = 1.0/3.0 integer :: irams, jrams ! diagnostic declarations integer :: kcallmieaer2 integer :: ibin, imode integer :: mie_unit integer :: astat character(150) :: msg CHARACTER(600) :: MIE_TABLE if(first)then first = .false. ! parameterize aerosol radiative properties in terms of ! relative humidity, surface mode wet radius, aerosol species, ! and wavelength ! first find min,max of real and imaginary parts of refractive index crefw=cmplx(1.33,0.0) refrmin=real(crefw) refrmax=real(crefw) ! change Rahul's imaginary part of the refractive index from positive to negative refimin=-imag(crefw) refimax=-imag(crefw) nspint = nwl allocate( wavmid( nwl ) ) wavmid(1:nwl) = 1.0e-7*wavelength(1:nwl) allocate( nsizes( n_mode ) ) nsizes = (/ 200,200,200 /) allocate( Modal_Tables( N_MODE ) ) Select Case ( Quadrature_Points ) Case ( 1 ) max_quad_point = ghxi_1(1) Case ( 3 ) max_quad_point = ghxi_3(3) Case ( 5 ) max_quad_point = ghxi_5(5) Case ( 9 ) max_quad_point = ghxi_9(9) end select nbin_a_maxd = n_mode call get_env( mie_table, 'MIE_TABLE', 'MIE_TABLE',logdev ) inquire( file=trim(mie_table),exist=exists) if( .not. exists )then Create_Table = .true. else Create_Table = .false. endif if( Create_Table )then Create_table = .false. do i=1,NUM_REFRACTIVE refrmin = amin1( refrmin,MINVAL( REFRACTIVE_INDEX( i )%REAL_PART( :,: ) )) refrmax = amax1( refrmax,MAXVAL( REFRACTIVE_INDEX( i )%REAL_PART( :,: ) )) refimin = amin1( refimin,-MINVAL( REFRACTIVE_INDEX( i )%IMAG_PART( :,: ) )) refimax = amax1( refimax,-MAXVAL( REFRACTIVE_INDEX( i )%IMAG_PART( :,: ) )) enddo rmax = amax1(rmax,60.0*MAXVAL(max_dg_wet)) rmin = amin1(rmin,40.0*MINVAL(min_dg_dry)) drefr=(refrmax-refrmin) if(drefr.gt.1.e-4)then nrefr=prefr drefr=drefr/(nrefr-1) else nrefr=1 endif drefi=(refimax-refimin) if(drefi.gt.1.e-4)then nrefi=prefi drefi=drefi/(nrefi-1) else nrefi=1 endif reciprocal_drefr = 1.0/drefr reciprocal_drefi = 1.0/drefi reciprocal_drefri = reciprocal_drefr * reciprocal_drefi ! bma=0.5*alog(rmax/rmin) ! JCB bpa=0.5*alog(rmax*rmin) ! JCB xrmin=alog(rmin) xrmax=alog(rmax) quadrature_factor = exp( sqrt2 * log( max_sigma_g ) * max_quad_point ) do ns = 1,n_mode Modal_Tables(ns)%nradii = nsizes(ns) Modal_Tables(ns)%rmax = 60.0*max_dg_wet(ns)*quadrature_factor ! if( ns .eq. n_mode )Modal_Tables(ns)%rmax = 4.0*Modal_Tables(ns)%rmax ! convert modal rmax into Mie Parameter Modal_Tables(ns)%rmax = 2.0*pi*Modal_Tables(ns)%rmax/minval( wavmid ) Modal_Tables(ns)%rmin = 40.0*min_dg_dry(ns)/quadrature_factor ! convert modal rmin into Mie Parameter Modal_Tables(ns)%rmin = 2.0*pi*Modal_Tables(ns)%rmin/maxval( wavmid ) Modal_Tables(ns)%bma=0.5*log(Modal_Tables(ns)%rmax/Modal_Tables(ns)%rmin) Modal_Tables(ns)%bpa=0.5*log(Modal_Tables(ns)%rmax*Modal_Tables(ns)%rmin) Modal_Tables(ns)%xrmin=log(Modal_Tables(ns)%rmin) Modal_Tables(ns)%xrmax=log(Modal_Tables(ns)%rmax) allocate( Modal_Tables(ns)%extp(ncoef,prefr,prefi), & Modal_Tables(ns)%albp(ncoef,prefr,prefi), & Modal_Tables(ns)%asmp(ncoef,prefr,prefi), & Modal_Tables(ns)%ascat(ncoef,prefr,prefi), & Modal_Tables(ns)%sback2p(ncoef,prefr,prefi) ) end do ! check if coverage of mie parameter is continuous between Modal_Tables do ns = 2,n_mode if( Modal_Tables(ns-1)%rmax .ne. Modal_Tables(ns)%rmin )then Modal_Tables(ns-1)%rmax = Modal_Tables(ns)%rmin Modal_Tables(ns-1)%xrmax = log(Modal_Tables(ns-1)%rmax) Modal_Tables(ns-1)%bma=0.5*log(Modal_Tables(ns-1)%rmax/Modal_Tables(ns-1)%rmin) Modal_Tables(ns-1)%bpa=0.5*log(Modal_Tables(ns-1)%rmax*Modal_Tables(ns-1)%rmin) end if end do nsize = MAXVAL( Modal_Tables(1:n_mode)%nradii ) allocate( qext( nsize ), & qsca( nsize ), & gqsc( nsize ) ) allocate( asymm( nsize ), & scat( nsize ), & sb2( nsize ), & qextr4( nsize ), & rs( nsize ) ) ! calibrate parameterization with range of refractive indices allocate( refrtab(nrefr), & refitab(nrefi), & ch(ncoef)) do 120 ni=1,nrefi do 120 nr=1,nrefr refrtab(nr)=refrmin+(nr-1)*drefr refitab(ni)=refimin+(ni-1)*drefi crefd=dcmplx(real(refrtab(nr),8),real(refitab(ni),8)) ! mie calculations of optical efficiencies loop_modes: do imode = 1,n_mode nsize = Modal_Tables(imode)%nradii ! nsizes( imode ) do n=1,nsize xr=cos(pie*(real(n)-0.5)/real(nsize)) rs(n)=real(exp(xr*Modal_Tables(imode)%bma+Modal_Tables(imode)%bpa),8) ! size parameter and weighted refractive index thesize=real(rs(n),8) ! backscattering efficiency, Bohren and Huffman, page 122 ! as stated by Bohren and Huffman, this is 4*pie times what is should be ! may need to be smoothed - a very rough function - for the time being we won't apply smoothing ! and let the integration over the size distribution be the smoothing thesize_bhmie = real( thesize ) refrel_bhmie = cmplx(real(refrtab(nr)),-real(refitab(ni))) call driver_bhmie_flexy(thesize_bhmie,refrel_bhmie,qext_bhmie,qsca_bhmie,gsca_bhmie) asymm(n) = gsca_bhmie/qsca_bhmie qextr4(n)= qext_bhmie*thesize_bhmie scat(n) = qsca_bhmie*thesize_bhmie sback = sback_bhmie sb2(n) = 4.0*sback*dconjg(sback) & / (thesize_bhmie*thesize_bhmie) ! JCB 2007/02/01 enddo 100 continue call fitcurv(rs,qextr4,Modal_Tables(imode)%extp(:,nr,ni),ncoef,nsize) call fitcurv(rs,scat,Modal_Tables(imode)%ascat(:,nr,ni),ncoef,nsize) call fitcurv(rs,asymm,Modal_Tables(imode)%asmp(:,nr,ni),ncoef,nsize) call fitcurv(rs,sb2,Modal_Tables(imode)%sback2p(:,nr,ni),ncoef,nsize) enddo loop_modes 120 continue If( MYPE .eq. 0 )Then mie_unit = get_free_iounit() open(unit=mie_unit,file=trim(mie_table),form='FORMATTED',status='REPLACE', & iostat=astat) if( astat .ne. 0 )then msg = 'Error creating Mie Lookup Table, ' // trim(mie_table) & // 'and new start is true.' eflag_wrf_fast_mie = .True. return endif write(mie_unit,'(a)')'real and imaginary part of minimum refractive index ' write(mie_unit,'(a)')'imaginary part uses negative sign convention so reverse sign common value' write(mie_unit,'(2(es12.4,1x))')refrtab(1),refitab(1) write(mie_unit,'(a)')'real and imaginary part of maximum refractive index' write(mie_unit,'(es12.4,1x,es12.4)')refrtab(nrefr),refitab(nrefi) write(mie_unit,'(a)')'number real and imaginary parts' write(mie_unit,'(i4,1x,i4)')nrefr,nrefi write(mie_unit,'(a)')'minimum mie parameter for each mode ' write(mie_unit,'(3(es16.7,1x))')Modal_Tables(1:n_mode)%rmin write(mie_unit,'(a)')'maximum mie parameters for each mode' write(mie_unit,'(3(es16.7,1x))'),Modal_Tables(1:n_mode)%rmax write(mie_unit,'(a)')'number coefficients for chebyshev polynomials for each fit= ' write(mie_unit,'(i4)')ncoef do ni=1,nrefi do nr=1,nrefr write(mie_unit,'(a,es12.4,a2,es12.4,a5)')'! refractive index = ( ',refrtab(nr),', ',refitab(ni),' ) ' write(mie_unit,'(a)')'! ext, scat, asym, and backscat coefficients for chebyshev polynomials' do nc = 1,ncoef write(mie_unit,'(21(es16.7,1x))') & (Modal_Tables(imode)%extp(nc,nr,ni), & Modal_Tables(imode)%ascat(nc,nr,ni), & Modal_Tables(imode)%asmp(nc,nr,ni), & Modal_Tables(imode)%sback2p(nc,nr,ni),imode=1,n_mode) end do end do end do close(mie_unit) End If deallocate( qext, & qsca, & gqsc ) deallocate( asymm, & scat, & sb2, & qextr4, & rs ) else ! read table from ascii file inquire( file=trim(mie_table),exist=exists) if( .not. exists )then msg = 'Mie Lookup Table, ' // trim(mie_table) & // ' not found and new start is false.' eflag_wrf_fast_mie = .True. return end if mie_unit = get_free_iounit() open(unit=mie_unit,file=trim(mie_table),form='FORMATTED',status='OLD', & iostat=astat) if( astat .ne. 0 )then msg = 'Error reading Mie Lookup Table, ' // trim(mie_table) eflag_wrf_fast_mie = .True. return endif read(mie_unit,'(a)')msg read(mie_unit,'(a)')msg read(mie_unit,'(2(es12.4,1x))')refrmin,refimin read(mie_unit,'(a)')msg read(mie_unit,'(es12.4,1x,es12.4)')refrmax,refimax read(mie_unit,'(a)')msg read(mie_unit,'(i4,1x,i4)')nrefr,nrefi read(mie_unit,'(a)')msg read(mie_unit,'(3(es16.7,1x))')Modal_Tables(1:n_mode)%rmin read(mie_unit,'(a)')msg read(mie_unit,'(3(es16.7,1x))'),Modal_Tables(1:n_mode)%rmax read(mie_unit,'(a)')msg read(mie_unit,'(i4)')ncoef do ns = 1,n_mode Modal_Tables(ns)%nradii = nsizes(ns) Modal_Tables(ns)%bma=0.5*log(Modal_Tables(ns)%rmax/Modal_Tables(ns)%rmin) Modal_Tables(ns)%bpa=0.5*log(Modal_Tables(ns)%rmax*Modal_Tables(ns)%rmin) Modal_Tables(ns)%xrmin=log(Modal_Tables(ns)%rmin) Modal_Tables(ns)%xrmax=log(Modal_Tables(ns)%rmax) allocate( Modal_Tables(ns)%extp(ncoef,nrefr,nrefi), & Modal_Tables(ns)%albp(ncoef,nrefr,nrefi), & Modal_Tables(ns)%asmp(ncoef,nrefr,nrefi), & Modal_Tables(ns)%ascat(ncoef,nrefr,nrefi), & Modal_Tables(ns)%sback2p(ncoef,nrefr,nrefi) ) end do drefr=(refrmax-refrmin) if(drefr.gt.1.e-4)then drefr=drefr/(nrefr-1) endif drefi=(refimax-refimin) if(drefi.gt.1.e-4)then drefi=drefi/(nrefi-1) endif reciprocal_drefr = 1.0/drefr reciprocal_drefi = 1.0/drefi reciprocal_drefri = reciprocal_drefr * reciprocal_drefi allocate( refrtab(nrefr), & refitab(nrefi), & ch(ncoef)) do ni=1,nrefi do nr=1,nrefr refrtab(nr)=refrmin+(nr-1)*drefr refitab(ni)=refimin+(ni-1)*drefi read(mie_unit,'(a)')msg read(mie_unit,'(a)')msg do nc = 1,ncoef read(mie_unit,'(21(es16.7,1x))') & (Modal_Tables(imode)%extp(nc,nr,ni), & Modal_Tables(imode)%ascat(nc,nr,ni), & Modal_Tables(imode)%asmp(nc,nr,ni), & Modal_Tables(imode)%sback2p(nc,nr,ni),imode=1,n_mode) end do end do end do close(mie_unit) end if allocate( cext (ncoef), & casm (ncoef), & cpmom2 (ncoef), & cscat (ncoef), & cpsback2p(ncoef)) return endif ! end first call block aero_radius = mie_parameter ns = 1 do m = 1,n_mode if( aero_radius .le. Modal_Tables(m)%rmax)exit end do m = min(m,n_mode) gaer=0.0 extaer=0.0 bscoef=0.0 ! JCB 2007/02/01 - backscattering coefficient ! loop over the bins sizem=aero_radius ! radius in cm ! check against limits of mie parameter if(aero_radius.le.Modal_Tables(m)%rmin)then aero_radius=1.01*Modal_Tables(m)%rmin write( msg, '(a, 1x, es11.4, a, 1x, es11.4 )' ) & 'In ' // Trim( pname ) // ':aerosol mie parameter set to ', & aero_radius, ' from ', mie_parameter write(logdev,'(a)')TRim( msg ) endif ! if(aero_radius.ge.Modal_Tables(m)%rmax)then aero_radius=0.99*Modal_Tables(m)%rmax write( msg, '(a, 1x, es11.4, a, 1x, es11.4 )' ) & 'In ' // Trim( pname ) // ':aerosol mie parameter set to ', & aero_radius, ' from ', mie_parameter write(logdev,'(a)')Trim( msg ) endif crefin=refindx refr=real(crefin) ! change Rahul's imaginary part of the index of refraction from positive to negative refi=-imag(crefin) x=alog(aero_radius) ! radius in cm xrad=x ! normalize size parameter xrad=(2*xrad-Modal_Tables(m)%xrmax-Modal_Tables(m)%xrmin) & /(Modal_Tables(m)%xrmax-Modal_Tables(m)%xrmin) ! retain this diagnostic code if(abs(refr).gt.10.0.or.abs(refr).le.0.001)then write( msg, '(a,1x, e14.5)' ) & 'FASTJ mie /refr/ outside range 1e-3 to 10 refr= ', refr write(logdev,'(a)')Trim( msg ) endif if(abs(refi).gt.10.0)then write( msg, '(a,1x, e14.5)' ) & 'FASTJ mie /refi/ >10 refi', refi write(logdev,'(a)')Trim( msg ) endif ! interpolate coefficients linear in refractive index ! first call calcs itab,jtab,ttab,utab itab=0 search = .true. search = .false. itab = int( (refr-refrmin)*reciprocal_drefr ) + 1 itab = min( nrefr,max( itab,1 ) ) jtab = int( (refi-refimin)*reciprocal_drefi ) + 1 jtab = min( nrefi,max( jtab,1 ) ) if( itab .eq. 1 .or. itab .eq. nrefr )then weight_real = 0.0 itabp = itab else weight_real = (refr-refrtab(itab)) & * reciprocal_drefr itabp = itab + 1 end if if( jtab .eq. 1 .or. jtab .eq. nrefi )then weight_imag = 0.0 jtabp = jtab else weight_imag = (refi-refitab(jtab)) & * reciprocal_drefi jtabp = jtab + 1 end if wrwi = weight_real*weight_imag wr_wrwi = weight_real - wrwi one_wrwi_wi = 1.0 - wr_wrwi - weight_imag wi_wrwi = weight_imag - wrwi do nc=1,ncoef cext(nc) = one_wrwi_wi*Modal_Tables(m)%extp(nc,itab,jtab) & + wr_wrwi*Modal_Tables(m)%extp(nc,itabp,jtab) & + wrwi*Modal_Tables(m)%extp(nc,itabp,jtabp) & + wi_wrwi*Modal_Tables(m)%extp(nc,itab,jtabp) cscat(nc) = one_wrwi_wi*Modal_Tables(m)%ascat(nc,itab,jtab) & + wr_wrwi*Modal_Tables(m)%ascat(nc,itabp,jtab) & + wrwi*Modal_Tables(m)%ascat(nc,itabp,jtabp) & + wi_wrwi*Modal_Tables(m)%ascat(nc,itab,jtabp) casm(nc) = one_wrwi_wi*Modal_Tables(m)%asmp(nc,itab,jtab) & + wr_wrwi*Modal_Tables(m)%asmp(nc,itabp,jtab) & + wrwi*Modal_Tables(m)%asmp(nc,itabp,jtabp) & + wi_wrwi*Modal_Tables(m)%asmp(nc,itab,jtabp) cpsback2p(nc) = one_wrwi_wi*Modal_Tables(m)%sback2p(nc,itab,jtab) & + wr_wrwi*Modal_Tables(m)%sback2p(nc,itabp,jtab) & + wrwi*Modal_Tables(m)%sback2p(nc,itabp,jtabp) & + wi_wrwi*Modal_Tables(m)%sback2p(nc,itab,jtabp) enddo ! chebyshev polynomials ch(1)=1. ch(2)=xrad do nc=3,ncoef ch(nc)=2.*xrad*ch(nc-1)-ch(nc-2) enddo ! parameterized optical properties pext=0.5*cext(1) pscat=0.5*cscat(1) pasm=0.5*casm(1) sback2=0.5*cpsback2p(1) ! JCB 2007/02/01 - backscattering efficiency do nc=2,ncoef pext=pext+ch(nc)*cext(nc) pscat=pscat+ch(nc)*cscat(nc) pasm=pasm+ch(nc)*casm(nc) sback2=sback2+ch(nc)*cpsback2p(nc) enddo pext=exp(pext) pscat=exp(pscat) pasm=exp(pasm) sback2=max( exp(sback2),0.0 ) thesize = mie_parameter pext = pext/thesize pscat = pscat/thesize pasm = pasm * pscat extaer = pext scataer = pscat gaer = pasm ! convert backscattering efficiency to backscattering coefficient, units (cm)^-1 bscoef= sback2/thesize return end subroutine fast_mieaer_modal function binarysearch(length, array, value) ! Given an array and a value, returns the index of the element that ! is closest to, but less than, the given value. ! Uses a binary search algorithm. ! "delta" is the tolerance used to determine if two values are equal ! if ( abs(x1 - x2) <= delta) then ! assume x1 = x2 ! endif implicit none integer, intent(in) :: length real, intent(in) :: array(length) real, intent(in) :: value integer :: binarysearch integer :: left, middle, right real, parameter :: d = 1.0e-9 if ( value .ge. array(length) ) then binarysearch = length return end if if ( value .le. array(1) ) then binarysearch = 1 return end if left = 1 right = length do if (left .gt. right) then exit end if middle = nint((left+right) / 2.0) if ( abs(array(middle) - value) .le. d) then binarySearch = middle return else if (array(middle) .gt. value) then right = middle - 1 else left = middle + 1 end if end do binarysearch = right end function binarysearch real function interpolate(x_len, x_array, y_len, y_array, f, x, y ) ! This function uses bilinear interpolation to estimate the value ! of a function f at point (x,y) ! f is assumed to be sampled on a regular grid, with the grid x values specified ! by x_array and the grid y values specified by y_array ! Reference: http://en.wikipedia.org/wiki/Bilinear_interpolation implicit none integer, intent(in) :: x_len, y_len real, intent(in) :: x_array(x_len) real, intent(in) :: y_array(y_len) real, intent(in) :: f(x_len, y_len) real, intent(in) :: x,y real :: denom, x1, x2, y1, y2 integer :: i,j i = binarysearch(x_len, x_array, x) j = binarysearch(y_len, y_array, y) x1 = x_array(i) x2 = x_array(i+1) y1 = y_array(j) y2 = y_array(j+1) denom = (x2 - x1)*(y2 - y1) interpolate = (f(i,j)*(x2-x)*(y2-y) + f(i+1,j)*(x-x1)*(y2-y) + & f(i,j+1)*(x2-x)*(y-y1) + f(i+1, j+1)*(x-x1)*(y-y1))/denom end function interpolate !**************************************************************** subroutine fitcurv(rs,yin,coef,ncoef,maxm) ! fit y(x) using Chebychev polynomials ! wig 7-Sep-2004: Removed dependency on pre-determined maximum ! array size and replaced with f90 array info. ! USE module_peg_util, only: peg_message IMPLICIT NONE integer, intent(in) :: maxm, ncoef real, intent(in) :: rs(:), yin(:) real, intent(inout) :: coef(:) !local: real x(size(rs)),y(size(yin)) integer m real xmin, xmax character(80) msg do 100 m=1,maxm x(m)=alog(rs(m)) y(m)=alog(yin(m)) 100 continue xmin=x(1) xmax=x(maxm) do 110 m=1,maxm x(m)=(2*x(m)-xmax-xmin)/(xmax-xmin) 110 continue call chebft(coef,ncoef,maxm,y) return end subroutine fitcurv !************************************************************** subroutine fitcurv_nolog(rs,yin,coef,ncoef,maxm) ! fit y(x) using Chebychev polynomials ! wig 7-Sep-2004: Removed dependency on pre-determined maximum ! array size and replaced with f90 array info. IMPLICIT NONE integer, intent(in) :: maxm, ncoef real, intent(in) :: rs(:), yin(:) real, intent(inout) :: coef(:) !local: real x(size(rs)),y(size(yin)) integer m real xmin, xmax character*80 msg do 100 m=1,maxm x(m)=alog(rs(m)) y(m)=yin(m) ! note, no "alog" here 100 continue xmin=x(1) xmax=x(maxm) do 110 m=1,maxm x(m)=(2*x(m)-xmax-xmin)/(xmax-xmin) 110 continue call chebft(coef,ncoef,maxm,y) return end subroutine fitcurv_nolog !************************************************************************ subroutine chebft(c,ncoef,n,f) ! given a function f with values at zeroes x_k of Chebychef polynomial ! T_n(x), calculate coefficients c_j such that ! f(x)=sum(k=1,n) c_k t_(k-1)(y) - 0.5*c_1 ! where y=(x-0.5*(xmax+xmin))/(0.5*(xmax-xmin)) ! See Numerical Recipes, pp. 148-150. IMPLICIT NONE real pi integer, intent( in ) :: ncoef, n real, intent( out ) :: c(:) real, intent( in ) :: f(:) ! local variables ! parameter (pi=3.14159265) real(8) :: fac, thesum integer j, k fac=2.0d0/real( n,8 ) do j=1,ncoef thesum=0.0d0 do k=1,n thesum=thesum & +real(f(k),8) & *dcos((pii*real((j-1),8))*((real(k,8)-0.5)/real(n,8))) enddo c(j)=real(fac*thesum) enddo return end subroutine chebft ! ------------------------------------------------------------------ subroutine driver_bhmie_flexy(xx, crefin, qextalf, qscatalf, gscatalfg) implicit none real, intent(in) :: XX real, intent(out) :: qextalf, qscatalf, gscatalfg complex, intent(in) :: CREFIN !local real( 8 ), parameter :: one_third = 1.0d0 / 3.0d0 integer :: NXX integer :: nstop, modulus real :: QEXTI, QSCA, QBACK, G_MIE, xx1 real( 8 ) :: x complex( 8 ) :: refractive_index x = real( XX, 8 ) refractive_index = dcmplx( real( CREFIN ), imag( CREFIN ) ) modulus = int( abs( x * refractive_index ) ) nstop = int( x + 4.0d0 * x**one_third + 2.0d0 ) nxx = max( modulus, nstop ) + 15 xx1 = 1.0 / XX CALL BHMIE_FLEXY(XX, NXX, NSTOP, CREFIN,QEXTI,QSCA,QBACK,G_MIE) qextalf = QEXTI * xx1 qscatalf = QSCA * xx1 gscatalfg = qscatalf * G_MIE sback_bhmie = QBACK * xx1 ! write(6,'(a,12(ES12.4,1X))',advance='NO')'WRF BHMIE_FLEXY: XX, QEXT,QSCA,G_MIE = ', ! & xx,qextalf,qscatalf,gscatalfg end subroutine driver_bhmie_flexy ! ------------------------------------------------------------------ SUBROUTINE BHMIE_FLEXY (X, NMX, NSTOP, REFREL, QQEXT, QQSCA, QBACK, GSCA) ! FSB Changed the call vector to return only QEXT, QSCAT QBACK GSCA ! and ignore NANG, S1 and S2 and all calculations for them implicit none ! Arguments: real, intent(in) :: X ! X = pi*particle_diameter / Wavelength integer, intent(in) :: NMX ! maximum number of terms in Mie series integer, intent(in) :: NSTOP ! minumum number of terms in Mie series complex, intent(in) :: REFREL ! refractive index ! REFREL = (complex refr. index of sphere)/(real index of medium) ! in the current use the index of refraction of the the medium ! i taken at 1.0 real. ! ! Output real, intent(out) :: QQEXT, QQSCA, QBACK, GSCA ! QQEXT Efficiency factor for extinction ! QQSCA Efficiency factor for scattering ! QQBACK Efficiency factor for back scatter ! GSCA asymmetry factor ! SUCCESS flag for successful calculation ! REFERENCE: ! Bohren, Craig F. and Donald R. Huffman, Absorption and ! Scattering of Light by Small Particles, Wiley-Interscience ! copyright 1983. Paperback Published 1998. ! FSB ! This code was originally listed in Appendix A. pp 477-482. ! As noted below, the original code was subsequently ! modified by Prof. Bruce T. Drain of Princetion University. ! The code was further modified for a specific application ! in a large three-dimensional code requiring as much ! computational efficiency as possible. ! Prof. Francis S. Binkowski of The University of North ! Carolina at Chapel Hill. ! Declare parameters: ! Note: important that MXNANG be consistent with dimension of S1 and S2 ! in calling routine! integer, parameter :: MXNANG=10, NMXX=150000 ! FSB new limits integer, parameter :: NANG = 2 ! real*8, parameter :: PII = 3.1415916536D0 real*8, parameter :: ONE = 1.0D0, TWO = 2.0D0 ! real(8),parameter :: ONE_THIRD = 1.0D0/3.0D0 complex*16, parameter :: COMPLEX_DZERO = (0.0D0,0.0D0) complex, parameter :: COMPLEX_ZERO = (0.0,0.0) ! Local variables: integer :: N, NN real*8 :: QSCA, QEXT, DX1, DXX1 real*8 :: CHI,CHI0,CHI1,DX,EN,P,PSI,PSI0,PSI1,XSTOP,YMOD real*8 :: TWO_N_M_ONE, TWO_N_P_ONE, EN1, FACTOR complex*16 :: AN,AN1,BN,BN1,DREFRL,XI,XI1,Y, Y1, DREFRL1 complex*16 :: D(NMX) complex*16 :: FAC1, FAC2 complex*16 :: XBACK !*********************************************************************** ! Subroutine BHMIE is the Bohren-Huffman Mie scattering subroutine ! to calculate scattering and absorption by a homogenous isotropic ! sphere. ! Given: ! X = 2*pi*a/lambda ! REFREL = (complex refr. index of sphere)/(real index of medium) ! real refractive index of medium taken as 1.0 ! Returns: ! QEXT = efficiency factor for extinction ! QSCA = efficiency factor for scattering ! QBACK = efficiency factor for backscatter ! see Bohren & Huffman 1983 p. 122 ! GSCA = asymmetry for scattering ! ! Original program taken from Bohren and Huffman (1983), Appendix A ! Modified by Prof. Bruce T.Draine, Princeton Univ. Obs., 90/10/26 ! in order to compute ! 91/05/07 (BTD): Modified to allow NANG=1 ! 91/08/15 (BTD): Corrected error (failure to initialize P) ! 91/08/15 (BTD): Modified to enhance vectorizability. ! 91/08/15 (BTD): Modified to make NANG=2 if called with NANG=1 ! 91/08/15 (BTD): Changed definition of QBACK. ! 92/01/08 (BTD): Converted to full double precision and double complex ! eliminated 2 unneed lines of code ! eliminated redundant variables (e.g. APSI,APSI0) ! renamed RN -> EN = double precision N ! Note that DOUBLE COMPLEX and DCMPLX are not part ! of f77 standard, so this version may not be fully ! portable. In event that portable version is ! needed, use src/bhmie_f77.f ! 93/06/01 (BTD): Changed AMAX1 to generic function MAX ! FSB April 09,2012 This code was modified by: ! Prof. Francis S. Binkowski University of North Carolina at ! Chapel Hill, Institue for the Environment. ! ! The modifications were made to enhance computation speed ! for use in a three-dimensional code. This was done by ! removing code that calculated angular scattering. The method ! of calculating QEXT, QBACK was also changed. !*********************************************************************** !*** Safety checks BHMIE_SUCCESS = .TRUE. ! NANG = 2 ! FSB only this value ! IF(NANG.GT.MXNANG)STOP'***Error: NANG > MXNANG in bhmie' ! IF (NANG .LT. 2) NANG = 2 DX = REAL( X, 8 ) ! FSB D efine reciprocals so that divisions can be replaced by multiplications. DX1 = ONE / DX DXX1 = DX1 * DX1 DREFRL = DCMPLX( REAL( REFREL ), IMAG( REFREL ) ) DREFRL1 = ONE / DREFRL Y = DX * DREFRL Y1 = ONE / Y ! YMOD = ABS(Y) !*** Series expansion terminated after NSTOP terms ! Logarithmic derivatives calculated from NMX on down ! XSTOP = X + 4.0 * X**0.3333 + 2.0 ! NMX = MAX(XSTOP,YMOD) + 15 ! BTD experiment 91/1/15: add one more term to series and compare results ! NMX=AMAX1(XSTOP,YMOD)+16 ! test: compute 7001 wavelengths between .0001 and 1000 micron ! for a=1.0micron SiC grain. When NMX increased by 1, only a single ! computed number changed (out of 4*7001) and it only changed by 1/8387 ! conclusion: we are indeed retaining enough terms in series! FACTOR = 1.0D0 ! IF (NMX .GT. NMXX) THEN ! WRITE(6,*)'Error: NMX > NMXX=',NMXX,' for |m|x=',YMOD ! BHMIE_SUCCESS = .FALSE. ! RETURN ! END IF ! FSB all code relating to scattering angles is removed out for ! reasons of efficiency when running in a three-dimensional ! code. We only need QQSCA, QQEXT, GSCA AND QBACK !*** Logarithmic derivative D(J) calculated by downward recurrence ! beginning with initial value (0.,0.) D(NMX) = COMPLEX_DZERO NN = NMX - 1 DO N = 1,NN EN = REAL( NMX - N + 1, 8 ) ! FSB In the following division by Y has been replaced by ! multiplication by Y1, the reciprocal of Y. D(NMX-N) = ( EN * Y1 ) - (ONE / ( D(NMX-N+1) + EN * Y1)) END DO !*** Riccati-Bessel functions with real argument X ! calculated by upward recurrence PSI0 = COS(DX) PSI1 = SIN(DX) CHI0 = -SIN(DX) CHI1 = PSI0 XI1 = DCMPLX(PSI1,-CHI1) QSCA = 0.0D0 GSCA = 0.0D0 QEXT = 0.0D0 P = -ONE XBACK = COMPLEX_DZERO ! FSB Start main loop DO N = 1,NSTOP EN = REAL( N, 8 ) EN1 = ONE / EN TWO_N_M_ONE = TWO * EN - ONE ! for given N, PSI = psi_n CHI = chi_n ! PSI1 = psi_{n-1} CHI1 = chi_{n-1} ! PSI0 = psi_{n-2} CHI0 = chi_{n-2} ! Calculate psi_n and chi_n PSI = TWO_N_M_ONE * PSI1 * DX1 - PSI0 CHI = TWO_N_M_ONE * CHI1 * DX1 - CHI0 XI = DCMPLX(PSI,-CHI) !*** Compute AN and BN: ! FSB Rearrange to get common terms FAC1 = D(N) * DREFRL1 + EN * DX1 AN = (FAC1) * PSI - PSI1 AN = AN / ( (FAC1 )* XI - XI1 ) FAC2 = ( DREFRL * D(N) + EN * DX1) BN = ( FAC2) * PSI -PSI1 BN = BN / ((FAC2) * XI - XI1 ) ! FSB calculate sum for QEXT as done by Wiscombe ! get common factor TWO_N_P_ONE = (TWO * EN + ONE) QEXT = QEXT + (TWO_N_P_ONE) * (REAL(AN) + REAL(BN) ) QSCA = QSCA + (TWO_N_P_ONE) * ( ABS(AN)**2 + ABS(BN)**2 ) ! FSB calculate XBACK from B & H Page 122 FACTOR = -1.0d0 * FACTOR ! calculate (-1.0 ** N) XBACK = XBACK + (TWO_N_P_ONE) * factor * (AN - BN) ! FSB calculate asymmetry factor GSCA = GSCA + REAL((TWO_N_P_ONE)/(EN * (EN + ONE)) * & (REAL(AN)*REAL(BN)+IMAG(AN)*IMAG(BN))) IF (N .GT. 1)THEN GSCA = GSCA + REAL((EN - EN1) & * (REAL(AN1)*REAL(AN) + IMAG(AN1)*IMAG(AN) & + REAL(BN1)*REAL(BN) + IMAG(BN1)*IMAG(BN))) ENDIF !*** Store previous values of AN and BN for use in computation of g= AN1 = AN BN1 = BN ! FSB set up for next iteration PSI0 = PSI1 PSI1 = PSI CHI0 = CHI1 CHI1 = CHI XI1 = DCMPLX(PSI1,-CHI1) END DO ! main loop on n !*** Have summed sufficient terms. ! Now compute QQSCA,QQEXT,QBACK,and GSCA GSCA = REAL( TWO / QSCA ) * GSCA ! FSB in the following, divisions by DX * DX has been replaced by ! multiplication by DXX1 the reciprocal of 1.0 / (DX *DX) QQSCA = REAL( TWO * QSCA * DXX1 ) QQEXT = REAL( TWO * QEXT * DXX1 ) QBACK = REAL( REAL( 0.5D0 * XBACK * CONJG(XBACK), 8 ) * DXX1 ) ! B&H Page 122 END subroutine BHMIE_FLEXY end module wrf_fast_mie ================================================ FILE: CCTM/src/phot/table/PHOT_MOD.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C $Header$ C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: MODULE PHOT_MOD IMPLICIT NONE REAL, ALLOCATABLE :: RJ ( :, :, :, : ) ! average grid cell J-values (min-1) REAL, ALLOCATABLE :: RJ_RES( :, :, :, : ) ! resolved cloud J-values (min-1) REAL, ALLOCATABLE :: RJ_SUB( :, :, :, : ) ! subgrid cloud J-values (min-1) REAL, ALLOCATABLE :: CFRAC_2D_AVE( :,: ) ! layer averaged 3D fractional cloud coverage ! REAL, ALLOCATABLE :: ETOT_SFC_WL ( :,:,: ) ! total downward irradiance at sfc [ Watts / m**2 ] !***Indices for specific photolysis rates INTEGER :: LNO2 = 0 INTEGER :: LO3O1D = 0 INTEGER :: LO3O3P = 0 INTEGER :: LACETONE = 0 INTEGER :: LKETONE = 0 INTEGER :: LMGLY_ADJ = 0 INTEGER :: LMGLY_ABS = 0 INTEGER :: LHCHOR_06 = 0 INTEGER :: LH2O2 = 0 INTEGER :: LHNO3 = 0 INTEGER :: LACETONE_CO = 0 INTEGER :: LACETONE_CH3CO = 0 ! Variables passed to the PM diagnostic output module, ELMO REAL, ALLOCATABLE, SAVE :: ELMO_AOD_550( :,: ) ! total aerosol optical depth at 550 nm (Angstrom Interpolation) REAL, ALLOCATABLE, SAVE :: ELMO_EXT_550( :,:,: ) ! aerosol extinction at 550 nm for layer [1/m] CONTAINS SUBROUTINE INIT_PHOT_SHARED() USE RXNS_DATA ! chemistry varaibles and data USE GRID_CONF ! horizontal & vertical domain specifications USE UTILIO_DEFN ! Purpose initialized arrays shared by other science processes IMPLICIT NONE !Arguments: None !Local: INTEGER :: ALLOCSTAT INTEGER :: JP CHARACTER( 240 ) :: XMSG = ' ' LOGICAL :: ERROR_FLAG = .FALSE. LOGICAL, SAVE :: INITIALIZED = .FALSE. IF( INITIALIZED )RETURN INITIALIZED = .TRUE. ALLOCATE( RJ ( NCOLS, NROWS, NLAYS, NPHOTAB ), & RJ_RES ( NCOLS, NROWS, NLAYS, NPHOTAB ), & RJ_SUB ( NCOLS, NROWS, NLAYS, NPHOTAB ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating photolysis rate arrays' CALL M3EXIT ( 'INIT_PHOT_SHARED', 0, 0, XMSG, XSTAT1 ) END IF ! ALLOCATE( ETOT_SFC_WL( NCOLS,NROWS,NWL ), STAT = ALLOCSTAT ) ! IF ( ALLOCSTAT .NE. 0 ) THEN ! XMSG = 'Failure allocating irradiance rate array' ! CALL M3EXIT ( 'INIT_PHOT_SHARED', 0, 0, XMSG, XSTAT1 ) ! END IF RJ = 0.0; RJ_RES = 0.0; RJ_SUB = 0.0 ! ETOT_SFC_WL = 0.0 DO JP = 1, NPHOTAB SELECT CASE ( PHOTAB( JP ) ) !***check to see if this photolysis reaction is a special case. CASE( 'O3O3P', 'O3O3P_SAPRC99', 'O3O3P_06', 'O3_O3P_IUPAC04', 'O3O3P_NASA06', 'O3_O3P_IUPAC10' ) LO3O3P = JP CASE( 'NO2', 'NO2_SAPRC99', 'NO2_06', 'NO2_RACM2', 'NO2_IUPAC10' ) LNO2 = JP CASE( 'O3O1D', 'O3O1D_SAPRC99' , 'O3O1D_06', 'O3_O1D_IUPAC04', 'O3O1D_NASA06', 'O3_O1D_IUPAC10' ) LO3O1D = JP CASE( 'KETONE', 'KET_RACM2' ) LKETONE = JP CASE( 'MGLY_ADJ' ) LMGLY_ADJ = JP CASE( 'MGLY_ABS' ) LMGLY_ABS = JP CASE( 'ACETONE', 'CH3COCH3_RACM2', 'ACET_IUPAC10' ) LACETONE = JP CASE( 'HCHOR_06', 'HCHO_R_SAPRC99', 'HCHO_RAD_RACM2', 'FORM_R_IUPAC10', 'HCHO_R_MCMv32' ) LHCHOR_06 = JP CASE( 'ACET_CH3CO_CRI' ) LACETONE_CH3CO = JP CASE( 'H2O2', 'H2O2_SAPRC99', 'H2O2_RACM2', 'H2O2_IUPAC10' ) LH2O2 = JP CASE( 'HNO3', 'HNO3_IUPAC04', 'HNO3_IUPAC10', 'HNO3_RACM2' ) LHNO3 = JP END SELECT END DO ! IF ( LNO2 .EQ. 0 ) THEN ! XMSG = 'NO2 photolysis not found in the mechanism! ' ! CALL M3WARN ( 'INIT_PHOT_SHARED', 0, 0, XMSG ) ! END IF ! IF ( LO3O1D .EQ. 0 ) THEN ! XMSG = 'O(1D) production by photolysis not found in the mechanism! ' ! CALL M3WARN ( 'INIT_PHOT_SHARED', 0, 0, XMSG ) ! END IF ! IF ( LO3O3P .EQ. 0 ) THEN ! MSG = 'O(3P) production by photolysis not found in the mechanism! ' ! CALL M3WARN ( 'INIT_PHOT_SHARED', 0, 0, XMSG ) ! END IF IF ( LH2O2 .EQ. 0 ) THEN XMSG = 'H2O2 photolysis not found in the mechanism! ' ERROR_FLAG = .TRUE. CALL M3WARN ( 'INIT_PHOT_SHARED', 0, 0, XMSG ) END IF IF ( LHNO3 .EQ. 0 ) THEN XMSG = 'HNO3 photolysis not found in the mechanism! ' ERROR_FLAG = .TRUE. CALL M3WARN ( 'INIT_PHOT_SHARED', 0, 0, XMSG ) END IF IF( ERROR_FLAG )THEN XMSG = 'The above fatal error(s) found initializing' CALL M3EXIT ( 'INIT_PHOT_SHARED', 0, 0, XMSG, XSTAT1 ) END IF END SUBROUTINE INIT_PHOT_SHARED END MODULE PHOT_MOD ================================================ FILE: CCTM/src/phot/table/opphot.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/CCTM/src/phot/phot_table/opphot.F,v 1.2 2011/10/21 16:11:29 yoj Exp $ C $Header: /project/yoj/arc/CCTM/src/phot/phot_table/opphot.F,v 1.2 2011/10/21 16:11:29 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE OPPHOT ( JDATE, JTIME, TSTEP ) C----------------------------------------------------------------------- C C FUNCTION: Opens the photolysis diagnostic file that contains values C of photolysis rates used by gas chemistry C C PRECONDITIONS REQUIRED: C None C C REVISION HISTORY: C Date Who What C -------- ---------- ----------------------------------------- C 04/2011 B.Hutzell initial version created based on opphot.F in the C inline_phot module C 07 Jul 14 B.Hutzell: replaced mechanism include file(s) with fortran module C C----------------------------------------------------------------------- USE GRID_CONF ! horizontal & vertical domain specifications USE RXNS_DATA ! chemical mechanism data USE UTILIO_DEFN IMPLICIT NONE INCLUDE SUBST_FILES_ID ! file name parameters C...Arguments INTEGER, INTENT( IN ) :: JDATE ! current model date, coded YYYYDDD INTEGER, INTENT( IN ) :: JTIME ! current model time, coded HHMMSS INTEGER, INTENT( IN ) :: TSTEP ! output time step C...Local variables CHARACTER( 16 ), SAVE :: PNAME = 'OPPHOT' CHARACTER( 16 ) :: LAMBDA CHARACTER( 96 ) :: XMSG = ' ' INTEGER N, L, JWL ! loop variables C----------------------------------------------------------------------- C...Try to open existing file for update IF ( .NOT. OPEN3( CTM_RJ_2, FSRDWR3, PNAME ) ) THEN XMSG = 'Could not open ' // CTM_RJ_2 // ' file for update - ' & // 'try to open new' CALL M3MESG ( XMSG ) C...Set output file characteristics based on COORD.EXT and open C... the photolysis diagnostic file FTYPE3D = GRDDED3 SDATE3D = JDATE STIME3D = JTIME TSTEP3D = TSTEP NVARS3D = NPHOTAB NCOLS3D = GL_NCOLS NROWS3D = GL_NROWS NLAYS3D = NLAYS NTHIK3D = 1 GDTYP3D = GDTYP_GD P_ALP3D = P_ALP_GD P_BET3D = P_BET_GD P_GAM3D = P_GAM_GD XORIG3D = XORIG_GD YORIG3D = YORIG_GD XCENT3D = XCENT_GD YCENT3D = YCENT_GD XCELL3D = XCELL_GD YCELL3D = YCELL_GD VGTYP3D = VGTYP_GD VGTOP3D = VGTOP_GD GDNAM3D = GRID_NAME ! from HGRD_DEFN DO L = 1, NLAYS3D + 1 VGLVS3D( L ) = VGLVS_GD( L ) END DO FDESC3D( 1 ) = 'Photolysis rates file output' DO N = 2, MXDESC3 FDESC3D( N ) = ' ' END DO C...load data from photolysis reaction list DO N = 1, NPHOTAB VNAME3D( N ) = PHOTAB( N ) VTYPE3D( N ) = M3REAL UNITS3D( N ) = 'min-1' VDESC3D( N ) = 'Photolysis rates for ' // VNAME3D( N ) END DO C...Open the 2nd photolysis diagnostic file IF ( .NOT. OPEN3( CTM_RJ_2, FSNEW3, PNAME ) ) THEN XMSG = 'Could not create '// CTM_RJ_2 // ' file' CALL M3EXIT ( PNAME, SDATE3D, STIME3D, XMSG, XSTAT1 ) END IF END IF RETURN END SUBROUTINE OPPHOT ================================================ FILE: CCTM/src/phot/table/phot.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE PHOT ( CGRID, JDATE, JTIME, DTSTEP ) C---------------------------------------------------------------------- C Function: C PHOT, adapted from RADM, calculates the photolysis rate constants C to be used by the chemical solver. C It uses linear interpolation in time of day, height, and latitude C from file tabular values and optionally adjusts photolysis rates C above, below and in cumulus clouds. C Preconditions: HGRD_INIT() called from PAR_INIT, which is called from DRIVER C Subroutines/Functions called: opphot C Revision history: C prototype(adaptation from RADM), Rohit Mathur, April 1993. C major mods, Jeff Young, May 1994 - annotated and/or "c" in col 1 C Some argument data are interpolated data and have not been stride- C offset in their leading dimension (July, 1994). C Modified by Jerry Gipson in June, 1995 to be consistent with C Gear solver code C Modified by Shawn Roselle (Sept/Oct 1995) to read new photolysis C table C Jeff - 22 Aug 96 C modified by S. Roselle (10/16/97) to use a new formula for calculating C the optical depth C Jeff - 3 June 98 - generalize for phot. reactions tables C 02 October, 1998 by Al Bourgeois at LM: parallel implementation C 23 October, 1998 by Al Bourgeois to use SUM_CHK for parallel sum. C 30 Mar 01 J.Young: dyn alloc - Use HGRD_DEFN; allocatable arrays; C replace INTERP3 with INTERPX C 31 Jan 05 J.Young: dyn alloc - establish both horizontal & vertical C domain specifications in one module C 01 Dec 08 S.Roselle: dynamic allocation of arrays in jvalue input file: C allows for northern and southern hemisphere CMAQ C applications (issue reported by Erick Sperandio) C 23 Feb 11 S.Roselle: Replaced I/O API include files with UTILIO_DEFN C 06 Apr 11 B.Hutzell: added code that opens and writes photolysis rates C to an optional diagnostic file C 07 Jul 14 B.Hutzell: replaced mechanism include file(s) with fortran module C Aug 12, 15 D. Wong: Replaced MYPE with IO_PE_INCLUSIVE for parallel I/O implementation C Mar 12, 19 D. Wong: Implemented centralized I/O approach, removed all MY_N clauses C C---------------------------------------------------------------------- USE GRID_CONF ! horizontal & vertical domain specifications USE RXNS_DATA ! chemical mechanism data USE UTILIO_DEFN ! IO and other utility routines USE PHOT_MOD ! Module with photolysis rate arrays and pointers USE CENTRALIZED_IO_MODULE, ONLY : INTERPOLATE_VAR, LAT, LON, HT USE RUNTIME_VARS, ONLY : PHOTDIAG, START_DATE => STDATE, START_TIME => STTIME #ifdef parallel USE SE_MODULES ! stenex (using SE_UTIL_MODULE) #else USE NOOP_MODULES ! stenex (using NOOP_UTIL_MODULE) #endif IMPLICIT NONE C include files: INCLUDE SUBST_FILES_ID ! file name parameters INCLUDE SUBST_CONST ! physical constants C arguments: REAL, POINTER :: CGRID( :,:,:,: ) ! Species concentrations INTEGER, INTENT( IN ) :: JDATE ! current Julian date (YYYYDDD) INTEGER, INTENT( IN ) :: JTIME ! current time (HHMMSS) INTEGER, INTENT( IN ) :: DTSTEP( : ) ! time step vector (HHMMSS) C local parameters: INTEGER, PARAMETER :: ONE = 1.0E0 ! numerical 1.0 REAL, PARAMETER :: MAOMW = MWAIR / MWWAT ! m.w. of air over m.w. of H2O C external functions: none C saved local variables: LOGICAL, SAVE :: FIRSTIME = .TRUE. ! Flag for first call to PHOT INTEGER, SAVE :: LOC_STDATE ! Julian date INTEGER, SAVE :: LOC_STTIME ! current time INTEGER, SAVE :: JPHOT ! # of photolytic reactions INTEGER, SAVE :: JVHT ! number of vertical levels INTEGER, SAVE :: JVTMAX ! number of hour angles INTEGER, SAVE :: JVLAT ! number of latitudes INTEGER, ALLOCATABLE, SAVE :: PHID( : ) ! index of phot tab name in file list REAL, SAVE :: STRTHR ! starting GMT hour REAL, SAVE :: JDSTRT ! current Julian day (DDD) REAL, ALLOCATABLE, SAVE :: XJVAL( :,:,:,: ) ! file jvalues REAL, ALLOCATABLE, SAVE :: XHAJV ( : ) ! hours from noon REAL, ALLOCATABLE, SAVE :: XLATJV( : ) ! latitudes of file photolytic rates REAL, ALLOCATABLE, SAVE :: XZJV ( : ) ! vertical heights of file photolytic REAL, ALLOCATABLE, SAVE :: ACLD ( : ) ! ?????????? REAL, ALLOCATABLE, SAVE :: ZM ( :,:,: ) ! layer half height agl [m] CHARACTER( 16 ), SAVE :: PNAME = 'PHOT' CHARACTER( 16 ), ALLOCATABLE, SAVE :: PHOTNM( : ) LOGICAL :: NDARK ! Are all cells in darkness? C scratch local variables: CHARACTER( 16 ) :: J2FILE = 'XJ_DATA' CHARACTER( 16 ) :: VARNM CHARACTER( 80 ) :: VARDESC ! env var description CHARACTER( 120 ) :: XMSG = ' ' INTEGER JVUNIT INTEGER JVDATE ! Julian date on JVALUE file INTEGER :: CLDATT = 1 ! flag for cloud attenuation; 1=on,0=off INTEGER NDAYS ! local day angle INTEGER NT ! time loop index INTEGER NHT ! height loop index INTEGER NLAT ! latitude loop index INTEGER NPHOT ! photolysis rate loop index INTEGER NHTO ! dummy file height var INTEGER NLATO ! dummy file lat var INTEGER NPHOTO ! dummy file photolysis rate var INTEGER ROW INTEGER COL INTEGER LEV INTEGER JP ! loop indices INTEGER JVTM ! hour angle interpolation index INTEGER JLATN ! latitude interpolation index INTEGER KHTA ! altitude interpolation index INTEGER IOST ! i/o status code INTEGER ALLOCSTAT INTEGER ESTAT ! status from environment var check INTEGER ITMSTEP ! one half synchronization timestep (sec) INTEGER MDATE ! Date at time step midpoint INTEGER MTIME ! Time at time step midpoint REAL CURRHR ! current GMT hour REAL THETA ! function dummy argument REAL INCANG ! sun inclination angle REAL FTIMO ! hour angle interpolation weight REAL OMFTIMO ! 1 - FTIMO REAL FLATS ! latitude interpolation weight REAL OMFLATS ! 1 - FLATS REAL ZHT ! ht. of model layer above sea level REAL FHTA ! altitude interpolation weight REAL OMFHTA ! 1 - FHTA REAL LWP ! liquid water path--lwc*dz (g/m2) REAL JVAL ! interpolated J-values REAL CTOP ! cloud top in single dimension REAL CBASE ! cloud base in single dimension REAL ZLEV ! height in single dimension REAL CLDFR ! total fractional cloud coverage REAL CLOD ! cloud optical depth REAL ZEN ! cosine of zenith angle REAL TRANS ! transmitivity REAL FCLDA ! above cloud top factor REAL FCLDB ! below cloud base factor REAL ZREL ! in cloud height REAL X1 ! cloud attenuation interpolation term REAL X2 ! cloud attenuation interpolation term REAL FCLD ! cloud photolytic atten factor REAL JWT ( 8 ) ! combined interpolation weight REAL XLHA ( NCOLS, NROWS ) ! local hour angle REAL WBAR ( NCOLS, NROWS ) ! avg cloud liq water cont (g/m**3) REAL CLDT ( NCOLS, NROWS ) ! cloud top, as K index REAL CLDB ( NCOLS, NROWS ) ! cloud bottom, as K index REAL CFRAC( NCOLS, NROWS ) ! total fractional cloud coverage ! REAL ZM ( NCOLS, NROWS, NLAYS ) ! Mid-layer ht. agl (m) REAL DUMP ! dump unwanted data read INTEGER, SAVE :: TSTEP ! current timestep ! variables determining whether to write output diagnostics LOGICAL :: JTIME_CHK ! To check for JTIME to write RJ values INTEGER, SAVE :: ODATE ! output date INTEGER, SAVE :: OTIME ! output time INTEGER, SAVE :: OSTEP ! time since last write diagnostics C internal functions: REAL SINE ! sine of angle given in degrees REAL COSINE ! cosine of angle given in degrees SINE ( THETA ) = SIN ( PI180 * THETA ) COSINE ( THETA ) = COS ( PI180 * THETA ) C---------------------------------------------------------------------- IF ( FIRSTIME ) THEN FIRSTIME = .FALSE. LOC_STDATE = JDATE LOC_STTIME = JTIME STRTHR = FLOAT ( JTIME / 10000 ) JDSTRT = FLOAT ( MOD ( JDATE, 1000 ) ) TSTEP = DTSTEP( 1 ) ! output timestep for photolysis diagnostic files JVUNIT = GETEFILE( J2FILE, .TRUE., .TRUE., PNAME ) IF ( JVUNIT .LT. 0 ) THEN XMSG = 'Error opening JVALUE file' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF C...read julian start date from the file.............................. READ( JVUNIT, *, IOSTAT = IOST ) JVDATE XMSG = 'Error reading file header from JVALUE file' IF ( IOST .NE. 0 ) & CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) C...note differences in start dates to the log XMSG = 'Date on JVALUE file differs from model start date' IF ( JVDATE .NE. LOC_STDATE ) & CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT2 ) C...read number of levels............................................. READ( JVUNIT, *, IOSTAT = IOST ) JVHT XMSG = 'Error reading number of LEVELS from JVALUE file' IF ( IOST .NE. 0 ) & CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) C...allocate arrays dependent on number of levels ALLOCATE ( XZJV( JVHT ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating XZJV' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF C...read levels READ( JVUNIT, *, IOSTAT = IOST ) ( XZJV( NHT ), NHT=1, JVHT ) XMSG = 'Error reading LEVELS from JVALUE file' IF ( IOST .NE. 0 ) & CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) C...read number of latitude bands..................................... READ( JVUNIT, *, IOSTAT = IOST ) JVLAT XMSG = 'Error reading number of LATITUDES from JVALUE file' IF ( IOST .NE. 0 ) & CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) C...allocate arrays dependent on number of latitudinal bands ALLOCATE ( XLATJV( JVLAT ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating XLATJV' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF C...read latitude bands READ( JVUNIT, *, IOSTAT = IOST ) ( XLATJV( NLAT ), & NLAT=1, JVLAT ) XMSG = 'Error reading LATITUDES from JVALUE file' IF ( IOST .NE. 0 ) & CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) C...read hour number angles........................................... READ( JVUNIT, *, IOSTAT = IOST ) JVTMAX XMSG = 'Error reading number of HOURS from JVALUE file' IF ( IOST .NE. 0 ) & CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) C...allocate arrays dependent on number of hour angles ALLOCATE ( XHAJV( JVTMAX ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating XHAJV' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF C...read hour angles READ( JVUNIT, *, IOSTAT = IOST ) ( XHAJV( NT ), NT=1, JVTMAX ) XMSG = 'Error reading HOURS from JVALUE file' IF ( IOST .NE. 0 ) & CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) C...read number of reactions.......................................... READ( JVUNIT, *, IOSTAT = IOST ) JPHOT XMSG = 'Error reading number of REACTIONS from JVALUE file' IF ( IOST .NE. 0 ) & CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) C...make sure number of reactions is correct XMSG = 'Photolysis reactions on JVALUE file do not ' & //'match the expected list (NPHOTAB)' IF ( JPHOT .NE. NPHOTAB ) & CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT2 ) C...allocate arrays dependent on number of photolysis reactions ALLOCATE ( PHOTNM( JPHOT ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating PHOTNM' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF ALLOCATE ( ACLD( JPHOT ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating ACLD' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF ALLOCATE ( PHID( JPHOT ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating PHID' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF C...read reaction id's and ACLD array XMSG = 'Error reading REACTIONS and ACLD from JVALUE file' DO NPHOT = 1, JPHOT READ( JVUNIT, *, IOSTAT = IOST ) PHOTNM( NPHOT ), & ACLD( NPHOT ) IF ( IOST .NE. 0 ) & CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END DO C...check the file list DO NPHOT = 1, JPHOT PHID( NPHOT ) = 0 END DO XMSG = 'File data does not have all required phot tables' DO NPHOT = 1, NPHOTAB PHID( NPHOT ) = INDEX1( PHOTAB( NPHOT ), JPHOT, PHOTNM ) IF ( PHID( NPHOT ) .LE. 0 ) & CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END DO C...allocate the XJVAL array ALLOCATE ( XJVAL( JPHOT, JVTMAX, JVLAT, JVHT ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating XJVAL' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF C...read the j-values XMSG = 'Error reading jvalues from JVALUE file' DO NHT = 1, JVHT DO NLAT = 1, JVLAT DO NPHOT = 1, JPHOT READ( JVUNIT, *, IOSTAT = IOST ) NHTO, NLATO, NPHOTO IF ( IOST .NE. 0 ) & CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) IF ( PHID( NPHOT ) .NE. 0 ) THEN READ( JVUNIT, *, IOSTAT = IOST ) & ( XJVAL( PHID( NPHOT ), NT, NLAT, NHT ), NT = 1, JVTMAX ) IF ( IOST .NE. 0 ) & CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) ELSE READ( JVUNIT, *, IOSTAT = IOST ) DUMP IF ( IOST .NE. 0 ) & CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF END DO END DO END DO C...close the jvalue file CLOSE ( JVUNIT ) ALLOCATE ( ZM( NCOLS,NROWS, NLAYS ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating LAT' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF CALL INIT_PHOT_SHARED() ALLOCATE( ELMO_AOD_550 ( NCOLS,NROWS ) ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating 2D ELMO_AOD_550. Note that it is not used by this phot_table module' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF ELMO_AOD_550 = 0.0 ALLOCATE ( ELMO_EXT_550( NCOLS,NROWS,NLAYS ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating 3D ELMO_EXT_550. Note that it is not used by this phot_table module' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF ELMO_EXT_550 = 0.0 IF ( PHOTDIAG ) THEN C...open the photolysis rate diagnostic files ODATE = START_DATE; OTIME = START_TIME; OSTEP = 0 #ifdef phot_write_start IF ( IO_PE_INCLUSIVE ) CALL OPPHOT ( ODATE, OTIME, DTSTEP( 1 ) ) #else CALL NEXTIME ( ODATE, OTIME, DTSTEP( 1 ) ) ! output timestamp ending time IF ( IO_PE_INCLUSIVE ) CALL OPPHOT ( ODATE, OTIME, DTSTEP( 1 ) ) ! reset ODATE and OTIME for counting ODATE = START_DATE; OTIME = START_TIME #endif END IF ! photdiag #ifdef parallel_io IF ( .NOT. IO_PE_INCLUSIVE ) THEN IF ( .NOT. OPEN3( CTM_RJ_2, FSNONIO, PNAME ) ) THEN XMSG = 'Could not open ' // TRIM(CTM_RJ_2) CALL M3EXIT( PNAME, ODATE, OTIME, XMSG, XSTAT1 ) END IF END IF #endif CALL SUBST_BARRIER END IF ! FIRSTIME C...compute XLHA (local hr angle) deviation from noon C... correct for current *positive* West longitude convention IF ( PHOTDIAG ) THEN OSTEP = OSTEP + TIME2SEC( DTSTEP( 2 ) ) JTIME_CHK = ( OSTEP .GE. TIME2SEC( DTSTEP( 1 ) ) ) IF ( JTIME_CHK ) THEN OSTEP = 0 CALL NEXTIME( ODATE, OTIME, DTSTEP( 1 ) ) END IF #ifdef phot_write_start JTIME_CHK = ( ODATE .EQ. STDATE .AND. OTIME .EQ. STTIME ) #endif ELSE JTIME_CHK = .FALSE. END IF CURRHR = STRTHR & + FLOAT ( SECSDIFF ( LOC_STDATE, LOC_STTIME, JDATE, JTIME ) ) & / 3600.0 NDARK = .TRUE. DO ROW = 1, NROWS DO COL = 1, NCOLS XLHA( COL, ROW ) = CURRHR + LON( COL, ROW ) / 15.0 - 12.0 NDAYS = NINT ( XLHA( COL, ROW ) / 24.0 ) XLHA( COL, ROW ) = ABS ( XLHA( COL, ROW ) - NDAYS * 24.0 ) IF ( XLHA( COL, ROW ) .LE. XHAJV( JVTMAX ) ) NDARK = .FALSE. END DO END DO C...If sun below horizon at all cells, zero photolysis rates & exit C... (assumes sun below horizon at *all* levels!) IF ( NDARK ) THEN DO JP = 1, NPHOTAB DO LEV = 1, NLAYS DO ROW = 1, NROWS DO COL =1, NCOLS RJ( COL, ROW, LEV, JP ) = 0.0 END DO END DO END DO END DO WRITE( LOGDEV, 1003) JDATE, JTIME 1003 FORMAT( 8X, 'In darkness at ', I8.7, ':', I6.6, & 1X, 'GMT - no photolysis') IF ( PHOTDIAG .AND. JTIME_CHK ) THEN DO JP = 1, NPHOTAB IF ( .NOT. WRITE3( CTM_RJ_2, PHOTAB( JP ), JDATE, & JTIME, RJ( :,:,:,JP ) ) ) THEN XMSG = 'Could not write ' // CTM_RJ_2 // ' file' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF END DO WRITE( LOGDEV, '( /5X, 3( A, :, 1X ), I8, ":", I6.6 )' ) & 'RJ Values written to', CTM_RJ_2, & 'for date and time', JDATE, JTIME END IF ! if photdiag .and. jtime_chk .eq. 0 RETURN END IF C...Calculate mid date and time MDATE = JDATE MTIME = JTIME ITMSTEP = TIME2SEC( DTSTEP( 2 ) ) / 2 CALL NEXTIME( MDATE, MTIME, SEC2TIME( ITMSTEP ) ) C...Get heights of each level call interpolate_var ('ZH', mdate, mtime, ZM) C...compute clear-sky photolysis rates DO ROW = 1, NROWS DO COL = 1, NCOLS C...Compute interpolation indices and weighting factors C... hr angle interpolation indices JVTM = 2 DO NT = 2, JVTMAX - 1 IF ( XLHA( COL, ROW ) .GT. XHAJV( NT ) ) & JVTM = NT + 1 END DO C...hr angle weighting factors FTIMO = ( XHAJV( JVTM ) - XLHA( COL, ROW ) ) & / ( XHAJV( JVTM ) - XHAJV( JVTM - 1 ) ) OMFTIMO = ONE - FTIMO c...latitude interpolation indices JLATN = 2 DO NLAT = 2, JVLAT - 1 IF ( LAT( COL, ROW ) .GT. XLATJV( NLAT ) ) & JLATN = NLAT + 1 END DO C...latitude weighting factors FLATS = ( XLATJV( JLATN ) - LAT( COL, ROW ) ) & / ( XLATJV( JLATN ) - XLATJV( JLATN - 1 ) ) OMFLATS = ONE - FLATS C...height interpolation indices DO LEV = 1, NLAYS ZHT = ZM( COL, ROW, LEV ) + HT( COL, ROW ) ZHT = MIN ( MAX ( ZHT, XZJV( 1 ) ), XZJV( JVHT ) ) KHTA = 2 DO NHT = 2, JVHT - 1 IF ( ZHT .GT. XZJV( NHT ) ) KHTA = NHT + 1 END DO C...height weighting factors FHTA = ( XZJV( KHTA ) - ZHT ) & / ( XZJV( KHTA ) - XZJV( KHTA - 1 ) ) OMFHTA = ONE - FHTA C...linear interpolation weighting factors JWT( 1 ) = OMFTIMO * OMFLATS * OMFHTA JWT( 2 ) = FTIMO * OMFLATS * OMFHTA JWT( 3 ) = OMFTIMO * FLATS * OMFHTA JWT( 4 ) = FTIMO * FLATS * OMFHTA JWT( 5 ) = OMFTIMO * OMFLATS * FHTA JWT( 6 ) = FTIMO * OMFLATS * FHTA JWT( 7 ) = OMFTIMO * FLATS * FHTA JWT( 8 ) = FTIMO * FLATS * FHTA C...Interpolate all photolysis rates at each COL, ROW DO JP = 1, NPHOTAB JVAL = JWT( 1 ) * XJVAL( JP, JVTM, JLATN, KHTA ) & + JWT( 2 ) * XJVAL( JP, JVTM - 1, JLATN, KHTA ) & + JWT( 3 ) * XJVAL( JP, JVTM, JLATN - 1, KHTA ) & + JWT( 4 ) * XJVAL( JP, JVTM - 1, JLATN - 1, KHTA ) & + JWT( 5 ) * XJVAL( JP, JVTM, JLATN, KHTA - 1 ) & + JWT( 6 ) * XJVAL( JP, JVTM - 1, JLATN, KHTA - 1 ) & + JWT( 7 ) * XJVAL( JP, JVTM, JLATN - 1, KHTA - 1 ) & + JWT( 8 ) * XJVAL( JP, JVTM - 1, JLATN - 1, & KHTA - 1 ) RJ( COL, ROW, LEV, JP ) = MAX ( JVAL, 0.0 ) END DO END DO ! LEV END DO ! COL END DO ! ROW C...At this point, clear sky photolysis rates have been calculated. C... Only proceed if interested in cloud effects on RJ IF ( CLDATT .NE. 0 ) THEN C...Get time dependent non-layered data C...Read & Interpolate WBAR call interpolate_var ('WBAR', mdate, mtime, WBAR) C..Read & Interpolate CLDT call interpolate_var ('CLDT', mdate, mtime, CLDT) C..Read & Interpolate CLDB call interpolate_var ('CLDB', mdate, mtime, CLDB) C...Read & Interpolate CFRAC call interpolate_var ('CFRAC', mdate, mtime, CFRAC) C...inclination angle used for zenith angle calculation INCANG = 23.5 * SINE ( ( JDSTRT + CURRHR / 24.0 - 81.1875 ) & * ( 90.0 / 91.3125 ) ) C...loop through all cell and make the cloud correction DO ROW = 1, NROWS DO COL = 1, NCOLS CLDFR = CFRAC( COL, ROW ) IF ( CLDFR .GE. 1.0E-05 ) THEN C...calculate cloud correction factors C... first compute the liquid water path in g/m2 CTOP = CLDT( COL, ROW ) CBASE = CLDB( COL, ROW ) LWP = ( CTOP - CBASE ) * WBAR( COL, ROW ) C...Calculate the cloud optical depth using a formula derived from C... Stephens (1978), JAS(35), pp2111-2132. C... only calculate the cloud optical depth when the liquid water C... path is >= 10 g/m2 IF ( LWP .GE. 10.0 ) THEN CLOD = 10.0**( 0.2633 + 1.7095 * LOG( LOG10( LWP ) ) ) ELSE CLOD = 0.0 END IF C...If no cloud or optical depth < 5, set clear sky values. C... (i.e. don't do anything) IF ( CLOD .GE. 5.0 ) THEN DO LEV = 1, NLAYS ZLEV = ZM( COL, ROW, LEV ) ZREL = ( ZLEV - CBASE ) / ( CTOP - CBASE ) C...cos of the zenith angle, ( <= cos 60 degrees ) ZEN = MAX ( SINE ( LAT( COL, ROW ) ) * SINE ( INCANG ) & + COSINE ( LAT( COL, ROW ) ) & * COSINE ( INCANG ) & * COSINE ( XLHA( COL, ROW ) * 15.0 ), & 0.5 & ) TRANS = ( 5.0 - EXP ( -CLOD ) ) / ( 4.0 + 0.42 * CLOD ) C...calculate cloud correction factors C... below cloud base FCLDB = 1.0 + CLDFR * ( 1.6 * ZEN * TRANS - 1.0 ) X1 = CLDFR * ZEN * ( 1.0 - TRANS ) X2 = FCLDB * ( 1.0 - ZREL ) C... above cloud top DO JP = 1, NPHOTAB FCLDA = 1.0 + X1 * ACLD( PHID( JP ) ) C... in cloud - linearly interpolate between base and top value FCLD = FCLDA * ZREL + X2 IF ( ZLEV .LT. CBASE ) FCLD = FCLDB IF ( ZLEV .GT. CTOP ) FCLD = FCLDA RJ( COL, ROW, LEV, JP ) = FCLD & * RJ( COL, ROW, LEV, JP ) RJ_RES( COL, ROW, LEV, JP ) = RJ( COL, ROW, LEV, JP ) RJ_SUB( COL, ROW, LEV, JP ) = RJ( COL, ROW, LEV, JP ) END DO END DO END IF END IF END DO END DO END IF IF ( PHOTDIAG .AND. JTIME_CHK ) THEN DO JP = 1, NPHOTAB IF ( .NOT. WRITE3( CTM_RJ_2, PHOTAB( JP ), ODATE, OTIME, RJ( :,:,:,JP ) ) ) THEN XMSG = 'Could not write ' // CTM_RJ_2 // ' file' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF END DO WRITE( LOGDEV, '( /5X, 3( A, :, 1X ), I8, ":", I6.6 )' ) & 'RJ Values written to', CTM_RJ_2, & 'for date and time', JDATE, JTIME END IF ! if photdiag .and. jtime_chk .eq. 0 RETURN END ================================================ FILE: CCTM/src/plrise/smoke/delta_zs.f ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/CCTM/src/plrise/smoke/delta_zs.f,v 1.2 2011/10/21 16:11:30 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE DELTA_ZS( EMLAYS, MY_NSRC, SRC_MAP, STKHT, ZF, ZSTK, DDZF ) C----------------------------------------------------------------------- C Function: Compute ZSTK and DDZF C Revision History: C 20 Nov 2007 J.Young: initial implementation C Aug 2015 D. Wong: Used assumed shape array declaration C----------------------------------------------------------------------- IMPLICIT NONE INTEGER, INTENT( IN ) :: EMLAYS INTEGER, INTENT( IN ) :: MY_NSRC INTEGER, INTENT( IN ) :: SRC_MAP( : ) REAL, INTENT( IN ) :: STKHT( : ) REAL, INTENT( IN ) :: ZF ( :,: ) REAL, INTENT( OUT ) :: ZSTK( :,: ) REAL, INTENT( OUT ) :: DDZF( :,: ) REAL ZF0, ZF1 INTEGER L, S, SRC DO S = 1, MY_NSRC SRC = SRC_MAP( S ) ZF0 = ZF( 1,S ) ZSTK( 1,S ) = ZF0 - STKHT( SRC ) DDZF( 1,S ) = 1.0 / ZF0 DO L = 2, EMLAYS ZF1 = ZF( L,S ) ZSTK( L,S ) = ZF1 - STKHT( SRC ) DDZF( L,S ) = 1.0 / ( ZF1 - ZF0 ) ZF0 = ZF1 END DO END DO RETURN END SUBROUTINE DELTA_ZS ================================================ FILE: CCTM/src/plrise/smoke/fire_plmris.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE FIRE_PLMRIS( EMLAYS, LSTK, HFX, HMIX, & BFLX, & TSTK, USTAR, DTHDZ, TA, WSPD, & ZF, WSTK, ZPLM ) C----------------------------------------------------------------------- C Description: C computes final effective plume centerline height. C Preconditions: C meteorology and stack parameters C Subroutines and Functions called: C Revision History: C Prototype 12/95 by CJC, based on Briggs algorithm adapted from C RADM 2.6 subroutine PLUMER() (but with completely different C data structuring). C Copied from plmris.F 4.4 by M Houyoux 3/99 C Aug 2015, D. Wong: Used assumed shape array declaration C Jan 2022, D. Wong: variable FIRSTIME is obsolete C----------------------------------------------------------------------- C Modified from: C Project Title: Sparse Matrix Operator Kernel Emissions (SMOKE) Modeling System C File: @(#)$Id: fire_plmris.F,v 1.2 2011/10/21 16:11:30 yoj Exp $ C COPYRIGHT (C) 2002, MCNC Environmental Modeling Center C All Rights Reserved C See file COPYRIGHT for conditions of use. C Environmental Modeling Center C MCNC C P.O. Box 12889 C Research Triangle Park, NC 27709-2889 C smoke@emc.mcnc.org C Pathname: $Source: /project/yoj/arc/CCTM/src/plrise/smoke/fire_plmris.F,v $ C Last updated: $Date: 2011/10/21 16:11:30 $ C----------------------------------------------------------------------- USE RUNTIME_VARS, ONLY : LOGDEV IMPLICIT NONE C Includes: INCLUDE SUBST_CONST ! physical and mathematical constants C Arguments: INTEGER, INTENT( IN ) :: EMLAYS ! no. of emission layers INTEGER, INTENT( IN ) :: LSTK ! lyr of top of fire, = RADM's KSTK REAL, INTENT( IN ) :: HFX ! sensible heat flux [m K/s] REAL, INTENT( IN ) :: HMIX ! mixing height [m] REAL, INTENT( IN ) :: BFLX ! Buoyancy Flux [m**4/s**3] REAL, INTENT( IN ) :: TSTK ! tmptr at top of fire [deg K] REAL, INTENT( IN ) :: USTAR ! friction velocity [m/s] REAL, INTENT( IN ) :: DTHDZ( : ) ! gradient of THETV REAL, INTENT( IN ) :: TA ( : ) ! temperature [deg K] REAL, INTENT( IN ) :: WSPD ( : ) ! wind speed [m/s] REAL, INTENT( IN ) :: ZF ( 0: ) ! layer surface height [m] REAL, INTENT( INOUT ) :: WSTK ! wind speed @ top of fire [m/s] ! OUT for reporting, only REAL, INTENT( OUT ) :: ZPLM ! initially, plume top height above fire, ! finally, plume centerline height [m] ! can be greater than the top of EMLAYS C Parameters: REAL, PARAMETER :: HCRIT = 1.0E-4 * 0.03 ! hfx min * tolerance REAL, PARAMETER :: SMALL = 3.0E-5 ! Criterion for stability REAL, PARAMETER :: D3 = 1.0 / 3.0 ! 1/ 3 REAL, PARAMETER :: D6 = 1.0 / 6.0 ! 1/6 REAL, PARAMETER :: D45 = 1.0 / 45.0 ! 1/45 REAL, PARAMETER :: D2664 = 1.0 / 2.664 ! 1/ 2.664 REAL, PARAMETER :: D59319 = 1.0 / 59.319 ! 1/59.319 REAL, PARAMETER :: TWOTHD = 2.0 / 3.0 ! 2/3 REAL, PARAMETER :: FIVETHD = 5.0 / 3.0 ! 5/3 REAL, PARAMETER :: NODIV0 = 1.0 ! Prevent divide by zero REAL, PARAMETER :: ZERO = 0.0 C Local Variables: INTEGER IQ ! stability class: 1-unstable, 2-neutral, 3-stable INTEGER LPLM ! first L: ZH(L) > Plume height ! same as RADM's KPR INTEGER NN ! Counter for interations through layers REAL DH ! plume rise increment to center of the plume REAL DHM ! plume rise from momentum REAL DHSM ! stable momentum plume rise REAL DHN ! plume rise for neutral case REAL DHT ! plume rise increment to the top of the plume REAL HSTAR ! convective scale at fire (m**2/s**3) REAL PX, RX, SX ! scratch coefficients REAL RBFLX ! residual buoyancy flux (m**4/s**3) REAL TPLM ! temperature at top of plume (m/s) REAL WPLM ! wind speed at top of plume (m/s) REAL ZMIX ! hmix - hs C Statement Functions: REAL B, S, U, US ! arguments REAL NEUTRL ! neutral-stability plume rise function REAL STABLE ! stable plume rise function REAL UNSTBL ! unstable plume rise function NEUTRL( B, U, US ) = 1.3327804 * B / ( U * US * US ) STABLE( B, U, S ) = 2.6 * ( B / ( U * S ) ) ** D3 UNSTBL( B, U ) = 30.0 * ( B / U ) ** 0.6 C----------------------------------------------------------------------- C Compute convective scale. HSTAR = GRAV * HFX / TA( 1 ) ! Using surface temperature is correct C Initialize layer of plume LPLM = LSTK C Compute momentum rise ( set min wind speed to 1 m/s) WSTK = MAX( WSTK, 1.0 ) DHM = ZERO C Compute initial plume rise from fire top to next level surface: IF ( HSTAR .GT. HCRIT ) THEN ! unstable case: ZMIX = HMIX IF ( ZMIX .LE. 0.0 ) THEN ! Fire above mixing height: SX = MAX( GRAV * DTHDZ( LPLM ) / TSTK, SMALL ) C Reset the wind speed at fire to the wind speed at plume when the layer C of the plume is not equal to the layer of the fire. IF ( LPLM .NE. LSTK ) THEN WSTK = WSPD( LPLM ) IF ( WSTK .EQ. 0.0 ) WSTK = NODIV0 END IF C Compute the stable momentum rise, for layer of the fire. IF ( DTHDZ( LPLM ) .GT. 0.001 ) THEN DHSM = ZERO ELSE DHSM = DHM ! Set it to DHM, if THGRAD too small END IF DHM = MIN( DHSM, DHM ) C Compute the neutral and stable plume rises. DHN = NEUTRL( BFLX, WSTK, USTAR ) DH = STABLE( BFLX, WSTK, SX ) IF ( DHN .LT. DH ) THEN ! Take the minimum of neutral and stable DH = DHN IQ = 2 ELSE IQ = 3 END IF IF ( DHM .GT. DH .AND. WSTK .GT. 1.0 ) THEN DH = DHM IQ = 4 END IF DHT = 1.5 * DH ELSE ! unstable case: DH = UNSTBL( BFLX, WSTK ) DHN = NEUTRL( BFLX, WSTK, USTAR ) IF ( DHN .LT. DH ) THEN DH = DHN IQ = 2 ELSE IQ = 1 END IF IF ( DHM .GT. DH .AND. WSTK .GT. 1.0 ) THEN DH = DHM IQ = 4 END IF DHT = 1.5 * DH END IF ELSE IF ( HSTAR .LT. -HCRIT .OR. DTHDZ( LSTK ) .GT. 0.001 ) THEN ! stable case: SX = MAX( GRAV * DTHDZ( LSTK ) / TSTK, SMALL ) DHT = 1.5 * STABLE( BFLX, WSTK, SX ) DHN = 1.5 * NEUTRL( BFLX, WSTK, USTAR ) IF ( DHN .LT. DHT ) THEN DHT = DHN IQ = 2 ELSE IQ = 3 END IF ELSE ! neutral case: DHT = 1.5 * NEUTRL( BFLX, WSTK, USTAR ) IQ = 2 END IF ! hstar ==> unstable, stable, or neutral C Compute further plume rise from between level surfaces: NN = 0 RBFLX = BFLX ZPLM = DHT C End calculations if the momentum rise was used in the calculation IF ( IQ .EQ. 4 ) GO TO 199 ! to point past iterative buoyancy loop DO ! loop computing further plume rise RX = ZPLM - ZF( LPLM ) IF ( RX .LE. 0.0 ) THEN EXIT ! exit plume rise loop END IF IF ( LPLM .EQ. EMLAYS ) THEN ! we're finished ZPLM = MIN( ZPLM, ZF( EMLAYS ) ) WRITE( LOGDEV,'(5X, A, I3, F10.3)' ) & 'Plume rise reached EMLAYS with ZPLM:', EMLAYS, ZPLM EXIT ! exit plume rise loop END IF C Reset met data. NOTE- the original RADM code submitted the C WSPD and TA to an interpolator, but then requested the height of C interpolation identical to ZH( LPLM ). NN = NN + 1 IF ( NN .GT. 1 ) THEN WPLM = WSPD( LPLM ) TPLM = TA ( LPLM ) ELSE ! 1st time, use stack values ... WPLM = WSTK TPLM = TSTK END IF C Compute residual bflx by stability case IQ: IF ( IQ .EQ. 1 ) THEN RX = D45 * RX ! Includes the 1.5 factor for plume top RBFLX = WPLM * ( RX ** FIVETHD ) ELSE IF ( IQ .EQ. 2 ) THEN PX = TWOTHD * ZPLM RBFLX = D2664 * ( RX ** FIVETHD ) * WPLM * ( USTAR * USTAR ) / PX ** TWOTHD ELSE ! else iq = 3: RBFLX = D59319 * WPLM * SX * RX ** 3 END IF ! if stability flag iq is 1, 2, or 3 C Increment the layer number below. IF ( LPLM .LT. EMLAYS ) LPLM = LPLM + 1 WPLM = WSPD( LPLM ) TPLM = TA ( LPLM ) C Prevent divide-by-zero by WPLM IF ( WPLM .EQ. 0.0 ) WPLM = NODIV0 C Process according to stability cases: SX = GRAV * DTHDZ( LPLM ) / TPLM IF ( SX .GT. SMALL ) THEN ! stable case: C Use the theta gradient to determine pr eqn. DHT = 1.5 * STABLE( RBFLX, WPLM, SX ) DHN = 1.5 * NEUTRL( RBFLX, WPLM, USTAR ) IF ( DHN .LT. DHT ) THEN DHT = DHN IQ = 2 ELSE IQ = 3 END IF DH = DHT / 1.5 ELSE ! if upper layer is not stable, use neutral formula DHN = NEUTRL( RBFLX, WPLM, USTAR ) DH = UNSTBL( RBFLX, WPLM ) IQ = 1 IF ( DHN .LT. DH ) THEN DH = DHN IQ = 2 END IF DHT = 1.5 * DH END IF ZPLM = ZF( LPLM-1 ) + DHT DH = ZF( LPLM-1 ) + DH END DO ! end loop computing further plume rise 199 CONTINUE C Compute plume rise amount (DH) and actual final plume centerline height (ZPLM): DH = TWOTHD * ZPLM ZPLM = DH RETURN END SUBROUTINE FIRE_PLMRIS ================================================ FILE: CCTM/src/plrise/smoke/openlayout.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE OPENLAYOUT( SDATE, STIME, TSTEP, EMLAYS, VGLVSXG, & NPTGRPS, MY_NSRC, LNAME ) C----------------------------------------------------------------------- C Description: C Opens the diagnostic layer fractions file(s). C Preconditions: C Subroutines and Functions Called: C I/O API C Revision History: C 16 Feb 2011 S.Roselle: replaced I/O API include files with UTILIO_DEFN C 26 Sep 2016 D.Wong: reformatted PLAY_BASE variable as PLAY_BASE_* C rather than PLAY_BASE*_ C----------------------------------------------------------------------- C Modified from: C Project Title: Sparse Matrix Operator Kernel Emissions (SMOKE) Modeling C System C File: @(#)$Id: openlayout.F,v 1.4 2011/10/21 16:11:30 yoj Exp $ C COPYRIGHT (C) 2002, MCNC Environmental Modeling Center C All Rights Reserved C See file COPYRIGHT for conditions of use. C Environmental Modeling Center C MCNC C P.O. Box 12889 C Research Triangle Park, NC 27709-2889 C smoke@emc.mcnc.org C Pathname: $Source: /project/yoj/arc/CCTM/src/plrise/smoke/openlayout.F,v $ C Last updated: $Date: 2011/10/21 16:11:30 $ C----------------------------------------------------------------------- USE RUNTIME_VARS, ONLY : LOGDEV, PLAY_BASE USE HGRD_DEFN, ONLY: MYPE USE UTILIO_DEFN IMPLICIT NONE C Includes: C Local Parameters: C Arguments: INTEGER, INTENT( IN ) :: SDATE ! Julian start date INTEGER, INTENT( IN ) :: STIME ! start time (HHMMSS) INTEGER, INTENT( IN ) :: TSTEP ! time step (HHMMSS) INTEGER, INTENT( IN ) :: EMLAYS ! number of emissions layers REAL, INTENT( IN ) :: VGLVSXG( 0: ) ! vertical coord values INTEGER, INTENT( IN ) :: NPTGRPS ! number of output files INTEGER, INTENT( IN ) :: MY_NSRC( : ) ! number of point sources CHARACTER( * ), INTENT( OUT ) :: LNAME( : ) ! layer fractions logical file name C Local variables: INTEGER J, N CHARACTER( 256 ) :: XMSG ! buffer for M3EXIT() messages CHARACTER( 16 ) :: PNAME = 'OPENLAYOUT' ! procedure name CHARACTER( 3 ) :: CMYPE CHARACTER( 4 ) :: POSTSTR = '.ncf' CHARACTER( 96 ) :: PLAY_EQ CHARACTER( 96 ) :: EQNAME CHARACTER( 256 ) :: BASE INTEGER :: IOS C----------------------------------------------------------------------- #ifndef mpas C Set up and open diagnostic file(s) FTYPE3D = GRDDED3 SDATE3D = SDATE STIME3D = STIME TSTEP3D = TSTEP NROWS3D = EMLAYS NLAYS3D = 1 NTHIK3D = 1 NVARS3D = 2 GDTYP3D = IMISS3 P_ALP3D = AMISS3 P_BET3D = AMISS3 P_GAM3D = AMISS3 XCENT3D = AMISS3 YCENT3D = AMISS3 XORIG3D = AMISS3 YORIG3D = AMISS3 XCELL3D = AMISS3 YCELL3D = AMISS3 VGTYP3D = IMISS3 VGTOP3D = AMISS3 GDNAM3D = ' ' VNAME3D = ' ' ! array VTYPE3D = 0 ! array UNITS3D = '' ! array VDESC3D = ' ' ! array VNAME3D( 1 ) = 'LFRAC' VTYPE3D( 1 ) = M3REAL UNITS3D( 1 ) = '1' VDESC3D( 1 ) = 'Fraction of plume emitted into layer' VNAME3D( 2 ) = 'ZPLUME' VTYPE3D( 2 ) = M3REAL UNITS3D( 2 ) = '1' VDESC3D( 2 ) = 'plume elevation above ground' VGLVS3D = 0.0 ! array J = LBOUND( VGLVS3D, 1 ) VGLVS3D( J:J+EMLAYS ) = VGLVSXG( 0:EMLAYS ) ! array VGTYP3D = -1 VGTOP3D = 0.0 UPNAM3D = 'DISTR_GRIDDED' ! Mandatory! FDESC3D = ' ' ! array FDESC3D( 1 ) = 'By-source hourly plume rise layer fractions' FDESC3D( 2 ) = '/FROM/ ' // PNAME FDESC3D( 3 ) = '/VERSION/ Inline' WRITE( CMYPE,'(I3.3)' ) MYPE DO N = 1, NPTGRPS IF ( MY_NSRC( N ) .GT. 0 ) THEN NCOLS3D = MY_NSRC( N ) PLAY_EQ = TRIM( PLAY_BASE( N ) ) // '_' // CMYPE // POSTSTR WRITE( LNAME( N ),'( "PLAY_", I2.2 )' ) N IF ( .NOT. SETENVVAR ( LNAME( N ), PLAY_EQ ) ) THEN XMSG = 'Could not set environment variable for ' // PLAY_EQ CALL M3EXIT( PNAME, SDATE, STIME, XMSG, XSTAT3 ) END IF IF ( .NOT. OPEN3( LNAME( N ), FSNEW3, UPNAM3D ) ) THEN XMSG = 'Could not open ' // TRIM( FDESC3D( 1 ) ) // ' file' CALL M3EXIT( PNAME, SDATE, STIME, XMSG, XSTAT1 ) END IF ELSE WRITE( LOGDEV,1009 ) N END IF END DO #endif RETURN 1009 FORMAT( /5X, 'No sources in this subdomain for file sector', I2 & /5X, 'Therefore no plume layer fraction file created' ) END SUBROUTINE OPENLAYOUT ================================================ FILE: CCTM/src/plrise/smoke/oppt3d_diag.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/CCTM/src/plrise/smoke/oppt3d_diag.F,v 1.3 2011/10/21 16:11:31 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE OPPT3D_DIAG( PT3DNAME, TSTEP, & N_SPC, SPEC_NAME, SPEC_UNITS ) C----------------------------------------------------------------------- C Description: C Opens the output 3d point source emissions diagnostic file C Preconditions: C Subroutines and Functions Called: C I/O API C Revision History: C 4 Sep 2007 J.Young: initial C 29 Jan 2010 D. Wong: Eliminate potential race condition at the MYPE = 0 C to open the diagnostic file. Eliminate the BARRIER C and the CLOSE3 and OPEN3. C 16 Feb 2011 S.Roselle: replaced I/O API include files with UTILIO_DEFN C Aug 2015 D. Wong: Replaced MYPE with IO_PE_INCLUSIVE for parallel I/O C implementation C----------------------------------------------------------------------- USE RUNTIME_VARS USE GRID_CONF ! horizontal & vertical domain specifications USE UTILIO_DEFN USE DESID_VARS, ONLY : DESID_LAYS IMPLICIT NONE C Includes: C External Functions: C Local Parameters: C Arguments: CHARACTER( 16 ), INTENT( IN ) :: PT3DNAME ! diagnostic file logical name INTEGER, INTENT( IN ) :: TSTEP ! time step (HHMMSS) INTEGER, INTENT( IN ) :: N_SPC ! number of point source surrogates CHARACTER( 16 ), INTENT( IN ) :: SPEC_NAME( N_SPC ) ! species names CHARACTER( 16 ), INTENT( IN ) :: SPEC_UNITS( N_SPC ) ! units C Local variables: INTEGER L, V, IOS CHARACTER( 256 ) :: XMSG ! buffer for M3EXIT() messages CHARACTER( 256 ) :: RET_VAL ! env var returned value CHARACTER( 16 ) :: PNAME = 'OPPT3DDIAG' ! procedure name C----------------------------------------------------------------------- #ifndef mpas C Set output file characteristics based on GRID_CONF module and open the 3D emis file FTYPE3D = GRDDED3 SDATE3D = STDATE STIME3D = STTIME TSTEP3D = TSTEP NCOLS3D = GL_NCOLS NROWS3D = GL_NROWS NLAYS3D = DESID_LAYS NTHIK3D = 1 NVARS3D = N_SPC GDTYP3D = GDTYP_GD P_ALP3D = P_ALP_GD P_BET3D = P_BET_GD P_GAM3D = P_GAM_GD XORIG3D = XORIG_GD YORIG3D = YORIG_GD XCENT3D = XCENT_GD YCENT3D = YCENT_GD XCELL3D = XCELL_GD YCELL3D = YCELL_GD VGTYP3D = VGTYP_GD VGTOP3D = VGTOP_GD GDNAM3D = GRID_NAME ! from HGRD_DEFN DO L = 1, NLAYS3D + 1 VGLVS3D( L ) = VGLVS_GD( L ) END DO VNAME3D = ' ' ! array DO V = 1, N_SPC VNAME3D( V ) = SPEC_NAME( V ) END DO VTYPE3D = 0 ! array VTYPE3D( 1:NVARS3D ) = M3REAL UNITS3D = ' ' ! array DO V = 1, N_SPC UNITS3D( V ) = SPEC_UNITS( V ) END DO VDESC3D = ' ' ! array DO V = 1, N_SPC VDESC3D( V ) = 'Model species: ' // TRIM( SPEC_NAME( V ) ) END DO FDESC3D = ' ' ! array FDESC3D( 1 ) = 'gridded hourly point source layered emissions' FDESC3D( 2 ) = '/From/ ' // PNAME FDESC3D( 3 ) = '/Version/ Inline' C create header IF ( IO_PE_INCLUSIVE ) THEN ! open new IF ( .NOT. OPEN3( PT3DNAME, FSNEW3, PNAME ) ) THEN XMSG = 'Could not open ' // TRIM( PT3DNAME ) CALL M3EXIT( PNAME, STDATE, STTIME, XMSG, XSTAT1 ) END IF END IF #endif RETURN END SUBROUTINE OPPT3D_DIAG ================================================ FILE: CCTM/src/plrise/smoke/plmris.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE PLMRIS( EMLAYS, LSTK, HFX, HMIX, & STKDM, STKHT, STKTK, STKVE, & TSTK, USTAR, DTHDZ, TA, WSPD, & ZF, ZH, ZSTK, WSTK, ZPLM ) C----------------------------------------------------------------------- C Description: C computes final effective plume centerline height. C Preconditions: C meteorology and stack parameters C Subroutines and Functions Called: C Revision History: C Prototype 12/95 by CJC, based on Briggs algorithm adapted from C RADM 2.6 subroutine PLUMER() (but with completely different C data structuring). C Copied from plmris.F 4.4 by M Houyoux 3/99 C Aug 2015, D. Wong: Used assumed shape array declaration C Jan 2022, D. Wong: Variable FIRSTIME is obsolete C----------------------------------------------------------------------- C Modified from: C Project Title: Sparse Matrix Operator Kernel Emissions (SMOKE) Modeling System C File: @(#)$Id: plmris.F,v 1.2 2011/10/21 16:11:31 yoj Exp $ C COPYRIGHT (C) 2002, MCNC Environmental Modeling Center C All Rights Reserved C See file COPYRIGHT for conditions of use. C Environmental Modeling Center C MCNC C P.O. Box 12889 C Research Triangle Park, NC 27709-2889 C smoke@emc.mcnc.org C Pathname: $Source: /project/yoj/arc/CCTM/src/plrise/smoke/plmris.F,v $ C Last updated: $Date: 2011/10/21 16:11:31 $ C----------------------------------------------------------------------- USE RUNTIME_VARS, ONLY : LOGDEV IMPLICIT NONE C Includes: INCLUDE SUBST_CONST ! physical and mathematical constants C Arguments: INTEGER, INTENT( IN ) :: EMLAYS ! no. of emission layers INTEGER, INTENT( IN ) :: LSTK ! lyr of top of stack, = RADM's KSTK REAL, INTENT( IN ) :: HFX ! sensible heat flux [m K/s] REAL, INTENT( IN ) :: HMIX ! mixing height [m] REAL, INTENT( IN ) :: STKDM ! stack diameter [m] REAL, INTENT( IN ) :: STKHT ! stack height [m] REAL, INTENT( IN ) :: STKTK ! exhaust temperature [deg K] REAL, INTENT( IN ) :: STKVE ! exhaust velocity [m/s] REAL, INTENT( IN ) :: TSTK ! tmptr at top of stack [deg K] REAL, INTENT( IN ) :: USTAR ! friction velocity [m/s] REAL, INTENT( IN ) :: DTHDZ( : ) ! gradient of THETV REAL, INTENT( IN ) :: TA ( : ) ! temperature [deg K] REAL, INTENT( IN ) :: WSPD ( : ) ! wind speed [m/s] REAL, INTENT( IN ) :: ZF ( 0: ) ! layer surface height [m] REAL, INTENT( IN ) :: ZH ( : ) ! layer center height [m] REAL, INTENT( IN ) :: ZSTK ( : ) ! zf( l ) - stkht [m] REAL, INTENT( INOUT ) :: WSTK ! wind speed @ top of stack [m/s] ! OUT for reporting, only REAL, INTENT( OUT ) :: ZPLM ! temporarily, plume top height ! above stack, finally plume centerline ! height [m] (can be greater than the ! height of the top of the EMLAYS layer) C Parameters: REAL, PARAMETER :: HCRIT = 1.0E-4 * 0.03 ! hfx min * tolerance REAL, PARAMETER :: SMALL = 3.0E-5 ! Criterion for stability REAL, PARAMETER :: D3 = 1.0 / 3.0 REAL, PARAMETER :: D6 = 1.0 / 6.0 REAL, PARAMETER :: D45 = 1.0 / 45.0 REAL, PARAMETER :: D2664 = 1.0 / 2.664 REAL, PARAMETER :: D59319 = 1.0 / 59.319 REAL, PARAMETER :: TWOTHD = 2.0 / 3.0 REAL, PARAMETER :: FIVETHD = 5.0 / 3.0 C Local Variables: INTEGER IQ ! stability class: 1=unstbl, 2=neut, 3=stbl, 4=use DHM INTEGER LPLM ! first L: ZH(L) > Plume height ! same as RADM's KPR INTEGER NN ! counter for interations through layers REAL BFLX ! buoyancy flux (m**4/s**3) REAL DH ! plume rise increment to center of the plume REAL DHM ! plume rise from momentum REAL DHSM ! stable momentum plume rise REAL DHN ! plume rise for neutral case REAL DHT ! plume rise increment to the top of the plume REAL HSTAR ! convective scale at stack (m**2/s**3) REAL PX, RX, SX ! scratch coefficients REAL RBFLX ! residual buoyancy flux (m**4/s**3) REAL TPLM ! temperature at top of plume (m/s) REAL WPLM ! wind speed at top of plume (m/s) REAL ZMIX ! hmix - hs C Statement Functions: REAL B, H, S, U, US ! arguments REAL NEUTRL ! neutral-stability plume rise function REAL STABLE ! stable plume rise function REAL UNSTBL ! unstable plume rise function NEUTRL( H, B, U, US ) = & MIN( 10.0 * H, & 1.2 * ( ( B / ( U * US * US ) ) ** 0.6 ! pwr 3 * 0.2 & * ( H + 1.3 * B / ( U * US * US ) ) ** 0.4 ) ) ! pwr 2 * 0.2 STABLE( B, U, S ) = 2.6 * ( B / ( U * S ) ) ** D3 UNSTBL( B, U ) = 30.0 * ( B / U ) ** 0.6 C----------------------------------------------------------------------- C Compute convective scale, buoyancy flux. HSTAR = GRAV * HFX / TA( 1 ) ! Using surface temperature is correct BFLX = 0.25 * GRAV * ( STKTK - TSTK ) * STKVE * STKDM * STKDM / STKTK C Initialize layer of plume LPLM = LSTK C Compute momentum rise ( set min wind speed to 1 m/s) WSTK = MAX( WSTK, 1.0 ) DHM = 3.0 * STKDM * STKVE / WSTK C When BFLX <= zero, use momentum rise only C NOTE: This part of algorithm added based on Models-3 plume rise IF ( BFLX .LE. 0.0 ) THEN C (06/02) Set the ZPLM plume rise height to the momentum value DHM above ZPLM = STKHT + MAX( DHM, 2.0 ) RETURN END IF C Compute initial plume rise from stack top to next level surface: IF ( HSTAR .GT. HCRIT ) THEN ! unstable case: ZMIX = HMIX - STKHT IF ( ZMIX .LE. 0.0 ) THEN ! Stack at or above mixing height: SX = MAX( GRAV * DTHDZ( LPLM ) / TSTK, SMALL ) C Reset the wind speed at stack to the wind speed at plume when the layer C of the plume is not equal to the layer of the stack. IF ( LPLM .NE. LSTK ) THEN WSTK = MAX( WSPD( LPLM ), 1.0 ) END IF IF ( DTHDZ( LPLM ) .GT. 0.001 ) THEN C Compute the stable momentum rise, for layer of the stack DHSM = 0.646 * ( STKVE * STKVE * STKDM * STKDM & / ( STKTK * WSTK ) ) ** D3 * SQRT( TSTK ) & / DTHDZ( LPLM ) ** D6 ELSE DHSM = DHM ! set it to DHM, if THGRAD too small END IF DHM = MIN( DHSM, DHM ) C Compute the neutral and stable plume rises DHN = NEUTRL( STKHT, BFLX, WSTK, USTAR ) DH = STABLE( BFLX, WSTK, SX ) IF ( DHN .LT. DH ) THEN ! Take the minimum of neutral and stable DH = DHN IQ = 2 ELSE IQ = 3 END IF ! IF ( DHM .GT. DH .AND. WSTK .GT. 1.0 ) THEN IF ( DH .LT. DHM ) THEN ! Take the minimum of the above and momentum rise DH = DHM IQ = 4 END IF DHT = 1.5 * DH ELSE ! unstable case: DHN = NEUTRL( STKHT, BFLX, WSTK, USTAR ) DH = UNSTBL( BFLX, WSTK ) IF ( DHN .LT. DH ) THEN ! Take the minimum of neutral and unstable DH = DHN IQ = 2 ELSE IQ = 1 END IF ! IF ( DHM .GT. DH .AND. WSTK .GT. 1.0 ) THEN IF ( DH .LT. DHM ) THEN ! Take the minimum of the above and momentum rise DH = DHM IQ = 4 END IF DHT = 1.5 * DH END IF ELSE IF ( HSTAR .LT. -HCRIT .OR. DTHDZ( LSTK ) .GT. 0.001 ) THEN ! stable case: SX = MAX( GRAV * DTHDZ( LSTK ) / TSTK, SMALL ) DHN = 1.5 * NEUTRL( STKHT, BFLX, WSTK, USTAR ) DHT = 1.5 * STABLE( BFLX, WSTK, SX ) IF ( DHN .LT. DHT ) THEN ! Take the minimum of neutral and stable DHT = DHN IQ = 2 ELSE IQ = 3 END IF ELSE ! neutral case: DHT = 1.5 * NEUTRL( STKHT, BFLX, WSTK, USTAR ) IQ = 2 END IF ! hstar ==> unstable, stable, or neutral ZPLM = DHT C End calculations if the momentum rise was used in the calculation IF ( IQ .EQ. 4 ) GO TO 199 ! to point past iterative buoyancy loop C Compute further plume rise from between level surfaces: NN = 0 RBFLX = BFLX DO ! infinite loop computing further plume rise RX = ZPLM - ZSTK( LPLM ) IF ( RX .LE. 0.0 ) THEN EXIT ! exit plume rise loop END IF IF ( LPLM .EQ. EMLAYS ) THEN ! we're finished ZPLM = MIN( ZPLM, ZSTK( EMLAYS ) ) WRITE( LOGDEV,'(5X, A, I3, F10.3)' ) & 'Plume rise reached EMLAYS with ZPLM:', EMLAYS, ZPLM EXIT ! exit plume rise loop END IF C Reset met data. NOTE - the original RADM code interpolated WSPD and TA, C but then set the height of interpolation identical to ZH( LPLM ). NN = NN + 1 IF ( NN .GT. 1 ) THEN WPLM = WSPD( LPLM ) TPLM = TA ( LPLM ) ELSE ! 1st time, use stack values ... WPLM = WSTK TPLM = TSTK END IF C Compute residual bflx by stability case IQ: IF ( IQ .EQ. 1 ) THEN RX = D45 * RX ! Includes the 1.5 factor for plume top RBFLX = WPLM * ( RX ** FIVETHD ) ELSE IF ( IQ .EQ. 2 ) THEN PX = STKHT + TWOTHD * ZPLM RBFLX = D2664 * ( RX ** FIVETHD ) * WPLM * ( USTAR * USTAR ) / PX ** TWOTHD ELSE ! else iq = 3: RBFLX = D59319 * WPLM * SX * RX ** 3 END IF ! if stability flag iq is 1, 2, or 3 C Increment the layer number below IF ( LPLM .LT. EMLAYS ) LPLM = LPLM + 1 WPLM = WSPD( LPLM ) TPLM = TA( LPLM ) C Prevent divide-by-zero by WPLM WPLM = MAX( WPLM, 1.0 ) C Process according to stability cases: SX = GRAV * DTHDZ( LPLM ) / TPLM IF ( SX .GT. SMALL ) THEN ! stable case: DHN = 1.5 * NEUTRL( STKHT, RBFLX, WPLM, USTAR ) DHT = 1.5 * STABLE( RBFLX, WPLM, SX ) IF ( DHN .LT. DHT ) THEN ! Take the minimum of neutral and stable DHT = DHN IQ = 2 ELSE IQ = 3 END IF DH = DHT / 1.5 ELSE ! if upper layer is not stable, use neutral formula DHN = NEUTRL( STKHT, RBFLX, WPLM, USTAR ) DH = UNSTBL( RBFLX, WPLM ) IF ( DHN .LT. DH ) THEN ! Take the minimum of neutral and unstable DH = DHN IQ = 2 ELSE IQ = 1 END IF DHT = 1.5 * DH END IF ZPLM = ZSTK( LPLM-1 ) + DHT ! DH = ZSTK( LPLM-1 ) + DH END DO ! end loop computing further plume rise 199 CONTINUE C Adjustment for layer 1 combustion pt. source stacks with plume rise limited C to layer 1; put plume height in middle of layer 2: IF ( STKHT + TWOTHD * ZPLM .LE. ZF( 1 ) .AND. STKTK .GT. TA( 1 ) ) THEN ZPLM = ZH( 2 ) END IF C set final plume centerline height (ZPLM): ZPLM = STKHT + TWOTHD * ZPLM RETURN END SUBROUTINE PLMRIS ================================================ FILE: CCTM/src/plrise/smoke/plsprd.f ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/CCTM/src/plrise/smoke/plsprd.f,v 1.2 2011/10/21 16:11:31 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% C:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: ! SUBROUTINE PLSPRD( DTHDZ, ZF, KZ, CEFSTK, HTMIX, PLTOP, PLBOT ) SUBROUTINE PLSPRD( DTHDZ, ZF, KZ, CEFSTK, PLTOP, PLBOT ) C----------------------------------------------------------------------- C Description: C Calculates the initial vertical spread of a plume; modified C from Gillani's model. C Preconditions: C Subroutines and Functions Called: C Revision History: C Initially provided by J. Godowitch ( EPA, 9/03 ) C Aug 2015, D. Wong: Used assumed shape array declaration C----------------------------------------------------------------------- C Modified from: C Project Title: Sparse Matrix Operator Kernel Emissions (SMOKE) Modeling C System C File: @(#)$Id: plsprd.f,v 1.2 2011/10/21 16:11:31 yoj Exp $ C COPYRIGHT (C) 2003, MCNC Environmental Modeling Center C All Rights Reserved C See file COPYRIGHT for conditions of use. C Environmental Modeling Center C MCNC C P.O. Box 12889 C Research Triangle Park, NC 27709-2889 C smoke@emc.mcnc.org C Pathname: $Source: /project/yoj/arc/CCTM/src/plrise/smoke/plsprd.f,v $ C Last updated: $Date: 2011/10/21 16:11:31 $ C----------------------------------------------------------------------- IMPLICIT NONE C Arguments: REAL, INTENT ( IN ) :: DTHDZ( : ) ! potential temperature lapse rate (K/m) REAL, INTENT ( IN ) :: ZF( 0: ) ! full-layer heights (m) INTEGER, INTENT ( IN ) :: KZ ! number of emissions layers REAL, INTENT ( IN ) :: CEFSTK ! effective stack height (m) ! REAL, INTENT ( IN ) :: HTMIX ! mixing height (m) REAL, INTENT( OUT ) :: PLTOP ! plume top (m) REAL, INTENT( OUT ) :: PLBOT ! plume bottom (m) C Parameters: REAL, PARAMETER :: SZ0FAC = 3.545 ! factor used to derive plume depth REAL, PARAMETER :: SPRFAC = 15. ! empirical coefficient for vertical spread REAL, PARAMETER :: GAMMA = -0.0098 ! adiabatic lapse rate (K/m) C Local Variables: INTEGER K REAL SIGZ0 REAL DTDZ REAL DPTH C----------------------------------------------------------------------- C Get ambient temperature above plume rise height (effective stack height) K = 0 DO K = K + 1 IF ( K .EQ. KZ .OR. CEFSTK .LE. ZF( K ) ) EXIT END DO DTDZ = DTHDZ( K ) + GAMMA C Compute initial vertical spread SIGZ0 = MAX( 10.0, SPRFAC * EXP( -117.0 * DTDZ ) ) DPTH = SZ0FAC * SIGZ0 C Compute plume top and bottom heights; plume is either completely C within or outside mixing layer PLTOP = CEFSTK + DPTH / 2.0 PLBOT = CEFSTK - DPTH / 2.0 C Make sure plume bottom is at least zero PLBOT = MAX( 0.0, PLBOT ) C Make sure that plume top and bottom height < ZF (KZ) . PLTOP = MIN( ZF( KZ ), PLTOP ) PLBOT = MIN( ZF( KZ )-1.0, PLBOT ) RETURN END SUBROUTINE PLSPRD ================================================ FILE: CCTM/src/plrise/smoke/preplm.f ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/CCTM/src/plrise/smoke/preplm.f,v 1.3 2011/10/21 16:11:31 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% C:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE PREPLM( FIREFLG, EMLAYS, HMIX, HTS, PSFC, TS, DDZF, QV, & TA, UW, VW, ZH, ZF, PRES, LSTK, LPBL, TSTK, & WSTK, DTHDZ, WSPD ) C----------------------------------------------------------------------- C Description: C Computes the values needed for the PLMRIS subroutine from the C meteorology data. C Preconditions: C Interpolated (to the location of a source) meteorology data as input, C vertical grid structure. C Subroutines and Functions Called: C I/O API C Revision History: C Copied from preplm.f v 1.2 in DAQM-V2 Emissions Preprocessor by C M. Houyoux 3/99 C 16 Feb 2011 S.Roselle: replaced I/O API include files with UTILIO_DEFN C Aug 2015, D. Wong: - Used assumed shape array declaration and adjusted C array accessing index accordingly C - Replaced run time dynamical array with allocatable C - Fixed temp. and windsp. polynomial interpolation to C stack top C 12 Oct 2015 J.Young: fix how PRES is used: defined at layer top surface C----------------------------------------------------------------------- C Modified from: C Project Title: Sparse Matrix Operator Kernel Emissions (SMOKE) Modeling System C File: @(#)$Id: preplm.f,v 1.3 2011/10/21 16:11:31 yoj Exp $ C COPYRIGHT (C) 2002, MCNC Environmental Modeling Center C All Rights Reserved C See file COPYRIGHT for conditions of use. C Environmental Modeling Center C MCNC C P.O. Box 12889 C Research Triangle Park, NC 27709-2889 C smoke@emc.mcnc.org C Pathname: $Source: /project/yoj/arc/CCTM/src/plrise/smoke/preplm.f,v $ C Last updated: $Date: 2011/10/21 16:11:31 $ C----------------------------------------------------------------------- USE UTILIO_DEFN IMPLICIT NONE C Includes: C External Functions: C Parameters: INTEGER, PARAMETER :: DEG = 3 ! degree of interpolationg polynomial REAL, PARAMETER :: CTOK = 273.15 ! conversion from deg. C to deg. K C Arguments: C (Note: All met parms are per-source) LOGICAL, INTENT( IN ) :: FIREFLG ! .true. => processing fire source INTEGER, INTENT( IN ) :: EMLAYS ! no. emissions layers REAL, INTENT( IN ) :: HMIX ! mixing height REAL, INTENT( IN ) :: HTS ! stack height REAL, INTENT( IN ) :: PSFC ! surface pressure REAL, INTENT( IN ) :: TS ! surface temperature REAL, INTENT( IN ) :: DDZF( : ) ! 1/( zf(l) - zf(l-1) ) REAL, INTENT( IN ) :: QV ( : ) ! mixing ratio REAL, INTENT( IN ) :: TA ( : ) ! absolute temperature REAL, INTENT( IN ) :: UW ( : ) ! x-direction winds REAL, INTENT( IN ) :: VW ( : ) ! y-direction winds REAL, INTENT( IN ) :: ZH ( : ) ! layer center height [m] REAL, INTENT( IN ) :: ZF ( : ) ! layer surface height [m] REAL, INTENT( IN ) :: PRES( 0: ) ! pres at full layer hts (mod by YOJ) INTEGER, INTENT( OUT ) :: LSTK ! first L: ZF(L) > STKHT INTEGER, INTENT( OUT ) :: LPBL ! first L: ZF(L) > mixing layer REAL, INTENT( OUT ) :: TSTK ! temperature @ top of stack [K] REAL, INTENT( OUT ) :: WSTK ! wind speed @ top of stack [m/s] REAL, INTENT( OUT ) :: DTHDZ( : ) ! potential temp. grad. REAL, INTENT( OUT ) :: WSPD ( : ) ! wind speed [m/s] C Local Variables: INTEGER L, M REAL ES REAL QSFC REAL TVSFC REAL THETG REAL THV1 REAL THVK ! REAL TV( EMLAYS ) ! Virtual temperature ! REAL TF( EMLAYS ) ! Full-layer height temperatures REAL, ALLOCATABLE :: TV( : ) ! Virtual temperature REAL, ALLOCATABLE :: TF( : ) ! Full-layer height temperatures REAL P, Q REAL DZZ REAL DELZ CHARACTER( 240 ) :: XMSG = ' ' INTEGER :: STAT C----------------------------------------------------------------------- ALLOCATE ( TV( EMLAYS ), TF( EMLAYS ), STAT=STAT ) IF ( STAT .NE. 0 ) THEN WRITE( XMSG, *) ' Cannot allocate TV and TF in PREPLM' CALL M3MSG2( XMSG ) STOP END IF C Convert pressure to millibars from pascals, compute wind speed, C and virtual temperature DO L = 1, EMLAYS P = UW( L ) Q = VW( L ) WSPD( L ) = SQRT( P * P + Q * Q ) TV( L ) = TA( L ) * ( 1.0 + 0.622 * ( QV( L ) / ( 1.0 + QV( L ) ) ) ) END DO ES = 6.1078 * EXP( 5384.21 / CTOK - 5384.21 / TS ) QSFC = 0.622 * ES / ( PSFC - ES ) TVSFC = TS * ( 1.0 + 0.6077 * QSFC ) THETG = TVSFC * ( 1000.0 / PSFC ) ** 0.286 IF ( HMIX .LE. ZF( 1 ) ) LPBL = 1 IF ( HTS .LE. ZF( 1 ) ) LSTK = 1 C Interpolate the virtual temperatures at the full-layer face heights (at ZFs) DO L = 1, EMLAYS - 1 DELZ = ZH( L+1 ) - ZH( L ) TF( L ) = TV( L ) + ( TV( L+1 ) - TV( L ) ) * ( ZF( L ) - ZH( L ) ) / DELZ END DO L = EMLAYS DELZ = ZH( L ) - ZH( L-1 ) TF( L ) = TV( L ) + ( TV( L ) - TV( L-1 ) ) * ( ZF( L ) - ZH( L ) ) / DELZ ! THV1 = TF( 1 ) * ( 1000.0 / PRES( 2 ) ) ** 0.286 THV1 = TF( 1 ) * ( 1000.0 / PRES( 1 ) ) ** 0.286 ! DTHDZ( 1 ) = ( THV1 - THETG ) / ZF( 1 ) DO L = 2, EMLAYS IF ( HMIX .GT. ZF( L-1 ) ) LPBL = L IF ( HTS .GT. ZF( L-1 ) ) LSTK = L ! THVK = TF( L ) * ( 1000.0 / PRES( L+1 ) ) ** 0.286 THVK = TF( L ) * ( 1000.0 / PRES( L ) ) ** 0.286 DTHDZ( L ) = DDZF( L ) * ( THVK - THV1 ) THV1 = THVK END DO C Set the 1st level vertical THETV gradient to the 2nd layer value - C overrides the layer 1 gradient determined above DTHDZ( 1 ) = DTHDZ( 2 ) IF ( .NOT. FIREFLG ) THEN C Interpolate ambient temp. and windspeed to top of stack using DEG deg. polynomial M = MAX( 1, LSTK - DEG - 1 ) TSTK = POLY( HTS, ZH( M:EMLAYS ), TA( M:EMLAYS ), DEG ) WSTK = MAX( POLY( HTS, ZH( M:EMLAYS ), WSPD( M:EMLAYS ), DEG ), 0.1 ) ELSE TSTK = TS WSTK = WSPD( 1 ) END IF DEALLOCATE ( TV, TF ) END SUBROUTINE PREPLM ================================================ FILE: CCTM/src/plrise/smoke/write3_distr.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: FUNCTION WRITE3_DISTR ( FNAME, VNAME, JDATE, JTIME, DIM1, DIM2, DATA ) & RESULT ( SUCCESS ) C----------------------------------------------------------------------- C Function: Use I/O-API's WRITE3 and avoid using PWRITE3 to write layer C fractions to processor unique fake-gridded files C Note: This function must live in a file that has a ".f" extension! C Revision History: C 5 Dec 2007 J.Young: initial implementation C 16 Feb 2011 S.Roselle: replaced I/O API include files with M3UTILIO C----------------------------------------------------------------------- USE RUNTIME_VARS #ifndef mpas USE M3UTILIO #endif IMPLICIT NONE CHARACTER( * ), INTENT( IN ) :: FNAME CHARACTER( * ), INTENT( IN ) :: VNAME INTEGER, INTENT( IN ) :: JDATE, JTIME INTEGER, INTENT( IN ) :: DIM1, DIM2 REAL, INTENT( IN ) :: DATA( DIM1,DIM2 ) LOGICAL SUCCESS LOGICAL, SAVE :: FIRSTIME = .TRUE. CHARACTER( 96 ) :: XMSG = ' ' C----------------------------------------------------------------------- SUCCESS = .TRUE. #ifndef mpas IF ( FIRSTIME ) THEN FIRSTIME = .FALSE. END If IF ( .NOT. WRITE3( FNAME, VNAME, JDATE, JTIME, DATA ) ) THEN XMSG = 'Error writing ' // 'to file "' // TRIM( FNAME ) // '."' WRITE( LOGDEV,* ) XMSG SUCCESS = .FALSE. END IF #endif RETURN END FUNCTION WRITE3_DISTR ================================================ FILE: CCTM/src/procan/pa/PA_DEFN.F ================================================ C======================================================================= MODULE PA_DEFN C Contains: Control parameters for Process Analysis C C Dependent On: Mechanism Input file C C Created By: Process Analysis Control Program C 11:05:01 EDT July 15, 2016 cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c The following variables are used to control calls to the Integrated c Process Rate and Integrated Reaction Rate routines: c LIPR = Flag for calculating Integrated Process Rates c LIRR = Flag for calculating Integrated Reaction Rates cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c these are set in pa_read.F LOGICAL :: LIPR = .FALSE. LOGICAL :: LIRR = .FALSE. cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c The following variables are used in the output file descriptions cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c NIPRVAR = Number of IPR output variables c NIRRVAR = Number of IRR output variables c IPRNAME = Name of IPR output variable c IRRNAME = Name of IRR output variable c IPRDESC = Extended name of IPR output variable c IRRDESC = Extended name of IRR output variable cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c these are set in pa_setup_ipr.F, pa_read.F, respectively c change to pa_read INTEGER :: NIPRVAR = 0 INTEGER :: NIRRVAR = 0 c these are set in pa_setup_ipr.F, pa_getirrout.F (pa_setup_irr.F) c allocate in pa_read CHARACTER( 16 ), ALLOCATABLE, SAVE :: IPRNAME( : ) ! IPRNAME( NIPRVAR ) CHARACTER( 60 ), ALLOCATABLE, SAVE :: IPRDESC( : ) ! IPRDESC( NIPRVAR ) CHARACTER( 16 ), ALLOCATABLE, SAVE :: IRRNAME( : ) ! IRRNAME( NIRRVAR ) CHARACTER( 60 ), ALLOCATABLE, SAVE :: IRRDESC( : ) ! IRRDESC( NIRRVAR ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c The following variables are used in the integrated process rate c computations. cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c NPRCS = No. of science processes that can be monitored c PROCNAME = c N_IPR_SPC = Number of families for IPR c NCSAVE = Number of CTM species concs to save for IPR c MXCGRID = Max number of CTM species in an IPR family c LPROCOUT = c NCGRID = Array of no. of CTM species in an IPR family c IPROUT = Array of IPR output variable indices c IPR2GRD = Array of CTM species indices for IPR families c IPR2SAV = Array of saved species indices for IPR families c SV2GRD = Array of CTM indicies for saved concs c SPCOEF = Array of coefficients for IPR familys cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc INTEGER, PARAMETER :: NPRCS = 14 INTEGER, PARAMETER :: IPR_XADV = 1 INTEGER, PARAMETER :: IPR_YADV = 2 INTEGER, PARAMETER :: IPR_ZADV = 3 INTEGER, PARAMETER :: IPR_HDIF = 4 INTEGER, PARAMETER :: IPR_VDIF = 5 INTEGER, PARAMETER :: IPR_EMIS = 6 INTEGER, PARAMETER :: IPR_DDEP = 7 INTEGER, PARAMETER :: IPR_PVO3 = 8 INTEGER, PARAMETER :: IPR_CLDS = 9 INTEGER, PARAMETER :: IPR_CHEM = 10 INTEGER, PARAMETER :: IPR_COND = 11 INTEGER, PARAMETER :: IPR_COAG = 12 INTEGER, PARAMETER :: IPR_NPF = 13 INTEGER, PARAMETER :: IPR_GROW = 14 CHARACTER(4), PARAMETER :: PROCNAME( NPRCS ) = & (/'XADV','YADV','ZADV','HDIF','VDIF','EMIS','DDEP', & 'PVO3','CLDS','CHEM','COND','COAG','NPF ','GROW' /) REAL, ALLOCATABLE, SAVE :: CSAV( :,:,:,: ) LOGICAL, SAVE :: COUPLE_WRF = .FALSE. c this is set in pa_getiprout.F, pa_errcheck.F? INTEGER :: N_IPR_SPC = 0 c these are set in pa_setup_ipr.F INTEGER :: MXCGRID = 0 c these are allocated in pa_setpadefn.F INTEGER, ALLOCATABLE, SAVE :: MAP_IPRVARtoSPC( : ) ! ( NIPRVAR ) INTEGER, ALLOCATABLE, SAVE :: NCGRID ( : ) ! ( N_IPR_SPC ) INTEGER, ALLOCATABLE, SAVE :: MAP_SAVEtoCGRID( : ) ! ( NCSAVE ) INTEGER, ALLOCATABLE, SAVE :: MAP_IPRtoCGRID( :,: ) ! ( N_IPR_SPC,MXCGRID ) INTEGER, ALLOCATABLE, SAVE :: MAP_IPRtoSAVE( :,: ) ! ( N_IPR_SPC,MXCGRID ) REAL, ALLOCATABLE, SAVE :: SPCOEF ( :,: ) ! ( N_IPR_SPC,MXCGRID ) LOGICAL, ALLOCATABLE, SAVE :: MASK_IPR_PROC( :,: ) LOGICAL, SAVE :: BUDGET_DIAG = .FALSE. LOGICAL, SAVE :: BUDGET_HPPM = .FALSE. CHARACTER( 16 ), ALLOCATABLE, SAVE :: BUDGETVARIABLES( : ) INTEGER, PARAMETER :: MAX_BUDGET_VARS_NML = 200 cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c The following variables are used in the integrated reaction rate c computations. cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c LFULLIRR = Flag for computing IRRs for every reaction c LPARTIRR = Flag for computing IRRs for selected reactions c NUMOUTPOS = No. of temp. IRR terms to add iff the IRR > 0 c NUMOUTNEG = No. of temp. IRR terms to add iff the IRR < 0 c NUMOUTIND = No. of temp. IRR terms to add regardless of sign c MXNIRRRXNS = Max no. of reaction terms in an output IRR c MXTEMPTRMS = Max no. of reaction terms in a temp. IRR c NIRRRXNS = Vector of no. of reaction terms in an output IRR c TEMPTERMS = Vector of no. of terms in a temporary IRR c TEMPOUTPOS = Vector of no. of IRR terms to add if IRR > 0 c TEMPOUTNEG = Vector of no. of IRR terms to add if IRR < 0 c TEMPOUTIND = Vector of no. of IRR terms to add regardless of sign c INDXOUTPOS = Vector of indices pointing to IRR output variable c INDXOUTNEG = Vector of indices pointing to IRR output variable c INDXOUTIND = Vector of indices pointing to IRR output variable c COEFOUTPOS = Vector of temp IRR coefficients c COEFOUTNEG = Vector of temp IRR coefficients c COEFOUTIND = Vector of temp IRR coefficients c NUMTEMPS = No. of temporary intermediate IRRs to compute c TEMPRXN = Array of reaction nos. for a temp. IRR c IRRRXN = Array of reaction nos. for an output IRR c TEMPCOEF = Array of reaction coefficients for a temp IRR c IRRCOEF = Array of reaction coefficients for an output IRR c IRRSTEP = Array of output IRRs for one time step c IRRBLK = Array of output IRRs for a block of cells c IRROUT = Array of IRRs to output cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c these are set in pa_read.F LOGICAL, SAVE :: LFULLIRR = .FALSE. LOGICAL, SAVE :: LPARTIRR = .FALSE. c these are set in pa_setup_irr.F, pa_errcheck.F INTEGER, SAVE :: NUMOUTPOS = 0 INTEGER, SAVE :: NUMOUTNEG = 0 INTEGER, SAVE :: NUMOUTIND = 0 INTEGER, SAVE :: MXNIRRRXNS = 0 INTEGER, SAVE :: NUMTEMPS = 0 INTEGER, SAVE :: MXTEMPTRMS = 0 c this is set in the Model`s GRID_CONF INTEGER, SAVE :: BLKSIZED = 50 c these are allocated in pa_setup_irr.F INTEGER, ALLOCATABLE, SAVE :: NIRRRXNS ( : ) ! ( NIRRVAR ) INTEGER, ALLOCATABLE, SAVE :: IRRRXN ( :,: ) ! ( NIRRVAR,MXNIRRRXNS ) INTEGER, ALLOCATABLE, SAVE :: TEMPOUTPOS( : ) ! ( NUMOUTPOS ) INTEGER, ALLOCATABLE, SAVE :: INDXOUTPOS( : ) ! ( NUMOUTPOS ) INTEGER, ALLOCATABLE, SAVE :: TEMPOUTNEG( : ) ! ( NUMOUTNEG ) INTEGER, ALLOCATABLE, SAVE :: INDXOUTNEG( : ) ! ( NUMOUTNEG ) INTEGER, ALLOCATABLE, SAVE :: TEMPOUTIND( : ) ! ( NUMOUTIND ) INTEGER, ALLOCATABLE, SAVE :: INDXOUTIND( : ) ! ( NUMOUTIND ) INTEGER, ALLOCATABLE, SAVE :: TEMPTERMS ( : ) ! ( NUMTEMPS ) INTEGER, ALLOCATABLE, SAVE :: TEMPRXN ( :,: ) ! ( NUMTEMPS,MXTEMPTRMS ) REAL, ALLOCATABLE, SAVE :: COEFOUTPOS( : ) ! ( NUMOUTPOS ) REAL, ALLOCATABLE, SAVE :: COEFOUTNEG( : ) ! ( NUMOUTNEG ) REAL, ALLOCATABLE, SAVE :: COEFOUTIND( : ) ! ( NUMOUTIND ) REAL, ALLOCATABLE, SAVE :: TEMPCOEF ( :,: ) ! ( NUMTEMPS,MXTEMPTRMS ) REAL, ALLOCATABLE, SAVE :: IRRCOEF ( :,: ) ! ( NIRRVAR,MXNIRRRXNS ) REAL, ALLOCATABLE, SAVE :: IRRSTEP ( :,: ) ! ( BLKSIZED,NIRRVAR ) REAL, ALLOCATABLE, SAVE :: IRRBLK ( :,: ) ! ( BLKSIZED,NIRRVAR ) REAL, ALLOCATABLE, SAVE :: IRRDEL ( : ) ! ( NIRRVAR ) REAL, ALLOCATABLE, SAVE :: IRRSUM ( : ) ! ( NIRRVAR ) END MODULE PA_DEFN ================================================ FILE: CCTM/src/procan/pa/PA_GLOBAL.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C...................................................................... MODULE PA_GLOBAL C Contains: Mech and Grid data used in the Process Analysis Control Program C Dependent Upon: Nothing C Revision History C Prototype created by Bill Hutzell, June, 2014 based in PA_GLOBAL.EXT C from PROCAN version 5.0.2 C PA_GLOBAL.EXT History: C Created by Jerry Gipson, May, 1997 C Modified Sept, 1997 by Jerry Gipson to be consistent with targeted CTM C Modified May 2002 by Jerry Gipson to increase number of products (for saprc99) C Aug 2011 Jeff Young: Removed domain data C...................................................................... USE RXNS_DATA, Only: ! chemical mechanism arrays and data & NRXNS, MXPRD, NUMB_MECH_SPC, & RXLABEL, IRR, CHEMISTRY_SPC, NREACT, IRXBITS, SC, NPRDCT IMPLICIT NONE ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Dimensioning parameters for species and mechanism data cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc INTEGER, PARAMETER :: MXSPEC = 1000 ! Number of species in mechanism INTEGER, PARAMETER :: MXALLSPC = 4 * MXSPEC + 1 INTEGER, PARAMETER :: MXRXNS = NRXNS ! Maximum number of Reactions in mechanism INTEGER, PARAMETER :: MXRPP = MXPRD + 3 ! Maximum number of Products and reactants cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Declarations for species and mechanism data cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc END MODULE PA_GLOBAL ================================================ FILE: CCTM/src/procan/pa/PA_IPRVARS.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C...................................................................... MODULE PA_IPRVARS C Contains: data used in the Process Analysis Control Program C Dependent Upon: None C Revision History: C...................................................................... USE PA_GLOBAL, Only: MXSPEC USE PA_VARS, Only: MAXTERMS INTEGER, PARAMETER :: MAXIPRSPC = 600 ! Max no. of IPR species INTEGER, PARAMETER :: MAXIPROUT = MAXIPRSPC * 10 ! Max no. IPR outputs CHARACTER( 4 ) :: IPR_SPTYPE( MAXIPRSPC ) ! Type of mass balance species CHARACTER( 16 ) :: IPR_SPNAM ( MAXIPRSPC ) ! Name of mass balance species CHARACTER( 16 ) :: IPR_OPNAME( MAXIPRSPC,MAXTERMS ) ! Input IPR op names INTEGER :: N_IPR_OPS ( MAXIPRSPC ) ! No. of input IPR operation names INTEGER :: IPR_SPNUM ( MAXIPRSPC ) ! Species or family-name number END MODULE PA_IPRVARS ================================================ FILE: CCTM/src/procan/pa/PA_IRR_CTL.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! MODULE PA_IRR_CLT IMPLICIT NONE C----------------------------------------------------------------------- C Function: Set up for and update the integrated reaction rates C computed by the subroutine pa_irr C Preconditions: None C Key Subroutines/Functions Called: None C Revision History C Prototype created by Jerry Gipson, November, 1996 C Modified Sept, 1997 by Jerry Gipson to be consistent with targeted CTM C Modified 1/19/99 by David Wong at LM: C -- add four include files because of new PA_CMN.EXT C Modified 2/26/99 by David Wong at LM: C -- remove SUBST_AE_SPC, SUBST_NR_SPC, SUBST_TR_SPC, C three .EXT files C -- use ifdef parallel to distinguish the need of C shifting to origin to perform calculation in serial C but not in parallel C -- change BEG* and END* to corresponding C MY_IRR_BEG*, and MY_IRR_END*, respectively C 30 Mar 01 J.Young: Use PAGRD_DEFN, which uses HGRD_DEFN; eliminate C BLKPRM.EXT; Use GRVARS C 31 Jan 05 J.Young: dyn alloc - establish both horizontal & vertical C domain specifications in one module (GRID_CONF) C 21 Jun 10 J.Young: convert for Namelist redesign C 16 Sep 16 J.Young: update for inline procan (IRR) C 1 Feb 19 David Wong: removed all MY_N clauses C 17 Jan 24 David Wong: fixed a bug that IRR/IPR process alllows a subset of C level, a..b, where 1 <= a <= b <= NLAYS C----------------------------------------------------------------------- CONTAINS SUBROUTINE PA_IRR_SETUP( NBLKS, LIRRBLK, LCELL, BLKLEN, & CCOL, CROW, CLEV ) ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Flags all blocks that will need IRR/MB calculations ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc USE GRID_CONF ! horizontal & vertical domain specifications USE CGRID_SPCS ! CGRID mechanism species USE PA_DEFN ! Process Anaylsis control and data variables USE PAGRD_DEFN ! PA horiz domain specs IMPLICIT NONE C..Includes: None C..Arguments: INTEGER, INTENT( IN ) :: NBLKS ! Number of blocks in modeling domain LOGICAL, INTENT( OUT ) :: LIRRBLK( : ) ! Flag for doing IRR INTEGER, INTENT( IN ) :: BLKLEN ( : ) ! Number of cells in each INTEGER, INTENT( IN ) :: LCELL ( : ) ! Offset to 1st cell in each INTEGER, INTENT( IN ) :: CCOL ( : ) ! Column pointer for cell INTEGER, INTENT( IN ) :: CROW ( : ) ! Row pointer for cell INTEGER, INTENT( IN ) :: CLEV ( : ) ! Level pointer for cell C..Parameters: None C..External Functions: None !?..Saved Local Variables: !?????LOGICAL, SAVE :: LIRRCELL( BLKSIZE ) ! Flag to do IRR for a cell C..Scratch Local Variables: INTEGER BLK ! Loop index for blocks INTEGER CELL ! Counter of cells in a block INTEGER COL, ROW, LEV ! Column, row, and level indices INTEGER ECL ! Ending cell no. of block INTEGER ICL ! Loop index for cells in a block INTEGER NCELL ! Loop index for cells in a block INTEGER PC, PR, PL ! Column, row, and level indices for PA outputs INTEGER NIRR ! Loop index for IRR variables INTEGER SCL ! Starting cell no. of block C----------------------------------------------------------------------- DO BLK = 1, NBLKS SCL = LCELL( BLK ) + 1 ECL = LCELL( BLK ) + BLKLEN( BLK ) DO ICL = SCL, ECL COL = CCOL( ICL ) ROW = CROW( ICL ) LEV = CLEV( ICL ) IF ( COL .GE. MY_IRR_BEGCOL .AND. COL .LE. MY_IRR_ENDCOL .AND. & ROW .GE. MY_IRR_BEGROW .AND. ROW .LE. MY_IRR_ENDROW .AND. & LEV .GE. MY_IRR_BEGLEV .AND. LEV .LE. MY_IRR_ENDLEV ) & LIRRBLK( BLK ) = .TRUE. END DO END DO RETURN END SUBROUTINE PA_IRR_SETUP SUBROUTINE PA_IRR_CKBLK ( NUMCELLS, LIRRFLAG, OFFSET, CCOL, & CROW, CLEV, NORDCELL, NIRRCLS, IRRCELL ) ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Checks a block of cells to see if it has a cell that needs IRR c calculations for the case in which when the cell composition of the c block can change ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc USE GRID_CONF ! horizontal & vertical domain specifications USE CGRID_SPCS ! CGRID mechanism species USE PA_DEFN ! Process Anaylsis control and data variables USE PAGRD_DEFN ! PA horiz domain specs IMPLICIT NONE C..Arguments INTEGER, INTENT( IN ) :: NUMCELLS ! Number of cells in one block LOGICAL, INTENT( OUT ) :: LIRRFLAG ! Flag for doing IRR for one block INTEGER, INTENT( IN ) :: OFFSET ! Offset to 1st cell in a block INTEGER, INTENT( IN ) :: CCOL ( : ) ! Column pointer for cell INTEGER, INTENT( IN ) :: CROW ( : ) ! Row pointer for cell INTEGER, INTENT( IN ) :: CLEV ( : ) ! Level pointer for cell INTEGER, INTENT( IN ) :: NORDCELL( : ) ! Cell number of ordered cells in a block INTEGER, INTENT( INOUT ) :: NIRRCLS ! No. of cells in block for IRR cells INTEGER, INTENT( INOUT ) :: IRRCELL( : ) ! Cell No. of an IRR cell C..Includes: None C..Scratch Local Variables: INTEGER BLK ! Loop index for blocks INTEGER CELL ! Counter of cells in a block INTEGER COL, ROW, LEV ! Column, row, and level indices INTEGER ECL ! Ending cell no. of block INTEGER ICL ! Loop index for cells in a block INTEGER NCELL ! Loop index for cells in a block INTEGER PC, PR, PL ! Column, row, and level indices for PA outputs INTEGER NIRR ! Loop index for IRR variables INTEGER SCL ! Starting cell no. of block C----------------------------------------------------------------------- NIRRCLS = 0 DO NCELL = 1, NUMCELLS ICL = NORDCELL( OFFSET + NCELL ) COL = CCOL( ICL ) ROW = CROW( ICL ) LEV = CLEV( ICL ) !?????????????LIRRCELL( NCELL ) = .FALSE. IF ( COL .GE. MY_IRR_BEGCOL .AND. COL .LE. MY_IRR_ENDCOL .AND. & ROW .GE. MY_IRR_BEGROW .AND. ROW .LE. MY_IRR_ENDROW .AND. & LEV .GE. MY_IRR_BEGLEV .AND. LEV .LE. MY_IRR_ENDLEV ) THEN LIRRFLAG = .TRUE. !????????????????LIRRCELL( NCELL ) = .TRUE. NIRRCLS = NIRRCLS + 1 IRRCELL( NIRRCLS ) = NCELL END IF END DO RETURN END SUBROUTINE PA_IRR_CKBLK SUBROUTINE PA_IRR_CKCELLS ( LIRRFLAG ) ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Checks cells to see which needs IRR calculations ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc USE GRID_CONF ! horizontal & vertical domain specifications USE CGRID_SPCS ! CGRID mechanism species USE PA_DEFN ! Process Anaylsis control and data variables USE PAGRD_DEFN ! PA horiz domain specs IMPLICIT NONE C..Arguments LOGICAL, INTENT( OUT ) :: LIRRFLAG( :,:,: ) ! Flag for doing IRR for one block C..Includes: None C..Scratch Local Variables: INTEGER C, R, L ! Column, row, and level indices for PA outputs C----------------------------------------------------------------------- DO L = 1, NLAYS DO R = 1, NROWS DO C = 1, NCOLS IF ( C .GE. MY_IRR_BEGCOL .AND. C .LE. MY_IRR_ENDCOL .AND. & R .GE. MY_IRR_BEGROW .AND. R .LE. MY_IRR_ENDROW .AND. & L .GE. MY_IRR_BEGLEV .AND. L .LE. MY_IRR_ENDLEV ) THEN LIRRFLAG( C,R,L ) = .TRUE. ELSE LIRRFLAG( C,R,L ) = .FALSE. END IF END DO END DO END DO RETURN END SUBROUTINE PA_IRR_CKCELLS SUBROUTINE PA_IRR_BLKSTRT ( NUMCELLS ) ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Initializes IRRBLK to zero ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc USE GRID_CONF ! horizontal & vertical domain specifications USE CGRID_SPCS ! CGRID mechanism species USE PA_DEFN ! Process Anaylsis control and data variables USE PAGRD_DEFN ! PA horiz domain specs IMPLICIT NONE C..Arguments INTEGER, INTENT( IN ) :: NUMCELLS ! Number of cells in one block C..Includes: None C..Scratch Local Variables: INTEGER CELL ! Counter of cells in a block INTEGER NIRR ! Loop index for IRR variables C----------------------------------------------------------------------- DO NIRR = 1, NIRRVAR DO CELL = 1, NUMCELLS IRRBLK( CELL,NIRR ) = 0.0 END DO END DO RETURN END SUBROUTINE PA_IRR_BLKSTRT SUBROUTINE PA_IRR_BLKENDF( OFFSET, NUMCELLS, CCOL, CROW, CLEV ) ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Updates the IRROUT array after a block is finished for the case c in which the cell composition of the block is fixed ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc USE GRID_CONF ! horizontal & vertical domain specifications USE CGRID_SPCS ! CGRID mechanism species USE PA_DEFN ! Process Anaylsis control and data variables USE PAGRD_DEFN ! PA horiz domain specs IMPLICIT NONE C..Arguments INTEGER, INTENT( IN ) :: OFFSET ! Offset to 1st cell in a block INTEGER, INTENT( IN ) :: NUMCELLS ! Number of cells in one block INTEGER, INTENT( IN ) :: CCOL ( : ) ! Column pointer for cell INTEGER, INTENT( IN ) :: CROW ( : ) ! Row pointer for cell INTEGER, INTENT( IN ) :: CLEV ( : ) ! Level pointer for cell C..Includes: None C..Scratch Local Variables: INTEGER BLK ! Loop index for blocks INTEGER CELL ! Counter of cells in a block INTEGER COL, ROW, LEV ! Column, row, and level indices INTEGER ECL ! Ending cell no. of block INTEGER ICL ! Loop index for cells in a block INTEGER NCELL ! Loop index for cells in a block INTEGER PC, PR, PL ! Column, row, and level indices for PA outputs INTEGER NIRR ! Loop index for IRR variables INTEGER SCL ! Starting cell no. of block C----------------------------------------------------------------------- SCL = OFFSET + 1 ECL = OFFSET + NUMCELLS CELL = 0 DO ICL = SCL, ECL COL = CCOL( ICL ) ROW = CROW( ICL ) LEV = CLEV( ICL ) CELL = CELL + 1 IF ( COL .GE. MY_IRR_BEGCOL .AND. COL .LE. MY_IRR_ENDCOL .AND. & ROW .GE. MY_IRR_BEGROW .AND. ROW .LE. MY_IRR_ENDROW .AND. & LEV .GE. MY_IRR_BEGLEV .AND. LEV .LE. MY_IRR_ENDLEV ) THEN #ifdef parallel PC = COL PR = ROW #else C -- serial case, calculations are shifted to the origin but not in C parallel implementation PC = COL - MY_IRR_BEGCOL + 1 PR = ROW - MY_IRR_BEGROW + 1 #endif PL = LEV - MY_IRR_BEGLEV + 1 DO NIRR = 1, NIRRVAR IRROUT( PC,PR,PL,NIRR ) = IRROUT( PC,PR,PL,NIRR ) & + IRRBLK( CELL,NIRR ) END DO END IF END DO RETURN END SUBROUTINE PA_IRR_BLKENDF SUBROUTINE PA_IRR_CELLENDF( COL, ROW, LEV ) ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Updates the IRROUT for cell ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc USE GRID_CONF ! horizontal & vertical domain specifications USE CGRID_SPCS ! CGRID mechanism species USE PA_DEFN ! Process Anaylsis control and data variables USE PAGRD_DEFN ! PA horiz domain specs IMPLICIT NONE C..Arguments INTEGER, INTENT( IN ) :: COL ! Column pointer for cell INTEGER, INTENT( IN ) :: ROW ! Row pointer for cell INTEGER, INTENT( IN ) :: LEV ! Level pointer for cell C..Includes: None C..Scratch Local Variables: INTEGER PC, PR, PL ! Column, row, and level indices for PA outputs INTEGER NIRR ! Loop index for IRR variables C----------------------------------------------------------------------- #ifdef parallel PC = COL PR = ROW #else C -- serial case, calculations are shifted to the origin but not in C parallel implementation PC = COL - MY_IRR_BEGCOL + 1 PR = ROW - MY_IRR_BEGROW + 1 #endif PL = LEV - MY_IRR_BEGLEV + 1 DO NIRR = 1, NIRRVAR IRROUT( PC,PR,PL,NIRR ) = IRROUT( PC,PR,PL,NIRR ) & + IRRSUM( NIRR ) END DO RETURN END SUBROUTINE PA_IRR_CELLENDF SUBROUTINE PA_IRR_BLKENDC ( OFFSET, CCOL, CROW, CLEV, & NORDCELL, NIRRCLS, IRRCELL ) ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Updates the IRROUT array after a block is finished for the case c in which the cell composition of the block can change ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc USE GRID_CONF ! horizontal & vertical domain specifications USE CGRID_SPCS ! CGRID mechanism species USE PA_DEFN ! Process Anaylsis control and data variables USE PAGRD_DEFN ! PA horiz domain specs IMPLICIT NONE C..Arguments INTEGER, INTENT( IN ) :: OFFSET ! Offset to 1st cell in a block INTEGER, INTENT( IN ) :: CCOL ( : ) ! Column pointer for cell INTEGER, INTENT( IN ) :: CROW ( : ) ! Row pointer for cell INTEGER, INTENT( IN ) :: CLEV ( : ) ! Level pointer for cell INTEGER, INTENT( IN ) :: NORDCELL( : ) ! Cell number of ordered cells in a block INTEGER, INTENT( INOUT ) :: NIRRCLS ! No. of cells in block for IRR cells INTEGER, INTENT( INOUT ) :: IRRCELL( : ) ! Cell No. of an IRR cell C..Includes: None C..Scratch Local Variables: INTEGER BLK ! Loop index for blocks INTEGER CELL ! Counter of cells in a block INTEGER COL, ROW, LEV ! Column, row, and level indices INTEGER ECL ! Ending cell no. of block INTEGER ICL ! Loop index for cells in a block INTEGER NCELL ! Loop index for cells in a block INTEGER PC, PR, PL ! Column, row, and level indices for PA outputs INTEGER NIRR ! Loop index for IRR variables INTEGER SCL ! Starting cell no. of block C----------------------------------------------------------------------- DO NCELL = 1, NIRRCLS CELL = IRRCELL( NCELL ) ICL = NORDCELL( OFFSET + CELL ) COL = CCOL( ICL ) ROW = CROW( ICL ) LEV = CLEV( ICL ) C -- in serial case, calculations are shifted to the origin but not in C parallel implementation #ifdef parallel PC = COL PR = ROW #else PC = COL - MY_IRR_BEGCOL + 1 PR = ROW - MY_IRR_BEGROW + 1 #endif PL = LEV - MY_IRR_BEGLEV + 1 DO NIRR = 1, NIRRVAR IRROUT( PC,PR,PL,NIRR ) = IRROUT( PC,PR,PL,NIRR ) & + IRRBLK( NCELL,NIRR ) END DO END DO RETURN END SUBROUTINE PA_IRR_BLKENDC END MODULE PA_IRR_CLT ================================================ FILE: CCTM/src/procan/pa/PA_IRR_module.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! MODULE PA_IRR_MODULE IMPLICIT NONE INTERFACE PA_IRR MODULE PROCEDURE PA_IRR_BLOCKED, PA_IRR_UNBLOCKED END INTERFACE CONTAINS C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE PA_IRR_BLOCKED ( LSTART, LCHGVL, RK, CONC, DELT, NUMCELLS, ICLND ) C----------------------------------------------------------------------- C Function: Integrate chemical rates of reaction for an IRR/MB analysis C Preconditions: None C Key Subroutines/Functions Called: None C Revision History: C Prototype created by Jerry Gipson, September, 1996 C global BLKPRM Jeff Dec 96 C Modified Sept, 1997 by Jerry Gipson to be consistent with targeted CTM C Modified Jun, 1998 by Jerry Gipson to add reaction number error checks C Modified 1/19/99 by David Wong at LM: C -- add four include files because of new PA_CMN.EXT C Modified 2/26/99 by David Wong at LM: C -- remove SUBST_AE_SPC, SUBST_NR_SPC, SUBST_TR_SPC, C three .EXT files C 31 Mar 01 J.Young: Use HGRD_DEFN; eliminate BLKPRM.EXT C 31 Jan 05 J.Young: dyn alloc - establish both horizontal & vertical C domain specifications in one module C 21 Jun 10 J.Young: convert for Namelist redesign C 19 Aug 11 J.Young: Replaced I/O API include files with UTILIO_DEFN C 07 Jul 14 B.Hutzell: replaced mechanism include file(s) with fortran module C----------------------------------------------------------------------- USE GRID_CONF ! horizontal & vertical domain specifications USE RXNS_DATA ! chemical mechanism data USE CGRID_SPCS ! CGRID mechanism species USE PA_DEFN ! Process Anaylsis control and data variables USE UTILIO_DEFN IMPLICIT NONE C..Includes: None C..Arguments: LOGICAL, INTENT( IN ) :: LSTART ! Flag to indicate start of chemical integration period LOGICAL, INTENT( IN ) :: LCHGVL ! Flag to indicate vector length is changing REAL(8), INTENT( IN ) :: RK( :,: ) ! Reaction rate coefficients REAL(8), INTENT( IN ) :: CONC( :,: ) ! Species concentrations REAL(8), INTENT( IN ) :: DELT ! Chemistry integration time size INTEGER, INTENT( IN ) :: NUMCELLS ! Number of cells to process INTEGER, INTENT( IN ) :: ICLND( : ) ! Original cell number C..Parameters: None C..External Functions: None C..Saved Local Variables: CHARACTER( 16 ) , SAVE :: PNAME = 'PA_IRR' ! Program name CHARACTER( 132) :: MSG LOGICAL, SAVE :: LFIRST = .TRUE. ! Flag for first call to subroutine C..Scratch Local Variables: INTEGER ISP1, ISP2, ISP3 ! Species indices INTEGER NCELL ! Loop index for cells INTEGER NIRR ! Loop index for IRR outputs INTEGER NOUT ! IRR output index INTEGER NRX ! Loop index for reactions INTEGER NTEMP ! Loop index for temp IRRs INTEGER NTERM ! Loop index for terms INTEGER ASTAT ! allocation status REAL(8) :: COEFF ! Coefficient of IRR term C..Saved Local Variables: LOGICAL, ALLOCATABLE, SAVE :: LINTRXN( : ) ! Flag for reaction integration REAL(8), ALLOCATABLE, SAVE :: RXOLD ( :,: ) REAL(8), ALLOCATABLE, SAVE :: RXSAV ( :,: ) REAL(8), ALLOCATABLE, SAVE :: RXRAT ( :,: ) ! Calculated reaction rates REAL(8), ALLOCATABLE, SAVE :: INTRXN ( :,: ) ! Integrated reaction rates REAL(8), ALLOCATABLE, SAVE :: TEMPIRR( :,: ) ! Array of computed temp IRRs C----------------------------------------------------------------------- IF ( LFIRST ) THEN C Allocate PA_DEFN arrays: ALLOCATE ( IRRSTEP( BLKSIZE,NIRRVAR ), & IRRBLK ( BLKSIZE,NIRRVAR ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN MSG = 'Failure initializing IRRSTEP of IRRBLK' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF C On first call, flag the reactions for which to calculate IRRs ALLOCATE( LINTRXN( NRXNS ), & RXOLD ( BLKSIZE, NRXNS ), & RXSAV ( BLKSIZE, NRXNS ), & RXRAT ( BLKSIZE, NRXNS ), & INTRXN ( BLKSIZE, NRXNS ), & TEMPIRR( BLKSIZE, NRXNS ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN MSG = 'ERROR allocating PA_IRR variables' CALL M3EXIT ( 'PA_IRR', 0, 0, MSG, XSTAT2 ) END IF IF ( LFULLIRR .AND. NIRRVAR .NE. NRXNS ) THEN MSG = 'Number of reactions for PA does not match number of ' // & 'reactions in mechanism' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT2 ) END IF IF ( LFULLIRR ) THEN LINTRXN = .TRUE. ELSE LINTRXN = .FALSE. IF ( NUMTEMPS .GT. 0 ) THEN DO NTEMP = 1, NUMTEMPS DO NTERM = 1, TEMPTERMS( NTEMP ) NRX = TEMPRXN( NTEMP,NTERM ) IF ( NRX .GT. NRXNS ) THEN MSG = 'Number of reactions for PA does not match ' // & 'number of reactions in mechanism' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT2 ) END IF LINTRXN( NRX ) = .TRUE. END DO END DO END IF IF ( NIRRVAR .GT. 0 ) THEN DO NOUT = 1, NIRRVAR IF ( NIRRRXNS( NOUT ) .GT. 0 ) THEN DO NTERM = 1, NIRRRXNS( NOUT ) NRX = IRRRXN( NOUT,NTERM ) IF ( NRX .GT. NRXNS ) THEN MSG = 'Number of reactions for PA does not match ' // & 'number of reactions in mechanism' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT2 ) END IF LINTRXN( NRX ) = .TRUE. END DO END IF END DO END IF END IF LFIRST = .FALSE. END IF ! LFIRST ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Loop over reactions and calculate rate of reaction with current c concentrations (This needs to be optimized for small NUMCELLS) ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc DO NRX = 1, NRXNS IF ( LINTRXN( NRX ) ) THEN IF ( NREACT( NRX ) .EQ. 1 ) THEN ISP1 = IRR( NRX,1 ) DO NCELL = 1, NUMCELLS RXRAT( NCELL,NRX ) = RK( NCELL,NRX ) & * CONC( NCELL,ISP1 ) END DO ELSE IF ( NREACT( NRX ) .EQ. 2 ) THEN ISP1 = IRR( NRX,1 ) ISP2 = IRR( NRX,2 ) DO NCELL = 1, NUMCELLS RXRAT( NCELL,NRX ) = RK( NCELL,NRX ) & * CONC( NCELL,ISP1 ) & * CONC( NCELL,ISP2 ) END DO ELSE IF ( NREACT( NRX ) .EQ. 3 ) THEN ISP1 = IRR( NRX,1 ) ISP2 = IRR( NRX,2 ) ISP3 = IRR( NRX,3 ) DO NCELL = 1, NUMCELLS RXRAT( NCELL,NRX ) = RK( NCELL,NRX ) & * CONC( NCELL,ISP1 ) & * CONC( NCELL,ISP2 ) & * CONC( NCELL,ISP3 ) END DO ELSE IF (NREACT( NRX ) .EQ. 0 ) THEN DO NCELL = 1, NUMCELLS RXRAT( NCELL,NRX ) = RK( NCELL,NRX ) END DO END IF END IF 100 END DO ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c If this is the start of the chemistry integration period, save the c reaction rates, and return ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF ( LSTART ) THEN DO NRX = 1, NRXNS IF ( LINTRXN( NRX ) ) THEN DO NCELL = 1, NUMCELLS RXOLD( NCELL,NRX ) = RXRAT( NCELL,NRX ) RXSAV( NCELL,NRX ) = RXRAT( NCELL,NRX ) END DO END IF END DO IF ( LCHGVL ) THEN c..For changing block lengths DO NIRR = 1, NIRRVAR DO NCELL = 1, NUMCELLS IRRBLK( ICLND( NCELL ),NIRR ) = 0.0 END DO END DO ELSE DO NIRR = 1, NIRRVAR DO NCELL = 1, NUMCELLS IRRBLK( NCELL,NIRR ) = 0.0 END DO END DO END IF RETURN END IF ! LSTART ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Initialize calculated IRRs to zero and get the reaction rate at c the previous step if the cell vector length is changing ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc DO NIRR = 1, NIRRVAR DO NCELL = 1, NUMCELLS IRRSTEP( NCELL,NIRR ) = 0.0D0 END DO END DO IF ( LCHGVL ) THEN DO NIRR = 1, NRXNS IF ( LINTRXN( NIRR ) ) THEN DO NCELL = 1, NUMCELLS RXOLD( NCELL,NIRR ) = RXSAV( ICLND( NCELL ),NIRR ) END DO END IF END DO END IF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Compute integrated reaction rates for each reaction and return c if a Full IRR analysis is being done cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc DO NRX = 1, NRXNS IF ( LINTRXN( NRX ) ) THEN DO NCELL = 1, NUMCELLS INTRXN( NCELL,NRX ) = 0.5D0 * DELT & * ( RXOLD( NCELL,NRX ) & + RXRAT( NCELL,NRX ) ) END DO END IF END DO IF ( LFULLIRR ) THEN DO NRX = 1, NRXNS DO NCELL = 1, NUMCELLS IRRSTEP( NCELL,NRX ) = INTRXN( NCELL,NRX ) END DO END DO ELSE cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Compute the temporary IRRs that are used below cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF ( NUMTEMPS .GT. 0 ) THEN DO NTEMP = 1, NUMTEMPS DO NCELL = 1, NUMCELLS TEMPIRR( NCELL,NTEMP ) = 0.0D0 END DO END DO DO NTEMP =1, NUMTEMPS DO NTERM = 1, TEMPTERMS( NTEMP ) NRX = TEMPRXN( NTEMP,NTERM ) COEFF = REAL( TEMPCOEF( NTEMP, NTERM ), 8) DO NCELL = 1, NUMCELLS TEMPIRR( NCELL,NTEMP ) = TEMPIRR( NCELL,NTEMP ) & + COEFF * INTRXN( NCELL,NRX ) END DO END DO END DO END IF ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Sum up all IRRs for the output IRR for this step ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c c..Add required temporary IRRs if they are positive c IF ( NUMOUTPOS .GT. 0 ) THEN DO NTERM = 1, NUMOUTPOS NTEMP = TEMPOUTPOS( NTERM ) NOUT = INDXOUTPOS( NTERM ) COEFF = REAL( COEFOUTPOS( NTERM ), 8) DO NCELL = 1, NUMCELLS IF ( TEMPIRR( NCELL,NTEMP ) .GT. 0.0D0 ) THEN IRRSTEP( NCELL,NOUT ) = IRRSTEP( NCELL,NOUT ) & + COEFF * TEMPIRR( NCELL,NTEMP ) END IF END DO END DO END IF c..Add required temporary IRRs if they are negative IF ( NUMOUTNEG .GT. 0 ) THEN DO NTERM = 1, NUMOUTNEG NTEMP = TEMPOUTNEG( NTERM ) NOUT = INDXOUTNEG( NTERM ) COEFF = REAL( COEFOUTNEG( NTERM ), 8) DO NCELL = 1, NUMCELLS IF ( TEMPIRR( NCELL,NTEMP ) .LT. 0.0D0 ) THEN IRRSTEP( NCELL,NOUT ) = IRRSTEP( NCELL,NOUT ) & + COEFF * ABS( TEMPIRR( NCELL,NTEMP ) ) END IF END DO END DO END IF c..Add temporary IRRs that do not depend on sign IF ( NUMOUTIND .GT. 0 ) THEN DO NTERM = 1, NUMOUTIND NTEMP = TEMPOUTIND( NTERM ) NOUT = INDXOUTIND( NTERM ) COEFF = REAL( COEFOUTIND( NTERM ), 8 ) DO NCELL = 1, NUMCELLS IRRSTEP( NCELL,NOUT ) = IRRSTEP( NCELL,NOUT ) & + COEFF * TEMPIRR( NCELL,NTEMP ) END DO END DO END IF c..Add all remaining IRRs terms DO NOUT = 1, NIRRVAR IF ( NIRRRXNS( NOUT ) .GT. 0 ) THEN DO NTERM = 1, NIRRRXNS( NOUT ) COEFF = REAL( IRRCOEF( NOUT,NTERM ), 8) NRX = IRRRXN( NOUT,NTERM ) DO NCELL = 1, NUMCELLS IRRSTEP( NCELL,NOUT ) = IRRSTEP( NCELL,NOUT ) & + COEFF * INTRXN( NCELL,NRX ) END DO END DO END IF END DO END IF ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Update the array holding the cumulative results over all steps and c save the rxrates for the next step ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF ( LCHGVL ) THEN c..For changing block lengths DO NIRR = 1, NIRRVAR DO NCELL = 1, NUMCELLS IRRBLK( ICLND( NCELL ),NIRR ) = IRRBLK( ICLND( NCELL ),NIRR ) & + REAL( IRRSTEP( NCELL,NIRR ) ) END DO END DO DO NIRR = 1, NRXNS IF ( LINTRXN( NIRR ) ) THEN DO NCELL = 1, NUMCELLS RXSAV( ICLND( NCELL ),NIRR ) = RXRAT( NCELL,NIRR ) END DO END IF END DO ELSE c..For static block lengths DO NIRR = 1, NIRRVAR DO NCELL = 1, NUMCELLS IRRBLK( NCELL,NIRR ) = IRRBLK( NCELL,NIRR ) & + REAL( IRRSTEP( NCELL,NIRR ) ) END DO END DO DO NIRR = 1, NRXNS IF ( LINTRXN( NIRR ) ) THEN DO NCELL = 1, NUMCELLS RXOLD( NCELL,NIRR ) = RXRAT( NCELL,NIRR ) END DO END IF END DO END IF RETURN END SUBROUTINE PA_IRR_BLOCKED C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE PA_IRR_UNBLOCKED ( LSTART, RK, CONC, DELT ) C----------------------------------------------------------------------- C Function: Integrate chemical rates of reaction for an IRR/MB analysis C Preconditions: None C Key Subroutines/Functions Called: None C Revision History: C Prototype created by Jerry Gipson, September, 1996 C global BLKPRM Jeff Dec 96 C Modified Sept, 1997 by Jerry Gipson to be consistent with targeted CTM C Modified Jun, 1998 by Jerry Gipson to add reaction number error checks C Modified 1/19/99 by David Wong at LM: C -- add four include files because of new PA_CMN.EXT C Modified 2/26/99 by David Wong at LM: C -- remove SUBST_AE_SPC, SUBST_NR_SPC, SUBST_TR_SPC, C three .EXT files C 31 Mar 01 J.Young: Use HGRD_DEFN; eliminate BLKPRM.EXT C 31 Jan 05 J.Young: dyn alloc - establish both horizontal & vertical C domain specifications in one module C 21 Jun 10 J.Young: convert for Namelist redesign C 19 Aug 11 J.Young: Replaced I/O API include files with UTILIO_DEFN C 07 Jul 14 B.Hutzell: replaced mechanism include file(s) with fortran module C----------------------------------------------------------------------- USE GRID_CONF ! horizontal & vertical domain specifications USE RXNS_DATA ! chemical mechanism data USE CGRID_SPCS ! CGRID mechanism species USE PA_DEFN ! Process Anaylsis control and data variables USE UTILIO_DEFN IMPLICIT NONE C..Includes: None C..Arguments: LOGICAL, INTENT( IN ) :: LSTART ! Flag to indicate start of chemical integration period REAL( 8 ), INTENT( IN ) :: RK ( : ) ! Reaction rate coefficients REAL( 8 ), INTENT( IN ) :: CONC( : ) ! species concentrations REAL( 8 ), INTENT( IN ) :: DELT ! Chemistry integration time size C..Parameters: None C..External Functions: None CHARACTER( 16 ) , SAVE :: PNAME = 'PA_IRR' ! Program name CHARACTER( 132) :: MSG LOGICAL, SAVE :: LFIRST = .TRUE. ! Flag for first call to subroutine C..Scratch Local Variables: INTEGER ISP1, ISP2, ISP3 ! Species indices INTEGER NCELL ! Loop index for cells INTEGER NIRR ! Loop index for IRR outputs INTEGER NOUT ! IRR output index INTEGER NRX ! Loop index for reactions INTEGER NTEMP ! Loop index for temp IRRs INTEGER NTERM ! Loop index for terms INTEGER ASTAT ! allocation status REAL( 8 ) :: COEFF ! Coefficient of IRR term C..Saved Local Variables: LOGICAL, ALLOCATABLE, SAVE :: LINTRXN( : ) ! Flag for reaction integration REAL(8), ALLOCATABLE, SAVE :: RXRAT ( : ) ! Calculated reaction rates REAL(8), ALLOCATABLE, SAVE :: INTRXN ( : ) ! Integrated reaction rates REAL(8), ALLOCATABLE, SAVE :: TEMPIRR( : ) ! Array of computed temp IRRs C----------------------------------------------------------------------- ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c On first call, flag the reactions for which to calculate IRRs ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF ( LFIRST ) THEN C Allocate PA_DEFN arrays: ALLOCATE ( IRRDEL( NIRRVAR ), & IRRSUM( NIRRVAR ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN MSG = 'Failure initializing IRRSTEP of IRRBLK' CALL M3EXIT( 'PA_IRR', 0, 0, MSG, XSTAT1 ) END IF ALLOCATE( LINTRXN( NRXNS ), & RXRAT ( NRXNS ), & INTRXN ( NRXNS ), & TEMPIRR( NRXNS ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN MSG = 'ERROR allocating PA_IRR variables' CALL M3EXIT ( 'PA_IRR', 0, 0, MSG, XSTAT2 ) END IF IF ( LFULLIRR .AND. NIRRVAR .NE. NRXNS ) THEN CALL M3EXIT( PNAME, 0, 0, & 'Number of reactions for PA does not match number of ' // & 'reactions in mechanism', XSTAT2 ) END IF IF ( LFULLIRR )THEN LINTRXN = .TRUE. ELSE LINTRXN = .FALSE. IF ( NUMTEMPS .GT. 0 ) THEN IF( ANY( TEMPRXN .GT. NRXNS ) )THEN CALL M3EXIT( PNAME, 0, 0, & 'Number of reactions for PA does not match ' // & 'number of reactions in mechanism', XSTAT2 ) END IF DO NTEMP = 1, NUMTEMPS DO NTERM = 1, TEMPTERMS( NTEMP ) NRX = TEMPRXN( NTEMP,NTERM ) LINTRXN( NRX ) = .TRUE. END DO END DO END IF IF ( NIRRVAR .GT. 0 ) THEN IF( ANY( NIRRRXNS .GT. NRXNS ) )THEN CALL M3EXIT( PNAME, 0, 0, & 'Number of reactions for PA does not match ' // & 'number of reactions in mechanism', XSTAT2 ) END IF DO NOUT = 1, NIRRVAR IF ( NIRRRXNS( NOUT ) .GT. 0 ) THEN DO NTERM = 1, NIRRRXNS( NOUT ) NRX = IRRRXN( NOUT,NTERM ) LINTRXN( NRX ) = .TRUE. END DO END IF END DO END IF END IF LFIRST = .FALSE. END IF ! LFIRST ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Loop over reactions and calculate rate of reaction with current c concentrations (This needs to be optimized for small NUMCELLS) ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc DO 100 NRX = 1, NRXNS IF ( LINTRXN( NRX ) ) THEN IF ( NREACT( NRX ) .EQ. 1 ) THEN ISP1 = IRR( NRX,1 ) RXRAT( NRX ) = RK( NRX ) & * CONC( ISP1 ) ELSE IF ( NREACT( NRX ) .EQ. 2 ) THEN ISP1 = IRR( NRX,1 ) ISP2 = IRR( NRX,2 ) RXRAT( NRX ) = RK( NRX ) & * CONC( ISP1 ) & * CONC( ISP2 ) ELSE IF ( NREACT( NRX ) .EQ. 3 ) THEN ISP1 = IRR( NRX,1 ) ISP2 = IRR( NRX,2 ) ISP3 = IRR( NRX,3 ) RXRAT( NRX ) = RK( NRX ) & * CONC( ISP1 ) & * CONC( ISP2 ) & * CONC( ISP3 ) ELSE IF (NREACT( NRX ) .EQ. 0 ) THEN RXRAT( NRX ) = RK( NRX ) END IF END IF 100 CONTINUE ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c If this is the start of the chemistry integration period, save the c reaction rates, and return ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF ( LSTART ) THEN IRRSUM = 0.0 RETURN END IF ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Initialize calculated IRRs to zero and get the reaction rate at c the previous step if the cell vector length is changing ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IRRDEL = 0.0D0 cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Compute integrated reaction rates for each reaction and return c if a Full IRR analysis is being done cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc DO NRX = 1, NRXNS IF ( LINTRXN( NRX ) ) THEN INTRXN( NRX ) = DELT * RXRAT( NRX ) END IF END DO IF ( LFULLIRR ) THEN DO NRX = 1, NRXNS IRRDEL( NRX ) = INTRXN( NRX ) END DO ELSE cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Compute the temporary IRRs that are used below cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF ( NUMTEMPS .GT. 0 ) THEN TEMPIRR = 0.0D0 DO NTEMP = 1, NUMTEMPS DO NTERM = 1, TEMPTERMS( NTEMP ) NRX = TEMPRXN( NTEMP,NTERM ) COEFF = REAL( TEMPCOEF( NTEMP, NTERM ), 8) TEMPIRR( NTEMP ) = TEMPIRR( NTEMP ) & + COEFF * INTRXN( NRX ) END DO END DO END IF ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Sum up all IRRs for the output IRR for this step ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c c..Add required temporary IRRs if they are positive c IF ( NUMOUTPOS .GT. 0 ) THEN DO NTERM = 1, NUMOUTPOS NTEMP = TEMPOUTPOS( NTERM ) NOUT = INDXOUTPOS( NTERM ) COEFF = REAL( COEFOUTPOS( NTERM ), 8) IF ( TEMPIRR( NTEMP ) .GT. 0.0D0 ) THEN IRRDEL( NOUT ) = IRRDEL( NOUT ) & + COEFF * TEMPIRR( NTEMP ) END IF END DO END IF c..Add required temporary IRRs if they are negative IF ( NUMOUTNEG .GT. 0 ) THEN DO NTERM = 1, NUMOUTNEG NTEMP = TEMPOUTNEG( NTERM ) NOUT = INDXOUTNEG( NTERM ) COEFF = REAL( COEFOUTNEG( NTERM ), 8 ) IF ( TEMPIRR( NTEMP ) .LT. 0.0D0 ) THEN IRRDEL( NOUT ) = IRRDEL( NOUT ) & + COEFF * ABS( TEMPIRR( NTEMP ) ) END IF END DO END IF c..Add temporary IRRs that do not depend on sign IF ( NUMOUTIND .GT. 0 ) THEN DO NTERM = 1, NUMOUTIND NTEMP = TEMPOUTIND( NTERM ) NOUT = INDXOUTIND( NTERM ) COEFF = REAL( COEFOUTIND( NTERM ), 8) IRRDEL( NOUT ) = IRRDEL( NOUT ) & + COEFF * TEMPIRR( NTEMP ) END DO END IF c..Add all remaining IRRs terms DO NOUT = 1, NIRRVAR IF ( NIRRRXNS( NOUT ) .GT. 0 ) THEN DO NTERM = 1, NIRRRXNS( NOUT ) COEFF = REAL( IRRCOEF( NOUT,NTERM ), 8) NRX = IRRRXN( NOUT,NTERM ) IRRDEL( NOUT ) = IRRDEL( NOUT ) & + COEFF * INTRXN( NRX ) END DO END IF END DO END IF ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Update the array holding the cumulative results over all steps and c save the rxrates for the next step ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc DO NIRR = 1, NIRRVAR IRRSUM( NIRR ) = IRRSUM ( NIRR ) + REAL( IRRDEL( NIRR ) ) END DO RETURN END SUBROUTINE PA_IRR_UNBLOCKED END MODULE PA_IRR_MODULE ================================================ FILE: CCTM/src/procan/pa/PA_PARSE.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C...................................................................... MODULE PA_PARSE C Contains: data used by parsing routines in the Process Analysis Control Program C methods: rdline, getchr, getword, eatcom, getreal, getlabel, getquote, catstring C Revision History: C Based on code created by Jerry Gipson, 1996, 1997 C PA_PARSE.F module; 13 Jul 2016; Jeff Young C Sep 2018 C. Nolte, S. Roselle: replace M3UTILIO with UTILIO_DEFN C...................................................................... IMPLICIT NONE C Parameters: INTEGER, PARAMETER :: BUFLEN = 81 ! Length of one input line INTEGER, PARAMETER :: LABLEN = 16 ! Label character length INTEGER, PARAMETER :: WRDLEN = 16 ! Word character length INTEGER, PARAMETER :: IZERO = 0 ! Integer zero C Variables: CHARACTER( 1 ) :: CHR ! Last character read from input buffer CHARACTER( 200 ) :: MSG ! Error message output buffer CHARACTER( 60 ) :: QUOTE ! String found by GETQUOTE CHARACTER( BUFLEN ) :: INBUF ! Input line CHARACTER( LABLEN ) :: LABEL ! Label found by getlabel CHARACTER( WRDLEN ) :: WORD ! Word found by GETWORD INTEGER IEOL ! Position of last non-blank character INTEGER IFILE ! Unit number of input ASCII File INTEGER LINNUM ! Number of last line read INTEGER LPOINT ! Pointer to location of last character read REAL NUMBER ! Real number found by GETREAL CONTAINS C======================================================================= SUBROUTINE RDLINE C...................................................................... C Function: Reads one line from a file and stores it in INBUF. C The position of the last non-blank character is stored C in IEOL. All blank lines and lines with a ! in the first C column are skipped. The line count is stored in LINNUM. C...................................................................... USE UTILIO_DEFN IMPLICIT NONE C....................................................................... c..Read the first non-comment line and find the last non-blank character c..in that line 20 CONTINUE READ( IFILE, '( A )', END = 999 ) INBUF LINNUM = LINNUM + 1 IF ( INBUF( 1:1 ) .EQ. '!' ) THEN GO TO 20 ELSE IEOL = LEN_TRIM( INBUF ) IF ( IEOL .EQ. 1 .AND. INBUF( 1:1 ) .EQ. ' ' ) THEN GO TO 20 ELSE LPOINT = 0 RETURN END IF END IF 999 CONTINUE c..eof file encountered -- exit program WRITE( MSG, 94000 ) CALL M3MESG( MSG ) WRITE( MSG, 94020 ) CALL M3MESG( MSG ) CALL M3EXIT( 'RDLINE', IZERO, IZERO, ' ', XSTAT2 ) 94000 FORMAT( 'ERROR: End of file reached on the Process Analysis', & ' command file' ) 94020 FORMAT( 10X, 'ENDPA must be the last command' ) END SUBROUTINE RDLINE C======================================================================= SUBROUTINE GETCHR C...................................................................... C Function: Returns the next non-blank character in the input buffer, C excluding those in comments C Key Subroutines/Functions Called: EATCOM, RDLINE C...................................................................... IMPLICIT NONE C....................................................................... 20 CONTINUE LPOINT = LPOINT + 1 IF ( LPOINT .GT. IEOL ) THEN CALL RDLINE GO TO 20 ELSE CHR = INBUF( LPOINT : LPOINT ) IF ( CHR .EQ. ' ' ) THEN GO TO 20 ELSE IF ( CHR .EQ. '(' .OR. CHR .EQ. '{' ) THEN CALL EATCOM GO TO 20 END IF END IF RETURN END SUBROUTINE GETCHR C======================================================================= SUBROUTINE GETWORD C...................................................................... C Function: Get the next word from the input buffer starting C with the current character; the word can be any length, C but only the first sixteen characters are retained. The C first character must be alphabetic. C Preconditions: None C Key Subroutines/Functions Called: EATCOM, GETCHR, RDLINE C...................................................................... USE UTILIO_DEFN IMPLICIT NONE C Local Variables: CHARACTER( BUFLEN ) :: SAVBUF ! Saved input buffer INTEGER START ! Starting position in input buffer INTEGER LENGTH ! Length of word C....................................................................... c..Setup and make sure the first character is alphabetic LENGTH = 0 START = LPOINT SAVBUF = INBUF IF ( ( CHR .LT. 'A' .OR. CHR .GT. 'Z' ) .AND. & ( CHR .LT. 'a' .OR. CHR .GT. 'z' ) ) THEN WRITE( MSG, 94000 ) CALL M3MESG( MSG ) WRITE( MSG, 94020 ) LINNUM, INBUF CALL M3MESG( MSG ) WRITE( MSG, 94040 ) CHR CALL M3MESG( MSG ) CALL M3EXIT( 'GETWORD', IZERO, IZERO, ' ', XSTAT2 ) END IF c..Get the remaining characters; stop if a word spans a line 20 CONTINUE LENGTH = LENGTH + 1 LPOINT = LPOINT + 1 c..Get the next line if necessary (word wrap not allowed) IF ( LPOINT .GT. IEOL ) THEN CALL RDLINE CALL GETCHR CHR = INBUF( LPOINT:LPOINT ) IF ( ( CHR .GE. 'A' .AND. CHR .LE. 'Z' ) .OR. & ( CHR .GE. 'a' .AND. CHR .LE. 'z' ) .OR. & ( CHR .EQ. ':' ) .OR. ( CHR .EQ. '_' ) )THEN WRITE( MSG, 94060 ) CALL M3MESG( MSG ) WRITE( MSG, 94020 ) LINNUM, SAVBUF CALL M3EXIT( 'GETWORD', IZERO, IZERO, ' ', XSTAT2 ) ELSE GO TO 40 ! Word does not wrap around line END IF END IF c..Include all characters in word that are valid; stop reading on an c..ivalid character CHR = SAVBUF( LPOINT:LPOINT ) IF ( CHR .GE. 'A' .AND. CHR .LE. 'Z' ) GO TO 20 IF ( CHR .GE. 'a' .AND. CHR .LE. 'z' ) GO TO 20 IF ( CHR .GE. '0' .AND. CHR .LE. '9' ) GO TO 20 IF ( CHR .EQ. ':' ) GO TO 20 IF ( CHR .EQ. '_' ) GO TO 20 IF ( CHR .EQ. '(' .OR. CHR .EQ. '{' ) THEN LENGTH = LENGTH - 1 CALL EATCOM GO TO 20 END IF c..Truncate the word and get the next character if necessary 40 CONTINUE LENGTH = MIN( LENGTH, WRDLEN ) WORD = SAVBUF( START:START+LENGTH-1 ) IF ( CHR .EQ. ' ' ) CALL GETCHR RETURN 94000 FORMAT( 'ERROR: The first character of a word must be alphabetic' ) 94020 FORMAT( ' Line No. ', I4, ': ', A ) 94040 FORMAT( ' First character: ', A ) 94060 FORMAT( 'ERROR: A word cannot span two lines' ) END SUBROUTINE GETWORD C======================================================================= SUBROUTINE EATCOM C....................................................................... C Function: EATCOM reads past all characters in comments; comments are C enclosed in () or {} C Key Subroutines/Functions Called: GETCHR, RDLINE C....................................................................... IMPLICIT NONE C....................................................................... 20 CONTINUE LPOINT = LPOINT + 1 IF ( LPOINT .GT. IEOL ) THEN CALL RDLINE CALL GETCHR GO TO 20 ELSE CHR = INBUF( LPOINT:LPOINT ) IF( CHR .NE. ')' .AND. CHR .NE. '}' ) GO TO 20 END IF RETURN END SUBROUTINE EATCOM C======================================================================= SUBROUTINE PA_GETREAL C....................................................................... C Function: get the next word from the input buffer starting C with the current character; the word can be any length, C but only the first sixteen characters are retained. The C first character must be alphabetic. C....................................................................... USE UTILIO_DEFN IMPLICIT NONE C Local Variables: CHARACTER( 15 ) :: NUMSTRING ! String holding number INTEGER ICHR ! ASCII code number of character INTEGER LENGTH ! Length of numeric string INTEGER NOSIGNS ! Number of pos or neg signs found INTEGER START ! Starting position in input buffer LOGICAL LDECIMAL ! Flag to indicate decimal point found LOGICAL LEXP ! Flag to indicate exponent found C....................................................................... START = LPOINT LENGTH = 0 NOSIGNS = 0 LDECIMAL = .FALSE. LEXP = .FALSE. c..Top of loop for getting characters in the number string 10 CONTINUE IF ( LENGTH .NE. 0 ) THEN LPOINT = LPOINT + 1 IF ( LPOINT .GT. IEOL ) THEN CHR = ' ' ELSE CHR = INBUF( LPOINT:LPOINT ) END IF END IF ICHR = ICHAR( CHR ) LENGTH = LENGTH + 1 c..Check for decimal point IF ( CHR .EQ. '.' ) THEN IF ( .NOT. LDECIMAL ) THEN LDECIMAL = .TRUE. GO TO 10 ELSE WRITE( MSG, 94000 ) CALL M3MESG( MSG ) WRITE( MSG, 94500 ) LINNUM, INBUF CALL M3MESG( MSG ) WRITE( MSG, 94520 ) INBUF( START:LPOINT ) CALL M3MESG( MSG ) CALL M3EXIT( 'GETREAL', IZERO, IZERO,' ', XSTAT2 ) END IF END IF c..If numeric value, get next character IF ( ICHR .GE. 48 .AND. ICHR .LE. 57 ) GO TO 10 c..Check for exponent term IF ( CHR .EQ. 'E' .OR. CHR .EQ. 'e' ) THEN IF ( .NOT. LEXP ) THEN LEXP = .TRUE. GO TO 10 ELSE WRITE( MSG, 94020 ) CALL M3MESG( MSG ) WRITE( MSG, 94500 ) LINNUM, INBUF CALL M3MESG( MSG ) WRITE( MSG, 94520 ) INBUF( START:LPOINT ) CALL M3MESG( MSG ) CALL M3EXIT( 'GETREAL', IZERO, IZERO, ' ', XSTAT2 ) END IF END IF c..check for sign IF ( CHR .EQ. '+' .OR. CHR .EQ. '-' ) THEN NOSIGNS = NOSIGNS + 1 IF ( NOSIGNS .LE. 2 ) THEN GO TO 10 ELSE WRITE( MSG, 94040 ) CALL M3MESG( MSG ) WRITE( MSG, 94500 ) LINNUM, INBUF CALL M3MESG( MSG ) WRITE( MSG, 94520 ) INBUF( START:LPOINT ) CALL M3MESG( MSG ) CALL M3EXIT( 'GETREAL', IZERO, IZERO, ' ', XSTAT2 ) END IF END IF c..End of the numeric string; convert to real number NUMSTRING = INBUF( START:LPOINT-1 ) LENGTH = LENGTH - 1 IF ( ( .NOT. LEXP ) .AND. ( .NOT. LDECIMAL ) ) THEN NUMSTRING = NUMSTRING( 1:LENGTH ) // '.' LENGTH = LENGTH + 1 END IF READ( NUMSTRING( 1:LENGTH ), '( E20.6 )', ERR = 999 ) NUMBER IF ( LPOINT .GT. IEOL ) CALL RDLINE IF ( CHR .EQ. ' ' ) CALL GETCHR RETURN c..Error converting numeric string to real number 999 CONTINUE WRITE( MSG, 94060 ) CALL M3MESG( MSG ) WRITE( MSG, 94500 ) LINNUM, INBUF CALL M3MESG( MSG ) WRITE( MSG, 94520 ) INBUF( START:LPOINT ) CALL M3MESG( MSG ) CALL M3EXIT( 'GETREAL', IZERO, IZERO, ' ', XSTAT2 ) 94000 FORMAT( 'ERROR: Two decimal points found in a numeric field' ) 94020 FORMAT( 'ERROR: More than one E or e found in a numeric field' ) 94040 FORMAT( 'ERROR: Too many + or - signs found in a numeric field' ) 94060 FORMAT( 'ERROR: Numeric field contains an invalid character' ) 94500 FORMAT( ' Line No. ', I4, ': ', A ) 94520 FORMAT( ' Numeric field: ', A ) END SUBROUTINE PA_GETREAL C======================================================================= SUBROUTINE GETLABEL C....................................................................... C Function: get all characters except blanks between the C delimiters <> or []. Line wrap is allowed. The maximum C label length is sixteen characters. C Key Subroutines/Functions Called: EATCOM, GETCHR C....................................................................... USE UTILIO_DEFN IMPLICIT NONE C Local Variables: CHARACTER( 1 ) :: BEGCHR ! Starting delimiter for label CHARACTER( 1 ) :: ENDCHR ! Ending delimiter for label INTEGER LENGTH ! Length of label C....................................................................... c..Set beginning and and ending characters delineating the label LABEL = '' LENGTH = 0 IF ( CHR .EQ. '<' ) THEN BEGCHR = '<' ENDCHR = '>' ELSE BEGCHR = '[' ENDCHR = ']' END IF c..top of loop for getting next character 20 CONTINUE CALL GETCHR c..if the end of the label has not been reached, store the character IF ( CHR .NE. ENDCHR ) THEN IF ( CHR .EQ. '(' .OR. CHR .EQ. '{' ) CALL EATCOM LENGTH = LENGTH + 1 IF ( LENGTH .GT. 16 ) THEN WRITE( MSG, 94000 ) CALL M3MESG( MSG ) WRITE( MSG, 94020 ) LINNUM, INBUF CALL M3MESG( MSG ) WRITE( MSG, 94040 ) BEGCHR, LABEL CALL M3MESG( MSG ) CALL M3EXIT( 'PA_GETLABEL', IZERO, IZERO, ' ', XSTAT2 ) END IF LABEL( LENGTH : LENGTH ) = CHR GO TO 20 END IF CALL GETCHR RETURN 94000 FORMAT( 'ERROR: A Reaction label or operator option exceeds 16', & ' characters' ) 94020 FORMAT( ' Line No. ', I4, ': ', A ) 94040 FORMAT( ' Label found : ', A, A ) END SUBROUTINE GETLABEL C======================================================================= SUBROUTINE GETQUOTE C....................................................................... C Function: get all characters between apostrophes. C Embedded apostrophes indicated by double apostrophes. C Line wrap is allowed. C Key Subroutines/Functions Called: RDLINE, GETCHR C....................................................................... USE UTILIO_DEFN IMPLICIT NONE C Local Variables: CHARACTER( 1 ) :: APOS = '''' ! Apostrophe (') character CHARACTER( 132 ) :: STRING ! Holder for qoute INTEGER LENGTH ! Length of quote INTEGER NXTPOS ! Next character position in input buffer LOGICAL LCONT ! Flag to continue parsing input buffer C....................................................................... LENGTH = 0 c..Top of loop for reading quote 20 CONTINUE LPOINT = LPOINT + 1 c..get the next line if necessary IF ( LPOINT .GT. IEOL ) THEN CALL RDLINE CALL GETCHR END IF c..get the next character CHR = INBUF( LPOINT:LPOINT ) c..check for leading/endiung double apostrophes and get the next character IF ( CHR .NE. APOS ) THEN LCONT = .TRUE. ELSE IF ( LPOINT + 1 .GT. IEOL ) THEN CALL RDLINE NXTPOS = 1 ELSE NXTPOS = LPOINT + 1 END IF IF ( INBUF( NXTPOS : NXTPOS ) .EQ. APOS ) THEN LCONT = .TRUE. LPOINT = LPOINT + 1 CHR = INBUF( LPOINT:LPOINT ) ELSE LCONT = .FALSE. CALL GETCHR END IF END IF c..if continuing, add current character to the output string if c..length is OK IF ( LCONT ) THEN LENGTH = LENGTH + 1 IF ( LENGTH .GT. 132 ) THEN WRITE( MSG, 94000 ) CALL M3MESG( MSG ) WRITE( MSG, 94020 ) LINNUM, INBUF CALL M3MESG( MSG ) CALL M3EXIT( 'PA_GETQUOTE', IZERO, IZERO, ' ', XSTAT2 ) END IF IF ( LENGTH .EQ. 1 ) THEN STRING( 1:1 ) = CHR ELSE STRING( 1:LENGTH ) = STRING( 1:LENGTH-1 ) // CHR END IF GO TO 20 END IF c..Linit output string to 60 characters LENGTH = MIN( LENGTH, 60 ) QUOTE = STRING( 1:LENGTH ) RETURN 94000 FORMAT( 'ERROR: Quote exceeds maximum allowable 132 characters' ) 94020 FORMAT( ' Line No. ', I4, ': ', A ) END SUBROUTINE GETQUOTE C======================================================================= SUBROUTINE CATSTRING( NUMSTRNGS, STRING, STROUT, MAXLEN ) C....................................................................... C Function: Concatenate a series of strings, eliminating trailing C blanks, but leaving a space between each string C....................................................................... IMPLICIT NONE C Arguments: INTEGER NUMSTRNGS ! Number of strings to concatenate CHARACTER( * ) :: STRING( * ) ! Strings to concatenate CHARACTER( * ) :: STROUT ! Concatenated string output INTEGER MAXLEN ! Maximum length of output string C Local Variables: INTEGER LPOS ! Last position in output string INTEGER N ! Loop index for number of strings to concatenate INTEGER NEWLEN ! Length of string to be concatenated LOGICAL LRETURN ! Flag to return because of truncation C....................................................................... LRETURN = .FALSE. STROUT = STRING( 1 ) LPOS = LEN_TRIM( STRING( 1 ) ) + 1 IF ( NUMSTRNGS .EQ. 1 ) RETURN DO N = 2, NUMSTRNGS NEWLEN = LEN_TRIM( STRING( N ) ) IF ( ( LPOS + NEWLEN ) .GE. MAXLEN ) THEN NEWLEN = MAXLEN - LPOS WRITE( MSG, 94000 ) CALL M3MESG( MSG ) LRETURN = .TRUE. END IF STROUT = STROUT( 1:LPOS ) // STRING( N )( 1:NEWLEN ) IF ( LRETURN ) THEN RETURN ELSE LPOS = LPOS + NEWLEN + 1 END IF END DO DO N = 1, NUMSTRNGS STRING( N ) = '' END DO RETURN 94000 FORMAT( 1X,'WARNING: A string has been truncated because of ', & 'excessive length in concatenation' ) END SUBROUTINE CATSTRING END MODULE PA_PARSE ================================================ FILE: CCTM/src/procan/pa/PA_VARS.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C...................................................................... MODULE PA_VARS C Contains: IRR data used in the Process Analysis Control Program C Dependent Upon: None C Revision History: C Prototype created by Jerry Gipson, July, 1996 C Revised by Jerry Gipson April, 1997 to add the ADJC process and replace C NSPCSD with NSPCS for dimensioning C Modified May, 1997 by Jerry Gipson to be consistent with beta CTM C Modified Sept, 1997 by Jerry Gipson to be consistent with targeted CTM C Modified May 2002 by Jerry Gipson to increase number of reaction lines (for saprc99) C Aug 2011 Jeff Young: Removed domain data C Jun 2016 Jeff Young: made PA_VARS.EXT int this module C...................................................................... USE PA_GLOBAL, Only: MXSPEC, MXRXNS USE CGRID_SPCS, Only: & CGRID_SPCS_INIT, & N_GC_SPC, GC_SPC, & N_AE_SPC, AE_SPC, & N_NR_SPC, NR_SPC, & N_TR_SPC, TR_SPC IMPLICIT NONE C Parameters: INTEGER, PARAMETER :: MAXFAMLYS = 150 ! Max no. of families INTEGER, PARAMETER :: MAXRXNSUM = 150 ! Max no. of reaction sums INTEGER, PARAMETER :: MAXCYCLES = 150 ! Max no. of cycles INTEGER, PARAMETER :: MAXIRROUT = 900 ! Max number of IRR outputs INTEGER, PARAMETER :: MAXDEFNAMES = ! Max no. of defined names & MAXFAMLYS & + MAXRXNSUM & + MAXCYCLES & + MAXIRROUT INTEGER, PARAMETER :: MAXRXTERMS = 300 ! Max no. of terms in a reaction sum INTEGER, PARAMETER :: MAXCYTERMS = 300 ! Max no. of rxns in a cycle INTEGER, PARAMETER :: MAXOUTTERMS = 300 ! Max no. of terms in an IRR output INTEGER, PARAMETER :: MAXTERMS = 900 ! Generic max no. of terms INTEGER, PARAMETER :: MAXFAMMEM = MXSPEC ! Max no of members in any family INTEGER, PARAMETER :: MXMECHLINE = 30 INTEGER, PARAMETER :: MXFAMLINE = 15 C Common Variables: CHARACTER( 4 ) :: CYSPTYP( MAXCYCLES ) ! Type of name for cycle CHARACTER( 4 ) :: OUTTYPE ( MAXIRROUT,MAXOUTTERMS ) ! Output term type CHARACTER( 4 ) :: OUTOP2 ( MAXIRROUT,MAXOUTTERMS ) ! Output AND/OR keyword CHARACTER( 4 ) :: OUTS1TYP( MAXIRROUT,MAXOUTTERMS ) ! Name type for species 1 CHARACTER( 4 ) :: OUTS2TYP( MAXIRROUT,MAXOUTTERMS ) ! Name type for species 2 CHARACTER( 4 ) :: OUTS3TYP( MAXIRROUT,MAXOUTTERMS ) ! Name type for species 3 CHARACTER( 7 ) :: OUTPNFLAG( MAXIRROUT,MAXOUTTERMS ) ! Flag to include ! only if sum is + or - CHARACTER( 16 ) :: FAMNAME ( MAXFAMLYS ) ! Name of Family CHARACTER( 16 ) :: RXSUMNAME( MAXRXNSUM ) ! Name assigned to reaction sum CHARACTER( 16 ) :: CYCLNAME ( MAXCYCLES ) ! Name assigned to reaction sum CHARACTER( 16 ) :: CYCLSPEC ( MAXCYCLES ) ! Species to cycle if so defined CHARACTER( 16 ) :: FAMMEMNAM( MAXFAMLYS,MAXFAMMEM ) ! Name of family member CHARACTER( 16 ) :: RXSUMLBL ( MAXRXNSUM,MAXRXTERMS ) ! Rx no. of terms in sum CHARACTER( 16 ) :: CYRXLBL ( MAXCYCLES,MAXCYTERMS ) ! Rx no. of cycle terms CHARACTER( 16 ) :: OUTRXLBL ( MAXIRROUT,MAXOUTTERMS ) ! Reaction labels of ! terms in command CHARACTER( 16 ) :: OUTSPEC1 ( MAXIRROUT,MAXOUTTERMS ) ! Species 1 name for ! output operator CHARACTER( 16 ) :: OUTSPEC2 ( MAXIRROUT,MAXOUTTERMS ) ! Species 2 name for ! output operator CHARACTER( 16 ) :: OUTSPEC3 ( MAXIRROUT,MAXOUTTERMS ) ! Species 3 name for ! output operator CHARACTER( 16 ), SAVE :: IRRNAME_TMP( MAXIRROUT ) ! for IRRNAME CHARACTER( 28 ) :: TDATOUT ! Output clock time and date CHARACTER( 60 ), SAVE :: IRRDESC_TMP( MAXIRROUT ) ! for IRRDESC CHARACTER( 80 ) :: MECLINE( MXRXNS,MXMECHLINE ) ! Compressed reaction lines CHARACTER( 80 ) :: FAMLINE( MAXFAMLYS,MXFAMLINE ) ! Compressed family lines INTEGER :: NFAMLYS ! Number of families pdefined INTEGER :: NRXSUMS ! Number of reaction sums defined INTEGER :: NCYCLES ! Number of cycles defined INTEGER :: NIRROUT ! Number of outputs IRR fields requested INTEGER :: FAMNUMLNS ( MAXFAMLYS ) ! Number of lines for family INTEGER :: MECNUMLNS ( MXRXNS ) ! Number of lines for reaction INTEGER :: NUMFAMMEM ( MAXFAMLYS ) ! Number of members of each family INTEGER :: NRXTERMS ( MAXRXNSUM ) ! Number of terms in reaction sum INTEGER :: NCYTERMS ( MAXCYCLES ) ! Number of reaction terms in each cycle INTEGER :: NIRRTERMS ( MAXIRROUT ) ! Number of terms in each output request INTEGER :: NOUTCYCS ( MAXIRROUT ) ! No. of cycles used in output INTEGER :: NOUTFAMS ( MAXIRROUT ) ! No. of families used in output INTEGER :: NOUTRXSUMS( MAXIRROUT ) ! No. of reaction sums used in output INTEGER :: NOUTOPS ( MAXIRROUT ) ! No. of output operators INTEGER :: NOUTRXN ( MAXIRROUT ) ! No. of reaction used in output INTEGER :: CYSPNUM ( MAXCYCLES ) ! Species or family-name number INTEGER :: TEMPOUTIND_TMP( MAXTERMS ) ! Init no. of temp IRR terms to add INTEGER :: INDXOUTIND_TMP( MAXTERMS ) ! Init IRR output index of temp terms INTEGER :: TEMPOUTNEG_TMP( MAXTERMS ) ! Init no. of temp IRR terms to add if neg INTEGER :: INDXOUTNEG_TMP( MAXTERMS ) ! Init IRR output index of neg only temp terms INTEGER :: TEMPOUTPOS_TMP( MAXTERMS ) ! Init no. of temp IRR terms to add if pos INTEGER :: INDXOUTPOS_TMP( MAXTERMS ) ! Init IRR output index of pos only temp terms INTEGER :: TEMPTERMS_TMP ( MAXTERMS ) ! Init no of temp IRRs to compute INTEGER :: TEMPRXN_TMP ( MAXTERMS,MAXTERMS ) ! Init Rxn nos. for each temp IRR INTEGER :: FAMSPIDS ( MAXFAMLYS,MAXFAMMEM ) ! Mech spec IDs for fam. mem. INTEGER :: RXSUMRN ( MAXRXNSUM,MAXRXTERMS ) ! Rx numbers of rxsum terms INTEGER :: CYRXNUM ( MAXCYCLES,MAXCYTERMS ) ! Rx numbers of cycle terms INTEGER :: OUTCYCS ( MAXIRROUT,MAXOUTTERMS ) ! Cycle number of output terms INTEGER :: OUTFAMS ( MAXIRROUT,MAXOUTTERMS ) INTEGER :: OUTRXSUMS ( MAXIRROUT,MAXOUTTERMS ) ! Rxsum number of output terms INTEGER :: OUTS1NUM ( MAXIRROUT,MAXOUTTERMS ) ! Species/family name number INTEGER :: OUTS2NUM ( MAXIRROUT,MAXOUTTERMS ) ! Species/family name number INTEGER :: OUTS3NUM ( MAXIRROUT,MAXOUTTERMS ) ! Species/family name number INTEGER :: OUTRN ( MAXIRROUT,MAXOUTTERMS ) ! Input IRR Rxn nos. INTEGER :: IRRRXN_TMP( MAXIRROUT,MAXTERMS ) ! Initial IRR Rx nos. excluding ! CYCLES and RXNSUMS -> IRRRXN REAL :: COEFOUTIND_TMP( MAXTERMS ) ! Init coefficients for pos or neg init REAL :: COEFOUTNEG_TMP( MAXTERMS ) ! Init coefficients for neg init REAL :: COEFOUTPOS_TMP( MAXTERMS ) ! Init coefficients for pos init REAL :: FAMSC( MAXFAMLYS,MAXFAMMEM ) ! Coefficients for a family member REAL :: RXNSC( MAXRXNSUM,MAXRXTERMS ) ! Coefficients for a sum rxn term REAL :: CYSC ( MAXCYCLES,MAXCYTERMS ) ! Coefficients for cycle terms REAL :: OUTSC( MAXIRROUT,MAXOUTTERMS ) ! Coefficients for output terms REAL :: IRRCOEF_TMP( MAXIRROUT,MAXTERMS ) ! Initial coefficients for IRR Rxns REAL :: TEMPCOEF_TMP( MAXTERMS,MAXTERMS ) ! Initial coefficients for temp IRRs END MODULE PA_VARS ================================================ FILE: CCTM/src/procan/pa/budget_defn.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! MODULE BUDGET_DEFN USE PA_DEFN ! Process Anaylsis control and data variables USE GRID_CONF ! horizontal & vertical domain configuration USE RUNTIME_VARS USE UTILIO_DEFN ! inherits PARUTILIO USE CGRID_SPCS, ONLY : CGRID_MASK_GAS, CGRID_MASK_AERO, & CGRID_MASK_NUM, CGRID_MASK_SRF, CGRID_MASK_NR, CGRID_MASK_TRAC, & CGRID_MW, N_CGRID_SPC, CGRID_NAME, NSPCSD, RHOJ_LOC USE VDIFF_MAP, ONLY : N_SPC_DIFF, DIFF_SPC, DIFF_MW, & DIFF_MASK_AERO, DIFF_MASK_NUM, DIFF_MASK_SRF USE CENTRALIZED_IO_MODULE USE XY_BUDGET #ifndef mpas #ifdef parallel USE SE_MODULES ! stenex (using SE_UTIL_MODULE, SE_DATA_COPY_MODULE) #else USE NOOP_MODULES ! stenex (using NOOP_UTIL_MODULE, NOOP_DATA_COPY_MODULE) #endif #endif INTEGER, PARAMETER :: BDGC0_ID = -1 INTEGER, PARAMETER :: BDGSAVE_ID = 0 PUBLIC BUDGET_INIT, STORE_BUDGET, STORE_BUDGET_DDEP, & WRITE_BUDGET, BDGC0_ID, BUDGETVARIABLES, MAX_BUDGET_VARS_NML INTEGER, SAVE :: BDG_UNIT INTEGER, PARAMETER :: BDGCF_ID = -2 REAL, ALLOCATABLE, SAVE :: BDG_PROC( :,: ) REAL, ALLOCATABLE, SAVE :: BDG_BURDEN( :,: ) INTEGER, SAVE :: BDG_JDATE0, BDG_JTIME0 INTEGER, SAVE :: BDG_JDATE1, BDG_JTIME1 CHARACTER( 16 ),ALLOCATABLE, SAVE :: BDGSPEC( : ) INTEGER, ALLOCATABLE, SAVE :: MAP_toCGRID( : ) INTEGER, ALLOCATABLE, SAVE :: MAP_toBDG( : ) INTEGER, SAVE :: N_BDG_VAR, N_BDG_PAIRS !CHARACTER( 9 ) :: tab CHARACTER( 1 ), SAVE :: tab = ',' CONTAINS C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE BUDGET_INIT( CGRID, JDATE, JTIME, TSTEP ) C----------------------------------------------------------------------- C Function: Initialize the budget variables and output file C Preconditions: None C Key Subroutines/Functions Called: None C----------------------------------------------------------------------- USE UTIL_FAMILY_MODULE #ifdef mpas use util_module, only : junit, index1, nextime #endif IMPLICIT NONE ! Includes: INCLUDE SUBST_CONST ! Constants REAL, POINTER :: CGRID(:,:,:,:) INTEGER, INTENT( IN ) :: JDATE, JTIME, TSTEP(3) ! Local Variables: REAL, ALLOCATABLE :: CONC( :,:,:,: ) CHARACTER( 90 ) :: CMAQ_HEADER( 200 ) INTEGER :: NCMAQ_HEAD CHARACTER( 400 ):: XMSG, BDG_FILE CHARACTER( 50 ) :: FM INTEGER :: ASTAT INTEGER :: I, J LOGICAL, SAVE :: FIRST_TIME = .TRUE. INTEGER :: SDATE, STIME CHARACTER( 16 ) :: BDGSPEC_TMP( 500 ), BDGVAR INTEGER :: MAP_toCGRID_TMP( 1000 ) INTEGER :: MAP_toBDG_TMP( 1000 ) INTEGER :: N_BDG_REG LOGICAL :: EXPAND_SPEC LOGICAL, ALLOCATABLE :: CGRID_VEC( : ) !----------------------------------------------------------------------- IF ( FIRST_TIME ) THEN FIRST_TIME = .FALSE. ! Initialize Variables ALLOCATE( CONC( NCOLS,NROWS,NLAYS,N_CGRID_SPC ), & CGRID_VEC( N_CGRID_SPC ), STAT=ASTAT ) CONC = CGRID ALLOCATE( BDG_PROC( N_CGRID_SPC,NPRCS ), & BDG_BURDEN( N_CGRID_SPC,3), & F_WEST_IN( NLAYS,N_CGRID_SPC ), & F_WEST_OUT( NLAYS,N_CGRID_SPC ), & F_EAST_IN( NLAYS,N_CGRID_SPC ), & F_EAST_OUT( NLAYS,N_CGRID_SPC ), & F_SOUTH_IN( NLAYS,N_CGRID_SPC ), & F_SOUTH_OUT( NLAYS,N_CGRID_SPC ), & F_NORTH_IN( NLAYS,N_CGRID_SPC ), & F_NORTH_OUT( NLAYS,N_CGRID_SPC ), & CSAV( NCOLS,NROWS,NLAYS,N_CGRID_SPC ), & STAT=ASTAT ) BDG_PROC = 0.0 BDG_JDATE0 = JDATE BDG_JTIME0 = JTIME F_WEST_IN = 0.0 F_WEST_OUT = 0.0 F_EAST_IN = 0.0 F_EAST_OUT = 0.0 F_SOUTH_IN = 0.0 F_SOUTH_OUT = 0.0 F_NORTH_IN = 0.0 F_NORTH_OUT = 0.0 CSAV = CGRID SDATE = JDATE STIME = JTIME CALL NEXTIME ( SDATE, STIME, TSTEP( 2 ) ) CALL STORE_BUDGET( BDGC0_ID, CONC, JDATE, JTIME, .FALSE. ) DEALLOCATE( CONC ) ! Open Output tab-separated file and print header IF ( MYPE .EQ. 0 ) THEN IF ( BUDGET_FNAME .EQ. 'CCTM_BUDGET' ) THEN IF ( OUTDIR .EQ. '' ) THEN BDG_FILE = "CCTM_BUDGET_" // TRIM(APPL_NAME) // ".txt" ELSE BDG_FILE = TRIM(OUTDIR) // "/CCTM_BUDGET_" // TRIM(APPL_NAME) // ".txt" END IF ELSE J = INDEX( BUDGET_FNAME, ".txt" ) IF ( J .NE. 0 ) THEN BDG_FILE = BUDGET_FNAME(1:J+3) ELSE BDG_FILE = TRIM( BUDGET_FNAME ) // ".txt" END IF END IF BDG_UNIT = JUNIT() OPEN( UNIT = BDG_UNIT, FILE = BDG_FILE, STATUS = "REPLACE" ) ! Write CMAQ Header CALL LOAD_HEADER( CMAQ_HEADER, NCMAQ_HEAD ) WRITE( BDG_UNIT, '(A)' ), CMAQ_HEADER( 1:NCMAQ_HEAD ) WRITE( BDG_UNIT, '(A1)' ),'#' ! Write Execution ID and GridName WRITE( BDG_UNIT, '(A1,6x,A,A)' ),'#',"EXEC_ID: ",TRIM(EXECUTION_ID) WRITE( BDG_UNIT, '(A1,6x,A,A)' ),'#',"GRIDNAME: ",TRIM(GRID_NAME) WRITE( BDG_UNIT, '(A1)' ),'#' WRITE( BDG_UNIT, '(A1,6x,A,A)' ),'#','All date-times are in ', & 'YYYY-mm-ddTHH:MM:SSZ format and in UTC time zone.' WRITE( BDG_UNIT, '(A1,6x,A)' ),'#','Delta T (time) Units are hours.' WRITE( BDG_UNIT, '(A1,6x,A)' ),'#','Gas and Aerosol Mass Units are kg' WRITE( BDG_UNIT, '(A1,6x,A)' ),'#','Aerosol Number Units are total N' WRITE( BDG_UNIT, '(A1,6x,A)' ),'#','Aerosol Surface Area Units are m2' WRITE( BDG_UNIT, '(A1)' ),'#' ! Write Header WRITE( BDG_UNIT, '(55(A))' ), 'SPECIES',tab,'T_START',tab, & 'T_FINAL',tab,'T_DELTA',tab,'M_START',tab,'M_FINAL',tab, & 'M_DELTA',tab,'WEST_IN',tab,'WEST_OUT',tab,'EAST_IN',tab, & 'EAST_OUT',tab,'SOUTH_IN',tab,'SOUTH_OUT',tab,'NORTH_IN',tab, & 'NORTH_OUT', & ( tab, TRIM(PROCNAME(i)),i=3,NPRCS),tab,'RESID' END IF ! Map Budget Variables to CGRID Species N_BDG_REG = INDEX1( '', MAX_BUDGET_VARS_NML, BudgetVariables ) - 1 IF ( N_BDG_REG .LE. 0 ) THEN WRITE( LOGDEV, * ) WRITE( XMSG, '(A,A)' ), & 'No Budget Variables have been selected. All Variables', & 'will be output to the budget file.' CALL LOG_MESSAGE( LOGDEV, XMSG ) N_BDG_REG = 1 BudgetVariables( 1 ) = '*ALL' END IF ! Now Error Check and Expand the CMAQ Species Field N_BDG_VAR = 0 N_BDG_PAIRS = 0 DO I = 1,N_BDG_REG BDGVAR = BudgetVariables( I ) Expand_Spec = .FALSE. IF ( BDGVAR(1:1) .EQ. '*' ) THEN Expand_Spec = .TRUE. BDGVAR(1:15) = BDGVAR(2:16) END IF IF ( TRIM(BDGVAR) .EQ. 'ALL' ) THEN Expand_Spec = .TRUE. END IF ! Retrieve logical vector, DIFF_VEC, indicating diffused species ! relevant for DiagSpec(I) CALL MAP_CHEM_FAMILIES( BDGVAR, CGRID_NAME, N_CGRID_SPC, CGRID_VEC ) ! Save Map to translate each pair to diffused species and ! diagnostic species IF ( EXPAND_SPEC ) THEN ! Add a Diagnostic Species for every expanded species DO J = 1,N_CGRID_SPC IF ( CGRID_VEC( J ) ) THEN N_BDG_VAR = N_BDG_VAR + 1 BDGSPEC_TMP( N_BDG_VAR ) = CGRID_NAME( J ) N_BDG_PAIRS = N_BDG_PAIRS + 1 MAP_toCGRID_TMP( N_BDG_PAIRS ) = J MAP_toBDG_TMP( N_BDG_PAIRS ) = N_BDG_VAR END IF END DO ELSE ! Keep only 1 diagnostic species and map all of the diffused ! species to it IF ( ANY( CGRID_VEC ) ) THEN N_BDG_VAR = N_BDG_VAR + 1 BDGSPEC_TMP( N_BDG_VAR ) = BDGVAR END IF DO J = 1,N_CGRID_SPC IF ( CGRID_VEC( J ) ) THEN N_BDG_PAIRS = N_BDG_PAIRS + 1 MAP_toCGRID_TMP( N_BDG_PAIRS ) = J MAP_toBDG_TMP( N_BDG_PAIRS ) = N_BDG_VAR END IF END DO END IF END DO ALLOCATE( MAP_toCGRID( N_BDG_PAIRS ), & MAP_toBDG( N_BDG_PAIRS ), & BDGSPEC( N_BDG_VAR ) ) MAP_toCGRID = MAP_toCGRID_TMP( 1:N_BDG_PAIRS ) MAP_toBDG = MAP_toBDG_TMP( 1:N_BDG_PAIRS ) BDGSPEC = BDGSPEC_TMP( 1:N_BDG_VAR ) END IF RETURN END SUBROUTINE BUDGET_INIT !cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc ! Store Budget Data !cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc SUBROUTINE STORE_BUDGET( IPR_ID, CONC, JDATE, JTIME, LCOUPLE ) USE CENTRALIZED_IO_MODULE, ONLY : MSFX2 IMPLICIT NONE INCLUDE SUBST_CONST ! Constants REAL :: CONC( :,:,:,: ) INTEGER, INTENT( IN ) :: IPR_ID ! Process ID INTEGER, INTENT( IN ) :: JDATE, JTIME LOGICAL, INTENT( IN ) :: LCOUPLE ! Flag for whther or not to use ! rhoj from the CGRID array for ! the density calculation for gases REAL, ALLOCATABLE, SAVE :: BDG_MASS( :,:,:,: ) REAL, ALLOCATABLE, SAVE :: BDG_MASS_SAVE( :,:,:,: ) REAL, PARAMETER :: MWAIR_SI = MWAIR / 1.0E+03 ! kg mol-1 REAL, ALLOCATABLE, SAVE :: DENS( :,:,: ) ! air density (kg m-3) REAL, ALLOCATABLE, SAVE :: RHOJ( :,:,: ) ! air density * Jacobian (kg m-3) REAL, ALLOCATABLE, SAVE :: JACOBM( :,:,: ) ! Jacobian REAL, ALLOCATABLE, SAVE :: ZF( :,:,: ) ! height of layer top REAL, ALLOCATABLE, SAVE :: CELLVOL( :,:,: )! cell volume REAL :: AERO_NORM LOGICAL :: FIRST_TIME = .TRUE. INTEGER ASTAT INTEGER L, I, LAYS, R, C ! First time through, allocate Budget Concentration conversion ! array IF ( FIRST_TIME ) THEN FIRST_TIME = .FALSE. ALLOCATE ( BDG_MASS( NCOLS,NROWS,NLAYS,N_CGRID_SPC ), & BDG_MASS_SAVE( NCOLS,NROWS,NLAYS,N_CGRID_SPC ), & DENS( NCOLS,NROWS,NLAYS ), & RHOJ( NCOLS,NROWS,NLAYS ), & JACOBM( NCOLS,NROWS,NLAYS ), & ZF( NCOLS,NROWS,NLAYS ), & CELLVOL( NCOLS,NROWS,NLAYS ), & STAT = ASTAT ) END IF ! Retrieve Cell Variables for converting concentrations to burden #ifdef mpas CELLVOL( :,1,: ) = cell_vol(:,1,:) #else call interpolate_var ('ZF', jdate, jtime, ZF) ! height of layer top CELLVOL( :,:,1 ) = REAL( XCELL_GD * YCELL_GD, 4 ) * ZF( :,:,1 ) / MSFX2(:,:) DO L = 2,NLAYS CELLVOL( :,:,L ) = REAL( XCELL_GD * YCELL_GD,4) / MSFX2( :,: ) * & ( ZF( :,:,L ) - ZF( :,:,L-1) ) ! m3 END DO #endif ! Calculate Density for Conversion of Gases from ppm to kg. If IF ( LCOUPLE ) THEN ! If LCOUPLE is true, then the gases are already in mol mol-1 kg m-2, ! which are the units of ppm * [air density] * [Jacobian]. In ! general, the Jacobian usedin CMAQ includes the map scale ! factor squared: JACOBM = J / msfx2 ! Aerosols are in units of ug m-2 #ifdef mpas JACOBM = 1.0 #else call interpolate_var ('JACOBM', jdate, jtime, JACOBM) ! Jacobian #endif DENS = 1.0 / MWAIR_SI * 1.0E-6 * 1.0E-3 ! mol kg-1 air CELLVOL = CELLVOL / JACOBM ! m2 AERO_NORM = 1.0 ELSE ! If LCOUPLE is false, then gases are in ppm and aerosols in ! ug m-3. call interpolate_var ('DENS', jdate, jtime, DENS) ! kg m-3 DENS = DENS / MWAIR_SI * 1.0E-6 * 1.0E-3 ! umol m-3 air AERO_NORM = 1.0E-9 END IF ! Convert Process Units to kg (mass), N (number), and m2 (surface ! area). Input gases are in ppm, aerosols in ug m-3, number in N ! m-3 and surface area in m2 m-3. LAYS = NLAYS IF ( IPR_ID .EQ. IPR_DDEP ) LAYS = 1 DO I = 1,N_CGRID_SPC ! Gas - convert ppm to kg IF ( ( CGRID_MASK_GAS( I ) .OR. & CGRID_MASK_NR( I ) .OR. & CGRID_MASK_TRAC( I ) ) .AND. & I .NE. RHOJ_LOC ) THEN DO L = 1,LAYS DO R = 1,NROWS DO C = 1,NCOLS BDG_MASS(C,R,L,I) = CONC(C,R,L,I) * DENS(C,R,L) & * CGRID_MW(I) * CELLVOL(C,R,L) END DO END DO END DO END IF ! Aerosol Mass: ug m-3 -> kg IF ( CGRID_MASK_AERO( I ) .AND. & .NOT. CGRID_MASK_NUM( I ) .AND. & .NOT. CGRID_MASK_SRF( I ) ) THEN DO L = 1,LAYS DO R = 1,NROWS DO C = 1,NCOLS BDG_MASS(C,R,L,I) = CONC(C,R,L,I) * AERO_NORM & * CELLVOL(C,R,L) END DO END DO END DO END IF ! Aerosol Number: N m-3 -> N ! Aerosol Surface Area: m2 m-3 -> m2 IF ( CGRID_MASK_NUM( I ) ) THEN DO L = 1,LAYS BDG_MASS(:,:,L,I) = CONC(:,:,L,I) * CELLVOL(:,:,L) END DO END IF IF ( CGRID_MASK_SRF( I ) ) THEN DO L = 1,LAYS BDG_MASS(:,:,L,I) = CONC(:,:,L,I) * CELLVOL(:,:,L) END DO END IF END DO ! Sum and Store Process Change IF ( IPR_ID .EQ. BDGC0_ID ) THEN BDG_BURDEN( :,1 ) = SUM( SUM( SUM( BDG_MASS(:,:,:,:),1 ),1 ),1 ) BDG_MASS_SAVE = BDG_MASS ELSE IF ( IPR_ID .EQ. BDGCF_ID ) THEN BDG_BURDEN( :,2 ) = SUM( SUM( SUM( BDG_MASS(:,:,:,:),1 ),1 ),1 ) ELSE IF ( IPR_ID .EQ. IPR_DDEP ) THEN BDG_PROC( :,IPR_ID ) = BDG_PROC( :,IPR_ID ) + SUM( SUM( BDG_MASS(:,:,1,:),1 ),1 ) ELSE IF ( IPR_ID .EQ. IPR_EMIS .OR. IPR_ID .EQ. IPR_XADV .OR. & IPR_ID .EQ. IPR_YADV .OR. IPR_ID .EQ. IPR_COAG .OR. & IPR_ID .EQ. IPR_COND .OR. IPR_ID .EQ. IPR_NPF .OR. & IPR_ID .EQ. IPR_GROW ) THEN BDG_PROC( :,IPR_ID ) = BDG_PROC( :,IPR_ID ) & +SUM( SUM( SUM( BDG_MASS(:,:,:,:),1 ),1 ),1 ) ELSE IF ( IPR_ID .EQ. BDGSAVE_ID ) THEN ! Just Save the Burden BDG_MASS_SAVE = BDG_MASS ELSE BDG_PROC( :,IPR_ID ) = BDG_PROC( :,IPR_ID ) & + SUM( SUM( SUM( BDG_MASS - BDG_MASS_SAVE,1 ),1 ),1 ) BDG_MASS_SAVE = BDG_MASS END IF RETURN END SUBROUTINE STORE_BUDGET ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Write Budget Output to CSV File ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc SUBROUTINE WRITE_BUDGET( CONC, JDATE, JTIME, TSTEP ) #ifdef mpas use util_module, only : daymon #endif IMPLICIT NONE INTEGER I, J INTEGER, INTENT( IN ) :: JDATE, JTIME, TSTEP(3) REAL :: CONC( :,:,:,: ) REAL,ALLOCATABLE,SAVE :: RESID( : ), RESID_F(:) LOGICAL, SAVE :: FIRST_TIME = .TRUE. REAL DT INTEGER DTHR, DTMIN, DTSEC INTEGER BDG_YEAR0, BDG_MONTH0, BDG_DAY0, BDG_YYYYMMDD0 INTEGER BDG_YEAR1, BDG_MONTH1, BDG_DAY1, BDG_YYYYMMDD1 INTEGER BDG_HOUR0, BDG_MIN0, BDG_SEC0 INTEGER BDG_HOUR1, BDG_MIN1, BDG_SEC1 CHARACTER(20) :: BDG_TIME0, BDG_TIME1 REAL, ALLOCATABLE, SAVE :: BDG_BURDEN_OUT(:,:), BDG_PROC_OUT(:,:), & ADV_FLUXES_OUT(:,:), ADV_FLUXES(:,:) REAL :: TMP, TMP2 IF ( FIRST_TIME ) THEN FIRST_TIME = .FALSE. ALLOCATE ( RESID( N_CGRID_SPC ), RESID_F( N_BDG_VAR ), & BDG_BURDEN_OUT( N_BDG_VAR,3 ), & BDG_PROC_OUT( N_BDG_VAR,NPRCS ), & ADV_FLUXES( N_CGRID_SPC,8 ), & ADV_FLUXES_OUT( N_BDG_VAR,8 ) ) END IF CALL STORE_BUDGET( BDGCF_ID, CONC, JDATE, JTIME, .FALSE. ) CSAV = CONC ! Correct VDIFF by subtracting emissions and dry deposition BDG_PROC( :,IPR_VDIF ) = BDG_PROC( :,IPR_VDIF ) - BDG_PROC( :,IPR_EMIS ) - BDG_PROC( :,IPR_DDEP ) ! Calculate total mass change across output time step BDG_BURDEN( :,3 ) = BDG_BURDEN( :,2 ) - BDG_BURDEN( :,1 ) ! Convert units for vapor ADV_FLUXES from 10^-6 mol to kg ! Units for aerosol mass should already be kg ! Units for aerosol number and surface area should already be N and m2 ADV_FLUXES( :,1 ) = SUM( F_WEST_IN, 1 ) ADV_FLUXES( :,2 ) = -1.0 * SUM( F_WEST_OUT, 1 ) ADV_FLUXES( :,3 ) = SUM( F_EAST_IN, 1 ) ADV_FLUXES( :,4 ) = -1.0 * SUM( F_EAST_OUT, 1 ) ADV_FLUXES( :,5 ) = SUM( F_SOUTH_IN, 1 ) ADV_FLUXES( :,6 ) = -1.0 * SUM( F_SOUTH_OUT, 1 ) ADV_FLUXES( :,7 ) = SUM( F_NORTH_IN, 1 ) ADV_FLUXES( :,8 ) = -1.0 * SUM( F_NORTH_OUT, 1 ) DO I = 1,N_CGRID_SPC IF ( .NOT.CGRID_MASK_AERO( I ) ) & ADV_FLUXES( I,: ) = ADV_FLUXES( I,: ) * 1.0E-9 * CGRID_MW( I ) END DO ! Calculate Date, Time, and Length of Time Interval BDG_JDATE1 = JDATE BDG_JTIME1 = JTIME DTHR = TSTEP(1)/10000 DTMIN = ( TSTEP(1) - DTHR*10000 ) / 100 DTSEC = TSTEP(1) - DTHR*10000 - DTMIN*100 DT = REAL( DTHR,4) + REAL( DTMIN,4 )/60.0 + REAL( DTSEC,4 )/3600.0 ! Format Beginning and Ending Date-Times IF ( MYPE .EQ. 0 ) THEN BDG_YEAR0 = BDG_JDATE0 / 1000 BDG_YEAR1 = BDG_JDATE1 / 1000 CALL DAYMON( BDG_JDATE0, BDG_MONTH0, BDG_DAY0 ) CALL DAYMON( BDG_JDATE1, BDG_MONTH1, BDG_DAY1 ) BDG_YYYYMMDD0 = BDG_YEAR0*10000 + BDG_MONTH0*100 + BDG_DAY0 BDG_YYYYMMDD1 = BDG_YEAR1*10000 + BDG_MONTH1*100 + BDG_DAY1 BDG_HOUR0 = BDG_JTIME0 / 10000 BDG_HOUR1 = BDG_JTIME1 / 10000 BDG_MIN0 = ( BDG_JTIME0 - BDG_HOUR0*10000 ) / 100 BDG_MIN1 = ( BDG_JTIME1 - BDG_HOUR1*10000 ) / 100 BDG_SEC0 = BDG_JTIME0 - BDG_HOUR0*10000 - BDG_MIN0*100 BDG_SEC1 = BDG_JTIME1 - BDG_HOUR1*10000 - BDG_MIN1*100 WRITE( BDG_TIME0, '(I4,A1,I2.2,A1,I2.2,A1,I2.2,A1,I2.2,A1,I2.2,A1)' ), & BDG_YEAR0,'-',BDG_MONTH0,'-',BDG_DAY0,'T',BDG_HOUR0,':', & BDG_MIN0,':',BDG_SEC0,'Z' WRITE( BDG_TIME1, '(I4,A1,I2.2,A1,I2.2,A1,I2.2,A1,I2.2,A1,I2.2,A1)' ), & BDG_YEAR1,'-',BDG_MONTH1,'-',BDG_DAY1,'T',BDG_HOUR1,':', & BDG_MIN1,':',BDG_SEC1,'Z' END IF ! Map CGRID Species to Budget Output Species BDG_PROC_OUT = 0.0 BDG_BURDEN_OUT = 0.0 ADV_FLUXES_OUT = 0.0 DO I = 1,N_BDG_PAIRS BDG_PROC_OUT( MAP_toBDG( I ),: ) = BDG_PROC_OUT( MAP_toBDG( I ),: ) & + BDG_PROC( MAP_toCGRID( I ),: ) BDG_BURDEN_OUT( MAP_toBDG( I ),: ) = BDG_BURDEN_OUT( MAP_toBDG( I ),: ) & + BDG_BURDEN( MAP_toCGRID( I ),: ) ADV_FLUXES_OUT( MAP_toBDG( I ),: ) = ADV_FLUXES_OUT( MAP_toBDG( I ),: ) & + ADV_FLUXES( MAP_toCGRID( I ),: ) END DO #ifndef mpas #ifdef parallel ! Sum Changes Across All Processors DO J = 1,3 DO I = 1,N_BDG_VAR BDG_BURDEN_OUT(I,J) = SUBST_GLOBAL_SUM( BDG_BURDEN_OUT(I,J) ) END DO END DO DO J = 1,NPRCS DO I = 1,N_BDG_VAR BDG_PROC_OUT(I,J) = SUBST_GLOBAL_SUM( BDG_PROC_OUT(I,J) ) END DO END DO DO J = 1,8 DO I = 1,N_BDG_VAR ADV_FLUXES_OUT(I,J) = SUBST_GLOBAL_SUM( ADV_FLUXES_OUT(I,J) ) END DO END DO #endif #endif IF ( MYPE .EQ. 0 ) THEN ! Positive Residual means sum of processes is greater ! than net change in mass ! RESID_F(:) = SUM( BDG_PROC_OUT(:,1:NPRCS),2 ) !& - BDG_BURDEN_OUT( :,3 ) RESID_F(:) = SUM( BDG_PROC_OUT(:,3:NPRCS),2 ) + SUM( ADV_FLUXES_OUT,2) & - BDG_BURDEN_OUT( :,3 ) ! Use Adv Fluxes instead of total XADV and YADV ! Write Species Process Changes to tab-separated file DO I = 1,N_BDG_VAR ! Default WRITE( BDG_UNIT,'(3(A,A),F7.3,A,24(E15.8,A) )' ),TRIM(BDGSPEC(I)),tab, & BDG_TIME0,tab,BDG_TIME1,tab, DT,tab, (BDG_BURDEN_OUT(I,J),tab,J=1,3 ), & ( ADV_FLUXES_OUT(I,J),tab,J=1,8 ), & ( BDG_PROC_OUT(I,J),tab,J=3,NPRCS ), RESID_F(I) ! Debugging ! WRITE( BDG_UNIT,'(3(A,A),F7.3,A,21(E11.4,A) )' ),TRIM(BDGSPEC(I)),tab, ! & BDG_TIME0,tab,BDG_TIME1,tab, DT,tab, (BDG_BURDEN_OUT(I,J),tab,J=1,3 ), ! & SUM( ADV_FLUXES_OUT(I,1:4)),tab, SUM( ADV_FLUXES_OUT(I,5:8)),tab, ! & ( BDG_PROC_OUT(I,J),tab,J=1,NPRCS ), RESID_F(I), tab, RESID(I) END DO END IF ! Assign Initial Concentration ! and zero Out all Rates, etc BDG_PROC = 0.0 BDG_BURDEN( :,1 ) = BDG_BURDEN( :,2 ) BDG_BURDEN( :,2 ) = 0 BDG_BURDEN( :,3 ) = 0 BDG_JDATE0 = BDG_JDATE1 BDG_JTIME0 = BDG_JTIME1 F_WEST_IN = 0 F_WEST_OUT = 0 F_EAST_IN = 0 F_EAST_OUT = 0 F_SOUTH_IN = 0 F_SOUTH_OUT = 0 F_NORTH_IN = 0 F_NORTH_OUT = 0 RETURN END SUBROUTINE WRITE_BUDGET END MODULE BUDGET_DEFN ================================================ FILE: CCTM/src/procan/pa/pa_compmech.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE PA_COMPMECH C----------------------------------------------------------------------- C Function: To produce a compressed mechanism structure for the PA C output listing program C Preconditions: None C Key Subroutines/Functions Called: None C Revision History: C Prototype created by Jerry Gipson, August, 1996 C Modified May, 1997 by Jerry Gipson to be consistent with beta CTM C Modified Dec. 7, 2000 by Jerry Gipson to correct problem in getting C character length of a species name used in the compressed mechanism C Modified May 2002 by Jerry Gipson to increase number of reaction lines C (for saprc99) C Aug 2011 Jeff Young: Replaced I/O API include files with IOAPI's M3UTILIO C Jul 2016 Jeff Young: Inline Function TRIMCOEF; fix bug if 5 dec. pt. coeff C Sep 2018 C. Nolte, S. Roselle: replace M3UTILIO with UTILIO_DEFN C----------------------------------------------------------------------- USE UTILIO_DEFN USE PA_GLOBAL ! Mech data used USE PA_VARS USE PA_PARSE IMPLICIT NONE C Includes: None C Arguments: None C Parameters: None C External Functions: None C Local Variables: CHARACTER( 72 ) :: LINOUT ! line of mechanism text CHARACTER( 10 ) :: COUT ! Coefficient in character representation CHARACTER( 1 ) :: SIGNC ! Sign character CHARACTER( 16 ) :: SPCNAM ! Species name CHARACTER( LABLEN ) :: TEMPSTR ! Temporary holder of right-justified label INTEGER COUTLEN ! Length of character based coefficient INTEGER ENDPOS ! Ending position on line for next product INTEGER EQPOS ! Position of equals sign INTEGER EXPOS ! Exclamation point position INTEGER IE1, IE2 ! Ending position of characters in a string INTEGER IEND ! Position of last non-blank character in LINOUT INTEGER INDX ! Index for species name INTEGER IS1, IS2 ! Starting position of characters in a string INTEGER ISTAR ! Counter for sign INTEGER LEN1 ! Actual label length INTEGER :: LINLEN = 72 ! Max length of line of mechanism text INTEGER MAXLEN ! Max length of a label on output INTEGER NRX ! Loop index for reactions INTEGER N ! Loop index INTEGER NFAM ! Loop index for familys INTEGER OUTLEN ! Number of characters in output string REAL SPCOEF ! Single Precision coefficient C----------------------------------------------------------------------- cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Find the longest reaction label length and trim to six characters cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc MAXLEN = 0 DO NRX = 1, NRXNS MAXLEN = MAX( MAXLEN, LEN_TRIM( RXLABEL( NRX ) ) ) END DO IF ( MAXLEN .GT. 6 ) MAXLEN = 6 cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Set the compressed mechanism list for each reaction cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc DO 100 NRX = 1, NRXNS c..First get the reaction label right justified !123456789012345678901234 LINOUT = ' & IRR<' IEND = LEN_TRIM( LINOUT ) DO N = 1, LABLEN TEMPSTR( N:N ) = ' ' END DO IS1 = LBLANK( RXLABEL( NRX ) ) + 1 IE1 = LEN_TRIM( RXLABEL( NRX ) ) LEN1 = IE1 - IS1 + 1 LEN1 = MIN( MAXLEN, LEN1 ) IE1 = IS1 + LEN1 - 1 IE2 = LABLEN IS2 = LABLEN - LEN1 + 1 TEMPSTR( IS2:IE2 ) = RXLABEL( NRX )( IS1:IE1 ) IS2 = LABLEN - MAXLEN + 1 LINOUT = LINOUT( 1 : IEND ) // TEMPSTR( IS2:IE2 ) // '> !' IEND = LEN_TRIM( LINOUT ) + 1 EXPOS = IEND - 1 c..List reactants DO N = 1, NREACT( NRX ) INDX = IRR( NRX, N ) SPCNAM = CHEMISTRY_SPC( INDX ) OUTLEN = MIN( 6, LEN_TRIM( SPCNAM ) ) IF ( N .EQ. 1 ) THEN LINOUT = LINOUT( 1:IEND ) // SPCNAM( 1:OUTLEN ) ELSE LINOUT = LINOUT( 1:IEND ) // '+' // & SPCNAM( 1:OUTLEN ) END IF IEND = LEN_TRIM( LINOUT ) END DO c..Add hv, H2O, M, N2 or O2 IF ( BTEST( IRXBITS( NRX ), 1 ) ) THEN LINOUT = LINOUT( 1:IEND ) // '+hv' IEND = LEN_TRIM( LINOUT ) END IF IF ( BTEST( IRXBITS( NRX ), 2 ) ) THEN LINOUT = LINOUT( 1:IEND ) // '+M' IEND = LEN_TRIM( LINOUT ) END IF IF ( BTEST( IRXBITS( NRX ), 3 ) ) THEN LINOUT = LINOUT( 1:IEND ) // '+H2O' IEND = LEN_TRIM( LINOUT ) END IF IF ( BTEST( IRXBITS( NRX ), 4 ) ) THEN LINOUT = LINOUT( 1:IEND ) // '+O2' IEND = LEN_TRIM( LINOUT ) END IF IF ( BTEST( IRXBITS( NRX ), 5 ) ) THEN LINOUT = LINOUT( 1:IEND ) // '+N2' IEND = LEN_TRIM( LINOUT ) END IF EQPOS = IEND + 1 LINOUT = LINOUT( 1:IEND ) // '=' IEND = IEND + 1 c..List products LINNUM = 1 DO N = 1, NPRDCT( NRX ) INDX = IRR( NRX,N + 3 ) SPCNAM = CHEMISTRY_SPC( INDX ) OUTLEN = MIN( 6, LEN_TRIM( SPCNAM ) ) SPCOEF = SC( NRX,N ) IF ( SPCOEF .NE. 1.0 ) THEN COUT = TRIMCOEF( SPCOEF ) COUTLEN = LEN_TRIM( COUT ) ISTAR = 1 ELSE COUTLEN = 0 ISTAR = 0 END IF ENDPOS = IEND + 1 + COUTLEN + OUTLEN IF ( ENDPOS .GT. LINLEN ) THEN MECLINE( NRX,LINNUM ) = LINOUT LINNUM = LINNUM + 1 IF ( LINNUM .GT. MXMECHLINE ) THEN WRITE( MSG, 94000 ) CALL M3MESG( MSG ) CALL M3EXIT( 'MECHCOMP', IZERO, IZERO, ' ', XSTAT2 ) END IF LINOUT = '' LINOUT( 1:1 ) = ' ' LINOUT( EXPOS:EXPOS ) = '!' IEND = EXPOS + 6 END IF IF ( SPCOEF .LT. 0.0 ) THEN SIGNC = '-' ELSE SIGNC = '+' END IF IF ( N .NE. 1 .OR. SIGNC .EQ. '-' ) THEN LINOUT = LINOUT( 1:IEND ) // SIGNC IEND = IEND + 1 END IF IF ( SPCOEF .EQ. 1.0 ) THEN LINOUT = LINOUT( 1:IEND ) // SPCNAM( 1:OUTLEN ) ELSE LINOUT = LINOUT( 1:IEND ) // COUT( 1:COUTLEN ) // & '*' // SPCNAM( 1:OUTLEN ) END IF IEND = LEN_TRIM( LINOUT ) END DO MECLINE( NRX, LINNUM ) = LINOUT MECNUMLNS( NRX ) = LINNUM 100 CONTINUE cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Now get a compressed list of Family definitions cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc DO 200 NFAM = 1, NFAMLYS IEND = LEN_TRIM( FAMNAME( NFAM ) ) LINOUT = ' ' // FAMNAME( NFAM )( 1:IEND ) // '=' IEND = LEN_TRIM( LINOUT ) EQPOS = IEND LINNUM = 1 DO N = 1, NUMFAMMEM( NFAM ) SPCNAM = FAMMEMNAM( NFAM, N ) OUTLEN = MIN( 6, LEN_TRIM( SPCNAM ) ) IF ( FAMSC( NFAM, N ) .NE. 1.0 ) THEN COUT = TRIMCOEF( FAMSC( NFAM, N ) ) COUTLEN = LEN_TRIM( COUT ) ISTAR = 1 ELSE COUTLEN = 0 ISTAR = 0 END IF ENDPOS = IEND + 1 + COUTLEN + OUTLEN IF ( ENDPOS .GT. LINLEN ) THEN FAMLINE( NFAM, LINNUM ) = LINOUT LINNUM = LINNUM + 1 IF ( LINNUM .GT. MXFAMLINE ) THEN WRITE( MSG, 94020 ) CALL M3MESG( MSG ) CALL M3EXIT( 'MECHCOMP', IZERO, IZERO, ' ', XSTAT2 ) END IF LINOUT = '' LINOUT( 1:1 ) = ' ' IEND = EQPOS END IF IF ( FAMSC( NFAM, N ) .LT. 0.0 ) THEN SIGNC = '-' ELSE SIGNC = '+' END IF IF ( N .NE. 1 .OR. SIGNC .EQ. '-' ) THEN LINOUT = LINOUT( 1:IEND ) // SIGNC IEND = IEND + 1 END IF IF ( FAMSC( NFAM, N ) .EQ. 1.0 ) THEN LINOUT = LINOUT( 1:IEND ) // SPCNAM( 1:OUTLEN ) ELSE LINOUT = LINOUT( 1:IEND ) // COUT( 1:COUTLEN ) // & '*' // SPCNAM( 1:OUTLEN ) END IF IEND = LEN_TRIM( LINOUT ) END DO FAMLINE( NFAM, LINNUM ) = LINOUT FAMNUMLNS( NFAM ) = LINNUM 200 CONTINUE C----------------------- FORMAT Statements ----------------------------- 94000 FORMAT( 'ERROR: Maximum number of lines for compressed', & ' mechanism exceeded' ) 94020 FORMAT( 'ERROR: Maximum number of lines for compressed', & ' family definition exceeded' ) C----------------------------------------------------------------------- RETURN CONTAINS FUNCTION TRIMCOEF( COEFF ) RESULT( CHRCOEF ) C----------------------------------------------------------------------- C Function: Convert a real number to character representation using C the fewest number of characters C----------------------------------------------------------------------- IMPLICIT NONE C Arguments: REAL COEFF ! Real number to convert CHARACTER( 10 ) :: CHRCOEF ! Character coefficient holder C Local Variables: INTEGER COEFLEN ! Max number of characters in coefficient INTEGER ENDPOS ! Position of last significant haracter INTEGER SPOS ! Position of first significant character INTEGER OFFSET ! Justification offset INTEGER POS ! Loop index for string position C----------------------------------------------------------------------- WRITE( CHRCOEF, '( F10.5 )' ) COEFF COEFLEN = 10 c..Strip Trailing zeroes ENDPOS = COEFLEN DO POS = COEFLEN, 6, -1 IF ( CHRCOEF( POS:POS ) .EQ. '0' ) THEN ENDPOS = POS CHRCOEF( POS:POS ) = ' ' ELSE GO TO 40 END IF END DO 40 CONTINUE c..Strip decimal point if not needed IF ( ENDPOS .EQ. 6 ) THEN CHRCOEF( 5:5 ) = ' ' ENDPOS = ENDPOS - 1 END IF c..Strip leading any leading signs DO POS = 1, 3 IF ( CHRCOEF( POS:POS ) .EQ. '+' .OR. & CHRCOEF( POS:POS ) .EQ. '-' ) THEN CHRCOEF( POS:POS ) = ' ' GO TO 80 END IF END DO 80 CONTINUE c..Strip any leading zeros IF ( ABS( COEFF ) .GT. 0.0 .AND. COEFF .LT. 1.0 ) THEN DO POS = 4, 1, -1 IF ( CHRCOEF( POS:POS ) .EQ. '0' ) & CHRCOEF( POS:POS ) = ' ' END DO END IF c..Left justify character string and return DO POS = 1, COEFLEN IF ( CHRCOEF( POS:POS ) .NE. ' ' ) THEN SPOS = POS GO TO 120 END IF END DO 120 CONTINUE OFFSET = SPOS - 1 DO POS = 1, COEFLEN IF ( POS + OFFSET .LE. ENDPOS ) THEN CHRCOEF( POS:POS ) = CHRCOEF( POS+OFFSET:POS+OFFSET ) ELSE CHRCOEF( POS:POS ) = ' ' END IF END DO RETURN END FUNCTION TRIMCOEF END SUBROUTINE PA_COMPMECH ================================================ FILE: CCTM/src/procan/pa/pa_datagen.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE PA_DATAGEN( ) C---------------------------------------------------------------------- C Function: Create the Process Analysis control data C Preconditions: None C Key Subroutines/Functions Called: C Revision History: C 27 Jul 16 J.Young: inline PA ctl program C---------------------------------------------------------------------- USE RUNTIME_VARS USE UTILIO_DEFN USE PA_VARS, Only: NFAMLYS, NRXSUMS, NCYCLES, NIRROUT USE PA_DEFN ! Process Anaylsis control and data variables USE PAGRD_DEFN, ONLY : PAGRD_INIT IMPLICIT NONE C..Includes: None C..Arguments: None C..Parameters: None C..External Functions: None C..Local Variables: None CHARACTER( 16 ) :: PNAME = 'PA_DATAGEN' CHARACTER( 240 ) :: XMSG = ' ' INTEGER :: JDATE, JTIME INTEGER :: ESTAT ! status from environment var check C---------------------------------------------------------------------- !...Get flag to use process analysis WRITE( LOGDEV, * ) CALL LOG_HEADING( LOGDEV, 'INITIALIZE PROCESS ANALYSIS' ) JDATE = 0; JTIME = 0 IF ( PROCAN ) THEN XMSG = TRIM( PNAME ) // ': Process Analysis is activated' CALL M3MESG( XMSG ) ELSE XMSG = TRIM( PNAME ) // ': Process Analysis is not activated' CALL M3MESG( XMSG ) RETURN END IF CALL PA_READ CALL PA_ERRCHECK CALL PA_SETUP_IPR CALL PA_SETUP_IRR CALL PA_COMPMECH ! CALL PA_WRTPADEFN IF ( MYPE .EQ. 0 ) CALL PA_REPORT CALL M3MESG( 'End of initial Process Analysis Control data generation' ) CALL M3MESG( ' ' ) NFAMLYS = 0 NRXSUMS = 0 NCYCLES = 0 NIRROUT = 0 ! Set up horizontal domain and calculate processor-to-subdomain maps for ! process analysis, if required IF ( LIPR .OR. LIRR ) THEN IF ( .NOT. PAGRD_INIT( MYPE ) ) THEN XMSG = '*** Failure defining PA domain configuration' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF END IF RETURN END SUBROUTINE PA_DATAGEN ================================================ FILE: CCTM/src/procan/pa/pa_errcheck.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C----------------------------------------------------------------------- SUBROUTINE PA_ERRCHECK C----------------------------------------------------------------------- C Function: To check the Process Analysis inputs for errors C Preconditions: None C Key Subroutines/Functions Called: None C Revision History: C Prototype created by Jerry Gipson, August, 1996 C Modified by Jerry Gipson April, 1997 to add ADJC process and to add C species = all for IPR outputs C Modified May, 1997 by Jerry Gipson to be consistent with beta CTM C Modified Dec. 1, 1998 to correct operator name check problem C Modified Apr 11, 2000 to account for AE species w/ surface area units C J.Young: fix LCHEMFAM array index bug, fix N_IPR_SPC value for no ipr, C fix blank in 'Air density' species name (found by Michael Bane in UK) C Aug 2011 Jeff Young: Replaced I/O API include files with IOAPI`s M3UTILIO C Jul 2016 Jeff Young: modify for model inline C Sep 2018 C. Nolte, S. Roselle: replace M3UTILIO with UTILIO_DEFN C----------------------------------------------------------------------- USE UTILIO_DEFN USE PA_GLOBAL ! Mech and Grid data used USE CGRID_SPCS, Only: N_CGRID_SPC, CGRID_NAME USE PA_IPRVARS USE PA_VARS USE PA_PARSE USE PA_DEFN IMPLICIT NONE C Includes: None C Arguments: None C Parameters: None C External Functions: None C Local Variables CHARACTER( 4 ) :: TYPE ! Operator type CHARACTER( 7 ) :: PNFLAG ! Initialization flag CHARACTER( 16 ) :: FAM_UNITS ! Units for first species in a family CHARACTER( 16 ) :: VALNAME( MAXDEFNAMES ) ! Vector of valid defined names CHARACTER( 16 ) :: SP_UNITS( MAXFAMMEM ) ! Units for each species LOGICAL LDIFF ! Flag for difference found LOGICAL LERROR ! Flag for an error found LOGICAL LFOUND ! Flag for a name found LOGICAL LFIRST ! Flag for first time LOGICAL :: LERREND = .FALSE. ! Flag to stop processing because of errors LOGICAL :: LCHEMFAM( 0:MAXFAMLYS ) ! Flag for gas-chem species family LOGICAL LRXINC( MXRXNS ) ! Flag for rxns included in cycles LOGICAL LCYUSED( MAXCYCLES ) ! Flag to indicate cycle referenced LOGICAL LRXUSED( MAXRXNSUM ) ! Flag to indicate rxnsum referenced INTEGER CINDX ! Current index for IPR arrays INTEGER HINDX ! Index for rearranging IPR arrays INTEGER INDX ! Index returned from function INDEX1 INTEGER JNDX ! Index returned from function INDEX1 INTEGER IRRIND ! Index for IRR reaction number INTEGER LINDX ! Index for rearranging IPR arrays INTEGER N ! Loop index for specis and defined names INTEGER NCYC ! Loop index for number of cycles INTEGER NEWNPASP ! Number of IPR species after ALL species option INTEGER NFAM ! Loop index for number of families INTEGER NMEM ! Loop index for number of family members INTEGER NOP ! Loop index for number of IPR operators INTEGER NOPS ! Number of IPR_OUTPUT operators INTEGER NOUT ! Loop index for number of output requests INTEGER NR ! No. of Rxns found by getrxns INTEGER NRX ! Loop index for reactions INTEGER NRXS ! Loop index for number of reaction sums INTEGER NTERM ! Loop index for number of terms INTEGER NUMRXNS ! No. of IRR reactions INTEGER NVALID ! Number of valid defined names INTEGER OFFSET ! Offset use to compute IPR output index INTEGER PAINDX ! Index for IPR outputs INTEGER :: RXNUMS( MXRXNS ) ! Rxn nos. of Rxns found bt getrxns INTEGER ASTAT ! Memory REAL :: COEFFS( MXRXNS ) ! Coefficient found with getrxns C----------------------------------------------------------------------- cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Write log header message cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc WRITE( MSG, 93000 ) CALL M3MESG( MSG ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Check that all family names are valid cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc LERROR = .FALSE. NVALID = 0 INDX = 0 LCHEMFAM( 0 ) = .FALSE. DO 40 NFAM = 1, NFAMLYS INDX = INDEX1( FAMNAME( NFAM ), N_CGRID_SPC, CGRID_NAME ) IF ( INDX .NE. 0 ) THEN WRITE( MSG, 94000 ) NFAM, FAMNAME( NFAM ) CALL M3MESG( MSG ) LERROR = .TRUE. END IF INDX = INDEX1( FAMNAME( NFAM ), NVALID, VALNAME ) IF ( INDX .NE. 0 ) THEN WRITE( MSG, 94020 ) NFAM, FAMNAME( NFAM ) CALL M3MESG( MSG ) LERROR = .TRUE. END IF LCHEMFAM( NFAM ) = .TRUE. DO NMEM = 1, NUMFAMMEM( NFAM ) INDX = INDEX1( FAMMEMNAM( NFAM,NMEM ), N_CGRID_SPC, CGRID_NAME ) IF ( INDX .NE. 0 ) THEN FAMSPIDS( NFAM, NMEM ) = INDX JNDX = INDEX1( FAMMEMNAM( NFAM,NMEM ), NUMB_MECH_SPC, CHEMISTRY_SPC ) IF ( JNDX .EQ. 0 ) LCHEMFAM( NFAM ) = .FALSE. ELSE WRITE( MSG, 94040 ) NFAM, FAMNAME( NFAM ), & FAMMEMNAM( NFAM,NMEM ) CALL M3MESG( MSG ) LERROR = .TRUE. END IF END DO IF ( .NOT. LERROR ) THEN NVALID = NVALID + 1 VALNAME( NVALID ) = FAMNAME( NFAM ) END IF 40 CONTINUE IF ( LERROR ) LERREND = .TRUE. cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Check rxnsums inputs cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc LERROR = .FALSE. DO 80 NRXS = 1, NRXSUMS LRXUSED( NRXS ) = .FALSE. INDX = INDEX1( RXSUMNAME( NRXS ), N_CGRID_SPC, CGRID_NAME ) IF ( INDX .NE. 0 ) THEN WRITE( MSG, 94060 ) NRXS, RXSUMNAME( NRXS ) CALL M3MESG( MSG ) LERROR = .TRUE. END IF INDX = INDEX1( RXSUMNAME( NRXS ), NVALID, VALNAME ) IF ( INDX .NE. 0 ) THEN WRITE( MSG, 94080 ) NRXS, RXSUMNAME( NRXS ) CALL M3MESG( MSG ) LERROR = .TRUE. END IF DO NTERM = 1, NRXTERMS( NRXS ) INDX = INDEX1( RXSUMLBL( NRXS,NTERM ), NRXNS, RXLABEL ) IF ( INDX .NE. 0 ) THEN RXSUMRN( NRXS, NTERM ) = INDX ELSE WRITE( MSG, 94100 ) CALL M3MESG( MSG ) WRITE( MSG, 94105 ) NRXS, RXSUMNAME( NRXS ) CALL M3MESG( MSG ) WRITE( MSG, 94110 ) RXSUMLBL( NRXS,NTERM ) CALL M3MESG( MSG ) LERROR = .TRUE. END IF END DO IF ( .NOT. LERROR ) THEN NVALID = NVALID + 1 VALNAME( NVALID ) = RXSUMNAME( NRXS ) END IF 80 CONTINUE IF ( LERROR ) LERREND = .TRUE. cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Check cycle names and cycle species names cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc LERROR = .FALSE. DO 100 NCYC = 1, NCYCLES LCYUSED( NCYC ) = .FALSE. INDX = INDEX1( CYCLNAME( NCYC ), N_CGRID_SPC, CGRID_NAME ) IF ( INDX .NE. 0 ) THEN WRITE( MSG, 94120 ) NCYC, CYCLNAME( NCYC ) CALL M3MESG( MSG ) LERROR = .TRUE. END IF INDX = INDEX1( CYCLNAME( NCYC ), NVALID, VALNAME ) IF ( INDX .NE. 0 ) THEN WRITE( MSG, 94140 ) NCYC, CYCLNAME( NCYC ) CALL M3MESG( MSG ) LERROR = .TRUE. END IF LFOUND = .FALSE. INDX = INDEX1( CYCLSPEC( NCYC ), NUMB_MECH_SPC, CHEMISTRY_SPC ) IF ( INDX .NE. 0 ) THEN LFOUND = .TRUE. CYSPTYP( NCYC ) = 'MECH' CYSPNUM( NCYC ) = INDX END IF INDX = INDEX1( CYCLSPEC( NCYC ), NFAMLYS, FAMNAME ) IF ( INDX .NE. 0 ) THEN LFOUND = .TRUE. CYSPTYP( NCYC ) = 'FAM' CYSPNUM( NCYC ) = INDX END IF IF ( .NOT. LFOUND ) THEN WRITE( MSG, 94160 ) NCYC, CYCLNAME( NCYC ), CYCLSPEC( NCYC ) CALL M3MESG( MSG ) LERROR = .TRUE. END IF 100 CONTINUE IF ( LERROR ) LERREND = .TRUE. cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Check IRR_OUTPUT species names and reaction labels cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc LERROR = .FALSE. DO 140 NOUT = 1, NIRROUT c..check that the output name itself is unique INDX = INDEX1( IRRNAME( NOUT ), N_CGRID_SPC, CGRID_NAME ) IF ( INDX .NE. 0 ) THEN WRITE( MSG, 94180 ) NOUT, IRRNAME( NOUT ) CALL M3MESG( MSG ) LERROR = .TRUE. END IF INDX = INDEX1( IRRNAME( NOUT ), NVALID, VALNAME ) IF ( INDX .NE. 0 ) THEN WRITE( MSG, 94200 ) NOUT, IRRNAME( NOUT ) CALL M3MESG( MSG ) LERROR = .TRUE. END IF IF ( .NOT. LERROR ) THEN NVALID = NVALID + 1 VALNAME( NVALID ) = IRRNAME( NOUT ) END IF DO 120 NTERM = 1, NIRRTERMS( NOUT ) c...check names used in production/loss/net operators TYPE = OUTTYPE( NOUT,NTERM ) IF ( TYPE .EQ. 'PROD' .OR. TYPE .EQ. 'NETP' .OR. & TYPE .EQ. 'LOSS' .OR. TYPE .EQ. 'NETL' .OR. & TYPE .EQ. 'NET' ) THEN LFOUND = .FALSE. INDX = INDEX1( OUTSPEC1( NOUT,NTERM ), NUMB_MECH_SPC, CHEMISTRY_SPC ) IF ( INDX .NE. 0 ) THEN LFOUND = .TRUE. OUTS1TYP( NOUT, NTERM ) = 'MECH' OUTS1NUM( NOUT, NTERM ) = INDX END IF INDX = INDEX1( OUTSPEC1( NOUT,NTERM ), NFAMLYS, FAMNAME ) IF ( INDX .NE. 0 .AND. LCHEMFAM( INDX ) ) THEN LFOUND = .TRUE. OUTS1TYP( NOUT, NTERM ) = 'FAM' OUTS1NUM( NOUT, NTERM ) = INDX END IF IF ( .NOT. LFOUND ) THEN LERROR = .TRUE. IF ( INDX .NE. 0 .AND. .NOT. LCHEMFAM( INDX ) ) THEN WRITE( MSG, 94220 ) CALL M3MESG( MSG ) WRITE( MSG, 94260 ) NOUT, IRRNAME( NOUT ) CALL M3MESG( MSG ) WRITE( MSG, 94230 ) OUTSPEC1( NOUT, NTERM ) CALL M3MESG( MSG ) ELSE WRITE( MSG, 94240 ) CALL M3MESG( MSG ) WRITE( MSG,94260 ) NOUT, IRRNAME( NOUT ) CALL M3MESG( MSG ) WRITE( MSG, 94280 ) OUTSPEC1( NOUT, NTERM ) CALL M3MESG( MSG ) END IF END IF IF ( OUTSPEC2( NOUT,NTERM ) .NE. '' .AND. & ( TYPE .EQ. 'PROD' .OR. TYPE .NE. 'NETP' ) ) THEN LFOUND = .FALSE. INDX = INDEX1( OUTSPEC2( NOUT,NTERM ), NUMB_MECH_SPC, CHEMISTRY_SPC ) IF ( INDX .NE. 0 ) THEN LFOUND = .TRUE. OUTS2TYP( NOUT,NTERM ) = 'MECH' OUTS2NUM( NOUT,NTERM ) = INDX END IF INDX = INDEX1( OUTSPEC2( NOUT,NTERM ), NFAMLYS, FAMNAME ) IF ( INDX .NE. 0 .AND. LCHEMFAM( INDX ) ) THEN LFOUND = .TRUE. OUTS2TYP( NOUT,NTERM ) = 'FAM' OUTS2NUM( NOUT,NTERM ) = INDX END IF IF ( OUTSPEC2( NOUT,NTERM ) .EQ. 'hv' ) THEN LFOUND = .TRUE. OUTS2TYP( NOUT,NTERM ) = 'MECH' OUTS2NUM( NOUT,NTERM ) = 0 END IF IF ( .NOT. LFOUND ) THEN LERROR = .TRUE. IF ( INDX .NE. 0 .AND. .NOT. LCHEMFAM( INDX ) ) THEN WRITE( MSG, 94220 ) CALL M3MESG( MSG ) WRITE( MSG, 94260 ) NOUT, IRRNAME( NOUT ) CALL M3MESG( MSG ) WRITE( MSG, 94230 ) OUTSPEC2( NOUT,NTERM ) CALL M3MESG( MSG ) ELSE WRITE( MSG, 94240 ) CALL M3MESG( MSG ) WRITE( MSG, 94260 ) NOUT, IRRNAME( NOUT ) CALL M3MESG( MSG ) WRITE( MSG, 94280 ) OUTSPEC2( NOUT,NTERM ) CALL M3MESG( MSG ) END IF END IF END IF IF ( OUTSPEC3( NOUT, NTERM ) .NE. '' .AND. & TYPE .NE. 'NET' ) THEN LFOUND = .FALSE. INDX = INDEX1( OUTSPEC3( NOUT,NTERM ), NUMB_MECH_SPC, CHEMISTRY_SPC ) IF ( INDX .NE. 0 ) THEN LFOUND = .TRUE. OUTS3TYP( NOUT,NTERM ) = 'MECH' OUTS3NUM( NOUT,NTERM ) = INDX END IF INDX = INDEX1( OUTSPEC3( NOUT,NTERM ), NFAMLYS, FAMNAME ) IF ( INDX .NE. 0 .AND. LCHEMFAM( INDX ) ) THEN LFOUND = .TRUE. OUTS3TYP( NOUT,NTERM ) = 'FAM' OUTS3NUM( NOUT,NTERM ) = INDX END IF IF ( OUTSPEC3( NOUT,NTERM ) .EQ. 'hv ' ) THEN LFOUND = .TRUE. OUTS3TYP( NOUT,NTERM ) = 'MECH' OUTS3NUM( NOUT,NTERM ) = 0 END IF IF ( .NOT. LFOUND ) THEN LERROR = .TRUE. IF ( INDX .NE. 0 .AND. .NOT. LCHEMFAM( INDX ) ) THEN WRITE( MSG, 94220 ) CALL M3MESG( MSG ) WRITE( MSG, 94260 ) NOUT, IRRNAME( NOUT ) CALL M3MESG( MSG ) WRITE( MSG,94230 ) OUTSPEC2( NOUT,NTERM ) CALL M3MESG( MSG ) ELSE WRITE( MSG, 94240 ) CALL M3MESG( MSG ) WRITE( MSG, 94260 ) NOUT, IRRNAME( NOUT ) CALL M3MESG( MSG ) WRITE( MSG, 94280 ) OUTSPEC3( NOUT,NTERM ) CALL M3MESG( MSG ) END IF END IF END IF c..check cycle names or reaction sum names ELSE IF ( TYPE .EQ. 'NAME' ) THEN LFOUND = .FALSE. INDX = INDEX1( OUTSPEC1( NOUT,NTERM ), NRXSUMS, RXSUMNAME ) IF ( INDX .NE. 0 ) THEN LFOUND = .TRUE. OUTS1TYP( NOUT, NTERM ) = 'RXSM' OUTS1NUM( NOUT, NTERM ) = INDX LRXUSED( INDX ) = .TRUE. END IF INDX = INDEX1( OUTSPEC1( NOUT,NTERM ), NCYCLES, CYCLNAME ) IF ( INDX .NE. 0 ) THEN LFOUND = .TRUE. OUTS1TYP( NOUT,NTERM ) = 'CYCL' OUTS1NUM( NOUT,NTERM ) = INDX LCYUSED( INDX ) = .TRUE. END IF IF ( .NOT. LFOUND ) THEN WRITE( MSG, 94300 ) CALL M3MESG( MSG ) WRITE( MSG, 94320 ) NOUT, IRRNAME( NOUT ) CALL M3MESG( MSG ) WRITE( MSG, 94340 ) OUTSPEC1( NOUT,NTERM ) CALL M3MESG( MSG ) LERROR = .TRUE. END IF c..check for reaction label name ELSE IF ( TYPE .EQ. 'RXN' ) THEN LFOUND = .FALSE. INDX = INDEX1( OUTRXLBL( NOUT,NTERM ), NRXNS, RXLABEL ) IF ( INDX .NE. 0 ) THEN LFOUND = .TRUE. OUTRN( NOUT,NTERM ) = INDX END IF IF ( .NOT. LFOUND ) THEN WRITE( MSG, 94360 ) CALL M3MESG( MSG ) WRITE( MSG, 94380 ) NOUT, IRRNAME( NOUT ) CALL M3MESG( MSG ) WRITE( MSG, 94400 ) OUTRXLBL( NOUT,NTERM ) CALL M3MESG( MSG ) LERROR = .TRUE. END IF ELSE WRITE( MSG, 94420 ) CALL M3MESG( MSG ) WRITE( MSG, 94440 ) NOUT, IRRNAME( NOUT ) CALL M3MESG( MSG ) WRITE( MSG, 94460 ) TYPE CALL M3MESG( MSG ) LERROR = .TRUE. END IF 120 CONTINUE 140 CONTINUE IF ( LERROR ) LERREND = .TRUE. cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Check IPR_OUTPUT species names cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc LERROR = .FALSE. IF ( N_IPR_SPC .GT. 0 ) THEN OFFSET = 0 NEWNPASP = N_IPR_SPC DO 160 NOUT = 1, N_IPR_SPC PAINDX = NOUT + OFFSET LFOUND = .FALSE. INDX = INDEX1( IPR_SPNAM( PAINDX ), N_CGRID_SPC, CGRID_NAME ) IF ( INDX .NE. 0 ) THEN LFOUND = .TRUE. IPR_SPTYPE( PAINDX ) = 'SPEC' IPR_SPNUM( PAINDX ) = INDX END IF IF ( .NOT. LFOUND ) THEN INDX = INDEX1( IPR_SPNAM( PAINDX ), NFAMLYS, FAMNAME ) IF ( INDX .NE. 0 ) THEN LFOUND = .TRUE. IPR_SPTYPE( PAINDX ) = 'FAM' IPR_SPNUM( PAINDX ) = INDX END IF END IF c..If all species requested, insert all species into position IF ( .NOT. LFOUND. AND. & ( IPR_SPNAM( PAINDX )( 1:3 ) .EQ. 'ALL' .OR. & IPR_SPNAM( NOUT )( 1:3 ) .EQ. 'all' ) ) THEN LFOUND = .TRUE. NEWNPASP = PAINDX - 1 + N_CGRID_SPC + ( N_IPR_SPC - NOUT ) IF ( NEWNPASP .GT. MAXIPRSPC ) THEN WRITE( MSG, 94800 ) CALL M3MESG( MSG ) WRITE( MSG, 94820 ) MAXIPRSPC CALL M3MESG( MSG ) WRITE( MSG, 94840 ) CALL M3MESG( MSG ) CALL M3EXIT( 'ERRCHECK', IZERO, IZERO, ' ', XSTAT1 ) END IF OFFSET = PAINDX - 1 + N_CGRID_SPC - NOUT IF ( N_IPR_SPC .GT. NOUT ) THEN CINDX = PAINDX DO N = NOUT + 1, N_IPR_SPC CINDX = CINDX + 1 HINDX = N + OFFSET IPR_SPNAM( HINDX ) = IPR_SPNAM( CINDX ) N_IPR_OPS( HINDX ) = N_IPR_OPS( CINDX ) IF ( N_IPR_OPS( HINDX ) .GT. 0 ) THEN DO NOP = 1, N_IPR_OPS( HINDX ) IPR_OPNAME( HINDX, NOP ) = IPR_OPNAME( CINDX,NOP ) END DO END IF END DO END IF LINDX = PAINDX DO N = 1, N_CGRID_SPC IPR_SPNAM( LINDX ) = CGRID_NAME( N ) N_IPR_OPS( LINDX ) = N_IPR_OPS( PAINDX ) IPR_SPTYPE( LINDX ) = 'SPEC' IPR_SPNUM( LINDX ) = N DO NOP = 1, N_IPR_OPS( LINDX ) IPR_OPNAME( LINDX,NOP ) = IPR_OPNAME( PAINDX,NOP ) END DO LINDX = LINDX + 1 END DO END IF IF ( .NOT. LFOUND ) THEN WRITE( MSG, 94480 ) CALL M3MESG( MSG ) WRITE( MSG, 94500 ) IPR_SPNAM( PAINDX ) CALL M3MESG( MSG ) LERROR = .TRUE. END IF 160 CONTINUE N_IPR_SPC = NEWNPASP END IF IF ( LERROR ) LERREND = .TRUE. cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Check IPR_OUTPUT operators cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc LERROR = .FALSE. DO 180 NOUT = 1, N_IPR_SPC NOPS = N_IPR_OPS( NOUT ) IF ( NOPS .EQ. 0 ) THEN DO N = 1, NPRCS IPR_OPNAME( NOUT,N ) = PROCNAME( N ) END DO N_IPR_OPS( NOUT ) = NPRCS END IF 180 CONTINUE IF ( LERROR ) LERREND = .TRUE. IF ( LERROR .OR. LERREND ) GO TO 999 ! If errors, skip next error checks c determine NIRRRXNS ALLOCATE( NIRRRXNS( NIRRVAR ), STAT = ASTAT ) ! NIRRVAR .ge. NIRROUT IF ( ASTAT .NE. 0 ) THEN MSG = 'ERROR 1 allocating IRR variables' CALL M3EXIT ( 'PA_ERRCHECK', 0, 0, MSG, XSTAT2 ) END IF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Get IRR reaction numbers excluding those included in CYCLES & RXNSUMS c and check dimension magnitudes cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc LERROR = .FALSE. MXNIRRRXNS = 0 DO 300 NOUT = 1, NIRROUT NIRRRXNS( NOUT ) = 0 c..Flag reactions included in Cycles for elimination in operators DO NRX = 1, NRXNS LRXINC( NRX ) = .TRUE. END DO IF ( NOUTCYCS( NOUT ) .GT. 0 ) THEN DO N = 1, NOUTCYCS( NOUT ) NCYC = OUTCYCS( NOUT, N ) DO NTERM = 1, NCYTERMS( NCYC ) INDX = CYRXNUM( NCYC,NTERM ) LRXINC( INDX ) = .FALSE. END DO END DO END IF DO 280 NTERM = 1, NIRRTERMS( NOUT ) TYPE = OUTTYPE( NOUT, NTERM ) IF ( TYPE .NE. 'NAME' .AND. TYPE .NE. 'RXN' ) THEN CALL GETRXNS( NOUT, NTERM, NR, RXNUMS, COEFFS, LRXINC ) IF ( NR .GT. 0 ) THEN NUMRXNS = NIRRRXNS( NOUT ) + NR IF ( NUMRXNS .GT. MAXTERMS ) THEN WRITE( MSG, 94560 ) CALL M3MESG( MSG ) WRITE( MSG, 94580 ) NOUT, IRRNAME( NOUT ) CALL M3MESG( MSG ) LERROR = .TRUE. GO TO 300 END IF DO NRX = 1, NR INDX = RXNUMS( NRX ) IRRIND = NIRRRXNS( NOUT ) + NRX IRRRXN_TMP( NOUT,IRRIND ) = INDX IRRCOEF_TMP( NOUT,IRRIND ) = COEFFS( NRX ) * OUTSC( NOUT,NTERM ) END DO NIRRRXNS( NOUT ) = NIRRRXNS( NOUT ) + NR END IF ELSE IF ( TYPE .EQ. 'RXN' ) THEN NUMRXNS = NIRRRXNS( NOUT ) + 1 IF ( NUMRXNS .GT. MAXTERMS ) THEN WRITE( MSG, 94560 ) CALL M3MESG( MSG ) WRITE( MSG, 94580 ) NOUT, IRRNAME( NOUT ) CALL M3MESG( MSG ) LERROR = .TRUE. GO TO 300 END IF NIRRRXNS( NOUT ) = NIRRRXNS( NOUT ) + 1 IRRRXN_TMP( NOUT,NIRRRXNS( NOUT ) ) = OUTRN( NOUT,NTERM ) IRRCOEF_TMP( NOUT,NIRRRXNS( NOUT ) ) = OUTSC( NOUT,NTERM ) END IF 280 CONTINUE MXNIRRRXNS = MAX( MXNIRRRXNS, NIRRRXNS( NOUT ) ) 300 CONTINUE ALLOCATE( IRRRXN( NIRRVAR,MXNIRRRXNS ), & IRRCOEF( NIRRVAR,MXNIRRRXNS ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN MSG = 'ERROR 2 allocating IRR variables' CALL M3EXIT ( 'PA_ERRCHECK', 0, 0, MSG, XSTAT2 ) END IF IRRRXN = IRRRXN_TMP( 1:NIRRVAR,1:MXNIRRRXNS ) IRRCOEF = IRRCOEF_TMP( 1:NIRRVAR,1:MXNIRRRXNS ) IF ( LERROR ) LERREND = .TRUE. cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Check some dimension limits, saving some info cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc NUMOUTPOS = 0 NUMOUTNEG = 0 NUMOUTIND = 0 DO NOUT = 1, NIRROUT DO NTERM = 1, NIRRTERMS( NOUT ) TYPE = OUTS1TYP( NOUT, NTERM ) IF ( TYPE .EQ. 'CYCL' .OR. TYPE .EQ. 'RXSM' ) THEN PNFLAG = OUTPNFLAG( NOUT,NTERM ) IF ( PNFLAG .EQ. 'POSONLY' ) THEN NUMOUTPOS = NUMOUTPOS + 1 ELSE IF ( PNFLAG .EQ. 'NEGONLY' ) THEN NUMOUTNEG = NUMOUTNEG + 1 ELSE IF ( PNFLAG .EQ. '' ) THEN NUMOUTIND = NUMOUTIND + 1 END IF END IF END DO END DO IF ( NUMOUTPOS .GT. MAXTERMS .OR. NUMOUTNEG .GT. MAXTERMS .OR. & NUMOUTIND .GT. MAXTERMS ) THEN WRITE( MSG, 94600 ) MAXTERMS CALL M3MESG( MSG ) LERREND = .TRUE. END IF IF ( LFULLIRR .AND. NRXNS .GT. MAXIRROUT ) THEN WRITE( MSG, 94610 ) MAXIRROUT CALL M3MESG( MSG ) LERREND = .TRUE. END IF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Check to see that a species is not named more than once in a FAMILY cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc LERROR = .FALSE. LFIRST = .TRUE. DO NFAM = 1, NFAMLYS DO NMEM = 1, NUMFAMMEM( NFAM ) DO N = 1, NUMFAMMEM( NFAM ) IF ( NMEM .NE. N ) THEN IF ( FAMMEMNAM( NFAM,NMEM ) .EQ. & FAMMEMNAM( NFAM,N ) ) THEN IF ( LFIRST ) THEN WRITE( MSG, 94620 ) CALL M3MESG( MSG ) LFIRST = .FALSE. END IF WRITE( MSG, 94640 ) NFAM, FAMNAME( NFAM ), & FAMMEMNAM( N,NMEM ) CALL M3MESG( MSG ) LERROR = .TRUE. END IF END IF END DO END DO END DO IF ( LERROR ) LERREND = .TRUE. cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Check to see that all species in a FAMILY have the same units cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc LERROR = .FALSE. DO NFAM = 1, NFAMLYS LDIFF = .FALSE. DO NMEM = 1, NUMFAMMEM( NFAM ) SP_UNITS( NMEM ) = 'ppm' INDX = INDEX1( FAMMEMNAM( NFAM,NMEM ), N_CGRID_SPC, CGRID_NAME ) IF ( NMEM .EQ. 1 ) THEN FAM_UNITS = SP_UNITS( NMEM ) ELSE IF ( SP_UNITS( NMEM ) .NE. FAM_UNITS ) LDIFF = .TRUE. END IF END DO IF ( LDIFF ) THEN LERROR = .TRUE. WRITE( MSG, 94650 ) NFAM, FAMNAME( NFAM ) CALL M3MESG( MSG ) DO NMEM = 1, NUMFAMMEM( NFAM ) WRITE( MSG,94652 ) NMEM, FAMMEMNAM( NFAM,NMEM ), SP_UNITS( NMEM ) CALL M3MESG( MSG ) END DO END IF END DO IF ( LERROR ) LERREND = .TRUE. cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Check to see if any defined CYCLES or RXNSUMS are not used cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc LFIRST = .TRUE. DO NCYC = 1, NCYCLES IF ( .NOT. LCYUSED( NCYC ) ) THEN IF ( LFIRST ) THEN WRITE( MSG, 94660 ) CALL M3MESG( MSG ) LFIRST = .FALSE. END IF WRITE( MSG, 94680 ) NCYC, CYCLNAME( NCYC ) CALL M3MESG( MSG ) END IF END DO LFIRST = .TRUE. DO NRXS = 1, NRXSUMS IF ( .NOT. LRXUSED( NRXS ) ) THEN IF ( LFIRST ) THEN WRITE( MSG, 95700 ) CALL M3MESG( MSG ) LFIRST = .FALSE. END IF WRITE( MSG, 95720 ) NRXS, RXSUMNAME( NRXS ) CALL M3MESG( MSG ) END IF END DO cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Return or stop cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 999 CONTINUE IF ( LERREND ) THEN WRITE( MSG, 95740 ) CALL M3MESG( MSG ) CALL M3EXIT( 'ERRCHECK', IZERO, IZERO, ' ', XSTAT1 ) ELSE WRITE( MSG, 95760 ) CALL M3MESG( MSG ) RETURN END IF C---------------------- Format Statements ----------------------------- 93000 FORMAT( 'Entering the Process Analysis error checking routine' ) 94000 FORMAT( 'ERROR: FAMILY name ', I3, ' ', A16, & ' duplicates a species name' ) 94020 FORMAT( 'ERROR: FAMILY name ', I3, ' ', A16, ' duplicates another', & ' DEFINEd name' ) 94040 FORMAT( 'ERROR: Invalid member name for FAMILY ', I3, ' ', A16, & ':', A16 ) 94060 FORMAT( 'ERROR: RXNSUM name ', I3, ' ', A16, & ' duplicates a species name' ) 94080 FORMAT( 'ERROR: RXNSUM name ', I3, ' ', A16,' duplicates another', & ' DEFINEd name' ) 94100 FORMAT( 'ERROR: Invalid reaction label for RXNSUM' ) 94105 FORMAT( ' RXNSUM name ', I3, ': ', A16 ) 94110 FORMAT( ' Invalid reaction label: ', A16 ) 94120 FORMAT( 'ERROR: CYCLE name ', I3, ' ', A16, & ' duplicates a species name' ) 94140 FORMAT( 'ERROR: CYCLE name ', I3, ' ', A16, ' duplicates another', & ' DEFINEd name' ) 94160 FORMAT( 'ERROR: Invalid species name for CYCLE ', I3,' ',A16, & ': ', A16 ) 94180 FORMAT( 'ERROR: IRR_OUTPUT name ', I3, ' ', A16, ' duplicates', & ' a species name' ) 94200 FORMAT( 'ERROR: IRR_OUTPUT name ', I3, ' ', A16, ' duplicates', & ' another DEFINEd name' ) 94220 FORMAT( 'ERROR: Family in an IRR_OUTPUT operator contains a non-', & 'gas chemistry species' ) 94230 FORMAT( ' Family name: ', A16 ) 94240 FORMAT( 'ERROR: Invalid species name in an IRR_OUTPUT operator' ) 94260 FORMAT( ' IRR_OUTPUT name ', I3, ': ', A16 ) 94280 FORMAT( ' Invalid name: ', A16 ) 94300 FORMAT( 'ERROR: Invalid CYCLE or RXNSUM name in an IRR_OUTPUT' ) 94320 FORMAT( ' IRR_OUTPUT name ', I3, ': ', A16 ) 94340 FORMAT( ' Invalid name: ', A16 ) 94360 FORMAT( 'ERROR: Invalid reaction label for an IRR_OUTPUT' ) 94380 FORMAT( ' IRR_OUTPUT name ', I3, ': ', A16 ) 94400 FORMAT( ' Invalid reaction label: ', A16 ) 94420 FORMAT( 'ERROR: Invalid operation type for IRR_OUTPUT' ) 94440 FORMAT( ' IRR_OUTPUT name ', I3, ': ', A16 ) 94460 FORMAT( ' Invalid operation name: ', A16 ) 94480 FORMAT( 'ERROR: Invalid species name for IPR_OUTPUT operation' ) 94500 FORMAT( ' Invalid name: ', A16 ) 94560 FORMAT( 'ERROR: The total number of reactions in the IRR_OUTPUT', & ' operation exceeds the maximum allowable of 500' ) 94580 FORMAT( ' IRR_OUTPUT name ', I3, ': ', A16 ) 94600 FORMAT( 'ERROR: The number of CYCLEs plus RXSUMs exceeds the', & ' maximum allowable of 500' ) 94610 FORMAT( 'ERROR: The number of reactions for IRRTYPE=FULL exceeds', & ' the maximum allowable of 500' ) 94620 FORMAT( 'ERROR: A species is listed more than once in a FAMILY' ) 94640 FORMAT( ' FAMILY ', I3, ': ', A,' SPECIES: ', A ) 94650 FORMAT( 'ERROR: Inconsistent species units in FAMILY ', I3, ': ', A ) 94652 FORMAT( ' SPECIES ', I3, ': ', A, ' UNITS: ', A ) 94660 FORMAT( 'WARNING: The following cycles were defined but not used:' ) 94680 FORMAT( ' CYCLE ', I3, ': ', A ) 95700 FORMAT( 'WARNING: The following rxsums were defined but not used:' ) 95720 FORMAT( ' RXSUM ', I3, ': ', A ) 95740 FORMAT( 'STOPPING in ERRCHECK because of errors' ) 95760 FORMAT( 'No input errors detected, continuing....' ) 94800 FORMAT( 'ERROR: Maximum number of PA species exceeded' ) 94820 FORMAT( ' Modify PARAMETER ( MAXIPRSPC =', I3,' ) or decrease', & ' the number of PA species' ) 94840 FORMAT( ' Error occurred while processing species option ', & ' ALL' ) END SUBROUTINE PA_ERRCHECK ================================================ FILE: CCTM/src/procan/pa/pa_getcoef.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE GETCOEF( COEF ) C----------------------------------------------------------------------- C Function: To get a coefficient from the input buffer C Preconditions: None C Key Subroutines/Functions Called: GETCHR C PA_GETREAL C Revision History: C Prototype created by Jerry Gipson, August, 1996 C Modified May, 1997 by Jerry Gipson to be consistent with beta CTM C Modified Sept, 1997 by Jerry Gipson to be consistent with targeted CTM C Aug 2011 Jeff Young: Replaced I/O API include files with IOAPI's M3UTILIO C Sep 2018 C. Nolte, S. Roselle: replace M3UTILIO with UTILIO_DEFN C----------------------------------------------------------------------- USE UTILIO_DEFN, Only: M3MESG, M3EXIT, XSTAT2 ! IOAPI module USE PA_GLOBAL ! Mech data used USE PA_PARSE IMPLICIT NONE C Includes: None C Arguments: REAL COEF ! Returned coefficient C Parameters: None C External Functions: None C Local Variables: INTEGER INTCHR ! Integer ASCII code of a character LOGICAL LNEG ! Flag for negative coefficient C----------------------------------------------------------------------- COEF = 1.0 LNEG = .FALSE. IF ( CHR .EQ. '+' .OR. CHR .EQ. '-' ) THEN IF ( CHR .EQ. '-' ) LNEG = .TRUE. CALL GETCHR END IF INTCHR = ICHAR( CHR ) IF ( ( INTCHR .GE. 48 .AND. INTCHR .LE. 57 ) .OR. & CHR .EQ. '.' ) THEN CALL PA_GETREAL COEF = NUMBER IF ( CHR .EQ. '*' ) THEN CALL GETCHR ELSE WRITE( MSG, 94000 ) CALL M3MESG( MSG ) WRITE( MSG, 94500 ) LINNUM, INBUF CALL M3MESG( MSG ) WRITE( MSG, 94520 ) CHR CALL M3MESG( MSG ) CALL M3EXIT( 'GETCOEF', IZERO, IZERO, ' ', XSTAT2 ) END IF END IF IF ( LNEG ) COEF = -COEF RETURN C----------------------- FORMAT Statements ----------------------------- 94000 FORMAT( 'ERROR: An asterisk (*) must follow a coefficient' ) 94500 FORMAT( ' Line No. ', I4, ': ', A ) 94520 FORMAT( ' Character found: ', A ) END SUBROUTINE GETCOEF ================================================ FILE: CCTM/src/procan/pa/pa_getcycle.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE GETCYCLE C----------------------------------------------------------------------- C Function: To process the DEFINE CYCLE option C Preconditions: None C Key Subroutines/Functions Called: GETCHR C GETWORD C Revision History: C Prototype created by Jerry Gipson, August, 1996 C Modified May, 1997 by Jerry Gipson to be consistent with beta CTM C Modified Sept, 1997 by Jerry Gipson to be consistent with targeted CTM C Aug 2011 Jeff Young: Replaced I/O API include files with IOAPI's M3UTILIO C Sep 2018 C. Nolte, S. Roselle: replace M3UTILIO with UTILIO_DEFN C----------------------------------------------------------------------- USE UTILIO_DEFN USE PA_VARS USE PA_PARSE IMPLICIT NONE C Includes: None C Arguments: None C Parameters: None C External Functions: None C Local Variables: None C----------------------------------------------------------------------- cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Get assigned name and check for = sign delimiter cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc NCYCLES = NCYCLES + 1 IF( NCYCLES .GT. MAXCYCLES ) THEN WRITE( MSG, 94000 ) CALL M3MESG( MSG ) WRITE( MSG, 94500 ) LINNUM, INBUF CALL M3MESG( MSG ) WRITE( MSG, 94020 ) MAXCYCLES CALL M3MESG( MSG ) CALL M3EXIT( 'GETCYCLE', IZERO, IZERO, ' ', XSTAT2 ) ENDIF CALL GETWORD CYCLNAME( NCYCLES ) = WORD IF( CHR .NE. '=' ) THEN WRITE( MSG, 94040 ) CALL M3MESG( MSG ) WRITE( MSG, 94500 ) LINNUM, INBUF CALL M3MESG( MSG ) WRITE( MSG, 94520 ) CHR CALL M3MESG( MSG ) CALL M3EXIT( 'GETCYCLE', IZERO, IZERO, ' ', XSTAT2 ) ELSE CALL GETCHR ENDIF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Get the name of the CYCLE species and return cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc CALL GETWORD CYCLSPEC( NCYCLES ) = WORD IF( CHR .EQ .';' ) THEN CALL GETCHR RETURN ELSE WRITE( MSG, 94060 ) CALL M3MESG( MSG ) WRITE( MSG, 94500 ) LINNUM, INBUF CALL M3MESG( MSG ) WRITE( MSG, 94520 ) CHR CALL M3MESG( MSG ) CALL M3EXIT( 'GETCYCLE', IZERO, IZERO, ' ', XSTAT2 ) END IF C----------------------- FORMAT Statements ----------------------------- 94000 FORMAT( 'ERROR: Maximum number of CYCLEs exceeded' ) 94020 FORMAT( ' Modify PARAMETER ( MAXCYCLES =', I3,' ) or', & ' decrease the number of CYCLEs' ) 94040 FORMAT( 'ERROR: An equal sign expected after CYCLE name' ) 94060 FORMAT( 'ERROR: A ; must end a CYCLE definition' ) 94500 FORMAT( ' Line No. ', I4, ': ', A ) 94520 FORMAT( ' Character found: ', A ) END SUBROUTINE GETCYCLE ================================================ FILE: CCTM/src/procan/pa/pa_getdesc.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE GETDESC( LASTCMND ) C----------------------------------------------------------------------- C Function: To process the DESC command C Preconditions: None C Key Subroutines/Functions Called: GETCHR C GETQUOTE C Revision History: C Prototype created by Jerry Gipson, August, 1996 C Modified May, 1997 by Jerry Gipson to be consistent with beta CTM C Modified Sept, 1997 by Jerry Gipson to be consistent with targeted CTM C Aug 2011 Jeff Young: Replaced I/O API include files with IOAPI's M3UTILIO C Sep 2018 C. Nolte, S. Roselle: replace M3UTILIO with UTILIO_DEFN C----------------------------------------------------------------------- USE UTILIO_DEFN USE PA_GLOBAL ! Mech data used USE PA_VARS, Only: NIRROUT USE PA_DEFN USE PA_PARSE IMPLICIT NONE C Includes: None C Arguments: CHARACTER( 16 ) :: LASTCMND ! Previous command C Parameters: None C External Functions: None C Local Variables: CHARACTER( 1 ) :: APOSTROPHE = "'" C----------------------------------------------------------------------- cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Make sure the = sign is there cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF ( CHR .NE. '=' ) THEN WRITE( MSG, 94000 ) CALL M3MESG( MSG ) WRITE( MSG, 94500 ) LINNUM, INBUF CALL M3MESG( MSG ) WRITE( MSG, 94520 ) CHR CALL M3MESG( MSG ) CALL M3EXIT( 'GETDESC', IZERO, IZERO, ' ', XSTAT2 ) ELSE CALL GETCHR END IF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Check for a leading apostrophe and get the description cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF ( CHR .NE. APOSTROPHE ) THEN WRITE( MSG, 94020 ) CALL M3MESG( MSG ) WRITE( MSG, 94500 ) LINNUM, INBUF CALL M3MESG( MSG ) WRITE( MSG, 94520 ) CHR CALL M3MESG( MSG ) CALL M3EXIT( 'GETDESC', IZERO, IZERO, ' ', XSTAT2 ) ELSE CALL GETQUOTE IF ( LASTCMND .EQ. 'IRR_OUTPUT' ) THEN IRRDESC( NIRROUT ) = QUOTE ELSE WRITE( MSG, 94600 ) CALL M3MESG( MSG ) WRITE( MSG, 94500 ) LINNUM, INBUF CALL M3MESG( MSG ) END IF END IF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Check for the ending semicolon cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF ( CHR .NE. ';' ) THEN WRITE( MSG, 94040 ) CALL M3MESG( MSG ) WRITE( MSG, 94500 ) LINNUM, INBUF CALL M3MESG( MSG ) WRITE( MSG, 94520 ) CHR CALL M3MESG( MSG ) CALL M3EXIT( 'GETDESC', IZERO, IZERO, ' ', XSTAT2 ) ELSE CALL GETCHR RETURN END IF C----------------------- FORMAT Statements ----------------------------- 94000 FORMAT( 'ERROR: Equal sign must follow the DESCRIPTION command' ) 94020 FORMAT( 'ERROR: Apostrophe expected after the = sign in the', & ' DESCRIPTION command' ) 94040 FORMAT( 'ERROR: The DESCRIPTION command must be terminated by a ;' ) 94500 FORMAT( ' Line No. ', I4, ': ', A ) 94520 FORMAT( ' Character found: ', A ) 94600 FORMAT( 'WARNING: DESCRIPTION command ignored, does not follow', & ' an IRR_OUTPUT command' ) END SUBROUTINE GETDESC ================================================ FILE: CCTM/src/procan/pa/pa_getfamily.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE GETFAMILY C----------------------------------------------------------------------- C Function: To process the DEFINE FAMILY command C Preconditions: None C Key Subroutines/Functions Called: GETCHR C GETWORD C Revision History: C Prototype created by Jerry Gipson, August, 1996 C Modified May, 1997 by Jerry Gipson to be consistent with beta CTM C Modified Sept, 1997 by Jerry Gipson to be consistent with targeted CTM C Aug 2011 Jeff Young: Replaced I/O API include files with IOAPI's M3UTILIO C Sep 2018 C. Nolte, S. Roselle: replace M3UTILIO with UTILIO_DEFN C----------------------------------------------------------------------- USE UTILIO_DEFN USE PA_VARS USE PA_PARSE IMPLICIT NONE C Includes: None C Arguments: None C Parameters: None C External Functions: None C Local Variables: INTEGER MEMNUM ! Counter for number of members in the family C----------------------------------------------------------------------- cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Get the name of the Family and check for a trailing equal sign cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc NFAMLYS = NFAMLYS + 1 MEMNUM = 0 IF ( NFAMLYS .GT. MAXFAMLYS ) THEN WRITE( MSG, 94000 ) CALL M3MESG( MSG ) WRITE( MSG, 94020 ) MAXFAMLYS CALL M3MESG( MSG ) CALL M3EXIT( 'GETFAMILY', IZERO, IZERO, ' ', XSTAT2 ) END IF CALL GETWORD FAMNAME( NFAMLYS ) = WORD IF ( CHR .NE. '=' ) THEN WRITE( MSG, 94040 ) CALL M3MESG( MSG ) WRITE( MSG, 94500 ) LINNUM, INBUF CALL M3MESG( MSG ) WRITE( MSG, 94520 ) CHR CALL M3MESG( MSG ) CALL M3EXIT( 'GETFAMILY', IZERO, IZERO,' ', XSTAT2 ) ELSE CALL GETCHR END IF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Top of loop for getting the family member names and coefficients cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 20 CONTINUE MEMNUM = MEMNUM + 1 IF ( MEMNUM .GT. MAXFAMMEM ) THEN WRITE( MSG, 94060 ) CALL M3MESG( MSG ) WRITE( MSG, 94500 ) LINNUM, INBUF CALL M3MESG( MSG ) WRITE( MSG, 94080 ) MAXFAMMEM CALL M3MESG( MSG ) CALL M3EXIT( 'GETFAMILY', IZERO, IZERO, ' ', XSTAT2 ) END IF c..Set the coefficient for family member CALL GETCOEF( FAMSC( NFAMLYS, MEMNUM ) ) c..Get the name of the family member CALL GETWORD FAMMEMNAM( NFAMLYS, MEMNUM ) = WORD NUMFAMMEM( NFAMLYS ) = MEMNUM c..Go back and get the next family member, return, or err off IF ( CHR .EQ. '+' .OR. CHR .EQ. '-' ) THEN GO TO 20 ELSE IF ( CHR .EQ. ';' ) THEN CALL GETCHR RETURN ELSE WRITE( MSG, 94100 ) CALL M3MESG( MSG ) WRITE( MSG, 94500 ) LINNUM, INBUF CALL M3MESG( MSG ) WRITE( MSG, 94520 ) CHR CALL M3MESG( MSG ) CALL M3EXIT( 'GETFAMILY', IZERO, IZERO, ' ', XSTAT2 ) END IF C----------------------- FORMAT Statements ----------------------------- 94000 FORMAT( 'ERROR: Maximum number of FAMILY''s exceeded' ) 94020 FORMAT( ' Modify PARAMETER ( MAXFAMLYS =', I3,' ) or', & ' decrease the number of defined FAMILY''s' ) 94040 FORMAT( 'ERROR: Equal sign expected after FAMILY name' ) 94060 FORMAT( 'ERROR: Maximum number of family members exceeded' ) 94080 FORMAT( ' Modify PARAMETER ( MAXFAMMEM =',I3, ' ) or', & ' decrease the number of members in the family' ) 94100 FORMAT( 'ERROR: A +, -, or ; must follow a family member name' ) 94500 FORMAT( ' Line No. ', I4, ':', A ) 94520 FORMAT( ' Character found:', A ) END SUBROUTINE GETFAMILY ================================================ FILE: CCTM/src/procan/pa/pa_getiprout.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE GETIPROUT C----------------------------------------------------------------------- C Function: To process the IPR_OUTPUT option C Preconditions: None C Key Subroutines/Functions Called: GETCHR C GETWORD C Revision History: C Prototype created by Jerry Gipson, August, 1996 C Modified May, 1997 by Jerry Gipson to be consistent with beta CTM C Modified Sept, 1997 by Jerry Gipson to be consistent with targeted CTM C Aug 2011 Jeff Young: Replaced I/O API include files with IOAPI's M3UTILIO C Sep 2018 C. Nolte, S. Roselle: replace M3UTILIO with UTILIO_DEFN C----------------------------------------------------------------------- USE UTILIO_DEFN USE PA_DEFN, Only: N_IPR_SPC USE PA_IPRVARS USE PA_PARSE IMPLICIT NONE C Includes: None C Arguments: None C Parameters: None C External Functions: None C Local Variables: CHARACTER( 16 ) :: PNAME = 'GETIPROUT' ! Program name C----------------------------------------------------------------------- c..Increment the counter and check for too many N_IPR_SPC = N_IPR_SPC + 1 N_IPR_OPS( N_IPR_SPC ) = 0 IF ( N_IPR_SPC .GT. MAXIPRSPC ) THEN WRITE( MSG, 94000 ) CALL M3MESG( MSG ) WRITE( MSG, 94500 ) LINNUM, INBUF CALL M3MESG( MSG ) WRITE( MSG, 94020 ) MAXIPRSPC CALL M3MESG( MSG ) CALL M3EXIT( PNAME, IZERO, IZERO, ' ', XSTAT2 ) END IF c..get the name of the species for IPR_OUTPUT CALL GETWORD IPR_SPNAM( N_IPR_SPC ) = WORD c..if the next character is a semicolon, return IF ( CHR .EQ. ';' ) THEN CALL GETCHR RETURN END IF c..the next character must be an equal sign IF ( CHR .EQ. '=' ) THEN CALL GETCHR ELSE WRITE( MSG, 94040 ) CALL M3MESG( MSG ) WRITE( MSG, 94500 ) LINNUM, INBUF CALL M3MESG( MSG ) WRITE( MSG, 94520 ) CHR CALL M3MESG( MSG ) CALL M3EXIT( PNAME, IZERO, IZERO, ' ', XSTAT2 ) END IF c..top of loop for getting operators for this species 20 CONTINUE c..increment the counters and check for too many IF ( CHR .EQ. '+' ) CALL GETCHR N_IPR_OPS( N_IPR_SPC ) = N_IPR_OPS( N_IPR_SPC ) + 1 IF ( N_IPR_OPS( N_IPR_SPC ) .GT. MAXTERMS ) THEN WRITE( MSG, 94060 ) CALL M3MESG( MSG ) WRITE( MSG, 94500 ) LINNUM, INBUF CALL M3MESG( MSG ) WRITE( MSG, 94080 ) MAXTERMS CALL M3MESG( MSG ) CALL M3EXIT( PNAME, IZERO, IZERO, ' ', XSTAT2 ) END IF c..get the operator name CALL GETWORD IPR_OPNAME( N_IPR_SPC, N_IPR_OPS( N_IPR_SPC ) ) = WORD c..if more operators, go back or return or err off IF ( CHR .EQ. '+' ) THEN GO TO 20 ELSE IF ( CHR .EQ. ';' ) THEN CALL GETCHR RETURN ELSE WRITE( MSG, 94100 ) CALL M3MESG( MSG ) WRITE( MSG, 94500 ) LINNUM, INBUF CALL M3MESG( MSG ) WRITE( MSG, 94520 ) CHR CALL M3MESG( MSG ) CALL M3EXIT( PNAME, IZERO, IZERO, ' ', XSTAT2 ) END IF C----------------------- FORMAT Statements ----------------------------- 94000 FORMAT( 'ERROR: Maximum number of PA species exceeded' ) 94020 FORMAT( ' Modify PARAMETER ( MAXIPRSPC =', I3,' ) or', & ' decrease the number of PA species' ) 94040 FORMAT( 'ERROR: Expecting a = or ; after IPR_OUTPUT species', & ' name' ) 94060 FORMAT( 'ERROR: Maximum number of terms in a PROC_OUTPUT', & ' exceeded' ) 94080 FORMAT( ' Modify PARAMETER ( MAXTERMS =', I3,' ) or', & ' decrease the number of terms in the', & ' IPR_OUTPUT request' ) 94100 FORMAT( 'ERROR: Expecting a + or ; after a IPR_OUTPUT operator' ) 94500 FORMAT( ' Line No. ', I4, ': ', A ) 94520 FORMAT( ' Character found: ', A ) END SUBROUTINE GETIPROUT ================================================ FILE: CCTM/src/procan/pa/pa_getirrout.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE GETIRROUT C----------------------------------------------------------------------- C Function: To process the IRR_OUTPUT option C Preconditions: None C Key Subroutines/Functions Called: GETCHR C GETWORD C GETCOEF C Revision History: C Prototype created by Jerry Gipson, August, 1996 C Modified May, 1997 by Jerry Gipson to be consistent with beta CTM C Modified Sept, 1997 by Jerry Gipson to be consistent with targeted CTM C Aug 2011 Jeff Young: Replaced I/O API include files with IOAPI`s M3UTILIO C Sep 2018 C. Nolte, S. Roselle: replace M3UTILIO with UTILIO_DEFN C----------------------------------------------------------------------- USE UTILIO_DEFN USE PA_GLOBAL ! Mech and Grid data used USE PA_VARS USE PA_DEFN USE PA_PARSE IMPLICIT NONE C Includes: None C Arguments: None C Parameters: None C External Functions: None C Local Variables: INTEGER :: TERMNUM ! Counter for number of terms in cycle C----------------------------------------------------------------------- cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Get assigned name and check for = sign delimiter cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc NIRROUT = NIRROUT + 1 IF ( NIRROUT .GT. MAXIRROUT ) THEN WRITE( MSG, 94000 ) CALL M3MESG( MSG ) WRITE( MSG, 94500 ) LINNUM, INBUF CALL M3MESG( MSG ) WRITE( MSG, 94020 ) MAXIRROUT CALL M3MESG( MSG ) CALL M3EXIT( 'GETIRROUT', IZERO, IZERO, ' ', XSTAT2 ) END IF CALL GETWORD ! IRRNAME( NIRROUT ) = WORD ! IRRDESC( NIRROUT ) = WORD IRRNAME_TMP( NIRROUT ) = WORD IRRDESC_TMP( NIRROUT ) = WORD IF ( CHR .NE. '=' ) THEN WRITE( MSG, 94040 ) CALL M3MESG( MSG ) WRITE( MSG, 94500 ) LINNUM, INBUF CALL M3MESG( MSG ) WRITE( MSG, 94520 ) CHR CALL M3MESG( MSG ) CALL M3EXIT( 'GETIRROUT', IZERO, IZERO, ' ', XSTAT2 ) ELSE CALL GETCHR END IF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Top of loop on terms in output command cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc TERMNUM = 0 20 CONTINUE TERMNUM = TERMNUM + 1 IF ( TERMNUM .GT. MAXOUTTERMS ) THEN WRITE( MSG, 94060 ) CALL M3MESG( MSG ) WRITE( MSG, 94500 ) LINNUM, INBUF CALL M3MESG( MSG ) WRITE( MSG, 94080 ) MAXOUTTERMS CALL M3MESG( MSG ) CALL M3EXIT( 'GETIRROUT', IZERO, IZERO, ' ', XSTAT2 ) END IF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Get the term`s coefficient if there is one cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc CALL GETCOEF( OUTSC( NIRROUT, TERMNUM ) ) OUTPNFLAG( NIRROUT, TERMNUM ) = '' cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Reaction rate term cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF ( CHR .EQ. '<' ) THEN OUTTYPE( NIRROUT, TERMNUM ) = 'RXN' CALL GETLABEL OUTRXLBL( NIRROUT, TERMNUM ) = LABEL ELSE CALL GETWORD cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Production term cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF ( WORD .EQ. 'PROD' .OR. WORD .EQ. 'NETP' ) THEN OUTTYPE( NIRROUT, TERMNUM ) = WORD IF ( CHR .EQ. '[' ) THEN CALL GETLABEL OUTSPEC1( NIRROUT, TERMNUM ) = LABEL ELSE WRITE( MSG, 94100 ) CALL M3MESG( MSG ) WRITE( MSG, 94500 ) LINNUM, INBUF CALL M3MESG( MSG ) WRITE( MSG, 94520 ) CHR CALL M3MESG( MSG ) CALL M3EXIT( 'GETIRROUT', IZERO, IZERO, ' ', XSTAT2 ) END IF c..FROM option OUTSPEC2( NIRROUT, TERMNUM ) = '' IF ( CHR .EQ. 'F' ) THEN CALL GETWORD IF ( WORD .NE. 'FROM' ) THEN WRITE( MSG, 94120 ) CALL M3MESG( MSG ) WRITE( MSG, 94500 ) LINNUM, INBUF CALL M3MESG( MSG ) WRITE( MSG, 94540 ) WORD CALL M3MESG( MSG ) CALL M3EXIT( 'GETIRROUT', IZERO, IZERO, ' ', XSTAT2 ) END IF IF ( CHR .EQ. '[' ) THEN CALL GETLABEL OUTSPEC2( NIRROUT, TERMNUM ) = LABEL ELSE WRITE( MSG, 94100 ) CALL M3MESG( MSG ) WRITE( MSG, 94500 ) LINNUM, INBUF CALL M3MESG( MSG ) WRITE( MSG, 94520 ) CHR CALL M3MESG( MSG ) CALL M3EXIT( 'GETIRROUT', IZERO, IZERO, ' ', XSTAT2 ) END IF END IF OUTOP2( NIRROUT, TERMNUM ) = '' OUTSPEC3( NIRROUT, TERMNUM ) = '' c..AND/OR operator IF ( CHR .EQ. 'A' .OR. CHR .EQ. 'O' ) THEN CALL GETWORD IF ( WORD .NE. 'AND' .AND. WORD .NE. 'OR' ) THEN WRITE( MSG, 94140 ) CALL M3MESG( MSG ) WRITE( MSG, 94500 ) LINNUM, INBUF CALL M3MESG( MSG ) WRITE( MSG, 94540 ) WORD CALL M3MESG( MSG ) CALL M3EXIT( 'GETIRROUT', IZERO, IZERO, ' ', XSTAT2 ) ELSE OUTOP2( NIRROUT, TERMNUM ) = WORD IF ( CHR .EQ. '[' ) THEN CALL GETLABEL OUTSPEC3( NIRROUT, TERMNUM ) = LABEL ELSE WRITE( MSG, 94100 ) CALL M3MESG( MSG ) WRITE( MSG, 94500 ) LINNUM, INBUF CALL M3MESG( MSG ) WRITE( MSG, 94520 ) CHR CALL M3MESG( MSG ) CALL M3EXIT( 'GETIRROUT', IZERO, IZERO, ' ', XSTAT2 ) END IF END IF END IF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Loss Term cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc ELSE IF ( WORD .EQ. 'LOSS' .OR. WORD .EQ. 'NETL' ) THEN OUTTYPE( NIRROUT, TERMNUM ) = WORD IF ( CHR .EQ. '[' ) THEN CALL GETLABEL OUTSPEC1( NIRROUT, TERMNUM ) = LABEL ELSE WRITE( MSG, 94100 ) CALL M3MESG( MSG ) WRITE( MSG, 94500 ) LINNUM, INBUF CALL M3MESG( MSG ) WRITE( MSG, 94520 ) CHR CALL M3MESG( MSG ) CALL M3EXIT( 'GETIRROUT', IZERO, IZERO, ' ', XSTAT2 ) END IF OUTOP2( NIRROUT, TERMNUM ) = '' OUTSPEC2( NIRROUT, TERMNUM ) = '' OUTSPEC3( NIRROUT, TERMNUM ) = '' c..AND/OR operator IF ( CHR .EQ. 'A' .OR. CHR .EQ. 'O' ) THEN CALL GETWORD IF ( WORD .NE. 'AND' .AND. WORD. NE. 'OR' ) THEN WRITE( MSG, 94140 ) CALL M3MESG( MSG ) WRITE( MSG, 94500 ) LINNUM, INBUF CALL M3MESG( MSG ) WRITE( MSG, 94540 ) WORD CALL M3MESG( MSG ) CALL M3EXIT( 'GETIRROUT', IZERO, IZERO, ' ', XSTAT2 ) ELSE OUTOP2( NIRROUT, TERMNUM ) = WORD IF ( CHR .EQ. '[' ) THEN CALL GETLABEL OUTSPEC3( NIRROUT, TERMNUM ) = LABEL ELSE WRITE( MSG, 94100 ) CALL M3MESG( MSG ) WRITE( MSG, 94500 ) LINNUM, INBUF CALL M3MESG( MSG ) WRITE( MSG, 94520 ) CHR CALL M3MESG( MSG ) CALL M3EXIT( 'GETIRROUT', IZERO, IZERO, ' ', XSTAT2 ) END IF END IF END IF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Net Term cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc ELSE IF ( WORD .EQ. 'NET' ) THEN OUTTYPE( NIRROUT, TERMNUM ) = 'NET' OUTOP2( NIRROUT, TERMNUM ) = '' OUTSPEC2( NIRROUT, TERMNUM ) = '' OUTSPEC3( NIRROUT, TERMNUM ) = '' IF ( CHR .EQ. '[' ) THEN CALL GETLABEL OUTSPEC1( NIRROUT, TERMNUM ) = LABEL ELSE WRITE( MSG, 94100 ) CALL M3MESG( MSG ) WRITE( MSG, 94500 ) LINNUM, INBUF CALL M3MESG( MSG ) WRITE( MSG, 94520 ) CHR CALL M3MESG( MSG ) CALL M3EXIT( 'GETIRROUT', IZERO, IZERO, ' ', XSTAT2 ) END IF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c The term must be a predefined name cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc ELSE OUTTYPE( NIRROUT, TERMNUM ) = 'NAME' OUTSPEC1( NIRROUT, TERMNUM ) = WORD IF ( CHR .EQ. '[' ) THEN CALL GETLABEL IF ( LABEL .NE. 'POSONLY' .AND. LABEL .NE. 'NEGONLY' ) & THEN WRITE( MSG, 94180 ) CALL M3MESG( MSG ) WRITE( MSG, 94500 ) LINNUM, INBUF CALL M3MESG( MSG ) WRITE( MSG, 94540 ) LABEL CALL M3MESG( MSG ) CALL M3EXIT( 'GETIRROUT', IZERO, IZERO, ' ', XSTAT2 ) ELSE OUTPNFLAG( NIRROUT, TERMNUM ) = LABEL END IF END IF END IF END IF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Go back and get the next operator, return, or err off cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF ( CHR .EQ. '+' .OR. CHR .EQ. '-' ) THEN GO TO 20 ELSE IF ( CHR .EQ. ';' ) THEN NIRRTERMS( NIRROUT ) = TERMNUM CALL GETCHR RETURN ELSE WRITE( MSG, 94200 ) CALL M3MESG( MSG ) WRITE( MSG, 94500 ) LINNUM, INBUF CALL M3MESG( MSG ) WRITE( MSG, 94520 ) CHR CALL M3MESG( MSG ) CALL M3EXIT( 'GETIRROUT', IZERO, IZERO, ' ', XSTAT2 ) END IF C----------------------- FORMAT Statements ----------------------------- 94000 FORMAT( 'ERROR: Maximum number of IRR_OUTPUTs exceeded' ) 94020 FORMAT( ' Modify PARAMETER ( MAXIRROUT =', I3,' ) or', & ' decrease the number of IRR_OUTPUT requests' ) 94040 FORMAT( 'ERROR: Equal sign expected after IRR_OUTPUT name' ) 94060 FORMAT( 'ERROR: Maximum number of terms in an IRR_OUTPUT exceeded' ) 94080 FORMAT( ' Modify PARAMETER ( MAXOUTTERMS =', I3,' ) or', & ' decrease the number of terms in IRR_OUTPUT' ) 94100 FORMAT( 'ERROR: A [ must follow PROD/LOSS/NET operators or', & ' FROM/AND/OR options' ) 94120 FORMAT( 'ERROR: Only the FROM option can follow the PROD/NETP', & ' operators' ) 94140 FORMAT( 'ERROR: Only the AND/OR options can follow the FROM', & ' option' ) 94160 FORMAT( 'ERROR: Only the AND/OR options can follow the LOSS', & ' operator' ) 94180 FORMAT( 'ERROR: Only POSONLY/NEGONLY options can follow defined', & ' names' ) 94200 FORMAT( 'ERROR: Expecting a +, -, or ; after an IRR_OUTPUT term' ) 94500 FORMAT( ' Line No. ', I4, ': ', A ) 94520 FORMAT( ' Character found: ', A ) 94540 FORMAT( ' Word found: ', A ) END SUBROUTINE GETIRROUT ================================================ FILE: CCTM/src/procan/pa/pa_getrxns.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE GETRXNS( NOUT, NTERM, NR, RXNUM, COEFF, LRXINC ) C----------------------------------------------------------------------- C Function: To get the reaction numbers and coefficients for the C PROD/LOSS/NET operators C Preconditions: None C Key Subroutines/Functions Called: None C Revision History: C Prototype created by Jerry Gipson, August, 1996 C Modified May, 1997 by Jerry Gipson to be consistent with beta CTM C Modified Sept, 1997 by Jerry Gipson to be consistent with targeted CTM C Aug 2011 Jeff Young: Replaced I/O API include files with IOAPI's M3UTILIO C Sep 2018 C. Nolte: remove unused M3UTILIO C----------------------------------------------------------------------- USE PA_GLOBAL ! Mech data used USE PA_VARS USE PA_PARSE IMPLICIT NONE C Includes: None C Arguments: INTEGER NOUT ! The incoming output number INTEGER NTERM ! The incoming term number in the output list INTEGER NR ! The outgoing number of reactions found INTEGER :: RXNUM ( MXRXNS ) ! The reaction numbers found REAL :: COEFF ( MXRXNS ) ! The coefficients of the reactions found LOGICAL :: LRXINC( MXRXNS ) ! Flag to include reaction in prod, ! loss, or net operations C Parameters: None C External Functions: REAL MOLCLOSS ! Function to get number of species or ! family molecules lost in a reaction REAL MOLCPROD ! Function to get number of species or ! family molecules produced in a reaction C Local Variables: CHARACTER( 4 ) :: NAMETYPE ! Type of name (mech or family) CHARACTER( 4 ) :: TYPE ! Type of term CHARACTER( 11 ) :: SP1 ! Species name holder CHARACTER( 11 ) :: SP2 ! species name holder INTEGER INDX ! Holder for pointer INTEGER NPFND ! Number of reactant species found INTEGER NRFND ! Number of reactant species found INTEGER NRFND1 ! Holder for number of reactant species found INTEGER NRX ! Loop index for number of reactions LOGICAL LINCL ! Flag to include reaction in output LOGICAL LTEST1, LTEST2 ! Flags to indicate that test passed REAL COEF ! Coefficient for product or reactant REAL COEF2 ! Coefficient for reactant for LOSS/OR operator REAL SUM ! Sum of molecular production and loss C----------------------------------------------------------------------- TYPE = OUTTYPE( NOUT,NTERM ) NR = 0 cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Do the production operator cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF ( TYPE .EQ. 'PROD' .OR. TYPE .EQ. 'NETP' ) THEN DO 20 NRX = 1, NRXNS c..Skip the reaction if it is in a cycle or the species is not produced IF ( .NOT. LRXINC( NRX ) ) GO TO 20 NAMETYPE = OUTS1TYP( NOUT,NTERM ) INDX = OUTS1NUM( NOUT,NTERM ) IF ( TYPE .EQ. 'PROD' ) THEN COEF = MOLCPROD( NAMETYPE, INDX, NRX, NPFND ) ELSE COEF = MOLCPROD( NAMETYPE, INDX, NRX, NPFND ) - & MOLCLOSS( NAMETYPE, INDX, NRX, NRFND ) END IF IF ( COEF .LE. 0.0 ) GO TO 20 NRFND1 = 0 c..Set the test flag for the FROM operator LTEST1 = .FALSE. IF ( OUTSPEC2( NOUT,NTERM ) .EQ. '' ) THEN LTEST1 = .TRUE. ELSE NAMETYPE = OUTS2TYP( NOUT,NTERM ) INDX = OUTS2NUM( NOUT,NTERM ) IF ( OUTSPEC2( NOUT,NTERM ) .NE. 'hv' ) THEN SUM = MOLCLOSS( NAMETYPE, INDX, NRX, NRFND ) NRFND1 = NRFND IF ( NRFND .NE. 0 ) LTEST1 = .TRUE. ELSE IF ( BTEST( IRXBITS( NRX ), 1 ) ) LTEST1 = .TRUE. END IF END IF c..Set the test flag for the AND/OR operator LTEST2 = .FALSE. IF ( OUTSPEC3( NOUT,NTERM ) .EQ. '' ) THEN LTEST2 = .TRUE. ELSE SP1 = OUTSPEC2( NOUT,NTERM ) SP2 = OUTSPEC3( NOUT,NTERM ) NAMETYPE = OUTS3TYP( NOUT,NTERM ) INDX = OUTS3NUM( NOUT, NTERM ) IF ( OUTSPEC3( NOUT,NTERM ) .NE. 'hv' ) THEN SUM = MOLCLOSS( NAMETYPE, INDX, NRX, NRFND ) IF ( SP1 .NE. SP2 ) THEN IF ( NRFND .GT. 0 ) LTEST2 = .TRUE. ELSE NRFND = NRFND + NRFND1 IF ( NRFND .GE. 4 ) LTEST2 = .TRUE. END IF ELSE IF ( BTEST( IRXBITS( NRX ), 1 ) ) LTEST2 = .TRUE. END IF END IF c..Determine whether this reaction is to be included LINCL = .FALSE. IF ( OUTSPEC2( NOUT,NTERM ) .EQ. '' ) THEN LINCL = .TRUE. ELSE IF ( OUTSPEC3( NOUT,NTERM ) .EQ. '' ) THEN IF ( LTEST1 ) LINCL = .TRUE. ELSE IF ( OUTOP2( NOUT,NTERM ) .EQ. 'OR' ) THEN IF ( LTEST1 .OR. LTEST2 ) LINCL = .TRUE. ELSE IF ( OUTOP2( NOUT,NTERM ) .EQ. 'AND' ) THEN IF ( LTEST1 .AND. LTEST2 ) LINCL = .TRUE. END IF END IF END IF c..Store reaction data for this term IF ( LINCL ) THEN NR = NR + 1 RXNUM( NR ) = NRX COEFF( NR ) = COEF END IF 20 CONTINUE RETURN END IF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Do the loss operator cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF ( TYPE .EQ. 'LOSS' .OR. TYPE .EQ. 'NETL' ) THEN NRFND1 = 0 DO 40 NRX = 1, NRXNS c..Skip the reaction if it is in a cycle and set test1 flag IF ( .NOT. LRXINC( NRX ) ) GO TO 40 LTEST1 = .TRUE. NAMETYPE = OUTS1TYP( NOUT,NTERM ) INDX = OUTS1NUM( NOUT, NTERM ) COEF = MOLCLOSS( NAMETYPE, INDX, NRX, NRFND ) - & MOLCPROD( NAMETYPE, INDX, NRX, NPFND ) IF ( TYPE .EQ. 'LOSS' .AND. NRFND .GT. 0 ) COEF = 1.0 IF ( COEF .LE. 0.0 ) LTEST1 = .FALSE. c..Set the test flag for the AND/OR operator LTEST2 = .FALSE. IF ( OUTSPEC3( NOUT,NTERM ) .EQ. '' ) THEN LTEST2 = .TRUE. ELSE SP1 = OUTSPEC1( NOUT,NTERM ) SP2 = OUTSPEC3( NOUT,NTERM ) NAMETYPE = OUTS3TYP( NOUT,NTERM ) INDX = OUTS3NUM( NOUT,NTERM ) IF ( OUTSPEC3( NOUT,NTERM ) .NE. 'hv' ) THEN COEF2 = MOLCLOSS( NAMETYPE, INDX, NRX, NRFND ) - & MOLCPROD( NAMETYPE, INDX, NRX, NPFND ) IF ( TYPE .EQ. 'LOSS' .AND. NRFND .GT. 0 ) COEF2 = 1.0 IF ( SP1 .NE. SP2 ) THEN IF ( NRFND .GT. 0 ) LTEST2 = .TRUE. ELSE NRFND = NRFND + NRFND1 IF ( NRFND .GE. 4 ) LTEST2 = .TRUE. END IF ELSE IF ( BTEST( IRXBITS( NRX ), 1 ) ) LTEST2 = .TRUE. END IF END IF c..Determine whether this reaction is to be included LINCL = .FALSE. IF ( OUTSPEC3( NOUT,NTERM ) .EQ. '' ) THEN IF ( LTEST1 ) LINCL = .TRUE. ELSE IF ( OUTOP2( NOUT,NTERM ) .EQ. 'OR' ) THEN IF ( LTEST1 .OR. LTEST2 ) LINCL = .TRUE. IF ( LINCL .AND. .NOT. LTEST1 ) COEF = COEF2 ELSE IF ( OUTOP2( NOUT,NTERM ) .EQ. 'AND' ) THEN IF ( LTEST1 .AND. LTEST2 ) LINCL = .TRUE. END IF END IF c..Store reaction data for this term IF ( LINCL ) THEN NR = NR + 1 RXNUM( NR ) = NRX COEFF( NR ) = COEF END IF 40 CONTINUE RETURN END IF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Do the net operator cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF ( TYPE .EQ. 'NET' ) THEN DO 60 NRX = 1, NRXNS c..Skip the reaction if it is in a cycle and set test1 flag IF ( .NOT. LRXINC( NRX ) ) GO TO 60 LTEST1 = .TRUE. NAMETYPE = OUTS1TYP( NOUT,NTERM ) INDX = OUTS1NUM( NOUT,NTERM ) COEF = MOLCPROD( NAMETYPE, INDX, NRX, NPFND ) - & MOLCLOSS( NAMETYPE, INDX, NRX, NRFND ) IF ( COEF .NE. 0.0 ) THEN NR = NR + 1 RXNUM( NR ) = NRX COEFF( NR ) = COEF END IF 60 CONTINUE RETURN END IF RETURN END SUBROUTINE GETRXNS ================================================ FILE: CCTM/src/procan/pa/pa_getrxnsum.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE GETRXNSUM C----------------------------------------------------------------------- C FUNCTION: To process the DEFINE RXNSUM command C PRECONDITIONS: None C KEY SUBROUTINES/FUNCTIONS CALLED: GETCHR C GETWORD C GETCOEF C GETLABEL C REVISION HISTORY: C Prototype created by Jerry Gipson, August, 1996 C Modified May, 1997 by Jerry Gipson to be consistent with beta CTM C Modified Sept, 1997 by Jerry Gipson to be consistent with targeted CTM C Aug 2011 Jeff Young: Replaced I/O API include files with IOAPI's M3UTILIO C Sep 2018 C. Nolte, S. Roselle: replace M3UTILIO with UTILIO_DEFN C----------------------------------------------------------------------- USE UTILIO_DEFN USE PA_GLOBAL ! Mech data used USE PA_VARS USE PA_PARSE IMPLICIT NONE C Includes: None C Arguments: None C Parameters: None C External Functions: None C Local Variables: INTEGER TERMNUM ! Counter for number of terms in sum C----------------------------------------------------------------------- cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Get assigned name and check for = sign delimiter cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc NRXSUMS = NRXSUMS + 1 IF ( NRXSUMS .GT. MAXRXNSUM ) THEN WRITE( MSG, 94000 ) CALL M3MESG( MSG ) WRITE( MSG, 94500 ) LINNUM, INBUF CALL M3MESG( MSG ) WRITE( MSG, 94020 ) MAXRXNSUM CALL M3MESG( MSG ) CALL M3EXIT( 'GETRXNSUM', IZERO, IZERO, ' ', XSTAT2 ) END IF TERMNUM = 0 CALL GETWORD RXSUMNAME( NRXSUMS ) = WORD IF ( CHR .NE. '=' ) THEN WRITE( MSG, 94040 ) CALL M3MESG( MSG ) WRITE( MSG, 94500 ) LINNUM, INBUF CALL M3MESG( MSG ) WRITE( MSG, 94520 ) CHR CALL M3MESG( MSG ) CALL M3EXIT( 'GETRXNSUM', IZERO, IZERO, ' ', XSTAT2 ) ELSE CALL GETCHR END IF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Top of loop for getting all terms and their coefficients cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 20 CONTINUE TERMNUM = TERMNUM + 1 IF ( TERMNUM .GT. MAXRXTERMS ) THEN WRITE( MSG, 94060 ) CALL M3MESG( MSG ) WRITE( MSG, 94500 ) LINNUM, INBUF CALL M3MESG( MSG ) WRITE( MSG, 94080 ) MAXRXTERMS CALL M3MESG( MSG ) CALL M3EXIT( 'GETRXNSUM', IZERO, IZERO, ' ', XSTAT2 ) END IF c..Get coefficient for the reaction CALL GETCOEF( RXNSC( NRXSUMS, TERMNUM ) ) c..Get the reaction label IF ( CHR .EQ. '<' ) THEN CALL GETLABEL RXSUMLBL( NRXSUMS, TERMNUM ) = LABEL ELSE WRITE( MSG, 94100 ) CALL M3MESG( MSG ) WRITE( MSG, 94500 ) LINNUM, INBUF CALL M3MESG( MSG ) WRITE( MSG, 94520 ) CHR CALL M3MESG( MSG ) CALL M3EXIT( 'GETRXNSUM', IZERO, IZERO, ' ', XSTAT2 ) END IF c..check for more terms or end delimiter IF ( CHR .EQ. '+' .OR. CHR .EQ. '-' ) THEN GO TO 20 ELSE IF ( CHR .EQ. ';' ) THEN NRXTERMS( NRXSUMS ) = TERMNUM CALL GETCHR RETURN ELSE WRITE( MSG, 94120 ) CALL M3MESG( MSG ) WRITE( MSG, 94500 ) LINNUM, INBUF CALL M3MESG( MSG ) WRITE( MSG, 94520 ) CHR CALL M3MESG( MSG ) CALL M3EXIT( 'GETRXNSUM', IZERO, IZERO, ' ', XSTAT2 ) END IF C----------------------- FORMAT Statements ----------------------------- 94000 FORMAT( 'ERROR: Maximum number of RXNSUMs exceeded' ) 94020 FORMAT( ' Modify PARAMETER ( MAXRXNSUM =', I3, ' )', & ' or decrease the number of RXNSUMs' ) 94040 FORMAT( 'ERROR: Equal sign expected after RXNSUM name' ) 94060 FORMAT( 'ERROR: Maximum number of terms in RXNSUM exceeded' ) 94080 FORMAT( ' Modify PARAMETER ( MAXRXTERMS =', I3, ' )', & ' or decrease the number of terms in RXNSUM' ) 94100 FORMAT( 'ERROR: Expecting a reaction label starting with a <' ) 94120 FORMAT( 'ERROR: Expecting a + - or ; after a reaction label' ) 94500 FORMAT( ' Line No. ', I4, ':', A ) 94520 FORMAT( ' Character found:', A ) END SUBROUTINE GETRXNSUM ================================================ FILE: CCTM/src/procan/pa/pa_init.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE PA_INIT( CGRID, SDATE, STIME, TSTEP ) C----------------------------------------------------------------------- C Function: Create the Process Analysis ouput files and initialize C Process Analysis arrays C Preconditions: None C Key Subroutines/Functions Called: SUBST_PA_INDEX, SUBST_IRR_INDEX, C PA_MKHDR, SUBST_4D_DATA_COPY C Revision History: C Prototype created by Jerry Gipson, July, 1996 C allow env var for file names Jeff, Dec, 1996 C Changed CGOUT dimension parameter from NSPCSD to NSPCS -- Jerry Gipson, May, 1997. C Modified May, 1997 by Jerry Gipson to be consistent with beta CTM C Modified June 1997 by Jerry Gipson to change CGOUT to CGRID C Modified Sept, 1997 by Jerry Gipson to be consistent with targeted CTM C Modified Jun, 1998 by Jerry Gipson to add PA domain error check C Modified 1/19/99 by David Wong at LM: C -- add four include files because of new PA_CMN.EXT C -- modify PA_INDEX function call parameter list C -- add DATA_COPY function call to redistribute PA grid C Modified 2/26/99 by David Wong at LM: C -- remove SUBST_AE_SPC, SUBST_NR_SPC, SUBST_TR_SPC, C three .EXT files C -- call SUBST_IRR_INDEX to determine row, column, and C level loop indexes which are associated with IRR C calculations C -- renamed DATA_COPY function name C -- use ifdef statement to distinguish parallel C implementation of IRR calculation which does not C shift to the origin C Modified 4/12/00 by Jerry Gipson to correct units for aerosol IPRs writen to IO/API file C Modified 1 Jul 2000 by Jeff Young to allow for file updating - added PA_MKHDR C Modified 22 Nov 00 by J.Young: Dave Wong`s f90 stenex SUBGRID_INDEX and DATA_COPY C 6 Oct 01 J.Young: dyn alloc - generic CGRID declaration; Use PAGRD_DEFN, C which uses HGRD_DEFN; new pario C Modified 10 Oct 01 by David Wong C -- let other processors open PA output files after C processor has created them. C -- used a new formula to compute number of IPR and IRR C output files C 31 Jan 05 J.Young: dyn alloc - establish both horizontal & vertical C domain specifications in one module (GRID_CONF) C 16 Jan 06 J.Young: move PAGRD_INIT to par_init C 1 Apr 09 J.Young: remove cruft C 8 Jul 10 J.Young: restructure C 23 Jul 10 D.Wong: move first OPEN3 try inside IF ( MYPE .EQ. 0 ) clause C 16 Feb 11 S.Roselle: replaced I/O API include files with UTILIO_DEFN C 11 May 11 D.Wong: incorporated twoway model implementation C 16 Sep 16 J.Young: update for inline procan C----------------------------------------------------------------------- USE GRID_CONF ! horizontal & vertical domain specifications USE PAGRD_DEFN ! PA horiz domain specs USE UTILIO_DEFN #ifndef mpas #ifdef parallel USE SE_MODULES ! stenex (using SE_UTIL_MODULE, SE_DATA_COPY_MODULE) #else USE NOOP_MODULES ! stenex (using NOOP_UTIL_MODULE, NOOP_DATA_COPY_MODULE) #endif #endif USE PA_DEFN ! Process Anaylsis control and data variables IMPLICIT NONE C..Includes: INCLUDE SUBST_FILES_ID ! file name parameters C..Arguments: REAL, POINTER :: CGRID( :,:,:,: ) INTEGER, INTENT( IN ) :: SDATE ! starting date, format YYYYDDD INTEGER, INTENT( IN ) :: STIME ! starting time, format HHMMSS INTEGER, INTENT( IN ) :: TSTEP( 3 ) ! time step vector (HHMMSS) ! TSTEP(1) = local output step ! TSTEP(2) = sciproc sync. step (chem) ! TSTEP(3) = twoway model time step w.r.t. wrf time ! step and wrf/cmaq call frequency C..Parameters: C..External Functions: None C..Local Variables: CHARACTER( 16 ) :: ENV_DFLT ! Environment variable default value CHARACTER( 80 ) :: ENV_DESC ! Environment variab;e description CHARACTER( 16 ) :: OUTFNAME ! Assigned IPR or IRR output file name CHARACTER( 16 ) :: PNAME = 'PA_INIT' ! Routine Name CHARACTER( 128 ) :: XMSG = ' ' CHARACTER( 256 ) :: RET_VAL ! Returned value of environment variable LOGICAL LSTOP ! Flag to stop because a PA file not assigned INTEGER C ! Loop index for columns INTEGER R ! Loop index for rows INTEGER L ! Loop index for layers INTEGER PC ! Index for PA output column INTEGER PL ! Index for PA output level INTEGER PR ! Index for PA output row INTEGER ICG ! Index for species in cgout array INTEGER NIRR ! Loop index for IRR outputs INTEGER NFL ! Loop index for no. of files INTEGER NOUT ! Loop index for process monitoring outputs INTEGER NUMFLS ! Number of PA or IRR output files needed INTEGER STATUS ! Status Code C----------------------------------------------------------------------- LSTOP = .FALSE. #ifndef mpas ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C Open the Integrated Process Rates output file(s) if needed ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF ( LIPR ) THEN C..compute the number of files needed NUMFLS = ( NIPRVAR - 1 ) / MXVARS3 + 1 C..open each one DO NFL = 1, NUMFLS IF ( NFL .EQ. 1 ) THEN OUTFNAME = CTM_IPR_1 ELSE IF ( NFL .EQ. 2 ) THEN OUTFNAME = CTM_IPR_2 ELSE IF ( NFL .EQ. 3 ) THEN OUTFNAME = CTM_IPR_3 ELSE IF ( NFL .GT. 3 ) THEN XMSG = 'Maximum number of IPR output files exceeded' CALL M3EXIT( PNAME, SDATE, STIME, XMSG, XSTAT1 ) END IF ENV_DESC = 'IPR Output file ' // OUTFNAME ENV_DFLT = ' ' XMSG = 'IPR output file ' // TRIM( OUTFNAME ) // ' not assigned' CALL ENVSTR( OUTFNAME, ENV_DESC, ENV_DFLT, RET_VAL, STATUS) IF ( STATUS .NE. 0 ) CALL M3EXIT( PNAME, SDATE, STIME, XMSG, XSTAT1 ) IF ( MYPE .EQ. 0 ) THEN C..try to open existing file for update IF ( .NOT. OPEN3( OUTFNAME, FSRDWR3, PNAME ) ) THEN XMSG = 'Could not open ' // TRIM( OUTFNAME ) & // ' file for update - try to open new' CALL M3MESG( XMSG ) CALL PA_MKHDR( 'IPR', NFL, OUTFNAME, SDATE, STIME, TSTEP ) IF ( OPEN3( OUTFNAME, FSNEW3, PNAME ) ) THEN ! open new XMSG = 'Opened Integrated Reaction Rate Output File: ' & // OUTFNAME CALL M3MESG( XMSG ) ELSE XMSG = 'Could not open Integrated Process Rate Output File: ' & // OUTFNAME CALL M3EXIT( PNAME, SDATE, STIME, XMSG, XSTAT1 ) END IF END IF END IF CALL SUBST_BARRIER END DO ! NUMFLS ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C Initialize arrays ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc DELC = 0.0 END IF ! LIPR ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C Open the Integrated Reaction Rates output file(s) if needed ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF ( LIRR ) THEN C..compute the number of files needed NUMFLS = ( NIRRVAR - 1 ) / MXVARS3 + 1 C..open each one DO NFL = 1, NUMFLS IF ( NFL .EQ. 1 ) THEN OUTFNAME = CTM_IRR_1 ELSE IF ( NFL .EQ. 2 ) THEN OUTFNAME = CTM_IRR_2 ELSE IF ( NFL .EQ. 3 ) THEN OUTFNAME = CTM_IRR_3 ELSE IF ( NFL .GT. 3 ) THEN XMSG = 'Maximum number of IRR output files exceeded' CALL M3EXIT(PNAME, SDATE, STIME, XMSG, XSTAT2 ) END IF ENV_DESC = 'IRR Output file ' // OUTFNAME ENV_DFLT = ' ' CALL ENVSTR( OUTFNAME, ENV_DESC, ENV_DFLT, RET_VAL, STATUS ) XMSG = 'IRR output file ' // TRIM( OUTFNAME ) // ' not assigned' IF ( STATUS .NE. 0 ) CALL M3EXIT( PNAME, SDATE, STIME, XMSG, XSTAT1 ) IF ( MYPE .EQ. 0 ) THEN C..try to open existing file for update IF ( .NOT. OPEN3( OUTFNAME, FSRDWR3, PNAME ) ) THEN XMSG = 'Could not open ' // TRIM( OUTFNAME ) & // ' file for update - try to open new' CALL M3MESG( XMSG ) CALL PA_MKHDR( 'IRR', NFL, OUTFNAME, SDATE, STIME, TSTEP ) IF ( OPEN3( OUTFNAME, FSNEW3, PNAME ) ) THEN ! open new XMSG = 'Opened Integrated Reaction Rate Output File: ' & // OUTFNAME CALL M3MESG( XMSG ) ELSE XMSG = 'Could not open Integrated Reaction Rate Output' & // ' File ' // OUTFNAME CALL M3EXIT( PNAME, SDATE, STIME, XMSG, XSTAT1 ) END IF END IF END IF CALL SUBST_BARRIER END DO ! NFL ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C Initialize arrays ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IRROUT = 0.0 END IF ! LIRR #endif RETURN END ================================================ FILE: CCTM/src/procan/pa/pa_mkhdr.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C======================================================================= SUBROUTINE PA_MKHDR ( TYPE, NFL, OUTFNAME, SDATE, STIME, TSTEP ) C 21 Jun 10 J.Young: convert for Namelist redesign C 16 Feb 11 S.Roselle: replaced I/O API include files with UTILIO_DEFN C 11 May 11 D.Wong: incorporated twoway model implementation C 16 Sep 16 J.Young: update for inline procan USE GRID_CONF ! horizontal & vertical domain specifications USE CGRID_SPCS ! CGRID mechanism species USE UTILIO_DEFN USE PA_DEFN ! Process Anaylsis control and data variables USE PAGRD_DEFN ! PA horiz domain specs IMPLICIT NONE C used in pa_init C FIRSTIME gets some FDESC3 common variables from GRID_CONF to be used C for both IPR and IRR if needed. C Arguments: CHARACTER( 3 ) :: TYPE ! IPR or IRR INTEGER NFL ! file sequence no. CHARACTER( 16 ) :: OUTFNAME ! Assigned IPR or IRR output file name INTEGER SDATE ! starting date, format YYYYDDD INTEGER STIME ! starting time, format HHMMSS INTEGER TSTEP( 3 ) ! time step vector (HHMMSS) ! TSTEP(1) = local output step ! TSTEP(2) = sciproc sync. step (chem) ! TSTEP(3) = twoway model time step w.r.t. wrf time ! step and wrf/cmaq call frequency C Local Variables: INTEGER AE_INDX ! Index for aerosol species INTEGER IPRSPC ! Index for IPR species INTEGER PL ! Index for PA output level INTEGER VARINDX ! Index for output variable INTEGER L, NOUT ! Loop indicies INTEGER NSP, NPR ! Loop indices for finding IPR species INTEGER ICG ! species pointer CHARACTER( 16 ) :: PNAME = 'PA_MKHDR' ! Subroutine Name C----------------------------------------------------------------------- #ifndef mpas ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C Get file header description from GRID_CONF and reconfigure output domain ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc P_ALP3D = P_ALP_GD P_BET3D = P_BET_GD P_GAM3D = P_GAM_GD XCENT3D = XCENT_GD YCENT3D = YCENT_GD XORIG3D = XORIG_GD YORIG3D = YORIG_GD XCELL3D = XCELL_GD YCELL3D = YCELL_GD VGTYP3D = VGTYP_GD VGTOP3D = VGTOP_GD FTYPE3D = GRDDED3 GDNAM3D = GDNAME_GD UPNAM3D = PNAME SDATE3D = SDATE STIME3D = STIME CALL NEXTIME( SDATE3D, STIME3D, TSTEP( 1 ) ) TSTEP3D = TSTEP( 1 ) NCOLS3D = PACOLS NROWS3D = PAROWS NLAYS3D = PALEVS XORIG3D = XORIG3D + DBLE( PA_BEGCOL - 1 ) * XCELL3D YORIG3D = YORIG3D + DBLE( PA_BEGROW - 1 ) * YCELL3D DO L = PA_BEGLEV, PA_ENDLEV + 1 PL = L - PA_BEGLEV + 1 VGLVS3D ( PL ) = VGLVS_GD( L ) END DO IF ( TYPE .EQ. 'IPR' ) THEN FDESC3D( 1 ) = 'Integrated Process Rates Output File ' // OUTFNAME NVARS3D = MIN( MXVARS3 , ( NIPRVAR - ( NFL - 1 ) * MXVARS3 ) ) DO NOUT = 1, NVARS3D VARINDX = ( NFL - 1 ) * MXVARS3 + NOUT VNAME3D( NOUT ) = IPRNAME( VARINDX ) VTYPE3D( NOUT ) = M3REAL VDESC3D( NOUT ) = IPRDESC( VARINDX ) ! Find the IPR species to set correct units descriptor IPRSPC = MAP_IPRVARtoSPC( VARINDX ) ICG = MAP_IPRtoCGRID( IPRSPC, 1 ) IF ( CGRID_MASK_NUM( ICG ) ) THEN UNITS3D( NOUT ) = 'm-3' ELSE IF ( CGRID_MASK_SRF( ICG ) ) THEN UNITS3D( NOUT ) = 'm2 m-3' ELSE IF ( CGRID_MASK_AERO( ICG ) ) THEN UNITS3D( NOUT ) = 'ug m-3' ELSE UNITS3D( NOUT ) = 'ppmV' END IF END DO ELSE IF ( TYPE .EQ. 'IRR' ) THEN FDESC3D( 1 ) = 'Integrated Reaction Rate Output File ' // OUTFNAME NVARS3D = MIN( MXVARS3 , ( NIRRVAR - ( ( NFL - 1 ) * MXVARS3 ) ) ) DO NOUT = 1, NVARS3D VARINDX = ( NFL - 1 ) * MXVARS3 + NOUT VNAME3D( NOUT ) = IRRNAME( VARINDX ) VTYPE3D( NOUT ) = M3REAL UNITS3D( NOUT ) = 'ppmV' VDESC3D( NOUT ) = IRRDESC( VARINDX ) END DO ELSE CALL M3EXIT( PNAME, SDATE, STIME, & 'Incorrect process analysis type specified', 2 ) END IF #endif RETURN END ================================================ FILE: CCTM/src/procan/pa/pa_molcloss.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! REAL FUNCTION MOLCLOSS( NAMETYP, NAMINDX, NRX, NRFND ) C----------------------------------------------------------------------- C Function: To find the number of species/family molecules lost in a reaction C Preconditions: None C Key Subroutines/Functions Called: None C Revision History: C Prototype created by Jerry Gipson, August, 1996 C Modified May, 1997 by Jerry Gipson to be consistent with beta CTM C Modified Sept, 1997 by Jerry Gipson to be consistent with targeted CTM C----------------------------------------------------------------------- USE PA_GLOBAL ! Mech data used USE PA_VARS IMPLICIT NONE C Includes: None C Arguments: CHARACTER( * ) :: NAMETYP ! Type of name (mechanism species of family) INTEGER NAMINDX ! Index for species or family name location INTEGER NRX ! Reaction number INTEGER NRFND ! Number of reactants found C Parameters: None C External Functions: None C Local Variables: CHARACTER( 16 ) :: SPECIS ! Species name to check INTEGER INDX ! Pointer to reactant name INTEGER N ! Loop index for number of family members INTEGER NRC ! Loop index for number of reactants INTEGER NUMSPEC ! Number of species to check REAL SUM ! Sum of molecular production and loss REAL COEF ! Defined stoichiometric coefficient C----------------------------------------------------------------------- NRFND = 0 SUM = 0.0 c..Determine loop index for family name versus mechanism species IF ( NAMETYP .EQ. 'FAM' ) THEN NUMSPEC = NUMFAMMEM( NAMINDX ) ELSE NUMSPEC = 1 END IF c..Add the number of species/family member molecules lost in this reaction DO NRC = 1, NREACT( NRX ) INDX = IRR( NRX,NRC ) IF ( INDX .NE. 0 ) THEN DO N = 1, NUMSPEC IF ( NAMETYP .EQ. 'FAM' ) THEN SPECIS = FAMMEMNAM( NAMINDX,N ) COEF = FAMSC( NAMINDX,N ) ELSE SPECIS = CHEMISTRY_SPC( NAMINDX ) COEF = 1.0 END IF IF ( CHEMISTRY_SPC( INDX ) .EQ. SPECIS ) THEN SUM = SUM + COEF NRFND = NRFND + 1 END IF END DO END IF END DO MOLCLOSS = SUM RETURN END FUNCTION MOLCLOSS ================================================ FILE: CCTM/src/procan/pa/pa_molcprod.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! REAL FUNCTION MOLCPROD( NAMETYP, NAMINDX, NRX, NPFND ) C----------------------------------------------------------------------- C Function: To find the number of species/family molecules produced in a reaction C Preconditions: None C Key Subroutines/Functions Called: None C Revision History: C Prototype created by Jerry Gipson, August, 1996 C Modified May, 1997 by Jerry Gipson to be consistent with beta CTM C Modified Sept, 1997 by Jerry Gipson to be consistent with targeted CTM C----------------------------------------------------------------------- USE PA_GLOBAL ! Mech and Grid data used USE PA_VARS IMPLICIT NONE C Includes: None C Arguments: CHARACTER( * ) :: NAMETYP ! Type of name (mechanism species of family) INTEGER NAMINDX ! Index for species or family name location INTEGER NRX ! Reaction number INTEGER NPFND ! Number of products found C Parameters: None C External Functions: None C Local Variables: CHARACTER( 16 ) :: SPECIS ! Species name to check INTEGER INDX ! Pointer to reactant name INTEGER IRRPNTR ! Pointer to product species in IRR array INTEGER N ! Loop index for number of family members INTEGER NPR ! Loop index for number of reactants INTEGER NUMSPEC ! Number of species to check REAL SUM ! Sum of molecular production and loss REAL COEF ! Defined stoichiometric coefficient C----------------------------------------------------------------------- NPFND = 0 SUM = 0.0 c..Determine loop index for family name versus mechanism species IF ( NAMETYP .EQ. 'FAM' ) THEN NUMSPEC = NUMFAMMEM( NAMINDX ) ELSE NUMSPEC = 1 END IF c..Add the number of species/family member molecules lost in this reaction DO NPR = 1, NPRDCT( NRX ) IRRPNTR = NPR + 3 INDX = IRR( NRX, IRRPNTR ) IF ( INDX .NE. 0 ) THEN DO N = 1, NUMSPEC IF ( NAMETYP .EQ. 'FAM' ) THEN SPECIS = FAMMEMNAM( NAMINDX, N ) COEF = FAMSC( NAMINDX,N ) ELSE SPECIS = CHEMISTRY_SPC( NAMINDX ) COEF = 1.0 END IF IF ( CHEMISTRY_SPC( INDX ) .EQ. SPECIS ) THEN SUM = SUM + COEF * SC( NRX,NPR ) NPFND = NPFND + 1 END IF END DO END IF END DO MOLCPROD = SUM RETURN END FUNCTION MOLCPROD ================================================ FILE: CCTM/src/procan/pa/pa_output.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE PA_OUTPUT( CGRID, JDATE, JTIME ) C----------------------------------------------------------------------- C Function: Output the Process Analysis and/or Integrated Reaction Rate data C Preconditions: None C Key Subroutines/Functions Called: M3EXIT C Revision History: C Prototype created by Jerry Gipson, August, 1996 C allow env var for file names Jeff, Dec, 1996 C Modified May, 1997 by Jerry Gipson to be consistent with beta CTM C Modified Sept, 1997 by Jerry Gipson to be consistent with targeted CTM C Modified 1/19/99 by David Wong at LM: C -- add four include files because of new PA_CMN.EXT C -- add DATA_COPY function call to redistribute PA grid C Modified 2/26/99 by David Wong at LM: C -- remove SUBST_AE_SPC, SUBST_NR_SPC, SUBST_TR_SPC, C three .EXT files C -- replaced DATA_COPY function with dimension specific C DATA_COPY function and modified its argument list C -- used ifdef statement to distinguish parallel C implementation of IRR calculation which does not C start at the origin C Modified 22 Nov 00 by J.Young: Dave Wong's f90 stenex DATA_COPY C 30 Mar 01 J.Young: dyn alloc - Use PAGRD_DEFN, which Uses C HGRD_DEFN; requires DBUFF for WRITE3 C 10 Oct 01 David Wong C -- use DBUFF to hold the output data for IRR data since C parallel WRITE3 can't output subsection of data C -- removed the usage of DBUFF for PA output C -- used a new formula to compute number of indexes in C each IPR and IRR output file rather than file header C to remove the call of DESC3 and use IPRFNAM and C IRRNAME to determine variable name C 10 Sep 02 J.Young: fix bug in IPRNAME, IRRNAME index C 31 Jan 05 J.Young: dyn alloc - establish both horizontal & C vertical domain specifications in one module (GRID_CONF) C 23 Aug 05 David Wong C -- inserted PIO_INIT subroutine calls before and after C outputing PA data which is smaller than the model C domain size, to compute data indices correctly in each C processor for the entire PARIO library functions C 15 Feb 06 J.Young: new pario PIO_RE_INIT from PIO_INIT to add flag C to control printing decomposition map C 10 Jul 10 J.Young: restructure so as to not keep reallocating DBUFF for IRR C 16 Feb 11 S.Roselle: replaced I/O API include files with UTILIO_DEFN C 26 Jan 16 J.Young: consolidated pio_init, flag for couple/decouple C 16 Sep 16 J.Young: update for inline procan C 7 Oct 16 J.Young: write domain re-decomp to log only on first call C 17 Jan 24 D. Wong: fixed a bug that IRR/IPR process alllows a subset of C level, a..b, where 1 <= a <= b <= NLAYS C----------------------------------------------------------------------- USE GRID_CONF ! horizontal & vertical domain specifications USE PAGRD_DEFN ! PA horiz domain specs USE UTILIO_DEFN ! inherits PARUTILIO #ifndef mpas #ifdef parallel USE SE_MODULES ! stenex (using SE_UTIL_MODULE, SE_DATA_COPY_MODULE) #else USE NOOP_MODULES ! stenex (using NOOP_UTIL_MODULE, NOOP_DATA_COPY_MODULE) #endif #endif USE PA_DEFN ! Process Anaylsis control and data variables IMPLICIT NONE C Includes: INCLUDE SUBST_FILES_ID ! file name parameters C Arguments: REAL, POINTER :: CGRID( :,:,:,: ) INTEGER, INTENT( IN ) :: JDATE ! current model date, format YYYYDDD INTEGER, INTENT( IN ) :: JTIME ! current model time, format HHMMSS C Parameters: None C External Functions: None C Local Variables: CHARACTER( 16 ), SAVE :: PNAME = 'PA_OUTPUT' CHARACTER( 16 ), ALLOCATABLE, SAVE :: IPRFNAM( : ) ! IPR output file names CHARACTER( 16 ), ALLOCATABLE, SAVE :: IRRFNAM( : ) ! IRR output file names INTEGER, SAVE :: NIPRFLS ! Number of IPR output files INTEGER, SAVE :: NIRRFLS ! Number of IRR output files LOGICAL, SAVE :: LFIRST = .TRUE. ! Flag for first call CHARACTER( 80 ) :: XMSG = ' ' ! Error message buffer INTEGER C ! Loop index for columns INTEGER ICG ! Index for species in cgrid array INTEGER L ! Loop index for layers INTEGER NIRR ! Loop index for IRR output variables INTEGER NFL ! Loop index for no. of files INTEGER NOUT ! Loop index for PA output variables INTEGER R ! Loop index for rows #ifndef parallel INTEGER PC ! index for window column INTEGER PR ! index for window row INTEGER PL ! index for window level #endif INTEGER VARINDX ! Index for output variable INTEGER NVARINDX ! number of output variable INTEGER allocstat #ifdef parallel CHARACTER( 2 ) :: COLROW = 'CR' ! col/row arg list order for pio_re_init LOGICAL :: WFLG ! pio_init - print decomposition #endif C----------------------------------------------------------------------- #ifndef mpas if (.not. allocated(IPRFNAM)) then allocate (IPRFNAM( MXFILE3 ), $ IRRFNAM( MXFILE3 ), $ stat=allocstat) end if #ifdef parallel IF ( .NOT. LFIRST ) THEN C Reset decomposition map IF ( .NOT. PIO_INIT( COLROW, PACOLS, PAROWS, PALEVS, NTHIK, & MY_PACOLS, MY_PAROWS, NPCOL, NPROW, NPCOL*NPROW, & MYPE ) ) THEN XMSG = 'Failed to re-initialize parallel I/O library.' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT2 ) RETURN END IF END IF #endif C On first call, get and save the output file names IF ( LFIRST ) THEN #ifdef parallel C Reset decomposition map IF ( .NOT. PIO_INIT( COLROW, PACOLS, PAROWS, PALEVS, NTHIK, & MY_PACOLS, MY_PAROWS, NPCOL, NPROW, NPCOL*NPROW, & MYPE, WFLG = .TRUE. ) ) THEN XMSG = 'Failed to re-initialize parallel I/O library.' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT2 ) RETURN END IF #endif IF ( LIPR .AND. NIPRVAR. GT. 0 ) THEN IF ( MOD( NIPRVAR, MXVARS3 ) .EQ. 0 ) THEN NIPRFLS = NIPRVAR / MXVARS3 ELSE NIPRFLS = ( NIPRVAR / MXVARS3 ) + 1 END IF DO NFL = 1, NIPRFLS IF ( NFL .EQ. 1 ) THEN IPRFNAM( NFL ) = CTM_IPR_1 ELSE IF ( NFL .EQ. 2 ) THEN IPRFNAM( NFL ) = CTM_IPR_2 ELSE IF ( NFL .EQ. 3 ) THEN IPRFNAM( NFL ) = CTM_IPR_3 ELSE IF ( NFL .GT. 3 ) THEN XMSG = 'Maximum number of IPR output files exceeded' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT2 ) END IF IF ( MYPE .EQ. 0 ) THEN IF ( .NOT. OPEN3( IPRFNAM( NFL ), FSRDWR3, PNAME ) ) THEN XMSG = 'Could not open Integrated Process Rate Output File: ' & // IPRFNAM( NFL ) CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF END IF END DO END IF IF ( LIRR .AND. NIRRVAR. GT. 0 ) THEN IF ( MOD( NIRRVAR, MXVARS3 ) .EQ. 0 ) THEN NIRRFLS = NIRRVAR / MXVARS3 ELSE NIRRFLS = ( NIRRVAR / MXVARS3 ) + 1 END IF DO NFL = 1, NIRRFLS IF ( NFL .EQ. 1 ) THEN IRRFNAM( NFL ) = CTM_IRR_1 ELSE IF ( NFL .EQ. 2 ) THEN IRRFNAM( NFL ) = CTM_IRR_2 ELSE IF ( NFL .EQ. 3 ) THEN IRRFNAM( NFL ) = CTM_IRR_3 ELSE IF ( NFL .GT. 3 ) THEN XMSG = 'Maximum number of IRR output files exceeded' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT2 ) END IF IF ( MYPE .EQ. 0 ) THEN IF ( .NOT. OPEN3( IRRFNAM( NFL ), FSRDWR3, PNAME ) ) THEN XMSG = 'Could not open Integrated Reaction Rate Output File: ' & // IRRFNAM( NFL ) CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF END IF END DO END IF END IF ! LFIRST cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C Output Process analysis data and re-initialize arrays cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF ( LIPR ) THEN DO NFL = 1, NIPRFLS NVARINDX = MIN ( MXVARS3, NIPRVAR - (NFL - 1) * MXVARS3 ) DO NOUT = 1, NVARINDX VARINDX = ( NFL - 1 ) * MXVARS3 + NOUT IF ( .NOT. WRITE3( IPRFNAM( NFL ), IPRNAME( VARINDX ), & JDATE, JTIME, DELC( :,:,:,VARINDX ) ) ) THEN XMSG = 'Could not write ' // IPRFNAM( NFL ) CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF END DO WRITE( LOGDEV, '( /5X, 3( A, :, 1X ), I8, ":", I6.6 )' ) & 'Timestep written to', IPRFNAM( NFL ), & 'for date and time', JDATE, JTIME END DO DO NOUT = 1, NIPRVAR DO L = 1, PALEVS DO R = 1, MY_PAROWS DO C = 1, MY_PACOLS DELC( C,R,L,NOUT ) = 0.0 END DO END DO END DO END DO END IF ! IPR cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C Output the IRR data and re-initialize arrays cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF ( LIRR ) THEN DO NFL = 1, NIRRFLS NVARINDX = MIN (MXVARS3, NIRRVAR - (NFL - 1) * MXVARS3) DO NOUT = 1, NVARINDX VARINDX = ( NFL - 1 ) * MXVARS3 + NOUT #ifdef parallel ! write( logdev,* ) 'paout-nout,varindx,my_pacols,etc,sizes: ', ! & nout, varindx, my_pacols, my_parows, palevs, ! & size( irrout,1 ), size( irrout,2 ), size( irrout,3 ), ! & size( irrout,4 ), size( tirrout,1 ), size( tirrout,2 ), ! & size( tirrout,3 ), size( dbuff,1 ), size( dbuff,2 ), ! & size( dbuff,3 ) CALL SUBST_DATA_COPY ( IRROUT, DBUFF, VARINDX, 1 ) #else DBUFF = IRROUT( 1:MY_PACOLS,1:MY_PAROWS,1:PALEVS,VARINDX ) #endif IF ( .NOT. WRITE3( IRRFNAM( NFL ), IRRNAME( VARINDX ), & JDATE, JTIME, DBUFF ) ) THEN XMSG = 'Could not write ' // IRRFNAM( NFL ) CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF END DO WRITE( LOGDEV, '( /5X, 3( A, :, 1X ), I8, ":", I6.6 )' ) & 'Timestep written to', IRRFNAM( NFL ), & 'for date and time', JDATE, JTIME END DO DO NIRR = 1, NIRRVAR DO L = 1, PALEVS #ifdef parallel DO R = MY_IRR_BEGROW, MY_IRR_ENDROW DO C = MY_IRR_BEGCOL, MY_IRR_ENDCOL #else DO R = 1, MY_PAROWS DO C = 1, MY_PACOLS #endif IRROUT( C,R,L,NIRR ) = 0.0 END DO END DO END DO END DO END IF ! IRR #ifdef parallel IF ( .NOT. LFIRST ) THEN C Reset decomposition map IF ( .NOT. PIO_INIT( COLROW, GL_NCOLS, GL_NROWS, NLAYS, NTHIK, & NCOLS, NROWS, NPCOL, NPROW, NPCOL*NPROW, & MYPE ) ) THEN XMSG = 'Failed to re-initialize parallel I/O library.' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT2 ) RETURN END IF ELSE IF ( .NOT. PIO_INIT( COLROW, GL_NCOLS, GL_NROWS, NLAYS, NTHIK, & NCOLS, NROWS, NPCOL, NPROW, NPCOL*NPROW, & MYPE, WFLG = .TRUE. ) ) THEN XMSG = 'Failed to re-initialize parallel I/O library.' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT2 ) RETURN END IF END IF #endif #endif IF ( LFIRST ) THEN LFIRST = .FALSE. END IF RETURN END ================================================ FILE: CCTM/src/procan/pa/pa_read.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE PA_READ C----------------------------------------------------------------------- C Function: To read the Process Analysis input commmand file C Preconditions: None C Key Subroutines/Functions Called: GETCHR C GETCYCLE C GETDESC C GETFAMILY C GETIPROUT C GETIRROUT C GETRXNSUM C GETWORD C RDLINE C Revision History: C Prototype created by Jerry Gipson, May, 1997 C Modified May, 1997 by Jerry Gipson to be consistent with beta CTM C Modified Sept, 1997 by Jerry Gipson to be consistent with targeted CTM C Fixed default domain problem, Jerry Gipson, Feb '98 C Updated May 2002 by Jerry Gipson for dynamic allocation version of CCTM C Updated August 2004 by Jerry Gipson to get input file path from environment variables C Modified output_domain error message, J. Gipson Aug '04 C Aug 2011 Jeff Young: Replaced I/O API include files with IOAPI`s M3UTILIO C Sep 2018 C. Nolte, S. Roselle: replace M3UTILIO with UTILIO_DEFN C----------------------------------------------------------------------- USE UTILIO_DEFN USE PA_GLOBAL ! Mech and Grid data used USE PA_VARS USE PA_DEFN, Only: LIPR, LIRR, NIPRVAR, NIRRVAR, & IRRNAME, IRRDESC, LPARTIRR, LFULLIRR, N_IPR_SPC USE PA_PARSE IMPLICIT NONE C Includes: None C Arguments: None C Parameters: ! env var for the Process Analysis Control Module input file name CHARACTER( 16 ), PARAMETER :: PACM_INFILE = 'PACM_INFILE' CHARACTER( 16 ), PARAMETER :: PNAME = 'PA_READ' C External Functions: C Local Variables: CHARACTER( 16 ) :: CMND ! Current command being processed CHARACTER( 16 ) :: LASTCMND ! Previous command processed INTEGER NDOMAIN ! Number of GETDOMIN calls INTEGER ASTAT ! Memory allocation status LOGICAL LIRRTYPE ! Flag for input IRRTYPE command LOGICAL LIRRNONE ! Flag for no IRR analysis LOGICAL LRDONLY ! Flag for read only file LOGICAL LFMTTED ! Flag for formatted file C----------------------------------------------------------------------- cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Open irr mb file and get the first non-comment line cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc LRDONLY = .TRUE. LFMTTED = .TRUE. IFILE = GETEFILE ( PACM_INFILE, LRDONLY, LFMTTED, PNAME ) IF ( IFILE .LT. 0 ) THEN MSG = 'PACM_INFILE not found; looking for pa.inp' CALL M3MESG( MSG ) IFILE = GETEFILE ( 'pa.inp', LRDONLY, LFMTTED, PNAME ) IF ( IFILE .LT. 0 ) THEN MSG = 'ERROR: Could not open PACM input file' CALL M3EXIT( PNAME, IZERO, IZERO, MSG, XSTAT2 ) END IF END IF LINNUM = 0 NDOMAIN = 0 LIRRTYPE = .FALSE. LIRRNONE = .FALSE. CALL RDLINE CALL GETCHR CALL GETWORD cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Process the IRRTYPE command if it is present cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF ( WORD .EQ. 'IRRTYPE' ) THEN LIRRTYPE = .TRUE. IF ( CHR .NE. '=' ) THEN WRITE( MSG, 94060 ) CALL M3MESG( MSG ) WRITE( MSG, 94000 ) LINNUM, INBUF CALL M3MESG( MSG ) WRITE( MSG, 94020 ) CHR CALL M3MESG( MSG ) CALL M3EXIT( PNAME, IZERO, IZERO, ' ', XSTAT2 ) END IF CALL GETCHR CALL GETWORD IF ( WORD .EQ. 'FULL' ) THEN LFULLIRR = .TRUE. LPARTIRR = .FALSE. ELSE IF ( WORD .EQ. 'PARTIAL' ) THEN LFULLIRR = .FALSE. LPARTIRR = .TRUE. ELSE IF ( WORD .EQ. 'NONE' ) THEN LIRRNONE = .TRUE. LFULLIRR = .FALSE. LPARTIRR = .FALSE. ELSE WRITE( MSG, 94080 ) CALL M3MESG( MSG ) WRITE( MSG, 94000 ) LINNUM, INBUF CALL M3MESG( MSG ) WRITE( MSG, 94040 ) WORD CALL M3MESG( MSG ) CALL M3EXIT( PNAME, IZERO, IZERO, ' ', XSTAT2 ) END IF IF ( CHR .NE. ';' ) THEN WRITE( MSG, 94100 ) CALL M3MESG( MSG ) WRITE( MSG, 94000 ) LINNUM, INBUF CALL M3MESG( MSG ) WRITE( MSG, 94020 ) CHR CALL M3MESG( MSG ) CALL M3EXIT( PNAME, IZERO, IZERO, ' ', XSTAT2 ) ELSE CALL GETCHR CALL GETWORD END IF END IF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Top of loop for processing remaining commands cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 20 CONTINUE CMND = WORD IF ( WORD .EQ. 'DEFINE' ) THEN CALL GETWORD IF ( WORD .EQ. 'FAMILY' ) THEN CALL GETFAMILY ELSE IF ( WORD .EQ. 'RXNSUM' ) THEN CALL GETRXNSUM ELSE IF ( WORD .EQ. 'CYCLE' ) THEN CALL GETCYCLE ELSE WRITE( MSG, 94120 ) CALL M3MESG( MSG ) WRITE( MSG, 94000 ) LINNUM, INBUF CALL M3MESG( MSG ) WRITE( MSG,94040 ) WORD CALL M3MESG( MSG ) CALL M3EXIT( PNAME, IZERO, IZERO, ' ', XSTAT2 ) END IF ELSE IF ( WORD .EQ. 'IPR_OUTPUT' ) THEN CALL GETIPROUT ELSE IF ( WORD .EQ. 'IRR_OUTPUT' ) THEN CALL GETIRROUT ELSE IF ( WORD .EQ. 'DESCRIPTION' ) THEN CALL GETDESC( LASTCMND ) ELSE IF ( WORD .EQ. 'ENDPA' ) THEN GO TO 100 ELSE WRITE( MSG, 94140 ) CALL M3MESG( MSG ) WRITE( MSG, 94000 ) LINNUM, INBUF CALL M3MESG( MSG ) WRITE( MSG, 94040 ) WORD CALL M3MESG( MSG ) CALL M3EXIT( PNAME, IZERO, IZERO, ' ', XSTAT2 ) END IF LASTCMND = CMND CALL GETWORD GO TO 20 100 CONTINUE cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Set the control parameters cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c..LIPR -- for integrated process rates IF ( N_IPR_SPC .GT. 0 ) THEN LIPR = .TRUE. ELSE LIPR = .FALSE. END IF c..LIRR -- for integrated reaction rates IF ( LFULLIRR ) THEN LIRR = .TRUE. NIRRVAR = NRXNS ELSE IF ( LPARTIRR ) THEN LIRR = .TRUE. NIRRVAR = NIRROUT ELSE LIRR = .FALSE. END IF NIPRVAR = MAX( NIPRVAR, 1 ) NIRRVAR = MAX( NIRRVAR, 1 ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Allocate file variables cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc ALLOCATE ( IRRNAME( NIRRVAR ), & IRRDESC( NIRRVAR ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN WRITE( MSG, 94460 ) CALL M3EXIT( PNAME, IZERO, IZERO, MSG, XSTAT2 ) END IF IRRNAME = IRRNAME_TMP( 1:NIRRVAR ) IRRDESC = IRRDESC_TMP( 1:NIRRVAR ) ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Print Warning messages for inconsistencies,omissions, etc. cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF ( LIRRTYPE ) THEN IF ( LFULLIRR .AND. NIRROUT .GT. 0 ) THEN WRITE( MSG, 94240 ) CALL M3MESG( MSG ) WRITE( MSG, 94260 ) CALL M3MESG( MSG ) ELSE IF ( LPARTIRR .AND. NIRROUT .EQ. 0 ) THEN LPARTIRR = .FALSE. WRITE( MSG, 94280 ) CALL M3MESG( MSG ) WRITE( MSG, 94300 ) CALL M3MESG( MSG ) ELSE IF ( LIRRNONE .AND. NIRROUT .GT. 0 ) THEN WRITE( MSG, 94320 ) CALL M3MESG( MSG ) WRITE( MSG, 94340 ) CALL M3MESG( MSG ) END IF ELSE IF ( NIRROUT .GT. 0 ) THEN LPARTIRR = .TRUE. LFULLIRR = .FALSE. WRITE( MSG, 94360 ) CALL M3MESG( MSG ) WRITE( MSG, 94380 ) CALL M3MESG( MSG ) END IF END IF RETURN C----------------------- FORMAT Statements ----------------------------- 94000 FORMAT( ' Line No. ', I4, ': ', A ) 94020 FORMAT( ' Character found: ', A ) 94040 FORMAT( ' Word found: ', A ) 94060 FORMAT( 'ERROR: Equal sign expected after IRRTYPE' ) 94080 FORMAT( 'ERROR: FULL, PARTIAL, or NONE must follow IRRTYPE' ) 94100 FORMAT( 'ERROR: A ; must follow FULL, PARTIAL, or NONE' ) 94120 FORMAT( 'ERROR: FAMILY, RXNSUM, OR CYCLE must follow the DEFINE', & ' command' ) 94140 FORMAT( 'ERROR: Invalid command' ) 94240 FORMAT( 'WARNING: LIRRTYPE = FULL but PARTIAL commands included' ) 94260 FORMAT( ' A FULL IRR analysis will be assumed' ) 94280 FORMAT( 'WARNING: LIRRTYPE = PARTIAL but no PARTIAL commands', & ' included' ) 94300 FORMAT( ' No IRR outputs will be generated' ) 94320 FORMAT( 'WARNING: LIRRTYPE = NONE but PARTIAL IRR commands', & ' included' ) 94340 FORMAT( ' No IRR outputs will be generated' ) 94360 FORMAT( 'WARNING: LIRRTYPE not specified but PARTIAL commands', & ' included' ) 94380 FORMAT( ' A PARTIAL IRR analysis will be generated' ) 94460 FORMAT( 'ERROR: Unable to allocate IRRNAME or IRRDESC memory' ) END SUBROUTINE PA_READ ================================================ FILE: CCTM/src/procan/pa/pa_report.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE PA_REPORT C----------------------------------------------------------------------- C Function: To provide an output listing that symbolically represents C the operations to be performed in Process Analysis C Preconditions: None C Key Subroutines/Functions Called: None C Revision History: C Prototype created by Jerry Gipson, August, 1996 C Modified May, 1997 by Jerry Gipson to be consistent with beta CTM C Modified Sept, 1997 by Jerry Gipson to be consistent with targeted CTM C Modified Jun, 1998 by Jerry Gipson to change name of output report C Modified May 2002 by Jerry Gipson to add comma in format statements C Aug 2011 Jeff Young: Replaced I/O API include files with IOAPI`s M3UTILIO C Sep 2018 C. Nolte, S. Roselle: replace M3UTILIO with UTILIO_DEFN C----------------------------------------------------------------------- USE UTILIO_DEFN USE PA_GLOBAL ! Mech data used USE PA_VARS USE PA_IPRVARS USE PA_DEFN, Only: LFULLIRR, LPARTIRR, N_IPR_SPC, IRRNAME USE PA_PARSE use get_env_module IMPLICIT NONE C Includes: None C Arguments: None C Parameters: CHARACTER( 20 ), PARAMETER :: PACM_REPORT = 'PACM_REPORT' CHARACTER( 16 ), PARAMETER :: PNAME = 'PA_REPORT' C External Functions: None C Local Variables CHARACTER( 1 ) :: C = 'c' ! Lowercase c CHARACTER( 3 ) :: LABL ! Output reaction label or term number CHARACTER( 3 ) :: OUTLBL ! Output label number CHARACTER( 4 ) :: OPNAM ! Operator variable name CHARACTER( 4 ) :: TYPE ! Operator type CHARACTER( 7 ) :: PNFLG ! Pos or Neg only flag CHARACTER( 11 ) :: COUT ! Output coefficient CHARACTER( 80 ) :: CEES ! Line of asterisks CHARACTER( 80 ) :: LINOUT ! line of output CHARACTER( 5 ) :: TZ ! Time zone label CHARACTER( 24 ) :: TIMNDAT ! Wall clock time and date CHARACTER( 50 ) :: STRING( 20 ) ! Strings to concatenate CHARACTER( LABLEN ) :: RJLABL( MXRXNS ) ! Right justified reaction label CHARACTER( 4 ) :: SAVOP( MAXTERMS ) ! Operator name CHARACTER( 3 ) :: SAVLBL( MAXTERMS ) ! Operator label INTEGER E1, E2, E3 ! Ending character positions INTEGER EQPOS1 ! Position of equal sign plus 1 INTEGER ICOUNT ! Counter of no. of output terms INTEGER IE1, IE2 ! Pointer to ending positions in a string INTEGER IEND ! Pointer to end of output line INTEGER INDX ! Pointer to reaction number INTEGER IOUT ! Unit number for output report INTEGER IS1, IS2 ! Pointer to startinging positions in a string INTEGER LEN1 ! Length of a string INTEGER :: LINLEN = 80 ! Length of output line INTEGER MAXLEN ! Length of longest reaction label INTEGER N ! Loop index for specis and defined names INTEGER NCYC ! Loop index for number of cycles INTEGER NNETR ! No. of net reaction operators in OUTPUT request INTEGER NNLOS ! No. of net loss operators in OUTPUT request INTEGER NLN ! Loop index for no. of mech lines INTEGER NLOSS ! No. of loss operators in OUTPUT request INTEGER NFAM ! Loop index for number of familys INTEGER NNPRD ! No. of net production operators in OUTPUT request INTEGER NOUT ! Loop index for number of output requests INTEGER NIPR ! Loop index for IPR species INTEGER NPROD ! No. of net production operators in OUTPUT request INTEGER NRX ! Loop index for number of reactions INTEGER NR ! Total number of reactions in operator INTEGER NTERM ! Loop index for number of terms in output request INTEGER NUMSTRNGS ! Number of strings to concatenate INTEGER SPOS ! Starting position of right justified label INTEGER IDATE ! Wall-clock date INTEGER ITIME ! Wall clock time INTEGER RXNUMS( MXRXNS ) ! Rx nos. of reactions in operator term LOGICAL LFIRST ! Flag for first time throuhh a loop LOGICAL LINITFLG ! Flag to indicate initialization present LOGICAL LRDONLY ! Flag for read only file LOGICAL LFMTTED ! Flag for formatted file LOGICAL LRXINC( MXRXNS ) ! Flag to include reaction in prod, ! loss, or net operations REAL COEFFS( MXRXNS ) ! Coefficients of operator reactions INTEGER ASTAT CHARACTER(200) :: PACM_NAME C----------------------------------------------------------------------- cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Open file and write report header cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc LRDONLY = .FALSE. LFMTTED = .TRUE. !IOUT = GETEFILE ( PACM_REPORT, LRDONLY, LFMTTED, PNAME ) IOUT = JUNIT() CALL GET_ENV( PACM_NAME, 'PACM_REPORT', 'PACM_REPORT' ) OPEN ( UNIT = IOUT, FILE = PACM_NAME, STATUS='UNKNOWN', FORM='FORMATTED', IOSTAT=ASTAT ) IF ( ASTAT .NE. 0 ) THEN MSG = 'ERROR: Could not open PA_REPORT output file' CALL M3EXIT( PNAME, IZERO, IZERO, MSG, ASTAT ) END IF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Get the time and date to be used as the time stamp for all outputs; c Convert from GMT to EDT or EST cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc CALL GETDTTIME( IDATE, ITIME ) IF ( ISDSTIME( IDATE ) ) THEN CALL NEXTIME( IDATE, ITIME, -40000 ) TZ = ' EDT ' ELSE CALL NEXTIME( IDATE, ITIME, -50000 ) TZ = ' EST ' END IF TIMNDAT = DT2STR( IDATE, ITIME ) TDATOUT = TIMNDAT( 1:8 ) // TZ // TIMNDAT( 10:24 ) WRITE( IOUT, 93020 ) TDATOUT WRITE( IOUT, 93000 ) DO N = 1, 80 CEES( N:N ) = C END DO cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Do the integrated process rate section cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc LINOUT = CEES WRITE( IOUT, 93000 ) LINOUT IF ( N_IPR_SPC .LE. 0 ) THEN WRITE( IOUT, 93080 ) LINOUT = CEES WRITE( IOUT, 93000 ) LINOUT WRITE( IOUT, 93000 ) WRITE( IOUT, 93000 ) ELSE WRITE( IOUT, 93100 ) LINOUT = CEES WRITE( IOUT, 93000 ) LINOUT LFIRST = .TRUE. DO NIPR = 1, N_IPR_SPC IF ( IPR_SPTYPE( NIPR ) .EQ. 'FAM' ) THEN IF ( LFIRST ) THEN WRITE( IOUT, 93120 ) LFIRST = .FALSE. END IF INDX = IPR_SPNUM( NIPR ) DO N = 1, FAMNUMLNS( INDX ) WRITE( IOUT, 93000 ) FAMLINE( INDX,N ) END DO WRITE( IOUT, 93140 ) WRITE( IOUT, 93000 ) LINOUT END IF END DO ICOUNT = 0 DO NIPR = 1, N_IPR_SPC DO N = 1, N_IPR_OPS( NIPR ) ICOUNT = ICOUNT + 1 WRITE( IOUT, '(A17,I3,A4,A4,A4,A)' ) ' IPR_OUTPUT(', & ICOUNT, ') = ', IPR_OPNAME( NIPR, N ), & ' of ', IPR_SPNAM( NIPR ) END DO END DO WRITE( IOUT, 93000 ) WRITE( IOUT, 93000 ) END IF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c If not doing a partial IRR, write a header and skip to the end cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF ( .NOT. LPARTIRR ) THEN LINOUT = CEES WRITE( IOUT, 93000 ) LINOUT IF ( LFULLIRR ) THEN WRITE( IOUT, 93180 ) ELSE WRITE( IOUT, 93200 ) END IF LINOUT = CEES WRITE( IOUT, 93000 ) LINOUT GO TO 999 END IF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Write the section header for the partial IRR section cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc LINOUT = CEES WRITE( IOUT, 93000 ) LINOUT WRITE( IOUT, 93220 ) LINOUT = CEES WRITE( IOUT, 93000 ) LINOUT cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Find the longest reaction label length, right justify and save cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc MAXLEN = 0 DO NRX = 1, NRXNS MAXLEN = MAX( MAXLEN, LEN_TRIM( RXLABEL( NRX ) ) ) END DO DO NRX = 1, NRXNS DO N = 1, LABLEN RJLABL( NRX )( N:N ) = ' ' END DO IS1 = LBLANK( RXLABEL( NRX ) ) + 1 IE1 = LEN_TRIM( RXLABEL( NRX ) ) LEN1 = IE1 - IS1 + 1 IE2 = LABLEN IS2 = LABLEN - LEN1 + 1 RJLABL( NRX )( IS2:IE2 ) = RXLABEL( NRX )( IS1:IE1 ) END DO SPOS = LABLEN - MAXLEN + 1 cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Top of loop for doing each IRR_OUTPUT report cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc DO 540 NOUT = 1, NIRROUT WRITE( OUTLBL, '( I3 )' ) NOUT c..Write the header for each output WRITE( IOUT, 93240 ) LINOUT = CEES WRITE( IOUT, 93000 ) LINOUT STRING( 1 ) = ' Summary of Input IRR Commands for OUTPUT' STRING( 2 ) = INT2CHR( NOUT ) IEND = LEN_TRIM( STRING( 2 ) ) STRING( 2 ) = STRING( 2 )( 1:IEND ) // ':' STRING( 3 ) = IRRNAME( NOUT ) NUMSTRNGS = 3 CALL CATSTRING( NUMSTRNGS, STRING, LINOUT, LINLEN ) WRITE( IOUT, 93000 ) LINOUT LINOUT = CEES WRITE( IOUT, 93000 ) LINOUT cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Write the input IRR commands cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc WRITE( IOUT, 93140 ) WRITE( IOUT, 93260 ) WRITE( IOUT, 93140 ) LINOUT = ' IRROUT(' // OUTLBL // ') = ' IEND = LEN_TRIM( LINOUT ) + 1 EQPOS1 = IEND DO 100 NTERM = 1, NIRRTERMS( NOUT ) CALL DOCOEFF( OUTSC( NOUT,NTERM ), COUT ) IF ( NTERM .EQ. 1 .AND. OUTSC( NOUT,NTERM ) .GT. 0.0 ) & COUT( 1:1 ) = ' ' LINOUT = LINOUT( 1:EQPOS1 ) // COUT IEND = EQPOS1 + 12 TYPE = OUTTYPE( NOUT,NTERM ) E1 = MIN( LEN_TRIM( OUTSPEC1( NOUT,NTERM ) ), 6 ) E2 = MIN( LEN_TRIM( OUTSPEC2( NOUT,NTERM ) ), 6 ) E3 = MIN( LEN_TRIM( OUTSPEC3( NOUT,NTERM ) ), 6 ) IF ( TYPE .EQ. 'NAME' ) THEN LINOUT = LINOUT( 1:IEND ) // OUTSPEC1( NOUT, NTERM ) IEND = LEN_TRIM( LINOUT ) IF ( OUTPNFLAG( NOUT,NTERM ) .EQ. 'POSONLY' ) THEN LINOUT = LINOUT( 1:IEND ) // '[POSONLY]' ELSE IF ( OUTPNFLAG( NOUT,NTERM ) .EQ. 'NEGONLY' ) THEN LINOUT = LINOUT( 1:IEND ) // '[NEGONLY]' END IF ELSE IF ( TYPE .EQ. 'PROD' .OR. TYPE .EQ. 'NETP' ) THEN OPNAM = TYPE LINOUT = LINOUT( 1:IEND ) // OPNAM // ' [' // & OUTSPEC1( NOUT,NTERM )( 1:E1 ) // ']' IEND = LEN_TRIM( LINOUT ) IF ( OUTSPEC2( NOUT,NTERM ) .NE. '' ) THEN LINOUT = LINOUT( 1:IEND ) // ' FROM [' // & OUTSPEC2( NOUT,NTERM )( 1:E2 ) // ']' IEND = LEN_TRIM( LINOUT ) END IF IF ( OUTSPEC3( NOUT,NTERM ) .NE. '' ) THEN IF ( OUTOP2( NOUT,NTERM ) .EQ. 'AND' ) THEN LINOUT = LINOUT( 1:IEND ) // ' AND [' // & OUTSPEC3( NOUT,NTERM )( 1:E3 ) // ']' ELSE LINOUT = LINOUT( 1:IEND ) // ' OR [' // & OUTSPEC3( NOUT,NTERM )( 1:E3 ) // ']' END IF IEND = LEN_TRIM( LINOUT ) END IF ELSE IF ( TYPE .EQ. 'LOSS' .OR. TYPE .EQ. 'NETL' ) THEN OPNAM = TYPE LINOUT = LINOUT( 1:IEND ) // OPNAM // ' [' // & OUTSPEC1( NOUT,NTERM )( 1:E1 ) // ']' IEND = LEN_TRIM( LINOUT ) IF ( OUTSPEC3( NOUT,NTERM ) .NE. '' ) THEN IF ( OUTOP2( NOUT,NTERM ) .EQ. 'AND' ) THEN LINOUT = LINOUT( 1:IEND ) // ' AND [' // & OUTSPEC3( NOUT,NTERM )( 1:E3 ) // ']' ELSE LINOUT = LINOUT( 1:IEND ) // ' OR [' // & OUTSPEC3( NOUT,NTERM )( 1:E3 ) // ']' END IF IEND = LEN_TRIM( LINOUT ) END IF ELSE IF ( TYPE .EQ. 'NET' ) THEN OPNAM = TYPE LINOUT = LINOUT( 1:IEND ) // OPNAM // ' [' // & OUTSPEC1( NOUT,NTERM )( 1:E1 ) // ']' IEND = LEN_TRIM( LINOUT ) ELSE IF ( TYPE .EQ. 'RXN' ) THEN INDX = OUTRN( NOUT,NTERM ) LINOUT = LINOUT( 1:IEND ) // 'IRR<' // & RJLABL( INDX )( SPOS:LABLEN ) // '>' END IF WRITE( IOUT, 93000 ) LINOUT LINOUT = ' &' LINOUT = LINOUT( 1:EQPOS1 ) 100 CONTINUE WRITE( IOUT, 93140 ) LINOUT = CEES WRITE( IOUT, 93000 ) LINOUT cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Write the descriptions for any families referenced cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF ( NOUTFAMS( NOUT ) .GT. 0 ) THEN WRITE( IOUT, 93140 ) WRITE( IOUT, 93280 ) DO NFAM = 1, NOUTFAMS( NOUT ) INDX = OUTFAMS( NOUT,NFAM ) DO N = 1, FAMNUMLNS( INDX ) WRITE( IOUT, 93000 ) FAMLINE( INDX,N ) END DO WRITE( IOUT, 93140 ) END DO LINOUT = CEES WRITE( IOUT, 93000 ) LINOUT END IF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Output descriptions of all cycles referenced cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF ( NOUTCYCS( NOUT ) .GT. 0 ) THEN WRITE( IOUT, 93140 ) WRITE( IOUT, 93300 ) DO 200 N = 1, NOUTCYCS( NOUT ) NCYC = OUTCYCS( NOUT,N ) c..Write the cycle name STRING( 1 ) = 'c..CYCLE' STRING( 2 ) = INT2CHR( NCYC ) IEND = LEN_TRIM( STRING( 2 ) ) STRING( 2 ) = STRING( 2 )( 1:IEND ) STRING( 3 ) = CYCLNAME( NCYC ) NUMSTRNGS = 3 CALL CATSTRING( NUMSTRNGS, STRING, LINOUT, LINLEN ) WRITE( IOUT, 93000 ) LINOUT c..Write reactions used in the cycle WRITE( LABL, '( I3 )' ) NCYC LINOUT = ' CYSM(' // LABL // ') =' IEND = LEN_TRIM( STRING( 2 ) ) IF ( NCYTERMS( NCYC ) .EQ. 0 ) THEN LINOUT = LINOUT( 1:IEND ) // ' 0.0' WRITE( IOUT, 93000 ) LINOUT ELSE WRITE( IOUT, 93000 ) LINOUT DO NTERM = 1, NCYTERMS( NCYC ) INDX = CYRXNUM( NCYC,NTERM ) CALL DOCOEFF( CYSC( NCYC,NTERM ), COUT ) LINOUT = MECLINE( INDX,1 ) LINOUT( 9:19 ) = COUT WRITE( IOUT, 93000 ) LINOUT IF ( MECNUMLNS( INDX ) .GT. 1 ) THEN DO NLN = 2, MECNUMLNS( INDX ) WRITE( IOUT, 93000 ) MECLINE( INDX,NLN ) END DO END IF END DO WRITE( IOUT, 93140 ) END IF 200 CONTINUE LINOUT = CEES WRITE( IOUT, 93000 ) LINOUT END IF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Output descriptions of all reaction sums referenced cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF ( NOUTRXSUMS( NOUT ) .GT. 0 ) THEN WRITE( IOUT, 93140 ) WRITE( IOUT, 93320 ) DO 300 N = 1, NOUTRXSUMS( NOUT ) NRX = OUTRXSUMS( NOUT,N ) c..Write the reaction sum name STRING( 1 ) = 'c..RXSUM' STRING( 2 ) = INT2CHR( NRX ) IEND = LEN_TRIM( STRING( 2 ) ) STRING( 2 ) = STRING( 2 )( 1:IEND ) STRING( 3 ) = RXSUMNAME( NRX ) NUMSTRNGS = 3 CALL CATSTRING( NUMSTRNGS, STRING, LINOUT, LINLEN ) WRITE( IOUT, 93000 ) LINOUT c..Write reactions used in the reaction sum WRITE( LABL, '( I3 )' ) NRX LINOUT = ' RXSM(' // LABL // ') =' WRITE( IOUT, 93000 ) LINOUT IEND = LEN_TRIM( STRING( 2 ) ) IF ( NRXTERMS( NRX ) .EQ. 0 ) THEN LINOUT = LINOUT( 1:IEND ) // ' 0.0' WRITE( IOUT, LINOUT ) ELSE DO NTERM = 1, NRXTERMS( NRX ) INDX = RXSUMRN( NRX,NTERM ) CALL DOCOEFF( RXNSC( NRX,NTERM ), COUT ) LINOUT = MECLINE( INDX,1 ) LINOUT( 9:19 ) = COUT WRITE( IOUT, 93000 ) LINOUT IF ( MECNUMLNS( INDX ) .GT. 1 ) THEN DO NLN = 2, MECNUMLNS( INDX ) WRITE( IOUT, 93000 ) MECLINE( INDX,NLN ) END DO END IF END DO END IF WRITE( IOUT, 93140 ) 300 CONTINUE LINOUT = CEES WRITE( IOUT, 93000 ) LINOUT END IF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Before doing operators, flag all reactions included in cycles for c elimination from production/loss/net operators cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc DO NRX = 1, NRXNS LRXINC( NRX ) = .TRUE. END DO IF ( NOUTCYCS( NOUT ) .GT. 0 ) THEN DO N = 1, NOUTCYCS( NOUT ) NCYC = OUTCYCS( NOUT, N ) DO NTERM = 1, NCYTERMS( NCYC ) INDX = CYRXNUM( NCYC, NTERM ) LRXINC( INDX ) = .FALSE. END DO END DO END IF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Output descriptions of production/loss/net operator cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF ( NOUTOPS( NOUT ) .GT. 0 ) THEN WRITE( IOUT, 93140 ) WRITE( IOUT, 93340 ) NPROD = 0 NNPRD = 0 NLOSS = 0 NNLOS = 0 NNETR = 0 DO 400 NTERM = 1, NIRRTERMS( NOUT ) TYPE = OUTTYPE( NOUT,NTERM ) IF ( TYPE .NE. 'NAME' .AND. TYPE .NE. 'RXN' ) THEN CALL GETRXNS( NOUT, NTERM, NR, RXNUMS, COEFFS, LRXINC ) c..Write the operator description IF ( TYPE .EQ. 'PROD' ) THEN STRING( 1 ) = 'c..Production of' OPNAM = 'PROD' NPROD = NPROD + 1 WRITE( LABL, '( I3 )' ) NPROD ELSE IF ( TYPE .EQ. 'NETP' ) THEN STRING( 1 ) = 'c..Net production of' OPNAM = 'NPRD' NNPRD = NNPRD + 1 WRITE( LABL, '( I3 )' ) NNPRD ELSE IF ( TYPE .EQ. 'LOSS' ) THEN STRING( 1 ) = 'c..Loss of' OPNAM = 'LOSS' NLOSS = NLOSS + 1 WRITE( LABL, '( I3 )' ) NLOSS ELSE IF ( TYPE .EQ. 'NETL' ) THEN STRING( 1 ) = 'c..Net loss of' OPNAM = 'NLOS' NNLOS = NNLOS + 1 WRITE( LABL, '( I3 )' ) NNLOS ELSE IF ( TYPE .EQ. 'NET' ) THEN STRING( 1 ) = 'c..Net reaction of' OPNAM = 'NETR' NNETR = NNETR + 1 WRITE( LABL, '( I3 )' ) NNETR END IF SAVOP( NTERM ) = OPNAM SAVLBL( NTERM ) = LABL STRING( 2 ) = OUTSPEC1( NOUT,NTERM ) NUMSTRNGS = 2 IF ( OUTSPEC2( NOUT,NTERM ) .NE. '' ) THEN STRING( 3 ) = 'from' STRING( 4 ) = OUTSPEC2( NOUT,NTERM ) NUMSTRNGS = 4 END IF IF ( OUTSPEC3( NOUT,NTERM ) .NE. '' ) THEN IF ( OUTOP2( NOUT,NTERM ) .EQ. 'AND' ) THEN STRING( NUMSTRNGS + 1 ) = 'and' ELSE STRING( NUMSTRNGS + 1 ) = 'or' END IF STRING( NUMSTRNGS + 2 ) = OUTSPEC3( NOUT,NTERM ) NUMSTRNGS = NUMSTRNGS + 2 END IF CALL CATSTRING( NUMSTRNGS, STRING, LINOUT, LINLEN ) IEND = LEN_TRIM( LINOUT ) WRITE( IOUT, 93000 ) LINOUT c..Write reactions used in the operator !123456 7890 1 234 567 LINOUT = ' ' // OPNAM // '(' // LABL // ') =' IEND = LEN_TRIM( LINOUT ) ! = 17 IF ( NR .LE. 0 ) THEN LINOUT = LINOUT( 1:IEND ) // ' 0.0' WRITE( IOUT, 93000 ) LINOUT ELSE WRITE( IOUT, 93000 ) LINOUT DO N = 1, NR INDX = RXNUMS( N ) CALL DOCOEFF( COEFFS( N ), COUT ) LINOUT = MECLINE( INDX,1 ) LINOUT( 9:19 ) = COUT WRITE( IOUT, 93000 ) LINOUT IF ( MECNUMLNS( INDX ) .GT. 1 ) THEN DO NLN = 2, MECNUMLNS( INDX ) WRITE( IOUT, 93000 ) MECLINE( INDX,NLN ) END DO END IF END DO END IF WRITE( IOUT, 93140 ) END IF 400 CONTINUE LINOUT = CEES WRITE( IOUT, 93000 ) LINOUT END IF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Output list of all reactions referenced in the OUTPUT command cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF ( NOUTRXN( NOUT ) .GT. 0 ) THEN WRITE( IOUT, 93140 ) WRITE( IOUT, 93360 ) IF ( NOUTRXN( NOUT ) .GT. 0 ) THEN DO NTERM = 1, NIRRTERMS( NOUT ) TYPE = OUTTYPE( NOUT,NTERM ) IF ( TYPE .EQ. 'RXN' ) THEN INDX = OUTRN( NOUT,NTERM ) LINOUT = MECLINE( INDX, 1 ) LINOUT( 6:6 ) = ' ' WRITE( IOUT, 93000 ) LINOUT IF ( MECNUMLNS( INDX ) .GT. 1 ) THEN DO NLN = 2, MECNUMLNS( INDX ) WRITE( IOUT, 93000 ) MECLINE( INDX,NLN ) END DO END IF END IF END DO END IF WRITE( IOUT, 93140 ) LINOUT = CEES WRITE( IOUT, 93000 ) LINOUT END IF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Write the pseudocode for IRROUT cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc STRING( 1 ) = ' Pseudocode for OUTPUT' STRING( 2 ) = INT2CHR( NOUT ) IEND = LEN_TRIM( STRING( 2 ) ) STRING( 2 ) = STRING( 2 )( 1:IEND ) // ':' STRING( 3 ) = IRRNAME( NOUT ) NUMSTRNGS = 3 CALL CATSTRING( NUMSTRNGS, STRING, LINOUT, LINLEN ) WRITE( IOUT, 93000 ) LINOUT LINOUT = CEES WRITE( IOUT, 93000 ) LINOUT c..Write the pseudocode for the initialization terms LINITFLG = .FALSE. LFIRST = .TRUE. DO 500 NTERM = 1, NIRRTERMS( NOUT ) PNFLG = OUTPNFLAG( NOUT,NTERM ) IF ( PNFLG .NE. '' ) THEN LINITFLG = .TRUE. TYPE = OUTS1TYP( NOUT,NTERM ) WRITE( LABL, '( I3 )' ) OUTS1NUM( NOUT,NTERM ) IF ( LFIRST ) THEN LINOUT = ' IRROUT(' // OUTLBL // ') = 0.0' WRITE( IOUT, 93000 ) LINOUT WRITE( IOUT, 93000 ) LFIRST = .FALSE. END IF IF ( TYPE .EQ. 'CYCL' ) THEN OPNAM = 'CYSM' ELSE OPNAM = 'RXSM' END IF CALL DOCOEFF( OUTSC( NOUT,NTERM ), COUT ) IF ( ABS( OUTSC( NOUT,NTERM ) ) .NE. 1.0 ) THEN E1 = 11 ELSE E1 = 1 END IF IF ( PNFLG .EQ. 'POSONLY' ) THEN LINOUT = ' IF ( ' // OPNAM // '(' // LABL // & ') .GT. 0.0 ) THEN' ELSE LINOUT = ' IF ( ' // OPNAM // '(' // LABL // & ') .LT. 0.0 ) THEN' END IF WRITE( IOUT, 93000 ) LINOUT IF ( PNFLG .EQ. 'POSONLY' ) THEN LINOUT = ' IRROUT(' // OUTLBL // & ') = IRROUT(' // OUTLBL // ') ' // & COUT( 1:E1 ) // ' ' // OPNAM // & '(' // LABL // ')' ELSE LINOUT = ' IRROUT(' // OUTLBL // & ') = IRROUT(' // OUTLBL // ') ' // & COUT( 1:E1 ) // ' ABS(' // OPNAM // & '(' // LABL // '))' END IF WRITE( IOUT, 93000 ) LINOUT LINOUT = ' END IF' WRITE( IOUT, 93000 ) LINOUT WRITE( IOUT, 93000 ) END IF 500 CONTINUE c..Write the final equation for the output integrated reaction rates IF ( NIRRTERMS( NOUT ) .EQ. 0 ) THEN LINOUT = ' IRROUT(' // OUTLBL // ') = 0.0' WRITE( IOUT, 93000 ) LINOUT ELSE ICOUNT = 0 DO 520 NTERM = 1, NIRRTERMS( NOUT ) IF ( NTERM .EQ. 1 ) THEN LINOUT = ' IRROUT(' // OUTLBL // ') = ' EQPOS1 = LEN_TRIM( LINOUT ) IF ( LINITFLG ) THEN LINOUT = LINOUT( 1:EQPOS1 ) // ' IRROUT(' // & OUTLBL // ')' WRITE( IOUT, 93000 ) LINOUT LINOUT =' &' LINOUT = LINOUT( 1:EQPOS1 ) ICOUNT = ICOUNT + 1 END IF ELSE LINOUT =' &' LINOUT = LINOUT( 1:EQPOS1 ) END IF TYPE = OUTTYPE( NOUT,NTERM ) IF ( TYPE .EQ. 'NAME' ) TYPE = OUTS1TYP( NOUT,NTERM ) PNFLG = OUTPNFLAG( NOUT,NTERM ) IF ( PNFLG .EQ. 'POSONLY' .OR. PNFLG .EQ. 'NEGONLY' ) & GO TO 520 IF ( TYPE .EQ. 'CYCL' .AND. PNFLG .EQ. '' ) THEN OPNAM = 'CYSM' WRITE( LABL, '( I3 )' ) OUTS1NUM( NOUT,NTERM ) ELSE IF ( TYPE .EQ. 'RXSM' .AND. PNFLG .EQ. '' ) THEN OPNAM = 'RXSM' WRITE( LABL, '( I3 )' ) OUTS1NUM( NOUT,NTERM ) ELSE IF ( TYPE .EQ. 'RXN' ) THEN OPNAM = ' IRR' INDX = OUTRN( NOUT,NTERM ) ELSE OPNAM = SAVOP( NTERM ) LABL = SAVLBL( NTERM ) END IF CALL DOCOEFF( OUTSC( NOUT,NTERM ), COUT ) ICOUNT = ICOUNT + 1 IF ( OUTSC( NOUT,NTERM ) .GT. 0.0 .AND. ICOUNT .EQ. 1 ) & COUT( 1:1 ) = ' ' IF ( TYPE .EQ. 'RXN' ) THEN LINOUT = LINOUT( 1:EQPOS1 ) // COUT // ' ' // & OPNAM // '<' // & RJLABL( INDX )( SPOS:LABLEN ) // '>' ELSE LINOUT = LINOUT( 1:EQPOS1 ) // COUT // ' ' // & OPNAM // '(' // LABL( 1:3 ) // ')' END IF WRITE( IOUT, 93000 ) LINOUT 520 CONTINUE END IF 540 CONTINUE 999 CONTINUE WRITE( IOUT, 93380 ) CLOSE( IOUT ) RETURN C----------------------- Format Statements ----------------------------- 93000 FORMAT( A ) 93020 FORMAT( //'============ Process Analysis Control Module Output', & ' Report ============'/18X, 'Created ', A/ ) !3040 FORMAT( ' ', 24X, 'OUTPUT DOMAIN SECTION'/ ! & ' Process Monitoring and IRR outputs will be generated', ! & ' for the'/ ! & ' following cells relative to the full modeling domain.' ) !3060 FORMAT( ' Starting column:', I4/ ! & ' Ending column: ', I4/ ! & ' Starting row: ', I4/ ! & ' Ending row: ', I4/ ! & ' Starting layer: ', I4/ ! & ' Ending layer: ', I4 ) 93080 FORMAT( 20X, 'Integrated Process Rate Section'/ & ' No requests for IPR outputs were included', & ' in the command file.' ) 93100 FORMAT( 20X, 'Integrated Process Rate Section'/ & ' The following section lists the IPR ', & 'outputs generated from the'/ & ' command file inputs.' ) 93120 FORMAT( ' '/ & ' The referenced families are defined as follows:'/ & ' ' ) 93140 FORMAT( ' ' ) 93180 FORMAT( 20X, 'Integrated Reaction Rate Section'/ & ' A FULL IRR analysis has been requested. Each reaction', & ' rate will be'/ & ' integrated individually and output for the', & ' specified domain.' ) 93200 FORMAT( 20X, 'Integrated Reaction Rate Section'/ & ' No requests for IRR analysis were included in the', & ' command file.' ) 93220 FORMAT( 20X, 'Integrated Reaction Rate Section'/ & ' The following section gives a symbolic representation', & ' of how the'/ & ' PARTIAL IRR outputs are calculated given the commands', & ' that were'/ & ' included in the command file. The report includes', & ' pseudocode showing'/ & ' how individual integrated reactions rates are', & ' combined to produce the '/ & ' requested output. In the pseudocode that follows'/ & ' '/ & ' IRR< x > = the integrated reaction rate for '/ & ' the reaction with label x as '/ & ' defined in the chemical mechanism'/ & ' '/ & ' IRROUT( n ) = the nth integrated reaction rate'/ & ' output that was requested'/ & ' ' ) 93240 FORMAT( //1X ) 93260 FORMAT( ' The IRR_OUTPUT command was specified as follows:' ) 93280 FORMAT( ' The referenced families are defined as follows:'/' ' ) 93300 FORMAT( ' The referenced cycles are defined as follows:'/' ' ) 93320 FORMAT( ' The referenced reaction sums are defined as follows:'/ & ' ' ) 93340 FORMAT( ' The referenced operators are defined as follows:'/' ' ) 93360 FORMAT( ' The following reactions are referenced individually:'/ & ' ' ) 93380 FORMAT( ///'========= End of Process Analysis Control Module', & ' Output Report =========' ) C----------------------------------------------------------------------- CONTAINS SUBROUTINE DOCOEFF( COEF, COUT ) C----------------------------------------------------------------------- C Function: Transform a coefficient from numerical to character form for C output reports C----------------------------------------------------------------------- IMPLICIT NONE C Arguments: REAL COEF ! Coefficient for output term CHARACTER( * ) :: COUT ! Output coefficient C Local Variables INTEGER N ! Loop index C----------------------------------------------------------------------- DO N = 1, LEN( COUT ) COUT( N:N ) = ' ' END DO IF ( ABS( COEF ) .NE. 1.0 ) THEN WRITE( COUT, '( 2X, F7.4 )' ) ABS( COEF ) COUT( 11:11 ) = '*' END IF IF ( COEF .GE. 0.0 ) THEN COUT( 1:1 ) = '+' ELSE COUT( 1:1 ) = '-' END IF RETURN END SUBROUTINE DOCOEFF FUNCTION INT2CHR( NOUT ) RESULT( INTSTR ) C----------------------------------------------------------------------- C Function: Convert an integer number into character representation C that is left justified in a string C----------------------------------------------------------------------- USE UTILIO_DEFN IMPLICIT NONE C Arguments: INTEGER NOUT ! Integer number to convert CHARACTER( 10 ) :: INTSTR ! string holder C Local Variables: INTEGER EPOS1 ! Ending positions INTEGER SPOS1 ! Starting positions INTEGER LEN1 ! Length of string INTEGER N ! Loop index C----------------------------------------------------------------------- WRITE( INTSTR, '( I10 )' ) NOUT DO N = 1, 10 INTSTR( N:N ) = ' ' END DO c..Left justify the numeric string SPOS1 = LBLANK( INTSTR ) + 1 EPOS1 = LEN_TRIM( INTSTR ) LEN1 = EPOS1 - SPOS1 + 1 INTSTR( 1:LEN1 ) = INTSTR( SPOS1:EPOS1 ) RETURN END FUNCTION INT2CHR END SUBROUTINE PA_REPORT ================================================ FILE: CCTM/src/procan/pa/pa_setup_ipr.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE PA_SETUP_IPR C----------------------------------------------------------------------- C Function: To store IPR data that will be needed to C generate the PA report and output INCLUDE files C Preconditions: None C Key Subroutines/Functions Called: None C Revision History: C Prototype created by Jerry Gipson, August, 1996 C Modified by Jerry Gipson April, 1997, to add ADJC process C Modified May, 1997 by Jerry Gipson to be consistent with beta CTM C Modified Sept, 1997 by Jerry Gipson to be consistent with targeted CTM C Modified Jun, 1998 by Jerry Gipson to add PING to the CTM science processes C Modified Feb, 2002 by Jerry Gipson to correct IO/API variable names for C TOTDIF & TOTTRAN C Jun, 2005 Jeff Young to add HADV for yamo C Jan, 2006 Jeff Young: change operator names to be 4 chars - they prepend C species names, which must remain less that 12 chars, i.e. OPNM_<__SPECIES__> C 12345 67890123456 C Aug 2011 Jeff Young: Replaced I/O API include files with IOAPI`s M3UTILIO C Sep 2018 C. Nolte, S. Roselle: replace M3UTILIO with UTILIO_DEFN C----------------------------------------------------------------------- USE UTILIO_DEFN USE PA_GLOBAL ! Mech data used USE PA_VARS, Only: NFAMLYS, FAMNAME, NUMFAMMEM, FAMMEMNAM, FAMSC USE PA_IPRVARS USE PA_DEFN USE PA_PARSE, Only: IZERO USE CGRID_SPCS, Only: N_CGRID_SPC, CGRID_NAME IMPLICIT NONE C Includes: None C Arguments: None C Parameters: None C External Functions: None C Local Variables: INTEGER IFM ! Family pointer INTEGER ISPC ! Species pointer INTEGER N ! Loop counter INTEGER NIPR ! Loop counter on IPR output commands INTEGER IPRSPC ! Loop counter on IPR output commands INTEGER ICG ! Loop index for species INTEGER ISV ! Loop index for species INTEGER ASTAT ! Memory allocation status LOGICAL :: LSAVSP( N_CGRID_SPC ) ! Flag to save species conc for PA CHARACTER( 16 ) :: IPRNAME_TMP( MAXIPROUT ) CHARACTER( 60 ) :: IPRDESC_TMP( MAXIPROUT ) INTEGER :: MAP_IPRVARtoSPC_TMP( MAXIPROUT ) LOGICAL :: MASK_IPR_PROC_TMP( MAXIPROUT,NPRCS ) INTEGER :: MAP_IPRtoCGRID_TMP( MAXIPRSPC,MXSPEC ) REAL :: SPCOEF_TMP( MAXIPRSPC,MXSPEC ) CHARACTER( 200 ) :: MSG = ' ' C----------------------------------------------------------------------- cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Set up the Process analysis output pointers cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc NIPRVAR = 0 DO NIPR = 1, N_IPR_SPC IF ( LEN_TRIM( IPR_SPNAM( NIPR ) ) .GT. 11 ) THEN WRITE( *,* ) ' ' WRITE( MSG, 94030 ) TRIM( IPR_SPNAM( NIPR ) ) CALL M3MESG( MSG ) WRITE( MSG, 94031 ) CALL M3MESG( MSG ) END IF DO N = 1, N_IPR_OPS( NIPR ) NIPRVAR = NIPRVAR + 1 IF ( NIPRVAR .GT. MAXIPROUT ) THEN WRITE( MSG, 94000 ) CALL M3MESG( MSG ) WRITE( MSG, 94020 ) MAXIPROUT CALL M3MESG( MSG ) CALL M3EXIT( 'GETEXTDAT', IZERO, IZERO, ' ', XSTAT2 ) END IF IF ( IPR_OPNAME( NIPR,N )( 1:4 ) .EQ. 'ZADV' ) THEN IPRNAME_TMP( NIPRVAR ) = 'ZADV_' // IPR_SPNAM( NIPR ) IPRDESC_TMP( NIPRVAR ) = 'Z-Advection of ' // & IPR_SPNAM( NIPR ) MAP_IPRVARtoSPC_TMP( NIPRVAR )= NIPR MASK_IPR_PROC_TMP( NIPRVAR,IPR_ZADV ) = .TRUE. ELSE IF ( IPR_OPNAME( NIPR,N )( 1:4 ) .EQ. 'XADV' ) THEN IPRNAME_TMP( NIPRVAR ) = 'XADV_' // IPR_SPNAM( NIPR ) IPRDESC_TMP( NIPRVAR ) = 'Horizontal X-Advection of ' // & IPR_SPNAM( NIPR ) MAP_IPRVARtoSPC_TMP( NIPRVAR )= NIPR MASK_IPR_PROC_TMP( NIPRVAR,IPR_XADV ) = .TRUE. ELSE IF ( IPR_OPNAME( NIPR,N )( 1:4 ) .EQ. 'YADV' ) THEN IPRNAME_TMP( NIPRVAR ) = 'YADV_' // IPR_SPNAM( NIPR ) IPRDESC_TMP( NIPRVAR ) = 'Horizontal Y-Advection of ' // & IPR_SPNAM( NIPR ) MAP_IPRVARtoSPC_TMP( NIPRVAR )= NIPR MASK_IPR_PROC_TMP( NIPRVAR,IPR_YADV ) = .TRUE. ELSE IF ( IPR_OPNAME( NIPR,N )( 1:4 ) .EQ. 'HDIF' ) THEN IPRNAME_TMP( NIPRVAR ) = 'HDIF_' // IPR_SPNAM( NIPR ) IPRDESC_TMP( NIPRVAR ) = 'Horizontal diffusion for ' // & IPR_SPNAM( NIPR ) MAP_IPRVARtoSPC_TMP( NIPRVAR )= NIPR MASK_IPR_PROC_TMP( NIPRVAR,IPR_HDIF ) = .TRUE. ELSE IF ( IPR_OPNAME( NIPR,N )( 1:4 ) .EQ. 'VDIF' ) THEN IPRNAME_TMP( NIPRVAR ) = 'VDIF_' // IPR_SPNAM( NIPR ) IPRDESC_TMP( NIPRVAR ) = 'Vertical diffusion for ' // & IPR_SPNAM( NIPR ) MAP_IPRVARtoSPC_TMP( NIPRVAR )= NIPR MASK_IPR_PROC_TMP( NIPRVAR,IPR_VDIF ) = .TRUE. ELSE IF ( IPR_OPNAME( NIPR,N )( 1:4 ) .EQ. 'EMIS' ) THEN IPRNAME_TMP( NIPRVAR ) = 'EMIS_' // IPR_SPNAM( NIPR ) IPRDESC_TMP( NIPRVAR ) = 'Emissions of ' // & IPR_SPNAM( NIPR ) MAP_IPRVARtoSPC_TMP( NIPRVAR )= NIPR MASK_IPR_PROC_TMP( NIPRVAR,IPR_EMIS ) = .TRUE. ELSE IF ( IPR_OPNAME( NIPR,N )( 1:4 ) .EQ. 'DDEP' ) THEN IPRNAME_TMP( NIPRVAR ) = 'DDEP_' // IPR_SPNAM( NIPR ) IPRDESC_TMP( NIPRVAR ) = 'Dry deposition for ' // & IPR_SPNAM( NIPR ) MAP_IPRVARtoSPC_TMP( NIPRVAR )= NIPR MASK_IPR_PROC_TMP( NIPRVAR,IPR_DDEP ) = .TRUE. ELSE IF ( IPR_OPNAME( NIPR,N )( 1:4 ) .EQ. 'CLDS' ) THEN IPRNAME_TMP( NIPRVAR ) = 'CLDS_' // IPR_SPNAM( NIPR ) IPRDESC_TMP( NIPRVAR ) = 'Clouds for ' // & IPR_SPNAM( NIPR ) MAP_IPRVARtoSPC_TMP( NIPRVAR )= NIPR MASK_IPR_PROC_TMP( NIPRVAR,IPR_CLDS ) = .TRUE. ELSE IF ( IPR_OPNAME( NIPR,N )( 1:4 ) .EQ. 'PVO3' ) THEN IPRNAME_TMP( NIPRVAR ) = 'PVO3_' // IPR_SPNAM( NIPR ) IPRDESC_TMP( NIPRVAR ) = 'Potential Vorticity for ' // & IPR_SPNAM( NIPR ) MAP_IPRVARtoSPC_TMP( NIPRVAR )= NIPR MASK_IPR_PROC_TMP( NIPRVAR,IPR_PVO3 ) = .TRUE. ELSE IF ( IPR_OPNAME( NIPR,N )( 1:4 ) .EQ. 'CHEM' ) THEN IPRNAME_TMP( NIPRVAR ) = 'CHEM_' // IPR_SPNAM( NIPR ) IPRDESC_TMP( NIPRVAR ) = 'Chemistry of ' // & IPR_SPNAM( NIPR ) MAP_IPRVARtoSPC_TMP( NIPRVAR )= NIPR MASK_IPR_PROC_TMP( NIPRVAR,IPR_CHEM ) = .TRUE. ELSE IF ( IPR_OPNAME( NIPR,N )( 1:4 ) .EQ. 'COND' ) THEN IPRNAME_TMP( NIPRVAR ) = 'COND_' // IPR_SPNAM( NIPR ) IPRDESC_TMP( NIPRVAR ) = 'Condensation for ' // & IPR_SPNAM( NIPR ) MAP_IPRVARtoSPC_TMP( NIPRVAR )= NIPR MASK_IPR_PROC_TMP( NIPRVAR,IPR_COND ) = .TRUE. ELSE IF ( IPR_OPNAME( NIPR,N )( 1:4 ) .EQ. 'COAG' ) THEN IPRNAME_TMP( NIPRVAR ) = 'COAG_' // IPR_SPNAM( NIPR ) IPRDESC_TMP( NIPRVAR ) = 'Coagulation for ' // & IPR_SPNAM( NIPR ) MAP_IPRVARtoSPC_TMP( NIPRVAR )= NIPR MASK_IPR_PROC_TMP( NIPRVAR,IPR_COAG ) = .TRUE. ELSE IF ( IPR_OPNAME( NIPR,N )( 1:5 ) .EQ. 'GROW' ) THEN IPRNAME_TMP( NIPRVAR ) = 'GROW_' // IPR_SPNAM( NIPR ) IPRDESC_TMP( NIPRVAR ) = 'Aerosol Growth (Renaming) for ' // & IPR_SPNAM( NIPR ) MAP_IPRVARtoSPC_TMP( NIPRVAR )= NIPR MASK_IPR_PROC_TMP( NIPRVAR,IPR_GROW ) = .TRUE. ELSE IF ( IPR_OPNAME( NIPR,N )( 1:3 ) .EQ. 'NPF' ) THEN IPRNAME_TMP( NIPRVAR ) = 'NPF_' // IPR_SPNAM( NIPR ) IPRDESC_TMP( NIPRVAR ) = 'New Particle Formation for ' // & IPR_SPNAM( NIPR ) MAP_IPRVARtoSPC_TMP( NIPRVAR )= NIPR MASK_IPR_PROC_TMP( NIPRVAR,IPR_NPF ) = .TRUE. ELSE IF ( IPR_OPNAME( NIPR,N )( 1:4 ) .EQ. 'AERO' ) THEN IPRNAME_TMP( NIPRVAR ) = 'AERO_' // IPR_SPNAM( NIPR ) IPRDESC_TMP( NIPRVAR ) = 'Aerosol Impact on ' // & IPR_SPNAM( NIPR ) MAP_IPRVARtoSPC_TMP( NIPRVAR )= NIPR MASK_IPR_PROC_TMP( NIPRVAR,IPR_COND ) = .TRUE. MASK_IPR_PROC_TMP( NIPRVAR,IPR_COAG ) = .TRUE. MASK_IPR_PROC_TMP( NIPRVAR,IPR_GROW ) = .TRUE. MASK_IPR_PROC_TMP( NIPRVAR,IPR_NPF ) = .TRUE. ELSE IF ( IPR_OPNAME( NIPR,N )( 1:4 ) .EQ. 'HADV' ) THEN IPRNAME_TMP( NIPRVAR ) = 'HADV_' // IPR_SPNAM( NIPR ) IPRDESC_TMP( NIPRVAR ) = 'Horizontal Advection of ' // & IPR_SPNAM( NIPR ) MAP_IPRVARtoSPC_TMP( NIPRVAR )= NIPR MASK_IPR_PROC_TMP( NIPRVAR,IPR_XADV ) = .TRUE. MASK_IPR_PROC_TMP( NIPRVAR,IPR_YADV ) = .TRUE. ELSE IF ( IPR_OPNAME( NIPR,N )( 1:4 ) .EQ. 'MADV' ) THEN IPRNAME_TMP( NIPRVAR ) = 'MADV_' // IPR_SPNAM( NIPR ) IPRDESC_TMP( NIPRVAR ) = 'Horizontal and Vertical Advection of ' // & IPR_SPNAM( NIPR ) MAP_IPRVARtoSPC_TMP( NIPRVAR )= NIPR MASK_IPR_PROC_TMP( NIPRVAR,IPR_ZADV ) = .TRUE. MASK_IPR_PROC_TMP( NIPRVAR,IPR_XADV ) = .TRUE. MASK_IPR_PROC_TMP( NIPRVAR,IPR_YADV ) = .TRUE. ELSE IF ( IPR_OPNAME( NIPR,N )( 1:4 ) .EQ. 'TDIF' ) THEN IPRNAME_TMP( NIPRVAR ) = 'TDIF_' // IPR_SPNAM( NIPR ) IPRDESC_TMP( NIPRVAR ) = 'Total Diffusion of ' // & IPR_SPNAM( NIPR ) MAP_IPRVARtoSPC_TMP( NIPRVAR )= NIPR MASK_IPR_PROC_TMP( NIPRVAR,IPR_HDIF ) = .TRUE. MASK_IPR_PROC_TMP( NIPRVAR,IPR_VDIF ) = .TRUE. ELSE IF ( IPR_OPNAME( NIPR,N )( 1:4 ) .EQ. 'TRNM' ) THEN IPRNAME_TMP( NIPRVAR ) = 'TRNM_' // IPR_SPNAM( NIPR ) IPRDESC_TMP( NIPRVAR ) = 'Total Mass-Conserving Transport of ' // & IPR_SPNAM( NIPR ) MAP_IPRVARtoSPC_TMP( NIPRVAR )= NIPR MASK_IPR_PROC_TMP( NIPRVAR,IPR_HDIF ) = .TRUE. MASK_IPR_PROC_TMP( NIPRVAR,IPR_VDIF ) = .TRUE. MASK_IPR_PROC_TMP( NIPRVAR,IPR_ZADV ) = .TRUE. MASK_IPR_PROC_TMP( NIPRVAR,IPR_XADV ) = .TRUE. MASK_IPR_PROC_TMP( NIPRVAR,IPR_YADV ) = .TRUE. ELSE MSG = 'Unknown Process ' // TRIM(IPR_OPNAME(NIPR,N )) // & ' has been selected in Process Analysis.' CALL M3EXIT( 'PA_SETUP_IPR',0,0,MSG,XSTAT2 ) END IF END DO END DO ! Save Name and Description Vectors for Processes ALLOCATE( IPRNAME( NIPRVAR ), & IPRDESC( NIPRVAR ), & MAP_IPRVARtoSPC( NIPRVAR ), & MASK_IPR_PROC( NIPRVAR,NPRCS ), & STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN MSG = 'ERROR 2 allocating IPR variables' CALL M3EXIT ( 'PA_SETUP_IPR', 0, 0, MSG, XSTAT2 ) END IF IPRNAME = IPRNAME_TMP( 1:NIPRVAR ) IPRDESC = IPRDESC_TMP( 1:NIPRVAR ) MAP_IPRVARtoSPC = MAP_IPRVARtoSPC_TMP( 1:NIPRVAR ) MASK_IPR_PROC = MASK_IPR_PROC_TMP( 1:NIPRVAR,: ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Set up the species pointers for the IPR Outputs cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc LSAVSP = .FALSE. ALLOCATE( NCGRID ( N_IPR_SPC ), & STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN MSG = 'ERROR 3 allocating IPR variables' CALL M3EXIT ( 'PA_SETUP_IPR', 0, 0, MSG, XSTAT2 ) END IF ! Map IPR Species Names to CGRID MAP_IPRtoCGRID_TMP = 0 SPCOEF_TMP = 0 DO IPRSPC = 1, N_IPR_SPC ICG = INDEX1( IPR_SPNAM( IPRSPC ), N_CGRID_SPC, CGRID_NAME ) IF ( ICG .NE. 0 ) THEN NCGRID( IPRSPC ) = 1 MAP_IPRtoCGRID_TMP( IPRSPC,1 ) = ICG SPCOEF_TMP( IPRSPC,1 ) = 1.0 ELSE ! This IPR Species is a Family. Find its members on CGRID IFM = INDEX1( IPR_SPNAM( IPRSPC ), NFAMLYS, FAMNAME ) NCGRID( IPRSPC ) = NUMFAMMEM( IFM ) DO N = 1, NUMFAMMEM( IFM ) ICG = INDEX1( FAMMEMNAM( IFM,N ), N_CGRID_SPC, CGRID_NAME ) MAP_IPRtoCGRID_TMP( IPRSPC,N ) = ICG SPCOEF_TMP( IPRSPC,N ) = FAMSC( IFM,N ) END DO END IF END DO MXCGRID = MAX( 1, MAXVAL( NCGRID( : ) ) ) ALLOCATE( MAP_IPRtoCGRID( N_IPR_SPC,MXCGRID ), & SPCOEF ( N_IPR_SPC,MXCGRID ), & STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN MSG = 'ERROR 4 allocating IPR variables' CALL M3EXIT ( 'PA_SETUP_IPR', 0, 0, MSG, XSTAT2 ) END IF MAP_IPRtoCGRID = MAP_IPRtoCGRID_TMP( 1:N_IPR_SPC,1:MXCGRID ) SPCOEF = SPCOEF_TMP( 1:N_IPR_SPC,1:MXCGRID ) RETURN C----------------------- FORMAT Statements ----------------------------- 94000 FORMAT( 'ERROR: Maximum number of IPR_OUTPUTs exceeded' ) 94020 FORMAT( ' Modify PARAMETER ( MAXIPROUT =', I3,' ) or', & ' decrease the number of IPR_OUTPUTs' ) 94030 FORMAT( 'WARNING: Species name ', A, ' too long.' ) 94031 FORMAT( ' Combined variable name will ', & 'exceed the I/O-API''s 16 character limit.' ) END SUBROUTINE PA_SETUP_IPR ================================================ FILE: CCTM/src/procan/pa/pa_setup_irr.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE PA_SETUP_IRR C----------------------------------------------------------------------- C Function: To store IRR data that will be needed to C generate the PA report and output INCLUDE files C Preconditions: None C Key Subroutines/Functions Called: None C Revision History: C Prototype created by Jerry Gipson, August, 1996 C Modified May, 1997 by Jerry Gipson to be consistent with beta CTM C Modified Sept, 1997 by Jerry Gipson to be consistent with targeted CTM C Aug 2011 Jeff Young: Replaced I/O API include files with IOAPI`s M3UTILIO C Sep 2018 C. Nolte, S. Roselle: replace M3UTILIO with UTILIO_DEFN C----------------------------------------------------------------------- USE UTILIO_DEFN USE PA_GLOBAL ! Mech data used USE PA_DEFN USE PA_VARS USE PA_PARSE IMPLICIT NONE C Includes: None C Arguments: None C Parameters: None C External Functions: REAL MOLCLOSS ! Function to get number of species or ! family molecules lost in a reaction REAL MOLCPROD ! Function to get number of species or ! family molecules produced in a reaction C Local Variables: CHARACTER( 4 ) :: NAMETYPE ! Type of name (mech or family) CHARACTER( 4 ) :: TYPE ! Operator type CHARACTER( 7 ) :: PNFLAG ! Initialization flag CHARACTER( 10 ) :: LBLOUT ! Holder for output label INTEGER EPOS1, EPOS2 ! Position of last non-blank character in string INTEGER ICOUNT ! Count of number of output terms in sum INTEGER INDX ! Pointer to cycle or rxsum number INTEGER N ! Loop index for specis and defined names INTEGER NAMINDX ! Pointer to species or family name INTEGER NCYC ! Loop index for number of cycles INTEGER NFAM ! Loop index for number of familys INTEGER NFAMIN ! Counter of no. of families in output INTEGER NFAMOUT ! Counter of no. of families listed for output INTEGER NOUT ! Loop index for number of output requests INTEGER NRFND ! Number of reactant species found INTEGER NPFND ! Number of reactant species found INTEGER NRX ! Loop index for number of reactions or Rxsums INTEGER NTERM ! Loop index for number of terms in output request INTEGER SPOS1, SPOS2 ! Starting position for first non-blank character INTEGER ASTAT ! Memory allocation staus INTEGER FAMINDX( MAXOUTTERMS ) ! Index of family REAL SUM ! Sum of molecular production and loss C----------------------------------------------------------------------- cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Store reaction data for all cycles cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc DO NCYC = 1, NCYCLES IF ( CYCLSPEC( NCYC ) .NE. '' ) THEN NAMETYPE = CYSPTYP( NCYC ) NAMINDX = CYSPNUM( NCYC ) ICOUNT = 0 DO NRX = 1, NRXNS SUM = MOLCPROD( NAMETYPE, NAMINDX, NRX, NPFND ) - & MOLCLOSS( NAMETYPE, NAMINDX, NRX, NRFND ) IF ( ABS( SUM ) .GT. 0.0001 ) THEN ICOUNT = ICOUNT + 1 CYRXNUM( NCYC,ICOUNT ) = NRX NCYTERMS( NCYC ) = ICOUNT CYSC( NCYC, ICOUNT ) = SUM END IF END DO END IF END DO cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Store data on the families used in each IRR_OUTPUT command cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc DO NOUT = 1, NIRROUT NFAMIN = 0 DO N = 1, NIRRTERMS( NOUT ) IF ( OUTS1TYP( NOUT,N ) .EQ. 'FAM' ) THEN NFAMIN = NFAMIN + 1 FAMINDX( NFAMIN ) = OUTS1NUM( NOUT,N ) END IF IF ( OUTS2TYP( NOUT,N ) .EQ. 'FAM' ) THEN NFAMIN = NFAMIN + 1 FAMINDX( NFAMIN ) = OUTS2NUM( NOUT,N ) END IF IF ( OUTS3TYP( NOUT,N ) .EQ. 'FAM' ) THEN NFAMIN = NFAMIN + 1 FAMINDX( NFAMIN ) = OUTS3NUM( NOUT,N ) END IF END DO IF ( NFAMIN .GT. 0 ) THEN NFAMOUT = 0 DO NFAM = 1, NFAMIN INDX = 0 DO N = 1, NFAMOUT IF ( FAMINDX( NFAM ) .EQ. OUTFAMS( NOUT,N ) ) INDX = N END DO IF ( INDX .EQ. 0 ) THEN NFAMOUT = NFAMOUT + 1 OUTFAMS( NOUT,NFAMOUT ) = FAMINDX( NFAM ) END IF END DO NOUTFAMS( NOUT ) = NFAMOUT END IF END DO cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Store data on the cycles used in each IRR_OUTPUT command cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc DO NOUT = 1, NIRROUT ICOUNT = 0 DO NTERM = 1, NIRRTERMS( NOUT ) IF ( OUTS1TYP( NOUT, NTERM ) .EQ. 'CYCL' ) THEN ICOUNT = ICOUNT + 1 NOUTCYCS( NOUT ) = ICOUNT OUTCYCS( NOUT,ICOUNT ) = OUTS1NUM( NOUT,NTERM ) END IF END DO END DO cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Store data on all reaction sums used in each IRR_OUTPUT command cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc DO NOUT = 1, NIRROUT ICOUNT = 0 DO NTERM = 1, NIRRTERMS( NOUT ) IF ( OUTS1TYP( NOUT, NTERM ) .EQ. 'RXSM' ) THEN ICOUNT = ICOUNT + 1 NOUTRXSUMS( NOUT ) = ICOUNT OUTRXSUMS( NOUT,ICOUNT ) = OUTS1NUM( NOUT,NTERM ) END IF END DO END DO cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Store data on all operators used in each IRR_OUTPUT command cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc DO NOUT = 1, NIRROUT ICOUNT = 0 DO NTERM = 1, NIRRTERMS( NOUT ) TYPE = OUTTYPE( NOUT,NTERM ) IF ( TYPE .NE. 'NAME' .AND. TYPE .NE. 'RXN' ) THEN ICOUNT = ICOUNT + 1 NOUTOPS( NOUT ) = ICOUNT END IF END DO END DO cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Store data on individual reactions referenced in each IRR_OUTPUT c command cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc DO NOUT = 1, NIRROUT ICOUNT = 0 DO NTERM = 1, NIRRTERMS( NOUT ) TYPE = OUTTYPE( NOUT,NTERM ) IF ( TYPE .EQ. 'RXN' ) THEN ICOUNT = ICOUNT + 1 NOUTRXN( NOUT ) = ICOUNT END IF END DO END DO cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Store data on the defined reaction sums that initialize IRR outputs cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc NUMOUTPOS = 0 NUMOUTNEG = 0 NUMOUTIND = 0 DO NOUT = 1, NIRROUT DO NTERM = 1, NIRRTERMS( NOUT ) TYPE = OUTS1TYP( NOUT,NTERM ) IF ( TYPE .EQ. 'CYCL' .OR. TYPE .EQ. 'RXSM' ) THEN INDX = OUTS1NUM( NOUT,NTERM ) IF ( TYPE .EQ. 'RXSM' ) INDX = INDX + NCYCLES PNFLAG = OUTPNFLAG( NOUT,NTERM ) IF ( PNFLAG .EQ. 'POSONLY' ) THEN NUMOUTPOS = NUMOUTPOS + 1 TEMPOUTPOS_TMP( NUMOUTPOS ) = INDX INDXOUTPOS_TMP( NUMOUTPOS ) = NOUT COEFOUTPOS_TMP( NUMOUTPOS ) = OUTSC( NOUT,NTERM ) ELSE IF ( PNFLAG .EQ. 'NEGONLY' ) THEN NUMOUTNEG = NUMOUTNEG + 1 TEMPOUTNEG_TMP( NUMOUTNEG ) = INDX INDXOUTNEG_TMP( NUMOUTNEG ) = NOUT COEFOUTNEG_TMP( NUMOUTNEG ) = OUTSC( NOUT,NTERM ) ELSE IF ( PNFLAG .EQ. '' ) THEN NUMOUTIND = NUMOUTIND + 1 TEMPOUTIND_TMP( NUMOUTIND ) = INDX INDXOUTIND_TMP( NUMOUTIND ) = NOUT COEFOUTIND_TMP( NUMOUTIND ) = OUTSC( NOUT,NTERM ) END IF END IF END DO END DO ALLOCATE( TEMPOUTPOS( NUMOUTPOS ), & INDXOUTPOS( NUMOUTPOS ), & COEFOUTPOS( NUMOUTPOS ), & TEMPOUTNEG( NUMOUTNEG ), & INDXOUTNEG( NUMOUTNEG ), & COEFOUTNEG( NUMOUTNEG ), & TEMPOUTIND( NUMOUTIND ), & INDXOUTIND( NUMOUTIND ), & COEFOUTIND( NUMOUTIND ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN MSG = 'ERROR 1 allocating IRR variables' CALL M3EXIT ( 'PA_SETUP_IRR', 0, 0, MSG, XSTAT2 ) END IF TEMPOUTPOS = TEMPOUTPOS_TMP( 1:NUMOUTPOS ) INDXOUTPOS = INDXOUTPOS_TMP( 1:NUMOUTPOS ) COEFOUTPOS = COEFOUTPOS_TMP( 1:NUMOUTPOS ) TEMPOUTNEG = TEMPOUTNEG_TMP( 1:NUMOUTNEG ) INDXOUTNEG = INDXOUTNEG_TMP( 1:NUMOUTNEG ) COEFOUTNEG = COEFOUTNEG_TMP( 1:NUMOUTNEG ) TEMPOUTIND = TEMPOUTIND_TMP( 1:NUMOUTIND ) INDXOUTIND = INDXOUTIND_TMP( 1:NUMOUTIND ) COEFOUTIND = COEFOUTIND_TMP( 1:NUMOUTIND ) NUMTEMPS = 0 MXTEMPTRMS = 0 DO NCYC = 1, NCYCLES NUMTEMPS = NUMTEMPS + 1 MXTEMPTRMS = MAX( MXTEMPTRMS, NCYTERMS( NCYC ) ) TEMPTERMS_TMP( NUMTEMPS ) = NCYTERMS( NCYC ) DO N = 1, NCYTERMS( NCYC ) TEMPRXN_TMP( NUMTEMPS,N ) = CYRXNUM( NCYC,N ) TEMPCOEF_TMP( NUMTEMPS,N ) = CYSC( NCYC,N ) END DO END DO DO NRX = 1, NRXSUMS NUMTEMPS = NUMTEMPS + 1 MXTEMPTRMS = MAX( MXTEMPTRMS, NRXTERMS( NRX ) ) TEMPTERMS_TMP( NUMTEMPS ) = NRXTERMS( NRX ) DO N = 1, NRXTERMS( NRX ) TEMPRXN_TMP( NUMTEMPS,N ) = RXSUMRN( NRX,N ) TEMPCOEF_TMP( NUMTEMPS,N ) = RXNSC( NRX,N ) END DO END DO ALLOCATE( TEMPTERMS( NUMTEMPS ), & TEMPRXN ( NUMTEMPS,MXTEMPTRMS ), & TEMPCOEF ( NUMTEMPS,MXTEMPTRMS ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN MSG = 'ERROR 2 allocating IRR variables' CALL M3EXIT ( 'PA_SETUP_IRR', 0, 0, MSG, XSTAT2 ) END IF TEMPTERMS = TEMPTERMS_TMP( 1:NUMTEMPS ) TEMPRXN = TEMPRXN_TMP ( 1:NUMTEMPS,1:MXTEMPTRMS ) TEMPCOEF = TEMPCOEF_TMP ( 1:NUMTEMPS,1:MXTEMPTRMS ) IF ( LFULLIRR ) THEN DO N = 1, NRXNS WRITE( LBLOUT, '( I10 )' ) N SPOS1 = LBLANK( LBLOUT ) + 1 EPOS1 = LEN_TRIM( LBLOUT ) SPOS2 = LBLANK( RXLABEL( N ) ) + 1 EPOS2 = LEN_TRIM( RXLABEL( N ) ) IRRNAME( N ) = 'IRR_' // LBLOUT( SPOS1:EPOS1 ) IRRDESC( N ) = 'IRR_' // LBLOUT( SPOS1:EPOS1 ) & // ': ' // '<' // & RXLABEL( N )( SPOS2:EPOS2 ) // '>' END DO END IF RETURN END SUBROUTINE PA_SETUP_IRR ================================================ FILE: CCTM/src/procan/pa/pa_update.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! MODULE PA_UPDATE USE GRID_CONF ! horizontal & vertical domain configuration USE CGRID_SPCS, ONLY : N_CGRID_SPC, CGRID_MASK_AERO,N_AE_SPC, N_SPC_DEPV, & MAP_DEPVtoCGRID, CGRID_MASK_GAS, CGRID_MASK_NR, & CGRID_MASK_NUM, CGRID_MASK_SRF, CGRID_MASK_TRAC, & CGRID_MW ! CGRID mechanism species USE VDIFF_MAP, ONLY : N_SPC_DIFF, DIFF_MW, DIFF_MASK_NUM, DIFF_MASK_SRF, DIFF_MAP USE PA_DEFN ! Process Anaylsis control and data variables USE PAGRD_DEFN ! PA horiz domain specs USE UTILIO_DEFN ! inherits PARUTILIO USE DESID_VARS USE CENTRALIZED_IO_MODULE USE BUDGET_DEFN #ifndef mpas #ifdef parallel USE SE_MODULES ! stenex (using SE_UTIL_MODULE, SE_DATA_COPY_MODULE) #else USE NOOP_MODULES ! stenex (using NOOP_UTIL_MODULE, NOOP_DATA_COPY_MODULE) #endif #endif PUBLIC PA_UPDATE_PROC, PA_UPDATE_EMIS, PA_UPDATE_DDEP, & PA_UPDATE_HADV, PA_UPDATE_AERO PRIVATE REAL, ALLOCATABLE, SAVE :: CNGRD( :,:,:,: ) CONTAINS C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE PA_UPDATE_PROC( IPR_ID, CGRID, JDATE, JTIME, TSTEP, LCOUPLE ) C----------------------------------------------------------------------- C Function: Update the Process Analysis output arrays (for IPR only) C Preconditions: None C Key Subroutines/Functions Called: None C Revision History: C Prototype created by Jerry Gipson, July, 1996 C Modified May, 1997 by Jerry Gipson to be consistent with beta CTM C Modified Sept, 1997 by Jerry Gipson to be consistent with targeted CTM C Modified March, 1998 by Jerry Gipson to use units of moles/s for all C emisssions except aerosols C Modified Jun, 1998 by Jerry Gipson to add PING process C Modified Jun, 1998 by Jerry Gipson to print warning for unexpected C processes rather than abort C Modified 1/19/99 by David Wong at LM: C -- add DATA_COPY function call to redistribute PA grid C Modified 2/26/99 by David Wong at LM: C -- replaced DATA_COPY function with dimension specific C DATA_COPY function and modified its argument list C -- used ifdef statement to distinguish parallel C implementation of IRR calculation which does not C start at the origin C Modified 4/13/00 by Jerry Gipson to add AE surface area and correct AE C deposition sign C Modified 4/17/00 by David Wong at LM: C -- bug fix: declare TDDEP as a 2D data rather than 3D, C and use 2DE DATA COPY communication routine rather C than 3D DATA COPY routine C Modified 5/4/00 by Jerry Gipson to correct DDEP calculations C Modified 22 Nov 00 by J.Young: Dave Wong`s f90 stenex DATA_COPY - C must explicitlt dimension CGRID, VEMIS, and DDEP C Modified 20 Jun 01 by J.Young: VEMIS, assumed shape C VEMIS assumed converted to ppm/sec form C NOTE: the arguments to DATA_COPY must have the layer C dimension the same as the full domain. C Modified 28 aug 01 by J.Young: dyn alloc - Use PAGRD_DEFN, C which uses HGRD_DEFN; replace INTERP3 with INTERPX C 7 Mar 02 - J.Young: add units string variations C Modified 9 Oct 03 by J.Gipson: fixed subscript error for NR EMIS IPRs & re-did C AE EMIS IPRS for VEMIS in ppm units rather than C ug/m3 units C Modified 5 Nov 03 by J. Gipson to fix DDEP IPRs C Modified 25 Nov 03 by J Gipson to use step end time for couple/decouple C Modified 31 Jan 05 J.Young: dyn alloc - establish both horizontal & vertical C domain specifications in one module (GRID_CONF) C 3 Apr 09 J.Young: replace EMISPRM... include files with simpler implementation C 21 Jun 10 J.Young: convert for Namelist redesign C 16 Feb 11 S.Roselle: replaced I/O API include files with UTILIO_DEFN C 11 May 11 D.Wong: incorporated twoway model implementation C 19 Jan 16 J.Young: flag for couple/decouple C 6 May 16 J.Young: don`t couple/decouple; copy cgrid locally; only decouple the copy C 16 Sep 16 J.Young: update for inline procan (IRR) C 01 Feb 19 D.Wong: Implemented centralized I/O approach C----------------------------------------------------------------------- IMPLICIT NONE ! Includes: INCLUDE SUBST_CONST ! Constants INCLUDE SUBST_FILES_ID ! file name parameters INCLUDE SUBST_EMISPRM ! Emissions processing control parameters ! Arguments: INTEGER, INTENT( IN ) :: IPR_ID ! Last process called REAL , INTENT( IN ) :: CGRID( :,:,:,: ) ! Conc array INTEGER, INTENT( IN ) :: JDATE ! current date, format YYYYDDD INTEGER, INTENT( IN ) :: JTIME ! current time, format HHMMSS INTEGER, INTENT( IN ) :: TSTEP( 3 ) ! time step vector (HHMMSS) ! TSTEP(1) = local output step ! TSTEP(2) = sciproc sync. step (chem) ! TSTEP(3) = twoway model time step w.r.t. wrf time ! step and wrf/cmaq call frequency LOGICAL, INTENT( IN ) :: LCOUPLE ! Flag for couple/decouple HADV, ZADV, and HDIFF LOGICAL, SAVE :: FIRSTIME = .TRUE. ! Local Variables: CHARACTER( 80 ) :: MSG ! Message for output log CHARACTER( 16 ) :: PNAME = 'PA_UPDATE_PROC' ! Routine name CHARACTER( 16 ) :: UNITS ! Units of emissions CHARACTER( 16 ) :: VNAME ! input variable name list INTEGER ASTAT ! Allocate status code INTEGER C, R, L ! Loop index for columns INTEGER IPRSPC ! Index for each process species INTEGER IPRV ! Index for each combination of species-process INTEGER ISPC ! Index for each process species within each family INTEGER ICG ! Index for species in cgrid array INTEGER ISV ! Index for species in saved array INTEGER MDATE ! Date of mid-point of timestep INTEGER MTIME ! Time of mid-point of timestep INTEGER N ! Loop index for saved species conc array INTEGER PC,PR,PL ! Index for PA output column REAL DT ! Timestep in seconds INTEGER SDATE ! Date at end of timestep INTEGER STIME ! Time at end of timestep INTEGER I LOGICAL LCOUPLE_LOCAL REAL :: TCGRID ( MY_PACOLS,MY_PAROWS,PALEVS ) REAL, ALLOCATABLE, SAVE :: D_CNGRD( :,:,:,: ) !----------------------------------------------------------------------- IF ( FIRSTIME ) THEN FIRSTIME = .FALSE. IF ( .NOT. ALLOCATED( CNGRD ) ) THEN ALLOCATE ( CNGRD( NCOLS,NROWS,NLAYS,N_CGRID_SPC ), & STAT = ASTAT ) CALL CHECKMEM( ASTAT, 'CNGRD', PNAME ) END IF IF ( .NOT. ALLOCATED( CSAV ) ) THEN ALLOCATE ( CSAV( NCOLS,NROWS,NLAYS,N_CGRID_SPC ), & STAT = ASTAT ) CALL CHECKMEM( ASTAT, 'CSAV', PNAME ) END IF ALLOCATE ( D_CNGRD( NCOLS,NROWS,NLAYS,N_CGRID_SPC ), & STAT = ASTAT ) CALL CHECKMEM( ASTAT, 'D_CNGRD', PNAME ) END IF ! Load local CGRID Array DO I = 1,N_CGRID_SPC DO L = 1,NLAYS DO R = 1,NROWS DO C = 1,NCOLS CNGRD(C,R,L,I) = CGRID(C,R,L,I) END DO END DO END DO END DO ! Couple all concentrations arrays in decoupled space IF ( .NOT. LCOUPLE ) & CALL COUPLE_PA( IPR_ID, CNGRD, JDATE, JTIME, .FALSE. ) ! Make sure to couple the saved array if this is VDIFF, the first ! process IF ( IPR_ID .EQ. IPR_VDIF ) & CALL COUPLE_PA( IPR_ID, CSAV, JDATE, JTIME, .FALSE. ) ! Calculate Budget Change IF (BUDGET_DIAG) CALL STORE_BUDGET( IPR_ID, CNGRD, JDATE, JTIME, .TRUE. ) ! Calculate change, and save for later. The arrays are in coupled ! mass concentration space for all coupled processes and for the ! call immediately after the 'decouple' step. Otherwise the arrays ! are in decoupled mixing ratio units for gases and decoupled mass ! concentration for aerosols. DO I = 1,N_CGRID_SPC DO L = 1,NLAYS DO R = 1,NROWS DO C = 1,NCOLS D_CNGRD(C,R,L,I) = CNGRD(C,R,L,I) - CSAV(C,R,L,I) CSAV(C,R,L,I) = CNGRD(C,R,L,I) ! Note that CSAV from the first IPR_ZADV (coupling) process will be ! overwritten in pa_update_hadv for use after the main IPR_ZADV ! call END DO END DO END DO END DO ! Convert the change in coupled mass concentrations to change in ! mixing ratio D_CNGRD( :,:,:,RHOJ_LOC ) = CNGRD( :,:,:,RHOJ_LOC ) CALL DECOUPLE_PA( IPR_ID, D_CNGRD, JDATE, JTIME, .FALSE. ) ! Compute Contribution for Process Analysis IF ( LIPR ) THEN ! Compute delta conc for this process if requested DO IPRV = 1,NIPRVAR IF ( MASK_IPR_PROC( IPRV,IPR_ID ) ) THEN IPRSPC = MAP_IPRVARtoSPC( IPRV ) DO ISPC = 1, NCGRID( IPRSPC ) ICG = MAP_IPRtoCGRID( IPRSPC,ISPC ) #ifdef parallel CALL SUBST_DATA_COPY( D_CNGRD, TCGRID, ICG ) #else TCGRID( :,:,: ) = D_CNGRD( PA_BEGCOL:PA_ENDCOL,PA_BEGROW:PA_ENDROW, & PA_BEGLEV:PA_ENDLEV,ICG ) #endif DELC( :,:,:,IPRV ) = DELC( :,:,:,IPRV ) + SPCOEF( IPRSPC,ISPC ) & * TCGRID( :,:,: ) END DO END IF END DO END IF RETURN END SUBROUTINE PA_UPDATE_PROC !cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc ! Emissions processing section !cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc SUBROUTINE PA_UPDATE_EMIS( VEMIS, JDATE, JTIME, TSTEP ) IMPLICIT NONE ! Includes: INCLUDE SUBST_CONST ! Constants INCLUDE SUBST_FILES_ID ! file name parameters INCLUDE SUBST_EMISPRM ! Emissions processing control parameters REAL :: VEMIS ( :,:,:,: ) ! Emission rates (g/s) ! layer dimension ! corresponds to NLAYS INTEGER, INTENT( IN ) :: JDATE ! current date, format YYYYDDD INTEGER, INTENT( IN ) :: JTIME ! current time, format HHMMSS INTEGER, INTENT( IN ) :: TSTEP( 3 ) ! time step vector (HHMMSS) ! TSTEP(1) = local output step ! TSTEP(2) = sciproc sync. step (chem) ! TSTEP(3) = twoway model time step w.r.t. wrf time ! step and wrf/cmaq call frequency ! aerosol emission conversion factor terms REAL, PARAMETER :: GPKG = 1.0E+03 ! g kg-1 REAL, PARAMETER :: MGPG = 1.0E+06 ! ug g-1 REAL, PARAMETER :: REFAC = GPKG / MWAIR ! mol kg -1 ! ae_conversion factors REAL, ALLOCATABLE, SAVE :: PA_EMIS_CONV( : ) REAL :: DENS ( NCOLS,NROWS,NLAYS ) ! Density of air REAL :: TVEMIS ( MY_PACOLS,MY_PAROWS,PALEVS ) ! Computed emission rate INTEGER ASTAT ! Allocate status code INTEGER C, R, L ! Loop index for columns INTEGER IPRSPC ! Index for each process species INTEGER ISPC ! Index for each process species within each family INTEGER IPRV ! Index for each combination of species-process INTEGER ICG ! Index for species in cgrid array INTEGER ISV ! Index for species in saved array INTEGER I REAL DT INTEGER MDATE ! Date of mid-point of timestep INTEGER MTIME ! Time of mid-point of timestep CHARACTER( 80 ) :: MSG ! Message for output log CHARACTER( 16 ) :: PNAME = 'PA_UPDATE_EMIS' ! Routine name LOGICAL,SAVE :: FIRST_TIME = .TRUE. ! On first call, set pointers to emission species IF ( FIRST_TIME ) THEN FIRST_TIME = .FALSE. IF ( .NOT. ALLOCATED( CNGRD ) ) THEN ALLOCATE ( CNGRD( NCOLS,NROWS,NLAYS,N_CGRID_SPC ), & STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN MSG = '*** ERROR allocating CNGRD' CALL M3EXIT( PNAME, JDATE, JTIME, MSG, XSTAT1 ) END IF END IF ALLOCATE ( PA_EMIS_CONV( N_CGRID_SPC ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN MSG = 'Failure allocating PA_EMIS_CONV' CALL M3EXIT( PNAME, JDATE, JTIME, MSG, XSTAT1 ) END IF ! Get conversion factors for aero emissions; incoming ! units are in ppmV/sec for ae species, #/mol/sec for ! NUM, and m2/mol/sec for SRF. PA_EMIS_CONV Conversion ! factors convert to ug/kg sec, #/kg sec, and m2/kg ! sec, respectively. PA_EMIS_CONV = 1.0 WHERE ( CGRID_MASK_NUM ) PA_EMIS_CONV( : ) = REFAC ELSEWHERE ( CGRID_MASK_SRF ) PA_EMIS_CONV( : ) = REFAC ELSEWHERE PA_EMIS_CONV( : ) = REFAC * CGRID_MW( : ) END WHERE END IF ! LEMFIRST ! Compute delta conc due to emissions and adjust vdiff or chem ! output if necessary for each output species DT = FLOAT( TIME2SEC( TSTEP( 2 ) ) ) ! Get air density call interpolate_var ('DENS', JDATE, JTIME, DENS) ! Convert Aerosol Emissions To Correct Units and Apply Species ! Coefficients. ug m-3 | N m-3 | and m2 m-3. Gas species will ! be converted from kmol to kg later in the budget_write step. CNGRD = VEMIS * DT DO ICG = 1,N_CGRID_SPC IF ( CGRID_MASK_AERO( ICG ) ) & CNGRD(:,:,:,ICG) = CNGRD(:,:,:,ICG) * & DENS( :,:,: ) * PA_EMIS_CONV( ICG ) END DO ! Save Changes in Budget Array IF (BUDGET_DIAG) CALL STORE_BUDGET( IPR_EMIS, CNGRD, JDATE, JTIME, .FALSE. ) ! Save Changes in Process Analysis Array IF ( LIPR ) THEN ! Get midpoint of time step MDATE = JDATE MTIME = JTIME CALL NEXTIME( MDATE, MTIME, SEC2TIME( TIME2SEC( TSTEP( 2 ) ) / 2 ) ) ! Get air density call interpolate_var ('DENS', mdate, mtime, DENS) DO ICG = 1,N_CGRID_SPC IF ( CGRID_MASK_AERO( ICG ) ) & VEMIS(:,:,:,ICG) = VEMIS(:,:,:,ICG) * DT * & PA_EMIS_CONV(ICG) * DENS( :,:,: ) END DO DO IPRV = 1,NIPRVAR IF ( MASK_IPR_PROC( IPRV,IPR_VDIF ) .OR. & MASK_IPR_PROC( IPRV,IPR_EMIS ) ) THEN ! Either VDIF or EMIS are needed for this IPR Variable. IPRSPC = MAP_IPRVARtoSPC( IPRV ) DO ISPC = 1, NCGRID( IPRSPC ) ! foreach species in the family ICG = MAP_IPRtoCGRID( IPRSPC,ISPC ) ! CTM species index in the family ! Retrieve Emissions for this Time Step #ifdef parallel CALL SUBST_DATA_COPY ( VEMIS, TVEMIS, ICG ) #else TVEMIS( :,:,: ) = VEMIS( PA_BEGROW:PA_ENDROW, & PA_BEGCOL:PA_ENDCOL, & PA_BEGLEV:PA_ENDLEV, & ICG ) #endif ! Add up Emissions and/or Vdiff depending on the process mask IF ( MASK_IPR_PROC( IPRV,IPR_EMIS ) ) & DELC( :,:,:,IPRV ) = DELC( :,:,:,IPRV ) & + TVEMIS( :,:,: ) * SPCOEF( IPRSPC,ISPC ) IF ( MASK_IPR_PROC( IPRV,IPR_VDIF ) ) & DELC( :,:,:,IPRV ) = DELC( :,:,:,IPRV ) & - TVEMIS( :,:,: ) * SPCOEF( IPRSPC,ISPC ) END DO END IF END DO END IF RETURN END SUBROUTINE PA_UPDATE_EMIS ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Dry Deposition processing section ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc SUBROUTINE PA_UPDATE_DDEP( DDEP, JDATE, JTIME, TSTEP ) IMPLICIT NONE ! Includes: INCLUDE SUBST_CONST ! Constants INCLUDE SUBST_FILES_ID ! file name parameters INCLUDE SUBST_EMISPRM ! Emissions processing control parameters ! Additional or other Arguments for ENTRY`s REAL :: DDEP ( :,:,: ) ! Dry dep (Kg/ha) INTEGER, INTENT( IN ) :: JDATE ! current date, format YYYYDDD INTEGER, INTENT( IN ) :: JTIME ! current time, format HHMMSS INTEGER, INTENT( IN ) :: TSTEP( 3 ) ! time step vector (HHMMSS) ! TSTEP(1) = local output step ! TSTEP(2) = sciproc sync. step (chem) ! TSTEP(3) = twoway model time step w.r.t. wrf time ! step and wrf/cmaq call ! frequency ! ae_conversion factors REAL, ALLOCATABLE, SAVE :: PA_DEPV_CONV( : ) REAL, SAVE :: CONVDD ! Conversion factor for dry dep LOGICAL, SAVE :: LDDFIRST = .TRUE. ! Flag for 1st call of ddep processing ! 1 hectare = 1.0e4 m**2 REAL, PARAMETER :: CONVH2M = 1.0E-4 ! mass to ppm factor REAL, PARAMETER :: CONVMW = 1.0E+06 * MWAIR ! ug mol-1 REAL :: DENS ( NCOLS,NROWS,NLAYS ) ! Density of air REAL :: TDDEP ( MY_PACOLS,MY_PAROWS ) REAL :: ZF ( NCOLS,NROWS,NLAYS ) ! Layer heights INTEGER ASTAT ! Allocate status code INTEGER C, R, L ! Loop index for columns INTEGER IPRSPC ! Index for each process species INTEGER ISPC ! Index for each process species within each family INTEGER IPRV ! Index for each combination of species-process INTEGER ICG ! Index for species in cgrid array INTEGER ISV ! Index for species in saved array INTEGER MDATE ! Date of mid-point of timestep INTEGER MTIME ! Time of mid-point of timestep INTEGER I CHARACTER( 80 ) :: MSG ! Message for output log CHARACTER( 16 ) :: PNAME = 'PA_UPDATE_DDEP' ! Routine name LOGICAL,SAVE :: FIRST_TIME = .TRUE. ! On first call, set pointers to deposition species IF ( FIRST_TIME ) THEN FIRST_TIME = .FALSE. ALLOCATE ( PA_DEPV_CONV( N_CGRID_SPC ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN MSG = 'Failure allocating PA_DEPV_CONV' CALL M3EXIT( PNAME, JDATE, JTIME, MSG, XSTAT1 ) END IF ! Set layer thickenesses CONVDD = 1.0 / ABS ( VGLVS_GD( 2 ) - VGLVS_GD( 1 ) ) PA_DEPV_CONV = 1.0 DO ICG = 1,N_CGRID_SPC ! Initialize DEPV conversion vector assuming all are gases IF ( CGRID_MASK_GAS( ICG ) .OR. & CGRID_MASK_NR( ICG ) .OR. & CGRID_MASK_TRAC( ICG ) ) THEN ! Species is a gas ! g mol-1 air / g mol -1 species IF ( CGRID_MW( ICG ) .GT. 0. ) & PA_DEPV_CONV( ICG ) = MWAIR / CGRID_MW( ICG ) !* CONVDD ELSE IF ( CGRID_MASK_NUM( ICG ) .OR. & CGRID_MASK_SRF( ICG ) ) THEN ! Species is an aerosol number or surface area PA_DEPV_CONV( ICG ) = 1.0 ELSEIF ( CGRID_MASK_AERO( ICG ) ) THEN ! Species is an aerosol mass (kg ha-1 -> ug ha-1) PA_DEPV_CONV( ICG ) = 1.0E+09 END IF END DO END IF ! First Time ! Get density x jacobian and layer heights call interpolate_var ('DENS', jdate, jtime, DENS) call interpolate_var ('ZF', jdate, jtime, ZF) ! Convert DDEP to ppm, ug m-3, N m-3, and m2 m-3 CNGRD(:,:,1,: ) = -DDEP * CONVH2M CNGRD( :,:,2:NLAYS,: ) = 0.0 DO ICG = 1,N_CGRID_SPC IF ( CGRID_MASK_AERO( ICG ) ) THEN CNGRD(:,:,1,ICG) = CNGRD(:,:,1,ICG) * PA_DEPV_CONV( ICG ) / ZF( :,:,1 ) ELSE CNGRD(:,:,1,ICG) = 1.0E+06 * CNGRD(:,:,1,ICG) * PA_DEPV_CONV( ICG ) / DENS( :,:,1 ) / ZF(:,:,1) END IF END DO ! Save Changes in Budget Array IF (BUDGET_DIAG) CALL STORE_BUDGET( IPR_DDEP, CNGRD, JDATE, JTIME, .FALSE. ) C..Store Changes in Process Analysis Array IF ( LIPR .AND. MY_BEGLEV .EQ. 1 ) THEN C..get midpoint of time step MDATE = JDATE MTIME = JTIME CALL NEXTIME( MDATE, MTIME, SEC2TIME( TIME2SEC( TSTEP( 2 ) ) / 2 ) ) C..get density x jacobian and layer heights call interpolate_var ('DENS', mdate, mtime, DENS) call interpolate_var ('ZF', mdate, mtime, ZF) ! Convert DDEP to ppm, ug m-3, N m-3, and m2 m-3 DDEP = DDEP * CONVH2M DO ICG = 1,N_CGRID_SPC IF ( CGRID_MASK_AERO( ICG ) ) THEN DDEP(:,:,ICG) = DDEP(:,:,ICG) * PA_DEPV_CONV( ICG ) / ZF( :,:,1 ) ELSE DDEP(:,:,ICG) = 1.0E+06 * DDEP(:,:,ICG) * PA_DEPV_CONV( ICG ) / DENS( :,:,1 ) / ZF(:,:,1) END IF END DO ! Compute delta conc due to ddep and adjust vdiff output if necessary DO IPRV = 1, NIPRVAR IF ( MASK_IPR_PROC( IPRV,IPR_VDIF ) .OR. & MASK_IPR_PROC( IPRV,IPR_DDEP ) ) THEN ! Either VDIF or EMIS are needed for this IPR Variable. IPRSPC = MAP_IPRVARtoSPC( IPRV ) DO ISPC = 1, NCGRID( IPRSPC ) ICG = MAP_IPRtoCGRID( IPRSPC,ISPC ) #ifdef parallel CALL SUBST_DATA_COPY( DDEP, TDDEP, ICG ) #else TDDEP = DDEP( PA_BEGCOL:PA_ENDCOL, & PA_BEGROW:PA_ENDROW, & ICG ) #endif ! Adjust the process analysis output arrays IF ( MASK_IPR_PROC( IPRV,IPR_DDEP ) ) & DELC( :,:,1,IPRV ) = DELC( :,:,1,IPRV ) & - TDDEP( :,: ) * SPCOEF( IPRSPC,ISPC ) IF ( MASK_IPR_PROC( IPRV,IPR_VDIF ) ) & DELC( :,:,1,IPRV ) = DELC( :,:,1,IPRV ) & + TDDEP( :,: ) * SPCOEF( IPRSPC,ISPC ) END DO ! ISPC END IF END DO ! IPRV END IF RETURN END SUBROUTINE PA_UPDATE_DDEP !::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE PA_UPDATE_HADV ( CGRID, JDATE, JTIME, TSTEP ) !----------------------------------------------------------------------- USE XY_BUDGET USE PA_DEFN USE UTILIO_DEFN USE PAGRD_DEFN USE CGRID_SPCS, ONLY : RHOJ_LOC use CENTRALIZED_IO_MODULE, only : interpolate_var IMPLICIT NONE REAL, INTENT( IN ) :: CGRID( :,:,:,: ) ! Conc array INTEGER, INTENT( IN ) :: JDATE, JTIME INTEGER, INTENT( IN ) :: TSTEP(3) INTEGER SDATE ! Date at end of timestep INTEGER STIME ! Time at end of timestep REAL :: TXADV ( MY_PACOLS,MY_PAROWS,PALEVS ) ! Computed emission rate REAL :: TYADV ( MY_PACOLS,MY_PAROWS,PALEVS ) ! Computed emission rate INTEGER :: IPRV INTEGER :: ICG, ISPC, IPRSPC, ISV LOGICAL,SAVE :: FIRSTIME = .TRUE. INTEGER I, L, R, C, ASTAT IF ( FIRSTIME ) THEN FIRSTIME = .FALSE. END IF ! Load scalars in local array DO I = 1,N_CGRID_SPC DO L = 1,NLAYS DO R = 1,NROWS DO C = 1,NCOLS CNGRD(C,R,L,I) = CGRID(C,R,L,I) END DO END DO END DO END DO IF ( LIPR ) THEN ! Convert X and Y Advection changes to mixing ratio and ! concentration units. The DECOUPLE_PA routine needs to have the ! correct RHOJ so this is passed from CNGRD DELC_XADV( :,:,:,RHOJ_LOC ) = CNGRD( :,:,:,RHOJ_LOC ) CALL DECOUPLE_PA( IPR_XADV, DELC_XADV, JDATE, JTIME, .FALSE. ) DELC_YADV( :,:,:,RHOJ_LOC ) = CNGRD( :,:,:,RHOJ_LOC ) CALL DECOUPLE_PA( IPR_YADV, DELC_YADV, JDATE, JTIME, .FALSE. ) ! Save Changes in Budget Array IF (BUDGET_DIAG) CALL STORE_BUDGET( IPR_XADV, DELC_XADV, JDATE, JTIME, .FALSE. ) IF (BUDGET_DIAG) CALL STORE_BUDGET( IPR_YADV, DELC_YADV, JDATE, JTIME, .FALSE. ) DO IPRV = 1, NIPRVAR ! foreach family IPRSPC = MAP_IPRVARtoSPC( IPRV ) DO ISPC = 1,NCGRID( IPRSPC ) ! foreach species in the family ICG = MAP_IPRtoCGRID( IPRSPC,ISPC ) ! CGRID species index #ifdef parallel CALL SUBST_DATA_COPY( DELC_XADV, TXADV, ICG ) CALL SUBST_DATA_COPY( DELC_YADV, TYADV, ICG ) #else TXADV = DELC_XADV( PA_BEGCOL:PA_ENDCOL, & PA_BEGROW:PA_ENDROW, & PA_BEGLEV:PA_ENDLEV, ICG ) TYADV = DELC_YADV( PA_BEGCOL:PA_ENDCOL, & PA_BEGROW:PA_ENDROW, & PA_BEGLEV:PA_ENDLEV, ICG ) #endif ! Modify both the emiss process and the calling process IF ( MASK_IPR_PROC( IPRV,IPR_XADV ) ) THEN DELC( :,:,:,IPRV ) = DELC( :,:,:,IPRV ) & + SPCOEF( IPRSPC,ISPC ) * TXADV END IF IF ( MASK_IPR_PROC( IPRV,IPR_YADV ) ) THEN DELC( :,:,:,IPRV ) = DELC( :,:,:,IPRV ) & + SPCOEF( IPRSPC,ISPC ) * TYADV END IF END DO END DO DELC_XADV = 0.0 DELC_YADV = 0.0 END IF ! Send the scalar array to the budget routine. ! Remember these are coupled units coming after horizontal ! advection. IF (BUDGET_DIAG) CALL STORE_BUDGET( BDGSAVE_ID, CNGRD, JDATE, JTIME, .TRUE. ) ! Save the coupled CNGRD array so it can be differenced and then ! decoupled (converted to mixing ratio) for the IPR_ZADV process ! analysis quantityt. DO I = 1,N_CGRID_SPC DO L = 1,NLAYS DO R = 1,NROWS DO C = 1,NCOLS CSAV(C,R,L,I) = CNGRD(C,R,L,I) END DO END DO END DO END DO RETURN END SUBROUTINE PA_UPDATE_HADV !::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE PA_UPDATE_AERO ( CGRID, JDATE, JTIME ) !----------------------------------------------------------------------- USE AERO_BUDGET USE PA_DEFN USE UTILIO_DEFN USE PAGRD_DEFN IMPLICIT NONE REAL, POINTER :: CGRID( :,:,:,: ) ! Conc array INTEGER, INTENT( IN ) :: JDATE, JTIME INTEGER :: ICG, IPRV, IPRSPC, ISPC, ISV INTEGER :: I, R, C, L LOGICAL,SAVE :: FIRST_TIME = .TRUE. REAL :: TCOAG ( MY_PACOLS,MY_PAROWS,PALEVS ) ! Computed emission ratedd REAL :: TCOND ( MY_PACOLS,MY_PAROWS,PALEVS ) ! Computed emission rate REAL :: TNPF ( MY_PACOLS,MY_PAROWS,PALEVS ) ! Computed emission rate REAL :: TGROW ( MY_PACOLS,MY_PAROWS,PALEVS ) ! Computed emission rate ! Allocate some arrays the first time through IF ( FIRST_TIME ) THEN FIRST_TIME = .FALSE. END IF IF ( LIPR ) THEN DO IPRV = 1, NIPRVAR ! foreach family IPRSPC = MAP_IPRVARtoSPC( IPRV ) DO ISPC = 1,NCGRID( IPRSPC ) ! foreach species in the family ICG = MAP_IPRtoCGRID( IPRSPC,ISPC ) ! CGRID species index #ifdef parallel CALL SUBST_DATA_COPY( AERO_COAG, TCOAG, ICG ) CALL SUBST_DATA_COPY( AERO_COND, TCOND, ICG ) CALL SUBST_DATA_COPY( AERO_NPF, TNPF, ICG ) CALL SUBST_DATA_COPY( AERO_GROWTH, TGROW, ICG ) #else TCOAG = AERO_COAG( PA_BEGCOL:PA_ENDCOL, & PA_BEGROW:PA_ENDROW, & PA_BEGLEV:PA_ENDLEV, ICG ) TCOND = AERO_COND( PA_BEGCOL:PA_ENDCOL, & PA_BEGROW:PA_ENDROW, & PA_BEGLEV:PA_ENDLEV, ICG ) TNPF = AERO_NPF ( PA_BEGCOL:PA_ENDCOL, & PA_BEGROW:PA_ENDROW, & PA_BEGLEV:PA_ENDLEV, ICG ) TGROW = AERO_GROWTH( PA_BEGCOL:PA_ENDCOL, & PA_BEGROW:PA_ENDROW, & PA_BEGLEV:PA_ENDLEV, ICG ) #endif ! Modify both the emiss process and the calling process IF ( MASK_IPR_PROC( IPRV,IPR_COAG ) ) & DELC( :,:,:,IPRV ) = DELC( :,:,:,IPRV ) & + SPCOEF( IPRSPC,ISPC ) * TCOAG IF ( MASK_IPR_PROC( IPRV,IPR_COND ) ) & DELC( :,:,:,IPRV ) = DELC( :,:,:,IPRV ) & + SPCOEF( IPRSPC,ISPC ) * TCOND IF ( MASK_IPR_PROC( IPRV,IPR_NPF ) ) & DELC( :,:,:,IPRV ) = DELC( :,:,:,IPRV ) & + SPCOEF( IPRSPC,ISPC ) * TNPF IF ( MASK_IPR_PROC( IPRV,IPR_GROW ) ) & DELC( :,:,:,IPRV )= DELC( :,:,:,IPRV ) & + SPCOEF( IPRSPC,ISPC ) * TGROW END DO END DO END IF ! Convert scalars from trasnport process units to mixing ratio and ! concentration units. DO I = 1,N_CGRID_SPC DO L = 1,NLAYS DO R = 1,NROWS DO C = 1,NCOLS CNGRD(C,R,L,I) = CGRID(C,R,L,I) END DO END DO END DO END DO ! Save Changes in Budget Array CALL COUPLE_PA( IPR_COAG, AERO_COAG, JDATE, JTIME, .FALSE. ) IF (BUDGET_DIAG) CALL STORE_BUDGET( IPR_COAG, AERO_COAG, JDATE, JTIME, .TRUE. ) CALL COUPLE_PA( IPR_COND, AERO_COND, JDATE, JTIME, .FALSE. ) IF (BUDGET_DIAG) CALL STORE_BUDGET( IPR_COND, AERO_COND, JDATE, JTIME, .TRUE. ) CALL COUPLE_PA( IPR_NPF, AERO_NPF, JDATE, JTIME, .FALSE. ) IF (BUDGET_DIAG) CALL STORE_BUDGET( IPR_NPF, AERO_NPF, JDATE, JTIME, .TRUE. ) CALL COUPLE_PA( IPR_GROW, AERO_GROWTH, JDATE, JTIME, .FALSE. ) IF (BUDGET_DIAG) CALL STORE_BUDGET( IPR_GROW, AERO_GROWTH, JDATE, JTIME, .TRUE. ) CALL COUPLE_PA( IPR_GROW, CNGRD, JDATE, JTIME, .FALSE. ) IF (BUDGET_DIAG) CALL STORE_BUDGET( BDGSAVE_ID, CNGRD, JDATE, JTIME, .TRUE. ) ! Save Concentration in CSAV Array DO I = 1,N_CGRID_SPC DO L = 1,NLAYS DO R = 1,NROWS DO C = 1,NCOLS CSAV(C,R,L,I) = CGRID(C,R,L,I) END DO END DO END DO END DO RETURN END SUBROUTINE PA_UPDATE_AERO C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE DECOUPLE_PA ( IPR_ID, CONC, JDATE, JTIME, LRHOJ ) C----------------------------------------------------------------------- C Function: C Convert units and decouple concentration values in CGRID from transport C CONC is a copy of the current CGRID C Preconditions: C Subroutines and functions called: C INTERPX, M3EXIT C Revision History: C 6 May 16 J.Young: initial - part of pa_update.F file C----------------------------------------------------------------------- USE GRID_CONF ! horizontal & vertical domain specifications USE CGRID_SPCS ! CGRID mechanism species USE UTILIO_DEFN USE VDIFF_MAP, ONLY : N_SPC_DIFF, DIFF_MASK_SRF, DIFF_MASK_NUM, DIFF_MAP, & DIFF_MASK_AERO use CENTRALIZED_IO_MODULE, only : interpolate_var IMPLICIT NONE C Include files: INCLUDE SUBST_FILES_ID ! file name parameters C Arguments: REAL, INTENT( INOUT ) :: CONC( :,:,:,: ) ! concentrations INTEGER, INTENT( IN ) :: JDATE ! current model date, coded YYYYDDD INTEGER, INTENT( IN ) :: JTIME ! current model time, coded HHMMSS INTEGER, INTENT( IN ) :: IPR_ID ! Process ID LOGICAL, INTENT( IN ) :: LRHOJ ! Should the advected density be used to decouple C Parameters: REAL, PARAMETER :: GPKG = 1.0E+03 ! g/kg REAL, PARAMETER :: MGPG = 1.0E+06 ! micro-g/g REAL, PARAMETER :: CONV = GPKG * MGPG C External Functions: C File Variables: REAL JACOBM( NCOLS,NROWS,NLAYS ) ! reciprocal midlayer Jacobian REAL RHOJ ( NCOLS,NROWS,NLAYS ) ! reciprocal Jacobian * air density C Local Variables: CHARACTER( 16 ) :: PNAME = 'DECOUPLE_PA' CHARACTER( 16 ) :: VNAME CHARACTER( 96 ) :: XMSG = ' ' INTEGER V,C,R,L ! loop counters C----------------------------------------------------------------------- C retrieve transported RhoJ and Jacobian CALL INTERPOLATE_VAR ('JACOBM', JDATE, JTIME, JACOBM) IF ( LRHOJ ) THEN RHOJ( :,:,: ) = CONC( :,:,:,RHOJ_LOC ) ELSE CALL INTERPOLATE_VAR ('DENSA_J', JDATE, JTIME, RHOJ) END IF C decouple for chemistry and diffusion C The CONC array is ordered like CGRID but only the DIFF species should C be modified. Use DIFF_MAP DO V = 1,N_CGRID_SPC IF ( CGRID_MASK_NUM( V ) .OR. CGRID_MASK_SRF( V ) ) THEN ! Convert to N m-3 and m2 m-3 DO L = 1,NLAYS DO R = 1,NROWS DO C = 1,NCOLS CONC( C,R,L,V ) = & CONC( C,R,L,V ) / JACOBM( C,R,L ) END DO END DO END DO ELSE IF ( CGRID_MASK_AERO( V ) ) THEN ! Convert to ug m-3 DO L = 1,NLAYS DO R = 1,NROWS DO C = 1,NCOLS CONC( C,R,L,V ) = & CONC( C,R,L,V ) * CONV / JACOBM( C,R,L ) END DO END DO END DO ELSE IF ( V .NE. RHOJ_LOC ) THEN ! Convert to ppmV DO L = 1,NLAYS DO R = 1,NROWS DO C = 1,NCOLS CONC( C,R,L,V ) = & CONC( C,R,L,V ) / RHOJ( C,R,L ) END DO END DO END DO END IF END DO RETURN END SUBROUTINE DECOUPLE_PA C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE COUPLE_PA ( IPR_ID, CONC, JDATE, JTIME, LRHOJ ) C----------------------------------------------------------------------- C Function: C Convert units and couple concentration values in CGRID from transport C CONC is a copy of the current CGRID C Preconditions: C Subroutines and functions called: C INTERPX, M3EXIT C Revision History: C 6 May 16 J.Young: initial - part of pa_update.F file C----------------------------------------------------------------------- USE GRID_CONF ! horizontal & vertical domain specifications USE CGRID_SPCS ! CGRID mechanism species USE UTILIO_DEFN USE VDIFF_MAP, ONLY : N_SPC_DIFF, DIFF_MASK_SRF, DIFF_MASK_NUM, DIFF_MAP, & DIFF_MASK_AERO use CENTRALIZED_IO_MODULE, only : interpolate_var IMPLICIT NONE C Include files: INCLUDE SUBST_FILES_ID ! file name parameters C Arguments: REAL, INTENT( INOUT ) :: CONC( :,:,:,: ) ! concentrations INTEGER, INTENT( IN ) :: JDATE ! current model date, coded YYYYDDD INTEGER, INTENT( IN ) :: JTIME ! current model time, coded HHMMSS INTEGER, INTENT( IN ) :: IPR_ID ! Process ID LOGICAL, INTENT( IN ) :: LRHOJ ! Should the advected density be used to decouple C Parameters: REAL, PARAMETER :: GPKG = 1.0E+03 ! g/kg REAL, PARAMETER :: MGPG = 1.0E+06 ! micro-g/g REAL, PARAMETER :: CONV = GPKG * MGPG C External Functions: C File Variables: REAL JACOBM( NCOLS,NROWS,NLAYS ) ! reciprocal midlayer Jacobian REAL RHOJ ( NCOLS,NROWS,NLAYS ) ! reciprocal Jacobian * air density C Local Variables: CHARACTER( 16 ) :: PNAME = 'COUPLE_PA' CHARACTER( 16 ) :: VNAME CHARACTER( 96 ) :: XMSG = ' ' INTEGER V,C,R,L ! loop counters C----------------------------------------------------------------------- C retrieve transported RhoJ and Jacobian CALL INTERPOLATE_VAR ('JACOBM', JDATE, JTIME, JACOBM) IF ( LRHOJ ) THEN RHOJ( :,:,: ) = CONC( :,:,:,RHOJ_LOC ) ELSE CALL INTERPOLATE_VAR ('DENSA_J', JDATE, JTIME, RHOJ) END IF C decouple for chemistry and diffusion C The CONC array is ordered like CGRID but only the DIFF species should C be modified. Use DIFF_MAP DO V = 1,N_CGRID_SPC IF ( CGRID_MASK_NUM( V ) .OR. CGRID_MASK_SRF( V ) ) THEN ! Convert to N m-3 and m2 m-3 DO L = 1,NLAYS DO R = 1,NROWS DO C = 1,NCOLS CONC( C,R,L,V ) = & CONC( C,R,L,V ) * JACOBM( C,R,L ) END DO END DO END DO ELSE IF ( CGRID_MASK_AERO( V ) ) THEN ! Convert to ug m-3 DO L = 1,NLAYS DO R = 1,NROWS DO C = 1,NCOLS CONC( C,R,L,V ) = & CONC( C,R,L,V ) / CONV * JACOBM( C,R,L ) END DO END DO END DO ELSE IF ( V .NE. RHOJ_LOC ) THEN ! Convert to ppmV DO L = 1,NLAYS DO R = 1,NROWS DO C = 1,NCOLS CONC( C,R,L,V ) = & CONC( C,R,L,V ) * RHOJ( C,R,L ) END DO END DO END DO END IF END DO RETURN END SUBROUTINE COUPLE_PA END MODULE PA_UPDATE ================================================ FILE: CCTM/src/procan/pa/pa_wrtpadefn.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE PA_WRTPADEFN C----------------------------------------------------------------------- C Function: To write the Models-3 Process Analysis Control PA_DEFN module C Preconditions: Requires mechanism to have been processed C Key Subroutines/Functions Called: None C Revision History: C Prototype created by Jerry Gipson, August, 1996 C Modified May, 1997 by Jerry Gipson to be consistent with beta CTM C Modified Sept, 1997 by Jerry Gipson to be consistent with targeted CTM C Modified Jan, 2006 by J. Young I couldn't resist the temptation to F90-ize the output C Aug 2011 Jeff Young: Replaced I/O API include files with IOAPI's M3UTILIO C Sep 2018 C. Nolte, S. Roselle: replace M3UTILIO with UTILIO_DEFN C----------------------------------------------------------------------- USE UTILIO_DEFN USE PA_VARS, Only: TDATOUT USE PA_IPRVARS, Only: MAXIPROUT USE PA_PARSE USE PA_DEFN IMPLICIT NONE C Includes: None C Arguments: None C Parameters: None C External Functions: None C Local Variables: ! CHARACTER( 1 ) :: DOT = '.' ! Dot character CHARACTER( 1 ) :: DIT = '=' ! Dit character CHARACTER( 72 ) :: DELIM ! Delimiter line output CHARACTER( 72 ) :: CEES ! Line of 'c's CHARACTER( 80 ) :: LINOUT ! Output line INTEGER IOUT ! Unit number for include file INTEGER N ! Loop index INTEGER MXCGRIDD ! Dimension for number of familys for PA INTEGER MXNIRRRXNSD ! Dimension parameter for MXNIRRRXNS INTEGER MXTEMPTRMSD ! Dimension parameter for MXTEMPTRMS INTEGER NIRRVARD ! Dimension of IRR output variables INTEGER N_IPR_SPCD ! Dimension statement for no. of PA species INTEGER NIPRVARD ! Dimension of PA output variables INTEGER NUMTEMPSD ! Dimension for number of temp IRRs INTEGER NUMOUTPOSD ! Dimension parameter for NUMOUTPOS INTEGER NUMOUTNEGD ! Dimension parameter for NUMOUTNEG INTEGER NUMOUTINDD ! Dimension parameter for NUMOUTIND CHARACTER( 7 ) :: BUF6 ( MAXIPROUT ) ! 6-Character buffer CHARACTER( 13 ) :: BUF12( MAXIPROUT ) ! 12-Character buffer CHARACTER( 21 ) :: BUF20( MAXIPROUT ) ! 20-Character buffer INTEGER :: MAXCNT = 99 ! Maximum number of continuation lines INTEGER NHI ! Highest index of loop INTEGER NIRR ! IRR loop index INTEGER NLO ! Lowest index of loop INTEGER NPA ! IPR species loop index INTEGER NS ! Loop index for sets of data statments INTEGER NSETS ! Number of sets of data statements to write C----------------------------------------------------------------------- DO N = 1, 72 DELIM( N:N ) = DIT CEES( N:N ) = 'c' END DO DELIM( 1:1 ) = 'C' cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Open and Control Include file and write the header data cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IOUT = JUNIT( ) OPEN( UNIT = IOUT, FILE = 'PA_DEFN_REPORT' ) WRITE( IOUT, 94000 ) DELIM( 1:72 ) LINOUT = ' MODULE PA_DEFN' WRITE( IOUT, 94000 ) LINOUT( 1:LEN_TRIM( LINOUT ) ) WRITE( IOUT, 94000 ) LINOUT( 1:1 ) LINOUT = 'C Contains: Control parameters for Process Analysis' WRITE( IOUT, 94000 ) LINOUT( 1:LEN_TRIM( LINOUT ) ) WRITE( IOUT, 94000 ) LINOUT( 1:1 ) LINOUT = 'C Dependent On: Mechanism Input file' WRITE( IOUT, 94000 ) LINOUT( 1:LEN_TRIM( LINOUT ) ) WRITE( IOUT, 94000 ) LINOUT( 1:1 ) LINOUT = 'C Created By: Process Analysis Control Program' WRITE( IOUT, 94000 ) LINOUT( 1:LEN_TRIM( LINOUT ) ) LINOUT = 'C ' // TDATOUT WRITE( IOUT, 94000 ) LINOUT( 1:LEN_TRIM( LINOUT ) ) LINOUT = '' WRITE( IOUT, 94000 ) LINOUT( 1:LEN_TRIM( LINOUT ) ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Write the control parameters cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc WRITE( IOUT, 94000 ) CEES WRITE( IOUT, 94020 ) WRITE( IOUT, 94040 ) WRITE( IOUT, 94000 ) CEES WRITE( IOUT, 94000 ) LINOUT( 1:LEN_TRIM( LINOUT ) ) c..LIPR -- for integrated process rates IF ( N_IPR_SPC .GT. 0 ) THEN WRITE( IOUT, 94080 ) ELSE WRITE( IOUT, 94100 ) END IF c..LIRR -- for integrated reaction rates IF ( LFULLIRR .OR. LPARTIRR ) THEN WRITE( IOUT, 94140 ) ELSE WRITE( IOUT, 94160 ) END IF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Write messages about array dimensioning if needed cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF ( .NOT. LIRR ) THEN WRITE( IOUT, 94000 ) CEES WRITE( IOUT, 95020 ) WRITE( IOUT, 94000 ) CEES WRITE( IOUT, 94000 ) END IF IF ( .NOT. LIPR ) THEN WRITE( IOUT, 94000 ) CEES WRITE( IOUT, 95040 ) WRITE( IOUT, 94000 ) CEES WRITE( IOUT, 94000 ) END IF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Write output file variables cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc WRITE( IOUT, 94000 ) CEES WRITE( IOUT, 95120 ) WRITE( IOUT, 94000 ) CEES WRITE( IOUT, 95140 ) WRITE( IOUT, 94000 ) CEES NIPRVARD = MAX( NIPRVAR, 1 ) NIRRVARD = MAX( NIRRVAR, 1 ) WRITE( IOUT, 95160 ) NIPRVAR, NIPRVARD WRITE( IOUT, 95180 ) NIRRVAR, NIRRVARD WRITE( IOUT, 95200 ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Write integrated process rate variables cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc WRITE( IOUT, 94000 ) CEES WRITE( IOUT, 95260 ) WRITE( IOUT, 94000 ) CEES WRITE( IOUT, 95280 ) WRITE( IOUT, 94000 ) CEES N_IPR_SPCD = MAX( N_IPR_SPC, 1 ) MXCGRIDD = MAX( MXCGRID, 1 ) WRITE( IOUT, 95300 ) NPRCS, & N_IPR_SPC, N_IPR_SPCD, & MXCGRID, MXCGRIDD WRITE( IOUT, 95320 ) LINOUT = '' WRITE( IOUT, 94000 ) LINOUT( 1:LEN_TRIM( LINOUT ) ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Write integrated reaction rate variables cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc WRITE( IOUT, 94000 ) CEES WRITE( IOUT, 95360 ) WRITE( IOUT, 94000 ) CEES WRITE( IOUT, 95380 ) WRITE( IOUT, 94000 ) CEES IF ( LFULLIRR ) THEN WRITE( IOUT, 95420 ) ELSE WRITE( IOUT, 95440 ) END IF IF ( LPARTIRR ) THEN WRITE( IOUT, 95480 ) ELSE WRITE( IOUT, 95500 ) END IF ! IF ( .NOT. LPARTIRR ) THEN ! NUMTEMPS = 0 ! NUMOUTPOS = 0 ! NUMOUTNEG = 0 ! NUMOUTIND = 0 ! MXNIRRRXNS = 0 ! MXTEMPTRMS = 0 ! END IF NUMTEMPSD = MAX( NUMTEMPS, 1 ) NUMOUTPOSD = MAX( NUMOUTPOS, 1 ) NUMOUTNEGD = MAX( NUMOUTNEG, 1 ) NUMOUTINDD = MAX( NUMOUTIND, 1 ) MXNIRRRXNSD = MAX( MXNIRRRXNS, 1 ) MXTEMPTRMSD = MAX( MXTEMPTRMS, 1 ) WRITE( IOUT, 95520 ) NUMTEMPS, NUMTEMPSD, & NUMOUTPOS, NUMOUTPOSD, & NUMOUTNEG, NUMOUTNEGD, & NUMOUTIND, NUMOUTINDD, & MXNIRRRXNS, MXNIRRRXNSD, & MXTEMPTRMS, MXTEMPTRMSD IF ( NIRRVAR .NE. 0 ) THEN WRITE( IOUT, 95542 ) ELSE WRITE( IOUT, 95544 ) END IF WRITE( IOUT, 95580 ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Write monocode extensions (declarations and common block) and end c line and return cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF ( .NOT. LIPR .AND. .NOT. LIRR ) THEN WRITE( IOUT, 96110 ) GO TO 999 END IF C----------------------------------------------------------------------- LINOUT = '' WRITE( IOUT, 94000 ) LINOUT( 1:LEN_TRIM( LINOUT ) ) LINOUT = 'C Initialize variable arrays via DATA stmts.' WRITE( IOUT, 94000 ) LINOUT( 1:LEN_TRIM( LINOUT ) ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Write data statements for output file variables cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc WRITE( IOUT, 94000 ) CEES WRITE( IOUT, 96120 ) WRITE( IOUT, 94000 ) CEES WRITE( IOUT, 96200 ) IF ( NIPRVAR .GT. 0 ) THEN NSETS = ( ( NIPRVAR - 1 ) / ( 3 * MAXCNT ) ) + 1 write( *,* ) 'n IPR var nsets 1: ', nsets DO NS = 1, NSETS NLO = ( NS - 1 ) * ( 3 * MAXCNT ) + 1 NHI = MIN( ( NS * 3 * MAXCNT ), NIPRVAR ) write( *,* ) 'n IPR var nlo nhi: ', nlo, nhi WRITE( IOUT, 96220 ) NLO, NHI DO NPA = NLO, NHI BUF20( NPA ) = ' "' // IPRNAME( NPA ) // '",' END DO BUF20( NHI )( 20:21 ) = ' /' call listout( NLO, NHI, 3, IOUT, BUF20 ) END DO NSETS = ( ( NIPRVAR - 1 ) / MAXCNT ) + 1 write( *,* ) 'n IPR var nsets 2: ', nsets DO NS = 1, NSETS NLO = ( NS - 1 ) * ( MAXCNT ) + 1 NHI = MIN( ( NS * MAXCNT ), NIPRVAR ) write( *,* ) 'n IPR var nlo nhi: ', nlo, nhi WRITE( IOUT, 96240 ) NLO, NHI DO NPA = NLO, NHI LINOUT = ' & "' // IPRDESC( NPA ) // '",' IF ( NPA .EQ. NHI ) LINOUT( 71:71 ) = '/' WRITE( IOUT, 94000 ) LINOUT( 1:LEN_TRIM( LINOUT ) ) END DO END DO END IF IF ( NIRRVAR .GT. 0 ) THEN NSETS = ( ( NIRRVAR - 1 ) / ( 3 * MAXCNT ) ) + 1 write( *,* ) 'n IRR var nsets 1: ', nsets DO NS = 1, NSETS NLO = ( NS - 1 ) * ( 3 * MAXCNT ) + 1 NHI = MIN( ( NS * 3 * MAXCNT ), NIRRVAR ) write( *,* ) 'n IRR var nlo nhi: ', nlo, nhi WRITE( IOUT, 96260 ) NLO, NHI DO NIRR = NLO, NHI BUF20( NIRR ) = ' "' // IRRNAME( NIRR ) // '",' END DO BUF20( NHI )( 20:21 ) = ' /' call listout( NLO, NHI, 3, IOUT, BUF20 ) END DO NSETS = ( ( NIRRVAR - 1 ) / MAXCNT ) + 1 write( *,* ) 'n IRR var nsets 2: ', nsets DO NS = 1, NSETS NLO = ( NS - 1 ) * ( MAXCNT ) + 1 NHI = MIN( ( NS * MAXCNT ), NIRRVAR ) write( *,* ) 'n IRR var nlo nhi: ', nlo, nhi WRITE( IOUT, 96280 ) NLO, NHI DO NIRR = NLO, NHI LINOUT = ' & "' // IRRDESC( NIRR ) // '",' IF ( NIRR .EQ. NHI ) LINOUT( 71:71 ) = '/' WRITE( IOUT, 94000 ) LINOUT( 1:LEN_TRIM( LINOUT ) ) END DO END DO END IF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Write data statements for integrated Process rate variables cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF ( LIPR ) THEN WRITE( IOUT, 94000 ) '' WRITE( IOUT, 94000 ) CEES WRITE( IOUT, 96140 ) WRITE( IOUT, 94000 ) CEES NSETS = ( ( NPRCS - 1 ) / ( 3 * MAXCNT ) ) + 1 DO NS = 1, NSETS NLO = ( NS - 1 ) * ( 3 * MAXCNT ) + 1 NHI = MIN( ( NS * 3 * MAXCNT ), NPRCS ) WRITE( IOUT, 96290 ) NLO, NHI DO NPA = NLO, NHI BUF20( NPA ) = ' "' // PROCNAME( NPA ) // '",' END DO BUF20( NHI )( 20:21 ) = ' /' call listout( NLO, NHI, 3, IOUT, BUF20 ) END DO END IF IF ( N_IPR_SPC .GT. 0 ) THEN NSETS = ( ( N_IPR_SPC - 1 ) / ( 10 * MAXCNT ) ) + 1 DO NS = 1, NSETS NLO = ( NS - 1 ) * ( 10 * MAXCNT ) + 1 NHI = MIN( ( NS * 10 * MAXCNT ), N_IPR_SPC ) WRITE( IOUT, 96300 ) NLO, NHI DO NPA = NLO, NHI WRITE( BUF6( NPA ), "( I5, ',' )" ) NCGRID( NPA ) END DO BUF6( NHI )( 6:7 ) = ' /' call listout( NLO, NHI, 10, IOUT, BUF6 ) END DO END IF IF ( N_IPR_SPC .GT. 0 ) THEN DO NPA = 1, NIPRVAR NSETS = ( ( NPRCS - 1 ) / ( 10 * MAXCNT ) ) + 1 DO NS = 1, NSETS NLO = ( NS - 1 ) * ( 10 * MAXCNT ) + 1 NHI = MIN( ( NS * 10 * MAXCNT ), NPRCS ) WRITE( IOUT, 96340 ) NPA, NLO, NHI DO N = NLO, NHI WRITE( BUF6( N ), 96080 ) MASK_IPR_PROC( NPA, N ) END DO BUF6( NHI )( 6:7 ) = ' /' call listout( NLO, NHI, 10, IOUT, BUF6 ) END DO END DO END IF IF ( N_IPR_SPC .GT. 0 ) THEN DO NPA = 1, N_IPR_SPC NSETS = ( ( NCGRID( NPA ) - 1 ) / ( 10 * MAXCNT ) ) + 1 DO NS = 1, NSETS NLO = ( NS - 1 ) * ( 10 * MAXCNT ) + 1 NHI = MIN( ( NS * 10 * MAXCNT ), NCGRID( NPA ) ) WRITE( IOUT, 96360 ) NPA, NLO, NHI DO N = NLO, NHI WRITE( BUF6( N ), 96080 ) MAP_IPRtoCGRID( NPA, N ) END DO BUF6( NHI )( 6:7 ) = ' /' call listout( NLO, NHI, 10, IOUT, BUF6 ) END DO END DO END IF IF ( N_IPR_SPC .GT. 0 ) THEN DO NPA = 1, N_IPR_SPC NSETS = ( ( NCGRID( NPA ) - 1 ) / ( 10 * MAXCNT ) ) + 1 DO NS = 1, NSETS NLO = ( NS - 1 ) * ( 10 * MAXCNT ) + 1 NHI = MIN( ( NS * 10 * MAXCNT ), NCGRID( NPA ) ) WRITE( IOUT, 96380 ) NPA, NLO, NHI DO N = NLO, NHI WRITE( BUF6( N ), 96080 ) MAP_IPRtoSAVE( NPA, N ) END DO BUF6( NHI )( 6:7 ) = ' /' call listout( NLO, NHI, 10, IOUT, BUF6 ) END DO END DO END IF IF ( LIPR ) THEN NSETS = ( ( NPRCS - 1 ) / ( 5 * MAXCNT ) ) + 1 DO NS = 1, NSETS NLO = ( NS - 1 ) * ( 5 * MAXCNT ) + 1 NHI = MIN( ( NS * 5 * MAXCNT ), NPRCS ) WRITE( IOUT, 96400 ) NLO, NHI DO N = NLO, NHI IF ( ANY( MASK_IPR_PROC( :,N )) ) THEN BUF12( N ) = ' .TRUE., ' ELSE BUF12( N ) = ' .FALSE., ' END IF END DO BUF12( NHI )( 12:13 ) = ' /' call listout( NLO, NHI, 5, IOUT, BUF12 ) END DO END IF IF ( N_IPR_SPC .GT. 0 ) THEN DO NPA = 1, N_IPR_SPC NSETS = ( ( NCGRID( NPA ) - 1 ) / ( 5 * MAXCNT ) ) + 1 DO NS = 1, NSETS NLO = ( NS - 1 ) * ( 5 * MAXCNT ) + 1 NHI = MIN( ( NS * 5 * MAXCNT ), NCGRID( NPA ) ) WRITE( IOUT, 96420 ) NPA, NLO, NHI DO N = 1, NCGRID( NPA ) WRITE( BUF12( N ), 96100 ) SPCOEF( NPA, N ) END DO BUF12( NHI )( 12:13 ) = ' /' WRITE( IOUT, 96060 ) ( BUF12( N ), N = NLO, NHI ) END DO END DO END IF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Write data statements for IRR variables cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF ( LPARTIRR ) THEN WRITE( IOUT, 94000 ) WRITE( IOUT, 94000 ) CEES WRITE( IOUT, 96160 ) WRITE( IOUT, 94000 ) CEES IF ( NIRRVAR .GT. 0 ) THEN NSETS = ( ( NIRRVAR - 1 ) / ( 10 * MAXCNT ) ) + 1 DO NS = 1, NSETS NLO = ( NS - 1 ) * ( 10 * MAXCNT ) + 1 NHI = MIN( ( NS * 10 * MAXCNT ), NIRRVAR ) WRITE( IOUT, 96440 ) NLO, NHI DO NIRR = NLO, NHI WRITE( BUF6( NIRR ), 96080 ) NIRRRXNS( NIRR ) END DO BUF6( NHI )( 6:7 ) = ' /' call listout( NLO, NHI, 10, IOUT, BUF6 ) END DO END IF IF ( NUMTEMPS .GT. 0 ) THEN NSETS = ( ( NUMTEMPS - 1 ) / ( 10 * MAXCNT ) ) + 1 DO NS = 1, NSETS NLO = ( NS - 1 ) * ( 10 * MAXCNT ) + 1 NHI = MIN( ( NS * 10 * MAXCNT ), NUMTEMPS ) WRITE( IOUT, 96460 ) NLO, NHI DO NIRR = NLO, NHI WRITE( BUF6( NIRR ), 96080 ) TEMPTERMS( NIRR ) END DO BUF6( NHI )( 6:7 ) = ' /' call listout( NLO, NHI, 10, IOUT, BUF6 ) END DO END IF IF ( NUMOUTPOS .GT. 0 ) THEN NSETS = ( ( NUMOUTPOS - 1 ) / ( 10 * MAXCNT ) ) + 1 DO NS = 1, NSETS NLO = ( NS - 1 ) * ( 10 * MAXCNT ) + 1 NHI = MIN( ( NS * 10 * MAXCNT ), NUMOUTPOS ) WRITE( IOUT, 96480 ) NLO, NHI DO NIRR = NLO, NHI WRITE( BUF6( NIRR ), 96080 ) TEMPOUTPOS( NIRR ) END DO BUF6( NHI )( 6:7 ) = ' /' call listout( NLO, NHI, 10, IOUT, BUF6 ) END DO END IF IF ( NUMOUTNEG .GT. 0 ) THEN NSETS = ( ( NUMOUTNEG - 1 ) / ( 10 * MAXCNT ) ) + 1 DO NS = 1, NSETS NLO = ( NS - 1 ) * ( 10 * MAXCNT ) + 1 NHI = MIN( ( NS * 10 * MAXCNT ), NUMOUTNEG ) WRITE( IOUT, 96500 ) NLO, NHI DO NIRR = NLO, NHI WRITE( BUF6( NIRR ), 96080 ) TEMPOUTNEG( NIRR ) END DO BUF6( NHI )( 6:7 ) = ' /' call listout( NLO, NHI, 10, IOUT, BUF6 ) END DO END IF IF ( NUMOUTIND .GT. 0 ) THEN NSETS = ( ( NUMOUTIND - 1 ) / ( 10 * MAXCNT ) ) + 1 DO NS = 1, NSETS NLO = ( NS - 1 ) * ( 10 * MAXCNT ) + 1 NHI = MIN( ( NS * 10 * MAXCNT ), NUMOUTIND ) WRITE( IOUT, 96520 ) NLO, NHI DO NIRR = NLO, NHI WRITE( BUF6( NIRR ), 96080 ) TEMPOUTIND( NIRR ) END DO BUF6( NHI )( 6:7 ) = ' /' call listout( NLO, NHI, 10, IOUT, BUF6 ) END DO END IF IF ( NUMOUTPOS .GT. 0 ) THEN NSETS = ( ( NUMOUTPOS - 1 ) / ( 10 * MAXCNT ) ) + 1 DO NS = 1, NSETS NLO = ( NS - 1 ) * ( 10 * MAXCNT ) + 1 NHI = MIN( ( NS * 10 * MAXCNT ), NUMOUTPOS ) WRITE( IOUT, 96540 ) NLO, NHI DO NIRR = NLO, NHI WRITE( BUF6( NIRR ), 96080 ) INDXOUTPOS( NIRR ) END DO BUF6( NHI )( 6:7 ) = ' /' call listout( NLO, NHI, 10, IOUT, BUF6 ) END DO END IF IF ( NUMOUTNEG .GT. 0 ) THEN NSETS = ( ( NUMOUTNEG - 1 ) / ( 10 * MAXCNT ) ) + 1 DO NS = 1, NSETS NLO = ( NS - 1 ) * ( 10 * MAXCNT ) + 1 NHI = MIN( ( NS * 10 * MAXCNT ), NUMOUTNEG ) WRITE( IOUT, 96560 ) NLO, NHI DO NIRR = NLO, NHI WRITE( BUF6( NIRR ), 96080 ) INDXOUTNEG( NIRR ) END DO BUF6( NHI )( 6:7 ) = ' /' call listout( NLO, NHI, 10, IOUT, BUF6 ) END DO END IF IF ( NUMOUTIND .GT. 0 ) THEN NSETS = ( ( NUMOUTIND - 1 ) / ( 10 * MAXCNT ) ) + 1 DO NS = 1, NSETS NLO = ( NS - 1 ) * ( 10 * MAXCNT ) + 1 NHI = MIN( ( NS * 10 * MAXCNT ), NUMOUTIND ) WRITE( IOUT, 96580 ) NLO, NHI DO NIRR = NLO, NHI WRITE( BUF6( NIRR ), 96080 ) INDXOUTIND( NIRR ) END DO BUF6( NHI )( 6:7 ) = ' /' call listout( NLO, NHI, 10, IOUT, BUF6 ) END DO END IF IF ( NIRRVAR .GT. 0 ) THEN DO NIRR = 1, NIRRVAR IF ( NIRRRXNS( NIRR ) .GT. 0 ) THEN NSETS = ( ( NIRRRXNS( NIRR ) - 1 ) / ( 10 * MAXCNT ) ) + 1 DO NS = 1, NSETS NLO = ( NS - 1 ) * ( 10 * MAXCNT ) + 1 NHI = MIN( ( NS * 10 * MAXCNT ), NIRRRXNS( NIRR ) ) WRITE( IOUT, 96600 ) NIRR, NLO, NHI DO N = NLO, NHI WRITE( BUF6( N ), 96080 ) IRRRXN( NIRR, N ) END DO BUF6( NHI )( 6:7 ) = ' /' call listout( NLO, NHI, 10, IOUT, BUF6 ) END DO END IF END DO END IF IF ( NUMTEMPS .GT. 0 ) THEN DO NIRR= 1, NUMTEMPS IF ( TEMPTERMS( NIRR ) .GT. 0 ) THEN NSETS = ( ( TEMPTERMS( NIRR ) - 1 ) / ( 10 * MAXCNT ) ) + 1 DO NS = 1, NSETS NLO = ( NS - 1 ) * ( 10 * MAXCNT ) + 1 NHI = MIN( ( NS * 10 * MAXCNT ), TEMPTERMS( NIRR ) ) WRITE( IOUT, 96620 ) NIRR, NLO, NHI DO N = NLO, NHI WRITE( BUF6( N ), 96080 ) TEMPRXN( NIRR, N ) END DO BUF6( NHI )( 6:7 ) = ' /' call listout( NLO, NHI, 10, IOUT, BUF6 ) END DO END IF END DO END IF IF ( NUMOUTPOS .GT. 0 ) THEN NSETS = ( ( NUMOUTPOS - 1 ) / ( 5 * MAXCNT ) ) + 1 DO NS = 1, NSETS NLO = ( NS - 1 ) * ( 5 * MAXCNT ) + 1 NHI = MIN( ( NS * 5 * MAXCNT ), NUMOUTPOS ) WRITE( IOUT, 96640 ) NLO, NHI DO NIRR = NLO, NHI WRITE( BUF12( NIRR ), 96100 ) COEFOUTPOS( NIRR ) END DO BUF12( NHI )( 12:13 ) = ' /' ! WRITE( IOUT, 96060 ) ( BUF12( NIRR ), NIRR = NLO, NHI ) call listout( NLO, NHI, 5, IOUT, BUF12 ) END DO END IF IF ( NUMOUTNEG .GT. 0 ) THEN NSETS = ( ( NUMOUTNEG - 1 ) / ( 5 * MAXCNT ) ) + 1 DO NS = 1, NSETS NLO = ( NS - 1 ) * ( 5 * MAXCNT ) + 1 NHI = MIN( ( NS * 5 * MAXCNT ), NUMOUTNEG ) WRITE( IOUT, 96660 ) NLO, NHI DO NIRR = NLO, NHI WRITE( BUF12( NIRR ), 96100 ) COEFOUTNEG( NIRR ) END DO BUF12( NHI )( 12:13 ) = ' /' ! WRITE( IOUT, 96060 ) ( BUF12( NIRR ), NIRR = NLO, NHI ) call listout( NLO, NHI, 5, IOUT, BUF12 ) END DO END IF IF ( NUMOUTIND .GT. 0 ) THEN NSETS = ( ( NUMOUTIND - 1 ) / ( 5 * MAXCNT ) ) + 1 DO NS = 1, NSETS NLO = ( NS - 1 ) * ( 5 * MAXCNT ) + 1 NHI = MIN( ( NS * 5 * MAXCNT ), NUMOUTIND ) WRITE( IOUT, 96680 ) NLO, NHI DO NIRR = NLO, NHI WRITE( BUF12( NIRR ), 96100 ) COEFOUTIND( NIRR ) END DO BUF12( NHI )( 12:13 ) = ' /' ! WRITE( IOUT, 96060 ) ( BUF12( NIRR ), NIRR = NLO, NHI ) call listout( NLO, NHI, 5, IOUT, BUF12 ) END DO END IF IF ( NUMTEMPS .GT. 0 ) THEN DO NIRR= 1, NUMTEMPS IF ( TEMPTERMS( NIRR ) .GT. 0 ) THEN NSETS = ( ( TEMPTERMS( NIRR ) - 1 ) / ( 5 * MAXCNT ) ) + 1 DO NS = 1, NSETS NLO = ( NS - 1 ) * ( 5 * MAXCNT ) + 1 NHI = MIN( ( NS * 5 * MAXCNT ), TEMPTERMS( NIRR ) ) WRITE( IOUT, 96700 ) NIRR, NLO, NHI DO N = NLO, NHI WRITE( BUF12( N ), 96100 ) TEMPCOEF( NIRR, N ) END DO BUF12( NHI )( 12:13 ) = ' /' ! WRITE( IOUT, 96060 ) ( BUF12( N ), N = NLO, NHI ) call listout( NLO, NHI, 5, IOUT, BUF12 ) END DO END IF END DO END IF IF ( NIRRVAR .GT. 0 ) THEN DO NIRR = 1, NIRRVAR IF ( NIRRRXNS( NIRR ) .GT. 0 ) THEN NSETS = ( ( NIRRRXNS( NIRR ) - 1 ) / ( 5 * MAXCNT ) ) + 1 DO NS = 1, NSETS NLO = ( NS - 1 ) * ( 5 * MAXCNT ) + 1 NHI = MIN( ( NS * 5 * MAXCNT ), NIRRRXNS( NIRR ) ) WRITE( IOUT, 96720 ) NIRR, NLO, NHI DO N = NLO, NHI WRITE( BUF12( N ), 96100 ) IRRCOEF( NIRR, N ) END DO BUF12( NHI )( 12:13 ) = ' /' ! WRITE( IOUT, 96060 ) ( BUF12( N ), N = NLO, NHI ) call listout( NLO, NHI, 5, IOUT, BUF12 ) END DO END IF END DO END IF END IF 999 CONTINUE LINOUT = '' WRITE( IOUT, 94000 ) LINOUT( 1:LEN_TRIM( LINOUT ) ) LINOUT = ' END MODULE PA_DEFN' WRITE( IOUT, 94000 ) LINOUT( 1:LEN_TRIM( LINOUT ) ) CLOSE( IOUT ) RETURN C----------------------- FORMAT Statements ----------------------------- 94000 FORMAT( A ) 94020 FORMAT( & 'c The following variables are used to control calls to', & ' the Integrated' / & 'c Process Rate and Integrated Reaction Rate routines:' ) 94040 FORMAT( & 'c LIPR = Flag for calculating Integrated Process Rates' / & 'c LIRR = Flag for calculating Integrated Reaction Rates' ) 94080 FORMAT( 6X, 'LOGICAL, PARAMETER :: LIPR = .TRUE.' / ) 94100 FORMAT( 6X, 'LOGICAL, PARAMETER :: LIPR = .FALSE.' / ) 94140 FORMAT( 6X, 'LOGICAL, PARAMETER :: LIRR = .TRUE.' / ) 94160 FORMAT( 6X, 'LOGICAL, PARAMETER :: LIRR = .FALSE.' / ) C----------------------- FORMAT Statements ----------------------------- 95020 FORMAT( & 'c Integrated Reaction Rates are not being computed. All', & ' associated'/ & 'c arrays will be set to the smallest possible dimension.' ) 95040 FORMAT( & 'c Integrated Process Rates are not being computed. All', & ' associated'/ & 'c arrays will be set to the smallest possible dimension.' ) 95120 FORMAT( &'c The following variables are used in the output file ', & 'descriptions' ) 95140 FORMAT( &'c NIPRVAR = Number of IPR output variables'/ &'c NIRRVAR = Number of IRR output variables'/ &'c NIPRVARD = Dimension for IPR output variables'/ &'c NIRRVARD = Dimension for IRR output variables'/ &'c IPRNAME = Name of IPR output variable'/ &'c IRRNAME = Name of IRR output variable'/ &'c IPRDESC = Extended name of IPR output variable'/ &'c IRRDESC = Extended name of IRR output variable' ) 95160 FORMAT( / & 6X, 'INTEGER, PARAMETER :: NIPRVAR =', I4, ',', & 2X, 'NIPRVARD =', I4 ) 95180 FORMAT( / & 6X, 'INTEGER, PARAMETER :: NIRRVAR =', I4, ',', & 2X, 'NIRRVARD =', I4 / ) 95200 FORMAT( & 6X, 'CHARACTER( 16 ) :: IPRNAME( NIPRVARD )' / & 6X, 'CHARACTER( 60 ) :: IPRDESC( NIPRVARD )' / & 6X, 'CHARACTER( 16 ) :: IRRNAME( NIRRVARD )' / & 6X, 'CHARACTER( 60 ) :: IRRDESC( NIRRVARD )' / ) 95260 FORMAT( & 'c The following variables are used in the integrated process', & ' rate '/'c computations.' ) 95280 FORMAT( & 'c NPRCS = No. of science processes that can be monitored' / & 'c N_IPR_SPC = Number of families for IPR' / & 'c MXCGRID = Max number of CTM species in an IPR family' / & 'c N_IPR_SPCD = Dimension for number of families for IPR' / & 'c MXCGRIDD = Dimension for MXCGRID' / & 'c NCGRID = Array of no. of CTM species in an IPR family' / & 'c IPROUT = Array of IPR output variable indices' / & 'c IPR2GRD = Array of CTM species indices for IPR families' / & 'c IPR2SAV = Array of saved species indices for IPR families' / & 'c SV2GRD = Array of CTM indicies for saved concs' / & 'c SPCOEF = Array of coefficients for IPR familys' ) 95300 FORMAT( / & 6X, 'INTEGER, PARAMETER :: NPRCS =', I4 / & 6X, 'INTEGER, PARAMETER :: N_IPR_SPC =', I4, ',', & 2X, 'N_IPR_SPCD =', I4 / & 6X, 'INTEGER, PARAMETER :: MXCGRID =', I4, ',', & 2X, 'MXCGRIDD =', I4 / ) 95320 FORMAT( & 6X, 'CHARACTER( 16 ) :: PROCNAME( NPRCS )' / & 6X, 'LOGICAL LPROCOUT( NPRCS )' // & 6X, 'INTEGER NCGRID ( N_IPR_SPCD )' / & 6X, 'INTEGER IPROUT ( N_IPR_SPCD,NPRCS )' / & 6X, 'INTEGER IPR2GRD( N_IPR_SPCD,MXCGRIDD )' / & 6X, 'INTEGER IPR2SAV( N_IPR_SPCD,MXCGRIDD )' // & 6X, 'REAL SPCOEF ( N_IPR_SPCD,MXCGRIDD )' ) 95360 FORMAT( & 'c The following variables are used in the integrated reaction', & ' rate' / 'c computations.' ) 95380 FORMAT( & 'c LFULLIRR = Flag for computing IRRs for every reaction' / & 'c LPARTIRR = Flag for computing IRRs for selected', & ' reactions' / & 'c NUMTEMPS = No. of temporary intermediate IRRs to', & ' compute' / & 'c NUMOUTPOS = No. of temp. IRR terms to add iff the', & ' IRR > 0' / & 'c NUMOUTNEG = No. of temp. IRR terms to add iff the', & ' IRR < 0' / & 'c NUMOUTIND = No. of temp. IRR terms to add regardless', & ' of sign' / & 'c MXNIRRRXNS = Max no. of reaction terms in an output IRR' / & 'c MXTEMPTRMS = Max no. of reaction terms in a temp. IRR' / & 'c NUMTEMPSD = Dimension for number of temp IRRs' / & 'c NUMOUTPOSD = Dimension parameter for NUMOUTPOS' / & 'c NUMOUTNEGD = Dimension parameter for NUMOUTNEG' / & 'c NUMOUTINDD = Dimension parameter for NUMOUTIND' / & 'c MXNIRRRXNSD = Dimension parameter for MXNIRRRXNS' / & 'c MXTEMPTRMSD = Dimension parameter for MXTEMPTRMS' / & 'c NIRRRXNS = Vector of no. of reaction terms in an', & ' output IRR' / & 'c TEMPTERMS = Vector of no. of terms in a temporary IRR' / & 'c TEMPOUTPOS = Vector of no. of IRR terms to add if', & ' IRR > 0' / & 'c TEMPOUTNEG = Vector of no. of IRR terms to add if', & ' IRR < 0' / & 'c TEMPOUTIND = Vector of no. of IRR terms to add', & ' regardless of sign' / & 'c INDXOUTPOS = Vector of indices pointing to IRR output', & ' variable' / & 'c INDXOUTNEG = Vector of indices pointing to IRR output', & ' variable' / & 'c INDXOUTIND = Vector of indices pointing to IRR output', & ' variable' / & 'c COEFOUTPOS = Vector of temp IRR coefficients' / & 'c COEFOUTNEG = Vector of temp IRR coefficients' / & 'c COEFOUTIND = Vector of temp IRR coefficients' / & 'c TEMPRXN = Array of reaction nos. for a temp. IRR' / & 'c IRRRXN = Array of reaction nos. for an output IRR' / & 'c TEMPCOEF = Array of reaction coefficients for a', & ' temp IRR' / & 'c IRRCOEF = Array of reaction coefficients for an', & ' output IRR' / & 'c IRRSTEP = Array of output IRRs for one time step' / & 'c IRRBLK = Array of output IRRs for a block of cells' / & 'c IRROUT = Array of IRRs to output' ) 95420 FORMAT( / 6X, 'LOGICAL, PARAMETER :: LFULLIRR = .TRUE.' ) 95440 FORMAT( / 6X, 'LOGICAL, PARAMETER :: LFULLIRR = .FALSE.' ) 95480 FORMAT( / 6X, 'LOGICAL, PARAMETER :: LPARTIRR = .TRUE.' ) 95500 FORMAT( / 6X, 'LOGICAL, PARAMETER :: LPARTIRR = .FALSE.' ) 95520 FORMAT( / & 6X, 'INTEGER, PARAMETER :: NUMTEMPS =', I4, ',', & 2X, 'NUMTEMPSD =', I4 / & 6X, 'INTEGER, PARAMETER :: NUMOUTPOS =', I4, ',', & 2X, 'NUMOUTPOSD =', I4 / & 6X, 'INTEGER, PARAMETER :: NUMOUTNEG =', I4, ',', & 2X, 'NUMOUTNEGD =', I4 / & 6X, 'INTEGER, PARAMETER :: NUMOUTIND =', I4, ',', & 2X, 'NUMOUTINDD =', I4 / & 6X, 'INTEGER, PARAMETER :: MXNIRRRXNS =', I4, ',', & 2X, 'MXNIRRRXNSD =', I4 / & 6X, 'INTEGER, PARAMETER :: MXTEMPTRMS =', I4, ',', & 2X, 'MXTEMPTRMSD =', I4 ) 95542 FORMAT( / & 6X, 'INTEGER, PARAMETER :: BLKSIZED = BLKSIZE' ) 95544 FORMAT( / & 6X, 'INTEGER, PARAMETER :: BLKSIZED = 1' ) 95580 FORMAT( / & 6X, 'INTEGER NIRRRXNS ( NIRRVARD )' / & 6X, 'INTEGER TEMPTERMS ( NUMTEMPSD )' / & 6X, 'INTEGER TEMPOUTPOS( NUMOUTPOSD )' / & 6X, 'INTEGER INDXOUTPOS( NUMOUTPOSD )' / & 6X, 'INTEGER TEMPOUTNEG( NUMOUTNEGD )' / & 6X, 'INTEGER INDXOUTNEG( NUMOUTNEGD )' / & 6X, 'INTEGER TEMPOUTIND( NUMOUTINDD )' / & 6X, 'INTEGER INDXOUTIND( NUMOUTINDD )' / & 6X, 'INTEGER IRRRXN ( NIRRVARD,MXNIRRRXNSD )' / & 6X, 'INTEGER TEMPRXN ( NUMTEMPSD,MXTEMPTRMSD )' // & 6X, 'REAL COEFOUTPOS( NUMOUTPOSD )' / & 6X, 'REAL COEFOUTNEG( NUMOUTNEGD )' / & 6X, 'REAL COEFOUTIND( NUMOUTINDD )' / & 6X, 'REAL TEMPCOEF ( NUMTEMPSD,MXTEMPTRMSD )' / & 6X, 'REAL IRRCOEF ( NIRRVARD,MXNIRRRXNSD )' / & 6X, 'REAL IRRSTEP ( BLKSIZED,NIRRVARD )' / & 6X, 'REAL IRRBLK ( BLKSIZED,NIRRVARD )' ) C----------------------- FORMAT Statements ----------------------------- 96060 FORMAT( 5X, '& ', 5A13 ) 96080 FORMAT( I5, ',' ) 96100 FORMAT( F11.4, ',' ) 96110 FORMAT( 'c Neither IPR nor IRR calculations are being done.' / & 'c Additional data are not required' ) 96120 FORMAT( 'c Output file descriptor data' ) 96140 FORMAT( 'c IPR data' ) 96160 FORMAT( 'c IRR data' ) 96200 FORMAT( /6X, 'INTEGER TERM' ) 96220 FORMAT( /6X, 'DATA ( IPRNAME( TERM ), TERM =', I4, ', ', I4, ' ) /' ) 96240 FORMAT( /6X, 'DATA ( IPRDESC( TERM ), TERM =', I4, ', ', I4, ' ) /' ) 96260 FORMAT( /6X, 'DATA ( IRRNAME( TERM ), TERM =', I4, ', ', I4, ' ) /' ) 96280 FORMAT( /6X, 'DATA ( IRRDESC( TERM ), TERM =', I4, ', ', I4, ' ) /' ) 96290 FORMAT( /6X, 'DATA ( PROCNAME( TERM ), TERM =', I4, ', ', I4, ' ) /' ) 96300 FORMAT( /6X, 'DATA ( NCGRID( TERM ), TERM =', I4, ', ', I4, ' ) /' ) 96320 FORMAT( /6X, 'DATA ( SV2GRD( TERM ), TERM =', I4, ', ', I4, ' ) /' ) 96340 FORMAT( /6X, 'DATA ( IPROUT( ', I3, ', TERM ), TERM =', I4, ', ', I4, ' ) /' ) 96360 FORMAT( /6X, 'DATA ( IPR2GRD( ', I3, ', TERM ), TERM =', I4, ', ', I4, ' ) /' ) 96380 FORMAT( /6X, 'DATA ( IPR2SAV( ', I3, ', TERM ), TERM =', I4, ', ', I4, ' ) /' ) 96400 FORMAT( /6X, 'DATA ( LPROCOUT( TERM ), TERM =', I4, ', ', I4, ' ) /' ) 96420 FORMAT( /6X, 'DATA ( SPCOEF( ', I3, ', TERM ), TERM =', I4, ', ', I4, ' ) /' ) 96440 FORMAT( /6X, 'DATA ( NIRRRXNS( TERM ), TERM =', I4, ', ', I4, ' ) /' ) 96460 FORMAT( /6X, 'DATA ( TEMPTERMS( TERM ), TERM =', I4, ', ', I4, ' ) /' ) 96480 FORMAT( /6X, 'DATA ( TEMPOUTPOS( TERM ), TERM =', I4, ', ', I4, ' ) /' ) 96500 FORMAT( /6X, 'DATA ( TEMPOUTNEG( TERM ), TERM =', I4, ', ', I4, ' ) /' ) 96520 FORMAT( /6X, 'DATA ( TEMPOUTIND( TERM ), TERM =', I4, ', ', I4, ' ) /' ) 96540 FORMAT( /6X, 'DATA ( INDXOUTPOS( TERM ), TERM =', I4, ', ', I4, ' ) /' ) 96560 FORMAT( /6X, 'DATA ( INDXOUTNEG( TERM ), TERM =', I4, ', ', I4, ' ) /' ) 96580 FORMAT( /6X, 'DATA ( INDXOUTIND( TERM ), TERM =', I4, ', ', I4, ' ) /' ) 96600 FORMAT( /6X, 'DATA ( IRRRXN( ', I3, ', TERM ), TERM =', I4, ', ', I4, ' ) /' ) 96620 FORMAT( /6X, 'DATA ( TEMPRXN( ', I3, ', TERM ), TERM =', I4, ', ', I4, ' ) /' ) 96640 FORMAT( /6X, 'DATA ( COEFOUTPOS( TERM ), TERM =', I4, ', ', I4, ' ) /' ) 96660 FORMAT( /6X, 'DATA ( COEFOUTNEG( TERM ), TERM =', I4, ', ', I4, ' ) /' ) 96680 FORMAT( /6X, 'DATA ( COEFOUTIND( TERM ), TERM =', I4, ', ', I4, ' ) /' ) 96700 FORMAT( /6X, 'DATA ( TEMPCOEF( ', I3, ', TERM ), TERM =', I4, ', ', I4, ' ) /' ) 96720 FORMAT( /6X, 'DATA ( IRRCOEF( ', I3, ', TERM ), TERM =', I4, ', ', I4, ' ) /' ) contains C======================================================================= subroutine listout ( lo, hi, n_form, iout, buf ) C format a list and write to iout C n_form can be 3, 5, or 10 integer, intent (in ) :: lo, hi, n_form, iout character( * ), intent( in ) :: buf( * ) character( 80 ) :: linout character( 19 ) :: fstr integer i, j, k, n, rng, last select case ( n_form ) case( 3 ) ! associated w/ buf20 fstr = "( 5x, '& ', 3a21 )" case( 5 ) ! associated w/ buf12 fstr = "( 5x, '& ', 5a13 )" case( 10 ) ! associated w/ buf6 fstr = "( 5x, '& ', 10a7 )" case default write( *,* ) '*** INVALID format ', n_form stop end select rng = hi - lo + 1 last = mod( rng, n_form ) i = lo do k = 1, rng / n_form j = i + n_form - 1 write( linout, fstr ) ( buf( n ), n = i, j ) write( iout, '( a )' ) linout( 1:len_trim( linout ) ) i = j + 1 end do if ( last .gt. 0 ) then j = i + last - 1 write( linout, fstr ) ( buf( n ), n = i, j ) write( iout, '( a )' ) linout( 1:len_trim( linout ) ) end if end subroutine listout END SUBROUTINE PA_WRTPADEFN ================================================ FILE: CCTM/src/pv_o3/pvo3.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE PVO3( CGRID, JDATE, JTIME ) C----------------------------------------------------------------------- C Function: Scales O3 in free-troposphere to potential vorticity C Revision History: C Prototype, Rohit Mathur, Nov. 2007 C Scaling only at top layer; scaling factor based on 2006 IONS O3 and C PV estimated from NAM at ~100mb, Rohit Mathur, Nov. 2008 C Incorporation in CMAQv4.7.1, Rohit Mathur, Jan.2010 C 12 Mar 2019 D. Wong: Implemented centralized I/O approach and removed all MY_N clauses C 1 Apr 2019 D. Wong: Remove call to SUBHFILE C March 2023 R.Mathur: removed sigma-coordinate dependence in determing layers C above which PV-scaling is applied C----------------------------------------------------------------------- USE CGRID_SPCS ! CGRID mechanism species USE GRID_CONF ! horizontal & vertical domain specifications USE UTILIO_DEFN USE CENTRALIZED_IO_MODULE, only : interpolate_var, lat #ifdef isam USE SA_DEFN, ONLY: ISAM, N_SPCTAG, NTAG_SA, ITAG, OTHRTAG, & ISAM_PVO3_MAP, ISAM_SPEC, L_OZONE, & ISAMRGN_NUM, ISAMRGN_MAP, NSPC_SA USE desid_param_module, ONLY: DESID_REG_FAC, DESID_N_REG #endif #ifdef sens USE DDM3D_DEFN, ONLY : NP, NPMAX, SENGRID, IPT #endif IMPLICIT NONE C..Includes: INCLUDE SUBST_FILES_ID ! CMAQ files INCLUDE SUBST_CONST ! CMAQ constants C..Parameters: REAL, PARAMETER :: PSFC = 100000.0 ! generic surface pres. [Pa] C To scale O3 with PV at specified altitudes, set highest pressure level to exclude C PV scaling: REAL, PARAMETER :: PPVT = 11000.0 ! [Pa] (~14-16km or X3 > 0.93) REAL, PARAMETER :: AX = 203.53 REAL, PARAMETER :: BX = -13.622 REAL, PARAMETER :: CX = 5.4157E-1 REAL, PARAMETER :: DX = -9.4264E-3 REAL, PARAMETER :: EX = 7.299E-5 REAL, PARAMETER :: FX = -2.0214E-7 REAL, PARAMETER :: AY = -2.1902E-2 REAL, PARAMETER :: BY = 4.5507E-4 REAL, PARAMETER :: CY = -2.4557E-6 C..Arguments: REAL, POINTER :: CGRID( :,:,:,: ) ! Species concentrations INTEGER, INTENT( IN ) :: JDATE ! Current date (YYYYDDD) INTEGER, INTENT( IN ) :: JTIME ! Current time (HHMMSS) C..Saved Local Variables: CHARACTER( 16 ), SAVE :: PNAME = 'PVO3' ! Program name LOGICAL, SAVE :: LFIRST = .TRUE. ! Flag for first call to this subroutine INTEGER, SAVE :: VO3 ! ozone INTEGER, SAVE :: VO3T = 0 ! tracer INTEGER, SAVE :: KPV C..Scratch Local Variables: CHARACTER( 132 ) :: MSG ! Message text CHARACTER( 16 ) :: VNAME ! Name of I/O API data variable CHARACTER( 120 ) :: XMSG = ' ' ! Exit status message INTEGER C, L, R ! Loop indices INTEGER ALLOCSTAT INTEGER YEAR INTEGER JDAY REAL CSTAR ! dynamic PV coefficiency REAL FC, GC ! cstar = fc * gc REAL LATABS ! absolute latitude REAL MFRC ! month fraction REAL PLAY ! pressure for layer applied REAL, ALLOCATABLE, SAVE :: CSTARZ( :,: ) ! cstar at 58hPa estimated by polynomial fit REAL, ALLOCATABLE, SAVE :: CXX( :,: ) ! intermediate quadratic (< 0 for any lat.) REAL :: PV( NCOLS,NROWS,NLAYS ) ! potential vorticity REAL PRES( NCOLS,NROWS,NLAYS ) ! Air pressure [ Pa ] #ifdef isam INTEGER, SAVE :: S_O3 = 0 REAL :: PVO3_STORE = 1.0 INTEGER :: RGN = 0 #endif C First time: set up parameters IF ( LFIRST ) THEN LFIRST = .FALSE. VO3 = INDEX1( 'O3', N_GC_SPC, GC_SPC ) WRITE( LOGDEV,92000 ) N_GC_SPC, VO3 C Get number of species, and starting indices for CGRID array. VO3T = INDEX1( 'O3PV', N_TR_SPC, TR_SPC ) IF ( VO3T .GT. 0 ) then XMSG = ' Option used: a tracer Namelist file with species O3PV' CALL M3MESG ( XMSG ) VO3T = TR_STRT - 1 + VO3T WRITE( LOGDEV,92001 ) TR_STRT-1, N_TR_SPC, VO3T END IF C Scale top 3 layers O3 to PV ! KPV = NLAYS - 2 C Scale only top layer O3 to PV ! KPV = NLAYS C WRITE( LOGDEV,92002 ) KPV, X3FACE_GD( KPV ) WRITE( LOGDEV,92003 ) PPVT ALLOCATE ( CSTARZ( NCOLS,NROWS ), & CXX( NCOLS,NROWS ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating CSTARZ, or CXX' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF #ifdef isam IF ( L_OZONE ) S_O3 = INDEX1( 'O3', NSPC_SA, ISAM_SPEC(:,OTHRTAG) ) #endif END IF ! First time C.. Get PV call interpolate_var ('PV', jdate, jtime, pv) C.. Get PRES call interpolate_var ('PRES', jdate, jtime, PRES) C.. Calculate month fraction YEAR = INT( FLOAT( JDATE ) / 1000.0 ) JDAY = JDATE - YEAR * 1000 IF ( MOD( YEAR, 4 ) .EQ. 0 ) THEN MFRC = FLOAT( JDAY ) / 366.0 ELSE MFRC = FLOAT( JDAY ) / 365.0 END IF GC = 1.0 + 0.22 * SIN( PI180 * 12.0 * ( MFRC * 30.0 + 2.0 ) ) C.. Scale O3 in free-trop based on PV C O3 in ppb = 30*PV or O3 in ppm = .03*PV C This constant of proportionality is determined based on examining the relationship C between NAM PV and average observed O3 at the 2006 IONS sites for the topmost layer C of a 22-layer configuration DO R = 1, NROWS DO C = 1, NCOLS LATABS = ABS( LAT( C,R ) ) CSTARZ( C,R ) = AX & + LATABS * ( BX & + LATABS * ( CX & + LATABS * ( DX & + LATABS * ( EX & + LATABS * ( FX ) ) ) ) ) CXX( C,R ) = AY & + LATABS * ( BY & + LATABS * ( CY ) ) END DO END DO C DO L = KPV, NLAYS DO L = 1, NLAYS DO R = 1, NROWS DO C = 1, NCOLS IF (PRES(C,R,L).LT.PPVT ) THEN ! scale O3 above PPVT FC = CSTARZ( C,R ) + ( PRES( C,R,L ) - 5856.0 ) * CXX( C,R ) CSTAR = MAX ( 30.0, ABS( FC * GC ) ) CGRID( C,R,L,VO3 ) = 0.001 * CSTAR * ABS( PV( C,R,L ) ) #ifdef isam IF ( L_OZONE ) THEN ISAM( C,R,L,S_O3,: ) = 1E-30 PVO3_STORE = 1.0 IF ( SUM( ISAM_PVO3_MAP(:) ) .EQ. 0 ) THEN ! no PV tracking specified, toss it into OTHER ISAM( C,R,L,S_O3,OTHRTAG ) = CGRID( C,R,L,VO3 ) ELSE IF ( SUM( ISAM_PVO3_MAP(:) ) .GE. 1 ) THEN ! at least 1 PVO3 tag DO ITAG = 1, NTAG_SA-3 IF( ISAM_PVO3_MAP(ITAG) .EQ. 1 ) THEN ! PV for this tag IF ( ISAMRGN_NUM( ITAG ) .LT. 1 ) THEN ! full domain ISAM( C,R,L,S_O3,ITAG ) = CGRID( C,R,L,VO3 ) PVO3_STORE = 0.0 ELSE ! split into regions and other DO RGN = 1, ISAMRGN_NUM( ITAG ) ISAM( C,R,L,S_O3,ITAG ) = ISAM( C,R,L,S_O3,ITAG ) & + CGRID( C,R,L,VO3 ) & * DESID_REG_FAC(C,R,ISAMRGN_MAP(ITAG,RGN)) PVO3_STORE = PVO3_STORE & - DESID_REG_FAC(C,R,ISAMRGN_MAP(ITAG,RGN)) END DO END IF END IF END DO IF ( PVO3_STORE .LT. 1E-6 .AND. PVO3_STORE .GT. 0.0 ) PVO3_STORE = 0.0 ! round off precision error IF ( PVO3_STORE .GE. 0.0 ) THEN ! put the rest into OTHER tag ISAM( C,R,L,S_O3,OTHRTAG ) = PVO3_STORE * CGRID( C,R,L,VO3 ) ELSE XMSG = ' ERROR: Possible overspecification of ' // & 'ISAM tags for PV' CALL M3EXIT ( 'ISAM_PV', JDATE, JTIME, XMSG, XSTAT1 ) ENDIF ELSE XMSG = ' ERROR in ISAM PV definitions ' CALL M3EXIT ( 'ISAM_PV', JDATE, JTIME, XMSG, XSTAT1 ) END IF END IF #endif #ifdef sens DO NP = 1, NPMAX IF ( IPT( NP ) .EQ. 6 ) THEN SENGRID( C, R, L, NP, VO3 ) = CGRID( C, R, L, VO3 ) END IF END DO #endif IF ( VO3T .GT. 0 ) THEN CGRID( C,R,L,VO3T ) = CGRID( C,R,L,VO3 ) END IF END IF ! check PPVT END DO END DO END DO RETURN 92000 FORMAT( / 10X, 'In Subroutine PVO3: setting index for O3 ' & / 10X, 'Number of gas phase species: ', I4 & / 10X, 'Species index for O3: ', I4 ) 92001 FORMAT( / 10X, 'In Subroutine PVO3: setting index for O3 ' & / 10X, 'CGRID offset for tracer species: ', I4 & / 10X, 'Number of tracer phase species: ', I4 & / 10X, 'Species index for O3PV tracer: ', I4 ) 92002 FORMAT( / 10X, 'PV Scaling at Layers Starting from: ', I4 & / 10X, 'X3 coordinate value at starting layer: ', F10.7 / ) 92003 FORMAT( / 10X, 'PV Scaling applied above ', F10.2, 'Pa') END ================================================ FILE: CCTM/src/reactive_tracers/DEGRADE_PARAMETERS.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! MODULE DEGRADE_PARAMETERS C********************************************************************** C C FUNCTION: Define arrays that identify species within CGRID used C based on input arrays C C REVISION HISTORY: 07/29/05 : B.Hutzell - Initial version C 06 May 11: B.Hutzell: convert for Namelist redesign C 09 May 11: B.Hutzell: enabled a degraded species to C be missing from namelists C C********************************************************************** IMPLICIT NONE C.....INCLUDES: C..declare and define variables used by maps and data INTEGER, PARAMETER :: N_REACT = 34 ! number of species being degraded INTEGER, PARAMETER :: N_UNI_LOSS = 1 ! Number of Unimolecular Loss Processes INTEGER, PARAMETER :: N_BI_LOSS = 5 ! Number of Bimolcular Loss processes INTEGER, PARAMETER :: N_TRI_LOSS = 2 ! Number of Bimolcular Loss processes INTEGER, PARAMETER :: N_PHOTO_LOSS = 2 ! Number of Photolysis Loss processes INTEGER, PARAMETER :: N_LANHIN_LOSS = 1 ! Number of Langmuir-Hinshelwood Loss Processes ! Total number of Loss processes INTEGER, PARAMETER :: N_PROCESSES = N_UNI_LOSS & + N_BI_LOSS & + N_PHOTO_LOSS & + N_TRI_LOSS & + N_LANHIN_LOSS CHARACTER(16), PARAMETER :: BLANK = ' ' ! default value for characters INTEGER, SAVE :: N_PHOTO_TAB ! Number of photolysis rates in mechanism INTEGER, SAVE :: N_REACT_FOUND ! Number ofreact species found in namelists C..looping data INTEGER :: UNI_START INTEGER :: BI_START INTEGER :: TRI_START INTEGER :: PHOTO_START INTEGER :: LANHIN_START INTEGER :: UNI_STOP INTEGER :: BI_STOP INTEGER :: TRI_STOP INTEGER :: PHOTO_STOP INTEGER :: LANHIN_STOP CHARACTER(16), ALLOCATABLE :: REACT( : ) ! names of species being degraded CHARACTER(16), ALLOCATABLE :: BICAUSE( :,: ) ! species name that cause degradation CHARACTER(16), ALLOCATABLE :: LHCAUSE( :,: ) ! species name that cause degradation CHARACTER(16), ALLOCATABLE :: TRICAUSE( :,:,: ) ! species name that cause degradation CHARACTER(16), ALLOCATABLE :: PHOTO_NAME( :,: ) ! name of photolysis rate for react(i) CHARACTER(16), ALLOCATABLE :: BI_PROD ( :,: ) ! name of daughter product for react(i) CHARACTER(16), ALLOCATABLE :: TRI_PROD ( :,: ) ! name of daughter product for react(i) CHARACTER(16), ALLOCATABLE :: PHOTO_PROD( :,: ) ! name of daughter product for react(i) CHARACTER(16), ALLOCATABLE :: UNI_PROD ( :,: ) ! name of daughter product for react(i) CHARACTER(16), ALLOCATABLE :: LH_PROD ( :,: ) ! name of daughter product for react(i) REAL(8), ALLOCATABLE :: UNIRATE ( :,: ) ! rate for unimolecular decay for react(i) [molecules/sec^1] REAL(8), ALLOCATABLE :: UNI_ACT ( :,: ) ! activation energy for UNIRATE(I) [K]. Positive if exothermic REAL(8), ALLOCATABLE :: UNI_TEXP ( :,: ) ! exponent of Temperature REAL, ALLOCATABLE :: UNI_YIELD( :,: ) ! production yield REAL(8), ALLOCATABLE :: BIRATE ( :,: ) ! degradation rates for bimolecular reactions, [cm^3/(sec*molecules)] REAL(8), ALLOCATABLE :: BI_ACT ( :,: ) ! activation energy for BIRATE(I) [K]. Positive if exothermic REAL(8), ALLOCATABLE :: BI_TEXP ( :,: ) ! exponent of Temperature REAL, ALLOCATABLE :: BI_YIELD( :,: ) ! production yield REAL(8), ALLOCATABLE :: TRIRATE ( :,: ) ! degradation rates for trimolecular reactions, [cm^3/(sec*molecules)] REAL(8), ALLOCATABLE :: TRI_ACT ( :,: ) ! activation energy for TRIRATE(I) [K]. Positive if exothermic REAL(8), ALLOCATABLE :: TRI_TEXP ( :,: ) ! exponent of Temperature REAL, ALLOCATABLE :: TRI_YIELD( :,: ) ! production yield REAL(8), ALLOCATABLE :: A_PHOTO ( :,: ) ! multiplier of photolysis rates REAL, ALLOCATABLE :: PHOTO_YIELD( :,: ) ! production yield ! Heterogeneous loss of aerosol species with Relative Humidity and Temperature cut-off. It uses an ! Langmuir-Hinshelwood isotherm to calculate the rate REAL(8), ALLOCATABLE :: LHRATE ( :,: ) ! degradation rates for Langmuir-Hinshelwood reactions, [1/sec] REAL(8), ALLOCATABLE :: LH_EQU ( :,: ) ! reactant adsorption and diffusion equilibruim constant, [cm^3/molecules] REAL, ALLOCATABLE :: LH_YIELD( :,: ) ! production yield REAL, ALLOCATABLE :: LH_RHMIN( :,: ) ! Minimum Relative Humidity for nonzero rate [fractional] REAL, ALLOCATABLE :: LH_TAMIN( :,: ) ! Minimum Air temperature for nonzero rate [K] INTEGER :: NDEGRADED_FOUND = 0 CHARACTER( 16 ), ALLOCATABLE :: DEGRADED_SPECIES( : ) C********************************************************************** CONTAINS SUBROUTINE DEGRADE_DATA() C********************************************************************** C C FUNCTION: Allocate arrays and define data used by degradation routines C C react(i) does not need the maximum number of causes for degradation. C Set "un-used" causes to "' '". C C Note, OH and HO both refer to hydroxyl concentrations. The redundancy exists because C current mechanisms for gas chemistry use OH or HO to refer to the radical. C C CALLED BY: INIT_DEGRADE C C REVISION HISTORY: : 07/29/05 : B.Hutzell - Initial version C 10/23/07 : B.Hutzell - added CL reactions for specific HAPs C 04/14/08 : B.Hutzell - Removed Benzene for AERO5 module C 08/31/11 : B.Hutzell - Removed removed capabilities with previous C HAPs mechanisms C********************************************************************** USE CGRID_SPCS ! CGRID species number and offsets IMPLICIT NONE LOGICAL, SAVE :: INITIALIZED = .FALSE. INTEGER :: MARKER, N, M ! indexes INTEGER :: I, J, K, L ! loop counters INTEGER, ALLOCATABLE :: INDEX_FOUND( : ) C********************************************************************** IF( INITIALIZED )RETURN INITIALIZED = .TRUE. C..looping data UNI_START = 1 BI_START = UNI_START + N_UNI_LOSS TRI_START = BI_START + N_BI_LOSS PHOTO_START = TRI_START + N_TRI_LOSS LANHIN_START = PHOTO_START + N_PHOTO_LOSS UNI_STOP = BI_START - 1 BI_STOP = TRI_START - 1 TRI_STOP = PHOTO_START - 1 PHOTO_STOP = LANHIN_START - 1 LANHIN_STOP = N_PROCESSES ALLOCATE( REACT ( N_REACT ) ) ! names of species being degraded ALLOCATE( BICAUSE ( N_BI_LOSS, N_REACT ) ) ! species name that cause degradation ALLOCATE( TRICAUSE ( 2, N_TRI_LOSS, N_REACT ) ) ! species name that cause degradation ALLOCATE( PHOTO_NAME( N_PHOTO_LOSS, N_REACT ) ) ! name of photolysis rate for react(i) ALLOCATE( LHCAUSE ( N_LANHIN_LOSS, N_REACT ) ) ! species name that cause degradation ALLOCATE( UNIRATE ( N_UNI_LOSS, N_REACT ) ) ! rate for unimolecular decay for react(i) [molecules/sec^1] ALLOCATE( UNI_ACT ( N_UNI_LOSS, N_REACT ) ) ! activation energy for UNIRATE(I) [K]. Positive if exothermic ALLOCATE( UNI_TEXP ( N_UNI_LOSS, N_REACT ) ) ! exponent of Temperature and UNIRATE(I) factored by (1/298)**UNI_TEXP ALLOCATE( UNI_PROD ( N_UNI_LOSS, N_REACT ) ) ! name of daughter product for react(i) ALLOCATE( UNI_YIELD( N_UNI_LOSS, N_REACT ) ) ! yield of daughter product for react(i) ALLOCATE( BIRATE ( N_BI_LOSS, N_REACT ) ) ! degradation rates for bimolecular reactions, [cm^3/(sec*molecules)] ALLOCATE( BI_ACT ( N_BI_LOSS, N_REACT ) ) ! activation energy for BIRATE(I) [K]. Positive if exothermic ALLOCATE( BI_TEXP ( N_BI_LOSS, N_REACT ) ) ! exponent of Temperature and BIRATE(I) factored by (1/298)**BI_TEXP ALLOCATE( BI_PROD ( N_BI_LOSS, N_REACT ) ) ! name of daughter product for react(i) ALLOCATE( BI_YIELD( N_BI_LOSS, N_REACT ) ) ! yield of daughter product for react(i) ALLOCATE( TRIRATE ( N_TRI_LOSS, N_REACT ) ) ! degradation rates for trimolecular reactions, [cm^3/(sec*molecules)] ALLOCATE( TRI_ACT ( N_TRI_LOSS, N_REACT ) ) ! activation energy for TRIRATE(I) [K]. Positive if exothermic ALLOCATE( TRI_TEXP ( N_TRI_LOSS, N_REACT ) ) ! exponent of Temperature and TRIRATE(I) factored by (1/298)**TRI_TEXP ALLOCATE( TRI_PROD ( N_TRI_LOSS, N_REACT ) ) ! name of daughter product for react(i) ALLOCATE( TRI_YIELD( N_TRI_LOSS, N_REACT ) ) ! yield of daughter product for react(i) ALLOCATE( A_PHOTO ( N_PHOTO_LOSS, N_REACT ) ) ! multiplier of photolysis rates ALLOCATE( PHOTO_PROD ( N_PHOTO_LOSS, N_REACT ) ) ! name of daughter product for react(i) ALLOCATE( PHOTO_YIELD( N_PHOTO_LOSS, N_REACT ) ) ! yield of daughter product for react(i) ALLOCATE( LHRATE ( N_LANHIN_LOSS, N_REACT ) ) ALLOCATE( LH_EQU ( N_LANHIN_LOSS, N_REACT ) ) ALLOCATE( LH_PROD ( N_LANHIN_LOSS, N_REACT ) ) ALLOCATE( LH_YIELD( N_LANHIN_LOSS, N_REACT ) ) ALLOCATE( LH_RHMIN( N_LANHIN_LOSS, N_REACT ) ) ALLOCATE( LH_TAMIN( N_LANHIN_LOSS, N_REACT ) ) ALLOCATE( INDEX_FOUND( N_REACT ) ) INDEX_FOUND = -1 REACT = BLANK PHOTO_NAME = BLANK BICAUSE = BLANK TRICAUSE = BLANK LHCAUSE = BLANK UNI_ACT = 0.0D0 UNIRATE = 0.0D0 UNI_TEXP = 0.0D0 UNI_YIELD = 0.0 BI_ACT = 0.0D0 BIRATE = 0.0D0 BI_TEXP = 0.0D0 BI_YIELD = 0.0 TRI_ACT = 0.0D0 TRIRATE = 0.0D0 TRI_TEXP = 0.0D0 TRI_YIELD = 0.0 A_PHOTO = 0.0D0 PHOTO_YIELD = 0.0 LH_EQU = 0.0D0 LHRATE = 0.0D0 LH_YIELD = 0.0 LH_RHMIN = 0.0 LH_TAMIN = 0.0 ! product are unused aspect and results not returned cgrid UNI_PROD = BLANK BI_PROD = BLANK TRI_PROD = BLANK PHOTO_PROD = BLANK LH_PROD = BLANK C..toxic VOC's C.. ACRYLONITRILE REACT(1) = 'ACRY_NITRILE' BICAUSE(1:5,1) = (/'OH ','HO ','O3 ','NO3','CL '/) BIRATE(1:5,1) = (/ 4.8D-12, 4.8D-12, 1.9D-19, 6.3D-18, 5.2D-14/) BI_ACT(1:5,1) = (/ 0.0D0, 0.0D0, 0.0D0, 0.0D0, -1.4D+3/) C.. CARBON TETRACHLORIDE REACT(2) = 'CARBONTET' BICAUSE(1:5,2) = (/'OH ','HO ','O3 ','NO3','CL '/) BIRATE(1:5,2) = (/ 1.0D-12, 1.0D-12, 0.0D0, 0.0D0, 9.55D-11/) BI_ACT(1:5,2) = (/2300.0D0,2300.0D0, 0.0D0, 0.0D0, 7.80D+03/) C.. PROPYLENE DICHLORIDE REACT(3) = 'PROPYL_DICL' BICAUSE(1:5,3) = (/'OH ','HO ','O3 ','NO3','CL '/) BIRATE(1:5,3) = (/ 2.2D-13, 2.2D-13, 0.0D0, 0.0D0, 1.1D-11/) BI_ACT(1:5,3) = (/ 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0/) C.. DICHLORIPROPENE REACT(4) = 'DICL_PROPENE' BICAUSE(1:4,4) = (/'OH ','HO ','O3 ','NO3'/) BIRATE(1:4,4) = (/1.04D-11, 1.04D-11, 4.10D-19, 0.0D0/) BI_ACT(1:4,4) = (/ 0.0D0, 0.0D0, 0.0D0, 0.0D0/) C.. 1,1,2,2TETRACHLOROETHANE REACT(5) = 'CL4_ETHANE' BICAUSE(1:5,5) = (/'OH ','HO ','O3 ','NO3','CL '/) BIRATE(1:5,5) = (/2.46D-13, 2.46D-13, 0.0D0, 0.0D0, 1.91D-13/) BI_ACT(1:5,5) = (/ 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.00D0/) C.. CHLOROFORM REACT(6) = 'CHCL3' BICAUSE(1:5,6) = (/'OH ','HO ','O3 ','NO3','CL '/) BIRATE(1:5,6) = (/6.30D-18, 6.30D-18, 0.0D0, 0.0D0, 4.9D-12/) BI_ACT(1:5,6) = (/ 504.D0, 504.D0, 0.0D0, 0.0D0, 1.24D+3/) BI_TEXP(1:2,6) = (/ 2.0D0, 2.0D0/) C.. 1,2DIBROMOETHANE REACT(7) = 'BR2_C2_12' BICAUSE(1:4,7) = (/'OH ','HO ','O3 ','NO3'/) BIRATE(1:4,7) = (/1.03D-17, 1.03D-17, 0.0D0, 0.0D0/) BI_ACT(1:4,7) = (/ 422.D0, 422.D0, 0.0D0, 0.0D0/) BI_TEXP(1:2,7) = (/ 2.0D0, 2.0D0/) C.. 1,2DICHLOROTHANE REACT(8) = 'CL2_C2_12' BICAUSE(1:5,8) = (/'OH ','HO ','O3 ','NO3','CL '/) BIRATE(1:5,8) = (/1.10D-17, 1.10D-17, 0.0D0, 0.0D0, 4.93D-11/) BI_ACT(1:5,8) = (/ 409.D0, 409.D0, 0.0D0, 0.0D0, 1.09D+3/) BI_TEXP(1:2,8) = (/ 2.0D0, 2.0D0/) C.. ETHYLENE OXIDE REACT(9) = 'ETOX' BICAUSE(1:5,9) = (/'OH ','HO ','O3 ','NO3','CL '/) BIRATE(1:5,9) = (/7.60D-14, 7.60D-14, 0.0D0, 0.0D0, 5.0D-12/) BI_ACT(1:5,9) = (/ 0.0D0, 0.0D0, 0.0D0, 0.0D0, 0.0D0/) C.. METHYLENE CHLORIDE REACT(10) = 'CL2_ME' BICAUSE(1:5,10) = (/'OH ','HO ','O3 ','NO3','CL '/) BIRATE(1:5,10) = (/8.54D-18, 8.54D-18, 0.0D0, 0.0D0, 2.81D-11/) BI_ACT(1:5,10) = (/ 500.D0, 500.D0, 0.0D0, 0.0D0, 1.3D+3/) BI_TEXP(1:2,10) = (/ 2.0D0, 2.0D0/) C.. PERCHLOROETHYLENE REACT(11) = 'CL4_ETHE' BICAUSE(1:5,11) = (/'OH ','HO ','O3 ','NO3','CL '/) BIRATE(1:5,11) = (/9.64D-12, 9.64D-12, 0.0D0, 0.0D0, 3.72D-8/) BI_ACT(1:5,11) = (/ 1209.D0, 1209.D0, 0.0D0, 0.0D0, 0.0D0/) BI_TEXP(1:5,11) = (/ 0.0D0, 0.0D0, 0.0D0, 0.0D0,-1.2D0/) C.. TRICHLOROETHYLENE REACT(12) = 'CL3_ETHE' BICAUSE(1:5,12) = (/'OH ','HO ','O3 ','NO3','CL '/) BIRATE(1:5,12) = (/5.63D-13, 5.63D-13, 0.0D0, 0.0D0, 8.07D-11/) BI_ACT(1:5,12) = (/ -427.D0, -427.D0, 0.0D0, 0.0D0, 0.0D0/) C.. VINYL CHLORIDE REACT(13) = 'CL_ETHE' BICAUSE(1:5,13) = (/'OH ','HO ','O3 ','NO3', 'CL '/) BIRATE(1:5,13) = (/1.69D-12, 1.69D-12, 0.0D0,1.84D-13, 1.27D-10/) BI_ACT(1:5,13) = (/ -422.D0, -422.D0, 0.0D0, 1764.D0, 0.0D0/) C.. NAPHTHALENE REACT(14) = 'NAPHTHALENE' BICAUSE(1:3,14) = (/'OH ','HO ','O3 '/) BIRATE(1:3,14) = (/1.05D-12, 1.05D-12, 2.01D-19/) BI_ACT(1:3,14) = (/ -901.D0, -901.D0, 0.0D0/) TRICAUSE(1:2,1,14) = (/'NO3 ','NO2 '/) TRIRATE( 1,14) = 3.94D-34 TRI_ACT( 1,14) = -4.10D+03 C.. QUINOLINE REACT(15) = 'QUINOLINE' BICAUSE(1:4,15) = (/'OH ','HO ','O3 ','NO2'/) BIRATE(1:4,15) = (/1.16D-11, 1.16D-11, 1.00D-19, 1.60D-20/) C.. HEXAMETHYLENE DIISOCAYNATE REACT(16) = 'HEXMETH_DIS' BICAUSE(1:2,16) = (/'OH ','HO '/) BIRATE(1:2,16) = (/7.94D-12, 7.94D-12/) C.. HYDRAZINE REACT(17) = 'HYDRAZINE' BICAUSE(1:3,17) = (/'OH ','HO ','O3 '/) BIRATE(1:3,17) = (/3.60D-11, 3.60D-11, 3.00D-17/) C.. MALEIC ANHYDRIDE REACT(18) = 'MAL_ANHYDRID' BICAUSE(1:3,18) = (/'OH ','HO ','NO3 '/) BIRATE(1:3,18) = (/1.45D-12, 1.45D-12, 1.02D-13/) C.. TOULENE DIISOCYANATE REACT(19) = 'TOL_DIIS' BICAUSE(1:2,19) = (/'OH ','HO '/) BIRATE(1:2,19) = (/7.41D-12, 7.41D-12/) C.. TRIETHYLAMINE REACT(20) = 'TRIETHYLAMIN' BICAUSE(1:5,20) = (/'OH ','HO ','O ','O3P ', 'O3 '/) BIRATE(1:5,20) = (/3.60D-11, 3.60D-11, 1.09D-11, 1.09D-11, 7.84D-18/) C.. P-DICHLOROBENZENE REACT(21) = 'DICL_BENZENE' BICAUSE(1:2,21) = (/'OH ','HO '/) BIRATE(1:2,21) = (/3.60D-13, 3.60D-13/) C.. XYLENE REACT(22) = 'XYLENE ' BICAUSE(1:3,22) = (/'OH','HO','CL'/) BIRATE(1:3,22) = (/1.717D-11, 1.717D-11, 1.433D-10/) C.. STYRENE REACT(23) = 'STYRENE ' BICAUSE(1:4,23) = (/'OH','HO','O3','CL'/) BIRATE(1:4,23) = (/1.02D-11, 1.02D-11, 1.51D-13, 3.6D-10/) BI_ACT(1:2,23) = (/ -532.0D0, -532.0D0/) C.. ACETONITRILE REACT(24) = 'ACET_NITRILE ' BICAUSE(1:3,24) = (/'OH','HO','CL'/) BIRATE(1:3,24) = (/ 8.31D-13, 8.31D-13, 1.60D-11/) BI_ACT(1:3,24) = (/ 1080.0D0, 1080.0D0, 2140.0D0/) C.. ACRYACID REACT(25) = 'ACRYACID ' BICAUSE(1:4,25) = (/'OH','HO','O3','CL'/) BIRATE(1:4,25) = (/1.75D-11, 1.75D-11, 6.50D-19, 4.00D-10/) C.. HEXANE REACT(26) = 'HEXANE ' BICAUSE(1:3,26) = (/'OH','HO','CL'/) BIRATE(1:3,26) = (/ 1.98D-11, 1.91D-11, 3.30D-10/) BI_ACT(1:2,26) = (/ 394.0D0, 394.0D0/) C.. METHCHLORIDE REACT(27) = 'METHCHLORIDE ' BICAUSE(1:3,27) = (/'OH','HO','CL'/) BIRATE(1:3,27) = (/ 2.10D-12, 2.10D-12, 1.80D-11/) BI_ACT(1:3,27) = (/ 1210.0D0, 1210.0D0, 1081D0/) C.. CARBSULFIDE REACT(28) = 'CARBSULFIDE ' BICAUSE(1:3,28) = (/'OH','HO','O3'/) BIRATE(1:3,28) = (/ 1.10D-13, 1.10D-13, 3.01D-16/) BI_ACT(1:2,28) = (/ 1200.0D0, 1200.0D0/) C.. CHLOROPRENE REACT(29) = 'CHLOROPRENE ' BICAUSE(1:5,29) = (/'OH ','HO ','O3 ','NO3','CL '/) BIRATE(1:5,29) = (/ 6.20D-11, 6.20D-11, 1.40D-16, & 3.60D-13, 3.62D-10/) C.. ETHYLBENZENE REACT(30) = 'ETHYLBENZENE ' BICAUSE(1:4,30) = (/'OH ','HO ','NO3','CL '/) BIRATE(1:4,30) = (/ 7.00D-12, 7.00D-12, 5.70D-16, & 1.15D-10/) C.. BENZO[A]PYRENE REACT(31) = 'BENAPY ' BICAUSE(1:2,31) = (/'OH ','HO '/) BIRATE(1:2,31) = (/ 5.00D-11, 5.00D-11/) C.. BENZO[A]PYRENE, accumulation mode REACT(32) = 'ABENAPYJ ' LHCAUSE(1,32) = 'O3 ' ! LHRATE(1,32) = 5.40D-02 ! average between 0% and 70% Rel. Hum. Points in Owususa et al. (2004) ! LH_EQU(32) = 2.00D-15 ! average between 0% and 70% Rel. Hum. Points in Owususa et al. (2004) LHRATE(1,32) = 3.10D-02 ! average between 50% and 70% Rel. Hum. Points in Zhou et al. (2013) for organic shell around NH4SO4 core LH_EQU(1,32) = 10.1D-15 ! average between 50% and 70% Rel. Hum. Points in Zhou et al. (2013) for organic shell around NH4SO4 core LH_TAMIN(1,32) = 275.15 ! based on New-Shield BaP heteorogeneous oxidation treatment in Shrivastava et al. (2017) LH_RHMIN(1,32) = 0.50 ! based on New-Shield BaP heteorogeneous oxidation treatment in Shrivastava et al. (2017) C.. BENZO[A]PYRENE, Aitken mode REACT(33) = 'ABENAPYI ' LHCAUSE(1,33) = 'O3 ' ! LHRATE(1,33) = 5.40D-02 ! average between 0% and 70% Rel. Hum. Points in Owususa et al. (2004) ! LH_EQU(1,33) = 2.00D-15 ! average between 0% and 70% Rel. Hum. Points in Owususa et al. (2004) LHRATE(1,33) = 3.10D-02 ! average between 50% and 70% Rel. Hum. Points in Zhou et al. (2013) LH_EQU(1,33) = 10.1D-15 ! average between 50% and 70% Rel. Hum. Points in Zhou et al. (2013) LH_TAMIN(1,33) = 275.15 ! based on New-Shield BaP heteorogeneous oxidation treatment in Shrivastava et al. (2017) LH_RHMIN(1,33) = 0.50 ! based on New-Shield BaP heteorogeneous oxidation treatment in Shrivastava et al. (2017) C.. CARBON TETRACHLORIDE without boundary conditions REACT(34) = 'CARB_TET_NBC' BICAUSE(1:5,34) = (/'OH ','HO ','O3 ','NO3','CL '/) BIRATE(1:5,34) = (/ 1.0D-12, 1.0D-12, 0.0D0, 0.0D0, 9.55D-11/) BI_ACT(1:5,34) = (/2300.0D0,2300.0D0, 0.0D0, 0.0D0, 7.80D+03/) NDEGRADED_FOUND = 0 DO I = 1, N_REACT N = 0 DO J = 1, N_GC_SPC IF ( TRIM( REACT( I ) ) == TRIM( GC_SPC( J ) ) ) THEN N = J EXIT END IF END DO IF ( N == 0 ) THEN ! search aerosol them non-reactive species for index DO J = 1, N_AE_SPC IF ( TRIM( REACT( I ) ) == TRIM( AE_SPC( J ) ) ) THEN N = J EXIT END IF END DO IF ( N == 0 ) THEN DO J = 1, N_NR_SPC IF ( TRIM( REACT( I ) ) == TRIM( NR_SPC( J ) ) ) THEN N = J EXIT END IF END DO ENDIF ENDIF IF ( N == 0 ) CYCLE NDEGRADED_FOUND = NDEGRADED_FOUND + 1 INDEX_FOUND( NDEGRADED_FOUND ) = I END DO IF ( NDEGRADED_FOUND .GT. 0 ) THEN ALLOCATE( DEGRADED_SPECIES( NDEGRADED_FOUND ) ) DO I = 1, NDEGRADED_FOUND DEGRADED_SPECIES( I ) = REACT( INDEX_FOUND( I ) ) END DO END IF DEALLOCATE( INDEX_FOUND ) RETURN END SUBROUTINE DEGRADE_DATA END MODULE DEGRADE_PARAMETERS ================================================ FILE: CCTM/src/reactive_tracers/DEGRADE_ROUTINES.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! MODULE DEGRADE_ROUTINES USE DEGRADE_SETUP_TOX IMPLICIT NONE CONTAINS SUBROUTINE DEGRADE( CBLK, DT, JDATE, JTIME ) C********************************************************************** C C Function: Calculate changes in gas species based on a exponential decay. C The decay rate sums losses from processes in DEGRADE_DATA. C C CALLED BY: HRSOLVER C C WARNING: THIS ROUTINE ASSUMES SIMPLE AND LINEAR TRANSFORMATIONS FROM C ATMOSPHERIC CHEMISTRY. C C Species being degraded are governed by the equation, C dx/dt = -b*x, where b is the sum of N loss rates C C IT DOES NOT SOLVE A SYSTEM OF ODE's AS IN SMVGEAR, ROS3, and EBI SOLVERS. C C REVISION HISTORY: 07/29/05 : B.Hutzell - Initial version C 09/30/11 : B.Hutzell - added CYCLE statements to allow C optional degraded species i.e., RXTANT_MAP( I ) C is less than zero C********************************************************************** USE RXNS_DATA #ifdef isam USE SA_DEFN #endif IMPLICIT NONE C.....ARGUMENTS: REAL( 8 ), INTENT( IN ) :: CBLK( : ) ! array holding species concentrations REAL( 8 ), INTENT( IN ) :: DT ! time step for integrations [sec] INTEGER, INTENT( IN ) :: JDATE ! current model date , coded YYYYDDD INTEGER, INTENT( IN ) :: JTIME ! current model time , coded HHMMSS C.....PARAMETERS: CHARACTER(16), PARAMETER :: PNAME = ' DEGRADE ' ! name of routine calling I/OAPI INTEGER, PARAMETER :: LOCAL_DT = 3 ! minimum time step, mili-seconds REAL(8), PARAMETER :: CONMIN = 1.0D-30 ! concentration lower limit REAL(8), PARAMETER :: ONE = 1.0D0 REAL(8), PARAMETER :: ZERO = 0.0D0 C.....LOCAL VARIABLES: CHARACTER(16) :: VNAME ! variable name CHARACTER(120) :: XMSG INTEGER :: TIME_SECONDS ! TIME, sec INTEGER :: I_RXT, I_RAD, J_RAD, I_PROD ! indices INTEGER :: I, J, K, L ! loop counters INTEGER, SAVE :: I_SIZE ! scratch integer :: icount LOGICAL, SAVE :: FIRSTCALL = .TRUE. LOGICAL, SAVE :: ANY_PRODUCTS( N_REACT ) ! does degraded species have any daughter products REAL(8) :: TRANS ! molecules/cm^3 transferred to products REAL(8) :: LOSS_RATE( N_PROCESSES ) ! individual loss rates [sec^-1] REAL(8) :: NET_RATE ! net rate of transfer [sec^-1] REAL(8) :: NET_LIFE( N_REACT) ! lifetime based on net transfer rate [sec] REAL(8) :: TSTEP ! degradation time step, sec REAL(8) :: EQU_FACTOR ! equilibrium concentration, [ dimensionaless ] #ifdef isam REAL(8) :: FACTOR ! relative change in bulk concentration REAL(8) :: ISAM_INIT ! sum of initial tag concentrations #endif C********************************************************************** IF ( FIRSTCALL ) THEN ! initialize maps I_SIZE = SIZE( CBLK ) FIRSTCALL = .FALSE. DO I = 1, N_REACT IF( ANY( PROD_MAP( 1:N_PROCESSES, I ) > 0 ) )THEN ANY_PRODUCTS( I ) = .TRUE. ELSE ANY_PRODUCTS( I ) = .FALSE. END IF END DO !TAG_CONMIN = CONMIN / REAL( NTAG_SA,8 ) ENDIF C..Update concentrations except degraded species LOOP_NEW: DO I = 1, I_SIZE DO J = 1, N_REACT IF( RXTANT_MAP( J ) .EQ. I )THEN CYCLE LOOP_NEW END IF ENDDO NEW_CONC( I ) = CBLK( I ) ENDDO LOOP_NEW CHANGE_CONC = ZERO C..Quality Control on time step TSTEP = DT BLOCK_A : IF ( TSTEP < 0.0D0 ) THEN XMSG = ' Time step has negative value. ' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT3 ) ENDIF BLOCK_A C..Loop over each reactant LOOP_REACT: DO I = 1, N_REACT LOSS_RATE = ZERO NET_RATE = ZERO NET_LIFE( I ) = ZERO I_RXT = RXTANT_MAP( I ) IF( I_RXT < 0 )CYCLE LOOP_REACT IF( NEW_CONC( I_RXT ) <= CONMIN )CYCLE LOOP_REACT LOOP_UNIRATE: DO J = UNI_START, UNI_STOP LOSS_RATE( J ) = CELL_RKI( J, I ) ENDDO LOOP_UNIRATE L = 0 LOOP_BIRATE: DO J = BI_START, BI_STOP L = L + 1 I_RAD = RAD_MAP( L, I ) IF ( I_RAD < 1 ) CYCLE ! radical species is undefined IF( I_RAD < 9000 )THEN LOSS_RATE( J ) = 0.5D0 * CELL_RKI( J, I ) & * ( OLD_CONC( I_RAD ) + NEW_CONC( I_RAD ) ) ELSE LOSS_RATE( J ) = CELL_RKI( J, I ) END IF ENDDO LOOP_BIRATE L = 0 LOOP_TRIRATE: DO J = TRI_START, TRI_STOP L = L + 1 I_RAD = RAD2_MAP( 1, L, I ) J_RAD = RAD2_MAP( 2, L, I ) IF ( I_RAD < 1 .OR. J_RAD < 1 ) CYCLE ! radical species are undefined IF ( I_RAD > 9000 .AND. J_RAD < 9000 ) THEN LOSS_RATE( J ) = 0.5D0 * CELL_RKI( J, I ) & * ( OLD_CONC( J_RAD ) + NEW_CONC( J_RAD ) ) ELSE IF ( J_RAD > 9000 .AND. I_RAD < 9000 ) THEN LOSS_RATE( J ) = 0.5D0 * CELL_RKI( J, I ) & * ( OLD_CONC( I_RAD ) + NEW_CONC( I_RAD ) ) ELSE IF ( J_RAD < 9000 .AND. I_RAD < 9000 ) THEN LOSS_RATE( J ) = 0.5D0 * CELL_RKI( J, I ) & * ( OLD_CONC( I_RAD ) * OLD_CONC( J_RAD ) & + NEW_CONC( I_RAD ) * NEW_CONC( J_RAD ) ) ELSE LOSS_RATE( J ) = CELL_RKI( J, I ) END IF ENDDO LOOP_TRIRATE L = 0 LOOP_PHOTORATE: DO J = PHOTO_START, PHOTO_STOP L = L + 1 LOSS_RATE( J ) = CELL_RKI( J, I ) ENDDO LOOP_PHOTORATE L = 0 LOOP_LHRATE: DO J = LANHIN_START, LANHIN_STOP L = L + 1 I_RAD = RAD_MAP( L + N_BI_LOSS, I ) IF ( I_RAD < 1 ) CYCLE ! radical species is undefined IF ( I_RAD < 9000 )THEN EQU_FACTOR = 0.5D0 * CELL_RKI( J, I ) & * ( OLD_CONC( I_RAD ) + NEW_CONC( I_RAD ) ) ELSE EQU_FACTOR = CELL_RKI( J, I ) END IF LOSS_RATE( J ) = LHRATE( L, I ) * EQU_FACTOR & / ( 1.0D0 + EQU_FACTOR ) ENDDO LOOP_LHRATE LOOP_RATE : DO J = 1, N_PROCESSES NET_RATE = NET_RATE + LOSS_RATE( J ) ENDDO LOOP_RATE IF ( NET_RATE * DT .LE. EFFECTIVE_ZERO ) THEN TRANS = 0.0D0 ELSE NET_LIFE( I ) = 1.0D0 / NET_RATE TRANS = NEW_CONC( I_RXT ) * ( 1.0D0 - DEXP( -NET_RATE * DT ) ) END IF IF ( TRANS > CONMIN ) THEN CHANGE_CONC( I_RXT ) = TRANS IF( ANY( PROD_MAP( 1:N_PROCESSES, I ) > 0 ) )THEN LOOP_PROD: DO J = 1, N_PROCESSES I_PROD = PROD_MAP( J, I ) IF( I_PROD > 0 )THEN CHANGE_CONC( I_PROD ) = ( LOSS_RATE( J ) * NET_LIFE( I ) ) END IF END DO LOOP_PROD END IF END IF ENDDO LOOP_REACT OLD_CONC( 1:NSPCSD ) = NEW_CONC( 1:NSPCSD ) C..update concentrations LOOP_UPDATE1: DO I = 1, N_REACT I_RXT = RXTANT_MAP( I ) IF( I_RXT < 0 )CYCLE LOOP_UPDATE1 IF ( CHANGE_CONC( I_RXT ) <= EFFECTIVE_ZERO .OR. NEW_CONC( I_RXT ) <= CONMIN ) CYCLE NEW_CONC( I_RXT ) = MAX( NEW_CONC( I_RXT )- CHANGE_CONC( I_RXT ),CONMIN ) IF( ANY_PRODUCTS( I ) )THEN LOOP_UPDATE2: DO J = 1, N_PROCESSES I_PROD = PROD_MAP( J, I ) IF ( I_PROD > 0 ) THEN ! specified product CHANGE_CONC( I_PROD ) = CHANGE_CONC( I_PROD ) & * MAX( OLD_CONC( I_RXT )-NEW_CONC( I_RXT ), & ZERO ) NEW_CONC( I_PROD ) = NEW_CONC( I_PROD ) & + RATE_YIELD( J, I ) & * MAX( CHANGE_CONC( I_PROD ), CONMIN ) END IF ENDDO LOOP_UPDATE2 END IF ENDDO LOOP_UPDATE1 #if defined(isam) && defined(verbose_isam_deg) IF( DEG_LAY .EQ. 1 .AND. DEG_ROW .EQ. 1 .AND. DEG_COL .EQ. 1 )THEN WRITE(LOGDEV,'(/,A,I3)')'SA_DEGRADE_STEP: ',SA_DEGRADE_STEP WRITE(LOGDEV,'(/A18,(1X,A12),1X,A12,6(1X,A12))')'S ISAM_DEGRADED', 'FACTOR', 'REACT', & 'INIT_BULK','ISAM_INIT','FINI_BULK','ISAM_FINI','LIFE (days)' END IF #endif #ifdef isam LOOP_ISAM: DO I = 1, ISAM_DEGRADED_SPC I_RXT = ISAM_TO_DEGRADED( I ) I_RAD = ISAM_TO_REACTANT( I ) IF( I_RXT .GT. 0 )THEN ! scale loss of tag based on their fraction of the bulk FACTOR = NEW_CONC( I_RXT ) / MAX( OLD_CONC( I_RXT ),CONMIN ) #if defined(isam) && defined(verbose_isam_deg) ISAM_INIT = SUM(CELL_ISAM( 1:NTAG_SA,I)) #endif DO J = 1, NTAG_SA CELL_ISAM( J,I ) = CELL_ISAM( J,I ) * FACTOR END DO ! ktag loop #if defined(isam) && defined(verbose_isam_deg) IF( DEG_LAY .EQ. 1 .AND. DEG_ROW .EQ. 1 .AND. DEG_COL .EQ. 1 )THEN WRITE(LOGDEV,'(A2,A16,1X,ES12.4,1X,A16,6(1X,ES12.4))')'S ',ISAM_DEGRADED( I ), FACTOR, REACT( I_RAD ), & OLD_CONC( I_RXT ),ISAM_INIT, & NEW_CONC( I_RXT ),SUM(CELL_ISAM( 1:NTAG_SA,I)), & 1.15741D-5*NET_LIFE( I_RAD ) END IF #endif END IF ENDDO LOOP_ISAM #endif RETURN END SUBROUTINE DEGRADE !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/work/rep/arc/CCTM/src/gas/ros3/degrade.F,v 1.3 2011/10/21 16:11:12 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% SUBROUTINE DEGRADE_BLK( CBLK, DT, JDATE, JTIME, BLKID ) C********************************************************************** C C Function: Calculate changes in gas species based on a exponential decay. C The decay rate sums losses from processes in DEGRADE_DATA. C C CALLED BY: RBSOLVER or GRSMVGEAR C C WARNING: THIS ROUTINE ASSUMES SIMPLE AND LINEAR TRANSFORMATIONS FROM C ATMOSPHERIC CHEMISTRY. C C Species being degraded are governed by the equation, C dx/dt = -b*x, where b is the sum of N loss rates C C IT DOES NOT SOLVE A SYSTEM OF ODE's AS IN SMVGEAR, ROS3, and EBI SOLVERS. C C REVISION HISTORY: 07/29/05 : B.Hutzell - Initial version C C********************************************************************** USE RXNS_DATA IMPLICIT NONE C.....ARGUMENTS: REAL( 8 ), INTENT( IN ) :: CBLK( :, : ) ! array holding species concentrations REAL( 8 ), INTENT( IN ) :: DT ! time step for integrations [sec] INTEGER, INTENT( IN ) :: JDATE ! current model date , coded YYYYDDD INTEGER, INTENT( IN ) :: JTIME ! current model time , coded HHMMSS INTEGER, INTENT( IN ) :: BLKID ! ID number for the BLK C.....PARAMETERS: CHARACTER(16), PARAMETER :: PNAME = ' DEGRADE ' ! name of routine calling I/OAPI INTEGER, PARAMETER :: LOCAL_DT = 3 ! minimum time step, mili-seconds REAL(8), PARAMETER :: CONMIN = 1.0D-30 ! concentration lower limit REAL(8), PARAMETER :: ZERO = 0.00D00 ! concentration lower limit C.....LOCAL VARIABLES: CHARACTER(16) :: VNAME ! variable name CHARACTER(120) :: XMSG LOGICAL, SAVE :: FIRSTCALL = .TRUE. LOGICAL, SAVE :: ANY_PRODUCTS( N_REACT ) ! does degraded species have any daughter products INTEGER :: TIME_SECONDS ! TIME, sec INTEGER :: I_RXT, I_RAD, J_RAD, I_PROD ! indices INTEGER :: I, J, K, L, I_CELL ! loop counters INTEGER, SAVE :: I_SIZE ! scratch REAL :: TSTEP ! time step for integrations REAL(8) :: TRANS ( BLKSIZE ) ! molecules/cm^3 transferred to products REAL(8) :: NET_RATE ( BLKSIZE ) ! net rate of transfer [sec^-1] REAL(8) :: NET_LIFE ( BLKSIZE ) ! lifetime based on net transfer rate [sec] REAL(8) :: LOSS_RATE( BLKSIZE, N_PROCESSES ) ! individual loss rates [sec^-1] REAL(8) :: FACTOR REAL(8) :: LIFETIME( N_REACT ) = 0.0D0 C*********************************************************************** IF ( FIRSTCALL ) THEN ! initialize maps I_SIZE = SIZE( CURR_CONC, 2 ) FIRSTCALL = .FALSE. DO I = 1, N_REACT IF( ANY( PROD_MAP( 1:N_PROCESSES, I ) > 0 ) )THEN ANY_PRODUCTS( I ) = .TRUE. ELSE ANY_PRODUCTS( I ) = .FALSE. END IF END DO ENDIF C..Initialize concentrations changes DELT_CONC = 0.0D0 C..Quality Control on time step TSTEP = DT BLOCK_A : IF ( TSTEP < 0.0D0 ) THEN WRITE(XMSG,'(A)')TRIM(' Time step has negative value. ') CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT3 ) ENDIF BLOCK_A C..Update concentrations except degraded species LOOP_UPDATE0: DO J = 1, NSPCSD DO I = 1, N_REACT IF( RXTANT_MAP( I ) .EQ. J )CYCLE LOOP_UPDATE0 END DO DO I_CELL = 1, NCELLS CURR_CONC( I_CELL, J ) = CBLK( I_CELL, J ) ENDDO ENDDO LOOP_UPDATE0 C..Loop over each reactant LOOP_REACT: DO I = 1, N_REACT I_RXT = RXTANT_MAP( I ) IF( I_RXT < 0 )CYCLE LOOP_REACT LOSS_RATE = 0.0D0 NET_RATE = 0.0D0 NET_LIFE = 0.0D0 LOOP_UNIRATE: DO J = UNI_START, UNI_STOP DO I_CELL = 1, NCELLS IF( CURR_CONC( I_CELL, I_RXT ) <= CONMIN )CYCLE LOSS_RATE( I_CELL, J ) = RATE_CONST( I_CELL, J, I ) ENDDO ENDDO LOOP_UNIRATE L = 0 LOOP_BIRATE: DO J = BI_START, BI_STOP L = L + 1 I_RAD = RAD_MAP( L, I ) IF ( I_RAD < 1 ) CYCLE ! radical species is undefined IF ( I_RAD > 9000 ) THEN DO I_CELL = 1, NCELLS IF( CURR_CONC( I_CELL, I_RXT ) <= CONMIN )CYCLE LOSS_RATE( I_CELL, J ) = RATE_CONST( I_CELL, J, I ) & * NUMB_DENS( I_CELL ) ENDDO ELSE DO I_CELL = 1, NCELLS IF( CURR_CONC( I_CELL, I_RXT ) <= CONMIN )CYCLE LOSS_RATE( I_CELL, J ) = 0.5D0 * RATE_CONST( I_CELL, J, I ) & * ( PREV_CONC( I_CELL, I_RAD ) & + CURR_CONC( I_CELL, I_RAD ) ) ENDDO ENDIF ENDDO LOOP_BIRATE L = 0 LOOP_TRIRATE: DO J = TRI_START, TRI_STOP L = L + 1 I_RAD = RAD2_MAP( 1, L, I ) J_RAD = RAD2_MAP( 2, L, I ) IF ( I_RAD < 1 .OR. J_RAD < 1 ) CYCLE ! radical species are undefined IF ( I_RAD < 9000 .AND. J_RAD < 9000 ) THEN DO I_CELL = 1, NCELLS IF( CURR_CONC( I_CELL, I_RXT ) <= CONMIN )CYCLE LOSS_RATE( I_CELL, J ) = 0.5D0 * RATE_CONST( I_CELL, J, I ) & * ( PREV_CONC( I_CELL, I_RAD ) & * PREV_CONC( I_CELL, J_RAD ) & + CURR_CONC( I_CELL, I_RAD ) & * CURR_CONC( I_CELL, J_RAD ) ) ENDDO ELSE IF ( J_RAD > 9000 .AND. I_RAD < 9000 ) THEN DO I_CELL = 1, NCELLS IF( CURR_CONC( I_CELL, I_RXT ) <= CONMIN )CYCLE LOSS_RATE( I_CELL, J ) = 0.5D0 * RATE_CONST( I_CELL, J, I ) & * ( PREV_CONC( I_CELL, I_RAD ) & + CURR_CONC( I_CELL, I_RAD ) ) ENDDO ELSE IF ( J_RAD < 9000 .AND. I_RAD > 9000 ) THEN DO I_CELL = 1, NCELLS IF( CURR_CONC( I_CELL, I_RXT ) <= CONMIN )CYCLE LOSS_RATE( I_CELL, J ) = 0.5D0 * RATE_CONST( I_CELL, J, I ) & * ( PREV_CONC( I_CELL, J_RAD ) & + CURR_CONC( I_CELL, J_RAD ) ) ENDDO END IF ENDDO LOOP_TRIRATE L = 0 LOOP_PHOTORATE: DO J = PHOTO_START, PHOTO_STOP L = L + 1 DO I_CELL = 1, NCELLS LOSS_RATE( I_CELL, J ) = RATE_CONST( I_CELL, J, I ) ENDDO ENDDO LOOP_PHOTORATE L = 0 LOOP_LHRATE: DO J = LANHIN_START, LANHIN_STOP L = L + 1 I_RAD = RAD_MAP( L + N_BI_LOSS, I ) IF ( I_RAD < 1 ) CYCLE ! radical species is undefined DO I_CELL = 1, NCELLS IF ( I_RAD < 9000 )THEN LOSS_RATE( I_CELL, J ) = 0.5D0 * RATE_CONST( I_CELL, J, I ) & * ( PREV_CONC( I_CELL, I_RAD ) + CURR_CONC( I_CELL, I_RAD ) ) ELSE LOSS_RATE( I_CELL, J ) = RATE_CONST( I_CELL, J, I ) END IF LOSS_RATE( I_CELL, J ) = LHRATE( L, I ) * LOSS_RATE( I_CELL, J ) & / ( 1.0D0 + LOSS_RATE( I_CELL, J ) ) END DO ENDDO LOOP_LHRATE LOOP_RATE : DO J = 1, N_PROCESSES DO I_CELL = 1, NCELLS NET_RATE( I_CELL ) = NET_RATE( I_CELL ) & + LOSS_RATE( I_CELL, J ) ENDDO ENDDO LOOP_RATE LOOP_LIFE: DO I_CELL = 1, NCELLS IF ( NET_RATE( I_CELL ) * DT .LE. EFFECTIVE_ZERO .OR. CURR_CONC( I_CELL, I_RXT ) <= CONMIN ) THEN TRANS( I_CELL ) = ZERO IF( WRITE_CELL( I_CELL ) )LIFETIME( I ) = INFINITY ELSE NET_LIFE( I_CELL ) = 1.0D0 / NET_RATE( I_CELL ) IF( WRITE_CELL( I_CELL ) )LIFETIME( I ) = NET_LIFE( I_CELL ) TRANS( I_CELL ) = CURR_CONC( I_CELL, I_RXT ) & * ( 1.0D0 - DEXP( - NET_RATE( I_CELL )*DT ) ) DELT_CONC( I_CELL, I_RXT ) = - MAX( TRANS( I_CELL ), ZERO ) END IF END DO LOOP_LIFE IF( ANY( PROD_MAP( 1:N_PROCESSES, I ) > 0 ) )THEN IF( ANY( DELT_CONC( :, I_RXT ) > -CONMIN ) )THEN LOOP_PROD: DO J = 1, N_PROCESSES I_PROD = PROD_MAP( J, I ) IF( I_PROD > 0 )THEN DO I_CELL = 1, NCELLS DELT_CONC( I_CELL, I_PROD ) = ( LOSS_RATE( I_CELL, J ) * NET_LIFE( I_CELL ) ) END DO END IF END DO LOOP_PROD END IF END IF ENDDO LOOP_REACT C..update previous concentrations DO J = 1, NSPCSD DO I_CELL = 1, NCELLS PREV_CONC( I_CELL, J ) = CURR_CONC( I_CELL, J ) ENDDO ENDDO C..update current concentrations #ifdef verbose_gas IF( WRITE_BLOCK )THEN DEGRADE_STEP = DEGRADE_STEP + 1 WRITE(LOGDEV,'(/,A,I3)')'DEGRADE_STEP: ',DEGRADE_STEP WRITE(LOGDEV,'(/A18,4(1X,A18))')'S DEGRADED', 'FACTOR', & 'PREV_CONC','CURR_CONC','LIFE (days)' END IF #endif LOOP_UPDATE1: DO I = 1, N_REACT I_RXT = RXTANT_MAP( I ) IF( I_RXT < 0 )CYCLE LOOP_UPDATE1 DO I_CELL = 1, NCELLS IF( -DELT_CONC( I_CELL, I_RXT ) > CONMIN .AND. CURR_CONC( I_CELL, I_RXT ) > CONMIN )THEN CURR_CONC( I_CELL, I_RXT ) = MAX( (PREV_CONC( I_CELL, I_RXT ) + DELT_CONC( I_CELL, I_RXT )), & CONMIN ) END IF #ifdef verbose_gas IF( WRITE_CELL( I_CELL ) )THEN FACTOR = 1.0D0 + MIN( -1.0D0,( DELT_CONC( I_CELL,I_RXT )/PREV_CONC( I_CELL,I_RXT ) ) ) WRITE(LOGDEV,'(A2,A16,5(1X,ES18.10))')'S ',REACT( I ), FACTOR, & PREV_CONC( I_CELL,I_RXT ),CURR_CONC( I_CELL,I_RXT ),1.15741D-5*LIFETIME( I ),DELT_CONC( I_CELL,I_RXT ) END IF #endif ENDDO IF( ANY_PRODUCTS( I ) )THEN LOOP_UPDATE2: DO J = 1, N_PROCESSES I_PROD = PROD_MAP( I, J ) IF ( I_PROD > 0 ) THEN ! a specified product DO I_CELL = 1, NCELLS DELT_CONC( I_CELL, I_PROD ) = DELT_CONC( I_CELL, I_PROD ) & * MAX( PREV_CONC(I_CELL, I_RXT )-CURR_CONC( I_CELL, I_RXT ), & ZERO ) CURR_CONC( I_CELL, I_PROD ) = CURR_CONC( I_CELL, I_PROD ) & + RATE_YIELD( I, J ) * DELT_CONC( I_CELL, I_PROD ) ENDDO END IF END DO LOOP_UPDATE2 END IF ENDDO LOOP_UPDATE1 RETURN END SUBROUTINE DEGRADE_BLK !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header$ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% SUBROUTINE FINAL_DEGRADE( CBLK ) C********************************************************************** C C FUNCTION: Update CBLK concentrations with concentrations from degrade C routines C C CALLED BY: HRDRIVER C C REVISION HISTORY: 07/29/05 : B.Hutzell - Initial version C 09/30/11 : B.Hutzell - added CYCLE statements to allow C optional degraded species i.e., RXTANT_MAP( I ) C is less than zero C C********************************************************************** IMPLICIT NONE C.....ARGUMENTS: REAL( 8 ), INTENT( INOUT ) :: CBLK( : ) ! species concentration in cell C.....LOCAL VARIABLES: REAL, PARAMETER :: CONMIN = 1.0E-30 INTEGER :: I_RXT, I_PROD ! indices INTEGER :: I, J, K ! loop counters C********************************************************************** LOOP_REACT: DO I = 1, N_REACT ! Loop over each reactant c..update CBLK I_RXT = RXTANT_MAP( I ) IF( I_RXT <= 0 )CYCLE LOOP_REACT CBLK( I_RXT ) = NEW_CONC( I_RXT ) LOOP_PROD: DO J = 1, N_PROCESSES I_PROD = PROD_MAP( J, I ) IF( I_PROD < 1 ) CYCLE ! no specified product CBLK( I_PROD ) = NEW_CONC( I_PROD ) ENDDO LOOP_PROD ENDDO LOOP_REACT END SUBROUTINE FINAL_DEGRADE !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE FINAL_DEGRADE_BLK( CBLK ) C********************************************************************** C C FUNCTION: Update CBLK concentrations with concentrations from degrade C routines C C CALLED BY: GRDRIVER or RBDRIVER C C REVISION HISTORY: 07/29/05 : B.Hutzell - Initial version C 09/30/11 : B.Hutzell - added CYCLE statements to allow C optional degraded species i.e., RXTANT_MAP( I ) C is less than zero C C C********************************************************************** IMPLICIT NONE C.....ARGUMENTS: REAL( 8 ), INTENT( INOUT ) :: CBLK( :, : ) ! species conc in cell C.....LOCAL VARIABLES: REAL, PARAMETER :: CONMIN = 1.0E-30 INTEGER :: I_RXT, I_PROD ! indices INTEGER :: I, J, K, I_CELL ! loop counters C********************************************************************** LOOP_BLOCK: DO I_CELL = 1, NCELLS LOOP_REACT: DO I = 1, N_REACT ! Loop over each reactant c..update CBLK I_RXT = RXTANT_MAP( I ) IF( I_RXT < 0 )CYCLE LOOP_REACT CBLK( I_CELL, I_RXT ) = CURR_CONC( I_CELL, I_RXT ) LOOP_PROD: DO J = 1, N_PROCESSES I_PROD = PROD_MAP( J, I ) IF( I_PROD < 1 ) CYCLE ! no specified product CBLK( I_CELL, I_PROD ) = CURR_CONC( I_CELL, I_PROD ) ENDDO LOOP_PROD ENDDO LOOP_REACT ENDDO LOOP_BLOCK END SUBROUTINE FINAL_DEGRADE_BLK !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header$ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% SUBROUTINE FIND_DEGRADED( JDATE, JTIME, CALL_DEGRADE ) C********************************************************************** C C Function: Set Logic Flag in whether to call degradation routines C C CALLED BY: HRDRIVER C C********************************************************************** IMPLICIT NONE C.....INCLUDES: NONE C.....ARGUMENTS: INTEGER, INTENT( IN ) :: JDATE ! current model date , coded YYYYDDD INTEGER, INTENT( IN ) :: JTIME ! current model time , coded HHMMSS LOGICAL, INTENT( OUT ) :: CALL_DEGRADE ! whether to call degradation routines C.....LOCAL VARIABLES: CHARACTER( 144 ) :: XMSG ! Message text CHARACTER( 16 ), SAVE :: PNAME = 'FIND_DEGRADED' ! Routine name CALL DEGRADE_DATA() CALL DEGRADE_MAP( JDATE, JTIME ) IF( N_REACT_FOUND .GT. 0 )THEN CALL_DEGRADE = .TRUE. ELSE CALL_DEGRADE = .FALSE. ENDIF RETURN END SUBROUTINE FIND_DEGRADED !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header$ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% SUBROUTINE INIT_DEGRADE( CBLK, TCELL, DCELL, PRESS_CELL, QV_CELL, PHOTO_CELL, & JDATE, JTIME ) C********************************************************************** C C FUNCTION: Initialize arrays used by degrade routines then load C CBLK concentration needed in degrade routines. C C CALLED BY: HRDRIVER C C REVISION HISTORY: 07/29/05 : B.Hutzell - Initial version C 09/30/11 : B.Hutzell - added CYCLE statements to allow C optional degraded species i.e., RXTANT_MAP( I ) C is less than zero C C********************************************************************** USE RUNTIME_VARS USE RXNS_DATA USE AERO_DATA #ifdef sens USE DDM3D_DEFN, ONLY : NP, NPMAX #endif IMPLICIT NONE C.....ARGUMENTS: REAL( 8 ), INTENT( IN ) :: CBLK( : ) ! species concentration in cell REAL, INTENT( IN ) :: TCELL ! cell temperature [ k ] REAL, INTENT( IN ) :: DCELL ! cell air density [ kg/m^3 ] REAL, INTENT( IN ) :: PRESS_CELL ! cell Pressure [ Pa ] REAL, INTENT( IN ) :: QV_CELL ! cell water vapor mass mixing ratio [ kg/kg ] REAL( 8 ), INTENT( IN ) :: PHOTO_CELL( : ) ! Photolysis table for cell [ 1/min ] INTEGER, INTENT( IN ) :: JDATE ! current model date , coded YYYYDDD INTEGER, INTENT( IN ) :: JTIME ! current model time , coded HHMMSS C.....LOCAL VARIABLES: CHARACTER( 144 ) :: XMSG ! Message text CHARACTER( 16 ), SAVE :: PNAME = 'INIT_DEGRADE' ! Routine name REAL(8), SAVE :: MASS_TO_NUMBER ! air mass density( Kg/m3) to number density( #/cm3 ) [ (# per moles)/Kg ] REAL(8), SAVE :: CONV_M2N ! factor to convert ppm times mass density in [kg/m^3] ! into number density in [molecules/cm^3] REAL(8) :: PPM_2_NUMBER ! conversion factor from ppm to molecules/cm^3 REAL(8) :: INV_TAIR ! reciprocal of temperature, [K^-1] REAL(8) :: FACTOR ! scale factor INTEGER :: I, J, K ! loop counters INTEGER, SAVE :: ISIZE ! dimension of CBLK array LOGICAL, SAVE :: FIRSTCALL = .TRUE. REAL, PARAMETER :: MAOMW = MWAIR / MWWAT ! Mol Wt of air over Mol Wt of water ! Murray, F.W. 1966. ``On the computation of Saturation Vapor Pressure,' ! J. Appl. Meteor., 6, p. 204. ! esw (in mb) = 6.1078exp[ a(T-273.16)/ (T-b) ], 1 mb = 100 Pa ! SVP1 => 610.78 ! SVP2 => a and SV3 => 35.85 ! over water REAL, PARAMETER :: EP_2 = RDGAS / RWVAP REAL, PARAMETER :: SVP1 = 610.78 ! [ Pa ] REAL, PARAMETER :: SVP2 = 17.2693882 REAL, PARAMETER :: SVP3 = 35.86 REAL :: ESW ! water vapor liquid saturaturion vapor pressure (Pa) REAL :: QVSW ! water vapor saturation mixing ratio (Kg/Kg) REAL :: RHUM ! relative humidity (fraction) REAL :: ORG_H2O ! moles water in organic aeosol mass REAL :: ORG_AERO ! moles organic mass REAL :: H2O_MOLAR_FRACTION ! molar fraction of water in organic aerosol mass C********************************************************************** IF ( FIRSTCALL ) THEN ! initialize constants and allocate arrays MASS_TO_NUMBER = REAL( 1.0E-3*AVO / MWAIR, 8 ) CONV_M2N = 1.0D-6 * MASS_TO_NUMBER ISIZE = SIZE( CBLK ) ALLOCATE( OLD_CONC( ISIZE ) ) ALLOCATE( NEW_CONC( ISIZE ) ) #ifdef sens ALLOCATE( SENS_CONC ( NPMAX, N_AE_SPC ) ) SENS_CONC = 0.0 #endif ALLOCATE( CHANGE_CONC( ISIZE ) ) ALLOCATE( IS_AERO_ORGANIC ( N_AEROSPC ) ) ALLOCATE( CELL_RKI( N_PROCESSES, N_REACT ) ) IS_AERO_ORGANIC( : ) = ( AEROSPC( : )%OM .AND. .NOT. AEROSPC( : )%TRACER ) FIRSTCALL = .FALSE. EFFECTIVE_ZERO = TINY( CONV_M2N ) ENDIF C..initialize concentrations and their changes CHANGE_CONC = 0.0D0 CELL_RKI = 0.0D0 DO I = 1, ISIZE OLD_CONC( I ) = MAX( CBLK( I ), 0.0D0 ) NEW_CONC( I ) = OLD_CONC( I ) END DO CONC_AIR = MASS_TO_NUMBER * REAL( DCELL, 8 ) CONC_N2 = ATM_N2 * CONC_AIR CONC_O2 = ATM_O2 * CONC_AIR CONC_CH4 = ATM_CH4 * CONC_AIR CONC_H2 = ATM_H2 * CONC_AIR CONC_H2O = MAOMW * QV_CELL * CONC_AIR TEMP_AIR = REAL( TCELL, 8 ) PPM_2_NUMBER = CONV_M2N * REAL( DCELL, 8 ) INV_TAIR = 1.0D0 / TEMP_AIR LOOP_REACT: DO I = 1, N_REACT ! calculated rate constants IF( RXTANT_MAP( I ) < 0 )CYCLE LOOP_REACT LOOP_UNIRATE: DO J = 1, N_UNI_LOSS IF( UNIRATE( J, I ) .LT. EFFECTIVE_ZERO )CYCLE CELL_RKI( J, I ) = UNIRATE( J, I ) & * TEMP_AIR**UNI_TEXP( J, I ) & * DEXP( -UNI_ACT( J, I )*INV_TAIR ) END DO LOOP_UNIRATE LOOP_BIRATE: DO J = 1, N_BI_LOSS IF( BIRATE( J, I ) .LT. EFFECTIVE_ZERO )CYCLE IF ( RAD_MAP( J, I ) < 0 ) CYCLE SELECT CASE ( RAD_MAP( J, I ) ) CASE ( 9999 ) FACTOR = CONC_AIR CASE ( 9998 ) FACTOR = CONC_N2 CASE ( 9997 ) FACTOR = CONC_O2 CASE ( 9996 ) FACTOR = CONC_CH4 CASE ( 9995 ) FACTOR = CONC_H2 CASE ( 9994 ) FACTOR = CONC_H2O CASE DEFAULT FACTOR = PPM_2_NUMBER END SELECT CELL_RKI( J+UNI_STOP, I ) = FACTOR * BIRATE( J, I ) & * TEMP_AIR**BI_TEXP( J, I ) & * DEXP( -BI_ACT( J, I )*INV_TAIR ) END DO LOOP_BIRATE LOOP_TRIRATE: DO J = 1, N_TRI_LOSS IF( TRIRATE( J, I ) .LT. EFFECTIVE_ZERO )CYCLE IF ( RAD2_MAP( 1, J, I ) < 0 .OR. RAD2_MAP( 2, J, I ) < 0 ) CYCLE SELECT CASE ( RAD2_MAP( 1, J, I ) ) CASE ( 9999 ) FACTOR = CONC_AIR CASE ( 9998 ) FACTOR = CONC_N2 CASE ( 9997 ) FACTOR = CONC_O2 CASE ( 9996 ) FACTOR = CONC_CH4 CASE ( 9995 ) FACTOR = CONC_H2 CASE ( 9994 ) FACTOR = CONC_H2O CASE DEFAULT FACTOR = PPM_2_NUMBER END SELECT SELECT CASE ( RAD2_MAP( 2, J, I ) ) CASE ( 9999 ) FACTOR = FACTOR * CONC_AIR CASE ( 9998 ) FACTOR = FACTOR * CONC_N2 CASE ( 9997 ) FACTOR = FACTOR * CONC_O2 CASE ( 9996 ) FACTOR = FACTOR * CONC_CH4 CASE ( 9995 ) FACTOR = FACTOR * CONC_H2 CASE ( 9994 ) FACTOR = FACTOR * CONC_H2O CASE DEFAULT FACTOR = FACTOR * PPM_2_NUMBER END SELECT CELL_RKI( J+BI_STOP, I ) = FACTOR * TRIRATE( J, I ) & * TEMP_AIR**TRI_TEXP( J, I ) & * DEXP( -TRI_ACT( J, I )*INV_TAIR ) END DO LOOP_TRIRATE LOOP_PHOTORATE: DO J = 1, N_PHOTO_LOSS K = PHOTO_MAP( J, I ) IF ( K < 1 ) CYCLE IF( A_PHOTO( J, I ) .LT. EFFECTIVE_ZERO )CYCLE CELL_RKI( J+TRI_STOP, I ) = 60.0D0 * A_PHOTO( J, I ) & * PHOTO_CELL( K ) END DO LOOP_PHOTORATE IF ( AE7ORGH2O ) THEN ! use water absorbed by organic mass #ifdef sens CALL EXTRACT_AERO( REAL( CBLK( : ),4 ), .FALSE., SENS_CONC, .FALSE. ) #else CALL EXTRACT_AERO( REAL( CBLK( : ),4 ), .FALSE. ) #endif ORG_H2O = SUM( AEROSPC_CONC( AORGH2O_IDX, 1:2 ) ) * AEROSPC_MWINV( AORGH2O_IDX ) ORG_AERO = SUM( SUM( AEROSPC_CONC( :,1:2 ),2 ) * AEROSPC_MWINV( : ), & MASK=IS_AERO_ORGANIC( : ) ) H2O_MOLAR_FRACTION = ORG_H2O / MAX( (ORG_H2O + ORG_AERO), EFFECTIVE_ZERO ) ELSE ! use relative humidity as surrogate ESW = SVP1 * EXP( SVP2 * ( TCELL - STDTEMP ) / ( TCELL - SVP3 ) ) QVSW = ( EP_2 * ESW ) / ( PRESS_CELL - ESW ) RHUM = QV_CELL / QVSW H2O_MOLAR_FRACTION = RHUM END IF LOOP_LHRATE: DO J = 1, N_LANHIN_LOSS IF ( RAD_MAP( J + N_BI_LOSS, I ) < 0 ) CYCLE IF( LHRATE( J, I ) .GT. EFFECTIVE_ZERO & .AND. TCELL .GT. LH_TAMIN( J, I ) & .AND. H2O_MOLAR_FRACTION .GT. LH_RHMIN( J, I ) )THEN SELECT CASE ( RAD_MAP( J + N_BI_LOSS, I ) ) CASE ( 9999 ) FACTOR = CONC_AIR CASE ( 9998 ) FACTOR = CONC_N2 CASE ( 9997 ) FACTOR = CONC_O2 CASE ( 9996 ) FACTOR = CONC_CH4 CASE ( 9995 ) FACTOR = CONC_H2 CASE ( 9994 ) FACTOR = CONC_H2O CASE DEFAULT FACTOR = PPM_2_NUMBER END SELECT CELL_RKI( J+PHOTO_STOP, I ) = LH_EQU( J, I ) * FACTOR END IF END DO LOOP_LHRATE END DO LOOP_REACT RETURN END SUBROUTINE INIT_DEGRADE !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header$ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% SUBROUTINE INIT_DEGRADE_BLK( CBLK, TCELL, DCELL, PRESS_CELL, H2O_CELL, PHOTO_CELL, & JDATE, JTIME ) C********************************************************************** C C FUNCTION: Initialize arrays used by degrade routines then load C CBLK concentration needed in degrade routines. C C CALLED BY: GRDRIVER or RBDRIVER C C REVISION HISTORY: 07/29/05 : B.Hutzell - Initial version C 09/30/11 : B.Hutzell - added CYCLE statements to allow C optional degraded species i.e., RXTANT_MAP( I ) C is less than zero C C********************************************************************** USE RUNTIME_VARS USE RXNS_DATA USE AERO_DATA #ifdef sens USE DDM3D_DEFN, ONLY : NP, NPMAX #endif IMPLICIT NONE C.....ARGUMENTS: REAL( 8 ), INTENT( IN ) :: CBLK( :,: ) ! species concentration in cell REAL( 8 ), INTENT( IN ) :: TCELL( : ) ! cell temperature [ k ] REAL( 8 ), INTENT( IN ) :: DCELL( : ) ! cell air density [ kg/m^3 ] REAL( 8 ), INTENT( IN ) :: PRESS_CELL( : ) ! cell Pressure [ atm ] REAL( 8 ), INTENT( IN ) :: H2O_CELL( : ) ! cell water vapor mass mixing ratio [ ppm ] REAL( 8 ), INTENT( IN ) :: PHOTO_CELL( :,: ) ! Photolysis table for cell [1/min] INTEGER, INTENT( IN ) :: JDATE ! current model date , coded YYYYDDD INTEGER, INTENT( IN ) :: JTIME ! current model time , coded HHMMSS C.....LOCAL VARIABLES: CHARACTER( 144 ) :: XMSG ! Message text CHARACTER( 16 ), SAVE :: PNAME = 'INIT_DEGRADE' ! Routine name REAL(8), SAVE :: MASS_TO_NUMBER ! air mass density( Kg/m3) to number density( #/cm3 ) [ (# per moles)/Kg ] REAL(8), SAVE :: CONV_M2N ! factor to convert ppm times mass density in [kg/m^3] ! into number density in [molecules/cm^3] REAL(8) :: FACTOR ! scale factor INTEGER :: I, J, K ! loop counters INTEGER, SAVE :: ISIZE ! dimension of CBLK array LOGICAL, SAVE :: FIRSTCALL = .TRUE. REAL, PARAMETER :: MAOMW = MWAIR / MWWAT ! Mol Wt of air over Mol Wt of water REAL( 8 ), PARAMETER :: MWOMA = REAL( MWWAT / MWAIR,8 ) ! Mol Wt of water over Mol Wt of air REAL( 8 ), PARAMETER :: ATM_TO_PA = REAL( STDATMPA,8 ) ! Pascals per Atmosphere ! Murray, F.W. 1966. ``On the computation of Saturation Vapor Pressure,' ! J. Appl. Meteor., 6, p. 204. ! esw (in mb) = 6.1078exp[ a(T-273.16)/ (T-b) ], 1 mb = 100 Pa ! SVP1 => 610.78 ! SVP2 => a and SV3 => 35.85 ! over water REAL, PARAMETER :: EP_2 = RDGAS / RWVAP REAL, PARAMETER :: SVP1 = 610.78 ! [ Pa ] REAL, PARAMETER :: SVP2 = 17.2693882 REAL, PARAMETER :: SVP3 = 35.86 REAL :: ESW ! water vapor liquid saturaturion vapor pressure (Pa) REAL :: QVSW ! water vapor saturation mixing ratio (Kg/Kg) REAL :: RHUM ! relative humidity (fraction) REAL :: ORG_H2O ! moles water in organic aeosol mass REAL :: ORG_AERO ! moles organic mass REAL, ALLOCATABLE, SAVE :: H2O_MOLAR_FRACTION( : ) ! molar fraction of water in organic aerosol mass INTEGER :: ICELL C********************************************************************** IF ( FIRSTCALL ) THEN ! initialize constants and allocate arrays MASS_TO_NUMBER = REAL( 1.0E-3*AVO / MWAIR, 8 ) CONV_M2N = 1.0D-6 * MASS_TO_NUMBER ALLOCATE( PREV_CONC ( BLKSIZE, NSPCSD ) ) ALLOCATE( CURR_CONC ( BLKSIZE, NSPCSD ) ) #ifdef sens ALLOCATE( SENS_BLK ( BLKSIZE, NPMAX, N_AE_SPC ) ) SENS_BLK = 0.0 #endif ALLOCATE( DELT_CONC ( BLKSIZE, NSPCSD ) ) ALLOCATE( TEMP ( BLKSIZE ) ) ALLOCATE( INV_TEMP ( BLKSIZE ) ) ALLOCATE( NUMB_DENS ( BLKSIZE ) ) ALLOCATE( NUMB_H2O ( BLKSIZE ) ) ALLOCATE( CONV_FACT ( BLKSIZE ) ) ALLOCATE( WRITE_CELL( BLKSIZE ) ) ALLOCATE( IS_AERO_ORGANIC ( N_AEROSPC ) ) ALLOCATE( RATE_CONST( BLKSIZE, N_PROCESSES, N_REACT ) ) ALLOCATE( H2O_MOLAR_FRACTION( BLKSIZE ) ) IS_AERO_ORGANIC( : ) = ( AEROSPC( : )%OM .AND. .NOT. AEROSPC( : )%TRACER ) INFINITY = HUGE( CONV_M2N ) EFFECTIVE_ZERO = TINY( CONV_M2N ) WRITE_CELL = .FALSE. FIRSTCALL = .FALSE. ENDIF C..initialize concentrations and their changes DELT_CONC = 0.0D0 RATE_CONST = 0.0D0 DEGRADE_STEP = 0 DO I = 1, NSPCSD PREV_CONC( :,I ) = MAX( CBLK( :,I ), 0.0D0 ) CURR_CONC( :,I ) = PREV_CONC( :,I ) END DO NUMB_DENS = MASS_TO_NUMBER * REAL( DCELL, 8 ) NUMB_H2O = 1.0D-6 * H2O_CELL * NUMB_DENS CONV_FACT = CONV_M2N * REAL( DCELL, 8 ) TEMP = REAL( TCELL, 8 ) PRESS = ATM_TO_PA * PRESS_CELL WHERE( TEMP .GT. 0 ) INV_TEMP = 1.0D0 / TEMP ELSE WHERE INV_TEMP = 0.0D0 END WHERE LOOP_REACT: DO I = 1, N_REACT ! calculated rate constants IF( RXTANT_MAP( I ) < 0 )CYCLE LOOP_REACT LOOP_UNIRATE: DO J = 1, N_UNI_LOSS IF( UNIRATE( J, I ) .LT. EFFECTIVE_ZERO )CYCLE LOOP_CELL: DO ICELL = 1, NCELLS RATE_CONST( ICELL, J, I ) = UNIRATE( J, I ) & * TEMP( ICELL )**UNI_TEXP( J, I ) & * DEXP( -UNI_ACT( J, I )*INV_TEMP( ICELL ) ) END DO LOOP_CELL END DO LOOP_UNIRATE #ifdef verbose_gas IF( WRITE_BLOCK )THEN WRITE(LOGDEV,'(A,6(1X,ES12.4))')'TEMP,NUMB,PRESS = ',TCELL(ICELL_WRITE),NUMB_DENS(ICELL_WRITE), & PRESS(ICELL_WRITE) WRITE(LOGDEV,*)'UNIRATES for ',REACT(I) DO J = 1, N_UNI_LOSS WRITE(LOGDEV,*)J,RATE_CONST( ICELL_WRITE, J, I ) END DO END IF #endif LOOP_BIRATE: DO J = 1, N_BI_LOSS IF( BIRATE( J, I ) .LT. EFFECTIVE_ZERO )CYCLE IF ( RAD_MAP( J, I ) < 0 ) CYCLE SELECT CASE ( RAD_MAP( J, I ) ) CASE ( 9999 ) FACTOR = ATM_AIR CASE ( 9998 ) FACTOR = ATM_N2 CASE ( 9997 ) FACTOR = ATM_O2 CASE ( 9996 ) FACTOR = ATM_CH4 CASE ( 9995 ) FACTOR = ATM_H2 CASE DEFAULT FACTOR = 1.0D0 END SELECT IF ( RAD_MAP( J, I ) .EQ. 9994 ) THEN DO ICELL = 1, NCELLS RATE_CONST( ICELL, J+UNI_STOP, I ) = NUMB_H2O( ICELL ) * BIRATE( J, I ) & * TEMP( ICELL )**BI_TEXP( J, I ) & * DEXP( -BI_ACT( J, I )*INV_TEMP( ICELL ) ) END DO ELSE DO ICELL = 1, NCELLS RATE_CONST( ICELL, J+UNI_STOP, I ) = FACTOR * CONV_FACT( ICELL ) * BIRATE( J, I ) & * TEMP( ICELL )**BI_TEXP( J, I ) & * DEXP( -BI_ACT( J, I )*INV_TEMP( ICELL ) ) END DO END IF END DO LOOP_BIRATE #ifdef verbose_gas IF( WRITE_BLOCK )THEN WRITE(LOGDEV,'(A,6(1X,ES12.4))')'TEMP,NUMB,PRESS = ',TCELL(ICELL_WRITE),NUMB_DENS(ICELL_WRITE), & PRESS(ICELL_WRITE) WRITE(LOGDEV,*)'BIRATES for ',REACT(I) DO J = 1, N_BI_LOSS WRITE(LOGDEV,*)J+UNI_STOP,RATE_CONST( ICELL_WRITE, J+UNI_STOP, I ) END DO END IF #endif LOOP_TRIRATE: DO J = 1, N_TRI_LOSS IF( TRIRATE( J, I ) .LT. EFFECTIVE_ZERO )CYCLE IF ( RAD2_MAP( 1, J, I ) < 0 .OR. RAD2_MAP( 2, J, I ) < 0 ) CYCLE SELECT CASE ( RAD2_MAP( 1, J, I ) ) CASE ( 9999 ) FACTOR = ATM_AIR CASE ( 9998 ) FACTOR = ATM_N2 CASE ( 9997 ) FACTOR = ATM_O2 CASE ( 9996 ) FACTOR = ATM_CH4 CASE ( 9995 ) FACTOR = ATM_H2 CASE DEFAULT FACTOR = 1.0D0 END SELECT SELECT CASE ( RAD2_MAP( 2, J, I ) ) CASE ( 9999 ) FACTOR = FACTOR CASE ( 9998 ) FACTOR = FACTOR * ATM_N2 CASE ( 9997 ) FACTOR = FACTOR * ATM_O2 CASE ( 9996 ) FACTOR = FACTOR * ATM_CH4 CASE ( 9995 ) FACTOR = FACTOR * ATM_H2 CASE DEFAULT FACTOR = FACTOR END SELECT IF ( RAD2_MAP( 1, J, I ) .EQ. 9994 .AND. RAD2_MAP( 2, J, I ) .NE. 9994 ) THEN DO ICELL = 1, NCELLS RATE_CONST( ICELL, J+BI_STOP, I ) = FACTOR * TRIRATE( J, I ) & * NUMB_H2O( ICELL ) * CONV_FACT( ICELL ) & * TEMP( ICELL )**TRI_TEXP( J, I ) & * DEXP( -TRI_ACT( J, I )*INV_TEMP( ICELL ) ) END DO ELSE IF ( RAD2_MAP( 1, J, I ) .NE. 9994 .AND. RAD2_MAP( 2, J, I ) .EQ. 9994 ) THEN DO ICELL = 1, NCELLS RATE_CONST( ICELL, J+BI_STOP, I ) = FACTOR * TRIRATE( J, I ) & * NUMB_H2O( ICELL ) * CONV_FACT( ICELL ) & * TEMP( ICELL )**TRI_TEXP( J, I ) & * DEXP( -TRI_ACT( J, I )*INV_TEMP( ICELL ) ) END DO ELSE IF ( RAD2_MAP( 1, J, I ) .EQ. 9994 .AND. RAD2_MAP( 2, J, I ) .EQ. 9994 ) THEN DO ICELL = 1, NCELLS RATE_CONST( ICELL, J+BI_STOP, I ) = TRIRATE( J, I ) & * NUMB_H2O( ICELL ) * NUMB_H2O( ICELL ) & * TEMP( ICELL )**TRI_TEXP( J, I ) & * DEXP( -TRI_ACT( J, I )*INV_TEMP( ICELL ) ) END DO ELSE DO ICELL = 1, NCELLS RATE_CONST( ICELL, J+BI_STOP, I ) = FACTOR * TRIRATE( J, I ) & * CONV_FACT( ICELL ) * CONV_FACT( ICELL ) & * TEMP( ICELL )**TRI_TEXP( J, I ) & * DEXP( -TRI_ACT( J, I )*INV_TEMP( ICELL ) ) END DO END IF END DO LOOP_TRIRATE #ifdef verbose_gas IF( WRITE_BLOCK )THEN WRITE(LOGDEV,'(A,6(1X,ES12.4))')'TEMP,NUMB,PRESS = ',TCELL(ICELL_WRITE),NUMB_DENS(ICELL_WRITE), & PRESS(ICELL_WRITE) WRITE(LOGDEV,*)'TRI_RATES for ',REACT(I) DO J = 1, N_TRI_LOSS WRITE(LOGDEV,*)J+BI_STOP,RATE_CONST( ICELL_WRITE, J+BI_STOP, I ) END DO END IF #endif LOOP_PHOTORATE: DO J = 1, N_PHOTO_LOSS K = PHOTO_MAP( J, I ) IF ( K < 1 ) CYCLE IF( A_PHOTO( J, I ) .LT. EFFECTIVE_ZERO )CYCLE DO ICELL = 1, NCELLS RATE_CONST( ICELL, J+TRI_STOP, I ) = 60.0D0 * A_PHOTO( J, I ) & * PHOTO_CELL( ICELL, K ) END DO END DO LOOP_PHOTORATE #ifdef verbose_gas IF( WRITE_BLOCK )THEN WRITE(LOGDEV,'(A,6(1X,ES12.4))')'TEMP,NUMB,PRESS = ',TCELL(ICELL_WRITE),NUMB_DENS(ICELL_WRITE), & PRESS(ICELL_WRITE) WRITE(LOGDEV,*)'PHOTO_RATES for ',REACT(I) DO J = 1, N_PHOTO_LOSS WRITE(LOGDEV,*)J+TRI_STOP,RATE_CONST( ICELL_WRITE,J+TRI_STOP, I ) END DO END IF #endif IF ( AE7ORGH2O ) THEN ! use water absorbed by organic mass DO ICELL = 1, NCELLS #ifdef sens CALL EXTRACT_AERO( REAL( CBLK( ICELL,: ),4 ), .FALSE., SENS_BLK(ICELL,:,:), .FALSE.) #else CALL EXTRACT_AERO( REAL( CBLK(ICELL,: ),4 ), .FALSE. ) #endif ORG_H2O = SUM( AEROSPC_CONC( AORGH2O_IDX, 1:2 ) ) * AEROSPC_MWINV( AORGH2O_IDX ) ORG_AERO = SUM( SUM( AEROSPC_CONC( :,1:2 ),2 ) * AEROSPC_MWINV( : ), & MASK=IS_AERO_ORGANIC( : ) ) H2O_MOLAR_FRACTION( ICELL ) = ORG_H2O & / MAX( (ORG_H2O + ORG_AERO), EFFECTIVE_ZERO ) #ifdef verbose_gas IF( ICELL .EQ. ICELL_WRITE )THEN WRITE(LOGDEV,'(A,6(1X,ES12.4))')'ORG_H2O, ORG_H2O,H2O_MOLAR_FRACTION = ', & ORG_H2O, ORG_H2O,H2O_MOLAR_FRACTION(ICELL) END IF #endif END DO ELSE ! use relative humidity as surrogate DO ICELL = 1, NCELLS ESW = SVP1 * EXP( SVP2 * ( TEMP( ICELL ) - STDTEMP ) / ( TEMP( ICELL ) - SVP3 ) ) QVSW = ( EP_2 * ESW ) / ( PRESS( ICELL ) - ESW ) RHUM = ( 1.0D-6 * MWOMA * H2O_CELL( ICELL ) ) / QVSW H2O_MOLAR_FRACTION( ICELL ) = RHUM END DO END IF LOOP_LHRATE: DO J = 1, N_LANHIN_LOSS IF ( RAD_MAP( J + N_BI_LOSS, I ) < 0 ) CYCLE IF( LHRATE( J, I ) .GT. EFFECTIVE_ZERO )THEN DO ICELL = 1, NCELLS IF ( TCELL( ICELL ) .GT. LH_TAMIN( J, I ) & .AND. H2O_MOLAR_FRACTION( ICELL ) .GT. LH_RHMIN( J, I ) ) THEN SELECT CASE ( RAD_MAP( J, I ) ) CASE ( 9999 ) FACTOR = ATM_AIR CASE ( 9998 ) FACTOR = ATM_N2 CASE ( 9997 ) FACTOR = ATM_O2 CASE ( 9996 ) FACTOR = ATM_CH4 CASE ( 9995 ) FACTOR = ATM_H2 CASE DEFAULT FACTOR = 1.0D0 END SELECT IF ( RAD_MAP( J, I ) .EQ. 9994 ) THEN RATE_CONST( ICELL, J+PHOTO_STOP, I ) = NUMB_H2O( ICELL ) * LH_EQU( J, I ) ELSE RATE_CONST( ICELL, J+PHOTO_STOP, I ) = FACTOR * CONV_FACT( ICELL ) * LH_EQU( J, I ) END IF END IF END DO END IF END DO LOOP_LHRATE #ifdef verbose_gas IF( WRITE_BLOCK )THEN WRITE(LOGDEV,'(A,6(1X,ES12.4))')'TEMP,NUMB,PRESS,H2O = ',TCELL(ICELL_WRITE),NUMB_DENS(ICELL_WRITE), & PRESS(ICELL_WRITE),NUMB_H2O(ICELL_WRITE) WRITE(LOGDEV,*)'LH_RATES for ',REACT(I) DO J = 1, N_LANHIN_LOSS WRITE(LOGDEV,'(A,1X,I3,6(1X,ES12.4))')'LH_RCONST:', J+PHOTO_STOP,RATE_CONST( ICELL_WRITE, J+PHOTO_STOP, I ) END DO END IF #endif END DO LOOP_REACT RETURN END SUBROUTINE INIT_DEGRADE_BLK END MODULE DEGRADE_ROUTINES ================================================ FILE: CCTM/src/reactive_tracers/DEGRADE_SETUP_TOX.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! MODULE DEGRADE_SETUP_TOX C********************************************************************** C C FUNCTION: Define arrays that identify species within CGRID used C based on input arrays C C REVISION HISTORY: 07/29/05 : B.Hutzell - Initial version C 06 May 11: B.Hutzell: convert for Namelist redesign C 09 May 11: B.Hutzell: enabled a degraded species to C be missing from namelists C C********************************************************************** USE GRID_CONF, ONLY: BLKSIZE ! vertical and horizontal domain specs USE CGRID_SPCS ! CGRID species number and offsets USE UTILIO_DEFN ! IOAPI declarations and definitions USE DEGRADE_PARAMETERS IMPLICIT NONE C.....INCLUDES: INCLUDE SUBST_CONST ! constants REAL(8) :: EFFECTIVE_ZERO REAL(8) :: LOG_EFFECTIVE_ZERO REAL(8) :: INFINITY C..arrays to store indices to CGRID INTEGER, ALLOCATABLE :: RXTANT_MAP ( : ) INTEGER, ALLOCATABLE :: DEGRADE_INDEX( : ) INTEGER, ALLOCATABLE :: PROD_MAP( :,: ) INTEGER, ALLOCATABLE :: RAD_MAP( :,: ) INTEGER, ALLOCATABLE :: RAD2_MAP( :,:,: ) INTEGER, ALLOCATABLE :: PHOTO_MAP( :,: ) INTEGER :: DEGRADE_STEP INTEGER :: SA_DEGRADE_STEP = 0 C..saved cell concentrations REAL( 8 ), ALLOCATABLE :: OLD_CONC( : ) REAL( 8 ), ALLOCATABLE :: NEW_CONC( : ) #ifdef sens REAL, ALLOCATABLE :: SENS_CONC( :,: ) #endif REAL( 8 ) :: TEMP_AIR ! cell temperature [ K ] REAL( 8 ) :: CONC_AIR ! cell air number density [ 1/CM^3 ] REAL( 8 ) :: CONC_N2 ! cell N2 number density [ 1/CM^3 ] REAL( 8 ) :: CONC_O2 ! cell O2 number density [ 1/CM^3 ] REAL( 8 ) :: CONC_CH4 ! cell CH4 number density [ 1/CM^3 ] REAL( 8 ) :: CONC_H2 ! cell H2 number density [ 1/CM^3 ] REAL( 8 ) :: CONC_H2O ! cell H2O number density [ 1/CM^3 ] C..saved blocked cells concentrations REAL( 8 ), ALLOCATABLE :: PREV_CONC( :,: ) REAL( 8 ), ALLOCATABLE :: CURR_CONC( :,: ) #ifdef sens REAL, ALLOCATABLE :: SENS_BLK( :,:,: ) #endif REAL( 4 ), ALLOCATABLE :: AERO_BLK ( :,: ) REAL( 8 ), ALLOCATABLE :: TEMP( : ) ! cell temperature [ K ] REAL( 8 ), ALLOCATABLE :: PRESS( : ) ! cell Pressure [ Pa ] REAL( 8 ), ALLOCATABLE :: INV_TEMP( : ) ! cell inverse temperature [ 1/K ] REAL( 8 ), ALLOCATABLE :: NUMB_DENS( : ) ! cell air number density [ 1/CM^3 ] REAL( 8 ), ALLOCATABLE :: NUMB_H2O( : ) ! cell H2O number density [ 1/CM^3 ] REAL( 8 ), ALLOCATABLE :: CONV_FACT( : ) ! conversion factor from ppm to molecules/cm^3 REAL(8), ALLOCATABLE :: CHANGE_CONC( : ) ! cell concentration changes predicted by degrade routine REAL(8), ALLOCATABLE :: DELT_CONC( :,: ) ! block concentration changes predicted by degrade routine REAL(8), ALLOCATABLE :: CELL_RKI( :,: ) ! cell rate constant for species REAL(8), ALLOCATABLE :: RATE_CONST( :,:,: ) ! block rate constants for species REAL(8), ALLOCATABLE :: RATE_YIELD( :,: ) ! product yield from reaction #ifdef isam INTEGER :: ISAM_DEGRADED_SPC ! number of ISAM species with degradation INTEGER, ALLOCATABLE :: ISAM_DEGRADE_MAP( : ) ! index in ISAM species array to extract conc INTEGER, ALLOCATABLE :: ISAM_TO_DEGRADED( : ) ! index in REACT concentation array INTEGER, ALLOCATABLE :: ISAM_TO_REACTANT( : ) ! index in REACT data array to determine degradation REAL(8), ALLOCATABLE :: CELL_ISAM( :,: ) ! concentrations apportioned to sources CHARACTER( 16 ), ALLOCATABLE :: ISAM_DEGRADED( : ) ! names of degraded isam species #endif LOGICAL, ALLOCATABLE :: IS_AERO_ORGANIC( : ) ! is aerosol species as OA and not a tracer INTEGER :: NCELLS = 0 ! number of cells in block C.. variables used to write cell results INTEGER :: DEG_LAY = 0 INTEGER :: DEG_ROW = 0 INTEGER :: DEG_COL = 0 C.. variable used to write a cell in a block INTEGER :: ICELL_WRITE = 1 LOGICAL :: WRITE_BLOCK = .FALSE. LOGICAL, ALLOCATABLE :: WRITE_CELL( : ) ! write cell value used for debugging and QA C********************************************************************** CONTAINS SUBROUTINE DEGRADE_MAP( JDATE, JTIME ) C********************************************************************** C C Function: Determine CGRID indices used in DEGRADE routine. C Check decay and degradation rates for negative values. C C CALLED BY: INIT_DEGRADE C C********************************************************************** USE RXNS_DATA #ifdef mpas use util_module, only : index1, upcase #endif IMPLICIT NONE C.....INCLUDES: C.....ARGUMENTS: INTEGER, INTENT( IN ) :: JDATE ! current model date , coded YYYYDDD INTEGER, INTENT( IN ) :: JTIME ! current model time , coded HHMMSS C.....PARAMETERS: REAL(8), PARAMETER :: TEMP_298K = 298.15 ! K C.....LOCAL VARIABLES: CHARACTER( 16 ) :: PNAME = 'DEGRADE_MAP ' ! name of routine CHARACTER( 16 ) :: EMTPTY CHARACTER( 16 ) :: WNAME, XNAME ! SCRATCH variables CHARACTER( 16 ) :: VNAME( N_PROCESSES+1 ) ! SCRATCH variable CHARACTER( 128 ) :: XMSG = 'FATAL ERROR in DEGRADE_SETUP' INTEGER :: MARKER, N, M ! indexes INTEGER :: I, J, K, L ! loop counters INTEGER :: LEN_NAME ! number of nonblank characters in species name INTEGER :: ICOUNT REAL(8), PARAMETER :: INV_T298K = 1.0D0 / TEMP_298K ! K^-1 LOGICAL, SAVE :: INITIALIZED = .FALSE. C.....EXTERNAL FUNCTIONS: C********************************************************************** IF( INITIALIZED )RETURN INITIALIZED = .FALSE. C..arrays to store indices to CGRID ALLOCATE( RXTANT_MAP ( N_REACT ) ) ALLOCATE( DEGRADE_INDEX( N_REACT ) ) ALLOCATE( PROD_MAP ( N_PROCESSES, N_REACT ) ) ALLOCATE( RAD_MAP ( N_BI_LOSS + N_LANHIN_LOSS, N_REACT ) ) ALLOCATE( RAD2_MAP ( 2, N_TRI_LOSS, N_REACT ) ) ALLOCATE( PHOTO_MAP ( N_PHOTO_LOSS, N_REACT ) ) ALLOCATE( RATE_YIELD( N_PROCESSES, N_REACT ) ) C..Initialize maps RXTANT_MAP = -1 DEGRADE_INDEX = -1 RAD_MAP = -1 RAD2_MAP = -1 PROD_MAP = -1 PHOTO_MAP = -1 RATE_YIELD = 1.0D0 C..save number of photolysis rates in mechanism N_PHOTO_TAB = NPHOTAB C..Quality control on pairs of Reactant and Products WRITE( LOGDEV,* ) 'Comments on Species in degradation routines' N_REACT_FOUND = 0 LOOP_REACT : DO I = 1, N_REACT VNAME( 1 ) = REACT( I ) VNAME( UNI_START+1 : UNI_STOP+1 ) = UNI_PROD ( 1:N_UNI_LOSS, I ) VNAME( BI_START+1 : BI_STOP+1 ) = BI_PROD ( 1:N_BI_LOSS, I ) VNAME( TRI_START+1 : TRI_STOP+1 ) = TRI_PROD ( 1:N_TRI_LOSS, I ) VNAME( PHOTO_START+1:PHOTO_STOP+1 ) = PHOTO_PROD( 1:N_PHOTO_LOSS, I ) VNAME( LANHIN_START+1:LANHIN_STOP+1 ) = LH_PROD ( 1:N_LANHIN_LOSS, I ) RATE_YIELD( UNI_START:UNI_STOP, I ) = UNI_YIELD( 1:N_UNI_LOSS, I ) RATE_YIELD( BI_START:BI_STOP, I ) = BI_YIELD ( 1:N_BI_LOSS, I ) RATE_YIELD( TRI_START:TRI_STOP, I ) = TRI_YIELD( 1:N_TRI_LOSS, I ) RATE_YIELD( PHOTO_START:PHOTO_STOP, I ) = PHOTO_YIELD( 1:N_PHOTO_LOSS, I ) RATE_YIELD( LANHIN_START:LANHIN_STOP, I ) = LH_YIELD( 1:N_LANHIN_LOSS, I ) CALL UPCASE( VNAME( 1 ) ) LEN_NAME = LEN_TRIM( VNAME( 1 ) ) IF ( LEN_NAME < 1 ) THEN WRITE( LOGDEV,* ) 'A Reactant has no name.' & // ' Check file degrade module' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT3 ) ENDIF DO K = 1, N_REACT WNAME = REACT( K ) CALL UPCASE( WNAME ) DO J = 2, N_PROCESSES+1 XNAME = VNAME( J ) IF( TRIM( WNAME ) == TRIM( XNAME ) )THEN WRITE( XMSG,* ) 'ERROR: ', & TRIM( VNAME( 1 ) ), ' is a destroyed and produced.' & // ' The property is not allowed because it' & // ' brakes linear assumptions used.' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT3 ) END IF END DO END DO DO K = 1, N_BI_LOSS IF ( VNAME( 1 ) == BICAUSE( K, I ) ) THEN WRITE( XMSG,* ) 'ERROR: ', & TRIM( VNAME( 1 ) ), ' has same name' & // ' as a species causing its bimolecular loss.' & // ' This breaks linear assumptions used.' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT3 ) ENDIF ENDDO DO K = 1, N_TRI_LOSS IF ( VNAME( 1 ) == TRICAUSE( 1, K, I ) .OR. & VNAME( 1 ) == TRICAUSE( 2, K, I ) ) THEN WRITE( XMSG,* ) 'ERROR: ', & TRIM( VNAME( 1 ) ), ' has same name as' & // ' a species causing its trimolecular loss.' & // ' This breaks linear assumptions used.' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT3 ) ENDIF ENDDO DO K = 1, N_LANHIN_LOSS IF ( VNAME( 1 ) == LHCAUSE( K, I ) ) THEN WRITE( XMSG,* ) 'ERROR: ', & VNAME( 1 )( 1:LEN_NAME ), ' has' & // ' same name as a species causing its Langmuir' & // '-Hinshwood loss. This breaks linear assumptions used. ' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT3 ) ENDIF ENDDO C..Set up indices that point to concentrations in CGRID. DO 20 J = 1, N_PROCESSES+1 WNAME = VNAME( J ) ! note that reactant occupies VNAME(1) LEN_NAME = LEN_TRIM( WNAME ) CALL UPCASE( WNAME ) IF ( LEN_NAME > 0 ) THEN ! search gas species for index N = INDEX1( WNAME, N_GC_SPC, GC_SPC ) MARKER = GC_STRT IF ( N == 0 ) THEN ! search aerosol them non-reactive species for index N = INDEX1( WNAME, N_AE_SPC, AE_SPC ) MARKER = AE_STRT IF ( N == 0 ) THEN N = INDEX1( WNAME, N_NR_SPC, NR_SPC ) MARKER = NR_STRT IF ( N == 0 ) THEN #ifdef verbose_gas WRITE( LOGDEV,'(a)' ) TRIM( WNAME ), ' is not ' & // 'in gas or nonreactive species table.' & // 'its loss processes not calculated ' #endif RXTANT_MAP( I ) = -1 CYCLE ENDIF ENDIF ENDIF N_REACT_FOUND = N_REACT_FOUND + 1 ELSE VNAME( J ) = 'NONE' CYCLE ENDIF C..write degrade data table IF ( N_REACT_FOUND == 1 ) THEN WRITE( LOGDEV,* ) 'TABLE on Degradation Simulated.' WRITE( LOGDEV,* ) 'Note: Rates use units of cm, sec, and molecules.' WRITE( LOGDEV,* ) WRITE( LOGDEV,1600 ) ENDIF C..set map values IF ( J < 2 ) THEN DEGRADE_INDEX( N_REACT_FOUND ) = I RXTANT_MAP ( I ) = N + MARKER - 1 ELSE PROD_MAP( J-1, I ) = N + MARKER - 1 ENDIF 20 CONTINUE C..cycle N_REACT LOOP IF( RXTANT_MAP( I ) .LT. 1 )CYCLE LOOP_REACT C..check UNIMOLECULAR decay rates K = 0 DO J = 1, N_UNI_LOSS IF ( UNIRATE( J, I ) < 0.0 ) THEN WRITE( LOGDEV,* ) 'Species ', REACT( I ), ' has a' & // 'negative rate for unimolecular decay.' & // 'Check degrade module' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT3 ) ENDIF WRITE( LOGDEV,1100 ) VNAME( 1 ), RXTANT_MAP( I ), & ' Unimolecular ', & UNIRATE( J, I ) * TEMP_298K**UNI_TEXP( J, I ) & * EXP( -UNI_ACT( J, I ) * INV_T298K ), & VNAME( J+1 ), PROD_MAP( J, I ) ENDDO K = K + N_UNI_LOSS C..locating degradation causes in CGRID DO 40 J = 1, N_BI_LOSS C..checking degradation rates IF ( BIRATE( J, I ) < 0.0 ) THEN WRITE( LOGDEV,* ) 'Species ', REACT( I ), 'has a negative' & // ' rate for degradation by ', WNAME( 1:LEN_NAME ), '.' & // ' Check degrade module.' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT3 ) ENDIF WNAME = BICAUSE( J, I ) CALL UPCASE( WNAME ) LEN_NAME = LEN_TRIM( WNAME ) IF ( LEN_NAME < 1 ) CYCLE MARKER = 0 IF ( WNAME == 'DENSITY' .OR. WNAME == 'M' ) THEN ! special case rate proportion to air density RAD_MAP( J, I ) = 9999 ENDIF IF ( WNAME == 'N2' ) THEN ! special case rate proportion to molecular nitrogen RAD_MAP( J, I ) = 9998 ENDIF IF ( WNAME == 'O2' ) THEN ! special case rate proportion to molecular oxygen RAD_MAP( J, I ) = 9997 ENDIF IF ( WNAME == 'CH4' ) THEN ! special case rate proportion to methane RAD_MAP( J, I ) = 9996 ENDIF IF ( WNAME == 'H2' ) THEN ! special case rate proportion to hydrogen RAD_MAP( J, I ) = 9995 ENDIF IF ( WNAME == 'H2O' ) THEN ! special case rate proportion to water vapor RAD_MAP( J, I ) = 9994 ENDIF IF ( RAD_MAP( J, I ) < 0 ) THEN ! search model species N = INDEX1( WNAME, N_GC_SPC, GC_SPC ) ! gas species for index IF ( N == 0 ) THEN ! non-reactive species N = INDEX1( WNAME, N_NR_SPC, NR_SPC ) IF ( N > 0 ) THEN MARKER = NR_STRT END IF ELSE MARKER = GC_STRT ENDIF RAD_MAP( J, I ) = N + MARKER - 1 END IF IF ( RAD_MAP( J, I ) > 0 ) THEN WRITE( LOGDEV,1200 ) VNAME( 1 ), RXTANT_MAP( I ), & ' Bimolecular ', WNAME, RAD_MAP( J, I ), & BIRATE( J, I ) * TEMP_298K**BI_TEXP( J, I ) & * EXP( -BI_ACT( J, I ) * INV_T298K ), & VNAME( J+K+1 ), PROD_MAP( J+K, I ) ELSE WRITE( LOGDEV,1200 ) VNAME( 1 ), RXTANT_MAP( I ), & 'NOT INCLUDED', WNAME, RAD_MAP( J, I ), & BIRATE( J,I ) * TEMP_298K**BI_TEXP( J, I ) & * EXP( -BI_ACT( J, I ) * INV_T298K ), & VNAME( J+K+1 ), PROD_MAP( J+K, I ) END IF 40 CONTINUE K = K + N_BI_LOSS DO 50 J = 1, N_TRI_LOSS C..checking degradation rates IF ( TRIRATE( J, I ) < 0.0D0 ) THEN WRITE( LOGDEV,* ) 'Species ', REACT( I ), 'has a negative' & // ' rate for trimolecular degradation.' & // ' Check degrade module.' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT3 ) ENDIF ICOUNT = 0 DO 60 L = 1, 2 WNAME = TRICAUSE( L, J, I ) CALL UPCASE( WNAME ) LEN_NAME = LEN_TRIM( WNAME ) IF ( LEN_NAME < 1 ) CYCLE ICOUNT = ICOUNT + 1 MARKER = 0 IF ( WNAME == 'DENSITY' .OR. WNAME == 'M' ) THEN ! special case rate proportion to air density RAD2_MAP( L, J, I ) = 9999 ENDIF IF ( WNAME == 'N2' ) THEN ! special case rate proportion to molecular nitrogen RAD2_MAP( L, J, I ) = 9998 ENDIF IF ( WNAME == 'O2' ) THEN ! special case rate proportion to molecular oxygen RAD2_MAP( L, J, I ) = 9997 ENDIF IF ( WNAME == 'CH4' ) THEN ! special case rate proportion to methane RAD2_MAP( L, J, I ) = 9996 ENDIF IF ( WNAME == 'H2' ) THEN ! special case rate proportion to hydrogen RAD2_MAP( L, J, I ) = 9995 ENDIF IF ( WNAME == 'H2O' ) THEN ! special case rate proportion to water vapor RAD2_MAP( L, J, I ) = 9994 ENDIF IF ( RAD2_MAP( L, J, I ) < 0 ) THEN ! search model species N = INDEX1( WNAME, N_GC_SPC, GC_SPC ) ! gas species for index IF ( N == 0 ) THEN ! non-reactive species N = INDEX1( WNAME, N_NR_SPC, NR_SPC ) IF ( N > 0 ) THEN MARKER = NR_STRT END IF ELSE MARKER = GC_STRT ENDIF RAD2_MAP( L, J, I ) = N + MARKER - 1 END IF 60 CONTINUE IF ( RAD2_MAP( 1, J, I ) > 0 .AND. RAD2_MAP( 2, J, I ) > 0 ) THEN WRITE( LOGDEV,1300 ) VNAME( 1 ), RXTANT_MAP( I ), & ' Trimolecular ', TRICAUSE( 1, J, I ), RAD2_MAP( 1, J, I ), & TRICAUSE( 2, J, I ), RAD2_MAP( 2, J, I ), & TRIRATE( J, I ) * TEMP_298K**TRI_TEXP( J, I ) & * EXP( -TRI_ACT( J, I ) * INV_T298K ), & VNAME( J+K+1 ), PROD_MAP( J+K, I ) ELSE IF ( ICOUNT .GT. 0 ) THEN WRITE( LOGDEV,1300 ) VNAME( 1 ), RXTANT_MAP( I ), & ' NOT INCLUDED ', TRICAUSE( 1, J, I ), RAD2_MAP( 1, J, I ), & TRICAUSE( 2, J, I ), RAD2_MAP( 2, J, I ), & TRIRATE( J, I ) * TEMP_298K**TRI_TEXP( J, I ) & * EXP( -TRI_ACT( J, I ) * INV_T298K ), & VNAME( J+K+1 ), PROD_MAP( J+K, I ) ENDIF 50 CONTINUE LEN_NAME = LEN_TRIM( REACT( I ) ) K = K + N_TRI_LOSS DO 70 J = 1, N_PHOTO_LOSS WNAME = PHOTO_NAME( J, I ) CALL UPCASE( WNAME ) N = INDEX1( WNAME, NPHOTAB, PHOTAB ) IF ( LEN_TRIM( WNAME ) < 2 ) CYCLE IF ( N < 1 ) THEN WRITE( LOGDEV,* ) 'Photolysis rate, ', WNAME, ' for ', & REACT( I )( 1:LEN_NAME ), & 'is not JTABLE and is not included. ' CYCLE ENDIF PHOTO_MAP( J, I ) = N WRITE( LOGDEV,1400 ) VNAME( 1 ), RXTANT_MAP( I ), & ' Photolysis ', PHOTAB( N ), ' ', 'times', ' ', & A_PHOTO( J, I ), & VNAME( J+K+1 ), PROD_MAP( J+K, I ) 70 CONTINUE K = K + N_PHOTO_LOSS C..locating degradation causes in CGRID DO 80 J = 1, N_LANHIN_LOSS C..checking degradation rates IF ( LHRATE( J, I ) < 0.0 ) THEN WRITE( LOGDEV,* ) 'Species ', REACT( I ), 'has a negative' & // ' rate for degradation by ', WNAME( 1:LEN_NAME ), '.' & // ' Check degrade module.' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT3 ) ENDIF WNAME = LHCAUSE( J, I ) CALL UPCASE( WNAME ) LEN_NAME = LEN_TRIM( WNAME ) IF ( LEN_NAME < 1 ) CYCLE MARKER = 0 IF ( WNAME == 'DENSITY' .OR. WNAME == 'M' ) THEN ! special case rate proportion to air density RAD_MAP( J + N_BI_LOSS, I ) = 9999 ENDIF IF ( WNAME == 'N2' ) THEN ! special case rate proportion to molecular nitrogen RAD_MAP( J + N_BI_LOSS, I ) = 9998 ENDIF IF ( WNAME == 'O2' ) THEN ! special case rate proportion to molecular oxygen RAD_MAP( J + N_BI_LOSS, I ) = 9997 ENDIF IF ( WNAME == 'CH4' ) THEN ! special case rate proportion to methane RAD_MAP( J + N_BI_LOSS, I ) = 9996 ENDIF IF ( WNAME == 'H2' ) THEN ! special case rate proportion to hydrogen RAD_MAP( J + N_BI_LOSS, I ) = 9995 ENDIF IF ( WNAME == 'H2O' ) THEN ! special case rate proportion to water vapor RAD_MAP( J + N_BI_LOSS, I ) = 9994 ENDIF IF ( RAD_MAP( J + N_BI_LOSS, I ) < 0 ) THEN ! search model species N = INDEX1( WNAME, N_GC_SPC, GC_SPC ) ! gas species for index IF ( N == 0 ) THEN ! non-reactive species N = INDEX1( WNAME, N_NR_SPC, NR_SPC ) IF ( N > 0 ) THEN MARKER = NR_STRT END IF ELSE MARKER = GC_STRT ENDIF RAD_MAP( J + N_BI_LOSS, I ) = N + MARKER - 1 END IF IF ( RAD_MAP( J + N_BI_LOSS, I ) > 0 ) THEN WRITE( LOGDEV,1200 ) VNAME( 1 ), RXTANT_MAP( I ), & ' Langm-Hinsh ', WNAME, RAD_MAP( J + N_BI_LOSS, I ), & LHRATE( J, I ) * LH_EQU( J, I ), & VNAME( J+K+1 ), PROD_MAP( J+K, I ) ELSE WRITE( LOGDEV,1200 ) VNAME( 1 ), RXTANT_MAP( I ), & 'NOT INCLUDED', WNAME, RAD_MAP( J + N_BI_LOSS, I ), & LHRATE( J, I ) * LH_EQU( J, I ), & VNAME( J+K+1 ), PROD_MAP( J+K, I ) ENDIF 80 CONTINUE END DO LOOP_REACT IF( N_REACT_FOUND .LT. 1 )RETURN WRITE( LOGDEV,'(A)' ) 'Note: If INDEX of CAUSE A OR B equals -1, the ' & // 'process is dropped from degradation ' & // 'calculation.' WRITE( LOGDEV,* ) BLANK #ifdef isam CALL SA_DEGRADE_INIT #endif 1000 FORMAT(A20,1X,A5,1X,A20,1X,2(A20,1X,A5,1X),A12,1X,A20,1X,A5) 1100 FORMAT(A20,1X,I5,1X,A20,1X,2(21X,6X),ES12.4,1X,A20,1X,I5) 1200 FORMAT(A20,1X,I5,1X,A20,1X,A20,1X,I5,1X,21X,6X,ES12.4,1X,A20,1X,I5) 1300 FORMAT(A20,1X,I5,1X,A20,1X,2(A20,1X,I5,1X),ES12.4,1X,A20,1X,I5) 1400 FORMAT(A20,1X,I5,1X,A20,1X,2(A20,1X,A5,1X),ES12.4,1X,A20,1X,I5) 1600 FORMAT(' DEGRADED ',' Index', & ' Process ',' Cause A ', & ' Index', ' Cause B ',' Index', & ' Rate at 298K ', ' Product ', & ' Index') RETURN END SUBROUTINE DEGRADE_MAP #ifdef isam SUBROUTINE SA_DEGRADE_INIT USE SA_DEFN C Initialize arrays and maps that relate ISAM species to degaded species C C Called by DEGRADE_MAP IMPLICIT NONE C..Includes: None CHARACTER( 16 ), PARAMETER :: PNAME = 'SA_DEGRAGE_INIT' ! Program name INTEGER :: I, J, RXN, IP, IL INTEGER :: IOSTAT INTEGER :: C, L, R, S ! Loop indices INTEGER :: SPC ! array index INTEGER :: IOS CHARACTER( 132 ) :: MSG ! Message text ! temporary arrays to set maps between isam to chemistry species INTEGER, ALLOCATABLE :: ISAM_SPC_IDX ( : ) INTEGER, ALLOCATABLE :: ISAM_2_DEGRAD( : ) INTEGER, ALLOCATABLE :: REACT_INDEX ( : ) LOGICAL, ALLOCATABLE :: NOT_DEGRADED ( : ) CHARACTER(16), ALLOCATABLE :: FIND_IN_ISAM( : ) C======================================================= ALLOCATE( ISAM_2_DEGRAD( NSPC_SA + 1 ) ) ALLOCATE( ISAM_SPC_IDX( NSPC_SA + 1 ) ) ALLOCATE( REACT_INDEX( NSPC_SA + 1 ) ) ALLOCATE( NOT_DEGRADED( NSPC_SA + 1 ) ) ALLOCATE( FIND_IN_ISAM( NSPC_SA + 1 ) ) ! Identify species index in ISAM array ISAM_SPC_IDX = 0 ISAM_2_DEGRAD = 0 REACT_INDEX = 0 NOT_DEGRADED = .TRUE. FIND_IN_ISAM = ' ' DO S = 1, NSPC_SA FIND_IN_ISAM( S ) = ISAM_SPEC( S,OTHRTAG ) ISAM_SPC_IDX( S ) = S END DO ! find tagged species in REACT array SPC = NSPC_SA ISAM_DEGRADED_SPC = 0 DO S = 1, NSPC_SA R = INDEX1( TRIM(FIND_IN_ISAM( S )), N_REACT, REACT ) IF ( R .LE. 0 ) THEN MSG = 'ISAM SPECIES: ' & // TRIM( FIND_IN_ISAM( S ) ) & // ' not found in REACT array ' ! CALL M3WARN( PNAME, 0, 0, MSG ) CYCLE END IF IF( RXTANT_MAP( R ) .LT. 1 )CYCLE ISAM_DEGRADED_SPC = ISAM_DEGRADED_SPC + 1 REACT_INDEX ( S ) = R ISAM_2_DEGRAD( S ) = RXTANT_MAP( R ) NOT_DEGRADED ( S ) = .FALSE. END DO IF( ANY( .NOT. NOT_DEGRADED ) )THEN C..Save pointer for isam species found in chemistry species ALLOCATE( CELL_ISAM( NTAG_SA,ISAM_DEGRADED_SPC ) ) CELL_ISAM = 0.0D0 ALLOCATE( ISAM_TO_DEGRADED( ISAM_DEGRADED_SPC ) ) ALLOCATE( ISAM_DEGRADE_MAP( ISAM_DEGRADED_SPC ) ) ALLOCATE( ISAM_TO_REACTANT( ISAM_DEGRADED_SPC ) ) ALLOCATE( ISAM_DEGRADED ( ISAM_DEGRADED_SPC ) ) ISAM_TO_DEGRADED = -1 ISAM_DEGRADE_MAP = -1 ISAM_DEGRADED = "XundefinedX" WRITE(LOGDEV,'(/A)')'Below isam species have a linear decay based on photochemistry ' WRITE(LOGDEV,'("IDX, ISAM_SPC, IDX, DEGRADE_SPC ")') L = 0 DO S = 1, NSPC_SA IF ( .NOT. NOT_DEGRADED( S ) ) THEN L = L + 1 C = ISAM_SPC_IDX ( S ) R = ISAM_2_DEGRAD( S ) SPC = REACT_INDEX( S ) ISAM_DEGRADE_MAP( L ) = ISAM_SPC_IDX( S ) ISAM_TO_DEGRADED( L ) = ISAM_2_DEGRAD( S ) ISAM_TO_REACTANT( L ) = REACT_INDEX( S ) ISAM_DEGRADED ( L ) = REACT( SPC ) WRITE(LOGDEV,'(I3,1X,A16,1x,I3,1X,A16)') & C, FIND_IN_ISAM( S ), R, REACT( SPC ) END IF END DO IF( L .NE. ISAM_DEGRADED_SPC )THEN MSG = 'ERROR mapping isam to chemistry species: inconsistent number found' CALL M3EXIT ( PNAME, 0, 0, MSG, XSTAT1 ) END IF ELSE MSG = 'NO ISAM species are degraded ' CALL M3WARN ( PNAME, 0, 0, MSG ) END IF L = 0 DO S = 1, NSPC_SA IF( NOT_DEGRADED( S ) )THEN C = ISAM_SPC_IDX( S ) IF( C .LE. 0 )CYCLE L = L + 1 IF( L .LT. 2 )THEN WRITE(LOGDEV,'(/A)')'Below isam species DO NOT have a linear decay based on photochemistry' WRITE(LOGDEV,'("SPC ISAM_SPC")') END IF WRITE(LOGDEV,'(I3,1X,A16,1x,I3,A16)') C, FIND_IN_ISAM( S ) END IF END DO DEALLOCATE( ISAM_2_DEGRAD ) DEALLOCATE( ISAM_SPC_IDX ) DEALLOCATE( NOT_DEGRADED ) END SUBROUTINE SA_DEGRADE_INIT SUBROUTINE SA_DEGRADE_EXTRACT( COL, ROW, LAY, DENS ) USE SA_DEFN IMPLICIT NONE !..Arguments: INTEGER, INTENT( IN ) :: COL ! cell column index INTEGER, INTENT( IN ) :: ROW ! cell row index INTEGER, INTENT( IN ) :: LAY ! cell layer index REAL, INTENT( IN ) :: DENS ! air mass density, kg/m3 C..Includes: None !..Local: CHARACTER( 32 ), PARAMETER :: PNAME = 'SA_DEGRAGE_EXTRACT' ! Program name REAL( 8 ), PARAMETER :: ONE = 1.0D0 REAL( 8 ), PARAMETER :: ZERO = 0.0D0 REAL :: FACTOR2 REAL( 8 ) :: INV_DENS ! one over air mass density, m3/kg INTEGER :: JSPC, KTAG INTEGER :: SPC, S ! array index IF( ISAM_DEGRADED_SPC .LT. 1 )RETURN INV_DENS = REAL( ONE/DENS, 8 ) DO JSPC = 1, ISAM_DEGRADED_SPC S = ISAM_TO_DEGRADED( JSPC ) SPC = ISAM_DEGRADE_MAP( JSPC ) LOAD_SOLD: DO KTAG = 1, NTAG_SA FACTOR2 = ISAM( COL,ROW,LAY,SPC,KTAG ) CELL_ISAM( KTAG, JSPC ) = REAL( FACTOR2,8 ) END DO LOAD_SOLD ! ktag loop END DO ! loop jspc END SUBROUTINE SA_DEGRADE_EXTRACT SUBROUTINE SA_DEGRADE_UPLOAD( COL, ROW, LAY, DENS ) USE SA_DEFN IMPLICIT NONE !..Arguments: INTEGER, INTENT( IN ) :: COL ! cell column index INTEGER, INTENT( IN ) :: ROW ! cell row index INTEGER, INTENT( IN ) :: LAY ! cell layer index REAL, INTENT( IN ) :: DENS ! air mass density, kg/m3 C..Includes: None !..Local: CHARACTER( 32 ), PARAMETER :: PNAME = 'SA_DEGRAGE_UPLOAD' ! Program name REAL( 8 ), PARAMETER :: ONE = 1.0D0 REAL( 8 ), PARAMETER :: ZERO = 0.0D0 REAL :: FACTOR2 REAL( 8 ) :: TOTAL, FACTOR1, FACTOR3, FACTOR ! REAL( 8 ) :: INV_DENS ! one over air mass density, m3/kg INTEGER :: JSPC, KTAG, I_RAD, I_RXT INTEGER :: S, SPC ! array index IF( ISAM_DEGRADED_SPC .LT. 1 )RETURN #ifdef verbose_isam IF( DEG_LAY .EQ. 1 .AND. DEG_ROW .EQ. 1 .AND. DEG_COL .EQ. 1 )THEN WRITE(LOGDEV,'(6x,A)')'SA_DEGRADE_UPLOAD' WRITE(LOGDEV,'(//,6X,A16,(1X,A12),1X,A18,2(1X,A18))')'isam_degraded', 'factor', 'react', & 'INIT_CONC','FINAL_CONC' END IF #endif DO JSPC = 1, ISAM_DEGRADED_SPC S = ISAM_TO_DEGRADED( JSPC ) SPC = ISAM_DEGRADE_MAP( JSPC ) #ifdef verbose_isam IF( DEG_LAY .EQ. 1 .AND. DEG_ROW .EQ. 1 .AND. DEG_COL .EQ. 1)THEN I_RXT = ISAM_TO_DEGRADED( JSPC ) I_RAD = ISAM_TO_REACTANT( JSPC ) FACTOR2 = SUM(ISAM( COL,ROW,LAY,SPC,1:NTAG_SA )) FACTOR3 = SUM(CELL_ISAM( 1:NTAG_SA,JSPC )) FACTOR = 1.0 + (FACTOR3-FACTOR2)/MAX(FACTOR2,1.0E-30) WRITE(LOGDEV,'(6X,A16,1X,ES18.10,1X,A16,2(1X,ES18.10))')ISAM_DEGRADED( JSPC ), FACTOR, REACT( I_RAD ), & FACTOR2, FACTOR3 END IF #endif LOAD_ISAM: DO KTAG = 1, NTAG_SA FACTOR1 = CELL_ISAM( KTAG,JSPC ) ISAM( COL,ROW,LAY,SPC,KTAG ) = REAL( FACTOR1 ) END DO LOAD_ISAM ! ktag loop END DO ! loop jspc END SUBROUTINE SA_DEGRADE_UPLOAD #endif END MODULE DEGRADE_SETUP_TOX ================================================ FILE: CCTM/src/spcs/cgrid_spcs_icl/CGRID_SPCS.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! c::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: module cgrid_spcs c CGRID gas chem, aerosol, non-reactive, and tracer species definitions c based on Fortran include file specifications c Revision History: Jeff Young 31 Aug 09: created C 16 Feb 11 S.Roselle: replaced I/O API include files with UTILIO_DEFN C 07 Jul 14 B.Hutzell: replaced mechanism include file(s) with fortran module c----------------------------------------------------------------------- implicit none include SUBST_GC_SPC ! gas chemistry species table include SUBST_GC_EMIS include SUBST_GC_ICBC include SUBST_GC_TRNS include SUBST_GC_DDEP include SUBST_GC_DEPV include SUBST_GC_CONC include SUBST_GC_G2AE include SUBST_GC_G2AQ include SUBST_GC_SCAV include SUBST_GC_WDEP include SUBST_AE_SPC ! aerosol species table include SUBST_AE_EMIS include SUBST_AE_ICBC include SUBST_AE_TRNS include SUBST_AE_DDEP include SUBST_AE_DEPV include SUBST_AE_CONC include SUBST_AE_A2AQ include SUBST_AE_SCAV include SUBST_AE_WDEP include SUBST_NR_SPC ! non-reactive species table include SUBST_NR_EMIS include SUBST_NR_ICBC include SUBST_NR_TRNS include SUBST_NR_DDEP include SUBST_NR_DEPV include SUBST_NR_N2AE include SUBST_NR_CONC include SUBST_NR_N2AQ include SUBST_NR_SCAV include SUBST_NR_WDEP include SUBST_TR_SPC ! tracer species table include SUBST_TR_EMIS include SUBST_TR_ICBC include SUBST_TR_DIFF include SUBST_TR_ADV include SUBST_TR_DDEP include SUBST_TR_DEPV include SUBST_TR_T2AQ include SUBST_TR_SCAV include SUBST_TR_WDEP integer, save :: nspcsd ! Number of species in CGRID integer, save :: gc_strt ! Starting index of gas chemistry species integer, save :: gc_fini ! Ending index of gas chemistry species integer, save :: ae_strt ! Starting index of aerosol species integer, save :: ae_fini ! Ending index of aerosol species integer, save :: nr_strt ! Starting index of non-reactive species integer, save :: nr_fini ! Ending index of non-reactive species integer, save :: tr_strt ! Starting index of tracer species integer, save :: tr_fini ! Ending index of tracer species contains c init routine to set the CGRID species locations function cgrid_spcs_init() result ( success ) use UTILIO_DEFN use RXNS_DATA ! chemical mechanism data implicit none logical success logical, save :: firstime = .true. c---------------------------------------------------------------------------------------- success = .true. c intialize module public data if ( firstime ) then firstime = .false. nspcsd = n_gc_spcd + n_ae_spc + n_nr_spc + n_tr_spc gc_strt = 1 ! always, even if n_gc_spcs = 0 gc_fini = gc_strt + n_gc_spc - 1 ae_strt = n_gc_spcd + 1 ae_fini = ae_strt + n_ae_spc - 1 nr_strt = n_gc_spcd + n_ae_spc + 1 nr_fini = nr_strt + n_nr_spc - 1 tr_strt = n_gc_spcd + n_ae_spc + n_nr_spc + 1 tr_fini = tr_strt + n_tr_spc - 1 end if end function cgrid_spcs_init end module cgrid_spcs ================================================ FILE: CCTM/src/spcs/cgrid_spcs_nml/CGRID_SPCS.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! c::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: module cgrid_spcs c CGRID gas chem, aerosol, non-reactive, and tracer species definitions c based on namelist specifications c Revision History: c Jeff Young 31 Aug 09: created c Bill Hutzell 8 Oct 10: added Gas Chemistry consistency check C Shawn Roselle 16 Feb 11: replaced I/O API include files with UTILIO_DEFN C 07 Jul 14 B.Hutzell: replaced mechanism include file(s) with fortran module C 21 Apr 16 D.Luecken: increased spc_dim to 1000 C 07 Mar 2019 F. Sidi: Split up ICBC for CMAQ species namelist C 10 June 2021 G. Sarwar: Replacd CB6R3M_AE7_AQ with CB6R5M_AE7_AQ c----------------------------------------------------------------------- USE RUNTIME_VARS Use rxns_data, only: mechname ! chemical mechanism data #ifdef mpas use util_module, only : junit #endif implicit none c main CGRID table integer, save :: n_gc_spc = 0, n_ae_spc = 0, n_nr_spc = 0, n_tr_spc = 0 character( 16 ), allocatable, save :: gc_spc( : ), ae_spc( : ), nr_spc( : ), tr_spc( : ) real, allocatable, save :: gc_molwt( : ), ae_molwt( : ), nr_molwt( : ), tr_molwt( : ) integer, save :: n_gc_spcd = 0 c Starting and ending index of gas chemistry species in CGRID integer, save :: gc_strt = 1 integer, save :: gc_fini = 0 c Starting and ending index of aerosol species in CGRID integer, save :: ae_strt = 0 integer, save :: ae_fini = 0 c Starting and ending index of non-reactive species in CGRID integer, save :: nr_strt = 0 integer, save :: nr_fini = 0 c Starting and ending index of tracer species in CGRID integer, save :: tr_strt = 0 integer, save :: tr_fini = 0 c number of species in CGRID integer, save :: nspcsd = 1 c surrogate species integer, save :: n_gc_ic = 0, n_ae_ic = 0, n_nr_ic = 0, n_tr_ic = 0, & n_gc_bc = 0, n_ae_bc = 0, n_nr_bc = 0, n_tr_bc = 0, & n_gc_depv = 0, n_ae_depv = 0, n_nr_depv = 0, n_tr_depv = 0, & n_gc_scav = 0, n_ae_scav = 0, n_nr_scav = 0, n_tr_scav = 0, & n_gc_g2ae = 0, n_nr_n2ae = 0, n_tr_t2ae = 0, & n_gc_g2aq = 0, n_ae_a2aq = 0, n_nr_n2aq = 0, n_tr_t2aq = 0 integer, save :: n_ae_optics = 0 character( 16 ), allocatable, save :: gc_ic( : ), ae_ic( : ), nr_ic( : ), tr_ic( : ), & gc_bc( : ), ae_bc( : ), nr_bc( : ), tr_bc( : ), & gc_depv( : ), ae_depv( : ), nr_depv( : ), tr_depv( : ), & gc_scav( : ), ae_scav( : ), nr_scav( : ), tr_scav( : ), & gc_g2ae( : ), nr_n2ae( : ), tr_t2ae( : ), & gc_g2aq( : ), ae_a2aq( : ), nr_n2aq( : ), tr_t2aq( : ) character( 16 ), allocatable, save :: ae_optics( : ) integer, allocatable, save :: gc_ic_map( : ), ae_ic_map( : ), nr_ic_map( : ), tr_ic_map( : ), & gc_bc_map( : ), ae_bc_map( : ), nr_bc_map( : ), tr_bc_map( : ), & gc_depv_map( : ), ae_depv_map( : ), nr_depv_map( : ), tr_depv_map( : ), & gc_scav_map( : ), ae_scav_map( : ), nr_scav_map( : ), tr_scav_map( : ), & gc_g2ae_map( : ), nr_n2ae_map( : ), tr_t2ae_map( : ), & gc_g2aq_map( : ), ae_a2aq_map( : ), nr_n2aq_map( : ), tr_t2aq_map( : ) real, allocatable, save :: gc_ic_fac( : ), ae_ic_fac( : ), nr_ic_fac( : ), tr_ic_fac( : ), & gc_bc_fac( : ), ae_bc_fac( : ), nr_bc_fac( : ), tr_bc_fac( : ), & gc_depv_fac( : ), ae_depv_fac( : ), nr_depv_fac( : ), tr_depv_fac( : ), & gc_scav_fac( : ), ae_scav_fac( : ), nr_scav_fac( : ), tr_scav_fac( : ) c control species integer, save :: n_gc_trns = 0, n_ae_trns = 0, n_nr_trns = 0, n_tr_adv = 0, n_tr_diff = 0, & n_gc_ddep = 0, n_ae_ddep = 0, n_nr_ddep = 0, n_tr_ddep = 0, & n_gc_wdep = 0, n_ae_wdep = 0, n_nr_wdep = 0, n_tr_wdep = 0, & n_gc_conc = 0, n_ae_conc = 0, n_nr_conc = 0, n_tr_conc = 0 character( 16 ), allocatable, save :: gc_trns( : ), ae_trns( : ), nr_trns( : ), tr_adv( : ), tr_diff( : ), & gc_ddep( : ), ae_ddep( : ), nr_ddep( : ), tr_ddep( : ), & gc_wdep( : ), ae_wdep( : ), nr_wdep( : ), tr_wdep( : ), & gc_conc( : ), ae_conc( : ), nr_conc( : ), tr_conc( : ) integer, allocatable, save :: gc_trns_map( : ), ae_trns_map( : ), nr_trns_map( : ), tr_adv_map( : ), tr_diff_map( : ), & gc_ddep_map( : ), ae_ddep_map( : ), nr_ddep_map( : ), tr_ddep_map( : ), & gc_wdep_map( : ), ae_wdep_map( : ), nr_wdep_map( : ), tr_wdep_map( : ), & gc_conc_map( : ), ae_conc_map( : ), nr_conc_map( : ), tr_conc_map( : ) LOGICAL :: LTRNS, LDDEP, LWDEP, LCONC, LADVC, LDIFF LOGICAL, ALLOCATABLE :: LAIT(:), LACC(:), LCOR(:) INTEGER, SAVE :: N_CGRID_SPC INTEGER, SAVE :: N_SPC_WDEP INTEGER, SAVE :: N_SPC_DEPV INTEGER, SAVE :: RHOJ_LOC CHARACTER( 16 ), ALLOCATABLE, SAVE :: CGRID_NAME( : ) REAL, ALLOCATABLE, SAVE :: CGRID_MW ( : ) CHARACTER( 16 ), ALLOCATABLE, SAVE :: CGRID_UNITS ( : ) LOGICAL, ALLOCATABLE, SAVE :: CGRID_MASK_GAS ( : ) LOGICAL, ALLOCATABLE, SAVE :: CGRID_MASK_AERO( : ) LOGICAL, ALLOCATABLE, SAVE :: CGRID_MASK_NUM ( : ) LOGICAL, ALLOCATABLE, SAVE :: CGRID_MASK_SRF ( : ) LOGICAL, ALLOCATABLE, SAVE :: CGRID_MASK_NR ( : ) LOGICAL, ALLOCATABLE, SAVE :: CGRID_MASK_TRAC( : ) CHARACTER( 16 ), ALLOCATABLE, SAVE :: CGRID_CONC_UNIT ( : ) CHARACTER( 256), ALLOCATABLE, SAVE :: CGRID_CONC_DESC ( : ) INTEGER, ALLOCATABLE, SAVE :: MAP_DEPVtoCGRID( : ) INTEGER, ALLOCATABLE, SAVE :: MAP_WDEPtoCGRID( : ) #ifdef mpas character( 16 ), allocatable, save :: all_spc( : ) integer, save :: n_all_spc = 0 integer, allocatable :: indx_mpas(:) #endif type, public :: base_type private character( 16 ) :: name real :: mw end type type, public :: surr1_type private character( 16 ) :: name integer :: map real :: fac end type type, public :: surr2_type private character( 16 ) :: name integer :: map end type type, public :: ctrl_type private character( 16 ) :: name integer :: map end type contains c init routine to allocate the above allocatables c !! NO and to populate the allocated arrays from the stnd gc_spc.ext !!! NO function cgrid_spcs_init() result ( success ) use UTILIO_DEFN use stm_vars use cgrid_spcs_types implicit none logical success integer, save :: dev_gc_nml, dev_ae_nml, dev_nr_nml, dev_tr_nml integer i, ios, IGC, IAE, INR, ITR character( 1 ), parameter :: bl = ' ' integer, parameter :: spc_dim = 1000 logical :: order = .true., found = .true. character( 120 ) :: xmsg INTEGER :: ISPC, JSPC, IGRID, IWDEP, IDEPV #ifdef mpas integer :: i1, i2, i3, i4 #endif TYPE (SPECIES_DATA_REG_1), ALLOCATABLE :: GC_SPECIES_DATA(:) TYPE (SPECIES_DATA_REG_1), ALLOCATABLE :: NR_SPECIES_DATA(:) TYPE (SPECIES_DATA_REG_3), ALLOCATABLE :: TR_SPECIES_DATA(:) namelist / GC_NML / GC_SPECIES_DATA namelist / AE_NML / AE_SPECIES_DATA namelist / NR_NML / NR_SPECIES_DATA namelist / TR_NML / TR_SPECIES_DATA c---------------------------------------------------------------------------------------- success = .true. CALL LOG_HEADING( LOGDEV, "Retrieve Species Namelist" ) ! Gas (GC) Namelist ALLOCATE( GC_SPECIES_DATA( SPC_DIM ), STAT=IOS ) GC_SPECIES_DATA%SPECIES_NAME = '' GC_SPECIES_DATA%MOLWT = 0. GC_SPECIES_DATA%IC_SURR = '' GC_SPECIES_DATA%IC_FAC = 0. GC_SPECIES_DATA%BC_SURR = '' GC_SPECIES_DATA%BC_FAC = 0. GC_SPECIES_DATA%DEPV_SURR = '' GC_SPECIES_DATA%DEPV_FAC = 0. GC_SPECIES_DATA%SCAV_SURR = '' GC_SPECIES_DATA%SCAV_FAC = 0. GC_SPECIES_DATA%AERO_SURR = '' GC_SPECIES_DATA%CLOUD_SURR = '' GC_SPECIES_DATA%TRNS_FLAG = '' GC_SPECIES_DATA%DDEP_FLAG = '' GC_SPECIES_DATA%WDEP_FLAG = '' GC_SPECIES_DATA%CONC_FLAG = '' dev_gc_nml = junit() open( file = trim( gc_namelist ), unit = dev_gc_nml, & status = 'old', position = 'rewind' ) read( nml = GC_nml, unit = dev_gc_nml ) ! Determine Number of Gas Species N_GC_SPC = 0 DO IGC = 1,SPC_DIM IF ( GC_SPECIES_DATA( IGC )%SPECIES_NAME .EQ. '' ) EXIT N_GC_SPC = IGC IF ( GC_SPECIES_DATA( IGC )%IC_FAC .EQ. -1. ) & GC_SPECIES_DATA( IGC )%IC_FAC = 0. IF ( GC_SPECIES_DATA( IGC )%BC_FAC .EQ. -1. ) & GC_SPECIES_DATA( IGC )%BC_FAC = 0. IF ( GC_SPECIES_DATA( IGC )%DEPV_FAC .EQ. -1. ) & GC_SPECIES_DATA( IGC )%DEPV_FAC = 0. IF ( GC_SPECIES_DATA( IGC )%SCAV_FAC .EQ. -1. ) & GC_SPECIES_DATA( IGC )%SCAV_FAC = 0. END DO ! Allocate and Initialize Permanent Variables allocate ( & gc_spc( n_gc_spc+1 ), gc_molwt( n_gc_spc+1 ), & gc_ic( n_gc_spc+1 ), gc_ic_map( n_gc_spc+1 ), gc_ic_fac( n_gc_spc+1 ), & gc_bc( n_gc_spc+1 ), gc_bc_map( n_gc_spc+1 ), gc_bc_fac( n_gc_spc+1 ), & gc_depv( n_gc_spc+1 ), gc_depv_map( n_gc_spc+1 ), gc_depv_fac( n_gc_spc+1 ), & gc_scav( n_gc_spc+1 ), gc_scav_map( n_gc_spc+1 ), gc_scav_fac( n_gc_spc+1 ), & gc_g2ae( n_gc_spc+1 ), gc_g2ae_map( n_gc_spc+1 ), & gc_g2aq( n_gc_spc+1 ), gc_g2aq_map( n_gc_spc+1 ), & gc_trns( n_gc_spc+1 ), gc_trns_map( n_gc_spc+1 ), & gc_ddep( n_gc_spc+1 ), gc_ddep_map( n_gc_spc+1 ), & gc_wdep( n_gc_spc+1 ), gc_wdep_map( n_gc_spc+1 ), & gc_conc( n_gc_spc+1 ), gc_conc_map( n_gc_spc+1 ), #ifdef mpas & all_spc( spc_dim ), #endif & stat = ios ) #ifdef mpas all_spc = bl #endif gc_spc = bl; gc_molwt = 0.0 ! . gc_ic = bl; gc_ic_map = 0; gc_ic_fac = 0.0 ! . gc_bc = bl; gc_bc_map = 0; gc_bc_fac = 0.0 ! . gc_depv = bl; gc_depv_map = 0; gc_depv_fac = 0.0 ! . gc_scav = bl; gc_scav_map = 0; gc_scav_fac = 0.0 ! array gc_g2ae = bl; gc_g2ae_map = 0 ! . gc_g2aq = bl; gc_g2aq_map = 0 ! assignments gc_trns = bl; gc_trns_map = 0 ! . gc_ddep = bl; gc_ddep_map = 0 ! . gc_wdep = bl; gc_wdep_map = 0 ! . gc_conc = bl; gc_conc_map = 0 ! . ! Pass Data from GC Namelist to Internal Variables N_GC_IC = 0; N_GC_BC = 0; N_GC_DEPV = 0; N_GC_SCAV = 0 N_GC_G2AE = 0; N_GC_G2AQ = 0; N_GC_TRNS = 0; N_GC_DDEP = 0; N_GC_WDEP = 0 N_GC_CONC = 0 DO IGC = 1,N_GC_SPC GC_SPC( IGC ) = GC_SPECIES_DATA( IGC )%SPECIES_NAME GC_MOLWT( IGC ) = GC_SPECIES_DATA( IGC )%MOLWT ! Gas ICs IF ( GC_SPECIES_DATA( IGC )%IC_SURR .NE. '' ) THEN N_GC_IC = N_GC_IC + 1 GC_IC( N_GC_IC ) = GC_SPECIES_DATA( IGC )%IC_SURR GC_IC_MAP( N_GC_IC ) = IGC GC_IC_FAC( N_GC_IC ) = GC_SPECIES_DATA( IGC )%IC_FAC END IF ! Gas BCs IF ( GC_SPECIES_DATA( IGC )%BC_SURR .NE. '' ) THEN N_GC_BC = N_GC_BC + 1 GC_BC( N_GC_BC ) = GC_SPECIES_DATA( IGC )%BC_SURR GC_BC_MAP( N_GC_BC ) = IGC GC_BC_FAC( N_GC_BC ) = GC_SPECIES_DATA( IGC )%BC_FAC END IF ! Gas Dry Deposition Surrogates IF ( GC_SPECIES_DATA( IGC )%DEPV_SURR .NE. '' ) THEN N_GC_DEPV = N_GC_DEPV + 1 GC_DEPV( N_GC_DEPV ) = GC_SPECIES_DATA( IGC )%DEPV_SURR GC_DEPV_MAP( N_GC_DEPV ) = IGC GC_DEPV_FAC( N_GC_DEPV ) = GC_SPECIES_DATA( IGC )%DEPV_FAC END IF ! Gas Wet Scavenging Surrogates IF ( GC_SPECIES_DATA( IGC )%SCAV_SURR .NE. '' ) THEN N_GC_SCAV = N_GC_SCAV + 1 GC_SCAV( N_GC_SCAV ) = GC_SPECIES_DATA( IGC )%SCAV_SURR GC_SCAV_MAP( N_GC_SCAV ) = IGC GC_SCAV_FAC( N_GC_SCAV ) = GC_SPECIES_DATA( IGC )%SCAV_FAC END IF ! Gas -to-Aerosol Module Surrogates IF ( GC_SPECIES_DATA( IGC )%AERO_SURR .NE. '' ) THEN N_GC_G2AE = N_GC_G2AE + 1 GC_G2AE( N_GC_G2AE ) = GC_SPECIES_DATA( IGC )%AERO_SURR GC_G2AE_MAP( N_GC_G2AE ) = IGC END IF ! Gas -to-Cloud Chemistry Surrogates IF ( GC_SPECIES_DATA( IGC )%CLOUD_SURR .NE. '' ) THEN N_GC_G2AQ = N_GC_G2AQ + 1 GC_G2AQ( N_GC_G2AQ ) = GC_SPECIES_DATA( IGC )%CLOUD_SURR GC_G2AQ_MAP( N_GC_G2AQ ) = IGC END IF ! Gas - Perform Transport LTRNS = GET_LOGICAL_NML( GC_SPECIES_DATA( IGC )%TRNS_FLAG ) IF ( LTRNS ) THEN N_GC_TRNS = N_GC_TRNS + 1 GC_TRNS( N_GC_TRNS ) = GC_SPECIES_DATA( IGC )%SPECIES_NAME GC_TRNS_MAP( N_GC_TRNS ) = IGC END IF ! Gas - Output Deposition Velocity LDDEP = GET_LOGICAL_NML( GC_SPECIES_DATA( IGC )%DDEP_FLAG ) IF ( LDDEP ) THEN N_GC_DDEP = N_GC_DDEP + 1 GC_DDEP( N_GC_DDEP ) = GC_SPECIES_DATA( IGC )%SPECIES_NAME GC_DDEP_MAP( N_GC_DDEP ) = IGC END IF ! Gas - Output Wet Scavenging Flux LWDEP = GET_LOGICAL_NML( GC_SPECIES_DATA( IGC )%WDEP_FLAG ) IF ( LWDEP ) THEN N_GC_WDEP = N_GC_WDEP + 1 GC_WDEP( N_GC_WDEP ) = GC_SPECIES_DATA( IGC )%SPECIES_NAME GC_WDEP_MAP( N_GC_WDEP ) = IGC END IF ! Gas - Output Concentration Field LCONC = GET_LOGICAL_NML( GC_SPECIES_DATA( IGC )%CONC_FLAG ) IF ( LCONC ) THEN N_GC_CONC = N_GC_CONC + 1 GC_CONC( N_GC_CONC ) = GC_SPECIES_DATA( IGC )%SPECIES_NAME GC_CONC_MAP( N_GC_CONC ) = IGC END IF END DO GC_FINI = GC_STRT + N_GC_SPC - 1 N_GC_SPCD = GC_FINI + 1 GC_SPC( N_GC_SPCD ) = 'AIR_DENSITY' RHOJ_LOC = N_GC_SPCD ! Aerosol (AE) Namelist ALLOCATE( AE_SPECIES_DATA( SPC_DIM ), STAT=IOS ) AE_SPECIES_DATA%SPECIES_NAME = '' AE_SPECIES_DATA%MOLWT = 0. AE_SPECIES_DATA%LAIT = .False. AE_SPECIES_DATA%LACC = .False. AE_SPECIES_DATA%LCOR = .False. AE_SPECIES_DATA%IC_SURR = '' AE_SPECIES_DATA%IC_FAC = 0. AE_SPECIES_DATA%BC_SURR = '' AE_SPECIES_DATA%BC_FAC = 0. AE_SPECIES_DATA%OPTICS_SURR = '' AE_SPECIES_DATA%DEPV_SURR = '' AE_SPECIES_DATA%DEPV_FAC = 0. AE_SPECIES_DATA%SCAV_SURR = '' AE_SPECIES_DATA%SCAV_FAC = 0. AE_SPECIES_DATA%CLOUD_SURR = '' AE_SPECIES_DATA%TRNS_FLAG = '' AE_SPECIES_DATA%DDEP_FLAG = '' AE_SPECIES_DATA%WDEP_FLAG = '' AE_SPECIES_DATA%CONC_FLAG = '' dev_ae_nml = junit() open( file = trim( ae_namelist ), unit = dev_ae_nml, & status = 'old', position = 'rewind' ) read( nml = AE_nml, unit = dev_ae_nml ) ! First Expand Aerosol Namelist to Add Modes for Each ! Species based on Aitken, Accum, and Coarse columns in the AE ! namelist CALL AERO_NML_MODES() ! Determine Number of Aerosol Species N_AE_SPC = 0 DO IAE = 1,SPC_DIM IF ( AE_SPECIES_DATA( IAE )%SPECIES_NAME .EQ. '' ) EXIT N_AE_SPC = IAE IF ( AE_SPECIES_DATA( IAE )%IC_FAC .EQ. -1. ) & AE_SPECIES_DATA( IAE )%IC_FAC = 0. IF ( AE_SPECIES_DATA( IAE )%BC_FAC .EQ. -1. ) & AE_SPECIES_DATA( IAE )%BC_FAC = 0. IF ( AE_SPECIES_DATA( IAE )%DEPV_FAC .EQ. -1. ) & AE_SPECIES_DATA( IAE )%DEPV_FAC = 0. IF ( AE_SPECIES_DATA( IAE )%SCAV_FAC .EQ. -1. ) & AE_SPECIES_DATA( IAE )%SCAV_FAC = 0. END DO IF ( STM ) THEN IF ( ( N_AE_SPC + N_STM_AE_SPC ) .GT. SPC_DIM ) THEN WRITE( LOGDEV,* ) '*** Allocated dimension exceeded for AE ', & ' species in Sulfur Tracking Model' SUCCESS = .FALSE. RETURN END IF DO IAE = 1, N_STM_AE_SPC N_AE_SPC = N_AE_SPC + 1 AE_SPECIES_DATA( N_AE_SPC )%SPECIES_NAME = STM_AE_SPECIES_DATA( IAE )%SPECIES_NAME AE_SPECIES_DATA( N_AE_SPC )%MOLWT = STM_AE_SPECIES_DATA( IAE )%MOLWT AE_SPECIES_DATA( N_AE_SPC )%IC_SURR = STM_AE_SPECIES_DATA( IAE )%IC_SURR AE_SPECIES_DATA( N_AE_SPC )%IC_FAC = STM_AE_SPECIES_DATA( IAE )%IC_FAC AE_SPECIES_DATA( N_AE_SPC )%BC_SURR = STM_AE_SPECIES_DATA( IAE )%BC_SURR AE_SPECIES_DATA( N_AE_SPC )%BC_FAC = STM_AE_SPECIES_DATA( IAE )%BC_FAC AE_SPECIES_DATA( N_AE_SPC )%DEPV_SURR = STM_AE_SPECIES_DATA( IAE )%DEPV_SURR AE_SPECIES_DATA( N_AE_SPC )%DEPV_FAC = STM_AE_SPECIES_DATA( IAE )%DEPV_FAC AE_SPECIES_DATA( N_AE_SPC )%SCAV_SURR = STM_AE_SPECIES_DATA( IAE )%SCAV_SURR AE_SPECIES_DATA( N_AE_SPC )%SCAV_FAC = STM_AE_SPECIES_DATA( IAE )%SCAV_FAC AE_SPECIES_DATA( N_AE_SPC )%CLOUD_SURR = STM_AE_SPECIES_DATA( IAE )%CLOUD_SURR AE_SPECIES_DATA( N_AE_SPC )%TRNS_FLAG = STM_AE_SPECIES_DATA( IAE )%TRNS_FLAG AE_SPECIES_DATA( N_AE_SPC )%DDEP_FLAG = STM_AE_SPECIES_DATA( IAE )%DDEP_FLAG AE_SPECIES_DATA( N_AE_SPC )%WDEP_FLAG = STM_AE_SPECIES_DATA( IAE )%WDEP_FLAG AE_SPECIES_DATA( N_AE_SPC )%CONC_FLAG = STM_AE_SPECIES_DATA( IAE )%CONC_FLAG END DO If ( ( Index( mechname, 'SAPRC07TIC_AE6I' ) .Gt. 0 ) .OR. & ( Index( mechname, 'SAPRC07TIC_AE7I' ) .Gt. 0 ) .OR. & ( Index( mechname, 'CRACMM1_' ) .Gt. 0 ) .OR. & ( Index( mechname, 'CRACMM2' ) .Gt. 0 ) .OR. & ( Index( mechname, 'CRACMM1AMORE_' ) .Gt. 0 ) .OR. & ( Index( mechname, 'CB6R3_AE7' ) .Gt. 0 ) .OR. & ( Index( mechname, 'CB6R5_AE7' ) .Gt. 0 ) .OR. & ( Index( mechname, 'CB6R5M_AE7' ) .Gt. 0 ) ) Then ORGANOSULF = .TRUE. IF ( ( N_AE_SPC + N_STM_OAE_SPC ) .GT. SPC_DIM ) THEN WRITE( LOGDEV,* ) '*** Allocated dimension exceeded for AE ', & ' species in Sulfur Tracking Model' SUCCESS = .FALSE. RETURN END IF DO IAE = 1, N_STM_OAE_SPC N_AE_SPC = N_AE_SPC + 1 AE_SPECIES_DATA( N_AE_SPC )%SPECIES_NAME = STM_OAE_SPECIES_DATA( IAE )%SPECIES_NAME AE_SPECIES_DATA( N_AE_SPC )%MOLWT = STM_OAE_SPECIES_DATA( IAE )%MOLWT AE_SPECIES_DATA( N_AE_SPC )%IC_SURR = STM_OAE_SPECIES_DATA( IAE )%IC_SURR AE_SPECIES_DATA( N_AE_SPC )%IC_FAC = STM_OAE_SPECIES_DATA( IAE )%IC_FAC AE_SPECIES_DATA( N_AE_SPC )%BC_SURR = STM_OAE_SPECIES_DATA( IAE )%BC_SURR AE_SPECIES_DATA( N_AE_SPC )%BC_FAC = STM_OAE_SPECIES_DATA( IAE )%BC_FAC AE_SPECIES_DATA( N_AE_SPC )%DEPV_SURR = STM_OAE_SPECIES_DATA( IAE )%DEPV_SURR AE_SPECIES_DATA( N_AE_SPC )%DEPV_FAC = STM_OAE_SPECIES_DATA( IAE )%DEPV_FAC AE_SPECIES_DATA( N_AE_SPC )%SCAV_SURR = STM_OAE_SPECIES_DATA( IAE )%SCAV_SURR AE_SPECIES_DATA( N_AE_SPC )%SCAV_FAC = STM_OAE_SPECIES_DATA( IAE )%SCAV_FAC AE_SPECIES_DATA( N_AE_SPC )%CLOUD_SURR = STM_OAE_SPECIES_DATA( IAE )%CLOUD_SURR AE_SPECIES_DATA( N_AE_SPC )%TRNS_FLAG = STM_OAE_SPECIES_DATA( IAE )%TRNS_FLAG AE_SPECIES_DATA( N_AE_SPC )%DDEP_FLAG = STM_OAE_SPECIES_DATA( IAE )%DDEP_FLAG AE_SPECIES_DATA( N_AE_SPC )%WDEP_FLAG = STM_OAE_SPECIES_DATA( IAE )%WDEP_FLAG AE_SPECIES_DATA( N_AE_SPC )%CONC_FLAG = STM_OAE_SPECIES_DATA( IAE )%CONC_FLAG END DO End If END IF ! Allocate and Initialize Permanent Variables allocate ( & ae_spc( n_ae_spc ), ae_molwt( n_ae_spc ), & ae_ic( n_ae_spc ), ae_ic_map( n_ae_spc ), ae_ic_fac( n_ae_spc ), & ae_bc( n_ae_spc ), ae_bc_map( n_ae_spc ), ae_bc_fac( n_ae_spc ), & ae_optics( n_ae_spc ), & ae_depv( n_ae_spc ), ae_depv_map( n_ae_spc ), ae_depv_fac( n_ae_spc ), & ae_scav( n_ae_spc ), ae_scav_map( n_ae_spc ), ae_scav_fac( n_ae_spc ), & ae_a2aq( n_ae_spc ), ae_a2aq_map( n_ae_spc ), & ae_trns( n_ae_spc ), ae_trns_map( n_ae_spc ), & ae_ddep( n_ae_spc ), ae_ddep_map( n_ae_spc ), & ae_wdep( n_ae_spc ), ae_wdep_map( n_ae_spc ), & ae_conc( n_ae_spc ), ae_conc_map( n_ae_spc ), & stat = ios ) ae_spc = bl; ae_molwt = 0.0 ! . ae_optics = bl ae_ic = bl; ae_ic_map = 0; ae_ic_fac = 0.0 ! . ae_bc = bl; ae_bc_map = 0; ae_bc_fac = 0.0 ! . ae_depv = bl; ae_depv_map = 0; ae_depv_fac = 0.0 ! . ae_scav = bl; ae_scav_map = 0; ae_scav_fac = 0.0 ! array ae_a2aq = bl; ae_a2aq_map = 0 ! . ae_trns = bl; ae_trns_map = 0 ! assignments ae_ddep = bl; ae_ddep_map = 0 ! . ae_wdep = bl; ae_wdep_map = 0 ! . ae_conc = bl; ae_conc_map = 0 ! . ! Pass Data from AE Namelist to Internal Variables N_AE_OPTICS = 0;N_AE_IC = 0; N_AE_BC = 0; N_AE_DEPV = 0; N_AE_SCAV = 0 N_AE_A2AQ = 0; N_AE_TRNS = 0; N_AE_DDEP = 0; N_AE_WDEP = 0 N_AE_CONC = 0 DO IAE = 1,N_AE_SPC AE_SPC( IAE ) = AE_SPECIES_DATA( IAE )%SPECIES_NAME AE_MOLWT( IAE ) = AE_SPECIES_DATA( IAE )%MOLWT ! Aerosol ICs IF ( AE_SPECIES_DATA( IAE )%IC_SURR .NE. '' ) THEN N_AE_IC = N_AE_IC + 1 AE_IC( N_AE_IC ) = AE_SPECIES_DATA( IAE )%IC_SURR AE_IC_MAP( N_AE_IC ) = IAE AE_IC_FAC( N_AE_IC ) = AE_SPECIES_DATA( IAE )%IC_FAC END IF ! Aerosol BCs IF ( AE_SPECIES_DATA( IAE )%BC_SURR .NE. '' ) THEN N_AE_BC = N_AE_BC + 1 AE_BC( N_AE_BC ) = AE_SPECIES_DATA( IAE )%BC_SURR AE_BC_MAP( N_AE_BC ) = IAE AE_BC_FAC( N_AE_BC ) = AE_SPECIES_DATA( IAE )%BC_FAC END IF ! Aerosol Refractive Indices, blank if using default values in AERO_DATA module IF ( AE_SPECIES_DATA( IAE )%OPTICS_SURR .NE. '' ) THEN N_AE_OPTICS = N_AE_OPTICS + 1 AE_OPTICS( IAE ) = AE_SPECIES_DATA( IAE )%OPTICS_SURR END IF ! Aerosol Dry Deposition Surrogates IF ( AE_SPECIES_DATA( IAE )%DEPV_SURR .NE. '' ) THEN N_AE_DEPV = N_AE_DEPV + 1 AE_DEPV( N_AE_DEPV ) = AE_SPECIES_DATA( IAE )%DEPV_SURR AE_DEPV_MAP( N_AE_DEPV ) = IAE AE_DEPV_FAC( N_AE_DEPV ) = AE_SPECIES_DATA( IAE )%DEPV_FAC END IF ! Aerosol Wet Scavenging Surrogates IF ( AE_SPECIES_DATA( IAE )%SCAV_SURR .NE. '' ) THEN N_AE_SCAV = N_AE_SCAV + 1 AE_SCAV( N_AE_SCAV ) = AE_SPECIES_DATA( IAE )%SCAV_SURR AE_SCAV_MAP( N_AE_SCAV ) = IAE AE_SCAV_FAC( N_AE_SCAV ) = AE_SPECIES_DATA( IAE )%SCAV_FAC END IF ! Aerosol -to-Cloud Chemistry Surrogates IF ( AE_SPECIES_DATA( IAE )%CLOUD_SURR .NE. '' ) THEN N_AE_A2AQ = N_AE_A2AQ + 1 AE_A2AQ( N_AE_A2AQ ) = AE_SPECIES_DATA( IAE )%CLOUD_SURR AE_A2AQ_MAP( N_AE_A2AQ ) = IAE END IF ! Aerosol - Perform Transport LTRNS = GET_LOGICAL_NML( AE_SPECIES_DATA( IAE )%TRNS_FLAG ) IF ( LTRNS ) THEN N_AE_TRNS = N_AE_TRNS + 1 AE_TRNS( N_AE_TRNS ) = AE_SPECIES_DATA( IAE )%SPECIES_NAME AE_TRNS_MAP( N_AE_TRNS ) = IAE END IF ! Aerosol - Output Deposition Velocity LDDEP = GET_LOGICAL_NML( AE_SPECIES_DATA( IAE )%DDEP_FLAG ) IF ( LDDEP ) THEN N_AE_DDEP = N_AE_DDEP + 1 AE_DDEP( N_AE_DDEP ) = AE_SPECIES_DATA( IAE )%SPECIES_NAME AE_DDEP_MAP( N_AE_DDEP ) = IAE END IF ! Aerosol - Output Wet Scavenging Flux LWDEP = GET_LOGICAL_NML( AE_SPECIES_DATA( IAE )%WDEP_FLAG ) IF ( LWDEP ) THEN N_AE_WDEP = N_AE_WDEP + 1 AE_WDEP( N_AE_WDEP ) = AE_SPECIES_DATA( IAE )%SPECIES_NAME AE_WDEP_MAP( N_AE_WDEP ) = IAE END IF ! Aerosol - Output Concentration Field LCONC = GET_LOGICAL_NML( AE_SPECIES_DATA( IAE )%CONC_FLAG ) IF ( LCONC ) THEN N_AE_CONC = N_AE_CONC + 1 AE_CONC( N_AE_CONC ) = AE_SPECIES_DATA( IAE )%SPECIES_NAME AE_CONC_MAP( N_AE_CONC ) = IAE END IF END DO AE_STRT = GC_FINI + 2 AE_FINI = AE_STRT + N_AE_SPC - 1 ! Nonreactive (NR) Namelist ALLOCATE( NR_SPECIES_DATA( SPC_DIM ), STAT=IOS ) NR_SPECIES_DATA%SPECIES_NAME = '' NR_SPECIES_DATA%MOLWT = 0. NR_SPECIES_DATA%IC_SURR = '' NR_SPECIES_DATA%IC_FAC = 0. NR_SPECIES_DATA%BC_SURR = '' NR_SPECIES_DATA%BC_FAC = 0. NR_SPECIES_DATA%DEPV_SURR = '' NR_SPECIES_DATA%DEPV_FAC = 0. NR_SPECIES_DATA%SCAV_SURR = '' NR_SPECIES_DATA%SCAV_FAC = 0. NR_SPECIES_DATA%AERO_SURR = '' NR_SPECIES_DATA%CLOUD_SURR = '' NR_SPECIES_DATA%TRNS_FLAG = '' NR_SPECIES_DATA%DDEP_FLAG = '' NR_SPECIES_DATA%WDEP_FLAG = '' NR_SPECIES_DATA%CONC_FLAG = '' dev_nr_nml = junit() open( file = trim( nr_namelist ), unit = dev_nr_nml, & status = 'old', position = 'rewind' ) read( nml = NR_nml, unit = dev_nr_nml ) ! Determine Number of Gas Species N_NR_SPC = 0 DO INR = 1,SPC_DIM IF ( NR_SPECIES_DATA( INR )%SPECIES_NAME .EQ. '' ) EXIT N_NR_SPC = INR IF ( NR_SPECIES_DATA( INR )%IC_FAC .EQ. -1. ) & NR_SPECIES_DATA( INR )%IC_FAC = 0. IF ( NR_SPECIES_DATA( INR )%BC_FAC .EQ. -1. ) & NR_SPECIES_DATA( INR )%BC_FAC = 0. IF ( NR_SPECIES_DATA( INR )%DEPV_FAC .EQ. -1. ) & NR_SPECIES_DATA( INR )%DEPV_FAC = 0. IF ( NR_SPECIES_DATA( INR )%SCAV_FAC .EQ. -1. ) & NR_SPECIES_DATA( INR )%SCAV_FAC = 0. END DO IF ( STM ) THEN IF ( ( N_NR_SPC + N_STM_NR_SPC ) .GT. SPC_DIM ) THEN WRITE( LOGDEV,* ) '*** Allocated dimension exceeded for NR ', & ' species in Sulfur Tracking Model' SUCCESS = .FALSE. RETURN END IF DO INR = 1, N_STM_NR_SPC N_NR_SPC = N_NR_SPC + 1 NR_SPECIES_DATA( N_NR_SPC )%SPECIES_NAME = STM_NR_SPECIES_DATA( INR )%SPECIES_NAME NR_SPECIES_DATA( N_NR_SPC )%MOLWT = STM_NR_SPECIES_DATA( INR )%MOLWT NR_SPECIES_DATA( N_NR_SPC )%IC_SURR = STM_NR_SPECIES_DATA( INR )%IC_SURR NR_SPECIES_DATA( N_NR_SPC )%IC_FAC = STM_NR_SPECIES_DATA( INR )%IC_FAC NR_SPECIES_DATA( N_NR_SPC )%BC_SURR = STM_NR_SPECIES_DATA( INR )%BC_SURR NR_SPECIES_DATA( N_NR_SPC )%BC_FAC = STM_NR_SPECIES_DATA( INR )%BC_FAC NR_SPECIES_DATA( N_NR_SPC )%DEPV_SURR = STM_NR_SPECIES_DATA( INR )%DEPV_SURR NR_SPECIES_DATA( N_NR_SPC )%DEPV_FAC = STM_NR_SPECIES_DATA( INR )%DEPV_FAC NR_SPECIES_DATA( N_NR_SPC )%SCAV_SURR = STM_NR_SPECIES_DATA( INR )%SCAV_SURR NR_SPECIES_DATA( N_NR_SPC )%SCAV_FAC = STM_NR_SPECIES_DATA( INR )%SCAV_FAC NR_SPECIES_DATA( N_NR_SPC )%AERO_SURR = STM_NR_SPECIES_DATA( INR )%AERO_SURR NR_SPECIES_DATA( N_NR_SPC )%CLOUD_SURR = STM_NR_SPECIES_DATA( INR )%CLOUD_SURR NR_SPECIES_DATA( N_NR_SPC )%TRNS_FLAG = STM_NR_SPECIES_DATA( INR )%TRNS_FLAG NR_SPECIES_DATA( N_NR_SPC )%DDEP_FLAG = STM_NR_SPECIES_DATA( INR )%DDEP_FLAG NR_SPECIES_DATA( N_NR_SPC )%WDEP_FLAG = STM_NR_SPECIES_DATA( INR )%WDEP_FLAG NR_SPECIES_DATA( N_NR_SPC )%CONC_FLAG = STM_NR_SPECIES_DATA( INR )%CONC_FLAG END DO END IF ! stm ! Allocate and Initialize Permanent Variables allocate ( & NR_spc( n_nr_spc ), NR_molwt( n_nr_spc ), & NR_ic( n_nr_spc ), NR_ic_map( n_nr_spc ), NR_ic_fac( n_nr_spc ), & NR_bc( n_nr_spc ), NR_bc_map( n_nr_spc ), NR_bc_fac( n_nr_spc ), & NR_depv( n_nr_spc ), NR_depv_map( n_nr_spc ), NR_depv_fac( n_nr_spc ), & NR_scav( n_nr_spc ), NR_scav_map( n_nr_spc ), NR_scav_fac( n_nr_spc ), & NR_n2ae( n_nr_spc ), NR_n2ae_map( n_nr_spc ), & NR_n2aq( n_nr_spc ), NR_n2aq_map( n_nr_spc ), & NR_trns( n_nr_spc ), NR_trns_map( n_nr_spc ), & NR_ddep( n_nr_spc ), NR_ddep_map( n_nr_spc ), & NR_wdep( n_nr_spc ), NR_wdep_map( n_nr_spc ), & NR_conc( n_nr_spc ), NR_conc_map( n_nr_spc ), & stat = ios ) NR_spc = bl; NR_molwt = 0.0 ! . NR_ic = bl; NR_ic_map = 0; NR_ic_fac = 0.0 ! . NR_bc = bl; NR_bc_map = 0; NR_bc_fac = 0.0 ! . NR_depv = bl; NR_depv_map = 0; NR_depv_fac = 0.0 ! . NR_scav = bl; NR_scav_map = 0; NR_scav_fac = 0.0 ! array NR_n2ae = bl; NR_n2ae_map = 0 ! . NR_n2aq = bl; NR_n2aq_map = 0 ! . NR_trns = bl; NR_trns_map = 0 ! assignments NR_ddep = bl; NR_ddep_map = 0 ! . NR_wdep = bl; NR_wdep_map = 0 ! . NR_conc = bl; NR_conc_map = 0 ! . ! Pass Data from NR Namelist to Internal Variables N_NR_IC = 0; N_NR_BC = 0; N_NR_DEPV = 0; N_NR_SCAV = 0 N_NR_N2AE = 0; N_NR_N2AQ = 0; N_NR_TRNS = 0; N_NR_DDEP = 0; N_NR_WDEP = 0 N_NR_CONC = 0 DO INR = 1,N_NR_SPC NR_SPC( INR ) = NR_SPECIES_DATA( INR )%SPECIES_NAME NR_MOLWT( INR ) = NR_SPECIES_DATA( INR )%MOLWT ! Nonreactive ICs IF ( NR_SPECIES_DATA( INR )%IC_SURR .NE. '' ) THEN N_NR_IC = N_NR_IC + 1 NR_IC( N_NR_IC ) = NR_SPECIES_DATA( INR )%IC_SURR NR_IC_MAP( N_NR_IC ) = INR NR_IC_FAC( N_NR_IC ) = NR_SPECIES_DATA( INR )%IC_FAC END IF ! Nonreactive BCs IF ( NR_SPECIES_DATA( INR )%BC_SURR .NE. '' ) THEN N_NR_BC = N_NR_BC + 1 NR_BC( N_NR_BC ) = NR_SPECIES_DATA( INR )%BC_SURR NR_BC_MAP( N_NR_BC ) = INR NR_BC_FAC( N_NR_BC ) = NR_SPECIES_DATA( INR )%BC_FAC END IF ! Nonreactive Dry Deposition Surrogates IF ( NR_SPECIES_DATA( INR )%DEPV_SURR .NE. '' ) THEN N_NR_DEPV = N_NR_DEPV + 1 NR_DEPV( N_NR_DEPV ) = NR_SPECIES_DATA( INR )%DEPV_SURR NR_DEPV_MAP( N_NR_DEPV ) = INR NR_DEPV_FAC( N_NR_DEPV ) = NR_SPECIES_DATA( INR )%DEPV_FAC END IF ! Nonreactive Wet Scavenging Surrogates IF ( NR_SPECIES_DATA( INR )%SCAV_SURR .NE. '' ) THEN N_NR_SCAV = N_NR_SCAV + 1 NR_SCAV( N_NR_SCAV ) = NR_SPECIES_DATA( INR )%SCAV_SURR NR_SCAV_MAP( N_NR_SCAV ) = INR NR_SCAV_FAC( N_NR_SCAV ) = NR_SPECIES_DATA( INR )%SCAV_FAC END IF ! Nonreactive -to-Aerosol Module Surrogates IF ( NR_SPECIES_DATA( INR )%AERO_SURR .NE. '' ) THEN N_NR_N2AE = N_NR_N2AE + 1 NR_N2AE( N_NR_N2AE ) = NR_SPECIES_DATA( INR )%AERO_SURR NR_N2AE_MAP( N_NR_N2AE ) = INR END IF ! Nonreactive -to-Cloud Chemistry Surrogates IF ( NR_SPECIES_DATA( INR )%CLOUD_SURR .NE. '' ) THEN N_NR_N2AQ = N_NR_N2AQ + 1 NR_N2AQ( N_NR_N2AQ ) = NR_SPECIES_DATA( INR )%CLOUD_SURR NR_N2AQ_MAP( N_NR_N2AQ ) = INR END IF ! Nonreactive - Perform Transport LTRNS = GET_LOGICAL_NML( NR_SPECIES_DATA( INR )%TRNS_FLAG ) IF ( LTRNS ) THEN N_NR_TRNS = N_NR_TRNS + 1 NR_TRNS( N_NR_TRNS ) = NR_SPECIES_DATA( INR )%SPECIES_NAME NR_TRNS_MAP( N_NR_TRNS ) = INR END IF ! Nonreactive - Output Deposition Velocity LDDEP = GET_LOGICAL_NML( NR_SPECIES_DATA( INR )%DDEP_FLAG ) IF ( LDDEP ) THEN N_NR_DDEP = N_NR_DDEP + 1 NR_DDEP( N_NR_DDEP ) = NR_SPECIES_DATA( INR )%SPECIES_NAME NR_DDEP_MAP( N_NR_DDEP ) = INR END IF ! Nonreactive - Output Wet Scavenging Flux LWDEP = GET_LOGICAL_NML( NR_SPECIES_DATA( INR )%WDEP_FLAG ) IF ( LWDEP ) THEN N_NR_WDEP = N_NR_WDEP + 1 NR_WDEP( N_NR_WDEP ) = NR_SPECIES_DATA( INR )%SPECIES_NAME NR_WDEP_MAP( N_NR_WDEP ) = INR END IF ! Nonreactive - Output Concentration Field LCONC = GET_LOGICAL_NML( NR_SPECIES_DATA( INR )%CONC_FLAG ) IF ( LCONC ) THEN N_NR_CONC = N_NR_CONC + 1 NR_CONC( N_NR_CONC ) = NR_SPECIES_DATA( INR )%SPECIES_NAME NR_CONC_MAP( N_NR_CONC ) = INR END IF END DO NR_STRT = AE_FINI + 1 NR_FINI = NR_STRT + N_NR_SPC - 1 ! Tracer (TR) Namelists ALLOCATE( TR_SPECIES_DATA( SPC_DIM ), STAT=IOS ) TR_SPECIES_DATA%SPECIES_NAME = '' TR_SPECIES_DATA%MOLWT = 0. TR_SPECIES_DATA%IC_SURR = '' TR_SPECIES_DATA%IC_FAC = 0. TR_SPECIES_DATA%BC_SURR = '' TR_SPECIES_DATA%BC_FAC = 0. TR_SPECIES_DATA%DEPV_SURR = '' TR_SPECIES_DATA%DEPV_FAC = 0. TR_SPECIES_DATA%SCAV_SURR = '' TR_SPECIES_DATA%SCAV_FAC = 0. TR_SPECIES_DATA%AERO_SURR = '' TR_SPECIES_DATA%CLOUD_SURR = '' TR_SPECIES_DATA%ADVC_FLAG = '' TR_SPECIES_DATA%DIFF_FLAG = '' TR_SPECIES_DATA%DDEP_FLAG = '' TR_SPECIES_DATA%WDEP_FLAG = '' TR_SPECIES_DATA%CONC_FLAG = '' dev_tr_nml = junit() open( file = trim( tr_namelist ), unit = dev_tr_nml, & status = 'old', position = 'rewind' ) read( nml = TR_nml, unit = dev_tr_nml ) ! Determine Number of Gas Species N_TR_SPC = 0 DO ITR = 1,SPC_DIM IF ( TR_SPECIES_DATA( ITR )%SPECIES_NAME .EQ. '' ) EXIT N_TR_SPC = ITR IF ( TR_SPECIES_DATA( ITR )%IC_FAC .EQ. -1. ) & TR_SPECIES_DATA( ITR )%IC_FAC = 0. IF ( TR_SPECIES_DATA( ITR )%BC_FAC .EQ. -1. ) & TR_SPECIES_DATA( ITR )%BC_FAC = 0. IF ( TR_SPECIES_DATA( ITR )%DEPV_FAC .EQ. -1. ) & TR_SPECIES_DATA( ITR )%DEPV_FAC = 0. IF ( TR_SPECIES_DATA( ITR )%SCAV_FAC .EQ. -1. ) & TR_SPECIES_DATA( ITR )%SCAV_FAC = 0. END DO ! Allocate and Initialize Permanent Variables allocate ( & TR_spc( n_tr_spc ), TR_molwt( n_tr_spc ), & TR_ic( n_tr_spc ), TR_ic_map( n_tr_spc ), TR_ic_fac( n_tr_spc ), & TR_bc( n_tr_spc ), TR_bc_map( n_tr_spc ), TR_bc_fac( n_tr_spc ), & TR_depv( n_tr_spc ), TR_depv_map( n_tr_spc ), TR_depv_fac( n_tr_spc ), & TR_scav( n_tr_spc ), TR_scav_map( n_tr_spc ), TR_scav_fac( n_tr_spc ), & TR_t2ae( n_tr_spc ), TR_t2ae_map( n_tr_spc ), & TR_t2aq( n_tr_spc ), TR_t2aq_map( n_tr_spc ), & TR_adv( n_tr_spc ), TR_adv_map( n_tr_spc ), & TR_diff( n_tr_spc ), TR_diff_map( n_tr_spc ), & TR_ddep( n_tr_spc ), TR_ddep_map( n_tr_spc ), & TR_wdep( n_tr_spc ), TR_wdep_map( n_tr_spc ), & TR_conc( n_tr_spc ), TR_conc_map( n_tr_spc ), & stat = ios ) TR_spc = bl; TR_molwt = 0.0 ! . TR_ic = bl; TR_ic_map = 0; TR_ic_fac = 0.0 ! . TR_bc = bl; TR_bc_map = 0; TR_bc_fac = 0.0 ! . TR_depv = bl; TR_depv_map = 0; TR_depv_fac = 0.0 ! . TR_scav = bl; TR_scav_map = 0; TR_scav_fac = 0.0 ! array TR_t2ae = bl; TR_t2ae_map = 0 ! . TR_t2aq = bl; TR_t2aq_map = 0 ! . TR_adv = bl; TR_adv_map = 0 ! assignments TR_diff = bl; TR_diff_map = 0 ! assignments TR_ddep = bl; TR_ddep_map = 0 ! . TR_wdep = bl; TR_wdep_map = 0 ! . TR_conc = bl; TR_conc_map = 0 ! . ! Pass Data from TR Namelist to Internal Variables N_TR_IC = 0; N_TR_BC = 0; N_TR_DEPV = 0; N_TR_SCAV = 0 N_TR_T2AE = 0; N_TR_T2AQ = 0; N_TR_ADV = 0; N_TR_DDEP = 0; N_TR_WDEP = 0 N_TR_CONC = 0; N_TR_DIFF = 0 DO ITR = 1,N_TR_SPC TR_SPC( ITR ) = TR_SPECIES_DATA( ITR )%SPECIES_NAME TR_MOLWT( ITR ) = TR_SPECIES_DATA( ITR )%MOLWT ! Tracer IC IF ( TR_SPECIES_DATA( ITR )%IC_SURR .NE. '' ) THEN N_TR_IC = N_TR_IC + 1 TR_IC( N_TR_IC ) = TR_SPECIES_DATA( ITR )%IC_SURR TR_IC_MAP( N_TR_IC ) = ITR TR_IC_FAC( N_TR_IC ) = TR_SPECIES_DATA( ITR )%IC_FAC END IF ! Tracer BC IF ( TR_SPECIES_DATA( ITR )%BC_SURR .NE. '' ) THEN N_TR_BC = N_TR_BC + 1 TR_BC( N_TR_BC ) = TR_SPECIES_DATA( ITR )%BC_SURR TR_BC_MAP( N_TR_BC ) = ITR TR_BC_FAC( N_TR_BC ) = TR_SPECIES_DATA( ITR )%BC_FAC END IF ! Tracer Dry Deposition Surrogates IF ( TR_SPECIES_DATA( ITR )%DEPV_SURR .NE. '' ) THEN N_TR_DEPV = N_TR_DEPV + 1 TR_DEPV( N_TR_DEPV ) = TR_SPECIES_DATA( ITR )%DEPV_SURR TR_DEPV_MAP( N_TR_DEPV ) = ITR TR_DEPV_FAC( N_TR_DEPV ) = TR_SPECIES_DATA( ITR )%DEPV_FAC END IF ! Tracer Wet Scavenging Surrogates IF ( TR_SPECIES_DATA( ITR )%SCAV_SURR .NE. '' ) THEN N_TR_SCAV = N_TR_SCAV + 1 TR_SCAV( N_TR_SCAV ) = TR_SPECIES_DATA( ITR )%SCAV_SURR TR_SCAV_MAP( N_TR_SCAV ) = ITR TR_SCAV_FAC( N_TR_SCAV ) = TR_SPECIES_DATA( ITR )%SCAV_FAC END IF ! Tracer -to-Aerosol Module Surrogates IF ( TR_SPECIES_DATA( ITR )%AERO_SURR .NE. '' ) THEN N_TR_T2AE = N_TR_T2AE + 1 TR_T2AE( N_TR_T2AE ) = TR_SPECIES_DATA( ITR )%AERO_SURR TR_T2AE_MAP( N_TR_T2AE ) = ITR END IF ! Tracer -to-Cloud Chemistry Surrogates IF ( TR_SPECIES_DATA( ITR )%CLOUD_SURR .NE. '' ) THEN N_TR_T2AQ = N_TR_T2AQ + 1 TR_T2AQ( N_TR_T2AQ ) = TR_SPECIES_DATA( ITR )%CLOUD_SURR TR_T2AQ_MAP( N_TR_T2AQ ) = ITR END IF ! Tracer - Perform Advection? LADVC = GET_LOGICAL_NML( TR_SPECIES_DATA( ITR )%ADVC_FLAG ) IF ( LADVC ) THEN N_TR_ADV = N_TR_ADV + 1 TR_ADV( N_TR_ADV ) = TR_SPECIES_DATA( ITR )%SPECIES_NAME TR_ADV_MAP( N_TR_ADV ) = ITR END IF ! Tracer - Perform Dispersion (i.e. Diffusion)? LDIFF = GET_LOGICAL_NML( TR_SPECIES_DATA( ITR )%DIFF_FLAG ) IF ( LDIFF ) THEN N_TR_DIFF = N_TR_DIFF + 1 TR_DIFF( N_TR_DIFF ) = TR_SPECIES_DATA( ITR )%SPECIES_NAME TR_DIFF_MAP( N_TR_DIFF ) = ITR END IF ! Tracer - Output Deposition Velocity LDDEP = GET_LOGICAL_NML( TR_SPECIES_DATA( ITR )%DDEP_FLAG ) IF ( LDDEP ) THEN N_TR_DDEP = N_TR_DDEP + 1 TR_DDEP( N_TR_DDEP ) = TR_SPECIES_DATA( ITR )%SPECIES_NAME TR_DDEP_MAP( N_TR_DDEP ) = ITR END IF ! Tracer - Output Wet Scavenging Flux LWDEP = GET_LOGICAL_NML( TR_SPECIES_DATA( ITR )%WDEP_FLAG ) IF ( LWDEP ) THEN N_TR_WDEP = N_TR_WDEP + 1 TR_WDEP( N_TR_WDEP ) = TR_SPECIES_DATA( ITR )%SPECIES_NAME TR_WDEP_MAP( N_TR_WDEP ) = ITR END IF ! Tracer - Output Concentration Field LCONC = GET_LOGICAL_NML( TR_SPECIES_DATA( ITR )%CONC_FLAG ) IF ( LCONC ) THEN N_TR_CONC = N_TR_CONC + 1 TR_CONC( N_TR_CONC ) = TR_SPECIES_DATA( ITR )%SPECIES_NAME TR_CONC_MAP( N_TR_CONC ) = ITR END IF END DO TR_STRT = NR_FINI + 1 TR_FINI = TR_STRT + N_TR_SPC - 1 !-------------------------------------------------------------- ! Process Chemical Namelist Informaiton to CGRID Vectors !-------------------------------------------------------------- ! Sum Up All Species Across Phases and Types NSPCSD = N_GC_SPCD + N_AE_SPC + N_NR_SPC + N_TR_SPC #ifdef mpas n_all_spc = n_gc_spc + n_ae_spc + n_nr_spc + n_tr_spc do i1 = 1, n_gc_spc all_spc(i1) = gc_spc(i1) end do i1 = i1 - 1 do i2 = 1, n_ae_spc all_spc(i1+i2) = ae_spc(i2) end do i1 = i1 + i2 - 1 do i3 = 1, n_nr_spc all_spc(i1+i3) = nr_spc(i3) end do i1 = i1 + i3 - 1 do i4 = 1, n_tr_spc all_spc(i1+i4) = nr_spc(i4) end do #endif ! Move Data To CGRID_xxx Master Arrays N_CGRID_SPC = NSPCSD ALLOCATE( CGRID_NAME ( N_CGRID_SPC ), & CGRID_MW ( N_CGRID_SPC ), & CGRID_UNITS( N_CGRID_SPC ), & CGRID_MASK_GAS( N_CGRID_SPC ), & CGRID_MASK_AERO( N_CGRID_SPC ), & CGRID_MASK_NUM( N_CGRID_SPC ), & CGRID_MASK_SRF( N_CGRID_SPC ), & CGRID_MASK_NR( N_CGRID_SPC ), & CGRID_MASK_TRAC( N_CGRID_SPC ), & CGRID_CONC_UNIT( N_CGRID_SPC ), & CGRID_CONC_DESC( N_CGRID_SPC ), & MAP_DEPVtoCGRID( N_CGRID_SPC ), & MAP_WDEPtoCGRID( N_CGRID_SPC ) ) CGRID_NAME = '' CGRID_MW = 0. CGRID_MASK_GAS = .FALSE. CGRID_MASK_AERO= .FALSE. CGRID_MASK_NUM = .FALSE. CGRID_MASK_SRF = .FALSE. CGRID_MASK_NR = .FALSE. CGRID_MASK_TRAC= .FALSE. CGRID_CONC_UNIT= '' CGRID_CONC_DESC= '' MAP_DEPVtoCGRID= 0 MAP_WDEPtoCGRID= 0 CGRID_UNITS = '' IGRID = 0 IWDEP = 0 IDEPV = 0 ! Set Masks for Reactive Gases DO ISPC = gc_strt,n_gc_spc IGRID = IGRID + 1 CGRID_NAME( IGRID ) = GC_SPC( ISPC ) CGRID_MW( IGRID ) = GC_MOLWT( ISPC ) CGRID_MASK_GAS( IGRID ) = .TRUE. CGRID_CONC_UNIT( IGRID ) = 'ppmV' CGRID_UNITS( IGRID ) = 'ppmV' CGRID_CONC_DESC( IGRID ) = 'Molar Mixing Ratio of ' // CGRID_NAME(IGRID) DO JSPC = 1,N_GC_DEPV IF ( GC_DEPV_MAP( JSPC ) .EQ. ISPC ) THEN IDEPV = IDEPV + 1 MAP_DEPVtoCGRID( IDEPV ) = IGRID END IF END DO DO JSPC = 1,N_GC_WDEP IF ( GC_WDEP_MAP( JSPC ) .EQ. ISPC ) THEN IWDEP = IWDEP + 1 MAP_WDEPtoCGRID( IWDEP ) = IGRID END IF ENDDO END DO ! Set Masks for Density x Jacobian/MSFX2 CGRID_NAME( RHOJ_LOC ) = 'RHOJ' CGRID_MW( RHOJ_LOC ) = 28.96 CGRID_MASK_GAS( RHOJ_LOC ) = .TRUE. IGRID = IGRID + 1 ! Set Masks for Aerosols DO ISPC = 1,n_ae_spc IGRID = IGRID + 1 CGRID_NAME( IGRID ) = AE_SPC( ISPC ) CGRID_MW( IGRID ) = AE_MOLWT( ISPC ) CGRID_MASK_AERO( IGRID ) = .TRUE. CGRID_CONC_UNIT( IGRID ) = 'ug m-3' CGRID_CONC_DESC( IGRID ) = 'PM Mass Concentration of ' // CGRID_NAME(IGRID) IF ( INDEX( AE_SPC( ISPC ),'NUM') .NE. 0 ) THEN CGRID_MASK_NUM( IGRID ) = .TRUE. CGRID_CONC_UNIT( IGRID ) = 'm-3' CGRID_CONC_DESC( IGRID ) = 'PM Number Concentration of ' // CGRID_NAME(IGRID) END IF IF ( INDEX( AE_SPC( ISPC ),'SRF') .NE. 0 ) THEN CGRID_MASK_SRF( IGRID ) = .TRUE. CGRID_CONC_UNIT( IGRID ) = 'm2 m-3' CGRID_CONC_DESC( IGRID ) = 'PM Surface Area Concentration of ' // CGRID_NAME(IGRID) END IF DO JSPC = 1,N_AE_DEPV IF ( AE_DEPV_MAP( JSPC ) .EQ. ISPC ) THEN IDEPV = IDEPV + 1 MAP_DEPVtoCGRID( IDEPV ) = IGRID END IF END DO DO JSPC = 1,N_AE_WDEP IF ( AE_WDEP_MAP( JSPC ) .EQ. ISPC ) THEN IWDEP = IWDEP + 1 MAP_WDEPtoCGRID( IWDEP ) = IGRID END IF ENDDO CGRID_UNITS( IGRID ) = 'ug m-3' IF ( INDEX( AE_SPC( ISPC ),'NUM') .NE. 0 ) THEN CGRID_MASK_NUM( IGRID ) = .TRUE. CGRID_UNITS( IGRID ) = 'm-3' END IF IF ( INDEX( AE_SPC( ISPC ),'SRF') .NE. 0 ) THEN CGRID_MASK_SRF( IGRID ) = .TRUE. CGRID_UNITS( IGRID ) = 'm2 m-3' END IF END DO ! Set Masks for Nonreactive Variables DO ISPC = 1,n_nr_spc IGRID = IGRID + 1 CGRID_NAME( IGRID ) = NR_SPC( ISPC ) CGRID_UNITS( IGRID ) = 'ppmV' CGRID_MW( IGRID ) = NR_MOLWT( ISPC ) CGRID_MASK_NR( IGRID ) = .TRUE. CGRID_CONC_UNIT( IGRID ) = 'ppmV' CGRID_UNITS( IGRID ) = 'ppmV' CGRID_CONC_DESC( IGRID ) = 'Molar Mixing Ratio of ' // CGRID_NAME(IGRID) DO JSPC = 1,N_NR_DEPV IF ( NR_DEPV_MAP( JSPC ) .EQ. ISPC ) THEN IDEPV = IDEPV + 1 MAP_DEPVtoCGRID( IDEPV ) = IGRID END IF END DO DO JSPC = 1,N_NR_WDEP IF ( NR_WDEP_MAP( JSPC ) .EQ. ISPC ) THEN IWDEP = IWDEP + 1 MAP_WDEPtoCGRID( IWDEP ) = IGRID END IF ENDDO END DO ! Set Masks for Tracers DO ISPC = 1,n_tr_spc IGRID = IGRID + 1 CGRID_NAME( IGRID ) = TR_SPC( ISPC ) CGRID_UNITS( IGRID ) = 'ppmV' CGRID_MW( IGRID ) = TR_MOLWT( ISPC ) CGRID_MASK_TRAC( IGRID ) = .TRUE. CGRID_CONC_UNIT( IGRID ) = 'ppmV' CGRID_UNITS( IGRID ) = 'ppmV' CGRID_CONC_DESC( IGRID ) = 'Molar Mixing Ratio of ' // CGRID_NAME(IGRID) DO JSPC = 1,N_TR_DEPV IF ( TR_DEPV_MAP( JSPC ) .EQ. ISPC ) THEN IDEPV = IDEPV + 1 MAP_DEPVtoCGRID( IDEPV ) = IGRID END IF END DO DO JSPC = 1,N_TR_WDEP IF ( TR_WDEP_MAP( JSPC ) .EQ. ISPC ) THEN IWDEP = IWDEP + 1 MAP_WDEPtoCGRID( IWDEP ) = IGRID END IF ENDDO END DO N_SPC_WDEP = IWDEP N_SPC_DEPV = IDEPV return end function cgrid_spcs_init c---------------------------------------------------------------------------------------- FUNCTION GET_LOGICAL_NML( OP_FLAG ) RESULT ( LFLAG ) IMPLICIT NONE CHARACTER( 16 ) :: OP_FLAG LOGICAL :: LFLAG LFLAG = .FALSE. IF ( OP_FLAG .EQ. 'yes' .OR. OP_FLAG .EQ. 'Yes' .OR. & OP_FLAG .EQ. 'YES' .OR. OP_FLAG .EQ. 'Y' .OR. & OP_FLAG .EQ. 'y' .OR. OP_FLAG .EQ. 'T' .OR. & OP_FLAG .EQ. 't' .OR. OP_FLAG .EQ. 'on' .OR. & OP_FLAG .EQ. 'On' .OR. OP_FLAG .EQ. 'ON' .OR. & OP_FLAG .EQ. '1' ) & LFLAG = .TRUE. RETURN END FUNCTION GET_LOGICAL_NML c---------------------------------------------------------------------------------------- subroutine bubble ( n, ia, aa ) use UTILIO_DEFN implicit none integer, intent( in ) :: n integer, intent( in out ) :: ia( n ) character( * ), intent( in out ) :: aa( n ) character( 8 ) :: at integer i, it logical :: no_swap do no_swap = .true. do i = 1, n - 1 if ( ia( i ) .gt. ia( i+1 ) ) then it = ia( i ); ia( i ) = ia( i+1 ); ia( i+1 ) = it at = aa( i ); aa( i ) = aa( i+1 ); aa( i+1 ) = at no_swap = .false. end if end do if ( no_swap ) exit end do it = 0 do i = 1, n if ( ia( i ) .gt. 0 ) then it = it + 1 ia( i ) = it else aa( i ) = ' ' end if end do c compress list; move blanks to end it = 1 do i = 1, n if ( aa( i ) .ne. ' ' ) then aa( it ) = aa( i ) ia( it ) = ia( i ) it = it + 1 end if end do do i = it, n aa( i ) = ' ' ia( i ) = 0 end do return end subroutine bubble c---------------------------------------------------------------------------------------- integer function index1a ( name, n, nlist ) implicit none character( * ) name ! character string being searched for integer n ! length of array to be searched character( * ) nlist( : ) ! array to be searched integer i do i = 1, n if ( name .eq. nlist( i ) ) then index1a = i return end if end do index1a = 0 return end function index1a end module cgrid_spcs ================================================ FILE: CCTM/src/spcs/cgrid_spcs_nml/CGRID_SPCS_TYPES.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! c::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: module cgrid_spcs_types implicit none save ! Namelist Registry Format for Gases and Nonreactives TYPE SPECIES_DATA_REG_1 CHARACTER( 16 ) :: SPECIES_NAME ! CMAQ Species Name REAL :: MOLWT ! g mol-1 CHARACTER( 16 ) :: IC_SURR ! IC Surrogate REAL :: IC_FAC ! IC Scale Factor CHARACTER( 16 ) :: BC_SURR ! BC Surrogate REAL :: BC_FAC ! BC Scale Factor CHARACTER( 16 ) :: DEPV_SURR ! Dry Deposition Surrogate REAL :: DEPV_FAC ! Dry Deposition Scale Factor CHARACTER( 16 ) :: SCAV_SURR ! Wet Scavenging Surrogate REAL :: SCAV_FAC ! Wet Scavenging Scale Factor CHARACTER( 16 ) :: AERO_SURR ! Aerosol Module Surrogate CHARACTER( 16 ) :: CLOUD_SURR ! Cloud Chemistry Surrogate CHARACTER( 16 ) :: TRNS_FLAG ! Do Transport (ADV + DIFF)? CHARACTER( 16 ) :: DDEP_FLAG ! Output Dry Deposition Velocities CHARACTER( 16 ) :: WDEP_FLAG ! Output Wet Scavenging Fluxes CHARACTER( 16 ) :: CONC_FLAG ! Output Concentration END TYPE SPECIES_DATA_REG_1 ! Namelist Registry Format for Aerosols TYPE SPECIES_DATA_REG_2 CHARACTER( 16 ) :: SPECIES_NAME ! CMAQ Species Name REAL :: MOLWT ! g mol-1 LOGICAL :: LAIT ! Aitken-Mode Presence LOGICAL :: LACC ! Accumulation -Mode Presence LOGICAL :: LCOR ! Coarse-Mode Presence CHARACTER( 16 ) :: OPTICS_SURR ! material's refractive index surrogate CHARACTER( 16 ) :: IC_SURR ! IC Surrogate REAL :: IC_FAC ! IC Scale Factor CHARACTER( 16 ) :: BC_SURR ! BC Surrogate REAL :: BC_FAC ! BC Scale Factor CHARACTER( 16 ) :: DEPV_SURR ! Dry Deposition Surrogate REAL :: DEPV_FAC ! Dry Deposition Scale Factor CHARACTER( 16 ) :: SCAV_SURR ! Wet Scavenging Surrogate REAL :: SCAV_FAC ! Wet Scavenging Scale Factor CHARACTER( 16 ) :: CLOUD_SURR ! Cloud Chemistry Surrogate CHARACTER( 16 ) :: TRNS_FLAG ! Do Transport? CHARACTER( 16 ) :: DDEP_FLAG ! Output Dry Deposition Velocities CHARACTER( 16 ) :: WDEP_FLAG ! Output Wet Scavenging Fluxes CHARACTER( 16 ) :: CONC_FLAG ! Output Concentration END TYPE SPECIES_DATA_REG_2 ! Namelist Registry Format for Tracers TYPE SPECIES_DATA_REG_3 CHARACTER( 16 ) :: SPECIES_NAME ! CMAQ Species Name REAL :: MOLWT ! g mol-1 CHARACTER( 16 ) :: IC_SURR ! IC Surrogate REAL :: IC_FAC ! IC Scale Factor CHARACTER( 16 ) :: BC_SURR ! BC Surrogate REAL :: BC_FAC ! BC Scale Factor CHARACTER( 16 ) :: DEPV_SURR ! Dry Deposition Surrogate REAL :: DEPV_FAC ! Dry Deposition Scale Factor CHARACTER( 16 ) :: SCAV_SURR ! Wet Scavenging Surrogate REAL :: SCAV_FAC ! Wet Scavenging Scale Factor CHARACTER( 16 ) :: AERO_SURR ! Aerosol Module Surrogate CHARACTER( 16 ) :: CLOUD_SURR ! Cloud Chemistry Surrogate CHARACTER( 16 ) :: ADVC_FLAG ! Do Advection? CHARACTER( 16 ) :: DIFF_FLAG ! Do Dispersion (i.e. Diffusion)? CHARACTER( 16 ) :: DDEP_FLAG ! Output Dry Deposition Velocities CHARACTER( 16 ) :: WDEP_FLAG ! Output Wet Scavenging Fluxes CHARACTER( 16 ) :: CONC_FLAG ! Output Concentration END TYPE SPECIES_DATA_REG_3 TYPE (SPECIES_DATA_REG_2), ALLOCATABLE :: AE_SPECIES_DATA(:) END MODULE CGRID_SPCS_TYPES ================================================ FILE: CCTM/src/stm/STM_MODULE.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: Module stm_module C Contains: C Subroutines stm_wrap_ae C stm_wrap_gas C Revision History: C SR 12/13/2018 Initial version C---------------------------------------------------------------------- Implicit None Logical, Private, Save :: stm_mapped = .False. Real, Allocatable :: aero_conc( :,: ) ! aero species concentration [ ug/m^3 ] Contains C----------------------------------------------------------------------- Subroutine stm_wrap_ae ( cgrid, jdate, jtime ) C capture changes from aero proc (changes in aso4 from new particle C formation and condensation) C Revision History: C Initial version - 6/5/19 - Shawn Roselle C C----------------------------------------------------------------------- Use grid_conf, Only: ncols, nrows, nlays Use runtime_vars, Only: adj_stmspc Use aero_budget, Only: aero_cond, aero_npf Use aero_data, Only : aso4_idx, aso4aqh2o2_idx, aso4aqo3_idx, & aso4aqfemn_idx, aso4aqmhp_idx, aso4aqpaa_idx, & aso4gas_idx, aso4emis_idx, aso4icbc_idx, & oso4aqh2o2_idx, oso4aqo3_idx, oso4aqfemn_idx, & oso4aqmhp_idx, oso4aqpaa_idx, oso4_idx, & oso4gas_idx, oso4emis_idx, oso4icbc_idx, & aerospc_map, aerospc_mw, aerospc, & n_mode, ae6isoa, & findAero Use stm_vars, Only: organosulf Implicit None C Arguments Real, Pointer :: cgrid( :,:,:,: ) Integer, Intent( In ) :: jdate Integer, Intent( In ) :: jtime C Local variables Integer c, r, l, m Real aso4tot, oso4tot Real mscor Do c = 1, ncols Do r = 1, nrows Do l = 1, nlays C extract aerosol species from CGRID Call stm_extract_aero ( cgrid( c,r,l,: ) ) Do m = 1, n_mode aero_conc( aso4gas_idx, m ) = & Max( ( aero_conc( aso4gas_idx, m ) & + aero_cond( c,r,l,aerospc_map( aso4_idx,m ) ) & + aero_npf ( c,r,l,aerospc_map( aso4_idx,m ) ) ), & aerospc( aso4gas_idx )%min_conc( m ) ) End Do C normalize tracked sulfate species to total modeled sulfate If ( adj_stmspc ) Then Do m = 1, n_mode aso4tot = aero_conc( aso4gas_idx, m ) & + aero_conc( aso4emis_idx,m ) & + aero_conc( aso4icbc_idx,m ) C... for the accumulation mode, add aqueous tracked species If ( m .Eq. 2 ) Then aso4tot = aso4tot & + aero_conc( aso4aqh2o2_idx,m ) & + aero_conc( aso4aqo3_idx, m ) & + aero_conc( aso4aqfemn_idx,m ) & + aero_conc( aso4aqmhp_idx, m ) & + aero_conc( aso4aqpaa_idx, m ) End If C... normalize sulfur tracking species If ( aso4tot .Gt. 0.0 ) Then aso4tot = Max( aso4tot, & aerospc( aso4_idx )%min_conc( m ) ) mscor = Max( aero_conc( aso4_idx, m ), & aerospc( aso4_idx )%min_conc( m ) ) & / aso4tot aero_conc( aso4gas_idx, m ) = & Max( aero_conc( aso4gas_idx, m ) * mscor, & aerospc( aso4gas_idx )%min_conc( m ) ) aero_conc( aso4emis_idx, m ) = & Max( aero_conc( aso4emis_idx, m ) * mscor, & aerospc( aso4emis_idx )%min_conc( m ) ) aero_conc( aso4icbc_idx, m ) = & Max( aero_conc( aso4icbc_idx, m ) * mscor, & aerospc( aso4icbc_idx )%min_conc( m ) ) C... for the accumulation mode, adjust aqueous tracked species If ( m .Eq. 2 ) Then aero_conc( aso4aqh2o2_idx, m ) = & Max( aero_conc( aso4aqh2o2_idx, m ) * mscor, & aerospc( aso4aqh2o2_idx )%min_conc( m ) ) aero_conc( aso4aqo3_idx, m ) = & Max( aero_conc( aso4aqo3_idx, m ) * mscor, & aerospc( aso4aqo3_idx )%min_conc( m ) ) aero_conc( aso4aqfemn_idx, m ) = & Max( aero_conc( aso4aqfemn_idx, m ) * mscor, & aerospc( aso4aqfemn_idx )%min_conc( m ) ) aero_conc( aso4aqmhp_idx, m ) = & Max( aero_conc( aso4aqmhp_idx, m ) * mscor, & aerospc( aso4aqmhp_idx )%min_conc( m ) ) aero_conc( aso4aqpaa_idx, m ) = & Max( aero_conc( aso4aqpaa_idx, m ) * mscor, & aerospc( aso4aqpaa_idx )%min_conc( m ) ) End If End If If ( organosulf ) Then C... in the current implementation of heterogeneous chemistry, C... only the accumulation mode sulfate can be converted to organosulfate If ( m .Eq. 2 ) Then oso4tot = aero_conc( oso4gas_idx, m ) & + aero_conc( oso4emis_idx,m ) & + aero_conc( oso4icbc_idx,m ) & + aero_conc( oso4aqh2o2_idx,m ) & + aero_conc( oso4aqo3_idx, m ) & + aero_conc( oso4aqfemn_idx,m ) & + aero_conc( oso4aqmhp_idx, m ) & + aero_conc( oso4aqpaa_idx, m ) If ( oso4tot .Gt. 0.0 ) Then oso4tot = Max( oso4tot, & aerospc( oso4_idx )%min_conc( m ) ) mscor = Max( aero_conc( oso4_idx, m ), & aerospc( oso4_idx )%min_conc( m ) ) & / oso4tot aero_conc( oso4gas_idx, m ) = & Max( aero_conc( oso4gas_idx, m ) * mscor, & aerospc( oso4gas_idx )%min_conc( m ) ) aero_conc( oso4emis_idx, m ) = & Max( aero_conc( oso4emis_idx, m ) * mscor, & aerospc( oso4emis_idx )%min_conc( m ) ) aero_conc( oso4icbc_idx, m ) = & Max( aero_conc( oso4icbc_idx, m ) * mscor, & aerospc( oso4icbc_idx )%min_conc( m ) ) aero_conc( oso4aqh2o2_idx, m ) = & Max( aero_conc( oso4aqh2o2_idx, m ) * mscor, & aerospc( oso4aqh2o2_idx )%min_conc( m ) ) aero_conc( oso4aqo3_idx, m ) = & Max( aero_conc( oso4aqo3_idx, m ) * mscor, & aerospc( oso4aqo3_idx )%min_conc( m ) ) aero_conc( oso4aqfemn_idx, m ) = & Max( aero_conc( oso4aqfemn_idx, m ) * mscor, & aerospc( oso4aqfemn_idx )%min_conc( m ) ) aero_conc( oso4aqmhp_idx, m ) = & Max( aero_conc( oso4aqmhp_idx, m ) * mscor, & aerospc( oso4aqmhp_idx )%min_conc( m ) ) aero_conc( oso4aqpaa_idx, m ) = & Max( aero_conc( oso4aqpaa_idx, m ) * mscor, & aerospc( oso4aqpaa_idx )%min_conc( m ) ) End If End If End If End Do End If C update aerosol species in CGRID Call stm_update_aero ( cgrid( c,r,l,: ) ) End Do End Do End Do Return End Subroutine stm_wrap_ae C----------------------------------------------------------------------- Subroutine stm_wrap_gas ( cgrid, jdate, jtime, b4chem ) C capture changes in aso4 from gas phase chemistry C in the current release, ASO4 can be lost in gas chem to form organo-sulfate C C Initial version - 6/5/19 - Shawn Roselle C----------------------------------------------------------------------- Use grid_conf, Only: ncols, nrows, nlays Use utilio_defn Use aero_data, Only : aso4_idx, aso4aqh2o2_idx, aso4aqo3_idx, & aso4aqfemn_idx, aso4aqmhp_idx, aso4aqpaa_idx, & aso4gas_idx, aso4emis_idx, aso4icbc_idx, & oso4aqh2o2_idx, oso4aqo3_idx, oso4aqfemn_idx, & oso4aqmhp_idx, oso4aqpaa_idx, oso4_idx, & oso4gas_idx, oso4emis_idx, oso4icbc_idx, & aerospc, n_mode, ae6isoa Use stm_vars, Only: organosulf Implicit None C Arguments Real, Pointer :: cgrid( :,:,:,: ) Integer, Intent( In ) :: jdate Integer, Intent( In ) :: jtime Logical, Intent( In ) :: b4chem C local variables Character( 16 ) :: pname = 'STM_WRAP_GAS' Character( 96 ) :: xmsg = ' ' Logical, Save :: firstime = .True. Integer c, r, l, m Integer allocstat Real fso4, omfso4 Real, Save, Allocatable :: so4b4( :,:,:,: ) C----------------------------------------------------------------------- C begin body of subroutine stm_wrap_gas If ( firstime ) Then Allocate ( so4b4( ncols, nrows, nlays, n_mode ), & Stat = allocstat ) If ( allocstat .Ne. 0 ) Then xmsg = 'Failure allocating so4_b4 ' Call m3exit( pname, jdate, jtime, xmsg, xstat1 ) End If firstime = .False. End If if ( .not. organosulf ) Return C capture the loss of ASO4J to organosulfate m = 2 ! in the current implementation of heterogeneous chemistry, ! only accumulation mode sulfate can be converted to organosulfate C save ASO4 concentrations before call to CHEM If ( b4chem ) Then Do c = 1, ncols Do r = 1, nrows Do l = 1, nlays C extract aerosol species from CGRID Call stm_extract_aero ( cgrid( c,r,l,: ) ) so4b4( c,r,l,m ) = Max( aero_conc( aso4_idx, m ), & aerospc( aso4_idx )%min_conc( m ) ) End Do End Do End Do C scale sulfur tracking species by change in ASO4J following call to CHEM Else Do c = 1, ncols Do r = 1, nrows Do l = 1, nlays C extract aerosol species from CGRID Call stm_extract_aero ( cgrid( c,r,l,: ) ) If ( ( aero_conc( aso4_idx, m ) .Ne. so4b4( c,r,l,m ) ) .And. & ( so4b4( c,r,l,m ) .Gt. 0.0 ) ) Then C fractional change in ASO4J fso4 = Max( aero_conc( aso4_idx, m ), & aerospc( aso4_idx )%min_conc( m ) ) & / so4b4( c,r,l,m ) omfso4 = 1.0 - fso4 aero_conc( oso4_idx, m ) = & Max( ( aero_conc( oso4_idx, m ) & + ( so4b4( c,r,l,m ) - aero_conc( aso4_idx, m ) ) ), & aerospc( oso4_idx )%min_conc( m ) ) aero_conc( oso4gas_idx, m ) = & Max( ( aero_conc( oso4gas_idx, m ) & + aero_conc( aso4gas_idx, m ) * omfso4 ), & aerospc( oso4gas_idx )%min_conc( m ) ) aero_conc( oso4emis_idx, m ) = & Max( ( aero_conc( oso4emis_idx, m ) & + aero_conc( aso4emis_idx, m ) * omfso4 ), & aerospc( oso4emis_idx )%min_conc( m ) ) aero_conc( oso4icbc_idx, m ) = & Max( ( aero_conc( oso4icbc_idx, m ) & + aero_conc( aso4icbc_idx, m ) * omfso4 ), & aerospc( oso4icbc_idx )%min_conc( m ) ) aero_conc( oso4aqh2o2_idx, m ) = & Max( ( aero_conc( oso4aqh2o2_idx, m ) & + aero_conc( aso4aqh2o2_idx, m ) * omfso4 ), & aerospc( oso4aqh2o2_idx )%min_conc( m ) ) aero_conc( oso4aqo3_idx, m ) = & Max( ( aero_conc( oso4aqo3_idx, m ) & + aero_conc( aso4aqo3_idx, m ) * omfso4 ), & aerospc( oso4aqo3_idx )%min_conc( m ) ) aero_conc( oso4aqfemn_idx, m ) = & Max( ( aero_conc( oso4aqfemn_idx, m ) & + aero_conc( aso4aqfemn_idx, m ) * omfso4 ), & aerospc( oso4aqfemn_idx )%min_conc( m ) ) aero_conc( oso4aqmhp_idx, m ) = & Max( ( aero_conc( oso4aqmhp_idx, m ) & + aero_conc( aso4aqmhp_idx, m ) * omfso4 ), & aerospc( oso4aqmhp_idx )%min_conc( m ) ) aero_conc( oso4aqpaa_idx, m ) = & Max( ( aero_conc( oso4aqpaa_idx, m ) & + aero_conc( aso4aqpaa_idx, m ) * omfso4 ), & aerospc( oso4aqpaa_idx )%min_conc( m ) ) c reduce tracked inorganic species by amount converted to organosulfate aero_conc( aso4gas_idx, m ) = & Max( aero_conc( aso4gas_idx, m ) * fso4, & aerospc( aso4gas_idx )%min_conc( m ) ) aero_conc( aso4emis_idx, m ) = & Max( aero_conc( aso4emis_idx, m ) * fso4, & aerospc( aso4emis_idx )%min_conc( m ) ) aero_conc( aso4icbc_idx, m ) = & Max( aero_conc( aso4icbc_idx, m ) * fso4, & aerospc( aso4icbc_idx )%min_conc( m ) ) aero_conc( aso4aqh2o2_idx, m ) = & Max( aero_conc( aso4aqh2o2_idx, m ) * fso4, & aerospc( aso4aqh2o2_idx )%min_conc( m ) ) aero_conc( aso4aqo3_idx, m ) = & Max( aero_conc( aso4aqo3_idx, m ) * fso4, & aerospc( aso4aqo3_idx )%min_conc( m ) ) aero_conc( aso4aqfemn_idx, m ) = & Max( aero_conc( aso4aqfemn_idx, m ) * fso4, & aerospc( aso4aqfemn_idx )%min_conc( m ) ) aero_conc( aso4aqmhp_idx, m ) = & Max( aero_conc( aso4aqmhp_idx, m ) * fso4, & aerospc( aso4aqmhp_idx )%min_conc( m ) ) aero_conc( aso4aqpaa_idx, m ) = & Max( aero_conc( aso4aqpaa_idx, m ) * fso4, & aerospc( aso4aqpaa_idx )%min_conc( m ) ) End If C update aerosol species in CGRID Call stm_update_aero ( cgrid( c,r,l,: ) ) End Do End Do End Do End If Return End Subroutine stm_wrap_gas C----------------------------------------------------------------------- Subroutine stm_extract_aero( conc ) C Extracts aerosol data into the aero_conc array C The original idea is that the data for conc comes from CGRID C Revision History: C First version was coded in April 2010 by Steve Howard with C Prakash Bhave, Jeff Young, and Sergey Napelenok. C 6/25/19 streamlined version of extract_aero borrowed from AERO_DATA C----------------------------------------------------------------------- Use aero_data, Only : n_aerospc, aerospc_map, n_mode Implicit None C Arguments: Real, Intent( In ) :: conc( : ) C Local Variables: Logical, Save :: firstime = .True. Integer m, n, spc If ( .Not. stm_mapped ) Then Call stm_map_aero() End If C Copy grid cell concentrations of aero species to aero_conc aero_conc = 0.0 Do m = 1, n_mode Do spc = 1, n_aerospc n = aerospc_map( spc,m ) If ( n .Ne. 0 ) Then aero_conc( spc,m ) = conc( n ) ! [ug/m^3] End If End Do End Do Return End Subroutine stm_extract_aero C----------------------------------------------------------------------- Subroutine stm_update_aero( conc ) C Updates conc from the aero_conc array. C The original idea is that the data in conc updates CGRID C stm_update_aero now also saves the updated surface area back to CGRID as C well. C Revision History: C First version was coded in April 2010 by Steve Howard with C Prakash Bhave, Jeff Young, and Sergey Napelenok. C 6/25/19 streamlined version of update_aero borrowed from AERO_DATA C----------------------------------------------------------------------- Use aero_data, Only : n_aerospc, aerospc_map, n_mode Use utilio_defn Implicit None C Arguments: Real, Intent( Out ) :: conc( : ) C Local variables: Character( 16 ) :: pname = 'STM_WRAP_GAS' Character( 80 ) :: xmsg Integer m, n, spc If ( .Not. stm_mapped ) Then xmsg = 'CGRID Species has not been mapped in stm_update_aero' Call m3exit( pname, 0, 0, xmsg, xstat3 ) End If C Copy aero_conc back to grid cell concentrations Do m = 1, n_mode Do spc = 1, n_aerospc n = aerospc_map( spc,m ) If ( n .Ne. 0 ) Then conc( n ) = aero_conc( spc,m ) End If End Do End Do Return End Subroutine stm_update_aero C----------------------------------------------------------------------- Subroutine stm_map_aero() C Defines aerosol mapping from CGRID for species C Revision History: C First version was coded in April 2010 by Steve Howard with C Prakash Bhave, Jeff Young, and Sergey Napelenok. C 6/25/19 streamlined version of map_aero borrowed from AERO_DATA C----------------------------------------------------------------------- Use aero_data, Only : n_aerospc, map_aero, n_mode Implicit None If ( stm_mapped ) Return C...map the aerosol species using map_aero in the AERO_DATA module Call map_aero() Allocate ( aero_conc ( n_aerospc, n_mode ) ) stm_mapped = .True. Return End Subroutine stm_map_aero C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: End Module stm_module ================================================ FILE: CCTM/src/stm/STM_VARS.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: Module stm_vars C Contains: C C Revision History: C SR 07/2/2019 Initial version C---------------------------------------------------------------------- Implicit None Integer, Parameter :: N_STM_AE_SPC = 14 ! number of stm ae species Integer, Parameter :: N_STM_OAE_SPC = 9 ! number of stm oae species Integer, Parameter :: N_STM_NR_SPC = 1 ! number of stm nr species Logical, Save :: organosulf = .False. C Define value as Y and N for the spc tables CHARACTER( 16 ), Parameter, Private :: Y = 'Yes' CHARACTER( 16 ), Parameter, Private :: N = 'No' ! Equivalent to the Namelist Registry Format for Gases and Nonreactives TYPE STM_SPC_DATA_1 CHARACTER( 16 ) :: SPECIES_NAME ! CMAQ Species Name REAL :: MOLWT ! g mol-1 CHARACTER( 16 ) :: IC_SURR ! IC Surrogate REAL :: IC_FAC ! IC Scale Factor CHARACTER( 16 ) :: BC_SURR ! BC Surrogate REAL :: BC_FAC ! BC Scale Factor CHARACTER( 16 ) :: DEPV_SURR ! Dry Deposition Surrogate REAL :: DEPV_FAC ! Dry Deposition Scale Factor CHARACTER( 16 ) :: SCAV_SURR ! Wet Scavenging Surrogate REAL :: SCAV_FAC ! Wet Scavenging Scale Factor CHARACTER( 16 ) :: AERO_SURR ! Aerosol Module Surrogate CHARACTER( 16 ) :: CLOUD_SURR ! Cloud Chemistry Surrogate CHARACTER( 16 ) :: TRNS_FLAG ! Do Transport (ADV + DIFF)? CHARACTER( 16 ) :: DDEP_FLAG ! Output Dry Deposition Velocities CHARACTER( 16 ) :: WDEP_FLAG ! Output Wet Scavenging Fluxes CHARACTER( 16 ) :: CONC_FLAG ! Output Concentration END TYPE STM_SPC_DATA_1 ! Equivalent to the Namelist Registry Format for Aerosols TYPE STM_SPC_DATA_2 CHARACTER( 16 ) :: SPECIES_NAME ! CMAQ Species Name REAL :: MOLWT ! g mol-1 CHARACTER( 16 ) :: IC_SURR ! IC Surrogate REAL :: IC_FAC ! IC Scale Factor CHARACTER( 16 ) :: BC_SURR ! BC Surrogate REAL :: BC_FAC ! BC Scale Factor CHARACTER( 16 ) :: DEPV_SURR ! Dry Deposition Surrogate REAL :: DEPV_FAC ! Dry Deposition Scale Factor CHARACTER( 16 ) :: SCAV_SURR ! Wet Scavenging Surrogate REAL :: SCAV_FAC ! Wet Scavenging Scale Factor CHARACTER( 16 ) :: CLOUD_SURR ! Cloud Chemistry Surrogate CHARACTER( 16 ) :: TRNS_FLAG ! Do Transport? CHARACTER( 16 ) :: DDEP_FLAG ! Output Dry Deposition Velocities CHARACTER( 16 ) :: WDEP_FLAG ! Output Wet Scavenging Fluxes CHARACTER( 16 ) :: CONC_FLAG ! Output Concentration END TYPE STM_SPC_DATA_2 TYPE (STM_SPC_DATA_2), Parameter :: STM_AE_SPECIES_DATA(N_STM_AE_SPC) = (/ C DRYDEP SURR DDEP C ICFAC BCFAC | TRNS | WDEP C SPECIES MW IC | BC | | FAC WET-SCAV SURR FAC AE2AQ SURR | | | CONC C ------------ ---- ------- -+- ------- -+- ----+--- --- --------------- --- ------------------ + + + = & STM_SPC_DATA_2('ASO4AQH2O2J',96.0,'' ,0.0,'' ,0.0,'VMASSJ',1.0,'TRACER_ACCUM' ,1.0,'SO4_AQH2O2_ACCUM',Y,Y,Y,Y), & STM_SPC_DATA_2('ASO4AQO3J' ,96.0,'' ,0.0,'' ,0.0,'VMASSJ',1.0,'TRACER_ACCUM' ,1.0,'SO4_AQO3_ACCUM' ,Y,Y,Y,Y), & STM_SPC_DATA_2('ASO4AQFEMNJ',96.0,'' ,0.0,'' ,0.0,'VMASSJ',1.0,'TRACER_ACCUM' ,1.0,'SO4_AQFEMN_ACCUM',Y,Y,Y,Y), & STM_SPC_DATA_2('ASO4AQMHPJ' ,96.0,'' ,0.0,'' ,0.0,'VMASSJ',1.0,'TRACER_ACCUM' ,1.0,'SO4_AQMHP_ACCUM' ,Y,Y,Y,Y), & STM_SPC_DATA_2('ASO4AQPAAJ' ,96.0,'' ,0.0,'' ,0.0,'VMASSJ',1.0,'TRACER_ACCUM' ,1.0,'SO4_AQPAA_ACCUM' ,Y,Y,Y,Y), & STM_SPC_DATA_2('ASO4GASJ' ,96.0,'' ,0.0,'' ,0.0,'VMASSJ',1.0,'TRACER_ACCUM' ,1.0,'TRACER_ACCUM' ,Y,Y,Y,Y), & STM_SPC_DATA_2('ASO4EMISJ' ,96.0,'' ,0.0,'' ,0.0,'VMASSJ',1.0,'TRACER_ACCUM' ,1.0,'TRACER_ACCUM' ,Y,Y,Y,Y), & STM_SPC_DATA_2('ASO4ICBCJ' ,96.0,'ASO4J',1.0,'ASO4J',1.0,'VMASSJ',1.0,'TRACER_ACCUM' ,1.0,'TRACER_ACCUM' ,Y,Y,Y,Y), & STM_SPC_DATA_2('ASO4GASI' ,96.0,'' ,0.0,'' ,0.0,'VMASSI',1.0,'TRACER_AITKEN',1.0,'TRACER_AITKEN' ,Y,Y,Y,Y), & STM_SPC_DATA_2('ASO4EMISI' ,96.0,'' ,0.0,'' ,0.0,'VMASSI',1.0,'TRACER_AITKEN',1.0,'TRACER_AITKEN' ,Y,Y,Y,Y), & STM_SPC_DATA_2('ASO4ICBCI' ,96.0,'ASO4I',1.0,'ASO4I',1.0,'VMASSI',1.0,'TRACER_AITKEN',1.0,'TRACER_AITKEN' ,Y,Y,Y,Y), & STM_SPC_DATA_2('ASO4GASK' ,96.0,'' ,0.0,'' ,0.0,'VMASSC',1.0,'TRACER_COARSE',1.0,'TRACER_COARSE' ,Y,Y,Y,Y), & STM_SPC_DATA_2('ASO4EMISK' ,96.0,'' ,0.0,'' ,0.0,'VMASSC',1.0,'TRACER_COARSE',1.0,'TRACER_COARSE' ,Y,Y,Y,Y), & STM_SPC_DATA_2('ASO4ICBCK' ,96.0,'ASO4K',1.0,'ASO4K',1.0,'VMASSC',1.0,'TRACER_COARSE',1.0,'TRACER_COARSE' ,Y,Y,Y,Y) & /) TYPE (STM_SPC_DATA_2), Parameter :: STM_OAE_SPECIES_DATA(N_STM_OAE_SPC) = ( / C DRYDEP SURR DDEP C ICFAC BCFAC | TRNS | WDEP C SPECIES MW IC | BC | | FAC WET-SCAV SURR FAC AE2AQ SURR | | | CONC C ------------ ---- -- -+- -- -+- ----+--- --- -------------- --- -------------- + + + + & STM_SPC_DATA_2('OSO4J' ,96.0,'',0.0,'',0.0,'VMASSJ',1.0,'TRACER_ACCUM',1.0,'TRACER_ACCUM',Y,Y,Y,Y), & STM_SPC_DATA_2('OSO4AQH2O2J',96.0,'',0.0,'',0.0,'VMASSJ',1.0,'TRACER_ACCUM',1.0,'TRACER_ACCUM',Y,Y,Y,Y), & STM_SPC_DATA_2('OSO4AQO3J' ,96.0,'',0.0,'',0.0,'VMASSJ',1.0,'TRACER_ACCUM',1.0,'TRACER_ACCUM',Y,Y,Y,Y), & STM_SPC_DATA_2('OSO4AQFEMNJ',96.0,'',0.0,'',0.0,'VMASSJ',1.0,'TRACER_ACCUM',1.0,'TRACER_ACCUM',Y,Y,Y,Y), & STM_SPC_DATA_2('OSO4AQMHPJ' ,96.0,'',0.0,'',0.0,'VMASSJ',1.0,'TRACER_ACCUM',1.0,'TRACER_ACCUM',Y,Y,Y,Y), & STM_SPC_DATA_2('OSO4AQPAAJ' ,96.0,'',0.0,'',0.0,'VMASSJ',1.0,'TRACER_ACCUM',1.0,'TRACER_ACCUM',Y,Y,Y,Y), & STM_SPC_DATA_2('OSO4GASJ' ,96.0,'',0.0,'',0.0,'VMASSJ',1.0,'TRACER_ACCUM',1.0,'TRACER_ACCUM',Y,Y,Y,Y), & STM_SPC_DATA_2('OSO4EMISJ' ,96.0,'',0.0,'',0.0,'VMASSJ',1.0,'TRACER_ACCUM',1.0,'TRACER_ACCUM',Y,Y,Y,Y), & STM_SPC_DATA_2('OSO4ICBCJ' ,96.0,'',0.0,'',0.0,'VMASSJ',1.0,'TRACER_ACCUM',1.0,'TRACER_ACCUM',Y,Y,Y,Y) & /) TYPE (STM_SPC_DATA_1), Parameter :: STM_NR_SPECIES_DATA(N_STM_NR_SPC) = (/ C DRYDEP DDEP C ICFAC BCFAC SURR WET-SCAV TRNS | WDEP C SPECIES MW IC | BC | | FAC SURR FAC AE2AQ SURR NR2AE SURR | | | CONC C ---------- ---- ------ -+- ------ -+- ----+---- --- ------- --- ----------- ------------ + + + + & STM_SPC_DATA_1('SULF_ICBC',98.0,'SULF',1.0,'SULF',1.0,'VD_SULF',1.0,'H2SO4',1.0,'SULF_ICBC','H2SO4_ICBC',Y,Y,Y,Y) & /) C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: End Module stm_vars ================================================ FILE: CCTM/src/twoway/twoway_aqprep.F90 ================================================ SUBROUTINE aqprep (grid, config_flags, t_phy_wrf, p_phy_wrf, rho_wrf, & z_at_w_wrf, dz8w_wrf, p8w_wrf, t8w_wrf, & numlu, release_version, & wrf_cmaq_option, wrf_cmaq_freq, & ids, ide, jds, jde, kds, kde, & ims, ime, jms, jme, kms, kme, & its, ite, jts, jte, kts, kte, & qv_curr_wrf, & ! optional qc_curr_wrf, & ! optional qr_curr_wrf, & ! optional qi_curr_wrf, & ! optional qs_curr_wrf, & ! optional qg_curr_wrf ) ! optional !=============================================================================== ! Name: AQ Prep ! Purpose: Prepare meteorological fields for air quality simulation, including ! meteorologically dependent emissions and chemical transport ! modeling. ! Notes: Some algorithms taken from the Community Multiscale Air Quality ! (CMAQ) Modeling System's Meteorology-Chemistry Interface Processor. ! Revised: 06 Apr 2007 Original version. (T. Otte) ! 10 Apr 2007 (David Wong) ! -- define header_constant_data_record in header_data_module to ! capture header constant info for met. and grid buffered files. ! -- redefine ioffset and joffset which are the distance, in number ! of grid cells, between the wrf and cmaq domain at the lower ! left corner. Note: ioffset >= 5 and joffset >= 5 ! 11 Aug 2011 (David Wong) ! -- updated to comply with CMAQ 5.0 ! 10 Jun 2013 (David Wong) ! -- updated to NLCD40 ! 24 Sep 2013 (David Wong) ! -- consolidated x- and y-cent calculation ! 17 Jan 2014 (David Wong) ! -- refomulated the xorig and yorig calculation regardless of odd ! or even number of grid cells ! 10 Mar 2014 (David Wong) ! -- fixed bug in the refomulated the xorig and yorig calculation ! 14 May 2014 (David Wong) ! -- made a distinction between USGS 24 and USGS 33 ! 21 Jul 2014 (David Wong) ! -- add new LU type: MODIFIED_IGBP_MODIS_NOAH and made a distinction ! between NLCD, NLCD50 and NLCD40 ! 25 Sep 2015 (David Wong ! -- replaced SUBST_MODULES with SE_MOdULES ! 14 Dec 2015 (David Wong) ! -- added assignment mminlu ! -- updated how ioapi_header%vglvs was set w.r.t. znw's dimension ! change ! 28 Dec 2015 (David Wong) ! -- added optional PV calculation which is dictated by an environment ! variable CTM_PVO3 with default .false. value ! 11 Jan 2016 (David Wong) ! -- removed mminlu ! -- resized the first dimension of the following arrays: ! wrf_cmaq_c_send_to, ! wrf_cmaq_c_recv_from, ! wrf_cmaq_c_send_index_g, ! wrf_cmaq_c_send_index_l, ! wrf_cmaq_c_recv_index_g, ! wrf_cmaq_c_recv_index_l, ! wrf_cmaq_d_send_to, ! wrf_cmaq_d_recv_from, ! wrf_cmaq_d_send_index_g, ! wrf_cmaq_d_send_index_l, ! wrf_cmaq_d_recv_index_g, ! wrf_cmaq_d_recv_index_l, ! wrf_cmaq_ce_send_to, ! wrf_cmaq_ce_recv_from, ! wrf_cmaq_ce_send_index_g, ! wrf_cmaq_ce_send_index_l, ! wrf_cmaq_ce_recv_index_g, ! wrf_cmaq_ce_recv_index_l, ! wrf_cmaq_de_send_to, ! wrf_cmaq_de_recv_from, ! wrf_cmaq_de_send_index_g, ! wrf_cmaq_de_send_index_l, ! wrf_cmaq_de_recv_index_g, ! wrf_cmaq_de_recv_index_l ! 26 Feb 2016 (David Wong) ! -- transformed the call pio_re_init to pio_init as routines ! pio_re_init and pio_init have been merged into one pio_init ! 07 Apr 2016 (David Wong) ! -- reversed the decision of removing mminlu ! -- removed obsolete NLCD50 ! -- set lwater = 17 and lice = 15 for NLCD40 ! 05 May 2016 (David Wong) ! -- Calculated and output the rainfall (convective and ! non-convect) information according to the output file time step ! rather than the two-way model time step ! 30 Aug 2016 (David Wong) ! -- fixed a bug in outputing MET_CRO_2D physical file ! 11 Jan 2017 (David Wong) ! -- fixed a bug to handle simulation with convective scheme or not ! 11 Jan 2018 (David Wong) ! -- Added convective_scheme to set rainc accordingly ! 31 Jan 2019 (David Wong) ! -- adopted the idea to process all twoway related environment ! variables in one place ! 04 Feb 2019 (Tanya Spero) ! -- updated Jacobian calculation for hybrid vertical coordinate ! 04 Mar 2019 (Rob G. David Wong) ! -- logic for WRF version, hybrid coord, PX variables ! -- updated to work with PX LSM changed in WRFV4.1 that has ! additional soil texture info and lai name change to lai_px ! 01 Aug 2019 (David Wong) ! -- made nprocs available for CMAQ ! -- made two new variables, UWIND and VWIND as the wind component ! on the mass point ! 26 Jul 2022 (David Wong) ! -- Added a prefix tw_ for these variables: sc, ec, sr, er sc_d, ec_d, ! sr_d, and er_d to avoid naming conflicts ! 16 Mar 2023 (David Wong) ! -- fixed a bug in creating u and v components ! 30 Apr 2024 (Tanya Spero) ! -- Changed constraint on XORIG and YORIG for Lambert conformal ! projections. Original constraint of 500 meters introduced an ! error in calculating the lower-left corner that is more ! noticeable at fine resolutions. Now using a constraint of ! 5 meters to allow for "neater" XORIG and YORIG values across ! compilers. !=============================================================================== USE module_domain ! WRF module USE module_model_constants ! WRF module USE module_configure ! WRF module USE module_gfs_physcons, only : con_rerth ! WRF module USE module_state_description, only : PXLSMSCHEME ! WRF module USE twoway_util_module USE twoway_header_data_module USE twoway_met_param_module USE twoway_data_module USE HGRD_DEFN USE SE_MODULES use se_comm_info_ext use utilio_defn IMPLICIT NONE INCLUDE SUBST_CONST INCLUDE SUBST_MPI TYPE(domain), INTENT(IN) :: grid TYPE (grid_config_rec_type), INTENT(IN) :: config_flags REAL, INTENT(IN) :: t_phy_wrf ( ims:ime, kms:kme, jms:jme ) REAL, INTENT(IN) :: p_phy_wrf ( ims:ime, kms:kme, jms:jme ) REAL, INTENT(IN) :: rho_wrf ( ims:ime, kms:kme, jms:jme ) REAL, INTENT(IN) :: z_at_w_wrf ( ims:ime, kms:kme, jms:jme ) REAL, INTENT(IN) :: dz8w_wrf ( ims:ime, kms:kme, jms:jme ) REAL, INTENT(IN) :: p8w_wrf ( ims:ime, kms:kme, jms:jme ) REAL, INTENT(IN) :: t8w_wrf ( ims:ime, kms:kme, jms:jme ) REAL, INTENT(IN), OPTIONAL :: qv_curr_wrf ( ims:ime, kms:kme, jms:jme ) REAL, INTENT(IN), OPTIONAL :: qc_curr_wrf ( ims:ime, kms:kme, jms:jme ) REAL, INTENT(IN), OPTIONAL :: qr_curr_wrf ( ims:ime, kms:kme, jms:jme ) REAL, INTENT(IN), OPTIONAL :: qi_curr_wrf ( ims:ime, kms:kme, jms:jme ) REAL, INTENT(IN), OPTIONAL :: qs_curr_wrf ( ims:ime, kms:kme, jms:jme ) REAL, INTENT(IN), OPTIONAL :: qg_curr_wrf ( ims:ime, kms:kme, jms:jme ) INTEGER, INTENT(IN) :: numlu CHARACTER(LEN=*), INTENT(IN) :: release_version INTEGER, INTENT(IN) :: wrf_cmaq_option ! WRF-CMAQ coupled model option ! 0 = only run WRF ! 1 = run WRF-CMAQ coupled model to produce ! GRID and MET files only ! 2 = run WRF-CMAQ coupled model w/o producing ! GRID and MET files ! 3 = run WRF-CMAQ coupled model w producing ! GRID and MET files INTEGER, INTENT(IN) :: wrf_cmaq_freq INTEGER, INTENT(IN) :: ids, ide, jds, jde, kds, kde INTEGER, INTENT(IN) :: ims, ime, jms, jme, kms, kme INTEGER, INTENT(IN) :: its, ite, jts, jte, kts, kte LOGICAL, PARAMETER :: def_false = .false. LOGICAL, SAVE :: first = .TRUE. INTEGER, SAVE :: nlays, nvars INTEGER, SAVE :: tstep = 0 INTEGER :: ii, jj, kk, ll, iim1, jjm1, v INTEGER :: c, r, lcm1, lrm1, kp1 INTEGER :: ioffset, joffset INTEGER :: stat, temp REAL, PARAMETER :: gravi = 1 / g REAL :: tf, qf, densf INTEGER :: loc_wrf_c_domain_map(3, 2) CHARACTER( 2 ) :: COLROW = 'CR' ! col/row arg list order for pio_init CHARACTER (LEN = 16), PARAMETER :: pname = 'aq_prep ' CHARACTER (LEN = 16) :: fname, pfname ! Calc for PV REAL, SAVE, ALLOCATABLE :: xuu_s ( : , : , : ) REAL, SAVE, ALLOCATABLE :: xvv_t ( : , : , : ) REAL, SAVE, ALLOCATABLE :: xuu_d ( : , : , : ) REAL, SAVE, ALLOCATABLE :: xvv_d ( : , : , : ) REAL, SAVE, ALLOCATABLE :: xtheta ( : , : , : ) REAL, SAVE, ALLOCATABLE :: xmapc ( : , : ) REAL, SAVE, ALLOCATABLE :: xmapc2 ( : , : ) REAL, SAVE, ALLOCATABLE :: xcorl ( : , : ) REAL, SAVE, ALLOCATABLE :: dtds ( : , : ) REAL, SAVE, ALLOCATABLE :: dtdx ( : , : ) REAL, SAVE, ALLOCATABLE :: dtdy ( : , : ) REAL, SAVE, ALLOCATABLE :: duds ( : , : ) REAL, SAVE, ALLOCATABLE :: dvds ( : , : ) REAL :: f0 REAL :: f1 REAL :: f2 INTEGER :: k INTEGER :: k0 INTEGER :: k1 INTEGER :: k2 REAL, SAVE, ALLOCATABLE :: sigma ( : ) REAL :: t00 REAL :: t1 REAL :: t2 REAL :: t3 INTEGER :: rp1 INTEGER :: cp1 REAL :: vor REAL :: dsx REAL :: dsy REAL :: dx REAL :: dy ! metcro3d temporary storage REAL, ALLOCATABLE, SAVE :: densq ( : , : , : ) REAL, ALLOCATABLE, SAVE :: zf ( : , : , : ) REAL, ALLOCATABLE, SAVE :: dzf ( : , : , : ) REAL, ALLOCATABLE, SAVE :: presf ( : , : , : ) REAL :: muhybf ! for hybrid vertical coord REAL :: muhybh ! for hybrid vertical coord ! metdot3d temporary storage REAL, ALLOCATABLE, SAVE :: jdenm ( : , : ) ! metcro2d temporary storage REAL, ALLOCATABLE, SAVE :: u10 ( : , : ) REAL, ALLOCATABLE, SAVE :: v10 ( : , : ) REAL, ALLOCATABLE, SAVE :: albedo ( : , : ) real, allocatable, save :: gridcro2d_data_wrf (:,:,:) real, allocatable, save :: griddot2d_data_wrf (:,:) real, allocatable, save :: metcro3d_data_wrf (:,:,:,:) real, allocatable, save :: metdot3d_data_wrf (:,:,:,:) real, allocatable, save :: metcro2d_data_wrf (:,:,:) real, allocatable :: gridcro2d_data_cmaq (:,:,:) real, allocatable :: griddot2d_data_cmaq (:,:) real, allocatable, save :: metcro3d_data_cmaq (:,:,:,:) real, allocatable, save :: metdot3d_data_cmaq (:,:,:,:) real, allocatable, save :: metcro2d_data_cmaq (:,:,:) ! real, allocatable, save :: previous_rain_rec(:,:,:) real, allocatable, save :: temp_rainnc(:,:) real, allocatable, save :: temp_rainc(:,:) integer :: east_adjustment, north_adjustment integer, save :: jdate, jtime, sdate, stime, loc_logdev, nstep integer :: wrf_halo_x_l, wrf_halo_x_r integer :: wrf_halo_y_l, wrf_halo_y_u logical, save :: write_to_physical_file, & north_bdy_pe, south_bdy_pe, east_bdy_pe, west_bdy_pe integer, save :: file_time_step_in_sec integer :: i, j, status(MPI_STATUS_SIZE) character (len = 50) :: myfmt ! character (len = 4), save :: pe_str logical, parameter :: debug = .true. integer, save :: cmaq_tstep TYPE(WRFU_Time) :: current_wrf_time integer :: rc character (len = 2), save :: data_ori = 'cr' integer, save :: tsc_c, tec_c, tsr_c, ter_c, & tsc_d, tec_d, tsr_d, ter_d, & tsc_e, tec_e, tsr_e, ter_e integer, save :: lwater, lice real, allocatable :: land_use_index(:,:) character(len=10) :: wrf_version logical :: hybrid_vert, px_modis real :: wrfv logical, save :: file_opened = .false. interface SUBROUTINE bcldprc_ak (wrf_ncols, wrf_nrows, nlays, & zf, ta, pres, qv, pbl, dzf, presf, & cfrac, cldb, cldt, wbar) INTEGER, INTENT(IN) :: wrf_ncols INTEGER, INTENT(IN) :: wrf_nrows INTEGER, INTENT(IN) :: nlays REAL, INTENT(IN) :: zf ( : , : , : ) REAL, INTENT(IN) :: ta ( : , : , : ) REAL, INTENT(IN) :: pres ( : , : , : ) REAL, INTENT(IN) :: qv ( : , : , : ) REAL, INTENT(IN) :: pbl ( : , : ) REAL, INTENT(IN) :: dzf ( : , : , : ) REAL, INTENT(IN) :: presf ( : , : , : ) REAL, INTENT(OUT) :: cfrac ( : , : ) REAL, INTENT(OUT) :: cldb ( : , : ) REAL, INTENT(OUT) :: cldt ( : , : ) REAL, INTENT(OUT) :: wbar ( : , : ) END SUBROUTINE bcldprc_ak end interface !------------------------------------------------------------------------------- ! Set switches/logic that rely on WRF versions and/or namelist settings hybrid_vert = .false. px_modis = .false. wrf_version = TRIM(release_version) read (wrf_version(2:4),'(F3.1)') wrfv ! Check version for hybrid coord configuration option IF(wrfv >= 3.9) THEN if (config_flags%hybrid_opt == 2) then hybrid_vert = .true. end if END IF ! Check version for WRFV4.1 PX MODIS and SOIL implementation IF(wrfv >= 4.1) THEN if (config_flags%sf_surface_physics == 7) then px_modis = .true. end if END IF print *, 'WRF Version ', wrf_version print *, 'WRF Version ', wrfv print *, 'Hybrid option number ', config_flags%hybrid_opt print *, 'Hybrid vertical coordinate (T/F) ', hybrid_vert print *, 'PX MODIS (T/F)', px_modis if (config_flags%cu_physics == 0) then convective_scheme = .false. else convective_scheme = .true. end if !------------------------------------------------------------------------------- !------------------------------------------------------------------------------- ! Define horizontal bounds for CMAQ processing. ! ! Note: May want to have a set of four input variables that define the ! AQ window: IOFFSET, JOFFSET, NCOLS, NROWS. Define SC, EC, SR, and ER ! from those variables and the horizontal dimensions of the WRF domain. ! ! Note: Not sure how lateral boundary cells (formerly found in METBDY3D) are ! handled in indexing and in two-way system yet. !------------------------------------------------------------------------------- ! call WRFU_ClockGet (grid%domain_clock, CurrTime=current_wrf_time, rc=rc ) tstep = tstep + 1 IF ( first ) THEN CALL TWOWAY_INIT_ENV_VARS call mpi_comm_rank (mpi_comm_world, twoway_mype, stat) wrf_halo_x_l = abs(its - ims) wrf_halo_x_r = abs(ite - ime) wrf_halo_y_l = abs(jts - jms) wrf_halo_y_u = abs(jte - jme) nprocs = grid%nproc_x * grid%nproc_y twoway_nprocs = nprocs north_adjustment = 0 if (twoway_mype >= (twoway_nprocs - grid%nproc_x)) then north_bdy_pe = .true. north_adjustment = -1 else north_bdy_pe = .false. end if if (twoway_mype < grid%nproc_x) then south_bdy_pe = .true. else south_bdy_pe = .false. end if east_adjustment = 0 if (mod(twoway_mype, grid%nproc_x) == (grid%nproc_x - 1)) then east_bdy_pe = .true. east_adjustment = -1 else east_bdy_pe = .false. end if if (mod(twoway_mype, grid%nproc_x) == 0) then west_bdy_pe = .true. else west_bdy_pe = .false. end if allocate (wrf_c_domain_map(3, 2, 0:twoway_nprocs-1), cmaq_c_domain_map(3, 2, 0:twoway_nprocs-1), & wrf_d_domain_map(3, 2, 0:twoway_nprocs-1), cmaq_d_domain_map(3, 2, 0:twoway_nprocs-1), & cmaq_ce_domain_map(3, 2, 0:twoway_nprocs-1), & cmaq_de_domain_map(3, 2, 0:twoway_nprocs-1), stat=stat) if (stat .ne. 0) then print *, ' Error: Allocating domain_maps' stop end if loc_wrf_c_domain_map(1, 1) = its loc_wrf_c_domain_map(2, 1) = ite + east_adjustment loc_wrf_c_domain_map(3, 1) = ite - its + 1 loc_wrf_c_domain_map(1, 2) = jts loc_wrf_c_domain_map(2, 2) = jte + north_adjustment loc_wrf_c_domain_map(3, 2) = jte - jts + 1 call mpi_allgather (loc_wrf_c_domain_map, 6, mpi_integer, wrf_c_domain_map, 6, & mpi_integer, mpi_comm_world, stat) tw_sc = ims + wrf_halo_x_l tw_ec = ime - wrf_halo_x_r + east_adjustment tw_sr = jms + wrf_halo_y_l tw_er = jme - wrf_halo_y_u + north_adjustment tw_sc_d = tw_sc tw_ec_d = tw_ec + 1 tw_sr_d = tw_sr tw_er_d = tw_er + 1 wrf_c_ncols = ime - ims + 1 - wrf_halo_x_l - wrf_halo_x_r + east_adjustment wrf_c_nrows = jme - jms + 1 - wrf_halo_y_l - wrf_halo_y_u + north_adjustment wrf_d_ncols = wrf_c_ncols + 1 wrf_d_nrows = wrf_c_nrows + 1 nlays = kme - 1 ! wrf is using layer, znw contains level values (D. Wong 5/22/07) wrf_c_col_dim = ide - ids + 1 wrf_c_row_dim = jde - jds + 1 cmaq_c_col_dim = envint ('CMAQ_COL_DIM', ' ', wrf_c_col_dim-10, stat) cmaq_c_row_dim = envint ('CMAQ_ROW_DIM', ' ', wrf_c_row_dim-10, stat) loc_logdev = init3 () stime = cmaq_stime sdate = cmaq_sdate cmaq_tstep = sec2time(grid%time_step*wrf_cmaq_freq) jdate = sdate jtime = stime nstep = ((grid%run_days * 24 + grid%run_hours) * 3600 + grid%run_minutes * 60 + grid%run_seconds) / & (grid%time_step * wrf_cmaq_freq) !------------------------------------------------------------------------------- ! Allocate arrays for CCTM...to mimic MCIP output arrays. !------------------------------------------------------------------------------- ! Fields from METCRO3D ALLOCATE ( densq (wrf_c_ncols, wrf_c_nrows, nlays) ) ! new output variable ALLOCATE ( zf (wrf_c_ncols, wrf_c_nrows, 0:nlays) ) ALLOCATE ( dzf (wrf_c_ncols, wrf_c_nrows, nlays) ) ! used in calcs, not output ALLOCATE ( presf (wrf_c_ncols, wrf_c_nrows, nlays) ) ! used in calcs, not output ! Fields from METDOT3D ALLOCATE ( jdenm (wrf_d_ncols, wrf_d_nrows) ) ! Fields from METCRO2D. ALLOCATE ( u10 (wrf_c_ncols, wrf_c_nrows) ) ALLOCATE ( v10 (wrf_c_ncols, wrf_c_nrows) ) ALLOCATE ( albedo (wrf_c_ncols, wrf_c_nrows) ) !------------------------------------------------------------------------------- ! Fill M3IO header variables. ! ! Note: The M3IO header variables are currently local to AQ_HEADER, but they ! should fill variables that are available in COORD.EXT (or whatever ! replaced it). !------------------------------------------------------------------------------- npcol = grid%nproc_x nprow = grid%nproc_y se_twoway_npcol = npcol se_twoway_nprow = nprow twoway_nprocs = npcol * nprow wrf_d_domain_map(1,:,:) = wrf_c_domain_map(1,:,:) wrf_d_domain_map(2,:,:) = wrf_c_domain_map(2,:,:) + 1 wrf_d_domain_map(3,:,:) = wrf_c_domain_map(3,:,:) + 1 ! cmaq cross point domain call compute_decomp (cmaq_c_col_dim, npcol, nprow, 'cmaq', 'c', cmaq_c_domain_map(:,1,:), delta_x) call compute_decomp (cmaq_c_row_dim, nprow, npcol, 'cmaq', 'r', cmaq_c_domain_map(:,2,:), delta_y) ! cmaq dot point domain cmaq_d_domain_map(1,:,:) = cmaq_c_domain_map(1,:,:) cmaq_d_domain_map(2,:,:) = cmaq_c_domain_map(2,:,:) + 1 cmaq_d_domain_map(3,:,:) = cmaq_c_domain_map(3,:,:) + 1 ! cmaq cross point extended domain cmaq_ce_domain_map(1,:,:) = cmaq_c_domain_map(1,:,:) - 1 cmaq_ce_domain_map(2,:,:) = cmaq_c_domain_map(2,:,:) + 1 cmaq_ce_domain_map(3,:,:) = cmaq_c_domain_map(3,:,:) + 2 ! cmaq dot point extended domain cmaq_de_domain_map(1,:,:) = cmaq_d_domain_map(1,:,:) - 1 cmaq_de_domain_map(2,:,:) = cmaq_d_domain_map(2,:,:) + 1 cmaq_de_domain_map(3,:,:) = cmaq_d_domain_map(3,:,:) + 2 cmaq_c_ncols = cmaq_c_domain_map(3, 1, twoway_mype) cmaq_c_nrows = cmaq_c_domain_map(3, 2, twoway_mype) cmaq_d_ncols = cmaq_d_domain_map(3, 1, twoway_mype) cmaq_d_nrows = cmaq_d_domain_map(3, 2, twoway_mype) ! the reason for twoway_nprocs*3 is in the worst scenario, the entire cmaq domain is inside one wrf processor domain allocate (wrf_cmaq_c_send_to(0:9, 0:twoway_nprocs-1), & wrf_cmaq_c_recv_from(0:9, 0:twoway_nprocs-1), & wrf_cmaq_c_send_index_g(9*3, 2, 0:twoway_nprocs-1), & ! starting and ending dimension, dimenionality wrf_cmaq_c_send_index_l(9*3, 2, 0:twoway_nprocs-1), & ! starting and ending dimension, dimenionality wrf_cmaq_c_recv_index_g(9*3, 2, 0:twoway_nprocs-1), & ! starting and ending dimension, dimenionality wrf_cmaq_c_recv_index_l(9*3, 2, 0:twoway_nprocs-1), & ! starting and ending dimension, dimenionality wrf_cmaq_d_send_to(0:9, 0:twoway_nprocs-1), & wrf_cmaq_d_recv_from(0:9, 0:twoway_nprocs-1), & wrf_cmaq_d_send_index_g(9*3, 2, 0:twoway_nprocs-1), & ! starting and ending dimension, dimenionality wrf_cmaq_d_send_index_l(9*3, 2, 0:twoway_nprocs-1), & ! starting and ending dimension, dimenionality wrf_cmaq_d_recv_index_g(9*3, 2, 0:twoway_nprocs-1), & ! starting and ending dimension, dimenionality wrf_cmaq_d_recv_index_l(9*3, 2, 0:twoway_nprocs-1), & ! starting and ending dimension, dimenionality wrf_cmaq_ce_send_to(0:9, 0:twoway_nprocs-1), & wrf_cmaq_ce_recv_from(0:9, 0:twoway_nprocs-1), & wrf_cmaq_ce_send_index_g(9*3, 2, 0:twoway_nprocs-1), & ! starting and ending dimension, dimenionality wrf_cmaq_ce_send_index_l(9*3, 2, 0:twoway_nprocs-1), & ! starting and ending dimension, dimenionality wrf_cmaq_ce_recv_index_g(9*3, 2, 0:twoway_nprocs-1), & ! starting and ending dimension, dimenionality wrf_cmaq_ce_recv_index_l(9*3, 2, 0:twoway_nprocs-1), & ! starting and ending dimension, dimenionality wrf_cmaq_de_send_to(0:9, 0:twoway_nprocs-1), & wrf_cmaq_de_recv_from(0:9, 0:twoway_nprocs-1), & wrf_cmaq_de_send_index_g(9*3, 2, 0:twoway_nprocs-1), & ! starting and ending dimension, dimenionality wrf_cmaq_de_send_index_l(9*3, 2, 0:twoway_nprocs-1), & ! starting and ending dimension, dimenionality wrf_cmaq_de_recv_index_g(9*3, 2, 0:twoway_nprocs-1), & ! starting and ending dimension, dimenionality wrf_cmaq_de_recv_index_l(9*3, 2, 0:twoway_nprocs-1), & ! starting and ending dimension, dimenionality stat=stat) if (stat .ne. 0) then print *, ' Error: Allocating communication indices arrays' stop end if call compute_comm_indices (twoway_nprocs, wrf_c_domain_map, cmaq_c_domain_map, & wrf_cmaq_c_send_to, wrf_cmaq_c_recv_from, & wrf_cmaq_c_send_index_g, wrf_cmaq_c_send_index_l, & wrf_cmaq_c_recv_index_g, wrf_cmaq_c_recv_index_l ) call compute_comm_indices (twoway_nprocs, wrf_d_domain_map, cmaq_d_domain_map, & wrf_cmaq_d_send_to, wrf_cmaq_d_recv_from, & wrf_cmaq_d_send_index_g, wrf_cmaq_d_send_index_l, & wrf_cmaq_d_recv_index_g, wrf_cmaq_d_recv_index_l ) call compute_comm_indices (twoway_nprocs, wrf_c_domain_map, cmaq_ce_domain_map, & wrf_cmaq_ce_send_to, wrf_cmaq_ce_recv_from, & wrf_cmaq_ce_send_index_g, wrf_cmaq_ce_send_index_l, & wrf_cmaq_ce_recv_index_g, wrf_cmaq_ce_recv_index_l ) call compute_comm_indices (twoway_nprocs, wrf_d_domain_map, cmaq_de_domain_map, & wrf_cmaq_de_send_to, wrf_cmaq_de_recv_from, & wrf_cmaq_de_send_index_g, wrf_cmaq_de_send_index_l, & wrf_cmaq_de_recv_index_g, wrf_cmaq_de_recv_index_l ) CALL aq_header (cmaq_c_ncols, cmaq_c_nrows, wrf_c_col_dim, wrf_c_row_dim, nlays, & sdate, stime, grid%dx, grid%dy, delta_x, delta_y, & config_flags%map_proj, config_flags%truelat1, config_flags%truelat2, & config_flags%cen_lat, config_flags%cen_lon, config_flags%stand_lon, & grid%p_top, grid%znw, grid%xlat(tw_sc,tw_sr), grid%xlong(tw_sc,tw_sr), & wrf_lc_ref_lat) CALL setup_griddesc_file (cmaq_c_col_dim, cmaq_c_row_dim) if ((wrf_cmaq_option == 1) .or. (wrf_cmaq_option == 3)) then file_time_step_in_sec = time2sec (file_time_step) if (.not. pio_init (colrow, cmaq_c_col_dim, cmaq_c_row_dim, & nlays, 1, cmaq_c_ncols, cmaq_c_nrows, & npcol, nprow, twoway_nprocs, twoway_mype, wflg=.false.) ) then print *, ' Error: in invoking pio_init' stop end if end if if (config_flags%cu_physics == 0) then wrf_convective_scheme = .false. else wrf_convective_scheme = .true. end if !------------------------------------------------------------------------------- ! Fill time-independent arrays for GRIDCRO2D and GRIDDOT2D. ! only need to do this once per run, not each step !------------------------------------------------------------------------------- if (wrf_cmaq_option .gt. 1) then fname = 'GRID_CRO_2D' end if if ((wrf_cmaq_option == 1) .or. (wrf_cmaq_option == 3)) then pfname = 'PGRID_CRO_2D' end if if (.not. file_opened) then call aq_set_ioapi_header ('C', cmaq_c_ncols, cmaq_c_nrows) mxrec3d = 1 nlays3d = 1 vname3d(1:n_gridcro2d_var) = gridcro2d_vlist units3d(1:n_gridcro2d_var) = gridcro2d_units num_land_cat = config_flags%num_land_cat do v = 1, numlu write (vname3d(v+n_gridcro2d_var), '(a7, i2.2)') 'LUFRAC_', v units3d(v+n_gridcro2d_var) = '1' end do ! this is particular for m3dry LUFRAC_01 units3d(1+n_gridcro2d_var) = '1' nvars3d = numlu+n_gridcro2d_var tstep3d = 0 vtype3d = ioapi_header%vtype allocate ( gridcro2d_data_wrf (wrf_c_ncols, wrf_c_nrows, nvars3d), stat=stat) allocate ( gridcro2d_data_cmaq (cmaq_c_ncols, cmaq_c_nrows, nvars3d), stat=stat) if (wrf_cmaq_option .gt. 1) then if ( .not. open3 (fname, FSRDWR3, pname) ) then print *, ' Error: Could not open file ', fname, 'for update' if ( .not. open3 (fname, FSNEW3, pname) ) then print *, ' Error: Could not open file ', fname end if end if end if if ((wrf_cmaq_option == 1) .or. (wrf_cmaq_option == 3)) then if (twoway_mype == 0) then ncols3d = cmaq_c_col_dim nrows3d = cmaq_c_row_dim if ( .not. open3 (pfname, FSRDWR3, pname) ) then print *, ' Error: Could not open file ', pfname, 'for update' if ( .not. open3 (pfname, FSNEW3, pname) ) then print *, ' Error: Could not open file ', pfname end if end if end if end if if (config_flags%mminlu == 'USGS') then lwater = 16 lice = 24 if (config_flags%num_land_cat == 33) then mminlu = 'USGS33' else if (config_flags%num_land_cat == 24) then mminlu = 'USGS24' else if (config_flags%num_land_cat == 28) then mminlu = 'USGS28' end if else if (config_flags%mminlu == 'NLCD-MODIS') then lwater = 17 lice = 15 mminlu = config_flags%mminlu else if ((config_flags%mminlu == 'MODIS') .or. (config_flags%mminlu == 'MODIFIED_IGBP_MODIS_NOAH')) then lwater = 17 lice = 15 mminlu = config_flags%mminlu else if (config_flags%mminlu(1:4) == 'NLCD') then if (config_flags%num_land_cat == 40) then lwater = 17 lice = 15 mminlu = 'NLCD40' else lwater = 1 lice = 2 mminlu = config_flags%mminlu end if else print *, ' Warning: Unknow landuse type ', config_flags%mminlu, grid%num_land_cat end if end if allocate ( land_use_index (wrf_c_ncols, wrf_c_nrows), stat=stat) land_use_index = grid%lu_index (tw_sc:tw_ec, tw_sr:tw_er) !--------------------------------------------------------------------------- ! Fill scalar-point arrays of latitude (LAT), longitude (LON), terrain ! elevation (HT), land-water mask (LWMASK), and fractional land use (LUFRAC) ! directly from WRF arrays. !--------------------------------------------------------------------------- gridcro2d_data_wrf (:,:,1) = grid%xlat (tw_sc:tw_ec, tw_sr:tw_er) gridcro2d_data_wrf (:,:,2) = grid%xlong (tw_sc:tw_ec, tw_sr:tw_er) gridcro2d_data_wrf (:,:,4) = grid%ht (tw_sc:tw_ec, tw_sr:tw_er) gridcro2d_data_wrf (:,:,5) = grid%landmask (tw_sc:tw_ec, tw_sr:tw_er) gridcro2d_data_wrf (:,:,7) = grid%lu_index (tw_sc:tw_ec, tw_sr:tw_er) ! where ( ( nint(land_use_index(:,:)) == lwater ) .or. ( nint(land_use_index(:,:)) == lice ) ) ! water ! gridcro2d_data_wrf(:,:,5) = 0.0 ! elsewhere ! land ! gridcro2d_data_wrf(:,:,5) = 1.0 ! end where do i = 1, numlu gridcro2d_data_wrf (:,:,n_gridcro2d_var+i) = grid%landusef (tw_sc:tw_ec, i, tw_sr:tw_er) end do !--------------------------------------------------------------------------- ! Compute squared scalar-point map-scale factors (MSFX2). ! ! Note: The scalar-point map-scale factors (MSFX), which are filled ! directly from a WRF array, are needed in the UHAT_JD and VHAT_JD ! calculations below. !--------------------------------------------------------------------------- gridcro2d_data_wrf (:,:,3) = grid%msftx (tw_sc:tw_ec, tw_sr:tw_er) * grid%msftx (tw_sc:tw_ec, tw_sr:tw_er) !--------------------------------------------------------------------------- ! Compute percentage of urban area per land in grid cell (PURB) using ! algorithm from MCIP. !--------------------------------------------------------------------------- jj = tw_sr - 1 do r = 1, wrf_c_nrows jj = jj + 1 ii = tw_sc - 1 do c = 1, wrf_c_ncols ii = ii + 1 if ( nint(land_use_index(c,r)) == lwater ) then ! water is dominant gridcro2d_data_wrf(c,r,6) = 0.0 else ! land is dominant over water in cell if ( grid%landusef(ii,lwater,jj) < 1.0 ) then ! if ((config_flags%mminlu == 'USGS') .and. (config_flags%num_land_cat == 33)) then if (mminlu == 'USGS33') then gridcro2d_data_wrf(c,r,6) = ( ( grid%landusef(ii,1,jj) + grid%landusef(ii,31,jj) + & grid%landusef(ii,32,jj) + grid%landusef(ii,33,jj) ) / & (1.0 - grid%landusef(ii,lwater,jj)) ) * 100.0 else if (mminlu == 'USGS24') then gridcro2d_data_wrf(c,r,6) = ( grid%landusef(ii,1,jj) / & (1.0 - grid%landusef(ii,lwater,jj)) ) * 100.0 else if ((mminlu == 'MODIS') .or. (mminlu == 'MODIFIED_IGBP_MODIS_NOAH')) then gridcro2d_data_wrf(c,r,6) = ( grid%landusef(ii,13,jj) / & (1.0 - grid%landusef(ii,lwater,jj)) ) * 100.0 else if ((mminlu == 'NLCD') .or. (mminlu == 'NLCD50')) then gridcro2d_data_wrf(c,r,6) = ( ( grid%landusef(ii,3,jj) * 0.10 + & grid%landusef(ii,4,jj) * 0.35 + & grid%landusef(ii,5,jj) * 0.65 + & grid%landusef(ii,6,jj) * 0.90 + & grid%landusef(ii,44,jj) ) / & (1.0 - grid%landusef(ii,lwater,jj)) ) * 100.0 else if (mminlu == 'NLCD40') then gridcro2d_data_wrf(c,r,6) = ( ( grid%landusef(ii,23,jj) * 0.10 + & grid%landusef(ii,24,jj) * 0.35 + & grid%landusef(ii,25,jj) * 0.65 + & grid%landusef(ii,26,jj) * 0.90 + & grid%landusef(ii,13,jj) ) / & (1.0 - grid%landusef(ii,lwater,jj)) ) * 100.0 else print *, ' Warning:: Unknow Land Use type' stop end if else gridcro2d_data_wrf(c,r,6) = 0.0 end if end if end do end do deallocate (land_use_index) call se_wrf_cmaq_comm (twoway_mype, gridcro2d_data_wrf, gridcro2d_data_cmaq, & wrf_cmaq_c_send_to, wrf_cmaq_c_recv_from, & wrf_cmaq_c_send_index_l, wrf_cmaq_c_recv_index_l, 1) if (wrf_cmaq_option .gt. 1) then if ( .not. buf_write3 (fname, allvar3, jdate, jtime, gridcro2d_data_cmaq ) ) then print *, ' Error: Could not write to file ', fname stop end if end if if ((wrf_cmaq_option == 1) .or. (wrf_cmaq_option == 3)) then if ( .not. write3 (pfname, allvar3, jdate, jtime, gridcro2d_data_cmaq ) ) then print *, ' Error: Could not write to file ', pfname stop end if end if !--------------------------------------------------------------------------- ! Compute sqaured dot-point map-scale factors (MSFD2). ! ! The correct method would be to use the grid projection information and ! call a routine like gridgeometry from MCIP. Here, for simplicity, ! approximate dot-point map-scale factors from flux-point map-scale ! factors that are readily available in WRF using four-point interpolation. !--------------------------------------------------------------------------- if (wrf_cmaq_option .gt. 1) then fname = 'GRID_DOT_2D' end if if ((wrf_cmaq_option == 1) .or. (wrf_cmaq_option == 3)) then pfname = 'PGRID_DOT_2D' end if if (.not. file_opened) then call aq_set_ioapi_header ('D', cmaq_d_ncols, cmaq_d_nrows) mxrec3d = 1 nlays3d = 1 nvars3d = n_griddot2d_var vname3d(1:nvars3d) = griddot2d_vlist units3d(1:nvars3d) = griddot2d_units tstep3d = 0 vtype3d = ioapi_header%vtype if (wrf_cmaq_option .gt. 1) then if ( .not. open3 (fname, FSRDWR3, pname) ) then print *, ' Error: Could not open file ', fname, 'for update' if ( .not. open3 (fname, FSNEW3, pname) ) then print *, ' Error: Could not open file ', fname end if end if end if if ((wrf_cmaq_option == 1) .or. (wrf_cmaq_option == 3)) then if (twoway_mype == 0) then ncols3d = cmaq_c_col_dim + 1 nrows3d = cmaq_c_row_dim + 1 if ( .not. open3 (pfname, FSRDWR3, pname) ) then print *, ' Error: Could not open file ', pfname, 'for update' if ( .not. open3 (pfname, FSNEW3, pname) ) then print *, ' Error: Could not open file ', pfname end if end if end if end if allocate ( griddot2d_data_wrf (wrf_d_ncols, wrf_d_nrows), stat=stat) allocate ( griddot2d_data_cmaq (cmaq_d_ncols, cmaq_d_nrows), stat=stat) end if jj = tw_sr_d - 1 DO r = 1, wrf_d_nrows jj = min (jj+1, tw_er_d) jjm1 = MAX( jj-1, 1 ) ii = tw_sc_d - 1 DO c = 1, wrf_d_ncols ii = min (ii+1, tw_ec_d) iim1 = MAX ( ii-1, 1 ) griddot2d_data_wrf(c,r) = 0.25 * ( grid%msfux(ii,jjm1) + grid%msfux(ii,jj) + & grid%msfvx(iim1,jj) + grid%msfvx(ii,jj) ) griddot2d_data_wrf(c,r) = griddot2d_data_wrf(c,r) * griddot2d_data_wrf(c,r) ENDDO ENDDO call se_wrf_cmaq_comm (twoway_mype, griddot2d_data_wrf, griddot2d_data_cmaq, & wrf_cmaq_d_send_to, wrf_cmaq_d_recv_from, & wrf_cmaq_d_send_index_l, wrf_cmaq_d_recv_index_l, 2) if (wrf_cmaq_option .gt. 1) then if ( .not. buf_write3 (fname, allvar3, jdate, jtime, griddot2d_data_cmaq ) ) then print *, ' Error: Could not write to file ', fname stop end if end if if ((wrf_cmaq_option == 1) .or. (wrf_cmaq_option == 3)) then tsc_d = 1 if (east_bdy_pe) then tec_d = cmaq_d_domain_map(3,1,twoway_mype) else tec_d = cmaq_d_domain_map(3,1,twoway_mype) - 1 end if tsr_d = 1 if (north_bdy_pe) then ter_d = cmaq_d_domain_map(3,2,twoway_mype) else ter_d = cmaq_d_domain_map(3,2,twoway_mype) - 1 end if if ( .not. write3 (pfname, allvar3, jdate, jtime, griddot2d_data_cmaq(tsc_d:tec_d,tsr_d:ter_d) ) ) then print *, ' Error: Could not write to file ', pfname stop end if end if first = .false. ENDIF ! first if (wrf_cmaq_option .gt. 1) then fname = 'MET_CRO_3D' end if if ((wrf_cmaq_option == 1) .or. (wrf_cmaq_option == 3)) then pfname = 'PMET_CRO_3D' end if if (.not. file_opened) then call aq_set_ioapi_header ('C', cmaq_ce_domain_map(3,1,twoway_mype), cmaq_ce_domain_map(3,2,twoway_mype)) mxrec3d = nstep xorig3d = ioapi_header%xorig - ioapi_header%xcell yorig3d = ioapi_header%yorig - ioapi_header%ycell nlays3d = ioapi_header%nlays nvars3d = n_metcro3d_var vname3d(1:nvars3d) = metcro3d_vlist units3d(1:nvars3d) = metcro3d_units tstep3d = cmaq_tstep vtype3d = ioapi_header%vtype if (.not. allocated(metcro3d_data_wrf)) then allocate ( metcro3d_data_wrf (wrf_c_ncols, wrf_c_nrows, nlays, nvars3d), stat=stat) allocate ( metcro3d_data_cmaq (cmaq_ce_domain_map(3,1,twoway_mype), & cmaq_ce_domain_map(3,2,twoway_mype), nlays, nvars3d), stat=stat) metcro3d_data_wrf = 0.0 tsc_c = 2 tec_c = cmaq_ce_domain_map(3,1,twoway_mype) - 1 tsr_c = 2 ter_c = cmaq_ce_domain_map(3,2,twoway_mype) - 1 tsc_e = 2 tec_e = cmaq_ce_domain_map(3,1,twoway_mype) - 1 tsr_e = 2 ter_e = cmaq_ce_domain_map(3,2,twoway_mype) - 1 if (west_bdy_pe) then tsc_e = 1 end if if (east_bdy_pe) then tec_e = tec_e + 1 end if if (south_bdy_pe) then tsr_e = 1 end if if (north_bdy_pe) then ter_e = ter_e + 1 end if end if if (wrf_cmaq_option .gt. 1) then if ( .not. open3 (fname, FSRDWR3, pname) ) then print *, ' Error: Could not open file ', fname, 'for update' if ( .not. open3 (fname, FSNEW3, pname) ) then print *, ' Error: Could not open file ', fname end if end if end if if ((wrf_cmaq_option == 1) .or. (wrf_cmaq_option == 3)) then if (twoway_mype == 0) then ncols3d = cmaq_c_col_dim + 2 nrows3d = cmaq_c_row_dim + 2 tstep3d = file_time_step if ( .not. open3 (pfname, FSRDWR3, pname) ) then print *, ' Error: Could not open file ', pfname, 'for update' if ( .not. open3 (pfname, FSNEW3, pname) ) then print *, ' Error: Could not open file ', pfname end if end if end if end if end if !------------------------------------------------------------------------------- ! Fill time-dependent arrays for METCRO3D. ! ! Note: Cannot just assign pointers for 3D variables because order of indices ! is different in WRF (i,k,j) vs. CMAQ (i,j,k). !------------------------------------------------------------------------------- IF (turn_on_pv) THEN IF ( .NOT. ALLOCATED ( sigma ) ) ALLOCATE ( sigma ( nlays ) ) sigma = grid%znu(1:nlays) ! sigma = grid%znu IF ( .NOT. ALLOCATED ( xuu_s ) ) ALLOCATE ( xuu_s ( wrf_d_ncols, wrf_d_nrows, nlays) ) IF ( .NOT. ALLOCATED ( xvv_t ) ) ALLOCATE ( xvv_t ( wrf_d_ncols, wrf_d_nrows, nlays) ) IF ( .NOT. ALLOCATED ( xuu_d ) ) ALLOCATE ( xuu_d ( wrf_d_ncols, wrf_d_nrows, nlays) ) IF ( .NOT. ALLOCATED ( xvv_d ) ) ALLOCATE ( xvv_d ( wrf_d_ncols, wrf_d_nrows, nlays) ) DO kk = 1, nlays jj = tw_sr_d - 1 DO r = 1, wrf_d_nrows jj = jj + 1 ii = tw_sc_d - 1 DO c = 1, wrf_d_ncols ii = ii + 1 xuu_s(c,r,kk) = grid%u_2 (ii,kk,jj) xvv_t(c,r,kk) = grid%v_2 (ii,kk,jj) ENDDO ! c ENDDO ! r xvv_d(2:wrf_d_ncols-1,:,kk) = 0.5 * (xvv_t(1:wrf_d_ncols-2,:,kk) + xvv_t(2:wrf_d_ncols-1,:,kk)) IF (west_bdy_pe) THEN xvv_d(1, :,kk) = xvv_t(1,:,kk) ELSE xvv_d(1, :,kk) = 0.5 * (xvv_t(1,:,kk) + grid%v_2 (tw_sc_d-1,kk,tw_sr_d:tw_er_d)) ENDIF IF (east_bdy_pe) THEN xvv_d(wrf_d_ncols,:,kk) = xvv_t(wrf_d_ncols-1,:,kk) ELSE xvv_d(wrf_d_ncols,:,kk) = 0.5 * (xvv_t(wrf_d_ncols-1,:,kk) + xvv_t(wrf_d_ncols,:,kk)) ENDIF xuu_d(:,2:wrf_d_nrows-1,kk) = 0.5 * (xuu_s(:,1:wrf_d_nrows-2,kk) + xuu_s(:,2:wrf_d_nrows-1,kk)) IF (south_bdy_pe) THEN xuu_d(:,1, kk) = xuu_s(:,1,kk) ELSE xuu_d(:,1, kk) = 0.5 * (xuu_s(:,1,kk) + grid%u_2 (tw_sc_d:tw_ec_d,kk,tw_sr_d-1)) ENDIF IF (north_bdy_pe) THEN xuu_d(:,wrf_d_nrows,kk) = xuu_s(:,wrf_d_nrows-1,kk) ELSE xuu_d(:,wrf_d_nrows,kk) = 0.5 * (xuu_s(:,wrf_d_nrows-1,kk) + xuu_s(:,wrf_d_nrows,kk)) ENDIF ENDDO ! kk IF ( .NOT. ALLOCATED ( xtheta ) ) ALLOCATE ( xtheta ( wrf_c_ncols, wrf_c_nrows, nlays) ) END IF ! turn_on_pv zf (:,:,0) = 0.0 DO kk = 1, nlays kp1 = kk + 1 jj = tw_sr - 1 DO r = 1, wrf_c_nrows jj = jj + 1 ii = tw_sc - 1 DO c = 1, wrf_c_ncols ii = ii + 1 !----------------------------------------------------------------------- ! Fill "required" 3D scalar-point arrays of temperature (TA), water ! vapor mixing ratio (QV), pressure (PRES), density (DENS), density ! including contribution from water vapor (DENSQ), height of the ! half-layers (mid-layers) (ZH), height of the full levels (ZF), ! pressure on full levels (PRESF), height difference of full levels ! (DZF), cloud mixing ratio (QC), and rain water mixing ratio (QR) ! directly from WRF arrays. ! ! Note: QV, QC, and QR are "optional" variables in the WRF model ! because they are not output in some configurations of the ! model. It may be better to ensure they are defined before ! this routine is called and make them required rather than ! optional on the calling statement. ! ! Note: DENSQ is new for output. It may be preferred over DENS in ! some CMAQ calculations. ! ! Note: PRESF and DZF are filled to support other calculations, and ! they are not part of the output. ! ! Note: None of the full-level arrays are dimensioned to full levels. ! All arrays are filled using CMAQ's (:,:,0:nlays) convention. ! PRESF(:,:0) is PRSFC, which is filled in the 2D arrays. ! ZF(:,:,0) is 0.0 for all grid cells. DZF(:,:,0) does not ! exist because there are only NLAYS differences between ! NLAYS+1 levels. !----------------------------------------------------------------------- metcro3d_data_wrf (c,r,kk,15) = grid%u_phy(ii,kk,jj) ! store u wind component on mass point metcro3d_data_wrf (c,r,kk,16) = grid%v_phy(ii,kk,jj) ! store v wind component on mass point metcro3d_data_wrf (c,r,kk,4) = t_phy_wrf (ii,kk,jj) ! ta if (turn_on_pv) then xtheta(c,r,kk) = grid%t_2 (ii,kk,jj) + t0 end if IF ( PRESENT (qv_curr_wrf) .AND. f_qv ) THEN metcro3d_data_wrf (c,r,kk,5) = qv_curr_wrf (ii,kk,jj) ! qv ELSE print *, ' Error: CMAQ *needs* QV to run. ' stop ENDIF metcro3d_data_wrf (c,r,kk,11) = p_phy_wrf (ii,kk,jj) ! pres metcro3d_data_wrf (c,r,kk,12) = 1.0 / grid%alt(ii,kk,jj) ! den densq (c,r,kk) = rho_wrf (ii,kk,jj) ! includes QV: 1/dens*(1+QV) zf (c,r,kk) = z_at_w_wrf (ii,kp1,jj) - z_at_w_wrf (ii,1,jj) ! adjust for 0: indexing in AQ metcro3d_data_wrf (c,r,kk,13) = 0.5 * (zf(c,r,kk) + zf(c,r,kk-1)) ! zh presf (c,r,kk) = p8w_wrf (ii,kp1,jj) ! adjust for 0: indexing in AQ dzf (c,r,kk) = dz8w_wrf (ii,kk,jj) ! no kp1: dz8w=0 at model top IF ( PRESENT (qc_curr_wrf) .AND. f_qc ) THEN metcro3d_data_wrf (c,r,kk,6) = qc_curr_wrf(ii,kk,jj) ! qc ELSE print *, ' Error: CMAQ *needs* QC to run. ' stop ENDIF IF ( PRESENT (qr_curr_wrf) .AND. f_qr ) THEN metcro3d_data_wrf (c,r,kk,7) = qr_curr_wrf(ii,kk,jj) ! qr ELSE print *, ' Error: CMAQ *needs* QR to run. ' stop ENDIF !----------------------------------------------------------------------- ! Fill "optional" moisture variables: ice mixing ratio (QI), snow ! mixing ratio (QS), and graupel mixing ratio (QG). ! ! Note: QI, QS, and QG are not required for CMAQ, but will be used ! if they are available. They are not written to output if ! they are not available...so do not fill with 0.0 or BADVAL3. !----------------------------------------------------------------------- IF ( PRESENT (qi_curr_wrf) .AND. f_qi ) THEN metcro3d_data_wrf (c,r,kk,8) = qi_curr_wrf(ii,kk,jj) ! qi ELSE metcro3d_data_wrf (c,r,kk,8) = 0.0 ENDIF IF ( PRESENT (qs_curr_wrf) .AND. f_qs ) THEN metcro3d_data_wrf (c,r,kk,9) = qs_curr_wrf(ii,kk,jj) ! qs ELSE metcro3d_data_wrf (c,r,kk,9) = 0.0 ENDIF IF ( PRESENT (qg_curr_wrf) .AND. f_qg ) THEN metcro3d_data_wrf (c,r,kk,10) = qg_curr_wrf(ii,kk,jj) ! qg ELSE metcro3d_data_wrf (c,r,kk,10) = 0.0 ENDIF !----------------------------------------------------------------------- ! Compute Jacobian on full levels and mid-layers, and compute ! coupled density and Jacobian on mid-layers. Need to compute ! full-level density (in WRF coordinate) for Jacobian. ! ! Jacobian is from WRF relation: ! J*g = d(phi)/d(eta) = d(g z)/d(eta) = -mu alpha = -mu/rho ! ! Note: In QF calculation, use "raw" WRF variable QV_CURR_WRF instead ! of QV here because QV(:,kp1,:) is not yet filled. ! ! Note: JACOBF at the surface (i.e., JACOBS) is not filled because ! it is not used in CMAQ. !----------------------------------------------------------------------- tf = t8w_wrf(ii,kp1,jj) ! kp1 to adjust for 0: indexing in AQ model qf = 0.5 * ( qv_curr_wrf(ii,kk,jj) + qv_curr_wrf(ii,kp1,jj) ) densf = presf(c,r,kk) / ( r_d * tf * (1.0 + r_v*qf/r_d) ) !----------------------------------------------------------------------- ! Update calculation of Jacobian for hybrid vertical coordinate. ! TLS 1 Feb 19 ! ! Calculate new variables MUHYBF and MUHYBH (mu hybrid on full and half ! levels). Note that full level indexing in vertical differs by 1 from ! WRF because CMAQ's arrays are zero-based. ! ! Replace MUT in the Jacobian calculations, below, with MUHYBF or ! MUHYBH, depending on the level where we want the Jacobian. !----------------------------------------------------------------------- if (hybrid_vert) then muhybf = grid%c1f(kp1) * grid%mut(ii,jj) + grid%c2f(kp1) muhybh = grid%c1h(kk) * grid%mut(ii,jj) + grid%c2h(kk) else muhybf = grid%mut(ii,jj) muhybh = grid%mut(ii,jj) endif if (turn_on_pv) then metcro3d_data_wrf (c,r,kk,1) = tf*2 else metcro3d_data_wrf (c,r,kk,1) = gravi * muhybf / (densf * gridcro2d_data_wrf (c,r,3)) end if metcro3d_data_wrf (c,r,kk,2) = gravi * muhybh / (metcro3d_data_wrf(c,r,kk,12) * gridcro2d_data_wrf (c,r,3)) metcro3d_data_wrf (c,r,kk,3) = gravi * muhybh / gridcro2d_data_wrf (c,r,3) ENDDO ENDDO ENDDO metcro3d_data_wrf (:,:,1:nlays,14) = zf (:,:,1:nlays) !------------------------------------------------------------------------------- ! Name: Potential Vorticity on Sigma ! Purpose: Compute potential vorticity on sigma surfaces from Ertel's form. ! Notes: Formalism based on Ebel et al., "Simulation of ozone intrusion ! caused by tropopause fold and cut-off low, Atmos. Environ., ! Part A, 25, 2131-2144. ! Revised: ?? ??? 1999 Original version. (S. McKeen) ! ?? ??? 2007 Adapted for use in air quality forecasting model. ! (H.-M. Lin and R. Mathur) ! 17 Sep 2009 Adapted for MCIP by changing array indexing and using ! arrays available in MCIP. (T. Otte) ! 07 Sep 2011 Updated disclaimer. Changed SCALE to SCALEF to avoid ! conflict with F90 intrinsic. (T. Otte) ! 05 Sep 2012 Embeded in two-way model from Mcip4.0 (J. XING) !------------------------------------------------------------------------------- !------------------------------------------------------------------------------- ! Compute vertical gradients using 2nd order polynomials at all levels. ! Gradients obtained at model sigma levels, ! not at sigma=.5*(sigma(K+1)+sigma(K-1)) !------------------------------------------------------------------------------- IF (TURN_ON_PV) THEN IF ( .NOT. ALLOCATED ( xmapc ) ) ALLOCATE ( xmapc ( wrf_c_ncols, wrf_c_nrows) ) xmapc(:,:) = grid%msftx (tw_sc:tw_ec, tw_sr:tw_er) IF ( .NOT. ALLOCATED ( xmapc2 ) ) ALLOCATE ( xmapc2 ( wrf_c_ncols, wrf_c_nrows)) xmapc2(:,:) = grid%msftx (tw_sc:tw_ec, tw_sr:tw_er) * grid%msftx (tw_sc:tw_ec, tw_sr:tw_er) IF ( .NOT. ALLOCATED ( xcorl ) ) ALLOCATE ( xcorl ( wrf_c_ncols, wrf_c_nrows) ) xcorl(:,:) = grid%f (tw_sc:tw_ec, tw_sr:tw_er) dx = grid%dx dy = grid%dy dsx = 2.0 * dx dsy = 2.0 * dy DO k = 1, nlays IF ( k == 1 ) THEN k0 = k k1 = k + 1 k2 = k + 2 f0 = -1.0 / (sigma(k1) - sigma(k0)) - 1.0 / (sigma(k2) - sigma(k0)) f1 = 1.0 / (sigma(k1) - sigma(k0)) + 1.0 / (sigma(k2) - sigma(k1)) f2 = -1.0 * ( (sigma(k1) - sigma(k0)) / & ( (sigma(k2) - sigma(k0)) * (sigma(k2) - sigma(k1)) ) ) ELSE IF ( k == nlays ) THEN k0 = k - 2 k1 = k - 1 k2 = k f0 = (sigma(k2) - sigma(k1)) / & ( (sigma(k2) - sigma(k0)) * (sigma(k1) - sigma(k0)) ) f1 = -1.0 / (sigma(k1) - sigma(k0)) - 1.0 / (sigma(k2) - sigma(k1)) f2 = 1.0 / (sigma(k2) - sigma(k0)) + 1.0 / (sigma(k2) - sigma(k1)) ELSE k0 = k - 1 k1 = k k2 = k + 1 f0 = -1.0 * (sigma(k2) - sigma(k1)) / & ( (sigma(k1) - sigma(k0)) * (sigma(k2) - sigma(k0)) ) f1 = 1.0 / (sigma(k1) - sigma(k0)) - 1.0 / (sigma(k2) - sigma(k1)) f2 = (sigma(k1) - sigma(k0)) / & ( (sigma(k2) - sigma(k1)) * (sigma(k2) - sigma(k0)) ) ENDIF !------------------------------------------------------------------------------- ! Compute vertical derivatives: dU/ds, dV/ds, dTHETA/ds. !------------------------------------------------------------------------------- IF ( .NOT. ALLOCATED ( duds ) ) ALLOCATE ( duds ( wrf_c_ncols, wrf_c_nrows) ) IF ( .NOT. ALLOCATED ( dvds ) ) ALLOCATE ( dvds ( wrf_c_ncols, wrf_c_nrows) ) IF ( .NOT. ALLOCATED ( dtdx ) ) ALLOCATE ( dtdx ( wrf_c_ncols, wrf_c_nrows) ) IF ( .NOT. ALLOCATED ( dtdy ) ) ALLOCATE ( dtdy ( wrf_c_ncols, wrf_c_nrows) ) IF ( .NOT. ALLOCATED ( dtds ) ) ALLOCATE ( dtds ( wrf_c_ncols, wrf_c_nrows) ) DO r = 1, wrf_c_nrows rp1 = r + 1 DO c = 1, wrf_c_ncols cp1 = c + 1 duds(c,r) = 0.5 * ( f0 * ( xuu_s(cp1,r ,k0) + xuu_s(c,r,k0) ) + & f1 * ( xuu_s(cp1,r ,k1) + xuu_s(c,r,k1) ) + & f2 * ( xuu_s(cp1,r ,k2) + xuu_s(c,r,k2) ) ) dvds(c,r) = 0.5 * ( f0 * ( xvv_t(c ,rp1,k0) + xvv_t(c,r,k0) ) + & f1 * ( xvv_t(c ,rp1,k1) + xvv_t(c,r,k1) ) + & f2 * ( xvv_t(c ,rp1,k2) + xvv_t(c,r,k2) ) ) ENDDO ENDDO DO r = 1, wrf_c_nrows DO c = 1, wrf_c_ncols t00 = xtheta(c,r,k0) t1 = xtheta(c,r,k1) t2 = xtheta(c,r,k2) dtds(c,r) = f0*t00 + f1*t1 + f2*t2 ENDDO ENDDO jj = tw_sr - 1 DO r = 1, wrf_c_nrows jj = jj + 1 DO c = 2, wrf_c_ncols-1 t1 = xtheta(c-1,r,k) / xmapc(c-1,r) t2 = xtheta(c+1,r,k) / xmapc(c+1,r) dtdx(c,r) = xmapc2(c,r) * (t2-t1) / dsx ENDDO IF (west_bdy_pe) THEN t1 = xtheta(1,r,k) / xmapc(1,r) t2 = xtheta(2,r,k) / xmapc(2,r) t3 = xtheta(3,r,k) / xmapc(3,r) dtdx(1,r) = xmapc2(1,r) * (-1.5*t1 + 2.0*t2 - 0.5*t3) / dx ELSE t1 = (grid%t_2(tw_sc-1,k,jj) + t0) / grid%msftx(tw_sc-1,jj) t2 = xtheta(2,r,k) / xmapc(2,r) dtdx(1,r) = xmapc2(1,r) * (t2-t1) / dsx ENDIF IF (east_bdy_pe) THEN t00 = xtheta(wrf_c_ncols-2,r,k) / xmapc(wrf_c_ncols-2,r) t1 = xtheta(wrf_c_ncols-1,r,k) / xmapc(wrf_c_ncols-1,r) t2 = xtheta(wrf_c_ncols, r,k) / xmapc(wrf_c_ncols, r) dtdx(wrf_c_ncols,r) = xmapc2(wrf_c_ncols,r) * (0.5*t00 - 2.0*t1 + 1.5*t2) / dx ELSE t1 = xtheta(c-1,r,k) / xmapc(c-1,r) t2 = (grid%t_2(tw_ec+1,k,jj) + t0) / grid%msftx(tw_ec+1,jj) dtdx(wrf_c_ncols,r) = xmapc2(wrf_c_ncols,r) * (t2-t1) / dsx ENDIF ENDDO ii = tw_sc - 1 DO c = 1, wrf_c_ncols ii = ii + 1 DO r = 2, wrf_c_nrows-1 t1 = xtheta(c,r-1,k) / xmapc(c,r-1) t2 = xtheta(c,r+1,k) / xmapc(c,r+1) dtdy(c,r) = xmapc2(c,r) * (t2-t1) / dsy ENDDO ! r IF (south_bdy_pe) THEN t1 = xtheta(c,1,k) / xmapc(c,1) t2 = xtheta(c,2,k) / xmapc(c,2) t3 = xtheta(c,3,k) / xmapc(c,3) dtdy(c,1) = xmapc2(c,1) * (-1.5*t1 + 2.0*t2 - 0.5*t3) / dy ELSE t1 = (grid%t_2(ii,k,tw_sr-1) + t0) / grid%msftx(ii,tw_sr-1) t2 = xtheta(c,2,k) / xmapc(c,2) dtdy(c,1) = xmapc2(c,1) * (t2-t1) / dsy ENDIF IF (north_bdy_pe) THEN t00 = xtheta(c,wrf_c_nrows-2,k) / xmapc(c,wrf_c_nrows-2) t1 = xtheta(c,wrf_c_nrows-1,k) / xmapc(c,wrf_c_nrows-1) t2 = xtheta(c,wrf_c_nrows, k) / xmapc(c,wrf_c_nrows) dtdy(c,wrf_c_nrows) = xmapc2(c,wrf_c_nrows) * (0.5*t00 - 2.0*t1 + 1.5*t2) / dy ELSE t1 = xtheta(c,r-1,k) / xmapc(c,r-1) t2 = (grid%t_2(ii,k,tw_er+1) + t0)/ grid%msftx(ii,tw_er+1) dtdy(c,wrf_c_nrows) = xmapc2(c,wrf_c_nrows) * (t2-t1) / dsy ENDIF ENDDO !------------------------------------------------------------------------------- ! Compute slab absolute vorticity, and store potential vorticity in XPVC. ! ! 1. Because we use X3 instead of SIGMA in equation, ! GRAV/PSB is replaced by 1.0/XRHOJM (density * Jacobian). ! ! 2. As a shortcut, 1.0/XRHOJM is not included in XPVC here; ! it will be included in subroutine METCRO before PV is output. ! 3. Added RHOJ !------------------------------------------------------------------------------- DO r = 1, wrf_c_nrows rp1 = r + 1 DO c = 1, wrf_c_ncols cp1 = c + 1 vor = xmapc2(c,r) * ((xvv_d(cp1,r, k) + xvv_d(cp1,rp1,k) - & xvv_d(c, r, k) - xvv_d(c, rp1,k)) / dsx - & (xuu_d(c, rp1,k) + xuu_d(cp1,rp1,k) - & xuu_d(c, r, k) - xuu_d(cp1,r, k)) / dsy) + & xcorl(c,r) metcro3d_data_wrf (c,r,k,n_metcro3d_var) = -1.0e6 * ( vor * dtds(c,r) & - dvds(c,r) * dtdx(c,r) & + duds(c,r) * dtdy(c,r) ) & / ( metcro3d_data_wrf (c,r,k,3) * gridcro2d_data_wrf (c,r,3)) ENDDO ENDDO ENDDO END IF ! turn on pv call se_wrf_cmaq_comm (twoway_mype, metcro3d_data_wrf, metcro3d_data_cmaq, & wrf_cmaq_ce_send_to, wrf_cmaq_ce_recv_from, & wrf_cmaq_ce_send_index_l, wrf_cmaq_ce_recv_index_l, 3) if (wrf_cmaq_option .gt. 1) then if ( .not. buf_write3 (fname, allvar3, jdate, jtime, metcro3d_data_cmaq ) ) then print *, ' Error: Could not write to file ', fname stop end if end if if ((wrf_cmaq_option == 1) .or. (wrf_cmaq_option == 3)) then if (mod(time2sec(jtime), file_time_step_in_sec) == 0) then write_to_physical_file = .true. if ( .not. write3 (pfname, allvar3, jdate, jtime, metcro3d_data_cmaq(tsc_e:tec_e, tsr_e:ter_e, :, :) ) ) then print *, ' Error: Could not write to file ', pfname stop end if else write_to_physical_file = .false. end if end if ! -------------------------- if (wrf_cmaq_option .gt. 1) then fname = 'MET_DOT_3D' end if if ((wrf_cmaq_option == 1) .or. (wrf_cmaq_option == 3)) then pfname = 'PMET_DOT_3D' end if if (.not. file_opened) then call aq_set_ioapi_header ('D', cmaq_de_domain_map(3,1,twoway_mype), cmaq_de_domain_map(3,2,twoway_mype)) mxrec3d = nstep nlays3d = ioapi_header%nlays nvars3d = n_metdot3d_var vname3d(1:nvars3d) = metdot3d_vlist units3d(1:nvars3d) = metdot3d_units tstep3d = cmaq_tstep vtype3d = ioapi_header%vtype if (.not. allocated(metdot3d_data_wrf)) then allocate ( metdot3d_data_wrf (wrf_d_ncols, wrf_d_nrows, nlays, nvars3d), stat=stat) allocate ( metdot3d_data_cmaq (cmaq_de_domain_map(3,1,twoway_mype), & cmaq_de_domain_map(3,2,twoway_mype), nlays, nvars3d), stat=stat) tsc_d = 2 if (east_bdy_pe) then tec_d = cmaq_de_domain_map(3,1,twoway_mype) - 1 else tec_d = cmaq_de_domain_map(3,1,twoway_mype) - 2 end if tsr_d = 2 if (north_bdy_pe) then ter_d = cmaq_de_domain_map(3,2,twoway_mype) - 1 else ter_d = cmaq_de_domain_map(3,2,twoway_mype) - 2 end if end if if (wrf_cmaq_option .gt. 1) then if ( .not. open3 (fname, FSRDWR3, pname) ) then print *, ' Error: Could not open file ', fname, 'for update' if ( .not. open3 (fname, FSNEW3, pname) ) then print *, ' Error: Could not open file ', fname end if end if end if if ((wrf_cmaq_option == 1) .or. (wrf_cmaq_option == 3)) then if (twoway_mype == 0) then ncols3d = cmaq_c_col_dim + 1 nrows3d = cmaq_c_row_dim + 1 tstep3d = file_time_step if ( .not. open3 (pfname, FSRDWR3, pname) ) then print *, ' Error: Could not open file ', pfname, 'for update' if ( .not. open3 (pfname, FSNEW3, pname) ) then print *, ' Error: Could not open file ', pfname end if end if end if end if end if !------------------------------------------------------------------------------- ! Fill time-dependent arrays in METDOT3D. !------------------------------------------------------------------------------- !----------------------------------------------------------------------------- ! Fill UWINDC and VWINDC directly from WRF arrays. ! ! Note: UWIND and VWIND changed to UWINDC and VWINDC to remind us that ! they are on the Arakawa C staggering, not the Arakawa B staggering ! that is in MCIP output and is expected in community SMOKE and CMAQ ! codes. ! ! Note: If trying to combine triply nested loops for UWINDC/VWINDC with ! UHAT_JD/VHAT_JD, the ends for R and C loop counters are different. !----------------------------------------------------------------------------- DO kk = 1, nlays jj = tw_sr_d - 1 DO r = 1, wrf_d_nrows jj = jj + 1 ii = tw_sc_d - 1 DO c = 1, wrf_d_ncols ii = ii + 1 metdot3d_data_wrf (c,r,kk,1) = grid%u_2 (ii,kk,jj) ! C grid staggering, uwindc metdot3d_data_wrf (c,r,kk,2) = grid%v_2 (ii,kk,jj) ! C grid staggering, vwindc ENDDO ENDDO !----------------------------------------------------------------------------- ! Compute UHAT_JD and VHAT_JD. ! ! Note: If order of loops is changed so that K is not on outside, JDENM ! needs to be allocated and filled in three dimensions. ! ! Note: If trying to combine triply nested loops for UWINDC/VWINDC with ! UHAT_JD/VHAT_JD, the ends for R and C loop counters are different. !----------------------------------------------------------------------------- jj = tw_sr - 1 DO r = 1, wrf_d_nrows lrm1 = MAX( r-1, 1 ) jj = jj + 1 ii = tw_sc - 1 DO c = 1, wrf_d_ncols ii = ii + 1 lcm1 = MAX( c-1, 1 ) jdenm (c,r) = gravi * grid%mut(ii,jj) / grid%msftx (ii,jj) metdot3d_data_wrf(c,r,kk,3) = 0.5 * ( jdenm(lcm1,r) + jdenm(c,r) ) * metdot3d_data_wrf(c,r,kk,1) metdot3d_data_wrf(c,r,kk,4) = 0.5 * ( jdenm(c,lrm1) + jdenm(c,r) ) * metdot3d_data_wrf(c,r,kk,2) ENDDO ENDDO !--------------------------------------------------------------------------- ! Note: Use of NCOLS and NROWS for JDENM in the outermost column/row is ! deliberate in UHAT_JD and VHAT_JD calculations. Original code in ! MCIP has JDENM defined to NCOLS+1, NROWS+1, but outer row and ! column are simply persisted from NCOLS, NROWS. !--------------------------------------------------------------------------- ENDDO call se_wrf_cmaq_comm (twoway_mype, metdot3d_data_wrf, metdot3d_data_cmaq, & wrf_cmaq_de_send_to, wrf_cmaq_de_recv_from, & wrf_cmaq_de_send_index_l, wrf_cmaq_de_recv_index_l, 4) if (wrf_cmaq_option .gt. 1) then if ( .not. buf_write3 (fname, allvar3, jdate, jtime, metdot3d_data_cmaq ) ) then print *, ' Error: Could not write to file ', fname stop end if end if if ((wrf_cmaq_option == 1) .or. (wrf_cmaq_option == 3)) then if (write_to_physical_file) then if ( .not. write3 (pfname, allvar3, jdate, jtime, metdot3d_data_cmaq(tsc_d:tec_d, tsr_d:ter_d, :, :) ) ) then print *, ' Error: Could not write to file ', pfname stop end if end if end if ! ------------------ if (wrf_cmaq_option .gt. 1) then fname = 'MET_CRO_2D' end if if ((wrf_cmaq_option == 1) .or. (wrf_cmaq_option == 3)) then pfname = 'PMET_CRO_2D' end if if (.not. file_opened) then call aq_set_ioapi_header ('C', cmaq_ce_domain_map(3,1,twoway_mype), cmaq_ce_domain_map(3,2,twoway_mype)) nlays3d = 1 mxrec3d = nstep nvars3d = n_metcro2d_var vname3d(1:nvars3d) = metcro2d_vlist units3d(1:nvars3d) = metcro2d_units tstep3d = cmaq_tstep vtype3d = ioapi_header%vtype if (.not. allocated(metcro2d_data_wrf)) then allocate ( metcro2d_data_wrf (wrf_c_ncols, wrf_c_nrows, nvars3d), stat=stat) allocate ( metcro2d_data_cmaq (cmaq_ce_domain_map(3,1,twoway_mype), & cmaq_ce_domain_map(3,2,twoway_mype), nvars3d), & temp_rainnc (cmaq_ce_domain_map(3,1,twoway_mype), & cmaq_ce_domain_map(3,2,twoway_mype)), & temp_rainc (cmaq_ce_domain_map(3,1,twoway_mype), & cmaq_ce_domain_map(3,2,twoway_mype)), & stat=stat) temp_rainnc = 0.0 temp_rainc = 0.0 end if if (wrf_cmaq_option .gt. 1) then if ( .not. open3 (fname, FSRDWR3, pname) ) then print *, ' Error: Could not open file ', fname, 'for update' if ( .not. open3 (fname, FSNEW3, pname) ) then print *, ' Error: Could not open file ', fname end if end if end if if ((wrf_cmaq_option == 1) .or. (wrf_cmaq_option == 3)) then if (twoway_mype == 0) then ncols3d = cmaq_c_col_dim nrows3d = cmaq_c_row_dim tstep3d = file_time_step if ( .not. open3 (pfname, FSRDWR3, pname) ) then print *, ' Error: Could not open file ', pfname, 'for update' if ( .not. open3 (pfname, FSNEW3, pname) ) then print *, ' Error: Could not open file ', pfname end if end if end if end if file_opened = .true. end if !------------------------------------------------------------------------------- ! Fill time-dependent arrays for METCRO2D. !------------------------------------------------------------------------------- !----------------------------------------------------------------------------- ! Fill friction velocity (USTAR), planetary boundary layer height (PBL), ! roughness length (ZRUF), inverse Monin-Obukhov length (MOLI), sensible ! heat flux (HFX), aerodynamic resistance (RA), stomatal resistance (RS), ! ground temperature (TEMPG), shortwave radiation (GSW), accumulated ! non-convective precipitation (RNA), accumulated convective precipitation ! (RCA), snow cover flag (SNOCOV), leaf area index (LAI), 2-m temperature ! (TEMP2), and canopy moisture content (WR) directly from WRF arrays. ! ! Note: RA and RS are the reciprocals of RADYNI and RSTOMI, respectively. ! RA and RS are directly available in WRF, and they are actually ! used in CMAQ, rather than the reciprocals RADYNI and RSTOMI, which ! are typically part of WRF output. ! ! Note: RNA and RCA are accumulated non-convective and convective precip, ! respectively. RN and RC are MCIP "time step" buckets (typically ! hourly). Can use RNA and RCA from current and previous CMAQ time ! steps in two-way model to compute rainfall rates needed in CMAQ. ! ! Note: For rainfall: biogenics code uses cm/h, CMAQ ultimately needs mm/h. !----------------------------------------------------------------------------- metcro2d_data_wrf (:,:,2) = grid%ust (tw_sc:tw_ec, tw_sr:tw_er) ! ustar metcro2d_data_wrf (:,:,4) = grid%pblh (tw_sc:tw_ec, tw_sr:tw_er) ! pbl metcro2d_data_wrf (:,:,5) = grid%znt (tw_sc:tw_ec, tw_sr:tw_er) ! zruf metcro2d_data_wrf (:,:,6) = grid%rmol (tw_sc:tw_ec, tw_sr:tw_er) ! moli metcro2d_data_wrf (:,:,7) = grid%hfx (tw_sc:tw_ec, tw_sr:tw_er) ! hfx metcro2d_data_wrf (:,:,8) = grid%ra (tw_sc:tw_ec, tw_sr:tw_er) ! RA = 1/RADNYI metcro2d_data_wrf (:,:,9) = grid%rs (tw_sc:tw_ec, tw_sr:tw_er) ! RA = 1/RSTOMI metcro2d_data_wrf (:,:,11) = grid%gsw (tw_sc:tw_ec, tw_sr:tw_er) ! gsw metcro2d_data_wrf (:,:,13) = (grid%rainnc(tw_sc:tw_ec, tw_sr:tw_er) - grid%prev_rainnc(tw_sc:tw_ec,tw_sr:tw_er)) * 0.1 ! RNA = SUM(RN), in cm if (wrf_convective_scheme) then metcro2d_data_wrf (:,:,14) = (grid%rainc (tw_sc:tw_ec, tw_sr:tw_er) - grid%prev_rainc(tw_sc:tw_ec,tw_sr:tw_er)) * 0.1 ! RCA = SUM(RC), in cm else metcro2d_data_wrf (:,:,14) = 0.0 end if metcro2d_data_wrf (:,:,19) = grid%snowc (tw_sc:tw_ec, tw_sr:tw_er) ! snowcov metcro2d_data_wrf (:,:,21) = grid%t2 (tw_sc:tw_ec, tw_sr:tw_er) ! temp2 metcro2d_data_wrf (:,:,22) = grid%canwat(tw_sc:tw_ec, tw_sr:tw_er) * 0.001 ! wr (in meter) metcro2d_data_wrf (:,:,23) = grid%tsk (tw_sc:tw_ec, tw_sr:tw_er) ! tempg metcro2d_data_wrf (:,:,25) = grid%isltyp(tw_sc:tw_ec, tw_sr:tw_er) ! soil type metcro2d_data_wrf (:,:,26) = grid%q2 (tw_sc:tw_ec, tw_sr:tw_er) ! Q2 metcro2d_data_wrf (:,:,27) = grid%xice (tw_sc:tw_ec, tw_sr:tw_er) ! seaice metcro2d_data_wrf (:,:,28) = grid%smois (tw_sc:tw_ec, 1, tw_sr:tw_er) ! SOIM1 metcro2d_data_wrf (:,:,29) = grid%smois (tw_sc:tw_ec, 2, tw_sr:tw_er) ! SOIM2 metcro2d_data_wrf (:,:,30) = grid%tslb (tw_sc:tw_ec, 1, tw_sr:tw_er) ! SOIT1 metcro2d_data_wrf (:,:,31) = grid%tslb (tw_sc:tw_ec, 2, tw_sr:tw_er) ! SOIT2 metcro2d_data_wrf (:,:,32) = grid%lh (tw_sc:tw_ec, tw_sr:tw_er) ! lh (qfx) metcro2d_data_wrf (:,:,33) = grid%wwlt_px (tw_sc:tw_ec, tw_sr:tw_er) ! WWLT_PX metcro2d_data_wrf (:,:,34) = grid%wfc_px (tw_sc:tw_ec, tw_sr:tw_er) ! WFC_PX metcro2d_data_wrf (:,:,35) = grid%wsat_px (tw_sc:tw_ec, tw_sr:tw_er) ! WSAT_PX metcro2d_data_wrf (:,:,36) = grid%clay_px (tw_sc:tw_ec, tw_sr:tw_er) ! CLAY_PX metcro2d_data_wrf (:,:,37) = grid%csand_px (tw_sc:tw_ec, tw_sr:tw_er) ! CSAND_PX metcro2d_data_wrf (:,:,38) = grid%fmsand_px(tw_sc:tw_ec, tw_sr:tw_er) ! FMSAND_PX where (metcro2d_data_wrf (:,:,13) .lt. 0.0) metcro2d_data_wrf (:,:,13) = 0.0 end where where (metcro2d_data_wrf (:,:,14) .lt. 0.0) metcro2d_data_wrf (:,:,14) = 0.0 end where !----------------------------------------------------------------------------- ! Assign surface pressure (PRSFC) from WRF array P8W (i.e., "p at w levels"). !----------------------------------------------------------------------------- jj = tw_sr - 1 DO r = 1, wrf_c_nrows jj = jj + 1 ii = tw_sc - 1 DO c = 1, wrf_c_ncols ii = ii + 1 metcro2d_data_wrf(c,r,1) = p8w_wrf(ii,1,jj) ! prsfc ENDDO ENDDO !----------------------------------------------------------------------------- ! Compute convective velocity scale (WSTAR) using a algorithm from MCIP. ! ! Note: KARMAN is defined in WRF module_model_constants. It is the same ! value (0.4) that is used in MCIP. !----------------------------------------------------------------------------- jj = tw_sr - 1 DO r = 1, wrf_c_nrows jj = jj + 1 ii = tw_sc - 1 DO c = 1, wrf_c_ncols ii = ii + 1 IF ( grid%rmol(ii,jj) < 0.0 ) THEN ! wstart = ustar * (pbl * ABS(grid%rmol / karman )) ** 0.3333333 metcro2d_data_wrf(c,r,3) = metcro2d_data_wrf(c,r,2) * ( metcro2d_data_wrf(c,r,4) * ABS(grid%rmol(ii, jj) / karman ) ) ** 0.3333333 ELSE metcro2d_data_wrf(c,r,3) = 0.0 END IF END DO END DO !----------------------------------------------------------------------------- ! Compute WSPD10 from WRF components U10 and V10. WSPD10 should be on ! scalar points. Assume here that U10 and V10 are on scalar points in WRF. !----------------------------------------------------------------------------- u10 (:,:) = grid%u10 (tw_sc:tw_ec, tw_sr:tw_er) u10 (:,:) = u10(:,:) * u10(:,:) v10 (:,:) = grid%v10 (tw_sc:tw_ec, tw_sr:tw_er) v10 (:,:) = v10(:,:) * v10(:,:) metcro2d_data_wrf (:,:,10) = SQRT( u10(:,:) + v10(:,:) ) ! components already squared, wspd10 !----------------------------------------------------------------------------- ! Compute solar radiation reaching the ground (RGRND) from ALBEDO and GSW. ! ! Note: RGRND may not be needed depending on how it is used by biogenics. !----------------------------------------------------------------------------- albedo (:,:) = grid%albedo(tw_sc:tw_ec, tw_sr:tw_er) metcro2d_data_wrf (:,:,12) = metcro2d_data_wrf(:,:,11) / (1.0 - albedo(:,:)) !----------------------------------------------------------------------------- ! Get VEG and LAI from WRF dependent on WRF LSM option and WRF version number. ! Also if WRF VEGFRA is used, it's in percent. Convert to fraction. ! Also if PX MODIS version (WRFv4.1+) is used, add PX soil properties to MCIP ! file for updated dust model. If PX MODIS is not used set to missing value ! that will trigger old soil category based calculations in DUST_EMIS.F !----------------------------------------------------------------------------- if (config_flags%sf_surface_physics == 7) then metcro2d_data_wrf (:,:,20) = grid%vegf_px (tw_sc:tw_ec, tw_sr:tw_er) else metcro2d_data_wrf (:,:,20) = grid%vegfra (tw_sc:tw_ec, tw_sr:tw_er) * 0.01 end if if(px_modis) then metcro2d_data_wrf (:,:,24) = grid%lai_px(tw_sc:tw_ec, tw_sr:tw_er) metcro2d_data_wrf (:,:,33) = grid%wwlt_px (tw_sc:tw_ec, tw_sr:tw_er) metcro2d_data_wrf (:,:,34) = grid%wfc_px (tw_sc:tw_ec, tw_sr:tw_er) metcro2d_data_wrf (:,:,35) = grid%wsat_px (tw_sc:tw_ec, tw_sr:tw_er) metcro2d_data_wrf (:,:,36) = grid%clay_px (tw_sc:tw_ec, tw_sr:tw_er) metcro2d_data_wrf (:,:,37) = grid%csand_px (tw_sc:tw_ec, tw_sr:tw_er) metcro2d_data_wrf (:,:,38) = grid%fmsand_px(tw_sc:tw_ec, tw_sr:tw_er) else metcro2d_data_wrf (:,:,24) = grid%lai(tw_sc:tw_ec, tw_sr:tw_er) metcro2d_data_wrf (:,:,33) = -9999. metcro2d_data_wrf (:,:,34) = -9999. metcro2d_data_wrf (:,:,35) = -9999. metcro2d_data_wrf (:,:,36) = -9999. metcro2d_data_wrf (:,:,37) = -9999. metcro2d_data_wrf (:,:,38) = -9999. end if !----------------------------------------------------------------------------- ! Compute total cloud fraction (CFRAC), cloud top layer height (CLDT), ! cloud bottom layer height (CLDB), and average liquid water content of ! cloud (WBAR) using a modified MCIP subroutine. !----------------------------------------------------------------------------- CALL bcldprc_ak (wrf_c_ncols, wrf_c_nrows, nlays, zf, metcro3d_data_wrf(:,:,:,4), & metcro3d_data_wrf(:,:,:,11), metcro3d_data_wrf(:,:,:,5), metcro2d_data_wrf(:,:,4), & dzf, presf, metcro2d_data_wrf(:,:,15), & metcro2d_data_wrf(:,:,17), metcro2d_data_wrf(:,:,16), metcro2d_data_wrf(:,:,18)) call se_wrf_cmaq_comm (twoway_mype, metcro2d_data_wrf, metcro2d_data_cmaq, & wrf_cmaq_ce_send_to, wrf_cmaq_ce_recv_from, & wrf_cmaq_ce_send_index_l, wrf_cmaq_ce_recv_index_l, 5) temp_rainnc = temp_rainnc + metcro2d_data_cmaq(:,:,13) if (wrf_convective_scheme) then temp_rainc = temp_rainc + metcro2d_data_cmaq(:,:,14) end if if (wrf_cmaq_option .gt. 1) then if ( .not. buf_write3 (fname, allvar3, jdate, jtime, metcro2d_data_cmaq ) ) then print *, ' Error: Could not write to file ', fname stop end if end if if ((wrf_cmaq_option == 1) .or. (wrf_cmaq_option == 3)) then if (write_to_physical_file) then do v = 1, n_metcro2d_var if (v == 13) then if ( .not. write3 (pfname, metcro2d_vlist(v), jdate, jtime, temp_rainnc(tsc_c:tec_c, tsr_c:ter_c) ) ) then print *, ' Error: Could not write to file ', pfname stop end if else if (v == 14) then if ( .not. write3 (pfname, metcro2d_vlist(v), jdate, jtime, temp_rainc(tsc_c:tec_c, tsr_c:ter_c) ) ) then print *, ' Error: Could not write to file ', pfname stop end if else if ( .not. write3 (pfname, metcro2d_vlist(v), jdate, jtime, metcro2d_data_cmaq(tsc_c:tec_c, tsr_c:ter_c, v) ) ) then print *, ' Error: Could not write to file ', pfname stop end if end if end do write_to_physical_file = .false. temp_rainnc = 0.0 temp_rainc = 0.0 end if end if CALL NEXTIME( JDATE, JTIME, cmaq_tstep) !------------------------------------------------------------------------------- CONTAINS SUBROUTINE aq_header (ncols, nrows, gncols, gnrows, nlays, sdate, stime, dx, dy, & delta_x, delta_y, map_proj, truelat1, truelat2, moad_cen_lat, & cen_lon, stand_lon, ptop, znw, lat_llc, lon_llc, wrf_lc_ref_lat) !------------------------------------------------------------------------------- ! Name: AQ Header ! Purpose: Fill M3IO header variables for CMAQ in WRF-CMAQ two-way system. ! Revised: 02 Apr 2007 Original version. (T. Otte) ! 11 Apr 2007 (David Wong) ! -- store info in variable ioapi_header !------------------------------------------------------------------------------- USE twoway_header_data_module use utilio_defn IMPLICIT NONE REAL, INTENT(IN) :: dx ! [m] REAL, INTENT(IN) :: dy ! [m] REAL, INTENT(IN) :: lat_llc REAL, INTENT(IN) :: lon_llc INTEGER, INTENT(IN) :: map_proj, delta_x, delta_y REAL, INTENT(IN) :: moad_cen_lat REAL, INTENT(IN) :: cen_lon INTEGER, INTENT(IN) :: ncols, gncols INTEGER, INTENT(IN) :: nrows, gnrows INTEGER, INTENT(IN) :: nlays INTEGER, INTENT(IN) :: sdate INTEGER, INTENT(IN) :: stime REAL, INTENT(IN) :: ptop ! model top [Pa] REAL, INTENT(IN) :: stand_lon REAL, INTENT(IN) :: truelat1 REAL, INTENT(IN) :: truelat2 REAL, INTENT(IN) :: znw ( : ) REAL, INTENT(IN) :: wrf_lc_ref_lat CHARACTER*16 :: coordnam_gd INTEGER :: gdtyp_gd INTEGER :: kvert REAL(8) :: p_alp_gd REAL(8) :: p_bet_gd REAL(8) :: p_gam_gd REAL :: vgtop_gd CHARACTER*16 :: vgtpun_gd REAL, ALLOCATABLE :: vglvs_gd ( : ) CHARACTER*16 :: vglvun_gd REAL, ALLOCATABLE :: x3face_gd ( : ) REAL :: xorig ! X-origin [m] REAL(8) :: xxx REAL :: yorig ! Y-origin [m] REAL(8) :: yyy REAL :: ref_lat REAL :: cntrx, cntry REAL :: xtemp, ytemp INTEGER :: GRID_SIZE, DOMAIN_TYPE, STAT logical :: use_hard_code_values !------------------------------------------------------------------------------- ! Define map projection identifiers for M3IO. !------------------------------------------------------------------------------- ioapi_header%ncols = ncols ioapi_header%nrows = nrows ioapi_header%nlays = nlays ioapi_header%nthik = 1 ioapi_header%sdate = sdate ioapi_header%stime = stime SELECT CASE ( map_proj ) CASE (1) ! Lambert conformal gdtyp_gd = lamgrd3 ! in PARMS3 p_alp_gd = DBLE( MIN(truelat1, truelat2) ) p_bet_gd = DBLE( MAX(truelat1, truelat2) ) p_gam_gd = DBLE( stand_lon ) CASE (2) ! polar stereographic gdtyp_gd = polgrd3 ! in PARMS3 p_alp_gd = DBLE( SIGN(1.0, moad_cen_lat) ) p_bet_gd = DBLE( truelat1 ) p_gam_gd = DBLE( stand_lon ) CASE (3) ! Mercator gdtyp_gd = EQMGRD3 ! in PARMS3 p_alp_gd = 0.0 p_bet_gd = 0.0 p_gam_gd = DBLE( stand_lon ) END SELECT ioapi_header%vtype = m3real ioapi_header%gdtyp = gdtyp_gd ioapi_header%p_alp = p_alp_gd ioapi_header%p_bet = p_bet_gd ioapi_header%p_gam = p_gam_gd !------------------------------------------------------------------------------- ! Define grid location for M3IO. Use center of projection as reference point ! for XCENT and YCENT. Compute XORIG and YORIG with respect to XCENT and YCENT. ! ! Note: After the call to LATLON_TO_XY, the REAL coordinates of the center of ! the projection (XXX, YYY) may not be "exact". Will need to adjust the ! values of XORIG and YORIG such that they are multiples of 0.5*DX and ! 0.5*DY. (This may not be a universal assumption, but it is a practical ! assumption for two-way modeling...at least initially.) ! ! Note: DX and DY are the same for our application. ! ! (XCENT_GD, YCENT_GD): ! For most projections, these are the longitude, -180 < X <= 180, and the ! latitude, -90 <= Y <= 90, for the center of the grid's respective Cartesian ! coordinate system. Units are meters. ! For UTM: UTM coordinates of the origin for offset UTM coordinates (or are ! (0,0) for Equator-based UTM coordinates). ! For Lat-Lon: unused !------------------------------------------------------------------------------- IF ( map_proj == 1 ) THEN ioapi_header%xcent = stand_lon IF ( wrf_lc_ref_lat > 0.0) THEN ref_lat = wrf_lc_ref_lat ELSE ref_lat = ( truelat1 + truelat2 ) * 0.5 ENDIF ioapi_header%ycent = ref_lat CALL ll2xy_lam (moad_cen_lat, cen_lon, truelat1, truelat2, stand_lon, ref_lat, xxx, yyy) ELSE IF ( map_proj == 2 ) THEN ioapi_header%xcent = stand_lon ioapi_header%ycent = moad_cen_lat CALL ll2xy_ps (moad_cen_lat, cen_lon, truelat1, cen_lon, xxx, yyy) ELSE IF ( map_proj == 3 ) THEN ioapi_header%xcent = stand_lon ioapi_header%ycent = 0.0 ELSE write (6, *) ' Unknown projection ' END IF nthik = 1 cntrx = FLOAT(gncols - 1)/2.0 + 1.0 cntry = FLOAT(gnrows - 1)/2.0 + 1.0 xorig = xxx - DBLE( cntrx - FLOAT(delta_x+nthik) ) * DBLE(dx) yorig = yyy - DBLE( cntry - FLOAT(delta_y+nthik) ) * DBLE(dy) ! xorig = xxx - DBLE( cntrx - 0.5 ) * DBLE(dx) ! yorig = yyy - DBLE( cntry - 0.5 ) * DBLE(dy) ! IF ( wrf_lc_ref_lat > -999.0 ) THEN ! adjust XORIG and YORIG IF ( moad_cen_lat > -999.0 ) THEN ! adjust XORIG and YORIG xtemp = xorig / 5.0 ytemp = yorig / 5.0 xtemp = FLOAT(NINT(xtemp)) ytemp = FLOAT(NINT(ytemp)) xorig = xtemp * 5.0 yorig = ytemp * 5.0 ENDIF ioapi_header%xorig = xorig ioapi_header%yorig = yorig !------------------------------------------------------------------------------- ! Fill horizontal grid spacing. !------------------------------------------------------------------------------- ioapi_header%xcell = dx ioapi_header%ycell = dy !------------------------------------------------------------------------------- ! Define vertical grid. !------------------------------------------------------------------------------- ioapi_header%vgtyp = vgwrfem ! in PARMS3 ioapi_header%vgtop = ptop ioapi_header%vglvs(1:nlays+1) = znw ! ioapi_header%vglvs(1:nlays) = znw ! ioapi_header%vglvs(nlays+1) = 0.0 !------------------------------------------------------------------------------- ! Define other identifiers. !------------------------------------------------------------------------------- ioapi_header%gdnam = "WRF-CMAQ" END SUBROUTINE aq_header !------------------------------------------------------------------------------- SUBROUTINE ll2xy_lam (phi, lambda, phi1, phi2, lambda0, phi0, xx, yy) !------------------------------------------------------------------------------- ! Name: Latitude-Longitude to (X,Y) for Lambert Conformal Projection ! Purpose: Determines secant or tangent Lambert conformal case, and calls ! appropriate routine. ! Revised: 03 Jun 2008 Original version. (T. Otte) ! 26 Nov 2008 Added argument for reference latitude, PHI0. ! Prevent users from having tangent Lambert conformal ! case until it can be tested with the Spatial ! Allocator. (Known problem is that the Spatial ! Allocator does not work properly when the ! reference latitude is equal to the first true ! latitude. Work-around is to set reference latitude ! to average of true latitudes for Lambert conformal. ! But average of true latiudes for tangent Lambert ! conformal case is the first true latitude, which ! will result in the same problem as solution used ! in MCIPv3.4.) (T. Otte) !------------------------------------------------------------------------------- IMPLICIT NONE REAL, INTENT(IN) :: lambda ! longitude [deg] REAL, INTENT(IN) :: lambda0 ! standard longitude [deg] REAL, INTENT(IN) :: phi ! latitude [deg] REAL, INTENT(IN) :: phi0 ! reference latitude [deg] REAL, INTENT(IN) :: phi1 ! true latitude 1 [deg] REAL, INTENT(IN) :: phi2 ! true latitude 2 [deg] REAL(8), INTENT(OUT) :: xx ! X-coordinate from origin REAL(8), INTENT(OUT) :: yy ! Y-coordinate from origin REAL, PARAMETER :: phitol = 0.001 ! tolerance [deg] CHARACTER*16, PARAMETER :: pname = 'LL2XY_LAM' !------------------------------------------------------------------------------- ! Determine whether Lambert conformal is tangent or secant. !------------------------------------------------------------------------------- IF ( ABS( phi1 - phi2 ) < phitol ) THEN ! tangent case WRITE (6,9000) phi1, phi2 PRINT *, 'Error: Lambert conformal is tangent ' STOP ELSE ! secant case CALL ll2xy_lam_sec (phi, lambda, phi1, phi2, lambda0, phi0, xx, yy) ENDIF RETURN !------------------------------------------------------------------------------- ! Error-handling section. !------------------------------------------------------------------------------- 9000 FORMAT (/, 1x, 70('*'), & /, 1x, '*** SUBROUTINE: LL2XY_LAM', & /, 1x, '*** TANGENT LAMBERT CONFORMAL PROJECTION DETECTED', & /, 1x, '*** TRUE LATITUDES = ', f8.3, 2x, f8.3, & /, 1x, '*** MAY NOT WORK PROPERLY IN SPATIAL ALLOCATOR', & /, 1x, '*** ...PLEASE SUBMIT BUGZILLA TICKET TO INVESTIGATE', & /, 1x, 70('*')) END SUBROUTINE ll2xy_lam !------------------------------------------------------------------------------- SUBROUTINE ll2xy_lam_sec (phi, lambda, phi1, phi2, lambda0, phi0, xx, yy) !------------------------------------------------------------------------------- ! Name: Latitude-Longitude to (X,Y) for Lambert Conformal Projection ! Purpose: Calcluates (X,Y) from origin for a given latitude-longitude pair ! and Lambert conformal projection information for secant case. ! Notes: Equations taken from "Map Projections: Theory and Applications" ! by Frederick Pearson, II (1990), pp. 181-182. ! Revised: 03 Jun 2008 Original version. (T. Otte) ! 04 Dec 2008 Added argument for reference latitude, PHI0. ! Changed routine so it is no longer hard-wired to ! have a reference latitude at the first true ! latitude. (T. Otte and J. Pleim) ! 17 Sep 2009 Corrected inline comments associated with definitions ! of RHO and RHO0. Corrected calculation of PSI (with ! no impact on results). (T. Otte) !------------------------------------------------------------------------------- IMPLICIT NONE REAL, INTENT(IN) :: lambda ! longitude [deg] REAL, INTENT(IN) :: lambda0 ! standard longitude [deg] REAL, INTENT(IN) :: phi ! latitude [deg] REAL, INTENT(IN) :: phi0 ! reference latitude [deg] REAL, INTENT(IN) :: phi1 ! true latitude 1 [deg] REAL, INTENT(IN) :: phi2 ! true latitude 2 [deg] REAL(8), INTENT(OUT) :: xx ! X-coordinate from origin REAL(8), INTENT(OUT) :: yy ! Y-coordinate from origin REAL, PARAMETER :: rearth = 6370000.0 ! [m] REAL(8) :: deg2rad ! convert degrees to radians REAL(8) :: dlambda ! delta lambda REAL(8) :: drearth ! double-precision radius of earth [m] REAL(8) :: phirad ! latitude [rad] REAL(8) :: phi0rad ! reference latitude [rad] REAL(8) :: phi1rad ! true latitude 1 [rad] REAL(8) :: phi2rad ! true latitude 2 [rad] REAL(8) :: pi REAL(8) :: piover4 ! pi/4 REAL(8) :: psi ! auxiliary function REAL(8) :: rho ! polar radius to latitude phi REAL(8) :: rho0 ! polar radius to origin REAL(8) :: term REAL(8) :: term0 REAL(8) :: term1 REAL(8) :: term2 REAL(8) :: theta ! polar angle REAL(8) :: sinphi0 ! cone constant !------------------------------------------------------------------------------- ! Compute constants. !------------------------------------------------------------------------------- piover4 = DATAN(1.0d0) pi = 4.0d0 * piover4 deg2rad = pi / 1.8d2 drearth = DBLE(rearth) !------------------------------------------------------------------------------- ! Compute cone constant, SINPHI0. ! Note: PHI0 is the reference latitude, which is user-defined. It is NOT ! used in the calculation of SINPHI0, which is the cone constant. !------------------------------------------------------------------------------- phi0rad = DBLE(phi0) * deg2rad ! convert PHI0 from degrees to radians phi1rad = DBLE(phi1) * deg2rad ! convert PHI1 from degrees to radians phi2rad = DBLE(phi2) * deg2rad ! convert PHI2 from degrees to radians term0 = DTAN (piover4 - phi0rad/2.0d0) term1 = DTAN (piover4 - phi1rad/2.0d0) term2 = DTAN (piover4 - phi2rad/2.0d0) sinphi0 = DLOG ( DCOS(phi1rad) / DCOS(phi2rad) ) sinphi0 = sinphi0 / DLOG (term1 / term2) !------------------------------------------------------------------------------- ! Compute polar angle, THETA. !------------------------------------------------------------------------------- dlambda = DBLE(lambda - lambda0) * deg2rad theta = dlambda * sinphi0 !------------------------------------------------------------------------------- ! Compute polar radius to origin, RHO0, where origin is at PHI0. !------------------------------------------------------------------------------- psi = drearth * DCOS(phi1rad) / sinphi0 / (term1**sinphi0) rho0 = psi * (term0**sinphi0) !------------------------------------------------------------------------------- ! Compute polar radius to latitude PHI, RHO. !------------------------------------------------------------------------------- phirad = DBLE(phi) * deg2rad ! convert PHI from degrees to radians term = DTAN (piover4 - phirad/2.0d0) rho = psi * (term**sinphi0) !------------------------------------------------------------------------------- ! Compute Cartesian coordinates, XX and YY. !------------------------------------------------------------------------------- xx = rho * DSIN(theta) yy = rho0 - rho * DCOS(theta) END SUBROUTINE ll2xy_lam_sec SUBROUTINE ll2xy_ps (phi, lambda, phi1, lambda0, xx, yy) !------------------------------------------------------------------------------- ! Name: Latitude-Longitude to (X,Y) for Polar Stereographic Projection ! Purpose: Calcluates (X,Y) from origin for a given latitude-longitude pair ! and polar stereographic projection information. ! Notes: Adapted from equations found at http://starbase.jpl.nasa.gov/ ! mgn-v-rdrs-5-dvdr-v1.0/gvdr0001/catalog/dsmp.lbl. ! Revised: 28 Sep 2009 Original version. (T. Otte) !------------------------------------------------------------------------------- IMPLICIT NONE REAL, INTENT(IN) :: lambda ! longitude [deg] REAL, INTENT(IN) :: lambda0 ! standard longitude [deg] REAL, INTENT(IN) :: phi ! latitude [deg] REAL, INTENT(IN) :: phi1 ! true latitude 1 [deg] REAL(8), INTENT(OUT) :: xx ! X-coordinate from origin REAL(8), INTENT(OUT) :: yy ! Y-coordinate from origin REAL, PARAMETER :: rearth = 6370000.0 ! [m] REAL(8) :: deg2rad ! convert degrees to radians REAL(8) :: drearth ! earth radius [m] REAL(8) :: hemi ! +/-1 for Northern/Southern Hemis REAL(8) :: phirad ! latitude [rad] REAL(8) :: phi1rad ! true latitude 1 [rad] REAL(8) :: pi REAL(8) :: piover4 ! pi/4 REAL(8) :: scalefac REAL(8) :: sigma ! image scale REAL(8) :: theta ! polar angle REAL(8) :: tt !------------------------------------------------------------------------------- ! Compute constants. !------------------------------------------------------------------------------- piover4 = DATAN(1.0d0) pi = 4.0d0 * piover4 deg2rad = pi / 1.8d2 drearth = DBLE(rearth) !------------------------------------------------------------------------------- ! Compute image scale, SIGMA. !------------------------------------------------------------------------------- hemi = DSIGN (1.0d0, DBLE(phi1)) phi1rad = DBLE(phi1) * deg2rad ! convert PHI1 from degrees to radians phirad = DBLE(phi) * deg2rad ! convert PHI from degrees to radians !!!TLO sigma = (1.0d0 + DSIN(phi1rad)) / (1.0d0 + DSIN(pi)) ! at pole sigma = (1.0d0 + DSIN(phi1rad)) / 2.0d0 * hemi scalefac = drearth / sigma tt = DTAN ( piover4 - phirad/2.0d0) !------------------------------------------------------------------------------- ! Compute polar angle, THETA. !------------------------------------------------------------------------------- theta = DBLE(lambda - lambda0) * deg2rad !------------------------------------------------------------------------------- ! Compute Cartesian coordinates, XX and YY. !------------------------------------------------------------------------------- xx = 2.0d0 * scalefac * tt * DSIN(theta) yy = -hemi * 2.0d0 * scalefac * tt * DCOS(theta) END SUBROUTINE ll2xy_ps END SUBROUTINE aqprep ================================================ FILE: CCTM/src/twoway/twoway_aqprep_util.F90 ================================================ SUBROUTINE bcldprc_ak (wrf_ncols, wrf_nrows, nlays, & zf, ta, pres, qv, pbl, dzf, presf, & cfrac, cldb, cldt, wbar) !------------------------------------------------------------------------------- ! Name: Cloud Processor for Anthes-Kuo Scheme ! Purpose: Determine the base and top of cloudy layers, as well as the mean ! water content and fractional area of cloud coverage using JEP H54 ! cloud and photolysis scheme. (ANTHES-KUO scheme) ! Revised: 20 Mar 1991 Original version. (CJW) ! 27 Oct 1995 Modified. (C. Ingram) ! 05 Feb 1997 Updated for Models-3. (D. Byun) ! 04 Feb 1998 Changed include method nonglobal includes. (D. Byun) ! 10 Sep 2001 Converted to free-form f90. Changed CCOV to ! allocatable. Changed vertical dimension of CCOV ! from MAXK to METLAY. (T. Otte) ! 27 Feb 2002 Corrected bug that persisted cloud base arrays when ! clouds had dissipated. (T. Otte and S. Roselle) ! 08 Jul 2004 Changed local array allocation to occur only on ! initial call to subroutine to avoid memory ! fragmentation. Removed XFLAGS. (T. Otte) ! 04 Apr 2007 Modified for AQPREP. Combined two sets of column and ! row loops into a single loop. Eliminated low, middle, ! and high cloud calculation. Converted CCOV to a 1D ! array. Changed constants to WRF-based names (and ! values). Changed internal variable names to match ! AQPREP names. Added argument list. ! (T. Otte) !------------------------------------------------------------------------------- USE module_model_constants IMPLICIT NONE INCLUDE SUBST_CONST INTEGER, INTENT(IN) :: wrf_ncols INTEGER, INTENT(IN) :: wrf_nrows INTEGER, INTENT(IN) :: nlays REAL, INTENT(IN) :: zf ( : , : , : ) REAL, INTENT(IN) :: ta ( : , : , : ) REAL, INTENT(IN) :: pres ( : , : , : ) REAL, INTENT(IN) :: qv ( : , : , : ) REAL, INTENT(IN) :: pbl ( : , : ) REAL, INTENT(IN) :: dzf ( : , : , : ) REAL, INTENT(IN) :: presf ( : , : , : ) REAL, INTENT(OUT) :: cfrac ( : , : ) REAL, INTENT(OUT) :: cldb ( : , : ) REAL, INTENT(OUT) :: cldt ( : , : ) REAL, INTENT(OUT) :: wbar ( : , : ) INTEGER :: c REAL :: cbase REAL :: ccmax REAL, ALLOCATABLE :: ccov ( : ) REAL :: ctop REAL :: dp REAL :: dtdp REAL :: e_aerk REAL :: esat1 REAL :: frac INTEGER :: iflag INTEGER :: itr INTEGER :: k INTEGER :: kbase INTEGER :: kct INTEGER :: kmx INTEGER :: ktop REAL, PARAMETER :: mvoma = 0.622 REAL :: pbar REAL :: pbase REAL :: plcl REAL :: prs REAL :: qlcl REAL :: qsat REAL :: qwat REAL :: qwsa INTEGER :: r REAL :: rh REAL :: rhc REAL :: sg1 REAL :: sumz REAL :: tad REAL :: tbar REAL :: tbase REAL :: tempc REAL :: tlcl REAL :: twc ! REAL, PARAMETER :: vp0 = svp1 * 1000.0 ! cb -> Pa REAL :: wl REAL :: wtbar REAL :: x1 !------------------------------------------------------------------------------- ! Statement functions. !------------------------------------------------------------------------------- ! Saturation vapor pressure [Pa] e_aerk(tempc) = vp0 * EXP( 17.625 * tempc / ( 243.04 + tempc ) ) qsat(esat1,prs) = esat1 * mvoma / ( prs - esat1 ) !------------------------------------------------------------------------------- ! Initialize all cloud variables. !------------------------------------------------------------------------------- IF ( .NOT. ALLOCATED (ccov) ) THEN ALLOCATE ( ccov ( nlays ) ) ENDIF wbar (:,:) = 0.0 cldb (:,:) = 0.0 cldt (:,:) = 0.0 cfrac (:,:) = 0.0 ccov (:) = 0.0 !------------------------------------------------------------------------------- ! Loop over grid points to compute cloud parameters. !------------------------------------------------------------------------------- DO c = 1, wrf_ncols DO r = 1, wrf_nrows !------------------------------------------------------------------------- ! Compute cloud coverage. !------------------------------------------------------------------------- kmx = 1 DO k = 1, nlays ! Define RH and critical RH of all layers. rh = qv(c,r,k) / qsat( e_aerk( ta(c,r,k)-svpt0 ), pres(c,r,k) ) rh = MIN(rh,1.0) ! Set RHC to at least 98% in PBL - JEP 5/91 ! IF ( zf(c,r,k-1) < pbl(c,r) ) THEN IF ( zf(c,r,k) < pbl(c,r) ) THEN ! zf (1:35) due to f90 rhc = 0.98 kmx = k IF ( rh > rhc ) THEN ! CBL mixing induced clouds should not exceed the frac area of ! the updrafts at top of cbl, les estimates are ~34% ! (Schumann 89, and Wyngaard and Brost 84) ccov(k) = 0.34 * ( rh - rhc ) / ( 1.0 - rhc ) ELSE ccov(k) = 0.0 ENDIF ELSE sg1 = pres(c,r,k) / pres(c,r,kmx) rhc = 1.0 - ( 2.0 * sg1 * (1.0-sg1) * (1.0 + 1.732*(sg1-0.5)) ) IF ( rh > rhc ) THEN ccov(k) = ( (rh - rhc)/(1.0 - rhc) )**2 ! Geleyn et al., 1982 ELSE ccov(k) = 0.0 ENDIF ENDIF ccov(k) = MAX( MIN( ccov(k), 1.0 ), 0.0 ) ENDDO !------------------------------------------------------------------------- ! Locate cloud top and cloud bottom, and compute average liquid water ! content. !------------------------------------------------------------------------- kct = 0 kbase = 0 ktop = 0 ccmax = 0.0 ! Determine level of highest rh relative to RHC. DO k = 2, nlays-1 IF ( ccov(k) > ccmax ) THEN ccmax = ccov(k) kct = k ENDIF ENDDO frac = 0.0 cbase = 0.0 ctop = 0.0 wtbar = 0.0 sumz = 0.0 ! Exit with no cloud values if RH < RHC at all levels. IF ( ccmax < 0.01 ) THEN cldt(c,r) = 0.0 cldb(c,r) = 0.0 CYCLE ENDIF ! Look for cloud top and base layer up and down from level of max RH. top: DO k = kct, nlays ktop = k - 1 IF ( ccov(k) < 0.5*ccmax ) EXIT top ENDDO top bottom: DO k = kct, 1, -1 kbase = k + 1 IF ( ccov(k) < 0.5*ccmax ) EXIT bottom ENDDO bottom DO k = 1, ktop IF ( k < kbase ) cbase = cbase + dzf(c,r,k) ! <-- check indexing ctop = ctop + dzf(c,r,k) ! TLO 4 Apr 07 ENDDO cldt(c,r) = ctop cldb(c,r) = cbase ! We need pres. at the bottom of the lowest layer containing clouds. ! Temp. and qv at cloud base are for mid layer values. plcl = presf(c,r,kbase-1) tlcl = ( plcl - pres(c,r,kbase) ) / & ( pres(c,r,kbase-1) - pres(c,r,kbase) ) * & ( ta (c,r,kbase-1) - ta (c,r,kbase) ) + & ta(c,r,kbase) qlcl = qsat( e_aerk( tlcl - svpt0 ), plcl ) iflag = 0 pbase = plcl tbase = tlcl ! Follow moist adiabat up. DO k = kbase, ktop dp = pbase - pres(c,r,k) pbar = pbase - dp / 2.0 tbar = tbase DO itr = 1, 5 x1 = xlv * qsat( e_aerk( tbar-svpt0 ), pbar ) / ( r_d * tbar ) dtdp = r_d * tbar / pbar / cpd * ( ( 1.0 + x1 ) / & ( 1.0 + mvoma * xlv / cpd / tbar * x1 ) ) tad = tbase - dp * dtdp tbar = ( tad + tbase ) * 0.5 ENDDO ! Determine water content by fraction of adiabatic. tad = MAX(tad, 150.0) IF ( tad > ta(c,r,k) ) iflag = 1 ! Pressure in Pascal = cb*1000 wl = 0.7 * EXP( ( pres(c,r,k) - plcl ) / 8000.0 ) + 0.2 qwsa = qsat( e_aerk(tad - svpt0), pres(c,r,k) ) qwat = wl * ( qlcl - qwsa ) qwat = MAX(qwat, 0.0) twc = qwat * pres(c,r,k) * 1.0e3 / r_d / ta(c,r,k) wtbar = wtbar + twc * dzf(c,r,k) frac = frac + ccov(k) * dzf(c,r,k) sumz = sumz + dzf(c,r,k) tbase = tad pbase = pres(c,r,k) ENDDO cfrac(c,r) = frac / sumz wbar (c,r) = wtbar / sumz IF ( cfrac(c,r) < 0.001 ) THEN cldt(c,r) = 0.0 cldb(c,r) = 0.0 ENDIF IF ( wbar(c,r) == 0.0 ) THEN cldt (c,r) = 0.0 cldb (c,r) = 0.0 cfrac(c,r) = 0.0 CYCLE ENDIF ! If stable environment, use alternate water content expression. IF ( iflag == 0 ) THEN wtbar = 0.0 DO k = kbase, ktop twc = 50.0 * qv(c,r,k) * pres(c,r,k) / r_d / ta(c,r,k) wtbar = wtbar + twc * dzf(c,r,k) ENDDO wbar(c,r) = wtbar / sumz ENDIF ENDDO ENDDO END SUBROUTINE bcldprc_ak ================================================ FILE: CCTM/src/twoway/twoway_cgrid_aerosol_spc_map_module.F90 ================================================ !=============================================================================== ! Purpose: Define the mapping between CMAQ species and aerosol information, water ! soluable, water insoluable, elementary carbon, sea salt, and water, ! that will affect the radiation calculation ! ! Revised: 11 Aug 2011 Original version. David Wong ! 21 Oct 2015 Updated water insoluble species list ! 22 Nov 2016 Constructed water soluble and insoluble list dynamically ! based on a given chemical mechanism and AE scheme ! 01 Aug 2019 -- renamed ASEACATK to ASEACAT ! -- added a H2O species, AORGH2OJ !=============================================================================== module twoway_cgrid_aerosol_spc_map_module use aero_data ! water soluble integer :: num_ws_spc(3) integer, allocatable :: ws_spc_index(:,:) ! water insoluble integer :: num_wi_spc(3) integer, allocatable :: wi_spc_index(:,:) ! elmental carbon integer, parameter :: num_ec_spc = 2 integer :: ec_spc_index(num_ec_spc) character (len = 16), parameter :: ec_spc(num_ec_spc) = & (/ 'AECI ', 'AECJ ' & /) ! ANAK = ANAK ! NUMATKN = VAT0 ! NUMACC = VAC0 ! NUMCOR = VCO0 ! sea salt integer, parameter :: num_ss_spc = 5 integer :: ss_spc_index(num_ss_spc) character (len = 16), parameter :: ss_spc(num_ss_spc) = & (/ 'ANAJ ', 'ACLJ ', & 'ACLK ', 'ASO4K ', & 'ASEACAT ' & /) ! water integer, parameter :: num_h2o_spc = 4 integer :: h2o_spc_index(num_h2o_spc) character (len = 16), parameter :: h2o_spc(num_h2o_spc) = & (/ 'AH2OI ', 'AH2OJ ', & 'AH2OK ', 'AORGH2OJ ' & /) INTEGER, PARAMETER :: num_twoway_ae_cmaq_spc = 44 INTEGER, PARAMETER :: num_twoway_ae_cmaq_spc_other = 12 INTEGER, PARAMETER :: n_feedback_var = 22 + num_twoway_ae_cmaq_spc + 3 ! for feedback CHARACTER (LEN = 16), PARAMETER :: feedback_vlist(n_feedback_var) = & (/ 'WS_1 ', 'WS_2 ', 'WS_3 ', & 'IS_1 ', 'IS_2 ', 'IS_3 ', & 'EC_1 ', 'EC_2 ', 'EC_3 ', & 'SEASALT_1 ', 'SEASALT_2 ', 'SEASALT_3 ', & 'WATER_1 ', 'WATER_2 ', 'WATER_3 ', & 'DIAMETERS_1 ', 'DIAMETERS_2 ', 'DIAMETERS_3 ', & 'SD_1 ', 'SD_2 ', 'SD_3 ', & 'O3 ', & 'ASO4I ', 'ASO4J ', 'ASO4K ', 'ANO3I ', 'ANO3J ', & 'ANO3K ', 'ANH4I ', 'ANH4J ', 'ANH4K ', 'AALK1J ', & 'AALK2J ', & 'AXYL1J ', 'AXYL2J ', 'AXYL3J ', 'ATOL1J ', 'ATOL2J ', & 'ATOL3J ', 'ABNZ1J ', 'ABNZ2J ', 'ABNZ3J ', 'ATRP1J ', & 'ATRP2J ', 'AISO1J ', 'AISO2J ', 'ASQTJ ', 'AISO3J ', & 'AOLGAJ ', 'AOLGBJ ', 'AORGCJ ', 'AORGPAI ', 'AORGPAJ ', & 'AECI ', 'AECJ ', 'AOTHRI ', 'AOTHRJ ', 'ANAI ', & 'ANAJ ', 'ANAK ', 'ACLI ', 'ACLJ ', 'ACLK ', & 'ACORSK ', 'ASOILJ ', 'ASOIL ', & 'PMASSAT ', 'PMASSAC ', 'PMASSCO ' & /) ! this is for aerosol indirect effect to map cgrid species to wrf character (len = 16), parameter :: twoway_ae_cmaq_spc_name (num_twoway_ae_cmaq_spc) = & (/ 'ASO4I ', 'ASO4J ', 'ASO4K ', 'ANO3I ', 'ANO3J ', & 'ANO3K ', 'ANH4I ', 'ANH4J ', 'ANH4K ', 'AALK1J ', & 'AALK2J ', & 'AXYL1J ', 'AXYL2J ', 'AXYL3J ', 'ATOL1J ', 'ATOL2J ', & 'ATOL3J ', 'ABNZ1J ', 'ABNZ2J ', 'ABNZ3J ', 'ATRP1J ', & 'ATRP2J ', 'AISO1J ', 'AISO2J ', 'ASQTJ ', 'AISO3J ', & 'AOLGAJ ', 'AOLGBJ ', 'AORGCJ ', 'AORGPAI ', 'AORGPAJ ', & 'AECI ', 'AECJ ', 'AOTHRI ', 'AOTHRJ ', 'ANAI ', & 'ANAJ ', 'ANAK ', 'ACLI ', 'ACLJ ', 'ACLK ', & 'ACORSK ', 'ASOILJ ', 'ASOILK ' & /) integer :: twoway_ae_cmaq_spc_name_index (num_twoway_ae_cmaq_spc) ! this is for aerosol indirect effect to map cgrid species to wrf character (len = 16), parameter :: twoway_ae_cmaq_spc_name_other (num_twoway_ae_cmaq_spc_other) = & (/ 'APOCI ', 'APNCOMI ', 'APOCJ ', 'APNCOMJ ', 'ASEACAT ', & 'ASOILK ', 'ACORSK ', 'AALJ ', 'ASIJ ', 'ACAJ ', & 'AFEJ ', 'ATIJ ' & /) integer :: twoway_ae_cmaq_spc_name_other_index (num_twoway_ae_cmaq_spc_other) contains integer function find_index (vname) result (index) implicit none character (len = 16), intent(in) :: vname logical :: found integer :: s, m found = .false. s = 0 do while ((s < n_aerospc) .and. (.not. found)) s = s + 1 m = 0 do while ((m < n_mode) .and. (.not. found)) m = m + 1 if (aerospc(s)%name(m) == vname) then found = .true. index = aerospc_map(s, m) end if end do end do if (.not. found) then print *, ' Error: variable ', trim(vname), ' not found ' stop end if end function find_index end module twoway_cgrid_aerosol_spc_map_module ================================================ FILE: CCTM/src/twoway/twoway_data_module.F90 ================================================ !=============================================================================== ! Purpose: Define general data structure for the twoway model ! ! Revised: April 2007 Original version. David Wong ! Revised: April 7, 2016 David Wong: Added variable mminlu ! Revised: Jan. 11, 2018 David Wong: Added variable convective_scheme ! 31 Jan 2019 (David Wong) ! -- adopted the idea to process all twoway related environment ! variables in one place ! 01 Aug 2019 (David Wong) ! -- renamed convective_scheme to wrf_convective_scheme ! 26 Jul 2022 (David Wong) ! -- Added a prefix tw_ for these variables: sc, ec, sr, er sc_d, ec_d, ! sr_d, and er_d to avoid naming conflicts !=============================================================================== module twoway_data_module LOGICAL :: indirect_effect CHARACTER (LEN = 40) :: mminlu INTEGER :: num_land_cat INTEGER :: twoway_mype, twoway_nprocs INTEGER :: wrf_c_ncols, wrf_c_nrows, cmaq_c_ncols, cmaq_c_nrows INTEGER :: wrf_d_ncols, wrf_d_nrows, cmaq_d_ncols, cmaq_d_nrows INTEGER, ALLOCATABLE :: wrf_c_domain_map (:, :, :) INTEGER, ALLOCATABLE :: wrf_d_domain_map (:, :, :) INTEGER, ALLOCATABLE :: cmaq_c_domain_map (:, :, :) INTEGER, ALLOCATABLE :: cmaq_d_domain_map (:, :, :) INTEGER, ALLOCATABLE :: cmaq_ce_domain_map (:, :, :) INTEGER, ALLOCATABLE :: cmaq_de_domain_map (:, :, :) integer :: cmaq_c_col_dim integer :: cmaq_c_row_dim integer :: wrf_c_col_dim integer :: wrf_c_row_dim integer :: delta_x, delta_y ! integer :: wrf_cmaq_freq integer :: cmaq_sdate, cmaq_stime, file_time_step ! cmaq_c stands for cmaq cross grid ! cmaq_d stands for cmaq dot grid ! cmaq_ce stands for cmaq cross grid extension, +1 in four directions ! cmaq_de stands for cmaq dot grid extension, +1 in four directions integer, pointer :: wrf_cmaq_c_send_to (:,:), wrf_cmaq_c_recv_from (:,:) integer, pointer :: wrf_cmaq_c_send_index_g (:,:,:), wrf_cmaq_c_recv_index_g (:,:,:) integer, pointer :: wrf_cmaq_c_send_index_l (:,:,:), wrf_cmaq_c_recv_index_l (:,:,:) integer, pointer :: wrf_cmaq_d_send_to (:,:), wrf_cmaq_d_recv_from (:,:) integer, pointer :: wrf_cmaq_d_send_index_g (:,:,:), wrf_cmaq_d_recv_index_g (:,:,:) integer, pointer :: wrf_cmaq_d_send_index_l (:,:,:), wrf_cmaq_d_recv_index_l (:,:,:) integer, pointer :: wrf_cmaq_ce_send_to (:,:), wrf_cmaq_ce_recv_from (:,:) integer, pointer :: wrf_cmaq_ce_send_index_g (:,:,:), wrf_cmaq_ce_recv_index_g (:,:,:) integer, pointer :: wrf_cmaq_ce_send_index_l (:,:,:), wrf_cmaq_ce_recv_index_l (:,:,:) integer, pointer :: wrf_cmaq_de_send_to (:,:), wrf_cmaq_de_recv_from (:,:) integer, pointer :: wrf_cmaq_de_send_index_g (:,:,:), wrf_cmaq_de_recv_index_g (:,:,:) integer, pointer :: wrf_cmaq_de_send_index_l (:,:,:), wrf_cmaq_de_recv_index_l (:,:,:) integer, pointer :: cmaq_wrf_c_send_to (:,:), cmaq_wrf_c_recv_from (:,:) integer, pointer :: cmaq_wrf_c_send_index_g (:,:,:), cmaq_wrf_c_recv_index_g (:,:,:) integer, pointer :: cmaq_wrf_c_send_index_l (:,:,:), cmaq_wrf_c_recv_index_l (:,:,:) INTEGER :: tw_sc, tw_ec, tw_sr, tw_er INTEGER :: tw_sc_d, tw_ec_d, tw_sr_d, tw_er_d real :: WRF_LC_REF_LAT logical :: wrf_convective_scheme, & cmaq_wrf_feedback, & ! flag to indicate CMAQ provides aerosol information back to WRF sd_time_series, & ! create_physical_file, & ! run_cmaq_driver, & ! wrf_restart, & turn_on_pv logical :: wrf_lightning_assim = .false. character (len = 16) :: grid_name_str character (len = 500) :: griddesc_fname end module twoway_data_module ================================================ FILE: CCTM/src/twoway/twoway_feedback.F90 ================================================ SUBROUTINE feedback_setup ( jdate, jtime, tstep ) !=============================================================================== ! Purpose: Setup feedback buffer file ! ! Revised: April 2007 Original version. David Wong ! Oct. 2015 -- put in error checking and updated water insoluble ! calculation ! -- commented out indirect code ! -- used loop structure rather than explicit list ! Jan. 2016 -- resized the first dimension of cmaq_wrf_c_send_to, ! cmaq_wrf_c_recv_from, cmaq_wrf_c_send_index_g, ! cmaq_wrf_c_send_index_l, cmaq_wrf_c_recv_index_g, ! and cmaq_wrf_c_recv_index_l ! 22 Nov 2016 Constructed water soluble and insoluble list dynamically ! based on a given chemical mechanism and AE scheme ! 17 Jan 2017 Replace 3 with n_mode for robustness ! 31 Jan 2019 (David Wong) ! -- adopted the idea to process all twoway related environment ! variables in one place ! 01 Aug 2019 (David Wong) ! -- updated abort message ! 26 Jul 2022 (David Wong) ! -- Added a prefix tw_ for these variables: sc, ec, sr, er sc_d, ec_d, ! sr_d, and er_d to avoid naming conflicts !=============================================================================== USE twoway_header_data_module USE twoway_met_param_module USE twoway_data_module USE twoway_util_module USE twoway_cgrid_aerosol_spc_map_module USE aero_data use cgrid_spcs use utilio_defn IMPLICIT NONE INTEGER, INTENT(IN) :: jdate, jtime, tstep CHARACTER (LEN = 16), PARAMETER :: pname = 'feedback_setup ' CHARACTER (LEN = 16) :: feedback_fname integer :: i, j, k, n, stat, slen logical :: found character (len = 4), save :: pe_str allocate (cmaq_wrf_c_send_to(0:9, 0:twoway_nprocs-1), & cmaq_wrf_c_recv_from(0:9, 0:twoway_nprocs-1), & cmaq_wrf_c_send_index_g(9*3, 2, 0:twoway_nprocs-1), & ! starting and ending dimension, dimenionality cmaq_wrf_c_send_index_l(9*3, 2, 0:twoway_nprocs-1), & ! starting and ending dimension, dimenionality cmaq_wrf_c_recv_index_g(9*3, 2, 0:twoway_nprocs-1), & ! starting and ending dimension, dimenionality cmaq_wrf_c_recv_index_l(9*3, 2, 0:twoway_nprocs-1), & ! starting and ending dimension, dimenionality stat=stat) if (stat .ne. 0) then print *, ' Error: Allocating communication indices arrays' stop end if cmaq_wrf_c_send_to = wrf_cmaq_c_recv_from cmaq_wrf_c_recv_from = wrf_cmaq_c_send_to cmaq_wrf_c_send_index_l = wrf_cmaq_c_recv_index_l cmaq_wrf_c_recv_index_l = wrf_cmaq_c_send_index_l write (pe_str, 11) '_', twoway_mype 11 format (a1, i3.3) feedback_fname = 'feed_back' // pe_str call aq_set_ioapi_header ('C', ioapi_header%ncols, ioapi_header%nrows) xorig3d = ioapi_header%xorig - ioapi_header%xcell yorig3d = ioapi_header%yorig - ioapi_header%ycell nlays3d = ioapi_header%nlays nvars3d = n_feedback_var vname3d(1:nvars3d) = feedback_vlist units3d(1:nvars3d) = '' tstep3d = tstep vtype3d(1:nvars3d) = ioapi_header%vtype sdate3d = jdate stime3d = jtime if ( .not. open3 (feedback_fname, FSRDWR3, pname) ) then print *, ' Error: Could not open file ', trim(feedback_fname), 'for update' if ( .not. open3 (feedback_fname, FSNEW3, pname) ) then print *, ' Error: Could not open file ', trim(feedback_fname) end if end if ! The water soluble and insoluble lists are actually used to differentiate between two ! refractive index values. They do not necessarily align completely with water soluble ! and insoluble species. The detemrination for what goes into each list is from the ! AERO_DATA table, column "OptSurr". Species with "solute" in this column will be in the ! ws_spc_index list and species with "dust" will be in the wi_spc_index list. allocate (ws_spc_index(n_ae_spc, n_mode), & wi_spc_index(n_ae_spc, n_mode), & stat=stat) ! to create water soluble and insoluble list num_ws_spc = 0 num_wi_spc = 0 ws_spc_index = 0 wi_spc_index = 0 do i = 1, n_ae_spc slen = len(trim(ae_spc(i))) if ((ae_spc(i) .ne. 'AECI') .and. & ! skip species that will be (ae_spc(i) .ne. 'AECJ') .and. & ! considered later in EC, (ae_spc(i) .ne. 'ANAJ') .and. & ! sea salt and H2O catergories (ae_spc(i) .ne. 'ACLJ') .and. & (ae_spc(i) .ne. 'ACLK') .and. & (ae_spc(i) .ne. 'ASO4K') .and. & (ae_spc(i) .ne. 'ASEACATK') .and. & (ae_spc(i) .ne. 'AH2OI') .and. & (ae_spc(i) .ne. 'AH2OJ') .and. & (ae_spc(i) .ne. 'AH2OK') .and. & (ae_spc(i)(slen:slen) .ne. 'K')) then ! not consider K mode ANH4K and ANO3K found = .false. k = 0 do while ((.not. found) .and. (k .lt. n_aerospc)) k = k + 1 n = 0 do while ((.not. found) .and. (n .lt. n_mode)) n = n + 1 if (aerospc(k)%name(n) .eq. ae_spc(i)) then found = .true. end if end do end do if (found) then if (aerospc(k)%optic_surr .eq. 'SOLUTE') then num_ws_spc(n) = num_ws_spc(n) + 1 ws_spc_index(num_ws_spc(n), n) = i else if (aerospc(k)%optic_surr .eq. 'DUST') then num_wi_spc(n) = num_wi_spc(n) + 1 wi_spc_index(num_wi_spc(n), n) = i end if end if end if end do END SUBROUTINE feedback_setup ! ------------------------------------------------------------------------------------ SUBROUTINE feedback_write ( c, r, l, cgrid, o3_value, jdate, jtime ) !=============================================================================== ! Purpose: Processes CMAQ data and write it to the feedback buffer file ! ! Revised: April 2007 Original version. David Wong ! 22 Nov 2016 Constructed water soluble and insoluble list dynamically ! based on a given chemical mechanism and AE scheme ! 12 Mar 2019 Implemented centralized I/O approach !=============================================================================== ! SUBROUTINE feedback_write ( c, r, l, cgrid, o3_value, aeromode_lnsg, & ! aeromode_diam, jdate, jtime ) USE HGRD_DEFN USE aero_data USE UTILIO_DEFN USE twoway_header_data_module USE twoway_met_param_module USE twoway_data_module USE twoway_util_module USE twoway_cgrid_aerosol_spc_map_module Use CENTRALIZED_IO_MODULE, only : interpolate_var use utilio_defn use cgrid_spcs use aero_data IMPLICIT NONE real, intent(in) :: cgrid(:), o3_value INTEGER, INTENT(IN) :: r, c, l, jdate, jtime REAL, PARAMETER :: DGMIN = 1.0E-09 REAL(8), PARAMETER :: ONE3D = 1.0 / 3.0 REAL(8), PARAMETER :: TWO3D = 2.0 * ONE3D REAL(8), PARAMETER :: MINL2SG = 2.380480480d-03 ! minimum value of ln(Sg)**2 ! minimum sigma_g = 1.05 REAL(8), PARAMETER :: MAXL2SG = 8.39588705d-1 ! maximum value of ln(Sg)**2 ! maximum sigma_g = 2.5 REAL :: L2SGAT, L2SGAC logical, save :: firstime = .true. CHARACTER (LEN = 16), PARAMETER :: pname = 'feedback_write ' CHARACTER (LEN = 16), save :: feedback_fname CHARACTER (LEN = 16) :: vname CHARACTER (LEN = 16), PARAMETER :: MET_CRO_3D = 'MET_CRO_3D ' integer :: i, j, s, e, stat, rr, cc, k integer, save :: nlays, inumatkn, inumacc, inumcor real, allocatable, save :: feedback_data_cmaq (:,:,:,:) character (len = 4), save :: pe_str real, allocatable, save :: dens( :,:,: ) ! dry air density INTEGER GXOFF, GYOFF ! global origin offset from file integer, save :: STRTCOLMC3, ENDCOLMC3, STRTROWMC3, ENDROWMC3 CHARACTER( 96 ) :: XMSG = ' ' IF ( firstime ) THEN write (pe_str, 11) '_', twoway_mype 11 format (a1, i3.3) feedback_fname = 'feed_back' // pe_str nlays = ioapi_header%nlays ! feedback_vlist defines the feedback variable list (twoway_cgrid_aerosol_spc_map_module.F90) ! the first 22 variables are for direct aerosol effect. allocate ( feedback_data_cmaq (cmaq_c_ncols, cmaq_c_nrows, nlays, n_feedback_var), stat=stat) allocate (dens( NCOLS, NROWS, nlays ), stat=stat) ! begin: this is for indirect effect only, temporary blocked if (indirect_effect) then inumatkn = index1('NUMATKN', n_ae_spc, ae_spc) + n_gc_spcd inumacc = index1('NUMACC', n_ae_spc, ae_spc) + n_gc_spcd inumcor = index1('NUMCOR', n_ae_spc, ae_spc) + n_gc_spcd do i = 1, num_twoway_ae_cmaq_spc twoway_ae_cmaq_spc_name_index(i) = index1 (twoway_ae_cmaq_spc_name(i), n_ae_spc, ae_spc) + n_gc_spcd if (twoway_ae_cmaq_spc_name_index(i) == n_gc_spcd) then ! species not found print *, ' Warning: AE species ', trim(twoway_ae_cmaq_spc_name(i)), ' is not on the list' end if end do do i = 1, num_twoway_ae_cmaq_spc_other twoway_ae_cmaq_spc_name_other_index(i) = index1 (twoway_ae_cmaq_spc_name_other(i), n_ae_spc, ae_spc) + n_gc_spcd if (twoway_ae_cmaq_spc_name_other_index(i) == n_gc_spcd) then ! species not found print *, ' Warning: AE species ', trim(twoway_ae_cmaq_spc_name_other(i)), ' is not on the list' end if end do end if ! end: this is for indirect effect only, temporary blocked do j = 1, n_mode do i = 1, num_ws_spc(j) if (ws_spc_index(i,j) .gt. 0) then ws_spc_index(i,j) = ws_spc_index(i,j) + n_gc_spcd end if end do end do do j = 1, n_mode do i = 1, num_wi_spc(j) if (wi_spc_index(i,j) .gt. 0) then wi_spc_index(i,j) = wi_spc_index(i,j) + n_gc_spcd end if end do end do do i = 1, num_ec_spc ec_spc_index(i) = index1 (ec_spc(i), n_ae_spc, ae_spc) if (ec_spc_index(i) == 0) then write (logdev, *) ' ABORT: in aero_driver ec species ', & trim(ec_spc(i)), ' is not found ' stop else ec_spc_index(i) = ec_spc_index(i) + n_gc_spcd end if end do do i = 1, num_ss_spc ss_spc_index(i) = index1 (ss_spc(i), n_ae_spc, ae_spc) if (ss_spc_index(i) == 0) then write (logdev, *) ' ABORT: aero_driver ss species ', & trim(ss_spc(i)), ' is not found ' stop else ss_spc_index(i) = ss_spc_index(i) + n_gc_spcd end if end do do i = 1, num_h2o_spc h2o_spc_index(i) = index1 (h2o_spc(i), n_ae_spc, ae_spc) if (h2o_spc_index(i) == 0) then write (logdev, *) ' ABORT: in aero_driver h2o species ', & trim(h2o_spc(i)), ' is not found ' stop else h2o_spc_index(i) = h2o_spc_index(i) + n_gc_spcd end if end do CALL SUBHFILE ( MET_CRO_3D, GXOFF, GYOFF, STRTCOLMC3, ENDCOLMC3, STRTROWMC3, ENDROWMC3 ) firstime = .false. ENDIF ! first time ! water soluble ! i mode feedback_data_cmaq(c,r,l, 1) = 0.0 do i = 1, num_ws_spc(1) feedback_data_cmaq(c,r,l, 1) = feedback_data_cmaq(c,r,l, 1) + cgrid(ws_spc_index(i,1)) end do ! j mode feedback_data_cmaq(c,r,l, 2) = 0.0 do i = 1, num_ws_spc(2) feedback_data_cmaq(c,r,l, 2) = feedback_data_cmaq(c,r,l, 2) + cgrid(ws_spc_index(i,2)) end do ! k mode feedback_data_cmaq(c,r,l, n_mode) = 0.0 ! insoluble ! i mode feedback_data_cmaq(c,r,l, 4) = 0.0 do i = 1, num_wi_spc(1) feedback_data_cmaq(c,r,l, 4) = feedback_data_cmaq(c,r,l, 4) + cgrid(wi_spc_index(i,1)) end do ! j mode feedback_data_cmaq(c,r,l, 5) = 0.0 do i = 1, num_wi_spc(2) feedback_data_cmaq(c,r,l, 5) = feedback_data_cmaq(c,r,l, 5) + cgrid(wi_spc_index(i,2)) end do ! k mode feedback_data_cmaq(c,r,l, 6) = 0.0 do i = 1, num_wi_spc(3) feedback_data_cmaq(c,r,l, 6) = feedback_data_cmaq(c,r,l, 6) + cgrid(wi_spc_index(i,3)) end do ! elemental carbon feedback_data_cmaq(c,r,l, 7) = cgrid(ec_spc_index(1)) feedback_data_cmaq(c,r,l, 8) = cgrid(ec_spc_index(2)) feedback_data_cmaq(c,r,l, 9) = 0.0 ! seasalt feedback_data_cmaq(c,r,l,10) = 0.0 feedback_data_cmaq(c,r,l,11) = cgrid(ss_spc_index(1)) & + cgrid(ss_spc_index(2)) feedback_data_cmaq(c,r,l,12) = cgrid(ss_spc_index(3)) & + cgrid(ss_spc_index(4)) & + cgrid(ss_spc_index(5)) ! water feedback_data_cmaq(c,r,l,13) = cgrid(h2o_spc_index(1)) feedback_data_cmaq(c,r,l,14) = cgrid(h2o_spc_index(2)) feedback_data_cmaq(c,r,l,15) = cgrid(h2o_spc_index(3)) ! diameters feedback_data_cmaq(c,r,l,16) = aeromode_diam(1) feedback_data_cmaq(c,r,l,17) = aeromode_diam(2) feedback_data_cmaq(c,r,l,18) = aeromode_diam(3) ! min(cblk(VDGCO), 6.8e-6) ! temporarily fix ! standard deviations feedback_data_cmaq(c,r,l,19) = EXP(aeromode_lnsg(1)) feedback_data_cmaq(c,r,l,20) = EXP(aeromode_lnsg(2)) feedback_data_cmaq(c,r,l,21) = 2.2 ! O3 feedback_data_cmaq(c,r,l,22) = o3_value ! AE mass ( this is for future indirect effect) ! begin: this is for indirect effect only, temporary blocked ! if (indirect_effect) then ! s = 23 ! e = n_feedback_var-3 ! j = 0 ! do i = s, e ! j = j + 1 ! if (j == 29) then ! feedback_data_cmaq(c,r,l,i) = cgrid(twoway_ae_cmaq_spc_name_other_index(1)) + & ! cgrid(twoway_ae_cmaq_spc_name_other_index(2)) ! else if (j == 30) then ! feedback_data_cmaq(c,r,l,i) = cgrid(twoway_ae_cmaq_spc_name_other_index(3)) + & ! cgrid(twoway_ae_cmaq_spc_name_other_index(4)) ! else if (j == 37) then ! feedback_data_cmaq(c,r,l,i) = 0.8373 * cgrid(twoway_ae_cmaq_spc_name_other_index(5)) + & ! 0.0626 * cgrid(twoway_ae_cmaq_spc_name_other_index(6)) + & ! 0.0023 * cgrid(twoway_ae_cmaq_spc_name_other_index(7)) ! else if (j == 42) then ! feedback_data_cmaq(c,r,l,i) = 2.20 * cgrid(twoway_ae_cmaq_spc_name_other_index(8)) + & ! 2.49 * cgrid(twoway_ae_cmaq_spc_name_other_index(9)) + & ! 1.63 * cgrid(twoway_ae_cmaq_spc_name_other_index(10)) + & ! 2.42 * cgrid(twoway_ae_cmaq_spc_name_other_index(11)) + & ! 1.94 * cgrid(twoway_ae_cmaq_spc_name_other_index(12)) ! else ! feedback_data_cmaq(c,r,l,i) = cgrid(twoway_ae_cmaq_spc_name_index(j)) ! end if ! end do ! feedback_data_cmaq(c,r,l,n_feedback_var-2) = cgrid(inumatkn) ! feedback_data_cmaq(c,r,l,n_feedback_var-1) = cgrid(inumacc) ! feedback_data_cmaq(c,r,l,n_feedback_var) = cgrid(inumcor) ! end if ! end: this is for indirect effect only, temporary blocked if ((c .eq. cmaq_c_ncols) .and. (r .eq. cmaq_c_nrows) .and. (l .eq. nlays)) then call interpolate_var ('DENS', jdate, jtime, dens) if ( .not. open3 (feedback_fname, FSRDWR3, pname) ) then print *, ' Error: Could not open file ', feedback_fname, 'for update' end if ! begin: this is for indirect effect only, temporary blocked ! if (indirect_effect) then ! do k = 1, size(feedback_data_cmaq,3) ! do rr = 1, size(feedback_data_cmaq,2) ! do cc = 1, size(feedback_data_cmaq,1) ! do s = 23, n_feedback_var ! feedback_data_cmaq(cc,rr,k,s) = feedback_data_cmaq(cc,rr,k,s) / dens(cc,rr,k) ! end do ! end do ! end do ! end do ! end if ! end: this is for indirect effect only, temporary blocked if ( .not. buf_write3 (feedback_fname, allvar3, jdate, jtime, feedback_data_cmaq) ) then print *, ' Error: Could not write to file ', trim(feedback_fname), jdate, jtime stop end if end if END SUBROUTINE feedback_write ! ------------------------------------------------------------------------------------ SUBROUTINE feedback_read (grid, jdate, jtime) !=============================================================================== ! Purpose: Read in information from feedback buffer file and make it available ! to WRF ! ! Revised: April 2007 Original version. David Wong ! 25 Sep 2015 (David Wong) ! -- replace SUBST_MODULES with SE_MODULES ! -- removed ae_mass access ! 08 Sep 2022 (David Wong) ! -- fixed a bug that caused by changed value of NLAYS3D in the ! subsequent time step !=============================================================================== USE module_domain ! WRF module USE module_state_description USE twoway_data_module USE twoway_met_param_module USE twoway_cgrid_aerosol_spc_map_module USE SE_MODULES USE HGRD_DEFN use utilio_defn IMPLICIT NONE TYPE(domain), INTENT(OUT) :: grid INTEGER, INTENT(IN) :: jdate, jtime CHARACTER (LEN = 16), PARAMETER :: pname = 'feedback_read ' CHARACTER (LEN = 16), save :: feedback_fname LOGICAL, SAVE :: firstime = .TRUE. integer :: stat, l, c, r, s, d, e integer, save :: tstep = 0 integer, save :: o3 real, allocatable, save :: feedback_data_wrf (:,:,:,:) real, allocatable, save :: feedback_data_cmaq (:,:,:,:) logical, save :: north_bndy_pe = .false. logical, save :: east_bndy_pe = .false. logical, save :: south_bndy_pe = .false. logical, save :: west_bndy_pe = .false. character (len = 4), save :: pe_str integer, save :: loc_nlays tstep = tstep + 1 if (firstime) then write (pe_str, 11) '_', twoway_mype 11 format (a1, i3.3) feedback_fname = 'feed_back' // pe_str if ( .not. open3 (feedback_fname, FSREAD3, pname) ) then print *, ' Error: Could not open file ', trim(feedback_fname), 'for reading' end if if ( .not. desc3 (feedback_fname) ) then print *, ' Error: Could not get file descript of file ', trim(feedback_fname) end if o3 = 41 allocate ( feedback_data_wrf (wrf_c_ncols, wrf_c_nrows, nlays3d, nvars3d), stat=stat) allocate ( feedback_data_cmaq (cmaq_c_ncols, cmaq_c_nrows, nlays3d, nvars3d), stat=stat) if ((twoway_nprocs - mype) .le. npcol) then north_bndy_pe = .true. end if if (mod(mype, npcol) .eq. npcol - 1) then east_bndy_pe = .true. end if if (mype .lt. npcol) then south_bndy_pe = .true. end if if (mod(mype, npcol) .eq. 0) then west_bndy_pe = .true. end if loc_nlays = nlays3d firstime = .false. end if if ( .not. read3(feedback_fname, allvar3, allays3, jdate, jtime, feedback_data_cmaq) ) then print *, ' Error: Could not read data from file ', trim(feedback_fname) stop end if feedback_data_wrf = 0.0 call se_cmaq_wrf_comm4 (twoway_mype, feedback_data_cmaq, & feedback_data_wrf, cmaq_wrf_c_send_to, cmaq_wrf_c_recv_from, & cmaq_wrf_c_send_index_l, cmaq_wrf_c_recv_index_l, 6) if (north_bndy_pe) then s = cmaq_c_domain_map(2,2,mype) - tw_sr + 1 do r = cmaq_c_domain_map(2,2,mype)+1, wrf_c_domain_map(2,2,mype) feedback_data_wrf(:,r-tw_sr+1,:,:) = feedback_data_wrf(:,s,:,:) end do end if if (east_bndy_pe) then s = cmaq_c_domain_map(2,1,mype) - tw_sc + 1 d = wrf_c_domain_map(2,1,mype) - cmaq_c_domain_map(2,1,mype) do r = lbound(feedback_data_wrf,2), ubound(feedback_data_wrf,2) do c = s+1, s+d feedback_data_wrf(c,r,:,:) = feedback_data_wrf(s,r,:,:) end do end do end if if (south_bndy_pe) then do r = 1, delta_y feedback_data_wrf(:,r,:,:) = feedback_data_wrf(:,delta_y+1,:,:) end do end if if (west_bndy_pe) then do r = lbound(feedback_data_wrf,2), ubound(feedback_data_wrf,2) do c = 1, delta_x feedback_data_wrf(c,r,:,:) = feedback_data_wrf(delta_x+1,r,:,:) end do end do end if do l = 1, loc_nlays do r = tw_sr, tw_er do c = tw_sc, tw_ec grid%mass_ws_i(c, l, r) = feedback_data_wrf(c-tw_sc+1,r-tw_sr+1,l,1) grid%mass_ws_j(c, l, r) = feedback_data_wrf(c-tw_sc+1,r-tw_sr+1,l,2) grid%mass_ws_k(c, l, r) = feedback_data_wrf(c-tw_sc+1,r-tw_sr+1,l,3) grid%mass_in_i(c, l, r) = feedback_data_wrf(c-tw_sc+1,r-tw_sr+1,l,4) grid%mass_in_j(c, l, r) = feedback_data_wrf(c-tw_sc+1,r-tw_sr+1,l,5) grid%mass_in_k(c, l, r) = feedback_data_wrf(c-tw_sc+1,r-tw_sr+1,l,6) grid%mass_ec_i(c, l, r) = feedback_data_wrf(c-tw_sc+1,r-tw_sr+1,l,7) grid%mass_ec_j(c, l, r) = feedback_data_wrf(c-tw_sc+1,r-tw_sr+1,l,8) grid%mass_ec_k(c, l, r) = feedback_data_wrf(c-tw_sc+1,r-tw_sr+1,l,9) grid%mass_ss_i(c, l, r) = feedback_data_wrf(c-tw_sc+1,r-tw_sr+1,l,10) grid%mass_ss_j(c, l, r) = feedback_data_wrf(c-tw_sc+1,r-tw_sr+1,l,11) grid%mass_ss_k(c, l, r) = feedback_data_wrf(c-tw_sc+1,r-tw_sr+1,l,12) grid%mass_h2o_i(c, l, r) = feedback_data_wrf(c-tw_sc+1,r-tw_sr+1,l,13) grid%mass_h2o_j(c, l, r) = feedback_data_wrf(c-tw_sc+1,r-tw_sr+1,l,14) grid%mass_h2o_k(c, l, r) = feedback_data_wrf(c-tw_sc+1,r-tw_sr+1,l,15) grid%dgn_i(c, l, r) = feedback_data_wrf(c-tw_sc+1,r-tw_sr+1,l,16) grid%dgn_j(c, l, r) = feedback_data_wrf(c-tw_sc+1,r-tw_sr+1,l,17) grid%dgn_k(c, l, r) = feedback_data_wrf(c-tw_sc+1,r-tw_sr+1,l,18) grid%sig_i(c, l, r) = feedback_data_wrf(c-tw_sc+1,r-tw_sr+1,l,19) grid%sig_j(c, l, r) = feedback_data_wrf(c-tw_sc+1,r-tw_sr+1,l,20) grid%sig_k(c, l, r) = feedback_data_wrf(c-tw_sc+1,r-tw_sr+1,l,21) grid%ozone(c, l, r) = feedback_data_wrf(c-tw_sc+1,r-tw_sr+1,l,22) ! begin: this is for indirect effect only, temporary blocked ! if (indirect_effect) then ! s = 0 ! do d = 23, N_FEEDBACK_VAR-3 ! s = s + 1 ! grid%ae_mass(c, l, r, s) = feedback_data_wrf(c-tw_sc+1,r-tw_sr+1,l,d) ! end do ! grid%ae_num(c, l, r, 1:3) = feedback_data_wrf(c-tw_sc+1,r-tw_sr+1,l,N_FEEDBACK_VAR-2:N_FEEDBACK_VAR) ! end if ! end: this is for indirect effect only, temporary blocked end do end do end do grid%mass_ws_i(:,loc_nlays+1,:) = grid%mass_ws_i(:,loc_nlays,:) grid%mass_ws_j(:,loc_nlays+1,:) = grid%mass_ws_j(:,loc_nlays,:) grid%mass_ws_k(:,loc_nlays+1,:) = grid%mass_ws_k(:,loc_nlays,:) grid%mass_in_i(:,loc_nlays+1,:) = grid%mass_in_i(:,loc_nlays,:) grid%mass_in_j(:,loc_nlays+1,:) = grid%mass_in_j(:,loc_nlays,:) grid%mass_in_k(:,loc_nlays+1,:) = grid%mass_in_k(:,loc_nlays,:) grid%mass_ec_i(:,loc_nlays+1,:) = grid%mass_ec_i(:,loc_nlays,:) grid%mass_ec_j(:,loc_nlays+1,:) = grid%mass_ec_j(:,loc_nlays,:) grid%mass_ec_k(:,loc_nlays+1,:) = grid%mass_ec_k(:,loc_nlays,:) grid%mass_ss_i(:,loc_nlays+1,:) = grid%mass_ss_i(:,loc_nlays,:) grid%mass_ss_j(:,loc_nlays+1,:) = grid%mass_ss_j(:,loc_nlays,:) grid%mass_ss_k(:,loc_nlays+1,:) = grid%mass_ss_k(:,loc_nlays,:) grid%mass_h2o_i(:,loc_nlays+1,:) = grid%mass_h2o_i(:,loc_nlays,:) grid%mass_h2o_j(:,loc_nlays+1,:) = grid%mass_h2o_j(:,loc_nlays,:) grid%mass_h2o_k(:,loc_nlays+1,:) = grid%mass_h2o_k(:,loc_nlays,:) grid%dgn_i(:,loc_nlays+1,:) = grid%dgn_i(:,loc_nlays,:) grid%dgn_j(:,loc_nlays+1,:) = grid%dgn_j(:,loc_nlays,:) grid%dgn_k(:,loc_nlays+1,:) = grid%dgn_k(:,loc_nlays,:) grid%sig_i(:,loc_nlays+1,:) = grid%sig_i(:,loc_nlays,:) grid%sig_j(:,loc_nlays+1,:) = grid%sig_j(:,loc_nlays,:) grid%sig_k(:,loc_nlays+1,:) = grid%sig_k(:,loc_nlays,:) ! begin: this is for indirect effect only, temporary blocked ! if (indirect_effect) then ! grid%ae_mass(:,loc_nlays+1,:,:) = grid%ae_mass(:,loc_nlays,:,:) ! grid%ae_num(:,loc_nlays+1,:,:) = grid%ae_num(:,loc_nlays,:,:) ! end if ! end: this is for indirect effect only, temporary blocked END SUBROUTINE feedback_read ================================================ FILE: CCTM/src/twoway/twoway_header_data_module.F90 ================================================ !=============================================================================== ! Name: HEADER_DATA_MODULE ! Purpose: Define Met and Grid file constant header information ! Revised: 10 Apr 2007 Original version. (David Wong) !=============================================================================== module twoway_header_data_module integer, parameter :: max_nlays = 100 type header_constant_data_record integer :: sdate integer :: stime integer :: nthik integer :: ncols integer :: nrows integer :: nlays integer :: gdtyp integer :: vtype real :: p_alp real :: p_bet real :: p_gam real :: xcent real :: ycent real :: xorig real :: yorig real :: xcell real :: ycell integer :: vgtyp real :: vgtop real :: vglvs (max_nlays + 1) character (len = 16) :: gdnam character (len = 16) :: grid_name end type header_constant_data_record TYPE(header_constant_data_record) :: ioapi_header end module twoway_header_data_module ================================================ FILE: CCTM/src/twoway/twoway_init_env_vars.F90 ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! !::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: subroutine twoway_init_env_vars !=============================================================================== ! Name: twoway_init_env_vars Prep ! Purpose: process all twoway related environment variables ! Revised: 31 Jan 2019 Original version. (D. Wong) ! 01 Aug 2019 (D. Wong) ! -- removed usage of status in calling get_env !=============================================================================== use twoway_data_module use sd_time_series_module, only : sd_scol, sd_ecol, sd_srow, sd_erow use get_env_module ! call get_env (wrf_restart, "WRF_RSTFLAG", .false.) call get_env (sd_time_series, 'SD_TIME_SERIES', .false.) ! call get_env (create_physical_file, 'CREATE_PHYSICAL_FILE', .false.) ! call get_env (wrf_cmaq_freq, 'WRF_CMAQ_FREQ', 1) ! call get_env (run_cmaq_driver, 'RUN_CMAQ_DRIVER', .false.) ! call get_env (cmaq_wrf_feedback, 'CMAQ_WRF_FEEDBACK', .false.) ! call get_env (indirect_effect, 'INDIRECT_EFFECT', .false.) call get_env (cmaq_sdate, 'CTM_STDATE', 0) call get_env (cmaq_stime, 'CTM_STTIME', 0) call get_env (turn_on_pv, 'CTM_PVO3', .false.) call get_env (wrf_lc_ref_lat, 'WRF_LC_REF_LAT', 0.0) call get_env (delta_x, 'TWOWAY_DELTA_X', 5) call get_env (delta_y, 'TWOWAY_DELTA_Y', 5) call get_env (file_time_step, 'FILE_TIME_STEP', 10000) if (sd_time_series) then call get_env (sd_scol, 'SD_SCOL', 1) call get_env (sd_ecol, 'SD_ECOL', 1) call get_env (sd_srow, 'SD_SROW', 1) call get_env (sd_erow, 'SD_EROW', 1) end if call get_env (griddesc_fname, 'GRIDDESC', ' ') call get_env (grid_name_str, 'GRID_NAME', ' ') end subroutine twoway_init_env_vars ================================================ FILE: CCTM/src/twoway/twoway_met_param_module.F90 ================================================ !=============================================================================== ! Purpose: Define general information in each of the buffer files ! ! Revised: April 2007 Original version. David Wong ! July, 16 2013 David Wong -- corrected the unit for RA and RS ! -- added DLUSE in GRIDCRO2D ! Jan, 11 2016 David Wong -- added a new variable PV ! Mar 04, 2019 Gilliam and Wong -- added new metcro2d variables ! according to new PX implementation in WRFv4.1+ ! Aug 01, 2019 Wong -- added two new metdot3d variables, UWIND and ! VWIND (wind component of the mass point) !=============================================================================== module twoway_met_param_module INTEGER, PARAMETER :: max_nvars = 1000 INTEGER, PARAMETER :: n_gridcro2d_var = 7 INTEGER, PARAMETER :: n_griddot2d_var = 1 INTEGER, PARAMETER :: n_metcro3d_var = 17 INTEGER, PARAMETER :: n_metdot3d_var = 4 INTEGER, PARAMETER :: n_metcro2d_var = 38 CHARACTER (LEN = 16), PARAMETER :: gridcro2d_vlist(n_gridcro2d_var) = & (/ 'LAT ', 'LON ', & 'MSFX2 ', 'HT ', & 'LWMASK ', 'PURB ', & 'DLUSE ' /) CHARACTER (LEN = 16), PARAMETER :: gridcro2d_units(n_gridcro2d_var) = & (/ 'DEGREES ', 'DEGREES ', & '(M/M)**2 ', 'M ', & '- ', 'PERCENT ', & 'CATEGORY ' /) CHARACTER (LEN = 16), PARAMETER :: griddot2d_vlist(n_griddot2d_var) = & (/ 'MSFD2 ' /) CHARACTER (LEN = 16), PARAMETER :: griddot2d_units(n_griddot2d_var) = & (/ '(M/M)**2 ' /) CHARACTER (LEN = 16), PARAMETER :: metcro3d_vlist(n_metcro3d_var) = & (/ 'JACOBF ', 'JACOBM ', & 'DENSA_J ', 'TA ', & 'QV ', 'QC ', & 'QR ', 'QI ', & 'QS ', 'QG ', & 'PRES ', 'DENS ', & 'ZH ', 'ZF ', & 'UWIND ', 'VWIND ', & 'PV ' /) CHARACTER (LEN = 16), PARAMETER :: metcro3d_units(n_metcro3d_var) = & (/ 'M ', 'M ', & 'KG/M**2 ', 'K ', & 'KG/KG ', 'KG/KG ', & 'KG/KG ', 'KG/KG ', & 'KG/KG ', 'KG/KG ', & 'Pa ', 'KG/M**3 ', & 'M ', 'M ', & 'M/S ', 'M/S ', & 'M^2*K/KG/S * E-6' /) CHARACTER (LEN = 16), PARAMETER :: metdot3d_vlist(n_metdot3d_var) = & (/ 'UWINDC ', 'VWINDC ', & 'UHAT_JD ', 'VHAT_JD ' /) CHARACTER (LEN = 16), PARAMETER :: metdot3d_units(n_metdot3d_var) = & (/ 'M/S ', 'M/S ', & 'KG/(M*S) ', 'KG/(M*S) ' /) CHARACTER (LEN = 16), PARAMETER :: metcro2d_vlist(n_metcro2d_var) = & (/ 'PRSFC ', 'USTAR ', & 'WSTAR ', 'PBL ', & 'ZRUF ', 'MOLI ', & 'HFX ', 'RA ', & 'RS ', 'WSPD10 ', & 'GSW ', 'RGRND ', & 'RNA ', 'RCA ', & 'CFRAC ', 'CLDT ', & 'CLDB ', 'WBAR ', & 'SNOCOV ', 'VEG ', & 'TEMP2 ', 'WR ', & 'TEMPG ', 'LAI ', & 'SLTYP ', 'Q2 ', & 'SEAICE ', 'SOIM1 ', & 'SOIM2 ', 'SOIT1 ', & 'SOIT2 ', 'LH ', & 'WWLT_PX ', 'WFC_PX ', & 'WSAT_PX ', 'CLAY_PX ', & 'CSAND_PX ', 'FMSAND_PX ' /) CHARACTER (LEN = 16), PARAMETER :: metcro2d_units(n_metcro2d_var) = & (/ 'Pascal ', 'M/S ', & 'M/S ', 'M ', & 'M ', '1/M ', & 'WATTS/M**2 ', 'S/M ', & 'S/M ', 'M/S ', & 'WATTS/M**2 ', 'WATTS/M**2 ', & 'CM ', 'CM ', & 'FRACTION ', 'M ', & 'M ', 'G/M**3 ', & 'NODIM ', 'NO UNIT ', & 'K ', 'M ', & 'K ', 'AREA/AREA ', & '- ', 'KG/KG ', & 'FRACTION ', 'M**3/M**3 ', & 'M**3/M**3 ', 'K ', & 'K ', 'WATTS/M**2 ', & 'M**3/M**3 ', 'M**3/M**3 ', & 'M**3/M**3 ', 'FRACTION ', & 'FRACTION ', 'FRACTION ' /) end module twoway_met_param_module ================================================ FILE: CCTM/src/twoway/twoway_rrtmg_aero_optics.F90 ================================================ ! Revision History: ! 2016/02/23 David Wong extracted the complex number module and put it in a file ! 2016/05/23 David Wong - replaced rrtmg_aero_optical_util_module with ! cmaq_rrtmg_aero_optical_util_module to avoid duplication ! of the same module name on WRF side of the two-way model MODULE cmaq_rrtmg_aero_optical_util_module Integer :: AERO_UTIL_LOG = 0 private public :: aero_optical, aero_optical2, aero_optical_CS, AERO_UTIL_LOG interface ghintBH module procedure ghintBH_1, ghintBH_2, ghintBH_Odd end interface interface ghintBH_CS module procedure ghintBH_CS_even, ghintBH_CS_odd end interface Logical, Parameter :: Use_Odd_Quadrature = .True. Integer, Parameter :: Quadrature_Points = 3 ! Integer, Parameter :: Quadrature_Points = 1 !B.Hutzell One point quadature IGH = 1 real, parameter :: ghxi_1(1) = 0.00000000000 real, parameter :: ghwi_1(1) = 1.77245385091 !B.Hutzell Three point quadature IGH = 3 real, parameter :: ghxi_3(3) = (/ -1.22474487139, & 0.00000000000, & 1.22474487139 /) real, parameter :: ghwi_3(3) = (/ 0.295408975151, & 1.181635900000, & 0.295408975151 /) !B.Hutzell Five point quadature IGH = 5 real(8), parameter :: ghxi_5(5) = (/ -2.02018287046d0, & -0.958572464614d0, & 0.00000000000d0, & 0.958572464614d0, & 2.02018287046d0 /) real(8), parameter :: ghwi_5(5) = (/ 0.019953242059d0, & 0.393619323152d0, & 0.945308720483d0, & 0.393619323152d0, & 0.019953242059d0 /) !B.Hutzell Nine point quadature IGH = 9 points !No. Abscissas Weight Total Weight real, parameter :: ghxi_9(9) = (/ -3.19099320178, & -2.26658058453, & -1.46855328922, & -0.72355101875, & 0.00000000000, & 0.72355101875, & 1.46855328922, & 2.26658058453, & 3.19099320178 /) real, parameter :: ghwi_9(9) = (/ 3.96069772633E-5, & 0.00494362428, & 0.08847452739, & 0.43265155900, & 0.72023521561, & 0.43265155900, & 0.08847452739, & 0.004943624275, & 3.96069772633E-5 /) contains ! ------------------------------------------------------------------ subroutine getqext_BH (xx, crefin, qextalf, qscatalf, gscatalfg,SUCCESS) implicit none real, intent(in) :: XX real, intent(out) :: qextalf, qscatalf, gscatalfg complex, intent(in) :: CREFIN logical, intent(out) :: success !local real( 8 ), parameter :: one_third = 1.0d0 / 3.0d0 integer :: NXX integer :: nstop, modulus real :: QEXT, QSCA, QBACK, G_MIE, xx1 real( 8 ) :: x complex( 8 ) :: refractive_index x = real( XX, 8 ) refractive_index = dcmplx( real( CREFIN ), imag( CREFIN ) ) modulus = int( abs( x * refractive_index ) ) nstop = int( x + 4.0d0 * x**one_third + 2.0d0 ) nxx = max( modulus, nstop ) + 15 xx1 = 1.0 / XX ! CALL BHMIE (XX,CREFIN,QEXT,QSCA,QBACK,G_MIE, SUCCESS) CALL BHMIE_FLEXI (XX, NXX, NSTOP, CREFIN,QEXT,QSCA,QBACK,G_MIE, SUCCESS) qextalf = QEXT * xx1 qscatalf = QSCA * xx1 gscatalfg = qscatalf * G_MIE end subroutine getqext_bh ! ------------------------------------------------------------------ SUBROUTINE BHMIE (X, REFREL, QQEXT, QQSCA, QBACK, GSCA, SUCCESS) ! FSB Changed the call vector to return only QEXT, QSCAT QBACK GSCA ! and ignore NANG, S1 and S2 and all calculations for them implicit none ! Arguments: real, intent(in) :: X ! X = pi*particle_diameter / Wavelength complex, intent(in) :: REFREL ! REFREL = (complex refr. index of sphere)/(real index of medium) ! in the current use the index of refraction of the the medium ! i taken at 1.0 real. ! ! Output real, intent(out) :: QQEXT, QQSCA, QBACK, GSCA logical, intent(out) :: SUCCESS ! QQEXT Efficiency factor for extinction ! QQSCA Efficiency factor for scattering ! QQBACK Efficiency factor for back scatter ! GSCA asymmetry factor ! SUCCESS flag for successful calculation ! REFERENCE: ! Bohren, Craig F. and Donald R. Huffman, Absorption and ! Scattering of Light by Small Particles, Wiley-Interscience ! copyright 1983. Paperback Published 1998. ! FSB ! This code was originally listed in Appendix A. pp 477-482. ! As noted below, the original code was subsequently ! modified by Prof. Bruce T. Drain of Princetion University. ! The code was further modified for a specific application ! in a large three-dimensional code requiring as much ! computational efficiency as possible. ! Prof. Francis S. Binkowski of The University of North ! Carolina at Chapel Hill. ! Declare parameters: ! Note: important that MXNANG be consistent with dimension of S1 and S2 ! in calling routine! integer, parameter :: MXNANG=10, NMXX=600000 ! FSB new limits real*8, parameter :: PII = 3.1415916536D0 real*8, parameter :: ONE = 1.0D0, TWO = 2.0D0 ! Local variables: integer :: NANG integer :: N,NSTOP,NMX,NN real*8 :: QSCA, QEXT, DX1, DXX1 real*8 :: CHI,CHI0,CHI1,DX,EN,P,PSI,PSI0,PSI1,XSTOP,YMOD real*8 :: TWO_N_M_ONE, TWO_N_P_ONE, EN1, FACTOR complex*16 :: AN,AN1,BN,BN1,DREFRL,XI,XI1,Y, Y1, DREFRL1 complex*16 :: D(NMXX), FAC1, FAC2 complex*16 :: XBACK !*********************************************************************** ! Subroutine BHMIE is the Bohren-Huffman Mie scattering subroutine ! to calculate scattering and absorption by a homogenous isotropic ! sphere. ! Given: ! X = 2*pi*a/lambda ! REFREL = (complex refr. index of sphere)/(real index of medium) ! real refractive index of medium taken as 1.0 ! Returns: ! QEXT = efficiency factor for extinction ! QSCA = efficiency factor for scattering ! QBACK = efficiency factor for backscatter ! see Bohren & Huffman 1983 p. 122 ! GSCA = asymmetry for scattering ! ! Original program taken from Bohren and Huffman (1983), Appendix A ! Modified by Prof. Bruce T.Draine, Princeton Univ. Obs., 90/10/26 ! in order to compute ! 91/05/07 (BTD): Modified to allow NANG=1 ! 91/08/15 (BTD): Corrected error (failure to initialize P) ! 91/08/15 (BTD): Modified to enhance vectorizability. ! 91/08/15 (BTD): Modified to make NANG=2 if called with NANG=1 ! 91/08/15 (BTD): Changed definition of QBACK. ! 92/01/08 (BTD): Converted to full double precision and double complex ! eliminated 2 unneed lines of code ! eliminated redundant variables (e.g. APSI,APSI0) ! renamed RN -> EN = double precision N ! Note that DOUBLE COMPLEX and DCMPLX are not part ! of f77 standard, so this version may not be fully ! portable. In event that portable version is ! needed, use src/bhmie_f77.f ! 93/06/01 (BTD): Changed AMAX1 to generic function MAX ! FSB April 09,2012 This code was modified by: ! Prof. Francis S. Binkowski University of North Carolina at ! Chapel Hill, Institue for the Environment. ! ! The modifications were made to enhance computation speed ! for use in a three-dimensional code. This was done by ! removing code that calculated angular scattering. The method ! of calculating QEXT, QBACK was also changed. !*********************************************************************** !*** Safety checks SUCCESS = .TRUE. NANG = 2 ! FSB only this value ! IF(NANG.GT.MXNANG)STOP'***Error: NANG > MXNANG in bhmie' ! IF (NANG .LT. 2) NANG = 2 DX = REAL( X, 8 ) ! FSB Define reciprocals so that divisions can be replaced by multiplications. DX1 = ONE / DX DXX1 = DX1 * DX1 DREFRL = DCMPLX( REFREL ) DREFRL1 = ONE / DREFRL Y = DX * DREFRL Y1 = ONE / Y YMOD = ABS(Y) !*** Series expansion terminated after NSTOP terms ! Logarithmic derivatives calculated from NMX on down XSTOP = REAL( X + 4.0 * X**0.3333 + 2.0, 8) NMX = INT( MAX(XSTOP,YMOD) ) + 15 ! BTD experiment 91/1/15: add one more term to series and compare results ! NMX=AMAX1(XSTOP,YMOD)+16 ! test: compute 7001 wavelengths between .0001 and 1000 micron ! for a=1.0micron SiC grain. When NMX increased by 1, only a single ! computed number changed (out of 4*7001) and it only changed by 1/8387 ! conclusion: we are indeed retaining enough terms in series! NSTOP = INT( XSTOP ) FACTOR = 1.0D0 IF (NMX .GT. NMXX) THEN WRITE(6,*)'Error: NMX > NMXX=',NMXX,' for |m|x=',YMOD SUCCESS = .FALSE. RETURN END IF ! FSB all code relating to scattering angles is removed out for ! reasons of efficiency when running in a three-dimensional ! code. We only need QQSCA, QQEXT, GSCA AND QBACK !*** Logarithmic derivative D(J) calculated by downward recurrence ! beginning with initial value (0.,0.) D(NMX) = DCMPLX(0.0D0,0.0D0) NN = NMX - 1 DO N = 1,NN EN = REAL(NMX - N + 1, 8 ) ! FSB In the following division by Y has been replaced by ! multiplication by Y1, the reciprocal of Y. D(NMX-N) = ( EN * Y1 ) - (ONE / ( D(NMX-N+1) + EN * Y1)) END DO !*** Riccati-Bessel functions with real argument X ! calculated by upward recurrence PSI0 = COS(DX) PSI1 = SIN(DX) CHI0 = -SIN(DX) CHI1 = PSI0 XI1 = DCMPLX(PSI1,-CHI1) QSCA = 0.0D0 GSCA = 0.0D0 QEXT = 0.0D0 P = -ONE XBACK = (0.0d0,0.0d0) ! FSB Start main loop DO N = 1,NSTOP EN = REAL( N, 8) EN1 = ONE / EN TWO_N_M_ONE = TWO * EN - ONE ! for given N, PSI = psi_n CHI = chi_n ! PSI1 = psi_{n-1} CHI1 = chi_{n-1} ! PSI0 = psi_{n-2} CHI0 = chi_{n-2} ! Calculate psi_n and chi_n PSI = TWO_N_M_ONE * PSI1 * DX1 - PSI0 CHI = TWO_N_M_ONE * CHI1 * DX1 - CHI0 XI = DCMPLX(PSI,-CHI) !*** Compute AN and BN: ! FSB Rearrange to get common terms FAC1 = D(N) * DREFRL1 + EN * DX1 AN = (FAC1) * PSI - PSI1 AN = AN / ( (FAC1 )* XI - XI1 ) FAC2 = ( DREFRL * D(N) + EN * DX1) BN = ( FAC2) * PSI -PSI1 BN = BN / ((FAC2) * XI - XI1 ) ! FSB calculate sum for QEXT as done by Wiscombe ! get common factor TWO_N_P_ONE = (TWO * EN + ONE) QEXT = QEXT + (TWO_N_P_ONE) * (REAL(AN) + REAL(BN) ) QSCA = QSCA + (TWO_N_P_ONE) * ( ABS(AN)**2+ ABS(BN)**2 ) ! FSB calculate XBACK from B & H Page 122 FACTOR = -1.0d0 * FACTOR ! calculate (-1.0 ** N) XBACK = XBACK + (TWO_N_P_ONE) * factor * (AN - BN) ! FSB calculate asymmetry factor GSCA = GSCA + REAL( ((TWO_N_P_ONE)/(EN * (EN + ONE))) * & (REAL(AN)*REAL(BN)+IMAG(AN)*IMAG(BN))) IF (N .GT. 1)THEN GSCA = GSCA + REAL( (EN - EN1) * & (REAL(AN1)*REAL(AN) + IMAG(AN1)*IMAG(AN) + & REAL(BN1)*REAL(BN) + IMAG(BN1)*IMAG(BN))) ENDIF !*** Store previous values of AN and BN for use in computation of g= AN1 = AN BN1 = BN ! FSB set up for next iteration PSI0 = PSI1 PSI1 = PSI CHI0 = CHI1 CHI1 = CHI XI1 = DCMPLX(PSI1,-CHI1) END DO ! main loop on n !*** Have summed sufficient terms. ! Now compute QQSCA,QQEXT,QBACK,and GSCA GSCA = REAL( TWO / QSCA ) * GSCA ! FSB in the following, divisions by DX * DX has been replaced by ! multiplication by DXX1 the reciprocal of 1.0 / (DX *DX) QQSCA = REAL( TWO * QSCA * DXX1 ) QQEXT = REAL( TWO * QEXT * DXX1 ) QBACK = REAL( REAL ( 0.5d0 * XBACK * CONJG(XBACK), 8 ) * DXX1 ) ! B&H Page 122 END subroutine BHMIE ! ------------------------------------------------------------------ subroutine aero_optical ( lamda_in, nmode, nr, ni, Vol, & dgn, sig, bext, bscat, g_bar, & modulus, success ) ! *** calculate the extinction and scattering coefficients and ! assymetry factors for each wavelength as a sum over the ! individual lognormal modes. Each mode may have a different ! set of refractive indices. IMPLICIT NONE ! *** input variables real, intent(in) :: lamda_in ! wavelengths [micro-m] INTEGER, intent(in) :: nmode ! number of lognormal modes real, intent(in) :: nr( nmode), ni(nmode) ! real and imaginary ! refractive indices real, intent(in) :: Vol(nmode) ! modal aerosol volumes [m**3 /m**3] real, intent(in) :: dgn(nmode) ! geometric mean diameters ! for number distribution [ m] real, intent(in) :: sig(nmode) ! geometric standard deviation real, intent(in), optional :: modulus(nmode) ! modulus of refracive index ! *** output variables real, intent(out) :: bext ! extinction coefficient [ 1 / m ] real, intent(out) :: bscat ! scattering coefficient [ 1 / m ] real, intent(out) :: g_bar ! assymetry factor for Mie and molecular scattering logical, intent(out) :: success ! flag for successful calculation ! *** internal variables INTEGER :: j ! loop index ! real :: xlnsig(nmode) ! natural log of geometric standard deviations real :: beta_Sc, bsc !aerosol scattering coefficient real :: beta_Ex ! aerosol extinction coefficients real :: G ! modal aerosol assymetry factors real :: sum_g real :: LSIGX real :: lamdam1 ! 1/ lamda real :: alphav ! Mie size parameter real :: vfac real :: modalph real, parameter :: pi = 3.14159265359 Logical, Save :: Initialize = .True. ! *** coded 09/08/2004 by Dr. Francis S. Binkowski ! FSB Modified for RRTMG version December 2009. ! FSB modified 10/06/2004, 10/12/2004, 10/18/2005 ! FSB 01/12/2006 ! Formerly Carolina Environmental Program ! FSB now the Institute for the Environment ! University of North Carolina at Chapel Hill ! email: frank_binkowski@unc.edu ! *** initialize variables lamdam1 = 1.0e6 / lamda_in ! lamda now in [ m ] bext = 0.0 bscat = 0.0 sum_g = 0.0 ! write(30,*) ' inside aero_optical', ' lamda = ', lamda DO j = 1, nmode ! calculate the extinction and scattering coefficients ! for each mode ! write(20,*) ' j = ', j LSIGX = log(sig(j)) ! write(30,*) 'j = ', j ! write(30,*) 'VLX = ', Vol(j) ! write(30,*) 'DGX = ', dgn(j) ! write(30,*) 'SIGX = ', sig(j) ! write(30,*) 'NRX =', nr(j) ! write(30,*) 'NIX = ', ni(j) ! write(30,*) 'LSIGX = ', LSIGX ! calculate Mie size parameter for volume distribution ! exp(3.0 * xlnsig*xlnsig) converts dgn to dgv (volume diameter) alphav = pi * dgn(j) * exp(3.0 * LSIGX * LSIGX) * lamdam1 if (present(modulus)) then modalph = alphav * modulus(j) end if ! Write(30,*) ' alphav = ', alphav ! write(20,*) j, alphav, modalph, modulus(j) ! write(20,*) j, alphav, modalph, nr(j), ni(j) CALL ghintBH (nr(j), ni(j), alphav, LSIGX, beta_EX, beta_Sc, G, success) ! write(30,*) 'after Call to ghintBH ',' j = ', j ! write(30,*) ' beta_EX =', beta_EX ! write(30,*) ' beta_SC = ', beta_Sc ! write(30,*) ' G = ', G ! *** ghintBH returns the normalized values ! Calculate the actual extinction and scattering coefficients ! by multplying by the modal volume and dividing by the wavelength vfac = Vol(j) * lamdam1 ! write(20,*)' vfac = ', vfac ! write(20,*)' G = ', G ! write(20,*) ' beta_Ex = ', beta_Ex ! write(20,*) ' beta_Sc = ', beta_Sc ! *** sum to get total extinction and scattering ! and contribution to the overal assymetry factor bext = bext + vfac * beta_Ex ! [ 1 / m ] bsc = vfac * beta_Sc bscat = bscat + bsc sum_g = sum_g + bsc * G END DO ! loop on modes ! *** calculate combined assymetry factor for all modes g_bar = sum_g / bscat ! changed to divide by bscat ! write(30,*) ' inside aero_optical after loop ' ! write(30,*) ' g_bar = ', g_bar ! write(20,*) ' bext = ', bext ! write(20,*) ' bscat = ', bscat ! write(20,*) ' gbar = ', g_bar END SUBROUTINE aero_optical ! ------------------------------------------------------------------ subroutine ghintBH_1 (nr, ni, alfv, xlnsig, Qext_GH, Qscat_GH, g_gh, success) ! FSB *********** This is the newest (05_30_2012) version of GhintBH ! this version does the Mie method and calculates the optimum set of ! set of Gauss-Hermite abscissas and weights. ! FSB Calls Penndorf codes for alfv .le. 0.3 ! Dr. Francis S. Binkowski, The University of North Carolina ! at Chapel Hill ! FSB this code file now contains all of the necessary subroutines that ! are called to perform an integral of the Bohren and Huffman ! Mie codes ( as updated by Prof. Bruce C. Drain of Princeton) ! calculates the extinction and scattering coefficients ! normalized by wavelength and total particle volume ! concentration for a log normal particle distribution ! with the logarithm of the geometric standard deviation ! given by xlnsig. The integral of the ! asymmetry factor g is also calculated. ! FSB Change 12/20/2011 This code now has a choice of IGH based ! upon alfv and nr. ! *** Does Gauss-Hermite quadrature of Qext / alfa & Qscat / alfa ! and asymmetry factor over log normal distribution using ! symmetric points. implicit none real, intent(in) :: nr, ni ! refractive indices real, intent(in) :: alfv ! Mie parameter for dgv real, intent(in) :: xlnsig ! log of geometric standard deviation real, intent(out) :: Qext_GH ! normalized extinction efficiency real, intent(out) :: Qscat_GH ! normalized scattering efficiency real, intent(out) :: g_GH ! asymmetry factor logical, intent(out) :: success ! flag for successful calculation real :: bext_P, bscat_P, babs_P, g_PCS, xlnsg2 ! see below for definition real :: aa1 ! see below for definition real :: alfaip, alfaim ! Mie parameters at abscissas ! *** these are Qext/alfa and Qscat/alfv at the abscissas real :: qalfip_e, qalfim_e ! extinction real :: qalfip_s, qalfim_s ! scattering real :: gsalfp, gsalfm ! scattering times asymmetry factor integer :: IGH ! index for GH quadrature ! FSB define parameters real, parameter :: pi = 3.14159265 real, parameter :: sqrtpi = 1.772454 real, parameter :: sqrtpi1 = 1.0 / sqrtpi real, parameter :: sqrt2 = 1.414214 real, parameter :: three_pi_two = 3.0 * pi / 2.0 real, parameter :: const = three_pi_two * sqrtpi1 integer :: i complex :: crefin ! complex index of refraction real :: sum_e,sum_s, xi,wxi,xf real :: sum_sg ! Gauss-Hermite abscissas and weights ! *** the following weights and abscissas are from Abramowitz ! Stegun, Table 25.10 page 924 ! FSB full precision from Table 25.10 ! FSB ten-point - IGH = 5 real, parameter :: ghxi_10(5) = (/ 0.342901327223705, & 1.036610829789514, & 1.756683649299882, & 2.532731674232790, & 3.436159118837738 /) real, parameter :: ghwi_10(5) = (/ 6.108626337353e-01, & 2.401386110823e-01, & 3.387439445548e-02, & 1.343645746781e-03, & 7.640432855233e-06 /) ! FSB six-point - IGH = 3 real, parameter :: ghxi_6(3) = (/ 0.436077411927617, & 1.335849074013597, & 2.350604973674492 /) real, parameter :: ghwi_6(3) = (/ 7.246295952244e-01, & 1.570673203229e-01, & 4.530009905509e-03 /) ! FSB two-point - IGH = 1 real, parameter :: ghxi_2(1) = (/ 0.707106781186548 /) real, parameter :: ghwi_2(1) = (/ 8.862269254528e-01 /) real :: GHXI(5), GHWI(5) ! weight and abscissas integer :: NMAX ! number of weights and abscissa ! FSB Check for valid range of Penndorf application. if ( alfv .le. 0.3) then xlnsg2 = xlnsig*xlnsig call pennfsb (nr,ni,alfv,xlnsg2,bext_P,bscat_P,babs_P,g_PCS) Qext_GH = bext_P Qscat_GH = bscat_p g_GH = g_PCS * exp(4.0 * xlnsg2) ! match GH integral else ! FSB We need to do a full Mie calculation now ! Choose IGH. These choices are designed to improve ! the computational efficiency without sacrificing accuracy. IGH=3 ! default value; six_point is sufficient generally ! six point NMAX = 3 if (nr .ge. 1.7) then ! 10 point IGH = 5 ! more points needed here NMAX = 5 end if if ( alfv .gt. 20.0 .or. alfv .lt. 0.5 ) then IGH = 1 ! in this range fewer points are needed NMAX = 1 end if if (IGH == 1) then GHXI(1) = ghxi_2(1) GHWI(1) = ghwi_2(1) else if (IGH == 3) then do i = 1, NMAX GHXI(i) = ghxi_6(i) GHWI(i) = ghwi_6(i) end do else do i = 1,NMAX GHXI(i) = ghxi_10(i) GHWI(i) = ghwi_10(i) end do end if ! set up number of abscissas and weights ! FSB set complex refractive index. crefin= cmplx(nr,ni) ! FSB now start the integration code aa1 = sqrt2 * xlnsig ! This 1.0 / Sqrt( A ) in derivation of the integral ! where A = 1.0 / ( 2.0 * xlnsg**2 ) ! Then alpha = alfv * exp[ u / sqrt(A) ] ! For Gauss-Hermite Quadrature u = xi ! Therefore, xf = exp( xi / sqrt(A) ), ! or xf = exp( xi * aa1 ) sum_e = 0.0 sum_s = 0.0 sum_sg = 0.0 ! FSB do NMAX calls to the MIE codes do i = 1,NMAX xi = GHXI(i) wxi = GHWI(i) xf = exp( xi * aa1 ) alfaip = alfv * xf alfaim = alfv / xf ! division cheaper than another exp() ! *** call subroutine to fetch the effficiencies call getqext_BH (alfaip, crefin, qalfip_e, qalfip_s, gsalfp, success) call getqext_BH (alfaim, crefin, qalfim_e, qalfim_s, gsalfm, success) sum_e = sum_e + wxi * ( qalfip_e + qalfim_e ) sum_s = sum_s + wxi * ( qalfip_s + qalfim_s ) sum_sg = sum_sg + wxi * ( gsalfp + gsalfm ) end do g_GH = sum_sg / sum_s ! this is Qext_GH = const * sum_e ! Qscat_GH = const * sum_s end if end subroutine ghintBH_1 ! ------------------------------------------------------------------ subroutine pennfsb (n, k, xx, lnsg2, bext, bscat, babs, g) ! FSB a new version of Penndorf's equations. This version does ! analytical integration for Qext, Qscat, Qabs to generate ! bext, bscat, babs. Note that the expressions for Qext & Qscat ! hve been divide through by xx. ! ! Reference: ! Caldas, M., V. Semiao, 2001, Radiative properties of small ! particles: and extension of the Penndorff Model. Journal ! of the Optical Society of America A, Vol. 18, No. 4, ! pp 831-838. ! Penndorf, R., 1962a,Scattering and extinction coefficients for small ! absorbing and nonabsorbing aerosols, ! J. Optical Society of America, 52, 896-904. ! Penndorf, P., 1962b,Scattering and extinction coefficients for ! small Spherical aerosols, J. Atmos. Sci., 19, p 193 ! FSB Coded by Dr. Francis S. Binkowski on October 25, 2011 by combining ! two previous versions to get a common code for the Penndorf and ! and Caldas & Semiao approaches. The Penndorf Qext, Qscat are much ! better than the versions from Caldas & Semiao despite claims to ! the contrary. The values of the asymmetry factor from Caldas & Semiao ! are better than can be obtained from Penndorf. ! FSB This version does the analytical integral ove a lognormal ! size distribution. implicit none ! input variables real, intent(in) :: n, k ! refractive index real, intent(in) :: xx ! pi * diameter / wavelength real, intent(in) :: lnsg2 ! log(sigma_g)**2 real, intent(out) :: bext ! extinction coefficient real, intent(out) :: bscat ! scattering coefficient real, intent(out) :: babs ! absorption coefficient real, intent(out) :: g ! asmmetry factor ! internal variables complex*16 :: m, m2,m4,m6,m21,m22 complex*16 :: P,Q,R,S,T,U,V,W complex*16 :: Qprime, Rprime,Sprime,Tprime complex*16 :: Uprime, Vprime, Wprime real*8 :: Qs, gQs, gpennCS real*8 :: P1,P2, Q1, Q2 , S2,V1, V2 ! see usage real*8 :: P1SQ, P2SQ ! see usage real*8 :: y, y2, y3, y4, y6, y7, y8, y9 real*8 :: x, x2, x3, x4, x6, x7, x8, x9 real :: mag, modalf ! FSB define useful numbers and fractions real, parameter :: pi = 3.14159265358979324d0 real, parameter :: three_pi_two = 1.5d0 * pi real*8, parameter :: one = 1.0d0 real*8, parameter :: two = 2.0d0 real*8, parameter :: three = 3.0d0 real*8, parameter :: four = 4.0d0 real*8, parameter :: five = 5.0d0 real*8, parameter :: six = 6.0d0 real*8, parameter :: eight = 8.0d0 real*8, parameter :: nine = 9.0d0 real*8, parameter :: fifteen = 15.0d0 real*8, parameter :: fortyfive = 45.0d0 ! real*8, parameter :: two5ths = two / five real*8, parameter :: twothrds = two / three real*8, parameter :: fourthirds = four / three real*8, parameter :: onefifteenth = one / fifteen real*8, parameter :: twofifteenths = two * onefifteenth ! real*8, parameter :: fourninths = four / nine real*8, parameter :: eightthirds = two * fourthirds real*8, parameter :: one_big = one / 31500.0d0 real*8, parameter :: two_fortyfive = two / fortyfive real*8, parameter :: four_225 = four / 225.0d0 real*8, parameter :: one_210 = one / 210.0d0 ! real*8, parameter :: one_half = one / two ! real*8, parameter :: four_two = two real*8, parameter :: nine_two = 4.5d0 ! real*8, parameter :: sixteen_two = eight ! real*8, parameter :: thirtysix_two = 36.0 / two ! real*8, parameter :: twentyfive_two = 25.0d0 / two ! real*8, parameter :: sixtyfour_two = 64.0d0 / two ! real*8, parameter :: fortynine_two = 49.0d0 / two ! real*8, parameter :: eightyone_two = 81.0d0 / two real*8 :: A,B,C,D,E, AA,BB,CC ! FSB start code mag = sqrt( n * n + k * k ) modalf = mag * xx y = REAL( xx, 8 ) ! convert to real*8 ! FSB get powers of y y2 = y * y y3 = y2 * y y4 = y3 * y y6 = y3 * y3 y7 = y3 * y4 y8 = y4 * y4 y9 = y6 * y3 ! FSB Calculate integrals ove the lognormal distribution ! this is done term by term and the form is ! xn = yn * exp( (n**2) * lnsig2 /2.0d0) x = y x2 = y2 * exp( two * lnsg2) x3 = y3 * exp( nine_two * lnsg2) x4 = y4 ! * exp( eight * lnsg2) x6 = y6 ! * exp( thirtysix_two * lnsg2) x7 = y7 ! * exp( fortynine_two * lnsg2) x8 = y8 ! * exp( fortynine_two * lnsg2) x9 = y9 ! * exp( eightyone_two * lnsg2) ! FSB explicitly calculate complex refrative index m m = dcmplx(n,-k) ! FSB get powers and functions of m m2 = m * m m4 = m2 * m2 m6 = m2 * m4 m21 = m2 - one m22 = m2 + two ! FSB calculate Penndorf's definitions from Table II of Penndorf (1962a) P = m21 / m22 Q = (m2 - two ) / m22 S = m21 / ( two * m2 + three) V = m21 ! FSB get real & imaginary parts following Penndorf's mptation P1 = real(P) P2 = -aimag(P) P1SQ = P1 * P1 P2SQ = P2 * P2 Q1 = real(Q) Q2 = -aimag(Q) S2 = -aimag(S) V1 = real(V) v2 = -aimag(V) ! FSB Get bext from Penndorf (1962a) Equation (7) up to x4 ! consistent with equation (8) ! We have then divided through by x and integrated analytically bext = REAL( four * P2 + ( 2.4d0 * (P1 * Q2 + P2 * Q1 ) + twothrds * S2 & + twofifteenths * V2 ) * x2 + ( eightthirds * ( P1SQ - P2SQ ) ) * x3, 4 ) ! FSB get bscat from Penndorf Equation (9) up to x4 ! we have divided through by x and integrated analytically bscat = REAL( eightthirds * ( P1SQ + P2SQ ) * x3 ) ! FSB calculate babs ! babs = bext - bscat ! FSB now get asymmetry factor from Caldas & Semiao (2001) ! ! *** The following additional variables from Caldas & Semiao (2001) ! are defined in Equations 10a to 10h. R = (m6 + 20.0d0*m4 -200.0d0*m2 + 200.0d0) / m22**2 T = m21 / ( ( 2.0d0 * M2 + 3.0d0) **2 ) U = m21 / (3.0d0 * M2 + 4.0d0 ) W = m21 * ( 2.0d0 * m2 - 5.0d0) ! *** further definitions from Caldas & Semiao (2001) Qprime = Q Rprime = 18.0d0 * R Sprime = 5.0d0 * S / P Tprime = 375.0d0 * T / P ! Uprime = 28.0d0 * U / P Vprime = V / P Wprime = 5.0d0 * W / P ! FSB calculate gQs and Qs from Caldas & Semiao (2001) ! *** calculate Qs equation 13 ! Qs = eightthirds * abs(P)**2 & ! * (x4 + onefifteenth * real(Qprime) * x6 & ! + fourthirds * aimag(P) * x7 & ! + one_big * ( 35.0d0 * abs(Qprime)**2 & ! + 20.0d0 * real(Rprime) + 35.0d0 * abs(Vprime)**2 & ! + 21.0d0 * abs(Sprime)**2 ) * x8 & ! + two_fortyfive * aimag( Qprime * ( P - conjg(P) )) * x9 ) ! *** calculate gQs equation 15 ! gQs = four_225 * abs(P)**2 * ( & ! (5.0d0 * Real(Vprime) + 3.0d0 * real(Sprime) ) * x6 & ! + one_210 * ( 35.0d0 * real(Vprime*conjg(Qprime) ) & ! + 21.0d0 * real(Sprime * conjg(Qprime) ) & ! + 10.0d0 * real(Wprime)- 6.0d0 * real(Tprime) ) * x8 & ! - twothrds * ( 5.0d0 * aimag(Vprime * conjg(P) ) & ! + 3.0d0 * aimag(Sprime * conjg(P) ) ) * x9 ) ! FSB recast into specific terms A = 1.0D0 * x4 B = onefifteenth * real(Qprime) * x6 C = fourthirds * aimag(P) * x7 D = one_big * ( 35.0d0 * abs(Qprime)**2 & + 20.0d0 * real(Rprime) + 35.0d0 * abs(Vprime)**2 & + 21.0d0 * abs(Sprime)**2 ) * x8 E = two_fortyfive * aimag( Qprime * ( P - conjg(P) )) * x9 Qs = eightthirds * abs(P)**2 *( A + B + C + D + E ) AA = (5.0d0 * Real(Vprime) + 3.0d0 * real(Sprime) ) * x6 BB = one_210 * ( 35.0d0 * real(Vprime*conjg(Qprime) ) & + 21.0d0 * real(Sprime * conjg(Qprime) ) & + 10.0d0 * real(Wprime)- 6.0d0 * real(Tprime) ) * x8 CC = twothrds * ( 5.0d0 * aimag(Vprime * conjg(P) ) & + 3.0d0 * aimag(Sprime * conjg(P) ) ) * x9 gQs = four_225 * abs(P)**2 * ( AA + BB + CC ) ! FSB calculate asymmetry factor and adjust with empirical term. g = REAL(gQs / Qs) ! FSB now multiply by three_pi_two get output values bext = three_pi_two * bext bscat = three_pi_two * bscat ! FSB calculate babs babs = bext - bscat end subroutine pennfsb ! ------------------------------------------------------------------ subroutine aero_optical2( lamda_in, crefin, Vol, dgn, & sig, bext, bscat, gfac, success ) ! FSB NOTE: this subroutine calculates for single mode ! *** calculate the extinction and scattering coefficients and ! assymetry factors for each wavelength as a sum over the ! individual lognormal modes. Each mode may have a different ! set of refractive indices. IMPLICIT NONE ! *** input variables real, intent(in) :: lamda_in ! wavelengths [micro-m] complex, intent(in) :: crefin ! Complex refractive index real, intent(in) :: Vol ! modal aerosol volumes [m**3 /m**3] real, intent(in) :: dgn ! geometric mean diameters ! for number distribution [ m] real, intent(in) :: sig ! geometric standard deviation ! *** output variables real, intent(out) :: bext ! extinction coefficient [ 1 / m ] real, intent(out) :: bscat ! scattering coefficient [ 1 / m ] real, intent(out) :: gfac ! assymetry factor for Mie and molecular scattering logical, intent(out) :: success ! flag for successful calculation ! *** internal variables ! real :: xlnsig(nmode) ! natural log of geometric standard deviations real :: beta_Sc ! aerosol scattering coefficient real :: beta_Ex ! aerosol extinction coefficients real :: G ! modal aerosol assymetry factors real :: sum_g real :: LSIGX real :: lamdam1 ! 1/ lamda real :: alphav ! Mie size parameter real :: vfac real, parameter :: pi = 3.14159265359 Logical, Save :: Initialize = .True. ! FSB coded 04/15/2012 by Dr. Francis S. Binkowski ! modified from an earlier version ! Center for Environmental Modeling for PolicyDevelopment ! Institute for the Environment ! University of North Carolina at Chapel Hill ! email: frank_binkowski@unc.edu ! *** initialize variables lamdam1 = 1.0e6 / lamda_in ! lamda now in [ m ] bext = 0.0 bscat = 0.0 sum_g = 0.0 ! write(20,*) ' j = ', j LSIGX = log(sig) ! calculate Mie size parameter for volume distribution ! exp(3.0 * xlnsig*xlnsig) converts dgn to dgv (volume diameter) alphav = pi * dgn * exp(3.0 * LSIGX * LSIGX) * lamdam1 ! write(20,*) j, alphav, modalph, modulus(j) ! write(20,*) j, alphav, modalph, NRX, NIX If(Initialize .And. AERO_UTIL_LOG .GT. 0 )Then If( Use_Odd_Quadrature )then write(AERO_UTIL_LOG,99501)Quadrature_Points else write(AERO_UTIL_LOG,99504) Initialize = .False. End If End If If( Use_Odd_Quadrature )then CALL ghintBH (Initialize, crefin, alphav, LSIGX, beta_EX, beta_Sc, G, success) Else CALL ghintBH (crefin, alphav, LSIGX, beta_EX, beta_Sc, G, success) End If ! *** ghintBH returns the normalized values ! Calculate the actual extinction and scattering coefficients ! by multplying by the modal volume and dividing by the wavelength vfac = Vol * lamdam1 bext = vfac * beta_Ex ! [ 1 / m ] bscat = vfac * beta_Sc ! [ 1 / m ] gfac = G 99501 Format(I2,' Quadrature Points for Volume Averaged Aerosol Optics') 99504 Format('Even Number Quadrature Points for Volume Averaged Aerosol Optics') END SUBROUTINE aero_optical2 ! ------------------------------------------------------------------ subroutine aero_optical_CS ( lamda_in, refcor,refshell, VOLCOR, & VOLSHELL, DGNCOR, DGNSHELL, SIG, & bext, bscat, gfac, succesS ) ! FSB NOTE: values for one mode are returend ! *** calculate the extinction and scattering coefficients and ! assymetry factors for each wavelength as a sum over the ! individual lognormal modes. Each mode may have a different ! set of refractive indices. IMPLICIT NONE ! *** input variables real,intent(in) :: lamda_in ! wavelengths [micro-m] complex,intent(in) :: refcor ! Complex refractive index -core complex,intent(in) :: refshell ! Complex refractive index -shell real,intent(in) :: VOLCOR ! volume of core real,intent(in) :: VOLSHELL ! volume of shell real,intent(in) :: DGNCOR ! geometric mean diameters ! for number distribution [m] real,intent(in) :: DGNSHELL ! geometric mean diameters ! for number distribution [m] real,intent(in) :: SIG ! geometric standard deviation ! *** output variables real,intent(out) :: bext ! extinction coefficient [ 1 / m ] real,intent(out) :: bscat ! scattering coefficient [ 1 / m ] real,intent(out) :: gfac ! assymetry factor logical, intent(OUT) :: success ! flag for successful calculation ! *** internal variables ! real :: xlnsig(nmode) ! natural log of geometric standard deviations real :: beta_Sc ! aerosol scattering coefficient real :: beta_Ex ! aerosol extinction coefficients real :: G ! modal aerosol assymetry factors real :: LSIGX real :: XX, YY ! Mie size parameter real :: expfac real :: lamdam1 ! 1/ lamda real :: vfac Logical, Save :: Initialize = .True. real, parameter :: pi = 3.14159265359 ! FSB coded 04/15/2012 by Dr. Francis S. Binkowski ! modified from an earlier version ! Center for Environmental Modeling for PolicyDevelopment ! Institute for the Environment ! University of North Carolina at Chapel Hill ! email: frank_binkowski@unc.edu ! *** initialize variables lamdam1 = 1.0e6 / lamda_in ! lamda now in [ m ] ! write(20,*) ' inside aero_optical', ' lamda = ', lamda ! calculate the extinction and scattering coefficients LSIGX = log(SIG) expfac = pi * exp(3.0 * LSIGX * LSIGX) * lamdam1 ! calculate Mie size parameter for volume distribution ! exp(3.0 * xlnsig*xlnsig) converts dgn to dgv (volume diameter) XX = DGNCOR * expfac YY = DGNSHELL * expfac If(Initialize .And. AERO_UTIL_LOG .GT. 0 )Then If( Use_Odd_Quadrature )then write(AERO_UTIL_LOG,99500)Quadrature_Points else write(AERO_UTIL_LOG,99502) Initialize = .False. End If End If If( Use_Odd_Quadrature )then CALL ghintBH_CS(Initialize,refcor,refshell,XX,YY,LSIGX,beta_EX,beta_Sc,G, success) Else CALL ghintBH_CS(refcor,refshell,XX,YY,LSIGX,beta_EX,beta_Sc,G, success) End If ! FSB ghintBH_CS returns the normalized values ! Calculate the actual extinction and scattering coefficients ! by multplying by the modal volume and dividing by the wavelength. ! For the coated-sphere (core-shell) calculation use the combined ! volume vfac = (VOLCOR + VOLSHELL) * lamdam1 bext = vfac * beta_Ex ! [ 1 / m ] bscat = vfac * beta_Sc ! [ 1 / m ] gfac = G 99500 Format(I2,' Quadrature Points for Core-Shell Aerosol Optics') 99502 Format('Even Number Quadrature Points for Core-Shell Aerosol Optics') END SUBROUTINE aero_optical_CS ! ------------------------------------------------------------------ subroutine ghintBH_2 (crefin,alfv,xlnsig,Qext_GH,Qscat_GH,g_gh, success) ! *************** REVISED VERSION < NOTE ! FSB *********** This is the newest (04_14_2012) version of GhintBH ! this version does the Mie method and calculates the optimum set of ! set of Gauss-Hermite abscissas and weights. ! Dr. Francis S. Binkowski, The University of North Carolina ! at Chapel Hill ! FSB this code file now contains all of the necessary subroutines that ! are called to perform an integral of the Bohren and Huffman ! Mie codes ( as updated by Prof. Bruce C. Drain of Princeton) ! calculates the extinction and scattering coefficients ! normalized by wavelength and total particle volume ! concentration for a log normal particle distribution ! with the logarithm of the geometric standard deviation ! given by xlnsig. The integral of the ! asymmetry factor g is also calculated. ! FSB Change 12/20/2011 This code now has a choice of IGH based ! upon alfv and nr. ! FBB Changes Simplified code. Eliminated Penndorf code ! *** Does Gauss-Hermite quadrature of Qext / alfa & Qscat / alfa ! and asymmetry factor over log normal distribution using ! symmetric points. ! implicit none complex, intent(in) :: crefin ! complex index of refraction real, intent(in) :: alfv ! Mie parameter for dgv real, intent(in) :: xlnsig ! log of geometric standard deviation real, intent(out) :: Qext_GH ! normalized extinction efficiency real, intent(out) :: Qscat_GH ! normalized scattering efficiency real, intent(out) :: g_GH ! asymmetry factor logical, intent(out) :: success ! flag for successful calculation real :: nr ! real part of refractive index real :: aa1 ! see below for definition real :: alfaip, alfaim ! Mie parameters at abscissas ! *** these are Qext/alfa and Qscat/alfv at the abscissas real :: qalfip_e, qalfim_e ! extinction real :: qalfip_s, qalfim_s ! scattering real :: gsalfp, gsalfm ! scattering times asymmetry factor integer :: IGH ! index for GH quadrature ! FSB define parameters real, parameter :: pi = 3.14159265 real, parameter :: sqrtpi = 1.772454 real, parameter :: sqrtpi1 = 1.0 / sqrtpi real, parameter :: sqrt2 = 1.414214 real, parameter :: three_pi_two = 3.0 * pi / 2.0 real, parameter :: const = three_pi_two * sqrtpi1 integer :: i real :: sum_e,sum_s, xi,wxi,xf real :: sum_sg ! Gauss-Hermite abscissas and weights ! *** the following weights and abscissas are from Abramowitz ! Stegun, Table 25.10 page 924 ! FSB full precision from Table 25.10 ! FSB ten-point - IGH = 5 real, parameter :: ghxi_10(5) = (/ 0.342901327223705, & 1.036610829789514, & 1.756683649299882, & 2.532731674232790, & 3.436159118837738 /) real, parameter :: ghwi_10(5) = (/ 6.108626337353e-01, & 2.401386110823e-01, & 3.387439445548e-02, & 1.343645746781e-03, & 7.640432855233e-06 /) ! FSB six-point - IGH = 3 real, parameter :: ghxi_6(3) = (/ 0.436077411927617, & 1.335849074013597, & 2.350604973674492 /) real, parameter :: ghwi_6(3) = (/ 7.246295952244e-01, & 1.570673203229e-01, & 4.530009905509e-03 /) ! FSB two-point - IGH = 1 real, parameter :: ghxi_2(1) = (/ 0.707106781186548 /) real, parameter :: ghwi_2(1) = (/ 8.862269254528e-01 /) real :: GHXI(5), GHWI(5) ! weight and abscissas integer :: NMAX ! number of weights and abscissa ! start code ! FSB now choose IGH. These choices are designed to improve ! the computational efficiency without sacrificing accuracy. nr = real(crefin) IGH=3 ! default value; six_point is sufficient generally ! six point NMAX = 3 if (nr .ge. 1.7) then ! 10 point IGH = 5 ! more points needed here NMAX = 5 end if if( alfv .gt. 20.0 .or. alfv .lt. 0.5 ) then IGH = 1 ! in this range fewer points are needed NMAX = 1 end if if (IGH == 1) then ! two point GHXI(1) = ghxi_2(1) GHWI(1) = ghwi_2(1) else if (IGH == 3) then do i = 1, NMAX GHXI(i) = ghxi_6(i) GHWI(i) = ghwi_6(i) end do else do i = 1,NMAX GHXI(i) = ghxi_10(i) GHWI(i) = ghwi_10(i) end do end if ! set up number of abscissas and weights ! FSB now start the integration code aa1 = sqrt2 * xlnsig ! This 1.0 / Sqrt( A ) in derivation of the integral ! where A = 1.0 / ( 2.0 * xlnsg**2 ) ! Then alpha = alfv * exp[ u / sqrt(A) ] ! For Gauss-Hermite Quadrature u = xi ! Therefore, xf = exp( xi / sqrt(A) ), ! or xf = exp( xi * aa1 ) sum_e = 0.0 sum_s = 0.0 sum_sg = 0.0 ! FSB do NMAX calls to the MIE codes do i = 1,NMAX xi = GHXI(i) wxi = GHWI(i) xf = exp( xi * aa1 ) alfaip = alfv * xf alfaim = alfv / xf ! division cheaper than another exp() ! *** call subroutine to fetch the effficiencies call getqext_BH(alfaip,crefin,qalfip_e,qalfip_s, gsalfp, success) call getqext_BH(alfaim,crefin,qalfim_e,qalfim_s, gsalfm, success) sum_e = sum_e + wxi * ( qalfip_e + qalfim_e ) sum_s = sum_s + wxi * ( qalfip_s + qalfim_s ) sum_sg = sum_sg + wxi * ( gsalfp + gsalfm ) end do g_GH = sum_sg / sum_s ! this is Qext_GH = const * sum_e ! Qscat_GH = const * sum_s end subroutine ghintBH_2 ! ------------------------------------------------------------------ subroutine ghintBH_CS_even (RCORE, RSHELL , XX, YY, xlnsig, & Qext_GH,Qscat_GH, g_gh, success) ! FSB code for coated-sphere (core-shell) version ! *************** REVISED VERSION < NOTE ! FSB *********** This is the newest (04_14_2012) version of ghintBH_CS ! for the coated-sphere (core-shell) method using BHCOAT ! this version does the Mie method and calculates the optimum set of ! set of Gauss-Hermite abscissas and weights. ! Dr. Francis S. Binkowski, The University of North Carolina ! at Chapel Hill ! FSB this code file now contains all of the necessary subroutines that ! are called to perform an integral of the Bohren and Huffman ! Mie codes ( as updated by Prof. Bruce C. Drain of Princeton) ! calculates the extinction and scattering coefficients ! normalized by wavelength and total particle volume ! concentration for a log normal particle distribution ! with the logarithm of the geometric standard deviation ! given by xlnsig. The integral of the ! asymmetry factor g is also calculated. ! FSB Change 12/20/2011 This code now has a choice of IGH based ! upon alfv and nr. ! FBB Changes Simplified code. Eliminated Penndorf code ! *** Does Gauss-Hermite quadrature of Qext / alfa & Qscat / alfa ! and asymmetry factor over log normal distribution using ! symmetric points. ! implicit none complex, intent(in) :: RCORE ! refractive index of core complex, intent(in) :: RSHELL ! refractive index of shell real, intent(in) :: XX ! Mie parameter for core real, intent(in) :: YY ! Mie parameter for shell real, intent(in) :: xlnsig ! log of geometric standard deviation real, intent(out) :: Qext_GH ! normalized extinction efficiency real, intent(out) :: Qscat_GH ! normalized scattering efficiency real, intent(out) :: g_GH ! asymmetry factor logical, intent(out) :: success ! flag for successful calculation real :: nr ! real part of refractive index real :: aa1 ! see below for definition real :: XXP, XXM ! Mie parameters at abscissas - CORE real :: YYP, YYM ! Mie parameters at abscissas - SHELL ! FSB define parameters real, parameter :: pi = 3.14159265 real, parameter :: sqrtpi = 1.772454 real, parameter :: sqrtpi1 = 1.0 / sqrtpi real, parameter :: sqrt2 = 1.414214 real, parameter :: three_pi_two = 3.0 * pi / 2.0 real, parameter :: const = three_pi_two * sqrtpi1 ! *** these are Qext/alfa and Qscat/alfv at the abscissas real :: qalfip_e, qalfim_e ! extinction real :: qalfip_s, qalfim_s ! scattering real :: gsalfp, gsalfm ! scattering times asymmetry factor integer :: IGH ! index for GH quadrature integer :: i real :: sum_e,sum_s, xi,wxi,xf, temp real :: sum_sg ! Gauss-Hermite abscissas and weights ! *** the following weights and abscissas are from Abramowitz ! Stegun, Table 25.10 page 924 ! FSB full precision from Table 25.10 ! FSB ten-point - IGH = 5 real, parameter :: ghxi_10(5) = (/ 0.342901327223705, & 1.036610829789514, & 1.756683649299882, & 2.532731674232790, & 3.436159118837738 /) real, parameter :: ghwi_10(5) = (/ 6.108626337353e-01, & 2.401386110823e-01, & 3.387439445548e-02, & 1.343645746781e-03, & 7.640432855233e-06 /) ! FSB six-point - IGH = 3 real, parameter :: ghxi_6(3) = (/ 0.436077411927617, & 1.335849074013597, & 2.350604973674492 /) real, parameter :: ghwi_6(3) = (/ 7.246295952244e-01, & 1.570673203229e-01, & 4.530009905509e-03 /) ! FSB two-point - IGH = 1 real, parameter :: ghxi_2(1) = (/ 0.707106781186548 /) real, parameter :: ghwi_2(1) = (/ 8.862269254528e-01 /) real GHXI(5), GHWI(5) ! weight and abscissas integer NMAX ! number of weights and abscissa ! start code ! FSB now choose IGH. These choices are designed to improve ! the computational efficiency without sacrificing accuracy. nr = real(RSHELL) IGH=3 ! default value; six_point is sufficient generally ! six point NMAX = 3 if (nr .ge. 1.7) then ! 10 point IGH = 5 ! more points needed here NMAX = 5 end if if ( XX .gt. 20.0 .or. XX .lt. 0.5 ) then IGH = 1 ! in this range fewer points are needed NMAX = 1 end if if (IGH == 1) then ! two point GHXI(1) = ghxi_2(1) GHWI(1) = ghwi_2(1) else if (IGH == 3) then do i = 1, NMAX GHXI(i) = ghxi_6(i) GHWI(i) = ghwi_6(i) end do else do i = 1,NMAX GHXI(i) = ghxi_10(i) GHWI(i) = ghwi_10(i) end do end if ! set up number of abscissas and weights ! FSB now start the integration code aa1 = sqrt2 * xlnsig ! This 1.0 / Sqrt( A ) in derivation of the integral ! where A = 1.0 / ( 2.0 * xlnsg**2 ) ! Then alpha = alfv * exp[ u / sqrt(A) ] ! For Gauss-Hermite Quadrature u = xi ! Therefore, xf = exp( xi / sqrt(A) ), ! or xf = exp( xi * aa1 ) sum_e = 0.0 sum_s = 0.0 sum_sg = 0.0 ! FSB do NMAX calls to the MIE codes do i = 1,NMAX xi = GHXI(i) wxi = GHWI(i) xf = exp( xi * aa1 ) temp = 1.0 / xf XXP = XX * xf XXM = XX * temp ! division cheaper than another exp() YYP = YY * xf YYM = YY * temp ! division cheaper than another exp() ! *** call subroutine to fetch the effficiencies call getqsgBHCS(XXP,YYP,RCORE,RSHELL,qalfip_e,qalfip_s,gsalfp, success) call getqsgBHCS(XXM,YYM,RCORE,RSHELL,qalfim_e,qalfim_s,gsalfm, success) sum_e = sum_e + wxi * ( qalfip_e + qalfim_e ) sum_s = sum_s + wxi * ( qalfip_s + qalfim_s ) sum_sg = sum_sg + wxi * ( gsalfp + gsalfm ) end do g_GH = sum_sg / sum_s ! this is Qext_GH = const * sum_e ! Qscat_GH = const * sum_s end subroutine ghintBH_CS_even ! ------------------------------------------------------------------ subroutine getqsgBHCS (XX,YY,RRFRL1,RRFRL2,qxtalf,qscalf,qsgalf, success) implicit none real, intent(in) :: XX, YY real, intent(out) :: qxtalf, qscalf, qsgalf complex, intent(in) :: RRFRL1,RRFRL2 ! refractive indices Core , Shell logical, intent(out) :: success ! flag for successful calculation real :: QEXT, QSCA, QBACK, G_MIE real :: xx1 character (len = 20) :: mystr1, mystr2, mystr3, mystr4 xx1 = 1.0 / YY ! if ( (xx * real(RRFRL1) >= 30.0) & ! .or. (xx * aimag(RRFRL1) >= 30.0) & ! .or. (yy * aimag(RRFRL2) >= 30.0)) then ! print *, ' ==d== bhcoat error' ! end if call BHCOAT (XX,YY,RRFRL1,RRFRL2,QEXT,QSCA,QBACK,G_MIE, SUCCESS) ! write (mystr1, *) QEXT ! write (mystr2, *) QSCA ! write (mystr3, *) QBACK ! write (mystr4, *) G_MIE ! if ((trim(mystr1) == ' NaN') .or. & ! (trim(mystr2) == ' NaN') .or. & ! (trim(mystr3) == ' NaN') .or. & ! (trim(mystr4) == ' NaN')) then ! call BHCOAT (XX,YY,RRFRL1,RRFRL2,QEXT,QSCA,QBACK,G_MIE) ! end if qxtalf = QEXT * xx1 qscalf = QSCA * xx1 qsgalf = qscalf * G_MIE END subroutine getqsgBHCS ! ------------------------------------------------------------------ SUBROUTINE BHCOAT (XX, YY, RRFRL1, RRFRL2, QQEXT, QQSCA, QBACK, GGSCA, SUCCESS) use complex_number_module implicit none ! added by FSB ! Arguments: real, intent(in) :: XX,YY ! Defined below complex, intent(in) :: RRFRL1,RRFRL2 ! Defined below real, intent(out) :: QQEXT,QQSCA,QBACK ! Defined below real, intent(out) :: GGSCA ! asymmetry factor added by FSB logical,intent(out) :: success ! Local variables: real*8, parameter :: DEL = 1.0D-08 real*8, parameter :: ONE = 1.0D0, TWO = 2.0D0 ! complex*16, save :: II ! data II/(0.D0,1.D0)/ type(complex_number) :: II integer :: IFLAG,N,NSTOP character (len = 400) :: mystr ! ----------------------------------------------------------- ! del is the inner sphere convergence criterion ! ----------------------------------------------------------- real*8 :: CHI0Y,CHI1Y,CHIY,PSI0Y,PSI1Y,PSIY,QEXT,RN,QSCA,X,Y,YSTOP,GSCA real*8 :: TWO_N_M_ONE, TWO_N_P_ONE real*8 :: RY, RYY, RNRY, RN1, factor ! complex*16 :: AMESS1,AMESS2,AMESS3,AMESS4,AN,ANCAP,AN1, BN,BNCAP,BN1, BRACK, & type(complex_number) :: AMESS1,AMESS2,AMESS3,AMESS4,AN,ANCAP,AN1, BN,BNCAP,BN1, BRACK, & CHI0X2,CHI0Y2,CHI1X2,CHI1Y2,CHIX2,CHIPX2,CHIPY2,CHIY2,CRACK, & D0X1,D0X2,D0Y2,D1X1,D1X2,D1Y2,DNBAR,GNBAR, & REFREL,RFREL1,RFREL2, XBACK,XI0Y,XI1Y,XIY, & X1,X2,Y2,RCX1, RCX2,RCY2, FAC1, FAC2 !*********************************************************************** ! NOTES from Prof. Bruce T. Draine, Princeton University ! Subroutine BHCOAT calculates Q_ext, Q_sca, Q_back for coated sphere. ! All bessel functions computed by upward recurrence. ! Input: ! XX = 2*PI*RCORE*REFMED/WAVEL ! YY = 2*PI*RMANT*REFMED/WAVEL ! RFREL1 = REFCOR/REFMED ! RFREL2 = REFMAN/REFMED ! where REFCOR = complex refr.index of core) ! REFMAN = complex refr.index of mantle) ! REFMED = real refr.index of medium) ! RCORE = radius of core ! RMANT = radius of mantle ! WAVEL = wavelength of light in ambient medium ! ! Routine BHCOAT is taken from Bohren & Huffman (1983) ! Obtained from C.L.Joseph ! ! History: ! 92/11/24 (BTD) Explicit declaration of all variables ! April 30,2012 (FSB) added additional code to optimize ! run time by finding common terms and replacing multiple ! divisions by multiplication by a reciprocal. ! April 09, 2012 code transferred from BTD's BMHMIE to ! calculate the asymmetry factor by Prof. Francis S. Binkowski of ! The University of North Carolina at Chapel Hill. ! April 30,2012 (FSB) added additional code to optimize ! run time by finding common terms and replacing multiple ! divisions by multiplication by a reciprocal. ! July 16, 2010 more optimization by Dr. David Wong (DW) at US EPA ! REFERENCE: ! Bohren, Craig F. and Donald R. Huffman, Absorption and ! Scattering of Light by Small Particles, Wiley-Interscience ! copyright 1983. Paperback Published 1998. ! This code was originally listed in Appendix B. pp 483-489. ! As noted above , the original code was subsequently ! modified by Prof. Bruce T. Draine of Princeton University. ! ! FSB The background for this code is discussed in Borhen & Huffman (1983) ! on pages 181-183 ( Equations 8.2 ) and on pages 483-484. !*********************************************************************** ! ! Start Code SUCCESS = .TRUE. II = c_set(0.0D0, 1.0D0) ! this technique will make the second 4 byte in the 8 byte variable be 0 ! rather than arbitrary digits to increase accuracy write (mystr, *) xx, yy, real(RRFRL1), aimag(RRFRL1), real(RRFRL2), aimag(RRFRL2) read (mystr, *) x, y, RFREL1, RFREL2 ! X = XX ! Y = YY RY = ONE / Y RYY = RY * RY ! RFREL1%real_part = real(RRFRL1) ! RFREL1%imag_part = aimag(RRFRL1) ! RFREL2%real_part = real(RRFRL2) ! RFREL2%imag_part = aimag(RRFRL2) x1 = c_mul(x, rfrel1) x2 = c_mul(x, rfrel2) y2 = c_mul(y, rfrel2) RCX1 = c_div(ONE, X1) RCX2 = c_div(ONE, X2) RCY2 = c_div(ONE, Y2) refrel = c_div(rfrel2, rfrel1) ystop = y + 4.0 * y**0.3333 + 2.0 nstop = INT( ystop ) ! ----------------------------------------------------------- ! series terminated after nstop terms ! ----------------------------------------------------------- ! initialize variables d0x1 = c_div(c_cos(x1), c_sin(x1)) d0x2 = c_div(c_cos(x2), c_sin(x2)) d0y2 = c_div(c_cos(y2), c_sin(y2)) psi0y = cos(y) psi1y = sin(y) chi0y = -sin(y) chi1y = cos(y) xi0y = c_sub(psi0y, c_mul(chi0y, II)) xi1y = c_sub(psi1y, c_mul(chi1y, II)) chi0y2 = c_mul(-1.0d0, c_SIN(y2)) chi1y2 = c_COS(y2) chi0x2 = c_mul(-1.0d0, c_SIN(x2)) chi1x2 = c_COS(x2) qsca = 0.0d0 qext = 0.0d0 GSCA = 0.0d0 xback = c_set(0.0d0, 0.0d0) iflag = 0 factor = 1.0d0 ! print *, ' ==d== N ', nstop ! FSB Start main loop DO n = 1, nstop rn = REAL( n, 8 ) RN1 = ONE / RN TWO_N_M_ONE = TWO * RN - ONE TWO_N_P_ONE = TWO * RN + ONE psiy = (TWO_N_M_ONE)*psi1y*RY - psi0y chiy = (TWO_N_M_ONE)*chi1y*RY - chi0y xiy = c_sub(psiy, c_mul(chiy, II)) d1y2 = c_sub(c_div(ONE, c_sub(c_mul(rn, RCY2), d0y2)), c_mul(rn, RCY2)) IF (iflag .eq. 0) THEN ! *** Calculate inner sphere ancap, bncap ! and brack and crack d1x1 = c_sub(c_div(ONE, c_sub(c_mul(rn, RCX1), d0x1)), c_mul(rn, RCX1)) d1x2 = c_sub(c_div(ONE, c_sub(c_mul(rn, RCX2), d0x2)), c_mul(rn, RCX2)) chix2 = c_sub(c_mul(c_mul(TWO*rn - ONE, chi1x2), RCX2), chi0x2) chiy2 = c_sub(c_mul(c_mul(TWO*rn - ONE, chi1y2), RCY2), chi0y2) chipx2 = c_sub(chi1x2, c_mul(c_mul(rn, chix2), RCX2)) chipy2 = c_sub(chi1y2, c_mul(c_mul(rn, chiy2), RCY2)) ! ANCAP = (REFREL*D1X1 - D1X2) / & ! ( (REFREL*D1X1*CHIX2 - CHIPX2) * (CHIX2*D1X2 - CHIPX2) ) ANCAP = c_sub(c_mul(c_mul(REFREL, D1X1), CHIX2), CHIPX2) ANCAP = c_mul(ANCAP, c_sub(c_mul(CHIX2, D1X2), CHIPX2)) ANCAP = c_div(c_sub(c_mul(REFREL, D1X1), D1X2), ANCAP) brack = c_mul(ancap, c_sub(c_mul(chiy2, d1y2), chipy2)) bncap = c_sub(c_mul(refrel, d1x2), d1x1) bncap = c_div(bncap, c_sub(c_mul(refrel, chipx2), c_mul(d1x1, chix2))) bncap = c_div(bncap, c_sub(c_mul(chix2, d1x2), chipx2)) crack = c_mul(bncap, c_sub(c_mul(chiy2, d1y2), chipy2)) ! *** calculate convergence test expressions ! for inner sphere. ! *** see pages 483-485 of Bohren & Huffman for ! definitions. amess1 = c_mul(brack, chipy2) amess2 = c_mul(brack, chiy2) amess3 = c_mul(crack, chipy2) amess4 = c_mul(crack, chiy2) ! Now test for convergence for inner sphere ! All four criteria must be satisfied. See page 484 of B & H IF (c_ABS(amess1) .LE. del*c_ABS(d1y2) .AND. & (c_ABS(amess2) .LE. del) .AND. & (c_ABS(amess3) .LE. del*c_ABS(d1y2)) .AND. & (c_ABS(amess4) .LE. del) ) THEN ! convergence for inner sphere brack = c_set(0.0D0,0.0D0) crack = c_set(0.0D0,0.0D0) iflag = 1 ! ELSE ! no convergence yet ! iflag = 0 END IF END IF ! test on iflag .eq. 0 ! *** note usage of brack and crack See equations on ! Page 485 and discussion on pages 486 -487 of B & H dnbar = c_sub(d1y2, c_mul(brack, chipy2)) dnbar = c_div(dnbar, c_sub(ONE, c_mul(brack, chiy2))) gnbar = c_sub(d1y2, c_mul(crack, chipy2)) gnbar = c_div(gnbar, c_sub(ONE, c_mul(crack, chiy2))) !*** Store previous values of an and bn for use ! in computation of g= IF (N .GT. 1) THEN AN1 = an BN1 = bn END IF ! *** update an and bn RNRY = rn * RY FAC1 = c_add(c_div(dnbar, rfrel2), RNRY) an = c_sub(c_mul(psiy, FAC1), psi1y) an = c_div(an, c_sub(c_mul(FAC1, xiy), xi1y)) FAC2 = c_add(c_mul(rfrel2, gnbar), RNRY) bn = c_sub(c_mul(psiy, FAC2), psi1y) bn = c_div(bn, c_sub(c_mul(FAC2, xiy), xi1y)) ! *** Calculate sums for qsca, qext, xback qsca = qsca + (TWO_N_P_ONE) * (c_ABS(an)**2 + c_ABS(bn)**2) qext = qext + TWO_N_P_ONE * (an%real_part + bn%real_part) ! DW XBACK = XBACK + (TWO_N_P_ONE) * (-1.)**N * (AN-BN) FACTOR = FACTOR * (-1.0D0) XBACK = c_add(XBACK, c_mul(TWO_N_P_ONE * FACTOR, c_sub(AN, BN))) ! FSB calculate the sum for the asymmetry factor GSCA = GSCA + ((TWO_N_P_ONE)/(RN* (RN + ONE)))* & (an%real_part*bn%real_part + an%imag_part*bn%imag_part) IF (n .GT. 1) THEN ! DW GSCA = GSCA + ((RN - ONE) * (RN + ONE) * RN1) * & GSCA = GSCA + (RN - RN1) * & (AN1%real_part*AN%real_part + AN1%imag_part*AN%imag_part + & BN1%real_part*BN%real_part + BN1%imag_part*BN%imag_part) END IF ! continue update for next interation psi0y = psi1y psi1y = psiy chi0y = chi1y chi1y = chiy xi1y = c_sub(psi1y, c_mul(chi1y, II)) chi0x2 = chi1x2 chi1x2 = chix2 chi0y2 = chi1y2 chi1y2 = chiy2 d0x1 = d1x1 d0x2 = d1x2 d0y2 = d1y2 END DO ! end of main loop !*** Have summed sufficient terms. ! Now compute QQSCA,QQEXT,QBACK,and GSCA GGSCA = REAL( TWO * GSCA / qsca ) QQSCA = REAL( TWO * qsca * RYY ) QQEXT = REAL( TWO * qext * RYY ) ! QBACK = 0.5 * REAL ( ( xback * conjg(xback) ) * RYY ) QBACK = 0.5 * real((xback%real_part**2 + xback%imag_part**2) * RYY) ! QBACK = real((xback%real_part**2 + xback%imag_part**2) * RYY) ! write (6, '(a19, 20e18.10)') ' ==d== bhcoat z ', GGSCA, GSCA, qsca ! write (6, '(a19, 20e18.10)') ' ==d== bhcoat z ', QQSCA, qsca, RYY ! write (6, '(a19, 20e18.10)') ' ==d== bhcoat z ', QQEXT, qext, RYY ! write (6, '(a19, 20e18.10)') ' ==d== bhcoat z ', QBACK, xback, RYY end subroutine BHCOAT subroutine ghintBH_Odd (INIT, crefin,alfv,xlnsig,Qext_GH,Qscat_GH,g_gh, success ) ! *************** REVISED VERSION < NOTE ! FSB *********** This is the newest (04_14_2012) version of GhintBH ! this version does the Mie method and calculates the optimum set of ! set of Gauss-Hermite abscissas and weights. ! Dr. Francis S. Binkowski, The University of North Carolina ! at Chapel Hill ! FSB this code file now contains all of the necessary subroutines that ! are called to perform an integral of the Bohren and Huffman ! Mie codes ( as updated by Prof. Bruce C. Drain of Princeton) ! calculates the extinction and scattering coefficients ! normalized by wavelength and total particle volume ! concentration for a log normal particle distribution ! with the logarithm of the geometric standard deviation ! given by xlnsig. The integral of the ! asymmetry factor g is also calculated. ! FSB Change 12/20/2011 This code now has a choice of IGH based ! upon alfv and nr. ! FBB Changes Simplified code. Eliminated Penndorf code ! *** Does Gauss-Hermite quadrature of Qext / alfa & Qscat / alfa ! and asymmetry factor over log normal distribution using ! symmetric points. ! implicit none logical, intent(INOUT) :: INIT ! initialize number of qudraure points complex, intent(in) :: crefin ! complex index of refraction real, intent(in) :: alfv ! Mie parameter for dgv real, intent(in) :: xlnsig ! log of geometric standard deviation real, intent(out) :: Qext_GH ! normalized extinction efficiency real, intent(out) :: Qscat_GH ! normalized scattering efficiency real, intent(out) :: g_GH ! asymmetry factor logical, intent(out) :: success ! flag for successful calculation real :: nr ! real part of refractive index real :: aa1 ! see below for definition real :: alfaip, alfaim ! Mie parameters at abscissas ! *** these are Qext/alfa and Qscat/alfv at the abscissas real :: qalfip_e, qalfim_e ! extinction real :: qalfip_s, qalfim_s ! scattering real :: gsalfp, gsalfm ! scattering times asymmetry factor ! FSB define parameters real, parameter :: pi = 3.14159265 real, parameter :: sqrtpi = 1.772454 real, parameter :: sqrtpi1 = 1.0 / sqrtpi real, parameter :: sqrt2 = 1.414214 real, parameter :: three_pi_two = 3.0 * pi / 2.0 real, parameter :: const = three_pi_two * sqrtpi1 integer :: i real :: sum_e,sum_s, xi,wxi,xf real :: sum_sg real, allocatable, save :: GHXI(:), GHWI(:) ! weight and abscissas integer, save :: IGH ! number of weights and abscissa integer, save :: NMAX ! optimumized number of weights and abscissa ! start code ! FSB now choose IGH. These choices are designed to improve ! the computational efficiency without sacrificing accuracy. If( INIT )Then Select Case( Quadrature_Points ) Case( 1,3,9 ) IGH = Quadrature_Points Case Default IGH = 3 End Select NMAX = Max( Int( IGH / 2 ), 0) If( Allocated( GHXI ) .Or. Allocated( GHWI ) )Then Success = .False. Return End If Allocate( GHXI( NMAX + 1 ), GHWI( NMAX + 1 ) ) Select Case ( IGH ) Case ( 1 ) GHXI(1) = ghxi_1(1) GHWI(1) = ghwi_1(1) Case ( 3 ) do i = 1, NMAX + 1 GHXI(i) = ghxi_3(i) GHWI(i) = ghwi_3(i) end do Case ( 9 ) do i = 1, NMAX + 1 GHXI(i) = ghxi_9(i) GHWI(i) = ghwi_9(i) end do end select If( AERO_UTIL_LOG .GT. 0 )Then write(AERO_UTIL_LOG,*)'BHMIE: IGH,(NMAX + 1) = ',IGH,(NMAX + 1) do i = 1, NMAX + 1 write(AERO_UTIL_LOG,*)'BHMIE: i, GHXI(i), GHWI(i) = ',i, GHXI(i), GHWI(i) end do End If INIT = .False. Else If( .Not. Allocated( GHXI ) .Or. .Not. Allocated( GHWI ) )Then Success = .False. Return End If End If ! set up number of abscissas and weights nr = real(crefin) ! FSB now start the integration code aa1 = sqrt2 * xlnsig ! This 1.0 / Sqrt( A ) in derivation of the integral ! where A = 1.0 / ( 2.0 * xlnsg**2 ) ! Then alpha = alfv * exp[ u / sqrt(A) ] ! For Gauss-Hermite Quadrature u = xi ! Therefore, xf = exp( xi / sqrt(A) ), ! or xf = exp( xi * aa1 ) !start integration at zero point xi = 0.0 wxi = GHWI(NMAX+1) xf = 1.0 alfaip = alfv ! fetch the effficiencies at zero point call getqext_BH(alfaip,crefin,qalfip_e,qalfip_s, gsalfp, success) sum_e = wxi * qalfip_e sum_s = wxi * qalfip_s sum_sg = wxi * gsalfp ! FSB do NMAX calls to the MIE codes do i = 1, NMAX xi = GHXI(i) wxi = GHWI(i) xf = exp( xi * aa1 ) alfaip = alfv * xf alfaim = alfv / xf ! division cheaper than another exp() ! *** call subroutine to fetch the effficiencies call getqext_BH(alfaip,crefin,qalfip_e,qalfip_s, gsalfp, success) call getqext_BH(alfaim,crefin,qalfim_e,qalfim_s, gsalfm, success) sum_e = sum_e + wxi * ( qalfip_e + qalfim_e ) sum_s = sum_s + wxi * ( qalfip_s + qalfim_s ) sum_sg = sum_sg + wxi * ( gsalfp + gsalfm ) end do g_GH = sum_sg / sum_s ! this is Qext_GH = const * sum_e ! Qscat_GH = const * sum_s end subroutine ghintBH_Odd ! ------------------------------------------------------------------ subroutine ghintBH_CS_Odd (INIT, RCORE, RSHELL , XX, YY, xlnsig, & Qext_GH,Qscat_GH, g_gh, success) ! FSB code for coated-sphere (core-shell) version ! *************** REVISED VERSION < NOTE ! FSB *********** This is the newest (04_14_2012) version of ghintBH_CS ! for the coated-sphere (core-shell) method using BHCOAT ! this version does the Mie method and calculates the optimum set of ! set of Gauss-Hermite abscissas and weights. ! Dr. Francis S. Binkowski, The University of North Carolina ! at Chapel Hill ! FSB this code file now contains all of the necessary subroutines that ! are called to perform an integral of the Bohren and Huffman ! Mie codes ( as updated by Prof. Bruce C. Drain of Princeton) ! calculates the extinction and scattering coefficients ! normalized by wavelength and total particle volume ! concentration for a log normal particle distribution ! with the logarithm of the geometric standard deviation ! given by xlnsig. The integral of the ! asymmetry factor g is also calculated. ! FSB Change 12/20/2011 This code now has a choice of IGH based ! upon alfv and nr. ! FBB Changes Simplified code. Eliminated Penndorf code ! *** Does Gauss-Hermite quadrature of Qext / alfa & Qscat / alfa ! and asymmetry factor over log normal distribution using ! symmetric points. ! implicit none logical, intent(inout) :: INIT ! initialize number of qudraure points complex, intent(in) :: RCORE ! refractive index of core complex, intent(in) :: RSHELL ! refractive index of shell real, intent(in) :: XX ! Mie parameter for core real, intent(in) :: YY ! Mie parameter for shell real, intent(in) :: xlnsig ! log of geometric standard deviation real, intent(out) :: Qext_GH ! normalized extinction efficiency real, intent(out) :: Qscat_GH ! normalized scattering efficiency real, intent(out) :: g_GH ! asymmetry factor logical, intent(out) :: success ! flag for successful calculation real :: nr ! real part of refractive index real :: aa1 ! see below for definition real :: XXP, XXM ! Mie parameters at abscissas - CORE real :: YYP, YYM ! Mie parameters at abscissas - SHELL ! FSB define parameters real, parameter :: pi = 3.14159265 real, parameter :: sqrtpi = 1.772454 real, parameter :: sqrtpi1 = 1.0 / sqrtpi real, parameter :: sqrt2 = 1.414214 real, parameter :: three_pi_two = 3.0 * pi / 2.0 real, parameter :: const = three_pi_two * sqrtpi1 ! *** these are Qext/alfa and Qscat/alfv at the abscissas real :: qalfip_e, qalfim_e ! extinction real :: qalfip_s, qalfim_s ! scattering real :: gsalfp, gsalfm ! scattering times asymmetry factor integer :: i real :: sum_e,sum_s, xi,wxi,xf, temp real :: sum_sg real, allocatable, save :: GHXI(:), GHWI(:) ! weight and abscissas integer, save :: IGH ! number of weights and abscissa integer, save :: NMAX ! optimized number of weights and abscissa ! start code ! FSB now choose IGH. These choices are designed to improve ! the computational efficiency without sacrificing accuracy. If( INIT )Then Select Case( Quadrature_Points ) Case( 1,3,9 ) IGH = Quadrature_Points Case Default IGH = 3 End Select If( Allocated( GHXI ) .Or. Allocated( GHWI ) )Then Success = .False. Return End If NMAX = Max( Int( IGH / 2 ), 0) Allocate( GHXI( NMAX + 1 ), GHWI( NMAX + 1 ) ) Select Case ( IGH ) Case ( 1 ) GHXI(1) = ghxi_1(1) GHWI(1) = ghwi_1(1) Case ( 3 ) do i = 1, NMAX + 1 GHXI(i) = ghxi_3(i) GHWI(i) = ghwi_3(i) end do Case ( 9 ) do i = 1, NMAX + 1 GHXI(i) = ghxi_9(i) GHWI(i) = ghwi_9(i) end do end select If( AERO_UTIL_LOG .GT. 0 )Then write(AERO_UTIL_LOG,*)'BHCoat: IGH,(NMAX + 1) = ',IGH,(NMAX + 1) do i = 1, NMAX + 1 write(AERO_UTIL_LOG,*)'BHCoat: i, GHXI(i), GHWI(i) = ',i, GHXI(i), GHWI(i) end do End If INIT = .False. Else If( .Not. Allocated( GHXI ) .Or. .Not. Allocated( GHWI ) )Then Success = .False. Return End If End If ! set up number of abscissas and weights nr = real(RSHELL) ! FSB now start the integration code aa1 = sqrt2 * xlnsig ! This 1.0 / Sqrt( A ) in derivation of the integral ! where A = 1.0 / ( 2.0 * xlnsg**2 ) ! Then alpha = alfv * exp[ u / sqrt(A) ] ! For Gauss-Hermite Quadrature u = xi ! Therefore, xf = exp( xi / sqrt(A) ), ! or xf = exp( xi * aa1 ) !start integration at zero point xi = 0.0 wxi = GHWI(NMAX+1) xf = 1.0 XXP = XX YYP = YY ! fetch the effficiencies at zero point call getqsgBHCS(XXP,YYP,RCORE,RSHELL,qalfip_e,qalfip_s,gsalfp, success) sum_e = wxi * qalfip_e sum_s = wxi * qalfip_s sum_sg = wxi * gsalfp ! FSB do NMAX calls to the MIE codes do i = 1, NMAX xi = GHXI(i) wxi = GHWI(i) xf = exp( xi * aa1 ) temp = 1.0 / xf XXP = XX * xf XXM = XX * temp ! division cheaper than another exp() YYP = YY * xf YYM = YY * temp ! division cheaper than another exp() ! *** call subroutine to fetch the effficiencies call getqsgBHCS(XXP,YYP,RCORE,RSHELL,qalfip_e,qalfip_s,gsalfp, success) call getqsgBHCS(XXM,YYM,RCORE,RSHELL,qalfim_e,qalfim_s,gsalfm, success) sum_e = sum_e + wxi * ( qalfip_e + qalfim_e ) sum_s = sum_s + wxi * ( qalfip_s + qalfim_s ) sum_sg = sum_sg + wxi * ( gsalfp + gsalfm ) end do g_GH = sum_sg / sum_s ! this is Qext_GH = const * sum_e ! Qscat_GH = const * sum_s end subroutine ghintBH_CS_Odd ! ------------------------------------------------------------------ SUBROUTINE BHMIE_FLEXI (X, NMX, NSTOP, REFREL, QQEXT, QQSCA, QBACK, GSCA, SUCCESS) ! FSB Changed the call vector to return only QEXT, QSCAT QBACK GSCA ! and ignore NANG, S1 and S2 and all calculations for them implicit none ! Arguments: real, intent(in) :: X ! X = pi*particle_diameter / Wavelength integer, intent(in) :: NMX ! maximum number of terms in Mie series integer, intent(in) :: NSTOP ! minumum number of terms in Mie series complex, intent(in) :: REFREL ! refractive index ! REFREL = (complex refr. index of sphere)/(real index of medium) ! in the current use the index of refraction of the the medium ! i taken at 1.0 real. ! ! Output real, intent(out) :: QQEXT, QQSCA, QBACK, GSCA logical, intent(out) :: SUCCESS ! QQEXT Efficiency factor for extinction ! QQSCA Efficiency factor for scattering ! QQBACK Efficiency factor for back scatter ! GSCA asymmetry factor ! SUCCESS flag for successful calculation ! REFERENCE: ! Bohren, Craig F. and Donald R. Huffman, Absorption and ! Scattering of Light by Small Particles, Wiley-Interscience ! copyright 1983. Paperback Published 1998. ! FSB ! This code was originally listed in Appendix A. pp 477-482. ! As noted below, the original code was subsequently ! modified by Prof. Bruce T. Drain of Princetion University. ! The code was further modified for a specific application ! in a large three-dimensional code requiring as much ! computational efficiency as possible. ! Prof. Francis S. Binkowski of The University of North ! Carolina at Chapel Hill. ! Declare parameters: ! Note: important that MXNANG be consistent with dimension of S1 and S2 ! in calling routine! integer, parameter :: MXNANG=10, NMXX=150000 ! FSB new limits integer, parameter :: NANG = 2 real*8, parameter :: PII = 3.1415916536D0 real*8, parameter :: ONE = 1.0D0, TWO = 2.0D0 complex*16, parameter :: COMPLEX_DZERO = (0.0D0,0.0D0) complex, parameter :: COMPLEX_ZERO = (0.0,0.0) ! Local variables: integer :: N, NN real*8 :: QSCA, QEXT, DX1, DXX1 real*8 :: CHI,CHI0,CHI1,DX,EN,P,PSI,PSI0,PSI1,XSTOP,YMOD real*8 :: TWO_N_M_ONE, TWO_N_P_ONE, EN1, FACTOR complex*16 :: AN,AN1,BN,BN1,DREFRL,XI,XI1,Y, Y1, DREFRL1 complex*16 :: D(NMX) complex*16 :: FAC1, FAC2 complex*16 :: XBACK !*********************************************************************** ! Subroutine BHMIE is the Bohren-Huffman Mie scattering subroutine ! to calculate scattering and absorption by a homogenous isotropic ! sphere. ! Given: ! X = 2*pi*a/lambda ! REFREL = (complex refr. index of sphere)/(real index of medium) ! real refractive index of medium taken as 1.0 ! Returns: ! QEXT = efficiency factor for extinction ! QSCA = efficiency factor for scattering ! QBACK = efficiency factor for backscatter ! see Bohren & Huffman 1983 p. 122 ! GSCA = asymmetry for scattering ! ! Original program taken from Bohren and Huffman (1983), Appendix A ! Modified by Prof. Bruce T.Draine, Princeton Univ. Obs., 90/10/26 ! in order to compute ! 91/05/07 (BTD): Modified to allow NANG=1 ! 91/08/15 (BTD): Corrected error (failure to initialize P) ! 91/08/15 (BTD): Modified to enhance vectorizability. ! 91/08/15 (BTD): Modified to make NANG=2 if called with NANG=1 ! 91/08/15 (BTD): Changed definition of QBACK. ! 92/01/08 (BTD): Converted to full double precision and double complex ! eliminated 2 unneed lines of code ! eliminated redundant variables (e.g. APSI,APSI0) ! renamed RN -> EN = double precision N ! Note that DOUBLE COMPLEX and DCMPLX are not part ! of f77 standard, so this version may not be fully ! portable. In event that portable version is ! needed, use src/bhmie_f77.f ! 93/06/01 (BTD): Changed AMAX1 to generic function MAX ! FSB April 09,2012 This code was modified by: ! Prof. Francis S. Binkowski University of North Carolina at ! Chapel Hill, Institue for the Environment. ! ! The modifications were made to enhance computation speed ! for use in a three-dimensional code. This was done by ! removing code that calculated angular scattering. The method ! of calculating QEXT, QBACK was also changed. !*********************************************************************** !*** Safety checks SUCCESS = .TRUE. ! NANG = 2 ! FSB only this value ! IF(NANG.GT.MXNANG)STOP'***Error: NANG > MXNANG in bhmie' ! IF (NANG .LT. 2) NANG = 2 DX = REAL( X, 8 ) ! FSB Define reciprocals so that divisions can be replaced by multiplications. DX1 = ONE / DX DXX1 = DX1 * DX1 DREFRL = DCMPLX( REAL( REFREL ), IMAG( REFREL ) ) DREFRL1 = ONE / DREFRL Y = DX * DREFRL Y1 = ONE / Y ! YMOD = ABS(Y) !*** Series expansion terminated after NSTOP terms ! Logarithmic derivatives calculated from NMX on down ! XSTOP = X + 4.0 * X**0.3333 + 2.0 ! NMX = MAX(XSTOP,YMOD) + 15 ! BTD experiment 91/1/15: add one more term to series and compare results ! NMX=AMAX1(XSTOP,YMOD)+16 ! test: compute 7001 wavelengths between .0001 and 1000 micron ! for a=1.0micron SiC grain. When NMX increased by 1, only a single ! computed number changed (out of 4*7001) and it only changed by 1/8387 ! conclusion: we are indeed retaining enough terms in series! FACTOR = 1.0D0 ! IF (NMX .GT. NMXX) THEN ! WRITE(6,*)'Error: NMX > NMXX=',NMXX,' for |m|x=',YMOD ! SUCCESS = .FALSE. ! RETURN ! END IF ! FSB all code relating to scattering angles is removed out for ! reasons of efficiency when running in a three-dimensional ! code. We only need QQSCA, QQEXT, GSCA AND QBACK !*** Logarithmic derivative D(J) calculated by downward recurrence ! beginning with initial value (0.,0.) D(NMX) = COMPLEX_DZERO NN = NMX - 1 DO N = 1,NN EN = REAL( NMX - N + 1, 8 ) ! FSB In the following division by Y has been replaced by ! multiplication by Y1, the reciprocal of Y. D(NMX-N) = ( EN * Y1 ) - (ONE / ( D(NMX-N+1) + EN * Y1)) END DO !*** Riccati-Bessel functions with real argument X ! calculated by upward recurrence PSI0 = COS(DX) PSI1 = SIN(DX) CHI0 = -SIN(DX) CHI1 = PSI0 XI1 = DCMPLX(PSI1,-CHI1) QSCA = 0.0D0 GSCA = 0.0D0 QEXT = 0.0D0 P = -ONE XBACK = COMPLEX_DZERO ! FSB Start main loop DO N = 1,NSTOP EN = REAL( N, 8 ) EN1 = ONE / EN TWO_N_M_ONE = TWO * EN - ONE ! for given N, PSI = psi_n CHI = chi_n ! PSI1 = psi_{n-1} CHI1 = chi_{n-1} ! PSI0 = psi_{n-2} CHI0 = chi_{n-2} ! Calculate psi_n and chi_n PSI = TWO_N_M_ONE * PSI1 * DX1 - PSI0 CHI = TWO_N_M_ONE * CHI1 * DX1 - CHI0 XI = DCMPLX(PSI,-CHI) !*** Compute AN and BN: ! FSB Rearrange to get common terms FAC1 = D(N) * DREFRL1 + EN * DX1 AN = (FAC1) * PSI - PSI1 AN = AN / ( (FAC1 )* XI - XI1 ) FAC2 = ( DREFRL * D(N) + EN * DX1) BN = ( FAC2) * PSI -PSI1 BN = BN / ((FAC2) * XI - XI1 ) ! FSB calculate sum for QEXT as done by Wiscombe ! get common factor TWO_N_P_ONE = (TWO * EN + ONE) QEXT = QEXT + (TWO_N_P_ONE) * (REAL(AN) + REAL(BN) ) QSCA = QSCA + (TWO_N_P_ONE) * ( ABS(AN)**2 + ABS(BN)**2 ) ! FSB calculate XBACK from B & H Page 122 FACTOR = -1.0d0 * FACTOR ! calculate (-1.0 ** N) XBACK = XBACK + (TWO_N_P_ONE) * factor * (AN - BN) ! FSB calculate asymmetry factor GSCA = GSCA + REAL((TWO_N_P_ONE)/(EN * (EN + ONE)) * & (REAL(AN)*REAL(BN)+IMAG(AN)*IMAG(BN))) IF (N .GT. 1)THEN GSCA = GSCA + REAL((EN - EN1) * & (REAL(AN1)*REAL(AN) + IMAG(AN1)*IMAG(AN) + & REAL(BN1)*REAL(BN) + IMAG(BN1)*IMAG(BN))) ENDIF !*** Store previous values of AN and BN for use in computation of g= AN1 = AN BN1 = BN ! FSB set up for next iteration PSI0 = PSI1 PSI1 = PSI CHI0 = CHI1 CHI1 = CHI XI1 = DCMPLX(PSI1,-CHI1) END DO ! main loop on n !*** Have summed sufficient terms. ! Now compute QQSCA,QQEXT,QBACK,and GSCA GSCA = REAL( TWO / QSCA ) * GSCA ! FSB in the following, divisions by DX * DX has been replaced by ! multiplication by DXX1 the reciprocal of 1.0 / (DX *DX) QQSCA = REAL( TWO * QSCA * DXX1 ) QQEXT = REAL( TWO * QEXT * DXX1 ) QBACK = REAL( REAL( 0.5D0 * XBACK * CONJG(XBACK), 8 ) * DXX1 ) ! B&H Page 122 END subroutine BHMIE_FLEXI END MODULE cmaq_rrtmg_aero_optical_util_module ================================================ FILE: CCTM/src/twoway/twoway_sd_time_series.F90 ================================================ !=============================================================================== ! Purpose: To capture the variation of CGRID in a pre-defined sub domain ! ! Revised: May 2010 Original version. David Wong ! 31 Jan 2019 (David Wong) ! -- adopted the idea to process all twoway related environment ! variables in one place ! 01 Aug 2019 (David Wong) ! -- removed interface block for get_envlist !=============================================================================== module sd_time_series_module implicit none integer :: n_sd_spcs, sd_scol, sd_ecol, sd_srow, sd_erow character (len = 16), allocatable :: sd_spcs(:) integer, allocatable :: sd_spcs_index(:) real, allocatable :: sd_ts_data(:,:,:,:) contains ! -------------------------------------------------------------------------------- subroutine sd_time_series_init (in_logdev, tstep) use hgrd_defn, only : mype use get_env_module use utilio_defn ! include 'PARMS3.EXT' ! include 'FDESC3.EXT' ! include 'IODECL3.EXT' include SUBST_FILES_ID ! I/O definitions and declarations integer, intent(in) :: in_logdev, tstep character (len = 80), allocatable :: temp(:,:) integer :: stat, n ! integer, external :: index1 character (len = 16), parameter :: pname = 'sd_time_series_i' if ( .not. desc3( ctm_conc_1 ) ) then write (in_logdev, '(a14, a16, a17)') 'Could not get ', CTM_CONC_1, ' file description' stop end if allocate (sd_spcs(nvars3d), stat=stat) call get_envlist ('SD_CONC_SPCS', n_sd_spcs, sd_spcs) allocate (sd_spcs_index(n_sd_spcs), temp(n_sd_spcs,3), stat=stat) do n = 1, n_sd_spcs sd_spcs_index(n) = index1 (sd_spcs(n), nvars3d, vname3d) end do nvars3d = n_sd_spcs ncols3d = sd_ecol - sd_scol + 1 nrows3d = sd_erow - sd_srow + 1 do n = 1, n_sd_spcs temp(n,1)(1:16) = vname3d(sd_spcs_index(n)) temp(n,2)(1:16) = units3d(sd_spcs_index(n)) temp(n,3) = vdesc3d(sd_spcs_index(n)) end do do n = 1, n_sd_spcs vname3d(n) = temp(n,1)(1:16) units3d(n) = temp(n,2)(1:16) vdesc3d(n) = temp(n,3) end do xorig3d = xorig3d + (sd_scol - 1) * xcell3d yorig3d = yorig3d + (sd_srow - 1) * ycell3d tstep3d = tstep if (mype .eq. 0) then if ( .not. open3 (ctm_sd_ts, FSRDWR3, pname) ) then write (in_logdev, '(a30, a16, a11)') ' Warning: Could not open file ', ctm_sd_ts, ' for update' if ( .not. open3 (ctm_sd_ts, FSNEW3, pname) ) then write (in_logdev, '(a30, a16)') ' Warning: Could not open file ', ctm_sd_ts end if end if end if allocate (sd_ts_data(ncols3d, nrows3d, nlays3d, nvars3d), stat=stat) deallocate (temp) end subroutine sd_time_series_init ! -------------------------------------------------------------------------------- subroutine sd_ts_data_ext (cgrid, sd_ts_data, send_to, send_index, & recv_from, recv_index, n_recv, loc_n_sd_spcs, & var_index, jtime, mype) include 'mpif.h' real, pointer, intent(in) :: cgrid(:,:,:,:) real, intent(out) :: sd_ts_data(:,:,:,:) integer, intent(in) :: send_to, send_index(:,:), recv_from(:), & recv_index(:,:,:), n_recv, loc_n_sd_spcs, & var_index(:), jtime, mype real, allocatable, save :: sdata(:,:,:,:) integer :: stat, n, data_size, tag, status(MPI_STATUS_SIZE), s_index, e_index if (.not. allocated(sdata)) then allocate(sdata(send_index(2,1)-send_index(1,1)+1, & send_index(2,2)-send_index(1,2)+1, & size(sd_ts_data,3), loc_n_sd_spcs), & stat=stat) end if if (send_to >= 0) then do n = 1, loc_n_sd_spcs sdata(:,:,:,n) = cgrid(send_index(1,1):send_index(2,1), send_index(1,2):send_index(2,2),:,var_index(n)) end do end if if (mype .eq. 0) then if (send_to >= 0) then s_index = 2 sd_ts_data(recv_index(1,1,1):recv_index(2,1,1), recv_index(1,2,1):recv_index(2,2,1),:,:) = sdata else s_index = 1 end if e_index = n_recv do n = s_index, e_index tag = jtime * 1000 + recv_from(n) data_size = (recv_index(2,1,n) - recv_index(1,1,n) + 1) * & (recv_index(2,2,n) - recv_index(1,2,n) + 1) * & size(sd_ts_data,3) * loc_n_sd_spcs call mpi_recv(sd_ts_data(recv_index(1,1,n):recv_index(2,1,n), & recv_index(1,2,n):recv_index(2,2,n),:,:), & data_size, mpi_real, recv_from(n), tag, & mpi_comm_world, status, stat) end do else if (send_to >= 0) then data_size = size(sdata) tag = jtime * 1000 + mype call mpi_send (sdata, data_size, mpi_real, send_to, tag, mpi_comm_world, stat) end if end if end subroutine sd_ts_data_ext ! ------------------------------------------------------------------------------ subroutine output_sd_time_series (cgrid, jdate, jtime) use HGRD_DEFN use utilio_defn ! include 'PARMS3.EXT' ! include 'FDESC3.EXT' ! include 'IODECL3.EXT' include SUBST_FILES_ID ! I/O definitions and declarations real, pointer :: cgrid(:,:,:,:) integer, intent(in) :: jdate, jtime character (len = 16), parameter :: pname = 'output_sd_time_s' integer :: stat, n integer, save :: send_to, n_recv, send_index(2,2) logical, save :: firstime = .true. character (len = 80) :: xmsg integer, allocatable, save :: recv_from(:), recv_index(:,:,:) logical :: x_intercepted, y_intercepted if (firstime) then allocate (recv_from(nprow*npcol), recv_index(2,2,nprow*npcol), stat=stat) allocate (sd_ts_data(ncols3d, nrows3d, nlays3d, nvars3d), stat=stat) send_to = -1 recv_from = -1 n_recv = 0 do n = 1, NPCOL*NPROW x_intercepted = (( ((sd_scol <= colsx_pe(1,n)) .and. (colsx_pe(1,n) <= sd_ecol)) .or. & ((sd_scol <= colsx_pe(2,n)) .and. (colsx_pe(2,n) <= sd_ecol)) ) .or. & ( ((colsx_pe(1,n) <= sd_scol) .and. (sd_scol <= colsx_pe(2,n))) .or. & ((colsx_pe(1,n) <= sd_ecol) .and. (sd_ecol <= colsx_pe(2,n))) )) y_intercepted = (( ((sd_srow <= rowsx_pe(1,n)) .and. (rowsx_pe(1,n) <= sd_erow)) .or. & ((sd_srow <= rowsx_pe(2,n)) .and. (rowsx_pe(2,n) <= sd_erow)) ) .or. & ( ((rowsx_pe(1,n) <= sd_srow) .and. (sd_srow <= rowsx_pe(2,n))) .or. & ((rowsx_pe(1,n) <= sd_erow) .and. (sd_erow <= rowsx_pe(2,n))) )) if (x_intercepted .and. y_intercepted) then n_recv = n_recv + 1 recv_from(n_recv) = n - 1 if (n .eq. mype + 1) then send_to = 0 send_index(1,1) = max(sd_scol, colsx_pe(1,n)) - colsx_pe(1,n) + 1 send_index(2,1) = min(sd_ecol, colsx_pe(2,n)) - colsx_pe(1,n) + 1 send_index(1,2) = max(sd_srow, rowsx_pe(1,n)) - rowsx_pe(1,n) + 1 send_index(2,2) = min(sd_erow, rowsx_pe(2,n)) - rowsx_pe(1,n) + 1 end if recv_index(1,1,n_recv) = max(sd_scol, colsx_pe(1,n)) - sd_scol + 1 recv_index(2,1,n_recv) = min(sd_ecol, colsx_pe(2,n)) - sd_scol + 1 recv_index(1,2,n_recv) = max(sd_srow, rowsx_pe(1,n)) - sd_srow + 1 recv_index(2,2,n_recv) = min(sd_erow, rowsx_pe(2,n)) - sd_srow + 1 end if end do firstime = .false. end if call sd_ts_data_ext (cgrid, sd_ts_data, send_to, send_index, & recv_from, recv_index, n_recv, n_sd_spcs, & sd_spcs_index, jtime, mype) if (mype .eq. 0) then if (.not. write3(ctm_sd_ts, allvar3, jdate, jtime, sd_ts_data)) then xmsg = 'Could not write to ' // ctm_sd_ts call m3exit(pname, jdate, jtime, xmsg, stat) end if end if end subroutine output_sd_time_series end module sd_time_series_module ================================================ FILE: CCTM/src/twoway/twoway_util_module.F90 ================================================ !=============================================================================== ! Purpose: Various utility programs to faciliate the twoway model implementation ! Revised: 11 Apr 2007 Original version. (David Wong) ! 11 Jan 2016 David wong ! -- increased the string length of griddesc_fname to 500 in routine ! setup_griddesc_file to accommondate long path name ! 31 Jan 2019 (David Wong) ! -- adopted the idea to process all twoway related environment ! variables in one place ! 30 Jun 2021 (David Wong) ! -- replaced 3i4 with 3i6 in the format statement 16 in subroutine ! setup_griddesc_file to handle ncols or nrow up to 99999 !=============================================================================== module twoway_util_module implicit none contains SUBROUTINE aq_set_ioapi_header (file_type, ncols, nrows) USE twoway_header_data_module use utilio_defn ! INCLUDE 'PARMS3.EXT' ! INCLUDE 'FDESC3.EXT' IMPLICIT NONE CHARACTER (LEN = 1), INTENT(IN) :: file_type INTEGER, INTENT(IN) :: ncols, nrows ncols3d = ncols nrows3d = nrows if (file_type .eq. 'C') then ! ncols3d = ioapi_header%ncols ! nrows3d = ioapi_header%nrows xorig3d = ioapi_header%xorig yorig3d = ioapi_header%yorig else if (file_type .eq. 'D') then ! ncols3d = ioapi_header%ncols + 1 ! nrows3d = ioapi_header%nrows + 1 xorig3d = ioapi_header%xorig - ioapi_header%xcell / 2.0 yorig3d = ioapi_header%yorig - ioapi_header%ycell / 2.0 end if xcent3d = ioapi_header%xcent ycent3d = ioapi_header%ycent sdate3d = ioapi_header%sdate stime3d = ioapi_header%stime gdtyp3d = ioapi_header%gdtyp p_alp3d = ioapi_header%p_alp p_bet3d = ioapi_header%p_bet p_gam3d = ioapi_header%p_gam xcell3d = ioapi_header%xcell ycell3d = ioapi_header%ycell vgtyp3d = ioapi_header%vgtyp vgtop3d = ioapi_header%vgtop vglvs3d = ioapi_header%vglvs gdnam3d = ioapi_header%gdnam gdnam3d = ioapi_header%grid_name nthik3d = 1 ftype3d = 1 END SUBROUTINE aq_set_ioapi_header !------------------------------------------------------------------------------- SUBROUTINE setup_griddesc_file (g_ncols, g_nrows) USE twoway_header_data_module USE twoway_data_module, only : griddesc_fname, grid_name_str integer, intent(in) :: g_ncols, g_nrows character (len = 100) :: buffer, myfmt character (len = 4) :: projection_type open (unit = 10, file = griddesc_fname, status = 'unknown') write (10, 11) "' '" 11 format (a3) if (ioapi_header%gdtyp .eq. 2) then projection_type = 'LAM_' else if (ioapi_header%gdtyp .eq. 6) then projection_type = 'POL_' end if if (ioapi_header%xcent .lt. 0.0) then write (buffer, 12) "'", projection_type, int(ioapi_header%ycent), 'N', int(ioapi_header%xcent*-1), "W'" else write (buffer, 12) "'", projection_type, int(ioapi_header%ycent), 'N', int(ioapi_header%xcent), "E'" end if 12 format (a1, a4, i3.3, a1, i3.3, a2) write (10, 13) buffer 13 format (a14) write (10, 14) ioapi_header%gdtyp, ioapi_header%p_alp, ioapi_header%p_bet, ioapi_header%p_gam, & ioapi_header%xcent, ioapi_header%ycent 14 format (i2, 5f14.3) write (10, 11) "' '" write (myfmt, 15) '(a1, a', len(trim(grid_name_str)), ', a1)' 15 format (a6, i2.2, a5) write (10, myfmt) "'", trim(grid_name_str), "'" write (10, 16) buffer, ioapi_header%xorig, ioapi_header%yorig, ioapi_header%xcell, ioapi_header%ycell, & g_ncols, g_nrows, ioapi_header%nthik ! write (10, 16) buffer, ioapi_header%xorig, ioapi_header%yorig, ioapi_header%xcell, ioapi_header%ycell, & ! ioapi_header%nrows, ioapi_header%ncols, ioapi_header%nthik 16 format (a14, 4f14.3, 3i6) write (10, 11) "' '" close (10) ioapi_header%grid_name = grid_name_str END SUBROUTINE setup_griddesc_file ! -------------------------------------------------------------------------------- subroutine compute_decomp (dim, npe1, npe2, domain_type, orientation, domain_map, delta) implicit none integer, intent(in) :: dim, npe1, npe2 character (len = 4), intent(in) :: domain_type character (len = 1), intent(in) :: orientation integer, intent(out) :: domain_map(:,:) integer, intent(in), optional :: delta integer :: quotient, remainder, stat, i, j, pe, loc_delta integer, allocatable :: loc_decomp_map(:,:) character (len = 1) :: loc_orientation if (present(delta)) then loc_delta = delta else loc_delta = 0 end if quotient = dim / npe1 remainder = mod(dim, npe1) allocate (loc_decomp_map(3, npe1), stat=stat) if (stat .ne. 0) then print *, ' Error: Allocating loc_decomp_map' stop end if loc_decomp_map(3, :) = quotient if (remainder .gt. 0) then if (domain_type .eq. 'wrf') then do i = 1, (remainder - 1) / 2 + 1 loc_decomp_map(3, i) = loc_decomp_map(3, i) + 1 end do do i = npe1, npe1 - remainder / 2 + 1, -1 loc_decomp_map(3, i) = loc_decomp_map(3, i) + 1 end do else do i = 1, remainder loc_decomp_map(3, i) = loc_decomp_map(3, i) + 1 end do end if end if do i = 1, npe1 if (i .eq. 1) then loc_decomp_map(1, i) = 1 + loc_delta else loc_decomp_map(1, i) = loc_decomp_map(2, i-1) + 1 end if loc_decomp_map(2, i) = loc_decomp_map(1, i) + loc_decomp_map(3, i) - 1 end do if (domain_type .eq. 'wrf') then loc_orientation = orientation else if (orientation .eq. 'c') then loc_orientation = 'r' else loc_orientation = 'c' end if end if if (loc_orientation .eq. 'c') then pe = 1 do i = 1, npe1 do j = 1, npe2 domain_map(:,pe+j-1) = loc_decomp_map(:,i) end do pe = pe + npe2 end do else pe = 1 do i = 1, npe1 do j = 1, npe2 domain_map(:,pe+(j-1)*npe1) = loc_decomp_map(:,i) end do pe = pe + 1 end do end if deallocate (loc_decomp_map) end subroutine compute_decomp ! -------------------------------------------------------------------------------- subroutine compute_comm_indices (nprocs, source_domain_map, dest_domain_map, & send_to, recv_from, & send_index_g, send_index_l, & recv_index_g, recv_index_l ) implicit none integer, intent(in) :: nprocs integer, intent(in) :: source_domain_map (3, 2, 0:nprocs-1) integer, intent(in) :: dest_domain_map (3, 2, 0:nprocs-1) integer, intent(out) :: send_to (0:,0:), recv_from (0:,0:) integer, intent(out) :: send_index_g (:,:,0:), recv_index_g (:,:,0:) integer, intent(out) :: send_index_l (:,:,0:), recv_index_l (:,:,0:) integer :: i, j, k, wrf_pe, cmaq_pe, x_s, x_e, y_s, y_e logical :: x_intercept, y_intercept send_to = -1 recv_from = -1 send_to(0,:) = 0 recv_from(0,:) = 0 send_index_g = -1 send_index_l = -1 recv_index_g = -1 recv_index_l = -1 do wrf_pe = 0, nprocs-1 i = 0 do cmaq_pe = 0, nprocs-1 x_s = max(source_domain_map(1,1,wrf_pe), dest_domain_map(1,1,cmaq_pe)) x_e = min(source_domain_map(2,1,wrf_pe), dest_domain_map(2,1,cmaq_pe)) x_intercept = ( ((dest_domain_map(1,1,cmaq_pe) .le. x_s) .and. (x_s .le. dest_domain_map(2,1,cmaq_pe))) & .and. & ((dest_domain_map(1,1,cmaq_pe) .le. x_e) .and. (x_e .le. dest_domain_map(2,1,cmaq_pe))) ) y_s = max(source_domain_map(1,2,wrf_pe), dest_domain_map(1,2,cmaq_pe)) y_e = min(source_domain_map(2,2,wrf_pe), dest_domain_map(2,2,cmaq_pe)) y_intercept = ( ((dest_domain_map(1,2,cmaq_pe) .le. y_s) .and. (y_s .le. dest_domain_map(2,2,cmaq_pe))) & .and. & ((dest_domain_map(1,2,cmaq_pe) .le. y_e) .and. (y_e .le. dest_domain_map(2,2,cmaq_pe))) ) if (x_intercept .and. y_intercept) then i = i + 1 ! count number of current wrf_pe intercept with cmaq_pe send_to(0, wrf_pe) = i send_to(i, wrf_pe) = cmaq_pe recv_from(0, cmaq_pe) = recv_from(0, cmaq_pe) + 1 recv_from(recv_from(0, cmaq_pe), cmaq_pe) = wrf_pe j = (i - 1) * 3 + 1 send_index_g(j, 1, wrf_pe) = x_s send_index_g(j+1, 1, wrf_pe) = x_e send_index_g(j+2, 1, wrf_pe) = x_e - x_s + 1 send_index_g(j, 2, wrf_pe) = y_s send_index_g(j+1, 2, wrf_pe) = y_e send_index_g(j+2, 2, wrf_pe) = y_e - y_s + 1 send_index_l(j, 1, wrf_pe) = x_s - source_domain_map(1, 1, wrf_pe) + 1 send_index_l(j+1, 1, wrf_pe) = x_e - source_domain_map(1, 1, wrf_pe) + 1 send_index_l(j+2, 1, wrf_pe) = x_e - x_s + 1 send_index_l(j, 2, wrf_pe) = y_s - source_domain_map(1, 2, wrf_pe) + 1 send_index_l(j+1, 2, wrf_pe) = y_e - source_domain_map(1, 2, wrf_pe) + 1 send_index_l(j+2, 2, wrf_pe ) = y_e - y_s + 1 k = (recv_from(0, cmaq_pe) - 1) * 3 + 1 recv_index_g(k, 1, cmaq_pe) = x_s recv_index_g(k+1, 1, cmaq_pe) = x_e recv_index_g(k+2, 1, cmaq_pe) = x_e - x_s + 1 recv_index_g(k, 2, cmaq_pe) = y_s recv_index_g(k+1, 2, cmaq_pe) = y_e recv_index_g(k+2, 2, cmaq_pe) = y_e - y_s + 1 recv_index_l(k, 1, cmaq_pe) = x_s - dest_domain_map(1,1,cmaq_pe) + 1 recv_index_l(k+1, 1, cmaq_pe) = x_e - dest_domain_map(1,1,cmaq_pe) + 1 recv_index_l(k+2, 1, cmaq_pe) = x_e - x_s + 1 recv_index_l(k, 2, cmaq_pe) = y_s - dest_domain_map(1,2,cmaq_pe) + 1 recv_index_l(k+1, 2, cmaq_pe) = y_e - dest_domain_map(1,2,cmaq_pe) + 1 recv_index_l(k+2, 2, cmaq_pe) = y_e - y_s + 1 end if end do end do end subroutine compute_comm_indices end module twoway_util_module ================================================ FILE: CCTM/src/util/util/CMAQ_Control_Misc.nml ================================================ !------------------------------------------------------------------------------! ! Explicit and Lumped air quality Mode Output (ELMO) Synthesizer ! ! PM Diagnostic Output File Specifications ! ! This section allows you to customize or deactivate diagnostic species for ! ! PM output. With ELMO's interface and underlying routines, you are able to ! ! output upon request aggregate PM parameters like total PM2.5 mass, mass of! ! individual species in any fine aerosol mode, and even properties like ! ! aerosol pH, OM:OC, AOD, etc. With these feature, you may be able to ! ! deactivate the output of many individual PM species on your concentration ! ! files if you are only interested in total values. For example, no need to ! ! output AMT1-AMT6 if you only need total organics, PMF_OA. ! ! ! ! You may invoke individual parameters in the interface below, (see ! ! instructions) or you may also use keywords to invoke a group of pre- ! ! associated parameters. For instance, using the string "AMET" below as an ! ! output parameter will automatically activate all of the parameters needed ! ! for an AMET evaluation of PM species. ! ! ! ! Definition of Fields: ! ! ELMO_ACTIVATE - turn files on and off ! ! 'INSTANT' - If .TRUE., then the instantaneous ELMO output file will ! ! be output. If .FALSE. it will not. ! ! 'AVERAGE' - If .TRUE., then the average ELMO output file will ! ! be output. If .FALSE. it will not. ! ! ELMO_INST - set parameters for instantaneous output ! ! 'INST_LAYER_TOP' - highest CMAQ layer for instantaneous output ! ! 'INST_LAYER_BOT' - lowest CMAQ layer for instantaneous output ! ! 'INST_VARS_NML' - register of all variables requested by the user. ! ! Variables can be listed explicitly (e.g. O3, PM25_FRM, DENS) or ! ! by keyword groups. The following keywords and definitions are ! ! supported: ! ! 'ALL' - all possible parameters. This keyword activates a ! ! large number of variables including all 180+ ELMO ! ! aggregates variables, all raw concentrations ! ! variables, and all family variables. By default, bulk! ! aerosols are preloaded as families. ! ! 'ALLCONC' - all raw concentration variables ! ! 'DEFAULT' - parameters typically supported by COMBINE ! ! post-processing in the past. ! ! 'AMET' - parameters used for evaluation against AMET database! ! 'MASS' - parameters associated with mass aggregates (eg PM25,! ! PM10, PMF_MASS, PMC_MASS, etc) ! ! 'NUMBER' - parameters assoc. with number output like PMF_NUM,! ! N40, N100, etc. ! ! 'SIZE' - parameters assoc. with size distributions like ! ! DRY_DG, WET_M3, WET_DENS, etc ! ! 'SURFACE' - parameters assoc. with PM surface area (e.g. ! ! PM_SRF, PMF_SRF) ! ! 'ORGANIC' - organic-relevant parameters like PM1_OC, PM1_OA, ! ! PMF_OTOC, PMAMS_OA, etc ! ! 'MET' - meteorlogical parameters: RH, T, 2m-T, P ! ! 'CHEM' - aerosol chemistry parameters like GAMMA_N2O5, ! ! K_IEPOX, etc. ! ! 'FINE_SPECIES' - fine-mode speciation (e.g. PMF_SO4, etc) ! ! 'COARSE_SPECIES' - coarse-mode speciation (e.g. PMC_SO4, etc)! ! 'AMS_SPECIES' - AMS speciation (e.g. PMAMS_SO4, etc) ! ! 'PM1_SPECIES' - PM1.0 speciation (e.g. PM1_SO4, etc) ! ! 'PM25_SPECIES' - PM2.5 speciation (e.g. PM25_SO4, etc) ! ! 'PM25to10_SPECIES' - PM25to10 speciation (eg PM25to10_SO4, ! ! etc) ! ! 'OPTICAL' - AOD, Aerosol Extinction all at 550 nm ! ! 'FINE_ORG' - fine-mode organic aggregates like PMF_OC, ! ! PMF_POA, PMF_ASOA, etc. ! ! 'CUTOFF_FRACTIONS' - FPM01, FPM1, FPM25, FPM10, FPM25TO10, ! ! FAMS ! ! 'TOXICS' - Species output by the toxics version of CMAQ ! ! (e.g. PM25_HBE, PM25_HNI, PM10_HDIESEL', etc ! ! In CMAQ v5.5 and earlier versions with ELMO output! ! files, the TOXICS keyword group omits several ! ! toxic aerosol species. The missing species include! ! PM10 for nickle as well as PM25, PM10, and ! ! fraction aerosol for benzo[a]pyrene. To have the ! ! variables in the ELMO output files, a user has to ! ! add PM10_HNI, PM25_BENAPY, PM10_BENAPY and ! ! BENAPY_FAERO as well as the TOXICS keyword groups ! ! to CMAQ_Control_Misc.nml file in the CCTM build ! ! directory. ! ! ! ! ELMO_AVRG - set parameters for average output ! ! 'AVRG_LAYER_TOP' - top CMAQ layer for average output. Enter '-1' ! ! for the highest layer in the model domain ! ! 'AVRG_LAYER_BOT' - lowest CMAQ layer for avergae output ! ! 'AVRG_VARS_NML' - register of all variables requested by the user. ! ! Options are equivalent to those for INST_VARS_NML ! ! ! !------------------------------------------------------------------------------! &elmo_activate instant = .FALSE. average = .TRUE. / &elmo_inst Inst_Layer_Top = 1 Inst_Layer_Bot = 1 Inst_Vars_Nml = 'DEFAULT' ! Example for limited output ! Inst_Vars_Nml = 'NO2', 'FORM', 'SO2', 'O3', 'PM25', 'PM10', 'DENS', 'NOX', 'AOD_550' / &elmo_avrg Avrg_Layer_Top = 1 Avrg_Layer_Bot = 1 Avrg_Vars_Nml = 'DEFAULT' ! Example for limited output ! Avrg_Vars_Nml = 'NO2', 'FORM', 'SO2', 'O3', 'PM25', 'PM10', 'DENS', 'NOX', 'AOD_550' / !------------------------------------------------------------------------------! ! Budget Tool Variable and Family Definitions ! ! This section includes selections for species and families of CMAQ ! ! that may be grouped together when calculating budget values for the ! ! budget output file. Users may select any CMAQ chemical species, chemical ! ! family defined in the ChemicalFamilies section of this namelist or may ! ! use the ALL keyword to select all species. ! ! If a Family name or the TOTAL keyword are provided, the sum of those ! ! species will be output on the budget file. If a * proceeds the name (e.g. ! ! '*NOX') then the Family name will be expanded and all of the species it ! ! comprises will be added separately. The default selection is for all ! ! chemical species to be output individually. ! !------------------------------------------------------------------------------! &Budget_Options Budget_Diag = .TRUE. BudgetVariables = 'ALL' / !------------------------------------------------------------------------------! ! Emissions Scaling Family Definitions ! ! This component includes definitions for families of CMAQ chemical species ! ! and emission variables. ! ! Note that if you are defining a 'VOC' family to apply scaling to all VOC ! ! emissions, it is recommended that you define 'VOC' either in terms of the ! ! emission variables (consistent with variable names on your emission file) ! ! or with CMAQ species names. In order to use this family to scale VOC ! ! emissions via an emission rule, use the 'VOC' family for either the ! ! emission variable or CMAQ species, consistent with how you have defined it! ! here, and use the 'ALL' keyword for the other field. ! !------------------------------------------------------------------------------! &Chemical_FamVars N_Chem_Fams = 0 Max_Chem_Fam_Members = 20 / &ChemicalFamilies ! ChemFamilyName(1) = 'NOX' ! ChemFamilyMembers(1,:)= 'NO','NO2' / ================================================ FILE: CCTM/src/util/util/RUNTIME_VARS.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! !.................................................................... ! The RUNTIME_VARS module contains file unit identifiers for the log files, ! input files, and the values of all environment variables. ! ! It also contains routines for reading environment variables, and ! opening input files. ! ! History: ! 07/19/18, D. Wong: removed some of the ifdef clause for twoway model ! and added new logical environment variables ! ncd_64bit_offset and cell_num for MPAS coupling scheme ! 31 Jan 2019 (David Wong) ! -- removed all twoway related environment variables in this file ! 01 Feb 2019 (David Wong) ! -- implemented invocation of GET_ENV call directly, removed unnecessay ! interface block and unnecessary functions ! 02 May 2019 (David Wong) ! -- set BIOGEMIS_SEASON = .FALSE. as the default value ! 13 May 2019 (David Wong) ! -- setup environment variable ISAM_NEW_START ! 14 May 2019 (David Wong) ! -- updated environment variable ISAM_NEW_START with default value 'Y' ! 15 May 2019 (David Wong) ! -- included check for using marine gas emission or not ! 13 June 2019 (F. Sidi) ! -- Set the default for ERODE_AGLAND to FALSE. No longer supported feature ! in CMAQv5.3 ! 25 July 2019 (D. Wong) ! -- Included a logic to determine whether met data was created from ! WRF V4+ is used ! 01 Aug 2019 (D. Wong) ! -- Modified code to work with two-way model ! 07 Nov 2019 (D. Wong) ! -- Made RUNLEN environment variable avilable to two-way model as well ! 22 Nov 2019 (F. Sidi) ! -- Re-introduced master switch to overide emissions file date for ! representative day files ! 10 Feb 2020 (D. Wong) ! -- Added new environmental variable, MET_TSTEP, to enable ! running with temporally finer meteorology ! 10 Jun 2021 (G. Sarwar) ! -- Added 'CB6R5M' and deleted "CB6R3M" ! 4 Mar 2022 (G. Sarwar) ! -- Added 'CB6R5' !.................................................................... MODULE RUNTIME_VARS use get_env_module #ifdef mpas use universal_data_module, only : logdev use mydata_module #endif IMPLICIT NONE SAVE PUBLIC INTEGER :: OUTDEV = 6 ! File Unit for Standard Output #ifndef mpas INTEGER :: LOGDEV = -1 ! File Unit for Ascii Log File #endif INTEGER :: TOTPE = 1 ! Number of Total Processors INTEGER :: NPROCS = 1 ! Number of Total Processors INTEGER :: MYPE = -1 ! Processor Number CHARACTER( 3 ) :: CMYPE = "" ! Processor Number !----------------------------------------------------------------------------------- !>> Parameters for formatting output log files !----------------------------------------------------------------------------------- INTEGER, PARAMETER :: CTM_DIAG_LVL = 0 INTEGER :: LOG_LINE_LENGTH = 80 ! Cut the log offs at this character if possible INTEGER :: LOG_MAJOR_TAB = 5 ! Left tab for all text including headings INTEGER :: LOG_MINOR_TAB = 2 ! Tab for indenting subsequent lines of text in ! a paragraph for instance. CHARACTER( 10 ) :: WEEKDAY( 7 ) = (/'Monday ','Tuesday ','Wednesday', & 'Thursday ','Friday ','Saturday ','Sunday ' /) ! this is for MPAS LOGICAL :: ncd_64bit_offset = .FALSE. !----------------------------------------------------------------------------------- !>> Define Environment Variables for Controlling CMAQ Processes !----------------------------------------------------------------------------------- ! Met model version LOGICAL :: WRF_V4P = .FALSE. ! Indicator of whether WRF version is 4+ or not ! Convective scheme in met model LOGICAL :: CONVECTIVE_SCHEME = .TRUE. ! Flag for column model LOGICAL :: COLUMN_MODEL = .FALSE. ! Grid and High-Level Model Parameters LOGICAL :: NEW_START = .TRUE. ! Start New Simulation. Not a Restart LOGICAL :: IGNORE_SOILINP = .FALSE. ! In case you don't have prev day CHARACTER(300):: EXECUTION_ID = '' ! Execution ID CHARACTER(16) :: GRID_NAME = '' ! grid name selected from GRIDDESC CHARACTER(16) :: PROGNAME = 'DRIVER' ! Program name selected from GRIDDESC INTEGER :: RUNLEN = 480000 ! Run Length INTEGER :: STDATE = 1995192 ! Start Date INTEGER :: STTIME = 000000 ! Start Time INTEGER :: LOCAL_TSTEP = 010000 ! set to TSTEP( 1 ) in initscen.F INTEGER :: MET_TSTEP ! set meterology input temporal frequency INTEGER :: NPCOL = 1 ! no. of processors across grid columns INTEGER :: NPROW = 1 ! no. of processors across grid rows INTEGER :: MAXSYNC = 720 ! force max TSTEP(2) (sec) INTEGER :: MINSYNC = 60 ! force min TSTEP(2) (sec) INTEGER, PARAMETER :: MAXLEN_CCTM_APPL = 200 ! Length of Logfile Names CHARACTER( MAXLEN_CCTM_APPL ) :: APPL_NAME = 'APPL' ! Logfile Names CHARACTER( MAXLEN_CCTM_APPL ) :: BLDFOLD = '' ! Build Directory CHARACTER( MAXLEN_CCTM_APPL ) :: OUTDIR = '' ! Output Directory ! General; Multiprocess control, output and error checking LOGICAL :: PRINT_PROC_TIME = .FALSE. ! Flag to print elapsed time for all ! science submodules LOGICAL :: FL_ERR_STOP=.TRUE. ! Flag to stop run if errors are found. LOGICAL :: CKSUM = .TRUE. ! flag for cksum on, default = [T] LOGICAL :: END_TIME = .FALSE. ! Override default beginning ACON timestamp INTEGER :: N_ACONC_VARS = 0 ! Number of species saved to avg conc file INTEGER :: N_CONC_VARS = 0 ! Number of species saved to conc file INTEGER :: ACONC_BLEV= 0 ! Beginning level saved to avg conc file INTEGER :: ACONC_ELEV= 0 ! Ending level saved to avg conc file INTEGER :: CONC_BLEV = 0 ! Beginning level saved to conc file INTEGER :: CONC_ELEV = 0 ! Ending level saved to conc file CHARACTER( 16 ) :: ACONC_FILE_SPCS( 900 ) = '' ! avg conc file species list CHARACTER( 16 ) :: CONC_FILE_SPCS(900 ) = '' ! conc file species list LOGICAL :: PWRTFLAG = .TRUE. ! Print confirmation of successful output ! to logfile LOGICAL :: LVEXT = .FALSE. ! Flag to perform vertical Extraction CHARACTER( 1000 ) :: VEXT_COORD_PATH = "" ! File Path for Lon-Lat Text file specifying ! locations for vertical extraction CHARACTER(256) :: GC_NAMELIST = '' ! Gas Species Namelist CHARACTER(256) :: AE_NAMELIST = '' ! Aerosol Species Namelist CHARACTER(256) :: NR_NAMELIST = '' ! Nonreactive Species Namelist CHARACTER(256) :: TR_NAMELIST = '' ! Tracer Species Namelist ! Chemistry and Photolysis LOGICAL :: PHOTDIAG = .FALSE. ! Flag for PHOTDIAG file INTEGER :: NLAYS_DIAG = 0 ! Number of Diagnostic Layers to write out for photolysis INTEGER :: NWAVE = 0 ! Number of Diagnostic Wavelengths CHARACTER(16) :: WAVE_ENV(100) ! Targeted wavelengths for diagnostic output LOGICAL :: CORE_SHELL= .FALSE. ! flag for using core-shell mixing model for aerosol optics INTEGER :: AEROSOL_OPTICS = 3 ! optics calculation method of volume mixture aerosols REAL :: GEAR_RTOL = 1.0E-3 ! Relative Tolerance for Gear Solver REAL :: GEAR_MAX_ATOL = 1.0E-7 ! Upper Bound for Absolute Tolerance in Gear Solver (ppmV) REAL :: GEAR_MIN_ATOL = 1.0E-9 ! Lower Bound for Absolute Tolerance in Gear Solver (ppmV) REAL :: GEAR_CONC_FLOOR = 1.0E-12 ! Lowest Concentration used determing ATOL in Gear Solver (ppmV) REAL :: GLBL_ATOL = 1.0E-7 ! Absolute Tolerance for Rosenbrock Solver (ppmV) REAL :: GLBL_RTOL = 1.0E-3 ! Relative Tolerance for Rosenbrock Solver LOGICAL :: LPVO3 = .FALSE. ! Activate Potential Vorticity Module (default=False) ! Aerosols LOGICAL :: IC_AERO_M2WET=.FALSE.! flag for specifying wet aerosol size parameters ! for initial conditions. FALSE = dry LOGICAL :: BC_AERO_M2WET=.FALSE.! flag for specifying wet aerosol size parameters ! for boundary conditions. FALSE = dry LOGICAL :: IC_AERO_M2USE=.TRUE. ! flag for using the second moment from the input file ! for initial conditions. TRUE = use input 2nd moment LOGICAL :: BC_AERO_M2USE=.TRUE. ! flag for using the second moment from the input file ! for boundary conditions.TRUE = use input 2nd moment ! Cloud Parameters LOGICAL :: CLD_DIAG = .FALSE. ! flag to output cloud diagnostic files ! Air-Surface Exchange LOGICAL :: ABFLUX = .FALSE. ! flag for ammonia bi-directional flux with in-lining depv LOGICAL :: MOSAIC = .FALSE. ! flag for STAGE mosaic - output land use specific deposition and deposition velocity LOGICAL :: SFC_HONO = .FALSE. ! flag for HONO interaction with surfaces LOGICAL :: PX_LSM = .TRUE. ! flag for WRF PX land surface model LOGICAL :: CLM_LSM = .FALSE. ! flag for WRF CLM land surface model LOGICAL :: NOAH_LSM = .TRUE. ! flag for WRF NOAH land surface model LOGICAL :: DEPV_DIAG = .FALSE. ! flag for grid cell deposition velocity diagnostic file Logical :: HGBIDI = .FALSE. ! flag for Hg bidirectional exchange Logical :: BIDI_FERT_NH3 = .TRUE. ! flag to remove fertilizer ammonia from Bidirectional emissions Logical :: STAGE_E20 = .TRUE. ! flag for the Emerson et al. 2020 Aerosol deposition model PNAS https://www.pnas.org/cgi/doi/10.1073/pnas.2014761117 Logical :: STAGE_P22 = .FALSE. ! flag for the Pleim et al. 2022 Aerosol deposition model Logical :: STAGE_S22 = .FALSE. ! flag for the Shu et al. 2022 Aerosol deposition model CHARACTER(16) :: DUST_LAND_SCHEME = "UNKNOWN" ! NLCD, USGS, etc ! Transport Processes LOGICAL :: VDIFFDIAG = .FALSE. ! flag for VDIFF diagnostic files REAL :: SIGST = 0.7 ! sigma_sync_top value REAL :: HDIV_LIM = 0.9 ! cutoff for max horizontal divergence step adj REAL :: CFL = 0.75 ! maximum Courant-Friedrichs-Lewy number allowed Logical :: MINKZ = .TRUE. ! flag for minimum Kz LOGICAL :: W_VEL = .FALSE. ! flag for vertical velocity LOGICAL :: GRAV_SETL = .TRUE. ! flag for aerosol gravitational setling ! Emissions Processes CHARACTER( MAXLEN_CCTM_APPL ) :: STAGECTRL = 'STAGECTRL_NML' ! STAGE Deposition Control Filename CHARACTER( MAXLEN_CCTM_APPL ) :: MISC_CTRL = 'MISC_CTRL_NML' ! Emission Control Filename CHARACTER( MAXLEN_CCTM_APPL ) :: DESID_CTRL = 'DESID_CTRL_NML' ! Emission Control Filename CHARACTER( MAXLEN_CCTM_APPL ) :: DESID_CHEM_CTRL = 'DESID_CHEM_CTRL_NML' ! Emission Control Filename INTEGER :: EMLAYS_MX = 0 ! Emission Layers INTEGER :: N_FILE_GR = 0 ! Number of Gridded Emission Files INTEGER :: N_FILE_TR = 0 ! NUmber of Tracer Emission Files LOGICAL :: EMISCHK = .TRUE. ! flag for checking that surrogate emissions ! are present on emission files LOGICAL :: BIOGEMIS_BEIS = .FALSE. ! flag to in-line biogenic VOC emissions LOGICAL :: BIOGEMIS_MEGAN= .FALSE. ! flag to in-line MEGAN biogenic emissions LOGICAL :: USE_MEGAN_LAI = .FALSE. ! flag to use MEGAN LAI values LOGICAL :: MGN_ONLN_DEP = .FALSE. ! flag to use ONLINE N deposition in BDSNP LOGICAL :: BDSNP_MEGAN = .FALSE. ! flag to use BDSNP for soil NO CHARACTER(16) :: SPPRO = 'DEFAULT' ! requested speciation profile name LOGICAL :: BEMIS_DIAG = .TRUE. ! true: write diagnostic emiss file LOGICAL :: MGEMDIAG = .FALSE. ! flag for MGEM diagnostic file LOGICAL :: OCEAN_CHEM = .TRUE. ! Flag for ocean halogen chemistry and sea spray aerosol emissions LOGICAL :: WB_DUST = .FALSE. ! flag for On-Line Dust Emission Calculation LOGICAL :: DUSTEM_DIAG = .FALSE. ! flag for dustemis diagnostic file LOGICAL :: SSEMDIAG = .FALSE. ! flag for SSEMIS diagnostic file LOGICAL :: LTNG_NO = .FALSE. ! flag for online calculation of NO from lightning INTEGER :: LT_ASM_DT = 0 ! Lightning Input Time Interval LOGICAL :: NLDNSTRIKE = .FALSE. ! flag to use NLDN STRIKE directly LOGICAL :: LTNGDIAG = .FALSE. ! flag to turn on lightning NO diagnostics REAL :: MOLSNCG = 350.0 ! Lightning NO Production Rate REAL :: MOLSNIC = 350.0 ! Lightning NO Production Rate CHARACTER(250) :: LTNG_FNAME = 'InLine' ! Lightning NO Input Name INTEGER :: NPTGRPS = 0 ! no. pt src input file groups LOGICAL :: PT3DDIAG = .FALSE. ! Write point source 3d emis diagnostic file LOGICAL :: PT3DFRAC = .FALSE. ! Write layer fractions diagnostic file, if true INTEGER :: PT_NSTEPS = 1 INTEGER :: PT_DATE = 1995192 ! Julian start date (YYYYDDD) INTEGER :: PT_TIME = 0 ! start time (HHMMSS) INTEGER :: IPVERT = 0 ! Numerical flag for plume vertical spread method INTEGER :: REP_LAYR = -1 ! Minimum layer for reporting srcs w/ high plumes LOGICAL :: EMIS_SYM_DATE = .FALSE. ! Overrider CMAQ not to check ! if the dates on the emissions file match that of ! the interal model (representative day case) CHARACTER( 16 ), SAVE, ALLOCATABLE :: PLAY_BASE( : ) ! Use for Plume Rise Calculation LOGICAL :: USE_MARINE_GAS_EMISSION = .FALSE. ! Process Analysis LOGICAL :: PROCAN = .FALSE. ! flag for process analysis INTEGER :: PA_BEGCOL = 0 ! Starting PA output INTEGER :: PA_ENDCOL = 0 ! ending column for PA output INTEGER :: PA_BEGROW = 0 ! Starting row for PA output INTEGER :: PA_ENDROW = 0 ! ending row for PA output INTEGER :: PA_BEGLEV = 0 ! Starting layer for PA output INTEGER :: PA_ENDLEV = 0 ! ending layer for PA output CHARACTER( MAXLEN_CCTM_APPL ) :: BUDGET_FNAME = 'CCTM_BUDGET' ! STAGE Deposition Control Filename ! Sulfur tracking LOGICAL :: STM = .FALSE. ! flag for sulfur tracking option LOGICAL :: ADJ_STMSPC = .TRUE. ! flag for normalizing sulfur tracking species ! ISAM CHARACTER(1) :: ISAM_NEW_START = 'Y' ! Start New Simulation. Not a Restart for ISAM INTEGER :: ISAM_BLEV = 0 ! Beginning level saved to conc file INTEGER :: ISAM_ELEV = 0 ! Ending level saved to conc file INTEGER :: SA_NLAYS = 0 ! Number of layers saved to conc file INTEGER :: AISAM_BLEV = 0 ! Beginning level saved to sa_aconc file INTEGER :: AISAM_ELEV = 0 ! Ending level saved to sa_aconc file INTEGER :: AVGSA_LAYS = 0 ! Number of layers saved to conc file INTEGER :: ISAM_CHEM_BIAS = 5 ! which chemistry are biased in apportioning reaction yields ! to source reactant ! 1 for none so divided equally between sources' reactant ! 2 for all products apportioned to sources with NO, NO2, NO3, HONO, ANO3 ! -equally if reactants are neither or both ! 3 for all products apportioned to sources with Case 2 plus select OVOC species ! and radicals ! -equally if reactants are neither or both ! 4 for all products apportioned to sources with select OVOC species ! and radicals ! -equally if reactants are neither or both ! 5 to switch between Cases 2 and 3 based on whether ! production H2O2 over production HNO3 less than VOC_NOX_TRANS REAL :: VOC_NOX_TRANS = 0.35 ! H2O2 to HNO3 marking transition from NOx to VOC limiting O3 production INTEGER :: ISAM_NOX_CASE = 2 ! option of ISAM_CHEM_BIAS representing NOx limiting O3 production INTEGER :: ISAM_VOC_CASE = 4 ! option of ISAM_CHEM_BIAS representing VOC limiting O3 production CONTAINS !......................................................................... SUBROUTINE INIT_ENV_VARS( JDATE, JTIME ) ! Defines and retrieves values for all environment variable input to ! CMAQ. !......................................................................... USE RXNS_DATA, ONLY : MECHNAME #ifdef mpas use utilio_defn #else USE M3UTILIO #endif IMPLICIT NONE INCLUDE SUBST_FILES_ID ! file name parameters #ifdef parallel include 'mpif.h' #endif INTEGER, INTENT( In ) :: JDATE INTEGER, INTENT( In ) :: JTIME CHARACTER( 16 ) :: V_LIST2( 20 ) CHARACTER( 240 ) :: XMSG = '' INTEGER :: NV INTEGER :: STATUS ! ENV... status CHARACTER( 400 ) :: STRTEMP CHARACTER( 80 ) :: PBASE INTEGER, PARAMETER :: EXIT_STATUS = 1 INTEGER :: ERROR INTEGER :: VARDEV = -1 LOGICAL :: FOUND LOGICAL :: EFLAG = .FALSE. INTEGER :: LOC, STR_LEN CHARACTER(10) :: WRF_VERSION CHARACTER( 16 ) :: PNAME = 'RUNTIME_VARS' !------------------------------------------------------------------------------------------------------- !>> Grid and High-Level Model Parameters !------------------------------------------------------------------------------------------------------- #ifdef parallel CALL MPI_COMM_RANK ( MPI_COMM_WORLD, MYPE, ERROR ) CALL MPI_COMM_SIZE ( MPI_COMM_WORLD, TOTPE, ERROR ) #else MYPE = 0 TOTPE = 0 #endif IF ( MYPE .EQ. 0 ) VARDEV = OUTDEV ! Get Simulation Scenario Name to Label Log Files, etc CALL GET_ENV( APPL_NAME, 'CTM_APPL', APPL_NAME, VARDEV ) ! Start I/O-API and set up log file(s) CALL SETUP_LOGDEV() IF ( MYPE .EQ. 0 ) THEN CALL LOG_HEADING( OUTDEV, "Environment Variable Report" ) CALL LOG_SUBHEADING( OUTDEV, "Grid and High-Level Model Parameters" ) WRITE( OUTDEV, '(6x,A)' ),'--Env Variable-- | --Value--' WRITE( OUTDEV, '(6x,A)' ), REPEAT( '-',80 ) END IF ! Get Logfile Directory CALL GET_ENV ( BLDFOLD, 'BLD', BLDFOLD, VARDEV ) ! Get Logfile Directory CALL GET_ENV ( OUTDIR, 'OUTDIR', OUTDIR, VARDEV ) ! Determine if this run is a new start or a restart CALL GET_ENV ( NEW_START, 'NEW_START', NEW_START, VARDEV ) ! Determine if prev day soilinp is available for MEGAN CALL GET_ENV ( IGNORE_SOILINP, 'IGNORE_SOILINP', IGNORE_SOILINP, VARDEV ) ! Get Execution ID CALL GET_ENV ( STRTEMP, 'EXECUTION_ID', EXECUTION_ID, VARDEV ) EXECUTION_ID = STRTEMP(1:300) ! Get Grid Name CALL GET_ENV ( STRTEMP, 'GRID_NAME', GRID_NAME, VARDEV ) GRID_NAME = STRTEMP(1:16) ! Output Time Step CALL GET_ENV ( LOCAL_TSTEP, 'CTM_TSTEP', LOCAL_TSTEP, VARDEV ) ! Run Duration CALL GET_ENV ( RUNLEN, 'CTM_RUNLEN', RUNLEN, VARDEV ) #ifndef twoway ! Main Program Name CALL GET_ENV ( STRTEMP, 'CTM_PROGNAME', PROGNAME, VARDEV ) PROGNAME = STRTEMP( 1:16 ) ! Starting Date CALL GET_ENV ( STDATE, 'CTM_STDATE', STDATE, VARDEV ) ! Starting Time CALL GET_ENV ( STTIME, 'CTM_STTIME', STTIME, VARDEV ) ! Retrieve the domain decomposition processor array IF ( NPROCS .GT. 1 ) THEN CALL GET_ENVLIST ( 'NPCOL_NPROW', NV, V_LIST2, VARDEV ) IF ( NV .NE. 2 ) THEN XMSG = 'Environment variable problem for NPCOL_NPROW' & // ' using default 1X1' CALL M3WARN ( 'INIT_ENV_VARS', 0, 0, XMSG ) NV = 2 V_LIST2( 1 ) = '1' V_LIST2( 2 ) = '1' END IF READ( V_LIST2( 1 ), '( I4 )' ) NPCOL READ( V_LIST2( 2 ), '( I4 )' ) NPROW END IF #endif ! MAXSYNC CALL GET_ENV ( MAXSYNC, 'CTM_MAXSYNC', MAXSYNC, VARDEV ) ! MINSYNC CALL GET_ENV ( MINSYNC, 'CTM_MINSYNC', MINSYNC, VARDEV ) !------------------------------------------------------------------------------------------------------- !>> General; Multiprocess control, output and error checking !------------------------------------------------------------------------------------------------------- IF ( MYPE .EQ. 0 ) THEN CALL LOG_SUBHEADING( OUTDEV, "Multiprocess control, output and error checking" ) WRITE( OUTDEV, '(6x,A)' ),'--Env Variable-- | --Value--' WRITE( OUTDEV, '(6x,A)' ), REPEAT( '-',80 ) END IF ! PRINT_PROC_TIME CALL GET_ENV ( PRINT_PROC_TIME, 'PRINT_PROC_TIME', PRINT_PROC_TIME, VARDEV ) ! FL_ERR_STOP CALL GET_ENV ( FL_ERR_STOP, 'FL_ERR_STOP', FL_ERR_STOP, VARDEV ) ! CKSUM CALL GET_ENV ( CKSUM, 'CTM_CKSUM', CKSUM, VARDEV ) ! Override default beginning time timestamp for ACONC? CALL GET_ENV ( END_TIME, 'AVG_FILE_ENDTIME', END_TIME, VARDEV ) ! ACONC File Species List CALL GET_ENVLIST ( 'AVG_CONC_SPCS', N_ACONC_VARS, ACONC_FILE_SPCS, VARDEV ) ! CONC File Species List CALL GET_ENVLIST ( 'CONC_SPCS', N_CONC_VARS, CONC_FILE_SPCS, VARDEV ) ! ACONC Layer Specification CALL GET_ENVLIST ( 'ACONC_BLEV_ELEV', NV, V_LIST2, VARDEV ) IF ( NV .LE. 0 ) THEN ! assume 1:NLAYS ACONC_BLEV = 1 ACONC_ELEV = -1 ELSE IF ( NV .EQ. 1 ) THEN ! Assume 1:CONC_BLEV_ELEV ACONC_BLEV = 1 READ( V_LIST2( 2 ), '( I4 )' ) ACONC_ELEV ELSE IF ( NV .EQ. 2 ) THEN ! Correct Input READ( V_LIST2( 1 ), '( I4 )' ) ACONC_BLEV READ( V_LIST2( 2 ), '( I4 )' ) ACONC_ELEV ELSE XMSG = 'Environment variable error for ACONC_BLEV_ELEV' CALL M3EXIT( 'INIT_ENV_VARS', JDATE, JTIME, XMSG, EXIT_STATUS ) END IF ! CONC File Vertical Layer Range and Speciation CALL GET_ENVLIST ( 'CONC_BLEV_ELEV', NV, V_LIST2, VARDEV ) IF ( NV .LE. 0 ) THEN ! assume 1:NLAYS CONC_BLEV = 1 CONC_ELEV = -1 ELSE IF ( NV .EQ. 1 ) THEN ! Assume 1:CONC_BLEV_ELEV CONC_BLEV = 1 READ( V_LIST2( 2 ), '( I4 )' ) CONC_ELEV ELSE IF ( NV .EQ. 2 ) THEN ! Correct Input READ( V_LIST2( 1 ), '( I4 )' ) CONC_BLEV READ( V_LIST2( 2 ), '( I4 )' ) CONC_ELEV ELSE XMSG = 'Environment variable error for CONC_BLEV_ELEV' CALL M3EXIT( 'INIT_ENV_VARS', JDATE, JTIME, XMSG, EXIT_STATUS ) END IF ! PWRTFLAG CALL GET_ENV ( PWRTFLAG, 'IOAPI_LOG_WRITE', PWRTFLAG, VARDEV ) ! Get Flag for Vertical Extraction CALL GET_ENV ( LVEXT, 'VERTEXT', LVEXT, VARDEV ) #ifdef parallel ! Get Filepath for File Specifying Lon-Lat Coordinates for ! Vertical Extraction CALL GET_ENV ( VEXT_COORD_PATH, 'VERTEXT_COORD_PATH', VEXT_COORD_PATH, VARDEV ) #else IF( LVEXT ) THEN LVEXT = .FALSE. WRITE( OUTDEV,'(A)')'Option to extract a Vertical Column of Ouptut Data set to YES' WRITE( OUTDEV,'(A)')'However, the serial version cannot execute the option' WRITE( LOGDEV,'(A)')'Option to extract a Vertical Column of Ouptut Data set to YES' WRITE( LOGDEV,'(A)')'However, the serial version cannot execute the option' END IF #endif ! Get Filename for Gas Species Namelist CALL GET_ENV ( GC_NAMELIST, 'gc_matrix_nml', GC_NAMELIST, VARDEV ) ! Get Filename for Aerosol Species Namelist CALL GET_ENV ( AE_NAMELIST, 'ae_matrix_nml', AE_NAMELIST, VARDEV ) ! Get Filename for Nonreactive Species Namelist CALL GET_ENV ( NR_NAMELIST, 'nr_matrix_nml', NR_NAMELIST, VARDEV ) ! Get Filename for Tracer Species Namelist CALL GET_ENV ( TR_NAMELIST, 'tr_matrix_nml', TR_NAMELIST, VARDEV ) #ifdef isam !------------------------------------------------------------------------------------------------------- !>> ISAM !------------------------------------------------------------------------------------------------------- IF ( MYPE .EQ. 0 ) THEN CALL LOG_SUBHEADING( OUTDEV, "ISAM setting and output options" ) WRITE( OUTDEV, '(6x,A)' ),'--Env Variable-- | --Value--' WRITE( OUTDEV, '(6x,A)' ), REPEAT( '-',80 ) END IF ! Determine if this ISAM run is a new start or a restart CALL GET_ENV ( ISAM_NEW_START, 'ISAM_NEW_START', ISAM_NEW_START, VARDEV ) ! SA_ACONC Layer Specification CALL GET_ENVLIST ( 'AISAM_BLEV_ELEV', NV, V_LIST2, VARDEV ) IF ( NV .LE. 0 ) THEN ! assume 1:NLAYS AISAM_BLEV = 1 AISAM_ELEV = -1 ELSE IF ( NV .EQ. 1 ) THEN ! Assume 1:AISAM_BLEV_ELEV AISAM_BLEV = 1 READ( V_LIST2( 2 ), '( I4 )' ) AISAM_ELEV ELSE IF ( NV .EQ. 2 ) THEN ! Correct Input READ( V_LIST2( 1 ), '( I4 )' ) AISAM_BLEV READ( V_LIST2( 2 ), '( I4 )' ) AISAM_ELEV ELSE XMSG = 'Environment variable error for AISAM_BLEV_ELEV' CALL M3EXIT( 'INIT_ENV_VARS', JDATE, JTIME, XMSG, EXIT_STATUS ) END IF ! SA_CONC File Vertical Layer Range and Speciation CALL GET_ENVLIST ( 'ISAM_BLEV_ELEV', NV, V_LIST2, VARDEV ) IF ( NV .LE. 0 ) THEN ! assume 1:NLAYS ISAM_BLEV = 1 ISAM_ELEV = -1 ELSE IF ( NV .EQ. 1 ) THEN ! Assume 1:ISAM_BLEV_ELEV ISAM_BLEV = 1 READ( V_LIST2( 2 ), '( I4 )' ) ISAM_ELEV ELSE IF ( NV .EQ. 2 ) THEN ! Correct Input READ( V_LIST2( 1 ), '( I4 )' ) ISAM_BLEV READ( V_LIST2( 2 ), '( I4 )' ) ISAM_ELEV ELSE XMSG = 'Environment variable error for ISAM_BLEV_ELEV' CALL M3EXIT( 'INIT_ENV_VARS', JDATE, JTIME, XMSG, EXIT_STATUS ) END IF ! Get species bias case CALL GET_ENV ( ISAM_CHEM_BIAS, 'ISAM_O3_WEIGHTS', ISAM_CHEM_BIAS, VARDEV ) IF ( ISAM_CHEM_BIAS .LT. 1 .OR. ISAM_CHEM_BIAS .GT. 5 ) THEN XMSG = 'ISAM_O3_WEIGHTS must equal 1 thru 5' WRITE( OUTDEV, '(A)' )TRIM( XMSG ) CALL M3EXIT ( PNAME, 0, 0, XMSG, XSTAT1 ) END IF IF ( ISAM_CHEM_BIAS .EQ. 5 ) THEN EFLAG = .FALSE. ! VOC_NOX_TRANS value, ratio of H2O2 over HNO3 production rates or concentration CALL GET_ENV ( VOC_NOX_TRANS, 'VOC_NOX_TRANS', VOC_NOX_TRANS, VARDEV ) CALL GET_ENV ( ISAM_NOX_CASE, 'ISAM_NOX_CASE', ISAM_NOX_CASE, VARDEV ) CALL GET_ENV ( ISAM_VOC_CASE, 'ISAM_VOC_CASE', ISAM_VOC_CASE, VARDEV ) IF ( ISAM_NOX_CASE .LT. 1 .OR. ISAM_NOX_CASE .GT. 4 ) THEN XMSG = 'ISAM_NOX_CASE must equal 1 thru 4' WRITE( OUTDEV, '(A)' )TRIM( XMSG ) EFLAG = .TRUE. END IF IF ( ISAM_VOC_CASE .LT. 1 .OR. ISAM_VOC_CASE .GT. 4 ) THEN XMSG = 'ISAM_VOC_CASE must equal 1 thru 4' WRITE( OUTDEV, '(A)' )TRIM( XMSG ) EFLAG = .TRUE. END IF IF ( ISAM_VOC_CASE .EQ. ISAM_NOX_CASE ) THEN XMSG = 'ISAM_VOC_CASE must NOT equal ISAM_NOX_CASE' WRITE( OUTDEV, '(A)' )TRIM( XMSG ) XMSG = 'Set ISAM_O3_WEIGHTS to their value.' WRITE( OUTDEV, '(A)' )TRIM( XMSG ) EFLAG = .TRUE. END IF IF ( EFLAG ) CALL M3EXIT ( PNAME, 0, 0, 'Found errors in ISAM options', XSTAT1 ) END IF #endif !------------------------------------------------------------------------------------------------------- !>> Chemistry and Photolysis !------------------------------------------------------------------------------------------------------- IF ( MYPE .EQ. 0 ) THEN CALL LOG_SUBHEADING( OUTDEV, "Chemistry and Photolysis" ) WRITE( OUTDEV, '(6x,A)' ),'--Env Variable-- | --Value--' WRITE( OUTDEV, '(6x,A)' ), REPEAT( '-',80 ) END IF ! Get photolysis rate diagnostic file flag CALL GET_ENV ( PHOTDIAG, 'CTM_PHOTDIAG', PHOTDIAG, VARDEV ) IF( PHOTDIAG ) THEN ! Get desired number of layers for PHOTDIAG2 and PHOTDIAG3 files CALL GET_ENV ( NLAYS_DIAG, 'NLAYS_PHOTDIAG', NLAYS_DIAG, VARDEV ) ! Get Desired Wavelengths for Diagnostic Output CALL GET_ENVLIST( 'NWAVE_PHOTDIAG', NWAVE, WAVE_ENV, VARDEV ) END IF CALL GET_ENV ( AEROSOL_OPTICS, 'AEROSOL_OPTICS', AEROSOL_OPTICS, VARDEV ) IF ( AEROSOL_OPTICS .GT. 3 ) THEN ! core-shell mixing model possible CORE_SHELL = .TRUE. AEROSOL_OPTICS = AEROSOL_OPTICS - 3 END IF IF ( AEROSOL_OPTICS .LT. 1 .OR. AEROSOL_OPTICS .GT. 3 ) THEN XMSG = 'AEROSOL_OPTICS option must equal 1 to 6' WRITE( OUTDEV, '(A)' )TRIM( XMSG ) CALL M3EXIT ( PNAME, 0, 0, XMSG, XSTAT1 ) END IF IF ( MYPE .EQ. 0 ) THEN WRITE( OUTDEV, '(/,6x,A,/)' )'--ATOL settings are in ppmV.--' END IF ! Upper Bound for Absolute Tolerance for Gear Solver CALL GET_ENV ( GEAR_MAX_ATOL, 'GEAR_MAX_ATOL', GEAR_MAX_ATOL, VARDEV ) ! Lower Bound for Absolute Tolerance for Gear Solver CALL GET_ENV ( GEAR_MIN_ATOL, 'GEAR_MIN_ATOL', GEAR_MIN_ATOL, VARDEV ) ! Lowest Concentration used determing ATOL for Gear Solver CALL GET_ENV ( GEAR_CONC_FLOOR, 'GEAR_CONC_FLOOR', GEAR_CONC_FLOOR, VARDEV ) !Relative Tolerance for SMVGEAR CALL GET_ENV ( GEAR_RTOL, 'GEAR_RTOL', GEAR_RTOL, VARDEV ) ! Tolerances for Rosenbrock Solver CALL GET_ENV ( GLBL_RTOL, 'RB_RTOL', GLBL_RTOL, VARDEV ) ! Absolute Tolerance for RB Solver CALL GET_ENV ( GLBL_ATOL, 'RB_ATOL', GLBL_ATOL, VARDEV ) ! Get option for scaling ozone in free-troposphere to potential vorticity CALL GET_ENV ( LPVO3, 'CTM_PVO3', LPVO3, VARDEV ) !------------------------------------------------------------------------------------------------------- !>> Aerosols !------------------------------------------------------------------------------------------------------- IF ( MYPE .EQ. 0 ) THEN CALL LOG_SUBHEADING( OUTDEV, "Aerosols" ) WRITE( OUTDEV, '(6x,A)' ),'--Env Variable-- | --Value--' WRITE( OUTDEV, '(6x,A)' ), REPEAT( '-',80 ) END IF ! Get flag for interpreting initial condition aerosol size distributions as dry CALL GET_ENV ( IC_AERO_M2WET, 'IC_AERO_M2WET', IC_AERO_M2WET, VARDEV ) ! Get flag for interpreting initial condition aerosol size distributions as dry CALL GET_ENV ( BC_AERO_M2WET, 'BC_AERO_M2WET', BC_AERO_M2WET, VARDEV ) ! Get flag for using initial condition aerosol second moment CALL GET_ENV ( IC_AERO_M2USE, 'IC_AERO_M2USE', IC_AERO_M2USE, VARDEV ) ! Get flag for using initial condition aerosol second moment CALL GET_ENV ( BC_AERO_M2USE, 'BC_AERO_M2USE', BC_AERO_M2USE, VARDEV ) !------------------------------------------------------------------------------------------------------- !>> sulfur tracking option !------------------------------------------------------------------------------------------------------- ! Flag for sulfur tracking option CALL GET_ENV ( STM, 'STM_SO4TRACK', STM, VARDEV ) IF ( STM ) THEN ! Get sulfur tracking normalization flag CALL GET_ENV ( ADJ_STMSPC, 'STM_ADJSO4', ADJ_STMSPC, VARDEV ) END IF !------------------------------------------------------------------------------------------------------- !>> Cloud Parameters !------------------------------------------------------------------------------------------------------- IF ( MYPE .EQ. 0 ) THEN CALL LOG_SUBHEADING( OUTDEV, "Cloud Processes" ) WRITE( OUTDEV, '(6x,A)' ),'--Env Variable-- | --Value--' WRITE( OUTDEV, '(6x,A)' ), REPEAT( '-',80 ) END IF ! FLag for outputting cloud diagnostics CALL GET_ENV ( CLD_DIAG, 'CLD_DIAG', CLD_DIAG, VARDEV ) !------------------------------------------------------------------------------------------------------- !>> Air-Surface Exchange Parameters !------------------------------------------------------------------------------------------------------- IF ( MYPE .EQ. 0 ) THEN CALL LOG_SUBHEADING( OUTDEV, "Air-Surface Exchange Processes" ) WRITE( OUTDEV, '(6x,A)' ),'--Env Variable-- | --Value--' WRITE( OUTDEV, '(6x,A)' ), REPEAT( '-',80 ) END IF ! Check if using PX version of MCIP CALL GET_ENV ( PX_LSM, 'PX_VERSION', PX_LSM, VARDEV ) ! Flag for Ammonia bi-directional flux with in-line deposition ! velocities calculation CALL GET_ENV ( ABFLUX, 'CTM_ABFLUX', ABFLUX, VARDEV ) ! Flag for Mosaic method to get land-use specific deposition velocities CALL GET_ENV ( MOSAIC, 'CTM_MOSAIC', MOSAIC, VARDEV ) ! Flag for HONO interaction with leaf and building surfaces CALL GET_ENV ( SFC_HONO, 'CTM_SFC_HONO', SFC_HONO, VARDEV ) ! Flag CLM LSM CALL GET_ENV ( CLM_LSM, 'CLM_VERSION', CLM_LSM, VARDEV ) ! Flag for NOAH LSM CALL GET_ENV ( NOAH_LSM, 'NOAH_VERSION', NOAH_LSM, VARDEV ) ! CTM_DEPV_FILE CALL GET_ENV ( DEPV_DIAG, 'CTM_DEPV_FILE', DEPV_DIAG, VARDEV ) ! CTM_HGBIDI CALL GET_ENV ( HGBIDI, 'CTM_HGBIDI', HGBIDI, VARDEV ) ! CTM_IGNORE_FERT_NH3 CALL GET_ENV ( BIDI_FERT_NH3, 'CTM_BIDI_FERT_NH3', BIDI_FERT_NH3, VARDEV ) ! Flag for using BELD Land Use for WindBlown Dust CALL GET_ENV ( STRTEMP, 'CTM_WBDUST_BELD', DUST_LAND_SCHEME, VARDEV ) DUST_LAND_SCHEME = STRTEMP( 1:16) ! Get Name of STAGE Control File CALL GET_ENV ( STAGECTRL, 'STAGECTRL_NML', STAGECTRL, VARDEV ) ! Flag for Surface Tiled Aerosol and Gaseous Exchange (STAGE) model Pleim et al. 2022 Aerosol Deposition Option CALL GET_ENV ( STAGE_P22, 'CTM_STAGE_P22', STAGE_P22, VARDEV ) ! Flag for Surface Tiled Aerosol and Gaseous Exchange (STAGE) model Emerson et al. 2020 Aerosol Deposition Option CALL GET_ENV ( STAGE_E20, 'CTM_STAGE_E20', STAGE_E20, VARDEV ) ! Flag for Surface Tiled Aerosol and Gaseous Exchange (STAGE) model Shu et al. 2022 (CMAQ v5.3) Aerosol Deposition Option CALL GET_ENV ( STAGE_S22, 'CTM_STAGE_S22', STAGE_S22, VARDEV ) !------------------------------------------------------------------------------------------------------- !>> Transport Processes !------------------------------------------------------------------------------------------------------- IF ( MYPE .EQ. 0 ) THEN CALL LOG_SUBHEADING( OUTDEV, "Transport Processes" ) WRITE( OUTDEV, '(6x,A)' ),'--Env Variable-- | --Value--' WRITE( OUTDEV, '(6x,A)' ), REPEAT( '-',80 ) END IF ! Flag for writing vertical diffusion diagnostic file and possibly gravitational settling diagnostic file CALL GET_ENV ( VDIFFDIAG, 'VDIFF_DIAG_FILE', VDIFFDIAG, VARDEV ) ! Get Minimum Layer for Advection Time Step Adjustment CALL GET_ENV ( SIGST, 'SIGMA_SYNC_TOP', SIGST, VARDEV ) ! Get Maximum Horizontal Div Limit for Advection Adjustment CALL GET_ENV ( HDIV_LIM, 'ADV_HDIV_LIM', HDIV_LIM, VARDEV ) ! CFL Criteria CALL GET_ENV ( CFL, 'CTM_ADV_CFL', CFL, VARDEV ) ! CTM_KZMIN CALL GET_ENV ( MINKZ, 'KZMIN', MINKZ, VARDEV ) ! CTM_WVEL #ifdef mpas W_VEL = .FALSE. #else CALL GET_ENV ( W_VEL, 'CTM_WVEL', W_VEL, VARDEV ) #endif ! CTM_GRAV_SETL CALL GET_ENV ( GRAV_SETL, 'CTM_GRAV_SETL', GRAV_SETL, VARDEV ) !------------------------------------------------------------------------------------------------------- !>> Emission Environment Variables !------------------------------------------------------------------------------------------------------- IF ( MYPE .EQ. 0 ) THEN CALL LOG_SUBHEADING( OUTDEV, "Emissions Parameters" ) WRITE( OUTDEV, '(6x,A)' ),'--Env Variable-- | --Value--' WRITE( OUTDEV, '(6x,A)' ), REPEAT( '-',80 ) END IF ! Number of Layers for Emissions CALL GET_ENV ( EMLAYS_MX, 'CTM_EMLAYS', EMLAYS_MX, VARDEV ) ! Get Name of Emission Control File CALL GET_ENV ( MISC_CTRL, 'MISC_CTRL_NML', MISC_CTRL, VARDEV ) CALL GET_ENV ( DESID_CTRL, 'DESID_CTRL_NML', DESID_CTRL, VARDEV ) CALL GET_ENV ( DESID_CHEM_CTRL,'DESID_CHEM_CTRL_NML', DESID_CHEM_CTRL, VARDEV ) ! Get number of different Gridded File Emissions Streams CALL GET_ENV ( N_FILE_GR, 'N_EMIS_GR', N_FILE_GR, VARDEV ) ! Get number of different Gridded File Emissions Streams CALL GET_ENV ( N_FILE_TR, 'N_EMIS_TR', N_FILE_TR, VARDEV ) ! Flag for checking emissions surrogates against species actually ! present on emissions files CALL GET_ENV ( EMISCHK, 'CTM_EMISCHK', EMISCHK, VARDEV ) ! CTM_BIOGEMIS_BE CALL GET_ENV ( BIOGEMIS_BEIS, 'CTM_BIOGEMIS_BE', BIOGEMIS_BEIS, VARDEV ) ! CTM_BIOGEMIS_MG CALL GET_ENV(BIOGEMIS_MEGAN, 'CTM_BIOGEMIS_MG', BIOGEMIS_MEGAN,VARDEV ) CALL GET_ENV(USE_MEGAN_LAI, 'USE_MEGAN_LAI',USE_MEGAN_LAI,VARDEV ) CALL GET_ENV(MGN_ONLN_DEP, 'MGN_ONLN_DEP',MGN_ONLN_DEP,VARDEV ) CALL GET_ENV(BDSNP_MEGAN, 'BDSNP_MEGAN',BDSNP_MEGAN,VARDEV ) ! Get the speciation profile to use CALL GET_ENV ( SPPRO, 'BIOG_SPRO', SPPRO, VARDEV ) ! Biogenic Emission Diag File CALL GET_ENV ( BEMIS_DIAG, 'B3GTS_DIAG', BEMIS_DIAG, VARDEV ) ! Get marine gas emission diagnostic output file flag. CALL GET_ENV ( MGEMDIAG, 'CTM_MGEMDIAG', MGEMDIAG, VARDEV ) ! Flag for ocean halogen chemistry and sea spray aerosol emissions CALL GET_ENV ( OCEAN_CHEM, 'CTM_OCEAN_CHEM', OCEAN_CHEM, VARDEV ) ! Flag for Online Calculation of Windblown dust emissions CALL GET_ENV ( WB_DUST, 'CTM_WB_DUST', WB_DUST, VARDEV ) ! Get env var for diagnostic output CALL GET_ENV ( DUSTEM_DIAG, 'CTM_DUSTEM_DIAG', DUSTEM_DIAG, VARDEV ) ! Get sea spray emission diagnostic output file flag. CALL GET_ENV ( SSEMDIAG, 'CTM_SSEMDIAG', SSEMDIAG, VARDEV ) ! Set LTNG_NO to Y or T to turn on lightning NO production CALL GET_ENV ( LTNG_NO, 'CTM_LTNG_NO', LTNG_NO, VARDEV ) ! Get Lightning Input Time Interval CALL GET_ENV ( LT_ASM_DT, 'LTNG_ASSIM_DT', LT_ASM_DT, VARDEV ) ! Get Lightning NO File Name CALL GET_ENV ( LTNG_FNAME, 'LTNGNO', LTNG_FNAME, VARDEV ) ! Flag for using NLDN data for Lightning Strikes CALL GET_ENV ( NLDNSTRIKE, 'USE_NLDN', NLDNSTRIKE, VARDEV ) ! Flag for Outputing Lightning Diagnostic File CALL GET_ENV ( LTNGDIAG, 'LTNGDIAG', LTNGDIAG, VARDEV ) ! Get Lightning NO Production Rate CALL GET_ENV ( MOLSNCG, 'MOLSNCG', 350.0, VARDEV ) ! Get Lightning NO Production Rate CALL GET_ENV ( MOLSNIC, 'MOLSNIC', 350.0, VARDEV ) ! get number of different file groups (sectors) CALL GET_ENV ( NPTGRPS, 'N_EMIS_PT', NPTGRPS, VARDEV ) ! PT3DDIAG ! CALL GET_ENV ( PT3DDIAG, 'PT3DDIAG', PT3DDIAG, VARDEV ) ! PT3DFRAC ! CALL GET_ENV ( PT3DFRAC, 'PT3DFRAC', PT3DFRAC, VARDEV ) ! Point Source Time Steps ! CALL GET_ENV ( PT_NSTEPS, 'LAYP_NSTEPS', PT_NSTEPS, VARDEV ) ! Point Source Date ! CALL GET_ENV ( PT_DATE, 'LAYP_STDATE', PT_DATE, VARDEV ) ! Point Source Time ! CALL GET_ENV ( PT_TIME, 'LAYP_STTIME', PT_TIME, VARDEV ) ! IPVERT CALL GET_ENV ( IPVERT, 'IPVERT', IPVERT, VARDEV ) ! REP_LAYR ! CALL GET_ENV ( REP_LAYR, 'REP_LAYER_MIN', REP_LAYR, VARDEV ) ! ALLOCATE( PLAY_BASE( NPTGRPS ) ) ! PLAY_BASE( : ) = '' ! DO NV = 1,NPTGRPS ! WRITE( PBASE,'( "PLAY_BASE", "_", I2.2 )' ) NV ! CALL GET_ENV ( STRTEMP, PBASE, PLAY_BASE( NV ), VARDEV ) ! PLAY_BASE( NV ) = STRTEMP ! END DO ! Determine user-defined default for emissions date override for representative days CALL GET_ENV ( EMIS_SYM_DATE, 'EMIS_SYM_DATE', EMIS_SYM_DATE, VARDEV ) !------------------------------------------------------------------------------------------------------- !>> Process Analysis !------------------------------------------------------------------------------------------------------- IF ( MYPE .EQ. 0 ) THEN CALL LOG_SUBHEADING( OUTDEV, "Process Analysis Parameters" ) WRITE( OUTDEV, '(6x,A)' ),'--Env Variable-- | --Value--' WRITE( OUTDEV, '(6x,A)' ), REPEAT( '-',80 ) END IF ! Flag for Using Process Analysis CALL GET_ENV ( PROCAN, 'CTM_PROCAN', PROCAN, VARDEV ) ! Get the Beginning and Ending Columns for Process Analysis CALL GET_ENVLIST ( 'PA_BCOL_ECOL', NV, V_LIST2, VARDEV ) IF ( NV .LE. 0 ) THEN PA_BEGCOL = 1; PA_ENDCOL = 0 ELSE IF ( NV .EQ. 2 ) THEN READ( V_LIST2( 1 ), '( I4 )' ) PA_BEGCOL READ( V_LIST2( 2 ), '( I4 )' ) PA_ENDCOL ELSE XMSG = 'Environment variable error for PA_BCOL_ECOL' CALL M3EXIT( 'INIT_ENV_VARS', JDATE, JTIME, XMSG, EXIT_STATUS ) END IF ! Get the Beginning and Ending Rows for Process Analysis CALL GET_ENVLIST ( 'PA_BROW_EROW', NV, V_LIST2, VARDEV ) IF ( NV .LE. 0 ) THEN PA_BEGROW = 1; PA_ENDROW = 0 ELSE IF ( NV .EQ. 2 ) THEN READ( V_LIST2( 1 ), '( I4 )' ) PA_BEGROW READ( V_LIST2( 2 ), '( I4 )' ) PA_ENDROW ELSE XMSG = 'Environment variable error for PA_BROW_EROW' CALL M3EXIT( 'INIT_ENV_VARS', JDATE, JTIME, XMSG, EXIT_STATUS ) END IF ! Get the Beginning and Ending Layers for Process Analysis CALL GET_ENVLIST ( 'PA_BLEV_ELEV', NV, V_LIST2, VARDEV ) IF ( NV .LE. 0 ) THEN PA_BEGLEV = 1; PA_ENDLEV = 0 ELSE IF ( NV .EQ. 2 ) THEN READ( V_LIST2( 1 ), '( I4 )' ) PA_BEGLEV READ( V_LIST2( 2 ), '( I4 )' ) PA_ENDLEV ELSE XMSG = 'Environment variable error for PA_BLEV_ELEV' CALL M3EXIT( 'INIT_ENV_VARS', JDATE, JTIME, XMSG, EXIT_STATUS ) END IF ! Get the Budget File Name CALL GET_ENV ( BUDGET_FNAME, 'CTM_BUDGET', BUDGET_FNAME, VARDEV ) IF ( OCEAN_CHEM ) THEN IF ( (INDEX( MECHNAME, 'CB6R5M_AE7_AQ') .GT. 0 ) .OR. & (INDEX( MECHNAME, 'CB6R5_AE7_AQ' ) .GT. 0) ) then USE_MARINE_GAS_EMISSION = .TRUE. ENDIF ENDIF ! for MPAS #ifdef mpas call get_env (ncd_64bit_offset, 'ncd_64bit_offset', .false., vardev) call get_env( cell_num, 'cell_num', 1, vardev) #else #ifdef twoway WRF_V4P = .TRUE. #else ! to obtain WRF version information IF ( .NOT. OPEN3( MET_CRO_3D, FSREAD3, PNAME ) ) THEN XMSG = 'Could not open '// MET_CRO_3D // ' file' CALL M3EXIT ( PNAME, 0, 0, XMSG, XSTAT1 ) END IF IF ( .NOT. DESC3( MET_CRO_3D ) ) THEN XMSG = 'Could not get ' // MET_CRO_3D //' file description' CALL M3EXIT ( PNAME, 0, 0, XMSG, XSTAT1 ) END IF ! Get environ. variable met_tstep to control meteorology frequency CALL GET_ENV ( MET_TSTEP, 'MET_TSTEP', TSTEP3D, VARDEV) ! Ensure users cannot pick a met_tstep that is not smaller than the ! file time step and something that is not a multiple of that tstep IF (MOD(TIME2SEC(MET_TSTEP), TIME2SEC(TSTEP3D)) .NE. 0) then XMSG = 'MET_TSTEP environmental variable not equal to or a & multiple greater than time step of met file ' // MET_CRO_3D CALL M3EXIT(PNAME, 0, 0, XMSG, XSTAT1) end if FOUND = .FALSE. NV = 0 Do WHILE ((.NOT. FOUND) .AND. (NV .LT. MXDESC3)) NV = NV + 1 LOC = INDEX (FDESC3D(NV), 'WRF ARW V') IF (LOC > 0) THEN FOUND = .TRUE. STR_LEN = LEN_TRIM(FDESC3D(NV)) READ (FDESC3D(NV)(LOC+9:STR_LEN), *) WRF_VERSION IF (WRF_VERSION .GE. '4.1') THEN WRF_V4P = .TRUE. END IF END IF END DO XMSG = 'MET data determined based on WRF ARW version ' IF( MYPE .EQ. 0 ) THEN WRITE(OUTDEV,'(/,5X,2(A,1X),/)')TRIM( XMSG ), TRIM( FDESC3D(NV)(LOC+9:STR_LEN) ) WRITE(LOGDEV,'(/,5X,2(A,1X),/)')TRIM( XMSG ), TRIM( FDESC3D(NV)(LOC+9:STR_LEN) ) ELSE WRITE(LOGDEV,'(/,5X,2(A,1X),/)')TRIM( XMSG ), TRIM( FDESC3D(NV)(LOC+9:STR_LEN) ) END IF IF ( .NOT. CLOSE3( MET_CRO_3D ) ) THEN XMSG = 'Could not close ' // MET_CRO_3D CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT1 ) END IF #endif #endif END SUBROUTINE INIT_ENV_VARS !......................................................................... SUBROUTINE LOG_HEADING( FUNIT, CHEAD_IN ) ! Formats and writes a user-supplied heading to a specific log file. ! This approach is intended to standardize the log files that are ! created by CMAQ. The length of the input array is set at 80 because ! we would like to try limiting lines to 80 characters and a heading ! should probably just be one line. !......................................................................... #ifdef mpas use util_module #endif IMPLICIT NONE INTEGER, INTENT( IN ) :: FUNIT CHARACTER( * ), INTENT( IN ) :: CHEAD_IN CHARACTER( len=: ), ALLOCATABLE :: CHEAD CHARACTER( 20 ) :: FMT CHARACTER( 20 ) :: FMT2 INTEGER :: LDASH ! Capitalize the heading CHEAD = CHEAD_IN CALL UPCASE( CHEAD ) ! Write the heading to the log file WRITE( FUNIT, * ) WRITE( FMT, '("(", I0, "x,A,A,A)")' ) LOG_MAJOR_TAB WRITE( FMT2,'("(", I0, "x,A,)")' ) LOG_MAJOR_TAB LDASH = 2*8 + LEN_TRIM( CHEAD ) WRITE( FUNIT, FMT2 ), REPEAT( '=', LDASH ) WRITE( FUNIT, FMT ), & '|>--- ',TRIM( CHEAD ),' ---<|' WRITE( FUNIT, FMT2 ), REPEAT( '=', LDASH ) END SUBROUTINE LOG_HEADING !......................................................................... SUBROUTINE LOG_SUBHEADING( FUNIT, CHEAD ) ! Formats and writes a user-supplied sub-heading to a specific log file. ! This approach is intended to standardize the log files that are ! created by CMAQ. The length of the input array is set at 80 because ! we would like to try limiting lines to 80 characters and a sub-heading ! should probably just be one line. !......................................................................... IMPLICIT NONE INTEGER, INTENT( IN ) :: FUNIT CHARACTER( * ), INTENT( IN ) :: CHEAD CHARACTER( 20 ) :: FMT INTEGER :: LDASH ! Write the sub-heading to the log file WRITE( FMT, '("(/,", I0, "x,A,A,A)")' ) LOG_MAJOR_TAB WRITE( FUNIT, FMT ),'|> ',TRIM( CHEAD ),':' LDASH = 2*3 - 1 + LEN_TRIM( CHEAD ) WRITE( FMT, '("(", I0, "x,A,A)")' ) LOG_MAJOR_TAB WRITE( FUNIT, FMT ) '+',REPEAT( '=', LDASH ) END SUBROUTINE LOG_SUBHEADING !......................................................................... SUBROUTINE LOG_MESSAGE( FUNIT, CMSG_IN ) ! Formats and writes a user-supplied message to a specific log file. ! This approach is intended to standardize the log files that are ! created by CMAQ. !......................................................................... IMPLICIT NONE INTEGER, INTENT( IN ) :: FUNIT CHARACTER( * ), INTENT( IN ) :: CMSG_IN CHARACTER( len=: ), ALLOCATABLE :: CMSG CHARACTER( 20 ) :: FMT CHARACTER( LOG_LINE_LENGTH ) :: CTEMP INTEGER :: MSG_SIZE INTEGER :: NLINE1, NLINE2, NLINE, NTAB, LAST_SPACE CMSG = CMSG_IN ! Write the message to the log file, while trimming to 80 ! characters (while accounting for tab-length) NLINE1 = LOG_LINE_LENGTH - LOG_MAJOR_TAB NLINE2 = LOG_LINE_LENGTH - LOG_MAJOR_TAB - LOG_MINOR_TAB NLINE = NLINE1 NTAB = LOG_MAJOR_TAB ! Determine Length of Total Message MSG_SIZE = LEN_TRIM( CMSG ) DO WHILE ( MSG_SIZE .GT. LOG_LINE_LENGTH ) ! Isolate One Line of Text LAST_SPACE = INDEX( CMSG( 1:NLINE+1 ), " ", BACK=.TRUE. ) CTEMP = CMSG( 1:LAST_SPACE-1 ) WRITE( FMT, '("(", I0, "x,A)")' ) NTAB WRITE( FUNIT, FMT ), CTEMP CMSG = CMSG( LAST_SPACE+1:LEN( CMSG ) ) MSG_SIZE = LEN_TRIM( CMSG ) IF ( NTAB .EQ. LOG_MAJOR_TAB ) NTAB = NTAB + LOG_MINOR_TAB IF ( NLINE.EQ. NLINE1 ) NLINE = NLINE2 END DO ! Write Last Line WRITE( FMT, '("(", I0, "x,A)")' ) NTAB WRITE( FUNIT, FMT ), TRIM( CMSG ) END SUBROUTINE LOG_MESSAGE !......................................................................... REAL( 8 ) FUNCTION SET_CPU_TIMING() ! Function set cpu time IMPLICIT NONE #ifdef parallel INCLUDE 'mpif.h' #endif ! local: REAL( 8 ) :: CPU_TIME_FINISH #ifndef parallel REAL :: REAL_TIME #endif #ifdef parallel SET_CPU_TIMING = MPI_WTIME() #else CALL CPU_TIME( REAL_TIME ) SET_CPU_TIMING = REAL( REAL_TIME,8 ) #endif END FUNCTION SET_CPU_TIMING !......................................................................... SUBROUTINE TIMING_DELTA( CPU_TIME_START, CPU_TIME_DELTA ) IMPLICIT NONE #ifdef parallel INCLUDE 'mpif.h' #endif REAL( 8 ), INTENT( INOUT ) :: CPU_TIME_START REAL( 8 ), INTENT( INOUT ) :: CPU_TIME_DELTA ! local: REAL( 8 ) :: CPU_TIME_FINISH #ifndef parallel REAL :: REAL_TIME #endif ! This subroutine calculates and returns elapsed time from CPU_TIME_START ! as an update to CPU_TIME_DELTA so total time expense can be determine ! for code block in a cyclng loop. ! It also resets CPU_TIME_START to current CPU time. #ifdef parallel CPU_TIME_FINISH = MPI_WTIME() #else CALL CPU_TIME( REAL_TIME ) CPU_TIME_FINISH = REAL( REAL_TIME,8 ) #endif CPU_TIME_DELTA = CPU_TIME_DELTA + (CPU_TIME_FINISH-CPU_TIME_START) #ifdef parallel CPU_TIME_START = MPI_WTIME() #else CALL CPU_TIME( REAL_TIME ) CPU_TIME_START = REAL( REAL_TIME,8 ) #endif END SUBROUTINE TIMING_DELTA !......................................................................... SUBROUTINE TIMING_SPLIT( CPU_TIME_START, IMSG, CPROCIN ) ! This subroutine provides a split for the MPI timing functions and ! then prints out a message for how much time has passed using a ! character string input for customizing that message. !......................................................................... IMPLICIT NONE #ifdef parallel INCLUDE 'mpif.h' #endif REAL( 8 ), INTENT( INOUT ) :: CPU_TIME_START INTEGER, INTENT( IN ) :: IMSG ! What kind of checkpoint this is CHARACTER( * ), INTENT(IN), OPTIONAL :: CPROCIN ! local: REAL( 8 ) :: CPU_TIME_FINISH ! 1 = 'PROCESS' ! 2 = 'MASTER TIME STEP' ! 3 = 'OUTPUT' CHARACTER( len=: ), ALLOCATABLE :: CPROC CHARACTER( 250 ) :: XMSG #ifndef parallel REAL :: REAL_TIME #endif IF ( PRESENT( CPROCIN ) ) THEN CPROC = CPROCIN ELSE CPROC = ' ' END IF ! Record Time at this Checkpoint #ifdef parallel CPU_TIME_FINISH = MPI_WTIME() #else CALL CPU_TIME( REAL_TIME ) CPU_TIME_FINISH = REAL( REAL_TIME,8 ) #endif ! Assemble the statement requested by the calling program SELECT CASE ( IMSG ) CASE ( 1 ) ! Write Out The Time to Complete Each Sub-Process WRITE( XMSG, 1002 ),TRIM( CPROC ), CPU_TIME_FINISH-CPU_TIME_START 1002 FORMAT ( 2x, A15, ' completed... ', F12.4, ' seconds' ) CASE ( 2 ) ! Write out the time to complete the entire master time step WRITE( XMSG, '(7x,A16)' ),'Master Time Step' CALL LOG_MESSAGE( LOGDEV, XMSG ) #ifndef twoway IF ( MYPE .EQ. 0 ) CALL LOG_MESSAGE( OUTDEV, XMSG ) #endif WRITE( XMSG, '(7x,A24,F12.4,A8)' ),'Processing completed... ', & (CPU_TIME_FINISH-CPU_TIME_START),' seconds' CALL LOG_MESSAGE( LOGDEV, XMSG ) WRITE( LOGDEV, * ) CASE ( 3 ) ! Write out the time to complete the output procedure WRITE( XMSG, '(1x,A32,F10.4,A)' ), '=--> Data Output completed... ', & (CPU_TIME_FINISH-CPU_TIME_START),' seconds' CALL LOG_MESSAGE( LOGDEV, XMSG ) WRITE( LOGDEV, * ) #ifndef twoway IF ( MYPE .EQ. 0 ) WRITE( OUTDEV, * ) #endif CASE( 4 ) END SELECT ! Write out the timing statement #ifndef twoway IF ( MYPE .EQ. 0 ) CALL LOG_MESSAGE( OUTDEV, XMSG ) #endif #ifdef parallel CPU_TIME_START = MPI_WTIME() #else CALL CPU_TIME( REAL_TIME ) CPU_TIME_START = REAL( REAL_TIME,8 ) #endif END SUBROUTINE TIMING_SPLIT END MODULE RUNTIME_VARS ================================================ FILE: CCTM/src/util/util/UTILIO_DEFN.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C.................................................................... C CONTAINS: This module provides the interface to the Models3 IOAPI C using the M3UTILIO module. For parallel implementation of CMAQ, C several IOAPI routines are replaced with PARIO versions. For C example, the IOAPI function WRITE3 is renamed to an unused C function name "EXCLUDE_WRITE3", and the PARIO function PWRITE3 C is aliased to WRITE3. So when WRITE3 is used in CMAQ, then the C PARIO function PWRITE3 is accessed. This approach allows C flexibility in naming within CMAQ and eliminated the usage of C "cpp" flags to achieve the function overloading. C C REVISION HISTORY: C Original version 03/2011 by Shawn Roselle C 08/2011 by David Wong C -- extended to handle buffer file C 08/2015 by David Wong C -- defined WRITE3 under parallel I/O C implementation C 02/2019 by David Wong C -- removed INTERPB declaration which is C not needed with centralized I/O C implementation C.................................................................... MODULE UTILIO_DEFN #ifdef mpas use util_module use mio_module use prog_interrupt_module, M3WARN => prog_interrupt_warning, & M3EXIT => prog_interrupt_exit, & M3MESG => prog_interrupt_msg, & M3MSG2 => prog_interrupt_msg, & m3parag => prog_interrupt_nmsgs INTEGER, PARAMETER :: XSTAT1 = 1 INTEGER, PARAMETER :: XSTAT2 = 1 INTEGER, PARAMETER :: XSTAT3 = 1 #else #ifdef parallel USE M3UTILIO, EXCLUDE_INTERPB => INTERP3, & EXCLUDE_M3EXIT => M3EXIT, & EXCLUDE_M3WARN => M3WARN, & EXCLUDE_SHUT3 => SHUT3, & EXCLUDE_WRITE3 => WRITE3, & BUF_WRITE3 => WRITE3 USE PARUTILIO, & M3ERR => PM3ERR, & M3EXIT => PM3EXIT, & M3WARN => PM3WARN, #ifdef parallel_io & SHUT3 => PSHUT3 LOGICAL, EXTERNAL :: WRITE3 #else & SHUT3 => PSHUT3, & WRITE3 => PWRITE3 #endif #else USE M3UTILIO, INTERPB => INTERP3 #endif #endif END MODULE UTILIO_DEFN ================================================ FILE: CCTM/src/util/util/cksummer.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE CKSUMMER ( SCIPROC, CGRID, JDATE, JTIME ) C Function: C Sum concentrations over entire grid. C Revision History: C Original version ??? C 2 October, 1998 by Al Bourgeois at LM: parallel implementation C and fix bug by SAVEing DEVNAME. C 1/22/99 David Wong at LM: compute global sum for variables: GC_CKSUM, C AE_CKSUM, NR_CKSUM, and TR_CKSUM C 1/28/99 David Wong at LM: compute global sum for GCELLS C 15 Dec 00 J.Young: move CGRID_MAP into f90 module C GLOBAL_RSUM -> Dave Wong`s f90 stenex GLOBAL_SUM C Jeff - Feb 01 - assumed shape arrays C 23 Mar 01 J.Young: Use HGRD_DEFN C 31 May 02 J.Young: REAL*8 reduction accumulator (avoid 32 bit roundoff) C 31 Jan 05 J.Young: dyn alloc - establish both horizontal & vertical C domain specifications in one module C 4 Feb 08 J.Young: checksums based on local processor C 21 Jun 10 J.Young: convert for Namelist redesign C 16 Feb 11 S.Roselle: replaced I/O API include files with UTILIO_DEFN; C removed deprecated TRIMLEN C 10 Aug 11 David Wong: reset output format 1PEw.d to meet the standard C w-d > 6 C 9 Apr 15 J.Bash: Use F90 MINVAL to speed up execution C 18 Mar 16 J.Young: Add "INTENT" attribute; remove commented out code; C rearrange logic for efficiency C----------------------------------------------------------------------- USE GRID_CONF, ONLY: NCOLS, NROWS, NLAYS USE CGRID_SPCS, ONLY: N_GC_SPC, GC_STRT, GC_SPC, & N_AE_SPC, AE_STRT, AE_SPC, & N_NR_SPC, NR_STRT, NR_SPC, & N_TR_SPC, TR_STRT, TR_SPC USE RUNTIME_VARS, ONLY: LOGDEV, OUTDEV, CMYPE, APPL_NAME USE UTILIO_DEFN #ifndef mpas #ifdef parallel USE SE_MODULES ! stenex (using SE_GLOBAL_SUM_MODULE) #else USE NOOP_MODULES ! stenex (using NOOP_GLOBAL_SUM_MODULE) #endif #endif IMPLICIT NONE C Arguments: CHARACTER( * ), INTENT( IN ) :: SCIPROC ! science process name REAL, POINTER :: CGRID( :,:,:,: ) INTEGER, INTENT( IN ) :: JDATE ! current model date, coded YYYYDDD INTEGER, INTENT( IN ) :: JTIME ! current model time, coded HHMMSS C Parameters: REAL, PARAMETER :: CMIN = 0.0 C Local variables: LOGICAL, SAVE :: FIRSTIME = .TRUE. CHARACTER( 16 ), SAVE :: PNAME = 'CKSUMMER' CHARACTER( 6 ) :: PRESTR = 'FLOOR_' CHARACTER( 96 ), SAVE :: DEVNAME ! Name of output file. INTEGER, SAVE :: FLOORDEV ! FORTRAN unit number for neg conc ascii file LOGICAL :: RDONLY = .FALSE. LOGICAL :: FMTTED = .TRUE. INTEGER S, V, L, C, R REAL( 8 ) :: DBL_CKSUM REAL GC_CKSUM, AE_CKSUM, NR_CKSUM, TR_CKSUM REAL, SAVE :: LCELLS LOGICAL, SAVE :: OPFLG = .TRUE. ! open file flag LOGICAL EXFLG ! write header flag C----------------------------------------------------------------------- IF ( FIRSTIME ) THEN FIRSTIME = .FALSE. LCELLS = FLOAT( NCOLS * NROWS * NLAYS ) DEVNAME = PRESTR // CMYPE // '.' // TRIM( APPL_NAME ) END IF IF ( MINVAL( CGRID ) .LT. CMIN ) THEN EXFLG = .TRUE. DBL_CKSUM = 0.0 IF ( N_GC_SPC .GT. 0 ) THEN V = 0 DO S = GC_STRT, GC_STRT - 1 + N_GC_SPC V = V + 1 DO L = 1, NLAYS DO R = 1, NROWS DO C = 1, NCOLS DBL_CKSUM = DBL_CKSUM + CGRID( C,R,L,S ) IF ( CGRID( C,R,L,S ) .LT. CMIN ) THEN IF ( EXFLG ) THEN EXFLG = .FALSE. IF ( OPFLG ) THEN ! open output ASCII file OPFLG = .FALSE. FLOORDEV = GETEFILE ( DEVNAME, RDONLY, FMTTED, PNAME ) END IF WRITE( FLOORDEV,1001 ) CMIN, SCIPROC END IF WRITE( FLOORDEV,1003 ) JDATE, JTIME, C, R, L, S, & GC_SPC( V ), CGRID( C,R,L,S ) CGRID( C,R,L,S ) = CMIN END IF END DO END DO END DO END DO GC_CKSUM = REAL( DBL_CKSUM, 4 ) ELSE GC_CKSUM = 0.0 END IF DBL_CKSUM = 0.0 IF ( N_AE_SPC .GT. 0 ) THEN V = 0 DO S = AE_STRT, AE_STRT - 1 + N_AE_SPC V = V + 1 DO L = 1, NLAYS DO R = 1, NROWS DO C = 1, NCOLS DBL_CKSUM = DBL_CKSUM + CGRID( C,R,L,S ) IF ( CGRID( C,R,L,S ) .LT. CMIN ) THEN IF ( EXFLG ) THEN EXFLG = .FALSE. IF ( OPFLG ) THEN ! open output ASCII file OPFLG = .FALSE. FLOORDEV = GETEFILE ( DEVNAME, RDONLY, FMTTED, PNAME ) END IF WRITE( FLOORDEV,1001 ) CMIN, SCIPROC END IF WRITE( FLOORDEV,1003 ) JDATE, JTIME, C, R, L, S, & AE_SPC( V ), CGRID( C,R,L,S ) CGRID( C,R,L,S ) = CMIN END IF END DO END DO END DO END DO AE_CKSUM = REAL( DBL_CKSUM, 4 ) ELSE AE_CKSUM = 0.0 END IF DBL_CKSUM = 0.0 IF ( N_NR_SPC .GT. 0 ) THEN V = 0 DO S = NR_STRT, NR_STRT - 1 + N_NR_SPC V = V + 1 DO L = 1, NLAYS DO R = 1, NROWS DO C = 1, NCOLS DBL_CKSUM = DBL_CKSUM + CGRID( C,R,L,S ) IF ( CGRID( C,R,L,S ) .LT. CMIN ) THEN IF ( EXFLG ) THEN EXFLG = .FALSE. IF ( OPFLG ) THEN ! open output ASCII file OPFLG = .FALSE. FLOORDEV = GETEFILE ( DEVNAME, RDONLY, FMTTED, PNAME ) END IF WRITE( FLOORDEV,1001 ) CMIN, SCIPROC END IF WRITE( FLOORDEV,1003 ) JDATE, JTIME, C, R, L, S, & NR_SPC( V ), CGRID( C,R,L,S ) CGRID( C,R,L,S ) = CMIN END IF END DO END DO END DO END DO NR_CKSUM = REAL( DBL_CKSUM, 4 ) ELSE NR_CKSUM = 0.0 END IF DBL_CKSUM = 0.0 IF ( N_TR_SPC .GT. 0 ) THEN V = 0 DO S = TR_STRT, TR_STRT - 1 + N_TR_SPC V = V + 1 DO L = 1, NLAYS DO R = 1, NROWS DO C = 1, NCOLS DBL_CKSUM = DBL_CKSUM + CGRID( C,R,L,S ) IF ( CGRID( C,R,L,S ) .LT. CMIN ) THEN IF ( EXFLG ) THEN EXFLG = .FALSE. IF ( OPFLG ) THEN ! open output ASCII file OPFLG = .FALSE. FLOORDEV = GETEFILE ( DEVNAME, RDONLY, FMTTED, PNAME ) END IF WRITE( FLOORDEV,1001 ) CMIN, SCIPROC END IF WRITE( FLOORDEV,1003 ) JDATE, JTIME, C, R, L, S, & TR_SPC( V ), CGRID( C,R,L,S ) CGRID( C,R,L,S ) = CMIN END IF END DO END DO END DO END DO TR_CKSUM = REAL( DBL_CKSUM, 4 ) ELSE TR_CKSUM = 0.0 END IF ELSE ! MINVAL( CGRID ) .GE. CMIN GC_CKSUM = SUM( CGRID( :,:,:,GC_STRT : ( GC_STRT - 1 + N_GC_SPC ) ) ) AE_CKSUM = SUM( CGRID( :,:,:,AE_STRT : ( AE_STRT - 1 + N_AE_SPC ) ) ) NR_CKSUM = SUM( CGRID( :,:,:,NR_STRT : ( NR_STRT - 1 + N_NR_SPC ) ) ) IF ( N_TR_SPC .GT. 0 ) THEN TR_CKSUM = SUM( CGRID( :,:,:,TR_STRT : ( TR_STRT - 1 + N_TR_SPC ) ) ) END IF END IF IF ( N_TR_SPC .EQ. 0 ) THEN WRITE( LOGDEV,1005 ) SCIPROC, & GC_CKSUM / LCELLS, & AE_CKSUM / LCELLS, & NR_CKSUM / LCELLS IF ( ( GC_CKSUM .NE. GC_CKSUM ) .OR. ( GC_CKSUM*2. .EQ. GC_CKSUM ) .OR. & ( AE_CKSUM .NE. AE_CKSUM ) .OR. ( AE_CKSUM*2. .EQ. AE_CKSUM ) .OR. & ( NR_CKSUM .NE. NR_CKSUM ) .OR. ( NR_CKSUM*2. .EQ. NR_CKSUM ) ) THEN WRITE( OUTDEV, '(7x,A,A)' ),'NaN or Infinity detected on processor ',TRIM(CMYPE) WRITE( OUTDEV,1008 ) SCIPROC,GC_CKSUM/LCELLS,AE_CKSUM/LCELLS,NR_CKSUM/LCELLS CALL M3EXIT( PNAME, jdate, jtime,'NaN or Infinity detected in '//SCIPROC, 1 ) END IF ELSE WRITE( LOGDEV,1007 ) SCIPROC, & GC_CKSUM / LCELLS, & AE_CKSUM / LCELLS, & NR_CKSUM / LCELLS, & TR_CKSUM / LCELLS IF ( ( GC_CKSUM .NE. GC_CKSUM ) .OR. ( GC_CKSUM*2. .EQ. GC_CKSUM ) .OR. & ( AE_CKSUM .NE. AE_CKSUM ) .OR. ( AE_CKSUM*2. .EQ. AE_CKSUM ) .OR. & ( NR_CKSUM .NE. NR_CKSUM ) .OR. ( NR_CKSUM*2. .EQ. NR_CKSUM ) .OR. & ( TR_CKSUM .NE. TR_CKSUM ) .OR. ( TR_CKSUM*2. .EQ. TR_CKSUM ) ) THEN WRITE( OUTDEV, '(7x,A,A)' ),'NaN or Infinity detected on processor ',TRIM(CMYPE) WRITE( OUTDEV,1009 ) SCIPROC,GC_CKSUM/LCELLS,AE_CKSUM/LCELLS,NR_CKSUM/LCELLS,TR_CKSUM/LCELLS CALL M3EXIT( PNAME, jdate, jtime,'NaN or Infinity detected in '//SCIPROC, 1 ) END IF END IF RETURN 1001 FORMAT( 5X, 'Concentrations less than, but reset to', 1PE11.3, & 1X, 'in', A16 & / 9X, 'Date:Time', & 5X, 'Col', 2X, 'Row', 1X, 'Layer', 1X, 'Species', & 13X, 'Value before reset' ) 1003 FORMAT( 5X, I8, ':', I6.6, 4I5, 1X, '(', A16, ')', 1PE12.3) 1005 FORMAT( 5X, 'After', & 1X, A12, 1X, ': Gas ', 1PE10.3, & 1X, ' | Aer ', 1PE10.3, & 1X, ' | Non ', 1PE10.3 ) 1007 FORMAT( 5X, 'After', & 1x, A12, 1X, ': Gas ', 1PE10.3, & 1X, ' | Aer ', 1PE10.3, & 1X, ' | Non ', 1PE10.3, & 1X, ' | Trc ', 1PE10.3 ) 1008 FORMAT( 7X, 'During', & 1X, A12, 1X, ': Gas ', 1PE10.3, & 1X, ' | Aer ', 1PE10.3, & 1X, ' | Non ', 1PE10.3 ) 1009 FORMAT( 7X, 'During', & 1x, A12, 1X, ': Gas ', 1PE10.3, & 1X, ' | Aer ', 1PE10.3, & 1X, ' | Non ', 1PE10.3, & 1X, ' | Trc ', 1PE10.3 ) END ================================================ FILE: CCTM/src/util/util/findex.f ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: INTEGER FUNCTION FINDEX (INDX, N, NLIST) C Searches for INDX in list NLIST and returns the subscript C (1...N) at which it is found, or returns 0 if INDX not found IMPLICIT NONE INTEGER INDX ! index being searched for INTEGER N ! Length of array to be searched INTEGER NLIST(*) ! array to be searched INTEGER I DO I = 1, N IF ( INDX .EQ. NLIST( I ) ) THEN ! found FINDEX = I RETURN END IF END DO FINDEX = 0 ! not found RETURN END ================================================ FILE: CCTM/src/util/util/get_env_mod.F90 ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! module get_env_module ! Function: get environment variables ! Revision History: ! 2010 D.Wong: initial implementation ! 2 Feb 2010 D.Wong: provided an optional outputing device option, ! absorbed get_envlist function implicit none integer, parameter :: max_str_len = 10000 character (max_str_len) :: loc_str interface get_env module procedure get_env_int, & get_env_float, & get_env_double, & get_env_char, & get_env_logical end interface contains ! -------------------------------------------------------------------------------- subroutine get_env_int (env_value, env_var, default_env_value, logdev) integer, intent(out) :: env_value character (*), intent(in) :: env_var integer, intent(in) :: default_env_value integer, intent(in), optional :: logdev integer :: loc_logdev logical :: default, regular call getenv (env_var, loc_str) if (present(logdev)) then loc_logdev = logdev else loc_logdev = 6 end if regular = .false. default = .false. if (len(trim(loc_str)) == 0) then env_value = default_env_value default = .true. else read (loc_str, *) env_value regular = .true. end if if ( loc_logdev .gt. 0 ) then if (default) then write( loc_logdev, '(A21,2x,A,2x,i10, 1x, a9)' ), env_var,'|', env_value, '(default)' else if (regular) then write( loc_logdev, '(A21,2x,A,2x,i10)' ), env_var,'|', env_value end if end if end subroutine get_env_int ! -------------------------------------------------------------------------------- subroutine get_env_float (env_value, env_var, default_env_value, logdev) real, intent(out) :: env_value character (*), intent(in) :: env_var real, intent(in) :: default_env_value integer, intent(in), optional :: logdev integer :: loc_logdev logical :: default, regular call getenv (env_var, loc_str) if (present(logdev)) then loc_logdev = logdev else loc_logdev = 6 end if regular = .false. default = .false. if (len(trim(loc_str)) == 0) then env_value = default_env_value default = .true. else read (loc_str, *) env_value regular = .true. end if if ( loc_logdev .gt. 0 ) then if (default) then write( loc_logdev, '(A21,2x,A,2x,e10.3, 1x, a9)' ), env_var,'|', env_value, '(default)' else if (regular) then write( loc_logdev, '(A21,2x,A,2x,e10.3)' ), env_var,'|', env_value end if end if end subroutine get_env_float ! -------------------------------------------------------------------------------- subroutine get_env_double (env_value, env_var, default_env_value, logdev) real (8), intent(out) :: env_value character (*), intent(in) :: env_var real (8), intent(in) :: default_env_value integer, intent(in), optional :: logdev integer :: loc_logdev logical :: default, regular call getenv (env_var, loc_str) if (present(logdev)) then loc_logdev = logdev else loc_logdev = 6 end if regular = .false. default = .false. if (len(trim(loc_str)) == 0) then env_value = default_env_value default = .true. else read (loc_str, *) env_value regular = .true. end if if ( loc_logdev .gt. 0 ) then if (default) then write( loc_logdev, '(A21,2x,A,2x,e10.3, 1x, a9)' ), env_var,'|', env_value, '(default)' else if (regular) then write( loc_logdev, '(A21,2x,A,2x,e10.3)' ), env_var,'|', env_value end if end if end subroutine get_env_double ! -------------------------------------------------------------------------------- subroutine get_env_char (env_value, env_var, default_env_value, logdev) character (*), intent(out) :: env_value character (*), intent(in) :: env_var character (*), intent(in) :: default_env_value integer, intent(in), optional :: logdev integer :: loc_logdev, length logical :: default, regular character (50) :: myfmt call getenv (env_var, loc_str) if (present(logdev)) then loc_logdev = logdev else loc_logdev = 6 end if regular = .false. default = .false. if (len(trim(loc_str)) == 0) then env_value = default_env_value default = .true. else env_value = loc_str regular = .true. end if if ( loc_logdev .gt. 0 ) then length = len_trim(env_value) if (default) then if (length .eq. 0) then write( loc_logdev, '(A21, 2x, A, 13x, a9)') env_var, '|', '(default)' else write (myfmt, '(a18, i3.3, a9)') '(A21, 2x, A, 2x, A', length, ', 1x, a9)' write( loc_logdev, myfmt) env_var, '|', env_value, '(default)' end if else if (regular) then write (myfmt, '(a18, i3.3, a1)') '(A21, 2x, A, 2x, A', length, ')' write( loc_logdev, myfmt) env_var,'|', env_value end if end if end subroutine get_env_char ! -------------------------------------------------------------------------------- subroutine get_env_logical (env_value, env_var, default_env_value, logdev) logical, intent(out) :: env_value character (*), intent(in) :: env_var logical, intent(in) :: default_env_value integer, intent(in), optional :: logdev integer :: length integer :: loc_logdev logical :: default, regular call getenv (env_var, loc_str) if (present(logdev)) then loc_logdev = logdev else loc_logdev = 6 end if length = len(trim(loc_str)) regular = .false. default = .false. if (length <= 0) then env_value = default_env_value default = .true. else if ((length == 1) .and. ((loc_str(1:1) .eq. 'Y') .or. & (loc_str(1:1) .eq. 'y') .or. & (loc_str(1:1) .eq. 'T') .or. & (loc_str(1:1) .eq. 't'))) then env_value = .true. regular = .true. else if ((length == 1) .and. ((loc_str(1:1) .eq. 'N') .or. & (loc_str(1:1) .eq. 'n') .or. & (loc_str(1:1) .eq. 'F') .or. & (loc_str(1:1) .eq. 'f'))) then env_value = .false. regular = .true. else if ((trim(loc_str) == '.TRUE.') .or. & (trim(loc_str) == '.true.') .or. & (trim(loc_str) == '.True.') .or. & (trim(loc_str) == 'TRUE') .or. & (trim(loc_str) == 'true') .or. & (trim(loc_str) == 'True') .or. & (trim(loc_str) == 'YES') .or. & (trim(loc_str) == 'yes') .or. & (trim(loc_str) == 'Yes')) then env_value = .true. regular = .true. else if ((trim(loc_str) == '.FALSE.') .or. & (trim(loc_str) == '.false.') .or. & (trim(loc_str) == '.False.') .or. & (trim(loc_str) == 'FALSE') .or. & (trim(loc_str) == 'false') .or. & (trim(loc_str) == 'False') .or. & (trim(loc_str) == 'NO') .or. & (trim(loc_str) == 'no') .or. & (trim(loc_str) == 'No')) then env_value = .false. regular = .true. else write (loc_logdev, *) ' Note: Variable ', trim(env_var), ' improperly formatted' env_value = default_env_value default = .true. end if if ( loc_logdev .gt. 0 ) then if (default) then write( loc_logdev, '(A21,2x,A,10x,L, 1x, a9)' ), env_var,'|', env_value, '(default)' else if (regular) then write( loc_logdev, '(A21,2x,A,10x,L)' ), env_var,'|', env_value end if end if end subroutine get_env_logical ! -------------------------------------------------------------------------------- subroutine get_envlist ( env_var, nvars, val_list, in_logdev ) ! get a list env var (quoted string of items delimited by white space, ! commas or semi-colons) and parse out the items into variables. Two data ! types: character strings and integers (still represented as strings in ! the env var vaules). ! Examples: ! 1) setenv AVG_CONC_VARS "O3 NO NO2" ! 2) setenv AVG_CONC_LAYS "2 5" < start at two, end at 5 ! 3) setenv NPCOLSXNPROWS "4 3" ! 4) setenv BCOL_ECOL "3 8" ! 5) setenv BROW_EROW "2 10" ! 6) setenv BLAY_ELAY "1 5" ! In example (1), not only parse out the named items "O3", "NO" and "NO2", ! but also obtain the count on the number of items (=3). ! Revision: 2013/02/11 David Wong: increased the max env var length from 256 to 1000 ! 13 Dec 2013 J.Young: 1000 breaks BUFLEN in IOAPI's envgets.c. Change to 512. ! 17 Jun 2016 J.Young: IOAPI's envgets.c BUFLEN has been increased to 10000. ! 20 Jun 2016 J.Young: Forget IOAPI's envgets.c: use Fortran GETENV #ifndef mpas use utilio_defn #endif character( * ), intent ( in ) :: env_var integer, intent ( out ) :: nvars character( 16 ), intent ( out ) :: val_list( : ) integer, intent(in), optional :: in_logdev integer :: max_len character( 16 ) :: pname = 'GET_ENVLIST' character( 16*size( val_list ) ) :: e_val character( 1 ) :: chr character( 96 ) :: xmsg integer :: jp( 16*size( val_list ) ), kp( 16*size( val_list ) ), status integer ip, v integer :: loc_logdev if (present(in_logdev)) then loc_logdev = in_logdev else loc_logdev = 6 end if max_len = 16 * size( val_list ) call get_env( e_val, env_var, ' ', loc_logdev ) if ( e_val .eq. " " ) then xmsg = 'Environment variable ' // env_var // ' not set' #ifndef mpas call m3warn( pname, 0, 0, xmsg ) #endif nvars = 0 val_list = '' return end if nvars = 1 ip = 0 101 continue ip = ip + 1 if ( ip .gt. max_len ) go to 301 chr = e_val( ip:ip ) if ( chr .eq. ' ' .or. ichar ( chr ) .eq. 09 ) go to 101 jp( nvars ) = ip ! 1st char 201 continue ip = ip + 1 if ( ip .gt. max_len ) then xmsg = 'Environment variable value too long' #ifndef mpas call m3exit( pname, 0, 0, xmsg, 2 ) #endif end if chr = e_val( ip:ip ) if ( chr .ne. ' ' .and. & chr .ne. ',' .and. & chr .ne. ';' .or. & ichar ( chr ) .eq. 09 ) then ! 09 = horizontal tab go to 201 else kp( nvars ) = ip - 1 ! last char in this item nvars = nvars + 1 end if go to 101 301 continue nvars = nvars - 1 do v = 1, nvars val_list( v ) = e_val( jp( v ):kp( v ) ) end do end subroutine get_envlist function get_free_iounit() result ( iounit ) ! function finds and return a free IO unit ! adapted from D.Wong's mio library implicit none integer :: iounit logical :: found, opened iounit = 99 found = .false. do while ((.not. found) .and. (iounit .le. 100000)) inquire (unit=iounit, opened=opened) if (.not. opened) then found = .true. else iounit = iounit + 1 end if end do end function get_free_iounit end module get_env_module ================================================ FILE: CCTM/src/util/util/log_header.F ================================================ subroutine LOAD_HEADER( HEADER_TXT, N_TXT ) IMPLICIT NONE CHARACTER( 90 ) :: HEADER_TXT( 200 ) INTEGER :: N_TXT N_TXT = 21 HEADER_TXT( : ) = '' HEADER_TXT( 1:N_TXT ) = (/ & '#================================================================================#', & '#| |#', & '#| The Community Multiscale Air Quality (CMAQ) Model |#', & '#| Version 5.5 |#', & '#| |#', & '#| Built and Maintained by the |#', & '#| Office of Research and Development |#', & '#| United States Environmental Protection Agency |#', & '#| |#', & '#| https://www.epa.gov/cmaq |#', & '#| |#', & '#| Source Code: https://www.github.com/USEPA/cmaq/tree/master |#', & '#| Documentation: https://www.github.com/USEPA/cmaq/tree/master/DOCS |#', & '#| |#', & '#| The CMAQ Model is tested and released with cooperation from |#', & '#| the Community Modeling and Analysis System (CMAS) Center via |#', & '#| contract support. CMAS is managed by the Institute for the |#', & '#| Environment, University of North Carolina at Chapel Hill. |#', & '#| CMAS URL: (https://www.cmascenter.org) |#', & '#| |#', & '#================================================================================#' & /) end subroutine LOAD_HEADER ================================================ FILE: CCTM/src/util/util/lstepf.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE LSTEPF ( FNAME, LDATE, LTIME ) C returns the last data date & time on file FNAME C specifically used only for input files USE UTILIO_DEFN IMPLICIT NONE C Includes: INCLUDE SUBST_FILES_ID ! file name parameters C Arguments: CHARACTER( 16 ) :: FNAME INTEGER LDATE ! last file data date, coded YYYYDDD INTEGER LTIME ! last file data time, coded HHMMSS C External Functions: C local variables: CHARACTER( 16 ) :: PNAME = 'LSTEPF' CHARACTER( 96 ) :: XMSG = ' ' INTEGER LSTEP C----------------------------------------------------------------------- C open existing file for readonly access #ifndef mpas IF ( .NOT. OPEN3( FNAME, FSREAD3, PNAME ) ) THEN XMSG = 'Could not open '// FNAME CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT1 ) END IF IF ( .NOT. DESC3( FNAME ) ) THEN XMSG = 'Could not get ' // FNAME // ' file description' CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT2 ) END IF LSTEP = SEC2TIME( ( MXREC3D - 1 ) * TIME2SEC( TSTEP3D ) ) LDATE = SDATE3D LTIME = STIME3D CALL NEXTIME( LDATE, LTIME, LSTEP ) #endif RETURN END ================================================ FILE: CCTM/src/util/util/setup_logdev.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE SETUP_LOGDEV () C Purpose C Establish ancillary run time log files for each parallel processor C Effectively no operation, if serial C Revision History: C ??? J.Young - initial C 26 Dec, 01 David Wong C -- removed MPI_INIT call since the same function has been called in C subroutine PAR_INIT C 11 Jun 02 J.Young - minor mods C 23 Feb 11 J.Young - SETENVVAR is a function, not a subroutine C 16 Feb 11 S.Roselle: replaced I/O API include files with UTILIO_DEFN; C removed deprecated TRIMLEN C 12 Aug 15 D.Wong: Replaced SUBST_MPI with mpif.h USE RUNTIME_VARS USE UTILIO_DEFN IMPLICIT NONE #ifdef parallel include 'mpif.h' #endif INTEGER, PARAMETER :: MAXLEN_CTM_LOG = MAXLEN_CCTM_APPL + 11 CHARACTER( 8 ) :: PRESTR = 'CTM_LOG_' CHARACTER( MAXLEN_CTM_LOG ) :: IOLOGEQ INTEGER :: IOST, IHEAD INTEGER :: NIOAPI_HEAD, NCMAQ_HEAD INTEGER, PARAMETER :: NHEAD = 200 CHARACTER( 90 ) :: CMAQ_HEADER( NHEAD ) CHARACTER( 90 ) :: IOAPI_HEADER( NHEAD ) integer :: i logical :: found, opened ! Fetch CMAQ Header CALL LOAD_HEADER( CMAQ_HEADER, NCMAQ_HEAD ) #ifdef mpas write ( cmype, '(I3.3)' ) mype iologeq = 'CTM_LOG_' // cmype i = 99 found = .false. do while ((.not. found) .and. (i .le. 150)) inquire (unit=i, opened=opened) if (.not. opened) then found = .true. else i = i + 1 end if end do logdev = i open ( unit = logdev, & iostat = iost, & file = iologeq, & status = 'new', & access = 'sequential') #else ! Create Log Filename using the processor rank and initialize ! I/O-API and Logs WRITE ( CMYPE, '(I3.3)' ) MYPE IOLOGEQ = PRESTR // CMYPE // '.' // TRIM( APPL_NAME ) IF ( .NOT. SETENVVAR ( 'LOGFILE', IOLOGEQ ) ) THEN WRITE( *,* ) '*** Could not set environment variable for ' // IOLOGEQ CALL M3EXIT( 'SETUP_LOGDEV', 0, 0, '', 2 ) END IF #ifndef twoway ! Write CMAQ Header to Screen IF ( MYPE .EQ. 0 ) THEN DO IHEAD = 1,NCMAQ_HEAD WRITE( OUTDEV, '(A)' ) CMAQ_HEADER( IHEAD ) END DO END IF #endif ! Redirect Standard Output IF ( MYPE .NE. 0 ) OPEN( UNIT = 6, FILE = "/dev/null", STATUS = "OLD" ) LOGDEV = INIT3() ! Put Standard Output Back to File Unit 6 By Closing File Unit 6 IF ( MYPE .NE. 0 ) CLOSE( 6 ) ! Fetch I/O-API Header #ifndef twoway REWIND( LOGDEV ) DO IHEAD = 1,NHEAD READ( LOGDEV, '(A)', IOSTAT=IOST ), IOAPI_HEADER( IHEAD ) ! Check for End of File IF ( IOST .LT. 0 ) THEN NIOAPI_HEAD = IHEAD - 1 EXIT END IF END DO REWIND( LOGDEV ) #endif #endif ! Write CMAQ Header and then I/O-API Header DO IHEAD = 1,NCMAQ_HEAD WRITE( LOGDEV, '(A)' ) CMAQ_HEADER( IHEAD ) END DO WRITE( LOGDEV, * ) #ifndef mpas #ifndef twoway DO IHEAD = 1,NIOAPI_HEAD WRITE( LOGDEV, '(A)' ) IOAPI_HEADER( IHEAD ) END DO #endif #endif END SUBROUTINE SETUP_LOGDEV ================================================ FILE: CCTM/src/util/util/subhdomain.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE SUBHDOMAIN ( NPROCS, NPCOL, NPROW, NCOLS, NROWS, & NCOLS_PE, NROWS_PE, COLSX_PE, ROWSX_PE ) C---------------------------------------------------------------------- C Purpose: Subroutine to construct the horizontal C processor-to-subdomain map. C Revision History: C Original version 12/05 by J Young - modified from pario's SUBDMAP C 16 Feb 11 S.Roselle: replaced I/O API include files with UTILIO_DEFN C Argument List Description: C In: C INTEGER NPROCS ! Number of processors C INTEGER NPCOL ! Number of PEs across grid cols C INTEGER NPROW ! Number of PEs across grid rows C INTEGER NCOLS ! Total number of columns in grid C INTEGER NROWS ! Total number of rows in grid C Out: C INTEGER NCOLS_PE( NPROCS ) ! Number of columns for each PE C INTEGER NROWS_PE( NPROCS ) ! Number of rows for each PE C INTEGER COLSX_PE( 2,NPROCS ) ! Column index range for each PE C INTEGER ROWSX_PE( 2,NPROCS ) ! Row index range for each PE C---------------------------------------------------------------------- USE UTILIO_DEFN IMPLICIT NONE C Arguments: INTEGER NPROCS, NCOLS, NROWS, NPCOL, NPROW INTEGER NCOLS_PE( NPROCS ), NROWS_PE( NPROCS ) INTEGER COLSX_PE( 2,NPROCS ), ROWSX_PE( 2,NPROCS ) C Include Files: C External Functions: C Local Variables: INTEGER I ! Loop counter INTEGER NDX ! Temporary index for processors row, column INTEGER NCOLX ! Used for computing columns per domain INTEGER NROWX ! Used for computing rows per domain CHARACTER( 80 ) :: XMSG ! Message issued from M3EXIT routine CHARACTER( 16 ) :: PNAME = 'SUBHDOMAIN' INTEGER ASTAT ! allocate/deallocate error status C Dynamic arrays. INTEGER, ALLOCATABLE :: NCOLS_WE( : ) ! No. columns in west-to-east subdomains INTEGER, ALLOCATABLE :: NROWS_SN( : ) ! No. rows in south-to-north subdomains C---------------------------------------------------------------------- ALLOCATE ( NCOLS_WE( NPCOL ), & NROWS_SN( NPROW ), STAT=ASTAT ) IF ( ASTAT .NE. 0 ) THEN XMSG = 'Error allocating NCOLS_WE or NCOLS_SN' CALL M3EXIT ( PNAME, 0, 0, XMSG, XSTAT2 ) RETURN END IF C Construct the processor-to-subdomain map NCOLX = NCOLS / NPCOL NROWX = NROWS / NPROW DO I = 1 , NPCOL NCOLS_WE( I ) = NCOLX END DO DO I = 1 , NPROW NROWS_SN( I ) = NROWX END DO DO I = 1, NCOLS - NPCOL*NCOLX ! Spread out remaining columns NCOLS_WE( I ) = NCOLS_WE( I ) + 1 END DO DO I = 1, NROWS - NPROW*NROWX NROWS_SN( I ) = NROWS_SN( I ) + 1 ! Spread out remaining rows END DO C Assign the number of rows and columns for each PE subdomain, C and calculate the index range into the global domain C NPCOL C Example subdomain layout _____________________________________ C for 8 processors with | | | | | C NPCOL=4, NPROW=2. | | | | | C | 4 | 5 | 6 | 7 | C | | | | | C NPROW |_________|_________|________|________| C | | | | | C | | | | | C | 0 | 1 | 2 | 3 | C | | | | | C | | | | | C |_________|_________|________|________| DO I = 1, NPROCS C Set NDX to the subdomain column index for processor I NDX = MOD ( I,NPCOL ) IF ( NDX .EQ. 0 ) NDX = NPCOL C Assign the number of columns in this PE NCOLS_PE( I ) = NCOLS_WE( NDX ) C Calculate column range of this PE in the global domain IF ( NDX .EQ. 1 ) THEN COLSX_PE( 1,I ) = 1 COLSX_PE( 2,I ) = NCOLS_PE( I ) ELSE COLSX_PE( 1,I ) = COLSX_PE( 2,I-1 ) + 1 COLSX_PE( 2,I ) = COLSX_PE( 2,I-1 ) + NCOLS_PE( I ) END IF C Set NDX to the subdomain row number for processor I NDX = ( I - 1 ) / NPCOL + 1 C Calculate number of rows in this PE NROWS_PE( I ) = NROWS_SN( NDX ) C Calculate row range of this PE in the global domain IF ( I .LE. NPCOL ) THEN ROWSX_PE( 1,I ) = 1 ROWSX_PE( 2,I ) = NROWS_PE( I ) ELSE ROWSX_PE( 1,I ) = ROWSX_PE( 2,I-NPCOL ) + 1 ROWSX_PE( 2,I ) = ROWSX_PE( 2,I-NPCOL ) + NROWS_PE( I ) END IF END DO DEALLOCATE ( NCOLS_WE, & NROWS_SN, STAT=ASTAT ) IF ( ASTAT .NE. 0 ) THEN XMSG = 'Error deallocating NCOLS_WE or NROWS_SN' CALL M3EXIT ( PNAME, 0, 0, XMSG, XSTAT2 ) END IF RETURN END ================================================ FILE: CCTM/src/util/util/subhfile.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE SUBHFILE ( FNAME, GXOFF, GYOFF, & STRTCOL, ENDCOL, STRTROW, ENDROW ) C 11 May 11 D.Wong: incorporated twoway model implementation C 10 Mar 14 D.Wong: turned off GXOFF and GYOFF check for the twoway model C since METCRO is one grid cell bigger than the other C files to avoid M3EXIT issue C 1 Feb 19 David Wong: removed all MY_N clauses C 23 Mar 21 David Wong: modified code to accommodate a flexibility to allow each input C can have different XORIG and YORIG settings than the simulation C domain if it can be overlapped with the simulation domain C perfectly w.r.t. domain resolution C returns local starting and ending column and row indices for file FNAME USE GRID_CONF ! horizontal & vertical domain specifications USE UTILIO_DEFN IMPLICIT NONE C Includes: INCLUDE SUBST_FILES_ID ! file name parameters C Arguments: CHARACTER( 16 ), INTENT( IN ) :: FNAME INTEGER, INTENT( OUT ) :: GXOFF ! X global origin offset from file (.ge. 0) INTEGER, INTENT( OUT ) :: GYOFF ! Y global origin offset from file (.ge. 0) INTEGER, INTENT( OUT ) :: STRTCOL ! local processor start colum in file INTEGER, INTENT( OUT ) :: ENDCOL ! local processor end colum in file INTEGER, INTENT( OUT ) :: STRTROW ! local processor start row in file INTEGER, INTENT( OUT ) :: ENDROW ! local processor end row in file C External Functions: C Parameters REAL( 8 ), PARAMETER :: HALF = 0.5D+00 REAL( 8 ), PARAMETER :: ONE = 1.0D+00 REAL( 8 ), PARAMETER :: TEN = 1.0D+01 REAL( 8 ), PARAMETER :: ONEK = 1.0D+03 REAL( 8 ), PARAMETER :: TENK = 1.0D+04 REAL( 8 ), PARAMETER :: TOL = ONE / ONEK REAL( 8 ), PARAMETER :: THOU = 1.0D-03 REAL( 8 ), PARAMETER :: MIN_DOUBLE = 1.0D-08 C local variables: LOGICAL, SAVE :: FIRSTIME = .TRUE. INTEGER :: INDX ! because mype starts at 0 CHARACTER( 16 ) :: PNAME = 'SubhFile_Cell' CHARACTER( 16 ) :: BNAME CHARACTER( 96 ) :: XMSG = ' ' INTEGER :: LOC_STRTCOL, LOC_ENDCOL, LOC_STRTROW, LOC_ENDROW REAL( 8 ), SAVE :: XORIG_B, YORIG_B REAL( 8 ), SAVE :: XCENT_B, YCENT_B REAL( 8 ), SAVE :: XCELL_B, YCELL_B REAL( 8 ), SAVE :: XORIG_C, YORIG_C ! from GRIDDESC, in cell coord REAL( 8 ), SAVE :: XORIG_F, YORIG_F ! from file, in cell coord INTEGER DOTFILE REAL( 8 ) :: RELOFFX, RELOFFY C----------------------------------------------------------------------- #ifndef mpas IF ( FIRSTIME ) THEN FIRSTIME = .FALSE. C open cross file for subsequent comparison ! BNAME = TRIM( GRID_CRO_2D ) ! IF ( .NOT. OPEN3( BNAME, FSREAD3, PNAME ) ) THEN ! XMSG = 'Could not open '// BNAME ! CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT1 ) ! END IF ! IF ( .NOT. DESC3( BNAME ) ) THEN ! XMSG = 'Could not get ' // BNAME // ' file description' ! CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT2 ) ! END IF C set base header data XORIG_B = XORIG3D ! YORIG_B = YORIG3D ! XCENT_B = XCENT3D ! YCENT_B = YCENT3D ! XCELL_B = XCELL3D ! YCELL_B = YCELL3D C Scale resolution ! XCELL_B = REAL( IDNINT( TENK * XCELL_B ), 8 ) / TENK ! YCELL_B = REAL( IDNINT( TENK * YCELL_B ), 8 ) / TENK C Convert to grid cell coord and truncate ! XORIG_B = XORIG_B / XCELL_B ! XORIG_B = REAL( IDNINT( ONEK * XORIG_B ), 8 ) / ONEK ! YORIG_B = YORIG_B / YCELL_B ! YORIG_B = REAL( IDNINT( ONEK * YORIG_B ), 8 ) / ONEK XORIG_C = XORIG_GD / XCELL_GD XORIG_C = REAL( IDNINT( ONEK * XORIG_C ), 8 ) / ONEK YORIG_C = YORIG_GD / YCELL_GD YORIG_C = REAL( IDNINT( ONEK * YORIG_C ), 8 ) / ONEK END IF ! FIRSTIME C open existing file for readonly access IF ( .NOT. OPEN3( FNAME, FSREAD3, PNAME ) ) THEN XMSG = 'Could not open '// FNAME CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT1 ) END IF IF ( .NOT. DESC3( FNAME ) ) THEN XMSG = 'Could not get ' // TRIM( FNAME ) & // ' file description' CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT2 ) END IF C check some header data against the reference file in this met set - C mother grid center and grid cell resolution ! IF ( ABS( XCENT3D - XCENT_B ) .GT. ! & TOL * ABS( XCENT3D + XCENT_B + TOL ) .OR. ! & ABS( YCENT3D - YCENT_B ) .GT. ! & TOL * ABS( YCENT3D + YCENT_B + TOL ) .OR. ! & ABS( XCELL3D - XCELL_B ) .GT. TOL * XCELL3D .OR. ! & ABS( YCELL3D - YCELL_B ) .GT. TOL * YCELL3D ) THEN ! WRITE( LOGDEV,2003 ) XCENT_B, XCENT3D, YCENT_B, YCENT3D, ! & XCELL_B, XCELL3D, YCELL_B, YCELL3D !2003 FORMAT(/ 5X, 'XCENT_B:', F20.12, 2X, 'XCENT3D (file):', F20.12 ! & / 5X, 'YCENT_B:', F20.12, 2X, 'YCENT3D (file):', F20.12 ! & / 5X, 'XCELL_B:', F20.12, 2X, 'XCELL3D (file):', F20.12 ! & / 5X, 'YCELL_B:', F20.12, 2X, 'YCELL3D (file):', F20.12 ) ! XMSG = 'File header inconsistent with GRID_CRO_2D' !#ifndef twoway ! CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT2 ) !#endif ! END IF C check some header data against GRIDDESC IF ( ABS( XCENT3D - XCENT_GD ) .GT. & TOL * ABS( XCENT3D + XCENT_GD + TOL ) .OR. & ABS( YCENT3D - YCENT_GD ) .GT. & TOL * ABS( YCENT3D + YCENT_GD + TOL ) .OR. & ABS( XCELL3D - XCELL_GD ) .GT. TOL * XCELL3D .OR. & ABS( YCELL3D - YCELL_GD ) .GT. TOL * YCELL3D ) THEN WRITE( LOGDEV,2003 ) XCENT_GD, XCENT3D, YCENT_GD, YCENT3D, & XCELL_GD, XCELL3D, YCELL_GD, YCELL3D 2003 FORMAT(/ 5X, 'XCENT_B:', F20.12, 2X, 'XCENT3D (file):', F20.12 & / 5X, 'YCENT_B:', F20.12, 2X, 'YCENT3D (file):', F20.12 & / 5X, 'XCELL_B:', F20.12, 2X, 'XCELL3D (file):', F20.12 & / 5X, 'YCELL_B:', F20.12, 2X, 'YCELL3D (file):', F20.12 ) XMSG = 'File header inconsistent with GRIDDESC' CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT2 ) END IF C Convert to grid cell coord and truncate XORIG_F = XORIG3D / XCELL3D XORIG_F = REAL( IDNINT( ONEK * XORIG_F ), 8 ) / ONEK YORIG_F = YORIG3D / YCELL3D YORIG_F = REAL( IDNINT( ONEK * YORIG_F ), 8 ) / ONEK C Check if file (cross or dot) is "lined up" RELOFFX = THOU * REAL( IDNINT( ONEK * ( XORIG_C - XORIG_F ) ), 8 ) RELOFFX = RELOFFX - ONE * REAL( IDNINT( RELOFFX ), 8 ) IF ( ABS( RELOFFX ) .GT. MIN_DOUBLE ) THEN ! it better be a dot file IF ( ABS( RELOFFX ) .LT. HALF - MIN_DOUBLE .OR. & ABS( RELOFFX ) .GT. HALF + MIN_DOUBLE ) THEN WRITE( LOGDEV,* ) ' RELOFFX: ', RELOFFX WRITE( LOGDEV,* ) ' XORIG_C, XORIG_F: ', XORIG_C, XORIG_F XMSG = 'Inconsistent Base/File Xorig' CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT2 ) END IF END IF RELOFFY = THOU * REAL( IDNINT( ONEK * ( YORIG_C - YORIG_F ) ), 8 ) RELOFFY = RELOFFY - ONE * REAL( IDNINT( RELOFFY ), 8 ) IF ( ABS( RELOFFY ) .GT. MIN_DOUBLE ) THEN ! it better be a dot file IF ( ABS( RELOFFY ) .LT. HALF - MIN_DOUBLE .OR. & ABS( RELOFFY ) .GT. HALF + MIN_DOUBLE ) THEN WRITE( LOGDEV,* ) ' RELOFFY: ', RELOFFY WRITE( LOGDEV,* ) ' YORIG_C, YORIG_F: ', YORIG_C, YORIG_F XMSG = 'Inconsistent Base/File Yorig' CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT2 ) END IF END IF IF ( ABS( RELOFFX - RELOFFY ) .GT. MIN_DOUBLE ) THEN XMSG = 'Inconsistent X- and Y-resolution (file vs. file)' CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT2 ) END IF C check the file against the processor setup (COORD.EXT), and get the offsets DOTFILE = 0 RELOFFX = THOU * REAL( IDNINT( ONEK * ( XORIG_C - XORIG_F ) ), 8 ) RELOFFX = RELOFFX - ONE * REAL( IDNINT( RELOFFX ), 8 ) IF ( ABS( RELOFFX ) .GT. MIN_DOUBLE ) THEN ! it better be a dot file IF ( ABS( RELOFFX ) .LT. HALF - MIN_DOUBLE .OR. & ABS( RELOFFX ) .GT. HALF + MIN_DOUBLE ) THEN WRITE( LOGDEV,* ) ' RELOFFX: ', RELOFFX WRITE( LOGDEV,* ) ' XORIG_GD, XORIG_F: ', XORIG_C, XORIG_F XMSG = 'File Xorig inconsistent with GRIDDESC' CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT2 ) END IF END IF RELOFFY = THOU * REAL( IDNINT( ONEK * ( YORIG_C - YORIG_F ) ), 8 ) RELOFFY = RELOFFY - ONE * REAL( IDNINT( RELOFFY ), 8 ) IF ( ABS( RELOFFY ) .GT. MIN_DOUBLE ) THEN ! it better be a dot file IF ( ABS( RELOFFY ) .LT. HALF - MIN_DOUBLE .OR. & ABS( RELOFFY ) .GT. HALF + MIN_DOUBLE ) THEN WRITE( LOGDEV,* ) ' RELOFFY: ', RELOFFY WRITE( LOGDEV,* ) ' YORIG_GD, YORIG_F: ', YORIG_C, YORIG_F XMSG = 'File Yorig inconsistent with GRIDDESC' CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT2 ) ELSE DOTFILE = 1 END IF END IF IF ( ABS( RELOFFX - RELOFFY ) .GT. MIN_DOUBLE ) THEN XMSG = 'Inconsistent X- and Y-resolution (file vs. model)' CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT2 ) END IF INDX = MYPE + 1 GXOFF = IDINT( XORIG_C - XORIG_F ) LOC_STRTCOL = GXOFF + COLSX_PE( 1,INDX ) LOC_ENDCOL = LOC_STRTCOL + NCOLS - 1 + DOTFILE GYOFF = IDINT( YORIG_C - YORIG_F ) LOC_STRTROW = GYOFF + ROWSX_PE( 1,INDX ) LOC_ENDROW = LOC_STRTROW + NROWS - 1 + DOTFILE #ifndef twoway IF ( GXOFF .LT. 0 .OR. GYOFF .LT. 0 ) THEN XMSG = 'Model domain is outside file domain' CALL M3EXIT( PNAME, 0, 0, XMSG, XSTAT2 ) END IF #endif #ifdef twoway IF ( ( FNAME .EQ. GRID_CRO_2D ) .OR. & ( FNAME .EQ. GRID_DOT_2D ) ) THEN LOC_ENDCOL = LOC_ENDCOL - LOC_STRTCOL + 1 LOC_STRTCOL = 1 LOC_ENDROW = LOC_ENDROW - LOC_STRTROW + 1 LOC_STRTROW = 1 ELSE IF ( ( FNAME .EQ. MET_CRO_2D ) .OR. & ( FNAME .EQ. MET_CRO_3D ) .OR. & ( FNAME .EQ. MET_DOT_3D ) ) THEN LOC_ENDCOL = LOC_ENDCOL - LOC_STRTCOL + 2 LOC_STRTCOL = 2 LOC_ENDROW = LOC_ENDROW - LOC_STRTROW + 2 LOC_STRTROW = 2 END IF #endif STRTCOL = LOC_STRTCOL ENDCOL = LOC_ENDCOL STRTROW = LOC_STRTROW ENDROW = LOC_ENDROW #endif RETURN END SUBROUTINE SUBHFILE ================================================ FILE: CCTM/src/util/util/util_family_module.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! !------------------------------------------------------------------------! ! This module contains the definition of various Families that are ! ! useful for users wanting to scale inputs or otherwise modify the the ! ! options for their outputs. ! ! ! ! Revision History: ! ! 25 Jun 2020 B. Murphy initial implementation ! !------------------------------------------------------------------------! module util_Family_module IMPLICIT NONE SAVE ! Define Chemical Family Variables Integer :: N_Chem_Fams = 0 Integer :: Max_Chem_Fam_Members = 0 Character( 32 ),Allocatable :: ChemFamilyName( : ) Integer,Allocatable :: ChemFamilyNum( : ) Character( 32 ),Allocatable :: ChemFamilyMembers( :,: ) ! Define Stream Family Variables Integer :: Desid_N_Stream_Fams = 0 Integer :: Desid_Max_Stream_Fam_Members = 0 Character( 32 ),Allocatable :: StreamFamilyName( : ) Integer,Allocatable :: StreamFamilyNum( : ) Character( 32 ),Allocatable :: StreamFamilyMembers( :,: ) ! Define Region Family Variables Integer :: Desid_N_Reg_Fams = 0 Integer :: Desid_Max_Reg_Fam_Members = 0 Character( 32 ),Allocatable :: RegionFamilyName( : ) Integer,Allocatable :: RegionFamilyNum( : ) Character( 32 ),Allocatable :: RegionFamilyMembers( :,: ) ! Other Variables Logical :: linit = .FALSE. contains ! ---------------------------------------------------------------------- subroutine read_families ! ---------------------------------------------------------------------- ! Load definitions for families from the Control File to these ! globally available variables. ! ! ---------------------------------------------------------------------- use RUNTIME_VARS, only : DESID_CTRL, MISC_CTRL, logdev, log_message, & log_subheading use UTILIO_DEFN use desid_param_module, only : Desid_Max_Reg use aero_data, only : n_aerospc, aerospc, n_mode, aero_missing IMPLICIT NONE ! Define Dummy Variables for Opening Emission Control Namelist CHARACTER( 300 ) :: XMSG INTEGER :: FUNIT INTEGER :: STAT, IFAM, INUM, IOST, IAER, JAER, IM CHARACTER( 200 ) :: TMPLINE ! Define Chemical Families NAMELIST / Chemical_FamVars / N_Chem_Fams, Max_Chem_Fam_Members NAMELIST / ChemicalFamilies / ChemFamilyName, ChemFamilyMembers ! Define Stream Families NAMELIST / Desid_StreamFamVars / Desid_N_Stream_Fams, Desid_Max_Stream_Fam_Members NAMELIST / Desid_StreamFam / StreamFamilyName, StreamFamilyMembers ! Define Region Families NAMELIST / Desid_RegionDefVars / Desid_Max_Reg, Desid_N_Reg_Fams, & Desid_Max_Reg_Fam_Members NAMELIST / Desid_RegionFam / RegionFamilyName, RegionFamilyMembers CALL LOG_SUBHEADING( LOGDEV, "Reading Family Definitions from Control File" ) ! Retrieve the Name of the Misc. Control File IF ( MISC_CTRL .EQ. "MISC_CTRL_NML" ) THEN XMSG = 'You have chosen not to indicate the location of a' // & 'Misc. Control namelist file. You must give a value ' // & 'for the MISC_CTRL variable in the CMAQ runscript.' CALL M3EXIT( 'READ_FAMILIES',0,0,XMSG,1 ) END IF ! Open Miscellaneous Control Namelist File FUNIT = JUNIT() OPEN( FILE = MISC_CTRL, UNIT = FUNIT, STATUS = 'OLD', & POSITION = 'REWIND', FORM='FORMATTED', IOSTAT = STAT ) ! Check for Error in File Open Process IF ( STAT .NE. 0 ) THEN WRITE( XMSG, '(A,A,A)' ),'ERROR: Could not read ', & 'miscellaneous control namelist file: ',TRIM( MISC_CTRL ) CALL M3EXIT( 'READ_FAMILIES',0,0,XMSG,1 ) END IF ! Read Number of Chemical Families REWIND( FUNIT ) READ( NML = Chemical_FamVars, UNIT = FUNIT, IOSTAT=STAT ) IF ( STAT .EQ. -1 ) THEN XMSG = 'Note: the Chemical_FamVars section of the Misc. Control ' // & 'Namelist is missing. Default values for this section will be ' // & 'assumed.' CALL LOG_MESSAGE( LOGDEV, ' ' ) CALL LOG_MESSAGE( LOGDEV, XMSG ) N_Chem_Fams = 0 Max_Chem_Fam_Members = 120 ELSE IF ( STAT .NE. 0 ) THEN ! Read Error Detected for MISC_CTRL backspace( FUNIT ) read( FUNIT, fmt='(A)' ) tmpline XMSG = 'ERROR: There was a syntax error reading the Chemical_FamVars '// & 'variable for use by the families module. Please check the format of '// & 'each line for syntax errors. The invalid line was likely: ' CALL LOG_MESSAGE( LOGDEV, ' ') CALL LOG_MESSAGE( LOGDEV, XMSG ) WRITE( LOGDEV, '(8x,A)' ) TMPLINE CALL M3EXIT ( 'Read_Families', 0, 0, 'CMAQ must Crash until you '// & 'fix the Chemical Families', 1 ) END IF ! Read Chemical Family Specification Section N_Chem_Fams = N_Chem_Fams + n_aerospc ALLOCATE( ChemFamilyName( N_Chem_Fams), & ChemFamilyNum( N_Chem_Fams), & ChemFamilyMembers( N_Chem_Fams, Max_Chem_Fam_Members ), & STAT = IOST) CALL CHECKMEM( IOST, 'ChemFamilies', 'Read_Families' ) ChemFamilyName = '' ChemFamilyMembers = '' REWIND( FUNIT ) READ( NML = ChemicalFamilies, UNIT = FUNIT, IOSTAT=STAT ) IF ( STAT .EQ. -1 ) THEN XMSG = 'Note: the ChemicalFamilies section of the Misc. Control ' // & 'Namelist is missing. Default values for this section will be ' // & 'assumed.' CALL LOG_MESSAGE( LOGDEV, ' ' ) CALL LOG_MESSAGE( LOGDEV, XMSG ) ChemFamilyName = '' ChemFamilyMembers = '' ELSE IF ( STAT .NE. 0 ) THEN ! Read Error Detected for RGN_NML backspace( FUNIT ) read( FUNIT, fmt='(A)' ) tmpline XMSG = 'ERROR: There was a syntax error reading the ChemicalFamilies '// & 'variable for use by the DESID module. Please check the format of '// & 'each line for syntax errors. The invalid line was likely: ' CALL LOG_MESSAGE( LOGDEV, ' ') CALL LOG_MESSAGE( LOGDEV, XMSG ) WRITE( LOGDEV, '(8x,A)' ) TMPLINE CALL M3EXIT ( 'Read_Families', 0, 0, 'CMAQ must Crash until you '// & 'fix the Chemical Families', 1 ) END IF ! Add Aerosol Species to Chemical Family List if they aren't ! already there DO IAER = 1,N_AEROSPC JAER = INDEX1( AEROSPC(IAER)%BULKNAME,N_Chem_Fams,ChemFamilyName ) IF ( JAER .EQ. 0 ) THEN ! Add Aerosol Bulkname to the end of the chemical family ! list DO IFAM = 1,N_Chem_Fams if ( ChemFamilyName(ifam) .eq. '' ) then ChemFamilyName(ifam) = aerospc(iaer)%bulkname inum = 0 do im = 1,n_mode if ( .not.aero_missing(iaer,im) ) then inum = inum + 1 ChemFamilyMembers(ifam,inum) = aerospc(iaer)%name(im) end if end do exit end if END DO ELSE N_Chem_Fams = N_Chem_Fams - 1 END IF END DO ! Reallocate Chemical Family Arrays in case N_Chem_Fams was ! shortened due to aerosol bulknames being already present in the ! user-defined family list. ChemFamilyName = ChemFamilyName(1:N_Chem_Fams) ChemFamilyMembers = ChemFamilyMembers(1:N_Chem_Fams,1:Max_Chem_Fam_Members) ! Populate and Error Check All Family and Member Names DO IFAM = 1,N_Chem_Fams IF ( ChemFamilyName(IFAM) .EQ. '' ) THEN WRITE( XMSG, '(A,I3,A,A,A)' ),'ERROR: The number of Chemical Families ', & N_Chem_Fams, ' is larger than the number of fields ', & 'provided in the ChemFamilyName array. Reduce N_Chem_Fams ', & 'in the MISC_CTRL file or provide more Chemical Families.' CALL M3EXIT( 'Read_Families',0,0,XMSG,1 ) END IF CALL UPCASE( ChemFamilyName( IFAM ) ) ChemFamilyNum( IFAM ) = 0 DO INUM = 1,Max_Chem_Fam_Members IF ( ChemFamilyMembers( IFAM,INUM ) .EQ. '' ) EXIT CALL UPCASE( ChemFamilyMembers( IFAM,INUM ) ) ChemFamilyNum ( IFAM ) = INUM END DO END DO CLOSE( UNIT = FUNIT ) !!! Stream Families !!! ! Retrieve the Name of the DESID Control File IF ( DESID_CTRL .EQ. "DESID_CTRL_NML" ) THEN XMSG = 'You have chosen not to indicate the location of a' // & 'DESID Control namelist file. You must give a value ' // & 'for the DESID_CTRL variable in the CMAQ runscript.' CALL M3EXIT( 'READ_FAMILIES',0,0,XMSG,1 ) END IF ! Open Emission Control Namelist File FUNIT = JUNIT() OPEN( FILE = DESID_CTRL, UNIT = FUNIT, STATUS = 'OLD', & POSITION = 'REWIND', FORM='FORMATTED', IOSTAT = STAT ) ! Check for Error in File Open Process IF ( STAT .NE. 0 ) THEN WRITE( XMSG, '(A,A,A)' ),'ERROR: Could not read ', & 'DESID control namelist file: ',TRIM( DESID_CTRL ) CALL M3EXIT( 'READ_FAMILIES',0,0,XMSG,1 ) END IF ! Read Stream Family Specification Section REWIND( FUNIT ) READ( NML = Desid_StreamFamVars, UNIT = FUNIT, IOSTAT=STAT ) IF ( STAT .EQ. -1 ) THEN XMSG = 'Note: the StreamFamilies section of the DESID Control ' // & 'Namelist is missing. Default values for this section will be ' // & 'assumed.' CALL LOG_MESSAGE( LOGDEV, ' ' ) CALL LOG_MESSAGE( LOGDEV, XMSG ) Desid_N_Stream_Fams = 0 Desid_Max_Stream_Fam_Members = 0 ELSE IF ( STAT .NE. 0 ) THEN ! Read Error Detected for RGN_NML backspace( FUNIT ) read( FUNIT, fmt='(A)' ) tmpline XMSG = 'ERROR: There was a syntax error reading the Desid_StreamFamVars '// & 'variable for use by the DESID module. Please check the format of '// & 'each line for syntax errors. The invalid line was likely: ' CALL LOG_MESSAGE( LOGDEV, ' ') CALL LOG_MESSAGE( LOGDEV, XMSG ) WRITE( LOGDEV, '(8x,A)' ) TMPLINE CALL M3EXIT ( 'Read_Families', 0, 0, 'CMAQ must Crash until you '// & 'fix the Stream Families', 1 ) END IF ALLOCATE( StreamFamilyName( Desid_N_Stream_Fams ), & StreamFamilyNum( Desid_N_Stream_Fams ), & StreamFamilyMembers( Desid_N_Stream_Fams, Desid_Max_Stream_Fam_Members ), & STAT = IOST ) CALL CHECKMEM( IOST, 'Stream Families', 'Read_Families' ) StreamFamilyName = '' StreamFamilyMembers = '' ! Read Stream Family Specification Section REWIND( FUNIT ) READ( NML = Desid_StreamFam, UNIT = FUNIT, IOSTAT=STAT ) IF ( STAT .EQ. -1 ) THEN XMSG = 'Note: the StreamFamilies section of the DESID Control ' // & 'Namelist is missing. Default values for this section will be ' // & 'assumed.' CALL LOG_MESSAGE( LOGDEV, ' ' ) CALL LOG_MESSAGE( LOGDEV, XMSG ) StreamFamilyName = '' StreamFamilyMembers = '' ELSE IF ( STAT .NE. 0 ) THEN ! Read Error Detected for RGN_NML backspace( FUNIT ) read( FUNIT, fmt='(A)' ) tmpline XMSG = 'ERROR: There was a syntax error reading the Desid_StreamFam '// & 'variable for use by the DESID module. Please check the format of '// & 'each line for syntax errors. The invalid line was likely: ' CALL LOG_MESSAGE( LOGDEV, ' ') CALL LOG_MESSAGE( LOGDEV, XMSG ) WRITE( LOGDEV, '(8x,A)' ) TMPLINE CALL M3EXIT ( 'Read_Families', 0, 0, 'CMAQ must Crash until you '// & 'fix the Stream Families', 1 ) END IF ! Capitalize All Family and Member Names DO IFAM = 1,Desid_N_Stream_Fams IF ( StreamFamilyName(IFAM) .EQ. '' ) THEN WRITE( XMSG, '(A,I3,A,A,A)' ),'ERROR: The number of Stream Families ', & Desid_N_Stream_Fams, ' is larger than the number of fields ', & 'provided in StreamFamilyName array. Reduce Desid_N_Stream_Fams ', & 'in the DESID_CTRL file or provide more Stream Families.' CALL M3EXIT( 'Read_Families',0,0,XMSG,1 ) END IF CALL UPCASE( StreamFamilyName( IFAM ) ) StreamFamilyNum( IFAM ) = 0 DO INUM = 1,Desid_Max_Stream_Fam_Members IF ( StreamFamilyMembers(IFAM,INUM) .EQ. '' ) EXIT CALL UPCASE( StreamFamilyMembers( IFAM,INUM ) ) StreamFamilyNum( IFAM ) = INUM END DO END DO !!! Region Families !!! ! Read Region Family Specification Section REWIND( FUNIT ) READ( NML = Desid_RegionDefVars, UNIT = FUNIT, IOSTAT=STAT ) IF ( STAT .EQ. -1 ) THEN XMSG = 'Note: the Desid_Regoin_DefVars section of the DESID Control ' // & 'Namelist is missing. Default values for this section will be '// & 'assumed.' CALL LOG_MESSAGE( LOGDEV, ' ' ) CALL LOG_MESSAGE( LOGDEV, XMSG ) Desid_Max_Reg = 0 Desid_N_Reg_Fams = 0 Desid_Max_Reg_Fam_Members = 0 ELSE IF ( STAT .NE. 0 ) THEN ! Read Error Detected for RGN_NML backspace( FUNIT ) read( FUNIT, fmt='(A)' ) tmpline XMSG = 'ERROR: There was a syntax error reading the RegionFamilies '// & 'variable for use by the DESID module. Please check the format of '// & 'each line for syntax errors. The invalid line was likely: ' CALL LOG_MESSAGE( LOGDEV, ' ') CALL LOG_MESSAGE( LOGDEV, XMSG ) WRITE( LOGDEV, '(8x,A)' ) TMPLINE CALL M3EXIT ( 'Read_Families', 0, 0, 'CMAQ must Crash until you '// & 'fix the Region Families', 1 ) END IF ALLOCATE( RegionFamilyName( Desid_N_Reg_Fams ), & RegionFamilyNum( Desid_N_Reg_Fams ), & RegionFamilyMembers( Desid_N_Reg_Fams, Desid_Max_Reg_Fam_Members ), & STAT=IOST ) CALL CHECKMEM( IOST, 'Region Families','Read Families' ) RegionFamilyName = '' RegionFamilyMembers = '' REWIND( FUNIT ) READ( NML = Desid_RegionFam, UNIT = FUNIT, IOSTAT=STAT ) IF ( STAT .EQ. -1 ) THEN XMSG = 'Note: the Desid_RegionFam section of the DESID Control ' // & 'Namelist is missing. Default values for this section will be '// & 'assumed.' CALL LOG_MESSAGE( LOGDEV, ' ' ) CALL LOG_MESSAGE( LOGDEV, XMSG ) RegionFamilyName = '' RegionFamilyMembers = '' ELSE IF ( STAT .NE. 0 ) THEN ! Read Error Detected for RGN_NML backspace( FUNIT ) read( FUNIT, fmt='(A)' ) tmpline XMSG = 'ERROR: There was a syntax error reading the RegionFamilies '// & 'variable for use by the DESID module. Please check the format of '// & 'each line for syntax errors. The invalid line was likely: ' CALL LOG_MESSAGE( LOGDEV, ' ') CALL LOG_MESSAGE( LOGDEV, XMSG ) WRITE( LOGDEV, '(8x,A)' ) TMPLINE CALL M3EXIT ( 'Read_Families', 0, 0, 'CMAQ must Crash until you '// & 'fix the Region Families', 1 ) END IF ! Capitalize All Family and Member Names DO IFAM = 1,Desid_N_Reg_Fams IF ( RegionFamilyName(IFAM) .EQ. '' ) THEN WRITE( XMSG, '(A,I3,A,A,A)' ),'ERROR: The number of Region Families ', & Desid_N_Reg_Fams, ' is larger than the number of fields ', & 'provided in RegionFamilyName array. Reduce Desid_N_Reg_Fams ', & 'in the DESID_CTRL file or provide more Region Families.' CALL M3EXIT( 'Read_Families',0,0,XMSG,1 ) END IF CALL UPCASE( RegionFamilyName( IFAM ) ) RegionFamilyNum( IFAM ) = 0 DO INUM = 1,Desid_Max_Reg_Fam_Members IF ( RegionFamilyMembers( IFAM,INUM ) .EQ. '' ) EXIT CALL UPCASE( RegionFamilyMembers( IFAM,INUM ) ) RegionFamilyNum( IFAM ) = INUM END DO END DO CLOSE( UNIT = FUNIT ) CALL LOG_MESSAGE( LOGDEV, ' ' ) ! Add a buffer space in the log file end subroutine read_families ! ---------------------------------------------------------------------- subroutine map_chem_families( species0, spec_vec, nvec, out_vec ) ! ---------------------------------------------------------------------- ! Return a vector out_vec of size nvec, equal to the size of specvec. ! Out_vec is a logical which maps the input species name "species" ! to specvec, expanding any chemical families or keywords. ! ---------------------------------------------------------------------- USE AERO_DATA, ONLY: N_MODE, MODESUFF, AEROSPC, N_AEROSPC USE RUNTIME_VARS, ONLY: LOGDEV USE UTILIO_DEFN IMPLICIT NONE CHARACTER(16), INTENT(IN) :: SPECIES0 INTEGER , INTENT(IN) :: NVEC CHARACTER(16), INTENT(IN) :: SPEC_VEC( NVEC ) LOGICAL , INTENT(OUT):: OUT_VEC( NVEC ) CHARACTER(16) :: SPECIES INTEGER IFAM, ICHEM, IDX, JDX, IM, KDX, NCHEM CHARACTER(16) :: CHEM_NAME( 150 ), SN CHARACTER(200) :: XMSG ! Initialize Emissions Species Array SPECIES = SPECIES0 CALL UPCASE( SPECIES ) OUT_VEC = .FALSE. ! Find Indices of Species Relevant for "species" IF ( SPECIES .EQ. 'ALL' ) THEN ! Expand to Apply to All Species OUT_VEC = .TRUE. ELSE ! Determine if the Species Label Refers to A Family and if So, ! Apply the Rule to all members of that Family IFAM = INDEX1( SPECIES, N_Chem_Fams, ChemFamilyName ) IF ( IFAM .EQ. 0 ) THEN NCHEM = 1 CHEM_NAME(1) = SPECIES ELSE NCHEM = ChemFamilyNum( IFAM ) CHEM_NAME(1:NCHEM) = ChemFamilyMembers( IFAM,1:NCHEM ) END IF DO ICHEM = 1,NCHEM ! Find the Specific Species this Rule Identifies IDX = INDEX1( CHEM_NAME( ICHEM ), NVEC, SPEC_VEC ) JDX = INDEX1( CHEM_NAME( ICHEM ), N_AEROSPC, AEROSPC( : )%BULKNAME ) IF ( IDX .NE. 0 ) THEN OUT_VEC( IDX ) = .TRUE. ELSE IF ( JDX .NE. 0 ) THEN ! This is an aerosol species, and it is being ! identified with a bulk name (no mode suffix). ! We need to allow for all possible DIFF_SPC with ! all used suffixes SN = CHEM_NAME( ICHEM ) DO IM = 1,N_MODE KDX = INDEX1( TRIM( SN )//MODESUFF( IM ), NVEC, SPEC_VEC ) IF ( KDX .NE. 0 ) OUT_VEC( KDX ) = .TRUE. END DO ELSE WRITE( LOGDEV, '(/,19A,A,1A,A,A,/,A,/,A,/,A,/,A,/,A,/,A)' ), & 'Attention: Species ',TRIM(SPECIES),':',TRIM(CHEM_NAME(ICHEM)), & ' was used in the CMAQ Miscellaneous', & ' Control Instructions but it is not a valid CMAQ ', & 'transported species or family. Please add it to one of the ', & 'input chemical namelists (ie. GC, AE, etc), if desired. If the ', & 'variable is on an emission file and not a CMAQ species, no ', & 'further action is required. Note that aerosol Number and Surface ', & 'Area Species are not valid for scaling.' END IF END DO END IF end subroutine map_chem_families end module util_Family_module ================================================ FILE: CCTM/src/vadv/local_cons/vppm.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/work/rep/arc/CCTM/src/vadv/wrf/vppm.F,v 1.5 2011/10/21 16:11:40 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: #ifdef isam SUBROUTINE VPPM ( NI, DT, DS, FLX, VEL, CON, SA_CON ) #elif sens SUBROUTINE VPPM ( NI, DT, DS, FLX, VEL, CON, SEN ) #else SUBROUTINE VPPM ( NI, DT, DS, FLX, VEL, CON ) #endif C---------------------------------------------------------------------- C Function C This is the one-dimensional implementation of piecewise parabolic C method. Variable grid spacing is allowed. The scheme is positive C definite and monotonic. It is conservative, and causes small C numerical diffusion. C A piecewise continuous parabola is used as the intepolation polynomial. C The slope of the parabola at cell edges are computed from a cumulative C function of the advected quantity. These slopes are further modified C so that the interpolation function is monotone. For more detailed C information see: C Colella, P., and P. L. Woodward, (1984), "The Piecewise Parabolic C Method (PPM) for Gas-Dynamical Simulations," J. Comput. Phys. 54, C 174-201. C The concentrations at boundary cells (i.e., at 1 and NI) are not C computed here. They should be updated according to the boundary C conditions. C The following definitions are used: C |---------------> Positive direction C C -->|Boundary|<----------------Main Grid----------------->|Boundary|<-- C C |---><---|---><---| ~|---><---|~ |---><---|---><---| C CON(0) CON(1) CON(i) CON(n) CON(n+1) C C VEL(1)<->| VEL(i)<->| |<->VEL(i+1) |<->VEL(n+1) C C FP(0)-->| FP(i-1)-->| |-->FP(i) |-->FP(n) C C FM(1)<--| FM(i)<--| |<--FM(i+1) |<--FM(n+1) C C -->| DS(i) |<-- C---------------------------------------------------------------------- C Revision History: C 20 April, 1993 by M. Talat Odman at NCSC: C Created based on Colella and Woodward (1984) C 15 Sept., 1993 by Daewon Byun at EPA: C Original code obtained from Phillip Colella at Berkeley C 29 Nov., 1993 by M. Talat Odman at NCSC: C Found no difference from original code C 05 Oct., 1993 by M. Talat Odman at NCSC: C Modified for EDSS archive, made discontinuity capturing an option C Sep 97 - Jeff C Aug 98 - Jeff - optimize for mesh coefficients C 06/16/04 by Peter Percell & Daewon Byun at UH-IMAQS: C - Fixed bug in using fluxes in non-uniform grids to update concentrations C 07 Dec 04 J.Young: vert dyn alloc - Use VGRD_DEFN C 08 May 09 J.Young: dimension CON with species; eliminate "STEEPEN" option C 18 Nov 09 J.Young: combine PPM velocity adjustment and vertically advected C concentrations on one code C 21 Jun 10 J.Young: convert for Namelist redesign C 16 Feb 11 S.Roselle: replaced I/O API include files with UTILIO_DEFN C 31 Jul 12 J.Bash: Changed the adjustment to VEL to be the square root C of the flux*dt over the estimated flux*dt because C the relationship between the flux and velocity is C roughly a second order polynomial and adjustments C under conditions with CFL near 1 could result in C errors using a linear approximation. C 11 Dec 19 S.L.Napelenok: ddm-3d implementation for version 5.3.1 C---------------------------------------------------------------------- USE CGRID_SPCS ! CGRID mechanism species USE UTILIO_DEFN #ifdef isam USE SA_DEFN #elif sens USE DDM3D_DEFN, ONLY : NP, NPMAX #endif IMPLICIT NONE C Includes: INTEGER, SAVE :: N_SPC_ADV C Arguments: INTEGER, INTENT( IN ) :: NI ! number of zones (cells) REAL, INTENT( IN ) :: DS ( NI ) ! distance between zone (cell) boundaries REAL, INTENT( IN ) :: FLX( NI+1 ) ! fluxes at zone (cell) boundaries REAL, INTENT( IN ) :: DT ! time step REAL, INTENT( INOUT ) :: VEL( NI+1 ) ! velocities at zone (cell) boundaries REAL, INTENT( INOUT ) :: CON( :,: ) ! concs in a vertical column #ifdef isam Ckrt REAL, INTENT( INOUT ) :: SA_CON( NI,N_SPCTAG ) #endif !!! NOTE: Even tho' VEL is not used on output, declaring it as INTENT(IN) causes the !!! code to fail. ifort compiler error? C Parameters: REAL, PARAMETER :: TWO3RDS = 2.0 / 3.0 REAL, PARAMETER :: EPSF = 0.001 C Local variables: LOGICAL, SAVE :: FIRSTIME = .TRUE. CHARACTER( 120 ) :: XMSG = ' ' REAL :: FM ( 1:NI+1 ) ! outflux from left or bottom of cell REAL :: FP ( 0:NI ) ! outflux from right or top of cell REAL :: CR ( 1:NI ) ! zone R.H. intercept REAL :: CL ( 1:NI ) ! zone L.H. intercept REAL :: DC ( 1:NI ) ! CR - CL REAL :: C6 ( 1:NI ) ! coefficient of second-order term REAL :: CN ( 1:NI ) ! local con REAL X ! Courant number REAL Y ! removed zone slab REAL FDN, FUP ! upstream donor cell versions of fm, fp INTEGER ICNT ! no. of times fdn, fup exceeds fm, fp error range INTEGER I, S ! loop index INTEGER, PARAMETER :: MAXCNT = 50 #ifdef sens REAL, INTENT( INOUT ) :: SEN( :,:,: ) #endif C---------------------------------------------------------------------- IF ( FIRSTIME ) THEN FIRSTIME = .FALSE. N_SPC_ADV = N_GC_TRNS + N_AE_TRNS + N_NR_TRNS + N_TR_ADV + 1 ! for advecting Rho_J END IF ! FIRSTIME DO I = 1, NI CN( I ) = CON( I,N_SPC_ADV ) ! N_SPC_ADV is transported RhoJ index END DO CALL PPM ( NI, DT, DS, CN, CR, CL, DC, C6 ) c set all fluxes to zero. either positive or negative flux will c remain zero depending on the sign of the velocity. c fm: function for mass leaving interval i at lower face (i-1/2) c = length of segment leaving * integral average concentration in that segment: c length of segment leaving = y = -v(i)dt c segment integral ave. conc. = cl(i) + 1/2[c6(i)+dc(i)]dx -1/3[c6(i)]dx**2 c fp: function for mass leaving interval i at upper face (i+1/2) c = length of segment leaving * integral average concentration in that segment: c length of segment leaving = y = v(i+1)dt c segment integral ave. conc. = cr(i) + 1/2[c6(i)-dc(i)]dx -1/3[c6(i)]dx**2 FM( 1:NI+1 ) = 0.0 FP( 0:NI ) = 0.0 DO I = 1, NI IF ( VEL( I ) .LT. 0.0 ) THEN FDN = -FLX( I ) * DT ICNT = 0 66 CONTINUE Y = -VEL( I ) * DT X = Y / DS( I ) FM( I ) = Y * ( CL( I ) + 0.5 * X & * ( DC( I ) + C6( I ) * ( 1.0 - TWO3RDS * X ) ) ) IF ( ABS( FM( I ) - FDN ) .GT. EPSF * FDN ) THEN VEL( I ) = VEL( I ) * SQRT( FDN / FM( I ) ) ICNT = ICNT + 1 ! if ( vel( i ) .ge. 0.0 ) then ! write( *,2013 ) '@#@ icnt,i,fdn,fm,vel changed sign: ', ! & icnt, i, fdn, fm( i ), vel( i ) 2013 format( a, 2i4, 2( f15.5 ), 1pe15.3 ) ! end if IF ( ICNT .GT. MAXCNT ) THEN XMSG = ' max iterations exceeded in vppm at 66' CALL M3EXIT( 'VPPM', 0, 0, XMSG, XSTAT1 ) END IF GO TO 66 END IF END IF IF ( VEL( I+1 ) .GT. 0.0 ) THEN FUP = FLX( I+1 ) * DT ICNT = 0 77 CONTINUE Y = VEL( I+1 ) * DT X = Y / DS( I ) FP( I ) = Y * ( CR( I ) - 0.5 * X & * ( DC( I ) - C6( I ) * ( 1.0 - TWO3RDS * X ) ) ) IF ( ABS( FP( I ) - FUP ) .GT. EPSF * FUP ) THEN VEL( I+1 ) = VEL( I+1 ) * SQRT( FUP / FP( I ) ) ICNT = ICNT + 1 ! if ( vel( i+1 ) .le. 0.0 ) then ! write( *,2013 ) '@#@ icnt,i,fup,fp,vel changed sign: ', ! & icnt, i, fdn, fm( i ), vel( i+1 ) ! end if IF ( ICNT .GT. MAXCNT ) THEN XMSG = ' max iterations exceeded in vppm at 77' CALL M3EXIT( 'VPPM', 0, 0, XMSG, XSTAT1 ) END IF GO TO 77 END IF END IF END DO DO 501 S = 1, N_SPC_ADV DO I = 1, NI CN( I ) = CON( I,S ) END DO CALL PPM ( NI, DT, DS, CN, CR, CL, DC, C6 ) FM( 1:NI+1 ) = 0.0 FP( 0:NI ) = 0.0 DO I = 1, NI IF ( VEL( I ) .LT. 0.0 ) THEN Y = -VEL( I ) * DT X = Y / DS( I ) FM( I ) = Y * ( CL( I ) + 0.5 * X & * ( DC( I ) + C6( I ) * ( 1.0 - TWO3RDS * X ) ) ) END IF IF ( VEL( I+1 ) .GT. 0.0 ) THEN Y = VEL( I+1 ) * DT X = Y / DS( I ) FP( I ) = Y * ( CR( I ) - 0.5 * X & * ( DC( I ) - C6( I ) * ( 1.0 - TWO3RDS * X ) ) ) END IF END DO c compute fluxes for top face I = NI+1 IF ( VEL( I ) .LT. 0.0 ) THEN Y = -VEL( I ) * DT FM( I ) = Y * CON( I-1,S ) END IF DO I = 1, NI CON( I,S ) = CON( I,S ) & + ( FP( I-1 ) - FP( I ) + FM( I+1 ) - FM( I ) ) / DS( I ) END DO 501 CONTINUE #ifdef isam Ckrt Back up the SA_CON..... DO 602 S = 1, N_SPCTAG DO I = 1, NI CN( I ) = SA_CON( I,S ) END DO CALL PPM ( NI, DT, DS, CN, CR, CL, DC, C6 ) FM( 1:NI+1 ) = 0.0 FP( 0:NI ) = 0.0 DO I = 1, NI IF ( VEL( I ) .LT. 0.0 ) THEN Y = -VEL( I ) * DT X = Y / DS( I ) FM( I ) = Y * ( CL( I ) + 0.5 * X & * ( DC( I ) + C6( I ) * ( 1.0 - TWO3RDS * X ) ) ) END IF ! vel < 0 ? IF ( VEL( I+1 ) .GT. 0.0 ) THEN Y = VEL( I+1 ) * DT X = Y / DS( I ) FP( I ) = Y * ( CR( I ) - 0.5 * X & * ( DC( I ) - C6( I ) * ( 1.0 - TWO3RDS * X ) ) ) END IF ! vel > 0 ? END DO ! loop I c compute fluxes for top face I = NI+1 IF ( VEL( I ) .LT. 0.0 ) THEN Y = -VEL( I ) * DT FM( I ) = Y * SA_CON( I-1,S ) END IF Ckrt... Advect the apportioning tags ...... DO I = 1, NI SA_CON( I,S ) = SA_CON( I,S ) & + ( FP( I-1 ) - FP( I ) + FM( I+1 ) - FM( I ) ) / DS( I ) END DO 602 CONTINUE #endif #ifdef sens DO NP = 1, NPMAX DO 701 S = 1, N_SPC_ADV DO I = 1, NI CN( I ) = SEN( I,S,NP ) END DO CALL PPM ( NI, DT, DS, CN, CR, CL, DC, C6 ) FM( 1:NI+1 ) = 0.0 FP( 0:NI ) = 0.0 DO I = 1, NI IF ( VEL( I ) .LT. 0.0 ) THEN Y = -VEL( I ) * DT X = Y / DS( I ) FM( I ) = Y * ( CL( I ) + 0.5 * X & * ( DC( I ) + C6( I ) * ( 1.0 - TWO3RDS * X ) ) ) END IF IF ( VEL( I+1 ) .GT. 0.0 ) THEN Y = VEL( I+1 ) * DT X = Y / DS( I ) FP( I ) = Y * ( CR( I ) - 0.5 * X & * ( DC( I ) - C6( I ) * ( 1.0 - TWO3RDS * X ) ) ) END IF END DO c compute fluxes for top face I = NI+1 IF ( VEL( I ) .LT. 0.0 ) THEN Y = -VEL( I ) * DT FM( I ) = Y * SEN ( I-1,S,NP ) END IF DO I = 1, NI SEN( I,S,NP ) = SEN( I,S,NP ) & + ( FP( I-1 ) - FP( I ) + FM( I+1 ) - FM( I ) ) / DS( I ) END DO 701 CONTINUE END DO #endif RETURN END SUBROUTINE VPPM C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE PPM ( NI, DT, DS, CN, CR, CL, DC, C6 ) C get ppm coefficients CR, CL, DC, and C6 USE UTILIO_DEFN IMPLICIT NONE C arguments: INTEGER, INTENT( IN ) :: NI ! number of zones (cells) REAL, INTENT( IN ) :: DT ! time step REAL, INTENT( IN ) :: DS( NI ) ! distance between zone (cell) boundaries REAL, INTENT( IN ) :: CN( NI ) ! concentrations in a vertical column REAL, INTENT( INOUT ) :: CR( NI ) ! zone r.h. intercept REAL, INTENT( INOUT ) :: CL( NI ) ! zone l.h. intercept REAL, INTENT( INOUT ) :: DC( NI ) ! CR - CL REAL, INTENT( INOUT ) :: C6( NI ) ! coefficient of second-order term C local variables: LOGICAL, SAVE :: FIRSTIME = .TRUE. INTEGER ALLOCSTAT CHARACTER( 120 ) :: XMSG = ' ' REAL A, B, C ! temp lattice vars. REAL, ALLOCATABLE, SAVE :: ALPHA ( : ) ! temp lattice var. REAL, SAVE :: BETA REAL, ALLOCATABLE, SAVE :: CHI ( : ) ! lattice var. for dc REAL, ALLOCATABLE, SAVE :: PSI ( : ) ! lattice var. for dc REAL, ALLOCATABLE, SAVE :: MU ( : ) ! lattice var. for cm REAL, ALLOCATABLE, SAVE :: NU ( : ) ! lattice var. for cm REAL, ALLOCATABLE, SAVE :: LAMBDA( : ) ! lattice var. for cm REAL, ALLOCATABLE, SAVE :: CM ( : ) ! zone r.h. trial intercept INTEGER I C---------------------------------------------------------------------- IF ( FIRSTIME ) THEN FIRSTIME = .FALSE. ALLOCATE ( ALPHA ( 2:NI-1 ), & CHI ( 2:NI-1 ), & PSI ( 2:NI-1 ), & MU ( 2:NI-2 ), & NU ( 2:NI-2 ), & LAMBDA( 2:NI-2 ), & CM ( 1:NI+1 ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating ' & // 'ALPHA, MU, NU, LAMBDA, CHI, PSI, OR CM' CALL M3EXIT( 'VPPM', 0, 0, XMSG, XSTAT1 ) END IF DO I = 2, NI-1 ALPHA( I ) = DS( I ) + DS( I+1 ) BETA = DS( I-1 ) + DS( I ) C = DS( I ) / ( BETA + DS( I+1 ) ) CHI( I ) = C * ( DS( I-1 ) + BETA ) / ALPHA( I ) PSI( I ) = C * ( ALPHA( I ) + DS( I+1 ) ) / BETA END DO DO I = 2, NI-2 A = DS( I ) / ALPHA( I ) B = 2.0 * DS( I+1 ) / ALPHA( I ) C = 1.0 / ( DS( I-1 ) + ALPHA( I ) + DS( I+2 ) ) MU( I ) = C * DS( I ) & * ( DS( I-1 ) + DS( I ) ) / ( DS( I ) + ALPHA( I ) ) NU( I ) = C * DS( I+1 ) & * ( DS( I+1 ) + DS( I+2 ) ) / ( DS( I+1 ) + ALPHA( I ) ) LAMBDA( I ) = A + MU( I ) * B - 2.0 * NU( I ) * A END DO END IF ! FIRSTIME C zeroth order polynomial at the boundary cells C first order polynomial at the next cells, no monotonicity constraint needed CM( 1 ) = CN( 1 ) CM( 2 ) = ( DS( 1 ) * CN( 2 ) + DS( 2 ) * CN( 1 ) ) & / ( DS( 1 ) + DS( 2 ) ) CM( NI+1 ) = CN( NI ) CM( NI ) = ( DS( NI-1 ) * CN( NI ) + DS( NI ) * CN( NI-1 ) ) & / ( DS( NI-1 ) + DS( NI ) ) C second order polynomial inside the domain DO 101 I = 2, NI-1 C compute average slope in zone i DC( I ) = CHI( I ) * ( CN( I+1 ) - CN( I ) ) & + PSI( I ) * ( CN( I ) - CN( I-1 ) ) ! equation (1.7) C guarantee that cm lies between con(i) and con(i+1) - monotonicity constraint IF ( ( CN( I+1 ) - CN( I ) ) * ( CN( I ) - CN( I-1 ) ) .GT. 0.0 ) THEN DC( I ) = SIGN( 1.0, DC( I ) ) * MIN( & ABS( DC( I ) ), & 2.0 * ABS( CN( I+1 ) - CN( I ) ), & 2.0 * ABS( CN( I ) - CN( I-1 ) ) ) ELSE DC( I ) = 0.0 END IF ! equation (1.8) 101 CONTINUE DO I = 2, NI-2 ! equation (1.6) CM( I+1 ) = CN( I ) + LAMBDA( I ) * ( CN( I+1 ) - CN( I ) ) & - MU( I ) * DC( I+1 ) + NU( I ) * DC( I ) END DO C generate piecewise parabolic distributions DO 301 I = 1, NI CR( I ) = CM( I+1 ) ! equation (1.15) CL( I ) = CM( I ) C monotonicity IF ( ( CR( I ) - CN( I ) ) * ( CN( I ) - CL( I ) ) .GT. 0.0 ) THEN DC( I ) = CR( I ) - CL( I ) ! temporary computation of dc and c6 C6( I ) = 6.0 * ( CN( I ) - 0.5 * ( CL( I ) + CR( I ) ) ) C overshoot cases IF ( DC( I ) * C6( I ) .GT. DC( I ) * DC( I ) ) THEN CL( I ) = 3.0 * CN( I ) - 2.0 * CR( I ) ELSE IF ( -DC( I ) * DC( I ) .GT. DC( I ) * C6( I ) ) THEN CR( I ) = 3.0 * CN( I ) - 2.0 * CL( I ) END IF ELSE ! local extremum: interpolation function is set to be a constant CL( I ) = CN( I ) CR( I ) = CN( I ) END IF DC( I ) = CR( I ) - CL( I ) ! EQUATION (1.5) C6( I ) = 6.0 * ( CN( I ) - 0.5 * ( CL( I ) + CR( I ) ) ) 301 CONTINUE RETURN END SUBROUTINE PPM ================================================ FILE: CCTM/src/vadv/local_cons/zadvyppm.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE ZADV ( CGRID, JDATE, JTIME, TSTEP ) C----------------------------------------------------------------------- C Function: C Advection in the vertical, x3-direction: C The process time step is set equal to TSTEP C Preconditions: C Dates and times represented YYYYDDD:HHMMSS. C No "skipped" dates and times. Process time step divides TSTEP exactly C CGRID in transport units: SQRT{DET[metric tensor]}*concentration (Mass/Vol) C Subroutines and functions called: C TIME2SEC C Revision history: C 02/19/93 by M. Talat Odman at NCSC C 05/17/93 by Carlie J. Coats at NCSC: now uses INTERP3() C 06/14/94 by Dongming Hwang at NCSC: C include statement and subroutine name template C 10/15/95 by M. Talat Odman at NCSC: generalized coordinates C Sep 97 Jeff C Aug 98 Jeff better Courant condition tstep limit C David Wong, Sep. 1998 C -- parallelized the code C 15 Dec 00 J.Young: move CGRID_MAP into f90 module C GLOBAL_RSUM -> Dave Wong's f90 stenex GLOBAL_SUM C GLOBAL_ISUM -> Dave Wong's f90 stenex GLOBAL_SUM C 28 Jul 01 J.Young: allocatable arrays ... C Since F90 does not preserve dummy argument array C indices, the 3rd dimension of WHAT has been changed C from 0:NLAYS to 1:NLAYS+1 for the sake of vcontvel C 03 Sep 01 David Wong C -- inserted F90 DEALLOCATE statement for NX3 C C 1/03 - JP modified for Yamo mass conservation C Vertical velocity is diagnosed from mass continuity C vertical advection is upstream (no call to adv scheme) C 31 Jan 05 J.Young: dyn alloc - establish both horizontal & vertical C domain specifications in one module C 27 Apr 07 J.Young: Talat's First-order upstream (donor cell) algorithm C 30 Apr 09 J.Pleim, J.Young: Replace donor cell with ppm, adjust velocity C accordingly C 21 Aug 09 J.Young: Don't bypass VPPMY if ITER = 0 C 18 Nov 09 J.Young: Combine VPPMY and VPPM functionality C 21 Jun 10 J.Young: convert for Namelist redesign C 16 Feb 11 S.Roselle: replaced I/O API include files with UTILIO_DEFN C 11 May 11 D.Wong: incorporated twoway model implementation C 02 Jan 14 J.Bash: Changed the subtime step when the CFL > 1 to be C the time needed for a CFL = 0.9. This provides a C longer subtime step for CFL < 10 and a shorter time C step for CFL > 10 than the earlier code. C 08 July 19 F. Sidi: Updated Code with CIO changes C 09 Sept 19 F. Sidi: Replaced L_CONC_WVEL & L_ACONC_WVEL (depreciated) with W_VEL C 11 Dec 19 S.L.Napelenok: ddm-3d implementation for version 5.3.1 C----------------------------------------------------------------------- USE GRID_CONF ! horizontal & vertical domain specifications USE CGRID_SPCS ! CGRID mechanism species USE WVEL_DEFN ! derived vertical velocity component USE CENTRALIZED_IO_MODULE, only : interpolate_var #ifdef parallel USE SE_MODULES ! stenex (using SE_GLOBAL_SUM_MODULE) #else USE NOOP_MODULES ! stenex (using NOOP_GLOBAL_SUM_MODULE) #endif USE UTILIO_DEFN #ifdef isam USE SA_DEFN ! 20120821 #endif #ifdef snl_timing USE TIMING #endif #ifdef sens USE DDM3D_DEFN, ONLY: SENGRID, NPMAX, NP #endif IMPLICIT NONE C Includes: INCLUDE SUBST_FILES_ID ! file name parameters C Arguments: REAL, POINTER :: CGRID( :,:,:,: ) INTEGER JDATE ! current model date, coded YYYYDDD INTEGER JTIME ! current model time, coded HHMMSS INTEGER TSTEP( 3 ) ! time step vector (HHMMSS) ! TSTEP(1) = local output step ! TSTEP(2) = sciproc sync. step (chem) ! TSTEP(3) = twoway model time step w.r.t. wrf time ! step and wrf/cmaq call frequency C Parameters: INTEGER, PARAMETER :: MAXITER = 30 ! error exit limit C Advected species dimension INTEGER, SAVE :: N_SPC_ADV C File Variables: REAL RHOJM( NCOLS,NROWS,NLAYS ) ! RhoJ (Kg/m**3) from Met file C Local variables: CHARACTER( 16 ) :: PNAME = 'ZADVYPPM' LOGICAL, SAVE :: FIRSTIME = .TRUE. INTEGER MTIME, MDATE ! REAL CON1( NLAYS,N_SPC_ADV ) ! concentrations subset REAL, ALLOCATABLE, SAVE :: CON1( :,: ) ! concentrations subset REAL VEL ( NLAYS+1 ) ! Velocities in a N-S column REAL FLX ( NLAYS+1 ) ! upstream donor cell computed conc. flux REAL, ALLOCATABLE, SAVE :: DS ( : ) ! dx3 (dimensionless in sigma coord.) REAL DTSEC ! sync time step in seconds REAL DELT ! adjusted time step REAL FLUX ! intermediate flux ! INTEGER, SAVE :: ADV_MAP( N_SPC_ADV ) ! global adv map to CGRID INTEGER, ALLOCATABLE, SAVE :: ADV_MAP( : ) ! global adv map to CGRID INTEGER COL, ROW, LVL, SPC, VAR ! loop counters INTEGER A2C INTEGER ITER CHARACTER( 96 ) :: XMSG = ' ' REAL RJT( NLAYS ) ! local adjusted RHOJ REAL RJM( NLAYS ) ! local RHOJM at tstep + 1 REAL DSTM ! subexpression REAL CC ! local Courant No. REAL DTNEW ! sub timestep REAL DSDT ! DS/DT INTEGER ALLOCSTAT REAL, ALLOCATABLE :: DBUFF ( :,:,: ) ! input for W_VEL REAL, ALLOCATABLE, SAVE :: JACF( :,:,: ) ! full-layer Jacobian REAL, ALLOCATABLE, SAVE :: MSFX2( :,: ) ! map scale factor ** 2 #ifdef isam CHARACTER( 16 ), ALLOCATABLE, SAVE :: NAME_ADV( : ) REAL :: SA_CON( NLAYS,N_SPCTAG ) #endif #ifdef sens REAL, ALLOCATABLE, SAVE :: SEN1( :,:,: ) ! ( NLAYS,N_SPC_ADV,NPMAX ) sens subset #endif INTERFACE #ifdef isam SUBROUTINE VPPM ( NI, DT, DS, FLX, VEL, CON, SA_CON ) USE SA_DEFN #elif sens SUBROUTINE VPPM ( NI, DT, DS, FLX, VEL, CON, SEN1 ) #else SUBROUTINE VPPM ( NI, DT, DS, FLX, VEL, CON ) #endif INTEGER, INTENT( IN ) :: NI REAL, INTENT( IN ) :: DT, DS( NI ) REAL, INTENT( IN ) :: FLX( NI+1 ) ! REAL, INTENT( IN ) :: VEL( NI+1 ) REAL, INTENT( INOUT ) :: VEL( NI+1 ) REAL, INTENT( INOUT ) :: CON( :,: ) #ifdef isam REAL, INTENT( INOUT ) :: SA_CON( NI,N_SPCTAG ) #elif sens REAL, INTENT( INOUT ) :: SEN1( :,:,: ) #endif END SUBROUTINE VPPM END INTERFACE C----------------------------------------------------------------------- IF ( FIRSTIME ) THEN FIRSTIME = .FALSE. ALLOCATE ( DS( NLAYS ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating DS' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF N_SPC_ADV = N_GC_TRNS + N_AE_TRNS + N_NR_TRNS + N_TR_ADV + 1 ! add 1 for advecting RHOJ ALLOCATE ( CON1( NLAYS,N_SPC_ADV ), & ADV_MAP( N_SPC_ADV ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating CON1 or ADV_MAP' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF #ifdef isam ALLOCATE ( NAME_ADV( N_SPC_ADV ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating NAME_ADV' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF #endif #ifdef sens ALLOCATE ( SEN1( NLAYS,N_SPC_ADV,NPMAX ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating SEN1' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF #endif C Get default file header attibutes from MET_CRO_3D (assumes file already open) C Get dx3 from GRID_CONF module WRITE( LOGDEV,* ) ' ' WRITE( LOGDEV,* ) ' layer S (X3FACE_GD) Delta S' DO LVL = 1, NLAYS DS ( LVL ) = ABS ( X3FACE_GD( LVL ) - X3FACE_GD( LVL-1 ) ) WRITE( LOGDEV,'(5X, I3, 3F14.7)' ) LVL, X3FACE_GD( LVL ), & DS( LVL ) END DO WRITE( LOGDEV,* ) ' ' C Create global map to CGRID SPC = 0 DO VAR = 1, N_GC_TRNS SPC = SPC + 1 ADV_MAP( SPC ) = GC_STRT - 1 + GC_TRNS_MAP( VAR ) #ifdef isam NAME_ADV( SPC ) = GC_TRNS( VAR ) ! KRT #endif END DO DO VAR = 1, N_AE_TRNS SPC = SPC + 1 ADV_MAP( SPC ) = AE_STRT - 1 + AE_TRNS_MAP( VAR ) #ifdef isam NAME_ADV( SPC ) = AE_TRNS( VAR ) ! KRT #endif END DO DO VAR = 1, N_NR_TRNS SPC = SPC + 1 ADV_MAP( SPC ) = NR_STRT - 1 + NR_TRNS_MAP( VAR ) #ifdef isam NAME_ADV( SPC ) = NR_TRNS( VAR ) ! KRT #endif END DO DO VAR = 1, N_TR_ADV SPC = SPC + 1 ADV_MAP( SPC ) = TR_STRT - 1 + TR_ADV_MAP( VAR ) #ifdef isam NAME_ADV( SPC ) = TR_ADV( VAR ) ! KRT #endif END DO ADV_MAP( N_SPC_ADV ) = RHOJ_LOC END IF ! if firstime C Time-stepped gridded computation for Z-direction advection. DTSEC = FLOAT( TIME2SEC( TSTEP( 2 ) ) ) ! process time step (seconds) C vertical velocities are at face centers, positive upward. C No boundary conditions are needed because VEL(1) = VEL(NLAYS+1) = 0 C Get rho*J at end of sync step MDATE = JDATE MTIME = JTIME #ifdef snl_timing call start_timing( zadv_int, read_int, 1 ) #endif CALL NEXTIME( MDATE, MTIME, TSTEP( 2 ) ) call interpolate_var ('DENSA_J', MDATE, MTIME, RHOJM) #ifdef snl_timing call stop_timing( zadv_int, read_int ) #endif DO 333 ROW = 1, NROWS DO 222 COL = 1, NCOLS DO SPC = 1, N_SPC_ADV A2C = ADV_MAP( SPC ) DO LVL = 1, NLAYS CON1( LVL,SPC ) = CGRID( COL,ROW,LVL,A2C ) #ifdef sens DO NP = 1, NPMAX SEN1 ( LVL,SPC,NP ) = SENGRID( COL,ROW,LVL,NP,A2C ) END DO #endif END DO END DO DO LVL = 1, NLAYS RJM( LVL ) = RHOJM( COL,ROW,LVL ) END DO ITER = 0 DELT = DTSEC VEL( 1 ) = 0.0 ! impermeable boundary condition at the surface FLX( 1 ) = 0.0 #ifdef isam Ckrt...import isam array into sa_con DO SPC = 1, N_SPCTAG DO LVL = 1, NLAYS SA_CON( LVL,SPC ) = ISAM( COL,ROW,LVL,S_SPCTAG( SPC ),T_SPCTAG( SPC ) ) END DO END DO #endif 111 CONTINUE FLUX = 0.0 DO LVL = 1, NLAYS RJT( LVL ) = CON1( LVL,N_SPC_ADV ) FLUX = FLUX - ( RJM( LVL ) - RJT( LVL ) ) * DS( LVL ) / DELT FLX( LVL+1 ) = FLUX END DO DO LVL = 2, NLAYS IF ( FLX( LVL ) .GE. 0.0 ) THEN VEL( LVL ) = FLX( LVL ) / RJT( LVL-1 ) ELSE VEL( LVL ) = FLX( LVL ) / RJT( LVL ) END If END DO VEL( NLAYS+1 ) = FLX( NLAYS+1 ) / RJT( NLAYS ) C Find Maximum Courant Number CC = 0.0 DO LVL = 2, NLAYS IF ( VEL( LVL ) .GT. 0.0 ) THEN CC = MAX ( CC, ( VEL( LVL ) * DELT / DS( LVL-1 ) ) ) ELSE CC = MAX ( CC, ( -VEL( LVL ) * DELT / DS( LVL ) ) ) END IF END DO LVL = NLAYS+1 IF ( VEL( LVL ) .GT. 0.0 ) THEN CC = MAX ( CC, ( VEL( LVL ) * DELT / DS( LVL-1 ) ) ) ELSE CC = MAX ( CC, ( -VEL( LVL ) * DELT / DS( LVL-1 ) ) ) END IF IF ( CC .GT. 1.0 ) THEN ! courant number is larger than unity C Calculate a sub-time step that satisfies the Courant stability limit. C Perform vertical advection with the computed velocity and sub-time step. C Then calculate the difference between the original and sub-time steps. C The difference is the new sub-time step. Recompute vertical velocities C that would bring the air density field back to being uniform. Note that C if Courant number with the new velocity and sub-time step is larger than C unity again, then the last sub-time step would be split into further C sub-steps. DTNEW = MAX( 0.9 * DELT / CC ,1.0 ) #ifdef isam CALL VPPM ( NLAYS, DTNEW, DS, FLX, VEL, CON1, SA_CON ) #elif sens CALL VPPM ( NLAYS, DTNEW, DS, FLX, VEL, CON1, SEN1 ) #else CALL VPPM ( NLAYS, DTNEW, DS, FLX, VEL, CON1 ) #endif DELT = DELT - DTNEW ITER = ITER + 1 IF ( ITER .GT. MAXITER ) THEN ! if ( jtime .eq. 002500 .and. col .eq. 1 .and. row .eq. 53 ) then WRITE( LOGDEV,2005 ) COL, ROW, CC, DELT, ITER, JTIME 2005 FORMAT( 'zadv col row CC', 8X, 'dt iter jtime' & / 'zzzz', 2I4, 1PE12.3, 0PF10.5, 1X, I4, I10.6 & / 10X, 'MetRhoj', 3X, 'TrRhoj', 5X, 'Diff', & 4X, 'adv_rhoj', 3X, 'vel(l)', 6X, 'vel(l+1)' ) DO LVL = 1, NLAYS WRITE( LOGDEV,2009 ) LVL, RJM( LVL ), RJT( LVL ), & RJM( LVL ) - RJT( LVL ), & CON1( LVL,N_SPC_ADV ), & VEL( LVL ), VEL( LVL+1 ) END DO 2009 FORMAT( 'zzz2', I3, 4F10.2, 2(1PE12.3) ) WRITE( XMSG,2013 ) JTIME, TSTEP( 2 ), MAXITER 2013 FORMAT( 'vert adv soln failed at', I7.6, ' with adv step:', & I7.6, ' HHMMSS', 2X, 'Max Iterations =', I3 ) ! if ( iter .gt. maxiter ) then CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT3 ) ! end if END IF GO TO 111 END IF #ifdef isam CALL VPPM ( NLAYS, DELT, DS, FLX, VEL, CON1, SA_CON ) #elif sens CALL VPPM ( NLAYS, DELT, DS, FLX, VEL, CON1, SEN1 ) #else CALL VPPM ( NLAYS, DELT, DS, FLX, VEL, CON1 ) #endif DO SPC = 1, N_SPC_ADV A2C = ADV_MAP( SPC ) DO LVL = 1, NLAYS CGRID( COL,ROW,LVL,A2C ) = CON1( LVL,SPC ) #ifdef sens DO NP = 1, NPMAX SENGRID( COL,ROW,LVL,NP,A2C ) = SEN1 ( LVL,SPC,NP ) END DO #endif END DO END DO #ifdef isam Ckrt...update ISAM with SA_CON....20120821 DO SPC = 1, N_SPCTAG IF( TRANSPORT_SPC( SPC ) )THEN DO LVL = 1, NLAYS ISAM( COL,ROW,LVL,S_SPCTAG( SPC ),T_SPCTAG( SPC ) ) = SA_CON( LVL,SPC ) END DO END IF END DO #endif IF ( W_VEL ) THEN ! If the user wants vertical velocity written to file, fill in global scope array (WY) DO LVL = 1, NLAYS WY( LVL,COL,ROW ) = VEL( LVL+1 ) END DO END IF 222 CONTINUE ! COL 333 CONTINUE ! ROW IF ( W_VEL ) CALL GET_WVEL( JDATE,JTIME ) RETURN END SUBROUTINE ZADV ================================================ FILE: CCTM/src/vadv/wrf_cons/zadvppmwrf.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE ZADV ( CGRID, JDATE, JTIME, TSTEP ) C----------------------------------------------------------------------- C Function: C Advection in the vertical, x3-direction: C The process time step is set equal to TSTEP C Preconditions: C Dates and times represented YYYYDDD:HHMMSS. C No "skipped" dates and times. Process time step divides TSTEP exactly C CGRID in transport units: SQRT{DET[metric tensor]}*concentration (Mass/Vol) C Subroutines and functions called: C TIME2SEC C Revision history: C 02/19/93 by M. Talat Odman at NCSC C 05/17/93 by Carlie J. Coats at NCSC: now uses INTERP3() C 06/14/94 by Dongming Hwang at NCSC: C include statement and subroutine name template C 10/15/95 by M. Talat Odman at NCSC: generalized coordinates C Sep 97 Jeff C Aug 98 Jeff better Courant condition tstep limit C David Wong, Sep. 1998 C -- parallelized the code C 15 Dec 00 J.Young: move CGRID_MAP into f90 module C GLOBAL_RSUM -> Dave Wong's f90 stenex GLOBAL_SUM C GLOBAL_ISUM -> Dave Wong's f90 stenex GLOBAL_SUM C 28 Jul 01 J.Young: allocatable arrays ... C Since F90 does not preserve dummy argument array C indices, the 3rd dimension of WHAT has been changed C from 0:NLAYS to 1:NLAYS+1 for the sake of vcontvel C 03 Sep 01 David Wong C -- inserted F90 DEALLOCATE statement for NX3 C C 1/03 - JP modified for Yamo mass conservation C Vertical velocity is diagnosed from mass continuity C vertical advection is upstream (no call to adv scheme) C 31 Jan 05 J.Young: dyn alloc - establish both horizontal & vertical C domain specifications in one module C 27 Apr 07 J.Young: Talat's First-order upstream (donor cell) algorithm C 30 Apr 09 J.Pleim, J.Young: Replace donor cell with ppm, adjust velocity C accordingly C 21 Aug 09 J.Young: Don't bypass VPPMY if ITER = 0 C 18 Nov 09 J.Young: Combine VPPMY and VPPM functionality C 21 Jun 10 J.Young: convert for Namelist redesign C 16 Feb 11 S.Roselle: replaced I/O API include files with UTILIO_DEFN C 11 May 11 D.Wong: incorporated twoway model implementation C 31 Jul 12 J.Bash: Changed the zadv dt for cases where cc > 1 to be C more stable for conditions when cc > 10 C 01 Feb 19 D.Wong: Implemented centralized I/O approach, removed all MY_N C clauses C 09 Sep 19 F. Sidi: Replaced L_CONC_WVEL & L_ACONC_WVEL (depreciated) with W_VEL C 11 Dec 19 S.L.Napelenok: ddm-3d implementation for version 5.3.1 C----------------------------------------------------------------------- USE GRID_CONF ! horizontal & vertical domain specifications USE CGRID_SPCS ! CGRID species number and offsets USE WVEL_DEFN ! derived vertical velocity component USE UTILIO_DEFN #ifdef isam USE SA_DEFN ! 20120821 #endif #ifdef parallel USE SE_MODULES ! stenex (using SE_GLOBAL_SUM_MODULE) #else USE NOOP_MODULES ! stenex (using NOOP_GLOBAL_SUM_MODULE) #endif #ifdef snl_timing USE TIMING #endif USE CENTRALIZED_IO_MODULE, only : interpolate_var #ifdef sens USE DDM3D_DEFN, ONLY: SENGRID, NPMAX, NP #endif IMPLICIT NONE C Includes: INCLUDE SUBST_FILES_ID ! file name parameters C Arguments: REAL, POINTER :: CGRID( :,:,:,: ) INTEGER JDATE ! current model date, coded YYYYDDD INTEGER JTIME ! current model time, coded HHMMSS INTEGER TSTEP( 3 ) ! time step vector (HHMMSS) ! TSTEP(1) = local output step ! TSTEP(2) = sciproc sync. step (chem) ! TSTEP(3) = twoway model time step w.r.t. wrf time ! step and wrf/cmaq call frequency C Parameters: INTEGER, PARAMETER :: MAXITER = 30 ! error exit limit C Advected species dimension INTEGER, SAVE :: N_SPC_ADV C File Variables: REAL RHOJM1( NCOLS,NROWS,NLAYS ) ! RhoJ from Met file at start of tstep REAL RHOJM2( NCOLS,NROWS,NLAYS ) ! RhoJ from Met file at end of tstep C Local variables: CHARACTER( 16 ) :: PNAME = 'ZADVYPPM' LOGICAL, SAVE :: FIRSTIME = .TRUE. ! REAL UHATJD( NCOLS+1,NROWS+1,NLAYS ) ! x1-component CX-velocity ! REAL VHATJD( NCOLS+1,NROWS+1,NLAYS ) ! x2-component CX-velocity INTEGER MTIME, MDATE ! REAL CON1( NLAYS,N_SPC_ADV ) ! concentrations subset REAL, ALLOCATABLE, SAVE :: CON1( :,: ) ! concentrations subset REAL VEL ( NLAYS+1 ) ! Velocities in a N-S column REAL FLX ( NLAYS+1 ) ! upstream donor cell computed conc. flux REAL, ALLOCATABLE, SAVE :: DS ( : ) ! dx3 (dimensionless in sigma coord.) REAL DTSEC ! sync time step in seconds REAL DELT ! adjusted time step REAL FLUX ! intermediate flux ! INTEGER, SAVE :: ADV_MAP( N_SPC_ADV ) ! global adv map to CGRID INTEGER, ALLOCATABLE, SAVE :: ADV_MAP( : ) ! global adv map to CGRID INTEGER COL, ROW, LVL, SPC, VAR ! loop counters INTEGER A2C INTEGER ITER CHARACTER( 96 ) :: XMSG = ' ' REAL RJ1( NLAYS ) ! local adjusted RHOJ REAL RJ2( NLAYS ) ! local RHOJM at tstep + 1 REAL RJT( NLAYS ) ! local adjusted RHOJ REAL DRJ, DUDX, DVDY REAL DIVV( NLAYS ) REAL CC ! local Courant No. REAL DTNEW ! sub timestep REAL DSDT ! DS/DT REAL, ALLOCATABLE, SAVE :: FBLN( : ) ! blending function for upper layers INTEGER ALLOCSTAT #ifdef isam CHARACTER( 16 ), ALLOCATABLE, SAVE :: NAME_ADV( : ) REAL :: SA_CON( NLAYS,N_SPCTAG ) #endif #ifdef sens REAL, ALLOCATABLE, SAVE :: SEN1( :,:,: ) ! ( NLAYS,N_SPC_ADV,NPMAX ) sens subset #endif INTERFACE #ifdef isam SUBROUTINE VPPM ( NI, DT, DS, FLX, VEL, CON, SA_CON ) USE SA_DEFN #elif sens SUBROUTINE VPPM ( NI, DT, DS, FLX, VEL, CON, SEN1 ) #else SUBROUTINE VPPM ( NI, DT, DS, FLX, VEL, CON ) #endif INTEGER, INTENT( IN ) :: NI REAL, INTENT( IN ) :: DT, DS( NI ) REAL, INTENT( IN ) :: FLX( NI+1 ) ! REAL, INTENT( IN ) :: VEL( NI+1 ) REAL, INTENT( INOUT ) :: VEL( NI+1 ) REAL, INTENT( INOUT ) :: CON( :,: ) #ifdef isam REAL, INTENT( INOUT ) :: SA_CON( NI,N_SPCTAG ) #elif sens REAL, INTENT( INOUT ) :: SEN1( :,:,: ) #endif END SUBROUTINE VPPM END INTERFACE C----------------------------------------------------------------------- IF ( FIRSTIME ) THEN FIRSTIME = .FALSE. ALLOCATE ( DS( NLAYS ),FBLN( NLAYS ),STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating DS or FBLN' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF N_SPC_ADV = N_GC_TRNS + N_AE_TRNS + N_NR_TRNS + N_TR_ADV + 1 ! add 1 for advecting RHOJ ALLOCATE ( CON1( NLAYS,N_SPC_ADV ), & ADV_MAP( N_SPC_ADV ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating CON1 or ADV_MAP' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF #ifdef isam ALLOCATE ( NAME_ADV( N_SPC_ADV ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating NAME_ADV' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF #endif #ifdef sens ALLOCATE ( SEN1( NLAYS,N_SPC_ADV,NPMAX ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating SEN1' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF #endif C Get default file header attibutes from MET_CRO_3D (assumes file already open) C Get dx3 from the GRID_CONF(VGRD) F90 module ! WRITE( LOGDEV,* ) ' ' ! WRITE( LOGDEV,* ) ' layer S (X3FACE_GD) Delta S' DO LVL = 1, NLAYS DS ( LVL ) = ABS ( X3FACE_GD( LVL ) - X3FACE_GD( LVL-1 ) ) ! FBLN( LVL ) = 1.0 - 1.0 / ( 1.0 + EXP( 15.0 * ( X3FACE_GD( LVL ) - 0.5 ) ) ) FBLN( LVL ) = 1.0 ! WRITE( LOGDEV,'(5X, I3, 3F14.7)' ) LVL, X3FACE_GD( LVL ), ! & DS( LVL ), FBLN(LVL) END DO ! WRITE( LOGDEV,* ) ' ' C Create global map to CGRID SPC = 0 DO VAR = 1, N_GC_TRNS SPC = SPC + 1 ADV_MAP( SPC ) = GC_STRT - 1 + GC_TRNS_MAP( VAR ) #ifdef isam NAME_ADV( SPC ) = GC_TRNS( VAR ) ! KRT #endif END DO DO VAR = 1, N_AE_TRNS SPC = SPC + 1 ADV_MAP( SPC ) = AE_STRT - 1 + AE_TRNS_MAP( VAR ) #ifdef isam NAME_ADV( SPC ) = AE_TRNS( VAR ) ! KRT #endif END DO DO VAR = 1, N_NR_TRNS SPC = SPC + 1 ADV_MAP( SPC ) = NR_STRT - 1 + NR_TRNS_MAP( VAR ) #ifdef isam NAME_ADV( SPC ) = NR_TRNS( VAR ) ! KRT #endif END DO DO VAR = 1, N_TR_ADV SPC = SPC + 1 ADV_MAP( SPC ) = TR_STRT - 1 + TR_ADV_MAP( VAR ) #ifdef isam NAME_ADV( SPC ) = TR_ADV( VAR ) ! KRT #endif END DO ADV_MAP( N_SPC_ADV ) = RHOJ_LOC END IF ! if firstime C Time-stepped gridded computation for Z-direction advection. DTSEC = FLOAT( TIME2SEC( TSTEP( 2 ) ) ) ! process time step (seconds) C vertical velocities are at face centers, positive upward. C No boundary conditions are needed because VEL(1) = VEL(NLAYS+1) = 0 C Get rho*J at start of sync step MDATE = JDATE MTIME = JTIME #ifdef snl_timing call start_timing( zadv_int, read_int, 1 ) #endif call interpolate_var ('DENSA_J', mdate, mtime, RHOJM1) #ifdef snl_timing call stop_timing( zadv_int, read_int ) #endif C Get rho*J at end of sync step CALL NEXTIME( MDATE, MTIME, TSTEP( 2 ) ) #ifdef snl_timing call start_timing( zadv_int, read_int, 1 ) #endif call interpolate_var ('DENSA_J', mdate, mtime, RHOJM2) #ifdef snl_timing call stop_timing( zadv_int, read_int ) #endif DO 333 ROW = 1, NROWS DO 222 COL = 1, NCOLS DO SPC = 1, N_SPC_ADV A2C = ADV_MAP( SPC ) DO LVL = 1, NLAYS CON1( LVL,SPC ) = CGRID( COL,ROW,LVL,A2C ) #ifdef sens DO NP = 1, NPMAX SEN1 ( LVL,SPC,NP ) = SENGRID( COL,ROW,LVL,NP,A2C ) END DO #endif END DO END DO DO LVL = 1, NLAYS RJ1( LVL ) = RHOJM1( COL,ROW,LVL ) RJ2( LVL ) = RHOJM2( COL,ROW,LVL ) END DO ITER = 0 DELT = DTSEC VEL( 1 ) = 0.0 ! impermeable boundary condition at the surface FLX( 1 ) = 0.0 DRJ = 0.0 DO LVL = 1, NLAYS DSDT = DS( LVL ) / DELT ! initial for this col/row RJT( LVL ) = CON1( LVL,N_SPC_ADV ) ! initial for this col/row ! DUDX = ( UHATJD( COL+1,ROW,LVL ) - UHATJD( COL,ROW,LVL ) ) / XCELL_GD ! DVDY = ( VHATJD( COL,ROW+1,LVL ) - VHATJD( COL,ROW,LVL ) ) / YCELL_GD ! DIVV( LVL ) = DUDX * DS( LVL ) + DVDY * DS( LVL ) DIVV( LVL ) = ( RJ1( LVL ) - RJT( LVL ) ) * DSDT DRJ = DRJ - DIVV( LVL ) END DO #ifdef isam Ckrt...import isam array into sa_con DO SPC = 1, N_SPCTAG DO LVL = 1, NLAYS SA_CON( LVL,SPC ) = ISAM( COL,ROW,LVL,S_SPCTAG( SPC ),T_SPCTAG( SPC ) ) END DO END DO #endif 111 CONTINUE ! iteration loop if CC > 1 FLUX = 0.0 DO LVL = 1, NLAYS RJT( LVL ) = CON1( LVL,N_SPC_ADV ) !----Yamo part DSDT = DS( LVL ) / DELT FLUX = FLUX - DSDT * ( RJ2( LVL ) - RJT( LVL ) ) FLX( LVL+1 ) = FLX( LVL ) - DS( LVL ) * DRJ - DIVV( LVL ) FLX( LVL+1 ) = FBLN( LVL ) * FLX( LVL+1 ) + ( 1.0 - FBLN( LVL ) ) * FLUX FLUX = FLX( LVL+1 ) END DO DO LVL = 2, NLAYS IF ( FLX( LVL ) .GE. 0.0 ) THEN VEL( LVL ) = FLX( LVL ) / RJT( LVL-1 ) ELSE VEL( LVL ) = FLX( LVL ) / RJT( LVL ) END IF END DO VEL( NLAYS+1 ) = FLX( NLAYS+1 ) / RJT( NLAYS ) C Find Maximum Courant Number CC = 0.0 DTNEW = DELT DO LVL = 2, NLAYS IF ( VEL( LVL ) .GT. 0.0 ) THEN CC = MAX ( CC, ( VEL( LVL ) * DELT / DS( LVL-1 ) ) ) DTNEW = MIN( DTNEW, 0.9 * DELT / CC ) ELSE CC = MAX ( CC, ( -VEL( LVL ) * DELT / DS( LVL ) ) ) ! DTNEW = MIN( DTNEW, DELT / MAX( CC, 0.9 ) ) DTNEW = MIN( DTNEW, 0.9 * DELT / MAX( CC, 1.0 ) ) ! MAX in case vel = 0 END IF END DO LVL = NLAYS+1 IF ( VEL( LVL ) .GT. 0.0 ) THEN CC = MAX ( CC, ( VEL( LVL ) * DELT / DS( LVL-1 ) ) ) DTNEW = MIN( DTNEW, 0.9 * DELT / CC ) ELSE CC = MAX ( CC, ( -VEL( LVL ) * DELT / DS( LVL-1 ) ) ) ! DTNEW = MIN( DTNEW, DELT / MAX( CC, 0.9 ) ) DTNEW = MIN( DTNEW, 0.9 * DELT / MAX( CC, 1.0 ) ) ! MAX in case vel = 0 END IF IF ( CC .GT. 1.0 ) THEN ! courant number is larger than unity C Calculate a sub-time step that satisfies the Courant stability limit. C Perform vertical advection with the computed velocity and sub-time step. C Then calculate the difference between the original and sub-time steps. C The difference is the new sub-time step. Recompute vertical velocities C that would bring the air density field back to being uniform. Note that C if Courant number with the new velocity and sub-time step is larger than C unity again, then the last sub-time step would be split into further C sub-steps. DTNEW = MAX( DTNEW, 1.0 ) #ifdef isam CALL VPPM ( NLAYS, DTNEW, DS, FLX, VEL, CON1, SA_CON ) #elif sens CALL VPPM ( NLAYS, DTNEW, DS, FLX, VEL, CON1, SEN1 ) #else CALL VPPM ( NLAYS, DTNEW, DS, FLX, VEL, CON1 ) #endif DELT = DELT - DTNEW ITER = ITER + 1 IF ( ITER .GT. MAXITER ) THEN WRITE( LOGDEV,2005 ) COL, ROW, CC, DELT, ITER, JTIME 2005 FORMAT( 'zadv col row CC', 8X, 'dt iter jtime' & / 'zzzz', 2I4, 1PE12.3, 0PF10.5, 1X, I4, I10.6 & / 10X, 'MetRhoj', 3X, 'TrRhoj', 5X, 'Diff', & 4X, 'adv_rhoj', 3X, 'vel(l)', 6X, 'vel(l+1)' ) DO LVL = 1, NLAYS WRITE( LOGDEV,2009 ) LVL, RJ2( LVL ), RJT( LVL ), & RJ2( LVL ) - RJT( LVL ), & CON1( LVL,N_SPC_ADV ), & VEL( LVL ), VEL( LVL+1 ) END DO 2009 FORMAT( 'zzz2', I3, 4F10.2, 2(1PE12.3) ) WRITE( XMSG,2013 ) JTIME, TSTEP( 2 ), MAXITER 2013 FORMAT( 'vert adv soln failed at', I7.6, ' with adv step:', & I7.6, ' HHMMSS', 2X, 'Max Iterations =', I3 ) CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT3 ) END IF GO TO 111 END IF #ifdef isam CALL VPPM ( NLAYS, DELT, DS, FLX, VEL, CON1, SA_CON ) #elif sens CALL VPPM ( NLAYS, DELT, DS, FLX, VEL, CON1, SEN1 ) #else CALL VPPM ( NLAYS, DELT, DS, FLX, VEL, CON1 ) #endif DO SPC = 1, N_SPC_ADV A2C = ADV_MAP( SPC ) DO LVL = 1, NLAYS CGRID( COL,ROW,LVL,A2C ) = CON1( LVL,SPC ) #ifdef sens DO NP = 1, NPMAX SENGRID( COL,ROW,LVL,NP,A2C ) = SEN1 ( LVL,SPC,NP ) END DO #endif END DO END DO #ifdef isam Ckrt...update ISAM with SA_CON....20120821 DO SPC = 1, N_SPCTAG IF( TRANSPORT_SPC( SPC ) )THEN DO LVL = 1, NLAYS ISAM( COL,ROW,LVL,S_SPCTAG( SPC ),T_SPCTAG( SPC ) ) = SA_CON( LVL,SPC ) END DO END IF END DO #endif IF ( W_VEL ) THEN ! If the user wants vertical velocity written to file, fill in global scope array (WY) DO LVL = 1, NLAYS WY( LVL,COL,ROW ) = VEL( LVL+1 ) END DO END IF 222 CONTINUE ! COL 333 CONTINUE ! ROW IF ( W_VEL ) CALL GET_WVEL( JDATE,JTIME ) RETURN END SUBROUTINE ZADV ================================================ FILE: CCTM/src/vdiff/acm2_m3dry/ASX_DATA_MOD.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: Module ASX_DATA_MOD C----------------------------------------------------------------------- C Function: User-defined types C Revision History: C 19 Aug 2014 J.Bash: initial implementation C 17 July 2015 H.Foroutan: Updated the calculation of MOL, MOLI, HOL, and WSTAR C 25 Aug 2015 H. Pye: Added IEPOX, HACET surrogates C modified PROPNN and H2O2 C Increased ar for ozone from 8 to 12. C Change meso from 0.1 to 0 for some org. nitrates C Changes based on Nguyen et al. 2015 PNAS and SOAS C 07 May 2018 D. Schwede: Added call to CZANGLE here and removed call C to CZANGLE in other modules C C---------Notes C * Updates based on literature review 7/96 JEP C # Diff and H based on Wesely (1988) same as RADM C + Estimated by JEP 2/97 C @ Updated by JEP 9/01 C ~ Added by YW 1/02. Dif0 based on Massman (1998). Henry's Law constant C is defined here as: h=cg/ca, where cg is the concentration of a species C in gas-phase, and ca is its aqueous-phase concentration. The smaller h, C the larger solubility. Henry's Law constant in another definition (KH): C KH = ca/pg [M/atm], KH = KH0 * exp(-DKH/R(1/T-1/T0)), where KH0 and -DKH C values are from Rolf Sander (1999). h=1/(KH*R*T). C ** Update by DBS based on estimates by JEP 1/03 C ^^ From Bill Massman, personal communication 4/03 C ## Diffusivity calculated by SPARC, reactivity = other aldehydes C ++ Dif0 in Massman is diffusivity at temperature 0C and 1 atm (101.325kPa), so C chemicals that were not in Massman's paper need to be adjusted. We assume C JEP's original values were for 25C and 1 atm. C % Added by G. Sarwar (10/04) C $ Added by R. Bullock (02/05) HG diffusivity is from Massman (1999). C HGIIGAS diffusivity calculated from the HG value and a mol. wt. scaling C factor of MW**(-2/3) from EPA/600/3-87/015. ORD, Athens, GA. HGIIGAS C mol.wt. used is that of HgCl2. Reactivity of HG is 1/20th of NO and NO2 C values based on general atmospheric lifetimes of each species. Reactivity C of HGIIGAS is based on HNO3 surrogate. C @@ Mesophyll resistances for NO, NO2, and CO added by J. Pleim (07/07) based C on values in Pleim, Venkatram, and Yamartino, 1984: ADOM/TADAP Model C Development Program, Volume 4, The Dry Deposition Module. ERT, Inc., C Concord, MA (peer reviewed). C ~~ Reactivity for PAN changed from 4.0 to 16.0 by J. Pleim (07/07) based on C comparisons with Turnipseed et al., JGR, 2006. C %% Species ICL1 and ICL2 are removed, not used in CB05. G. Sarwar (07/07) C <> Hazardous Air Pollutants that are believed to undergo significant dry C deposition. Hydrazine and triethylamine reactivities are based on analogies C to NH3. Maleic anhydride reactivity is assumed similar to aldehydes. C Toluene diisocyanate and hexamethylene diisocyanate reactivities are C assumed to be similar to SO2. Diffusivities are calculated with standard C formulas. W. Hutzell (04/08) C %% G. Sarwar: added data for iodine and bromine species (03/2016) C %% B. Hutzell: added dry deposition data for methane, acrylic acid, methyl chloride, C and acetonitrile (09/2016) C G. Sarwar: added ClNO3 and FMBR, and updated INO3 and BRNO3 name changes (07/2018) C G. Sarwar: removed NACL (07/2018) C G. Sarwar: made minor changes to halogen species and added several iodine species (12/2018) C D. Wong: Implemented centralized I/O approach, removed all MY_N clauses, removed C unnecessary SAVE attribute (02/2019) C G. Sarwar: Removed CH3BR (03/2021) C R. Gilliam: Include PX soil texture information when available (03/2022) C------------------------------------------------------------------------------- Use RUNTIME_VARS Use GRID_CONF ! horizontal & vertical domain specifications Use LSM_MOD ! Land surface data Use DEPVVARS, Only: ltotg Use CENTRALIZED_IO_MODULE #ifdef mpas use coupler_module #endif Implicit None Include SUBST_CONST ! constants Type :: MET_Type !> 2-D meteorological fields: Real, Allocatable :: RDEPVHT ( :,: ) ! reciprocal layer 1 height [m-1] Real, Allocatable :: DENS1 ( :,: ) ! layer 1 air density Real, Allocatable :: PRSFC ( :,: ) ! surface pressure [Pa] Real, Allocatable :: Q2 ( :,: ) ! 2 meter water vapor mixing ratio [kg/kg] Real, Allocatable :: QSS_GRND ( :,: ) ! ground saturation water vapor mixing ratio [kg/kg] Real, Allocatable :: RH2 ( :,: ) ! relative humidity [percent] Real, Allocatable :: RA ( :,: ) ! aerodynamic resistance [s/m] Real, Allocatable :: RS ( :,: ) ! stomatal resistance [s/m] Real, Allocatable :: RC ( :,: ) ! convective precipitation [cm] Real, Allocatable :: RN ( :,: ) ! non-convective precipitation [cm] Real, Allocatable :: RGRND ( :,: ) ! Solar radiation at the ground [W/m**2] Real, Allocatable :: HFX ( :,: ) ! Sensible heat flux [W/m**2] Real, Allocatable :: LH ( :,: ) ! Latent heat flux [W/m**2] Real, Allocatable :: SNOCOV ( :,: ) ! Snow cover [1=yes, 0=no] Real, Allocatable :: TEMP2 ( :,: ) ! two meter temperature [K] Real, Allocatable :: TEMPG ( :,: ) ! skin temperature [K] Real, Allocatable :: TSEASFC ( :,: ) ! SST [K] Real, Allocatable :: USTAR ( :,: ) ! surface friction velocity [m/s] Real, Allocatable :: VEG ( :,: ) ! fractional vegetation coverage [ratio] Real, Allocatable :: LAI ( :,: ) ! grid cell leaf area index [m**2/m**2] Real, Allocatable :: WR ( :,: ) ! precip intercepted by canopy [m] Real, Allocatable :: WSPD10 ( :,: ) ! 10-m wind speed [m/s] Real, Allocatable :: WSTAR ( :,: ) ! convective velocity scale [m/s] Real, Allocatable :: Z0 ( :,: ) ! roughness length [m] Real, Allocatable :: SOIM1 ( :,: ) ! 1 cm soil moisture [m**3/m**3] Real, Allocatable :: SOIM2 ( :,: ) ! 1 m soil moisture [m**3/m**3] Real, Allocatable :: CLDFRAC ( :,: ) ! Total cloud fraction including cu Real, Allocatable :: SOIT1 ( :,: ) ! 1 cm soil temperature [K] Real, Allocatable :: SOIT2 ( :,: ) ! 1 m soil temperature [K] Real, Allocatable :: SEAICE ( :,: ) ! Sea ice coverage [%] Real, Allocatable :: MOL ( :,: ) ! Monin-Obukhov length [m] Real, Allocatable :: MOLI ( :,: ) ! inverse of Monin-Obukhov length [m] Real, Allocatable :: HOL ( :,: ) ! PBL over Obukhov length Real, Allocatable :: XPBL ( :,: ) ! PBL sigma height Integer, Allocatable :: LPBL ( :,: ) ! PBL layer Logical, Allocatable :: CONVCT ( :,: ) ! convection flag Real, Allocatable :: PBL ( :,: ) ! pbl height (m) ! Real, Allocatable :: NACL_EMIS( :,: ) ! NACL mass emission rate of particles with d <10 um (g/m2/s) Real, Allocatable :: COSZEN ( :,: ) ! Cosine of the zenith angle Real, Allocatable :: CFRAC ( :,: ) ! cloud fraction !> U and V wind components on the cross grid points Real, Allocatable :: UWIND ( :,:,: ) ! [m/s] Real, Allocatable :: VWIND ( :,:,: ) ! [m/s] !> 3-D meteorological fields: Real, Allocatable :: KZMIN ( :,:,: ) ! minimum Kz [m**2/s] Real, Allocatable :: PRES ( :,:,: ) ! pressure [Pa] Real, Allocatable :: QV ( :,:,: ) ! water vapor mixing ratio Real, Allocatable :: QC ( :,:,: ) ! cloud water mixing ratio Real, Allocatable :: THETAV ( :,:,: ) ! potential temp Real, Allocatable :: TA ( :,:,: ) ! temperature (K) Real, Allocatable :: RH ( :,:,: ) ! relative humidity [ratio] Real, Allocatable :: ZH ( :,:,: ) ! mid-layer height above ground [m] Real, Allocatable :: ZF ( :,:,: ) ! layer height [m] Real, Allocatable :: DZF ( :,:,: ) ! layer thickness Real, Allocatable :: DENS ( :,:,: ) ! air density Real, Allocatable :: RJACM ( :,:,: ) ! reciprocal mid-layer Jacobian Real, Allocatable :: RJACF ( :,:,: ) ! reciprocal full-layer Jacobian Real, Allocatable :: RRHOJ ( :,:,: ) ! reciprocal density X Jacobian End Type MET_Type Type :: GRID_Type !> Grid infomation: !> Vertical information Real, Allocatable :: DX3F ( : ) ! sigma layer surface thickness ! vdiffacmx.F Real, Allocatable :: RDX3F ( : ) ! reciprocal sigma layer thickness ! EMIS_DEFN.F, sedi.F, vdiffacmx.F, vdiffproc.F Real, Allocatable :: RDX3M ( : ) ! reciprocal sigma midlayer thickness ! vdiffproc.F !> Horizontal Information: Real, Allocatable :: RMSFX4 ( :,: ) ! inverse map scale factor ** 4 Real, Allocatable :: LON ( :,: ) ! longitude Real, Allocatable :: LAT ( :,: ) ! latitude Real, Allocatable :: LWMASK ( :,: ) ! land water mask Real, Allocatable :: OCEAN ( :,: ) ! Open ocean fraction Real, Allocatable :: SZONE ( :,: ) ! Surf zone fraction Real, Allocatable :: PURB ( :,: ) ! percent urban [%] Integer, Allocatable :: SLTYP ( :,: ) ! soil type [category] Real, Allocatable :: WSAT ( :,: ) ! volumetric soil saturation concentration Real, Allocatable :: WWLT ( :,: ) ! soil wilting point Real, Allocatable :: BSLP ( :,: ) ! B Slope Real, Allocatable :: WRES ( :,: ) ! Soil residual moisture point Real, Allocatable :: WFC ( :,: ) ! soil field capacity Real, Allocatable :: CLAY_PX ( :,: ) ! Clay fraction from PX LSM Real, Allocatable :: CSAND_PX ( :,: ) ! Coarse sand fraction from PX LSM Real, Allocatable :: FMSAND_PX( :,: ) ! Fine-medium sand fraction from PX LSM ! Real, Allocatable :: RHOB ( :,: ) ! soil bulk density Real, Allocatable :: LUFRAC ( :,:,: ) ! land use fraction (col,row,lu_type)[ratio] C Land use information: Character( 16 ), Allocatable :: NAME ( : ) ! LU name Character( 16 ), Allocatable :: LU_Type ( : ) ! general land use type e.g. water, forest, etc. End Type GRID_Type Type( MET_Type ) :: Met_Data Type( GRID_Type ) :: Grid_Data Integer, Save :: n_spc_m3dry = ltotg ! from DEPVVARS module !> M3 asx constants Real, Parameter :: a0 = 8.0 ! [dim'less] Real, Parameter :: d3 = 1.38564e-2 ! [dim'less] Real, Parameter :: dwat = 0.2178 ! [cm^2/s] at 273.15K Real, Parameter :: hplus_ap = 1.0e-6 ! pH=6.0 leaf apoplast solution Ph (Massad et al 2008) Real, Parameter :: hplus_def = 1.0e-5 ! pH=5.0 Real, Parameter :: hplus_east = 1.0e-5 ! pH=5.0 Real, Parameter :: hplus_h2o = 7.94328e-9 ! 10.0**(-8.1) Real, Parameter :: hplus_west = 3.16228e-6 ! 10.0**(-5.5) Real, Parameter :: kvis = 0.132 ! [cm^2 / s] at 273.15K Real, Parameter :: pr = 0.709 ! [dim'less] Real, Parameter :: rcut0 = 3000.0 ! [s/m] Real, Parameter :: rcw0 = 125000.0 ! acc'd'g to Padro and Real, Parameter :: resist_max = 1.0e30 ! maximum resistance Real, Parameter :: rg0 = 1000.0 ! [s/m] Real, Parameter :: rgwet0 = 25000.0 ! [s/m] Real, Parameter :: rsndiff = 10.0 ! snow diffusivity fac Real, Parameter :: rsnow0 = 10000.0 ! Changed from 1000 to 10000 - Helmig et al 2012 Real, Parameter :: svp2 = 17.67 ! from MM5 and WRF Real, Parameter :: svp3 = 29.65 ! from MM5 and WRF Real, Parameter :: rt25inK = 1.0/(stdtemp + 25.0) ! 298.15K = 25C Real, Parameter :: twothirds = 2.0 / 3.0 Real, Parameter :: betah = 5.0 ! WRF 3.6 px uses Dyer Real, Parameter :: gamah = 16.0 Real, Parameter :: pr0 = 0.95 Real, Parameter :: karman = 0.40 Real, Parameter :: f3min = 0.25 Real, Parameter :: ftmin = 0.0000001 ! m/s Real, Parameter :: nscat = 16.0 Real, Parameter :: rsmax = 5000.0 ! s/m Real :: ar ( ltotg ) ! reactivity relative to HNO3 Real :: dif0 ( ltotg ) ! molecular diffusivity [cm2/s] Real :: lebas ( ltotg ) ! Le Bas molar volume [cm3/mol ] Real :: meso ( ltotg ) ! Exception for species that ! react with cell walls. fo in ! Wesely 1989 eq 6. Character( 16 ) :: subname ( ltotg ) ! for subroutine HLCONST Logical, Save :: MET_INITIALIZED = .false. Logical, Save :: CSTAGUV ! Winds are available with C stagger? ! Logical, Save :: ifwr = .false. Public :: INIT_MET, GET_MET Integer, Private :: C, R, L, S ! loop induction variables Integer, Private :: SPC Character( 16 ), Private, Save :: vname_rc, vname_rn, vname_uc, vname_vc Real, allocatable, private :: BUFF1D( : ) ! 1D temp var number of layers Real, allocatable, private :: BUFF2D( :,: ) ! 2D temp var Real, allocatable, private :: BUFF3D( :,:,: ) ! 3D temp var DATA subname( 1), dif0( 1), ar( 1), meso( 1), lebas( 1) / 'SO2 ', 0.1089, 10.0, 0.0, 35.0 / DATA subname( 2), dif0( 2), ar( 2), meso( 2), lebas( 2) / 'H2SO4 ', 0.1091, 8000.0, 0.0, 49.0 / DATA subname( 3), dif0( 3), ar( 3), meso( 3), lebas( 3) / 'NO2 ', 0.1361, 2.0, 0.1, 21.0 / DATA subname( 4), dif0( 4), ar( 4), meso( 4), lebas( 4) / 'NO ', 0.1802, 2.0, 0.0, 14.0 / DATA subname( 5), dif0( 5), ar( 5), meso( 5), lebas( 5) / 'O3 ', 0.1444, 12.0, 1.0, 21.0 / DATA subname( 6), dif0( 6), ar( 6), meso( 6), lebas( 6) / 'HNO3 ', 0.1067, 8000.0, 0.0, 35.0 / DATA subname( 7), dif0( 7), ar( 7), meso( 7), lebas( 7) / 'H2O2 ', 0.1300,34000.0, 1.0, 28.0 / !ar=34,000 such that r_cut=0.7 s/m as in Nguyen et al. 2015 DATA subname( 8), dif0( 8), ar( 8), meso( 8), lebas( 8) / 'ACETALDEHYDE ', 0.1111, 10.0, 0.0, 56.0 / DATA subname( 9), dif0( 9), ar( 9), meso( 9), lebas( 9) / 'FORMALDEHYDE ', 0.1554, 10.0, 0.0, 35.0 / DATA subname( 10), dif0( 10), ar( 10), meso( 10), lebas( 10) / 'METHYLHYDROPEROX', 0.1179, 10.0, 0.3, 49.0 / !meso change from 0.1 to 0.3, Wolfe and Thornton 2011 ACP per J. Bash DATA subname( 11), dif0( 11), ar( 11), meso( 11), lebas( 11) / 'PEROXYACETIC_ACI', 0.0868, 20.0, 0.1, 70.0 / DATA subname( 12), dif0( 12), ar( 12), meso( 12), lebas( 12) / 'ACETIC_ACID ', 0.0944, 20.0, 0.0, 63.0 / DATA subname( 13), dif0( 13), ar( 13), meso( 13), lebas( 13) / 'NH3 ', 0.1978, 20.0, 0.0, 28.0 / DATA subname( 14), dif0( 14), ar( 14), meso( 14), lebas( 14) / 'PAN ', 0.0687, 16.0, 0.1, 91.0 / DATA subname( 15), dif0( 15), ar( 15), meso( 15), lebas( 15) / 'HNO2 ', 0.1349, 20.0, 0.1, 28.0 / DATA subname( 16), dif0( 16), ar( 16), meso( 16), lebas( 16) / 'CO ', 0.1807, 5.0, 0.0, 14.0 / DATA subname( 17), dif0( 17), ar( 17), meso( 17), lebas( 17) / 'METHANOL ', 0.1329, 2.0, 0.0, 42.0 / DATA subname( 18), dif0( 18), ar( 18), meso( 18), lebas( 18) / 'N2O5 ', 0.0808, 5000.0, 0.0, 49.0 / DATA subname( 19), dif0( 19), ar( 19), meso( 19), lebas( 19) / 'NO3 ', 0.1153, 5000.0, 0.0, 28.0 / DATA subname( 20), dif0( 20), ar( 20), meso( 20), lebas( 20) / 'GENERIC_ALDEHYDE', 0.0916, 10.0, 0.0, 56.0 / DATA subname( 21), dif0( 21), ar( 21), meso( 21), lebas( 21) / 'CL2 ', 0.1080, 10.0, 0.0, 49.0 / DATA subname( 22), dif0( 22), ar( 22), meso( 22), lebas( 22) / 'HOCL ', 0.1300, 10.0, 0.0, 38.5 / ! used value of HCL DATA subname( 23), dif0( 23), ar( 23), meso( 23), lebas( 23) / 'HCL ', 0.1510, 8000.0, 0.0, 31.5 / DATA subname( 24), dif0( 24), ar( 24), meso( 24), lebas( 24) / 'FMCL ', 0.1094, 10.0, 0.0, 45.5 / ! default value DATA subname( 25), dif0( 25), ar( 25), meso( 25), lebas( 25) / 'HG ', 0.1194, 0.1, 0.0, 14.8 / ! lebas not used DATA subname( 26), dif0( 26), ar( 26), meso( 26), lebas( 26) / 'HGIIGAS ', 0.0976, 8000.0, 0.0, 95.0 / ! estimation from back calculating to get dw25 = 1.04e-5 (Garland et al, 1965) DATA subname( 27), dif0( 27), ar( 27), meso( 27), lebas( 27) / 'TECDD_2378 ', 0.0525, 2.0, 0.0, 217.0 / DATA subname( 28), dif0( 28), ar( 28), meso( 28), lebas( 28) / 'PECDD_12378 ', 0.0508, 2.0, 0.0, 234.5 / DATA subname( 29), dif0( 29), ar( 29), meso( 29), lebas( 29) / 'HXCDD_123478 ', 0.0494, 2.0, 0.0, 252.0 / DATA subname( 30), dif0( 30), ar( 30), meso( 30), lebas( 30) / 'HXCDD_123678 ', 0.0494, 2.0, 0.0, 252.0 / DATA subname( 31), dif0( 31), ar( 31), meso( 31), lebas( 31) / 'HXCDD_123478 ', 0.0494, 2.0, 0.0, 252.0 / DATA subname( 32), dif0( 32), ar( 32), meso( 32), lebas( 32) / 'HPCDD_1234678 ', 0.0480, 2.0, 0.0, 269.5 / DATA subname( 33), dif0( 33), ar( 33), meso( 33), lebas( 33) / 'OTCDD ', 0.0474, 2.0, 0.0, 287.0 / DATA subname( 34), dif0( 34), ar( 34), meso( 34), lebas( 34) / 'TECDF_2378 ', 0.0534, 2.0, 0.0, 210.0 / DATA subname( 35), dif0( 35), ar( 35), meso( 35), lebas( 35) / 'PECDF_12378 ', 0.0517, 2.0, 0.0, 227.5 / DATA subname( 36), dif0( 36), ar( 36), meso( 36), lebas( 36) / 'PECDF_23478 ', 0.0517, 2.0, 0.0, 227.5 / DATA subname( 37), dif0( 37), ar( 37), meso( 37), lebas( 37) / 'HXCDF_123478 ', 0.0512, 2.0, 0.0, 245.0 / DATA subname( 38), dif0( 38), ar( 38), meso( 38), lebas( 38) / 'HXCDF_123678 ', 0.0512, 2.0, 0.0, 245.0 / DATA subname( 39), dif0( 39), ar( 39), meso( 39), lebas( 39) / 'HXCDF_234678 ', 0.0512, 2.0, 0.0, 245.0 / DATA subname( 40), dif0( 40), ar( 40), meso( 40), lebas( 40) / 'HXCDF_123789 ', 0.0512, 2.0, 0.0, 245.0 / DATA subname( 41), dif0( 41), ar( 41), meso( 41), lebas( 41) / 'HPCDF_1234678 ', 0.0487, 2.0, 0.0, 262.5 / DATA subname( 42), dif0( 42), ar( 42), meso( 42), lebas( 42) / 'HPCDF_1234789 ', 0.0487, 2.0, 0.0, 262.5 / DATA subname( 43), dif0( 43), ar( 43), meso( 43), lebas( 43) / 'OTCDF ', 0.0474, 2.0, 0.0, 280.0 / DATA subname( 44), dif0( 44), ar( 44), meso( 44), lebas( 44) / 'NAPHTHALENE ', 0.0778, 4.0, 0.0, 119.0 / !Julin et al. 2014 doi:10.1021/es501816h DATA subname( 45), dif0( 45), ar( 45), meso( 45), lebas( 45) / '1NITRONAPHTHALEN', 0.0692, 4.0, 0.0, 133.0 / DATA subname( 46), dif0( 46), ar( 46), meso( 46), lebas( 46) / '2NITRONAPHTHALEN', 0.0692, 4.0, 0.0, 133.0 / DATA subname( 47), dif0( 47), ar( 47), meso( 47), lebas( 47) / '14NAPHTHOQUINONE', 0.0780, 4.0, 0.0, 119.0 / DATA subname( 48), dif0( 48), ar( 48), meso( 48), lebas( 48) / 'HEXAMETHYLE_DIIS', 0.0380, 10.0, 0.0, 196.0 / DATA subname( 49), dif0( 49), ar( 49), meso( 49), lebas( 49) / 'HYDRAZINE ', 0.4164, 20.0, 0.0, 42.0 / DATA subname( 50), dif0( 50), ar( 50), meso( 50), lebas( 50) / 'MALEIC_ANHYDRIDE', 0.0950, 10.0, 0.0, 70.0 / DATA subname( 51), dif0( 51), ar( 51), meso( 51), lebas( 51) / '24-TOLUENE_DIIS ', 0.0610, 10.0, 0.0, 154.0 / DATA subname( 52), dif0( 52), ar( 52), meso( 52), lebas( 52) / 'TRIETHYLAMINE ', 0.0881, 20.0, 0.0, 154.0 / DATA subname( 53), dif0( 53), ar( 53), meso( 53), lebas( 53) / 'ORG_NTR ', 0.0607, 16.0, 0.0, 160.0 / ! assumes 58.2% C5H11O4N and 41.8% C5H11O3N DATA subname( 54), dif0( 54), ar( 54), meso( 54), lebas( 54) / 'HYDROXY_NITRATES', 0.0609, 16.0, 0.0, 156.1 / DATA subname( 55), dif0( 55), ar( 55), meso( 55), lebas( 55) / 'MPAN ', 0.0580, 16.0, 0.1, 133.0 / DATA subname( 56), dif0( 56), ar( 56), meso( 56), lebas( 56) / 'PPN ', 0.0631, 16.0, 0.1, 118.2 / DATA subname( 57), dif0( 57), ar( 57), meso( 57), lebas( 57) / 'METHACROLEIN ', 0.0810, 8.0, 1.0, 88.8 / DATA subname( 58), dif0( 58), ar( 58), meso( 58), lebas( 58) / 'DINTR ', 0.0617, 16.0, 0.1, 169.8 / DATA subname( 59), dif0( 59), ar( 59), meso( 59), lebas( 59) / 'NTR_ALK ', 0.0688, 16.0, 0.1, 133.0 / DATA subname( 60), dif0( 60), ar( 60), meso( 60), lebas( 60) / 'NTR_OH ', 0.0665, 16.0, 0.1, 140.4 / DATA subname( 61), dif0( 61), ar( 61), meso( 61), lebas( 61) / 'HYDROXY_NITRATES', 0.0646, 16.0, 0.0, 147.8 / DATA subname( 62), dif0( 62), ar( 62), meso( 62), lebas( 62) / 'PROPNN ', 0.0677, 16.0, 0.0, 133.0 / DATA subname( 63), dif0( 63), ar( 63), meso( 63), lebas( 63) / 'NITRYL_CHLORIDE ', 0.0888, 8.0, 0.0, 45.5 / ! dif0 estimated following Erickson III et al., JGR, 104, D7, 8347-8372, 1999 DATA subname( 64), dif0( 64), ar( 64), meso( 64), lebas( 64) / 'ISOPNN ',0.0457, 275.9, 0.0, 206.8 / DATA subname( 65), dif0( 65), ar( 65), meso( 65), lebas( 65) / 'MTNO3 ',0.0453, 96.2, 0.0, 251.2 / DATA subname( 66), dif0( 66), ar( 66), meso( 66), lebas( 66) / 'IEPOX ',0.0579, 8.0, 0.0, 110.8 / DATA subname( 67), dif0( 67), ar( 67), meso( 67), lebas( 67) / 'HACET ',0.1060, 8.0, 0.0, 72.6 / ! dif0 from Nguyen 2015 PNAS DATA subname( 68), dif0( 68), ar( 68), meso( 68), lebas( 68) / 'SVALK1 ',0.0514, 4572.8, 0.0, 280.5 / ! Pye et al. doi:10.5194/acp-17-343-2017; rel. reactivity per J. Bash DATA subname( 69), dif0( 69), ar( 69), meso( 69), lebas( 69) / 'SVALK2 ',0.0546, 12.9, 0.0, 275.6 / DATA subname( 70), dif0( 70), ar( 70), meso( 70), lebas( 70) / 'SVBNZ1 ',0.0642,20671.2, 0.0, 134.1 / DATA subname( 71), dif0( 71), ar( 71), meso( 71), lebas( 71) / 'SVBNZ2 ',0.0726, 52.5, 0.0, 127.5 / DATA subname( 72), dif0( 72), ar( 72), meso( 72), lebas( 72) / 'SVISO1 ',0.0733, 50.6, 0.0, 126.3 / DATA subname( 73), dif0( 73), ar( 73), meso( 73), lebas( 73) / 'SVISO2 ',0.0729,10009.0, 0.0, 123.8 / DATA subname( 74), dif0( 74), ar( 74), meso( 74), lebas( 74) / 'SVPAH1 ',0.0564, 772.1, 0.0, 235.7 / DATA subname( 75), dif0( 75), ar( 75), meso( 75), lebas( 75) / 'SVPAH2 ',0.0599, 4.8, 0.0, 231.5 / DATA subname( 76), dif0( 76), ar( 76), meso( 76), lebas( 76) / 'SVSQT ',0.0451, 10.3, 0.0, 346.5 / DATA subname( 77), dif0( 77), ar( 77), meso( 77), lebas( 77) / 'SVTOL1 ',0.0637, 1928.3, 0.0, 153.7 / DATA subname( 78), dif0( 78), ar( 78), meso( 78), lebas( 78) / 'SVTOL2 ',0.0607, 111.6, 0.0, 194.1 / DATA subname( 79), dif0( 79), ar( 79), meso( 79), lebas( 79) / 'SVTRP1 ',0.0603, 160.1, 0.0, 194.9 / DATA subname( 80), dif0( 80), ar( 80), meso( 80), lebas( 80) / 'SVTRP2 ',0.0559, 13.0, 0.0, 218.8 / DATA subname( 81), dif0( 81), ar( 81), meso( 81), lebas( 81) / 'SVXYL1 ',0.0610, 3586.7, 0.0, 154.6 / DATA subname( 82), dif0( 82), ar( 82), meso( 82), lebas( 82) / 'SVXYL2 ',0.0585, 72.2, 0.0, 194.6 / DATA subname( 83), dif0( 83), ar( 83), meso( 83), lebas( 83) / 'IO ',0.1004, 8.0, 0.0, 45.5 / DATA subname( 84), dif0( 84), ar( 84), meso( 84), lebas( 84) / 'OIO ',0.0940, 8.0, 0.0, 52.5 / DATA subname( 85), dif0( 85), ar( 85), meso( 85), lebas( 85) / 'I2O2 ',0.0734, 8.0, 0.0, 91.0 / DATA subname( 86), dif0( 86), ar( 86), meso( 86), lebas( 86) / 'I2O3 ',0.0709, 8.0, 0.0, 98.0 / DATA subname( 87), dif0( 87), ar( 87), meso( 87), lebas( 87) / 'I2O4 ',0.0686, 8.0, 0.0, 105.0 / DATA subname( 88), dif0( 88), ar( 88), meso( 88), lebas( 88) / 'HI ',0.1047, 8.0, 0.0, 45.5 / DATA subname( 89), dif0( 89), ar( 89), meso( 89), lebas( 89) / 'HOI ',0.0974, 8.0, 0.0, 52.5 / DATA subname( 90), dif0( 90), ar( 90), meso( 90), lebas( 90) / 'INO ',0.0885, 8.0, 0.0, 52.5 / DATA subname( 91), dif0( 91), ar( 91), meso( 91), lebas( 91) / 'INO2 ',0.0835, 20.0, 0.0, 59.5 / DATA subname( 92), dif0( 92), ar( 92), meso( 92), lebas( 92) / 'INO3 ',0.0794, 8.0, 0.0, 66.5 / DATA subname( 93), dif0( 93), ar( 93), meso( 93), lebas( 93) / 'BRO ',0.1146, 1.0, 0.0, 38.5 / DATA subname( 94), dif0( 94), ar( 94), meso( 94), lebas( 94) / 'HOBR ',0.1104, 1.0, 0.0, 45.5 / DATA subname( 95), dif0( 95), ar( 95), meso( 95), lebas( 95) / 'HBR ',0.1219, 2.0, 0.0, 38.5 / DATA subname( 96), dif0( 96), ar( 96), meso( 96), lebas( 96) / 'BRNO3 ',0.0871, 1.0, 0.0, 59.5 / DATA subname( 97), dif0( 97), ar( 97), meso( 97), lebas( 97) / 'BRNO2 ',0.0922, 1.0, 0.0, 52.5 / DATA subname( 98), dif0( 98), ar( 98), meso( 98), lebas( 98) / 'BRCL ',0.0968, 1.0, 0.0, 56.0 / DATA subname( 99), dif0( 99), ar( 99), meso( 99), lebas( 99) / 'DMS ',0.0896, 2.0, 0.0, 77.0 / DATA subname(100), dif0(100), ar(100), meso(100), lebas(100) / 'MSA ',0.0844, 2.0, 0.0, 77.0 / DATA subname(101), dif0(101), ar(101), meso(101), lebas(101) / 'METHANE ',0.2107, 2.0, 0.0, 29.6 / ! dif0, eqn 9-22 Schwarzenbach Gschwend & Imboden (1993) Env Org Chem DATA subname(102), dif0(102), ar(102), meso(102), lebas(102) / 'ACRYACID ',0.0908, 2.0, 0.0, 63.2 / DATA subname(103), dif0(103), ar(103), meso(103), lebas(103) / 'CARBSULFIDE ',0.1240, 5.0, 0.0, 51.5 / DATA subname(104), dif0(104), ar(104), meso(104), lebas(104) / 'ACETONITRILE ',0.1280, 5.0, 0.0, 52.3 / DATA subname(105), dif0(105), ar(105), meso(105), lebas(105) / '6_NITRO_O_CRESOL',0.0664, 16.0, 0.0, 155.0 / ! dif0, eqn 9-22 Schwarzenbach Gschwend & Imboden (1993) Env Org Chem DATA subname(106), dif0(106), ar(106), meso(106), lebas(106) / 'GENERIC_ALDEHYDE',0.0646, 10.0, 0.0, 56.0 / ! PCVOC DATA subname(107), dif0(107), ar(107), meso(107), lebas(107) / 'NTR_OH ',0.0722, 16.0, 0.1, 140.4 / ! INTR DATA subname(108), dif0(108), ar(108), meso(108), lebas(108) / 'METHYLHYDROPEROX',0.0853, 10.0, 0.3, 49.0 / ! ISPX diffusion should be ~ 0.0710 according to Wolfe and thornton 2011 ACP DATA subname(109), dif0(109), ar(109), meso(109), lebas(109) / 'METHYLHYDROPEROX',0.1371, 10.0, 0.3, 49.0 / ! ROOH diffusion should be ~ 0.0710 according to Wolfe and thornton 2011 ACP DATA subname(110), dif0(110), ar(110), meso(110), lebas(110) / 'ADIPIC_ACID ',0.0646,90000.0, 0.0, 63.0 / ! LVPCSOG DATA subname(111), dif0(111), ar(111), meso(111), lebas(111) / 'ADIPIC_ACID ',0.0456, 4.2, 0.0, 63.0 / ! VIVPO1 DATA subname(112), dif0(112), ar(112), meso(112), lebas(112) / 'ADIPIC_ACID ',0.0766,71624.8, 0.0, 63.0 / ! VLVOO1 DATA subname(113), dif0(113), ar(113), meso(113), lebas(113) / 'ADIPIC_ACID ',0.0766, 9042.0, 0.0, 63.0 / ! VLVOO2 DATA subname(114), dif0(114), ar(114), meso(114), lebas(114) / 'ADIPIC_ACID ',0.0533,13818.0, 0.0, 63.0 / ! VLVPO1 DATA subname(115), dif0(115), ar(115), meso(115), lebas(115) / 'ADIPIC_ACID ',0.0771, 1133.9, 0.0, 63.0 / ! VSVOO1 DATA subname(116), dif0(116), ar(116), meso(116), lebas(116) / 'ADIPIC_ACID ',0.0771, 18.1, 0.0, 63.0 / ! VSVOO2 DATA subname(117), dif0(117), ar(117), meso(117), lebas(117) / 'ADIPIC_ACID ',0.0775, 2.3, 0.0, 63.0 / ! VSVOO3 DATA subname(118), dif0(118), ar(118), meso(118), lebas(118) / 'ADIPIC_ACID ',0.0511, 1830.5, 0.0, 63.0 / ! VSVPO1 DATA subname(119), dif0(119), ar(119), meso(119), lebas(119) / 'ADIPIC_ACID ',0.0493, 241.0, 0.0, 63.0 / ! VSVPO2 DATA subname(120), dif0(120), ar(120), meso(120), lebas(120) / 'ADIPIC_ACID ',0.0474, 31.8, 0.0, 63.0 / ! VSVPO3 DATA subname(121), dif0(121), ar(121), meso(121), lebas(121) / 'FORMIC_ACID ',0.1411, 20.0, 0.0, 63.0 / ! FACD DATA subname(122), dif0(122), ar(122), meso(122), lebas(122) / 'MEK ',0.0859, 1.0, 0.0, 108.2 / ! KET different in different mechanisms DATA subname(123), dif0(123), ar(123), meso(123), lebas(123) / 'ETHENE ',0.1366, 1.0, 0.0, 58.1 / ! ETH DATA subname(124), dif0(124), ar(124), meso(124), lebas(124) / 'HNO4 ',0.1233, 1.0, 0.0, 45.2 / ! PNA DATA subname(125), dif0(125), ar(125), meso(125), lebas(125) / 'GLYOXAL ',0.1188, 1.0, 0.0, 56.2 / ! GLY DATA subname(126), dif0(126), ar(126), meso(126), lebas(126) / 'GLYOXAL ',0.1181, 1.0, 0.0, 56.4 / ! GLYD DATA subname(127), dif0(127), ar(127), meso(127), lebas(127) / 'METHYL_GLYOXAL ',0.1038, 1.0, 0.0, 72.5 / ! MGLY DATA subname(128), dif0(128), ar(128), meso(128), lebas(128) / 'ETHANE ',0.1312, 1.0, 0.0, 61.5 / ! ETHA DATA subname(129), dif0(129), ar(129), meso(129), lebas(129) / 'ETHANOL ',0.1213, 1.0, 0.0, 59.1 / ! ETOH DATA subname(130), dif0(130), ar(130), meso(130), lebas(130) / 'ETHANE ',0.0870, 1.0, 0.0, 111.1 / ! PAR as Pentane DATA subname(131), dif0(131), ar(131), meso(131), lebas(131) / 'ACETONE ',0.1057, 1.0, 0.0, 75.2 / ! ACET DATA subname(132), dif0(132), ar(132), meso(132), lebas(132) / 'PROPANE ',0.1095, 1.0, 0.0, 78.1 / ! PRPA DATA subname(133), dif0(133), ar(133), meso(133), lebas(133) / 'ACETYLENE ',0.1523, 1.0, 0.0, 45.8 / ! ETHY DATA subname(134), dif0(134), ar(134), meso(134), lebas(134) / 'ETHENE ',0.1135, 1.0, 0.0, 73.1 / ! OLE as Propene DATA subname(135), dif0(135), ar(135), meso(135), lebas(135) / 'ETHENE ',0.0990, 1.0, 0.0, 89.5 / ! IOLE as Isobutene DATA subname(136), dif0(136), ar(136), meso(136), lebas(136) / 'MEK ',0.0852, 1.0, 0.0, 101.2 / ! IEPOX different scavenging H in CB05 and CB06 DATA subname(137), dif0(137), ar(137), meso(137), lebas(137) / 'BENZENE ',0.0942, 1.0, 0.0, 89.4 / ! BENZENE DATA subname(138), dif0(138), ar(138), meso(138), lebas(138) / '2-CRESOL ',0.0850, 1.0, 0.0, 108.1 / ! CRES DATA subname(139), dif0(139), ar(139), meso(139), lebas(139) / 'TOLUENE ',0.0860, 1.0, 0.0, 105.7 / ! TOL DATA subname(140), dif0(140), ar(140), meso(140), lebas(140) / 'O-XYLENE ',0.0796, 1.0, 0.0, 122.0 / ! XYLMN DATA subname(141), dif0(141), ar(141), meso(141), lebas(141) / 'O-XYLENE ',0.0777, 1.0, 0.0, 123.5 / ! NAPH DATA subname(142), dif0(142), ar(142), meso(142), lebas(142) / 'PHENOL ',0.0844, 1.0, 0.0, 102.6 / ! CAT1 DATA subname(143), dif0(143), ar(143), meso(143), lebas(143) / 'PINENE ',0.0545, 1.0, 0.0, 251.5 / ! SESQ DATA subname(144), dif0(144), ar(144), meso(144), lebas(144) / 'PINENE ',0.0700, 1.0, 0.0, 136.2 / ! TERP DATA subname(145), dif0(145), ar(145), meso(145), lebas(145) / 'ISOPRENE ',0.0913, 1.0, 0.0, 136.2 / ! ISOP DATA subname(146), dif0(146), ar(146), meso(146), lebas(146) / 'METHACROLEIN ',0.1033, 1.0, 0.0, 69.6 / ! OPEN C4H4O2 DATA subname(147), dif0(147), ar(147), meso(147), lebas(147) / 'MEK ',0.0950, 1.0, 0.0, 81.7 / ! XOPN C5H6O2 DATA subname(148), dif0(148), ar(148), meso(148), lebas(148) / 'DECANE ',0.0739, 1.0, 0.0, 142.8 / ! SOAALK as Propylcyclopentane DATA subname(149), dif0(149), ar(149), meso(149), lebas(149) / '13-BUTADIENE ',0.1019, 1.0, 0.0, 84.8 / ! BUTADIENE13 DATA subname(150), dif0(150), ar(150), meso(150), lebas(150) / 'ACROLEIN ',0.1092, 1.0, 0.0, 70.5 / DATA subname(151), dif0(151), ar(151), meso(151), lebas(151) / 'SVMT1 ',0.0424, 20.0, 0.0, 355.2/ ! see Xu et al., 2018 ACPD: doi:10.5194/acp-2017-1109 DATA subname(152), dif0(152), ar(152), meso(152), lebas(152) / 'SVMT2 ',0.0556, 20.0, 0.0, 236.8/ DATA subname(153), dif0(153), ar(153), meso(153), lebas(153) / 'SVMT3 ',0.0583, 20.0, 0.0, 214.6/ DATA subname(154), dif0(154), ar(154), meso(154), lebas(154) / 'SVMT4 ',0.0587, 20.0, 0.0, 229.4/ DATA subname(155), dif0(155), ar(155), meso(155), lebas(155) / 'SVMT5 ',0.0619, 20.0, 0.0, 207.2/ DATA subname(156), dif0(156), ar(156), meso(156), lebas(156) / 'SVMT6 ',0.0624, 20.0, 0.0, 222.0/ DATA subname(157), dif0(157), ar(157), meso(157), lebas(157) / 'SVMT7 ',0.0661, 20.0, 0.0, 199.8/ DATA subname(158), dif0(158), ar(158), meso(158), lebas(158) / 'SVAVB1 ',0.0560,100388.0, 0.0, 163.1/ DATA subname(159), dif0(159), ar(159), meso(159), lebas(159) / 'SVAVB2 ',0.0600, 1461.2, 0.0, 163.2/ DATA subname(160), dif0(160), ar(160), meso(160), lebas(160) / 'SVAVB3 ',0.0620, 175.2, 0.0, 163.0/ DATA subname(161), dif0(161), ar(161), meso(161), lebas(161) / 'SVAVB4 ',0.0650, 20.8, 0.0, 162.7/ DATA subname(162), dif0(162), ar(162), meso(162), lebas(162) / 'CLNO3 ',0.0902, 8.0, 0.0, 52.5/ DATA subname(163), dif0(163), ar(163), meso(163), lebas(163) / 'FMBR ',0.0965, 10.0, 0.0, 52.5/ DATA subname(164), dif0(164), ar(164), meso(164), lebas(164) / 'I2 ',0.0795, 4.0, 0.0, 77.0/ DATA subname(165), dif0(165), ar(165), meso(165), lebas(165) / 'CH3I ',0.0881, 2.0, 0.0, 66.5/ DATA subname(166), dif0(166), ar(166), meso(166), lebas(166) / 'ICL ',0.0878, 4.0, 0.0, 63.0/ DATA subname(167), dif0(167), ar(167), meso(167), lebas(167) / 'IBR ',0.0851, 4.0, 0.0, 70.0/ DATA subname(168), dif0(168), ar(168), meso(168), lebas(168) / 'MI2 ',0.0713, 2.0, 0.0, 98.0/ DATA subname(169), dif0(169), ar(169), meso(169), lebas(169) / 'MIB ',0.0753, 2.0, 0.0, 91.0/ DATA subname(170), dif0(170), ar(170), meso(170), lebas(170) / 'MIC ',0.0773, 2.0, 0.0, 84.0/ DATA subname(171), dif0(171), ar(171), meso(171), lebas(171) / 'BR2 ',0.0925, 2.0, 0.0, 63.0/ DATA subname(172), dif0(172), ar(172), meso(172), lebas(172) / 'MB3 ',0.0705, 2.0, 0.0, 108.5/ DATA subname(173), dif0(173), ar(173), meso(173), lebas(173) / 'MB2 ',0.0804, 2.0, 0.0, 84.0/ DATA subname(174), dif0(174), ar(174), meso(174), lebas(174) / 'MB2C ',0.0720, 2.0, 0.0, 101.5/ DATA subname(175), dif0(175), ar(175), meso(175), lebas(175) / 'MBC2 ',0.0739, 2.0, 0.0, 94.5/ DATA subname(176), dif0(176), ar(176), meso(176), lebas(176) / 'MBC ',0.0834, 2.0, 0.0, 77.0/ DATA subname(177), dif0(177), ar(177), meso(177), lebas(177) / 'CLO ',0.1288, 8.0, 0.0, 31.5/ DATA subname(178), dif0(178), ar(178), meso(178), lebas(178) / 'ACETALDEHYDE ',0.0975, 1.0, 0.0, 58.9/ DATA subname(179), dif0(179), ar(179), meso(179), lebas(179) / 'ACETYLENE ',0.1212, 1.0, 0.0, 45.8/ DATA subname(180), dif0(180), ar(180), meso(180), lebas(180) / 'ACROOPERA ',0.0869, 1.0, 0.0, 70.5/ DATA subname(181), dif0(181), ar(181), meso(181), lebas(181) / 'ACETONE ',0.0842, 1.0, 0.0, 75.2/ DATA subname(182), dif0(182), ar(182), meso(182), lebas(182) / 'APIOPERA ',0.0560, 1.0, 0.0, 154.9/ DATA subname(183), dif0(183), ar(183), meso(183), lebas(183) / 'BENZALDEHYDE ',0.0688, 1.0, 0.0, 101.1/ DATA subname(184), dif0(184), ar(184), meso(184), lebas(184) / 'BDE13OPERA ',0.0812, 1.0, 0.0, 84.8/ DATA subname(185), dif0(185), ar(185), meso(185), lebas(185) / 'BENOPERA ',0.0751, 1.0, 0.0, 89.4/ DATA subname(186), dif0(186), ar(186), meso(186), lebas(186) / 'CSLOPERA ',0.0590, 1.0, 0.0, 137.1/ DATA subname(187), dif0(187), ar(187), meso(187), lebas(187) / 'METHACROLEIN ',0.0696, 1.0, 0.0, 100.6/ DATA subname(188), dif0(188), ar(188), meso(188), lebas(188) / 'METHACROLEIN ',0.0647, 1.0, 0.0, 115.4/ DATA subname(189), dif0(189), ar(189), meso(189), lebas(189) / 'METHACROLEIN ',0.0768, 1.0, 0.0, 82.8/ DATA subname(190), dif0(190), ar(190), meso(190), lebas(190) / 'ETHANOL ',0.0965, 1.0, 0.0, 59.1/ DATA subname(191), dif0(191), ar(191), meso(191), lebas(191) / 'ETHENE ',0.1085, 1.0, 0.0, 58.1/ DATA subname(192), dif0(192), ar(192), meso(192), lebas(192) / 'ETHYLENEGLYCOL ',0.0931, 1.0, 0.0, 56.6/ DATA subname(193), dif0(193), ar(193), meso(193), lebas(193) / 'FURANOPERA ',0.0751, 1.0, 0.0, 83.9/ DATA subname(194), dif0(194), ar(194), meso(194), lebas(194) / 'FURANONEOPERA ',0.0820, 1.0, 0.0, 66.5/ DATA subname(195), dif0(195), ar(195), meso(195), lebas(195) / 'HC10OPERA ',0.0505, 1.0, 0.0, 194.0/ DATA subname(196), dif0(196), ar(196), meso(196), lebas(196) / 'HC3OPERA ',0.0872, 1.0, 0.0, 78.1/ DATA subname(197), dif0(197), ar(197), meso(197), lebas(197) / 'HC5OPERA ',0.0694, 1.0, 0.0, 111.0/ DATA subname(198), dif0(198), ar(198), meso(198), lebas(198) / 'HYDROXY-ACETONE ',0.0823, 1.0, 0.0, 72.7/ DATA subname(199), dif0(199), ar(199), meso(199), lebas(199) / 'METHACROLEIN ',0.0663, 1.0, 0.3, 107.6/ DATA subname(200), dif0(200), ar(200), meso(200), lebas(200) / 'ISOOPERA ',0.0728, 1.0, 0.0, 101.0/ DATA subname(201), dif0(201), ar(201), meso(201), lebas(201) / '2NITRO_1BUTNL ',0.0609, 1.0, 0.1, 125.4/ DATA subname(202), dif0(202), ar(202), meso(202), lebas(202) / 'LIMOPERA ',0.0547, 1.0, 0.0, 163.0/ DATA subname(203), dif0(203), ar(203), meso(203), lebas(203) / 'UALDOPERA ',0.0511, 1.0, 0.0, 183.3/ DATA subname(204), dif0(204), ar(204), meso(204), lebas(204) / 'METHACROLEIN ',0.0772, 1.0, 0.0, 86.8/ DATA subname(205), dif0(205), ar(205), meso(205), lebas(205) / 'METHACROLEIN ',0.0745, 1.0, 0.3, 84.1/ DATA subname(206), dif0(206), ar(206), meso(206), lebas(206) / 'MCTOPERA ',0.0672, 1.7, 0.0, 103.0/ DATA subname(207), dif0(207), ar(207), meso(207), lebas(207) / 'MEK ',0.0752, 1.0, 0.0, 91.7/ DATA subname(208), dif0(208), ar(208), meso(208), lebas(208) / 'METHANOL ',0.1182, 1.0, 0.0, 42.5/ DATA subname(209), dif0(209), ar(209), meso(209), lebas(209) / 'MVK ',0.0772, 1.0, 0.0, 86.8/ DATA subname(210), dif0(210), ar(210), meso(210), lebas(210) / '2NITRO_1BUTNL ',0.0766, 1.0, 0.1, 78.0/ DATA subname(211), dif0(211), ar(211), meso(211), lebas(211) / 'OLIOPERA ',0.0717, 1.0, 0.0, 104.0/ DATA subname(212), dif0(212), ar(212), meso(212), lebas(212) / 'OLTOPERA ',0.0904, 1.0, 0.0, 73.1/ DATA subname(213), dif0(213), ar(213), meso(213), lebas(213) / 'MPAN ',0.0647, 1.0, 0.1, 114.0/ DATA subname(214), dif0(214), ar(214), meso(214), lebas(214) / 'METHYLHYDROPEROX',0.1030, 1.0, 0.3, 48.9/ DATA subname(215), dif0(215), ar(215), meso(215), lebas(215) / 'METHYLHYDROPEROX',0.0881, 1.0, 0.3, 65.4/ DATA subname(216), dif0(216), ar(216), meso(216), lebas(216) / 'METHYLHYDROPEROX',0.0535, 1.0, 0.3, 162.4/ DATA subname(217), dif0(217), ar(217), meso(217), lebas(217) / 'ORA1OPERA ',0.1119, 1.0, 0.0, 39.9/ DATA subname(218), dif0(218), ar(218), meso(218), lebas(218) / 'ORA2OPERA ',0.0939, 1.0, 0.0, 56.2/ DATA subname(219), dif0(219), ar(219), meso(219), lebas(219) / 'PHENOPERA ',0.0731, 3.4, 0.0, 86.3/ DATA subname(220), dif0(220), ar(220), meso(220), lebas(220) / 'GENERIC_ALDEHYDE',0.0521, 1.0, 0.0, 175.5/ DATA subname(221), dif0(221), ar(221), meso(221), lebas(221) / 'PROGOPERA ',0.0816, 1.0, 0.0, 73.4/ DATA subname(222), dif0(222), ar(222), meso(222), lebas(222) / 'ROCIOXYOPERA ',0.0354, 1.0, 0.0, 384.0/ DATA subname(223), dif0(223), ar(223), meso(223), lebas(223) / 'ADIPIC_ACID ',0.0382, 1.0, 0.0, 326.0/ DATA subname(224), dif0(224), ar(224), meso(224), lebas(224) / 'ADIPIC_ACID ',0.0528, 1.0, 0.0, 172.0/ DATA subname(225), dif0(225), ar(225), meso(225), lebas(225) / 'ADIPIC_ACID ',0.0431, 1.0, 0.0, 260.0/ DATA subname(226), dif0(226), ar(226), meso(226), lebas(226) / 'ADIPIC_ACID ',0.0465, 1.0, 0.0, 221.0/ DATA subname(227), dif0(227), ar(227), meso(227), lebas(227) / 'ADIPIC_ACID ',0.0483, 1.0, 0.0, 207.0/ DATA subname(228), dif0(228), ar(228), meso(228), lebas(228) / 'ADIPIC_ACID ',0.0447, 1.0, 0.0, 243.0/ DATA subname(229), dif0(229), ar(229), meso(229), lebas(229) / 'ADIPIC_ACID ',0.0484, 1.0, 0.0, 205.0/ DATA subname(230), dif0(230), ar(230), meso(230), lebas(230) / 'ADIPIC_ACID ',0.0530, 1.0, 0.0, 174.0/ DATA subname(231), dif0(231), ar(231), meso(231), lebas(231) / 'N-PROPANOL ',0.0836, 1.0, 0.0, 75.6/ DATA subname(232), dif0(232), ar(232), meso(232), lebas(232) / 'SLOWROCOPERA ',0.1041, 1.0, 0.1, 38.9/ DATA subname(233), dif0(233), ar(233), meso(233), lebas(233) / '2NITRO_1BUTNL ',0.0597, 18.6, 0.1, 123.5/ DATA subname(234), dif0(234), ar(234), meso(234), lebas(234) / 'UALDOPERA ',0.0704, 1.0, 0.0, 102.0/ DATA subname(235), dif0(235), ar(235), meso(235), lebas(235) / 'XYEOPERA ',0.0636, 1.0, 0.0, 122.0/ DATA subname(236), dif0(236), ar(236), meso(236), lebas(236) / 'XYMOPERA ',0.0636, 1.0, 0.0, 122.0/ DATA subname(237), dif0(237), ar(237), meso(237), lebas(237) / 'ELHOLM ',0.0464,49000.0, 0.3, 237.0/ DATA subname(238), dif0(238), ar(238), meso(238), lebas(238) / 'HOLM ',0.0534, 711.0, 0.3, 157.7/ DATA subname(239), dif0(239), ar(239), meso(239), lebas(239) / 'METHYLHYDROPEROX',0.0551, 783.0, 0.3, 153.1/ DATA subname(240), dif0(240), ar(240), meso(240), lebas(240) / 'ADIPIC_ACID ',0.0303, 218.0, 0.0, 508.0/ DATA subname(241), dif0(241), ar(241), meso(241), lebas(241) / 'ADIPIC_ACID ',0.0365, 8450.0, 0.0, 353.0/ DATA subname(242), dif0(242), ar(242), meso(242), lebas(242) / 'ADIPIC_ACID ',0.0465, 2550.0, 0.0, 216.0/ DATA subname(243), dif0(243), ar(243), meso(243), lebas(243) / 'ADIPIC_ACID ',0.0557, 182.0, 0.0, 147.7/ DATA subname(244), dif0(244), ar(244), meso(244), lebas(244) / 'ADIPIC_ACID ',0.0298,28400.0, 0.0, 524.0/ DATA subname(245), dif0(245), ar(245), meso(245), lebas(245) / 'ADIPIC_ACID ',0.0405, 696.0, 0.0, 285.4/ DATA subname(246), dif0(246), ar(246), meso(246), lebas(246) / 'ADIPIC_ACID ',0.0485, 1440.0, 0.0, 197.0/ DATA subname(247), dif0(247), ar(247), meso(247), lebas(247) / 'ADIPIC_ACID ',0.0588,2060000., 0.0, 130.0/ DATA subname(248), dif0(248), ar(248), meso(248), lebas(248) / 'ADIPIC_ACID ',0.0308, 36.8, 0.0, 491.0/ DATA subname(249), dif0(249), ar(249), meso(249), lebas(249) / 'ADIPIC_ACID ',0.0433, 130.0, 0.0, 251.0/ DATA subname(250), dif0(250), ar(250), meso(250), lebas(250) / 'ADIPIC_ACID ',0.0505, 5520.0, 0.0, 183.0/ DATA subname(251), dif0(251), ar(251), meso(251), lebas(251) / 'ADIPIC_ACID ',0.0314, 6.8, 0.0, 474.0/ DATA subname(252), dif0(252), ar(252), meso(252), lebas(252) / 'ADIPIC_ACID ',0.0394, 583.0, 0.0, 304.0/ DATA subname(253), dif0(253), ar(253), meso(253), lebas(253) / 'ADIPIC_ACID ',0.0483, 2820.0, 0.0, 202.0/ DATA subname(254), dif0(254), ar(254), meso(254), lebas(254) / 'ADIPIC_ACID ',0.0332, 1.1, 0.0, 425.0/ DATA subname(255), dif0(255), ar(255), meso(255), lebas(255) / 'ADIPIC_ACID ',0.0464, 9.6, 0.0, 221.0/ DATA subname(256), dif0(256), ar(256), meso(256), lebas(256) / 'ADIPIC_ACID ',0.0355, 1.0, 0.0, 375.0/ DATA subname(257), dif0(257), ar(257), meso(257), lebas(257) / 'ADIPIC_ACID ',0.0489, 1.0, 0.0, 198.7/ DATA subname(258), dif0(258), ar(258), meso(258), lebas(258) / 'IPNOPERA ',0.0652, 86.6, 0.3, 104.8/ ! VD_IPN DATA subname(259), dif0(259), ar(259), meso(259), lebas(259) / 'IPCOPERA ',0.0687, 1.0, 0.3, 99.3/ ! VD_IPC DATA subname(260), dif0(260), ar(260), meso(260), lebas(260) / 'EBZOPERA ',0.0636, 1.0, 0.0, 122.0/ DATA subname(261), dif0(261), ar(261), meso(261), lebas(261) / 'XYLOPERA ',0.0636, 1.0, 0.0, 122.0/ DATA subname(262), dif0(262), ar(262), meso(262), lebas(262) / 'STYOPERA ',0.0700, 1.0, 0.0, 115.4/ DATA subname(263), dif0(263), ar(263), meso(263), lebas(263) / 'IPXOPERA ',0.0716, 1.0, 0.3, 99.3/ DATA subname(264), dif0(264), ar(264), meso(264), lebas(264) / 'INALDOPERA ',0.0671, 1.0, 0.1, 78.0/ DATA subname(265), dif0(265), ar(265), meso(265), lebas(265) / '2NITRO_1BUTNL ',0.0517,216903., 0.1, 152.2/ ! HONIT CONTAINS C======================================================================= Subroutine INIT_MET ( JDATE, JTIME ) C----------------------------------------------------------------------- C 30 Mar 01 J.Young: dyn alloc - Use HGRD_DEFN; replace INTERP3 with INTERPX; C allocatable RDEPVHT, RJACM, RRHOJ C 14 Nov 03 J.Young: add reciprocal vertical Jacobian product for full and C mid-layer C Tanya took JACOBF out of METCRO3D! Improvise C 31 Jan 05 J.Young: dyn alloc - establish both horizontal & vertical C domain specifications in one module C 16 Feb 11 S.Roselle: replaced I/O API include files with UTILIO_DEFN C 25 Jul 19 D.Wong: used N_SOIL_TYPE defined in LSM_Mod to handle C various number of soil type from different WRF version C----------------------------------------------------------------------- Use UTILIO_DEFN Use LSM_Mod, only : N_SOIL_TYPE Implicit None Include SUBST_FILES_ID ! file name parameters C Arguments: Integer, Intent( IN ) :: JDATE, JTIME ! internal simulation date&time C Local variables: Character( 16 ) :: PNAME = 'INIT_MET' Character( 16 ) :: VNAME CHARACTER( 16 ) :: UNITSCK CHARACTER( 30 ) :: MSG1 = ' Error interpolating variable ' Character( 96 ) :: XMSG = ' ' Integer V Integer ALLOCSTAT C----------------------------------------------------------------------- If( MET_INITIALIZED )Return !> Allocate buffers ALLOCATE ( BUFF1D( NLAYS ), & BUFF2D( NCOLS,NROWS ), & BUFF3D( NCOLS,NROWS,NLAYS ), STAT = ALLOCSTAT ) If ( ALLOCSTAT .Ne. 0 ) Then XMSG = 'Failure allocating Buffers' Call M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) End If BUFF1D = 0.0 BUFF2D = 0.0 BUFF3D = 0.0 !> Allocate shared arrays !> Met_Data ALLOCATE( Met_Data%RDEPVHT ( NCOLS,NROWS ), & Met_Data%DENS1 ( NCOLS,NROWS ), & Met_Data%PRSFC ( NCOLS,NROWS ), & Met_Data%Q2 ( NCOLS,NROWS ), & Met_Data%QSS_GRND ( NCOLS,NROWS ), & Met_Data%RH2 ( NCOLS,NROWS ), & Met_Data%RA ( NCOLS,NROWS ), & Met_Data%RS ( NCOLS,NROWS ), & Met_Data%RC ( NCOLS,NROWS ), & Met_Data%RN ( NCOLS,NROWS ), & Met_Data%RGRND ( NCOLS,NROWS ), & Met_Data%HFX ( NCOLS,NROWS ), & Met_Data%LH ( NCOLS,NROWS ), & Met_Data%SNOCOV ( NCOLS,NROWS ), & Met_Data%TEMP2 ( NCOLS,NROWS ), & Met_Data%TEMPG ( NCOLS,NROWS ), & Met_Data%TSEASFC ( NCOLS,NROWS ), & Met_Data%USTAR ( NCOLS,NROWS ), & Met_Data%VEG ( NCOLS,NROWS ), & Met_Data%LAI ( NCOLS,NROWS ), & Met_Data%WR ( NCOLS,NROWS ), & Met_Data%WSPD10 ( NCOLS,NROWS ), & Met_Data%WSTAR ( NCOLS,NROWS ), & Met_Data%Z0 ( NCOLS,NROWS ), & Met_Data%SOIM1 ( NCOLS,NROWS ), & Met_Data%SOIT1 ( NCOLS,NROWS ), & Met_Data%SEAICE ( NCOLS,NROWS ), & Met_Data%MOL ( NCOLS,NROWS ), & Met_Data%MOLI ( NCOLS,NROWS ), & Met_Data%HOL ( NCOLS,NROWS ), & Met_Data%XPBL ( NCOLS,NROWS ), & Met_Data%LPBL ( NCOLS,NROWS ), & Met_Data%CONVCT ( NCOLS,NROWS ), & Met_Data%PBL ( NCOLS,NROWS ), ! & Met_Data%NACL_EMIS( NCOLS,NROWS ), & Met_Data%COSZEN ( NCOLS,NROWS ), & Met_Data%CFRAC ( NCOLS,NROWS ), & Met_Data%UWIND ( NCOLS+1,NROWS+1,NLAYS ), & Met_Data%VWIND ( NCOLS+1,NROWS+1,NLAYS ), & Met_Data%KZMIN ( NCOLS,NROWS,NLAYS ), & Met_Data%PRES ( NCOLS,NROWS,NLAYS ), & Met_Data%QV ( NCOLS,NROWS,NLAYS ), & Met_Data%QC ( NCOLS,NROWS,NLAYS ), & Met_Data%THETAV ( NCOLS,NROWS,NLAYS ), & Met_Data%TA ( NCOLS,NROWS,NLAYS ), & Met_Data%RH ( NCOLS,NROWS,NLAYS ), & Met_Data%ZH ( NCOLS,NROWS,NLAYS ), & Met_Data%ZF ( NCOLS,NROWS,NLAYS ), & Met_Data%DZF ( NCOLS,NROWS,NLAYS ), & Met_Data%DENS ( NCOLS,NROWS,NLAYS ), & Met_Data%RJACM ( NCOLS,NROWS,NLAYS ), & Met_Data%RJACF ( NCOLS,NROWS,NLAYS ), & Met_Data%RRHOJ ( NCOLS,NROWS,NLAYS ), & STAT = ALLOCSTAT ) If ( ALLOCSTAT .Ne. 0 ) Then XMSG = 'Failure allocating met vars' Call M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) End If ALLOCATE( Grid_Data%DX3F ( NLAYS ), & Grid_Data%RDX3F ( NLAYS ), & Grid_Data%RDX3M ( NLAYS ), & Grid_Data%RMSFX4 ( NCOLS,NROWS ), & Grid_Data%LON ( NCOLS,NROWS ), & Grid_Data%LAT ( NCOLS,NROWS ), & Grid_Data%LWMASK ( NCOLS,NROWS ), & Grid_Data%OCEAN ( NCOLS,NROWS ), & Grid_Data%SZONE ( NCOLS,NROWS ), & Grid_Data%PURB ( NCOLS,NROWS ), & Grid_Data%SLTYP ( NCOLS,NROWS ), & Grid_Data%WSAT ( NCOLS,NROWS ), & Grid_Data%WWLT ( NCOLS,NROWS ), & Grid_Data%WFC ( NCOLS,NROWS ), !We now use WFC whether BIDI is on or off & Grid_Data%CLAY_PX ( NCOLS,NROWS ), & Grid_Data%CSAND_PX ( NCOLS,NROWS ), & Grid_Data%FMSAND_PX ( NCOLS,NROWS ), & Grid_Data%NAME ( n_lufrac ), & Grid_Data%LU_Type ( n_lufrac ), & Grid_Data%LUFRAC ( NCOLS,NROWS,n_lufrac ), & STAT = ALLOCSTAT ) If ( ALLOCSTAT .Ne. 0 ) Then XMSG = 'Failure allocating grid vars' Call M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) End If Grid_Data%NAME = name_lu Grid_Data%LU_Type = cat_lu Grid_Data%WWLT = 0.0 Grid_Data%WSAT = 0.0 Grid_Data%WFC = 0.0 Grid_Data%CLAY_PX = 0.0 Grid_Data%CSAND_PX = 0.0 Grid_Data%FMSAND_PX = 0.0 If ( BIOGEMIS_BEIS ) Then ALLOCATE( Met_Data%SOIT2 ( NCOLS,NROWS ), & STAT = ALLOCSTAT ) If ( ALLOCSTAT .Ne. 0 ) Then XMSG = 'Failure allocating layer 2 soil temperature' Call M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) End If End If If ( ABFLUX .or. BIOGEMIS_MEGAN ) Then ALLOCATE( Met_Data%SOIM2 ( NCOLS,NROWS ), & STAT = ALLOCSTAT ) If ( ALLOCSTAT .Ne. 0 ) Then XMSG = 'Failure allocating layer 2 soil moisture' Call M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) End If END IF If ( ABFLUX .or. HGBIDI ) Then ALLOCATE( Grid_Data%BSLP ( NCOLS,NROWS ), & Grid_Data%WRES ( NCOLS,NROWS ), & STAT = ALLOCSTAT ) If ( ALLOCSTAT .Ne. 0 ) Then XMSG = 'Failure allocating Soil grid vars' Call M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) End If Grid_Data%WRES = 0.0 Grid_Data%BSLP = 0.0 End If !> ccccccccccccccccccccc enable backward compatiblity ccccccccccccccccccccc IF (RCA_AVAIL) THEN vname_rc = 'RCA' Else vname_rc = 'RC' End If IF (RNA_AVAIL) THEN vname_rn = 'RNA' Else vname_rn = 'RN' End If If (UWINDC_AVAIL) Then vname_uc = 'UWINDC' CSTAGUV = .TRUE. Else vname_uc = 'UWIND' CSTAGUV = .FALSE. End If If (VWINDC_AVAIL) Then vname_vc = 'VWINDC' Else vname_vc = 'VWIND' End If If ( .Not. MINKZ ) Then XMSG = 'This run uses Kz0UT, *NOT* KZMIN in subroutine edyintb.' Write( LOGDEV,'(/5X, A, /)' ) XMSG End If #ifndef mpas !> Get sigma coordinate variables Do L = 1, NLAYS Grid_Data%DX3F( L ) = X3FACE_GD( L ) - X3FACE_GD( L-1 ) Grid_Data%RDX3F( L ) = 1.0 / Grid_Data%DX3F( L ) BUFF1D( L ) = 0.5 * ( X3FACE_GD( L ) + X3FACE_GD( L-1 ) ) End Do Do L = 1, NLAYS - 1 Grid_Data%RDX3M( L ) = 1.0 / ( BUFF1D( L+1 ) - BUFF1D( L ) ) End Do Grid_Data%RDX3M( NLAYS ) = 0.0 #endif !> reciprocal of msfx2**2 #ifdef mpas Grid_Data%RMSFX4 = 1.0 Grid_Data%PURB = g2ddata(:,:,purb_ind) Grid_Data%SLTYP = INT( g2ddata(:,:,sltyp_ind) ) Grid_Data%LUFRAC = LUFRAC DO R = 1, NROWS DO C = 1, NCOLS IF (Grid_Data%SLTYP(C,R) <= N_SOIL_TYPE) THEN Grid_Data%WSAT( C,R ) = WSAT( Grid_Data%SLTYP( C,R ) ) Grid_Data%WFC ( C,R ) = WFC ( Grid_Data%SLTYP( C,R ) ) ELSE Grid_Data%WSAT( C,R ) = WSAT( N_SOIL_TYPE ) Grid_Data%WFC ( C,R ) = WFC ( N_SOIL_TYPE ) END IF END DO END DO #else Grid_Data%RMSFX4 = 1.0 / ( MSFX2**2 ) Grid_Data%PURB = PURB Grid_Data%SLTYP = NINT( SOILCAT_A ) Grid_Data%LUFRAC = LUFRAC If ( (ABFLUX .or. HGBIDI .or. BIOGEMIS_MEGAN .or. BIOGEMIS_BEIS) .and. .not. PXSOIL_AVAIL) Then Forall( C = 1:NCOLS, R = 1:NROWS, Grid_Data%SLTYP(C,R) .Le. N_SOIL_TYPE ) Grid_Data%WWLT( C,R ) = WWLT( Grid_Data%SLTYP( C,R ) ) Grid_Data%WSAT( C,R ) = WSAT( Grid_Data%SLTYP( C,R ) ) End Forall End If If (.not. PXSOIL_AVAIL) Then Forall( C = 1:NCOLS, R = 1:NROWS, Grid_Data%SLTYP(C,R) .Le. N_SOIL_TYPE ) Grid_Data%WFC ( C,R ) = WFC ( Grid_Data%SLTYP( C,R ) ) End Forall End If If ( ABFLUX .or. HGBIDI ) Then Forall( C = 1:NCOLS, R = 1:NROWS, Grid_Data%SLTYP(C,R) .Le. N_SOIL_TYPE ) Grid_Data%WRES( C,R ) = WRES( Grid_Data%SLTYP( C,R ) ) Grid_Data%BSLP( C,R ) = BSLP( Grid_Data%SLTYP( C,R ) ) End Forall End If #endif Grid_Data%LON = LON Grid_Data%LAT = LAT Grid_Data%LWMASK = LWMASK Grid_Data%OCEAN = ocean Grid_Data%SZONE = szone MET_INITIALIZED = .true. Return End Subroutine INIT_MET C======================================================================= Subroutine GET_MET ( JDATE, JTIME, TSTEP ) C----------------------------------------------------------------------- C 30 Mar 01 J.Young: dyn alloc - Use HGRD_DEFN; replace INTERP3 with INTERPX; C allocatable RDEPVHT, RJACM, RRHOJ C 14 Nov 03 J.Young: add reciprocal vertical Jacobian product for full and C mid-layer C Tanya took JACOBF out of METCRO3D! Improvise C 31 Jan 05 J.Young: dyn alloc - establish both horizontal & vertical C domain specifications in one module C 16 Feb 11 S.Roselle: replaced I/O API include files with UTILIO_DEFN C----------------------------------------------------------------------- USE GRID_CONF ! horizontal & vertical domain specifications Use UTILIO_DEFN #ifndef mpas #ifdef parallel USE SE_MODULES ! stenex (using SE_COMM_MODULE) #else USE NOOP_MODULES ! stenex (using NOOP_COMM_MODULE) #endif #endif Implicit None Include SUBST_FILES_ID ! file name parameters Include SUBST_PE_COMM ! PE communication displacement and direction C Arguments: Integer, Intent( IN ) :: JDATE, JTIME, TSTEP ! internal simulation date&time C Parameters: Real, Parameter :: cond_min = 1.0 / resist_max ! minimum conductance [m/s] Real, Parameter :: KZMAXL = 500.0 ! upper limit for min Kz [m] Real, Parameter :: KZ0UT = 1.0 ! minimum eddy diffusivity [m**2/sec] KZ0 Real, Parameter :: KZL = 0.01 ! lowest KZ Real, Parameter :: KZU = 1.0 ! 2.0 ! highest KZ Real, Parameter :: EPS = 1.0E-08 ! small number for temperature difference C Local variables: Real FINT Real CPAIR, LV, QST Real TMPFX, TMPVTCON, TST, TSTV Integer LP Integer C, R, L ! loop induction variables Character( 16 ) :: PNAME = 'GET_MET' Character( 16 ) :: VNAME CharactER( 30 ) :: MSG1 = ' Error interpolating variable ' Character( 96 ) :: XMSG = ' ' C----------------------------------------------------------------------- C Interpolate file input variables and format for output C-------------------------------- MET_CRO_3D -------------------------------- call interpolate_var ('ZH', jdate, jtime, Met_Data%ZH) call interpolate_var ('PRES', jdate, jtime, Met_Data%PRES) call interpolate_var ('ZF', jdate, jtime, Met_Data%ZF) call interpolate_var ('DENS', jdate, jtime, Met_Data%DENS) Met_Data%DENS1 = Met_Data%DENS( :,:,1 ) #ifdef mpas Met_Data%RJACM = 1.0 Met_Data%RJACF = 1.0 #else call interpolate_var ('JACOBM', jdate, jtime, Met_Data%RJACM) Met_Data%RJACM = 1.0 / Met_Data%RJACM call interpolate_var ('JACOBF', jdate, jtime, Met_Data%RJACF) Met_Data%RJACF = 1.0 / Met_Data%RJACF #endif call interpolate_var ('DENSA_J', jdate, jtime, Met_Data%RRHOJ) Met_Data%RRHOJ = 1.0 / Met_Data%RRHOJ call interpolate_var ('TA', jdate, jtime, Met_Data%TA) call interpolate_var ('QV', jdate, jtime, Met_Data%QV) call interpolate_var ('QC', jdate, jtime, Met_Data%QC) C-------------------------------- MET_CRO_2D -------------------------------- C Vegetation and surface vars call interpolate_var ('LAI', jdate, jtime, Met_Data%LAI) call interpolate_var ('VEG', jdate, jtime, Met_Data%VEG) call interpolate_var ('ZRUF', jdate, jtime, Met_Data%Z0) C Soil vars #ifdef mpas Met_Data%SOIM1 = smois_data(:,:,1) Met_Data%SOIM2 = smois_data(:,:,2) Met_Data%CLDFRAC = g2ddata(:,:,cfrac2dt_ind) ! for BDSNP soil NO #else call interpolate_var ('SOIM1', jdate, jtime, Met_Data%SOIM1) If ( ABFLUX .or. BIOGEMIS_MEGAN) Then call interpolate_var ('SOIM2', jdate, jtime, Met_Data%SOIM2) End If #endif call interpolate_var ('SOIT1', jdate, jtime, Met_Data%SOIT1) If ( BIOGEMIS_BEIS ) Then call interpolate_var ('SOIT2', jdate, jtime, Met_Data%SOIT2) End If call interpolate_var ('SEAICE', jdate, jtime, Met_Data%SEAICE) C met vars call interpolate_var ('PRSFC', jdate, jtime, Met_Data%PRSFC) call interpolate_var ('RGRND', jdate, jtime, Met_Data%RGRND) call interpolate_var ('SNOCOV', jdate, jtime, Met_Data%SNOCOV) Where( Met_Data%SNOCOV .Lt. 0.0 ) Met_Data%SNOCOV = 0.0 End Where call interpolate_var ('TEMP2', jdate, jtime, Met_Data%TEMP2) call interpolate_var ('TEMPG', jdate, jtime, Met_Data%TEMPG) call interpolate_var ('USTAR', jdate, jtime, Met_Data%USTAR) call interpolate_var ('WSPD10', jdate, jtime, Met_Data%WSPD10) call interpolate_var ('HFX', jdate, jtime, Met_Data%HFX) If ( LH_AVAIL ) Then call interpolate_var ('LH', jdate, jtime, Met_Data%LH) Else ! for backward compatibility call interpolate_var ('QFX', jdate, jtime, Met_Data%LH) End If call interpolate_var ('PBL', jdate, jtime, Met_Data%PBL) ! Update for WRFV4.1+ PX LSM runs that have soil texture in output for ! CMAQ dust scheme. These are initialized to 0 if not present in MCIP. ! DUST_EMIS.F will use table lookup values if 0 (old WRF or other LSMs). If ( PXSOIL_AVAIL ) Then call interpolate_var ('CLAY_PX', jdate, jtime, Grid_Data%CLAY_PX) call interpolate_var ('CSAND_PX', jdate, jtime, Grid_Data%CSAND_PX) call interpolate_var ('FMSAND_PX', jdate, jtime, Grid_Data%FMSAND_PX) call interpolate_var ('WSAT_PX', jdate, jtime, Grid_Data%WSAT) call interpolate_var ('WFC_PX', jdate, jtime, Grid_Data%WFC) call interpolate_var ('WWLT_PX', jdate, jtime, Grid_Data%WWLT) End If C Met_cro_2D variables that have recently changed due to MCIP or WRF/CMAQ call interpolate_var (vname_rn, jdate, jtime, Met_Data%RN) call interpolate_var (vname_rc, jdate, jtime, Met_Data%RC) call interpolate_var ('CFRAC', jdate, jtime, Met_Data%CFRAC) If ( WR_AVAIL ) Then call interpolate_var ('WR', jdate, jtime, Met_Data%WR) End If If ( TSEASFC_AVAIL ) Then call interpolate_var ('TSEASFC', jdate, jtime, Met_Data%TSEASFC) Else Met_Data%TSEASFC = Met_Data%TEMPG End If If ( .not. RA_RS_AVAIL ) Then call interpolate_var ('RADYNI', jdate, jtime, Met_Data%RA) Where( Met_Data%RA .Gt. cond_min ) Met_Data%RA = 1.0/Met_Data%RA Elsewhere Met_Data%RA = resist_max End Where call interpolate_var ('RSTOMI', jdate, jtime, Met_Data%RS) Where( Met_Data%RS .Gt. cond_min ) Met_Data%RS = 1.0 / Met_Data%RS Elsewhere Met_Data%RS = resist_max End Where Else call interpolate_var ('RA', jdate, jtime, Met_Data%RA) call interpolate_var ('RS', jdate, jtime, Met_Data%RS) End If If ( Q2_AVAIL ) Then ! Q2 in METCRO2D call interpolate_var ('Q2', jdate, jtime, Met_Data%Q2) Else Met_Data%Q2 = Met_Data%QV( :,:,1 ) End If Where( Met_Data%TEMPG .Lt. stdtemp ) BUFF2D = vp0 *Exp( 22.514 - ( 6.15e3 / Met_Data%TEMPG ) ) Elsewhere BUFF2D = vp0 *Exp( svp2 * ( Met_Data%TEMPG -stdtemp ) / ( Met_Data%TEMPG -svp3 ) ) End Where Met_Data%QSS_GRND = BUFF2D * 0.622 / ( Met_Data%PRSFC - BUFF2D ) Where( Met_Data%TEMP2 .Lt. stdtemp ) BUFF2D = vp0 *Exp( 22.514 - ( 6.15e3 / Met_Data%TEMP2 ) ) Elsewhere BUFF2D = vp0 *Exp( svp2 * ( Met_Data%TEMP2 -stdtemp ) / ( Met_Data%TEMP2 -svp3 ) ) End Where ! Calculate Relative Humidity at 2m Met_Data%RH2 = Met_Data%Q2 / ( BUFF2D * 0.622 / ( Met_Data%PRSFC - BUFF2D ) ) * 100.0 Where( Met_Data%RH2 .Gt. 100.0 ) Met_Data%RH2 = 100.0 Elsewhere( Met_Data%RH2 .lt. 0.0 ) Met_Data%RH2 = 0.0 End Where ! Calculate 3D Relative Humidity at Grid Scale MET_DATA%RH = MET_DATA%QV * MET_DATA%PRES / ( MET_DATA%QV + 0.622015 ) / & ( 610.94 * EXP( 17.625 * ( MET_DATA%TA - 273.15 ) / & ( MET_DATA%TA - 273.15 + 243.04 ) ) ) MET_DATA%RH = MIN( 0.9999, MAX( 0.001, MET_DATA%RH ) ) #ifndef mpas C-------------------------------- MET_DOT_3D -------------------------------- call interpolate_var (vname_uc, jdate, jtime, Met_Data%UWIND) call interpolate_var (vname_vc, jdate, jtime, Met_Data%VWIND) C get ghost values for wind fields in case of free trop. CALL SUBST_COMM ( Met_Data%UWIND, DSPL_N0_E1_S0_W0, DRCN_E ) CALL SUBST_COMM ( Met_Data%VWIND, DSPL_N1_E0_S0_W0, DRCN_N ) #endif C-------------------------------- Calculated Variables -------------------------------- Met_Data%DZF = Met_Data%ZF - EOSHIFT(Met_Data%ZF, Shift = -1, Boundary = 0.0, Dim = 3) Met_Data%RDEPVHT = 1.0 / Met_Data%ZF( :,:,1 ) IF ( MINKZ ) THEN Met_Data%KZMIN = KZL DO L = 1, NLAYS Where( Met_Data%ZF( :,:,L ) .LE. KZMAXL ) Met_Data%KZMIN( :,:,L ) = KZL + ( KZU - KZL ) * 0.01 * Grid_data%PURB End Where End Do ELSE Met_Data%KZMIN = KZ0UT END IF BUFF3D = Met_Data%TA * ( 1.0 + 0.608 * Met_Data%QV ) Met_Data%THETAV = BUFF3D * ( P0 / Met_Data%PRES ) ** 0.286 #ifdef mpas Met_Data%MOL = 1./g2ddata(:,:,rmol_ind) #endif C------ Updating MOL, then WSTAR, MOLI, HOL DO R = 1, NROWS DO C = 1, NCOLS #ifndef mpas ! CPAIR = 1004.67 * ( 1.0 + 0.84 * Met_Data%QV( C,R,1 ) ) ! J/(K KG) CPAIR = CPD * ( 1.0 + 0.84 * Met_Data%QV( C,R,1 ) ) ! J/(K KG) TMPFX = Met_Data%HFX( C,R ) / ( CPAIR * Met_Data%DENS( C,R,1 ) ) TMPVTCON = 1.0 + 0.608 * Met_Data%QV( C,R,1 ) ! Conversion factor for virtual temperature TST = -TMPFX / Met_Data%USTAR( C,R ) IF ( Met_Data%TA( C,R,1 ) .GT. STDTEMP ) THEN LV = LV0 - ( 0.00237 * ( Met_Data%TA( C,R,1 ) - STDTEMP ) ) * 1.0E6 ELSE LV = 2.83E6 ! Latent heat of sublimation at 0C from Stull (1988) (J/KG) END IF QST = -( Met_Data%LH( C,R ) / LV ) & / ( Met_Data%USTAR( C,R ) * Met_Data%DENS( C,R,1 ) ) TSTV = TST * TMPVTCON + Met_Data%THETAV( C,R,1 ) * 0.608 * QST IF ( ABS( TSTV ) .LT. 1.0E-6 ) THEN TSTV = SIGN( 1.0E-6, TSTV ) END IF Met_Data%MOL( C,R ) = Met_Data%THETAV( C,R,1 ) & * Met_Data%USTAR( C,R ) ** 2 / ( karman * GRAV * TSTV ) #endif IF ( Met_Data%MOL( C,R ) .LT. 0.0 ) THEN Met_Data%WSTAR( C,R ) = Met_Data%USTAR( C,R ) * ( Met_Data%PBL( C,R ) & / ( karman * ABS( Met_Data%MOL( C,R ) ) ) ) ** 0.333333 ELSE Met_Data%WSTAR( C,R ) = 0.0 END IF END DO END DO Met_Data%MOLI = 1.0 / Met_Data%MOL Met_Data%HOL = Met_Data%PBL / Met_Data%MOL C------ Met_Data%CONVCT = .FALSE. DO R = 1, NROWS DO C = 1, NCOLS DO L = 1, NLAYS IF ( Met_Data%PBL( C,R ) .LT. Met_Data%ZF( C,R,L ) ) THEN LP = L; EXIT END IF END DO Met_Data%LPBL( C,R ) = LP #ifndef mpas If ( LP .Eq. 1 ) Then FINT = ( Met_Data%PBL( C,R ) ) & / ( Met_Data%ZF( C,R,LP ) ) Met_Data%XPBL( C,R ) = FINT * ( X3FACE_GD( LP ) - X3FACE_GD( LP-1 ) ) & + X3FACE_GD( LP-1 ) Else FINT = ( Met_Data%PBL( C,R ) - Met_Data%ZF( C,R,LP-1 ) ) & / ( Met_Data%ZF( C,R,LP ) - Met_Data%ZF( C,R,LP-1 ) ) Met_Data%XPBL( C,R ) = FINT * ( X3FACE_GD( LP ) - X3FACE_GD( LP-1 ) ) & + X3FACE_GD( LP-1 ) End If #endif END DO END DO Where( Met_Data%THETAV( :,:,1 ) - Met_Data%THETAV( :,:,2 ) .Gt. EPS .And. & Met_Data%HOL .Lt. -0.02 .And. Met_Data%LPBL .Gt. 3 ) Met_Data%CONVCT = .True. End Where ! Calculate the cosine of the zenith angle CALL CZANGLE(JDATE, JTIME, NCOLS, NROWS ) Return End Subroutine GET_MET End Module ASX_DATA_MOD ================================================ FILE: CCTM/src/vdiff/acm2_m3dry/SEDIMENTATION.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: module sedimentation C Revision History: C 03 Jul 15 J.Young: inital implicit none public sedi private include SUBST_CONST ! constants include SUBST_FILES_ID ! file name parameters real, allocatable, save :: cgrd( :,: ) ! density units real, allocatable, save :: conc( :,: ) ! mixing ratio units #ifdef isam real(8), allocatable, save :: conc_isam( :,:,: ) ! extracted isam mixing ratio units #endif real, allocatable, save :: ldens( : ) ! local density kg m-3 integer, save :: nqae ! number of micro-grams/m**3 species integer, save :: nnae ! number of #/m**3 species integer, save :: nsae ! number of m**2/m**3 species integer, save :: cg_off ! cngrd offset to aero species integer, allocatable, save :: qae( : ) ! cgrd pointer to micro-grams/m**3 species integer, allocatable, save :: nae( : ) ! cgrd pointer to #/m**3 species integer, allocatable, save :: sae( : ) ! cgrd pointer to m**2/m**3 species real, allocatable, save :: molwt( : ) ! only for "qae" species ! integer, save :: odate, otime real conv, fac ! temp var integer ios integer gxoff, gyoff ! global origin offset from file C for interpx integer, save :: strtcolmc3, endcolmc3, strtrowmc3, endrowmc3 integer, allocatable, save :: map_sedi2cgrid( : ) integer, save :: n_sedi_map ! aero species, all modes #ifdef isam integer, save :: n_isam_sedi_map ! isam aero species, all modes integer, allocatable, save :: isam_sedi_map( : ) #endif contains C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: subroutine sedi ( jdate, jtime, dtsec, sedvel, cgrid, cngrd ) C Revision History: C J.Young, J.Pleim: inital C 07 Nov 14 J.Bash: Updated for the ASX_DATA_MOD shared data module. C 05 Mar 15 J.Pleim: correct layer thickness index off by 1 C 15 Jul 15 J.Young: correct sub timestep calculation and apply Martin Otte`s C correction for the first-order upstream sedimentation C 1 Feb 19 David Wong: removed all MY_N clauses C----------------------------------------------------------------------- use cgrid_spcs ! cgrd mechanism species use grid_conf use asx_data_mod use vdiff_map use utilio_defn use vdiff_diag, dtccr => dtccr_mean #ifdef isam use sa_defn #endif implicit none C Arguments: integer, intent( in ) :: jdate, jtime ! real, intent( in ) :: dtsec ! model time step in seconds C grav settling velocity applies only to coarse mode aerosols (J-,K-mode), but the VGS C array is filled for *all* cgrd diffused species. VGS is set to zero for all the non- C coarse mode aerosols. real, intent( out ) :: sedvel( :,:,:,: ) ! grav settling vel. for diagnostic real, pointer :: cgrid ( :,:,:,: ) real, intent( inout ) :: cngrd ( :,:,:,: ) ! cgrid replacement c Parameters: real, parameter :: alpha = 1.1 ! real, parameter :: alpha = 2.0 c External Functions: C Local Variables: character( 120 ) :: xmsg = ' ' character( 16 ), save :: pname = 'SEDI' logical, save :: firstime = .TRUE. real, allocatable, save :: vsed ( :,: ) ! settling vel. real, allocatable, save :: vsed_ae ( :,: ) ! settling vel. real, allocatable, save :: dtsvsed ( :,: ) ! settling vel. factor real, allocatable, save :: sumvsed ( :,: ) ! for diagnostics real, allocatable, save :: rdl ( : ) ! subloop var real, allocatable, save :: rrhodz ( : ) ! reciprocal rho * deltaZ integer, allocatable, save :: sedi_map( : ) integer, allocatable, save :: conc_map( : ) #ifdef isam integer, allocatable, save :: map_sedi_to_isam( : ) real, allocatable, save :: isam_dtsvsed ( : ) ! isam settling vel. factor #endif real adts, dts, rdts real ldt, fs integer off, dtc, iter integer c, r, l, n, s, v integer astat integer mdate, mtime interface ! for external procedures subroutine aero_sedv ( col, row, cgrd, vsed_ae ) integer, intent( in ) :: col, row real, intent( in ) :: cgrd( :,: ) real, intent( out ) :: vsed_ae( :,: ) end subroutine aero_sedv end interface C----------------------------------------------------------------------- if ( firstime ) then firstime = .false. mdate = 0; mtime = 0 c sedi_map - from ae_trns to ae_spc (currently, all ae spc`s are transported) c conc_map - from cgrid to ae_trns species allocate ( sedi_map( n_ae_spc ), & map_sedi2cgrid( n_cgrid_spc ), & conc_map( n_ae_spc ), stat = astat ) if ( astat .ne. 0 ) then xmsg = 'Failure allocating VSED_MAP or CONC_MAP' call m3exit( pname, mdate, mtime, xmsg, xstat1 ) end if #ifdef isam allocate ( isam_sedi_map( nspc_sa_ae ), & map_sedi_to_isam( nspc_sa_ae ), stat = astat ) if ( astat .ne. 0 ) then xmsg = 'Failure allocating map_sedi_to_isam or isam_sedi_map' call m3exit( pname, mdate, mtime, xmsg, xstat1 ) end if isam_sedi_map = 0 map_sedi_to_isam = 0 n_isam_sedi_map = 0 #endif map_sedi2cgrid = 0 off = n_gc_trns cg_off = ae_strt - 1 n_sedi_map = 0 do v = 1, n_ae_spc n = index1( ae_spc( v ), n_ae_trns, ae_trns ) if ( n .gt. 0 ) then n_sedi_map = n_sedi_map + 1 sedi_map( n_sedi_map ) = n map_sedi2cgrid( n_sedi_map ) = n+cg_off conc_map( n_sedi_map ) = diff_map( n + off ) #ifdef isam do s = 1, nspc_sa_ae if( isam_to_aero( s ) .eq. sedi_map( n_sedi_map ) ) then n_isam_sedi_map = n_isam_sedi_map + 1 isam_sedi_map( n_isam_sedi_map ) = sedi_map( n_sedi_map ) map_sedi_to_isam( n_isam_sedi_map ) = sa_aero_indx( s ) end if end do #endif end if end do write( logdev,'( 19x, "SEDI_MAP", 4x, "CONC_MAP" )' ) do v = 1, n_sedi_map write( logdev,* ) v, sedi_map( v ), conc_map( v ) end do #if defined(verbose_isam) && defined(isam) write(logdev,'("ISAM Aerosol Sedimentation Mapping")') write( logdev,'( A4,1X,2(A16,1X),3(A8,1x) )' )" N "," Bulk AERO "," ISAM AERO ", & "SEDI_MAP", "CONC_MAP","MOLE_WGT" do v = 1, n_isam_sedi_map write( logdev,'( I4,1X,2(A16,1X),2(I8,1x),F8.2 )' ) v, ae_spc( isam_sedi_map( v ) ), & isam_spec( map_sedi_to_isam( v ),1 ), isam_sedi_map( v ), map_sedi_to_isam( v ), & CGRID_MW( MAP_SEDI2CGRID(isam_sedi_map( v )) ) end do #endif allocate ( vsed_ae( n_ae_spc,nlays ), stat = astat ) if ( astat .ne. 0 ) then xmsg = 'Failure allocating VSED_AE' call m3exit( pname, mdate, mtime, xmsg, xstat1 ) end if vsed_ae = 0.0 ! array assignment allocate ( cgrd( nlays,size( cgrid,4 ) ), stat = astat ) if ( astat .ne. 0 ) then xmsg = 'Failure allocating CGRD' call m3exit( pname, mdate, mtime, xmsg, xstat1 ) end if allocate ( conc( n_sedi_map,nlays ), & vsed( n_sedi_map,nlays ), & dtsvsed( n_sedi_map,nlays ), stat = astat ) if ( astat .ne. 0 ) then xmsg = 'Failure allocating CONC, VSED, or DTSVSED' call m3exit( pname, mdate, mtime, xmsg, xstat1 ) end if #ifdef isam allocate ( conc_isam( n_isam_sedi_map,nlays,ntag_sa ), & isam_dtsvsed( nlays ), stat = astat ) if ( astat .ne. 0 ) then xmsg = 'Failure allocating CONC0,CONC_ISAM' call m3exit( pname, mdate, mtime, xmsg, xstat1 ) end if #endif conc = 0.0 ! array assignment vsed = 0.0 ! array assignment allocate ( rdl( nlays ), & rrhodz( nlays ), & ldens( nlays ), stat = astat ) if ( astat .ne. 0 ) then xmsg = 'Failure allocating RDL, RRHODZ, or LDENS' call m3exit( pname, mdate, mtime, xmsg, xstat1 ) end if if ( vdiffdiag ) then allocate ( sumvsed( n_ae_spc,nlays ), stat = astat ) if ( astat .ne. 0 ) then xmsg = 'Failure allocating SUMVSED' call m3exit( pname, mdate, mtime, xmsg, xstat1 ) end if end if end if ! if firstime do 345 r = 1, nrows do 344 c = 1, ncols C subset all the layers and species in cgrid for this grid cell do v = 1, size( cgrid,4 ) do l = 1, nlays cgrd( l,v ) = cgrid( c,r,l,v ) end do end do #ifdef isam do v = 1, n_isam_sedi_map n = map_sedi_to_isam( v ) do l = 1, nlays do itag = 1,ntag_sa ! used upper case to not conflict with CCP flag conc_isam( v,l,itag ) = ISAM( c,r,l,n,itag ) end do end do end do #endif do l = 1, nlays #ifdef mpas rdl( l ) = alpha * Met_Data%rjacf( c,r,l ) * inv_cell_thickness(c, r, l) rrhodz( l ) = Met_Data%rrhoj( c,r,l ) * inv_cell_thickness(c, r, l) #else rdl( l ) = alpha * Met_Data%rjacf( c,r,l ) * Grid_Data%rdx3f( l ) rrhodz( l ) = Met_Data%rrhoj( c,r,l ) * Grid_Data%rdx3f( l ) #endif ldens( l ) = Met_Data%dens( c,r,l ) end do if ( vdiffdiag ) then sumvsed = 0.0 ! array assignment end if adts = 0.0; dtc = 0; iter = 0 do while ( adts .lt. dtsec .and. iter .le. 10 ) iter = iter + 1 call aero_sedv( c, r, cgrd, vsed_ae ) if ( vdiffdiag ) sumvsed = sumvsed + vsed_ae ! cgrd -> conc: from density units to mixing ratio units call conv_cgrd( ) do v = 1, n_sedi_map vsed( v,: ) = vsed_ae( sedi_map( v ),: ) end do ! Assess reciprocal of the time step and increase it if ! one of the surrogates shows a very fast sedimentation ! velocity rdts = 1.0 / dtsec do l = 1, nlays do v = 1, n_sedi_map fs = rdl( l ) * vsed( v,l ) if ( rdts .lt. fs ) rdts = fs end do end do dts = 1.0 / rdts ! Add the new time step increment adts = adts + dts if ( adts .gt. dtsec ) then ! don`t overshoot the timestep dts = dtsec - (adts - dts) adts = dtsec end if dtc = dtc + 1 ! Integrate sedimentation velocity change in time do l = 1, nlays ldt = dts * ldens( l ) do v = 1, n_sedi_map dtsvsed( v,l ) = ldt * vsed( v,l ) end do end do ! Important Issue: Are these rrhodz values being applied ! correctly or should they be matched to each layer? ! Apply sedimentation from layer 2 to layer 1, only ! production l = 1 do v = 1, n_sedi_map conc( v,l ) = conc( v,l ) & + dtsvsed( v,l+1 ) * conc( v,l+1 ) * rrhodz( l ) end do #ifdef isam do v = 1, n_isam_sedi_map s = isam_sedi_map( v ) do itag = 1,ntag_sa conc_isam( v,l,itag ) = conc_isam( v,l,itag ) & + dtsvsed( s,l+1 ) * conc_isam( v,l+1,itag ) * rrhodz( l ) end do end do #endif ! Apply production and loss to layers 2 through NZ-1 do l = 2, nlays-1 do v = 1, n_sedi_map conc( v,l ) = conc( v,l ) & + ( dtsvsed( v,l+1 ) * conc( v,l+1 ) & - dtsvsed( v,l ) * conc( v,l ) ) * rrhodz( l ) end do #ifdef isam do v = 1, n_isam_sedi_map s = isam_sedi_map( v ) do itag = 1,ntag_sa conc_isam( v,l,itag ) = conc_isam( v,l,itag ) & + dtsvsed( s,l+1 ) * conc_isam( v,l+1,itag ) * rrhodz( l ) & - dtsvsed( s,l ) * conc_isam( v,l,itag ) * rrhodz( l ) end do end do #endif end do ! Apply only loss to layer NZ l = nlays do v = 1, n_sedi_map conc( v,l ) = conc( v,l ) & - dtsvsed( v,l ) * conc( v,l ) * rrhodz( l ) end do #ifdef isam do v = 1, n_isam_sedi_map s = isam_sedi_map( v ) do itag = 1,ntag_sa conc_isam( v,l,itag ) = conc_isam( v,l,itag ) & - dtsvsed( s,l ) * conc_isam( v,l,itag ) * rrhodz( l ) end do end do #endif ! conc -> cgrd: from mixing ratio units to density units call conv_conc( ) end do ! while if ( vdiffdiag ) then dtccr( c,r ) = real( dtc ) do l = 1, nlays do v = 1, n_ae_spc sedvel( v,l,c,r ) = sumvsed( v,l ) / real( dtc ) end do end do end if do l = 1, nlays do v = 1, n_sedi_map cngrd( conc_map( v ),l,c,r ) = conc( v,l ) end do end do #ifdef isam do v = 1, n_isam_sedi_map n = map_sedi_to_isam( v ) do l = 1, nlays do itag = 1,ntag_sa ! used upper case to not conflict with CCP flag ISAM( c,r,l,n,itag ) = conc_isam( v,l,itag ) end do end do end do #endif #if defined(isam) && defined(verbose_isam) if( c .eq. 1 .and. r .eq. 1 )then write( logdev,'("ISAM Aerosol Sedimentation Results for col and row equal 1")') write( logdev,'( A4,1X,2(A16,1X),2(A12,1x) )' )" N "," Bulk AERO "," ISAM AERO ", & "SUM_BULK ", "SUM_ISAM " do v = 1, n_isam_sedi_map write( logdev,'( I4,1X,2(A16,1X),2(ES12.4,1x) )' ) v, ae_spc( isam_sedi_map( v ) ), & isam_spec( map_sedi_to_isam( v ),1 ), sum( conc( isam_sedi_map( v ),1:nlays ) ), & sum(conc_isam( v,1:nlays,1:ntag_sa )) end do end if #endif 344 continue ! end loop on col C 345 continue ! end loop on row R return end subroutine sedi C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: subroutine conv_cgrd( ) use cgrid_spcs ! cgrd mechanism species use grid_conf ! horizontal & vertical domain specifications use utilio_defn use asx_data_mod use vdiff_map implicit none integer i, l, v ! loop induction variables real FAC1( nlays ) real, parameter :: mwair_si = mwair * 1.0e-3 C----------------------------------------------------------------------- FAC1 = MWAIR_SI / LDENS ! kg m-3 -> m3 mol-1 DO I = 1,N_SEDI_MAP ! Aerosol Mass: ug/m3 -> ppmv IF ( CGRID_MASK_AERO( MAP_SEDI2CGRID(I) ) .AND. & .NOT. CGRID_MASK_NUM( MAP_SEDI2CGRID(I) ) .AND. & .NOT. CGRID_MASK_SRF( MAP_SEDI2CGRID(I) ) ) & CONC( I,: ) = CGRD( :,MAP_SEDI2CGRID(I) ) & *FAC1( : ) / CGRID_MW( MAP_SEDI2CGRID(I) ) ! Aerosol Number: N m-3 -> N mol-1 ! Aerosol Surface Area: m2/m3 -> m2 / mol air IF ( CGRID_MASK_NUM( MAP_SEDI2CGRID(I) ) .OR. & CGRID_MASK_SRF( MAP_SEDI2CGRID(I) ) ) & CONC( I,: ) = CGRD( :,MAP_SEDI2CGRID(I) ) * FAC1( : ) END DO RETURN end subroutine conv_cgrd C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: subroutine conv_conc ( ) use cgrid_spcs ! cgrd mechanism species use grid_conf ! horizontal & vertical domain specifications use vdiff_map implicit none integer i, l, v ! loop induction variables real, parameter :: mwair_si = mwair * 1.0e-3 real fac1( nlays ) C----------------------------------------------------------------------- FAC1 = LDENS / MWAIR_SI ! kg m-3 -> mol m-3 DO I = 1,N_SEDI_MAP ! Aerosol Mass: ug/m3 -> ppmv IF ( CGRID_MASK_AERO( MAP_SEDI2CGRID(I) ) .AND. & .NOT. CGRID_MASK_NUM( MAP_SEDI2CGRID(I) ) .AND. & .NOT. CGRID_MASK_SRF( MAP_SEDI2CGRID(I) ) ) & CGRD( :,MAP_SEDI2CGRID(I) ) = CONC( I,: ) * FAC1( : ) & * CGRID_MW( MAP_SEDI2CGRID(I) ) ! Aerosol Number: N m-3 -> N mol-1 ! Aerosol Surface Area: m2/m3 -> m2 / mol air IF ( CGRID_MASK_NUM( MAP_SEDI2CGRID(I) ) .OR. & CGRID_MASK_SRF( MAP_SEDI2CGRID(I) ) ) & CGRD( :,MAP_SEDI2CGRID(I) ) = CONC( I,: ) * FAC1( : ) END DO RETURN end subroutine conv_conc end module sedimentation ================================================ FILE: CCTM/src/vdiff/acm2_m3dry/VDIFF_DATA.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: MODULE VDIFF_DATA C----------------------------------------------------------------------- C Function: index mapping between CGRID, diffusion, dry dep, and emissions C species C----------------------------------------------------------------------- C global diffusion species INTEGER, SAVE :: N_SPC_DIFF C global dry dep species CHARACTER( 16 ), ALLOCATABLE, SAVE :: DIFF_SPC( : ) END MODULE VDIFF_DATA ================================================ FILE: CCTM/src/vdiff/acm2_m3dry/VDIFF_DIAG.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: module vdiff_diag C diagnostic output of acm2 parameters and sedimentation velocities use runtime_vars use utilio_defn use grid_conf use cgrid_spcs implicit none character( 16 ), save :: vdiff_diag_file = 'VDIFF_DIAG_FILE' integer, save :: n_vdiff integer, save :: n_vsed character( 16 ), allocatable, save :: vsed_name( : ) integer, allocatable, save :: vsed_map( : ) integer, save :: ntics = 0 ! no. of substeps within an output time step C vdiff sub-timestep counter real, allocatable :: nlpcr_mean( :,: ) ! over the output time step TSTEP(1) real, allocatable :: nlpcr_max( :,: ) ! over the output time step TSTEP(1) real, allocatable :: nlpcr_min( :,: ) ! over the output time step TSTEP(1) real, allocatable :: nlpcr_sum( :,: ) ! accumulator C sedi sub-timestep counter real, allocatable :: dtccr_mean( :,: ) ! over the output time step TSTEP(1) real, allocatable :: dtccr_max( :,: ) ! over the output time step TSTEP(1) real, allocatable :: dtccr_min( :,: ) ! over the output time step TSTEP(1) real, allocatable :: dtccr_sum( :,: ) ! accumulator real, allocatable :: cnvct( :,: ) real, allocatable :: vsed_buf( :,:,:,: ) contains function vdiff_diag_init( jdate, jtime, tstep1, grvsetl ) result ( success ) ! Revision History. ! Aug 12,2015 D. Wong: Replaced MYPE with IO_PE_INCLUSIVE for parallel I/O implementation ! Mar 2,2016 D. Wong: Modified the code to handle any combination of two environment ! variables: CTM_GRAV_SETL and VDIFF_DIAG_FILE, in a robust way for ! parallel I/O implementation #ifndef mpas #ifdef parallel use se_modules ! stenex (using SE_UTIL_MODULE) #else use noop_modules ! stenex (using NOOP_UTIL_MODULE) #endif #endif implicit none include SUBST_FILES_ID ! file name parameters logical success integer jdate, jtime, tstep1 logical grvsetl character( 96 ) :: xmsg = ' ' character( 16 ) :: pname = 'vdiff_diag_init' logical ok, add, skip integer i, j, k, v, ios integer, allocatable :: found( : ) #ifndef mpas success = .true. if ( grvsetl ) then n_vdiff = 8 ! nlp's, sedi dtc's, convct, lpbl n_vsed = 6 ! aero sedv allocate( vsed_name( n_vsed ), & vsed_map( n_vsed ), & found( n_vsed ), stat = ios ) if ( ios .ne. 0 ) then xmsg = "ERROR allocating nlp_'s or cnvct" call m3warn( pname, jdate, jtime, xmsg ) success = .false.; return end if vsed_name = ( / 'VNUMACC', 'VNUMCOR', 'VSRFACC', & 'VSRFCOR', 'VMASSJ ', 'VMASSC ' / ) else n_vdiff = 5 n_vsed = 0 end if if ( grvsetl ) then C Create the vsed_map (find the 1st vsed_ae species for each of the 6 surrogate classes) do i = 1, n_vsed found( i ) = -9 end do k = 0 do v = 1, n_ae_depv skip = .true. do i = 1, n_vsed ! search the entire list if ( ae_depv( v ) .eq. vsed_name( i ) ) skip = .false. end do if ( skip ) cycle j = index1( ae_depv( v ), n_vsed, vsed_name ) add = .true. do i = 1, n_vsed ! search the entire list for j if ( j .eq. found( i ) ) then add = .false. end if end do if ( add ) then ! this j is not in the list; add it k = k + 1 found( k ) = j vsed_map( k ) = v end if end do end if if ( io_pe_inclusive ) then C get CONC file header description ok = open3( ctm_conc_1, fsread3, pname ) ok = desc3( ctm_conc_1 ) if ( .not. ok ) then xmsg = 'could not read '// trim( ctm_conc_1 ) call m3warn( pname, jdate, jtime, xmsg ) success = .false.; return end if sdate3d = jdate stime3d = jtime call nextime ( sdate3d, stime3d, tstep1 ) if ( grvsetl ) then nvars3d = n_vsed fdesc3d = ' ' ! array fdesc3d( 1 ) = 'representative coarse aerosol gravitational settling velocities' do v = 1, n_vsed vtype3d( v ) = m3real units3d( v ) = 'm s-1' vname3d( v ) = vsed_name( v ) vdesc3d( v ) = 'gravitational settling velocity' end do ok = open3( ctm_vsed_diag, fsnew3, pname ) if ( .not. ok ) then xmsg = 'could not create '// trim( ctm_vsed_diag ) // ' file' call m3warn( 'vdiff_diag', jdate, jtime, xmsg ) success = .false.; return end if end if nvars3d = n_vdiff nlays3d = 1 fdesc3d = ' ' ! array fdesc3d( 1 ) = 'vdiff diagnostic variables' v = 1 vtype3d( v ) = m3real units3d( v ) = '' vname3d( v ) = 'NLP_MEAN' vdesc3d( v ) = 'mean sub-timestep iteration count' v = v + 1 vtype3d( v ) = m3real units3d( v ) = '' vname3d( v ) = 'NLP_MAX' vdesc3d( v ) = 'max sub-timestep iteration count' v = v + 1 vtype3d( v ) = m3real units3d( v ) = '' vname3d( v ) = 'NLP_MIN' vdesc3d( v ) = 'min sub-timestep iteration count' if ( grvsetl ) then v = v + 1 vtype3d( v ) = m3real units3d( v ) = '' vname3d( v ) = 'SEDI_DTC_MEAN' vdesc3d( v ) = 'mean grav. settling velocity sub-timestep iteration count' v = v + 1 vtype3d( v ) = m3real units3d( v ) = '' vname3d( v ) = 'SEDI_DTC_MAX' vdesc3d( v ) = 'max grav. settling velocity sub-timestep iteration count' v = v + 1 vtype3d( v ) = m3real units3d( v ) = '' vname3d( v ) = 'SEDI_DTC_MIN' vdesc3d( v ) = 'min grav. settling velocity sub-timestep iteration count' end if v = v + 1 vtype3d( v ) = m3real units3d( v ) = '' vname3d( v ) = 'CONVCT' vdesc3d( v ) = 'Convective cell (for ACM2)' v = v + 1 vtype3d( v ) = m3real units3d( v ) = '' vname3d( v ) = 'LPBL' vdesc3d( v ) = 'PBL top sigma layer' ok = open3( ctm_vdiff_diag, fsnew3, pname ) if ( .not. ok ) then xmsg = 'could not create '// trim( ctm_vdiff_diag ) // ' file' call m3warn( pname, jdate, jtime, xmsg ) success = .false.; return end if end if ! io_pe_inclusive allocate ( nlpcr_max( ncols,nrows ), & nlpcr_min( ncols,nrows ), & nlpcr_mean( ncols,nrows ), & nlpcr_sum( ncols,nrows ), & cnvct( ncols,nrows ), stat = ios ) if ( ios .ne. 0 ) then xmsg = "ERROR allocating nlp_'s or cnvct" call m3warn( pname, jdate, jtime, xmsg ) success = .false.; return end if nlpcr_max = 0.0 ! array assignment nlpcr_min = 9.9E30 ! array assignment nlpcr_sum = 0.0 ! array assignment if ( grvsetl ) then allocate ( vsed_buf( ncols,nrows,nlays,n_vsed ), stat = ios ) if ( ios .ne. 0 ) then xmsg = 'ERROR allocating vsed_buf' call m3warn( pname, jdate, jtime, xmsg ) success = .false.; return end if allocate ( dtccr_max( ncols,nrows ), & dtccr_min( ncols,nrows ), & dtccr_mean( ncols,nrows ), & dtccr_sum( ncols,nrows ), stat = ios ) if ( ios .ne. 0 ) then xmsg = "ERROR allocating , sedi dtc's" call m3warn( pname, jdate, jtime, xmsg ) success = .false.; return end if dtccr_max = 0.0 ! array assignment dtccr_min = 9.9E30 ! array assignment dtccr_sum = 0.0 ! array assignment end if #ifdef parallel_io call se_barrier if ( .not. io_pe_inclusive ) then if ( grvsetl ) then if ( .not. open3 ( ctm_vsed_diag, fsread3, pname ) ) then xmsg = 'Could not open ' // trim( ctm_vsed_diag ) call m3exit ( pname, jdate, jtime, xmsg, xstat2 ) end if end if if ( .not. open3 ( ctm_vdiff_diag, fsread3, pname ) ) then xmsg = 'Could not open ' // trim( ctm_vdiff_diag ) call m3exit ( pname, jdate, jtime, xmsg, xstat2 ) end if end if #endif #endif end function vdiff_diag_init end module vdiff_diag ================================================ FILE: CCTM/src/vdiff/acm2_m3dry/VDIFF_MAP.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: MODULE VDIFF_MAP C----------------------------------------------------------------------- C Function: index mapping between CGRID, diffusion, dry dep, and emissions C species C Module depends on prior call to DEPV_INIT to get NDEPV_SPC C Revision History: C 10 Apr 2008 J.Young: initial implementation using subroutine vdiff_map.F C 21 Jun 10 J.Young: convert for Namelist redesign C 16 Feb 11 S.Roselle: replaced I/O API include files with UTILIO_DEFN C 11 May 11 J.Bash: Modified for NH3 bidi component fluxes C 04 Jan 12 J.Young: Initalize char strings with blank padding C----------------------------------------------------------------------- USE VDIFF_DATA C global diffusion species !INTEGER, SAVE :: N_SPC_DIFF C global dry dep species INTEGER, SAVE :: N_SPC_DDEP INTEGER, ALLOCATABLE, SAVE :: DIFF_MAP( : ) ! global diff map to CGRID INTEGER, ALLOCATABLE, SAVE :: DF2DV ( : ) ! map from diff spc to depv spc INTEGER, ALLOCATABLE, SAVE :: DF2EM ( : ) ! map from diff spc to emis spc INTEGER, ALLOCATABLE, SAVE :: DD2DV ( : ) ! map from ddep spc to depv spc INTEGER, ALLOCATABLE, SAVE :: DEPV_MAP( : ) ! global depv map to CGRID INTEGER, ALLOCATABLE, SAVE :: DV2DF ( : ) ! map from depv spc to diff spc ! These Masks Identify the Phase/Nature of Species in The Diffused ! Species Vector LOGICAL, ALLOCATABLE, SAVE :: DIFF_MASK_GAS ( : ) !Gases LOGICAL, ALLOCATABLE, SAVE :: DIFF_MASK_AERO( : ) !Particles LOGICAL, ALLOCATABLE, SAVE :: DIFF_MASK_NUM ( : ) !Particles LOGICAL, ALLOCATABLE, SAVE :: DIFF_MASK_SRF ( : ) !Particles LOGICAL, ALLOCATABLE, SAVE :: DIFF_MASK_NR ( : ) !Non-Reactives LOGICAL, ALLOCATABLE, SAVE :: DIFF_MASK_TRAC( : ) !Tracers CHARACTER( 16 ), ALLOCATABLE, SAVE :: DDEP_SPC( : ) !CHARACTER( 16 ), ALLOCATABLE, SAVE :: DIFF_SPC( : ) CHARACTER( 16 ), ALLOCATABLE, SAVE :: DEPV_SPC( : ) CHARACTER( 16 ), ALLOCATABLE, SAVE :: DV2DF_SPC( : ) REAL, ALLOCATABLE, SAVE :: DIFF_MW ( : ) C component flux output variables INTEGER, PARAMETER :: LCMP = 8 CHARACTER( 16 ), SAVE :: CMPSPC( LCMP ) = ' ' CONTAINS C----------------------------------------------------------------------- FUNCTION VDIFF_MAP_INIT( ) RESULT ( SUCCESS ) USE CGRID_SPCS ! CGRID species number and offsets USE UTILIO_DEFN IMPLICIT NONE C Includes: INCLUDE SUBST_EMISPRM ! Emissions processing control parameters C Arguments: LOGICAL SUCCESS C External Functions: INTEGER, EXTERNAL :: FINDEX C Local variables: CHARACTER( 80 ) :: XMSG ! Message text CHARACTER( 16 ) :: PNAME = 'VDIFF_MAP' INTEGER STRT, FINI INTEGER S, V, N, I, INDX INTEGER ALLOCSTAT LOGICAL LERROR ! Error flag !----------------------------------------------------------------------- SUCCESS = .TRUE. N_SPC_DIFF = N_GC_TRNS + N_AE_TRNS + N_NR_TRNS + N_TR_DIFF ALLOCATE ( DIFF_MAP( N_SPC_DIFF+1 ), & DF2DV( N_SPC_DIFF+1 ), & DIFF_MW( N_SPC_DIFF+1 ), ! & DF2EM( N_SPC_DIFF+1 ), & DIFF_SPC( N_SPC_DIFF+1 ), stat = allocstat ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating DIFF_MAP, DF2DV or DIFF_SPC' CALL M3WARN( PNAME, 0, 0, XMSG ) SUCCESS = .FALSE.; RETURN END IF N_SPC_DDEP = N_GC_DDEP + N_AE_DDEP + N_NR_DDEP + N_TR_DDEP ALLOCATE ( DD2DV( N_SPC_DDEP+1 ), & DDEP_SPC( N_SPC_DDEP+1 ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating DD2DV or DDEP_SPC' CALL M3WARN( PNAME, 0, 0, XMSG ) SUCCESS = .FALSE.; RETURN END IF ALLOCATE ( DEPV_MAP( N_SPC_DEPV+1 ), & DEPV_SPC( N_SPC_DEPV ), & DV2DF( N_SPC_DEPV ), & dv2df_spc( n_spc_depv ), stat = allocstat ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating DEPV_MAP, DEPV_SPC, DV2DF or dv2df_spc' CALL M3WARN( PNAME, 0, 0, XMSG ) SUCCESS = .FALSE.; RETURN END IF ! Populate global maps to CGRID ! Map Diffusion Module Species to Deposition Velocity Species I = 0; S = 0; N = 0 DO V = 1, N_GC_TRNS ! assumes dep.vel species subset of vdif species N = N + 1 INDX = FINDEX( GC_TRNS_MAP( V ), N_GC_DEPV, GC_DEPV_MAP ) IF ( INDX .GT. 0 ) THEN I = I + 1 DF2DV( N ) = S + INDX ELSE DF2DV( N ) = N_SPC_DEPV + 1 END IF END DO S = S + I ! S should now be = N_GC_DEPV I = 0 DO V = 1, N_AE_TRNS N = N + 1 INDX = FINDEX( AE_TRNS_MAP( V ), N_AE_DEPV, AE_DEPV_MAP ) IF ( INDX .GT. 0 ) THEN I = I + 1 DF2DV( N ) = S + INDX ELSE DF2DV( N ) = N_SPC_DEPV + 1 END IF END DO S = S + I ! S should now be = N_GC_DEPV + N_AE_DEPV I = 0 DO V = 1, N_NR_TRNS N = N + 1 INDX = FINDEX( NR_TRNS_MAP( V ), N_NR_DEPV, NR_DEPV_MAP ) IF ( INDX .GT. 0 ) THEN I = I + 1 DF2DV( N ) = S + INDX ELSE DF2DV( N ) = N_SPC_DEPV + 1 END IF END DO S = S + I ! S should now be = N_GC_DEPV + N_AE_DEPV + N_NR_DEPV DO V = 1, N_TR_DIFF N = N + 1 INDX = FINDEX( TR_DIFF_MAP( V ), N_TR_DEPV, TR_DEPV_MAP ) IF ( INDX .GT. 0 ) THEN DF2DV( N ) = S + INDX ELSE DF2DV( N ) = N_SPC_DEPV + 1 END IF END DO ! Map Deposition Velocity Species to Dry Deposition Module Species LERROR = .FALSE. S = 0; V = 0 DO N = 1, N_GC_DDEP V = V + 1 INDX = FINDEX ( GC_DDEP_MAP( N ), N_GC_DEPV, GC_DEPV_MAP ) IF ( INDX .GT. 0 ) THEN DD2DV ( V ) = S + INDX DDEP_SPC( V ) = GC_DDEP( N ) ELSE XMSG = 'ERROR: No deposition velocity for DDEP species ' // & GC_DDEP( N ) CALL M3MESG( XMSG ) LERROR = .TRUE. END IF END DO S = N_GC_DEPV DO N = 1, N_AE_DDEP V = V + 1 INDX = FINDEX ( AE_DDEP_MAP( N ), N_AE_DEPV, AE_DEPV_MAP ) IF ( INDX .GT. 0 ) THEN DD2DV ( V ) = S + INDX DDEP_SPC( V ) = AE_DDEP( N ) ELSE XMSG = 'ERROR: No deposition velocity for DDEP species ' // & AE_DDEP( N ) CALL M3MESG( XMSG ) LERROR = .TRUE. END IF END DO S = N_GC_DEPV + N_AE_DEPV DO N = 1, N_NR_DDEP V = V + 1 INDX = FINDEX ( NR_DDEP_MAP( N ), N_NR_DEPV, NR_DEPV_MAP ) IF ( INDX .GT. 0 ) THEN DD2DV ( V ) = S + INDX DDEP_SPC( V ) = NR_DDEP( N ) ELSE XMSG = 'ERROR: No deposition velocity for DDEP species ' // & NR_DDEP( N ) CALL M3MESG( XMSG ) LERROR = .TRUE. END IF END DO S = N_GC_DEPV + N_AE_DEPV + N_NR_DEPV DO N = 1, N_TR_DEPV V = V + 1 INDX = FINDEX ( TR_DDEP_MAP( N ), N_TR_DEPV, TR_DEPV_MAP ) IF ( INDX .GT. 0 ) THEN DD2DV ( V ) = S + INDX DDEP_SPC( V ) = TR_DDEP( N ) ELSE XMSG = 'ERROR: No deposition velocity for DDEP species ' // & TR_DDEP( N ) CALL M3MESG( XMSG ) LERROR = .TRUE. END IF END DO CMPSPC( 1 ) = 'NH3_Emis' CMPSPC( 2 ) = 'NH3_Flux' CMPSPC( 3 ) = 'NH3_Stom' CMPSPC( 4 ) = 'NH3_Cut ' CMPSPC( 5 ) = 'NH3_Soil' CMPSPC( 6 ) = 'NH3_Ag ' CMPSPC( 7 ) = 'NH3_Nat ' CMPSPC( 8 ) = 'NH3_Wat ' ! Populate Deposition Velocity Map and Species S = 0 DO V = 1, N_GC_DEPV S = S + 1 DEPV_MAP( S ) = GC_STRT - 1 + GC_DEPV_MAP( V ) DEPV_SPC( S ) = GC_SPC( GC_DEPV_MAP( V ) ) END DO DO V = 1, N_AE_DEPV S = S + 1 DEPV_MAP( S ) = AE_STRT - 1 + AE_DEPV_MAP( V ) DEPV_SPC( S ) = AE_SPC( AE_DEPV_MAP( V ) ) END DO DO V = 1, N_NR_DEPV S = S + 1 DEPV_MAP( S ) = NR_STRT - 1 + NR_DEPV_MAP( V ) DEPV_SPC( S ) = NR_SPC( NR_DEPV_MAP( V ) ) END DO DO V = 1, N_TR_DEPV S = S + 1 DEPV_MAP( S ) = TR_STRT - 1 + TR_DEPV_MAP( V ) DEPV_SPC( S ) = TR_SPC( TR_DEPV_MAP( V ) ) END DO ! Populate Diffusion Module Map and Species ALLOCATE( DIFF_MASK_GAS ( N_SPC_DIFF ) ) ALLOCATE( DIFF_MASK_AERO( N_SPC_DIFF ) ) ALLOCATE( DIFF_MASK_NUM( N_SPC_DIFF ) ) ALLOCATE( DIFF_MASK_SRF( N_SPC_DIFF ) ) ALLOCATE( DIFF_MASK_NR ( N_SPC_DIFF ) ) ALLOCATE( DIFF_MASK_TRAC( N_SPC_DIFF ) ) DIFF_MASK_GAS = .FALSE. DIFF_MASK_AERO = .FALSE. DIFF_MASK_NUM = .FALSE. DIFF_MASK_SRF = .FALSE. DIFF_MASK_NR = .FALSE. DIFF_MASK_TRAC = .FALSE. DIFF_MAP = 0 DIFF_SPC = "" DIFF_MW = 0. S = 0 DO V = 1, N_GC_TRNS S = S + 1 DIFF_MAP( S ) = GC_STRT - 1 + GC_TRNS_MAP( V ) DIFF_SPC( S ) = GC_SPC( GC_TRNS_MAP( V ) ) DIFF_MW ( S ) = GC_MOLWT( GC_TRNS_MAP( V ) ) DIFF_MASK_GAS( S ) = .TRUE. END DO DO V = 1, N_AE_TRNS S = S + 1 DIFF_MAP( S ) = AE_STRT - 1 + AE_TRNS_MAP( V ) DIFF_SPC( S ) = AE_SPC( AE_TRNS_MAP( V ) ) DIFF_MW ( S ) = AE_MOLWT( AE_TRNS_MAP( V ) ) DIFF_MASK_AERO( S ) = .TRUE. IF ( INDEX( DIFF_SPC( S ), 'NUM' ) .NE. 0 ) THEN DIFF_MASK_NUM( S ) = .TRUE. END IF IF ( INDEX( DIFF_SPC( S ), 'SRF' ) .NE. 0 ) THEN DIFF_MASK_SRF( S ) = .TRUE. END IF END DO DO V = 1, N_NR_TRNS S = S + 1 DIFF_MAP( S ) = NR_STRT - 1 + NR_TRNS_MAP( V ) DIFF_SPC( S ) = NR_SPC( NR_TRNS_MAP( V ) ) DIFF_MW ( S ) = NR_MOLWT( NR_TRNS_MAP( V ) ) DIFF_MASK_NR( S ) = .TRUE. END DO DO V = 1, N_TR_DIFF S = S + 1 DIFF_MAP( S ) = TR_STRT - 1 + TR_DIFF_MAP( V ) DIFF_SPC( S ) = TR_SPC( TR_DIFF_MAP( V ) ) DIFF_MW ( S ) = TR_MOLWT( TR_DIFF_MAP( V ) ) DIFF_MASK_TRAC( S ) = .TRUE. END DO ! Map Deposition Velocity Species to Diffusion Module Species S = 0; V = 0 DO N = 1, N_GC_DEPV V = V + 1 INDX = FINDEX ( GC_DEPV_MAP( N ), N_GC_TRNS, GC_TRNS_MAP ) IF ( INDX .GT. 0 ) THEN DV2DF ( V ) = S + INDX dv2df_spc( v ) = gc_trns( indx ) ELSE XMSG = 'ERROR: deposition velocity specified for non-diff species ' & // GC_SPC( GC_DEPV_MAP( N ) ) CALL M3MESG( XMSG ) LERROR = .TRUE. END IF END DO S = N_GC_TRNS DO N = 1, N_AE_DEPV V = V + 1 INDX = FINDEX ( AE_DEPV_MAP( N ), N_AE_TRNS, AE_TRNS_MAP ) IF ( INDX .GT. 0 ) THEN DV2DF ( V ) = S + INDX dv2df_spc( v ) = ae_trns( indx ) ELSE XMSG = 'ERROR: deposition velocity specified for non-diff species ' & // AE_SPC( AE_DEPV_MAP( N ) ) CALL M3MESG( XMSG ) LERROR = .TRUE. END IF END DO S = N_GC_TRNS + N_AE_TRNS DO N = 1, N_NR_DEPV V = V + 1 INDX = FINDEX ( NR_DEPV_MAP( N ), N_NR_TRNS, NR_TRNS_MAP ) IF ( INDX .GT. 0 ) THEN DV2DF ( V ) = S + INDX dv2df_spc( v ) = nr_trns( indx ) ELSE XMSG = 'ERROR: deposition velocity specified for non-diff species ' & // NR_SPC( NR_DEPV_MAP( N ) ) CALL M3MESG( XMSG ) LERROR = .TRUE. END IF END DO S = N_GC_TRNS + N_AE_TRNS + N_NR_TRNS DO N = 1, N_TR_DEPV V = V + 1 INDX = FINDEX ( TR_DEPV_MAP( N ), N_TR_DIFF, TR_DIFF_MAP ) IF ( INDX .GT. 0 ) THEN DV2DF ( V ) = S + INDX dv2df_spc( v ) = tr_diff( indx ) ELSE XMSG = 'ERROR: deposition velocity specified for non-diff species ' & // TR_SPC( TR_DEPV_MAP( N ) ) CALL M3MESG( XMSG ) LERROR = .TRUE. END IF END DO ! Check for Errors and Exit IF ( LERROR ) THEN XMSG = '*** Species mapping error(s) in VDIFF_MAP' CALL M3WARN( PNAME, 0, 0, XMSG ) SUCCESS = .FALSE. END IF RETURN END FUNCTION VDIFF_MAP_INIT END MODULE VDIFF_MAP ================================================ FILE: CCTM/src/vdiff/acm2_m3dry/aero_depv.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/CCTM/src/aero/aero5/aero_depv.F,v 1.12 2012/01/19 13:12:14 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C @(#)aero_depv.F 1.3 /project/mod3/CMAQ/src/ae_depv/aero_depv/SCCS/s.aero_depv.F 18 Jun 1997 12:55:48 C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: ! SUBROUTINE AERO_DEPV ( CGRID, JDATE, JTIME, TSTEP, MOSAIC, VDEP_AE ) SUBROUTINE AERO_DEPV ( CGRID, JDATE, JTIME, TSTEP, VDEP_AE ) C----------------------------------------------------------------------- C aerosol dry deposition routine C written 4/9/97 by Dr. Francis S. Binkowski C uses code from modpar and vdvg from the aerosol module. C This routine uses a single block to hold information C for the lowest layer. C NOTES: This version assumes that RA is available on the met file. c Array structure for vector optimization C 26 Apr 97 Jeff - many mods C 13 Dec 97 Jeff - expect uncoupled CGRID, concs as micro-g/m**3, #/m**3 C C 1/11/99 David Wong at LM - change NUMCELLS to CELLNUM in the loop index C FSB 3/17/99 changed to accommodate surface area/second moment and C encapsulated the actual drydep calculation into a subroutine which C is attached to this code C Jeff - Dec 00 - move CGRID_MAP into f90 module C FSB 12/11/2000. Logic added to allow deposition of particles at their C "wet" diameters; that is, accounting for the water on the particles. C This is done by adjusting the third and second moments for the C presence of water assuming that the geometric standard deviations C are not changed by this process. This appears to be a very good C assumption. C 30 Aug 01 J.Young: Dyn alloc; Use HGRD_DEFN C Jan 03 J.Young: Change CGRID dimensions, eliminate re-allocations C 6 Mar 03 J.Young: eliminate a lot of allocate/deallocates C 7 Aug 03 S.Roselle: updated code for loading the min aero conc array C 17 Dec 03 S.Roselle: Adjust 2nd and 3rd moments to include SOA, C without affecting the geometric standard deviations. C 31 Jan 05 J.Young: dyn alloc - establish both horizontal & vertical C domain specifications in one module C 07 Jun 05 P.Bhave: Added code to handle new species in the AE4 C mechanism: ANAI, ANAJ, ANAK, ACLI, ACLJ, ACLK, ASO4K, AH2OK, C and ANO3K; look for ASEAS only when using AE3 mechanism C 30 Jan 08 S.Napelenok & P.Bhave: Added code to handle new SOA species C in AE5; defined DRY aerosol to include nonvolatile SOA spcs C 14 Apr 08 J.Kelly: Added code to handle new species ANH4K and SRFCOR. C Also added code to handle variable coarse mode standard deviation C in AE5 (no longer fixed at 2.2). C 08 Sep 08 P.Bhave: Backward compatibility with AE4 mechanisms C standardized names of all coarse-mode variables C 19 Apr 10 S.Howard: aero re-engineering for modularity C 23 Apr 10 J.Young: replace chem mechanism include files with namelists C 10 Mar 11 S.Howard: Renamed met_data to aeromet_data C 25 Mar 11 S.Roselle: Replaced I/O API include files with UTILIO_DEFN C 20 May 11 D.Schwede: Modified for mosaic C 31 Aug 11 J.Bash: Moved shared mosaic variables to MOSAIC_MOD C 27 Sep 11 David Wong: replaced all run time dynamic arrays with allocatable C arrays to avoid run time memory issue C 08 Jun 12 J.Young: remove full character blank padding for GNU Fortran (GCC) 4.1.2 C 07 Jul 14 B.Hutzell: replaced mechanism include file(s) with fortran module C 07 Nov 14 J.Bash: Updated for the ASX_DATA_MOD shared data module. C May 16 B. Murphy, H. Pye: Updated treatment of aerosol moments C----------------------------------------------------------------------- USE GRID_CONF ! horizontal & vertical domain specifications USE RXNS_DATA ! chemical mechanism data USE CGRID_SPCS ! CGRID mechanism species USE UTILIO_DEFN USE AERO_DATA ! aero variable data USE AEROMET_DATA ! Includes CONST.EXT ! USE Mosaic_Mod, Only: ADEPVJ ! Shared mosaic variables ! Use LSM_Mod, Only: N_LUFRAC USE ASX_DATA_MOD, Only: Met_Data IMPLICIT NONE C Includes: INCLUDE SUBST_FILES_ID ! file name parameters C Arguments REAL, POINTER :: CGRID( :,:,:,: ) INTEGER, INTENT( IN ) :: JDATE ! current model date , coded YYYYDDD INTEGER, INTENT( IN ) :: JTIME ! current model time , coded HHMMSS INTEGER, INTENT( IN ) :: TSTEP ! model time step, coded HHMMSS ! LOGICAL, INTENT( IN ) :: MOSAIC ! use mosaic option REAL, INTENT( OUT ) :: VDEP_AE( :,:,: ) ! surrogate deposition velocities [ m s**-1 ] C Parameters REAL, PARAMETER :: T0 = 288.15 ! [ K ] ! starting standard surface temp. REAL, PARAMETER :: TWO3 = 2.0 / 3.0 INTEGER, PARAMETER :: N_AE_DEP_SPC = 9 ! no. of surrogates for aerosol dry dep velocities C set up species dimension and indices for deposition velocity internal array VDEP INTEGER, PARAMETER :: VDNATK = 1, ! Aitken mode number & VDNACC = 2, ! accumulation mode number & VDNCOR = 3, ! coarse mode number & VDMATK = 4, ! Aitken mode mass & VDMACC = 5, ! accumulation mode mass & VDMCOR = 6, ! coarse mode mass & VDSATK = 7, ! Aitken mode surface area & VDSACC = 8, ! accumulation mode surface area & VDSCOR = 9 ! coarse mode surface area C Local variables: CHARACTER( 16 ) :: VDAE_NAME( N_AE_DEP_SPC )! dep vel surrogate name table DATA VDAE_NAME( 1 ) / 'VNUMATKN' / DATA VDAE_NAME( 2 ) / 'VNUMACC ' / DATA VDAE_NAME( 3 ) / 'VNUMCOR ' / DATA VDAE_NAME( 4 ) / 'VMASSI ' / DATA VDAE_NAME( 5 ) / 'VMASSJ ' / DATA VDAE_NAME( 6 ) / 'VMASSC ' / DATA VDAE_NAME( 7 ) / 'VSRFATKN' / DATA VDAE_NAME( 8 ) / 'VSRFACC ' / DATA VDAE_NAME( 9 ) / 'VSRFCOR ' / INTEGER, ALLOCATABLE, SAVE :: DEPV_SUR( : ) ! pointer to surrogate C Meteorological variables CHARACTER( 16 ), SAVE :: AE_VRSN ! Aerosol version name INTEGER, SAVE :: NCELLS ! number of cells per layer REAL, ALLOCATABLE, SAVE :: XXLSG( :,:,: ) ! log of standard deviation REAL, ALLOCATABLE, SAVE :: DG( :,:,: ) ! geometric mean diameter REAL, ALLOCATABLE, SAVE :: PDENS( :,:,: ) ! particle density REAL, ALLOCATABLE, SAVE :: XLM( :,: ) ! mean free path [ m ] REAL, ALLOCATABLE, SAVE :: AMU( :,: ) ! dynamic viscosity [ kg m**-1 s**-1 ] REAL, ALLOCATABLE, SAVE :: VDEP( :,:,: ) ! deposition velocity [ m/s ] ! REAL, ALLOCATABLE, SAVE :: VDEPJ( :,:,:,: ) ! deposition velocity [ m/s ] REAL M3_WET, M3SUBT, M3_DRY REAL M2_WET, M2_DRY LOGICAL, SAVE :: FIRSTIME = .TRUE. CHARACTER( 16 ), SAVE :: PNAME = 'AERO_DEPV' CHARACTER( 16 ) :: VNAME ! varable name CHARACTER( 96 ) :: XMSG = ' ' INTEGER C, R, V, N, J, IM ! loop counters INTEGER SPC, S ! species loop counter INTEGER ALLOCSTAT INTERFACE SUBROUTINE GETDEP_V ( XLM, AMU, DG, XXLSG, PDENS, & VDEP, N_AE_DEP_SPC ) !VDEPJ, MOSAIC ) REAL, INTENT( IN ) :: XLM( :,: ) ! atmospheric mean free path [ m ] REAL, INTENT( IN ) :: AMU( :,: ) ! atmospheric dynamic viscosity [ kg/(m s) ] REAL, INTENT( IN ) :: DG( :,:,: ) ! geometric mean diameter [ m ] REAL, INTENT( IN ) :: XXLSG( :,:,: ) ! Standard Deviation REAL, INTENT( IN ) :: PDENS( :,:,: ) ! average particle density REAL, INTENT( OUT ) :: VDEP( :,:,: ) ! deposition velocity [ m/s ] !REAL, INTENT( OUT ) :: VDEPJ( :,:,:,: ) ! deposition velocity [ m/s ] for each land use category !LOGICAL, INTENT( IN ) :: MOSAIC INTEGER, INTENT( IN ) :: N_AE_DEP_SPC END SUBROUTINE GETDEP_V END INTERFACE C----------------------------------------------------------------------- IF ( FIRSTIME ) THEN FIRSTIME = .FALSE. NCELLS = NCOLS * NROWS C Allocate arrays ALLOCATE ( XLM( NCOLS,NROWS ), AMU( NCOLS,NROWS ), & DG( NCOLS,NROWS,N_MODE ), XXLSG( NCOLS,NROWS,N_MODE ), & PDENS( NCOLS,NROWS,N_MODE ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating XLM, AMU, DG, XXLSG, or PDENS.' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF ALLOCATE ( VDEP( NCOLS,NROWS,N_AE_DEP_SPC ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating VDEP' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF ALLOCATE ( DEPV_SUR( N_AE_DEPV ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating DEPV_SUR' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF C Set the dep vel surrogate pointers DO V = 1, N_AE_DEPV N = INDEX1( AE_DEPV( V ), N_AE_DEP_SPC, VDAE_NAME ) IF ( N .NE. 0 ) THEN DEPV_SUR( V ) = N ELSE XMSG = 'Could not find ' // AE_DEPV( V ) // ' in aerosol' // & ' surrogate table. >>> Dep vel set to zero <<< ' CALL M3WARN( PNAME, JDATE, JTIME, XMSG ) DEPV_SUR( V ) = 0 END IF END DO END IF ! FIRSTIME IF ( N_AE_SPC .LE. 0 ) RETURN cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C Put the grid cell physical data in the block arrays cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc DO R = 1, NROWS DO C = 1, NCOLS C *** Set meteorological data for the grid cell. AIRDENS = Met_Data%DENS1( C,R ) AIRTEMP = Met_Data%TEMP2( C,R ) AIRPRES = Met_Data%PRSFC( C,R ) C *** extract grid cell concentrations of aero species from CGRID C into aerospc_conc in aero_data module C Also determines second moment from surface area and adds wet C species #ifdef sens CALL EXTRACT_AERO( CGRID( C,R,1,: ), .TRUE., CGRID( C,R,:,: ), .FALSE. ) #else CALL EXTRACT_AERO( CGRID( C,R,1,: ), .TRUE. ) #endif C *** Calculate geometric mean diameters and standard deviations of the C "wet" size distribution CALL GETPAR( .FALSE. ) C Calculate mean free path [ m ]: XLM( C,R ) = 6.6328E-8 * STDATMPA * AIRTEMP / ( T0 * AIRPRES ) C *** Calculate dynamic viscosity [ kg m-1 s-1 ]: AMU( C,R ) = 1.458E-6 * AIRTEMP * SQRT( AIRTEMP ) & / ( AIRTEMP + 110.4 ) DO IM = 1,N_MODE C Save getpar values to arrays XXLSG( C,R,IM ) = AEROMODE_LNSG( IM ) DG( C,R,IM ) = AEROMODE_DIAM( IM ) PDENS( C,R,IM ) = AEROMODE_DENS( IM ) END DO END DO ! Column LOOP END DO ! Row LOOP C *** Get dry deposition velocities: CALL GETDEP_V ( XLM, AMU, DG, XXLSG, PDENS, & VDEP, N_AE_DEP_SPC ) !VDEPJ, MOSAIC ) C Return dry deposition velocities for aerosols (first layer only). DO R = 1, NROWS DO C = 1, NCOLS DO V = 1, N_AE_DEPV IF ( DEPV_SUR( V ) .GT. 0 ) THEN VDEP_AE( V,C,R ) = VDEP( C,R,DEPV_SUR( V ) ) ELSE VDEP_AE( V,C,R ) = 0.0 END IF END DO END DO END DO RETURN END SUBROUTINE AERO_DEPV C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE GETDEP_V ( XLM, AMU, DG, XXLSG, PDENS, & VDEP, N_AE_DEP_SPC ) !, VDEPJ, MOSAIC ) C *** Calculate deposition velocity for Aitken, accumulation, and C coarse modes. C Reference: C Binkowski F. S., and U. Shankar, The regional particulate C model 1. Model description and preliminary results. C J. Geophys. Res., 100, D12, 26191-26209, 1995. C May 05 D.Schwede: added impaction term to coarse mode dry deposition C 25 May 05 J.Pleim: Updated dry dep velocity calculation for aerosols C to Venkatram and Pleim (1999) C 20 Jul 05 J.Pleim: Changed impaction term using modal integration of C Stokes**2 / 400 (Giorgi, 1986, JGR) C 14 Apr 08 J.Kelly: Added code to calculate deposition velocity of C coarse surface area and to account for variable C standard deviation of the coarse mode. C 08 Sep 08 P.Bhave: Backward compatibility with AE4 mechanisms C standardized names of all coarse-mode variables C 29 Aug 18 J.Pleim: Revised formulation of dry deposition impaction term C so that it integrates the affect of mode width in the C Stokes number via the settling velocity rather than C adjusting the impaction term magnitude directly at the C end. This change is believed to resolve massive C overprediction of deposition velocity for coarse-mode C particles. Changed Stokes # to be more representative C of vegetated surfaces as suggested by Slinn (1982) and C Giorgi (1986), changed impaction term according to Slinn C (1982), and added scaling of diffusion layer resistance C (Rd) by LAI for vegetated fraction of grid cell. Developed C based on analysis by Qian Shu, University of Florida. C Feb2022 J.Pleim: Revised aerosol dry deposition model as described in Pleim et al, (2022) C Note that this version only works for NLCD40, MODIS20 or USGS24 C----------------------------------------------------------------------- USE GRID_CONF, Only: ncols, nrows USE AEROMET_DATA ! Includes CONST.EXT USE ASX_DATA_MOD, Only: Met_Data, Grid_Data !, Mosaic_Data USE AERO_DATA, Only: N_MODE Use LSM_Mod, Only: N_LUFRAC USE UTILIO_DEFN USE RUNTIME_VARS, ONLY: LOGDEV IMPLICIT NONE CHARACTER( 96 ) :: XMSG = ' ' C *** input arguments INTEGER, INTENT( IN ) :: N_AE_DEP_SPC C atmospheric properties REAL, INTENT( IN ) :: XLM( :,: ) ! atmospheric mean free path [ m ] REAL, INTENT( IN ) :: AMU( :,: ) ! atmospheric dynamic viscosity [ kg/(m s) ] C aerosol properties: C modal diameters: [ m ] REAL, INTENT( IN ) :: DG( :,:,: ) C log of modal geometric standard deviations REAL, INTENT( IN ) :: XXLSG( :,:,: ) C average modal particle densities [ kg m-3 ] REAL, INTENT( IN ) :: PDENS( :,:,: ) C *** output arguments ! deposition velocity [ m/s ] REAL, INTENT( OUT ) :: VDEP( :,:,: ) C *** array indices hardcoded to match SUBROUTINE AERO_DEPV INTEGER, PARAMETER, DIMENSION( 3 ) :: & VDN = (/ 1,2,3 /) , & VDM = (/ 4,5,6 /) , & VDS = (/ 7,8,9 /) C modal Knudsen number REAL KN C modal particle diffusivities for number, 2nd, and 3rd moment, or mass: REAL DCHAT0 REAL DCHAT2 REAL DCHAT3 C modal sedimentation velocities for number, 2nd, and 3rd moment, or mass: REAL VGHAT0 REAL VGHAT2 REAL VGHAT3 INTEGER NCELL, J, C, R, IM REAL DCONST, DCONST1 REAL DCONST2, DCONST3 REAL SC0 ! Schmidt numbers for number REAL SC2 ! Schmidt numbers for 2nd moment REAL SC3 ! Schmidt numbers for 3rd moment REAL STOKE2 ! Stokes numbers for each mode squared REAL RD0 ! canopy resistance for number REAL RD2 ! canopy resistance for 2nd moment REAL RD3 ! canopy resisteance for 3rd moment REAL UTSCALE ! scratch function of USTAR and WSTAR REAL NU ! kinematic viscosity [ m2 s-1 ] REAL STOKEFAC ! scratch function of USTAR, NU, and GRAV REAL, PARAMETER :: BHAT = 1.246 ! Constant from Cunningham slip correction REAL, PARAMETER :: THREEPI = 3.0 * PI REAL, PARAMETER :: TWO3 = 2.0 / 3.0 C Scalar variables for VARIABLE standard deviations. REAL L2SG REAL E1 ! mode exp( log^2( sigmag )/8 ) REAL ES04 ! " **4 REAL ES08 ! " **8 REAL ES12 ! " **12 REAL ES16 ! " **16 REAL ES20 ! " **20 REAL ES28 ! " **28 REAL ES32 ! " **32 REAL ES36 ! " **36 REAL ES48 ! " **48 REAL ES64 ! " **64 REAL ES128 ! " **128 REAL ES160 ! " **160 REAL ESM12 ! " **(-12) REAL ESM16 ! " **(-16) REAL ESM20 ! " **(-20) REAL ESM32 ! " **(-32) REAL EIM ! Impaction efficiency REAL TWOXLM C Data for new impaction term (Pleim et al 2022) REAL, PARAMETER :: Fhair1 = 0.008 REAL, PARAMETER :: Fhair2 = 0.002 ! for grass REAL, PARAMETER :: Ahair1 = 0.5e-6 ! micro obstacle size for needleaf and grass REAL, PARAMETER :: Ahair2 = 1.0e-6 ! micro obstacle size for other LU REAL Aleaf,Ahair,Fneedle,fveg,fnv,Ustfac,laicr,BAI,Fhair,Fgrass REAL U10,SST,awc,bwc,alfbob,Ewc ! for whitecap effects REAL STOKEFAC1,STOKEFAC2,Eb,Eim1,Eim2,Vdv,Vdnv,Stoke C leaf-scale characteristic length (mm) by LU C the 40 categories are for NLCD40 and first 20 are for MODIS20 REAL, DIMENSION(40) :: Aleaf_lu,BAI_lu DATA Aleaf_lu ! mm > / 2.0, 10.0, 2.0, 10.0, 5.0, > 3.0, 2.0, 3.0, 3.0, 0.5, > 3.0, 4.0, 5.0, 1.0, 1.0, > 0.5, 1.0, 2.0, 1.0, 1.0, > 1.0, 1.0, 5.0, 5.0, 5.0, > 5.0, 0.5, 10.0, 2.0, 5.0, > 2.0, 2.0, 0.5, 1.0, 1.0, > 1.0, 0.5, 4.0, 5.0, 3.0 / DATA BAI_lu > / 1.0, 1.0, 1.0, 1.0, 1.0, > 1.0, 1.0, 1.0, 1.0, 1.0, > 1.0, 1.0, 2.0, 1.0, 1.0, > 1.0, 1.0, 1.0, 1.0, 1.0, > 1.0, 1.0, 1.0, 1.8, 2.0, > 2.3, 1.0, 1.0, 1.0, 1.0, > 1.0, 1.0, 1.0, 1.0, 1.0, > 1.0, 1.0, 1.0, 1.0, 1.0 / C For USGS24 REAL, DIMENSION(24) :: Aleaf_lu24,BAI_lu24 DATA Aleaf_lu24 ! mm > / 5.0, 4.0, 4.0, 4.0, 2.0, > 5.0, 0.5, 2.0, 1.0, 3.0, > 10.0, 2.0, 10.0, 2.0, 5.0, > 1.0, 3.0, 5.0, 0.5, 2.0, > 4.0, 3.0, 1.0, 1.0 / DATA BAI_lu24 > / 2.0, 1.0, 1.0, 1.0, 1.0, > 1.0, 1.0, 1.0, 1.0, 1.0, > 1.0, 1.0, 1.0, 1.0, 1.0, > 1.0, 1.0, 1.0, 1.0, 1.0, > 1.0, 1.0, 1.0, 1.0 / C----------------------------------------------------------------------- VDEP = 0.0 ! array assignment DO IM = 1,N_MODE DO R = 1,NROWS DO C = 1,NCOLS C *** Calculate Knudsen numbers TWOXLM = XLM( C,R ) + XLM( C,R ) KN = TWOXLM / DG( C,R,IM ) C *** Calculate functions of variable standard deviation. L2SG = XXLSG( C,R,IM ) ** 2 E1 = EXP( 0.125 * L2SG ) ES04 = E1 ** 4 ES08 = ES04 * ES04 ES12 = ES04 * ES08 ES16 = ES08 * ES08 ES20 = ES16 * ES04 ES28 = ES20 * ES08 ES32 = ES16 * ES16 ES36 = ES16 * ES20 ES48 = ES36 * ES12 ES64 = ES32 * ES32 ES128= ES64 * ES64 ES160= ES128* ES32 C *** calculate inverses: ESM12 = 1.0 / ES12 ESM16 = 1.0 / ES16 ESM20 = 1.0 / ES20 ESM32 = 1.0 / ES32 DCONST = BOLTZMANN * Met_Data%TEMP2( C,R ) / ( THREEPI * AMU( C,R ) ) DCONST1 = DCONST / DG( C,R,IM ) DCONST2 = GRAV / ( 18.0 * AMU( C,R ) ) DCONST3 = DCONST2 * PDENS( C,R,IM ) * DG( C,R,IM ) * DG( C,R,IM ) C Calculate characteristic parameters DCHAT0 = DCONST1 * ( ES04 + BHAT * KN * ES16 ) DCHAT2 = DCONST1 * ( ESM12 + BHAT * KN * ESM16 ) DCHAT3 = DCONST1 * ( ESM20 + BHAT * KN * ESM32 ) VGHAT0 = DCONST3 * ( ES16 + BHAT * KN * ES04 ) VGHAT2 = DCONST3 * ( ES48 + BHAT * KN * ES20 ) VGHAT3 = DCONST3 * ( ES64 + BHAT * KN * ES28 ) ! Set scale parameters for 2-term impaction by LU - For USGS24 Aleaf = 0.0 BAI = 0.0 if (n_lufrac .eq. 24) Then Do j = 1, n_lufrac If ( GRID_DATA%LUFRAC( c,r,j ) .Gt. 0.0 ) Then Aleaf = Aleaf + Aleaf_lu24(j) * GRID_DATA%LUFRAC( c,r,j ) BAI = BAI + BAI_lu24(j) * GRID_DATA%LUFRAC( c,r,j ) endif enddo else ! Set scale parameters for 2-term impaction by LU - For NLCD40 or MODIS20 Do j = 1, n_lufrac If ( GRID_DATA%LUFRAC( c,r,j ) .Gt. 0.0 ) Then Aleaf = Aleaf + Aleaf_lu(j) * GRID_DATA%LUFRAC( c,r,j ) BAI = BAI + BAI_lu(j) * GRID_DATA%LUFRAC( c,r,j ) endif enddo endif Aleaf = Aleaf * 1.e-3 ! mm to m If (n_lufrac .eq. 40) Then Fgrass = GRID_DATA%LUFRAC( c,r,10 ) !Modis grass & + GRID_DATA%LUFRAC( c,r,33 ) !NLCD grass Fneedle = GRID_DATA%LUFRAC( c,r,1 ) !Modis Evergreen Needleleaf & + GRID_DATA%LUFRAC( c,r,3 ) !Modis Deciduous Needleleaf & + GRID_DATA%LUFRAC( c,r,29 ) !NLCD Evergreen Forest & + Fgrass else If(n_lufrac .eq. 20) Then Fgrass = GRID_DATA%LUFRAC( c,r,10 ) !Modis grass Fneedle = GRID_DATA%LUFRAC( c,r,1 ) !Modis Evergreen Needleleaf & + GRID_DATA%LUFRAC( c,r,3 ) !Modis Deciduous Needleleaf & + Fgrass else if(n_lufrac .eq. 24) Then Fgrass = GRID_DATA%LUFRAC( c,r,7 ) !USGS grass & + 0.5 * GRID_DATA%LUFRAC( c,r,5 ) !USGS Grassland/Cropland Mosaic Fneedle = GRID_DATA%LUFRAC( c,r,14 ) !USGS Evergreen Needleleaf & + GRID_DATA%LUFRAC( c,r,12 ) !USGS Deciduous Needleleaf & + Fgrass else XMSG = 'LU scheme not supported in new aero_depv' CALL M3EXIT( 'aero_depv', 0, 0, XMSG, XSTAT1 ) endif Ahair = Ahair2 * (1-Fneedle) + Ahair1 * Fneedle Fhair = Fhair1 * (1-Fgrass) + Fhair2 * Fgrass ! Different formulations for vegetated and non-vegetated parts fveg = Met_Data%VEG(C,R) IF ( NINT(GRID_DATA%LWMASK( c,r )).eq.0) fveg = 0.0 LAIcr = max(Met_Data%LAI(C,R),1.0) fnv = 1.-fveg ! if(c.eq.1.and.r.eq.1) Write(Logdev,*) ! > ' Aleaf,Ahair,fveg,fnv,fneedle=',Aleaf,Ahair,fveg,fnv,fneedle ! For water include effects of whitecaps - Hummelshoj et al. (1992) IF ( NINT(GRID_DATA%LWMASK( c,r )) .EQ. 0 .AND. MET_DATA%SEAICE(c,r) & .LE. 0.5 ) Then U10 = Met_Data%WSPD10(C,R) SST = Met_Data%TSEASFC(C,R) - 273.15 ! C awc = 8.46e-5 + 1.63e-6 * SST - 3.35e-8 * SST**2 bwc = 3.354 - 0.062 * SST alfbob = awc*(u10+bwc)**2 ! Albert 2016 with SST deg-C Ewc = alfbob*Met_Data%USTAR( C,R )/u10 ENDIF C now calculate the deposition velocities NU = AMU( C,R ) / Met_Data%DENS1( C,R ) USTFAC = Met_Data%USTAR( C,R ) ** 2 / ( GRAV * NU ) STOKEFAC1 = Met_Data%USTAR( C,R ) / (GRAV * Aleaf) STOKEFAC2 = Met_Data%USTAR( C,R ) / (GRAV * Ahair) C first do 0th moment for the deposition of number SC0 = NU / DCHAT0 IF ( NINT(GRID_DATA%LWMASK( c,r )) .EQ. 0 .AND. MET_DATA%SEAICE(c,r) & .LE. 0.5 .AND. SST .GT. -31.) then Eb = (1-alfbob) * SC0 ** ( -TWO3 )/3. + Ewc ELSE Eb = SC0 ** ( -TWO3 )/3. ENDIF ! Vegetated land Vdv = 0.0 IF ( ( NINT(GRID_DATA%LWMASK( c,r )) .NE. 0 ) .AND. ( fveg.GT. 0.001 ) ) THEN STOKE2 = (STOKEFAC1 * VGHAT0)**2 EIM1 = (1-Fhair)*STOKE2 / (1.0 + STOKE2) STOKE2 = (STOKEFAC2 * VGHAT0)**2 EIM2 = Fhair*STOKE2 / (1.0 + STOKE2) EIM = EIM1 + EIM2 RD0 = 1.0 / ( Met_Data%USTAR( C,R )*laicr * ( Eb + EIM ) ) Vdv = VGHAT0 / ( 1.0 - EXP( -VGHAT0 * ( Met_Data%RA( C,R ) + RD0 ) ) ) endif ! Non-vege part Vdnv=0.0 if(fnv.gt. 0.001) Then Stoke = USTFAC * VGHAT0 Eim = 10.**(-3./Stoke) RD0 = 1.0 / ( Met_Data%USTAR( C,R )*BAI*(Eb + EIM ) ) Vdnv = VGHAT0 / ( 1.0 - EXP( -VGHAT0 * ( Met_Data%RA( C,R ) + RD0 ) ) ) endif VDEP( C,R,VDN( IM ) ) = fveg*Vdv + fnv*Vdnv C now do 2nd moment for the deposition of surface area SC2 = NU / DCHAT2 IF ( NINT(GRID_DATA%LWMASK( c,r )) .EQ. 0 .AND. MET_DATA%SEAICE(c,r) & .LE. 0.5 .AND. SST .GT. -31.) then Eb = (1-alfbob) * SC2 ** ( -TWO3 )/3. + Ewc ELSE Eb = SC2 ** ( -TWO3 )/3. ENDIF ! Vegetated land Vdv = 0.0 IF ( ( NINT(GRID_DATA%LWMASK( c,r )) .NE. 0 ) .AND. ( fveg.GT. 0.0 ) ) THEN STOKE2 = (STOKEFAC1 * VGHAT2)**2 EIM1 = (1-Fhair)*STOKE2 / (1.0 + STOKE2) STOKE2 = (STOKEFAC2 * VGHAT2)**2 EIM2 = Fhair*STOKE2 / (1.0 + STOKE2) EIM = EIM1 + EIM2 RD2 = 1.0 / ( Met_Data%USTAR( C,R )*laicr * ( Eb + EIM ) ) Vdv = VGHAT2 & / ( 1.0 - EXP( -VGHAT2 * ( Met_Data%RA( C,R ) + RD2 ) ) ) endif ! Non-vege part Vdnv=0.0 if(fnv.gt. 0.001) Then Stoke = USTFAC * VGHAT2 Eim = 10.**(-3./Stoke) RD2 = 1.0 / ( Met_Data%USTAR( C,R )*BAI*(Eb + EIM ) ) Vdnv = VGHAT2 / ( 1.0 - EXP( -VGHAT2 * ( Met_Data%RA( C,R ) + RD2 ) ) ) endif VDEP( C,R,VDS( IM ) ) = fveg*Vdv + fnv*Vdnv C now do 3rd moment for the deposition of mass SC3 = NU / DCHAT3 IF ( NINT(GRID_DATA%LWMASK( c,r )) .EQ. 0 .AND. MET_DATA%SEAICE(c,r) & .LE. 0.5 .AND. SST .GT. -31.) then Eb = (1-alfbob) * SC3 ** ( -TWO3 )/3. + Ewc ELSE Eb = SC3 ** ( -TWO3 )/3. ENDIF ! Vegetated land Vdv = 0.0 IF ( ( NINT(GRID_DATA%LWMASK( c,r )) .NE. 0 ) .AND. ( fveg.GT. 0.0 ) ) THEN STOKE2 = (STOKEFAC1 * VGHAT3)**2 EIM1 = (1-Fhair)*STOKE2 / (1.0 + STOKE2) STOKE2 = (STOKEFAC2 * VGHAT3)**2 EIM2 = Fhair*STOKE2 / (1.0 + STOKE2) EIM = EIM1 + EIM2 RD3 = 1.0 / ( Met_Data%USTAR( C,R )*laicr * ( Eb + EIM ) ) Vdv = VGHAT3 & / ( 1.0 - EXP( -VGHAT3 * ( Met_Data%RA( C,R ) + RD3 ) ) ) endif ! Non-vege part Vdnv=0.0 if(fnv.gt. 0.001) Then Stoke = USTFAC * VGHAT3 Eim = 10.**(-3./Stoke) RD3 = 1.0 / ( Met_Data%USTAR( C,R )*BAI*(Eb + EIM ) ) Vdnv = VGHAT3 & / ( 1.0 - EXP( -VGHAT3 * ( Met_Data%RA( C,R ) + RD3 ) ) ) endif VDEP( C,R,VDM( IM ) ) = fveg*Vdv + fnv*Vdnv END DO ! end loop on C END DO ! end loop on R END DO ! aerosol mode RETURN END SUBROUTINE GETDEP_V ================================================ FILE: CCTM/src/vdiff/acm2_m3dry/aero_sedv.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: subroutine aero_sedv ( col, row, cgrd, vsed_ae ) C----------------------------------------------------------------------- C Get accum. and coarse mode grav. settling vel C used Binkowski`s aerosol dry deposition routine as a guide C 08 Feb 13 J.Young: initial C 20 Jun 14 J.Young: restructure C 22 Oct 14 J.Bash: replaced P0 with STDATMPA from CONST.EXT and shared C variables in the asx_data_mod C May 2015 B. Murphy, H. Pye: Updated treatment of aerosol moments C----------------------------------------------------------------------- use grid_conf ! horizontal & vertical domain specifications use cgrid_spcs ! CGRID mechanism species use utilio_defn use asx_data_mod, Only: Met_Data use aero_data ! aero variable data use aeromet_data ! Includes CONST.EXT implicit none C Includes: C Arguments integer, intent( in ) :: col, row real, intent( in ) :: cgrd( :,: ) ! cgrid subsection (layers,species) real, intent( out ) :: vsed_ae( :,: ) ! settling velocities [ m/s ] C Parameters real, parameter :: t0 = 288.15 ! [ K ] ! starting standard surface temp. real, parameter :: two3 = 2.0 / 3.0 integer, parameter :: n_ae_sed_spc = 6 ! no. of surrogates for aero settling velocities C set up species indices for settling velocity internal array vsed integer, parameter :: vgnacc = 1, ! accumulation mode number & vgncor = 2, ! coarse mode number & vgsacc = 3, ! accumulation mode surface area & vgscor = 4, ! coarse mode surface area & vgmacc = 5, ! accumulation mode mass & vgmcor = 6 ! coarse mode mass C Local variables: C follow the Namelist dep vel surrogate name table character( 16 ) :: vgae_name( n_ae_sed_spc ) = ! grav. settling vel surrogate table & (/ 'VNUMACC', & 'VNUMCOR', & 'VSRFACC', & 'VSRFCOR', & 'VMASSJ ', & 'VMASSC ' /) integer, allocatable, save :: sedi_sur( : ) ! pointer to surrogate real, allocatable, save :: xxlsgac( : ) ! log of stnd dev real, allocatable, save :: xxlsgco( : ) real, allocatable, save :: dgacc ( : ) ! geometric mean diameter real, allocatable, save :: dgcor ( : ) real, allocatable, save :: pdensac( : ) ! particle density real, allocatable, save :: pdensco( : ) real, allocatable, save :: xlm ( : ) ! mean free path [ m ] real, allocatable, save :: amu ( : ) ! dynamic viscosity [ kg/m/s ] real, allocatable, save :: vsed ( :,: ) ! grav settling velocity [ m/s ] real m2_wet, m2_dry real m3_wet, m3subt, m3_dry logical, save :: firstime = .true. character( 16 ), save :: pname = 'AERO_SEDI' character( 16 ) :: vname ! variable name character( 96 ) :: xmsg = ' ' integer l, v, n, j ! loop counters integer spc, s ! species loop counter integer astat integer :: jdate = 0, jtime = 0 interface subroutine get_sedv ( xlm, amu, & dgacc, dgcor, & xxlsgac, xxlsgco, & pdensac, pdensco, & vsed ) real, intent( in ) :: xlm ( : ) ! atmos mean free path [ m ] real, intent( in ) :: amu ( : ) ! atmos dynamic viscosity [ kg/(m s) ] real, intent( in ) :: dgacc ( : ) ! accum mode geom mean diameter [ m ] real, intent( in ) :: dgcor ( : ) ! coarse mode geom mean diameter [ m ] real, intent( in ) :: xxlsgac( : ) ! accum mode log of stnd dev real, intent( in ) :: xxlsgco( : ) ! coarse mode real, intent( in ) :: pdensac( : ) ! avg particle density in accum mode real, intent( in ) :: pdensco( : ) ! avg particle density in coarse mode real, intent( out ) :: vsed ( :,: ) ! settling velocity [ m/s ] end subroutine get_sedv end interface c----------------------------------------------------------------------- if ( firstime ) then firstime = .false. C Allocate arrays allocate( xxlsgac( nlays ), & xxlsgco( nlays ), & dgacc ( nlays ), & dgcor ( nlays ), & pdensac( nlays ), & pdensco( nlays ), & xlm ( nlays ), & amu ( nlays ), stat = astat ) if ( astat .ne. 0 ) then xmsg = 'Failure allocating' & // ' xxlsgac, xxlsgco,' & // ' dgacc, dgcor,' & // ' pdensac, pdensco,' & // ' xlm, or amu' call m3exit( pname, jdate, jtime, xmsg, xstat1 ) end if allocate( vsed( nlays,n_ae_spc), stat = astat ) if ( astat .ne. 0 ) then xmsg = 'Failure allocating vsed' call m3exit( pname, jdate, jtime, xmsg, xstat1 ) end if allocate( sedi_sur( n_ae_spc ), stat = astat ) if ( astat .ne. 0 ) then xmsg = 'Failure allocating sedi_sur' call m3exit( pname, jdate, jtime, xmsg, xstat1 ) end if C Set the settling vel surrogate pointers according to the depv table j = 0 do v = 1, n_ae_depv ! assume n_ae_spc = n_ae_depv n = index1( ae_depv( v ), n_ae_sed_spc, vgae_name ) if ( n .ne. 0 ) then j = j + 1 sedi_sur( v ) = n else write( logdev,* ) ' surrogate ', trim( ae_depv( v ) ), & ' not used for', v, trim( ae_spc( v ) ) sedi_sur( v ) = 0 end if end do n = j write( logdev,* ) n, ' Aerosol species with a grav. settling vel' do j = 1, n_ae_spc n = sedi_sur( j ) if ( n .ne. 0 ) write( logdev,'( i3, 2x, a9, i3, 2x, a )' ) & j, ae_spc( j ), n, trim( ae_depv( j ) ) end do end if ! firstime do l = 1, nlays C Set meteorological data for the grid cell. airtemp = Met_Data%ta ( col,row,l ) airpres = Met_Data%pres( col,row,l ) C extract grid cell concentrations of aero species from CGRID C into aerospc_conc in aero_data module C Also converts dry surface area to wet 2nd moment #ifdef sens call extract_aero( cgrd( l,: ), .true., cgrd( :,: ), .false. ) #else call extract_aero( cgrd( l,: ), .true. ) ! set minimum floor #endif C Get the geometric mean diameters and standard deviations of the C "wet" size distribution call getpar( .false. ) C | do not fix stnd dev`s to existing value C Save getpar values to arrays xxlsgac( l ) = aeromode_lnsg( 2 ) xxlsgco( l ) = aeromode_lnsg( 3 ) dgacc( l ) = aeromode_diam( 2 ) dgcor( l ) = aeromode_diam( 3 ) pdensac( l ) = aeromode_dens( 2 ) pdensco( l ) = aeromode_dens( 3 ) C Calculate mean free path [ m ]: xlm( l ) = 6.6328e-8 * STDATMPA * airtemp / ( t0 * airpres ) C Calculate dynamic viscosity [ kg/m/s ]: amu( l ) = 1.458e-6 * airtemp * sqrt( airtemp ) / ( airtemp + 110.4 ) end do ! layer loop C get settling velocities: call get_sedv ( xlm, amu, & dgacc, dgcor, & xxlsgac, xxlsgco, & pdensac, pdensco, & vsed ) C Return sedimentation velocities for aerosols and cfl-safe iteration count C "Stores read an entire cache line, modify the target, then write back the C entire line. Thus, non-consecutive stores are worse than non-consecutive C loads." do l = 1, nlays do v = 1, n_ae_spc if ( sedi_sur( v ) .gt. 0 ) then vsed_ae( v,l ) = vsed( l,sedi_sur( v ) ) else vsed_ae( v,l ) = 0.0 end if end do end do return end subroutine aero_sedv C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: subroutine get_sedv ( xlm, amu, & dgacc, dgcor, & xxlsgac, xxlsgco, & pdensac, pdensco, & vsed ) C Calculate settling velocity for Aitken, accumulation, and coarse modes. C----------------------------------------------------------------------- use asx_data_mod, Only: Met_Data use aeromet_data ! Includes CONST.EXT implicit none C *** arguments real, intent( in ) :: xlm ( : ) ! atmospheric mean free path [m] real, intent( in ) :: amu ( : ) ! atmospheric dynamic viscosity [kg/(m s)] real, intent( in ) :: dgacc ( : ) ! accum mode geom mean diameter [m] real, intent( in ) :: dgcor ( : ) ! coarse mode geom mean diameter [m] real, intent( in ) :: xxlsgac( : ) ! accum mode log of modal geom stnd dev`s real, intent( in ) :: xxlsgco( : ) ! coarse mode log of modal geom stnd dev`s real, intent( in ) :: pdensac( : ) ! avg particle dens in accum mode [kg/m**3] real, intent( in ) :: pdensco( : ) ! avg particle dens in coarse mode [kg/m**3] real, intent( out ) :: vsed ( :,: ) ! grav settling velocity [ m/s ] C *** array indices hardcoded to match SUBROUTINE aero_sedi integer, parameter :: vgnacc = 1, ! accumulation mode number & vgncor = 2, ! coarse mode number & vgsacc = 3, ! accumulation mode surface area & vgscor = 4, ! coarse mode surface area & vgmacc = 5, ! accumulation mode mass & vgmcor = 6 ! coarse mode mass C modal Knudsen numbers X bhat real bknacc ! accumulation mode real bkncor ! coarse mode C modal sedimentation velocities for 0th (number), 2nd (srf area), and 3rd (mass) moments real vghat0a, vghat0c real vghat2a, vghat2c real vghat3a, vghat3c integer l real dconst2, dconst3a, dconst3c real bxlm ! real, parameter :: bhat = 1.246 ! Constant from Cunningham slip correction real, parameter :: bhat = 2.492 ! 2 X Constant from Cunningham slip correction C Scalar variables for VARIABLE standard deviations. real l2sgac, l2sgco ! log^2( sigmag ) real esac01 ! accumu mode " ** 4 real esco01 ! coarse " real esac02 ! accumu mode " ** 8 real esco02 ! coarse " real esac04 ! accumu mode " ** 16 real esco04 ! coarse " real esac05 ! accumu mode " ** 20 real esco05 ! coarse " real esac07 ! accumu mode " ** 28 real esco07 ! coarse " real esac12 ! accumu mode " ** 48 real esco12 ! coarse " real esac16 ! accumu mode " ** 64 real esco16 ! coarse " C----------------------------------------------------------------------- do l = 1, size( met_data%ta, 3 ) C Calculate Knudsen numbers * bhat bxlm = bhat * xlm( l ) bknacc = bxlm / dgacc( l ) bkncor = bxlm / dgcor( l ) C Calculate functions of variable standard deviation. l2sgac = xxlsgac( l ) * xxlsgac( l ) l2sgco = xxlsgco( l ) * xxlsgco( l ) esac01 = exp( 0.5 * l2sgac ) esco01 = exp( 0.5 * l2sgco ) esac02 = esac01 * esac01 esco02 = esco01 * esco01 esac04 = esac02 * esac02 esco04 = esco02 * esco02 esac05 = esac04 * esac01 esco05 = esco04 * esco01 esac07 = esac05 * esac02 esco07 = esco05 * esco02 esac12 = esac07 * esac05 esco12 = esco07 * esco05 esac16 = esac12 * esac04 esco16 = esco12 * esco04 dconst2 = grav / ( 18.0 * amu( l ) ) dconst3a = dconst2 * pdensac( l ) * dgacc( l ) * dgacc( l ) dconst3c = dconst2 * pdensco( l ) * dgcor( l ) * dgcor( l ) c acc mode vghat0a = dconst3a * ( esac04 + bknacc * esac01 ) vghat2a = dconst3a * ( esac12 + bknacc * esac05 ) vghat3a = dconst3a * ( esac16 + bknacc * esac07 ) c coarse mode vghat0c = dconst3c * ( esco04 + bkncor * esco01 ) vghat2c = dconst3c * ( esco12 + bkncor * esco05 ) vghat3c = dconst3c * ( esco16 + bkncor * esco07 ) C settling velocities C vsed of 0th moment for the number vsed( l,vgnacc ) = vghat0a ! accum mode vsed( l,vgncor ) = vghat0c ! coarse mode c vsed of 2nd moment for the surface area vsed( l,vgsacc ) = vghat2a ! accum mode vsed( l,vgscor ) = vghat2c ! coarse mode c vsed of 3rd moment for the mass vsed( l,vgmacc ) = vghat3a ! accum mode vsed( l,vgmcor ) = vghat3c ! coarse mode end do ! end loop on l return end subroutine get_sedv ================================================ FILE: CCTM/src/vdiff/acm2_m3dry/conv_cgrid.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE CONV_CGRID ( CGRID, JDATE, JTIME, CNGRD ) C----------------------------------------------------------------------- C Function: C Convert decoupled aerosol species to molar units (ppm and m**2/mol) C and reorder dimensions C Revision History: C Written by: J.Young 21 Aug 03 C J.Young 31 Jan 05: dyn alloc - establish both horizontal & vertical C domain specifications in one module C 16 Feb 11 S.Roselle: replaced I/O API include files with UTILIO_DEFN C 01 Feb 19 D.Wong: Implemented centralized I/O approach, removed all C MY_N clauses C----------------------------------------------------------------------- USE GRID_CONF ! horizontal & vertical domain specifications USE CGRID_SPCS ! CGRID mechanism species USE UTILIO_DEFN USE VDIFF_MAP use CENTRALIZED_IO_MODULE, only : interpolate_var #ifdef isam USE SA_DEFN #endif IMPLICIT NONE INCLUDE SUBST_CONST ! constants INCLUDE SUBST_FILES_ID ! file name parameters C Arguments: REAL, POINTER :: CGRID( :,:,:,: ) ! concentrations INTEGER, INTENT( IN ) :: JDATE ! current model date, coded YYYYDDD INTEGER, INTENT( IN ) :: JTIME ! current model time, coded HHMMSS REAL, INTENT( INOUT ) :: CNGRD( :,:,:,: ) ! cgrid replacement #ifdef isam INTEGER IBGN, JSPCTAG LOGICAL, SAVE :: ISAM_FIRSTIME = .TRUE. LOGICAL, ALLOCATABLE, SAVE :: CONVERT_TAG_SPC ( : ) REAL, ALLOCATABLE, SAVE :: CFAC_TAG_SPC ( : ) #endif C Parameters: REAL, PARAMETER :: MWAIR_SI = MWAIR / 1.0E+03 ! kg mol-1 C Local Variables: LOGICAL, SAVE :: FIRSTIME = .TRUE. CHARACTER( 16 ), SAVE :: PNAME = 'CONV_CGRID' CHARACTER( 96 ) :: XMSG = ' ' REAL DENS( NCOLS,NROWS,NLAYS ) ! air density (kg m-3) REAL FAC1( NCOLS,NROWS,NLAYS ) ! conversion factor INTEGER NSPCS, OFF INTEGER C, R, L, S, V, I ! loop induction variables INTEGER IOS REAL CONV ! temp var C----------------------------------------------------------------------- call interpolate_var ('DENS', jdate, jtime, DENS) ! kg m-3 FAC1 = MWAIR_SI / DENS ! m3 mol-1 C Convert non-molar mixing ratio species and re-order CGRID DO L = 1, NLAYS DO I = 1,N_CGRID_SPC ! Gas - no conversion IF ( CGRID_MASK_GAS( I ) .OR. & CGRID_MASK_NR( I ) .OR. & CGRID_MASK_TRAC( I ) ) & CNGRD( I,L,:,: ) = CGRID( :,:,L,I ) ! Aerosol Mass: ug/m3 -> ppmv IF ( CGRID_MASK_AERO( I ) .AND. & .NOT. CGRID_MASK_NUM( I ) .AND. & .NOT. CGRID_MASK_SRF( I ) ) & CNGRD( I,L,:,: ) = CGRID( :,:,L,I ) & * FAC1( :,:,L ) / CGRID_MW( I ) ! Aerosol Number: N m-3 -> N mol-1 ! Aerosol Surface Area: m2/m3 -> m2 / mol air IF ( CGRID_MASK_NUM( I ) .OR. & CGRID_MASK_SRF( I ) ) & CNGRD( I,L,:,: ) = CGRID( :,:,L,I ) * FAC1( :,:,L ) END DO END DO #ifdef isam ! Convert PM Mass Only IF( ISAM_FIRSTIME )THEN ALLOCATE( CONVERT_TAG_SPC( N_SPCTAG ) ) ALLOCATE( CFAC_TAG_SPC ( N_SPCTAG ) ) SET_CONV_SPCTAG: DO JSPCTAG = 1, N_SPCTAG IBGN = INDEX( VNAM_SPCTAG( JSPCTAG ), '_', BACK = .TRUE. ) - 1 S = INDEX1( VNAM_SPCTAG( JSPCTAG )( 1:IBGN ), N_AE_SPC, AE_SPC ) IF ( S .GT. 0 ) THEN CFAC_TAG_SPC( JSPCTAG ) = AE_MOLWT( S ) CONVERT_TAG_SPC( JSPCTAG ) = .TRUE. ELSE CFAC_TAG_SPC( JSPCTAG ) = 1.0 CONVERT_TAG_SPC( JSPCTAG ) = .FALSE. END IF END DO SET_CONV_SPCTAG ISAM_FIRSTIME = .FALSE. END IF CONV_SPCTAG: DO JSPCTAG = 1, N_SPCTAG IF ( CONVERT_TAG_SPC( JSPCTAG ) ) THEN DO L = 1, NLAYS ISAM( :,:,L,S_SPCTAG( JSPCTAG ),T_SPCTAG( JSPCTAG ) ) = & ISAM( :,:,L,S_SPCTAG( JSPCTAG ),T_SPCTAG( JSPCTAG ) ) & * FAC1( :,:,L ) / CFAC_TAG_SPC( JSPCTAG ) END DO END IF END DO CONV_SPCTAG #endif RETURN C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: ENTRY REV_CGRID ( CNGRD, JDATE, JTIME, CGRID ) C Revert non-molar mixing ratio species and re-order CGRID call interpolate_var ('DENS', jdate, jtime, DENS) ! kg m-3 FAC1 = DENS / MWAIR_SI ! mol m-3 DO L = 1, NLAYS DO I = 1,N_CGRID_SPC ! Gas - no conversion IF ( CGRID_MASK_GAS( I ) .OR. & CGRID_MASK_NR( I ) .OR. & CGRID_MASK_TRAC( I ) ) & CGRID( :,:,L,I ) = CNGRD( I,L,:,: ) ! Aerosol Mass: ppmv -> ug m-3 IF ( CGRID_MASK_AERO( I ) .AND. & .NOT. CGRID_MASK_NUM( I ) .AND. & .NOT. CGRID_MASK_SRF( I ) ) & CGRID( :,:,L,I ) = CNGRD( I,L,:,: ) & * FAC1( :,:,L ) * CGRID_MW( I ) ! Aerosol Number: N mol-1 -> N m-3 ! Aerosol Surface Area: m2 mol-1 -> m2 m-3 IF ( CGRID_MASK_NUM( I ) .OR. & CGRID_MASK_SRF( I ) ) & CGRID( :,:,L,I ) = CNGRD( I,L,:,: ) * FAC1( :,:,L ) END DO END DO #ifdef isam Ckrt....JSPCTAG loop on PM mass only..... REV_SPCTAG: DO JSPCTAG = 1, N_SPCTAG IF ( CONVERT_TAG_SPC( JSPCTAG ) ) THEN DO L = 1, NLAYS ISAM( :,:,L,S_SPCTAG( JSPCTAG ),T_SPCTAG( JSPCTAG ) ) = & ISAM( :,:,L,S_SPCTAG( JSPCTAG ),T_SPCTAG( JSPCTAG ) ) & * FAC1( :,:,L ) * CFAC_TAG_SPC( JSPCTAG ) END DO END IF END DO REV_SPCTAG #endif RETURN END ================================================ FILE: CCTM/src/vdiff/acm2_m3dry/eddyx.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE EDDYX ( EDDYV ) C-------------------------------------------------------------------------- C---- Eddy diffusivity (Kz) computed according to 2 different models: C---- 1- Boundary Layer scaling based on Hostlag and Boville (1993) C---- Kz = k ust z(1-z/h)2 / phih C 2- Local scaling based on local Richardson # and vertical shear C similar to Liu and Carroll (1996) C C Revision History: C JEP 4/00 - CCTM implimentation from MM5 C JEP 4/06 - Updated for ACM2 C TLO 10/09 - Allow read of C-staggered UWINDC and VWINDC from C MET_DOT_3D, and corrected algorithm that computes C component-wise shear so that B-staggered winds C will be properly used. Removed map-scale factor C from wind shear calculation. C SJR 02/11 - replaced I/O API include files with UTILIO_DEFN C YOJ 05/13 - access met data from VDIFF_MET module C JOB 11/14 - Updated for the ASX_DATA_MOD shared data module which C included variables in the VDIFF_MET module. C HF 07/15 - Included pleim5 formulation. C David Wong 02/19 - removed all MY_N clauses C-------------------------------------------------------------------------- USE GRID_CONF ! horizontal domain specifications USE ASX_DATA_MOD ! Includes CONST USE UTILIO_DEFN IMPLICIT NONE C Includes: C Arguments: REAL, INTENT( OUT ) :: EDDYV ( :,:,: ) ! eddy diffusivity (m**2/s) C Parameters: REAL, PARAMETER :: RLAM = 80.0 ! asymptotic mixing length (m) REAL, PARAMETER :: RIC = 0.25 ! critical Richardson # REAL, PARAMETER :: QUARTER = 0.25 REAL, PARAMETER :: SIXTEENTH = QUARTER * QUARTER ! 1/16 C External Functions: None C File Variables: REAL KZM ! local KZMIN C Local variables: INTEGER MDATE, MTIME, STEP INTEGER C, R, L, V REAL DZL ! Z(L+1)-Z(L) REAL WW2 ! (wind speed)**2 REAL WS2 ! (wind shear)**2 REAL RIB ! Bulk Richardson Number REAL ZOL REAL ZFUNC, HPBL REAL EDDV ! local EDDYV REAL FH INTEGER MCOL ! these don't need to be initialized INTEGER MROW INTEGER MLVL REAL MTH1 ! pot. temp. in layer L REAL MTH2 ! pot. temp. in layer L+1 REAL MRIB ! bulk Richardson Number REAL MWS ! wind shear (/sec) REAL MEDDYV ! eddy diffusivity (m**2/sec) REAL QMEAN, TMEAN REAL XLV, ALPH, CHI REAL CPAIR, ZK, SQL, PHIH REAL PHIM REAL WT, ZSOL REAL EDYZ REAL ZFL ! local ZF CHARACTER( 16 ) :: PNAME = 'EDDYX' CHARACTER( 16 ) :: VNAME CHARACTER( 16 ) :: UNITSCK CHARACTER( 96 ) :: XMSG = ' ' C----------------------------------------------------------------------- MEDDYV = 0.0 DO 233 L = 1, NLAYS-1 DO 222 R = 1, NROWS DO 211 C = 1, NCOLS HPBL = MAX( Met_Data%PBL( C,R ), 20.0 ) ZFL = Met_Data%ZF( C,R,L ) KZM = Met_Data%KZMIN( C,R,L ) ZOL = ZFL * Met_Data%MOLI( C,R ) IF ( ZFL .LT. HPBL ) THEN IF ( ZOL .LT. 0.0 ) THEN IF ( ZFL .LT. 0.1 * HPBL ) THEN PHIH = 1.0 / SQRT( 1.0 - GAMAH * ZOL ) ELSE ZSOL = 0.1 * HPBL * Met_Data%MOLI( C,R ) PHIH = 1.0 / SQRT( 1.0 - GAMAH * ZSOL ) END IF ELSE IF ( ZOL .LT. 1.0 ) THEN PHIH = 1.0 + BETAH * ZOL ELSE PHIH = BETAH + ZOL END IF WT = Met_Data%USTAR( C,R ) / PHIH ZFUNC = 1.0 - ZFL / HPBL ZFUNC = ZFL * ZFUNC * ZFUNC EDYZ = KARMAN * WT * ZFUNC EDYZ = MAX( EDYZ, KZM ) ELSE EDYZ = 0.0 END IF IF ( CSTAGUV ) THEN ! u- and v-component winds on C-stagger WW2 = QUARTER ! component-wise wind shear & * ( ( Met_Data%UWIND( C+1,R, L+1 ) - Met_Data%UWIND( C+1,R ,L ) & + Met_Data%UWIND( C, R, L+1 ) - Met_Data%UWIND( C, R ,L ) ) ** 2 & + ( Met_Data%VWIND( C, R+1,L+1 ) - Met_Data%VWIND( C, R+1,L ) & + Met_Data%VWIND( C, R, L+1 ) - Met_Data%VWIND( C, R, L ) ) ** 2 ) ELSE ! u- and v-component winds on B-stagger WW2 = SIXTEENTH ! component-wise wind shear & * ( ( Met_Data%UWIND( C, R, L+1 ) - Met_Data%UWIND( C, R ,L ) & + Met_Data%UWIND( C+1,R, L+1 ) - Met_Data%UWIND( C+1,R ,L ) & + Met_Data%UWIND( C, R+1,L+1 ) - Met_Data%UWIND( C, R+1,L ) & + Met_Data%UWIND( C+1,R+1,L+1 ) - Met_Data%UWIND( C+1,R+1,L ) ) ** 2 & + ( Met_Data%VWIND( C, R, L+1 ) - Met_Data%VWIND( C, R ,L ) & + Met_Data%VWIND( C+1,R, L+1 ) - Met_Data%VWIND( C+1,R ,L ) & + Met_Data%VWIND( C, R+1,L+1 ) - Met_Data%VWIND( C, R+1,L ) & + Met_Data%VWIND( C+1,R+1,L+1 ) - Met_Data%VWIND( C+1,R+1,L ) ) ** 2 ) END IF DZL = Met_Data%ZH( C,R,L+1 ) - Met_Data%ZH( C,R,L ) WS2 = WW2 / ( DZL * DZL ) + 1.0E-9 RIB = 2.0 * GRAV * ( Met_Data%THETAV( C,R,L+1 ) - Met_Data%THETAV( C,R,L ) ) & / ( DZL * WS2 * ( Met_Data%THETAV( C,R,L+1 ) + Met_Data%THETAV( C,R,L ) ) ) C-- Adjustment to vert diff in Moist air from HIRPBL IF ( ( Met_Data%QC( C,R,L ) .GT. 0.01E-3 ) .OR. & ( Met_Data%QC( C,R,L+1 ) .GT. 0.01E-3 ) ) THEN QMEAN = 0.5 * ( Met_Data%QV( C,R,L ) + Met_Data%QV( C,R,L+1 ) ) TMEAN = 0.5 * ( Met_Data%TA( C,R,L ) + Met_Data%TA( C,R,L+1 ) ) XLV = ( 2.501 - 0.00237 * ( TMEAN - 273.15 ) ) * 1.0E6 ALPH = XLV * QMEAN / RDGAS / TMEAN CPAIR = 1004.67 * ( 1.0 + 0.84 * Met_Data%QV( C,R,L ) ) ! J/(K KG) CHI = XLV * XLV * QMEAN / ( CPAIR * RWVAP * TMEAN * TMEAN ) RIB = ( 1.0 + ALPH ) & * ( RIB - GRAV * GRAV / ( WS2 * TMEAN * CPAIR ) & * ( ( CHI - ALPH ) / ( 1.0 + CHI ) ) ) END IF ZK = 0.4 * ZFL SQL = ZK * RLAM / ( RLAM + ZK ) SQL = SQL * SQL IF ( RIB .GE. 0.0 ) THEN ! FH = 1.0 ! pleim5 ! & / ( 1.0 + 10.0 * RIB + 50.0 * RIB ** 2 + 5000.0 * RIB ** 4 ) + 0.0012 FH = 1.0 + RIB * ( 10.0 + RIB * ( 50.0 + 5000.0 * RIB * RIB ) ) FH = 0.0012 + 1.0 / FH ! pleim5 EDDV = KZM + SQRT( WS2 ) * FH * SQL ELSE EDDV = KZM + SQRT( WS2 * ( 1.0 - 25.0 * RIB ) ) * SQL END IF IF ( ZFL .LT. HPBL .AND. EDYZ .GT. EDDV ) THEN EDDV = EDYZ END IF EDDV = MIN( 1000.0, EDDV ) IF ( EDDV .GT. MEDDYV ) THEN C Capture the col, row, lvl, and EDDYV for the global min DT MCOL = C MROW = R MLVL = L MEDDYV = EDDV MTH1 = Met_Data%THETAV( C,R,L ) MTH2 = Met_Data%THETAV( C,R,L+1 ) MRIB = RIB MWS = SQRT ( WS2 ) END IF EDDYV( C,R,L ) = EDDV 211 CONTINUE ! end loop on columns 222 CONTINUE ! end loop on rows 233 CONTINUE ! end loop on levels !WRITE( LOGDEV,* ) ' ' !WRITE( LOGDEV,1001 ) MEDDYV, MCOL, MROW, MLVL 1001 FORMAT(/ 5X, 'Maximum eddy diffusivity of:', 1PG13.5, & 1X, '(m**2/sec)' & / 5X, 'at col, row, layer:', I4, 2(', ', I3) ) !WRITE( LOGDEV,1003 ) MWS, MRIB, MTH1, MTH2 1003 FORMAT( 5X, 'corresponding to a free tropospheric wind shear of:', & 1PG13.5, 1X, '(/sec),' & /28X, 'a bulk Richardson Number of:', 1PG13.5, ',' & / 5X, 'and pot. temps. in layer and layer+1:', 2(1PG13.5) ) WRITE( LOGDEV,* ) ' ' DO R = 1, NROWS DO C = 1, NCOLS EDDYV( C,R,NLAYS ) = 0.0 END DO END DO RETURN END ================================================ FILE: CCTM/src/vdiff/acm2_m3dry/matrix1.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/CCTM/src/vdiff/acm2/matrix.F,v 1.5 2011/10/21 16:11:45 yoj Exp $ C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE MATRIX1 ( KL, A, B, E, D, X ) C Rather than solving the ACM2 banded tridiagonal matrix using LU decomposition, C it is much faster to split the solution into the ACM1 convective solver followed C by the tridiagonal solver C MATRIX1 is the ACM1 solver. When the PBL is convective, this solver is called C followed by TRI. If not convective, only TRI is called. C-- ACM1 Matrix is in this form (there is no subdiagonal: C B1 E2 <- note E2 (flux from layer above), not E1 C A2 B2 E3 C A3 B3 E4 C A4 B4 E5 C A5 B5 E6 C A6 B6 USE VGRD_DEFN ! vertical layer specifications USE CGRID_SPCS ! CGRID mechanism species USE UTILIO_DEFN IMPLICIT NONE C Includes: INTEGER, SAVE :: N_SPC_DIFF ! global diffusion species C Arguments: INTEGER, INTENT( IN ) :: KL ! CBL sigma height REAL, INTENT( IN ) :: A( : ) ! matrix column one REAL, INTENT( IN ) :: B( : ) ! diagonal REAL, INTENT( IN ) :: E( : ) ! superdiagonal REAL, INTENT( IN ) :: D( :,: ) ! R.H.S REAL, INTENT( OUT ) :: X( :,: ) ! returned solution C Locals: REAL, ALLOCATABLE, SAVE :: BETA( : ) REAL ALPHA, GAMA INTEGER L, V, IOS CHARACTER( 120 ) :: XMSG = ' ' LOGICAL, SAVE :: FIRSTIME = .TRUE. C----------------------------------------------------------------------- IF ( FIRSTIME ) THEN FIRSTIME = .FALSE. N_SPC_DIFF = N_GC_TRNS + N_AE_TRNS + N_NR_TRNS + N_TR_DIFF ALLOCATE ( BETA( N_SPC_DIFF ), STAT = IOS ) IF ( IOS .NE. 0 ) THEN XMSG = 'Failure allocating BETA' CALL M3EXIT( 'MATRIX', 0, 0, XMSG, XSTAT1 ) END IF END IF ! FIRSTIME C-- ACM1 matrix solver DO V = 1, N_SPC_DIFF BETA( V ) = D( V,1 ) END DO GAMA = B( 1 ) ALPHA = 1.0 DO L = 2, KL ALPHA = -ALPHA * E( L ) / B( L ) DO V = 1, N_SPC_DIFF BETA( V ) = ALPHA * D( V,L ) + BETA( V ) END DO GAMA = GAMA + ALPHA * A( L ) END DO DO V = 1, N_SPC_DIFF X( V,1 ) = BETA( V ) / GAMA X( V,KL ) = ( D( V,KL ) - A( KL ) * X( V,1 ) ) / B( KL ) END DO C-- Back sub for Ux=y DO L = KL-1, 2, -1 DO V = 1, N_SPC_DIFF X( V,L ) = ( D( V,L ) - A( L ) * X( V,1 ) - E( L+1 ) * X( V,L+1 ) ) / B( L ) END DO END DO RETURN END ================================================ FILE: CCTM/src/vdiff/acm2_m3dry/opddep.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/CCTM/src/vdiff/acm2/opddep.F,v 1.6 2012/01/19 14:40:52 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE OPDDEP ( JDATE, JTIME, TSTEP, N_SPC_DDEP ) C 30 Mar 01 J.Young: dyn alloc - Use HGRD_DEFN C 03 Sep 01 David Wong: for new pario C 31 Jan 05 J.Young: dyn alloc - establish both horizontal & vertical C domain specifications in one module C 21 Jun 10 J.Young: convert for Namelist redesign C 16 Feb 11 S.Roselle: replaced I/O API include files with UTILIO_DEFN C 11 May 11 J.Bash: Modified to output NH3 bidi component fluxes C 04 Jan 12 J.Young: Initalize char strings with blank padding C 08 Jun 12 J.Young: remove full character blank padding for GNU Fortran (GCC) 4.1.2 C 12 Dec 19 S.L.Napelenok: ddm-3d implementation for version 5.3.1 USE RUNTIME_VARS, ONLY : ABFLUX USE GRID_CONF ! horizontal & vertical domain specifications USE CGRID_SPCS ! CGRID mechanism species USE UTILIO_DEFN #ifdef sens USE DDM3D_DEFN, ONLY: NP, NPMAX, SENNUM, SPCNAME, SEN_PAR #endif IMPLICIT NONE INCLUDE SUBST_FILES_ID ! file name parameters C Arguments: INTEGER, INTENT( IN ) :: JDATE ! current model date, coded YYYYDDD INTEGER, INTENT( IN ) :: JTIME ! current model time, coded HHMMSS INTEGER, INTENT( IN ) :: TSTEP ! output time step INTEGER, INTENT( IN ) :: N_SPC_DDEP ! no. of dry dep species C Local variables: CHARACTER( 16 ) :: PNAME = 'OPDDEP' CHARACTER( 96 ) :: XMSG = ' ' INTEGER V, N, L ! loop induction variables INTEGER STRT, FINI ! loop induction variables C----------------------------------------------------------------------- #ifndef mpas C Try to open existing file for update IF ( .NOT. OPEN3( CTM_DRY_DEP_1, FSRDWR3, PNAME ) ) THEN XMSG = 'Could not open ' // CTM_DRY_DEP_1 // ' file for update - ' & // 'try to open new' CALL M3MESG( XMSG ) C Set output file characteristics based on COORD.EXT and open the dry dep file FTYPE3D = GRDDED3 SDATE3D = JDATE STIME3D = JTIME TSTEP3D = TSTEP CALL NEXTIME( SDATE3D, STIME3D, TSTEP3D ) ! start the next hour IF ( ABFLUX ) THEN NVARS3D = N_SPC_DDEP + 2 ELSE NVARS3D = N_SPC_DDEP END IF NCOLS3D = GL_NCOLS NROWS3D = GL_NROWS NLAYS3D = 1 NTHIK3D = 1 GDTYP3D = GDTYP_GD P_ALP3D = P_ALP_GD P_BET3D = P_BET_GD P_GAM3D = P_GAM_GD XORIG3D = XORIG_GD YORIG3D = YORIG_GD XCENT3D = XCENT_GD YCENT3D = YCENT_GD XCELL3D = XCELL_GD YCELL3D = YCELL_GD VGTYP3D = VGTYP_GD VGTOP3D = VGTOP_GD ! VGTPUN3D = VGTPUN_GD ! currently, not defined DO L = 1, NLAYS3D + 1 VGLVS3D( L ) = VGLVS_GD( L ) END DO ! GDNAM3D = GDNAME_GD GDNAM3D = GRID_NAME ! from HGRD_DEFN N = 0 STRT = 1 FINI = N_GC_DDEP DO V = STRT, FINI N = N + 1 VTYPE3D( V ) = M3REAL VNAME3D( V ) = GC_DDEP( N ) UNITS3D( V ) = 'kg ha-1' VDESC3D( V ) = 'hourly dry deposition values' END DO N = 0 STRT = N_GC_DDEP + 1 FINI = N_GC_DDEP + N_AE_DDEP DO V = STRT, FINI N = N + 1 VTYPE3D( V ) = M3REAL VNAME3D( V ) = AE_DDEP( N ) IF ( AE_DDEP( N )( 1:3 ) .EQ. 'NUM' ) THEN UNITS3D( V ) = 'ha-1' ELSE IF ( AE_DDEP( N )( 1:3 ) .EQ. 'SRF' ) THEN UNITS3D( V ) = 'm2 ha-1' ELSE UNITS3D( V ) = 'kg ha-1' END IF VDESC3D( V ) = 'hourly dry deposition values' END DO N = 0 STRT = N_GC_DDEP + N_AE_DDEP + 1 FINI = N_GC_DDEP + N_AE_DDEP + N_NR_DDEP DO V = STRT, FINI N = N + 1 VTYPE3D( V ) = M3REAL VNAME3D( V ) = NR_DDEP( N ) UNITS3D( V ) = 'kg ha-1' VDESC3D( V ) = 'hourly dry deposition values' END DO N = 0 STRT = N_GC_DDEP + N_AE_DDEP + N_NR_DDEP + 1 FINI = N_GC_DDEP + N_AE_DDEP + N_NR_DDEP + N_TR_DDEP DO V = STRT, FINI N = N + 1 VTYPE3D( V ) = M3REAL VNAME3D( V ) = TR_DDEP( N ) UNITS3D( V ) = 'ha-1' VDESC3D( V ) = 'hourly dry deposition values' END DO IF ( ABFLUX ) THEN VTYPE3D( V ) = M3REAL VNAME3D( V ) = 'NH3_Flux' UNITS3D( V ) = 'kg/hectare' VDESC3D( V ) = 'hourly bidi flux values' VTYPE3D( V+1 ) = M3REAL VNAME3D( V+1 ) = 'NH3_Emis' UNITS3D( V+1 ) = 'kg/hectare' VDESC3D( V+1 ) = 'hourly NH3_Emis values' END IF FDESC3D( 1 ) = 'hourly 1-layer cross-point M3Dry dry deposition data' DO L = 2, MXDESC3 FDESC3D( L ) = ' ' END DO C Open dry deposition file IF ( .NOT. OPEN3( CTM_DRY_DEP_1, FSNEW3, PNAME ) ) THEN XMSG = 'Could not create '// CTM_DRY_DEP_1 // ' file' CALL M3EXIT( PNAME, SDATE3D, STIME3D, XMSG, XSTAT1 ) END IF END IF #endif #ifdef sens CC..Create sensitivity dry deposition file C...check for existing file IF ( .NOT. OPEN3( CTM_SDRYDEP_1, FSRDWR3, PNAME ) ) THEN XMSG = 'Could not open ' // CTM_SDRYDEP_1 // ' file for update - ' & // 'try to open new' CALL M3MESG( XMSG ) C...set output file variables NVARS3D = N_SPC_DDEP * NPMAX FDESC3D( 1 ) = 'sensitivity of hourly dry deposition' C...define sens dry deposition output descriptors for gaseous species N = 0 STRT = 1 FINI = N_GC_DDEP DO V = STRT, FINI N = N + 1 SPCNAME = GC_DDEP( N )( 1:12 ) DO NP = 1, NPMAX SENNUM = ( V - 1 ) * NPMAX + NP VNAME3D ( SENNUM ) = TRIM( SPCNAME ) //'_' // SEN_PAR( NP ) VTYPE3D( SENNUM ) = M3REAL UNITS3D( SENNUM ) = 'kg/hectare' VDESC3D( SENNUM ) = 'sensitivity of hourly dry deposition values' END DO ENDDO C...define dry deposition output descriptors for aerosol species N = 0 STRT = N_GC_DDEP + 1 FINI = N_GC_DDEP + N_AE_DDEP DO V = STRT, FINI N = N + 1 SPCNAME = AE_DDEP( N )( 1:12 ) DO NP = 1, NPMAX SENNUM = ( V - 1 ) * NPMAX + NP VNAME3D ( SENNUM ) = TRIM( SPCNAME ) //'_' // SEN_PAR( NP ) VTYPE3D( SENNUM ) = M3REAL IF ( AE_DDEP( N )( 1:3 ) .EQ. 'NUM' ) THEN UNITS3D( SENNUM ) = 'number/hectare' ELSE IF ( AE_DDEP( N )( 1:3 ) .EQ. 'SRF' ) THEN UNITS3D( SENNUM ) = 'm**2/hectare' ELSE UNITS3D( SENNUM ) = 'kg/hectare' END IF VDESC3D( SENNUM ) = 'sensitivity of hourly dry deposition values' END DO ENDDO C...define dry deposition output descriptors for non-reactive species N = 0 STRT = N_GC_DDEP + N_AE_DDEP + 1 FINI = N_GC_DDEP + N_AE_DDEP + N_NR_DDEP DO V = STRT, FINI N = N + 1 SPCNAME = NR_DDEP( N )( 1:12 ) DO NP = 1, NPMAX SENNUM = ( V - 1 ) * NPMAX + NP VNAME3D ( SENNUM ) = TRIM( SPCNAME ) //'_' // SEN_PAR( NP ) VTYPE3D( SENNUM ) = M3REAL UNITS3D( SENNUM ) = 'kg/hectare' VDESC3D( SENNUM ) = 'sensitivity of hourly dry deposition values' END DO END DO C...define dry deposition output descriptors for tracer species N = 0 STRT = N_GC_DDEP + N_AE_DDEP + N_NR_DDEP + 1 FINI = N_GC_DDEP + N_AE_DDEP + N_NR_DDEP + N_TR_DDEP DO V = STRT, FINI N = N + 1 SPCNAME = TR_DDEP( N )( 1:12 ) DO NP = 1, NPMAX SENNUM = ( V - 1 ) * NPMAX + NP VNAME3D ( SENNUM ) = TRIM( SPCNAME ) //'_' // SEN_PAR( NP ) VTYPE3D( SENNUM ) = M3REAL UNITS3D( SENNUM ) = '----' VDESC3D( SENNUM ) = 'sensitivity of hourly dry deposition values' END DO END DO C...create a new file IF ( .NOT. OPEN3( CTM_SDRYDEP_1, FSNEW3, PNAME ) ) THEN XMSG = 'Could not create '// CTM_DRY_DEP_1 // ' file' CALL M3EXIT( PNAME, SDATE3D, STIME3D, XMSG, XSTAT1 ) END IF END IF #endif RETURN END ================================================ FILE: CCTM/src/vdiff/acm2_m3dry/tri.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/CCTM/src/vdiff/acm2/tri.F,v 1.4 2011/10/21 16:11:46 yoj Exp $ C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE TRI ( L, D, U, B, X ) C----------------------------------------------------------------------- C Function: C Solves tridiagonal system by Thomas algorithm. Algorithm fails C ( M3ERR ) if first pivot is zero. In that case, rewrite the C equation as a set of order KMAX-1, with X(2) trivially eliminated. C The associated tri-diagonal system is stored in 3 arrays C D : diagonal C L : sub-diagonal C U : super-diagonal C B : right hand side function C X : return solution from tridiagonal solver C [ D(1) U(1) 0 0 0 ... 0 ] C [ L(2) D(2) U(2) 0 0 ... . ] C [ 0 L(3) D(3) U(3) 0 ... . ] C [ . . . . . ] X(i) = B(i) C [ . . . . 0 ] C [ . . . . ] C [ 0 L(n) D(n) ] C where n = NLAYS C Preconditions: C Subroutines and Functions Called: C Revision History: C No. Date Who What C __ ____ ___ ____ C 6 Jun 10 yoj convert for Namelist redesign C 5 Apr 06 JEP adapted tridiag for use with ACM2 C 4 Aug 96 yoj cleaner C 3 8/16/94 XKX configuration management include statements C 2 3/15/92 CJC For use in Models-3 LCM. C 1 10/19/89 JKV converted for use on IBM C 0 3/89 BDX Initial version C----------------------------------------------------------------------- USE VGRD_DEFN ! vertical layer specifications USE CGRID_SPCS ! CGRID mechanism species IMPLICIT NONE C Includes: None C Arguments: REAL, INTENT( IN ) :: L( : ) ! subdiagonal REAL, INTENT( IN ) :: D( : ) ! diagonal REAL, INTENT( IN ) :: U( : ) ! superdiagonal REAL, INTENT( IN ) :: B( :,: ) ! R.H. side REAL, INTENT( OUT ) :: X( :,: ) ! solution C Local Variables: INTEGER, SAVE :: N_SPC_DIFF ! global diffusion species REAL GAM( NLAYS ) REAL BET INTEGER V, K LOGICAL, SAVE :: FIRSTIME = .TRUE. C----------------------------------------------------------------------- IF ( FIRSTIME ) THEN FIRSTIME = .FALSE. N_SPC_DIFF = N_GC_TRNS + N_AE_TRNS + N_NR_TRNS + N_TR_DIFF END IF ! FIRSTIME C Decomposition and forward substitution: BET = 1.0 / D( 1 ) DO V = 1, N_SPC_DIFF X( V,1 ) = BET * B( V,1 ) END DO DO K = 2, NLAYS GAM( K ) = BET * U( K-1 ) BET = 1.0 / ( D( K ) - L( K ) * GAM( K ) ) DO V = 1, N_SPC_DIFF X( V,K ) = BET * ( B( V,K ) - L( K ) * X( V,K-1 ) ) END DO END DO C Back-substitution: DO K = NLAYS - 1, 1, -1 DO V = 1, N_SPC_DIFF X( V,K ) = X( V,K ) - GAM( K+1 ) * X( V,K+1 ) END DO END DO RETURN END ================================================ FILE: CCTM/src/vdiff/acm2_m3dry/vdiffacmx.F ================================================ !--------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE VDIFFACMX ( DTSEC, SEDDY, DDEP, ICMP, CNGRD ) C----------------------------------------------------------------------- C Asymmetric Convective Model v2 (ACM2/ACM1) -- Pleim(2006/2014) C Function: C calculates vertical diffusion C Subroutines and Functions Called: C SEC2TIME, TIME2SEC, WRITE3, NEXTIME, C M3EXIT, EDDYX, TRI, MATRIX, PA_UPDATE_EMIS, PA_UPDATE_DDEP C Revision History: C Analogous to VDIFFACM2 C 11 Apr 13 J.Young: fix double adjustment of conc for DDBF in heterogeneous HONO C if-then-else clauses; eliminate some white space C 13 May 13 J.Young: access met data from VDIFF_MET module C change CRANKP to THBAR, CRANKQ to THETA C 25 May 13 J.Young: re-do the acm/eddy algorithm for computational efficiency C 30 Apr 14 J.Young: switch THBAR and THETA C 2 May 14 J.Pleim, J.Young: replace the banded tridiagonal matrix solver for the C convective PBL, with the ACM1 matrix solver followed by the tridiagonal C matrix solver C 30 May 14 J.Young: split vdiff calculation out of vdiff proc. C 07 Nov 14 J.Bash: Updated for the ASX_DATA_MOD shared data module. C 02 Nov 2018: L.Zhou, S.Napelenok: isam implementation C May 2019 J.Pleim Changed from sigma coords to Z coords for compatability w/ MPAS and WRF C 12 Dec 19 S.L.Napelenok: ddm-3d implementation for version 5.3.1 C 15 Jun 21 J. Pleim: implemented HONO fix for dry depsotion flux C----------------------------------------------------------------------- USE CGRID_SPCS ! CGRID mechanism species USE GRID_CONF USE DESID_VARS, ONLY : VDEMIS_DIFF,DESID_LAYS USE DESID_PARAM_MODULE, ONLY : DESID_N_SRM USE DEPV_DEFN USE ASX_DATA_MOD USE VDIFF_MAP USE UTILIO_DEFN ! USE BIDI_MOD ! USE LSM_MOD, ONLY: N_LUFRAC USE VDIFF_DIAG, NLPCR => NLPCR_MEAN USE HGRD_DEFN,only : COLSX_PE, ROWSX_PE USE BDSNP_MOD, ONLY: GET_N_DEP #ifdef isam USE SA_DEFN, ONLY: N_SPCTAG, ISAM, VNAM_SPCTAG, TRANSPORT_SPC, & SA_VDEMIS_DIFF, ITAG, NTAG_SA, NSPC_SA, & S_SPCTAG, T_SPCTAG, SA_DDEP, OTHRTAG, ISAM_SPEC, & L_NO3, SA_BIDI, BIDITAG, L_NH4 #endif #ifdef sens USE DDM3D_DEFN, ONLY : NP, NPMAX, SNGRD, S_DDEP, S_PLDV, SVDEMIS_DIFF, & SENS, S_EMIS, S_DD, S_UU, S_DDBF, S_POL, & S_DELC, S_PLDV_HONO #endif IMPLICIT NONE INCLUDE SUBST_FILES_ID ! file name parameters CHARACTER( 120 ) :: XMSG = ' ' C Arguments: REAL, INTENT( IN ) :: DTSEC ! model time step in seconds C--- SEDDY is strictly an input, but it gets modified here REAL, INTENT( INOUT ) :: SEDDY ( :,:,: ) ! flipped EDDYV REAL, INTENT( INOUT ) :: DDEP ( :,:,: ) ! ddep accumulator REAL, INTENT( INOUT ) :: ICMP ( :,:,: ) ! component flux accumlator REAL, INTENT( INOUT ) :: CNGRD ( :,:,:,: ) ! cgrid replacement C Parameters: C explicit, THETA = 0, implicit, THETA = 1 ! Crank-Nicholson: THETA = 0.5 REAL, PARAMETER :: THETA = 0.5, & THBAR = 1.0 - THETA REAL, PARAMETER :: EPS = 1.0E-06 C External Functions: None C Local Variables: CHARACTER( 16 ), SAVE :: PNAME = 'VDIFFACMX' LOGICAL, SAVE :: FIRSTIME = .TRUE. LOGICAL, SAVE :: SPECLOG = .TRUE. ! For BDSNP REAL, ALLOCATABLE, SAVE :: DD_FAC ( : ) ! combined subexpression REAL, ALLOCATABLE, SAVE :: DDBF ( : ) ! secondary DDEP REAl, ALLOCATABLE, SAVE :: CMPF ( : ) ! intermediate CMP REAL, ALLOCATABLE, SAVE :: CONC ( :,: ) ! secondary CGRID expression REAL, ALLOCATABLE, SAVE :: EMIS ( :,: ) ! emissions subexpression REAL DTDENS1 ! DT * layer 1 air density C ACM Local Variables REAL :: EDDY ( NLAYS ) ! local converted eddyv REAL MEDDY ! ACM2 intermediate var REAL MBAR ! ACM2 mixing rate (S-1) REAL :: MBARKS( NLAYS ) ! by layer REAL :: MDWN ( NLAYS ) ! ACM down mix rate REAL :: MFAC ( NLAYS ) ! intermediate loop factor REAL :: AA ( NLAYS ) ! matrix column one REAL :: BB1 ( NLAYS ) ! diagonal for MATRIX1 REAL :: BB2 ( NLAYS ) ! diagonal for TRI REAL :: CC ( NLAYS ) ! subdiagonal REAL :: EE1 ( NLAYS ) ! superdiagonal for MATRIX1 REAL :: EE2 ( NLAYS ) ! superdiagonal for TRI REAL, ALLOCATABLE, SAVE :: DD ( :,: ) ! R.H.S REAL, ALLOCATABLE, SAVE :: UU ( :,: ) ! returned solution REAL DFACP, DFACQ REAL :: DFSP( NLAYS ), DFSQ( NLAYS ) ! intermediate loop factors REAL DELC, DELP, RP, RQ REAL :: LFAC1( NLAYS ) ! intermediate factor for CONVT REAL :: LFAC2( NLAYS ) ! intermediate factor for CONVT REAL :: LFAC3( NLAYS ) ! intermediate factor for eddy REAL :: LFAC4( NLAYS ) ! intermediate factor for eddy REAL, ALLOCATABLE, SAVE :: DEPVCR ( : ) ! dep vel in one cell ! one cell for each landuse category REAL, ALLOCATABLE, SAVE :: EFAC1 ( : ) REAL, ALLOCATABLE, SAVE :: EFAC2 ( : ) REAL, ALLOCATABLE, SAVE :: POL ( : ) ! prodn/lossrate = PLDV/DEPV REAL PLDV_HONO ! PLDV for HONO REAL DEPV_NO2 ! dep vel of NO2 REAL DEPV_HNO3 ! dep vel of HNO3 REAL FNL ! ACM2 Variable INTEGER NLP, NL, LCBL INTEGER, SAVE :: NO2_HIT = 0, HONO_HIT = 0, HNO3_HIT = 0, NO2_MAP= 0, HONO_MAP = 0, HNO3_MAP = 0 INTEGER, SAVE :: O3_HIT = 0, O3_MAP = 0 INTEGER, SAVE :: NH3_HIT = 0 REAL DTLIM, DTS, DTACM, RZ INTEGER ASTAT INTEGER C, R, L, S, V, I, J ! loop induction variables INTEGER MDATE, MTIME ! internal simulation date&time !--Local Arrays for Z-coord implimentation REAL :: DZH ( NLAYS ) ! ZF(L) - ZF(L-1) REAL :: DZHI ( NLAYS ) ! 1/DZH REAL :: DZFI ( NLAYS ) ! ZH(L+1) - ZH(L) integer gl_c, gl_r #ifdef isam REAL :: TOTAL_SA_NO2 REAL, ALLOCATABLE, SAVE :: SA_DDBF( : ) INTEGER IBGN, JSPCTAG REAL, ALLOCATABLE,SAVE :: SAEMIS( :,: ) REAL, ALLOCATABLE,SAVE :: SACONC( :,: ) REAL, ALLOCATABLE,SAVE :: SA_DD( :,: ) REAL, ALLOCATABLE,SAVE :: SA_UU( :,: ) REAL, ALLOCATABLE,SAVE :: SAFRAC( : ) REAL, ALLOCATABLE,SAVE :: SA_NO2( : ) REAL, ALLOCATABLE,SAVE :: SA_SUM( : ) INTEGER, SAVE :: ISAM_INDEX_NO2 = 0 ! ...Index locating NO2 in ISAM INTEGER, SAVE :: ISAM_INDEX_NH3 = 0 ! ...Index locating NH3 in ISAM INTEGER, SAVE :: PLDV_INDEX_NH3 = 0 ! ...Index locating NH3 in PLDV INTEGER, ALLOCATABLE, SAVE :: ISAM_DEPV( : ) INTEGER, ALLOCATABLE, SAVE :: INDEX_SA_HONO( : ) INTEGER, ALLOCATABLE, SAVE :: INDEX_SA_NH3( : ) CHARACTER( 16 ) :: ISAM_SPECIES INTEGER TOP, BOT REAL NH3_SUM #endif INTERFACE SUBROUTINE MATRIX1 ( KL, A, B, E, D, X ) INTEGER, INTENT( IN ) :: KL REAL, INTENT( IN ) :: A( : ), B( : ), E( : ) REAL, INTENT( IN ) :: D( :,: ) REAL, INTENT( OUT ) :: X( :,: ) END SUBROUTINE MATRIX1 SUBROUTINE TRI ( L, D, U, B, X ) REAL, INTENT( IN ) :: L( : ), D( : ), U( : ) REAL, INTENT( IN ) :: B( :,: ) REAL, INTENT( OUT ) :: X( :,: ) END SUBROUTINE TRI #ifdef isam SUBROUTINE SA_MATRIX1 ( KL, A, B, E, D, X ) INTEGER, INTENT( IN ) :: KL REAL, INTENT( IN ) :: A( : ), B( : ), E(: ) REAL, INTENT( IN ) :: D( :,: ) REAL, INTENT( OUT ) :: X( :,: ) END SUBROUTINE SA_MATRIX1 SUBROUTINE SA_TRI ( L, D, U, B, X ) REAL, INTENT( IN ) :: L( : ), D( : ), U( : ) REAL, INTENT( IN ) :: B( :,: ) REAL, INTENT( OUT ) :: X( :,: ) END SUBROUTINE SA_TRI #endif END INTERFACE C----------------------------------------------------------------------- IF ( FIRSTIME ) THEN FIRSTIME = .FALSE. MDATE = 0; MTIME = 0 C set auxiliary depv arrays ALLOCATE ( DD_FAC( N_SPC_DEPV ), & DDBF ( N_SPC_DEPV ), & DEPVCR( N_SPC_DEPV ), & EFAC1 ( N_SPC_DEPV ), & EFAC2 ( N_SPC_DEPV ), & POL ( N_SPC_DEPV ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN XMSG = 'Failure allocating DD_FAC, DDBF, DEPVCR, EFAC1, EFAC2, or POL' CALL M3EXIT( PNAME, MDATE, MTIME, XMSG, XSTAT1 ) END IF ALLOCATE ( CMPF( LCMP ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN XMSG = 'Failure allocating CMPF' CALL M3EXIT( PNAME, MDATE, MTIME, XMSG, XSTAT1 ) END IF ALLOCATE ( CONC( N_SPC_DIFF,NLAYS ), & EMIS( N_SPC_DIFF,NLAYS ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN XMSG = 'Failure allocating CONC or EMIS' CALL M3EXIT( PNAME, MDATE, MTIME, XMSG, XSTAT1 ) END IF CONC = 0.0; EMIS = 0.0 ! array assignment ALLOCATE ( DD( N_SPC_DIFF,NLAYS ), & UU( N_SPC_DIFF,NLAYS ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN XMSG = 'Failure allocating DD or UU' CALL M3EXIT( PNAME, MDATE, MTIME, XMSG, XSTAT1 ) END IF DD = 0.0; UU = 0.0 ! array assignment HONO_HIT = 0; HNO3_HIT = 0; NO2_HIT = 0; NH3_HIT = 0 HONO_MAP = 0; HNO3_MAP = 0; NO2_MAP = 0 DO V = 1, N_SPC_DEPV IF ( DV2DF_SPC( V ) .EQ. 'NO2' ) THEN NO2_HIT = V NO2_MAP = DV2DF( V ) ELSE IF ( DV2DF_SPC( V ) .EQ. 'HONO' ) THEN HONO_HIT = V HONO_MAP = DV2DF( V ) ELSE IF ( DV2DF_SPC( V ) .EQ. 'HNO3' ) THEN HNO3_HIT = V HNO3_MAP = DV2DF( V ) ELSE IF ( DV2DF_SPC( V ) .EQ. 'NH3' ) THEN NH3_HIT = V ELSE IF ( DV2DF_SPC( V ) .EQ. 'O3' ) THEN O3_HIT = V O3_MAP = DV2DF( V ) END IF END DO #ifdef isam ALLOCATE ( SA_DDBF( N_SPCTAG ), & SACONC( N_SPCTAG, NLAYS ), & SAEMIS( N_SPCTAG, NLAYS ), & SA_DD ( N_SPCTAG, NLAYS ), & SA_UU ( N_SPCTAG, NLAYS ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN XMSG = 'Failure ISAM diffusion variables' CALL M3EXIT( PNAME, MDATE, MTIME, XMSG, XSTAT1 ) END IF ALLOCATE ( SAFRAC ( N_SPCTAG ), & SA_SUM ( NSPC_SA ), & ISAM_DEPV( N_SPCTAG ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN XMSG = 'Failure ISAM depv variables' CALL M3EXIT( PNAME, MDATE, MTIME, XMSG, XSTAT1 ) END IF ALLOCATE ( SA_NO2( NTAG_SA ), & INDEX_SA_HONO( NTAG_SA ), & INDEX_SA_NH3 ( NTAG_SA ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN XMSG = 'Failure ISAM HONO/NH3 variables' CALL M3EXIT( PNAME, MDATE, MTIME, XMSG, XSTAT1 ) END IF SACONC = 0.0 SAEMIS = 0.0 SA_DD = 0.0 SA_UU = 0.0 SAFRAC = 0.0 ISAM_DEPV = 0 SA_NO2 = 1.0 / REAL( NTAG_SA ) INDEX_SA_HONO = 0 INDEX_SA_NH3 = 0 ! set default partitioning of surface fluxes DO JSPCTAG = 1, N_SPCTAG IF ( T_SPCTAG( JSPCTAG ) .EQ. OTHRTAG ) THEN SAFRAC( JSPCTAG ) = 1.0 ELSE SAFRAC( JSPCTAG ) = 0.0 END IF END DO ! find NO2 in tracked species DO S = 1, NSPC_SA IF( ISAM_SPEC( S,1 ) .EQ. 'NO2' )THEN ISAM_INDEX_NO2 = S EXIT END IF END DO ! find NH3 in tracked species IF ( SA_BIDI ) THEN DO S = 1, NSPC_SA IF( ISAM_SPEC( S,1 ) .EQ. 'NH3' )THEN ISAM_INDEX_NH3 = S EXIT END IF END DO S = -1 S = INDEX1( 'NH3', N_SPC_DEPV, DEPV_SPC ) IF ( S .GT. 0 ) THEN PLDV_INDEX_NH3 = S ELSE XMSG = 'NH3 not found in DEPV_SPC array' CALL M3EXIT( 'PLDV_INDEX_NH3', 0, 0, XMSG, XSTAT1 ) END IF END IF ! set indices determining depv treatment, equals zero if none ITAG = 0 WRITE(LOGDEV,'(/,A7,1X,2(A16,1X))')'JSPCTAG','ISAM_SPECIES','DEPV Value' DO JSPCTAG = 1, N_SPCTAG ISAM_SPECIES = ISAM_SPEC( S_SPCTAG( JSPCTAG ),1 ) IF( TRIM( ISAM_SPECIES ) .EQ. 'HONO' )THEN ITAG = ITAG + 1 INDEX_SA_HONO( ITAG ) = JSPCTAG END IF DO V = 1, N_SPC_DEPV IF ( TRIM( ISAM_SPECIES ) .EQ. DV2DF_SPC( V ) ) THEN ISAM_DEPV( JSPCTAG ) = V END IF END DO END DO WRITE(LOGDEV,'(/,A4,1X,A13,1X,A16)')'ITAG','INDEX_SA_HONO','ISAM_SPECIES' DO ITAG = 1, NTAG_SA JSPCTAG = INDEX_SA_HONO( ITAG ) IF ( JSPCTAG .GT. 0 ) THEN WRITE(LOGDEV,'(I2,3X,I4,8X,A16)')ITAG,JSPCTAG,VNAM_SPCTAG( JSPCTAG ) ELSE WRITE(LOGDEV,'(I2,3X,I4,8X,A16)')ITAG,JSPCTAG,'MISSING' END IF END DO c WRITE(LOGDEV,* )'TAG_species, Default Partitioning Coeff.' c DO JSPCTAG = 1, N_SPCTAG c WRITE(LOGDEV,*)VNAM_SPCTAG( JSPCTAG ),' ,',SAFRAC( JSPCTAG ) c END DO IF ( ABFLUX .AND. L_NH4 ) THEN ITAG = 0 DO JSPCTAG = 1, N_SPCTAG ISAM_SPECIES = ISAM_SPEC( S_SPCTAG( JSPCTAG ),1 ) IF( TRIM( ISAM_SPECIES ) .EQ. 'NH3' )THEN ITAG = ITAG + 1 INDEX_SA_NH3( ITAG ) = JSPCTAG END IF END DO c DO ITAG = 1, NTAG_SA c JSPCTAG = INDEX_SA_NH3( ITAG ) c SAFRAC( JSPCTAG ) = 0.0 ! to not double count the bi-di emmissions c END DO END IF #endif #ifdef sens ALLOCATE ( S_POL ( NPMAX, N_SPC_DEPV ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN XMSG = 'Failure allocating S_POL' CALL M3EXIT( PNAME, MDATE, MTIME, XMSG, XSTAT1 ) END IF S_POL = 0.0 ALLOCATE ( S_DDBF( N_SPC_DEPV, NPMAX ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN XMSG = 'Failure allocating S_DBF' CALL M3EXIT( PNAME, MDATE, MTIME, XMSG, XSTAT1 ) END IF S_DDBF = 0.0 ALLOCATE ( SENS( N_SPC_DIFF,NLAYS,NPMAX ), & S_EMIS( N_SPC_DIFF,NLAYS,NPMAX ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN XMSG = 'Failure allocating SENS or S_EMIS' CALL M3EXIT( PNAME, MDATE, MTIME, XMSG, XSTAT1 ) END IF SENS = 0.0; S_EMIS = 0.0 ! array assignment ALLOCATE ( S_DD( N_SPC_DIFF,NLAYS,NPMAX ), & S_UU( N_SPC_DIFF,NLAYS,NPMAX ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN XMSG = 'Failure allocating S_DD or S_UU' CALL M3EXIT( PNAME, MDATE, MTIME, XMSG, XSTAT1 ) END IF S_DD = 0.0; S_UU = 0.0 ! array assignment ALLOCATE ( S_PLDV_HONO( NPMAX ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN XMSG = 'Failure allocating S_PLDV_HONO' CALL M3EXIT( PNAME, MDATE, MTIME, XMSG, XSTAT1 ) END IF S_PLDV_HONO = 0.0 ! array assignment #endif END IF ! if Firstime C ------------------------------------------- Row, Col LOOPS ----------- DO 345 R = 1, NROWS DO 344 C = 1, NCOLS DZH(1) = Met_Data%ZF( C,R,1 ) DZHI(1) = 1./DZH(1) DO L = 2, NLAYS DZH(L) = Met_Data%ZF( C,R,L ) - Met_Data%ZF( C,R,L-1 ) DZHI(L) = 1./DZH(L) ENDDO DO L = 1, NLAYS - 1 DZFI(L) = 1. / ( Met_Data%ZH( C,R,L+1 ) - Met_Data%ZH( C,R,L ) ) ENDDO DZFI(NLAYS) = DZFI(NLAYS-1) C for ACM time step DTLIM = DTSEC C dt = .75 dzf*dzh / Kz DO L = 1, NLAYS - 1 DTLIM = MIN( DTLIM, 0.75 / ( SEDDY( L,C,R ) * DZHI(L)*DZFI(L) ) ) END DO MBARKS = 0.0 ! array assignment MDWN = 0.0 ! array assignment C conjoin ACM & EDDY --------------------------------------------------- MBAR = 0.0 FNL = 0.0 IF ( Met_Data%CONVCT( C,R ) ) THEN ! Do ACM for this column LCBL = Met_Data%LPBL( C,R ) MEDDY = SEDDY( 1,C,R ) * DZFI(1) / (Met_Data%PBL( C,R ) - Met_Data%ZF(C,R,1)) FNL = 1.0 / ( 1.0 + ( ( KARMAN / ( -Met_Data%HOL( C,R ) ) ) ** 0.3333 ) & / ( 0.72 * KARMAN ) ) MBAR = MEDDY * FNL IF ( MEDDY .LT. EPS ) THEN gl_c = c + COLSX_PE(1,mype+1) -1 gl_r = r + ROWSX_PE(1,mype+1) -1 WRITE( LOGDEV,* ) ' Warning --- MEDDY < 1e-6 s-1' WRITE( LOGDEV,* ) ' SEDDY, MEDDY, FNL, HOL = ', & SEDDY( 1,C,R ), MEDDY, FNL, Met_Data%HOL( C,R ) XMSG = '*** ACM fails ***' WRITE( LOGDEV,*)' c,r=', gl_c,gl_r,' pbl,ust=',Met_Data%PBL( C,R ),Met_Data%USTAR( C,R ) ! CALL M3EXIT( PNAME, MDATE, MTIME, XMSG, XSTAT2 ) END IF IF ( ( FNL .LE. 0.0 ) .OR. ! never gonna happen for CONVCT & ( LCBL .GE. NLAYS-1 ) .OR. ! .GT. never gonna happen & ( Met_Data%HOL( C,R ) .GT. -0.00001 ) ) ! never gonna happen & WRITE( LOGDEV,1015 ) LCBL, MBAR, FNL, SEDDY( 1,C,R ), Met_Data%HOL( C,R ) 1015 FORMAT( ' LCBL, MBAR, FNL, SEDDY1, HOL:', I3, 1X, 4(1PE13.5) ) DO L = 2, LCBL SEDDY( L,C,R ) = ( 1.0 - FNL ) * SEDDY( L,C,R ) MBARKS( L ) = MBAR MDWN( L ) = MBAR * (Met_Data%PBL( C,R ) - Met_Data%ZF(C,R,L-1)) * DZHI(L) END DO SEDDY( 1,C,R ) = ( 1.0 - FNL ) * SEDDY( 1,C,R ) MBARKS(1) = MBAR MBARKS(LCBL) = MDWN(LCBL) MDWN(LCBL+1) = 0.0 C Modify Timestep for ACM2 RZ = (Met_Data%ZF(C,R,LCBL) - Met_Data%ZF(C,R,1)) * DZHI(1) DTACM = 1.0 / ( MBAR * RZ ) DTLIM = MIN( 0.75 * DTACM, DTLIM ) ELSE LCBL = 1 END IF C----------------------------------------------------------------------- NLP = INT( DTSEC / DTLIM + 0.99 ) IF ( VDIFFDIAG ) NLPCR( C,R ) = REAL( NLP ) DTS = DTSEC / REAL( NLP ) DTDENS1 = DTS * Met_Data%DENS1( C,R ) DFACP = THETA * DTS DFACQ = THBAR * DTS #ifdef Verbose_Vdiff IF ( R .EQ. NROWS / 2 .AND. C .EQ. NCOLS / 2 ) & WRITE( LOGDEV,1021 ) Met_Data%CONVCT( C,R ), DTS, EDDYV( C,R,1 ), MBAR, FNL 1021 FORMAT( ' CONVCT, DTS, EDDYV, MBAR, FNL: ', L3, 1X, 4(1PE13.5) ) #endif DO L = 1, NLAYS DO V = 1, N_SPC_DIFF CONC( V,L ) = CNGRD( DIFF_MAP( V ),L,C,R ) END DO #ifdef isam DO JSPCTAG = 1, N_SPCTAG SACONC( JSPCTAG,L ) = ISAM( C,R,L,S_SPCTAG( JSPCTAG ),T_SPCTAG( JSPCTAG ) ) END DO #endif END DO #ifdef sens DO NP = 1, NPMAX DO L = 1, NLAYS DO V = 1, N_SPC_DIFF SENS( V,L,NP ) = SNGRD( DIFF_MAP( V ),L,C,R,NP ) END DO END DO END DO #endif #ifdef isam SA_SUM = 0.0 DO V = 1, NSPC_SA DO ITAG = 1, NTAG_SA SA_SUM( V ) = SA_SUM( V ) + ISAM( C,R,1,V,ITAG ) END DO SA_SUM( V ) = MAX ( 1.0E-30, SA_SUM( V ) ) END DO SAFRAC = 0.0 DO JSPCTAG = 1, N_SPCTAG SAFRAC( JSPCTAG ) = SACONC( JSPCTAG,1 ) / SA_SUM ( S_SPCTAG( JSPCTAG ) ) END DO IF ( ABFLUX .AND. L_NH4 ) THEN DO ITAG = 1, NTAG_SA JSPCTAG = INDEX_SA_NH3( ITAG ) SAFRAC( JSPCTAG ) = 0.0 ! to not double count the bi-di emmissions END DO END IF IF( L_NO3 .AND. SFC_HONO ) THEN ! compute the flux partitioning for HONO from NO2 surface reaction DO ITAG = 1, NTAG_SA SA_NO2( ITAG ) = MAX( ISAM( C,R,1,ISAM_INDEX_NO2,ITAG ), 1.0E-30 ) END DO TOTAL_SA_NO2 = 1.0 / SUM( SA_NO2 ) DO ITAG = 1, NTAG_SA JSPCTAG = INDEX_SA_HONO( ITAG ) SAFRAC( JSPCTAG ) = SA_NO2( ITAG ) * TOTAL_SA_NO2 END DO END IF #endif EMIS = 0.0 ! array assignment IF ( DESID_N_SRM .GE. 1 ) & EMIS( :,1:DESID_LAYS ) = DTS * VDEMIS_DIFF( :,:,C,R ) #ifdef isam SAEMIS = 0.0 ! modify ground emissions for bidirectional species (for bidi, PLVD > 0.0) IF ( SA_BIDI ) THEN SA_VDEMIS_DIFF( ISAM_INDEX_NH3,1,C,R,BIDITAG ) & = PLDV(PLDV_INDEX_NH3,C,R) * Met_Data%RDEPVHT( C,R ) END IF ! collapse ISAM emissions array DO L = 1, DESID_LAYS DO ITAG = 1, NTAG_SA BOT = (ITAG-1)*NSPC_SA+1 TOP = NSPC_SA*ITAG SAEMIS( BOT:TOP,L ) = DTS * SA_VDEMIS_DIFF( :,L,C,R,ITAG ) END DO END DO #endif #ifdef sens S_EMIS = 0.0 DO NP = 1, NPMAX S_EMIS( :,1:DESID_LAYS,NP ) = DTS * SVDEMIS_DIFF( :,:,C,R,NP ) END DO #endif DO L = 1, NLAYS DFSP( L ) = DFACP * DZHI( L ) DFSQ( L ) = DFACQ * DZHI( L ) EDDY( L ) = SEDDY( L,C,R ) * DZFI(L) END DO RP = DFACP * Met_Data%RDEPVHT( C,R ) RQ = DFACQ * Met_Data%RDEPVHT( C,R ) DO V = 1, N_SPC_DEPV DDBF( V ) = DDEP( V,C,R ) DEPVCR( V ) = DEPV( V,C,R ) DD_FAC( V ) = DTDENS1 * DD_CONV( V ) * DEPVCR( V ) EFAC1 ( V ) = EXP( -DEPVCR( V ) * RP ) EFAC2 ( V ) = EXP( -DEPVCR( V ) * RQ ) POL ( V ) = PLDV( V,C,R ) / DEPVCR( V ) #ifdef sens DO NP = 1, NPMAX S_POL ( NP,V ) = S_PLDV( NP,V,C,R ) / DEPVCR( V ) S_DDBF( V, NP ) = S_DDEP( V, C, R, NP ) END DO #endif END DO PLDV_HONO = PLDV( HONO_HIT,C,R ) #ifdef sens DO NP = 1, NPMAX S_PLDV_HONO( NP ) = S_PLDV( NP,HONO_HIT,C,R ) END DO #endif #ifdef isam DO JSPCTAG = 1, N_SPCTAG SA_DDBF( JSPCTAG ) = SA_DDEP( C,R,JSPCTAG ) END DO #endif C These don`t change in the NLP sub-time step loop:--------------------- DO L = 1, NLAYS AA ( L ) = 0.0 BB1( L ) = 0.0 EE1( L ) = 0.0 CC ( L ) = 0.0 EE2( L ) = 0.0 BB2( L ) = 0.0 END DO IF ( Met_Data%CONVCT( C,R ) ) THEN L = 1 DELP = Met_Data%PBL( C,R ) - Met_Data%ZF( C,R,L ) BB1( L ) = 1.0 + DELP * DFSP( L ) * MBARKS( L ) LFAC1( L ) = DFSQ( L ) * DELP * MBARKS( L ) LFAC2( L ) = DFSQ( L ) * MDWN( L+1 ) * DZH( L+1 ) DO L = 2, LCBL AA ( L ) = -DFACP * MBARKS( L ) BB1( L ) = 1.0 + DFACP * MDWN( L ) EE1( L ) = -DFSP( L-1 ) * DZH( L ) * MDWN( L ) MFAC( L ) = DZH( L+1 ) * DZHI( L ) * MDWN( L+1 ) END DO END IF DO L = 1, NLAYS EE2( L ) = - DFSP( L ) * EDDY( L ) LFAC3( L ) = DFSQ( L ) * EDDY( L ) END DO BB2( 1 ) = 1.0 - EE2( 1 ) DO L = 2, NLAYS CC ( L ) = - DFSP( L ) * EDDY( L-1 ) BB2( L ) = 1.0 - CC( L ) - EE2( L ) LFAC4( L ) = DFSQ( L ) * EDDY( L-1 ) END DO DO 301 NL = 1, NLP ! loop over sub time DO V = 1, N_SPC_DEPV C --------- HET HONO RX ----------------- C Use special treatment for HNO3 C HNO3 produced via the heterogeneous reaction sticks on surfaces and C is accounted as depositional loss; calculate increased deposition loss IF ( V .EQ. HNO3_HIT ) THEN S = HNO3_MAP CONC( S,1 ) = POL( V ) + ( CONC( S,1 ) - POL( V ) ) * EFAC1( V ) DEPV_HNO3 = DEPVCR( V ) + PLDV_HONO / CONC( NO2_MAP,1 ) DD_FAC( V ) = DTDENS1 * DD_CONV( V ) * DEPV_HNO3 DDBF( V ) = DDBF( V ) + THETA * DD_FAC( V ) * CONC( S,1 ) #ifdef sens DO NP = 1, NPMAX SENS( S,1,NP ) = S_POL( NP,V ) + ( SENS( S,1,NP ) - S_POL( NP,V ) ) * EFAC1( V ) S_DDBF( V, NP ) = S_DDBF( V, NP ) + THETA * DD_FAC( V ) * SENS ( S,1,NP ) END DO #endif C Use special treatment for NO2 C Loss of NO2 via the heterogeneous reaction is accounted for as an additional C depositional loss. Add the loss of NO2 via the heterogeneous reaction C to the regular deposition velocity (increased dep. vel.). This will C reduce the NO2 conc. in the atmosphere without affecting the depositional loss. ELSE IF ( V .EQ. NO2_HIT ) THEN S = NO2_MAP DEPV_NO2 = DEPVCR( V ) + 2.0 * PLDV_HONO / CONC( S,1 ) EFAC1 ( V ) = EXP( -DEPV_NO2 * RP ) EFAC2 ( V ) = EXP( -DEPV_NO2 * RQ ) POL ( V ) = PLDV( V,C,R ) / DEPV_NO2 CONC( S,1 ) = POL( V ) + ( CONC( S,1 ) - POL( V ) ) * EFAC1( V ) DDBF( V ) = DDBF( V ) + THETA * DD_FAC( V ) * CONC( S,1 ) #ifdef sens DO NP = 1, NPMAX S_POL( NP, V ) = S_PLDV( NP,V,C,R ) / DEPV_NO2 SENS( S,1,NP ) = S_POL( NP,V ) + ( SENS( S,1,NP ) - S_POL( NP,V ) ) * EFAC1( V ) S_DDBF( V, NP ) = S_DDBF( V, NP ) + THETA * DD_FAC( V ) * SENS ( S,1,NP ) END DO #endif ELSE IF ( V .EQ. HONO_HIT ) THEN S = HONO_MAP CONC( S,1 ) = POL( V ) + ( CONC( S,1 ) - POL( V ) ) * EFAC1( V ) DDBF( V ) = DDBF( V ) + THETA * DD_FAC( V ) * CONC( S,1 ) C Don't add HONO emissions as negative dep flux ! & - DTDENS1 * DD_CONV( V ) * PLDV( V,C,R ) ) #ifdef sens DO NP = 1, NPMAX SENS( S,1,NP ) = S_POL( NP,V ) + ( SENS( S,1,NP ) - S_POL( NP,V ) ) * EFAC1( V ) S_DDBF( V, NP ) = S_DDBF( V, NP ) + THETA * DD_FAC( V ) * SENS ( S,1,NP ) END DO #endif C --------- END of HET HONO RX ---------- ELSE C Pass selected N species to the BDSNP Soil NO emissions scheme IF ( MGN_ONLN_DEP ) THEN IF(SPECLOG) then IF( V .eq. N_SPC_DEPV) THEN SPECLOG = .false. ! no need to do any species more than once WRITE( LOGDEV,*) 'BDSNP Species list complete', speclog END IF END IF IF ( (INDEX(TRIM( DV2DF_SPC( V ) ), 'NH3') .NE. 0) .OR. & (INDEX(TRIM( DV2DF_SPC( V ) ), 'NH4') .NE. 0) .OR. & (INDEX(TRIM( DV2DF_SPC( V ) ), 'HNO3').NE. 0) .OR. & (INDEX(TRIM( DV2DF_SPC( V ) ), 'NO3') .NE. 0) .OR. & (INDEX(TRIM( DV2DF_SPC( V ) ), 'NO2') .NE. 0) .OR. & (INDEX(TRIM( DV2DF_SPC( V ) ), 'PAN') .NE. 0)) THEN IF( SPECLOG ) THEN !write species each time it is used WRITE( LOGDEV,*) 'BDSNP Dry Species Used:', TRIM(DV2DF_SPC( V ) ), V, N_SPC_DEPV END IF IF ( ( DDBF(V)- DDEP( V,C,R) ) .LT. 0.0 ) THEN !negative error checking XMSG = 'Negative Deposition' ! WRITE( LOGDEV,*) 'BDSNP Negative Deposition vdiff, variable:', ! & TRIM( DV2DF_SPC( V )), ( DDBF(V)- DDEP( V,C,R) ), C, R ! CALL M3EXIT( PNAME, MDATE, MTIME, XMSG, XSTAT1 ) CALL GET_N_DEP (DV2DF_SPC( V ), 0/ & DTSEC, C, R ) else CALL GET_N_DEP (DV2DF_SPC( V ), ( DDBF(V)- DDEP( V,C,R) )/ & DTSEC, C, R ) END IF !end negative error checking END IF !end species check END IF !end BDSNP check S = DV2DF( V ) CONC( S,1 ) = POL( V ) + ( CONC( S,1 ) - POL( V ) ) * EFAC1( V ) DDBF( V ) = DDBF( V ) + THETA * ( DD_FAC( V ) * CONC( S,1 ) C Add evasion as negative dep flux & - DTDENS1 * DD_CONV( V ) * PLDV( V,C,R ) ) #ifdef sens DO NP = 1, NPMAX SENS( S,1,NP ) = S_POL( NP,V ) + ( SENS( S,1,NP ) - S_POL( NP,V ) ) * EFAC1( V ) S_DDBF( V, NP ) = S_DDBF( V, NP ) + THETA * ( DD_FAC( V ) * SENS( S, 1,NP ) & - DTDENS1 * DD_CONV( V ) * S_PLDV( NP,V,C,R ) ) END DO #endif END IF END DO DO L = 1, NLAYS DO V = 1, N_SPC_DIFF DD( V,L ) = 0.0 UU( V,L ) = 0.0 #ifdef sens DO NP = 1, NPMAX S_DD( V,L,NP) = 0.0 S_UU( V,L,NP) = 0.0 END DO #endif END DO END DO #ifdef isam DO JSPCTAG = 1, N_SPCTAG S = ISAM_DEPV( JSPCTAG ) IF ( S .GT. 0 ) THEN SACONC( JSPCTAG,1 ) = SACONC( JSPCTAG,1 ) * EFAC1( S ) & + SAFRAC( JSPCTAG ) * POL( S ) * ( 1.0 - EFAC1( S ) ) SA_DDBF( JSPCTAG ) = SA_DDBF( JSPCTAG ) & + THETA * DD_FAC( S ) * SACONC( JSPCTAG,1 ) END IF END DO c Recalculate bidi NH3 deposition IF ( ABFLUX .AND. SA_BIDI ) THEN NH3_SUM = 0.0 DO JSPCTAG = 1, N_SPCTAG S = ISAM_DEPV( JSPCTAG ) IF ( S .EQ. NH3_HIT ) NH3_SUM = NH3_SUM + SACONC( JSPCTAG,1 ) END DO DO JSPCTAG = 1, N_SPCTAG S = ISAM_DEPV( JSPCTAG ) IF ( S .EQ. NH3_HIT ) THEN IF( NH3_SUM .GT. 1.0E-25 ) THEN SA_DDBF( JSPCTAG ) = DDBF(NH3_HIT) * ( SACONC( JSPCTAG,1 ) / NH3_SUM ) ELSE SA_DDBF( JSPCTAG ) = 0.0 END IF END IF END DO END IF DO L = 1, NLAYS DO V = 1, N_SPCTAG SA_DD( V,L ) = 0.0 SA_UU( V,L ) = 0.0 END DO END DO #endif C Compute tendency of CBL concentrations - semi-implicit solution C Set MATRIX1 elements A (col 1), B (diag.), E (superdiag.) and D (RHS) IF ( Met_Data%CONVCT( C,R ) ) THEN L = 1 DO V = 1, N_SPC_DIFF DD( V,L ) = CONC( V,L ) & - LFAC1( L ) * CONC( V,L ) & + LFAC2( L ) * CONC( V,L+1 ) #ifdef sens DO NP = 1, NPMAX S_DD( V,L,NP ) = SENS( V,L,NP ) & - LFAC1( L ) * SENS( V,L,NP ) & + LFAC2( L ) * SENS( V,L+1,NP ) END DO #endif END DO #ifdef isam DO JSPCTAG = 1, N_SPCTAG SA_DD( JSPCTAG, L) = SACONC( JSPCTAG,L ) & - LFAC1( L ) * SACONC( JSPCTAG,L ) & + LFAC2( L ) * SACONC( JSPCTAG,L+1 ) ENDDO #endif DO L = 2, LCBL DO V = 1, N_SPC_DIFF DELC = MBARKS( L ) * CONC( V,1 ) & - MDWN( L ) * CONC( V,L ) & + MFAC( L ) * CONC( V,L+1 ) DD( V,L ) = CONC( V,L ) + DFACQ * DELC #ifdef sens DO NP = 1, NPMAX S_DELC = MBARKS( L ) * SENS( V,1,NP ) & - MDWN( L ) * SENS( V,L,NP ) & + MFAC( L ) * SENS( V,L+1,NP ) S_DD( V,L,NP ) = SENS( V,L,NP ) + DFACQ * S_DELC END DO #endif END DO #ifdef isam DO JSPCTAG = 1, N_SPCTAG DELC = MBARKS( L ) * SACONC( JSPCTAG,1 ) & - MDWN( L ) * SACONC( JSPCTAG,L ) & + MFAC( L ) * SACONC( JSPCTAG,L+1 ) SA_DD( JSPCTAG,L ) = SACONC( JSPCTAG,L ) + DFACQ * DELC END DO #endif END DO CALL MATRIX1 ( LCBL, AA, BB1, EE1, DD, UU ) #ifdef isam CALL SA_MATRIX1( LCBL, AA, BB1,EE1, SA_DD, SA_UU) #endif #ifdef sens DO NP = 1, NPMAX CALL MATRIX1 ( LCBL, AA, BB1, EE1, S_DD(:,:,NP), S_UU(:,:,NP) ) END DO #endif C update conc DO L = 1, LCBL DO V = 1, N_SPC_DIFF CONC( V,L ) = UU( V,L ) #ifdef sens DO NP = 1, NPMAX SENS( V,L,NP ) = S_UU( V,L,NP ) END DO #endif END DO #ifdef isam DO JSPCTAG = 1, N_SPCTAG SACONC ( JSPCTAG,L ) = SA_UU( JSPCTAG,L ) ENDDO #endif END DO C reinitialize for TRI solver DO L = 1, NLAYS DO V = 1, N_SPC_DIFF DD( V,L ) = 0.0 UU( V,L ) = 0.0 #ifdef sens DO NP = 1, NPMAX S_DD( V,L,NP ) = 0.0 S_UU( V,L,NP ) = 0.0 END DO #endif END DO #ifdef isam DO JSPCTAG = 1, N_SPCTAG SA_DD( JSPCTAG,L ) = 0.0 SA_UU( JSPCTAG,L ) = 0.0 ENDDO #endif END DO END IF L = 1 DO V = 1, N_SPC_DIFF DD( V,L ) = CONC( V,L ) & + LFAC3( L ) * ( CONC( V,L+1 ) - CONC( V,L ) ) & + EMIS( V,L ) #ifdef sens DO NP = 1, NPMAX S_DD( V,L,NP ) = SENS( V,L,NP ) & + LFAC3( L ) * ( SENS( V,L+1,NP ) - SENS( V,L,NP ) ) & + S_EMIS( V,L,NP ) END DO #endif END DO #ifdef isam DO JSPCTAG = 1, N_SPCTAG SA_DD( JSPCTAG,L ) = SACONC( JSPCTAG,L ) & + LFAC3( L ) * ( SACONC( JSPCTAG,L+1 ) - SACONC( JSPCTAG,L ) ) & + SAEMIS( JSPCTAG,L ) END DO #endif DO L = 2, NLAYS-1 DO V = 1, N_SPC_DIFF DD( V,L ) = CONC( V,L ) & + LFAC3( L ) * ( CONC( V,L+1 ) - CONC( V,L ) ) & - LFAC4( L ) * ( CONC( V,L ) - CONC( V,L-1 ) ) & + EMIS( V,L ) #ifdef sens DO NP = 1, NPMAX S_DD( V,L,NP ) = SENS( V,L,NP ) & + LFAC3( L ) * ( SENS( V,L+1,NP ) - SENS( V,L,NP ) ) & - LFAC4( L ) * ( SENS( V,L,NP ) - SENS( V,L-1,NP ) ) & + S_EMIS( V,L,NP ) END DO #endif END DO #ifdef isam DO JSPCTAG = 1, N_SPCTAG SA_DD( JSPCTAG,L ) = SACONC( JSPCTAG,L ) & + LFAC3( L ) * ( SACONC( JSPCTAG,L+1 ) - SACONC( JSPCTAG,L ) ) & - LFAC4( L ) * ( SACONC( JSPCTAG,L ) - SACONC( JSPCTAG,L-1 ) ) & + SAEMIS( JSPCTAG,L ) END DO #endif END DO L = NLAYS DO V = 1, N_SPC_DIFF DD( V,L ) = CONC( V,L ) & - LFAC4( L ) * ( CONC( V,L ) - CONC( V,L-1 ) ) #ifdef sens DO NP = 1, NPMAX S_DD( V,L,NP ) = SENS( V,L,NP ) & - LFAC4( L ) * ( SENS( V,L,NP ) - SENS( V,L-1,NP ) ) END DO #endif END DO #ifdef isam DO JSPCTAG = 1, N_SPCTAG SA_DD( JSPCTAG,L ) = SACONC( JSPCTAG,L ) & - LFAC4( L ) * ( SACONC( JSPCTAG,L ) - SACONC( JSPCTAG,L-1 ) ) END DO #endif CALL TRI ( CC, BB2, EE2, DD, UU ) #ifdef isam CALL SA_TRI ( CC, BB2, EE2, SA_DD, SA_UU ) #endif #ifdef sens DO NP = 1, NPMAX CALL TRI ( CC, BB2, EE2, S_DD(:,:,NP), S_UU(:,:,NP) ) END DO #endif C Load into CGRID DO L = 1, NLAYS DO V = 1, N_SPC_DIFF CONC( V,L ) = UU( V,L ) #ifdef sens DO NP = 1, NPMAX SENS( V,L,NP ) = S_UU( V,L,NP ) END DO #endif END DO #ifdef isam DO JSPCTAG = 1, N_SPCTAG SACONC( JSPCTAG,L ) = SA_UU( JSPCTAG,L ) END DO #endif END DO DO V = 1, N_SPC_DEPV C --------- HET HONO RX ----------------- IF ( V .EQ. HNO3_HIT ) THEN S = HNO3_MAP CONC( S,1 ) = POL( V ) + ( CONC( S,1 ) - POL( V ) ) * EFAC2( V ) DDBF( V ) = DDBF( V ) + THBAR * DD_FAC( V ) * CONC( S,1 ) #ifdef sens DO NP = 1, NPMAX SENS( S,1,NP ) = S_POL( NP,V ) + ( SENS( S,1,NP ) - S_POL( NP,V ) ) * EFAC2( V ) S_DDBF( V,NP ) = S_DDBF( V,NP ) + THBAR * DD_FAC( V ) * SENS( S,1,NP ) END DO #endif ELSE IF ( V .EQ. NO2_HIT ) THEN S = NO2_MAP CONC( S,1 ) = POL( V ) + ( CONC( S,1 ) - POL( V ) ) * EFAC2( V ) DDBF( V ) = DDBF( V ) + THBAR * DD_FAC( V ) * CONC( S,1 ) #ifdef sens DO NP = 1, NPMAX SENS( S,1,NP ) = S_POL( NP,V ) + ( SENS( S,1,NP ) - S_POL( NP,V ) ) * EFAC2( V ) S_DDBF( V,NP ) = S_DDBF( V,NP ) + THBAR * DD_FAC( V ) * SENS( S,1,NP ) END DO #endif ELSE IF ( V .EQ. HONO_HIT ) THEN S = HONO_MAP CONC( S,1 ) = POL( V ) + ( CONC( S,1 ) - POL( V ) ) * EFAC2( V ) DDBF( V ) = DDBF( V ) + THBAR * DD_FAC( V ) * CONC( S,1 ) C Don't add HONO emissions as negative dep flux ! & - DTDENS1 * DD_CONV( V ) * PLDV( V,C,R ) ) #ifdef sens DO NP = 1, NPMAX SENS( S,1,NP ) = S_POL( NP,V ) + ( SENS( S,1,NP ) - S_POL( NP,V ) ) * EFAC2( V ) S_DDBF( V,NP ) = S_DDBF( V,NP ) + THBAR * DD_FAC( V ) * SENS( S,1,NP ) END DO #endif C --------- END of HET HONO RX ---------- ELSE S = DV2DF( V ) CONC( S,1 ) = POL( V ) + ( CONC( S,1 ) - POL( V ) ) * EFAC2( V ) DDBF( V ) = DDBF( V ) + THBAR * ( DD_FAC( V ) * CONC( S,1 ) C Add evasion as negative dep flux & - DTDENS1 * DD_CONV( V ) * PLDV( V,C,R ) ) #ifdef sens DO NP = 1, NPMAX SENS( S,1,NP ) = S_POL( NP,V ) + ( SENS( S,1,NP ) - S_POL( NP,V ) ) * EFAC2( V ) S_DDBF( V,NP ) = S_DDBF( V,NP ) + THBAR * ( DD_FAC( V ) * SENS( S,1,NP ) & - DTDENS1 * DD_CONV( V ) * S_PLDV( NP,V,C,R ) ) END DO #endif END IF END DO #ifdef isam C Update ISAM Dry Deposition DO JSPCTAG = 1, N_SPCTAG S = ISAM_DEPV( JSPCTAG ) IF ( S .GT. 0 ) THEN SACONC( JSPCTAG,1 ) = SACONC( JSPCTAG,1 ) * EFAC2( S ) & + SAFRAC( JSPCTAG ) * POL( S ) * ( 1.0 - EFAC2( S ) ) SA_DDBF( JSPCTAG ) = SA_DDBF( JSPCTAG ) & + THBAR * DD_FAC( S ) * SACONC( JSPCTAG,1 ) END IF END DO c Recalculate bidi NH3 deposition IF ( ABFLUX .AND. SA_BIDI ) THEN NH3_SUM = 0.0 DO JSPCTAG = 1, N_SPCTAG S = ISAM_DEPV( JSPCTAG ) IF ( S .EQ. NH3_HIT ) NH3_SUM = NH3_SUM + SACONC( JSPCTAG,1 ) END DO DO JSPCTAG = 1, N_SPCTAG S = ISAM_DEPV( JSPCTAG ) IF ( S .EQ. NH3_HIT ) THEN IF( NH3_SUM .GT. 1.0E-25 ) THEN SA_DDBF( JSPCTAG ) = DDBF(NH3_HIT) * ( SACONC( JSPCTAG,1 ) / NH3_SUM ) ELSE SA_DDBF( JSPCTAG ) = 0.0 END IF END IF END DO END IF #endif 301 CONTINUE ! end sub time loop DO L = 1, NLAYS DO V = 1, N_SPC_DIFF CNGRD( DIFF_MAP( V ),L,C,R ) = CONC( V,L ) END DO #ifdef isam DO JSPCTAG = 1, N_SPCTAG IF( TRANSPORT_SPC( JSPCTAG ) )THEN ISAM( C,R,L,S_SPCTAG( JSPCTAG ),T_SPCTAG( JSPCTAG ) ) = SACONC( JSPCTAG,L ) END IF END DO #endif END DO DO V = 1, N_SPC_DEPV DDEP( V,C,R ) = DDBF( V ) END DO #ifdef isam DO JSPCTAG = 1, N_SPCTAG SA_DDEP( C,R,JSPCTAG ) = SA_DDBF( JSPCTAG ) END DO #endif #ifdef sens DO NP = 1, NPMAX DO L = 1, NLAYS DO V = 1, N_SPC_DIFF SNGRD( DIFF_MAP( V ),L,C,R,NP ) = SENS( V,L,NP ) END DO END DO DO V = 1, N_SPC_DEPV S_DDEP( V,C,R,NP ) = S_DDBF( V,NP ) END DO END DO #endif 344 CONTINUE ! end loop on col C 345 CONTINUE ! end loop on row R RETURN END ================================================ FILE: CCTM/src/vdiff/acm2_m3dry/vdiffproc.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE VDIFF ( CGRID, JDATE, JTIME, TSTEP ) C----------------------------------------------------------------------- C Asymmetric Convective Model v2 (ACM2) -- Pleim(2006) C Function: C calculates and writes dry deposition. C calculates vertical diffusion C Subroutines and Functions Called: C SEC2TIME, TIME2SEC, WRITE3, NEXTIME, C M3EXIT, EDDYX, TRI, MATRIX, PA_UPDATE_EMIS, PA_UPDATE_DDEP C Revision History: C Analogous to VDIFFIM (Eddy diffusion PBL scheme) C 31 Jan 05 J.Young: dyn alloc - establish both horizontal & vertical C domain specifications in one module (GRID_CONF) C 7 Jun 05 P.Bhave: added call to OPSSEMIS if MECHNAME='AE4'; C added TSTEP to RDEMIS_AE call vector C Aug 05 J. Pleim Update to v4.5 C C Jan 06 J. Pleim ACM2 implementation C Jul 06 J.Young: emis module C Nov 06 B.Hutzell, J.Young: depv module C Mar 08 G.Sarwar: added heterogeneous reaction for HONO. It affects HONO, NO2 and HNO3 C Apr 08 J.Young: optional inline beis and plume rise emissions C 21 Jun 10 J.Young: convert for Namelist redesign C 16 Feb 11 S.Roselle: replaced I/O API include files with UTILIO_DEFN C 10 May 11 J.Bash: updated for NH3 bidirectional exchange C 11 May 11 D.Wong: - incorporated twoway model implementation C 20 May 11 D.Schwede: modified to include mosaic C 15 Aug 11 D.Schwede and G. Sarwar: Modified HONO calculation so that deposition C velocity for NO2 that is output in DEPV file does not include the loss due C to the heterogeneous reaction. C This additional loss is now accounted for in vdiff.F C 14 Sep 11 J.Young: fix TSTEP bug in call to DEPV_INIT C 11 Apr 13 J.Young: fix double adjustment of conc for DDBF in heterogeneous HONO C if-then-else clauses; eliminate some white space C 13 May 13 J.Young: access met data from VDIFF_MET module C change CRANKP to THBAR, CRANKQ to THETA C 25 May 13 J.Young: re-do the acm/eddy algorithm for computational efficiency C 30 Apr 14 J.Young: switch THBAR and THETA C 2 May 14 J.Pleim, J.Young: replace the banded tridiagonal matrix solver for the C convective PBL, with the ACM1 matrix solver followed by the tridiagonal C matrix solver C 30 May 14 J.Young: split vdiff calculation out of vdiff proc. C 31 Jul 14 J.Young: incorporate gravitational settling for J-,K-mode aerosols C 07 Nov 14 J.Bash: Updated for the ASX_DATA_MOD shared data module. C 03 Jul 15 J.Young: put sedi stuff into a module C 13 Aug 15 J.Bash: updated for MP model C 15 Aug 15 D.Wong: - Replaced MYPE with IO_PE_INCLUSIVE for parallel I/O C implementation C - Added a block of code to allow non I/O processors C to open CTM_DRY_DEP_1, CTM_VSED_DIAG, CTM_VDIFF_DIAG, C CTM_DRY_DEP_MOS, and CTM_DRY_DEP_FST C 03 Mar 16 G.Sarwar: updated for halogen emissions C 16 Sep 16 J.Young: update for inline procan (IPR) C 02 Nov 2018: L.Zhou, S.Napelenok: isam implementation C 1 Feb 19 D.Wong: removed all MY_N clauses C 12 Dec 19 S.L.Napelenok: ddm-3d implementation for version 5.3.1 C----------------------------------------------------------------------- USE CGRID_SPCS ! CGRID mechanism species USE GRID_CONF USE DESID_VARS, ONLY : VDEMIS_DIFF, DESID_LAYS USE DESID_MODULE, ONLY : DESID_INIT, DESID_DRIVER USE DEPV_DEFN USE ASX_DATA_MOD ! USE MPAS_DATA_MOD USE VDIFF_MAP USE UTILIO_DEFN USE BIDI_MOD USE HGSIM ! USE LSM_MOD, Only: n_lufrac USE SEDIMENTATION USE VDIFF_DIAG #ifdef mpas use mio_module use coupler_module USE util_module, only : sec2time, time2sec, nextime, index1 USE centralized_io_module #else USE PA_UPDATE USE PA_DEFN, ONLY : LIPR, BUDGET_DIAG #endif #ifdef isam USE SA_DEFN, Only: ITAG, N_SPCTAG, VNAM_SPCTAG, SA_DDEP, SA_BIDI, ISAM, NTAG_SA, & S_SPCTAG, NSPC_SA, ISAM_SPEC, OTHRTAG #endif #ifdef sens USE DDM3D_DEFN, ONLY: NP, NPMAX, SENGRID, SPCNAME, S_DDEP, SNGRD, SENGRID_TEMP, SEN_PAR #endif IMPLICIT NONE INCLUDE SUBST_FILES_ID ! file name parameters CHARACTER( 120 ) :: XMSG = ' ' C Arguments: REAL, POINTER :: CGRID( :,:,:,: ) ! concentrations INTEGER JDATE ! current model date, coded YYYYDDD INTEGER JTIME ! current model time, coded HHMMSS INTEGER TSTEP( 3 ) ! time step vector (HHMMSS) ! TSTEP(1) = local output step ! TSTEP(2) = sciproc sync. step (chem) ! TSTEP(3) = twoway model time step w.r.t. wrf time ! step and wrf/cmaq call frequency C Parameters: C External Functions: None C Local Variables: CHARACTER( 16 ), SAVE :: PNAME = 'VDIFFPROC' CHARACTER( 80 ) :: VARDESC ! env variable description LOGICAL, SAVE :: FIRSTIME = .TRUE. LOGICAL, SAVE :: WRITE_FIRSTIME = .TRUE. INTEGER, SAVE :: WSTEP = 0 ! local write counter INTEGER STATUS ! ENV... status REAL FCMSF ! loop local RMSFX4( C,R ) REAL, ALLOCATABLE, SAVE :: CNGRD( :,:,:,: ) ! cgrid aero in mixing ratio REAL, ALLOCATABLE, SAVE :: DDEP ( :,:,: ) ! ddep accumulator REAL, ALLOCATABLE, SAVE :: DDEP0 ( :,:,: ) ! ddep initial before call to vdiffacmx REAL, ALLOCATABLE, SAVE :: NH3_EMIS0( :,: ) ! NH3_EMIS0 initial before call to get_depv REAL, ALLOCATABLE, SAVE :: ICMP ( :,:,: ) ! component flux accumlator REAL :: WRDD( NCOLS,NROWS ) ! ddep write buffer REAL, ALLOCATABLE, SAVE :: DDEP_PA ( :,:,: ) ! ddep for process analysis REAL, ALLOCATABLE, SAVE :: EMIS_PA( :,:,:,: ) ! emis for process analysis INTEGER, SAVE :: N_SPC_CGRID ! no. of CGRID species REAL :: EDDYV ( NCOLS,NROWS,NLAYS ) ! from EDYINTB REAL :: SEDDY ( NLAYS,NCOLS,NROWS ) ! flipped EDDYV REAL DTSEC ! model time step in seconds REAL :: NH3_FLUX( NCOLS,NROWS ) REAL, ALLOCATABLE, SAVE :: VSED_AE( :,:,:,: ) INTEGER, SAVE :: NH3_HIT C Local Variables #ifdef mpas CHARACTER (20) :: TIME_STAMP #endif ! this is for creating the output name list character (512) :: fname character (30), allocatable, save :: name_list(:) character (30) :: oname character (120) :: buf, buf2 integer, save :: loc_n integer :: loc_nvars, stat, n, k, fnum logical :: found INTEGER ASTAT INTEGER C, R, L, S, V, I, J, OFF ! loop induction variables INTEGER MDATE, MTIME, MSTEP ! internal simulation date&time CHARACTER(LEN=8), PARAMETER :: NAME_NH3_EMIS = 'NH3_Emis' CHARACTER(LEN=8), PARAMETER :: NAME_NH3_FLUX = 'NH3_Flux' CHARACTER(LEN=16) :: SPCBASE #ifdef isam REAL NH3_SUM REAL, ALLOCATABLE, SAVE :: NH3_TAG_FRACTION( : ) INTEGER :: NH3_ISAM_IDX = 0 INTEGER, ALLOCATABLE, SAVE :: ISAM_DEPV( : ) INTEGER IBGN, JTAG CHARACTER( 16 ) :: ISAM_SPECIES INTEGER, SAVE :: NH3_DV2DF_SPC_IDX = 0 #endif INTERFACE SUBROUTINE CONV_CGRID ( CGRID, JDATE, JTIME, CNGRD ) REAL, POINTER :: CGRID( :,:,:,: ) INTEGER, INTENT( IN ) :: JDATE, JTIME REAL, INTENT( INOUT ) :: CNGRD( :,:,:,: ) END SUBROUTINE CONV_CGRID SUBROUTINE REV_CGRID ( CNGRD, JDATE, JTIME, CGRID ) REAL, INTENT( INOUT ) :: CNGRD( :,:,:,: ) INTEGER, INTENT( IN ) :: JDATE, JTIME REAL, POINTER :: CGRID( :,:,:,: ) END SUBROUTINE REV_CGRID SUBROUTINE EDDYX ( EDDYV ) REAL, INTENT( OUT ) :: EDDYV( :,:,: ) END SUBROUTINE EDDYX SUBROUTINE VDIFFACMX( dtsec, seddy, ddep, icmp, cngrd) REAL, INTENT( IN ) :: dtsec REAL, INTENT( INOUT ) :: seddy( :,:,: ) REAL, INTENT( INOUT ) :: ddep ( :,:,: ) REAL, INTENT( INOUT ) :: icmp ( :,:,: ) REAL, INTENT( INOUT ) :: cngrd( :,:,:,: ) END SUBROUTINE VDIFFACMX #ifdef isam SUBROUTINE SA_OPWDDEP ( SADEPFILE, JDATE, JTIME, TSTEP ) IMPLICIT NONE CHARACTER( 16 ) SADEPFILE ! Dry or wet dep file for tags INTEGER JDATE ! current model date, coded YYYYDDD INTEGER JTIME ! current model time, coded HHMMSS INTEGER TSTEP ! output time step END SUBROUTINE SA_OPWDDEP #endif END INTERFACE C----------------------------------------------------------------------- IF ( FIRSTIME ) THEN FIRSTIME = .FALSE. CALL LOG_HEADING( LOGDEV, "Initialize Surface Exchange Module" ) IF ( .NOT. DEPV_INIT ( JDATE, JTIME, TSTEP, CGRID ) ) THEN XMSG = 'Failure initializing deposition velocities module' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF #ifndef mpas IF ( BUDGET_DIAG .OR. LIPR ) THEN ALLOCATE( NH3_EMIS0( NCOLS,NROWS), STAT = ASTAT ) CALL CHECKMEM( ASTAT,'NH3_EMIS0',PNAME ) END IF #endif C create global maps IF ( .NOT. VDIFF_MAP_INIT( ) ) THEN XMSG = 'Failure initializing index mapping module' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF C Initialize the met data CALL INIT_MET( JDATE, JTIME ) IF ( HGBIDI ) THEN ! Initialize HGSIM module CALL INIT_HGSIM(JDATE, JTIME) END IF C Set output file characteristics based on COORD.EXT and open the dry dep file IF ( IO_PE_INCLUSIVE ) THEN CALL OPDDEP ( JDATE, JTIME, TSTEP( 1 ), N_SPC_DDEP ) #ifdef isam CALL SA_OPWDDEP ( SA_DD_1, JDATE, JTIME,TSTEP( 1 ) ) #endif IF ( ABFLUX .OR. HGBIDI ) CALL OPASX_MEDIA( JDATE, JTIME, TSTEP( 1 ) ) END IF C Open vdiff diagnostics file (ioapi header from cgrd) IF ( VDIFFDIAG ) THEN IF ( .NOT. VDIFF_DIAG_INIT ( JDATE, JTIME, TSTEP( 1 ), GRAV_SETL ) ) THEN XMSG = 'Failure initializing vdiff diagnostics module' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF END IF C Allocate and initialize dry deposition array ALLOCATE ( DDEP( N_SPC_DEPV,NCOLS,NROWS ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN XMSG = 'Failure allocating DDEP' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF DDEP = 0.0 ! array assignment ALLOCATE ( DDEP0( N_SPC_DEPV,NCOLS,NROWS ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN XMSG = 'Failure allocating DDEP0' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF DDEP0 = 0.0 ! array assignment ALLOCATE ( ICMP( LCMP,NCOLS,NROWS ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN XMSG = 'Failure allocating ICMP' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF ICMP = 0.0 ! array assignment CALL LOG_HEADING( LOGDEV, "Initialize Emissions Module" ) C Allocate and initialize emissions IF ( .NOT. DESID_INIT ( JDATE, JTIME, TSTEP( 1 ) ) ) THEN XMSG = 'Failure initializing emissions module' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF #ifdef isam ALLOCATE ( SA_DDEP( NCOLS,NROWS,N_SPCTAG ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN XMSG = 'Failure allocating SA_DDEP' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF SA_DDEP = 0.0 #endif C Set up for budget accumulation and process analysis CALL LOG_HEADING( LOGDEV, "Initialize Surface Exchange for Process Analysis" ) #ifndef mpas IF ( BUDGET_DIAG .OR. LIPR ) THEN ALLOCATE ( EMIS_PA( NCOLS,NROWS,NLAYS,N_CGRID_SPC ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN XMSG = 'EMIS_PA memory allocation failed' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF ALLOCATE ( DDEP_PA( NCOLS,NROWS,N_CGRID_SPC ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN XMSG = 'DDEP_PA memory allocation failed' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF END IF #endif C Set up for grav. settling IF ( GRAV_SETL ) THEN CALL LOG_HEADING( LOGDEV, "Set Up Gravitational Settling" ) ALLOCATE ( VSED_AE( N_AE_SPC,NLAYS,NCOLS,NROWS ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN XMSG = 'Failure allocating VSED_AE' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF END IF N_SPC_CGRID = SIZE ( CGRID,4 ) ALLOCATE ( CNGRD( N_SPC_CGRID,NLAYS,NCOLS,NROWS ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN XMSG = 'Failure allocating CNGRD' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF CNGRD = 0.0 ! array assignment NH3_HIT = 0 DO V = 1, N_SPC_DDEP IF ( DDEP_SPC( V ) .EQ. 'NH3' ) NH3_HIT = V END DO #ifdef sens ALLOCATE ( S_DDEP( N_SPC_DEPV,NCOLS,NROWS,NPMAX ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN XMSG = 'Failure allocating S_DDEP' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF S_DDEP = 0.0 ALLOCATE ( SNGRD( N_SPC_CGRID,NLAYS,NCOLS,NROWS,NPMAX ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN XMSG = 'Failure allocating SNGRD' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF SNGRD = 0.0 #endif #ifdef isam IF ( SA_BIDI ) THEN NH3_ISAM_IDX = INDEX1( 'NH3', NSPC_SA, ISAM_SPEC(:,OTHRTAG) ) ALLOCATE ( ISAM_DEPV( N_SPCTAG ), & NH3_TAG_FRACTION( NTAG_SA ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN XMSG = 'Failure Allocating ISAM variables in VDIFF' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF ISAM_DEPV = 0 DO ITAG = 1, N_SPCTAG DO V = 1, N_SPC_DEPV ISAM_SPECIES = ISAM_SPEC( S_SPCTAG(ITAG),1 ) IF ( TRIM( ISAM_SPECIES ) .EQ. DV2DF_SPC( V ) ) THEN ISAM_DEPV( ITAG ) = V END IF END DO END DO DO V = 1, N_SPC_DEPV IF ( DV2DF_SPC( V ) .EQ.'NH3' ) THEN NH3_DV2DF_SPC_IDX = V ENDIF END DO ENDIF #endif #ifdef mpas ! this is for creating the output name list found = .false. fnum = 0 do while ((.not. found) .and. (fnum < mio_outfile_def_info%num_of_file_definitions)) fnum = fnum + 1 if ('CTM_OUT' == mio_outfile_def_info%flist(fnum)%fname) then found = .true. end if end do if (.not. found) then write (logdev, *) ' Abort: file CTM_OUT not on the file_input.txt' stop end if loc_nvars = mio_outfile_def_info%flist(fnum)%nvars loc_n = 0 if (found) then allocate (name_list(loc_nvars), stat=stat) do n = 1, loc_nvars buf = mio_outfile_def_info%flist(fnum)%vlist(n) found = .false. k = 0 do while (.not. found) k = k + 1 if (buf(k:k) == ' ') then found = .true. end if end do if (buf(1:3) == 'DD_') then loc_n = loc_n + 1 name_list(loc_n) = buf(4:k-1) end if end do end if #endif END IF ! if Firstime MDATE = JDATE MTIME = JTIME MSTEP = TIME2SEC( TSTEP( 2 ) ) DTSEC = FLOAT( MSTEP ) CALL NEXTIME ( MDATE, MTIME, SEC2TIME( MSTEP / 2 ) ) C Convert non-molar mixing ratio species and re-order CGRID CALL CONV_CGRID ( CGRID, MDATE, MTIME, CNGRD ) #ifdef sens DO NP = 1, NPMAX DO L = 1, NLAYS DO R = 1, NROWS DO C = 1, NCOLS DO S = 1, N_SPC_CGRID SENGRID_TEMP( C,R,L,S ) = SENGRID( C,R,L,NP,S ) END DO END DO END DO END DO CALL CONV_CGRID ( SENGRID_TEMP,MDATE, MTIME, SNGRD(:,:,:,:,NP) ) END DO #endif C read & interpolate met data CALL GET_MET ( MDATE, MTIME, MSTEP ) C read & interpolate deposition velocities #ifndef mpas IF ( BUDGET_DIAG .OR. LIPR ) NH3_EMIS0 = NH3_EMIS #endif CALL GET_DEPV ( MDATE, MTIME, TSTEP, CGRID ) IF ( GRAV_SETL ) THEN C Get gravitational settling velocity for the vsed aero species: C AERO_SEDV assumes that every aero species is dry deposited and is diffused (trns) C Calculate the changes in the layer J-,K-mode aerosol concentrations CALL SEDI( MDATE, MTIME, DTSEC, VSED_AE, CGRID, CNGRD ) END IF C read & interpolate emissions data => VDEMIS_DIFF from EMIS_DEFN module CALL DESID_DRIVER ( MDATE, MTIME, TSTEP, CGRID ) #ifdef mpas DO R = 1, NROWS DO C = 1, NCOLS DO L = 1, NLAYS SEDDY( L,C,R ) = g3ddata(C,R,L,eddy_ind) END DO END DO END DO #else IF ( BUDGET_DIAG .OR. LIPR ) THEN EMIS_PA = 0.0 DO S = 1, N_SPC_DIFF DO L = 1, DESID_LAYS DO R = 1, NROWS DO C = 1, NCOLS EMIS_PA( C,R,L,DIFF_MAP(S) ) = VDEMIS_DIFF( S,L,C,R ) END DO END DO END DO END DO CALL PA_UPDATE_EMIS ( EMIS_PA, JDATE, JTIME, TSTEP ) END IF CALL EDDYX ( EDDYV ) C EDDYV returned = Kz, where Kz is in m**2/sec DO R = 1, NROWS DO C = 1, NCOLS ! FCMSF = Grid_Data%RMSFX4( C,R ) DO L = 1, NLAYS SEDDY( L,C,R ) = EDDYV( C,R,L ) END DO END DO END DO #endif IF ( WSTEP .EQ. 0 ) THEN DDEP = 0.0 ! array assignment ICMP = 0.0 ! array assignment #ifdef sens S_DDEP = 0.0 #endif END IF C Store Deposition Change in Budget and Process Analysis Arrays #ifndef mpas IF ( BUDGET_DIAG .OR. LIPR ) DDEP0 = DDEP #endif C Calculate the change in concentration and dry dep from vertical diffusion and vsed C Note: cngrd is the argument keyword (from the INTERFACE); CNGRD is the actual argument CALL VDIFFACMX( DTSEC, SEDDY, DDEP, ICMP, CNGRD ) IF ( VDIFFDIAG ) THEN NTICS = NTICS + 1 NLPCR_SUM = NLPCR_SUM + NLPCR_MEAN ! array assignment DO R = 1, NROWS DO C = 1, NCOLS NLPCR_MAX( C,R ) = MAX( NLPCR_MEAN( C,R ), NLPCR_MAX( C,R ) ) NLPCR_MIN( C,R ) = MIN( NLPCR_MEAN( C,R ), NLPCR_MIN( C,R ) ) END DO END DO IF ( GRAV_SETL ) THEN DTCCR_SUM = DTCCR_SUM + DTCCR_MEAN ! array assignment DO R = 1, NROWS DO C = 1, NCOLS DTCCR_MAX( C,R ) = MAX( DTCCR_MEAN( C,R ), DTCCR_MAX( C,R ) ) DTCCR_MIN( C,R ) = MIN( DTCCR_MEAN( C,R ), DTCCR_MIN( C,R ) ) END DO END DO END IF END IF C Store Deposition Change in Budget and Process Analysis Arrays #ifndef mpas IF ( BUDGET_DIAG .OR. LIPR ) THEN DDEP_PA = 0.0 DO V = 1, N_SPC_DEPV IF ( ABFLUX .AND. V .EQ. DD2DV(NH3_HIT) ) THEN ! For Ammonia, take Bidirectional Flux into account ! if those processes are implemented DO R = 1, NROWS DO C = 1, NCOLS DDEP_PA( C,R,MAP_DEPVtoCGRID(V)) = DDEP( V,C,R ) - DDEP0( V,C,R ) & + NH3_EMIS( C,R ) - NH3_EMIS0( C,R ) END DO END DO ELSE ! All other species DO R = 1, NROWS DO C = 1, NCOLS DDEP_PA( C,R,MAP_DEPVtoCGRID(V)) = DDEP( V,C,R ) - DDEP0( V,C,R ) END DO END DO END IF END DO CALL PA_UPDATE_DDEP ( DDEP_PA, JDATE, JTIME, TSTEP ) END IF #endif C Revert non-molar mixing ratio species and re-order CGRID CALL REV_CGRID ( CNGRD, MDATE, MTIME, CGRID ) #ifdef sens DO NP = 1, NPMAX CALL REV_CGRID ( SNGRD(:,:,:,:,NP), MDATE, MTIME, SENGRID_TEMP ) DO L = 1, NLAYS DO R = 1, NROWS DO C = 1, NCOLS DO S = 1, N_SPC_CGRID SENGRID( C,R,L,NP,S ) = SENGRID_TEMP( C,R,L,S ) END DO END DO END DO END DO END DO #endif C If last call this hour: write accumulated depositions: WSTEP = WSTEP + TIME2SEC( TSTEP( 2 ) ) IF ( WSTEP .GE. TIME2SEC( TSTEP( 1 ) ) ) THEN MDATE = JDATE MTIME = JTIME CALL NEXTIME( MDATE, MTIME, TSTEP( 2 ) ) WSTEP = 0 #ifndef mpas #ifdef parallel_io IF ( WRITE_FIRSTIME ) THEN WRITE_FIRSTIME = .FALSE. IF ( .NOT. IO_PE_INCLUSIVE ) THEN IF ( .NOT. OPEN3( CTM_DRY_DEP_1, FSREAD3, PNAME ) ) THEN XMSG = 'Could not open ' // TRIM(CTM_DRY_DEP_1) CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF #ifdef sens IF ( .NOT. OPEN3( CTM_SDRYDEP_1, FSNONIO, PNAME ) ) THEN XMSG = 'Could not open ' // TRIM(CTM_SDRYDEP_1) CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF #endif END IF ! .NOT. IO_PE_INCLUSIVE END IF #endif #endif IF ( ABFLUX ) THEN DO R = 1, NROWS DO C = 1, NCOLS NH3_FLUX(C,R) = DDEP( DD2DV(NH3_HIT),C,R ) DDEP( DD2DV(NH3_HIT),C,R ) = NH3_DDEP(C,R) NH3_EMIS(C,R) = DDEP( DD2DV(NH3_HIT),C,R ) - NH3_FLUX(C,R) END DO END DO #ifdef isam IF ( SA_BIDI ) THEN DO R = 1, NROWS DO C = 1, NCOLS NH3_SUM = 0.0 DO ITAG = 1, NTAG_SA NH3_SUM = NH3_SUM + ISAM( C,R,1,NH3_ISAM_IDX,ITAG ) END DO IF ( NH3_SUM .GT. 1.0E-25 ) THEN DO ITAG = 1, NTAG_SA NH3_TAG_FRACTION( ITAG ) = ISAM( C,R,1,NH3_ISAM_IDX,ITAG ) / NH3_SUM END DO ELSE NH3_TAG_FRACTION = 0.0 END IF JTAG = 0 DO ITAG = 1, N_SPCTAG V = ISAM_DEPV( ITAG ) IF ( V .EQ. NH3_DV2DF_SPC_IDX ) THEN JTAG = JTAG + 1 SA_DDEP( C,R,ITAG ) = SA_DDEP( C,R,ITAG ) + NH3_TAG_FRACTION( JTAG ) * NH3_EMIS(C,R) END IF END DO END DO END DO END IF #endif ENDIF #ifdef mpas call mio_time_format_conversion (mdate, mtime, time_stamp) ctm_out_clock = time_stamp #endif DO V = 1, N_SPC_DDEP S = DD2DV( V ) #ifdef mpas if ((loc_n > 0) .and. mpas_diag) then k = index1( DDEP_SPC( V ), loc_n, name_list) if (k .gt. 0) then oname = 'DD_' // DDEP_SPC( V ) call mio_fwrite ('CTM_OUT', oname, pname, DDEP( S,:,1), TIME_STAMP) end if end if #else DO R = 1, NROWS DO C = 1, NCOLS WRDD( C,R ) = DDEP( S,C,R ) END DO END DO IF ( .NOT. WRITE3( CTM_DRY_DEP_1, DDEP_SPC( V ), & MDATE, MTIME, WRDD ) ) THEN XMSG = 'Could not write ' // CTM_DRY_DEP_1 // ' file' CALL M3EXIT( PNAME, MDATE, MTIME, XMSG, XSTAT1 ) END IF #endif END DO #ifndef mpas C Write extra arrays for NH3 emission and net flux for bidi IF ( ABFLUX ) THEN IF ( .NOT. WRITE3( CTM_DRY_DEP_1, NAME_NH3_FLUX, & MDATE, MTIME, NH3_FLUX ) ) THEN XMSG = 'Could not write ' // CTM_DRY_DEP_1 // ' file' CALL M3EXIT( PNAME, MDATE, MTIME, XMSG, XSTAT1 ) END IF IF ( .NOT. WRITE3( CTM_DRY_DEP_1, NAME_NH3_EMIS, & MDATE, MTIME, NH3_EMIS ) ) THEN XMSG = 'Could not write ' // CTM_DRY_DEP_1 // ' file' CALL M3EXIT( PNAME, MDATE, MTIME, XMSG, XSTAT1 ) END IF ! must ensure the col/row being written to log is not larger than ! the subdomain size for this PE. ! WRITE( LOGDEV,*) ' NH3emis, drydep, flux=',NH3_EMIS(27,18), ! & DDEP_NH3(27,18),DDEP( DD2DV(NH3_HIT),27,18) NH3_DDEP = 0.0 END IF WRITE( LOGDEV, '( /5X, 3( A, :, 1X ), I8, ":", I6.6 )' ) & 'Timestep written to', CTM_DRY_DEP_1, & 'for date and time', MDATE, MTIME C Write vdiff diagnostics IF ( VDIFFDIAG ) THEN IF ( GRAV_SETL ) THEN ! Write vsed diagnostics DO V = 1, N_VSED S = VSED_MAP( V ) DO L = 1, NLAYS DO R = 1, NROWS DO C = 1, NCOLS VSED_BUF( C,R,L,V ) = VSED_AE( S,L,C,R ) END DO END DO END DO IF ( .NOT. WRITE3( CTM_VSED_DIAG, VSED_NAME( V ), & MDATE, MTIME, VSED_BUF( :,:,:,V ) ) ) THEN XMSG = 'Could not write ' // TRIM( VSED_NAME( V ) ) & // ' to ' // CTM_VSED_DIAG CALL M3EXIT( PNAME, MDATE, MTIME, XMSG, XSTAT1 ) END IF END DO WRITE( LOGDEV, '( /5X, 3( A, :, 1X ), I8, ":", I6.6 )' ) & 'Timestep written to', CTM_VSED_DIAG, & 'for date and time', MDATE, MTIME END IF ! GRAV_SETL C Write other diagnostics NLPCR_MEAN = NLPCR_SUM / FLOAT( NTICS ) IF ( .NOT. WRITE3( CTM_VDIFF_DIAG, 'NLP_MEAN', & MDATE, MTIME, NLPCR_MEAN ) ) THEN XMSG = 'Could not write ' // 'NLP_MEAN to ' // CTM_VDIFF_DIAG CALL M3EXIT( PNAME, MDATE, MTIME, XMSG, XSTAT1 ) END IF IF ( .NOT. WRITE3( CTM_VDIFF_DIAG, 'NLP_MAX', & MDATE, MTIME, NLPCR_MAX ) ) THEN XMSG = 'Could not write ' // 'NLP_MAX to ' // CTM_VDIFF_DIAG CALL M3EXIT( PNAME, MDATE, MTIME, XMSG, XSTAT1 ) END IF IF ( .NOT. WRITE3( CTM_VDIFF_DIAG, 'NLP_MIN', & MDATE, MTIME, NLPCR_MIN ) ) THEN XMSG = 'Could not write ' // 'NLP_MIN to ' // CTM_VDIFF_DIAG CALL M3EXIT( PNAME, MDATE, MTIME, XMSG, XSTAT1 ) END IF NLPCR_MAX = 0.0 ! array assignment NLPCR_MIN = 9.9E30 ! array assignment NLPCR_SUM = 0.0 ! array assignment IF ( GRAV_SETL ) THEN ! Write vsed diagnostics DTCCR_MEAN = DTCCR_SUM / FLOAT( NTICS ) IF ( .NOT. WRITE3( CTM_VDIFF_DIAG, 'SEDI_DTC_MEAN', & MDATE, MTIME, DTCCR_MEAN ) ) THEN XMSG = 'Could not write ' // 'SEDI_DTC_MEAN to ' // CTM_VDIFF_DIAG CALL M3EXIT( PNAME, MDATE, MTIME, XMSG, XSTAT1 ) END IF IF ( .NOT. WRITE3( CTM_VDIFF_DIAG, 'SEDI_DTC_MAX', & MDATE, MTIME, DTCCR_MAX ) ) THEN XMSG = 'Could not write ' // 'SEDI_DTC_MAX to ' // CTM_VDIFF_DIAG CALL M3EXIT( PNAME, MDATE, MTIME, XMSG, XSTAT1 ) END IF IF ( .NOT. WRITE3( CTM_VDIFF_DIAG, 'SEDI_DTC_MIN', & MDATE, MTIME, DTCCR_MIN ) ) THEN XMSG = 'Could not write ' // 'SEDI_DTC_MIN to ' // CTM_VDIFF_DIAG CALL M3EXIT( PNAME, MDATE, MTIME, XMSG, XSTAT1 ) END IF DTCCR_MAX = 0.0 ! array assignment DTCCR_MIN = 9.9E30 ! array assignment DTCCR_SUM = 0.0 ! array assignment END IF CNVCT = 0.0 ! array assignment DO R = 1, NROWS DO C = 1, NCOLS IF ( Met_Data%CONVCT( C,R ) ) CNVCT( C,R ) = 1.0 END DO END DO IF ( .NOT. WRITE3( CTM_VDIFF_DIAG, 'CONVCT', & MDATE, MTIME, CNVCT ) ) THEN XMSG = 'Could not write ' // 'convct to ' // CTM_VDIFF_DIAG CALL M3EXIT( PNAME, MDATE, MTIME, XMSG, XSTAT1 ) END IF IF ( .NOT. WRITE3( CTM_VDIFF_DIAG, 'LPBL', & MDATE, MTIME, REAL( Met_Data%LPBL ) ) ) THEN XMSG = 'Could not write ' // 'lpbl to ' // CTM_VDIFF_DIAG CALL M3EXIT( PNAME, MDATE, MTIME, XMSG, XSTAT1 ) END IF WRITE( LOGDEV, '( /5X, 3( A, :, 1X ), I8, ":", I6.6, I6 )' ) & 'Timestep written to', CTM_VDIFF_DIAG, & 'for date and time (and ntics)', MDATE, MTIME, NTICS NTICS = 0 END IF #endif IF ( ABFLUX .OR. HGBIDI ) THEN CALL WRASX_MEDIA( MDATE, MTIME ) END IF #ifdef isam WRDD = 0.0 DO ITAG = 1, N_SPCTAG DO R = 1, NROWS DO C = 1, NCOLS WRDD( C,R ) = SA_DDEP( C,R,ITAG ) END DO END DO IF ( .NOT. WRITE3( SA_DD_1, VNAM_SPCTAG( ITAG ), & MDATE, MTIME, WRDD ) ) THEN XMSG = 'Could not write ' // SA_DD_1 // ' file' CALL M3EXIT( PNAME, MDATE, MTIME, XMSG, XSTAT1 ) END IF END DO SA_DDEP = 0.0 #endif C re-set dry deposition array to zero DDEP = 0.0 ICMP = 0.0 #ifdef sens C WT - write out dry deposition sensitivities DO V = 1, N_SPC_DDEP S = DD2DV( V ) SPCBASE = DDEP_SPC( V )( 1:12 ) ! <- these lines have to ! WRITE( LOGDEV,'(A)')'DDEP_SPC value: ' // TRIM( SPCBASE ) DO NP = 1, NPMAX SPCNAME = TRIM( SPCBASE ) //'_' // SEN_PAR( NP ) ! <- match what is in opddep.F DO R = 1, NROWS DO C = 1, NCOLS WRDD( C,R ) = S_DDEP( S, C, R, NP ) ENDDO ENDDO ! WRITE( LOGDEV,'(A)')'WRITE3D for ' // TRIM( SPCNAME ) IF ( .NOT. WRITE3( CTM_SDRYDEP_1, SPCNAME, & MDATE, MTIME, WRDD ) ) THEN XMSG = 'Could not write ' // CTM_SDRYDEP_1 // ' file' CALL M3EXIT( PNAME, MDATE, MTIME, XMSG, XSTAT1 ) END IF ENDDO ENDDO WRITE( LOGDEV, '( /5X, 3( A, :, 1X ), I8, ":", I6.6 )' ) & 'Timestep written to', CTM_SDRYDEP_1, & 'for date and time', MDATE, MTIME S_DDEP = 0.0 #endif END IF RETURN END ================================================ FILE: CCTM/src/vdiff/acm2_stage/ASX_DATA_MOD.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: Module ASX_DATA_MOD C----------------------------------------------------------------------- C Function: User-defined types C Revision History: C 19 Aug 2014 J.Bash: initial implementation C 17 July 2015 H.Foroutan: Updated the calculation of MOL, MOLI, HOL, and WSTAR C 25 Aug 2015 H. Pye: Added IEPOX, HACET surrogates C modified PROPNN and H2O2 C Increased ar for ozone from 8 to 12. C Change meso from 0.1 to 0 for some org. nitrates C Changes based on Nguyen et al. 2015 PNAS and SOAS C C---------Notes C * Updates based on literature review 7/96 JEP C # Diff and H based on Wesely (1988) same as RADM C + Estimated by JEP 2/97 C @ Updated by JEP 9/01 C ~ Added by YW 1/02. Dif0 based on Massman (1998). Henry's Law constant C is defined here as: h=cg/ca, where cg is the concentration of a species C in gas-phase, and ca is its aqueous-phase concentration. The smaller h, C the larger solubility. Henry's Law constant in another definition (KH): C KH = ca/pg [M/atm], KH = KH0 * exp(-DKH/R(1/T-1/T0)), where KH0 and -DKH C values are from Rolf Sander (1999). h=1/(KH*R*T). C ** Update by DBS based on estimates by JEP 1/03 C ^^ From Bill Massman, personal communication 4/03 C ## Diffusivity calculated by SPARC, reactivity = other aldehydes C ++ Dif0 in Massman is diffusivity at temperature 0C and 1 atm (101.325kPa), so C chemicals that were not in Massman's paper need to be adjusted. We assume C JEP's original values were for 25C and 1 atm. C % Added by G. Sarwar (10/04) C $ Added by R. Bullock (02/05) HG diffusivity is from Massman (1999). C HGIIGAS diffusivity calculated from the HG value and a mol. wt. scaling C factor of MW**(-2/3) from EPA/600/3-87/015. ORD, Athens, GA. HGIIGAS C mol.wt. used is that of HgCl2. Reactivity of HG is 1/20th of NO and NO2 C values based on general atmospheric lifetimes of each species. Reactivity C of HGIIGAS is based on HNO3 surrogate. C @@ Mesophyll resistances for NO, NO2, and CO added by J. Pleim (07/07) based C on values in Pleim, Venkatram, and Yamartino, 1984: ADOM/TADAP Model C Development Program, Volume 4, The Dry Deposition Module. ERT, Inc., C Concord, MA (peer reviewed). C ~~ Reactivity for PAN changed from 4.0 to 16.0 by J. Pleim (07/07) based on C comparisons with Turnipseed et al., JGR, 2006. C %% Species ICL1 and ICL2 are removed, not used in CB05. G. Sarwar (07/07) C <> Hazardous Air Pollutants that are believed to undergo significant dry C deposition. Hydrazine and triethylamine reactivities are based on analogies C to NH3. Maleic anhydride reactivity is assumed similar to aldehydes. C Toluene diisocyanate and hexamethylene diisocyanate reactivities are C assumed to be similar to SO2. Diffusivities are calculated with standard C formulas. W. Hutzell (04/08) C %% G. Sarwar: added data for iodine and bromine species (03/2016) C D. Wong: Implemented centralized I/O approach, removed all MY_N clauses (02/2019) C R. Gilliam: Include PX soil texture information when available (03/2022) C------------------------------------------------------------------------------- Use GRID_CONF ! horizontal & vertical domain specifications Use LSM_MOD ! Land surface data use centralized_io_module Implicit None Include SUBST_CONST ! constants Type :: MET_Type !> 2-D meteorological fields: Real, Allocatable :: RDEPVHT ( :,: ) ! reciprocal layer 1 height [m-1] Real, Allocatable :: DENS1 ( :,: ) ! layer 1 air density Real, Allocatable :: PRSFC ( :,: ) ! surface pressure [Pa] Real, Allocatable :: Q2 ( :,: ) ! 2 meter water vapor mixing ratio [kg/kg] Real, Allocatable :: QSS_GRND ( :,: ) ! ground saturation water vapor mixing ratio [kg/kg] Real, Allocatable :: RH2 ( :,: ) ! relative humidity [percent] Real, Allocatable :: RA ( :,: ) ! aerodynamic resistance [s/m] Real, Allocatable :: RS ( :,: ) ! stomatal resistance [s/m] Real, Allocatable :: RC ( :,: ) ! convective precipitation [cm] Real, Allocatable :: RN ( :,: ) ! non-convective precipitation [cm] Real, Allocatable :: RGRND ( :,: ) ! Solar radiation at the ground [W/m**2] Real, Allocatable :: HFX ( :,: ) ! Sensible heat flux [W/m**2] Real, Allocatable :: LH ( :,: ) ! Latent heat flux [W/m**2] Real, Allocatable :: SNOCOV ( :,: ) ! Snow cover [1=yes, 0=no] Real, Allocatable :: TEMP2 ( :,: ) ! two meter temperature [K] Real, Allocatable :: TEMPG ( :,: ) ! skin temperature [K] Real, Allocatable :: TSEASFC ( :,: ) ! SST [K] Real, Allocatable :: USTAR ( :,: ) ! surface friction velocity [m/s] Real, Allocatable :: VEG ( :,: ) ! fractional vegetation coverage [ratio] Real, Allocatable :: LAI ( :,: ) ! grid cell leaf area index [m**2/m**2] Real, Allocatable :: WR ( :,: ) ! precip intercepted by canopy [m] Real, Allocatable :: WSPD10 ( :,: ) ! 10-m wind speed [m/s] Real, Allocatable :: WSTAR ( :,: ) ! convective velocity scale [m/s] Real, Allocatable :: Z0 ( :,: ) ! roughness length [m] Real, Allocatable :: SOIM1 ( :,: ) ! 1 cm soil moisture [m**3/m**3] Real, Allocatable :: SOIM2 ( :,: ) ! 1 m soil moisture [m**3/m**3] Real, Allocatable :: SOIT1 ( :,: ) ! 1 cm soil temperature [K] Real, Allocatable :: SOIT2 ( :,: ) ! 1 m soil temperature [K] Real, Allocatable :: SEAICE ( :,: ) ! Sea ice coverage [%] Real, Allocatable :: MOL ( :,: ) ! Monin-Obukhov length [m] Real, Allocatable :: MOLI ( :,: ) ! inverse of Monin-Obukhov length [m] Real, Allocatable :: HOL ( :,: ) ! PBL over Obukhov length Real, Allocatable :: XPBL ( :,: ) ! PBL sigma height Integer, Allocatable :: LPBL ( :,: ) ! PBL layer Logical, Allocatable :: CONVCT ( :,: ) ! convection flag Real, Allocatable :: PBL ( :,: ) ! pbl height (m) Real, Allocatable :: NACL_EMIS( :,: ) ! NACL mass emission rate of particles with d <10 um (g/m2/s) Real, Allocatable :: COSZEN ( :,: ) ! Cosine of the zenith angle Real, Allocatable :: CFRAC ( :,: ) ! cloud fraction !> U and V wind components on the cross grid points Real, Allocatable :: UWIND ( :,:,: ) ! [m/s] Real, Allocatable :: VWIND ( :,:,: ) ! [m/s] !> 3-D meteorological fields: Real, Allocatable :: KZMIN ( :,:,: ) ! minimum Kz [m**2/s] Real, Allocatable :: PRES ( :,:,: ) ! pressure [Pa] Real, Allocatable :: QV ( :,:,: ) ! water vapor mixing ratio Real, Allocatable :: QC ( :,:,: ) ! cloud water mixing ratio Real, Allocatable :: THETAV ( :,:,: ) ! potential temp Real, Allocatable :: TA ( :,:,: ) ! temperature (K) Real, Allocatable :: RH ( :,:,: ) ! relative humidity (ratio) Real, Allocatable :: ZH ( :,:,: ) ! mid-layer height above ground [m] Real, Allocatable :: ZF ( :,:,: ) ! layer height [m] Real, Allocatable :: DZF ( :,:,: ) ! layer thickness Real, Allocatable :: DENS ( :,:,: ) ! air density Real, Allocatable :: RJACM ( :,:,: ) ! reciprocal mid-layer Jacobian Real, Allocatable :: RJACF ( :,:,: ) ! reciprocal full-layer Jacobian Real, Allocatable :: RRHOJ ( :,:,: ) ! reciprocal density X Jacobian End Type MET_Type Type :: GRID_Type !> Grid infomation: !> Vertical information Real, Allocatable :: DX3F ( : ) ! sigma layer surface thickness ! vdiffacmx.F Real, Allocatable :: RDX3F ( : ) ! reciprocal sigma layer thickness ! EMIS_DEFN.F, sedi.F, vdiffacmx.F, vdiffproc.F Real, Allocatable :: RDX3M ( : ) ! reciprocal sigma midlayer thickness ! vdiffproc.F !> Horizontal Information: Real, Allocatable :: RMSFX4 ( :,: ) ! inverse map scale factor ** 4 Real, Allocatable :: LON ( :,: ) ! longitude Real, Allocatable :: LAT ( :,: ) ! latitude Real, Allocatable :: LWMASK ( :,: ) ! land water mask Real, Allocatable :: OCEAN ( :,: ) ! Open ocean Real, Allocatable :: SZONE ( :,: ) ! Surf zone Real, Allocatable :: PURB ( :,: ) ! percent urban [%] Integer, Allocatable :: SLTYP ( :,: ) ! soil type [category] Real, Allocatable :: WSAT ( :,: ) ! volumetric soil saturation concentration Real, Allocatable :: WWLT ( :,: ) ! soil wilting point Real, Allocatable :: BSLP ( :,: ) ! B Slope Real, Allocatable :: WRES ( :,: ) ! Soil residual moisture point Real, Allocatable :: WFC ( :,: ) ! soil field capacity Real, Allocatable :: CLAY_PX ( :,: ) ! Clay fraction from PX LSM Real, Allocatable :: CSAND_PX ( :,: ) ! Coarse sand fraction from PX LSM Real, Allocatable :: FMSAND_PX( :,: ) ! Fine-medium sand fraction from PX LSM Real, Allocatable :: RHOB ( :,: ) ! soil bulk density Real, Allocatable :: LUFRAC ( :,:,: ) ! land use fraction (col,row,lu_type)[ratio] C Land use information: ! Character( 16 ), Allocatable :: NAME ( : ) ! LU name ! Character( 16 ), Allocatable :: LU_Type ( : ) ! general land use type e.g. water, forest, etc. End Type GRID_Type Type :: MOSAIC_Type ! (col,row,lu) Character( 16 ), Allocatable :: NAME ( : ) ! LU name Character( 16 ), Allocatable :: LU_Type ( : ) ! general land use type e.g. water, forest, etc. !> Sub grid cell meteorological variables: Real, Allocatable :: USTAR ( :,:,: ) ! surface friction velocity [m/s] Real, Allocatable :: LAI ( :,:,: ) ! leaf area index [m**2/m**2] Real, Allocatable :: VEG ( :,:,: ) ! vegetation fraction [ratio] Real, Allocatable :: Z0 ( :,:,: ) ! momentum roughness length [m] Real, Allocatable :: DELTA ( :,:,: ) ! Surface wetness [ratio] !> Sub grid cell resistances Real, Allocatable :: RA ( :,:,: ) ! aerodynamic resistance [s/m] Real, Allocatable :: RSTW ( :,:,: ) ! Stomatal Resistance of water [s/m] End Type MOSAIC_Type Type( MET_Type ), Save :: Met_Data Type( GRID_Type ), Save :: Grid_Data Type( MOSAIC_Type ), Save :: Mosaic_Data !> asx constants Real, Parameter :: a0 = 8.0 ! [dim'less] Real, Parameter :: d3 = 1.38564e-2 ! [dim'less] Real, Parameter :: dwat = 0.2178 ! [cm^2/s] at 273.15K Real, Parameter :: hplus_ap = 1.0e-6 ! pH=6.0 leaf apoplast solution Ph (Massad et al 2008) Real, Parameter :: hplus_def = 1.0e-5 ! pH=5.0 Real, Parameter :: hplus_east = 1.0e-5 ! pH=5.0 Real, Parameter :: hplus_h2o = 7.94328e-9 ! 10.0**(-8.1) Real, Parameter :: hplus_west = 3.16228e-6 ! 10.0**(-5.5) Real, Parameter :: kvis = 0.132 ! [cm^2 / s] at 273.15K Real, Parameter :: pr = 0.709 ! [dim'less] Real, Parameter :: rcut0 = 3000.0 ! [s/m] Real, Parameter :: rcw0 = 125000.0 ! acc'd'g to Padro and Real, Parameter :: resist_max = 1.0e30 ! maximum resistance Real, Parameter :: rg0 = 1000.0 ! [s/m] Real, Parameter :: rgwet0 = 25000.0 ! [s/m] Real, Parameter :: rsndiff = 10.0 ! snow diffusivity fac Real, Parameter :: rsnow0 = 1000.0 Real, Parameter :: svp2 = 17.67 ! from MM5 and WRF Real, Parameter :: svp3 = 29.65 ! from MM5 and WRF Real, Parameter :: rt25inK = 1.0/(stdtemp + 25.0) ! 298.15K = 25C Real, Parameter :: twothirds = 2.0 / 3.0 Real, Parameter :: betah = 5.0 ! MOST coefficient for stability correction for stable conditions Real, Parameter :: gamah = 16.0 ! MOST coefficient for stability correction for unstable conditions Real, Parameter :: karman = 0.40 ! von Karman constant Logical, Save :: MET_INITIALIZED = .false. Real, Save :: zsoil1 ! Layer 1 soil depth Real, Save :: zsoil2 ! Layer 2 soil depth Logical, Save :: CSTAGUV ! Winds are available with C stagger? Public :: INIT_MET, GET_MET Integer, Private :: C, R, L, S ! loop induction variables Integer, Private :: SPC Character( 16 ), Private, Save :: vname_rc, vname_rn, vname_uc, vname_vc Real, allocatable, Private :: BUFF1D( : ) ! 1D temp var number of layers Real, allocatable, Private :: BUFF2D( :,: ) ! 2D temp var Real, allocatable, Private :: BUFF3D( :,:,: ) ! 3D temp var CONTAINS C======================================================================= Subroutine INIT_MET ( JDATE, JTIME ) C----------------------------------------------------------------------- C 30 Mar 01 J.Young: dyn alloc - Use HGRD_DEFN; replace INTERP3 with INTERPX; C allocatable RDEPVHT, RJACM, RRHOJ C 14 Nov 03 J.Young: add reciprocal vertical Jacobian product for full and C mid-layer C Tanya took JACOBF out of METCRO3D! Improvise C 31 Jan 05 J.Young: dyn alloc - establish both horizontal & vertical C domain specifications in one module C 16 Feb 11 S.Roselle: replaced I/O API include files with UTILIO_DEFN C 25 Jul 19 D.Wong: used N_SOIL_TYPE defined in LSM_Mod to handle C various number of soil type from different WRF version C----------------------------------------------------------------------- Use UTILIO_DEFN Use MOSAIC_MOD, Only: Init_Mosaic, Tile_Data Use LSM_Mod, only : N_SOIL_TYPE Implicit None Include SUBST_FILES_ID ! file name parameters C Arguments: Integer, Intent( IN ) :: JDATE, JTIME ! internal simulation date&time C File variables: Real, Pointer :: SOILCAT ( :,: ) C Local variables: Character( 16 ) :: PNAME = 'INIT_MET' Character( 16 ) :: VNAME CHARACTER( 16 ) :: UNITSCK CHARACTER( 30 ) :: MSG1 = ' Error interpolating variable ' Character( 96 ) :: XMSG = ' ' C for INTERPX Integer V Integer ALLOCSTAT C----------------------------------------------------------------------- If ( MET_INITIALIZED ) Return !> Allocate buffers ALLOCATE ( BUFF1D( NLAYS ), & BUFF2D( NCOLS,NROWS ), & BUFF3D( NCOLS,NROWS,NLAYS ), STAT = ALLOCSTAT ) If ( ALLOCSTAT .Ne. 0 ) Then XMSG = 'Failure allocating Buffers' Call M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) End If BUFF1D = 0.0 BUFF2D = 0.0 BUFF3D = 0.0 !> Allocate shared arrays !> Met_Data ALLOCATE( Met_Data%RDEPVHT ( NCOLS,NROWS ), & Met_Data%DENS1 ( NCOLS,NROWS ), & Met_Data%PRSFC ( NCOLS,NROWS ), & Met_Data%Q2 ( NCOLS,NROWS ), & Met_Data%QSS_GRND ( NCOLS,NROWS ), & Met_Data%RH2 ( NCOLS,NROWS ), & Met_Data%RA ( NCOLS,NROWS ), & Met_Data%RS ( NCOLS,NROWS ), & Met_Data%RC ( NCOLS,NROWS ), & Met_Data%RN ( NCOLS,NROWS ), & Met_Data%RGRND ( NCOLS,NROWS ), & Met_Data%HFX ( NCOLS,NROWS ), & Met_Data%LH ( NCOLS,NROWS ), & Met_Data%SNOCOV ( NCOLS,NROWS ), & Met_Data%TEMP2 ( NCOLS,NROWS ), & Met_Data%TEMPG ( NCOLS,NROWS ), & Met_Data%TSEASFC ( NCOLS,NROWS ), & Met_Data%USTAR ( NCOLS,NROWS ), & Met_Data%VEG ( NCOLS,NROWS ), & Met_Data%LAI ( NCOLS,NROWS ), & Met_Data%WR ( NCOLS,NROWS ), & Met_Data%WSPD10 ( NCOLS,NROWS ), & Met_Data%WSTAR ( NCOLS,NROWS ), & Met_Data%Z0 ( NCOLS,NROWS ), & Met_Data%SOIM1 ( NCOLS,NROWS ), & Met_Data%SOIT1 ( NCOLS,NROWS ), & Met_Data%SEAICE ( NCOLS,NROWS ), & Met_Data%MOL ( NCOLS,NROWS ), & Met_Data%MOLI ( NCOLS,NROWS ), & Met_Data%HOL ( NCOLS,NROWS ), & Met_Data%XPBL ( NCOLS,NROWS ), & Met_Data%LPBL ( NCOLS,NROWS ), & Met_Data%CONVCT ( NCOLS,NROWS ), & Met_Data%PBL ( NCOLS,NROWS ), & Met_Data%NACL_EMIS( NCOLS,NROWS ), & Met_Data%COSZEN ( NCOLS,NROWS ), & Met_Data%CFRAC ( NCOLS,NROWS ), & Met_Data%UWIND ( NCOLS+1,NROWS+1,NLAYS ), & Met_Data%VWIND ( NCOLS+1,NROWS+1,NLAYS ), & Met_Data%KZMIN ( NCOLS,NROWS,NLAYS ), & Met_Data%PRES ( NCOLS,NROWS,NLAYS ), & Met_Data%QV ( NCOLS,NROWS,NLAYS ), & Met_Data%QC ( NCOLS,NROWS,NLAYS ), & Met_Data%THETAV ( NCOLS,NROWS,NLAYS ), & Met_Data%TA ( NCOLS,NROWS,NLAYS ), & Met_Data%RH ( NCOLS,NROWS,NLAYS ), & Met_Data%ZH ( NCOLS,NROWS,NLAYS ), & Met_Data%ZF ( NCOLS,NROWS,NLAYS ), & Met_Data%DZF ( NCOLS,NROWS,NLAYS ), & Met_Data%DENS ( NCOLS,NROWS,NLAYS ), & Met_Data%RJACM ( NCOLS,NROWS,NLAYS ), & Met_Data%RJACF ( NCOLS,NROWS,NLAYS ), & Met_Data%RRHOJ ( NCOLS,NROWS,NLAYS ), & STAT = ALLOCSTAT ) If ( ALLOCSTAT .Ne. 0 ) Then XMSG = 'Failure allocating met vars' Call M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) End If ALLOCATE( Grid_Data%DX3F ( NLAYS ), & Grid_Data%RDX3F ( NLAYS ), & Grid_Data%RDX3M ( NLAYS ), & Grid_Data%RMSFX4 ( NCOLS,NROWS ), & Grid_Data%LON ( NCOLS,NROWS ), & Grid_Data%LAT ( NCOLS,NROWS ), & Grid_Data%LWMASK ( NCOLS,NROWS ), & Grid_Data%OCEAN ( NCOLS,NROWS ), & Grid_Data%SZONE ( NCOLS,NROWS ), & Grid_Data%PURB ( NCOLS,NROWS ), & Grid_Data%SLTYP ( NCOLS,NROWS ), & Grid_Data%WSAT ( NCOLS,NROWS ), & Grid_Data%WWLT ( NCOLS,NROWS ), & Grid_Data%BSLP ( NCOLS,NROWS ), & Grid_Data%WRES ( NCOLS,NROWS ), & Grid_Data%WFC ( NCOLS,NROWS ), & Grid_Data%CLAY_PX ( NCOLS,NROWS ), & Grid_Data%CSAND_PX ( NCOLS,NROWS ), & Grid_Data%FMSAND_PX ( NCOLS,NROWS ), & Grid_Data%RHOB ( NCOLS,NROWS ), & Grid_Data%LUFRAC ( NCOLS,NROWS,n_lufrac ), & STAT = ALLOCSTAT ) If ( ALLOCSTAT .Ne. 0 ) Then XMSG = 'Failure allocating grid vars' Call M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) End If Grid_Data%WSAT = 0.0 Grid_Data%WWLT = 0.0 Grid_Data%WFC = 0.0 Grid_Data%CLAY_PX = 0.0 Grid_Data%CSAND_PX = 0.0 Grid_Data%FMSAND_PX = 0.0 Grid_Data%RHOB = 0.0 Grid_Data%WRES = 0.0 Grid_Data%BSLP = 0.0 ALLOCATE( Met_Data%SOIM2 ( NCOLS,NROWS ), & Met_Data%SOIT2 ( NCOLS,NROWS ), & STAT = ALLOCSTAT ) If ( ALLOCSTAT .Ne. 0 ) Then XMSG = 'Failure allocating mosaic met vars' Call M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) End If Grid_Data%WSAT = 0.0 Grid_Data%WWLT = 0.0 Grid_Data%WFC = 0.0 Grid_Data%RHOB = 0.0 Grid_Data%WRES = 0.0 Grid_Data%BSLP = 0.0 !> ccccccccccccccccccccc enable backward compatiblity ccccccccccccccccccccc IF (RCA_AVAIL) THEN vname_rc = 'RCA' Else vname_rc = 'RC' End If IF (RNA_AVAIL) THEN vname_rn = 'RNA' Else vname_rn = 'RN' End If If (UWINDC_AVAIL) Then vname_uc = 'UWINDC' CSTAGUV = .TRUE. Else vname_uc = 'UWIND' CSTAGUV = .FALSE. End If If (VWINDC_AVAIL) Then vname_vc = 'VWINDC' Else vname_vc = 'VWIND' End If If ( .Not. MINKZ ) Then XMSG = 'This run uses Kz0UT, *NOT* KZMIN in subroutine edyintb.' Write( LOGDEV,'(/5X, A, /)' ) XMSG End If !> Open the met files Do L = 1, NLAYS Grid_Data%DX3F( L ) = X3FACE_GD( L ) - X3FACE_GD( L-1 ) Grid_Data%RDX3F( L ) = 1.0 / Grid_Data%DX3F( L ) BUFF1D( L ) = 0.5 * ( X3FACE_GD( L ) + X3FACE_GD( L-1 ) ) End Do Do L = 1, NLAYS - 1 Grid_Data%RDX3M( L ) = 1.0 / ( BUFF1D( L+1 ) - BUFF1D( L ) ) End Do Grid_Data%RDX3M( NLAYS ) = 0.0 !> reciprical of msfx2**2 Grid_Data%RMSFX4 = 1.0 / ( MSFX2**2 ) Grid_Data%LON = LON Grid_Data%LAT = LAT Grid_Data%LWMASK = LWMASK Grid_Data%PURB = PURB Grid_Data%SLTYP = NINT( SOILCAT_A ) Grid_Data%LUFRAC = LUFRAC If( PX_LSM ) Then Write(Logdev,*) 'MCIP/WRF used the PX LSM' zsoil1 = 0.01 zsoil2 = 0.05 ! For abflux estimated from 1cm and 1 meter ! Estimate a constistent soil hydrolic suction at saturation using the JN90 properties to ! calculate soil hydrolic proerties constistant with JN90 data. Note that the suction at ! feild capacity is typically 33 kPa, wilting point is 1500 kPa and residual water content ! is between 1.0e5 and 1.0e6 kPa and 3.0e5 kPa is used here following Campbell and Norman 1998 Psi_Sat =1500.0 * ( WWLT_PX / WSAT_PX )**BSLP_PX WFC_PX = WSAT_PX * ( 33.0 / Psi_sat )**(-1.0/BSLP_PX) WRES_PX = WSAT_PX * ( 3.0e5 / Psi_sat )**(-1.0/BSLP_PX) Forall( C = 1:NCOLS, R = 1:NROWS, Grid_Data%SLTYP(C,R) .Le. N_SOIL_TYPE ) Grid_Data%WSAT( C,R ) = WSAT_PX( Grid_Data%SLTYP( C,R ) ) Grid_Data%WWLT( C,R ) = WWLT_PX( Grid_Data%SLTYP( C,R ) ) Grid_Data%WFC ( C,R ) = WFC_PX ( Grid_Data%SLTYP( C,R ) ) Grid_Data%WRES( C,R ) = WRES_PX( Grid_Data%SLTYP( C,R ) ) Grid_Data%BSLP( C,R ) = BSLP_PX( Grid_Data%SLTYP( C,R ) ) Grid_Data%RHOB( C,R ) = RHOB_PX( Grid_Data%SLTYP( C,R ) ) End Forall ! for cases where the default soil is water but fractional land use may not be water ! use sandy loam Forall( C = 1:NCOLS, R = 1:NROWS, Grid_Data%SLTYP(C,R) .Gt. N_SOIL_TYPE ) Grid_Data%WSAT( C,R ) = WSAT_PX( 3 ) Grid_Data%WWLT( C,R ) = WWLT_PX( 3 ) Grid_Data%WFC ( C,R ) = WFC_PX ( 3 ) Grid_Data%WRES( C,R ) = WRES_PX( 3 ) Grid_Data%BSLP( C,R ) = BSLP_PX( 3 ) Grid_Data%RHOB( C,R ) = RHOB_PX( 3 ) End Forall Else If( Noah_LSM ) Then Write(Logdev,*) 'MCIP/WRF used the Noah LSM' zsoil1 = 0.01 ! Adjusted based on Darmenova et al. 2009 doi:10.1029/2008JD011236 zsoil2 = 0.05 ! For abflux estimated from 1cm and 1 meter Forall( C = 1:NCOLS, R = 1:NROWS ) Grid_Data%WSAT( C,R ) = WSAT_NOAH( Grid_Data%SLTYP( C,R ) ) Grid_Data%WWLT( C,R ) = WWLT_NOAH( Grid_Data%SLTYP( C,R ) ) Grid_Data%WFC ( C,R ) = WFC_NOAH ( Grid_Data%SLTYP( C,R ) ) Grid_Data%WRES( C,R ) = WRES_NOAH( Grid_Data%SLTYP( C,R ) ) Grid_Data%BSLP( C,R ) = BSLP_NOAH( Grid_Data%SLTYP( C,R ) ) Grid_Data%RHOB( C,R ) = RHOB_NOAH( Grid_Data%SLTYP( C,R ) ) End Forall Else If( CLM_LSM ) Then Write(Logdev,*) 'MCIP/WRF used the CLM LSM' zsoil1 = 0.0175 zsoil2 = 0.0451 Forall( C = 1:NCOLS, R = 1:NROWS ) Grid_Data%WSAT( C,R ) = WSAT_CLM( Grid_Data%SLTYP( C,R ) ) Grid_Data%WWLT( C,R ) = WWLT_CLM( Grid_Data%SLTYP( C,R ) ) Grid_Data%WFC ( C,R ) = WFC_CLM ( Grid_Data%SLTYP( C,R ) ) Grid_Data%WRES( C,R ) = WRES_CLM( Grid_Data%SLTYP( C,R ) ) Grid_Data%BSLP( C,R ) = BSLP_CLM( Grid_Data%SLTYP( C,R ) ) Grid_Data%RHOB( C,R ) = RHOB_CLM( Grid_Data%SLTYP( C,R ) ) End Forall End If Grid_Data%OCEAN = ocean Grid_Data%SZONE = szone CALL INIT_MOSAIC( JDATE, JTIME, Grid_Data%LUFRAC ) ALLOCATE( Mosaic_Data%USTAR ( NCOLS,NROWS,Tile_Data%n_lufrac ), & Mosaic_Data%LAI ( NCOLS,NROWS,Tile_Data%n_lufrac ), & Mosaic_Data%DELTA ( NCOLS,NROWS,Tile_Data%n_lufrac ), & Mosaic_Data%VEG ( NCOLS,NROWS,Tile_Data%n_lufrac ), & Mosaic_Data%Z0 ( NCOLS,NROWS,Tile_Data%n_lufrac ), & Mosaic_Data%RA ( NCOLS,NROWS,Tile_Data%n_lufrac ), & Mosaic_Data%RSTW ( NCOLS,NROWS,Tile_Data%n_lufrac ), & Mosaic_Data%NAME ( Tile_Data%n_lufrac ), & Mosaic_Data%LU_Type ( Tile_Data%n_lufrac ), & STAT = ALLOCSTAT ) If ( ALLOCSTAT .Ne. 0 ) Then XMSG = 'Failure allocating mosaic vars' Call M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) End If Mosaic_Data%USTAR = 0.0 Mosaic_Data%LAI = 0.0 Mosaic_Data%DELTA = 0.0 Mosaic_Data%VEG = 0.0 Mosaic_Data%Z0 = 0.0 Mosaic_Data%RSTW = 1.0e6 Mosaic_Data%RA = 1.0e6 Mosaic_Data%NAME = Tile_Data%name_lu Mosaic_Data%LU_Type = Tile_Data%cat_lu MET_INITIALIZED = .true. Return End Subroutine INIT_MET C======================================================================= Subroutine GET_MET ( JDATE, JTIME, TSTEP ) C----------------------------------------------------------------------- C 30 Mar 01 J.Young: dyn alloc - Use HGRD_DEFN; replace INTERP3 with INTERPX; C allocatable RDEPVHT, RJACM, RRHOJ C 14 Nov 03 J.Young: add reciprocal vertical Jacobian product for full and C mid-layer C Tanya took JACOBF out of METCRO3D! Improvise C 31 Jan 05 J.Young: dyn alloc - establish both horizontal & vertical C domain specifications in one module C 16 Feb 11 S.Roselle: replaced I/O API include files with UTILIO_DEFN C----------------------------------------------------------------------- USE GRID_CONF ! horizontal & vertical domain specifications Use UTILIO_DEFN USE MOSAIC_MOD #ifdef parallel USE SE_MODULES ! stenex (using SE_COMM_MODULE) #else USE NOOP_MODULES ! stenex (using NOOP_COMM_MODULE) #endif Implicit None Include SUBST_FILES_ID ! file name parameters Include SUBST_PE_COMM ! PE communication displacement and direction C Arguments: Integer, Intent( IN ) :: JDATE, JTIME, TSTEP ! internal simulation date&time C Parameters: Real, Parameter :: cond_min = 1.0 / resist_max ! minimum conductance [m/s] Real, Parameter :: KZMAXL = 500.0 ! upper limit for min Kz [m] Real, Parameter :: KZ0UT = 1.0 ! minimum eddy diffusivity [m**2/sec] KZ0 Real, Parameter :: KZL = 0.01 ! lowest KZ Real, Parameter :: KZU = 1.0 ! 2.0 ! highest KZ Real, Parameter :: EPS = 1.0E-08 ! small number for temperature difference C Local variables: Real FINT Real CPAIR, LV, QST Real TMPFX, TMPVTCON, TST, TSTV Integer LP Integer C, R, L ! loop induction variables Character( 16 ) :: PNAME = 'GET_MET' Character( 16 ) :: VNAME CharactER( 30 ) :: MSG1 = ' Error interpolating variable ' Character( 96 ) :: XMSG = ' ' C----------------------------------------------------------------------- C Check consistency with WRF LSM and CMAQ options C----------------------------------------------------------------------- If( .Not. PX_LSM .And. .Not. CLM_LSM .And. .Not. NOAH_LSM ) Then XMSG = 'WRF LSM is not supported. PX, CLM and NOAH are supported' Call M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) If( ABFLUX ) Then XMSG = 'NH3 bidirectional exchange is not supported using this WRF LSM option. Set CTM_ABFLUX to N.' Call M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) End IF If( HGBIDI ) Then XMSG = 'Hg bidirectional exchange is not supported using this WRF LSM option. Set CTM_HGBIDI to N.' Call M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) End IF End IF C----------------------------------------------------------------------- C Interpolate file input variables and format for output C-------------------------------- MET_CRO_3D -------------------------------- call interpolate_var ('ZH', jdate, jtime, Met_Data%ZH) call interpolate_var ('PRES', jdate, jtime, Met_Data%PRES) call interpolate_var ('ZF', jdate, jtime, Met_Data%ZF) call interpolate_var ('DENS', jdate, jtime, Met_Data%DENS) Met_Data%DENS1 = Met_Data%DENS( :,:,1 ) call interpolate_var ('JACOBM', jdate, jtime, Met_Data%RJACM) Met_Data%RJACM = 1.0 / Met_Data%RJACM call interpolate_var ('JACOBF', jdate, jtime, Met_Data%RJACF) Met_Data%RJACF = 1.0 / Met_Data%RJACF call interpolate_var ('DENSA_J', jdate, jtime, Met_Data%RRHOJ) Met_Data%RRHOJ = 1.0 / Met_Data%RRHOJ call interpolate_var ('TA', jdate, jtime, Met_Data%TA) call interpolate_var ('QV', jdate, jtime, Met_Data%QV) call interpolate_var ('QC', jdate, jtime, Met_Data%QC) C-------------------------------- MET_CRO_2D -------------------------------- C Vegetation and surface vars call interpolate_var ('LAI', jdate, jtime, Met_Data%LAI) call interpolate_var ('VEG', jdate, jtime, Met_Data%VEG) call interpolate_var ('ZRUF', jdate, jtime, Met_Data%Z0) C Soil vars call interpolate_var ('SOIM1', jdate, jtime, Met_Data%SOIM1) call interpolate_var ('SOIM2', jdate, jtime, Met_Data%SOIM2) call interpolate_var ('SOIT2', jdate, jtime, Met_Data%SOIT2) call interpolate_var ('SOIT1', jdate, jtime, Met_Data%SOIT1) call interpolate_var ('SEAICE', jdate, jtime, Met_Data%SEAICE) C met vars call interpolate_var ('PRSFC', jdate, jtime, Met_Data%PRSFC) call interpolate_var ('RGRND', jdate, jtime, Met_Data%RGRND) call interpolate_var ('SNOCOV', jdate, jtime, Met_Data%SNOCOV) Where( Met_Data%SNOCOV .Lt. 0.0 ) Met_Data%SNOCOV = 0.0 End Where call interpolate_var ('TEMP2', jdate, jtime, Met_Data%TEMP2) call interpolate_var ('TEMPG', jdate, jtime, Met_Data%TEMPG) call interpolate_var ('USTAR', jdate, jtime, Met_Data%USTAR) call interpolate_var ('WSPD10', jdate, jtime, Met_Data%WSPD10) call interpolate_var ('HFX', jdate, jtime, Met_Data%HFX) If ( LH_AVAIL ) Then call interpolate_var ('LH', jdate, jtime, Met_Data%LH) Else ! for backward compatibility call interpolate_var ('QFX', jdate, jtime, Met_Data%LH) End If call interpolate_var ('PBL', jdate, jtime, Met_Data%PBL) C Update for WRFV4.1+ PX LSM runs that have soil texture in output for C CMAQ dust scheme. These are initialized to 0 if not present in MCIP. C DUST_EMIS.F will use table lookup values if 0 (old WRF or other LSMs). If ( PXSOIL_AVAIL ) Then call interpolate_var ('CLAY_PX', jdate, jtime, Grid_Data%CLAY_PX) call interpolate_var ('CSAND_PX', jdate, jtime, Grid_Data%CSAND_PX) call interpolate_var ('FMSAND_PX', jdate, jtime, Grid_Data%FMSAND_PX) call interpolate_var ('WSAT_PX', jdate, jtime, Grid_Data%WSAT) call interpolate_var ('WFC_PX', jdate, jtime, Grid_Data%WFC) call interpolate_var ('WWLT_PX', jdate, jtime, Grid_Data%WWLT) End If C Met_cro_2D variables that have recently changed due to MCIP or WRF/CMAQ call interpolate_var (vname_rn, jdate, jtime, Met_Data%RN) call interpolate_var (vname_rc, jdate, jtime, Met_Data%RC) call interpolate_var ('CFRAC', jdate, jtime, Met_Data%CFRAC) If ( WR_AVAIL ) Then call interpolate_var ('WR', jdate, jtime, Met_Data%WR) Else Met_Data%WR = 0.0 End If If ( TSEASFC_AVAIL ) Then call interpolate_var ('TSEASFC', jdate, jtime, Met_Data%TSEASFC) Else Met_Data%TSEASFC = Met_Data%TEMPG End If If ( .not. RA_RS_AVAIL ) Then call interpolate_var ('RADYNI', jdate, jtime, Met_Data%RA) Where( Met_Data%RA .Gt. cond_min ) Met_Data%RA = 1.0/Met_Data%RA Elsewhere Met_Data%RA = resist_max End Where call interpolate_var ('RSTOMI', jdate, jtime, Met_Data%RS) Where( Met_Data%RS .Gt. cond_min ) Met_Data%RS = 1.0 / Met_Data%RS Elsewhere Met_Data%RS = resist_max End Where Else call interpolate_var ('RA', jdate, jtime, Met_Data%RA) call interpolate_var ('RS', jdate, jtime, Met_Data%RS) End If If ( Q2_AVAIL ) Then ! Q2 in METCRO2D call interpolate_var ('Q2', jdate, jtime, Met_Data%Q2) Else Met_Data%Q2 = Met_Data%QV( :,:,1 ) End If Where( Met_Data%TEMPG .Lt. stdtemp ) BUFF2D = vp0 *Exp( 22.514 - ( 6.15e3 / Met_Data%TEMPG ) ) Elsewhere BUFF2D = vp0 *Exp( svp2 * ( Met_Data%TEMPG -stdtemp ) / ( Met_Data%TEMPG -svp3 ) ) End Where Met_Data%QSS_GRND = BUFF2D * 0.622 / ( Met_Data%PRSFC - BUFF2D ) Where( Met_Data%TEMP2 .Lt. stdtemp ) BUFF2D = vp0 *Exp( 22.514 - ( 6.15e3 / Met_Data%TEMP2 ) ) Elsewhere BUFF2D = vp0 *Exp( svp2 * ( Met_Data%TEMP2 -stdtemp ) / ( Met_Data%TEMP2 -svp3 ) ) End Where ! Calculate Relative Humidity at 2m Met_Data%RH2 = Met_Data%Q2 / ( BUFF2D * 0.622 / ( Met_Data%PRSFC - BUFF2D ) ) * 100.0 Where( Met_Data%RH2 .Gt. 100.0 ) Met_Data%RH2 = 100.0 Elsewhere( Met_Data%RH2 .lt. 0.0 ) Met_Data%RH2 = 0.0 End Where ! Calculate 3D Relative Humidity at Grid Scale MET_DATA%RH = MET_DATA%QV * MET_DATA%PRES / ( MET_DATA%QV + 0.622015 ) / & ( 610.94 * EXP( 17.625 * ( MET_DATA%TA - 273.15 ) / & ( MET_DATA%TA - 273.15 + 243.04 ) ) ) MET_DATA%RH = MIN( 0.9999, MAX( 0.001, MET_DATA%RH ) ) C-------------------------------- MET_DOT_3D -------------------------------- call interpolate_var (vname_uc, jdate, jtime, Met_Data%UWIND) call interpolate_var (vname_vc, jdate, jtime, Met_Data%VWIND) C get ghost values for wind fields in case of free trop. CALL SUBST_COMM ( Met_Data%UWIND, DSPL_N0_E1_S0_W0, DRCN_E ) CALL SUBST_COMM ( Met_Data%VWIND, DSPL_N1_E0_S0_W0, DRCN_N ) C-------------------------------- Calculated Variables -------------------------------- Met_Data%DZF = Met_Data%ZF - EOSHIFT(Met_Data%ZF, Shift = -1, Boundary = 0.0, Dim = 3) Met_Data%RDEPVHT = 1.0 / Met_Data%ZF( :,:,1 ) IF ( MINKZ ) THEN Met_Data%KZMIN = KZL DO L = 1, NLAYS Where( Met_Data%ZF( :,:,L ) .LE. KZMAXL ) Met_Data%KZMIN( :,:,L ) = KZL + ( KZU - KZL ) * 0.01 * Grid_data%PURB End Where End Do ELSE Met_Data%KZMIN = KZ0UT END IF BUFF3D = Met_Data%TA * ( 1.0 + 0.608 * Met_Data%QV ) Met_Data%THETAV = BUFF3D * ( P0 / Met_Data%PRES ) ** 0.286 C------ Updating MOL, then WSTAR, MOLI, HOL DO R = 1, NROWS DO C = 1, NCOLS CPAIR = CPD * ( 1.0 + 0.84 * Met_Data%QV( C,R,1 ) ) ! J/(K KG) TMPFX = Met_Data%HFX( C,R ) / ( CPAIR * Met_Data%DENS( C,R,1 ) ) TMPVTCON = 1.0 + 0.608 * Met_Data%QV( C,R,1 ) ! Conversion factor for virtual temperature TST = -TMPFX / Met_Data%USTAR( C,R ) IF ( Met_Data%TA( C,R,1 ) .GT. STDTEMP ) THEN LV = LV0 - ( 0.00237 * ( Met_Data%TA( C,R,1 ) - STDTEMP ) ) * 1.0E6 ELSE LV = 2.83E6 ! Latent heat of sublimation at 0C from Stull (1988) (J/KG) END IF QST = -( Met_Data%LH( C,R ) / LV ) & / ( Met_Data%USTAR( C,R ) * Met_Data%DENS( C,R,1 ) ) TSTV = TST * TMPVTCON + Met_Data%THETAV( C,R,1 ) * 0.608 * QST IF ( ABS( TSTV ) .LT. 1.0E-6 ) THEN TSTV = SIGN( 1.0E-6, TSTV ) END IF Met_Data%MOL( C,R ) = Met_Data%THETAV( C,R,1 ) & * Met_Data%USTAR( C,R ) ** 2 / ( karman * GRAV * TSTV ) IF ( Met_Data%MOL( C,R ) .LT. 0.0 ) THEN Met_Data%WSTAR( C,R ) = Met_Data%USTAR( C,R ) * ( Met_Data%PBL( C,R ) & / ( karman * ABS( Met_Data%MOL( C,R ) ) ) ) ** 0.333333 ELSE Met_Data%WSTAR( C,R ) = 0.0 END IF END DO END DO Met_Data%MOLI = 1.0 / Met_Data%MOL Met_Data%HOL = Met_Data%PBL / Met_Data%MOL C------ Met_Data%CONVCT = .FALSE. DO R = 1, NROWS DO C = 1, NCOLS DO L = 1, NLAYS IF ( Met_Data%PBL( C,R ) .LT. Met_Data%ZF( C,R,L ) ) THEN LP = L; EXIT END IF END DO Met_Data%LPBL( C,R ) = LP If ( LP .Eq. 1 ) Then FINT = ( Met_Data%PBL( C,R ) ) & / ( Met_Data%ZF( C,R,LP ) ) Met_Data%XPBL( C,R ) = FINT * ( X3FACE_GD( LP ) - X3FACE_GD( LP-1 ) ) & + X3FACE_GD( LP-1 ) Else FINT = ( Met_Data%PBL( C,R ) - Met_Data%ZF( C,R,LP-1 ) ) & / ( Met_Data%ZF( C,R,LP ) - Met_Data%ZF( C,R,LP-1 ) ) Met_Data%XPBL( C,R ) = FINT * ( X3FACE_GD( LP ) - X3FACE_GD( LP-1 ) ) & + X3FACE_GD( LP-1 ) End If END DO END DO Where( Met_Data%THETAV( :,:,1 ) - Met_Data%THETAV( :,:,2 ) .Gt. EPS .And. & Met_Data%HOL .Lt. -0.02 .And. Met_Data%LPBL .Gt. 3 ) Met_Data%CONVCT = .True. End Where C-------------------------------- TILE_CRO_2D -------------------------------- C read in land use specific meteorology from WRF Noah or Ruc mosaic options CALL CALC_LAI( JDATE, JTIME, MET_DATA%SOIT2, MET_DATA%LAI, & MET_DATA%VEG, MOSAIC_DATA%VEG, MOSAIC_DATA%LAI, MOSAIC_DATA%Z0 ) CALL ra_wrf( MET_DATA%MOLI, MET_DATA%ZH, MET_DATA%RA, MET_DATA%Z0, & MOSAIC_DATA%Z0, MET_DATA%USTAR, MOSAIC_DATA%USTAR, & MOSAIC_DATA%RA, gamah, betah, karman ) CALL MOS_RSTW( MOSAIC_DATA%LAI, Met_Data%RGRND, Met_Data%SOIM2, & Grid_Data%WWLT, Grid_Data%WFC, Met_Data%TEMP2, MOSAIC_DATA%RA, MOSAIC_DATA%USTAR, & MET_DATA%QSS_GRND, MET_DATA%QV, Met_Data%RS, Mosaic_Data%RSTW ) CALL MOS_CanWat( MOSAIC_DATA%VEG, MOSAIC_DATA%LAI, Met_Data%WR, Mosaic_Data%DELTA, & WR_AVAIL, Met_Data%Q2, Met_Data%QSS_GRND, Met_Data%RN, Met_Data%RC, Met_Data%WSPD10, & Met_Data%RGRND, jdate, jtime) ! Calculate the cosine of the zenith angle CALL CZANGLE( JDATE, JTIME, NCOLS, NROWS ) Return End Subroutine GET_MET End Module ASX_DATA_MOD ================================================ FILE: CCTM/src/vdiff/acm2_stage/VDIFF_MAP.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: MODULE VDIFF_MAP C----------------------------------------------------------------------- C Function: index mapping between CGRID, diffusion, dry dep, and emissions C species C Module depends on prior call to DEPV_INIT to get NDEPV_SPC C Revision History: C 10 Apr 2008 J.Young: initial implementation using subroutine vdiff_map.F C 21 Jun 10 J.Young: convert for Namelist redesign C 16 Feb 11 S.Roselle: replaced I/O API include files with UTILIO_DEFN C 11 May 11 J.Bash: Modified for NH3 bidi component fluxes C 04 Jan 12 J.Young: Initalize char strings with blank padding C----------------------------------------------------------------------- USE VDIFF_DATA C global diffusion species !INTEGER, SAVE :: N_SPC_DIFF C global dry dep species INTEGER, SAVE :: N_SPC_DDEP INTEGER, ALLOCATABLE, SAVE :: DIFF_MAP( : ) ! global diff map to CGRID INTEGER, ALLOCATABLE, SAVE :: DF2DV ( : ) ! map from diff spc to depv spc INTEGER, ALLOCATABLE, SAVE :: DF2EM ( : ) ! map from diff spc to emis spc INTEGER, ALLOCATABLE, SAVE :: DD2DV ( : ) ! map from ddep spc to depv spc INTEGER, ALLOCATABLE, SAVE :: DEPV_MAP( : ) ! global depv map to CGRID INTEGER, ALLOCATABLE, SAVE :: DV2DF ( : ) ! map from depv spc to diff spc ! These Masks Identify the Phase/Nature of Species in The Diffused ! Species Vector LOGICAL, ALLOCATABLE, SAVE :: DIFF_MASK_GAS ( : ) !Gases LOGICAL, ALLOCATABLE, SAVE :: DIFF_MASK_AERO( : ) !Particles LOGICAL, ALLOCATABLE, SAVE :: DIFF_MASK_NUM ( : ) !Particles LOGICAL, ALLOCATABLE, SAVE :: DIFF_MASK_SRF ( : ) !Particles LOGICAL, ALLOCATABLE, SAVE :: DIFF_MASK_NR ( : ) !Non-Reactives LOGICAL, ALLOCATABLE, SAVE :: DIFF_MASK_TRAC( : ) !Tracers CHARACTER( 16 ), ALLOCATABLE, SAVE :: DDEP_SPC( : ) CHARACTER( 16 ), ALLOCATABLE, SAVE :: DEPV_SPC( : ) CHARACTER( 16 ), ALLOCATABLE, SAVE :: DV2DF_SPC( : ) REAL, ALLOCATABLE, SAVE :: DIFF_MW ( : ) C component flux output variables INTEGER, SAVE :: N_BD_EMIS, NH3_E, HG_E, HONO_E CHARACTER( 16 ), SAVE :: BD_EMIS_SPC( 4 ) = ' ' CONTAINS C----------------------------------------------------------------------- FUNCTION VDIFF_MAP_INIT( ) RESULT ( SUCCESS ) USE CGRID_SPCS ! CGRID species number and offsets USE UTILIO_DEFN IMPLICIT NONE C Includes: INCLUDE SUBST_EMISPRM ! Emissions processing control parameters C Arguments: LOGICAL SUCCESS C External Functions: INTEGER, EXTERNAL :: FINDEX C Local variables: CHARACTER( 80 ) :: XMSG ! Message text CHARACTER( 16 ) :: PNAME = 'VDIFF_MAP' INTEGER STRT, FINI INTEGER S, V, N, I, INDX INTEGER ALLOCSTAT LOGICAL LERROR ! Error flag !----------------------------------------------------------------------- SUCCESS = .TRUE. N_SPC_DIFF = N_GC_TRNS + N_AE_TRNS + N_NR_TRNS + N_TR_DIFF ALLOCATE ( DIFF_MAP( N_SPC_DIFF+1 ), & DF2DV( N_SPC_DIFF+1 ), & DIFF_MW( N_SPC_DIFF+1 ), & DIFF_SPC( N_SPC_DIFF+1 ), stat = allocstat ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating DIFF_MAP, DF2DV or DIFF_SPC' CALL M3WARN( PNAME, 0, 0, XMSG ) SUCCESS = .FALSE.; RETURN END IF N_SPC_DDEP = N_GC_DDEP + N_AE_DDEP + N_NR_DDEP + N_TR_DDEP ALLOCATE ( DD2DV( N_SPC_DDEP+1 ), & DDEP_SPC( N_SPC_DDEP+1 ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating DD2DV or DDEP_SPC' CALL M3WARN( PNAME, 0, 0, XMSG ) SUCCESS = .FALSE.; RETURN END IF ALLOCATE ( DEPV_MAP( N_SPC_DEPV+1 ), & DEPV_SPC( N_SPC_DEPV ), & DV2DF( N_SPC_DEPV ), & dv2df_spc( n_spc_depv ), stat = allocstat ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating DEPV_MAP, DEPV_SPC, DV2DF or dv2df_spc' CALL M3WARN( PNAME, 0, 0, XMSG ) SUCCESS = .FALSE.; RETURN END IF ! Populate global maps to CGRID ! Map Diffusion Module Species to Deposition Velocity Species I = 0; S = 0; N = 0 DO V = 1, N_GC_TRNS ! assumes dep.vel species subset of vdif species N = N + 1 INDX = FINDEX( GC_TRNS_MAP( V ), N_GC_DEPV, GC_DEPV_MAP ) IF ( INDX .GT. 0 ) THEN I = I + 1 DF2DV( N ) = S + INDX ELSE DF2DV( N ) = N_SPC_DEPV + 1 END IF END DO S = S + I ! S should now be = N_GC_DEPV I = 0 DO V = 1, N_AE_TRNS N = N + 1 INDX = FINDEX( AE_TRNS_MAP( V ), N_AE_DEPV, AE_DEPV_MAP ) IF ( INDX .GT. 0 ) THEN I = I + 1 DF2DV( N ) = S + INDX ELSE DF2DV( N ) = N_SPC_DEPV + 1 END IF END DO S = S + I ! S should now be = N_GC_DEPV + N_AE_DEPV I = 0 DO V = 1, N_NR_TRNS N = N + 1 INDX = FINDEX( NR_TRNS_MAP( V ), N_NR_DEPV, NR_DEPV_MAP ) IF ( INDX .GT. 0 ) THEN I = I + 1 DF2DV( N ) = S + INDX ELSE DF2DV( N ) = N_SPC_DEPV + 1 END IF END DO S = S + I ! S should now be = N_GC_DEPV + N_AE_DEPV + N_NR_DEPV DO V = 1, N_TR_DIFF N = N + 1 INDX = FINDEX( TR_DIFF_MAP( V ), N_TR_DEPV, TR_DEPV_MAP ) IF ( INDX .GT. 0 ) THEN DF2DV( N ) = S + INDX ELSE DF2DV( N ) = N_SPC_DEPV + 1 END IF END DO ! Map Deposition Velocity Species to Dry Deposition Module Species LERROR = .FALSE. S = 0; V = 0 DO N = 1, N_GC_DDEP V = V + 1 INDX = FINDEX ( GC_DDEP_MAP( N ), N_GC_DEPV, GC_DEPV_MAP ) IF ( INDX .GT. 0 ) THEN DD2DV ( V ) = S + INDX DDEP_SPC( V ) = GC_DDEP( N ) ELSE XMSG = 'ERROR: No deposition velocity for DDEP species ' // & GC_DDEP( N ) CALL M3MESG( XMSG ) LERROR = .TRUE. END IF END DO S = N_GC_DEPV DO N = 1, N_AE_DDEP V = V + 1 INDX = FINDEX ( AE_DDEP_MAP( N ), N_AE_DEPV, AE_DEPV_MAP ) IF ( INDX .GT. 0 ) THEN DD2DV ( V ) = S + INDX DDEP_SPC( V ) = AE_DDEP( N ) ELSE XMSG = 'ERROR: No deposition velocity for DDEP species ' // & AE_DDEP( N ) CALL M3MESG( XMSG ) LERROR = .TRUE. END IF END DO S = N_GC_DEPV + N_AE_DEPV DO N = 1, N_NR_DDEP V = V + 1 INDX = FINDEX ( NR_DDEP_MAP( N ), N_NR_DEPV, NR_DEPV_MAP ) IF ( INDX .GT. 0 ) THEN DD2DV ( V ) = S + INDX DDEP_SPC( V ) = NR_DDEP( N ) ELSE XMSG = 'ERROR: No deposition velocity for DDEP species ' // & NR_DDEP( N ) CALL M3MESG( XMSG ) LERROR = .TRUE. END IF END DO S = N_GC_DEPV + N_AE_DEPV + N_NR_DEPV DO N = 1, N_TR_DEPV V = V + 1 INDX = FINDEX ( TR_DDEP_MAP( N ), N_TR_DEPV, TR_DEPV_MAP ) IF ( INDX .GT. 0 ) THEN DD2DV ( V ) = S + INDX DDEP_SPC( V ) = TR_DDEP( N ) ELSE XMSG = 'ERROR: No deposition velocity for DDEP species ' // & TR_DDEP( N ) CALL M3MESG( XMSG ) LERROR = .TRUE. END IF END DO NH3_E = 0 HG_ E = 0 HONO_E = 0 IF ( ABFLUX ) THEN NH3_E = 1 N_BD_EMIS = NH3_E BD_EMIS_SPC( NH3_E ) = 'NH3_Emis' END IF IF ( HGBIDI ) THEN HG_E = NH3_E + 1 N_BD_EMIS = HG_E BD_EMIS_SPC( HG_E ) = 'HG_Emis' END IF IF ( SFC_HONO ) THEN HONO_E = max(NH3_E,HG_E) + 1 N_BD_EMIS = HONO_E BD_EMIS_SPC( HONO_E ) = 'HONO_Het ' END IF ! Populate Deposition Velocity Map and Species S = 0 DO V = 1, N_GC_DEPV S = S + 1 DEPV_MAP( S ) = GC_STRT - 1 + GC_DEPV_MAP( V ) DEPV_SPC( S ) = GC_SPC( GC_DEPV_MAP( V ) ) END DO DO V = 1, N_AE_DEPV S = S + 1 DEPV_MAP( S ) = AE_STRT - 1 + AE_DEPV_MAP( V ) DEPV_SPC( S ) = AE_SPC( AE_DEPV_MAP( V ) ) END DO DO V = 1, N_NR_DEPV S = S + 1 DEPV_MAP( S ) = NR_STRT - 1 + NR_DEPV_MAP( V ) DEPV_SPC( S ) = NR_SPC( NR_DEPV_MAP( V ) ) END DO DO V = 1, N_TR_DEPV S = S + 1 DEPV_MAP( S ) = TR_STRT - 1 + TR_DEPV_MAP( V ) DEPV_SPC( S ) = TR_SPC( TR_DEPV_MAP( V ) ) END DO ! Populate Diffusion Module Map and Species ALLOCATE( DIFF_MASK_GAS ( N_SPC_DIFF ) ) ALLOCATE( DIFF_MASK_AERO( N_SPC_DIFF ) ) ALLOCATE( DIFF_MASK_NUM( N_SPC_DIFF ) ) ALLOCATE( DIFF_MASK_SRF( N_SPC_DIFF ) ) ALLOCATE( DIFF_MASK_NR ( N_SPC_DIFF ) ) ALLOCATE( DIFF_MASK_TRAC( N_SPC_DIFF ) ) DIFF_MASK_GAS = .FALSE. DIFF_MASK_AERO = .FALSE. DIFF_MASK_NUM = .FALSE. DIFF_MASK_SRF = .FALSE. DIFF_MASK_NR = .FALSE. DIFF_MASK_TRAC = .FALSE. DIFF_MAP = 0 DIFF_SPC = "" DIFF_MW = 0. S = 0 DO V = 1, N_GC_TRNS S = S + 1 DIFF_MAP( S ) = GC_STRT - 1 + GC_TRNS_MAP( V ) DIFF_SPC( S ) = GC_SPC( GC_TRNS_MAP( V ) ) DIFF_MW ( S ) = GC_MOLWT( GC_TRNS_MAP( V ) ) DIFF_MASK_GAS( S ) = .TRUE. END DO DO V = 1, N_AE_TRNS S = S + 1 DIFF_MAP( S ) = AE_STRT - 1 + AE_TRNS_MAP( V ) DIFF_SPC( S ) = AE_SPC( AE_TRNS_MAP( V ) ) DIFF_MW ( S ) = AE_MOLWT( AE_TRNS_MAP( V ) ) DIFF_MASK_AERO( S ) = .TRUE. IF ( INDEX( DIFF_SPC( S ), 'NUM' ) .NE. 0 ) THEN DIFF_MASK_NUM( S ) = .TRUE. END IF IF ( INDEX( DIFF_SPC( S ), 'SRF' ) .NE. 0 ) THEN DIFF_MASK_SRF( S ) = .TRUE. END IF END DO DO V = 1, N_NR_TRNS S = S + 1 DIFF_MAP( S ) = NR_STRT - 1 + NR_TRNS_MAP( V ) DIFF_SPC( S ) = NR_SPC( NR_TRNS_MAP( V ) ) DIFF_MW ( S ) = NR_MOLWT( NR_TRNS_MAP( V ) ) DIFF_MASK_NR( S ) = .TRUE. END DO DO V = 1, N_TR_DIFF S = S + 1 DIFF_MAP( S ) = TR_STRT - 1 + TR_DIFF_MAP( V ) DIFF_SPC( S ) = TR_SPC( TR_DIFF_MAP( V ) ) DIFF_MW ( S ) = TR_MOLWT( TR_DIFF_MAP( V ) ) DIFF_MASK_TRAC( S ) = .TRUE. END DO ! Map Deposition Velocity Species to Diffusion Module Species S = 0; V = 0 DO N = 1, N_GC_DEPV V = V + 1 INDX = FINDEX ( GC_DEPV_MAP( N ), N_GC_TRNS, GC_TRNS_MAP ) IF ( INDX .GT. 0 ) THEN DV2DF ( V ) = S + INDX dv2df_spc( v ) = gc_trns( indx ) ELSE XMSG = 'ERROR: deposition velocity specified for non-diff species ' & // GC_SPC( GC_DEPV_MAP( N ) ) CALL M3MESG( XMSG ) LERROR = .TRUE. END IF END DO S = N_GC_TRNS DO N = 1, N_AE_DEPV V = V + 1 INDX = FINDEX ( AE_DEPV_MAP( N ), N_AE_TRNS, AE_TRNS_MAP ) IF ( INDX .GT. 0 ) THEN DV2DF ( V ) = S + INDX dv2df_spc( v ) = ae_trns( indx ) ELSE XMSG = 'ERROR: deposition velocity specified for non-diff species ' & // AE_SPC( AE_DEPV_MAP( N ) ) CALL M3MESG( XMSG ) LERROR = .TRUE. END IF END DO S = N_GC_TRNS + N_AE_TRNS DO N = 1, N_NR_DEPV V = V + 1 INDX = FINDEX ( NR_DEPV_MAP( N ), N_NR_TRNS, NR_TRNS_MAP ) IF ( INDX .GT. 0 ) THEN DV2DF ( V ) = S + INDX dv2df_spc( v ) = nr_trns( indx ) ELSE XMSG = 'ERROR: deposition velocity specified for non-diff species ' & // NR_SPC( NR_DEPV_MAP( N ) ) CALL M3MESG( XMSG ) LERROR = .TRUE. END IF END DO S = N_GC_TRNS + N_AE_TRNS + N_NR_TRNS DO N = 1, N_TR_DEPV V = V + 1 INDX = FINDEX ( TR_DEPV_MAP( N ), N_TR_DIFF, TR_DIFF_MAP ) IF ( INDX .GT. 0 ) THEN DV2DF ( V ) = S + INDX dv2df_spc( v ) = tr_diff( indx ) ELSE XMSG = 'ERROR: deposition velocity specified for non-diff species ' & // TR_SPC( TR_DEPV_MAP( N ) ) CALL M3MESG( XMSG ) LERROR = .TRUE. END IF END DO ! Check for Errors and Exit IF ( LERROR ) THEN XMSG = '*** Species mapping error(s) in VDIFF_MAP' CALL M3WARN( PNAME, 0, 0, XMSG ) SUCCESS = .FALSE. END IF RETURN END FUNCTION VDIFF_MAP_INIT END MODULE VDIFF_MAP ================================================ FILE: CCTM/src/vdiff/acm2_stage/opddep.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/CCTM/src/vdiff/acm2/opddep.F,v 1.6 2012/01/19 14:40:52 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE OPDDEP ( JDATE, JTIME, TSTEP, N_SPC_DDEP ) C 30 Mar 01 J.Young: dyn alloc - Use HGRD_DEFN C 03 Sep 01 David Wong: for new pario C 31 Jan 05 J.Young: dyn alloc - establish both horizontal & vertical C domain specifications in one module C 21 Jun 10 J.Young: convert for Namelist redesign C 16 Feb 11 S.Roselle: replaced I/O API include files with UTILIO_DEFN C 11 May 11 J.Bash: Modified to output NH3 bidi component fluxes C 04 Jan 12 J.Young: Initalize char strings with blank padding C 08 Jun 12 J.Young: remove full character blank padding for GNU Fortran (GCC) 4.1.2 USE GRID_CONF ! horizontal & vertical domain specifications USE CGRID_SPCS ! CGRID mechanism species USE UTILIO_DEFN IMPLICIT NONE INCLUDE SUBST_FILES_ID ! file name parameters C Arguments: INTEGER, INTENT( IN ) :: JDATE ! current model date, coded YYYYDDD INTEGER, INTENT( IN ) :: JTIME ! current model time, coded HHMMSS INTEGER, INTENT( IN ) :: TSTEP ! output time step INTEGER, INTENT( IN ) :: N_SPC_DDEP ! no. of dry dep species C Local variables: CHARACTER( 16 ) :: PNAME = 'OPDDEP' CHARACTER( 96 ) :: XMSG = ' ' ! component flux varialbes INTEGER, SAVE :: N_BD_EMIS CHARACTER( 16 ), SAVE :: BD_EMIS_SPC( 3 ) INTEGER, SAVE :: N_BD_FLUX CHARACTER( 16 ), SAVE :: BD_FLUX_SPC( 1 ) INTEGER V, N, L ! loop induction variables INTEGER STRT, FINI ! loop induction variables C----------------------------------------------------------------------- C Try to open existing file for update IF ( .NOT. OPEN3( CTM_DRY_DEP_1, FSRDWR3, PNAME ) ) THEN N_BD_EMIS = 0 N_BD_FLUX = 0 If( ABFLUX ) Then N_BD_EMIS = N_BD_EMIS + 1 BD_EMIS_SPC( N_BD_EMIS ) = 'NH3_Emis' N_BD_FLUX = 1 BD_FLUX_SPC( 1 ) = 'NH3_Flux' End If If( HGBIDI ) Then N_BD_EMIS = N_BD_EMIS + 1 BD_EMIS_SPC( N_BD_EMIS ) = 'HG_Emis' End If If( SFC_HONO ) Then N_BD_EMIS = N_BD_EMIS + 1 BD_EMIS_SPC( N_BD_EMIS ) = 'HONO_Het ' End If XMSG = 'Could not open ' // CTM_DRY_DEP_1 // ' file for update - ' & // 'try to open new' CALL M3MESG( XMSG ) C Set output file characteristics based on COORD.EXT and open the dry dep file FTYPE3D = GRDDED3 SDATE3D = JDATE STIME3D = JTIME TSTEP3D = TSTEP CALL NEXTIME( SDATE3D, STIME3D, TSTEP3D ) ! start the next hour NVARS3D = N_SPC_DDEP + N_BD_EMIS + N_BD_FLUX NCOLS3D = GL_NCOLS NROWS3D = GL_NROWS NLAYS3D = 1 NTHIK3D = 1 GDTYP3D = GDTYP_GD P_ALP3D = P_ALP_GD P_BET3D = P_BET_GD P_GAM3D = P_GAM_GD XORIG3D = XORIG_GD YORIG3D = YORIG_GD XCENT3D = XCENT_GD YCENT3D = YCENT_GD XCELL3D = XCELL_GD YCELL3D = YCELL_GD VGTYP3D = VGTYP_GD VGTOP3D = VGTOP_GD DO L = 1, NLAYS3D + 1 VGLVS3D( L ) = VGLVS_GD( L ) END DO GDNAM3D = GRID_NAME ! from HGRD_DEFN N = 0 STRT = 1 FINI = N_GC_DDEP DO V = STRT, FINI N = N + 1 VTYPE3D( V ) = M3REAL VNAME3D( V ) = GC_DDEP( N ) UNITS3D( V ) = 'kg/hectare' VDESC3D( V ) = 'hourly dry deposition values' END DO N = 0 STRT = N_GC_DDEP + 1 FINI = N_GC_DDEP + N_AE_DDEP DO V = STRT, FINI N = N + 1 VTYPE3D( V ) = M3REAL VNAME3D( V ) = AE_DDEP( N ) IF ( AE_DDEP( N )( 1:3 ) .EQ. 'NUM' ) THEN UNITS3D( V ) = 'number/hectare' ELSE IF ( AE_DDEP( N )( 1:3 ) .EQ. 'SRF' ) THEN UNITS3D( V ) = 'm**2/hectare' ELSE UNITS3D( V ) = 'kg/hectare' END IF VDESC3D( V ) = 'hourly dry deposition values' END DO N = 0 STRT = N_GC_DDEP + N_AE_DDEP + 1 FINI = N_GC_DDEP + N_AE_DDEP + N_NR_DDEP DO V = STRT, FINI N = N + 1 VTYPE3D( V ) = M3REAL VNAME3D( V ) = NR_DDEP( N ) UNITS3D( V ) = 'kg/hectare' VDESC3D( V ) = 'hourly dry deposition values' END DO N = 0 STRT = N_GC_DDEP + N_AE_DDEP + N_NR_DDEP + 1 FINI = N_GC_DDEP + N_AE_DDEP + N_NR_DDEP + N_TR_DDEP DO V = STRT, FINI N = N + 1 VTYPE3D( V ) = M3REAL VNAME3D( V ) = TR_DDEP( N ) UNITS3D( V ) = '----' VDESC3D( V ) = 'hourly dry deposition values' END DO IF ( ABFLUX ) THEN N = 0 STRT = N_GC_DDEP + N_AE_DDEP + N_NR_DDEP + N_TR_DDEP + 1 FINI = N_GC_DDEP + N_AE_DDEP + N_NR_DDEP + N_TR_DDEP + 1 DO V = STRT, FINI N = N + 1 VTYPE3D( V ) = M3REAL VNAME3D( V ) = BD_EMIS_SPC( N ) UNITS3D( V ) = 'kg/hectare' VDESC3D( V ) = 'hourly emission values' END DO N = 0 STRT = FINI + 1 FINI = FINI + N_BD_FLUX DO V = STRT, FINI N = N + 1 VTYPE3D( V ) = M3REAL VNAME3D( V ) = BD_FLUX_SPC( N ) UNITS3D( V ) = 'kg/hectare' VDESC3D( V ) = 'hourly flux values' END DO END IF IF ( HGBIDI ) THEN STRT = FINI + 1 FINI = FINI + 1 DO V = STRT, FINI VTYPE3D( V ) = M3REAL VNAME3D( V ) = 'HG_Emis' UNITS3D( V ) = 'kg/hectare' VDESC3D( V ) = 'hourly emission values' END DO END IF IF ( SFC_HONO ) THEN STRT = FINI + 1 FINI = FINI + 1 DO V = STRT, FINI VTYPE3D( V ) = M3REAL VNAME3D( V ) = 'HONO_Het ' UNITS3D( V ) = 'kg/hectare' VDESC3D( V ) = 'hourly surface heterogenous production values' END DO END IF FDESC3D( 1 ) = 'hourly 1-layer cross-point STAGE dry deposition data' DO L = 2, MXDESC3 FDESC3D( L ) = ' ' END DO C Open dry deposition file IF ( .NOT. OPEN3( CTM_DRY_DEP_1, FSNEW3, PNAME ) ) THEN XMSG = 'Could not create '// CTM_DRY_DEP_1 // ' file' CALL M3EXIT( PNAME, SDATE3D, STIME3D, XMSG, XSTAT1 ) END IF END IF RETURN END ================================================ FILE: CCTM/src/vdiff/acm2_stage/opddep_mos.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/CCTM/src/vdiff/acm2/opddep_mos.F,v 1.3 2011/10/21 16:11:46 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE OPDDEP_MOS ( JDATE, JTIME, TSTEP, N_SPC_DDEP ) C 30 Mar 01 J.Young: dyn alloc - Use HGRD_DEFN C 03 Sep 01 David Wong: for new pario C 31 Jan 05 J.Young: dyn alloc - establish both horizontal & vertical C domain specifications in one module C 21 Jun 10 J.Young: convert for Namelist redesign C 16 Feb 11 S.Roselle: replaced I/O API include files with UTILIO_DEFN C 20 May 11 D.Schwede: modified to include mosaic output file USE GRID_CONF ! horizontal & vertical domain specifications USE CGRID_SPCS ! CGRID mechanism species USE UTILIO_DEFN USE MOSAIC_MOD, Only: Tile_Data IMPLICIT NONE INCLUDE SUBST_FILES_ID ! file name parameters C Arguments: INTEGER JDATE ! current model date, coded YYYYDDD INTEGER JTIME ! current model time, coded HHMMSS INTEGER TSTEP ! output time step INTEGER N_SPC_DDEP ! no. of dry dep species C Local variables: CHARACTER( 16 ) :: PNAME = 'OPDDEP_MOS' CHARACTER( 96 ) :: XMSG = ' ' INTEGER V, N, L ! loop induction variables INTEGER STRT, FINI ! loop induction variables C----------------------------------------------------------------------- C Try to open existing file for update IF ( .NOT. OPEN3( CTM_DRY_DEP_MOS, FSRDWR3, PNAME ) ) THEN XMSG = 'Could not open ' // CTM_DRY_DEP_MOS // ' file for update - ' & // 'try to open new' CALL M3MESG( XMSG ) C Set output file characteristics based on COORD.EXT and open the dry dep file FTYPE3D = GRDDED3 SDATE3D = JDATE STIME3D = JTIME TSTEP3D = TSTEP CALL NEXTIME( SDATE3D, STIME3D, TSTEP3D ) ! start the next hour NVARS3D = N_SPC_DDEP NCOLS3D = GL_NCOLS NROWS3D = GL_NROWS NLAYS3D = Tile_Data%N_LUFRAC + 1 NTHIK3D = 1 GDTYP3D = GDTYP_GD P_ALP3D = P_ALP_GD P_BET3D = P_BET_GD P_GAM3D = P_GAM_GD XORIG3D = XORIG_GD YORIG3D = YORIG_GD XCENT3D = XCENT_GD YCENT3D = YCENT_GD XCELL3D = XCELL_GD YCELL3D = YCELL_GD VGTYP3D = VGTYP_GD VGTOP3D = VGTOP_GD ! VGTPUN3D = VGTPUN_GD ! currently, not defined DO L = 1, NLAYS3D + 1 ! VGLVS3D( L ) = VGLVS_GD( L ) VGLVS3D( L ) = 1.0 ! just a dummy variable b/c they aren't really levels END DO ! GDNAM3D = GDNAME_GD GDNAM3D = GRID_NAME ! from HGRD_DEFN N = 0 STRT = 1 FINI = N_GC_DDEP DO V = STRT, FINI N = N + 1 VTYPE3D( V ) = M3REAL VNAME3D( V ) = GC_DDEP( N ) UNITS3D( V ) = 'kg/hectare' VDESC3D( V ) = 'hourly dry deposition values' END DO N = 0 STRT = N_GC_DDEP + 1 FINI = N_GC_DDEP + N_AE_DDEP DO V = STRT, FINI N = N + 1 VTYPE3D( V ) = M3REAL VNAME3D( V ) = AE_DDEP( N ) IF ( AE_DDEP( N )( 1:3 ) .EQ. 'NUM' ) THEN UNITS3D( V ) = 'number/hectare' ELSE IF ( AE_DDEP( N )( 1:3 ) .EQ. 'SRF' ) THEN UNITS3D( V ) = 'm**2/hectare' ELSE UNITS3D( V ) = 'kg/hectare' END IF VDESC3D( V ) = 'hourly dry deposition values' END DO N = 0 STRT = N_GC_DDEP + N_AE_DDEP + 1 FINI = N_GC_DDEP + N_AE_DDEP + N_NR_DDEP DO V = STRT, FINI N = N + 1 VTYPE3D( V ) = M3REAL VNAME3D( V ) = NR_DDEP( N ) UNITS3D( V ) = 'kg/hectare' VDESC3D( V ) = 'hourly dry deposition values' END DO N = 0 STRT = N_GC_DDEP + N_AE_DDEP + N_NR_DDEP + 1 FINI = N_GC_DDEP + N_AE_DDEP + N_NR_DDEP + N_TR_DDEP DO V = STRT, FINI N = N + 1 VTYPE3D( V ) = M3REAL VNAME3D( V ) = TR_DDEP( N ) UNITS3D( V ) = '----' VDESC3D( V ) = 'hourly dry deposition values' END DO FDESC3D( 1 ) = 'hourly 1-layer cross-point STAGE dry deposition data' DO L = 2, MXDESC3 FDESC3D( L ) = ' ' END DO C Open dry deposition file IF ( .NOT. OPEN3( CTM_DRY_DEP_MOS, FSNEW3, PNAME ) ) THEN XMSG = 'Could not create '// CTM_DRY_DEP_MOS // ' file' CALL M3EXIT( PNAME, SDATE3D, STIME3D, XMSG, XSTAT1 ) END IF END IF RETURN END ================================================ FILE: CCTM/src/vdiff/acm2_stage/vdiffacmx.F ================================================ !--------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE VDIFFACMX ( DTSEC, SEDDY, DDEP, TOT_BD_EMIS, DDEPJ, CNGRD ) C----------------------------------------------------------------------- C Asymmetric Convective Model v2 (ACM2/ACM1) -- Pleim(2006/2014) C Function: C calculates vertical diffusion C Subroutines and Functions Called: C SEC2TIME, TIME2SEC, WRITE3, NEXTIME, C M3EXIT, EDDYX, TRI, MATRIX, PA_UPDATE_EMIS, PA_UPDATE_DDEP C Revision History: C Analogous to VDIFFACM2 C 11 Apr 13 J.Young: fix double adjustment of conc for DDBF in heterogeneous HONO C if-then-else clauses; eliminate some white space C 13 May 13 J.Young: access met data from VDIFF_MET module C change CRANKP to THBAR, CRANKQ to THETA C 25 May 13 J.Young: re-do the acm/eddy algorithm for computational efficiency C 30 Apr 14 J.Young: switch THBAR and THETA C 2 May 14 J.Pleim, J.Young: replace the banded tridiagonal matrix solver for the C convective PBL, with the ACM1 matrix solver followed by the tridiagonal C matrix solver C 30 May 14 J.Young: split vdiff calculation out of vdiff proc. C 07 Nov 14 J.Bash: Updated for the ASX_DATA_MOD shared data module. C 10 Feb 19 D.Wong: removed all MY_N clauses C----------------------------------------------------------------------- USE CGRID_SPCS ! CGRID mechanism species USE GRID_CONF USE DESID_VARS, ONLY : VDEMIS_DIFF, DESID_LAYS USE DESID_PARAM_MODULE, ONLY : DESID_N_SRM USE DEPV_DEFN USE ASX_DATA_MOD USE VDIFF_MAP USE UTILIO_DEFN USE BIDI_MOD USE MOSAIC_MOD, ONLY: Tile_Data USE VDIFF_DIAG, NLPCR => NLPCR_MEAN USE HGRD_DEFN,only : COLSX_PE, ROWSX_PE USE BDSNP_MOD, ONLY: GET_N_DEP #ifdef isam USE SA_DEFN, ONLY: N_SPCTAG, ISAM, VNAM_SPCTAG, TRANSPORT_SPC, & SA_VDEMIS_DIFF, ITAG, NTAG_SA, NSPC_SA, & S_SPCTAG, T_SPCTAG, SA_DDEP, OTHRTAG, ISAM_SPEC, & L_NO3, SA_BIDI, BIDITAG, L_NH4 #endif IMPLICIT NONE INCLUDE SUBST_FILES_ID ! file name parameters CHARACTER( 120 ) :: XMSG = ' ' C Arguments: REAL, INTENT( IN ) :: DTSEC ! model time step in seconds C--- SEDDY is strictly an input, but it gets modified here REAL, INTENT( INOUT ) :: SEDDY ( :,:,: ) ! flipped EDDYV REAL, INTENT( INOUT ) :: DDEP ( :,:,: ) ! ddep accumulator REAL, INTENT( INOUT ) :: TOT_BD_EMIS ( :,:,: ) ! bidi emissions accumlator REAL, INTENT( INOUT ), OPTIONAL :: DDEPJ ( :,:,:,: ) ! ddep for mosaic REAL, INTENT( INOUT ) :: CNGRD ( :,:,:,: ) ! cgrid replacement C Parameters: C explicit, THETA = 0, implicit, THETA = 1 ! Crank-Nicholson: THETA = 0.5 REAL, PARAMETER :: THETA = 0.5, & THBAR = 1.0 - THETA REAL, PARAMETER :: EPS = 1.0E-06 C External Functions: None C Local Variables: CHARACTER( 16 ), SAVE :: PNAME = 'VDIFFACMX' LOGICAL, SAVE :: FIRSTIME = .TRUE. LOGICAL, SAVE :: SPECLOG = .TRUE. ! For BDSNP REAL, ALLOCATABLE, SAVE :: DD_FAC ( : ) ! combined subexpression REAL, ALLOCATABLE, SAVE :: DD_FACJ ( :,: ) ! combined subexpression for mosaic REAL, ALLOCATABLE, SAVE :: DDBF ( : ) ! secondary DDEP REAL, ALLOCATABLE, SAVE :: DDBFJ ( :,: ) ! secondary DDEP for mosaic REAl, ALLOCATABLE, SAVE :: TMP_BD_EMIS( : ) ! intermediate bidi emissions REAL, ALLOCATABLE, SAVE :: CONC ( :,: ) ! secondary CGRID expression REAL, ALLOCATABLE, SAVE :: EMIS ( :,: ) ! emissions subexpression REAL DTDENS1 ! DT * layer 1 air density C ACM Local Variables REAL :: EDDY ( NLAYS ) ! local converted eddyv REAL MEDDY ! ACM2 intermediate var REAL MBAR ! ACM2 mixing rate (S-1) REAL :: MBARKS( NLAYS ) ! by layer REAL :: MDWN ( NLAYS ) ! ACM down mix rate REAL :: MFAC ( NLAYS ) ! intermediate loop factor REAL :: AA ( NLAYS ) ! matrix column one REAL :: BB1 ( NLAYS ) ! diagonal for MATRIX1 REAL :: BB2 ( NLAYS ) ! diagonal for TRI REAL :: CC ( NLAYS ) ! subdiagonal REAL :: EE1 ( NLAYS ) ! superdiagonal for MATRIX1 REAL :: EE2 ( NLAYS ) ! superdiagonal for TRI REAL, ALLOCATABLE, SAVE :: DD ( :,: ) ! R.H.S REAL, ALLOCATABLE, SAVE :: UU ( :,: ) ! returned solution REAL DFACP, DFACQ REAL :: DFSP( NLAYS ), DFSQ( NLAYS ) ! intermediate loop factors REAL DELC, DELP, RP, RQ REAL :: LFAC1( NLAYS ) ! intermediate factor for CONVT REAL :: LFAC2( NLAYS ) ! intermediate factor for CONVT REAL :: LFAC3( NLAYS ) ! intermediate factor for eddy REAL :: LFAC4( NLAYS ) ! intermediate factor for eddy REAL, ALLOCATABLE, SAVE :: DEPVCR ( : ) ! dep vel in one cell REAL, ALLOCATABLE, SAVE :: DEPVJCR ( :,: ) ! dep vel in one cell for each landuse REAL, ALLOCATABLE, SAVE :: EFAC1 ( : ) REAL, ALLOCATABLE, SAVE :: EFAC2 ( : ) REAL, ALLOCATABLE, SAVE :: EMIS_OVER_VD( : ) ! Bidi Emissions/DEPV (ppm) REAL PLDV_HONO ! PLDV for HONO REAL DEPV_NO2 ! dep vel of NO2 REAL DEPV_HNO3 ! dep vel of HNO3 REAL FNL ! ACM2 Variable INTEGER NLP, NL, LCBL INTEGER, SAVE :: NO2_HIT, HONO_HIT, HNO3_HIT, NO2_MAP, HNO3_MAP INTEGER, SAVE :: NH3_HIT, HG_HIT REAL DTLIM, DTS, DTACM, RZ INTEGER ASTAT INTEGER C, R, L, S, V, I, J ! loop induction variables INTEGER MDATE, MTIME ! internal simulation date&time !--Local Arrays for Z-coord implimentation REAL :: DZH ( NLAYS ) ! ZF(L) - ZF(L-1) REAL :: DZHI ( NLAYS ) ! 1/DZH REAL :: DZFI ( NLAYS ) ! ZH(L+1) - ZH(L) integer gl_c, gl_r LOGICAL, SAVE :: XMOSAIC = .FALSE. #ifdef isam REAL :: TOTAL_SA_NO2 REAL, ALLOCATABLE, SAVE :: SA_DDBF( : ) INTEGER IBGN, JSPCTAG REAL, ALLOCATABLE,SAVE :: SAEMIS( :,: ) REAL, ALLOCATABLE,SAVE :: SACONC( :,: ) REAL, ALLOCATABLE,SAVE :: SA_DD( :,: ) REAL, ALLOCATABLE,SAVE :: SA_UU( :,: ) REAL, ALLOCATABLE,SAVE :: SAFRAC( : ) REAL, ALLOCATABLE,SAVE :: SA_NO2( : ) REAL, ALLOCATABLE,SAVE :: SA_SUM( : ) INTEGER, SAVE :: ISAM_INDEX_NO2 = 0 ! ...Index locating NO2 in ISAM INTEGER, SAVE :: ISAM_INDEX_NH3 = 0 ! ...Index locating NH3 in ISAM INTEGER, SAVE :: PLDV_INDEX_NH3 = 0 ! ...Index locating NH3 in PLDV INTEGER, ALLOCATABLE, SAVE :: ISAM_DEPV( : ) INTEGER, ALLOCATABLE, SAVE :: INDEX_SA_HONO( : ) INTEGER, ALLOCATABLE, SAVE :: INDEX_SA_NH3( : ) CHARACTER( 16 ) :: ISAM_SPECIES INTEGER TOP, BOT #endif INTERFACE SUBROUTINE MATRIX1 ( KL, A, B, E, D, X ) INTEGER, INTENT( IN ) :: KL REAL, INTENT( IN ) :: A( : ), B( : ), E( : ) REAL, INTENT( IN ) :: D( :,: ) REAL, INTENT( OUT ) :: X( :,: ) END SUBROUTINE MATRIX1 SUBROUTINE TRI ( L, D, U, B, X ) REAL, INTENT( IN ) :: L( : ), D( : ), U( : ) REAL, INTENT( IN ) :: B( :,: ) REAL, INTENT( OUT ) :: X( :,: ) END SUBROUTINE TRI #ifdef isam SUBROUTINE SA_MATRIX1 ( KL, A, B, E, D, X ) INTEGER, INTENT( IN ) :: KL REAL, INTENT( IN ) :: A( : ), B( : ), E(: ) REAL, INTENT( IN ) :: D( :,: ) REAL, INTENT( OUT ) :: X( :,: ) END SUBROUTINE SA_MATRIX1 SUBROUTINE SA_TRI ( L, D, U, B, X ) REAL, INTENT( IN ) :: L( : ), D( : ), U( : ) REAL, INTENT( IN ) :: B( :,: ) REAL, INTENT( OUT ) :: X( :,: ) END SUBROUTINE SA_TRI #endif END INTERFACE C----------------------------------------------------------------------- IF ( FIRSTIME ) THEN FIRSTIME = .FALSE. MDATE = 0; MTIME = 0 C set auxiliary depv arrays ALLOCATE ( DD_FAC ( N_SPC_DEPV ), & DDBF ( N_SPC_DEPV ), & DEPVCR ( N_SPC_DEPV ), & EFAC1 ( N_SPC_DEPV ), & EFAC2 ( N_SPC_DEPV ), & EMIS_OVER_VD ( N_SPC_DEPV ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN XMSG = 'Failure allocating DD_FAC, DDBF, DEPVCR, EFAC1, EFAC2, or EMIS_OVER_VDs' CALL M3EXIT( PNAME, MDATE, MTIME, XMSG, XSTAT1 ) END IF IF ( PRESENT ( DDEPJ ) ) XMOSAIC = .TRUE. IF ( XMOSAIC ) THEN ALLOCATE ( DD_FACJ( Tile_Data%N_LUFRAC,N_SPC_DEPV ), & DDBFJ ( Tile_Data%N_LUFRAC,N_SPC_DEPV ), & DEPVJCR( Tile_Data%N_LUFRAC,N_SPC_DEPV ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN XMSG = 'Failure allocating DD_FACJ, DDBFJ or DEPVJCR' CALL M3EXIT( PNAME, MDATE, MTIME, XMSG, XSTAT1 ) END IF END IF ! if Mosaic ALLOCATE ( TMP_BD_EMIS( N_BD_EMIS ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN XMSG = 'Failure allocating TMP_BD_EMIS' CALL M3EXIT( PNAME, MDATE, MTIME, XMSG, XSTAT1 ) END IF ALLOCATE ( CONC( N_SPC_DIFF,NLAYS ), & EMIS( N_SPC_DIFF,NLAYS ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN XMSG = 'Failure allocating CONC or EMIS' CALL M3EXIT( PNAME, MDATE, MTIME, XMSG, XSTAT1 ) END IF CONC = 0.0; EMIS = 0.0 ! array assignment ALLOCATE ( DD( N_SPC_DIFF,NLAYS ), & UU( N_SPC_DIFF,NLAYS ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN XMSG = 'Failure allocating DD or UU' CALL M3EXIT( PNAME, MDATE, MTIME, XMSG, XSTAT1 ) END IF DD = 0.0; UU = 0.0 ! array assignment HONO_HIT = 0; HNO3_HIT = 0; NO2_HIT = 0; NH3_HIT = 0 HNO3_MAP = 0; NO2_MAP = 0 DO V = 1, N_SPC_DEPV IF ( DV2DF_SPC( V ) .EQ. 'NO2' ) THEN NO2_HIT = V NO2_MAP = DV2DF( V ) ELSE IF ( DV2DF_SPC( V ) .EQ. 'HONO' ) THEN HONO_HIT = V ELSE IF ( DV2DF_SPC( V ) .EQ. 'HNO3' ) THEN HNO3_HIT = V HNO3_MAP = DV2DF( V ) ELSE IF ( DV2DF_SPC( V ) .EQ. 'NH3' ) THEN NH3_HIT = V ELSE IF ( DV2DF_SPC( V ) .EQ. 'HG' ) THEN HG_HIT = V END IF END DO #ifdef isam ALLOCATE ( SA_DDBF( N_SPCTAG ), & SACONC( N_SPCTAG, NLAYS ), & SAEMIS( N_SPCTAG, NLAYS ), & SA_DD ( N_SPCTAG, NLAYS ), & SA_UU ( N_SPCTAG, NLAYS ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN XMSG = 'Failure ISAM diffusion variables' CALL M3EXIT( PNAME, MDATE, MTIME, XMSG, XSTAT1 ) END IF ALLOCATE ( SAFRAC ( N_SPCTAG ), & SA_SUM ( NSPC_SA ), & ISAM_DEPV( N_SPCTAG ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN XMSG = 'Failure ISAM depv variables' CALL M3EXIT( PNAME, MDATE, MTIME, XMSG, XSTAT1 ) END IF ALLOCATE ( SA_NO2( NTAG_SA ), & INDEX_SA_HONO( NTAG_SA ), & INDEX_SA_NH3 ( NTAG_SA ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN XMSG = 'Failure ISAM HONO/NH3 variables' CALL M3EXIT( PNAME, MDATE, MTIME, XMSG, XSTAT1 ) END IF SACONC = 0.0 SAEMIS = 0.0 SA_DD = 0.0 SA_UU = 0.0 SAFRAC = 0.0 ISAM_DEPV = 0 SA_NO2 = 1.0 / REAL( NTAG_SA ) INDEX_SA_HONO = 0 INDEX_SA_NH3 = 0 ! set default partitioning of surface fluxes DO JSPCTAG = 1, N_SPCTAG IF ( T_SPCTAG( JSPCTAG ) .EQ. OTHRTAG ) THEN SAFRAC( JSPCTAG ) = 1.0 ELSE SAFRAC( JSPCTAG ) = 0.0 END IF END DO ! find NO2 in tracked species DO S = 1, NSPC_SA IF( ISAM_SPEC( S,1 ) .EQ. 'NO2' )THEN ISAM_INDEX_NO2 = S EXIT END IF END DO ! find NH3 in tracked species IF ( SA_BIDI ) THEN DO S = 1, NSPC_SA IF( ISAM_SPEC( S,1 ) .EQ. 'NH3' )THEN ISAM_INDEX_NH3 = S EXIT END IF END DO S = -1 S = INDEX1( 'NH3', N_SPC_DEPV, DEPV_SPC ) IF ( S .GT. 0 ) THEN PLDV_INDEX_NH3 = S ELSE XMSG = 'NH3 not found in DEPV_SPC array' CALL M3EXIT( 'PLDV_INDEX_NH3', 0, 0, XMSG, XSTAT1 ) END IF END IF ! set indices determining depv treatment, equals zero if none ITAG = 0 WRITE(LOGDEV,'(/,A7,1X,2(A16,1X))')'JSPCTAG','ISAM_SPECIES','DEPV Value' DO JSPCTAG = 1, N_SPCTAG ISAM_SPECIES = ISAM_SPEC( S_SPCTAG( JSPCTAG ),1 ) IF( TRIM( ISAM_SPECIES ) .EQ. 'HONO' )THEN ITAG = ITAG + 1 INDEX_SA_HONO( ITAG ) = JSPCTAG END IF DO V = 1, N_SPC_DEPV IF ( TRIM( ISAM_SPECIES ) .EQ. DV2DF_SPC( V ) ) THEN ISAM_DEPV( JSPCTAG ) = V END IF END DO IF ( ISAM_DEPV( JSPCTAG ) .GT. 0 ) THEN V = ISAM_DEPV( JSPCTAG ) WRITE(LOGDEV,'(I4,4X,2(A16,1X))')JSPCTAG,ISAM_SPECIES,DV2DF_SPC( V ) ELSE WRITE(LOGDEV,'(I4,4X,2(A16,1X))')JSPCTAG,ISAM_SPECIES,'NONE' END IF END DO WRITE(LOGDEV,'(/,A4,1X,A13,1X,A16))')'ITAG','INDEX_SA_HONO','ISAM_SPECIES' DO ITAG = 1, NTAG_SA JSPCTAG = INDEX_SA_HONO( ITAG ) IF ( JSPCTAG .GT. 0 ) THEN WRITE(LOGDEV,'(I2,3X,I4,8X,A16)')ITAG,JSPCTAG,VNAM_SPCTAG( JSPCTAG ) ELSE WRITE(LOGDEV,'(I2,3X,I4,8X,A16)')ITAG,JSPCTAG,'MISSING' END IF END DO c WRITE(LOGDEV,* )'TAG_species, Default Partitioning Coeff.' c DO JSPCTAG = 1, N_SPCTAG c WRITE(LOGDEV,*)VNAM_SPCTAG( JSPCTAG ),' ,',SAFRAC( JSPCTAG ) c END DO IF ( ABFLUX .AND. L_NH4 ) THEN ITAG = 0 DO JSPCTAG = 1, N_SPCTAG ISAM_SPECIES = ISAM_SPEC( S_SPCTAG( JSPCTAG ),1 ) IF( TRIM( ISAM_SPECIES ) .EQ. 'NH3' )THEN ITAG = ITAG + 1 INDEX_SA_NH3( ITAG ) = JSPCTAG END IF END DO c DO ITAG = 1, NTAG_SA c JSPCTAG = INDEX_SA_NH3( ITAG ) c SAFRAC( JSPCTAG ) = 0.0 ! to not double count the bi-di emmissions c END DO END IF #endif END IF ! if Firstime C ------------------------------------------- Row, Col LOOPS ----------- DO 345 R = 1, NROWS DO 344 C = 1, NCOLS DZH(1) = Met_Data%ZF( C,R,1 ) DZHI(1) = 1./DZH(1) DO L = 2, NLAYS DZH(L) = Met_Data%ZF( C,R,L ) - Met_Data%ZF( C,R,L-1 ) DZHI(L) = 1./DZH(L) ENDDO DO L = 1, NLAYS - 1 DZFI(L) = 1. / ( Met_Data%ZH( C,R,L+1 ) - Met_Data%ZH( C,R,L ) ) ENDDO DZFI(NLAYS) = DZFI(NLAYS-1) C for ACM time step DTLIM = DTSEC C dt = .75 dzf*dzh / Kz DO L = 1, NLAYS - 1 DTLIM = MIN( DTLIM, 0.75 / ( SEDDY( L,C,R ) * DZHI(L)*DZFI(L) ) ) END DO MBARKS = 0.0 ! array assignment MDWN = 0.0 ! array assignment C conjoin ACM & EDDY --------------------------------------------------- MBAR = 0.0 FNL = 0.0 IF ( Met_Data%CONVCT( C,R ) ) THEN ! Do ACM for this column LCBL = Met_Data%LPBL( C,R ) MEDDY = SEDDY( 1,C,R ) * DZFI(1) / (Met_Data%PBL( C,R ) - Met_Data%ZF(C,R,1)) FNL = 1.0 / ( 1.0 + ( ( KARMAN / ( -Met_Data%HOL( C,R ) ) ) ** 0.3333 ) & / ( 0.72 * KARMAN ) ) MBAR = MEDDY * FNL IF ( MEDDY .LT. EPS ) THEN gl_c = c + COLSX_PE(1,mype+1) -1 gl_r = r + ROWSX_PE(1,mype+1) -1 WRITE( LOGDEV,* ) ' Warning --- MEDDY < 1e-6 s-1' WRITE( LOGDEV,* ) ' SEDDY, MEDDY, FNL, HOL = ', & SEDDY( 1,C,R ), MEDDY, FNL, Met_Data%HOL( C,R ) XMSG = '*** ACM fails ***' WRITE( LOGDEV,*)' c,r=', gl_c,gl_r,' pbl,ust=',Met_Data%PBL( C,R ),Met_Data%USTAR( C,R ) ! CALL M3EXIT( PNAME, MDATE, MTIME, XMSG, XSTAT2 ) END IF IF ( ( FNL .LE. 0.0 ) .OR. ! never gonna happen for CONVCT & ( LCBL .GE. NLAYS-1 ) .OR. ! .GT. never gonna happen & ( Met_Data%HOL( C,R ) .GT. -0.00001 ) ) ! never gonna happen & WRITE( LOGDEV,1015 ) LCBL, MBAR, FNL, SEDDY( 1,C,R ), Met_Data%HOL( C,R ) 1015 FORMAT( ' LCBL, MBAR, FNL, SEDDY1, HOL:', I3, 1X, 4(1PE13.5) ) DO L = 2, LCBL SEDDY( L,C,R ) = ( 1.0 - FNL ) * SEDDY( L,C,R ) MBARKS( L ) = MBAR MDWN( L ) = MBAR * (Met_Data%PBL( C,R ) - Met_Data%ZF(C,R,L-1)) * DZHI(L) END DO SEDDY( 1,C,R ) = ( 1.0 - FNL ) * SEDDY( 1,C,R ) MBARKS(1) = MBAR MBARKS(LCBL) = MDWN(LCBL) MDWN(LCBL+1) = 0.0 C Modify Timestep for ACM RZ = (Met_Data%ZF(C,R,LCBL) - Met_Data%ZF(C,R,1)) * DZHI(1) DTACM = 1.0 / ( MBAR * RZ ) DTLIM = MIN( 0.75 * DTACM, DTLIM ) ELSE LCBL = 1 END IF C----------------------------------------------------------------------- NLP = INT( DTSEC / DTLIM + 0.99 ) IF ( VDIFFDIAG ) NLPCR( C,R ) = REAL( NLP ) DTS = DTSEC / REAL( NLP ) DTDENS1 = DTS * Met_Data%DENS1( C,R ) DFACP = THETA * DTS DFACQ = THBAR * DTS #ifdef Verbose_Vdiff IF ( R .EQ. MY_NROWS / 2 .AND. C .EQ. MY_NCOLS / 2 ) & WRITE( LOGDEV,1021 ) Met_Data%CONVCT( C,R ), DTS, EDDYV( C,R,1 ), MBAR, FNL 1021 FORMAT( ' CONVCT, DTS, EDDYV, MBAR, FNL: ', L3, 1X, 4(1PE13.5) ) #endif #ifdef isam SA_SUM = 0.0 DO V = 1, NSPC_SA DO ITAG = 1, NTAG_SA SA_SUM( V ) = SA_SUM( V ) + ISAM( C,R,1,V,ITAG ) END DO SA_SUM( V ) = MAX ( 1.0E-30, SA_SUM( V ) ) END DO SAFRAC = 0.0 DO JSPCTAG = 1, N_SPCTAG SAFRAC( JSPCTAG ) = SACONC( JSPCTAG,1 ) / SA_SUM ( S_SPCTAG( JSPCTAG ) ) END DO IF ( ABFLUX .AND. L_NH4 ) THEN DO ITAG = 1, NTAG_SA JSPCTAG = INDEX_SA_NH3( ITAG ) SAFRAC( JSPCTAG ) = 0.0 ! to not double count the bi-di emmissions END DO END IF IF( L_NO3 .AND. SFC_HONO ) THEN ! compute the flux partitioning for HONO from NO2 surface reaction DO ITAG = 1, NTAG_SA SA_NO2( ITAG ) = MAX( ISAM( C,R,1,ISAM_INDEX_NO2,ITAG ), 1.0E-30 ) END DO TOTAL_SA_NO2 = 1.0 / SUM( SA_NO2 ) DO ITAG = 1, NTAG_SA JSPCTAG = INDEX_SA_HONO( ITAG ) SAFRAC( JSPCTAG ) = SA_NO2( ITAG ) * TOTAL_SA_NO2 END DO END IF #endif DO L = 1, NLAYS DO V = 1, N_SPC_DIFF CONC( V,L ) = CNGRD( DIFF_MAP( V ),L,C,R ) END DO #ifdef isam DO JSPCTAG = 1, N_SPCTAG SACONC( JSPCTAG,L ) = ISAM( C,R,L,S_SPCTAG( JSPCTAG ),T_SPCTAG( JSPCTAG ) ) END DO #endif END DO EMIS = 0.0 ! array assignment IF ( DESID_N_SRM .GE. 1 ) & EMIS( :,1:DESID_LAYS ) = DTS * VDEMIS_DIFF( :,:,C,R ) #ifdef isam SAEMIS = 0.0 ! modify ground emissions for bidirectional species (for bidi, BIDI_VDEMIS > 0.0) IF ( SA_BIDI ) THEN SA_VDEMIS_DIFF( ISAM_INDEX_NH3,1,C,R,BIDITAG ) & = Tile_Data%Bidi_Emis( C, R, Tile_Data%dep2vdiff( PLDV_INDEX_NH3 ) ) END IF ! collapse ISAM emissions array DO L = 1, DESID_LAYS DO ITAG = 1, NTAG_SA BOT = (ITAG-1)*NSPC_SA+1 TOP = NSPC_SA*ITAG SAEMIS( BOT:TOP,L ) = DTS * SA_VDEMIS_DIFF( :,L,C,R,ITAG ) END DO END DO #endif DO L = 1, NLAYS DFSP( L ) = DFACP * DZHI( L ) DFSQ( L ) = DFACQ * DZHI( L ) EDDY( L ) = SEDDY( L,C,R ) * DZFI(L) END DO RP = DFACP * Met_Data%RDEPVHT( C,R ) RQ = DFACQ * Met_Data%RDEPVHT( C,R ) EMIS_OVER_VD = 0.0 DO V = 1, N_SPC_DEPV DDBF( V ) = DDEP( V,C,R ) DEPVCR( V ) = Tile_Data%Vd_Fac( Tile_Data%dep2vdiff( V ) ) * & Tile_Data%Grd_Vd( C,R,Tile_Data%dep2vdiff( V ) ) DD_FAC( V ) = DTDENS1 * DD_CONV( V ) * DEPVCR( V ) EFAC1 ( V ) = EXP( -DEPVCR( V ) * RP ) EFAC2 ( V ) = EXP( -DEPVCR( V ) * RQ ) If( Tile_Data%Bidi_Emis( C, R, Tile_Data%dep2vdiff( V ) ) .Gt. 0.0 ) Then If(DEPVCR( V ) .Eq. 0.0) Then Write(Logdev,*) 'Warning: A deposition velocity of 0 m/s was detected with a production term greater' Write(Logdev,*) 'than zero. Check for DEPV_FACs less than zero in the species name list for model species:' Write(Logdev,*) DV2DF_SPC( V ), 'depvcr', DEPVCR( V ), 'bidi emissions', & Tile_Data%Bidi_Emis( C, R, Tile_Data%dep2vdiff( V ) ) DEPVCR( V ) = tiny( 0.0 ) End If EMIS_OVER_VD( V ) = Tile_Data%Bidi_Emis( C, R, Tile_Data%dep2vdiff( V ) ) / DEPVCR( V ) End If IF ( ABFLUX ) THEN TMP_BD_EMIS( NH3_E ) = TOT_BD_EMIS( NH3_E,C,R ) END IF IF ( HGBIDI ) THEN TMP_BD_EMIS( HG_E ) = TOT_BD_EMIS( HG_E,C,R ) END IF IF ( SFC_HONO ) THEN TMP_BD_EMIS( HONO_E ) = TOT_BD_EMIS( HONO_E,C,R ) END IF END DO PLDV_HONO = Tile_Data%Bidi_Emis( C, R, Tile_Data%dep2vdiff( HONO_HIT ) ) #ifdef isam DO JSPCTAG = 1, N_SPCTAG SA_DDBF( JSPCTAG ) = SA_DDEP( C,R,JSPCTAG ) END DO #endif C These don`t change in the NLP sub-time step loop:--------------------- DO L = 1, NLAYS AA ( L ) = 0.0 BB1( L ) = 0.0 EE1( L ) = 0.0 CC ( L ) = 0.0 EE2( L ) = 0.0 BB2( L ) = 0.0 END DO IF ( Met_Data%CONVCT( C,R ) ) THEN L = 1 DELP = Met_Data%PBL( C,R ) - Met_Data%ZF( C,R,L ) BB1( L ) = 1.0 + DELP * DFSP( L ) * MBARKS( L ) LFAC1( L ) = DFSQ( L ) * DELP * MBARKS( L ) LFAC2( L ) = DFSQ( L ) * MDWN( L+1 ) * DZH( L+1 ) DO L = 2, LCBL AA ( L ) = -DFACP * MBARKS( L ) BB1( L ) = 1.0 + DFACP * MDWN( L ) EE1( L ) = -DFSP( L-1 ) * DZH( L ) * MDWN( L ) MFAC( L ) = DZH( L+1 ) * DZHI( L ) * MDWN( L+1 ) END DO END IF DO L = 1, NLAYS EE2( L ) = - DFSP( L ) * EDDY( L ) LFAC3( L ) = DFSQ( L ) * EDDY( L ) END DO BB2( 1 ) = 1.0 - EE2( 1 ) DO L = 2, NLAYS CC ( L ) = - DFSP( L ) * EDDY( L-1 ) BB2( L ) = 1.0 - CC( L ) - EE2( L ) LFAC4( L ) = DFSQ( L ) * EDDY( L-1 ) END DO C ---------------------------------------------------------------------- IF ( XMOSAIC ) THEN DDBFJ( :,: ) = DDEPJ( :,:,C,R ) DO L = 1, Tile_Data%n_lufrac DEPVJCR( L,: ) = Tile_Data%Vd_Fac( Tile_Data%dep2vdiff ) * & Tile_Data%Lu_Vd( C,R,Tile_Data%dep2vdiff,L ) DD_FACJ( L,: ) = DTDENS1 * DD_CONV( : ) * DEPVJCR( L,: ) END DO END IF C----------------------------------------------------------------------- DO 301 NL = 1, NLP ! loop over sub time DO V = 1, N_SPC_DEPV C --------- HET HONO RX ----------------- C Use special treatment for HNO3 C HNO3 produced via the heterogeneous reaction sticks on surfaces and C is accounted as depositional loss; calculate increased deposition loss IF ( V .EQ. HNO3_HIT ) THEN S = HNO3_MAP CONC( S,1 ) = EMIS_OVER_VD( V ) + ( CONC( S,1 ) - EMIS_OVER_VD( V ) ) * EFAC1( V ) DEPV_HNO3 = DEPVCR( V ) + PLDV_HONO / CONC( NO2_MAP,1 ) DD_FAC( V ) = DTDENS1 * DD_CONV( V ) * DEPV_HNO3 DDBF( V ) = DDBF( V ) + THETA * DD_FAC( V ) * CONC( S,1 ) C Use special treatment for NO2 C Loss of NO2 via the heterogeneous reaction is accounted for as an additional C depositional loss. Add the loss of NO2 via the heterogeneous reaction C to the regular deposition velocity (increased dep. vel.). This will C reduce the NO2 conc. in the atmosphere without affecting the depositional loss. ELSE IF ( V .EQ. NO2_HIT ) THEN S = NO2_MAP DEPV_NO2 = DEPVCR( V ) + 2.0 * PLDV_HONO / CONC( S,1 ) EFAC1 ( V ) = EXP( -DEPV_NO2 * RP ) EFAC2 ( V ) = EXP( -DEPV_NO2 * RQ ) EMIS_OVER_VD( V ) = Tile_Data%Bidi_Emis( C, R, Tile_Data%dep2vdiff( V ) ) / DEPV_NO2 CONC( S,1 ) = EMIS_OVER_VD( V ) + ( CONC( S,1 ) - EMIS_OVER_VD( V ) ) * EFAC1( V ) DDBF( V ) = DDBF( V ) + THETA * DD_FAC( V ) * CONC( S,1 ) C --------- END of HET HONO RX ---------- ELSE C Pass selected N species to the BDSNP Soil NO emissions scheme IF ( MGN_ONLN_DEP ) THEN IF(SPECLOG) then IF( V .eq. N_SPC_DEPV) THEN SPECLOG = .false. ! no need to do any species more than once WRITE( LOGDEV,*) 'BDSNP Species list complete', speclog END IF END IF IF ( (INDEX(TRIM( DV2DF_SPC( V ) ), 'NH3') .NE. 0) .OR. & (INDEX(TRIM( DV2DF_SPC( V ) ), 'NH4') .NE. 0) .OR. & (INDEX(TRIM( DV2DF_SPC( V ) ), 'HNO3').NE. 0) .OR. & (INDEX(TRIM( DV2DF_SPC( V ) ), 'NO3') .NE. 0) .OR. & (INDEX(TRIM( DV2DF_SPC( V ) ), 'NO2') .NE. 0) .OR. & (INDEX(TRIM( DV2DF_SPC( V ) ), 'PAN') .NE. 0)) THEN IF( SPECLOG ) THEN !write species each time it is used WRITE( LOGDEV,*) 'BDSNP Dry Species Used:', TRIM(DV2DF_SPC( V ) ), V, N_SPC_DEPV END IF IF ( ( DDBF(V)- DDEP( V,C,R) ) .LT. 0.0 ) THEN !negative error checking XMSG = 'Negative Deposition' ! WRITE( LOGDEV,*) 'BDSNP Negative Deposition vdiff, variable:', ! & TRIM( DV2DF_SPC( V )), ( DDBF(V)- DDEP( V,C,R) ), C, R ! CALL M3EXIT( PNAME, MDATE, MTIME, XMSG, XSTAT1 ) CALL GET_N_DEP (DV2DF_SPC( V ), 0/ & DTSEC, C, R ) else CALL GET_N_DEP (DV2DF_SPC( V ), ( DDBF(V)- DDEP( V,C,R) )/ & DTSEC, C, R ) END IF !end negative error checking END IF !end species check END IF !end BDSNP check S = DV2DF( V ) CONC( S,1 ) = EMIS_OVER_VD( V ) + ( CONC( S,1 ) - EMIS_OVER_VD( V ) ) * EFAC1( V ) DDBF( V ) = DDBF( V ) + THETA * DD_FAC( V ) * CONC( S,1 ) IF ( ABFLUX .AND. V .EQ. NH3_HIT ) THEN TMP_BD_EMIS( NH3_E ) = TMP_BD_EMIS( NH3_E ) + & THETA * Tile_Data%Bidi_Emis( C, R, Tile_Data%dep2vdiff( V ) ) * DD_CONV( V ) * DTDENS1 END IF IF ( HGBIDI .AND. V .EQ. HG_HIT ) THEN TMP_BD_EMIS( HG_E ) = TMP_BD_EMIS( HG_E ) + & THETA * Tile_Data%Bidi_Emis( C, R, Tile_Data%dep2vdiff( V ) ) * DD_CONV( V ) * DTDENS1 END IF IF ( SFC_HONO .AND. V .EQ. HONO_HIT ) THEN TMP_BD_EMIS( HONO_E ) = TMP_BD_EMIS( HONO_E ) + & THETA * Tile_Data%Bidi_Emis( C, R, Tile_Data%dep2vdiff( V ) ) * DD_CONV( V ) * DTDENS1 END IF END IF END DO IF ( XMOSAIC ) THEN DO V = 1, N_SPC_DEPV C --------------- HET HONO RX ----------------- IF ( V .EQ. HNO3_HIT ) THEN S = HNO3_MAP WHERE( Tile_Data%LUFRAC( c,r,: ) .GT. 0.0 ) DD_FACJ( :,V ) = DTDENS1 * DD_CONV( V ) * DEPVJCR( :,V ) + PLDV_HONO / CONC( NO2_MAP,1 ) DDBFJ( :,V ) = DDBFJ( :,V ) + THETA * DD_FACJ( :,V ) * CONC( S,1 ) END WHERE ELSE IF ( V .EQ. NO2_HIT ) THEN S = NO2_MAP WHERE( Tile_Data%LUFRAC( c,r,: ) .GT. 0.0 .AND. DEPVJCR( :,V ) .GT. 0.0 ) DDBFJ ( :,V ) = DDBFJ( :,V ) + THETA * DD_FACJ( :,V ) * CONC( S,1 ) END WHERE C --------------- END of HET HONO RX ---------- ELSE S = DV2DF( V ) WHERE( Tile_Data%LUFRAC( c,r,: ) .GT. 0.0 ) DDBFJ( :,V ) = DDBFJ( :,V ) & + THETA * DD_FACJ( :,V ) * CONC( S,1 ) END WHERE END IF END DO END IF ! MOSAIC DO L = 1, NLAYS DO V = 1, N_SPC_DIFF DD( V,L ) = 0.0 UU( V,L ) = 0.0 END DO END DO #ifdef isam DO JSPCTAG = 1, N_SPCTAG S = ISAM_DEPV( JSPCTAG ) IF ( S .GT. 0 ) THEN SACONC( JSPCTAG,1 ) = SACONC( JSPCTAG,1 ) * EFAC1( S ) & + SAFRAC( JSPCTAG ) * EMIS_OVER_VD( S ) * ( 1.0 - EFAC1( S ) ) SA_DDBF( JSPCTAG ) = SA_DDBF( JSPCTAG ) & + THETA * DD_FAC( S ) * SACONC( JSPCTAG,1 ) END IF END DO DO L = 1, NLAYS DO V = 1, N_SPCTAG SA_DD( V,L ) = 0.0 SA_UU( V,L ) = 0.0 END DO END DO #endif C Compute tendency of CBL concentrations - semi-implicit solution C Set MATRIX1 elements A (col 1), B (diag.), E (superdiag.) and D (RHS) IF ( Met_Data%CONVCT( C,R ) ) THEN L = 1 DO V = 1, N_SPC_DIFF DD( V,L ) = CONC( V,L ) & - LFAC1( L ) * CONC( V,L ) & + LFAC2( L ) * CONC( V,L+1 ) END DO #ifdef isam DO JSPCTAG = 1, N_SPCTAG SA_DD( JSPCTAG, L) = SACONC( JSPCTAG,L ) & - LFAC1( L ) * SACONC( JSPCTAG,L ) & + LFAC2( L ) * SACONC( JSPCTAG,L+1 ) ENDDO #endif DO L = 2, LCBL DO V = 1, N_SPC_DIFF DELC = MBARKS( L ) * CONC( V,1 ) & - MDWN( L ) * CONC( V,L ) & + MFAC( L ) * CONC( V,L+1 ) DD( V,L ) = CONC( V,L ) + DFACQ * DELC END DO #ifdef isam DO JSPCTAG = 1, N_SPCTAG DELC = MBARKS( L ) * SACONC( JSPCTAG,1 ) & - MDWN( L ) * SACONC( JSPCTAG,L ) & + MFAC( L ) * SACONC( JSPCTAG,L+1 ) SA_DD( JSPCTAG,L ) = SACONC( JSPCTAG,L ) + DFACQ * DELC END DO #endif END DO CALL MATRIX1 ( LCBL, AA, BB1, EE1, DD, UU ) #ifdef isam CALL SA_MATRIX1( LCBL, AA, BB1,EE1, SA_DD, SA_UU) #endif C update conc DO L = 1, LCBL DO V = 1, N_SPC_DIFF CONC( V,L ) = UU( V,L ) END DO #ifdef isam DO JSPCTAG = 1, N_SPCTAG SACONC ( JSPCTAG,L ) = SA_UU( JSPCTAG,L ) ENDDO #endif END DO C reinitialize for TRI solver DO L = 1, NLAYS DO V = 1, N_SPC_DIFF DD( V,L ) = 0.0 UU( V,L ) = 0.0 END DO #ifdef isam DO JSPCTAG = 1, N_SPCTAG SA_DD( JSPCTAG,L ) = 0.0 SA_UU( JSPCTAG,L ) = 0.0 ENDDO #endif END DO END IF L = 1 DO V = 1, N_SPC_DIFF DD( V,L ) = CONC( V,L ) & + LFAC3( L ) * ( CONC( V,L+1 ) - CONC( V,L ) ) & + EMIS( V,L ) END DO #ifdef isam DO JSPCTAG = 1, N_SPCTAG SA_DD( JSPCTAG,L ) = SACONC( JSPCTAG,L ) & + LFAC3( L ) * ( SACONC( JSPCTAG,L+1 ) - SACONC( JSPCTAG,L ) ) & + SAEMIS( JSPCTAG,L ) END DO #endif DO L = 2, NLAYS-1 DO V = 1, N_SPC_DIFF DD( V,L ) = CONC( V,L ) & + LFAC3( L ) * ( CONC( V,L+1 ) - CONC( V,L ) ) & - LFAC4( L ) * ( CONC( V,L ) - CONC( V,L-1 ) ) & + EMIS( V,L ) END DO #ifdef isam DO JSPCTAG = 1, N_SPCTAG SA_DD( JSPCTAG,L ) = SACONC( JSPCTAG,L ) & + LFAC3( L ) * ( SACONC( JSPCTAG,L+1 ) - SACONC( JSPCTAG,L ) ) & - LFAC4( L ) * ( SACONC( JSPCTAG,L ) - SACONC( JSPCTAG,L-1 ) ) & + SAEMIS( JSPCTAG,L ) END DO #endif END DO L = NLAYS DO V = 1, N_SPC_DIFF DD( V,L ) = CONC( V,L ) & - LFAC4( L ) * ( CONC( V,L ) - CONC( V,L-1 ) ) END DO #ifdef isam DO JSPCTAG = 1, N_SPCTAG SA_DD( JSPCTAG,L ) = SACONC( JSPCTAG,L ) & - LFAC4( L ) * ( SACONC( JSPCTAG,L ) - SACONC( JSPCTAG,L-1 ) ) END DO #endif CALL TRI ( CC, BB2, EE2, DD, UU ) #ifdef isam CALL SA_TRI ( CC, BB2, EE2, SA_DD, SA_UU ) #endif C Load into CGRID DO L = 1, NLAYS DO V = 1, N_SPC_DIFF CONC( V,L ) = UU( V,L ) END DO #ifdef isam DO JSPCTAG = 1, N_SPCTAG SACONC( JSPCTAG,L ) = SA_UU( JSPCTAG,L ) END DO #endif END DO DO V = 1, N_SPC_DEPV C --------- HET HONO RX ----------------- IF ( V .EQ. HNO3_HIT ) THEN S = HNO3_MAP CONC( S,1 ) = EMIS_OVER_VD( V ) + ( CONC( S,1 ) - EMIS_OVER_VD( V ) ) * EFAC2( V ) DDBF( V ) = DDBF( V ) + THBAR * DD_FAC( V ) * CONC( S,1 ) ELSE IF ( V .EQ. NO2_HIT ) THEN S = NO2_MAP CONC( S,1 ) = EMIS_OVER_VD( V ) + ( CONC( S,1 ) - EMIS_OVER_VD( V ) ) * EFAC2( V ) DDBF( V ) = DDBF( V ) + THBAR * DD_FAC( V ) * CONC( S,1 ) C --------- END of HET HONO RX ---------- ELSE S = DV2DF( V ) CONC( S,1 ) = EMIS_OVER_VD( V ) + ( CONC( S,1 ) - EMIS_OVER_VD( V ) ) * EFAC2( V ) DDBF( V ) = DDBF( V ) + THBAR * DD_FAC( V ) * CONC( S,1 ) IF ( ABFLUX .AND. V .EQ. NH3_HIT ) THEN TMP_BD_EMIS( NH3_E ) = TMP_BD_EMIS( NH3_E ) + & THBAR * Tile_Data%Bidi_Emis( C, R, Tile_Data%dep2vdiff( V ) ) * DD_CONV( V ) * DTDENS1 END IF IF ( HGBIDI .AND. V .EQ. HG_HIT ) THEN TMP_BD_EMIS( HG_E ) = TMP_BD_EMIS( HG_E ) + & THBAR * Tile_Data%Bidi_Emis( C, R, Tile_Data%dep2vdiff( V ) ) * DD_CONV( V ) * DTDENS1 END IF IF ( SFC_HONO .AND. V .EQ. HONO_HIT ) THEN TMP_BD_EMIS( HONO_E ) = TMP_BD_EMIS( HONO_E ) + & THBAR * Tile_Data%Bidi_Emis( C, R, Tile_Data%dep2vdiff( V ) ) * DD_CONV( V ) * DTDENS1 END IF END IF END DO IF ( XMOSAIC ) THEN DO V = 1, N_SPC_DEPV C --------- HET HONO RX ----------------- IF ( V .EQ. HNO3_HIT ) THEN S = HNO3_MAP WHERE( Tile_Data%LUFRAC( c,r,: ) .GT. 0.0 ) DD_FACJ( :,V ) = DTDENS1 * DD_CONV( V ) * DEPVJCR( :,V ) + PLDV_HONO / CONC( NO2_MAP,1 ) DDBFJ( :,V ) = DDBFJ( :,V ) + THBAR * DD_FACJ( :,V ) * CONC( S,1 ) END WHERE ELSE IF ( V .EQ. NO2_HIT ) THEN S = NO2_MAP WHERE( Tile_Data%LUFRAC( c,r,: ) .GT. 0.0 .AND. DEPVJCR( :,V ) .GT. 0.0 ) DDBFJ ( :,V ) = DDBFJ( :,V ) + THETA * DD_FACJ( :,V ) * CONC( S,1 ) END WHERE C --------- END of HET HONO RX ---------- ELSE S = DV2DF( V ) WHERE( Tile_Data%LUFRAC( c,r,: ) .GT. 0.0 ) DDBFJ( :,V ) = DDBFJ( :,V ) + THBAR * DD_FACJ( :,V ) * CONC( S,1 ) END WHERE END IF END DO END IF ! MOSAIC #ifdef isam C Update ISAM Dry Deposition DO JSPCTAG = 1, N_SPCTAG S = ISAM_DEPV( JSPCTAG ) IF ( S .GT. 0 ) THEN SACONC( JSPCTAG,1 ) = SACONC( JSPCTAG,1 ) * EFAC2( S ) & + SAFRAC( JSPCTAG ) * EMIS_OVER_VD( S ) * ( 1.0 - EFAC2( S ) ) SA_DDBF( JSPCTAG ) = SA_DDBF( JSPCTAG ) & + THBAR * DD_FAC( S ) * SACONC( JSPCTAG,1 ) END IF END DO #endif 301 CONTINUE ! end sub time loop DO L = 1, NLAYS DO V = 1, N_SPC_DIFF CNGRD( DIFF_MAP( V ),L,C,R ) = CONC( V,L ) END DO #ifdef isam DO JSPCTAG = 1, N_SPCTAG IF( TRANSPORT_SPC( JSPCTAG ) )THEN ISAM( C,R,L,S_SPCTAG( JSPCTAG ),T_SPCTAG( JSPCTAG ) ) = SACONC( JSPCTAG,L ) END IF END DO #endif END DO DO V = 1, N_SPC_DEPV DDEP( V,C,R ) = DDBF( V ) END DO IF ( ABFLUX ) THEN TOT_BD_EMIS( NH3_E,C,R ) = TMP_BD_EMIS( NH3_E ) END IF IF ( HGBIDI ) THEN TOT_BD_EMIS( HG_E,C,R ) = TMP_BD_EMIS( HG_E ) END IF IF ( SFC_HONO ) THEN TOT_BD_EMIS( HONO_E,C,R ) = TMP_BD_EMIS( HONO_E ) END IF IF ( XMOSAIC ) THEN DDEPJ( :,:,C,R ) = DDBFJ( :,: ) END IF #ifdef isam DO JSPCTAG = 1, N_SPCTAG SA_DDEP( C,R,JSPCTAG ) = SA_DDBF( JSPCTAG ) END DO #endif 344 CONTINUE ! end loop on col C 345 CONTINUE ! end loop on row R RETURN END ================================================ FILE: CCTM/src/vdiff/acm2_stage/vdiffproc.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE VDIFF ( CGRID, JDATE, JTIME, TSTEP ) C----------------------------------------------------------------------- C Asymmetric Convective Model v2 (ACM2) -- Pleim(2006) C Function: C calculates and writes dry deposition. C calculates vertical diffusion C Subroutines and Functions Called: C SEC2TIME, TIME2SEC, WRITE3, NEXTIME, C M3EXIT, EDDYX, TRI, MATRIX, PA_UPDATE_EMIS, PA_UPDATE_DDEP C Revision History: C Analogous to VDIFFIM (Eddy diffusion PBL scheme) C 31 Jan 05 J.Young: dyn alloc - establish both horizontal & vertical C domain specifications in one module (GRID_CONF) C 7 Jun 05 P.Bhave: added call to OPSSEMIS if MECHNAME='AE4'; C added TSTEP to RDEMIS_AE call vector C Aug 05 J. Pleim Update to v4.5 C C Jan 06 J. Pleim ACM2 implementation C Jul 06 J.Young: emis module C Nov 06 B.Hutzell, J.Young: depv module C Mar 08 G.Sarwar: added heterogeneous reaction for HONO. It affects HONO, NO2 and HNO3 C Apr 08 J.Young: optional inline beis and plume rise emissions C 21 Jun 10 J.Young: convert for Namelist redesign C 16 Feb 11 S.Roselle: replaced I/O API include files with UTILIO_DEFN C 10 May 11 J.Bash: updated for NH3 bidirectional exchange C 11 May 11 D.Wong: - incorporated twoway model implementation C 20 May 11 D.Schwede: modified to include mosaic C 15 Aug 11 D.Schwede and G. Sarwar: Modified HONO calculation so that deposition C velocity for NO2 that is output in DEPV file does not include the loss due C to the heterogeneous reaction. C This additional loss is now accounted for in vdiff.F C 14 Sep 11 J.Young: fix TSTEP bug in call to DEPV_INIT C 11 Apr 13 J.Young: fix double adjustment of conc for DDBF in heterogeneous HONO C if-then-else clauses; eliminate some white space C 13 May 13 J.Young: access met data from VDIFF_MET module C change CRANKP to THBAR, CRANKQ to THETA C 25 May 13 J.Young: re-do the acm/eddy algorithm for computational efficiency C 30 Apr 14 J.Young: switch THBAR and THETA C 2 May 14 J.Pleim, J.Young: replace the banded tridiagonal matrix solver for the C convective PBL, with the ACM1 matrix solver followed by the tridiagonal C matrix solver C 30 May 14 J.Young: split vdiff calculation out of vdiff proc. C 31 Jul 14 J.Young: incorporate gravitational settling for J-,K-mode aerosols C 07 Nov 14 J.Bash: Updated for the ASX_DATA_MOD shared data module. C 03 Jul 15 J.Young: put sedi stuff into a module C 13 Aug 15 J.Bash: updated for MP model C 15 Aug 15 D.Wong: - Replaced MYPE with IO_PE_INCLUSIVE for parallel I/O C implementation C - Added a block of code to allow non I/O processors C to open CTM_DRY_DEP_1, CTM_VSED_DIAG, CTM_VDIFF_DIAG, C CTM_DRY_DEP_MOS, and CTM_DRY_DEP_FST C 03 Mar 16 G.Sarwar: updated for halogen emissions C 16 Sep 16 J.Young: update for inline procan (IPR) C 10 Feb 19 D.Wong: removed all MY_N clauses C----------------------------------------------------------------------- USE CGRID_SPCS ! CGRID mechanism species USE GRID_CONF USE DESID_VARS, ONLY : VDEMIS_DIFF, DESID_LAYS USE DESID_MODULE, ONLY : DESID_INIT, DESID_DRIVER USE DEPV_DEFN USE ASX_DATA_MOD USE VDIFF_MAP USE UTILIO_DEFN USE BIDI_MOD USE HGSIM Use MOSAIC_MOD, Only: Tile_Data USE SEDIMENTATION USE VDIFF_DIAG USE PA_UPDATE USE PA_DEFN, ONLY : LIPR, BUDGET_DIAG #ifdef isam USE SA_DEFN, Only: ITAG, N_SPCTAG, VNAM_SPCTAG, SA_DDEP #endif IMPLICIT NONE INCLUDE SUBST_FILES_ID ! file name parameters CHARACTER( 120 ) :: XMSG = ' ' C Arguments: REAL, POINTER :: CGRID( :,:,:,: ) ! concentrations INTEGER JDATE ! current model date, coded YYYYDDD INTEGER JTIME ! current model time, coded HHMMSS INTEGER TSTEP( 3 ) ! time step vector (HHMMSS) ! TSTEP(1) = local output step ! TSTEP(2) = sciproc sync. step (chem) ! TSTEP(3) = twoway model time step w.r.t. wrf time ! step and wrf/cmaq call frequency C Parameters: C External Functions: None C Local Variables: CHARACTER( 16 ), SAVE :: PNAME = 'VDIFFPROC' CHARACTER( 80 ) :: VARDESC ! env variable description LOGICAL, SAVE :: FIRSTIME = .TRUE. LOGICAL, SAVE :: WRITE_FIRSTIME = .TRUE. INTEGER, SAVE :: WSTEP = 0 ! local write counter INTEGER STATUS ! ENV... status REAL FCMSF ! loop local RMSFX4( C,R ) REAL, ALLOCATABLE, SAVE :: CNGRD ( :,:,:,: ) ! cgrid aero in mixing ratio REAL, ALLOCATABLE, SAVE :: DDEP ( :,:,: ) ! ddep accumulator REAL, ALLOCATABLE, SAVE :: DDEP0 ( :,:,: ) ! ddep initial before call to vdiffacmx REAL, ALLOCATABLE, SAVE :: TOT_BD_EMIS( :,:,: ) ! bidi emissions accumlator REAL, ALLOCATABLE, SAVE :: DDEPJ ( :,:,:,: ) ! ddep for mosaic REAL :: WRDD( NCOLS,NROWS ) ! ddep write buffer REAL :: WRDDJ( NCOLS,NROWS,Tile_Data%N_LUFRAC+1 ) ! mosaic ddep write buffer REAL, ALLOCATABLE, SAVE :: DDEP_PA ( :,:,: ) ! ddep for process analysis REAL, ALLOCATABLE, SAVE :: EMIS_PA( :,:,:,: ) ! emis for process analysis INTEGER, SAVE :: N_SPC_CGRID ! no. of CGRID species INTEGER, SAVE :: NH3_HIT REAL :: EDDYV ( NCOLS,NROWS,NLAYS ) ! from EDYINTB REAL :: SEDDY ( NLAYS,NCOLS,NROWS ) ! flipped EDDYV REAL DTSEC ! model time step in seconds REAL, ALLOCATABLE, SAVE :: VSED_AE( :,:,:,: ) C Local Variables INTEGER ASTAT INTEGER C, R, L, S, V, I, J, OFF ! loop induction variables INTEGER MDATE, MTIME, MSTEP ! internal simulation date&time INTERFACE SUBROUTINE CONV_CGRID ( CGRID, JDATE, JTIME, CNGRD ) REAL, POINTER :: CGRID( :,:,:,: ) INTEGER, INTENT( IN ) :: JDATE, JTIME REAL, INTENT( INOUT ) :: CNGRD( :,:,:,: ) END SUBROUTINE CONV_CGRID SUBROUTINE REV_CGRID ( CNGRD, JDATE, JTIME, CGRID ) REAL, INTENT( INOUT ) :: CNGRD( :,:,:,: ) INTEGER, INTENT( IN ) :: JDATE, JTIME REAL, POINTER :: CGRID( :,:,:,: ) END SUBROUTINE REV_CGRID SUBROUTINE EDDYX ( EDDYV ) REAL, INTENT( OUT ) :: EDDYV( :,:,: ) END SUBROUTINE EDDYX SUBROUTINE VDIFFACMX( dtsec, seddy, ddep, TOT_BD_EMIS, ddepj, cngrd ) REAL, INTENT( IN ) :: dtsec REAL, INTENT( INOUT ) :: seddy( :,:,: ) REAL, INTENT( INOUT ) :: ddep ( :,:,: ) REAL, INTENT( INOUT ) :: TOT_BD_EMIS ( :,:,: ) REAL, INTENT( INOUT ), OPTIONAL :: ddepj ( :,:,:,: ) REAL, INTENT( INOUT ) :: cngrd( :,:,:,: ) END SUBROUTINE VDIFFACMX #ifdef isam SUBROUTINE SA_OPWDDEP ( SADEPFILE, JDATE, JTIME, TSTEP ) IMPLICIT NONE CHARACTER( 16 ) SADEPFILE ! Dry or wet dep file for tags INTEGER JDATE ! current model date, coded YYYYDDD INTEGER JTIME ! current model time, coded HHMMSS INTEGER TSTEP ! output time step END SUBROUTINE SA_OPWDDEP #endif END INTERFACE C----------------------------------------------------------------------- IF ( FIRSTIME ) THEN FIRSTIME = .FALSE. CALL LOG_HEADING( LOGDEV, "Initialize Surface Exchange Module" ) IF ( .NOT. DEPV_INIT ( JDATE, JTIME, TSTEP, CGRID ) ) THEN XMSG = 'Failure initializing deposition velocities module' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF C create global maps IF ( .NOT. VDIFF_MAP_INIT( ) ) THEN XMSG = 'Failure initializing index mapping module' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF C Initialize the met data CALL INIT_MET( JDATE, JTIME ) IF ( HGBIDI ) THEN ! Initialize HGSIM module CALL INIT_HGSIM(JDATE, JTIME) END IF C Set output file characteristics based on COORD.EXT and open the dry dep file IF ( IO_PE_INCLUSIVE ) THEN CALL OPDDEP ( JDATE, JTIME, TSTEP( 1 ), N_SPC_DDEP ) #ifdef isam CALL SA_OPWDDEP ( SA_DD_1, JDATE, JTIME,TSTEP( 1 ) ) #endif IF ( ABFLUX .OR. HGBIDI ) CALL OPASX_MEDIA( JDATE, JTIME, TSTEP( 1 ) ) END IF C Open vdiff diagnostics file (ioapi header from cgrd) IF ( VDIFFDIAG ) THEN IF ( .NOT. VDIFF_DIAG_INIT ( JDATE, JTIME, TSTEP( 1 ), GRAV_SETL ) ) THEN XMSG = 'Failure initializing vdiff diagnostics module' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF END IF C Allocate and initialize dry deposition array ALLOCATE ( DDEP( N_SPC_DEPV,NCOLS,NROWS ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN XMSG = 'Failure allocating DDEP' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF DDEP = 0.0 ! array assignment ALLOCATE ( DDEP0( N_SPC_DEPV,NCOLS,NROWS ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN XMSG = 'Failure allocating DDEP0' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF DDEP0 = 0.0 ! array assignment ALLOCATE ( TOT_BD_EMIS( N_BD_EMIS,NCOLS,NROWS ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN XMSG = 'Failure allocating TOT_BD_EMIS' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF TOT_BD_EMIS = 0.0 ! array assignment CALL LOG_HEADING( LOGDEV, "Initialize Emissions Module" ) IF ( .NOT. DESID_INIT ( JDATE, JTIME, TSTEP( 1 ) ) ) THEN XMSG = 'Failure initializing emissions module' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF #ifdef isam ALLOCATE ( SA_DDEP( NCOLS,NROWS,N_SPCTAG ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN XMSG = 'Failure allocating SA_DDEP' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF SA_DDEP = 0.0 #endif C Set up for process analysis CALL LOG_HEADING( LOGDEV, "Initialize Surface Exchange for Process Analysis" ) IF ( BUDGET_DIAG .OR. LIPR ) THEN ALLOCATE ( EMIS_PA( NCOLS,NROWS,NLAYS,N_CGRID_SPC ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN XMSG = 'EMIS_PA memory allocation failed' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF ALLOCATE ( DDEP_PA( NCOLS,NROWS,N_CGRID_SPC ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN XMSG = 'DDEP_PA memory allocation failed' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF END IF C Set up for grav. settling IF ( GRAV_SETL ) THEN CALL LOG_HEADING( LOGDEV, "Set Up Gravitational Settling" ) ALLOCATE ( VSED_AE( N_AE_SPC,NLAYS,NCOLS,NROWS ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN XMSG = 'Failure allocating VSED_AE' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF END IF N_SPC_CGRID = SIZE ( CGRID,4 ) ALLOCATE ( CNGRD( N_SPC_CGRID,NLAYS,NCOLS,NROWS ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN XMSG = 'Failure allocating CNGRD' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF CNGRD = 0.0 ! array assignment !---------------------------------------------------------------------------------------- ! Move to ASX driver to get stage data set up mapping in init_stage !---------------------------------------------------------------------------------------- IF ( MOSAIC ) THEN ALLOCATE ( DDEPJ( Tile_Data%N_LUFRAC,N_SPC_DEPV,NCOLS,NROWS ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN XMSG = 'Failure allocating DDEPJ' CALL M3EXIT( PNAME, MDATE, MTIME, XMSG, XSTAT1 ) END IF DDEPJ = 0.0 ! array assignment IF ( IO_PE_INCLUSIVE ) & CALL OPDDEP_MOS ( JDATE, JTIME, TSTEP( 1 ), N_SPC_DDEP ) END IF ! if Mosaic !-------------------------------------------------------------------------------------------------- DO V = 1, N_SPC_DEPV IF ( DV2DF_SPC( V ) .EQ. 'NH3' ) THEN NH3_HIT = V END IF END DO END IF ! if Firstime MDATE = JDATE MTIME = JTIME MSTEP = TIME2SEC( TSTEP( 2 ) ) DTSEC = FLOAT( MSTEP ) CALL NEXTIME ( MDATE, MTIME, SEC2TIME( MSTEP / 2 ) ) C Convert non-molar mixing ratio species and re-order CGRID CALL CONV_CGRID ( CGRID, MDATE, MTIME, CNGRD ) C read & interpolate met data CALL GET_MET ( MDATE, MTIME, MSTEP ) C read & interpolate deposition velocities CALL GET_DEPV ( MDATE, MTIME, TSTEP, CGRID ) IF ( GRAV_SETL ) THEN C Get gravitational settling velocity for the vsed aero species: C AERO_SEDV assumes that every aero species is dry deposited and is diffused (trns) C Calculate the changes in the layer J-,K-mode aerosol concentrations CALL SEDI( MDATE, MTIME, DTSEC, VSED_AE, CGRID, CNGRD ) END IF C read & interpolate emissions data => VDEMIS_DIFF from EMIS_DEFN module CALL DESID_DRIVER ( MDATE, MTIME, TSTEP, CGRID ) IF ( BUDGET_DIAG .OR. LIPR ) THEN EMIS_PA = 0.0 DO S = 1, N_SPC_DIFF DO L = 1, DESID_LAYS EMIS_PA( :,:,L,DIFF_MAP(S) ) = VDEMIS_DIFF( S,L,:,: ) END DO END DO CALL PA_UPDATE_EMIS ( EMIS_PA, JDATE, JTIME, TSTEP ) END IF CALL EDDYX ( EDDYV ) C EDDYV returned = Kz, where Kz is in m**2/sec DO L = 1, NLAYS SEDDY( L,:,: ) = EDDYV( :,:,L ) END DO IF ( WSTEP .EQ. 0 ) THEN DDEP = 0.0 ! array assignment TOT_BD_EMIS = 0.0 ! array assignment IF ( MOSAIC ) THEN DDEPJ = 0.0 ! array assignment END IF END IF C Store Deposition Change in Budget and Process Analysis Arrays IF ( BUDGET_DIAG .OR. LIPR ) DDEP0 = DDEP C Calculate the change in concentration and dry dep from vertical diffusion and vsed C Note: cngrd is the argument keyword (from the INTERFACE); CNGRD is the actual argument IF ( .NOT. MOSAIC ) THEN CALL VDIFFACMX( DTSEC, SEDDY, DDEP, TOT_BD_EMIS, & cngrd = CNGRD ) ELSE CALL VDIFFACMX( DTSEC, SEDDY, DDEP, TOT_BD_EMIS, & ddepj = DDEPJ, cngrd = CNGRD ) END IF IF ( VDIFFDIAG ) THEN NTICS = NTICS + 1 NLPCR_SUM = NLPCR_SUM + NLPCR_MEAN ! array assignment DO R = 1, NROWS DO C = 1, NCOLS NLPCR_MAX( C,R ) = MAX( NLPCR_MEAN( C,R ), NLPCR_MAX( C,R ) ) NLPCR_MIN( C,R ) = MIN( NLPCR_MEAN( C,R ), NLPCR_MIN( C,R ) ) END DO END DO IF ( GRAV_SETL ) THEN DTCCR_SUM = DTCCR_SUM + DTCCR_MEAN ! array assignment DO R = 1, NROWS DO C = 1, NCOLS DTCCR_MAX( C,R ) = MAX( DTCCR_MEAN( C,R ), DTCCR_MAX( C,R ) ) DTCCR_MIN( C,R ) = MIN( DTCCR_MEAN( C,R ), DTCCR_MIN( C,R ) ) END DO END DO END IF END IF C Store Deposition Change in Budget and Process Analysis Arrays IF ( BUDGET_DIAG .OR. LIPR ) THEN DDEP_PA = 0.0 DO V = 1, N_SPC_DEPV DO R = 1, NROWS DO C = 1, NCOLS DDEP_PA( C,R,MAP_DEPVtoCGRID(V)) = DDEP( V,C,R ) - DDEP0( V,C,R ) END DO END DO END DO CALL PA_UPDATE_DDEP ( DDEP_PA, JDATE, JTIME, TSTEP ) END IF C Revert non-molar mixing ratio species and re-order CGRID CALL REV_CGRID ( CNGRD, MDATE, MTIME, CGRID ) C If last call this hour: write accumulated depositions: WSTEP = WSTEP + TIME2SEC( TSTEP( 2 ) ) IF ( WSTEP .GE. TIME2SEC( TSTEP( 1 ) ) ) THEN MDATE = JDATE MTIME = JTIME CALL NEXTIME( MDATE, MTIME, TSTEP( 2 ) ) WSTEP = 0 #ifdef parallel_io IF ( WRITE_FIRSTIME ) THEN WRITE_FIRSTIME = .FALSE. IF ( .NOT. IO_PE_INCLUSIVE ) THEN IF ( .NOT. OPEN3( CTM_DRY_DEP_1, FSREAD3, PNAME ) ) THEN XMSG = 'Could not open ' // TRIM(CTM_DRY_DEP_1) CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF IF ( MOSAIC ) THEN IF ( .NOT. OPEN3( CTM_DRY_DEP_MOS, FSREAD3, PNAME ) ) THEN XMSG = 'Could not open ' // TRIM(CTM_DRY_DEP_MOS) CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF END IF END IF ! .NOT. IO_PE_INCLUSIVE END IF #endif DO V = 1, N_SPC_DDEP S = DD2DV( V ) DO R = 1, NROWS DO C = 1, NCOLS WRDD( C,R ) = DDEP( S,C,R ) END DO END DO IF ( .NOT. WRITE3( CTM_DRY_DEP_1, DDEP_SPC( V ), & MDATE, MTIME, WRDD ) ) THEN XMSG = 'Could not write ' // CTM_DRY_DEP_1 // ' file' CALL M3EXIT( PNAME, MDATE, MTIME, XMSG, XSTAT1 ) END IF END DO ! STAGE Diagnostic output IF ( ABFLUX ) THEN IF ( .NOT. WRITE3( CTM_DRY_DEP_1, BD_EMIS_SPC( NH3_E ), & MDATE, MTIME, TOT_BD_EMIS( NH3_E,:,: ) ) ) THEN XMSG = 'Could not write ' // CTM_DRY_DEP_1 // ' file' CALL M3EXIT( PNAME, MDATE, MTIME, XMSG, XSTAT1 ) END IF WRDD( :,: ) = DDEP(NH3_HIT,:,:) - TOT_BD_EMIS( NH3_E,:,: ) IF ( .NOT. WRITE3( CTM_DRY_DEP_1, 'NH3_Flux', & MDATE, MTIME, WRDD ) ) THEN XMSG = 'Could not write ' // CTM_DRY_DEP_1 // ' file' CALL M3EXIT( PNAME, MDATE, MTIME, XMSG, XSTAT1 ) END IF ENDIF IF ( HGBIDI ) THEN IF ( .NOT. WRITE3( CTM_DRY_DEP_1, BD_EMIS_SPC( HG_E ), & MDATE, MTIME, TOT_BD_EMIS( HG_E,:,: ) ) ) THEN XMSG = 'Could not write ' // CTM_DRY_DEP_1 // ' file' CALL M3EXIT( PNAME, MDATE, MTIME, XMSG, XSTAT1 ) END IF ENDIF IF ( SFC_HONO ) THEN IF ( .NOT. WRITE3( CTM_DRY_DEP_1, BD_EMIS_SPC( HONO_E ), & MDATE, MTIME, TOT_BD_EMIS( HONO_E,:,: ) ) ) THEN XMSG = 'Could not write ' // CTM_DRY_DEP_1 // ' file' CALL M3EXIT( PNAME, MDATE, MTIME, XMSG, XSTAT1 ) END IF ENDIF ! End of STAGE Diagnostic output WRITE( LOGDEV, '( /5X, 3( A, :, 1X ), I8, ":", I6.6 )' ) & 'Timestep written to', CTM_DRY_DEP_1, & 'for date and time', MDATE, MTIME C Write vdiff diagnostics IF ( VDIFFDIAG ) THEN IF ( GRAV_SETL ) THEN ! Write vsed diagnostics DO V = 1, N_VSED S = VSED_MAP( V ) DO L = 1, NLAYS DO R = 1, NROWS DO C = 1, NCOLS VSED_BUF( C,R,L,V ) = VSED_AE( S,L,C,R ) END DO END DO END DO IF ( .NOT. WRITE3( CTM_VSED_DIAG, VSED_NAME( V ), & MDATE, MTIME, VSED_BUF( :,:,:,V ) ) ) THEN XMSG = 'Could not write ' // TRIM( VSED_NAME( V ) ) & // ' to ' // CTM_VSED_DIAG CALL M3EXIT( PNAME, MDATE, MTIME, XMSG, XSTAT1 ) END IF END DO WRITE( LOGDEV, '( /5X, 3( A, :, 1X ), I8, ":", I6.6 )' ) & 'Timestep written to', CTM_VSED_DIAG, & 'for date and time', MDATE, MTIME END IF ! GRAV_SETL C Write other diagnostics NLPCR_MEAN = NLPCR_SUM / FLOAT( NTICS ) IF ( .NOT. WRITE3( CTM_VDIFF_DIAG, 'NLP_MEAN', & MDATE, MTIME, NLPCR_MEAN ) ) THEN XMSG = 'Could not write ' // 'NLP_MEAN to ' // CTM_VDIFF_DIAG CALL M3EXIT( PNAME, MDATE, MTIME, XMSG, XSTAT1 ) END IF IF ( .NOT. WRITE3( CTM_VDIFF_DIAG, 'NLP_MAX', & MDATE, MTIME, NLPCR_MAX ) ) THEN XMSG = 'Could not write ' // 'NLP_MAX to ' // CTM_VDIFF_DIAG CALL M3EXIT( PNAME, MDATE, MTIME, XMSG, XSTAT1 ) END IF IF ( .NOT. WRITE3( CTM_VDIFF_DIAG, 'NLP_MIN', & MDATE, MTIME, NLPCR_MIN ) ) THEN XMSG = 'Could not write ' // 'NLP_MIN to ' // CTM_VDIFF_DIAG CALL M3EXIT( PNAME, MDATE, MTIME, XMSG, XSTAT1 ) END IF NLPCR_MAX = 0.0 ! array assignment NLPCR_MIN = 9.9E30 ! array assignment NLPCR_SUM = 0.0 ! array assignment IF ( GRAV_SETL ) THEN ! Write vsed diagnostics DTCCR_MEAN = DTCCR_SUM / FLOAT( NTICS ) IF ( .NOT. WRITE3( CTM_VDIFF_DIAG, 'SEDI_DTC_MEAN', & MDATE, MTIME, DTCCR_MEAN ) ) THEN XMSG = 'Could not write ' // 'SEDI_DTC_MEAN to ' // CTM_VDIFF_DIAG CALL M3EXIT( PNAME, MDATE, MTIME, XMSG, XSTAT1 ) END IF IF ( .NOT. WRITE3( CTM_VDIFF_DIAG, 'SEDI_DTC_MAX', & MDATE, MTIME, DTCCR_MAX ) ) THEN XMSG = 'Could not write ' // 'SEDI_DTC_MAX to ' // CTM_VDIFF_DIAG CALL M3EXIT( PNAME, MDATE, MTIME, XMSG, XSTAT1 ) END IF IF ( .NOT. WRITE3( CTM_VDIFF_DIAG, 'SEDI_DTC_MIN', & MDATE, MTIME, DTCCR_MIN ) ) THEN XMSG = 'Could not write ' // 'SEDI_DTC_MIN to ' // CTM_VDIFF_DIAG CALL M3EXIT( PNAME, MDATE, MTIME, XMSG, XSTAT1 ) END IF DTCCR_MAX = 0.0 ! array assignment DTCCR_MIN = 9.9E30 ! array assignment DTCCR_SUM = 0.0 ! array assignment END IF CNVCT = 0.0 ! array assignment DO R = 1, NROWS DO C = 1, NCOLS IF ( Met_Data%CONVCT( C,R ) ) CNVCT( C,R ) = 1.0 END DO END DO IF ( .NOT. WRITE3( CTM_VDIFF_DIAG, 'CONVCT', & MDATE, MTIME, CNVCT ) ) THEN XMSG = 'Could not write ' // 'convct to ' // CTM_VDIFF_DIAG CALL M3EXIT( PNAME, MDATE, MTIME, XMSG, XSTAT1 ) END IF IF ( .NOT. WRITE3( CTM_VDIFF_DIAG, 'LPBL', & MDATE, MTIME, REAL( Met_Data%LPBL ) ) ) THEN XMSG = 'Could not write ' // 'lpbl to ' // CTM_VDIFF_DIAG CALL M3EXIT( PNAME, MDATE, MTIME, XMSG, XSTAT1 ) END IF WRITE( LOGDEV, '( /5X, 3( A, :, 1X ), I8, ":", I6.6, I6 )' ) & 'Timestep written to', CTM_VDIFF_DIAG, & 'for date and time (and ntics)', MDATE, MTIME, NTICS NTICS = 0 END IF IF ( MOSAIC ) THEN DO V = 1, N_SPC_DDEP S = DD2DV( V ) WRDD = 0.0 ! reuse array since it has already been written for hour DO R = 1, NROWS DO C = 1, NCOLS DO J = 1, Tile_Data%N_LUFRAC WRDD( C,R ) = WRDD( C,R ) + DDEPJ( J,S,C,R ) * Tile_Data%LUFRAC( C,R,J ) WRDDJ( C,R,J ) = DDEPJ( J,S,C,R ) END DO WRDDJ( C,R,Tile_Data%N_LUFRAC+1 ) = WRDD( C,R ) ! last array element is total across all land use categories END DO END DO IF ( .NOT. WRITE3( CTM_DRY_DEP_MOS, DDEP_SPC( V ), & MDATE, MTIME, WRDDJ ) ) THEN XMSG = 'Could not write ' // CTM_DRY_DEP_MOS // ' file' CALL M3EXIT( PNAME, MDATE, MTIME, XMSG, XSTAT1 ) END IF END DO WRITE( LOGDEV, '( /5X, 3( A, :, 1X ), I8, ":", I6.6 )' ) & 'Timestep written to', CTM_DRY_DEP_MOS, & 'for date and time', MDATE, MTIME END IF ! MOSAIC IF ( ABFLUX .OR. HGBIDI ) THEN CALL WRASX_MEDIA( MDATE, MTIME ) END IF C re-set dry deposition array to zero DDEP = 0.0 TOT_BD_EMIS = 0.0 IF ( MOSAIC ) THEN DDEPJ = 0.0 ! array assignment END IF #ifdef isam WRDD = 0.0 DO ITAG = 1, N_SPCTAG DO R = 1, NROWS DO C = 1, NCOLS WRDD( C,R ) = SA_DDEP( C,R,ITAG ) END DO END DO IF ( .NOT. WRITE3( SA_DD_1, VNAM_SPCTAG( ITAG ), & MDATE, MTIME, WRDD ) ) THEN XMSG = 'Could not write ' // SA_DD_1 // ' file' CALL M3EXIT( PNAME, MDATE, MTIME, XMSG, XSTAT1 ) END IF END DO SA_DDEP = 0.0 #endif END IF RETURN END ================================================ FILE: DOCS/CMAQ-Bugfix-Branch.md ================================================ ## CMAQ Version X+ Overview New CMAQ versions are released on the 'main' branch. After a CMAQ release an additional bugfix or 'X+' branch is created. The X+ branch is a continually evolving branch and is intended for users who wish to adopt the most recent bugfixes or minor updates that improve model stability, efficiency, etc. The X+ code has not been thoroughly evaluated or characterized so users must assume the risk of any unforeseen and undocumented impacts of code changes that have been incorporated since the most recent documented public release. The thoroughly vetted version of these bugfixes and updates are then included in the next public release of CMAQ. For example, after CMAQv5.4 was released, a 5.4+ branch was added. All of the tagged updates in the 5.4+ branch were then released with CMAQv5.5. Below is the record of tagged bugfix versions for each CMAQ release. ### Record of changes to CMAQv5.5.0.3 To clone code with all of the CMAQv5.5 bug fixes issue the following command from within a working directory on your server: ``` git clone -b CMAQv5.5.0.3_11Jul2025 https://github.com/USEPA/CMAQ.git CMAQ_REPO ``` *Note that DDM-3D is not compatible with the STAGE deposition model in CMAQv5.5.* Note, each tagged version of CMAQv5.5.0.3 contains all updates from previous versions. | Tag | PR Number | PR Name | Merge Date | Brief Description | | -------------- | ------------------ | ------------------------ | ---------------- | -----------------------| | [CMAQv5.5.0.3_11Jul2025](https://github.com/USEPA/CMAQ/releases/tag/CMAQv5.5.0.3_11Jul2025)|[#253](https://github.com/USEPA/CMAQ/pull/253)|Diagnostic NH3 emissions from Agriculture and Biogenic sources | 2025-07-11 | Adds new diagnostic emissions when using the STAGE deposition option and bidirectional NH3 exchange to support 2023 and later NEI development.| | |[#252](https://github.com/USEPA/CMAQ/pull/252)|enable parallel I/O for ELMO, AELMO, and lightning diagnostic files | 2025-05-28 | Bugfix to avoid a model crash when using a parallel file system. This resolves an [issue](https://forum.cmascenter.org/t/unable-to-write-to-aelmo-even-though-new-aelmo-file-successfully-created/5762/20) raised on the CMAS User Forum.| | |[#249](https://github.com/USEPA/CMAQ/pull/249)|Increase string size for DDM-3D control file | 2025-05-14 | Updates allows for longer strings of emissions stream names and region names for DDM-3D simulations.| | [CMAQv5.5.0.2_13May2025](https://github.com/USEPA/CMAQ/releases/tag/CMAQv5.5.0.2_13May2025) |[#246](https://github.com/USEPA/CMAQ/pull/246)|5.5 Tutorial Updates from CMAS | 2025-04-29 | Improvements to the WRF-CMAQ Tutorial and supporting documentation for preparing your compute environment prior to running CMAQ.| | |[#245](https://github.com/USEPA/CMAQ/pull/245)|Fix bugs in shp2cmaq | 2025-04-29 | Bugfix to shp2cmaq tool to avoid errors when CMAQ Emission Control reads the time information from the CMAQ-ready grid mask file.| | |[#242](https://github.com/USEPA/CMAQ/pull/242)|Updated Post-Processing support files and code | 2025-04-29 | Bug fixes and minor enhancements.| | |[#241](https://github.com/USEPA/CMAQ/pull/241)|Adds pcVOC and NOy species to ISAM species lists | 2025-04-29 | This change supports comprehensive accounting of ISAM source attribution of PM, ozone, and other pollutants.| | |[#240](https://github.com/USEPA/CMAQ/pull/240)|Update conversion factor for area-based denominator | 2025-04-29 | Bugfix will affect predictions for any species that includes emissions normalized to a specific area that is not in units of meters.| | |[#239](https://github.com/USEPA/CMAQ/pull/239)| DDM3D Correction to ebi solvers | 2025-05-13 | DDM3D sensitivity calculations were updated for all ebi solvers to resolve some instabilities.| | |[#238](https://github.com/USEPA/CMAQ/pull/238)|Corrections to ISAM aerosol and cloud processing | 2025-04-29 | Resolve some spurious unreasonable results reported by CMAQ-ISAM users.| |[CMAQv5.5.0.1_19Mar2025](https://github.com/USEPA/CMAQ/releases/tag/CMAQv5.5.0.1_19Mar2025) |[#231](https://github.com/USEPA/CMAQ/pull/231)|CRACMM2 fixes for ISAM and post processing | 2025-03-19 | Small changes in post-processed concentrations due to missing species. Resolves issue [#221](https://github.com/USEPA/CMAQ/issues/221). | | |[#226](https://github.com/USEPA/CMAQ/pull/226)|Fix bug preventing CMAQ from running using SAPRC mechanisms | 2024-12-06 | The fix is to specify that CLNO2 does undergo dry deposition to avoid a model crash when using any of the SAPRC07 mechanisms.| | |[#222](https://github.com/USEPA/CMAQ/pull/222)|Corrected NLCD to BELD3 mapping for shrub/scrub and dwarf scrub| 2024-12-06 | Corrects an error in NLCD40 land use mapping for inline windblown dust calculations. Addresses issues [#220](https://github.com/USEPA/CMAQ/issues/220).| ### Record of changes to CMAQv5.4+ To clone code with all of the CMAQv5.4 bug fixes issue the following command from within a working directory on your server: ``` git clone -b CMAQv5.4.0.5_5Sept2024 https://github.com/USEPA/CMAQ.git CMAQ_5.4.0.5 ``` Note, each tagged version of CMAQv5.4+ contains all updates from previous versions. | Tag | PR Number | PR Name | Merge Date | Brief Description | | -------------- | ------------------ | ------------------------ | ---------------- | -----------------------| | [CMAQv5.4.0.5_5Sept2024](https://github.com/USEPA/CMAQ/releases/tag/CMAQv5.4.0.5_5Sept2024)|[#218](https://github.com/USEPA/CMAQ/pull/218)|Minor fixes to ELMO output algorithms| 2024-09-05 | This fixes several coding errors in the ELMO algorithm used to calculates post-processed variables online like total PM mass and mass of PM species in discrete size ranges. Addresses issues [#210](https://github.com/USEPA/CMAQ/issues/210) and [#212](https://github.com/USEPA/CMAQ/issues/212).| | [CMAQv5.4.0.4_9April2024](https://github.com/USEPA/CMAQ/releases/tag/CMAQv5.4.0.4_9April2024)|[#215](https://github.com/USEPA/CMAQ/pull/215)|fix bug in calculation of PMF_OC | 2024-04-09 | This fixes a bug in the calculation of the ELMO parameter PMF_OC, which inadvertently subtracts off non-carbonaceous mass that should instead be skipped. Addresses issue [#213](https://github.com/USEPA/CMAQ/issues/213).| | |[#201](https://github.com/USEPA/CMAQ/pull/201) | Update config_cmaq.csh | 2023-07-06 | _`Community Contribution`_ Fixes a typo in the config_cmaq.csh to address issue [#199](https://github.com/USEPA/CMAQ/issues/199).| | |[#198](https://github.com/USEPA/CMAQ/pull/198) | Fix functionality of RBSTATS when using ROS3 | 2023-07-06 | _`Community Contribution`_ This fixes a bug in CCTM/src/gas/ros3/rbdriver.F that causes the model not to compile when using the conditional rbstats option.| |[CMAQv5.4.0.3_9June2023](https://github.com/USEPA/CMAQ/releases/tag/CMAQv5.4.0.3_9June2023)||||| | |[#194](https://github.com/USEPA/CMAQ/pull/194) | DDM3D fix May2023 | 2023-06-09 | This fixes bugs impacting 2nd order DDM sensitivities and dry deposition sensitivity output.| |[CMAQv5.4.0.2_4May2023](https://github.com/USEPA/CMAQ/releases/tag/CMAQv5.4.0.2_4May2023)||||| | |[#189](https://github.com/USEPA/CMAQ/pull/189) | WRF-CMAQ Bugfix for UWIND and VWIND at Grid Cell Centers (mass points) | 2023-05-04 | This fixes a bug that impacts all processes that use the u and v wind components at mass points in the WRF-CMAQ coupled model.| | |[#186](https://github.com/USEPA/CMAQ/pull/186) | Isam update 21april2023 | 2023-04-28 | This fixes several issues with CMAQ-ISAM as described in the PR documentation.| |[CMAQv5.4.0.1_7Dec2022](https://github.com/USEPA/CMAQ/releases/tag/CMAQv5.4.0.1_7Dec2022)||||| | |[#183](https://github.com/USEPA/CMAQ/pull/183) | Enable DDM-3D and ISAM calculations and output for Potential Vorticity option| 2022-12-07 | Inadvertently, DDM-3D and ISAM code were not functioning with the CMAQ 5.4 release when the potential vorticity option was enabled during compilation. This pull request corrects both models.| | |[#182](https://github.com/USEPA/CMAQ/pull/182) | Add precision to logfile process timing| 2022-12-02 | At high computational efficiency, the default precision provided for the timing metrics in the logfile was yielding 0.0. This PR adds 3 decimal places of precision to the timing output.| | | [#181](https://github.com/USEPA/CMAQ/pull/181)|Resolve time-stepping issue in ELMO when used within WRF-CMAQ and MPAS-CMAQ | 2022-12-02 | ELMO gives erroneous results in WRF-CMAQ and when using met inputs not aligned with hour time steps. This PR resolves the problem by adjusting the algorithm for identifying when the initial time step is hit for the simulation and synchronization cycles.| | | [#180](https://github.com/USEPA/CMAQ/pull/180) | BDSNP fix | 2022-12-02 | Online nitrogen deposition (NDEP) is erroneously enabled when using BDSNP in the released version of CMAQ 5.4. This PR corrects an IF statement that was meant to disable online nitrogen deposition. | ### Record of changes to CMAQv5.3.3+ To clone code with all of the CMAQv5.3.3 bug fixes issue the following command from within a working directory on your server: ``` git clone -b CMAQv5.3.3.3_10May2022 https://github.com/USEPA/CMAQ.git CMAQv5.3.3.3_10May2022 ``` Note, each tagged version of CMAQv5.3.3+ contains all updates from previous versions. | Tag | PR Number | PR Name | Merge Date | Brief Description | | -------------- | ------------------ | ------------------------ | ---------------- | -----------------------| | [CMAQv5.3.3.3_10May2022](https://github.com/USEPA/CMAQ/releases/tag/CMAQv5.3.3.3_10May2022) |[#168](https://github.com/USEPA/CMAQ/pull/168) | WRF-CMAQv533+| 2022-05-10 | Script and documentation update to ensure streamlined building of the WRF-CMAQ model intended for users who would like to run CMAQv5.3.3+ with WRFv4.4+.| | [CMAQv5.3.3.2_7May2022](https://github.com/USEPA/CMAQ/releases/tag/CMAQv5.3.3.2_7May2022) | [#171](https://github.com/USEPA/CMAQ/pull/171)|Remove files from chemistry utilities causing problems on MAC and WINDOWS systems | 2022-05-07 | Both the create_ebi and inline_phot_prerproc utilities have files in their source code directories that only differ in letter case in filenames. The property does not cause problems on Linux systems but can cause problems on Window and Macintosh systems. The pull request removes the unneeded files causing the problems.| |[CMAQv5.3.3.1_11Feb2022](https://github.com/USEPA/CMAQ/releases/tag/CMAQv5.3.3.1_11Feb2022) | | | | | | | [#163](https://github.com/USEPA/CMAQ/pull/163) | Resolve Bug for reading Emission Stream Families | 2022-02-09 | Bug fix to avoid errors when processing matches for emission stream families related to capitalization. | | | [#164](https://github.com/USEPA/CMAQ/pull/164) | Resolve bug in Low-NOx formation of SOA | 2022-02-09| A typo in the SOA_DEFN data table resulted in high NOx reactions contributing to low-NOx species, which are quite low in volatility. This bug fix has a considerable impact on SOA if using AE6. No impact for AE7. | | | [#165](https://github.com/USEPA/CMAQ/pull/165) | Bugfix Speed up emissions processing in PTMET subroutine | 2022-02-09 | The PTMET subroutine is streamlined so that it is not run for every point source and every stream every time each stream is called. This update drastically reduces runtimes in areas where there happen to be lots of point sources on a particular processor. No impact on results. | ================================================ FILE: DOCS/CMAQ_Data.md ================================================ # CMAQ Data * [Test Case Data](#test_case_data) * [Input and Output Files](#cmaq_inputs_outputs) * [EQUATES Data](#equates_data) * [Measurement-Model "Fused" CMAQ Outputs](#cmaq_fused) ## Test Case Data Benchmark/tutorial data for the CMAQv5.5 release are available from the CMAS Data Warehouse. The input and output files are stored on Amazon Web Services (AWS) Open Data Registry. CMAQv5.5 benchmark input is the same as CMAQv5.4, provding a July 1-2, 2018 case over the Northeast US. CMAQv5.5 comes with new output data for running several different model configurations (links below). Tutorials are provided for using the benchmark data to test running of the base CMAQ model with either the CB6r5 or CRACMMv2 mechanisms, WRF-CMAQ, CMAQ-ISAM, and CMAQ-DDM. The input datasets include a grid mask file for the United States (GRIDMASK_STATES_12SE1.nc). The grid mask file is used for running the ISAM test case, or to test out regional emissions scaling with [DESID](DOCS/Users_Guide/Tutorials/CMAQ_UG_tutorial_emissions.md). The input datasets also include an ocean file with variables needed to use the cb6r5_ae7 and cb6r5m_ae7 mechanisms. See the [Ocean File tutorial](DOCS/Users_Guide/Tutorials/CMAQ_UG_tutorial_oceanfile.md) for more information on changes to the required ocean file input beginning in v5.4. In addition, a full set of inputs for 2018 are provided for the 12US1 domain (299 column x 459 row x 35 layer, 12-km horizontal grid spacing) on AWS, including emissions compatible with both the CB6r5 and CRACMMv1.0 chemical mechanisms. Note that the 12US1 inputs are netCDF-4/HDF5 compressed files to substantially reduce file sizes. Through testing at the EPA, we’ve noticed that certain domains encounter model crashes from reading in large amounts of compressed netCDF data. A work around for those cases is uncompressing the data manually via [nccopy 1](https://www.unidata.ucar.edu/software/netcdf/workshops/2011/utilities/Nccopy.html) or [m3cple](https://www.cmascenter.org/ioapi/documentation/all_versions/html/M3CPLE.html) (compiled with HDF5) before running the CMAQ simulation. |**CMAQ Version**|**Data Type (Size)**|**Domain**|**Simulation Dates**|**Data Access**|**Link**|**Tutorial**| |:----:|:----:|:--------------:|:----:|:--------:|:----:|:----:| |MPAS-CMAQ| Input (215 GB) | Global (uniform 120) | Jan 1, 2017|[Metadata, DOI, and links to data on AWS](https://doi.org/10.15139/S3/PAHQFO)
| [AWS Link](https://mpas-cmaq.s3.amazonaws.com/index.html) |[Tutorial](https://github.com/USEPA/CMAQ/blob/MPAS_CMAQ/DOCS/Users_Guide/PDF/MPAS_CMAQ_guide.pdf)| |v5.4 CB6r5 | Input (6.1 TB) | 12US1 | Jan 1 - Dec 31, 2018 | [Metadata, DOI, and links to data on AWS](https://doi.org/10.15139/S3/LDTWKH)
| [AWS Link](https://cmas-cmaq-modeling-platform-2018.s3.amazonaws.com/index.html) || |v5.4 CB6r5 | Input (10.3 GB)| Northeast US| July 1 - 2, 2018| [Metadata, DOI, and download instructions ](https://doi.org/10.15139/S3/BWMI8X)
| [Google Drive Link](https://drive.google.com/drive/folders/1AFUB-4kzIXXoZr4hOHNBqRvy9JQ9_MDp)
[AWS Link](https://cmaq-release-benchmark-data-for-easy-download.s3.amazonaws.com/v5_4/CMAQv5.4_2018_12NE3_Benchmark_2Day_Input.tar.gz)|| |v5.5 CRACMM2| Input (6 GB) | 12NE3 | July 1 - 2, 2018 | [Metadata, DOI, and links to data on AWS]( https://doi.org/10.15139/S3/X5SZM2)
| [AWS Link](https://cmaq-release-benchmark-data-for-easy-download.s3.amazonaws.com/v5_5/CMAQv5.5_2018_12NE3_Benchmark_cracmm2_stage_2Day_Input.tar.gz) || |v5.5 CRACMM2| Output (19 GB) | 12NE3 | July 1 - 2, 2018 | [Metadata, DOI, and links to data on AWS]( https://doi.org/10.15139/S3/X5SZM2)
| [AWS Link](https://cmaq-release-benchmark-data-for-easy-download.s3.amazonaws.com/v5_5/output_CCTM_v55_gcc_Bench_2018_12NE3_cracmm2_stage.tar.gz)|[Tutorial](DOCS/Users_Guide/Tutorials/CMAQ_UG_tutorial_benchmark_cracmm2_stage.md)| |v5.5 CB6r5 M3Dry | Output (15 GB) | 12NE3 | July 1 - 2, 2018 | [Metadata, DOI, and links to data on AWS](https://doi.org/10.15139/S3/X5SZM2)
| [AWS Download Link](https://cmaq-release-benchmark-data-for-easy-download.s3.amazonaws.com/v5_5/output_CCTM_v55_gcc_Bench_2018_12NE3_cb6r5_ae7_aq_m3dry.tar.gz) |[Tutorial](DOCS/Users_Guide/Tutorials/CMAQ_UG_tutorial_benchmark.md)| |v5.5 CB6r5 STAGE | Output (16 GB) | 12NE3 | July 1 - 2, 2018 | [Metadata, DOI, and links to data on AWS](https://doi.org/10.15139/S3/X5SZM2)
| [AWS Download Link](https://cmaq-release-benchmark-data-for-easy-download.s3.amazonaws.com/v5_5/output_CCTM_v55_gcc_Bench_2018_12NE3_cb6r5_ae7_aq_stage.tar.gz) |[Modify the M3DRY Tutorial](DOCS/Users_Guide/Tutorials/CMAQ_UG_tutorial_benchmark.md)| |v5.5-ISAM CB6r5 M3Dry | Output (52 GB) | 12NE3 | July 1 - 2, 2018 | [Metadata, DOI, and links to data on AWS](https://doi.org/10.15139/S3/X5SZM2)
| [AWS Download Link](https://cmaq-release-benchmark-data-for-easy-download.s3.amazonaws.com/v5_5/output_CCTM_v55_ISAM_gcc_Bench_2018_12NE3_cb6r5_ae7_aq_m3dry.tar.gz) |[Tutorial](DOCS/Users_Guide/Tutorials/CMAQ_UG_tutorial_ISAM.md)| |v5.5-DDM3D CB6r5 M3Dry | Output (16 GB) | 12NE3 | July 1 - 2, 2018 | [Metadata, DOI, and links to data on AWS](https://doi.org/10.15139/S3/X5SZM2)
| [AWS Download Link](https://cmaq-release-benchmark-data-for-easy-download.s3.amazonaws.com/v5_5/output_CCTM_v55_DDM3D_gcc_Bench_2018_12NE3_cb6r5_ae7_aq_m3dry.tar.gz) |[Tutorial](DOCS/Users_Guide/Tutorials/CMAQ_UG_tutorial_DDM3D.md)| |v5.5 CRACMM2 | Input | 12US1 | Dec 2017- Dec 2018| [Metadata, DOI, and links to data on AWS]( https://doi.org/10.15139/S3/X5SZM2)
| [AWS Link to Scripts](https://cmas-cmaq-modeling-platform-2018.s3.amazonaws.com/index.html#2018_12US1/CMAQ_v55_cracmm2_scripts/)| |v5.5 CRACMM2 | Output ( 1.9 TB) | 12US1 | Dec. 22, 2017 - Jan 2 2018 | [Metadata, DOI, and links to data on AWS]( https://doi.org/10.15139/S3/X5SZM2)
| [AWS Link to Output](https://cmas-cmaq-modeling-platform-2018.s3.amazonaws.com/index.html#2018_12US1/output/output_CCTM_v55_intel_STAGE_EM_2018_12US1_two_week_16x8/)| ## CMAQ Input and Output Data The CMAS Center Data Warehouse cataloges publicly-available CMAQ-ready input files for a range of years and domains * [Catalogue of available meteorology, emissions and air quality model input and output](https://dataverse.unc.edu/dataverse/cmascenter) * [CMAS Data Warehouse on Google Drive](https://drive.google.com/drive/folders/1-UHPzfNS46fw1fjx0rOqzbC24s4-qoKr) * [CMAS Registry of Open Data on AWS](https://registry.opendata.aws/cmas-data-warehouse/) ## EQUATES Data Meteorology, emissions, and CMAQ air pollutant and deposition estimates from the [EPA's Air Quality Time Series (EQUATES) Project](https://www.epa.gov/cmaq/equates) are available for 2002-2019 * [EQUATES Metadata and DOI](https://doi.org/10.15139/S3/F2KJSK) * [EQUATES Data Use Policy](https://drive.google.com/file/d/1F1Ed9MMQQ6fuiiXxlGEbYHXdhvjP-Xkx/view?usp=sharing) * [EQUATES Data Dictionary](https://drive.google.com/file/d/1TVTsrH94zDyOyMJEHNEi9_obwG2ZcPaa/view?usp=sharing) ## Measurement-Model "Fused" CMAQ Outputs CMAQ output is often combined, or "fused", with observed air quality measurements to remove any consistent model biases prior to using the model predictions for a particular application. * ["Fused" CMAQ Ozone, PM2.5, and deposition](https://www.epa.gov/cmaq/data-download-step-2#model_obs_fused_CMAQ_outputs) ================================================ FILE: DOCS/Community_Support.md ================================================ # Community Support [![](./Release_Notes/images/CMAQ_Forum.png)](https://forum.cmascenter.org/) Technical support for CMAQ, including questions about model inputs, downloading, compiling, and running the model, and pre- and post-processing utilities, should be directed to the [CMAS Center User Forum](https://forum.cmascenter.org/). You can search the forum for past questions and answers on the topic of your interest. To post a new question or respond to an existing post, sign up for the forum by clicking on the "Sign Up" button in the top right corner of the website. > [**Pleae read and follow these steps prior to submitting new questions to the User Forum.**](https://forum.cmascenter.org/t/please-read-before-posting/1321) Visit the CMAQ website to learn about the many individuals and organizations that use and contribute to the CMAQ system: [https://www.epa.gov/cmaq/cmaq-community](https://www.epa.gov/cmaq/cmaq-community) ================================================ FILE: DOCS/Developers_Guide/CMAQ_Dev_Guide.md ================================================ **Developers' Guide for the Community Multiscale Air Quality (CMAQ) Modeling System** = **Consistent with CMAQ model version 5.3 (2019 Release)** Prepared in cooperation with the:     ***Community Modeling and Analysis System***     Institute for the Environment     University of North Carolina at Chapel Hill     Chapel Hill, NC ## Disclaimer The information in this Developer Guide has been funded wholly or in part by the United States Environmental Protection Agency. The draft version of this document has not been subjected to the Agency's peer and administrative review, nor has it been approved for publication as an EPA document. The draft document is currently being edited and reviewed by the Community Modeling and Analysis System Center. Mention of trade names or commercial products does not constitute endorsement or recommendation for use. # Motivation The evolution and robustness of CMAQ depends on contributions from the vibrant CMAS community. The development team at EPA is excited to work with potential contributors and integrate community submissions into the CMAQ code base. In order to facilitate this process, we describe in this document our development process and how external developers may submit new code features. The information contained here should be read prior to starting a project within the CMAQ framework. Instructions are tailored for external developers but can also be used by developers in the CMAS-Center or within EPA. # Summary of Developer Workflow The public CMAQ release repository is located on GitHub (). Users should refer to this repository for bug fixes, issues, documentation and major releases for CMAQ. Users can use the watch and star buttons on the public CMAQ release repository page to be notified of updates and changes. Developers interested in submitting code changes should read this Developer Guide and then contact the EPA CMAQ development team as soon as possible to discuss their motivation and plans for submitting a code change (CMAQ_Team@epa.gov). In order to facilitate incorporation of a contribution, developers should follow the instructions on code requirements and repository layout as described in the [code management instructions](Code_Management.md). Documentation of the assumptions and results of the new code is a very important part of a meaningful code submission. If the submission involves a detailed new feature, developers are encouraged to publish the use of their feature in a peer-reviewed journal before submission. To begin, the developer should fork the public CMAQ release repository within GitHub. This will create a copy of the public CMAQ release repository under your name (https://github.com/{user_name}/CMAQ). Developers should use standard git commands to clone the appropriate version branch (5.3, 5.2.1, 5.2, ..) from your forked repository to your local machine and then to create a new feature or bug fix branch. Developers will add, commit and push changes to their new feature or bug fix branch on their forked repository, not to the public release version of the repository. Once a feature or bug fix branch meets requirements for code consistency, benchmark testing, model output evaluation, and documentation including release notes, the developer may submit a pull request from their local feature or bug fix branch of their fork of the CMAQ repository on Github to the CMAQ public repository. This process is described in the Nuts and Bolts section below, and in the following [tutorial](https://www.digitalocean.com/community/tutorials/how-to-create-a-pull-request-on-github), which also provides instructions on how to keep a fork up to date with changes on the public release repository. Contributions will undergo a thorough code review within EPA before being incorporated in the next model release. Depending on the size, scope, and importance of the contribution, the CMAQ development team may or may not agree to support the update through future releases. Decisions regarding ongoing support will be made on a case-by-case basis with input from the developer who submits the contribution. The following sections outline the CMAQ code development and review process in greater detail. # Development Life-cycle ## Public Release Versions CMAQ uses a number versioning system for each release version branch, with major and minor increments. For example, in the case of hypothetical version 14.0 the first number (major version) and second number (minor version) refer to a stable release version. The minor version (second number) of CMAQ increments when one or many new science developments have been adopted. Although these changes may significantly affect model results, the model will still be generally compatible with inputs developed for versions of the same major number. The major version (first number) of CMAQ increments when significant development changes to the code base have been adopted such that backward compatibility or comparability is no longer expected. Modifications to the publically released version without increment are prohibited in order to ensure consistency among published literature referring to a particular model version. In between published releases the development team may publish solutions to model bugs and issues in the public repository under the folder [DOCS/Known_Issues](https://github.com/lizadams/CMAQ/tree/main/DOCS/Known_Issues). The README located in this folder describes existing known issues, their scope and impact, and how they may be solved. ## Development Versions Prior to the public release of each major CMAQ version, the unofficial source code is released to the public as a development version that is not intended for regulatory or research application use. The purpose of releasing the development version to the public is to give community members: - a reasonable amount of time to complete any pending feature submissions they would like to submit for the stable release. - a role in helping to test, troubleshoot, and debug the unofficial code before the stable release. - an opportunity to comment on the code improvements made in the new version. - the ability to take advantage of improvements for preliminary studies of their own interest. - a reasonable amount of time to ensure the new version is compatible with any features the member may have submitted in the past. The unofficial (or ***beta***) version of the code will first be vetted internally and then released generally 6 months in advance of the corresponding stable CMAQ release; this period is known as the *beta-phase*. At this time, EPA will announce the deadline for community contributions. This deadline will be chosen in order to balance both the time needed by developers to submit their contributions and the time needed by EPA to incorporate submissions before public release. Version numbering for the beta series will append the letter 'b' and an incrementing number to the expected version number of the stable release. The number of beta versions is variable among releases. For example, before the hypothetical release of CMAQv14.3 the following series of version numbers could be expected: v14.3.b0 (First tested internal EPA version) v14.3.b1 (Release to public after minor changes) v14.3.b2 (....incremental testing, ....) v14.3.b3 (....bug squashing, and ...) v14.3.b4 (....documentation updates...) v14.3 (Stable Public Release) As stated previously, the “Known Issues” section of the documentation will be continually updated as problems are identified in the released code-base. These updates will not be implemented in the default model code and so the version numbering will in general, not increment between public releases. The instrumented versions of the code (e.g. DDM, ISAM, STM, etc) should be released with the stable version. # Making Contributions ## Get in touch Community members with an idea for a code contribution are encouraged to contact the EPA development team well before the *beta-phase* in order to plan appropriately for the testing and inclusion of the contribution. The EPA team may be interested in knowing information including but not limited to the following: - What science module or bug do you intend to address? What work do you intend to contribute to CMAQ? - Are you comfortable with the development strategy including code consistency, benchmarking, configuration testing, compiler testing, model output validation, documentation and merging? - Are you able to provide ongoing support and technical guidance for your proposed contribution? ## Nuts and Bolts As described above, the CMAQ development process follows a "Forking Workflow." Atlassian has provided a helpful [explanation](https://www.atlassian.com/git/tutorials/comparing-workflows#forking-workflow). Developers should follow the guidance at [GitHub Help](https://help.github.com/) and [Atlassian](https://www.atlassian.com/git/tutorials/what-is-version-control) in order to: - fork the CMAQ repo: https://help.github.com/articles/fork-a-repo/#platform-linux - clone their newly-created fork: https://help.github.com/articles/cloning-a-repository/#platform-linux - create a feature branch: https://www.atlassian.com/git/tutorials/using-branches - add and commit changes to the new feature branch: https://www.atlassian.com/git/tutorials/saving-changes - push the feature branch to the forked repo: https://help.github.com/articles/pushing-to-a-remote/ - submit a pull request to the public CMAQ repo: https://help.github.com/articles/creating-a-pull-request-from-a-fork/ Developers should run and test their contribution before submitting the pull request so that the results of the test can be included in the documentation of the pull request. ## Code Review CMAQ Developers at EPA will review all code submissions in order to ensure code stability and consistency, and prevent degradation of model performance. After review, the EPA team will either accept the submission, recommend specific improvements to the submission, or in some cases reject the submission. To avoid outright rejection, we urge developers to contact the EPA team early in the development process and maintain contact throughout to help ensure the submission is compatible with the CMAQ code base and is a robust addition. ### Code Consistency Please refer to the [code management instructions](Code_Management.md). Examples of small, but important guidelines include: - Eliminate global memory references (across modules). In other words, no common blocks across modules, no hidden data paths, and no "back doors." - All subroutines should be named in a manner which prevents namespace conflicts. - In general, variable names should be self-descriptive (e.g. NCELLS rather than N). - Use the Fortran declaration IMPLICIT NONE to maintain some control on typographic errors and undefined variables. The use of IMPLICIT NONE forces the developer to declare all internal variables. This is standard in Fortran 90. - In general, it is expected that MKS units are used for input and output variables, as these units have been standardized throughout the CMAQ system. If you use alternative units, please document this exhaustively. ### Benchmark Testing Dataset: The U.S. EPA Southeast US 12km domain July 1-14, 2016 testing dataset is provided with the CMAQv5.3 Release. This dataset is distributed for benchmarking and testing the model installation. It is available from CMAS; please go to https://www.epa.gov/cmaq/cmaq-inputs-and-test-case-data for instructions on how to download the test dataset. Before making code changes, developers should test multiple compilers (if they have access to them; see the following section on **Compiler Tests**), multiple processor configurations, and single processor configuration runs for a single simulation day to verify their results match the previous stable release, and/or that their results are computationally and physically reasonable. After implementing their code changes, developers should repeat these tests and share the results as part of the pull request documentation. #### Compiler Tests Compiler tests use the default benchmark configuration with different compilers and MPI configurations. It is important for the user community that CMAQ always compile with Intel Fortran, Gnu Fortran and Portland Group Fortran compilers. If a developer has access to more than one compiler, it is critical that they test all of them. Some errors will cause different behaviors depending on the choice of compiler and may not be detectable with all of the compilers. See appendix 1 for an example of a Compiler Test. #### Model Performance Tests Configuration tests use one compiler to test the impact of a model change on results. See appendix 2 for an example of important information to collect when testing science options. The developer should consider submitting similar information with their pull request. Several tools exist to document the effects of compiler choice and code change on model results. Examples include: **m3diff -** Quantify min, max, mean differences between two different model runs **VERDI -** Create absolute difference plots for multiple variables, timesteps, layers (see spatial differences) In addition, we recommend utilizing **1:1 Scatter Plots** to demonstrate the differences between two model runs in a concise layout. ### Documentation Requirements Documentation is of course an integral part of the integration of any contribution into the CMAQ code base. The following documentation products are helpful for expediting the review and integration process: - A Release Note written by the developer which describes the motivation, algorithm and impacts of the contribution is required to ensure proper documentation of CMAQ. - If the contribution is a new feature, developers are encouraged to publish its use in a peer-reviewed journal before submitting it to the CMAQ Public Repository. *CMAQ Documentation Resources:* Documentation for CMAQv5.3 is available at https://github.com/USEPA/CMAQ/tree/main/DOCS. Materials include: - User Guide which describes code structure and regular operation of the model. - Release Notes describing code improvements relevant for this model release. - Tutorials that give specific instructions for common tasks like running CMAQ or adding chemical tracers. ## Ongoing Support Depending on the size, scope, and importance of the contribution, the CMAQ development team may or may not have the resources to support it through future releases. For example, bug fixes and minor, but helpful, changes to the existing code will likely be incorporated into the general code base and supported. Large code additions, like a new process module or an instrumented version of CMAQ may require more effort to support than can be provided by resources of the EPA Office of Research and Development. However, if the feature is particularly of interest for the CMAQ user community, it may be supported. Decisions regarding ongoing support will be made on a case-by-case basis. # Copyright Information Contact EPA (CMAQ_Team@epa.gov) with questions and concerns. CMAQ Developer Guide (c) 2019 # Appendix ## Appendix 1: Compiler Tests Compiler flags: - PGI: -Mfixed -O3 -Mextend - GCC: -ffixed-form -ffixed-line-length-132 -O3 -funroll-loops -finit-character=32 - Intel: -fixed -132 -O3 -override-limits -fno-alias -mp1 -fp-model precise -fp-model source -shared-intel -openmp ### Compilation Testing Manifest Table (Example) |**Scenario**|**Compiler**|**netCDF**|**I/O API**|**MPI YN (#P)**|**MPI**|**CMAQv5.1 Timing (hh:mm:ss)**|**CMAQv5.2 Timing (hh:mm:ss)**| Notes| |--------------------|--------------------|----------------|----------------|---------|--------------------|---------------------------|------------------------------------|-------------------| |Gfortran Serial|Gfort version 4.8.1| 4.3.3|3.1|N|N/A|8:19:51|7:35:30|UNC module gcc/4.8.1| |Gfortran mvapich|Gfort version 4.8.1|4.3.2|3.1 |Y (16)|mvapich2 1.7|0:45:55|0:42:40| | |Intel Serial|Intel Fortran version 16.2.0 |4.3.2|3.1|N |N/A |6:01:42|5:10:16|UNC module intel/16.2| |Intel OpenMPI (EPA Config)|Intel Fortran v15.0.0|4.3.2|3.1|Y (16)|openMPI 1.42|0:34:27| |UNC module openmpi_intel/15.0| |Intel OpenMPI|Intel Fortran v16.2.0|4.3.2|3.1|Y (16)|openMPI 1.4.2|0:35:29| |UNC module openmpi_intel/16.2| |Intel mvapich2|Intel Fortran v16.2.0|4.3.2|3.1|Y (16)|mvapich2 1.7|0:36:34| |UNC module mvapich2_intel/16.2| |Portland Serial|PGI Fortran v16.1|4.3.2|3.1|N|N/A|7:33:36|6:26:31|UNC module pgi/16.1| |Portland OpenMPI|PGI Fortran v15.7|4.3.2|3.1|Y (16)|openMPI 1.4.2|0:40:20|0:36:16|UNC module openmpi_pgi/15.7| ## Appendix 2: Model Performance Test Metadata |**Scenario**|**Description**|**Mechanism**|**Notes**|**Timing (16PE) hh:mm:ss**| |----------------|-------------------|---------------------------|--------------------|---------------------| |Benchmark Case|Online emissions processing, inline photolysis, inline lightning from MCIP RC, no windblown dust, surface HONO, bidirectional NH3 and Hg, no potential vorticity scaling|cb05e51_ae6_aq |Done; LTNGNO InLine, LTNGPARM = N, LOG_START = 2.0|0:40:20| |MOSAIC|Benchmark case with MOSAIC and additional stomatal flux files activated|cb05e51_ae6_aq |Done. set CTM_MOSAIC = Y; set CTM_FST = Y|0:44:02 | |Dust|Benchmark case with dust, including new MODIS FP input|cb05e51_ae6_aq|Done. setenv CTM_WB_DUST Y; setenv CTM_ERODE_AGLAND Y; setenv CTM_WBDUST_BELD BELD3 |0:38:28| |Hourly NLDN|Benchmark with lightning NOx calculated using hourly bNLDN strikes |cb05e51_ae6_aq |Done; LTNGNO InLine, LTNGPARM = Y, USE_NLDN Y|0:40:18 | |POA Sensitivity|Benchmark with new POA mechanism |cb05e51_ae6nvPOA_aq|Done|0:34:42 | ================================================ FILE: DOCS/Developers_Guide/Code_Management.md ================================================ # Code Management and Development # As a public domain model, CMAQ is the product of contributions from many developers, whose numbers are only expected to increase with the number of users worldwide. Some degree of standardization is necessary for management and archiving of these development versions, as well as to compile and execute the code once it is ready for use, and to submit it to the CMAS Center for archiving and benchmark testing. This chapter provides guidance on source code manage­ment, coding guidelines for new code development, the compilation of new source code using the build scripts, and guidelines for writing shell scripts usable by CMAQ. Much of this informa­tion is derived from Chapter 18 (Young, 1999) in Byun and Ching (1999), with updates where appropriate, particularly for new versions of the model code and for the Fortran 90 standard. The chapter also includes the procedure that is in place for distributing code versions other than the operational CMAQ that are submitted to the development code archives. ## Source Code Management ### The need for a configuration-management tool Faced with a large and growing community that uses and develops a wide variety of programs, modules, and codes, it is imperative to systematically manage the cross-community access to this software. Typically, successful management of software involves the following: - A repository – a place where all of the public code resides. - The concept of archived code – codes that have been deposited into the repository in such a manner that anyone can extract the exact code at a later time. This involves some kind of transformation program to maintain master copies of the codes with embedded change tables. - The concept of revision control – archiving codes results in modifying the tags or unique revision identifiers in the change tables in the master copies in order to recover the exact code at a later date. - The concept of released code – codes that have reached some state of maturity and have been designated with some kind of “released” status. They can be used with reasonable expectation of reliability. The paradigm used employs the following scenario: 1. A user modifies or develops code. The code may be one subroutine or many, possibly constituting whole science modules. The code may originate from “scratch,” or be extracted from the repository and modified. 2. After testing or reaching a point of being satisfied with his/her results, he/she decides to save it in the repository so that others can have access to it. 3. Some archived codes may still be in an experimental, or development, state, while others may be reasonably stable and more completely tested. The latter may be designated as “released.” There is no enforceable means to control access based on an experimental or released state. The community will have, and should have, access indiscriminately, well aware that using development-state code is risky. 4. As the user continues to work with the codes, he/she may make enhancements or discover and fix errors. The upgrades are then installed in the repository, which automatically assigns unique revision identifiers. 5. The repository is located where it is conveniently accessible to all users, and is maintained by an administrator who sets and enforces general access rules. ### Choice of a configuration-management tool Prior to CMAQ version 5.0.2, CMAQ developers used [CVS](https://en.wikipedia.org/wiki/Concurrent_Versions_System) for versioning, and distributed tarballs included CVS artifacts (e.g., files with names ending with ',v'). Starting with version 5.0.2, CMAQ developers switched to [git](https://en.wikipedia.org/wiki/Git_%28software%29). ### git Explained git is a version control system that supports distributed workflows. Every Git directory is a full repository with complete history and version tracking. - It works on virtually all UNIX and Linux platforms and on many PCs. - It is publicly available and free and is distributed under the terms of the GNU General Public License. - If you would like to contribute changes to the EPA CMAQ repository, use the following steps 1. Create a github account https://github.com/ 2. Go to the EPA github site and Fork your own copy of the EPA CMAQ to your github account 3. create a directory called CMAQv5.3 on the machine where you would like to obtain a copy of the code 4. `git clone -b main https://github.com//CMAQ.git CMAQ_REPO` - Get a clone or copy of the main branch of the CMAQ repository from your github site. 5. This will place a copy of the files from the main branch into the CMAQv5.3/CMAQ_REPO directory 6. `cd CMAQv5.3/CMAQ_REPO` go into the CMAQv5.3/CMAQ_REPO directory 7. `git status` To confirm the status of the files in the repository and the branch that is currently checked out 8. `git checkout -b 5.3_update` To copy the 5.3 branch into a new branch called 5.3_update 9. To edit the config_cmaq.csh file take the following steps:
`vi config_cmaq.csh` - or use the Atom, TextWrangler or other Editor 10. To see what changes you made use the following command `git diff config_cmaq.csh` 11. To stage the change use the following command. `git add config_cmaq.csh` 12. To commit changes to the local repostitory use the command: `git commit -m "changed config_cmaq.csh to fix issue X"` 13. To commit changes to your Github repository on the branch 5.3_update use the command: `git push` 14. If you get a message that the push was rejected similar to the following: ``` ! [rejected] 5.3_update -> 5.3_update (fetch first) error: failed to push some refs to 'https://github.com/CEMPD/CMAQ.git' hint: Updates were rejected because the remote contains work that you do hint: not have locally. This is usually caused by another repository pushing hint: to the same ref. You may want to first integrate the remote changes hint: (e.g., 'git pull ...') before pushing again. hint: See the 'Note about fast-forwards' in 'git push --help' for details. ``` 15. This means the files have been changed on your Github repository since you last did a clone. Use the following command to get the changes that have been made to the remote git repository: `git pull` 16. You will be asked to merge the files if there are no changes that conflict with your file changes. IF successful you will see a message similar to the following, that indicates what files were changed. ``` Merge made by the 'recursive' strategy. config_cmaq.csh | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) ``` 17. Retry the push command to place the changes that you committed to the local repository on your Github repository: `git push` 18. Go to your github page and use the Compare link to the right of the Pull Request link to see what changes you are proposing to make as compared to what is on the base repository: USEPA/CMAQ. Review your proposed code changes in the github "Comparing Changes" page. 19. Create a pull request to ask that the changes that you have made be incorporated into the EPA github site. ## Guidelines for Developing New CMAQ Source Code ### Object-oriented concepts To make the CMAQ system robust and flexible, object-oriented concepts were incorporated into the design of the system. The incorporation of these ideas helps developers avoid introducing errors when code modifications are needed. Additionally, the system can easily and efficiently be modified, allowing the user to quickly create models for different applications. The implemen­tation language for CMAQ is Fortran 90, which imposes limits on how far one can go in terms of object-oriented design. In particular, because Fortran is a static language, objects cannot be instantiated dynamically; they must be declared explicitly in the source code to be created at compile time. However, to encourage a user community that will be contributing code for future enhancements, every attempt has been made to adhere to the Fortran 90 standard. ### Global name data table To implement modularity and data independence, we have employed design ideas that draw heavily from the object-oriented concept of ''inheritance ''and code re-use. The data structures in the codes that deal with the chemical mechanism, I/O API, logical file names, general constants, and pointers are determined by Fortran declarations in data and parameter statements in the CMAQ system. These data structures pertain to a particular application and are meant to apply globally—not just to one particular CCTM through all its subroutines, but also to all the models that supply data to CCTM for that application. These data structures are contained in Fortran INCLUDE files, which are essentially header files, included in the declaration sections near the top of the Fortran code source files. The inclusion of these source files is made automatic by using a generic string that represents the INCLUDE file and that is parsed and expanded to the actual INCLUDE file during a preprocessing stage in the compilation. The Fortran global INCLUDE files contain name tables that define: 1. The chemical mechanism; 2. The I/O API interface, including logical file names; 3. The global modeling constants; and 4. Other constants or parameters that apply across the model. To effect the implementation of the INCLUDE files into the code, a special compiling system, Bldmake, was developed (Fine et al., 1998), which reads a configuration file that, based on the application, completely determines the model executable to be built. The ASCII configuration file can be generated either by the CMAQ system or by the users following a few, simple syntactical rules. In addition to the global INCLUDE files, the configuration file contains module commands that tell Bldmake to extract the codes for that module from the model code repository for compilation. ### Thin Interface As mentioned in [Chapter 4](CMAQ_OGD_ch04_science.md#modular-flexibility), CMAQ is designed to be robust and flexible with respect to the interchange of modules and the elimination of cross-module data dependencies. Consequently, the concept of a “thin interface” has been employed in the design, which applies principally to the class-drivers (i.e. the top level call to a science module). At a minimum, the thin interface implementation implies the following requirements: - Eliminate global memory references (across modules). This implies no common blocks across modules, no hidden data paths, and no “back doors.” - Each module reads and interpolates its required data independently. The I/O API helps to ensure this kind of data independence. - Standardized argument list (CGRID, Date, Time, TimeStep) for calling the class-driver. See the example in Section 9.2.6. These requirements attempt to incorporate the object-oriented idea of encapsulation in the CMAQ design. Rumbaugh et al. (1991) suggest that “Encapsulation (also information hiding) consists of separating the external aspects of an object, which are accessible to other objects, from the internal implementation details of the object, which are hidden from other objects. Encapsulation prevents a program from becoming so interdependent that a small change has massive ripple effects. The implementation'' ''of an object can be changed without affecting the applications that use it.” The encapsulation design makes the CMAQ system safer and enables the transaction processing, plug-and-play capability. This design also makes it easier for a user to trace data and usage within a module, particularly at the class-driver level. ### Coding guidelines To maintain the object-oriented concepts implemented in the CMAQ system design, we have established a small set of coding guidelines that apply to those who develop CMAQ science modules and affect the low-level design of the models. We have developed standards to control data dependencies at the class-driver level, but we have not propagated these coding standards to the submodule level. 1. The models are generally coded in Fortran (both Fortran 90 and Fortran 77 conventions are used by various developers). It is possible to link in subroutines written in the C language, although this has not been done within the current CMAQ implementation. While the Fortran 90 compiler will compile Fortran 77 code, the reverse is not true. Thus the Makefiles are set up to invoke the Fortran 90 compiler. 2. To enable code compatibility between the Fortran 77 compiler and Fortran 90 code, the following guidance is provided: Line length beyond 72 characters is permissible in Fortran 90 (with line continuation indicated by an ending ‘&’), but not in Fortran 77; therefore, insertion of the ‘&’ in column 73 of the first line and in column 6 of the next line of the Fortran 90 code will ensure compatibility with both compilers (the ‘&’ at the beginning of a line is “in principle” ignored by the Fortran 90 compiler, but interpreted as a continuation character by the Fortran 77 compiler if it appears in column 6). 3. The modules must be controlled by a top-level class-driver routine, whose calling arguments must be the computational concentration grid array (CGRID), the current scenario date (Date), scenario time (Time), and the controlling time step vector (TimeStep). (See Section 9.2.3 above.) 4. The class-driver is also responsible for any temporal integration required within the module. (The time steps for process integration at the module level are usually shorter than those of the CCTM synchronization time step.) 5. Any reads and writes for the module should be done at the level of the class-driver routine. Although not absolutely necessary, this is strongly suggested because it is usually much easier to control the timing of the data accesses at the highest level of the module where the current scenario date and time are known. 6. Use the Fortran declaration IMPLICIT NONE to maintain some control on typographic errors and undefined variables. The use of IMPLICIT NONE forces the developer to declare all internal variables. This is standard in Fortran 90. 7. Use the global INCLUDE files for chemical mechanism data, and other data where available. 8. Use the I/O API for external data references where appropriate. For an illustration of these rules, see the code template provided in Section 9.2.6. At the submodule level, there are no strict I/O or coding standards. Here it is envisioned that individual researchers/programmers use their own coding styles for their algorithms. However, the following suggestions are offered to facilitate the potential incorporation of a module into the CMAQ system: - In general, it is expected that MKS units are used for input and output variables, as these units have been standardized throughout the CMAQ system. Within a submodule subroutine, whatever units are most convenient can be used. However, the developer must be responsible for any unit conversions to MKS for input and output, and thus avoid potential errors. - For efficiency and performance considerations, operations may need to be done on groups of grid cells (a block of cells) at a time. If there are N cells in the block and the entire domain contains M cells, then the entire domain can be decomposed into M/N blocks. The default value of N is set to 500. For operations in the horizontal (x,y), the cell constraint becomes X×Y≤N, where X = number of cells in the x-direction, and Y = number of cells in the y-direction. For operations in both the horizontal and vertical, the constraint becomes X×Y×Z≤N, where Z = number of cells in the z-direction. There may be some operations, such as for some horizontal advection schemes, where this decomposition into blocks becomes more difficult or impossible. ### Documentation guidelines Appropriate documentation is critical to the ease of use and maintainability of code developed for CMAQ. The official released version of CMAQ contains extensive in-line documentation and references to pertinent technical information whenever possible. Given the increasing number of new developers and code modules, the following guidelines are provided for new code developed for CMAQ: - The code revision history should be initiated or updated as appropriate for new and modified code, indicating the author, date, and nature of the revision. The revision history appears at the top of the subroutine. - Complete references to the pertinent technical documents should be provided whenever possible, and listed in comment lines immediately following the revision history notes. They should be cited in comments preceding, or embedded in-line with, the relevant code segments. - In-line documentation of the variable definitions indicating units is highly recommended in both subroutines and INCLUDE files, to facilitate the correct implementation of any code modifications in the future. This information is generally included in comments embedded in-line with the declaration of each variable. ### Science process code template The following example from CMAQ v4.7 illustrates a science process class-driver Fortran 90 subroutine. Code developers should follow this template, where appropriate, to maximize the benefit from the design concepts implemented in CMAQ. This template is generic and demonstrates many of the available features. Some class drivers and most other subprograms within a module may not have, nor require, most or any of these features. (The numbers at the left-hand margin refer to footnotes and are not part of the code, and the text within “< >” indicates code removed from the example for brevity in this section) **Example of Science Process Class-Driver** ```Fortran C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE VDIFF ( CGRID, JDATE, JTIME, TSTEP ) C----------------------------------------------------------------------- C Asymmetric Convective Model v2 (ACM2) -- Pleim(2006) C Function: C calculates and writes dry deposition. C calculates vertical diffusion C Subroutines and Functions Called: C INIT3, SEC2TIME, TIME2SEC, WRITE3, NEXTIME, C M3EXIT, EDDYX, TRI, MATRIX, PA_UPDATE_EMIS, PA_UPDATE_DDEP C Revision History: C Analogous to VDIFFIM (Eddy diffusion PBL scheme) C 03 Mar 16 G.Sarwar: updated for halogen emissions C 16 Sep 16 J.Young: update for inline procan (IPR) C----------------------------------------------------------------------- ... C----------------------------------------------------------------------- USE CGRID_SPCS ! CGRID mechanism species USE GRID_CONF USE EMIS_DEFN USE DEPV_DEFN USE ASX_DATA_MOD USE VDIFF_MAP USE UTILIO_DEFN USE BIDI_MOD USE HGSIM USE LSM_MOD, Only: n_lufrac USE SEDIMENTATION USE VDIFF_DIAG USE PA_DEFN, Only: LIPR ! Process Anaylsis control and data variables IMPLICIT NONE INCLUDE SUBST_FILES_ID ! file name parameters CHARACTER( 120 ) :: XMSG = ' ' C Arguments: REAL, POINTER :: CGRID( :,:,:,: ) ! concentrations INTEGER JDATE ! current model date, coded YYYYDDD INTEGER JTIME ! current model time, coded HHMMSS INTEGER TSTEP( 3 ) ! time step vector (HHMMSS) ! TSTEP(1) = local output step ! TSTEP(2) = sciproc sync. step (chem) ! TSTEP(3) = twoway model time step w.r.t. wrf time ! step and wrf/cmaq call frequency C Parameters: C External Functions: None C Local Variables: CHARACTER( 16 ), SAVE :: PNAME = 'VDIFFPROC' CHARACTER( 16 ), SAVE :: AERO_GRAV_SETL = 'CTM_GRAV_SETL' CHARACTER( 80 ) :: VARDESC ! env variable description LOGICAL, SAVE :: GRAV_SETL LOGICAL, SAVE :: FIRSTIME = .TRUE. LOGICAL, SAVE :: WRITE_FIRSTIME = .TRUE. INTEGER, SAVE :: WSTEP = 0 ! local write counter INTEGER STATUS ! ENV... status REAL :: FCJACMF( NCOLS,NROWS,NLAYS ) ! 1/ mid-full layer vert Jac factor REAL LRDX3M ! loop local RDX3M( L ) REAL FCMSF ! loop local RMSFX4( C,R ) REAL, ALLOCATABLE, SAVE :: CNGRD( :,:,:,: ) ! cgrid aero in mixing ratio REAL, ALLOCATABLE, SAVE :: DDEP ( :,:,: ) ! ddep accumulator REAL, ALLOCATABLE, SAVE :: ICMP ( :,:,: ) ! component flux accumlator REAL, ALLOCATABLE, SAVE :: DDEPJ ( :,:,:,: ) ! ddep for mosaic REAL, ALLOCATABLE, SAVE :: DDEPJ_FST( :,:,:,: ) ! ddep for stomtal/cuticular pathway REAL :: WRDD( NCOLS,NROWS ) ! ddep write buffer REAL :: WRDDJ( NCOLS,NROWS,N_LUFRAC+1 ) ! mosaic ddep write buffer REAL :: WRDDJ_FST( NCOLS,NROWS,N_LUFRAC+1 ) ! mosaic stomatal flux write buffer REAL, ALLOCATABLE, SAVE :: DDEP_PA ( :,:,: ) ! ddep for process analysis REAL, ALLOCATABLE, SAVE :: EMIS_PA( :,:,:,: ) ! emis for process analysis INTEGER, SAVE :: N_SPC_CGRID ! no. of CGRID species REAL :: EDDYV ( NCOLS,NROWS,NLAYS ) ! from EDYINTB REAL :: SEDDY ( NLAYS,NCOLS,NROWS ) ! flipped EDDYV REAL DTSEC ! model time step in seconds REAL, ALLOCATABLE, SAVE :: VSED_AE( :,:,:,: ) C Local Variables INTEGER, SAVE :: LOGDEV INTEGER ASTAT INTEGER C, R, L, S, V, I, J, OFF ! loop induction variables INTEGER MDATE, MTIME, MSTEP ! internal simulation date&time INTERFACE SUBROUTINE PA_UPDATE_EMIS ( PNAME, VDEMIS, JDATE, JTIME, TSTEP ) CHARACTER( * ), INTENT( IN ) :: PNAME REAL, INTENT( IN ) :: VDEMIS( :,:,:,: ) INTEGER, INTENT( IN ) :: JDATE, JTIME INTEGER, INTENT( IN ) :: TSTEP( 3 ) END SUBROUTINE PA_UPDATE_EMIS SUBROUTINE PA_UPDATE_DDEP ( PNAME, DDEP, JDATE, JTIME, TSTEP ) CHARACTER( * ), INTENT( IN ) :: PNAME REAL, INTENT( IN ) :: DDEP( :,:,: ) INTEGER, INTENT( IN ) :: JDATE, JTIME INTEGER, INTENT( IN ) :: TSTEP( 3 ) END SUBROUTINE PA_UPDATE_DDEP SUBROUTINE CONV_CGRID ( CGRID, JDATE, JTIME, CNGRD ) REAL, POINTER :: CGRID( :,:,:,: ) INTEGER, INTENT( IN ) :: JDATE, JTIME REAL, INTENT( INOUT ) :: CNGRD( :,:,:,: ) END SUBROUTINE CONV_CGRID SUBROUTINE REV_CGRID ( CNGRD, JDATE, JTIME, CGRID ) REAL, INTENT( INOUT ) :: CNGRD( :,:,:,: ) INTEGER, INTENT( IN ) :: JDATE, JTIME REAL, POINTER :: CGRID( :,:,:,: ) END SUBROUTINE REV_CGRID SUBROUTINE EDDYX ( EDDYV ) REAL, INTENT( OUT ) :: EDDYV( :,:,: ) END SUBROUTINE EDDYX SUBROUTINE VDIFFACMX( dtsec, seddy, ddep, icmp, ddepj, ddepj_fst, cngrd ) REAL, INTENT( IN ) :: dtsec REAL, INTENT( INOUT ) :: seddy( :,:,: ) REAL, INTENT( INOUT ) :: ddep ( :,:,: ) REAL, INTENT( INOUT ) :: icmp ( :,:,: ) REAL, INTENT( INOUT ), OPTIONAL :: ddepj ( :,:,:,: ) REAL, INTENT( INOUT ), OPTIONAL :: ddepj_fst( :,:,:,: ) REAL, INTENT( INOUT ) :: cngrd( :,:,:,: ) END SUBROUTINE VDIFFACMX END INTERFACE C----------------------------------------------------------------------- IF ( FIRSTIME ) THEN FIRSTIME = .FALSE. LOGDEV = INIT3() IF ( .NOT. DEPV_INIT ( JDATE, JTIME, TSTEP, CGRID ) ) THEN XMSG = 'Failure initializing deposition velocities module' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF C create global maps IF ( .NOT. VDIFF_MAP_INIT( N_SPC_DEPV ) ) THEN XMSG = 'Failure initializing index mapping module' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF C Initialize the met data CALL INIT_MET( JDATE, JTIME, MOSAIC, ABFLUX, HGBIDI ) IF ( HGBIDI ) THEN ! Initialize HGSIM module CALL INIT_HGSIM(JDATE, JTIME) END IF C Get gravitational settling (sedi) flag. GRAV_SETL = .TRUE. ! default VARDESC = 'Using J-,K-mode aerosols gravitational settling' GRAV_SETL = ENVYN( AERO_GRAV_SETL, VARDESC, GRAV_SETL, STATUS ) IF ( STATUS .EQ. 0 ) WRITE( LOGDEV, '(5X, A)' ) VARDESC C Get diagnostic files flag. VDIFFDIAG = .FALSE. ! default VARDESC = 'Writing the VDIFF diagnostic files' VDIFFDIAG = ENVYN( VDIFF_DIAG_FILE, VARDESC, VDIFFDIAG, STATUS ) IF ( STATUS .EQ. 0 ) WRITE( LOGDEV, '(5X, A)' ) VARDESC C Set output file characteristics based on COORD.EXT and open the dry dep file IF ( IO_PE_INCLUSIVE ) THEN CALL OPDDEP ( JDATE, JTIME, TSTEP( 1 ), N_SPC_DDEP, ABFLUX ) IF ( ABFLUX .OR. HGBIDI ) CALL OPASX_MEDIA( JDATE, JTIME, TSTEP( 1 ), ABFLUX ) END IF C Open vdiff diagnostics file (ioapi header from cgrd) IF ( VDIFFDIAG ) THEN IF ( .NOT. VDIFF_DIAG_INIT ( JDATE, JTIME, TSTEP( 1 ), GRAV_SETL ) ) THEN XMSG = 'Failure initializing vdiff diagnostics module' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF END IF C Allocate and initialize dry deposition array ALLOCATE ( DDEP( N_SPC_DEPV,NCOLS,NROWS ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN XMSG = 'Failure allocating DDEP' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF DDEP = 0.0 ! array assignment ALLOCATE ( ICMP( LCMP,NCOLS,NROWS ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN XMSG = 'Failure allocating ICMP' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF ICMP = 0.0 ! array assignment IF ( .NOT. EMIS_INIT ( JDATE, JTIME, TSTEP( 1 ) ) ) THEN XMSG = 'Failure initializing emissions module' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF C Set up for process analysis IF ( LIPR ) THEN ALLOCATE ( EMIS_PA( NCOLS,NROWS,EMLAYS,N_SPC_EMIS+1 ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN XMSG = 'EMIS_PA memory allocation failed' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF ALLOCATE ( DDEP_PA( NCOLS,NROWS,N_SPC_DEPV ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN XMSG = 'DDEP_PA memory allocation failed' CALL M3EXIT ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF END IF C Set up for grav. settling IF ( GRAV_SETL ) THEN ALLOCATE ( VSED_AE( N_AE_SPC,NLAYS,NCOLS,NROWS ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN XMSG = 'Failure allocating VSED_AE' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF END IF N_SPC_CGRID = SIZE ( CGRID,4 ) ALLOCATE ( CNGRD( N_SPC_CGRID,NLAYS,NCOLS,NROWS ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN XMSG = 'Failure allocating CNGRD' CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF CNGRD = 0.0 ! array assignment IF ( MOSAIC ) THEN ALLOCATE ( DDEPJ( N_LUFRAC,N_SPC_DEPV,NCOLS,NROWS ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN XMSG = 'Failure allocating DDEPJ' CALL M3EXIT( PNAME, MDATE, MTIME, XMSG, XSTAT1 ) END IF DDEPJ = 0.0 ! array assignment IF ( IO_PE_INCLUSIVE ) & CALL OPDDEP_MOS ( JDATE, JTIME, TSTEP( 1 ), N_SPC_DDEP ) IF ( FST ) THEN ALLOCATE ( DDEPJ_FST( N_LUFRAC,N_SPC_DEPV,NCOLS,NROWS ), STAT = ASTAT ) IF ( ASTAT .NE. 0 ) THEN XMSG = 'Failure allocating DDEPJ_FST' CALL M3EXIT( PNAME, MDATE, MTIME, XMSG, XSTAT1 ) END IF DDEPJ_FST = 0.0 ! array assignment IF ( IO_PE_INCLUSIVE ) & CALL OPDDEP_FST ( JDATE, JTIME, TSTEP( 1 ), N_SPC_DDEP ) END IF ! if Fst END IF ! if Mosaic END IF ! if Firstime MDATE = JDATE MTIME = JTIME MSTEP = TIME2SEC( TSTEP( 2 ) ) DTSEC = FLOAT( MSTEP ) CALL NEXTIME ( MDATE, MTIME, SEC2TIME( MSTEP / 2 ) ) C Convert non-molar mixing ratio species and re-order CGRID CALL CONV_CGRID ( CGRID, MDATE, MTIME, CNGRD ) C read & interpolate met data CALL GET_MET ( MDATE, MTIME, MSTEP, MOSAIC, ABFLUX, HGBIDI ) C read & interpolate deposition velocities CALL GET_DEPV ( MDATE, MTIME, TSTEP, CGRID ) IF ( GRAV_SETL ) THEN C Get gravitational settling velocity for the vsed aero species: C AERO_SEDV assumes that every aero species is dry deposited and is diffused (trns) C Calculate the changes in the layer J-,K-mode aerosol concentrations CALL SEDI( MDATE, MTIME, DTSEC, VSED_AE, CGRID, CNGRD ) END IF C read & interpolate emissions data => VDEMIS from EMIS_DEFN module CALL GET_EMIS ( MDATE, MTIME, TSTEP, CONVPA, CGRID ) IF ( LIPR ) THEN DO S = 1, N_SPC_EMIS+1 DO L = 1, EMLAYS DO R = 1, MY_NROWS DO C = 1, MY_NCOLS EMIS_PA( C,R,L,S ) = VDEMIS( S,L,C,R ) END DO END DO END DO END DO CALL PA_UPDATE_EMIS ( 'VDIF', EMIS_PA, JDATE, JTIME, TSTEP ) END IF CALL EDDYX ( EDDYV ) C EDDYV returned = Kz, where Kz is in m**2/sec DO L = 1, NLAYS LRDX3M = Grid_Data%RDX3M( L ) DO R = 1, MY_NROWS DO C = 1, MY_NCOLS FCJACMF( C,R,L ) = LRDX3M * Met_Data%RJACM( C,R,L ) * Met_Data%RJACF( C,R,L ) END DO END DO END DO DO R = 1, MY_NROWS DO C = 1, MY_NCOLS FCMSF = Grid_Data%RMSFX4( C,R ) DO L = 1, NLAYS SEDDY( L,C,R ) = FCMSF * FCJACMF( C,R,L ) * EDDYV( C,R,L ) END DO END DO END DO IF ( WSTEP .EQ. 0 ) THEN DDEP = 0.0 ! array assignment ICMP = 0.0 ! array assignment IF ( MOSAIC ) THEN DDEPJ = 0.0 ! array assignment IF ( FST ) DDEPJ_FST = 0.0 ! array assignment END IF END IF C Calculate the change in concentration and dry dep from vertical diffusion and vsed C Note: cngrd is the argument keyword (from the INTERFACE); CNGRD is the actual argument IF ( .NOT. MOSAIC ) THEN CALL VDIFFACMX( DTSEC, SEDDY, DDEP, ICMP, & cngrd = CNGRD ) ELSE IF ( .NOT. FST ) THEN CALL VDIFFACMX( DTSEC, SEDDY, DDEP, ICMP, & ddepj = DDEPJ, cngrd = CNGRD ) ELSE CALL VDIFFACMX( DTSEC, SEDDY, DDEP, ICMP, & ddepj = DDEPJ, ddepj_fst = DDEPJ_FST, cngrd = CNGRD ) END IF END IF IF ( VDIFFDIAG ) THEN NTICS = NTICS + 1 NLPCR_SUM = NLPCR_SUM + NLPCR_MEAN ! array assignment DO R = 1, MY_NROWS DO C = 1, MY_NCOLS NLPCR_MAX( C,R ) = MAX( NLPCR_MEAN( C,R ), NLPCR_MAX( C,R ) ) NLPCR_MIN( C,R ) = MIN( NLPCR_MEAN( C,R ), NLPCR_MIN( C,R ) ) END DO END DO IF ( GRAV_SETL ) THEN DTCCR_SUM = DTCCR_SUM + DTCCR_MEAN ! array assignment DO R = 1, MY_NROWS DO C = 1, MY_NCOLS DTCCR_MAX( C,R ) = MAX( DTCCR_MEAN( C,R ), DTCCR_MAX( C,R ) ) DTCCR_MIN( C,R ) = MIN( DTCCR_MEAN( C,R ), DTCCR_MIN( C,R ) ) END DO END DO END IF END IF C Revert non-molar mixing ratio species and re-order CGRID CALL REV_CGRID ( CNGRD, MDATE, MTIME, CGRID ) C If last call this hour: write accumulated depositions: WSTEP = WSTEP + TIME2SEC( TSTEP( 2 ) ) IF ( WSTEP .GE. TIME2SEC( TSTEP( 1 ) ) ) THEN MDATE = JDATE MTIME = JTIME CALL NEXTIME( MDATE, MTIME, TSTEP( 2 ) ) WSTEP = 0 #ifdef parallel_io IF ( WRITE_FIRSTIME ) THEN WRITE_FIRSTIME = .FALSE. IF ( .NOT. IO_PE_INCLUSIVE ) THEN IF ( .NOT. OPEN3( CTM_DRY_DEP_1, FSREAD3, PNAME ) ) THEN XMSG = 'Could not open ' // TRIM(CTM_DRY_DEP_1) CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF IF ( MOSAIC ) THEN IF ( .NOT. OPEN3( CTM_DRY_DEP_MOS, FSREAD3, PNAME ) ) THEN XMSG = 'Could not open ' // TRIM(CTM_DRY_DEP_MOS) CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF IF ( FST ) THEN IF ( .NOT. OPEN3( CTM_DRY_DEP_FST, FSREAD3, PNAME ) ) THEN XMSG = 'Could not open ' // TRIM(CTM_DRY_DEP_FST) CALL M3EXIT( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) END IF END IF END IF END IF ! .NOT. IO_PE_INCLUSIVE END IF #endif DO V = 1, N_SPC_DDEP S = DD2DV( V ) DO R = 1, MY_NROWS DO C = 1, MY_NCOLS WRDD( C,R ) = DDEP( S,C,R ) END DO END DO IF ( .NOT. WRITE3( CTM_DRY_DEP_1, DDEP_SPC( V ), & MDATE, MTIME, WRDD ) ) THEN XMSG = 'Could not write ' // CTM_DRY_DEP_1 // ' file' CALL M3EXIT( PNAME, MDATE, MTIME, XMSG, XSTAT1 ) END IF IF ( ABFLUX .AND. TRIM( DDEP_SPC( V ) ) .EQ. 'NH3' ) THEN DO I = 1, LCMP DO R = 1, MY_NROWS DO C = 1, MY_NCOLS WRDD( C,R ) = ICMP( I,C,R ) END DO END DO IF ( .NOT. WRITE3( CTM_DRY_DEP_1, CMPSPC( I ), & MDATE, MTIME, WRDD ) ) THEN XMSG = 'Could not write ' // CTM_DRY_DEP_1 // ' file' CALL M3EXIT( PNAME, MDATE, MTIME, XMSG, XSTAT1 ) END IF END DO ENDIF END DO WRITE( LOGDEV, '( /5X, 3( A, :, 1X ), I8, ":", I6.6 )' ) & 'Timestep written to', CTM_DRY_DEP_1, & 'for date and time', MDATE, MTIME C Write vdiff diagnostics IF ( VDIFFDIAG ) THEN IF ( GRAV_SETL ) THEN ! Write vsed diagnostics DO V = 1, N_VSED S = VSED_MAP( V ) DO L = 1, NLAYS DO R = 1, MY_NROWS DO C = 1, MY_NCOLS VSED_BUF( C,R,L,V ) = VSED_AE( S,L,C,R ) END DO END DO END DO IF ( .NOT. WRITE3( CTM_VSED_DIAG, VSED_NAME( V ), & MDATE, MTIME, VSED_BUF( 1,1,1,V ) ) ) THEN XMSG = 'Could not write ' // TRIM( VSED_NAME( V ) ) & // ' to ' // CTM_VSED_DIAG CALL M3EXIT( PNAME, MDATE, MTIME, XMSG, XSTAT1 ) END IF END DO WRITE( LOGDEV, '( /5X, 3( A, :, 1X ), I8, ":", I6.6 )' ) & 'Timestep written to', CTM_VSED_DIAG, & 'for date and time', MDATE, MTIME END IF ! GRAV_SETL C Write other diagnostics NLPCR_MEAN = NLPCR_SUM / FLOAT( NTICS ) IF ( .NOT. WRITE3( CTM_VDIFF_DIAG, 'NLP_MEAN', & MDATE, MTIME, NLPCR_MEAN ) ) THEN XMSG = 'Could not write ' // 'NLP_MEAN to ' // CTM_VDIFF_DIAG CALL M3EXIT( PNAME, MDATE, MTIME, XMSG, XSTAT1 ) END IF IF ( .NOT. WRITE3( CTM_VDIFF_DIAG, 'NLP_MAX', & MDATE, MTIME, NLPCR_MAX ) ) THEN XMSG = 'Could not write ' // 'NLP_MAX to ' // CTM_VDIFF_DIAG CALL M3EXIT( PNAME, MDATE, MTIME, XMSG, XSTAT1 ) END IF IF ( .NOT. WRITE3( CTM_VDIFF_DIAG, 'NLP_MIN', & MDATE, MTIME, NLPCR_MIN ) ) THEN XMSG = 'Could not write ' // 'NLP_MIN to ' // CTM_VDIFF_DIAG CALL M3EXIT( PNAME, MDATE, MTIME, XMSG, XSTAT1 ) END IF NLPCR_MAX = 0.0 ! array assignment NLPCR_MIN = 9.9E30 ! array assignment NLPCR_SUM = 0.0 ! array assignment IF ( GRAV_SETL ) THEN ! Write vsed diagnostics DTCCR_MEAN = DTCCR_SUM / FLOAT( NTICS ) IF ( .NOT. WRITE3( CTM_VDIFF_DIAG, 'SEDI_DTC_MEAN', & MDATE, MTIME, DTCCR_MEAN ) ) THEN XMSG = 'Could not write ' // 'SEDI_DTC_MEAN to ' // CTM_VDIFF_DIAG CALL M3EXIT( PNAME, MDATE, MTIME, XMSG, XSTAT1 ) END IF IF ( .NOT. WRITE3( CTM_VDIFF_DIAG, 'SEDI_DTC_MAX', & MDATE, MTIME, DTCCR_MAX ) ) THEN XMSG = 'Could not write ' // 'SEDI_DTC_MAX to ' // CTM_VDIFF_DIAG CALL M3EXIT( PNAME, MDATE, MTIME, XMSG, XSTAT1 ) END IF IF ( .NOT. WRITE3( CTM_VDIFF_DIAG, 'SEDI_DTC_MIN', & MDATE, MTIME, DTCCR_MIN ) ) THEN XMSG = 'Could not write ' // 'SEDI_DTC_MIN to ' // CTM_VDIFF_DIAG CALL M3EXIT( PNAME, MDATE, MTIME, XMSG, XSTAT1 ) END IF DTCCR_MAX = 0.0 ! array assignment DTCCR_MIN = 9.9E30 ! array assignment DTCCR_SUM = 0.0 ! array assignment END IF CNVCT = 0.0 ! array assignment DO R = 1, MY_NROWS DO C = 1, MY_NCOLS IF ( Met_Data%CONVCT( C,R ) ) CNVCT( C,R ) = 1.0 END DO END DO IF ( .NOT. WRITE3( CTM_VDIFF_DIAG, 'CONVCT', & MDATE, MTIME, CNVCT ) ) THEN XMSG = 'Could not write ' // 'convct to ' // CTM_VDIFF_DIAG CALL M3EXIT( PNAME, MDATE, MTIME, XMSG, XSTAT1 ) END IF IF ( .NOT. WRITE3( CTM_VDIFF_DIAG, 'LPBL', & MDATE, MTIME, REAL( Met_Data%LPBL ) ) ) THEN XMSG = 'Could not write ' // 'lpbl to ' // CTM_VDIFF_DIAG CALL M3EXIT( PNAME, MDATE, MTIME, XMSG, XSTAT1 ) END IF WRITE( LOGDEV, '( /5X, 3( A, :, 1X ), I8, ":", I6.6, I6 )' ) & 'Timestep written to', CTM_VDIFF_DIAG, & 'for date and time (and ntics)', MDATE, MTIME, NTICS NTICS = 0 END IF IF ( MOSAIC ) THEN DO V = 1, N_SPC_DDEP S = DD2DV( V ) WRDD = 0.0 ! reuse array since it has already been written for hour DO R = 1, MY_NROWS DO C = 1, MY_NCOLS DO J = 1, N_LUFRAC WRDD( C,R ) = WRDD( C,R ) + DDEPJ( J,S,C,R ) * Grid_Data%LUFRAC( C,R,J ) WRDDJ( C,R,J ) = DDEPJ( J,S,C,R ) END DO WRDDJ( C,R,N_LUFRAC+1 ) = WRDD( C,R ) ! last array element is total across all land use categories END DO END DO IF ( .NOT. WRITE3( CTM_DRY_DEP_MOS, DDEP_SPC( V ), & MDATE, MTIME, WRDDJ ) ) THEN XMSG = 'Could not write ' // CTM_DRY_DEP_MOS // ' file' CALL M3EXIT( PNAME, MDATE, MTIME, XMSG, XSTAT1 ) END IF END DO WRITE( LOGDEV, '( /5X, 3( A, :, 1X ), I8, ":", I6.6 )' ) & 'Timestep written to', CTM_DRY_DEP_MOS, & 'for date and time', MDATE, MTIME IF ( FST ) THEN DO V = 1, N_SPC_DDEP S = DD2DV( V ) WRDD = 0.0 ! reuse array since it has already been written for hour DO R = 1, MY_NROWS DO C = 1, MY_NCOLS DO J = 1, N_LUFRAC WRDD( C,R ) = WRDD( C,R ) + DDEPJ_FST( J,S,C,R ) * Grid_Data%LUFRAC( C,R,J ) WRDDJ_FST( C,R,J ) = DDEPJ_FST( J,S,C,R ) IF ( DDEPJ_FST( J,S,C,R ) .GT. DDEPJ( J,S,C,R ) ) THEN WRITE( LOGDEV,* ) 'FST too big !!!' WRITE( LOGDEV,* ) 'J,S,C,R = ', J, S, C, R WRITE( LOGDEV,* ) 'DDEPJ,DDEPJ_FST: ', DDEPJ( J,S,C,R ), DDEPJ_FST( J,S,C,R ) WRITE( LOGDEV,* ) 'DDEP Species: ', DDEP_SPC( V ) WRITE( LOGDEV,* ) 'Time and date: ', MTIME, MDATE END IF END DO WRDDJ_FST( C,R,N_LUFRAC+1 ) = WRDD( C,R ) ! last array element is total across all land use categories END DO END DO IF ( .NOT. WRITE3( CTM_DRY_DEP_FST, DDEP_SPC( V ), & MDATE, MTIME, WRDDJ_FST ) ) THEN XMSG = 'Could not write ' // CTM_DRY_DEP_FST // ' file' CALL M3EXIT( PNAME, MDATE, MTIME, XMSG, XSTAT1 ) END IF END DO WRITE( LOGDEV, '( /5X, 3( A, :, 1X ), I8, ":", I6.6 )' ) & 'Timestep written to', CTM_DRY_DEP_FST, & 'for date and time', MDATE, MTIME END IF ! FST END IF ! MOSAIC IF ( ABFLUX .OR. HGBIDI ) THEN CALL WRASX_MEDIA( MDATE, MTIME, ABFLUX ) END IF IF ( LIPR ) THEN DO V = 1, N_SPC_DEPV DO R = 1, MY_NROWS DO C = 1, MY_NCOLS DDEP_PA( C,R,V ) = DDEP( V,C,R ) END DO END DO END DO CALL PA_UPDATE_DDEP ( 'VDIF', DDEP_PA, JDATE, JTIME, TSTEP ) END IF C re-set dry deposition array to zero DDEP = 0.0 ICMP = 0.0 IF ( MOSAIC ) THEN DDEPJ = 0.0 ! array assignment IF ( FST ) DDEPJ_FST = 0.0 ! array assignment END IF END IF RETURN END ``` **Notes:** 1. Header comments - Highly recommended for internal documentation. 2. USE includes the Fortran source file specified. 3. IMPLICIT NONE must be used in Fortran 90, i.e., implicit declarations are not supported. This dramatically reduces errors due to typos and undefined variables. 4. Chemical mechanism array dimensioning and looping global variables. 5. C preprocessor flags that determine which emissions control dimensioning and looping variables are compiled. 6. Other global array dimensioning and looping global variables, including those for the I/O API. The logical variable LIPR is defined in the SUBST_PACTL_ID INCLUDE file for use at lines labeled (18). 7. Local variable declaration. Note syntax differences from Fortran-77. 8. Declarations for the argument list (standardized). 9. Declarations and PARAMETER statements for local Fortran parameters, illustrating in-line documentation of variables and units. Note syntax differences from Fortran-77. 10. Declarations for external functions not previously declared. 11. Declarations for arrays to hold external file data. 12. Declarations and definitions for local and saved variables, and dynamic memory allocations. 13. Interface is a convenient way to declare calling arguments to a subroutine as input, output, or both in the calling program through the INTENT variable specification (as IN, OUT, or IN OUT). No other declaration of the calling arguments is necessary in the calling program. If IN only, the values of arguments can be passed explicitly in the subroutine call. If OUT, the argument must be passed as a variable. 14. Code section for subroutine initialization and for any local data that need not be set at every entry into the subroutine. Such data would require a SAVE statement in the declarations. For example, FIRSTIME is initialized to .TRUE. in the local variables section. 15. Illustration of memory allocation for a variable declared as allocatable. In this example, NLAYS is accessed from the COORD.EXT file. 16. Illustrates using an I/O API function to set file interpolation time. 17. Meteorological and other data are read and interpolated through a series of subroutine calls. These subroutines in turn use I/O API utilities to perform the time interpolation of the desired met variables, deposited and emitted species. 18. Call to process analysis routine to obtain data for the optional integrated process rates function. 19. Illustrates call to another science process within the module. 20. Main computational loop over the horizontal grid. 21. Time-step loop over subsynchronization time step intervals. 22. Illustrates writing to an I/O API file within a module. 23. Subroutine end ## Compiling CMAQ with New Source Code The following steps are recommended for compiling CMAQ when a new module has been developed. The procedure creates a Makefile, which can then be modified to add the new module in the appropriate class, but the same steps can be used to obtain a configuration file that can be similarly modified to add the new module. - On the computational platform of choice, install CMAQ using Git. - In the $CMAQ_HOME/CCTM/scripts/ subdirectory, modify a file called bldit.cctm by uncommenting the line “set MakeOpt” (remove the leading ‘#’ character). - Execute the bldit.cctm script. This creates a Makefile as well as a configuration file in the subdirectory $CMAQ_HOME/CCTM/scripts/BLD_CCTM_v52b_{compiler}, where the model code has been copied. - The Makefile can be modified to compile and link the new module by specifying .o for the object file that needs to be linked in. It is essential that a source file with the corresponding name (with extension “.F”) reside in the same directory as the specified path name for the object file. - Issue the “make” command to compile the source code into an executable. ## Guidelines to Writing Shell Scripts for CMAQ To run a model executable, various UNIX environment variables must be set in the shell that invokes the execute command. Generally, these variables involve the modeling scenario start date and time, the run duration, the output time step interval, various internal code flags that differ among the models, and all the input and output logical (symbolic) file names. There are various ways that external file names can be referenced in the source code, and UNIX platforms can link them by using environment variables. There are I/O API utility functions that allow users to easily access these variables in the code in a generic and portable manner. An additional feature that is provided through the I/O API is the ability to declare a file “volatile” by appending a -v flag in the shell’s declaration for the environment variable. By doing this, the I/O API will cause the netCDF file to update (sync) its disk copy after every write and thereby update the netCDF header. Otherwise, netCDF (I/O API) file headers are not updated until the files are closed. This feature is useful, for example, for allowing a user to analyze an open netCDF file using visualization tools while the model is executing. It is also useful in case of a system crash. A CCTM model can be restarted at the scenario time step after the last successful write using the aborted output file as the input initial data. The following is a sample run script that can be downloaded from the CMAS web site. The build and run scripts are part of the downloaded tar file from this site. ```Tcsh #!/bin/csh -f # ====================== CCTMv5.1 Run Script ====================== # Usage: run.cctm >&! cctm_D51a.log & # # To report problems or request help with this script/program: # http://www.cmascenter.org # =================================================================== # ================================================================== #> Runtime Environment Options # ================================================================== #> Choose compiler and set up CMAQ environment with correct #> libraries using config.cmaq. Options: intel | gcc | pgi setenv compiler intel setenv compilerVrsn 13.1 #> Source the config.cmaq file to set the build environment cd ../.. source ./config_cmaq.csh cd CCTM/scripts #> Set General Parameters for Configuring the Simulation set VRSN = v52 #> Code Version set PROC = mpi #> serial or mpi set MECH = cb6r3_ae6_aq #> Mechanism ID set EMIS = 2013ef #> Emission Inventory Details set APPL = SE52BENCH #> Application Name (e.g. Gridname) #> Define RUNID as any combination of parameters above or others. By default, #> this information will be collected into this one string, $RUNID, for easy #> referencing in output binaries and log files as well as in other scripts. setenv RUNID ${VRSN}_${compiler}_${APPL} #> Set the build directory (this is where the CMAQ executable #> is located by default). set BLD = ${CMAQ_HOME}/CCTM/scripts/BLD_CCTM_${VRSN}_${compiler} set EXEC = CCTM_${VRSN}.exe cat $BLD/CCTM_${VRSN}.cfg; echo " "; set echo #> Set Working, Input, and Output Directories setenv WORKDIR ${CMAQ_HOME}/CCTM/scripts #> Working Directory. Where the runscript is. setenv OUTDIR ${CMAQ_DATA}/output_CCTM_${RUNID} #> Output Directory setenv INPDIR ${CMAQ_DATA}/SE52BENCH/single_day/cctm_input #> Input Directory setenv LOGDIR ${OUTDIR} #> Log Directory Location setenv NMLpath ${BLD} #> Location of Namelists. Common places are: #> ${WORKDIR} | ${CCTM_SRC}/MECHS/${MECH} | ${BLD} # ===================================================================== #> CCTM Configuration Options # ===================================================================== #> Set Start and End Days for looping setenv NEW_START TRUE #> Set to FALSE for model restart set START_DATE = "2011-07-01" #> beginning date (July 1, 2011) set END_DATE = "2011-07-01" #> ending date (July 14, 2011) #> Set Timestepping Parameters set STTIME = 000000 #> beginning GMT time (HHMMSS) set NSTEPS = 240000 #> time duration (HHMMSS) for this run set TSTEP = 010000 #> output time step interval (HHMMSS) #> Horizontal domain decomposition if ( $PROC == serial ) then setenv NPCOL_NPROW "1 1"; set NPROCS = 1 # single processor setting else @ NPCOL = 4; @ NPROW = 2 @ NPROCS = $NPCOL * $NPROW setenv NPCOL_NPROW "$NPCOL $NPROW"; endif #> Vertical extent set NZ = 35 #setenv LOGFILE $CMAQ_HOME/$RUNID.log #> log file name; uncomment to write standard output to a log, otherwise write to screen setenv GRID_NAME SE52BENCH #> check GRIDDESC file for GRID_NAME options setenv GRIDDESC $INPDIR/GRIDDESC #> grid description file #> Output Species and Layer Options #> CONC file species; comment or set to "ALL" to write all species to CONC #setenv CONC_SPCS "O3 NO ANO3I ANO3J NO2 FORM ISOP ANH4J ASO4I ASO4J" #setenv CONC_BLEV_ELEV " 1 4" #> CONC file layer range; comment to write all layers to CONC #> ACONC file species; comment or set to "ALL" to write all species to ACONC #setenv AVG_CONC_SPCS "O3 NO CO NO2 ASO4I ASO4J NH3" setenv AVG_CONC_SPCS "ALL" setenv ACONC_BLEV_ELEV " 1 1" #> ACONC file layer range; comment to write all layers to ACONC #setenv ACONC_END_TIME Y #> override default beginning ACON timestamp [ default: N ] setenv EXECUTION_ID $EXEC #> define the model execution id #> Sychronization Time Step and Tolerance Options setenv CTM_MAXSYNC 300 #> max sync time step (sec) [ default: 720 ] setenv CTM_MINSYNC 60 #> min sync time step (sec) [ default: 60 ] setenv SIGMA_SYNC_TOP 0.7 #> top sigma level thru which sync step determined [ default: 0.7 ] #setenv ADV_HDIV_LIM 0.95 #> maximum horiz. div. limit for adv step adjust [ default: 0.9 ] setenv CTM_ADV_CFL 0.95 #> max CFL [ default: 0.75] #setenv RB_ATOL 1.0E-09 #> global ROS3 solver abs tol [ default: 1.0E-07 ] #> Science Options setenv CTM_WB_DUST Y #> use inline windblown dust emissions [ default: Y ] setenv CTM_ERODE_AGLAND Y #> use agricultural activity for windblown dust #> [ default: N ]; ignore if CTM_WB_DUST = N setenv CTM_WBDUST_BELD BELD3 #> landuse database for identifying dust source regions #> [ default: BELD3 ]; ignore if CTM_WB_DUST = N setenv CTM_LTNG_NO Y #> turn on lightning NOx [ default: N ] setenv CTM_WVEL Y #> save derived vertical velocity component to conc #> file [ default: N ] setenv KZMIN Y #> use Min Kz option in edyintb [ default: Y ], #> otherwise revert to Kz0UT setenv CTM_ILDEPV Y #> calculate in-line deposition velocities [ default: Y ] setenv CTM_MOSAIC N #> landuse specific deposition velocities [ default: N ] setenv CTM_ABFLUX Y #> ammonia bi-directional flux for in-line deposition #> velocities [ default: N ]; ignore if CTM_ILDEPV = N setenv CTM_HGBIDI N #> mercury bi-directional flux for in-line deposition #> velocities [ default: N ]; ignore if CTM_ILDEPV = N setenv CTM_SFC_HONO Y #> surface HONO interaction [ default: Y ]; ignore if CTM_ILDEPV = N setenv CTM_GRAV_SETL Y #> vdiff aerosol gravitational sedimentation [ default: Y ] setenv CTM_BIOGEMIS Y #> calculate in-line biogenic emissions [ default: N ] setenv CTM_PT3DEMIS Y #> calculate in-line plume rise for elevated point emissions #> [ default: N ] setenv CTM_ZERO_PCSOA N #> turn off the emissions of the VOC precursor to pcSOA. #> The CMAQ dev team recommends leaving pcSOA mass in the #> model for production runs. [ default: N ] #> Process Analysis Options setenv CTM_PROCAN N #> use process analysis [ default: N] #> process analysis global column, row and layer ranges #> user must check GRIDDESC for validity! setenv PA_BCOL_ECOL "10 320" setenv PA_BROW_EROW "10 195" setenv PA_BLEV_ELEV "1 4" #> I/O Controls setenv IOAPI_LOG_WRITE F #> turn on excess WRITE3 logging [ options: T | F ] setenv FL_ERR_STOP N #> stop on inconsistent input files setenv PROMPTFLAG F #> turn on I/O-API PROMPT*FILE interactive mode [ options: T | F ] setenv IOAPI_OFFSET_64 NO #> support large timestep records (>2GB/timestep record) [ options: YES | NO ] setenv CTM_EMISCHK N #> Abort CMAQ if missing surrogates from emissions Input files #> Aerosol Diagnostic Controls setenv CTM_AVISDIAG Y #> Aerovis diagnostic file [ default: N ] setenv AVG_FILE_ENDTIME N #> What is this [ default: N ] #> Diagnostic Output Flags setenv CTM_CKSUM Y #> cksum report [ default: Y ] setenv CLD_DIAG Y #> cloud diagnostic file [ default: N ] setenv CTM_AERDIAG Y #> aerosol diagnostic file [ default: N ] setenv CTM_PHOTDIAG Y #> photolysis diagnostic file [ default: N ] setenv CTM_SSEMDIAG Y #> sea-salt emissions diagnostic file [ default: N ] setenv CTM_DUSTEM_DIAG Y #> windblown dust emissions diagnostic file [ default: N ]; ignore if CTM_WB_DUST = N setenv CTM_DEPV_FILE Y #> deposition velocities diagnostic file [ default: N ] setenv VDIFF_DIAG_FILE Y #> vdiff & possibly aero grav. sedimentation diagnostic file [ default: N ] setenv LTNGDIAG Y #> lightning diagnostic file [ default: N ] setenv CTM_AOD Y #> AOD diagnostic file [ default: N ] setenv B3GTS_DIAG Y #> beis mass emissions diagnostic file [ default: N ] setenv PT3DDIAG N #> optional 3d point source emissions diagnostic file [ default: N]; ignore if CTM_PT3DEMIS = N setenv PT3DFRAC N #> optional layer fractions diagnostic (play) file(s) [ default: N]; ignore if CTM_PT3DEMIS = N setenv REP_LAYER_MIN -1 #> Minimum layer for reporting plume rise info [ default: -1 ] set DISP = delete #> [ delete | keep ] existing output files # ===================================================================== #> Input Directories and Filenames # ===================================================================== set ICpath = $INPDIR/icbc #> initial conditions input directory set BCpath = $INPDIR/icbc #> boundary conditions input directory set EMISpath = $INPDIR/emis/gridded_area #> surface emissions input directory set IN_PTpath = $INPDIR/emis/inln_point #> elevated emissions input directory (in-line point only) set IN_LTpath = $INPDIR/lightning #> lightning NOx input directory set METpath = $INPDIR/met/mcip #> meteorology input directory #set JVALpath = $INPDIR/jproc #> offline photolysis rate table directory set OMIpath = $BLD #> ozone columne data for the photolysis model set LUpath = $INPDIR/land #> BELD landuse data for windblown dust model set SZpath = $INPDIR/land #> surf zone file for in-line seasalt emissions set ICBC_CASE = 2013ef_v6_13g_s07 #> Version label for the ICBCs set EMIS_CASE = 2013ef_v6_13g_s07_hg #> Version Label for the Emissions # ===================================================================== #> Begin Loop Through Simulation Days # ===================================================================== set TODAYG = ${START_DATE} set TODAYJ = `date -ud "${START_DATE}" +%Y%j` #> Convert YYYY-MM-DD to YYYYJJJ set STOP_DAY = `date -ud "${END_DATE}" +%Y%j` #> Convert YYYY-MM-DD to YYYYJJJ while ($TODAYJ <= $STOP_DAY ) #>Compare dates in terms of YYYYJJJ #> Retrieve Calendar day Information set YYYYMMDD = `date -ud "${TODAYG}" +%Y%m%d` #> Convert YYYY-MM-DD to YYYYMMDD set YYMMDD = `date -ud "${TODAYG}" +%y%m%d` #> Convert YYYY-MM-DD to YYMMDD set YYYYJJJ = $TODAYJ #> Calculate Yesterday's Date set YESTERDAY = `date -ud "${TODAYG}-1days" +%Y%m%d` #> Convert YYYY-MM-DD to YYYYJJJ # ===================================================================== #> Input Files (Some are Day-Dependent) # ===================================================================== #> Initial conditions if ($NEW_START == true || $NEW_START == TRUE ) then setenv ICFILE ICON_20110630_bench.nc rm -rf $LOGDIR/CTM_LOG*${RUNID}* # Remove all Log Files Since this is a new start mkdir -p $OUTDIR else set ICpath = $OUTDIR setenv ICFILE CCTM_CGRID_${RUNID}_${YESTERDAY}.nc endif #> Boundary conditions set BCFILE = BCON_${YYYYMMDD}_bench.nc #> Off-line photolysis rates #set JVALfile = JTABLE_${YYYYJJJ} #> Ozone column data set OMIfile = OMI_1979_to_2015.dat #> Optics file set OPTfile = PHOT_OPTICS.dat #> MCIP meteorology files setenv GRID_BDY_2D $METpath/GRIDBDY2D_${YYMMDD}.nc setenv GRID_CRO_2D $METpath/GRIDCRO2D_${YYMMDD}.nc setenv GRID_CRO_3D $METpath/GRIDCRO3D_${YYMMDD}.nc setenv GRID_DOT_2D $METpath/GRIDDOT2D_${YYMMDD}.nc setenv MET_CRO_2D $METpath/METCRO2D_${YYMMDD}.nc setenv MET_CRO_3D $METpath/METCRO3D_${YYMMDD}.nc setenv MET_DOT_3D $METpath/METDOT3D_${YYMMDD}.nc setenv MET_BDY_3D $METpath/METBDY3D_${YYMMDD}.nc setenv LAYER_FILE $MET_CRO_3D # Deprecated: MET_CRO_3D is now read directly in CCTM #> Emissions files if ( $CTM_PT3DEMIS == 'N' ) then #> Offline 3d emissions file name set EMISfile = emis_mole_all_${YYYYMMDD}_cb6_bench.nc else #> In-line emissions configuration set STKCASEG = 12US1_2011ek_cb6cmaq_v6_11g # Stack Group Version Label set STKCASEE = 12US1_cmaq_cb6e51_2011ek_cb6cmaq_v6_11g # Stack Emission Version Label set EMISfile = emis_mole_all_${YYYYMMDD}_cb6_bench.nc #> Surface emissions setenv NPTGRPS 5 #> Number of elevated source groups setenv STK_GRPS_01 $IN_PTpath/stack_groups/stack_groups_ptnonipm_${STKCASEG}.nc setenv STK_GRPS_02 $IN_PTpath/stack_groups/stack_groups_ptegu_${STKCASEG}.nc setenv STK_GRPS_03 $IN_PTpath/stack_groups/stack_groups_othpt_${STKCASEG}.nc setenv STK_GRPS_04 $IN_PTpath/stack_groups/stack_groups_ptfire_${YYYYMMDD}_${STKCASEG}.nc setenv STK_GRPS_05 $IN_PTpath/stack_groups/stack_groups_pt_oilgas_${STKCASEG}.nc setenv LAYP_STTIME $STTIME setenv LAYP_NSTEPS $NSTEPS setenv STK_EMIS_01 $IN_PTpath/ptnonipm/inln_mole_ptnonipm_${YYYYMMDD}_${STKCASEE}.nc setenv STK_EMIS_02 $IN_PTpath/ptegu/inln_mole_ptegu_${YYYYMMDD}_${STKCASEE}.nc setenv STK_EMIS_03 $IN_PTpath/othpt/inln_mole_othpt_${YYYYMMDD}_${STKCASEE}.nc setenv STK_EMIS_04 $IN_PTpath/ptfire/inln_mole_ptfire_${YYYYMMDD}_${STKCASEE}.nc setenv STK_EMIS_05 $IN_PTpath/pt_oilgas/inln_mole_pt_oilgas_${YYYYMMDD}_${STKCASEE}.nc setenv LAYP_STDATE $YYYYJJJ endif #> Lightning NOx configuration if ( $CTM_LTNG_NO == 'Y' ) then setenv LTNGNO "InLine" #> set LTNGNO to "Inline" to activate in-line calculation #> In-line lightning NOx options setenv USE_NLDN Y #> use hourly NLDN strike file [ default: Y ] setenv LTNGPARAM Y #> use lightning parameter file [ default: Y ] if ( $USE_NLDN == Y ) then setenv NLDN_STRIKES $INPDIR/lightning/NLDN.12US1.${YYYYMMDD}_bench.nc else setenv LOG_START 2.0 #> RC value to transit linear to log linear endif setenv LTNGPARMS_FILE $INPDIR/lightning/LTNG_AllParms_12US1_bench.nc #> lightning parameter file; ignore if LTNGPARAM = N endif #> In-line biogenic emissions configuration if ( $CTM_BIOGEMIS == 'Y' ) then set IN_BEISpath = ${INPDIR}/land set GSPROpath = ${IN_BEISpath} setenv GSPRO $GSPROpath/gspro_biogenics_1mar2017.txt setenv B3GRD $IN_BEISpath/b3grd_bench.nc setenv BIOG_SPRO B10C6 #> speciation profile to use for biogenics setenv BIOSW_YN N #> use frost date switch [ default: Y ] setenv BIOSEASON $IN_BEISpath/bioseason.12US1.2006.09apr2012_bench.nc #> ignore season switch file if BIOSW_YN = N setenv SUMMER_YN N #> Use summer normalized emissions? [ default: Y ] setenv PX_VERSION Y #> MCIP is PX version? [ default: N ] setenv SOILINP $OUTDIR/CCTM_SOILOUT_${RUNID}_${YESTERDAY}.nc #> Biogenic NO soil input file; ignore if NEW_START = TRUE endif #> Windblown dust emissions configuration if ( $CTM_WB_DUST == 'Y' ) then # Input variables for BELD3 Landuse option setenv DUST_LU_1 $LUpath/beld3_12US1_459X299_output_a_bench.nc setenv DUST_LU_2 $LUpath/beld4_12US1_459X299_output_tot_bench.nc setenv MODIS_FPAR $LUpath/modis_bench.nc if ( $CTM_ERODE_AGLAND == 'Y' ) then setenv CROPMAP01 ${INPDIR}/land/BeginPlanting_12km_bench.nc setenv CROPMAP04 ${INPDIR}/land/EndPlanting_12km_bench.nc setenv CROPMAP08 ${INPDIR}/land/EndHarvesting_12km_bench.nc endif endif #> In-line sea salt emisisions configuration setenv OCEAN_1 $SZpath/12US1_surf_bench.nc #> horizontal grid-dependent surf zone file #> Bidiretional ammonia configuration if ( $CTM_ABFLUX == 'Y' ) then setenv E2C_Soilfile ${INPDIR}/land/2011_US1_soil_bench.nc setenv E2C_Fertfile ${INPDIR}/land/2011_US1_time${YYYYMMDD}_bench.nc setenv B4LU_file ${INPDIR}/land/beld4_12kmCONUS_2006nlcd_bench.nc setenv E2C_SOIL ${E2C_Soilfile} setenv E2C_FERT ${E2C_Fertfile} setenv BELD4_LU ${B4LU_file} endif # ===================================================================== #> Output Files # ===================================================================== #> set output file name extensions setenv CTM_APPL ${RUNID}_${YYYYMMDD} #> set output file names setenv S_CGRID "$OUTDIR/CCTM_CGRID_${CTM_APPL}.nc" #> 3D Inst. Concenctrations setenv CTM_CONC_1 "$OUTDIR/CCTM_CONC_${CTM_APPL}.nc -v" #> On-Hour Concentrations setenv A_CONC_1 "$OUTDIR/CCTM_ACONC_${CTM_APPL}.nc -v" #> Hourly Avg. Concentrations setenv MEDIA_CONC "$OUTDIR/CCTM_MEDIA_CONC_${CTM_APPL}.nc -v" #> NH3 Conc. in Media setenv CTM_DRY_DEP_1 "$OUTDIR/CCTM_DRYDEP_${CTM_APPL}.nc -v" #> Hourly Dry Deposition setenv CTM_DEPV_DIAG "$OUTDIR/CCTM_DEPV_${CTM_APPL}.nc -v" #> Dry Deposition Velocities setenv CTM_PT3D_DIAG "$OUTDIR/CCTM_PT3D_${CTM_APPL}.nc -v" #> setenv B3GTS_S "$OUTDIR/CCTM_B3GTS_S_${CTM_APPL}.nc -v" #> Biogenic Emissions setenv SOILOUT "$OUTDIR/CCTM_SOILOUT_${CTM_APPL}.nc" #> Soil Emissions setenv CTM_WET_DEP_1 "$OUTDIR/CCTM_WETDEP1_${CTM_APPL}.nc -v" #> Wet Dep From All Clouds setenv CTM_WET_DEP_2 "$OUTDIR/CCTM_WETDEP2_${CTM_APPL}.nc -v" #> Wet Dep From SubGrid Clouds setenv CTM_VIS_1 "$OUTDIR/CCTM_PMVIS_${CTM_APPL}.nc -v" #> On-Hour Visibility setenv CTM_AVIS_1 "$OUTDIR/CCTM_APMVIS_${CTM_APPL}.nc -v" #> Hourly-Averaged Visibility setenv CTM_ELMO_1 "$OUTDIR/CCTM_ELMO_${CTM_APPL}.nc -v" #> On-Hour Particle Diagnostics setenv CTM_AELMO_1 "$OUTDIR/CCTM_AELMO_${CTM_APPL}.nc -v" #> Hourly Avg. Particle Diagnostic setenv CTM_RJ_1 "$OUTDIR/CCTM_PHOTDIAG1_${CTM_APPL}.nc -v" #> Photolysis Rxn Diagnostics setenv CTM_RJ_2 "$OUTDIR/CCTM_PHOTDIAG2_${CTM_APPL}.nc -v" #> Photolysis Rates Output setenv CTM_SSEMIS_1 "$OUTDIR/CCTM_SSEMIS.${CTM_APPL}.nc -v" #> Sea Spray Emissions setenv CTM_DUST_EMIS_1 "$OUTDIR/CCTM_DUSTEMIS.${CTM_APPL}.nc -v" #> Dust Emissions setenv CTM_IPR_1 "$OUTDIR/CCTM_PA_1_${CTM_APPL}.nc -v" #> Process Analysis setenv CTM_IPR_2 "$OUTDIR/CCTM_PA_2_${CTM_APPL}.nc -v" #> Process Analysis setenv CTM_IPR_3 "$OUTDIR/CCTM_PA_3_${CTM_APPL}.nc -v" #> Process Analysis setenv CTM_IRR_1 "$OUTDIR/CCTM_IRR_1_${CTM_APPL}.nc -v" #> Chem Process Analysis setenv CTM_IRR_2 "$OUTDIR/CCTM_IRR_2_${CTM_APPL}.nc -v" #> Chem Process Analysis setenv CTM_IRR_3 "$OUTDIR/CCTM_IRR_3_${CTM_APPL}.nc -v" #> Chem Process Analysis setenv CTM_DRY_DEP_MOS "$OUTDIR/CCTM_DDMOS_${CTM_APPL}.nc -v" #> Dry Dep setenv CTM_DRY_DEP_FST "$OUTDIR/CCTM_DDFST_${CTM_APPL}.nc -v" #> Dry Dep setenv CTM_DEPV_MOS "$OUTDIR/CCTM_DEPVFST_${CTM_APPL}.nc -v" #> Dry Dep Velocity setenv CTM_DEPV_FST "$OUTDIR/CCTM_DEPVMOS_${CTM_APPL}.nc -v" #> Dry Dep Velocity setenv CTM_VDIFF_DIAG "$OUTDIR/CCTM_VDIFF_DIAG_${CTM_APPL}.nc -v" #> Vertical Dispersion Diagnostic setenv CTM_VSED_DIAG "$OUTDIR/CCTM_VSED_DIAG_${CTM_APPL}.nc -v" #> Particle Grav. Settling Velocity setenv CTM_AOD_1 "$OUTDIR/CCTM_AOD_DIAG_${CTM_APPL}.nc -v" #> Aerosol Optical Depth Diagnostic setenv CTM_LTNGDIAG_1 "$OUTDIR/CCTM_LTNGHRLY_${CTM_APPL}.nc -v" #> Hourly Avg Lightning NO setenv CTM_LTNGDIAG_2 "$OUTDIR/CCTM_LTNGCOL_${CTM_APPL}.nc -v" #> Column Total Lightning NO #> set floor file (neg concs) setenv FLOOR_FILE ${OUTDIR}/FLOOR_${CTM_APPL}.txt #> create output directory if ( ! -d "$OUTDIR" ) mkdir -p $OUTDIR #> look for existing log files and output files set log_test = `ls CTM_LOG_???.${CTM_APPL}` set OUT_FILES = "${FLOOR_FILE} ${S_CGRID} ${CTM_CONC_1} ${A_CONC_1} ${MEDIA_CONC} \ ${CTM_DRY_DEP_1} $CTM_DEPV_DIAG $CTM_PT3D_DIAG $B3GTS_S $SOILOUT $CTM_WET_DEP_1\ $CTM_WET_DEP_2 $CTM_VIS_1 $CTM_AVIS_1 $CTM_ELMO_1 $CTM_AELMO_1 \ $CTM_RJ_1 $CTM_RJ_2 $CTM_SSEMIS_1 $CTM_DUST_EMIS_1 $CTM_IPR_1 $CTM_IPR_2 \ $CTM_IPR_3 $CTM_IRR_1 $CTM_IRR_2 $CTM_IRR_3 $CTM_DRY_DEP_MOS \ $CTM_DRY_DEP_FST $CTM_DEPV_MOS $CTM_DEPV_FST $CTM_VDIFF_DIAG $CTM_VSED_DIAG \ $CTM_AOD_1 $CTM_LTNGDIAG_1 $CTM_LTNGDIAG_2" set OUT_FILES = `echo $OUT_FILES | sed "s; -v;;g" ` echo $OUT_FILES set out_test = `ls $OUT_FILES` #> delete previous output if requested if ( $DISP == 'delete' ) then #> remove previous log files echo " ancillary log files being deleted" foreach file ( $log_test ) echo " deleting $file" /bin/rm -f $file end #> remove previous output files echo " output files being deleted" foreach file ( $out_test ) echo " deleting $file" /bin/rm -f $file end else #> remove previous log files if ( "$log_test" != "" ) then echo "*** Logs exist - run ABORTED ***" echo "*** To overide, set $DISP == delete in run_cctm.csh ***" echo "*** and these files will be automatically deleted. ***" exit 1 endif #> remove previous output files if ( "$out_test" != "" ) then echo "*** Output Files Exist - run will be ABORTED ***" foreach file ( $out_test ) echo " cannot delete $file" /bin/rm -f $file end echo "*** To overide, set $DISP == delete in run_cctm.csh ***" echo "*** and these files will be automatically deleted. ***" exit 1 endif endif #> for the run control ... setenv CTM_STDATE $YYYYJJJ setenv CTM_STTIME $STTIME setenv CTM_RUNLEN $NSTEPS setenv CTM_TSTEP $TSTEP setenv EMIS_1 $EMISpath/$EMISfile setenv INIT_GASC_1 $ICpath/$ICFILE setenv INIT_AERO_1 $INIT_GASC_1 setenv INIT_NONR_1 $INIT_GASC_1 setenv INIT_TRAC_1 $INIT_GASC_1 setenv BNDY_GASC_1 $BCpath/$BCFILE setenv BNDY_AERO_1 $BNDY_GASC_1 setenv BNDY_NONR_1 $BNDY_GASC_1 setenv BNDY_TRAC_1 $BNDY_GASC_1 setenv OMI $OMIpath/$OMIfile setenv OPTICS_DATA $OMIpath/$OPTfile #setenv XJ_DATA $JVALpath/$JVALfile set TR_DVpath = $METpath set TR_DVfile = $MET_CRO_2D #> species defn & photolysis setenv gc_matrix_nml ${NMLpath}/GC_$MECH.nml setenv ae_matrix_nml ${NMLpath}/AE_$MECH.nml setenv nr_matrix_nml ${NMLpath}/NR_$MECH.nml setenv tr_matrix_nml ${NMLpath}/Species_Table_TR_0.nml #> check for photolysis input data setenv CSQY_DATA ${NMLpath}/CSQY_DATA_$MECH if (! (-e $CSQY_DATA ) ) then echo " $CSQY_DATA not found " exit 1 endif if (! (-e $OPTICS_DATA ) ) then echo " $OPTICS_DATA not found " exit 1 endif # =================================================================== #> Execution Portion # =================================================================== #> Print attributes of the executable ls -l $BLD/$EXEC; size $BLD/$EXEC unlimit limit date #> Executable call for single PE, uncomment to invoke # /usr/bin/time $BLD/$EXEC #> Executable call for multi PE, configure for your system # set MPI = /usr/local/intel/impi/3.2.2.006/bin64 # set MPIRUN = $MPI/mpirun time mpirun -r ssh -np $NPROCS $BLD/$EXEC date # =================================================================== #> Finalize Run for This Day and Loop to Next Day # =================================================================== #> Save Log Files and Move on to Next Simulation Day mv CTM_LOG_???.${CTM_APPL} $LOGDIR #> The next simulation day will, by definition, be a restart setenv NEW_START false #> Increment both Gregorian and Julian Days set TODAYG = `date -ud "${TODAYG}+1days" +%Y-%m-%d` #> Add a day for tomorrow set TODAYJ = `date -ud "${TODAYG}" +%Y%j` #> Convert YYYY-MM-DD to YYYYJJJ end #Loop to the next Simulation Day exit ``` ## Testing and Distribution of Development Source Code The CMAS Center collects, tests, and distributes various operational and development versions of CMAQ through the web site [](http://www.cmaq-model.org/). An archive of official releases (both current and past) and development versions of CMAQ is available to the user community. The CMAQ-MADRID and CMAQ-AMSTERDAM developed by AER, Inc. under funding from the Electric Power Research Institute can be downloaded from this archive. As a benefit to the CMAQ community, CMAS periodically updates its documentation on testing such development code versions to include additional feedback as it becomes available, based on users’ experiences with these versions. Questions or comments about development versions of CMAQ such as CMAQ-MADRID should be directed to the developers at AER. Questions or comments about downloading the source code and associated documentation, and on the software development guidelines, may be directed to [](http://www.cmascenter.org/). Based on the insights gained from the testing and archiving of a development version of the model such as CMAQ-MADRID, CMAS recom­mends the following steps as the minimum level of coding and testing practices to be adopted by developers wishing to contribute code to the public CMAQ archive: 1. To make the best use of the CMAQ features in developing new code, the developer should review the coding conventions that are provided in the previous sections of this chapter. Also see [the EPA CMAQ Science Document](http://www.epa.gov/asmdnerl/CMAQ/CMAQscienceDoc.html)]. 2. New code should be built using the current operational CMAQ version as a template whenever possible. This will facilitate consistency in coding practices, including naming conventions, in-line documentation, and the specification of compile time versus run-time parameters. 3. Before submitting source code to the CMAS Center, the developer should verify that the code is consistent with the operational CMAQ version from which it was built, especially in the use of common INCLUDE files (such as horizontal and vertical grid definition files) and run-time parameter settings. Mixing code from different operational versions of the CMAQ model within the same development code version can lead to problems in using the generalized CMAQ scripts. 4. Comprehensive documentation or other references to peer-reviewed literature should be provided for any new science algorithms include in the source code. 5. The developer must document the computational platform used for the testing, including type and speed of the processor(s), the compiler version used, and CPU usage. It is recommended that developers use any combination of the above for testing code intended for release through the CMAS Center, to facilitate benchmarking and portability testing by CMAS staff. Any documentation on potential differences in model outputs between different computing platforms would be useful for end-users who may not be able to duplicate the platform on which the model was initially developed and tested. To this end, code testing and documentation of test results by developers, using more than one platform if available, are highly desirable. 6. The developer should provide all input data for the test case so that interested users may attempt to run the code and reproduce the results on their own platforms. 7. It is recommended that benchmark results from the testing be provided for at least one 5‑day simulation. Shorter simulations do not provide adequate results from which to discern model trends beyond the spin-up period. 8. When making incremental changes to model science, the developer should provide documentation of the results, including (a) the results for all variables that show a deviation of greater than 1.0e10‑6 ppm for the gas-phase species or 1.0e10‑4 µg m‑3 for the particulate species from the base model results for the same case, (b) an analysis of what was done to understand these differences, and (c) conclusions of the analysis. 9. Note that more than one simulation may be necessary to adequately demonstrate seasonal or regional biases, if any, in the results. It is also understood that with models still under development, the analysis may not resolve all differences from the operational model results. It is recommended that these unresolved issues also be documented. Model developers are also recommended to check the CMAS website to see if there are any additional guidelines that have been recommended since the first set listed above. References for Chapter 11: Code Management ---------- Fine, S. S., W. T. Smith, D. Hwang, T. L. Turner, 1998: Improving model development with configuration management, IEEE Computational Science and Engineering, 5(1, Ja-Mr), 56-65. J. Rumbaugh, M. Blaha, W. Premerlani, F. Eddy, and W. Lorensen, 1991: Object-Oriented Modeling and Design, Prentice Hall Young, J. O.,'' ''Integration of Science Code into Models-3, 1999. In *Science Algorithms of the EPA Models-3 Community Multiscale Air Quality (CMAQ) Modeling System*, D. W. Byun and J. K. S. Ching (ed.), EPA/600/R-99/030, U. S. EPA, Research Triangle Park, NC. ================================================ FILE: DOCS/Developers_Guide/readme.pandoc ================================================ pandoc command for creating the PDF pandoc -N --variable geometry:margin=1in --pdf-engine=xelatex --variable version=5.3 --variable title="CMAQv5.3 Developer Guide" --variable subtitle="09/10/2019" -s -o ./PDF/CMAQ_Dev_Guide.pdf CMAQ_Dev_Guide.md Code_Management.md ================================================ FILE: DOCS/Getting_Started.md ================================================ # Getting Started There are many resources available for learning about the CMAQ system. This table will help you find the right starting place for your situation. |**I don't need to run CMAQ but I want to ...**|**Start with**| |:--------------|:----| |... learn about CMAQ's purpose, history and design, as well as see a sample of CMAQ applications. | [US EPA CMAQ Website](https://www.epa.gov/cmaq)| |... learn more about EPA's Community Regional Atmospheric Chemistry Multiphase Mechanism | [CRACMM Webpage](https://www.epa.gov/cmaq/cracmm), [CRACMM Repository](https://usepa.github.io/CRACMM), and [CRACMM Getting Started Turorial](./Users_Guide/Tutorials/CMAQ_UG_tutorial_CRACMM.md)| |... see the model species and chemical reactions in the most recently released version of CMAQ | [Chemical Mechanism Tables][link_chemmech_tables]| |... find data files with CMAQ estimates of air pollutants and deposition | [CMAQ Data page](CMAQ_Data.md)| |... use the CMAQ logo in a presentation | [CMAQ logo graphics files](Logos/README.md) are in the public domain and available to download| |**I'm ready to start running CMAQ and I want to ...**|**Start with**| |... find an overview of the CMAQ system including software requirements, inputs, configuration options, outputs, and analysis tools| [CMAQ's comprehensive User's Guide](./Users_Guide/README.md)| |... start running the model but I'm am not sure where to start | [User's Guide Chapters 2-5](./Users_Guide/README.md) and the [CMAQ Benchmark Tutorial](./Users_Guide/Tutorials/CMAQ_UG_tutorial_benchmark_cracmm2_stage.md)| |... run a new simulation but I need model inputs |[CMAQ Data page](CMAQ_Data.md)| |... start running an instrumented model| CMAQ-DDM-3D: [User's Guide Chapter 10](./Users_Guide/CMAQ_UG_ch10_HDDM-3D.md) and the [DDM-3D Benchmark Tutorial](./Users_Guide/Tutorials/CMAQ_UG_tutorial_DDM3D.md)
CMAQ-ISAM: [User's Guide Chapter 11](./Users_Guide/CMAQ_UG_ch11_ISAM.md) and the [ISAM Benchmark Tutorial](./Users_Guide/Tutorials/CMAQ_UG_tutorial_ISAM.md) | |... run a coupled model | WRF-CMAQ: [User's Guide Chapter 13](./Users_Guide/CMAQ_UG_ch13_WRF-CMAQ.md) and the [WRF-CMAQ Benchmark Tutorial](./Users_Guide/Tutorials/CMAQ_UG_tutorial_WRF-CMAQ_Benchmark.md)
Global MPAS-CMAQ: [MPAS-CMAQ code repository](https://github.com/USEPA/CMAQ/tree/MPAS_CMAQ) and the [MPAS-CMAQ Benchmark Tutorial](https://github.com/USEPA/CMAQ/blob/MPAS_CMAQ/DOCS/Users_Guide/PDF/MPAS_CMAQ_guide.pdf)| |... run CMAQ on a Cloud Service Provider | [CMAS Center tutorial for running CMAQ on Amazon Web Services](https://pcluster-cmaq.readthedocs.io/en/latest/index.html) | |**I'm already running CMAQ and I want to ...**|**Start with**| |... upgrade to the latest version of CMAQ but I'm not sure how my workflow and results will be impacted | [Release Frequently Asked Questions](./Release_FAQ/README.md) | |... see what code changes have happened in a specific section of the model in the last several years | [CMAQ Release Notes](./Release_Notes/README.md)| |... see what bugfixes are available for the most recent release | [Change log for CMAQ Bugfix branch](CMAQ-Bugfix-Branch.md)| |... run a simulation using CMAQ code from the EPA's EQUATES project | [EQUATES Benchmark GitHub repository](https://github.com/lizadams/EQUATES_BENCHMARK)| |**I have a community contribution and I want to ...**|**Start with**| |... contribute code to the CMAQ repository | Contacting [the CMAQ Team](mailto:CMAQ_Team@epa.gov) to learn more| |... share model data with the CMAQ user community | [Data submission form](https://docs.google.com/forms/d/1lH6UdllyVvD-ISATfPxMqwe3Xr6n2ed6AiGkEspxVag/) for the CMAS Center Data Warehouse| [link_chemmech_tables]: ../CCTM/src/MECHS/README.md [link_chemmech_tables]: https://github.com/USEPA/CMAQ/blob/main/CCTM/src/MECHS/README.md ================================================ FILE: DOCS/Logos/README.md ================================================ # CMAQ Logo ![CMAQ_Logo_2inch](./CMAQ_Logo_2inch.png) CMAQ logo graphics files are in the public domain and available to download. * [2 inch CMAQ logo PNG file](CMAQ_Logo_2inch.png) * [CMAQ logo PDF file](CMAQ_Logo.pdf) ================================================ FILE: DOCS/README.md ================================================ CMAQ Documentation ================== This directory contains documentation for the [Community Multiscale Air Quality (CMAQ)](http://www.epa.gov/cmaq) modeling system. While documentation is packaged with the code when it is downloaded or cloned, users are encouraged to go [online](https://github.com/USEPA/CMAQ/tree/main/DOCS) to view the latest version. The following documents are available for each CMAQ release: - **[Getting Started](Getting_Started.md)**: A brief introduction for new and returning users. - **[Release Notes](Release_Notes/README.md)**: Technical notes on the new features and science in this release of CMAQ. - **[CMAQ Bugfix Branch](CMAQ-Bugfix-Branch.md)**: Updates to the continually evolving "+" branch offering the most recent bugfixes or minor updates that improve model stability, efficiency, etc. - **[CMAQ User's Guide](Users_Guide/README.md)**: Instructions on how to set up and run the model and information on CMAQ's different science options and instrumented versions. - **[Tutorials](Users_Guide/Tutorials/README.md)**: A series of short tutorials provide practical examples of how to set up and run CMAQ, exercise different features in the software, and better understand the software system. - **[CMAQ Data](CMAQ_Data.md)**: Links to CMAQ test case data for the latest release, CMAQ-ready input files for multiple domains/years, and CMAQ estimates of air pollutants and deposition. - **[Chemical Mechanism Tables](../CCTM/src/MECHS/README.md)**: Tables of model species and chemical reactions in each chemical mechanism available in the most recently released version of CMAQ. - **[Developers' Guide](Developers_Guide/CMAQ_Dev_Guide.md)**: A guide to version control practices and expectations adopted by the CMAQ development team and enforced on itself and any other collaborators who wish to contribute code. - **[CMAQ logos](Logos)**: .png and .pdf files of the CMAQ logo. ================================================ FILE: DOCS/Release_FAQ/CMAQv5.4-Series-FAQ.md ================================================ # Frequently Asked Questions for Upgrading to CMAQ Version 5.4 ## Table of Contents: * [Do I need to update from v5.3.3 to v5.4?](#why_update_v533_v54) * [What do I need to do to update from v5.3.3 to v5.4?](#update_v533_v54) * [What differences should I expect in the required model input files?](#diff_v533_v54_input_files) * [What differences should I expect in my model output files?](#diff_v533_v54_ouput_files) * [What differences should I expect in my model results with v5.4 compared to v5.3.3?](#diff_v533_v54_model_results) * [Additional FAQ](#additional_faq) * [Technical support for CMAQ](#tech_support) ## Do I need to update from v5.3.3 to v5.4? CMAQv5.4 is a major update from version 5.3.3 including many scientific enhancements and new features. See the v5.4 Release Notes for a description of each change. #### Instrumented Models * CMAQ-ISAM now includes the added flexibility for the user to define how secondarily formed gaseous species (inorganic and organic) are assigned to sources of parent reactants. In addition, several tagclasses were added to CMAQ-ISAM to track the source contributions for HAP. [CMAQ-ISAM Release Notes](../Release_Notes/CMAQ-Release-Notes:-Instrumented-Models:-CMAQ-ISAM.md#cmaq-isam-version-54) * CMAQ-DDM-3D has been fully integrated into the base model. There is no longer a separate repository, and the sensitivity calculations are accessed through compiler flags set in the build script and by completing the appropriate sections of the run script. (*Note that DDM3D is not compatible with the STAGE deposition model in CMAQv5.5.*) [CMAQ-DDM-3D Release Notes](../Release_Notes/CMAQ-Release-Notes:-Instrumented-Models:-CMAQ-DDM3D.md#cmaq-ddm-3d-version-54) #### WRF-CMAQ Coupled Model * The code used to couple the WRFv4.4-CMAQv5.4 models is now released as part of the CMAQ Github Repository. Users can construct the coupled model with any version of WRF (v4.4 or later) and any version of CMAQ (v5.4 or later). A bug was identified within the CMAQ to WRF coupling routine in the CMAQv5.3 series. **Users of WRF-CMAQ are strongly encouraged to update to CMAQv5.4. See the [WRF-CMAQ Release Notes](../Release_Notes/CMAQ-Release-Notes:-WRF-CMAQ-Coupled-Model.md#new-wrf-cmaq-model-using-wrfv44-and-cmaqv54) for more information.** #### Chemistry * Updates to three versions of the Carbon Bond (CB6) chemical mechanisms as well as bug fix updates to SAPRC and RACM: * [CB6r5 Release Notes (including updates to halogen and DMS chemistry)](../Release_Notes/CMAQ-Release-Notes:-Chemistry:-Carbon-Bond-6-Mechanism-(CB6).md#carbon-bond-chemical-mechanism-version-6-release-5--cb6r5) * [CB6r5m (detailed marine halogen chemistry mechanism) Release Note](../Release_Notes/CMAQ-Release-Notes:-Chemistry:-Carbon-Bond-6-Mechanism-(CB6)-with-Detailed-Marine-Halogen-Chemistry.md#detailed-halogen-chemistry-update) * [CB6r5hap (hazardous air pollutants mechanism) Release Note](../Release_Notes/CMAQ-Release-Notes:-Chemistry:-Carbon-Bond-6-Mechanism-(CB6)-with-Hazardous-Air-Pollutants.md#multi-pollutant-version-of-the-cb6r5hap_ae7_aq-mechanism) * [State Air Pollution Research Center (SAPRC) Release Note](../Release_Notes/CMAQ-Release-Notes:-Chemistry:-State-Air-Pollution-Research-Center-(SAPRC).md#removal-of-saprc07tic_ae6i_aq-and-saprc07tic_ae6i_aqkmti-mechanisms) * [Regional and Atmospheric Chemistry (RACM) Release Notes](../Release_Notes/CMAQ-Release-Notes:-Chemistry:-Regional-Atmospheric-Chemistry-Mechanism-(RACM).md#bug-fixes-to-regional-atmospheric-chemistry-mechanism-version-2-racm2) * The Community Regional Atmospheric Chemistry Multiphase Mechanism (CRACMM) is a new chemical mechanism available for the first time in CMAQv5.4. More information about the motivation of CRACMM is available on an [EPA Fact Sheet](https://www.epa.gov/cmaq/cmaq-fact-sheets). CRACMM includes new parameterizations for both the gas and particle species. [CRACMM Release Note](../Release_Notes/CMAQ-Release-Notes:-Chemistry:-Community-Regional-Atmospheric-Chemistry-Multiphase-Mechanism-(CRACMM).md#the-community-regional-atmospheric-chemistry-multiphase-mechanism-cracmm-version-10) * Community partners from Tsinghua University have contributed a research-grade chemical mechanism that implements the Two-Dimensional Volatility Basis Set (2D-VBS) for SOA formation and aging. It is built upon the SAPRC07 gas-phase mechanism and is available from the Github repo via a dedicated branch [('2DVBS')](https://github.com/USEPA/CMAQ/tree/2DVBS). * Multiple bug fixes and science updates to aerosol dynamics. * New two-moment option for particle coagulation. [Release Note](../Release_Notes/CMAQ-Release-Notes:-Chemistry:-Aerosol-Dynamics.md#two-moment-option-for-particle-coagulation) * Bug fix to implementation of sulfuric acid mass transfer from the gas to particle phase in the VOLINORG subroutine. [Release Note](../Release_Notes/CMAQ-Release-Notes:-Chemistry:-Aerosol-Dynamics.md#sulfuric-acid-conservation-in-volinorg) * Bug fix and science update to the aero_check_icbc routine in AERO_DATA.F which checks to make sure that the total aerosol mass, number and surface area are above zero and that they combine to give appropriate modal diameter and standard deviation. [Release Note](../Release_Notes/CMAQ-Release-Notes:-Chemistry:-Aerosol-Dynamics.md#update-aerosol-size-distribution-check-for-ics-and-bcs) * Reclassification of all SOA species as 'dry' aerosol. [Release Note](../Release_Notes/CMAQ-Release-Notes:-Chemistry:-Aerosol-Dynamics.md#reclassify-all-soa-species-as-dry-aerosol) * Simplification of the aerosol chemical namelist. [Release Note](../Release_Notes/CMAQ-Release-Notes:-Chemistry:-Aerosol-Dynamics.md#simplify-aerosol-chemical-namelist) * Updates to the Euler Backward Iterative (EBI) gas-phase chemistry solver. [EBI Release Note](../Release_Notes/CMAQ-Release-Notes:-Chemistry:-Gas-Phase-Chem-Solvers.md#ebi-solver-update) #### Dry Deposition/Air Surface Exchange * New aerosol deposition model implemented in the M3Dry option for dry deposition. [M3DRY Release Note](../Release_Notes/CMAQ-Release-Notes:-Dry-Deposition-Air-Surface-Exchange:-M3DRY.md#new-aerosol-deposition-model-aero_depv) * Structural and aerosol dry deposition updates to the STAGE dry deposition option. [STAGE Release Notes](../Release_Notes/CMAQ-Release-Notes:-Dry-Deposition-Air-Surface-Exchange:-Surface-Tiled-Aerosol-and-Gaseous-Exchange-(STAGE).md#land-use-and-deposition-species-mapping) #### Emissions * Restructuring and other updates to functionality and features of the Detailed Emissions Scaling Isolation and Diagnostics Module. [DESID Release Note](../Release_Notes/CMAQ-Release-Notes:-Emissions-Updates:-Detailed-Emissions-Scaling-Isolation-and-Diagnostics-Module-(DESID).md#restructuring-and-miscellaneous-updates-to-the-desid-interface-and-processing-features) * The Biogenic Emission Inventory System (BEIS) has been updated with new, highly detailed land parameters from the Biogenic Emissions Landuse Database (BELD) version 6. [BEIS4/BELD6 Release Note](../Release_Notes/CMAQ-Release-Notes:-Emissions-Updates:-BEIS-Biogenic-Emissions.md#beis-updates) * New biogenic emissions option, the Model of Emissions of Gases and Aerosols from Nature (MEGAN) allows for estimation of biogenic emissions during the CMAQ simulation for any spatial domain. [MEGAN Release Note](../Release_Notes/CMAQ-Release-Notes:-Emissions-Updates:-Model-of-Emissions-of-Gases-and-Aerosols-from-Nature-(MEGAN)-Biogenic-Emissions.md#new-biogenic-emissions-option-the-model-of-emissions-of-gases-and-aerosols-from-nature-megan) * The windblown dust routine has been streamlined. In addition a bug fix has a substantial impact on estimated dust emissions. [Windblown Dust Release Note](../Release_Notes/CMAQ-Release-Notes:-Emissions-Updates:-Wind-Blown-Dust-Emissions.md#windblown-dust-emissions) * A minor bug fix to the time steps of lightning NOx diagnostic files. The change in the format of the diagnostic file has no impact on model results. [Lightning Emissions Release Note](../Release_Notes/CMAQ-Release-Notes:-Emissions-Updates:-Lightning-Emissions.md#lightning-emissions) #### Process Analysis * A new Budget Reporting Tool is available to quantify the impact of individual model processes on each atmospheric species across the modeling domain. [Budget Reporting Tool Release Notes](../Release_Notes/CMAQ-Release-Notes:-Process-Analysis-&-Sulfur-Tracking-Model-(STM).md#introduction-of-budget-reporting-tool) * A bug fix resolves the omission of organic condensable vapors from aerosol process analysis which impacts use of ISAM and the Budget Reporting Tool. [Process Analysis Bug Fix Release Note](../Release_Notes/CMAQ-Release-Notes:-Process-Analysis-&-Sulfur-Tracking-Model-(STM).md#resolve-omission-of-organic-condensable-vapors-from-aerosol-process-analysis) #### Structural Improvements * Improvement of Logfile output and error reporting. [Logfile Release Note](../Release_Notes/CMAQ-Release-Notes:-Structural-Improvements.md#improvement-of-logfile-output-and-error-reporting) #### Diagnostic Options * Introduction of the Explicit and Lumped air quality Model Output module (ELMO) [ELMO Release Note](../Release_Notes/CMAQ-Release-Notes:-Diagnostic-Options.md#introduction-of-the-explicit-and-lumped-air-quality-model-output-module-elmo) #### Pre-processors and Utilities * A bug fix and script enhancement was made to the create_omi tool which supports the calculation of photolysis rates during the CMAQ simulation. [Create OMI Release Note](../Release_Notes/CMAQ-Release-Notes:-Preprocessors.md#create-omi) * A new Python tool, DMSCHLO, to supplement the 'Ocean' file with temporal dimethyl sulfide (DMS) and chlorophyll-a (CHLO) concentrations to support CMAQ chemical mechanisms that include DMS and halogen chemistry. More information on the updated Ocean file is provided below. [DMSCHLO Release Note](../Release_Notes/CMAQ-Release-Notes:-PYTOOLS.md#dmschlo) #### Post-processors * Removal of appendwrf, bldoverlay and blockextract post-processing tools. * Clarification of W126 Daily Index Computation and Minor Code Corrections in the hr2day post-processing tool. [HR2DAY Release Note](../Release_Notes/CMAQ-Release-Notes:-Postprocessors.md#clarification-of-w126-daily-index-computation-and-minor-code-corrections) #### Utilities * Minor bug fix to create_ebi and inline_phot_prerproc to avoid problems on Window and Macintosh Operating Systems. [Utilities Bug Fix Release Note](../Release_Notes/CMAQ-Release-Notes:-Utilities.md#remove-conflicting-filenames-on-window-and-macintosh-operating-systems) * Introduction of the Autochem utility script that processes new chemical mechanism files, including EBI files if necessary, for user-defined mechanisms when mech.def and chemical namelist files are provided. [Autochem Release Note](../Release_Notes/CMAQ-Release-Notes:-Utilities.md#autochem) * New output files and runtime options for the chemical mechanism processor (CHEMMECH) which allows altering a photochemical mechanisms or using a different mechanism in the CMAQ model. [CHEMMECH Release Note](../Release_Notes/CMAQ-Release-Notes:-Utilities.md#new-output-files-and-runtime-options-for-chemmech) ## What do I need to do to update from v5.3.3 to v5.4? ### What differences should I expect in the required model input files? * The CMAQ sea spray emissions module requires the input of an ocean mask file (OCEAN) containing two variables to specify the fractional [0-1] coverage in each model grid cell allocated to open ocean (OPEN) or surf zone (SURF). Two new mechanisms in CMAQv5.4, cb6r5_ae7 and cb6r5m_ae7, require additional variables to be added to the OCEAN file. See the [v5.4 Release Notes](../Release_Notes/CMAQ-Release-Notes:-Chemistry) and the [CMAQ User's Guide ocean file tutorial](../Users_Guide/Tutorials/CMAQ_UG_tutorial_oceanfile.md) for further information. * The information needed to configure DESID that was contained in a single mechanism-dependent "EmissCtrl" namelist file in CMAQ 5.3 is contained in three separate namelist files in CMAQ 5.4. The new mechanism-dependent namelist file CMAQ_Control_DESID_${mechanism} controls the mapping of emitted species to model species and applies any emission scaling rules desired by the user. The new mechanism-independent namelist file CMAQ_Control_DESID controls DESID behavior for size distributions, definitions of regions, region families, and stream families, the optional emission area normalization feature, and the configuration of optional diagnostic emission output files. The CMAQ_Control_Misc namelist file can be used to define chemical families referenced in the CMAQ_Control_DESID_${mechanism} file and also contains information controlling the behavior of ELMO and the new budget tool. Further documentation can be found in [Appendix B of the Users Guide](../Users_Guide/Appendix/CMAQ_UG_appendixB_emissions_control.md). Like the single mechanism-dependent "EmissCtrl" namelist file in CMAQ 5.3, reviewing and potentially updating these files should be thought of as an integral parts of configuring CCTM for each new application, just like reviewing and updating the run script. * A new CMAQ_Control_STAGE namelist file allows users to add deposition processes to any modeled species without the need to recompile CMAQ. See [Chapter 6 of the CMAQ User's Guide](../Users_Guide/CMAQ_UG_ch06_model_configuration_options.md#682-dry-depostion---stage) for more information. * CRACMM requires specific emissions. More information on Getting Started with CRACMM is available in [a tutorial](../Users_Guide/Tutorials/CMAQ_UG_tutorial_CRACMM.md). * The option of using BELD3 as a windblown dust input has been removed. BELD3 is outdated and in CMAQ 5.3 the windblown dust module did not support BELD4 or BELD5. Beginning in CMAQ 5.4 the necessary land use information for windblown dust is taken from MCIP input files or WRF. For CMAQ 5.4 we strongly recommend the use of WRFv4.1+ and the PX LSM when enabling windblown dust emissions. * The new CCTM online MEGAN biogenic emissions option requires a number of additional input files that need to be generated by the MEGAN preprocessor code. For additional information on these files, see [Chapter 4 of the Users Guide](../Users_Guide/CMAQ_UG_ch04_model_inputs.md). ### What differences should I expect in my model output files? * Two new key output files are generated by the Explicit and Lumped CMAQ Model Output (ELMO) Module. These files are prefixed with CCTM_ELMO and CCTM_AELMO for instantaneous and average files, respectively. The new ELMO files allow users to directly output CMAQ scalars (e.g. O3, SO2, NO, ASO4J, AECJ, etc.) and aggregates (e.g. PM25, PMF_OA, etc.). The existing concentration output files (CCTM_CONC and CCTM_ACONC) are still provided to support your existing workflows, but they will be deprecated and removed in future releases. HEA Please see [Chapter 7](../Users_Guide/CMAQ_UG_ch07_model_outputs.md#ELMO) and [Appendix F](../Users_Guide/Appendix/CMAQ_UG_appendixF_elmo_output.md) of the CMAQ User's Guide for detailed information. * A new ascii file for output of Budget information (CCTM_BUDGET_xxx.txt) reports domain-wide process magnitudes. The destination folder must be specified in the RunScript with $OUTDIR or the file will be written to the root directory. Please see [Chapter 9 of the CMAQ User's Guide](../Users_Guide/CMAQ_UG_ch09_process_analysis.md) for more information on the Budget tool. * The SOILOUT output file for the CCTM online BEIS biogenic emissions option has been renamed to CCTM_BSOILOUT_\*. The new CCTM online MEGAN biogenic emissions option SOILOUT file is called CCTM_MSOILOUT_\*. When using the the BDSNP option in MEGAN (i.e., environment variable BDSNP_MEGAN set to Y) there is an additional output file called CCTM_BDNSP_\*. Please see [Chapter 7 of the CMAQ User's Guide](../Users_Guide/CMAQ_UG_ch07_model_outputs.md#soilout) for more information on BEIS and MEGAN output files. ## What differences should I expect in my model results with v5.4 compared to v5.3.3? The following summary is based on our testing of CMAQv5.3.3 and CMAQv5.4 base configurations and two CMAQv5.4 science options (MEGAN inline biogenic emissions and CRACMM1 chemical mechanism) using annual 2018 simulations performed over both the northern hemisphere (108 km horizontal grid spacing, 44 vertical layers) and the CONUS (12 km horizontal grid resolution, 35 vertical layers). The 108 km simulations were used to generate lateral boundary conditions for the 12 km simulations, with science options (except chemical mechanisms) matching across both domains. All CMAQv5.4 108 km simulations used the cb6r5m_ae7_aq chemical mechanism that includes a detailed representation of halogen chemistry while the 12 km simulations used either the cb6r5_ae7_aq (simplified halogen chemistry) or cracmm1 chemical mechanism. CMAQv5.3 simulations used cb6r3m_ae7_kmtbr for the 108 km domain and cb6r3_ae7_aq for the 12km domain. The updates made to the representation of aerosol dry deposition in CMAQv5.4 differ markedly between the M3Dry and STAGE dry deposition schemes. CMAQv5.4 M3Dry updates are based on on Pleim et al., 2022 ([see M3DRY release notes](../Release_Notes/CMAQ-Release-Notes:-Dry-Deposition-Air-Surface-Exchange:-M3DRY.md#new-aerosol-deposition-model-aero_depv)) and STAGE updates in its default configuration are based on Emerson et al., 2020 ([see STAGE release notes](../Release_Notes/CMAQ-Release-Notes:-Dry-Deposition-Air-Surface-Exchange:-Surface-Tiled-Aerosol-and-Gaseous-Exchange-(STAGE))). Because of these differences, the impacts of switching from CMAQv5.3.3 to CMAQv5.4 differ depending on whether users select the M3Dry or STAGE dry deposition scheme. Therefore, all simulations comparing the base configurations and the MEGAN and CRACMM1 science options available in CMAQv5.4 were performed for both M3Dry and STAGE and results for both schemes are summarized below. #### Natural Emissions * BEIS inline biogenic VOC and soil NO emissions: The update from BEIS3/BELD5 used in CMAQv5.3.3 to BEIS4/BELD6 used in CMAQv5.4 to calculate biogenic VOC and soil NO inline in CCTM caused the following changes to annual domain-total emissions in our 2018 CONUS simulations: isoprene emissions changed from 13.8 to 16.9 Tg, monoterpene emissions changed from 4.3 to 4.0 Tg, sesquiterpene emissions changed from 0.6 Tg to 0.5 Tg, methanol emissions changed from 1.3 to 1.4 Tg, CO emissions changed from 5.3 to 4.2 Tg, and soil NO emissions remained essentially unchanged at 1.1 Tg. * MEGAN3.2 inline biogenic VOC and soil NO emissions: In our 2018 CONUS simulations with CMAQv5.4, using MEGAN3.2 with its default Yienger-Levy option to calculate biogenic VOC and soil NO inline in CCTM caused the following changes to annual domain-total emissions compared to using BEIS4/BELD6 to calculate biogenic VOC and soil NO inline in CCTM: isoprene emissions changed from 16.9 to 18.2 Tg, monoterpene emissions changed from to 4.0 to 8.9 Tg, sesquiterpene emissions changed from 0.5 to 1.2 Tg, methanol emissions changed from 2.3 to 4.0 Tg, CO emissions changed from 4.2 to 2.2 Tg, and soil NO emissions changed from 1.1 to 0.9 Tg. In our 2018 northern hemispheric simulations with CMAQv5.4, using MEGAN3.2 with its default Yienger-Levy option to calculate biogenic VOC and soil NO inline in CCTM caused the following changes to annual domain-total emissions compared to using offline biogenic VOC and soil NO emissions from CAMS: isoprene emissions changed from 254 Tg to 230 Tg, monoterpene emissions changed from 38 Tg to 121 Tg, sesquiterpene emissions changed from 10.8 Tg to 17.3 Tg, methanol emissions changed from 71.0 to 43.6 Tg, CO emissions changed from 46.5 to 24.2 Tg, and soil NO emissions changed from 10.8 Tg to 6.1 Tg. When using the MEGAN3.2 BDSNP option instead of the Yienger-Levy option to estimate soil NO emissions for our 2018 northern hemisphere simulations, the annual domain-total soil NO emissions were 20.9 Tg. * Windblown dust emission: the impacts of fixing a bug in soil indexing when using WRFv4+ runs with the Pleim-Xiu land-surface model as input to the CCTM inline windblown dust emissions scheme vary spatially and temporally. The net impact on our 108 km hemispheric domain was an increase of domain-total annual fine PM emissions from 36 Tg to 98 Tg. We did not enable the windblown dust option in our CMAQv5.4 testing simulations over the 12 km CONUS domain. ### Ozone * Widespread increases in seasonal mean ozone from CMAQv5.3.3 to CMAQv5.4 in the base configuration over most of the domain. Increases range from 1-4 ppbV during winter, 1-7 ppbV during spring, and 1-2.5 ppbV during fall. During summer, increases of 1-2.5 ppbV are more localized over the Eastern U.S. and northwestern portion of the CONUS modeling domain. * Much of this increase is due to updates of the detailed halogen chemistry used for the 108 km hemispheric domain that led to less ozone depletion by halogens outside of the summer season. Therefore, the largest ozone increases in the 12 km CONUS domain are seen in regions most directly affected by ozone inflow from the boundaries, i.e. the western and northern portions of the modeling domain. Separate incremental tests performed over shorter time periods for two other science updates in CMAQv5.4 (BEIS4 inline biogenic emissions with BELD6 land use and chemical mechanism update from cb6r3_ae7_aq to cb6r5_ae7_aq) showed that these updates had only smaller and more localized impacts on ozone mixing ratios. * Using CMAQv5.4 inline MEGAN to estimate biogenic VOC and soil NO (Yienger-Levy approach) decreases ozone by 1 – 7 ppbV compared to the CMAQv5.4 base configuration (offline CAMS for the 108 km domain and inline BEIS4 for the 12 km domain). The decrease is most pronounced during summer and fall. * Using CRACMM1 instead of cb6r5_ae7 for the CMAQv5.4 caused changes of less than +/- 0.8 ppbV during spring, fall, and winter over almost all land grid cells in the modeling domain. During summer, small increases ranging from 1 – 2.5 ppbV were found over the southwestern, central, northeastern, and coastal southeastern portions of the modeling domain. * All of the ozone comparisons discussed above (CMAQv5.4 vs. CMAQv5.3.3 base configuration and CMAQv5.4 MEGAN and CRACMM1 science options vs. CMAQv5.4 base configuration) generally hold true for both the M3Dry and STAGE dry deposition schemes. * **Summary**: Large-scale ozone estimates increase by 1-7 ppbV during non-summer seasons in CMAQv5.4 compared to CMAQv5.3.3 when using detailed halogen chemistry. Using inline MEGAN on both the 108 km and 12 km domains decreases ozone by 1-7 ppbV relative to the CMAQv5.4 base configuration for biogenic VOC and soil NO, depending on season and region. Using CRACMM1 on the 12 km domain causes little change in seasonal mean ozone relative to the CMAQv5.4 base configuration, with only smaller increases of 1 – 2.5 ppbV during summertime over portions of the modeling domain ### PM2.5 * PM2.5 mass and species concentrations were affected by several updates in CMAQv5.4 relative to CMAQv5.3.3: updates to aerosol dry deposition in both M3Dry and STAGE (though updates differ between the schemes), increased wind-blown dust emissions causing increased long-range transport in the 108 km domain and inflow to the 12 km domain, increased isoprene and decreased monoterpene emissions from BEIS4/BELD6, and the addition of DMS in cb6r5. No annual unit tests were performed to quantify the impacts of each individual factor on seasonal average PM2.5 concentrations. * In our 12 km simulations with the M3Dry dry deposition option, there were wide-spread decreases of total PM2.5 from CMAQv5.3.3 to CMAQv5.4 in the portions of the domain with the highest vegetation coverage, i.e. the northwestern, northern, and eastern portions of the domain. This suggests that increased aerosol dry deposition dominated over other effects in these regions. Decreases in seasonal average concentrations reached 1-2 µg/m3 during summer and were smaller during other seasons. The only exception to this general pattern of PM2.5 decreases was springtime over the Southwestern U.S. where the effects of the increased inflow appeared to outweigh the effects of the increased aerosol dry deposition and seasonal mean PM2.5 increased by about 0.5 µg/m3 in CMAQv5.4 * In our 12 km simulations with the STAGE dry deposition option, there were regions of both increases and decreases of 0.5 – 1 µg/m3 in all seasons going from CMAQv5.3.3 to CMAQv5.4 except for winter when there were only limited regions with small increases. The largest decreases occurred over the northwestern and northern portions of the modeling domain as well as regions along the Gulf Coast. The largest increases occurred over the Southwestern region during spring and parts of the Southeast and Midwest during summer. * Using CMAQv5.4 inline MEGAN to estimate biogenic VOC and soil NO (Yienger-Levy approach) increases summertime organic aerosol mass by 1-2 µg/m3 over the Southeastern U.S. compared to the CMAQv5.4 base configuration (offline CAMS for the 108 km domain and inline BEIS4 for the 12 km domain), likely driven by the significant increase in estimated monoterpene emissions. The simulated organic aerosol and total PM2.5 increases are larger in forested equatorial regions of the 108 km domain. * Using CRACMM1 instead of cb6r5_ae7 for the CMAQv5.4 simulations caused small but fairly wide-spread PM2.5 increases of about 0.5 µg/m3 in most seasons for both M3Dry and STAGE, with hardly any regions showing decreases of more than 0.25 µg/m3 in any season. * **Summary**: When using M3Dry, there were wide-spread decreases of total PM2.5 from CMAQv5.3.3 to CMAQv5.4, with the largest decreases (1-2 µg/m3) occuring during summer over vegetated regions. When using STAGE, there were regions of both increases and decreases of 0.5 – 1 µg/m3 in all seasons except winter going from CMAQv5.3.3 to CMAQv5.4. Using CMAQv5.4 inline MEGAN to estimate biogenic VOC and soil NO (Yienger-Levy approach) increases summertime organic aerosol mass by 1-2 µg/m3 over the Southeastern U.S. compared to the CMAQv5.4 base configuration. Using CRACMM1 instead of cb6r5_ae7 for the CMAQv5.4 simulations caused small but fairly wide-spread PM2.5 increases of about 0.5 µg/m3 in most seasons using both M3Dry and STAGE. ### Deposition * When using M3Dry, total N dry deposition increased by about 10-40% from CMAQv5.3.3 to CMAQv5.4 over large portions of the domain during all seasons. Conversely, total N wet deposition decreased by 10-20% over large portions of the domain during all seasons. Combined wet+dry deposition of total N showed more limited changes, with changes of less than +/-5% across a large portion of the domain in all seasons. Increases of 10-30% in combined wet+dry deposition of total N were seen for limited areas in the western and northern portions of the modeling domain. Results for total S deposition were qualitatively similar to the results for total N deposition (increases in dry deposition, decreases in wet deposition, and less pronounced and more variable changes for combined wet+dry deposition). The contrast between dry and wet deposition is consistent with the notion of increased aerosol dry deposition velocities in M3Dry being the main driver of these changes, with increased dry deposition velocities increasing dry deposition fluxes and in turn reducing ambient concentrations and aerosol mass available for wet deposition through scavenging. * When using STAGE, the changes in wet, dry, and combined wet+dry deposition of total N and S going from CMAQv5.3.3 to CMAQv5.4 show more variability across regions and seasons, with all of these variables showing both increases and decreases in all seasons. Moreover, some regions and seasons experienced increases in dry, wet, and wet+dry N and S deposition, indicating that changes in these deposition fluxes were not always dominated by changes to aerosol dry deposition velocities. * Using CMAQv5.4 inline MEGAN to estimate biogenic VOC and soil NO (Yienger-Levy approach) instead of CAMS (108 km domain) or CMAQv5.4 inline BEIS (12 km domain) did not have any significant impacts on simulated wet, dry, and combined wet+dry deposition of total N and S. * Using CRACMM1 instead of cb6r5_ae7 for the CMAQv5.4 simulations caused relatively small (<15%) decreases in dry, wet, and wet+dry N deposition especially during winter, changes of generally less than +/-5% for dry S deposition, and more widespread deceases of 10-20% for wet and wet+dry S deposition over the Eastern U.S during spring, fall, and especially summer. * **Summary**: For M3Dry, going from CMAQv5.3.3 to CMAQv5.4 leads to consistent increases of 10-40% in total N dry deposition, general decreases of 10-20% in total N wet deposition, and more limited and variable changes in combined wet+dry total N deposition, with qualitatively similar changes for total S deposition. For STAGE, changes in all variables show more variability across regions and seasons. The use of CRACMM1 results in small decreases in N deposition especially during winter and 10-20% decreases for wet and wet+dry S deposition over the Eastern U.S. especially during summer. ## Additional FAQ A more general list of Frequent CMAQ Questions can be found on our website: https://www.epa.gov/cmaq/frequent-cmaq-questions ## Technical support for CMAQ Technical support for CMAQ, including questions about model inputs, downloading, compiling, and running the model, and pre- and post-processing utilities, should be directed to the [CMAS Center User Forum](https://forum.cmascenter.org/). [**Please read and follow these steps**](https://forum.cmascenter.org/t/please-read-before-posting/1321) prior to submitting new questions to the User Forum. ================================================ FILE: DOCS/Release_FAQ/CMAQv5.5-Series-FAQ.md ================================================ # Frequently Asked Questions for Upgrading to CMAQ Version 5.5 ## Table of Contents: * [Do I need to update from v5.4 to v5.5?](#why_update_v54_v55) * [What do I need to do to update from v5.4 to v5.5?](#update_v54_v55) * [What differences should I expect in the required model input files?](#diff_v54_v55_input_files) * [What differences should I expect in my model output files?](#diff_v54_v55_ouput_files) * [What differences should I expect in my model results with v5.5 compared to v5.4?](#diff_v54_v55_model_results) * [Are there new benchmark data and documentation updates?](#data_and_docs) * [Community contributions](#community_contributions) * [How to cite CMAQ](#how_to_cite) * [Additional FAQ](#additional_faq) * [Technical support for CMAQ](#tech_support) ## Do I need to update from v5.4 to v5.5? CMAQv5.5 includes many scientific enhancements and new features that will benefit certain applications. See the v5.5 Release Notes for a description of each change. #### Instrumented Models * Several updates were incorporated in CMAQ-ISAM: (1) includes the capability to quantify source contributions to total secondary organic aerosol (SOA) and individual species; (2) accounts for the loss of aerosol mass from gravitational settling was incorporated, so that the tagged and bulk concentrations matched more precisely; (3) incorporates a tag to attribute O3 to be of “stratospheric origin” based on the PV-scaling methodology; (4) addressed instabilities associated with mass distribution between tags immediately after cloud chemistry. See: [CMAQ-ISAM Release Notes](../Release_Notes/CMAQ-Release-Notes:-Instrumented-Models:-CMAQ-ISAM.md) for more information. * In CMAQ-DDM: (1) enabled estimation of sensitivity of O3 to PV-O3 specification; (2) corrected calculation of second-order sensitivity in chemistry routines; (3) corrected error that caused incorrect dry deposition sensitivity in output. See [CMAQ-DDM Release Notes](../Release_Notes/CMAQ-Release-Notes:-Instrumented-Models:-CMAQ-DDM3D.md#cmaq-hddm-3d-second-order-sensitivity-fix) for more information. *Note that DDM-3D is not compatible with the STAGE deposition model in CMAQv5.5.* #### On-line coupling of CMAQ with meteorological models * CMAQv5.5 is the first public release that allows coupling of CMAQ with the Model for Prediction Across Scales (MPAS). Please see the [MPAS-CMAQ release note](../Release_Notes/CMAQ-Release-Notes:-MPAS-CMAQ-Coupled-Model.md) to learn more. * A bug was identified within the CMAQ to WRF coupling routine in the CMAQv5.4 series; layer heights were incorrectly being assigned to wind speed in the plume rise calculations leading to erroneous allocation of point source emissions. Users of WRF-CMAQ are strongly encouraged to update to CMAQv5.5. See the [WRF-CMAQ Release Notes](../Release_Notes/CMAQ-Release-Notes:-WRF-CMAQ-Coupled-Model.md#new-wrf-cmaq-model-using-wrfv44-and-cmaqv54) for more information. #### Chemistry * In the Community Regional Atmospheric Chemistry Multiphase Mechanism version 1 (CRACMM1), the rate of sulfate catalyzed IEPOX was updated. The impact is to increase sulfate (as less sulfate is taken up as organosulfate) and to decrease organic aerosol. If you are interested in learning more, please see the [CRACMM1 release note](../Release_Notes/CMAQ-Release-Notes:-Chemistry:-Community-Regional-Atmospheric-Chemistry-Multiphase-Mechanism-(CRACMM).md#bug-fixes-for-cracmm1-iepox-uptake-rate). * CMAQv5.5 introduces CRACMM version 2. CRACMM2 includes several updates to CRACMM1. Many updates are intended to improve the representation of secondary formaldehyde (HCHO) in CRACMM. These include the incorporation of the AMORE v1.2 isoprene condensation into the primary CRACMM mechanism, updates to HCHO yields from monoterpenes, and the addition of styrene as a new explicit species. Additional updates include changes to monoterpene nitrates that affect SOA formation and NOx recycling, the inclusion of emitted methane (ECH4), heterogeneous uptake of HO2 and NO3 radicals, and changes in how emissions of certain aromatic species are mapped to CRACMM species. If you are interested in learning more, please see the [CRACMM2 release note](../Release_Notes/CMAQ-Release-Notes:-Chemistry:-Community-Regional-Atmospheric-Chemistry-Multiphase-Mechanism-(CRACMM).md#updated-mechanism-cracmm2). * The photolysis module was updated to correct an error in calculation of cloud optical depth for grid cells with sub-grid/convective clouds. The net impact is to increase the attenuation of photolysis frequencies under cloudy conditions. Please see the [photolysis release note](../Release_Notes/CMAQ-Release-Notes:-Chemistry:-Photolysis.md) to learn more. #### Dry Deposition/Air Surface Exchange * In STAGE, updates were made to land use mappings to an internal land use category via CMAQ_Control_STAGE.nml that is user customizable. Updates were also made to rectify an underflow encountered in the STAGE Emerson in debug mode. See the [STAGE release notes](../Release_Notes/CMAQ-Release-Notes:-Dry-Deposition-Air-Surface-Exchange:-Surface-Tiled-Aerosol-and-Gaseous-Exchange-(STAGE).md) to learn more. * In M3DRY, (1) changes to Ammonia (NH3) deposition in M3DRY for model configurations without NH3 BIDI, (2) changes to NH3 dry deposition flux and NH3 emissions flux calculations in M3DRY, upward and downwards fluxes changed, but net flux remains the same. See the [M3DRY release note](../Release_Notes/CMAQ-Release-Notes:-Dry-Deposition-Air-Surface-Exchange:-M3DRY.md#revised-dry-dep-flux-for-nh3) to learn more. #### Stratosphere-Troposphere Exchange * Removed dependency on sigma-P coordinate system in PV-O3 scaling. The update impacted O3 distributions between 300-100hPa and generally improved model estimates relative to observations at these levels. See the [Stratospheric-Troposphere exchange release note](../Release_Notes/CMAQ-Release-Notes:-Stratospheric‐Tropospheric-Exchange-(STE))for more information. #### Emissions * Updates to the in-line version of MEGAN BDSNP, which corrects a bug in the pulsing subroutine of BDSNP (small impact on estimated soil NO). See the [MEGAN-BDSNP](../Release_Notes/CMAQ-Release-Notes:-Emissions-Updates:-Model-of-Emissions-of-Gases-and-Aerosols-from-Nature-(MEGAN)-Biogenic-Emissions.md#bdsnp-dry-hours-calculation.md) to learn more. #### Process Analysis & Sulfur Tracking Model (STM) * Fixes to Sulfur Tracking Model (STM) correct errors in attribution of sulfate from gas phase chemistry, which inadvertently got introduced in the previous model version. See [CMAQ-STM Release Notes](../Release_Notes/CMAQ-Release-Notes:-Process-Analysis-&-Sulfur-Tracking-Model-(STM).md#fix-to-option-for-sulfur-tracking-model) for more information. #### Structural Improvements * Updated model code and run-scripts so that PV-O3 scaling can be invoked now as a runtime option. See the [Stratospheric-Troposphere exchange release note](../Release_Notes/CMAQ-Release-Notes:-Stratospheric‐Tropospheric-Exchange-(STE)) for more information. #### Diagnostic Options * Updates to ELMO to fix erroneous output for various PM aggregates (PMF_OC, PMF_NCOM, TNO3, etc.). See the [Diagnostic Options](../Release_Notes/CMAQ-Release-Notes:-Diagnostic-Options.md) release notes to learn more. #### Pre-processors and Utilities * MCIP: Updates were implemented to the definition of grid origin for fine-scale lambert conformal grids (i.e. < 4km resolution). See the [MCIP release note](../Release_Notes/CMAQ-Release-Notes:-Preprocessors.md#mcip) for additional details. #### Post-processors * Corrected deposition SpecDef for NOy species. See [release note](../Release_Notes/CMAQ-Release-Notes:-Postprocessors.md#corrected-deposition-species-definition-specdef_dep-files-for-missing-nitrogen-species) for more information. * Improved checks on formulas used by Combine. See [combine release note](../Release_Notes/CMAQ-Release-Notes:-Postprocessors.md#improve-checks-on-formulas-used-by-combine) for more details. * Increase character limit for station ID in sitecmp_dailyO3 to accommodate emerging networks. See [Site Compare Daily O3 release note](../Release_Notes/CMAQ-Release-Notes:-Postprocessors.md#sitecmp_dailyo3) for more details. * Updated time zone csv file used to time shift CMAQ outputs in HR2DAY program to version 4.1.0 released by Natural Earth. Minor impacts on h2day calculations due to time zone updates. See [HR2DAY release note](../Release_Notes/CMAQ-Release-Notes:-Postprocessors.md#updating-tzcsv-to-natural-earth) for more details. #### Python Tools * New Python tool to create CMAQ-ready grid masks from a shape file for defining regions and region families with DESID and using geographic source regions when running CMAQ-ISAM. See [CMAQ-Python tools release note](../Release_Notes/CMAQ-Release-Notes:-PYTOOLS.md#shp2cmaq-create-cmaq-ready-file-from-shapefile). for more details. ## What do I need to do to update from v5.4 to v5.5? ### What differences should I expect in the required model input files? * If you have already successfully migrated to v5.4, you will not need to any additional input to run with the analogous options in v5.5. However, if you trying to run with the newest released version of CRACMM in v5.5, users will have to generate or map existing emissions to CRACMMv2.0. For additional information on emissions for CRACMMv2.0 please see the [CRACMM GitHub Page](https://github.com/USEPA/CRACMM/tree/main/emissions). ### What differences should I expect in my model output files? * The photolysis diagnostic files were updated to include additional variables (e.g., absorption AOD) that may help in evaluation of optical properties against measurements. ## What differences should I expect in my model results with v5.5 compared to v5.4? The following summary is based on our testing of CMAQv5.4 and CMAQv5.5 using annual 2018 simulations performed over both the northern hemisphere (108 km horizontal grid spacing, 44 vertical layers) and the CONUS (12 km horizontal grid resolution, 35 vertical layers). The 108 km simulations were used to generate lateral boundary conditions for the 12 km simulations, with science options (except chemical mechanisms & bidi-directional ammonia exchange) matching across both domains. All CMAQv5.5 108 km simulations used the cb6r5m_ae7_aq chemical mechanism that includes a detailed representation of halogen chemistry while the 12 km simulations used either the cb6r5_ae7_aq (simplified halogen chemistry) or cracmm2 chemical mechanisms. The CMAQv5.4 108 km simulations used the cb6r5m_ae7_aq chemical mechanism while the 12 km simulations used either the cb6r5_ae7_aq (simplified halogen chemistry), or cracmm1 chemical mechanisms. The updates made to the representation of aerosol dry deposition in CMAQv5.4 differ markedly between the M3Dry and STAGE dry deposition schemes. CMAQv5.4 M3Dry updates are based on on [Pleim et al., 2022](https://doi.org/10.1029/2022MS003050) ([see M3DRY release notes](../Release_Notes/CMAQ-Release-Notes:-Dry-Deposition-Air-Surface-Exchange:-M3DRY.md#new-aerosol-deposition-model-aero_depv)) and STAGE updates in its default configuration are based on [Emerson et al., 2020](https://doi.org/10.1073/pnas.2014761117) ([see STAGE release notes](./CMAQ-Release-Notes:-Dry-Deposition-Air-Surface-Exchange:-Surface-Tiled-Aerosol-and-Gaseous-Exchange-(STAGE).md)). To investigate whether the impacts of switching from CMAQv5.4 to CMAQv5.5 differ depending on whether users select the M3Dry or STAGE dry deposition scheme, all simulations comparing v5.4 and v5.5 were performed for both M3Dry and STAGE and results for both schemes are summarized below #### Natural Emissions * Emissions from natural sources (e.g., lightning, wind-blown dust, biogenic emissions) remained the same in v5.5 when compared to v5.4. ### Ozone * v5.5 CB6 - v5.4 CB6: ~0.2 ppbV increase in seasonal domain mean ozone mixing ratio from CMAQv5.5 to CMAQv5.4 with larger isolated differences in individual grid cells depending on sub-grid convective cloud activity. This difference is attributed to the updates in the photolysis module to properly capture impacts of sub-grid clouds. * v5.5 CRACMM2 - v5.4 CRACMM1: Increase of 1-2 ppbV seasonal domain mean surface ozone mixing ratio in warmer months, especially in eastern US. Decrease of 1 ppbV season domain mean surface ozone mixing ratio in the winter, particularly in the eastern US. These changes are mostly due to updates to Isoprene chemistry [Skipper et al., 2024, preprint](https://doi.org/10.5194/egusphere-2024-554). * All of the ozone comparisons discussed above (CMAQv5.5 CB6 vs. CMAQv5.4 CB6 and CMAQv5.5 CRACMM2 vs. CMAQv5.4 CRACMM1) generally hold true for both the M3Dry and STAGE dry deposition schemes. * **Summary**: Minor increase in seasonal mean ozone mixing ratio due to corrections in photolysis module for the CB6 system, with larger more transient impacts due to sub-grid convective activity. Updates to the CRACMM system in CMAQv5.5 increase ozone mixing ratio during warmer months, while decreasing ozone in the winter particularly in the eastern US. ### PM2.5 * v5.5 CB6 - v5.4 CB6: In simulations without ammonia bi-directional exchange, there is less than 0.1 of a µg/m3 impact on seasonal surface mean PM fine concentrations, except for regions of extreme aerosol loading which has an increase in winter and slight decrease in summer. These changes are mostly due to updates to the uni-directional ammonia (NH3) deposition, where ammonia deposition is now scaled by leaf area index. For simulations with ammonia bi-directional exchange, there is little to no impact from incrementing from v5.4 to v5.5. * v5.5 CRACMM2 - v5.4 CRACMM1: Widespread 0.5 - 1 ug/m3 decrease in seasonal mean PM fine concentrations over most of the modeling domain. Reductions driven by treatment of monoterpene nitrates and highly oxygenated organic molecules (HOM) formation ([Skipper et al., 2024, preprint](https://doi.org/10.5194/egusphere-2024-554). Summer mean sulfate concentrations increased by 0.1 - 0.5 ug/m3 over the Southeastern U.S. due to the updates to the rate of sulfate catalyzed IEPOX which also contributed to the decrease in organic aerosols ([Vannucci et al, 2024](https://doi.org/10.1021/acsearthspacechem.3c00333)). * All of the PM Fine comparisons discussed above (CMAQv5.5 CB6 vs. CMAQv5.4 CB6 and CMAQv5.5 CRACMM2 vs. CMAQv5.4 CRACMM1) generally hold true for both the M3Dry and STAGE dry deposition schemes. * **Summary**: Very minor change in seasonal mean PM fine concentrations for simulations without bidi directional ammonia exchange. Updates to the CRACMM system caused a decrease in seasonal mean PM fine concentrations over most of the modeling domain. ### Deposition * v5.5 CRACMM2 - v5.4 CRACMM1: Changes in seasonal total sulfur (S) and nitrogen (N) Deposition for both M3DRY and STAGE were minor. The most substantial change was a 5-25% increase in S wet deposition in the summer over the Southeastern U.S., in agreement with the increase in mean sulfate concentrations in the same region. CRACMM2 updates led to substantial decreases (>50%) in organic nitrate (NTR) deposition in the Eastern U.S., mostly in regions with high biogenic emissions. This had little impact on Total N deposition since NTR makes up a small fraction of wet and dry N deposition. ## Are there new benchmark data and documentation updates? Yes! We have made updates throughout our [User's Guide](../Users_Guide/README.md), including Appendices and Tutorials, to improve clarity and describe new options and features. We recommend revisiting sections that relate to your work to see the latest guidance. We have also expanded our benchmark datasets and tutorials to include MPAS-CMAQ and CRACMM2. The Table below summarizes the benchmark data available with v5.5 and the associated Tutorials for running a test case simulation for the specific model configuration. |**CMAQ Version**|**Data Type (Size)**|**Domain**|**Simulation Dates**|**Data Access**|**Tutorial**| |:----:|:----:|:--------------:|:----:|:--------:|:----:| |MPAS-CMAQ| Input (215 GB) | Global (uniform 120) | Jan 1, 2017|[Metadata, DOI, and links to data on AWS](https://doi.org/10.15139/S3/PAHQFO)
[AWS Link](https://mpas-cmaq.s3.amazonaws.com/index.html) |[Tutorial](https://github.com/USEPA/CMAQ/blob/main/DOCS/Users_Guide/PDF/CMAQ_UG_09_2019.pdf)| |v5.4 CB6r5 | Input (6.1 TB) | 12US1 | Jan 1 - Dec 31, 2018 | [Metadata, DOI, and links to data on AWS](https://doi.org/10.15139/S3/LDTWKH)
[AWS Link](https://cmas-cmaq-modeling-platform-2018.s3.amazonaws.com/index.html) || |v5.4 CB6r5 | Input (10.3 GB)| Northeast US| July 1 - 2, 2018| [Metadata, DOI, and download instructions ](https://doi.org/10.15139/S3/BWMI8X)
[Google Drive Link](https://drive.google.com/drive/folders/1AFUB-4kzIXXoZr4hOHNBqRvy9JQ9_MDp)
[AWS Link](https://cmaq-release-benchmark-data-for-easy-download.s3.amazonaws.com/v5_4/CMAQv5.4_2018_12NE3_Benchmark_2Day_Input.tar.gz)|| |v5.5 CRACMM2| Input (6 GB) | 12NE3 | July 1 - 2, 2018 | [Metadata, DOI, and links to data on AWS]( https://doi.org/10.15139/S3/X5SZM2)
[AWS Link](https://cmaq-release-benchmark-data-for-easy-download.s3.amazonaws.com/v5_5/CMAQv5.5_2018_12NE3_Benchmark_cracmm2_stage_2Day_Input.tar.gz) || |v5.5 CRACMM2| Output (19 GB) | 12NE3 | July 1 - 2, 2018 | [Metadata, DOI, and links to data on AWS]( https://doi.org/10.15139/S3/X5SZM2)
[AWS Link](https://cmaq-release-benchmark-data-for-easy-download.s3.amazonaws.com/v5_5/output_CCTM_v55_gcc_Bench_2018_12NE3_cracmm2_stage.tar.gz)|[Tutorial](../Users_Guide/Tutorials/CMAQ_UG_tutorial_benchmark_cracmm2_stage.md)| |v5.5 CB6r5 M3Dry | Output (15 GB) | 12NE3 | July 1 - 2, 2018 | [Metadata, DOI, and links to data on AWS](https://doi.org/10.15139/S3/X5SZM2)
[AWS Download Link](https://cmaq-release-benchmark-data-for-easy-download.s3.amazonaws.com/v5_5/output_CCTM_v55_gcc_Bench_2018_12NE3_cb6r5_ae7_aq_m3dry.tar.gz) |[Tutorial](../Users_Guide/Tutorials/CMAQ_UG_tutorial_benchmark.md)| |v5.5 CB6r5 STAGE | Output (16 GB) | 12NE3 | July 1 - 2, 2018 | [Metadata, DOI, and links to data on AWS](https://doi.org/10.15139/S3/X5SZM2)
[AWS Download Link](https://cmaq-release-benchmark-data-for-easy-download.s3.amazonaws.com/v5_5/output_CCTM_v55_gcc_Bench_2018_12NE3_cb6r5_ae7_aq_stage.tar.gz) |[Modify the M3DRY Tutorial](../Users_Guide/Tutorials/CMAQ_UG_tutorial_benchmark.md)| |v5.5-ISAM CB6r5 M3Dry | Output (52 GB) | 12NE3 | July 1 - 2, 2018 | [Metadata, DOI, and links to data on AWS](https://doi.org/10.15139/S3/X5SZM2)
[AWS Link](https://cmaq-release-benchmark-data-for-easy-download.s3.amazonaws.com/v5_5/output_CCTM_v55_ISAM_gcc_Bench_2018_12NE3_cb6r5_ae7_aq_m3dry.tar.gz) |[Tutorial](../Users_Guide/Tutorials/CMAQ_UG_tutorial_ISAM.md)| |v5.5-DDM3D CB6r5 M3Dry | Output (16 GB) | 12NE3 | July 1 - 2, 2018 | [Metadata, DOI, and links to data on AWS](https://doi.org/10.15139/S3/X5SZM2)
[AWS Download Link](https://cmaq-release-benchmark-data-for-easy-download.s3.amazonaws.com/v5_5/output_CCTM_v55_DDM3D_gcc_Bench_2018_12NE3_cb6r5_ae7_aq_m3dry.tar.gz) |[Tutorial](../Users_Guide/Tutorials/CMAQ_UG_tutorial_DDM3D.md)| ## Community Contributions The CMAQ team would like to thank our user community for contributing to model updates in CMAQv5.5 by identifying issues, performing tests, and/or proposing code changes. The following v5.5 updates include a community contribution*. * Updates to unidirectional fluxes in M3DRY came out of fruitful conversations with researchers Brett Schichtel and Gustavo Cuchiara Copstein from Colorado State's Cooperative Institute for Research in the Atmosphere [(Release Note)](../Release_Notes/CMAQ-Release-Notes:-Dry-Deposition-Air-Surface-Exchange:-M3DRY.md#revised-dry-dep-flux-for-nh3). * An issue identified by shatani on the [CMAS User Forum](https://forum.cmascenter.org/t/aerosol-bulk-name-as-emission-species-name-in-the-desid-chemical-mapping-control/3692/1) led to an updated to the DESID module [(Release Note)](../Release_Notes/CMAQ-Release-Notes:-Emissions-Updates:-Detailed-Emissions-Scaling-Isolation-and-Diagnostics-Module-(DESID).md#chemical-family-support). * Bonyoung Koo identified an issue on the [CMAS User Forum ](https://forum.cmascenter.org/t/incorrect-pm25-na-calculation-in-the-elmo-module/4615) that led to an update to the ELMO module [(Release Note)](../Release_Notes/CMAQ-Release-Notes:-Diagnostic-Options.md#correct-calculation-of-pm1-pm25-and-pm25to10-as-well-as-speciated-na-k-ca-and-mg-in-elmo). * An issue identified by Abi on the [CMAS User Forum](https://forum.cmascenter.org/t/cmaqv5-2-ddm-not-able-to-output-more-than-one-sens/3669/1) led to an update to CMAQ-HDDM to allow for correct sub-setting of variables to the ASENS output file. * Sheng-Po Chen identified an error in the molecular weight of HGIIGAS in several species tables on the [CMAS User Forum](https://forum.cmascenter.org/t/error-of-the-molecular-weight-for-hgiigas/4673) which has now been fixed ([Release Note](../Release_Notes/CMAQ-Release-Notes:-Chemistry:-Carbon-Bond-6-Mechanism-(CB6).md#correction-to-molecular-weight-of-hgiigas-in-species-tables)). * Will Hatheway caught a typo in the config_cmaq.csh file and proposed an update on the [CMAQ GitHub repository](https://github.com/USEPA/CMAQ/issues/199). * Simon Rosanka, from the University of California, Irvine, proposed a bugfix to CCTM/src/gas/ros3/rbdriver.F on the [CMAQ GitHug repo](https://github.com/USEPA/CMAQ/pull/198) to avoid a model crash when using the conditional rbstats option. * Feng Liu identified an issue in CMAQ-HDDM on the [CMAS User Forum](https://forum.cmascenter.org/t/cmaqv5-4-hddm-gives-too-high-second-order-sensitivity/3722/1) and provided testing and calculations that led to an update to address unreasonably high 2nd order sensitivity coefficients. \*We attempted to be comprehensive in this list but if we have missed a contribution from you or a colleague, please forgive our oversight and contact us at [CMAQ_Team@epa.gov](mailto:CMAQ_Team@epa.gov) so that we can correct our mistake. Thank you for helping us improve the CMAQ modeling system! ## How to Cite CMAQ Please see our 'How to Cite CMAQ' page if you are interested in referencing one of our released model versions, scientific algorithms, or model output in your own publication: https://www.epa.gov/cmaq/how-cite-cmaq ## Additional FAQ A more general list of Frequent CMAQ Questions can be found on our website: https://www.epa.gov/cmaq/frequent-cmaq-questions ## Technical support for CMAQ Technical support for CMAQ, including questions about model inputs, downloading, compiling, and running the model, and pre- and post-processing utilities, should be directed to the [CMAS Center User Forum](https://forum.cmascenter.org/). [**Please read and follow these steps**](https://forum.cmascenter.org/t/please-read-before-posting/1321) prior to submitting new questions to the User Forum. ================================================ FILE: DOCS/Release_FAQ/README.md ================================================ # FAQ Pages * [CMAQv5.5-Series-FAQ](./CMAQv5.5-Series-FAQ.md): Frequently asked questions for upgrading to the latest CMAQ version * [CMAQv5.4-Series-FAQ](./CMAQv5.4-Series-FAQ.md): Frequently asked questions for upgrading from v5.3.3 to v5.4 ================================================ FILE: DOCS/Release_Notes/CMAQ-Release-Notes:-Chemistry.md ================================================ # Chemistry This page contains links to Wiki pages describing current and past changes to the Chemical components in CMAQ. ### Chemistry Changes * [Community Regional Atmospheric Chemistry Multiphase Mechanism (CRACMM)](./CMAQ-Release-Notes:-Chemistry:-Community-Regional-Atmospheric-Chemistry-Multiphase-Mechanism-(CRACMM).md) * [Carbon Bond 6 Mechanism (CB6)](./CMAQ-Release-Notes:-Chemistry:-Carbon-Bond-6-Mechanism-(CB6).md) * [Carbon Bond 6 Mechanism (CB6) with Detailed Marine Halogen Chemistry](./CMAQ-Release-Notes:-Chemistry:-Carbon-Bond-6-Mechanism-(CB6)-with-Detailed-Marine-Halogen-Chemistry.md) * [Carbon Bond 6 Mechanism (CB6) with Hazardous Air Pollutants](./CMAQ-Release-Notes:-Chemistry:-Carbon-Bond-6-Mechanism-(CB6)-with-Hazardous-Air-Pollutants.md) * [State Air Pollution Research Center (SAPRC)](./CMAQ-Release-Notes:-Chemistry:-State-Air-Pollution-Research-Center-(SAPRC).md) * [Regional Atmospheric Chemistry Mechanism (RACM)](./CMAQ-Release-Notes:-Chemistry:-Regional-Atmospheric-Chemistry-Mechanism-(RACM).md) * [Aerosol Dynamics](./CMAQ-Release-Notes:-Chemistry:-Aerosol-Dynamics.md) * [Aqueous Chemistry Scavenging and Wet Deposition](./CMAQ-Release-Notes:-Chemistry:-Aqueous-Chemistry-Scavenging-and-Wet-Deposition.md) * [Gas Phase Chemistry Solvers](./CMAQ-Release-Notes:-Chemistry:-Gas-Phase-Chem-Solvers.md) * [Photolysis](./CMAQ-Release-Notes:-Chemistry:-Photolysis.md) ================================================ FILE: DOCS/Release_Notes/CMAQ-Release-Notes:-Chemistry:-Aerosol-Dynamics.md ================================================ ### Improve Aerosol Boundary Condition Processing [Ben Murphy](mailto:murphy.ben@epa.gov), U.S. Environmental Protection Agency **Type of update**: Bug Fix **Release Version/Date**: CMAQv5.5 **Description**: When aerosol boundary conditions are provided from a source that omits particle number concentration, CMAQv5.4 and prior will detect the default concentrations (1.0E-30) as acceptable. This creates physically unrealistic size distributions at the boundaries, which lead to negative aerosol concentrations when operated on by processes like aerosol sedimentation. Collaborators and users have reported FLOOR files indicating these problems when using boundary conditions from sources like GEOSChem. With this update, the lower bound is raised to 1.1E-30 which should be able to detect missing boundary concentration data in most cases. The aerosol mode variables (Number and Second Moment) are reset to values that are consistent with realistic size distributions, negative concentrations are resolved, and FLOOR files are no longer generated. **Significance and Impact**: The update is needed for any runs performed with GEOSChem boundary conditions, especially if particle predictions are an output of interest. The impact on PM2.5 is mostly seen at the boundaries although some differences in the internal domain can also be observed. There should be minimal impact on ozone concentrations. There is no impact on simulations run with Hemispheric CMAQ boundary conditions, which include particle number and surface are variables on the boundary condition input files. |Merge Commit | Internal record| |:------:|:-------:| |[Merge for PR#1080](https://github.com/USEPA/CMAQ/commit/5638ccd750eb63e48664a53d7fe8a14c2a410e58) | [PR#1080](https://github.com/USEPA/CMAQ_Dev/pull/1080) | ### Two-Moment Option for Particle Coagulation [Ben Murphy](mailto:murphy.ben@epa.gov), U.S. Environmental Protection Agency **Type of update**: Bug Fix/Science Update **Release Version/Date**: CMAQv5.4 **Description**: The current three-moment approach for modeling coagulation for the Aitken and Accumulation modes (intermodal and intramodal coagulation) was found to be inconsistent with sectional and particle-resolved approaches via box modeling. A two-moment approach was documented by Whitby et al. (1991) and is implemented here as a default option. **Significance and Impact**: Minimal change to PM concentration predictions or code structure. Non-negligible impact on fine-mode particle sizes and number concentrations. **References**: Whitby, McMurry, Shankar, and Binkowski. Modal Aerosol Dynamics Modeling, Report to the Atmospheric Research and Exposure Assessment Laboratory, US EPA, 1991. |Merge Commit | Internal record| |:------:|:-------:| |[Merge for PR#879](https://github.com/USEPA/CMAQ/commit/ae76f45de41c78bdd76afd65187b3f900f606c8a) | [PR#879](https://github.com/USEPA/CMAQ_Dev/pull/879) | ### Sulfuric Acid Conservation in VOLINORG [Ben Murphy](mailto:murphy.ben@epa.gov), U.S. Environmental Protection Agency **Type of update**: Bug Fix **Release Version/Date**: CMAQv5.4 **Description**: The current implementation of sulfuric acid mass transfer from the gas to particle phase in the VOLINORG subroutine assumes that the sulfuric acid concentration leaving the subroutine equals the concentration calculated using a pseudo-steady-state assumption with the gas production rate divided by the condensation sink. This concentration could be higher or lower than the abundance of sulfuric acid predicted after execution of the chemistry model, so sulfur is not conserved. Since H2SO4 at the beginning of VOLINORG already has the gas-phase production in it from the chemistry module, a more conservative approach is now used, equivalent to: H2SO4_FINAL = H2SO4_INITIAL - [Change in ASO4]* MWSO4/MWH2SO4. **Significance and Impact**: Differences in sulfuric acid concentrations at the surface up to a factor of 100, but these are always during cases where the absolute concentration is below 0.1 ug m-3. Generally dry and wet deposition decrease, but not by large amounts when run on the Southeast benchmark case. **References**: **Internal PRs** [PR#636](https://github.com/USEPA/CMAQ_Dev/pull/636) ### Update Aerosol Size Distribution Check for ICs and BCs [Ben Murphy](mailto:murphy.ben@epa.gov), U.S. Environmental Protection Agency **Type of update**: Bug Fix/Science Update **Release Version/Date**: CMAQv5.4 **Description**: The aerosol size distribution parameters (number, surface area, and speciated mass) from the initial and boundary conditions is read in and 'conditioned' by the aero_check_icbc routine in AERO_DATA.F. This routine checks to make sure that the total aerosol mass, number and surface area are above zero and that they combine to give appropriate modal diameter and standard deviation (i.e. within the bounds asserted in AERO_DATA.F). If the parameters do not meet the constraints imposed, then the number and/or surface area may be adjusted in order to fit reference values for diameter and standard deviation. There are complexities to this issue that were not adequately accounted for in the current implementation. First, the current implementation only supports inputs where the surface area specifies the dry distribution, but inputs could be configured for the wet deposition and thus contradict the expectations of the conditioning module. An option is now provided in the CCTM runscript to specify the nature of the surface area input for initial and boundary conditions independently. Secondly, it is possible that no surface area parameter is provided on the inputs. This use case is now supported with options on the CCTM runscript that control the initial and boundary conditions independently. Third, the consideration of grid cells has been limited to just those actually on the boundaries of the grid domain. All boundary cells for interior subdomains and interior boundary cells for subdomains on the domain edge are ignored. This saves model computation time. Finally, the logical flow has been made more thorough and robust to catch extreme errors in diameter and standard deviation, but pass minor errors (i.e. sigma = 1.04999 instead of 1.05) and correct them without warning. Deprecated variables including AVISDIAG, ZERO_PCSOA and AOD are also removed since their functionality is no longer supported. **Significance and Impact**: Impact on surface concentrations and domain-wide budget were assessed for a July 2016 case. Average PM2.5 surface concentrations changed by less than 0.025 ug m-3. Average Accumulation and Aitken mode diameters changed by less than 2.5 nm. |Merge Commit | Internal record| |:------:|:-------:| |[Merge for PR#874](https://github.com/USEPA/CMAQ/commit/c6bb6fe9d84fc4d6cd277c761715a83031ac5611) | [PR#874](https://github.com/USEPA/CMAQ_Dev/pull/874) | ### Reclassify all SOA species as 'dry' aerosol [Ben Murphy](mailto:murphy.ben@epa.gov), U.S. Environmental Protection Agency **Type of update**: Science Update **Release Version/Date**: CMAQv5.4 **Description**: SOA is currently categorized as 'wet' aerosol for the purposes of calculating aerosol surface area for transport. CMAQ recalculates the surface area ignoring wet aerosol components in order to prevent unstable calculations during vertical updrafts. The approach of considering SOA as one of these wet components was made more than a decade ago and doesn't appear necessary for current CMAQ numerical stability. This PR builds on top of PR #874 by using the improved IC/BC size distribution conditioning. It's important to note that if all organics are treated as dry aerosol, then there is an inconsistency with existing boundary conditions, which have aerosol surface area consistent with assuming the SOA is wet. Until new boundary conditions are generated with SOA as dry, it is strongly recommended to ignore aerosol surface area inputs from ICs and BCs. This is achieved with a runscript option introduced in PR #874 (IC_AERO_M2USE and BC_AERO_M2USE). **Significance and Impact**: Modest decreases to organic aerosol concentrations throughout the US domain for a July 1-31, 2016 case. Some reductions in bias, but changes are not very large. |Merge Commit | Internal record| |:------:|:-------:| |[Merge for PR#890](https://github.com/USEPA/CMAQ/commit/d5bdbad4e83e945533b851ab74dfef6b59b366a7) | [PR#890](https://github.com/USEPA/CMAQ_Dev/pull/890) | ### Simplify Aerosol Chemical Namelist [Ben Murphy](mailto:murphy.ben@epa.gov), U.S. Environmental Protection Agency **Type of update**: Interface Update **Release Version/Date**: CMAQv5.4 **Description**: Aerosol species are currently provided to the AE namelist with mode suffixes indicating the size of the particles the species is applicable for (e.g. aitken, accumulaiton, or coarse). This PR removes the suffix from all chemical species names on the AE namelist, removes duplicative species names so that only one entry for each chemical species persists, and then adds 3 columns with T/F values indicating for which modes this species should be considered. The CGIRD_SPC routine reads in the aerosol chemical species and distributes the species in modal space using a new routine added to the AERO_DATA file outside of the AERO_DATA module. This routine must be outside of AERO_DATA because AERO_DATA uses CGRID_SPCS for information as well. Code has also been added to chemmech to process the new namelist format correctly. The dependence on the AERO_DATA table has been removed here so there are in effect fewer checks for chemmech than there are for the CCTM, but users will still encounter the checks when they eventually run the CCTM. The alternative is to have AERO_DATA tables in two places and this is not desired at this time. **Significance and Impact**: No impact on predictions should be observed. |Merge Commit | Internal record| |:------:|:-------:| |[Merge for PR#885](https://github.com/USEPA/CMAQ/commit/0012539ab2c4927ed6fb28107d71c505bb1a9fe1) | [PR#885](https://github.com/USEPA/CMAQ_Dev/pull/885) | ================================================ FILE: DOCS/Release_Notes/CMAQ-Release-Notes:-Chemistry:-Aqueous-Chemistry-Scavenging-and-Wet-Deposition.md ================================================ ### Cleanup of unit conversions and wetdep output mapping [Ben Murphy](mailto:murphy.benjamin@epa.gov), U.S. Environmental Protection Agency **Type of update**: Science Update **Release Version/Date**: CMAQv5.5 **Description**: In CMAQv5.4 and prior, there are at least 3 or 4 different mapped vectors through which data is passed when translating from CGRID to the local arrays within scavwdep and aqchem. Each of these steps constrains the flexibility to expand gas and aerosol components and necessitates the differentiation of codes to maintain separate modules. For example, 'mp', and 'kmt' flavors require special versions of AQ_DATA and/or aq_map to handle mapping. Unfortunately, when the various optional modules for cloud chemistry diverge, it becomes much less likely that instrumented codes like STM and ISAM will be applied across all options. It is also more difficult to keep cloud process codes like CONVCLD and RESCLD consistent across all options. With refactored mapping procedures, these can all be merged and all the cloud chemical schemes can take advantage of STM, ISAM, and other improvements made to the base code. These improvements will also reduce maintenance needed. This code update simplifies the unit conversions in cldproc and the mapping of wet deposition rates. Vectors supporting these maps are now available in CGRID_SPCS and don't need to be recalculated in cldproc. Scavwdep was updated to take advantage of aerosol masks. Further updating of scavwdep will occur in subsequent PR's. DDM and ISAM codes were modified for consistency with the new changes. **Significance and Impact**: This code update is designed to improve the transparency and flexibility of mapping, speciation, and instrumentation within the cloud chemistry/removal processor. |Merge Commit | Internal record| |:------:|:-------:| |[Merge for PR#651](https://github.com/USEPA/CMAQ/commit/cd7b0e8939552ca8056e348fc3758513280cc095) | [PR#651](https://github.com/USEPA/CMAQ_Dev/pull/651) | ### Bug fix for AE2AQ surrogates and redistribution of aerosol species after cloud processing [Kathleen Fahey](mailto:fahey.kathleen@epa.gov), U.S. Environmental Protection Agency **Type of update**: Bug Fix **Release Version/Date**: CMAQv5.5 **Description**: This is a bug fix updating the treatment of aerosol-to-aqueous surrogates (AE2AQ) for those species in the aerosol namelists that had a mismatch in number of modes of a chosen surrogate and the CMAQ aerosol species, leading to incomplete or incorrect treatment for the affected aerosol species during cloud processing (e.g., if an aerosol species with an I and J mode was assigned to an AE2AQ surrogate with only a J-mode, Aitken scavenging was not calculated for that aerosol species). This update also corrects the redistribution of an aqueous surrogate to "CEND" aerosol species after cloud processing if (1) the surrogate has an I and J mode and (2) the I and J mode fractional compositions of the surrogate are different. **Significance and Impact**: These updates correct the in-cloud treatment and post-cloud redistribution of inert aerosol species. PM2.5 impacts are minor. ![Fahey_AE2AQ_BugFix](https://github.com/user-attachments/assets/4a16562f-faa3-4c0c-a59b-817d30cda615) |Merge Commit | Internal record| |:------:|:-------:| |[Merge for PR#976](https://github.com/USEPA/CMAQ/commit/53d0884fc138ab2cb48cf733de961be448b4395d) | [PR#976](https://github.com/USEPA/CMAQ_Dev/pull/976) | ================================================ FILE: DOCS/Release_Notes/CMAQ-Release-Notes:-Chemistry:-Carbon-Bond-6-Mechanism-(CB6)-with-Detailed-Marine-Halogen-Chemistry.md ================================================ ### Correction to Species Tables for cb6r5m_ae7_aq **Type of update**: Documentation update **Release Version/Date**: CMAQ version 5.5 **Description:** [See release note under Carbon Bond 6 Mechanism](https://github.com/USEPA/CMAQ/wiki/CMAQ-Release-Notes:-Chemistry:-Carbon-Bond-6-Mechanism-(CB6)#correction-to-molecular-weight-of-hgiigas-in-species-tables) ### Detailed Halogen Chemistry Update [Golam Sarwar](sarwar.golam.email@epa.gov), U.S. Environmental Protection Agency **Type of update**: Science Update **Release Version/Date**: CMAQv5.4 **Description**: Two different updates are implemented into the detailed halogen chemistry: The first update: Detailed halogen (bromine and iodine) chemistry was previously incorporated into the CB6r3 chemical mechanism and implemented into the CMAQ model (Sarwar et al., 2015; Sarwar et al., 2019). The combined chemical mechanism containing CB6r3 and detailed halogen chemistry is named as CB6r3m. Several halogen reactions and emissions estimates are updated. • Existing CB6r3m includes several bromine reactions in cloud following Long et al., (2013, 2014). These bromine reactions in cloud are removed in the updated chemistry. The existing chemistry used the AQCHEM-KMT cloud module (kmtbr); the updated chemistry uses the standard cloud model (aq). • Existing CB6r3m includes several heterogenous reactions of iodine and bromine species. CMAQ estimates total aerosol surface area which was used for calculating heterogeneous rate rates for these reactions. The chemistry is revised to use sea-salt surface area (Saiz-Lopez et al., 2014; Badia et al., 2019): V = 10-9× [ CNA / ρNA + CCL / ρCL + CMG / ρMG + CCA / ρCA + CK / ρK + 0.2514 CNA / ρSO4] S = V∙6/D_g ∙e^(0.5∙(logσ_g )^2 ) Where, V = volume of sea-salt aerosol, C = concentration, ρ = density, S = surface area of sea-salt aerosol, D_g = particle diameter, σ_g = geometric standard deviation, NA = sodium, Cl = chloride, SO4 = sulfate, MG = magnesium, CA = calcium, K = potasium, 0.2514 is the emission ratio of SO4/NA in sea-salt emission. • Added heterogenous reactions of BrNO3 and BrNO2 following Fernandez et al. (2014). Reaction product yields used by Fernandez et al. (2014) are incorporated into heterogeneous rate constants (AEROSOL_CHEMISTRY.F). Revised product yields of the heterogenous reaction of HOBr following Fernandez et al. (2014). BrNO3 + ACl = BrCl + HNO3 BrNO3 + ABr = Br2 + HNO3 BrNO2 + ACl = BrCl + HONO BrNO2 + ABr = Br2 + HONO HOBr + ACl = BrCl HOBr + ABr = Br2 • Added two gas-phase iodine reactions I2O2 = IO + IO (Ordonez et al., 2012) HOI + NO3 = IO + HNO3 (Saiz-Lopez et al., 2016) • Existing CB6r3m contains heterogeneous loss of HI on aerosols following Sherwen et al. (2016a, 2016b) while other studies do not include such loss (Saiz-Lopez et al., 2014; Badia et al., 2019). This heterogeneous loss of HI is removed in the updated chemistry. • Existing CB6r3m contains a reaction for CH3Br (CH3Br + OH = Br + FORM). The reaction was added for future expansion as the model does not include any CH3Br emissions. The reaction is now removed from the model. • Existing model includes heterogeneous hydrolysis of ClNO3 and BrNO3 on J-mode aerosols; now they are added on both I- and J-mode aerosols. • Existing model includes heterogeneous losses of I2O2, I2O3, I2O4 on J-mode aerosols; now they are added on both I- and J-mode aerosols. • Halocarbon emissions are estimated using monthly climatological chlorophyll values from satellite. Chlorophyll values are used without any limitation. However, these values can be high in some coastal areas which can cause atomic iodine concentration to reach high levels in some coastal grid-cells. Chlorophyll values are now limited to a value of 1.0 following the procedure used in the Comprehensive Air quality Model with extensions (CAMx) (Yarwood et al., 2014). The following revised parametrization is used to estimate halocarbon emissions: EHC = 4.31×10-8 × AGC × fHC × fDP × chl-a where EHC = halocarbon emission rate, 4.31×10-8 represents a base emission rate, AGC = surface area of a grid-cell, fHC = a species-dependent emission factor, fDP = a diurnal profile factor based on the grid cell local hour peaking at noon, and chl-a = monthly climatological chl-a concentration from MODIS. • Rosenbrock is the most efficient solver for halogen chemistry and is set as the default solver. The second update: Ramboll, the developer of the Carbon Bond chemical mechanism, recently updated the chemical mechanism (CB6r5) and implemented it into the Comprehensive Air quality Model with extensions (CAMx) (Yarwood et al., 2020). The Carbon Bond chemical mechanism in CMAQ has recently been updated into CB6r5 (PR #731). Here, the updates related to CB6r5 are incorporated into the combined chemical mechanism containing the Carbon Bond chemical mechanism and the detailed halogen chemistry (CB6r5m_ae7_aq). In summary, Cb6r3m is updated into Cb6r5m keeping the detailed halogen chemistry updates contained in Cb6r3m. **Significance and Impact**: The first update: Model simulations were completed with the existing and updated CB6r3m over the Northern Hemisphere for the year of 2016 (annual simulation). The update increases seasonal mean ozone over seawater and land areas compared to the previous chemistry (Figure 1). The impacts are higher in cooler months than those in warmer months. It affects Model Bias both at AQS (Figure 2) and CASTNET sites (Figure 3). ![image](https://user-images.githubusercontent.com/17162838/172228107-48e829aa-67bf-4662-9b8c-297a0ca3ad8b.png) Figure 1: Impact of the halogen chemistry update on seasonal mean ozone. ![image](https://user-images.githubusercontent.com/17162838/172228347-ab452cfe-b4dd-4598-898a-d9473997ca9e.png) Figure 2: A comparison of model predicted daily maximum 8-hr ozone with observed data (left) and monthly mean Model Bias (right) at AQS sites. ![image](https://user-images.githubusercontent.com/17162838/172228394-cfc82f81-3bd4-40ef-bb15-43a8aab2545f.png) Figure 3: A comparison of model predicted daily maximum 8-hr ozone with observed data (left) and monthly mean Model Bias (right) at CASTNET sites. The second update: Two separate annual simulations were performed for 2016. One simulation used CB6r3m_ae7_aq and the other simulation used CB6r5m_ae7_aq. The update changes mean ozone in each season (Figure 1). It increases ozone in some areas while decreasing ozone over other areas. The update affects Model Bias both at AQS and CASTNET sites (Figure 2) by small margins. ![image](https://user-images.githubusercontent.com/17162838/172229418-c5350f8b-c5af-49d4-80d9-dc1e3c086159.png) Figure 1: Impact of CB6r5m on seasonal mean ozone ![image](https://user-images.githubusercontent.com/17162838/172229459-9bda879d-8203-449b-a0ac-3e6f9ee828d9.png) Figure 2: Impact of CB6r5m on mean Model Bias at AQS and CASTNET sites References: 1. Badia, A., Reeves, C. E. and Baker, A. R. and Saiz-Lopez, A. and Volkamer, R. and Koenig, T. K. and Apel, E. C. and Hornbrook, R. S. and Carpenter, L. J. and Andrews, S. J. and Sherwen, T. and von Glasow, R. 2019. Importance of reactive halogens in the tropical marine atmosphere: a regional modelling study using WRF-Chem. Atmos. Chem. Phys, 19, 3161-3189, https://doi.org/10.5194/acp-19-3161-2019. 2. Fernandez, R. P.; Salawitch, R. J.; Kinnison, D. E.; Lamarque, J.-F.; Saiz-Lopez, A. Bromine partitioning in the tropical tropopause layer: implications for stratospheric injection. Atmospheric Chemistry and Physics, 2014, 14, 13391-13410. 3. Long, M. S.; Keene, W. C.; Easter, R.; Sander, R.; Kerkweg, A.; Erickson, D.; Liu, X.; Ghan, S., 2013. Implementation of the chemistry module MECCA (v2.5) in the modal aerosol version of the Community Atmosphere Model component (v3.6.33) of the Community Earth System Model. Geosci. Model Dev., 6, 255-262, https://doi.org/10.5194/gmd-6-255-2013, 2013. 4. Long, M. S.; Keene, W. C.; Easter, R. C.; Sander, R.; Liu, X.; Kerkweg, A.; Erickson, D., 2014. Sensitivity of tropospheric chemical composition to halogen-radical chemistry using a fully coupled size-resolved multiphase chemistry–global climate system: halogen distributions, aerosol composition, and sensitivity of climate-relevant gases. Atmos. Chem. Phys., 2014, 14, 3397-3425. 5. Ordóñez, C.; Lamarque, J.-F.; Tilmes, S.; Kinnison, D. E.; Atlas, E. L.; Blake, D. R.; Sousa Santos, G.; Brasseur, G.; Saiz-Lopez, A. Bromine and iodine chemistry in a global chemistry-climate model: description and evaluation of very short-lived oceanic sources. Atmospheric Chemistry & Physics, 2012, 12, 1423-1447. 6. Saiz-Lopez, A.; Fernandez, R. P.; Ordóñez, C.; Kinnison, D. E.; Gómez Martín, J. C.; Lamarque, J.-F.; Tilmes, S. Iodine chemistry in the troposphere and its effect on ozone. Atmos. Chem. Phys., 2014, 14, 13119-13143. 7. Saiz-Lopez, A., Plane, J. M. C., Cuevas, C. A., Mahajan, A. S., Lamarque, J.-F., and Kinnison, D. E.: Nighttime atmospheric chemistry of iodine, Atmos. Chem. Phys., 16, 15593–15604, https://doi.org/10.5194/acp-16-15593-2016, 2016. 8. Sarwar, G., Gantt, B.; Schwede, D.; Foley, K.; Mathur, R.; Saiz-Lopez, A. Impact of enhanced ozone deposition and halogen chemistry on tropospheric ozone over the Northern Hemisphere, Environmental Science & Technology, 2015, 49(15):9203-9211. 9. Sarwar, G., Gantt, B.; Foley, K.; Fahey, K.; Spero, T.; Kang, D.; Mathur, R.; Foroutan, H.; Xing, J.; Sherwen, T., Saiz-Lopez, A.: Influence of bromine and iodine chemistry on annual, seasonal, diurnal, and background ozone: CMAQ simulations over the Northern Hemisphere, Atmospheric Environment, 395-404, 2019. 10. Sherwen, T., Evans, M. J., Carpenter, L. J., Andrews, S. J., Lidster, R. T., Dix, B., Koenig, T. K., Sinreich, R., Ortega, I., Volkamer, R., Saiz-Lopez, A., Prados-Roman, C., Mahajan, A. S., and Ordóñez, C.: Iodine's impact on tropospheric oxidants: a global model study in GEOS-Chem. Atmos. Chem. Phys., 2016, 16, 1161-1186. 11. Sherwen, T., Schmidt, J. A., Evans, M. J., Carpenter, L. J., Großmann, K., Eastham, S. D., Jacob, D. J., Dix, B., Koenig, T. K., Sinreich, R., Ortega, I., Volkamer, R., Saiz-Lopez, A., Prados-Roman, C., Mahajan, A. S., and Ordóñez, C. Global impacts of tropospheric halogens (Cl, Br, I) on oxidants and composition in GEOS-Chem, Atmos. Chem. Phys., 2016, 16, 12239-12271. 12. Yarwood, G.; Jung, J; Ou, N.; Emery, C., 2012. Improving CAMx performance in simulating ozone transport from the Gulf of Mexico, Final Report for the Texas Commission on Environmental Quality, Project No. 0626408I. 13. Yarwood, G.; Shi, Y.; Beardsley, R., 2020. Impact of CB6r5 mechanism changes on air pollutant modeling in Texas. Final Report for the Texas Commission on Environmental Quality, Work Order No. 582-20-11221-014. 14. Amedro, D., Berasategui, M., Bunkan, A. J. C., Pozzer, A., Lelieveld, J., and Crowley, J. N.: Kinetics of the OH + NO2 reaction: effect of water vapour and new parameterization for global modelling, Atmos. Chem. Phys., 20, 3091–3105, https://doi.org/10.5194/acp-20-3091-2020, 2020. |Merge Commit | Internal record| |:------:|:-------:| |[Merge for PR#717](https://github.com/USEPA/CMAQ/commit/69bb1dd6fc76bdb1ca3042f951734d17e9ff6a9c) | [PR#717](https://github.com/USEPA/CMAQ_Dev/pull/717) | |[Merge for PR#738](https://github.com/USEPA/CMAQ/commit/cbe950a910c785aa24d047480c8a3c4a05d4c329) | [PR#738](https://github.com/USEPA/CMAQ_Dev/pull/738) | ================================================ FILE: DOCS/Release_Notes/CMAQ-Release-Notes:-Chemistry:-Carbon-Bond-6-Mechanism-(CB6)-with-Hazardous-Air-Pollutants.md ================================================ ### Correction to Species Tables for cb6r5hap_ae7_aq **Type of update**: Documentation update **Release Version/Date**: CMAQ version 5.5 **Description** [See release note under Carbon Bond 6 Mechanism](./CMAQ-Release-Notes:-Chemistry:-Carbon-Bond-6-Mechanism-(CB6).md#correction-to-molecular-weight-of-hgiigas-in-species-tables) ### Multi-Pollutant version of the cb6r5hap_ae7_aq mechanism [William T. Hutzell](mailto:hutzell.bill@epa.gov), U.S. Environmental Protection Agency **Type of update**: Science Update and New Feature **Release Version/Date**: CMAQ version 5.4 **Description** The Multi-pollutant version of the cbr6 mechanism replaces the cb6mp_ae6_aq mechanism in version 5.3.3. The new mechanism is based on cb6r5_ae7_aq and is called cb6r5hap_ae7_aq. It includes the same toxic gas and aerosol species as the cb6mp_ae7_aq while adds (1) gas and aerosol reactive tracers for benzo[a]pyrene and (2) nonreactive tracers for PAHs lumped based on their Toxic Equivalency Factors. **Significance and Impact**: Users can selectively model a wide range of Hazardous Air Pollutants based on the r5 version of the carbon bond 6 mechanisms in CMAQ 5.4. |Merge Commit | Internal record| |:------:|:-------:| |[Merge for PR#887](https://github.com/USEPA/CMAQ/commit/2a64783ac1d0f6dc8ad708920f112c6f2035f8bc) | [PR#887](https://github.com/USEPA/CMAQ_Dev/pull/887) | |[Merge for PR#731](https://github.com/USEPA/CMAQ/commit/deb5b42cdd0041549a4aa5b8e6d069f2b75c203d) | [PR#731](https://github.com/USEPA/CMAQ_Dev/pull/731) | |[Merge for PR#722](https://github.com/USEPA/CMAQ/commit/fefb235c2c3808284a9364b59c2f7d6ef659b5f8) | [PR#722](https://github.com/USEPA/CMAQ_Dev/pull/722) | |[Merge for PR#684](https://github.com/USEPA/CMAQ/commit/2c24787922277311d113815f9073296a4623bc77) | [PR#684](https://github.com/USEPA/CMAQ_Dev/pull/684) | ================================================ FILE: DOCS/Release_Notes/CMAQ-Release-Notes:-Chemistry:-Carbon-Bond-6-Mechanism-(CB6).md ================================================ ### Correction to molecular weight of HGIIGAS in species tables [Kristen Foley](mailto:foley.kristen@epa.gov), U.S. Environmental Protection Agency **Type of update:** Documentation Update **Release Version/Date:** CMAQv5.5 **Description:** The molecular weight for HGIIGAS was incorrectly listed as 200.6 in the species tables for cb6r3_ae7_aq, cb6r5_ae7_aq, cb6r5hap_ae7_aq, cb6r5m_ae7_aq. This documentation can be found under CCTM/src/MECHS/README.md. The molecular weight used in GC namelist files for these mechanisms is 271.5. The documentation in the species tables has been updated to be consistent with the namelist files (based on Donohoue et al.m 2005). This issue was first identified on the CMAS User forum by Shengpo (https://forum.cmascenter.org/t/error-of-the-molecular-weight-for-hgiigas/4673). **Significance and Impact**: Documentation updates only. No changes to model results. **References**: Deanna L. Donohoue, Dieter Bauer, and Anthony J. Hynes. The Journal of Physical Chemistry A 2005 109 (34), 7732-7741. DOI: 10.1021/jp051354l |Merge Commit | Internal record| |:------:|:-------:| |[Merge for PR#1081](https://github.com/USEPA/CMAQ/commit/30de01b8e0303592b70439908a0b4b02708f881f) | [PR#1081](https://github.com/USEPA/CMAQ_Dev/pull/1081) | ### Carbon Bond Chemical Mechanism Version 6 Release 5 (CB6r5) [Golam Sarwar](mailto:sarwar.golam@epa.gov), U.S. Environmental Protection Agency **Type of update:** Science Update **Release Version/Date:** CMAQv5.4 **Description:** Ramboll, the developer of the Carbon Bond chemical mechanism, recently updated the chemical mechanism (CB6r5) and implemented it into the Comprehensive Air quality Model with extensions (CAMx) (Yarwood et al., 2020). CMAQ currently uses CB6r3 chemical mechanism which is updated into CB6r5. Following changes are included in CB6r5. • Updated rate constants for 41 reactions • Updated photolysis rates for 6 reactions: formaldehyde (two channels), acetaldehyde, higher aldehyde, glyco-aldehyde, glyoxal • Updated reaction products and yields for several reactions • An additional reaction (Amedro et al., 2020): NO2 + OH + H2O = HNO3 + H2O; H2O is more effective as a third body than N2 or O2 and the reaction is more effective in humid regions. • No changes in emissions are needed for CB6r5 **Significance and Impact**: Model simulations were completed with the CB6r3 and CB6r5 over the continental United States for a winter (January) and a summer (July) month in 2016. The update increases monthly mean ozone in both month (Figure 1); however, it also decreases ozone over some areas by small margin. Overall, the impacts of the update on model predictions are small. The impacts are slightly larger in summer than those in winter. It affects Model Bias both at AQS and CASTNET sites (Figure 2) by small margins. ![image](https://user-images.githubusercontent.com/17162838/172222534-0323ac35-1cc7-490a-a43a-827062182504.png) Figure 1: Impact of CB6r5 on monthly mean ozone ![image](https://user-images.githubusercontent.com/17162838/172222590-a19d6f4e-bba6-46e7-b9e4-4eff003c3f7f.png) Figure 2: Impact of CB6r5 on monthly mean Model Bias at AQS and CASTNET sites **References**: 1. Yarwood, G.; Shi, Y.; Beardsley, R., 2020. Impact of CB6r5 mechanism changes on air pollutant modeling in Texas. Final Report for the Texas Commission on Environmental Quality, Work Order No. 582-20-11221-014. 2. Amedro, D., Berasategui, M., Bunkan, A. J. C., Pozzer, A., Lelieveld, J., and Crowley, J. N.: Kinetics of the OH + NO2 reaction: effect of water vapour and new parameterization for global modelling, Atmos. Chem. Phys., 20, 3091–3105, https://doi.org/10.5194/acp-20-3091-2020, 2020. |Merge Commit | Internal record| |:------:|:-------:| |[Merge for PR#731](https://github.com/USEPA/CMAQ/commit/deb5b42cdd0041549a4aa5b8e6d069f2b75c203d) | [PR#731](https://github.com/USEPA/CMAQ_Dev/pull/731) | ### Simple Halogen Chemistry Update [Golam Sarwar](sarwar.golam.email@epa.gov), U.S. Environmental Protection Agency **Type of update**: Science Update **Release Version/Date**: CMAQv5.4 **Description**: Several changes were made to the simple halogen chemistry which are described below: First change: A simple halogen mediated first order ozone loss was previously developed by using hemispheric CMAQ results obtained without and with detailed bromine/iodine chemistry. The detailed bromine/iodine chemistry has recently been updated and hemispheric model simulations were completed without and with the updated bromine/iodine chemistry for 2016. The simple halogen mediated first order ozone loss is re-derived using the annual hemispheric CMAQ results obtained without and with full bromine/iodine chemistry. The revised halogen mediated first-order rate constant for ozone loss: k_O3 (P) = min⁡ ( 2.0×10E-06, 6.7006×10E-11 exp(10.7435×P)+ 3.4153×10E-8 exp(-0.6713×P) ) Where kO3 (s-1) is the first-order rate constant and P is the atmospheric pressure (atm). It is applied to grid-cells over oceanic areas. The revised halogen mediated first-order rate constant for ozone loss is lower than the previous value. Second change: Ocean files are generated using spatial allocator. Winston Hao of New York Department of Environmental Conservation reported that ocean file generated by the spatial allocator may occasionally contain some tiny (~1E-09) negative and positive values for SURF and OPEN near state borders. Simple halogen chemistry is activated when OPEN+SURF value in any grid-cell is positive (>0.0). The presence of tiny positive SURF and OPEN values activates the simple halogen chemistry over land and reduces ozone. CMAQ has a check for negative values of OPEN and SURF which are reset to 0.0 as follows (centeralized_io_module.F): WHERE ( ocean .LT. 0.0 ) ocean = 0.0 ! ensure values are nonnegative WHERE ( szone .LT. 0.0 ) szone = 0.0 ! ensure values are nonnegative To avoid the activation of the simple halogen chemistry when tiny positive values are present, the existing checks are revised so that any negative and small positive values are reset to 0.0 as follows: WHERE ( ocean .LT. 0.001 ) ocean = 0.0 ! ensure values are greater than 0.001 WHERE ( szone .LT. 0.001 ) szone = 0.0 ! ensure values are greater than 0.001 Third change: The condensed halogen chemistry is activated when OPEN+SURF value in any grid-cell > 0.001; otherwise it is inactive. When the condensed halogen chemistry is active, halogen mediated ozone loss occurs with a prescribed first order rate constant. In the existing implementation, the prescribed first order rate constant does not vary with the values of OPEN+SURF. Values of OPEN+SURF is 1.0 over open ocean; however, values can be less than 1.0 near coastal areas. In the updated implementation, the prescribed first order rate constant is multiplied by the value of OPEN+SURF to account for the halogen mediated ozone loss. The full extent of the halogen mediated ozone loss occurs over open ocean since OPEN+SURF = 1.0 over such areas. In contrast, impact of the halogen mediated ozone loss is reduced over coastal areas since OPEN+SURF < 1.0 over such areas. SEAICE can be present in some grid-cells. The presence of SEAICE was previously used to simply turn-on or turn-off the condensed halogen chemistry. It is now included in the calculation of the halogen mediated rate constant. Existing implementation of the condensed halogen chemistry: k = prescribed first order halogen mediated rate constant when OPEN+SURF > 0.001 and no SEAICE is present. k = 0 when OPEN+SURF ≤ 0.001 or SEAICE is present Updated implementation of the condensed halogen chemistry: k = (OPEN + SURF - SEAICE) × prescribed first order halogen mediated rate constant when OPEN+SURF > 0.001 k = 0 when OPEN+SURF ≤ 0.001 **Significance and Impact**: First change: Model sensitivity runs were completed using cb6r3_ae7_aq chemical mechanism with the existing and updated simple first order ozone loss for the continental US domain for a period of 9-days in summer (June 22-30, 2016). The revised simple first order ozone loss increases the average ozone over seawater and coastal areas by up to 1.5 ppbv. Impact is higher over seawater than over coastal area. Impact over the interior portion of the domain is negligible. ![image](https://user-images.githubusercontent.com/2692799/167717635-e1aa5591-64ca-4a59-8de0-d7a8294f5051.png) **Figure 1: Impact of the updated simple halogen chemistry on O3** Second change: Model sensitivity runs were completed using the existing and updated checks for OPEN and SURF values for a 10-day period in summer. Model with updated checks for OPEN and SURF values has only small impacts on predicted results. The mean difference in O3 concentrations during the 10-day period are shown in Figure 2. Note that the ocean file used in this test does not contain any tiny positive values along state borders; hence the problem reported by a CMAQ user does not show up in the model results. ![image](https://user-images.githubusercontent.com/2692799/167717666-bf85d529-f378-4d20-83e8-02680a05c4c4.png) **Figure 2: Impact of using a threshold value of 0.001 for OPEN and SURF values on O3** Third change: Two different model simulations were completed using the existing and updated implementation of the condensed halogen chemistry for 10 days in summer (June 21 - June 30, 2016). It employed 12-km horizontal grid resolution with 35 vertical layers. The difference in O3 concentrations (updated – existing implementation) is shown in Figure 3. Model with the updated implementation does not have any impact on O3 over open ocean. However, it increases O3 over coastal areas when OPEN+SURF < 1.0. ![image](https://user-images.githubusercontent.com/2692799/167717690-4e217cf9-5432-4f2d-8ed4-50a269f156e5.png) **Figure 3: Impact of the updated implementation of halogen chemistry on O3** **References**: 1. Sarwar, G.; Gantt, B.; Foley, K.; Fahey, K.; Spero T. L.; Kang, D., Mathur, Rohit M., Hosein F.; Xing, J.; Sherwen, T.; Saiz-Lopez, A., 2019: Influence of bromine and iodine chemistry on annual, seasonal, diurnal, and background ozone: CMAQ simulations over the Northern Hemisphere, Atmospheric Environment, 213, 395-404. 2. Sarwar, G.; Gantt, B.; Schwede, D.; Foley, K.; Mathur, M.; Saiz-Lopez, A., 2015: Impact of enhanced ozone deposition and halogen chemistry on tropospheric ozone over the Northern Hemisphere, Environmental Science & Technology, 49(15):9203-9211. |Merge Commit | Internal record| |:------:|:-------:| |[Merge for PR#712](https://github.com/USEPA/CMAQ/commit/33a020e2ad4ce8fbf0ce2982e2ab139017afd71f) | [PR#712](https://github.com/USEPA/CMAQ_Dev/pull/712) | |[Merge for PR#784](https://github.com/USEPA/CMAQ/commit/c197c5d98b0f3218092a2c2b2050b3b27c95f138) | [PR#784](https://github.com/USEPA/CMAQ_Dev/pull/784) | |[Merge for PR#870](https://github.com/USEPA/CMAQ/commit/b26adbc5c00f1ebd5f2361c13cf82c437bac9ccd) | [PR#870](https://github.com/USEPA/CMAQ_Dev/pull/870) | ### DMS Chemistry [Golam Sarwar](sarwar.golam.email@epa.gov), U.S. Environmental Protection Agency **Type of update**: New Feature **Release Version/Date**: CMAQv5.4 **Description**: Dimethyl sulfide (DMS) chemistry was previously added in the hemispheric CMAQ model. The details of the chemistry, emissions and their impact on model results over the Northern Hemisphere are described in Zhao et al. (2021). Here, DMS chemistry is combined with cb6r5 chemical mechanism and implemented into the regional CMAQ model. The DMS chemistry consists of 2 chemical reactions with OH, 1 reaction with NO3, and 1 reaction with Cl. DMS + OH = SO2 + MEO2 + FORM (abstraction channel) DMS + OH = 0.75 × SO2 + 0.25 × MSA + MEO2 (addition channel) DMS + NO3 = SO2 + HNO3 + MEO2 + FORM DMS + Cl = 0.86 × SO2 + 0.14 × MSA + MEO2 + 0.45 × FORM + 0.45 × HCl + 0.55 ×ClO These reactions produce SO2 which is then oxidized into sulfate via gas-phase and aqueous-phase chemical reactions. DMS emissions from ocean are calculated using the gas transfer velocity and climatological DMS concentrations in seawater reported by Lana et al. (2011). **Significance and Impact**: Model sensitivity simulations were completed using cb6r5_ae7_aq chemical mechanism without and with the DMS chemistry over the continental US domain for January and July in 2016. DMS chemistry enhances SO2 over seawater and adjacent land areas by 0-45 pptV in January and 0-60 pptV in July (Figure 1). It enhances sulfate over seawater and adjacent land areas by 0-0.2 μg/m3 in January and 0-0.7 μg/m3 in July (Figure 2). Impact over the interior portion of the modeling domain is generally small. Impact of the DMS chemistry on model performance was calculated using data from all networks (Figure 3). It can affect Normalized Mean Bias for sulfate at CASTNET, CSN and IMPROVE networks. However, the impacts are generally small when all sites are considered for calculating Normalized Mean Bias. Impacts on Normalized Mean Bias can be higher in coastal areas. It’s impact on ozone is small (< ±0.3 ppb) and impact on model performance is negligible. ![image](https://user-images.githubusercontent.com/2692799/167717457-8bb2e2dc-e246-49d5-adaf-93a9283eca35.png)**Figure 1: (a) mean SO2 without DMS chemistry in January (b) impact of DMS chemistry on SO2 in January (c) mean SO2 without DMS chemistry in July (d) impact of DMS chemistry on SO2 in July** ![image](https://user-images.githubusercontent.com/2692799/167717484-b1c40b51-be9d-4fec-bb8d-d5e7c0ae1a3d.png)**Figure 2: (a) mean sulfate without DMS chemistry in January (b) impact of DMS chemistry on sulfate in January (c) mean sulfate without DMS chemistry in July (d) impact of DMS chemistry on sulfate in July** ![image](https://user-images.githubusercontent.com/2692799/167717507-36c144ad-1eef-4d26-a69c-7589d8dffa0d.png)**Figure 3: Normalized Mean Bias of sulfate without and with DMS chemistry (a) IMPROVE sites in January (b) CSN sites in January (c) CASTNET sites in January (d) IMPROVE sites in July (e) CSN sites in July (f) CASTNET sites in July** Existing ocean files will not work with the DMS chemistry; new ocean files with DMS concentrations in seawater are needed and can be generated using a new python based tool. **References**: 1. Zhao, J., Sarwar, G., Gantt, B., Foley, K., Kang, D., Fahey, K., Mathur, R., Henderson, B. H., Pye, H. O. T., Zhang, Y., Saiz-Lopez, A., 2021. Impact of dimethylsulfide chemistry on air quality over the Northern Hemisphere, Atmospheric Environment, 244, 117961:1-10. 2. Lana, A., Bell, T.G., Simó, R., Vallina, S.M., Ballabrera-Poy, J., Kettle, A.J., Dachs, J., Bopp, L., Saltzman, E.S., Stefels, J., Johnson, J.E., Liss, P.S., 2011. An updated climatology of surface dimethlysulfide concentrations and emission fluxes in the global ocean. Global Biogeochemical Cycles, 25, GB1004,doi:10.1029/2010GB003850. ================================================ FILE: DOCS/Release_Notes/CMAQ-Release-Notes:-Chemistry:-Community-Regional-Atmospheric-Chemistry-Multiphase-Mechanism-(CRACMM).md ================================================ ### Updated mechanism CRACMM2 [Nash Skipper](mailto:skipper.nash@epa.gov) and [Havala Pye](mailto:pye.havala@epa.gov), U.S. Environmental Protection Agency **Type of update**: Science Update **Release Version/Date**: CMAQv5.5 **Description**: CRACMM2 includes several updates to CRACMM1. Many updates are intended to improve the representation of secondary formaldehyde (HCHO) in CRACMM. These include the incorporation of the AMORE v1.2 isoprene condensation into the primary CRACMM mechanism, updates to HCHO yields from monoterpenes, and the addition of styrene as a new explicit species. Some other opportunistic updates (mostly unrelated to formaldehyde) are changes to monoterpene nitrates that affect SOA formation and NOx recycling, the inclusion of emitted methane (ECH4), heterogeneous uptake of HO2 and NO3 radicals, and changes in how emissions of certain aromatic species are mapped to CRACMM species. CRACMM1 bug fixes noted below have also been incorporated into CRACMM2. **Significance and Impact**: Formaldehyde is a hazardous air pollutant (HAP) and is a major contributor of health risks from air toxics; however, it is biased low in CRACMM1 by about a factor of two. Formaldehyde performance should be improved to provide a more accurate estimate of risk from ambient exposure. Formaldehyde can also be sensed remotely from satellites and is often used (as a proxy for VOC abundance) along with satellite-based estimates of NO2 to diagnose ozone production regimes. Improvements to HCHO in CRACMM may allow for more meaningful comparisons between observed and modeled chemical regime. The updates in CRACMM2 also tend to increase ozone and decrease organic aerosol, particularly in the summer and particularly in the southeastern US. **References**: Skipper, T. N., D'Ambro, E. L., Wiser, F. C., McNeill, V. F., Schwantes, R. H., Henderson, B. H., Piletic, I. R., Baublitz, C. B., Bash, J. O., Whitehill, A. R., Valin, L. C., Mouat, A. P., Kaiser, J., Wolfe, G. M., St. Clair, J. M., Hanisco, T. F., Fried, A., Place, B. K., and Pye, H. O. T.: Role of chemical production and depositional losses on formaldehyde in the Community Regional Atmospheric Chemistry Multiphase Mechanism (CRACMM), EGUsphere, 2024, 1-34, https://doi.org/10.5194/egusphere-2024-1680, 2024. |Merge Commit | Internal record| |:------:|:-------:| |[Merge for PR#1095](https://github.com/USEPA/CMAQ/commit/5c9f5441b24efd94ad6be5ad939c5f6fc8af2980) | [PR#1095](https://github.com/USEPA/CMAQ_Dev/pull/1095) | ### workaround for gcc incompatibility with CRACMM namelists [Nash Skipper](mailto:skipper.nash@epa.gov), U.S. Environmental Protection Agency **Type of update**: Script update **Release Version/Date**: CMAQv5.5 **Description**: Remove trailing comments in CRACMM species namelists when building CMAQ with gcc **Significance and Impact**: CRACMM uses trailing comments in the species namelists (e.g., `GC_cracmm2.nml`, `AE_cracmm2_nml`, and `NR_cracmm2.nml` files) for species metadata. If CMAQ is compiled with gcc, the model will crash at runtime because gcc does not allow trailing comments in namelist files. Previously if a user wanted to use CRACMM with gcc, they would have to either obtain versions of the namelist files without trailing comments from the CMAS Center or remove the trailing comments themselves. The removal of trailing comments in the namelist files has now been automated at build time if the `bldit_cctm.csh` script detects that a gcc compiler is used with a CRACMM mechansim. |Merge Commit | Internal record| |:------:|:-------:| | [Merge for PR#1154](https://github.com/USEPA/CMAQ/commit/c31983b72a3049d708138da3f57227875333eb39) | [PR#1154](https://github.com/USEPA/CMAQ_Dev/pull/1154) | ### Bug fixes for CRACMM1 biogenic emissions using MEGAN [Nash Skipper](mailto:skipper.nash@epa.gov), U.S. Environmental Protection Agency **Type of update**: Bug Fix **Release Version/Date**: CMAQv5.5 **Description**: The following fixes have also been implemented for CRACMM1 biogenic emissions using MEGAN: * Fix emission mapping of CO when using MEGAN biogenic emissions. In CMAQv5.4 CO emissions were mapped to species SLOWROC for CRACMM1. Note: other CMAQ mechanisms were not affected by this CO mapping issue. * Add mapping of semivolatile ROC species included in MEGAN biogenic emissions to CRACMM1 DESID file. In CMAQv5.4 emissions of these species would not be added because there was not an existing rule in the DESID file to map them to a model species. **Significance and Impact**: These updates only impact applications that use the CRACMM1 or CRACMM1AMORE chemical mechanisms and the MEGAN biogenic emissions model. Applications using BEIS or using any other chemical mechanism are not impacted. |Merge Commit | Internal record| |:------:|:-------:| |[Merge for PR#1095](https://github.com/USEPA/CMAQ/commit/5c9f5441b24efd94ad6be5ad939c5f6fc8af2980) | [PR#1095](https://github.com/USEPA/CMAQ_Dev/pull/1095) | ### Bug fixes for CRACMM1 IEPOX uptake rate [Kathleen Fahey](mailto:fahey.kathleen@epa.gov) and [Nash Skipper](mailto:skipper.nash@epa.gov), U.S. Environmental Protection Agency **Type of update**: Bug Fix **Release Version/Date**: CMAQv5.5 **Description**: A typo in the rate of sulfate catalyzed IEPOX where the nucleophile was HSO4 has been corrected. The incorrect rate resulted in excessive uptake of IEPOX through this pathway. **Significance and Impact**: These updates only impact applications that use the CRACMM1 or CRACMM1AMORE chemical mechanisms. The impact of this fix is to increase sulfate (as less sulfate is taken up as organosulfate) and to decrease organic aerosol. **References**: Vannucci, P., K. Foley, B. Murphy, C. Hogrefe, R. Cohen and H. Pye: Temperature-dependent composition of summertime PM2.5 in observations and model predictions across the Eastern U.S., ACS Earth Space Chem. 2024, 8, 2, 381–392. [https://doi.org/10.1021/acsearthspacechem.3c00333](https://doi.org/10.1021/acsearthspacechem.3c00333) |Merge Commit | Internal record| |:------:|:-------:| |[Merge for PR#976](https://github.com/USEPA/CMAQ/commit/53d0884fc138ab2cb48cf733de961be448b4395d) | [PR#976](https://github.com/USEPA/CMAQ_Dev/pull/976) | ### CRACMM DESID Input File Updates [Karl Seltzer](mailto:seltzer.karl@epa.gov), U.S. Environmental Protection Agency **Type of update**: Input File Update **Release Version/Date**: CMAQv5.5 **Description**: Added ROC-ALK series of "Emission Surrogates" to ensure emission input files with and without the "ALK" identifier are processed/emitted. **Significance and Impact**: Impacts results (SOA and PM2.5 predictions) if emissions were prepared using ROC-ALK species names. This fix is needed to propagate ROC-ALK emissions to the proper model species. Users should check at least one processor log to ensure emissions were properly mapped. Depending on the emission preparation method, ROC-ALK may or may not be populated. Newer versions of emissions prepared with gspro files created by [S2S-Tool](https://github.com/USEPA/S2S-Tool) are more likely to use consistent names. |Merge Commit | Internal record| |:------:|:-------:| |[Merge for PR#970](https://github.com/USEPA/CMAQ/commit/17ce8e23b04ddec4fcf32dd20b55d5c8902d6c29) | [PR#970](https://github.com/USEPA/CMAQ_Dev/pull/970) | ### The Community Regional Atmospheric Chemistry Multiphase Mechanism (CRACMM) Version 1.0 [Havala O. T. Pye](mailto:pye.havala@epa.gov), U.S. Environmental Protection Agency **Type of update**: Science Update **Release Version/Date**: CMAQv5.4 **Description**: The Community Regional Atmospheric Chemistry Multiphase Mechanism (CRACMM) builds on the history of the Regional Atmospheric Chemistry Mechanism, Version 2 (RACM2) and aims to couple gas- and particle-phase chemistry by treating the entire pool of atmospheric reactive organic carbon (ROC) relevant to present-day emissions. CRACMM species were developed to represent the total emissions of ROC, considering the OH reactivity, ability to form ozone and secondary organic aerosol (SOA), and other properties of individual emitted compounds. The chemistry of CRACMM, which includes autoxidation, multigenerational oxidation, and the treatment of semivolatile and intermediate volatility compounds, was built using a variety of sources including literature and other mechanisms (MCM, GECKO, and SAPRC18/mechgen). Compared to RACM2, the number of traditional volatile organic carbon species is reduced and the number of oxygenated and semivolatile to intermediate volatility precursors are increased in the mechanism. In addition, explicit hazardous air pollutants (toluene; 1,3-butadiene; and acrolein) are added to better characterize exposures relevant for human health. CRACMMv1 is available in two versions: base CRACMMv1 and CRACMMv1AMORE. The development of base CRACMMv1 is described by Pye et al. (2022) and the application of CRACMMv1 within CMAQ to the northeast U.S. in summer 2018 as well as comparison with other mechanisms is presented by Place et al. (in prep.). CRACMMv1AMORE replaces the base isoprene chemistry of CRACMMv1 (which was largely ported from RACM2) with a graph theory-based condensation of a detailed isoprene mechanism developed by Prof. Faye McNeill's team at Columbia University. The AMORE version is documented in work by Wiser et al. (2022). One feature of CRACMM is the specification of representative structures for all species in the mechanism. Metadata, including a representative compound name, description of explicit vs lumped nature, a [SMILES string](https://en.wikipedia.org/wiki/Simplified_molecular-input_line-entry_system), and DTXSID identifier in the [EPA Chemicals Dashboard](https://comptox.epa.gov/dashboard/) (if available) are appended to the species namelists (GC, NR, and AE). This information is leveraged to determine conservation of mass across chemical reactions (see the CHEMMECH README in the UTIL directory), determination of species properties such as solubility, and to communicate how species are conceptualized. Representative compound information from the namelists are matched with species descriptions (a verbose string description in cracmm1_speciesdescription.csv) using python to provide markdown file descriptions of the mechanism species. See the CMAQ Users' Guide Chapter 6 for more information on CRACMM. Supporting data for CRACMM, including information on how to map emissions to the mechanism, will be available in a [CRACMM github repository](https://github.com/USEPA/CRACMM). Information on getting started with CRACMM is available in [a tutorial](../Users_Guide/Tutorials/CMAQ_UG_tutorial_CRACMM.md). **Significance and Impact**: CRACMM couples SOA formation with radical chemistry and updates the representation of a number of chemical systems. CRACMM is being released as a research mechanism so that it may undergo testing in various applications with the aim of making it the default chemistry option in the future. A fact sheet describing the CRACMM effort is available on [EPA's CMAQ website](https://www.epa.gov/cmaq/cmaq-fact-sheets). **References**: 1. Pye, H. O. T., Place, B. K., Murphy, B. N., Seltzer, K. M., D'Ambro, E. L., Allen, C., Piletic, I. R., Farrell, S., Schwantes, R. H., Coggon, M. M., Saunders, E., Xu, L., Sarwar, G., Hutzell, W. T., Foley, K. M., Pouliot, G., Bash, J., and Stockwell, W. R.: Linking gas, particulate, and toxic endpoints to air emissions in the Community Regional Atmospheric Chemistry Multiphase Mechanism (CRACMM) version 1.0, Atmos. Chem. Phys. Discuss. [preprint], https://doi.org/10.5194/acp-2022-695, in review, 2022. 2. Place, B. K., Hutzell, W. T., Appel, K. W., Farrell, S., Valin, L., Murphy, B. N., Seltzer, K. M., Sarwar, G., Allen, C., Piletic, I., D'Ambro, E., Saunders, E., Simon, H., Torres-Vasquez, A., Pleim, J., Schwantes, R., Coggon, M., Xu, L., Stockwell, W. R., and Pye, H. O. T.: Initial evaluation of the CRACMMv1.0 chemical mechanism: Surface ozone predictions across the Northeast US summer 2018 in CMAQ, in preparation for Atmospheric Chemistry and Physics. 3. Wiser, F., Place, B., Sen, S., Pye, H. O. T., Yang, B., Westervelt, D. M., Henze, D. K., Fiore, A. M., and McNeill, V. F.: AMORE-Isoprene v1.0: A new reduced mechanism for gas-phase isoprene oxidation, Geosci. Model Dev. Discuss. [preprint], https://doi.org/10.5194/gmd-2022-240, in review, 2022. |Merge Commit | Internal record| |:------:|:-------:| |[Merge for PR#908](https://github.com/USEPA/CMAQ/commit/7ea4c901f754376ccdb1ad8b0b82c4a5efd3a6ba) | [PR#908](https://github.com/USEPA/CMAQ_Dev/pull/908) | ================================================ FILE: DOCS/Release_Notes/CMAQ-Release-Notes:-Chemistry:-Gas-Phase-Chem-Solvers.md ================================================ ### Tuning up the Gear Solver [William T. Hutzell](mailto:hutzell.bill@epa.gov), U.S. Environmental Protection Agency **Type of update**: Numerical Science Update **Release Version/Date**: v5.5 **Description**: The CCTM version of the smvgear solver is based on an optimized Gear for vectorized computers (Jacobson and Turco, 1994). It does not employ updates in a latter version by Jacobson called smvgearII. Two updates are adapted from smvgearII to use in CMAQ's smvgear solver to improve its computational efficiency. The first update changes how to determine the absolute tolerance for testing convergence of a grid cell's concentrations. The method determines the absolute tolerance based on the fraction of chemistry species, _f0_, above a specific concentration (Jacobson, 1998). The concentration is determined from log10 intervals between a highest and lowest absolute tolerances allowed. Based on what the Jacobson (1998) used for tropospheric chemistry, the highest allowed tolerance is 100 times greater than the lowest allowed tolerance. For the CMAQ smvgear solver, the highest and lowest allowed tolerances are set to 10-7 and 10-9 ppm based on default absolute tolerance in the original smvgear solver, 10-9. Two environment variables, **GEAR_MAX_ATOL** and **GEAR_MIN_ATOL**, allow setting the highest and lowest allowed tolerances to difference values. Jacobson (1998) sets _f0_ to 0.4 times the number of chemistry species. Because this number had limited effects reducing runtime in the CMAQ model, this work sets _f0_ to 0.4 times the chemistry species above a minimum concentration that determine radical cycles and key species concentrations in the tropospheric chemistry, 10-12 ppm. The number also corresponds to the product of the default absolute and relative tolerances in the original smvgear solver. An environment variable, **GEAR_CONC_FLOOR**, allows setting the minimum concentration to a different value. The second update taken from smvgearII changes the solver's Newton Iteration where it jumps to a higher order approximation. In addition to considering the number of iterations taken, the original smvgear considers the rate of decrease in prediction errors. The update drops the rate test and sets the maximim number of allowed iterations to 3 based on timing tests in the CMAQ model. The smvgearII solver uses 1 iteration. **Significance and Impact**: CCTM runtimes are reduced when the model uses the revised smvgear solver. For cb6r5_ae7_aq and cb6r5m_ae7_aq mechanisms, runtimes are reduced by factors greater than four. For the cracmm1_aq and saprc07tic_ae7i_aq mechanisms, the runtimes decrease around 25% against original smvgear solver. Tests show that the updated smvgear has runtimes averaging between 7% and 13% slower than the Rosenbrock (ros3) solver but this comparison against ros3 showed -6% to 28% range of relative differences in the sample of runtimes. The results imply that the revised solver is a more viable option for checking model predictions from ebi and ros3 solvers. Changes to the smvgear gas solver produce less than 0.1% normalized mean biases in prediction concentrations from the ros3 and the original smvgear solvers for most mechanism species. Exceptions occur for the cb6r5m_ae7_aq mechanism. Chlorine and iodine oxides show normalized mean biases up to several precent over the hemispheric domain during July 2018. I2O4 showed the greatest magnitude of difference with a Normalized mean biases had values around -7%. **References**: Jacobson, M.Z. (1993). SMVGEAR (Version II) [Source Code], U.S. Copyright Office Registration No. txu 670-279 Jacobson, M.Z. and Turco, R.P (1994). SMVGEAR: A sparse-matrix, vectorized gear code for atmospheric models. Atmospheric Environment 28(2), 273-284 pp. Jacobson, M.Z. (1998). Improvement of SMVGEAR II on vector and scalar machines through absolute error tolerance control. Atmospheric Environment 32(4), 791-796 pp. |Merge Commit | Internal record| |:------:|:-------:| |[Merge for PR#954](https://github.com/USEPA/CMAQ/commit/defef195f15d828cdf47d222866f79b855684361) | [PR#954](https://github.com/USEPA/CMAQ_Dev/pull/954) | ### EBI Solver Update [Golam Sarwar](mailto:sarwar.golam@epa.gov), U.S. Environmental Protection Agency **Type of update**: Science Update **Release Version/Date**: v5.4 **Description**: CMAQ provides three different gas-phase chemistry solvers: the Euler Backward Iterative (EBI), the Rosenbrock and the Gear solvers. The EBI method is not a generalized solver and needs to be developed for each chemical mechanism. However, it is generally faster than the Rosenbrock and the Gear solvers. CMAQ uses following procedure for determining convergence in the EBI solver: o AERROR( S ) = ABS( YC(S)-YCP(S) ) o RERROR( S ) = AERROR( S ) / ABS( YC(S)+YCP(S) ) Where, AERROR = absolute error, RERROR = relative error, YC = species concentrations (initial), YCP = species concentrations (updated). The use of such a convergence criterion can utilize computational time in finding a solution at very low concentrations without improving predicted concentrations. CAMx uses a similar but slightly different approach at very low concentrations. Here, we revise the convergence criteria in CMAQ following the procedure used in CAMx. At very low concentrations, model uses prescribed value for determining relative error and can potentially save some computational time. o AERROR( S ) = MAX( ABS( YC(S)-YCP(S) ), 1.0D-30 ) o RERROR( S ) = AERROR( S ) / MAX(1.0D-08, ABS( YC(S)+YCP(S) ) ) **Significance and Impact**: These updates are implemented in solvers for all mechanisms and have been tested in cb6r3_ae7_aq, cb6r5_ae7_aq, racm2_ae6_aq, saprc07tic_ae7i_aq. Model sensitivity runs were completed using existing and updated convergence criteria for a 10-day period in summer using 128 processors. Model with updated convergence criteria shows some improvement in model runtime without any substantial impact on model results. For example, model with cb6r3_ae7_aq shows a runtime improvement of 2%, cb6r5_ae7_aq shows an improvement of 1%, racm2_ae6_aq shows an improvement of 3%, and saprc07tic_ae7i_aq shows an improvement of 4%. Model with updated convergence criteria has only small impacts on model results. The largest difference in hourly predicted ozone concentrations during the 10-day period with cb6r3_ae7_aq and racm2_ae6_aq are shown in Figure 1. Model results with other mechanisms are also similar and are not shown. ![image](https://user-images.githubusercontent.com/17162838/172241106-c248b1c4-4ed6-47dc-b412-c75ac0ad2fac.png) Figure 1: Impact of updated convergence criteria in EBI solver on predicted ozone |Merge Commit | Internal record| |:------:|:-------:| |[Merge for PR#782](https://github.com/USEPA/CMAQ/commit/e8f37b49d3f67023b874d4cd5d299d9dfd4345e0) | [PR#782](https://github.com/USEPA/CMAQ_Dev/pull/782) | ================================================ FILE: DOCS/Release_Notes/CMAQ-Release-Notes:-Chemistry:-Photolysis.md ================================================ ### Remove compiler error using table option of phot module [William T. Hutzell](mailto:hutzell.bill@epa.gov), U.S. Environmental Protection Agency **Type of update**: Bug Fix **Release Version/Date**: 5.5 **Description**: The pull request removes the compiler errors encountered when building CMAQ or WRF-CMAQ with the table option for calculating photolysis frequencies. The compiler error occurs because Megan biogenic emissions uses a FORTRAN module, `PHOT_MET_DATA`, only available in the inline option for phot. The code replaces the `PHOT_MET_DATA` with `PHOT_MOD` . Both table and inline option have a PHOT_MOD FORTRAN module. The code fix made minor changes to both versions of PHOT_MOD.F so Megan has access to the needed data. **Significance and Impact**: The pull request restores a supported option for building CCTM in the CMAQ version 5.5. |Merge Commit | Internal record| |:------:|:-------:| |[Merge for PR#1054](https://github.com/USEPA/CMAQ/commit/93df9b26e93c61e72b974589a27798468b997af7) | [PR#1054](https://github.com/USEPA/CMAQ_Dev/pull/1054) | ### Calculating of Photolysis Frequencies: New Method for Aerosol Optical Properties [William T. Hutzell](mailto:hutzell.bill@epa.gov), U.S. Environmental Protection Agency **Type of update**: Science Update, Documentation, New Feature **Release Version/Date**: CMAQv5.5 **Description**: The update accomplish the below goals regarding the optical properties used in the the inline option for calculating photolysis frequencies. 1. Add a new method for determining the optical properties. The new method should better match properties determined by solving Mie Scattering Theory for spherical particles than the default method (FastOptics) but produce comparable model runtimes. 2. Simplify how the model runtime options set how aerosol optical properties are calculated. The change combines the two options currently used in one option. 3. Change the contents in the photolysis diagnostic files one and three. The change intends to add a way evaluate the optical propertes against observations or theory. **Significance and Impact**: The inline module for calculating photolysis frequencies has a new option for aerosol optics properties for their effect on the frequencies. The option better matches solving Mie Scattering Theory for uniformly mixed spherical aerosols but has a lower computational cost. The module's diagnostics provide an new output for evaluate model results. The update does not affect model result because FastOptics remain the default method. **References**: Andrews, E., Ogren, J. A., Kinne, S., and Samset, B.: Comparison of AOD, AAOD and column single scattering albedo from AERONET retrievals and in situ profiling measurements, Atmos. Chem. Phys., 17, 6041–6072, https://doi.org/10.5194/acp-17-6041-2017, 2017. Fast, J. D., Gustafson Jr., W. I., Easter, R. C., Zaveri, R. A., Barnard, J. C., Chapman, E. G., Grell, G. A. and Peckham, S. E. Evolution of ozone, particulates, and aerosol direct radiative forcing in the vicinity of Houston using a fully coupled meteorology-chemistry-aerosol model, J. Geophys. Res., 111, D21305, [https://doi.org/10.1029/2005JD00672](https://doi.org/10.1029/2005JD006721), 2006. |Merge Commit | Internal record| |:------:|:-------:| |[Merge for PR#1034](https://github.com/USEPA/CMAQ/commit/8dbab2dd301bbc148c707ed0b1659df2b3c6e850) | [PR#1034](https://github.com/USEPA/CMAQ_Dev/pull/1034) | ### Correct sub-grid cloud effect on in-line photolysis frequencies [[William T. Hutzell](mailto:hutzell.bill@epa.gov)], U.S. Environmental Protection Agency **Type of update**: Bug Fix **Release Version/Date**: CMAQv5.5 **Description**: The pull request addresses a code error in the inline option for calculating photolysis frequencies. The option includes effects from sub-grid or convective clouds predicted by the ACM cloud algorithm. A code error causes incorrectly calculating total and cloud optical depths for grid cells that have convective clouds because the layer thicknesses are set to zero for the portion of optical depths below the model top. The result overestimates photolysis frequencies where convective clouds are predicted. **Significance and Impact**: Over the hemispheric domain using the cb6r5m_ae7_aq mechanism, a simulation from June 21 to July 1, 2018 show daily ozone concentrations change plus or minus several ppb at the surface on July 1st. The large changes were increases over central Asia. Over the 12US1 domain, simulations covered the same period and used boundary conditions from the corrected hemispheric simulations. The code correction predominately decreased daily ozone at the surface on July 1st by several. The large decreases occurred over the southwestern US. The updated boundary conditions appear the likely cause for largest ozone decreases because they did not occur when using uncorrected boundary conditions. |Merge Commit | Internal record| |:------:|:-------:| |[Merge for PR#1045](https://github.com/USEPA/CMAQ/commit/7a31e6c4dd12a45b8aebcc941ab784ca83e6603a) | [PR#1045](https://github.com/USEPA/CMAQ_Dev/pull/1045) | ================================================ FILE: DOCS/Release_Notes/CMAQ-Release-Notes:-Chemistry:-Regional-Atmospheric-Chemistry-Mechanism-(RACM).md ================================================ ### Bug Fixes to Regional Atmospheric Chemistry Mechanism Version 2 (RACM2) [Golam Sarwar](mailto:sarwar.golam@epa.gov), U.S. Environmental Protection Agency **Type of update**: Bug Fix **Release Version/Date**: CMAQv5.4 **Description**: Two different types of bugs are fixed in RACM2: The first update: CMAQv5.4 has two options for calculating in-line biogenic emissions: BEIS and MEGAN. For BEIS, CMAQ uses an emission profile for calculating in-line biogenic emissions. Xiaoyang Chen at Northeastern University notified that CMAQ (BEIS) does not generate any monoterpene emissions when in-line option is enabled with RACM2. Emission profile “B10RD” is currently used for RACM2; however, it does not contain correct mapping which results in no monoterpene emissions. An emission profile “B3V10” was generated when RACM2 was initially implemented in CMAQ which contains correct mapping of model species. The model is revised to remove emission profile “B10RD” and add the emission profile “B3V10”. Biogenic emissions calculation using MEGAN does not use this profile and works properly. The second update: RACM2 in CMAQv533 contains several bugs related to kinetics which are now corrected. (1) Rate constant for reaction #R40 is missing a negative sign (mech_racm2_ae6_aq.def) (2) Bill Stockwell identified that raw data files for HCHO photolysis contain errors and provided updated raw data files (HCHO_MOL_RACM2 and HCHO_RAD_RACM2) (3) CSQY_DATA.F contains an initialization problem (CSQY_DATA.F) **Significance and Impact**: The first update: Model tests were completed with the revised emissions profile. It generates correct biogenic emissions for RACM2 using BEIS. The second update: Model sensitivity runs were completed using the existing and updated models (by correcting kinetics information) for 10 days in summer. Ratios of predicted 10-day mean HCHO photolysis rate coefficients with the existing and updated models are shown in Figure 1. For HCHO photolysis, the updated model increases photolysis rate coefficients for the molecular channel [Figure 1(a)] while reducing the photolysis rate coefficients for the radical channel [Figure 1(b)]. ![image](https://user-images.githubusercontent.com/17162838/172213812-1d5034fe-05fe-4f52-a31c-7dbab8b9b2b0.png) Figure 1: (a) Ratio of mean photolysis rate coefficient for the molecular channel of HCHO photolysis (values with updated model / values with existing model) (b) ratio of mean photolysis rate coefficients for the radical channel of HCHO photolysis (values with updated model / values with existing model) Predicted 10-day mean ozone concentrations with the existing model are shown in Figure 2(a) and differences in predicted mean ozone concentrations with the updated and existing models are shown in Figure 2(b). It has mixed impacts on predicted ozone. The update increases ozone over some areas while reducing it over other areas. ![image](https://user-images.githubusercontent.com/17162838/172213855-b2f40c1e-8d7b-42a4-9057-2a3d2bb520a4.png) Figure 2: (a) Predicted 10-day mean ozone concentrations with the existing model (b) differences in predicted mean ozone concentrations with the updated and existing models (predictions with updated model – predictions with existing model) Impacts on other model species are also small. For example, differences in predicted mean sulfate concentrations with the updated and existing models are shown in Figure 3(a) and differences in predicted mean aerosol nitrate concentrations with updated and existing models are shown in Figure 3(b). Impacts on sulfate and aerosol nitrate concentrations are small. ![image](https://user-images.githubusercontent.com/17162838/172213898-f0203dc9-e869-41e1-a43a-895634bbc7b2.png) Figure 3: (a) Differences in predicted mean sulfate concentrations with the updated and existing models (predictions with updated model – predictions with existing model) (b) differences in predicted mean aerosol nitrate concentrations with the updated and existing models (predictions with updated model – predictions with existing model) |Merge Commit | Internal record| |:------:|:-------:| |[Merge for PR#739](https://github.com/USEPA/CMAQ/commit/c6d10e71ce10c4b6d6ad2816da89c6ed977a06d4) | [PR#739](https://github.com/USEPA/CMAQ_Dev/pull/739) | |[Merge for PR#790](https://github.com/USEPA/CMAQ/commit/7eedde0e988a62e6ea9f8444927c7a9a82797731) | [PR#790](https://github.com/USEPA/CMAQ_Dev/pull/790) | ================================================ FILE: DOCS/Release_Notes/CMAQ-Release-Notes:-Chemistry:-State-Air-Pollution-Research-Center-(SAPRC).md ================================================ ### Removal of saprc07tic_ae6i_aq and saprc07tic_ae6i_aqkmti mechanisms [Golam Sarwar](sarwar.golam.email@epa.gov), U.S. Environmental Protection Agency **Type of update**: Model Clean-up **Release Version/Date**: CMAQv5.4 **Description**: The saprc07tic_ae6i_aq and saprc07tic_ae6i_aqkmti mechanisms are no longer maintained and have been removed from the CMAQ code repository beginning with version 5.4. These mechanisms can still be accessed and run through previous CMAQ versions. ================================================ FILE: DOCS/Release_Notes/CMAQ-Release-Notes:-Diagnostic-Options.md ================================================ # Diagnostic Options ## Remove Uninitialized Variable in Column Model [William T. Hutzell](mailto:hutzell.bill@epa.gov), U.S. Environmental Protection Agency **Type of update**: Bug Fix **Release Version/Date**: CMAQv5.5 **Description**: When the GRID_NAME sets the model domain to a column model, _i.e., NCOLS and NROWS equal one_. The model unpredictably crashes with the below error message. NCVGT: : NetCDF: Index exceeds dimension bound *** ERROR ABORT in subroutine retrieve_time_de on PE 000 Could not extract MET_CRO_3D file Abort(0) on node 0 (rank 0 in comm 0): application called MPI_Abort(MPI_COMM_WORLD, 0) - process 0 The error occurs because SDATE and STIME are uninitialized in sciproc.F and later used to interpolate the model grid's Jacobian. Uninitialized SDATE and STIME may have values outside the period covered by the METCRO3D file so the time interpolation fails. The code fix moves setting SDATE and STIME above the IF ( .NOT. COLUMN_MODEL ) block in sciproc.F. **Significance and Impact**: Allows running CCTM for a column domain without unpredictable crashes. Using a column model can speed up developing code or debugging species name-lists and emissions control files. |Merge Commit | Internal record| |:------:|:-------:| |[Merge for PR#1072](https://github.com/USEPA/CMAQ/commit/277c01c4b82b86a021949a72b3e387449cf68eda) | [PR#1072](https://github.com/USEPA/CMAQ_Dev/pull/1072) | ## Fix bug in ELMO calculation of PMF_OC, PMF_NCOM [Chris Nolte](mailto:nolte.chris@epa.gov), U.S. Environmental Protection Agency **Type of update**: Bug Fix **Release Version/Date**: CMAQv5.5 **Description**: This fixes a bug in the calculation of the ELMO parameter PMF_OC, which inadvertently subtracts off non-carbonaceous mass that should instead be skipped. Because PMF_NCOM is calculated using the value of PMF_OC, this bug affects PMF_NCOM as well. **Significance and Impact**: This change affects only PMF_OC and PMF_NCOM in the ELMO/AELMO outputs. There is no change in CONC/ACONC, CGRID, or deposition outputs. If using the default treatment of semivolatile organics, in which POC and PNCOM are mapped to VSVPO1, VSVPO2, VSVPO3, and VIVPO1 (see CMAQ_Control_DESID_.nml), then the impact is minimal. However, if using the older method of treating POA as nonvolatile, with POC mapped to APOC and PNCOM mapped to APNCOM, then this bug has a significant impact on PMF_OC and PMF_NCOM. |Merge Commit | Internal record| |:------:|:-------:| |[Merge for PR#1104](https://github.com/USEPA/CMAQ/commit/3857d63aa00c2fbdd8278ccedc2c4986acc24f0e) | [PR#1104](https://github.com/USEPA/CMAQ_Dev/pull/1104) | ## Correct calculation of PM1, PM2.5, and PM25to10 as well as speciated NA, K, CA, and MG in ELMO [Ben Murphy](mailto:murphy.ben@epa.gov), U.S. Environmental Protection Agency **Type of update**: Bug Fix **Release Version/Date**: CMAQv5.5 **Description**: The summations within ELMO for nonexplicit coarse-mode cations (NA, K, CA, and MG) into output aerosol variables with hard size cutoffs (PM1, PM25, and PM25to10) were incomplete. This issue was identified on the CMAS User Forum [https://forum.cmascenter.org/t/incorrect-pm25-na-calculation-in-the-elmo-module/4615](https://forum.cmascenter.org/t/incorrect-pm25-na-calculation-in-the-elmo-module/4615) A second correction also fixes a bug in the calculation of the ELMO parameter PM2.5 and PM2.5 species. To calculate the mass of particulate up to a hard size cutoff, the subroutine GET_AERO_INLET is called for each mode, with the second input parameter specifying the mode to be calculated. In CMAQv5.4, the variable IM was used, but the correct variable should be IMODE. **Significance and Impact**: This change is important for a complete representation of PM25 cations. Significant impacts on PM25_NA (~33%), PM25_CA (~16%), PM25_MG (~27%), and PM25_K (9%) in tests on the southeast US benchmark domain. **PM2.5 Sodium** ![Murphy_PM_Sodium](https://github.com/user-attachments/assets/3281f30b-e914-4c5f-a8cc-da6ebb9b2282) **PM2.5 Calcium** ![Murphy_PM_Calcium](https://github.com/user-attachments/assets/02609bbb-d56c-4c2e-bda3-93da53e32fe3) **PM2.5 Magnesium** ![Murphy_PM_Magnesium](https://github.com/user-attachments/assets/a459a040-a2de-43b7-a981-41d8c314f2ea) **PM2.5 Potassium** ![Murphy_PM_K](https://github.com/user-attachments/assets/8f546043-686d-46ee-be8b-c023e2729d4e) **PM2.5-10 Sodium** ![Murphy_PM_Sodium_II](https://github.com/user-attachments/assets/5881c212-1206-4a41-ba0f-999bcaafaa93) The mode parameter fix for the calculation of mass with a hard diameter cut-off has important impacts on PM2.5 predictions across the model domain, and the specific impact depends on fraction of the total mass, or speciated mass, that is present in each of the Aitken, Accumulation and Coarse modes. The predictions for fine-mode particulate (PMF) are unaffected as the GET_AERO_INLET routine is not called for these cases. |Merge Commit | Internal record| |:------:|:-------:| |[Merge for PR#1078](https://github.com/USEPA/CMAQ/commit/52a12a0ac08237a871998996873dd57486833891) | [PR#1078](https://github.com/USEPA/CMAQ_Dev/pull/1078) | ## Accurate output of gas-phase species in mass units [Ben Murphy](mailto:murphy.ben@epa.gov), U.S. Environmental Protection Agency **Type of update**: Bug Fix **Release Version/Date**: CMAQv5.5 **Description**: Although ELMO was correctly outputting gas species mixing ratios, ELMO had an error outputting these variables from the GC or NR lists if mass units were requested. This PR resolves the issue and adds the ability to output NH3 and HNO3 in mass units via ELMO. **Significance and Impact**: Gas-phase Benzo-a-pyrene was yielding garbage output from ELMO. |Merge Commit | Internal record| |:------:|:-------:| |[Merge for PR#1008](https://github.com/USEPA/CMAQ/commit/f1d6b57dc10c2a02dffc60bd3ace522c40e677b6) | [PR#1008](https://github.com/USEPA/CMAQ_Dev/pull/1008) | ## Restore accurate timestepping when running with temporally finer MET inputs [Ben Murphy](mailto:murphy.ben@epa.gov), U.S. Environmental Protection Agency **Type of update**: Bug Fix **Release Version/Date**: CMAQv5.5 **Description**: ELMO gave erroneous results when run using met inputs not aligned with hour time steps such as seen when running WRF-CMAQ. See Issue [179](https://github.com/USEPA/CMAQ/issues/179) in public repo. **Significance and Impact**: This model bug fix should be adopted as soon as possible for any user running WRF-CMAQ or using met inputs with time steps not aligned with hourly structure. Simulations for offline CMAQ with hourly met inputs are unaffected. |Merge Commit | Internal record| |:------:|:-------:| |[Merge for PR#962](https://github.com/USEPA/CMAQ/commit/a6e2bf20b774467fed85fc82eacd93ff57ef3434) | [PR#962](https://github.com/USEPA/CMAQ_Dev/pull/962) | ## Introduction of the Explicit and Lumped air quality Model Output module (ELMO) [Ben Murphy](mailto:murphy.ben@epa.gov), U.S. Environmental Protection Agency **Type of update**: New Feature **Release Version/Date**: CMAQv5.4 **Description**: The ELMO Synthesizer streamlines the definition, calculation, and maintenance of over 170 aggregate particulate matter parameters online in CMAQ. Previously, aggregate parameters like PM2.5 and Fine-mode Sulfate (ASO4I + ASO4J) were calculated through the COMBINE post-processing utility and documented via the SpecDef input file for that program. With ELMO, these variables are defined in ELMO_DATA.F and their calculations are prescribed in ELMO_PROC.F. Thus, CMAQ can now output higher-level parameters without needing to run any particular post-processing tool. The interface for using ELMO is on the CMAQ Miscellaneous Control File. Please see that file for a description of how to use the options relevant for ELMO. There are several distinct advantages to using ELMO over post-processing raw output with COMBINE: - Definitions of parameters like PM2.5, PMF (Fine PM), and PM10.0 automatically adjust as PM species are activated or deactivated in CMAQ. There is no need to modify a SpecDef file to account for a new species. - Complex properties like O:C, OM:OC, particle acidity, etc. can be calculated using species properties available within CMAQ. This resolves a potential vulnerability where, for example, the OM:OC of organic species may become out of sync between the SpecDef and the SOA_DEFN table within the model. This could potentially lead to errors in the calculation of OC (organic carbon). - If a user is only interested in aggregate parameters like PM25 mass, they can avoid the I/O time and storage required saving the raw output of every PM variable and then processing with COMBINE. This can be particularly important when processing 3D data. - This functionality will be critical for applications like ISAM where there is a huge runtime and storage penalty for outputting raw species concentrations for every emission source. - New parameters are available that were not before like N10, N20, N40 and N100, the number of particles above 10, 20, 40 and 100 nm in diameter. AOD and extinction have also been supported as options. - Some time may be saved in the input/output of so many variables via COMBINE. Keywords are available (see the interface in the EmissionControlFile) to use a short cut for identifying the parameters of interest. Parameters may be added to the ELMO_LIST table in ELMO_DATA.F and then prescribed in ELMO_PROC.F with greater ease. For developers: the new module works by putting all of the diagnostic parameters first on the ELMO_LIST table in ELMO_DATA.F. There is also a list of ID numbers (integers) above that table which allow for a master order to be preserved while the order of the parameters in the table and their calculations in ELMO_PROC.F are allowed to move in sequence. The subroutine LOAD_ELMO (ELMO_PROC.F) is called from AERO_DRIVER and cycles through the list of used parameters as defined by the interface in the EmissionControlFile. For each parameter, the subroutine CALC_ELMO is called to lookup the calculation. For many of the calculations, all that is required is an assignment from an already existing diagnostic variable. For the parameters which are linear combinations of CMAQ species or other parameters (e.g. fine-mode nitrate PMF_NO3 = ANO3I + ANO3J, PM2.5 mass PM25 = PM25_SO4 + PM25_NO3 + PM25_NH4 + PM25_CL + PM25_NA + PM25_EC + PM25_POA + ...), they may be defined in the subroutine MAP_ELMO_COEFF (in ELMO_PROC.F). Follow the guide of existing parameters to prescribe the species to be added, the inlet type to assume for collection, etc. If you need to add a new inlet description, you can do that in the ELMO_INLET table in ELMO_DATA.F. For more complicated variables like fine-mode acidity (PMF_PH) or the PM25 mass collected by a Federal Reference Method sampler (PM25_FRM), calculations appear directly in CALC_ELMO_DATA. **Significance and Impact**: There is no quantitative impact on results, but there will be a noticeable positive impact on the time invested in post-processing aggregate PM components and storage volumes required for standard runs. There can be some slight differences realized when one compares quantities averaged online vs. offline. For example, total PM2.5 have some small deviations when it is calculated as the hourly average of the sum of species (online) versus the sum of hourly averaged species (offline). |Merge Commit | Internal record| |:------:|:-------:| |[Merge for PR#639](https://github.com/USEPA/CMAQ/commit/3dc2bb6e3d3041bbbf0729643cc38bb2c52b2e11) | [PR#639](https://github.com/USEPA/CMAQ_Dev/pull/639) | |[Merge for PR#637](https://github.com/USEPA/CMAQ/commit/6bf6a3c367cb5fae088396c879e1c9609766a5dd) | [PR#637](https://github.com/USEPA/CMAQ_Dev/pull/637) | |[Merge for PR#769](https://github.com/USEPA/CMAQ/commit/c5bce3ef77dc54b29bf66046d07f766afc2d9f61) | [PR#769](https://github.com/USEPA/CMAQ_Dev/pull/769) | ================================================ FILE: DOCS/Release_Notes/CMAQ-Release-Notes:-Dry-Deposition-Air-Surface-Exchange.md ================================================ # Dry Deposition Changes This page contains links to Wiki pages describing current and past changes to the Dry Deposition Air Surface Exchange Process in CMAQ. * [M3DRY](./CMAQ-Release-Notes:-Dry-Deposition-Air-Surface-Exchange:-M3DRY.md) * [Surface Tiled Aerosol and Gaseous Exchange (STAGE)](./CMAQ-Release-Notes:-Dry-Deposition-Air-Surface-Exchange:-Surface-Tiled-Aerosol-and-Gaseous-Exchange-(STAGE).md) * [Generalized Changes](./CMAQ-Release-Notes:-Dry-Deposition-Air-Surface-Exchange:-Generalized-Changes.md) ================================================ FILE: DOCS/Release_Notes/CMAQ-Release-Notes:-Dry-Deposition-Air-Surface-Exchange:-Generalized-Changes.md ================================================ ## Activate Dry Deposition Diagnostic Output for PMOTHR [Ben Murphy](mailto:murphy.ben@epa.gov), U.S. Environmental Protection Agency **Type of update**: Science Update **Release Version/Date**: CMAQv5.4 **Description**: The diagnostic output for dry deposition of PMOTHR species was activated in the AE namelist by default. **Significance and Impact**: None. |Merge Commit | Internal record| |:------:|:-------:| |[Merge for PR#808](https://github.com/USEPA/CMAQ/commit/20ffc395a7d2e6c4686621dc43ea6d65f00b3679) | [PR#808](https://github.com/USEPA/CMAQ_Dev/pull/808) | ## Remove Remnants of Reading Dry Deposition Velocities from MCIP [Chris Nolte](mailto:nolte.chris@epa.gov), U.S. Environmental Protection Agency **Type of Update**: Bug Fix **Release Version/Date**: CMAQv5.4 **Description**: Dry deposition velocities used to be computed in MCIP, then read by CMAQ. The capability to compute deposition velocities online (or "inline") was added in CMAQv4.7 in December 2008. The computation of deposition velocities was later removed from MCIP. However, the CMAQ code still had `ILDEPV` as a commented-out flag in `DEPV_DEFN`, as well as the `RDDEPV` routine, which was never called. These remnants have all been removed. **Significance and Impact**: Removes non-working option that had the potential for confusing users. |Merge Commit | Internal record| |:------:|:-------:| |[Merge for PR#679](https://github.com/USEPA/CMAQ/commit/e3021a6aadc355f3fad85d9bf325bbd6d871c2e8) | [PR#679](https://github.com/USEPA/CMAQ_Dev/pull/679) | ================================================ FILE: DOCS/Release_Notes/CMAQ-Release-Notes:-Dry-Deposition-Air-Surface-Exchange:-M3DRY.md ================================================ ### Revised dry dep flux for NH3 [Jon Pleim](mailto:pleim.jon@epa.gov), U.S. Environmental Protection Agency **Type of update**: Science Update **Release Version/Date**: CMAQv5.5 **Description**: Changed the calculation of NH3 dry dep flux and NH3 emission flux. Now the NH3 dry dep flux is calculated in ABFLUX by setting the ground and stomatal NH3 concentrations to zero. Emission flux is then the Net Flux - Dry Dep flux. Also, fixed error in cuticle resistance to ammonia when not using bi-directional flux. **Significance and Impact**: First part only changes NH3 and NH3_Emis output in CCTM_DRYDEP files. Second part changes NH3 deposition when running without ammonia bi-directional exchange (ABFLUX). This change causes a minor increase in PM and decreases O3 (see figure below), providing a more accurate NH3 dry dep flux estimate.
|Merge Commit | Internal record| |:------:|:-------:| |[Merge for PR#1073](https://github.com/USEPA/CMAQ/commit/c58dbf7b0f60d4bd04188205236e664fab7902cd) | [PR#1073](https://github.com/USEPA/CMAQ_Dev/pull/1073) | ### New Aerosol Deposition Model (aero_depv) [Jon Pleim](mailto:pleim.jon@epa.gov), U.S. Environmental Protection Agency **Type of update**: Science Update **Release Version/Date**: CMAQv5.4 **Description**: A new aerosol deposition model has been developed and added to CMAQv5.4. The model development, description, and testing are described in a new Journal article to be published in JAMES (Pleim et al, 2022). The inspiration for this new model comes from comparisons of currently used aerosol dry deposition models to a compendia of published field measurement studies in various landscapes that show very poor agreement over a wide range of particle sizes. The new aerosol dry deposition model that is a modification of the current model in CMAQv5.3 agrees much better with measured dry deposition velocities across particle sizes. The key innovation is the addition of a second inertial impaction term for microscale obstacles such as leaf hairs, microscale ridges, and needleleaf edge effects. **Significance and Impact**: The most significant effect of the new model is to increase the mass dry deposition of the accumulation mode aerosols in CMAQ. Accumulation mode mass dry deposition velocities increase by almost an order of magnitude in forested areas with lesser increases for shorter vegetation. Peak PM2.5 concentrations are reduced in some forested areas by up to 40% in CMAQ simulations. **References**: Pleim, J. E., Ran, L., Saylor, R. D., Willison, J., & Binkowski, F. S. (2022). A new aerosol dry deposition model for air quality and climate modeling. Journal of Advances in Modeling Earth Systems, 14, e2022MS003050. [https://doi. org/10.1029/2022MS003050](https://doi.%20org/10.1029/2022MS003050) |Merge Commit | Internal record| |:------:|:-------:| |[Merge for PR#842](https://github.com/USEPA/CMAQ/commit/289701974ba9610cf92043e9f223fbbf0f888bbd) | [PR#842](https://github.com/USEPA/CMAQ_Dev/pull/842) | ================================================ FILE: DOCS/Release_Notes/CMAQ-Release-Notes:-Dry-Deposition-Air-Surface-Exchange:-Surface-Tiled-Aerosol-and-Gaseous-Exchange-(STAGE).md ================================================ ### Correction in an Underflow STAGE Emerson Aerosol Dry Deposition Option [Jesse Bash](mailto:bash.jesse@epa.gov), U.S. Environmental Protection Agency **Type of update**: Bug Fix **Release Version/Date**: CMAQ 5.5 **Description**: This pull request resolves an underflow issue in calculating the bounce correction term (R1) in the [Emerson et al. 2020](https://www.pnas.org/doi/10.1073/pnas.2014761117) (equation 2) aerosol dry deposition option in STAGE. **Significance and Impact**: This allows for CMAQ simulations using the STAGE Emersion aerosol dry deposition option when compiled with debug flags. This correction makes relatively small changes in the aerosol dry deposition velocity when the gravitation settling velocity is large. This can result in small changes in the aerosol deposition velocity but has no impact on model evaluations to the precision that is reported in the AMET tool. |Merge Commit | Internal record| |:------:|:-------:| |[Merge for PR#1102](https://github.com/USEPA/CMAQ/commit/e54d26342569a1811195c4bb4e54579ae0192927) | [PR#1102](https://github.com/USEPA/CMAQ_Dev/pull/1102) | ### STAGE Minor Bugfix [Jesse Bash](mailto:bash.jesse@epa.gov), U.S. Environmental Protection Agency **Type of update**: Bug Fix **Release Version/Date**: CMAQ 5.5 **Description**: This pull request address three issues in the STAGE deposition option. 1. The units for Molar Vol in CMAQ_Control_STAGE.nml are incorrect and should be cm**3 mol-1 2. The diffusive volume in STAGE_MOD.F should be 20.1 cm**3 mol-1 rather than 22.4 following Fuller et al. 1966 and the [EPA Onsite toolbox](https://www3.epa.gov/ceampubl/learn2model/part-two/onsite/ed-background.html). 3. Added the attenuation of u* due to canopy elements to the deposition of aerosols to vegetated covered smooth surfaces. **Significance and Impact**: This pull request corrects a units typo in the CMAQ_Control_STAGE.nml and the FSG diffusive volume for air in the diffusivity calculation. This results in a minor reduction in model estimated O3 concentrations with the largest reductions (less than 1 ppb) occurring during the summer over forested land cover where the model typically overestimates AQS observed O3. The model differences are not likely to impact the general model evaluation. **References**: [EPA Onsite toolbox](https://www3.epa.gov/ceampubl/learn2model/part-two/onsite/ed-background.html) |Merge Commit | Internal record| |:------:|:-------:| |[Merge for PR#1070](https://github.com/USEPA/CMAQ/commit/372037a5e32bca159c57fab7703de99c4530f7e3) | [PR#1070](https://github.com/USEPA/CMAQ_Dev/pull/1070) | ### Land Use and Deposition Species Mapping [Jesse Bash](mailto:bash.jesse@epa.gov), U.S. Environmental Protection Agency **Type of update**: Bug Fix, New Feature **Release Version/Date**: CMAQ 5.4 **Description**: This update to STAGE has three primary parts: 1. introduces the mapping of land use data from the meteorological model to an internal land use category similar as with the AQMEII 4 project. This mapping is defined in the CMAQ_Control_STAGE.nml and is fully customizable allowing the user to set the number and parameters for the land use types and define the meteorological models land use data. These parameters now include the NH3 and Hg compensation points for bidirectional options. This also provides the logic when mapping from land use specific deposition to high resolution land use data, e.g. MODIS. 2. Land use specific conductances are now normalized to the meteorological model’s grid average value. This results in little change when using WRF 3.8.1 with the PX land surface scheme but does change results with other versions of WRF and land surface schemes. When using WRF 4.1.2 using the PX land surface scheme in the EQUATES project, this resulted in a reduction in Maximum 8 hour O3 concentrations over the Eastern US by 1-3 ppb in July and little change in January. This resulted in an improvement in model performance. 3. The mapping of dry deposition species to vertical diffusion species has been completely revised. This mapping is now done in the initialization DEPV_DEFN.F rather than at each sync step. This mapping is now editable without the need to recompile using the CMAQ_Control_STAGE namelist allowing users to add deposition processes to any modeled species. The mapping between vdiff and dep is stored in a derived data type and is also used to control the output of the optional grid and tiled deposition velocity files. 4. This pull request corrected an error in the bidirectional NH3 exchange parameterization of the soil ammonium in solution for MODIS category 14 that was present when soil moisture in the first soil fell below the specified wilting point that resulted in excessively high NH3 emissions. This was only present when running using MODIS land use over the contiguous U.S. with bidirectional NH3 exchange turned on. **Significance and Impact**: Overall, these result in a reduction in model run time, particularly when the MOSAIC option is set, and improved model O3 performance and reduced NH3 error when compared against AMoN observations when using meteorology with MODIS land use. There is little impact on other model species. Land use and species-specific deposition parameters have been aggregated allowing for easier maintenance, improved transparency, and gives the user much more control over the governing deposition processes. |Merge Commit | Internal record| |:------:|:-------:| |[Merge for PR#847](https://github.com/USEPA/CMAQ/commit/16f959108268dd2a55e2271a26d5d89a9ec54914) | [PR#847](https://github.com/USEPA/CMAQ_Dev/pull/847) | ### Updates to Gaseous and Aerosol Dry Deposition [Jesse Bash](mailto:bash.jesse@epa.gov), U.S. Environmental Protection Agency **Type of update**: Bug fix, New feature **Release Version/Date**: CMAQ 5.4 **Description**: The STAGE option in CMAQ v5.5 now allows the user to specify key land use parameters for gaseous and aerosol dry deposition process using the CMAQ_Control_STAGE.nml name list. Default values have been populated using median observations from the TRY Plant Trait Database. These updates reduce the bias in summertime NH3 concentrations by approximately half. Two aerosol deposition options have been added that better capture the observed relationship between the observed aerosol dry deposition velocity and particle diameter. The Emerson et al. 2020 option has been made the default in STAGE and results in PM2.5 concentrations similar to the STAGE CMAQ v5.3 scheme while the Pleim et al. 2022 option results in a higher rates of aerosol deposition in the Accumulation mode and results in lower ambient PM2.5 concentrations. The aerosol deposition options can be selected in the run script by setting the following environmental variables to Y: `setenv CTM_STAGE_P22 N #> Pleim et al. 2022 Aerosol deposition model [default: N]` `setenv CTM_STAGE_E20 Y #> Emerson et al. 2020 Aerosol deposition model [default: Y]` `setenv CTM_STAGE_S22 N #> CMAQ v5.3 Aerosol deposition model [default: N]` This update to STAGE has 5 primary parts: 1. The formulation for Calc_Rb_leaf in STAGE_FUNCTIONS.F has been revised to more closely follow the original derivation in Jensen and Hummelshoj 1995/1997 doi:10.1016/0168-1923(94)05083-I from the implementation in [Massad et al 2010](https://doi.org/10.5194/acp-10-10359-2010). This change was made due to typographical errors found Massad et al. 2010 and it was unclear if the remaining differences between Massad et al. 2010 and its cited references, Jensen and Hummelshoj 1995/1997, where intentional or in error. 2. Leaf litter emission potentials were added for under canopy surfaces and stomatal NH3 emission potentials were updated based on AMoN site survey data extrapolated to the STAGE land use categories based [TRY Plant Trait Database](https://www.try-db.org/TryWeb/Home.php) leaf and soil litter nitrogen observations. 3. The soil water-solid partitioning scheme was updated based on recent measurements conducted at NCSU. 4. Land use specific parameters for aerosol deposition processes have now been moved to CMAQ_Control_STAGE.nml and the aerodynamic leaf width parameter has been updated based on TRY Plant Trait Database observations, assuming an oval leaf following [Campbell and Norman 1998](https://link.springer.com/book/10.1007/978-1-4612-1626-1). 5. The CSU [Emerson et al. 2020](https://doi.org/10.1073/pnas.2014761117) and Pleim et al. 2022 aerosol deposition options are now included as a runtime option. The CSU model has been modified to smoothly scale from leaf off to leaf on conditions and vegetated to non-vegetated conditions for the CMAQ application. This includes the incorporation of a two layer aerosol deposition model and replacing the product of the empirical factor 3 and u* with the integration of LAI(z) u*(z) from 0 to the canopy top using the in-canopy attenuation coefficient of [Yi 2008](https://doi.org/10.1175/2007JAMC1667.1). This matches the empirical factor of 3 at an LAI of approximately 5.3. When LAI = 0 this returns the deposition velocity for non-vegetated surfaces. Despite these changes, CMAQ model results, with an aerosol standard deviation of 1, are similar to the figures presented in Emerson et al. 2020. ![image](https://user-images.githubusercontent.com/12100276/165372400-d045f7bd-c0c8-4780-9ce9-7c542cc2e4bb.png) Deposition velocity as a function of particle diameter for the CSU model, M3Dry [PR#842](https://github.com/USEPA/CMAQ_Dev/pull/842), STAGE v5.3, and the STAGE-CSU modal parameterization [PR#883](https://github.com/USEPA/CMAQ_Dev/pull/883). ![image](https://user-images.githubusercontent.com/12100276/165372939-ccfa2c55-8a45-4604-9a62-31e0887baa5e.png) Deposition pathways of the STAGE-CSU implementation. **Significance and Impact**: 1. This pull request revises the formula for Rb_leaf which results in lower resistances to vegetation with LAI > 4.6 and higher resistance to deposition otherwise. This primarily impacts HNO3 and other species with low/no canopy resistance. Model differences are small and typically less than 1 ppb. 2. Changes 2 and 3 result in about a 15% increase in summertime NH3 concentrations over the CONUS domain with decreases in heavily agricultural areas. This results in a reduction in the model bias and error. ![image](https://user-images.githubusercontent.com/12100276/165373141-bac10392-8101-43fd-b322-3ebd566ef8d7.png) July 2016 Evaluation against AMoN concentrations, AMoN observations (grey), the STAGE v5.4 update [PR#883](https://github.com/USEPA/CMAQ_Dev/pull/883) (red), and [PR#842](https://github.com/USEPA/CMAQ_Dev/pull/842) (blue) 3. The Pleim et al. 2022 aerosol deposition options results are similar to [PR#842](https://github.com/USEPA/CMAQ_Dev/pull/842) while the Emerson et al. 2020 option results in a smaller reduction than Pleim et al. 2022 in ambient aerosol concentrations while still capturing the observed minimum in the aerosol deposition velocity. The Pleim et al. 2022 option was evaluated against a CONUS July 2016 simulation of a current build of M3Dry and the modeled PM was within 5% of each other. The differences in PM appear to be related to gaseous aerosol precursors due to differences in the gaseous deposition and BVOC emissions, the STAGE case used BEIS4/BELD6. ![image](https://user-images.githubusercontent.com/12100276/165373756-a34c24ab-4615-48ff-bc4d-fd82ef69ca64.png) Monthly mean PM2.5 from M3Dry [PR#842](https://github.com/USEPA/CMAQ_Dev/pull/842) (left) and STAGE using the Pleim et al. 2022/M3Dry scheme (right). ![image](https://user-images.githubusercontent.com/12100276/165373889-1d5e8c98-f79a-4ba4-822b-1cd587e65aea.png) Time series of PM2.5 from M3Dry [PR#842](https://github.com/USEPA/CMAQ_Dev/pull/842), black, and STAGE using the M3Dry aerosol deposition velocity, red, (left) and a scatter plot between the two parameterizations (right). ![image](https://user-images.githubusercontent.com/12100276/165374017-1e3a77be-6bf6-4b08-a58a-89252f4672b3.png) Monthly mean PM2.5 from STAGE using the Emerson et al. 2020/CSU scheme (left) and STAGE using the Pleim et al. 2022/M3Dry scheme (right). ![image](https://user-images.githubusercontent.com/12100276/165374076-5c95bb86-a795-4ec9-9ad1-333c9f703050.png) Time series of PM2.5 from STAGE using the CSU aerosol deposition velocity, black, and STAGE using the M3Dry aerosol deposition parameterization, red, (left) and a scatter plot between the two parameterizations (right). ![image](https://user-images.githubusercontent.com/12100276/165374388-27999a12-981f-4b15-b7f0-557a6471b691.png) July 2016 stacked barplots. From left to right, AQS daily observations, STAGE with CSU aerosol deposition option, STAGE with M3Dry aerosol deposition option, STAGE with v5.3 aerosol deposition option **References**: Campbell and Norman, An introduction to Environmental Biophysics, Springer New York, NY, https://doi.org/10.1007/978-1-4612-1626-1: 1998 Emerson, E.W., Hodshire, A.L., DeBolt, H.M., Farmer, D.K., Revisiting particle dry deposition and its role in radiative effect estimates. Proceedings of the National Academy of Sciences, 117(42), 26076-26082, https://doi.org/10.1073/pnas.2014761117: 2020 Jensen, N.O., Hummelshoj, P., Derivation of canopy resistance for water vapour fluxes over a spruce forest using a new technique for the viscous sublayer resistance, Agricultural and Forest Meteorology, 73 (3-4), 339-352, https://doi.org/10.1016/0168-1923(94)05083-I, 1995 Kattge, J., et. al.: TRY plant trait database – enhanced coverage and open access. Global Change Biology 26, 119 – 188, https://doi.org/10.1111/gcb.14904: 2020 Massad, R.-S., Nemitz, E., Sutton. M.A., Review and parameterization of bi-directional ammonia exchange between vegetation and the atmosphere, Atmos. Chem. Phys., 10., 10359-10386, https://doi.org/10.5194/acp-10-10359-2010, 2010 Yi, X., Momentum Transfer within Canopies, J. Applied Meteorology and Climatology,47(1), 262-275, https://doi.org/10.1175/2007JAMC1667.1: 2008 |Merge Commit | Internal record| |:------:|:-------:| |[Merge for PR#883](https://github.com/USEPA/CMAQ/commit/bdcb56e60ca03248e4782fc296b855e6fdefd7c8) | [PR#883](https://github.com/USEPA/CMAQ_Dev/pull/883) | ================================================ FILE: DOCS/Release_Notes/CMAQ-Release-Notes:-Emissions-Updates.md ================================================ # Emissions Updates This page contains links to Wiki pages describing current and past changes to the Emission related components in CMAQ. * [Detailed Emissions Scaling Isolation and Diagnostics Module (DESID)](./CMAQ-Release-Notes:-Emissions-Updates:-Detailed-Emissions-Scaling-Isolation-and-Diagnostics-Module-(DESID).md) * [BEIS Biogenic Emissions](./CMAQ-Release-Notes:-Emissions-Updates:-BEIS-Biogenic-Emissions.md) * [Model of Emissions of Gases and Aerosols from Nature (MEGAN) Biogenic Emissions](./CMAQ-Release-Notes:-Emissions-Updates:-Model-of-Emissions-of-Gases-and-Aerosols-from-Nature-(MEGAN)-Biogenic-Emissions.md) * [Environmental Policy Integrated Climate (EPIC) Model](./CMAQ-Release-Notes:-Emissions-Updates:-Environmental-Policy-Integrated-Climate-(EPIC)-Model.md) * [Wind-Blown Dust Emissions](./CMAQ-Release-Notes:-Emissions-Updates:-Wind-Blown-Dust-Emissions.md) * [Lightning Emissions](./CMAQ-Release-Notes:-Emissions-Updates:-Lightning-Emissions.md) * [Marine Gas Emissions](./CMAQ-Release-Notes:-Emissions-Updates:-Marine-Gas-Emissions.md) * [Sea-Spray Aerosol Emissions](./CMAQ-Release-Notes:-Emissions-Updates:-Sea-Spray-Aerosol-Emissions.md) * [Gridded Emissions](./CMAQ-Release-Notes:-Emissions-Updates:-Gridded-Emissions.md) * [Point Source Emissions](./CMAQ-Release-Notes:-Emissions-Updates:-Point-Source-Emissions.md) ================================================ FILE: DOCS/Release_Notes/CMAQ-Release-Notes:-Emissions-Updates:-BEIS-Biogenic-Emissions.md ================================================ ### BEIS Updates [Jesse Bash](mailto:bash.jesse@epa.gov), U.S. Environmental Protection Agency **Type of update**: Science Update and Bug Fix **Release Version/Date**: CMAQv5.4 **Description**: Science updates: 1. BEIS in CMAQ is streamlined by removing the BIOSEASONS file and the BIOSW_YN and SUMMER_YN options. > Seasonality is now modeled using the 1 meter soil temperature following the WRF PX LSM implementation and was tested with WRF output using both NOAH and PX LSM simulations. 2. Canopy temperature and radiation environments are now modeled using the driving meteorological model’s representation of LAI rather than the LAI values in the B3GRD file. Bug fixes: 1. Solar radiation attenuation in the shaded portion of the canopy was using the direct beam photosynthetically active radiation (PAR) when the diffuse beam PAR attenuation coefficient should have been used. > This update had little impact on the total emissions but did result in slightly higher emissions in the morning and evening transition periods for isoprene, methanol and MBO. 2. The fraction of solar radiation in the sunlit and shaded canopy layers, SOLSUN and SOLSHADE respectively were estimated using a planar surface. These should have been estimated based on the par intercepted by a hemispheric surface rather than a plane. > This update can result in an earlier peak in leaf temperature, approximately up to an hour. 3. The quantum yield for isoprene emissions (ALPHA) was updated to the mean value in Niinemets et al. 2010a ( https://doi.org/10.1029/2010JG001436) and the integration coefficient (CL) was updated to yield 1 when PAR = 1000 following Niinemts et al 2010b ( https://doi.org/10.5194/bg-7-1809-2010). > This updated resulted in a slight reduction in isoprene, methanol, and MBO emissions. BELD 6 updates: 1. Utilizes high resolution tree species and biomass data from Wilson et al. 2013a, and Wilson et al. 2013b. > Scaled to mean grid cell leaf biomass using the allometric relationships in the U.S. Forest Service Forest Inventory and Analysis (FIA) database allometric scaling (Jenkins et al. 2003) 2. Species names were changed from non-specific common names to scientific names 3. Tree species biogenic volatile organic carbon (BVOC) emission factors for tree species where taken from the NCAR Enclosure database similar to MEGAN 3 4. Switch from area based to the leaf biomass based emission factors to utilize the new high resolution data from the US Forest Service and to utilize units more commonly reported in the literature. **Significance and Impact**: The seasonality updates require one less input file and two fewer environment variables. Leaf off and leaf on conditions are now represented as a gradient rather than a binary variable and are in better agreement with long term means from the U.S.A. National Phenological Network observations (USANPN). This change did not have a large impact on BVOC emissions due to the temperature dependence on emissions. ![image](https://user-images.githubusercontent.com/12100276/165358483-8df7e5fd-0241-46f5-963a-bae38bf28e16.png) Comparison USANPN observations leaf onset observations for April 15th (top), the BEIS4 parameterization adopted from the WRF PX land surface scheme (bottom left), and the BEIS3 bioseasons file representation (bottom right) The correction to the canopy light model resulted in similar emissions as BEIS3 but in much higher simulated CMAQ isoprene, methanol, and MBO concentrations due to an increase in emissions during the morning and evening transition where the modeled boundary layer height is relatively low. This resulted in approximately a 30% increase in estimated isoprene concentrations in July. The updates to BELD increased isoprene emissions in the Southeast by approximately another 20% and monoterpene emissions decreased by approximately 20% due to changes in emission factors and differences between the biomass estimates of Wilson et al. 2013 used in BELD 6 and the domain wide assumptions used in BELD 5. ![image](https://user-images.githubusercontent.com/12100276/165358526-0f2b989e-3ef2-441e-a32f-c42163bedcb8.png) Daily AQS isoprene observations (grey) and July 2016 results from this merge with BELD6 emission factors (red), prior to this merge with BELD6 emission factors (blue), and the research branch with BELD5 emission factors (green) **References**: Jenkins, J.C., Chajnocky, D.C., Heath, L.S., Birdsey, R.A., National-scale biomass estimators for United States Tree Species, Forest Science, 49(1), 12-35, https://doi.org/10.1093/forestscience/49.1.12, 2003 Niinemets, U., Copolovici, L., Huve, K., High within-canopy variations in isoprene emission potentials in temperate trees: Implications for predicting canopy-scale isoprene fluxes, J. Geophys. Res. Biogeosci. G04029, ,https://doi.org/10.1029/2010JG001436, 2010a Niinemets, U., Monson, R.K., Arneth, A., Ciccioli, P., Kesselmeier, J., Kuhn, U., Noe, S.M., Penuelas, J., Staudt, M., The leaf-level emission factor of volatile isoprenoids: caveats, model algorithms, response, shapes and scaling, Biogeosciences, 7, 1809-1832, https://doi.org/10.5194/bg-7-1809-2010, 2010b Wiedinmyer, C., 2001. NCAR BVOC Enclosure Database. National Center for Atmospheric Research, Boulder, CO Wilson, Barry Tyler; Lister, Andrew J.; Riemann, Rachel I.; Griffith, Douglas M. 2013a. Live tree species basal area of the contiguous United States (2000-2009). Newtown Square, PA: USDA Forest Service, Rocky Mountain Research Station. https://doi.org/10.2737/RDS-2013-0013 Wilson, Barry Tyler; Woodall, Christopher W.; Griffith, Douglas M. 2013b. Forest carbon stocks of the contiguous United States (2000-2009). Newtown Square, PA: U.S. Department of Agriculture, Forest Service, Northern Research Station. https://doi.org/10.2737/RDS-2013-0004 |Merge Commit | Internal record| |:------:|:-------:| |[Merge for PR#868](https://github.com/USEPA/CMAQ/commit/e5af32542cf7f60e16620857d1a20f85c0049528) | [PR#868](https://github.com/USEPA/CMAQ_Dev/pull/868) | ================================================ FILE: DOCS/Release_Notes/CMAQ-Release-Notes:-Emissions-Updates:-Detailed-Emissions-Scaling-Isolation-and-Diagnostics-Module-(DESID).md ================================================ ### Updates needed for MPAS-CMAQ implementation [Ben Murphy](mailto:murphy.ben@epa.gov), U.S. Environmental Protection Agency **Type of update**: Bug Fix **Release Version/Date**: v5.5 **Description**: Two issues were found related to emissions processing algorithms in DESID. (1) In desid_module.F, when the emission scale factor is applied, there are conditionals that govern whether the scale factor (FAC) should be adjusted by the map scale factor or grid cell area. These potential adjustments are applied within a loop over vertical levels and so their impact will accumulate as the algorithm treats higher model layers. This issue was not resolved earlier since area adjustments are seldom needed in the current CMAQ workflow. (2) A variable in AERO_EMIS (EMISM3) was allocated every time the subroutine was called, and a better approach is to define EMISM3 as a saved variable and allocate it once. It is a large variable so avoiding repeated allocations may have an impact on memory management. **Significance and Impact**: In addition to correcting potential vulnerabilities, these changes are needed to harmonize the code between offline CMAQ and MPAS-CMAQ. |Merge Commit | Internal record| |:------:|:-------:| |[Merge for PR#1007](https://github.com/USEPA/CMAQ/commit/109ac7ef5b972dee37fd4e1f66ec865b277d77c2) | [PR#1007](https://github.com/USEPA/CMAQ_Dev/pull/1007) | ### Reconcile Emission Molecular Weight Table with CRACMM Speciation [Ben Murphy](mailto:murphy.ben@epa.gov), U.S. Environmental Protection Agency **Type of update**: Mechanism Support **Release Version/Date**: CMAQv5.5 **Description**: DESID uses molecular weight to convert between moles and mass for gas and aerosol emission variables. In general, these MW's are not needed because gases and aerosols are provided in terms of moles and mass, respectively. However, if emissions for a CMAQ species are provided in a unit that requires this conversion, the MW must be provided or a value of 1.0 will be assumed. **Significance and Impact**: To fully support CRACMM development and implementation. In most cases, there is no impact on results. If MW is needed for a unit conversion, then the impact can be very significant (1-2 orders of magnitude for the affected species). |Merge Commit | Internal record| |:------:|:-------:| |[Merge for PR#1006](https://github.com/USEPA/CMAQ/commit/bea8e25dccc0c416e42924cda3890ab098470b58) | [PR#1006](https://github.com/USEPA/CMAQ_Dev/pull/1006) | ### Chemical Family Support [Ben Murphy](mailto:murphy.ben@epa.gov), U.S. Environmental Protection Agency **Type of update**: Bug Fix **Release Version/Date**: CMAQv5.5 **Description**: Allows for aerosol bulk names to be used on emission input files (e.g. APOC or ASO4). These variable names do not include the mode suffixes. DESID should be able to map them to an internal CMAQ species using a rule like: ``` Region Stream Emission CMAQ Phase Scale Basis Operator Variable Species Factor 'EVERYWHERE', 'ALL' ,'APOC', 'APOC' ,'FINE', 1.0, 'UNIT', 'a', ``` but it currently cannot because it automatically stores all aerosol bulk names as families with members equivalent to the list of aerosol species matching that chemical (i.e. APOC contains APOCI and APOCJ). If an input file has APOC on it, and the user tries to map to it, DESID looks for APOCI and APOCJ, can't find them, and reports a problem (but moves on and runs). Previous CMAQ versions (5.3.3) had this capability and the introduction of aerosol bulk name families compromised it. In the new approach, if the algorithm detects that a variable name is an aerosol bulk name, it looks for an emission variable matching that name, instead of breaking it apart into its members. On the other hand, if the name is used in the CMAQ species column (i.e. the second occurrence of APOC in the example above), then DESID will match the components and scale them each as desired. Other improvements in this update include a check when families are defined to make sure that if a user defines a family that has the same name as an active aerosol bulk name, then the user definition is preferred and the number of chemical families is reduced. **Significance and Impact**: No impact on model results. Restoration of features available in previous model versions and better error checking and handling. |Merge Commit | Internal record| |:------:|:-------:| |[Merge for PR#963](https://github.com/USEPA/CMAQ/commit/f7182ebf94524be13a6db804a26a148f863dc3f2) | [PR#963](https://github.com/USEPA/CMAQ_Dev/pull/963) | ### Restructuring and Miscellaneous updates to the DESID Interface and Processing Features [Ben Murphy](mailto:murphy.ben@epa.gov), U.S. Environmental Protection Agency **Type of update**: Interface Update **Release Version/Date**: CMAQv5.4 **Description**: The DESID Emission Control file has been restructured and several minor updates have been made to the functionality and features available in the DESID interface. Specific details as follows: - The Emission control file has been streamlined and split to improve maintainability. There are now three control files including CMAQ_Control_Misc.nml which contains input parameters for non-DESID modules like ELMO and the Budget tool, CMAQ_Control_DESID.nml which contains DESID parameters that are independent of chemical mechanism (e.g. region and are size distribution parameters), and CMAQ_Control_DESID_${MECH}.nml which contains mechanism-dependent scaling rules. - Area normalization - if offline streams are provided in units of area-normalized flux, DESID can now be told to multiply the flux inputs by the area of each grid cell projected to the real area on the Earth's surface, if appropriate. - A computational inefficiency was discovered that has been corrected for cases when there are more than 200,000 point sources on a single sub-domain block. - Diagnostic options have been expanded so that users can choose which variables and sources will populate individual output files. - A bug in the processing of region-based scaling parameters was discovered and revised. - Variables and comments have been revised for clarity. - Chemical families have been revised to so they are accessed globally by other modules like ELMO. |Merge Commit | Internal record| |:------:|:-------:| |[Merge for PR#817](https://github.com/USEPA/CMAQ/commit/d3a8d13f63746a83854a4babde3a2a5d9747e15d) | [PR#817](https://github.com/USEPA/CMAQ_Dev/pull/817) | |[Merge for PR#809](https://github.com/USEPA/CMAQ/commit/c6f906165301f28ad45a0118acec9d9a6666db98) | [PR#809](https://github.com/USEPA/CMAQ_Dev/pull/809) | |[Merge for PR#766](https://github.com/USEPA/CMAQ/commit/9b90649c8fb9316c5abc163f79e3a1245644880f) | [PR#766](https://github.com/USEPA/CMAQ_Dev/pull/766) | |[Merge for PR#714](https://github.com/USEPA/CMAQ/commit/804498d39c73e648b1aa72fcb807697fd1dc67b1) | [PR#714](https://github.com/USEPA/CMAQ_Dev/pull/714) | |[Merge for PR#709](https://github.com/USEPA/CMAQ/commit/c510f9b3be031cd799d1f7dd5a106674c29e58b6) | [PR#709](https://github.com/USEPA/CMAQ_Dev/pull/709) | |[Merge for PR#648](https://github.com/USEPA/CMAQ/commit/22d519fdac9c8fcfec9aeb2c186b2f0e3f77ad8b) | [PR#648](https://github.com/USEPA/CMAQ_Dev/pull/648) | |[Merge for PR#894](https://github.com/USEPA/CMAQ/commit/baced51d9047a7814846cb54533e6a0dfe14832c) | [PR#894](https://github.com/USEPA/CMAQ_Dev/pull/894) | |[Merge for PR#638](https://github.com/USEPA/CMAQ/commit/cac8f6cbd55558c330549278d396a1d3920d2f80) | [PR#638](https://github.com/USEPA/CMAQ_Dev/pull/638) | |[Merge for PR#772](https://github.com/USEPA/CMAQ/commit/60af2e025519ccaed3a51feebda622d48e9f020a) | [PR#772](https://github.com/USEPA/CMAQ_Dev/pull/772) | ================================================ FILE: DOCS/Release_Notes/CMAQ-Release-Notes:-Emissions-Updates:-Environmental-Policy-Integrated-Climate-(EPIC)-Model.md ================================================ ### Improved NaN traps for EPIC input files [Jesse Bash](mailto:bash.jesse@epa.gov), U.S. Environmental Protection Agency **Type of update**: Bug fix **Release Version/Date**: CMAQv5.5 **Description**: CCTM crashes when debug flags are turned on if NaNs are present in EPIC input files and the current NaN traps do no work when running CCTM with debug compilation flags. The FORTRAN 2003 IEEE arithmetic function ieee_is_nan was implemented to correctly trap NaN in these inputs when running in debug mode. It is unclear why EPIC output contains sporadic NaNs, these are not visible Verdi or R and may have to do with a periodic error in specifying BADVAL3. **Significance and Impact**: Allows the user to run CCTM with bidirectional NH3 exchange with debug flags when EPIC data contains NaNs. Model runtime and results are unchanged. The FORTRAN 2003 IEEE arithmetic intrinsic functions are included in Intel 16+, PGI 16+ and GCC 5+ compiler versions. |Merge Commit | Internal record| |:------:|:-------:| |[Merge for PR#1036](https://github.com/USEPA/CMAQ/commit/68377cdbc6fcd4d4e8d0cb94e448fcb60b048fd7) | [PR#1036](https://github.com/USEPA/CMAQ_Dev/pull/1036) | ================================================ FILE: DOCS/Release_Notes/CMAQ-Release-Notes:-Emissions-Updates:-Gridded-Emissions.md ================================================ # Gridded Emissions Changes No changes were made to Gridded Emissions in CMAQv5.5. ================================================ FILE: DOCS/Release_Notes/CMAQ-Release-Notes:-Emissions-Updates:-Lightning-Emissions.md ================================================ ### Lightning Emissions [Daiwen Kang](mailto:kang.daiwen@epa.gov), U.S. Environmental Protection Agency **Type of update**: Bug Fix **Release Version/Date**: CMAQv5.4 **Description**: The time steps in the lightning NOx diagnostic files were from 1 t0 24 in the previous versions. For CMAQv5.4, the time steps for the diagnostic files are from 0 to 23 in agreement with other output files. **Significance and Impact**: No impact on results. |Merge Commit | Internal record| |:------:|:-------:| |[Merge for PR#819](https://github.com/USEPA/CMAQ/commit/a3626ee9e8b60f9b0526d942f4fd44a4e9db0fc5) | [PR#819](https://github.com/USEPA/CMAQ_Dev/pull/819) | ================================================ FILE: DOCS/Release_Notes/CMAQ-Release-Notes:-Emissions-Updates:-Marine-Gas-Emissions.md ================================================ # Marine Gas Changes No changes were made to Marine Gas Emissions in CMAQv5.5. ================================================ FILE: DOCS/Release_Notes/CMAQ-Release-Notes:-Emissions-Updates:-Model-of-Emissions-of-Gases-and-Aerosols-from-Nature-(MEGAN)-Biogenic-Emissions.md ================================================ ### BDSNP Dry Hours Calculation [Jeff Willison](mailto:willison.jeff@epa.gov), U.S. Environmental Protection Agency **Type of update**: Bug fix **Release Version/Date**: CMAQv5.5 **Description**: A bug in the pulsing subroutine of BDSNP was allowing for 24 additional time steps to be added to the dry hours total per day. On coarse grids with large time steps this bug was especially noticeable. For example, a 15 minute time step would would allow for accumulation of 30 dry hours per day. ![Willison_MEGAN](https://github.com/user-attachments/assets/b35d125b-ce61-4ae4-be5a-fe5db2300724) **Significance and Impact**: The effect of the bug fix on soil NO is small, with a resultant decrease of 0.3% in total 2018 soil NO emissions over the Northern Hemisphere at 108 km grid spacing. |Merge Commit | Internal record| |:------:|:-------:| |[Merge for PR#1100](https://github.com/USEPA/CMAQ/commit/7c27b05203a677a078992d4cfc1d7f00e059eb68) | [PR#1100](https://github.com/USEPA/CMAQ_Dev/pull/1100) | ### Improved NaN traps for EPIC and MEGAN input files [Jesse Bash](mailto:bash.jesse@epa.gov), U.S. Environmental Protection Agency **Type of update**: Bug fix **Release Version/Date**: CMAQv5.5 **Description**: CCTM crashes when debug flags are turned on if NaNs are present in EPIC input files and the current NaN traps do no work when running CCTM with debug compilation flags. The FORTRAN 2003 IEEE arithmetic function ieee_is_nan was implemented to correctly trap NaN in these inputs when running in debug mode. It is unclear why EPIC output contains sporadic NaNs, these are not visible Verdi or R and may have to do with a periodic error in specifying BADVAL3. **Significance and Impact**: Allows the user to run CCTM with bidirectional NH3 exchange with debug flags when EPIC data contains NaNs. Model runtime and results are unchanged. The FORTRAN 2003 IEEE arithmetic intrinsic functions are included in Intel 16+, PGI 16+ and GCC 5+ compiler versions. |Merge Commit | Internal record| |:------:|:-------:| |[Merge for PR#1036](https://github.com/USEPA/CMAQ/commit/68377cdbc6fcd4d4e8d0cb94e448fcb60b048fd7) | [PR#1036](https://github.com/USEPA/CMAQ_Dev/pull/1036) | ### BDSNP nitrogen deposition reservoir bug fix [Jeff Willison](mailto:willison.jeff@epa.gov), U.S. Environmental Protection Agency **Type of update**: Bug fix **Release Version/Date**: CMAQv5.5 **Description**: The soil nitrogen deposition reservoir (NDEPRES) was incorrectly calculated using online N deposition rates when the BDSNP soil NO option was enabled. This feature is not mature and contributes to unreasonably large NDEPRES values as the simulation progresses. This bug fix allows the MEGAN BDSNP module to use climatological N deposition rates from input files. The input files can be created using the MEGAN preprocessor along with the other necessary inputs for MEGAN and BDSNP. |Merge Commit | Internal record| |:------:|:-------:| |[Merge for PR#956](https://github.com/USEPA/CMAQ/commit/3f6b535c6a3b5ce9c5a58c7b8889e1f970b8f059) | [PR#956](https://github.com/USEPA/CMAQ_Dev/pull/956) | ### New Biogenic Emissions Option, The Model of Emissions of Gases and Aerosols from Nature (MEGAN) [Jeff Willison](mailto:willison.jeff@epa.gov), U.S. Environmental Protection Agency **Type of update**: Science Update **Release Version/Date**: CMAQv5.4 **Description**: MEGAN 3.2 is available in CMAQv5.4 as an additional option for inline biogenic emissions. Input files will be available for several domains at release, but users can download the MEGAN preprocessor to create their own (https://bai.ess.uci.edu/megan/data-and-code). Soil NO can be calculated using the Berkeley-Dalhousie Soil NOx Parameterization (BDSNP) or an implementation of Yinger and Levy (YL95) when MEGAN is enabled. Users may enable MEGAN and BEIS emission streams simultaneously to select species from a given stream through the emission control file. This approach allows the use of BDSNP with BEIS, the use of BEIS-YL95 with MEGAN, etc. See Chapter 4 of the user guide for more information about required inputs, and Chapter 6 for more information about configuration options and recommendations. **References**: Guenther, A., Jiang, X., Shah, T., Huang, L., Kemball-Cook, S., and Yarwood, G., Model of Emissions of Gases and Aerosol from Nature Version 3 (MEGAN3) for Estimating Biogenic Emissions: Air Pollution Modeling and its Application XXVI, edited by Mensink, C., Gong, W., and Hakami, A., pp. 187–190, Springer International Publishing, Cham, 2020. |Merge Commit | Internal record| |:------:|:-------:| |[Merge for PR#652](https://github.com/USEPA/CMAQ/commit/0a82257b1f8a43b0315f7f44b7a9b5dd9d2a1801) | [PR#652](https://github.com/USEPA/CMAQ_Dev/pull/652) | |[Merge for PR#701](https://github.com/USEPA/CMAQ/commit/49f5cf29d8991239e6fb0cda2702fdee65c7b981) | [PR#701](https://github.com/USEPA/CMAQ_Dev/pull/701) | |[Merge for PR#889](https://github.com/USEPA/CMAQ/commit/1916ef06c4dc9ea5b7d67ece1d96654d07203cde) | [PR#889](https://github.com/USEPA/CMAQ_Dev/pull/889) | ================================================ FILE: DOCS/Release_Notes/CMAQ-Release-Notes:-Emissions-Updates:-Point-Source-Emissions.md ================================================ # Point Source Emissions Changes No changes were made to Point Source Emissions in CMAQv5.5. ================================================ FILE: DOCS/Release_Notes/CMAQ-Release-Notes:-Emissions-Updates:-Sea-Spray-Aerosol-Emissions.md ================================================ # Sea-Spray Aerosol Changes No changes were made to Sea Spray Emissions in CMAQv5.5. ================================================ FILE: DOCS/Release_Notes/CMAQ-Release-Notes:-Emissions-Updates:-Wind-Blown-Dust-Emissions.md ================================================ ### Windblown Dust Emissions [Jeff Willison](mailto:willison.jeffrey@epa.gov), U.S. Environmental Protection Agency **Type of update**: Science Update and Bug Fix **Release Version/Date**: CMAQv5.4 **Description**: Several updates have been made to the windblown dust routine for CMAQ 5.4. The module has been updated to include additional PX soil texture information from WRF when available. The fugitive dust subroutines tfabove.F and tfbelow.F have been removed, since these were not originally intended to be used with windblown dust sources. The option of using BELD3 as a windblown dust input has been removed. BELD3 is outdated and in CMAQ 5.3 the windblown dust module did not support BELD4 or BELD5. Beginning in CMAQ 5.4 the necessary land use information for windblown dust is taken from MCIP input files or WRF. For CMAQ 5.4 we strongly recommend the use of WRFv4.1+ and the PX LSM when enabling windblown dust emissions. Lastly, a bug was corrected that was causing low erodibility values and significantly lower dust emissions when using WRFv4 inputs. **Significance and Impact**: A consequence of removing BELD as an option from windblown dust is that the DUST_LU* files are no longer needed. They have been removed from the CCTM code and the run scripts. The following plot summarizes the impact of the remaining changes above: ![image](https://user-images.githubusercontent.com/47453034/192348532-00cc147a-df4f-47dc-a5d5-b57ff315a9ec.png) Again, note, in the image above, the impacts of changing windblown dust input data from BELD to MCIP/WRF is not shown, but was not found to be a large contributor to the changes seen. As can be seen the largest change on modeled windblown dust is a result of the bug fix that was causing low erodibility values. |Merge Commit | Internal record| |:------:|:-------:| |[Merge for PR#877](https://github.com/USEPA/CMAQ/commit/632673aa0abc81a4f88223e67744a3744174708d) | [PR#877](https://github.com/USEPA/CMAQ_Dev/pull/877) | ================================================ FILE: DOCS/Release_Notes/CMAQ-Release-Notes:-Instrumented-Models.md ================================================ # Instrumented Models This page contains links to Wiki pages describing current and past changes to CMAQ Instrumented Models. * [CMAQ-ISAM](./CMAQ-Release-Notes:-Instrumented-Models:-CMAQ-ISAM.md): The Integrated Source Apportionment Method (ISAM) calculates source attribution information for user specified ozone and particulate matter precursors within the CMAQ model. For more information about this method see [Chapter 11](../Users_Guide/CMAQ_UG_ch11_ISAM.md). * [CMAQ-DDM3D](./CMAQ-Release-Notes:-Instrumented-Models:-CMAQ-DDM3D.md): The Decoupled Direct Method in Three Dimensions (DDM-3D) provides CMAQ concentration and deposition sensitivity information for user specified model parameters. For more information about this method see [Chapter 10](../Users_Guide/CMAQ_UG_ch10_HDDM-3D.md). ================================================ FILE: DOCS/Release_Notes/CMAQ-Release-Notes:-Instrumented-Models:-CMAQ-DDM3D.md ================================================ ### CMAQ-HDDM-3D Second Order Sensitivity Fix [Sergey L. Napelenok](mailto:contact.email@epa.gov), U.S. Environmental Protection Agency **Type of update**: Bug Fix **Release Version/Date**: CMAQv5.5 **Description**: A bug made its way into the chemistry routines that calculated 2nd order sensitivities (HDDM-3D) resulting in erroneous output for these parameters. Additionally, there are some runtime errors in the log files associated with writing out deposition sensitivity output. Finally, dry deposition sensitivities were not written out correctly. *Note that DDM-3D is not compatible with the STAGE deposition model in CMAQv5.5.* **Significance and Impact**: Second order sensitivities will now provide correct output and the log files will no longer display error messages about deposition sensitivities. Sensitivity of dry depositions will now output correctly past the 1st parameter. |Merge Commit | Internal record| |:------:|:-------:| |[Merge for PR#971](https://github.com/USEPA/CMAQ/commit/b39c23827b1d68a661d4b45815229e22d8691c03) | [PR#971](https://github.com/USEPA/CMAQ_Dev/pull/971) | ### CMAQ-DDM-3D potential vorticity sensitivity [Sergey L. Napelenok](mailto:contact.email@epa.gov), U.S. Environmental Protection Agency **Type of update**: Science Update **Release Version/Date**: CMAQv5.5 **Description**: It is possible to compute sensitivity to ozone incursions at the top of the simulated volume if the base model is compiled with potential vorticity module enabled. For CMAQ-DDM-3D, the sensitivity is to the total domain-wide incursion. **Significance and Impact**: The sensitivity parameter is defined in the control file as follows: EPV PVO3 SPECIES O3 |Merge Commit | Internal record| |:------:|:-------:| |[Merge for PR#957](https://github.com/USEPA/CMAQ/commit/bb4ebd757ebbb70f0f5e7ce32db52c716d08fdc8) | [PR#957](https://github.com/USEPA/CMAQ_Dev/pull/957) | ### CMAQ-DDM-3D Version 5.4 [Sergey L. Napelenok](mailto:contact.email@epa.gov), U.S. Environmental Protection Agency **Type of update**: Science Update **Release Version/Date**: CMAQv5.4 **Description**: CMAQ-DDM-3D has been fully integrated into the base model. There is no longer a separate repository, and the sensitivity calculations are accessed through compiler flags set in the build script and by completing the appropriate sections of the run script. These options are demonstrated in the sample scripts provided with the release of the base model. Additionally, some code structure changes were made to the DDM-3D mainly in the gas phase chemistry routines. Of note is the ability of the model to now calculate gas phase Jacobians inline making the code more flexible to accept new chemical mechanisms as well as changes to existing ones. *Note that DDM-3D is not compatible with the STAGE deposition model in CMAQv5.4.* **Significance and Impact**: No changes to sensitivity outputs should be expected in this release outside the ones caused by modifications of the base CMAQ science routines. |Merge Commit | Internal record| |:------:|:-------:| |[Merge for PR#609](https://github.com/USEPA/CMAQ/commit/2195617d6a2ff682c8089bcf82674a3862d73efb) | [PR#609](https://github.com/USEPA/CMAQ_Dev/pull/609) | |[Merge for PR#630](https://github.com/USEPA/CMAQ/commit/b78c26bccdba7cafcadb2a6ca58ec10317c31b5f) | [PR#630](https://github.com/USEPA/CMAQ_Dev/pull/630) | |[Merge for PR#922](https://github.com/USEPA/CMAQ/commit/df82fd1c8381f873d9b56ab74a2af6b9ed4ee61e) | [PR#922](https://github.com/USEPA/CMAQ_Dev/pull/922) | |[Merge for PR#929](https://github.com/USEPA/CMAQ/pull/929#issuecomment-1169352469) | [PR#929](https://github.com/USEPA/CMAQ_Dev/pull/929) | |[Merge for PR#930](https://github.com/USEPA/CMAQ/commit/72765f335188d9b32a24dc8281fa248b139b3b2a) | [PR#930](https://github.com/USEPA/CMAQ_Dev/pull/930) | |[Merge for PR#935](https://github.com/USEPA/CMAQ/commit/7ae4c28e8a50c56f9b0dd4aa3319abdcfcbc36c4) | [PR#935](https://github.com/USEPA/CMAQ_Dev/pull/935) | |[Merge for PR#946](https://github.com/USEPA/CMAQ/commit/dddfab60e47bdf9b9782252dc5d85bf0d962ebe1) | [PR#946](https://github.com/USEPA/CMAQ_Dev/pull/946) | ### Speed up DDM3 solution of Gas Chemistry Sensitivities [William T. Hutzell](mailto:hutzell.bill@epa.gov), U.S. Environmental Protection Agency **Type of update**: Science/Numerical Update **Release Version/Date**: CMAQ version 5.4 **Description**: In DDM3D's method for solving sensitivities from gas chemistry, code changes shortened CMAQ_DDM3D runtimes by 15% to 35% dependent on the chemical mechanism used. The changes also implemented DDM3D's approach for gas chemistry in the Rosenbrock and SMVGear solvers so CMAQ_DDM3D can use any of the available gas chemistry solvers. The option better supports using CMAQ_DDM3D built with the cb6r5m_ae7_aq mechanism because the Rosenbrock solver is recommended for the cb6r5m_ae7_aq mechanism. Changes reduced runtimes by modifying setting and calculating the gas chemistry Jacobian. The modification reorders chemistry species defining the Jacobian's rows and columns based on the number of nonzero values in rows for each chemistry species. The number measures the coupling of a species to other chemistry species. The reordering seeks to put the Jacobian closer to a lower triangular matrix and simplify the LU decomposition of the chemistry Jacobian used by CMAQ_DDM3D. It may also make the process more accurate by reducing the number of floating operations. **Significance and Impact**: Changes have no impact of predicted concentrations and deposition of the base model species but they do altered sensitivity predictions from the DDM3D algorithm by a few percent or less. The exception is for sulfur dioxide and aerosol sulfate in the accumulation mode. Tests that turned off cloud chemistry removed this exception and may indicate that DDM3D has feedback between gas and cloud chemistry regarding predicted sensitivities for sulfate production. Overall the code change reduce DDM3D runtime and allow the CMAQ_DDM3D to used an EBI solver for the chemical mechanism, or a generalized chemistry solver such Rosenbrock and SMVGear |Merge Commit | Internal record| |:------:|:-------:| |[Merge for PR#935](https://github.com/USEPA/CMAQ/commit/7ae4c28e8a50c56f9b0dd4aa3319abdcfcbc36c4) | [PR#935](https://github.com/USEPA/CMAQ_Dev/pull/935) | |[Merge for PR#630](https://github.com/USEPA/CMAQ/commit/b78c26bccdba7cafcadb2a6ca58ec10317c31b5f) | [PR#630](https://github.com/USEPA/CMAQ_Dev/pull/630) | ================================================ FILE: DOCS/Release_Notes/CMAQ-Release-Notes:-Instrumented-Models:-CMAQ-ISAM.md ================================================ ## Source Apportionment of SOA [Ben Murphy](mailto:murphy.ben@epa.gov), U.S. Environmental Protection Agency **Type of update**: Science Update **Release Version**: CMAQv5.5 **Description**: The changes expand ISAM capabilities to quantify source contributions to total secondary organic aerosol (SOA) and individual species. **Significance and Impact**: The model update extends the apportionment already represented for VOC species to their oxidation products and finally to the aerosol counterparts of those products. The connections between reversibly partitioning particle- and vapor-phase species are prescribed in the main table for aerosol parameters in AERO_DATA.F. Some SOA species are so low in volatility that they irreversibly partition to the particle phase. These species are connected to their reaction counter variable from the gas-phase mechanism. Dynamic equilibrium is a challenging concept in the context of source apportionment. If mass is transferred to and from both the particle and vapor phases during a time step, then it is difficult to represent the mixing of source attribution that most likely occurs. As a simplification, CMAQ-ISAM assumes that the particle- and vapor-phase source attribution for each species are identical at the end of the time step. Nevertheless, attribution typically varies widely from species to species, and this variability impacts the apparent source attribution of the bulk SOA. With SOA source apportionment now supported, all components of the particulate and gas phases are represented by CMAQ-ISAM and the apportionment of bulk PM metrics may be quantified. In the example below, CMAQ-ISAM is used to investigate how SOA formed from biogenic VOCs is impacted by anthropogenic sources. Between 2005 and 2018, US NOX and SO2 emissions reductions yielded substantial reductions in this "biogenic SOA". |Merge Commit | Internal record| |:------:|:-------:| |[Merge for PR#773](https://github.com/USEPA/CMAQ/commit/f36332fdb4986a657acbf5e7b3d9a96d65389253) | [PR#773](https://github.com/USEPA/CMAQ_Dev/pull/773) | |[Merge for PR#699](https://github.com/USEPA/CMAQ/commit/9957dc5f89879a0a58dec83685a2629a6c075564) | [PR#699](https://github.com/USEPA/CMAQ_Dev/pull/699) | | [Merge for PR#698](https://github.com/USEPA/CMAQ/commit/f5756e053dac4184474c15e9e38793bf872b5463)| [PR#698](https://github.com/USEPA/CMAQ_Dev/pull/698) | | [Merge for PR#676](https://github.com/USEPA/CMAQ/commit/5a365698f578e6ca1bc82291c87e0b5dbc8b7cd4)| [PR#676](https://github.com/USEPA/CMAQ_Dev/pull/676) | | [Merge for PR#675](https://github.com/USEPA/CMAQ/commit/77d4685a63f09bc4c1a0baf4ffda8a657a61a676)| [PR#675](https://github.com/USEPA/CMAQ_Dev/pull/675) | ## Correct ISAM for aerosol sedimentation [William T. Hutzell](mailto:hutzell.bill@epa.gov), U.S. Environmental Protection Agency **Type of update**: Science Update **Release Version**: CMAQv5.5 **Description**: Allows the CMAQ ISAM model to account for loss of aerosol mass from gravitational sedimentation. **Significance and Impact**: The changes improves ISAM predictions for aerosol contributions for source sectors so the sum over source sectors better agrees with the concentrations. The improvements are strongest for coarse aerosols species that do not have complex aerosol chemistry. Aerosol species representing toxic metals belong to this category. Improvement was also noticed in accumulation and coarse modes for sulfate. However, the Normalized Mean Bias shifted from negative to positive in the accumulation modes for toxic metals but remained less than one precent. |Merge Commit | Internal record| |:------:|:-------:| |[Merge for PR#979](https://github.com/USEPA/CMAQ/commit/c862ad8f561eb14196a6bb81329242940c8e1b8c) | [PR#979](https://github.com/USEPA/CMAQ_Dev/pull/979) | ## ISAM Cloud Processing Update [Sergey L. Napelenok](mailto:contact.email@epa.gov), U.S. Environmental Protection Agency **Type of update**: Bug Fix **Release Version**: CMAQv5.5 **Description**: In rare instances, the slight difference in mass between the sum of tags and the corresponding bulk quantity leads to instability in ISAM results. This PR also addresses the zero arrays for the first hour of the ISAM output files. **Significance and Impact**: Some instabilities in the ISAM results can manifest as a results of how mass is distributed between tags immediately after cloud chemistry processing. ISAM output files will also have not-zero values during the first output timestep. |Merge Commit | Internal record| |:------:|:-------:| |[Merge for PR#1057](https://github.com/USEPA/CMAQ/commit/d026eddeaf7c12c7e0828ce1528878ed794fa93e) | [PR#1057](https://github.com/USEPA/CMAQ_Dev/pull/1057) | ## CMAQ-ISAM Bug Fixes to CMAQ-ISAM released with v5.4 [Sergey L. Napelenok](mailto:contact.email@epa.gov), U.S. Environmental Protection Agency **Type of update**: Bug Fix **Release Version**: CMAQv5.5 **Description**: This update includes several bugfixes: 1. CMAQ-ISAM crashes when compiled in debug mode and run for the TAGCLASS 'PM_TOT'. This error relates to aerosol indexing of water species. 2. The CMAQ-ISAM apportionment of the species 'AORGCJ' was not being calculated correctly, resulting in extremely high values (~E+20). 'AORGCJ' is tracked when the 'ALL' TAGCLASS is defined, but was not being properly tracked through aqueous chemistry. Additionally, 'MGLY' a precursor to 'AORGCJ' was missing from the CMAQ-ISAM gas species. 3. CMAQ-ISAM crashes when compiled in debug mode and run for the TAGCLASS 'ALL'. This error relates to CMAQ-ISAM tracking air density and incorrectly trying to do unit conversions on this species. 4. Ground level production and loss calculations in the deposition modules (M3DRY and STAGE) was incorrect. **Significance and Impact**: No impact on CMAQ species concentrations found in the "CCTM_CONC* & CCTM_ACONC*" files. 1. The model no longer crashes in debug mode for the TAGCLASSES 'PM_TOT'. 2. The addition of 'MGLY' may impact O3 apportionment in some application. 'AORGCJ' apportionment no longer produces high values. 3. The model no longer crashes in debug mode for the TAGCLASSES 'ALL'. 4. The changes to ground level production and loss terms may impact a number of tracked CMAQ-ISAM species and TAGCLASSES depending on the case. |Merge Commit | Internal record| |:------:|:-------:| |[Merge for PR#973](https://github.com/USEPA/CMAQ/commit/3a6ad06d130b6dc81de1cc2ccc8a4ed0da448099) | [PR#973](https://github.com/USEPA/CMAQ_Dev/pull/973) | ## CMAQ-ISAM potential vorticity apportionment [Sergey L. Napelenok](mailto:contact.email@epa.gov), U.S. Environmental Protection Agency **Type of update**: Science Update **Release Version**: CMAQv5.5 **Description**: It is possible to apportion species in the OZONE TAGCLASS to ozone incursions at the top of the simulated volume if the base model is compiled with potential vorticity module enabled. For CMAQ-ISAM, this apportionment can be further subdivided by geographical region. **Significance and Impact**: Ozone introduced at the top of the model can be tracked by specifying the keyword 'PVO3' in the 'EMIS STREAM(S)' section of the control file as follows: TAG NAME |PVO REGION(S) |EVERYWHERE EMIS STREAM(S) |PVO3 |Merge Commit | Internal record| |:------:|:-------:| |[Merge for PR#957](https://github.com/USEPA/CMAQ/commit/bb4ebd757ebbb70f0f5e7ce32db52c716d08fdc8) | [PR#957](https://github.com/USEPA/CMAQ_Dev/pull/957) | ## CMAQ-ISAM version 5.4 [Sergey L. Napelenok](mailto:contact.email@epa.gov), U.S. Environmental Protection Agency **Type of update**: Science Update **Release Version**: CMAQv5.4 **Description**: The changes to ISAM include the added flexibility for the user to define how secondarily formed gaseous species are assigned to sources of parent reactants. Previously, daughter products were always assigned equally among the parents. However, in some applications, particularly in O3 apportionment, other assignment schemes are desired and requested by the users. The following options are now available in CMAQ-ISAM: Option 1. Equal assignment (previous version). Option 2. If parent reactants include the species NO, NO2, NO3, HONO, or ANO3, assignment to these sources only. Reactions without these species proceed with equal assignment. Option 3. Option 2 with species list expanded to include reactive VOC species and radicals. Reactions without these species proceed with equal assignment. Option 4. If parent reactants include the reactive VOC species and radicals, assignment to these sources only. Reactions without these species proceed with equal assignment. Option 5. Assignment is based on the ratio of production H2O2 to production HNO3. Reactions without the nitrogen species listed above and reactive VOCs proceed with equal assignment. Additionally, the transitional value for Option 5 is also customizable (default is PH2O2/PHNO3=0.35). **Significance and Impact**: The changes here allow for greater ISAM user flexibility. Please, refer to the User's Guide chapter on ISAM for additional information. |Merge Commit | Internal record| |:------:|:-------:| |[Merge for PR#473](https://github.com/USEPA/CMAQ/commit/e57609fda0b2ebfe536160663140bba5a7e3aadc) | [PR#473](https://github.com/USEPA/CMAQ_Dev/pull/473) | |[Merge for PR#579](https://github.com/USEPA/CMAQ/commit/d4a1b233cb5a04ed475b5d2efd6470ac3d90fe3d) | [PR#579](https://github.com/USEPA/CMAQ_Dev/pull/579) | |[Merge for PR#620](https://github.com/USEPA/CMAQ/commit/0945d28d177dbde3157e12e5f4bed32b2cce30cd) | [PR#620](https://github.com/USEPA/CMAQ_Dev/pull/620) | |[Merge for PR#644](https://github.com/USEPA/CMAQ/commit/65cea9503a2ff489d4e9fdc8b7fec349669424fb) | [PR#644](https://github.com/USEPA/CMAQ_Dev/pull/644) | |[Merge for PR#649](https://github.com/USEPA/CMAQ/commit/d80a986b1ad1559d26216895a2baec78893402f6) | [PR#649](https://github.com/USEPA/CMAQ/pull/649) | |[Merge for PR#650](https://github.com/USEPA/CMAQ/commit/c545abd1cb28be92d346d756bc281994a95dac8d) | [PR#650](https://github.com/USEPA/CMAQ_Dev/pull/650) | |[Merge for PR#655](https://github.com/USEPA/CMAQ/commit/155bdeef0d62caec50c31f46c784b6f2dfa89df6) | [PR#655](https://github.com/USEPA/CMAQ_Dev/pull/655) | |[Merge for PR#661](https://github.com/USEPA/CMAQ/commit/2c30969f720575d0281532113228b21d88a4d3e6) | [PR#657](https://github.com/USEPA/CMAQ_Dev/pull/657) | |[Merge for PR#661](https://github.com/USEPA/CMAQ/commit/f15d6a8fe67c0b81ad944a30d43b919915c6593e) | [PR#661](https://github.com/USEPA/CMAQ_Dev/pull/661) | |[Merge for PR#675](https://github.com/USEPA/CMAQ/commit/77d4685a63f09bc4c1a0baf4ffda8a657a61a676) | [PR#675](https://github.com/USEPA/CMAQ_Dev/pull/675) | |[Merge for PR#676](https://github.com/USEPA/CMAQ/commit/5a365698f578e6ca1bc82291c87e0b5dbc8b7cd4) | [PR#676](https://github.com/USEPA/CMAQ_Dev/pull/676) | |[Merge for PR#698](https://github.com/USEPA/CMAQ/commit/f5756e053dac4184474c15e9e38793bf872b5463) | [PR#698](https://github.com/USEPA/CMAQ_Dev/pull/698) | |[Merge for PR#699](https://github.com/USEPA/CMAQ/commit/9957dc5f89879a0a58dec83685a2629a6c075564) | [PR#699](https://github.com/USEPA/CMAQ_Dev/pull/699) | |[Merge for PR#778](https://github.com/USEPA/CMAQ/commit/b938e98a8e1fdb4678ae89ee33f1d3457c850331) | [PR#778](https://github.com/USEPA/CMAQ_Dev/pull/778) | ## CMAQ-ISAM tagclasses for Hazardous Air Pollutants (HAPs) [William T. Hutzell](mailto:hutzell.bill@epa.gov), U.S. Environmental Protection Agency **Type of update**: New Feature **Release Version**: CMAQv5.4 **Description**: Several tagclasses were added to CMAQ-ISAM to track the source contributions for HAPs. The below table lists the tagclasses and their HAPs. | Tagclass Name | HAPS1 | |:------------- |:-----| | HAP_GAS | formaldehyde, acetaldehyde, 1,3-butadiene, acrolein, molecular chlorine | | HAP_AERO | aerosol bound nickel, lead, trivalent chromium, hexavalent chromium, beryllium, cadmium, diesel emissions, manganese from the Air Toxics Inventory, and arsenic | | PAH_TEQ | Polycycle Aromatic Compounds lumped based on Toxic Equivalency Quotient | | MERCURY | Gas and Aerosol Phases of Atmospheric Mercury | | BENAPYRENE | Gas and Aerosol Phases of Benzo[a]pyrene | 1. The exact species available per Tagclass depends on the chemical mechanism and the name-lists used. **Significance and Impact**: Based on the chemical mechanism used, the new tagclasses allow simulating how the emissions source contribute to concentrations and deposition of HAPS in air toxic assessments. |Merge Commit | Internal record| |:------:|:-------:| |[Merge for PR#922](https://github.com/USEPA/CMAQ/commit/df82fd1c8381f873d9b56ab74a2af6b9ed4ee61e) | [PR#922](https://github.com/USEPA/CMAQ_Dev/pull/922) | |[Merge for PR#887](https://github.com/USEPA/CMAQ/commit/2a64783ac1d0f6dc8ad708920f112c6f2035f8bc) | [PR#887](https://github.com/USEPA/CMAQ_Dev/pull/887) | |[Merge for PR#773](https://github.com/USEPA/CMAQ/commit/f36332fdb4986a657acbf5e7b3d9a96d65389253) | [PR#773](https://github.com/USEPA/CMAQ_Dev/pull/773) | |[Merge for PR#699](https://github.com/USEPA/CMAQ/commit/9957dc5f89879a0a58dec83685a2629a6c075564) | [PR#699](https://github.com/USEPA/CMAQ_Dev/pull/699) | ================================================ FILE: DOCS/Release_Notes/CMAQ-Release-Notes:-MPAS-CMAQ-Coupled-Model.md ================================================ # MPAS-CMAQ Coupled Model ## New MPAS-CMAQ model [Jeff Willison](mailto:willison.jeff@epa.gov), U.S. Environmental Protection Agency **Type of update:** New Feature **Release Version/Date:** CMAQv5.5 **Description:** CMAQ simulations often rely on community-developed meteorological models developed and maintained by the National Center for Atmospheric Research (NCAR). NCAR has created the Model for Prediction Across Scales (MPAS) as the successor to the decades-old Weather Research and Forecasting model (WRF). NCAR has signaled that WRF development will wind down over the next decade. In response, EPA is preparing for a gradual transition of the CMAQ ecosystem from WRF to MPAS. Unlike WRF, MPAS supports global domains with seamless regional resolution refinement over areas of interest. CMAQ version 5.5 will be the first publicly available version of CMAQ’s chemical transport model that supports coupling with MPAS. MPAS-CMAQ code is available in [a branch of the CMAQ repository](https://github.com/USEPA/CMAQ/tree/MPAS_CMAQ) and includes new directories mio and mpas_cmaq in CCTM/src. The mio directory includes a prototype of an I/O system that removes dependence on I/O API. The mpas_cmaq directory includes a coupling interface for use with MPAS. For the initial release a configuration has been designed for use with the CRACMM2 mechanism on a 120 km uniform global mesh. Not all CMAQ features are supported at this time. See the [user guide](https://github.com/USEPA/CMAQ/blob/main/DOCS/Users_Guide/PDF/CMAQ_UG_09_2019.pdf) for more information about downloading the required [MPAS code](https://github.com/USEPA/MPAS), [CMAQ code](https://github.com/USEPA/CMAQ/tree/MPAS_CMAQ), and [available inputs](https://mpas-cmaq.s3.amazonaws.com/index.html). The user guide also includes a description of available features and instructions for building and running the MPAS-CMAQ model. ![image](https://github.com/user-attachments/assets/fedc3e86-7af2-4759-9bdd-d687de9e1d5f) **References** Wong, D., Willison, J., Pleim, J.E., Sarwar, G., Beidler, J., Bullock, O. R., Herwehe, J.A., Gilliam, R., Kang, D., Hogrefe, C., Pouliot, G., and Foroutan, H. (2024). Development of the MPAS-CMAQ Coupled System (V1.0) for Multiscale Global Air Quality Modeling. Geosci. Model Dev. Discussions (preprint), [https://doi.org/10.5194/gmd-2024-52](https://doi.org/10.5194/gmd-2024-52). |Merge Commit | Internal record| |:------:|:-------:| |[Merge for PR#1188](https://github.com/USEPA/CMAQ/commit/bdd6aeb895a42a2615f9d752ececb5bd96b1d303) | [PR#1188](https://github.com/USEPA/CMAQ_Dev/pull/1188) | ================================================ FILE: DOCS/Release_Notes/CMAQ-Release-Notes:-PYTOOLS.md ================================================ # PYTOOLS ## [shp2cmaq: Create CMAQ-Ready File from Shapefile](../../PYTOOLS/shp2cmaq/README.md) [Barron Henderson](mailto:henderson.barron@epa.gov), U.S. Environmental Protection Agency **Type of update**: New Pre-Processing Tool **Release Version/Date**: CMAQv5.5 **Description**: This Python Notebook converts GIS shapefiles into gridded netCDF mask files that represent spatial features such as political boundaries. This tool works on both CONUS and Northern Hemisphere domains and has the capability to represent quantitative variables such as population. The CMAQ-ready mask files can be used for [defining regions and region families with DESID](../Users_Guide/Appendix/CMAQ_UG_appendixB_emissions_control.md#b34-defining-and-using-regions-and-region-families) and using [geographic source regions when running CMAQ-ISAM](../Users_Guide/CMAQ_UG_ch11_ISAM.md#1131-isam-control-file-sa_iolist). The mask files can also be used to spatially subset CMAQ input and output files for analysis, for example calculating emissions totals by state or averaging modeled ambient concentrations over census tracts. The code relies on [geopandas](https://geopandas.org/en/stable/) and [cmaqsatproc](https://github.com/barronh/cmaqsatproc) to perform spatial operations and create IOAPI-like files for CMAQ. The overall process requires a shapefile with attributes and a GRIDDESC file. It produces variables that specify grid cell fractional coverage by each unique value of a specified attribute. It also produces total and dominant attribute variables. The total specifies the fraction coverage of any attribute. The dominant variable specifies which attribute has the largest area coverage. **Example of a gridded mask file for state boundaries in the contiguous US.** **Significance and Impact**: No impact on core model results. The significance of this tool is to provide a simple shapefile processor to use the DESID masking feature. Spatial mask files can also be used for ISAM simulations or as part of post-processing model output. **References**: [DESID Tutorial](../Users_Guide/Tutorials/CMAQ_UG_tutorial_emissions.md) [ISAM Tutorial](../Users_Guide/Tutorials/CMAQ_UG_tutorial_ISAM.md) |Merge Commit | Internal record| |:------:|:-------:| |[Merge for PR#904](https://github.com/USEPA/CMAQ/commit/cff875c350f99422bc56d43367762516aa15aa14) | [PR#904](https://github.com/USEPA/CMAQ_Dev/pull/904) | ## [DMSCHLO: Augment the Standard Ocean File for Marine Chemistry](https://github.com/USEPA/CMAQ/blob/main/PYTOOLS/dmschlo/README.md) [Barron Henderson](mailto:henderson.barron@epa.gov), U.S. Environmental Protection Agency **Type of update**: New Pre-Processing Tool **Release Version/Date**: CMAQv5.4 **Description**: Depending on the chemical mechanism selected, the traditional "Ocean" file maybe required to contain temporal ocean dimethyl sulfide (DMS) and chlorophyll-a (CHLO) concentrations for atmospheric DMS and halogen chemistry, respectively. To create these fields for input, a new Python tool called "DMSCHLO" is released to augment standard CMAQ "Ocean" files with this data. **Significance and Impact**: No impact on core model results. The significance of this tool is to provide an easy to use tool in which to augment the standard "Ocean" file for use with CCTM. See the [Ocean File Tutorial](../Users_Guide/Tutorials/CMAQ_UG_tutorial_oceanfile.md) for further information. |Merge Commit | Internal record| |:------:|:-------:| |[Merge for PR#903](https://github.com/USEPA/CMAQ/commit/7e91d013bf75699783bb03773d5e9da2fb66b99f) | [PR#903](https://github.com/USEPA/CMAQ_Dev/pull/903) | ================================================ FILE: DOCS/Release_Notes/CMAQ-Release-Notes:-Postprocessors.md ================================================ # Post-processors ## [calc_tmetric](../../POST/calc_tmetric/README.md) No changes were made to this tool in CMAQv5.5. ## [combine](../../POST/combine/README.md) ### Improve Checks on Formulas Used by COMBINE [William T. Hutzell](mailto:Hutzell.Bill@epa.gov), U.S. Environmental Protection Agency **Type of update**: Bug Fix **Release Version/Date**: CMAQv5.5 **Description**: The update to COMBINE detects and reports syntax errors in a species definitions files listed below. Error messages list the syntax error so the user can more easily correct the definitions file. Note that COMBINE stops at the first detected error so correcting a species definitions file is an iterative process if the file contains several errors. ```` O3_ERROR1 , ppmV, O3[1]/ O3_ERROR2 , ppmV, O3[1]\* O3_ERROR3 , ppmV, O3[1]+ O3_ERROR4 , ppmV, O3[1].1000. O3_ERROR5 , ppmV, O3[1]y1000. O3_ERROR5 , ppmV, O3[1]O3[1] ```` **Significance and Impact**: Prevents Errors in Results from Postprocessing by COMBINE |Merge Commit | Internal record| |:------:|:-------:| |[Merge for PR#1091](https://github.com/USEPA/CMAQ/commit/b4ff5c9631caa1361593656c38b70715211e11f7) | [PR#1091](https://github.com/USEPA/CMAQ_Dev/pull/1091) | ### Corrected Deposition Species Definition (SpecDef_Dep) files for missing nitrogen species [Jesse Bash](mailto:Bash.Jesse@epa.gov), U.S. Environmental Protection Agency **Type of update**: Bug Fix **Release Version/Date**: CMAQv5.5 **Description**: There are a couple of issues with the SpecDef_Dep files resulting in the underestimation of total nitrogen deposition. The following changes were made to be more consistent with new NADP wet deposition and field scale dry deposition measurements: 1. HNO4 (PNA) was missing from oxidized dry deposition 2. NO3 radicle was omitted from oxidized dry and wet deposition 3. CLNO2 and CLNO3 were omitted from oxidized dry and wet deposition 4. cb6 was missing MTNO3J in the organic N deposition 5. PANT was not added to the organic N deposition **Significance and Impact**: This does not change model results and only modifies post processing. The impact on post processed wet deposition results are minimal. The omissions from the dry deposition variables can amount to about a 1% increase in the post processed results. However, the largest increases are in remote vegetated and coastal areas which tend to be more sensitive to nitrogen loading. |Merge Commit | Internal record| |:------:|:-------:| |[Merge for PR#1063](https://github.com/USEPA/CMAQ/commit/24c0840315978f94541d8b6288163e7a54c8694d) | [PR#1063](https://github.com/USEPA/CMAQ_Dev/pull/1063) | ### CRACMM SpecDef Deposition Updates for HNO4 and CLNO2 [Havala Pye](mailto:Pye.Havala@epa.gov), U.S. Environmental Protection Agency **Type of update**: Bug Fix **Release Version/Date**: CMAQv5.5 **Description**: Removes any formulas that include "CLNO2", CRACMM does not have "CLNO2". Fixes any formulas that contain "PNA", which is named "HNO4" in CRACMM. **Significance and Impact**: Enables automated post processing of deposition via combine. Does not affect model results. |Merge Commit | Internal record| |:------:|:-------:| |[Merge for PR#966](https://github.com/USEPA/CMAQ/commit/1433cdb44cdc64b4f8209cf388c034510b18856e) | [PR#966](https://github.com/USEPA/CMAQ_Dev/pull/966) | ## [hr2day](../../POST/hr2day/README.md) ### Updating tz.csv to Natural Earth **Primary Contact**: [Barron Henderson](mailto:henderson.barron@epa.gov), U.S. Environmental Protection Agency **Type of update**: Change in input file **Release Version/Date**: CMAQv5.5 **Description**: The tz.csv file is used to assign a time zone offset to each CMAQ grid cell. This is then used by hr2day to calculate daily metrics in Local Standard Time (LST). The previous tz.csv seems to have unrealistic boundaries and what must be typos in other places. In addition, the tz.csv file has origins that are lost to history. We do not know on what database it was founded on or how it was converted. The previous tz.csv file was compared to two other time zone databases: tz_world.geojson [1] and Natural Earth [2]. The other databases were found to be more consistent in terms of the time zone boundaries. In addition, there were several locations in the western US in the previous tz.csv file with an offset of -5 UTC in otherwise Mountain time zones, which were likely typos. A new tz.csv file was created from the Natural Earth 10m time zone shapefile (v4.1.0)[2]. The new tz.csv file is 2.5 MB, compared to the 4 MB original. The new file is smaller because it does not attempt to hug coastal boundaries, but instead allows for time zones that extend into the water to do so. **Significance and Impact**: This will not affect model concentrations, but it will impact h2day calculations because small areas have updated time zones. This tends to matter most along the edges of time zones. The original, new, and difference in "TZ hours behind UTC" are shown below. image **References**: [1] http://efele.net/maps/tz/world/ [2] https://www.naturalearthdata.com/downloads/10m-cultural-vectors/timezones/ |Merge Commit | Internal record| |:------:|:-------:| |[Merge for PR#1017](https://github.com/USEPA/CMAQ/commit/d7d24f8f2ca536353fc9983fd4301319da8fbead) | [PR#1017](https://github.com/USEPA/CMAQ_Dev/pull/1017) | ### Clarification of W126 Daily Index Computation and Minor Code Corrections [Christian Hogrefe](mailto:hogrefe.christian@epa.gov), U.S. Environmental Protection Agency **Type of update**: documentation, minor bug fix **Release Version/Date**: CMAQv5.4 **Description**: Updated the README and inline code documentation to clarify that the W126 option computes the W126 daily index value as a weighted average of ozone concentrations between 8am & 7pm and that these daily index values are only an intermediate step in computing the W126 metric for secondary ozone standard analyses. These daily index values can then be used to calculate annual W126 values for the secondary ozone standard by using different tools to first compute 3-month sums of daily W126 index values and then determine the consecutive three month period with the largest 3-month sum of daily W126 values. There were also minor code corrections that fixed two issues that may have caused problems for certain compilers in debug mode but did not affect the results of the computations in the tests conducted. **Significance and Impact**: No impact on results for the cases tested. |Merge Commit | Internal record| |:------:|:-------:| |[Merge for PR#859](https://github.com/USEPA/CMAQ/commit/3fbf66df2a123de5d4cc4c75352c08016a1123d2) | [PR#859](https://github.com/USEPA/CMAQ_Dev/pull/859) | ## [sitecmp](../../POST/sitecmp/README.md) No changes were made to this tool in CMAQv5.5. ## [sitecmp_dailyo3](../../POST/sitecmp_dailyo3/README.md) ### Increase of station ID character limit [Christian Hogrefe](mailto:hogrefe.christian@epa.gov), U.S. Environmental Protection Agency **Type of update**: expand code functionality **Release Version/Date**: CMAQv5.5 **Description**: The previous version of sitecmp_dailyo3 code imposed a maximum station ID character limit of 9. While sufficient for all observational networks previously processed through sitecmp_dailyo3, this constraint caused problems when processing emerging networks with hourly data which had station IDs exceeding that limit. The increase of the maximum station ID length to 20 remedies this problem and makes the limit consistent with the one being used in sitecmp. **Significance and Impact**: There is no impact on results for stations with IDs not exceeding 9 characters. When the previous code encountered a station ID with more than 9 characters, each such site was processed and written out 24 times per day (rather than just once), and the observed daily metrics were missing for each of these 24 output records per day. The modeled daily metrics were correct and repeated for each of the 24 output records written for each day. Due to this 24-fold repetition of matched records for each day in such cases, the output files created with the previous code were substantially larger than they should have been, and they also contained no valid observed metrics at such stations. The updated code corrects this behavior. |Merge Commit | Internal record| |:------:|:-------:| |[Merge for PR#987](https://github.com/USEPA/CMAQ/commit/8d67a79d9cfd45bf421fcc864f3c0c70960df17b) | [PR#987](https://github.com/USEPA/CMAQ_Dev/pull/987) | ## Removal of appendwrf, bldoverlay and blockextract **Type of update**: Model Clean-up **Release Version/Date**: CMAQv5.4 **Description**: The POST tools appendwrf, bldoverlay, and blockextract are no longer maintained and have been removed from the CMAQ code repository beginning with version 5.4. These tools can still be accessed through previous CMAQ versions. ================================================ FILE: DOCS/Release_Notes/CMAQ-Release-Notes:-Preprocessors.md ================================================ # Pre-processors ## [MCIP](https://github.com/USEPA/CMAQ/tree/main/PREP/mcip) ### Updates to Calculation of XORIG/YORIG for Some Lambert Domains (MCIP, Two-Way WRF-CMAQ, and Combine) [Tanya Spero](mailto:spero.tanya@epa.gov), U.S. Environmental Protection Agency **Type of update**: Bug Fix **Release Version/Date**: CMAQv5.5 **Description**: The calculations of XORIG and YORIG in MCIP, _aqprep_ (in the two-way WRF-CMAQ), and _combine_ had constraints that were introduced to facilitate matching the MM5 and WRF domains in Lambert conformal projection for initial testing. Those constraints were only used when Lambert conformal projection was used **and** the user specified a reference latitude via the MCIP namelist. The algorithm that was used to align the XORIG and YORIG adjusted for real-number disagreements in converting the gridding parameters between WRF and CMAQ by using an algorithm that constrained the XORIG and YORIG to increments of 500 meters. However, that algorithm did not work as intended when the horizontal grid spacing was not in increments of 1 km. In this update, the algorithm in MCIP and _aqprep_ was modified to constrain XORIG and YORIG to increments of 5 meters. The original algorithm was removed from _combine_, and it was replaced with logic that allows for concurrent processing of WRF and CMAQ output. The expected use case in _combine_ for WRF and CMAQ is to process meteorological output from WRF only when MCIP is not available, i.e., from the two-way WRF-CMAQ runs. Thus, the updates in _combine_ restrict the concurrent processing WRF and CMAQ to cases when those models have concentric domains with a symmetric perimeter removed from WRF to form the CMAQ domain. In addition, _combine_ now requires domains with a horizontal grid spacing >400 meters because we have not tested the rigor of the algorithm below that scale. **Significance and Impact**: Changes to XORIG and YORIG from this algorithm _only_ occur for domains that use Lambert conformal projection **and** a user-specified reference latitude. The algorithm in MCIP and _aqprep_ that previously had been used to set XORIG and YORIG at factors of 500 meters is not appropriate when the horizontal grid spacing is not evenly divisible by 1 km (e.g., 4.25 km, 1.33 km, 0.444 km). The constraint is now set to 5 meters in those codes. That constraint and logic was not appropriate for _combine_, so a new constraint was introduced to only allow WRF and CMAQ data to be processed together when the domains are concentric, such as from the two-way WRF-CMAQ model. There is no impact from these coding changes for many domains, but XORIG and YORIG could be adjusted for domains with very small horizontal grid spacings (e.g., 1.33 km and 0.444 km). In some cases in those fine-scale domains, the changes to XORIG and YORIG could shift coastlines and some observations and point-source emissions to a neighboring grid cell. If there are changes to XORIG and YORIG from using this algorithm for a given domain, then those changes would be reflected in the GRIDDESC and in the I/O API headers of files generated by the CMAQ system. Changes to XORIG and YORIG could introduce inconsistencies in the headers of files processed with different releases of CMAQ, so there could be some challenges in mixing and matching those files for simulations and analysis. |Merge Commit | Internal record| |:------:|:-------:| |[Merge for PR#1090](https://github.com/USEPA/CMAQ/commit/c426d91df2f905110a0c6a131217c49482869bf3) | [PR#1090](https://github.com/USEPA/CMAQ_Dev/pull/1090) | ### Removed Superfluous Open/Close Couplet to Read WRF Files in MCIP [Tanya Spero](mailto:spero.tanya@epa.gov), U.S. Environmental Protection Agency **Type of update**: Efficiency **Release Version/Date**: CMAQv5.5 **Description**: Updated rdwrfem.f90 in MCIP to remove redundant open/close of netCDF files. **Significance and Impact**: This change improves efficiency and does not change the simulation results. The change reduces runtime of MCIP by ~25-30% per day for hourly WRF output in daily files on the benchmark domain. Reductions in runtime become negligible for large computational domains. |Merge Commit | Internal record| |:------:|:-------:| |[Merge for PR#1097](https://github.com/USEPA/CMAQ/commit/7319ff625dd70a88eb43124a3989574fc0f8551f) | [PR#1097](https://github.com/USEPA/CMAQ_Dev/pull/1097) | ### Updated MCIP Metadata for WRF Physics Beyond WRFv4.1 [Tanya Spero](mailto:spero.tanya@epa.gov), U.S. Environmental Protection Agency **Type of update**: Metadata Update **Release Version/Date**: CMAQv5.5 **Description**: The global header information (i.e., metadata) in the MCIP output files lists the high-level WRF physics options that were used in the WRF simulation processed by MCIP. The text interpretation of the WRF token values (collected from the WRF metadata in its output header) is based on a translation in MCIP that is performed in the subroutine wrfemopts.f90. That subroutine had not been updated since WRFv4.1 was released, and additional WRF physics options have been implemented between then and the release of WRFv4.5.2. This change to MCIP provides updates to the cross-reference listing to improve accuracy of metadata for newer WRF physics options. **Significance and Impact**: This change to MCIP does not affect the numerical calculations. However, it improves the accuracy of the metadata in the MCIP header when newer WRF physics options (implemented after WRFv4.1) are exercised and subsequently processed through MCIP. **References**: [WRF Users Guide for WRFv4.5](https://www2.mmm.ucar.edu/wrf/users/wrf_users_guide/build/html/physics.html) |Merge Commit | Internal record| |:------:|:-------:| |[Merge for PR#1098](https://github.com/USEPA/CMAQ/commit/a93487cc482cebfa9d43bb2b82bec8f45a63942c) | [PR#1098](https://github.com/USEPA/CMAQ_Dev/pull/1098) | ### Additional MCIP release notes can be found under the [DOCS/MCIP](https://github.com/USEPA/CMAQ/tree/main/PREP/mcip/docs) folder. ## [ICON](https://github.com/USEPA/CMAQ/tree/main/PREP/icon) No changes were made to ICON in CMAQv5.5. ## [BCON](https://github.com/USEPA/CMAQ/tree/main/PREP/bcon) ### Improved IC/BC species mappings for CRACMM [Havala Pye](mailto:pye.havala@epa.gov) and [Christian Hogrefe](mailto:hogrefe.christian@epa.gov), U.S. Environmental Protection Agency **Type of update**: Bug fix **Release Version/Date**: CMAQv5.5 **Description**: The species definition file mapping carbon bond-based mechanism species to CRACMM species located at PREP/bcon/map2mech/SpecDef_*.txt was updated to improve consistency across mechanisms and reduce unnecessary mapping. Mapping of tracers/species that do not contribute meaningfully to mass (TOLRO2, XYLRO2, AH3OP, IEPOXP) were removed. Mapping across monoterpene and isoprene systems was updated. These updates were implemented for CRACMM1 and were carried forward to CRACMM2 as part of CRACMM2 development. Additionally, the mapping of carbon bond species SVSQT was updated for both CRACMM1 and CRACMM2. Previously, SVSQT was mapped to a species name that was not a valid CRACMM species. This resulted in a loss of mass for SVSQT (which is expected to have small concentrations at the model boundaries). This species mapping has been updated in CMAQv5.5 to correctly map SVSQT for both CRACMM1 and CRACMM2. This is the only change in species mappings in CRACMM1 between CMAQv5.4 and CMAQv5.5. Additional mapping updates for CRACMM2 support the renaming of aromatic species XYL (xylenes and other aromatic species) and EBZ (ethylbenzene), the addition of species STY (styrene), and the addition of methane emissions tracer species ECH4. **Significance and Impact**: Improves consistency in how species map across mechanisms. Minor changes to model predictions are expected. This file is not recommended for mapping emissions between mechanisms as the representation of fresh emissions is more variable between mechanisms than the representation of processed emissions. Updates to CRACMM2 species mappings support species that are new or that have been modified in CRACMM2. |Merge Commit | Internal record| |:------:|:-------:| |[Merge for PR#958](https://github.com/USEPA/CMAQ/commit/97f04d8143da5f70d20a76384494657411c77416) | [PR#958](https://github.com/USEPA/CMAQ_Dev/pull/958) | |[Merge for PR#1095](https://github.com/USEPA/CMAQ/commit/5c9f5441b24efd94ad6be5ad939c5f6fc8af2980) | [PR#1095](https://github.com/USEPA/CMAQ_Dev/pull/1095) | |[Merge for PR#1133](https://github.com/USEPA/CMAQ/commit/ee260009f408e528f187260edb6bcd51ad58f75d) | [PR#1133](https://github.com/USEPA/CMAQ_Dev/pull/1133) | ## [Create OMI](https://github.com/USEPA/CMAQ/tree/main/PREP/create_omi) [William T. Hutzell](mailto:hutzell.bill@epa.gov), U.S. Environmental Protection Agency **Type of update**: Bug fix and Scripts Update **Release Version/Date**: CMAQv5.4 **Description**: A bug fix and script enhancement was made. The bug fix corrects format statements used to write the ASCII output file. The error and its fix were identified in a [CMAS Forum post](https://forum.cmascenter.org/t/some-questions-about-using-different-resolution-omi-file-in-cmaq5-3-2/2569/4). When the latitude and longitude resolution is greater than 360X360 degrees, the format descriptors are too small and cause the output lines to wrap around themselves. The error causes the total ozone column to be incorrectly calculated in CCTM and produce bad values of photolysis frequencies from the inline build option. The bad values do not exist in the repositories version of the OMI data file under CCTM/src/phot/inline. The script enhancement revises create_omi's build and run scripts so they function as similar scripts for ICON and BCON tools. **Significance and Impact**: If the simulation uses an OMI data file created with lat/long resolution greater than 360X360 degrees, CCTM will calculate and use bad values of photolysis frequencies. |Merge Commit | Internal record| |:------:|:-------:| |[Merge for PR#779](https://github.com/USEPA/CMAQ/commit/095ea1e8e40e320786045701a8d0d1cd5b0b4b41) | [PR#779](https://github.com/USEPA/CMAQ_Dev/pull/779) | ================================================ FILE: DOCS/Release_Notes/CMAQ-Release-Notes:-Process-Analysis-&-Sulfur-Tracking-Model-(STM).md ================================================ # Process Analysis and Sulfur Tracking Model (STM) ## Fix to option for Sulfur Tracking Model [William T. Hutzell](mailto:Hutzell.Bill@epa.gov), U.S. Environmental Protection Agency **Type of Update**: Bug Fix **Release Version**: CMAQv5.5 **Description**: The Sulfur Tracking Model (STM) does not accurately attribute concentrations of ASO4J from gas chemistry. Code changes were made to remove the problem by implementing the below fixes. 1. CGRID_SPCS.F and AERO_DATA.F are updated for new chemical mechanisms that have Organosulfate reactions in CGRID_SPCS.F and AERO_DATA.F, i.e., the cb6r5_ae7 and cracmm1 based mechanisms. Note that the current files already account for the cb6r5m_ae7 mechanism. 2. In sciproc.F, PA_UPDATE_AERO and STM_WRAP_AE calls are reversed. The incorrect calling order causes errors in ASO4JGAS_ because it depends on aero_cond and aero_npf, and they will have wrong units from a COUPLE_PA call in PA_UPDATE_AERO. **Significance and Impact**: The code fix allows to accurately predict the inorganic and organic components of aerosol sulfate with CMAQv54. |Merge Commit | Internal record| |:------:|:-------:| |[Merge for PR#968](https://github.com/USEPA/CMAQ/commit/19592006add22a559e275e98e71193f697d7b064) | [PR#968](https://github.com/USEPA/CMAQ_Dev/pull/968) | ## Use Budget Filename set in Runscript [Ben Murphy](mailto:murphy.ben@epa.gov), U.S. Environmental Protection Agency **Type of Update**: Minor Feature Improvement **Release Version**: CMAQv5.5 **Description**: The budget file initialization algorithm creates the output filename manually using the simulation scenario character string and the output directory defined in the runscript. However, the standard runscript already defines the budget output filename in CTM_BUDGET and this variable isn't being used. This update improves the algorithm in the source code to first check for this variable and if it is not present, then build the filename manually as it currently does. **Significance and Impact**: Code change only impacts filenames and prevents error crashing. No impact on data values. |Merge Commit | Internal record| |:------:|:-------:| |[Merge for PR#967](https://github.com/USEPA/CMAQ/commit/b3968964c6f8adfbb5fda9f3677b3ee1586b53e2) | [PR#967](https://github.com/USEPA/CMAQ_Dev/pull/967) | ## Introduction of Budget Reporting Tool [Ben Murphy](mailto:murphy.ben@epa.gov), U.S. Environmental Protection Agency **Type of Update**: New Feature **Release Version**: CMAQv5.4 **Description**: The existing Process Analysis module outputs process rates for variables or families of variables on a gridded domain. The Budget Reporting Tool added here outputs as a text file (CCTM_BUDGET_xxx.txt), the domain-wide process rates and total abundance change for every variable or family requested by the user in the CMAQ_Control_Misc.nml file. The output produced by the Budget Tool is quite powerful when applying or developing CMAQ. It can be used to better understand the large-scale source and loss pathways of individual trace species or families of species. For example, the fraction of a species that is transported out of the domain versus lost by dry or wet deposition is immediately accessible as a function of output time step. Additionally, one can use this output to diagnose potential errors if, for example, the Budget Tool reports emissions or chemical production of a species and the developer knows it should not be possible. Output is produced for every output time step (generally hourly). Units for both gases and particles are in kilograms per output time step. **Significance and Impact**: No impact on results for the cases tested. |Merge Commit | Internal record| |:------:|:-------:| |[Merge for PR#810](https://github.com/USEPA/CMAQ/commit/37c09c0a6617b1595f769c9d12f8911da2a12098) | [PR#810](https://github.com/USEPA/CMAQ_Dev/pull/810) | |[Merge for PR#634](https://github.com/USEPA/CMAQ/commit/e040ca874d6cd468a31363dca92edc3500cab46b) | [PR#634](https://github.com/USEPA/CMAQ_Dev/pull/634) | |[Merge for PR#669](https://github.com/USEPA/CMAQ/commit/22b870e33495c9e9f45b4a794f586bdb61d47333) | [PR#669](https://github.com/USEPA/CMAQ_Dev/pull/669) | ## Resolve omission of organic condensable vapors from aerosol process analysis [Ben Murphy](mailto:murphy.ben@epa.gov), U.S. Environmental Protection Agency **Type of update**: Bug Fix **Release Version**: CMAQv5.4 **Description**: The flux of every condensable inorganic and organic vapor should be aggregated and saved in the process analysis arrays for aerosol condensation (i.e. COND). This procedure was overlooked for the organic species, although it was implemented for the inorganics. **Significance and Impact**: This is particularly important for ISAM and the Budget Tool which will use these net changes in aerosol processing to perform source apportionment and some domain-wide totals. |Merge Commit | Internal record| |:------:|:-------:| |[Merge for PR#810](https://github.com/USEPA/CMAQ/commit/37c09c0a6617b1595f769c9d12f8911da2a12098) | [PR#810](https://github.com/USEPA/CMAQ_Dev/pull/810) | |[Merge for PR#634](https://github.com/USEPA/CMAQ/commit/e040ca874d6cd468a31363dca92edc3500cab46b) | [PR#634](https://github.com/USEPA/CMAQ_Dev/pull/634) | |[Merge for PR#669](https://github.com/USEPA/CMAQ/commit/22b870e33495c9e9f45b4a794f586bdb61d47333) | [PR#669](https://github.com/USEPA/CMAQ_Dev/pull/669) | ================================================ FILE: DOCS/Release_Notes/CMAQ-Release-Notes:-Stratospheric‐Tropospheric-Exchange-(STE).md ================================================ # Stratospheric-Tropospheric Exchange ## Potential Vorticity Scaling of Ozone (PVO3) a Runtime Option [William T. Hutzell](mailto:hutzell.bill@epa.gov), U.S. Environmental Protection Agency **Type of update**: Infrastructure Update **Release Version/Date**: CMAQv5.5 **Description**: The update changes the build option for scaling ozone with potential vorticity in the upper troposphere to represent Stratosphere-Troposphere exchange (STE) to a runtime option. The change seeks to simplify building and running CCTM with the same chemical mechanism over different domains where using the process depends on the meteorological inputs or domain's size and location. Also, changes may ease reading model code by reducing the number of embedded CPP directives. **Significance and Impact**: Update makes easier application of the same CCTM executable over different model cases where ozone scaling by potential vorticity is not always wanted. **References**: N/A |Merge Commit | Internal record| |:------:|:-------:| |[Merge for PR#1089](https://github.com/USEPA/CMAQ/commit/9d715843c1b2eba3d3662824b635d6b7b529917f) | [PR#1089](https://github.com/USEPA/CMAQ_Dev/pull/1089) | ## Removed dependency on coordinate system in PV-O3 [Rohit Mathur](mailto:mathur.rohit@epa.gov), U.S. Environmental Protection Agency **Type of update**: Improve consistency **Release Version/Date**: October 6, 2023 / CMAQv5.5 **Description**: The specification of the upper layers in which O3 mixing ratios are scaled based on space and time varying potential vorticity fields (PV) is based on a prescribed pressure level: currently less than 110hPa. The determination of these model levels in the current code however (i) has a dependence on the sigma-P coordinate; (2) assumes a constant surface pressure (1000 hPa); and (3) uses VGLVLS from the METCRO3D file header. These calculations are inconsistent with the hybrid coordinate system now adopted in both WRF and CMAQ simulations and can result in the application of the PV-scaling to model (pressure) levels not intended and/or inconsistent with the parameterization detailed in Xing et al. (2016). This update removes the dependence on the sigma-P coordinate and instead uses the pressure field from the METCRO3D file to check against the 110hPa threshold. **Significance and Impact**: The changes make the model consistent with the O3-PV parameterization detailed in Xing et al. (2016). For the current 44-layer configuration (Mathur et al., 2017), the existing approximations (VGLVLS and constant surface pressure) resulted in O3 being scaled by PV fields always in layers 41-44. For the hybrid coordinate and the 44-layer configuration, the mid-level pressure of layers 42 and above are less than the 110hPa threshold so the scaling is now applied to layers 42-44. Thus, there is no impact on O3 in the top three model layers, but O3 mixing ratios change between 300-100hPa. The difference in O3 mixing ratios within the boundary layer and at the surface are negligible and not impacted by this change for the current 44-layer configuration. The impact of model changes on comparisons with ozonesonde measurements at 4 sites across North America (Hilo, Trinidad Head, Boulder, and Huntsville) are illustrated in the figures below which compare mean vertical profiles at each site for all launches during Spring (March-April-May) and Summer (June-July-August) and further illustrate that the larger differences are confined to 300-100hPa and in general the updates help improve the model estimates relative to observations at these levels. ![Mathur_SpringMAM_SummerJJA](https://github.com/user-attachments/assets/94b95e27-17ad-4b93-b929-cbc66687f963) **References**: Xing, J., Mathur, R., Pleim, J., Hogrefe, C., Wang, J., Gan, C.-M., Sarwar, G., Wong, D. C., and McKeen, S.: Representing the effects of stratosphere–troposphere exchange on 3-D O3 distributions in chemistry transport models using a potential vorticity-based parameterization, Atmos. Chem. Phys., 16, 10865–10877, https://doi.org/10.5194/acp-16-10865-2016, 2016 Mathur, R., Xing, J., Gilliam, R., Sarwar, G., Hogrefe, C., Pleim, J., Pouliot, G., Roselle, S., Spero, T. L., Wong, D. C., and Young, J. (2017). Extending the Community Multiscale Air Quality (CMAQ) modeling system to hemispheric scales: overview of process considerations and initial applications, Atmos. Chem. Phys., 17, 12449–12474, https://doi.org/10.5194/acp-17-12449-2017. |Merge Commit | Internal record| |:------:|:-------:| |[Merge for PR#980](https://github.com/USEPA/CMAQ/commit/f3b87b84768a249c10b472ee76d9a4e525db90c3) | [PR#980](https://github.com/USEPA/CMAQ_Dev/pull/980) | ================================================ FILE: DOCS/Release_Notes/CMAQ-Release-Notes:-Structural-Improvements.md ================================================ # Structural Improvements ### GNU build flag update to enable compilation with GNU versions 10+ [Fahim Sidi](mailto:sidi.fahim@epa.gov), U.S. Environmental Protection Agency **Type of update**: Bug Fix **Release Version/Date**: v5.5 **Description**: Starting GNU version 10+, GNU no longer allows rank mismatches between the callee and the calling function. The exact verbiage from the GNU change logs:"Mismatches between actual and dummy argument lists in a single file are now rejected with an error. Use the new option -fallow-argument-mismatch to turn these errors into warnings; this option is implied with -std=legacy. -Wargument-mismatch has been removed.” (https://gcc.gnu.org/gcc-10/changes.html) “GCC 10 now rejects argument mismatches occurring in the same source file. Those are not permitted by the Fortran standard and in general have the potential to generate invalid code. However, the Fortran standard does permit passing an array element or a scalar string (of default character kind or of c_char kind) as actual argument to an array dummy argument. (For the exact wording, see the Fortran standard on argument association; in particular, Fortran 2018, Sect. 15.5.2.4, Para. 4.) Depending on their nature, argument mismatches have the potential to cause the generation of invalid code and, hence, should be investigated. The most common reason that code fails due to newly enforced check is the following: instead of using an array element as actual argument, a scalar is used; one solution is to replace the scalar by a size-one array. (This should be passed as a whole as there is no point in passing it as array element.) Additionally, check that the code indeed only accesses this single element. — Other mismatches occur more rarely but usually indicate more serious bugs where a wrong result is likely (at least for some target-platform and optimization combination).” The non-FORTRAN explanation boils down to the ability to pass 1-D arrays, 2-D arrays, 3-D arrays, etc., into a subroutine or function and have the called routine set up so that that it "does the right thing". This is in fact a common occurrence, where the callee "single-indexes" multi-dimensional arrays. **References**: n/a |Merge Commit | Internal record| |:------:|:-------:| | [Merge for PR#1154](https://github.com/USEPA/CMAQ_Dev/commit/c31983b72a3049d708138da3f57227875333eb39) | [PR#1154](https://github.com/USEPA/CMAQ_Dev/pull/1154) | ### Emissions Diagnostics and Log Output [Ben Murphy](mailto:murphy.ben@epa.gov), U.S. Environmental Protection Agency **Type of update**: Diagnostic and Log Updates **Release Version**: v5.5 **Description**: Several issues with emissions diagnostics were identified by internal developers and external users. These have been resolved. Issues include: - Process analysis errors when PA_BLEV > 1 and emissions are restricted to layer 1 only. This issue was first identified on the CMAS User Forum: https://forum.cmascenter.org/t/really-large-ipr-emis-results-for-upper-layers/ - Inconsistent time vector for B3GTS. On the CONUS domain, it was observed to equal 25 or 26 hours on random days. It should be 24 hours. - Timing on lightning diagnostic files starting at 00000 instead of 10000. - Formatting of DESID scale factors in log file has always been F6.3. Users have complained for some time. This is updated to ES9.2. - The EMVAR molecular weight table defined in desid_vars.F is now assigned with individual operational lines instead of one continuous parameter statement in the module specification section. This update will avoid Fortran continuation line limit issues in the future if the number of emission species continues to expand. - Adding space for environment variables like the symbolic date labels to be printed completely in the log files **Significance and Impact**: These updates improve consistency among diagnostic output files and improve readability of the log files. |Merge Commit | Internal record| |:------:|:-------:| |[Merge for PR#1077](https://github.com/USEPA/CMAQ/commit/1eef012a93faf0f7f9b523fede916fb5cd890fef) | [PR#1077](https://github.com/USEPA/CMAQ_Dev/pull/1077) | ## Add precision to timing metrics in logfiles [Ben Murphy](mailto:murphy.ben@epa.gov), U.S. Environmental Protection Agency **Type of update**: Improvement (Minor log formatting change) **Release Version/Date**: v5.5 **Description**: This PR adds three decimal places of precision to the process-level timing metrics in the ascii logfile. **Significance and Impact**: At high computational efficiency, the default precision provided for the timing metrics in the logfile was yielding 0.0 for some processes. When aggregated, this underestimates the time taken by these processes. |Merge Commit | Internal record| |:------:|:-------:| |[Merge for PR#961](https://github.com/USEPA/CMAQ/commit/cf37d49e144b3aed1380c6a74f404063f5e047bf) | [PR#961](https://github.com/USEPA/CMAQ_Dev/pull/961) | ## Improvement of Logfile output and error reporting [Ben Murphy](mailto:murphy.ben@epa.gov), U.S. Environmental Protection Agency **Type of update**: Bug Fix and Log File Improvements **Release Version**: CMAQv5.4 **Description**: - Propagated SHA ID from git repository to configuration file and execution ID to support versioning and matching code state to results. - Propagated (mostly documentation) improvements to v5.4 branch from existing v5.3 release branch. - Added M3EXIT output to Main logfile to improve discoverability. **Significance and Impact**: No impact on results for the cases tested. |Merge Commit | Internal record| |:------:|:-------:| |[Merge for PR#639](https://github.com/USEPA/CMAQ/commit/3dc2bb6e3d3041bbbf0729643cc38bb2c52b2e11) | [PR#639](https://github.com/USEPA/CMAQ_Dev/pull/639) | |[Merge for PR#637](https://github.com/USEPA/CMAQ/commit/6bf6a3c367cb5fae088396c879e1c9609766a5dd) | [PR#637](https://github.com/USEPA/CMAQ_Dev/pull/637) | |[Merge for PR#769](https://github.com/USEPA/CMAQ/commit/c5bce3ef77dc54b29bf66046d07f766afc2d9f61) | [PR#769](https://github.com/USEPA/CMAQ_Dev/pull/769) | ================================================ FILE: DOCS/Release_Notes/CMAQ-Release-Notes:-Transport-Processes.md ================================================ # Transport Processes ## Restore Vertical Diffusion and Gravitational Settling Diagnostic Files [Chris Nolte](mailto:nolte.chris@epa.gov), U.S. Environmental Protection Agency **Type of update**: Bug Fix **Release Version/Date**: CMAQv5.5 **Description**: The environment variable `VDIFF_DIAG_FILE` is supposed to control whether the CCTM outputs the vertical diffusion diagnostic file `CTM_VDIFF_DIAG`, and if gravitational settling is being used, additionally the `CTM_VSED_DIAG` file. However, there was a bug that prevented these diagnostic files from being written even if the user requested these outputs in the run script. **Significance and Impact**: No change to model calculation. Allows for outputting vertical diffusion and gravitational settling diagnostic files. |Merge Commit | Internal record| |:------:|:-------:| |[Merge for PR#1016](https://github.com/USEPA/CMAQ/commit/eddb4a71ce8e46b509d973462696c9fd8cea7ede) | [PR#1016](https://github.com/USEPA/CMAQ_Dev/pull/1016) | ================================================ FILE: DOCS/Release_Notes/CMAQ-Release-Notes:-Utilities.md ================================================ # Utilities ## Update Chemistry Utilities for More Recent Versions of pgi Compilers [William T. Hutzell](mailto:hutzell.bill@epa.gov), U.S. Environmental Protection Agency **Type of update**: Bug Fix, New Feature **Release Version/Date**: CMAQ Version 5.5 **Description**: Two sets of changes were made to the chemistry utilities. One set of changes changes makefile pgi compiler and link flags for _chemmech_, _inline_phot_preproc_, and _create_ebi_ so building executables do not fail when using version of pgi greater than 17.4 (_nvhpc compilers_). For the second set of changes, the _chemmech_ utility will stop and writes error messages to the screen or re-directed file when the mechanism definitions file has duplicated reaction labels. To prevent the error for the cracmm-based mechanisms, their second occurrence of R132 has been changed to R133. The pull request also changes chemmech's build script so the makefile copied to the build directory uses the requested compiler by default. The change supports rebuilding chemmech with the requested compiler without re-using the build script. **Significance and Impact**: Code change do not change model predictions but accomplish two goals. First, they allow building a mechanism (i.e., create its _RXNS\_DATA\_MODULE.F90_, _RXNS\_FUNC\_MODULE.F90_, _CSQY\_DATA_ and _ebi solver_ files) with nvfortran or recent version of pgf90 so a developer can perform the task using the two compilers. Second, chemmech give error messages to a developer when a mechanism definitions file uses reaction label more than one time. The problem impedes using IRR analysis because IRR control files reference reactions by their label and because a mechanism definition files can set reaction rate constants by referencing labels for other reactions. |Merge Commit | Internal record| |:------:|:-------:| |[Merge for PR#1069](https://github.com/USEPA/CMAQ/commit/f27f30b92f85337e573d50f1516c24a5344fbc5a) | [PR#1069](https://github.com/USEPA/CMAQ_Dev/pull/1069) | ## Remove Typographic Errors in CHEMMECH Output Files [William T. Hutzell](mailto:hutzell.bill@epa.gov), U.S. Environmental Protection Agency **Type of update**: Documentation **Release Version/Date**: CMAQ Version 5.5 **Description**: Updates remove typographic errors in CHEMMECH output files documenting a chemical mechanism such as the markdown files found under the repository's _**CCTM/src/MECHS/mechanism_information**_ directory. **Significance and Impact**: Updates have no effect on CCTM predictions but supporting documenting a photochemical mechanism's reactions. |Merge Commit | Internal record| |:------:|:-------:| |[Merge for PR#964](https://github.com/USEPA/CMAQ/commit/1e8fa83fea7b6b4d0b476d755779e072c0ee6d5f) | [PR#964](https://github.com/USEPA/CMAQ_Dev/pull/964) | ## Remove Conflicting Filenames on Window and Macintosh Operating Systems [William T. Hutzell](mailto:hutzell.bill@epa.gov), U.S. Environmental Protection Agency **Type of update**: Bug Fix **Release Version/Date**: CMAQ Version 5.4 **Description**: Both the create_ebi and inline_phot_prerproc have files in their source code directories that only differ in letter case in filenames such as _**UTIL/create_ebi/junit.F**_ and _**UTIL/create_ebi/junit.f**_. The property does not cause problems on Linux systems but can cause problems on Window and Macintosh systems. The problem is easily removed because only one file is needed or neither file is needed to build these chemistry utilities. The pull request removes the unneeded files causing the problems as well as removing two unneeded files under _**UTIL/inline_phot_preproc/src**_. **Significance and Impact**: None, but allows to more efficiently use the CMAQ repository on Windows and Macintosh operating systems. |Merge Commit | Internal record| |:------:|:-------:| |[Merge for PR#899](https://github.com/USEPA/CMAQ/commit/fb1683a0497db9343fbc8158c5acdea888442124) | [PR#899](https://github.com/USEPA/CMAQ_Dev/pull/899) | ## Autochem [Ben Murphy](mailto:murphy.ben@epa.gov), U.S. Environmental Protection Agency **Type of update**: New Feature **Release Version/Date**: CMAQ Version 5.4 **Description**: Introduction of the Autochem utility script that processes new chemical mechanism files, including EBI files if necessary, for user-defined mechanisms when mech.def and chemical namelist files are provided. The script executes utilities that are already present in the CMAQ repo including chemmech and create_ebi. It also copies and transfers files among directories that are used for driving the utilities. The purpose of Autochem is to reduce the burden of introducing new chemical mechanisms to CMAQ. The script can be executed as part of the bldit_cctm.csh script. Just uncomment the line containing: set build_mech By default, the script will copy any new mechanism files produced back into the CMAQ repo so they can be used in the future. If there are existing mechanism files there that you would like to overwrite, uncomment set clobber_mech **Significance and Impact**: None, but allows to more efficiently use the CMAQ repository. |Merge Commit | Internal record| |:------:|:-------:| |[Merge for PR#643](https://github.com/USEPA/CMAQ/commit/3e2a8fd5ede4751addcb638f3dabcbe564854ed5) | [PR#643](https://github.com/USEPA/CMAQ_Dev/pull/643) | |[Merge for PR#770](https://github.com/USEPA/CMAQ/commit/2ab818e06e3d929d5f59b1d36112bd251aed932f) | [PR#770](https://github.com/USEPA/CMAQ_Dev/pull/770) | ## New Output Files and Runtime Options for CHEMMECH [William T. Hutzell](mailto:hutzell.bill@epa.gov), U.S. Environmental Protection Agency **Type of update**: Code and Documentation Enhancements **Release Version/Date**: CMAQ Version 5.4 **Description**: The CHEMMECH utility was updated to accomplish the below items. 1. Add an option that revises the mechanism definition based on how reactions change the total number of elements between reactants and products. The elements consider is a subset of all chemical elements. If a reaction does not balance the initial and final number of elements, the revised file appends the reaction with the variables and coefficients measuring the unbalance. For each unbalance element, the added variable is called DELTA_element. DELTA_element's are not active chemistry species so CHEMMECH does not output information to solve how the DELTA_element's evolve over time. Both these output files are written to the output directory. 2. Produce four matlab scripts to support the F0AM modeling that are produced by the chemmech utility. 3. Revise the chemmech README page to include the new option as well the output files supporting F0AM box-model. A previous pull request added the F0AM outputs. After this numbered list, an relevant excerpt is given. 4. Fix a bug in chemmech that add stoichiometric coefficients for product when the products are atmospheric constants such as the reaction. The coefficient for M should not be added because M is not counted as product. O + O2 + M = O3 + M # 6.00E-34^-2.6; 5. Revise the chemmech source code to reduce the number of complex INTERFACE blocks. The change uses FORTRAN modules to accomplish the task. The module files combine several code files into a one file. Consult UTIL/chemmech/README.md for more Items 1 and 2. **Significance and Impact**: (1) Allows users to run the F0AM box-model when creating a CMAQ mechanism via the chemmech utility. (2) Adds to chemmech a run-time option revising the input mechanism definitions file for how each reaction changes the balance of elements such as carbon, nitrogen, and sulfur. |Merge Commit | Internal record| |:------:|:-------:| |[Merge for PR#845](https://github.com/USEPA/CMAQ/commit/773eff8f8f6c432494b116648a4b95188b77db6a) | [PR#845](https://github.com/USEPA/CMAQ_Dev/pull/845) | |[Merge for PR#913](https://github.com/USEPA/CMAQ/commit/f0673e722b5372ee38254f39130b5d59c50b14b8) | [PR#913](https://github.com/USEPA/CMAQ_Dev/pull/913) | ================================================ FILE: DOCS/Release_Notes/CMAQ-Release-Notes:-WRF-CMAQ-Coupled-Model.md ================================================ # WRF-CMAQ Coupled Model ## Compatibility issues with WRF versions 4.5.2 and later [David Wong](mailto:wong.david-C@epa.gov), U.S. Environmental Protection Agency **Type of update**: Bug Fix **Release Version/Date**: CMAQv5.5 **Description**: An update in WRFv4.5.2 (issued in [PR 1953](https://github.com/wrf-model/WRF/pull/1953) to the wrf-model GitHub repository) causes a run time error when using the WRF-CMAQ coupled model with WRF versions 4.5.2 and later. A workaround for this incompatibility issue is to revert this WRF update when using the WRF-CMAQ system. To do this first download or clone the code for WRFv4.5.1. Next copy the following two files from the WRFv4.5.1 code base to your folder containing the more recent version WRF (e.g., 4.6.1). For example, if your WRF code for the two versions are saved in folders 'WRFv451' and 'WRFv4.*', execute the following commands: ``` cp WRFv451/share/wrf_tsin.F WRFv4.*/share/wrf_tsin.F cp WRFv451/frame/module_domain_type.F WRFv4.*/frame/module_domain_type.F ``` where * can be 4.5.2, 4.5.3, 4.6, and 4.6.1. **Significance and Impact:** This solution will avoid the run time error in WRF-CMAQ, however it also means you will not be working with the latest WRF updates to these two files. **Additional Notes:** EPA's testing of WRFv4.5.1-CMAQv5.5 has included chemical mechanisms CB6r5 and CRACMMv1 with the M3DRY dry deposition scheme. Other model options can be used with the WRF-CMAQ model but will have limited user support for issues that are encountered. ## Remove gcc bug for CORE_SHELL_OPTICS option [William T. Hutzell](mailto:hutzell.bill@epa.gov), U.S. Environmental Protection Agency **Type of update**: Bug Fix **Release Version/Date**: CMAQv5.5 **Description**: When the runtime option CORE_SHELL_OPTICS is set to True and CCTM is compiled with the gcc 6.1 compiler, the model crashes. The cause is a write to the mystr character variable in the BHCOAT subroutine because the value has an insufficient length. **Significance and Impact:** The change allows running CCTM with gcc 6.1 compiler where CORE_SHELL_OPTICS is set to True. Using the intel 18.0, tests showed the change does not alter model predictions over the 2018 12NE3 and 2015 HEMI domains. |Merge Commit | Internal record| |:------:|:-------:| |[Merge for PR#1021](https://github.com/USEPA/CMAQ/commit/ef4565bc785ccd5367311e429a49b7b3ccd54ded) | [PR#1021](https://github.com/USEPA/CMAQ_Dev/pull/1021) | ## New WRF-CMAQ model using WRFv4.4 and CMAQv5.4 [David Wong](mailto:wong.david-c@epa.gov), U.S. Environmental Protection Agency **Type of update**: New Feature **Release Version/Date**: CMAQv5.4 **Description**: The new WRF-CMAQ model is based on WRFv4.4 and CMAQv5.4. It supports only RRTMG radiation scheme for short wave aerosol direct effect. It uses core-shell model to perform aerosol optics calculations rather than volume mixing technique as in the previous version of the WRF-CMAQ model. The code used to couple the WRFv4.4-CMAQv5.4 models is now released as part of the CMAQ Github Repository. Starting from WRF V4.4 and CMAQ v5.4, users can construct the coupled model with any version of WRF (v4.4 or later) and any version of CMAQ (v5.4 or later) with the following steps: * download the desirable version of WRF * download the desirable version of CMAQ * build CMAQ by executing bldit_cctm.csh with build_twoway turns on * move the built CMAQ code, BLD* into WRF direction with the name cmaq * setenv WRF_CMAQ 1 * setenv IOAPI the_path_IOAPI (for example: /home/wdx/lib/x86_64/gcc-9.1/ioapi_3.2) * setenv WRFIO_NCD_LARGE_FILE_SUPPORT 1 * configure * compile em_real The "setenv WRF_CMAQ 1" must be there when you compile or recompile code and the "setenv IOAPI the_path_IOAPI" must be there before typing configure. A complete step by step build process and run instructions are provided in the [WRF-CMAQ Tutorial](../Users_Guide/Tutorials/CMAQ_UG_tutorial_WRF-CMAQ_Benchmark.md). **Significance and Impact** This simplifies the WRF-CMAQ coupled model construction process and lets users have choices to build the coupled model with a desirable version of WRF and CMAQ. **Internal PRs**: N/A ## WRF-CMAQ model Aerosol Feedback Bugfix [David Wong](mailto:wong.david-c@epa.gov@epa.gov), U.S. Environmental Protection Agency **Type of update**: Bug Fix **Release Version/Date**: CMAQv5.4 **Description**: A bug was identified within the CMAQ to WRF coupling routine (twoway_feedback.F90) where aerosol feedback information is transferred from CMAQ to WRF. In doing so, it was found that WRF was not receiving the correct aerosol feedback information due to a looping error relating to the number of layers set to 1 in some cases. Specifically, The 3-way nested loop in the subroutine feedback_read (twoway_feedback.F90) assigns aerosol feedback information to the WRF grid structure. The outer loop runs from 1 to NLAYS3D which it is an IOAPI internal variable, and the value of NLAYS3D is establish at the end of calling IOAPI subroutine DESC3. Hence its value might differ from the value obtained in the FIRTIME block and subsequent time step. Similarly the last block of code in the feedback_read subroutine suffers a similar problem, i.e. the top layer + 1 does not get updated properly. **Additional information on the bug and the code fix is posted on the [CMAS User Forum](https://forum.cmascenter.org/t/important-note-wrf-cmaq-coupled-model-bug/3617).** **Significance and Impact**: The bug impacts the WRF-CMAQ coupled system in the CMAQv5.3 release series (v5.3, v5.3.1, v5.3.2, v5.3.3) when running with short wave radiative feedback. The bug was not present in prior WRF-CMAQ versions. The bugfix in CMAQv5.4 now correctly captures the variations in the aerosol optical properties and consequently the direct feedback effects through all layers. |Merge Commit | Internal record| |:------:|:-------:| |[Merge for PR#951](https://github.com/USEPA/CMAQ_Dev/commit/50cf578877c377fb00c74619e60ae511ab14dd3e) | [PR#951](https://github.com/USEPA/CMAQ_Dev/pull/951) | ================================================ FILE: DOCS/Release_Notes/README.md ================================================ # CMAQ Release Notes The following links provide Release Notes for CMAQv5.4 onward. Links for Release Notes for previous CMAQ versions are available [here](https://www.epa.gov/cmaq/cmaq-documentation#release-notes). * [Instrumented Models](./CMAQ-Release-Notes:-Instrumented-Models.md) * [MPAS-CMAQ Coupled Model](./CMAQ-Release-Notes:-MPAS-CMAQ-Coupled-Model.md) * [WRF-CMAQ Coupled Model](./CMAQ-Release-Notes:-WRF-CMAQ-Coupled-Model.md) * [Chemistry](./CMAQ-Release-Notes:-Chemistry.md) * [Transport Processes](./CMAQ-Release-Notes:-Transport-Processes.md) * [Dry Deposition/Air-Surface Exchange](./CMAQ-Release-Notes:-Dry-Deposition-Air-Surface-Exchange.md) * [Emissions Updates](./CMAQ-Release-Notes:-Emissions-Updates.md) * [Process Analysis & Sulfur Tracking Model (STM)](./CMAQ-Release-Notes:-Process-Analysis-&-Sulfur-Tracking-Model-(STM).md) * [Structural Improvements](./CMAQ-Release-Notes:-Structural-Improvements.md) * [Diagnostic Options](./CMAQ-Release-Notes:-Diagnostic-Options.md) * [Pre-processors](./CMAQ-Release-Notes:-Preprocessors.md) * [PYTOOLS](./CMAQ-Release-Notes:-PYTOOLS.md) * [Post-processors](./CMAQ-Release-Notes:-Postprocessors.md) * [Utilities](./CMAQ-Release-Notes:-Utilities.md) * [Stratospheric-Tropospheric Exchange (STE)](./CMAQ-Release-Notes:-Stratospheric‐Tropospheric-Exchange-(STE).md) For a high level summary and comparison to previous versions please see the [Release FAQ pages](../Release_FAQ/README.md). ## CMAQv5.5 Bug Fixes Users who wish to adopt the most recent bugfixes or minor updates to v5.5 should review the tagged versions of v5.5+: **[Record of changes to CMAQv5.5](../CMAQ-Bugfix-Branch.md)** ================================================ FILE: DOCS/Users_Guide/Appendix/CMAQ_UG_appendixA_model_options.md ================================================ [<< Tables and Figures](../CMAQ_UG_tables_figures.md) - [Home](../README.md) - [Next Appendix >>](CMAQ_UG_appendixB_emissions_control.md) * * * # Appendix A: Model options ## Table of Contents: * [A.1 Configuration Options (config_cmaq.csh)](#config_cmaq.csh) * [A.2 Compilation Options (bldit_cctm.csh)](#bldit_cctm.csh) * [A.3 Execution Options (run_cctm.csh)](#run_cctm.csh) * [MPI Configuration](#MPI_Config) * [Vertical Extent](#Vertical_Ext) * [Timestep Configuration](#Timestep_Config) * [CCTM Configuration Options](#CCTM_Config_Options) * [Synchronization Time Step and Tolerance Options](#Syn_time_Option) * [Science Options](#Science_Options) * [Process Analysis Options](#Process_Analysis_Options) * [I/O Controls](#I/O_Controls) * [Aerosol Diagnostics Controls](#Aersol_Diagnostics_Controls) * [Diagnostic Output Flags](#Diagnostic_Output_Flags) * [Offline Emissions Configuration](#Offline_Emissions_Config) * [Lightning NOx Configuration](#Lightning_NOx_Config) * [Online Biogenic Emissions Configuration](#Online_Bio_Config) * [Windblown Dust Emissions Configuration](#windblown_dust_config) ## A.1 Configuration Options (config_cmaq.csh) [Return to Top](#TOC_A) Consistency of configuration variables is critical for building CMAQ itself, not just its libraries. Accordingly, CMAQ includes the configuration script config_cmaq.csh to help enforce consistent environment settings for CMAQ and its associated libraries. The following lists the config_cmaq.csh variables defined for the build process and suggests values to which to set those variables. Note that for multiprocessor applications it is recommended that the Fortran MPI wrapper script mpif90 be specified for the Fortran compiler (myFC). Using this script, instead of a direct call to the Fortran compiler, will ensure that the full suite of MPI components (libraries and include files) for the compiler are included in the parallel build. - `CMAQ_HOME` The central CMAQ installation directory. For example, if you installed the CMAQ source code in the directory `/home/user/CMAQ` set CMAQ_HOME with `export CMAQ_HOME=/home/user/CMAQ` for bash or `setenv CMAQ_HOME /home/user/CMAQ` for csh; note that this variable is M3HOME prior to CMAQv5.2 - `CMAQ_DATA` Automatically set by config_cmaq.csh; note that this variable is M3DATA prior to CMAQv5.2 - `OUTDIR` Only necessary if the Budget Tool is activated. If this variable is unspecified, CMAQ will try to output the Budget Tool file to the root directory. This will be updated in future CMAQ versions to be consistent with other output files. - `CMAQ_LIB` Automatically set by config_cmaq.csh; note that this variable is M3LIB prior to CMAQv5.2 - `compiler` Set the Fortran compiler type that you will use to compile CMAQ; choices are intel, pgi, or gcc - `compilerVrsn` (Optional) Set the Fortran compiler version number that you will use to compile CMAQ; if you employ this variable, it will be appended to the compiler type when naming build directories and executables - `IOAPI_INCL_DIR` Location of the I/O API include files installed on your Linux system - `IOAPI_LIB_DIR` Location of the I/O API library on your Linux system - `NETCDF_LIB_DIR` Location of the netCDF C Library on your Linux system - `NETCDF_INCL_DIR` Location of the netCDF C include files on your Linux system - `NETCDFF_LIB_DIR` Location of the netCDF Fortran Library on your Linux system - `NETCDFF_INCL_DIR` Location of the netCDF Fortran include files on your Linux system - `MPI_LIB_DIR` Location of the Message Passing Interface Library on your Linux system - `ioapi_lib` Name of the I/O API library on your system; set to "-lioapi" - `netcdf_lib` Name of the netCDF library C on your system; set to "-lnetcdf" for versions < 4.2.0, "-lnetcdf" for version 4.2.0 and later - `netcdff_lib` Name of the netCDF Fortran library on your system; set to "-lnetcdff" for versions 4.2.0 and later, for version before 4.2.0 this library is bundled with the C library. - `pnetcdf_lib` Name of the parallel netCDF library on your system; set to "-lpnetcdf" - `mpi_lib` Name of the MPI library on your system; set to "-lmpich" for MVAPICH, "-lmpi" for OpenMPI - `myFC` Set to match the `FC` (Fortran compiler) you use to compile netCDF - `myCC` Set to match the `CC` (C compiler) you use to compile netCDF - `myFSTD` Standard Mode Fortran compiler optimization flags for your Linux system; suggested values for CMAQ are in the distributed script - `myDBG` Debug Mode Fortran compiler optimization flags for your Linux system; suggested values for CMAQ are in the distributed script - `myLINK_FLAGS` Fortran compile linker flags for your Linux system; suggested values for CMAQ are in the distributed script - `myFFLAGS` Fixed-format Fortran compiler optimization flags for your Linux system; suggested values for CMAQ are in the distributed script - `myCFLAGS` C compiler optimization flags for your Linux system; suggested values for CMAQ are in the distributed script - `myFRFLAGS` Free form-format Fortran compiler optimization flags for your Linux system; suggested values for CMAQ are in the distributed script - `extra_lib` Set to other libraries required for compiling on your Linux system; users will likely need to change this setting in the distributed script for portability to their system. - `EXEC_ID` Build tag, should be automatically set by config_cmaq.csh. Users who build the CMAQ model from a git repository will see the SHA ID, corresponding to the state of the repository code used to build their model, inserted into this EXEC_ID. This will support the model build and resulting output being uniquely associated with the model source code version. - `CMAQ_REPO` This is always the location of the CMAQ repository that the user will pull from to create exectuables. If the user is building CMAQ inside the repository then it will be equal to CMAQ_HOME. If not, the user must supply an alternative folder location. ## A.2 Compilation Options (bldit_cctm.csh) [Return to Top](#TOC_A) The configuration options listed here are set during compilation of the CCTM executable through the build script, bldit_cctm.csh, located under the CCTM/scripts folder. When these options are invoked they create a binary executable that is fixed to the specified configuration. To change these options, you must recompile CCTM and create a new executable. Several of the CCTM science modules have more than one option. Brief descriptions of these options are provided here. The following options are invoked by uncommenting the line in the CCTM build script. Comment the line in the script using a "#" to turn the option off. - `CompileBLDMAKE` Uncomment to use an existing BLDMAKE executable to build CCTM executable. If commented out, recompile BLDMAKE utility from the source. - `CopySrc` Uncomment to copy the source code into a working build (BLD) directory. Currently, this option cannot be commented out to successfully compile the model. - `MakeFileOnly` Uncomment to build a Makefile but to not compile the executable. The Makefile will be located in the BLD directory and can subsequently be used to manually compile the executable by typing 'make' in the BLD direcotry. Comment out to both create a Makefile and compile the executable when invoking the bldit_cctm.csh script. - `ParOpt` Build an executable for running on multiple processors. Invoking this command requires the availability of the MPI library/INCLUDE files. - `build_parallel_io` Uncomment to build CMAQ with true parallel I/O feature (requires mpi version of ioapi 3.2 and pnetcdf, refer to [Appendix D](./CMAQ_UG_appendixD_parallel_implementation.md).) - `Debug_CCTM` Uncomment to compile the CCTM executable in Debug Mode. - `ISAM_CCTM` Uncomment to compile the CCTM executable with Integrated Source Apportionment Method (ISAM). See [Chapter 11](../CMAQ_UG_ch11_ISAM.md) for futher information before invoking this option. - `build_twoway` Uncomment to build WRF-CMAQ two way model with explicit meteorological-chemical feedbacks - to build a stand-alone CMAQ, comment this option out. During run time, if you encounter any problem, please contact David Wong (wong.david@epa.gov) for specific instructions for building WRF-CMAQ. The following configuration settings may have multiple options. Select one option in the CCTM build script. - `ModGrid: [default: Cartesian]` The CCTM model grid configuration module. Currently only Cartesian coordinates are supported by CMAQ. Do not change this module setting. - `grid/cartesian` - `ModAdv: [default: wrf_cons]` 3-D Horizontal module. See [Chapter 6](../CMAQ_UG_ch06_model_configuration_options.md#65-advection) for further information. - `wrf_cons` use the WRF vertically integrated column mass to calculate vertical advection - `local_cons` use the layer-by-layer integrated mass-conserving scheme to calculate vertical advection - `ModHdiff: [default: hdiff/multiscale]` The only option in CMAQv5 for the horizontal diffusion module is `hdiff/multiscale`, which uses a diffusion coefficient based on local wind deformation. Do not change this module setting. See [Chapter 6](../CMAQ_UG_ch06_model_configuration_options.md#66-horizontal-diffusion) for further information. - `hdiff/multiscale` - `ModVdiff: [default: vdiff/acm2]` Vertical diffusion and surface exchange module. Do not change this module setting. See [Chapter 6](../CMAQ_UG_ch06_model_configuration_options.md#67-vertical-diffusion) for further information. - `vdiff/acm2` calculate vertical diffusion using the Asymmetric Convective Model version 2 (ACM2) - `ModDepv: [default: depv/m3dry]` Deposition calculation module. Users may choose between the msdry and stage options. If CMAQ output of land use specific deposition or stomatal flux is desired, then the stage option must be selected. See [Chapter 6](../CMAQ_UG_ch06_model_configuration_options.md#68-dry-depositionair-surface-exchange) for further information. - `depv/m3dry` CMAQ m3dry dry deposition routine. This is an updated version of the routine that has always been in CMAQ. See [Chapter 6](../CMAQ_UG_ch06_model_configuration_options.md#681-dry-deposition---m3dry) for further information. - `depv/stage` CMAQ stage dry deposition routine. This option is new in version 5.3. See [Chapter 6](../CMAQ_UG_ch06_model_configuration_options.md#682-dry-depostion---stage) for further information. - `ModEmis: [default: emis/emis]` CMAQ inline anthropogenic and natural emissions module. Inline emissions are activated by the user via the CCTM run script. Do not change this module setting. See [Chapter 6](../CMAQ_UG_ch06_model_configuration_options.md#inline-stream-offline) for further information. - `emis/emis` - `ModBiog: [default: biog/beis4]` Calculate biogenic emissions online with the BEIS4 model. Online biogenic emissions are activated in the CCTM run script. Do not change this module setting. See [Chapter 6](../CMAQ_UG_ch06_model_configuration_options.md#biogenics) for further information. - `biog/beis4` - `ModMegBiog: [default: biog/megan3]` Calculate biogenic emissions online with the MEGAN3.1 model. Online biogenic emissions are activated in the CCTM run script. Do not change this module setting. See [Chapter 6](../CMAQ_UG_ch06_model_configuration_options.md#biogenics) for further information. - `biog/megan3` - `ModPlmrs: [default: plrise/smoke]` Calculate inline plume rise for large point sources using the Briggs algorithm as it is implemented in SMOKE. Inline emissions plume rise is controlled in the CCTM run script. Do not change this module setting. See [Chapter 6](../CMAQ_UG_ch06_model_configuration_options.md#inline-stream-offline) for further information. - `plrise/smoke` - `ModCgrds: [default: spcs/cgrid_spcs_nml]` CMAQ model species configuration module. - `spcs/cgrid_spcs_nml` namelist files used to configure CMAQ model species - `spcs/cgrid_specs_icl` use Fortran INCLUDE files to configure CMAQ model species - `ModPhot: [default: phot/inline]` Photolysis calculation module. See [Chapter 6](../CMAQ_UG_ch06_model_configuration_options.md#6103-photolysis) for further information. - `phot/inline` calculate photolysis rates inline using simulated aerosols and ozone concentrations - `phot/table` calculate clear-sky photolysis rates off-line using the CMAQ program JPROC; provide daily photolysis rate look-up tables to CCTM - `Mechanism: [default: cb6r5_ae7_aq`] Chemistry mechanism for gas, aerosol, and aqueous chemistry. See the [CMAQv5.3 Chemical Mechanisms Table](../../../CCTM/src/MECHS/README.md) for a listing of the mechanism choices that are available in CMAQv5.3. See [Chapter 6](../CMAQ_UG_ch06_model_configuration_options.md#610-gas-phase-chemistry) for further information. - `Tracer [default trac0] ` Specifies tracer species. Invoking inert tracer species in CMAQ requires defining the tracers using namelist files and compiling the CMAQ programs with these files. The setting for this module corresponds to the directory name in the ``$CMAQ_HOME/CCTM/src/MECHS`` directory that contains the namelist files for the tracer configuration. The default setting does not use any tracers. - `trac[n]` - `ModGas: [default: gas/ebi_${Mechanism}]` Gas-phase chemistry solver module. See [Chapter 6](../CMAQ_UG_ch06_model_configuration_options.md#6102-solvers) for further information. - `smvgear` use the SMVGEAR chemistry solver - `ros3` use gas/the Rosenbrock chemistry solver - `ebi` use the Euler Backward Iterative solver - `ModDiag` use various diagnostic routines. Currently only the vertical extraction tool is implemented here. - `ModAero: [default: aero7]` CMAQ aero/aerosol module. See [Chapter 6](../CMAQ_UG_ch06_model_configuration_options.md#611-aerosol-dynamics-and-chemistry) for further information. - `aero7` seventh-generation modal CMAQ aerosol model with extensions for sea salt emissions and thermodynamics; includes a new formulation for secondary organic aerosol yields - `ModCloud: [default: cloud/acm_ae6]` CMAQ cloud module for modeling the impacts of clouds on deposition, mixing, photolysis, and aqueous chemistry. See [Chapter 6](../CMAQ_UG_ch06_model_configuration_options.md#612-aqueous-chemistry-scavenging-and-wet-deposition) for further information. - `cloud/acm_ae6` ACM cloud processor that uses the ACM methodology to compute convective mixing with aqueous chemistry for AERO6 - `cloud/acm_ae6_mp` ACM cloud processor that uses the ACM methodology to compute convective mixing with aqueous chemistry for AERO6 and air toxics; this is the multipollutant mechanism in CMAQv5 - `cloud/acm_ae7` ACM cloud processor that uses the ACM methodology to compute convective mixing with aqueous chemistry for AERO7 - `cloud/acm_ae7_kmt2` ACM cloud processor that uses the ACM methodology to compute convective mixing with aqueous chemistry for AERO7. This cloud mechanism considers kinetic mass transfer and uses a Rosenbrock solver to simulate extended aqueous chemistry in cloud droplets - `cloud/acm_cracmm` ACM cloud processor that uses the ACM methodology to compute convective mixing with aqueous chemistry for CRACMM - `ModUtil: [default: util]` CMAQ utility modules. Do not change this module setting. - `util/util` - `ModPa: [default: procan/pa]` Process analysis is controlled in the CCTM run script. Do not change this module setting. - `procan/pa` - `ModPvO3: [default: pv_o3]` Potential vorticity parameterization for free-troposphere exchange of ozone. Do not change this module setting. See [Chapter 6](../CMAQ_UG_ch06_model_configuration_options.md#613-potential-vorticity-scaling) for further information. - `pv_o3` ## A.3 Execution Options (run_cctm.csh) [Return to Top](#TOC_A) The environment variables listed below are invoked during execution of the CCTM and are set in the CCTM run script, run_cctm.csh located under the CCTM/scripts folder. - `compiler [default: intel]` - `compilerVrsn [default: Empty]` - `VRSN [default: v55]` - `PROC [default: mpi]` Sets if the CCTM will run in multi-processor or serial mode. - `mpi` Use MPI multi-processor configuration. The CCTM executable must have been built to support MPI, see bldit_cctm.csh compilation options above. The run script requires settings for the number of processors and other MPI configuration variables required by the Linux system. - `serial` Run the CCTM in serial, single-processor mode. - `MECH [default: None]` CMAQ chemical mechanism. Must match `Mechanism` variable setting in the CCTM build script. See [Chapter 6](../CMAQ_UG_ch06_model_configuration_options.md#using-predefined-chemical-mechanisms) for further information. - `APPL [default: none]` Application name used to label output binaries and log files. - `RUNID [default: $VRSN_compiler_APPL]` Run ID used to track version number, compiler, and application case name. - `BLD` Directory path of the built CCTM executable - `EXEC [default: CCTM_$VRSN]` The name of the CCTM executable. ### MPI Configuration [Return to Top](#TOC_A) - `NPCOL_NPROW [default: 1 1]` The numbers of columns and rows for decomposing the modeling domain in an MPI configuration. The product of this pair of numbers must equal the total number of processors allocated to the CCTM simulation. For serial or single-processor MPI runs set to `1 1`. For example, for an 8 processor MPI simulation, set to `4 2`. - `NPROCS [default: 1]` Number of processors to allocate for the CCTM simulation; equal to the product of NPCOL x NPROW. For serial or single-processor MPI runs set to `1`, otherwise set to the product of the two numbers used in NPCOL_NPROW. ### Vertical extent [Return to Top](#TOC_A) - `NZ [default: 35]` Set the number of vertical layers. Script variable only, variable not used by CCTM model. Vertical extent inherited from MCIP model inputs. ### Timestep Configuration [Return to Top](#TOC_A) - `NEW_START [default: TRUE]` Value should be true for new simulations starting from an initial condition file. To restart from a previous days simulation output, set to FALSE. For all standard runscripts, this variable is automatically set to FALSE after looping to the second day of the simulation. - `START_DATE` Simulation start date in Gregorian format (YYYY-MM-DD) - `END_DATE` Simulation end date in Gregorian format (YYYY-MM-DD) - `STTIME` Simulation start time (HHMMSS) - `NSTEPS [default: 240000]` Number of simulation time steps (HHMMSS) - `TSTEP [default: 010000]` Simulation output time step interval (HHMMSS). Must be a mutiple of the run length. - `MET_TSTEP [default: time step of METCRO3D file]` Meteorology input time step interval (HHMMSS). Users who wish to specify temporally coarser meteorology then their input meteorology may do so using this environment variable; this environmental variable is not included in our default runscripts. The default value of MET_TSTEP is the time-step of the METCRO3D file (input meteorology data step). Users may however specify MET_TSTEP to be multiples of the input meterology time-step as long as they add up to the output time step (define as environmental variable TSTEP). Ex. If the meteorology files have data available at 10 minute intervals and a desired 1-hour output frequency, valid MET_STEPS are {10,20,30,30,60...} minutes. ### CCTM Configuration Options [Return to Top](#TOC_A) - `GRID_NAME [default: Blank]` Name of the grid definition contained in the GRIDDESC file that specifies the horizontal grid for the current application of the model. - `GRIDDESC [default: Path to GRIDDESC file]` Grid description file for setting the horizontal grid definition. - `CTM_APPL [default: ${RUNID}_${YYYYMMDD}]` CCTM log and output file naming extension. - `CONC_SPCS [if commented out, all species]` Model species to be written to the CCTM_CONC file, including temperature, relative humidity and pressure. See [Chapter 7](../CMAQ_UG_ch07_model_outputs.md#72-cctm-output-files) for further information. - `CONC_BLEV_ELEV [if commented out, all layers]` Vertical model layer range for the CCTM_CONC file concentrations; this variable sets the lower and upper layers over which to output the CCTM_CONC file. In the example script, BLEV and ELEV are both set to 1, so concentrations will only be written for the first layer. - `AVG_CONC_SPCS [if commented out, output all species]` Model species for calculating integral average concentrations for each output time step. Options can be any of the standard output species that are written to the CCTM_CONC file, including temperature, relative humidity and pressure. The species in this list will be written to the CCTM_ACONC output file. See [Chapter 7](../CMAQ_UG_ch07_model_outputs.md#72-cctm-output-files) for further information. - `ACONC_BLEV_ELEV [default: if commented out, all layers]` Vertical model layer range for integral average concentrations; this variable sets the lower and upper layers over which to calculate integral average concentrations. For example, setting this variable to “1 5” will produce integral average concentrations for model layers 1 through 5. - `AVG_FILE_END_TIME [default: N]` Change the time stamp of the ACONC file output time step from the default of the beginning of the hour to the end of the hour. - `Y`: Set the time stamp to the end of each hour. - `N`: Set the time stamp to the beginning of the hour. - `EXECUTION_ID [default: Blank]` The name of the CCTM executable; automatically set by the script. ### Synchronization Time Step and Tolerance Options [Return to Top](#TOC_A) - `CTM_MAXSYNC [default: 720]` Maximum synchronization time step in seconds - `CTM_MINSYNC [default: 60]` Minimum synchronization time step in seconds - `SIGMA_SYNC_TOP [default: .70]` Top sigma level thru. which sync step determined - `ADV_HDIV_LIM [default: .9]` Maximum horizontal divergence limit for advection time step adjustment - `CTM_ADV_CFL [default: .75]` Maximum Courant–Friedrichs–Lewy (CFL) condition - `RB_ATOL [default: 1.0E-07]` If using Rosenbrock (ros3) photochemistry solver, the absolute tolerance for converging to solution - `RB_RTOL [default: 1.0E-03]` If using Rosenbrock (ros3) photochemistry solver, relative tolerance for converging to solution - `GEAR_ATOL [default: 1.0E-09]` If using Gear (smvgear) photochemistry solver, the absolute tolerance for converging to solution - `GEAR_RTOL [default: 1.0E-03]` If using Gear (smvgear) photochemistry solver, relative tolerance for converging to solution ### Science Options [Return to Top](#TOC_A) - `CTM_OCEAN_CHEM [default: True]` Use online sea spray aerosol emissions, halogen ozone chemistry, and enhanced ozone deposition over ocean waters. See [Chapter 6](../CMAQ_UG_ch06_model_configuration_options.md#sea-spray) for further information. - `CTM_LTNG_NO [default: Y]` Y/N setting to activate lightning NO emissions. Setting this variable to Y requires additional variables to define the configuration of the lightning NO emissions calculation. See the settings for `LTNGNO`, `LTNGPARAMS`, `NLDN_STRIKES`, and `LTNGDIAG` below. See [Chapter 6](../CMAQ_UG_ch06_model_configuration_options.md#lightning-no) for further information. - `KZMIN [default: Y]` If KZMIN is set to Y, CCTM will read the urban land use fraction variable (PURB) from the GRID_CRO_2D meteorology file and use this information to determine the minimum eddy diffusivity in each grid cell. In CMAQv5, grid cells that are predominantly urban use a KZMIN value of 1.0 m2/s and non-urban cells use a value of 0.01 m2/s. If this variable is set to N, the PURB variable will not be used and a uniform KZMIN value of 1.0 m2/s will be used throughout the modeling domain. - `CTM_MOSAIC [default N]` Y/N setting to ouput land use specific deposition velocities and fluxes. This option is only available when using the STAGE deposition module. See [Chapter 6](../CMAQ_UG_ch06_model_configuration_options.md#682-dry-depostion---stage) for further information. - `CTM_STAGE_P22 [default: N]` Y/N setting to select the land use specific implementation of the Pleim et al. 2022 aerosol deposition parameterization in the STAGE deposition option. See [Chapter 6](../CMAQ_UG_ch06_model_configuration_options.md#682-dry-depostion---stage) for further information. - `CTM_STAGE_E20 [default: Y]` Y/N setting to select the land use specific and modal implementation of the Emerson et al. 2020 aerosol deposition parameterization in the STAGE deposition option. See [Chapter 6](../CMAQ_UG_ch06_model_configuration_options.md#682-dry-depostion---stage) for further information. - `CTM_STAGE_S22 [default: N]` Y/N setting to select the land use specific implementation of the Shu et al. 2022 and v5.3 STAGE aerosol deposition parameterization in the STAGE deposition option. See [Chapter 6](../CMAQ_UG_ch06_model_configuration_options.md#682-dry-depostion---stage) for further information. - `PX_VERSION` Y/N setting to indicate whether the Pleim-Xiu land-surface model was used for the input meteorology. If this setting is set to Y the input meteorology data must include soil moisture (SOILM), soil temperature (SOILT), and soil type (ISLTYP) variables for use in the calculation of soil NO emissions. Additionally, the soil properties from PX will be used in the dust model and in the STAGE deposition module for calculating the soil compensation point for ammonia bidirectional exchange. See [Chapter 6](../CMAQ_UG_ch06_model_configuration_options.md#682-dry-depostion---stage) for further information. - `CLM_VERSION` Y/N setting to indicate whether the Community Land Model (CLM) land-surface model was used in generating the input meteorology. If this setting is set to Y the input meteorology data must include soil moisture (SOILM), soil temperature (SOILT), and soil type (ISLTYP) variables for use in the calculation of soil NO emissions. Additionally, the soil properties from CLM will be used in the dust model and in the STAGE deposition module for calculating the soil compensation point for ammonia bidirectional exchange. See [Chapter 6](../CMAQ_UG_ch06_model_configuration_options.md#682-dry-depostion---stage) for further information. - `NOAH_VERSION` Y/N setting to indicate whether the Noah land-surface model was used in generating the input meteorology. If this setting is set to Y the input meteorology data must include soil moisture (SOILM), soil temperature (SOILT), and soil type (ISLTYP) variables for use in the calculation of soil NO emissions. Additionally, the soil properties from Noah will be used in the dust model and in the STAGE deposition module for calculating the soil compensation point for ammonia bidirectional exchange. See [Chapter 6](../CMAQ_UG_ch06_model_configuration_options.md#682-dry-depostion---stage) for further information. - `CTM_ABFLUX [default: Y]` Y/N setting to activate fertilizer ammonia bidirectional flux for in-line emissions and deposition velocities. Setting this variable to Y requires four additional input files that include gridded fractional crop distributions (E2C_LU), soil properties (E2C_SOIL), fertilizer conditions (E2C_CHEM), and an agricultural soil initial conditions file (INIT_MEDC_1). Activation of this setting will produce additional variables in the output dry deposition file. - `CTM_BIDI_FERT_NH3` Y/N setting to indicate whether fertilizer NH3 should be subtracted from the emissions and handled instead by the NH3 bidirectional flux model. Note that the bidirectional flux model must also be invoked by setting CTM_ABFLUX to Y. - `CTM_HGBIDI [default: N]` Y/N setting to activate mercury bidirectional flux for in-line emissions and deposition velocities. Activation of this setting will produce additional variables in the output dry deposition file. - `CTM_SFC_HONO [default: Y]` Y/N setting to include surface HONO interactions. See [Chapter 6](../CMAQ_UG_ch06_model_configuration_options.md#6.10.4_HONO) for further information. - `CTM_GRAV_SETL [default Y]` Y/N setting to activate gravitational sedimentation for aerosols. - `CTM_BIOGEMIS_BEIS [default: Y]` Y/N setting to calculate biogenic emissions using BEIS. If this option is activated, several additional variables must be set (see the online biogenic emissions configuration settings). See [Chapter 6](../CMAQ_UG_ch06_model_configuration_options.md#biogenics) for further information. - `CTM_BIOGEMIS_MEGAN [default: N]` Y/N setting to calculate biogenic emissions using MEGAN. If this option is activated, several additional variables must be set (see the online biogenic emissions configuration settings). See [Chapter 6](../CMAQ_UG_ch06_model_configuration_options.md#biogenics) for further information. - `AEROSOL_OPTICS [default: 3]` Determines how aerosol optical properies are calculated for the Inline Calculation of Photolysis Frequencies. -- VALUES 1 thru 3 determined by using Uniformly Volume Mixed sphere for each aerosol mode --- 1-Inline Tabular Method based on Mie Calculations over range of aerosol properties --- 2-Solves Mie Theory using aerosol size distribution and mean refractive indices --- 3-Approximations to Mie Theory based on Mie Parameters and mean refractive indices -- VALUES 4 thru 6 attempts to use core-shell mixing model when the aerosol mode has signficant black carbon core otherwise uses Volume Mixed model where optics determined as --- 4-Inline Tabular Method based on Mie Calculations --- 5-Solves Mie Theory --- 6-Approximations to Mie Theory - `CTM_PVO3 [default: N]` Y/N determines whether to scale ozone in free-troposphere to potential vorticity. Option requires that METCRO3D file has PV, potential vorticity. See [User Guide 6.13](../CMAQ_UG_ch06_model_configuration_options.md#613-potential-vorticity-scaling) for more information. - `IC_AERO_M2USE [default: T]` Instructs CMAQ whether or not to use aerosol surface area from the Initial Condition file. If this option is set to false, then uniform diameter and standard deviation will be applied to each aerosol mode. If a particular simulation is a restart from a simulation preceeding in time (i.e. if this is any day after the first simulation day), then IC_AERO_M2USE is automatically set to True inside CMAQ. - `IC_AERO_M2WET [default: F=dry]` Instructs CMAQ whether or not to assume the initial condition surface area is consistent with dry or wet diameter. Note that most air quality models assume mode parameters are dry, and then will calculate wet diameter when needed (e.g. for deposition). - `BC_AERO_M2USE [default: T]` Instructs CMAQ whether or not to use aerosol surface area from the Boundary Condition file. If this option is set to false, then uniform diameter and standard deviation will be applied to each aerosol mode from the boundaries. - `BC_AERO_M2WET [default: F=dry]` Instructs CMAQ whether or not to assume the boundary condition surface area is consistent with dry or wet diameter. Note that most air quality models assume mode parameters are dry, and then will calculate wet diameter when needed (e.g. for deposition). For more information about the IC_AERO and BC_AERO options, please see [Chapter 6](../CMAQ_UG_ch06_model_configuration_options.md#6.11.1_Aero_BC) ### Process analysis options [Return to Top](#TOC_A) - `CTM_PROCAN [default: N]` Activate process analysis in the CCTM. Set the environment variable, PACM_INFILE (Read below for more information), that defines the integrated process rate and integrated reaction rate outputs from CCTM. Additional process analysis output files will be created when this setting is activated. - `PA_BCOL_ECOL [default: 0]` Modeling grid domain column range for the process analysis calculations. Set to the two digits representing the beginning and ending column number bounding the process analysis domain. - `PA_BROW_EROW [default: 0]` Modeling grid domain row range for the process analysis calculations. Set to the two digits representing the beginning and ending row number bounding the process analysis domain. - `PA_BLEV_ELEV [default: 0]` Modeling grid domain layer range for the process analysis calculations. Set to the two digits representing the bottom and top layer numbers bounding the process analysis domain. - `PACM_INFILE` Input file that specifies the desired output information (read by pa_read.F). See Table 1 in [Chapter 9](../CMAQ_UG_ch09_process_analysis.md) for details on the types of equations and operators that can be used in this file. A sample file is included in each of the mechanism folders under the CCTM/src/MECHS directory. For example, the file pa_cb6r3_ae7_aq.ctl in CCTM/src/MECHS/cb6r3_ae7_aq provides a template of IRR and IPR commands. - `PACM_REPORT` The output file that displays how CMAQ translates the variables listed in `PACM_INFILE`, and lists the reactions (including reactants, products and yields) that will be used in calculating the IPR and IRR values. ### I/O Controls [Return to Top](#TOC_A) - `IOAPI_LOG_WRITE [default:False]` Set to T to turn on excess WRITE3 logging by the I/O API. - `FL_ERR_STOP [default: False]` Set to T to configure the program to exit if inconsistent headers are found in the input files. - `PROMPTFLAG [default: False]` Turn on I/O-API PROMPTFILE interactive mode. Set to T to require interactive prompts for different I/O API operations. - `IOAPI_OFFSET_64 [default: True]` I/O API setting for large time step records. If your output time step is going to produce data that are >2GB per time step, then this needs to be set to YES. ### Aerosol Diagnostics Controls [Return to Top](#TOC_A) Aerosol Diagnostics are now handled by the Explicit and Lumped Model Output module (ELMO), which is directed by the Emission Control Interface (ECI). See [Appendix B.6: ELMO](CMAQ_UG_appendixB_emissions_control.md) ### Diagnostic Output Flags [Return to Top](#TOC_A) - `CTM_CKSUM [default: True]` Write science processes summaries to the standard output. Impacts run speed and log file output size. - `CLD_DIAG [default: False]` Output an hourly wet deposition diagnostic file (CTM_WET_DEP_2) that includes convective wet deposition estimates. - `CTM_PHOTDIAG [default: False]` Output files for viewing the photolysis rates used in the model simulation and what meterological and other factors determined the rates. The inline and table options produce three files (`CTM_RJ_1`, `CTM_RJ_2` and `CTM_RJ_3`) and one file (`CTM_RJ_2`), respectively. `CTM_RJ_1` is a two dimensional file that contains key photolysis rates and radiative parameters. `CTM_RJ_2` contains the photolysis rates used over the model domain. `CTM_RJ_3` contains data used to calculate the photolysis rates. -- `NLAYS_PHOTDIAG [default: 1]` : Number of layers in `CTM_RJ_2` and `CTM_RJ_3` files. Permitted values equal 1 to number of layers in model domain. Only the inline option uses this runtime option. -- `NWAVE_PHOTDIAG [default:294 303 310 316 333 381 607]` : In `CTM_RJ_3`, the wavelengths of diagnostic data written. The user can use or subset the default values. - `CTM_SSEMDIAG [default: False]` Output the calculated sea salt emissions to a diagnostic netCDF output file (CTM_SSEMIS_1). - `CTM_DUSTEM_DIAG [default: False]` Output the online dust emissions to a diagnostic netCDF output file (CTM_DUST_EMIS_1). The diagnostic file includes not only the total dust emissions, but also dust emissions by land use category and dust model parameters, such as gridded erodible land use fractions. - `CTM_DEPV_FILE [default: False]` Output an hourly diagnostic file (CTM_DEPV_DIAG) for the inline deposition velocity calculations. - `LTNGDIAG [default: False]` Output a lightning NO emissions diagnostics file. - `CTM_WVEL [default: Y]` Y/N setting to output the CCTM-calculated vertical velocities to the CONC and ACONC file. ### Offline emissions configuration [Return to Top](#TOC_A) - `N_EMIS_GR ` The number of offline gridded streams to be used by the model. See [Chapter 6](../CMAQ_UG_ch06_model_configuration_options.md#inline-stream-offline) for further information. - `GR_EMIS_### ` Directory path and file name of the gridded file for stream number ###, where ### = 001, 002,…,N_EMIS_GR. See [Chapter 6](../CMAQ_UG_ch06_model_configuration_options.md#inline-stream-offline) for further information. - `GR_EMIS_LAB_### ` Short label of the gridded file for stream ###, where ### = 001, 002,…,N_EMIS_GR. See [Chapter 6](../CMAQ_UG_ch06_model_configuration_options.md#inline-stream-offline) for further information. - `GR_EM_SYM_DATE_### [default: False]` Switch to indicate whether gridded emission is of representative day type for stream ###, where ### = 01, 02,…,N_EMIS_GR. See [Chapter 6](../CMAQ_UG_ch06_model_configuration_options.md#inline-stream-offline) for further information. - `N_EMIS_PT ` The number of offline Point emission streams to be used by the model. See [Chapter 6](../CMAQ_UG_ch06_model_configuration_options.md#inline-stream-offline) for further information. - `STK_GRPS_### ` Directory path and file name of the stack groups file for sector ###, where ### = 001, 002,…,N_EMIS_PT. Each ### refers to one of the inline plume rise point-source sectors. See [Chapter 6](../CMAQ_UG_ch06_model_configuration_options.md#inline-stream-offline) for further information. - `STK_EMIS_###` Directory path and file name of the point emissions file for sector ###, where ### = 01, 02,…,N_EMIS_PT. Each ### refers to the one of the plume rise point-source sectors. See [Chapter 6](../CMAQ_UG_ch06_model_configuration_options.md#inline-stream-offline) for further information. - `STK_EMIS_DIAG_###` Logical for turning on/off diagnostic output for point emissions file for sector ###, where ### = 01, 02,…,N_EMIS_PT. Each ### refers to the one of the plume rise point-source sectors. These data reflect the emission rates after scaling rules have been applied by DESID, the emissions control interface. Values for STK_EMIS_DIAG_### include FALSE, TRUE, 2D, 2DSUM, and 3D. The TRUE and 2D options are synonymous and will output just the surface layer of emissions. The 2DSUM option outputs a 2D file with values calculated from summing the entire column of emissions in each horizontal grid cell. The 3D option outputs a full 3D file. All options provide output across all output time steps during the simulation day. See [Chapter 6](../CMAQ_UG_ch06_model_configuration_options.md#inline-stream-offline) for further information. - `STK_EMIS_LAB_### ` Short label of the point emissions file for sector ###, where ### = 001, 002,…,N_EMIS_PT. Each ### refers to the one of the plume rise point-source sectors. See [Chapter 6](../CMAQ_UG_ch06_model_configuration_options.md#inline-stream-offline) for further information. - `STK_EM_SYM_DATE_### [default: False]` Switch to indicate whether point emission file is of representative day type for sector ###, where ### = 01, 02,…,N_EMIS_PT. Each ### refers to the one of the plume rise point-source sectors. See [Chapter 6](../CMAQ_UG_ch06_model_configuration_options.md#inline-stream-offline) for further information. - `EMIS_SYM_DATE [default: False]` The default for GR_EM_SYM_DATE_### and STK_EM_SYM_DATE_### if not set explicitly is false, however users have the option to set this default by setting this environment variable. Users should note, that if this variable is set and GR_EM_SYM_DATE_### or STK_EM_SYM_DATE_### is set, the individual stream switch takes precedent over this variable. This switch maybe useful if all offline emissions are of representative day type. See [Chapter 6](../CMAQ_UG_ch06_model_configuration_options.md#inline-stream-offline) for further information. ### Lightning NOx configuration [Return to Top](#TOC_A) - `LTNGNO [default: "InLine"]` Setting to define whether the lightning emissions calculation will be inline or off-line. This variable can be set to a gridded netCDF file of lightning NO emissions to use emissions calculated with a preprocessor outside of CCTM. Setting this variable to “inline” activates the inline emissions calculation in CCTM and requires the LTNGPARMS_FILE variable (see below) to provide parameters for generating inline lightning NO emissions. See [Chapter 6](../CMAQ_UG_ch06_model_configuration_options.md#lightning-no) for further information. - `USE_NLDN [default: False]` Use hourly NLDN or WWLLNs strikes data to compute inline lightning NO emissions. Activating this setting requires the NLDN_STRIKES input files (the files can be either NLDN hourly data or WWLLNs hourly data). If USE_NLDN is set to N and LTNGNO set to "InLine", lightning NO emissions will be generated using parameters provided in the LTNGPARMS_FILE. Lightning parameters netCDF file, which contains the linear regression parameters for generating lightning NO using the parameterization scheme when LTNGNO set to "InLine" and USE_NLDN set to N. In addition, it also contains the intercloud to cloud-to-ground flash ratios, scaling factors for calculating flashes using the convective precipitation rate, land-ocean masks, and the moles of NO per flash (cloud-to-ground and intercloud) which are used by both lightning production schemes (NLDN and parameterization). Ingore if LTINGNO set to an external input file. See [Chapter 6](../CMAQ_UG_ch06_model_configuration_options.md#lightning-no) for further information. - `CTM_LTNGDIAG_1` Lightning diagnostics output 3D netCDF file; ignore if `LTNGDIAG = N` - `CTM_LTNGDIAG_2` Lightning diagnostics output 2D netCDF file (column total lightning NO emissions); ignore if `LTNGDIAG = N` ### Online biogenic emissions configuration [Return to Top](#TOC_A) - `BEIS_SOILOUT [default: [Out Directory/CCTM_BSOILOUT_$RUNID_$TODAY]` Directory path and file name of biogenic NO soil emissions output file. See [Chapter 6](../CMAQ_UG_ch06_model_configuration_options.md#biogenics) for further information. - `BEIS_SOILINP [default: [Out Directory/CCTM_BSOILOUT_$RUNID_$YESTERDAY]` Directory path and file name of biogenic NO soil emissions input file. If NEW_START is set to N or F, the soil NO emissions file from the previous day's simulation will be a required input file. See [Chapter 6](../CMAQ_UG_ch06_model_configuration_options.md#biogenics) for further information. Options for use with BEIS: - `GSPRO [default: Build Directory]` Directory path and file name for input ASCII speciation profiles. See [Chapter 6](../CMAQ_UG_ch06_model_configuration_options.md#biogenics) for further information. - `BEIS_NORM_EMIS [default: None]` Grid-normalized biogenic emissions input netCDF file. See [Chapter 6](../CMAQ_UG_ch06_model_configuration_options.md#biogenics) for further information. - `PX_VERSION [default: True]` Setting to indicate whether the Pleim-Xiu land-surface model was used for the input meteorology. If this setting is set to Y the input meteorology data must include soil moisture (SOILM), soil temperature (SOILT), and soil type (ISLTYP) variables for use in the calculation of soil NO emissions. - `B3GTS_DIAG [default: False]` Write the online biogenic emissions (mass units) to a diagnostic netCDF output file (B3GTS_S). - `B3GTS_S [default: [Output Directory]/CCTM_B3GTS_$CTM_APPL.nc` Diagnostic output netCDF file of biogenic emissions. This variable is ignored if B3GTS_DIAG is set to N. Options for use with MEGAN: - `USE_MEGAN_LAI [default: N]` By default MEGAN will use the same leaf area index information as the rest of CMAQ. Toggle if a separate LAI dataset is desired. When this option is enabled the user must also set the environment variable MEGAN_LAI. - `MEGAN_SOILOUT [default: [Out Directory/CCTM_MSOILOUT_$RUNID_$TODAY]` Directory path and file name of MEGAN's biogenic NO soil emissions output file. See [Chapter 6](../CMAQ_UG_ch06_model_configuration_options.md#biogenics) for further information. - `MEGAN_SOILINP [default: [Out Directory/CCTM_MSOILOUT_$RUNID_$YESTERDAY]` Directory path and file name of MEGAN's biogenic NO soil emissions input file. If NEW_START is set to N or F, or if IGNORE_SOILINP is set to F (Default), the soil NO emissions file from the previous day's simulation will be a required input file. See [Chapter 6](../CMAQ_UG_ch06_model_configuration_options.md#biogenics) for further information. - `IGNORE_SOILINP [default: N]` Similar to the obsolete INITIAL_RUN option for BEIS, this option allows a user to perform a CMAQ restart without needing an MEGAN_SOILINP file for the previous day. Instanteous values of shortwave radiation and surface temperature will be used instead of the previous daily average, and soil NO variables are set to their initialization values as for a new run. - `USE_MEGAN_BDSNP [default: N ]` Toggle to use the Berkeley-Dalhousie Soil NOx Parameterization (BDSNP) instead of the default option based on Yinger and Levy (1995). If the BDSNP option is activated, several additional variables must be set (see below). See [Chapter 6](../CMAQ_UG_ch06_model_configuration_options.md#biogenics) for further information. - `MEGAN_CTS` Points to canopy file that was created using the MEGAN preprocessor. - `MEGAN_EFS` Points to emission factor file that was created using the MEGAN preprocessor. - `MEGAN_LDF` Points to light dependent fraction file that was created using the MEGAN preprocessor. - `MEGAN_LAI` Optional. Points to leaf area index file that was created using the MEGAN preprocessor. - `BDSNP_AFILE` For BDSNP. Points to the ARID file that was created using the MEGAN preprocessor. - `BDSNP_NAFILE` For BDSNP. Points to the NONARID file that was created using the MEGAN preprocessor. - `BDSNP_FFILE` For BDSNP. Points to the FERT file that was created using the MEGAN preprocessor. - `BDSNP_LFILE` For BDSNP. Points to the LANDTYPE file that was created using the MEGAN preprocessor. - `BDSNP_NFILE` For BDSNP. Points to the nitrogen deposition file that was created using the MEGAN preprocessor. ### Windblown dust emissions configuration [Return to Top](#TOC_A) - `CTM_WB_DUST [default: False]` Setting to calculate online windblown dust emissions in CCTM. Requires additional setting of environmental variable `PX_VERSION` to "Y". See [Chapter 6](../CMAQ_UG_ch06_model_configuration_options.md#wind-blown-dust) for further information. [<< Tables and Figures](../CMAQ_UG_tables_figures.md) - [Home](../README.md) - [Next Appendix >>](CMAQ_UG_appendixB_emissions_control.md)
CMAQv5.5 User's Guide
================================================ FILE: DOCS/Users_Guide/Appendix/CMAQ_UG_appendixB_emissions_control.md ================================================ [<< Previous Appendix](CMAQ_UG_appendixA_model_options.md) - [Home](../README.md) - [Next Appendix >>](CMAQ_UG_appendixC_spatial_data.md) * * * # Appendix B: Emissions Input and Control [Jump to DESID Tutorial](../Tutorials/CMAQ_UG_tutorial_emissions.md) for step by step instructions on performing some basic manipulation of emission streams. [Jump to Emissions overview](../CMAQ_UG_ch06_model_configuration_options.md) in Chapter 6 of this User's Guide. ## B.1 Emissions Control with the Detailed Emissions Scaling, Isolation and Diagnostics Module (DESID) The Detailed Emissions Scaling, Isolation and Diagnostics (DESID) module included with CMAQv5.3+ provides comprehensive customization and transparency of emissions manipulation to the user. The customization of emissions is accomplished via a series of Control Namelists, which contain variables that modify the behavior of the emissions module. These include ***Emission Scaling Rules***, ***Size Distributions***, ***Regions Registry***, ***Chemical Families***, ***Region Families***, and ***Area Adjustments***. To determine its configuration, DESID makes use of input primarily from four files: the CMAQ runscript, the CMAQ Miscellaneous Control File ([CMAQ_Control_Misc.nml][link_B.1_misc]), the DESID Control file ([CMAQ_Control_DESID.nml][link_B.1_desis]), and the DESID Chemical Mapping File (e.g. [CMAQ_Control_DESID_cb6r5_ae7_aq.nml][link_B.1_desid]). A separate version of the chemical mapping control file exists for every mechanism because these namelists are preloaded with likely rules linking emissions of important CMAQ primary species to their typical emission species names as output by SMOKE. By default, this namelist is stored in each chemical mechanism folder (e.g. MECHS/cb6r5_ae7_aq) and is copied into the user's build directory when bldit_cctm.csh is executed and a chemical mechanism is chosen. If the user modifies the name or location of the DESID control file or chemical mapping file, then the following commands in the RunScript should be updated as well: ``` setenv DESID_CTRL_NML ${BLD}/CMAQ_Control_DESID.nml setenv DESID_CHEM_CTRL_NML ${BLD}/CMAQ_Control_DESID_${MECH}.nml ``` If the user does not provide a DESID Control Files or the path to the files in the RunScript are incorrect, then the model will abort and indicate the error. If the user would like all emissions set to 0, it is recommended that they use the syntax outlined here and in the DESID tutorial to do so. ## B.2 Chemical Mapping Control The chemical mapping file contains emission scaling rules that allow the user to exert sophisticated, precise control over the emissions from specific streams, in specific geographic areas, and/or for specific compounds. The set of rules used by CMAQ to interpret emissions shall be provided in one array called DESID_Rules_nml. It is necessary that every field (i.e. column) be populated for every rule. The fields are given and defined here: ``` ! Region | Stream Label |Emission | CMAQ- |Phase/|Scale |Basis |Op ! Label | |Surrogate| Species |Mode |Factor| | ``` - 'Region Label' - Apply scaling for specific regions of the domain. Set this field to "EVERYWHERE" to apply the rule to the entire domain. - 'Stream Label' - Short Name from Run Script (e.g. the value of GR_EMIS_01_LAB or STK_EMIS_01_LAB). There are a few reserved names that apply to online emissions streams. These are: - BIOG - Biogenic VOC emissions computed by BEIS - MIOG - Biogenic VOC emissions computed by MEGAN - MGEM - Marine Gas Emissions - LTNG - Lightning NO Emissions - WBDUST - Wind-Blown Dust Emissions - SeaSpray - Sea Spray Aerosol Emissions Set this field to 'ALL' to apply the rule to all emission streams. - 'Emission Species' - The character string identifying the species on the emission file or in the online calculation that the CMAQ species should be mapped to. For gases, usually this name is the same as the CMAQ species. For aerosols, it is usually slightly different (e.g ANO3 vs. PNO3). Set this field to 'ALL' to apply the rule to all emission species. - 'CMAQ-Species' - Internal Species Name. Set this field to 'ALL' to apply the rule to all CMAQ internal species. - 'Phase/Mode' - If the CMAQ-Species is a Gas, this field should equal 'Gas'. If the CMAQ-Species is an aerosol, this field should indicate one of the possible emission aerosol modes. Every stream by default is given a 'COARSE' and 'FINE' mode. The user may refer to these or define others above and refer to them as well. This level of specificity is needed so that aerosol number and surface area are calculated correctly, and so that any unit conversions between gases and aerosols can be handled correctly. - 'Scale Factor' - Numerical adjustment factor to be applied to the mapping. - 'Basis' - Specifies whether the scaling option should apply with consideration of mass/mole conversions, or if the operation should ignore the units of the incoming variable and target CMAQ species. This parameter is ignored for multiply rules (i.e. the 'm' operator is specified) because unit conversion will have already been considered in the preceding add ('a') and/or overwrite ('o') rules. CMAQ includes a lookup table of molecular weights for known emission species (in desid_vars.F) and can use these to translate molar and mass emission rates from the input file to rates in units corresponding to the CMAQ internal species. CMAQ determines the units of the emission species by reading the file header (i.e. it is important the units are accurate). Options for input are: - 'MASS' - Conserve Mass. For example, if emissions of an aerosol are to be scaled to emissions of a gas species, it is common to want to conserve mass. - 'MOLE' - Conserve Moles. For example, if emissions of a gas-phase species are to be scaled to another gas, it is sometimes desired to conserve moles since gas emissions are provided on a mole basis. - 'UNIT' - Ignore molecular weight conversions and apply emission rate directly regardless of units. - Example 1: Particle-phase variable Y (units in g/s) on the emission file is mapped to CMAQ gas-phase species X with a scale factor of B. Emissions for X are needed in mol/s. - If Basis is set to UNIT, then EMIS(X) = EMIS(Y) * B - If Basis is set to MASS, then EMIS(X) = EMIS(Y) * B * MW(X) - If Basis is set to MOLE, then EMIS(X) = EMIS(Y) * B / MW(Y) - Example 2: Gas-phase variable Y (units in mol/s) on the emission file is mapped to CMAQ gas-phase species X with a scale factor of B. Emissions for X are needed in mol/s. - If Basis is set to UNIT, then EMIS(X) = EMIS(Y) * B - If Basis is set to MASS, then EMIS(X) = EMIS(Y) * B * MW(Y) / MW(X) - If Basis is set to MOLE, then EMIS(X) = EMIS(Y) * B - Example 3: Particle-phase variable Y (units in g/s) on the emission file is mapped to CMAQ particle-phase species X with a scale factor of B. Emissions for X are needed in g/s. - If Basis is set to UNIT, then EMIS(X) = EMIS(Y) * B - If Basis is set to MASS, then EMIS(X) = EMIS(Y) * B - If Basis is set to MOLE, then EMIS(X) = EMIS(Y) * B / MW(Y) * MW(X) - 'Operation' - Specifies the kind of rule to be carried out. Options are: - 'a' - add the rule to existing instructions. This operation should be used for new entries, too. - 'm' - find existing scaling instructions matching this rule's features (ie. species, streams, etc) and multiply them by the factor in this particular rule. This operator ignores the 'BASIS' input parameter regardless of its value (UNIT, MASS or MOLES). - 'o' - find existing scaling instructions matching this rule and overwrite them. ### B.2.1 Default Rules The Chemical Mapping Control Namelists provided with the CMAQ repo have default rules included that correspond to each chemical mechanism. Here is an example default rule that links NO in CMAQ to NO from every emission stream in every model grid cell with a scale factor of 1.0. ``` ! Region | Stream Label |Emission | CMAQ- |Phase/|Scale |Basis |Op ! Label | |Species | Species |Mode |Factor| | 'EVERYWHERE' , 'All' ,'NO' ,'NO' ,'GAS' ,1.0 ,'UNIT','a', ``` Many rules are needed in order to properly link every emitted pollutant to a CMAQ species. Rules are needed for gas- and aerosol-phase species. Additional rules also exist for online aerosol modules like wind-blown dust and sea spray because the names of aerosol emission species from these modules are different than those typically used for SMOKE output. For example, fine-mode aerosol sulfate is commonly called PSO4 in SMOKE, but is PMFINE_SO4 from dust and sea spray. ### B.2.2 Modifying Default rules The user can modify any default rule to change the scale factor applied, the spatial area to be considered, or the streams to be applied to. Alternatively, the user can add new rules after the default rules to customize the emissions. Typical modifications may include multiplying the emissions of a particular species from a particular stream by a factor of 2, zeroing out emissions of all species from a particular stream, etc. Please see the tutorial on [Prescribing Emissions with DESID](../Tutorials/CMAQ_UG_tutorial_emissions.md) for specific examples of modifications and the syntax used to invoke them. #### B.2.2.1 Supporting the Volatility Basis Set The *Volatility Basis Set* for treating the semivolatile partitioning of primary organic emissions is an example of a model feature that is well-supported by DESID. The approach involves distributing the emissions of total primary organic aerosol (carbon and noncarbon mass, or POC and PNCOM) among a series of aerosol and gas species of varying volatility. If the user would like to invoke the nonvolatile partitioning assumption, it can be accomplished by directing all POC and PNCOM emissions to the POC and PNCOM species in CMAQ. ``` ! --> Nonvolatile POA 'EVERYWHERE', 'ALL' ,'POC' ,'APOC' ,'FINE',1. ,'MASS','a', 'EVERYWHERE', 'ALL' ,'PNCOM' ,'APNCOM' ,'FINE',1. ,'MASS','a', ``` If the user would like to apply a uniform volatility distribution to the POA emissions, it can be accomplished with the following rules. ``` ! --> Semivolatile POA 'EVERYWHERE', 'ALL' ,'POC' ,'VLVPO1' ,'GAS' ,0. ,'MASS','a', 'EVERYWHERE', 'ALL' ,'PNCOM' ,'VLVPO1' ,'GAS' ,0. ,'MASS','a', 'EVERYWHERE', 'ALL' ,'POC' ,'VSVPO1' ,'GAS' ,0.045,'MASS','a', 'EVERYWHERE', 'ALL' ,'PNCOM' ,'VSVPO1' ,'GAS' ,0.045,'MASS','a', 'EVERYWHERE', 'ALL' ,'POC' ,'VSVPO2' ,'GAS' ,0.14 ,'MASS','a', 'EVERYWHERE', 'ALL' ,'PNCOM' ,'VSVPO2' ,'GAS' ,0.14 ,'MASS','a', 'EVERYWHERE', 'ALL' ,'POC' ,'VSVPO3' ,'GAS' ,0.18 ,'MASS','a', 'EVERYWHERE', 'ALL' ,'PNCOM' ,'VSVPO3' ,'GAS' ,0.18 ,'MASS','a', 'EVERYWHERE', 'ALL' ,'POC' ,'VIVPO1' ,'GAS' ,0.50 ,'MASS','a', 'EVERYWHERE', 'ALL' ,'PNCOM' ,'VIVPO1' ,'GAS' ,0.50 ,'MASS','a', 'EVERYWHERE', 'ALL' ,'POC' ,'ALVPO1' ,'FINE',0.09 ,'MASS','a', 'EVERYWHERE', 'ALL' ,'PNCOM' ,'ALVPO1' ,'FINE',0.09 ,'MASS','a', 'EVERYWHERE', 'ALL' ,'POC' ,'ASVPO1' ,'FINE',0.045,'MASS','a', 'EVERYWHERE', 'ALL' ,'PNCOM' ,'ASVPO1' ,'FINE',0.045,'MASS','a', 'EVERYWHERE', 'ALL' ,'POC' ,'ASVPO2' ,'FINE',0. ,'MASS','a', 'EVERYWHERE', 'ALL' ,'PNCOM' ,'ASVPO2' ,'FINE',0. ,'MASS','a', 'EVERYWHERE', 'ALL' ,'POC' ,'ASVPO3' ,'FINE',0. ,'MASS','a', 'EVERYWHERE', 'ALL' ,'PNCOM' ,'ASVPO3' ,'FINE',0. ,'MASS','a', 'EVERYWHERE', 'ALL' ,'POC' ,'AIVPO1' ,'FINE',0. ,'MASS','a', 'EVERYWHERE', 'ALL' ,'PNCOM' ,'AIVPO1' ,'FINE',0. ,'MASS','a', ``` Notice that for each species (e.g. ALVPO1) a rule is needed to link the species to the emissions of POC and another rule is needed to add PNCOM. This is because current mechanisms both carbon and noncarbon mass are part of the emissions of every semivolatile species. To change the volatility distribution for all streams, the user may modify the scaling factors in the default rules above. To introduce specialized volatility distributions for specific stream (e.g. residential wood burning, forest fires, diesel vehicles, etc), rules may be added which explicitly identify a stream in the "Stream Label" field. Alternatively, emitted species may be added on the offline file that correspond to individual emission sectors, and sector-specific volatility distributions may then be applied to those species. To avoid large swings in repartitioning after emission, it is a good idea to split mass between gas and particle phases, with all mass going to the particle in the C* = 0.1-1 range and all gas for C* = 100-1000. Species with C*=10 can generally have mass split between gas and particle or be put in all gas if conditions are very clean. If too much mass evaporates or condenses upon emission, the aerosol size distribution will be affected. #### B.2.2.2 Supporting Potential Combustion SOA Potential Combustion SOA (pcSOA) is a CMAQ species introduced to account for missing pathways for SOA formation from combustion sources. It includes IVOC oxidation as well as other phenomena (Murphy et al., ACP, 2017). It was parameterized primarily in LA, where vehicle exhaust continues to dominate. The following emission rulese add the gas-phase precursor to pcSOA to the model scaled to POA. 'EVERYWHERE', 'ALL' ,'POC' ,'PCVOC' ,'GAS' ,6.579,'MASS','a', 'EVERYWHERE', 'ALL' ,'PNCOM' ,'PCVOC' ,'GAS' ,6.579,'MASS','a', However, the added pcSOA is probably inappropriate for Fire sources, especially in its current configuration. This pathway should be zeroed out for all fire and wood-burning related sources. The default emission control interfaces include a number of emission rules with the most common stream names for fire emission inputs in order to maximize the likelihood of zeroing out pcSOA from fires. The user should confirm that pcVOC emissions from fire sources are zero for all simulations. 'EVERYWHERE', 'PT_FIRES' ,'ALL' ,'PCVOC' ,'GAS' ,0.0 ,'MASS','o', 'EVERYWHERE', 'PT_RXFIRES' ,'ALL' ,'PCVOC' ,'GAS' ,0.0 ,'MASS','o', 'EVERYWHERE', 'PT_AGFIRES' ,'ALL' ,'PCVOC' ,'GAS' ,0.0 ,'MASS','o', 'EVERYWHERE', 'PT_OTHFIRES' ,'ALL' ,'PCVOC' ,'GAS' ,0.0 ,'MASS','o', 'EVERYWHERE', 'PT_FIRES_MXCA','ALL' ,'PCVOC' ,'GAS' ,0.0 ,'MASS','o', 'EVERYWHERE', 'GR_RES_FIRES' ,'ALL' ,'PCVOC' ,'GAS' ,0.0 ,'MASS','o', The CRACMM mechanism (introduced in CMAQv5.4) does not use PCSOA or PCVOC because it provides a mechanistic estimate of OA production. If those species are present, they should be removed. The only exception is if they are coming from the boundary conditions (i.e. if boundary conditions are being supplied by a non-CRACMM model run). ## B.3 DESID Control The DESID control file (CMAQ_Control_DESID.nml) provides chemical mechanism-independent user inputs to DESID. Important variable sections are the General Options, Area Normalization, Size Distribution Parameters, Region Definitions, and Diagnostic Output Configuration. ### B.3.1 General Options The maximum number of DEISD layers can be set with ``` &Desid_Options Desid_MaxLays = 0 / ``` This variable can limit the impact of vertical mixing (plume-rise) algorithms in CMAQ. If Desid_MaxLays = 0, then all model layers are available for emissions. ### B.3.2 Area Normalization and Projection Adjustment Specify area-normalized emission fluxes from input streams. If emission inputs are provided to CMAQ in area-normalized fluxes for any stream, this component may be used to convert them correctly to emission rates appropriate for the model simulation grid projection. For example, if biogenic emissions are provided in units of moles/m2/s, then that stream may be identified here and DESID can be instructed to adjust each flux to moles/s and adjust the rates using the map scale factor that converts emissions in real geographic space into projected grid space. Definition of Fields: 'Stream Label' - Declare a stream. If the label is 'ALL', then the instruction will be expanded to all OFFLINE streams. 'Area Normalization' - If TRUE, then this stream's emissions will be multiplied by grid cell area. If AUTO, then DESID will deduce from the units string whether or not each variable on the stream input file should be multiplied by the area scale factor. 'Projection Adjustment' - If TRUE, then this stream's emissions will be multiplied by the area Map Scale Factor. If AUTO, then DESID will inherit the per-stream value from Area Normalization. If Area Normalization is TRUE, the Projection Adjustment is True. Example: ``` &AreaNorm AREA_NML = ! | Stream Label | Area Normalization | Projection Adjustment 'ALL' ,'AUTO' ,'AUTO', 'GRIDDED' ,'TRUE' ,'TRUE', 'FIRES' ,'TRUE' ,'FALSE', 'VCP' ,'FALSE' ,'TRUE', / ``` If emissions have been prepared by SMOKE or a similar emissions processing tool that computes emissions on a model grid, it is not expected that an area normalization or projection adjustment will be needed. This feature was developed primarily for applications where an offline emission model produces area-normalized emission fluxes, not emission rates. ### B.3.3 Aerosol Size Distributions The treatment of aerosol size distributions in CMAQv5.3 has been updated to be more consistent with the way particle sizes and modes are treated by the National Emission Inventory and in emissions processing tools like SMOKE, MOVES, SPECIATE, and Speciation Tool. Specifically, in these tools, aerosol emissions are typically parameterized into two main modes, Fine and Coarse. Although the size distribution parameters (i.e. total number, diameter, standard deviation, etc.) for these modes will vary among emission sources, previous versions of CMAQ assumed that all primary fine particles had the same size distribution upon emission. Coarse-mode particles were assumed to exhibit a larger diameter but were also uniform across all sources (excluding wind-blown dust and sea spray). In CMAQv5.3 and beyond, users link particle emission species to CMAQ particle species via the DESID_Scaling section of the Chemical Mapping Control Namelist. Examples of default mapping rules can be found in any of the Chemical Mapping Control Namelists in the CMAQ repository. The three lines below assign emissions for all streams for particulate-phase sulfate, ammonium, and nitrate. ``` ! Region | Stream Label |Emission | CMAQ- |Phase/|Scale |Basis |Op ! Label | |Species | Species |Mode |Factor| | 'EVERYWHERE' , 'ALL' ,'PSO4' ,'ASO4' ,'FINE',1.0 ,'UNIT','a', 'EVERYWHERE' , 'ALL' ,'PNH4' ,'ANH4' ,'FINE',1.0 ,'UNIT','a', 'EVERYWHERE' , 'ALL' ,'PNO3' ,'ANO3' ,'FINE',1.0 ,'UNIT','a', ``` The CMAQ-Species field should be populated with bulk chemical names (e.g. ASO4, AEC, AK, ACA, etc). In other words, the 'i','j', or 'k' which usually designates the mode of the aerosol species name should be omitted. A list of the valid aerosol bulknames exists in the source file "[AERO_DATA.F][link_B.3_aero]" in the array named "aerolist". The user should also identify the aerosol mode to be populated using the "Phase/Mode" field. In the example above, all of the rules identify the "FINE" mode as the destination mode. CMAQ uses this value to look up the size distribution parameters (diameter and standard deviation) to apply for this particular emission. Aerosol mode keywords from the DESID_Scaling section are linked to reference mode labels in the Desid_SizeDist section of the DESID Control Namelist. These assignments can be made for all streams at once, as demonstrated by the first two default entries initializing the 'FINE' and 'COARSE' modes, or they can be made on a stream-by-stream basis as shown below for Wind-Blown Dust and Sea Spray aerosol. ``` &Desid_SizeDist Desid_Sd_nml = ! | Stream Label | Emiss. Mode | Ref. Mode ! 'ALL' ,'FINE' ,'FINE_REF', ! 'ALL' ,'COARSE' ,'COARSE_REF', 'WBDUST' ,'FINE' ,'FINE_WBDUST', 'WBDUST' ,'COARSE' ,'COARSE_WBDUST', 'SEASPRAY' ,'FINE' ,'FINE_SEASPRAY', 'SEASPRAY' ,'COARSE' ,'COARSE_SEASPRAY', ! 'AIRCRAFT' ,'FINE' ,'AIR_FINE', !To use these examples, you ! 'AIRCRAFT' ,'COARSE' ,'AIR_COARSE', ! must add entries for AIR_FINE ! and AIR_COARSE to the data structure ! em_aero_ref in AERO_DATA. ``` The 'Ref. Mode Labels' are used to lookup size distribution parameters in [AERO_DATA.F][link_B.3_aero]. The following reference modes are defined in this file: ``` TYPE em_aero Character( 20 ) :: name Real :: split( n_mode ) ! dimensionless Real :: dgvem( n_mode ) ! meters Real :: sgem ( n_mode ) ! dimensionless END TYPE em_aero INTEGER, PARAMETER :: desid_n_aero_ref = 9 TYPE( em_aero ), Parameter :: desid_aero_ref( desid_n_aero_ref ) = (/ ! ----Name---- -----Split----- ---Geo. Mean Diameter--- ---Stnd Dev.--- & em_aero('FINE_REF ',(/0.1,0.9,0.0/),(/0.06E-6,0.28E-6 ,6.0E-6 /),(/1.7,1.7,2.2/)), ! Default Accum and Aitken Mode & em_aero('ACC_REF ',(/0.0,1.0,0.0/),(/0.06E-6,0.28E-6 ,6.0E-6 /),(/1.7,1.7,2.2/)), ! Just Accumulation Mode & em_aero('COARSE_REF ',(/0.0,0.0,1.0/),(/0.06E-6,0.28E-6 ,6.0E-6 /),(/1.7,1.7,2.2/)), ! Just Coarse Mode & em_aero('UNITY_REF ',(/1.0,1.0,1.0/),(/0.06E-6,0.28E-6 ,6.0E-6 /),(/1.7,1.7,2.2/)), ! Used for online sectors (e.g. SeaSpray) & em_aero('ZERO_REF ',(/0.0,0.0,0.0/),(/0.06E-6,0.28E-6 ,6.0E-6 /),(/1.7,1.7,2.2/)), ! Zero out the emissions & em_aero('FINE_WBDUST ',(/0.0,1.0,0.0/),(/0.06E-6,1.391E-6,5.26E-6/),(/1.7,2.0,2.0/)), ! Default Fine Wind-Blown Dust Parameterization & em_aero('COARSE_WBDUST ',(/0.0,0.0,1.0/),(/0.06E-6,1.391E-6,5.26E-6/),(/1.7,2.0,2.0/)), ! Default Coarse Wind-Blown Dust Param. & em_aero('FINE_SEASPRAY ',(/0.0,1.0,0.0/),(/0.06E-6,1.391E-6,5.26E-6/),(/1.7,2.0,2.0/)), ! Fine Sea Spray Parameterization is Dynamic. & em_aero('COARSE_SEASPRAY',(/0.0,0.0,1.0/),(/0.06E-6,1.391E-6,5.26E-6/),(/1.7,2.0,2.0/)) ! Coarse Sea Spray Parameterization is Dynamic. ! The values here are not actually used but ! are replaced in SSEMIS when FACNUM and FACSRF ! are calculated online. & /) ```` Users can add as many new size distributions as they want, as long as they increment the variable n_em_aero_ref to always equal the number of size distributions in the lookup array (desid_aero_ref). CMAQ will use the size distribution reference value linked to each emissions scaling rule via the phase/mode keyword to calculate the fraction of each aerosol primary emission that should go into the 'i', 'j', and 'k' modes in the internal aerosol module. At first, it may seem that the linking step between phase/mode keywords in the DESID_Scaling section, the corresponding mode keywords in the Desid_SizeDist section, and the reference mode labels is redundant, but it serves an important function. As stated earlier, it is common that modes of similar size from a variety of sources will be referred to by common names like 'FINE' and 'COARSE', even though the size distribution parameters may differ considerably. With the linking step provided in the DESID_SizeDist section, parameters for several streams can be specified individually, but all be labeled 'FINE' and applied with one rule in the DESID_Scaling section. In the example above, fine mode Wind-Blown Dust are linked to 'FINE_WBDUST', sea spray aerosols are linked to 'FINE_SEASPRAY' and all other sources are linked to 'FINE_REF'. Thus, different size distributions will be calculated for each of these streams. However, if the user wants to scale the mass of all fine mode aerosol by a factor of 2, the following emission rule is valid: ``` ! Region | Stream Label |Emission | CMAQ- |Phase/|Scale |Basis |Op ! Label | |Species | Species |Mode |Factor| | 'EVERYWHERE' , 'ALL' ,'ALL' ,'ALL' ,'FINE',1.0 ,'UNIT','m', ``` ### B.3.4 Defining and Using Regions and Region Families #### B.3.4.1 Using Defined Regions Gridded masks are used to apply rules to specific areas of the domain. For example, the following rule: ``` ! Region | Stream Label |Emission | CMAQ- |Phase/|Scale |Basis |Op ! Label | |Species | Species |Mode |Factor| | 'KENTUCKY' , 'All' ,'All' ,'All' ,'All' ,1.50 ,'UNIT','m', ``` will scale emissions of all species from all streams by +50% but only in grid cells in the state of Kentucky. One or more I/O API formatted input files containing geographic region definitions are required to take advantage of this option. Such files should contain a separate variable for each spatial region of interest. Each variable is a gridded field of real numbers from 0.0 to 1.0, with 0.0 outside of the region of interest and 1.0 completely inside the region. Region border grid cells should have the geographic fraction attributed to the region (for example, a grid cell that 35% in Kentucky and 65% in Tennessee would have have the number 0.35 for the variable representing the Kentucky mask. #### B.3.4.2 Defining Regions The Desid_RegionDef section of the DESID Control Namelist maps each "Region Label" to specific variables on specific files. Here is the Desid_RegionDef section in the default namelist: ``` &Desid_RegionDef Desid_Reg_nml = ! | Region Label | File_Label | Variable on File ! 'EVERYWHERE' ,'N/A' ,'N/A', 'WATER' ,'CMAQ_MASKS' ,'OPEN', / ``` As indicated, the Region Label "EVERYWHERE" is active by default and returns a mask that operates uniformly across the entire domain. The "File_Label" field identifies the environment variable in the RunScript that stores the location and name of the file containing the mask. The user may modify this to any name they wish as long as it is consistent with the variable name on the RunScript. The "Variable on File" field identifies the variable on the input file that stores the gridded field to be used for this region. Examples are provided for two cases. The variable Desid_Max_Reg in the Desid_RegionDefVars section must be greater than the number of regions that will be defined. In this case, a region with label "WATER" is defined and referenced to the variable "OPEN" (which is short for *open water*) in the file 'CMAQ_MASKS' which needs to be defined in the RunScript. Using this "WATER" region will apply a scaling rule only for open water grid cells and fractionally along coastlines. As an additional example, let's assume file us_states.nc is defined in the runscript as US_STATES as follows: ``` setenv US_STATES /home/${CMAQ_HOME}/CCTM/scripts/us_states.nc ``` and contains two variables called NC and SC, representing the fraction of each grid cell that is located in North Carolina and South Carolina, respectively." These two variables in the file can be assigned to region labels NC and SC using either of the following methods: ``` &Desid_RegionDef Desid_Reg_nml = ! | Region Label | File_Label | Variable on File ! 'EVERYWHERE' ,'N/A' ,'N/A', 'NC' ,'US_STATES' ,'NC', 'SC' ,'US_STATES' ,'SC', / ``` Alternatively, all the variables on the US_STATES file may be enabled at once: ``` &Desid_RegionDef Desid_Reg_nml = ! | Region Label | File_Label | Variable on File ! 'EVERYWHERE' ,'N/A' ,'N/A', 'ALL' ,'US_STATES' ,'ALL', / ``` Rather than listing out all variables on the file and explicitly linking them to "Region Labels", the user can invoke the "ALL" keyword in both the 'Region Label' and 'Variable on File' fields and all variables will be read and stored. Once either of these definitions are included in the &Desid_RegionDef section, region labels NC and SC can be used in emission scaling instructions as in the Kentucky example above. These gridded mask files are read by CMAQ through environmental variables, which are identified in the RunScript. If variables from multiple mask files are used, each of these mask files needs to be defined in the RunScript. Two example mask files are available on the CMAS Data Warehouse: US states grid mask file and NOAA climate regions grid mask file. These mask files can be used with the 12US1 modeling grid domain (grid origin x = -2556000 m, y = -1728000 m; N columns = 459, N rows = 299). * [Link to grid mask files on CMAS Data Warehouse Google Drive](https://drive.google.com/drive/folders/1x9mJUbKjJaMDFawgy2PUbETwEUopAQDl) * [Link to metadata for the grid mask files is posted on the CMAS Center Dataverse site](https://doi.org/10.15139/S3/XDYYB9) Custom mask files may also be made using the [shp2cmaq][link_B.3] tool, which provides instructions for obtaining geospatial data via shape files and converting them to CMAQ gridded input files. One may also populate a CMAQ gridded input file with arbitrary geometric shapes (e.g. squares, diamonds, or other polygons) using the IOAPI library of tools and any common coding language (e.g. Fortran, R, or Python). #### B.3.4.3 Region Families Users can define families of regions to reduce the number emission rules needed to operate on a group of regions. For example, a user could group regions defined in the RegionsRegistry together. For example, if there are already regions that represent North Carolina (let's call it NC) and South Carolina (let's call it SC), then the user could group NC and SC together and call them "CAROLINAS". Then when "CAROLINAS" is used as the region in a scaling rule, the rule will be distributed and applied to grid cells in both NC and SC. The Desid_RegionFam section contains variables for this purpose. ``` &Desid_RegionFam ! Region Family Definitions RegionFamiliyName(1) = 'SOUTH' RegionFamilyMembers(1,:) = 'TEXAS','LOUISIANA','MISSISSIPPI','ALABAMA' RegionFamiliyName(2) = 'WEST' RegionFamilyMembers(2,:) = 'CALIFORNIA','OREGON' / ``` The variable Desid_N_Reg_Fams in the Desid_RegionDefVars section must equal the number of region families the user would like to read. The variable Desid_Max_Reg_Fam_Members must be greater than the number of regions on any list of region family members. ### B.3.5 Stream Families The DESID Control File provides an interface for defining stream families that can be used to dramatically simplify the rules a user wishes to apply to their emissions inputs. This could be especially useful when defining, for example, a group emission streams relevant for electric power generation or mobile sources. Example 1 (set Desid_N_Steam_Fams=1 in Desid_StreamFamVars): ``` &Desid_StreamFam ! For emission streams available in several run scripts under CCTM/scripts StreamFamilyName(1) = 'PT_SOURCES' StreamFamilyMembers(1,1:3)= 'PT_NONEGU','PT_EGU','PT_OTHER' / ``` Example 2 (set Desid_N_Steam_Fams=3 in Desid_StreamFamVars): ``` &Desid_StreamFam ! For emission streams unique in CCTM/src/run_cctm_cracmm_4LISTOS1.csh script ! Sources that do not have a source-specific POA treatment StreamFamilyName(1) = 'GENERAL_POA' StreamFamilyMembers(1,1:5)= 'GRIDDED_OTHER','GRIDDED_SOLVENTS','PT_CANADA_SOLVENTS','PT_OTHER','PT_US_SOLVENTS' ! Diesel-Like Sources StreamFamilyName(2) = 'DIESEL' StreamFamilyMembers(2,1:2)= 'GRIDDED_DIESEL','PT_CMV' ! US and Canada Aircraft StreamFamilyName(3) = 'AIRCRAFT' StreamFamilyMembers(3,1:2)= 'GRIDDED_US_AIRCRAFT','PT_CANADA_AIRPORTS' / ``` The variable Desid_Max_Stream_Fam_Members should be set higher than the maximum number of stream members for any stream family. ### B.3.6 Chemical Families Chemical families are defined analogously to stream and region families but in the CMAQ Miscellaneous Control file. This is because they are useful to modules beyond DESID, including [ELMO](CMAQ_UG_appendixF_elmo_output.md) and the [Budget Tool](../CMAQ_UG_ch09_process_analysis.md). See the [Miscellaneous Control File Description](../CMAQ_UG_ch04_model_inputs.md#miscctrl) in Chapter 4 for details. One additional note: if a chemical familiy is defined for use in an emission scaling rule, the user should be careful about confirming that the members of that family are present on the emission input file or the CMAQ model species list, depending on which the user is trying to modify. Since the names on the input files are often different than those on the CMAQ model species list, care is advised. DESID will print warnings to the CMAQ log file when it cannot find species that it is looking for from a chemical family on an input file or in the list of CMAQ model species. Please confirm that the model is operating as you expect. ## B.3.7 Emissions Diagnostics ### B.3.7.1 Summary Output to Processor-Specific Logfiles Diagnostic output is an important feature of the new emissions module, DESID. Because the impact of emissions is so critical for CMAQ predictions and because the features available for scaling emissions are now quite complex, a comprehensive text-based output has been added to the CMAQ logfiles to enhance transparency. The logfiles now provide several lists of information to support users from unexpected behaviors or conflicts like inconsistent naming between emissions and CMAQ speciation. First, CMAQ reports for each stream the number and names of all the emission species that were not used. Second, it prints the names of emission species that the user told it to look for but that it could not find on any of the emission streams. If the environment variable: ``` setenv CTM_EMISCHK Y #> Abort CMAQ if missing emission species from emissions Input files ``` is set to 'Y' or 'True', then the model will abort if it cannot find any individual emission species. If the variable is set to 'N' or 'False' then CMAQ will print a warning and proceed. Finally, CMAQ loops through streams and outputs the size distribution modes available for each stream and the full list of every emission instructions applied to each stream. These are ordered by CMAQ species (with 'i', 'j', and 'k' modes listed separately) and emission species name so that a full understanding of the scaling rules applied to each CMAQ species'' emissions can be grasped quickly. Columns are printed for the applicable region(s) of the grid, the phase/mode applied, the input scale factor, the scaling basis, the operation, and the final scale factor applied taking into account any molecular weight conversions, if needed, and size distribution fractions. ### B.3.7.2 Diagnostic Gridded Output Files This component allows users to specify individual species for output on emissions diagnostic output files. In this way, users are able to probe emissions magnitudes and scaling changes for species of interest while not sacrificing the hard disk space needed to save the emission rates of all species for every emission stream. It is also possible to combine components of chemical families or stream families as the user''s interest dictates. The Desid_Diag section of the DESID Control File contains variables for configuring this diagnostic output. Users may specify any number of rules that, when processed, will result in one or more diagnostic files to be output. This example: ``` &Desid_Diag Desid_Diag_Streams_Nml(1,:)= 'ALL' Desid_Diag_Fmt_Nml(1) = 'COLSUM' ! Options: LAYER1, COLSUM, 3D Desid_Diag_Spec_Nml(1,:) = 'NO','NO2','NOX','ASO4','CO' / ``` prints a diagnostic file for every offline and online stream separately. This is specified by the variable Desid_Diag_Streams_Nml. The Desid_Diag_Fmt_Nml variable indicates that the data are to be summed throughout each vertical column and only a surface should be written. Other options include just layer 1 data (LAYER1) and all vertical levels (3D). The Desid_Diag_Spec_Nml variable specifies the variables to include on each file. These may refer to CMAQ model species, chemical families, or bulk aerosol species names (all modes would be summed). The chemical species can not refer to variables on the emissions files themselves, unless they are equal to the CMAQ species name. If any stream does not include emissions for one or more of the species (e.g. windlown dust will not have NO or NO2), then they are omitted from that file automatically. For this example, the variable Desid_N_Diag_Rules in the Desid_DiagVars section should be set to 1. The keyword TOTAL may be used in place of ALL in the Streams variable to indicate a sum across all streams rather than an individual file for each. The '*' may also be prepended to any chemical or stream family to instruct DESID to break that family up into its members. For example: ``` &Desid_Diag EmissDiagStreams(1,:)= 'ALL' EmissDiagFmt(1) = 'COLSUM' ! Options: LAYER1, COLSUM, 3D EmissDiagSpec(1,:) = 'NO','NO2','NOX','ASO4','CO' EmissDiagStreams(2,:)= 'TOTAL' EmissDiagFmt(2) = '3D' EmissDiagSpec(2,:) = 'AEC','AECI','NO2','ACLK','AMG','TERP' EmissDiagStreams(3,:)= 'PT_SOURCES' EmissDiagFmt(3) = 'COLSUM' EmissDiagSpec(3,:) = 'ALL' / ``` We have already described the first example. The second exmaple will sum up all streams using the keyword with the '*' expansion and create one 3D gridded file with six variables: 'AEC' = AECI + AECJ + AECK; 'AECI'; 'NO2'; 'ACLK'; 'AMG' and 'TERP'. The third example will create a diagnostic of the sum of the components of the PT_SOURCES family (defined in the stream family section). This file will be column sums and will include all the emitted species appearing on at least one of the streams within PT_SOURCES. For this set of example, Desid_N_Diag_Rules in the Desid_DiagVars section should be set to 3. Desid_Max_Diag_Streams and Desid_Max_Diag_Spec should be greater than the maximum number of streams or species on any diagnostic rule list. [<< Previous Appendix](CMAQ_UG_appendixA_model_options.md) - [Home](../README.md) - [Next Appendix >>](CMAQ_UG_appendixC_spatial_data.md)
CMAQv5.5 User's Guide
[link_B.3]: ../../../PYTOOLS/shp2cmaq/ [link_B.1_misc]: ../../../CCTM/src/util/util/CMAQ_Control_Misc.nml [link_B.1_desis]: ../../../CCTM/src/emis/emis/CMAQ_Control_DESID.nml [link_B.1_desid]: ../../../CCTM/src/MECHS/cb6r5_ae7_aq/CMAQ_Control_DESID_cb6r5_ae7_aq.nml [link_B.3_aero]: ../../../CCTM/src/aero/aero6/AERO_DATA.F [link_B.3]: https://github.com/USEPA/CMAQ/blob/main/PYTOOLS/shp2cmaq/ [link_B.1_misc]: https://github.com/USEPA/CMAQ/blob/main/CCTM/src/util/util/CMAQ_Control_Misc.nml [link_B.1_desis]: https://github.com/USEPA/CMAQ/blob/main/CCTM/src/emis/emis/CMAQ_Control_DESID.nml [link_B.1_desid]: https://github.com/USEPA/CMAQ/blob/main/CCTM/src/MECHS/cb6r5_ae7_aq/CMAQ_Control_DESID_cb6r5_ae7_aq.nml [link_B.3_aero]: https://github.com/USEPA/CMAQ/blob/main/CCTM/src/aero/aero6/AERO_DATA.F ================================================ FILE: DOCS/Users_Guide/Appendix/CMAQ_UG_appendixC_spatial_data.md ================================================ [<< Previous Appendix](CMAQ_UG_appendixB_emissions_control.md) - [Home](../README.md) - [Next Appendix >>](CMAQ_UG_appendixD_parallel_implementation.md) # Appendix C: Processing Spatial Data for CMAQ Inputs ## C.1 Geospatial Data Air quality modeling requires many spatial data to generate anthropogenic, biogenic, fire, sea salt, dust, and NH3 emissions. In addition, land surface characteristics such as land cover types with vegetation leaf area index (LAI) and fraction, albedo, and soil types are required in modeling the exchanges of heat, moisture, and momentum between the land and atmosphere and dry deposition of trace chemicals (e.g. O3 and NH3). It is important to use a consistent coordinate system for all the geospatial data used in emission, meteorology, and air quality modeling. Most of the geospatial data required for the Sparse Matrix Operator Kernel Emissions (SMOKE), Weather Research and Forecasting (WRF), and CMAQ modeling can be generated using the [Spatial Allocator (SA)](https://www.cmascenter.org/sa-tools/) or the [Surrogate Tool](https://github.com/CEMPD/SurrogateToolsDB). In using the spatial data, it is important to know the datum, which is a spheroidal surface that represents the surface of the earth, and the projection, which is a mathematic transformation that converts a location on the datum to the location on a flat plane. The following sections briefly describe the appropriate datum and projections to use with the CMAQ system and the methods for generating the needed spatial data in the correct form. ## C.2 Geodetic datum A geodetic datum is a coordinate system used to define a location on the Earth. There are many datums used in spatial datasets depending on what geographic regions they are and how the Earth’s surface is approximated as a spheroid. Most of U.S. geospatial data are defined in North American Datum of 1983 (NAD83) and the global data sets are often defined in World Geodetic System 1984 (WGS84). WRF datasets are in WGS84. All latitude-longitude geographic data sets used in a CMAQ simulation, such as emissions shapefiles, land use or biogenic data files, and the ocean file, should be in WGS84 so that they are spatially aligned with the WRF files. For simulations over North America, NAD83 is only slightly different from the WGS84 datum. As a result, NAD83 can be used for North America domains without introducing spatial misalignment issues in the model datasets. ## C.3 Spatial Data Projection CCTM can use any of the [four map projections defined for WRF.](https://www2.mmm.ucar.edu/wrf/users/docs/user_guide_v4/v4.4/users_guide_chap3.html) The four map projection coordinate systems are regular latitude-longitude geographic, Lambert conformal conic, Mercator, and Polar stereographic. However, users should note that several of the PREP and POST tools that are part of the CMAQ system do not currently support the Mercator projection. These include ICON, BCON, sitecmp, sitecmp_dailyo3, bldoverlay, hr2day and writesite. It is important to know that in projecting spatial data that is in WGS84 to the CMAQ projection or projecting CMAQ data to another map projection, users SHOULD NOT do any datum transformation. This is consistent with the WRF preprocessing system (WPS). Datum transformation will result in geographic location shifting. The CMAQ domain projection is defined through the [PROJ](https://proj.org) coordinate transformation software library using a spherical surface with an earth radius of 6370000 m to match the WRF domain projection definition. Once an input dataset is in WGS84 the following examples can be used to define the projection transformation needed to match the WRF data: Lambert Conformal Conic: "+proj=lcc +a=6370000.0 +b=6370000.0 +lat_1=33 +lat_2=45 +lat_0=40 +lon_0=-97" Polar stereographic: "+proj=stere +a=6370000.0 +b=6370000.0 +lat_ts=33 +lat_0=90 +lon_0=-97 +k_0=1.0" Mercator: "+proj=merc +a=6370000.0 +b=6370000.0 +lat_ts=33 +lon_0=0" Geographic: "+proj=latlong +a=6370000.0 +b=6370000.0" ## C.4 Spatial Data Generation Emission spatial allocation surrogates are required for generating anthropogenic emissions by SMOKE to spatially allocate county-based emission inventories to model grid cells. Emission surrogates can be based on population, roads, airports, railroads, and land use spatial data sets. The [Surrogate Tool](https://github.com/CEMPD/SurrogateToolsDB) can be used for to generate spatial surrogates for SMOKE. **Regional masks** are used to specify regions such as states, counties, or countries within a gridded spatial domain. These regions are applied to regionally scale emissions as specified in section B.3.4 of the [DESID Appendix](CMAQ_UG_appendixB_emissions_control.md) and to track emissions by region in [ISAM](../Users_Guide/CMAQ_UG_ch11_ISAM.md) Masks can be created from a geospatial file of regions, such as county shapefile, with the [shp2cmaq][link_C.4] tool. **Biogenic emissions** requires land use input including coverage of different tree species. The Biogenic Emissions Landcover Dataset version 5 (BELD5) consists of 257 different landuse types at 1km horizontal resolution that covers all the contiguous United States, Mexico, most of Canada, parts of southern Alaska, and other Caribbean and Central American countries. BELDv5 data is available from the 2017 emissions modeling platform ftp site: [https://gaftp.epa.gov/Air/emismod/2017/biogenics/](https://gaftp.epa.gov/Air/emismod/2017/biogenics/). For more information on BELD5 landuse types see: [https://www.cmascenter.org/smoke/documentation/4.8/html/ch08s09.html#sect_input_source_beld5](https://www.cmascenter.org/smoke/documentation/4.8/html/ch08s09.html#sect_input_source_beld5) and see the EPA 2017 NEI Technical Support Documentation (section 4.6): [https://www.epa.gov/sites/production/files/2020-04/documents/nei2017_tsd_full_30apr2020.pdf](https://www.epa.gov/sites/production/files/2020-04/documents/nei2017_tsd_full_30apr2020.pdf). To aggregate the BELD5 to a coarser modeling domain with the same map projection use the SMOKE Utility Tool called AGGWNDW. The SMOKE User’s Manual has information on this tool here: [https://www.cmascenter.org/smoke/documentation/4.8/html/ch05s03s02.html](https://www.cmascenter.org/smoke/documentation/4.8/html/ch05s03s02.html). **Sea spray emissions** require open ocean and surf zone (50m) buffer fractions for the modeling grid cells in an I/O API file. For most of North American domain, a SA Vector allocation tool can be used to generate the surf zone and open ocean file from a polygon shapefile with land, surf zone buffer, and open ocean in SA data directory. For areas outside U.S., users have to generate a surf zone polygon shapefile with has the same attribute as the file in the SA to use the tool. See the [CMAQ Tutorial on creating an ocean file](../Tutorials/CMAQ_UG_tutorial_oceanfile.md) for step by step instructions on creating this CMAQ input file. [Chapter 6](../CMAQ_UG_ch06_model_configuration_options.md#sea-spray) has additional information on sea spray module in CMAQ. **DMS and halocarbon emissions** are calculated in-line and require the presence of DMS and CHLO in the ocean file. A Python note book can be used to add DMS and CHLO to an existing ocean file. See the [CMAQ Tutorial on creating an ocean file](Appendix/CMAQ_UG_tutorial_oceanfile.md) for step by step instructions on creating an ocean file and for adding DMS and CHLO to the ocean file. **NH3 emissions** from agricultural lands can be estimated using the CMAQ bi-directional NH3 model. The input for the CMAQ bi-directional NH3 model is generated by the Fertilizer Emission Scenario Tool for CMAQ (FEST-C) system. FEST-C contains three main components: Java interface, Environmental Policy Integrated Climate (EPIC) model, and SA Raster Tools. The interface guides users through generating required land user and crop data and EPIC input files and simulating EPIC, and extracting EPIC output for CMAQ. The generated BELD4 land use data by FEST-C needs to be converted into an I/O API format using a utility program in FEST-C for CMAQ input. Note that the BELD4 data used for FEST-C is generated by the 2nd approach described above in Biogenic emission generation approaches. - [Fertilizer Emission Scenario Tool for CMAQ (FEST-C)](https://www.cmascenter.org/fest-c/) - FEST-C reference: Ran, L., Yuan, Y., Cooter, E., Benson, V., Yang, D., Pleim, J., Wang, R. and Williams, J. (2019). An integrated agriculture, atmosphere, and hydrology modeling system for ecosystem assessments. Journal of Advances in Modeling Earth Systems, 11(12), 4645-4668. DOI: [https://doi.org/10.1029/2019MS001708](https://doi.org/10.1029/2019MS001708) **Land use and land cover data for surface flux modeling** in meteorology and air quality can be generated using WPS or the SA Raster Tools. It is important to use consistent land use data in both meteorology and air quality modeling. For the U.S., WPS contains re-gridded 9-arc second (around 250 m resolution) 2011 NLCD land cover, imperviousness, and canopy data while 2011 MODIS land cover is used for areas outside the U.S. In addition, users can use the land use re-gridding tool in the SA Raster Tools system to generate land cover data for any domain directly using NLCD (at 30 m resolution) or/and MODIS land cover data (at 1 km or 500 m resolution). Users can use a provided R utility in SA to update their geogrid land cover data using the more accurate land cover data generating using SA. [<< Previous Appendix](CMAQ_UG_appendixB_emissions_control.md) - [Home](../README.md) - [Next Appendix >>](CMAQ_UG_appendixD_parallel_implementation.md)
CMAQv5.5 User's Guide
[link_C.4]: ../../../PYTOOLS/shp2cmaq/ [link_C.4]: https://github.com/USEPA/CMAQ/blob/main/PYTOOLS/shp2cmaq/ ================================================ FILE: DOCS/Users_Guide/Appendix/CMAQ_UG_appendixD_parallel_implementation.md ================================================ [<< Previous Appendix](CMAQ_UG_appendixC_spatial_data.md) - [Home](../README.md) - [Next Appendix >>](CMAQ_UG_appendixE_configuring_WRF.md) # Appendix D: Parallel Implementation of CMAQ ## D.1 General Structure of data There are a few approaches to parallelize an application, such as data-parallelism. Data-parallelism is a paradigm which decomposes data into "equal" sections and distributes them among allocated processors. Each processor works on the portion it owns. CMAQ parallel implementation is based on this methodology. The CMAQ model operates on a 4D space (ncols, nrows, nlays, nspcs) and only the spatial domain is decomposed. When NPROCS processors are used to run CMAQ, NPCOL number of processors are assigned to the column dimension and NPROCS/NPCOL processors are assigned to the row dimension (NPROCS = NPCOL x NPROW). In the case that the column dimension is not divisible by NPCOL, the remainder is distributed equally to NPCOL processors. The same approach is applied to the row dimension. For example (illustrated in Figure D-1), given a 100 by 75 (column x row) data grid and six processors with three processors along the column dimension and two processors along the row dimension, the following subdomain sizes (NCOLS x NROWS) are assigned to each processor: 34 x 38 (processor 0), 33 x 38 (processors 1 and 2), 34 x 37 (processor 3), and 33 x 37 (processors 4 and 5). ![Figure D-1](../images/FigureD-1.png) **Figure D-1. Domain decomposition illustration** ## D.2 Interprocessor Communication In some science processes such as advection, a processor requires data from neighboring processors (interprocessor communication) when the model runs on a distributed memory system. An interprocessor communication library, STENEX, was developed to provide a simple and robust interface to handle various kinds of near neighbor communication. Near neighbor is defined as processors which are adjacent to a given processor (blue block) in the eight major geographical directions: N, NE, E, SE. S, SW, W, and NW (Fig. D-2). ![Figure D-2](../images/FigureD-2.png) **Figure D-2. A depiction of near neighbor processors** As an illustration of interprocessor data access (Fig. D-3), consider the following piece of code being executed on Processor 2 with a 2x2, 4-processor domain decomposition. It is clear that the calculation at the grid cell denoted by "X" requires data denoted by red dots which reside in near neighbor processors 0 and 3. DIMENSION DATA( NCOLS, NROWS )
DO J = 1, NROWS
DO I = 1, NCOLS
DATA(I,J) = A(I+2,J) * A(I, J-1)
END DO
END DO ![Figure D-3](../images/FigureD-3.png) **Figure D-3. An example to show interprocessor data access is needed** To facilitate interprocessor communication as shown in the example above, "ghost" regions are used (extra space in the data structure), i.e. DIMENSION DATA (NCOLS+2, NROWS+1). The thickness of the ghost region depends of the amount of overlap that is required by the algorithm. The Stencil Exchange (SE) Library is designed in Fortran 90 using Object Oriented-base technology to handle various types of communication with the objective of hiding the management of the low-level data movement. SE addresses four types of communication and a brief description of each type is provided below. * interior to ghost region, which is indicated in light blue in Figure D-4. This particular type of communication is being used in various places such as HADV and HDIFF. ![Figure D-4](../images/FigureD-4.png) **Figure D-4. Interior to ghost region communication** * sub-section data redistribution (Fig. D-5). This particular type of communication is being used in Process Analysis. ![Figure D-5](../images/FigureD-5.png) **Figure D-5. Sub-section data redistribution communication** ## D.3 Parallel I/O All I/O operations in CMAQ are handled by the I/O API library. Furthermore, the I/O API library was designed for serial code. As a result, CMAQ cannot utilize any I/O functions contained in the in I/O API library (such as READ3 and WRITE3) directly in any parallel computing platform. CMAQv4.7.1 and later releases include a directory called 'PARIO' which was developed to bridge this gap. PARIO contains a smaller set of functions which are counterparts to equivalent functions in IOAPI but capable to run in parallel. The following I/O API routines have PARIO equivalents: READ3, INTERP3, WRITE3, CHECK3, OPEN3, CLOSE3, DESC3, M3ERR, M3EXIT, M3WARN. Each file name in the PARIO library has a "P" prefix to distinguish it from its counterpart in the I/O API library, e.g. POPEN3 and PINTERP3. Substitution with the PARIO subroutines is done at compilation through CPP flags. Note that the subroutine argument lists in any PARIO routine are identical to those in the I/O API counterpart routine. On the output side, all processors are required to send their portion of data to processor 0, which will stitch together each sub-part and then output it to the file (Fig. D-8). This is considered a “pseudo” parallel I/O approach and this approach is being using in PARIO. ![Figure D-8](../images/FigureD-8.png) **Figure D-8. Combine all sub-domain data from each processor in an I/O processor** In CMAQv5.2 and later versions, we have developed a true parallel I/O approach, referred to as PIO (Wong et. al.). PIO allows each processor to write their portion to the output file simultaneously (Fig. D-9). ![Figure D-9](../images/FigureD-9.png) **Figure D-9. True parallel I/O approach** To invoke this feature users have to re-build CMAQ after building additional libraries not used with CMAQ traditionally as well as retaining the traditional libraries with the exception of the non-"mpi" IOAPI library downloaded in [Chapter 3](../CMAQ_UG_ch03_preparing_compute_environment.md). The additional libraries required by invoking this option include the PnetCDF library and the "mpi" version of the IOAPI library. It also requires installation of parallel file system, e.g. Lustre or BeeGFS, with sufficient I/O hardware such as disk drive and I/O sub-system to support parallel file system software. **PnetCDF library** The PnetCDF library is the parallel I/O implementation to complement the classic netCDF library. The PnetCDF library is available for download at https://parallel-netcdf.github.io/ users should find and follow the instructions for proper installation given on the website. Users should install a stand alone PnetCDF library using MPI Fortran 90 and C compilers. After successful installation, check the environment PATH & LD_LIBRARY_PATH to ensure that the paths have been updated to include the path of the PnetCDF libraries and bin. Note that users may have to set these paths manually if not set, and that these paths must be loaded every time a new shell is started. Note: users should not re-build their netCDF library at this point, within CMAQ the classic netCDF library and PnetCDF library interact as two stand alone libraries. **IOAPI library** The I/O API library provides an interface between the netCDF libraries and CMAQ to handle input and output (I/O) calls throughout the CMAQ code. The latest version of the IOAPI library (version 3.2) is available for download at https://www.cmascenter.org/download/software/ioapi/ioapi_3-2.cfm?DB=TRUE **Version Supported: IOAPI 3.2 tagged 20200828** The general steps for installation of IOAPI libraries on a Linux system (with C-shell and GNU compilers) are below. These instructions are an example and we recommend using the latest release available at the time of your CMAQ installation. This approach also requires installation of "mpi" I/O API libraries as shown below (note these steps should be followed after completing the steps in Chapter 3 section 3.2.3): ``` setenv BIN Linux2_x86_64gfortmpi ``` Edit the file in the ioapi folder called Makeinclude.Linux2_x86_64gfortmpi to comment out all openMP options as CMAQ does not support openMP. Note: If users are using the ifort compiler you also need to remove -Bstatic flag within the ioapi/Makeinclude.Linux2_x86_64ifortmpi file as well. ``` OMPFLAGS = # -fopenmp OMPLIBS = # -fopenmp ``` In the top level IOAPI_3.2 directory run: ``` make configure make ``` After building the reqiured libraries, users must build CCTM. Before compilation of CCTM, users must turn on this feature by uncommenting the following line in bldit_cctm.csh at the model build step and link with I/O API 3.2. ``` #set MakefileOnly #> uncomment to build a Makefile, but do not compile; #set build_parallel_io #> uncomment to build with parallel I/O (pnetcdf); ``` After building the BLD directory (where the Makefile lives), change to this directory and edit the Makefile to include PNETCDF and the correct I/O API BIN before compiling the code. An example of these edits are shown below: ``` LIB = /home/CMAQ_PIO/CMAQ_libs include_path = -I /home/CMAQ_PIO/CMAQ_libs/ioapi_3.2/Linux2_x86_64ifortmpi \ -I /home/CMAQ_PIO/CMAQ_libs/ioapi_3.2/ioapi/fixed_src \ -I $(LIB)/mpi/include -I. IOAPI = -L/home/CMAQ_PIO/CMAQ_libs/ioapi_3.2/Linux2_x86_64ifortmpi -lioapi NETCDF = -L$(LIB)/netcdf/lib -lnetcdf -lnetcdff PNETCDF = -L$(LIB)/pnetcdf/lib -lpnetcdf LIBRARIES = $(IOAPI) $(NETCDF) $(PNETCDF) ``` Lastly, users must also edit the CCTM run script by inserting MPI: in front of the output file path as shown below: setenv CTM_CONC_1 "MPI:\$OUTDIR/CCTM_CONC_\${CTM_APPL}.nc -v" #> On-Hour Concentrations For further directions on installation of PIO or if you encounter difficulties using the PIO feature, please contact David Wong at wong.david-c@epa.gov ## D.4 Reference: Wong, D.C., Yang, C.E., Fu, J.S., Wong, K., & Gao, Y. (2015). An approach to enhance pnetCDF performance in environmental modeling applications. Geosci. Model Dev., 8, 1033-1046. [<< Previous Appendix](CMAQ_UG_appendixC_spatial_data.md) - [Home](../README.md) - [Next Appendix >>](CMAQ_UG_appendixE_configuring_WRF.md)
CMAQv5.5 User's Guide
================================================ FILE: DOCS/Users_Guide/Appendix/CMAQ_UG_appendixE_configuring_WRF.md ================================================ [<< Previous Appendix](CMAQ_UG_appendixD_parallel_implementation.md) - [Home](../README.md) - [Next Appendix >>](CMAQ_UG_appendixF_elmo_output.md) # Appendix E: Configuring the Weather Research and Forecasting Model (WRF) for Use with Air Quality Models ## E.1 WRF for CMAQ & Output * **[WRF configuration guide for CMAQ applications][link_E_pdf]** * CMAQ is best connected to WRF that uses the P-X LSM with key variables in the output (see WRF configuration guide above). * Variable names: RS, RA, ZNT_PX, VEGF_PX, LAI_PX, LANDUSEF, WFC_PX, WSAT_PX, WWLT_PX, CSAND_PX, FMSAND_PX, CLAY_PX * Method 1: Compiled into executable with directives in the Registry file. * Method 2: At run-time using a simple text file and namelist option. ## E.2 WRF version 4.6 * UPDATE: P-X LSM compatible with 61 class MODIS Local Climate Zone (LCZ) landuse option * UPDATE: Latent heat effect on ground temperature from the vegetated fraction of the grid cell and from wet canopy was added to P-X LSM. * UPDATE: NaN fix from a divide by zero because of a zero-value soil parameter when a water cell turns to sea ice. ## E.3 WRF version 4.3+ * UPDATE: Modified the ACM2 PBL height algorithm for stable conditions so that the Richardson number is computed using windspeed in layer k rather than wind speed difference between layer k and ksrc. * UPDATE: Added new pathway for evaporation from the ground in the vegetated fraction of the grid cell in P-X LSM module. * UPDATE: Consolidated WRF P-X LSM code with MPAS versions. The P-X LSM code in WRFv4.3 is the exact same code as that for MPASv7.2+ ## E.4 WRF version 4.0 * WRF4.0 has updates to the ACM2 PBL model to account for the new default hybrid coordinate system. Our internal model runs suggest that the hybrid option (hybrid_opt =2) improves the model in areas where topographical variations are more extreme like the Rocky Mountains. As such, it is suggested, but not a requirement, to use this option in WRF that became the default in WRF4.0. * UPDATE: Added vegetation and leaf-area index option for Pleim-Xiu land-surface runs. Until this version, the P-X LSM uses VEGFRA and LAI computed from the module_sf_pxlsm_data.F PX data table. This uses fractional landuse and these lookup values to compute the LAI and VEGFRA for each grid cell. The new option (pxlsm_modis_veg = 1) is activated using this option in the physics section of the namelist.input file. It uses the time-varying VEGFRA and LAI from the wrflowinp_d01 file instead of the look-up values in the P-X data table. This allows use of more accurate high resolution MODIS that is now available in WPS in WRFv4+. Alternatively, users can process their own MODIS data for specific years and put in this same input file. * UPDATE: Also, the soil calculation in the P-X LSM were modified to use analytical functions from Noilhan and Mahfouf (1996) for field capacity, saturation and wilting point based on fractional soil data. Also, variables for fractional clay, fine and coarse sand were added in P-X for output to the CMAQ air quality model. This is an important update because these data are used for dust emissions in the air quality model along with the new soil properties (wilting, saturation and field capacity). SOILTYP was also updated in P-X LSM so soil classes are consistent with the standard 16 soil types in the WRF system. Prior, P-X only had 12 classes and classes 4-12 were not the same as those classes used by other LSMs. ## E.5 WRF version 3.7 * **[Section from WRFv3.7 Technical Documentation related to air quality modeling](http://www2.mmm.ucar.edu/wrf/users/docs/PX-ACM.pdf):** This 8 page pdf provides description and procedures for using the Pleim-Xiu LSM, ACM2 PBL and Pleim Surface Layer Scheme in WRF including best practices and namelist options. ## E.6 Reference: Noilhan, J., & Mahfouf, J. F. (1996). The ISBA land surface parameterization scheme. Global and planetary Change, 13(1-4), 145-159. Noilan, J., and S. Planton, 1989: A simple parameterization of land surface processes for meteorological models. Mon. Wea. Rev., 117, 536-549. Pleim, J. E., and A. Xiu, 1995: Development and testing of a surface flux and planetary boundary layer model for application in mesoscale models. J. Appl. Meteor., 34, 16-32. Xiu, Aijun, and J. E. Pleim, 2001: Development of a Land Surface Model. Part I: Application in a Mesoscale Meteorological Model. J. Appl. Meteor., 40, 192–209. Pleim, J. E., and A. Xiu, 2003: Development of a land surface model. Part II: Data assimilation. J. Appl. Meteor., 42, 1811-1822. Pleim, J. E., 2006: A simple, efficient solution of flux-profile relationships in the atmospheric surface layer, J. Appl. Meteor. and Clim., 45, 341–347. Pleim, Jonathan E., 2007: A Combined Local and Nonlocal Closure Model for the Atmospheric Boundary Layer. Part I: Model Description and Testing. J. Appl. Meteor. Climatol.,46, 1383–1395. Pleim, J. E., and R. Gilliam, 2009: An indirect data assimilation scheme for deep soil temperature in the Pleim-Xiu land surface model. J. Appl. Meteor. Climatol., 48, 1362-1376. Gilliam, R. C., and J. E. Pleim, 2010: Performance assessment of new land-surface and planetary boundary layer physics in the WRF-ARW. J. App. Meteor. Climatol., 49(4), 760-774. Heath, N. K., J. E. Pleim, R. C. Gilliam, & D. Kang (2016). A simple lightning assimilation technique for improving retrospective WRF simulations, J. Adv. Model. Earth Syst., 8, 1806 – 1824, http://dx.doi.org/10.1002/2016MS000735. Gilliam, R. C., Herwehe, J. A., Bullock, Jr, O. R., Pleim, J. E., Ran, L., Campbell, P. C., & Foroutan, H. (2021). Establishing the suitability of the model for prediction across scales for global retrospective air quality modeling. Journal of Geophysical Research: Atmospheres, 126, e2020JD033588. https://doi.org/10.1029/2020JD033588 Kang, D., H. K. Heath, R. C. Gilliam, T. L. Spero, and J. E. Pleim (2022), Lightning assimilation in the WRF model (Version 4.1. 1): technique updates and assessment of the applications from regional to hemispheric scales, Geosci. Model Dev., 15, 8561–8579, https://doi.org/10.5194/gmd-15-8561-2022, 2022. [<< Previous Appendix](CMAQ_UG_appendixD_parallel_implementation.md) - [Home](../README.md) - [Next Appendix >>](CMAQ_UG_appendixF_elmo_output.md)
CMAQv5.5 User's Guide
[link_E_pdf]: ../PDF/PX-ACM-WRFV4.6-MPAS.pdf [link_E_pdf]: https://github.com/USEPA/CMAQ/blob/main/DOCS/Users_Guide/PDF/PX-ACM-WRFV4.6-MPAS.pdf ================================================ FILE: DOCS/Users_Guide/Appendix/CMAQ_UG_appendixF_elmo_output.md ================================================ [<< Previous Appendix](CMAQ_UG_appendixE_configuring_WRF.md) - [Home](../README.md) * * * # Appendix F: Explicit and Lumped Model Output (ELMO) The ELMO module makes aerosol diagnostic parameters as well as aggregated and highly processed aerosol metrics available directly in CMAQ output files rather than requiring follow-up post-processing steps. ### F.1 Output concentration and diagnostic variables The ELMO Module streamlines the definition, calculation, and maintenance of gas and particulate concentrations, as well as over 200 aggregate and diagnostic variables, listed in Fig. 1. With ELMO, aggregate and diagnostic variables are registered in the [ELMO_DATA.F][link_F_Data], their calculations are prescribed in [ELMO_PROC.F][link_F_Proc], and CMAQ calculates them online. Thus, CMAQ can output higher-level parameters without needing to run any particular post-processing tool. As a result, users may choose to limit their output to just the variables they are most interested in (perhaps just O3 and PM2.5, for example). Or they may elect to output a more complex selection of scalar and aggregate variables. Post-processing is still needed to concatenate days of output together onto monthly, seasonal, or annual files. ![Figure F-1](../images/FigureF-1.png) **Figure F-1. Comprehensive list of diagnostic and aggregate variables currently available in ELMO. The table headings are just for presentation. They are not equivalent to ELMO Keywords, which are discussed in section F.4** Concentrations of scalar variables like NO, NO2, O3, ASO4J, and others are available for output to ELMO files as well. An aggregate variable for total VOC has not been provided for CMAQv5.4 or v5.5 because differences among chemical mechanisms are so significant. This capabality will be added in a future CMAQ version. ### F.2 Relationship to previous CMAQ versions Previously, aggregate parameters like PM2.5 and Fine-mode Sulfate (ASO4I + ASO4J) were calculated offline through the COMBINE post-processing utility and documented via the species definition (SpecDef) input file for COMBINE, as depcited in Fig. F-2. CMAQ versions 5.4 and later, maintain the CONC and ACONC files - they are available for use identically to CMAQv5.3.3. However, PMDIAG and APMDIAG files have been eliminated. If a user would like to continue using the COMBINE workflow to aggregate PM variables, they may output necessary variables like FPM25ACC to ELMO files and use those with CONC output. Alternatively, a user may elect to rely exclusively on ELMO output files alone and set the CONC_SPCS and AVG_CONC_SPCS variables in the CMAQ runscript to just one variable (e.g. O3) to minimize their I/O time and storage space footprint. ![Figure F-2](../images/FigureF-2b.png) **Figure F-2. Schematic of data workflow in v5.3 and v5.4 with ELMO. (Note that v5.5 workflow is idential to v5.4.)** There are several distinct advantages to using ELMO over post-processing CONC and ACONC output with COMBINE: - Definitions of products like PM25 mass, PMF (Fine PM mass), and PM10 mass automatically adjust as PM species are activated or deactivated by CMAQ users or chemical mechanisms are switched. There is no need to modify a SpecDef file to account for a new or eliminated species. - Note that some of the diagnostic species defined in FINE_ORG, specifically those meant to provide an approximate distinction between primary and secondary or anthropogenic and biogenic organic aerosols, should generally only be used in a qualitative manner. A number of emitted compounds forming organic aerosols in the atmosphere can have both anthropogenic and biogenic sources so a quantitative attribution of organic aerosols to specific sources cannot be based on an analysis of concentrations alone and should use ISAM instead. Moreover, their interpretation may not be consistent across mechanisms (e.g. cb6r5_aero7 vs. cracmm1) depending on the assumptions made during emissions processing and the mapping of emitted species to CMAQ mechanism species in DESID. - Complex properties like O:C, OM:OC, particle acidity, etc. can be calculated using species properties available within CMAQ. This resolves a potential vulnerability where, for example, the OM:OC of organic species may become out of sync between the SpecDef and the SOA_DEFN table within the model. This could have potentially led to errors in the calculation of OC (organic carbon). With ELMO, there is no such risk. - If a user is only interested in aggregate parameters like PM25 mass, they can avoid the I/O time and storage required saving the raw output of every PM variable and then post-processing with COMBINE. This can be particularly helpful when processing 3D data. - New parameters are available that were not before like N10, N20, N40 and N100, the number of particles above 10, 20, 40 and 100 nm in diameter. AOD and extinction at 550 nm have also been supported as options; these were previously only available on the photolysis diagnostic file. - Keywords are available (see section F.4) to select groups of variables of interest. - Variables may be added to the ELMO_LIST table in ELMO_DATA.F and then prescribed in ELMO_PROC.F with greater ease. ELMO has no significant quantitative impact on results, but there will be a noticeable positive impact on the time invested in post-processing aggregate PM components and storage volumes required for standard runs. There can be some slight numerical differences realized when one compares quantities averaged directly online with ELMO vs. calculated offline using averages. For example, total PM2.5 have some small deviations when it is calculated as the hourly average of the sum of species (online) versus the sum of hourly averaged species (offline). ### F.3 Prescribing features of ELMO output files The interface for prescribing ELMO file properties is located in the [CMAQ Miscellaneous Control File](../CMAQ_UG_ch04_model_inputs.md#miscctrl). The following lines activate or deactivate instantaneous (CCTM_ELMO) and average (CCTM_AELMO) files, respectively: ``` &elmo_activate instant = .FALSE. average = .TRUE. / ``` The layers to output for the instantaneous ELMO file can be modified with the Inst_Layer_Top and Inst_Layer_Bot variables: ``` &elmo_inst Inst_Layer_Top = 1 Inst_Layer_Bot = 1 Inst_Vars_Nml = 'DEFAULT' (See section G.4) / ``` Likewise, the average ELMO file output layers are set in the elmo_avrg variable section: ``` &elmo_avrg Avrg_Layer_Top = 1 Avrg_Layer_Bot = 1 Avrg_Vars_Nml = 'DEFAULT' (See section G.4) / ``` Inst_Layer_Top and Avrg_Layer_Top may not exceed the total number of model layers. It is recommended to output all model layers if you are outputting variables for comparison to satellite column data like NO2. Aerosol Optical Depth (AOD_550) may be output as a surface (i.e. just layer 1) or for multiple layers (layer-dependent extinction multiplied by layer thickness). When 2D variables are output on a 3D ELMO file, ELMO will put real data in layer 1, and I/O-API missing values above layer 1. ### F.4 Selecting ELMO output variables All CMAQ scalar variables and all variables in Fig. F-1 are available for output on ELMO files. The [CMAQ Miscellaneous Control File](../CMAQ_UG_ch04_model_inputs.md#miscctrl) variables Inst_Vars_Nml and Avrg_Vars_Nml (shown in section F.3) control the variables output to the instantaneous and average ELMO files, respectively. Up to 1000 strings may be specified here. To avoid relying on intimidatingly long lists of variable names, ELMO uses Keywords that expand to groups of variables (often particularly meaningful or useful ones). In this way, ELMO improves transparency and reduces the risk of needing to rerun simulations to produce mistakenly omitted variables. The ELMO Keyword "DEFAULT" loads all scalar and aggregate variables that would have been generated by using the default COMBINE approach for CMAQv5.3.3 and previous. This and other ELMO keywords are defined in Table F-1. **Table F-1. Map of all ELMO Keywords to CMAQ species, ELMO variables, or other Keywords. |**ELMO Keyword** |Variables and/or **Keywords**| |------------------|----------------------------------| | **DEFAULT** | **AMET**, **CUTOFF_FRACTIONS**, **MASS**, PM_NUM, PMF_NUM, PMC_NUM, **MET**, **CHEM**, **FINE_SPECIES**, **COARSE_SPECIES**, **PM25_SPECIES**, **SIZE**, **AMS**, **PM25TO10_SPECIES** | | **AMET** | PMF_MASS, PMF_FRM, PMC_MASS, PMF_OC, PMF_EC, PMF_NA, PMF_CL, PMF_SO4, PMF_NO3, PMF_NH4, PM25, PM25_FRM, PM25_SO4, PM25_NO3, PM25_NH4, PM25_OC, PM25_EC, PMF_FE, PMF_AL, PMF_SI, PMF_TI, PMF_CA, PMF_MG, PMF_K, PMF_MN, PMF_SOILIMPV, PMF_UN_IMPV1, PMF_NCOM, PMF_UN_IMPV2, TNO3, PM_MASS, PMC_MASS, **MET**, Tsurf, AOD_550 | | **MASS** | PMF_MASS, PMC_MASS, PM01, PM1, PM25, PM10, PM25TO10, PMU_MASS, PMAMS, PMAIT_MASS, PMACC_MASS | | **NUMBER** | PM_NUM, PMF_NUM, PMC_NUM, N10, N20, N40, N100 | | **SIZE** | **NUMBER**, DRY_DG#, WET_DG, STDEV, DRY_M3, WET_M3, WET_M2, DRY_DENS, WET_DENS | | **SURFACE** | PM_SRF, PMU_SRF, PMF_SRF, PMC_SRF, WET_M2 | | **ORGANIC** | **FINE_ORG**, PM1_OC, PM1_OA, PMAMS_OA, PMAMS_OTOC, PM25_OA | | **MET** | TA, PRES, RH | | **CHEM** | GAMMA_N2O5, GAMMA_N2O5K, YIELD_CLNO2, YIELD_CLNO2K, GAMMA_IEPOX, K_IEPOX, GAMMA_IMAE | | **FINE_SPECIES** | PMF_SO4, PMF_NO3, PMF_NH4, PMF_CL, PMF_NA, PMF_EC, PMF_OC, PMF_OA, PMF_H2O, PMF_SOILIMPV, PMF_UN_IMPV1, PMF_UN_IMPV2, PMF_HP, PMF_HPMOLAL, PMF_PH, **FINE_ORG**, PMF_MASS | | **COARSE_SPECIES** | PMC_MASS, PMC_SO4, PMC_NO3, PMC_NH4, PMC_NA, PMC_MG, PMC_K, PMC_CA | | **AMS_SPECIES** | PMAMS, PMAMS_SO4, PMAMS_NO3, PMAMS_NH4, PMAMS_CL, PMAMS_OA, PMAMS_OTOC | | **PM1_SPECIES** | PM1, PM1_SO4, PM1_NO3, PM1_NH4, PM1_CL, PM1_NA, PM1_EC, PM1_OC, PM1_OA, PM1_MG, PM1_K, PM1_CA, PM1_OTHER, PM1_FE, PM1_SI, PM1_TI, PM1_MN, PM1_AL, PM1_SOIL, PM1_UNSP1, PM1_UNSPCRS | | **PM25_SPECIES** | PM25, PM25_SO4, PM25_No3, PM25_NH4, PM25_CL, PM25_NA, PM25_EC, PM25_OC, PM25_OA, PM25_MG, PM25_K, PM25_CA, PM25_OTHER, PM25_FE, PM25_SI, PM25_TI, PM25_MN, PM25_AL, PM25_SOIL, PM25_UNSP1, PM25_UNSPCRS, PM25_HP | | **PM25TO10_SPECIES** | PM25TO10, PM25TO10_SO4, PM25TO10_NO3, PM25TO10_NH4, PM25TO10_CL, PM25TO10_NA | | **OPTICAL** | AOD_550, PM_EXT_550 | | **FINE_ORG** | PMF_POC, PMF_SOC, PMF_POA, PMF_SOA, PMF_NCOM, PMF_OMOC, PMF_OTOC, PMF_ASOA, PMF_BSOA, PMF_CLDGLY, PMF_ISOPSOA, PMF_IEPOXSOA, PMF_MTNSOA, PMF_MTSOA, PMF_OC, PMF_OA | | **CUTOFF_FRACTIONS** | FPM01, FPM1, FPM25, FPM10, FPM25TO10, FAMS | | **TOXICS** | PM25_HDIESEL, PM25_HBE, PM25_HCD, PM25_HCR3, PM25_HCR6, PM25_HCR, PM25_HPB, PM25_HMN, PM25_HNI, PM25_HAS, PM25_HG, PM10_HDIESEL, PM10_HBE, PM10_HCD, PM10_HCR3, PM10_HCR6, PM10_HCR, PM10_HPB, PM10_HMN, PM10_HNI, PM10_HAS, PM10_HG | | **SIMPLE** | PM25, PM10 | | **AMS** | PMAMS_CL, PMAMS_NH4, PMAMS_NO3, PMAMS_OA, PMAMS_SO4 | | **SAT** | **SATMET**, **SATCONC** | | **SATMET** | DENS, DZ, ZH, CFRAC, PV, PRES, TA | | **SATCONC** | NO2, SO2, O3, CO, FORM, NH3, AOD_550 | | **ALLCONC** | All CMAQ Internal Species | #As noted for red variables in Fig. F-1, several variables are populated for each aerosol mode including diameters, standard deviation, and density, etc. The ELMO variables are defined in [ELMO_DATA.F][link_F_Data]. Before ELMO maps output variables to internal model species or meteorological inputs, ELMO recursively expands all Keywords to their members and then filters out duplicates. There is no disadvantage to specifying a variable twice in the CMAQ Control namelist. ### F.5 ELMO Implementation in CMAQ ELMO works by putting all of the diagnostic parameters first on the ELMO_LIST table in ELMO_DATA.F. There is also a list of ID numbers (integers) above that table which allow for a comprehensive order to be preserved while the order of the parameters in the table and their calculations in ELMO_PROC.F are allowed to move in sequence. The subroutine LOAD_ELMO (ELMO_PROC.F) is called from DRIVER and cycles through the list of selected variables as defined by the interface in the CMAQ Miscellaneous Control file. For each variable, the recursive subroutine CALC_ELMO is called to execute the calculation. For many of the calculations, all that is required is an assignment from an already existing diagnostic variable (e.g. RH, STDEV_ACC). For the parameters which are linear combinations of CMAQ species or other parameters (e.g. fine-mode nitrate PMF_NO3 = ANO3I + ANO3J), they may be defined in the subroutine MAP_ELMO_COEFFS (in ELMO_PROC.F). Follow the example of existing variables to prescribe the species to be added, the inlet type to assume for collection, etc. New PM inlet types can be added via the ELMO_INLET table in ELMO_DATA.F. For more complicated variables like fine-mode acidity (PMF_PH) or the PM25 mass collected by a Federal Reference Method sampler (PM25_FRM), calculations appear directly in CALC_ELMO. For example, PMF_MASS is computed by referencing the information in AERO_DATA to identify all variables that are included in fine-mode particulates (excluding 'tracer' species, which by definition, don't contribute to the bulk particle mass in CMAQ). The following algorithm shows how the return variable, outval, is summed across all modes while neglecting aerosol inorganic and organic water. ``` DO IMODE = 1,N_MODE IF ( AEROMODE( IMODE )%FINE_MASK ) THEN OUTVAL = OUTVAL + SUM( AEROSPC_CONC( :,IMODE ), MASK=.NOT.AEROSPC(:)%TRACER) - AEROSPC_CONC( AH2O_IDX,IMODE ) IF ( AORGH2O_IDX .GT. 0 ) OUTVAL = OUTVAL & - AEROSPC_CONC( AORGH2O_IDX,IMODE ) ! ug m-3 END IF END DO ``` [<< Previous Appendix](CMAQ_UG_appendixE_configuring_WRF.md) - [Home](../README.md)
CMAQv5.5 User's Guide
[link_F_Data]: ../../../CCTM/src/driver/ELMO_DATA.F [link_F_Proc]: ../../../CCTM/src/driver/ELMO_PROC.F [link_F_Data]: https://github.com/USEPA/CMAQ/blob/main/CCTM/src/driver/ELMO_DATA.F [link_F_Proc]: https://github.com/USEPA/CMAQ/blob/main/CCTM/src/driver/ELMO_PROC.F ================================================ FILE: DOCS/Users_Guide/Appendix/README.md ================================================ # User's Guide Appendix - [Appendix A](./CMAQ_UG_appendixA_model_options.md) : List of model options in configuration, compilation and run scripts - [Appendix B](./CMAQ_UG_appendixB_emissions_control.md) : How to use the Emissions Control Namelist for customization of emissions processing. - [Appendix C](./CMAQ_UG_appendixC_spatial_data.md) : Information on how to create consistent geospatial data for CMAQ inputs. - [Appendix D](./CMAQ_UG_appendixD_parallel_implementation.md) : An introduction to how data-parallelism can be applied in the CMAQ system to increase computational efficiency. - [Appendix E](./CMAQ_UG_appendixE_configuring_WRF.md) : Configuring the Weather Research and Forecasting Model (WRF) for use with CMAQ. - [Appendix F](./CMAQ_UG_appendixF_elmo_outputs.md) : Description of the Explicit and Lumped CMAQ Model Output Module ================================================ FILE: DOCS/Users_Guide/CMAQ_UG_ch01_overview.md ================================================ [Home](README.md) - [Next Chapter >>](CMAQ_UG_ch02_program_structure.md) # 1. Overview ## Disclaimer The information in this operational guidance document has been funded wholly or in part by the United States Environmental Protection Agency (EPA). The draft version of this document has not been subjected to the Agency’s peer and administrative review, nor has it been approved for publication as an EPA document. The draft document has been subjected to review by the Community Modeling and Analysis System Center only; this content has not yet been approved by the EPA. Mention of trade names or commercial products does not constitute endorsement or recommendation for use. ## 1.1 Introduction Under the authority of the Clean Air Act, the U.S. Environmental Protection Agency (EPA) has established National Ambient Air Quality Standards (NAAQS). These standards are designed to protect human health and the environment from high levels of criteria pollutants, such as ozone and particulate matter. Meeting the NAAQS often requires the use of controls on sources of air pollutants. The complex nature of air pollution scenarios requires control strategies to be effective for a variety of air pollutants, geographic regions, and scales. The design of these control strategies is guided by comprehensive air pollution modeling systems which are applied to assess the ability of various control strategies to improve air quality in a cost-effective manner. Because some emission sources contribute to the ambient levels of more than one pollutant and can affect an entire region on various time scales, an integrated modeling approach capable of handling multiple air pollutants and spatiotemporal scales is needed to identify cost-effective control strategies that improve overall air quality. The [EPA Community Multiscale Air Quality (CMAQ) modeling system](http://www.epa.gov/cmaq) was formulated and designed to facilitate extensions needed to examine emerging linked multi-pollutants air pollution issues. The source code for CMAQ is available through a publicly-accessible, version-controlled repository on [GitHub](www.github.com/usepa/cmaq) where interested parties may obtain the open-source software and contribute to enhancements of the model. CMAQ is designed for applications ranging from regulatory and policy analysis to probing and understanding the complex interactions of atmospheric chemistry and physics. It is a three\-dimensional Eulerian (i.e., gridded) atmospheric chemistry and transport modeling system that simulates ozone, particulate matter (PM), toxic airborne pollutants, visibility, and acidic and nutrient pollutant species throughout the troposphere. Designed as a “one-atmosphere” model, CMAQ can address the complex couplings among several air quality issues simultaneously across spatial scales ranging from urban to hemispheric. Air quality models integrate our understandings of the complex processes that affect the concentrations of pollutants in the atmosphere. Establishing the relationships among meteorology, emissions of chemical species, chemical transformations, and removal processes in the context of atmospheric pollutants is the fundamental goal of an air quality model (Seinfeld and Pandis, 1998). CMAQ uses detailed mathematical representations of coupled atmospheric dynamical, chemical, and physical processes to describe the fate of airborne pollutants. The model is formulated to conserve mass in the 3-D atmosphere within the modeled domain. The resultant partial differential governing equations are numerically solved over a 3-D grid discretizing the geographic domain of interest. A model grid is an *x\-y\-z* array that is fixed in space and covers a prescribed domain (i.e., a geographic area of interest). CMAQ therefore belongs to the Eulerian class of mathematical models that calculate a mass balance over each discrete grid volume by accounting for transport across the boundaries of the grid volume and relevant source and sink terms within the grid volume over a given time period. As a mathematical framework for simulating the interactions of multiple complex atmospheric processes, CMAQ thus requires two primary types of inputs: meteorological information, and rates of emissions from a variety of anthropogenic and natural sources of primary pollutant species of interest or those that serve as precursors for formation of other pollutants of interest. With weather conditions contributing the primary physical driving forces in the atmosphere (such as the changes in temperature, winds, cloud formation, and precipitation rates), representative gridded meteorology forms the basis of all 3\-D air quality model simulations. The Weather Research and Forecasting (WRF) model \- Advanced Research WRF (WRF\-ARW) (Skamarock et al., 2005) is compatible with CMAQ in that both systems can be configured to use identical horizontal and vertical coordinate and grid structures and is commonly used to drive CMAQ. The meteorology inputs dictate the following CMAQ configuration parameters: - Horizontal grid coordinate system (e.g., latitude-longitude, Lambert Conformal) - Horizontal grid resolution (i.e., the size of the cells composing the grid) - Maximum spatial coverage (horizontal geographic extent, i.e., *the domain*) of the grid - Maximum vertical extends (model top) and vertical grid resolution - Temporal extent (the starting and ending dates and times, and the meteorology update frequency) To obtain inputs on emissions, CMAQ relies on an emissions processor to estimate the magnitude, location, and temporal variability of pollution sources. Open\-source processors such as the Sparse Matrix Operator Kernel Emissions ([SMOKE](https://www.cmascenter.org/smoke/)) processor (IE, 2008) are available for computing emissions inputs to CMAQ from emissions inventories. These emissions inputs must be specified on CMAQ's horizontal and vertical grid structure and cover at least the time period of the air quality model simulation. The emission inputs must also represent chemical species that conform with the gas and aerosol chemical mechanism employed in the CMAQ configuration; currently supported gas-phase mechanisms include recent versions of the Carbon Bond mechanism, the Statewide Air Pollution Research Center (SAPRC) mechanism, the Regional Atmospheric Chemistry Mechanism (RACM), and the Community Regional Atmospheric Chemistry Multiphase Mechanism (CRACMM). Additional details about the gas- and aerosol-phase chemistry in CMAQ are provided in [Chapter 6](CMAQ_UG_ch06_model_configuration_options.md). ## 1.2 Features From inception, CMAQ was designed to facilitate community modeling. “Community modeling” is the concept that air quality model development should be a collective effort by a broad community of developers, thereby leveraging the cross-disciplinary expertise needed to keep the physical, numerical, and computational components of the modeling system at the state-of-the-science. By adopting a standardized modeling architecture, the air quality modeling community can focus its efforts on creating software enhancements and new science modules. CMAQ is designed to meet the needs of the multiple groups contained within the air quality modeling community: research and regulatory modelers, algorithm and science module developers, air quality forecasters, and planners and policy makers. While each of these groups has distinct individual requirements for CMAQ, they also share a common need for an efficient, transparent, and scientifically credible tool to simulate the air pollution phenomena. To address these individual and common needs, CMAQ development and maintenance have the following goals: 1. *Scientific Integrity*. Ensure that the model remains state-of-the-science through subjecting it to [regular peer reviews](https://www.epa.gov/cmaq/cmaq-publications-and-peer-review) 2. *Community Development*. Utilize a design that encourages innovations and enhancements by all members of the air quality modeling community 3. *Multiscale Modeling*. Provide adequate technical formulations to address air quality issues on multiple spatial scales, from urban to hemispheric 4. *Multi-pollutant Design*. Provide robust and integrated science for modeling multiple, coupled air quality issues in a single simulation 5. *Modularity*. Maintain flexibility to add new, or select from existing, science modules to optimize model performance for specific applications 6. *Transparency*. Utilize programming practices that promote understanding of the model formulation at the source-code level 7. *Computational Efficiency*. Provide scientifically acceptable results without compromising the speed at which the results are generated 8. *Open-Source Design*. Enable no-cost distribution and application by the modeling community Designed under a community-modeling paradigm, CMAQ is distributed as open-source software engineered with a modular code design to facilitate decentralized development. Built around a layered [I/O API](https://www.cmascenter.org/ioapi) and [netCDF](http://www.unidata.ucar.edu/software/netcdf) code framework, CMAQ provides a flexible platform for testing new science algorithms, chemistry representations, and optimization techniques. CMAQ provides the following features to scientists interested in developing new algorithms or adding science to the model: - All CMAQ source code is available through [GitHub](https://github.com/USEPA/CMAQ). - Developed and distributed following open-source software conventions, CMAQ source code is easily accessible and free to obtain. - Designed for modularity, CMAQ uses standardized input/output (I/O) routines to facilitate extensibility. - The diverse and continually growing community of CMAQ developers provides an excellent forum for discussing development-related topics of all kinds. The CMAQ modeling system is being developed and maintained under the leadership of the [EPA Office of Research and Development](https://www.epa.gov/aboutepa/about-office-research-and-development-ord) in Research Triangle Park, NC. CMAQ represents nearly three decades of research in atmospheric modeling and has been in active development since the early 1990s. The first public release of CMAQ was in 1998 to enable use by air quality scientists, policy makers, and stakeholder groups to address multiscale, multipollutant air quality concerns. Since then, through a series of phased development activities, new versions of the CMAQ modeling system are periodically released for use by the growing user community. ## 1.3 Diagnostics, Tools, and Instrumented Models In addition to the air pollutant concentration and deposition fields output by CMAQ, the modeling system can also be instrumented to compute and output additional diagnostic information that can be used to probe the workings of the atmosphere as well as inform and guide policy inferences. These instrumented configurations include: 1. *[Integrated Source Apportionment Method (ISAM)](CMAQ_UG_ch11_ISAM.md)*: Estimates source attribution information for user specified ozone and particulate matter precursors modeled in CMAQ. Such apportionment information could be used to gain insight on, for example, how much of the ozone in an urban area was formed due to nitrogen oxides emitted from motor vehicles in a neighboring state? 2. *[Decoupled Direct Method in Three Dimensions (DDM-3D)](CMAQ_UG_ch10_HDDM-3D.md)*: A formal mathematical formulation that propagates sensitivity of CMAQ estimated concentrations and/or deposition to specified parameters (e.g., emissions) through the science modules in CMAQ. CMAQ-DDM-3D can be used for sensitivity to emission rates, boundary conditions, initial conditions, reaction rates, potential vorticity, or any combination of these parameters. Second order sensitivity calculations, or sensitivity of sensitivity, are also available. 3. *[Sulfur Tracking Method (STM)](CMAQ_UG_ch12_sulfur_tracking.md)*: Tracks sulfate production from gas- and aqueous-phase chemical reactions, as well as contributions from emissions and initial and boundary conditions. The additional diagnostic information enables users to better understand the relative contribution of various pathways for airborne sulfate, a dominant contributor to fine particulate matter. 4. *[Integrated Process Rates (IPR)](CMAQ_UG_ch09_process_analysis.md)*: CMAQ can be configured to output the process rates for each of the modeled processes impacting change in ambient concentrations of modeled species. This essentially provides a breakdown of the various terms contributing to the overall species mass-balance and thus helps with species mass-budget analysis. 5. *[Integrated Reaction Rates (IRR)](CMAQ_UG_ch09_process_analysis.md)*: This technique involves integrating the rates of individual chemical reactions represented in the gas-phase chemical mechanism employed by CMAQ. As an example, this information can then be used to infer the relative importance of various precursor species contributing to ozone production in a grid cell or region. 6. *[Budget Tool](CMAQ_UG_ch09_process_analysis.md)*: This tool outputs domain-wide burden and specific process rates for user-selected variables in a summarized ascii file. This data can be useful in understanding broad features of the lifecycle of trace pollutants and in diagnosing potential model inconsistencies. 7. *[Explicit and Lumped CMAQ Model Output (ELMO) Module](Appendix/CMAQ_UG_appendixF_elmo_output.md)*: The ELMO Module allows users to request direct output of aggregate variables like PM2.5 mass, total organic aerosol, and aerosol properties like mode-specific diameter and standard deviation. Users can also select scalar CMAQ variables and meteorological variables be added to ELMO output files. ## 1.4 New Features in CMAQv5.5 Building on previous versions of the modeling system, numerous updates to the process science and model structure have been implemented in CMAQv5.5 including: 1. Gas and aerosol chemistry mechanisms have been updated to include more recent scientific understanding. CMAQv5.5 introduces version 2 of the Community Regional Atmospheric Chemistry Multiphase Mechanism (CRACMM2). CRACMM2 includes several updates to CRACMM1. Many updates are intended to improve the representation of secondary formaldehyde (HCHO) in CRACMM. These include the incorporation of the AMORE v1.2 isoprene condensation into the primary CRACMM mechanism, updates to HCHO yields from monoterpenes, and the addition of styrene as a new explicit species. Additional updates include changes to monoterpene nitrates that affect SOA formation and NOx recycling, the inclusion of emitted methane (ECH4), heterogeneous uptake of HO2 and NO3 radicals, and changes in how emissions of certain aromatic species are mapped to CRACMM species. 2. CMAQv5.5 is the first public release that allows coupling of CMAQ with the Model for Prediction Across Scales (MPAS). MPAS-CMAQ supports global domains with seamless regional resolution refinement over areas of interest. 3. The CMAQ-ISAM and CMAQ-DDM systems have been enhanced to support additional applications. CMAQ-ISAM now (1) includes the capability to quantify the contributions from anthropogenic and biogenic sources to total secondary organic aerosol (SOA) and individual species; (2) accounts for loss of aerosol mass from gravitational settling, thereby enabling the sum of K-mode tags to better match the bulk K-mode concentrations; (3) fixes a bug from v5.4 to allow for proper attribution of O3 from “stratospheric origin”. CMAQ-DDM was also corrected to properly estimate sensitivity of O3 to the PV-scaled O3 in the model top layers. 4. A new option for estimation of photolysis rates was included. This option includes a new approach to estimate the effects of aerosol optical properties on photolysis rates. The approach provides a better match to optical properties determined by solving Mie scattering theory for spherical particles than the default method (FastOptics) but at comparable runtimes. See the [CMAQv5.5 Series FAQ](https://github.com/USEPA/CMAQ/wiki/CMAQv5.5-Series-FAQ) for more information on model updates in the new release. ## 1.5 System Recommendations CMAQ is a comprehensive air pollution modeling system whose source code is written mostly in Fortran. CMAQ execution is typically performed on Linux based systems. The hardware configuration of such a system depends on the domain size, grid resolution and simulation duration. Since typical input and output data sets for CMAQ entail three dimensional descriptions of the dynamical and chemical state of the simulated atmosphere, these data sets could require upwards of several gigabytes of disk storage per simulation day. ## 1.6 CMAQ Support Resources Extensive information on the model's scientific basis, applications, publications, peer-review, and instructions to download the CMAQ modeling system are available at https://www.epa.gov/cmaq. To support the CMAQ user community, EPA currently funds the University of North Carolina at Chapel Hill to host the [Community Modeling and Analysis System (CMAS) Center](http://www.cmascenter.org/), which maintains a user help desk, provides new user training, and promotes the dissemination and use of the modeling system through exploration of new technologies and platforms (e.g., cloud-based). The CMAS Center offers an e-mail help desk and an [online forum](https://forum.cmascenter.org/) to allow users to connect with model developers and other model users around the world. ___ [CMAQ User's Guide List of Tables and Figures](CMAQ_UG_tables_figures.md) ___ [Home](README.md) - [Next Chapter >>](CMAQ_UG_ch02_program_structure.md)
CMAQv5.5 User's Guide
================================================ FILE: DOCS/Users_Guide/CMAQ_UG_ch02_program_structure.md ================================================ [<< Previous Chapter](CMAQ_UG_ch01_overview.md) - [Home](README.md) - [Next Chapter >>](CMAQ_UG_ch03_preparing_compute_environment.md) # 2. Program Structure ## 2.1 Introduction The CMAQ system is a suite of software programs that work in concert to estimate ozone, particulate matter, toxic compounds, and acid deposition in addition to other atmospheric pollutants of interest. As a framework for simulating the interactions of multiple complex atmospheric processes, CMAQ requires many types of inputs including meteorological information, primary pollutant emission rates, chemical properties and reactions, and land properties that are influential for exchange of pollutants with the atmosphere. ## 2.2 CMAQ Core Programs Weather conditions such as the changes in temperature, winds, cloud formation, and precipitation rates are the primary physical driving forces for transport in the atmosphere. These conditions are represented in CMAQ using output from the [Weather Research and Forecasting (WRF) Model](https://www.mmm.ucar.edu/weather-research-and-forecasting-model) for regional- and hemispheric-scale simulations and from the [Model for Prediction Across Scales (MPAS)](https://www.mmm.ucar.edu/models/mpas) for global simulations. To obtain inputs on emissions, CMAQ relies on the open-source Sparse Matrix Operator Kernel Emissions [(SMOKE)](http://www.smoke-model.org) model to estimate the magnitude and location of pollution sources. Another open-source system, the [Fertilizer Emission Scenario Tool for CMAQ (FEST-C)](https://www.cmascenter.org/fest-c/) is used to run the Environmental Policy Integrated Climate (EPIC) model to generate agricultural land nitrogen and soil information needed for CMAQ bi-directional NH3 modeling. The structure of the CMAQ system is illustrated in Fig. 2-1. The main CMAQ program, the CMAQ Chemistry Transport Model (CCTM), which is often referred to simply as CMAQ, contains the principal equations used for predicting pollutant concentrations given the inputs discussed above. These partial differential equations are designed for mass conservation and consider a myriad of important processes such as emissions, chemical reaction, uptake to clouds and precipitation, and dry deposition. An overview of the science configuration options in CMAQ can be found in [Chapter 6](CMAQ_UG_ch06_model_configuration_options.md). Instructions for compiling and running the CCTM are covered in Chapters 3 ([Preparing Compute Environment](CMAQ_UG_ch03_preparing_compute_environment.md)), 4 ([Model Inputs](CMAQ_UG_ch04_model_inputs.md)) and 5 ([Running a CMAQ Simulation](CMAQ_UG_ch05_running_a_simulation.md)). ![Figure 2-1](./images/Figure2-1.jpg) **Figure 2‑1. Overview of the CMAQ System** Several important tools are provided with the CMAQ system to handle the preparation of important input data. The meteorology data provided by the upstream meteorological model (e.g., WRF) is prepared for input to the CCTM by the Meteorology-Chemistry Interface Processor (MCIP). The CCTM also requires inputs for specifying the initial and boundary conditions of each chemical species treated by the model. These data may be processed and prepared for use by the ICON and BCON tools, respectively. Documentation on compiling and running MCIP, ICON, and BCON is available under the [PREP][link_2.2] folder. ## 2.3 Online Emissions Options CMAQ includes several "online" emissions options to support coupling between meteorology and chemistry processes, and to facilitate operational air quality forecast modeling. The emissions streams available for running online in CMAQ are: biogenics, wind-blown dust, sea spray, marine gas emissions, and nitrogen oxides from lightning. One important advantage of incorporating these processes directly in a CCTM simulation is that emissions are meteorologically modulated at the synchronization (chemistry) time step rather than being linearly time-interpolated within each simulation hour. In addition, disk space may be saved, because a 3‑D emissions file is no longer needed for elevated point sources. ## 2.4 Post-processing Tools The CMAQ release includes a set of Fortran programs for manipulating CMAQ input and output files including matching model output to observed air quality data. Information on these post-processing tools is available under the [POST][link_2.4] folder. There are many additional resources available for visualizing and evaluating CMAQ input and output which are described in [Chapter 8](CMAQ_UG_ch08_analysis_tools.md). ## 2.5 Utilities for Developers The CMAQ release includes several optional utilities for model developers. These tools may be useful for advanced users who wish to use other chemical mechanisms and/or a different set of photolysis reaction input data. Chemical reaction data is processed by the Chemical Mechanism Compiler (*chemmech*) for all chemical reaction solver approaches. This tool needs chemical namelists (e.g. GC_NAMELIST, AE_NAMELIST, etc) in order to run, and these namelists can be modified directly with a text editor or converted to CSV with the namelist converter *nml*. After running chemmech, to then generate files specifically for the Euler Backward Iterative (EBI) solver approach, the *create_ebi* is provided. Finally the Photolysis Preprocessor (*inline_phot_preproc*) provides support for generating photolysis rate input to customize chemical mechanisms. In addition, the CMAQ repository includes software for generating Makefiles necessary for compiling the CCTM and other components. This *bldmake* utility is designed to account for user options, diagnose dependencies in source code and produce a Makefile ready to build executable files. Documentation for each utilitiy program is provided under the [UTIL][link_2.5] folder. [<< Previous Chapter](CMAQ_UG_ch01_overview.md) - [Home](README.md) - [Next Chapter >>](CMAQ_UG_ch03_preparing_compute_environment.md) CMAQv5.5 User's Guide
[link_2.2]: ../../PREP/ [link_2.4]: ../../POST/ [link_2.5]: ../../UTIL/ [link_2.2]: https://github.com/USEPA/CMAQ/blob/main/PREP/ [link_2.4]: https://github.com/USEPA/CMAQ/blob/main/POST/ [link_2.5]: https://github.com/USEPA/CMAQ/blob/main/UTIL/ ================================================ FILE: DOCS/Users_Guide/CMAQ_UG_ch03_preparing_compute_environment.md ================================================ [<< Previous Chapter](CMAQ_UG_ch02_program_structure.md)- [Home](README.md) - [Next Chapter >>](CMAQ_UG_ch04_model_inputs.md) # 3. Preparing Compute Environment for CMAQ Simulations ## 3.1 Introduction In this chapter the user will learn basic hardware and software requirements to run CMAQ. In addition, if the user does not have the required software, this chapter provides links to download the required software. ## 3.2 Hardware Requirements The suggested hardware requirements for running the CMAQ Northeast Benchmark case on a Linux workstation are: - 8 processors - 4 GB RAM - 400 GB hard drive storage However, to use CMAQ in a production environment where multiple iterations of the model will be executed for different spatial domains and/or emissions control strategies, either a cluster of multiprocessor PCs on a high-end network or an expandable rack-mounted Linux server is recommended. For example, the CMAQ team at the EPA uses a Dell cluster. The cluster consists 128 nodes and each node contain two Intel Xeon E5-2697A v4 16-core processors (with a total of 4096 processors), 256 GB memory (8 GB/core), EDR InfiniBand interconnect and runs on Red Hat Enterprise Linux 8 operating system. Table 3-1 provides a general snapshot of three different CMAQ setups for a day of simulation conducted at the EPA. The output only included: the concentration file (CONC), the average concentration file (ACONC), 3-D average concentration file (CGRID), hourly dry deposition file (DRYDEP), and wet deposition from the clouds file (WETDEP1). The run time and domain size are dictated by the system hardware. Furthermore, the run time may vary due to compiler choice and system load. **Table 3‑1. Example of job scenarios at EPA for a single day simulation** |**Domain**|**Domain size**|**Species Tracked**|**Input files size**|**Output files size**| **Run time (# cores)** | |:--------------:|:----:|:-:|:-:|:-:|:--------:| | 2016 Southeast US | 100 X 80 X 35| 218 |6.7GB |6.3GB |8 min/day (32); 47 min/day (4) | | 2016 CONUS | 459 X 299 X 35 | 219 |18GB| 107GB | 50 min/day (128); 90 min/day (32) | | 2016 N. Hemisphere | 187 X 187 X 44 | 255 |15GB| 40GB | 25 min/day (128) | | 2018 North East US | 100 X 105 X 35 | 225 |26GB| 2GB | 15 min/day (32) | ## 3.3 Software Requirements To build the CMAQ program suite, users must install these libraries in the order listed: MPI, netCDF and IOAPI. As always, we recommend using the latest release available at the time of your CMAQ installation. A table of the software versions CMAQ has been developed and tested with is shown below: **Table 3‑2. CMAQ Development and Testing software versions** |**Software**|**Versions**| |:--------------:|:----:| | Intel Compiler | 18.0, 21.4 | | GNU Compiler | 6.1.0, 9.1, 12.2 | | PGI Compiler | 17.4, 21.9, 22.11 | **NOTE: The CMAQ team recommends using a single compiler suite when building these libraries. Mixing compiler suites when building these libraries can cause unexpected behavior (e.g., mixing intel 18.0 to build netCDF C libraries and gcc 6.1.0 to build netCDF fortran libraries may lead to compile time errors).** ### 3.3.1 Message Passing Interface (MPI) library CMAQ is primarily a MPI based programming system that runs on parallel programming platforms. Many programs within the CMAQ system require a flavor of MPI installed on your machine. CMAQ has been tested with the [OpenMPI](https://www.open-mpi.org), [MPICH](https://www.mpich.org/downloads), [MVAPICH2](http://mvapich.cse.ohio-state.edu), and the [Intel MPI](https://software.intel.com/en-us/intel-mpi-library) libraries. The choice of MPI library may affect model run time. For example, if you have the Intel compiler suite available on your system, you may want to choose Intel MPI or if your system is using InfiniBand (IB) interconnects, choose MVAPICH2 which is tailored for IB. Users can download the MPI library source code from one of these sites and follow provided procedures for proper installation. **Versions Tested: IntelMPI 2017.0, 21.4 | MPICH 3.3.1 | MVAPICH2 2.3.1 | OpenMPI 2.1.0, 4.1.4** ### 3.3.2 netCDF library Most of the CMAQ input files and all output files are in netCDF format (the rest are in ASCII format). Hence the netCDF library is an essential component of the CMAQ model. The netCDF library is available for download at http://www.unidata.ucar.edu/software/netcdf/; users should follow the instructions for proper installation of **both** netCDF-C and netCDF-Fortran libraries. After successful installation, check the environment PATH & LD_LIBRARY_PATH to ensure that the paths have been updated to include the path of the netCDF C and Fortran libraries and bin. Note you may have to set these paths manually if not set, and these paths must be loaded every time you start a new shell. For additional installation resources plesae see the [CMAQ Tutorial Page](./Tutorials/README.md). **Versions Tested: NetCDF-C 4.2, 4.8.1 | NetCDF-Fortran 4.4.2, 4.5.3** ### 3.3.3 I/O API library The I/O API library provides an interface between the netCDF libraries and CMAQ, as well as WRF-CMAQ, to handle input and output (I/O) calls throughout the CMAQ code. The version of the I/O API library supported with CMAQv5.3.2+ (version 3.2 tagged 20200828) is available for download at https://github.com/cjcoats/ioapi-3.2/releases/tag/20200828. Users should note that the I/O API library requires netCDF files to be adhere to a strict formatting guidelines that can be found in the I/O API documentation. For simplicity, files following the IOAPI-netCDF formatting guidelines will be called "IOAPI FILES" from now on. **Versions Tested: IOAPI 3.2 tagged 20200828** The general steps for installation of I/O API libraries on a Linux system (with C-shell and GNU compilers) are below. These instructions are an example. The following is a procedure to install "basic" I/O API libraries (this is based on gfortran compiler, for other compilers, look for corresponding Linux2_x86_64*): ``` mkdir ioapi_3.2 cd ioapi_3.2 ## Download IOAPI Libraries and untar downloaded source code in this directory wget http://github.com/cjcoats/ioapi-3.2/archive/20200828.tar.gz tar -xzvf 20200828.tar.gz cd ioapi-3.2-20200828 ### Set up your Linux system environment setenv BIN Linux2_x86_64gfort setenv BASEDIR $cwd setenv CPLMODE nocpl cp Makefile.template Makefile touch ioapi/Makefile touch m3tools/Makefile ``` Edit the top level Makefile with the following steps: 1. comment out the line with NCFLIBS= 2. Add explicit netCDF C and Fortran library paths in front of -lnetcdf -lnetcdff, respectively, the following is an example: ``` NCFLIBS = -L/usr/local/apps/netcdf-c-4.7.0/gcc-9.1.0/lib -lnetcdf -L/usr/local/apps/netcdf-fortran-4.4.5/gcc-9.1.0/lib -lnetcdff ``` Edit the file in the ioapi folder called Makeinclude.Linux2_x86_64gfort to comment out all openMP options as CMAQ does not support openMP. Note: If users are using the ifort compiler you also need to remove -Bstatic flag within the ioapi/Makeinclude.Linux2_x86_64ifort file as well. ``` OMPFLAGS = # -fopenmp OMPLIBS = # -fopenmp ``` In the top level IOAPI_3.2 directory run: ``` make configure make ``` Other I/O API library configuration options are available, and users can see a list of these options within the I/O API documentation. For example, I/O API can be configured in a manner that allows the CMAQ model to be run with the parallel I/O (PIO) feature turned on called the "mpi" I/O API libraries (Wong et al. 2015). More information about how to enable PIO within CMAQ can be found in [Appendix D.3](Appendix/CMAQ_UG_appendixD_parallel_implementation.md#d3-parallel-io). There is also an I/O API version 3.2 "large" that is designed for applications with a large number of model output files (e.g. utilizing all of CMAQv5.3+ optional diagnostic output files) and/or a large number of model variables (e.g. CMAQ-HDDM or CMAQ-ISAM applications). I/O API v3.2-large increases the MXFILE3 variable from 256 to 512 and increases the MXVARS3 variable from 2048 to 16384, both found in PARAMS3.EXT, as noted in the [I/O API documentation](https://www.cmascenter.org/ioapi/documentation/all_versions/html/AVAIL.html#build). Users can [build](https://www.cmascenter.org/ioapi/documentation/all_versions/html/AVAIL.html#build) a copy of the large version by using: ``` cp -r ioapi-3.2-20200828 ioapi-3.2-20200828_large cd ioapi-3.2-20200828_large/ioapi/fixed_src cp ../PARMS3-LARGE.EXT ./PARMS3.EXT mv ../PARMS3-LARGE.EXT ../PARMS3.EXT ``` This version is also available as a zip file from the following address: https://www.cmascenter.org/ioapi/download/ioapi-3.2-large-20200828.tar.gz Installation instructions for I/O API v3.2-large are provided in README.txt in the .tar.gz file. **Note: Users using the I/O API v3.2-large will require additional computional resources during compile and runtime to account for the increase in memory footprint. Additionally, users may encounter upward and backwards compatability issues using different versions of I/O API, if the files are produced with this version of I/O API.** ## 3.4 Optional Software **Table 3‑3. Optional support software for CMAQ** |**Software**|**Description**| **Source** | |------------|-------------------------------|---------------------------------------------| |***Evaluation and visualization tools***| | | |VERDI|Visualization Environment for Rich Data Interpretation for graphical analysis of netCDF gridded data|[](https://www.cmascenter.org/verdi/)| |PAVE|Package for Analysis and Visualization of Environmental data for graphical analysis of netCDF gridded data|[](http://www.cmascenter.org/)| |IDV|Integrated Data Viewer for 3-D graphical analysis of netCDF gridded data|[](http://www.unidata.ucar.edu/software/idv/)| |I/O API Tools|Postprocessing tools for manipulating data in the I/O API/netCDF format|[](https://www.cmascenter.org/ioapi/)| |netCDF Tools|Postprocessing tools for manipulating data in the netCDF format|[](http://my.unidata.ucar.edu/content/software/netcdf/index.html)| | ***Source code diagnostics*** | |GDB|Gnu Fortran debugger|[](https://www.sourceware.org/gdb/)| |PGDBG|Portland Group Fortran debugger|[](http://www.pgroup.com/)| |PGPROF|Portland Group Fortran code profiler|[](http://www.pgroup.com/)| |IDB|Intel Fortran debugger|[](https://software.intel.com/en-us/articles/idb-linux)| ## 3.5 References: Wong, D. C., Yang, C. E., Fu, J. S., Wong, K., and Gao, Y., “An approach to enhance pnetCDF performance in environmental modeling applications”, Geosci. Model Dev., 8, 1033-1046, 2015. [<< Previous Chapter](CMAQ_UG_ch02_program_structure.md)- [Home](README.md) - [Next Chapter >>](CMAQ_UG_ch04_model_inputs.md)
CMAQv5.5 User's Guide
================================================ FILE: DOCS/Users_Guide/CMAQ_UG_ch04_model_inputs.md ================================================ [<< Previous Chapter](CMAQ_UG_ch03_preparing_compute_environment.md) - [Home](README.md) - [Next Chapter >>](CMAQ_UG_ch05_running_a_simulation.md) # 4. Model Input Files ## 4.1 Introduction This chapter provides basic information on the format and content of CMAQ input files. It also provides information on using the pre-processing tools provided in the repository for preparing initial and boundary conditions and meteorology inputs. Links are provided for the emissions processing tools that are released through their own repository or website. A list of CMAQ input files can be found in [Table 4-1](#Input_Table). Some CMAQ input files are in ASCII format while the majority of them are in the [Network Common Data Form (netCDF) format](http://www.unidata.ucar.edu/software/netcdf). CMAQ input and output files are self-describing netCDF-format files in which the file headers have all the dimensioning and descriptive information needed to define the resident data. Users should download the latest code for the NetCDF from the [NetCDF website](http://www.unidata.ucar.edu/software/netcdf). Compilation and configuration information for the NetCDF is available through the Unidata website. All CMAQ input and output files are conformed to I/O API netCDF file format. Please refer to the [I/O API User's Manual](https://www.cmascenter.org/ioapi/documentation/all_versions/html) for details. Full input datasets for 2016 over two domains are publically available to download from the CMAS Data Warehouse. The input files are stored on Google Drive with metadata organized through Dataverse. |**Domain**|**Simulation Dates**|**Dataverse DOI**| |:--------------:|:----:|:--------:| | Southeast US | July 1 - 14, 2016| https://doi.org/10.15139/S3/IQVABD | | Conterminous U.S. (CONUS) | Jan 1 - Dec 31, 2016 | https://doi.org/10.15139/S3/MHNUNE | ## 4.2 CMAQ Pre-processors [Figure 2-1][link_4.2_fig2] shows the relationship between CMAQ pre-processors and the main CMAQ program, the CMAQ Chemistry Transport Model (CCTM). MCIP, ICON and BCON are included in the CMAQ repository and are used to create meteorological, initial conditions and boundary conditions inputs. SMOKE, FEST-C and Spatial Allocator Tools are external software packages used for creating emissions inputs for CMAQ. The following subsections provide more information on these tools and point the user to additional sources of documentation. ### 4.2.1 Meteorology-Chemistry Interface Processor (MCIP) MCIP processes meteorological fields output by the WRF model into files that are compatible with the CCTM and SMOKE (an emissions processor that computes emissions inputs for CMAQ). The output files generated by MCIP are used by ICON and BCON and various other programs in CMAQ, so MCIP must be the first program run after installing the CMAQ source codes and initializing CMAQ environment variables. Configuration options for MCIP include the time periods over which to extract data from the meteorological model output files, horizontal grid definitions for output, and control for optional 3D output variables. MCIP can either process the full horizontal domain from WRF or a user-defined subset of that domain (that is, a "window"). Most of the fields that are simulated by WRF are not modified by MCIP for the CCTM or emissions model and are simply "passed through" to the output. Where needed, MCIP transforms data from the WRF projection and coordinate system to be consistent with that being used for CMAQ simulations. Unlike many of the tools distributed with CMAQ, MCIP is compiled with a Makefile and then run with a run script. Instructions on how to compile and run MCIP are provided in the [README.md][link_4.2.1] file in the PREP/mcip folder. ### 4.2.2 Initial Conditions Processor (ICON) ICON generates a gridded netCDF file of the chemical conditions for all grid cells in the modeling domain for the initial time of a simulation. It can generate these initial conditions from either an existing CCTM output file or one of four ASCII files of vertically resolved concentration profiles distributed with CMAQ. Running ICON requires that the user already generated MCIP files for their target modeling domain. For both input file options, ICON will interpolate the data to the horizontal and vertical structure of the target domain as defined in the MCIP files. The species in the ICON output file are identical to those in the input (either CCTM output or ASCII profile) file. Using an existing CCTM output file to generate initial conditions is applicable when interpolating initial conditions from a coarse to a fine grid domain, as may occur when setting up nested simulations (simulations with finer-resolution grids that cover part of coarser-resolution grids). This is the preferred mode of specifying initial conditions since the spatial concentration patterns derived from the coarser-resolution simulation can be considered a first approximation of the concentration fields over the finer-resolution subdomain at the beginning of the simulation. The four ASCII files of vertically resolved concentration profiles [distributed with CMAQ][link_4.2.2_I] represent annual average concentrations at a grid cell over the Pacific derived from a simulation with the hemispheric version of CMAQv5.3 beta2 for the year 2016. As such, these concentration profiles are reflective of conditions in a remote marine environment. The simulation was performed with the cb6r3m_ae7_kmtbr chemical mechanism and profiles for racm_ae6_aq, saprc07tc_ae6_aq, and saprc07tic_ae7i_aq were derived using the species mapping approach described in Step 3 of the [CMAQ Tutorial on creating Initial and Boundary Conditions from Seasonal Average Hemispheric CMAQ Output](./Tutorials/CMAQ_UG_tutorial_HCMAQ_IC_BC.md). If one of these ASCII profile files is used to generate initial conditions, the resulting concentration fields will be uniform over the modeling domain and will not be a realistic representation of conditions over the modeling domain. As a result, simulations initialized with profile-derived rather than CCTM-derived concentration fields may require longer spin-up periods before conditions simulated within the domain no longer are influenced by these unrealistic initial concentration fields. The configuration options for ICON include choosing whether the initial conditions are generated from an existing CCTM output file or from an ASCII profile, and defining the horizontal and vertical grids and time for which initial conditions are to be generated. Information on configuring ICON for the different kinds of input data, environment variables, input and output files, compiling and running ICON are provided in the [README.md][link_4.2.2_II] file in the PREP/icon folder. ### 4.2.3 Boundary Conditions Processor (BCON) BCON generates a netCDF file of the chemical conditions along the lateral boundaries of the modeling domain. BCON will generate an output file with chemical concentrations for all grid cells along the modeling domain's horizontal boundaries. It can generate these boundary conditions from either an existing CCTM output file or one of four ASCII files of vertically resolved concentration profiles distributed with CMAQ. Running BCON requires that the user already generated MCIP files for their target modeling domain. For both input file options, BCON will interpolate the data to the horizontal and vertical structure of the target domain as defined in the MCIP files. The species in the BCON output file are identical to those in the input (either CCTM output or ASCII profile) file. Depending on user specified options and/or input datasets, the boundary conditions generated by BCON can be time varying, time independent, and either spatially uniform or variable across the model boundaries. Using an existing CCTM output file to generate boundary conditions is applicable when setting up windowed simulations (simulations with the same resolution that cover only a part of the outer domain) or nested simulations (simulations with finer-resolution grids that cover part of coarser-resolution grids). This is the preferred mode of specifying boundary conditions since the spatial concentration patterns derived from the coarser-resolution simulation will be spatially varying along the boundaries of the finer-resolution domain. Boundary conditions generated from CCTM output files will be either time varying or time independent. The four ASCII files of vertically resolved concentration profiles [distributed with CMAQ][link_4.2.2_I] represent annual average concentrations at a grid cell over the Pacific derived from a simulation with the hemispheric version of CMAQv5.3 beta2 for the year 2016. As such, these concentration profiles are reflective of conditions in a remote marine environment. The simulation was performed with the cb6r3m_ae7_kmtbr chemical mechanism and profiles for racm_ae6_aq, saprc07tc_ae6_aq, and saprc07tic_ae7i_aq were derived using the species mapping approach described in Step 3 of the [CMAQ Tutorial on creating Initial and Boundary Conditions from Seasonal Average Hemispheric CMAQ Output](./Tutorials/CMAQ_UG_tutorial_HCMAQ_IC_BC.md). If one of these ASCII profile files is used to generate boundary conditions, the resulting concentration fields will be uniform along the boundaries of the modeling domain and will not vary in time. Therefore, they are not a realistic representation of conditions along the domain boundaries and should only be used in cases where boundary conditions are not expected to affect the interpretation of model results. CMAQ can use boundary conditions derived from global chemistry models (GCMs). While BCON does not directly support processing of datasets from GCMs (other than the hemispheric version of CMAQ) in their native formats, users could develop their own custom codes to transform their GCM datasets into I/O API format, which would then allow these datasets to be input into BCON in the same way as an existing CCTM output file. The configuration options for BCON include choosing whether the boundary conditions are generated from an existing CCTM output file or from an ASCII profile, and defining the horizontal and vertical grids and time period for which boundary conditions are to be generated. Information on configuring BCON for the different kinds of input data, environment variables, input and output files, compiling and running BCON are provided in the [README.md][link_4.2.3] file in the PREP/bcon folder. ### 4.2.4 External Software Programs for Preparing CMAQ Inputs The SMOKE and FEST-C modeling systems and the Spatial Allocator tools are used to create CMAQ emissions and land surface inputs. These systems are maintained by EPA and CMAS developers and are hosted and supported by the CMAS Center. Links to documentation and software download for each system are provided below. **Emissions Processor (SMOKE)** [Sparse Matrix Operator Kerner Emissions (SMOKE) Modeling System](https://www.cmascenter.org/smoke/) is designed to create gridded, speciated, hourly emissions for input into CMAQ and other air quality models. SMOKE supports area, biogenic, mobile (both onroad and nonroad), and point source emissions processing for criteria, particulate, and toxic pollutants. For biogenic emissions modeling, SMOKE uses the Biogenic Emission Inventory System. **Fertilizer Emissions Processor (FEST-C)** The [Fertilizer Emission Scenario Tool for CMAQ (FEST-C)](https://www.cmascenter.org/fest-c/) system is used to generate agricultural-land nitrogen and soil information for CMAQ bi-directional NH3 modeling. FEST-C contains three main components: Java interface, Environmental Policy Integrated Climate (EPIC) model, and SA Raster Tools. The interface guides users through generating required land use and crop data and EPIC input files and simulating EPIC, and extracting EPIC output for CMAQ. FEST-C is used to create the [E2C_LU](#e2c_lu), [E2C_SOIL](#e2c_soil), and [E2C_CHEM](#e2c_chem) files discussed later in this chapter. **Processing Spatial Data with the Spatial Allocator (SA)** The [Spatial Allocator](https://www.cmascenter.org/sa-tools/) is a set of tools that helps users manipulate and generate data files related to emissions and air quality modeling. The tools perform functions similar to Geographic Information Systems (GIS), but are provided to the modeling community free of charge. In addition, the tools are designed to support some of the unique aspects of the file formats used for CMAQ, SMOKE and WRF modeling. SA is used to generate the surf zone and open ocean file that is a required input for utilizing marine emissions and chemistry in CMAQ. Some chemical mechanisms require the presence of additional variables in the ocean file which can be added by using a Python based tool. This file is discussed later in this chapter under the [OCEAN_1: Sea spray mask](#ocean_1) section. **Python tool for adding DMS and CHLO in the OCEAN file** An ocean mask file (OCEAN) containing OPEN (open ocean) and SURF (surf zone) is needed for sea spray emissions module in CMAQ. Some chemical mechanisms (e.g., CB6r5m_ae7_aq) in CMAQ include halogen and DMS chemistry which requires additional parameters in the OCEAN file: DMS (DMS concentrations in seawater) and CHLO (monthly climatological chl-a concentration from MODIS). A Python based tool has been developed for adding DMS and CHLO to the OCEAN file (PYTOOLS/dmschlo/CMAQ_DMS_ChlorA_Plot.ipynb). Not all chemical mechanisms need DMS and CHLO and some (CB6r5_ae7_aq) only need DMS. Additional information on processing data for CMAQ inputs is provided in [Appendix C](Appendix/CMAQ_UG_appendixC_spatial_data.md). ## 4.3 CMAQ Input Files [Jump to Table of Input Files](#Input_Table)
[Jump to CCTM Output Files in Chapter 7](CMAQ_UG_ch07_model_outputs.md) CMAQ requires a basic set of input files: initial condition file, which is created by ICON process or previous day output; boundary condition file, which is created by BCON process; emission files; and meteorological data created by MCIP using WRF and terrain data. Additional input files may be required based on specific run time options. CMAQ output files include a basic set of files with aerosol and gas-phase species concentrations, wet and dry deposition estimates, and visibility metrics, and an auxiliary set of output files for diagnosing model performance and in-line-calculated emissions. Model outputs are discussed in [Chapter 7](CMAQ_UG_ch07_model_outputs.md). Rather than forcing the user to deal with hard-coded file names or hard-coded unit numbers, the I/O API netCDF file format utilizes the concept of logical file names. The modelers can define the logical names as properties of a program, and then at run-time the logical names can be linked to the actual file name using environment variables. For programming purposes, the only limitations are that logical file names cannot contain blank spaces and must be at most 16 characters long. When a modeler runs a program that uses the I/O API format, environment variables must be used to set the values for the program’s logical file names. A complete list of CMAQ input is provided in [Table 4-1](#Input_Table). This section describes each of the input files required by the various CMAQ programs. The section begins with a description of the grid definition file, GRIDDESC, which is used by several CMAQ programs, and then goes through a program-by-program listing of the CMAQ input file requirements. [Table 4-1](#Input_Table) lists the source, file type (e.g. ASCII, [GRDDED3](https://www.cmascenter.org/ioapi/documentation/all_versions/html/DATATYPES.html), [BNDARY3](https://www.cmascenter.org/ioapi/documentation/all_versions/html/DATATYPES.html), etc.), and temporal and spatial dimensions of each CMAQ input file. Typical time step is 1 hour; however a user can specify a finer one, e.g. 20 minutes. In addition, typical thickness of a boundary file is 1, i.e. NTHIK = 1 but it can be any positive integer. **Table 4-1. CMAQ input files.** Note that when "Time-Dependence" is listed as "Hourly", it is shorthand for a time-varying file. It is recommended that CMAQ use a time increment that is no longer than one hour. However, CMAQ can be run with a Time Dependence that is shorter than hourly. |**Environment Variable Name for File**|**File Type**|**Time-Dependence**|**Spatial Dimensions**|**Source**|**Required**| |----------------------|-----------|-----------|----------|----------|---------| |**General**| | | ||| |[GRIDDESC](#griddesc) |ASCII|n/a|n/a|MCIP|required| |[gc_matrix_nml](#matrix_nml) |ASCII|n/a|n/a|CMAQ repo|required| |[ae_matrix_nml](#matrix_nml) |ASCII|n/a|n/a|CMAQ repo|required| |[nr_matrix_nml](#matrix_nml) |ASCII|n/a|n/a|CMAQ repo|required| |[tr_matrix_nml](#matrix_nml) |ASCII|n/a|n/a|CMAQ repo|required| |[MISC_CTRL_NML](#miscctrl) |ASCII|n/a|n/a|CMAQ repo|required| |**Initial Conditions Inputs**| | | || |[INIT_CONC_1](#init_conc_1) |GRDDED3|Time-invariant | XYZ | ICON or CCTM |required| |**Boundary Conditions Inputs**| | | | || |[BNDY_CONC_1](#bndy_conc_1) |BNDARY3| Hourly |PERIM\*Z|BCON|required| |**MCIP**| | | | ||| |[GRID_CRO_2D](#grid_cro_2d) | GRDDED3 | Time-invariant | XY | MCIP|required| |[GRID_BDY_2D](#grid_bdy_2d) | BNDARY3 | Time-invariant | PERIM\*Z | MCIP|required| |[GRID_DOT_2D](#grid_dot_2d) | GRDDED3 | Time-invariant | (X+1)\*(Y+1) | MCIP|required| |[MET_BDY_3D](#met_bdy_3d) | BNDARY3 | Hourly | PERIM\*Z | MCIP|required| |[MET_CRO_2D](#met_cro_2d) | GRDDED3 | Hourly | XY | MCIP|required| |[MET_CRO_3D](#met_cro_3d) | GRDDED3 | Hourly | XYZ | MCIP|required| |[MET_DOT_3D](#met_dot_3d) | GRDDED3 | Hourly | (X+1)\*(Y+1)Z | MCIP|required| |[LUFRAC_CRO](#lufrac_cro) | GRDDED3 | Time-invariant | XYL | MCIP|required| |[SOI_CRO](#soi_cro) | GRDDED3 | Hourly | XYS | MCIP | optional (Contains soil moisture and soil temperature in layers. A two-layer representation of those fields is currently mirrored in MET_CRO_2D.)| |[MOSAIC_CRO](#mosaic_cro) | GRDDED3| Hourly| XYM | MCIP|optional (Contains surface fields in mosaic land use categories if Noah Mosaic LSM was run in WRF. Can work with STAGE deposition in CCTM.)| |[mcip.nc](#mcip) | netCDF | varies by field | varies by field | MCIP|required if IOFORM=2 (Currently not compatible with rest of CMAQ system.)| |[mcip_bdy.nc](#mcip_bdy) | netCDF | varies by field | varies by field | MCIP|required if IOFORM=2 (Currently not compatible with rest of CMAQ system.)| |**Emissions Inputs**|||||| |[DESID_CTRL_NML](#desidctrl) |ASCII|n/a|n/a|CMAQ repo|required| |[DESID_CHEM_CTRL_NML](#desidchemctrl) |ASCII|n/a|n/a|CMAQ repo|required| |[GR_EMIS_XXX*](#emis_xxx) | GRDDED3 | Hourly | XYZ | SMOKE|required| |[STK_GRPS_XXX](#stk_grps) | GRDDED3 |Time-invariant|XY | SMOKE|required| |[STK_EMIS_XXX](#stk_emis) | GRDDED3 | Hourly | XY | SMOKE|required| |[NLDN_STRIKES](#nldn_strikes) | GRDDED3 | Hourly | XY |Must purchase data|optional for including NO from lightning| |[LTNGPARMS_FILE](#ltngparm_file) | GRDDED3 | Time-invariant | XY |CMAS|required for including NO from lightning| |**Biogenic and Land Surface Inputs**|||||| |[OCEAN_1](#ocean_1) | GRDDED3 | Time-invariant | XY |Spatial Allocator and a Python-based tool|required for running CMAQ with sea-spray aerosol, halogen or DMS chemistry| |[GSPRO](#gspro) | ASCII | Time-invariant | N/a | CMAQ repo|required for running CMAQ with online BEIS biogenics| |[BEIS_NORM_EMIS](#beis_norm_emis) | GRDDED3 | Time-invariant | XY | SMOKE|required for running CMAQ with online BEIS biogenics| |[MEGAN_CTS](#megan_cts) | GRDDED3 | Time-invariant | XYZ | MEGAN preprocessor|required for running CMAQ with online MEGAN biogenics| |[MEGAN_LDF](#megan_ldf) | GRDDED3 | Time-invariant | XY | MEGAN preprocessor|required for running CMAQ with online MEGAN biogenics| |[MEGAN_EFS](#megan_efs) | GRDDED3 | Time-invariant | XY | MEGAN preprocessor|required for running CMAQ with online MEGAN biogenics| |[MEGAN_LAI](#megan_lai) | GRDDED3 | Time-invariant | XY | MEGAN preprocessor|optional for running CMAQ with online MEGAN biogenics| |[BDSNP_AFILE](#megan_arid) | GRDDED3 | Time-invariant | XY | MEGAN preprocessor|required for BDSNP soil NO| |[BDSNP_NAFILE](#megan_nonarid) | GRDDED3 | Time-invariant | XY | MEGAN preprocessor|required for BDSNP soil NO model | |[BDSNP_LFILE](#megan_landtype) | GRDDED3 | Time-invariant | XY | MEGAN preprocessor|required for BDSNP soil NO model | |[BDSNP_FFILE](#megan_fert) | GRDDED3 | Time-invariant | XY | MEGAN preprocessor|required for BDSNP soil NO model | |[BDSNP_NFILE](#megan_ndf) | GRDDED3 | Time-invariant | XY | MEGAN preprocessor|required for BDSNP soil NO model | |[E2C_LU](#e2c_lu) | GRDDED3 | Time-invariant |XY|EPIC|required for running CMAQ with bidirectional NH3| |[E2C_SOIL](#e2c_soil) | GRDDED3 | Time-invariant | XY|EPIC|required for running CMAQ with bidirectional NH3| |[E2C_CHEM](#e2c_chem) | GRDDED3 | Daily |XY|EPIC|required for running CMAQ with bidirectional NH3| |**STAGE Deposition Option**|||||| |[STAGECTRL_NML](#stagectrl_nml) |ASCII|n/a|n/a|CMAQ repo|required| |**Photolysis** | | | ||| |[OMI](#omi) | ASCII | Daily | n/a |CMAQ repo or create_omi|required| |[OPTICS_DATA](#omi) | ASCII | n/a | n/a |CMAQ repo|required| |[CSQY_DATA](#omi) | ASCII | n/a | n/a |CMAQ repo|required| *XXX - three-digit variable indicating emission stream number. Gridded and Inline Point emissions are numbered independently. ### 4.3.1 Windowing Capability Under the assumption that all inputs utilize the same projection and grid resolution, CMAQ allows users to provide a gridded input files which covers a different geographic extent but are a proper super set of the simulation domain. Proper super set means that the simulated domain must be at least one grid cell smaller at all sides than the gridded input (see Figure 4-3-1 below). This capability excludes the chemical boundary condition file (BCFILE) which must be created for the simulated domain using the BCON program. This capability applies to meteorological data files, however, METBDY3D won't be used, and the meteorological boundary information will be extracted from METCRO3D directly. For point source files, CMAQ already can discern if a particular point source is within the simulation domain or not as long as the files also use the same projection. ![Figure 4-3-1](./images/Figure4-3-1.png) **Figure 4-3-1. Appropriate Windowing Domain illustration** ## 4.4 GRIDDESC and Species Namelist Files **GRIDDESC: Horizontal domain definition** [Return to Table 4-1](#griddesc_t) Used by: ICON, BCON, CCTM The CMAQ grid description file (**GRIDDESC**) is an ASCII file that contains two sections: a horizontal coordinate section, and domain description section. The GRIDDESC file is generated automatically by MCIP; alternatively, GRIDDESC can be created using a text editor. The horizontal coordinate section consists of text records that provide the coordinate-system name, the map projection, and descriptive parameters that define the projection. This section is used to provide projection information that is used by a family of nested domains, where the coordinate-system name is shared by each of the domains. The grid description section consists of text records that indicate the grid name, related coordinate-system name (i.e., which GRIDDESC horizontal coordinate name that is defined in the previous section that is applied to this grid), and descriptive parameters for the coordinates of the lower-left corner of the grid, grid cell size, number of columns, and rows. There are at most 32 coordinate systems and 256 grids that can be listed in one of these files. These files are small enough to be archived easily with a study and have a sufficiently simple format that can easily be constructed "by hand." The elements of the GRIDDESC files are typically included with the metadata for the output files in the CMAQ system. An example of a GRIDDESC file is shown below: ``` ' ' 'LAM_40N100W' 2 30.0 60.0 -100.0 -100.0 40.0 ' ' 'M_32_99TUT02' 'LAM_40N100W' 544000.0 -992000.0 32000.0 32000.0 38 38 1 ' ' ``` The horizontal coordinate section (first section) in this example GRIDDESC file defines a horizontal coordinate named “LAM_40N100W”. The coordinate definition is for a Lambert conformal grid, keyed by the first column of the coordinate description line, which corresponds to the numeric code for the various I/O API-supported grid types (2 = Lambert). The next three parameters (P_ALP, P_BET, and P_GAM) have different definitions for different map projections. For Lambert conformal, P_ALP and P_BET are the true latitudes of the projection cone (30°N and 60°N in the example), and P_GAM (100°W in the example) is the central meridian of the projection. The last two parameters, XCENT and YCENT, are the reference longitude and latitude for the domain, which are 100°W and 40°N in the example. The second section in the example describes a domain named “M_32_99TUT02”. In this example, the coordinate named “LAM_40N100W” is referenced in the domain definition. The next two parameters in the domain definition (XORIG and YORIG) are the east-west and north-south offsets from XCENT and YCENT in meters. The next two parameters (XCELL and YCELL) are the horizontal grid spacing in meters for the X and Y directions (i.e., Δx and Δy). The next two parameters (NCOLS and NROWS) are the numbers of grid cells in the X and Y directions. The grid definition concludes with the number of boundary cells, NTHIK, which is typically set to 1. Note that the number of boundary cells for CMAQ differs from that used by WRF. Additional information about the parameters in the GRIDDESC file can be found in the [I/O API Documentation](https://www.cmascenter.org/ioapi/documentation/all_versions/html/GRIDS.html). **{gc|ae|nr|tr}_matrix.nml: Species namelist files** [Return to Table 4-1](#matrix_nml_t) Used by: CCTM, CHEMMECH Namelist look-up tables for different classes of simulated pollutants are used to define the parameters of different model species during the execution of the CMAQ programs. Gas-phase (gc), aerosol (ae), non-reactive (nr), and tracer (tr) species namelist files contain parameters for the model species that are included in these different classifications. The species namelist files are used to control how the different CMAQ programs and processes handle the model species. The namelist files define the following processes for each model species: - Initial conditions which initial condition species is the pollutant mapped to; if not specified, this will default to the species name. - IC Factor if the pollutant is mapped to an initial condition species, uniformly apply a scaling factor to the concentrations. - Boundary conditions which boundary condition species is the pollutant mapped to; if not specified, this will default to the species name. - BC Factor if the pollutant is mapped to a boundary condition species, uniformly apply a scaling factor to the concentrations. - Deposition velocity which (if any) deposition velocity is the deposition velocity for the pollutant mapped to; allowed velocities are specified within the model source code. - Deposition velocity factor if the pollutant is mapped to a deposition velocity, uniformly apply a scaling factor to this velocity. - Scavenging - which (if any) species is the pollutant mapped to; Allowed scavenging surrogates are specified within the model source code ("[hlconst.F][link_4.4_hlconst]"). - Scavenging factor - if the pollutant is mapped to a species for scavenging, uniformly apply a scaling factor to the scavenging rate. - Gas-to-aerosol conversion which (if any) aerosol chemistry species does the gas phase pollutant concentration go into for transformation from the gas-phase to the aerosol-phase. Allowed gas-to-aerosol surrogates are specified within the model source code ("[PRECURSOR_DATA.F][link_4.4_precursor]" and "[SOA_DEFN.F][link_4.4_soa]") - Gas-to-aqueous Surrogate which (if any) cloud chemistry species does the gas pollutant concentration go into for simulating chemistry within cloud water. Allowed gas-to-aqueous surrogates are specified within the model source code and depends on the cloud model/aqueous chemistry being used (for example, for the acm_ae6, see "[AQ_DATA.F][link_4.4_aq]"). - Aerosol-to-aqueous Surrogate which (if any) cloud chemistry species does the aerosol pollutant concentration go into for simulating chemistry within cloud water. Allowed aerosol-to-aqueous surrogates are specified within the model source code and depends on the cloud model/aqueous chemistry being used (for example, for the acm_ae6, see "[AQ_DATA.F][link_4.4_aq]"). - Transport is the pollutant transported by advection and diffusion in the model? - Dry deposition Write the pollutant to the dry deposition output file? - Wet deposition Write the pollutant to the wet deposition output file? - Concentration Write the pollutant to the instantaneous concentration output file? The namelist files contain header information that describe which class of species are contained in the file, the number of parameters contained in the file, headers describing the parameter fields, and then a series of rows with configuration parameters for every model species. [Table 4-2](#Table4-2) contains the namelist file format for the gas-phase (GC) species namelist file. The namelist files for the other species classifications (AE, NR, TR) are similar to the format shown in [Table 4-2](#Table4-2). **Table 4-2. GC species namelist file format** | **Line**| **Column** |**Name** | **Type**| **Description** |**Options for Syntax**:| |-----|-----|----------------------|----------|--------------------------------------------|----------------------------| | 1 || File Type |String|String to delineate Gas Phase (GC), Aerosol (AE), Non-reactive (NR) and Tracer (TR) species namelist|{&GC_nml, &AE_nml, &NR_nml, &TR_nml}| | 3 || Header ID | String |String to define data structure relating to namelist|{GC_SPECIES_DATA=, AE_SPECIES DATA= , NR_SPECIES_DATA= ,TR_SPECIES_DATA = }| | 5 |1| SPECIES | String |CMAQ Species name, i.e. NO, HNO3, PAR; dependent on chemical mechanism|-| ||2| MOLWT| Integer |Species Molecular Weight|-| | |3| IC | String |IC surrogate species name for the CMAQ Species|{'Species name', ' '}| | |4| FAC | Integer |Scaling factor for the IC concentration|{Any real: default = -1 if IC is not specified}| | |5| BC | String |BC surrogate species name for the CMAQ Species|{'Species name', ' '}| | |6| FAC | Integer |Scaling factor for the BC concentration|{Any real: default = -1 if BC is not specified}| | |7| DRYDEP SURR | String |Deposition velocity variable name for the CMAQ Species|{'Species name', ' '}| | |8| FAC | Integer |Scaling factor for the deposition velocity|{Any real: default = -1 if SURR is not specified}| | |9| WET-SCAV SURR | String |Wet Deposition Scavenging surrogate species|{'Species name', ' '}| | | 10 | FAC | Integer |Scaling factor for Scavenging|{Any real: default = -1 if SURR is not specified}| || 11 | GC2AE SURR | String |Gas-to-aerosol transformation species|{'Species name', ' '}| || 12 | GC2AQ SURR | String |Gas-to-aqueous transformation species|{'Species name', ' '}| || 13 | TRNS | String |Transport Switch. _NOTE_: Instead of using one column labeled "TRNS" to turn/off both advection and diffusion for a pollutant, two separate columns labeled "ADV" and "DIFF" can be used to switch on/off advection and diffusion separately.|{YES/NO}| || 14 | DDEP | String |Dry deposition output file switch|{YES/NO}| || 15 | WDEP | Real |Wet deposition output file switch|{YES/NO}| || 16 | CONC | String |Concentration output file switch|{YES/NO}| The namelist files for the other pollutant classes have similar configurations as the gas-phase species configuration shown in [Table 4-2](#Table4-2). For an example see this [link][link_4.4_nml] to the GC namelist species file for the cb06r3_ae7_aq mechanism. **CMAQ_Control_Misc.nml: Miscellaneous Control Variables** [Return to Table 4-1](#miscctrl_t) Used by: ELMO, Budget Tool, DESID This control file provides an interface to activate/deactivate and set parameters for the operation of the Explicit and Lumped CMAQ Model Output module (ELMO; [Appendix F](Appendix/CMAQ_UG_appendixF_elmo_output.md)), the Budget Tool (Chapter 9), and an aspect of the DESID emissions interface. The variables for the ELMO and Budget Tool modules should be chosen in this file in the &elmo_activate, &elmo_inst, &elmo_avrg, and &Budget_Options sections. The final sections (&Chemical_FamVars and &ChemicalFamilies) allow users to define chemical families for output that can be referred to by ELMO, The Budget Tool or DESID. For example, 'NOX' may be defined as a chemical family containing 'NO' and 'NO2'. The &Chemical_FamVars section should be used to define the total number of chemical families that will be specified (N_Chem_Fams) and the maximum number of chemical species among all defined chemical families (Max_Chem_Fam_Members). For example, if a user defined three chemical families including 'NOX','AROMATICS', and 'BSOA', then a chemical family entry could be written as follows: ``` &Chem_FamVars N_Chem_Fams = 3 Max_Chem_Fam_Members = 10 / &ChemicalFamilies ChemFamilyName(1) = 'NOX' ChemFamilyMembers(1,:) = 'NO','NO2' ChemFamilyName(2) = 'AROMATICS' ChemFamilyMembers(2,:) = 'TOL','XYL','BENZ','NAPH' ChemFamilyName(3) = 'DUST' ChemFamilyMembers(3,:) = 'ACORS','ASOIL','AECI','AECJ','AFEJ','AALJ','ATIJ','ASIJ','ACAJ','AMGJ','AKJ','AMNJ' / ``` ## 4.5 Initial Conditions Input **INIT_CONC_1: Initial conditions** [Return to Table 4-1](#init_conc_1_t) Used by: CCTM The initial concentrations of each species being modeled must be input to CMAQ. The initial conditions input file type is GRDDED3 and does not vary with time. The actual file data are organized in this manner: by column, by row, by layer, by variable. Initial conditions files have the same structure as concentration files, so the predicted concentrations from the last hour of day 1 can be used to initialize the following day’s simulation. This gives CMAQ users the flexibility to segment simulations in any way they choose. ## 4.6 Boundary Conditions Input **BNDY_CONC_1: Boundary conditions** [Return to Table 4-1](#bndy_conc_1_t) Used by: CCTM CMAQ boundary condition data are of the BNDARY3 file type. Produced by the boundary condition processor, BCON, CCTM reads these data and correlates them with the interior data using a pointer system. This pointer system designates the beginning location of the data in memory that start a new side of the domain (i.e., south, east, north, or west). Consult I/O API User Guide for a pictorial description. Each species being modeled should be in the BNDY_CONC_1 file. If some modeled species are not contained in this file, the boundary condition for these species will default to the value 1 × 10e-30. The perimeter of the CMAQ domain is NTHIK cell wide (typically NTHIK = 1), where the number of boundary cells = NTHIK\*(2\*NCOLS + 2\*NROWS +4\*NTHIK). ## 4.7 Meteorological Inputs (Processed for the CMAQ System using MCIP) ``` **_MCIP output files generated when IOFORM=1 (Models-3 I/O API)_** - GRIDDESC: Grid description used throughout the CMAQ System - GRID_CRO_2D: Time-invariant 2D fields (XY) at cell centers (cross points) - GRID_BDY_2D: Time-invariant fields from GRID_CRO_2D, but along domain lateral boundaries - GRID_DOT_2D: Time-invariant 2D fields (XY) at cell corners (dot points) and cell faces - MET_CRO_2D: Time-varying 2D fields (XY) at cell centers (cross points) - MET_CRO_3D: Time-varying 3D fields (XYZ) at cell centers (cross points) - MET_BDY_3D: Time-varying fields from MET_CRO_3D, but along domain lateral boundaries - MET_DOT_3D: Time-varying 3D fields (XYZ) at cell corners (dot points) and cell faces - LUFRAC_CRO: Time-invariant 3D fractional land use (XYL) at cell corners (cross points) - SOI_CRO: Time-varying 3D soil moisture and temperature (XYS) in model soil layers at cell centers - MOSAIC_CRO: Time-varying 3D surface fields by mosaic land use category (XYM) at cell centers **_MCIP output files generated when IOFORM=2 (netCDF)_** - GRIDDESC: Grid description used throughout the CMAQ System - mcip.nc: All time-invariant and time-varying 2D and 3D fields (all dimensions) - mcip_bdy.nc: All required time-invariant and time-varying 2D and 3D fields along lateral boundaries ``` [Return to Table 4-1](#grid_cro_2d_t) Used by: ICON, BCON, CCTM, and some optional programs **Table 4-3** MCIP output variables used within the CMAQ system. All fields are located at cell centers, except where noted in the Description. The Dimensions are: XY=horizontal, T=time-varying, Z=layers above ground, S=layers below ground, L=land use categories, M=mosaic land use categories. |**Variable Name**|**Description**|**Units**|**Dimensions**|**File**|**Required**| |--------|---------------|--------------|----------|------------|----------| |LAT|latitude|degrees, where Northern Hemisphere is positive|XY|GRIDCRO2D and GRIDBDY2D, or mcip.nc and mcip_bdy.nc|yes| |LON|longitude|degrees, where Western Hemisphere is negative|XY|GRIDCRO2D and GRIDBDY2D, or mcip.nc and mcip_bdy.nc|yes| |MSFX2|squared map-scale factor|m2 m-2|XY|GRIDCRO2D and GRIDBDY2D, or mcip.nc and mcip_bdy.nc|yes| |HT|terrain elevation|m|XY|GRIDCRO2D and GRIDBDY2D, or mcip.nc and mcip_bdy.nc|yes| |DLUSE|dominant land use|category|XY|GRIDCRO2D and GRIDBDY2D, or mcip.nc and mcip_bdy.nc|yes| |LWMASK|land-water mask|1=land, 0=water|XY|GRIDCRO2D and GRIDBDY2D, or mcip.nc and mcip_bdy.nc|yes| |PURB|urban percent of cell based on land coverage|percent|XY|GRIDCRO2D and GRIDBDY2D, or mcip.nc and mcip_bdy.nc|no, but refines vertical mixing in urban areas| |LUFRAC|fraction of land use by category|1|XYL|LUFRACCRO or mcip.nc|yes| |LATD|latitude|degrees, where Northern Hemisphere is positive (at cell corners)|XY|GRIDDOT2D or mcip.nc|no| |LOND|longitude|degrees, where Western Hemisphere is negative (at cell corners)|XY|GRIDDOT2D or mcip.nc|no| |MSFD2|squared map scale factor|m2 m-2 (at cell corners)|XY|GRIDDOT2D or mcip.nc|no| |LATU|latitude|degrees, where Northern Hemisphere is positive (at cell west-east faces)|XY|GRIDDOT2D or mcip.nc|no| |LONU|longitude|degrees, where Western Hemisphere is negative (at cell west-east faces)|XY|GRIDDOT2D or mcip.nc|no| |MSFU2|squared map scale factor|m2 m-2 (at cell west-east faces)|XY|GRIDDOT2D or mcip.nc|yes| |LATV|latitude|degrees, where Northern Hemisphere is positive (at cell south-north faces)|XY|GRIDDOT2D or mcip.nc|no| |LONV|longitude|degrees, where Western Hemisphere is negative (at cell south-north faces)|XY|GRIDDOT2D or mcip.nc|no| |MSFV2|squared map scale factor|m2 m-2 (at cell south-north faces)|XY|GRIDDOT2D or mcip.nc|yes| |PRSFC|surface pressure|Pa|XYT|METCRO2D or mcip.nc|yes| |USTAR|cell-averaged horizontal friction velocity|m s-1|XYT|METCRO2D or mcip.nc|yes| |WSTAR|convective velocity scale|m s-1|XYT|METCRO2D or mcip.nc|yes| |PBL|planetary boundary layer height|m|XYT|METCRO2D or mcip.nc|yes| |ZRUF|surface roughness length|m|XYT|METCRO2D or mcip.nc|yes| |MOLI|inverse Monin-Obukhov length|m-1|XYT|METCRO2D or mcip.nc|yes| |HFX|sensible heat flux|W m-2|XYT|METCRO2D or mcip.nc|yes| |LH|latent heat flux|W m-2|XYT|METCRO2D or mcip.nc|yes| |RADYNI|inverse aerodynamic resistance|m s-1|XYT|METCRO2D or mcip.nc|yes| |RSTOMI|inverse bulk stomatal resistance|m s-1|XYT|METCRO2D or mcip.nc|yes| |TEMPG|skin temperature at ground|K|XYT|METCRO2D or mcip.nc|yes| |TEMP2|2-m temperature|K|XYT|METCRO2D or mcip.nc|yes| |Q2|2-m water vapor mixing ratio|kg kg-1|XYT|METCRO2D or mcip.nc|yes| |WSPD10|10-m wind speed|m s-1|XYT|METCRO2D or mcip.nc|yes| |WDIR10|10-m wind direction|degrees|XYT|METCRO2D or mcip.nc|no| |GLW|longwave radiation at ground|W m-2|XYT|METCRO2D or mcip.nc|yes| |GSW|solar radiation absorbed at ground|W m-2|XYT|METCRO2D or mcip.nc|yes| |RGRND|solar radiation reaching the surface|W m-2|XYT|METCRO2D or mcip.nc|yes| |RN|incremental (per output time step) nonconvective precipitation|cm|XYT|METCRO2D or mcip.nc|yes| |RC|incremental (per output time step) convective precipitation|cm|XYT|METCRO2D or mcip.nc|yes| |CFRAC|total column integrated cloud fraction|1|XYT|METCRO2D or mcip.nc|yes, if photolysis uses the table option in CCTM| |CLDT|cloud layer top height|m|XYT|METCRO2D or mcip.nc|yes, if photolysis uses the table option in CCTM| |CLDB|cloud layer bottom height|m|XYT|METCRO2D or mcip.nc|yes, if photolysis uses the table option in CCTM| |WBAR|average liquid water content of cloud|g m-3|XYT|METCRO2D or mcip.nc|yes, if photolysis uses the table option in CCTM| |SNOCOV|snow cover|1=yes, 0=no|XYT|METCRO2D or mcip.nc|yes| |VEG|vegetation coverage|1|XYT|METCRO2D or mcip.nc|yes| |LAI|leaf-area index|m2 m-2|XYT|METCRO2D or mcip.nc|yes| |WR|canopy moisture content|m|XYT|METCRO2D or mcip.nc|yes| |SEAICE|sea ice|1|XYT|METCRO2D or mcip.nc|yes| |SNOWH|snow height|m|XYT|METCRO2D or mcip.nc|yes| |SOIM1|volumetric soil moisture in top cm|m3 m-3|XYT|METCRO2D or mcip.nc|yes, but preferred to use from SOIM3D| |SOIM2|volumetric soil moisture in top m|m3 m-3|XYT|METCRO2D or mcip.nc|yes, but preferred to use from SOIM3D| |SOIT1|soil temperature in top cm|K|XYT|METCRO2D or mcip.nc|yes, but preferred to use from SOIT3D| |SOIT2|soil temperature in top m|K|XYT|METCRO2D or mcip.nc|yes, but preferred to use from SOIT3D| |SLTYP|soil texture type|1|XYT|METCRO2D or mcip.nc|yes| |WWLT_PX|soil wilting point from PX LSM|m3 m-3|XYT|METCRO2D or mcip.nc|no, but used if available| |WFC_PX|soil field capacity from PX LSM|m3 m-3|XYT|METCRO2D or mcip.nc|no, but used if available| |WSAT_PX|soil saturation from PX LSM|m3 m-3|XYT|METCRO2D or mcip.nc|no, but used if available| |CLAY_PX|clay from PX LSM|1|XYT|METCRO2D or mcip.nc|no, but used if available| |CSAND_PX|coarse sand from PX LSM|1|XYT|METCRO2D or mcip.nc|no, but used if available| |FMSAND_PX|fine-medium sand from PX LSM|1|XYT|METCRO2D or mcip.nc|no, but used if available| |JACOBF|total Jacobian at layer face|m|XYZT|METCRO3D and METBDY3D, or mcip.nc and mcip_bdy.nc|yes| |JACOBM|total Jacobian at layer middle|m|XYZT|METCRO3D and METBDY3D, or mcip.nc and mcip_bdy.nc|yes| |DENSA_J|Jacobian-weighted total air density|kg m-2|XYZT|METCRO3D and METBDY3D, or mcip.nc and mcip_bdy.nc|yes| |WHAT_JD|Jacobian- and density-weighted vertical contravariant velocity|kg m-1 s-1|XYZT|METCRO3D and METBDY3D, or mcip.nc and mcip_bdy.nc|yes| |TA| air temperature|K|XYZT|METCRO3D and METBDY3D, or mcip.nc and mcip_bdy.nc|yes| |QV| water vapor mixing ratio|kg kg-1|XYZT|METCRO3D and METBDY3D, or mcip.nc and mcip_bdy.nc|yes| |PRES| air pressure|Pa|XYZT|METCRO3D and METBDY3D, or mcip.nc and mcip_bdy.nc|yes| |DENS| air density|kg m-3|XYZT|METCRO3D and METBDY3D, or mcip.nc and mcip_bdy.nc|yes| |WWIND| vertical velocity|m s-1|XYZT|METCRO3D and METBDY3D, or mcip.nc and mcip_bdy.nc|yes| |ZH|mid-layer height above ground|m|XYZT|METCRO3D and METBDY3D, or mcip.nc and mcip_bdy.nc|yes| |ZF|full layer height above ground|m|XYZT|METCRO3D and METBDY3D, or mcip.nc and mcip_bdy.nc|yes| |TKE|turbulent kinetic energy|J kg-1|XYZT|METCRO3D and METBDY3D, or mcip.nc and met_bdy.nc|no| |PV|potential vorticity|m2 K kg-1 s-1 x 10-6|XYZT|METCRO3D and METBDY3D, or mcip.nc and mcip_bdy.nc|no, but required for PV scaling| |WWIND|vertical velocity|m s-1|XYZT|METCRO3D and METBDY3D, or mcip.nc and mcip_bdy.nc|no| |CFRAC_3D|3D resolved cloud fraction|1|XYZT|METCRO3D and METBDY3D, or mcip.nc and mcip_bdy.nc|no, but used if available| |QC|cloud water mixing ratio|kg kg-1|XYZT|METCRO3D and METBDY3D, or mcip.nc and mcip_bdy.nc|yes| |QR|rain water mixing ratio|kg kg-1|XYZT|METCRO3D and METBDY3D, or mcip.nc and mcip_bdy.nc|yes| |QI|ice mixing ratio|kg kg-1|XYZT|METCRO3D and METBDY3D, or mcip.nc and mcip_bdy.nc|no, but used if available| |QS|snow mixing ratio|kg kg-1|XYZT|METCRO3D and METBDY3D, or mcip.nc and mcip_bdy.nc|no, but used if available| |QG|graupel mixing ratio|kg kg-1|XYZT|METCRO3D and METBDY3D, or mcip.nc and mcip_bdy.nc|no, but used if available| |QC_CU|subgrid cloud water mixing ratio from KF|kg kg-1|XYZT|METCRO3D and METBDY3D, or mcip.nc and mcip_bdy.nc|no; only output if available from WRF; for future development| |QI_CU|subgrid cloud ice mixing ratio from KF|kg kg-1|XYZT|METCRO3D and METBDY3D, or mcip.nc and mcip_bdy.nc|no; only output if available from WRF; for future development| |CLDFRA_DP|subgrid deep cloud fraction|1|XYZT|METCRO3D and METBDY3D, or mcip.nc and mcip_bdy.nc|no; only output if available from WRF; for future development| |CLDFRA_SH|subgrid shallow cloud fraction|1|XYZT|METCRO3D and METBDY3D, or mcip.nc and mcip_bdy.nc|no; only output if available from WRF; for future development| |UWIND|u-component of horizontal wind (cell corners)|m s-1|XYZT|METDOT3D or mcip.nc|no| |VWIND|v-component of horizontal wind (cell corners)|m s-1|XYZT|METDOT3D or mcip.nc|no| |UHAT_JD|contravariant-U x Jacobian x density|kg m-1 s-1 [cell faces; Arakawa-C grid]|XYZT|METDOT3D or mcip.nc|yes| |VHAT_JD|contravariant-V x Jacobian x density|kg m-1 s-1 [cell faces; Arakawa-C grid]|XYZT|METDOT3D or mcip.nc|yes| |UWINDC|u-component of horizontal wind (west-east cell faces)|m s-1|XYZT|METDOT3D or mcip.nc|yes| |VWINDC|v-component of horizontal wind (south-north cell faces)|m s-1|XYZT|METDOT3D or mcip.nc|yes| |SOIT3D|soil temperature|K|XYST|SOICRO or mcip.nc|yes| |SOIM3D|soil moisture|kg kg-1|XYST|SOICRO or mcip.nc|yes| |LUFRAC2|fractional land use in mosaic categories|1|XYM|MOSAICCRO or mcip.nc|no, but can be used with STAGE deposition| |MOSCAT|mosaic land use categories|1|XYM|MOSAICCRO or mcip.nc|no, but can be used with STAGE deposition| |LAI_MOS|leaf area index (by mosaic categories)|m2 m-2|XYMT|MOSAICCRO or mcip.nc|no, but can be used with STAGE deposition| |RAI_MOS|inverse of aerodynamic resistance (by mosaic categories)|m s-1|XYMT|MOSAICCRO or mcip.nc|no, but can be used with STAGE deposition| |RSI_MOS|inverse of stomatal resistance (by mosaic categories)|m s-1|XYMT|MOSAICCRO or mcip.nc|no, but can be used with STAGE deposition| |TSK_MOS|skin temperature (by mosaic categories)|K|XYMT|MOSCRO or mcip.nc|no, but can be used with STAGE deposition| |ZNT_MOS|roughness length (by mosaic categories)|m|XYMT|MOSCRO or mcip.nc|no, but can be used with STAGE deposition| ## 4.8 Emissions Inputs **DESID_Ctrl_nml: DESID Control Namelist** [Return to Table 4-1](#desidctrl_t) In addition to the options available in the RunScript, CMAQ now reads dedicated namelists in order to apply comprehensive rules for reading and scaling emissions. The first of these namelists, called the DESID Control Namelist is named "CMAQ_Control_DESID.nml" by default. This namelist is stored in the repo in the emissions source code folder and is copied into the user's build directory when bldit_cctm.csh is executed. If the user modifies the name or location of this namelist, then the following command in the RunScript should be updated as well: ``` setenv DESID_CTRL_NML ${BLD}/CMAQ_DESID_Ctrl.nml ``` The Detailed Emissions Scaling, Isolation and Diagnostics (DESID) module included with CMAQv5.3 and beyond provides comprehensive customization and transparency of emissions manipulation to the user. The customization of emissions is accomplished via two namelist files, the first of which is the DESID Control Namelist. This namelist contains several sections of distinct options that modify the behavior of the emissions module. These include ***Desid_Options***, ***Area Normalization***, ***Size Distributions***, ***Region Definitions***, ***Stream Family Definitions***, and ***Diagnostic Output Options***. * [Jump to DESID Tutorial](Tutorials/CMAQ_UG_tutorial_emissions.md) for step by step instructions on performing some basic manipulation of emission streams. * [Jump to Emissions overview](CMAQ_UG_ch06_model_configuration_options.md) in Chapter 6 of this User's Guide. **DESID_Chem_Ctrl_nml: DESID Chemical Mapping Control Namelist** [Return to Table 4-1](#desidchemctrl_t) The second namelist used for specifying DESID operations is the DESID Chemical Mapping Control namelist, named "CMAQ_Control_DESID_[mech]". By default, every mechanism has its own version of this namelist because each is preloaded with likely rules linking emissions of important CMAQ primary species to their typical surrogate names as output by SMOKE. By default, this namelist is stored in each chemical mechanism folder (e.g. MECHS/cb6r3_ae7_aq) and is copied into the user's build directory when bldit_cctm.csh is executed. If the user modifies the name or location of this namelist, then the following command in the RunScript should be updated as well: ``` setenv DESID_CHEM_CTRL_NML ${BLD}/CMAQ_Control_DESID_[mech].nml ``` This file contains only one section, the chemical mapping table, which link chemical variables on the emissions streams (external files or online processes) to CMAQ species, and offers scaling capabilities, geographic specicficity with the regions functionalities, size distribution customization, and the use of chemical families. * [Jump to DESID Tutorial](Tutorials/CMAQ_UG_tutorial_emissions.md) for step by step instructions on performing some basic manipulation of emission streams. * [Jump to Emissions overview](CMAQ_UG_ch06_model_configuration_options.md) in Chapter 6 of this User's Guide. **GR_EMIS_XXX: Emissions** [Return to Table 4-1](#emis_xxx_t) Used by: CCTM CMAQ may accept emissions inputs from a variety of emissions models and preprocessors, as long as the input files created are compatible with I/O API format. The most commonly used software for preparing emissions inputs is the Sparse Matrix Operator Kernel Emissions (SMOKE) modeling system, which is a collection of programs that separately process and merge emissions data for each emissions stream for input to air quality models. The emissions file provides primary pollutant emission rates by model grid cell and time. The file type is GRDDED3, and the units are in moles per second (moles s-1) for gas-phase species and grams per second (g s-1) for aerosol species. The file data are looped as follows: by column, by row, by layer, by variable, and by input time step. Elevated source emission rates may be provided to CCTM as vertically resolved emissions if the GR_EMIS_XXX file is 3D. The gridded emissions files should be assigned three-digit numeric suffixes to identify them. This suffix is used to link the emission filename to user-defined stream labels and other options (e.g. GR_EMIS_LAB_XXX, GR_EM_DTOVRD_XXX). Linking and modifying emissions streams is discussed further in [Chapter 6](CMAQ_UG_ch06_model_configuration_options.md). Starting in CMAQv5.3, users can run with as many gridded emission files as desired, including zero files. Make sure the N_EMIS_GR runtime variable is set to reflect the number of gridded emission files. **STK_GRPS_XXX: Stack groups** [Return to Table 4-1](#stk_grps_t) Used by: CCTM inline emissions version only The XXX mark is unique and represents the stream identification. Make sure the N_EMIS_PT runtime variable is set to reflect the total number of inline emission streams. The stack groups file is an I/O API file containing stack parameters for elevated sources. This file can be created using the SMOKE program ELEVPOINT. For additional information about creating the stack groups file, see the [ELEVPOINT documentation](https://www.cmascenter.org/smoke/documentation/4.0/html/ch06s03.html) in the SMOKE user’s manual. **STK_EMIS_XXX: Point source emissions** [Return to Table 4-1](#stk_emis_t) Used by: CCTM inline emissions version only The XXX mark is unique and represents the stream identification. Make sure the N_EMIS_PT runtime variable is set to reflect the total number of inline emission streams. The elevated-point-source emissions file is an I/O API GRDDED3 file with emissions for point sources to be treated as elevated sources by CCTM. The emissions in this file are distributed through the vertical model layers using a plume-rise algorithm contained in CCTM. The elevated-point-source emissions file can be creating using SMOKE. For additional information about preparing point-source emissions for using the CMAQ inline plume rise calculation, see the [ELEVPOINT documentation](https://www.cmascenter.org/smoke/documentation/4.0/html/ch06s03.html) in the SMOKE user’s manual. **NLDN_STRIKES: Hourly observed lightning strikes** [Return to Table 4-1](#nldn_strikes_t) Used by: CCTM lightning NOx version only The NLDN lightning strikes file is used for calculating online NO emissions from hourly observed strike counts. (Hourly NLDN lightning strike data can be purchased from a private vendor.) This file contains the following variables interpolated to the modeling grid: **Table 4-4** Variables in hourly observed lightning strike file. |**Variable Name**|**Description**|**Units**|**Required**| |--------|-------------------|--------------|-----------| |LNT|hourly flash counts per sq. km.|km-2|yes| Use of lightning strike data in CMAQ simulations is discussed further in [Chapter 6](CMAQ_UG_ch06_model_configuration_options.md). **LTNGPARMS_FILE: Lightning parameters file** [Return to Table 4-1](#ltngparm_file_t) Used by: CCTM lightning NOx version only The lightning parameters file is used for calculating online NO emissions from hourly observed strike counts. This file can be downloaded from the [CMAS Data Warehouse](https://drive.google.com/drive/folders/1R8ENVSpQiv4Bt4S0LFuUZWFzr3-jPEeY). This file contains the following variables interpolated to the modeling grid: **Table 4-5** Variables in lightning parameters file. |**Variable Name**|**Description**|**Units**|**Required**| |--------|---------------|--------------|-----------| | SLOPE|linear equation parameter for estimating lightning flash count from hourly convective precipitation|unitless|yes| |INTERCEPT| linear equation parameter for lightning flash count from hourly convective precipitation|km-2*|yes| |SLOPE_lg| logarithmic equation parameter for estimating lightning flash count from hourly convective precipitation|unitless|yes| |INTERCEPT_lg| logarithmic equation parameter for estimating lightning flash count from hourly convective precipitation|km-2*|yes| |ICCG_SUM| Ratio of intercloud to cloud-to-ground flashes during the summer season|unitless|yes| |ICCG_WIN| Ratio of intercloud to cloud-to-ground flashes during the winter season|unitless|yes| |OCNMASK| Land/water mask to remove spurious flashes over the ocean|unitless|yes| *Regression equation generates flash counts (or log flash counts) per square km per cm convectic precipitation. Use of lightning strike data in CMAQ simulations is discussed further in [Chapter 6](CMAQ_UG_ch06_model_configuration_options.md). ## 4.9 Biogenic and Land Surface Inputs **OCEAN_1: Sea spray mask** [Return to Table 4-1](#ocean_1_t) Used by: CCTM The CMAQ sea spray emissions module requires the input of an ocean mask file (OCEAN). OCEAN is a time-independent I/O API file that identifies the fractional [0-1] coverage in each model grid cell allocated to open ocean (OPEN) or surf zone (SURF). The CCTM uses this coverage information to calculate sea spray emission fluxes from the model grid cells online during a CCTM run. Additionally, CMAQ's gas-phase chemical mechanisms except cb6r5m_ae7_aq contain an effective first order halogen mediated ozone loss over the ocean (where OPEN + SURF > 0.0). The OCEAN file is also required for this process. The cb6r5m_ae7_aq mechanism contains bromine, iodine and DMS chemistry and requires the OCEAN file with two additional variables: DMS (monthly mean climatological DMS concentrations in seawater) and CHLO (monthly mean climatological chlorophyll concentration). The cb6r5_ae7_aq mechanism contains DMS chemistry and requires the OCEAN file with DMS (monthly mean climatological DMS concentration in seawater). See the [CMAQ Ocean File Tutorial](Tutorials/CMAQ_UG_tutorial_oceanfile.md) for step by step instructions on creating this file and for adding DMS and CHLO to the ocean files. **GSPRO: Speciation profiles** [Return to Table 4-1](#gspro_t) Used by: CCTM online BEIS biogenics emissions version only The speciation profile file, GSPRO, contains the factors that are used to separate aggregated inventory pollutant emissions totals into emissions of model species in the form required by CMAQ. If only biogenic emissions are being calculated online in CMAQ, the GSPRO file used by CCTM needs to contain split factors only for the biogenic VOC emissions that are input in the B3GRD file. If other emissions sources are being calculated by CCTM, VOC split factors for these other sources must be included in the GSPRO file. The GSPRO file format is listed in the SMOKE user’s manual, see: [GSPRO documentation](https://www.cmascenter.org/smoke/documentation/4.0/html/ch08s05s02.html). **BEIS_NORM_EMIS: Gridded, normalized biogenic emissions** [Return to Table 4-1](#beis_norm_emis) Used by: CCTM online BEIS biogenics emissions version only An I/O API GRDDED3 file of gridded, normalized biogenic emissions (in grams of carbon or nitrogen per hour, depending on the species) and leaf area index. The BEIS_NORM_EMIS file contains normalized emissions calculated with both summer and winter emissions factors. The B3GRD file is generated with the SMOKE program NORMBEIS4 using gridded land use data. For additional information about creating the BEIS_NORM_EMIS file, see the [NORMBEIS4 documentation](https://www.cmascenter.org/smoke/documentation/4.9/html/ch07s11.html) in the SMOKE users’ manual. **MEGAN_CTS: canopy types** [Return to Table 4-1](#megan_cts_t) Used by: CCTM online MEGAN biogenics emissions version only The MEGAN_CTS file is an I/O API GRDDED3 file that is created using the MEGAN preprocessor. It contains canopy fraction information for six canopy types in one variable, CTS, which is nondimensional and ranges from 0-100. The vegetation types are needleleaf trees, tropical forest trees, temperate broadleaf trees, shrubs, herbaceous plants, and crops. **MEGAN_LDF: light dependence** [Return to Table 4-1](#megan_ldf_t) Used by: CCTM online MEGAN biogenics emissions version only The MEGAN_LDF file is an I/O API GRDDED3 file that is created using the MEGAN preprocessor. It contains nondimensional light dependence fractions for 4 of the 19 MEGAN chemical species. **MEGAN_EFS: emission factors** [Return to Table 4-1](#megan_efs_t) Used by: CCTM online MEGAN biogenics emissions version only The MEGAN_EFS file is an I/O API GRDDED3 file that is created using the MEGAN preprocessor. It contains emission factors for the 19 MEGAN chemical species. **MEGAN_LAI: leaf area index** [Return to Table 4-1](#megan_lai_t) Used by: CCTM online MEGAN biogenics emissions version only The MEGAN_LAI file is an I/O API GRDDED3 file that is created using the MEGAN preprocessor. It contains leaf area index that is separate from LAI values used in the rest of CMAQ. By default MEGAN will use this file for LAI, but users can choose to use the LAI values that are read in from MCIP files by setting the environmental variable USE_MEGAN_LAI to N in their run script. **BDSNP_AFILE: arid flag** [Return to Table 4-1](#megan_arid_t) Used by: CCTM online MEGAN biogenics emissions' BDSNP soil nitrogen model option The BDSNP_AFILE file is an I/O API GRDDED3 file that is created using the MEGAN preprocessor for use with the BDSNP soil nitrogen option. It identifies climatically arid grid cells with 1s and 0s. **BDSNP_NAFILE: nonarid flag** [Return to Table 4-1](#megan_nonarid_t) Used by: CCTM online MEGAN biogenics emissions' BDSNP soil nitrogen model option The BDSNP_NAFILE file is an I/O API GRDDED3 file that is created using the MEGAN preprocessor for use with the BDSNP soil nitrogen option. It identifies climatically non-arid grid cells with 1s and 0s. **BDSNP_LFILE: landfile type** [Return to Table 4-1](#megan_landtype_t) Used by: CCTM online MEGAN biogenics emissions' BDSNP soil nitrogen model option The BDSNP_LFILE file is an I/O API GRDDED3 file that is created using the MEGAN preprocessor for use with the BDSNP soil nitrogen option. It assigns each grid cell to one of 24 land types. **BDSNP_FFILE: fertilizer reservoir** [Return to Table 4-1](#megan_fert_t) Used by: CCTM online MEGAN biogenics emissions' BDSNP soil nitrogen model option The BDSNP_FFILE file is an I/O API GRDDED3 file that is created using the MEGAN preprocessor for use with the BDSNP soil nitrogen option. It contains daily fertilizer information in ng N/m2 using 366 variables. **BDSNP_NFILE: nitrogen deposition** [Return to Table 4-1](#megan_ndf_t) Used by: CCTM online MEGAN biogenics emissions' BDSNP soil nitrogen model option The BDSNP_NFILE file is an I/O API GRDDED3 file that is created using the MEGAN preprocessor for use with the BDSNP soil nitrogen option. It contains monthly average nitrogen deposition values in ng/m2/s using 12 variables. **E2C_LU Fractional crop distributions** [Return to Table 4-1](#e2c_lu_t) Used by: CCTM bidirectional NH3 flux version only Land use data including fractional crop and tree distributions gridded to the modeling domain. This data set is created when generating the land use data for EPIC simulations over the conterminous U.S. domain by the BELD4 Data Generation tool in the FEST-C interface. Detailed information on the tool and FEST-C interface are available at https://www.cmascenter.org/fest-c/. **E2C_SOIL EPIC soil properties** [Return to Table 4-1](#e2c_soil_t) Used by: CCTM bidirectional NH3 flux version only This 3-D file is created by the EPIC to CMAQ tool via the FEST-C interface. It contains soil properties for Layer 1 (0 to 1 cm depth) and Layer 2 (1 cm to 100 cm depth) and for each crop in grid cells with agricultural land. Additional information on the EPIC simulation and the FEST-C interface are available at https://www.cmascenter.org/fest-c/. **E2C_CHEM EPIC crop types and fertilizer application** [Return to Table 4-1](#e2c_chem_t) Used by: CCTM bidirectional NH3 flux version only This is a 3-D daily file created by the EPIC to CMAQ tool via the FEST-C interface. The tool extracts EPIC simulated soil chemistry information including fertilization for the Layer 1 and Layer 2 soil profiles along with plant growth information in each grid cell with agricultural land. The FEST-C interface facilitates EPIC simulations for any CMAQ modeling domain over the conterminous U.S. area. Additional information on the EPIC simulation and the FEST-C interface are available at https://www.cmascenter.org/fest-c/. ## STAGE Deposition Option **STAGECTRL_NML: STAGE Control Namelist** [Return to Table 4-1](#stagectrl_nml) **Table 4-6** Variables in the STAGE_DATA section of STAGECTRL_NML. |**Variable Name**|**Description**|**Units**| |--------|---------------|--------------| |Species Name | Deposited species name from the GR, NR, or TR namelists|unitless| |rel_rx| Relative reactivity for resistance estimates for cuticular and soil surfaces | unitless | |f0| Wesely (1989) mesophyll resistance parameter | unitless | |Molar Vol| The LeBas molar volume of the trace gas |L mol-1| |Mass accommodation coef| The probability that a trace gas molecule is incorporated into a wet surface |unitless| The STAGE_DATA section allows for the user to add species that exist in GC,TR, or NR namelists to dry deposition estiamtes without the need to recompile CMAQ. **Table 4-7** Variables in the STAGE_LU section of STAGECTRL_NML. |**Variable Name**|**Description**|**Units**| |--------|---------------|--------------| | Land Use Name | Name of the sub-grid land use | unitless | | Land Use Tag | Name of the land use tag for aggrigating data1 | unitless | | RSMIN | Minimum stomatal resistance of the land use2 | s m-1 | | Z0 | Momentum roughness lenght of the land use | m | | Max VEG | Maximum vegetation coverage of the land use taken from the MODIS MCD12Q1 documentation | % | | Min VEG | Minimum vegetation coverage of the land use taken from the MODIS MCD12Q1 documentation | % | | Max VEG | Maximum single sided leaf area index of the vegetated fraction of the land use | ratio | | Min VEG | Minimum single sided leaf area index of the vegetated fraction of the land use | ratio | | Ground NH3 Gam | NH3 emissions potential of the non-vegetated surface, e.g. leaf litter, soil, etc.3 | mol NH3 (mol H)-1 | | Veg NH3 Gam | NH3 emissions potential of the leaf mesophyll3 | mol NH3 (mol H)-1 | | Soil Hg | Soil Hg content of the land use4 | micro mol Hg (g soil)-1 | | Leaf Width | Aerodynamic leaf width | m | | Alpha | Zhang et al. 2001 land use parameter for aerosol dry deposition | unitless | | BAI | Building area index | ratio | | Ahair | Leaf hair width | m | | Fhair | Ratio of leaf covered in hair | ratio | | Aleaf | Pleim et al. 2022 aerodynamic leaf width | m | | LU Index | STAGE land use index for mapping | unitless | 1 Available land use tags are WATER, AG, AGMOS, HAY, URBAN, DECFORB, DECFORN, EVEFORB, EVEFORN, MIXFOR, HERB, SHRUB, GRASS, and WETLAND 2 This is used relatively preserving the area averaged stomatal resistance from the meteorological model 3 Used in NH3 the bidirectional exchange option. 4 Used in Hg the bidirectional exchange option. STAGE is a tiled surface exchange option that estimates deposition and emissions by land use and area weights them to the grid cell. There is the option to develop custom land use mappings to reduce the redundancy in model calculations and allow the user to customize land use specific deposition for their specific ecosystem exposure or deposition needs. The MET_TO_STAGE_LU section of CMAQ_Control_STAGE namelist allows for the mapping of the meteorological model’s land use data to the user defined STAGE land use categories. These tables have been populated for WRF implimentations of MODIS, NLCD and USGS land use types and require no further modification for the default land use mapping. **Table 4-8** Variables in the MET_TO_STAGE_LU section of STAGECTRL_NML. |**Variable Name**|**Description**| |---------------|-----------------------------| | Met_LU_Name | Name of the meteorological land use variable in LUFRAC_CRO (for documentation only) | | Met_Index | Layer of the meteorological land use variable in LUFRAC_CRO | | STAGE_LU_name | Name of the STAGE land use variable in the Land Use Name column of the STAGE_LU section of STAGECTRL_NML| | STAGE_Index | Layer of the STAGE land use variable in the LU Index column of the STAGE_LU section of STAGECTRL_NML | | Factor | Land use factor for the mapping. This must sum up to 1 for each unique element of the Met_Index | | Description | Description of the meteorological model's land use (for documentation only) | ## 4.10 Photolysis Inputs **OMI: Ozone Monitoring Instrument Column Data** [Return to Table 4-1](#omi_t) Used by: CCTM OMI ozone column data by latitude and longitude for use in the photolysis calculations. CMAQ is distributed with ozone columns from 1978 to 2019 (CCTM/src/phot/inline/OMI_1979_to_2019.dat). The data are 22.5°x10° gridded ozone columns in Dobson units. The [create_omi](../../PREP/create_omi/README.md) tool under the PREP folder can be used to create a data file to support simulations after 2019 or a data file with a finer spatial resolution. **PHOT_OPTICS: Optical and related parameters** Used by: CCTM Wavelength, optical and surface albedo parameters for CMAQ in-line photolysis calculation. The values are determined by averaging technique over the above number of wavelength bins. This file is distributed with the CMAQ code. **CSQY: Absorption cross sections & quantum yields** Used by: CCTM Wavelength and photolysis rate parameters for CMAQ in-line photolysis calculation. This file is distributed with the CMAQ code and is chemical mechanism specific. [<< Previous Chapter](CMAQ_UG_ch03_preparing_compute_environment.md) - [Home](README.md) - [Next Chapter >>](CMAQ_UG_ch05_running_a_simulation.md) CMAQv5.5 User's Guide
[link_4.2.1]: ../../PREP/mcip/ [link_4.2.2_I]: ../../PREP/bcon/src/profile [link_4.2.2_II]: ../../PREP/icon/ [link_4.2.3]: ../../PREP/bcon/ [link_4.4_hlconst]: ../../CCTM/src/cloud/acm_ae6/hlconst.F [link_4.4_precursor]: ../../CCTM/src/aero/aero6/PRECURSOR_DATA.F [link_4.4_soa]: ../../CCTM/src/aero/aero6/SOA_DEFN.F [link_4.4_aq]: ../../CCTM/src/cloud/acm_ae6/AQ_DATA.F [link_4.4_nml]: ../../CCTM/src/MECHS/cb6r3_ae7_aq/GC_cb6r3_ae7_aq.nml [link_4.2_fig2]: ./images/Figure2-1.jpg [link_4.2.1]: https://github.com/USEPA/CMAQ/blob/main/PREP/mcip/ [link_4.2.2_I]: https://github.com/USEPA/CMAQ/blob/main/PREP/bcon/src/profile [link_4.2.2_II]: https://github.com/USEPA/CMAQ/blob/main/PREP/icon/ [link_4.2.3]: https://github.com/USEPA/CMAQ/blob/main/PREP/bcon/ [link_4.4_hlconst]: https://github.com/USEPA/CMAQ/blob/main/CCTM/src/cloud/acm_ae6/hlconst.F [link_4.4_precursor]: https://github.com/USEPA/CMAQ/blob/main/CCTM/src/aero/aero6/PRECURSOR_DATA.F [link_4.4_soa]: https://github.com/USEPA/CMAQ/blob/main/CCTM/src/aero/aero6/SOA_DEFN.F [link_4.4_aq]: https://github.com/USEPA/CMAQ/blob/main/CCTM/src/cloud/acm_ae6/AQ_DATA.F [link_4.4_nml]: https://github.com/USEPA/CMAQ/blob/main/CCTM/src/MECHS/cb6r3_ae7_aq/GC_cb6r3_ae7_aq.nml [link_4.2_fig2]: https://github.com/USEPA/CMAQ/blob/main/DOCS/Users_Guide/images/Figure2-1.jpg ================================================ FILE: DOCS/Users_Guide/CMAQ_UG_ch05_running_a_simulation.md ================================================ [<< Previous Chapter](CMAQ_UG_ch04_model_inputs.md) - [Home](README.md) - [Next Chapter >>](CMAQ_UG_ch06_model_configuration_options.md) # 5. Running a CMAQ Simulation ## 5.1 Introduction During this chapter the user will learn about how to obtain the CMAQ source codes and how to set-up their CMAQ environment to complete a CMAQ simulation. It should be noted that before you can configure your CMAQ Environment, consult the chapter "Preparing to run" to see you have the minimum requirement of hardware and software on your system. ## 5.2 Getting the CMAQ Source Code CMAQ source code can be installed either using git or from tarballs downloaded from the git repository hosted by GitHub. Both options are described here. ### 5.2.1 Git Installation In the directory where you would like to install CMAQ, issue the following command to clone the official EPA GitHub repository for CMAQv5.5: `git clone -b main https://github.com/USEPA/CMAQ CMAQ_REPO` Using the git clone option, CMAQ will install into the following directories: ``` CMAQ_REPO/CCTM CMAQ_REPO/PREP CMAQ_REPO/POST CMAQ_REPO/UTIL CMAQ_REPO/PYTOOLS CMAQ_REPO/DOCS ``` ### 5.2.2 Zip file Installation Zip files of the CMAQ source code are available from the public GitHub repository. Click the button "Clone or download" from https://github.com/USEPA/CMAQ and select "Download ZIP" to download a Zip file of the CMAQ repository. Alternatively, you may download the Zip file from the [EPA CMAQ website](https://www.epa.gov/cmaq/access-cmaq-source-code). Reference input/output data for testing the installation of the software are available from the CMAS Center; *data are not available through GitHub*. You must register/login to access the source codes and data from the CMAS Center. In the directory where you would like to install CMAQ, unzip the model distribution file: `unzip CMAQ-main.zip` The following directories will be created: ``` CMAQ-main/CCTM CMAQ-main/PREP CMAQ-main/POST CMAQ-main/UTIL CMAQ-main/PYTOOLS CMAQ-main/DOCS ``` The Git and Zip file installation options will produce slightly different subdirectories on your Linux system. The base installation directory using the git clone command will be `CMAQ_REPO`; the directory from the Zip file will be `CMAQ-main`. The subsequent instructions in this guide will be based on the git clone installation. For Zip file installations, replace `CMAQ_REPO` with `CMAQ-main` in the instructions that follow. The differences in the directory names highlights the difference in functionality between the two options. Cloning the repository gives the user access to the full repository and its history, while downloading the Zip file will only give access to version 5.4. ## 5.3 The CMAQ Repository Structure After downloading the source codes the user is encouraged to look through the repository to familiarize themselves with the structure. A summarized image of the repository is shown below: ![image](https://user-images.githubusercontent.com/47453034/193078832-ca2369c8-f86a-4b81-8dbb-3bfcfc711e09.png) **Figure 5‑1. CMAQ repository structure** In this image it can be seen that there are six main sub folders within the CMAQ repository. The first folder, CCTM, houses all the source codes (i.e. Fortran/C programs) and scripts that drive the CMAQ Chemistry Transport Model (CCTM). The second folder, DOCS, contains the CMAQ User's Guide and a Developers Guide for a general description of CMAQ's open-source collaboration workflow and step-by-step instructions for how to make code contributions through GitHub. The third folder in the repository is the POST folder which contains several very useful tools for post-processing of the input/output data files. Each tool within the folder comes wth the source code, scripts and a README used to run the tool. A technical description of the tools within this folder can be found in [Chapter 8](CMAQ_UG_ch08_analysis_tools.md). The fourth folder in the repository is the PREP folder which contains several pre-processing programs that can be run before the CCTM to prepare meteorology, initial conditions and boundary conditions inputs. Similar to the POST tools, documentation on compiling and running the programs is provided within each subfolder under PREP. The fifth folder in the repository is the PYTOOLS folder. This folder holds python tools relating to OCEAN file augmentation and tools relating to PREP and POST processing of inputs for CMAQ. Similar to the PREP and POST tools, documentation on how to run these tools is provided within each subfolder under PYTOOLS. The last folder within the repository is the UTIL folder which contains useful utilities relating to the CMAQ program suite. An example is the bldmake utility which is used to compile the source code into executables when you use any of the build scripts in the CMAQ repository. Also included in this repository is a top-level README file with an overview of the contents of the release and two additional C-Shell scripts, `bldit_project.csh` and `config_cmaq.csh`. `bldit_project.csh` allows the user to extract the build and run scripts and compile the model outside of the repository, while `config_cmaq.csh` helps enforce consistent environment setting for the CMAQ project. Both these scripts will be discussed in the following sections. ## 5.4 Building CMAQ Outside of the Repository in a User-Specified Directory When cloning the repository or unpacking the tar file of the CMAQ distribution, the top-level directory is recognized by the default build and run scripts as `CMAQ_HOME` (formerly M3HOME prior to CMAQv5.2). This directory is an arbitrary base location of the CMAQ installation on your Linux system for a specific application. If the user will build and run CMAQ within the repository folder structure, then `CMAQ_HOME` does not need to be set explicitly in the `bldit_project.csh` script. If, on the other hand, the user wishes to extract the build and run scripts and compile the model outside of the repository, then `CMAQ_HOME` will need to be specified in `bldit_project.csh`. Executing `bldit_project.csh` will automatically perform this extraction and create a CMAQ folder structure under the location now specified by `CMAQ_HOME`. To perform this operation, modify the variable `CMAQ_HOME` in the `bldit_project.csh ` script to identify the folder that you would like to install the CMAQ package under. For example: ``` set CMAQ_HOME = /home/username/CMAQ_v5.5 ``` Now execute the script: ``` ./bldit_project.csh ``` It should be noted that from now on, the other CMAQ directories are referenced relative to CMAQ_HOME and it is where your CMAQ project will be run from. While this directory structure is convenient for the benchmark case and most CMAQ applications, other configurations are possible. ## 5.5 Initialization of CMAQ Environment Consistency of configuration variables is critical for building CMAQ itself, not just its libraries. Accordingly CMAQ includes the configuration script `config_cmaq.csh` to help enforce consistent environment settings for CMAQ and its associated libraries. [Appendix A](Appendix/CMAQ_UG_appendixA_model_options.md) lists the `config_cmaq.csh` variables defined for the build process and suggests values to which to set those variables. Note that for multiprocessor applications it is recommended that the Fortran MPI wrapper script mpiifort (for Intel compiler; for GNU and PGI fortran compiler, use mpifort) be specified for the Fortran compiler (myFC). Using this script, instead of a direct call to the Fortran compiler, will ensure that the full suite of MPI components (libraries and include files) for the compiler are included in the parallel build without anything provided by the user explicitly. Use the following steps to initialize your CMAQ environment: ``` source config_cmaq.csh [compiler] ``` After running the above command, it should be noticed now under CMAQ_HOME, the data file directory has been created and serves as a container for the input and output data for the model, and the lib directory contains links to the compiled binary library files required to build the CMAQ executables. The CMAQ scripts use the following environment variables to alias the locations of these directories: `CMAQ_LIB = $CMAQ_HOME/lib` (M3LIB before CMAQv5.2)
`CMAQ_DATA = $CMAQ_HOME/data` (M3DATA before CMAQv5.2) If you encounter errors about libraries not being found, check the settings of the `config_cmaq.csh` script variables IOAPI, NETCDF, or MPI to ensure that they correctly point to the locations of these libraries on your Linux system. Sourcing the `config_cmaq.csh` script only needs to be invoked during a new installation of CMAQ to make sure the links to these libraries are working correctly. For every successive session, links to these libraries will automatically be created when you run any of the build or run scripts. ## 5.6 Compiling CMAQ Chemistry-Transport Model (CCTM) After all required CMAQ inputs are generated using the preprocessors mentioned above the user is now ready to compile CCTM. CMAQ’s current coding structure is based on a modular design principle that seperates CCTM’s main driver, science modules, data estimation modules, and control/utility subroutines. Also distinguished from each other are the science models (including submodels for meteorology, emissions, chemistry-transport modeling) and the analysis and visualization subsystems. In CCTM, the process modules that affect the pollutant concentration fields are classified as listed below. Each bullet contains a description of the process followed by module name in parentheses. These modules are discussed further in [Chapter 6](CMAQ_UG_ch06_model_configuration_options.md). Science Modules: - Horizontal advection (hadv) - Vertical advection (vadv) - Horizontal diffusion (hdiff) - Vertical diffusion (vdiff) - Emissions (offline and online emissions sources) (emis) - Dry Deposition/Air Surface Exchange (depv) - Gas-phase chemical reaction solver (gas) - Aqueous-phase reactions and cloud mixing (cloud) - Aerosol dynamics and size distributions (aero) - Potential vorticity scaling for stratosphere/troposphere exchange (pv_o3) The user has the ability to configure the model in a multitude of ways by selecting from different options for each scientific process. Model configuration is split into build time options and run time options. To modify any science options during build time, edit the `bldit_cctm.csh` script. The `bldit_cctm.csh` script also contains other information, such as the option to run in single or multiprocessor mode as well as debug mode. It should be noted default build time options are alrady set within the `bldit_cctm.csh`. To modify any run time options, such as turning on in-line biogenic emission calculation or using in-line windblown dust emission, edit the run script, `run_cctm.csh`, and set the corresponding environment variable. To read more about build and run time configurations for specific scientific processes, see the next chapter [(Chapter 6)](CMAQ_UG_ch06_model_configuration_options.md). To see a complete list configuration options reference [Appendix A](Appendix/CMAQ_UG_appendixA_model_options.md). Once the `bldit_cctm.csh` script is configured to the user's preference, the user is ready to run the script to build the CCTM executable. To do this run the following commands: ``` cd $CMAQ_HOME/CCTM/scripts source bldit_cctm.csh [compiler] [version] |& tee build_cctm.log ``` The bldit script invokes the CMAQ utility program [bldmake][link_5_bldmake], which extracts source code from your CMAQ GIT repository, constructs a Makefile based on your selected options, and compiles the executable automatically. Following normal termination of the script with the default configuration, the user will notice a BLD directory created. This is the location of the CCTM executable along with the relevant source codes and the Makefile needed to build the model. In this directory a few useful commands can be used to update the executable if any changes are made to the Fortran source codes via the MakeFile. For example, if the user wants to recompile the source codes in debug mode _instead_ of re-running the `bldit_cctm.csh` script the user can use the following commands: ``` cd BLD_CCTM_v54_[compiler][version] make clean make DEBUG=TRUE ``` In another example, if the user has made any changes to the source codes in the BLD directory and wanted to update the CCTM executable to reflect these changes the user can use the following commands: ``` cd BLD_CCTM_v54_[compiler][version] make ``` The Make utility only compiles the modified files and all associated file which are defined by the dependency of each source file in the Makefile. ## 5.7 Running CCTM After setting up the CCTM executable the model is ready to be run. Much like the `bldit_cctm.csh` script, to modify any run time options edit the `run_cctm.csh` script referencing [Appendix A](Appendix/CMAQ_UG_appendixA_model_options.md) for a complete list of optional settings. After these settings have been configured use the following commands to run the script: ``` cd $CMAQ_HOME/CCTM/scripts run_cctm.csh |& tee run_cctm.log ``` ### 5.7.1 CCTM Logfiles The CCTM simulation will write two types of logfile, a main logfile (e.g. run_cctm.log) and processor-specific logfiles that have the name convention: ``` CTM_LOG_[ProcessorID].v54_[compiler]_[data_name]/_[RUNDATE].log ``` The main logfile contains extensive metadata and useful information about the details of your simulation. The following examples describe some of this information: ``` Start Model Run At Tue Sep 13 14:55:26 EDT 2022 Compiler is set to intel No compiler version given. Atmos system Detected. Assume Intel 21.0 Working Directory is ... Build Directory is ... Output Directory is ... Log Directory is ... Executable Name is CCTM_v54.exe ---CMAQ EXECUTION ID: CMAQ_CCTMv54_sha=[git-SHA]_[userID]_YYYYMMDD_hhmmss_nanosecs --- Set up input and output files for Day YYYY-MM-DD. Existing Logs and Output Files for Day YYYY-MM-DD Will Be Deleted /bin/rm: No match. CMAQ Processing of Day 20170722 Began at Tue Sep 13 14:55:26 EDT 2022 ``` This section documents the folder structure, username, and run date for the simulation, and is meant to aid in maintaining transparency of simulation results after runs have been completed. This section is followed by the CMAQ and I/O API headers, and a record of all environment variables and their values for this simulation. Next, the program outputs a table describing the domain decomposition breakdown for the run. ``` -=- MPP Processor-to-Subdomain Map -=- Number of Processors = 128 ____________________________________________________ | | | PE #Cols Col_Range #Rows Row_Range | |__________________________________________________| | | | 0 12 1: 12 24 1: 24 | | 1 12 13: 24 24 1: 24 | | 2 12 25: 36 24 1: 24 | | 3 12 37: 48 24 1: 24 | | 4 12 49: 60 24 1: 24 | | 5 12 61: 72 24 1: 24 | | 6 12 73: 84 24 1: 24 | | 7 12 85: 96 24 1: 24 | | 8 12 97: 108 24 1: 24 | | 9 12 109: 120 24 1: 24 | | 10 12 121: 132 24 1: 24 | | 11 11 133: 143 24 1: 24 | | 12 11 144: 154 24 1: 24 | | 13 11 155: 165 24 1: 24 | | 14 11 166: 176 24 1: 24 | | 15 11 177: 187 24 1: 24 | | 16 12 1: 12 24 25: 48 | | 17 12 13: 24 24 25: 48 | | 18 12 25: 36 24 25: 48 | | 19 12 37: 48 24 25: 48 | | 20 12 49: 60 24 25: 48 | | 21 12 61: 72 24 25: 48 | | 22 12 73: 84 24 25: 48 | | 23 12 85: 96 24 25: 48 | | 24 12 97: 108 24 25: 48 | | 25 12 109: 120 24 25: 48 | | 26 12 121: 132 24 25: 48 | | 27 11 133: 143 24 25: 48 | | 28 11 144: 154 24 25: 48 | | 29 11 155: 165 24 25: 48 | | 30 11 166: 176 24 25: 48 | | 31 11 177: 187 24 25: 48 | | 32 12 1: 12 24 49: 72 | | 33 12 13: 24 24 49: 72 | | 34 12 25: 36 24 49: 72 | | 35 12 37: 48 24 49: 72 | | 36 12 49: 60 24 49: 72 | | 37 12 61: 72 24 49: 72 | | 38 12 73: 84 24 49: 72 | | 39 12 85: 96 24 49: 72 | | 40 12 97: 108 24 49: 72 | | 41 12 109: 120 24 49: 72 | | 42 12 121: 132 24 49: 72 | | 43 11 133: 143 24 49: 72 | | 44 11 144: 154 24 49: 72 | | 45 11 155: 165 24 49: 72 | | 46 11 166: 176 24 49: 72 | | 47 11 177: 187 24 49: 72 | | 48 12 1: 12 23 73: 95 | | 49 12 13: 24 23 73: 95 | | 50 12 25: 36 23 73: 95 | | 51 12 37: 48 23 73: 95 | | 52 12 49: 60 23 73: 95 | | 53 12 61: 72 23 73: 95 | | 54 12 73: 84 23 73: 95 | | 55 12 85: 96 23 73: 95 | | 56 12 97: 108 23 73: 95 | | 57 12 109: 120 23 73: 95 | | 58 12 121: 132 23 73: 95 | | 59 11 133: 143 23 73: 95 | | 60 11 144: 154 23 73: 95 | | 61 11 155: 165 23 73: 95 | | 62 11 166: 176 23 73: 95 | | 63 11 177: 187 23 73: 95 | | 64 12 1: 12 23 96: 118 | | 65 12 13: 24 23 96: 118 | | 66 12 25: 36 23 96: 118 | | 67 12 37: 48 23 96: 118 | | 68 12 49: 60 23 96: 118 | | 69 12 61: 72 23 96: 118 | | 70 12 73: 84 23 96: 118 | | 71 12 85: 96 23 96: 118 | | 72 12 97: 108 23 96: 118 | | 73 12 109: 120 23 96: 118 | | 74 12 121: 132 23 96: 118 | | 75 11 133: 143 23 96: 118 | | 76 11 144: 154 23 96: 118 | | 77 11 155: 165 23 96: 118 | | 78 11 166: 176 23 96: 118 | | 79 11 177: 187 23 96: 118 | | 80 12 1: 12 23 119: 141 | | 81 12 13: 24 23 119: 141 | | 82 12 25: 36 23 119: 141 | | 83 12 37: 48 23 119: 141 | | 84 12 49: 60 23 119: 141 | | 85 12 61: 72 23 119: 141 | | 86 12 73: 84 23 119: 141 | | 87 12 85: 96 23 119: 141 | | 88 12 97: 108 23 119: 141 | | 89 12 109: 120 23 119: 141 | | 90 12 121: 132 23 119: 141 | | 91 11 133: 143 23 119: 141 | | 92 11 144: 154 23 119: 141 | | 93 11 155: 165 23 119: 141 | | 94 11 166: 176 23 119: 141 | | 95 11 177: 187 23 119: 141 | | 96 12 1: 12 23 142: 164 | | 97 12 13: 24 23 142: 164 | | 98 12 25: 36 23 142: 164 | | 99 12 37: 48 23 142: 164 | |100 12 49: 60 23 142: 164 | |101 12 61: 72 23 142: 164 | |102 12 73: 84 23 142: 164 | |103 12 85: 96 23 142: 164 | |104 12 97: 108 23 142: 164 | |105 12 109: 120 23 142: 164 | |106 12 121: 132 23 142: 164 | |107 11 133: 143 23 142: 164 | |108 11 144: 154 23 142: 164 | |109 11 155: 165 23 142: 164 | |110 11 166: 176 23 142: 164 | |111 11 177: 187 23 142: 164 | |112 12 1: 12 23 165: 187 | |113 12 13: 24 23 165: 187 | |114 12 25: 36 23 165: 187 | |115 12 37: 48 23 165: 187 | |116 12 49: 60 23 165: 187 | |117 12 61: 72 23 165: 187 | |118 12 73: 84 23 165: 187 | |119 12 85: 96 23 165: 187 | |120 12 97: 108 23 165: 187 | |121 12 109: 120 23 165: 187 | |122 12 121: 132 23 165: 187 | |123 11 133: 143 23 165: 187 | |124 11 144: 154 23 165: 187 | |125 11 155: 165 23 165: 187 | |126 11 166: 176 23 165: 187 | |127 11 177: 187 23 165: 187 | |__________________________________________________| ``` With this output, users will be able to trace issues that occur on specific processors to geographic regions of the model domain. Then, as the time-dependent portion of the model begins, output is provided for every timestep with the following form: ``` Processing Day/Time [YYYYDDD:HHMMSS]: 2017356:000000 Which is Equivalent to (UTC): 0:00:00 Friday, Dec. 22, 2017 Time-Step Length (HHMMSS): 000500 VDIFF completed... 3.7 seconds COUPLE completed... 0.1 seconds HADV completed... 8.4 seconds ZADV completed... 0.3 seconds HDIFF completed... 0.3 seconds DECOUPLE completed... 0.0 seconds PHOT completed... 1.4 seconds CLDPROC completed... 0.3 seconds CHEM completed... 1.5 seconds AERO completed... 2.5 seconds Master Time Step Processing completed... 18.7 seconds ``` This section documents the date and time the model is currently processing along with the time spent calculating every major sub-process. At the end of each simulation hour, the calculation time is also printed for the output process. ``` Processing Day/Time [YYYYDDD:HHMMSS]: 2017356:005500 Which is Equivalent to (UTC): 0:55:00 Thursday, Dec. 22, 2017 Time-Step Length (HHMMSS): 000500 VDIFF completed... 31.7 seconds COUPLE completed... 0.2 seconds HADV completed... 2.3 seconds ZADV completed... 0.4 seconds HDIFF completed... 0.5 seconds DECOUPLE completed... 0.0 seconds PHOT completed... 0.6 seconds CLDPROC completed... 19.1 seconds CHEM completed... 1.5 seconds AERO completed... 2.5 seconds Master Time Step Processing completed... 58.9 seconds =--> Data Output completed... 52.2 seconds ``` This procedure repeats for every hour of the output day until completion of that day. ``` ============================================== |>--- PROGRAM COMPLETED SUCCESSFULLY ---<| ============================================== Date and time 0:00:00 Dec. 23, 2017 (2017357:000000) The elapsed time for this simulation was 6390.3 seconds. real 6394.83 user 2000938.03 sys 827.71 CMAQ Processing of Day 20171222 Finished at Tue Sep 13 16:42:02 EDT 2022 \\\\\=====\\\\\=====\\\\\=====\\\\\=====/////=====/////=====/////=====///// ``` After the final day has been completed, summary information is printed for the computation time of every executed day. ``` ================================== ***** CMAQ TIMING REPORT ***** ================================== Start Day: 2017-12-22 End Day: 2018-01-01 Number of Simulation Days: 8 Domain Name: 12US1 Number of Grid Cells: 1538636 (ROW x COL x LAY) Number of Layers: 44 Number of Processes: 128 All times are in seconds. Num Day Wall Time 01 2017-12-22 6394.83 02 2017-12-23 6137.89 03 2017-12-24 6039.40 04 2017-12-25 6201.84 05 2017-12-26 6403.34 06 2017-12-27 6108.96 07 2017-12-28 6308.07 08 2017-12-29 6207.25 09 2017-12-30 6306.42 10 2017-12-31 6303.56 11 2018-01-01 6107.77 Total Time = 68519.33 Avg. Time = 6229.03 ``` The processor-specific logfiles provide detailed information on the operation of hundreds of model tasks from mapping variables to opening and reading input files. Warnings that may be important for users to be aware of are printed to these files. To confirm that the model ran to completion view the run.[data].log file. For MPI runs, you may check any of the CTM_LOG_[ProcessorID]*.log files. A successful run will contain the following line at the bottom of the log(s): ``` >>----> Program completed successfully <----<< ``` Note: The log file for each processor is also moved from the $CMAQ_HOME/CCTM/scripts directory to the data output directory: ``` $CMAQ_DATA/output_CCTM_v54_[compiler]/[data_name] ``` ### 5.7.2 CCTM Output files The output results will have been placed in the directory: ``` $CMAQ_DATA/output_CCTM_v54_[compiler]_[data_name] ``` and can include the following netCDF-type files: ACONC, AELMO, B3GTS_S, CGRID, CONC, DEPV, DRYDEP, DUSTEMIS, LTNGDIAG1, LTNGDIAG2, MEDIA_CONC, ELMO, RJ_1, RJ_2, RJ_3, SOILOUT, SSEMIS, VDIFF, VSED, WETDEP1, WETDEP2 and VEXT_1. The in-depth description about each of these files is described in [Chapter 7](CMAQ_UG_ch07_model_outputs.md). ### 5.7.3 Common errors causing the CCTM simulation to crash Common errors in a CCTM simulation include the following: - Incorrect paths to input files. Look in the CCTM screen output (captured in your log file) for an Error message about an input file not being found. - Incorrect MPI implementation. A series of MPI errors at the end of the log file often indicate that the MPI job was not submitted correctly. Check the last few lines of the CCTM output log for messages to help diagnose why the simulation did not complete. ## 5.8 CMAQ Benchmark Test Case See the [CMAQ Installation and Benchmarking Tutorial](Tutorials/CMAQ_UG_tutorial_benchmark.md) for step-by-step instructions for running the 2 day benchmark case and links to reference input and output data. [<< Previous Chapter](CMAQ_UG_ch04_model_inputs.md) - [Home](README.md) - [Next Chapter >>](CMAQ_UG_ch06_model_configuration_options.md)
CMAQv5.5 User's Guide
[link_5_bldmake]: ../../UTIL/bldmake/README.md [link_5_bldmake]: https://github.com/USEPA/CMAQ/blob/main/UTIL/bldmake/README.md ================================================ FILE: DOCS/Users_Guide/CMAQ_UG_ch06_model_configuration_options.md ================================================ [<< Previous Chapter](CMAQ_UG_ch05_running_a_simulation.md) - [Home](README.md) - [Next Chapter >>](CMAQ_UG_ch07_model_outputs.md) # 6. Model Configuration Options ## Table of Contents: * [6.1 Introduction](#6.1_Introduction) * [6.2 Numerical Approach](#6.2_Numerical_Approach) * [6.3 Grid Configuration](#6.3_Grid_Config) * [6.3.1 Horizontal Domains and Lateral Boundaries](#6.3.1_Horizontal_Domains) * [6.3.2 Vertical Domains](#6.3.2_Vertical_Domains) * [6.4 Science Configurations](#6.4_Science_Config) * [6.5 Advection](#6.5_Advection) * [6.6 Horizontal Diffusion](#6.6_Horizontal_Diff) * [6.7 Vertical Diffusion](#6.7_Vertical_Diff) * [6.8 Dry Deposition/Air-surface exchange](#6.8_Dry_Dep/Air) * [6.8.1 Dry Deposition - M3Dry](#6.8.1_Dry_Depm3dry) * [6.8.2 Dry Deposition - STAGE](#6.8.2_Dry_STAGE) * [6.8.3 Enhanced Ozone Deposition](#6.8.3_Enhanced_Ozone_Deposition) * [6.9 Emissions](#6.9_Emissions) * [6.9.1 Emission Streams](#6.9.1_Emission_Streams) * [6.9.2 Online Emission Streams](#6.9.2_Online_Emission) * [6.9.3 Emission Compatibility](#6.9.3_Emission_Compatibility) * [6.10 Gas Phase Chemistry](#6.10_Gas_Phase_Chem) * [6.10.1 Gas Phase Chemical Mechanisms](#6.10.1_Gas_Phase_Mech) * [6.10.2 Solvers](#6.10.2_Solver) * [6.10.3 Photolysis](#6.10.3_Photolysis) * [6.10.4 Nitrous Acid (HONO)](#6.10.4_HONO) * [6.10.5 CRACMM](#6.10.5_CRACMM) * [6.11 Aerosol Dynamics and Chemistry](#6.11_Aerosol_Dynamics) * [6.11.1 Aerosol Boundary and Initial Conditions](#6.11.1_Aero_BC) * [6.12 Aqueous Chemistry, Scavenging and Wet Deposition](#6.12_Aqueous_Chemistry) * [6.13 Potential Vorticity Scaling](#6.13_Potential_Vort) * [6.14 References](#6.14_References) ## 6.1 Introduction [Return to Top](#Return_to_Top) As discussed in [Chapter 1](CMAQ_UG_ch01_overview.md), CMAQ is a multipollutant, multiscale air quality modeling system that estimates the transport and chemistry of ozone, PM, toxic airborne pollutants, and acidic and nutrient pollutant species, as well as visibility degradation and deposition totals. CMAQ includes state-of-the-art technical and computational techniques to simulate air quality from urban to global scales. It can model complex atmospheric processes affecting transformation, transport, and deposition of air pollutants using a system architecture that is designed for fast and efficient computing. (See [Appendix D](Appendix/CMAQ_UG_appendixD_parallel_implementation.md) for an introduction on how data-parallelism can be applied in the CMAQ system to increase computational efficiency.) This chapter presents a brief overview of the conceptual formulation of Eulerian air quality modeling and the science features in various components of the Chemistry-Transport Model (CTM) component of CMAQ, CCTM. ## 6.2 Numerical Approach [Return to Top](#Return_to_Top) The theoretical basis for CMAQ’s formulation is the conservation of mass for atmospheric trace species. The general form of a chemical species equation derives from this conservation, so that changes in atmospheric concentrations of a species, Ci, can mathematically be represented as ![Equation 6-1](images/Figure6-1.JPG) where the terms on the right-hand side of the equation represent the rate of change in Ci due to advection, diffusion, cloud processes (mixing, scavenging, and aqueous-phase chemistry), dry deposition, and aerosol processes (phase partitioning, and aerosol dynamics). Rgi represents the rate of change due to gas and heterogeneous chemical reactions, while Ei is the emission rate for that species. The mass conservation for trace species and the aerosol dynamic equations for the various modes of the particulate size distribution in CMAQ are further formulated in generalized coordinates, where in the same formulation allows the model to accommodate the commonly used horizontal map projections (i.e., Lambert Conformal, Polar Stereographic, and Mercator) as well as different vertical coordinates (see Chapters 5 and 6 in Byun and Ching, 1999). The governing equation for CMAQ is numerically solved using the time-splitting or process splitting approach wherein each process equation is solved sequentially, typically with the process with the largest time-scale solved first. ## 6.3 Grid Configuration [Return to Top](#Return_to_Top) CMAQ is a three-dimensional Eulerian air quality model. To solve the governing partial differential equations, the modeling domain (that is, the volume of the atmosphere over a geographic region of interest) is discretized with three-dimensional cells. The grid cells and lateral boundaries of the domain must be rigorously and consistently defined across the scientific components of the model, including chemistry, emissions, meteorology, and other peripheral scientific processors. In other words, all components of the CMAQ system must use the same map projections and horizontal grid spacing to maintain scientific consistency across the modeling domain. The number of grid cells in the west-east dimension is typically counted in "columns" or "NCOLS", and the number of grid cells in the south-north dimension is typically counted in "rows" or "NROWS". The vertical discretization is typically counted in "layers" or "NLAYS". CMAQ uses a generalized coordinate system to map the physical space to the computational space; see Chapter 6 of Byun and Ching (1999). The generalized coordinates enable CMAQ to maintain mass consistency under different horizontal map projections (such as Lambert Conformal, Polar Stereographic, and Mercator) and under different vertical coordinate systems (such as terrain-following "sigma", height, and hybrid sigma-pressure). CMAQ supports modeling domains comprised of rectilinear cells, where the length of each _side_ of the cells in projected space is the same (such as Δx = Δy = 12 km). By contrast, the vertical grid is generally irregular, such that the modeling layers are thinnest near the ground. The absolute dimensions of the horizontal grid (that is, the west-east and south-north extents of the computational domain) can differ. In general, the characteristics of the CMAQ modeling domain (including the map projection, horizontal grid spacing, vertical grid type, and maximum areal coverage) are inherited from the meteorological model. Beginning with CMAQv5.3 and MCIPv5.0, the public release of CMAQ is only configured for meteorological data from the Weather Research and Forecasting (WRF) model. However, MCIP (which translates and prepares meteorological model data for CMAQ) can be expanded to process data from other meteorological models to be used within the CCTM. ### 6.3.1 Horizontal Domains and Lateral Boundaries [Return to Top](#Return_to_Top) After determining the horizontal and vertical extent of the domain of interest, the meteorological model must be run for a horizontal domain slightly larger than the CMAQ domain. A larger meteorology domain is required so the boundary conditions in the WRF simulation will fall outside the CMAQ simulation domain. Because there is a blend of larger-scale driving data and scale-specific physics within the WRF lateral boundaries, these data are inappropriate to use in the CCTM, so they are usually removed in MCIP. The lateral boundaries for WRF are typically a "picture frame" of the outermost 5 cells of the WRF domain. These lateral boundaries are used to blend the influence of larger-scale meteorological driving data with the WRF simulation. In WRF, the lateral boundaries are calculated and included as part of the modeling domain. By contrast, the lateral boundaries for the CCTM are external to the modeling domain. MCIP can be used to extract a subset of the WRF modeling domain (that is, a "window") to be used for the CCTM modeling domain. The window can be any rectangular area within the meteorological model's lateral boundaries, provided it contains a nominally large enough areal coverage. Horizontal grids specifications for CMAQ are contained in the grid definition file (GRIDDESC), which is output by MCIP and can be edited by the user. Further details on grid configuration are available in the [README.md][link_6.1] file in the PREP/mcip folder. If several domains have been used within a group, the horizontal domain for a given CMAQ run can be defined at runtime by setting the GRIDDESC and GRID_NAME environment variables to point to an existing grid definition file and to one of the grids defined in the file, respectively. ### 6.3.2 Vertical Domains [Return to Top](#Return_to_Top) CMAQ can support multiple vertical coordinate systems via the generalized coordinate. Most of the grid transformation to maintain mass consistency in CMAQ occurs through the mathematical term, Jacobian; see Chapter 6 of Byun and Ching (1999) and Otte and Pleim (2010). In the CMAQ system, the Jacobian is calculated in MCIP. The vertical processes in the CCTM (such as mixing within the planetary boundary layer and convective mixing) must also be cast in a flexible coordinate system. There are two options for vertical coordinates in the WRF model: terrain-following ("sigma"), and hybrid sigma-pressure. In both vertical coordinate systems, there is a "model top" employed (often called PTOP, or pressure at the top of the model) to limit the vertical extent of the modeling domain. The model top is usually set within the lower stratosphere (for example, 50 hPa), but can be higher for some modeling applications. The sigma coordinate system allows the influence of the terrain to gradually diminish with height toward the model top. The sigma coordinate (technically called "eta" in the WRF system) has been used since WRF was initially released to the public in the late 1990s. The hybrid sigma-pressure coordinate was introduced in WRFv3.9 (released in 2017), and it uses a terrain-following coordinate in the lower part of the atmosphere which transitions to a constant pressure coordinate in the upper part of the atmosphere. The hybrid sigma-pressure coordinate is often used to reduce the presence of gravity waves in the model in steep and complex terrain, and to enable a higher model top to be used. Beginning with CMAQv5.3 and MCIPv5.0, both the sigma and the hybrid sigma-pressure coordinates are supported. MCIPv5.0 was modified to calculate the Jacobian from the hybrid coordinate, and CMAQv5.3 has some scientific processes recast more generically so that both the sigma coordinate and the hybrid coordinate can be properly represented. CMAQ prior to v5.3 (and MCIP prior to v5.0) is not compatible with the hybrid coordinate system introduced in WRF 3.9. If the hybrid coordinate is used in WRF (versions 3.9 or later), MCIPv5.0 must be used with CMAQv5.3. See [Appendix E](Appendix/CMAQ_UG_appendixE_configuring_WRF.md) for notes on configuring WRF4.0 and later for use with CMAQv5.3. ## 6.4 Science Configurations [Return to Top](#Return_to_Top) CCTM contains several science configurations for simulating transport, chemistry, and deposition. All the science configuration options in CCTM, such as the chemical mechanism to be used, are set when building the executable. The model grid and vertical layer structure for CCTM are set at execution. The important distinction between selecting the science configuration and the model grid/layer configuration is that CCTM does not need to be recompiled when changing model grids/layers but does need to be recompiled when new science options are invoked. The following sections describe how these science options can be utilized by configuring the `bldit_cctm.csh` and `run_cctm.csh` scripts. For the remainder of this chapter these files will be referred to as simply BuildScript and RunScript. ## 6.5 Advection [Return to Top](#Return_to_Top) In CCTM, the 3-dimensional transport by mean winds (or advection) is numerically represented by sequentially solving locally-one dimensional equations for the two horizontal and vertical components. CMAQ uses the piecewise parabolic method (PPM) (Colella and Woodward, 1984) for representing tracer advection in each of the three directions. This algorithm is based on the finite-volume sub-grid definition of the advected scalar. In PPM, the sub-grid distribution is described by a parabola in each grid interval. PPM is a monotonic and positive-definite scheme. Positive-definite schemes maintain the sign of input values, which in this case means that positive concentrations will remain positive and cannot become negative. Mass consistency is a key desired attribute in tracer advection. Data consistency is maintained for air quality simulations by using dynamically and thermodynamically consistent meteorology data from WRF/MCIP. Mass inconsistencies can nevertheless arise either using different grid configurations (horizontal or vertical) or due to differing numerical advection schemes between the driving meteorological model and the CCTM. While inconsistencies due to the former can be eliminated through use of the same grid configurations (thus, layer collapsing is not recommended), some inconsistencies can still remain due to differing numerical representations for satisfying the mass-continuity equation between the driving meteorological model and the CCTM. These mass-inconsistencies manifest as first order terms (whose magnitude can often be comparable to tracer lifetimes if continuity is not satisfied with high accuracy) that can artificially produce or destroy mass during 3D tracer advection (e.g., Mathur and Peters, 1990). CMAQ has two options that minimize mass consistency errors in tracer advection. In one scheme (designated “local_cons” in the BuildScript), first implemented in CMAQv4.5 and later improved for CMAQv4.7.1, CMAQ advects air density and re-diagnoses the vertical velocity field according to the layer-by-layer mass continuity equation which guarantees that the CCTM advected density matches that derived from the driving meteorological inputs (e.g., Odman and Russell, 2000). Briefly, x- and y-advection are first performed (the order of these is reversed every step to minimize aliasing errors) to yield intermediate tracer and density fields. The intermediate density field is then subject to vertical advection with the PPM scheme such that it yields the WRF-derived density field at the end of the advection time-step. This scheme results in an estimated vertical velocity field that is minimally adjusted relative to the WRF derived field in the lower model layers but yields strict mass-consistent tracer advection in CMAQ. A drawback to this approach is that erroneous noise in the diagnosed vertical velocity field accumulates toward the top of the model with non-zero velocity and mass flux across the top boundary. The noise in the vertical velocity field causes excessive diffusion in upper layers. Therefore, since CMAQv5.0, a scheme designated “wrf_cons”, that closely follows the vertical velocity calculation in WRF has been available. This scheme solves the vertically integrated mass continuity equation such that the column integrated horizontal mass divergence is balanced by the net change in column mass (Skamarock et al, 2019). An advantage of this scheme is that the diagnosed vertical velocity agrees more closely with the WRF vertical velocity field with zero velocity and mass flux across the upper model boundary. Thus, the spurious velocity noise and excessive diffusion in the upper layer are eliminated. The main drawback of this scheme is that mass conservation is not guaranteed so density must be updated from the meteorology inputs every timestep. The **“WRF_CONS”** option is the recommended configuration starting CMAQv5.3. To invoke the "WRF_CONS" option in 3-D advection, set the following in the BuildScript within the CCTM Science Modules section: ``` set ModAdv = wrf_cons ``` To invoke the "LOCAL_CONS" option in 3-D advection, set the following in the BuildScript within the CCTM Science Modules section: ``` set ModAdv = local_cons ``` ***Note: The local_cons option is a legacy extension and can cause unexpected results when used.*** ## 6.6 Horizontal Diffusion [Return to Top](#Return_to_Top) The lack of adequate turbulence measurements has limited the development of robust model parameterizations for horizontal turbulent diffusion, a scale and resolution dependent problem. With the advent of very accurate minimally diffusive numerical advection schemes and need for high resolution modeling, horizontal diffusion algorithms are needed to balance the numerical diffusion inherent in advection schemes relative to the physical horizontal diffusion in the atmosphere. Currently in CMAQ, horizontal diffusion fluxes for transported pollutants are parameterized using eddy diffusion theory. The horizontal diffusivity coefficients are in turn formulated using the approach of Smagorinsky (1963) which accounts for local horizontal wind deformation and are also scaled to the horizontal grid size. ## 6.7 Vertical Diffusion [Return to Top](#Return_to_Top) The vertical diffusion model in CMAQ is the Asymmetrical Convective Model Version 2 (ACM2) (Pleim 2007a,b). The ACM2 is a combined local and non-local closure PBL scheme that is implemented in CMAQ and WRF for consistent PBL transport of meteorology and chemistry. Thus, it is recommended that the ACM2 option in WRF or MPAS also be used when preparing meteorology for CMAQ. There are two options for the ACM2 model in the BuildScript that are compatible with either the M3Dry or STAGE dry deposition options. When running m3dry dry deposition: ``` Set ModVdiff = acm2_m3dry ``` When running STAGE dry deposition: ``` Set ModVdiff = acm2_stage ``` ## 6.8 Dry Deposition/Air-surface exchange [Return to Top](#Return_to_Top) Exchange of pollutants between the atmosphere and Earth's surface can be modeled as unidirectional exchange, commonly referred to as dry deposition, or bidirectional exchange where the direction of the flux depends on the relative concentration of the pollutant in the atmosphere and the surface (e.g. soil, plant stomata). If the concentration in the atmosphere is greater than the concentration at the surface, then deposition occurs. If the concentration in the atmosphere is lower than the concentration at the surface, emission occurs. CMAQ contains algorithms for modeling either of these situations. The rate of exchange is controlled by surface characteristics such as vegetation type, leaf area index, and surface roughness as well as meteorological influences such as temperature, radiation, and surface wetness which are provided to CMAQ from the land surface model (LSM) in the driving meteorological model. Currently, most chemicals in CMAQ are modeled as depositing only. However, ammonia and mercury can be both emitted from the surface and deposited and are therefore modeled as bidirectional. Estimates of the soil and stomatal compensation concentrations needed to compute the bidirectional ammonia flux in CMAQ are derived from input provided by the Environmental Policy Integrated Climate (EPIC) agricultural ecosystem model that is executed using the Fertilizer Emission Scenario Tool for CMAQ (FEST-C, https://www.cmascenter.org/fest-c ) (Ran et al., 2011; Cooter et al., 2012). Information for surface concentrations of mercury are initially specified using land use specific tabular data and then by modeling the accumulation, transformation and evasion of mercury in the surface media (Bash 2010). Starting with CMAQ v5.3, there are two options for calculating dry deposition/surface exchange which are invoked in the BuildScript as: ``` Set DepMod = m3dry ``` or: ``` Set DepMod = stage ``` Deetails of each module are provided in the sections below. ### 6.8.1 Dry Deposition - M3Dry [Return to Top](#Return_to_Top) The M3Dry option for dry deposition and ammonia bidirectional surface flux in CMAQv5.5 is the latest update of the dry deposition model that has been in CMAQ since its initial release and was originally based on the dry deposition model developed for the Acid Deposition and Oxidant Model (ADOM) (Pleim et al., 1984). Changes from CMAQv5.4 involve only minor bug fixes. Dry deposition is computed by electrical resistance analogy where concentration gradients are analogous to voltage, flux is analogous to current, and deposition resistance is analogous to electrical resistance (Pleim and Ran, 2011). In M3Dry, several key resistances, such as aerodynamic resistance and bulk stomatal resistance, and other related parameters, such as LAI, vegetation fraction, roughness length, friction velocity etc., are expected to be provided from the meteorological inputs. Use of common model elements and parameters with the land surface model in the meteorology model ensures consistency between chemical surface fluxes and meteorological surface fluxes (moisture, heat, momentum). While the M3Dry dry deposition model was designed to be used with the PX LSM option in WRF, any LSM can be used if the necessary parameters are output and then provided for input into CMAQ. It features consideration of subgrid land-use fractions through aggregation of key model parameters, such as LAI, veg fraction, roughness length and minimum stomatal conductance, to the grid cell level. Dry deposition velocities and fluxes by landuse category for each grid cell can be computed and output for 13 major gas phase species by a postprocessor available on request. Upgrades for version 5.3 include larger surface resistances for deposition to snow and ice and reduced resistance for deposition to bare ground for ozone with dependence on surface soil moisture content. The aerosol deposition has also been revised including a new dependence on LAI. The ammonia bidirectional surface flux from croplands has been substantially revised from earlier versions. The new version has close linkages with the EPIC agricultural ecosystem model. Daily values of all soil parameters needed to compute the available soil ammonia concentrations (soil ammonia content, soil moisture, soil texture parameters, soil pH, and Cation Exchange Capacity (CEC)) for each of 21 agricultural production types that are either rainfed or irrigated (42 types total) are input to CMAQ. Soil ammonia concentrations and soil pH are combined to derive the soil compensation concentration for the bidirectional flux calculation (Pleim et al., 2019). The main upgrade for version 5.4 is the replacement of the aerosol dry deposition model with a new version that compares better to size-resolved observations, especially in forests, than the previous version and other models used in AQ modeling (Pleim et al 2022). The key innovations are dependence on leaf area index (LAI) for the vegetated part of the grid cell and two terms for inertial impaction for both macroscale obstacles (e.g., leaves and needles) and microscale obstacles (e.g., leaf hairs and microscale ridges). When the modally integrated form is applied in CMAQ, the accumulation mode deposition velocities increase by more than an order of magnitude in highly forested areas resulting in lower concentrations of PM2.5. ### 6.8.2 Dry Depostion - STAGE [Return to Top](#Return_to_Top) In CMAQ v5.3., a new tiled, land use specific, dry deposition scheme, the Surface Tiled Aerosol and Gaseous Exchange (STAGE), option has been developed to better estimate atmospheric deposition for terrestrial and aquatic ecosystem health and applications to evaluate the impact of dry deposition on ambient air quality. This new scheme explicitly supports Weather Research and Forecasting (WRF) simulations with a variety of land surface schemes (Noah, Pleim-Xiu, etc). The model resistance framework, [Figure 6-1](#Figure6-1), parameterizes air-surface exchange as a gradient process and is used for both bidirectional exchange and dry deposition following the widely used resistance model of Nemitz et al. (2001). Grid scale fluxes are estimated from sub-grid cell land use specific fluxes and are area weighted to the grid cell totals which are then output in the standard dry deposition file with positive values indicating deposition and negative values indicating evasion. The model resistances are largely estimated following Massad et al. (2010) with the following exceptions. Deposition to wetted surfaces considers the bulk accommodation coefficient, following Fahey et al. (2017), and can be a limiting factor for highly soluble compounds. The in-canopy resistance is derived using the canopy momentum attenuation parameterization from Yi (2008). Aerosol dry deposition includes parameterizations for deposition to water or bare ground surfaces (Giorgi 1986), and vegetated surfaces (Slinn 1982), using the characteristic leaf radius parameterization of Zhang et al. (2001). The ammonia bidirectional option follows the ammonia specific parameterizations of Massad et al. (2010). Mercury bidirectional exchange is also available and follows the parameterization of Bash (2010). In this modeling framework, it is possible to consider bidirectional exchange for any species by providing a parametrization or constant that sets the stomatal, cuticular, soil and/or water compensation point as a value greater than 0. The ammonia bidirectional exchange model has been found to capture the seasonality of satellite and in-situ observations ([Wang et al., 2020](https://doi.org/10.1029/2020GL090579)). In CMAQv5.4, the non-agriculture NH3 emission potentials have been revised following recent observations ([Walker et al., 2022](https://doi.org/10.5194/bg-2022-133)). STAGE ammonia bidirectional calculations rely on input files generated by EPIC and, except on the first simulation day, the results of the previous day's STAGE soil NH4 chemistry calculations that are stored in the previous day's `CCTM_MEDIA_CONC` output file. The following considerations apply when using the STAGE ammonia bidirectional module: 1. Ammonia bidirectional exchange in STAGE was developed to track the mass balance of the soil NH4 because the CMAQ-STAGE estimate of NH3 evasion differs from EPIC. The discrepancy between CMAQ-STAGE simulations of the soil NH4 in the MEDIA_CONC and EPIC input files will diverge over time due to the differences that the parameterization of model evasion have on the soil mass balance. 2. Initialization of the bidirectional exchange soil NH4 on different dates will likely result in persistent model differences that can persist for months depending on the time of the initialization and environmental conditions. 3. When performing multiyear CMAQ simulations using the ammonia bidirectional flux module, Jan. 1st of each simulation year should be initialized solely from EPIC files (i.e. not use the December 31 `CCTM_MEDIA_CONC` file from the previous year) as current versions of EPIC used in FEST-C do not reasonably simulate multiyear runs and simulations are conducted for the calendar year. ![Figure 6-1](images/Figure6_8_2.png) **Figure 6-1. STAGE resistance diagram (modified from Nemitz et al., 2001) with a table of variables descriptions.** STAGE options in the RunScript: ``` setenv CTM_MOSAIC Y ``` Sets output for land use specific dry deposition and dry deposition velocities. Note: To retrieve the grid cell average from these files it should be area weighted by the land use fraction by summing the product of the land use fraction and the dry deposition/deposition velocity for each grid cell. ``` setenv PX_VERSION Y setenv CLM_VERSION Y setenv NOAH_VERSION Y ``` Sets the correct soil hydrological properties and soil layer information needed to calculate soil NO emissions, NH3 bidirectional exchange and O3 deposition. These options are currently based on WRF 3.8.1 and earlier values for PX and CLM and WRF 4.0 for NOAH. If the land surface model is run with another look up table or parameterization, soil moisture will be constrained between saturation and residual water content from the parameterization in CMAQ. This is also the case for the m3dry deposition option, soil NO emissions, and windblown dust. In CMAQ v5.4 and beyond, the user can select one of three different aerosol deposition parameters within the STAGE deposition option. ``` setenv CTM_STAGE_P22 N setenv CTM_STAGE_E20 Y setenv CTM_STAGE_S22 N ``` CTM_STAGE_P22 is a tiled/land use specific [Pleim et al. (2022)](https://doi.org/10.1002/essoar.10510541.1) aerosol deposition option. CTM_STAGE_E20 is the tiled implementation of the [Emerson et al. (2020)](https://doi.org/10.1073/pnas.2014761117) aerosol deposition model. CTM_STAGE_S22 is the tiled version of [Shu et al. (2022)](https://doi.org/10.1016/j.atmosenv.2022.119343) aerosol deposition model (the same as the STAGE parameterization in CMAQ v5.3 STAGE). CTM_STAGE_E20 is the default option and will be used in model simulation unless one of the other options is specified. In v5.4, the user can modify land use and chemical species dependent variables used by STAGE by editing the [STAGE Control Namelist](CMAQ_UG_ch04_model_inputs.md#stagectrl_nml) to update model parameters without the need to recompile. ### 6.8.3 Enhanced Ozone Deposition The interaction of iodide in seawater with atmospheric ozone can enhance ozone deposition over seawater. CMAQ contains a scheme for enhanced ozone deposition over seawater ([Sarwar et al,. 2016](https://doi.org/10.1016/j.atmosenv.2016.06.072)). If the CTM_OCEAN_CHEM flag is set to N, then the model will not calculate the enhanced ozone deposition over seawater. ## 6.9 Emissions [Return to Top](#Return_to_Top) CMAQ introduces emissions of trace gases and aerosols from a variety of important sources (e.g. electric generating utilities, vehicles, fires, trees, dust storms, farms, etc.). Some emissions are applied in the surface layer of the model grid, while others are applied at higher altitudes if, for example, they originate from point source like an elevated stack, or a large forest fire. Many sources that are related to local meteorology may be calculated online in CMAQ. However, most sources, especially anthropogenic ones, are preprocessed using software like the Sparse Matrix Operator Kerner Emissions (SMOKE) Modeling System. Once these external tools have calculated the offline emissions, they may merge them into larger aggregated files. We refer to emissions that are either calculated online or read into CMAQ from a file as emission "streams". Because CMAQ represents both primary and secondary pollutants, emissions are processed for a subset of the species CMAQ treats. The emissions chemical speciation must be compatible with the chemical mechanism chosen for CMAQ (e.g. cb6r5_ae7_aq) because different mechanisms represent large compounds like functionalized hydrocarbons with different surrogates. The emissions mapping is carried out via the Detailed Emission Scaling, Isolation, and Diagnostic (DESID) Module. [Figure 6-2](#Figure6-2) illustrates the combination of data flowing from multiple types of emission streams into the CMAQ model system through the DESID interface. Mapping rules are prescribed in the DESID Chemical Mapping Control File, and default versions of this namelist file are provided for every chemical mechanism. If the user does not provide a Chemical Mapping Control File or the path to the file in the RunScript is incorrect, then zero emissions will be assumed for every stream. However, the configuration of various other scientific options in the RunScript (e.g. correcting for biderectional emission of fertilizer emissions) may conspire to create non-physical values for the emission rates. If the user would like all emissions set to 0, it is recommended that they use the syntax outlined in Appendix B and the DESID tutorial to do so. ![Figure 6-2](images/Figure6-2.png) **Figure 6-2. Offline and online emission streams pass pollutant emission rates to the core CMAQ model through the DESID interface.** CMAQv5.3 introduced DESID so that the process of mapping emissions species to CMAQ species would be more transparent and flexible (see [Appendix B: Emission Control with DESID](Appendix/CMAQ_UG_appendixB_emissions_control.md)). In fact, users can now toggle, modify, and augment emissions from all available streams in order to confidently customize their simulations to the science or policy questions they are asking CMAQ to help answer. For tutorials covering specific tasks, please see the [DESID tutorial page](Tutorials/CMAQ_UG_tutorial_emissions.md). ### 6.9.1 Emission Streams [Return to Top](#Return_to_Top) Depending on the nature of any stream and the information used to quantify its emissions, it may be treated as one of three types: #### Online Streams: CMAQ will calculate the emission rates from this source using information about local meteorology, land characteristics, etc. The streams that can be run online in CMAQ are: [biogenics (BEIS/MEGAN)](#BEIS/MEGAN),[ windblown dust](#Wind_Blown_Dust), [sea spray](#Sea_Spray), marine gas, and [lightning NO](#Lightning_NO). #### Gridded Stream (offline): CMAQ will read emission rates from an input file, which is organized into an array that is identical in shape to the CMAQ model grid. Typically, these rates are stored at hourly time points and are then interpolated within CMAQ to each time step. These files may be 2D to represent just the surface layer emissions or they may be 3D. If 3D, the file may have the same number or fewer number of layers as the CMAQ grid. Gridded emissions may be merged into a single stream or kept as separate types. Some common examples of Gridded emissions include: - Mobile sources such as passenger vehicles, trains, ships, scooters, etc. - Low-level point source emissions that are not large enough to be treated individually - Residential heating - Consumer product use (e.g. adhesives, personal care products, pesticides, etc.) - Agricultural (e.g. burning, dust, animal waste, etc.) - Road, Construction and mechanically generated dust - Biogenic VOCs (if not calculated online with BEIS or MEGAN) Users add Gridded emissions to a simulation via the RunScript. First the variable N_EMIS_GR must be set to the number of Gridded Streams to be used: ``` setenv N_EMIS_GR 3 ``` The RunScript must also specify the location of the input files using three-digit suffixes for the stream number: ``` setenv GR_EMIS_001 /home/user/path-to-file/emiss_stream_1_${DATE}.nc ``` the short-name label to be used to refer to the Stream in logfiles: ``` setenv GR_EMIS_LAB_001 MOBILE ``` and if the stream contains data in a representative day fashion (i.e. data from 2016 maybe used to model emissions in 2019 since the diurnal pattern maybe the same for that stream): ``` setenv GR_EM_SYM_DATE_001 F ``` Note: if GR_EM_SYM_DATE_XXX is not set, the default value for this variable is false. However, this default value can be changed using the environment variable EM_SYM_DATE like so: ``` setenv EM_SYM_DATE T #This changes the internal default of GR_EM_SYM_DATE, if not set, to true. [Default value: F] ``` Users should be careful with this variable, as it changes the default value for all gridded streams. If both EM_SYM_DATE and GR_EM_SYM_DATE_XXX are present, GR_EM_SYM_DATE_XXX takes precedent for that individual stream. Example: if GR_EM_SYM_DATE_001 is F and EM_SYM_DATE is T, the emissions module will see that stream 001 is not a symbolic data type, however, stream 002, if not set, will indicate that stream 002 is of symblic data type. If N_EMIS_GR is set 0, then CMAQ will run with no Gridded emissions even if the values for GR_EMIS_XXX and GR_EMIS_LAB_XXX are all set. #### Point Stream (offline): For these streams, emission rates and stack characteristics are provided for many individual sources on the same offline file. CMAQ uses the stack information to calculate important quantities online like the injection height which is influenced by local meteorology. A specific latitude/longitude pair is given for each source to locate it in the CMAQ grid. Sources outside the CMAQ grid domain are ignored by CMAQ; thus the same files may be used for a large domain and a nest within that domain. Some common examples of Point emissions include: - Stacks (electric generation units, industrial sources, manufacturing, etc.) - Forest fires - Large prescribed fire events Users add Point emission streams to a simulation via the RunScript. First the variable N_EMIS_PT must be set to the number of Point Streams to be used: ``` setenv N_EMIS_PT 3 ``` The RunScript must also specify the location of the input files using three-digit suffixes for the stream number: ``` setenv STK_EMIS_002 /home/user/path-to-file/point_emiss_stream_2_${DATE}.nc ``` The location to the "stack file" with static information about the properties of each source on the stream: ``` setenv STK_GRPS_002 /home/user/path-to-file/point_stack_groups_2.nc ``` the short-name label to be used to refer to the Stream in logfiles: ``` setenv STK_EMIS_LAB_002 POINT_FIRES ``` and if the stream contains data in a representative day fashion (i.e. data from 2016 maybe used to model emissions in 2019 since the diurnal pattern maybe the same for that stream): ``` setenv STK_EM_SYM_DATE_002 F ``` Note: if STK_EM_SYM_DATE_XXX is not set, the default value for this variable is false. However, this default value can be changed using the environment variable EM_SYM_DATE like so: ``` setenv EM_SYM_DATE T #This changes the internal default of STK_EM_SYM_DATE, if not set, to true. [Default value: F] ``` Users should be careful with this variable, as it changes the default value for all stack streams. If both EM_SYM_DATE and STK_EM_SYM_DATE_XXX are present, STK_EM_SYM_DATE_XXX takes precedent for that individual stream. Example: if STK_EM_SYM_DATE_001 is F and EM_SYM_DATE is T, the emissions module will see that stream 001 is not a symbolic data type, however, stream 002, if not set, will indicate that stream 002 is of symblic data type. If N_EMIS_PT is set 0, then CMAQ will run with no Point emission streams even if the values for STK_EMIS_XXX, STK_GRPS_XXX and STK_EMIS_LAB_XXX are all set. *Plume Rise* - Plume rise can be calculated online within CMAQ using the Briggs solution as it is implemented in SMOKE and documented in the SMOKE user guide [Chapter 4.3](https://www.cmascenter.org/smoke/documentation/5.0/html/ch04s03.html#sect_programs_elevpoint_briggs). It is required that emission files have been processed to include the necessary stack parameters (e.g. exit velocity, diameter, stack gas temperature, stack height, etc.) for anthropogenic point sources. Wildland fires require heat flux and are to estimate plume rise with Briggs using [the Pouliot-Godowitch method](https://www.cmascenter.org/smoke/documentation/5.0/html/ch04s06.html#sect_programs_laypoint_plume_rise_fires). ### 6.9.2 Online Emission Streams [Return to Top](#Return_to_Top) #### Biogenics To calculate online biogenic emissions, CMAQ uses the [Biogenic Emission Inventory System (BEIS)](https://www.epa.gov/air-emissions-modeling/biogenic-emission-inventory-system-beis) and the [Model of Emissions of Gases and Aerosols from Nature (MEGAN)](https://bai.ess.uci.edu/megan). Before using the CMAQ online version of BEIS or MEGAN users should confirm that biogenic emissions are not already included in their emissions files from SMOKE to avoid double counting biogenic emissions. #### BEIS BEIS calculates emissions resulting from biological activity from land-based vegetative species as well as nitric oxide emissions produced by microbial activity from certain soil types. This biogenic model is based on the same model that is included in SMOKE. User documentation for BEIS can be found in [Chapter 4.19 of the SMOKE manual](https://www.cmascenter.org/smoke/documentation/5.0/html/). Speciation of biogenic emissions for BEIS is controlled by gspro_biogenics.txt under CCTM/src/biog/beis. Running CMAQ with BEIS is controlled by the following RunScript flag: ``` setenv CTM_BIOGEMIS_BE Y ``` Running CMAQ with online BEIS requires a user-supplied, gridded normalized biogenic emissions input netCDF file, B3GRD. This file is created with the [normbeis4](https://www.cmascenter.org/smoke/documentation/5.0/html/ch04s13.html) program in SMOKE prior to running the online biogenic option in CMAQ and contains winter and summer normalized emissions and Leaf Area Indices. [Starting with CMAQ v54](../Release_Notes/CMAQ-Release-Notes:-Emissions-Updates:-BEIS-Biogenic-Emissions.md#beis-updates), the selection of summer vs. winter normalized emission factors when using the BEIS online biogenic emission option in CMAQ is based on the 1 meter soil temperature following the WRF PX LSM representation of seasonality. The location of the B3GRD file is set in the RunScript: ``` setenv B3GRD /home/user/path-to-file/b3grd.nc ``` Additionally, when using the online biogenic option, the user must point to the SOILOUT file from one day’s simulation as the SOILINP file for the next day. The user must also decide whether to write over SOILOUT files from previous days or create a uniquely named SOILOUT file for each day. The latter approach is recommended if the user wishes to retain the capability to restart simulations in the middle of a sequence of simulations. Set the NEW_START variable in the RunScript to TRUE if this is the first time that biogenic NO soil emissions will be calculated. If there is a previously created file, set to FALSE. When NEW_START is set to FALSE, the directory path and file name of biogenic NO soil emissions file must be set in the RunScript: ``` setenv NEW_START FALSE ``` ``` setenv BEIS_SOILINP /home/user/path-to-file/cctm_soilout.nc ``` #### MEGAN MEGAN also calculates emissions resulting from biological activity from land-based vegetative species as well as nitric oxide emissions produced by microbial activity from certain soil types. Speciation of biogenic emissions for MEGAN is controlled by mechanism specific *.EXT files under CCTM/src/biog/megan3. Running CMAQ with MEGAN is controlled by the following RunScript flag: ``` setenv CTM_BIOGEMIS_MG Y ``` Running CMAQ with online MEGAN requires user-supplied input netCDF files that can be created with the [MEGAN preprocessor](https://bai.ess.uci.edu/megan/data-and-code). Three files are required: ``` setenv MEGAN_CTS /home/user/path-to-file/CTS.nc ``` ``` setenv MEGAN_EFS /home/user/path-to-file/EFS.nc ``` ``` setenv MEGAN_LDF /home/user/path-to-file/LDF.nc ``` These files describe the canopy type, the emission factors for each MEGAN species, and the light dependent fraction of each grid cell. The user may also choose to set MEGAN_LAI to use a MEGAN-formatted leaf area index dataset that they might prefer. The MEGAN_SOILINP and MEGAN_SOILOUT functionality is the same as for BEIS (see above), with the addition of shortwave radiation and surface temperature values to the buffer files. #### Windblown Dust The amount of dust emitted from an arid surface depends on wind speed, surface roughness, moisture content of the soil, vegetation coverage, soil type and texture, and air density. The main mechanism behind strong dust storms is called “saltation bombardment” or “sandblasting.” The physics of saltation include the movement of sand particles due to wind, the impact of these particles to the surface that removes part of the soil volume, and the release of smaller dust particles. Following the approach described in Foroutan et al. (2017) to represent these processes, CMAQ first calculates friction velocity at the surface of the Earth. Once this friction velocity exceeds a threshold value, saltation, or horizontal movement, flux is obtained. Finally, the vertical flux of the dust is calculated based on a sandblasting efficiency formulation - a vertical-to-horizontal dust flux ratio. In its windblown dust emission calculations, CMAQ uses time-varying vegetation coverage, soil moisture and wind speed from the meteorological model, WRF. The vegetation coverage is used to adjust the erodible portion of “desert land” grid cells (discussed in the next paragraph) and its representation in WRF can vary depending on the configuration. In WRFv4.1+, the Pleim-Xiu land-surface model (PX LSM) was modified to provide CMAQ vegetation fraction (VEGF_PX in WRF renamed VEG in MCIP) from either the old fractional land use weighting table lookup method (pxlsm_modis_veg = 0), or a new option where vegetation fraction is directly read from monthly MODIS satellite-derived vegetation coverage found in the wrflowinp_d0* file(s) (pxlsm_modis_veg = 1). This was done because in recent years WRF has provided high resolution (~1 km) monthly vegetation coverage that is more accurate than tables. Updates are backward compatible with older version of MCIP or WRF as long as VEG and VEGF_PX/VEGFRA are in those files. Using the MODIS data in WRF via the new PX vegetation option provides the dust model a more accurate representation of vegetation in regions where windblown dust most occurs. CMAQ windblown dust emissions are only computed for certain land use types defined as “desert” land, i.e. erodible, arid land. During the initial development of the CMAQ windblown dust module, three such “desert” land use types were defined and information about their fractional coverage was based on the Biogenic Emissions Landuse Database (BELD) and was provided to CMAQ through a separate input file. Later developments added the option to alternatively obtain land use information directly from MCIP (which in turn reflects the land use option selected for the WRF LSM, such as NCLD40 or MODIS), internally mapping “desert” types defined for the different WRF land use options to the three different BELD “desert” categories used in the CMAQ windblown dust algorithm. This supported the calculation of windblown dust emissions for areas outside North America where BELD is not available. As of version CMAQ version 5.4, the windblown dust module no longer supports reading a separate file with BELD land use data and always uses land use information contained in the MCIP files. Users are strongly encouraged to enable the windblown dust module only for configurations using WRF version 4+. Windblown dust may only be enabled when using PX LSM input (setenv PX_VERSION Y), since other LSMs calculate soil properties at depths that are not consistent with assumptions in the windblown dust module. The CMAQ windblown dust module is controlled by the following RunScript flag: ``` setenv PX_VERSION Y setenv CTM_WB_DUST Y ``` Note that if this flag is set to N to indicate zero windblown dust emissions, users should set the CTM_EMISCHK variable in the RunScript to FALSE to avoid crashing CMAQ when it cannot find species it is looking for from dust emissions. Alternatively, users can also edit the emission control file by commenting out the coarse and fine species expected for the windblown dust module. The following species are emitted by the Dust module and may be referenced in the emission control file [Table 6-1](#Table6-1): **Table 6-1. Aerosol Species Predicted by the Windblown Dust Module** |**Dust Surrogate Name** | **Default CMAQ Species** | **Description** | | --------------- | ---------|--------------------------------------- | | PMFINE_SO4 | ASO4 | Fine-mode Sulfate | | PMCOARSE_SO4 | ASO4 | Coarse-mode Sulfate | | PMFINE_NO3 | ANO3 | Fine-mode Nitrate | | PMCOARSE_NO3 | ANO3 | Coarse-mode Nitrate | | PMFINE_CL | ACL | Fine-mode Chlorine | | PMCOARSE_CL | ACL | Coarse-mode Chlorine | | PMFINE_NH4 | ANH4 | Fine-mode Ammonium | | PMFINE_NA | ANA | Fine-mode Sodium | | PMFINE_CA | ACA | Fine-mode Calcium | | PMFINE_MG | AMG | Fine-mode Magnesium | | PMFINE_K | AK | Fine-mode Potassium | | PMFINE_POC | APOC | Fine-mode Organic Carbon | | PMFINE_PNCOM | APNCOM | Fine-mode Non-Carbon Organic Matter | | PMFINE_LVPO1 | ALVPO1 | Fine-mode Low-Volatility hydrocarbon-like OA | | PMFINE_LVOO1 | ALVOO1 | Fine-mode Low-Volatility Oxygenated OA | | PMFINE_EC | AEC | Fine-mode Black or Elemental Carbon | | PMFINE_FE | AFE | Fine-mode Iron | | PMFINE_AL | AAL | Fine-mode Aluminum | | PMFINE_SI | ASI | Fine-mode Silicon | | PMFINE_TI | ATI | Fine-mode Titanium | | PMFINE_MN | AMN | Fine-mode Manganese | | PMFINE_H2O | AH2O | Fine-mode Water | | PMCOARSE_H2O | AH2O | Coarse-mode Water | | PMFINE_OTHR | AOTHR | Fine-mode Other | | PMCOARSE_SOIL | ASOIL | Coarse-mode Non-Anion Dust | | PMFINE_MN_HAPS | AMN_HAPS | Fine-mode Air toxics Manganese | | PMCOARSE_MN_HAPS| AMN_HAPS | Coarse-mode Air toxics Manganese | | PMFINE_NI | ANI | Fine-mode Nickel | | PMCOARSE_NI | ANI | Coarse-mode Nickel | | PMFINE_CR_III | ACR_III | Fine-mode Trivalent Chromium | | PMCOARSE_CR_III | ACR_III | Coarse-mode Trivalent Chromium | | PMFINE_AS | AAS | Fine-mode Arsenic | | PMCOARSE_AS | AAS | Coarse-mode Arsenic | | PMFINE_PB | APB | Fine-mode Lead | | PMCOARSE_PB | APB | Coarse-mode Lead | | PMFINE_CD | ACD | Fine-mode Cadmium | | PMCOARSE_CD | ACD | Coarse-mode Cadmium | | PMFINE_PHG | APHG | Fine-mode Mercury | | PMCOARSE_PHG | APHG | Coarse-mode Mercury | #### Sea Spray Because sea spray particles are emitted during wave breaking and bubble bursting at the ocean surface, the main factor affecting the emission rate is the wind speed. The temperature of the ocean also affects bubble bursting and subsequent emission rate of sea spray particles. Wave breaking is enhanced near the surf zone just offshore, and CMAQ accounts for this by increasing sea spray particle emission rates in the surf zone. The current open ocean sea spray particle emission rate in CMAQ, as described in Gantt et al. (2015), is based on Gong (2003) with a temperature dependence derived from Jaeglé et al. (2011) and Ovadnevaite et al. (2014) and an adjustment of Θ from 30 to eight to account for higher accumulation mode emissions. The current surf zone sea spray particle emission rate in CMAQ as described in Gantt et al. (2015) is based on Kelly et al. (2010) with a reduction of the assumed surf zone width from 50 to 25 meters. The CMAQ sea spray emissions module is controlled by the following RunScript flag: ``` setenv CTM_OCEAN_CHEM Y ``` Speciation of sea spray emissions is controlled by AERO_DATA.F under CCTM/src/aero. Note that CMAQ employing Carbon Bond 6 version r5 with DMS and marine halogen chemistry (cb6r5m_ae7_aq) slightly modifies the speciation of Sea Spray emissions by including bromide from Sea Spray emissions. Note that if the CTM_OCEAN_CHEM flag is set to N to indicate zero sea spray emissions, users should set the CTM_EMISCHK variable in the RunScript to FALSE to avoid crashing CMAQ when it cannot find species it is looking for from sea spray. Alternatively, users can also edit the emission control file by commenting out the coarse and fine species expected for the sea spray module. The following species are emitted by the Sea Spray module and may be referenced in the emission control file [Table 6-2](#Table6-2): **Table 6-2. Aerosol Species Predicted by the Sea-Spray Aerosol Module** |**Sea Spray Surrogate Name** | **Default CMAQ Species** | **Description** | | --------------- | ---------|--------------------------------------- | | PMFINE_SO4 | ASO4 | Fine-mode Sulfate | | PMCOARSE_SO4 | ASO4 | Coarse-mode Sulfate | | PMFINE_CL | ACL | Fine-mode Chlorine | | PMCOARSE_CL | ACL | Coarse-mode Chlorine | | PMFINE_NA | ANA | Fine-mode Sodium | | PMFINE_CA | ACA | Fine-mode Calcium | | PMFINE_MG | AMG | Fine-mode Magnesium | | PMFINE_K | AK | Fine-mode Potassium | | PMCOARSE_SEACAT | ASEACAT | Coarse-mode Sea Spray Cations | | PMFINE_CR_VI | ACR_VI | Fine-mode Hexavalent Chromium | | PMFINE_NI | ANI | Fine-mode Nickel | | PMCOARSE_NI | ANI | Coarse-mode Nickel | | PMFINE_AS | AAS | Fine-mode Arsenic | | PMCOARSE_AS | AAS | Coarse-mode Arsenic | | PMFINE_BE | ABE | Fine-mode Beryllium | | PMCOARSE_BE | ABE | Coarse-mode Beryllium | | PMFINE_PHG | APHG | Fine-mode Mercury | | PMCOARSE_PHG | APHG | Coarse-mode Mercury | | PMFINE_PB | APB | Fine-mode Lead | | PMCOARSE_PB | APB | Coarse-mode Lead | | PMFINE_CD | ACD | Fine-mode Cadmium | | PMCOARSE_CD | ACD | Coarse-mode Cadmium | | PMFINE_MN_HAPS | AMN_HAPS | Fine-mode Manganese (air toxic) | | PMCOARSE_MN_HAPS| AMN_HAPS | Coarse-mode Manganese (air toxic) | | PMFINE_BR | ABR | Fine-mode Bromine | | PMCOARSE_BR | ABR | Coarse-mode Bromine | | PMFINE_H2O | AH2O | Fine-mode Water | | PMCOARSE_H2O | AH2O | Coarse-mode Water | #### Dimethyl sulfide (DMS) and Halocarbon emissions DMS and halocarbon emissions are needed for cb6r5m_ae7_aq. DMS emissions are also needed for cb6r5_ae7_aq and. DMS emissions are calculated using the monthly mean climatological DMS concentrations in seawater and halocarbon emissions are calculated using the monthly-average climatological chl-a concentrations derived from the Moderate Resolution Imaging Spectroradiometer (MODIS). Ocean file needs to include DMS and CHLO concentrations in seawater for cb6r5m_ae7_aq and DMS for cb6r5_ae7_aq. CTM_OCEAN_CHEM should be set to Y to include DMS and halocarbon emissions; otherwise CMAQ will not include any DMS or halocarbon emissions. The details of DMS emissions estimations method in CMAQ are described in Zhao et al. (2021) while the details of halocarbon emissions are described in Sarwar et al. (2015) and Sarwar et al. (2019). #### Lightning NO In retrospective applications over the continental U.S., National Lightning Detection Network (NLDN) lightning data or the scaled World Wide Lightning Location Network (WWLLNs) lightning data (Kang et al., 2022) can be used directly to generate NO produced by lightning in CMAQ. For real-time forecasts or other applications where lightning data are not available, lightning NO is produced based on statistical relationships with the simulated convective rainfall rate (Kang et al., 2019). There are two options for including NO from lighting. Both options require setting the CTM_LTNG_NO flag to Y in the RunScript. ``` setenv CTM_LTNG_NO Y ``` ##### Option 1 - Inline NO with NLDN or WWLLNs Data -- user uses hourly NLDN or WWLLNs lightning strike netCDF file. Hourly NLDN lightning strike data can be purchased, and WWLLNs data is available at (https://dataverse.unc.edu/dataset.xhtml?persistentId=doi:10.15139/S3/NK3NCM (instructions and metadata) and https://cmas-wwlln-lightning.s3.amazonaws.com/index.html#cmas-wwlln-lightning/ (Data folders)). In addition to the hourly lightning strike netCDF file, this option requires a lightning parameters netCDF file. This file contains the intercloud to cloud-to-ground flash ratios, which are the scaling factors for calculating flashes using the convective precipitation rate, land-ocean masks, and the moles of NO per flash (cloud-to-ground and intercloud). The lightning parameters file for a domain over the continental US at 12km horizontal resolution (12US1) can be downloaded from the [CMAS Data Warehouse](https://drive.google.com/drive/folders/1R8ENVSpQiv4Bt4S0LFuUZWFzr3-jPEeY). This file can be regridded to support other domains within the continental US. For this option, set the following environment variables in the RunScript: ``` setenv LTNGNO INLINE ``` ``` setenv USE_NLDN Y ``` ``` setenv NLDN_STRIKES /home/user/path-to-file/nldn(or WWLLNs)_hourly_ltng_strikes.nc ``` ``` setenv LTNGPARMS_FILE /home/user/path-to-file/LTNG_AllParms_12US1.nc ``` ##### Option 2 - Inline NO without NLDN Data -- lightning NO is calculated within CCTM based on statistical relationships with the simulated convective rainfall rate. This option also requires a lightning parameters netCDF file which contains the linear regression parameters for generating lightning NO. The lightning parameters file for the continental US at 12km horizontal resolution can be downloaded from the [CMAS Data Warehouse](https://drive.google.com/drive/folders/1R8ENVSpQiv4Bt4S0LFuUZWFzr3-jPEeY). This file can be regridded to support other domains within the continental US. For this option, set the following environment variables in the RunScript: ``` setenv LTNGNO INLINE ``` ``` setenv USE_NLDN N ``` ``` setenv LTNGPARMS_FILE /home/user/path-to-file/LTNG_AllParms_12US1.nc ``` ### 6.9.3 Emission Compatibility for CMAQv5.3+ [Return to Top](#Return_to_Top) #### Potential Combustion SOA Potential Combustion SOA (PCSOA) was added to CMAQv5.2 to account for missing PM2.5 from fossil-fuel combustion sources (Murphy et al., 2017). PCSOA is not intended to be applied to non-fossil-fuel combustion sources such as residential wood combustion (RWC). The new DESID option introduced in CMAQv5.3 introduces the ability to read multiple gridded emissions files, allowing RWC to be treated as an entirely separate emissions source from the rest of the gridded emissions. Using DESID, PCSOA can be applied to the other gridded combustion sources, but should not be used for RWC. The CRACMM mechanism does not use PCSOA. [Jump to DESID Appendix](Appendix/CMAQ_UG_appendixB_emissions_control.md) for an introduction to using the Emissions Control Namelist for customization of emissions processing. [Jump to DESID Tutorial](Tutorials/CMAQ_UG_tutorial_emissions.md) for step by step instructions on performing some basic manipulation of emission streams. #### α-Pinene separated from other monoterpenes If using chemical mechanism CB6r3 or CB6r5 and aerosol module AERO7 (cb6r3_ae7_aq or cb6r5_ae7_aq) with offline biogenic emissions, α-pinene should be separated from all other monoterpenes. This will prevent overestimation in PM2.5 SOA as α-pinene should not make SOA through nitrate radical reaction. Users can use biogenic emission files created for older model versions by updating the emission control file to separate α-pinene. No action is required for aerosol module AERO6 (any mechanism), in-line biogenics (any mechanism, any aerosol module), or aero7 with SAPRC mechanisms. See the [AERO7 overview release notes](https://github.com/USEPA/CMAQ/blob/5.3/DOCS/Release_Notes/aero7_overview.md) for further details. ## 6.10 Gas Phase Chemistry ### 6.10.1 Gas Phase Chemical Mechanisms [Return to Top](#Return_to_Top) The CMAQ modeling system accounts for chemistry in three phases: a gas, particulate (solid or liquid), and aqueous-cloud phase. Refer to the release notes to find the gas‑phase chemistry mechanisms available in each version of CMAQ. Several variations of the base gas-phase mechanisms, with and without chlorine, DMS, mercury, and toxic species chemistry, are distributed with CMAQ. The modularity of CMAQ makes it possible to create or modify the gas-phase chemical mechanism. Gas-phase chemical mechanisms are defined in CMAQ based on Fortran source files. Located in subdirectories of the CCTM/src/MECHS directory (each corresponding to a mechanism name), these files define the source, reaction parameters, and atmospheric processes (e.g., diffusion, deposition, advection) of the various mechanism species. The species definitions for each mechanism are contained in namelist files that are read in during execution of the CMAQ programs. The CMAQ mechanism configuration is more similar to the science module configuration than to the horizontal grid or vertical layer configuration in that the mechanism is defined at build time, resulting in executables that are hard-wired to a specific gas-phase mechanism. To change chemical mechanisms between simulations, a new executable that includes the desired mechanism configuration must be compiled. #### Using predefined chemical mechanisms To select a predefined mechanism configuration in CMAQ, set the *Mechanism* variable in the BuildScript to one of the mechanism names listed in [Table 6-3](#Table6-3). ``` set Mechanism = MECHANISM_NAME ``` Refer to the [README.md](../../CCTM/src/MECHS/README.md) under CCTM/src/MECHS for detailed information reactions and on model species names for each mechanism. Chemical mechanisms available with CMAQv5.5 can be found in [Table 6-3](#Table6-3). Atmospheric chemistry mechanisms of varying complexity are available to support diverse applications across scales and explore extensions for emerging problems and contaminants. **Table 6-3. Chemical Mechanisms Available with CMAQv5.5** |**Mechanism Name** | **Comment** | | ----------------- | ---------------------------------------------------- | | cb6r3_ae7_aq | Carbon Bond 6 version r3 with aero7 treatment of SOA set up for standard cloud chemistry | | cb6r5_ae7_aq | Carbon Bond 6 version r5 with aero7 treatment of SOA set up for standard cloud chemistry | | cb6r5_ae7_aqkmt2 | Carbon Bond 6 version r5 with aero7 treatment of SOA set up for expanded organic cloud chemistry version 2 | | cb6r5m_ae7_aq | Carbon Bond 6 version r5 with aero7 treatment of SOA and DMS and marine halogen chemistry set up for standard cloud chemistry | | cb6r5hap_ae7_aq | Carbon Bond 6 version r5 with air toxics and aero7 treatment of SOA set up for standard cloud chemistry | | racm2_ae6_aq | Regional Atmospheric Chemistry Mechanism version 2 with aero6 treatment of SOA set up for with standard cloud chemistry | | saprc07tic_ae7i_aq | State Air Pollution Research Center version 07tc with extended isoprene chemistry and aero7i treatment of SOA set up for with standard cloud chemistry | | saprc07tic_ae7i_aqkmt2 | State Air Pollution Research Center version 07tc with extended isoprene chemistry and aero7i treatment of SOA for expanded organic cloud chemistry version 2 | | saprc07tc_ae6_aq | State Air Pollution Research Center version 07tc with aero6 treatment of SOA set up for with standard cloud chemistry | | cracmm1_aq | Community Regional Atmospheric Chemistry Multiphase Mechanism version 1.0 | | cracmm1amore_aq | Community Regional Atmospheric Chemistry Multiphase Mechanism version 1.0 with AMORE isoprene chemistry | | cracmm2 | Community Regional Atmospheric Chemistry Multiphase Mechanism version 2.0 | | 2DVBS | The 2D-VBS mechanism is contributed by collaborators at Tsinghua University. It is built on top of SAPRC07 mechanism. This mechanism is available in a separate research branch of the CMAQ repo. Please contact Professor Bin Zhao (bzhao@mail.tsinghua.edu.cn) for more details. | ### 6.10.2 Solvers [Return to Top](#Return_to_Top) To solve the photochemistry, the model uses one of three numerical methods or solvers. They differ by accuracy, generalization, and computational efficiency, i.e. model run times. Options include Euler Backward Iterative (EBI) solver (Hertel et al., 1993), Rosenbrock (ROS3) solver (Sandu et al., 1997), and Sparse Matrix Vectorized GEAR (SMVGEAR) solver (Jacobson and Turco, 1994). The EBI solver is the default method for all chemical mechanisms except cb6r5m_ae7_aq because it is the fastest but is less accurate and must be _tailored_ for each mechanism. The dafault solver for cb6r5m_ae7_aq is ROS3 since it is faster than the EBI solver. The BuildScript defines which EBI solver to use as below. ``` set ModGas = gas/ebi_${Mechanism} ``` If a user creates new FORTRAN modules representing the photochemical mechanism or modifies the existing modules, they must create a new EBI solver by using the create_ebi utility. Documentation on compiling and running create_ebi is available under the [UTIL/create_ebi][link_6.10.1] folder. To examine if the newly created EBI solver is working properly, CMAQ results with the EBI solver can be compared to those obtained with the SMVGEAR or ROS3 solver for a few days. The remaining two solvers, SMVGEAR and ROS3, are more accurate and less prone to convergence errors. Both methods are labeled as “generalized” because they only require the mechanism’s namelist and FORTRAN modules representing the photochemical mechanism. Rosenbrock is preferred over SMVGEAR because it several times fasterr. To use either SMVGEAR and ROS3, the BuildScript defines ModGas as below. ``` set ModGas = gas/smvgear ``` or ``` set ModGas = gas/ros3 ``` ### 6.10.3 Photolysis [Return to Top](#Return_to_Top) All the mechanisms include photolysis rates. The BuildScript has two options for calculating the rates. ``` set ModPhot = phot/inline ``` or ``` set ModPhot = phot/table ``` The in-line method (Binkowski et al., 2007) is the preferred option because it includes feedbacks from meteorology in addition to predicted ozone and aerosol concentrations. Starting CMAQv5.5, the in-line methods includes options for calculating the aerosol optical properties used to calculated photolysis frequencies. The model RunScript toggles between the options using the environmental variable "AEROSOL_OPTICS". The table below summarizes these options: | **AEROSOL_OPTICS value**|**In-line Photolysis Method**|**Description**| |:--------------:|:----:|:--------:| | 1 | Tabular Mie | Adapts a look-up table and interpolation method for aerosol optical properteis described by Fast et al. (2006). The table is created in-line and saved to an ASCII file when NEW_START equals true or when the ASCII file is missing. The model run-script controls the location of the table by the line, "setenv MIE_TABLE ${SOMELOCATION}"". | | 2 | MieCalc | Solution to Mie Scattering Theory for a uniformly mixed sphere whose refractive index is a volume weighted average of the aerosol modal component's refractive indicies (Bohren et al., 1998). | | 3 | Fast Optics | The default option employed in Binkowski et al. (2007) uses case approximations of Mie Scattering Theory for a uniformly mixed sphere. | | 4 | Core-shell + Tabular Mie | Option where the internal structure of an aerosol is represented as a by a black carbon core surrounded by a shell with a volume-averaged refractive index. If the black carbon component of the aerosol modal volume makes up more than one billionth of the modal volume the Coreshell method is used, otherwise an aerosol mode's optical properties are determined by Tabular Mie. | | 5 | Core-shell + MieCalc | Option where the internal structure of an aerosol is represented as a by a black carbon core surrounded by a shell with a volume-averaged refractive index. If the black carbon component of the aerosol modal volume makes up more than one billionth of the modal volume the Coreshell method is used, otherwise an aerosol mode's optical properties are determined by MieCalc.| | 6 | Core-shell + Fast Optics | Option where the internal structure of an aerosol is represented as a by a black carbon core surrounded by a shell with a volume-averaged refractive index. If the black carbon component of the aerosol modal volume makes up more than one billionth of the modal volume the Coreshell method is used, otherwise an aerosol mode's optical properties are determined by Fast Optics. | **Selecting the value of AEROSOL_OPTICS is based on several factors**. _How important is light extinction by aerosols in determining photolysis frequencies_ and _how should the model represent the internal structure of aerosols for computing optical properties of aerosol?_ Aerosol concentrations may have large effects on photolysis where they are expected to be high such as fire episodes or polluted urban areas with large emissions of elemental carbon. To compute aerosol optical properties, the model may use an internal aerosol structure assuming a sphere with carbon core surrounded by a uniformly mixed shell. AEROSOL_OPTICS then has a value set to 4 through 6 where Core-shell (Bohren at al., 1998) is used. If such scenarios lack high emissions of elemental carbon, AEROSOL_OPTICS can equal 1 or 2 for more accurately calculating light absorption and scattering by aerosols. Tabular Mie and MieCalc options assume a uniformly mixed sphere to calculate aerosol optical properties. _How accurate do the computed properties need to be?_ If predicted optical properties are going to be compared to observations with large variability or small values such as aerosol scattering coefficient, asymmetry parameter, and absorption aerosol optical depth, the AEROSOL_OPTICS value should equal 2 or 4 that use exact solutions to Mie Scattering Theory. _What is the acceptable run-time of daily simulations?_ Exact solutions of Mie Scattering Theory increase model run-time. Option 2, MieCalc, can increase run-time between 50% to 100% while Core-shell options, 4 through 6, can increase run-time between 100% to 400%. The increase is measured against the oldest and default option, the Fast Optics. Tests indicate that the newest option, Tabular Mie, has similar run-times to Fast Optics but produces results closer to MieCal. Three other ASCII files support the in-line method. **PHOT_OPTICS** describes the optical properties of clouds, aerosols, and the earth’s surface. The **OMI** file is used to determine how much light is absorbed by ozone above the model domain. Both files are included in the released version of CMAQ. Calculating photolysis rates uses one more file, the **CSQY_DATA_${Mechanism}** file, that depends on the mechanism used. It contains the cross sections and quantum yields of photolysis rates used by the mechanism. The files are provided for each mechanism in a released version of CMAQ. If a user creates a mechanism using new or additional photolysis rates, they have to create a new **CSQY_DATA_${Mechanism}** file. The [inline_phot_preproc utility][link_6.10.2_II] produces this file based on the Fortran modules describing the mechanism and data files describing the absorption cross-section and quantum yields described for each photolysis reaction. The CCTM RunScript sets values for each file's path through the environment variables OPTICS_DATA, OMI, and CSQY_DATA. The phot/table build option uses look-up tables that contain photolysis rates under cloud free conditions based on a fixed meridional cross-section of atmospheric composition, temperature, density and aerosols. The values represent rates as a function of altitude, latitude and the hour angle of the sun on a specified Julian date. In model simulations, the method interpolates rates in the table for the date and corrects them to account for clouds described by the meteorology. Tables are dependent on the photochemical mechanism used. The [jproc utility][link_6.10.2] creates them based on the photochemical mechanism's FORTRAN modules. The CCTM RunScript sets the value for a table's path with the environment variable XJ_DATA. ### 6.10.4 Nitrous Acid (HONO) [Return to Top](#Return_to_Top) In CMAQ, HONO is produced from emissions, gas-phase chemical reactions, and a heterogenous reaction on aerosol and ground surfaces. The contribution of emissions to HONO production is accounted for by including HONO emissions estimates from certain combustion sources. Each gas-phase chemical mechanism contains several gas-phase chemical reactions which also contributes to the HONO production. The heterogeneous production of HONO from the interaction of NO2 on aerosol surface is accounted for by including a heterogeneous reaction in the chemical mechanism. The heterogeneous production of HONO from the interaction of NO2 on ground surface is included in the air-surface exchange calculation and is controlled by the following RunScript flag: ``` setenv CTM_SFC_HONO Y ``` CMAQ uses a default setting of Y to include the production of HONO from the heterogeneous reaction on ground surface. Ground surface areas for buildings and other structures for urban environments is assumed to be proportional to the percent urban area in any grid cell. This data is usually available via MCIP represented by the variable PURB, however, in some instances this data may not be available. If the data is not available, the model assumes the percent urban area to be 0.0 which will inhibit the heterogeneous reaction on buildings and other structures for urban environments causing lower predicted HONO. The user can set it to N to exclude the heterogeneous production from the reaction. Note that the default setting for the inline deposition calculation (CTM_ILDEPV) flag is Y. If the flag is changed to N, then the production of HONO from the heterogeneous reaction on ground surface will not work properly. Additional description of the HONO chemistry in CMAQ can be found in Sarwar et al. (2008). ### 6.10.5 CRACMM Version 1.0-2.0 [Return to Top](#Return_to_Top) The Community Regional Atmospheric Chemistry Multiphase Mechanism (CRACMM) builds on the history of the Regional Atmospheric Chemistry Mechanism, Version 2 (RACM2) and aims to couple gas- and particle-phase chemistry by treating the entire pool of atmospheric reactive organic carbon (ROC) relevant to present-day emissions. CRACMM species were developed to represent the total emissions of ROC, considering the OH reactivity, ability to form ozone and secondary organic aerosol (SOA), and other properties of individual emitted compounds. The chemistry of CRACMM, which includes autoxidation, multigenerational oxidation, and the treatment of semivolatile and intermediate volatility compounds, was built using a variety of sources including literature and other mechanisms (RACM2, MCM, GECKO, and SAPRC18/mechgen). CRACMM is available in three versions: CRACMMv1 and CRACMMv1AMORE originally implemented in CMAQv5.4 and CRACMMv2 introduced in CMAQv5.5. The development of CRACMMv1 is described by Pye et al. (2023) and the application of CRACMMv1 within CMAQ to the northeast U.S. in summer 2018 as well as comparison with other mechanisms is presented by Place et al. (2023). CRACMMv1AMORE replaces the base isoprene chemistry of CRACMMv1 (which was ported from RACM2) with a graph theory-based condensation of a detailed isoprene mechanism developed by Prof. Faye McNeill's team at Columbia University (Wiser et al., 2023). CRACMMv2 is an update to both CRACMMv1 and CRACMMv1AMORE. Developments in CRACMMv2 targeted improvements to formaldehyde and resulted in updates in other systems as well (Skipper et al., 2024). When selected as the gas-phase mechanism, use of CRACMM fully specifies CMAQ's aerosol treatment. CRACMM was designed as a multiphase mechanism and thus includes pathways to SOA and precursors to inorganic aerosol. The aero versioned by number no longer applies, and potential combustion SOA (pcSOA) is deprecated in CRACMM. Methane reaction with OH is considered and background methane is set to a fixed concentration of 1.85 ppm by default, roughly mathching global conditions in the later part of the 2010s. Year or location specific [methane concentrations](https://gml.noaa.gov/ccgg/trends_ch4/) could be used (see the end of the mechanism definition file to make the update). Emissions of methane on top of background levels can also be considered in CRACMMv2. One feature of CRACMM is the specification of representative structures for all species in the mechanism. This information is available as metadata describing all gas, particulate, and nonreactive species. Metadata exists in (csv-separated) columns appended to the species namelist files and in a new species description file. The information is not used at runtime by the CMAQ simulation, but should be updated if CRACMM species are updated to facilitate communication of how mechanism species are conceptualized. The metadata is leveraged to determine conservation of mass across chemical reactions (see the CHEMMECH README in the UTIL directory), determination of species properties such as solubility, and to communicate how species are conceptualized. Supplemental code automatically processes the metadata into markdown files for the CMAQ code repository. #### CRACMM Species Description File CRACMM mechanisms have a species description file (located in MECHS/cracmm1_aq/cracmm1_speciesdescription.csv and MECHS/cracmm2/cracmm2_speciesdescription.csv) where the species in the mechanism are described. This file is a simple csv file with two values per line: - Species name (string): All the GC.nml, AE.nml, and NR.nml species excluding phase (V,A) and particle size mode (I,J,K) identifiers - Description (string): string describing the species The description should reflect the lumped nature of the category if the species is lumped. For example, the entry for HC10 is: - HC10,Alkanes and other species with HO rate constant greater than 6.8x10-12 cm3 s-1 In the case of emitted species, the actual emitted individual species mapped to a mechanism species is based on a hierarchy of rules as described by Pye et al. (2023) with supporting code available on github at [USEPA/CRACMM](https://usepa.github.io/CRACMM/). For example, HC10 is one of the last species to be mapped to in the hierarchy and all semi and intermediate volatility compounds (S/IVOCs) as well as those with aromaticity or double bonds have already been mapped to other mechanism species. Consult the official hierarchy of emission mapping to get the full definition for emitted species. Note that CRACMM mechanisms include some species that can partition between the gas and aerosol phase and thus have both a gas-phase component (in the GC.nml) and particulate component (in the AE.nml). Rather than entering the same description for each phase, species that have multiphase components should be entered once and the phase identifier (V prepended on a gas species in GC.nml (if used) or A prepended on a particulate species in AE.nml) should not be included. In addition, separate entries are not needed for a species existing in multiple size modes. For example, this is the entry describing the species OP3 which exists in the GC.nml as OP3 and in the particle as AOP3J: - OP3,Semivolatile organic peroxide As another example, this describes a species, that exists in the gas phase as VROCP3OXY2 and in the particle as AROCP3OXY2J: - ROCP3OXY2,Oxygenated ROC species with C* of 10+3 ug/m3 and O:C of 0.2 See information below about the python code to create markdown files and what characters will be recognized and autoformatted. In general, species that exist in two phases with the gas phase species identified as 'VROCname' and the particle as 'AROCname' will be automatically matched. Exceptions (currently AHOM-HOM, AELHOM-ELHOM, AOP3-OP3) can be manually added in the python code. #### CRACMM Metadata in Species nml All mechanisms in CMAQ use namelists to specify the gas-phase (GC.nml), particle phase (AE.nml), and nonreactive (NR.nml) species. In cracmm mechanisms, the namelists are appended with the following information: - RepCmp (string): Representative compound following IUPAC or other common nomenclature. - ExplicitorLumped (E or L): indication if the species represents an individual, explicit compound (E) or aggregation of several structures and is thus lumped (L). - DTXSID (string): if available, an identifier from the [EPA Chemicals Dashboard](https://comptox.epa.gov/dashboard/) for the RepCMP. If unavailable, use NA. - SMILES (string): A [SMILES string](https://en.wikipedia.org/wiki/Simplified_molecular-input_line-entry_system) string for the RepCmp. For example, here is the metadata for HC10: - Decane,L,DTXSID6024913,CCCCCCCCCC In general, molecular weights (MOLWT) in the namelists should match the representative compound (RepCmp) structure. If a species is highly aggregated and the representative structure is a very poor representation of the class, the molecular weight may be set independently of the RepCmp. When properties of mechanism species such as Henry's law coefficients or vapor pressures are needed, we recommend using OPERA algorithms (Mansouri et al.) which can be accessed in the EPA Chemicals Dashboard for a curated set of compounds or via the Chemical Transformation Simulator (CTS) (https://qed.epa.gov/cts/pchemprop/) for any SMILES string. For species that exist in multiple phases, the metadata should only be specified in the GC.nml. #### CRACMM supporting code archive A supporting code archive is distributed at [USEPA/CRACMM](https://usepa.github.io/CRACMM/) to provide information that can be used by other models to implement CRACMM. This information includes documentation on how individual species map to the mechanism (available schematically and in python code), inputs to models such as Speciation Tool and SMOKE, and mapping of the SPECIATE database to CRACMM. One of the python routines available in the archive combines the CRACMM species information from the CMAQ namelists and species description file to create the species markdown files in (MECHS/mechanism_information). The processor will automatically format the following strings in markdown if used in the species description file: | Species Description File String | Converted String in Github Markdown Rendering | | --- | ---| | 'ug/m3' | 'μg m-3' | | 'log10C' | 'log10C' | | 'kOH' | 'kOH' | | 'cm3' | 'cm3' | | 's-1' | 's-1' | | '10-10' | '10-10' | | '10-11' | '10-11' | | '10-12' | '10-12' | | '10-13' | '10-13' | | '10-14' | '10-14' | | '10-2' | '10-2' | | '10-1' | '10-1' | | '10+1' | '10+1' | | '10+2' | '10+2' | | '10+3' | '10+3' | | '10+4' | '10+4' | | '10+5' | '10+5' | | '10+6' | '10+6' | The python code creates the mechanism specific species markdown file based on the intersection of what exists in the namelists and species description file which is why the two CRACMM flavors share the same species description file. In cases where a species exists in the gas and particle phase (e.g., AOP3J and OP3) the python code also checks that the molecular weights match across the phases and will print a warning (">>gas and particle molecular weights have an inconsistency<<") if they are not an exact match and will print ">>gas and particle molecular weights match<<" if they do match. ## 6.11 Aerosol Dynamics and Chemistry [Return to Top](#Return_to_Top) Particulate Matter (PM) can be either primary (directly emitted) or secondary (formed in the atmosphere) and from natural or anthropogenic (man-made) sources. Secondary sources include gas-phase oxidation of SO2 to sulfate, condensation of ammonia and nitrate, and oxidation of gas-phase VOCs such as isoprene, monoterpenes, aromatics, and alkanes. Cloud processes also contribute to the formation of PM; for example, aqueous oxidation of sulfur dioxide in cloud droplets is a significant pathway for production of particulate sulfate. CCTM represents PM size using three interacting lognormal distributions, or modes. Two modes (Aitken and accumulation) are generally less than 2.5 μm in diameter while the coarse mode contains significant amounts of mass above 2.5 μm. PM2.5 and PM10, species aggregate metrics within the NAAQS, can be obtained from the model-predicted mass concentration and size distribution information. The 6th generation CMAQ aerosol module (AERO6) was introduced in CMAQv5.0.2 and expanded the chemical speciation of PM. Eight new PM species were added to CMAQ in AERO6: Al, Ca, Fe, Si, Ti, Mg, K, and Mn. Four species that were explicitly treated in previous versions of CMAQ but were not modeled can now be treated as primary anthropogenic species: H2O, Na, Cl, and NH4. The PM emissions mass that remains after speciation into the new components is now input to the model as PMOTHER. AERO6 requires 18 PM emissions species: OC, EC, sulfate, nitrate, H2O, Na, Cl, NH4, NCOM, Al, Ca, Fe, Si, Ti, Mg, K, Mn, and Other (Reff et al., 2009). AERO6 continued to be incrementally updated in CMAQ v5.1-5.2.1 (see https://www.epa.gov/cmaq/how-cite-cmaq or release notes for when specific updates occured). The 7th generation aerosol module (AERO7) was introduced in CMAQv5.3 with modifications and updates to the speciation and prediction of organic aerosols. For computational efficiency, the 2-product style speciation for SOA species from traditional aromatic VOC precursors (alkanes, toluene, xylenes, and benzene) was replaced with four surrogate species with specific vapor pressures, following a VBS-style approaches used widely in models. In addition, the yield of organic aerosol from monoterpene reactions with OH and ozone was increased, and monoterpene organic nitrates were explicitly treated as a SOA source. The treatment of alpha-pinene was been made explicit in AERO7 in order to exclude alpha-pinene reactions with nitrate as a source of SOA. If users are employing online biogenic VOC emissions (via BEIS), then the alpha-pinene emissions will be treated correctly. If however, users are providing biogenic emissions to CMAQ from offline and only TERP is specified, we recommend scaling the alpha-pinene emissions to 30% of the total TERP emisisons and treating the remaining 70% of emitted TERP as TERP in CMAQ. This can be accomplished with the DESID emissions interface. AERO7 also includes consideration of water uptake to the organic particle phase (ORGH2O). The CRACMM aerosol module is introduced in CMAQv5.4. Since CRACMM is a fully coupled gas and particle mechanism, the use of CRACMM for the gas phase automatically specifies the use of a specific aerosol treatment. See the chemistry section for more information on [CRACMM](#6.10.5_CRACMM). Selection of the aerosol module (CRACMM, AERO7, or AERO6) is accomplished through selection of the chemical mechanism in the build script as described in section 6.10 and [Table 6-3](#Table6-3). Starting in CMAQv5.4, the bldit script will select the aerosol module by parsing the gas-phase mechanism string name. The aerosol microphysics (i.e. coagulation, condensation, new particle formation, deposition, etc.) are consistent for the three modules. The modules differ by the chemical species used to treat the PM constituents. All aerosol mechanisms available in CMAQv5.5 are compatible with semivolatile primary organic aerosol (POA). For the nonvolatile POA configuration, mass is tracked separately in terms of its carbon (OC) and non-carbon (NCOM) content. With this approach in AERO6 and AERO7, mass can be added to the non-carbon species to simulate the aging of POA in response to atmospheric oxidants. Simon and Bhave (2012) document the implementation of the second-order reaction between primary organic carbon and OH radicals. The semivolatile POA configuration segregates POA into several model species based on a combination of volatility and oxidation state. In AERO6/7, there are five POA species at low oxidation state representing low volatility, semivolatile and intermediate volatility compounds (LVPO1, SVPO1, SVPO2, SVPO3, IVPO1). As the gas-phase species (e.g. VLVPO1) oxidize with OH they form species with higher oxidation state (i.e. LVOO1, LVOO2, SVOO1, SVOO2, SVOO3). The multigenerational aging chemistry for the semivolatile POA configuration is derived from the approach of Donahue et al. (2012) which takes into account the functionalization and fragmentation of organic vapors upon oxidation. The semivolatile POA configuration also includes the option (on by default) of potential secondary organic aerosol from combustion sources (pcSOA). This species is emitted as a VOC (pcVOC) and forms SOA after reaction with OH. The emissions of pcVOC may be zeroed out by the user for specific sources using the DESID emissions control file; zeroing out pcVOC emissions is recommended for biomass and wood burning sources. CRACMM includes a series of semivolate and intermediate volatility compounds with alkane-like and oxygenated functionality that can represent semivolatile POA emissions as well as oxidation products (ROCALK and ROCOXY species). By default, volatility profiles are applied to POA emissions in CRACMM using the DESID module as in AERO6/7. In the future, semivolatile emissions will be directly propagated to the mechanism via the emissions processing infrastructure. CRACMM does not include heterogenous aging of nonvolatile POA, but POC and NCOM are available as tracer species that can be advected. pcSOA is not available in CRACMM and has been replaced by other SOA systems. All aerosol modules use ISORROPIA v2.2 in the reverse mode to calculate the condensation/evaporation of volatile inorganic gases to/from the gas-phase concentrations of known coarse particle surfaces. ISORROPIA is also used in the forward mode to calculate instantaneous thermodynamic equilibrium between the gas and fine-particle modes. The mass transfer of all semivolatile organic species is calculated assuming equilibrium absorptive partitioning, although some nonvolatile species do exist (e.g. cloud-processed organic aerosol, oligomers, nonvolatile POA (if selected)). CMAQ can output the reduction in visual range caused by the presence of PM, perceived as haze. CCTM integrates Mie scattering (a generalized particulate light-scattering mechanism that follows from the laws of electromagnetism applied to particulate matter) over the entire range of particle sizes to obtain a single visibility value for each model grid cell at each time step. More detailed descriptions of the PM calculation techniques used in CCTM can be found in Binkowski and Shankar (1995), Binkowski and Roselle (2003), and Byun and Schere (2006). For easier comparison of CMAQ's output PM values with measurements, time-dependent cutoff fractions may be output by the model (e.g. Jiang et al., 2006). These include quantities for describing the fraction of each mode that would be categorized as PM2.5 (i.e. PM25AT, PM25AC, and PM25CO) and PM1.0 (i.e. PM1AT, PM1AC, and PM1CO) as well as the fraction of particles from each mode that would be detected by an AMS (i.e AMSAT, AMSAC, and AMSCO). There is also a surface interaction module in the multipollutant version of CMAQ that calculates the flux of mercury to and from the surface (rather than just depositing mercury). Further discussion on the scientific improvements to the CMAQ PM treatment is available in the release notes. ### 6.11.1 Aerosol Boundary and Initial Conditions [Return to Top](#Return_to_Top) The Modal Aerosol approach in CMAQ uses three parameters to describe the population density of particles in size space (i.e. to parameterize the log-normal size distirbutions). These parameters are the zeroth moment (M0), which is also the Number concentration (N), the second moment (M2), which is proportional to bulk particle surface area (S), and the third moment (M3), which is proportional to bulk particle volume (V) and thus mass (M). The third moment is specified in the initial and boundary condition files in terms of the individual mass concentrations of each particle species in each mode. These mass concentrations are summed up to get M and then converted to M3. The values for M0 and M2 from the boundary and initial conditions are then used to calculate the mean diamter and standard deviation of all three log-normal modes. Each moment, M0, M2, and the speciated mass concentrations, are then transported throughout the model domain. If number concentration is missing or zero from the boundary or initial conditions, then the mean diameter and standard deviation for that mode are set to a default and M0 and M2 are calculated based on these assumptions. If number concentration is present and nonzero, but M2 is missing or zero, then the modal standard deviation is set to a default and the diameter is calculated to be consistent with the total mass and number concentrations. The user may explicitly direct CMAQ to ignore the M2 concentration from the boundary conditions by setting an environment variable to false: ``` setenv BC_AERO_M2USE F #(default: T) setenv IC_AERO_M2USE F #(default: T) ``` This may be an attractive option if the values of M2 have become corrupted or unstable to due to interpolation of boundary or initial conditions in space and time. The impact of this option on fine and coarse mode particle mass concentrations is shown below. There is a substantially larger impact on coarse particles than on fine particles, especially near the boundaries. ![image](./images/Figure_6-11_1.png) Deviation in total fine particle mass concentration in $\mu g \ m^{-3}$. ![image](./images/Figure_6-11_2.png) Deviation in total coarse particle mass concentration in $\mu g \ m^{-3}$. The initial conditions are not expected to have such large impact on model results because model output data are used to begin every model restart (e.g. at the end of a day). It is expected that the user will give ample model spin-up time so that the impact of initial conditions issues is unlikely. It is recommended to set BC_AERO_M2USE to True if boundary conditions were created with CMAQv5.4 or later. If boundary or initial conditions were made with CMAQv5.3 or before, then the definition of M2 did not include semivolatile organic compounds and should not be trusted to be compatible with CMAQv5.5 and beyond. In this case, set BC_AERO_M2USE to False. Users may also specify if the boundary or initial conditions provided are applicable to wet or dry particle size distributions (i.e. is water included in the calculation of M2?). The following environment variable toggles this selection: ``` setenv BC_AERO_M2WET F #(default: F, consistent with dry particle size distribution) setenv IC_AERO_M2WET F #(default: F, consistent with dry particle size distribution) ``` Unless specifically known otherwise, it is most often the case that M2 or particle surface area is calculated in terms of the dry particle size distribution. ## 6.12 Aqueous Chemistry, Scavenging and Wet Deposition [Return to Top](#Return_to_Top) Clouds are an important component of air quality modeling and play a key role in aqueous chemical reactions, vertical mixing of pollutants, and removal of pollutants by wet deposition. Clouds also indirectly affect pollutant concentrations by altering the solar radiation, which in turn affects photochemical pollutants (such as ozone) and the flux of biogenic emissions. The cloud module in CMAQ performs several functions related to cloud physics and chemistry. Three types of clouds are modeled in CMAQ: sub-grid convective precipitating clouds, sub-grid nonprecipitating clouds, and grid-resolved clouds. Grid-resolved clouds are provided by the meteorological model and no additional diagnosis is performed by CMAQ for those clouds. For the two types of sub-grid clouds, the cloud module in CCTM vertically redistributes pollutants, calculates in-cloud and precipitation scavenging, performs aqueous chemistry calculations, and accumulates wet deposition amounts. Aqueous chemistry and scavenging is calculated for resolved clouds as well, using the cell liquid water content and precipitation from the meteorological model. When liquid water content (LWC), represented as the sum of cloud water, rain water, and graupel, in a cell (or column average in the case of sub-grid clouds) exceeds a critical threshold of 0.01 gm-3, a call is made to the cloud chemistry module where in-cloud scavenging and wet deposition are calculated in addition to aqueous phase chemistry. Accumulation and coarse mode aerosols are assumed to be instantaneously activated (i.e., nucleation scavenging), and Aitken mode particles (i.e., interstitial aerosol) are scavenged by the cloud droplets for the duration of cloud processing (Binkowski and Roselle, 2003). Gas phase species that participate in aqueous chemistry are taken up into the cloud water according to their Henry’s Law coefficient, dissociation constants, and droplet pH. For each cloud chemistry time step, dissolved gas and aerosol species and associated ions are deposited out of the system according to a scavenging rate that is based on precipitation rate, cloud/layer thickness, and total water content (i.e., the sum of cloud water, rain water, graupel, ice, and snow). When the liquid water content does not exceed the threshold to call the cloud chemistry module (or for all species that do not participate in cloud chemistry), the wet deposition is calculated in a similar way in the “scavwdep” subroutine. Using the same expression for the washout coefficient as in the aqueous chemistry module, aerosol species are subject to wet removal assuming they are incorporated into cloud/rain water as above; while the fraction of gas phase species’ concentrations subject to wet removal is a function of their effective Henry’s Law coefficients at a prescribed droplet pH of 4. Essentially what is represented in CMAQ is in-cloud scavenging (or “rainout”); though arguably some effects of below-cloud scavenging (or “washout”) may also be represented by including rain water in the LWC considered in calling/calculating cloud chemistry, as well as calculating aqueous chemistry and scavenging for the column (extending from the cloud top to the ground) in the case of sub-grid raining clouds. Explicit treatment of below-cloud scavenging (e.g., impaction scavenging of below-cloud aerosols by rain drops and snow) is not implemented at this time. CMAQ’s standard cloud chemistry treatment (AQCHEM) estimates sulfate production from five sulfur oxidation pathways and also includes a simple parameterization to estimate secondary organic aerosol formation from the reactions of glyoxal and methylglyoxal with the hydroxyl radical. The distribution between gas and aqueous phases is determined by instantaneous Henry’s law equilibrium, and the bisection method is used to estimate pH (and the distribution of ionic species) assuming electroneutrality. Beginning with CMAQv5.1 a new set of options for cloud chemistry (currently, KMT version 2 or "KMT2") was introduced that relies on the Kinetic PreProcessor (KPP), version 2.2.3 (Damian et al., 2002) to generate a Rosenbrock integrator to solve the chemical kinetics, ionic dissociation, wet deposition, and kinetic mass transfer (Schwartz, 1986) between the gas and aqueous phases in CMAQ clouds (Fahey et al., 2017). In addition to the five sulfur reactions in the standard cloud chemistry module, KMT2 replaces the simple in-cloud yield parameterization of SOA from glyoxal and methylglyoxal with a more mechanistic representation of the multi-step formation of oxalic acid/oxalate and other organic acids (assumed here to remain in the aerosol phase after cloud droplet evaporation) from the reactions of hydroxyl radical with glyoxal, methylglyoxal, glycolaldehyde, and acetic acid (Lim et al., 2005; Tan et al., 2009; Lim et al., 2013). KMT2 also includes in-cloud SOA formation from biogenic-derived epoxides (Pye et al., 2013) as well additional reactions for S, N, O-H, and C species (Leriche et al., 2013; Warneck, 1999; Lee and Schwartz, 1983). KMT2 can be significantly more computationally demanding than standard AQCHEM and may be thus better suited for research applications, particularly those investigating cloud/fog events or the evolution of species whose concentrations are potentially heavily influenced by cloud processing and not explicitly represented in the standard AQCHEM mechanism (e.g., oxalate). For simulations where the primary focus is on simulating ozone or total PM2.5 concentrations, especially for longer-term averages, standard AQCHEM would likely capture the most important cloud chemistry impacts (i.e., sulfate formation from the main aqueous oxidation pathways) and is significantly more computationally efficient. To invoke the default AQCHEM cloud chemistry option, the BuildScript under the CCTM Science Modules section should be set as follows: ``` set ModCloud = cloud/acm_ae7 ``` For the AQCHEM-KMT2 cloud chemistry option, use the following option in the BuildScript: ``` set ModCloud = cloud/acm_ae7_kmt2 ``` AQCHEM-KMT2 should only be used in conjunction with the cb6r5_ae7 or saprc07tic_ae7i gas phase chemical mechanisms; i.e., in the BuildScript: ``` set Mechanism = cb6r5_ae7_aqkmt2 ``` OR ``` set Mechanism = saprc07tic_ae7i_aqkmt2 ``` For toxics/Hg simulations (using the gas phase “cb6mp_ae6_aq” mechanism), one may also invoke the complementary cloud chemistry routine that includes aqueous phase chemistry for some toxic species in addition to the default chemistry: ``` set ModCloud = cloud/acm_ae6_mp ``` ## 6.13 Potential Vorticity Scaling [Return to Top](#Return_to_Top) Since cross-tropopause transport of O3 can be a significant contributor to the tropospheric O3 budget, accurately characterizing the fraction of O3 in the troposphere, especially at the surface, that is of stratospheric origin is of interest in many model applications. This fraction varies spatially and seasonally in response to the tropopause height, and perhaps even more episodically, from deep intrusion events associated with weather patterns and frontal movement (e.g., Mathur et al., 2017). Potential vorticity (PV; 1 PV unit = 106 m2 K kg-1 s-1) has been shown to be a robust indicator of air mass exchange between the stratosphere and the troposphere with strong positive correlation with O3 and other trace species transported from the stratosphere to the upper troposphere (Danielsen, 1968). This correlation can be used to develop scaling factors that specify O3 in the modelled upper troposphere/lower stratosphere (UTLS) based on estimated PV. CMAQ uses a dynamical PV-scaling parameterization developed by correlating model potential vorticity fields and measured O3 (from World Ozone and Ultraviolet Radiation Data Centre) between 100-50mb over a 21-year period. This generalized parameterization, detailed in Xing et al. (2016), can dynamically represent O3 in the UTLS across the Northern Hemisphere. The implementation of the new function significantly improves CMAQ's simulation of UTLS O3 in both magnitude and seasonality compared to observations, which results in a more accurate simulation of the vertical distribution of O3 across the Northern Hemisphere (Xing et al., 2016; Mathur et al., 2017). It should be noted that to represent stratosphere-troposphere exchange of O3, appropriate vertical grid resolution near the tropopause should also be used with the PV scaling scheme. To invoke the potential vorticity scaling of modeled O3 in the upper layers (100-50mb), ``` setenv CTM_PVO3 Y ``` should be specified in the RunScript. Also, potential vorticity fields must be available in the METCRO3D files generated by MCIP. This is enabled by setting LPV = 1 in the MCIP runscript. ## 6.14 References Bash, J.O. (2010). Description and initial simulation of a dynamic bidirectional air-surface exchange model for mercury in Community Multiscale Air Quality model. J. Geophys. Res., 115, D06305, [doi:10.1029/2009JD012834](https://doi.org/10.1029/2009JD012834). Binkowski, F.S., Arunachalam, S., Adelman, Z., & Pinto, J. (2007). Examining photolysis rates with a prototype on-line photolysis module in CMAQ. J. Appl. Meteor. and Clim., 46, 1252-1256. [doi:10.1175/JAM2531.1](https://doi.org/10.1175/JAM2531.1). Binkowski, F.S., & Roselle, S.J. (2003). Models-3 Community Multiscale Air Quality (CMAQ) model aerosol component. 1. Model description. J. Geophys. Res., 108, 4183, [doi:10.1029/2001JD001409](https://doi.org/10.1029/2001JD001409). Binkowski, F.S., & Shankar, U. (1995). The regional particulate model: Part I. Model description and preliminary results. J. Geophys. Res., 100, 26 191–26 209. C.F. Bohren, D.R. Huffman, Absorption and Scattering of Light by Small Particles (second ed.), Wiley, New York (1998), p. 530. ISBN 0-471-29340-7, ISBN 978-0-471-29340-8. Byun, D.W., & Ching, J.K.S. (1999). Science algorithms of the EPA models-3 Community Multiscale Air Quality (CMAQ) Modeling system. U. S. Environmental Protection Agency Rep. EPA 600/R 99/030, 727 pp. Byun, D., & Schere, K.L. (2006). Review of the governing equations, computational algorithms, and other components of the Models-3 Community Multiscale Air Quality (CMAQ) modeling system. Appl. Mech. Rev., 59, 51–77. [doi:10.1115/1.212863](https://doi.org/10.1115/1.2128636). Colella, P., & Woodward, P.L. (1984). The piecewise parabolic method (PPM) for gas-dynamical simulations. J. Comput. Phys., 54, 174–201. Cooter, E.J., Bash, J.O., Benson V., & Ran, L.M. (2012). Linking agricultural management and air-quality models for regional to national-scale nitrogen deposition assessments. Biogeosciences, 9, 4023-4035. Damian, V., Sandu, A., Damian, M., Potra, F., & Carmichael, G.R. (2002). The kinetic preprocessor KPP -- A software environment for solving chemical kinetics. Computers and Chemical Engineering, 26, 1567-1579. Danielsen, E. F. (1968). Stratospheric-tropospheric exchange based on radioactivity, ozone and potential vorticity. J. Atmos. Sci., 25, 502–518. Donahue, N.M., et al. (2012). A two-dimensional volatility basis set – Part 2: Diagnostics of organic-aerosol evolution. Atmospheric Chemistry and Physics, 12(2), 615-634. Fahey, K.M., Carlton, A.G., Pye, H.O.T., Baek, J., Hutzell, W.T., Stanier, C.O., Baker, K.R., Appel, K.W., Jaoui, M., & Offenberg, J.H. (2017). A framework for expanding aqueous chemistry in the Community Multiscale Air Quality (CMAQ) model version 5.1. Geosci. Model Dev., 10, 1587-1605. Fast, J. D., W. I. Gustafson Jr., R. C. Easter, R. A. Zaveri, J. C. Barnard, E. G. Chapman, G. A. Grell, and S. E. Peckham (2006), Evolution of ozone, particulates, and aerosol direct radiative forcing in the vicinity of Houston using a fully coupledmeteorology-chemistry-aerosol model,J. Geophys. Res.,111, D21305, doi:10.1029/2005JD006721 Foroutan, H., J. Young, S. Napelenok, L. Ran, K. W. Appel, R. C. Gilliam, and J. E. Pleim (2017), Development and evaluation of a physics-based windblown dust emission scheme implemented in the CMAQ modeling system, J. Adv. Model. Earth Syst., 9, 585–608, doi:10.1002/2016MS000823 Gantt, B., Kelly, J.T., & Bash, J.O. (2015). Updating sea spray aerosol emissions in the Community Multiscale Air Quality (CMAQ) model version 5.0.2. Geosci. Model Dev., 8, 3733-3746. [doi:10.5194/gmd-8-3733-2015](https://doi.org/10.5194/gmd-8-3733-2015). Giorgi, F. (1986). A particle dry-deposition parameterization scheme for use in tracer transport models. J. Geophys. Res., 91(D9), 9794-9806. Gong, S.L. (2003). A parameterization of sea-salt aerosol source function for sub- and super-micron particles. Global Biogeochem. Cy., 17. [doi: 10.1029/2003gb002079](https://doi.org/10.1029/2003gb002079). Hertel O., Berkowicz, R., Christensen, J., & Hov, O. (1993). Test of two numerical schemes for use in atmospheric transport-chemistry models. Atmos. Environ., 27A, 2591–2611. Jacobson, M., & Turco, R.P. (1994) SMVGEAR: A sparse-matrix, vectorized Gear code for atmospheric models. Atmos. Environ., 28, 2991–3003. Jaeglé, L., Quinn, P.K., Bates, T.S., Alexander, B., & Lin, J.T. (2011). Global distribution of sea salt aerosols: new constraints from in situ and remote sensing observations. Atmos. Chem. Phys., 11, 3137–3157. [doi: 10.5194/acp-11-3137-2011](https://doi.org/10.5194/acp-11-3137-2011). Jiang, W., Smyth, S., Giroux, É., Roth, H., & Yin, D. (2006). Differences between CMAQ fine mode particle and PM2.5concentrations and their impact on model performance evaluation in the lower Fraser valley. Atmos. Environ., 40, 4973–4985. Kang, D., Hogrefe, C., Sarwar, G., East, J.D., Madden, J.M., Mathur, R., & Henderson, B.H. (2022). Assessing the Impact of Lightning NOx Emissions in CMAQ Using Lightning Flash Data from WWLLN over the Contiguous United States. Atmosphere 2022, 13, 1248. [doi:10.3390/atmos13081248](https://doi.org/10.3390/atmos13081248). Kang, D., Pickering, K., Allen, D., Foley, K., Wong, D., Mathur, R., & Roselle, S. (2019). Simulating lightning NOX production in CMAQv5.2: Evolution of scientific updates. Geosci. Model Dev. Discuss.,1-23. [doi:10.5194/gmd-2019-33](https://doi.org/10.5194/gmd-2019-33). Kelly, J.T., Bhave, P.V., Nolte, C.G., Shankar, U., & Foley, K.M. (2010).Simulating emission and chemical evolution of coarse sea-salt particles in the Community Multiscale Air Quality (CMAQ) model. Geosci. Model Dev., 3, 257-273. [doi: 10.5194/gmd-3-257-2010](https://doi.org/10.5194/gmd-3-257-2010). Lee, Y.N. & Schwartz, S.E. (1983). Kinetics of oxidation of aqueous sulfur(IV) by nitrogen dioxide. In H.R. Pruppacher et al. (eds.), precipitation scavenging, dry deposition, and resuspension, version 1. Elsevier. Leriche, M., Pinty, J.P., Mari, C., & Gazen, D. (2013). A cloud chemistry module for the 3-D cloud-resolving mesoscale model Meso-NH with application to idealized cases. Geosci. Mod. Dev., 6, 1275-1298. Lim, H., Carlton, A.G., & Turpin, B.J. (2005). Isoprene forms secondary organic aerosol through cloud processing: model simulations. Environ. Sci. Technol., 39, 4441–4446. Lim, Y.B., Tan, Y., & Turpin, B.J. (2013). Chemical insights, explicit chemistry, and yields of secondary organic aerosol from OH radical oxidation of methylglyoxal and glyoxal in the aqueous phase, Atmos. Chem. Phys., 13, 8651–8667. Massad, R.S., Nemitz, E., Sutton, M.A. (2010). Review and parameterization of bi-directional ammonia exchange between vegetation and the atmosphere. Atmos. Chem. Phys., 10, 10359-10386. Mathur, R. & Peters, L.K. (1990). Adjustment of wind fields for application in air pollution modeling, Atmos. Environ., 24(5), 1095-1106. Mathur, R., Xing, J., Gilliam, R., Sarwar, G., Hogrefe, C., Pleim, J., Pouliot, G., Roselle, S., Spero, T. L., Wong, D. C., and Young, J. (2017) Extending the Community Multiscale Air Quality (CMAQ) modeling system to hemispheric scales: overview of process considerations and initial applications, Atmos. Chem. Phys., 17, 12449-12474, [doi: 10.5194/acp-17-12449-2017](https://doi.org/10.5194/acp-17-12449-2017). Murphy, B.N., Woody, M.C., Jimenez, J.L., Carlton, A.M.G., Hayes, P.L., Liu, S., Ng, N.L., Russell, L.M., Setyan, A., Xu, L., Young, J., Zaveri, R.A., Zhang, Q., & Pye, H.O.T. (2017). Semivolatile POA and parameterized total combustion SOA in CMAQv5.2: impacts on source strength and partitioning. Atmospheric Chemistry and Physics, 17 (18), 11107-11133, [doi:10.5194/acp-17-11107-2017](https://doi.org/10.5194/acp-17-11107-2017). Nemitz, E., Milford, C., Sutton, M.A. (2001). A two-layer canopy compensation point model for describing bi-directional biosphere-atmosphere exchange of ammonia. Q. J. Roy. Meteor. Soc.,127, 815-833. Odman, M.T., & Russell, A.G. (2000). Mass conservative coupling of non-hydrostatic meteorological models with air quality models, in Air Pollution Modelling and Its Application XIII, edited by S.-E. Gryning and E. Batchvarova. Kluwer Academic/Plenum Publishers, New York, 651-660. Ovadnevaite, J., Manders, A., de Leeuw, G., Ceburnis, D., Monahan, C., Partanen, A.I., Korhonen, H., & O'Dowd, C. D. (2014). A sea spray aerosol flux parameterization encapsulating wave state. Atmos. Chem. Phys., 14, 1837-1852. [doi: 10.5194/acp-14-1837-2014](https://doi.org/10.5194/acp-14-1837-2014). Place, B. K., Hutzell, W. T., Appel, K. W., Farrell, S., Valin, L., Murphy, B. N., Seltzer, K. M., Sarwar, G., Allen, C., Piletic, I. R., D'Ambro, E. L., Saunders, E., Simon, H., Torres-Vasquez, A., Pleim, J., Schwantes, R. H., Coggon, M. M., Xu, L., Stockwell, W. R., and Pye, H. O. T. (2023). Sensitivity of northeastern US surface ozone predictions to the representation of atmospheric chemistry in the Community Regional Atmospheric Chemistry Multiphase Mechanism (CRACMMv1.0), Atmospheric Chemistry and Physics, 23, 9173-9190, [doi:10.5194/acp-23-9173-2023](https://doi.org/10.5194/acp-23-9173-2023). Pleim, J., Venkatram, A., Yamartino, R. (1984). ADOM/TADAP Model development program: The dry deposition module. Ontario Ministry of the Environment, 4. Pleim, J.E. (2007a). A combined local and nonlocal closure model for the atmospheric boundary layer. Part I: Model description and testing. Journal of Applied Meteorology and Climatology, 46(9), 1383-1395. Pleim, J.E. (2007b). A combined local and nonlocal closure model for the atmospheric boundary layer. Part II: Application and evaluation in a mesoscale meteorological model. Journal of Applied Meteorology and Climatology, 46(9), 1396-1409. Pleim, J., & Ran, L. (2011). Surface flux modeling for air quality applications. Atmosphere, 2(3), 271-302. Pleim, J. E., Ran, L., Appel, W., Shephard, M.W., & Cady-Pereira K. (2019). New bidirectional ammonia flux model in an air quality model coupled with an agricultural model. Journal of Advances in Modeling Earth Systems, 11, 2934-2957, [doi: 10.1029/2019MS001728](https://doi.org/10.1029/2019MS001728). Pleim, J.E., Ran, L., Saylor, R.D., Willison, J. and Binkowski, F.S. (2022). A new aerosol dry deposition model for air quality and climate modeling. Journal of Advances in Modeling Earth Systems, 14(11), p.e2022MS003050, [doi: 10.1029/2022MS003050]( https://doi.org/10.1029/2022MS003050). Pye, H.O.T., Pinder, R.W., Piletic, I.R., Xie, Y., Capps, S.L., Lin, Y.H., Surratt, J.D., Zhang, Z.F., Gold, A., Luecken, D.J., Hutzell W.T., Jaoui, M., Offenberg, J.H., Kleindienst, T.E., Lewandowski, M., & Edney, E.O. (2013). Epoxide pathways improve model predictions of isoprene markers and reveal key role of acidity in aerosol formation. Environ. Sci. Technol., 47(19), 11056-11064. Pye, H. O. T., Place, B. K., Murphy, B. N., Seltzer, K. M., D'Ambro, E. L., Allen, C., Piletic, I. R., Farrell, S., Schwantes, R. H., Coggon, M. M., Saunders, E., Xu, L., Sarwar, G., Hutzell, W. T., Foley, K. M., Pouliot, G., Bash, J., & Stockwell, W. R. (2023). Linking gas, particulate, and toxic endpoints to air emissions in the Community Regional Atmospheric Chemistry Multiphase Mechanism (CRACMM), Atmospheric Chemistry and Physics, 23, 5043-5099, [doi:10.5194/acp-23-5043-2023](https://doi.org/10.5194/acp-23-5043-2023). Ran, L., Cooter, E., Benson, V., & He, Q. (2011). Chapter 36: Development of an agricultural fertilizer modeling system for bi-directional ammonia fluxes in the CMAQ model. In D. G. Steyn, & S. Trini Castelli (Eds.), air pollution modeling and its application XXI. Springer, 213-219. Reff, A., Bhave, P.V., Simon, H., Pace, T.G., Pouliot, G.A., Mobley, J.D., & Houyoux, M. (2009). Emissions inventory of PM2.5 trace elements across the United States. Env. Sci. & Technol. 43, 5790-5796. Sandu, A., Verwer, J.G., Blom, J.G., Spee, E.J., Carmichael, G.R., & Potra, F.A. (1997). Benchmarking stiff ODE solvers for atmospheric chemistry problems. II: Rosenbrock solvers. Atmos. Environ., 31, 3459–3472. Sarwar, G., Gantt, B.; Schwede, D.; Foley, K.; Mathur, R.; Saiz-Lopez, A. 2015. Impact of enhanced ozone deposition and halogen chemistry on tropospheric ozone over the Northern Hemisphere. Environmental Science & Technology, 49(15): 9203-9211. Sarwar, G., Gantt, B., Foley, K., Fahey, K., Spero, T.L., Kang, D., Mathur, R., Foroutan, H., Xing, J., Sherwen, T., Saiz-Lopez, A. 2019. Influence of bromine and iodine chemistry on annual, seasonal, diurnal, and background ozone: CMAQ simulations over the Northern Hemisphere. Atmospheric Environment, 213: 395-404. Sarwar, G., Roselle, R., Mathur, R., Appel, W., Dennis, R. L., & Vogel, B. (2008). A Comparison of CMAQ HONO Predictions with Observations from the Northeast Oxidant and Particle Study, Atmospheric Environment, 42, 5760-5770. Schwartz, S.E. (1986). Mass transport considerations pertinent to aqueous-phase reactions of gases in liquid water clouds. In chemistry of multiphase atmospheric systems, NATO ASI Series, G6, 415-471. Simon, H., & Bhave, P.V. (2012). Simulating the degree of oxidation in atmospheric organic particles. Environ. Sci. Technol., 46(1), 331-339. Skamarock, W.C., Klemp, J.B., Dudhia, J., Gill, D.O., Liu, Z., Berner, J., Wang, W., Powers, J.G., Duda, M.G., Barker, D.M., & Huang, X.Y. (2019). A description of the advanced research WRF version 4. NCAR Technical Note, NCAR/TN–556+STR. Skipper, T. N., D’Ambro, E. L., Wiser, F. C., McNeill, V. F., Schwantes, R. H., Henderson, B. H., Piletic, I. R., Baublitz, C. B., Bash, J. O., Whitehill, A. R., Valin, L. C., Mouat, A. P., Kaiser, J., Wolfe, G. M., St. Clair, J. M., Hanisco, T. F., Fried, A., Place, B. K., and Pye, H. O. T. (2024). Role of chemical production and depositional losses on formaldehyde in the Community Regional Atmospheric Chemistry Multiphase Mechanism (CRACMM), EGUsphere [preprint], [doi:10.5194/egusphere-2024-1680](https://doi.org/10.5194/egusphere-2024-1680). Slinn, W.G.N. (1982). Predictions for particle deposition to vegetative canopies, Atmos. Environ., 16, 1785-1794. Smagorinsky, J. (1963). General circulation experiments with the primitive equations. Mon. Wea. Rev., 91/3, 99-164. Tan, Y., Perri, M.J., Seitzinger, S.P., & Turpin, B.J. (2009). Effects of precursor concentration and acidic sulfate in aqueous glyoxal-OH radical oxidation and implications for secondary organic aerosol. Env. Sci. Technol., 43, 8105–8112. Warneck, P. (1999). The relative importance of various pathways for the oxidation of sulfur dioxide and nitrogen dioxide in sunlit continental fair weather clouds. Phys. Chem. Chem. Phys., 1, 5471-5483. Wiser, F., Place, B. K., Sen, S., Pye, H. O. T., Yang, B., Westervelt, D. M., Henze, D. K., Fiore, A. M., and McNeill, V. F. (2023). AMORE-Isoprene v1.0: a new reduced mechanism for gas-phase isoprene oxidation, Geosci. Model Dev., 16, 1801-1821, [doi:https://doi.org/10.5194/gmd-16-1801-2023](https://doi.org/10.5194/gmd-16-1801-2023). Xing, J., Mathur, R., Pleim, J., Hogrefe, C., Wang, J., Gan, C.M., Sarwar, G., Wong, D., & McKeen, S. (2016). Representing the effects of stratosphere-troposphere exchange on 3D O3 distributions in chemistry transport models using a potential vorticity based parameterization, Atmos. Chem. Phys., 16, 10865-10877, [doi:10.5194/acp-16-10865-2016](https://doi.org/10.5194/acp-16-10865-2016). Yi, C. (2008). Momentum transfer within canopies. J. App. Meteor. Clim., 47, 262-275. Zhao, J., Sarwar, G., Gantt, B., Foley, K., Kang, D., Fahey, K., Mathur, R., Henderson, B. H., Pye, H. O. T., Zhang, Y., Saiz-Lopez, A. 2021. Impact of dimethylsulfide chemistry on air quality over the Northern Hemisphere, Atmospheric Environment, 244: 117961, 1-10. [<< Previous Chapter](CMAQ_UG_ch05_running_a_simulation.md) - [Home](README.md) - [Next Chapter >>](CMAQ_UG_ch07_model_outputs.md)
CMAQv5.5 User's Guide
[link_6.1]: ../../PREP/mcip/ [link_6.10.1]: ../../UTIL/create_ebi/ [link_6.10.2]: ../../UTIL/jproc/ [link_6.10.2_II]: ../../UTIL/inline_phot_preproc/ [link_6.1]: https://github.com/USEPA/CMAQ/blob/main/PREP/mcip/ [link_6.10.1]: https://github.com/USEPA/CMAQ/blob/main/UTIL/create_ebi/ [link_6.10.2]: https://github.com/USEPA/CMAQ/blob/main/UTIL/jproc/ [link_6.10.2_II]: https://github.com/USEPA/CMAQ/blob/main/UTIL/inline_phot_preproc/ ================================================ FILE: DOCS/Users_Guide/CMAQ_UG_ch07_model_outputs.md ================================================ [<< Previous Chapter](CMAQ_UG_ch06_model_configuration_options.md) - [Home](README.md) - [Next Chapter >>](CMAQ_UG_ch08_analysis_tools.md) # 7. Model Output Files ## 7.1 Introduction In this section, details on the routine CCTM output files are provided. All CMAQ programs produce model output files that adhere to the netCDF format. In addition to model data output, CMAQ can optionally produce ASCII log files that contain intermediate model execution information from the various CMAQ processes and captured with respect to processor number. If the log file option is not selected by the user and the simulation is run interactively, CMAQ will write all of the log information to the screen along with the standard error, which can be captured to a text file using basic UNIX syntax. Additional output files are created when using the Process Analysis (PA), Integrated Source Apportionment Method (ISAM) and Detailed Emissions Scaling, Isolation and Diagnostics Module (DESID) options. The files associated with these options are discussed in [Chapter 9](CMAQ_UG_ch09_process_analysis.md), [Chapter 11](CMAQ_UG_ch11_ISAM.md), and [Appendix B](Appendix/CMAQ_UG_appendixB_emissions_control.md), respectively. **Table 7-1. CMAQ Output files** |**File Name1**|**File Type**|**Time-Dependence2**|**Spatial Dimensions3** | |----------------------------|------|----|-----------------------------------| |**Standard**| | | | |[Output Log](#cmaq_output_log) |ASCII|n/a|n/a |[CCTM_CONC](#conc)|GRDDED3|Hourly Instantaneous|XYZ' |[CCTM_ACONC](#aconc) |GRDDED3|Hourly Averaged|XYZ' |[CCTM_ELMO](#ELMO) |GRDDED3|Hourly Instantaneous|XYZ' |[CCTM_AELMO](#aELMO) |GRDDED3|Hourly Averaged|XYZ' |[CCTM_DRYDEP](#drydep) |GRDDED3|Hourly Cumulative|XY |[CCTM_WETDEP1](#wetdep) |GRDDED3|Hourly Cumulative|XY |**Restart**| | | | |[CCTM_CGRID](#cgrid) |GRDDED3|Hourly Instantaneous|XYZ |[CCTM_MEDIA_CONC](#media)|GRDDED3|Hourly Instantaneous|XY |[CCTM_BSOILOUT](#soilout) |GRDDED3|n/a (see detailed file description below)|XY |[CCTM_MSOILOUT](#soilout) |GRDDED3|n/a (see detailed file description below)|XY |[CCTM_BDSNPOUT](#bdsnpout) |GRDDED3|n/a (see detailed file description below)|XY |**Diagnostic and Advanced**| | | | |[CCTM_B3GTS_S](#b3gts) |GRDDED3|Hourly Instantaneous| XY |[CCTM_BUDGET](#budget) |ASCII|Hourly Instantaneous| Domain-Wide |[CCTM_DEPV](#depv) |GRDDED3|Hourly Instantaneous|XY |[CCTM_DUSTEMIS](#dust) |GRDDED3|Hourly Instantaneous|XY |[CCTM_DESIDX](#desid) |GRDDED3|Hourly Instantaneous|XYZ |[CCTM_DEPVMOS](#depv_mos) |GRDDED3|Hourly Instantaneous|XYW |[CCTM_DDEP_MOS](#dry_dep_mos) |GRDDED3|Hourly Cumulative|XYW |[CCTM_LTNGHRLY](#ltngdiag1) |GRDDED3|Hourly Instantaneous|XYZ |[CCTM_LTNGCOL](#ltngdiag2) |GRDDED3|Hourly Instantaneous|XY |[CCTM_PHOTDIAG1](#ctm_rj1) |GRDDED3|Hourly Instantaneous|XY |[CCTM_PHOTDIAG2](#ctm_rj2) |GRDDED3|Hourly Instantaneous|XYZ' |[CCTM_PHOTDIAG3](#ctm_rj3) |GRDDED3|Hourly Instantaneous|XYZ' |[CCTM_SSEMIS](#ssemis) |GRDDED3|Hourly Instantaneous|XY |[CCTM_WETDEP2](#wetdep2) |GRDDED3|Hourly Cumulative|XY |[CCTM_VEXT](#vext) |GRDDED3|Hourly Instantaneous|WZ 1By default, output files are named CCTM_XXX_${CTM_APPL}.nc where XXX is the file identifier and ${CTM_APPL} is a user defined string that identifies the model run. 2While "Hourly" is indicated, users may define a different time step (e.g., 30 minutes) for model output by changing the TSTEP variable in the runscript. Hourly Instantaneous represents the model value at the exact model output time step. Hourly Averaged values represent the average model values for the 60 minutes beginning with the model output time step. Hourly Cumulative represent the cumulative (summed) model values for the 60 minutes ending at the model output time step. 3X is the dimension along the x-axis, Y is the dimension along the y-axis, Z is the vertical dimension, Z' is the user pre-defined size of the vertical dimension controlled by the environment variables CONC_BLEV_ELEV, ACONC_BLEV_ELEV, AELMO_BLEV_ELEV, and NLAYS_PHOTDIAG (range from 1 to all layers) and W is a non-layer dimension, e.g. number of LU fractions, number of sites for vertical extraction. 4A special ASCII output file, FLOOR_xxx with xxx being the processor number, contains information when a simulation results in negative concentrations. ## 7.2 CCTM Output Files Some output files created by the CCTM are considered standard output as these contain hourly concentration and deposition values and information to document the run. Options for these files are controlled by their corresponding environment variable in the CCTM RunScript (e.g. run_cctm.csh). **CMAQ output log** [Return to Table 7-1](#cmaq_output_log_t) All of the CMAQ processors generate standard output and standard error during execution. When you run the CMAQ executable interactively, diagnostic output information can be captured to a log file using a UNIX redirect command: ``` run.cctm >& tee cctm.log ``` The LOGFILE environment variable allows users to specify the name of a log file for capturing the standard output from the program. If this variable is not set, the standard output is written to the terminal and can be captured using the UNIX redirect command (“>”), as shown in the example above. **CCTM_CONC: CCTM hourly instantaneous concentration file** [Return to Table 7-1](#conc_t) The 2-D or 3-D CCTM hourly concentration file (CONC) contains instantaneous gas-phase species mixing ratios (ppmV) and aerosol species concentrations (µg m-3) at the end of each model output time step. The number and type of species contained in the CONC files depends on the chemical mechanism and aerosol model configurations that are selected when the CCTM is compiled. The [Species NameLists files](CMAQ_UG_ch04_model_inputs.md#matrix_nml) within the mechanism directories list the modeled species, and contain a column that specifies which species are written to the CONC files (e.g. [AE_cb6r3_ae7_aq.nml][link_7_nml]). The GC_*mechname*.nml file lists the gas-phase species, the AE_*mechname*.nml file lists the aerosol species, and the NR_*mechname*.nml lists the nonreactive (inert) species. Species can be removed from the CONC file by editing the CONC column in the NameList file(s) to reduce the number of species that are written to, and thus the size of the CONC file. Users can also specify the output species list (including temperature, pressure & relative humidity) by modifying the environment variable CONC_SPCS in the RunScript which overrides the setting of the CONC column in the NameList file(s). By default, concentrations for all model layers are output to the CONC file. Users may specify the layers to output using the CONC_BLEV_ELEV environment variable in the RunScript where BLEV corresponds to the bottom layer number and ELEV corresponds to the top layer number. **CCTM_ACONC: hourly average concentration file** [Return to Table 7-1](#aconc_t) The 2-D or 3-D CCTM integral average concentration file contains average model species concentrations for each model hour, as opposed to instantaneous concentrations at the end of each output time step. The species written to the ACONC file are set by the user in the CCTM RunScript using the environment variable AVG_CONC_SPCS. The model layers for which hourly average concentrations are calculated are also set in the CCTM RunScript using the environment variable ACONC_BLEV_ELEV, where BLEV corresponds to the bottom layer number and ELEV corresponds to the top layer number. An example setting for the ACONC_BLEV_ELEV variable is “1 6”, which defines layers 1 through 6 as the vertical extent for which hourly average concentrations are calculated and written to the ACONC file. **CCTM_ELMO: instantaneous hourly ELMO output file** [Return to Table 7-1](#ELMO_t) This optional 2-D or 3-D CCTM output file contains instantaneous information at the end of the output time step for user-specified variables including concentrations that would appear on CONC and ACONC files as well as aggregate variables like total mass of PM2.5 and PM10. Diagnostic parameters that were found on the PMDIAG file in previous CMAQ versions are also available for output on the ELMO file. Thease include particle geometric mean diameters, geometric standard deviations, bulk densities, 2nd moments and 3rd moments for the lognormal modes. It also includes the fraction of each mode that contributes to PM1, PM2.5, and PM10 and the AMS transmission factor for each mode. Many diagnostics relating to heterogenous chemistry are provided including the N2O5 reaction probability, the ClNO2 reaction yield, and the IEPOX uptake coefficient. Units for all variables are specified in the output file. The namelist input file CMAQ_Control_Misc.nml allows users to omit this file (set instant = .FALSE. under &elmo_activate), to set the top and bottom layers to be output (Inst_Layer_Top and Inst_Layer_Bot under &elmo_inst) and which variables to output (Inst_Vars_Nml under &elmo_inst). See [Appendix F (ELMO Output):](Appendix/CMAQ_UG_appendixF_elmo_output.md) for more details. **CCTM_AELMO: average hourly ELMO output file** [Return to Table 7-1](#aELMO_t) This optional 2-D or 3-D CCTM output file contains average information integrated from the previous output time step for user-specified variables including concentrations that would appear on CONC and ACONC files as well as aggregate variables like total mass of PM2.5 and PM10. Diagnostic parameters that were found on the PMDIAG file in previous CMAQ versions are also available for output on the ELMO file. Thease include particle geometric mean diameters, geometric standard deviations, bulk densities, 2nd moments and 3rd moments for the lognormal modes. It also includes the fraction of each mode that contributes to PM1, PM2.5, and PM10 and the AMS transmission factor for each mode. Many diagnostics relating to heterogenous chemistry are provided including the N2O5 reaction probability, the ClNO2 reaction yield, and the IEPOX uptake coefficient. Units for all variables are specified in the output file. The namelist input file CMAQ_Control_Misc.nml allows users to omit this file (set instant = .FALSE. under &elmo_activate), to set the top and bottom layers to be output (Inst_Layer_Top and Inst_Layer_Bot under &elmo_inst) and which variables to output (Inst_Vars_Nml under &elmo_inst). See [Appendix F (ELMO Output):](Appendix/CMAQ_UG_appendixF_elmo_output.md) for more details. **CCTM_DRYDEP: hourly cumulative dry deposition file** [Return to Table 7-1](#drydep_t) The 2-D CCTM dry deposition file contains cumulative hourly dry deposition fluxes (kg hectare-1) for selected model species. CCTM calculates dry deposition for all of the species listed in the dry deposition column of the [Species NameLists files](CMAQ_UG_ch04_model_inputs.md#matrix_nml) within the mechanism directories. The GC_*mechname*.nml file lists the gas-phase species, the AE_*mechname*.nml file lists the aerosol species, and the NR_*mechname*.nml lists the nonreactive (inert) species. Species can be removed from the dry deposition file by editing the DDEP column in the NameList file(s). ##### NH3 flux components in CCTM_DRYDEP CMAQ v5.3 and later contains two build-time options for calculating dry deposition/surface exchange: M3DRY and STAGE. (See [Section 6.8 ](CMAQ_UG_ch06_model_configuration_options.md#68-dry-depositionair-surface-exchange) for further information). Both M3DRY and STAGE support modeling ammonia bidirectional surface flux. The definition of the NH3 flux components in the CCTM_DRYDEP file will depend on whether or not bidirectional NH3 flux option has been enabled (a run-time option controlled by setting CTM_ABFLUX to Y or N). When the model is run without the bidirectional NH3 flux option enabled (CTM_ABFLUX set to N), the variable NH3 in the CCTM_DRYDEP file represents the unidirectional ammonia dry deposition flux in both STAGE and M3DRY. When the model is run with CTM_ABFLUX set to Y, the CCTM_DRYDEP file will contain additional NH3 flux components. The variable names and definitions are defined in Table 7-2. Note that these variables definitions may not agree with the definitions used in CMAQ versions prior to version 5.3.2. **Table 7-2. NH3 Flux components in CCTM_DRYDEP Output files when ammonia bidirectional surface flux is enabled** |**Variable Name**|**Variable Description**| |:----:|:----------------------------:| |NH3|Downward Deposition Flux (always positive) | |NH3_Emis|Upward Emissions Flux (always positive) | |NH3_Flux|Net Flux (positive if downward and negative if upward) | **CCTM_WETDEP1: hourly cumulative wet deposition file** [Return to Table 7-1](#wetdep_t) The 2-D CCTM wet deposition file contains cumulative hourly wet deposition fluxes (kg hectare-1) for selected model species. CCTM calculates wet deposition for all of the species listed in the wet deposition column of the [Species NameLists files](CMAQ_UG_ch04_model_inputs.md#matrix_nml) within the mechanism directories. The GC_*mechname*.nml file lists the gas-phase species, the AE_*mechname*.nml file lists the aerosol species, and the NR_*mechname*.nml lists the nonreactive (inert) species. Species can be removed from the wet deposition file by editing the WDEP column in the NameList file(s). ## 7.3 Restart Files There are several files created by the CCTM that are used to enable a restart of the run for any specific day. The files contain values for parameters at the end of the day which are used to initialize the values for the start of calculations for the next day. **CCTM_CGRID: gridded concentration restart file** [Return to Table 7-1](#cgrid_t) The 3-D CCTM ending concentration file contains gas-phase species mixing ratios (ppmV) and aerosol species concentrations (µg m-3) at the end of each simulation period. The number and types of species contained in the output CGRID files depend on the chemical mechanism and aerosol model configurations that are selected when CCTM is compiled. This file can be used to initialize CCTM from a simulation period that the model completed. For example, if the CCTM is configuring to produce daily output files, a CGRID file will be written out at the end of each simulation day. These concentrations then become the initial conditions for the next simulation period. **CCTM_MEDIA_CONC: Bidirectional modeling media concentration file** [Return to Table 7-1](#media_conc_t) This 2-D CCTM file contains the soil NH4+ and pH concentrations and/or the soil, vegetation and water Hg concentrations. This file is only created when the CTM_ABFLUX environment variable or the CTM_HGBIDI variable in the RunScript is set to Y (Default is N) for either the M3Dry or STAGE dry deposition option. For STAGE, it is used to initialize the next day of the model simulation for either the CTM_ABFLUX == Y or CTM_HGBIDI == Y case. For M3Dry, it is only used to initialize the next day of the model simulation for the CTM_HGBDIDI == Y case while the the soil NH4+ and pH concentrations written to this file for the CTM_ABFLUX == Y case are purely diagnostic. As described in [Chapter 6](CMAQ_UG_ch06_model_configuration_options.md#6.8.1_Dry_Depm3dry), M3Dry relies exclusively on input files generated by EPIC to derive the soil compensation concentration for the bidirectional NH3+ flux calculation. **CCTM_BSOILOUT and CCTM_MSOILOUT** [Return to Table 7-1](#soilout_t) *BEIS* The 2-D "soilout" file contains hourly total rainfall information for subsequent use by the CCTM in-line biogenics module. It is written out at the end of each simulation day and is only created if the CTM_BIOGEMIS_BE environment variable in the RunScript is set to Y (Default is N). The file name is defined in the runscript by setting the environmental variable BEIS_SOILOUT. With the exception of the first day of the simulation when the environment variable NEW_START is set to TRUE, the previous day's rainfall information contained in the file is used in the calculation of soil NO emissions by the CCTM in-line biogenics module. This is accomplished by setting the BEIS_SOILINP environment variable in the RunScript for a given day to the CCTM_BSOILOUT file created at the end of the previous day's simulation. Note that even though this file contains 24 hourly gridded rainfall fields, it has a time-independent file structure and stores these 24 values as 24 separate time-independent variables (RAINFALL01, ... RAINFALL24). However, while the structure of the file is time-independent, each day's CCTM_BSOILOUT file is unique due to the daily variations in meteorology. Therefore, care must be taken to ensure that the BEIS_SOILINP file specified for a given day is indeed the CCTM_BSOILOUT file for the previous day rather than that for a different day. *MEGAN* As with BEIS, the file set by the environmental variable MEGAN_SOILOUT contains rainfall information that is needed for the calculation of soil NO emissions when CTM_BIOGEMIS_MG is set to Y (Default is N). When enabling in-line MEGAN this file will also contains LAI, temperature, and radiation information that is used to calculate biogenic emissions. The input file from the previous day is identified by the environmental variable MEGAN_SOILINP in the run script. **CCTM_BDSNPOUT** [Return to Table 7-1](#bdsnpout_t) This file is required when setting both CTM_BIOGEMIS_MG to Y and BDSNP_MEGAN to Y, since the BDSNP soil NO model requires information about the previous day's meteorology and nitrogen deposition reservoir. The output file is created at the end of the simulation day and its name is defined by setting the environmental variable BDSNPOUT. The input file for the previous day is defined by setting the environmental variable BDSNPINP. ## 7.4 Diagnostic and Advanced CMAQ Output Files Along with the standard output files detailed in the previous section, CCTM can be configured to output several auxiliary files for diagnostic model purposes. Each option is controlled by its corresponding environment variable in the CCTM RunScript (e.g. run_cctm.csh). For logical values, TRUE/T is equivalent to Y and FALSE/F is equivalent to N. Note that I/O APIv3.2 supports up to MXFILE3=64 open files, each with up to MXVARS3=2048. Turning on all of the diagnostic and advanced CMAQ output files can exceed this upper limit of open files, leading to a model crash. To avoid this issue, users may use I/O API version 3.2 "large" that increases MXFILE3 to 512 and MXVARS3 to 16384. This version is available as a zip file from the following address: https://www.cmascenter.org/ioapi/download/ioapi-3.2-large.tar.gz Installation instructions for I/O API v5.3-large are provided in README.txt in the .tar.gz file. **FLOOR: concentration-reset diagnostics file** [Return to Table 7-1](#floor_t) This optional ASCII file contains specific gridcells/timesteps in which species with negative concentrations are reset to zero. The location and name of the file is set by the FLOOR_FILE environment variable. **CCTM_BUDGET: Budget Tool Output File** [Return to Table 7-1](#budget_t) This optional ascii file outputs domain-wide changes for user-specified species every output time step in units of kg for gases and aerosols, number for particle number, and m2 for particle surface area. See [Chapter 9 (Process Analysis and Budget):](CMAQ_UG_ch09_process_analysis.md) for a description of the Budget Tool methods, interface, and potential applications. The destination folder of this output file must be specified with the $OUTDIR environment variable in the RunScript. If this variable is not specified, the destination will be the root directory. **CCTM_B3GTS_S: biogenic emissions diagnostic file** [Return to Table 7-1](#b3gts_t) This optional 2-D CCTM hourly output file contains total hourly biogenic emissions in mass units calculated in-line by the CCTM when the CTM_BIOGEMIS environment variable is set to Y. This file is only created if the B3GTS_DIAG environment variable in the RunScript is set to Y (Default is Y) and only if BEIS is the selected biogenic emisisons model. **CCTM_DEPV: inline deposition diagnostics file** [Return to Table 7-1](#depv_t) This optional 2-D CCTM file contains the deposition velocity (m/s) for each chemical species calculated for the final time step for the hour. CCTM calculates the deposition velocity for all of the species listed in the deposition velocity column of the [Species NameLists files](CMAQ_UG_ch04_model_inputs.md#matrix_nml) files within the mechanism directories. The GC_*mechname*.nml file lists the gas-phase species, the AE_*mechname*.nml file lists the aerosol species, and the NR_*mechname*.nml lists the nonreactive (inert) species. Species can be removed from the deposition velocity file by editing the DDEP column in the NameList file(s). This file is only created if the CTM_DEPV_FILE environment variable in the RunScript is set to Y (Default is N). **CCTM_DUSTEMIS: dust emissions diagnostic file** [Return to Table 7-1](#dust_t) This optional 2-D CCTM hourly output file contains dust emissions in mass units calculated in-line by the CCTM when the CTM_WB_DUST environment variable is set to Y. This file is only created if the CTM_DUSTEM_DIAG environment variable in the RunScript is set to Y (Default is N). **CCTM_DESIDX: DESID diagnostic output file** [Return to Table 7-1](#desid_t) This optional 2-D or 3-D CCTM hourly output file contains emission rates equal to those calculated by DESID after all user-specified rules have been implemented and input emissions data applied. Use the CMAQ_Control_DESID.nml file to specify the number and contents of these emissions diagnostic files. They may contain information about one stream or many, and the variable list for each is customizable. See [Appendix B (Emissions Control):](Appendix/CMAQ_UG_appendixB_emissions_control.md) for more information. **CCTM_DEPVMOS: land use specific deposition velocity file** [Return to Table 7-1](#depv_mos_t) This optional 3-D CCTM file contains the deposition velocity (m s-1) for the final time step of the hour for each land use type within a grid cell. This output file is structured with the land use category being the 3rd dimension (i.e. equivalent to the layers in a concentration file). So, for model runs using the NLCD land use category system, the files will have 40 "layers". This file is only created if the DepMod environment variable in the BuildScript is set to stage (rather than m3dry) and if the CTM_MOSAIC environment variable in the RunScript is set to Y (Default is N). **CCTM_DDMOS: land use specific deposition flux file** [Return to Table 7-1](#dry_dep_mos_t) This optional 3-D CCTM file contains the total deposition (kg hectare-1) for the hour for each land use type within each grid cell. This output file is structured with the land use category being the 3rd dimension (i.e. equivalent to the layers in a concentration file). So, for model runs using the NLCD land use category system, the files will have 40 "layers". This file is only created if the ModDepv environment variable in the BuildScript is set to stage (rather than m3dry) and if the CTM_MOSAIC environment variable in the RunScript is set to Y (Default is N). **CCTM_LTNGHRLY: hourly lightning emissions file** [Return to Table 7-1](#ltngdiag1_t) This optional 3-D CCTM file contains hourly lightning NO emissions (mol/s) calculated in-line by the CCTM when setting the CTM_LTNG_NO environment variable to Y. This file is only created if the CTM_LTNGDIAG_1 environment variable in the RunScript is set to Y (Default is N). **CCTM_LTNGCOL: hourly column total lightning emissions** [Return to Table 7-1](#ltngdiag2_t) This optional 2-D CCTM file contains hourly column-total lightning NO emissions (mol/s) calculated in-line by the CCTM when setting the CTM_LTNG_NO environment variable to Y. This file is only created if the CTM_LTNGDIAG_2 environment variable in the RunScript is set to Y (Default is N). **CCTM_PHOTDIAG1: In-line photolysis inputs and outputs - summary file** [Return to Table 7-1](#ctm_rj1_t) This optional 2-D CCTM file contains general summary information for the photolysis calculation including the surface albedo, select photolysis rates and flux values. This file is only created if the CTM_PHOTDIAG environment variable in the RunScript is set to Y (Default is N). **CCTM_PHOTDIAG2_2: In-line photolysis output – gridded photolysis rates** [Return to Table 7-1](#ctm_rj2_t) This optional 3-D CCTM file contains the photolysis rates calculated in-line by the CCTM. The number of layers is set by the NLAYS_PHOTDIAG environment variable (Default is all layers). This file is only created if the CTM_PHOTDIAG environment variable in the RunScript is set to T (Default is N). **CCTM_PHOTDIAG3: In-line photolysis inputs and outputs – detailed** [Return to Table 7-1](#ctm_rj3_t) This optional 3-D CCTM file contains detailed inputs and results from the photolysis rate calculation done in-line by the CCTM. The number of layers is set by the NLAYS_PHOTDIAG environment variable (Default is all layers). The number of wavelengths included in the file is set by the NWAVE_PHOTDIAG environment variable (Default is all wavelengths). This file is only created if the CTM_PHOTDIAG environment variable in the RunScript is set to T (Default is N). **CCTM_SSEMIS: Sea salt emissions diagnostic file** [Return to Table 7-1](#ssemis_t) This optional 2-D CCTM hourly output file contains calculated sea salt emissions (g/s). This file is only created if the CTM_SSEMDIAG environment variable in the RunScript is set to Y (Default is N). **CCTM_WETDEP2: CCTM cloud diagnostics file** [Return to Table 7-1](#wetdep2_t) In CMAQ, wet deposition is calculated separately for resolved (grid-scale) clouds and for convective (subgrid) clouds. The WETDEP1 file contains the total wet deposition, i.e., the sum of both resolved-scale and subgrid-scale deposition. The WETDEP2 file contains only subgrid-scale deposition, plus some cloud diagnostic variables. The 2-D CCTM wet deposition file (WETDEP2) includes cumulative hourly wet deposition fluxes (kg hectare-1) for selected model species. CCTM calculates wet deposition for all of the species listed in the wet deposition column of the [Species NameLists files](CMAQ_UG_ch04_model_inputs.md#matrix_nml) files within the mechanism directories. The GC_*mechname*.nml file lists the gas-phase species, the AE_*mechname*.nml file lists the aerosol species, and the NR_*mechname*.nml lists the nonreactive (inert) species. Species can be removed from the wet deposition file by editing the WDEP column in the NameList file(s). This file is only created if the CLD_DIAG environment variable in the RunScript is set to Y (Default is N). **CCTM_VEXT: file of vertical profiles of concentration at selected sites** [Return to Table 7-1](#vext_t) This optional 3-D CCTM file contains vertical profiles of the concentration of multiple chemical species for latitude / longitude coordinates specified in the VERTEXT_COORD_PATH file. The species written to this output file are identical to those written to the 3D CONC file which in turn are controlled either by the setting of CONC_SPCS in the RunScript or the last column in the GC, AE, NR, and TR namelist files. There is one row for each location specified. The coordinates for each location are echoed in the file metadata in the "history" field. This file is only created if the VERTEXT environment variable in the RunScript is set to Y (Default is N). [<< Previous Chapter](CMAQ_UG_ch06_model_configuration_options.md) - [Home](README.md) - [Next Chapter >>](CMAQ_UG_ch08_analysis_tools.md)
CMAQv5.5 User's Guide
[link_7_nml]: ../../CCTM/src/MECHS/cb6r3_ae7_aq/AE_cb6r3_ae7_aq.nml [link_7_nml]: https://github.com/USEPA/CMAQ/blob/main/CCTM/src/MECHS/cb6r3_ae7_aq/AE_cb6r3_ae7_aq.nml ================================================ FILE: DOCS/Users_Guide/CMAQ_UG_ch08_analysis_tools.md ================================================ [<< Previous Chapter](CMAQ_UG_ch07_model_outputs.md) - [Home](README.md) - [Next Chapter >>](CMAQ_UG_ch09_process_analysis.md) # 8. Analysis Tools for CMAQ output ## 8.1 Introduction Many software programs are freely available for pre- and post-processing, evaluating and visualizing CMAQ outputs. Examples of such freeware are provided in [Table 8-1](#Analysis_Software_Table). Several other commercial packages, including MATLAB and IDL, also support the analysis and visualization of CMAQ inputs and outputs. Most visualization and analysis software that support netCDF file formats, such as R and Python, will work with CMAQ outputs. **Table 8-1. Software Programs for Evaluating and Visualizing CMAQ Data** |**Software**|**Description**| **Source** | |------------|-------------------------------|---------------------------------------------| |***Post-processing***||| |CMAQ POST Tools|Programs released with CMAQ source code to prepare output data for model evaluation|[https://github.com/USEPA/CMAQ/blob/main/POST/README.md](https://github.com/USEPA/CMAQ/blob/main/POST/README.md)| |I/O API Tools|Postprocessing tools for manipulating data in the I/O API/netCDF format|[https://www.cmascenter.org/ioapi](https://www.cmascenter.org/ioapi)| |NCO|netCDF Operators: Postprocessing tools for manipulating data in the netCDF format|[http://nco.sourceforge.net](http://nco.sourceforge.net) |***Evaluation/Visualization***| | | |AMET|Atmospheric Model Evaluation Tool for analysis and evaluation of meteorological and air quality models|[https://www.epa.gov/cmaq/atmospheric-model-evaluation-tool](https://www.epa.gov/cmaq/atmospheric-model-evaluation-tool)| |VERDI|Visualization Environment for Rich Data Interpretation for graphical analysis of netCDF gridded data|[https://www.cmascenter.org/verdi](https://www.cmascenter.org/verdi)| |PseudoNetCDF|Reading, plotting, and sometimes writing capabilities for atmospheric science data formats including CMAQ files|[https://github.com/barronh/pseudonetcdf/wiki](https://github.com/barronh/pseudonetcdf/wiki)| |RSIG|2D and 3D visualization of satellite and modeled data|[https://www.epa.gov/hesc/remote-sensing-information-gateway](https://www.epa.gov/hesc/remote-sensing-information-gateway)| |NCL|NCAR Command Language for scientific data processing and visualization|[http://www.ncl.ucar.edu](http://www.ncl.ucar.edu)| |IDV|Integrated Data Viewer for 3-D graphical analysis of netCDF gridded data|[http://www.unidata.ucar.edu/software/idv/](http://www.unidata.ucar.edu/software/idv/)| This chapter briefly describes how to use some of the software tools supported by the EPA and CMAS to aggregate CMAQ output, pair aggregated CMAQ output in space and time to air quality observations, create various evaluation plots, and visualize model fields. ## 8.2 Aggregating and Transforming Model Species Concentrations The *combine* Fortran program, released as part of the CMAQ POST tools, can combine variables from CMAQ output, emissions, or meteorology files into a new I/O API file. Model species can be aggregated or transformed into variables of interest, e.g., to change units from ppmV to ppbV or match observed quantities from a specific monitoring network. Model output files can be concatenated to create files for longer time periods, e.g., files with hourly data for individual days can be combined into a single file for an entire month. More information on the *combine* utility and its use can be found in this [README file.][Link_8.2] The *combine* utility relies on a chemical mechanism-specific "Species Definition" files that prescribe how CMAQ output variables should be mapped and/or combined to become comparable to different measured gas, particle, and deposition species. When you download the CMAQ code, the Species Definition files corresponding to default model output variables are automatically included under the subdirectory "CCTM/src/MECHS". Within each of the listed mechanism folders, you will find files "SpecDef_MECH_NAME.txt" (for gas and aerosol species) and "SpecDef_dep_MECH_NAME.txt" (for deposition species) that contain a long list of species definitions and corresponding documentation. For example, the calculation of NOX in ppbV is given as ``` NOX ,ppbV ,1000.0*(NO[1] + NO2[1]) ``` where NO and NO2 are pulled from an hourly instantaneous [CCTM_CONC](CMAQ_UG_ch07_model_outputs.md#conc) or hourly average [CCTM_ACONC](CMAQ_UG_ch07_model_outputs.md#aconc) model output file in units of ppmV. Note that some species aggregation is already happening within the CMAQ model. The CMAQ aerosol module explicitly represents a number of individual aerosol species that need to be combined for comparisons to measured total PM2.5 mass. The Explicit and Lumped Model Output (ELMO) capability introduced in CMAQv5.4 prescribes the calculation of aggregated aerosol species (e.g., PM1, PM2.5, and PM10), as well as diagnostic values (e.g., aerosol surface area and number) and CMAQ calculates them online. The species are then written to the [CCTM_ELMO](CMAQ_UG_ch07_model_outputs.md#ELMO) or [CCTM_AELMO](CMAQ_UG_ch07_model_outputs.md#AELMO) output files. The "SpecDef_MECH_NAME.txt" file relies on output from the CCTM_CONC (or CCTM_ACONC) and the CCTM_ELMO (or CCTM_AELMO) files in addition to meteorological variables for completing all of its calculations. Generally, gas-phase species coming from the direct CCTM_CONC output and aerosol species from CCTM_ELMO. For reference and transparency, each mechanism folder also includes a file named "SpecDef_Conc_MECH_NAME.txt", which processes both gas- and aerosol species from the CCTM_CONC file (CCTM_ELMO variables is still needed for applying hard bounds on particle size, like 2.5 um). These "SpecDef_Conc_MECH_NAME.txt" files are provided for all Carbon Bond 6-based mechanisms and all CRACMM-based mechanisms. Either of these two approaches should yield highly similar or exactly equal results. Finally, the SpecDef_Dep_MECH_NAME.txt files are provided to processes deposition variable output from CMAQ. See [Appendix F](Appendix/CMAQ_UG_appendixF_elmo_output.md) for more information about the calculation of ELMO output variables and how this relates to use of the *combine* tool. ## 8.3 Model-Observation Pairing for Model Evaluation Once model output has been processed using *combine*, the *sitecmp* and *sitecmp_dailyo3* utilities can be used to match air pollutant measurements with the appropriate model predicted variables. This pairing of model and observed variables is specified in the run scripts for *sitecmp* and *sitecmp_dailyo3*. In *sitecmp_dailyo3* this step is controlled by the definition of environment variables OBS_SPECIES and OZONE. See the [README.md][link_8.3] and the sample run script in the [*sitecmp_dailyo3* scripts][link_8.3_II] folder for more information on setting these environment variables. The run script for the *sitecmp* utility can be customized for many different types of chemical and meteorological quantities as described in the [README.md][link_8.3_III] for sitecmp. Sample run scripts for the AQS, CSN, IMPROVE, NADP and SEARCH networks based on the 2016 CMAQ test case are provided in the [*sitecmp* scripts][link_8.3_IV] folder. In addition, the [README.md][link_8.3_IV] file within the *sitecmp* scripts folder provides the configuration options for monitoring networks. Note that there are multiple formats for CSN and SEARCH observed data files depending on the year. The README.txt file is broken into different sections to reflect the change in species names in the observation files for these two networks. (For example, elemental carbon measurements from the CSN network are labeled as “ec_niosh” in 2009 and earlier, “ec_tor” in 2010, and “88380_val” starting in 2011.) ### 8.3.1 Spatial matching in sitecmp and sitecmp_dailyo3 In *sitecmp*, model values are extracted for the grid cell containing the monitor location. In *sitecmp_dailyo3* the model value of the grid cell containing the observation is provided, as well as the maximum model value of the 9 grid cells centered on the monitor location. These variables in the output file contain the character string "9cell" in the variable name. ### 8.3.2 Temporal matching in sitecmp and sitecmp_dailyo3 * **AQS_HOURLY, CASTNET_HOURLY, SEARCH_HOURLY, NAPS_HOURLY, AERONET**: Air quality observations are assumed to be hourly averages time stamped at the beginning of the hour with local standard time (LST). The *sitecmp* utility will use the time stamp from the observations to determine the matching model time step, accounting for the time zone of the monitor. Therefore, best practice would be for the model time step to also represent hourly average time stamped at the beginning of the hour. This can be accomplished by running the *combine* utility on the CMAQ [CCTM_ACONC](CMAQ_UG_ch07_model_outputs.md#ACONC) or [CCTM_AELMO](CMAQ_UG_ch07_model_outputs.md#AELMO) output files which follow this convention (rather than the instantaneous model ouput files [CCTM_CONC](CMAQ_UG_ch07_model_outputs.md#CONC) and [CCTM_ELMO](CMAQ_UG_ch07_model_outputs.md#AELMO)). These networks also include meteorological measurements. Since meteorological observations are near instantaneous measurements (e.g. 1- or 5-minute averages), using meteorological fields from MCIP or wrfout in *combine* results in the correct matching since these fields are also instantaneous. One exception is the calculation of modeled relative humidity (RH). This variable is not available from MCIP or wrfout files but is stored in the CMAQ CCTM_AELMO output file which represents hourly average values. This creates a slight inconsistency between observed and modeled values for this variable in the sitecmp output files. Note that modeled and observed precipitation for a given hour represents the hourly total rather than the hourly average. * **AQS_DAILY_O3, CASTNET_DAILY_O3, NAPS_DAILY_O3**: *sitecmp_dailyo3* computes various daily metrics from observed and modeled hourly ozone values. The temporal matching of the hourly observed and modeled values used in these computations follows the same approach described above for AQS_HOURLY. Therefore, it is best practice to use output from CMAQ CCTM_ACONC files for modeled ozone predictions (rather than CCTM_CONC). Details on the computation of the various daily metrics is provided in the *sitecmp_dailyo3* documentation. * **AQS_DAILY, CSN, IMPROVE, SEARCH_DAILY**: Air quality observations are daily averages time stamped with the date in local standard time. The *sitecmp* utility will use the date from the observations to compute daily averages using 24 hourly modeled values, accounting for the time zone of the monitor. Therefore, it is best practice to use output from CMAQ CCTM_ACONC and CCTM_AELMO files for modeled air quality predictions which represent hourly average concentrations (rather than CCTM_CONC and CCTM_ELMO). * **CASTNET**: Air quality observations are weekly averages time stamped with beginning and end date and time of the weekly interval in local standard time. The *sitecmp* utility will use the start and end date and time from the observations to compute weekly averages using hourly modeled values, accounting for the time zone of the monitor. Therefore, it is best practice to use output from CMAQ CMAQ CCTM_ACONC and CCTM_AELMO files for modeled air quality predictions which represent hourly average concentrations (rather than CCTM_CONC and CCTM_ELMO). * **NADP**: Air quality observations are weekly sums time stamped with beginning and end date of the weekly interval in local standard time. The *sitecmp* utility will use the start and end date from the observations to compute weekly sums using hourly modeled values, accounting for the time zone of the monitor. Observations are matched to output from CMAQ [CCTM_WETDEP1](CMAQ_UG_ch07_model_outputs.md#wetdep) files which represent hourly totals. * **TOAR**: Air quality observations are daily average values of O3, MDA8 O3, O3 daytime average and O3 nighttime average. The *sitecmp* utility must be given daily average values computed from hourly values using the *hr2day* utility. ## 8.4 The Atmospheric Model Evaluation Tool (AMET) The Atmospheric Model Evaluation Tool (AMET) was developed to aid in the evaluation of the meteorological and air quality models within the CMAQ modeling system (i.e. WRF, MPAS, CMAQ-CTM). AMET organizes, provides consistency and speeds-up the evaluation process for operational meteorological and air quality model simulations. The AMET software is written primarily in R, with support from several fortran programs and cshell scripts. The tool also requires the presence of a MySQL database for analysis of meteorological data and full functional analysis of air quality (CMAQ) data (analysis of CMAQ output can be done without a database present). Although it was developed specifically to aid in the evaluation of the CMAQ modeling system, the AMET software can be adapted to work with other modeling systems. There are separate modules in AMET for evaluating meteorological and air quality model output. This separation is necessary because both the observed and predicted meteorological and air quality data are quite different, utilizing different file formats for both the observed and model data. In addition, the observed meteorological and air quality data are often obtained from networks that use different sampling protocols, which can make pairing meteorological and air quality data together difficult. One advantage of separate meteorological and air quality modules in AMET is that the modules can be installed individually, allowing a user to reduce installation time and complexity if only meteorological or air quality analysis is required. A more detailed description of AMET can be found at https://www.epa.gov/cmaq/atmospheric-model-evaluation-tool, including a flow diagram of the AMET system and example output plots from the tool. The AMET github repository resides at https://github.com/USEPA/AMET. The repository includes the latest version of AMET, along with a complete description of the tool, a User's Guide, an Installation Guide, and a Quick Start Guide. #### Observation data for model evaluation AMET requires observation data to be in a specific format. AMET-ready observation data files going back to 2000 are available on the CMAS Data Warehouse Google Drive: [North America Air Quaility Observation Files](https://drive.google.com/drive/folders/1QUlUXnHXvXz9qwePi5APzzHkiH5GWACw?usp=drive_link) The network data available include: AERONET, AMON, AQS, CASTNET, CSN, FLUXNET, IMPROVE, NADP, NAPS, NOAA ESRL, SEARCH, and TOAR. ## 8.5 Visualization Environment for Rich Data Interpretation (VERDI) The Visualization Environment for Rich Data Interpretation (VERDI) is a visual analysis tool for evaluating and plotting multivariate gridded results from meteorological and air quality models. VERDI is written in Java, so it can be run on a variety of computer operating systems; VERDI packages are currently released for Linux, Windows, and Mac. In addition to supporting the CMAQ modeling system, VERDI also currently supports analysis and visualization of model results from the regional [Weather Research and Forecasting (WRF) model](https://ncar.ucar.edu/what-we-offer/models/weather-research-and-forecasting-model-wrf), the global [Model for Prediction Across Scales (MPAS)](https://ncar.ucar.edu/what-we-offer/models/model-prediction-across-scales-mpas), the [Meteorology-Chemistry Interface Processor (MCIP)][link_8.5], and the [Comprehensive Air Quality Model with Extensions (CAMx)](http://www.camx.com). In addition, VERDI can read and overlay observational data at monitoring site locations to visually compare model results to observations, both spatially and temporally. VERDI’s interactive graphical user interface (GUI) allows for quick examination of model results, while the command line scripting capability in VERDI can be used for more routine analysis and plot production. Supported input data formats include I/O API, netCDF (both WRF-style and MPAS-style), and UAM-IV from models and ASCII text, and netCDF for observational data sets. Supported map projections include Lambert conformal conic, Mercator, Universal Transverse Mercator, and polar stereographic. Once data are loaded into VERDI, individual selected variables can be plotted or utilized as inputs to mathematical formulas which can then be plotted. Available plot types include spatial tile, areal interpolation based on shapefiles, vertical cross section, time series, time series bar, scatter, and 3-D contour plots. Plots can then be enhanced with overlays of observations from monitoring sites, wind vectors, grid lines/cell boundaries, and additional GIS layers, such as boundaries for states, counties, HUCs (hydrologic unit codes), rivers, roads, and user-defined shapefiles. Plotting of variables can be limited to specified spatial and/or temporal ranges, with minimum/maximum values for the variable for the displayed area and time automatically shown at the bottom of each plot frame. Plots can be saved as raster images (BMP, JPEG, PNG, TIFF) of a chosen pixel size, vector images (EPS), or animated GIF “movies.” Areal ESRI-compatible shapefiles and ASCII text or comma-separated-values can also be exported. Interactive analysis is aided with the ability to quickly zoom into areas of interest and to probe data values within a grid cell. To facilitate plot reproducibility, VERDI can save the session as a project file and the customization of each plot (e.g., data range, color palette, font characteristics, titles, and labels) as a plot configuration file. Plus, quick statistical analysis of the displayed data is easily accomplished by using VERDI’s built-in algorithms for minimum/maximum, mean, geometric mean, median, first and third quartiles, variance, standard deviation, coefficient of variance, range, interquartile range, sum, timesteps of minimum and maximum, hours of non-compliance, maximum 8-h mean, count, fourth max, and custom percentiles. The CMAS Center currently hosts VERDI at https://www.cmascenter.org/verdi, providing a brief description with links to download VERDI and its documentation. The main code repository for VERDI resides at https://github.com/CEMPD/VERDI where users can download the latest release, peruse the documentation, and note the latest known issues and bugs. [<< Previous Chapter](CMAQ_UG_ch07_model_outputs.md) - [Home](README.md) - [Next Chapter >>](CMAQ_UG_ch09_process_analysis.md)
CMAQv5.5 User's Guide
[link_8.2]: ../../POST/combine/ [link_8.3]: ../../POST/sitecmp_dailyo3/ [link_8.3_II]: ../../POST/sitecmp_dailyo3/scripts/ [link_8.3_III]: ../../POST/sitecmp/ [link_8.3_IV]: ../../POST/sitecmp/scripts/ [link_8.5]: ../../PREP/mcip/ [link_8.2]: https://github.com/USEPA/CMAQ/blob/main/POST/combine/ [link_8.3]: https://github.com/USEPA/CMAQ/blob/main/POST/sitecmp_dailyo3/ [link_8.3_II]: https://github.com/USEPA/CMAQ/blob/main/POST/sitecmp_dailyo3/scripts/ [link_8.3_III]: https://github.com/USEPA/CMAQ/blob/main/POST/sitecmp/ [link_8.3_IV]: https://github.com/USEPA/CMAQ/blob/main/POST/sitecmp/scripts/ [link_8.5]: https://github.com/USEPA/CMAQ/blob/main/PREP/mcip/ ================================================ FILE: DOCS/Users_Guide/CMAQ_UG_ch09_process_analysis.md ================================================ [<< Previous Chapter](CMAQ_UG_ch08_analysis_tools.md) - [Home](README.md) - [Next Chapter >>](CMAQ_UG_ch10_HDDM-3D.md) # 9. Process Analysis and Budget ## 9.1 Introduction Most applications of CMAQ, as well as other 3-D grid models, output concentration fields of chemical species of interest at selected time steps that reflect the cumulative effect of all processes (emissions, chemical reaction, transport, etc.) that act on the chemical species over the time period. Several features in CMAQ allow the user to better understand which processes impacted model predicted concentrations. These options provide information about specific chemical and physical processes to provide insight about contribution and uncertainty. Process Analysis (PA) is a technique for separating out and quantifying the contributions of individual physical and chemical processes to the changes in the predicted concentrations of a pollutant. PA does *not* have to be activated in a CMAQ simulation but including PA in a simulation during runtime provides additional information that can be useful in interpreting CMAQ results. PA has two components: Integrated Process Rate (IPR) analysis and Integrated Reaction Rate (IRR) analysis. IPR analysis quantifies the net change in species through physical processes of advection, diffusion, emissions, dry deposition, aerosol processes, and cloud processes. It also provides an estimate of the overall impact of chemical processes. IRR analysis allows the output of individual chemical reaction rates or user-specified combinations of chemical reactions and species cycling. The Budget Tool (section 9.7) is an optional ascii output that summarizes the domain-wide process changes gathered by the IPR analysis. As a tool for identifying the relative importance of individual chemical and physical processes, PA has many applications, including: - Quantifying major contributors to the concentration of a chemical species at a grid cell. PA can be used to split out the contributions of multiple, complex processes that control species concentrations. PA is useful for species that have both production and decay processes occurring in the same time step, including cases where the final concentration may show little change, but individual decay and production rates may be large. - Characterizing the chemical state of a particular grid cell. PA with IRR can be used to calculate quantities such as the production of odd oxygen, the production of new radicals, the ozone production efficiency and the termination of radicals. (For example, see Tonnesen and Dennis, 2000.) - Aiding model development. PA can help predict and evaluate the effect of modifications made to a model or process module. - Identifying compensating or unresolved errors in the model or input data which may not be reflected in the total change in concentration. For example, if an error in the emissions input data causes the model to calculate negative concentration values in an intermediate step, this could be masked in the final predicted concentrations if compensated for by larger positive values resulting from the chemistry calculations. PA variables are computed by saving the differential operators associated with each process or reaction, integrated over the model synchronization time step for the same variables that are used in solving the continuity equations within the model. For processes that are solved simultaneously in the same operator, PA uses mass balance to compute the contribution of each process. A user activates PA during CMAQ runtime and includes a PA input file to specify whether IPR, IRR or both analyses are performed, and defining what variables are required for each analysis. The IRR parameters are highly customizable and can be easily modified but must be checked carefully before running the model to ensure that they correspond to the mechanism being used. A control file is distributed with CMAQ that corresponds to each chemical mechanism supported by that version of the model. This file can be used as distributed or modified to meet program specific objectives. The derivation of PA and format of input files specific to CMAQ incorporation is detailed in Gipson et al., (1999), and a further description of the science behind PA is provided in Tonnesen (1994) and Jeffries and Tonnesen (1994). ## 9.2 Use of Process Analysis **Step 1: Activate Process Analysis and specify control files** - setenv CTM_PROCAN Y:N Set this variable to Y to indicate that you want process analysis to be activated. The default is N. If this is set to Y, then you must also specify the following two files: - setenv PACM_INFILE [filename] - setenv PACM_REPORT [filename] PACM_INFILE is the input file that specifies the desired output information (read by pa_read.F). Gipson et al., (1999), details the types of equations and operators that can be used, with a brief summary here in Table 1. A standard input file is distributed with CMAQ for each chemical mechanism supported by that version of the model. PACM_REPORT is the output file that displays how CMAQ translates the variables listed in PACM_INFILE, and lists the reactions (including reactants, products and yields) that will be used in calculating the IPR and IRR values. Users should check this file on the first iteration of a new PA simulation to ensure that CMAQ is interpreting the variables as the user intended. The user can also specify an optional subdomain for the IPR/IRR output. If these variables are not specified, the default domain is the entire CMAQ domain, however, the user may want to limit the portion of the domain where output is written because the files can get large. This is done using the variables: - setenv PA_BCOL_ECOL "[start] [end]" - setenv PA_BROW_EROW "[start] [end]" - setenv PA_BLEV_ELEV "[start] [end]" where integers [start] and [end] are the starting and ending grid columns, rows, or vertical levels. These optional variables are used to specify the modeling grid domain column range, row range, and layer range for the process analysis calculations. Set to the two digits representing the start and end columns, rows and layer numbers bounding the process analysis domain. The user must be careful that the columns, rows, and levels are not outside of the current CMAQ domain. **Step 2: Ensure that output files are being written and that the output variables have been correctly specified** A PACM_REPORT file, with the name specified in Step 1, is output for every day of simulation, along with daily IRR or IPR files, depending on whether IRR or IPR was specified. If there is a formatting error in the PACM_INPUT file, CMAQ will not run and the CMAQ log files must be checked to determine where the error occurred. The PACM_REPORT file will list the reactions that are used to interpret each of the reactions/families/cycles/operators specified by the user in the PACM_INPUT file. For complex operations (such as those including families or cycles), the user must ensure that the output appropriately reflects the information provided in the process analysis input control file. The output files are specified in the CMAQ runscript by: - setenv CTM_IPR_1 [filename] (....similarly for CTM_IPR_2 and CTM_IPR_3) - setenv CTM_IRR_1 [filename] (....similarly for CTM_IRR_2 and CTM_IRR_3) IPR files are only created if IPR is turned on in the PACM_INFILE (IPR_OUTPUT specified), and IRR files are only created if IRR is specified (IRRTYPE = PARTIAL or FULL). The number of output files created (whether 1,2 or 3) depends on the number of variables specified; for example, only one will be created for the sample input file delivered as part of the CMAQ release. **Step 3: Post process output files** The output files are in the same units as the concentration files and can be post-processed using the same utilities used to post-process the CMAQ concentration files. In particular the following utilities may be helpful: - combine (to combine multiple days in one file, to match density or layer height with IPR or IRR variables) - m3tproc (to sum up throughput over multiple days) - vertot (to sum up throughput over several layers, such as the PBL) - verdi (to view spatial heterogeneity in process throughput) ## 9.3 Description of the PACM_INFILE The PA input file (PACM_INFILE) is the user-tailored file that controls the parameters that are calculated and output at each time step. Depending on the specificity of the output, the file will need to be tailored to the chemical mechanism used in the simulation, because species names and reaction numbers vary among different mechanisms. For example, components of oxidized nitrogen, such as organic nitrates, are represented by species NTR1 + NTR2 + INTR in CB6, but by RNO3 in SAPRC07. In addition, if IRR outputs are specified by label, the user must ensure that the labels are appropriate for the mechanism being used. The user can define families of similar pollutants, specify cycles, and reaction sums that can be used in subsequent IPR and IRR equations, which can simplify the specification of quantities. DEFINE FAMILY is useful when the user wants to follow the sum of several different species, for example: - DEFINE FAMILY NOX = NO + NO2 This will allow the user to specify operations of both NO and NO2 by using the user-specified family name NOX. Cycles are important because many species have reactions in which they decay and reform quickly. In some cases, the production and loss terms may both be large and obscure the information that is desired. - DEFINE FAMILY PANcyc = PAN A user-specified name, PANcyc, can be used in place of PAN in further operations, to remove the effect of rapid reactions that recycle PAN rapidly. Cycles (as well as other quantities) can also be defined with the RXNSUM statement: - DEFINE RXNSUM CLNO3cyc = - This will store the net throughput of the reaction labeled CL28 minus reaction labeled CL30 (i.e. in CMAQ-CB6, the net production of species CLNO3) in a user-specified variable named CLNO3cyc. **Table 9-1. Parameters used in PACM_INFILE** |**First string**| **Second string** |**Third string**|**Remainder of line**| |:-------------|:----------------------------|:-----|:-----------------------------| |DEFINE FAMILY|[descriptor]|=|list of chemicals separated by + | |DEFINE CYCLE|[descriptor]|=|chemical name| |DEFINE RXNSUM|[descriptor]|=|list of reactions separated by +| |IPR_OUTPUT|[chemical/family name]| = |physical process names and/or CHEM | |IRR_OUTPUT| FULL:PARTIAL:NONE | |IRR_OUTPUT|[descriptor]| = |reaction label, combination of species reactions, etc.| ## 9.4 Parameters for IPR Each line for IPR output begins with IPR_OUTPUT, followed by the chemical species or the species family for which output is desired and the processes to be output. If the processes are omitted, then the default is all processes. The available processes are listed in Table 9-2. In the sample file, for example: IPR_OUTPUT O3 = CHEM+DDEP+CLDS+AERO+TRNM; specifies that the output includes the change in species O3 over the time step for the net sum of all chemistry processes, the net dry deposition, the net change in concentration due to clouds, aerosol processes, and total transport. If the species is a family name instead of a species name, the outputs will be calculated for the sum of each species in the family. **Table 9-2. Allowable parameters for process outputs** |**LPROC**|**process**| **Description**| |:-------|:-----|:---------| |1|XADV| X-direction horizontal advection| |2|YADV| Y-direction horizontal advection| |3|ZADV| vertical advection| |4|HDIF| horizontal diffusion| |5|VDIF| vertical diffusion| |6|EMIS| emissions contribution to concentration| |7|DDEP| dry deposition of species| |8|CLDS| change due to cloud processes; includes aqueous reaction and removal by clouds and rain| |9|PVO3| potential vorticity contribution to O3 mixing between the upper troposphere and stratosphere| |10|CHEM| net sum of all chemical processes for species over output step| |11|COND| change in aerosol species due to condensation| |12|COAG| change in aerosol species due to coagulation| |13|NPF| change in aerosol species due to new particle formation| |14|GROW| change in aerosol species due to aerosol growth| |1+2|HADV| total horizontal advection| |1+2+3|MADV| Horizontal and vertical advection| |4+5|TDIF| Total diffusion of species| |1+2+3+4+5| TRNM|Total mass-conserving transport of species| |11+12+13+14|AERO| change due to aerosol processes| ## 9.5 Parameters for IRR The specification for parameters in IRR output begins with IRR_OUTPUT followed by a user-defined name for the quantity and an equation specifying how it is to be calculated. The operators used in constructing these equations are explained in more detail in Gipson et al. (1999), and a brief summary of the allowable operators is included in Table 9-3. The equation could include a reaction label or an operator for a chemical species or family. For example: IRR_OUTPUT NewClrad = 2.0* + + + would sum the throughput of reactions labeled CL2, CL8, and CL25 and 2 times the throughput of reaction labeled CL1. The sum for each time step and each grid would be in the variable NewCLrad defined by the user. **Table 9-3. Allowable operators for Integrated Reaction Rate outputs** |**Operator** | **Description**| |:------|:----| |PROD[x] {FROM [y] {AND/OR [z]}} | sum of throughput from all reactions where species (or family) x is a product. Optional qualifiers limit to reactions were species y or z are reactants| |NETP[x] {FROM [y] {AND/OR [z]}} | similar to PROD but only uses reactions where net production is greater than zero| |LOSS[x] {AND/OR[y]}| All loss of species/family x; could be limited to only reactions where both x and y or x or y are lost| |NETL[x] {AND/OR [y]} | similar to LOSS but only uses reactions where net loss of x {and/or y} is greater than zero| |NET[x]| the net of the production and loss for all reactions in which x is a product or reactant| |cyclename[POSONLY:NEGONLY]| calculates the net impact of a cycle defined earlier. Using optional qualifiers will output values only if the net is positive or negative. ## 9.6 Example IRR applications IRR can be endlessly customized to examine many different processes and combinations of processes. Below are two examples of how IRR can be used. **Example 1: Examine fate of VOC reactions**. In this example, we have defined a family "aVOC" to be the sum of all (mostly) anthropogenic VOCs used in CMAQ-CB6 (Luecken et al., 2019), and then quantified the loss of the family through reaction with the oxidants OH, O3 and NO3: - DEFINE FAMILY aVOC = FORM +ALD2 +ALDX +PAR +ETHA +PRPA +MEOH +ETOH +ETH +OLE +IOLE +ACET +TOL +XYLMN +GLYD +GLY +MGLY +KET +CRON +NTR1 +OPEN +CAT1 +CRES +XOPN +NAPH + TO2 + BZO2 + XLO2 + ROR + XPRP + ROOH; - IRR_OUTPUT aVOCwithOH = LOSS[aVOC] AND [OH]; - IRR_OUTPUT aVOCwithO3 = LOSS[aVOC] AND [O3]; - IRR_OUTPUT aVOCwithNO3 = LOSS[aVOC] AND [NO3]; We have summed the throughputs over 2 weeks (July 1-14, 2011), within the first level of the model, and compared these three output pathways at four locations throughout the U.S. Figure 9-1 shows the sum through each of these processes at 6 different grid areas, including 4 urban areas and 2 rural areas. This figure also includes the corresponding fate for the largely biogenic VOCs, although note that some VOCs, such as formaldehyde and ethanol can be both anthropogenic and biogenic. ![Figure 9-1: Relative contribution of oxidation pathways for VOCs](./images/Figure10-1.png) **Figure 9-1. Relative contribution of oxidation pathways for VOCs using Process Analysis** **Example 2: Quantify the major contributors to the production of HNO3**. In this example, we develop output variables to represent the total production of HNO3 in CMAQ-CB6 and the individual reactions which contribute to this total production: - IRR_OUTPUT HNO3prod = PROD[HNO3]; - IRR_OUTPUT HNO3fromOHNO2 = ; - IRR_OUTPUT HNO3fromhetNTR = ; - IRR_OUTPUT HNO3fromN2O5 = + + +; - IRR_OUTPUT HNO3fromNO3 = PROD[HNO3] FROM [NO3]; - IRR_OUTPUT HNO3frCLNO3= ; In this case, we have summed up all throughput over the first 15 levels of the model (approximating the PBL) and over the same 14-day time period. Figure 9-2 shows the relative contribution of processes to the total HNO3 formation at three grids. In this case, at the two more urban grids, the reaction of OH+NO2 dominates the formation of HNO3 in summer, while at the rural grid cell (Missouri), the heterogeneous hydrolysis of alkyl nitrates is predominant. ![Figure 9-2: Relative contribution of HNO3 formation pathways at three grid locations](./images/Figure10-2.png) **Figure 9-2. Relative contribution of HNO3 formation pathways at three grid locations** ## 9.7 Budget Tool The existing Process Analysis module outputs process rates for variables or families of variables on a gridded domain. The Budget Tool outputs as a text file (CCTM_BUDGET_xxx.txt), the domain-wide process rates and total abundance change for every variable or family requested by the user in the CMAQ_Control_Misc.nml file. Output is produced for every output time step (generally hourly). Units for both gases and particles are in kilograms per output time step. The output produced by the Budget Tool is quite powerful when applying or developing CMAQ. It can be used to better understand the large-scale source and loss pathways of individual trace species or families of species. For example, the fraction of a species that is transported out of the domain versus lost by dry or wet deposition is immediately accessible as a function of output time step. Additionally, one can use this output to diagnose potential errors if, for example, the Budget Tool reports emissions or chemical production of a species and the developer knows it should not be possible. Figure 9-3 illustrates process rates for O3 for an annual simulation of 2016. The top bar of each pair dileneates the rates by season of the year, while the bottom bar shows the contribution split between day and night. To activate (or deactivate) the Budget Tool calculation and output, set the variable Budget_Diag to .TRUE. (or .FALSE.) in the &Budget_Options section of the CMAQ_Control_Misc.nml namelist. Here the user may also choose the variables they would like to output data for. The default is 'ALL' CMAQ species, including transported, non-transported, reactive, and non-reactive species. Alternatively or additionally, a list of species may be given, including names of chemical families, defined by the user in the &Chemical_FamVars section of the CMAQ_Control_Misc.nml file. Lastly, if an aerosol species name is provided (e.g. 'ASO4', 'AEC') without the suffix denoting an aerosol mode, the Budget Tool will provide the sum of the process changes across all modes. ![Figure 9-3: Contribution of model processes to O3 production and loss during a CMAQ simulation of the U.S. for 2016](./images/Figure9-3.png) **Figure 9-3. Contribution of model processes to O3 production and loss during a CMAQ simulation of the U.S. for 2016** ## 9.8 References Gipson, G.L. (1999). Chapter 16: Process analysis. In science algorithms of the EPA models-3 Community Multiscale Air Quality (CMAQ) Modeling System. EPA/600/R-99/030. Jeffries, H. E., & Tonnesen, S. (1994). A comparison of two photochemical reaction mechanisms using mass balance and process analysis. Atmos. Env., 28(18), 2991-3003. Luecken, D.J., Yarwood, G., & Hutzell, W.H. (2019). Multipollutant modeling of ozone, reactive nitrogen and HAPs across the continental US with CMAQ-CB6. Atmospheric Environment, 201, 62-72. Tonnesen, S., & Jeffries, H.E. (1994). Inhibition of odd oxygen production in the carbon bond four and generic reaction set mechanisms. Atmospheric Environment, 28(7), 1339-1349. [<< Previous Chapter](CMAQ_UG_ch08_analysis_tools.md) - [Home](README.md) - [Next Chapter >>](CMAQ_UG_ch10_HDDM-3D.md)
CMAQv5.5 User's Guide
================================================ FILE: DOCS/Users_Guide/CMAQ_UG_ch10_HDDM-3D.md ================================================ [<< Previous Chapter](CMAQ_UG_ch09_process_analysis.md) - [Home](README.md) - [Next Chapter >>](CMAQ_UG_ch11_ISAM.md) # 10. Decoupled Direct Method in Three Dimensions (CMAQ-DDM-3D) ## 10.1 Introduction The Decoupled Direct Method in Three Dimensions (DDM-3D) provides CMAQ concentration and deposition sensitivity information for user specified model parameters. In air quality modeling, sensitivities measure the response of a model output to a change in one or several predefined model parameters. In policy applications, the parameters of interest are usually emissions and the output of interest is pollutant concentrations. We may be interested in emissions from a particular geographical region, like an urban area, a group of states, or a country, and/or emissions from a particular source, such as wildfires, electricity generating units (EGUs), or light duty diesel trucks. Emissions sensitivities can be calculated by simply running the air quality model twice – once with standard emissions inputs, and once with the emissions of interest adjusted in some way. The difference in outputs between the two runs in relation to the size of the adjustment then becomes the model sensitivity. While this process is fairly easy to implement and interpret, it quickly becomes computationally complex as the number of desired sensitivities increases. For example, calculating sensitivity to EGU emissions from 10 southeastern states in the U.S. would require 11 separate air quality model simulations. Alternatively, model sensitivities can be calculated with CMAQ-DDM-3D. This is done by altering the existing model algorithms to allow for sensitivity propagation through every science module in CMAQ. While this process does require more computational resources than standard CMAQ, it scales favorably with the number of desired parameters. Besides emissions, sensitivities to other model parameters can also be calculated. Currently, CMAQ-DDM-3D can be used for sensitivity to emission rates, boundary conditions, initial conditions, reaction rates, potential vorticity, or any combination of these parameters. Second order sensitivity calculations, or sensitivity of sensitivity, sometimes known as higher-order DDM-3D (HDDM-3D) are also available. Note: second order sensitivity output for particulate matter species are still in development. ## 10.2 CMAQ-DDM-3D Releases and Build Instructions Starting from CMAQv5.4, DDM-3D has been fully integrated into the base model and is accessed through a flag in the standard build script. To use CMAQ-DDM-3D, follow the normal build process for CMAQ described in [Chapter 5](CMAQ_UG_ch05_running_a_simulation.md), but make sure to uncomment the following line in bldit_cctm.csh: ``` set DDM3D_CCTM #> uncomment to compile CCTM with DDM-3D activated ``` **Note that DDM-3D is not compatible with the STAGE deposition model in CMAQv5.5.** Simulations with DDM-3D should use ``` set DepMod = m3dry``` in bldit_cctm.csh. **A note about I/O API installation for DDM applications** I/O APIv3.2 supports up to MXFILE3=64 open files, each with up to MXVARS3=2048. DDM-3D applications configured to calculate sensitivity to a large number of parameters may exceed this upper limit of model variables, leading to a model crash. To avoid this issue, users may use I/O API version 3.2 "large" that increases MXFILE3 to 512 and MXVARS3 to 16384. Instructions to build this version are found in [Chapter 3](CMAQ_UG_ch03_preparing_compute_environment.md#333-io-api-library). # 10.3 CMAQ-DDM-3D Run Instructions The included model run scripts each have a section that enables CMAQ-DDM-3D options. The DDM-3D configuration options shown in the table below. Additinally, a separate DDM-3D control input file is also required. Details on this file are included below. The CMAQ-DDM-3D benchmark simulation uses the same input data as the base model. # 10.3.1 DDM run script settings |Option | Settings | Description| |:-------------:|:-------------:|-----| |CTM_DDM3D|Y/N|Sets up requisite script settings for DDM-3D; requires that the CCTM was compiled for DDM simulations| |CTM_NPMAX|#|Number of sensitivity parameters defined in SEN_INPUT| |SEN_INPUT||Path and name of the sensitivity control file| |DDM3D_HIGH|Y/N|Allow higher order sensitivity parameters in SEN_INPUT| |DDM3D_RST|Y/N|Begin sensitivities from a restart file| |S_ICpath||Path of the restart file; Analogous to ICpath |S_ICfile||Name of the restart file; Analogous to ICfile # 10.3.2 CMAQ-DDM-3D Control File (SEN_INPUT) Users must define the DDM-3D sensitivity parameters in the DDM-3D Control File `SEN_INPUT` linked in the runscript. The DDM-3D Control File accommodates various types of sensitivity configuration parameters for CMAQ-DDM-3D simulations, including the tagging of multiple emission sources and/or species. As proper formatting of this file is required, users are referred to the sample control file provided with the release for formatting examples. Sample definitions of sensitivity parameters are shown below. Example 1 Calculate the sensitivity to total emissions of SO2. The keyphrase 'TOTA' indicates all model emissions: ES2 EMIS TOTA SPECIES SO2 END Example 2 Calculate the sensitivity to NOx emissions from point source EGU and gridded emissions at the same time: (gridded sources, point sources, and/or inline sources are all allowed). These environment variables, with the full path to the files, must be defined in the run script: ENX EMIS GRIDDEDEMIS, PT_EGU SPECIES NO, NO2 END The variables 'GRIDDEDEMIS' and 'PT_EGU' are comma-delimited in the control file and are both defined in the runscript. The list of species is also comma-delimited in the control file. Example 3 It is also possible to calculate sensitivity to inline emissions streams. The following example calculates sensitivity to inline BEIS emissions of isprene: EBI EMIS BEIS SPECIES ISOP END Example 4 Several sensitivities can be calculated in one simulation. In the example below, there are four sensitivities defined in this control file. In the first (ES2), DDM-3D sensitivities would be calculated to emissions of SO2 from one gridded emissions file and two point source emissions files together. In the second (ENX), DDM-3D sensitivities would be calculated to total emissions of NOx (NO+NO2). In the third (2NX), higher order DDM-3D sensitivities would be calculated to NOx emissions. In the fourth (RT1), DDM-3D sensitivities would be calculated to the rate of reaction 1 in the photochemical mechanism. ES2 EMIS EGRIDFILE1, PT3DFILE1, PT3DFILE2 SPECIES SO2 ENX EMIS TOTA SPECIES NO, NO2 2NX HIGH ENX ENX RT1 RATE REACTION 1 END Example 5 It is possible to calculate the sensitivity to ozone incursions at the top of the simulated volume if the base model is compiled with potential vorticity module enabled. PO3 PVO3 SPECIES O3 CMAQ-DDM-3D is flexible in the number of files that the code can handle and also allows for inline emissions streams as well. Depending on the application and model settings, the following inline streams may be available for sensitivity calculation: |Stream Keyword | Description| |:-------------:|-----| |BIOG|BEIS biogenic emissions| |MIOG|MEGAN biogenic emissions| |MGEM|Marine Gas Emissions| |LTNG|Lightning NO Emissions| |ASEA|Sea Spray Aerosol Emissions| |DUST|Wind-Blown Dust Emissions| ## 10.3.2.1 DDM-3D Control File Format For each sensitivity: 1. (mandatory) The first line is the name of the sensitivity parameter; any 3-character name of the user's choosing, no leading spaces 2. (mandatory) The next line specifies the type of sensitivity (One leading space followed by 4 capitalized characters) * EMIS: Emissions * ICON: Initial Conditions * BCON: Boundary Conditions * RATE: Reaction rate * HIGH: Higher-order sensitivity. * PVO3: Potential vorticity 3. (mandatory) For EMIS, the next line specifies the emissions streams to be used for this parameter. The comma-delimited list must have two leading spaces. The stream names must be defined in the run script. Alternatively, the key word 'TOTA' will use all model emissions for this parameter. 4. (mandatory) * For EMIS, ICON, BCON, or PVO3 sensitivity: The term ' SPECIES' (all-cap, one leading space) must appear next. * For RATE sensitivity: The term ' REACTION' (all-cap, one leading space) must appear next. * For HIGH sensitivity: The next 2 lines must each be one leading space followed by the name of the sensitivity to which we're taking higher order sensitivity. That name must have already been defined as the name of a sensitivity parameter. No further information should be defined for a higher-order sensitivity parameter. 5. (mandatory) * EMIS, ICON, BCON, or PVO3 sensitivity: Specify one or more species. The comma-delimited species list must have two leading spaces and then exactly match a species from model species list. The keyword 'ALL' here allows for all model species instead. Note that only the species "O3" will result in a signal for PVO3 sensitivity. * For RATE sensitivity: Specify one or more reactions. Names must have two leading spaces and then exactly match the _label_ from mech.def (also in RXDT.EXT). 6. (optional) * The term ' REGION' (all-cap, one leading space). If this term is used, the next line must be a comma-delimited list of region variables. * NOTE1: This list must be consistent with the max # of sens parameters (NPMAX) set in the runscript. * NOTE2: For better understanding of how this file is read, or to modify/add features, look at sinput.F in the code. ## 10.4 DDM-3D Input/Output Files With the exception of the control file, CMAQ-DDM-3D requires the same input files as a normal CMAQ run. Additional input files may be required depending on the choice of calculated sensitivity parameters. The following table includes a list of all possible files specific to sensitivity calculations. Output Files Specific to DDM-3D Simulations |File|Type|Contains|Base model analog| |----|----|--------|-----------------| | ASENS|Output| Averaged hourly sensitivities. List defined by 'AVG_CONC_SPCS' variable in the run script.|ACONC| | SENGRID| Output| Last hour's sensitivity fields to be used as initial conditions for the following time period| CGRID| | SENWDEP| Output| Sensitivities of wet deposited species| WETDEP1| | SENDDEP| Output| Sensitivities of dry deposited species| DRYDEP| ## 11.5 DDM-3D Benchmark Test Case See the [CMAQ-DDM-3D Benchmark Tutorial](Tutorials/CMAQ_UG_tutorial_DDM3D.md) for step-by-step instructions for running the 2 day benchmark case. The input files for the DDM-3D benchmark case are the same as the benchmark inputs for the base model. Output DDM files associated with the sample DDM control file `sensinput.2018_12NE3.dat` provided in this release package are included in the benchmark outputs for the base model. # 10.6 Summary CMAQ-DDM-3D has proven to be a very effective tool for air quality studies. This implementation in CMAQ has been done with the intent to provide flexibility and computational efficiency, and also maintain the base CMAQ code structure. CMAQ-DDM-3D has been found to accurately simulate sensitivity of ozone and PM species to initial conditions, boundary conditions, and emissions of precursor species. However, CMAQ-DDM-3D remains a work in progress with known shortcomings and its accuracy has not been tested for all conceivable applications. Any errors should be reported to the provided contacts. ## 10.6 References Cohan, D.S., & Napelenok, S.L. (2011). Air Quality Response Modeling for Decision Support. Atmosphere, 2(3), 407-425. [doi: 10.3390/atmos2030407](https://www.mdpi.com/2073-4433/2/3/407) Napelenok, S.L., Cohan, D.S., Odman, M.T., & Tonse, S. (2008). Extension and evaluation of sensitivity analysis capabilities in a photochemical model. Environmental Modelling & Software, 23(8), 994-999. [doi: 10.1016/j.envsoft.2007.11.004](https://www.sciencedirect.com/science/article/pii/S1364815207002186) Napelenok, S.L., Cohan, D.S., Hu, Y.T., & Russell, A.G. (2006). Decoupled direct 3D sensitivity analysis for particulate matter (DDM-3D/PM). Atmospheric Environment, 40(32), 6112-6121. [doi: 10.1016/j.atmosenv.2006.05.039](https://www.sciencedirect.com/science/article/pii/S1352231006005012) Cohan, D., Y. Hu, A. Hakami, A. Russell, 2005: Nonlinear response of ozone to emissions: source apportionment and sensitivity analysis. Environ. Sci. Technol., 39, 6739-6748. Dunker, A., G. Yarwood, J. Ortmann, and G. Wilson, 2002: The decoupled direct method for sensitivity analysis in a three-dimensional air quality model 'Implementation, accuracy, and efficiency. Environ. Sci. Technol., 36, 2965-2976. Dunker, A. 1984: The decoupled direct method for calculating sensitivity coefficients in chemical kinetics. J. Chem. Phys., 81, 2385-2393. **Contact** [Sergey L. Napelenok](mailto:napelenok.sergey@epa.gov), Computational Exposure Division, U.S. EPA [<< Previous Chapter](CMAQ_UG_ch09_process_analysis.md) - [Home](README.md) - [Next Chapter >>](CMAQ_UG_ch11_ISAM.md)
CMAQv5.5 User's Guide
================================================ FILE: DOCS/Users_Guide/CMAQ_UG_ch11_ISAM.md ================================================ [<< Previous Chapter](CMAQ_UG_ch10_HDDM-3D.md) - [Home](README.md) - [Next Chapter >>](CMAQ_UG_ch12_sulfur_tracking.md) # 11. Integrated Source Apportionment Method (CMAQ-ISAM) ## 11.1 Introduction The Integrated Source Apportionment Method (ISAM) calculates source attribution information for user specified ozone and particulate matter precursors within the CMAQ model. CMAQ-ISAM has been substantially updated starting with the CMAQv5.3 release, and now differs significantly from previous releases. The major changes to the ISAM chemistry solver are detailed in the [ISAM Chemistry Supplement][link_11_pdf]. In addition, signifcant updates and multiple minor fixes were included in the subsequent releases including substantial updates to the gas-phase chemistry apportionment algorithms that improve both physical and numerical aspects of the method. Users of CMAQ-ISAM are strongly encouraged to update to the latest available release of the model. The base CMAQ model provides users the concentration and deposition fields of many pollutant species. These species are usually combinations of different types of primary emissions and secondary formation that have been physically and chemically transformed in the model. However, sometimes it is desirable to know specific source attribution information for the model outputs. For example, how much of the ozone in an urban area was formed due to nitrogen oxides emitted from motor vehicles in a neighboring state? Answering this type of question often requires running an air quality model twice, once with the standard emissions scenario and once with the source of interest completely removed. The difference between the two runs is then assumed to be attributed to the removed source. While this approach is reasonably straightforward to implement, it has some drawbacks. For example, removing a large source from the system in a highly nonlinear chemical mixture can lead to some errors. Also, calculating source attribution of many sources can be logistically and computationally prohibitive. Alternatively, running CMAQ with ISAM enabled allows the user the ability to calculate source attribution of a large number of sources directly by the model in one simulation. CMAQ-ISAM supports source apportionment for all modeled gas and aerosol species (depending on base model configuration). The selection of species for which source apportionment should be performed in a given simulation can be controlled through the following `TAG CLASSES`: ``` SULFATE - ASO4J, ASO4I, SO2, SULF, SULRXN NITRATE - ANO3J, ANO3I, HNO3, ANO3J, ANO3I, HNO3, NO, NO2, NO3, HONO, N2O5, PNA, PAN, PANX, NTR1, NTR2, INTR AMMONIUM - ANH4J, ANH4I, NH3 EC - AECJ, AECI OA_TOT - Organic aerosol species VOC - Various species depending on mechanism. Now includes CO. (see CCTM/src/isam/SA_DEFN.F for complete list) PM_IONS - ANAI, ANAJ, AMGJ, AKJ, ACAJ, AFEJ, AALJ, ASIJ, ATIJ, AMNJ, AOTHRI, AOTHRJ OZONE - all NITRATE species + all VOC species CHLORINE - ACLI, ACLJ, HCL NVPOA - Non-Volatile Primary Organic Aerosol (APOC, APNCOM) PM_TOT - all PM species HAP_GAS - Gaseous Hazardous Air Pollutants HAP_AERO - Aerosol Hazardous Air Pollutants HAP_TOT - HAP_GAS and HAP_AERO URBAN_TOXICS - Classic Urban Air Toxics PAH_TEQ - NonReactive PAH tracers BENAPYRENE - Gaseous and aerosol Benzo[a]Pyrene MERCURY - Gaseous and aeroosl Mercury species ALL - All model species ``` ## 11.2 Build Instructions Starting with CMAQv5.3 model release, ISAM is provided directly with the source code of the base model. To use ISAM, follow the normal build process for CMAQ described in [Chapter 5](CMAQ_UG_ch05_running_a_simulation.md), but make sure to uncomment the following line in bldit_cctm.csh: ``` set ISAM_CCTM ``` **A note about I/O API installation for ISAM applications** I/O APIv3.2 supports up to MXFILE3=256 open files, each with up to MXVARS3=2048. ISAM applications configured to calculate source attribution of a large number of sources may exceed this upper limit of model variables, leading to a model crash. To avoid this issue, users may use I/O API version 3.2 "large" that increases MXFILE3 to 512 and MXVARS3 to 16384. Instructions to build this version are found in [Chapter 3](CMAQ_UG_ch03_preparing_compute_environment.md#333-io-api-library). Note, using this ioapi-large version is not required for the CMAQ-ISAM Benchmark Case. If a user needs to use larger setting for MXFILE3 and MXVAR3 to support their application, note that the memory requirements will be increased. This version is available as a zip file from the following address: https://www.cmascenter.org/ioapi/download/ioapi-3.2-large-20200828.tar.gz **A note about solver configuration** ISAM is currently only implemented for the EBI solver. For some CMAQ applications, the Rosenbrock solver is desirable and is set as the default in the sample runscripts. For example, this is the case when using the CB6R5M chemical mechanism for hemispheric simulations. In such cases, the bldit script needs to be modified to not select the Rosenbrock solver. While this may incur a performance penalty in terms of CPU time and increase the likelyhood of convergence warnings, it will allow the ISAM simulation to proceed in most cases. ## 11.3 Run Instructions To begin a CMAQ simulation with source apportionment enabled, the ISAM section of the runscript must be configured. The additional necessary environment variables are listed in Table 11-1. **Table 11-1. ISAM run script variables** |**Variable** | **Settings** | **Description**| |-------|----------|------------| |CTM_ISAM|Y/N|Set this to Y to enable ISAM| |SA_IOLIST|path/filename|Provide the location of the ISAM control file (discussed below)| |ISAM_BLEV_ELEV|" MINVALUE MAX VALUE "|LAYER range for the instantaneous ISAM output concentrations| |AISAM_BLEV_ELEV|" MINVALUE MAX VALUE "|LAYER range for the average ISAM output concentrations| |ISAM_NEW_START|Y/N|set Y for a new simulation and N for continuing from a previous day's outputs| |ISAM_PREVDAY|path/filename|Provide the location of the previous day's ISAM restart file| |SA_ACONC_1|path/filename|ISAM output for average apportioned concentrations| |SA_CONC_1|path/filename|ISAM output for instanteneous apportioned concentrations| |SA_DD_1|path/filename|ISAM output for apportioned dry deposition| |SA_WD_1|path/filename|ISAM output for apportioned wet deposition| |SA_CGRID_1|path/filename|ISAM output for a restart file to continue the simulation further in time| |ISAM_O3_WEIGHTS| 1,2,3,4,5 (default is 5) | sets what tracked species are favored or _weighted_ when determining apportionment in gas phase chemistry | |ISAM_NOX_CASE| 1,2,3,4 (default is 2) | what tracked species are weighted when grid cell NOx limited ozone production. Only used if ISAM_O3_WEIGHT equal 5. | |ISAM_VOC_CASE| 1,2,3,4 (default is 4) | what tracked species are weighted when grid cell VOC limited ozone production. Only used if ISAM_O3_WEIGHT equal 5. | |VOC_NOX_TRANS | >= 0.0 (default is 0.35)| value of Prod H2O2 over Prod HNO3 less than where ISAM_VOC_CASE weights are used. Otherwise, ISAM_NOX_CASE weights are used. VOC_NOX_TRANS only used if ISAM_O3_WEIGHT equal 5.| Additionally, ISAM can track emissions confined to geographic regions. This functionality can be enabled through CMAQ's `RegionsRegistry` set in the `CMAQ_Control_DESID` namelist (Appendix B.4) and is discussed further below. #### ISAM and bidirectional NH3 exchange ISAM in CMAQ v5.3 supports bidirectional NH3 exchange using both M3Dry and STAGE deposition options. To run with this option the AMMONIUM species class must be set in the ISAM control file ``` TAG CLASSES |AMMONIUM ``` and the ABFLUX must be set in the run script. ``` setenv CTM_ABFLUX Y #> ammonia bi-directional flux for in-line deposition ``` Setting these options will automatically set the BID tag for model output. Modeled species output with the BID tag represent the influence of NH3 emissions from fertilizer and biogenic NH3 emission sources. Biogenic NH3 emissions include the evasion of NH3 from non-agricultural vegetation and soil NH4 pools as parameterized in the STAGE or M3Dry models. #### ISAM run-time options for gas chemistry and ozone production In the runtime table, the last four rows deal with ISAM's method for apportioning source contributions from gas chemistry. They weight specific species that are chemical reactants so a reaction's product are totally apportioned to the weighted reactant. If both reactants are weighted, products are equally apportioned between reactants. Note that the unmodified method always equally apportions products. The changes seek to isolate sources that emit or secondary produce the weighted reactants because their sources are controllable or deemed responsible for deteriorating air quality. The weighting schemes focus on apportioning NOx and ozone concentrations so weighted species include several reactive nitrogen compounds, oxygenated VOCs, organic peroxy radicals and operators. A new runtime option, ISAM_O3_WEIGHTS, determines what species are weighted. The below two tables define what different values set for ISAM_O3_WEIGHTS. The first define option values 1 thru 4. Option 1 reproduces results from the unmodified code. The second table describes option 5 that toggles between two weight settings listed in the first table. | **Species** | **Option 1** | **Option 2** | **Option 3** | **Option 4** | |:-----------:|:-------------:|:------------:|:--------------:|:--------------| | NO | NO | YES | YES | NO | |NO2 |NO |YES |YES |NO | |NO3 |NO |YES |YES |NO | |HONO |NO |YES |YES |NO | |ANO3(I or J) | NO | YES | YES |NO | |HCHO | NO | NO |YES |YES | |CH3CHO | NO | NO |YES |YES | |Higher Aldehydes | NO | NO |YES |YES | |Acetone | NO | NO |YES |YES | |Lumped Ketones | NO | NO |YES |YES | |Isoprene peroxy radical |NO |NO | YES |YES | |Acetyl peroxy radicals |NO |NO | YES |YES | |peroxy operators(such as cb6's XO2 and XO2H)|NO |NO | YES |YES | | **Option 5 Algorithm** | |:----------------------:| | IF( (H2O2 production)/(HNO3 Production) > VOC_NOX_TRANS){ISAM_NOX_CASE}else{ISAM_VOC_CASE} | The runtime options, ISAM_NOX_CASE and ISAM_VOC_CASE, determine the two settings. Toggling is determined by whether the cell grid's ozone production has NOx or VOC limiting conditions. Option 5 uses H2O2 production over HNO3 production (see appendix A in Sillman (1995)) whether former or latter condition exists. Sillman (1995) states that VOC limiting exist when the ratio is less than 0.35 but the ratio's transition value is uncertain (Tonnesen and Dennis, 2000a and 2000b) so a final runtime option sets the transition value, VOC_NOX_TRANS. Note that all the repositories run-scripts include the below commands setting the new ISAM options using their default values. #> Options used to favor tracked species in reaction for Ozone-NOx chemistry setenv ISAM_O3_WEIGHTS 5 # weights for tracked species Default is 5 # OPTIONS # 1 does not weight any species # 2 weights NOx and subset of NOz species # 3 uses with from option 2 plus weight OVOC species, organic radicals and operators # 4 weight OVOC species, organic radicals and operators # 5 toggles between two wieghting set based on VOC and NOx limiting ozone production # Below options only used if ISAM_O3_WEIGHTS set to 5 setenv ISAM_NOX_CASE 2 # weights for tracked species when ozone production is NOx limiting. Default is 2 setenv ISAM_VOC_CASE 4 # weights for tracked species when ozone production is VOC limiting. Default is 4 setenv VOC_NOX_TRANS 0.35 # value of Prod H2O2 over Prod HNO3 less than where # ISAM_VOC_CASE weights are used. Otherwise, ISAM_NOX_CASE # weights are used. Default is 0.35 ### 11.3.1 ISAM control file (SA_IOLIST) The ISAM `SA_IOLIST` is a text file used to configure which tag classes, emissions streams, and source regions the model will track. An example of this file, `isam_control.txt`, is provided in $CMAQ_HOME/CCTM/scripts. The order and formating of this file must be kept intact, but it does allow for insertion of comment lines. Each ISAM simulation requires the specification of the `TAG CLASSES` that the user desires to apportion. The full list of available tag classes (e.g. `SULFATE`, `NITRATE`, `AMMONIUM`, `EC`, `OC`, `VOC`, `PM25_IONS`, `OZONE`, `OA_TOT`, or `PM_TOT`) and the species associated with each of these are provided in section 11.1. One or more of these tag classes must be specified in `SA_IOLIST`. Multiple tag classes are comma delimited. Incorrectly specified choices for this field will cause a model crash. ``` TAG CLASSES |OZONE, SULFATE ``` After setting tag classes for the simulation, information for one or more tags is required. Each individual tag will track the species from the specified `TAG CLASSES` and has its own set of three options in the control file. The first option is the name: ``` TAG NAME |EGU ``` It is recommended that the text string for the tag name be kept short (three characters or less) in order to accommodate the longer species names from some chemical mechanisms in the ISAM output files. When a 'TAG NAME' is specified that is too long to accomodate every tagged CMAQ species name and the appended tag name, the resulting ISAM species name may not be able to be written to output files correctly, due to 16 character limit for variable names in IOAPI. For example, 'BUTADIENE13_EGU' would work, because it is 15 characters, but 'BUTADIENE13_EGUT1' would fail at 17 characters. The second option is the comma delimited list of regions to track with this tag. The keyword 'EVERYWHERE' is used to track domain-wide emissions. To track region-constrained emissions, variable names from the regions file specified in the `CMAQ_Control_DESID` namelist are used instead of the "EVERYWHERE' keyword. The regions file requirements are identical to the optional file used to scale emissions in predetermined geographical areas. See [Appendix B.4](Appendix/CMAQ_UG_appendixB_emissions_control.md#b4-applying-masks-for-spatial-dependence) for further details on the regions file, including how to download an example file. ``` REGION(S) |EVERYWHERE ``` or ``` REGION(S) |NC, SC, GA ``` Finally, the emissions streams labels are required as the third option in the control file. Labels correspond to emissions and other input streams set in build and run scripts for the base CMAQ simulation. Additionally, it is possible to specify 'PVO3' as a stream label in order to track contribution to concentrations from upper layer injections due to potential vorticity calculations. This option also requires enabling the corresponding run script variable to support these calculations. ``` EMIS STREAM(S) |PT_EGU, PT_NONEGU ``` The final line in the control file needs to be kept unchanged in order to aid the file parser in reading this file. ``` ENDLIST eof ``` In addition to the user-specified list, ISAM will alway track and output three additional default tags with every simulation and the BID tag if the simulation includes both bidirectional NH3 and the 'AMMONIUM' species class (note, that at least one valid user-specified tag must be defined, so a minimum of 4 tags are required): ``` ICO - contribution from initial conditions specified for the first day of the simulation BCO - contribution from boundary conditions throughout the simulation OTH - contribution from all non-tagged emissions streams and other processes in the model. BID - contribution from bidirectional NH3 exchange ``` Please, note that, currently, ISAM results for the same user defined tag may differ depending on the overall configuration and content of the ISAM control file. This weakness of the method is detailed in the last section of the [ISAM Chemistry Supplement](Supplement/CMAQ_ISAM_Chemistry_Supplemental_Equations.pdf). Generally, tracking a larger number of tags produces more consistent apportionment results. #### Defining ISAM Tags for In-line Sources. The CMAQ model allows several types of emissions that are calculated in-line or during a model simulation instead of provided by the user as inputs. A simulation can use all of these inline emissions and ISAM can calculate apportionment from these sources. The former is done by setting appropriate emissions options in the CMAQ runscript. For ISAM to calculate apportionment for an in-line source, the isam control file needs to define a tagname using the correct stream name. The below table lists currently supported inline emissions streams in CMAQ: |**Emission Stream Name**|**Inline Emissions Source**| |-----------|------------------------| | BIOG | Biogenic Emissions (BEIS) | | MIOG | Biogenic Emission (MEGAN) | | MGEGM | Marine Gas Emissions | | LTNG | Lightning NO Emissions | | ASEA | Sea Spray Aerosol Emissions | | DUST | Wind-Blown Dust Emissions | | PVO3 | Potential Vorticity Incursion* | *Although it is not an emission stream, it is possible to tag the ozone incursions at the top of the simulated volume if the potential vorticity option `CTM_PVO3` is activated in the run script. #### Interpretation of 'OTH' tag The OTH tag (e.g.“O3_OTH” in the ISAM benchmark) represents concentrations for that species attributed to 1) all other emissions streams, 2) precursor species not included in the specified tag class(es), and 3) other processes in the model. For item 1), this includes internally calculated emissions that a user decides to exclude from the control file (perhaps to reduce computational cost of running with tags that are not of interest to a particular application). These are things like online biogenics, online lightning, dust, etc. For item 2), these are some secondarily produced intermediate species that have minor impact on ozone production. For item 3), these are processes in the model that create a given species but not from the emissions streams that can be specified with the control file. For example, 'O3_OTH' includes ozone that is produced from background methane that is specified in the model as a constant. Finally, ISAM is an approximation for attribution. In the formulation, assumptions are made about which species are most important in the chemical formuation of the species being studied. For example in cb6r3 based mechanisms, peroxyl radicals from aromatic compounds affect ozone production by a small amount so ISAM neglects their contribution. The contribution to ozone from species not included in the ISAM formulation will go into 'O3_OTH', even if the emission source of these species is included in the control file. ## 11.4 ISAM Benchmark See the [CMAQ-ISAM Benchmark Tutorial](Tutorials/CMAQ_UG_tutorial_ISAM.md) for step-by-step instructions for running the 2 day benchmark case. The input files for the CMAQv5.5 ISAM benchmark case are the same as the benchmark inputs for the base model. Output source apportionment files associated with the sample `isam_control.txt` provided in this release package are included in the benchmark outputs for the base model. The tutorial also provides example instructions for post-processing ISAM output for individual species contained in the SA_ACONC_1 output file into aggregate species like NOx or PM2.5 using the [`combine`](../../POST/combine/README.md) utility and customized `SPECIES_DEF` species definition files. Note that the [Explicit and Lumped Model Output (ELMO) module](./Appendix/CMAQ_UG_appendixF_elmo_output.md) available for aggregating base model concentrations does not currently support the aggregation of ISAM species within CMAQ, necessitating a customized post-processing workflow. ## 11.5 References Kwok, R.H.F, Napelenok, S.L., & Baker, K.R. (2013). Implementation and evaluation of PM2.5 source contribution analysis in a photochemical model. Atmospheric Environment, 80, 398–407 [doi:10.1016/j.atmosenv.2013.08.017](https://doi.org/10.1016/j.atmosenv.2013.08.017). Kwok, R.H.F, Baker, K.R., Napelenok, S.L., & Tonnesen, G.S. (2015). Photochemical grid model implementation of VOC, NOx, and O3 source apportionment. Geosci. Model Dev., 8, 99-114. [doi:10.5194/gmd-8-99-2015](https://doi.org/10.5194/gmd-8-99-2015). Sillman, Sanford. (1995). The use of NOy, H2O2, and HNO3 as indicators for ozone-NOx-hydrocarbon sensitivity in urban locations. Journal of Geophysical Research. 1001. 14175-14188. Tonnesen, G.S. & Dennis, R.L. (2000a). Analysis of radical propagation efficiency to assess ozone sensitivity to hydrocarbons and NOx. 1. Long-lived species as indicators of ozone concentration sensitivity. Journal of Geophysical Research. 105. 9213-9225. Tonnesen, G.S. & Dennis, R.L. (2000b). Analysis of radical propagation efficiency to assess ozone sensitivity to hydrocarbons and NOx. 2. Long-lived species as indicators of ozone concentration sensitivity. Journal of Geophysical Research. 105. 9227-9241. **Contact** [Sergey L. Napelenok](mailto:napelenok.sergey@epa.gov), Computational Exposure Division, U.S. EPA [<< Previous Chapter](CMAQ_UG_ch10_HDDM-3D.md) - [Home](README.md) - [Next Chapter >>](CMAQ_UG_ch12_sulfur_tracking.md)
CMAQv5.5 User's Guide
[link_11_pdf]: ./Supplement/CMAQ_ISAM_Chemistry_Supplemental_Equations.pdf [link_11_pdf]: https://github.com/USEPA/CMAQ/blob/main/DOCS/Users_Guide/Supplement/CMAQ_ISAM_Chemistry_Supplemental_Equations.pdf ================================================ FILE: DOCS/Users_Guide/CMAQ_UG_ch12_sulfur_tracking.md ================================================ [<< Previous Chapter](CMAQ_UG_ch11_ISAM.md) - [Home](README.md) - [Next Chapter >>](CMAQ_UG_ch13_WRF-CMAQ.md) # 12. Sulfur Tracking Method ## 12.1 Introduction Starting with CMAQv5.3, a runtime diagnostic model option that provides detailed information on the modeled sulfur budget. This option, referred to as the "Sulfur Tracking Method (STM)", tracks sulfate production from gas- and aqueous-phase chemical reactions, as well as contributions from emissions and initial and boundary conditions. Each tracked species is treated as other modeled species, undergoing transport (advection, diffusion, cloud-mixing) and removal by deposition (both wet and dry). Several notable features in the CMAQv5.3 release of STM include: - The STM is now a runtime option enabled by an environment variable. - Additional species (Table 12-2) are included to track the loss of inorganic sulfate to organosulfate for chemical mechanisms that include this loss pathway. ## 12.2 Usage To activate the STM option, edit the CCTM runscript and set the following environment variable to "Y" (the default is "N"): - setenv STM_SO4TRACK Y The STM option does not require any additional input files, and uses the initial conditions, boundary conditions, and emissions files available for with the standard, non-instrumented CCTM. Next, run the CMAQ CTM following the instructions described in Chapter 5, section 5.7. Note that several of the standard CMAQ output files (ACONC, CONC, CGRID, DDEP, and WDEP) will include additional species beyond the standard base model species list. A list of the additional species output by the STM option are provided in Table 12-1 and Table 12-2. These data can be post-processed using standard utilities, such as: - combine (to combine multiple days into one file or to aggregate various tracking species) - m3tproc (to sum/average over multiple days) - verdi (for data visualization) **Table 12-1. Sulfur Tracking Species List** |Species Group|Species Name| MW | Description | |:------------|:-----------|:-----|:------------| |AE |ASO4AQH2O2J | 96.0 |Accumulation mode sulfate (ASO4J) produced by aqueous-phase hydrogen peroxide oxidation reaction: H2O2 + S(IV) -> S(VI) + H2O | |AE |ASO4AQO3J | 96.0 |ASO4J produced by aqueous-phase ozone oxidation reaction: O3 + S(IV) -> S(VI) + O2 | |AE |ASO4AQFEMNJ | 96.0 |ASO4J produced by aqueous-phase oxygen catalyzed by Fe3+ and Mn2+ oxidation reaction: O2 + S(IV) -> S(VI) | |AE |ASO4AQMHPJ | 96.0 |ASO4J produced by aqueous-phase methyl hydrogen peroxide oxidation reaction: MHP + S(IV) -> S(VI) | |AE |ASO4AQPAAJ | 96.0 |ASO4J produced by aqueous-phase peroxyacetic acid oxidation reaction: PAA + S(IV) -> S(VI) | |AE |ASO4GASJ | 96.0 |ASO4J condensation following gas-phase reaction: OH + SO2 -> SULF + HO2 | |AE |ASO4EMISJ | 96.0 |ASO4J from source emissions | |AE |ASO4ICBCJ | 96.0 |ASO4J from boundary and initial conditions | |AE |ASO4GASI | 96.0 |Aitken mode sulfate (ASO4I) nucleation and/or condensation following gas-phase reaction: OH + SO2 -> SULF + HO2 | |AE |ASO4EMISI | 96.0 |ASO4I from source emissions | |AE |ASO4ICBCI | 96.0 |ASO4I from boundary and initial conditions | |AE |ASO4GASK | 96.0 |Coarse mode sulfate (ASO4K) condensation following gas-phase reaction: OH + SO2 -> SULF + HO2 | |AE |ASO4EMISK | 96.0 |ASO4K from source emissions | |AE |ASO4ICBCK | 96.0 |ASO4K from boundary and initial conditions | |NR |SULF_ICBC | 98.0 |Sulfuric acid vapor (SULF) from boundary and initial conditions | **Table 12-2. Additional Tracking Species Representing Loss of Inorganic Sulfate to Organosulfate (only included if using SAPRC07TIC_AE7I, CB6R3_AE7, CB6R5_AE7,CB6R5M_AE7, CRACMM1 or CRACMM1AMORE based mechanisms)** |Species Group|Species Name| MW | Description | |:------------|:-----------|:-----|:------------| |AE |OSO4J | 96.0 |Loss of ASO4J to organosulfate | |AE |OSO4AQH2O2J | 96.0 |Loss of ASO4AQH2O2J to organosulfate | |AE |OSO4AQO3J | 96.0 |Loss of ASO4AQO3J to organosulfate | |AE |OSO4AQFEMNJ | 96.0 |Loss of ASO4AQFEMNJ to organosulfate | |AE |OSO4AQMHPJ | 96.0 |Loss of ASO4AQMHPJ to organosulfate | |AE |OSO4AQPAAJ | 96.0 |Loss of ASO4AQPAAJ to organosulfate | |AE |OSO4GASJ | 96.0 |Loss of ASO4GASJ to organosulfate | |AE |OSO4EMISJ | 96.0 |Loss of ASO4EMISJ to organosulfate | |AE |OSO4ICBCJ | 96.0 |Loss of ASO4ICBCJ to organosulfate | **Contact** [William T. Hutzell](mailto:hutzell.bill@epa.gov), U.S. EPA [<< Previous Chapter](CMAQ_UG_ch11_ISAM.md) - [Home](README.md) - [Next Chapter >>](CMAQ_UG_ch13_WRF-CMAQ.md)
CMAQv5.5 User's Guide
================================================ FILE: DOCS/Users_Guide/CMAQ_UG_ch13_WRF-CMAQ.md ================================================ [<< Previous Chapter](CMAQ_UG_ch12_sulfur_tracking.md) - [Home](README.md) - [Next Chapter >>](CMAQ_UG_ch14_MPAS-CMAQ.md) # 13. WRF-CMAQ Model ## 13.1 Introduction Air Quality Models (AQMs) such as CMAQ are typically run in retrospective mode using archived meteorological data to drive the chemistry-transport calculations. Here the model producing the meteorological data is run first producing inputs that are synthesized into AQM model-ready inputs via pre-processors, such as MCIP. But this one-way coupling process interpolates simulated dynamics and does not consider the effects of atmospheric pollutants on the energy budget of the atmosphere, both of which can change the driving meteorology. For example, aerosols can affect the amount of sunlight that reaches the surface, thus impacting temperature (aerosol direct effect). To address these shortcomings, a coupled WRF-CMAQ model was developed (Wong et al., 2012). A single source code principle was used to construct this two-way coupling system so that CMAQ can be executed either as a stand-alone model or part of the coupled system without any code changes, by treating CMAQ as a subroutine in the WRF structure; this approach eliminates maintenance of separate code versions for the coupled and uncoupled systems. The design also provides the flexibility to permit users: (1) to adjust the call frequency of WRF and CMAQ to balance the accuracy of the simulation versus computational intensity of the system, and (2) to execute the two-way coupling system with feedbacks to study the effect of gases and aerosols on short wave radiation and subsequent simulated dynamics. ## 13.2 Aerosol Direct Radiative Feedback Effects The presence of aerosols impacts the amount of radiation reaching the surface, in turn altering the energy budget of the atmosphere (manifesting itself as changes to temperature and the planetary boundary layer height). This is called the shortwave aerosol direct radiative effect. This has been implemented in the shortwave Rapid Radiative Transfer Model for General Circulation Models (RRTMG) radiation scheme in WRF, where aerosol optical properties such as extinction, single scattering albedo, and asymmetry factor are calculated for 14 wavelength bands (Clough et al. 2005) using aerosol composition and size information simulated by CMAQ. Specifically, data representing seven aerosol quantities (water soluble mass, water insoluble mass, elemental carbon, sea salt, water, geometric mean diameters, and standard deviations) for all three aerosol modes (Aitken, accumulation, and coarse) is transferred from CMAQ to WRF. The implementation utilizes the core-shell model where black carbon is treated as the center and the other substances comprise the shell. The aerosol optics calculations are based on Bohren and Huffman (1983). RRTMG is the only radiation scheme in WRF that is supported by the coupled WRF-CMAQ model. ## 13.3 Application and Evaluation The aerosol optics calculations in the WRF-CMAQ model were assessed through comparison to measured optical properties of ambient aerosols made during the Carbonaceous Aerosol and Radiation Effects Study (CARES) as detailed by Gan et al. (2015a). The ability of the WRF-CMAQ system to reproduce historical trends in the tropospheric aerosol burden, aerosol optical depth, and clear-sky short wave radiation across the northern hemisphere and the U.S., was assessed through extensive comparisons of long-term simulations of these quantities with observation-derived records from 1990 to 2010 (Xing et al. 2015a,b; Gan et al., 2015b). The model captured declining Aerosol Optical Depth (AOD) trends along with the corresponding decreased top-of-atmosphere (TOA) short-wave radiation (SWR), or upwelling, and increased surface SWR, or downwelling, in the eastern US, Europe and the northern Atlantic for the 2000–2010 period. Estimates of the aerosol direct radiative effects (ADE) at TOA were comparable with those derived from measurements and, compared to general circulation models, the model exhibited better estimates of surface-aerosol direct radiative efficiency (Eτ) (Xing et al., 2015b). Additionally, top-of-atmosphere clear-sky shortwave radiation during 2000-2010, inferred from the NASA Cloud and Earth’s Radiant Energy System (CERES) satellite retrievals, showed decreasing trends in the eastern U.S. and increasing trends in eastern China. The inclusion of ADE in WRF-CMAQ yielded better agreement with these contrasting trends suggesting that the trends in clear-sky radiation are influenced by trends in the tropospheric aerosol burden (Xing et al., 2015ab; Mathur et al., 2017). Impacts of aerosol cooling are not limited to changes in surface temperature, since variation in atmospheric dynamics caused by the increased stability can worsen local air quality and impact human health (Xing et al., 2016). Hemispheric WRF-CMAQ model simulation over two decades (1990−2010) shows enhanced surface PM2.5 concentrations in the most polluted regions of the world due to the aerosol direct effect (Xing et al., 2016). ## 13.4 Latest WRF-CMAQ Release Coupled WRF-CMAQv5.5 is compatible with WRF versions 4.4 to 4.5.1. EPA's testing of WRF-CMAQ has included chemical mechanisms CB6r5 and CRACMMv1 with the M3DRY dry deposition scheme. Other model options can be used with the WRF-CMAQ model but will have limited user support for issues that are encountered. A complete step by step build process and run instructions are provided in the [WRF-CMAQ Tutorial](Tutorials/CMAQ_UG_tutorial_WRF-CMAQ_Benchmark.md). #### WRF-CMAQ bug in v5.3 series A bug was identified within the CMAQ to WRF coupling routine (twoway_feedback.F90) where aerosol feedback information is transferred from CMAQ to WRF. In doing so, it was found that WRF was not receiving the correct aerosol feedback information in some cases due to a looping error relating to the number of layers. The bug impacts the WRF-CMAQ coupled system in the CMAQv5.3 release series (v5.3, v5.3.1, v5.3.2, v5.3.3) when running with short wave radiative feedback. The bug was not present in prior WRF-CMAQ versions. The bugfix in CMAQv5.4 (and all subsequent versions) correctly captures the variations in the aerosol optical properties and consequently the direct feedback effects through all layers. **Users of WRF-CMAQv5.3 are strongly encouraged to update to CMAQv5.4 or later. See the [WRF-CMAQ Bugfix Release Note](../Release_Notes/CMAQ-Release-Notes:-WRF-CMAQ-Coupled-Model) for more information.** ## 13.5 WRF-CMAQ Benchmark Test Case See the [WRF-CMAQ Benchmark Tutorial](Tutorials/CMAQ_UG_tutorial_WRF-CMAQ_Benchmark.md) for step-by-step instructions for running the 2 day benchmark case. The input files for the WRF-CMAQ benchmark case are provided in the base model benchmark inputs .tar file. Output WRF-CMAQ files associated with the sample run script for the coupled WRF-CMAQ model in this release package are provided in the base model benchmark outputs .tar file. ## 13.6 WRF Namelist Options As with the previous version of the coupled model (WRFv4.4-CMAQv5.4), all related runtime options are controlled via the WRF namelist under the &wrf_cmaq section. For convenience these options are set as runscript variables (look for the section labeled &wrf_cmaq in the [sample runscript][link_13.6]) and automatically duplicated when creating the WRF namelist. There are five parameters with varying options (see below): | Name | Value | Description | |------|-------|-------------| |wrf_cmaq_option| 2 |Dictates how the coupled model should be executed
0 = run WRF only
1 = run WRF only producing MCIP like GRID and MET files
2 = run WRF-CMAQ coupled model w/o producing MCIP like GRID and MET files
3 = run WRF-CMAQ coupled model producing MCIP like GRID and MET files | |wrf_cmaq_freq| 5 |Indicates how often WRF and CMAQ interact;
For example if set to 5, this means for every 5 WRF steps there will be 1 CMAQ step| |met_file_tstep| 10000 |Time step size of MCIP like intermediate output files (HHMMSS)| |direct_sw_feedback| .true. |Logical; whether to turn on/off aerosol shortwave direct effects| |feedback_restart| .false. |Logical; whether aerosol shortwave direct effect information is available in the WRF restart file| If you have any questions, please contact David Wong at wong.david-c@epa.gov ## 13.7 References Bohren, C. F. and Huffman, D. R. (1983). Absorption and Scattering of Light by Small Particles, Wiley-Interscience, New York, USA, 530 pp. Clough, S.A., Shephard, M. W., Mlawer, E. J., Delamere, J. S., Iacono, M. J., Cady-Pereira, K., Boukabara, S., & Brown, P. D. (2005). Atmospheric radiative transfer modeling: a summary of the AER codes. J. Quant. Spectrosc. Ra., 91, 233–244. Gan, C., Binkowski, F., Pleim, J., Xing, J., Wong, D-C., Mathur, R., Gilliam, R. (2015a). Assessment of the Aerosol Optics Component of the Coupled WRF-CMAQ Model using CARES Field Campaign data and a Single Column Model. Atmospheric Environment, 115, 670-682. https://doi.org/10.1016/j.atmosenv.2014.11.028 Gan, C., Pleim, J., Mathur, R., Hogrefe, C., Long, C., Xing, J., Wong, D-C., Gilliam, R., Wei, C. (2015b). Assessment of long-term WRF–CMAQ simulations for understanding direct aerosol effects on radiation "brightening" in the United States. Atmospheric Chemistry and Physics, 15, 12193-12209. https://doi.org/10.5194/acp-15-12193-2015 Mathur, R., Pleim, J., Wong, D., Otte, T., Gilliam, R., Roselle, S., Young, J. (2011). Overview of the Two-way Coupled WRF-CMAQ Modeling System. 2011 CMAS Conference, Chapel Hill, NC. Presentation available from the CMAS conference website. Mathur, R., Xing, J., Gilliam, R., Sarwar, G., Hogrefe, C., Pleim, J., Pouliot, G., Roselle, S., Spero, T. L., Wong, D. C., Young, J. (2017). Extending the Community Multiscale Air Quality (CMAQ) modeling system to hemispheric scales: overview of process considerations and initial applications, Atmos. Chem. Phys., 17, 12449–12474, https://doi.org/10.5194/acp-17-12449-2017 Wong, D.C., Pleim, J., Mathur, R., Binkowski, F., Otte, T., Gilliam, R., Pouliot, G., Xiu, A., Kang, D. (2012). WRF-CMAQ two-way coupled system with aerosol feedback: software development and preliminary results. Geosci. Model Dev., 5, 299-312. https://doi.org/10.5194/gmd-5-299-2012 Xing, J., Mathur, R., Pleim, J., Hogrefe, C., Gan, C.-M., Wong, D. C., Wei, C. (2015a). Can a coupled meteorology–chemistry model reproduce the historical trend in aerosol direct radiative effects over the Northern Hemisphere?, Atmos. Chem. Phys., 15, 9997–10018, https://doi.org/10.5194/acp-15-9997-2015 Xing, J., Mathur, R., Pleim, J., Hogrefe, C., Gan, C.-M., Wong, D., Wei, C., Wang, J. (2015b). Air pollution and climate response to aerosol direct radiative effects: a modeling study of decadal trends across the Northern Hemisphere, J. Geophys. Res.-Atmos., 120, 12221–12236, https://doi.org/10.1002/2015JD023933 Xing, J., Wang, J., Mathur, R., Pleim, J., Wang, S., Hogrefe, C., Gan, C.-M., Wong, D., Hao, J. (2016). Unexpected benefits of reducing aerosol cooling effects, Environ. Sci. Technol., 50, 7527– 7534, https://doi.org/10.1021/acs.est.6b00767 For an overview of the 2-way Coupled WRF-CMAQ see: http://www.cmascenter.org/conference/2011/slides/mathur_overview_two-way_2011.pptx and for more details on the 2-way Coupled WRF-CMAQ system see: http://www.cmascenter.org/conference/2011/slides/wong_wrf-cmaq_two-way_2011.pptx [<< Previous Chapter](CMAQ_UG_ch12_sulfur_tracking.md) - [Home](README.md) - [Next Chapter >>](CMAQ_UG_ch14_MPAS-CMAQ.md)
CMAQv5.5 User's Guide
[link_13.6]: ../../CCTM/scripts/run_cctm_Bench_2018_12NE3.WRFCMAQ.csh [link_13.6]: https://github.com/USEPA/CMAQ/blob/main/CCTM/scripts/run_cctm_Bench_2018_12NE3.WRFCMAQ.csh ================================================ FILE: DOCS/Users_Guide/CMAQ_UG_ch14_MPAS-CMAQ.md ================================================ [<< Previous Chapter](CMAQ_UG_ch13_WRF-CMAQ.md) - [Home](README.md) - [Tables and Figures >>](CMAQ_UG_tables_figures.md) # 14. MPAS-CMAQ Model ## 14.1 Introduction The atmospheric component of the Model for Prediction Across Scales (MPAS) is developed by the National Center for Atmospheric Research (NCAR). This meteorlogical model can be coupled with CMAQ starting with the release of CMAQ version 5.5. MPAS-CMAQ is currently available in a pre-configured simulation that uses a globally-uniform 120 km resolution mesh and the CRACMM2 chemical mechanism. Additional configurations may be made available on request, and tools for the creation of custom configurations will be included in future versions of CMAQ. The MPAS-CMAQ model described here cannot be run in a stand-alone mode, with meteorological fields generated by MPAS used as input to CMAQ. This capability is planned for a future release. ## 14.2 Documentation MPAS and CMAQ code are available on the [EPA's MPAS GitHub repository](https://github.com/USEPA/MPAS) and as a branch on the [CMAQ GitHub repository](https://github.com/USEPA/CMAQ/tree/MPAS_CMAQ) respecitively. The MPAS-CMAQ User's Guide is available in the [documentation directory](https://github.com/USEPA/CMAQ/blob/MPAS_CMAQ/DOCS/Users_Guide/PDF/MPAS_CMAQ_guide.pdf) of the MPAS-CMAQ branch. The MPAS-CMAQ User's Guide provides detailed information on downloading, compiling, configuring, and running the model. ## 14.3 References of Interest Bullock Jr., O. R., Foroutan, H., Gilliam, R. C., and Herwehe, J. A.: Adding four-dimensional data assimilation by analysis nudging to the Model for Prediction Across Scales – Atmosphere (version 4.0), Geosci. Model Dev., 11, 2897–2922, https://doi.org/10.5194/gmd-11-2897-2018, 2018. Gilliam, R. C., Herwehe, J. A., Bullock, Jr, O. R., Pleim, J. E., Ran, L., Campbell, P. C., & Foroutan, H.: Establishing the suitability of the model for prediction across scales for global retrospective air quality modeling. Journal of Geophysical Research: Atmospheres, 126, e2020JD033588. https://doi.org/10.1029/2020JD033588, 2021. Wong, D. C., Willison, J., Pleim, J. E., Sarwar, G., Beidler, J., Bullock, R., Herwehe, J. A., Gilliam, R., Kang, D., Hogrefe, C., Pouliot, G., and Foroutan, H.: Development of the MPAS-CMAQ Coupled System (V1.0) for Multiscale Global Air Quality Modeling, Geosci. Model Dev. Discuss. [preprint], https://doi.org/10.5194/gmd-2024-52, in review, 2024. [<< Previous Chapter](CMAQ_UG_ch13_WRF-CMAQ.md) - [Home](README.md) - [Tables and Figures >>](CMAQ_UG_tables_figures.md)
CMAQv5.5 User's Guide
================================================ FILE: DOCS/Users_Guide/CMAQ_UG_tables_figures.md ================================================ [<< Previous Chapter](CMAQ_UG_ch13_WRF-CMAQ.md) - [Home](README.md) - [Appendix >>](Appendix/CMAQ_UG_appendixA_model_options.md) # CMAQ User's Guide ## List of Figures [Figure 2-1. Overview of the CMAQ System](CMAQ_UG_ch02_program_structure.md#Figure2-1) [Figure 5-1. CMAQ repository structure](CMAQ_UG_ch05_running_a_simulation.md#Figure5-1) [Figure 6-1. STAGE resistance diagram (modified from Nemitz et al., 2001) with table of variables descriptions](CMAQ_UG_ch06_model_configuration_options.md#Figure6-1) [Figure 9-1. Relative contribution of oxidation pathways for VOCs using Process Analysis](CMAQ_UG_ch09_process_analysis.md#Figure9-1) [Figure 9-2. Relative contribution of HNO3 formation pathways at three grid locations](CMAQ_UG_ch09_process_analysis.md#Figure9-2) ## List of Tables [Table 3-1. Example of job scenarios at EPA for a single day simulation](CMAQ_UG_ch03_preparing_compute_environment.md#Table3-1) [Table 3-2. Minimum required software versions](CMAQ_UG_ch03_preparing_compute_environment.md#Table3-2) [Table 3-3. Optional support software for CMAQ](CMAQ_UG_ch03_preparing_compute_environment.md#Table3-3) [Table 4-1. CMAQ input files](CMAQ_UG_ch04_model_inputs.md#Table4-1) [Table 4-2. GC species namelist file format](CMAQ_UG_ch04_model_inputs.md#Table4-2) [Table 4-3. MCIP output variables used within the CMAQ system](CMAQ_UG_ch04_model_inputs.md#Table4-3) [Table 4-4. Variables in hourly observed lightning strike file.](CMAQ_UG_ch04_model_inputs.md#Table4-4) [Table 4-5. Variables in lightning parameters file.](CMAQ_UG_ch04_model_inputs.md#Table4-5) [Table 6-1. Aerosol Species Predicted by the Wind-Blown Dust Module](CMAQ_UG_ch06_model_configuration_options.md#Table6-1) [Table 6-2. Aerosol Species Predicted by the Sea-Spray Aerosol Module](CMAQ_UG_ch06_model_configuration_options.md#Table6-2) [Table 6-3. Chemical mechanisms available with CMAQv5.4](CMAQ_UG_ch06_model_configuration_options.md#Table6-3) [Table 7-1. CMAQ output files](CMAQ_UG_ch07_model_outputs.md#Table7-1) [Table 8-1. Software programs for evaluating and visualizing CMAQ data](CMAQ_UG_ch08_analysis_tools.md#Table8-1) [Table 9-1. Parameters used in PACM_INFILE](CMAQ_UG_ch09_process_analysis.md#Table9-1) [Table 9-2. Allowable parameters for Process Analysis outputs](CMAQ_UG_ch09_process_analysis.md#Table9-2) [Table 9-3. Allowable operators for Integrated Reaction Rate outputs](CMAQ_UG_ch09_process_analysis.md#Table9-3) [Table 11-1. ISAM run script variables](CMAQ_UG_ch11_ISAM.md#Table11-1) [Table 12-1. Sulfur Tracking species list](CMAQ_UG_ch12_sulfur_tracking.md#Table12-1) [Table 12-2. Additional Tracking Species Representing Loss of Inorganic Sulfate to Organosulfate](CMAQ_UG_ch12_sulfur_tracking.md#Table12-2) [<< Previous Chapter](CMAQ_UG_ch13_WRF-CMAQ.md) - [Home](README.md) - [Appendix >>](Appendix/CMAQ_UG_appendixA_model_options.md)
CMAQv5.5 User's Guide
================================================ FILE: DOCS/Users_Guide/README.md ================================================ # CMAQ User's Guide The CMAQ User's Guide is designed to support the installation, configuration, and execution of the [Community Multiscale Air Quality (CMAQ)](http://www.epa.gov/cmaq) model on Linux systems. CMAQ users should be comfortable with Linux scripting conventions and have some familiarity with the Fortran programming language. Users should also have some familiarity with atmospheric structure, and the physical and chemical processes that occur in the atmosphere. Note: While this User's Guide is packaged with the code when it is downloaded or cloned, users are encouraged to go [online](https://github.com/USEPA/CMAQ/blob/main/DOCS/Users_Guide/README.md) for the latest version. ## Table of Contents [Chapter 1 (Overview):](CMAQ_UG_ch01_overview.md) CMAQ background, features, requirements and support resources. [Chapter 2 (Program Structure):](CMAQ_UG_ch02_program_structure.md) Overview of the programs included with the CMAQ system. [Chapter 3 (Preparing Compute Environment):](CMAQ_UG_ch03_preparing_compute_environment.md) Hardware/software requirements for CMAQ default configuration. [Chapter 4 (Model Inputs):](CMAQ_UG_ch04_model_inputs.md) Preprocessing tools included with the base code and descriptions of the CMAQ input files. [Chapter 5 (Running CMAQ):](CMAQ_UG_ch05_running_a_simulation.md) Obtain the CMAQ source codes, set-up your environment, run a simulation. [Chapter 6 (Model Configuration Options):](CMAQ_UG_ch06_model_configuration_options.md) Configuration options for different CMAQ science modules. [Chapter 7 (Model Outputs):](CMAQ_UG_ch07_model_outputs.md) Descriptions of the CMAQ output files. [Chapter 8 (Analysis Tools):](CMAQ_UG_ch08_analysis_tools.md) Post-processing, visualization and evaluation tools for CMAQ. [Chapter 9 (Process Analysis and Budget):](CMAQ_UG_ch09_process_analysis.md) Instrumented Models - Integrated Process Rates (IPR), Integrated Reaction Rates (IRR), and Budget Tool. [Chapter 10 (HDDM-3D):](CMAQ_UG_ch10_HDDM-3D.md) Instrumented Models - Decoupled Direct Method in Three Dimensions (DDM-3D). [Chapter 11 (ISAM):](CMAQ_UG_ch11_ISAM.md) Instrumented Models - Integrated Source Apportionment Method (ISAM). [Chapter 12 (Sulfur Tracking):](CMAQ_UG_ch12_sulfur_tracking.md) Instrumented Models - Sulfur Tracking Method (STM). [Chapter 13 (WRF-CMAQ):](CMAQ_UG_ch13_WRF-CMAQ.md) WRF-CMAQ model for simulating interactions between chemistry and weather. [Chapter 14 (MPAS-CMAQ):](CMAQ_UG_ch14_MPAS-CMAQ.md) CMAQ is coulpled with the global Model for Prediction Across Scales (MPAS) allowing for seamless mesh refinement from global to local scales. [Tables and Figures:](CMAQ_UG_tables_figures.md) List of Tables and Figures. [Appendix A (Model Options):](Appendix/CMAQ_UG_appendixA_model_options.md) List of model options in configuration, compilation and run scripts. [Appendix B (Emissions Control):](Appendix/CMAQ_UG_appendixB_emissions_control.md) How to use the Emissions Control Namelist for customization of emissions processing. [Appendix C (Spatial Data):](Appendix/CMAQ_UG_appendixC_spatial_data.md) Information on how to create consistent geospatial data for CMAQ inputs. [Appendix D (Parallel Implementation):](Appendix/CMAQ_UG_appendixD_parallel_implementation.md) An introduction to how data-parallelism can be applied in the CMAQ system to increase computational efficiency. [Appendix E (Configuring WRF):](Appendix/CMAQ_UG_appendixE_configuring_WRF.md) Configuring the Weather Research and Forecasting Model (WRF) for use with CMAQ [Appendix F (ELMO Module):](Appendix/CMAQ_UG_appendixF_elmo_output.md) Description of the Explicit and Lumped CMAQ Model Output Module *** CMAQv5.5 User's Guide
================================================ FILE: DOCS/Users_Guide/Tutorials/CMAQ_UG_tutorial_CRACMM.md ================================================ # Getting started with CRACMM Author: Havala Pye (pye.havala@epa.gov) | v5.4 Update: Havala Pye (pye.havala@epa.gov) | v5.5 CRACMM was first introduced in CMAQv5.4 as two versions: CRACMM1 and CRACMM1AMORE. Those versions are retained in v5.5 and an updated version, CRACMM2, is released for the first time. CRACMM2 merges the CRACMM and CRACMM-AMORE lines of development into one path going forward. Thus, CRACMM2 is an update to both CRACMM1 and CRACMM1AMORE. CRACMM has a separate supporting repository at https://www.github.com/USEPA/CRACMM which contains additional information to facilitate use of CRACMM in CMAQ. This tutorial provides an overview of how to get starting running CRACMM in CMAQ. ## How is running CRACMM different than running other chemical mechanisms in CMAQ? Running CRACMM is just like running other mechanisms in CMAQ. No matter what mechanism you choose, CMAQ will require several inputs that are mechanism specific (including the gas and aerosol species lists, initial conditions, boundary conditions, and emissions) as well as other inputs that are mechanism independent (meteorology, land use files, grid description file). Some of these inputs are distributed with CMAQ while others are generated from separate tools. See [Chapter 4 of the CMAQ Users' Guide](../CMAQ_UG_ch04_model_inputs.md) for a complete list of CMAQ inputs. ## How do I select CRACMM? Once you have obtained CMAQv5.5 and set up your project directory, CRACMM2 can be selected in the CCTM build script (CCTM/scripts/bldit_cctm.csh) by indicating "CRACMM2" as the Mechanism. The "_aq" extension is no longer part of the mechanism name starting with CRACMM2. The selection of the corresponding aerosol module, cloud module, and default gas-phase chemical solver will occur automatically in the build script based on the mechanism name. Currently, CRACMM cannot be built with the gfortran compiler version 9.1 and later since CMAQ-CRACMM has trailing comments in the gas, aerosol, and non-reactive species namelists. If you want to pursue that compiler now, delete the comments (starting with "!" ) in the GC, AE, and NR namelists. Look for an upcoming bug fix on the v5.5+ branch that will address this issue. ## What deposition and biogenic emission modules work with CRACMM? CRACMM is compatible and has been tested with both STAGE and M3DRY deposition modules. CRACMM is compatible with both BEIS and MEGAN in-line biogenic emissions. ## How do I prepare emission inputs for CRACMM? CRACMM1 and CRACMM1AMORE use the same emissions since the two versions differ only in the representation of isoprene chemistry. CRACMM2 emissions are slightly different than CRACMM1 as ethylbenzene and styrene are now explicit. CRACMM2 emissions may be used in CRACMM1/CRACMM1AMORE (and vice versa) using approximations (see the work of Skipper et al. and https://github.com/USEPA/CRACMM/tree/main/emissions). CRACMM includes a set of rules for how individual organic species map to the mechanism species. These rules are distributed in python code in the supporting repository. In addition, the repository contains the mapping of individual organic species from the SPECIATE database, BEIS, and MEGAN to CRACMM species. CMAQ-ready emissions are generally prepared using the SMOKE model. ## How do I obtain initial and boundary conditions? Initial and boundary conditions can be mapped from other mechanisms including Carbon Bond. The CMAQ repository bcon PREP tools (available in the PREP/bcon/map2mech folder) contain mappings from Carbon Bond to CRACMM. Initial conditions may be obtained in a similar manner. Because Carbon Bond species are not a good match to CRACMM species when emissions are fresh, the initial conditions should be followed by sufficient spin-up time to remove their influence. See the work by [Hogrefe et al.]( https://doi.org/10.1016/j.atmosenv.2017.04.009) for the impact of initial conditions on CMAQ predictions as a function of spin-up time. The larger the domain (e.g., hemisphere vs a country) and the more remote the study area (e.g., free troposphere vs surface), the longer the spin-up time will need to be. Adequate spin-up time can always be checked by adding more spin-up days and verifying the model predictions have not significantly changed. ## What does CRACMM assume about the volatility of primary organic aerosol and how to I prepare those emissions? The majority of speciation profiles in SPECIATE assume POA is nonvolatile. A few volatility resolved profiles are in SPECIATE starting with v5.1, and work is underway to build volatility information for all relevant sources into future versions of SPECIATE. [S2S-Tool](https://github.com/USEPA/S2S-Tool) workflows in place for CRACMM supplement the POA information in SPECIATE by implementing semivolatile POA profiles in the emission files. Prior to S2S-Tool, workflows in place for CRACMM in v5.4 implemented semivoltile POA in the DESID control files by adding together PMOCN2 and PMNOCMN2 on the emission files to create a total POA equivalent that is then distributed to different volatility species in the model based on the expected volatility of POA emissions. Your specific configuration will depend on when and how your emissions were prepared. For emissions to be properly ingested by CMAQ, three files need to be customized and synchronized for your simulation: * The run script. This is where the model is told what files to read in and each file (stream) is given a string label. * The DESID mechanism-specific namelist. This is where species on the emission files are mapped to model species. For older workflows, PMOCN2 and PMNCOMN2 can be mapped to species of different volatility. * The DESID mechanism-independent control file. This is where emission files can be grouped so that multiple sources can be treated the same (e.g., wildland fires, prescribed burning, and residential wood burning can have the same volatility profile). **The main CMAQ log file and the log file for at least one processor should be checked for any initial run.** Warnings about potential emission problems will be displayed in those logs. More guidance on using DESID is available in a [CMAQ emissions tutorial](CMAQ_UG_tutorial_emissions.md). CRACMM mechanisms currently allow traditional nonvolatile 'APOC' and 'ANCOM' as legacy species in the model. The species can be transported and removed but do not undergo any heterogeneous or other chemistry. This species will be removed in a future version. To use the model species 'APOC' and 'ANCOM', the DESID control file would need to include their mappings. If your emission preparation workflow is custom, you can create semivolatle POA species directly in your inputs. CRACMM contains low volatility through semivolatile organic species with either alkane-like or oxygenated functionality that can represent semivolatile POA emissions. You can use the CRACMM python emission mapper to map emissions to representative CRACMM species. In CMAQ, check that the DESID files include your species names. Future releases of CRACMM, CMAQ, and emission tools should be checked for cross compatibility. ## Additional resources [SPECIATE Database](https://www.epa.gov/air-emissions-modeling/speciate): A database of PM2.5 and VOC emissions composition by individual species. [S2S-Tool](https://github.com/USEPA/S2S-Tool): A tool to convert SPECIATE profiles with individual species to profiles of mechanism species for use in SMOKE. Replaces Speciation Tool. [SMOKE](https://github.com/CEMPD/SMOKE/): A tool that combines emission magnitudes with speciation profiles as well as temporal and spatial proxies to create CMAQ-ready emission files. [CRAMM Repository](https://github.com/USEPA/CRACMM/): A repository containing additional information on how emissions map to CRACMM as well as metadata for CRACMM. ================================================ FILE: DOCS/Users_Guide/Tutorials/CMAQ_UG_tutorial_DDM3D.md ================================================ ## CMAQ-DDM3D Benchmark Tutorial ## ### Procedure to build and run the CMAQ-DDM3D model using cb6r5 mechanism and m3dry dry deposition scheme using gnu compiler: ### ### Step 1: Download and run the CMAQv5.5 cb6r5 benchmark case (without DDM3D) to confirm that your model run is consistent with the provided benchmark output. - [CMAQ Benchmark Tutorial](CMAQ_UG_tutorial_benchmark.md) If you encounter any errors, try running the model in debug mode and refer to the CMAS User Forum to determine if any issues have been reported. https://forum.cmascenter.org/ ### Step 2: Read the User Guide Chapter on the Decoupled Direct Method in Three Dimensions - [CMAQ User's Guide Chapter on DDM-3D](../CMAQ_UG_ch10_HDDM-3D.md) Note: This benchmark is intended to demonstrate how to build and run CMAQ-DDM-3D with the provided input files: The following control file is provided in the CCTM/scripts directory when you obtain the CMAQv5.5 code from github (step 5 below): ``` sensinput.2018_12NE3.dat ``` The above file contains the following sensitivity definition block: ``` PPA EMIS PT_EGU SPECIES SO2 REGION PA GNJ EMIS GRIDDED_EMIS SPECIES NO2, NO REGION NJ END ``` The following gridmask file is provided with the [5.5 benchmark inputs](https://cmaq-release-benchmark-data-for-easy-download.s3.amazonaws.com/index.html#v5_5/) tar file CMAQv5.4_2018_12NE3_Benchmark_2Day_Input.tar.gz. (See step 10 below.) ``` GRIDMASK_STATES_12NE3.nc ``` The instructions require the user to edit the DESID emissions control namelist file and the DESID chemical control namelist file in the BLD directory. If you want to use emission scaling (independently from ISAM or DDM3D) you will also need to edit these files. ``` CMAQ_Control_DESID.nml CMAQ_Control_DESID_${MECH}.nml ``` ### Step 3 (optional): choose your compiler, and load it using the module command if it is available on your system ``` module avail ``` ``` module load openmpi_4.0.1/gcc_9.1.0 ``` ### Step 4 (optional): Install I/O API (note, this assumes you have already installed netCDF C and Fortran Libraries) I/O APIv3.2 supports up to MXFILE3=256 open files, each with up to MXVARS3=2048. DDM-3D applications configured to calculate sensitivities to a large number of parameters may exceed this upper limit of model variables, leading to a model crash. To avoid this issue, users may use I/O API version 3.2 "large" that increases MXFILE3 to 512 and MXVARS3 to 16384. Instructions to build this version are found in Chapter 3. Note, using this ioapi-large version is NOT REQUIRED for the CMAQ-DDM Benchmark Case. If a user needs to use these larger setting for MXFILE3 and MXVAR3 to support their application, the memory requirements will be increased. If needed, this version is available as a zip file from the following address: https://www.cmascenter.org/ioapi/download/ioapi-3.2-large-20200828.tar.gz Otherwise, use the I/O API version available here: https://www.cmascenter.org/ioapi/download/ioapi-3.2-20200828.tar.gz ### Step 5: Install CMAQ with DDM-3D ``` git clone -b main https://github.com/USEPA/CMAQ.git CMAQ_REPO ``` Build and run in a user-specified directory outside of the repository In the top level of CMAQ_REPO, the bldit_project.csh script will automatically replicate the CMAQ folder structure and copy every build and run script out of the repository so that you may modify them freely without version control. Edit bldit_project.csh, to modify the variable $CMAQ_HOME to identify the folder that you would like to install the CMAQ package under. For example: ``` set CMAQ_HOME = [your_install_path]/CMAQ_v5.5 ``` Now execute the script. ``` ./bldit_project.csh ``` Change directories to the CMAQ_HOME directory ``` cd [your_install_path]/CMAQ_v5.5 ``` ### Step 6. Edit the config_cmaq.csh to specify the paths of the ioapi and netCDF libraries ### Step 7: Copy the bldit_cctm.csh script to a new bldit_cctm_cb6r5_m3dry_ddm.csh bldit script, and make the following edits: Change directory to CCTM/scripts ``` cd CCTM/scripts cp bldit_cctm.csh bldit_cctm_cb6r5_m3dry_ddm.csh ``` Modify the following option to compile CCTM with DDM3D: ``` set DDM3D_CCTM #> uncomment to compile CCTM with DD3D activated ``` ### Step 8: Run the bldit_cctm.csh script ``` ./bldit_cctm_cb6r5_m3dry_ddm.csh gcc |& tee bldit_cctm_cb6r5_m3dry_ddm.log ``` ### Step 9: Edit the Emission Control Namelist to recognize the CMAQ_REGIONS file Change directories to the build directory ``` cd BLD_CCTM_v55_DDM3D_gcc_cb6r5_ae7_aq_m3dry ``` edit the Control_DESID namelist file ``` gedit CMAQ_Control_DESID.nml ``` Add the Regions to the &Desid_RegionDef section of the control DESID namelist. ``` &Desid_RegionDef Desid_Reg_nml = ! Region Label | File_Label | Variable on File 'EVERYWHERE' ,'N/A' ,'N/A', 'PA' ,'CMAQ_MASKS' , 'PA', 'NJ' ,'CMAQ_MASKS' , 'NJ', / ``` ### Step 10: Example of emissions scaling (Reduce the PT_EGU emissions in PA by 25%) (Optional step) edit the DESID chemical control namelist file, note please specify the mechanism or define the MECH environment variable. ``` #gedit CMAQ_Control_DESID_${MECH}.nml gedit CMAQ_Control_DESID_cb6r5_ae7_aq.nml ``` Add the following line at the bottom of the the namelist file (before the /) ``` ! PT_EGU Emissions Scaling reduce PT_EGU emissions in Pennsylvania by 25%. Note, to reduce the emissions by 25% we use DESID to multiply what had been 100% emissions by .75, so that the resulting emissions is reduced by 25%. 'PA' , 'PT_EGU' ,'All' ,'All' ,'All' ,.75 ,'UNIT','o', ``` ### Step 11: Install the CMAQ-DDM-3D reference input and output benchmark data Download the CMAQ two day reference input and output data from the [CMAS Center Data Warehouse Amazon Web Services S3 Bucket](https://cmaq-release-benchmark-data-for-easy-download.s3.amazonaws.com/index.html#v5_5/): CMAQv5.4_2018_12NE3_Benchmark_2Day_Input.tar.gz and output_CCTM_v55_DDM3D_gcc_Bench_2018_12NE3_cb6r5_ae7_aq_m3dry.tar.gz. The CMAQ benchmark test case is a two day simulation for July 1-2 2018 on a 100 column x 105 row x 35 layer 12-km resolution domain over the northeast U.S that uses the cb6r5_ae7_aq mechanism and the m3dry dry deposition scheme. Download and copy the data to `$CMAQ_DATA`. Navigate to the `$CMAQ_DATA` directory, unzip and untar the two day benchmark input and output files: ``` cd $CMAQ_DATA wget https://cmaq-release-benchmark-data-for-easy-download.s3.amazonaws.com/v5_5/CMAQv5.4_2018_12NE3_Benchmark_2Day_Input.tar.gz tar xvzf CMAQv5.4_2018_12NE3_Benchmark_2Day_Input.tar.gz mkdir ref_output cd ref_output wget https://cmaq-release-benchmark-data-for-easy-download.s3.amazonaws.com/v5_5/output_CCTM_v55_DDM3D_gcc_Bench_2018_12NE3_cb6r5_ae7_aq_m3dry.tar.gz tar xvzf output_CCTM_v55_DDM3D_gcc_Bench_2018_12NE3_cb6r5_ae7_aq_m3dry.tar.gz ``` ### Step 12: Review the CMAQ-DDM3D runscript ``` gedit run_cctm_Bench_2018_12NE3_cb6r5_m3dry_ddm.csh ``` Verify General Parameters for Configuring the Simulation ``` set VRSN = v55_DDM3D ``` Verify that script turns on DDM3D, uncomments SEN_INPUT file and sets the number of sensitivity parameter to match the SEN_INPUT ``` setenv CTM_DDM3D Y setenv SEN_INPUT ${WORKDIR}/sensinput.2018_12NE3.dat set NPMAX = 2 # Number of sensitivity parameters defined in SEN_INPUT ``` Run or Submit the script to the batch queueing system ``` ./run_cctm_Bench_2018_12NE3_cb6r5_m3dry_ddm.csh ``` OR (If using SLRUM) ``` sbatch run_cctm_Bench_2018_12NE3_cb6r5_m3dry_ddm.csh ``` ### Step 13: Verify that the run was successful - look for the output directory ``` cd ../../data/2018_12NE3_BENCH/output_CCTM_v55_DDM3D_gcc_Bench_2018_12NE3_cb6r5_ae7_aq_m3dry ``` If the run was successful you will see the following output ``` tail ./LOGS/CTM_LOG_000.v55_DDM3D_gcc_Bench_2018_12NE3_cracmm2_20180702 ``` |>--- PROGRAM COMPLETED SUCCESSFULLY ---<| ### Step 14: Compare output with the 2 day benchmark outputs provided on the CMAS Center AWS Open Data Program Note, the following DDM-3D output files are generated in addition to the standard CMAQ output files. ``` CCTM_SENWDEP_v55_DDM3D_gcc_Bench_2018_12NE3_cb6r5_ae7_aq_m3dry_20180701.nc CCTM_SENDDEP_v55_DDM3D_gcc_Bench_2018_12NE3_cb6r5_ae7_aq_m3dry_20180701.nc CCTM_SENGRID_v55_DDM3D_gcc_Bench_2018_12NE3_cb6r5_ae7_aq_m3dry_20180701.nc ``` ### Step 15: Compare sensitivities First order sensitivities should not be larger than bulk, second order should not be larger than first order. ================================================ FILE: DOCS/Users_Guide/Tutorials/CMAQ_UG_tutorial_HCMAQ_IC_BC.md ================================================ ## CMAQ Tutorial ## ### Create Initial and Boundary Conditions from Seasonal or Daily Average Hemispheric CMAQ Output ### Purpose: This tutorial will step the user through the process of creating initial and boundary conditions from seasonal or daily average hemispheric CMAQ output files distributed through the CMAS Data Warehouse. It assumes that the user already generated MCIP files for their target modeling domain. Download seasonal average H-CMAQ output: https://drive.google.com/file/d/15Vt6f5WuyN8RiLRjTlKeQUHjYbZ6QCrA/view?usp=sharing Download monthly files with daily average H-CMAQ output: https://drive.google.com/drive/folders/1A1ZzJE1t7OgwSezQNvy3rt9aATnXA0k2 ------------ ### STEP 1: Obtain the seasonal or daily average hemispheric CMAQ output files from the CMAS data warehouse **Seasonal average hemispheric CMAQ output** EPA distributes a file containing seasonal average 3D species concentrations from a hemispheric CMAQ simulation performed for 2016 over the northern hemisphere. These simulations were performed with a pre-release version of CMAQv5.3 using the following configuration: - Model version: CMAQv5.3 beta2 (February 2018), including full halogen and DMS chemistry - Grid spacing: 108 x 108 km on a polar stereographic grid covering the northern hemisphere - Vertical layers: 44 - Meteorological fields: WRF3.8 - Chemical mechanism: CB6R3M_AE7_KMTBR - Dry Deposition: M3DRY This file is named CCTM_CONC_v53beta2_intel17.0_HEMIS_cb6r3m_ae7_kmtbr_m3dry_2016_quarterly_av.nc and can be downloaded here https://drive.google.com/file/d/15Vt6f5WuyN8RiLRjTlKeQUHjYbZ6QCrA/view?usp=sharing **Daily average hemispheric CMAQ output** EPA distributes a series of monthly files containing daily average 3D species concentrations from a hemispheric CMAQ simulation performed for 2002 - 2019 over the northern hemisphere as part of the EPA's Air Quality Time Series (EQUATES) Project. These simulations were performed with a modified version of CMAQv5.3.2 using the following configuration: - Model version: CMAQv5.3.2 with modifications to halogen chemistry and O3-PV scaling - Grid spacing: 108 x 108 km on a polar stereographic grid covering the northern hemisphere - Vertical layers: 44 - Meteorological fields: WRF4.1.1 - Chemical mechanism: CB6R3M_AE7_KMTBR - Dry Deposition: M3DRY These files are named CCTM_CONC_v532_intel18.0_CMAQv53_TS_108NHEMI_${YYYY}${MM}_dailyav.nc and can be downloaded here https://drive.google.com/drive/folders/1A1ZzJE1t7OgwSezQNvy3rt9aATnXA0k2 Metadata and DOI for EQUATES data: https://doi.org/10.15139/S3/F2KJSK ### STEP 2 (optional): Time shift the downloaded seasonal or daily average hemispheric CMAQ output files If the time period for which initial and boundary conditions are to be generated does not fall between October 16, 2015 12:00 GMT and January 16, 2017 0:00 GMT when using the seasonal average file or between January 1, 2002 00:00 GMT and December 31, 2019 00:00 GMT when using the daily average files, the time stamps in the downloaded file(s) need to be adjusted to encompass the desired time period. This can be accomplished using a tool like `m3tshift` that is part of the `m3tools` utilities released with [I/O API](https://www.cmascenter.org/ioapi/). The seasonal average concentration file contains six-time stamps (10/16/2015 12:00, 1/16/2016 0:00, 4/16/2016 12:00, 7/17/2016 0:00, 10/16/2016 12:00, and 1/16/2017 0:00) that represent fall, winter, spring, summer, fall, and winter seasonal average values, respectively. Fall was defined as September 1 - November 30, 2016, winter was defined as January 1 - February 29 and December 1 - December 31, 2016, spring was defined as March 1 - May 31, 2016, and summer was defined as June 1- August 31, 2016. Note that the concentration values associated with the first-time stamp are identical to those associated with the fifth time stamp since both represent fall, and the concentration values associated with the second time stamp are identical to those associated with the sixth time stamp since both represent winter. The monthly files with daily average concentrations contain daily (i.e. 24:00 hour) time stamps from 00:00 GMT on the first day of the month to 00:00 GMT on the first day of the following month. For example, the file `CCTM_CONC_v532_intel18.0_CMAQv53_TS_108NHEMI_201006_dailyav.nc` contains 31 time stamps from 6/1/2010 00:00 GMT to 7/1/2010 00:00 GMT with a time step of 24:00 hours. Note that the file for December 2019 only contains 31 time stamps, i.e. it does not contain values for 1/1/2020 00:00 GMT. A sample script using `m3tshift` to shift all of the six-time stamps from the seasonal average concentration file back by two years to support the generation of initial and boundary conditions with ICON and BCON for a modeling period between October 16, 2013 12:00 GMT and January 17, 2015 0:00 GMT is shown below. Analogous scripts could be created to shift the time stamps in one or more of the monthly files with daily average concentrations to the desired time period outside the range covered by these files. ``` #!/bin/csh -f set EXEC = /path/to/m3tshift #> Year to be entirely encompassed by the time stamps in the time-shifted output file set TARGET_YEAR = 2014 #> Path to the seasonal average H-CMAQ file downloaded from the CMAS data warehouse #> This path will also be used to store the time-shifted output file set DATADIR = /path/to/downloaded_data #> Name of the seasonal average H-CMAQ file downloaded from the CMAS data warehouse set AV_CONC_INFILE = CCTM_CONC_v53beta2_intel17.0_HEMIS_cb6r3m_ae7_kmtbr_m3dry_2016_quarterly_av.nc #> Name of the time-shifted seasonal average H-CMAQ file set AV_CONC_OUTFILE = CCTM_CONC_v53beta2_intel17.0_HEMIS_cb6r3m_ae7_kmtbr_m3dry_${TARGET_YEAR}_quarterly_av.nc setenv INFILE ${DATADIR}/${AV_CONC_INFILE} setenv OUTFILE ${DATADIR}/${AV_CONC_OUTFILE} #> Invoke m3shift to shift the time stamps to the target year #> Note that the first time stamp represents the fall of the previous year @ TARGET_YEAR = ${TARGET_YEAR} - 1 ${EXEC} << EOF INFILE 2015289 120000 ${TARGET_YEAR}289 120000 21960000 131760000 OUTFILE EOF ``` ### STEP 3: (optional): Map to a different chemical mechanism If a chemical mechanism other than cb6r3_ae7_aq, cb6r5_ae7_aq, cb6r5_ae7_aqkmt2, or cb6r5m_ae7_aq will be used for the regional-scale CMAQ simulations, the species in the downloaded file need to be mapped to that other chemical mechanism. An example script for using the `combine` program to map from cb6r3m_ae7_kmtbr to racm_ae6_aq, racm2_ae6_aq, saprc07tc_ae6_aq, saprc07tic_ae7i_aq, craccm1_aq, or craccm2 is provided in a directory alongside the BCON and ICON [source code][link_1]. Species definition files used for the mechanism mapping are also provided in that directory. ### STEP 4: Compile the ICON and BCON executables To compile the ICON and BCON executables, run the following commands from the CMAQ home directory: ``` cd $CMAQ_HOME/PREP/icon/scripts ./bldit_icon.csh [compiler] [version] |& tee build_icon.log ``` ``` cd $CMAQ_HOME/PREP/bcon/scripts ./bldit_bcon.csh [compiler] [version] |& tee build_bcon.log ``` ### STEP 5: Run ICON to create initial conditions The run script below uses the [`ICON`][link_2] program to create initial conditions for the user's target domain based on the seasonal average hemispheric CMAQ output obtained in Step 1, optionally time-shifted in Step 2, and optionally mapped to a different mechanism in Step 3. The same script can be used for the monthly files with daily average hemispheric CMAQ output by changing the CTM_CONC_1 and MET_CRO_3D_CRS environment variables to use one of those files instead of the file with the seasonal average output. By setting ICTYPE to regrid, the run script invokes ICON in _regrid_ mode because initial conditions are derived from a CONC file. In the example below, the settings for APPL, GRID_NAME, GRIDDESC, MET_CRO_3D_FIN, and DATE reflect the CMAQ Southeast benchmark case and will need to be modified by the user to point to the corresponding files for their domain and reflect the intended simulation start date. The environment variables CTM_CONC_1 and MET_CRO_3D_CRS should both point to the full path of the file downloaded in Step 1 and optionally time-shifted in Step 2 and/or species-mapped in Step 3. ``` #!/bin/csh -f # ======================= ICONv5.3 Run Script ======================== # Usage: run.icon.csh >&! icon_v53.log & # # To report problems or request help with this script/program: # http://www.cmascenter.org # ==================================================================== # ================================================================== #> Runtime Environment Options # ================================================================== #> Choose compiler and set up CMAQ environment with correct #> libraries using config.cmaq. Options: intel | gcc | pgi setenv compiler intel #> Source the config_cmaq file to set the run environment pushd ../../../ source ./config_cmaq.csh $compiler popd #> Check that CMAQ_DATA is set: if ( ! -e $CMAQ_DATA ) then echo " $CMAQ_DATA path does not exist" exit 1 endif echo " "; echo " Input data path, CMAQ_DATA set to $CMAQ_DATA"; echo " " #> Set General Parameters for Configuring the Simulation set VRSN = v53 #> Code Version set APPL = SE53BENCH #> Application Name set ICTYPE = regrid #> Initial conditions type [profile|regrid] #> Set the working directory: set BLD = ${CMAQ_HOME}/PREP/icon/scripts/BLD_ICON_${VRSN}_${compilerString} set EXEC = ICON_${VRSN}.exe cat $BLD/ICON_${VRSN}.cfg; echo " "; set echo #> Horizontal grid definition setenv GRID_NAME SE53BENCH #> check GRIDDESC file for GRID_NAME options #setenv GRIDDESC ${CMAQ_DATA}/$APPL/met/mcip/GRIDDESC #> grid description file setenv GRIDDESC ${CMAQ_DATA}/SE53BENCH/met/mcip/GRIDDESC setenv IOAPI_ISPH 20 #> GCTP spheroid, use 20 for WRF-based modeling #> I/O Controls setenv IOAPI_LOG_WRITE F #> turn on excess WRITE3 logging [ options: T | F ] setenv IOAPI_OFFSET_64 YES #> support large timestep records (>2GB/timestep record) [ options: YES | NO ] setenv EXECUTION_ID $EXEC #> define the model execution id # ===================================================================== # ICON Configuration Options # # ICON can be run in one of two modes: # 1) use default profile inputs (IC = profile) # 2) regrids CMAQ CTM concentration files (IC = regrid) # ===================================================================== setenv ICON_TYPE ` echo $ICTYPE | tr "[A-Z]" "[a-z]" ` # ===================================================================== #> Input/Output Directories # ===================================================================== set OUTDIR = $CMAQ_HOME/data/icon #> output file directory # ===================================================================== #> Input Files # # Profile Mode (IC = profile) # IC_PROFILE = static/default IC profiles # MET_CRO_3D_FIN = the MET_CRO_3D met file for the target domain # Regrid mode (IC = regrid) (includes nested domains, windowed domains, # or general regridded domains) # CTM_CONC_1 = the CTM concentration file for the coarse domain # MET_CRO_3D_CRS = the MET_CRO_3D met file for the coarse domain # MET_CRO_3D_FIN = the MET_CRO_3D met file for the target nested domain # # NOTE: SDATE (yyyyddd) and STIME (hhmmss) are only relevant to the # regrid mode and if they are not set, these variables will # be set from the input MET_CRO_3D_FIN file # ===================================================================== #> Output File # INIT_CONC_1 = gridded IC file for target domain # ===================================================================== if ( $ICON_TYPE == profile ) then setenv IC_PROFILE $BLD/avprofile_cb6r3m_ae7_kmtbr_hemi2016_v53beta2_m3dry_col051_row068.csv setenv MET_CRO_3D_FIN ${CMAQ_DATA}/SE53BENCH/met/mcip/METCRO3D_160701.nc setenv INIT_CONC_1 "$OUTDIR/ICON_${VRSN}_${APPL}_${ICON_TYPE} -v" endif if ( $ICON_TYPE == regrid ) then setenv CTM_CONC_1 ${DATADIR}/CCTM_CONC_v53beta2_intel17.0_HEMIS_cb6r3m_ae7_kmtbr_m3dry_2016_quarterly_av.nc setenv MET_CRO_3D_CRS ${DATADIR}/CCTM_CONC_v53beta2_intel17.0_HEMIS_cb6r3m_ae7_kmtbr_m3dry_2016_quarterly_av.nc setenv MET_CRO_3D_FIN ${CMAQ_DATA}/SE53BENCH/met/mcip/METCRO3D_160701.nc set DATE = `date -ud "2016-07-01" +%Y%j` #> Convert YYYY-MM-DD to YYYYJJJ # setenv SDATE ${DATE} # setenv STIME 000000 setenv INIT_CONC_1 "$OUTDIR/ICON_${VRSN}_${APPL}_${ICON_TYPE}_${DATE} -v" endif #>- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - if ( ! -d "$OUTDIR" ) mkdir -p $OUTDIR ls -l $BLD/$EXEC; size $BLD/$EXEC unlimit limit #> Executable call: time $BLD/$EXEC exit() ``` ### STEP 6: Run BCON to create boundary conditions The run script below uses the [`BCON`][link_3] program to create boundary conditions for the user's target domain based on the seasonal average hemispheric CMAQ output obtained in Step 1, optionally time-shifted in Step 2, and optionally mapped to a different mechanism in Step 3. The same script can be used for the monthly files with daily average hemispheric CMAQ output by changing the CTM_CONC_1 and MET_CRO_3D_CRS environment variables to use one of those files instead of the file with the seasonal average output. By setting BCTYPE to regrid, the run script invokes BCON in _regrid_ mode because boundary conditions are derived from a CONC file. In the example below, the settings for APPL, GRID_NAME, GRIDDESC, MET_CRO_3D_FIN, and DATE reflect the CMAQ Southeast benchmark case and will need to be modified by the user to point to the corresponding files for their domain and reflect the intended simulation start date. The environment variables CTM_CONC_1 and MET_CRO_3D_CRS should both point to the full path of the file downloaded in Step 1 and optionally time-shifted in Step 2 and/or species-mapped in Step 3. ``` #!/bin/csh -f # ======================= BCONv5.3 Run Script ======================== # Usage: run.bcon.csh >&! bcon_v53.log & # # To report problems or request help with this script/program: # http://www.cmascenter.org # ==================================================================== # ================================================================== #> Runtime Environment Options # ================================================================== #> Choose compiler and set up CMAQ environment with correct #> libraries using config.cmaq. Options: intel | gcc | pgi setenv compiler intel #> Source the config_cmaq file to set the run environment pushd ../../../ source ./config_cmaq.csh $compiler popd #> Check that CMAQ_DATA is set: if ( ! -e $CMAQ_DATA ) then echo " $CMAQ_DATA path does not exist" exit 1 endif echo " "; echo " Input data path, CMAQ_DATA set to $CMAQ_DATA"; echo " " #> Set General Parameters for Configuring the Simulation set VRSN = v53 #> Code Version set APPL = SE53BENCH #> Application Name set BCTYPE = regrid #> Boundary condition type [profile|regrid] #> Set the build directory: set BLD = ${CMAQ_HOME}/PREP/bcon/scripts/BLD_BCON_${VRSN}_${compilerString} set EXEC = BCON_${VRSN}.exe cat $BLD/BCON_${VRSN}.cfg; echo " "; set echo #> Horizontal grid definition setenv GRID_NAME SE53BENCH #> check GRIDDESC file for GRID_NAME options #setenv GRIDDESC $CMAQ_DATA/$APPL/met/mcip/GRIDDESC #> grid description file setenv GRIDDESC /SE53BENCH/met/mcip/GRIDDESC setenv IOAPI_ISPH 20 #> GCTP spheroid, use 20 for WRF-based modeling #> I/O Controls setenv IOAPI_LOG_WRITE F #> turn on excess WRITE3 logging [ options: T | F ] setenv IOAPI_OFFSET_64 YES #> support large timestep records (>2GB/timestep record) [ options: YES | NO ] setenv EXECUTION_ID $EXEC #> define the model execution id # ===================================================================== #> BCON Configuration Options # # BCON can be run in one of two modes: # 1) use default profile inputs (BC type = profile) # 2) regrids CMAQ CTM concentration files (BC = regrid) # ===================================================================== setenv BCON_TYPE ` echo $BCTYPE | tr "[A-Z]" "[a-z]" ` # ===================================================================== #> Input/Output Directories # ===================================================================== set OUTDIR = $CMAQ_HOME/data/bcon #> output file directory # ===================================================================== #> Input Files # # Profile mode (BC type = profile) # BC_PROFILE = static/default BC profiles # MET_BDY_3D_FIN = the MET_BDY_3D met file for the target domain # Regrid mode (BC = regrid) (includes nested domains, windowed domains, # or general regridded domains) # CTM_CONC_1 = the CTM concentration file for the coarse domain # MET_CRO_3D_CRS = the MET_CRO_3D met file for the coarse domain # MET_BDY_3D_FIN = the MET_BDY_3D met file for the target nested domain # # NOTE: SDATE (yyyyddd), STIME (hhmmss) and RUNLEN (hhmmss) are only # relevant to the regrid mode and if they are not set, # these variables will be set from the input MET_BDY_3D_FIN file # ===================================================================== #> Output File # BNDY_CONC_1 = gridded BC file for target domain # ===================================================================== if ( $BCON_TYPE == profile ) then setenv BC_PROFILE $BLD/avprofile_cb6r3m_ae7_kmtbr_hemi2016_v53beta2_m3dry_col051_row068.csv setenv MET_BDY_3D_FIN ${CMAQ_DATA}/SE53BENCH/met/mcip/METBDY3D_160701.nc setenv BNDY_CONC_1 "$OUTDIR/BCON_${VRSN}_${APPL}_${BCON_TYPE} -v" endif if ( $BCON_TYPE == regrid ) then setenv CTM_CONC_1 ${DATADIR}/CCTM_CONC_v53beta2_intel17.0_HEMIS_cb6r3m_ae7_kmtbr_m3dry_2016_quarterly_av.nc setenv MET_CRO_3D_CRS ${DATADIR}/CCTM_CONC_v53beta2_intel17.0_HEMIS_cb6r3m_ae7_kmtbr_m3dry_2016_quarterly_av.nc setenv MET_BDY_3D_FIN ${CMAQ_DATA}/SE53BENCH/met/mcip/METBDY3D_160701.nc set DATE = `date -ud "2016-07-01" +%Y%j` #> Convert YYYY-MM-DD to YYYYJJJ # setenv SDATE ${DATE} # setenv STIME 000000 # setenv RUNLEN 240000 setenv BNDY_CONC_1 "$OUTDIR/BCON_${VRSN}_${APPL}_${BCON_TYPE}_${DATE} -v" endif # ===================================================================== #> Output File # ===================================================================== #>- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - if ( ! -d "$OUTDIR" ) mkdir -p $OUTDIR ls -l $BLD/$EXEC; size $BLD/$EXEC unlimit limit #> Executable call: time $BLD/$EXEC exit() ``` [link_1]: ../../../PREP/bcon/map2mech/ [link_2]: ../../../PREP/icon/ [link_3]: ../../../PREP/bcon [link_1]: https://github.com/USEPA/CMAQ/blob/main/PREP/bcon/map2mech/ [link_2]: https://github.com/USEPA/CMAQ/blob/main/PREP/icon/ [link_3]: https://github.com/USEPA/CMAQ/blob/main/PREP/bcon/ ================================================ FILE: DOCS/Users_Guide/Tutorials/CMAQ_UG_tutorial_ISAM.md ================================================ ## CMAQ-ISAM Benchmark Tutorial ## Procedure to build and run the CMAQ-ISAM model using gnu compiler for the cb6r5_ae7_aq mechanism with the m3dry dry deposition scheme: ### Step 1: Download and run the CMAQv5.5 benchmark case (without ISAM) to confirm that your model run is consistent with the provided benchmark output. - [CMAQ Benchmark Tutorial](CMAQ_UG_tutorial_benchmark.md) If you encounter any errors, try running the model in debug mode and refer to the CMAS User Forum to determine if any issues have been reported. https://forum.cmascenter.org/ ### Step 2: Read the User Guide Chapter on Integrated Source Apportionment Method. - [CMAQ User Guide Chapter on ISAM](../CMAQ_UG_ch11_ISAM.md) Note: This benchmark is intended to demonstrate how to build and run CMAQ-ISAM with the provided input files The following isam control file is provided in the CCTM/scripts directory when you obtain the CMAQv5.5 code from github (step 5 below): ``` cat isam_control.2018_12NE3.txt ``` This file contains the following tag classes ``` TAG NAME |EGU REGION(S) |EVERYWHERE EMIS STREAM(S) |PT_EGU TAG NAME |BIO REGION(S) |NY EMIS STREAM(S) |BIOG ``` The following gridmask file is provided with the benchmark inputs in the 2018_12NE3_BENCH/2018_12NE3 directory (see step 11 below) ``` GRIDMASK_STATES_12NE3.nc ``` Note, all states are listed in the variable list in the header of the file, but the data only contains valid entries for the states in the 12NE3 domain. The instructions require the user to edit the DESID emissions control namelist file and the DESID chemical control namelist file in the BLD directory. If you want to use emission scaling (independently from ISAM or DDM3D) you will also need to edit these files. (see step 10 below). ``` CMAQ_Control_DESID.nml CMAQ_Control_DESID_${MECH}.nml ``` ### Step 3 (optional): choose your compiler, and load it using the module command if it is available on your system ``` module avail ``` ``` module load openmpi_4.0.1/gcc_9.1.0 ``` ### Step 4 (optional): Install I/O API (note, this assumes you have already installed netCDF C and Fortran Libraries) I/O APIv3.2 supports up to MXFILE3=256 open files, each with up to MXVARS3=2048. ISAM applications configured to calculate source attribution of a large number of sources may exceed this upper limit of model variables, leading to a model crash. To avoid this issue, users may use I/O API version 3.2 "large" that increases MXFILE3 to 512 and MXVARS3 to 16384. Instructions to build this version are found in Chapter 3. Note, using this ioapi-large version is NOT REQUIRED for the CMAQ-ISAM Benchmark Case. If a user needs to use these larger setting for MXFILE3 and MXVAR3 to support their application, the memory requirements will be increased. If needed, this version is available as a zip file from the following address: https://www.cmascenter.org/ioapi/download/ioapi-3.2-large-20200828.tar.gz Otherwise, use the I/O API version available here: https://www.cmascenter.org/ioapi/download/ioapi-3.2-20200828.tar.gz ### Step 5: Install CMAQ with ISAM ``` git clone -b main https://github.com/USEPA/CMAQ.git CMAQ_REPO ``` Build and run in a user-specified directory outside of the repository In the top level of CMAQ_REPO, the bldit_project.csh script will automatically replicate the CMAQ folder structure and copy every build and run script out of the repository so that you may modify them freely without version control. Edit bldit_project.csh, to modify the variable $CMAQ_HOME to identify the folder that you would like to install the CMAQ package under. For example: ``` set CMAQ_HOME = [your_install_path]/CMAQ_v5.5 ``` Now execute the script. ``` ./bldit_project.csh ``` Change directories to the CMAQ_HOME directory ``` cd [your_install_path]/CMAQ_v5.5 ``` ### Step 6. Edit the config_cmaq.csh to specify the paths of the ioapi and netCDF libraries ### Step 7: Modify the bldit_cctm.csh to activate ISAM Change directory to CCTM/scripts ``` cd CCTM/scripts cp bldit_cctm.csh bldit_cctm_isam.csh ``` Uncomment the following option to compile CCTM with ISAM (remove the # before set ISAM_CCTM): ``` #> Integrated Source Apportionment Method (ISAM) set ISAM_CCTM #> uncomment to compile CCTM with ISAM activated ``` ### Step 8: Modify the bldit_cctm.csh to specify the cb6r5_ae7_aq mechanism and the m3dry dry deposition scheme and update the BLD directory name. ``` set DepMod = m3dry #> dry deposition scheme (m3dry or stage) setenv Mechanism cb6r5_ae7_aq #> chemical mechanism (see $CMAQ_MODEL/CCTM/src/MECHS) ``` Verify that the bldit_cctm_isam.csh script contains the following lines: (the mechanism and the dry deposition scheme have been added to the BLD directory name): #> Set and create the "BLD" directory for checking out and compiling #> source code. Move current directory to that build directory. ``` if ( $?Debug_CCTM ) then set Bld = $CMAQ_HOME/CCTM/scripts/BLD_CCTM_${VRSN}_${compilerString}_${Mechanism}_${DepMod}_debug else set Bld = $CMAQ_HOME/CCTM/scripts/BLD_CCTM_${VRSN}_${compilerString}_${Mechanism}_${DepMod} endif ``` ### Step 9: Run the bldit_cctm_isam.csh script ``` ./bldit_cctm_isam.csh gcc |& tee bldit_cctm_isam.log ``` ### Step 10: Edit the Emission Control Namelist to recognize the CMAQ_REGIONS file Change directories to the build directory ``` cd BLD_CCTM_v55_ISAM_gcc_cb6r5_ae7_aq_m3dry ``` edit the DESID emissions namelist file ``` gedit CMAQ_Control_DESID.nml ``` Uncomment the line that contains ISAM_REGIONS as the File Label ``` &Desid_RegionDef Desid_Reg_nml = ! Region Label | File_Label | Variable on File 'EVERYWHERE' ,'N/A' ,'N/A', ! 'NY' ,'CMAQ_MASKS', 'NY', ! 'WATER' ,'CMAQ_MASKS' ,'OPEN', ! 'ALL' ,'CMAQ_MASKS' ,'ALL', 'ALL' ,'ISAM_REGIONS','ALL', / ``` ### Step 11: Example of emissions scaling (Reduce the PT_EGU emissions in NY by 25%) (Optional step, described here, but not used) edit the DESID chemical control namelist file, note please specify the mechanism or define the MECH environment variable. ``` gedit CMAQ_Control_DESID_${MECH}.nml ``` Add the following line at the bottom of the the namelist file (before the /) ``` ! PT_EGU Emissions Scaling reduce PT_EGU emissions in NY by 25%. Note, to reduce the emissions by 25% we use DESID to multiply what had been 100% emissions by .75, so that the resulting emissions is reduced by 25%. 'NY' , 'PT_EGU' ,'All' ,'All' ,'All' ,.75 ,'UNIT','o', ``` ### Step 12: Install the CMAQ-ISAM reference input and output benchmark data Download the CMAQ two day reference input and output data from the [CMAS Center Data Warehouse Amazon Web Services S3 Bucket](https://cmaq-release-benchmark-data-for-easy-download.s3.amazonaws.com/index.html#v5_5/): CMAQv5.4_2018_12NE3_Benchmark_2Day_Input.tar.gz and output_CCTM_v55_ISAM_gcc_Bench_2018_12NE3_cracmm2_stage.tar.gz. Download and copy the data to `$CMAQ_DATA`. Navigate to the `$CMAQ_DATA` directory, unzip and untar the two day benchmark input and output files: ``` cd $CMAQ_DATA wget https://cmaq-release-benchmark-data-for-easy-download.s3.amazonaws.com/v5_5/CMAQv5.4_2018_12NE3_Benchmark_2Day_Input.tar.gz tar xvzf CMAQv5.4_2018_12NE3_Benchmark_2Day_Input.tar.gz mkdir ref_output cd ref_output wget https://cmaq-release-benchmark-data-for-easy-download.s3.amazonaws.com/v5_5/output_CCTM_v55_ISAM_gcc_Bench_2018_12NE3_cb6r5_ae7_aq_m3dry.tar.gz tar xzvf output_CCTM_v55_ISAM_gcc_Bench_2018_12NE3_cb6r5_ae7_aq_m3dry.tar.gz ``` The input files for the CMAQv5.4 ISAM benchmark case are the same as the benchmark inputs for the base model. Output source apportionment files associated with the sample isam_control.txt provided in this release package are included in the benchmark outputs for the base model. ### Step 13: Edit the CMAQ-ISAM runscript Note: there is an example of the run script on the AWS S3 bucket. ``` cd CMAQ_v5.5/CCTM/scripts wget https://cmaq-release-benchmark-data-for-easy-download.s3.amazonaws.com/v5_5/ISAM_Benchmark/CCTM/scripts/run_cctm_Bench_2018_12NE3_cb6r5_m3dry_ISAM.csh cat run_cctm_Bench_2018_12NE3_cb6r5_m3dry_ISAM.csh ``` Verify the following settings in the run script for this ISAM benchmark. Verify the General Parameters for Configuring the Simulation ``` set VRSN = v55_ISAM set PROC = mpi #> serial or mpi set MECH = cb6r5_ae7_aq #> Mechanism ID set APPL = Bench_2018_12NE3_${MECH}_m3dry #> Application Name (e.g. Gridname) ``` Verify the Build directory to include the dry deposition mechanism in the name ``` #> Set the build directory (this is where the CMAQ executable #> is located by default). set BLD = ${CMAQ_HOME}/CCTM/scripts/BLD_CCTM_${VRSN}_${compilerString}_${MECH}_m3dry ``` Verify the input data directory ``` #> Set Working, Input, and Output Directories setenv WORKDIR ${CMAQ_HOME}/CCTM/scripts #> Working Directory. Where the runscript is. setenv OUTDIR ${CMAQ_DATA}/output_CCTM_${RUNID} #> Output Directory setenv INPDIR ${CMAQ_DATA}/CMAQv5.4_2018_12NE3_Benchmark_2Day_Input/2018_12NE3 #> Input Directory ``` Verify the start and end dates to match the input data for this benchmark. ``` #> Set Start and End Days for looping setenv NEW_START TRUE #> Set to FALSE for model restart set START_DATE = "2018-07-01" #> beginning date (July 1, 2016) set END_DATE = "2018-07-02" #> ending date (July 2, 2016) ``` Verify that ISAM is turned on and that the SA_IOLIST file and ISAM regions file definitions are uncommented. ``` setenv CTM_ISAM Y setenv SA_IOLIST ${WORKDIR}/isam_control.2018_12NE3.txt setenv ISAM_REGIONS $INPDIR/GRIDMASK_STATES_12NE3.nc ``` Run or Submit the script to the batch queueing system ``` ./run_cctm_Bench_2018_12NE3_cb6r5_m3dry_ISAM.csh ``` OR (If using SLRUM) edit the #SBATCH commands at the top of the script for your machine, then run using ``` sbatch run_cctm_Bench_2018_12NE3_cb6r5_m3dry_ISAM.csh ``` ### Step 14: Verify that the run was successful - look for the output directory ``` cd ../../data/output_CCTM_v55_ISAM_gcc_Bench_2018_12NE3_cb6r5_ae7_aq_m3dry ``` If the run was successful you will see the following output ``` tail ./LOGS/CTM_LOG_000.v55_ISAM_gcc_Bench_2018_12NE3_cb6r5_ae7_aq_m3dry_20180702 ``` |>--- PROGRAM COMPLETED SUCCESSFULLY ---<| ### Step 15: Compare output with the 2 day benchmark outputs provided on the google drive The following ISAM output files are generated in addition to the standard CMAQ output files. Note, the ACONC files created for the benchmark case without ISAM and this run will not be comparible if emission scaling is used (Step 11 - optional), but if emission scaling was not used, the files should be identical. ``` CCTM_SA_CONC_v55_ISAM_gcc_Bench_2018_12NE3_cb6r5_ae7_aq_m3dry_20180702.nc CCTM_SA_WETDEP_v55_ISAM_gcc_Bench_2018_12NE3_cb6r5_ae7_aq_m3dry_20180702.nc CCTM_SA_DRYDEP_v55_ISAM_gcc_Bench_2018_12NE3_cb6r5_ae7_aq_m3dry_20180702.nc CCTM_SA_ACONC_v55_ISAM_gcc_Bench_2018_12NE3_cb6r5_ae7_aq_m3dry_20180702.nc CCTM_SA_CGRID_v55_ISAM_gcc_Bench_2018_12NE3_cb6r5_ae7_aq_m3dry_20180702.nc ``` ### Step 16: Compare the tagged species in `CCTM_SA_ACONC` output file to the species in `CCTM_ACONC` output file ``` ncdump -h CCTM_SA_ACONC_v55_ISAM_gcc_Bench_2018_12NE3_cb6r5_ae7_aq_m3dry_20180701.nc | grep SO2_ ``` The following tagged species should add up to the total SO2 in the CONC file. ``` float SO2_EGU(TSTEP, LAY, ROW, COL) ; SO2_EGU:long_name = "SO2_EGU " ; SO2_EGU:units = "ppmV " ; SO2_EGU:var_desc = "tracer conc. " ; float SO2_BIO(TSTEP, LAY, ROW, COL) ; SO2_BIO:long_name = "SO2_BIO " ; SO2_BIO:units = "ppmV " ; SO2_BIO:var_desc = "tracer conc. " ; float SO2_BCO(TSTEP, LAY, ROW, COL) ; SO2_BCO:long_name = "SO2_BCO " ; SO2_BCO:units = "ppmV " ; SO2_BCO:var_desc = "tracer conc. " ; float SO2_OTH(TSTEP, LAY, ROW, COL) ; SO2_OTH:long_name = "SO2_OTH " ; SO2_OTH:units = "ppmV " ; SO2_OTH:var_desc = "tracer conc. " ; float SO2_ICO(TSTEP, LAY, ROW, COL) ; SO2_ICO:long_name = "SO2_ICO " ; SO2_ICO:units = "ppmV " ; SO2_ICO:var_desc = "tracer conc. ``` The sum of the tagged species in the SA_ACONC file is equal to the species in the ACONC file. ``` SO2_EGU[1] + SO2_BIO[1] + SO2_BCO[1] + SO2_OTH[1] + SO2_ICO[1] = SO2[2] [1] = SA_ACONC [2] = ACONC ``` Both tagged species EGU and BIO contribute to the bulk concentration, therefore the sum of all tagged species including boundary conditions (BCO) and initial conditions (ICO) and other (all untagged emissions) (OTH) ### Step 17: Obtain scripts and species definition files to post process CMAQ-ISAM Note: we will be running each post processing routine twice, once for the tagged species found in the SA_ACONC, SA_DRYDEP, and SA_WETDEP output files, and again for the untagged species found in ACONC and the DRYDEP, WETDEP files. This will allow us to confirm that the sum of the tagged species is equal to the untagged species. Example species definition file and combine run script are provided to help users post-process the CMAQ-ISAM output to aggregate output from the SA_ACONC, SA_DRYDEP, and SA_WETDEP files. Download the run script and species definition files for this case from the AWS S3 Bucket. ``` cd CMAQ_v5.5/POST/combine/scripts wget https://cmaq-release-benchmark-data-for-easy-download.s3.amazonaws.com/v5_5/ISAM_Benchmark/POST/combine/scripts/run_combine_ISAM_aconc+dep_example_cb6r5_ae7_aq_12ne3_benchmark.csh wget https://cmaq-release-benchmark-data-for-easy-download.s3.amazonaws.com/v5_5/ISAM_Benchmark/POST/combine/scripts/run_combine_ISAM_sa_aconc+sa_dep_example_cb6r5_ae7_aq_12ne3_benchmark.csh wget https://cmaq-release-benchmark-data-for-easy-download.s3.amazonaws.com/v5_5/ISAM_Benchmark/POST/combine/scripts/SpecDef_ISAM_Conc_benchmark_cb6r5_ae7_aq.txt wget https://cmaq-release-benchmark-data-for-easy-download.s3.amazonaws.com/v5_5/ISAM_Benchmark/POST/combine/scripts/SpecDef_ISAM_Dep_benchmark_cb6r5_ae7_aq.txt ``` List the files after they have been downloaded ``` ls -lrt ``` Output ``` SpecDef_ISAM_Conc_benchmark_cb6r5_ae7_aq.txt SpecDef_ISAM_Dep_benchmark_cb6r5_ae7_aq.txt run_combine_ISAM_sa_aconc+sa_dep_example_cb6r5_ae7_aq_12ne3_benchmark.csh run_combine_ISAM_aconc+dep_example_cb6r5_ae7_aq_12ne3_benchmark.csh ``` ### Step 18: Build and run combine Build the combine executable ``` cd CMAQ_v5.5/POST/combine/scripts ./bldit_combine.csh gcc |& tee ./bldit_combine.log ``` Run combine to create a file with all hours for the time period of your ISAM simulation for each tagged aggregate species in the SA_ACONC output file and for another file with all hours of the time period in your ISAM simulation for the SA_DRYDEP and SA_WETDEP output files. ``` ./run_combine_ISAM_sa_aconc+sa_dep_example_cb6r5_ae7_aq_12ne3_benchmark.csh gcc |& tee ./run_combine_ISAM_sa_aconc+sa_dep_example_cb6r5_ae7_aq_12ne3_benchmark.log ``` Run combine to create a file with all hours for the time period of your ISAM simulation for each aggregate species in the ACONC output file and for another file with all hours of the time period in your ISAM simulation for the DRYDEP and WETDEP output files. ``` ./run_combine_ISAM_aconc+dep_example_cb6r5_ae7_aq_12ne3_benchmark.csh |& tee ./run_combine_ISAM_aconc+dep_example_cb6r5_ae7_aq_12ne3_benchmark.log ``` Examine the output files ``` ls -lrt ../../../data/output_CCTM_v55_ISAM_gcc_Bench_2018_12NE3_cb6r5_ae7_aq_m3dry/POST ``` You should see that four output files were created: ``` -rw-rw-r-- 1 lizadams rc_cep-emc_psx 223856976 Sep 26 15:32 COMBINE_ACONC_v55_ISAM_gcc_Bench_2018_12NE3_cb6r5_ae7_aq_m3dry_201807.nc -rw-rw-r-- 1 lizadams rc_cep-emc_psx 223857340 Sep 26 15:33 COMBINE_DEP_v55_ISAM_gcc_Bench_2018_12NE3_cb6r5_ae7_aq_m3dry_201807.nc -rw-rw-r-- 1 lizadams rc_cep-emc_psx 393254448 Sep 26 15:33 COMBINE_SA_ACONC_v55_ISAM_gcc_Bench_2018_12NE3_cb6r5_ae7_aq_m3dry_201807.nc -rw-rw-r-- 1 lizadams rc_cep-emc_psx 526353656 Sep 26 15:34 COMBINE_SA_DEP_v55_ISAM_gcc_Bench_2018_12NE3_cb6r5_ae7_aq_m3dry_201807.nc ``` ### Step 19: Review the species definition files for the ISAM run. The species definition file calculates each of the tagged aggregate species. To see each tagged species definition for NOX, where NOX = NO + NO2, use the following grep command:. ``` grep NOX_ SpecDef_ISAM_Conc_benchmark_cb6r5_ae7_aq.txt ``` Output: ``` NOX_EGU ,ppbV ,1000.0*(NO_EGU[1] + NO2_EGU[1]) NOX_BIO ,ppbV ,1000.0*(NO_BIO[1] + NO2_BIO[1]) NOX_BCO ,ppbV ,1000.0*(NO_BCO[1] + NO2_BCO[1]) NOX_ICO ,ppbV ,1000.0*(NO_ICO[1] + NO2_ICO[1]) NOX_OTH ,ppbV ,1000.0*(NO_OTH[1] + NO2_OTH[1]) ``` ### Step 20: Build and run calc_tmetric to calculate the average of all tagged species, and the average of all species for your ISAM run. Build the calc_tmetric executable ``` cd CMAQ_v5.5/POST/calc_tmetric/scripts ./bldit_calc_tmetric.csh gcc |& tee ./bldit_calc_tmetric.log ``` Download the run scripts for calc_tmetric for the ISAM run and copy them to the calc_tmetric/scripts directory.. ``` cd CMAQ_v5.5/POST/calc_tmetric/scripts wget https://cmaq-release-benchmark-data-for-easy-download.s3.amazonaws.com/v5_5/ISAM_Benchmark/POST/calc_tmetric/scripts/run_calc_tmetric_ISAM_aconc.csh wget https://cmaq-release-benchmark-data-for-easy-download.s3.amazonaws.com/v5_5/ISAM_Benchmark/POST/calc_tmetric/scripts/run_calc_tmetric_ISAM_sa_aconc.csh ``` Run the calc_tmetric scripts ``` ./run_calc_tmetric_ISAM_sa_aconc.csh gcc |& tee ./run_calc_tmetric_ISAM_sa_aconc.log ./run_calc_tmetric_ISAM_aconc.csh gcc |& tee ./run_calc_tmetric_ISAM_aconc.log ``` ### Step 21: Build and run hr2day to calculate the daily average concentration for each tagged and aggregated species. Build the hr2day executable ``` cd CMAQ_v5.5/POST/hr2day/scripts ./bldit_hr2day.csh gcc |& tee ./bldit_hr2day.log ``` Download the run scripts for hr2day for the ISAM run ``` cd CMAQ_v5.5/POST/hr2day/scripts wget https://cmaq-release-benchmark-data-for-easy-download.s3.amazonaws.com/v5_5/ISAM_Benchmark/POST/hr2day/scripts/run_hr2day_ISAM_aconc.csh wget https://cmaq-release-benchmark-data-for-easy-download.s3.amazonaws.com/v5_5/ISAM_Benchmark/POST/hr2day/scripts/run_hr2day_ISAM_sa_aconc.csh ``` Run hr2day for both the SA_ACONC and ACONC file ``` ./run_hr2day_ISAM_sa_aconc.csh gcc |& tee ./run_hr2day_ISAM_sa_aconc.log ./run_hr2day_ISAM_aconc.csh gcc |& tee ./run_hr2day_ISAM_aconc.log ``` Note, there are HR2DAY configuration options that were modified from the default settings, as this ISAM benchmark contains only two days of output, so it does not make sense to use the option to change from GMT time to local time, which is typically done to compare to observational data. The output data is set to be saved under the ISAM output directory. ``` cd CMAQ_v5.5/data/output_CCTM_v55_ISAM_gcc_Bench_2018_12NE3_cb6r5_ae7_aq_m3dry/POST ls -lrt ``` List of POST Output files: ``` -rw-rw-r-- 1 lizadams rc_cep-emc_psx 223856976 Sep 26 15:32 COMBINE_ACONC_v55_ISAM_gcc_Bench_2018_12NE3_cb6r5_ae7_aq_m3dry_201807.nc -rw-rw-r-- 1 lizadams rc_cep-emc_psx 223857340 Sep 26 15:33 COMBINE_DEP_v55_ISAM_gcc_Bench_2018_12NE3_cb6r5_ae7_aq_m3dry_201807.nc -rw-rw-r-- 1 lizadams rc_cep-emc_psx 393254448 Sep 26 15:33 COMBINE_SA_ACONC_v55_ISAM_gcc_Bench_2018_12NE3_cb6r5_ae7_aq_m3dry_201807.nc -rw-rw-r-- 1 lizadams rc_cep-emc_psx 526353656 Sep 26 15:34 COMBINE_SA_DEP_v55_ISAM_gcc_Bench_2018_12NE3_cb6r5_ae7_aq_m3dry_201807.nc -rw-rw-r-- 1 lizadams rc_cep-emc_psx 8251888 Sep 27 14:07 AVG_COMBINE_SA_ACONC_v55_ISAM_gcc_Bench_2018_12NE3_cb6r5_ae7_aq_m3dry.nc -rw-rw-r-- 1 lizadams rc_cep-emc_psx 432268 Sep 27 14:13 dailyavg_SA_ACONC_v55_ISAM_gcc_Bench_2018_12NE3_cb6r5_ae7_aq_m3dry_201807.nc -rw-rw-r-- 1 lizadams rc_cep-emc_psx 95208 Sep 27 14:14 dailyavg_ACONC_v55_ISAM_gcc_Bench_2018_12NE3_cb6r5_ae7_aq_m3dry.nc ``` VERDI can be used to compare the aggregated species in ACONC to the sum of the tagged aggregated species in the SA_ACONC file. ``` cd CMAQ_v5.5/data/output_CCTM_v55_ISAM_gcc_Bench_2018_12NE3_cb6r5_ae7_aq_m3dry/POST verdi -f $cwd/COMBINE_ACONC_v55_ISAM_gcc_Bench_2018_12NE3_cb6r5_ae7_aq_m3dry_201807.nc -f $cwd/COMBINE_SA_ACONC_v55_ISAM_gcc_Bench_2018_12NE3_cb6r5_ae7_aq_m3dry_201807.nc -s "NOX[1]" -g tile -s "NOX_EGU[2]+NOX_BIO[2]+NOX_BCO[2]+NOX_ICO[2]+NOX_OTH[2]" -g tile ``` Note, the min and max of the two tile plots should be identical. The difference can also be calculated to verify that they are only different by numerical roundoff. ``` verdi -f $cwd/COMBINE_ACONC_v55_ISAM_gcc_Bench_2018_12NE3_cb6r5_ae7_aq_m3dry_201807.nc -f $cwd/COMBINE_SA_ACONC_v55_ISAM_gcc_Bench_2018_12NE3_cb6r5_ae7_aq_m3dry_201807.nc -s "NOX[1] - (NOX_EGU[2]+NOX_BIO[2]+NOX_BCO[2]+NOX_ICO[2]+NOX_OTH[2])" -g tile ``` VERDI can also be used to confirm that the average concentration of the aggregated species is equal to the sum of the tagged aggregated species, please note that this average is taken over two days, as the ISAM benchmark ran for two days, and two days were available in the combine output file. ``` verdi -f $cwd/AVG_COMBINE_ACONC_v55_ISAM_gcc_Bench_2018_12NE3_cb6r5_ae7_aq_m3dry.nc -f $cwd/AVG_COMBINE_SA_ACONC_v55_ISAM_gcc_Bench_2018_12NE3_cb6r5_ae7_aq_m3dry.nc -s "NOX[1]" -g tile -s "NOX_EGU_AVG[2]+NOX_BIO_AVG[2]+NOX_BCO_AVG[2]+NOX_ICO_AVG[2]+NOX_OTH_AVG[2]" -g tile ``` VERDI can also be used to confirm that the daily average concentration of the aggregated species is equal to the sum of the tagged aggregated species. Note, that there are two timesteps in each daily average file, one containing the average for day 1 and one containing the average for day 2 ``` verdi -f $cwd/dailyavg_ACONC_v55_ISAM_gcc_Bench_2018_12NE3_cb6r5_ae7_aq_m3dry_201807.nc -f $cwd/dailyavg_SA_ACONC_v55_ISAM_gcc_Bench_2018_12NE3_cb6r5_ae7_aq_m3dry_201807.nc -s "NOX[1]" -g tile -s "NOX_EGU[2]+NOX_BIO[2]+NOX_BCO[2]+NOX_ICO[2]+NOX_OTH[2]" -g tile ``` ================================================ FILE: DOCS/Users_Guide/Tutorials/CMAQ_UG_tutorial_MPAS-CMAQ_Benchmark_gcc.md ================================================ # MPAS-CMAQ Benchmarking Tutorial # **Purpose**: This guide describes how to install and run the MPAS-CMAQ test case, which serves two different purposes. The first being to familiarize the user with the MPAS-CMAQ suite of programs and how they work together, and secondly to verify the installation of the software on your system via benchmarking. Users are highly encouraged to work through the [MPAS-CMAQ User Guide][link_MPAS_PDF] and the [MPAS-CMAQ Chapter within the CMAQ User Guide](../CMAQ_UG_ch14_MPAS-CMAQ.md) to familiarize themselves with the individuals program components. The following support software are required for compiling and running MPAS-CMAQ. 1. Fortran and C compilers, e.g., [Intel](https://software.intel.com/en-us/fortran-compilers), [Portland Group](http://www.pgroup.com), [Gnu](https://gcc.gnu.org/wiki/GFortran) 2. [Git](https://git-scm.com/book/en/v2/Getting-Started-Installing-Git) 3. Message Passing Interface (MPI), e.g., [OpenMPI](https://www.open-mpi.org) or [MVAPICH2](http://www.mcs.anl.gov/research/projects/mpich2). 4. Zlib, Curl, HDF5, 3. Parallel-netCDF, netCDF (C library), netCDF (Fortran interface library), sources for these libraries are obtained from http://www2.mmm.ucar.edu/people/duda/files/mpas/sources/ 5. Information about latest release of [netCDF-C](https://docs.unidata.ucar.edu/netcdf-c/current/) and [netCDF-Fortran](https://docs.unidata.ucar.edu/netcdf-fortran/current/) 6. Parallel I/O Library (PIO) https://github.com/NCAR/ParallelIO 7. [C-Shell](https://github.com/tcsh-org/tcsh) 8. Environment Modules https://modules.sourceforge.net/ **Note: To install the above libraries, please edit and use the following install scripts, depending on what compiler type and version you have on your system.** Library install scripts are available for the following compiler versions, but this tutorial uses the compiler version gcc-11.4.1: ``` gcc-9.1 gcc-11.4.1 ifort-18.0.2 ifort-2024 ``` Using environment modules, it is possible to use multiple compilers and compiler versions to compile the libraries and then MPAS-CMAQ. The suggested hardware requirements for running the CMAQ-MPAS 120km Uniform Grid Benchmark case on a Linux workstation are: 1. Linux environment with a 32 processors 2. 16 GB RAM 3. 400 GB hard drive storage ## Install the MPAS-CMAQ I/O Libraries using the GCC 11.4.1 compiler Load the environment modules for gcc and openmpi ``` module load openmpi_5.0.5/gcc_11.4.1 ``` **Create directory for libraries** ``` #change directories to the location where you would like to install MPAS-CMAQ mkdir -p $cwd/MPAS-CMAQ/build/LIBRARIES_gcc11.4.1 cd $cwd/MPAS-CMAQ/build/LIBRARIES_gcc11.4.1 ``` **Obtain and run libraries install script** ``` wget https://github.com/USEPA/CMAQ/blob/main/DOCS/Users_Guide/Tutorials/scripts/mpas-cmaq_libraries/iolib_installation_gcc11.4.1.sh # change permission of the script so that it can be executed chmod 755 iolib_installation_gcc11.4.1.sh # run the library installation script ./iolib_installation_gcc11.4.1.sh |& tee ./iolib_installation_gcc11.4.1.log ``` **Review the log file to verify that the libraries were installed successfully** ``` grep -i error iolib_installation_gcc11.4.1.log ``` **Verify the libraries are installed** ``` ls lib/* lib/libcurl.a lib/libcurl.so.4 lib/libhdf5_hl.a lib/libhdf5.settings lib/libnetcdff.la lib/libpioc.a lib/libpnetcdf.a lib/libpnetcdf.so.6 lib/libcurl.la lib/libcurl.so.4.8.0 lib/libhdf5_hl.la lib/libnetcdf.a lib/libnetcdf.la lib/libpiof.a lib/libpnetcdf.la lib/libpnetcdf.so.6.0.0 lib/libcurl.so lib/libhdf5.a lib/libhdf5.la lib/libnetcdff.a lib/libnetcdf.settings lib/libpio.settings lib/libpnetcdf.so lib/libz.a ``` ## Configure Private Environment Modules ``` mkdir -p $cwd/Modules/modulefiles/mpas-cmaq-iolib ``` Edit the module name file to specify the PATH and LD_LIBARY_PATH. Next, create the module file and save it to the mpas-cmaq-iolib directory Example: ``` vi gcc-11.4.1 # add the following contents to the gcc-11.4.1 file, and edit the basedir to specify your local directory path #%Module proc ModulesHelp { } { puts stderr "This module adds mpas-cmaq-iolib/gcc-11.4.1 to your path" } module-whatis "This module adds mpas-cmaq-iolib/gcc-11.4.1 to your path\n" set basedir "/work/users/l/i/lizadams/MPAS-CMAQ/build/LIBRARIES_gcc11.4.1/" prepend-path PATH "${basedir}/bin" prepend-path LD_LIBRARY_PATH "${basedir}/lib" module load openmpi_5.0.5/gcc_11.4.1 ``` Add the following command to your .cshrc, then logout and log back in. ``` module use --append /work/users/l/i/lizadams/MPAS-CMAQ/build/Modules/modulefiles ``` **Load Private Environment Modules** ``` ## check that your private module can be found module list ## load the private module module load mpas-cmaq-iolib/gcc-11.4.1 ## verify the module was loaded module list ``` ## Build MPAS-CMAQ These instructions follow the [MPAS-CMAQ User Manual](https://github.com/USEPA/CMAQ/blob/MPAS-CMAQ/DOCS/Users_Guide/PDF/MPAS-CMAQ.pdf) ### Clone the MPAS-CMAQ Branch ``` mkdir MPAS-CMAQ cd MPAS-CMAQ git clone -b MPAS_CMAQ https://github.com/USEPA/CMAQ.git CMAQ_REPO ``` **Building and running in a user-specified directory outside of the repository** In the top level of CMAQ_REPO, the bldit_project.csh script will automatically replicate the CMAQ folder structure and copy every build and run script out of the repository so that you may modify them freely without version control. In bldit_project.csh, modify the variable $CMAQ_HOME to identify the folder that you would like to install the CMAQ package under. For example: ``` set CMAQ_HOME = [your_install_path]/MPAS-CMAQ/CMAQ_5.5 ``` Now execute the script. ``` ./bldit_project.csh ``` ### Configure the MPAS-CMAQ Build Environment ``` cd [your_install_path]/MPAS-CMAQ/CMAQ_5.5/CCTM/scripts # note that the following environment variable has been uncommented in the bldit_cctm.csh: set build_mpas_cmaq ./bldit_cctm.csh gcc |& tee ./bldit_cctm.log ``` **Review Makefile created for MPAS-CMAQ** Note that the config_cmaq.csh compiler settings are not utilized in the Makefile that is created by running the bldit_cctm.csh script. ``` cd BLD_CCTM_v55_gcc_cracmm2_m3dry vi Makefile.mpas_cmaq ``` Successful execution of this script creates a BLD* directory with CMAQ code and a Makefile. The CMAQ code is now ready to be compiled as part of the MPAS model. If this step fails, please reach post on the [CMAS Forum](https://forum.cmascenter.org/c/wrf-cmaq). **Change directories to the top level MPAS-CMAQ directory** ``` cd /your-path/MPAS-CMAQ ``` ### Download MPAS ``` git clone -b MPAS7.0 git@github.com:USEPA/MPAS.git MPAS cd MPAS ``` **Copy the CMAQ build directory from the previous section to the MPAS src/core atmosphere directory and re-name it "cmaq."** ``` cp -rp ../CMAQ_5.5/CCTM/scripts/BLD_CCTM_v55_gcc_cracmm2_m3dry/ ./src/core_atmosphere/cmaq ``` ### Compile MPAS-CMAQ ``` # return to the top level MPAS directory cd ../MPAS # compile MPAS with CMAQ code make gfortran CORE=atmosphere USE_PIO2=true ``` ### Examine the error message ``` ************ ERROR ************ Failed to compile a PIO test program Please ensure the PIO environment variable is set to the PIO installation directory ************ ERROR ************ make[1]: *** [Makefile:747: pio_test] Error 1 make[1]: Leaving directory '/work/users/l/i/lizadams/MPAS-CMAQ/MPAS' make: *** [Makefile:214: gfortran] Error 2 ``` **Recommend commending out -lpio from the Makefile at line 462 and setting the PIO environment variable** ``` vi Makfile # comment out -lpio, as we only have -lpiof and -lpioc # LIBS += -lpio ``` Set the following environment variable to allow the pio libraries to be found ``` setenv PIO /work/users/l/i/lizadams/MPAS-CMAQ/build/LIBRARIES_gcc11.4.1/ ``` **Recompile MPAS** ``` make gfortran CORE=atmosphere USE_PIO2=true ``` **Examine the log for additional errors** ``` *** No compatible version of WRF physics tables found; attempting to download compatible tables *** /usr/bin/git *** Trying git to obtain WRF physics tables *** Cloning into 'MPAS-Data'... fatal: unable to connect to github.com: ``` Need to use ssh instead of https, follow these instructions to obtain the required files: ``` cd MPAS/src/core_atmosphere/physics/physics_wrf/files git clone --branch v7.0 -n --depth=1 --filter=tree:0 ssh://github.com/MPAS-Dev/MPAS-Data cd MPAS-Data git sparse-checkout set --no-cone /atmosphere/physics_wrf/files git checkout mv atmosphere/physics_wrf/files/* ../ ``` Now the files should be available and the using VERSION number 7.0, so recompile MPAS-CMAQ ``` make gfortran CORE=atmosphere USE_PIO2=true ``` ## next error gfortran: error: unrecognized command-line option ‘-traceback’ ``` #Edit the Makefile in the physics directory vi /work/users/l/i/lizadams/MPAS-CMAQ/MPAS/src/core_atmosphere/physics/Makefile #replace -traceback with -fbacktrace ``` **Recompile** ``` make gfortran CORE=atmosphere USE_PIO2=true ``` **Another error** ``` Error: BOZ literal constant at (1) is neither a data-stmt-constant nor an actual argument to INT, REAL, DBLE, or CMPLX intrinsic function [see ‘-fno-allow-invalid-boz’] ``` Edit the Makefile to add the option -fallow-invalid-boz ``` vi MPAS/Makefile #add the following option -fallow-invalid-boz "FFLAGS_OPT = -O3 -m64 -ffree-line-length-none -fconvert=big-endian -ffree-form -fallow-invalid-boz -fallow-argument-mismatch" ``` **Another error** ``` module_sf_pxlsm.F:430:34: 430 | READ(ANAL_INTERVALC(1:2),'(i)') HH | 1 Error: Nonnegative width required in format string at (1) module_sf_pxlsm.F:431:34: 431 | READ(ANAL_INTERVALC(4:5),'(i)') MM | 1 Error: Nonnegative width required in format string at (1) module_sf_pxlsm.F:432:34: 432 | READ(ANAL_INTERVALC(7:8),'(i)') SS | 1 Error: Nonnegative width required in format string at (1) ``` **change the format i to i2:** ``` ! New MPAS Code. Convert MPAS Char string of soilndg interval to READ(ANAL_INTERVALC(1:2),'(i2)') HH READ(ANAL_INTERVALC(4:5),'(i2)') MM READ(ANAL_INTERVALC(7:8),'(i2)') SS ANAL_INTERVAL = (HH * 3600) + (MM * 60) + (SS) ``` see https://stackoverflow.com/questions/11037954/error-nonnegative-width-required-in-format-string-at-1 **Error** ``` mio_gather_data_mod.F90:1100:34: 1080 | call mpi_recv (who, 1, mpi_integer, mpi_any_source, & | 2 ...... 1100 | call mpi_recv (recv_buf, recv_size, mpi_int, who, & | 1 Error: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1) ``` ``` # add the following option to the makefile -fallow-argument-mismatch cd ./src/core_atmosphere/cmaq/ vi Makefile FSTD = -O3 -funroll-loops -finit-character=32 -Wtabs -Wsurprising -ftree-vectorize -ftree-loop-if-convert -finline-limit=512 -fallow-argument-mismatch DBG = -Wall -O0 -g -fcheck=all -ffpe-trap=invalid,zero,overflow -fbacktrace -fallow-argument-mismatch ``` **Error** ``` mpif90 -O3 -m64 -o atmosphere_model driver/*.o -L. -ldycore -lops -lframework -L/work/users/l/i/lizadams/MPAS-CMAQ/build/LIBRARIES_gcc11.4.1//lib -lpiof -lpioc -I./external/esmf_time_f90 -L./external/esmf_time_f90 -lesmf_time /usr/bin/ld: ./libdycore.a(mio_fcreate_mod.o): in function `__mio_fcreate_module_MOD_mio_fcreate': mio_fcreate_mod.F90:(.text+0x240d): undefined reference to `__netcdf_MOD_nf90_create' /usr/bin/ld: mio_fcreate_mod.F90:(.text+0x2549): undefined reference to `__netcdf_MOD_nf90_strerror' ``` Add the missing libraries to the end of the link statement: ``` cd MPAS/src vi Makefile add the following libraries to the end of the compile command (need to figure out where to add these options to the Makefile) -lnetcdf -lnetcdff -lhdf5_hl -lhdf5 -ll:libz.a -lpnetcdf -lnetcdf ``` ### Verify that you have created the executable ``` ls -rlt atmosphere_model -rwxrwxr-x 1 lizadams rc_cep-emc_psx 157259272 Jan 30 18:37 atmosphere_model ``` ### Install the MPAS-CMAQ input data Use the AWS command line to download data from the following s3 bucket: MPAS-CMAQ S3 Bucket ``` cd /your-path/MPAS-CMAQ # note remove the --dryrun command from the following line after you have tested the following script aws s3 --no-sign-request cp --recursive --region=us-east-1 --dryrun s3://mpas-cmaq/120_uniform ./120_uniform # This will obtain both the mpas_inputs and cmas_inputs folders ``` The input files for the MPAS-CMAQ benchmark case are provided in the 120_uniform directory . Output MPAS-CMAQ files associated with the sample run script for the coupled MPAS-CMAQ model in this release package are also available. ### Link input files It may be helpful aggregate all input  les into a common directory by linking to their full paths. mkdir links ``` cd links ln -s [full/path/to/mpas_inputs/*] . ln -s [full/path/to/cmaq_inputs/emissions/one_day/*] . ln -s [full/path/to//cmaq_inputs/other/*] . ``` ### Run MPAS-CMAQ One sample run scripts is provided (MPAS/run/run.csh) Edit the slurm optins for your machine Edit the run script ``` cd MPAS/run/ vi run.csh ``` Change end date to run for two days ``` set START_DATE = "2017-01-01" #> beginning date (Jan 1, 2017) set END_DATE = "2017-01-02" #> ending date (Jan 2, 2017) ``` Modify the following section to specify your local paths: ``` set input_path = /your-path/MPAS-CMAQ/MPAS/links set MPAS_path_output = /your-path/MPAS-CMAQ/MPAS/output_retest ``` Set the number of processors to run MPAS-CMAQ ``` setenv NPROCS 24 ``` Load the environment modules ``` module load openmpi_5.0.5/gcc_11.4.1 mpas-cmaq-iolib/gcc-11.4.1 ``` Submit the job to the slurm queue ``` sbatch run.csh ``` ### Verify that the run was successful - look for the output directory ``` cd ../output ``` If the run was successful you will see the following output, with the log files saved in the 20170101 directory ``` -rw-rw-r-- 1 lizadams rc_cep-emc_psx 2917 Nov 20 04:33 namelist.atmosphere -rw-rw-r-- 1 lizadams rc_cep-emc_psx 87014088 Nov 20 05:00 diag.2017-01-01.nc -rw-rw-r-- 1 lizadams rc_cep-emc_psx 56977988792 Nov 20 05:07 history.2017-01-01.nc -rw-rw-r-- 1 lizadams rc_cep-emc_psx 554322016 Nov 20 05:07 CCTM_EMIS_DIAG_20170101.nc -rw-rw-r-- 1 lizadams rc_cep-emc_psx 527939604 Nov 20 05:07 CCTM_OUT20170101.nc -rw-rw-r-- 1 lizadams rc_cep-emc_psx 40311788 Nov 20 05:07 CCTM_SOILOUT_20170101.nc -rw-rw-r-- 1 lizadams rc_cep-emc_psx 31299892 Nov 20 05:07 CCTM_BDSNPOUT_20170101.nc -rw-rw-r-- 1 lizadams rc_cep-emc_psx 199418764 Nov 20 05:08 CCTM_BDSNPDIAG_20170101.nc -rw-rw-r-- 1 lizadams rc_cep-emc_psx 6613956148 Nov 20 05:09 restart.2017-01-02_00.00.00.nc -rw-rw-r-- 1 lizadams rc_cep-emc_psx 2529702504 Nov 20 05:09 history.2017-01-02.nc -rw-rw-r-- 1 lizadams rc_cep-emc_psx 29011864 Nov 20 05:09 diag.2017-01-02.nc -rw-rw-r-- 1 lizadams rc_cep-emc_psx 21 Nov 20 05:09 restart_timestamp -rw-rw-r-- 1 lizadams rc_cep-emc_psx 2385 Nov 20 05:09 CCTM_BUDGET_APPL.txt drwxrwxr-x 2 lizadams rc_cep-emc_psx 8393 Nov 20 05:09 20170101 ``` ``` cd MPAS-CMAQ/MPAS/output_288_36x8/20170101 tail -n 5 CTM_LOG_000 After NEXTIME: returned JDATE, JTIME 2017001 235230 Master Time Step Processing completed... 3.8486 seconds ``` ``` tail -n 8 log.atmosphere.0000.out ----------------------------------------- Total log messages printed: Output messages = 57411 Warning messages = 197 Error messages = 0 Critical error messages = 0 ----------------------------------------- Logging complete. Closing file at 2024/11/20 05:09:20 ``` ### Compare the output Download data from s3 bucket to and compare to your results. ``` cd $CMAQ_DATA wget https://mpas-cmaq.s3.amazonaws.com/output/MPAS-CMAQ.120km_uniform_grid_gcc_output_288_36x8.tar.gz tar xvzf MPAS-CMAQ.120km_uniform_grid_gcc_output_288_36x8.tar.gz ``` [link_MPAS_PDF]: https://github.com/USEPA/CMAQ/blob/MPAS_CMAQ/DOCS/Users_Guide/PDF/MPAS_CMAQ_guide.pdf [link_MPAS_PDF]: https://github.com/USEPA/CMAQ/blob/MPAS_CMAQ/DOCS/Users_Guide/PDF/MPAS_CMAQ_guide.pdf ================================================ FILE: DOCS/Users_Guide/Tutorials/CMAQ_UG_tutorial_MPAS-CMAQ_Benchmark_intel.md ================================================ # MPAS-CMAQ Benchmarking Tutorial # **Purpose**: This guide describes how to install and run the MPAS-CMAQ test case, which serves two different purposes. The first being to familiarize the user with the MPAS-CMAQ suite of programs and how they work together, and secondly to verify the installation of the software on your system via benchmarking. Users are highly encouraged to work through the [MPAS-CMAQ User Guide][link_MPAS_PDF] and the [MPAS-CMAQ Chapter within the CMAQ User Guide](../CMAQ_UG_ch14_MPAS-CMAQ.md) to familiarize themselves with the individuals program components. The following support software are required for compiling and running MPAS-CMAQ. 1. Fortran and C compilers, e.g., [Intel](https://software.intel.com/en-us/fortran-compilers), [Portland Group](http://www.pgroup.com), [Gnu](https://gcc.gnu.org/wiki/GFortran) 2. [Git](https://git-scm.com/book/en/v2/Getting-Started-Installing-Git) 3. Message Passing Interface (MPI), e.g., [OpenMPI](https://www.open-mpi.org) or [MVAPICH2](http://www.mcs.anl.gov/research/projects/mpich2). 4. Zlib, Curl, HDF5, 3. Parallel-netCDF, netCDF (C library), netCDF (Fortran interface library), sources for these libraries are obtained from http://www2.mmm.ucar.edu/people/duda/files/mpas/sources/ 5. Information about latest release of [netCDF-C](https://docs.unidata.ucar.edu/netcdf-c/current/) and [netCDF-Fortran](https://docs.unidata.ucar.edu/netcdf-fortran/current/) 6. Parallel I/O Library (PIO) https://github.com/NCAR/ParallelIO 7. [C-Shell](https://github.com/tcsh-org/tcsh) 8. Environment Modules https://modules.sourceforge.net/ **Note: To install the above libraries, please edit and use the following install scripts, depending on what compiler type and version you have on your system.** Library install scripts are available for the following compiler versions, but this tutorial uses the compiler version : ifort-20.2 ``` gcc-9.1 gcc-11.4.1 ifort-20.2 ifort-2024 ``` Using environment modules, it is possible to use multiple compilers and compiler versions to compile the libraries and then MPAS-CMAQ. The suggested hardware requirements for running the CMAQ-MPAS 120km Uniform Grid Benchmark case on a Linux workstation are: 1. Linux environment with a 32 processors 2. 16 GB RAM 3. 400 GB hard drive storage ## Install MPAS-CMAQ I/O Libraries This tutorial uses scripts developed with the intel/20.2 compiler. Load the environment modules for intel ``` module load intel/20.2 openmpi/4.1.4-intel_20.2 ``` **Create directory for libraries** ``` #change directories to the location where you would like to install MPAS-CMAQ mkdir -p $cwd/MPAS-CMAQ/build/LIBRARIES_intel/20.2 cd $cwd/MPAS-CMAQ/build/LIBRARIES_intel/20.2 ``` **Obtain and run libraries install script** ``` wget https://github.com/USEPA/CMAQ/blob/main/DOCS/Users_Guide/Tutorials/scripts/mpas-cmaq_libraries/iolib_installation_intel_20.2.sh # change permission of the script so that it can be executed chmod 755 iolib_installation_intel_20.2.sh # run the library installation script ./iolib_installation_intel_20.2.sh |& tee ./iolib_installation_intel_20.2.log ``` Review the log file to verify that the libraries were installed successfully ``` grep -i error iolib_installation_intel_20.2.log ``` **Verify the libraries are installed** ``` ls lib/* lib/libcurl.a lib/libcurl.so.4 lib/libhdf5_hl.a lib/libhdf5.settings lib/libnetcdff.la lib/libpioc.a lib/libpnetcdf.a lib/libpnetcdf.so.6 lib/libcurl.la lib/libcurl.so.4.8.0 lib/libhdf5_hl.la lib/libnetcdf.a lib/libnetcdf.la lib/libpiof.a lib/libpnetcdf.la lib/libpnetcdf.so.6.0.0 lib/libcurl.so lib/libhdf5.a lib/libhdf5.la lib/libnetcdff.a lib/libnetcdf.settings lib/libpio.settings lib/libpnetcdf.so lib/libz.a ``` ## Configure Private Environment Modules ``` mkdir -p $cwd/Modules/modulefiles/mpas-cmaq-iolib ``` Edit the module name file to specify the PATH and LD_LIBARY_PATH. Next, create the module file and save it to the mpas-cmaq-iolib directory Example: ``` vi intel-20.2 # add the following contents to the intel-20.2 file, and edit the basedir to specify your local directory path #%Module proc ModulesHelp { } { puts stderr "This module adds mpas-cmaq-iolib/intel-20.2 to your path" } module-whatis "This module adds mpas-cmaq-iolib/intel-20.2 to your path\n" set basedir "/work/users/l/i/lizadams/MPAS-CMAQ/build/LIBRARIES_intel/20.2" prepend-path PATH "${basedir}/bin" prepend-path LD_LIBRARY_PATH "${basedir}/lib" module load openmpi/4.1.4-intel_20.2 ``` Add the following command to your .cshrc, then logout and log back in. ``` module use --append /work/users/l/i/lizadams/MPAS-CMAQ/build/Modules/modulefiles ``` Load Private Environment Modules ``` ## check that your private module can be found module list ## load the private module module load mpas-cmaq-iolib/intel-20.2 ## verify the module was loaded module list ``` ## Build MPAS-CMAQ These instructions follow the [MPAS-CMAQ User Manual](https://github.com/USEPA/CMAQ/blob/MPAS-CMAQ/DOCS/Users_Guide/PDF/MPAS-CMAQ.pdf) ### Clone the MPAS-CMAQ Branch ``` mkdir MPAS-CMAQ cd MPAS-CMAQ git clone -b MPAS_CMAQ https://github.com/USEPA/CMAQ.git CMAQ_REPO ``` Building and running in a user-specified directory outside of the repository In the top level of CMAQ_REPO, the bldit_project.csh script will automatically replicate the CMAQ folder structure and copy every build and run script out of the repository so that you may modify them freely without version control. In bldit_project.csh, modify the variable $CMAQ_HOME to identify the folder that you would like to install the CMAQ package under. For example: ``` set CMAQ_HOME = [your_install_path]/MPAS-CMAQ/CMAQ_5.5 ``` Now execute the script. ``` ./bldit_project.csh ``` **Configuring the MPAS-CMAQ Build Environment** Edit the config_cmaq.csh to change mpiifort to mpifort ``` cd [your_install_path]/MPAS-CMAQ/CMAQ_5.5 vi config_cmaq.csh #change line 99 setenv myFC mpiifort #to setenv myFC mpifort ``` **Run the build script to generate the Makefile and CMAQ scource code** ``` cd [your_install_path]/MPAS-CMAQ/CMAQ_5.5/CCTM/scripts # note that the following environment variable has been uncommented in the bldit_cctm.csh: set build_mpas_cmaq # edit the config_cmaq.csh to change mpiifort to mpifort # setenv myFC mpifort ./bldit_cctm.csh intel |& tee ./bldit_cctm.log # note that this will not create an executable file, see next steps ``` **Review Makefile created for MPAS-CMAQ** Note that the config_cmaq.csh compiler settings are not utilized in the Makefile that is created by running the bldit_cctm.csh script. ``` cd BLD_CCTM_v55_intel_cracmm2_m3dry vi Makefile.mpas_cmaq ``` Successful execution of this script creates a BLD* directory with CMAQ code and a Makefile. The CMAQ code is now ready to be compiled as part of the MPAS model. If this step fails, please reach post on the [CMAS Forum](https://forum.cmascenter.org/c/wrf-cmaq). **Change directories to the top level MPAS-CMAQ directory** ``` cd /your-path/MPAS-CMAQ ``` ## Download MPAS model ``` git clone -b MPAS7.0 git@github.com:USEPA/MPAS.git MPAS cd MPAS ``` Copy the CMAQ build directory from the previous section to the MPAS src/core atmosphere directory and re-name it "cmaq." ``` cp -rp ../CMAQ_5.5/CCTM/scripts/BLD_CCTM_v55_intel_cracmm2_m3dry/ ./src/core_atmosphere/cmaq ``` ## Compile MPAS-CMAQ Edit Makefile ``` #change mpiifort to mpifort in lines 140-142 "FC_PARALLEL = mpifort" \ "CC_PARALLEL = mpicc" \ "CXX_PARALLEL = mpicpc" \ ``` ``` # return to the top level MPAS directory cd ../MPAS # compile MPAS with CMAQ code make ifort CORE=atmosphere USE_PIO2=true ``` Examine the error message ``` ************ ERROR ************ Failed to compile a PIO test program Please ensure the PIO environment variable is set to the PIO installation directory ************ ERROR ************ make[1]: *** [Makefile:747: pio_test] Error 1 make[1]: Leaving directory '/work/users/l/i/lizadams/MPAS-CMAQ/MPAS' make: *** [Makefile:214: gfortran] Error 2 ``` Recommend commending out -lpio from the Makefile at line 462 and setting the PIO environment variable ``` vi Makefile # comment out -lpio, as we only have -lpiof and -lpioc # LIBS += -lpio ``` Set the following environment variable to allow the pio libraries to be found ``` setenv PIO /work/users/l/i/lizadams/MPAS-CMAQ/build/LIBRARIES_intel/20.2/ ``` Recompile MPAS ``` make ifort CORE=atmosphere USE_PIO2=true ``` Examine the log for additional errors ``` *** No compatible version of WRF physics tables found; attempting to download compatible tables *** /usr/bin/git *** Trying git to obtain WRF physics tables *** Cloning into 'MPAS-Data'... fatal: unable to connect to github.com: ``` Need to use ssh instead of https, follow these instructions to obtain the required files: ``` cd ./src/core_atmosphere/physics/physics_wrf/files git clone --branch v7.0 -n --depth=1 --filter=tree:0 ssh://github.com/MPAS-Dev/MPAS-Data cd MPAS-Data git sparse-checkout set --no-cone /atmosphere/physics_wrf/files git checkout mv atmosphere/physics_wrf/files/* ../ ``` Now the files should be available and the using VERSION number 7.0, so recompile MPAS-CMAQ ``` #change directories back to the MPAS directory cd ../../../../../.. make ifort CORE=atmosphere USE_PIO2=true ``` Review error ``` mpif90 -O3 -m64 -o atmosphere_model driver/*.o -L. -ldycore -lops -lframework -L/work/users/l/i/lizadams/MPAS-CMAQ/build/LIBRARIES_gcc11.4.1//lib -lpiof -lpioc -I./external/esmf_time_f90 -L./external/esmf_time_f90 -lesmf_time /usr/bin/ld: ./libdycore.a(mio_fcreate_mod.o): in function `__mio_fcreate_module_MOD_mio_fcreate': mio_fcreate_mod.F90:(.text+0x240d): undefined reference to `__netcdf_MOD_nf90_create' /usr/bin/ld: mio_fcreate_mod.F90:(.text+0x2549): undefined reference to `__netcdf_MOD_nf90_strerror' ``` Add the missing libraries to the end of the link statement: ``` cd MPAS/src vi Makefile add the following libraries to the end of the compile command (need to figure out where to add these options to the Makefile) -lnetcdf -lnetcdff -lhdf5_hl -lhdf5 -lz -lpnetcdf -lnetcdf cd src` mpifort -O3 -o atmosphere_model driver/*.o -L. -ldycore -lops -lframework -L/21dayscratch/scr/l/i/lizadams/MPAS-CMAQ/build/LIBRARIES_intel/18.2//lib -lpiof -lpioc -lnetcdf -lnetcdff -lhdf5_hl -lhdf5 -lz -lpnetcdf -lnetcdf -I./external/esmf_time_f90 -L./external/esmf_time_f90 -lesmf_time ``` **Verify that you have created the executable** ``` ls -rlt atmosphere_model -rwxrwxr-x 1 lizadams rc_cep-emc_psx 157259272 Jan 30 18:37 atmosphere_model ``` ## Install MPAS-CMAQ input data Use the aws command line MPAS-CMAQ S3 Bucket ``` cd /your-path/MPAS-CMAQ # note remove the --dryrun command from the following line after you have tested the following script aws s3 --no-sign-request cp --recursive --region=us-east-1 --dryrun s3://mpas-cmaq/120_uniform ./120_uniform # This will obtain both the mpas_inputs and cmas_inputs folders # extract the *.tar.gz files cd 120_uniform/cmaq_inputs/emissions # to extract data for a one day run tar -xvjf one_day.tar.bz2 # to extract enough data for an annual run # this may take 8 hours tar -xvjf 2017_120km.tar.bz2 ``` The input files for the MPAS-CMAQ benchmark case are provided in the 120_uniform directory . Output MPAS-CMAQ files associated with the sample run script for the coupled MPAS-CMAQ model in this release package are also available. Link the input data to a directory ``` setenv local_dir /work/users/l/i/lizadams/MPAS-CMAQ//120_uniform ln -s ${local_dir}/cmaq_inputs/other/* . ln -s ${local_dir}//mpas_inputs/* . # for a one day run ln -s ${local_dir}/cmaq_inputs/emissions/one_day/* . # for up to a year long run # be sure that the extraction is complete before linking the files ln -s ${local_dir}/cmaq_inputs/emissions/2017_120km/* . ``` ## Run the MPAS-CMAQ model One sample run scripts is provided (MPAS/run/run.csh) Edit the slurm optins for your machine Edit the run script ``` cd MPAS/run/ vi run.csh ``` Change end date to run for two days ``` set START_DATE = "2017-01-01" #> beginning date (Jan 1, 2017) set END_DATE = "2017-01-02" #> ending date (Jan 2, 2017) ``` Modify the following section to specify your local paths: ``` set input_path = /your-path/MPAS-CMAQ/MPAS/links set MPAS_path_output = /your-path/MPAS-CMAQ/MPAS/output_retest ``` Edit the location of the executable ``` set MPASEXE=${MPAS_root}/src/atmosphere_model ``` Set the number of processors to run MPAS-CMAQ ``` setenv NPROCS 64 ``` Load the environment modules ``` module load openmpi/4.1.4-intel_20.2 mpas-cmaq-iolib/intel-20.2 ``` Submit the job to the slurm queue ``` sbatch run.csh ``` Verify that the run was successful - look for the output directory ``` cd ../output ``` If the run was successful you will see the following output, with the log files saved in the 20170101 directory ``` -rw-rw-r-- 1 lizadams rc_cep-emc_psx 2917 Nov 20 04:33 namelist.atmosphere -rw-rw-r-- 1 lizadams rc_cep-emc_psx 87014088 Nov 20 05:00 diag.2017-01-01.nc -rw-rw-r-- 1 lizadams rc_cep-emc_psx 56977988792 Nov 20 05:07 history.2017-01-01.nc -rw-rw-r-- 1 lizadams rc_cep-emc_psx 554322016 Nov 20 05:07 CCTM_EMIS_DIAG_20170101.nc -rw-rw-r-- 1 lizadams rc_cep-emc_psx 527939604 Nov 20 05:07 CCTM_OUT20170101.nc -rw-rw-r-- 1 lizadams rc_cep-emc_psx 40311788 Nov 20 05:07 CCTM_SOILOUT_20170101.nc -rw-rw-r-- 1 lizadams rc_cep-emc_psx 31299892 Nov 20 05:07 CCTM_BDSNPOUT_20170101.nc -rw-rw-r-- 1 lizadams rc_cep-emc_psx 199418764 Nov 20 05:08 CCTM_BDSNPDIAG_20170101.nc -rw-rw-r-- 1 lizadams rc_cep-emc_psx 6613956148 Nov 20 05:09 restart.2017-01-02_00.00.00.nc -rw-rw-r-- 1 lizadams rc_cep-emc_psx 2529702504 Nov 20 05:09 history.2017-01-02.nc -rw-rw-r-- 1 lizadams rc_cep-emc_psx 29011864 Nov 20 05:09 diag.2017-01-02.nc -rw-rw-r-- 1 lizadams rc_cep-emc_psx 21 Nov 20 05:09 restart_timestamp -rw-rw-r-- 1 lizadams rc_cep-emc_psx 2385 Nov 20 05:09 CCTM_BUDGET_APPL.txt drwxrwxr-x 2 lizadams rc_cep-emc_psx 8393 Nov 20 05:09 20170101 ``` ``` cd MPAS-CMAQ/MPAS/output_288_36x8/20170101 tail -n 5 CTM_LOG_000 After NEXTIME: returned JDATE, JTIME 2017001 235230 Master Time Step Processing completed... 3.8486 seconds ``` ``` tail -n 8 log.atmosphere.0000.out ----------------------------------------- Total log messages printed: Output messages = 57411 Warning messages = 197 Error messages = 0 Critical error messages = 0 ----------------------------------------- Logging complete. Closing file at 2024/11/20 05:09:20 ``` ## Compare the output Download data available on the S3 bucket ``` cd $CMAQ_DATA wget https://mpas-cmaq.s3.amazonaws.com/output/MPAS-CMAQ.120km_uniform_grid_gcc_output_288_36x8.tar.gz tar xvzf MPAS-CMAQ.120km_uniform_grid_gcc_output_288_36x8.tar.gz ``` [link_MPAS_PDF]: https://github.com/USEPA/CMAQ/blob/MPAS_CMAQ/DOCS/Users_Guide/PDF/MPAS_CMAQ_guide.pdf [link_MPAS_PDF]: https://github.com/USEPA/CMAQ/blob/MPAS_CMAQ/DOCS/Users_Guide/PDF/MPAS_CMAQ_guide.pdf ================================================ FILE: DOCS/Users_Guide/Tutorials/CMAQ_UG_tutorial_WRF-CMAQ_Benchmark.md ================================================ # WRF-CMAQ Benchmarking Tutorial # **Purpose**: This guide describes how to install and run the WRF-CMAQ test case, which serves two different purposes. The first being to familiarize the user with the WRF-CMAQ suite of programs and how they work together, and secondly to verify the installation of the software on your system via benchmarking. Users are highly encouraged to work through the [CMAQ Benchmark Tutorial](CMAQ_UG_tutorial_benchmark.md) and [WRF Installation Guide](https://www2.mmm.ucar.edu/wrf/users/) to familiarize themselves with the individuals program components. ## System Checks CMAQ requires a specific hardware and software configuration. To learn about these requirements, please refer to the tutorial on [preparing your compute environment for CMAQ simulations](CMAQ_UG_tutorial_configure_linux_environment.md). ## Installing WRF-CMAQ ## If you followed the [CMAQ_UG_tutorial_build_library_gcc_support_nc4.md](CMAQ_UG_tutorial_build_library_gcc_support_nc4.md) tutorial then you have installed the required netCDF-C and netCDF-Fortran libraries in to a combined folder, and you can skip to the section Configuring the WRF-CMAQ environment. In the directory where you would like to install WRF-CMAQ, create the directory issuing the following command to clone the EPA GitHub repository for CMAQv5.5: ``` git clone -b main https://github.com/USEPA/CMAQ.git CMAQ_REPO ``` ## Check Out a new Branch in the CMAQ Repository Checking out a new branch is a good idea even if you are not doing code development, per se. It is likely that you will want to retrieve new updates in the future, and an easy way to do this is through the main branch in the git repo. Thus, it is beneficial to leave it unperturbed if possible. ``` cd CMAQ_REPO git checkout -b my_branch ``` ## Building and running in a user-specified directory outside of the repository In the top level of CMAQ_REPO, the bldit_project.csh script will automatically replicate the CMAQ folder structure and copy every build and run script out of the repository so that you may modify them freely without version control. In bldit_project.csh, modify the variable $CMAQ_HOME to identify the folder that you would like to install the CMAQ package under. For example: ``` set CMAQ_HOME = [your_install_path]/CMAQv5.5 ``` Now execute the script. ``` ./bldit_project.csh ``` CMAQ_HOME will be the location of your newly created WRF_CMAQ project directory (where you will compile and run WRF-CMAQ). ## Combining the netCDF-C and netCDF-Fortran libraries Compiling WRF-CMAQ requires several libraries and include files to be made avialable. Because these libraries and include files are not expected to be in standard locations, users need to explicitly provide the path to this via environmental variables. The environmental variables that need to be set are located in the config_cmaq.csh script, located at the root of the WRF-CMAQ project directory. Note: WRF source code expects that you have already collated the netCDF-C and netCDF-Fortran libraires into one directory. If you have not done so, please follow the example instructions: ``` cd /[your_install_path]/LIBRARIES_gcc mkdir netcdf_combined cp -rp ./netcdf-fortran-4.4.5-gcc9.1.0/* ./netcdf_combined/ cp -rp ./netcdf-c-4.7.0-gcc9.1.0/* ./netcdf_combined/ ``` ### Configuring the WRF-CMAQ Environment Navigate to the compiler of your choice to compile WRF-CMAQ using distributed memory parallel (dmpar). For example, for GNU based compilers go to line 148 of the config_cmaq.csh. Then set the paths for NETCDF and IOAPI and the WRF_ARCH to 34. ``` #> I/O API and netCDF for WRF-CMAQ setenv NETCDF [your_install_path]/LIBRARIES_gcc setenv IOAPI [your_install_path]/LIBRARIES_gcc/ioapi-3.2 setenv WRF_ARCH 34 # [1-75] WRF 64 Bit Linux_x86 Compiler/Architecture options ``` *Note: WRF_ARCH environment variable is used to configure WRF and is based on the following options:* ```Please select from among the following Linux x86_64 options: 1. (serial) 2. (smpar) 3. (dmpar) 4. (dm+sm) PGI (pgf90/gcc) 5. (serial) 6. (smpar) 7. (dmpar) 8. (dm+sm) PGI (pgf90/pgcc): SGI MPT 9. (serial) 10. (smpar) 11. (dmpar) 12. (dm+sm) PGI (pgf90/gcc): PGI accelerator 13. (serial) 14. (smpar) 15. (dmpar) 16. (dm+sm) INTEL (ifort/icc) 17. (dm+sm) INTEL (ifort/icc): Xeon Phi (MIC architecture) 18. (serial) 19. (smpar) 20. (dmpar) 21. (dm+sm) INTEL (ifort/icc): Xeon (SNB with AVX mods) 22. (serial) 23. (smpar) 24. (dmpar) 25. (dm+sm) INTEL (ifort/icc): SGI MPT 26. (serial) 27. (smpar) 28. (dmpar) 29. (dm+sm) INTEL (ifort/icc): IBM POE 30. (serial) 31. (dmpar) PATHSCALE (pathf90/pathcc) 32. (serial) 33. (smpar) 34. (dmpar) 35. (dm+sm) GNU (gfortran/gcc) 36. (serial) 37. (smpar) 38. (dmpar) 39. (dm+sm) IBM (xlf90_r/cc_r) 40. (serial) 41. (smpar) 42. (dmpar) 43. (dm+sm) PGI (ftn/gcc): Cray XC CLE 44. (serial) 45. (smpar) 46. (dmpar) 47. (dm+sm) CRAY CCE (ftn $(NOOMP)/cc): Cray XE and XC 48. (serial) 49. (smpar) 50. (dmpar) 51. (dm+sm) INTEL (ftn/icc): Cray XC 52. (serial) 53. (smpar) 54. (dmpar) 55. (dm+sm) PGI (pgf90/pgcc) 56. (serial) 57. (smpar) 58. (dmpar) 59. (dm+sm) PGI (pgf90/gcc): -f90=pgf90 60. (serial) 61. (smpar) 62. (dmpar) 63. (dm+sm) PGI (pgf90/pgcc): -f90=pgf90 64. (serial) 65. (smpar) 66. (dmpar) 67. (dm+sm) INTEL (ifort/icc): HSW/BDW 68. (serial) 69. (smpar) 70. (dmpar) 71. (dm+sm) INTEL (ifort/icc): KNL MIC 72. (serial) 73. (smpar) 74. (dmpar) 75. (dm+sm) FUJITSU (frtpx/fccpx): FX10/FX100 SPARC64 IXfx/Xlfx Enter selection [1-75] : ------------------------------------------------------------------------ ``` If you have never configured WRF before, here are some guidelines: - Choose the appropriate compiler platform and hardware architecture if applicable - Choose the dmpar (Distributed Memory Parallelization -- MPI) option only. The serial, Single Memory Parallelization (smpar), and (dm+sm) are out of scope of this tutorial, configuration with those options require [additional support](https://forum.cmascenter.org/). - For more information refer to the [WRF User Guide](https://www2.mmm.ucar.edu/wrf/users/docs/user_guide_v4/v4.0/contents.html) ## Compiling WRF-CMAQ *Before proceeding, it should be noted that building the ICON and BCON executables are optional steps when working specifically with the benchmark data. This is because the initial condition and boundary condition files have been provided for you within the benchmark data set. For further information on these preprocessors please reference [Chapter 4](../CMAQ_UG_ch04_model_inputs.md).* ### Modify the bldit_cctm.csh Navigate to the WRF-CMAQ project directory and from there navigate to the CCTM/scripts directory. ``` cd CCTM/scripts cp bldit_cctm.csh bldit_wrf4.5.1_cctmv55.csh ``` Edit bldit_wrf4.5.1_cctmv55.csh and uncomment the option to build WRF-CMAQ twoway: ``` #> Two-way WRF-CMAQ set build_twoway #> uncomment to build WRF-CMAQ twoway; ``` Verify that WRF_CMAQ environment variable is set to 1: ``` grep WRF_CMAQ bldit_wrf4.5.1_cctmv55.csh ``` Output: ``` setenv WRF_CMAQ 1 ``` Set the WRF version to release-v4.5.1 ``` if ( $?build_twoway ) then # WRF Version used for WRF-CMAQ Model (must be v4.4+) set WRF_VRSN = release-v4.5.1 endif ``` Set the BLD directory name to add wrf to it, so that when the script copies the BLD directory, that it does not copy an existing direectory. ``` #> Set and create the "BLD" directory for checking out and compiling #> source code. Move current directory to that build directory. if ( $?Debug_CCTM ) then set Bld = $CMAQ_HOME/CCTM/scripts/BLD_CCTM_${VRSN}_${compilerString}_${Mechanism}_${DepMod}_wrfcmaq_debug else set Bld = $CMAQ_HOME/CCTM/scripts/BLD_CCTM_${VRSN}_${compilerString}_${Mechanism}_${DepMod}_wrfcmaq endif ``` Configure CMAQ benchmark Science Modules: The build directory parameters for the benchmark test case include the following: - Multiprocessor simulation - 3-D Advection Scheme: wrf_cons - Horizontal diffusion: Multiscale - Vertical diffusion: ACM2_M3Dry - Deposition: M3Dry - Chemistry solver: EBI - Aerosol module: AERO7 - Cloud module: ACM_AE7 - Mechanism: cb6r3_ae7_aq - Online biogenic emissions - Inline plume rise To configure these parameters, the CCTM Science Modules within the bldit_cctm.csh need to be modified from set defaults. The comments within the script itself should help guide the user on the options for each variable and how to set them. Further information on variable names can be found in [Appendix A](../Appendix/CMAQ_UG_appendixA_model_options.md). ### Run the build script If you have set up environment modules for your libraries, then load them ``` module load netcdf-4.5.3-for_nc4/gcc-11.2 ioapi-3.2/gcc-11.2 openmpi_5.0.5/gcc ``` Run the bldit script to compile wrf-cmaq ``` ./bldit_wrf4.5.1_cctmv55.csh gcc |& tee bldit_wrf4.5.1_cctmv55.log ``` Users should look for the following message at the end of their bldit_wrf4.5.1_cctmv55.log: ``` ---> Executables successfully built <--- -rwxr-xr-x. 1 user home 51139232 Jun 7 19:03 main/ndown.exe -rwxr-xr-x. 1 user home 51187088 Jun 7 19:03 main/real.exe -rwxr-xr-x. 1 user home 50445512 Jun 7 19:03 main/tc.exe -rwxr-xr-x. 1 user home 81349320 Jun 7 19:02 main/wrf.exe ========================================================================== ``` If the User sees this, the WRF-CMAQ model has been successfully compiled and built. If not, the User should double check the library paths above and try again. If you get this error: ``` Error NoahMP submodule files not populating WRF directories make: *** [wrf] Error 31 ``` This is because of a conflict between git clone and the environment modules. Try the following commands: ``` cd ./BLD_WRF_release-v4.5.1_CCTM_v55_gcc/phys git clone ssh://github.com/NCAR/noahmp/ cd .. ./compile em_real |& tee compile.again.log ``` If the git clone ssh command doesn't work, try ``` git clone https://github.com/NCAR/noahmp/ ``` If you get this error: gfortran: error: libcmaqlib.a: No such file or directory Then try the following commands to recompile the cmaq executable, and then retry building WRF-CMAQ ``` cd cmaq make -f Makefile.twoway cd .. ./compile em_real |& compile.again.log ``` If you get this error ``` name2fid.f:(.text+0x17): undefined reference to `GOMP_critical_name_start' ``` Edit the configure.wrf to remove the commented out -fopenmp flags. Change ``` OMP = # -fopenmp OMPCC = # -fopenmp ``` to ``` OMP = -fopenmp OMPCC = -fopenmp ``` Recompile ``` ./compile em_real | & tee ./compile.again.3rd.log ``` An additional error can occur if time is not found on your system. If this is the case, edit the configure.wrf to remove the time command from the F90 definition. ``` cd BLD_WRF_release-v4.5.1_CCTM_v55_gcc vi configure.wrf ``` edit line 138 change ``` FC = time $(DM_FC) ``` to ``` FC = $(DM_FC) ``` If the build fails due to not finding the mpi.h include file, then edit the configure.wrf file to add the following: Add the following to the list of the INCLUDE_MODULES = ``` -I$(MPIPATH)/include \ ``` Then define MPIPATH (add under the NETCDFPATH settings) to your local path Example: ``` MPIPATH = /nas/sycamore/apps/openmpi/5.0.5/ ``` Example: ``` INCLUDE_MODULES = $(MODULE_SRCH_FLAG) \ $(ESMF_MOD_INC) $(ESMF_LIB_FLAGS) \ -I$(WRF_SRC_ROOT_DIR)/main \ -I$(WRF_SRC_ROOT_DIR)/external/io_netcdf \ -I$(WRF_SRC_ROOT_DIR)/external/io_int \ -I$(WRF_SRC_ROOT_DIR)/frame \ -I$(WRF_SRC_ROOT_DIR)/share \ -I$(WRF_SRC_ROOT_DIR)/phys \ -I$(WRF_SRC_ROOT_DIR)/wrftladj \ -I$(WRF_SRC_ROOT_DIR)/chem -I$(WRF_SRC_ROOT_DIR)/inc \ -I$(NETCDFPATH)/include \ -I$(MPIPATH)/include \ REGISTRY = Registry CC_TOOLS_CFLAGS = -DNMM_CORE=$(WRF_NMM_CORE) LIB = $(LIB_BUNDLED) $(LIB_EXTERNAL) $(LIB_LOCAL) $(LIB_WRF_HYDRO) $(NETCDF4_DEP_LIB) LDFLAGS = $(OMP) $(FCFLAGS) $(LDFLAGS_LOCAL) ENVCOMPDEFS = -DWRF_CMAQ WRF_CHEM = 0 CPPFLAGS = $(ARCHFLAGS) $(ENVCOMPDEFS) -I$(LIBINCLUDE) $(TRADFLAG) NETCDFPATH = /proj/ie/proj/CMAS/CMAQ/WRF-CMAQv5.5/build/LIBRARIES_gcc11.2 MPIPATH = /nas/sycamore/apps/openmpi/5.0.5/ HDF5PATH = WRFPLUSPATH = RTTOVPATH = PNETCDFPATH = ADIOS2PATH = ``` Also edit the configure.wrf to add the -fallow-argument-mismatch option ``` FCOPTIM = -O2 -ftree-vectorize -funroll-loops -fallow-argument-mismatch FCCOMPAT = -fallow-argument-mismatch -fallow-invalid-boz -fallow-argument-mismatch ``` Rerun the bldit script ``` ./bldit_wrf4.5.1_cctmv55.csh gcc | & tee ./bldit_wrf4.5.1_cctmv55.log ``` If it still fails, please reach post on the [CMAS Forum](https://forum.cmascenter.org/c/wrf-cmaq). ### Install the WRF-CMAQ reference input benchmark data Download the CMAQ two day reference input data from the [CMAS Center Data Warehouse Google Drive](https://drive.google.com/drive/folders/1AFUB-4kzIXXoZr4hOHNBqRvy9JQ9_MDp?usp=sharing) or from the [CMAS Center Data Warehouse Amazon Web Services S3 Bucket](https://cmaq-release-benchmark-data-for-easy-download.s3.amazonaws.com/index.html#v5_5/ ), file CMAQv5.4_2018_12NE3_Benchmark_2Day_Input.tar.gz. The CMAQ benchmark test case is a two day simulation for July 1-2 2018 on a 100 column x 105 row x 35 layer 12-km resolution domain over the northeast U.S. - Use the gdrive command if you are downloading the dataset from Google Drive. - If this is the first time that you are using gdrive, or if you have an issue with your token, please read the following instructions - [Tips to download data from CMAS Data Warehouse](https://docs.google.com/document/d/1e7B94zFkbKygVWfrhGwEZL51jF4fGXGXZbvi6KzXYQ4) - Text files are included that provide a list of the files in the benchmark input datasets. - wget can be used to download data from the CMAS Open Data Folder on AWS - Reference output files for WRF-CMAQv5.5 will be provided at a later date. Copy the data to `$CMAQ_DATA`. Navigate to the `$CMAQ_DATA` directory, unzip and untar the two day benchmark input files: ``` cd $CMAQ_DATA wget https://cmaq-release-benchmark-data-for-easy-download.s3.amazonaws.com/v5_5/CMAQv5.4_2018_12NE3_Benchmark_2Day_Input.tar.gz tar xvzf CMAQv5.4_2018_12NE3_Benchmark_2Day_Input.tar.gz ``` The input files for the WRF-CMAQ benchmark case are provided in the base model benchmark inputs .tar file. Output WRF-CMAQ files associated with the sample run script for the coupled WRF-CMAQ model in this release package are also available. ## Running the WRF-CMAQ model Note, in this new coupled model design, the namelist is used to modify settings for WRF. Environment variables such as WRF_CMAQ_FREQ are no longer used. The following commonly modified namelist options for WRF-CMAQ are specified in the run script. 1. wrf_cmaq_option (dictates how the coupled model execute) 0 = run WRF only 1 = run WRF only w producing MCIP like GRID and MET files 2 = run WRF-CMAQ coupled model w/o producing MCIP like GRID and MET files 3 = run WRF-CMAQ coupled model w producing MCIP like GRID and MET files 2. wrf_cmaq_freq (indicate how often WRF and CMAQ interact) 3. met_file_tstep (time step size of MCIP like intermediate output files) 4. direct_sw_feedback (indicate to turn on aerosol short wave direct effect) 5. feedback_restart (indicate aerosol short wave direct effect information is available in the WRF restart file or not) * One sample run scripts is provided (run_cctm_Bench_2018_12NE3.WRFCMAQ.csh) for running the coupled model with short wave radiation feedback turned on. Reference benchmark output will be provided for a test simulations with short wave radiation feedback turned on ("sf") and turned off ("nf"). - Start with the run_cctm_Bench_2018_12NE3.WRFCMAQ.csh that specifies direct_sw_feedback = .true. - and the CMAQv5.4 input benchmark dataset to run CMAQ-WRF with feedback - It is configured to run on 32 processors and for 1 day of model simulation - Edit the script to specify the paths, modify the number of processors and batch queue commands - Fix VEGPARM.TBL, since Benchmark runs with PX LSM with NLCD40 Data **\* Users using PX Land Surface Model option with NLCD40 dataset are required to fix their VEGPARM.TBL before running WRF-CMAQ, due to a bug in the WRF released VEGPARM.TBL. Please see the [WRF Repository](https://github.com/wrf-model/WRF/pull/1733) for more information on the bug.*** - For example, one option may include manually editing the existing VEGPARM.TBL (found in WRF-CMAQ Build Directory) with the fix seen on the [WRF Repository](https://github.com/wrf-model/WRF/pull/1733/files). Edit the run script ``` vi run_cctm_Bench_2018_12NE3.WRFCMAQ.csh ``` Change end date to run for two days ``` set START_DATE = "2018-07-01" # beginning date (July 1, 2016) set END_DATE = "2018-07-02" # ending date (July 14, 2016) ``` Set the WRF version number ``` set wrfv = release_v4.5.1 ``` Now, modify the following section to specify your local paths: ``` set WORKDIR = ${PWD} set WRF_DIR = $WORKDIR/BLD_WRF_release-v4.5.1_CCTM_v55_gcc # WRF source code directory set INPDIR = ${CMAQ_DATA}/CMAQv5.4_2018_12NE3_Benchmark_2Day_Input/2018_12NE3 set OUTPUT_ROOT = $WORKDIR # output root directory set output_direct_name = WRFCMAQ-output-${version} # Output Directory Name setenv OUTDIR $OUTPUT_ROOT/$output_direct_name # output files and directories set NMLpath = $WRF_DIR/cmaq # path with *.nml file mechanism dependent ``` - Set the number of processors to run WRF-CMAQ ``` set NPROCS = 32 ``` - Load the environment modules ``` module load netcdf-4.5.3-for_nc4/gcc-11.2 ioapi-3.2/gcc-11.2 openmpi_5.0.5/gcc ``` - Run the job (if you have a batch queuing system such as SLURM use sbatch after adding the sbatch commands to the top of the run script): ``` ./run_cctm_Bench_2018_12NE3.WRFCMAQ.csh ``` ### Verify that the run was successful - look for the output directory ``` cd WRFCMAQ-output-sf_feedback ``` If the run was successful you will see the following output ``` tail ./2018182/rsl.out.0000 ``` |>--- PROGRAM COMPLETED SUCCESSFULLY ---<| ### Compare the output to what is available on the S3 bucket ``` cd $CMAQ_DATA wget https://cmaq-release-benchmark-data-for-easy-download.s3.amazonaws.com/v5_5/WRF-CMAQ/WRFv4.5.1-CMAQv55-output-sw_feedback_gcc.tar.gz tar xvzf WRFv4.5.1-CMAQv55-output-sw_feedback_gcc.tar.gz ``` ================================================ FILE: DOCS/Users_Guide/Tutorials/CMAQ_UG_tutorial_benchmark.md ================================================ # CMAQ Installation & Benchmarking Tutorial for CB6R5 Purpose: This guide describes how to run the CMAQ test case for the CB6R5 mechanism with the M3DRY dry deposition scheme, which serves two different purposes. The first being to familiarize the user with the CMAQ suite of programs and how they work together, and secondly to verify the installation of the software on your system via benchmarking. Benchmarking refers to a simulation that is used to verify that the software is installed correctly. Benchmarking CMAQ is recommended in the following circumstances: - Installation by a new user - Installation on a new server - Following kernel upgrades - Following compiler or system library updates ## System Checks CMAQ requires a specific hardware and software configuration. To learn about these requirements, please refer to the tutorial on [preparing your compute environment for CMAQ simulations](CMAQ_UG_tutorial_configure_linux_environment.md). ## Install CMAQ In the directory where you would like to install CMAQ, create the directory issue the following command to clone the EPA GitHub repository for CMAQv5.5: ``` git clone -b main https://github.com/USEPA/CMAQ.git CMAQ_REPO ``` For instructions on installing CMAQ from Zip files, see [Chapter 5](../CMAQ_UG_ch05_running_a_simulation.md). ## Check Out a new Branch in the CMAQ Repository Checking out a new branch is a good idea even if you are not doing code development, per se. It is likely that you will want to retrieve new updates in the future, and an easy way to do this is through the main branch in the git repo. Thus, it is beneficial to leave it unperturbed if possible. ``` cd CMAQ_REPO git checkout -b my_branch ``` ## Configure the CMAQ build environment The user has two options for building an environment. She or he may build and run CMAQ components directly in the repository structure (object files and executables will be ignored with .gitignore), or they may extract the build and run scripts out of the repository and work in a separate location. If you would like to build directly in the repository, skip to "Link the CMAQ Libraries" below. ### Build and run in a user-specified directory outside of the repository In the top level of CMAQ_REPO, the bldit_project.csh script will automatically replicate the CMAQ folder structure and copy every build and run script out of the repository so that you may modify them freely without version control. In bldit_project.csh, modify the variable $CMAQ_HOME to identify the folder that you would like to install the CMAQ package under. For example: ``` set CMAQ_HOME = [your_install_path]/CMAQ_v5.5 ``` Now execute the script. ``` ./bldit_project.csh ``` ## Link the CMAQ Libraries The CMAQ build scripts require the following libraries and INCLUDE files to be available in the CMAQ_LIB directory (Note: the CMAQ_LIB gets set automatically by the config_cmaq.csh script, where `CMAQ_LIB = $CMAQ_HOME/lib`): - netCDF C library files are located in the `$CMAQ_LIB/netcdf/lib` directory - netCDF Fortran library files are located in the `$CMAQ_LIB/netcdff/lib` directory - I/O API library, include files and module files are located in the `$CMAQ_LIB/ioapi` directory - MPI library and INCLUDE files are located in the `$CMAQ_LIB/mpi` directory The config_cmaq.csh script will automatically link the required libraries into the CMAQ_LIB directory. Set the locations of the netCDF, I/O API, and MPI installations on your Linux system with the following config_cmaq.csh environment variables: - `setenv IOAPI_INCL_DIR`: the location of the I/O API include header files on your system. - `setenv IOAPI_LIB_DIR`: the location of compiled I/O API libraries on your system. - `setenv NETCDF_LIB_DIR`: the location of the netCDF C library installation on your system. - `setenv NETCDF_INCL_DIR`: the location of the netCDF C include files on your system. - `setenv NETCDFF_LIB_DIR`: the location of the netCDF Fortran library installation on your system. - `setenv NETCDFF_INCL_DIR`: the location of the netCDF Fortran include files on your system. - `setenv MPI_LIB_DIR`: the location of the MPI (OpenMPI or MVAPICH) on your system. For example, if your netCDF C libraries are installed in /usr/local/netcdf/lib, set `NETCDF_LIB_DIR` to /usr/local/netcdf/lib. Similarly, if your I/O API library is installed in /home/cmaq/ioapi/Linux2_x86_64gfort, set `IOAPI_LIB_DIR` to /home/cmaq/ioapi/Linux2_x86_64gfort. *1.* Check the names of the I/O API and netCDF libraries using the `ioapi_lib` and `netcdf_lib` script variables. *2.* Check the name of the MPI library using the `mpi_lib` script variable. For MVAPICH use `-lmpich`; for openMPI use `-lmpi`. Links to these libraries will automatically be created when you run any of the build or run scripts. To manually create these libraries (this is optional), execute the config_cmaq.csh script, identifying the compiler in the command line [intel | gcc | pgi]: ``` source config_cmaq.csh [compiler] ``` You may also identify the version of the compiler if you wish it to be identified in build directory and executable names. This is optional. For example: ``` source config_cmaq.csh gcc 9.5 ``` ## Install the CMAQ reference input and output benchmark data Download the CMAQ two day reference input and output data for the cb6r5_ae7 mechanism (using inputs from CMAQv5.4 Benchmark release) from the [CMAS Center Data Warehouse Amazon Web Services S3 Bucket](https://cmaq-release-benchmark-data-for-easy-download.s3.amazonaws.com/index.html#v5_5/): CMAQv5.4_2018_12NE3_Benchmark_2Day_Input.tar.gz and output_CCTM_v55_gcc_Bench_2018_12NE3_cb6r5_ae7_aq_m3dry.tar.gz. The CMAQ benchmark test case is a two day simulation for July 1-2 2018 on a 100 column x 105 row x 35 layer 12-km resolution domain over the northeast U.S. Download and copy the data to `$CMAQ_DATA`. Navigate to the `$CMAQ_DATA` directory, unzip and untar the two day benchmark input and output files: ``` cd $CMAQ_DATA wget https://cmaq-release-benchmark-data-for-easy-download.s3.amazonaws.com/v5_5/CMAQv5.4_2018_12NE3_Benchmark_2Day_Input.tar.gz tar -xzvf CMAQv5.4_2018_12NE3_Benchmark_2Day_Input.tar.gz mkdir ref_output cd ref_output wget https://cmaq-release-benchmark-data-for-easy-download.s3.amazonaws.com/v5_5/output_CCTM_v55_gcc_Bench_2018_12NE3_cb6r5_ae7_aq_m3dry.tar.gz tar -xzvf output_CCTM_v55_gcc_Bench_2018_12NE3_cb6r5_ae7_aq_m3dry.tar.gz ``` *Note that there is also benchmark output data for CMAQv5.5 with CB6r5 and the STAGE dry deposition module. Look for output_CCTM_v55_gcc_Bench_2018_12NE3_cb6r5_ae7_aq_stage.tar.gz in the AWS link above.* ## Compiling CMAQ *Before proceeding, it should be noted that building the ICON and BCON executables are optional steps when working specifically with the benchmark data. This is because the initial condition and boundary condition files have been provided for you within the benchmark data set. For further information on these preprocessors please reference [Chapter 4](../CMAQ_UG_ch04_model_inputs.md).* Create the model executables for CCTM using the steps shown below. Create a bldit_cctm script for this benchmark and verify or modify the settings listed below. ``` cp bldit_cctm.csh bldit_cctm_cb6r5_m3dry.csh vi bldit_cctm_cb6r5_m3dry.csh ``` ##### Configuration for multi-processor runs (default): ``` cd $CMAQ_HOME/CCTM/scripts cp bldit_cctm.csh bldit_cctm_cb6r5_ae7_aq_m3dry.csh ``` Edit the bldit_cctm_cb6r5_ae7_aq_m3dry.csh script to use the following settings: ``` set ParOpt #> Option for MPI Runs ```` ##### Configuration for single-processor runs (optional): For single-processor computing, edit the CCTM build script (bldit_cctm.csh) to indicate a single-processor run by commenting out set ParOpt as shown below. ``` #set ParOpt #> Option for Single Processor Runs ```` #### Configure CMAQ benchmark Science Modules: The build directory parameters for the benchmark test case include the following: - Multiprocessor simulation - 3-D Advection Scheme: wrf_cons - Horizontal diffusion: Multiscale - Vertical diffusion: ACM2_M3Dry - Deposition: M3Dry - Chemistry solver: EBI - Aerosol module: AERO7 - Cloud module: ACM_AE7 - Mechanism: cb6r5_ae7_aq - Inline biogenic emissions - Inline plume rise To configure these parameters, the CCTM Science Modules within the bldit_cctm.csh need to be set. The comments within the script itself should help guide the user on the options for each variable and how to set them. Further information on variable names can be found in [Appendix A](../Appendix/CMAQ_UG_appendixA_model_options.md). Verify that the dry deposition scheme to use M3DRY ``` #> Set Dry Deposition Scheme to m3dry set DepMod = m3dry ``` *Note that there is reference benchmark output for both the M3DRY and STAGE dry deposition schemes. To try a simulation using STAGE simply change this model setting to set DepMod =stage.* Following the requisite changes to the CCTM build script, use the following command to create the CCTM executable: ``` cd $CMAQ_HOME/CCTM/scripts ./bldit_cctm_cb6r5_ae7_aq_m3dry [compiler] [version] |& tee bldit_cctm_cb6r5_ae7_aq_m3dry.log ``` Verify that the BLD directory contains a namelist called ``` cd BLD_CCTM_v55_gcc_cb6r5_ae7_aq_m3dry ls CMAQ_Control_DESID_cb6r5_ae7_aq.nml ``` ## Configure the CCTM script For an MPI configuration with 32 processors, ``` cd $CMAQ_HOME/CCTM/scripts ``` Edit the CCTM run script (run_cctm_Bench_2018_12NE3_CB6R5.csh) for the MPI configuration and compiler that you will use: ``` setenv compiler gcc setenv compilerVrsn 9.5 setenv INPDIR ${CMAQ_DATA}/2018_12NE3 @ NPCOL 8 ; @ NPROW = 4 ``` Most clustered multiprocessor systems require a command to start the MPI run-time environment. The default CCTM run script uses the *mpirun* command. Consult your system administrator to find out how to invoke MPI when running multiprocessor applications. For single-processor computing, set PROC to serial: ``` set PROC = serial ``` CCTM Science Configuration Options set to **Y** in the RunScript for the benchmark case include the following: - ```CTM_OCEAN_CHEM``` - use ocean halgoen chemistry and sea spray aerosol emissions - ```KZMIN``` - minimum eddy diffusivity in each grid cell determined by land use fraction - ```PX_VERSION``` - WRF PX land surface model - ```CTM_ABFLUX``` - bidirectional ammonia flux for online deposition velocities - ```CTM_BIDI_FERT_NH3``` - subtract fertilizer NH3 from emissions because it will be handled by the BiDi calculation - ```CTM_SFC_HONO``` - surface HONO interaction - ```CTM_GRAV_SETL``` - vdiff aerosol gravitational sedmentation - ```CTM_BIOGEMIS``` - online biogenic emissions To configure these parameters, the Science Options within the $CMAQ_HOME/CCTM/scripts/run_cctm_Bench_2018_12NE3_CB6R5.csh need to be set. The comments within the script itself should help guide the user on the options for each variable and how to set them. Further information on variable names can be found in [Appendix A](../Appendix/CMAQ_UG_appendixA_model_options.md). After configuring the MPI settings for your Linux system, check the rest of the script to ensure the correct path, date and names are used for the input data files. Per the note above, different Linux systems have different requirements for submitting MPI jobs. The command below is an example of how to submit the CCTM run script and may differ depending on the MPI requirements of your Linux system. ``` ./run_cctm_Bench_2018_12NE3_CB6R5.csh |& tee cctm.log ``` ## Confirm that the Benchmark Simulation Completed To confirm that the benchmark case ran to completion view the run.benchmark.log file. For MPI runs, check each of the CTM_LOG_[ProcessorID]*.log files. A successful run will contain the following line at the bottom of the log(s): ``>>----> Program completed successfully <----<<`` Note: If you are running on multiple processors the log file for each processor is also moved from the $CMAQ_HOME/CCTM/scripts directory to the benchmark output directory: ``` $CMAQ_DATA/output_CCTM_v55_[compiler]_Bench_2018_12NE3_cb6r5_ae7_aq_m3dry ``` and these log files have the name convention: ``` CTM_LOG_[ProcessorID].v55_[compiler]_[APPL]_[YYYYMMDD] CTM_LOG_[ProcessorID].v55_gcc_Bench_2018_12NE3_cb6r5_ae7_aq_m3dry_20180702 ``` The benchmark output results will have been placed in the directory: ``` $CMAQ_DATA/output_CCTM_v55_[compiler]_Bench_2018_12NE3_cb6r5_ae7_aq_m3dry ``` and can include upto 23 netCDF-type files: ACONC, AELMO, B3GTS_S, BSOILOUT, BUDGET, CGRID, CONC, DEPV, DRYDEP, DUSTEMIS, LTNGCOL, LTNGHRLY, MEDIA_CONC, PHOTDIAG1, PHOTDIAG2, ELMO, SOILOUT, SSEMIS, VDIFF, VSED, WETDEP1, and WETDEP2. Common errors in a CCTM simulation include the following: - Incorrect paths to input files. Look in the CCTM screen output (capture in your log file) for an Error message about an input file not being found. - Incorrect MPI implementation. A series of MPI errors at the end of the log file often indicate that the MPI job was not submitted correctly. Check the last few lines of the CCTM output log for messages to help diagnose why the simulation did not complete. ## Check the CMAQ Benchmark Results To determine if CMAQ is correctly installed on your Linux system compare the results from your benchmark simulation to the reference output data downloaded from the CMAS Center. This data was generated on a Linux system with the following specifications: - Linux Kernel 3.10.0-514.el7.x86_64 - Red Hat Enterprise Linux Server 7.3 (Maipo) (use command: cat /etc/os-release) - GNU GCC compiler version 9.1.0, 16 processors with OpenMPIv4.0.1 and I/O APIv3.2 tagged version 20200828 - Debug mode turned off (```set Debug_CCTM``` commented out in $CMAQ_HOME/CCTM/scripts/bldit_cctm.csh) - CMAQv5.5 The CMAQv5.5 reference output data includes a set of CCTM_ACONC_\*.nc files with layer 1 average model species concentrations for each model hour for 226 variables and a set of CCTM_WETDEP1_\*.nc files with cumulative hourly wet deposition fluxes for an additional 136 variables. Use your netCDF evaluation tool of choice to evaluate your benchmark results. For example, [VERDI](https://www.verdi-tool.org/) is a visualization tool to view CCTM results as tile plots. Statistical comparison of the results can be made with the I/O API Tools or R. Note, even with a successful installation and run of the benchmark case, some differences between your simulation and the reference data can occur due to differences in domain decomposition for multi-processor simulations as well as differences in compiler. These differences tend to manifest in upper layers of the model and are mostly found in predicting aerosol water (AH2O) and aerosol acidity (AH3OP), while differences are smaller for other key species like ASO4, ANO3, ACL, ALOO1, etc. These species have short atmospheric lifetimes with large changes in time and space derivatives or have model physics sensitive to small changes in concentration. Predicting these species is more sensitive to small changes in machine precision and accuracy. ================================================ FILE: DOCS/Users_Guide/Tutorials/CMAQ_UG_tutorial_benchmark_cracmm2_stage.md ================================================ # CMAQ Installation & Benchmarking Tutorial for CRACMM2 Purpose: This guide describes how to install and run the CMAQ test case for the CRACMM2 mechanism with the STAGE dry deposition scheme, which serves two different purposes. The first being to familiarize the user with the CMAQ suite of programs and how they work together, and secondly to verify the installation of the software on your system via benchmarking. Benchmarking refers to a simulation that is used to verify that the software is installed correctly. Benchmarking CMAQ is recommended in the following circumstances: - Installation by a new user - Installation on a new server - Following kernel upgrades - Following compiler or system library updates ## System Checks CMAQ requires a specific hardware and software configuration. To learn about these requirements, please refer to the tutorial on [preparing your compute environment for CMAQ simulations](CMAQ_UG_tutorial_configure_linux_environment.md). ## Install CMAQ In the directory where you would like to install CMAQ, create the directory issue the following command to clone the EPA GitHub repository for CMAQv5.5: ``` git clone -b main https://github.com/USEPA/CMAQ.git CMAQ_REPO ``` For instructions on installing CMAQ from Zip files, see [Chapter 5](../CMAQ_UG_ch05_running_a_simulation.md). ## Check Out a new Branch in the CMAQ Repository Checking out a new branch is a good idea even if you are not doing code development, per se. It is likely that you will want to retrieve new updates in the future, and an easy way to do this is through the main branch in the git repo. Thus, it is beneficial to leave it unperturbed if possible. ``` cd CMAQ_REPO git checkout -b my_branch ``` ## Configure the CMAQ build environment The user has two options for building an environment. She or he may build and run CMAQ components directly in the repository structure (object files and executables will be ignored with .gitignore), or they may extract the build and run scripts out of the repository and work in a separate location. If you would like to build directly in the repository, skip to "Link the CMAQ Libraries" below. ### Build and run in a user-specified directory outside of the repository In the top level of CMAQ_REPO, the bldit_project.csh script will automatically replicate the CMAQ folder structure and copy every build and run script out of the repository so that you may modify them freely without version control. In bldit_project.csh, modify the variable $CMAQ_HOME to identify the folder that you would like to install the CMAQ package under. For example: ``` set CMAQ_HOME = [your_install_path]/CMAQ_v5.5 ``` Now execute the script. ``` ./bldit_project.csh ``` ## Link the CMAQ Libraries The CMAQ build scripts require the following libraries and INCLUDE files to be available in the CMAQ_LIB directory (Note: the CMAQ_LIB gets set automatically by the config_cmaq.csh script, where `CMAQ_LIB = $CMAQ_HOME/lib`): - netCDF C library files are located in the `$CMAQ_LIB/netcdf/lib` directory - netCDF Fortran library files are located in the `$CMAQ_LIB/netcdff/lib` directory - I/O API library, include files and module files are located in the `$CMAQ_LIB/ioapi` directory - MPI library and INCLUDE files are located in the `$CMAQ_LIB/mpi` directory The config_cmaq.csh script will automatically link the required libraries into the CMAQ_LIB directory. Set the locations of the netCDF, I/O API, and MPI installations on your Linux system with the following config_cmaq.csh environment variables: - `setenv IOAPI_INCL_DIR`: the location of the I/O API include header files on your system. - `setenv IOAPI_LIB_DIR`: the location of compiled I/O API libraries on your system. - `setenv NETCDF_LIB_DIR`: the location of the netCDF C library installation on your system. - `setenv NETCDF_INCL_DIR`: the location of the netCDF C include files on your system. - `setenv NETCDFF_LIB_DIR`: the location of the netCDF Fortran library installation on your system. - `setenv NETCDFF_INCL_DIR`: the location of the netCDF Fortran include files on your system. - `setenv MPI_LIB_DIR`: the location of the MPI (OpenMPI or MVAPICH) on your system. For example, if your netCDF C libraries are installed in /usr/local/netcdf/lib, set `NETCDF_LIB_DIR` to /usr/local/netcdf/lib. Similarly, if your I/O API library is installed in /home/cmaq/ioapi/Linux2_x86_64gfort, set `IOAPI_LIB_DIR` to /home/cmaq/ioapi/Linux2_x86_64gfort. *1.* Check the names of the I/O API and netCDF libraries using the `ioapi_lib` and `netcdf_lib` script variables. *2.* Check the name of the MPI library using the `mpi_lib` script variable. For MVAPICH use `-lmpich`; for openMPI use `-lmpi`. Links to these libraries will automatically be created when you run any of the build or run scripts. To manually create these libraries (this is optional), execute the config_cmaq.csh script, identifying the compiler in the command line [intel | gcc | pgi]: ``` source config_cmaq.csh [compiler] ``` You may also identify the version of the compiler if you wish it to be identified in build directory and executable names. This is optional. For example: ``` source config_cmaq.csh gcc 9.5 ``` ## Install the CMAQ reference input and output benchmark data Download the CMAQ two day reference input and output data for the CRACMM2 mechanism from the [AWS CMAS Data Warehouse](https://cmaq-release-benchmark-data-for-easy-download.s3.amazonaws.com/v5_5/CMAQv5.5_2018_12NE3_Benchmark_cracmm2_stage_2Day_Input.tar.gz). The CMAQ benchmark test case is a two day simulation for July 1-2 2018 on a 100 column x 105 row x 35 layer 12-km resolution domain over the northeast U.S. Copy the data to `$CMAQ_DATA`. Navigate to the `$CMAQ_DATA` directory, unzip and untar the two day benchmark input files: ``` cd $CMAQ_DATA wget https://cmaq-release-benchmark-data-for-easy-download.s3.amazonaws.com/v5_5/CMAQv5.5_2018_12NE3_Benchmark_cracmm2_stage_2Day_Input.tar.gz tar xvzf CMAQv5.4_2018_12NE3_Benchmark_2Day_Input_CRACCM2.tar.gz mkdir ref_output cd ref_output wget https://cmaq-release-benchmark-data-for-easy-download.s3.amazonaws.com/v5_5/output_CCTM_v55_gcc_Bench_2018_12NE3_cracmm2_stage.tar.gz tar -xzvf output_CCTM_v55_gcc_Bench_2018_12NE3_cracmm2_stage.tar.gz ``` ## Compiling CMAQ *Before proceeding, it should be noted that building the ICON and BCON executables are optional steps when working specifically with the benchmark data. This is because the initial condition and boundary condition files have been provided for you within the benchmark data set. For further information on these preprocessors please reference [Chapter 4](../CMAQ_UG_ch04_model_inputs.md).* Create the model executables for CCTM using the steps shown below. Create a bldit_cctm script for this benchmark and verify or modify the settings listed below. ``` cp bldit_cctm.csh bldit_cctm_cracmm2_stage.csh vi bldit_cctm_cracmm2_stage.csh ``` ##### Configuration for multi-processor runs (default): ``` set ParOpt #> Option for MPI Runs ```` ##### Configuration for single-processor runs (optional): For single-processor computing, edit the CCTM build script (bldit_cctm.csh) to indicate a single-processor run by commenting out set ParOpt as shown below. ``` #set ParOpt #> Option for Single Processor Runs ```` #### Configure CMAQ benchmark Science Modules: The build directory parameters for the benchmark test case include the following: - Multiprocessor simulation - 3-D Advection Scheme: wrf_cons - Horizontal diffusion: Multiscale - Vertical diffusion: ACM2_Stage - Deposition: STAGE - Chemistry solver: EBI - Aerosol module: cracmm - Cloud module: acm_craccm - Mechanism: cracmm2 - Inline biogenic emissions - Inline plume rise To configure these parameters, the CCTM Science Modules within the bldit_cctm.csh need to be set. The comments within the script itself should help guide the user on the options for each variable and how to set them. Further information on variable names can be found in [Appendix A](../Appendix/CMAQ_UG_appendixA_model_options.md). Modify the dry deposition scheme to use STAGE instead of M3DRY ``` #> Set Dry Deposition Scheme to Stage set DepMod = stage ``` Modify the Mechanism to use craccm2 instead of cb6r5 ``` setenv Mechanism cracmm2 #> chemical mechanism (see $CMAQ_MODEL/CCTM/src/MECHS) ``` Following the requisite changes to the CCTM build script, use the following command to create the CCTM executable: ``` cd $CMAQ_HOME/CCTM/scripts ./bldit_cctm_cracmm2_stage.csh [compiler] [version] |& tee bldit_cctm_cracmm2_stage.log ``` Verify that the BLD directory contains a namelist called ``` CMAQ_Control_STAGE.nml ``` ## Configure the CCTM script For an MPI configuration with 16 processors, ``` cd $CMAQ_HOME/CCTM/scripts ``` Edit the CCTM run script (run_cctm_Bench_2018_12NE3_CRACMM2.csh) for the MPI configuration and compiler that you will use: ``` setenv compiler gcc setenv compilerVrsn 9.5 setenv INPDIR ${CMAQ_DATA}/2018_12NE3 @ NPCOL 8 ; @ NPROW = 4 ``` Most clustered multiprocessor systems require a command to start the MPI run-time environment. The default CCTM run script uses the *mpirun* command. Consult your system administrator to find out how to invoke MPI when running multiprocessor applications. For single-processor computing, set PROC to serial: ``` set PROC = serial ``` CCTM Science Configuration Options set to **Y** in the RunScript for the benchmark case include the following: - ```CTM_OCEAN_CHEM``` - use ocean halgoen chemistry and sea spray aerosol emissions - ```KZMIN``` - minimum eddy diffusivity in each grid cell determined by land use fraction - ```PX_VERSION``` - WRF PX land surface model - ```CTM_ABFLUX``` - bidirectional ammonia flux for online deposition velocities - ```CTM_BIDI_FERT_NH3``` - subtract fertilizer NH3 from emissions because it will be handled by the BiDi calculation - ```CTM_SFC_HONO``` - surface HONO interaction - ```CTM_GRAV_SETL``` - vdiff aerosol gravitational sedmentation - ```CTM_BIOGEMIS``` - online biogenic emissions To configure these parameters, the Science Options within the $CMAQ_HOME/CCTM/scripts/run_cctm_Bench_2018_12NE3_CRACMM2.csh need to be set. The comments within the script itself should help guide the user on the options for each variable and how to set them. Further information on variable names can be found in [Appendix A](../Appendix/CMAQ_UG_appendixA_model_options.md). After configuring the MPI settings for your Linux system, check the rest of the script to ensure the correct path, date and names are used for the input data files. Per the note above, different Linux systems have different requirements for submitting MPI jobs. The command below is an example of how to submit the CCTM run script and may differ depending on the MPI requirements of your Linux system. ``` ./run_cctm_Bench_2018_12NE3_CRACMM2.csh |& tee run_cctm_Bench_2018_12NE3_CRACMM2.log ``` ## Confirm that the Benchmark Simulation Completed To confirm that the benchmark case ran to completion view the run log file. For MPI runs, check each of the CTM_LOG_[ProcessorID]*.log files. A successful run will contain the following line at the bottom of the log(s): ``>>----> Program completed successfully <----<<`` Note: If you are running on multiple processors the log file for each processor is also moved from the $CMAQ_HOME/CCTM/scripts directory to the benchmark output directory: ``` $CMAQ_DATA/output_CCTM_v55_gcc_Bench_2018_12NE3_cracmm2_stage ``` and these log files have the name convention: ``` CTM_LOG_[ProcessorID].v55_[compiler]_[APPL]_[YYYYMMDD] CTM_LOG_[ProcessorID].v55_gcc_Bench_2018_12NE3_2day_20180702 ``` The benchmark output results will have been placed in the directory: ``` $CMAQ_DATA/output_CCTM_v55_gcc_Bench_2018_12NE3_cracmm2_stage ``` and can include upto 23 netCDF-type files: ACONC, AOD_DIAG, AELMO, APMVIS, B3GTS_S, BSOILOUT, BUDGET, CGRID, CONC, DEPV, DRYDEP, DUSTEMIS, LTNGCOL, LTNGHRLY, MEDIA_CONC, PHOTDIAG1, PHOTDIAG2, ELMO, PMVIS, SOILOUT, SSEMIS, VDIFF, VSED, WETDEP1, and WETDEP2. Common errors in a CCTM simulation include the following: - Incorrect paths to input files. Look in the CCTM screen output (capture in your log file) for an Error message about an input file not being found. - Incorrect MPI implementation. A series of MPI errors at the end of the log file often indicate that the MPI job was not submitted correctly. Check the last few lines of the CCTM output log for messages to help diagnose why the simulation did not complete. ## Check the CMAQ Benchmark Results To determine if CMAQ is correctly installed on your Linux system compare the results from your benchmark simulation to the reference output data downloaded from the CMAS Center. This data was generated on a Linux system with the following specifications: - Linux Kernel 3.10.0-514.el7.x86_64 - Red Hat Enterprise Linux Server 7.3 (Maipo) (use command: cat /etc/os-release) - GNU GCC compiler version 9.1.0, 16 processors with OpenMPIv4.0.1 and I/O APIv3.2 tagged version 20200828 - Debug mode turned off (```set Debug_CCTM``` commented out in $CMAQ_HOME/CCTM/scripts/bldit_cctm.csh) - CMAQv5.5 The CMAQv5.5 reference output data includes a set of CCTM_ACONC_\*.nc files with layer 1 average model species concentrations for each model hour for 226 variables and a set of CCTM_WETDEP1_\*.nc files with cumulative hourly wet deposition fluxes for an additional 136 variables. Use your netCDF evaluation tool of choice to evaluate your benchmark results. For example, [VERDI](https://www.cmascenter.org/verdi/) is a visualization tool to view CCTM results as tile plots. Statistical comparison of the results can be made with the I/O API Tools or R. Note, even with a successful installation and run of the benchmark case, some differences between your simulation and the reference data can occur due to differences in domain decomposition for multi-processor simulations as well as differences in compiler. These differences tend to manifest in upper layers of the model and are mostly found in predicting aerosol water (AH2O) and aerosol acidity (AH3OP), while differences are smaller for other key species like ASO4, ANO3, ACL, ALOO1, etc. These species have short atmospheric lifetimes with large changes in time and space derivatives or have model physics sensitive to small changes in concentration. Predicting these species is more sensitive to small changes in machine precision and accuracy. ================================================ FILE: DOCS/Users_Guide/Tutorials/CMAQ_UG_tutorial_build_library_gcc.md ================================================ ## Install netCDF-C ### This tutorial assumes that you are using the C-shell, (csh or tcsh), GCC version 9.1.0, and OpenMPI 4.0.1 1. To enter the csh shell you can type the following at the command line: ``` csh ``` 2. To verify what shell you are in ``` echo $SHELL ``` 3. If your compute server uses modules use the following command to see what packages are available ``` module avail ``` 4. Load module environment for a compiler (Intel|GCC|PGI) and mpi package corresponding to that compiler (e.g. openmpi). ``` module load gcc9.1.0 module load openmpi_4.0.1/gcc_9.1.0 ``` 5. Create a LIBRARY directory where you would like to install the libraries required for CMAQ ``` /[your_install_path]/LIBRARIES ``` 6. Change directories to the new LIBRARIES Directory ``` cd /[your_install_path]/LIBRARIES ``` 7. Download netCDF-C from the following website https://www.unidata.ucar.edu/downloads/netcdf/index.jsp ``` wget https://github.com/Unidata/netcdf-c/archive/refs/tags/v4.8.1.tar.gz ``` 8. Untar the netCDF-C tar.gz file ``` tar -xzvf v4.8.1.tar.gz ``` 9. Change directories into the extracted directory ``` cd netcdf-c-4.8.1 ``` 10. Review the installation instructions for netcdf-c-4.7.0 for building netCDF ``` more INSTALL.md ``` 11. Create a target installation directory that includes the loaded module environment name ``` mkdir ../netcdf ``` 12. Run the configure --help command to see what settings can be used for the build. ``` ./configure --help ``` 13. Set the Compiler environment variables Make sure these compilers can be found. ``` which gfortran which gcc which g++ ``` If they are found, proceed to set the environment variables. The paths will be dependent on your compute environment If they are not found, reload your module (see above), or ask your system administrator for the paths to a compiler ``` setenv FC gfortran setenv CC gcc setenv CXX g++ ``` 14. Run the configure command ``` ./configure --prefix=$cwd/../netcdf --disable-dap ``` Building netCDF without the compression capabilities of netCDF4 can be done using the command ``` ./configure --prefix=$cwd/../netcdf --disable-netcdf-4 --disable-dap ``` This simpler installation can work for some applications, but the CMAQ ecosystem increasingly includes netCDF4 compression. For example, the cracmm1_aq 2018 benchmark and the MEGAN 3.2 preprocessor both require netCDF4. The error "Attempt to use feature that was not turned on when netCDF was built" suggests that your workflow requires netCDF4. If you need to build libraries that support netCDF4 please see tutorials for building netCDF4 in [Configuring your Environment](CMAQ_UG_tutorial_configure_linux_environment.md) 15. Check that the configure command worked correctly, then run the install command ``` make check install ``` 16. Verify that the following message is obtained ``` | Congratulations! You have successfully installed netCDF! | ``` 17. Change directories to one level up from your current directory ``` cd .. ``` ## Install netCDF-Fortran 1. Download netCDF-Fortran from the following website https://www.unidata.ucar.edu/downloads/netcdf/index.jsp ``` wget https://github.com/Unidata/netcdf-fortran/archive/refs/tags/v4.5.4.tar.gz ``` 2. Untar the tar.gz file ``` tar -xzvf v4.5.4.tar.gz ``` 3. Change directories to netcdf-fortran-4.5.4 ``` cd netcdf-fortran-4.5.4 ``` 4. Review the installation document http://www.unidata.ucar.edu/software/netcdf/docs/building_netcdf_fortran.html 5. Set the CC environment variable to use the gcc and gfortran compilers ``` which gfortran which gcc which g++ setenv FC gfortran setenv CC gcc setenv CXX g++ ``` 6. Set your LD_LIBRARY_PATH to include the netcdf-C library path for netCDF build ``` setenv NCDIR $cwd/../netcdf setenv LD_LIBRARY_PATH ${NCDIR}/lib:${LD_LIBRARY_PATH} ``` 7. Check your LD_LIBRARY_PATH ``` echo $LD_LIBRARY_PATH ``` 8. Set the install directory for netCDF fortran (note it will be the same location as the install directory for netCDF C libraries) ``` setenv NFDIR $cwd/../netcdf setenv CPPFLAGS -I${NCDIR}/include setenv LDFLAGS -L${NCDIR}/lib setenv LIBS "-lnetcdf" ``` 9. Run the configure command ``` ./configure --disable-shared --prefix=${NFDIR} ``` 10. Run the make check command ``` make check ``` Output if successful: ``` Testsuite summary for netCDF-Fortran 4.4.5 ========================================== # TOTAL: 6 # PASS: 6 ``` Note, this often fails, even if the library is ok. 11. Run the make install command ``` make install ``` Output successful if you see Libraries have been installed in the install directory ``` ls $cwd/../netcdf ``` If you ever happen to want to link against installed libraries in a given directory, LIBDIR, you must either use libtool, and specify the full pathname of the library, or use the '-LLIBDIR' flag during linking and do at least one of the following: - add LIBDIR to the 'LD_LIBRARY_PATH' environment variable during execution - add LIBDIR to the 'LD_RUN_PATH' environment variable during linking - use the '-Wl,-rpath -Wl,LIBDIR' linker flag - have your system administrator add LIBDIR to '/etc/ld.so.conf' 12. set your LD_LIBRARY_PATH to include the netcdf-Fortran library path for netCDF build ``` setenv NFDIR $cwd/../netcdf setenv LD_LIBRARY_PATH ${NFDIR}/lib:${LD_LIBRARY_PATH} ``` 13. Update the library bin directory path and LD_LIBRARY_PATH to use $NCDIR and $NFDIR to in your .cshrc. Verify the paths for $NCDIR and $NFDIR ``` echo $NCDIR echo $NFDIR ``` 14. Edit the .cshrc file in your home directory to add the paths to the libraries. Note, in this case we installed both NetCDF C and NetCDF Fortran into the same location. vi ~/.cshrc ``` # start .cshrc set $NCDIR /your_path/netcdf set $NFDIR /your_path/netcdf set path = ($path $NCDIR\bin $NFDIR\bin ) setenv LD_LIBRARY_PATH ${NCDIR}/lib:${NFDIR}/lib:${LD_LIBRARY_PATH} ``` 15. Source your updated .cshrc file by restarting the c-shell ``` csh ``` ## Install I/O API Note The complete I/O API installation guide can be found at either of the following: https://www.cmascenter.org/ioapi/documentation/all_versions/html/AVAIL.html or https://cjcoats.github.io/ioapi/AVAIL.html 1. Change directories to one level up from your current location ``` cd ../ ``` 2. Download I/O API ``` git clone https://github.com/cjcoats/ioapi-3.2 ``` 3. change directories to the ioapi-3.2 directory ``` cd ioapi-3.2 ``` 2. Change branches to 20200828 for a tagged stable version ``` git checkout -b 20200828 ``` 3. Change directories to the ioapi directory ``` cd ioapi ``` 4. copy the Makefile.nocpl file to create a Makefile ``` cp Makefile.nocpl Makefile ``` 5. Set the BIN environment variable to specify the compiler version used. This will help future users identify what compiler version is compatible with this library. ``` setenv BIN Linux2_x86_64gfort_gcc_9.1.0 ``` 6. Copy an existing Makeinclude file to have this BIN name at the end ``` cp Makeinclude.Linux2_x86_64gfort Makeinclude.Linux2_x86_64gfort_gcc_9.1.0 ``` 7. Edit the Makeinclude.Linux2_x86_64gfort_gcc_9.1.0 to comment out OMPFLAG and OMPLIBS settings. This will remove the need to link the shared memory OPENMP libraries when compiling CMAQ and WRF-CMAQ. ``` OMPFLAGS = # -fopenmp OMPLIBS = # -fopenmp ``` 8. Create a BIN directory where the library and m3tools executables will be installed ``` mkdir ../$BIN ``` 9. Link the BIN directory to a the gfort BIN directory - this step is needed for WRF-CMAQ. ``` cd ../ ln -s Linux2_x86_64gfort_gcc_9.1.0 Linux2_x86_64gfort ``` 10. Set the HOME environment variable to be your LIBRARY install directory and run the make command to compile and link the ioapi library ``` cd ioapi make 'HOME=[your_install_path]/LIBRARIES' |& tee make.log ``` 11. Change directories to the $BIN dir and verify that both the libioapi.a library was successfully built ``` cd ../$BIN ls -lrt libioapi.a ``` 12. If you need to do a make clean, to rebuild the I/O API Library, specify the HOME directory at the command line as follows ``` cd ../ioapi make 'HOME=[your_install_path]/LIBRARIES' clean ``` 12. Change directories to the m3tools directory ``` cd ../m3tools ``` 13. Copy the Makefile.nocpl to create a Makefile ``` cp Makefile.nocpl Makefile ``` 14. Edit line 65 of the Makefile to use the NCDIR and NFDIR environment variables that you have set in the above steps to locate the netcdf C and netcdf Fortran libraries ``` LIBS = -L${OBJDIR} -lioapi -L${NFDIR}/lib -lnetcdff -L${NCDIR}/lib -lnetcdf $(OMPLIBS) $(ARCHLIB) $(ARCHLIBS) ``` 15. Run make to compile the m3tools ``` make 'HOME=[your_install_path]/LIBRARIES' |& tee make.log ``` 16. Check to see that the m3tools have been installed successfully ``` cd ../$BIN ls -rlt m3xtract ``` ## Configure the CMAQ build environment The user has two options for building an environment. She or he may build and run CMAQ components directly in the repository structure (object files and executables will be ignored with .gitignore), or they may extract the build and run scripts out of the repository and work in a separate location. If you would like to build directly in the repository, skip to "Link the CMAQ Libraries" below. ### Build and run in a user-specified directory outside of the repository In the top level of CMAQ_REPO, the bldit_project.csh script will automatically replicate the CMAQ folder structure and copy every build and run script out of the repository so that you may modify them freely without version control. In bldit_project.csh, modify the variable $CMAQ_HOME to identify the folder that you would like to install the CMAQ package under. For example: ``` set CMAQ_HOME = [your_install_path]/CMAQ_v5.5 ``` Now execute the script. ``` ./bldit_project.csh ``` ## Link the CMAQ Libraries The CMAQ build scripts require the following libraries and INCLUDE files to be available in the CMAQ_LIB directory (Note: the CMAQ_LIB gets set automatically by the config_cmaq.csh script, where `CMAQ_LIB = $CMAQ_HOME/lib`): - netCDF C library files are located in the `$CMAQ_LIB/netcdf/lib` directory - netCDF Fortran library files are located in the `$CMAQ_LIB/netcdff/lib` directory - I/O API library, include files and module files are located in the `$CMAQ_LIB/ioapi` directory - MPI library and INCLUDE files are located in the `$CMAQ_LIB/mpi` directory The config_cmaq.csh script will automatically link the required libraries into the CMAQ_LIB directory. Set the locations of the netCDF, I/O API, and MPI installations on your Linux system with the following config_cmaq.csh environment variables: - `setenv IOAPI_INCL_DIR`: the location of the I/O API include header files on your system. - `setenv IOAPI_LIB_DIR`: the location of compiled I/O API libraries on your system. - `setenv NETCDF_LIB_DIR`: the location of the netCDF C library installation on your system. - `setenv NETCDF_INCL_DIR`: the location of the netCDF C include files on your system. - `setenv NETCDFF_LIB_DIR`: the location of the netCDF Fortran library installation on your system. - `setenv NETCDFF_INCL_DIR`: the location of the netCDF Fortran include files on your system. - `setenv MPI_LIB_DIR`: the location of the MPI (OpenMPI or MVAPICH) on your system. For example, if your netCDF C libraries are installed in /usr/local/netcdf/lib, set `NETCDF_LIB_DIR` to /usr/local/netcdf/lib. Similarly, if your I/O API library is installed in /home/cmaq/ioapi/Linux2_x86_64gfort, set `IOAPI_LIB_DIR` to /home/cmaq/ioapi/Linux2_x86_64gfort. *1.* Check the names of the I/O API and netCDF libraries using the `ioapi_lib` and `netcdf_lib` script variables. *2.* Check the name of the MPI library using the `mpi_lib` script variable. For MVAPICH use `-lmpich`; for openMPI use `-lmpi`. Links to these libraries will automatically be created when you run any of the build or run scripts. To manually create these libraries (this is optional), execute the config_cmaq.csh script, identifying the compiler in the command line [intel | gcc | pgi]: ``` source config_cmaq.csh [compiler] ``` You may also identify the version of the compiler if you wish it to be identified in build directory and executable names. This is optional. For example: ``` source config_cmaq.csh gcc 9.5 ``` 17. After successfull completion of this tutorial, the user is now ready to proceed to the [CMAQ Installation & Benchmarking Tutorial](./CMAQ_UG_tutorial_benchmark.md) ================================================ FILE: DOCS/Users_Guide/Tutorials/CMAQ_UG_tutorial_build_library_gcc_support_nc4.md ================================================ ## Follow these instructions to build the netCDF libraries for compressed netCDF-4, I/O API, and CMAQv5.5 This tutorial is based on these instructions: [Installing netCDF](https://www.unidata.ucar.edu/software/netcdf/documentation/NUG/getting_and_building_netcdf.html) * netCDF requires the HDF5, zlib, and curl libraries. * This Tutorial is for the gcc 11.4.1 compiler. * For gcc 10 and above, use the -fallow-argument-mismatch argument (see alternative script and instructions for gcc 10 and above) ## netCDF requires the HDF5, zlib, and curl libraries, these instructions use HDF5 1.10.5, zlib 1.3, and curl 8.11.0. This Tutorial uses libarary install scripts that were created for the gcc 11.4 compiler, there are also scripts for intel 18.2 and intel 2024. These install scripts assume that you have environment modules available on your system, and that you can use a module load command to load the compiler and openmpi version. Different scripts are provided, as different options are required, such as for gcc 10 and above, requires using the -fallow-argument-mismatch argument
When building I/O API, as of Aug. 28, 2020, there are now new BIN=Linux\*gfort10\* types and corresponding Makeinclude.Linux\*gfort10\* that incorporate this flag for the I/O API and M3Tools. Please see the I/O API documentation: https://www.cmascenter.org/ioapi/documentation/all_versions/html/AVAIL.html
The libraries can be installed using install scripts that are provided. Install the netCDF libraries and their prerequisites for the compiler version that is available on your machine. ### Create install directory ``` mkdir -p $cwd/CMAQv5.5/build ``` ### Download the install scripts for the gcc version 11.4 compiler. ``` cd $cwd/CMAQv5.5/build wget https://github.com/USEPA/CMAQ/blob/main/DOCS/Users_Guide/Tutorials/scripts/cmaq_libraries/gcc_11.4_install_netcdf_for_nc4_compression.csh wget https://github.com/USEPA/CMAQ/blob/main/DOCS/Users_Guide/Tutorials/scripts/cmaq_libraries/gcc_11.4_install_ioapi_for_nc4_compression.csh ``` Load the modules for your compiler and openmpi version and then run the library install script for the netcdf libraries. ``` module load openmpi_5.0.5/gcc_11.4.1 ``` ### Run script to install the netcdf libraries: ``` ./gcc_11.4_install_netcdf_for_nc4_compression.csh ``` ### Run script to install the I/O API Library ``` ./gcc_11.4_install_ioapi_for_nc4_compression.csh ``` Note, if you obtain the following error: ``` git clone https://github.com/cjcoats/ioapi-3.2 Cloning into 'ioapi-3.2'... fatal: unable to access 'https://github.com/cjcoats/ioapi-3.2/': Protocol "https" not supported ``` Then use module purge as there is a conflict with the modules being loaded. ``` module purge ``` Re-run the git clone ``` cd LIBRARIES_gcc git clone https://github.com/cjcoats/ioapi-3.2 cd ../ ``` Then re-run the install script above. ``` ./gcc_install_ioapi_for_nc4_compression.csh ``` If this is successful, you will see a stream of log messages including the m3tools program wrfwndw being compiled. Output ``` cd /21dayscratch/scr/l/i/lizadams/WRF-CMAQ/CMAQv5.5/build/LIBRARIES_gcc/ioapi-3.2/Linux2_x86_64gfort; gfortran -I/21dayscratch/scr/l/i/lizadams/WRF-CMAQ/CMAQv5.5/build/LIBRARIES_gcc/ioapi-3.2/ioapi -I/21dayscratch/scr/l/i/lizadams/WRF-CMAQ/CMAQv5.5/build/LIBRARIES_gcc/ioapi-3.2/Linux2_x86_64gfort -DAUTO_ARRAYS=1 -DF90=1 -DFLDMN=1 -DFSTR_L=int -DIOAPI_NO_STDOUT=1 -DNEED_ARGS=1 -O3 -ffast-math -funroll-loops -m64 -DAUTO_ARRAYS=1 -DF90=1 -DFLDMN=1 -DFSTR_L=int -DIOAPI_NO_STDOUT=1 -DNEED_ARGS=1 -c /21dayscratch/scr/l/i/lizadams/WRF-CMAQ/CMAQv5.5/build/LIBRARIES_gcc/ioapi-3.2/m3tools/wrfwndw.f90 cd /21dayscratch/scr/l/i/lizadams/WRF-CMAQ/CMAQv5.5/build/LIBRARIES_gcc/ioapi-3.2/Linux2_x86_64gfort; gfortran wrfwndw.o -L/21dayscratch/scr/l/i/lizadams/WRF-CMAQ/CMAQv5.5/build/LIBRARIES_gcc/ioapi-3.2/Linux2_x86_64gfort -lioapi -L/21dayscratch/scr/l/i/lizadams/WRF-CMAQ/CMAQv5.5/build/LIBRARIES_gcc/lib -lnetcdff -lnetcdf -lhdf5_hl -lhdf5 -lm -ldl -lz -lcurl -lnetcdf -fopenmp -dynamic -L/usr/lib64 -lm -lpthread -lc -o wrfwndw ``` ### Create a private modules Add the netCDF and I/O API modules following these instructions: [Custom Modules](https://researchcomputing.princeton.edu/support/knowledge-base/custom-modules) Example module files are available here: [Example Modules](https://cmaq-release-benchmark-data-for-easy-download.s3.amazonaws.com/index.html#v5_5/scripts/Modules/) You would need to create the same directory structure, and edit the basedir in each module file to use your local directory. Create a directory with the directory structure Modules/modulefiles/ [module name] ### Create a module for ioapi-3.2 ``` mkdir -p $cwd/Modules/modulefiles/ioapi-3.2 ``` Edit the module name file to specify the PATH and LD_LIBARY_PATH. Next, create the module file and save it to the ioapi-3.2 directory Example: ``` cat gcc-11.4 #%Module proc ModulesHelp { } { puts stderr "This module adds ioapi-3.2/gcc-11.4 to your path" } module-whatis "This module adds ioapi-3.2/gcc-11.4 to your path\n" set basedir "/proj/ie/proj/CMAS/CMAQ/CMAQv5.5/build/LIBRARIES_gcc/ioapi-3.2" prepend-path PATH "${basedir}/Linux2_x86_64gfort" prepend-path LD_LIBRARY_PATH "${basedir}/ioapi/fixed_src" ``` ### Create a module for netcdf ``` mkdir -p $cwd/Modules/modulefiles/netcdf-4.5.3-for_nc4 ``` Next, create the module file and save it to the netcdf-4.5.3-for_nc4 directory ``` cat gcc-11.4 #%Module proc ModulesHelp { } { puts stderr "This module adds netcdf-4.5.3-for_nc4/gcc-11.4 to your path" } module-whatis "This module adds netcdf-4.5.3-for_nc4/gcc-11.4 to your path\n" set basedir "/proj/ie/proj/CMAS/CMAQ/WRF-CMAQv5.5/build/LIBRARIES_gcc" prepend-path PATH "${basedir}/bin" prepend-path LD_LIBRARY_PATH "${basedir}/lib" ``` ### Add module to .cshrc Now that the module files have been created, add the following line to your .cshrc ``` module use --append /proj/ie/proj/CMAS/CMAQ/CMAQv5.5/build/Modules/modulefiles ``` ### Use module avail to see private modules ``` module avail module load netcdf-4.5.3-for_nc4/gcc-11.4 ioapi-3.2/gcc-11.4 ``` Now you should see 4 modules loaded. module list Output: ``` Currently Loaded Modules: 1) openmpi_5.0.5/gcc_11.4.1 2) netcdf-4.5.3-for_nc4/gcc-11.4 3) ioapi-3.2/gcc-11.4 ``` ### To build and run for the CRACMM2 mechanism and stage dry deposition scheme see the following tutorial [CRACMM2 and Stage Tutorial](./CMAQ_UG_tutorial_benchmark_cracmm2_stage.md) ### To build and run for the CB6r5 mechanism and m3dry deposition scheme see the following tutorial: [CMAQ Installation Tutorial for CRACMM2](./CMAQ_UG_tutorial_benchmark.md) ### To build and run WRF-CMAQ see the following tutorial [WRF-CMAQ Tutorial](./CMAQ_UG_tutorial_WRF-CMAQ_Benchmark.md) ### Note - for review only. If you have successfully installed the netCDF, I/O API libraries and CMAQ, then YOU CAN STOP HERE, otherwise, you can go over the steps manually to see where an error has occurred in the above install scripts. The following instructions go over the steps that were performed in the scripts above: ### ### unset environment variables that would conflict with this installation ### ``` unsetenv LDFLAGS unsetenv CPPFLAGS ``` 1. If your compute server uses modules use the following command to see what packages are available ``` module avail ``` 2. Load module environment for a compiler (Intel|GCC|PGI) and mpi package corresponding to that compiler (e.g. openmpi). ``` module load openmpi_5.0.5/gcc_11.4.1 ``` ## Install zlib ``` setenv INSTDIR $cwd/LIBRARIES_gcc cd $INSTDIR ``` ``` wget https://github.com/madler/zlib/releases/download/v1.3/zlib-1.3.tar.gz ``` ``` tar -xzvf zlib-1.3.tar.gz ``` ``` cd zlib-1.3 ``` ``` ./configure --prefix=${INSTDIR} make -j 4 make install |& tee make.install.log ``` ## Install curl (check first to determine if it is already installed) 1. check to see if which is installed using ``` curl --version ``` ###IF it is not installed use the following steps to install it. ``` cd ${INSTDIR} wget https://github.com/curl/curl/releases/download/curl-8_11_0/curl-8.11.0.tar.gz ``` ``` tar -xzvf curl-8.11.0.tar.gz cd curl-8.11.0 ./configure --prefix=${INSTDIR} --without-ssl --without-libpsl make |& tee make.curl.log make install |& tee make.install.curl.log ``` ## Install HDF5 ``` cd ${INSTDIR} wget https://support.hdfgroup.org/ftp/HDF5/releases/hdf5-1.10/hdf5-1.10.5/src/hdf5-1.10.5.tar.gz tar xvf hdf5-1.10.5.tar.gz rm -f hdf5-1.10.5.tar.gz cd hdf5-1.10.5 setenv LDFLAGS "-L${INSTDIR}/lib" setenv CPPFLAGS "-I${INSTDIR}/include" setenv CFLAGS "-O3" setenv FFLAGS "-O3" setenv CXXFLAGS "-O3" setenv FCFLAGS "-O3" ./configure --prefix=${INSTDIR} --enable-fortran --enable-cxx --with-zlib=${INSTDIR}/include,${INSTDIR}/lib -enable-shared --enable-hl make -j 4 |& tee make.gcc.log # make check > make.gcc.check make install |& tee make.gcc.log ``` ## Install netCDF-C 1. cd ${INSTDIR} 2. Download netCDF-C from the following website https://www.unidata.ucar.edu/downloads/netcdf/index.jsp ``` wget ftp://ftp.unidata.ucar.edu/pub/netcdf/netcdf-c-4.8.1.tar.gz ``` 3. Untar the netCDF-C tar.gz file ``` tar -xzvf netcdf-c-4.8.1.tar.gz ``` 4. Change directories into the extracted directory ``` cd netcdf-c-4.8.1 ``` 5. Review the installation instructions for netcdf-c-4.8.1 for building netCDF to support nc4 compression ``` more INSTALL.md ``` 6. Run the configure --help command to see what settings can be used for the build. ``` ./configure --help ``` 7. Set the Compiler environment variables Make sure these compilers can be found. ``` which gfortran which gcc which g++ ``` If they are found, proceed to set the environment variables. The paths will be dependent on your compute environment If they are not found, reload your module (see above), or ask your system administrator for the paths to a compiler ``` setenv FC gfortran setenv CC gcc setenv CXX g++ ``` 8. Specify the CPPFLAGS and LDFLAGS to tell netCDF where to obtain the underlying libraries, without this, netCDF may be built with a different version of the underlying libraries, leading to an error when using netCDF. ``` setenv LDFLAGS "-L${INSTDIR}/lib" setenv CPPFLAGS "-I${INSTDIR}/include" ``` 8. Run the configure command ``` ./configure --with-pic --enable-netcdf-4 --enable-shared --prefix=${INSTALL_DIR} ``` 9. Check that the configure command worked correctly, then run the install command ``` make |& tee make.gcc9.log make install ``` 10. Verify that the following message is obtained ``` | Congratulations! You have successfully installed netCDF! | ``` ## Install netCDF-Fortran 1. Change directories ``` cd $INSTDIR ``` 2. Download netCDF-Fortran from the following website https://www.unidata.ucar.edu/downloads/netcdf/index.jsp ``` wget ftp://ftp.unidata.ucar.edu/pub/netcdf/netcdf-fortran-4.5.3.tar.gz ``` 3. Untar the tar.gz file ``` tar -xzvf netcdf-fortran-4.5.3.tar.gz ``` 4. Change directories to netcdf-fortran-4.5.3 ``` cd netcdf-fortran-4.5.3 ``` 5. Review the installation document http://www.unidata.ucar.edu/software/netcdf/docs/building_netcdf_fortran.html 6. Set the CC environment variable to use the gcc and gfortran compilers ``` which gfortran which gcc which g++ setenv FC gfortran setenv CC gcc setenv CXX g++ ``` 7. Set your LD_LIBRARY_PATH to include the netcdf-C library path for netCDF build ``` setenv LIBS "-L${INSTDIR}/lib -lnetcdf -lhdf5_hl -lhdf5 libhdf5_fortran libhdf5_fortran_hl -lm -ldl -lz -lcurl " setenv NCDIR ${INSTDIR} setenv CPPFLAGS "-I${INSTDIR}/include" setenv LDFLAGS "-L${INSTDIR}/lib" setenv LD_LIBRARY_PATH ${INSTDIR}/lib:${LD_LIBRARY_PATH} ``` 8. Check your LD_LIBRARY_PATH ``` echo $LD_LIBRARY_PATH ``` 9. Run the configure command ``` ./configure --with-pic --enable-shared --prefix=${INSTDIR} ``` 10. Run the make check command ``` make check ``` Output if successful: ``` Testsuite summary for netCDF-Fortran 4.4.5 ========================================== # TOTAL: 6 # PASS: 6 ``` 11. Run the make install command ``` make install ``` Output successful if you see Libraries have been installed in the install directory ``` ls ${INSTALL_DIR}/lib ``` If you ever happen to want to link against installed libraries in a given directory, LIBDIR, you must either use libtool, and specify the full pathname of the library, or use the '-LLIBDIR' flag during linking and do at least one of the following: - add LIBDIR to the 'LD_LIBRARY_PATH' environment variable during execution - add LIBDIR to the 'LD_RUN_PATH' environment variable during linking - use the '-Wl,-rpath -Wl,LIBDIR' linker flag - have your system administrator add LIBDIR to '/etc/ld.so.conf' 12. set your LD_LIBRARY_PATH to include the netcdf-Fortran library path for netCDF build ``` setenv NFDIR ${INSTALL_DIR} setenv LD_LIBRARY_PATH ${NFDIR}/lib:${LD_LIBRARY_PATH} ``` (may need to add the NCDIR and NFDIR to .cshrc) ## Install I/O API Note The complete I/O API installation guide can be found at either of the following: https://www.cmascenter.org/ioapi/documentation/all_versions/html/AVAIL.html or https://cjcoats.github.io/ioapi/AVAIL.html 1. Change directories to one level up from your current location ``` cd ../ ``` 2. Download I/O API ``` git clone https://github.com/cjcoats/ioapi-3.2 ``` 3. change directories to the ioapi-3.2 directory ``` cd ioapi-3.2 ``` 4. Change branches to 20200828 for a tagged stable version ``` git checkout -b 20200828 ``` 5. Change directories to the ioapi directory ``` cd ioapi ``` 6. copy the Makefile.nocpl file to create a Makefile ``` cp Makefile.nocpl Makefile ``` 7. Set the BIN environment variable ``` setenv BIN Linux2_x86_64gfort ``` 8. Edit the Makeinclude.Linux2_x86_64gfort to comment out OMPFLAG and OMPLIBS settings. This will remove the need to link the shared memory OPENMP libraries when compiling CMAQ and WRF-CMAQ. ``` OMPFLAGS = #-fopenmp OMPLIBS = # -fopenmp ``` 10. Create a BIN directory where the library and m3tools executables will be installed ``` mkdir ../$BIN ``` 11. Set the HOME environment variable to be your LIBRARY install directory and run the make command to compile and link the ioapi library ``` cd ioapi make 'HOME=[your_install_path]/LIBRARIES' |& tee make.log ``` 12. Change directories to the $BIN dir and verify that both the libioapi.a library was successfully built ``` cd ../$BIN ls -lrt libioapi.a ``` 13. If you need to do a make clean, to rebuild the I/O API Library, specify the HOME directory at the command line as follows ``` cd ../ioapi make 'HOME=[your_install_path]/LIBRARIES' clean ``` 14. Change directories to the m3tools directory ``` cd ../m3tools ``` 15. Copy the Makefile.nocpl to create a Makefile ``` cp Makefile.nocpl Makefile ``` 16. Edit line 65 of the Makefile to use the NCDIR and NFDIR environment variables that you have set in the above steps to locate the netcdf C and netcdf Fortran libraries ``` LIBS = -L${OBJDIR} -lioapi -L${NFDIR}/lib -lnetcdff -L${NCDIR}/lib -lnetcdf $(OMPLIBS) $(ARCHLIB) $(ARCHLIBS) ``` 17. Run make to compile the m3tools ``` make |& tee make.log ``` 18. Check to see that the m3tools have been installed successfully ``` cd ../$BIN ls -rlt m3xtract ``` 20. Use test script to verify that the executables are working ``` make test ``` ## Install CMAQv55 1. Download the CMAQv55 code using the following ``` git clone -b 55 https://github.com/USEPA/CMAQ/cmaq.git CMAQ_REPO ``` 2. Build and run in a user-specified directory outside of the repository In the top level of CMAQ_REPO, the bldit_project.csh script will automatically replicate the CMAQ folder structure and copy every build and run script out of the repository so that you may modify them freely without version control. In bldit_project.csh, modify the variable $CMAQ_HOME to identify the folder that you would like to install the CMAQ package under. For example: set CMAQ_HOME = [your_work_location]/CMAQv55 Now execute the script. ``` ./bldit_project.csh ``` 3. Edit the config_cmaq.csh to specify the netCDF C, netCDF Fortran, and I/O API Library locations ``` cd [your_work_location]/CMAQv55 vi config_cmaq.csh ``` Edit the case gcc section note, the paths need to be edited to match the location for your installation ``` #> gfortran compiler............................................................ case gcc: #> I/O API and netCDF for WRF-CMAQ setenv NCDIR /your_local_path/LIBRARIES/ # C netCDF install path setenv NFDIR /your_local_path/LIBRARIES/ # Fortran netCDF install path for CMAQ setenv NETCDF /your_local_path/LIBRARIES/ # Note only for WRF-CMAQ as it requires combining the netcdf C and netcdf F into a single directory. CMAQ users - dont change this setting setenv IOAPI /your_local_path/LIBRARIES/ioapi-3.2/ # I/O API setenv WRF_ARCH 34 # [1-75] Optional, ONLY for WRF-CMAQ #> I/O API, netCDF, and MPI library locations setenv IOAPI_INCL_DIR ${IOAPI}/ioapi/fixed_src #> I/O API include header files setenv IOAPI_LIB_DIR ${IOAPI}/Linux2_x86_64gfort #> I/O API libraries if ( $NETCDF == "netcdf_combined_directory_path" ) then setenv NETCDF_LIB_DIR ${NCDIR}/lib #> netCDF C directory path setenv NETCDF_INCL_DIR ${NCDIR}/include #> netCDF C directory path setenv NETCDFF_LIB_DIR ${NFDIR}/lib #> netCDF Fortran directory path setenv NETCDFF_INCL_DIR ${NFDIR}/include #> netCDF Fortran directory path endif setenv MPI_INCL_DIR /nas/sycamore/apps/openmpi/5.0.5/include #> MPI Include directory path setenv MPI_LIB_DIR /nas/sycamore/apps/openmpi/5.0.5/lib #> MPI Lib directory path ``` 4. Source the config_cmaq.csh to create the lib directory ``` source config_cmaq.csh ``` 5. Copy the buildit script ``` cp bldit_cctm.csh bldit_cctmv55_cb6r5_m3dry/ ``` 6. Build CMAQv55 to support the cb6r5 and m3dry dry deposition option ``` ./bldit_cctmv55_cb6r5_m3dry.csh gcc | & tee ./bldit_cctmv55_cb6r5_m3dry.log ``` 7. Build the POST processing routines ``` cd POST/combine/ ./bldit_combine.csh gcc |& tee ./bldit_combine.gcc.log ``` ``` cd POST/calc_tmetric/scripts ./bldit_calc_tmetric.csh gcc |& tee ./bldit_calc_tmetric.gcc.log ``` ``` cd POST/hr2day/scripts ./bldit_hr2day.csh gcc |& tee ./bldit_hr2day.gcc.log ``` ``` cd POST/bldoverlay/scripts ./bldit_bldoverlay.csh gcc |& tee ./bldit_bldoverlay.gcc.log ``` ## Modify Benchmark Post-processing Scripts for your installation 1. The POST/combine directory is available under the CMAQv55 directory. These scripts will need to be edited ``` run_combine.csh ``` 2. Edit the scripts under to specify the APPL for this benchmark ``` set APPL = Bench_2018_12NE3 #> Application Name (e.g. Gridname) ``` 3. Edit the start and end date. ``` set START_DATE = "2016-07-01" #> beginning date (July 1, 2016) set END_DATE = "2016-07-14" #> ending date (July 14, 2016) ``` After successfull completion of this tutorial, the user is now ready to proceed to the [CMAQ Installation & Benchmarking Tutorial](./CMAQ_UG_tutorial_benchmark.md). ================================================ FILE: DOCS/Users_Guide/Tutorials/CMAQ_UG_tutorial_build_library_intel.md ================================================ ## Install netCDF-C 1. Download netCDF-C from the following website https://www.unidata.ucar.edu/downloads/netcdf/index.jsp ``` wget ftp://ftp.unidata.ucar.edu/pub/netcdf/netcdf-c-4.7.0.tar.gz ``` 2. Untar the file ``` tar -xzvf netcdf-c-4.7.0.tar.gz ``` 3. Change directories into the package ``` cd netcdf-c-4.7.0 ``` 3. Verify that no modules are currently loaded using module commands. ``` module list ``` 4. See what modules are available on your compute server use the command: ``` module avail ``` 5. Load module environment for a compiler (Intel|GCC|PGI) and mpi package corresponding to that compiler (e.g. openmpi). ``` module load intel18.2 module load openmpi_3.1.4/intel_18.2 ``` 6. Review the installation instructions for netcdf-c-4.7.0 for building netCDF ``` more INSTALL.md ``` 7. Create a target installation directory that includes the loaded module environment name. ``` mkdir $cwd/netcdf-c-4.7.0-intel18.2 ``` 8. Run the configure --help command to see what settings can be used for the build. ``` ./configure --help ``` 9. Set the Compiler environment variables First find the path to the CC compiler on your system using the which command ``` which icc ``` Next, replace the following path in the setenv command below to use the path to your CC compiler ``` setenv CC /urs/local/apps/intel/18.2/bin/icc ``` Find the path to the Fortran compiler on your ssystem using the which command ``` which ifort ``` Next, replace the following path in the setenv command below to use the path to the Fortran compiler on your system ``` setenv FC /urs/local/apps/intel/18.2/bin/ifort ``` Find the path to the CXX compiler on your system using the which command ``` which icpc ``` Next, replace the following path in the setenv command below to use the path to the CXX compiler on your system: ``` setenv CXX /urs/local/apps/intel/18.2/bin/icpc ``` 10. Run the configure command ``` ./configure --prefix=$cwd/../netcdf --disable-dap ``` Building netCDF without the compression capabilities of netCDF4 can be done using the command ``` ./configure --prefix=$cwd/../netcdf --disable-netcdf-4 --disable-dap ``` This simpler installation can work for some applications, but the CMAQ ecosystem increasingly includes netCDF4 compression. For example, the cracmm1_aq 2018 benchmark and the MEGAN 3.2 preprocessor both require netCDF4. The error "Attempt to use feature that was not turned on when netCDF was built" suggests that your workflow requires netCDF4. If you need to build libraries that support netCDF4 please see tutorials for building netCDF4 in [Configuring your Environment](CMAQ_UG_tutorial_configure_linux_environment.md) 11. Check that the configure command worked correctly ``` make check install |& tee make.install.log.txt ``` 12. Verify that the following message is obtained at the end of your make.install.log.txt file ``` | Congratulations! You have successfully installed netCDF! | ``` ## Install netCDF-Fortran 1. Download netCDF-Fortran from the following website https://www.unidata.ucar.edu/downloads/netcdf/index.jsp ``` wget ftp://ftp.unidata.ucar.edu/pub/netcdf/netcdf-fortran-4.4.5.tar.gz ``` 2. Untar the tar.gz file ``` tar -xzvf netcdf-fortran-4.4.5.tar.gz ``` 3. Change directories to netcdf-fortran-4.4.5 ``` cd netcdf-fortran-4.4.5 ``` 4. Make an install directory that matches the name of your loaded module environment ``` mkdir $cwd/netcdf-fortran-4.4.5-intel18.2 ``` 5. Review the installation document http://www.unidata.ucar.edu/software/netcdf/docs/building_netcdf_fortran.html 6. Set the environment variable NCDIR ``` setenv NCDIR $cwd/netcdf-c-4.7.0-intel18.2 ``` 7. Set the CC environment variable to use the intel compilers First find the path to the CC compiler on your system using the which command ``` which icc ``` Next, replace the following path in the setenv command below to use the path to your CC compiler ``` setenv CC /urs/local/apps/intel/18.2/bin/icc ``` Find the path to the Fortran compiler on your ssystem using the which command ``` which ifort ``` Next, replace the following path in the setenv command below to use the path to the Fortran compiler on your system ``` setenv FC /urs/local/apps/intel/18.2/bin/ifort ``` Find the path to the CXX compiler on your system using the which command ``` which icpc ``` Next, replace the following path in the setenv command below to use the path to the CXX compiler on your system: ``` setenv CXX /urs/local/apps/intel/18.2/bin/icpc ``` 8. Set your LD_LIBRARY_PATH to include the netcdf-C library path for netCDF build ``` setenv NCDIR /home/netcdf-c-4.7.0-intel18.2 setenv LD_LIBRARY_PATH ${NCDIR}/lib:${LD_LIBRARY_PATH} ``` 9. Check your LD_LIBRARY_PATH ``` echo $LD_LIBRARY_PATH ``` 10. Set the install directory for netCDF fortran ``` setenv NFDIR /home/netcdf-fortran-4.4.5-intel18.2 setenv CPPFLAGS -I${NCDIR}/include setenv LDFLAGS -L${NCDIR}/lib ``` 11. check your LD_LIBRARY_PATH environment variable ``` echo $LD_LIBRARY_PATH ``` 12. Run the configure command ``` ./configure --prefix=${NFDIR} ``` 13. Run the make check command ``` make check |& tee make.check.log.txt ``` Output if successful: ``` Testsuite summary for netCDF-Fortran 4.4.5 ========================================== # TOTAL: 6 # PASS: 6 ``` 14. Run the make install command ``` make install |& tee ./make.install.log.txt ``` Output successful if you see: ``` Libraries have been installed in: /home/netcdf-fortran-4.4.5-intel18.2 If you ever happen to want to link against installed libraries in a given directory, LIBDIR, you must either use libtool, and specify the full pathname of the library, or use the '-LLIBDIR' flag during linking and do at least one of the following: - add LIBDIR to the 'LD_LIBRARY_PATH' environment variable during execution - add LIBDIR to the 'LD_RUN_PATH' environment variable during linking - use the '-Wl,-rpath -Wl,LIBDIR' linker flag - have your system administrator add LIBDIR to '/etc/ld.so.conf' ``` 15. set your LD_LIBRARY_PATH to include the netcdf-Fortran library path for netCDF build ``` setenv NFDIR /home/netcdf-fortran-4.4.5-intel18.2 setenv LD_LIBRARY_PATH ${NFDIR}/lib:${LD_LIBRARY_PATH} ``` (may need to add the NCDIR and NFDIR to .cshrc) ## Install I/O API Note The complete I/O API installation guide can be found at either of the following: https://www.cmascenter.org/ioapi/documentation/all_versions/html/AVAIL.html or https://cjcoats.github.io/ioapi/AVAIL.html 1. Download I/O API ``` git clone https://github.com/cjcoats/ioapi-3.2 cd ioapi-3.2 ! change directory to ioapi-3.2 git checkout -b 20200828 ! change branch to 20200828 for a tagged release version ``` 2. Change the BIN setting on line 133 of the Makefile to include the loaded module name cd ioapi gedit Makefile ``` BIN = Linux2_x86_64ifort_openmpi_3.1.4_intel18.2 ``` 3. Change the NCFLIBS setting on line 141 of the Makefile to be ``` NCFLIBS = -lnetcdff -lnetcdf ``` 4. Copy an existing Makeinclude file to have this BIN name at the end ``` cd ioapi cp Makeinclude.Linux2_x86_64ifort Makeinclude.Linux2_x86_64ifort_openmpi_3.1.4_intel18.2 ``` 5. Edit the Makeinclude file, lines 27 and 28 to comment out the openmmp flag ``` OMPFLAGS = # -qopenmp OMPLIBS = # -qopenmp ``` 6. Set the environment variable BIN ``` setenv BIN Linux2_x86_64ifort_openmpi_3.1.4_intel18.2 ``` 7. Create a BIN directory under the ioapi-3.2 directory ``` cd .. mkdir $BIN ``` 8. Create a link to this $BIN directory for WRF-CMAQ ``` ln -s Linux2_x86_64ifort_openmpi_3.1.4_intel18.2 Linux2_x86_64ifort ``` 9. Link the netcdf-C and netcdf-Fortran library in the $BIN directory ``` cd $BIN ln -s /home/netcdf-c-4.7.0-intel18.2/libnetcdff.a ln -s /home/netcdf-fortran-4.4.5-intel18.2/libnetcdf.a ``` 10. Run the make command, specifying the location of the ioapi-3.2 directory path to compile and link the ioapi library ``` cd ioapi make 'HOME=[your_install_path]/LIBRARIES' |& tee make.log ``` 11. Change directories to the $BIN dir and verify that both the libioapi.a and the m3tools were successfully built ``` cd $BIN ls -lrt libioapi.a ls -rlt m3xtract ``` 12. If you need to do a make clean, to rebuild the I/O API Library, specify the HOME directory at the command line as follows ``` cd ../ioapi make 'HOME=[your_install_path]/LIBRARIES' clean ``` 13. After successfull completion of this tutorial, the user is now ready to proceed to the [CMAQ Installation & Benchmarking Tutorial](./CMAQ_UG_tutorial_benchmark.md). ================================================ FILE: DOCS/Users_Guide/Tutorials/CMAQ_UG_tutorial_build_library_intel_support_nc4.md ================================================ ## Follow these instructions to build the netCDF libraries for compressed netCDF-4, I/O API, and CMAQv5.5 This tutorial is based on these instructions: [Installing NetCDF](https://www.unidata.ucar.edu/software/netcdf/documentation/NUG/getting_and_building_netcdf.html) * netCDF requires the HDF5, zlib, and curl libraries. * This Tutorial is for the intel 2024.2.1 compiler. ## netCDF requires the HDF5, zlib, and curl libraries, these instructions use HDF5 1.14.3, zlib 1.3, and curl 8.11.1. This Tutorial uses library install scripts that were created for the intel 2024.2.1 compiler that uses ifx instead of ifort, there are also scripts for gcc 11.2. These install scripts assume that you have environment modules available on your system, and that you can use a module load command to load the compiler and openmpi version. Different scripts are provided, as different options are required, such as for gcc 10 and above, requires using the -fallow-argument-mismatch argument
The libraries can be installed using install scripts that are provided. Install the netCDF libraries and their prerequisites for the compiler version that is available on your machine. ### Create install directory ``` mkdir -p $cwd/CMAQv5.5/build ``` ### Download the install scripts for the intel 2024 compiler. ``` cd $cwd/CMAQv5.5/build wget https://github.com/USEPA/CMAQ/blob/main/DOCS/Users_Guide/Tutorials/scripts/cmaq_libraries/intel_2024_install_netcdf_for_nc4_compression.csh wget https://github.com/USEPA/CMAQ/blob/main/DOCS/Users_Guide/Tutorials/scripts/cmaq_libraries/intel_2024_install_ioapi_for_nc4_compression.csh ``` Load the modules for your compiler then run the library install script for the netcdf libraries. ``` module load intel/2024.2.1 ``` ### Run script to install the netcdf libraries: ``` ./intel_2024_install_netcdf_for_nc4_compression.csh ``` ### Run script to install the I/O API Library ``` ./intel_2024_install_ioapi_for_nc4_compression.csh ``` Note, if you obtain the following error: ``` git clone https://github.com/cjcoats/ioapi-3.2 Cloning into 'ioapi-3.2'... fatal: unable to access 'https://github.com/cjcoats/ioapi-3.2/': Protocol "https" not supported ``` Then you will unload any modules using module purge. Then the git clone command should work.
``` module purge cd LIBRARIES_intel git clone https://github.com/cjcoats/ioapi-3.2 cd .. ``` After the git clone has been successful then reload the modules ``` module load intel/2024.2.1 ``` Then re-run the install script above. ``` ./intel_2024_install_ioapi_for_nc4_compression.csh ``` If this is successful, you will see a stream of log messages including the m3tools program wrfwndw being compiled. Output ``` cd /proj/ie/proj/CMAS/CMAQ/CMAQv5.5/build_sycamore/LIBRARIES_intel/ioapi-3.2/Linux2_x86_64ifx; ifx -auto -warn notruncated_source -Bstatic -static-intel -I/proj/ie/proj/CMAS/CMAQ/CMAQv5.5/build_sycamore/LIBRARIES_intel/ioapi-3.2/ioapi -I/proj/ie/proj/CMAS/CMAQ/CMAQv5.5/build_sycamore/LIBRARIES_intel/ioapi-3.2/Linux2_x86_64ifx -DIOAPI_NCF4=1 -DAUTO_ARRAYS=1 -DF90=1 -DFLDMN=1 -DFSTR_L=int -DIOAPI_NO_STDOUT=1 -DAVOID_FLUSH=1 -DBIT32=1 -O3 -unroll -stack-temps -safe-cray-ptr -convert big_endian -assume byterecl -traceback -DIOAPI_NCF4=1 -DAUTO_ARRAYS=1 -DF90=1 -DFLDMN=1 -DFSTR_L=int -DIOAPI_NO_STDOUT=1 -DAVOID_FLUSH=1 -DBIT32=1 -c /proj/ie/proj/CMAS/CMAQ/CMAQv5.5/build_sycamore/LIBRARIES_intel/ioapi-3.2/m3tools/wrfwndw.f90 cd /proj/ie/proj/CMAS/CMAQ/CMAQv5.5/build_sycamore/LIBRARIES_intel/ioapi-3.2/Linux2_x86_64ifx; ifx -auto -warn notruncated_source -Bstatic -static-intel wrfwndw.o -L/proj/ie/proj/CMAS/CMAQ/CMAQv5.5/build_sycamore/LIBRARIES_intel/ioapi-3.2/Linux2_x86_64ifx -lioapi -L/proj/ie/proj/CMAS/CMAQ/CMAQv5.5/build_sycamore/LIBRARIES_intel/lib -lnetcdff -lnetcdf -lhdf5_hl -lhdf5 -lm -lcurl -lz -lsz -ldl -lm -lnetcdf -qopenmp -shared-intel -o wrfwndw ifx: command line warning #10121: overriding '-static-intel' with '-shared-intel' ``` ### Create a custom module Add the netCDF and I/O API modules following these instructions: [Custom Modules](https://researchcomputing.princeton.edu/support/knowledge-base/custom-modules) Example module files are available here: [Example Modules](https://cmaq-release-benchmark-data-for-easy-download.s3.amazonaws.com/index.html#v5_5/scripts/Modules/) You would need to create the same directory structure, and edit the basedir in each module file to use your local directory. Create a directory with the directory structure Modules/modulefiles/ [module name] ### Create a module for ioapi-3.2 ``` mkdir -p $cwd/Modules/modulefiles/ioapi-3.2 ``` Edit the module name file to specify the PATH and LD_LIBARY_PATH. Next, create the module file named intel-2024 and save it to the ioapi-3.2 directory Example: ``` cat intel-2024 ``` output: ``` #%Module proc ModulesHelp { } { puts stderr "This module adds ioapi-3.2/intel-2024 to your path" } module-whatis "This module adds ioapi-3.2/intel-2024 to your path\n" set basedir "/proj/ie/proj/CMAS/CMAQ/CMAQv5.5/build_sycamore/LIBRARIES_intel/ioapi-3.2" prepend-path PATH "${basedir}/Linux2_x86_64ifx" prepend-path LD_LIBRARY_PATH "${basedir}/ioapi/fixed_src" ``` ### Create a module for netcdf ``` mkdir -p $cwd/Modules/modulefiles/netcdf-4.5.3-for_nc4 ``` Next, create the module file and save it to the netcdf-4.5.3-for_nc4 directory ``` cat ifort-2024.2.1 ``` output: ``` #%Module proc ModulesHelp { } { puts stderr "This module adds netcdf-4.5.3-for_nc4/ifort-2024.2.1 to your path" } module-whatis "This module adds netcdf-4.5.3-for_nc4/ifort-2024.2.1 to your path\n" set basedir "/proj/ie/proj/CMAS/CMAQ/CMAQv5.5/build_sycamore/LIBRARIES_intel/" prepend-path PATH "${basedir}/bin" prepend-path LD_LIBRARY_PATH "${basedir}/lib" module load intel/2024.2.1 ``` ### Add module to .cshrc Now that the module files have been created, add the following line to your .cshrc ``` module use --append /proj/ie/proj/CMAS/CMAQ/CMAQv5.5/build/Modules/modulefiles ``` ### Use module avail to see custom modules, and then load them ``` module avail module load netcdf-4.5.3-for_nc4/ifort-2024.2.1 ioapi-3.2/intel-2024 ``` Now you should see 3 modules loaded. ``` module list ``` Output: ``` Currently Loaded Modules: 1) intel/2024.2.1 2) netcdf-4.5.3-for_nc4/ifort-2024.2.1 3) ioapi-3.2/intel-2024 ``` ### To build and run for the CRACMM2 mechanism and stage dry deposition scheme see the following tutorial: [CMAQ Installation Tutorial for CRACMM2](CMAQ_UG_tutorial_benchmark_cracmm2_stage.md) ### To build and run for the CB6r5 mechanism and m3dry deposition scheme see the following tutorial: [CMAQ Installation Tutorial for CRACMM2](CMAQ_UG_tutorial_benchmark.md) ### To build and run WRF-CMAQ see the following tutorial [WRF-CMAQ Installation Tutorial](CMAQ_UG_tutorial_WRF-CMAQ_Benchmark.md) ### Note - for review only. If you have successfully installed the netCDF, I/O API libraries and CMAQ, then YOU CAN STOP HERE, otherwise, you can go over the steps manually to see where an error has occurred in the above install scripts. The following instructions go over the steps that were performed in the scripts above: ### ### unset environment variables that would conflict with this installation ### ``` unsetenv LDFLAGS unsetenv CPPFLAGS ``` 1. If your compute server uses modules use the following command to see what packages are available ``` module avail ``` 2. Load module environment for a compiler (Intel|GCC|PGI) and mpi package corresponding to that compiler (e.g. openmpi). Note, that mpirun is available with the intel 2024 compiler, so there isn't another module that needs to be loaded. ``` module load intel/2024.2.1 ``` ## Install zlib ``` setenv INSTDIR $cwd/LIBRARIES_intel cd $INSTDIR ``` ``` wget https://github.com/madler/zlib/releases/download/v1.3/zlib-1.3.tar.gz ``` ``` tar -xzvf zlib-1.3.tar.gz ``` ``` cd zlib-1.3 ``` ``` ./configure --prefix=${INSTDIR} make -j 4 make install |& tee make.install.log ``` ## Install curl (check first to determine if it is already installed) 1. check to see if which is installed using ``` curl --version ``` ###IF it is not installed use the following steps to install it. ``` cd ${INSTDIR} wget https://github.com/curl/curl/releases/download/curl-8_11_0/curl-8.11.0.tar.gz ``` ``` tar -xzvf curl-8.11.0.tar.gz cd curl-8.11.0 ./configure --prefix=${INSTDIR} --without-ssl --without-libpsl make |& tee make.curl.log make install |& tee make.install.curl.log ``` ## Install HDF5 ``` cd ${INSTDIR} wget https://support.hdfgroup.org/ftp/HDF5/releases/hdf5-1.10/hdf5-1.10.5/src/hdf5-1.10.5.tar.gz tar xvf hdf5-1.10.5.tar.gz rm -f hdf5-1.10.5.tar.gz cd hdf5-1.10.5 setenv LDFLAGS "-L${INSTDIR}/lib" setenv CPPFLAGS "-I${INSTDIR}/include" setenv CFLAGS "-O3" setenv FFLAGS "-O3" setenv CXXFLAGS "-O3" setenv FCFLAGS "-O3" ./configure --prefix=${INSTDIR} --enable-fortran --enable-cxx --with-zlib=${INSTDIR}/include,${INSTDIR}/lib -enable-shared --enable-hl make -j 4 |& tee make.intel.log # make check > make.intel.check make install |& tee make.intel.log ``` ## Install netCDF-C 1. cd ${INSTDIR} 2. Download netCDF-C from the following website https://www.unidata.ucar.edu/downloads/netcdf/index.jsp ``` wget ftp://ftp.unidata.ucar.edu/pub/netcdf/netcdf-c-4.8.1.tar.gz ``` 3. Untar the netCDF-C tar.gz file ``` tar -xzvf netcdf-c-4.8.1.tar.gz ``` 4. Change directories into the extracted directory ``` cd netcdf-c-4.8.1 ``` 5. Review the installation instructions for netcdf-c-4.8.1 for building netCDF to support nc4 compression ``` more INSTALL.md ``` 6. Run the configure --help command to see what settings can be used for the build. ``` ./configure --help ``` 7. Set the Compiler environment variables Make sure these compilers can be found. ``` which icx which ifx which icpx ``` If they are found, proceed to set the environment variables. The paths will be dependent on your compute environment If they are not found, reload your module (see above), or ask your system administrator for the paths to a compiler ``` setenv FC ifx setenv CC icx setenv CXX icpx ``` 8. Specify the CPPFLAGS and LDFLAGS to tell netCDF where to obtain the underlying libraries, without this, netCDF may be built with a different version of the underlying libraries, leading to an error when using netCDF. ``` setenv LDFLAGS "-L${INSTDIR}/lib" setenv CPPFLAGS "-I${INSTDIR}/include" ``` 8. Run the configure command ``` ./configure --with-pic --enable-netcdf-4 --enable-shared --prefix=${INSTALL_DIR} ``` 9. Check that the configure command worked correctly, then run the install command ``` make |& tee make.intel.log make install ``` 10. Verify that the following message is obtained ``` | Congratulations! You have successfully installed netCDF! | ``` ## Install netCDF-Fortran 1. Change directories ``` cd $INSTDIR ``` 2. Download netCDF-Fortran from the following website https://www.unidata.ucar.edu/downloads/netcdf/index.jsp ``` wget ftp://ftp.unidata.ucar.edu/pub/netcdf/netcdf-fortran-4.5.3.tar.gz ``` 3. Untar the tar.gz file ``` tar -xzvf netcdf-fortran-4.5.3.tar.gz ``` 4. Change directories to netcdf-fortran-4.5.3 ``` cd netcdf-fortran-4.5.3 ``` 5. Review the installation document http://www.unidata.ucar.edu/software/netcdf/docs/building_netcdf_fortran.html 6. Set the CC environment variable to use the ifx and icx (intel 2024) compilers ``` which ifx which icx which icpx setenv FC ifx setenv CC icx setenv CXX icpx ``` 7. Set your LD_LIBRARY_PATH to include the netcdf-C library path for netCDF build ``` setenv LIBS "-L${INSTDIR}/lib -lnetcdf -lhdf5_hl -lhdf5 libhdf5_fortran libhdf5_fortran_hl -lm -ldl -lz -lcurl " setenv NCDIR ${INSTDIR} setenv CPPFLAGS "-I${INSTDIR}/include" setenv LDFLAGS "-L${INSTDIR}/lib" setenv LD_LIBRARY_PATH ${INSTDIR}/lib:${LD_LIBRARY_PATH} ``` 8. Check your LD_LIBRARY_PATH ``` echo $LD_LIBRARY_PATH ``` 9. Run the configure command ``` ./configure --with-pic --enable-shared --prefix=${INSTDIR} ``` 10. Run the make check command ``` make check ``` Output if successful: ``` Testsuite summary for netCDF-Fortran 4.4.5 ========================================== # TOTAL: 6 # PASS: 6 ``` 11. Run the make install command ``` make install ``` Output successful if you see Libraries have been installed in the install directory ``` ls ${INSTALL_DIR}/lib ``` If you ever happen to want to link against installed libraries in a given directory, LIBDIR, you must either use libtool, and specify the full pathname of the library, or use the '-LLIBDIR' flag during linking and do at least one of the following: - add LIBDIR to the 'LD_LIBRARY_PATH' environment variable during execution - add LIBDIR to the 'LD_RUN_PATH' environment variable during linking - use the '-Wl,-rpath -Wl,LIBDIR' linker flag - have your system administrator add LIBDIR to '/etc/ld.so.conf' 12. set your LD_LIBRARY_PATH to include the netcdf-Fortran library path for netCDF build ``` setenv NFDIR ${INSTALL_DIR} setenv LD_LIBRARY_PATH ${NFDIR}/lib:${LD_LIBRARY_PATH} ``` (may need to add the NCDIR and NFDIR to .cshrc) ## Install I/O API Note The complete I/O API installation guide can be found at either of the following: https://www.cmascenter.org/ioapi/documentation/all_versions/html/AVAIL.html or https://cjcoats.github.io/ioapi/AVAIL.html 1. Change directories to one level up from your current location ``` cd ../ ``` 2. Download I/O API ``` git clone https://github.com/cjcoats/ioapi-3.2 ``` 3. change directories to the ioapi-3.2 directory ``` cd ioapi-3.2 ``` 4. Change branches to 20200828 for a tagged stable version ``` git checkout -b 20200828 ``` 5. Change directories to the ioapi directory ``` cd ioapi ``` 6. copy the Makefile.nocpl file to create a Makefile ``` cp Makefile.nocpl Makefile ``` 7. Set the BIN environment variable ``` setenv BIN Linux2_x86_64ifort ``` 8. Edit the Makeinclude.Linux2_x86_64ifort to comment out OMPFLAG and OMPLIBS settings. This will remove the need to link the shared memory OPENMP libraries when compiling CMAQ and WRF-CMAQ. ``` OMPFLAGS = #-fopenmp OMPLIBS = # -fopenmp ``` 10. Create a BIN directory where the library and m3tools executables will be installed ``` mkdir ../$BIN ``` 11. Set the HOME environment variable to be your LIBRARY install directory and run the make command to compile and link the ioapi library ``` cd ioapi make 'HOME=[your_install_path]/LIBRARIES' |& tee make.log ``` 12. Change directories to the $BIN dir and verify that both the libioapi.a library was successfully built ``` cd ../$BIN ls -lrt libioapi.a ``` 13. If you need to do a make clean, to rebuild the I/O API Library, specify the HOME directory at the command line as follows ``` cd ../ioapi make 'HOME=[your_install_path]/LIBRARIES' clean ``` 14. Change directories to the m3tools directory ``` cd ../m3tools ``` 15. Copy the Makefile.nocpl to create a Makefile ``` cp Makefile.nocpl Makefile ``` 16. Edit line 65 of the Makefile to use the NCDIR and NFDIR environment variables that you have set in the above steps to locate the netcdf C and netcdf Fortran libraries ``` LIBS = -L${OBJDIR} -lioapi -L${NFDIR}/lib -lnetcdff -L${NCDIR}/lib -lnetcdf $(OMPLIBS) $(ARCHLIB) $(ARCHLIBS) ``` 17. Run make to compile the m3tools ``` make |& tee make.log ``` 18. Check to see that the m3tools have been installed successfully ``` cd ../$BIN ls -rlt m3xtract ``` 20. Use test script to verify that the executables are working ``` make test ``` ## Install CMAQv55 1. Download the CMAQv55 code using the following ``` git clone -b 55 https://github.com/USEPA/CMAQ/cmaq.git CMAQ_REPO ``` 2. Build and run in a user-specified directory outside of the repository In the top level of CMAQ_REPO, the bldit_project.csh script will automatically replicate the CMAQ folder structure and copy every build and run script out of the repository so that you may modify them freely without version control. In bldit_project.csh, modify the variable $CMAQ_HOME to identify the folder that you would like to install the CMAQ package under. For example: set CMAQ_HOME = [your_work_location]/CMAQv55 Now execute the script. ``` ./bldit_project.csh ``` 3. Edit the config_cmaq.csh to specify the netCDF C, netCDF Fortran, and I/O API Library locations ``` cd [your_work_location]/CMAQv55 vi config_cmaq.csh ``` Edit the case intel section note, the paths need to be edited to match the location for your installation ``` #> Intel fortran compiler...................................................... case intel: setenv BUILD /proj/ie/proj/CMAS/CMAQ/CMAQv5.5/build_sycamore/LIBRARIES_intel setenv MPI /nas/sycamore/apps/intel/2024.2.1/intel/oneapi/mpi/latest #> I/O API, netCDF Library Locations -- used in WRF-CMAQ setenv NETCDF netcdf_root_intel # Note please combine netCDF-C & Fortran Libraries setenv IOAPI ioapi_root_intel setenv WRF_ARCH # [1-75] #> I/O API, netCDF, and MPI Library Locations -- used in CMAQ setenv IOAPI_INCL_DIR $BUILD/ioapi-3.2/ioapi/fixed_src #> I/O API include header files setenv IOAPI_LIB_DIR $BUILD/ioapi-3.2/Linux2_x86_64ifx #> I/O API libraries setenv NETCDF_LIB_DIR $BUILD/lib #> netCDF C directory path setenv NETCDF_INCL_DIR $BUILD/include #> netCDF C directory path setenv NETCDFF_LIB_DIR $BUILD/lib #> netCDF Fortran directory path setenv NETCDFF_INCL_DIR $BUILD/include #> netCDF Fortran directory path setenv MPI_INCL_DIR $MPI/include #> MPI Include directory path setenv MPI_LIB_DIR $MPI/lib #> MPI Lib directory path #> Compiler Aliases and Flags #> set the compiler flag -qopt-report=5 to get a model optimization report in the build directory with the optrpt extension setenv myFC mpiifx setenv myCC icx #setenv myFSTD "-O3 -fno-alias -mp1 -fp-model source -ftz -simd -align all -xHost -vec-guard-write -unroll-aggressive" setenv myFSTD "-O3 -fno-strict-aliasing" setenv myDBG "-O0 -g -check bounds -check uninit -fpe0 -fno-alias -ftrapuv -traceback" setenv myLINK_FLAG #"-qopenmp-simd" openMP not supported w/ CMAQ setenv myFFLAGS "-fixed -132" setenv myFRFLAGS "-free" setenv myCFLAGS "-O2" setenv extra_lib "-lhdf5_hl -lhdf5 -lm -lzip -lcurl -lz -lsz -ldl -lm -fpp -auto -qopenmp" breaksw ``` 4. Source the config_cmaq.csh to create the lib directory ``` source config_cmaq.csh ``` 5. Copy the buildit script ``` cp bldit_cctm.csh bldit_cctmv55_cb6r5_m3dry/ ``` 6. Build CMAQv55 to support the cb6r5 and m3dry dry deposition option ``` ./bldit_cctmv55_cb6r5_m3dry.csh intel | & tee ./bldit_cctmv55_cb6r5_m3dry.log ``` 7. Build the POST processing routines ``` cd POST/combine/ ./bldit_combine.csh intel |& tee ./bldit_combine.intel.log ``` ``` cd POST/calc_tmetric/scripts ./bldit_calc_tmetric.csh intel |& tee ./bldit_calc_tmetric.intel.log ``` ``` cd POST/hr2day/scripts ./bldit_hr2day.csh intel |& tee ./bldit_hr2day.intel.log ``` ``` cd POST/bldoverlay/scripts ./bldit_bldoverlay.csh intel |& tee ./bldit_bldoverlay.intel.log ``` ## Modify Benchmark Post-processing Scripts for your installation 1. The POST/combine directory is available under the CMAQv55 directory. These scripts will need to be edited ``` run_combine.csh ``` 2. Edit the scripts under to specify the APPL for this benchmark ``` set APPL = Bench_2018_12NE3 #> Application Name (e.g. Gridname) ``` 3. Edit the start and end date. ``` set START_DATE = "2016-07-01" #> beginning date (July 1, 2016) set END_DATE = "2016-07-14" #> ending date (July 14, 2016) ``` After successfull completion of this tutorial, the user is now ready to proceed to the [CMAQ Installation & Benchmarking Tutorial](./CMAQ_UG_tutorial_benchmark.md). ================================================ FILE: DOCS/Users_Guide/Tutorials/CMAQ_UG_tutorial_chemicalmechanism.md ================================================ ## CMAQ Tutorial ## Author: Elyse Pennington (epenning@caltech.edu) | v5.3 Update: Ben Murphy | v5.4 ### Modifying a Chemical Mechanism in CMAQ ### Goal: Modify the gas- and aerosol-phase chemical mechanisms in CMAQ, create new solver source code files, and propagate all the changes in Github. This tutorial includes examples with expected impacts on SOA precursors and products, and is not expected to have substantial impacts on ozone or other radical chemistry. Caution: If significant modifications are made to the gas-phase mechanism that alter the radical balance, the ebi implementation of the modified mechanism should be checked against an alternative solver such as ros3 or smvgear. This example does not include extensive modifications of that nature. ### Files to generate or edit ## 1. mech_*.def 2. GC namelist 3. AE namelist 4. NR namelist 5. CMAQ_Control_DESID_*.nml namelist 6. AERO_DATA.F 7. SOA_DEFN.F 8. hlconst.F 9. BIOG_EMIS.F 10. SpecDef_*.txt (if not using ELMO-supported variables) 11. SpecDef_Dep_*.txt 12. ELMO_PROC.F ### Key Utilities 1. chemmech (see [documentation][link_1]) 2. create_ebi (see [documentation][link_2]) *Note that these utilities are automatically run by the Autochem feature of the bldit_cctm.csh script, if it is activated. ## 1. Modifying the chemical mechanism inputs ## ### 1.1 See the [git instructions](#github) below if you would like to propagate the chemical mechanism changes in your Github repository. If you are assigning a new name to your mechanism, create a new folder under /$CMAQ_REPO/CCTM/src/MECHS and copy and update the names of all chemical namelist files, the mech_*.def file, the CMAQ_Control_DESID_*.nml namelist, and the SpecDef_*.txt file, if desired. ### 1.2 Edit mech_*.def. The mech_*.def file lists all of CMAQ chemical reactions and is located at /$CMAQ_REPO/CCTM/src/MECHS/${mechanism}/mech_/${mechanism}.def. The [chemmech documentation][link_1] describes formats for reaction rate constants dependent on temperature, atmospheric number density, water vapor, sunlight, model species and constants such as oxygen and methane mixing ratios. The documentation also gives a more detailed explanation of the mech.def (mechanism definitions) sections and formatting rules. - All reactions must begin with a name in < > brackets. - All reactions must end with # followed by a reaction rate constant with units of cm3/(molecules s) - In this tutorial, all reactions regenerate the oxidant. In this example, we add an Odum 2-product model to the **cb6r5_ae7_aq** chemical mechanism by reacting a gas-phase precursor (TPROD) with OH to form two semivolatile gas-phase species (SVTPROD1, SVTPROD2) with alpha values of 0.15 and 0.8 by mole and a rate constant of 4.5 x 10^-11 cm3/(molecules s): ``` TPROD + OH = OH + 0.15 * SVTPROD1 + 0.80 * SVTPROD2 #4.50E-11; ``` To form a nonvolatile, accumulation mode SOA species (ANONVJ) from a gas-phase IVOC species (NONVG) with an SOA yield of 5% by mole and a rate constant of 2 x 10-11 cm3/(molecules s): ``` NONVG + OH = OH + 0.05 * ANONVJ #2.00E-11; ``` ### 1.3 Edit GC namelist. The GC namelist defines gas-phase species and their physical and chemical properties. It is located at /$CMAQ_REPO/CCTM/src/MECHS/${mechanism}/GC_${mechanism}.nml. You must add a new row for every gas-phase species that was added to [mech.def](#mech_def). See [Chapter 4](../CMAQ_UG_ch04_model_inputs.md) for more information. TPROD, SVTPROD1, SVTPROD2, and NONVG from the examples above must be added to the GC namelist because they are gas-phase species. Column descriptions can be found in [Chapter 4](../CMAQ_UG_ch04_model_inputs.md). In this example, TPROD does not participate in dry deposition - similar to many other VOCs in CMAQ - so 'DRYDEP SURR' and 'DDEP' are empty and FAC is -1. NONVG (an IVOC as defined above), SVTPROD1, and SVTPROD2 do participate in dry deposition because of their low volatilities. This tutorial does not explain the process of creating new dry deposition surrogates, but it is possible to do so and replace 'VD_GEN_ALD'. The WET-SCAV SURR are described in the [hlconst.F](#hlconst) section below. 'GC2AE SURR' lists the species that partition between gas and aerosol phases in [SOA_DEFN.F](#SOA_DEFN). ``` !SPECIES ,MOLWT ,IC ,IC_FAC ,BC ,BC_FAC ,DRYDEP SURR ,FAC ,WET-SCAV SURR ,FAC ,GC2AE SURR ,GC2AQ SURR,TRNS ,DDEP ,WDEP ,CONC 'SVTPROD1' ,216.66 ,'' ,-1 ,'' ,-1 ,'VD_GEN_ALD' , 1 ,'SVTPROD1' , 1 ,'SVTPROD1' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'SVTPROD2' ,182.66 ,'' ,-1 ,'' ,-1 ,'VD_GEN_ALD' , 1 ,'SVTPROD2' , 1 ,'SVTPROD2' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'TPROD' ,168.66 ,'' ,-1 ,'' ,-1 ,'' ,-1 ,'TPROD' , 1 ,'' ,'' ,'Yes' ,'' ,'Yes' ,'Yes', 'NONVG' ,119.54 ,'' ,-1 ,'' ,-1 ,'VD_GEN_ALD' , 1 ,'NONVG' , 1 ,'' ,'' ,'Yes' ,'Yes' ,'Yes' ,'Yes' ``` ### 1.4 Edit AE namelist. The AE namelist defines all aerosol-phase species and their physical and chemical properties and is located at /$CMAQ_REPO/CCTM/src/MECHS/${mechanism}/AE_${mechanism}.nml You must add a new row for every aerosol-phase species added to [AERO_DATA.F](#AERO_DATA). See [Chapter 4](../CMAQ_UG_ch04_model_inputs.md) for more information. ANONV and the aerosol products from the Odum 2-product model must be added to the AE namelist. The semivolatile Odum 2-product species (SVTPROD1 and SVTPROD2) partition between the gas and accumulation mode aerosol phase with ATPROD1 and ATPROD2. Column descriptions can be found in [Chapter 4](../CMAQ_UG_ch04_model_inputs.md). The aerosol species names should omit any suffix indicating the particle mode of the species (e.g. i, j, or k). Instead, users should indicate which modes the species is in using the 'Aitken', 'Accum', and 'Coarse' columns. ``` !SPECIES ,MOLWT ,Aitken ,Accum ,Coarse ,IC ,IC_FAC ,BC ,BC_FAC ,DRYDEP SURR ,FAC ,WET-SCAV SURR ,FAC ,AE2AQ SURR ,TRNS ,DDEP ,WDEP ,CONC 'ATPROD1' ,216.66 ,F ,T ,F ,'' ,-1 ,'' ,-1 ,'VMASSJ' , 1 ,'ORG_ACCUM' , 1 ,'SOA_ACCUM' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ATPROD2' ,182.66 ,F ,T ,F ,'' ,-1 ,'' ,-1 ,'VMASSJ' , 1 ,'ORG_ACCUM' , 1 ,'SOA_ACCUM' ,'Yes' ,'Yes' ,'Yes' ,'Yes', 'ANONV' ,135.54 ,F ,T ,F ,'' ,-1 ,'' ,-1 ,'VMASSJ' , 1 ,'ORG_ACCUM' , 1 ,'SOA_ACCUM' ,'Yes' ,'Yes' ,'Yes' ,'Yes', ``` ### 1.5 Edit NR namelist. The NR namelist defines gas-phase species that are not in the mech.def file, and their physical and chemical properties. Species in this file are typically the semivolatile gases that partition between the gas- and aerosol-phases. It is located at /$CMAQ_REPO/CCTM/src/MECHS/${mechanism}/NR_${mechanism}.nml. You must add a new row for every nonreactive species, if any, added to the chemical mechanism that is not explicitly modeled in [mech.def](#mech_def). See [Chapter 4](../CMAQ_UG_ch04_model_inputs.md) for descriptions of the information in each column. The examples used in this tutorial do not include species that need to be added to the NR namelist. Follow the sesquiterpene SOA formation mechanism as an example of NR species (e.g. follow SESQRXN, SVSQT, and ASQTJ in /$CMAQ_REPO/CCTM/src/MECHS/${mechanism}/ and /$CMAQ_REPO/CCTM/src/aero/aero6/). If an aerosol species is added via the NR namelist, its name must (for now) include the suffix denoting the size of the mode the species is active in (i.e. i, j, or k). ### 1.6 Edit DESID Chemical Mapping Control file. The DESID Chemical Mapping Control file describes how to input emissions and is located at /$CMAQ_REPO/CCTM/src/MECHS/${mechanism}/CMAQ_Control_DESID_${mechanism}.nml. Any new species included in the mech_*.def or GC, AE, and NR namelists that is directly emitted should be included in this file. Examples of adding new species are given in the [DESID tutorial](CMAQ_UG_tutorial_emissions.md). ### 1.7 Edit SpecDef file. The SpecDef file is used to aggregate CMAQ output species (e.g. into PM2.5) and convert units. It is used to run the post-processing tool [combine](../../../POST/combine/README.md) and is located at /$CMAQ_REPO/CCTM/src/MECHS/${mechanism}/SpecDef_{mechanism}.txt. To convert the units of a gas-phase species to ppb, add the following line: ``` NEWGAS ,ppbV ,1000.*NEWGAS[1] ``` To add a new species to OA mass, add it to the appropriate POA or SOA variables. For example, to add a new SOA accumulation-mode aerosol species ANEWJ, include '+ANEWJ[1]' in ASOMJ. This change will be reflected in subsequent variable definitions that use ASOMJ. If your simulation domain is an urban area, move AGLYJ from AORGB (biogenic VOC-derived aerosol) to AORGA (anthropogenic VOC-derived SOA). In some cases you may want to remove pcSOA from your SOA. In this case, you must create new variables with APCSOJ subtracted. For example, to calculate PM1 SOA without pcSOA, update the following variables: ``` AOMJ_MP ,ug m-3 ,APOMJ[0] + ASOMJ[0] - APCSOJ[1] ATOTJ_MP ,ug m-3 ,ASO4J[1]+ANO3J[1]+ANH4J[1]+ANAJ[1]+ACLJ[1] \ +AECJ[1]+AOMJ_MP[0]+AOTHRJ[1]+AFEJ[1]+ASIJ[1] \ +ATIJ[1]+ACAJ[1]+AMGJ[1]+AMNJ[1]+AALJ[1]+AKJ[1] PM1_TOT_MP ,ug m-3 ,ATOTI[0]*PM1AT[3]+ATOTJ_MP[0]*PM1AC[3]+ATOTK[0]*PM1CO[3] ``` To update the OC variables or the deposition of OC variables in the SpecDef_Dep_{mechanism}.txt file, you must know the OM:OC ratios of the new organic aerosol species. In CMAQv5.5, the new Explicit and Lumped CMAQ Model Output (ELMO) module performs all of the aerosol processing online in CMAQ, so that variables like organic aerosol mass and PM2.5 mass are output directly from the model to files with prefixes CCTM_ELMO_ and CCTM_AELMO_, for instantaneous and averaged values respectively. FOr more information, see the [ELMO documentation](../Appendix/CMAQ_UG_appendixF_elmo_output.md). ### 1.8 Edit SOA_DEFN.F SOA_DEFN.F describes SOA precursors, SOA species and their properties dealing with gas to particle partitioning. It is located at /$CMAQ_REPO/CCTM/src/aero/aero6/SOA_DEFN.F. Note that the aero7 and cracmm directories are linked to the aero6 directory. You must add a row for every new SOA species and increase **n_oa_list** by the number of species added to the list (in this tutorial you would add 3). To add semivolatile species that partition between the gas and aerosol phases (with a gas-phase species defined in the [GC namelist](#GCnml)), include their effective saturation concentrations (C*) and enthalpies of vaporization. In this example, ATPROD1 (nominally biogenic) has the corresponding gas-phase species SVTPROD1 and has C* = 0.95 ug/m3 and enthalpy of vaporization = 131 J/mol. ATPROD2 has the corresponding gas-phase species SVTPROD2 and has C* = 485 ug/m3 and enthalpy of vaporization = 101 J/mol: ``` & oa_type('ATPROD1', 'SVTPROD1', ' ', 0.0000, 0.95, 131.0E3, 0.400, 1.67, F, F, T, F ), & oa_type('ATPROD2', 'SVTPROD2', ' ', 0.0000, 485.00, 101.0E3, 0.333, 1.57, F, F, T, F ) ``` To add a nonvolatile aerosol species (assumed anthropogenic): ``` & oa_type('ANONV ', ' ', ' ', 0.0000, 1.E-10, 1.0E0, 0.667, 2.00, F, F, F, T ) ``` Note that these aerosol definitions do not include a specification of the size bin they fall into. That is added automatically within CMAQ. The last four true/false fields identify the species as POA, anthropogenic, biogenic, and nonvolatile. These fields are used in ELMO calculations of aggregate values like BSOA and ASOA. ### 1.9 Edit AERO_DATA.F AERO_DATA.F defines all aerosol species and some of their properties. It is located at /$CMAQ_REPO/CCTM/src/aero/aero6/AERO_DATA.F. Note that the aero7 and cracmm directories are linked to the aero6 directory. You must add a row for every new aerosol species and increase **n_aerolist** to reflect additional species added to the list (in this tutorial add 3). For all species except particulate water and hydronium ion (a tracer), CMAQ now sets no_M2Wet to F. To add a semivolatile (Vol=REV) organic aerosol species in the Accumulation mode (T,A,C=F,T,F), set OM to T, calculate korg from e.g. Pye et al. (ACP, 2017) or another source, and use properties that match other organic species: ``` & spcs_list_type('ATPROD1 ', F,T,F, cm_set, 1400.0, 'VTRPOD1',' ',0.00,'REV',F,F, 0, 2.8, 6.1,T, 'DUST ', 0.09), & spcs_list_type('ATPROD2 ', F,T,F, cm_set, 1400.0, 'VTRPOD2',' ',0.00,'REV',F,F, 0, 2.8, 6.1,T, 'DUST ', 0.05), ``` To add a nonvolatile (Vol=NVL) organic aerosol species, set no_M2Wet to F: ``` & spcs_list_type('ANONV ', T,T,F, cm_set, 1400.0, ' ',' ',0.00,'NVL',F,F, 0, 2.8, 6.1,T, 'DUST ', 0.07), ``` Note that these aerosol names do not include a specification of the size bin they fall into. That is instead indicated by the first three T/F fields (i.e. Aitken, Accumulation and Coarse). When CMAQ expands the variables from the AE namelist to the aerosol modes, it checks this table to make sure that mode is allowed for the species being considered. The condensable vapor in equilribium with the aerosol species should also be specified (e.g. VTRPOD1), as well as the reaction counter (e.g. ALKRXN), if it exists , and the kind of mass-transfer category the species fits (e.g. REV = reversible; IRV = Irreversible; NVL = nonvolatile; H2O = water). After this category, the user must choose whether the species is to be treated as wet (almost none are now except water species). ### 1.10 Edit hlconst.F hlconst.F calculates Henry's Law constants for species that participate in wet deposition. It's located in the relevant cloud directory at /$CMAQ_REPO/CCTM/src/cloud/*/hlconst.F. Each new row corresponds to a name used in the 'WET-SCAV SURR' column of the [GC namelist](#GCnml). Increase **MXSPCS** by the number of species added to the list. Based on the additions to the [GC namelist](#GCnml) in these examples, wet deposition surrogates must be added for TPROD, SVTPROD1, SVTPROD2, and NONVG. The first 3 columns are row numbers in the data matrix. Column 4 is the name of the wet deposition surrogate used in the [GC namelist](#GCnml) and will often be the same as the species name. Column 5 is the Henry's law constant at 298.15 K (M/atm). Column 6 is the enthalpy; for organic semivolatile species with unknown enthalpy, 6.0E+03 may be used. See references listed in hlconst.F for models to calculate Henry's Law constants where experimental data is unavailable. ``` DATA SUBNAME(217), A(217), E(217) / 'TPROD ', 3.87E+02, 6.0E+03 / DATA SUBNAME(218), A(218), E(218) / 'SVTPROD1 ', 2.97E+06, 6.0E+03 / DATA SUBNAME(219), A(219), E(219) / 'SVTPROD2 ', 7.99E+05, 6.0E+03 / DATA SUBNAME(220), A(220), E(220) / 'NONVG ', 2.22E+03, 6.0E+03 / ``` Dry deposition surrogates may also be added, but are not covered in this tutorial. ### 1.11 Check ELMO Processing The [Explicit and Lumped CMAQ Model Output (ELMO)](../Appendix/CMAQ_UG_appendixF_elmo_output.md) module outputs comprehensive aggregate variables directly from CMAQ. One major goal of ELMO is to lower the barrier to making minor mechanism changes/updates like changing the names of organic aerosol (OA) species and needing to then update offline OA calculations. Users should feel confident that most ELMO variables like PM25 mass and OA mass will be handled correctly regardless of the changes they make, but it is recommended to check CCTM/src/driver/ELMO_PROC.F if large changes are made to the species names in the mechanism, especially gas-phase species liken HNO3. ## 2. Build CMAQ Code with New Mechanism ### 2.1 Build CMAQ_PROJECT. See [Chapter 5](../CMAQ_UG_ch05_running_a_simulation.md) or the [Tutorials](README.md) for more information. ### 2.2 Build New Mechanism Two options are possible for this step. There are several utilities that must be executed to translate the mechanism inputs into CMAQ souce code. The user may run these manually, or utilize features in the bldit_cctm.csh build script that automatically executes each step without detailed work by the user. This automated workflow is called CMAQ Autochem. ### 2.2.a Manual Mechanism Build Process #### 2.2.a1 Build chemmech. Copy the source code from CMAQ_REPO to CMAQ_PROJECT. ``` cp -r /$CMAQ_REPO/UTIL/chemmech/ $CMAQ_PROJECT/UTIL/ ``` Edit /$CMAQ_PROJECT/UTIL/chemmech/scripts/bldit_chemmech.csh to make sure the correct compiler is set. Then run the build script. ``` ./bldit_chemmech.csh ``` #### 2.2.a2 Run chemmech. Edit run_chemmech.csh - COMPILER - Update correct Mechanism - Set CHEMMECH_INPUT to the location of the [mech.def](#mech_def) file you modified above. - Change the location of the tracer namelist file ``` set TRAC_NML = /$CMAQ_REPO/CCTM/src/MECHS/trac0/Species_Table_TR_0.nml ``` Run: ``` ./run_chemmech.csh ``` If successful, it will output, for example: ``` Normal Completion of CHEMMECH Author is NAME output written to ../output/cb6r5_ae7_aq ``` and will write RXNS_DATA_MODULE.F90 and RXNS_FUNC_MODULE.F90 to the output path. Check the output mechanism csv, html, and markdown files to confirm that chemmech ran correctly. Copy the two Fortran files to /$CMAQ_REPO/CCTM/src/MECHS/${Mechanism}/. #### 2.2.a3 Build+run create_ebi. Copy the source code from CMAQ_REPO to CMAQ_PROJECT. ``` cp -r /$CMAQ_REPO/UTIL/create_ebi/ /$CMAQ_PROJECT/UTIL/ ``` Move bldrun_create_ebi.csh up one directory (from /$CMAQ_PROJECT/UTIL/create_ebi/scripts/ to /$CMAQ_PROJECT/UTIL/create_ebi/). Edit bldrun_create_ebi.csh: - COMPILER - Update MECH for your mechanism. - Set RXNS_DATA_SRC to the location of your chemmech output files. - Set PAR_NEG_FLAG, DEGRADE_SUBS, SOLVER_DELT, and all MECH_*(species) variables to the setting that matches your mechanism. E.g. for cb6r5_ae7_aq: ``` setenv PAR_NEG_FLAG T setenv DEGRADE_SUBS F setenv SOLVER_DELT 2.5 ``` The reactions added in this tutorial do not affect radical species in ozone chemistry. If it did, we recommend checking predictions using the EBI solver against an alternative gas solver listed in the cctm build script such as ros3 and smvgear. Check Table 1 in the [create_ebi documentation](../../../UTIL/create_ebi/README.md) as an initial list of radical species that may require such benchmarking. The list grows if new radical cycles are added to a mechanism such as radicals from halogen compounds. Run: ``` ./bldrun_create_ebi.csh ``` If successful, it will output: ``` The following 10 output files were created: hrdriver.F hrsolver.F hrdata_mod.F hrinit.F hrg1.F hrg2.F hrg3.F hrg4.F hrprodloss.F hrrates.F Program CR_EBI_SOLVER completed successfully if ( F == T ) then exit ( ) ``` and will write the hr*.F files to /${CMAQ_HOME}/CMAQv533/UTIL/create_ebi/output/ebi_${Mechanism}/. Copy the hr*.F files to /${CMAQ_REPO}/CCTM/src/gas/ebi_${Mechanism}/. #### 2.2.a4 Build the CCTM executable. See [Chapter 5](../CMAQ_UG_ch05_running_a_simulation.md) or the [Tutorials](README.md) for more information. This will include all of the new files from /${CMAQ_REPO}/CCTM/src/ in /$CMAQ_PROJECT/CCTM/BLD. #### 2.2.a5 Run CCTM and post-processing tools. See [Chapter 5](../CMAQ_UG_ch05_running_a_simulation.md) for more information about running the CCTM. See [Chapter 8](../CMAQ_UG_ch08_analysis_tools.md) for more information about running AMET, combine, sitecmp, etc. While running these post-processing tools, be sure to set file paths to the new files created in /$CMAQ_REPO or /$CMAQ_PROJECT/CCTM/BLD. ### 2.2.b CMAQ Autochem Mechanism Build Process The CMAQ build script (bldit_cctm.csh) contains code that allows the user to automatically generate new chemical mechanism source code with minimal intervention. Uncomment the following line: ``` #set build_mech ``` and bldit_cctm.csh will gather the metadata it needs to run the bldit_mech.csh, a wrapper for all of the mechanism generation scripts. If you have implemented a new mechanism with a new name, make sure to update that in the 'Mechanism' environment variable, and potentially in the 'ModAero' and 'ModCloud' variables, if applicable. Because the mechanism files are generated before CMAQ source files are retreived for the model build process, the Autochem tool will always seek to propagate the new mechanism files back to the CMAQ repo. If the mechanism already exists in the repo (e.g. cb6r5_ae7_aq), the script will halt. To allow the Autochem tool to overwrite any existing mechanisms with the new files, uncomment the following line: ``` #set clobber_mech ``` If the mechanism does not already exist, then clobber_mech will have no effect, and new mechanism folder will appear in the repo consistent with the new files. ## 3. Reflecting the changes in Github ## ### 3.1 Fork from USEPA CMAQ. On the [CMAQ Github page](https://github.com/USEPA/CMAQ), fork the main branch to your personal repository using the Fork button in the upper right. ### 3.2 Clone. Clone your repository to your remote account. For example: ``` git clone https://username@github.com/username/CMAQ.git CMAQ_REPO_v533 ``` This will request your Github password. You will now see the entire CMAQ repository in the directory you cloned it into. If you enter the top directory (e.g. CMAQ_REPO_v533/), there should now exist a file named .git. ### 3.3 Rename remote. Rename the remote link. For example: ``` git remote rename origin dev_push_repo ``` ### 3.4 Link to USEPA CMAQ. Link the cloned repo to the USEPA Github repo. ``` git remote add dev_repo https://username@github.com/USEPA/CMAQ.git ``` ### 3.5 Branching. When modifying your repository, it is a good idea to check out a new branch. To create the branch: ``` git branch newchem ``` To move to that branch: ``` git checkout newchem ``` To look at all of your branches: ``` git branch ``` The branch you are currently working from will have an asterisk. ### 3.6 Modify the mechanism according to the [instructions](#modifychem) above. If the USEPA repository is updated by EPA, you will see a statement such as "This branch is X commits behind USEPA:main" in Github online. You will likely want to keep your CMAQ up-to-date and will want to pull the updates to your repo. Make sure the files you have edited are backed up. Check the names of your remotes using: ``` git remote -v ``` If you have followed these instructions, your repository should be named dev_push_repo and the USEPA's repository should be named dev_repo. To pull in the updates from USEPA's main branch: ``` git pull dev_repo main ``` To view a summary of the changes you have made to your repo since your last commit, type "git status" from anywhere in the repo. If you have followed the instructions above, you should see: ``` # On branch newchem # Changes not staged for commit: # (use "git add ..." to update what will be committed) # (use "git checkout -- ..." to discard changes in working directory) # # modified: CCTM/src/MECHS/saprc07tic_ae7i_aq/AE_saprc07tic_ae7i_aq.nml # modified: CCTM/src/MECHS/saprc07tic_ae7i_aq/CMAQ_Control_DESID_saprc07tic_ae7i_aq.nml # modified: CCTM/src/MECHS/saprc07tic_ae7i_aq/GC_saprc07tic_ae7i_aq.nml # modified: CCTM/src/MECHS/saprc07tic_ae7i_aq/RXNS_DATA_MODULE.F90 # modified: CCTM/src/MECHS/saprc07tic_ae7i_aq/RXNS_FUNC_MODULE.F90 # modified: CCTM/src/MECHS/saprc07tic_ae7i_aq/SpecDef_saprc07tic_ae7i_aq.txt # modified: CCTM/src/MECHS/saprc07tic_ae7i_aq/mech_saprc07tic_ae7i_aq.def # modified: CCTM/src/aero/aero6/AERO_DATA.F # modified: CCTM/src/aero/aero6/SOA_DEFN.F # modified: CCTM/src/cloud/acm_ae6/hlconst.F # modified: CCTM/src/gas/ebi_saprc07tic_ae7i_aq/hrdata_mod.F # modified: CCTM/src/gas/ebi_saprc07tic_ae7i_aq/hrdriver.F # modified: CCTM/src/gas/ebi_saprc07tic_ae7i_aq/hrg1.F # modified: CCTM/src/gas/ebi_saprc07tic_ae7i_aq/hrg2.F # modified: CCTM/src/gas/ebi_saprc07tic_ae7i_aq/hrg3.F # modified: CCTM/src/gas/ebi_saprc07tic_ae7i_aq/hrg4.F # modified: CCTM/src/gas/ebi_saprc07tic_ae7i_aq/hrinit.F # modified: CCTM/src/gas/ebi_saprc07tic_ae7i_aq/hrprodloss.F # modified: CCTM/src/gas/ebi_saprc07tic_ae7i_aq/hrrates.F # modified: CCTM/src/gas/ebi_saprc07tic_ae7i_aq/hrsolver.F # modified: bldit_project.csh ``` To see a list of all lines that have been modified in those files, type "git diff". ### 3.7 Commit the changes. To stage all modified files in current directory for commit: ``` git add -u ``` To stage specific files for commit: ``` git add [filename1] [filename2] ``` To commit: ``` git commit ``` A page indicating all changes in the commit will be displayed. Enter a description at the top and close the page using :x and Enter. ### 3.8 Push the changes to your Github respository. Make sure you do not push the changes to the USEPA CMAQ Github! To push your changes from your newchem branch to your Github repository: ``` git push dev_push_repo newchem ``` You should now be able to see these changes in Github online. [link_1]: ../../../UTIL/chemmech/ [link_2]: ../../../UTIL/create_ebi/ [link_1]: https://github.com/USEPA/CMAQ/blob/main/UTIL/chemmech/ [link_2]: https://github.com/USEPA/CMAQ/blob/main/UTIL/create_ebi/ ================================================ FILE: DOCS/Users_Guide/Tutorials/CMAQ_UG_tutorial_configure_linux_environment.md ================================================ # Configuring your compute environment for CMAQ simulations CMAQ is a comprehensive air quality model that requires a multiprocessor computing system and a number of software packages to produce sound estimates of ozone, particulate matter and a number of species. If you are interested in using CMAQ please make sure your computing system meets the following hardware and software requirements. ## Hardware Requirements ### Operating System The CMAQ system will require that you have access to a Unix-based or Unix-like computer system. Common distrbutions include Liunx (e.g., Red-Hat, Ubuntu, CentOs, Debian, Fedora, etc) and BSD variations (MacOS, FreeBSD, OpenBSD, etc). ### Memory Requirements The memory requirements needed to perform a CMAQ simulation will vary with what you are trying to simulate. Benchmark simulations require 16 GB RAM along with 200 GB of disk space, where as typical simulations may require several hundred GB of RAM along with multiple TB of disk space, depending on domain and output specification. ### Compatibility with Cloud Service Providers Depending on the ability to access resources with considerable computing power, users should consider running CMAQ on a cloud service provider (CSP). There are several advantages of migrating a users workflow to CSPs, a few include access to on-demand HPC computing resources and availability of canned versions of CMAQ on the cloud with all necessary software pre-built. More information on how to use CMAQ on the cloud can be found on the [CMAQ on AWS webpage](https://pcluster-cmaq.readthedocs.io/en/latest/). ## Software Requirements The following support software are required for compiling and running CMAQ. 1. Fortran and C compilers, e.g., [Intel](https://software.intel.com/en-us/fortran-compilers), [Portland Group](http://www.pgroup.com), [Gnu](https://gcc.gnu.org/wiki/GFortran) 2. [Git](https://git-scm.com/book/en/v2/Getting-Started-Installing-Git) 3. Message Passing Interface (MPI), e.g., [OpenMPI](https://www.open-mpi.org) or [MVAPICH2](http://www.mcs.anl.gov/research/projects/mpich2). 4. Latest release of [netCDF-C](https://docs.unidata.ucar.edu/nug/current/getting_and_building_netcdf.html). 5. Latest release of [netCDF-Fortran](https://www.unidata.ucar.edu/software/netcdf/docs/building_netcdf_fortran.html). 6. [I/O API version 3.2 **tagged 20200828**](https://github.com/cjcoats/ioapi-3.2/releases/tag/20200828). ## Tutorials and scripts for building netCDF and I/O API libraries for CMAQ The following set of tutorials provide step by step instructions on how to install netCDF and I/O API software using various compilers. We also provide shell scripts that include commands to install the libraires from source. The scripts will require edits to specify where the libraries should be installed. We recommend looking at the tutorials before using the shell scripts. We recommend using the intel compiler to build netCDF with compression (bullet 1 or 2). If this is not possible on your system, we provide other options (bullets 3 - 5). - Building netCDF4 and I/O API libraries that enable compression with Intel - 20.2 compiler ([Tutorial](CMAQ_UG_tutorial_build_library_intel_support_nc4.md) | [netCDF Script](./scripts/cmaq_libraries/intel_20.2_install_netcdf_for_nc4_compression.csh) | [I/O API Script](./scripts/cmaq_libraries/intel_20.2_install_ioapi_for_nc4_compression.csh)) - Building netCDF4 and I/O API libraries that enable compression with Intel - 2024 compiler ([Tutorial](CMAQ_UG_tutorial_build_library_intel_support_nc4.md) | [netCDF Script](./scripts/cmaq_libraries/intel_2024_install_netcdf_for_nc4_compression.csh) | [I/O API Script](./scripts/cmaq_libraries/intel_2024_install_ioapi_for_nc4_compression.csh)) - Building netCDF4 and I/O API libraries that enable compression with GNU compiler ([Tutorial](CMAQ_UG_tutorial_build_library_gcc_support_nc4.md) | [netCDF Script](./scripts/cmaq_libraries/gcc_11.4_install_netcdf_for_nc4_compression.csh) | [I/O API Script](./scripts/cmaq_libraries/gcc_11.4_install_ioapi_for_nc4_compression.csh)) - Building netCDF and I/O API libraries that disable nc4 compression with Intel - 18.2 compiler ([Tutorial](CMAQ_UG_tutorial_build_library_intel.md) | [netCDF Script](./scripts/cmaq_libraries/intel_18.2_install_netcdf_classic.csh) | [I/O API Script](./scripts/cmaq_libraries/intel_18.2_install_ioapi_classic.csh)) - Building netCDF and I/O API libraries that disable nc4 compression with GNU compiler ([Tutorial](CMAQ_UG_tutorial_build_library_gcc.md) | [netCDF Script](./scripts/cmaq_libraries/gcc_11.4_install_netcdf_classic.csh) | [I/O API Script](./scripts/cmaq_libraries/gcc_11.4_install_ioapi_classic.csh)) ## Use custom environment modules or LMOD to manage the different library versions.
Adding the libraries locations to the LD_LIBRARY_PATH, PATH, MANPATH and other environment variables can be managed using custom modules.
[Custom Modules using environment modules](https://researchcomputing.princeton.edu/support/knowledge-base/custom-modules)
[Custom Modules using Lmod](https://lmod.readthedocs.io/en/latest/) ================================================ FILE: DOCS/Users_Guide/Tutorials/CMAQ_UG_tutorial_debug.md ================================================ # CMAQ Debugging Tips Purpose: This guide describes how to examine log files and debug issues encountered when installing and running the CMAQ test case. This guide helps you to find and report errors to the CMAS Center Forum and follows the [best practices for posting new issues to the forum](https://forum.cmascenter.org/t/please-read-before-posting/1321). ## Building CMAQ ### Prerequisite: Build Libraries and CMAQ using gcc or intel compilers Follow the CMAQ Build Tutorials for the appropriate compiler: ### Uncompressed netCDF library builds:
* [Building CMAQ classic libraries for GNU](CMAQ_UG_tutorial_build_library_gcc.md) * [Building CMAQ classic libraries for Intel](CMAQ_UG_tutorial_build_library_intel.md) ### Compressed netCDF-4 Library builds:
* [Building CMAQ libraries netCDF-4 compression for GNU](CMAQ_UG_tutorial_build_library_gcc_support_nc4.md) * [Building CMAQ using netCDF-4 compression for Intel](CMAQ_UG_tutorial_build_library_intel_support_nc4.md) ### Verify that an executable was created ``` cd $CMAQ_HOME/CCTM/scripts ls */*.exe ``` ### Inspecting CMAQ Build log files ``` grep -i error bldit_cctm.log tail bldit_cctm.log ``` ### If you encounter an error building CMAQ * [Search the CMAS Forum](https://forum.cmascenter.org/search?expanded=true) for an error similar to the one that you are seeing in your bldit_cctm.log file. * [Review the CMAQ FAQ](https://www.epa.gov/cmaq/frequent-cmaq-questions) If you don’t find an answer that solves the issue that you are having, create a new topic on the CMAS Center Forum. Please create a new topic in describing your issue, even if your issue is similar to that of another user. **See the instructions at the bottom of this tutorial for creating a new topic on the CMAS User Forum.** ## Running CMAQ ### Prerequisite: Run the CMAQ Benchmark case [Follow Benchmark Tutorial instructions](CMAQ_UG_tutorial_benchmark.md) (does not require running ICON/BCON as inputs are provided in the Benchmark Input Data). ### Inspect the CMAQ run log files Check the output log file in the run directory to see if it has completed successfully. ``` cd $CMAQ_HOME/CCTM/scripts ``` **The type of output log file that is created depends on how you submit the job.** If you use slurm, with the sbatch command to submit the job, the standard error and output is logged to a slurm-\*.out file. Use grep to verify how many processors were used to run cmaq. ``` grep -i ‘Number of Processors’ slurm-*.out ``` Use grep to determine if CMAQ completed successfully. ``` grep -i 'PROGRAM COMPLETED SUCCESSFULLY' slurm-*.out ``` Use grep to check for any errors in the slurm log files. ``` grep -i 'error' slurm-*.out ``` ### If your run error contains the following message: ``` error while loading shared libraries … cannot open shared object file … ``` This error indicates that the `LD_LIBRARY_PATH` environment variable is not properly set to include the path to all the required shared library object files. If this occurs, one solution is to edit the CCTM run script to add the path to the netCDF C (libnetcdf.so) and Fortran (libnetcdff.so) libraries to the `LD_LIBRARY_PATH` variable. For example: ``` setenv NCDIR ${CMAQ_HOME}/lib/x86_64/intel/netcdf setenv NCFDIR ${CMAQ_HOME}/lib/x86_64/intel/netcdff setenv LD_LIBRARY_PATH ${NCDIR}/lib:${NCFDIR}/lib:${LD_LIBRARY_PATH} ``` Note this path is dependent on what compiler you used, replace intel with gcc if you used gnu rather than the intel compiler. If this does not work, then cd to the build directory and use the command: ``` ldd CCTM*.exe ``` This will show the absolute path to the libraries used in compiling the model. Edit the `LD_LIBRARY_PATH` environment variable to include the *directories* where the libnetcdf.so and libnetcdff.so files are located. ### If the program did not complete successfully for another reason If the program did not complete successfully for another reason, you will need to check the per processor log files which begin with the name: CTM_LOG_\*. * These files may either be located in the run directory, if the run script was aborted. * Or they may have been moved by the run script to a LOGS directory under the output directory. Look in the following locations for the CTM_LOG* log files: ``` cd $CMAQ_HOME/CCTM/scripts ``` or ``` cd $CMAQ_HOME/data/LOGS ``` Determine the number of log files that exist using the ls command and word count command. ``` ls CTM_LOG* | wc ``` There should be 1 log command for each processor used to run CMAQ for each day. Use the grep command to determine if the message “PROGRAM COMPLETED SUCCESSFULLY” is at the bottom of all of the log files. ``` grep -i 'PROGRAM COMPLETED SUCCESSFULLY' CTM_LOG* | wc ``` * If you ran the program on 16 processors, you should see a word count of 16 files that contain this message for each day that you run the model. * If there were fewer findings of the successful run command message than the number of processors that were used to run CMAQ: Use the grep command to find an error in any of the files ``` grep -i error CTM_LOG* ``` ## If you encounter an error running CMAQ * [Search the CMAS Forum](https://forum.cmascenter.org/search?expanded=true) for an error similar to the one that you are seeing in your CTM_LOG file. * [Review the CMAQ FAQ](https://www.epa.gov/cmaq/frequent-cmaq-questions) * If you don’t see a similar error reported in an issue or in a FAQ that provides enough information for you to troubleshoot and solve the issue then submit a new topic. ## If the program crashed * If the program crashed (as opposed to aborting with an error message), you may get a stack trace similar to the following: ``` forrtl: severe (174): SIGSEGV, segmentation fault occurred Image PC Routine Line Source CCTM_s07tic_noche 00000000009AF90D Unknown Unknown Unknown libpthread-2.18.s 00002AF0F5B4B6D0 Unknown Unknown Unknown CCTM_s07tic_noche 00000000006F3A8A Unknown Unknown Unknown CCTM_s07tic_noche 0000000000605EF2 Unknown Unknown Unknown CCTM_s07tic_noche 00000000005FEC8C Unknown Unknown Unknown CCTM_s07tic_noche 00000000005FD619 Unknown Unknown Unknown CCTM_s07tic_noche 0000000000406D9E Unknown Unknown Unknown libc-2.18.so 00002AF0F6464D65 __libc_start_main Unknown Unknown CCTM_s07tic_noche 0000000000406CA9 Unknown Unknown Unknown ``` Please do not post an unreadable stack trace to the user forum! Instead, recompile the model in debug mode (uncomment "set Debug_CCTM" in bldit_cctm.csh) and rerun. The model will run much more slowly, but when a crash occurs, the stack trace will provide information which should help with debugging. For example: ``` forrtl: severe (174): SIGSEGV, segmentation fault occurred Image PC Routine Line Source CCTM_s07tic_noche 0000000001A61C1D Unknown Unknown Unknown libpthread-2.18.s 00002B8D9E0FC6D0 Unknown Unknown Unknown CCTM_s07tic_noche 0000000001551229 aero_ 503 aero_driver.F CCTM_s07tic_noche 0000000000E617C1 sciproc_ 298 sciproc.F CCTM_s07tic_noche 0000000000E48385 cmaq_driver_ 679 driver.F CCTM_s07tic_noche 0000000000E40B84 MAIN__ 96 cmaq_main.F CCTM_s07tic_noche 0000000000406D9E Unknown Unknown Unknown libc-2.18.so 00002B8D9EA15D65 __libc_start_main Unknown Unknown CCTM_s07tic_noche 0000000000406CA9 Unknown Unknown Unknown ``` This stack trace indicates that the error occurred on line 503 of the file aero_driver.F. To rebuild a debug version ``` cp bldit_cctm.csh bldit_cctmv55_debug.csh vi bldit_cctmv55_debug.csh ``` uncomment the following line ``` #set Debug_CCTM ``` change to ``` set Debug_CCTM ``` Rerun the build script ``` ./bldit_cctmv55_debug.csh gcc |& tee ./bldit_cctmv55_debug.log ``` Edit your run script to use the newly compiled debug version that is in a BLD directory with the following extension `_debug` Re-run using the debug version ## Submit a new topic issue on the CMAS User Forum * [Visit the category](https://forum.cmascenter.org/categories) that best describes your issue. * For example, if you are having an issue running CMAQ [choose the category cmaq runtime issues](https://forum.cmascenter.org/c/cmaq/run-time-errors-and-issues/14) * Or choose the [parent CMAQ category](https://forum.cmascenter.org/c/cmaq/7) * Click on + New Topic in the upper right corner. The Category will be pre-selected if you start a new topic request from within a category. If the category is “Uncategorized”, then use the pull-down menu to select the category for your topic. ### Selecting a category for your issue Selecting a category is important, as the CMAS Center and EPA staff are only monitoring topics submitted within a category that matches their expertise. * Type in a title for your topic that describes your CMAQ compiler environment Example Title: ``` CMAQv5.4 segmentation fault using gcc and openmpi ``` ### Template for what to include in your new issue. **Please include the following information when creating a new issue.** This will make it much faster and easier for others to understand your issue and respond with an appropriate suggestion. 1. Report the **compiler and version used to run CMAQ** ``` mpif90 --version ``` 2. Report the **version of CMAQ** that you are using. ``` ls */*.exe ``` 3. Report the name of the run script if it is a benchmark case, or **report the Domain and resolution** 4. Report a limited amount of the **error message contents** in the body of the issue with output obtained by using the following commands: ``` cd $CMAQ_HOME/data/{YOUR_OUTPUT_DIR}/LOGS/ ``` * The grep argument -B NUM prints NUM lines before the matching text is found. For example, this command will print out the 10 lines prior to each occurrence of the word "error" (case insensitive): ``` grep -B 10 -i error CTM_LOG_000* ``` #### Example of information to include in a new issue post: | | | |:--------:|:----------------:| | Compiler Version | ifort version 18.0.1 | |CMAQ Version | BLD_CCTM_v54_intel/CCTM_v54.exe | | Run Script | run_cctm_Bench_2018_12NE3.csh | Error message encountered: ``` error while loading shared libraries … cannot open shared object file … ``` ### Upload additional files Click on the up arrow icon in the menu underneath the Create New Topic Title including: * your run script * standard out log file * per-processor log file that contains the error message. * Note You will need to rename any files to match one of the following extensions (jpg, jpeg, png, gif, csh, txt, csv), for instance, copy cmaq.log to cmaq.log.txt ``` CTM_LOG_000.v54_gcc_Bench_2018_12NE3_2day_20180701 CTM_LOG_000.v54_gcc_Bench_2018_12NE3_2day_20180702 ``` * When someone replies to your topic, you will receive an e-mail notification. * Please click on the “VISIT TOPIC” button in your e-mail to return to your CMAS Center Forum Issue and reply to any follow-up questions or suggestions. ================================================ FILE: DOCS/Users_Guide/Tutorials/CMAQ_UG_tutorial_emissions.md ================================================ ## CMAQ Tutorial ## ### Prescribing Emissions Using DESID (Detailed Emissions Scaling, Isolation and Diagnostics) Module ### Purpose: This tutorial will guide users to utilizing the DESID Control namelists to perform some basic manipulation of their emission streams. For additional questions, contact Ben Murphy (murphy.ben@epa.gov) or visit the CMAS Forum. ------------ ### Definitions of Terms - Stream: An Online emission source or a group of sources processed offline and read into CMAQ from one file. Common examples of streams include biogenic VOCs, mobile sources, wind-blown dust, prescribed fires, electric-generating units, residential heating, etc. - Species: A variable representing a chemical compound or group of compounds in CMAQ. - Surrogate: A variable representing a chemical compound or group of compounds on an emission Stream. ### Important Notes to Remember - Rules are applied in the order they are provided. ### Example Use Cases - [1. Zero out emissions](#zero_out) - [2. Add emissions for a new tracer species](#add_emissions) - [3. Scale emissions from one stream by a common factor](#scale_stream) - [4. Scale emissions for one species on all streams](#scale_species) - [5. Scale all gas phase emissions but leave aerosols alone](#scale_gases) - [6. Scale all aerosols](#scale_aerosols) - [7. Add or subtract emissions from one surrogate to existing emissions](#scale_surrogate) - [8. Overwrite the scale factor for a single stream or species](#overwrite) - [9. Scale all species except one by a common factor](#scale_all_but_one) - [10. Apply scaling while conserving moles or mass](#scale_moles_mass) - [11. Apply scaling with spatial dependence](#apply_mask) - [12. Define families of streams, regions, or chemical species](#define_families) - [13. Use a family of streams to scale emissions for a group of sources](#fam_stream) - [14. Use a family of regions to scale emissions in a new location](#fam_region) - [15. Use a family of species to scale emissions for a custom group of pollutants](#fam_chem) - [16. Miscellaneous Notes](#misc_notes) - [Example DESID Control File](../../../CCTM/src/emis/emis/CMAQ_Control_DESID.nml) - [Example DESID Scaling Rules File](../../../CCTM/src/MECHS/cracmm2/CMAQ_Control_DESID_cracmm2.nml) - [Example Emissions Section of CCTM RunScript File](../../../CCTM/scripts/run_cctm_Bench_2018_12NE3_CRACMM2.csh#L327) ### 1. Zero Out Emissions Emission streams can be zeroed using the options for individual streams in the CMAQ RunScript or creating rules in the DESID Chemical Mapping Control Namelist. ##### a. Using Options in the CMAQ RunScript For gridded or inline emissions, reduce the value of N_EMIS_GR or N_EMIS_PT, respectively and adjust the values of the file paths and stream labels accordingly, if necessary. Note that if you zero out the sea-spray or wind-blown dust emissions, you should also edit the emission control file by commenting out the coarse and fine species expected from those modules. Some of these species are used by both emission streams, so if you only want to zero out the sea-spray or dust stream but not the other stream, you will need to determine which species to comment out. Please check the AERO_DATA module for the list of species produced by each stream. Alternatively, you may set the CTM_EMISCHK variable to FALSE in the runscript to avoid crashing CMAQ if it cannot find species it is looking for from emissions streams that have been disabled. To zero Sea Spray aerosol emissions, ``` setenv CTM_OCEAN_CHEM N ``` To zero Wind-Blown Dust aerosol emissions, ``` setenv CTM_WB_DUST N ``` To zero online Biogenic VOC emissions calculated by BEIS, ``` setenv CTM_BIOGEMIS N ``` To zero Lightning NO emissions, ``` setenv CTM_LTNG_NO N ``` ##### b. Creating Rules in the Chemical Mapping Control Namelist (CMAQ_Control_DESID_${MECH}.nml) All streams can be zeroed by creating a rule that refers to 'All' streams. For example, ``` ! Region | Stream Label |Emission | CMAQ- |Phase/|Scale |Basis |Op ! Label | |Surrogate| Species |Mode |Factor| | 'EVERYWHERE' , 'All' ,'All' ,'All' ,'All' ,0. ,'UNIT','o', ``` Here, the 'o' operator regers to *overwrite* and will instruct DESID to change existing instructions that emission variables and CMAQ-species to the new Scale Factor. Additionally, individual streams can be zeroed by creating rules that refer to specific streams. ``` ! Region | Stream Label |Emission | CMAQ- |Phase/|Scale |Basis |Op ! Label | |Surrogate| Species |Mode |Factor| | 'EVERYWHERE' , 'SEASPRAY' ,'All' ,'All' ,'All' ,0. ,'UNIT','o', 'EVERYWHERE' , 'WBDUST' ,'All' ,'All' ,'All' ,0. ,'UNIT','o', 'EVERYWHERE' , 'BIOG' ,'All' ,'All' ,'All' ,0. ,'UNIT','o', 'EVERYWHERE' , 'LTNG' ,'All' ,'All' ,'All' ,0. ,'UNIT','o', 'EVERYWHERE' , 'MOBILE' ,'All' ,'All' ,'All' ,0. ,'UNIT','o', ``` The last rule assumes that one of the emissions streams has been labeled 'MOBILE' in the RunScript. For example, ``` setenv GR_EMIS_LAB_001 MOBILE ``` ### 2. Add Emissions For a New Chemical Species If a species is named "CHEMX" on the gas, aerosol, or nonreactive namelist, then a rule can be created on the Chemical Maping Control Namelist that will link that new species to any existing surrogate from the emission streams. In this example, CHEMX is scaled to 25% of NO emissions. ``` ! Region | Stream Label |Emission | CMAQ- |Phase/|Scale |Basis |Op ! Label | |Surrogate| Species |Mode |Factor| | 'EVERYWHERE' , 'All' ,'NO' ,'CHEMX' ,'All' ,0.25 ,'UNIT','a', ``` Note that the 'a' operator is important here to create the new link from 'CHEMX' to NO. If we want to scale to 25% of total NOx concentrations, we can add a line to include NO2. ``` ! Region | Stream Label |Emission | CMAQ- |Phase/|Scale |Basis |Op ! Label | |Surrogate| Species |Mode |Factor| | 'EVERYWHERE' , 'All' ,'NO' ,'CHEMX' ,'All' ,0.25 ,'UNIT','a', 'EVERYWHERE' , 'All' ,'NO2' ,'CHEMX' ,'All' ,0.25 ,'UNIT','a', ``` ### 3. Scale emissions from one stream by a common factor The following rule in the Chemical Maping Control Namelist will scale all emissions from one example stream ("MOBILE") by a factor of 2. The operator 'm' will multiply the cumulative value of all scale factors that have been applied for the "MOBILE" stream to that point. ``` ! Region | Stream Label |Emission | CMAQ- |Phase/|Scale |Basis |Op ! Label | |Surrogate| Species |Mode |Factor| | 'EVERYWHERE' , 'MOBILE' ,'All' ,'All' ,'All' ,2.0 ,'UNIT','m', ``` ### 4. Scale emissions for one species on all streams To scale emissions for one species, in this case elemental (or black) carbon, on all streams by a factor of 0.5 (50%), use the following rule: ``` ! Region | Stream Label |Emission | CMAQ- |Phase/|Scale |Basis |Op ! Label | |Surrogate| Species |Mode |Factor| | 'EVERYWHERE' , 'All' ,'All' ,'AEC' ,'All' ,0.5 ,'UNIT','m', ``` ### 5. Scale all gas phase emissions but leave aerosols alone If the user wants to target all gas-phase emissions broadly, but leave aerosol emissions alone, the "Phase/Mode" field may be used. The following rule scales all gas-phase emissions by 66%. ``` ! Region | Stream Label |Emission | CMAQ- |Phase/|Scale |Basis |Op ! Label | |Surrogate| Species |Mode |Factor| | 'EVERYWHERE' , 'All' ,'All' ,'All' ,'GAS' ,0.66 ,'UNIT','m', ``` And this rule is just for one stream, for example, the hypothetical "MOBILE" stream: ``` ! Region | Stream Label |Emission | CMAQ- |Phase/|Scale |Basis |Op ! Label | |Surrogate| Species |Mode |Factor| | 'EVERYWHERE' , 'MOBILE' ,'All' ,'All' ,'GAS' ,0.66 ,'UNIT','m', ``` ### 6. Scale all aerosols If instead, the user is interested in scaling all aerosol species by a factor of 3.0 and leaving gas-phase emissions alone, a rule of this form may be used: ``` ! Region | Stream Label |Emission | CMAQ- |Phase/|Scale |Basis |Op ! Label | |Surrogate| Species |Mode |Factor| | 'EVERYWHERE' , 'All' ,'All' ,'All' ,'AERO',3.0 ,'UNIT','m', ``` ### 7. Add or subtract emissions from one surrogate to existing emissions If the following rule is already present on the default emission control namelist. It maps, for all streams, the emission variable TOL (for toluene and possibly toluene-like compounds) to the CMAQ Species TOL. ``` ! Region | Stream Label |Emission | CMAQ- |Phase/|Scale |Basis |Op ! Label | |Surrogate| Species |Mode |Factor| | 'EVERYWHERE' , 'All' ,'TOL' ,'TOL' ,'GAS' ,1.0 ,'UNIT','a', ``` The user wants to add or subtract toluene emissions based on the value of a different emission surrogate, CO for example, then this rule could be used: ``` ! Region | Stream Label |Emission | CMAQ- |Phase/|Scale |Basis |Op ! Label | |Surrogate| Species |Mode |Factor| | 'EVERYWHERE' , 'All' ,'CO' ,'TOL' ,'GAS' ,0.1 ,'UNIT','a', ``` This rule adds more toluene emissions at the rate of 10% of CO emissions to every stream that has CO emissions. If the user wants to subtract 10% of CO emissions instead: ``` ! Region | Stream Label |Emission | CMAQ- |Phase/|Scale |Basis |Op ! Label | |Surrogate| Species |Mode |Factor| | 'EVERYWHERE' , 'All' ,'CO' ,'TOL' ,'GAS' ,-0.1 ,'UNIT','a', ``` Note it is important to use the 'a' operator for these rules since the effects of these rules should be added to existing scale factors. ### 8. Overwrite the scale factor for a single stream or species If the following rule is already present on the default emission control namelist. It maps, for all streams, the emission variable TOL (for toluene and possibly toluene-like compounds) to the CMAQ Species TOL. ``` ! Region | Stream Label |Emission | CMAQ- |Phase/|Scale |Basis |Op ! Label | |Surrogate| Species |Mode |Factor| | 'EVERYWHERE' , 'All' ,'TOL' ,'TOL' ,'GAS' ,1.0 ,'UNIT','a', ``` The user wants to overwrite the scale factor with a different one, 30% for example, use a rule of this form: ``` ! Region | Stream Label |Emission | CMAQ- |Phase/|Scale |Basis |Op ! Label | |Surrogate| Species |Mode |Factor| | 'EVERYWHERE' , 'All' ,'TOL' ,'TOL' ,'GAS' ,0.3 ,'UNIT','o', ``` ### 9. Scale all species except one by a common factor Putting examples 3 and 8 together then can give us this desired result. If the Chemical Mapping Control Namelist already has unity scaling for all emissions by default, then the user may scale all emissions from all streams by a factor of 2.0. Then the user can reset the scale factor of one species, NO for example. ``` ! Region | Stream Label |Emission | CMAQ- |Phase/|Scale |Basis |Op ! Label | |Surrogate| Species |Mode |Factor| | 'EVERYWHERE' , 'All' ,'All' ,'All' ,'GAS' ,2.0 ,'UNIT','m', 'EVERYWHERE' , 'All' ,'NO' ,'NO' ,'GAS' ,1.0 ,'UNIT','o', ``` ### 10. Apply scaling while conserving moles or mass The user may elect to conserve moles or mass instead of applying factors directly using the "Basis" field. For example, the rule ``` ! Region | Stream Label |Emission | CMAQ- |Phase/|Scale |Basis |Op ! Label | |Surrogate| Species |Mode |Factor| | 'EVERYWHERE' , 'All' ,'CO' ,'ANO3' ,'FINE' ,0.15 ,'MASS','a', ``` will add 15% of CO emissions to the emissions of fine-mode particulate nitrate, but the scale factor will also be adjusted by multiplying by the molecular weight of CO to conserve mass. Reminder: gas-phase emission rates are usually provided to CMAQ in molar units while particle emissions are usually provided in mass. Note that if the user scales a particle species to a gas emission variable, or vice-versa, then there will likely be a mass to mole unit conversion necessary. It is important in most cases to choose either "MASS" or "MOLE" for the Basis to ensure that conservation of mass or conservation of moles is preserved, depending on user preference. If the user is scaling one gas species to another gas emission variable, both will likely have molar emissions units. In this case, selecting "MOLE" as the basis will be equivalent to selecting "UNIT". In other words, there will be no modification of the user-defined scale factor due to unit conversion concerns. If, however, "MASS" is selected, then DESID will adjust the scale factor by first multiplying by the molecular weight of the emission variable and then dividing by the molecular weight of the CMAQ species. These tasks do not need to be completed by the user. ``` ! Region | Stream Label |Emission | CMAQ- |Phase/|Scale |Basis |Op ! Label | |Surrogate| Species |Mode |Factor| | 'EVERYWHERE' , 'All' ,'CO' ,'ETHYLBENZ' ,'GAS' ,0.003 ,'MASS','a', ``` ### 11. Apply scaling with spatial dependence The user may apply a scale factor to a specific area of the domain by identifying the name of the mask to be used in the emission rule. For example, this rule increases all emissions in "KENTUCKY" by 50%: ``` ! Region | Stream Label |Emission | CMAQ- |Phase/|Scale |Basis |Op ! Label | |Surrogate| Species |Mode |Factor| | 'KENTUCKY' , 'All' ,'All' ,'All' ,'All' ,1.50 ,'UNIT','m', ``` The label for "KENTUCKY" should be linked to a specific gridded variable mask (of real numbers) using the "Desid_RegionDef" section on the [DESID Control Namelist](../../../CCTM/src/emis/emis/CMAQ_Control_DESID.nml#L137). ``` &Desid_RegionDef RGN_NML = ! | Region Label | File_Label | Variable on File ! 'EVERYWHERE' ,'N/A' ,'N/A', ! 'WATER' ,'CMAQ_MASKS' ,'OPEN', ! 'ALL' ,'CMAQ_MASKS' ,'ALL', 'KENTUCKY' ,'CMAQ_STATES','KY', / ``` This is just an example of defining one mask named "KENTUCKY". For a complete explanation of the spatial-dependent scaling feature, see the CMAQ Appendix [B.3.4 "Defining and Using Regions and Region Families"](../Appendix/CMAQ_UG_appendixB_emissions_control.md). Two example mask files are available on the CMAS Data Warehouse: US states grid mask file and NOAA climate regions grid mask file. These mask files can be used with the 12US1 modeling grid domain (grid origin x = -2556000 m, y = -1728000 m; N columns = 459, N rows = 299). * [Link to grid mask files on CMAS Data Warehouse Google Drive](https://drive.google.com/drive/folders/1x9mJUbKjJaMDFawgy2PUbETwEUopAQDl) * [Link to metadata for the grid mask files is posted on the CMAS Center Dataverse site](https://doi.org/10.15139/S3/XDYYB9) Custom mask files may also be made using the [shp2cmaq](../../../PYTOOLS/shp2cmaq/README.md) tool, which provides instructions for obtaining geospatial data via shape files and converting them to CMAQ gridded input files. One may also populate a CMAQ gridded input file with arbitrary geometric shapes (e.g. squares, diamonds, or other polygons) using the IOAPI library of tools and any common coding language (e.g. Fortran, R, or Python) ### 12. Define families of streams, regions, or chemical species Users can define any number of custom groups or "families" of emission streams, regions or chemical species to be used to streamline (i.e. enhance) prescribed emissions rules. For example, if a user would like to scale NOx by 50% from 4 different emission streams (e.g. PT_EGU, GRIDDED, MOBILE and PT_NONEGU) without using famlies, they would need 8 rules, one for NO and NO2 for each of 4 streams. However, by defining a family of 4 streams and another family of two chemical species (i.e. NOx), 1 rule can be used to achieve the same result. Chemical families are defined by prescribing, via the [CMAQ Miscellaneous Control File](../../../CCTM/src/util/util/CMAQ_Control_Misc.nml), the total number of chemical families to be used, the name of each, the number of members of each family, and the name of each family member. For example, ``` &Chemical_FamVars N_Chem_Fams = 2 Max_Chem_Fam_Members = 20 / &ChemicalFamilies ChemFamilyName(1) = 'NOX' ChemFamilyMembers(1,:)= 'NO','NO2' ChemFamilyName(2) = 'POA' ChemFamilyMembers(2,:)= 'POC','PNCOM' / ``` In this example, 2 chemical families, "NOX" and "POA", are defined with 2 members, "NO" and "NO2", and "POC" and "PNCOM". Note that CMAQv5.3 required the variable ChemFamilyNum to be specified and this value is internally calculated in CMAQv5.4. If the variable is provided, the model will crash. Also, it is required to ensure that no Chemical Family Name is identical to any emission species or CMAQ species. Currently, CMAQ will not detect a name conflict but results will be compromised. A future version of CMAQ will check for duplicative names, trigger an error, and stop the model. Stream families are defined analogously in the DESID Control File (CMAQ_Control_DESID.nml): ``` &Desid_StreamFamVars Desid_N_Stream_Fams = 3 Desid_Max_Stream_Fam_Members = 20 / &Desid_StreamFam ! General sources of POA StreamFamilyName(1) = 'GENERAL_POA' StreamFamilyMembers(1,1:5)= 'GRIDDED_OTHER','GRIDDED_SOLVENTS','PT_CANADA_SOLVENTS','PT_OTHER','PT_US_SOLVENTS' ! Diesel-Like Sources StreamFamilyName(2) = 'DIESEL' StreamFamilyMembers(2,1:2)= 'GRIDDED_DIESEL','PT_CMV' ! US and Canada Aircraft StreamFamilyName(3) = 'AIRCRAFT' StreamFamilyMembers(3,1:2)= 'GRIDDED_US_AIRCRAFT','PT_CANADA_AIRPORTS' / ``` As are region families: ``` &Desid_RegionDefVars Desid_Max_Reg = 60 Desid_N_Reg_Fams = 0 Desid_Max_Reg_Fam_Members = 100 / &Desid_RegionFam RegionFamilyName(1) = 'SouthEastUS' RegionFamilyMembers(1,:)= 'KY','VA','TN','NC','MS','AL','GA','SC','FL' / ``` ### 13. Use a family of streams to scale emissions for a group of sources To then use a stream family to apply a rule to multiple streams, just use the family name in the Stream Label column. ``` ! Region | Stream Label |Emission | CMAQ- |Phase/|Scale |Basis |Op ! Label | |Surrogate| Species |Mode |Factor| | 'EVERYWHERE' , 'DIESEL' ,'NO2' ,'NO2' ,'GAS' ,0.50 ,'UNIT','m', ``` ### 14. Use a family of regions to scale emissions in a new location To use a region family, use the family name in the Region Label column. ``` ! Region | Stream Label |Emission | CMAQ- |Phase/|Scale |Basis |Op ! Label | |Surrogate| Species |Mode |Factor| | 'SouthEastUS' , 'ALL' ,'NO2' ,'NO2' ,'GAS' ,0.50 ,'UNIT','m', ``` ### 15. Use a family of species to scale emissions for a custom group of pollutants Chemical families may be applied in the CMAQ-species column: ``` ! Region | Stream Label |Emission | CMAQ- |Phase/|Scale |Basis |Op ! Label | |Surrogate| Species |Mode |Factor| | 'EVERYWHERE' , 'AIRCRAFT' ,'ALL' ,'NOX' ,'GAS' ,0.50 ,'UNIT','m', ``` or in the Emission Surrogate column: ``` ! Region | Stream Label |Emission | CMAQ- |Phase/|Scale |Basis |Op ! Label | |Surrogate| Species |Mode |Factor| | 'EVERYWHERE' , 'AIRCRAFT' ,'NOX' ,'ALL' ,'GAS' ,0.50 ,'UNIT','m', ``` In both of these cases, both NO and NO2 (as NOx is defined above) are multiplied by 50%. The same is accomplished by using NOX in both columns. ``` ! Region | Stream Label |Emission | CMAQ- |Phase/|Scale |Basis |Op ! Label | |Surrogate| Species |Mode |Factor| | 'EVERYWHERE' , 'AIRCRAFT' ,'NOX' ,'NOX' ,'GAS' ,0.50 ,'UNIT','m', ``` Because the 'm' operator is used, CMAQ will look for pre-existing relationships between the members of 'NOX' in order to apply the scaling rule, which 'multiplies' the existing scaling by 50%. So this example assumes that the following two rules, or something similar, preceed the instructions in this section: ``` ! Region | Stream Label |Emission | CMAQ- |Phase/|Scale |Basis |Op ! Label | |Surrogate| Species |Mode |Factor| | 'EVERYWHERE' , 'AIRCRAFT' ,'NO' ,'NO' ,'GAS' ,1.00 ,'UNIT','a', 'EVERYWHERE' , 'AIRCRAFT' ,'NO2' ,'NO2' ,'GAS' ,1.00 ,'UNIT','a', ``` In this case, CMAQ is adding a relationship between NO and NO2 surrogates and model species. Thus families are most useful when using the 'm' or 'o' operators. However, sometimes the 'a' operator is useful with chemical families. In the example below, a relationship is added between POA surrogates (defined in section 12 above) and CMAQ model species: ``` ! Region | Stream Label |Emission | CMAQ- |Phase/|Scale |Basis |Op ! Label | |Surrogate| Species |Mode |Factor| | 'EVERYWHERE' , 'AIRCRAFT' ,'POA' ,'ALVPO1' ,'FINE',0.09 ,'UNIT','a', ``` CMAQ will use this rule to add POC and PNCOM surrogates together, multiply by 0.09 and assign their emissions to ALVPO1, a semivolatile POA species. The way CMAQ uses chemical families for adding relationships with the 'a' is nuanced. The following logic is applied: - If a chemical family is used for either the emission variable or the CMAQ-Species but not both, then connections are made between each member of the family and the prescribed single-species in the other column. - If both columns include chemical families or the 'ALL' keyword, then each pair of members will be compared. If the names match exactly or a relationship already exists, then the 'a' operation will be applied. If not, then the pair will be ignored. This precaution is in place to protect against the case where a user prescribes an addition (i.e. 'a') rule with the keyword 'ALL' or very large chemical families in both the emission variable and CMAQ-Species columns. Without the precaution in place, adding relationships for ALL surrogates to ALL model species would be an extremely large data structure and almost certainly not an intended use of CMAQ. ### 16. Miscellaneous Notes In the default emissions mapping configuration, sulfuric acid (SULF) mass is mapped to ASO4 (particulate sulfate). If these emissions are perturbed directly or as part of a broader sector- or region-wide scaling, it is recommended to confirm specifically that these emissions have been scaled as desired. For example, if a family named 'SOX' is defined that includes 'SO2' and 'SULF' and then 'SOX' is specified as the CMAQ species in a scaling rule, then the 'SULF' to 'ASO4' mapping would not be detected. [link_emtut_1]: ../../../CCTM/src/emis/emis/CMAQ_Control_DESID.nml [link_emtut_2]: ../../../CCTM/src/MECHS/cracmm2/CMAQ_Control_DESID_cracmm2.nml [link_emtut_3]: ../../../CCTM/scripts/run_cctm_cracmm_2019_12US1_CRACMM2_EPA2019.csh#L420 [link_emtut_4]: ../../../CCTM/src/emis/emis/CMAQ_Control_DESID.nml#L137 [link_emtut_5]: ../../../PREP/shp2cmaq/README.md [link_emtut_6]: ../../../CCTM/src/util/util/CMAQ_Control_Misc.nml [link_emtut_1]: https://github.com/USEPA/CMAQ/blob/main/CCTM/src/emis/emis/CMAQ_Control_DESID.nml [link_emtut_2]: https://github.com/USEPA/CMAQ/blob/main/CCTM/src/MECHS/cracmm2/CMAQ_Control_DESID_cracmm2.nml [link_emtut_3]: https://github.com/USEPA/CMAQ/blob/main/CCTM/scripts/run_cctm_cracmm_2019_12US1_CRACMM2_EPA2019.csh#L420 [link_emtut_4]: https://github.com/USEPA/CMAQ/blob/main/CCTM/src/emis/emis/CMAQ_Control_DESID.nml#L137 [link_emtut_5]: https://github.com/USEPA/CMAQ/blob/main/PREP/shp2cmaq/README.md [link_emtut_6]: https://github.com/USEPA/CMAQ/blob/main/CCTM/src/util/util/CMAQ_Control_Misc.nml ================================================ FILE: DOCS/Users_Guide/Tutorials/CMAQ_UG_tutorial_oceanfile.md ================================================ ## CMAQ Tutorial ## ### Creating an OCEAN file for input to CMAQ ### Purpose: This tutorial describes how to create an ocean mask file that defines the fraction of each grid cell covered by open ocean or surf zone in the CMAQ modeling domain and for adding the variables DMS and CHLO to the ocean file. ------------ The CMAQ sea spray emissions module requires the input of an ocean mask file (OCEAN). OCEAN is a time-independent I/O API file that identifies the fractional [0-1] coverage in each model grid cell allocated to open ocean (OPEN) or surf zone (SURF). The CCTM uses this coverage information to calculate sea spray emission fluxes from the model grid cells online during a CCTM run. Additionally, CMAQ's gas-phase chemical mechanisms except cb6r5m_ae7_aq contain an effective first order halogen mediated ozone loss over the ocean (where OPEN + SURF > 0.0) and also require the OCEAN file. The cb6r5m_ae7_aq mechanism contains bromine, iodine and DMS chemistry, and also requires the OCEAN file with two additional variables: DMS (monthly mean climatological DMS concentrations in seawater) and CHLO (monthly mean climatological chlorophyll concentration). The cb6r5_ae7_aq mechanism contains DMS chemistry and requires the OCEAN file with DMS (monthly mean climatological DMS concentration in seawater). ```mermaid graph TD A[CTM_OCEAN_CHEM = N] --> D(No monthly ocean files required); T[CB6R5M] --> |requires| B B[CTM_OCEAN_CHEM = Y] --> |requires ocean file with| Y L[CB6R5, CRACMM, CB6R3, SAPRC, RACM] --> |optional| B Y[OPEN, SURF] --> |CB6R5 | G(DMS) Y-->|CB6R5M| H(DMS,CHLO) ``` If your domain includes ocean, OPTION 1 is recommended. However, if your modeling domain does not contain any ocean, or you wish to bypass the CMAQ sea spray module and the reaction of ozone with oceanic halogens, follow OPTION 2 or 3. ## OPTION 1: Create OCEAN file from shapefile of domain ### STEP 1: Download the Spatial Allocator The Spatial Allocator (SA) tool can be downloaded from the CMAS Center at the following link: https://www.cmascenter.org/sa-tools/. Login and follow the download and installation instructions. ### STEP 2: Create the OCEAN file If your domain is in the U.S., there is a shapefile included with the SA tool in the data directory (surfzone_poly_st.shp). If your domain is outside the U.S., you will need a shapefile of your domain. See the surfzone_poly_st.shp for a template of the attributes required by the Spatial Allocator for generating an OCEAN file. Using the sample script `alloc_srf_zone_to_oceanfile.csh` (located in the **scripts** directory of the SA tool) as a guide, customize a script to run the SA executable on your machine. The default alloc_srf_zone_to_oceanfile.csh script is shown below. To customize this script for a new domain, set the `GRIDDESC` variable to point to an I/O API grid description file that includes the new domain definition. Set `OUTPUT_GRID_NAME` to the name of the new grid as defined in the GRIDDESC file. If needed, change the `OUTPUT_FILE_MAP_PRJN` variable to the projection definition for the new domain. ``` #! /bin/csh -f #******************* Allocate Shapefiles Run Script ************************** # Allocates a polygon shapefile's data to an I/O API gridded file #***************************************************************************** setenv DEBUG_OUTPUT Y # Set executable setenv EXE "$SA_HOME/bin/32bits/allocator.exe" #change this to 64bits instead of 32bits if you have a 64bit machine # Set Input Directory setenv DATADIR $SA_HOME/data setenv OUTPUT $SA_HOME/output # Select method of spatial analysis setenv MIMS_PROCESSING ALLOCATE setenv TIME time #set "data" shapefile parameters setenv GRIDDESC $DATADIR/GRIDDESC.txt #set parameters for file being allocated setenv INPUT_FILE_NAME $DATADIR/surfzone/surfzone_NC_SC setenv INPUT_FILE_TYPE ShapeFile setenv INPUT_FILE_MAP_PRJN "+proj=lcc,+lat_1=33,+lat_2=45,+lat_0=40,+lon_0=-97" setenv INPUT_FILE_ELLIPSOID "+a=6370000.0,+b=6370000.0" setenv ALLOCATE_ATTRS TYPE setenv ALLOC_MODE_FILE ALL_AREAPERCENT #Set this to SURF_ZONE to create the variables needed for CMAQ OCEANfile setenv ALLOC_ATTR_TYPE SURF_ZONE # Set name and path of resulting shapefile setenv OUTPUT_FILE_TYPE IoapiFile setenv OUTPUT_GRID_NAME NC4KM setenv OUTPUT_FILE_MAP_PRJN "+proj=lcc,+lat_1=33,+lat_2=45,+lat_0=40,+lon_0=-97" setenv OUTPUT_FILE_ELLIPSOID "+a=6370000.0,+b=6370000.0" setenv OUTPUT_FILE_NAME $OUTPUT/ocean_file_${OUTPUT_GRID_NAME}.ncf #echo "Allocating surf zone data to CMAQ OCEANfile" $TIME $EXE ``` Run the script and check the output directory designated in the run script for the new OCEAN file. ### STEP 3: Add DMS and CHLO to the OCEAN file This section uses a Jupyter Notebook. Jupyter Notebooks can be run on cloud-based systems like SageMaker, Binder, Google Colab, or any linux system with Jupyter installed (https://jupyter.org/install). The Jupyter notebook CMAQ_DMS_ChlorA.ipynb (located in the [PYTOOLS][link_1] directory) can be used to add DMS and CHLO to the existing OCEAN file. See the tool’s [README][link_2] for instructions on how to configure an environment for this notebook. The notebook requires setting the following 6 variables: dom, ocnintmpl, ocnouttmpl, gdpath, overwrite, getlatestchlo. Variable “dom” is the output domain which can be defined as follows (12US1 is the output domain name): dom = '12US1' Variable “ocnintmpl” is the location of the existing OCEAN file containing OPEN and SURF. The notebook will add DMS and CHLO to this file: ocnintmpl = f’/work/MOD3DATA/2016_12US1/surface/12US1_surf.ncf’ Variable “ocnouttmpl” is the location of the new OCEAN files to be created by the notebook: ocnouttmpl = f'output/{dom}/OCEAN_%m_L3m_MC_CHL_chlor_a_{dom}.nc' Variable “gdpath” is the path of an IOAPI file using the domain. For most cases, the path of the existing ocean file (ocnintmpl) can be used. gdpath = ocnintmpl The notebook creates many intermediates files. Variable “overwrite” is used to control the intermediate files. Assigning it “False” will keep the existing intermediate files which is faster when re-processing files for a domain. Otherwise, assign it “True”. In most cases, users can keep it as “False”. overwrite = False The notebook obtains monthly mean climatology from NASA which is controlled by a variable “getlatestchlo”. If it is set to “False”, then it uses a previously downloaded climatology from NASA. If it is set to “True”, then it downloads the latest climatology from NASA. In most cases, users can keep it as “False”. getlatestchlo = False Once these variables are set, then users can execute the script to generate ocean files for the domain. It will create 12 monthly ocean files; each file will contain OPEN, SURF, DMS and CHLO. Check the output directory (ocnouttmpl) designated in the script. Month-specific ocean file needs to be used in the CMAQ model for DMS and halogen chemistry. ## OPTION 2: Run without an OCEAN input file in CMAQv5.3 and later If your modeling domain does not contain any coastal area, you can run CMAQ without an OCEAN input file. This will turn off both sea-spray emissions and the first-order decay of ozone over the ocean. To do this, set the run script option "CTM_OCEAN_CHEM" to "N" or "F". If using cb6r5_ae7_aq and you prefer not to use DMS chemistry, the m3fake approach below can be adapted to create a DMS variable with zero values. ## OPTION 3: Zero Out Sea-Spray Emissions in CMAQv5.2 or earlier Even if your modeling domain does not contain areas of sea spray emissions, you need to provide an OCEAN file to the CCTM. You can create a dummy OCEAN file for domains with no sea spray sources or if you prefer to set sea spray emissions to zero. Copy and run the following I/O API Tool m3fake script to create an OCEAN file containing zeros for the open ocean and surf zone coverage fractions. Using this file will effectively configure a CCTM simulation with zero sea spray emissions. Note that you will need the [I/O API Tools](www.cmascenter.org/ioapi) installed and compiled on your Linux system to use this script. ``` #!/bin/csh -f # m3fake script to create a dummy ocean file setenv GRIDDESC $CMAQ_HOME/data/mcip/GRIDDESC setenv GRID_NAME SE52BENCH setenv OUTFILE $CMAQ_HOME/data/ocean/ocean_file.dummy.$GRID_NAME.ncf m3fake << EOF Y 2 SE52BENCH 1 0 2 OPEN 1 open ocean fraction 1 5 0. SURF 1 surf zone fraction 1 5 0. OUTFILE EOF ``` After running the script, check for the output file designated in the above script and use it in place of the OCEAN file in the CCTM. [link_1]: ../../../PYTOOLS/ [link_2]: ../../../PYTOOLS/dmschlo/ [link_1]: https://github.com/USEPA/CMAQ/blob/main/PYTOOLS/ [link_2]: https://github.com/USEPA/CMAQ/blob/main/PYTOOLS/dmschlo/ ================================================ FILE: DOCS/Users_Guide/Tutorials/CMAQ_UG_tutorial_run_time.md ================================================ ## CMAQ Tutorial ### Strategies to Improve CMAQ Model Runtime Purpose: This tutorial shares common options and strategies that CMAQ developers recommend for improving model runtimes on common systems. ------------ #### 1. Linux Environment Settings ``` limit stacksize unlimited ``` #### 2. HPC Queue Manager Options One consideration is to reserve the entire node that CMAQ is running on so that the simulation can make use of maximum resources. In the SLURM queue manager, you can use the following option. ``` #SBATCH --exclusive ``` #### 3. Run time Processor Configuration Settings When a job is running on a distributed system, you need to provide values for this pair of variables: ``` @ NPCOL = m; @ NPROW = n ``` where m should be <= n and m and n should be as close to SQRT(m*n) as possible. #### 4. True Parallel IO Operation in CMAQ The CMAQ model to be run with the parallel I/O (PIO) feature turned on called the "mpi" I/O API libraries (Wong et al. 2015). More information about how to enable PIO within CMAQ can be found in [Appendix D](../Appendix/CMAQ_UG_appendixD_parallel_implementation.md). To utilize this option, please go through this check list: * Have PnetCDF installed and the underlying computing system should have parallel file system, e.g. Lustre or Beefs * Have "set build_parallel_io" this line uncommented inside bldit_cctm.csh when you are ready to build CMAQ * Have an appropriate version of IOAPI 3.2 installed (please contact David Wong at wong.david-c@epa.gov for additional information) * Have "MPI:" prefix inserted in all output file In the run script, e.g. setenv S_CGRID "MPI: $OUTDIR/CCTM_CGRID_${CTM_APPL}.nc" Here are some example of CMAQ Parallel IO performance on various systems with different parallel file system. In each figure, rnetCDF denotes the I/O methodology current CMAQ is using, PnetCDF denotes the application of straight PnetCDF parallel I/O scheme, and PnetCDFcr denotes the new scheme we have developed based upon PnetCDF (reference below) * with Lustre parallel file system (Edison and Kraken were among the world fastest supercomputers a few year ago): ![IO performance on Edison](edison.png) ![IO performance on Kraken](kraken.png) * with BeeGFS parallel file system which is available for free: ![IO performance on a Dell system with outputting 6 standard files](dell_small.png) ![IO performance on a Dell system with outputting 6 standard files plus all diagnostic files](dell_big.png) Wong, D.C., Yang, C.E., Fu, J.S., Wong, K., & Gao, Y. (2015). An approach to enhance pnetCDF performance in environmental modeling applications. Geosci. Model Dev., 8, 1033-1046. ================================================ FILE: DOCS/Users_Guide/Tutorials/CMAQ_UG_tutorial_running_benchmarks.md ================================================ # CMAQ Benchmark Tutorials The following tutorials describe how to install and run the CMAQ test cases for the CMAQ base model, instrumented models, and coupled meteorology-chemistry models. These tutorials are designed to familiarize the user with the CMAQ suite of programs and to verify the installation of the software on your system via benchmarking. Benchmarking CMAQ is recommended in the following circumstances: installation by a new user; installation on a new server; following a new CMAQ release; following upgrades to your system kernel, Fortran/C compiler, netCDF library, or I/O API library. - [Running the CMAQ Base Model with CRACMM2 and STAGE](CMAQ_UG_tutorial_benchmark_cracmm2_stage.md) - [Running the CMAQ Base Model with CB6r5 and M3DRY or STAGE](CMAQ_UG_tutorial_benchmark.md) - [Running the CMAQ-ISAM Test Case](CMAQ_UG_tutorial_ISAM.md) - [Running the CMAQ-DDM-3D Test Case](CMAQ_UG_tutorial_DDM3D.md) - [Running the WRF-CMAQ Test Case](CMAQ_UG_tutorial_WRF-CMAQ_Benchmark.md) - [Build and run the MPAS-CMAQ Test Case using gcc](CMAQ_UG_tutorial_MPAS-CMAQ_Benchmark_gcc.md) - [Build and run the MPAS-CMAQ Test Case using intel](CMAQ_UG_tutorial_MPAS-CMAQ_Benchmark_intel.md) ================================================ FILE: DOCS/Users_Guide/Tutorials/CMAQ_UG_tutorial_tracers.md ================================================ ## CMAQ Tutorial ## ### Add Chemically Inert Gas Phase Tracer Species to CMAQ ### Purpose: This tutorial will step you through the process of adding chemically inert gas phase tracers to the CMAQ model. Inert tracers can be used as a development tool to test mass conservation when modifying processes in CMAQ. They can also be used for exploratory analysis such as studying the persistence or impact of initial and/or boundary conditions on air quality model estimates, e.g., [Hogrefe et al. (2017)](https://doi.org/10.1016/j.atmosenv.2017.04.009), [Liu et al. (2018)](https://doi.org/10.5194/acp-18-17157-2018). Note that inert tracers are not a replacement for source contribution analysis (e.g., [CMAQ ISAM](../CMAQ_UG_ch11_ISAM.md)) that provides an estimate of how much of a chemically reactive modeled pollutant came from specific sources or processes ([Baker et al. (2015)](https://doi.org/10.1016/j.atmosenv.2015.10.055)). ------------ This tutorial will cover 5 different examples to illustrate how adding tracers to the ICBC and emissions input files are similar and highlight important differences to consider when developing a new application. **The first tracer species O3_BC** * is defined to have the same molecular weight as ozone * uses the ozone dry deposition velocity (VD_O3) scaled with a factor of 1 as its surrogate for dry deposition * uses ozone as its scavenging surrogate scaled with a factor of 1 * will try to obtain its boundary conditions from a CMAQ species named 'O3' in the boundary condition files with a scaling factor of 1 * is not mapped to any initial condition, therefore uses default scaling factor of -1 * does not participate in gas-to-aerosol or gas-to-aqueous transformations * will undergo advection and diffusion * will be written to the DDEP, WDEP, and CONC output files **The second tracer species CO_BC** * is defined to have the same molecular weight as CO * uses the CO dry deposition velocity (VD_CO) scaled with a factor of 1 as its surrogate for dry deposition * uses CO as its scavenging surrogate scaled with a factor of 1 * will try to obtain its boundary conditions from a species named 'CO' in the boundary condition files with a scaling factor of 1 * is not mapped to any initial condition, therefore uses default scaling factor of -1 * does not participate in gas-to-aerosol or gas-to-aqueous transformations * will undergo advection and diffusion * will be written to the DDEP, WDEP, and CONC output files **The third tracer species O3_IC** * is defined to have the same molecular weight as ozone * uses the ozone dry deposition velocity (VD_O3) scaled with a factor of 1 as its surrogate for dry deposition * uses ozone as its scavenging surrogate scaled with a factor of 1 * will try to obtain its initial conditions from a species named 'O3' in the initial condition files with scaling factor of -1 * has no boundary condition specified, therefore uses default scaling factor of -1 * does not participate in gas-to-aerosol or gas-to-aqueous transformations * will undergo advection and diffusion * will be written to the DDEP, WDEP, and CONC output files **The fourth tracer species O3_BC_50PC** * is defined to have the same molecular weight as ozone * uses the ozone dry deposition velocity (VD_O3) scaled with a factor of 1 as its surrogate for dry deposition * uses ozone as its scavenging surrogate scaled with a factor of 1 * will try to obtain its boundary conditions from a species named 'O3' in the boundary condition files with a scaling factor of 0.5 * is not mapped to any boundary condition, therefore uses default scaling factor of -1 * does not participate in gas-to-aerosol or gas-to-aqueous transformations * will undergo advection and diffusion * will be written to the DDEP, WDEP, and CONC output files **The fifth tracer species CO_EMIS** * is defined to have the same molecular weight as CO * uses the CO dry deposition velocity (VD_CO) scaled with a factor of 1 as its surrogate for dry deposition * uses CO as its scavenging surrogate scaled with a factor of 1 * is not mapped to any initial/boundary condition surrogate, therefore uses default scaling factor of -1 * does not participate in gas-to-aerosol or gas-to-aqueous transformations * will undergo advection and diffusion * will be written to the DDEP, WDEP, and CONC output files * see the instructions below for how to map emissions to this tracer species using DESID. **The last tracer species ICT_50PPB** * is defined to have a molecular weight of 1 g/mole * is not mapped to any dry deposition velocity surrogate, i.e. does not undergo dry deposition, therefore uses default scaling factor of -1 * is not mapped to any scavenging surrogate, i.e. does not undergo scavenging , therfore uses default scaling factor of -1 * will try to obtain its initial from a species named ICT_50PPB in the initial condition files * is not mapped to any boundary condition therefore uses default scaling factor of -1 * does not participate in gas-to-aerosol or gas-to-aqueous transformations * will undergo advection and diffusion * will not be written to the DDEP and WDEP output files * will be written to the CONC output file ------------ ### STEP 1: Create tracer namelist Create namelist according to Table 4-2 in the [CMAQ User's Guide](../CMAQ_UG_ch04_model_inputs.md#Table4-2). Include one line for each tracer species with the following format (refer to the table below for more information on the abbreviations): **Amended from Table 4-2 in the CMAQ User's Guide** | **Line**| **Column** |**Name** | **Type**| **Description** |**Comments/Options for Syntax**:| |-----|-----|----------------------|----------|--------------------------------------------|----------------------------| | 1 || File Type |String|String to delineate Gas Phase (GC), Aerosol (AE), Non-reactive (NR) and Tracer (TR) species namelist. This section is only applicable for "TR" format files.|{TR_nml}| | 3 || Header ID | String |String to define data structure relating to namelist|{TR_SPECIES_DATA = }| | 5 |1| SPECIES | String |CMAQ Species name, i.e. NO, HNO3, PAR; dependent on chemical mechanism|-| ||2| MOLWT| Integer |Species Molecular Weight|-| | |3| IC | String |Initial conditions surrogate species name|{'Species name', ' '}| | |4| FAC | Integer |Scaling factor for the inital conditions concentration|{Any integer: default = -1 if IC is not specified}| | |5| BC | String |Boundary conditions surrogate species name|{'Species name', ' '}| | |6| FAC | Integer |Scaling factor for the boundary concentration|{Any integer: default = -1 if BC is not specified}| | |7| DRYDEP SURR | String |Surrogate specie name for dry deposition|-| | |8| FAC | Integer |Scaling factor for dry deposition velocity|{Any integer: default = -1 if SURR is not specified}| | |9| WET-SCAV SURR | String |Surrograte specie name for wet deposition|-| | | 10 | FAC | Integer |Scaling factor for wet scavenging|{Any integer: default = -1 if SURR is not specified}| || 11 | TR2AE SURR | String |Surrogate species name for gas-to-aerosol transformation species|Not currently functional in CMAQ| || 12 | TR2AQ SURR | String |Surrogate species name for aqueous phase reactions|Allows the tracer to participate in aqueous phase chemical reactions| || 13 | TRNS | String |Transport Switch. *NOTE: Instead of using one column labeled "TRNS" to turn/off both advection and diffusion for a pollutant, two separate columns labeled "ADV" and "DIFF" can be used to switch on/off advection and diffusion separately.|{YES/NO}| || 14 | DDEP | String |Dry deposition output file switch|{YES/NO}| || 15 | WDEP | Real |Wet deposition output file switch|{YES/NO}| || 16 | CONC | String |Concentration output file switch|{YES/NO}| The example namelist file shown below defines six tracer species. ``` &TR_nml TR_SPECIES_DATA = !SPECIES ,MOLWT ,IC ,IC_FAC ,BC ,BC_FAC ,DEPV ,DEPV_FAC ,SCAV ,SCAV_FAC ,TR2AE ,TR2AQ ,ADVC ,DIFF ,DDEP ,WDEP ,CONC 'O3_BC' ,48.0 ,'' ,-1 ,'O3' , 1 ,'VD_O3' ,1 ,'O3' , 1 ,'' ,'' ,'YES' ,'YES' ,'YES' ,'YES' ,'YES', 'CO_BC' ,28.0 ,'' ,-1 ,'CO' , 1 ,'VD_CO' ,1 ,'CO' , 1 ,'' ,'' ,'YES' ,'YES' ,'YES' ,'YES' ,'YES', 'O3_IC' ,48.0 ,'O3' , 1 ,'' ,-1 ,'VD_O3' ,1 ,'O3' , 1 ,'' ,'' ,'YES' ,'YES' ,'YES' ,'YES' ,'YES', 'O3_BC_50PC' ,48.0 ,'' ,-1 ,'O3' ,0.5 ,'VD_O3' ,1 ,'O3' , 1 ,'' ,'' ,'YES' ,'YES' ,'YES' ,'YES' ,'YES', 'CO_EMIS' ,28.0 ,'' ,-1 ,'' ,-1 ,'VD_CO' ,1 ,'CO' , 1 ,'' ,'' ,'YES' ,'YES' ,'YES' ,'YES' ,'YES', 'ICT_50PPB' , 1.0 ,'ICT_50PPB' , 1 ,'' ,-1 ,'' ,-1 , ,-1 ,'' ,'' ,'YES' ,'YES' ,'' ,'' ,'YES' / ``` ### STEP 2: Add tracers to DESID configuration files If the tracer has emissions then it must be included as part of the DESID configuration for CMAQ. If the tracers are only being added to the initial or boundary conditions file then this step is not necessary. The CO_EMIS tracer is designed to track the fate of CO emissions without any influence from initial or boundary conditions and therefore no IC/BC surrogate was specified and no additional species needs to be added to the initial condition file for this tracer. However, it must be specified in the mechanism-specific CMAQ_Control_DESID file found under CCTM/src/MECHS/*{mechanism name}* in the CMAQ repository. For example if running the cb6r3_ae7_aq mechanism, edit the CMAQ_Control_DESID_cb6r3_ae7_aq.nml file to include the following line after the Custom Mapping Examples in the Emissions Scaling Rules section: ``` ! Region | Stream Label |Emission | CMAQ- |Phase/|Scale |Basis |Op ! Label | |Species | Species |Mode |Factor| | !Tracer 'EVERYWHERE' , 'ALL' ,'CO' ,'CO_EMIS' ,'GAS',1. ,'UNIT','a', ``` ### STEP 3: Add tracers to initial condition, boundary condition, and/or emission files Depending on the desired application, the emission surrogate and IC/BC surrogate defined in the tracer namelist for each tracer need to be added to the corresponding CMAQ input files, i.e. the emissions, initial condition, and/or boundary condition files. The CO_EMIS tracer defined in STEP1 has an emission surrogate that needs to be mapped in a standard emission file (the first four tracers do not have any emission surrogate while the fifth tracer uses CO as its emission surrogate). The first four tracers have a IC/BC surrogates that are contained in standard initial or boundary condition files, while the last tracer, ICT_50PPB, does not have an IC that is contained in a standard IC file. This section provides the necessary steps to add an emissions surrogate to the emissions file and a sample scripts that add the necessary species to an existing initial condition file. Note that adding species (if any) to the initial condition file is only necessary for the first day of the simulation while boundary condition and/or emission species (if any) need to be added to the boundary condition and/or emission files for all days of the simulation. Since all tracers defined above will be written to the CGRID file using their names as defined in column 1 of the namelist file, and since the CGRID file will be used to provide initial conditions to CMAQ after the first day of simulation, the tracer species names defined in column 1 were also used as the names of the IC/BC surrogate in column 9 in the sample tracer namelist file for those tracers that use an IC/BC surrogate. #### Script to add O3_IC and ICT_50PPB to an existing initial condition file #### The run script below uses the [`combine`][link_1] program to add species ICT_50PB to an existing initial condition file. The ICT_50PPB specie is set to a constant mixing ratio of 0.05 ppm for all grid cells. From the CMAQ Home directory run the following commands to build the combine executable: ``` cd $CMAQ_HOME/POST/combine/scripts ./bldit_combine.csh [compiler] [version] |& tee build_combine.log ``` After the combine executable is successfully built, create the following run script in the same folder: ``` #!/bin/csh #> Location of CMAQv5.2 benchmark case set CMAQ_DATA = $CMAQ_HOME/data set OUTDIR = $CMAQ_DATA/SE52BENCH #> Set the working directory set BASE = $cwd cd $BASE; date; set timestamp; echo " "; set echo #> Timestep run parameters. set YEAR = 2011 set MONTH = 07 set DAY = 01 set MET_YEAR = 11 #> Use GENSPEC switch to generate a new specdef file (does not generate output file). setenv GENSPEC Y #> Define name of new species definition file to be created setenv SPECIES_DEF ${OUTDIR}/SpecDef_CGRID_SE52BENCH.txt if (-e ${SPECIES_DEF}) 'rm' ${SPECIES_DEF} #> Define name of input and output files needed for combine program. setenv INFILE1 ${CMAQ_DATA}/SE52BENCH/ref_output/cctm/CCTM_CGRID_v52_intel_SE52BENCH_$YEAR$MONTH$DAY.nc setenv OUTFILE ${OUTDIR}/SE52BENCH/CCTM_CGRID_v52_intel_SE52BENCH_added_tracer_$YEAR$MONTH$DAY.nc #> Executable call: #> #> In this first call, we only generate the specdef file that contains all the #> species contained in the existing boundary condition file. OUTFILE is not #> created /usr/bin/time $BINDIR/combine.${VRSN}.exe #> #> define the tracer species to be added to the boundary condition file using the #> "combine" specdef syntax #> echo "O3_IC ,ppmV ,O3[1], Variable O3_IC" >! ${OUTDIR}/species_def_tracer.txt echo "ICT_50PPB ,ppmV ,0.05, Variable ICT_50PPB" >> ${OUTDIR}/species_def_tracer.txt #> #> concatenate the specdep file containing the existing species and the file #> containing the additional tracer species #> cat ${SPECIES_DEF} ${OUTDIR}/species_def_tracer.txt >! ${OUTDIR}/species_CGRID_D51a_12CalnexBench_added_tracer.txt #> Redefine the name of specdef file setenv SPECIES_DEF ${OUTDIR}/species_CGRID_D51a_12CalnexBench_added_tracer.txt #> Reset the GENSPEC switch to not generate a new specdef file but to generate an output file setenv GENSPEC N #> Executable call: #> #> In this second call, the modified specdef file is used #> and an output file containing all the original species #> as well as the added tracer species is created /usr/bin/time $BINDIR/combine.${VRSN}.exe #> #> Remove the temporary file with the tracer definitions #> 'rm' ${OUTDIR}/SpecDef_tracer.txt date exit() ``` Once the script is made, execute the run script with the following commands: ``` ./run.{script_name}.csh |& tee run.combine.log ``` Further details on how to change and customize the emissions control file to the users specification outside the scope of this tutorial can be found in the [emissions tutorial](CMAQ_UG_tutorial_emissions.md). ### STEP 4: Modify CMAQ run script In the CMAQ run script, replace the default tracer namelist file `Species_Table_TR_0.nml` with the custom tracer namelist file created in STEP 1 and new DESID namelist file created in STEP 2 (if needed). Also replace the original input files (initial conditions, boundary conditions, and/or emissions) with the modified input files created in Step 3. [link_1]: ../../../POST/combine/ [link_1]: https://github.com/USEPA/CMAQ/blob/main/POST/combine/ ================================================ FILE: DOCS/Users_Guide/Tutorials/README.md ================================================ CMAQ Tutorials ============== A series of short tutorials provide practical examples of how to set up and run CMAQ, exercise different features in the software, and better understand the software system. Community members are encouraged to both suggest ideas for new tutorials and to contribute tutorials directly to this repository. [Contact the CMAS Center](mailto:cmas@unc.edu) with new tutorial ideas. - **[Directions for building libraries and configuring your linux environment for CMAQ](CMAQ_UG_tutorial_configure_linux_environment.md)** - **[Directions for running CMAQ test cases](CMAQ_UG_tutorial_running_benchmarks.md)** - **Other Tutorials** - [Debugging Tips](CMAQ_UG_tutorial_debug.md) - [Using the Community Regional Atmospheric Chemistry Multiphase Mechanism (CRACMM)](CMAQ_UG_tutorial_CRACMM.md) - [Manipulate Emissions Inputs with the DESID Module](CMAQ_UG_tutorial_emissions.md) - [Creating an OCEAN file](CMAQ_UG_tutorial_oceanfile.md) - [Adding an Inert Tracer Species to CMAQ](CMAQ_UG_tutorial_tracers.md) - [Create Initial and Boundary Conditions from Seasonal Average Hemispheric CMAQ Output](CMAQ_UG_tutorial_HCMAQ_IC_BC.md) - [Modifying a CMAQ Chemical Mechanism](CMAQ_UG_tutorial_chemicalmechanism.md) ================================================ FILE: DOCS/Users_Guide/Tutorials/scripts/cmaq_libraries/gcc9.1_install_cmaq55_cb6r5_m3dry_for_nc4_compression.csh ================================================ #!/bin/csh -f # ----------------------- # Download and build CMAQ # ----------------------- # NOTE - please change the BUILD, CMAQ_HOME and OPENMPI directory to your local paths # To find the openmpi path, search for mpirun, and then look for the include and lib directories # > which mpirun setenv BUILD $cwd/LIBRARIES_gcc setenv IOAPI_DIR $BUILD/ioapi-3.2/Linux2_x86_64gfort setenv NETCDF_DIR $BUILD/lib setenv NETCDFF_DIR $BUILD/lib setenv OPENMPI /nas/longleaf/apps-dogwood/mpi/gcc_9.1/openmpi-4.0.1 cd $BUILD/.. #git clone -b 55 https://github.com/USEPA/CMAQ/CMAQ.git CMAQ_REPO_v55 git clone -b main ssh://github.com/USEPA/CMAQ.git CMAQ_REPO_v55 echo "downloaded CMAQv55" cd CMAQ_REPO_v55 cd $BUILD/../CMAQ_REPO_v55/ # Change CMAQ_HOME to a local directory #This will remove # from the start of line 102 or add it if it wasn't already there: sed -i '19s/^#/\n/; 19s/^[^\n]/#&/; 19s/^\n//' bldit_project.csh sed -i '20i set CMAQ_HOME = /proj/ie/proj/CMAS/CMAQ/WRF-CMAQv5.5/build/openmpi_gcc_9.1' bldit_project.csh set CMAQ_HOME = $BUILD/../openmpi_gcc_9.1 mkdir $BUILD/../openmpi_gcc_9.1 ./bldit_project.csh # Load the Openmpi module # Edit this name to match what is available on your local machine module load openmpi_4.0.1/gcc_9.1 # edit config_cmaq.csh to specify the library locations cd $BUILD/../openmpi_gcc_9.1/ sed -i '144i \ setenv BUILD /proj/ie/proj/CMAS/CMAQ/WRF-CMAQv5.5/build/LIBRARIES_gcc' config_cmaq.csh sed -i '145i \ setenv OPENMPI /nas/longleaf/apps-dogwood/mpi/gcc_9.1/openmpi-4.0.1' config_cmaq.csh sed -i 's@ioapi_inc_gcc@$BUILD\/ioapi-3.2\/ioapi\/fixed_src@g' config_cmaq.csh sed -i 's@ioapi_lib_gcc@$BUILD\/ioapi-3.2\/Linux2_x86_64gfort@g' config_cmaq.csh sed -i 's@netcdf_lib_gcc@$BUILD\/lib@g' config_cmaq.csh sed -i 's@netcdf_inc_gcc@$BUILD\/include@g' config_cmaq.csh sed -i 's@netcdff_lib_gcc@$BUILD\/lib@g' config_cmaq.csh sed -i 's@netcdff_inc_gcc@$BUILD\/include@g' config_cmaq.csh sed -i 's@mpi_incl_gcc@$OPENMPI\/include@g' config_cmaq.csh sed -i 's@mpi_lib_gcc@$OPENMPI\/lib@g' config_cmaq.csh #edit the config_cmaq.csh to use -fopenmp due to it being used by default for I/O API Library sed -i '172i \ setenv myLINK_FLAG -fopenmp' config_cmaq.csh #edit the config_cmaq.csh to add extra libraries sed -i 's@-lnetcdf\" #@-lnetcdf -lcurl -lhdf5 -lhdf5_hl \" #@g' config_cmaq.csh cd $BUILD/../openmpi_gcc_9.1/CCTM/scripts/ cp bldit_cctm.csh bldit_cctmv55_cb6r5_m3dry.csh # Add extra libs to support nc4 compression in config_cmaq.csh # -lnetcdf -lhdf5_hl -lhdf5 -lm -ldl -lz -lcurl setenv extra_lib "-lnetcdf -lhdf5_hl -lhdf5 -lm -ldl -lz -lcurl" # Add openmp flag to match what was used in I/O API in config_cmaq.csh # setenv myLINK_FLAG "-fopenmp" # openMP not supported w/ CMAQ ./bldit_cctmv55_cb6r5_m3dry.csh gcc |& tee ./bldit_cctmv55_cb6r5_m3dry.log # Verify that the executable was created. ls -rlt BLD_CCTM_v55_gcc_cb6r5_ae7_aq_m3dry/*.exe #Note, to run CMAQ, please create modules or set the LD_LIBRARY_PATH to include the directories for $BUILD/lib at run time. ##see this tutorial for instructions to install modules: ##https://pcluster-cmaq.readthedocs.io/en/latest/user_guide_pcluster/developers_guide/cmaq-vm/install.html#install-environment-modules ## If you have modules on your machine, you can create custom modules ## https://pcluster-cmaq.readthedocs.io/en/latest/user_guide_pcluster/developers_guide/cmaq-vm/install.html#create-custom-environment-module-for-libraries ================================================ FILE: DOCS/Users_Guide/Tutorials/scripts/cmaq_libraries/gcc9.1_install_ioapi_for_nc4_compression.csh ================================================ #!/bin/csh -f # Build I/O API version that supports NCF4 # Note - this script works for gcc 9.1, to use gcc 10 and above, use the -fallow-argument-mismatch argument # As of Aug. 28, 2020, there are now new BIN=Linux*gfort10* types and corresponding Makeinclude.Linux*gfort10* that incorporate this flag for the I/O API and M3Tools. # The above information is from the I/O API documentation: https://www.cmascenter.org/ioapi/documentation/all_versions/html/AVAIL.html set echo setenv INSTDIR $cwd/LIBRARIES_gcc cd $INSTDIR # -------------------------------------- # Add to the library path # -------------------------------------- if (! $?LD_LIBRARY_PATH) then setenv LD_LIBRARY_PATH $INSTDIR/lib else setenv LD_LIBRARY_PATH ${LD_LIBRARY_PATH}:$INSTDIR/lib endif # ---------------------- # Unpack and build IOAPI # ---------------------- git clone https://github.com/cjcoats/ioapi-3.2 cd ioapi-3.2 git checkout -b 20200828 setenv BASEDIR $INSTDIR/ioapi-3.2 setenv BIN Linux2_x86_64gfort mkdir $BASEDIR/$BIN setenv CPLMODE nocpl # Edit Makefile or use syntax: make BIN=Linux2_x86_64pg CPLMODE=nocpl INSTALL=$INSTDIR cd $BASEDIR/ioapi # Copy the Makefile template cp $BASEDIR/ioapi/Makefile.$CPLMODE ${BASEDIR}/ioapi/Makefile cp ${BASEDIR}/m3tools/Makefile.$CPLMODE ${BASEDIR}/m3tools/Makefile # Modify to specify the path of the netcdf libraries sed -i 's/\-lnetcdff/\-L\$\{HOME\}\/lib \-lnetcdff \-lnetcdf \-lhdf5_hl \-lhdf5 \-lm \-ldl \-lz \-lcurl/g' ${BASEDIR}/m3tools/Makefile # need updated Makefile to include ‘-DIOAPI_NCF4=1’ to the MFLAGS make-variable to avoid multiple definition of `nf_get_vara_int64_’ # Makefile can be edited to use these options instead of the default options # VFLAG = -DVERSION='3.2-nocpl-ncf4' # DEFINEFLAGS = -DIOAPI_NCF4=1 $(ARCHFLAGS) $(PARFLAGS) #This will remove # from the start of line 102 or add it if it wasn't already there: sed -i '102s/^#/\n/; 102s/^[^\n]/#&/; 102s/^\n//' Makefile sed -i '100s/^#/\n/; 100s/^[^\n]/#&/; 100s/^\n//' Makefile sed -i '109s/^#/\n/; 109s/^[^\n]/#&/; 109s/^\n//' Makefile sed -i '111s/^#/\n/; 111s/^[^\n]/#&/; 111s/^\n//' Makefile sed -i -e 's/-m64/-DIOAPI_NCF4=1/g' Makeinclude.Linux2_x86_64gfort sed -i -e 's/-openmp/#-openmp/g' Makeinclude.Linux2_x86_64gfort make HOME=$INSTDIR | & tee make.ioapi.log cd $INSTDIR/ioapi-3.2/m3tools make HOME=$INSTDIR | & tee make.m3tools.log ================================================ FILE: DOCS/Users_Guide/Tutorials/scripts/cmaq_libraries/gcc9.1_install_netcdf_for_nc4_compression.csh ================================================ #!/bin/csh -f set echo # # Install used tcsh and gcc/gfortran version 9.1.0 and openmpi # module load openmpi_4.0.1/gcc_9.1.0 /bin/tcsh --version gcc --version gfortran --version module list | grep openmpi which mpirun # compilers setenv SERIAL_FC gfortran setenv SERIAL_F77 gfortran setenv SERIAL_CC gcc setenv SERIAL_CXX g++ setenv MPI_FC mpifort setenv MPI_F77 mpifort setenv MPI_CC mpicc setenv MPI_CXX mpic++ setenv CC $SERIAL_CC setenv CXX $SERIAL_CXX setenv F77 $SERIAL_F77 setenv FC $SERIAL_FC unsetenv F90 # This seems to be set by default on NCAR's Cheyenne and is problematic unsetenv F90FLAGS # # unset envioronment variables that would conflict with this installation # unsetenv LDFLAGS unsetenv CPPFLAGS # -------------------- # Set directory for CMAQ Libraries # ------------------- mkdir -p $cwd/LIBRARIES_gcc setenv INSTDIR $cwd/LIBRARIES_gcc # ---------------------- # Build and install curl # --------------------- cd ${INSTDIR} wget https://github.com/curl/curl/releases/download/curl-8_11_0/curl-8.11.0.tar.gz tar -xzvf curl-8.11.0.tar.gz cd curl-8.11.0 ./configure --prefix=${INSTDIR} --without-ssl --without-libpsl make |& tee make.curl.log make install |& tee make.install.curl.log # ---------------------- # Build and install zlib # --------------------- cd ${INSTDIR} wget https://github.com/madler/zlib/releases/download/v1.3/zlib-1.3.tar.gz tar -xzvf zlib-1.3.tar.gz cd zlib-1.3 ./configure --prefix=${INSTDIR} make -j 4 #make test |& tee make.test.log make install |& tee make.install.log # ----------------------- # Download and build HDF5 # ----------------------- cd ${INSTDIR} wget https://support.hdfgroup.org/ftp/HDF5/releases/hdf5-1.10/hdf5-1.10.5/src/hdf5-1.10.5.tar.gz tar xvf hdf5-1.10.5.tar.gz rm -f hdf5-1.10.5.tar.gz cd hdf5-1.10.5 setenv LDFLAGS "-L${INSTDIR}/lib" setenv CPPFLAGS "-I${INSTDIR}/include" setenv CFLAGS "-O3" setenv FFLAGS "-O3" setenv CXXFLAGS "-O3" setenv FCFLAGS "-O3" ./configure --prefix=${INSTDIR} --enable-fortran --enable-cxx --with-zlib=${INSTDIR}/include,${INSTDIR}/lib -enable-shared --enable-hl make -j 4 |& tee make.gcc9.log # make check > make.gcc9.check make install |& tee make.gcc9.log # --------------------------- # Download and build netCDF-C # --------------------------- cd ${INSTDIR} wget https://github.com/Unidata/netcdf-c/archive/refs/tags/v4.8.1.tar.gz tar xvf v4.8.1.tar.gz cd netcdf-c-4.8.1 setenv LDFLAGS "-L${INSTDIR}/lib" setenv CPPFLAGS "-I${INSTDIR}/include" ./configure --with-pic --enable-netcdf-4 --enable-shared --prefix=${INSTDIR} make -j 4 |& tee make.gcc9.log make install # --------------------------------- # Download and build netCDF-Fortran # --------------------------------- cd ${INSTDIR} wget https://github.com/Unidata/netcdf-fortran/archive/refs/tags/v4.5.3.tar.gz # installation instructions tar xvf v4.5.3.tar.gz #tar xzvf v4.4.5.tar.gz cd netcdf-fortran-4.5.3 #cd netcdf-fortran-4.4.5 ## Note, if non-standard locaions are used for the following compilers, you may need to specify their locations here: setenv LIBS "-L${INSTDIR}/lib -lnetcdf -lhdf5_hl -lhdf5 -lhdf5_fortran -lhdf5hl_fortran -lm -ldl -lz -lcurl " setenv NCDIR ${INSTDIR} setenv CPPFLAGS "-I${INSTDIR}/include" setenv LDFLAGS "-L${INSTDIR}/lib" setenv LD_LIBRARY_PATH ${INSTDIR}/lib:${LD_LIBRARY_PATH} ./configure --with-pic --enable-shared --prefix=${INSTDIR} make |& tee make.gcc9.log make install |& tee make.gcc9.log # ----------------------------- # Download and build netCDF-CXX # ----------------------------- # cd $INSTDIR # wget https://github.com/Unidata/netcdf-cxx4/archive/refs/tags/v4.3.1.tar.gz # tar xvf v4.3.1.tar.gz # cd netcdf-cxx4-4.3.1 # ./configure --enable-shared --prefix=$INSTDIR # make |& tee make.gcc9.log # make install # -------------------------- # Download and build OpenMPI # -------------------------- # cd $INSTDIR # wget https://download.open-mpi.org/release/open-mpi/v3.1/openmpi-3.1.4.tar.gz # tar xvf openmpi-3.1.4.tar.gz # rm -f openmpi-3.1.4.tar.gz # cd openmpi-3.1.4 # export CFLAGS="-O3" # export FFLAGS="-O3" # export CXXFLAGS="-O3" # export FCFLAGS="-O3" # ./configure --prefix=$INSTDIR --enable-mpi-cxx # make |& tee make.gcc9.log ## make check > make.gcc9.check # make install # ---------------------------------- # Download and build Parallel netCDF # ---------------------------------- # NOTE: the openmpi directory path is hard coded on this script and needs to be updated for your local machine ## #cd $INSTDIR # wget https://parallel-netcdf.github.io/Release/pnetcdf-1.12.1.tar.gz # tar xvf pnetcdf-1.12.1.tar.gz # rm -f pnetcdf-1.12.1.tar.gz # cd pnetcdf-1.12.1 # #export CFLAGS="-O3 -fPIC" # #export FFLAGS="-O3 -fPIC" # #export CXXFLAGS="-O3 -fPIC" # #export FCFLAGS="-O3 -fPIC" # #./configure --prefix=$INSTDIR MPIF77=mpif90 MPIF90=mpif90 MPICC=mpicc MPICXX=mpicxx --with-mpi=/nas/longleaf/apps/r/4.1.3/openmpi # ./configure --prefix=$INSTDIR MPIF77=mpif90 MPIF90=mpif90 MPICC=mpicc MPICXX=mpicxx --with-mpi=/nas/longleaf/apps-dogwood/mpi/gcc_9.1.0/openmpi_4.0.1 # make |& tee make.gcc9.log # make install # ---------------------------------------- # Use tcsh 6.20 instead of the broken 6.21 # ---------------------------------------- # cd /shared/build-hdf5 # wget http://ftp.funet.fi/pub/mirrors/ftp.astron.com/pub/tcsh/old/tcsh-6.20.00.tar.gz # tar xvf tcsh-6.20.00.tar.gz # rm -f tcsh-6.20.00.tar.gz # cd tcsh-6.20.00 # ./configure --disable-nls # make > make.gcc9.log 2>&1 # make install # ln -s /usr/local/bin/tcsh /bin/csh # ---------------------- # Download and build vim # ---------------------- # cd /usr/local/src # git clone https://github.com/vim/vim.git vim # cd vim # ./configure # make > make.gcc9.log 2>&1 # make install # cd /usr/local/bin # ln -s vim vi # install test cd $INSTDIR/bin ls h5diff whereis h5diff ./nc-config --version ./nf-config --version # ncxx4-config --version ================================================ FILE: DOCS/Users_Guide/Tutorials/scripts/cmaq_libraries/gcc_11.4_install_cmaq55_cb6r5_m3dry_classic.csh ================================================ #!/bin/csh -f # for gcc 11.4.1 # using classic netCDF and I/O API libraries # ----------------------- # Download and build CMAQ # ----------------------- # NOTE - please change the BUILD, CMAQ_HOME and OPENMPI directory to your local paths # To find the openmpi path, search for mpirun, and then look for the include and lib directories # > which mpirun setenv BUILD $cwd/LIBRARIES_gcc_disable-dap setenv IOAPI_DIR $BUILD/ioapi-3.2/Linux2_x86_64gfort10 setenv NETCDF_DIR $BUILD/lib setenv NETCDFF_DIR $BUILD/lib setenv OPENMPI /nas/sycamore/apps/openmpi/5.0.5/ cd $BUILD/.. #git clone -b 55 https://github.com/USEPA/CMAQ/CMAQ.git CMAQ_REPO_v55 git clone -b main ssh://github.com/USEPA/CMAQ.git CMAQ_REPO_v55 echo "downloaded CMAQv55" cd CMAQ_REPO_v55 cd $BUILD/../CMAQ_REPO_v55/ # Change CMAQ_HOME to a local directory #This will remove # from the start of line 102 or add it if it wasn't already there: sed -i '19s/^#/\n/; 19s/^[^\n]/#&/; 19s/^\n//' bldit_project.csh sed -i '20i set CMAQ_HOME = /proj/ie/proj/CMAS/CMAQ/CMAQv5.5/build_sycamore/openmpi_gcc_disable_dap' bldit_project.csh set CMAQ_HOME = $BUILD/../openmpi_gcc_disable_dap mkdir $BUILD/../openmpi_gcc_disable_dap ./bldit_project.csh # Load the Openmpi module # Edit this name to match what is available on your local machine module load openmpi_5.0.5/gcc_11.4.1 # edit config_cmaq.csh to specify the library locations cd $BUILD/../openmpi_gcc_disable_dap/ sed -i '144i \ setenv BUILD /proj/ie/proj/CMAS/CMAQ/CMAQv5.5/build/LIBRARIES_gcc_disable-dap' config_cmaq.csh sed -i '145i \ setenv OPENMPI /nas/sycamore/apps/openmpi/5.0.5/' config_cmaq.csh sed -i 's@ioapi_inc_gcc@$BUILD\/ioapi-3.2\/ioapi\/fixed_src@g' config_cmaq.csh sed -i 's@ioapi_lib_gcc@$BUILD\/ioapi-3.2\/Linux2_x86_64gfort10@g' config_cmaq.csh sed -i 's@netcdf_lib_gcc@$BUILD\/lib@g' config_cmaq.csh sed -i 's@netcdf_inc_gcc@$BUILD\/include@g' config_cmaq.csh sed -i 's@netcdff_lib_gcc@$BUILD\/lib@g' config_cmaq.csh sed -i 's@netcdff_inc_gcc@$BUILD\/include@g' config_cmaq.csh sed -i 's@mpi_incl_gcc@$OPENMPI\/include@g' config_cmaq.csh sed -i 's@mpi_lib_gcc@$OPENMPI\/lib@g' config_cmaq.csh #edit the config_cmaq.csh to use -fopenmp due to it being used by default for I/O API Library sed -i '172i \ setenv myLINK_FLAG -fopenmp' config_cmaq.csh #edit the config_cmaq.csh to add extra libraries sed -i 's@-lnetcdf\" #@-lnetcdf -lcurl -lm -lzip \" #@g' config_cmaq.csh cd $BUILD/../openmpi_gcc_disable_dap/CCTM/scripts/ cp bldit_cctm.csh bldit_cctmv55_cb6r5_m3dry.csh # Add extra libs to support nc4 compression in config_cmaq.csh # -lnetcdf -lhdf5_hl -lhdf5 -lm -ldl -lz -lcurl setenv extra_lib "-lnetcdf -lm -lzip -lcurl" # Add openmp flag to match what was used in I/O API in config_cmaq.csh # setenv myLINK_FLAG "-fopenmp" # openMP not supported w/ CMAQ ./bldit_cctmv55_cb6r5_m3dry.csh gcc |& tee ./bldit_cctmv55_cb6r5_m3dry.log # Verify that the executable was created. ls -rlt BLD_CCTM_v55_gcc_cb6r5_ae7_aq_m3dry/*.exe #Note, to run CMAQ, please create modules or set the LD_LIBRARY_PATH to include the directories for $BUILD/lib at run time. ================================================ FILE: DOCS/Users_Guide/Tutorials/scripts/cmaq_libraries/gcc_11.4_install_cmaq55_cb6r5_m3dry_for_nc4_compression.csh ================================================ #!/bin/csh -f # for gcc version 11.4.1 # ----------------------- # Download and build CMAQ # ----------------------- # NOTE - please change the BUILD, CMAQ_HOME and OPENMPI directory to your local paths # To find the openmpi path, search for mpirun, and then look for the include and lib directories # > which mpirun setenv BUILD $cwd/LIBRARIES_gcc setenv IOAPI_DIR $BUILD/ioapi-3.2/Linux2_x86_64gfort10 setenv NETCDF_DIR $BUILD/lib setenv NETCDFF_DIR $BUILD/lib setenv OPENMPI /nas/sycamore/apps/openmpi/5.0.5/ cd $BUILD/.. #git clone -b 55 https://github.com/USEPA/CMAQ/CMAQ.git CMAQ_REPO_v55 git clone -b main ssh://github.com/USEPA/CMAQ.git CMAQ_REPO_v55 echo "downloaded CMAQv55" cd CMAQ_REPO_v55 cd $BUILD/../CMAQ_REPO_v55/ # Change CMAQ_HOME to a local directory #This will remove # from the start of line 102 or add it if it wasn't already there: sed -i '19s/^#/\n/; 19s/^[^\n]/#&/; 19s/^\n//' bldit_project.csh sed -i '20i set CMAQ_HOME = /proj/ie/proj/CMAS/CMAQ/CMAQv5.5/build_sycamore/openmpi_gcc' bldit_project.csh set CMAQ_HOME = $BUILD/../openmpi_gcc mkdir $BUILD/../openmpi_gcc ./bldit_project.csh # Load the Openmpi module # Edit this name to match what is available on your local machine module load openmpi_5.0.5/gcc_11.4.1 # edit config_cmaq.csh to specify the library locations cd $BUILD/../openmpi_gcc/ sed -i '144i \ setenv BUILD /proj/ie/proj/CMAS/CMAQ/CMAQv5.5/build/LIBRARIES_gcc' config_cmaq.csh sed -i '145i \ setenv OPENMPI /nas/sycamore/apps/openmpi/5.0.5/' config_cmaq.csh sed -i 's@ioapi_inc_gcc@$BUILD\/ioapi-3.2\/ioapi\/fixed_src@g' config_cmaq.csh sed -i 's@ioapi_lib_gcc@$BUILD\/ioapi-3.2\/Linux2_x86_64gfort10@g' config_cmaq.csh sed -i 's@netcdf_lib_gcc@$BUILD\/lib@g' config_cmaq.csh sed -i 's@netcdf_inc_gcc@$BUILD\/include@g' config_cmaq.csh sed -i 's@netcdff_lib_gcc@$BUILD\/lib@g' config_cmaq.csh sed -i 's@netcdff_inc_gcc@$BUILD\/include@g' config_cmaq.csh sed -i 's@mpi_incl_gcc@$OPENMPI\/include@g' config_cmaq.csh sed -i 's@mpi_lib_gcc@$OPENMPI\/lib@g' config_cmaq.csh #edit the config_cmaq.csh to use -fopenmp due to it being used by default for I/O API Library sed -i '172i \ setenv myLINK_FLAG -fopenmp' config_cmaq.csh #edit the config_cmaq.csh to add extra libraries sed -i 's@-lnetcdf\" #@-lnetcdf -lcurl -lhdf5 -lhdf5_hl \" #@g' config_cmaq.csh cd $BUILD/../openmpi_gcc/CCTM/scripts/ cp bldit_cctm.csh bldit_cctmv55_cb6r5_m3dry.csh # Add extra libs to support nc4 compression in config_cmaq.csh # -lnetcdf -lhdf5_hl -lhdf5 -lm -ldl -lz -lcurl setenv extra_lib "-lnetcdf -lhdf5_hl -lhdf5 -lm -ldl -lz -lcurl" # Add openmp flag to match what was used in I/O API in config_cmaq.csh # setenv myLINK_FLAG "-fopenmp" # openMP not supported w/ CMAQ ./bldit_cctmv55_cb6r5_m3dry.csh gcc |& tee ./bldit_cctmv55_cb6r5_m3dry.log # Verify that the executable was created. ls -rlt BLD_CCTM_v55_gcc_cb6r5_ae7_aq_m3dry/*.exe #Note, to run CMAQ, please create modules or set the LD_LIBRARY_PATH to include the directories for $BUILD/lib at run time. ##see this tutorial for instructions to install modules: ##https://pcluster-cmaq.readthedocs.io/en/latest/user_guide_pcluster/developers_guide/cmaq-vm/install.html#install-environment-modules ## If you have modules on your machine, you can create custom modules ## https://pcluster-cmaq.readthedocs.io/en/latest/user_guide_pcluster/developers_guide/cmaq-vm/install.html#create-custom-environment-module-for-libraries ================================================ FILE: DOCS/Users_Guide/Tutorials/scripts/cmaq_libraries/gcc_11.4_install_ioapi_classic.csh ================================================ #!/bin/csh -f # Build I/O API version that supports classic netCDF # Note - this script works for gcc 11.4.1 # using gcc 10 and above, use the -fallow-argument-mismatch argument # As of Aug. 28, 2020, there are now new BIN=Linux*gfort10* types and corresponding Makeinclude.Linux*gfort10* that incorporate this flag for the I/O API and M3Tools. # The above information is from the I/O API documentation: https://www.cmascenter.org/ioapi/documentation/all_versions/html/AVAIL.html set echo setenv INSTDIR $cwd/LIBRARIES_gcc_disable-dap cd $INSTDIR # -------------------------------------- # Add to the library path # -------------------------------------- if (! $?LD_LIBRARY_PATH) then setenv LD_LIBRARY_PATH $INSTDIR/lib else setenv LD_LIBRARY_PATH ${LD_LIBRARY_PATH}:$INSTDIR/lib endif # ---------------------- # Unpack and build IOAPI # ---------------------- git clone ssh://github.com/cjcoats/ioapi-3.2 cd ioapi-3.2 git checkout -b 20200828 setenv BASEDIR $INSTDIR/ioapi-3.2 setenv BIN Linux2_x86_64gfort10 mkdir $BASEDIR/$BIN setenv CPLMODE nocpl # Edit Makefile or use syntax: make BIN=Linux2_x86_64pg CPLMODE=nocpl INSTALL=$INSTDIR cd $BASEDIR/ioapi # Copy the Makefile template cp $BASEDIR/ioapi/Makefile.$CPLMODE ${BASEDIR}/ioapi/Makefile cp ${BASEDIR}/m3tools/Makefile.$CPLMODE ${BASEDIR}/m3tools/Makefile # Modify to specify the path of the netcdf libraries sed -i 's/\-lnetcdff/\-L\$\{HOME\}\/lib \-lnetcdff \-lnetcdf \-lm \-lzip \-lcurl /g' ${BASEDIR}/m3tools/Makefile # need updated Makefile to include ‘-DIOAPI_NCF4=1’ to the MFLAGS make-variable to avoid multiple definition of `nf_get_vara_int64_’ # Makefile can be edited to use these options instead of the default options # VFLAG = -DVERSION='3.2-nocpl-ncf4' # DEFINEFLAGS = -DIOAPI_NCF4=1 $(ARCHFLAGS) $(PARFLAGS) #This will remove # from the start of line 102 or add it if it wasn't already there: sed -i '102s/^#/\n/; 102s/^[^\n]/#&/; 102s/^\n//' Makefile sed -i '100s/^#/\n/; 100s/^[^\n]/#&/; 100s/^\n//' Makefile sed -i '109s/^#/\n/; 109s/^[^\n]/#&/; 109s/^\n//' Makefile sed -i '111s/^#/\n/; 111s/^[^\n]/#&/; 111s/^\n//' Makefile #sed -i -e 's/m64/m64 -DIOAPI_NCF4=1/g' Makeinclude.Linux2_x86_64gfort sed -i -e 's/-openmp/#-openmp/g' Makeinclude.Linux2_x86_64gfort10 make HOME=$INSTDIR | & tee make.ioapi.log cd $INSTDIR/ioapi-3.2/m3tools make HOME=$INSTDIR | & tee make.m3tools.log ================================================ FILE: DOCS/Users_Guide/Tutorials/scripts/cmaq_libraries/gcc_11.4_install_ioapi_for_nc4_compression.csh ================================================ #!/bin/csh -f # Build I/O API version that supports NCF4 # Note - this script works for gcc 11.4 # with gcc 10 and above, use the -fallow-argument-mismatch argument # As of Aug. 28, 2020, there are now new BIN=Linux*gfort10* types and corresponding Makeinclude.Linux*gfort10* that incorporate this flag for the I/O API and M3Tools. # The above information is from the I/O API documentation: https://www.cmascenter.org/ioapi/documentation/all_versions/html/AVAIL.html set echo setenv INSTDIR $cwd/LIBRARIES_gcc cd $INSTDIR # -------------------------------------- # Add to the library path # -------------------------------------- if (! $?LD_LIBRARY_PATH) then setenv LD_LIBRARY_PATH $INSTDIR/lib else setenv LD_LIBRARY_PATH ${LD_LIBRARY_PATH}:$INSTDIR/lib endif # ---------------------- # Unpack and build IOAPI # ---------------------- git clone ssh://github.com/cjcoats/ioapi-3.2 cd ioapi-3.2 git checkout -b 20200828 setenv BASEDIR $INSTDIR/ioapi-3.2 setenv BIN Linux2_x86_64gfort10 mkdir $BASEDIR/$BIN setenv CPLMODE nocpl # Edit Makefile or use syntax: make BIN=Linux2_x86_64pg CPLMODE=nocpl INSTALL=$INSTDIR cd $BASEDIR/ioapi # Copy the Makefile template cp $BASEDIR/ioapi/Makefile.$CPLMODE ${BASEDIR}/ioapi/Makefile cp ${BASEDIR}/m3tools/Makefile.$CPLMODE ${BASEDIR}/m3tools/Makefile # Modify to specify the path of the netcdf libraries sed -i 's/\-lnetcdff/\-L\$\{HOME\}\/lib \-lnetcdff \-lnetcdf \-lhdf5_hl \-lhdf5 \-lm \-ldl \-lz \-lcurl/g' ${BASEDIR}/m3tools/Makefile # need updated Makefile to include ‘-DIOAPI_NCF4=1’ to the MFLAGS make-variable to avoid multiple definition of `nf_get_vara_int64_’ # Makefile can be edited to use these options instead of the default options # VFLAG = -DVERSION='3.2-nocpl-ncf4' # DEFINEFLAGS = -DIOAPI_NCF4=1 $(ARCHFLAGS) $(PARFLAGS) #This will remove # from the start of line 102 or add it if it wasn't already there: sed -i '102s/^#/\n/; 102s/^[^\n]/#&/; 102s/^\n//' Makefile sed -i '100s/^#/\n/; 100s/^[^\n]/#&/; 100s/^\n//' Makefile sed -i '109s/^#/\n/; 109s/^[^\n]/#&/; 109s/^\n//' Makefile sed -i '111s/^#/\n/; 111s/^[^\n]/#&/; 111s/^\n//' Makefile #sed -i -e 's/m64/m64 -DIOAPI_NCF4=1/g' Makeinclude.Linux2_x86_64gfort sed -i -e 's/-openmp/#-openmp/g' Makeinclude.Linux2_x86_64gfort make HOME=$INSTDIR | & tee make.ioapi.log cd $INSTDIR/ioapi-3.2/m3tools make HOME=$INSTDIR | & tee make.m3tools.log ================================================ FILE: DOCS/Users_Guide/Tutorials/scripts/cmaq_libraries/gcc_11.4_install_netcdf_classic.csh ================================================ #!/bin/csh -f set echo # # Install used tcsh and gcc/gfortran version 11.4.1 and openmpi # module load openmpi_5.0.5/gcc_11.4.1 /bin/tcsh --version gcc --version gfortran --version module list | grep openmpi which mpirun # compilers setenv SERIAL_FC gfortran setenv SERIAL_F77 gfortran setenv SERIAL_CC gcc setenv SERIAL_CXX g++ setenv MPI_FC mpifort setenv MPI_F77 mpifort setenv MPI_CC mpicc setenv MPI_CXX mpic++ setenv CC $SERIAL_CC setenv CXX $SERIAL_CXX setenv F77 $SERIAL_F77 setenv FC $SERIAL_FC unsetenv F90 # This seems to be set by default on NCAR's Cheyenne and is problematic unsetenv F90FLAGS # # unset envioronment variables that would conflict with this installation # unsetenv LDFLAGS unsetenv CPPFLAGS # -------------------- # Set directory for CMAQ Libraries # ------------------- mkdir -p $cwd/LIBRARIES_gcc_disable-dap setenv INSTDIR $cwd/LIBRARIES_gcc_disable-dap # --------------------------- # Download and build netCDF-C # --------------------------- cd ${INSTDIR} wget https://github.com/Unidata/netcdf-c/archive/refs/tags/v4.8.1.tar.gz tar xvf v4.8.1.tar.gz cd netcdf-c-4.8.1 setenv LDFLAGS "-L${INSTDIR}/lib" setenv CPPFLAGS "-I${INSTDIR}/include" ./configure --disable-netcdf-4 --disable-shared --disable-dap --prefix=$INSTDIR make -j 4 |& tee make.gcc.log make install # --------------------------------- # Download and build netCDF-Fortran # --------------------------------- cd ${INSTDIR} wget https://github.com/Unidata/netcdf-fortran/archive/refs/tags/v4.5.3.tar.gz # installation instructions tar xvf v4.5.3.tar.gz cd netcdf-fortran-4.5.3 #cd netcdf-fortran-4.4.5 ## Note, if non-standard locaions are used for the following compilers, you may need to specify their locations here: setenv LDFLAGS "-L${INSTDIR}/lib" setenv CPPFLAGS "-I${INSTDIR}/include" setenv LIBS "-L${INSTDIR}/lib -lnetcdf" setenv NCDIR ${INSTDIR} setenv CPPFLAGS "-I${INSTDIR}/include" setenv LDFLAGS "-L${INSTDIR}/lib" setenv LD_LIBRARY_PATH ${INSTDIR}/lib:${LD_LIBRARY_PATH} ./configure --disable-shared --disable-zstandard-plugin --disable-netcdf-4 -prefix=$INSTDIR make |& tee make.gcc.log make install |& tee make.gcc.log # check version that has been installed cd $INSTDIR/bin ./nc-config --version ./nf-config --version # ncxx4-config --version ================================================ FILE: DOCS/Users_Guide/Tutorials/scripts/cmaq_libraries/gcc_11.4_install_netcdf_for_nc4_compression.csh ================================================ #!/bin/csh -f set echo # # Install used tcsh and gcc/gfortran version 11.4.1 and openmpi # module load openmpi_5.0.5/gcc_11.4.1 /bin/tcsh --version gcc --version gfortran --version module list | grep openmpi which mpirun # compilers setenv SERIAL_FC gfortran setenv SERIAL_F77 gfortran setenv SERIAL_CC gcc setenv SERIAL_CXX g++ setenv MPI_FC mpifort setenv MPI_F77 mpifort setenv MPI_CC mpicc setenv MPI_CXX mpic++ setenv CC $SERIAL_CC setenv CXX $SERIAL_CXX setenv F77 $SERIAL_F77 setenv FC $SERIAL_FC unsetenv F90 # This seems to be set by default on NCAR's Cheyenne and is problematic unsetenv F90FLAGS # # unset envioronment variables that would conflict with this installation # unsetenv LDFLAGS unsetenv CPPFLAGS # -------------------- # Set directory for CMAQ Libraries # ------------------- mkdir -p $cwd/LIBRARIES_gcc setenv INSTDIR $cwd/LIBRARIES_gcc # ---------------------- # Build and install curl # --------------------- cd ${INSTDIR} wget https://github.com/curl/curl/releases/download/curl-8_11_0/curl-8.11.0.tar.gz tar -xzvf curl-8.11.0.tar.gz cd curl-8.11.0 ./configure --prefix=${INSTDIR} --without-ssl --without-libpsl make |& tee make.curl.log make install |& tee make.install.curl.log # ---------------------- # Build and install zlib # --------------------- cd ${INSTDIR} wget https://github.com/madler/zlib/releases/download/v1.3/zlib-1.3.tar.gz tar -xzvf zlib-1.3.tar.gz cd zlib-1.3 ./configure --prefix=${INSTDIR} make -j 4 #make test |& tee make.test.log make install |& tee make.install.log # ----------------------- # Download and build HDF5 # ----------------------- cd ${INSTDIR} wget https://support.hdfgroup.org/ftp/HDF5/releases/hdf5-1.10/hdf5-1.10.5/src/hdf5-1.10.5.tar.gz tar xvf hdf5-1.10.5.tar.gz rm -f hdf5-1.10.5.tar.gz cd hdf5-1.10.5 setenv LDFLAGS "-L${INSTDIR}/lib" setenv CPPFLAGS "-I${INSTDIR}/include" setenv CFLAGS "-O3" setenv FFLAGS "-O3" setenv CXXFLAGS "-O3" setenv FCFLAGS "-O3" ./configure --prefix=${INSTDIR} --enable-fortran --enable-cxx --with-zlib=${INSTDIR}/include,${INSTDIR}/lib -enable-shared --enable-hl make -j 4 |& tee make.gcc9.log # make check > make.gcc9.check make install |& tee make.gcc9.log # --------------------------- # Download and build netCDF-C # --------------------------- cd ${INSTDIR} wget https://github.com/Unidata/netcdf-c/archive/refs/tags/v4.8.1.tar.gz tar xvf v4.8.1.tar.gz cd netcdf-c-4.8.1 setenv LDFLAGS "-L${INSTDIR}/lib" setenv CPPFLAGS "-I${INSTDIR}/include" ./configure --with-pic --enable-netcdf-4 --enable-shared --prefix=${INSTDIR} make -j 4 |& tee make.gcc9.log make install # --------------------------------- # Download and build netCDF-Fortran # --------------------------------- cd ${INSTDIR} wget https://github.com/Unidata/netcdf-fortran/archive/refs/tags/v4.5.3.tar.gz # installation instructions tar xvf v4.5.3.tar.gz #tar xzvf v4.4.5.tar.gz cd netcdf-fortran-4.5.3 #cd netcdf-fortran-4.4.5 ## Note, if non-standard locaions are used for the following compilers, you may need to specify their locations here: setenv LIBS "-L${INSTDIR}/lib -lnetcdf -lhdf5_hl -lhdf5 -lhdf5_fortran -lhdf5hl_fortran -lm -ldl -lz -lcurl " setenv NCDIR ${INSTDIR} setenv CPPFLAGS "-I${INSTDIR}/include" setenv LDFLAGS "-L${INSTDIR}/lib" setenv LD_LIBRARY_PATH ${INSTDIR}/lib:${LD_LIBRARY_PATH} ./configure --with-pic --enable-shared --prefix=${INSTDIR} make |& tee make.gcc9.log make install |& tee make.gcc9.log # check version that has been installed cd $INSTDIR/bin ls h5diff whereis h5diff ./nc-config --version ./nf-config --version # ncxx4-config --version ================================================ FILE: DOCS/Users_Guide/Tutorials/scripts/cmaq_libraries/intel_18.2_install_cmaq55_cb6r5_m3dry_classic.csh ================================================ #!/bin/csh -f # for intel 18.2 and using netCDF classic and I/O API # ----------------------- # Download and build CMAQ # ----------------------- # NOTE - please change the BUILD, CMAQ_HOME and OPENMPI directory to your local paths # To find the openmpi path, search for mpirun, and then look for the include and lib directories # > which mpirun setenv BUILD $cwd/LIBRARIES_intel_classic setenv IOAPI_DIR $BUILD/ioapi-3.2/Linux2_x86_64ifort setenv NETCDF_DIR $BUILD/lib setenv NETCDFF_DIR $BUILD/lib setenv OPENMPI /nas/longleaf/apps-dogwood/mpi/intel_18.2/openmpi_3.1.4 cd $BUILD/.. #git clone -b 55 https://github.com/USEPA/CMAQ/CMAQ.git CMAQ_REPO_v55 git clone -b main ssh://github.com/USEPA/CMAQ.git CMAQ_REPO_v55 echo "downloaded CMAQv55" cd CMAQ_REPO_v55 cd $BUILD/../CMAQ_REPO_v55/ # Change CMAQ_HOME to a local directory #This will remove # from the start of line 102 or add it if it wasn't already there: sed -i '19s/^#/\n/; 19s/^[^\n]/#&/; 19s/^\n//' bldit_project.csh # EDIT this path to specify the BUILD directory set above sed -i '20i set CMAQ_HOME = /21dayscratch/scr/l/i/lizadams/test/openmpi_intel_classic' bldit_project.csh set CMAQ_HOME = $BUILD/../openmpi_intel_classic mkdir $BUILD/../openmpi_intel_classic ./bldit_project.csh # Load the Openmpi module # Edit this name to match what is available on your local machine module load openmpi_3.1.4/intel_18.2 # edit config_cmaq.csh to specify the library locations cd $BUILD/../openmpi_intel_classic/ # EDIT this path to specify the location of the BUILD directory set above sed -i '81i \ setenv BUILD /21dayscratch/scr/l/i/lizadams/test/LIBRARIES_intel_classic' config_cmaq.csh # EDIT this path to specify the location of the mpirun path, find using which mpirun after loading the openmpi module sed -i '82i \ setenv OPENMPI /nas/longleaf/apps-dogwood/mpi/intel_18.2/openmpi_3.1.4/' config_cmaq.csh sed -i 's@ioapi_inc_intel@$BUILD\/ioapi-3.2\/ioapi\/fixed_src@g' config_cmaq.csh sed -i 's@ioapi_lib_intel@$BUILD\/ioapi-3.2\/Linux2_x86_64ifort@g' config_cmaq.csh sed -i 's@netcdf_lib_intel@$BUILD\/lib@g' config_cmaq.csh sed -i 's@netcdf_inc_intel@$BUILD\/include@g' config_cmaq.csh sed -i 's@netcdff_lib_intel@$BUILD\/lib@g' config_cmaq.csh sed -i 's@netcdff_inc_intel@$BUILD\/include@g' config_cmaq.csh sed -i 's@mpi_incl_intel@$OPENMPI\/include@g' config_cmaq.csh sed -i 's@mpi_lib_intel@$OPENMPI\/lib@g' config_cmaq.csh #edit the config_cmaq.csh to use -fopenmp due to it being used by default for I/O API Library sed -i '172i \ setenv myLINK_FLAG -fopenmp' config_cmaq.csh #edit the config_cmaq.csh to add extra libraries sed -i 's@-lnetcdf\" #@-lnetcdf \" #@g' config_cmaq.csh sed -i -e 's/mpiifort/mpifort/g' config_cmaq.csh cd ${CMAQ_HOME}/CCTM/scripts/ cp bldit_cctm.csh bldit_cctmv55_cb6r5_m3dry.csh # Add extra libs to support nc4 compression in config_cmaq.csh # -lnetcdf -lhdf5_hl -lhdf5 -lm -ldl -lz -lcurl setenv extra_lib "-lnetcdf -lm" # Add openmp flag to match what was used in I/O API in config_cmaq.csh # setenv myLINK_FLAG "-fopenmp" # openMP not supported w/ CMAQ ./bldit_cctmv55_cb6r5_m3dry.csh intel |& tee ./bldit_cctmv55_cb6r5_m3dry.log # Verify that the executable was created. ls -rlt BLD_CCTM_v55_intel_cb6r5_ae7_aq_m3dry/*.exe #Note, to run CMAQ, please create modules or set the LD_LIBRARY_PATH to include the directories for $BUILD/lib at run time. ================================================ FILE: DOCS/Users_Guide/Tutorials/scripts/cmaq_libraries/intel_18.2_install_cmaq55_cb6r5_m3dry_for_nc4_compression.csh ================================================ #!/bin/csh -f # ----------------------- # Download and build CMAQ # ----------------------- # NOTE - please change the BUILD, CMAQ_HOME and OPENMPI directory to your local paths # To find the openmpi path, search for mpirun, and then look for the include and lib directories # > which mpirun setenv BUILD $cwd/LIBRARIES_intel setenv IOAPI_DIR $BUILD/ioapi-3.2/Linux2_x86_64ifort setenv NETCDF_DIR $BUILD/lib setenv NETCDFF_DIR $BUILD/lib # Load the OPENMPI module # EDIT this module load command to match the module available on your machine module load openmpi_3.1.4/intel_18.2 # EDIT this path to specify the location of the mpirun path, find using which mpirun after loading the openmpi module setenv OPENMPI /nas/longleaf/apps-dogwood/mpi/intel_18.2/openmpi_3.1.4/ cd $BUILD/.. #git clone -b 55 https://github.com/USEPA/CMAQ/CMAQ.git CMAQ_REPO_v55 git clone -b main ssh://github.com/USEPA/CMAQ.git CMAQ_REPO_v55 echo "downloaded CMAQv55" cd CMAQ_REPO_v55 cd $BUILD/../CMAQ_REPO_v55/ # Change CMAQ_HOME to a local directory #This will remove # from the start of line 102 or add it if it wasn't already there: sed -i '19s/^#/\n/; 19s/^[^\n]/#&/; 19s/^\n//' bldit_project.csh # EDIT this path to specify the BUILD directory set above sed -i '20i set CMAQ_HOME = /21dayscratch/scr/l/i/lizadams/test_nc4/openmpi_intel' bldit_project.csh set CMAQ_HOME = $BUILD/../openmpi_intel mkdir $BUILD/../openmpi_intel ./bldit_project.csh # edit config_cmaq.csh to specify the library locations cd $BUILD/../openmpi_intel/ # EDIT this path to specify the location of the BUILD directory set above sed -i '81i \ setenv BUILD /21dayscratch/scr/l/i/lizadams/test_nc4/LIBRARIES_intel' config_cmaq.csh # EDIT this path to specify the location of the mpirun path, find using which mpirun after loading the openmpi module sed -i '82i \ setenv OPENMPI /nas/longleaf/apps-dogwood/mpi/intel_18.2/openmpi_3.1.4/' config_cmaq.csh sed -i 's@ioapi_inc_intel@$BUILD\/ioapi-3.2\/ioapi\/fixed_src@g' config_cmaq.csh sed -i 's@ioapi_lib_intel@$BUILD\/ioapi-3.2\/Linux2_x86_64ifort@g' config_cmaq.csh sed -i 's@netcdf_lib_intel@$BUILD\/lib@g' config_cmaq.csh sed -i 's@netcdf_inc_intel@$BUILD\/include@g' config_cmaq.csh sed -i 's@netcdff_lib_intel@$BUILD\/lib@g' config_cmaq.csh sed -i 's@netcdff_inc_intel@$BUILD\/include@g' config_cmaq.csh sed -i 's@mpi_incl_intel@$OPENMPI\/include@g' config_cmaq.csh sed -i 's@mpi_lib_intel@$OPENMPI\/lib@g' config_cmaq.csh #edit the config_cmaq.csh to use -fopenmp due to it being used by default for I/O API Library sed -i '172i \ setenv myLINK_FLAG -qopenmp' config_cmaq.csh #edit the config_cmaq.csh to add extra libraries sed -i 's@-lnetcdf\" #@-lnetcdf -lcurl -lhdf5 -lhdf5_hl \" #@g' config_cmaq.csh sed -i -e 's/mpiifort/mpifort/g' config_cmaq.csh cd $CMAQ_HOME/CCTM/scripts/ cp bldit_cctm.csh bldit_cctmv55_cb6r5_m3dry.csh # Add extra libs to support nc4 compression in config_cmaq.csh # -lnetcdf -lhdf5_hl -lhdf5 -lm -ldl -lz -lcurl setenv extra_lib "-lnetcdf -lhdf5_hl -lhdf5 -lm -ldl -lz -lcurl" # Add openmp flag to match what was used in I/O API in config_cmaq.csh # setenv myLINK_FLAG "-fopenmp" # openMP not supported w/ CMAQ ./bldit_cctmv55_cb6r5_m3dry.csh intel |& tee ./bldit_cctmv55_cb6r5_m3dry_intel.log # Verify that the executable was created. ls -rlt BLD_CCTM_v55_intel_cb6r5_ae7_aq_m3dry/*.exe #Note, to run CMAQ, please create modules or set the LD_LIBRARY_PATH to include the directories for $BUILD/lib at run time. ##see this tutorial for instructions to install modules: ##https://pcluster-cmaq.readthedocs.io/en/latest/user_guide_pcluster/developers_guide/cmaq-vm/install.html#install-environment-modules ## If you have modules on your machine, you can create custom modules ## https://pcluster-cmaq.readthedocs.io/en/latest/user_guide_pcluster/developers_guide/cmaq-vm/install.html#create-custom-environment-module-for-libraries ================================================ FILE: DOCS/Users_Guide/Tutorials/scripts/cmaq_libraries/intel_18.2_install_ioapi_classic.csh ================================================ #!/bin/csh -f # Build I/O API version using classic version of netCDF # Note - this script works for ifort 18.2, and depends on intel_18.2_install_netcdf_classic.csh # The above information is from the I/O API documentation: https://www.cmascenter.org/ioapi/documentation/all_versions/html/AVAIL.html set echo module load openmpi_3.1.4/intel_18.2 setenv INSTDIR $cwd/LIBRARIES_intel_classic cd $INSTDIR # -------------------------------------- # Add to the library path # -------------------------------------- if (! $?LD_LIBRARY_PATH) then setenv LD_LIBRARY_PATH $INSTDIR/lib else setenv LD_LIBRARY_PATH ${LD_LIBRARY_PATH}:$INSTDIR/lib endif # ---------------------- # Unpack and build IOAPI # ---------------------- git clone ssh://github.com/cjcoats/ioapi-3.2 cd ioapi-3.2 git checkout -b 20200828 setenv BASEDIR $INSTDIR/ioapi-3.2 setenv BIN Linux2_x86_64ifort mkdir $BASEDIR/$BIN setenv CPLMODE nocpl # Edit Makefile or use syntax: make BIN=Linux2_x86_64pg CPLMODE=nocpl INSTALL=$INSTDIR cd $BASEDIR/ioapi # Copy the Makefile template cp $BASEDIR/ioapi/Makefile.$CPLMODE ${BASEDIR}/ioapi/Makefile cp ${BASEDIR}/m3tools/Makefile.$CPLMODE ${BASEDIR}/m3tools/Makefile # Modify to specify the path of the netcdf libraries sed -i 's/\-lnetcdff/\-L\$\{HOME\}\/lib \-lnetcdff \-lnetcdf \-lm /g' ${BASEDIR}/m3tools/Makefile # need updated Makefile to include ‘-DIOAPI_NCF4=1’ to the MFLAGS make-variable to avoid multiple definition of `nf_get_vara_int64_’ # Makefile can be edited to use these options instead of the default options # VFLAG = -DVERSION='3.2-nocpl-ncf4' # DEFINEFLAGS = -DIOAPI_NCF4=1 $(ARCHFLAGS) $(PARFLAGS) #This will remove # from the start of line 102 or add it if it wasn't already there: sed -i '102s/^#/\n/; 102s/^[^\n]/#&/; 102s/^\n//' Makefile sed -i '100s/^#/\n/; 100s/^[^\n]/#&/; 100s/^\n//' Makefile sed -i '109s/^#/\n/; 109s/^[^\n]/#&/; 109s/^\n//' Makefile sed -i '111s/^#/\n/; 111s/^[^\n]/#&/; 111s/^\n//' Makefile #sed -i -e 's/m64/m64 -DIOAPI_NCF4=1/g' Makeinclude.Linux2_x86_64ifort sed -i -e 's/-openmp/#-openmp/g' Makeinclude.Linux2_x86_64ifort make HOME=$INSTDIR | & tee make.ioapi.log cd $INSTDIR/ioapi-3.2/m3tools make HOME=$INSTDIR | & tee make.m3tools.log ================================================ FILE: DOCS/Users_Guide/Tutorials/scripts/cmaq_libraries/intel_18.2_install_ioapi_for_nc4_compression.csh ================================================ #!/bin/csh -f # Build I/O API version that supports NCF4 # Note - this script works for intel 18.2 set echo # Install used tcsh and intel and openmpi # module load intel/18.2 openmpi_3.1.4/intel_18.2 setenv INSTDIR $cwd/LIBRARIES_intel cd $INSTDIR # -------------------------------------- # Add to the library path # -------------------------------------- if (! $?LD_LIBRARY_PATH) then setenv LD_LIBRARY_PATH $INSTDIR/lib else setenv LD_LIBRARY_PATH ${LD_LIBRARY_PATH}:$INSTDIR/lib endif # ---------------------- # Unpack and build IOAPI # ---------------------- git clone https://github.com/cjcoats/ioapi-3.2 cd ioapi-3.2 git checkout -b 20200828 setenv BASEDIR $INSTDIR/ioapi-3.2 setenv BIN Linux2_x86_64ifort mkdir $BASEDIR/$BIN setenv CPLMODE nocpl # Edit Makefile or use syntax: make BIN=Linux2_x86_64pg CPLMODE=nocpl INSTALL=$INSTDIR cd $BASEDIR/ioapi # Copy the Makefile template cp $BASEDIR/ioapi/Makefile.$CPLMODE ${BASEDIR}/ioapi/Makefile cp ${BASEDIR}/m3tools/Makefile.$CPLMODE ${BASEDIR}/m3tools/Makefile # Modify to specify the path of the netcdf libraries sed -i 's/\-lnetcdff/\-L\$\{HOME\}\/lib \-lnetcdff \-lnetcdf \-lhdf5_hl \-lhdf5 \-lm \-lz \-lsz /g' ${BASEDIR}/m3tools/Makefile # need updated Makefile to include ‘-DIOAPI_NCF4=1’ to the MFLAGS make-variable to avoid multiple definition of `nf_get_vara_int64_’ # Makefile can be edited to use these options instead of the default options # VFLAG = -DVERSION='3.2-nocpl-ncf4' # DEFINEFLAGS = -DIOAPI_NCF4=1 $(ARCHFLAGS) $(PARFLAGS) #This will remove # from the start of line 102 or add it if it wasn't already there: sed -i '102s/^#/\n/; 102s/^[^\n]/#&/; 102s/^\n//' Makefile sed -i '100s/^#/\n/; 100s/^[^\n]/#&/; 100s/^\n//' Makefile sed -i '109s/^#/\n/; 109s/^[^\n]/#&/; 109s/^\n//' Makefile sed -i '111s/^#/\n/; 111s/^[^\n]/#&/; 111s/^\n//' Makefile #sed -i -e 's/m64/m64 -DIOAPI_NCF4=1/g' Makeinclude.Linux2_x86_64ifort sed -i -e 's/-openmp/#-openmp/g' Makeinclude.Linux2_x86_64ifort make HOME=$INSTDIR | & tee make.ioapi.log cd $INSTDIR/ioapi-3.2/m3tools make HOME=$INSTDIR | & tee make.m3tools.log ================================================ FILE: DOCS/Users_Guide/Tutorials/scripts/cmaq_libraries/intel_18.2_install_netcdf_classic.csh ================================================ #!/bin/csh -f set echo # # Install used tcsh and intel version 18.2 and openmpi # for classic version of netCDF library # module load openmpi_3.1.4/intel_18.2 /bin/tcsh --version ifort --version icc --version module list | grep openmpi which mpirun # compilers setenv SERIAL_FC ifort setenv SERIAL_F77 ifort setenv SERIAL_CC icc setenv SERIAL_CXX icpc setenv MPI_FC mpifort setenv MPI_F77 mpifort setenv MPI_CC mpicc setenv MPI_CXX mpic++ setenv CC $SERIAL_CC setenv CXX $SERIAL_CXX setenv F77 $SERIAL_F77 setenv FC $SERIAL_FC unsetenv F90 # This seems to be set by default on NCAR's Cheyenne and is problematic unsetenv F90FLAGS # # unset envioronment variables that would conflict with this installation # unsetenv LDFLAGS unsetenv CPPFLAGS # -------------------- # Set directory for CMAQ Libraries # ------------------- mkdir -p $cwd/LIBRARIES_intel_classic setenv INSTDIR $cwd/LIBRARIES_intel_classic # --------------------------- # Download and build netCDF-C # --------------------------- cd ${INSTDIR} wget https://github.com/Unidata/netcdf-c/archive/refs/tags/v4.8.1.tar.gz tar xvf v4.8.1.tar.gz cd netcdf-c-4.8.1 setenv LDFLAGS "-L${INSTDIR}/lib" setenv CPPFLAGS "-I${INSTDIR}/include" ./configure --disable-netcdf-4 --disable-shared --disable-dap --prefix=$INSTDIR make -j 4 |& tee make.intel.log make install # --------------------------------- # Download and build netCDF-Fortran # --------------------------------- cd ${INSTDIR} wget https://github.com/Unidata/netcdf-fortran/archive/refs/tags/v4.5.3.tar.gz # installation instructions tar xvf v4.5.3.tar.gz cd netcdf-fortran-4.5.3 #cd netcdf-fortran-4.4.5 # Edit configure to remove -qversion sed -i -e 's/-qversion//g' ## Note, if non-standard locaions are used for the following compilers, you may need to specify their locations here: setenv LDFLAGS "-L${INSTDIR}/lib" setenv CPPFLAGS "-I${INSTDIR}/include" setenv LIBS "-L${INSTDIR}/lib -lnetcdf" setenv NCDIR ${INSTDIR} setenv CPPFLAGS "-I${INSTDIR}/include" setenv LDFLAGS "-L${INSTDIR}/lib" setenv LD_LIBRARY_PATH ${INSTDIR}/lib:${LD_LIBRARY_PATH} ./configure --disable-shared --disable-zstandard-plugin --disable-netcdf-4 -prefix=$INSTDIR make |& tee make.intel.log make install |& tee make.intel.log # check version that has been installed cd $INSTDIR/bin ./nc-config --version ./nf-config --version # ncxx4-config --version ================================================ FILE: DOCS/Users_Guide/Tutorials/scripts/cmaq_libraries/intel_18.2_install_netcdf_for_nc4_compression.csh ================================================ #!/bin/csh -f set echo # # Install used tcsh and intel and openmpi moudule load openmpi_3.1.4/intel_18.2 # /bin/tcsh --version ifort --version icc --version module list | grep openmpi which mpirun # compilers setenv SERIAL_FC ifort setenv SERIAL_F77 ifort setenv SERIAL_CC icc setenv SERIAL_CXX icpc setenv MPI_FC mpifort setenv MPI_F77 mpifort setenv MPI_CC mpicc setenv MPI_CXX mpic++ setenv CC $SERIAL_CC setenv CXX $SERIAL_CXX setenv F77 $SERIAL_F77 setenv FC $SERIAL_FC unsetenv F90 # This seems to be set by default on NCAR's Cheyenne and is problematic unsetenv F90FLAGS # # # unset envioronment variables that would conflict with this installation # unsetenv LDFLAGS unsetenv CPPFLAGS # -------------------- # Set directory for CMAQ Libraries # ------------------- mkdir -p $cwd/LIBRARIES_intel setenv INSTDIR $cwd/LIBRARIES_intel # --------- # Build Zlib # ---------- cd ${INSTDIR} wget https://github.com/madler/zlib/releases/download/v1.3/zlib-1.3.tar.gz tar -xzvf zlib-1.3.tar.gz cd zlib-1.3 ./configure --prefix=${INSTDIR} make install |& tee make.install.zlib.log # --------- # Build libzip # ---------- #cd ${INSTDIR} #wget https://libzip.org/download/libzip-1.11.3.tar.gz #tar -xzvf libzip-1.11.3.tar.gz #cd libzip-1.11.3 #mkdir build #cd build #cmake -DBUILD_SHARED_LIBS=OFF -DCMAKE_INSTALL_PREFIX=$INSTDIR -DCMAKE_C_COMPILER=icc .. ##setenv ZIP_STATIC TRUE #cmake -DBUILD_SHARED_LIBS=ON -DCMAKE_INSTALL_PREFIX=$INSTDIR -DCMAKE_C_COMPILER=icc .. #make #make install ### copy the libraries from lib64 to lib #cd $INSTDIR/lib64 #mkdir ../lib #cp * ../lib #----- # Build szip # ------- cd $INSTDIR wget https://docs.hdfgroup.org/archive/support/ftp/lib-external/szip/2.1.1/src/szip-2.1.1.tar.gz tar -xzvf szip-2.1.1.tar.gz cd szip-2.1.1 ./configure --prefix=${INSTDIR} make install |& tee make.install.szip.log # ---------------------- # Build and install curl # --------------------- cd ${INSTDIR} wget https://curl.se/download/curl-8.11.1.tar.gz tar -xzvf curl-8.11.1.tar.gz cd curl-8.11.1 ./configure --prefix=${INSTDIR} --without-ssl --without-libpsl --with-zlib=${INSTDIR}/ make |& tee make.curl.log make install |& tee make.install.curl.log # ----------------------- # Download and build HDF5 # ----------------------- cd ${INSTDIR} wget https://support.hdfgroup.org/ftp/HDF5/releases/hdf5-1.10/hdf5-1.10.5/src/hdf5-1.10.5.tar.gz tar xvf hdf5-1.10.5.tar.gz rm -f hdf5-1.10.5.tar.gz cd hdf5-1.10.5 setenv CFLAGS "-O3" setenv FFLAGS "-O3" setenv CXXFLAGS "-O3" setenv FCFLAGS "-O3" setenv LDFLAGS "-L${INSTDIR}/lib" setenv CPPFLAGS "-I${INSTDIR}/include" setenv LIBS "-lz -ldl -lm" ./configure --prefix=${INSTDIR} --enable-fortran --enable-cxx --with-zlib=${INSTDIR}/include,${INSTDIR}/lib -enable-shared --enable-hl -Wno-implicit-function-declaration -Wno-implicit-int make -j 4 |& tee make.intel.log # make check > make.intel.check make install |& tee make.intel.log # --------------------------- # Download and build netCDF-C # --------------------------- cd ${INSTDIR} wget https://github.com/Unidata/netcdf-c/archive/refs/tags/v4.8.1.tar.gz tar xvf v4.8.1.tar.gz cd netcdf-c-4.8.1 setenv CPPFLAGS "-I${INSTDIR}/include" setenv LDFLAGS "-L${INSTDIR}/lib" ./configure --with-pic --enable-netcdf-4 --disable-nczarr --disable-dap --enable-shared --prefix=${INSTDIR} --with-zlib=${INSTDIR}/include,${INSTDIR}/lib make -j 4 |& tee make.intel.log make install # --------------------------------- # Download and build netCDF-Fortran # --------------------------------- cd ${INSTDIR} wget https://github.com/Unidata/netcdf-fortran/archive/refs/tags/v4.5.3.tar.gz # installation instructions tar xvf v4.5.3.tar.gz cd netcdf-fortran-4.5.3 ## Note, if non-standard locaions are used for the following compilers, you may need to specify their locations here: setenv LIBS "-L${INSTDIR}/lib -lnetcdf -lhdf5_hl -lhdf5 -lm -ldl -lz -lcurl " setenv NCDIR ${INSTDIR} # setenv LIBS "-lnetcdf" setenv CPPFLAGS "-I${INSTDIR}/include" setenv LDFLAGS "-L${INSTDIR}/lib" setenv LD_LIBRARY_PATH ${INSTDIR}/lib:${LD_LIBRARY_PATH} ./configure --with-pic --enable-shared --prefix=${INSTDIR} make -j 4 |& tee make.intel.log make install # ----------------------------- # Download and build netCDF-CXX # ----------------------------- # cd $INSTDIR # wget https://github.com/Unidata/netcdf-cxx4/archive/refs/tags/v4.3.1.tar.gz # tar xvf v4.3.1.tar.gz # cd netcdf-cxx4-4.3.1 # ./configure --with-pic --enable-shared --prefix=$INSTDIR # make |& tee make.intel.log # make install # -------------------------- # Download and build OpenMPI # -------------------------- # cd $INSTDIR # wget https://download.open-mpi.org/release/open-mpi/v3.1/openmpi-3.1.4.tar.gz # tar xvf openmpi-3.1.4.tar.gz # rm -f openmpi-3.1.4.tar.gz # cd openmpi-3.1.4 # export CFLAGS="-O3" # export FFLAGS="-O3" # export CXXFLAGS="-O3" # export FCFLAGS="-O3" # ./configure --prefix=$INSTDIR --enable-mpi-cxx # make |& tee make.intel.log ## make check > make.intel.check # make install # ---------------------------------- # Download and build Parallel netCDF # ---------------------------------- # NOTE: the openmpi directory path is hard coded on this script and needs to be updated for your local machine ## #cd $INSTDIR # wget https://parallel-netcdf.github.io/Release/pnetcdf-1.12.1.tar.gz # tar xvf pnetcdf-1.12.1.tar.gz # rm -f pnetcdf-1.12.1.tar.gz # cd pnetcdf-1.12.1 # #export CFLAGS="-O3 -fPIC" # #export FFLAGS="-O3 -fPIC" # #export CXXFLAGS="-O3 -fPIC" # #export FCFLAGS="-O3 -fPIC" # #./configure --prefix=$INSTDIR MPIF77=mpif90 MPIF90=mpif90 MPICC=mpicc MPICXX=mpicxx --with-mpi=/nas/longleaf/rhel8/apps/openmpi/4.1.4 # ./configure --prefix=$INSTDIR MPIF77=mpif90 MPIF90=mpif90 MPICC=mpicc MPICXX=mpicxx --with-mpi=/nas/longleaf/rhel8/apps/openmpi/4.1.4 # make |& tee make.intel.log # make install # ---------------------------------------- # Use tcsh 6.20 instead of the broken 6.21 # ---------------------------------------- # cd /shared/build-hdf5 # wget http://ftp.funet.fi/pub/mirrors/ftp.astron.com/pub/tcsh/old/tcsh-6.20.00.tar.gz # tar xvf tcsh-6.20.00.tar.gz # rm -f tcsh-6.20.00.tar.gz # cd tcsh-6.20.00 # ./configure --disable-nls # make > make.intel.log 2>&1 # make install # ln -s /usr/local/bin/tcsh /bin/csh # ---------------------- # Download and build vim # ---------------------- # cd /usr/local/src # git clone https://github.com/vim/vim.git vim # cd vim # ./configure # make > make.intel.log 2>&1 # make install # cd /usr/local/bin # ln -s vim vi # install test cd $INSTDIR/bin ls h5diff whereis h5diff ./nc-config --version ./nf-config --version #ncxx4-config --version ================================================ FILE: DOCS/Users_Guide/Tutorials/scripts/cmaq_libraries/intel_20.2_install_cmaq55_cb6r5_m3dry_for_nc4_compression.csh ================================================ #!/bin/csh -f # ----------------------- # Download and build CMAQ # ----------------------- # NOTE - please change the BUILD, CMAQ_HOME and OPENMPI directory to your local paths # To find the openmpi path, search for mpirun, and then look for the include and lib directories # > which mpirun setenv BUILD $cwd/LIBRARIES_intel setenv IOAPI_DIR $BUILD/ioapi-3.2/Linux2_x86_64ifort setenv NETCDF_DIR $BUILD/lib setenv NETCDFF_DIR $BUILD/lib # Load the OPENMPI module # EDIT this module load command to match the module available on your machine module load openmpi/4.1.4-intel_20.2 # EDIT this path to specify the location of the mpirun path, find using which mpirun after loading the openmpi module setenv OPENMPI /nas/longleaf/rhel8/apps/openmpi/4.1.4 cd $BUILD/.. #git clone -b 55 https://github.com/USEPA/CMAQ/CMAQ.git CMAQ_REPO_v55 git clone -b main ssh://github.com/USEPA/CMAQ.git CMAQ_REPO_v55 echo "downloaded CMAQv55" cd CMAQ_REPO_v55 cd $BUILD/../CMAQ_REPO_v55/ # Change CMAQ_HOME to a local directory #This will remove # from the start of line 102 or add it if it wasn't already there: sed -i '19s/^#/\n/; 19s/^[^\n]/#&/; 19s/^\n//' bldit_project.csh # EDIT this path to specify the BUILD directory set above sed -i '20i set CMAQ_HOME = /work/users/l/i/lizadams/test_nc4/openmpi_intel' bldit_project.csh set CMAQ_HOME = $BUILD/../openmpi_intel mkdir $BUILD/../openmpi_intel ./bldit_project.csh # edit config_cmaq.csh to specify the library locations cd $BUILD/../openmpi_intel/ # EDIT this path to specify the location of the BUILD directory set above sed -i '81i \ setenv BUILD /work/users/l/i/lizadams/test_nc4/LIBRARIES_intel' config_cmaq.csh # EDIT this path to specify the location of the mpirun path, find using which mpirun after loading the openmpi module sed -i '82i \ setenv OPENMPI /nas/longleaf/rhel8/apps/openmpi/4.1.4' config_cmaq.csh sed -i 's@ioapi_inc_intel@$BUILD\/ioapi-3.2\/ioapi\/fixed_src@g' config_cmaq.csh sed -i 's@ioapi_lib_intel@$BUILD\/ioapi-3.2\/Linux2_x86_64ifort@g' config_cmaq.csh sed -i 's@netcdf_lib_intel@$BUILD\/lib@g' config_cmaq.csh sed -i 's@netcdf_inc_intel@$BUILD\/include@g' config_cmaq.csh sed -i 's@netcdff_lib_intel@$BUILD\/lib@g' config_cmaq.csh sed -i 's@netcdff_inc_intel@$BUILD\/include@g' config_cmaq.csh sed -i 's@mpi_incl_intel@$OPENMPI\/include@g' config_cmaq.csh sed -i 's@mpi_lib_intel@$OPENMPI\/lib@g' config_cmaq.csh #edit the config_cmaq.csh to use -fopenmp due to it being used by default for I/O API Library sed -i '172i \ setenv myLINK_FLAG -qopenmp' config_cmaq.csh #edit the config_cmaq.csh to add extra libraries sed -i 's@-lnetcdf\" #@-lnetcdf -lcurl -lhdf5 -lhdf5_hl \" #@g' config_cmaq.csh #edit the config_cmaq.csh to change mpiifort to mpifort sed -i -e 's/mpiifort/mpifort/g' config_cmaq.csh cd $CMAQ_HOME/CCTM/scripts/ cp bldit_cctm.csh bldit_cctmv55_cb6r5_m3dry.csh # Add extra libs to support nc4 compression in config_cmaq.csh # -lnetcdf -lhdf5_hl -lhdf5 -lm -ldl -lz -lcurl setenv extra_lib "-lnetcdf -lhdf5_hl -lhdf5 -lm -ldl -lz -lsz -lcurl" # Add openmp flag to match what was used in I/O API in config_cmaq.csh # setenv myLINK_FLAG "-fopenmp" # openMP not supported w/ CMAQ ./bldit_cctmv55_cb6r5_m3dry.csh intel |& tee ./bldit_cctmv55_cb6r5_m3dry_intel.log # Verify that the executable was created. ls -rlt BLD_CCTM_v55_intel_cb6r5_ae7_aq_m3dry/*.exe #Note, to run CMAQ, please create modules or set the LD_LIBRARY_PATH to include the directories for $BUILD/lib at run time. ##see this tutorial for instructions to install modules: ##https://pcluster-cmaq.readthedocs.io/en/latest/user_guide_pcluster/developers_guide/cmaq-vm/install.html#install-environment-modules ## If you have modules on your machine, you can create custom modules ## https://pcluster-cmaq.readthedocs.io/en/latest/user_guide_pcluster/developers_guide/cmaq-vm/install.html#create-custom-environment-module-for-libraries ================================================ FILE: DOCS/Users_Guide/Tutorials/scripts/cmaq_libraries/intel_20.2_install_ioapi_for_nc4_compression.csh ================================================ #!/bin/csh -f # Build I/O API version that supports NCF4 # Note - this script works for intel 20.2 set echo # Install used tcsh and intel and openmpi # module load intel/20.2 openmpi/4.1.4-intel_20.2 setenv INSTDIR $cwd/LIBRARIES_intel cd $INSTDIR # -------------------------------------- # Add to the library path # -------------------------------------- if (! $?LD_LIBRARY_PATH) then setenv LD_LIBRARY_PATH $INSTDIR/lib else setenv LD_LIBRARY_PATH ${LD_LIBRARY_PATH}:$INSTDIR/lib endif # ---------------------- # Unpack and build IOAPI # ---------------------- git clone ssh://github.com/cjcoats/ioapi-3.2 #git clone https://github.com/cjcoats/ioapi-3.2 cd ioapi-3.2 git checkout -b 20200828 setenv BASEDIR $INSTDIR/ioapi-3.2 setenv BIN Linux2_x86_64ifort mkdir $BASEDIR/$BIN setenv CPLMODE nocpl # Edit Makefile or use syntax: make BIN=Linux2_x86_64pg CPLMODE=nocpl INSTALL=$INSTDIR cd $BASEDIR/ioapi # Copy the Makefile template cp $BASEDIR/ioapi/Makefile.$CPLMODE ${BASEDIR}/ioapi/Makefile cp ${BASEDIR}/m3tools/Makefile.$CPLMODE ${BASEDIR}/m3tools/Makefile # Modify to specify the path of the netcdf libraries sed -i 's/\-lnetcdff/\-L\$\{HOME\}\/lib \-lnetcdff \-lnetcdf \-lhdf5_hl \-lhdf5 \-lm \-lz \-lsz \-lcurl/g' ${BASEDIR}/m3tools/Makefile # need updated Makefile to include ‘-DIOAPI_NCF4=1’ to the MFLAGS make-variable to avoid multiple definition of `nf_get_vara_int64_’ # Makefile can be edited to use these options instead of the default options # VFLAG = -DVERSION='3.2-nocpl-ncf4' # DEFINEFLAGS = -DIOAPI_NCF4=1 $(ARCHFLAGS) $(PARFLAGS) #This will remove # from the start of line 102 or add it if it wasn't already there: sed -i '102s/^#/\n/; 102s/^[^\n]/#&/; 102s/^\n//' Makefile sed -i '100s/^#/\n/; 100s/^[^\n]/#&/; 100s/^\n//' Makefile sed -i '109s/^#/\n/; 109s/^[^\n]/#&/; 109s/^\n//' Makefile sed -i '111s/^#/\n/; 111s/^[^\n]/#&/; 111s/^\n//' Makefile #sed -i -e 's/m64/m64 -DIOAPI_NCF4=1/g' Makeinclude.Linux2_x86_64ifort sed -i -e 's/-openmp/#-openmp/g' Makeinclude.Linux2_x86_64ifort make HOME=$INSTDIR | & tee make.ioapi.log cd $INSTDIR/ioapi-3.2/m3tools make HOME=$INSTDIR | & tee make.m3tools.log ================================================ FILE: DOCS/Users_Guide/Tutorials/scripts/cmaq_libraries/intel_20.2_install_netcdf_for_nc4_compression.csh ================================================ #!/bin/csh -f set echo # # Install used tcsh and intel and openmpi moudule load openmpi/4.1.4-intel_20.2 # /bin/tcsh --version ifort --version icc --version module list | grep openmpi which mpirun # compilers setenv SERIAL_FC ifort setenv SERIAL_F77 ifort setenv SERIAL_CC icc setenv SERIAL_CXX icpc setenv MPI_FC mpifort setenv MPI_F77 mpifort setenv MPI_CC mpicc setenv MPI_CXX mpic++ setenv CC $SERIAL_CC setenv CXX $SERIAL_CXX setenv F77 $SERIAL_F77 setenv FC $SERIAL_FC unsetenv F90 # This seems to be set by default on NCAR's Cheyenne and is problematic unsetenv F90FLAGS # # # unset envioronment variables that would conflict with this installation # unsetenv LDFLAGS unsetenv CPPFLAGS # -------------------- # Set directory for CMAQ Libraries # ------------------- mkdir -p $cwd/LIBRARIES_intel setenv INSTDIR $cwd/LIBRARIES_intel # --------- # Build Zlib # ---------- cd ${INSTDIR} wget https://github.com/madler/zlib/releases/download/v1.3/zlib-1.3.tar.gz tar -xzvf zlib-1.3.tar.gz cd zlib-1.3 ./configure --prefix=${INSTDIR} make install |& tee make.install.zlib.log # --------- # Build libzip # ---------- cd ${INSTDIR} wget https://libzip.org/download/libzip-1.11.3.tar.gz tar -xzvf libzip-1.11.3.tar.gz cd libzip-1.11.3 mkdir build cd build cmake -DBUILD_SHARED_LIBS=OFF -DCMAKE_INSTALL_PREFIX=$INSTDIR -DCMAKE_C_COMPILER=icc .. #setenv ZIP_STATIC TRUE cmake -DBUILD_SHARED_LIBS=ON -DCMAKE_INSTALL_PREFIX=$INSTDIR -DCMAKE_C_COMPILER=icc .. make make install ## copy the libraries from lib64 to lib cd $INSTDIR/lib64 mkdir ../lib cp * ../lib #----- # Build szip # ------- cd $INSTDIR wget https://docs.hdfgroup.org/archive/support/ftp/lib-external/szip/2.1.1/src/szip-2.1.1.tar.gz tar -xzvf szip-2.1.1.tar.gz cd szip-2.1.1 ./configure --prefix=${INSTDIR} make install |& tee make.install.szip.log # ---------------------- # Build and install curl # --------------------- cd ${INSTDIR} wget https://curl.se/download/curl-8.11.1.tar.gz tar -xzvf curl-8.11.1.tar.gz cd curl-8.11.1 ./configure --prefix=${INSTDIR} --without-ssl --without-libpsl --with-zlib=${INSTDIR}/ make |& tee make.curl.log make install |& tee make.install.curl.log # ----------------------- # Download and build HDF5 # ----------------------- cd ${INSTDIR} wget https://support.hdfgroup.org/ftp/HDF5/releases/hdf5-1.10/hdf5-1.10.5/src/hdf5-1.10.5.tar.gz tar xvf hdf5-1.10.5.tar.gz rm -f hdf5-1.10.5.tar.gz cd hdf5-1.10.5 setenv CFLAGS "-O3" setenv FFLAGS "-O3" setenv CXXFLAGS "-O3" setenv FCFLAGS "-O3" setenv LDFLAGS "-L${INSTDIR}/lib" setenv CPPFLAGS "-I${INSTDIR}/include" setenv LIBS "-lz -ldl -lm" ./configure --prefix=${INSTDIR} --enable-fortran --enable-cxx --with-zlib=${INSTDIR}/include,${INSTDIR}/lib -enable-shared --enable-hl -Wno-implicit-function-declaration -Wno-implicit-int make -j 4 |& tee make.intel.log # make check > make.intel.check make install |& tee make.intel.log # --------------------------- # Download and build netCDF-C # --------------------------- cd ${INSTDIR} wget https://github.com/Unidata/netcdf-c/archive/refs/tags/v4.8.1.tar.gz tar xvf v4.8.1.tar.gz cd netcdf-c-4.8.1 setenv CPPFLAGS "-I${INSTDIR}/include" setenv LDFLAGS "-L${INSTDIR}/lib" ./configure --with-pic --enable-netcdf-4 --disable-nczarr --disable-dap --enable-shared --prefix=${INSTDIR} --with-zlib=${INSTDIR}/include,${INSTDIR}/lib make -j 4 |& tee make.intel.log make install # --------------------------------- # Download and build netCDF-Fortran # --------------------------------- cd ${INSTDIR} wget https://github.com/Unidata/netcdf-fortran/archive/refs/tags/v4.5.3.tar.gz # installation instructions tar xvf v4.5.3.tar.gz cd netcdf-fortran-4.5.3 ## Note, if non-standard locaions are used for the following compilers, you may need to specify their locations here: setenv LIBS "-L${INSTDIR}/lib -lnetcdf -lhdf5_hl -lhdf5 -lm -ldl -lz -lcurl " setenv NCDIR ${INSTDIR} # setenv LIBS "-lnetcdf" setenv CPPFLAGS "-I${INSTDIR}/include" setenv LDFLAGS "-L${INSTDIR}/lib" setenv LD_LIBRARY_PATH ${INSTDIR}/lib:${LD_LIBRARY_PATH} ./configure --with-pic --enable-shared --prefix=${INSTDIR} make -j 4 |& tee make.intel.log make install # ----------------------------- # Download and build netCDF-CXX # ----------------------------- # cd $INSTDIR # wget https://github.com/Unidata/netcdf-cxx4/archive/refs/tags/v4.3.1.tar.gz # tar xvf v4.3.1.tar.gz # cd netcdf-cxx4-4.3.1 # ./configure --with-pic --enable-shared --prefix=$INSTDIR # make |& tee make.intel.log # make install # -------------------------- # Download and build OpenMPI # -------------------------- # cd $INSTDIR # wget https://download.open-mpi.org/release/open-mpi/v3.1/openmpi-3.1.4.tar.gz # tar xvf openmpi-3.1.4.tar.gz # rm -f openmpi-3.1.4.tar.gz # cd openmpi-3.1.4 # export CFLAGS="-O3" # export FFLAGS="-O3" # export CXXFLAGS="-O3" # export FCFLAGS="-O3" # ./configure --prefix=$INSTDIR --enable-mpi-cxx # make |& tee make.intel.log ## make check > make.intel.check # make install # ---------------------------------- # Download and build Parallel netCDF # ---------------------------------- # NOTE: the openmpi directory path is hard coded on this script and needs to be updated for your local machine ## #cd $INSTDIR # wget https://parallel-netcdf.github.io/Release/pnetcdf-1.12.1.tar.gz # tar xvf pnetcdf-1.12.1.tar.gz # rm -f pnetcdf-1.12.1.tar.gz # cd pnetcdf-1.12.1 # #export CFLAGS="-O3 -fPIC" # #export FFLAGS="-O3 -fPIC" # #export CXXFLAGS="-O3 -fPIC" # #export FCFLAGS="-O3 -fPIC" # #./configure --prefix=$INSTDIR MPIF77=mpif90 MPIF90=mpif90 MPICC=mpicc MPICXX=mpicxx --with-mpi=/nas/longleaf/rhel8/apps/openmpi/4.1.4 # ./configure --prefix=$INSTDIR MPIF77=mpif90 MPIF90=mpif90 MPICC=mpicc MPICXX=mpicxx --with-mpi=/nas/longleaf/rhel8/apps/openmpi/4.1.4 # make |& tee make.intel.log # make install # ---------------------------------------- # Use tcsh 6.20 instead of the broken 6.21 # ---------------------------------------- # cd /shared/build-hdf5 # wget http://ftp.funet.fi/pub/mirrors/ftp.astron.com/pub/tcsh/old/tcsh-6.20.00.tar.gz # tar xvf tcsh-6.20.00.tar.gz # rm -f tcsh-6.20.00.tar.gz # cd tcsh-6.20.00 # ./configure --disable-nls # make > make.intel.log 2>&1 # make install # ln -s /usr/local/bin/tcsh /bin/csh # ---------------------- # Download and build vim # ---------------------- # cd /usr/local/src # git clone https://github.com/vim/vim.git vim # cd vim # ./configure # make > make.intel.log 2>&1 # make install # cd /usr/local/bin # ln -s vim vi # install test cd $INSTDIR/bin ls h5diff whereis h5diff ./nc-config --version ./nf-config --version #ncxx4-config --version ================================================ FILE: DOCS/Users_Guide/Tutorials/scripts/cmaq_libraries/intel_2024_install_cmaq55_cb6r5_m3dry_for_nc4_compression.csh ================================================ #!/bin/csh -f # ----------------------- # Download and build CMAQ # ----------------------- # NOTE - please change the BUILD, CMAQ_HOME and OPENMPI directory to your local paths # To find the openmpi path, search for mpirun, and then look for the include and lib directories # > which mpirun setenv BUILD $cwd/LIBRARIES_intel setenv IOAPI_DIR $BUILD/ioapi-3.2/Linux2_x86_64ifort setenv NETCDF_DIR $BUILD/lib setenv NETCDFF_DIR $BUILD/lib setenv OPENMPI /nas/sycamore/apps/openmpi/5.0.5-intel/ cd $BUILD/.. #git clone -b 55 https://github.com/USEPA/CMAQ/CMAQ.git CMAQ_REPO_v55 git clone -b main ssh://github.com/USEPA/CMAQ.git CMAQ_REPO_v55 echo "downloaded CMAQv55" cd CMAQ_REPO_v55 cd $BUILD/../CMAQ_REPO_v55/ # Change CMAQ_HOME to a local directory #This will remove # from the start of line 102 or add it if it wasn't already there: sed -i '19s/^#/\n/; 19s/^[^\n]/#&/; 19s/^\n//' bldit_project.csh sed -i '20i set CMAQ_HOME = /proj/ie/proj/CMAS/CMAQ/CMAQv5.5/build_sycamore/openmpi_intel' bldit_project.csh set CMAQ_HOME = $BUILD/../openmpi_intel mkdir $BUILD/../openmpi_intel ./bldit_project.csh # Load the Openmpi module # Edit this name to match what is available on your local machine module load openmpi_5.0.5/intel_2024.2.1 # edit config_cmaq.csh to specify the library locations cd $BUILD/../openmpi_intel/ sed -i '81i \ setenv BUILD /proj/ie/proj/CMAS/CMAQ/CMAQv5.5/build_sycamore/LIBRARIES_intel' config_cmaq.csh sed -i '82i \ setenv OPENMPI /nas/sycamore/apps/openmpi/5.0.5-intel/' config_cmaq.csh sed -i 's@ioapi_inc_intel@$BUILD\/ioapi-3.2\/ioapi\/fixed_src@g' config_cmaq.csh sed -i 's@ioapi_lib_intel@$BUILD\/ioapi-3.2\/Linux2_x86_64ifx@g' config_cmaq.csh sed -i 's@netcdf_lib_intel@$BUILD\/lib@g' config_cmaq.csh sed -i 's@netcdf_inc_intel@$BUILD\/include@g' config_cmaq.csh sed -i 's@netcdff_lib_intel@$BUILD\/lib@g' config_cmaq.csh sed -i 's@netcdff_inc_intel@$BUILD\/include@g' config_cmaq.csh sed -i 's@mpi_incl_intel@$OPENMPI\/include@g' config_cmaq.csh sed -i 's@mpi_lib_intel@$OPENMPI\/lib@g' config_cmaq.csh #edit the config_cmaq.csh to use -fopenmp due to it being used by default for I/O API Library sed -i '172i \ setenv myLINK_FLAG -qopenmp' config_cmaq.csh #edit the config_cmaq.csh to add extra libraries sed -i 's@-lnetcdf\" #@-lnetcdf -lcurl -lhdf5 -lhdf5_hl \" #@g' config_cmaq.csh cd $BUILD/../openmpi_intel/CCTM/scripts/ cp bldit_cctm.csh bldit_cctmv55_cb6r5_m3dry.csh # Add extra libs to support nc4 compression in config_cmaq.csh # -lnetcdf -lhdf5_hl -lhdf5 -lm -ldl -lz -lcurl setenv extra_lib "-lnetcdf -lhdf5_hl -lhdf5 -lm -ldl -lz -lsz -lcurl" # Add openmp flag to match what was used in I/O API in config_cmaq.csh # setenv myLINK_FLAG "-fopenmp" # openMP not supported w/ CMAQ ./bldit_cctmv55_cb6r5_m3dry.csh intel |& tee ./bldit_cctmv55_cb6r5_m3dry_intel.log # Verify that the executable was created. ls -rlt BLD_CCTM_v55_intel_cb6r5_ae7_aq_m3dry/*.exe #Note, to run CMAQ, please create modules or set the LD_LIBRARY_PATH to include the directories for $BUILD/lib at run time. ##see this tutorial for instructions to install modules: ##https://pcluster-cmaq.readthedocs.io/en/latest/user_guide_pcluster/developers_guide/cmaq-vm/install.html#install-environment-modules ## If you have modules on your machine, you can create custom modules ## https://pcluster-cmaq.readthedocs.io/en/latest/user_guide_pcluster/developers_guide/cmaq-vm/install.html#create-custom-environment-module-for-libraries ================================================ FILE: DOCS/Users_Guide/Tutorials/scripts/cmaq_libraries/intel_2024_install_ioapi_for_nc4_compression.csh ================================================ #!/bin/csh -f # Build I/O API version that supports NCF4 # Note - this script works for intel 2024 set echo setenv INSTDIR $cwd/LIBRARIES_intel cd $INSTDIR # -------------------------------------- # Add to the library path # -------------------------------------- if (! $?LD_LIBRARY_PATH) then setenv LD_LIBRARY_PATH $INSTDIR/lib else setenv LD_LIBRARY_PATH ${LD_LIBRARY_PATH}:$INSTDIR/lib endif # ---------------------- # Unpack and build IOAPI # ---------------------- git clone ssh://github.com/cjcoats/ioapi-3.2 cd ioapi-3.2 git checkout -b 20200828 setenv BASEDIR $INSTDIR/ioapi-3.2 setenv BIN Linux2_x86_64ifx mkdir $BASEDIR/$BIN setenv CPLMODE nocpl # Edit Makefile or use syntax: make BIN=Linux2_x86_64pg CPLMODE=nocpl INSTALL=$INSTDIR cd $BASEDIR/ioapi # Copy the Makefile template cp $BASEDIR/ioapi/Makefile.$CPLMODE ${BASEDIR}/ioapi/Makefile cp ${BASEDIR}/m3tools/Makefile.$CPLMODE ${BASEDIR}/m3tools/Makefile # Modify to specify the path of the netcdf libraries sed -i 's/\-lnetcdff/\-L\$\{HOME\}\/lib \-lnetcdff \-lnetcdf \-lhdf5_hl \-lhdf5 \-lm \-lcurl \-lz \-lsz \-ldl \-lm /g' ${BASEDIR}/m3tools/Makefile # need updated Makefile to include ‘-DIOAPI_NCF4=1’ to the MFLAGS make-variable to avoid multiple definition of `nf_get_vara_int64_’ # Makefile can be edited to use these options instead of the default options # VFLAG = -DVERSION='3.2-nocpl-ncf4' # DEFINEFLAGS = -DIOAPI_NCF4=1 $(ARCHFLAGS) $(PARFLAGS) #This will remove # from the start of line 102 or add it if it wasn't already there: sed -i '102s/^#/\n/; 102s/^[^\n]/#&/; 102s/^\n//' Makefile sed -i '100s/^#/\n/; 100s/^[^\n]/#&/; 100s/^\n//' Makefile sed -i '109s/^#/\n/; 109s/^[^\n]/#&/; 109s/^\n//' Makefile sed -i '111s/^#/\n/; 111s/^[^\n]/#&/; 111s/^\n//' Makefile #sed -i -e 's/m64/m64 -DIOAPI_NCF4=1/g' Makeinclude.Linux2_x86_64ifort # need to comment line 21 and uncomment line 17 in Makeinclude.Linux2_x86_64ifx to use generic # MFLAGS = -traceback (this is not currently implemented) sed -i -e 's/-openmp/#-openmp/g' Makeinclude.$BIN make HOME=$INSTDIR | & tee make.ioapi.log cd $INSTDIR/ioapi-3.2/m3tools make HOME=$INSTDIR | & tee make.m3tools.log ================================================ FILE: DOCS/Users_Guide/Tutorials/scripts/cmaq_libraries/intel_2024_install_netcdf_for_nc4_compression.csh ================================================ #!/bin/csh -f set echo # # Install used tcsh and intel and openmpi # intel/2024.2.1 # /bin/tcsh --version ifx --version icx --version module list | grep openmpi which mpirun # compilers setenv SERIAL_FC ifx setenv SERIAL_F77 ifx setenv SERIAL_CC icx setenv SERIAL_CXX icpx setenv MPI_FC mpif90 setenv MPI_F77 mpif77 setenv MPI_CC mpicc setenv MPI_CXX mpic++ setenv CC $SERIAL_CC setenv CXX $SERIAL_CXX setenv F77 $SERIAL_F77 setenv FC $SERIAL_FC unsetenv F90 # This seems to be set by default on NCAR's Cheyenne and is problematic unsetenv F90FLAGS # # # unset envioronment variables that would conflict with this installation # unsetenv LDFLAGS unsetenv CPPFLAGS # -------------------- # Set directory for CMAQ Libraries # ------------------- mkdir -p $cwd/LIBRARIES_intel setenv INSTDIR $cwd/LIBRARIES_intel # --------- # Build Zlib # ---------- cd ${INSTDIR} wget https://github.com/madler/zlib/releases/download/v1.3/zlib-1.3.tar.gz tar -xzvf zlib-1.3.tar.gz cd zlib-1.3 ./configure --prefix=${INSTDIR} make install |& tee make.install.zlib.log # --------- # Build libzip # ---------- cd ${INSTDIR} wget https://libzip.org/download/libzip-1.11.3.tar.gz tar -xzvf libzip-1.11.3.tar.gz cd libzip-1.11.3 mkdir build cd build cmake -DBUILD_SHARED_LIBS=OFF -DCMAKE_INSTALL_PREFIX=$cwd/LIBRARIES_intel -DCMAKE_C_COMPILER=icx .. setenv ZIP_STATIC TRUE cmake -DBUILD_SHARED_LIBS=ON -DCMAKE_INSTALL_PREFIX=$cwd/LIBRARIES_intel -DCMAKE_C_COMPILER=icx .. make make install ## copy the libraries from lib64 to lib cd $INSTDIR/lib64 cp * ../lib #----- # Build szip # ------- cd $INSTDIR wget https://docs.hdfgroup.org/archive/support/ftp/lib-external/szip/2.1.1/src/szip-2.1.1.tar.gz tar -xzvf szip-2.1.1.tar.gz cd szip-2.1.1 ./configure --prefix=${INSTDIR} make install |& tee make.install.szip.log # ---------------------- # Build and install curl # --------------------- cd ${INSTDIR} wget https://curl.se/download/curl-8.11.1.tar.gz tar -xzvf curl-8.11.1.tar.gz cd curl-8.11.1 ./configure --prefix=${INSTDIR} --without-ssl --without-libpsl --with-zlib=${INSTDIR}/ make |& tee make.curl.log make install |& tee make.install.curl.log # ----------------------- # Download and install autoconf # due to issue building HDF5 https://www.intel.com/content/www/us/en/developer/articles/release-notes/oneapi-fortran-compiler-release-notes.html#solution-for-package-maintainers cd ${INSTDIR} wget https://ftp.gnu.org/gnu/autoconf/autoconf-2.71.tar.xz tar -xf autoconf-2.71.tar.xz cd autoconf-2.71/ ./configure --prefix=${INSTDIR} time make make install # ----------------------- # Download and build HDF5 # ----------------------- cd ${INSTDIR} #wget https://support.hdfgroup.org/ftp/HDF5/releases/hdf5-1.10/hdf5-1.10.5/src/hdf5-1.10.5.tar.gz wget https://support.hdfgroup.org/ftp/HDF5/releases/hdf5-1.14/hdf5-1.14.3/src/hdf5-1.14.3.tar.gz tar xvf hdf5-1.14.3.tar.gz cd hdf5-1.14.3 setenv CFLAGS "-O3" setenv FFLAGS "-O3" setenv CXXFLAGS "-O3" setenv FCFLAGS "-O3" setenv LDFLAGS "-L${INSTDIR}/lib" setenv CPPFLAGS "-I${INSTDIR}/include" setenv LIBS "-lz -ldl -lm" $INSTDIR/bin/autoreconf -if ./configure --prefix=${INSTDIR} --enable-fortran --enable-cxx --with-zlib=${INSTDIR}/include,${INSTDIR}/lib -enable-shared --enable-hl -Wno-implicit-function-declaration -Wno-implicit-int make -j 4 |& tee make.intel.log #make check > make.intel.check make install |& tee make.intel.log # # this is putting the libraries in a different location, need to copy them cd hdf5 cp -rp * $INSTDIR # --------------------------- # Download and build netCDF-C # --------------------------- cd ${INSTDIR} wget https://github.com/Unidata/netcdf-c/archive/refs/tags/v4.8.1.tar.gz tar xvf v4.8.1.tar.gz cd netcdf-c-4.8.1 setenv CPPFLAGS "-I${INSTDIR}/include" setenv LDFLAGS "-L${INSTDIR}/lib" ./configure --with-pic --enable-netcdf-4 --enable-shared --disable-dap --disable-nczarr --prefix=${INSTDIR} --with-zlib=${INSTDIR}/include,${INSTDIR}/lib #./configure --with-pic --enable-netcdf-4 --enable-shared --disable-dap --prefix=${INSTDIR} --with-zlib=${INSTDIR}/include,${INSTDIR}/lib make -j 4 |& tee make.intel.log make install # --------------------------------- # Download and build netCDF-Fortran # --------------------------------- cd ${INSTDIR} wget https://github.com/Unidata/netcdf-fortran/archive/refs/tags/v4.5.3.tar.gz # installation instructions tar xvf v4.5.3.tar.gz cd netcdf-fortran-4.5.3 ## Note, if non-standard locaions are used for the following compilers, you may need to specify their locations here: setenv LIBS "-L${INSTDIR}/lib -lnetcdf -lhdf5_hl -lhdf5 -lm -ldl -lz -lcurl " setenv NCDIR ${INSTDIR} # setenv LIBS "-lnetcdf" setenv CPPFLAGS "-I${INSTDIR}/include" setenv LDFLAGS "-L${INSTDIR}/lib" setenv LD_LIBRARY_PATH ${INSTDIR}/lib:${LD_LIBRARY_PATH} ./configure --with-pic --enable-shared --prefix=${INSTDIR} make -j 4 |& tee make.intel.log make install # ----------------------------- # Download and build netCDF-CXX # ----------------------------- # cd $INSTDIR # wget https://github.com/Unidata/netcdf-cxx4/archive/refs/tags/v4.3.1.tar.gz # tar xvf v4.3.1.tar.gz # cd netcdf-cxx4-4.3.1 # ./configure --with-pic --enable-shared --prefix=$INSTDIR # make |& tee make.intel.log # make install # -------------------------- # Download and build OpenMPI # -------------------------- # cd $INSTDIR # wget https://download.open-mpi.org/release/open-mpi/v3.1/openmpi-3.1.4.tar.gz # tar xvf openmpi-3.1.4.tar.gz # #rm -f openmpi-3.1.4.tar.gz # cd openmpi-3.1.4 # setenv CFLAGS "-O3 -Wno-implicit-function-declaration" # setenv FFLAGS "-O3" # setenv CXXFLAGS "-O3" # setenv FCFLAGS "-O3" # ./configure --prefix=$INSTDIR # make |& tee make.intel.log # # make check > make.intel.check # make install # ---------------------------------- # Download and build Parallel netCDF # ---------------------------------- # NOTE: the openmpi directory path is hard coded on this script and needs to be updated for your local machine ## #cd $INSTDIR # wget https://parallel-netcdf.github.io/Release/pnetcdf-1.12.1.tar.gz # tar xvf pnetcdf-1.12.1.tar.gz # rm -f pnetcdf-1.12.1.tar.gz # cd pnetcdf-1.12.1 # #export CFLAGS="-O3 -fPIC" # #export FFLAGS="-O3 -fPIC" # #export CXXFLAGS="-O3 -fPIC" # #export FCFLAGS="-O3 -fPIC" # #./configure --prefix=$INSTDIR MPIF77=mpif90 MPIF90=mpif90 MPICC=mpicc MPICXX=mpicxx --with-mpi=/nas/longleaf/apps/r/4.1.3/openmpi # ./configure --prefix=$INSTDIR MPIF77=mpif90 MPIF90=mpif90 MPICC=mpicc MPICXX=mpicxx --with-mpi=/nas/longleaf/apps-dogwood/mpi/intel_18.2/openmpi_3.1.4 # make |& tee make.intel.log # make install # ---------------------------------------- # Use tcsh 6.20 instead of the broken 6.21 # ---------------------------------------- # cd /shared/build-hdf5 # wget http://ftp.funet.fi/pub/mirrors/ftp.astron.com/pub/tcsh/old/tcsh-6.20.00.tar.gz # tar xvf tcsh-6.20.00.tar.gz # rm -f tcsh-6.20.00.tar.gz # cd tcsh-6.20.00 # ./configure --disable-nls # make > make.intel.log 2>&1 # make install # ln -s /usr/local/bin/tcsh /bin/csh # ---------------------- # Download and build vim # ---------------------- # cd /usr/local/src # git clone https://github.com/vim/vim.git vim # cd vim # ./configure # make > make.intel.log 2>&1 # make install # cd /usr/local/bin # ln -s vim vi # install test cd $INSTDIR/bin ./nc-config --version ./nf-config --version #ncxx4-config --version ================================================ FILE: DOCS/Users_Guide/Tutorials/scripts/mpas-cmaq_libraries/iolib_installation_gcc11.4.1.sh ================================================ #!/usr/bin/env bash ## Installation script that works with module load openmpi_5.0.5/gcc_11.4.1 set -e # # Sources for all libraries used in this script can be found at # http://www2.mmm.ucar.edu/people/duda/files/mpas/sources/ # # Where to find sources for libraries export LIBSRC=${PWD} # Where to install libraries export LIBBASE=${PWD} # Compilers export SERIAL_FC=gfortran export SERIAL_F77=gfortran export SERIAL_CC=gcc export SERIAL_CXX=g++ export MPI_FC=mpifort export MPI_F77=mpifort export MPI_CC=mpicc export MPI_CXX=mpicxx export CC=$SERIAL_CC export CXX=$SERIAL_CXX export F77=$SERIAL_F77 export FC=$SERIAL_FC unset F90 # This seems to be set by default on NCAR's Cheyenne and is problematic unset F90FLAGS export CFLAGS="-g" export FFLAGS="-g -fbacktrace -fallow-argument-mismatch" export FCFLAGS="-g -fbacktrace -fallow-argument-mismatch" export F77FLAGS="-g -fbacktrace" ######################################## # MPICH ######################################## #tar xzvf ${LIBSRC}/mpich-3.3.1.tar.gz #cd mpich-3.3.1 #./configure --prefix=${LIBBASE} #make -j 4 ##make check #make install ##make testing #export PATH=${LIBBASE}/bin:$PATH #export LD_LIBRARY_PATH=${LIBBASE}/lib:$LD_LIBRARY_PATH #cd .. #rm -rf mpich-3.3.1 ######################################## # zlib ######################################## wget https://www2.mmm.ucar.edu/people/duda/files/mpas/sources/zlib-1.2.11.tar.gz tar xzvf ${LIBSRC}/zlib-1.2.11.tar.gz cd zlib-1.2.11 ./configure --prefix=${LIBBASE} --static make -j 24 make install cd .. #rm -rf zlib-1.2.11 # ---------------------- # Build and install curl # --------------------- wget https://curl.se/download/curl-8.10.1.tar.gz tar -xzvf curl-8.10.1.tar.gz cd curl-8.10.1 ./configure --prefix=${LIBBASE} --without-ssl --without-libpsl make |& tee make.curl.log make install |& tee make.install.curl.log cd .. ######################################## # HDF5 ######################################## wget https://support.hdfgroup.org/ftp/HDF5/releases/hdf5-1.10/hdf5-1.10.5/src/hdf5-1.10.5.tar.gz tar xvf ${LIBSRC}/hdf5-1.10.5.tar.gz cd hdf5-1.10.5 export FC=$MPI_FC export CC=$MPI_CC export CXX=$MPI_CXX ./configure --prefix=${LIBBASE} --enable-parallel --with-zlib=${LIBBASE} --disable-shared make -j 4 #make check make install cd .. #rm -rf hdf5-1.10.5 ######################################## # Parallel-netCDF ######################################## wget https://parallel-netcdf.github.io/Release/pnetcdf-1.14.0.tar.gz tar xzvf ${LIBSRC}/pnetcdf-1.14.0.tar.gz cd pnetcdf-1.14.0 export CC=$SERIAL_CC export CXX=$SERIAL_CXX export F77=$SERIAL_F77 export FC=$SERIAL_FC export MPICC=$MPI_CC export MPICXX=$MPI_CXX export MPIF77=$MPI_F77 export MPIF90=$MPI_FC #### Will also need gcc in path ./configure --prefix=${LIBBASE} make -j 4 ##make check ##make ptest ##make testing make install export PNETCDF=${LIBBASE} cd .. ##rm -rf pnetcdf-1.11.2 ######################################## # netCDF (C library) ######################################## wget https://github.com/Unidata/netcdf-c/archive/refs/tags/v4.7.0.tar.gz tar xzvf ${LIBSRC}/v4.7.0.tar.gz cd netcdf-c-4.7.0 export CPPFLAGS="-I${LIBBASE}/include" export LDFLAGS="-L${LIBBASE}/lib" export LIBS="-lhdf5_hl -lhdf5 -lz -ldl" export CC=$MPI_CC ./configure --prefix=${LIBBASE} --disable-dap --enable-netcdf4 --enable-pnetcdf --enable-cdf5 --enable-parallel-tests --disable-shared make -j 4 #make check make install export NETCDF=${LIBBASE} cd .. #rm -rf netcdf-c-4.7.0 ######################################## # netCDF (Fortran interface library) ######################################## wget https://www2.mmm.ucar.edu/people/duda/files/mpas/sources/netcdf-fortran-4.4.5.tar.gz tar xzvf ${LIBSRC}/netcdf-fortran-4.4.5.tar.gz cd netcdf-fortran-4.4.5 export FC=$MPI_FC export F77=$MPI_F77 export LIBS="-lnetcdf -lzip -lcurl -lpnetcdf ${LIBS}" LD_LIBRARY_PATH_old="$LD_LIBRARY_PATH" export LD_LIBRARY_PATH="${LIBBASE}/lib:${LD_LIBRARY_PATH}" ./configure --prefix=${LIBBASE} --enable-parallel-tests --disable-shared make -j 4 #make check make install cd .. #rm -rf netcdf-fortran-4.4.5 ######################################## # PIO ######################################## #rm -rf ParallelIO git clone ssh://github.com/NCAR/ParallelIO cd ParallelIO git checkout -b pio-2.5.10 pio2_5_10 export PIOSRC=`pwd` cd .. mkdir pio cd pio export CC=$MPI_CC export FC=$MPI_FC export LIBS="-lnetcdf" export LD_LIBRARY_PATH="$LD_LIBRARY_PATH_old" cmake -DNetCDF_C_PATH=$NETCDF -DNetCDF_Fortran_PATH=$NETCDF -DPnetCDF_PATH=$PNETCDF -DHDF5_PATH=$NETCDF -DCMAKE_INSTALL_PREFIX=$LIBBASE -DPIO_USE_MALLOC=ON -DCMAKE_VERBOSE_MAKEFILE=1 -DPIO_ENABLE_TIMING=OFF $PIOSRC make #make check make install cd .. #rm -rf pio ParallelIO export PIO=$LIBBASE ######################################## # Other environment vars needed by MPAS ######################################## export MPAS_EXTERNAL_LIBS="-L${LIBBASE}/lib -lhdf5_hl -lhdf5 -ldl -lz" export MPAS_EXTERNAL_INCLUDES="-I${LIBBASE}/include" ================================================ FILE: DOCS/Users_Guide/Tutorials/scripts/mpas-cmaq_libraries/iolib_installation_gcc9.1.sh ================================================ #!/usr/bin/env bash ## Installation script that works with gcc version 9.1 and openmpi version openmpi_4.0.1 # # Sources for all libraries used in this script can be found at # http://www2.mmm.ucar.edu/people/duda/files/mpas/sources/ # # Where to find sources for libraries export LIBSRC=$PWD # Where to install libraries export LIBBASE=$PWD # Compilers export SERIAL_FC=gfortran export SERIAL_F77=gfortran export SERIAL_CC=gcc export SERIAL_CXX=g++ export MPI_FC=mpifort export MPI_F77=mpifort export MPI_CC=mpicc export MPI_CXX=mpic++ export CC=$SERIAL_CC export CXX=$SERIAL_CXX export F77=$SERIAL_F77 export FC=$SERIAL_FC unset F90 # This seems to be set by default on NCAR's Cheyenne and is problematic unset F90FLAGS export CFLAGS="-g" export FFLAGS="-g -fbacktrace" export FCFLAGS="-g -fbacktrace" export F77FLAGS="-g -fbacktrace" # commented out to use openmpi that is pre-installed ######################################## # MPICH ######################################## #tar xzvf ${LIBSRC}/mpich-3.3.1.tar.gz #cd mpich-3.3.1 #./configure --prefix=${LIBBASE} #make -j 4 ##make check #make install ##make testing #export PATH=${LIBBASE}/bin:$PATH #export LD_LIBRARY_PATH=${LIBBASE}/lib:$LD_LIBRARY_PATH #cd .. #rm -rf mpich-3.3.1 ######################################## # zlib ######################################## wget https://www2.mmm.ucar.edu/people/duda/files/mpas/sources/zlib-1.2.11.tar.gz tar xzvf ${LIBSRC}/zlib-1.2.11.tar.gz cd zlib-1.2.11 ./configure --prefix=${LIBBASE} --static make -j 4 make install cd .. rm -rf zlib-1.2.11 ######################################## # HDF5 ######################################## wget https://www2.mmm.ucar.edu/people/duda/files/mpas/sources/hdf5-1.10.5.tar.bz2 tar xjvf ${LIBSRC}/hdf5-1.10.5.tar.bz2 cd hdf5-1.10.5 export FC=$MPI_FC export CC=$MPI_CC export CXX=$MPI_CXX ./configure --prefix=${LIBBASE} --enable-parallel --with-zlib=${LIBBASE} --disable-shared make -j 4 #make check make install cd .. rm -rf hdf5-1.10.5 ######################################## # Parallel-netCDF ######################################## wget https://www2.mmm.ucar.edu/people/duda/files/mpas/sources/pnetcdf-1.11.2.tar.gz tar xzvf ${LIBSRC}/pnetcdf-1.11.2.tar.gz cd pnetcdf-1.11.2 export CC=$SERIAL_CC export CXX=$SERIAL_CXX export F77=$SERIAL_F77 export FC=$SERIAL_FC export MPICC=$MPI_CC export MPICXX=$MPI_CXX export MPIF77=$MPI_F77 export MPIF90=$MPI_FC ### Will also need gcc in path ./configure --prefix=${LIBBASE} make -j 4 #make check #make ptest #make testing make install export PNETCDF=${LIBBASE} cd .. rm -rf pnetcdf-1.11.2 ######################################## # netCDF (C library) ######################################## wget https://www2.mmm.ucar.edu/people/duda/files/mpas/sources/netcdf-c-4.7.0.tar.gz tar xzvf ${LIBSRC}/netcdf-c-4.7.0.tar.gz cd netcdf-c-4.7.0 export CPPFLAGS="-I${LIBBASE}/include" export LDFLAGS="-L${LIBBASE}/lib" export LIBS="-lhdf5_hl -lhdf5 -lz -ldl" export CC=$MPI_CC ./configure --prefix=${LIBBASE} --disable-dap --enable-netcdf4 --enable-pnetcdf --enable-cdf5 --enable-parallel-tests --disable-shared make -j 4 #make check make install export NETCDF=${LIBBASE} cd .. rm -rf netcdf-c-4.7.0 ######################################## # netCDF (Fortran interface library) ######################################## wget https://www2.mmm.ucar.edu/people/duda/files/mpas/sources/netcdf-fortran-4.4.5.tar.gz tar xzvf ${LIBSRC}/netcdf-fortran-4.4.5.tar.gz cd netcdf-fortran-4.4.5 export FC=$MPI_FC export F77=$MPI_F77 export LIBS="-lnetcdf ${LIBS}" ./configure --prefix=${LIBBASE} --enable-parallel-tests --disable-shared make -j 4 #make check make install cd .. rm -rf netcdf-fortran-4.4.5 ######################################## # PIO ######################################## git clone https://github.com/NCAR/ParallelIO cd ParallelIO git checkout -b pio-2.4.4 pio2_4_4 export PIOSRC=`pwd` cd .. mkdir pio cd pio export CC=$MPI_CC export FC=$MPI_FC cmake -DNetCDF_C_PATH=$NETCDF -DNetCDF_Fortran_PATH=$NETCDF -DPnetCDF_PATH=$PNETCDF -DHDF5_PATH=$NETCDF -DCMAKE_INSTALL_PREFIX=$LIBBASE -DPIO_USE_MALLOC=ON -DCMAKE_VERBOSE_MAKEFILE=1 -DPIO_ENABLE_TIMING=OFF $PIOSRC make #make check make install cd .. rm -rf pio ParallelIO export PIO=$LIBBASE ######################################## # Other environment vars needed by MPAS ######################################## export MPAS_EXTERNAL_LIBS="-L${LIBBASE}/lib -lhdf5_hl -lhdf5 -ldl -lz" export MPAS_EXTERNAL_INCLUDES="-I${LIBBASE}/include" ================================================ FILE: DOCS/Users_Guide/Tutorials/scripts/mpas-cmaq_libraries/iolib_installation_intel_18.2.sh ================================================ #!/usr/bin/env bash # Script works for module load intel/18.2 and openmpi_3.1.4/intel_18.2 modules # # Sources for all libraries used in this script can be found at # http://www2.mmm.ucar.edu/people/duda/files/mpas/sources/ # # Where to find sources for libraries export LIBSRC=$PWD # Where to install libraries export LIBBASE=$PWD # Compilers export SERIAL_FC=ifort export SERIAL_F77=ifort export SERIAL_CC=icc export SERIAL_CXX=icpc export MPI_FC=mpif90 export MPI_F77=mpif77 export MPI_CC=mpicc export MPI_CXX=mpic++ export CC=$SERIAL_CC export CXX=$SERIAL_CXX export F77=$SERIAL_F77 export FC=$SERIAL_FC unset F90 # This seems to be set by default on NCAR's Cheyenne and is problematic unset F90FLAGS #export CFLAGS="-g" #export FFLAGS="-g -fbacktrace" #export FCFLAGS="-g -fbacktrace" #export F77FLAGS="-g -fbacktrace" ######################################## # MPICH ######################################## #tar xzvf ${LIBSRC}/mpich-3.3.1.tar.gz #cd mpich-3.3.1 #./configure --prefix=${LIBBASE} #make -j 4 ##make check #make install ##make testing #export PATH=${LIBBASE}/bin:$PATH #export LD_LIBRARY_PATH=${LIBBASE}/lib:$LD_LIBRARY_PATH #cd .. #rm -rf mpich-3.3.1 ######################################## # zlib ######################################## wget https://www2.mmm.ucar.edu/people/duda/files/mpas/sources/zlib-1.2.11.tar.gz tar xzvf ${LIBSRC}/zlib-1.2.11.tar.gz cd zlib-1.2.11 ./configure --prefix=${LIBBASE} --static make -j 4 make install cd .. rm -rf zlib-1.2.11 # ---------------------- # Build and install curl # --------------------- wget https://curl.se/download/curl-8.10.1.tar.gz tar -xzvf curl-8.10.1.tar.gz cd curl-8.10.1 ./configure --prefix=${LIBBASE} --without-ssl --without-libpsl make |& tee make.curl.log make install |& tee make.install.curl.log ######################################## # HDF5 ######################################## wget https://support.hdfgroup.org/ftp/HDF5/releases/hdf5-1.10/hdf5-1.10.5/src/hdf5-1.10.5.tar.bz2 tar xjvf ${LIBSRC}/hdf5-1.10.5.tar.bz2 cd hdf5-1.10.5 export FC=$MPI_FC export CC=$MPI_CC export CXX=$MPI_CXX ./configure --prefix=${LIBBASE} --enable-parallel --with-zlib=${LIBBASE} --disable-shared make -j 4 #make check make install cd .. rm -rf hdf5-1.10.5 ######################################## # Parallel-netCDF ######################################## wget https://parallel-netcdf.github.io/Release/pnetcdf-1.11.2.tar.gz tar xzvf ${LIBSRC}/pnetcdf-1.11.2.tar.gz cd pnetcdf-1.11.2 export CC=$SERIAL_CC export CXX=$SERIAL_CXX export F77=$SERIAL_F77 export FC=$SERIAL_FC export MPICC=$MPI_CC export MPICXX=$MPI_CXX export MPIF77=$MPI_F77 export MPIF90=$MPI_FC ### Will also need gcc in path ./configure --prefix=${LIBBASE} make -j 4 #make check #make ptest #make testing make install export PNETCDF=${LIBBASE} cd .. rm -rf pnetcdf-1.11.2 ######################################## # netCDF (C library) ######################################## wget https://github.com/Unidata/netcdf-c/archive/refs/tags/v4.7.0.tar.gz tar xzvf ${LIBSRC}/v4.7.0.tar.gz cd netcdf-c-4.7.0 export CPPFLAGS="-I${LIBBASE}/include" export LDFLAGS="-L${LIBBASE}/lib" export LIBS="-lhdf5_hl -lhdf5 -lz -ldl" export CC=$MPI_CC ./configure --prefix=${LIBBASE} --disable-dap --enable-netcdf4 --enable-pnetcdf --enable-cdf5 --enable-parallel-tests --disable-shared make -j 4 #make check make install export NETCDF=${LIBBASE} cd .. rm -rf netcdf-c-4.7.0 ######################################## # netCDF (Fortran interface library) ######################################## wget https://www2.mmm.ucar.edu/people/duda/files/mpas/sources/netcdf-fortran-4.4.5.tar.gz tar xzvf ${LIBSRC}/netcdf-fortran-4.4.5.tar.gz cd netcdf-fortran-4.4.5 export FC=$MPI_FC export F77=$MPI_F77 export LIBS="-lnetcdf ${LIBS}" ./configure --prefix=${LIBBASE} --enable-parallel-tests --disable-shared make -j 4 #make check make install cd .. rm -rf netcdf-fortran-4.4.5 ######################################## # PIO ######################################## git clone ssh://github.com/NCAR/ParallelIO cd ParallelIO git checkout -b pio-2.4.4 pio2_4_4 export PIOSRC=`pwd` cd .. mkdir pio cd pio export CC=$MPI_CC export FC=$MPI_FC cmake -DNetCDF_C_PATH=$NETCDF -DNetCDF_Fortran_PATH=$NETCDF -DPnetCDF_PATH=$PNETCDF -DHDF5_PATH=$NETCDF -DCMAKE_INSTALL_PREFIX=$LIBBASE -DPIO_USE_MALLOC=ON -DCMAKE_VERBOSE_MAKEFILE=1 -DPIO_ENABLE_TIMING=OFF $PIOSRC make #make check make install cd .. #rm -rf pio ParallelIO export PIO=$LIBBASE ######################################## # Other environment vars needed by MPAS ######################################## export MPAS_EXTERNAL_LIBS="-L${LIBBASE}/lib -lhdf5_hl -lhdf5 -ldl -lz" export MPAS_EXTERNAL_INCLUDES="-I${LIBBASE}/include" ================================================ FILE: DOCS/Users_Guide/Tutorials/scripts/mpas-cmaq_libraries/iolib_installation_intel_20.2.sh ================================================ #!/usr/bin/env bash # Script works for module load intel/18.2 and openmpi_3.1.4/intel_18.2 modules and openmpi/4.1.4-intel_20.2 modules # # Sources for all libraries used in this script can be found at # http://www2.mmm.ucar.edu/people/duda/files/mpas/sources/ # # Where to find sources for libraries export LIBSRC=$PWD # Where to install libraries export LIBBASE=$PWD # Compilers export SERIAL_FC=ifort export SERIAL_F77=ifort export SERIAL_CC=icc export SERIAL_CXX=icpc export MPI_FC=mpif90 export MPI_F77=mpif77 export MPI_CC=mpicc export MPI_CXX=mpic++ export CC=$SERIAL_CC export CXX=$SERIAL_CXX export F77=$SERIAL_F77 export FC=$SERIAL_FC unset F90 # This seems to be set by default on NCAR's Cheyenne and is problematic unset F90FLAGS #export CFLAGS="-g" #export FFLAGS="-g -fbacktrace" #export FCFLAGS="-g -fbacktrace" #export F77FLAGS="-g -fbacktrace" ######################################## # MPICH ######################################## #tar xzvf ${LIBSRC}/mpich-3.3.1.tar.gz #cd mpich-3.3.1 #./configure --prefix=${LIBBASE} #make -j 4 ##make check #make install ##make testing #export PATH=${LIBBASE}/bin:$PATH #export LD_LIBRARY_PATH=${LIBBASE}/lib:$LD_LIBRARY_PATH #cd .. #rm -rf mpich-3.3.1 ######################################## # zlib ######################################## wget https://www2.mmm.ucar.edu/people/duda/files/mpas/sources/zlib-1.2.11.tar.gz tar xzvf ${LIBSRC}/zlib-1.2.11.tar.gz cd zlib-1.2.11 ./configure --prefix=${LIBBASE} --static make -j 4 make install cd .. #rm -rf zlib-1.2.11 # # ---------------------- # Build and install curl # --------------------- wget https://curl.se/download/curl-8.10.1.tar.gz tar -xzvf curl-8.10.1.tar.gz cd curl-8.10.1 ./configure --prefix=${LIBBASE} --without-ssl --without-libpsl make |& tee make.curl.log make install |& tee make.install.curl.log cd .. # ######################################## # HDF5 ######################################## wget https://support.hdfgroup.org/ftp/HDF5/releases/hdf5-1.10/hdf5-1.10.5/src/hdf5-1.10.5.tar.bz2 tar xjvf ${LIBSRC}/hdf5-1.10.5.tar.bz2 cd hdf5-1.10.5 export FC=$MPI_FC export CC=$MPI_CC export CXX=$MPI_CXX ./configure --prefix=${LIBBASE} --enable-parallel --with-zlib=${LIBBASE} --disable-shared make -j 4 #make check make install cd .. ##rm -rf hdf5-1.10.5 ######################################## # Parallel-netCDF ######################################## wget https://parallel-netcdf.github.io/Release/pnetcdf-1.14.0.tar.gz tar xzvf ${LIBSRC}/pnetcdf-1.14.0.tar.gz cd pnetcdf-1.14.0 export CC=$SERIAL_CC export CXX=$SERIAL_CXX export F77=$SERIAL_F77 export FC=$SERIAL_FC export MPICC=$MPI_CC export MPICXX=$MPI_CXX export MPIF77=$MPI_F77 export MPIF90=$MPI_FC ### Will also need gcc in path ./configure --prefix=${LIBBASE} make -j 4 #make check #make ptest #make testing make install export PNETCDF=${LIBBASE} cd .. #rm -rf pnetcdf-1.11.2 ######################################## # netCDF (C library) ######################################## wget https://github.com/Unidata/netcdf-c/archive/refs/tags/v4.7.0.tar.gz tar xzvf ${LIBSRC}/v4.7.0.tar.gz cd netcdf-c-4.7.0 export CPPFLAGS="-I${LIBBASE}/include" export LDFLAGS="-L${LIBBASE}/lib" export LIBS="-lhdf5_hl -lhdf5 -lz -ldl" export CC=$MPI_CC ./configure --prefix=${LIBBASE} --disable-dap --enable-netcdf4 --enable-pnetcdf --enable-cdf5 --enable-parallel-tests --disable-shared make -j 4 #make check make install export NETCDF=${LIBBASE} cd .. #rm -rf netcdf-c-4.7.0 ######################################## # netCDF (Fortran interface library) ######################################## wget https://www2.mmm.ucar.edu/people/duda/files/mpas/sources/netcdf-fortran-4.4.5.tar.gz tar xzvf ${LIBSRC}/netcdf-fortran-4.4.5.tar.gz cd netcdf-fortran-4.4.5 export FC=$MPI_FC export F77=$MPI_F77 export LIBS="-lnetcdf ${LIBS}" ./configure --prefix=${LIBBASE} --enable-parallel-tests --disable-shared make -j 4 #make check make install cd .. #rm -rf netcdf-fortran-4.4.5 ######################################## # PIO ######################################## git clone ssh://github.com/NCAR/ParallelIO cd ParallelIO git checkout -b pio-2.4.4 pio2_4_4 export PIOSRC=`pwd` cd .. mkdir pio cd pio export CC=$MPI_CC export FC=$MPI_FC cmake -DNetCDF_C_PATH=$NETCDF -DNetCDF_Fortran_PATH=$NETCDF -DPnetCDF_PATH=$PNETCDF -DHDF5_PATH=$NETCDF -DCMAKE_INSTALL_PREFIX=$LIBBASE -DPIO_USE_MALLOC=ON -DCMAKE_VERBOSE_MAKEFILE=1 -DPIO_ENABLE_TIMING=OFF $PIOSRC make #make check make install cd .. #rm -rf pio ParallelIO export PIO=$LIBBASE ######################################## # Other environment vars needed by MPAS ######################################## export MPAS_EXTERNAL_LIBS="-L${LIBBASE}/lib -lhdf5_hl -lhdf5 -ldl -lz" export MPAS_EXTERNAL_INCLUDES="-I${LIBBASE}/include" ================================================ FILE: DOCS/Users_Guide/Tutorials/scripts/mpas-cmaq_libraries/iolib_installation_intel_2024.2.1.sh ================================================ #!/usr/bin/env bash # Script works for module load intel/2024.2.1 # # Sources for all libraries used in this script can be found at # http://www2.mmm.ucar.edu/people/duda/files/mpas/sources/ # # Where to find sources for libraries export LIBSRC=$PWD # Where to install libraries export LIBBASE=$PWD # Compilers export SERIAL_FC=ifx export SERIAL_F77=ifx export SERIAL_CC=icx export SERIAL_CXX=icpx export MPI_FC=mpif90 export MPI_F77=mpif77 export MPI_CC=mpicc export MPI_CXX=mpic++ export CC=$SERIAL_CC export CXX=$SERIAL_CXX export F77=$SERIAL_F77 export FC=$SERIAL_FC unset F90 # This seems to be set by default on NCAR's Cheyenne and is problematic unset F90FLAGS #export CFLAGS="-g" #export FFLAGS="-g -fbacktrace" #export FCFLAGS="-g -fbacktrace" #export F77FLAGS="-g -fbacktrace" ######################################## # MPICH ######################################## #tar xzvf ${LIBSRC}/mpich-3.3.1.tar.gz #cd mpich-3.3.1 #./configure --prefix=${LIBBASE} #make -j 4 ##make check #make install ##make testing #export PATH=${LIBBASE}/bin:$PATH #export LD_LIBRARY_PATH=${LIBBASE}/lib:$LD_LIBRARY_PATH #cd .. #rm -rf mpich-3.3.1 ######################################## # zlib ######################################## wget https://www2.mmm.ucar.edu/people/duda/files/mpas/sources/zlib-1.2.11.tar.gz tar xzvf ${LIBSRC}/zlib-1.2.11.tar.gz cd zlib-1.2.11 ./configure --prefix=${LIBBASE} --static make -j 4 make install cd .. rm -rf zlib-1.2.11 # ---------------------- # Build and install curl # --------------------- wget https://curl.se/download/curl-8.10.1.tar.gz tar -xzvf curl-8.10.1.tar.gz cd curl-8.10.1 ./configure --prefix=${LIBBASE} --without-ssl --without-libpsl make |& tee make.curl.log make install |& tee make.install.curl.log ######################################## # HDF5 ######################################## wget https://support.hdfgroup.org/ftp/HDF5/releases/hdf5-1.10/hdf5-1.10.5/src/hdf5-1.10.5.tar.bz2 tar xjvf ${LIBSRC}/hdf5-1.10.5.tar.bz2 cd hdf5-1.10.5 export FC=$MPI_FC export CC=$MPI_CC export CXX=$MPI_CXX ./configure --prefix=${LIBBASE} --enable-parallel --with-zlib=${LIBBASE} --disable-shared make -j 4 #make check make install cd .. rm -rf hdf5-1.10.5 ######################################## # Parallel-netCDF ######################################## wget https://parallel-netcdf.github.io/Release/pnetcdf-1.11.2.tar.gz tar xzvf ${LIBSRC}/pnetcdf-1.11.2.tar.gz cd pnetcdf-1.11.2 export CC=$SERIAL_CC export CXX=$SERIAL_CXX export F77=$SERIAL_F77 export FC=$SERIAL_FC export MPICC=$MPI_CC export MPICXX=$MPI_CXX export MPIF77=$MPI_F77 export MPIF90=$MPI_FC ### Will also need gcc in path ./configure --prefix=${LIBBASE} make -j 4 #make check #make ptest #make testing make install export PNETCDF=${LIBBASE} cd .. rm -rf pnetcdf-1.11.2 ######################################## # netCDF (C library) ######################################## wget https://github.com/Unidata/netcdf-c/archive/refs/tags/v4.7.0.tar.gz tar xzvf ${LIBSRC}/v4.7.0.tar.gz cd netcdf-c-4.7.0 export CPPFLAGS="-I${LIBBASE}/include" export LDFLAGS="-L${LIBBASE}/lib" export LIBS="-lhdf5_hl -lhdf5 -lz -ldl" export CC=$MPI_CC ./configure --prefix=${LIBBASE} --disable-dap --enable-netcdf4 --enable-pnetcdf --enable-cdf5 --enable-parallel-tests --disable-shared make -j 4 #make check make install export NETCDF=${LIBBASE} cd .. rm -rf netcdf-c-4.7.0 ######################################## # netCDF (Fortran interface library) ######################################## wget https://www2.mmm.ucar.edu/people/duda/files/mpas/sources/netcdf-fortran-4.4.5.tar.gz tar xzvf ${LIBSRC}/netcdf-fortran-4.4.5.tar.gz cd netcdf-fortran-4.4.5 export FC=$MPI_FC export F77=$MPI_F77 export LIBS="-lnetcdf ${LIBS}" ./configure --prefix=${LIBBASE} --enable-parallel-tests --disable-shared make -j 4 #make check make install cd .. rm -rf netcdf-fortran-4.4.5 ######################################## # PIO ######################################## git clone ssh://github.com/NCAR/ParallelIO cd ParallelIO git checkout -b pio-2.4.4 pio2_4_4 export PIOSRC=`pwd` cd .. mkdir pio cd pio export CC=$MPI_CC export FC=$MPI_FC cmake -DNetCDF_C_PATH=$NETCDF -DNetCDF_Fortran_PATH=$NETCDF -DPnetCDF_PATH=$PNETCDF -DHDF5_PATH=$NETCDF -DCMAKE_INSTALL_PREFIX=$LIBBASE -DPIO_USE_MALLOC=ON -DCMAKE_VERBOSE_MAKEFILE=1 -DPIO_ENABLE_TIMING=OFF $PIOSRC make #make check make install cd .. #rm -rf pio ParallelIO export PIO=$LIBBASE ######################################## # Other environment vars needed by MPAS ######################################## export MPAS_EXTERNAL_LIBS="-L${LIBBASE}/lib -lhdf5_hl -lhdf5 -ldl -lz" export MPAS_EXTERNAL_INCLUDES="-I${LIBBASE}/include" ================================================ FILE: DOCS/Users_Guide/filter/comments.py ================================================ #!/usr/bin/env python from pandocfilters import toJSONFilter import re """ Pandoc filter that causes everything between '' and '' to be ignored. The comment lines must appear on lines by themselves, with blank lines surrounding them. """ incomment = False def comment(k, v, fmt, meta): global incomment if k == 'RawBlock': fmt, s = v if fmt == "html": if re.search("", s): incomment = True return [] elif re.search("", s): incomment = False return [] if incomment: return [] # suppress anything in a comment if __name__ == "__main__": toJSONFilter(comment) ================================================ FILE: DOCS/Users_Guide/readme.pandoc ================================================ Command to build PDF using pandoc on Liz's mac pandoc -s -N --template=./templates/mytemplate.tex --filter ./filter/comments.py --variable mainfont="Times New Roman" --variable sansfont="Helvetica" --variable monofont="Menlo" --variable fontsize=12pt --variable version=5.4 -fmarkdown-implicit_figures --variable title="CMAQv5.4 User Manual" --variable subtitle="10/10/2022" --toc --variable geometry:margin=1in --pdf-engine=xelatex -s -o ./PDF/CMAQ_UG_10_2022.pdf CMAQ_UG_ch01_overview.md CMAQ_UG_ch02_program_structure.md CMAQ_UG_ch03_preparing_compute_environment.md CMAQ_UG_ch04_model_inputs.md CMAQ_UG_ch05_running_a_simulation.md CMAQ_UG_ch06_model_configuration_options.md CMAQ_UG_ch07_model_outputs.md CMAQ_UG_ch08_analysis_tools.md CMAQ_UG_ch09_process_analysis.md CMAQ_UG_ch10_HDDM-3D.md CMAQ_UG_ch11_ISAM.md CMAQ_UG_ch12_sulfur_tracking.md CMAQ_UG_ch13_WRF-CMAQ.md ./Appendix/CMAQ_UG_appendixA_model_options.md ./Appendix/CMAQ_UG_appendixB_emissions_control.md ./Appendix/CMAQ_UG_appendixC_spatial_data.md ./Appendix/CMAQ_UG_appendixD_parallel_implementation.md ./Appendix/CMAQ_UG_appendixE_configuring_WRF.md ================================================ FILE: DOCS/Users_Guide/templates/mytemplate.tex ================================================ \documentclass[$if(fontsize)$$fontsize$,$endif$$if(lang)$$lang$,$endif$$if(papersize)$$papersize$,$endif$$for(classoption)$$classoption$$sep$,$endfor$]{$documentclass$} \setcounter{section}{1} $if(fontfamily)$ \usepackage{$fontfamily$} $else$ \usepackage{lmodern} $endif$ $if(linestretch)$ \usepackage{setspace} \setstretch{$linestretch$} $endif$ \usepackage{amssymb,amsmath} \usepackage{ifxetex,ifluatex} \usepackage{fixltx2e} % provides \textsubscript \ifnum 0\ifxetex 1\fi\ifluatex 1\fi=0 % if pdftex \usepackage[T1]{fontenc} \usepackage[utf8]{inputenc} $if(euro)$ \usepackage{eurosym} $endif$ \else % if luatex or xelatex \ifxetex \usepackage{mathspec} \usepackage{xltxtra,xunicode} \else \usepackage{fontspec} \fi \defaultfontfeatures{Mapping=tex-text,Scale=MatchLowercase} \newcommand{\euro}{€} $if(mainfont)$ \setmainfont{$mainfont$} $endif$ $if(sansfont)$ \setsansfont{$sansfont$} $endif$ $if(monofont)$ \setmonofont[Mapping=tex-ansi]{$monofont$} $endif$ $if(mathfont)$ \setmathfont(Digits,Latin,Greek){$mathfont$} $endif$ \fi % use upquote if available, for straight quotes in verbatim environments \IfFileExists{upquote.sty}{\usepackage{upquote}}{} % use microtype if available \IfFileExists{microtype.sty}{% \usepackage{microtype} \UseMicrotypeSet[protrusion]{basicmath} % disable protrusion for tt fonts }{} $if(geometry)$ \usepackage[$for(geometry)$$geometry$$sep$,$endfor$]{geometry} $endif$ \ifxetex \usepackage[setpagesize=false, % page size defined by xetex unicode=false, % unicode breaks when used with xetex xetex]{hyperref} \else \usepackage[unicode=true]{hyperref} \fi \hypersetup{breaklinks=true, bookmarks=true, pdfauthor={$author-meta$}, pdftitle={$title-meta$}, colorlinks=true, citecolor=$if(citecolor)$$citecolor$$else$blue$endif$, urlcolor=$if(urlcolor)$$urlcolor$$else$blue$endif$, linkcolor=$if(linkcolor)$$linkcolor$$else$magenta$endif$, pdfborder={0 0 0}} \urlstyle{same} % don't use monospace font for urls \usepackage{fancyhdr} \pagestyle{fancy} \pagenumbering{arabic} \lhead{\itshape $title$} \chead{} \rhead{\itshape{\nouppercase{\leftmark}}} \lfoot{v $version$} \cfoot{} \rfoot{\thepage} $if(lang)$ \ifxetex \usepackage{polyglossia} \setmainlanguage{$mainlang$} \setotherlanguages{$for(otherlang)$$otherlang$$sep$,$endfor$} \else \usepackage[shorthands=off,$lang$]{babel} \fi $endif$ $if(natbib)$ \usepackage{natbib} \bibliographystyle{$if(biblio-style)$$biblio-style$$else$plainnat$endif$} $endif$ $if(biblatex)$ \usepackage{biblatex} $for(bibliography)$ \addbibresource{$bibliography$} $endfor$ $endif$ $if(listings)$ \usepackage{listings} $endif$ $if(lhs)$ \lstnewenvironment{code}{\lstset{language=Haskell,basicstyle=\small\ttfamily}}{} $endif$ $if(highlighting-macros)$ $highlighting-macros$ $endif$ $if(verbatim-in-note)$ \usepackage{fancyvrb} \VerbatimFootnotes $endif$ $if(tables)$ \usepackage{longtable,booktabs} $endif$ $if(graphics)$ \usepackage{graphicx,grffile} \makeatletter \def\maxwidth{\ifdim\Gin@nat@width>\linewidth\linewidth\else\Gin@nat@width\fi} \def\maxheight{\ifdim\Gin@nat@height>\textheight\textheight\else\Gin@nat@height\fi} \makeatother % Scale images if necessary, so that they will not overflow the page % margins by default, and it is still possible to overwrite the defaults % using explicit options in \includegraphics[width, height, ...]{} \setkeys{Gin}{width=\maxwidth,height=\maxheight,keepaspectratio} $endif$ $if(links-as-notes)$ % Make links footnotes instead of hotlinks: \renewcommand{\href}[2]{#2\footnote{\url{#1}}} $endif$ $if(strikeout)$ \usepackage[normalem]{ulem} % avoid problems with \sout in headers with hyperref: \pdfstringdefDisableCommands{\renewcommand{\sout}{}} $endif$ \setlength{\parindent}{0pt} \setlength{\parskip}{6pt plus 2pt minus 1pt} \setlength{\emergencystretch}{3em} % prevent overfull lines \providecommand{\tightlist}{% \setlength{\itemsep}{0pt}\setlength{\parskip}{0pt}} $if(numbersections)$ \setcounter{secnumdepth}{5} $else$ \setcounter{secnumdepth}{0} $endif$ $if(verbatim-in-note)$ \VerbatimFootnotes % allows verbatim text in footnotes $endif$ $if(title)$ \title{$title$$if(subtitle)$\\\vspace{0.5em}{\large $subtitle$}$endif$} $endif$ $if(author)$ \author{$for(author)$$author$$sep$ \and $endfor$} $endif$ \date{$date$} $for(header-includes)$ $header-includes$ $endfor$ % Redefines (sub)paragraphs to behave more like sections \ifx\paragraph\undefined\else \let\oldparagraph\paragraph \renewcommand{\paragraph}[1]{\oldparagraph{#1}\mbox{}} \fi \ifx\subparagraph\undefined\else \let\oldsubparagraph\subparagraph \renewcommand{\subparagraph}[1]{\oldsubparagraph{#1}\mbox{}} \fi \begin{document} $if(title)$ \maketitle $endif$ $if(abstract)$ \begin{abstract} $abstract$ \end{abstract} $endif$ $for(include-before)$ $include-before$ $endfor$ $if(toc)$ { \hypersetup{linkcolor=$if(toccolor)$$toccolor$$else$black$endif$} \setcounter{secnumdepth}{0} \tableofcontents \newpage } $endif$ $if(lot)$ \listoftables $endif$ $if(lof)$ \listoffigures $endif$ $body$ $if(natbib)$ $if(bibliography)$ $if(biblio-title)$ $if(book-class)$ \renewcommand\bibname{$biblio-title$} $else$ \renewcommand\refname{$biblio-title$} $endif$ $endif$ \bibliography{$for(bibliography)$$bibliography$$sep$,$endfor$} $endif$ $endif$ $if(biblatex)$ \printbibliography$if(biblio-title)$[title=$biblio-title$]$endif$ $endif$ $for(include-after)$ $include-after$ $endfor$ \end{document} ================================================ FILE: DOCS/Users_Guide/templates/mytemplate.tex.sv ================================================ \documentclass[$if(fontsize)$$fontsize$,$endif$$if(lang)$$lang$,$endif$$if(papersize)$$papersize$,$endif$$for(classoption)$$classoption$$sep$,$endfor$]{$documentclass$} \setcounter{section}{1} $if(fontfamily)$ \usepackage{$fontfamily$} $else$ \usepackage{lmodern} $endif$ $if(linestretch)$ \usepackage{setspace} \setstretch{$linestretch$} $endif$ \usepackage{amssymb,amsmath} \usepackage{ifxetex,ifluatex} \usepackage{fixltx2e} % provides \textsubscript \ifnum 0\ifxetex 1\fi\ifluatex 1\fi=0 % if pdftex \usepackage[T1]{fontenc} \usepackage[utf8]{inputenc} $if(euro)$ \usepackage{eurosym} $endif$ \else % if luatex or xelatex \ifxetex \usepackage{mathspec} \usepackage{xltxtra,xunicode} \else \usepackage{fontspec} \fi \defaultfontfeatures{Mapping=tex-text,Scale=MatchLowercase} \newcommand{\euro}{€} $if(mainfont)$ \setmainfont{$mainfont$} $endif$ $if(sansfont)$ \setsansfont{$sansfont$} $endif$ $if(monofont)$ \setmonofont[Mapping=tex-ansi]{$monofont$} $endif$ $if(mathfont)$ \setmathfont(Digits,Latin,Greek){$mathfont$} $endif$ \fi % use upquote if available, for straight quotes in verbatim environments \IfFileExists{upquote.sty}{\usepackage{upquote}}{} % use microtype if available \IfFileExists{microtype.sty}{% \usepackage{microtype} \UseMicrotypeSet[protrusion]{basicmath} % disable protrusion for tt fonts }{} $if(geometry)$ \usepackage[$for(geometry)$$geometry$$sep$,$endfor$]{geometry} $endif$ \ifxetex \usepackage[setpagesize=false, % page size defined by xetex unicode=false, % unicode breaks when used with xetex xetex]{hyperref} \else \usepackage[unicode=true]{hyperref} \fi \hypersetup{breaklinks=true, bookmarks=true, pdfauthor={$author-meta$}, pdftitle={$title-meta$}, colorlinks=true, citecolor=$if(citecolor)$$citecolor$$else$blue$endif$, urlcolor=$if(urlcolor)$$urlcolor$$else$blue$endif$, linkcolor=$if(linkcolor)$$linkcolor$$else$magenta$endif$, pdfborder={0 0 0}} \urlstyle{same} % don't use monospace font for urls \usepackage{fancyhdr} \pagestyle{fancy} \pagenumbering{arabic} \lhead{\itshape $title$} \chead{} \rhead{\itshape{\nouppercase{\leftmark}}} \lfoot{v $version$} \cfoot{} \rfoot{\thepage} $if(lang)$ \ifxetex \usepackage{polyglossia} \setmainlanguage{$mainlang$} \setotherlanguages{$for(otherlang)$$otherlang$$sep$,$endfor$} \else \usepackage[shorthands=off,$lang$]{babel} \fi $endif$ $if(natbib)$ \usepackage{natbib} \bibliographystyle{$if(biblio-style)$$biblio-style$$else$plainnat$endif$} $endif$ $if(biblatex)$ \usepackage{biblatex} $for(bibliography)$ \addbibresource{$bibliography$} $endfor$ $endif$ $if(listings)$ \usepackage{listings} $endif$ $if(lhs)$ \lstnewenvironment{code}{\lstset{language=Haskell,basicstyle=\small\ttfamily}}{} $endif$ $if(highlighting-macros)$ $highlighting-macros$ $endif$ $if(verbatim-in-note)$ \usepackage{fancyvrb} \VerbatimFootnotes $endif$ $if(tables)$ \usepackage{longtable,booktabs} $endif$ $if(graphics)$ \usepackage{graphicx,grffile} \makeatletter \def\maxwidth{\ifdim\Gin@nat@width>\linewidth\linewidth\else\Gin@nat@width\fi} \def\maxheight{\ifdim\Gin@nat@height>\textheight\textheight\else\Gin@nat@height\fi} \makeatother % Scale images if necessary, so that they will not overflow the page % margins by default, and it is still possible to overwrite the defaults % using explicit options in \includegraphics[width, height, ...]{} \setkeys{Gin}{width=\maxwidth,height=\maxheight,keepaspectratio} $endif$ $if(links-as-notes)$ % Make links footnotes instead of hotlinks: \renewcommand{\href}[2]{#2\footnote{\url{#1}}} $endif$ $if(strikeout)$ \usepackage[normalem]{ulem} % avoid problems with \sout in headers with hyperref: \pdfstringdefDisableCommands{\renewcommand{\sout}{}} $endif$ \setlength{\parindent}{0pt} \setlength{\parskip}{6pt plus 2pt minus 1pt} \setlength{\emergencystretch}{3em} % prevent overfull lines \providecommand{\tightlist}{% \setlength{\itemsep}{0pt}\setlength{\parskip}{0pt}} $if(numbersections)$ \setcounter{secnumdepth}{5} $else$ \setcounter{secnumdepth}{0} $endif$ $if(verbatim-in-note)$ \VerbatimFootnotes % allows verbatim text in footnotes $endif$ $if(title)$ \title{$title$$if(subtitle)$\\\vspace{0.5em}{\large $subtitle$}$endif$} $endif$ $if(author)$ \author{$for(author)$$author$$sep$ \and $endfor$} $endif$ \date{$date$} $for(header-includes)$ $header-includes$ $endfor$ % Redefines (sub)paragraphs to behave more like sections \ifx\paragraph\undefined\else \let\oldparagraph\paragraph \renewcommand{\paragraph}[1]{\oldparagraph{#1}\mbox{}} \fi \ifx\subparagraph\undefined\else \let\oldsubparagraph\subparagraph \renewcommand{\subparagraph}[1]{\oldsubparagraph{#1}\mbox{}} \fi \begin{document} $if(title)$ \maketitle $endif$ $if(abstract)$ \begin{abstract} $abstract$ \end{abstract} $endif$ $for(include-before)$ $include-before$ $endfor$ $if(toc)$ { \hypersetup{linkcolor=$if(toccolor)$$toccolor$$else$black$endif$} \setcounter{tocdepth}{$toc-depth$} \tableofcontents \newpage } $endif$ $if(lot)$ \listoftables $endif$ $if(lof)$ \listoffigures $endif$ $body$ $if(natbib)$ $if(bibliography)$ $if(biblio-title)$ $if(book-class)$ \renewcommand\bibname{$biblio-title$} $else$ \renewcommand\refname{$biblio-title$} $endif$ $endif$ \bibliography{$for(bibliography)$$bibliography$$sep$,$endfor$} $endif$ $endif$ $if(biblatex)$ \printbibliography$if(biblio-title)$[title=$biblio-title$]$endif$ $endif$ $for(include-after)$ $include-after$ $endfor$ \end{document} ================================================ FILE: DOCS/Users_Guide/templates/template.markdown ================================================ $if(titleblock)$ $titleblock$ $endif$ $for(header-includes)$ $header-includes$ $endfor$ $for(include-before)$ $include-before$ $endfor$ $if(toc)$ $if(toc-title)$ #$toc-title$ $endif$ $toc$ $endif$ $body$ $for(include-after)$ $include-after$ $endfor$ ================================================ FILE: POST/README.md ================================================ Post-processing Tools ======== ## Overview The following utility programs are provided to process and prepare data for model evaluation. Documentation for each utility is provided in the README files within each subdirectory. ## Utility Programs * **[calc_tmetric](calc_tmetric/README.md)**: user can create gridded IOAPI files with temporally averaged or summed values that were calculated from one or more gridded time-dependent IOAPI files. * **[combine](combine/README.md)**: user can combine species from raw CMAQ output files or wrfout input files into a new IOAPI output file. Species can be aggregated or transformed into variables of interest (i.e. to match observed quantities from a specific monitoring network). * **[hr2day](hr2day/README.md)**: user can create gridded IOAPI files with daily values (e.g. daily sum, daily max 8hr average, etc.) from gridded IOAPI files containing hourly values. Daily values can be computed using GMT or LST. * **[sitecmp](sitecmp/README.md)**: user can generate a csv (comma separated values) file that compares CMAQ generated concentrations with an observed dataset. * **[sitecmp_dailyo3](sitecmp_dailyo3/README.md)**: user can generate a csv (comma separated values) file that compares various daily ozone metrics computed from hourly CMAQ generated and observed ozone concentrations. * **[writesite](writesite/README.md)**: user can generate a csv file from an IOAPI data file for a set of species at defined site locations. ## Observed data for model evaluation The formatted observation data files needed for running the sitecmp and sitecmp_dailyo3 utilities are available for 2000 through 2020 from the CMAS Center Data Warehouse Google Drive. * [Link to Google Drive folder with observation files](https://drive.google.com/drive/folders/1QUlUXnHXvXz9qwePi5APzzHkiH5GWACw?usp=sharing) * [Link to README text file with metadata on observation files](https://drive.google.com/file/d/1QVTDxGMXoNNnl8IXhz5pcIO0x45q2IS1/view?usp=drive_link) ## A note on model-observation pairing for model evaluation The task of matching model simulations to observations is performed by the sitecmp and sitecmp_dailyo3 utility programs. Documentation on how these programs handle matching model and observed species in space and time is provided in [Chapter 8 of the CMAQ User's Guide](../DOCS/Users_Guide/CMAQ_UG_ch08_analysis_tools.md). ================================================ FILE: POST/calc_tmetric/README.md ================================================ calc_tmetric ======== This Fortran program creates gridded IOAPI files with temporally averaged or summed values that were calculated from one or more gridded time-dependent IOAPI files. ## Run Time Environment variables used: ``` OPERATION operation to perform - SUM for summation and AVG for averaging (default SUM) SPECIES_# list of species to output (e.g. setenv SPECIES_1 O3). To extract all species use: setenv SPECIES_1 ALL M3_FILE_# List of input IOAPI file names with time-dependent values. The program will concatenate time steps from all input files to construct the longest possible time record which can be processed. Duplicate time steps are eliminated. The program will then sum or average variable values across these non-duplicate time steps. The maximum number of IOAPI files is set to be one less than the global IOAPI parameter MXFILE3. Since this parameter is currently set to 64 (https://www.cmascenter.org/ioapi/documentation/all_versions/html/TUTORIAL.html), the maximum number of IOAPI input files is 63. OUTFILE output IOAPI file name with gridded summed or averaged values ``` ## Compile calc_tmetric source code: Execute the build script to compile calc_tmetric: ``` cd $CMAQ_HOME/POST/calc_tmetric/scripts ./bldit_calc_tmetric.csh [compiler] [version] |& tee build_calc_tmetric.log ``` ## Run calc_tmetric: Edit the sample run script (run.calc_tmetric.csh), then run: ``` ./run.calc_tmetric.csh |& tee calc_tmetric.log ``` Check the log file to ensure complete and correct execution without errors. ================================================ FILE: POST/calc_tmetric/scripts/bldit_calc_tmetric.csh ================================================ #! /bin/csh -f # ==================== CALC_TMETRICv5.5.X Build Script ============== # # Usage: bldit_calc_tmetric.csh >&! bldit_calc_tmetric.log # # Requirements: I/O API & netCDF libraries; a Fortran compiler # # # # To report problems or request help with this script/program: # # http://www.cmascenter.org # # =================================================================== # # ======================================================================= #> Preliminary error checking and environment configuration # ======================================================================= #> Check that the host system is Linux-based set BLD_OS = `uname -s` if ($BLD_OS != 'Linux') then echo " $BLD_OS -> wrong bldit script for host!" exit 1 endif #> Set Compiler Identity by User Input: Options -> intel | pgi | gcc if ( $#argv == 1 ) then setenv compiler $argv[1] setenv compilerVrsn Empty else if ( $#argv == 2 ) then #> Compiler Name and Version have been provided setenv compiler $1 setenv compilerVrsn $2 else echo "usage: $0 " echo " where is intel, pgi or gcc" exit(2) endif #> Source the config.cmaq file to set the build environment cd ../../.. source ./config_cmaq.csh #> Source Code Repository setenv REPOROOT ${CMAQ_REPO}/POST/calc_tmetric #> location of the source code for CALC_TMETRIC #=============================================================================== #> Begin User Input Section #=============================================================================== #> User choices: working directory and application ID set VRSN = v55 #> model version set EXEC = calc_tmetric_${VRSN}.exe #> executable name for this application set CFG = calc_tmetric_${VRSN}.cfg #> BLDMAKE configuration file name setenv BLDER ${CMAQ_HOME}/UTIL/bldmake/bldmake_${compilerString}.exe #> location of makefile builder executable #> user choice: copy source files set CopySrc #> copy the source files into the BLD directory #set MakeFileOnly # builds a Makefile to make the model, but does not compile - # comment out to also compile the model (default if not set) # set CompileBLDMAKE #> Recompile the BLDMAKE utility from source #> comment out to use an existing BLDMAKE executable set ModDriver = src #> CALC_TMETRIC Modules #============================================================================================ #> Computing System Configuration: #> Most of these settings are done in config.cmaq #============================================================================================ #> Set full path of Fortran 90 compiler setenv FC ${myFC} set FP = $FC #> Set IO/API version set IOAPI = ioapi_3.1 #> Set compiler flags set FSTD = "${myFSTD}" set DBG = "${myDBG}" setenv F_FLAGS "${myFFLAGS}" set F90_FLAGS = "${myFRFLAGS}" set CPP_FLAGS = "" #> Fortran Preprocessor Flags set LINK_FLAGS = "${myLINK_FLAG}" #> Link Flags set LIB2 = "${ioapi_lib}" #============================================================================================ #> Set up the calc_tmetric build directory under the Tools directory #> for checking out and compiling source code #============================================================================================ set Bld = ${CMAQ_HOME}/POST/calc_tmetric/scripts/BLD_calc_tmetric_${VRSN}_${compilerString} if ( ! -e "$Bld" ) then mkdir -pv $Bld else if ( ! -d "$Bld" ) then echo " *** target exists, but not a directory ***" exit 1 endif endif cd $Bld #> Check for previous run if ( -e "$Bld/${CFG}" ) then echo " >>> previous ${CFG} exists, re-naming to ${CFG}.old <<<" mv $Bld/${CFG} $Bld/${CFG}.old endif #============================================================================================ #> Make the config file #============================================================================================ set Cfile = ${Bld}/$CFG set quote = '"' echo > $Cfile echo "model $EXEC;" >> $Cfile echo >> $Cfile echo "repo $REPOROOT;" >> $Cfile echo >> $Cfile echo "lib_base ${CMAQ_LIB};" >> $Cfile echo >> $Cfile echo "lib_1 ioapi/lib;" >> $Cfile echo >> $Cfile echo "lib_2 ioapi/include_files;" >> $Cfile echo >> $Cfile echo "lib_3 netcdf/include;" >> $Cfile echo >> $Cfile echo "lib_4 ioapi/lib;" >> $Cfile echo >> $Cfile echo "lib_5 netcdff/include;" >> $Cfile echo >> $Cfile set text = "$quote$CPP_FLAGS$quote;" echo "cpp_flags $text" >> $Cfile echo >> $Cfile echo "f_compiler $FC;" >> $Cfile echo >> $Cfile echo "fstd $quote$FSTD$quote;" >> $Cfile echo >> $Cfile echo "dbg $quote$DBG$quote;" >> $Cfile echo >> $Cfile echo "f_flags $quote$F_FLAGS$quote;" >> $Cfile echo >> $Cfile echo "f90_flags $quote$F90_FLAGS$quote;" >> $Cfile echo >> $Cfile echo "link_flags $quote$LINK_FLAGS$quote;" >> $Cfile echo >> $Cfile #echo "libraries $quote$LIBS$quote;" >> $Cfile echo "ioapi $quote$LIB2$quote;" >> $Cfile echo >> $Cfile echo "netcdf $quote$netcdf_lib$quote;" >> $Cfile echo >> $Cfile echo "netcdff $quote$netcdff_lib$quote;" >> $Cfile set text = "calc_tmetric" echo "// options are" $text >> $Cfile echo "Module ${ModDriver};" >> $Cfile echo >> $Cfile #============================================================================================ #> Use BLDMAKE to create the Makefile and model executable if desired #============================================================================================ unalias mv rm #> Recompile BLDMAKE from source if requested or if it does not exist if ( $?CompileBLDMAKE || ! -f $BLDER ) then cd ${CMAQ_REPO}/UTIL/bldmake/scripts ./bldit_bldmake.csh endif #> Relocate to the BLD_* directory cd $Bld #> Set serial options for BLDMAKE execution set Blder = "$BLDER -serial -verbose" #> Run BLDMAKE Utility if ( $?MakeFileOnly ) then #> Just create the Makefile if ( $?CopySrc ) then $Blder -makefo $Cfile else $Blder -makefo -git_local $Cfile endif else # Also compile the model if ( $?CopySrc ) then $Blder $Cfile else $Blder -git_local $Cfile endif endif #> Save Makefile with Compiler-dependent name and create symbolic #> link back to generic name. mv Makefile Makefile.$compilerString if ( -e Makefile.$compilerString && -e Makefile ) rm Makefile ln -s Makefile.$compilerString Makefile #> Check for error during makefile generation if ( $status != 0 ) then echo " *** failure in $Blder ***" exit 1 endif exit ================================================ FILE: POST/calc_tmetric/scripts/run_calc_tmetric.csh ================================================ #! /bin/csh -f # ===================== CALC_TMETRIC_v5.5.X Run Script ============= # Usage: run_calc_tmetric.csh >&! calc_tmetric.log & # # To report problems or request help with this script/program: # http://www.epa.gov/cmaq (EPA CMAQ Website) # http://www.cmascenter.org # =================================================================== # ================================================================== #> Runtime Environment Options # ================================================================== #> Choose compiler and set up CMAQ environment with correct #> libraries using config.cmaq. Options: intel | gcc | pgi setenv compiler intel cd ../../.. source ./config_cmaq.csh #> Set General Parameters for Configuring the Simulation set VRSN = v55 #> Code Version set PROC = mpi #> serial or mpi set MECH = cb6r5_ae7_aq #> Mechanism ID set APPL = Bench_2016_12SE1 #> Application Name (e.g. Gridname) #> Define RUNID as any combination of parameters above or others. By default, #> this information will be collected into this one string, $RUNID, for easy #> referencing in output binaries and log files as well as in other scripts. set RUNID = ${VRSN}_${compilerString}_${APPL} #> Set the build directory if this was not set above #> (this is where the executable is located by default). if ( ! $?BINDIR ) then set BINDIR = ${CMAQ_HOME}/POST/calc_tmetric/scripts/BLD_calc_tmetric_${VRSN}_${compilerString} endif #> Set the name of the executable. set EXEC = calc_tmetric_${VRSN}.exe #> Set output directory set POSTDIR = ${CMAQ_DATA}/POST #> Location where output file will be written if ( ! -e $POSTDIR ) then mkdir $POSTDIR endif # ===================================================================== #> CALC_TMETRIC Configuration Options # ===================================================================== #> operation to perform - SUM (default) or AVG setenv OPERATION AVG # setenv OPERATION SUM #> list of species to output - set to "ALL" to process all species from INFILE, or list species to process #> the output variable names will have the ${OPERATION} value (SUM or AVG) appended to the input variable names # setenv SPECIES_1 ALL setenv SPECIES_1 O3 setenv SPECIES_2 CO setenv SPECIES_3 PM25_TOT ############################################################# # Input files ############################################################# #> ioapi input files containing SPECIES_{N} (max of 366) setenv M3_FILE_1 ${CMAQ_DATA}/POST/COMBINE_ACONC_${RUNID}_201607.nc # setenv M3_FILE_2 ${CMAQ_DATA}/POST/COMBINE_ACONC_${RUNID}_201608.nc #[Add location of input file, e.g. COMBINE_ACONC file.] ############################################################# # Output files ############################################################# #> ioapi output file setenv OUTFILE ${POSTDIR}/average_concentrations_${RUNID}.nc #> Executable call: ${BINDIR}/${EXEC} set progstat = ${status} if ( ${progstat} ) then echo "ERROR ${progstat} in $BINDIR/$EXEC" exit( ${progstat} ) endif exit() ================================================ FILE: POST/calc_tmetric/src/calc_tmetric.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C**************************************************************************************** c PROGRAM timeagg c C***************************************************************************************** USE M3FILES USE SPECIES USE GRID_DATA USE TIME_STEP USE M3UTILIO IMPLICIT NONE C external functions character*(16) int2Str character*(16) real2Str character*(16) date2Str character*(16) time2Str C local variables integer status logical lstatus integer logdev INTEGER NVARS_IN, KSWIT character*(3) c_proc character*(16) field character*(256) infile character*(256) outfile character*(256) MSG character*(16) VNAME_IN(MXVARS3) character*(16) VUNITS_IN(MXVARS3) character*(16) PNAME character*(16) VERSION real, allocatable :: in_data(:,:,:) real, allocatable :: proc_data(:,:,:) integer lfn integer i, s, t, idx, K, N integer column, row real x, y, lon, lat C********************************************************************** DATA PNAME / 'CALC_TMETRIC' / DATA Version / '1.0' / C... write program name and version number WRITE( *, '(a)' ) & '>>----> Program ' // TRIM(PNAME) // ' (Version ' // TRIM(Version) // ') <----<<' lfn = 10 C... start program logdev = init3 () ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Get the Models-3 file(s) to process and the other environment c variables ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc CALL OPEN_M3FILES ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Check the file(s) for consistency and make sure the requested c species is on the file(s) ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc CALL CK_M3FLS() ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Get the grid definition and the tsteps from the M3 files ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc CALL GET_M3GRID CALL GET_TSTEPS C... get operation (SUM or AVG) CALL ENVSTR( 'OPERATION', 'Operation to be peformed - SUM or AVG', 'SUM', c_proc, status) IF ( ( C_PROC .NE. 'SUM') .AND. ( C_PROC .NE. 'AVG') )THEN CALL M3ERR(PNAME, 0, 0, 'Must set OPERATION to SUM or AVG', .TRUE.) ENDIF C... get species definitions from system variables Call loadSpecies() write(*,'(i5,'' species defined'')') NSPECVAR C... get name of output file C CALL ENVSTR( 'OUTFILE', 'Name of output file', 'OUTFILE', outfile, status) C... set up metadata for output file IF( .NOT. DESC3 ( M3_FLNAME( 1 ) ) ) THEN MSG = 'Could not read DESC of ' // M3_FLNAME( 1 ) & // ' file' CALL M3ERR( PNAME, 0, 0, MSG, .TRUE. ) ENDIF NVARS_IN = NVARS3D DO S = 1, NVARS_IN !obtain units for all species from first input file VNAME_IN(S) = VNAME3D(S) VUNITS_IN(S) = UNITS3D(S) ENDDO !S TSTEP3D = 0 !make output file time independent NVARS3D = NSPECVAR !number of output species from module_spec DO S = 1, NSPECVAR VNAME3D(S) = TRIM(SPECVARS(S))//"_"//C_PROC VTYPE3D(S) = M3REAL VDESC3D(S) = C_PROC//" OF "//TRIM(SPECVARS(S)) UNITS3D(S) = VUNITS_IN(INDEX1(SPECVARS(S),NVARS_IN,VNAME_IN)) ENDDO !S C... open output file as new if( .NOT. OPEN3( 'OUTFILE', FSCREA3, TRIM(PNAME) ) ) THEN WRITE( *, '(''**ERROR** while openning OUTFILE'')' ) stop endif C... start process loop ! allocate data array for 1 species allocate( in_data(NCOLS3D, NROWS3D, M3GRID % NLAYS), stat=status ) IF ( status .NE. 0 ) THEN MSG = 'Failure allocating in_data' CALL M3EXIT ( PNAME, 0, 0, MSG, XSTAT2 ) END IF allocate( proc_data(NCOLS3D, NROWS3D, M3GRID % NLAYS), stat=status ) IF ( status .NE. 0 ) THEN MSG = 'Failure allocating proc_data' CALL M3EXIT ( PNAME, 0, 0, MSG, XSTAT2 ) END IF DO S = 1, NSPECVAR write(*,'(''Processing species:'',a)') TRIM(SPECVARS(s)) PROC_DATA = 0. DO N = 1, NSTEPS !number of time steps across all model files from module_tstep IF( .NOT. READ3( M3_FLNAME(STEP_FILE(N)), SPECVARS(s), & ALLAYS3, STEP_DATE(N), & STEP_TIME(N), IN_DATA ) ) THEN MSG = 'Could not read input Models-3 file ' // M3_FLNAME(STEP_FILE(N)) CALL M3ERR( PNAME, STEP_DATE(N), STEP_TIME(N), MSG, .FALSE. ) ELSE PROC_DATA = PROC_DATA + IN_DATA ENDIF enddo !N Write(*,'(''Done reading for species '',a)') & VNAME3D(S) c compute average if desired, write out the result for this variable IF ( C_PROC .EQ. 'AVG' ) PROC_DATA = PROC_DATA * (1. / FLOAT (NSTEPS) ) IF ( .NOT. WRITE3('OUTFILE', VNAME3D(S), STEP_DATE(1), & STEP_TIME(1), PROC_DATA) ) THEN MSG = ' Cannot write to OUTFILE for species ' // VNAME3D(S) CALL M3EXIT( PNAME, STEP_DATE(1), STEP_TIME(1), MSG, 1 ) ENDIF ENDDO !S Write(*,'(''finished reading model values'')') DEALLOCATE(IN_DATA) DEALLOCATE(PROC_DATA) C... shut down ioapi KSWIT = SHUT3() WRITE(*,'('' IOAPI Shut down'')') STOP END C**************************************************************************** C routine to convert integer to string C**************************************************************************** Character*16 Function int2Str( value, fmt ) result(intStr) IMPLICIT NONE ! argument Integer value Character*(*) fmt Write(intStr,fmt) value Call LeftTrim(intStr) return End Function int2Str C**************************************************************************** C routine to convert real to string C**************************************************************************** Character*16 Function real2Str( value, fmt ) result(realStr) IMPLICIT NONE ! argument Real value Character*(*) fmt Write(realStr,fmt) value Call LeftTrim(realStr) return End Function real2Str C**************************************************************************** C routine to convert date and time to string as "yyyy-mm-dd" C**************************************************************************** Character*16 Function date2Str( date ) result(dateStr) Implicit None Integer date C.. local variables Integer month, day, year call DayMon( date, month, day ) year = date/1000 write(dateStr,'(i4.4,''-'',i2.2,''-'',i2.2)') year, month, day return End Function date2Str C**************************************************************************** C routine to convert time to string as "HH:MM:SS" C**************************************************************************** Character*16 Function time2Str( time ) result(timeStr) Implicit None Integer time C.. local variables Integer hour, minutes, secs hour = time/10000 minutes = (time - 10000*hour)/100 secs = mod(time,100) write(timeStr,'(i2.2,'':'',i2.2,'':'',i2.2)') & hour,minutes,secs return End Function time2Str ================================================ FILE: POST/calc_tmetric/src/ck_ctms.F ================================================ !-----------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !-----------------------------------------------------------------------! ! RCS file, release, date & time of last delta, author, state, [and locker] ! $Header: /home/sjr/cvs2git/TOOLS/src/sitecmp/ck_ctms.F,v 1.4 2011/10/21 14:41:31 sjr Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% C************************************************************************* C C FUNCTION: To check multiple input CTM conc files for consistent C header data C C C************************************************************************* SUBROUTINE CK_M3FLS() USE M3FILES USE M3UTILIO IMPLICIT NONE C..ARGUMENTS: C..PARAMETERS: None C..SAVED LOCAL VARIABLES: None C..SCRATCH LOCAL VARIABLES: CHARACTER*80 MSG ! Log message CHARACTER*16 PNAME ! Program Name CHARACTER*15 VAL1 ! Character value of real CHARACTER*15 VAL2 ! Character value of real INTEGER L, N ! Loop indices INTEGER FTYPE1 ! File 1 file type INTEGER NCOLS1 ! File 1 number of columns INTEGER NROWS1 ! File 1 number of rows INTEGER NLAYS1 ! File 1 number of levels INTEGER SDATE1 ! File 1 start date INTEGER STIME1 ! File 1 start time INTEGER TSTEP1 ! File 1 time step INTEGER MXREC1 ! File 1 number of time steps INTEGER NTHIK1 ! File 1 boundary thickness INTEGER GDTYP1 ! File 1 horizontal grid type INTEGER VGTYP1 ! File 1 Vertical coordinate type LOGICAL LERROR ! Error Flag LOGICAL LSTOP ! Exit Flag REAL P_ALP1 ! File 1 map projection parameter REAL P_BET1 ! File 1 map projection parameter REAL P_GAM1 ! File 1 map projection parameter REAL XORIG1 ! File 1 X-origin REAL YORIG1 ! File 1 Y-origin REAL XCELL1 ! File 1 X-dimension of cells REAL YCELL1 ! File 1 Y-dimension of cells REAL XCENT1 ! File 1 X-center of coordinate system REAL YCENT1 ! File 1 Y-center of coordinate system REAL VGTOP1 ! File 1 model top REAL VGLVS1( MXLAYS3 + 1 ) ! File vertical layer heights C********************************************************************** DATA PNAME / 'CK_M3FLS' / LSTOP = .FALSE. ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Get header data for CTM file 1 ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF( .NOT. DESC3 ( M3_FLNAME( 1 ) ) ) THEN MSG = 'Could not read DESC of ' // M3_FLNAME( 1 ) & // ' file' CALL M3ERR( PNAME, 0, 0, MSG, .TRUE. ) ENDIF FTYPE1 = FTYPE3D NCOLS1 = NCOLS3D NROWS1 = NROWS3D NLAYS1 = NLAYS3D SDATE1 = SDATE3D STIME1 = STIME3D TSTEP1 = TSTEP3D MXREC1 = MXREC3D NTHIK1 = NTHIK3D GDTYP1 = GDTYP3D P_ALP1 = P_ALP3D P_BET1 = P_BET3D P_GAM1 = P_GAM3D XORIG1 = XORIG3D YORIG1 = YORIG3D XCELL1 = XCELL3D YCELL1 = YCELL3D XCENT1 = XCENT3D YCENT1 = YCENT3D VGTYP1 = VGTYP3D VGTOP1 = VGTOP3D DO N = 1 , NLAYS3D + 1 VGLVS1( N ) = VGLVS3D( N ) ENDDO ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Check to see that requested variable is on all files ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc DO N = 1, N_M3FILES IF( .NOT. DESC3 ( M3_FLNAME( N ) ) ) THEN MSG = 'Could not read DESC of ' // M3_FLNAME( N ) & // ' file' CALL M3ERR( PNAME, 0, 0, MSG, .TRUE. ) ENDIF ENDDO ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Write out report data ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF( N_M3FILES .GT. 1 ) THEN MSG = 'Multiple Models-3 files being used' CALL M3MESG( MSG ) MSG = 'Files being checked for consistent header data' CALL M3MESG( MSG ) ENDIF ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Compare header data on file 1 with header data on other CTM files ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc DO N = 2, N_M3FILES WRITE( MSG, '( ''Differences found between files '', A, & '' and '', A )' ) & TRIM( M3_FLNAME( 1 ) ), & TRIM( M3_FLNAME( N ) ) CALL M3MESG( MSG ) LERROR = .FALSE. IF( .NOT. DESC3 ( M3_FLNAME( N ) ) ) THEN MSG = 'Could not read DESC of ' // M3_FLNAME( N ) & // ' file' CALL M3ERR( PNAME, 0, 0, MSG, .TRUE. ) ENDIF IF( FTYPE1 .NE. FTYPE3D ) THEN WRITE( LOGUNIT, 94020 ) FTYPE1, N, FTYPE3D LERROR = .TRUE. ENDIF IF( NCOLS1 .NE. NCOLS3D ) THEN WRITE( LOGUNIT, 94040 ) NCOLS1, N, NCOLS3D LERROR = .TRUE. ENDIF IF( NROWS1 .NE. NROWS3D ) THEN WRITE( LOGUNIT, 94060 ) NROWS1, N, NROWS3D LERROR = .TRUE. ENDIF IF( NLAYS1 .NE. NLAYS3D ) THEN WRITE( LOGUNIT, 94080 ) NLAYS1, N, NLAYS3D LERROR = .TRUE. ENDIF IF( TSTEP1 .NE. TSTEP3D ) THEN WRITE( LOGUNIT, 94140 ) TSTEP1, N, TSTEP3D LERROR = .TRUE. ENDIF IF( NTHIK1 .NE. NTHIK3D ) THEN WRITE( LOGUNIT, 94180 ) NTHIK1, N, NTHIK3D LERROR = .TRUE. ENDIF IF( GDTYP1 .NE. GDTYP3D ) THEN WRITE( LOGUNIT, 94200 ) GDTYP1, N, GDTYP3D LERROR = .TRUE. ENDIF WRITE( VAL1, 94000 ) P_ALP1 WRITE( VAL2, 94000 ) P_ALP3D IF( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94220 ) P_ALP1, N, P_ALP3D LERROR = .TRUE. ENDIF WRITE( VAL1, 94000 ) P_BET1 WRITE( VAL2, 94000 ) P_BET3D IF( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94240 ) P_BET1, N, P_BET3D LERROR = .TRUE. ENDIF WRITE( VAL1, 94000 ) P_GAM1 WRITE( VAL2, 94000 ) P_GAM3D IF( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94260 ) P_GAM1, N, P_GAM3D LERROR = .TRUE. ENDIF WRITE( VAL1, 94000 ) XORIG1 WRITE( VAL2, 94000 ) XORIG3D IF( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94280 ) XORIG1, N, XORIG3D LERROR = .TRUE. ENDIF WRITE( VAL1, 94000 ) YORIG1 WRITE( VAL2, 94000 ) YORIG3D IF( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94300 ) YORIG1, N, YORIG3D LERROR = .TRUE. ENDIF WRITE( VAL1, 94000 ) XCELL1 WRITE( VAL2, 94000 ) XCELL3D IF( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94320 ) XCELL1, N, XCELL3D LERROR = .TRUE. ENDIF WRITE( VAL1, 94000 ) YCELL1 WRITE( VAL2, 94000 ) YCELL3D IF( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94340 ) YCELL1, N, YCELL3D LERROR = .TRUE. ENDIF WRITE( VAL1, 94000 ) XCENT1 WRITE( VAL2, 94000 ) XCENT3D IF( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94360 ) XCENT1, N, XCENT3D LERROR = .TRUE. ENDIF WRITE( VAL1, 94000 ) YCENT1 WRITE( VAL2, 94000 ) YCENT3D IF( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94380 ) YCENT1, N, YCENT3D LERROR = .TRUE. ENDIF WRITE( VAL1, 94000 ) VGTOP1 WRITE( VAL2, 94000 ) VGTOP3D IF( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94420 ) VGTOP1, N, VGTOP3D LERROR = .TRUE. ENDIF DO L = 1 , NLAYS1 + 1 WRITE( VAL1, 94000 ) VGLVS1( L ) WRITE( VAL2, 94000 ) VGLVS3D( L ) IF( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94440 ) L, VGLVS1( L ), N, L, & VGLVS3D( L ) LERROR = .TRUE. ENDIF ENDDO IF( .NOT. LERROR ) THEN WRITE( LOGUNIT, 94460 ) ELSE LSTOP = .TRUE. ENDIF ENDDO IF( LSTOP ) THEN MSG = 'Missing variable or file inconsistencies detected: stopping' CALL M3ERR( PNAME, 0, 0, MSG, .TRUE. ) ENDIF RETURN C************************* FORMAT STATEMENTS *************************** 94000 FORMAT( E15.5 ) 94020 FORMAT(10X, 'FTYPE1 = ', I3, ' FTYPE', I1, ' = ', I3 ) 94040 FORMAT(10X, 'NCOLS1 = ', I3, ' NCOLS', I1, ' = ', I3 ) 94060 FORMAT(10X, 'NROWS1 = ', I3, ' NROWS', I1, ' = ', I3 ) 94080 FORMAT(10X, 'NLAYS1 = ', I3, ' NLAYS', I1, ' = ', I3 ) 94100 FORMAT(10X, 'SDATE1 = ', I3, ' SDATE', I1, ' = ', I3 ) 94120 FORMAT(10X, 'STIME1 = ', I3, ' STIME', I1, ' = ', I3 ) 94140 FORMAT(10X, 'TSTEP1 = ', I3, ' TSTEP', I1, ' = ', I3 ) 94160 FORMAT(10X, 'MXREC1 = ', I3, ' MXREC', I1, ' = ', I3 ) 94180 FORMAT(10X, 'NTHIK1 = ', I3, ' NTHIK', I1, ' = ', I3 ) 94200 FORMAT(10X, 'GDTYP1 = ', I3, ' GDTYP', I1, ' = ', I3 ) 94220 FORMAT(10X, 'P_ALP1 = ', 1PE12.5, ' P_ALP', I1, ' = ', 1PE12.5 ) 94240 FORMAT(10X, 'P_BET1 = ', 1PE12.5, ' P_BET', I1, ' = ', 1PE12.5 ) 94260 FORMAT(10X, 'P_GAM1 = ', 1PE12.5, ' P_GAM', I1, ' = ', 1PE12.5 ) 94280 FORMAT(10X, 'XORIG1 = ', 1PE12.5, ' XORIG', I1, ' = ', 1PE12.5 ) 94300 FORMAT(10X, 'YORIG1 = ', 1PE12.5, ' YORIG', I1, ' = ', 1PE12.5 ) 94320 FORMAT(10X, 'XCELL1 = ', 1PE12.5, ' XCELL', I1, ' = ', 1PE12.5 ) 94340 FORMAT(10X, 'YCELL1 = ', 1PE12.5, ' YCELL', I1, ' = ', 1PE12.5 ) 94360 FORMAT(10X, 'XCENT1 = ', 1PE12.5, ' XCENT', I1, ' = ', 1PE12.5 ) 94380 FORMAT(10X, 'YCENT1 = ', 1PE12.5, ' YCENT', I1, ' = ', 1PE12.5 ) 94420 FORMAT(10X, 'VGTOP1 = ', 1PE12.5, ' VGTOP', I1, ' = ', 1PE12.5 ) 94440 FORMAT(10X, 'VGLVS1(', I2, ' ) = ', 1PE12.5, ' VGLVS', I1, & '(', I2, ' ) = ', 1PE12.5 ) 94445 FORMAT(10X, 'Variable ', A, ' not on file ', A ) 94460 FORMAT(10X, 'NONE' ) END ================================================ FILE: POST/calc_tmetric/src/module_file.F ================================================ !-----------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !-----------------------------------------------------------------------! ! RCS file, release, date & time of last delta, author, state, [and locker] ! $Header: /home/sjr/cvs2git/TOOLS/src/sitecmp/module_file.F,v 1.4 2011/10/21 14:41:32 sjr Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% C************************************************************************* C C MODULE: sets up file data C C************************************************************************* MODULE M3FILES USE M3UTILIO INTEGER LOGUNIT ! Logdevice INTEGER N_M3FILES ! No. of input Models-3 files INTEGER, PARAMETER :: MXM3FLS = MXFILE3 - 1 ! Max no. of input files - use IOAPI parameter ! MXFILE3 - 1 to also allow one output file CHARACTER*16 M3_FLNAME( MXM3FLS ) ! Names of Models-3 file CHARACTER*256 M3FILE ! first filename CONTAINS SUBROUTINE OPEN_M3FILES C************************************************************************* C C FUNCTION: To provide site data C C************************************************************************* USE M3UTILIO IMPLICIT NONE C..ARGUMENTS: None C..PARAMETERS: None C..EXTERNAL FUNCTIONS: None C..SAVED LOCAL VARIABLES: None C..SCRATCH LOCAL VARIABLES: CHARACTER*16 ENV_DFLT ! Environment variable default value CHARACTER*16 FL_NAME ! Input Models-3 file name CHARACTER*16 PNAME ! Program Name CHARACTER*80 ENV_DESC ! Environment variable description CHARACTER*80 MSG ! Error message CHARACTER*256 RET_VAL ! Returned value of environment variable INTEGER N ! Loop index INTEGER STATUS ! Status code C********************************************************************** DATA PNAME / 'OPEN_M3FILES' / ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Determine the number of input CTM conc files that need to be read ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc LOGUNIT = INIT3() N_M3FILES = 0 WRITE( LOGUNIT, 92020 ) DO N = 1, MXM3FLS IF( N .LT. 10 ) THEN WRITE( FL_NAME, '( ''M3_FILE_'', I1 )' ) N WRITE( ENV_DESC, '( ''CTM Concentration file no. '', I1 )' ) N ELSEIF( N .LT. 100 ) THEN WRITE( FL_NAME, '( ''M3_FILE_'', I2 )' ) N WRITE( ENV_DESC, '( ''CTM Concentration file no. '', I2 )' ) N ELSE WRITE( FL_NAME, '( ''M3_FILE_'', I3 )' ) N WRITE( ENV_DESC, '( ''CTM Concentration file no. '', I3 )' ) N ENDIF ENV_DFLT = ' ' CALL ENVSTR( FL_NAME, ENV_DESC, ENV_DFLT, RET_VAL, STATUS) IF( STATUS .EQ. 0 ) THEN If( N_M3FILES .eq. 0) M3FILE = RET_VAL N_M3FILES = N_M3FILES + 1 M3_FLNAME( N_M3FILES ) = FL_NAME Else Exit ENDIF ENDDO IF( N_M3FILES .EQ. 0 ) THEN MSG = 'No CTM CONC files found' CALL M3ERR( PNAME, 0, 0, MSG, .TRUE. ) ENDIF ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Open the files ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc DO N = 1, N_M3FILES IF( .NOT. OPEN3( M3_FLNAME( N ), 1, PNAME) )THEN CALL M3EXIT( PNAME, 0 , 0, & 'Could not open input file ' // M3_FLNAME( N ), & XSTAT1 ) ENDIF ENDDO RETURN C****************** FORMAT STATEMENTS ****************************** 92020 FORMAT( //5X, A, // ) END SUBROUTINE OPEN_M3FILES END MODULE M3FILES ================================================ FILE: POST/calc_tmetric/src/module_grid.F ================================================ !-----------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !-----------------------------------------------------------------------! ! RCS file, release, date & time of last delta, author, state, [and locker] ! $Header: /home/sjr/cvs2git/TOOLS/src/sitecmp/module_grid.F,v 1.4 2011/10/21 14:41:32 sjr Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% C************************************************************************* C C MODULE: defines a grid class C C************************************************************************* MODULE GRID_DATA TYPE GRID INTEGER :: NCOLS INTEGER :: NROWS INTEGER :: NLAYS INTEGER :: GDTYP REAL*8 :: P_ALP REAL*8 :: P_BET REAL*8 :: P_GAM REAL*8 :: XCENT REAL*8 :: YCENT REAL*8 :: XORIG REAL*8 :: YORIG REAL*8 :: XCELL REAL*8 :: YCELL END TYPE GRID TYPE ( GRID ) M3GRID CONTAINS SUBROUTINE GET_M3GRID C************************************************************************* C C FUNCTION: To set grid data C C************************************************************************* USE M3FILES USE M3UTILIO IMPLICIT NONE C..ARGUMENTS: None C..PARAMETERS: None C..EXTERNAL FUNCTIONS: None C..SAVED LOCAL VARIABLES: None C..SCRATCH LOCAL VARIABLES: CHARACTER*16 PNAME ! Program Name INTEGER N ! Loop index INTEGER STATUS ! Status code C********************************************************************** DATA PNAME / 'GET_GRID' / IF ( .NOT. DESC3( M3_FLNAME( 1 ) ) ) THEN CALL M3EXIT( PNAME, 0, 0, & 'Could not get ' // M3_FLNAME( 1 ) // & ' file description', XSTAT1 ) ENDIF M3GRID % NCOLS = NCOLS3D M3GRID % NROWS = NROWS3D M3GRID % NLAYS = NLAYS3D M3GRID % GDTYP = GDTYP3D M3GRID % P_ALP = P_ALP3D M3GRID % P_BET = P_BET3D M3GRID % P_GAM = P_GAM3D M3GRID % XCENT = XCENT3D M3GRID % YCENT = YCENT3D M3GRID % XORIG = XORIG3D M3GRID % YORIG = YORIG3D M3GRID % XCELL = XCELL3D M3GRID % YCELL = YCELL3D RETURN END SUBROUTINE GET_M3GRID END MODULE GRID_DATA ================================================ FILE: POST/calc_tmetric/src/module_spec.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C************************************************************************* C C MODULE: defines a set of species variables C C************************************************************************* MODULE SPECIES Character*(16) :: SPECVARS(2048) INTEGER NSPECVAR CONTAINS cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C ROUTINE TO GET SPECIES DEFINITIONS FROM ENVIRONMENT VARIABLES CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC SUBROUTINE LoadSpecies USE M3UTILIO IMPLICIT NONE ! local variables Integer k, n Integer status Character*(16) varname Character*(16) field NSPECVAR = 0 do k=1,2048 ! build VARNAME write(field,'(i5)') k Call leftTrim(field) varname = 'SPECIES_' // TRIM(field) ! get environment variable varname CALL ENVSTR( varname, 'Species Variable definition', 'Not Used', field, status) IF( status .ne. 0 ) EXIT ! check for SPECIES_1 = 'ALL" for all species if( k.eq.1 .and. TRIM(field).eq.'ALL' ) then NSPECVAR = NVARS3D if( NSPECVAR.gt.SIZE(SPECVARS) ) then NSPECVAR = SIZE(SPECVARS) write(*,'(//,''**Warning** the number of species exceed maximum'')') write(*,'('' Only the first'',i4,'' species will be processed'')') NSPECVAR endif ! copy all species do n=1,NVARS3D SPECVARS(n) = VNAME3D(n) enddo EXIT !using all species endif NSPECVAR = NSPECVAR + 1 SPECVARS( NSPECVAR ) = field enddo end Subroutine LoadSpecies END MODULE SPECIES ================================================ FILE: POST/calc_tmetric/src/module_tstep.F ================================================ !-----------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !-----------------------------------------------------------------------! ! RCS file, release, date & time of last delta, author, state, [and locker] ! $Header: /home/sjr/cvs2git/TOOLS/src/sitecmp/module_tstep.F,v 1.4 2011/10/21 14:41:33 sjr Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% C************************************************************************* C C MODULE TIME_STEP: defines a time class C C************************************************************************* MODULE TIME_STEP INTEGER :: NSTEPS INTEGER , ALLOCATABLE :: STEP_DATE( : ) INTEGER , ALLOCATABLE :: STEP_TIME( : ) INTEGER , ALLOCATABLE :: STEP_FILE( : ) INTEGER :: TIMESTEP CONTAINS SUBROUTINE GET_TSTEPS C************************************************************************* C C FUNCTION: Set-up time step sequence for reading files and writing C output records C C************************************************************************* USE M3FILES USE M3UTILIO IMPLICIT NONE C..ARGUMENTS: None C..PARAMETERS: None C..SAVED LOCAL VARIABLES: None C..SCRATCH LOCAL VARIABLES: CHARACTER*80 MSG ! Log message CHARACTER*16 PNAME ! Program Name INTEGER D0, D1 ! Differences betwwen two times, seconds INTEGER INDX ! Array location to insert new index INTEGER MXSTEPS ! max possible no. of time steps INTEGER N, NFL, NS, N2 ! Loop indices INTEGER JDATE ! Current date INTEGER JTIME ! Current time INTEGER STATUS C********************************************************************** DATA PNAME / 'GET_TSTEPS' / cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Get the maximum number of time steps cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc MXSTEPS = 0 DO N = 1, N_M3FILES IF( .NOT. DESC3( M3_FLNAME( N ) ) ) THEN CALL M3EXIT( PNAME, 0, 0, 'Could not get ' // & M3_FLNAME( N ) // ' file description', & XSTAT1 ) ENDIF MXSTEPS = MXSTEPS + MXREC3D ENDDO ALLOCATE( STEP_DATE( MXSTEPS ), STEP_TIME( MXSTEPS ), & STEP_FILE( MXSTEPS ), stat=status ) IF ( status .NE. 0 ) THEN MSG = 'Failure allocating step_date, step_time, or step_file' CALL M3EXIT ( PNAME, 0, 0, MSG, XSTAT2 ) END IF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Load all steps from first file cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF( .NOT. DESC3( M3_FLNAME( 1 ) ) ) THEN CALL M3EXIT( PNAME, 0, 0, 'Could not get ' // & M3_FLNAME( 1 ) // ' file description', & XSTAT1 ) ENDIF JDATE = SDATE3D JTIME = STIME3D TIMESTEP = TSTEP3D NSTEPS = MXREC3D DO NS = 1, NSTEPS STEP_DATE( NS ) = JDATE STEP_TIME( NS ) = JTIME STEP_FILE( NS ) = 1 CALL NEXTIME( JDATE, JTIME, TSTEP3D ) ENDDO IF( N_M3FILES .EQ. 1 ) RETURN cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Insert non-duplicative time steps from remaining files in the array cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc MSG = 'Multiple CTM Concentration files being used' CALL M3MESG( MSG ) MSG = 'Duplicate time steps will be eliminated' CALL M3MESG( MSG ) DO NFL = 2, N_M3FILES IF ( .NOT. DESC3( M3_FLNAME( NFL ) ) ) THEN CALL M3EXIT( PNAME, 0, 0, & 'Could not get ' // M3_FLNAME( NFL ) // & ' file description', XSTAT1 ) ENDIF JDATE = SDATE3D JTIME = STIME3D DO NS = 1, MXREC3D DO N = 1, NSTEPS INDX = 0 D1 = SECSDIFF( STEP_DATE( N ), STEP_TIME( N ), & JDATE, JTIME ) IF( N .EQ. 1 .AND. D1 .LT. 0 ) THEN INDX = 1 ELSEIF( N .EQ. NSTEPS .AND. D1 .GT. 0 ) THEN INDX = NSTEPS + 1 ELSEIF( N .GT. 1 ) THEN D0 = SECSDIFF( STEP_DATE( N - 1 ), STEP_TIME( N - 1 ), & JDATE, JTIME ) IF( D0 .GT. 0 .AND. D1 .LT. 0 ) INDX = N ENDIF IF( INDX .GT. 0 ) THEN DO N2 = NSTEPS, INDX, -1 STEP_DATE( N2 + 1 ) = STEP_DATE( N2 ) STEP_TIME( N2 + 1 ) = STEP_TIME( N2 ) ENDDO STEP_DATE( INDX ) = JDATE STEP_TIME( INDX ) = JTIME STEP_FILE( INDX ) = NFL NSTEPS = NSTEPS + 1 ENDIF ENDDO IF( INDX .EQ. 0 ) WRITE( LOGUNIT, 93000) JDATE, JTIME, & M3_FLNAME( NFL ) CALL NEXTIME( JDATE, JTIME, TSTEP3D ) ENDDO ENDDO RETURN 93000 FORMAT( 10X, 'Duplicate time step ignored: ', I7, 1X, I6, 1X, A ) END SUBROUTINE GET_TSTEPS END MODULE TIME_STEP ================================================ FILE: POST/calc_tmetric/src/parser.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C*********************************************************************** C*********************************************************************** C routines for parsing a delimited text record C*********************************************************************** C Return the number of fields in record INTEGER FUNCTION getNumberOfFields( record, delimiter ) result( nfields ) CHARACTER*(*) record CHARACTER*(1) delimiter Integer getFieldCount Integer i ! if delimiter is space, use getFieldCount function if( delimiter.eq.' ') then nfields = getFieldCount(record, delimiter) return endif nfields = 1 Do i=1, LEN(record) if( record(i:i) .eq. delimiter ) nfields = nfields+1 EndDo Return End C Return the number of parsed fields in record C this method considers duplicate delimiters as one INTEGER FUNCTION getFieldCount(record, delimiter) & result(nfields) CHARACTER*(*) record CHARACTER*(*) delimiter Integer i Logical infield Logical isDel nfields = 0 infield = .false. Do i=1,LEN(record) isDel = (record(i:i).eq.delimiter) ! check for start of field if( .NOT.infield .and. .NOT.isDel ) then nfields = nfields+1 infield = .true. cycle endif ! check for end of field if( infield .and. isDel ) then infield = .false. cycle endif enddo Return end C Return the nth field of record Subroutine getField( record, delimiter, nth, field ) CHARACTER*(*) record CHARACTER*(1) delimiter Integer nth CHARACTER*(*) field Integer nfields Integer i, pos1 ! if delimiter is space, use method 2 if( delimiter.eq.' ' ) then call getField2( record, delimiter, nth, field ) call RightTrim(field) return endif pos1 = 1 nfields = 0 field = '' Do i=1, LEN(record) if( record(i:i) .eq. delimiter ) then nfields = nfields+1 if( nfields .eq. nth ) then if(pos1.lt.i) field = record(pos1:i-1) call RightTrim(field) return Endif pos1 = i+1 Endif Enddo nfields = nfields+1 ! check if last field if( nfields .eq. nth ) then field = record(pos1:) Endif Call RightTrim(field) Return End C Return the nth field in record (method 2) C this method considers duplicate delimiters as one C Subroutine getField2( record, delimiter, nth, field ) CHARACTER*(*) record CHARACTER*(*) delimiter Integer nth CHARACTER*(*) field Integer nfields Integer i, pos1 Logical infield Logical isDel nfields = 0 field = '' infield = .false. Do i=1,LEN(record) isDel = (record(i:i).eq.delimiter) ! check for start of field if( .NOT.infield .and. .NOT.isDel ) then nfields = nfields+1 pos1 = i infield = .true. endif ! check for end of field if( infield .and. isDel ) then infield = .false. endif ! if end of nth field, return if( nfields.eq.nth .and. .not.infield ) then if(pos1.lt.i) field = record(pos1:i-1) return endif enddo ! check for last field if( nfields.eq.nth ) field = record(pos1:) Return End C Return the number of parsed fields in record INTEGER FUNCTION getParsedNumber( record, delimiter ) result( nfields ) CHARACTER*(*) record CHARACTER*(*) delimiter Integer i nfields = 1 Do i=1, LEN(record) if( index(delimiter,record(i:i)) .gt. 0 ) nfields = nfields+1 EndDo Return End C Return the nth field of record Subroutine getParsedField( record, delimiter, nth, field, includeDel ) CHARACTER*(*) record CHARACTER*(*) delimiter Integer nth CHARACTER*(*) field Logical includeDel Integer nfields Integer i, pos1 pos1 = 1 nfields = 0 field = '' Do i=1, LEN(record) if( index(delimiter,record(i:i)) .gt. 0 ) then nfields = nfields+1 if( nfields .eq. nth ) then if( pos1.lt.i ) field = record(pos1:i-1) return Endif ! define starting point of next field pos1 = i+1 if( includeDel ) pos1 = i Endif Enddo nfields = nfields+1 ! check if last field if( nfields .eq. nth ) then field = record(pos1:) Endif Return End C*********************************************************************** C Returns the nth field of record C*********************************************************************** Subroutine getFld( record, delimiter, nth, del, field ) IMPLICIT NONE CHARACTER*(*) record CHARACTER*(*) delimiter CHARACTER del Integer nth CHARACTER*(*) field Integer nfields Integer i, pos1 pos1 = 1 nfields = 0 del = delimiter(1:1) field = '' Do i=1, LEN(record) if( index( delimiter,record(i:i) ) .gt. 0 ) then nfields = nfields+1 if( nfields .eq. nth ) then if(pos1.le.i) field = record(pos1:i-1) call LeftTrim(field) call RightTrim(field) return Endif del = record(i:i) pos1 = i+1 Endif Enddo nfields = nfields+1 ! check if last field if( nfields .eq. nth ) then field = record(pos1:) Endif Call LeftTrim(field) Call RightTrim(field) Return End C*********************************************************************** C Returns the number of parsed fields in record C*********************************************************************** INTEGER FUNCTION getFldCount(record, delimiter) & result(nfields) IMPLICIT NONE CHARACTER*(*) record CHARACTER*(*) delimiter Integer i Logical isDel nfields = 0 if( LEN_TRIM(record).gt.0 ) nfields = 1 Do i=1,LEN(record) isDel = ( index(delimiter, record(i:i)) .gt. 0 ) if( isDel ) then nfields = nfields+1 cycle endif enddo Return end C**************************************************************************** C routine to remove leading blank spaces from Character String C**************************************************************************** Subroutine LeftTrim( STRING ) CHARACTER*(*) STRING Integer I Do I=1,LEN(STRING) if(STRING(I:I) .ne. CHAR(32)) Then STRING = STRING(I:) RETURN EndIf EndDo Return End Subroutine LeftTrim C**************************************************************************** C routine to remove trailing white spaces from Character String C**************************************************************************** Subroutine RightTrim( STRING ) CHARACTER*(*) STRING Integer I Do I=LEN(STRING),1,-1 if(STRING(I:I) .lt. CHAR(32)) STRING(I:I) = CHAR(32) if(STRING(I:I) .gt. CHAR(32)) Exit EndDo Return End Subroutine RightTrim C**************************************************************************** C routine to remove quotation marks from character field C**************************************************************************** Subroutine rmQuots( string ) Implicit none ! arguments Character*(*) string Integer last, i call LeftTrim(string) last = LEN_TRIM(string) ! if no quot marks, return if( string(1:1).ne.'"' .and. string(last:last).ne.'"') return ! remove last quot mark string(last:last) = ' ' do i=1,last-1 string(i:i) = string(i+1:i+1) enddo Return End Subroutine rmQuots C*********************************************************************** C Routine to change character string to upper characters C*********************************************************************** SUBROUTINE UCASE ( STR ) IMPLICIT NONE CHARACTER STR*( * ) INTEGER I INTEGER K DO I = 1, LEN(STR) K = ICHAR(STR(I:I)) IF ( ( K .GE. 97 ) .AND. ( K .LE. 122 ) ) & STR( I:I ) = CHAR( K - 32 ) END DO RETURN END SUBROUTINE UCASE ================================================ FILE: POST/combine/README.md ================================================ Combine ======== This Fortran program combines fields from a set of IOAPI or wrfout input files to an output file. The file assigned to environmental variable SPECIES_DEF defines the new species variables and how they are constructed. This means that all the species listed in the SPECIES_DEF files need to be output when CMAQ is being run. One option is to set the ACONC (or CONC) output to be all species. ## Run Time Environment variables used: ``` GENSPEC Indicates to generate a new SPECIES_DEF file (does not generate OUTFILE) Choices are: Y, N. (e.g. setenv GENSPEC N) SPECIES_DEF Set location of species definition files. INFILE1 input file number 1 The maximum number of IOAPI files is set to be one less than the global IOAPI parameter MXFILE3. Since this parameter is currently set to 64 (https://www.cmascenter.org/ioapi/documentation/all_versions/html/TUTORIAL.html), the maximum number of IOAPI input files is 63. OUTFILE IOAPI output file name, opened as read/write if it does not exist and read/write/update if it already exists ``` ## Run Time Environment Variables (not required): ``` IOAPI_ISPH projection sphere type (use type #20 to match WRF/CMAQ) (the default for this program is 20, overriding the ioapi default of 8) ``` Record type descriptions in SPECIES_DEF file ``` / records are comment lines ! records are comment lines # records can be used to define parameters #start YYYYDDD HHMMSS #end YYYYDDD HHMMSS #layer KLAY (default is all layers) ``` All other records are read as variable definition records ``` format of variable definition records (comma seperated fields) field 1: variable name (maximum of 16 characters) field 2: units (maximum of 10 characters) field 3: formular expression (maximum of 512 characters) ``` Formular expressions support operators ^+-\*/ and are evaluated based on mathematical order of operations, i.e., powers first, multiplication/division next and addition/subtraction last. Order of evaluation can be forced by use of parentheses. When part of an expression is enclosed in parentheses, that part is evaluated first. Table 1. lists supported functions evalutated for each grid cell per each file time step. In addition, formular expressions can use conditional statements of the form "expression_for_condition ? expresssion_if_true : expression_if_false". Conditional statements have the highest rank in the order of formular operations. Table 1. Grid Cell Functions per Output Time Step | Name |Result | |:-------------|:---------------------------:| | LOG(X[n]) |Natural Logarithm of X[n] | | LOG10(X[n]) |Logarithm Base 10 of X[n] | | EXP(X[n]) |Exponential of X[n] | | SIN(X[n]) |Sine of X[n] | | COS(X[n]) |Cosine of X[n] | | TAN(X[n]) |Tangent of X[n] | | ASIN(X[n]) |Arcsine of X[n] | | ACOS(X[n]) |Arccosine of X[n] | | ATAN(X[n]) |Acrtangent of X[n] | | ABS(X[n]) |Absolute Value of X[n] | | SINH(X[n]) |Hyperbolic Sine of X[n] | | COSH(X[n]) |Hyperbolic Cosine of X[n] | | TANH(X[n]) |Hyperbolic Tangent of X[n] | | INT(X[n]) |Integer Truncation of X[n] | | SQRT(X[n]) |Square Root of X[n] | | SIGN(X[n]) |Sign of X[n] | | ERF(X[n]) |Gauss Error Function of X[n] | 0 Value of n equals an input file number or zero if X is a derived variable. Formular expresssions can also use functions (Table 2.) computed for a variable *common* to all input files so each input file *must* contain a variable named X at the timestep. Table 2. Functions over all Input Files per Output Time Step | Name |Result | |:-----------|:---------------------------------:| | FMAX[X] |Maximum of X over files | | FMIN[X] |Minumum of X over files | | FAVG[X] |Average of X over files | | FSDEV[X] |Standard Deviation of X over files | Variables from input files are defined by their name followed by its file number enclosed in brackets. Once defined in a species definition file, variables can subsequently be referred to by their name and the number zero enclosed in brackets. Adding a + or - sign before the file number within the bracket instructs combine to use the variable value for the next or previous timestep instead of the current time step when evaluating the expression. This can be used to define variables that are computed as difference between the current and previous time step, for example to compute hourly precipitation as the difference in WRF cumulative precipitation values between successive timesteps. Examples of possible post-processing expressions are shown in the sample SPECIES_DEF files under the scripts/spec_def_files folder in this directory. Species definitions are used to specify how the concentrations of raw output species from CMAQ should be aggregated or transformed into variables of interest. For example, the concentrations of NO and NO2 from CMAQ can be added together to yield the concentration of NOx. Because each chemical mechanism being used in CMAQ differs in the number and kind of species it treats, each example file is specific to a certain chemical mechanism. The sample SpecDef files provided have been labeled according to the mechanism each corresponds to. In version 5.5, we have added SpecDef_Conc files which explicitly map output from the CCTM_CONC and CCTM_ACONC variables to post-processed variables consistent with output from the ELMO module. See [User Guide section 8.2](../../DOCS/Users_Guide/CMAQ_UG_ch08_analysis_tools.md). In addition to each SpecDef file, a SpecDef_Dep file exists for each chemical mechanism that demonstrates how deposition rates can be aggregated to useful quantities (these are indicated with the "Dep" label in the file name). Users wanting to apply `combine` to other post-processing tasks (e.g. aggregating raw DDM3D or ISAM output species, aggregating individual aerosol species from DESID diagnostic emission files into total PM emissions) can use these sample files as a starting point for creating their own SPECIES_DEF files supporting such applications. **If you have questions about the sample species definition files or find something that does not seem correct please discuss it with us by creating an "Issue" through GitHub or contacting the CMAS Help Desk: http://www.cmascenter.org.** ## Compile combine source code: Execute the build script to compile combine: ``` cd $CMAQ_HOME/POST/combine/scripts ./bldit_combine.csh [compiler] [version] |& tee build_combine.log ``` ## Run combine: Edit the sample run script (run.combine.aconc), then run: ``` ./run.combine |& tee combine.aconc.log ``` A sample run script for creating combine files for evaluating deposition and hourly average concentrations is also provided (run_combine.csh). In addition to aggregating CCTM output variables, this script also illustrates the use of looping to combine day-specific CCTM files with hourly values into a single output file with hourly values that spans the entire analysis period. Note that this sample run script contains two time loops over days, one for creating the combine file for hourly average concentrations (using inputs from CCTM_ACONC, CCTM_AELMO, METCRO2D, and METCRO3D) and a second one for creating the combine file for deposition (using inputs from CCTM_DRYDEP, CCTM_WETDEP1, and METCRO2D). Within each time loop, specific definitions of SPECIES_DEF, INFILEx and OUTFILE are being set up before calling the `combine` executable for each day. If users wish to adapt this run script for their own application (e.g. for aggregating diagnostic emission files), only a single time loop may be required. Check the log file to ensure complete and correct execution without errors. ## Note on the use of wrfout files as input to combine: Meteorological variables used as part of the SPECIES_DEF file typically are obtained from wrfout files that have been processed through MCIP and follow IOAPI-netCDF formatting guidelines. However, `combine` also allows reading variables directly from wrfout files to support post-processing of outputs from the two-way model when MCIP files may not be available. To make use of this capability, several requirements need to be met: * When using a combination of IOAPI and (netcdf) wrfout files as input files, the first input file (i.e. INFILE1) **must** be an IOAPI file and its grid description information will be used to define the grid for OUTFILE. * Only wrfout variables defined with dimensions "west_east", "south_north", and optionally "bottom_top" can be utilized by `combine` and referenced in the SPECIES_DEF file. * The projection used in the WRF simulation that generated the wrfout files must be the same as the projection defined in the IOAPI files, specifically INFILE1. If necessary, combine will window the variables from the wrfout file to the domain specified in INFILE1, this often is the case when the CMAQ domain was a subset of the WRF domain. To support such windowing, the following conditions need to be met [(also see the MCIP release notes for CMAQv5.5)](https://github.com/USEPA/CMAQ/wiki/CMAQ-Release-Notes:-Preprocessors#mcip): * The domains defined in the wrfout and INFILE1 files need to be concentric. * The horizontal grid spacing defined in the wrfout and INFILE1 files needs to be greater than 400 meters because the rigor of the windowing algorithm has not been tested below that scale. ## Note on time steps: Unless "start" and "end" are defined in the SPECIES_DEF file, combine will determine the longest time period that is common to all input files and will produce outputs for that time period. ================================================ FILE: POST/combine/scripts/bldit_combine.csh ================================================ #! /bin/csh -f # ==================== COMBINEv5.5.X Build Script ===================== # # Usage: bldit_combine.csh >&! bldit_combine.log # # Requirements: I/O API & netCDF libraries; a Fortran compiler # # # # To report problems or request help with this script/program: # # http://www.cmascenter.org # # =================================================================== # # ======================================================================= #> Preliminary error checking and environment configuration # ======================================================================= #> Check that the host system is Linux-based set BLD_OS = `uname -s` if ($BLD_OS != 'Linux') then echo " $BLD_OS -> wrong bldit script for host!" exit 1 endif #> Set Compiler Identity by User Input: Options -> intel | pgi | gcc if ( $#argv == 1 ) then setenv compiler $argv[1] setenv compilerVrsn Empty else if ( $#argv == 2 ) then #> Compiler Name and Version have been provided setenv compiler $1 setenv compilerVrsn $2 else echo "usage: $0 " echo " where is intel, pgi or gcc" exit(2) endif #> Source the config.cmaq file to set the build environment cd ../../.. source ./config_cmaq.csh #> Source Code Repository setenv REPOROOT ${CMAQ_REPO}/POST/combine #> location of the source code for COMBINE #=============================================================================== #> Begin User Input Section #=============================================================================== #> User choices: working directory and application ID set VRSN = v55 #> model version set EXEC = combine_${VRSN}.exe #> executable name for this application set CFG = combine_${VRSN}.cfg #> BLDMAKE configuration file name setenv BLDER ${CMAQ_HOME}/UTIL/bldmake/bldmake_${compilerString}.exe #> location of makefile builder executable #> user choice: copy source files set CopySrc #> copy the source files into the BLD directory #set MakeFileOnly # builds a Makefile to make the model, but does not compile - # comment out to also compile the model (default if not set) # set CompileBLDMAKE #> Recompile the BLDMAKE utility from source #> comment out to use an existing BLDMAKE executable set ModDriver = src #> COMBINE Modules #============================================================================================ #> Computing System Configuration: #> Most of these settings are done in config.cmaq #============================================================================================ #> Set full path of Fortran 90 compiler setenv FC ${myFC} set FP = $FC #> Set IO/API version set IOAPI = ioapi_3.1 #> Set compiler flags set FSTD = "${myFSTD}" set DBG = "${myDBG}" setenv F_FLAGS "${myFFLAGS}" set F90_FLAGS = "${myFRFLAGS}" set CPP_FLAGS = "" #> Fortran Preprocessor Flags set LINK_FLAGS = "${myLINK_FLAG}" #> Link Flags set LIB2 = "${ioapi_lib}" #============================================================================================ #> Set up the combine build directory under the POST directory #> for checking out and compiling source code #============================================================================================ set Bld = ${CMAQ_HOME}/POST/combine/scripts/BLD_combine_${VRSN}_${compilerString} if ( ! -e "$Bld" ) then mkdir -pv $Bld else if ( ! -d "$Bld" ) then echo " *** target exists, but not a directory ***" exit 1 endif endif cd $Bld #> Check for previous run if ( -e "$Bld/${CFG}" ) then echo " >>> previous ${CFG} exists, re-naming to ${CFG}.old <<<" mv $Bld/${CFG} $Bld/${CFG}.old endif #============================================================================================ #> Make the config file #============================================================================================ set Cfile = ${Bld}/$CFG set quote = '"' echo > $Cfile echo "model $EXEC;" >> $Cfile echo >> $Cfile echo "repo $REPOROOT;" >> $Cfile echo >> $Cfile echo "lib_base ${CMAQ_LIB};" >> $Cfile echo >> $Cfile echo "lib_1 ioapi/lib;" >> $Cfile echo >> $Cfile echo "lib_2 ioapi/include_files;" >> $Cfile echo >> $Cfile echo "lib_3 netcdf/include;" >> $Cfile echo >> $Cfile echo "lib_4 ioapi/lib;" >> $Cfile echo >> $Cfile echo "lib_5 netcdff/include;" >> $Cfile echo set text = "$quote$CPP_FLAGS$quote;" echo "cpp_flags $text" >> $Cfile echo >> $Cfile echo "f_compiler $FC;" >> $Cfile echo >> $Cfile echo "fstd $quote$FSTD$quote;" >> $Cfile echo >> $Cfile echo "dbg $quote$DBG$quote;" >> $Cfile echo >> $Cfile echo "f_flags $quote$F_FLAGS$quote;" >> $Cfile echo >> $Cfile echo "f90_flags $quote$F90_FLAGS$quote;" >> $Cfile echo >> $Cfile echo "link_flags $quote$LINK_FLAGS$quote;" >> $Cfile echo >> $Cfile #echo "libraries $quote$LIBS$quote;" >> $Cfile echo "ioapi $quote$LIB2$quote;" >> $Cfile echo >> $Cfile echo "netcdf $quote$netcdf_lib$quote;" >> $Cfile echo >> $Cfile echo "netcdff $quote$netcdff_lib$quote;" >> $Cfile set text = "combine" echo "// options are" $text >> $Cfile echo "Module ${ModDriver};" >> $Cfile echo >> $Cfile #============================================================================================ #> Use BLDMAKE to create the Makefile and model executable if desired #============================================================================================ unalias mv rm #> Recompile BLDMAKE from source if requested or if it does not exist if ( $?CompileBLDMAKE || ! -f $BLDER ) then cd ${CMAQ_REPO}/UTIL/bldmake/scripts ./bldit_bldmake.csh endif #> Relocate to the BLD_* directory cd $Bld #> Set serial options for BLDMAKE execution set Blder = "$BLDER -serial -verbose" #> Run BLDMAKE Utility if ( $?MakeFileOnly ) then #> Just create the Makefile if ( $?CopySrc ) then $Blder -makefo $Cfile else $Blder -makefo -git_local $Cfile endif else # Also compile the model if ( $?CopySrc ) then $Blder $Cfile else $Blder -git_local $Cfile endif endif #> Save Makefile with Compiler-dependent name and create symbolic #> link back to generic name. mv Makefile Makefile.$compilerString if ( -e Makefile.$compilerString && -e Makefile ) rm Makefile ln -s Makefile.$compilerString Makefile #> Check for error during makefile generation if ( $status != 0 ) then echo " *** failure in $Blder ***" exit 1 endif exit ================================================ FILE: POST/combine/scripts/run_combine.csh ================================================ #! /bin/csh -f # ====================== COMBINE_v5.5.X Run Script =================== # Usage: run_combine.csh >&! combine.log & # # To report problems or request help with this script/program: # http://www.epa.gov/cmaq (EPA CMAQ Website) # http://www.cmascenter.org (CMAS Website) # =================================================================== # ================================================================== #> Runtime Environment Options # ================================================================== #> Choose compiler and set up CMAQ environment with correct #> libraries using config.cmaq. Options: intel | gcc | pgi setenv compiler intel #> Source the config.cmaq file to set the build environment cd ../../.. source ./config_cmaq.csh #> Set General Parameters for Configuring the Simulation set VRSN = v55 #> Code Version set PROC = mpi #> serial or mpi set MECH = cb6r5_ae7_aq #> Mechanism ID set APPL = Bench_2016_12SE1 #> Application Name (e.g. Gridname) #> Define RUNID as any combination of parameters above or others. By default, #> this information will be collected into this one string, $RUNID, for easy #> referencing in output binaries and log files as well as in other scripts. set RUNID = ${VRSN}_${compilerString}_${APPL} #> Set the build directory if this was not set above #> (this is where the CMAQ executable is located by default). if ( ! $?BINDIR ) then set BINDIR = $CMAQ_HOME/POST/combine/scripts/BLD_combine_${VRSN}_${compilerString} endif #> Set the name of the executable. set EXEC = combine_${VRSN}.exe #> Set location of CMAQ repo. This will be used to point to the correct species definition files. set REPO_HOME = ${CMAQ_REPO} #> Set working, input and output directories set METDIR = ${CMAQ_DATA}/$APPL/met/mcip #> Met Output Directory set CCTMOUTDIR = ${CMAQ_DATA}/output_CCTM_${RUNID} #> CCTM Output Directory set POSTDIR = ${CMAQ_DATA}/POST #> Location where combine file will be written if ( ! -e $POSTDIR ) then mkdir $POSTDIR endif # ===================================================================== #> COMBINE Configuration Options #> The purpose of this example run script is to create two output files #> (COMBINE_ACONC and COMBINE_DEP) often used for model evaluation #> purposes. This is accomplished by setting up two loops, each with #> its own definitions of SPECIES_DEF and day-specific input files before #> calling the COMBINE executable. # ===================================================================== #> Set Start and End Days for looping set START_DATE = "2016-07-01" #> beginning date (July 1, 2016) set END_DATE = "2016-07-14" #> ending date (July 14, 2016) #> Set location of species definition files for concentration and deposition species. setenv SPEC_CONC $CMAQ_HOME/POST/combine/scripts/spec_def_files/SpecDef_${MECH}.txt setenv SPEC_DEP $CMAQ_HOME/POST/combine/scripts/spec_def_files/SpecDef_Dep_${MECH}.txt #> Use GENSPEC switch to generate a new specdef file (does not generate output file). setenv GENSPEC N # ===================================================================== #> Begin First Loop Through Simulation Days to Create COMBINE_ACONC File #> Set up the SPECIES_DEF, INFILEx, and OUTFILE environment variables #> for COMBINE_ACONC processing # ===================================================================== #> Set the species definition file for concentration species. setenv SPECIES_DEF $SPEC_CONC #> Loop through all days between START_DAY and END_DAY set TODAYG = ${START_DATE} set TODAYJ = `date -ud "${START_DATE}" +%Y%j` #> Convert YYYY-MM-DD to YYYYJJJ set STOP_DAY = `date -ud "${END_DATE}" +%Y%j` #> Convert YYYY-MM-DD to YYYYJJJ while ($TODAYJ <= $STOP_DAY ) #>Compare dates in terms of YYYYJJJ #> Retrieve Calendar day Information set YYYY = `date -ud "${TODAYG}" +%Y` set YY = `date -ud "${TODAYG}" +%y` set MM = `date -ud "${TODAYG}" +%m` set DD = `date -ud "${TODAYG}" +%d` #> for files that are indexed with Julian day: # set YYYYJJJ = `date -ud "${TODAYG}" +%Y%j` #> Define name of combine output file to save hourly average concentration. #> A new file will be created for each month/year. setenv OUTFILE ${POSTDIR}/COMBINE_ACONC_${RUNID}_$YYYY$MM.nc #> Define name of input files needed for combine program. #> File [1]: CMAQ conc/aconc file #> File [2]: MCIP METCRO3D file #> File [3]: CMAQ AELMO file #> File [4]: MCIP METCRO2D file setenv INFILE1 $CCTMOUTDIR/CCTM_ACONC_${RUNID}_$YYYY$MM$DD.nc setenv INFILE2 $METDIR/METCRO3D_$YY$MM$DD.nc setenv INFILE3 $CCTMOUTDIR/CCTM_AELMO_${RUNID}_$YYYY$MM$DD.nc setenv INFILE4 $METDIR/METCRO2D_$YY$MM$DD.nc #> Executable call: ${BINDIR}/${EXEC} #> Increment both Gregorian and Julian Days set TODAYG = `date -ud "${TODAYG}+1days" +%Y-%m-%d` #> Add a day for tomorrow set TODAYJ = `date -ud "${TODAYG}" +%Y%j` #> Convert YYYY-MM-DD to YYYYJJJ end #Loop to the next Simulation Day # ===================================================================== #> Begin Second Loop Through Simulation Days to Create COMBINE_DEP File #> Set up the SPECIES_DEF, INFILEx, and OUTFILE environment variables #> for COMBINE_DEP processing # ===================================================================== #> Set the species definition file for concentration species. setenv SPECIES_DEF $SPEC_DEP #> Loop through all days between START_DAY and END_DAY set TODAYG = ${START_DATE} set TODAYJ = `date -ud "${START_DATE}" +%Y%j` #> Convert YYYY-MM-DD to YYYYJJJ set STOP_DAY = `date -ud "${END_DATE}" +%Y%j` #> Convert YYYY-MM-DD to YYYYJJJ while ($TODAYJ <= $STOP_DAY ) #>Compare dates in terms of YYYYJJJ #> Retrieve Calendar day Information set YYYY = `date -ud "${TODAYG}" +%Y` set YY = `date -ud "${TODAYG}" +%y` set MM = `date -ud "${TODAYG}" +%m` set DD = `date -ud "${TODAYG}" +%d` #> for files that are indexed with Julian day: # set YYYYJJJ = `date -ud "${TODAYG}" +%Y%j` #> Define name of combine output file to save hourly total deposition. #> A new file will be created for each month/year. setenv OUTFILE ${POSTDIR}/COMBINE_DEP_${RUNID}_$YYYY$MM #> Define name of input files needed for combine program. #> File [1]: CMAQ DRYDEP file #> File [2]: CMAQ WETDEP file #> File [3]: MCIP METCRO2D #> File [4]: {empty} setenv INFILE1 $CCTMOUTDIR/CCTM_DRYDEP_${RUNID}_$YYYY$MM$DD.nc setenv INFILE2 $CCTMOUTDIR/CCTM_WETDEP1_${RUNID}_$YYYY$MM$DD.nc setenv INFILE3 $METDIR/METCRO2D_$YY$MM$DD.nc setenv INFILE4 #> Executable call: ${BINDIR}/${EXEC} set progstat = ${status} if ( ${progstat} ) then echo "ERROR ${progstat} in $BINDIR/$EXEC" exit( ${progstat} ) endif #> Increment both Gregorian and Julian Days set TODAYG = `date -ud "${TODAYG}+1days" +%Y-%m-%d` #> Add a day for tomorrow set TODAYJ = `date -ud "${TODAYG}" +%Y%j` #> Convert YYYY-MM-DD to YYYYJJJ end #Loop to the next Simulation Day exit() ================================================ FILE: POST/combine/scripts/spec_def_files/linkem ================================================ #!/bin/csh -f #> symlink the v5.2.1 Species Definition files set CMD = '/bin/ln -s' set src = ../../../../CCTM/src/MECHS $CMD $src/saprc07tic_ae6invPOA_aq/SpecDef_Dep_saprc07tic_ae6invPOA_aq.txt $CMD $src/saprc07tic_ae6invPOA_aq/SpecDef_saprc07tic_ae6invPOA_aq.txt $CMD $src/cb05e51_ae6nvPOA_aq/SpecDef_cb05e51_ae6nvPOA_aq.txt $CMD $src/cb05e51_ae6nvPOA_aq/SpecDef_Dep_cb05e51_ae6nvPOA_aq.txt $CMD $src/cb05e51_ae6_aq/SpecDef_cb05e51_ae6_aq.txt $CMD $src/cb05e51_ae6_aq/SpecDef_Dep_cb05e51_ae6_aq.txt $CMD $src/saprc07tic_ae6i_aqkmti/SpecDef_Dep_saprc07tic_ae6i_aqkmti.txt $CMD $src/saprc07tic_ae6i_aqkmti/SpecDef_saprc07tic_ae6i_aqkmti.txt $CMD $src/racm2_ae6_aq/SpecDef_racm2_ae6_aq.txt $CMD $src/racm2_ae6_aq/SpecDef_Dep_racm2_ae6_aq.txt $CMD $src/saprc07tc_ae6nvPOA_aq/SpecDef_saprc07tc_ae6nvPOA_aq.txt $CMD $src/saprc07tc_ae6nvPOA_aq/SpecDef_Dep_saprc07tc_ae6nvPOA_aq.txt $CMD $src/cb05tucl_ae6_aq/SpecDef_cb05tucl_ae6_aq.txt $CMD $src/cb05tucl_ae6_aq/SpecDef_Dep_cb05tucl_ae6_aq.txt $CMD $src/cb6r3_ae6_aq/SpecDef_cb6r3_ae6_aq.txt $CMD $src/cb6r3_ae6_aq/SpecDef_Dep_cb6r3_ae6_aq.txt $CMD $src/cb6r3_ae7_aq/SpecDef_cb6r3_ae7_aq.txt $CMD $src/cb6r3_ae7_aq/SpecDef_Dep_cb6r3_ae7_aq.txt $CMD $src/cb6r3_ae6nvPOA_aq/SpecDef_Dep_cb6r3_ae6nvPOA_aq.txt $CMD $src/cb6r3_ae6nvPOA_aq/SpecDef_cb6r3_ae6nvPOA_aq.txt $CMD $src/cb05eh51_ae6_aq/SpecDef_Dep_cb05eh51_ae6_aq.txt $CMD $src/cb05eh51_ae6_aq/SpecDef_cb05eh51_ae6_aq.txt $CMD $src/saprc07tc_ae6_aq/SpecDef_saprc07tc_ae6_aq.txt $CMD $src/saprc07tc_ae6_aq/SpecDef_Dep_saprc07tc_ae6_aq.txt $CMD $src/saprc07tb_ae6_aq/SpecDef_Dep_saprc07tb_ae6_aq.txt $CMD $src/saprc07tb_ae6_aq/SpecDef_saprc07tb_ae6_aq.txt $CMD $src/saprc07tic_ae6i_aq/SpecDef_saprc07tic_ae6i_aq.txt $CMD $src/saprc07tic_ae6i_aq/SpecDef_Dep_saprc07tic_ae6i_aq.txt $CMD $src/cb05mp51_ae6_aq/SpecDef_Dep_cb05mp51_ae6_aq.txt $CMD $src/cb05mp51_ae6_aq/SpecDef_cb05mp51_ae6_aq.txt ================================================ FILE: POST/combine/src/combine.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/work/rep/TOOLS/src/combine/combine.F,v 1.1.1.1 2005/07/27 12:55:20 sjr Exp $ PROGRAM COMBINE C*********************************************************************** C This program combines variables from a set of IOAPI input files C to an output file. wrfout files are also accepted as input files C as long as an IOAPI file is specified as the first input file. C If using wrfout files, only variables using the "west_east", C "south_north", and (optionally) "bottom_top" dimensions can C be used. C The file assigned to environmental variable C SPECIES_DEF defines the new species variables and how they C are constructed. C C Environmental variables used C SPECIES_DEF --> Species definition file defining the new C variables of the output file C INFILE1 --> input file number 1, (max of 9) C OUTFILE --> IOAPI output file name C GENSPEC --> Indicates to generate a species definition file C from INFILE1 C C record type descriptions in SPECIES_DEF file C / records are comment lines C # records can be used to define parameters C #start YYYYDDD HHMMSS (default is start of INFILE1) C #end YYYYDDD HHMMSS (default is end of dataset) C #layer KLAY (default is all layers) C C All other records are read as variable definition records C C format of variable definition records (comma seperated fields) C field 1: variable name (maximun of 16 characters) C field 2: units (maximum of 16 characters) C field 3: formular expression (maximun of 512 characters) C C C Note: Formular expressions supports operators +-*/ and are C evaluated from left to right using precedence order of */+-. C Order of evaluation can be forced by use of parentheses. C When part of an experssion is enclosed in parentheses, that C part is evaluated first. Variables from input file are C defined by their name followed by it's file number enclosed C in brackets. C C C*********************************************************************** USE SPEC_DEF USE M3FILES USE EVALUATOR USE M3UTILIO IMPLICIT NONE C...External functions LOGICAL FLUSH3 C...Local Variables Integer status Character*(256) specFile, csphere Integer logdev, istat Integer n, isize, isph Logical kswit Real, Allocatable :: buffer(:) Interface Subroutine getFld( record, delimiter, nth, del, field, exception ) CHARACTER*(*), Intent( In ) :: record CHARACTER*(*), Intent( In ) :: delimiter CHARACTER, Intent( Out ) :: del Integer, Intent( In ) :: nth CHARACTER*(*), Intent( Out ) :: field CHARACTER*(*), Optional, Intent( In ) :: exception End Subroutine getFld INTEGER FUNCTION getFldCount(record, delimiter, exception) Result(nfields) CHARACTER*(*), Intent( In ) :: record CHARACTER*(*), Intent( In ) :: delimiter CHARACTER*(*), Optional, Intent( In ) :: exception End FUNCTION getFldCount Subroutine LeftTrim( STRING ) CHARACTER*(*), INTENT( INOUT ) :: STRING End Subroutine LeftTrim Subroutine RightTrim( STRING ) CHARACTER*(*), INTENT( INOUT ) :: STRING End Subroutine RightTrim SUBROUTINE UCASE ( STR ) CHARACTER, INTENT( INOUT ) :: STR*( * ) END SUBROUTINE UCASE Subroutine replace( string, old, new ) Character*(*), Intent( InOut ) :: string Character*(1), Intent( In ) :: old Character*(1), Intent( In ) :: new End Subroutine replace SUBROUTINE Remove_WhiteSpaces (text) CHARACTER*(*), Intent( InOut ) :: text END SUBROUTINE Remove_WhiteSpaces End Interface C...start IOAPI LOGDEV = INIT3() WRITE( *, '('' API Started'')' ) C...check if IOAPI_ISPH is set, if not, set to 20 call ENVSTR( 'IOAPI_ISPH','IOAPI_ISPH spheroid setting', '20', csphere, istat) if( istat .ne. 0 ) then if ( .not. SETENVVAR ('IOAPI_ISPH',csphere)) then !WRF-ARW sphere Write(*,'(''*WARNING* SETENVVAR for IOAPI_ISPH failed, using default'')') else Write(*,'(''*WARNING* IOAPI_ISPH not set in script, using 20 (WRF-ARW sphere)'')') endif endif C...open FILES Call OPEN_FILES() if( N_M3FILES.eq.0 ) then Write(*,'(''**ERROR** Cannot open all input files'')') Stop endif C...get environment variables for input file names Call NAMEVAL( 'SPECIES_DEF', specFile ) C...check GENSPEC to generate new species definition file if( ENVYN('GENSPEC', 'Generate new species definition file', & .FALSE., status) ) then Call GENSPEC( specFile ) Stop Endif C...read and load species definition file Call readSpec( specFile, status ) if( status.ne.0 ) then Write(*,'(''**ERROR** Cannot open or read SPECIES_DEF file:'',a)') & TRIM(specFile) Stop endif C...check ALLOW_BADVALUES in output Allow_BadValues = ENVYN('ALLOW_BADVALUES', 'Allow Calculations to have bad results but set to -99999.9', & .FALSE., istat ) C... build description of output file TSTEP3D = TSTEP SDATE3D = startDate STIME3D = startTime NVARS3D = numSpec if( Klayer .gt. 0) then NLAYS3D = 1 NLAYS = 1 endif do n = 1, numSpec VNAME3D( n ) = specName( n ) UNITS3D( n ) = specUnits( n ) VDESC3D( n ) = specDesc( n ) VTYPE3D( n ) = M3REAL enddo C...try to create new file. if error, open file as old if( .NOT. OPEN3( 'OUTFILE', 3, 'COMBINE' ) ) THEN if( .NOT. OPEN3( 'OUTFILE', 2, 'COMBINE' ) ) THEN WRITE( *, '(''**ERROR** while openning OUTFILE'')' ) KSWIT = SHUT3() stop endif endif C...fill Description Common Block if( .NOT. DESC3( 'OUTFILE' ) ) THEN WRITE( *, '(''**ERROR** WHILE RUNNING DESC3 ON OUTFILE'')' ) KSWIT = SHUT3() stop endif C...compare grid values with input file KSWIT = .true. IF ( NROWS .NE. NROWS3D ) KSWIT = .false. IF ( NCOLS .NE. NCOLS3D ) KSWIT = .false. IF ( NLAYS .NE. NLAYS3D ) KSWIT = .false. IF ( TSTEP .NE. TSTEP3D ) KSWIT = .false. IF ( XCELL .NE. XCELL3D ) KSWIT = .false. IF ( YCELL .NE. YCELL3D ) KSWIT = .false. !!! IF ( ABS(XORIG-XORIG3D) .gt. 0.1 ) KSWIT = .false. !!! IF ( ABS(YORIG-YORIG3D) .gt. 0.1 ) KSWIT = .false. IF ( DABS(XORIG-XORIG3D) > smallnum ) KSWIT = .false. IF ( DABS(YORIG-YORIG3D) > smallnum ) KSWIT = .false. if( .NOT.KSWIT ) then WRITE( *, '(''**ERROR** Inconsistenece file parameters'', & '' for OUTFILE'')' ) write(*,'(''NROWS='',2i8)') NROWS, NROWS3D write(*,'(''NCOLS='',2i8)') NCOLS, NCOLS3D write(*,'(''NLAYS='',2i8)') NLAYS, NLAYS3D write(*,'(''TSTEP='',2i8)') TSTEP, TSTEP3D write(*,'(''XCELL='',2f16.2)') XCELL, XCELL3D write(*,'(''YCELL='',2f16.2)') YCELL, YCELL3D write(*,'(''XORIG='',2f16.2)') XORIG, XORIG3D write(*,'(''YORIG='',2f16.2)') YORIG, YORIG3D KSWIT = SHUT3() stop endif c...allocate memory for buffer array isize = NCOLS3D * NROWS3D * NLAYS3D Allocate( buffer( isize ), stat=istat ) if( istat.ne.0 ) then write(*,'(''**ERROR** Cannot allocate array of size'',i12)') isize stop endif C...compare startDate with endDate if( SECSDIFF(startDate, startTime, endDate, endTime) .lt. 0 ) then write(*,'(/''**ERROR** Starting Date > Ending Date, No records generated'',/)') KSWIT = SHUT3() WRITE(*,'('' API Shut down'')') Stop endif Write(*,'(/,''Processing starting at:'',2i8)') startDate, startTime Write(*,'(13x,''ending at:'',2i8,/)') endDate, endTime C...start time loop Do write(*, '('' Copying Variables at time:'',i7,'':'',i6)' ) & startDate, startTime DO n = 1, numSpec Call evaluate(specName(n),specExpression(n), startDate, startTime, & Klayer, isize, buffer) ! write species record to outfile if(.NOT.WRITE3('OUTFILE', specName(n), startDate, & startTime, buffer) ) THEN write( *, '('' **Error** Cannot write to OUTFILE at'',2i8)') & startDate, startTime KSWIT = SHUT3() stop endif KSWIT = flush3('OUTFILE') enddo ! if no time step, exit after one step if( TSTEP.le.0 ) exit ! advance to next step call NEXTIME ( startDate, startTime, TSTEP ) if( SECSDIFF(startDate, startTime, endDate, endTime) .lt. 0 ) & exit enddo C... shut down netcdf KSWIT = SHUT3() WRITE(*,'('' API Shut down'')') STOP END cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c subroutine to generate new SPECFILE from ioapi file cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc Subroutine genSpec( SpecFile ) USE M3UTILIO USE M3FILES IMPLICIT NONE C... arguments Character*(*) SpecFile C... local variables INTEGER STATUS INTEGER lfn INTEGER I LOGICAL KSWIT CHARACTER*1 REPLACE CHARACTER*16 FNAME C...open variable definition file lfn = 20 OPEN( UNIT=lfn, FILE=SpecFile, STATUS='NEW', IOSTAT=status ) If(status.ne.0) then Write(*,'(/''SPECDEF file: ['',a, & ''] cannot be opened as "NEW"'')') TRIM(SpecFile) Write(*,'(''Do you want to replace existing? (Y/N) '',$)') Read(*,'(a)') replace if( replace.ne.'Y' .and. replace.ne.'y' ) return OPEN( UNIT=lfn, FILE=SpecFile, IOSTAT=status ) if( status.ne.0 ) then Write(*,'(/''**ERROR** cannot open SPECDEF file: ['',a, & '']'')') TRIM(SpecFile) return endif endif C...fill Description Common Block IF ( .NOT. getDESC( 1 ) ) THEN WRITE( *, '(''**Error** While running getDESC on '',A)' ) 'INFILE1' GO TO 999 END IF write(lfn,'(''/#start YYYYDDD HHMMSS'')') write(lfn,'(''/#end YYYYDDD HHMMSS'')') write(lfn,'(''/#layer KLAY (default is all layers)'')') write(lfn,'(''/'')') write(lfn,'(''/new species, units, expression, description'')') DO I = 1, NVARS3D Write(lfn,'(/a16,'','',a16,'','',a,''[1]'','', '',a)') & VNAME3D(I), UNITS3D(I), TRIM(VNAME3D(I)),TRIM(VDESC3D(I)) END DO Write(*,'(/''SpecDef file: ['',a,''] Generated''/)')TRIM(SpecFile) C... shut down netcdf and return 999 CONTINUE CLOSE( unit=lfn ) KSWIT = SHUT3() Return END Subroutine genSpec ================================================ FILE: POST/combine/src/module_evaluator.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/work/rep/TOOLS/src/combine/module_evaluator.F,v 1.1.1.1 2005/07/27 12:55:20 sjr Exp $ C*********************************************************************** C C MODULE: evaluates species expressions C C*********************************************************************** MODULE evaluator Public :: evaluate Logical, Public :: Allow_BadValues = .False. Private Real, Private, Allocatable :: parseBuffer(:,:) Integer, Parameter, Private :: EXP_LEN = 1024 Integer, Private :: idate Integer, Private :: itime Integer, Private :: ilayer Integer, Private :: isize Logical, Allocatable, Private :: eflag( : ) Character( 256 ), Private :: emsg Character*(EXP_LEN), Private :: formula Character( 16 ), Private :: out_species Interface Subroutine getFld( record, delimiter, nth, del, field, exception ) CHARACTER*(*), Intent( In ) :: record CHARACTER*(*), Intent( In ) :: delimiter CHARACTER, Intent( Out ) :: del Integer, Intent( In ) :: nth CHARACTER*(*), Intent( Out ) :: field CHARACTER*(*), Optional, Intent( In ) :: exception End Subroutine getFld INTEGER FUNCTION getFldCount(record, delimiter, exception) Result(nfields) CHARACTER*(*), Intent( In ) :: record CHARACTER*(*), Intent( In ) :: delimiter CHARACTER*(*), Optional, Intent( In ) :: exception End FUNCTION getFldCount Subroutine LeftTrim( STRING ) CHARACTER*(*), INTENT( INOUT ) :: STRING End Subroutine LeftTrim Subroutine RightTrim( STRING ) CHARACTER*(*), INTENT( INOUT ) :: STRING End Subroutine RightTrim SUBROUTINE UCASE ( STR ) CHARACTER, INTENT( INOUT ) :: STR*( * ) END SUBROUTINE UCASE Subroutine replace( string, old, new ) Character*(*), Intent( InOut ) :: string Character*(1), Intent( In ) :: old Character*(1), Intent( In ) :: new End Subroutine replace SUBROUTINE Remove_WhiteSpaces (text) CHARACTER*(*), Intent( InOut ) :: text END SUBROUTINE Remove_WhiteSpaces End Interface CONTAINS C subroutine to evaluate species expression at date C returns buffer array values Subroutine evaluate(species,expression,jdate,jtime,jlayer,jsize,buffer) IMPLICIT NONE ! arguments Character*(*) species Character*(*) expression Integer jdate, jtime Integer jlayer Integer jsize Real buffer(jsize) ! local variables Character*(EXP_LEN) expresscp Character*(EXP_LEN) express Integer nparen Integer depth, maxdepth Integer i, n, pos1, pos2 Character*(5) nstring Logical KSWIT Logical SHUT3 ! set module variables idate = jdate itime = jtime ilayer = jlayer isize = jsize ! copy output species name out_species = Trim( Adjustl(species) ) ! make copy of expression to modify formula = expression expresscp = expression express = expression Call Remove_WhiteSpaces(expresscp) ! print*,Trim(expresscp),' ',Trim(expression) ! expresscp = expression ! check for scientific notation (E+,E-,e+,e-) and replace with 10.0^ call rmSciNot( expresscp ) ! replace '+' characters inside [] brackets with '!' characters Call replace( expresscp, '+', '!' ) ! replace '-' characters inside [] brackets with '#' characters Call replace( expresscp, '-', '#' ) ! find number of parentheses and depth nparen = 0 depth = 0 maxdepth = 0 Do i=1,len_trim(expresscp) if( expresscp(i:i).eq.'(' ) then nparen = nparen + 1 depth = depth + 1 endif if( expresscp(i:i).eq.')' ) then depth = depth - 1 endif if( depth.gt.maxdepth ) maxdepth = depth enddo ! check for unbalanced parentheses if( depth.ne.0 ) then write(*,'(/'' unbalanced parentheses in expression''/a)') trim(expresscp) stop endif ! allocate memory for parseBuffer if needed if( nparen.gt.0 ) then if( Allocated(parseBuffer) .and. & SIZE(parseBuffer,DIM=2).lt.nparen ) then deAllocate(parseBuffer) endif if( .NOT.Allocated(parseBuffer) ) then Allocate( parseBuffer(isize,nparen) ) endif parseBuffer = 0.0 endif ! find depth of parentheses depth = maxDepth Do n=1,nparen ! build buffer number as string write(nstring, '(i5)') n Call leftTrim(nstring) ! try to find parentheses at depth Call findDepth( expresscp, depth, pos1, pos2 ) if( pos1.eq.0 ) then depth = depth - 1 Call findDepth( expresscp, depth, pos1, pos2 ) endif ! if parentheses found, evaluate sub expression if( pos1.gt.0 ) then ! extract expression within parentheses and ! evaluate to parsebuffer(1:isize,n) express = expresscp(pos1+1:pos2-1) call eval1(express, parsebuffer(1:isize,n) ) ! replace expression within parentheses with "buffer[n]" express = '' if( pos1.gt.1 ) express = expresscp(1:pos1-1) express = TRIM(express) // 'buffer[' // TRIM(nstring) // & ']' // TRIM(expresscp(pos2+1:)) expresscp = express endif enddo call eval1(expresscp, buffer) end Subroutine evaluate C subroutine to replace scientific notation strings Subroutine rmSciNot(expression) IMPLICIT NONE Character*(*) expression Character*(2) estring(4) Character*(7) pstring(4) Integer n, i, pos, pos1, pos2 Data estring/'E+','e+','E-','e-'/ Data pstring/'*(10.0^', '*(10.0^', '/(10.0^', '/(10.0^'/ do n=1,4 do while( index(expression, estring(n)) .gt. 0 ) pos = index(expression, estring(n)) ! search for start of number starting at pos-1 and working back pos1 = pos-1 do i=pos-1,1,-1 if( index('0123456789.',expression(i:i)) .eq. 0 ) then EXIT endif pos1 = i enddo ! search for end of number starting at pos+2 do i=pos+2,pos+12 if( index('0123456789.',expression(i:i)) .eq. 0 ) then pos2=i EXIT endif enddo if( pos1 .eq. 1 ) then expression = '(' // expression(1:pos-1) // pstring(n) // expression(pos+2:pos2-1) & // '))' // expression(pos2:) endif if( pos1 .gt. 1 ) then expression = expression(1:pos1-1) // '(' // expression(pos1:pos-1) // & pstring(n) // expression(pos+2:pos2-1) // '))' // expression(pos2:) endif enddo enddo return end Subroutine rmSciNot C subroutine to find location of parentheses depth Subroutine findDepth(expression, depth, pos1, pos2) IMPLICIT NONE Character*(*) expression Integer depth, pos1, pos2 Integer i, dep pos1 = 0 pos2 = 0 dep = 0 ! try to find parentheses at depth Do i = 1, len_trim(expression) if( expression(i:i).eq.'(' ) then dep = dep+1 if(dep.eq.depth) pos1 = i endif if( expression(i:i).eq.')' ) then if(dep.eq.depth) then pos2 = i return endif dep = dep-1 endif enddo return end Subroutine findDepth C subroutine to return buffer array value Subroutine getBuffer(field, buffer) USE M3UTILIO, ONLY: BADVAL3 IMPLICIT NONE Character*(*), Intent( InOut ) :: field Real, Intent( InOut ) :: buffer(isize) Real, Parameter :: Max_Exponential = 82.8931 Integer pos1, pos2, nbuf, status Character*(10) string Character*(10) func Logical KSWIT Logical SHUT3 Call leftTrim(field) ! parse field to find buffer number pos1 = index(field, '[') pos2 = index(field, ']',.true.) if(pos1.le.0 .or. pos1.ge.pos2) then write(*,'(/''**ERROR** Invalid syntax in field: '',a)') trim(field) KSWIT = SHUT3() stop endif if(field(pos2+1:) .ne. ' ') then write(*,'(/''**ERROR** Invalid syntax in field: '',a)') trim(field) KSWIT = SHUT3() stop endif string = field(pos1+1:pos2-1) read(string,'(i10)',iostat=status) nbuf if(status .ne. 0) then write(*,'(/''**ERROR** Invalid syntax in field: '',a)') trim(field) KSWIT = SHUT3() stop endif buffer = parsebuffer(1:isize,nbuf) ! check for function pos1 = index(field, 'buffer[') Call UCASE(field) if( pos1.gt.1 ) then func = field(1:pos1-1) If( func.eq.'LOG' ) Then Where( buffer .Gt. 0.0 .And. buffer .Lt. 1.0E36 ) buffer = LOG(buffer) eflag = .False. Else Where buffer = BADVAL3 eflag = .True. End Where If( Any( eflag ) )Then write(emsg,99950)"LOG",MinVal(buffer),MaxVal(buffer) End If return End If If( func.eq.'LOG10' ) Then Where( buffer .Gt. 0.0 .And. buffer .Lt. 1.0E36 ) buffer = LOG10(buffer) eflag = .False. Else Where buffer = BADVAL3 eflag = .True. End Where If( Any( eflag ) )Then write(emsg,99950)"LOG10",MinVal(parsebuffer(1:isize,nbuf) ),MaxVal(parsebuffer(1:isize,nbuf) ) End If return End If If( func.eq.'EXP' ) Then Where( buffer .gt. -Max_Exponential .And. buffer .lt. Max_Exponential ) buffer = EXP(buffer) eflag = .False. Else Where( buffer .Le. -Max_Exponential ) buffer = 0.0 eflag = .False. Else Where buffer = BADVAL3 eflag = .True. End Where If( Any( eflag ) )Then write(emsg,99951)"EXP",MaxVal(parsebuffer(1:isize,nbuf) ) End If return End If If( func.eq.'SIN' ) Then buffer = SIN(buffer) return End If If( func.eq.'COS' ) Then buffer = COS(buffer) return End If If( func.eq.'TAN' ) Then buffer = TAN(buffer) return End If If( func.eq.'ASIN' ) Then Where( buffer .Ge. -1.0 .And. buffer .Le. 1.0 ) buffer = ASIN(buffer) eflag = .False. Else Where buffer = BADVAL3 eflag = .True. End Where If( Any( eflag ) )Then write(emsg,99950)"ASIN",MinVal(parsebuffer(1:isize,nbuf) ),MaxVal(parsebuffer(1:isize,nbuf) ) End If return End If If( func.eq.'ACOS' ) Then Where( buffer .Ge. -1.0 .And. buffer .Le. 1.0 ) buffer = ACOS(buffer) eflag = .False. Else Where buffer = BADVAL3 eflag = .True. End Where If( Any( eflag ) )Then write(emsg,99950)"ACOS",MinVal(parsebuffer(1:isize,nbuf) ),MaxVal(parsebuffer(1:isize,nbuf) ) End If return End If If( func.eq.'ATAN' ) Then buffer = ATAN(buffer) return End If If( func.eq.'SINH' ) Then Where( buffer .gt. -Max_Exponential .And. buffer .lt. Max_Exponential ) buffer = SINH(buffer) eflag = .False. Else Where buffer = BADVAL3 eflag = .True. End Where If( Any( eflag ) )Then write(emsg,99950)"SINH",MinVal(parsebuffer(1:isize,nbuf) ),MaxVal(parsebuffer(1:isize,nbuf) ) End If return End If If( func.eq.'COSH' ) Then Where( buffer .gt. -Max_Exponential .And. buffer .lt. Max_Exponential ) buffer = COSH(buffer) eflag = .False. Else Where buffer = BADVAL3 eflag = .True. End Where If( Any( eflag ) )Then write(emsg,99950)"SINH",MinVal(parsebuffer(1:isize,nbuf) ),MaxVal(parsebuffer(1:isize,nbuf) ) End If return End If If( func.eq.'TANH' ) Then Where( buffer .gt. -Max_Exponential .And. buffer .lt. Max_Exponential ) buffer = TANH(buffer) eflag = .False. Else Where buffer = BADVAL3 eflag = .True. End Where If( Any( eflag ) )Then write(emsg,99950)"TANH",MinVal(parsebuffer(1:isize,nbuf) ),MaxVal(parsebuffer(1:isize,nbuf) ) End If return End If If( func.eq.'SQRT' ) Then Where( buffer .Ge. 0.0 ) buffer = SQRT(buffer) eflag = .False. Else Where buffer = BADVAL3 eflag = .True. End Where If( Any( eflag ) )Then write(emsg,99951)"SQRT",MinVal(parsebuffer(1:isize,nbuf) ) End If return End If If( func.eq.'AINT' .Or. func.eq.'INT') Then buffer = AINT(buffer) return End If If( func.eq.'ABS' ) Then buffer = ABS(buffer) return End If If( func.eq.'SIGN' ) Then buffer = SIGN(1.0,buffer) return End If If( func.eq.'ERF' ) Then Where( buffer .gt. -Max_Exponential .And. buffer .lt. Max_Exponential ) buffer = ERF(buffer) eflag = .False. Else Where buffer = BADVAL3 eflag = .True. End Where If( Any( eflag ) )Then write(emsg,99950)"ERF",MinVal(parsebuffer(1:isize,nbuf) ),MaxVal(parsebuffer(1:isize,nbuf) ) End If return End If write(*,'(/''**ERROR** Invalid function name: '',a)') trim(func) KSWIT = SHUT3() stop endif return 99950 Format("**ERROR** evaluating ",a," equal to ",es16.7," or ",es16.7) 99951 Format("**ERROR** evaluating ",a," equal to ",es16.7) end Subroutine getBuffer C subroutine to evaluate species expression (parses conditional statment if needed) C X = (y[1]>10) ? 10 : y[1] C Subroutine eval1(expression, buffer) USE M3UTILIO IMPLICIT NONE ! arguments Character*(*) expression Real buffer(isize) ! functions ! Integer getFldCount ! local variables Logical, Allocatable :: flags(:) Real, Allocatable :: value1(:) Real, Allocatable :: value2(:) Character*(EXP_LEN) field, field1, field2 Character*(EXP_LEN) emsg1, emsg2 Character operator Integer nmajor Integer i Logical badopr Logical KSWIT Logical, Allocatable :: eflag1( : ), eflag2( : ) Logical, Save :: FirstTime = .True. If( FirstTime )Then Allocate( eflag( isize ) ) eflag(:) = .False. FirstTime = .False. EndIf ! parse major fields (?:) nmajor = getFldCount(expression, '?:') emsg = ' ' eflag = .False. ! if conditional if( nmajor.eq.3 ) then Allocate( flags(isize), value1(isize), value2(isize) ) Allocate( eflag1( isize ) ) Allocate( eflag2( isize ) ) badopr = .false. call getFld( expression, '?:', 1, operator, field ) if(operator.ne.'?') badopr = .true. call eval1b( field, flags) eflag = .False. emsg = '' call getFld( expression, '?:', 2, operator, field1 ) if(operator.ne.'?') badopr = .true. call eval2( field1, value1) eflag1 = eflag emsg1 = emsg eflag = .False. emsg = '' call getFld( expression, '?:', 3, operator, field2 ) if(operator.ne.':') badopr = .true. call eval2( field2, value2) eflag2 = eflag emsg2 = emsg eflag = .False. if( badopr ) then Write(*,'(/''**Error** Syntax error encountered in conditional expression in: '',a)') trim(formula) stop End if ! set buffer values do i=1,isize If( flags(i) ) Then buffer(i) = value1(i) eflag(i) = eflag1(i) field = field1 Else buffer(i) = value2(i) eflag(i) = eflag2(i) field = field2 End If End Do If( Any( eflag ) ) then Write(*,'(//a)')"Problem evaluating: " & // Trim( formula ) If( Any( eflag .And. eflag1 ) )Then Write(*,'(a//)')Trim(emsg1) endif If( Any( eflag .And. eflag2 ) )Then Write(*,'(a//)')Trim(emsg2) endif If( .Not. Allow_BadValues )Then KSWIT = SHUT3() STOP End IF End IF Deallocate (flags, value1, value2) Deallocate (eflag1,eflag2) return End if ! conditional ! if no conditional if( nmajor.eq.1 ) then call eval2( trim(expression), buffer ) If( Any( eflag ) ) then Write(*,'(//a)')"Problem evaluating: " & // Trim( formula ) Write(*,'(a//)')Trim(emsg) If( .Not. Allow_BadValues )Then KSWIT = SHUT3() STOP End IF endif return endif ! syntax error Write(*,'(/''**Error** Syntax error encountered at: '',a)') trim(formula) stop end Subroutine eval1 C subroutine to evaluate condition expression (called from eval1) Subroutine eval1b(expression, flags) USE M3FILES IMPLICIT NONE ! arguments Character*(*) expression Logical flags(isize) ! functions ! Integer getFldCount ! local variables Real, Allocatable :: value1(:) Real, Allocatable :: value2(:) Character*(EXP_LEN) field Character operator Integer nflds Integer i Logical KSWIT Logical SHUT3 ! verify that expression contains a parse major fields (<=>) nflds = getFldCount(expression, '<=>') if( nflds.eq.0 ) then Write(*,'(/''**Error** Syntax error encountered in conditional: '',a)') trim(expression) stop endif ! parse conditional expression Allocate( value1(isize), value2(isize) ) ! determine conditional operator is <= if( index(expression,'<=').gt.0 ) then call getFld( expression, '<=', 1, operator, field ) call eval2( field, value1) If( Any( eflag ) )Then Write(*,'(//a)')"Problem evaluating: " & // Trim( formula ) Write(*,*)Trim(emsg) KSWIT = SHUT3() STOP endif call getFld( expression, '<=', 3, operator, field ) call eval2( field, value2) If( Any( eflag ) )Then Write(*,'(//a)')"Problem evaluating: " & // Trim( formula ) Write(*,*)Trim(emsg) KSWIT = SHUT3() STOP endif flags = ( value1 .le. value2 ) Deallocate (value1, value2) return endif ! determine conditional operator is >= if( index(expression,'>=').gt.0 ) then call getFld( expression, '>=', 1, operator, field ) call eval2( field, value1) If( Any( eflag ) )Then Write(*,'(//a)')"Problem evaluating: " & // Trim( formula ) Write(*,*)Trim(emsg) KSWIT = SHUT3() STOP endif call getFld( expression, '>=', 3, operator, field ) call eval2( field, value2) If( Any( eflag ) )Then Write(*,'(//a)')"Problem evaluating: " & // Trim( formula ) Write(*,*)Trim(emsg) KSWIT = SHUT3() STOP endif flags = ( value1 .ge. value2 ) Deallocate (value1, value2) return endif ! determine conditional operator is > if( index(expression,'>').gt.0 ) then call getFld( expression, '>', 1, operator, field ) call eval2( field, value1) If( Any( eflag ) )Then Write(*,'(//a)')"Problem evaluating: " & // Trim( formula ) Write(*,*)Trim(emsg) KSWIT = SHUT3() STOP endif call getFld( expression, '>', 2, operator, field ) call eval2( field, value2) If( Any( eflag ) ) then Write(*,'(//a)')"Problem evaluating:" & // Trim( formula ) Write(*,*)Trim(emsg) KSWIT = SHUT3() STOP endif flags = ( value1 .gt. value2 ) Deallocate (value1, value2) return endif ! determine conditional operator is < if( index(expression,'<').gt.0 ) then call getFld( expression, '<', 1, operator, field ) call eval2( field, value1) If( Any( eflag ) )Then Write(*,'(/''**Error** Syntax error encountered: '',a)') trim(expression) Write(*,'(//a)')"Problem evaluating: " & // Trim( formula ) KSWIT = SHUT3() STOP endif call getFld( expression, '<', 2, operator, field ) call eval2( field, value2) If( Any( eflag ) )Then Write(*,'(//a)')"Problem evaluating: " & // Trim( formula ) Write(*,*)Trim(emsg) KSWIT = SHUT3() STOP endif flags = ( value1 .lt. value2 ) Deallocate (value1, value2) return endif ! determine conditional operator is = if( index(expression,'=').gt.0 ) then call getFld( expression, '=', 1, operator, field ) call eval2( field, value1) If( Any( eflag ) )Then Write(*,'(//a)')"Problem evaluating: " & // Trim( formula ) Write(*,*)Trim(emsg) KSWIT = SHUT3() STOP endif call getFld( expression, '=', 2, operator, field ) call eval2( field, value2) If( Any( eflag ) )Then Write(*,'(//a)')"Problem evaluating:" & // Trim( formula ) Write(*,*)Trim(emsg) KSWIT = SHUT3() STOP endif flags = ( value1 .eq. value2 ) Deallocate (value1, value2) return endif ! syntax error Write(*,'(/''**Error** conditional contains unknown operator in formula'',a)') & trim(formula) stop end Subroutine eval1b C subroutine to evaluate species expression (parses major fields (+-)) Subroutine eval2(expression, buffer) IMPLICIT NONE ! arguments Character*(*), Intent( In ) :: expression Real, Intent( InOut ) :: buffer(isize) ! local variables Real, Allocatable :: value(:) Character*(EXP_LEN) :: field Character operator Integer nmajor Integer n buffer = 0.0D0 Allocate ( value(isize) ) ! parse major fields (+-) nmajor = getFldCount(expression, '+-', '*/^') ! loop thru and parse each major field and evaluate Do n=1,nmajor call getFld( expression, '+-', n, operator, field, '*/^' ) If( field.eq.' ' ) Then value = 0.0D0 If ( n .gt. 1 ) Then Write(6,'(2a)')'eval2 Error: Empty Field in expression,',Trim(expression), & 'of the formula, ',Trim(Formula) Stop End IF else call eval3b( field, value) End If If( operator.eq.'+' ) Then buffer = buffer + value else If( operator.eq.'-' ) Then buffer = buffer - value else Write(6,'(2a)')'eval2 Error: Unknown Operator, ' // Trim(operator) & // ' in expression,',Trim(Formula) // ' for output species ' // Trim( out_species ) & // '. Allowed operators are +, -, *, /, and ^.' Stop End If End Do Deallocate (value) return end Subroutine eval2 C routine to compute a field of the expression (parses minor fields (*/^)) Subroutine eval3(expression, value) IMPLICIT NONE ! arguments CHARACTER*(*), Intent( In ) :: expression Real, Intent( InOut ) :: value(isize) Logical SHUT3 ! local variables Real, allocatable :: specValue(:) Character*(EXP_LEN) field Character operator Integer n, m, nflds, status Integer pos1, pos2, fnum Character*(16) funcName Character*(16) specName Real constant Logical KSWIT Allocate ( specValue(isize) ) nflds = getFldCount(trim(expression), '*/^') value = 1.0 Do n=1,nflds call getFld( trim(expression), '*/^', n, operator, field ) ! check for buffer array If( index(field,'buffer[') .gt.0 ) Then Call getBuffer(field, specValue) If( operator.eq.'*' ) value = value * specValue If( operator.eq.'/' ) value = value / specValue If( operator.eq.'^' ) value = value ** specValue cycle End If ! check for species argument (special functions) If( index(field,'[') .gt.0 ) Then ! switch ! and # characters within [] brackets back to + and - characters Call replace(field, '!', '+') Call replace(field, '#', '-') ! parse field between [ ] and check If number or species name pos1 = index(field, '[') pos2 = index(field, ']',.true.) specName = field(pos1+1:pos2-1) read(specName,'(i16)',iostat=status) fnum If( status.eq.0 ) Then !! number found Call readSpecies(field, specValue) If( operator.eq.'*' ) value = value * specValue If( operator.eq.'/' ) value = value / specValue If( operator.eq.'^' ) value = value ** specValue cycle End If !! contains '[' End If !try to read field as number read(field,'(f20.0)',iostat=status) constant If( status.eq.0 ) Then If( operator.eq.'*' ) value = value * constant If( operator.eq.'/' ) value = value / constant If( operator.eq.'^' ) value = value ** constant Else Write(*,'(''**Error** Invalid field encountered:'',a)') field stop End If End Do Deallocate (specValue) return end Subroutine eval3 C routine to compute a field of the expression (parses minor fields (*/^)) Subroutine eval3b(expression, value) USE M3UTILIO, ONLY: BADVAL3 IMPLICIT NONE ! arguments CHARACTER*(*), Intent( In ) :: expression Real, Intent( InOut ) :: value(isize) Logical SHUT3 ! local variables Real, allocatable :: specValue(:) Character*(EXP_LEN) field Character operator Integer n, nflds Allocate ( specValue(isize) ) nflds = getFldCount(trim(expression), '*/') ! print*,Trim(expression) value = 1.0 SpecValue = 0.0D0 Do n=1,nflds call getFld( trim(expression), '*/', n, operator, field ) call eval4(field, specValue) If( operator.eq.'*' )Then value = value * specValue Else If( operator.eq.'/' )Then Where( specValue .Ne. 0.0 ) value = value / specValue eflag = .false. Else Where value = BADVAL3 eflag = .true. End Where If( Any( eflag ) )Then write(emsg,*) "Denominator, " & // Trim( field ) // ", equals zero." End If Else Write(6,'(2a)')'eval3b Error: Unknown Operator, ' // Trim(operator) & // ' in expression,',Trim(Formula) // ' for output species ' // Trim( out_species ) & // '. Allowed operators are +, -, *, /, and ^.' Stop End If End Do Deallocate (specValue) return end Subroutine eval3b Subroutine eval4(expression, value) IMPLICIT NONE ! arguments CHARACTER*(*), Intent( In ) :: expression Real, Intent( InOut ) :: value(:) Real, allocatable :: specValue(:) Real, allocatable :: specPower(:) Character*(EXP_LEN) :: field Character(1) :: operator Integer :: n, pos1, nflds Real Factor nflds = getFldCount(trim(expression), '^') ! value = 1.0 !...No exponents found Allocate ( specValue(isize) ) If( nflds .Eq. 1 )Then field = expression call GetValue(field, specValue) value = specValue Deallocate (specValue) Return End If !...check if correct number of exponents found ! If( mod(nflds,2) .Ne. 0 )Then ! eflag = .True. ! Write(6,*)'Incorrect number of exponents in Formula: ', Trim(formula) ! Return ! End If !...compute fields with Allocate ( specPower(isize) ) Value = 1.0D0 n = nflds call getFld( trim(expression), '^', n, operator, field ) n = n - 1 call GetValue(field, specPower) Do call getFld( trim(expression), '^', n, operator, field ) n = n - 1 If( field(1:1) .Eq. '-' )Then field = field(2:) Factor = -1.0D0 Else Factor = 1.0D0 End If call GetValue(field, specValue) Value = Factor * specValue**SpecPower If( n .Lt. 1)EXIT SpecPower = Value End Do Deallocate (specValue) Deallocate (specPower) end Subroutine eval4 C routine to compute a field of the expression (parses minor fields (*/^)) Subroutine GetValue(expression, value) IMPLICIT NONE ! arguments CHARACTER*(*), Intent( In ) :: expression Real, Intent( InOut ) :: value(isize) Logical SHUT3 ! local variables Real, allocatable :: specValue(:) Character*(EXP_LEN) field Character operator Integer n, m, nflds, status Integer pos1, pos2, fnum Character*(16) funcName Character*(16) specName Real constant Real Factor If( expression(1:1) .Eq. '-' )Then field = expression(2:) Factor = -1.0D0 Else If( expression .Eq. '+' )Then field = expression(2:) Factor = 1.0D0 Else field = expression Factor = 1.0D0 End If If( Len_Trim(field) .Le. 0 )Then Write(6,'(3a)') & 'GetValue Error: Empty Field or Missing Input Species Name in expression,',Trim(Formula), & ' for output species ' // Trim( out_species ) // '.' Stop End If !...check for buffer array If( index(field,'buffer[') .gt.0 ) Then Call getBuffer(field, Value) Value = Factor * Value Return End If !...check for species argument (special functions) If( index(field,'[') .gt.0 ) Then ! switch ! and # characters within [] brackets back to + and - characters Call replace(field, '!', '+') Call replace(field, '#', '-') ! parse field between [ ] and check If number or species name pos1 = index(field, '[') pos2 = index(field, ']',.true.) specName = field(pos1+1:pos2-1) if( pos2 .lt. Len_Trim(Field) )Then Write(6,'(5(a,1x))')'GetValue Error: Unknown operator or input species ',Trim(Field(pos2+1:)), & ' in formula,',Trim(Formula) // ' for output species ' // Trim( out_species ) & // '. Allowed operators are +, -, *, /, and ^.' Stop end if ! Write(6,'(2a)')'specName = ',Trim(specName) read(specName,'(i16)',iostat=status) fnum If( status.eq.0 ) Then !! number found Call readSpecies(field, Value) Value = Factor * Value Return Else funcName = field(1:pos1-1) Call UCASE(funcName) status = -1 If( funcName .eq. 'FAVG' ) Call avgSpecies( specName , Value, status ) If( funcName .eq. 'FSDEV' ) Call sdevSpecies( specName , Value, status ) If( funcName .eq. 'FMAX' ) Call maxSpecies( specName , Value, status ) If( funcName .eq. 'FMIN' ) Call minSpecies( specName , Value, status ) If( status.eq.0 ) Then Value = Factor * Value Return End If ! Write(6,*)'**GetValue Error** Unknown Function: ',Trim(funcName) End If !! contains '[' End If !...try to read field as number read(field,'(f20.0)',iostat=status) constant If( status.eq.0 ) Then value = Factor * constant Return Else Write(*,1099) & Trim( field ),Trim( Formula ) // ' for output species ' & // Trim( out_species ) // '. An operator may be missing.' stop End If 1099 Format('**GetValue Error** Invalid field encountered:',a, & " in formula ",a) return end Subroutine GetValue C Routine to read species value array for given date and time Subroutine readSpecies( field, specValue) USE M3FILES USE M3UTILIO IMPLICIT NONE ! arguments Character*(*) field Real specValue(isize) ! local variables Integer pos1, pos2, status Character*(16) specName Character*(16) fileName Character*(10) numfld Integer fnum Integer kdate, ktime Integer edate, etime, m Logical KSWIT ! parse field into species name and file number pos1 = index(field, '[') pos2 = index(field, ']',.true.) specName = field(1:pos1-1) if(pos1.le.0 .and. pos1.ge.pos2) then Write(*,'(''**ERROR** Invalid file number for species '',a)') trim(specName) KSWIT = SHUT3() stop endif ! parse file number numfld = field(pos1+1:pos2-1) ! read file number from numfld read(numfld,*,iostat=status) fnum if( status.ne.0 ) then Write(*,'(/''**ERROR** Invalid file number for species: '',a)') trim(specName) Write(*,'('' file number:'',a)') trim(numfld) KSWIT = SHUT3() stop endif kdate = idate ktime = itime !! Check numfld for +- sign, to read values of next or previous time step if( INDEX(numfld,'-').gt.0 .or. INDEX(numfld,'+').gt.0 ) then fnum = ABS( fnum ) if( .NOT. getDESC( fnum ) ) then Write( *, '(''**Error** While running getDESC on file '',i5)') fnum stop endif !! adjust date/time to read previous timestep if( INDEX(numfld,'-') .gt. 0 ) then if( SECSDIFF (kDate, ktime, SDATE3D, STIME3D) .lt. 0 ) then Call NEXTIME( kdate, ktime, -TSTEP ) endif endif !! adjust date/time to read next timestep if( INDEX(numfld,'+') .gt. 0 ) then ! compute ending time of file edate = SDATE3D etime = STIME3D do m = 1, MXREC3D-1 Call Nextime(edate, etime, TSTEP3D) enddo if( SECSDIFF (kDate, ktime, edate, etime) .gt. 0 ) then Call NEXTIME( kdate, ktime, TSTEP ) endif endif endif !! condition to adjust timestep for read !! call routine to read species values from file fnum status = 0 Call ReadValues( fnum, specName, ilayer, kdate, ktime, isize, & specValue, status) !! check read status if( status.ne.0 ) then if( fnum.eq.0 ) filename = 'OUTFILE' if( fnum.gt.0 ) filename = M3FILENAME(fnum) Write(*,'(/''**ERROR** Invalid syntax for field: '',a)') trim(field) Write(*,'(/''**ERROR** Cannot read '',a,'' from '',a)') & trim(specName), trim(fileName) KSWIT = SHUT3() stop endif return end Subroutine readSpecies ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C Routine to compute average species value at each cell from all input files Subroutine avgSpecies( specName, specValue, status) USE M3FILES USE M3UTILIO IMPLICIT NONE ! arguments Character*(*) specname Real specValue(isize) Integer status ! local variables Integer n, i Real, Allocatable :: values(:,:) Logical KSWIT ! allocate arrays Allocate( values(isize, N_M3FILES) ) ! read species values from all input files do n = 1, N_M3FILES status = 0 Call ReadValues( n, specName, ilayer, idate, itime, isize, & values(:,n), status) !! check read status if( status.ne.0 ) then Write(*,'(/''**ERROR** Cannot read '',a,'' from '',a)') & trim(specName), trim(M3FILENAME(n)) KSWIT = SHUT3() stop endif enddo !! read loop !! compute averages do i = 1, isize specValue(i) = 0.0 do n = 1, N_M3FILES specValue(i) = specValue(i) + values(i,n) enddo specValue(i) = specValue(i) / N_M3FILES enddo ! deallocate arrays DeAllocate( values ) status = 0 return End Subroutine avgSpecies ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C Routine to find minimum species value at each cell from all input files Subroutine minSpecies( specName, specValue, status) USE M3FILES USE M3UTILIO IMPLICIT NONE ! arguments Character*(*) specname Real specValue(isize) Integer status ! local variables Integer n, i Real, Allocatable :: values(:,:) Logical KSWIT ! allocate arrays Allocate( values(isize, N_M3FILES) ) ! read species values from all input files do n = 1, N_M3FILES status = 0 Call ReadValues( n, specName, ilayer, idate, itime, isize, & values(:,n), status) !! check read status if( status.ne.0 ) then Write(*,'(/''**ERROR** Cannot read '',a,'' from '',a)') & trim(specName), trim(M3FILENAME(n)) KSWIT = SHUT3() stop endif enddo !! read loop !! find minimums do i = 1, isize specValue(i) = values(i,1) do n = 2, N_M3FILES if(values(i,n) .lt. specValue(i)) specValue(i) = values(i,n) enddo enddo ! deallocate arrays DeAllocate( values ) status = 0 return End Subroutine minSpecies ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C Routine to find maximum species value at each cell from all input files Subroutine maxSpecies( specName, specValue, status) USE M3FILES USE M3UTILIO IMPLICIT NONE ! arguments Character*(*) specname Real specValue(isize) Integer status ! local variables Integer n, i Real, Allocatable :: values(:,:) Logical KSWIT ! allocate arrays Allocate( values(isize, N_M3FILES) ) ! read species values from all input files do n = 1, N_M3FILES status = 0 Call ReadValues( n, specName, ilayer, idate, itime, isize, & values(:,n), status) !! check read status if( status.ne.0 ) then Write(*,'(/''**ERROR** Cannot read '',a,'' from '',a)') & trim(specName), trim(M3FILENAME(n)) KSWIT = SHUT3() stop endif enddo !! read loop !! find minimums do i = 1, isize specValue(i) = values(i,1) do n = 2, N_M3FILES if(values(i,n) .gt. specValue(i)) specValue(i) = values(i,n) enddo enddo ! deallocate arrays DeAllocate( values ) status = 0 return End Subroutine maxSpecies cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C Routine to compute the standard deviation value at each cell from all input files Subroutine sdevSpecies( specName, specValue, status) USE M3FILES USE M3UTILIO IMPLICIT NONE ! arguments Character*(*) specname Real specValue(isize) Integer status ! local variables Integer n, i Real xtotal, x2total , var Real, Allocatable :: values(:,:) Logical KSWIT !! if the number of files == 1, then set standard deviation values to zero if( N_M3FILES .le. 0 ) then specValue = 0.0 status = 0 return endif ! allocate arrays Allocate( values(isize, N_M3FILES) ) ! read species values from all input files do n = 1, N_M3FILES status = 0 Call ReadValues( n, specName, ilayer, idate, itime, isize, & values(:,n), status) !! check read status if( status.ne.0 ) then Write(*,'(/''**ERROR** Cannot read '',a,'' from '',a)') & trim(specName), trim(M3FILENAME(n)) KSWIT = SHUT3() stop endif enddo !! read loop !! find minimums do i = 1, isize xtotal = 0.0 x2total = 0.0 do n = 1, N_M3FILES xtotal = xtotal + values(i,n) x2total = x2total + values(i,n)**2 enddo var = (N_M3FILES*x2total - xtotal**2) / (N_M3FILES * (N_M3FILES-1)) specValue(i) = SQRT(var) enddo ! deallocate arrays DeAllocate( values ) status = 0 return End Subroutine sdevSpecies END MODULE evaluator ================================================ FILE: POST/combine/src/module_file.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/work/rep/TOOLS/src/combine/module_file.F,v 1.1.1.1 2005/07/27 12:55:20 sjr Exp $ C*********************************************************************** C C MODULE: sets up file data C C*********************************************************************** MODULE M3FILES USE M3UTILIO INTEGER, Public :: N_M3FILES ! No. of input Models-3 files INTEGER, PARAMETER, Public :: MXM3FLS = MXFILE3 - 1 ! Max no. of input files - use IOAPI parameter ! MXFILE3 - 1 to also allow one output file CHARACTER*16, Public :: M3FILENAME( MXM3FLS ) ! filenames CHARACTER*10, Public :: FILETYPE( MXM3FLS ) ! filetypes Integer, Public :: WRFid( MXM3FLS ) ! NCIDs for WRF files Logical, Public :: convert(MXM3FLS) ! convert flags INTEGER, Public :: startDate, startTime INTEGER, Public :: endDate, endTime INTEGER, Public :: TSTEP INTEGER, Public :: NROWS INTEGER, Public :: NCOLS INTEGER, Public :: NLAYS REAL*8, Public :: XCELL REAL*8, Public :: YCELL REAL*8, Public :: XORIG REAL*8, Public :: YORIG REAL*8, Public :: YCENT REAL*8, Public, PARAMETER :: smallnum = 0.001d0 Public :: canConvert, OPENFILE, getDESC, WRF_DESC, OPEN_FILES, ReadValues, & Rd_ioapi, Rd_wrf, SetMapProj, ToProj, ToLL Private Interface Subroutine getFld( record, delimiter, nth, del, field, exception ) CHARACTER*(*), Intent( In ) :: record CHARACTER*(*), Intent( In ) :: delimiter CHARACTER, Intent( Out ) :: del Integer, Intent( In ) :: nth CHARACTER*(*), Intent( Out ) :: field CHARACTER*(*), Optional, Intent( In ) :: exception End Subroutine getFld INTEGER FUNCTION getFldCount(record, delimiter, exception) Result(nfields) CHARACTER*(*), Intent( In ) :: record CHARACTER*(*), Intent( In ) :: delimiter CHARACTER*(*), Optional, Intent( In ) :: exception End FUNCTION getFldCount Subroutine LeftTrim( STRING ) CHARACTER*(*), INTENT( INOUT ) :: STRING End Subroutine LeftTrim Subroutine RightTrim( STRING ) CHARACTER*(*), INTENT( INOUT ) :: STRING End Subroutine RightTrim SUBROUTINE UCASE ( STR ) CHARACTER, INTENT( INOUT ) :: STR*( * ) END SUBROUTINE UCASE Subroutine replace( string, old, new ) Character*(*), Intent( InOut ) :: string Character*(1), Intent( In ) :: old Character*(1), Intent( In ) :: new End Subroutine replace SUBROUTINE Remove_WhiteSpaces (text) CHARACTER*(*), Intent( InOut ) :: text END SUBROUTINE Remove_WhiteSpaces End Interface CONTAINS C*********************************************************************** C open input ioapi files C*********************************************************************** SUBROUTINE OPEN_FILES USE M3UTILIO IMPLICIT NONE ! LOCAL VARIABLES: INTEGER n, m ! Loop index INTEGER status ! Status code INTEGER EDATE, ETIME, runlen Character*(256) fname LOGICAL valid LOGICAL function canConvert !cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc ! Determine the number of input CTM conc files that need to be read !cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc N_M3FILES = 0 if( .NOT. OPENFILE( 1 ) ) then Write(*,'(''**Error** Could not open input file'', & '' for "INFILE1"'')') return endif if( .NOT. getDESC( 1 ) ) then Write( *, '(''**Error** While running getDESC on '', & A)' ) M3FILENAME(1) return endif N_M3FILES = 1 ! save file parameters TSTEP = TSTEP3D NROWS = NROWS3D NCOLS = NCOLS3D NLAYS = NLAYS3D XCELL = XCELL3D YCELL = YCELL3D XORIG = XORIG3D YORIG = YORIG3D YCENT = YCENT3D ! set startDate and startTime from first file startDate = SDATE3D startTime = STIME3D ! compute ending time of file endDate = SDATE3D endTime = STIME3D DO m = 1, MXREC3D-1 Call Nextime(endDate, endTime, TSTEP3D) enddo ! try to open files (2-MXM3FLS) DO n = 2, MXM3FLS if( .NOT. OPENFILE( n ) ) exit if( .NOT. getDESC( n ) ) then Write( *, '(''**Error** While running getDESC on '',A)' ) & M3FILENAME(n) N_M3FILES = 0 return endif valid = .true. !! if file is time dependent, adjust start and end dates if( TSTEP3D.gt. 0 ) then if( TSTEP.lt.TSTEP3D ) valid = .false. ! time step ! reset startDate and startTime if file starts after if( SECSDIFF (startDate, startTime, SDATE3D, STIME3D) .gt. 0 ) then startDate = SDATE3D startTime = STIME3D endif ! compute ending time of file EDATE = SDATE3D ETIME = STIME3D DO m = 1, MXREC3D-1 Call Nextime(EDATE, ETIME, TSTEP3D) enddo ! reset endDate and endTime if file ends before if( SECSDIFF (endDate, endTime, EDATE, ETIME) .lt. 0 ) then endDate = EDATE endTime = ETIME endif endif ! time independent file ! verify domain parameters if( DABS(XCELL-XCELL3D) > smallnum ) valid = .false. ! delta-X if( DABS(YCELL-YCELL3D) > smallnum ) valid = .false. ! delta-Y if( .NOT.valid ) then Write( *, '(''**Error** Inconsistent file domain for '' & ,A)' ) M3FILENAME(n) N_M3FILES = 0 return endif ! check if file needs to be converted convert(N) = .false. if( NROWS.ne.NROWS3D ) convert(N) = .true. if( NCOLS.ne.NCOLS3D ) convert(N) = .true. if( DABS(XORIG-XORIG3D) > smallnum ) convert(N) = .true. if( DABS(YORIG-YORIG3D) > smallnum ) convert(N) = .true. ! check if file can be converted if( convert(N) .and. (.NOT.canConvert()) ) then Write( *, '(''**Error** Inconsistent file domain for '' & ,A)' ) M3FILENAME(n) write(*,'('' NROWS='',2i8)') NROWS, NROWS3D write(*,'('' NCOLS='',2i8)') NCOLS, NCOLS3D write(*,'('' XORIG='',2f12.2)') REAL(XORIG), REAL(XORIG3D) write(*,'('' YORIG='',2f12.2)') REAL(YORIG), REAL(YORIG3D) N_M3FILES = 0 return endif N_M3FILES = N_M3FILES +1 enddo !! end file open loop ! get file description for M3FILENAME(1) if( .NOT. getDESC( 1 ) ) then Write( *, '(''**Error** While running getDESC on '',A)' ) & M3FILENAME(1) N_M3FILES = 0 return endif return END SUBROUTINE OPEN_FILES C*********************************************************************** C Determine file type and open file for given type C*********************************************************************** Logical Function OPENFILE(fileNo) result( rstatus ) USE M3UTILIO IMPLICIT NONE !! Include netcdf header file INCLUDE 'netcdf.inc' !! arguments Integer fileNo !! local variables Character*(256) fname Integer status Logical valid Integer ncid Integer dimid Integer attlen !! check for invalid file number if( fileNo.le.0 .or. fileNo.gt.MXM3FLS ) then Write( *, '(''**Error** Invalid file number in OPENFILE routine'')' ) rstatus = .false. return endif !! build envName for file if( fileNo.lt.10 ) then write(M3FILENAME(fileNo), '( ''INFILE'', I1 )' ) fileNo elseif(fileNo.lt.100) then write(M3FILENAME(fileNo), '( ''INFILE'', I2 )' ) fileNo else write(M3FILENAME(fileNo), '( ''INFILE'', I3 )' ) fileNo endif !! get filename from ENV variable Call NAMEVAL( M3FILENAME(fileNo), fname ) !! check if file exist INQUIRE(file=fname, exist=valid) if( .not.valid ) then write(*,'(''**WARNING** File does not exist:'',a)') TRIM(fname) rstatus = .false. return endif !! open file as a netcdf file and determine type status = NF_OPEN(fname, NF_NOWRITE, ncid) if( status.ne.0 ) then write(*,'(''**ERROR** Cannot open input file:'',a)') TRIM(fname) rstatus = .false. return endif !! check for IOAPI file, verify attribute "IOAPI_VERSION" status = NF_INQ_ATTLEN(ncid, NF_GLOBAL, 'IOAPI_VERSION', attlen) if( status.eq.0 ) then filetype(fileNo) = 'IOAPI' status = NF_CLOSE(ncid) rstatus = OPEN3( M3FILENAME(fileNo), 1, 'combine') return endif !! check for WRF file, verify dimension "west_east" status = NF_INQ_DIMID(ncid, 'west_east', dimid) if( status.eq.0 ) then filetype(fileNo) = 'WRF' WRFid(fileNo) = ncid if( .NOT.WRF_DESC( fileNo ) ) then rstatus = .false. return endif !! write file description write(*,'(/,5x,''"'',a,''" opened as OLD:READ-ONLY'')') TRIM(M3FILENAME(fileNo)) write(*,'(5x,''File name "'',a,''"'')') TRIM(fname) write(*,'(5x,''File type netcdf'')') write(*,'(5x,''Execution ID "'',a,''"'')') TRIM(EXECN3D) write(*,'(5x,''Dimension:'',i5,'' rows, '',i5,'' cols, '',i5,'' lays, '',i5,'' vbles'')') & NROWS3D, NCOLS3D, NLAYS3D, NVARS3D write(*,'(5x,''NetCDF ID:'',i10)') ncid write(*,'(5x,''Starting date and time '',i8,'':'',i6.6,'' ('',a,'')'')') & SDATE3D, STIME3D, DT2STR(SDATE3D, STIME3D) write(*,'(5x,''Time step '',i8,'' ('',a,'' hh:mm:ss)'' )') TSTEP3D, TRIM(HHMMSS(TSTEP3D)) write(*,'(5x,''Maximun current record number'',i10,/)') MXREC3D rstatus = .true. return endif !! Unknown file type, return error status write(*,'(''**ERROR** Unknown file type:'',a)') TRIM(fname) rstatus = .false. return end Function OPENFILE C***************************************************************************** C set the file variables defining map projection, grid, and time parameters C***************************************************************************** Logical Function getDESC(fileNo) result( rstatus ) USE M3UTILIO IMPLICIT NONE !! arguments Integer fileNo !! local variables Character*(256) fname Integer status Logical valid !! OUTPUT file type if( fileNo .eq. 0 ) then rstatus = DESC3( 'OUTFILE' ) return endif !! IOAPI file type if( FILETYPE( fileNo ) .eq. 'IOAPI' ) then rstatus = DESC3( M3FILENAME(fileNo) ) return endif !! WRF file type if( FILETYPE( fileNo ) .eq. 'WRF' ) then rstatus = WRF_DESC( fileNo ) return endif return end Function getDESC C*********************************************************************** C check if domain grid is a subgrid of current file description C*********************************************************************** Logical Function canConvert() result( pass ) USE M3UTILIO IMPLICIT NONE Real xdiff, ydiff Integer xoffset, yoffset pass = .false. ! find origin different xdiff = XORIG - XORIG3D ydiff = YORIG - YORIG3D ! check lower limits if( xdiff.lt.0.0 ) return if( ydiff.lt.0.0 ) return ! check upper limits if( (XORIG + NCOLS*XCELL) .gt. (XORIG3D + NCOLS3D*XCELL3D) ) return if( (YORIG + NROWS*YCELL) .gt. (YORIG3D + NROWS3D*YCELL3D) ) return ! compute row and column offsets that grid lies on grid line xoffset = xdiff / XCELL3D yoffset = ydiff / YCELL3D ! check that offsets lies on grid line if( int(xoffset*XCELL3D) .ne. int(xdiff) ) return if( int(yoffset*YCELL3D) .ne. int(ydiff) ) return pass = .true. return END FUNCTION canConvert C*********************************************************************** C routine to read species values from file C*********************************************************************** SUBROUTINE ReadValues( fileNo, specName, ilayer, idate, itime, & isize, specValue, status) USE M3UTILIO IMPLICIT NONE ! argument variables Integer fileNo Character*(*) specName Integer ilayer, idate, itime, isize, status Real specValue(isize) status = 0 !! check to read OUTPUT file if( fileNo .eq. 0 ) then if(.NOT.SYNC3( 'OUTFILE' )) Write(*,'(''**ERROR** on SYNC3 call'')') if(.NOT.READ3( 'OUTFILE', specName, ilayer, idate, & itime, specValue)) status = -1 return endif !! check file type and call read it's read routine if( FILETYPE(fileNo) .eq. 'IOAPI' ) then Call Rd_ioapi( M3FILENAME(fileNo), specName, ilayer, idate, itime, & isize, specValue, status) return endif if( FILETYPE(fileNo) .eq. 'WRF' ) then Call Rd_wrf( fileNo, specName, ilayer, idate, itime, & isize, specValue, status) return endif Write(*,'(/,''**ERROR** Unknown file type for file number:'',i3)') fileNo stop end SUBROUTINE ReadValues C*********************************************************************** C routine to read species values from IOAPI file C*********************************************************************** SUBROUTINE Rd_ioapi( fileName, specName, ilayer, idate, itime, & isize, specValue, status) USE M3UTILIO IMPLICIT NONE ! argument variables Character*(*) fileName Character*(*) specName Integer ilayer, idate, itime, isize, status Real specValue(isize) ! local variables Integer fileNo Integer jdate, jtime Integer colOffset, rowOffset Real, Allocatable :: values(:,:,:) Integer lay1, lay2 Integer k, c, r, l ! read file number from fileName read(fileName,'(6x,i2)', iostat=status) fileNo ! get file description if( .NOT.getDESC( fileNo ) ) then status = -1 return endif ! set time and date to read, if TSTEP3D==0, then set date/time to SDATE3D/STIME3D jdate = idate jtime = itime if( TSTEP3D.eq.0 ) then jdate = SDATE3D jtime = STIME3D endif ! if no conversion needed, read the values directly if( .NOT.convert(fileNo) ) then if(.NOT.READ3( fileName, specName, ilayer, jdate, & jtime, specValue)) status = -1 return endif !!!! read values from file and convert to specValue ! determine number of layers to read lay1 = NLAYS3D if(ilayer.gt.0) lay1 = 1 ! allocate values array Allocate ( values(NCOLS3D, NROWS3D, lay1) ) ! read values from super file if(.NOT.READ3( fileName, specName, ilayer, jdate, & jtime, values)) then status = -1 return endif ! compute column and row offsets colOffset = (XORIG - XORIG3D) / XCELL3D rowOffset = (YORIG - YORIG3D) / YCELL3D ! compute starting and ending layers to copy lay1 = 1 lay2 = NLAYS if( ilayer.gt.0 ) then lay1 = 1 lay2 = 1 endif ! copy values array to specValue array k = 0 do l=lay1,lay2 do r=1,NROWS do c=1,NCOLS k = k+1 specValue(k) = values( c+colOffset, r+rowOffset, l) enddo enddo enddo Deallocate( values ) Return END SUBROUTINE Rd_ioapi C*********************************************************************** C routine to read species values from WRF file C*********************************************************************** SUBROUTINE Rd_wrf( fileNo, specName, ilayer, idate, itime, & isize, specValue, status) USE M3UTILIO IMPLICIT NONE !! Include netcdf header file INCLUDE 'netcdf.inc' ! argument variables Integer fileNo Character*(*) specName Integer ilayer, idate, itime, isize, status Real specValue(isize) ! local variables Integer varid Integer curDate, curTime, n, step Integer dimids( NF_MAX_VAR_DIMS ) Character*64 name Integer xtype, ndims, natts Integer start(4), count(4) Integer size2d Integer colOffset, rowOffset Integer l, i, j ! get file description if( .NOT.getDESC( fileNo ) ) then status = -1 return endif !! get varid for variable status = NF_INQ_VARID( WRFid(fileNo), specName, varid) status = status + NF_INQ_VAR( WRFid(fileNo), varid, name, xtype, ndims, dimids, natts ) if( status.ne. 0 ) then write(*,'(''**ERROR** Reading species ['',a,'']'')') TRIM(specName) return endif !! determine time step to read curDate = SDATE3D curTime = STIME3D step = -1 do n = 1, MXREC3D if( SECSDIFF (curDate, curTime, idate, itime) .eq. 0 ) then step = n EXIT endif Call NEXTIME(curDate, curTime, TSTEP3D) enddo !! check for date/time out of range if( step.le.0 ) then status = -1 return endif !! read 2-D if( ndims.eq.3 ) then !! check if conversion needed if( convert(fileNo) ) then colOffset = (XORIG - XORIG3D) / XCELL3D rowOffset = (YORIG - YORIG3D) / YCELL3D start = (/ 1+colOffset, 1+rowOffset, step, 0 /) count = (/ NCOLS, NROWS, 1, 0 /) else start = (/ 1, 1, step, 0 /) count = (/ NCOLS3D, NROWS3D, 1, 0 /) endif !! read variable status = NF_GET_VARA_REAL( WRFid(fileNo), varid, start, count, specValue) if( status.ne. 0 ) then write(*,'(''**ERROR** Reading species ['',a,'']'')') TRIM(specName) return endif !! if more then 1 layer, duplicate layer 1 to rest of layers if(ilayer.lt.0) then size2d = NCOLS * NROWS do l = 2, NLAYS do i = 1, size2d j = size2d * (l-1) + i specValue(j) = specValue(i) enddo enddo endif return endif !! read 2-D !! read 3-D if( ndims.eq.4 ) then !! check if conversion needed if( convert(fileNo) ) then colOffset = (XORIG - XORIG3D) / XCELL3D rowOffset = (YORIG - YORIG3D) / YCELL3D start = (/ 1+colOffset, 1+rowOffset, 1, step /) count = (/ NCOLS, NROWS, 1, 1 /) else start = (/ 1, 1, 1, step /) count = (/ NCOLS3D, NROWS3D, 1, 1 /) endif !! determine which layer(s) to read if(ilayer.gt.0) then start(3) = ilayer count(3) = 1 else start(3) = 1 count(3) = NLAYS endif !! read variable status = NF_GET_VARA_REAL( WRFid(fileNo), varid, start, count, specValue) if( status.ne. 0 ) then write(*,'(''**ERROR** Reading species ['',a,'']'')') TRIM(specName) return endif return endif !! 3-D read Return END SUBROUTINE Rd_wrf C****************************************************************************** C set the WRF file variables defining map projection, grid, and time parameters C****************************************************************************** Logical Function WRF_DESC(fileNo) result( rstatus ) USE M3UTILIO IMPLICIT NONE !! Include netcdf header file INCLUDE 'netcdf.inc' !! arguments Integer fileNo !! local variables Integer status Logical valid Integer dimid Integer varid Integer map_proj Integer year, month, day, jday Integer hour, minute, second Integer jdate1,jtime1,jdate2,jtime2 Real tstep Real cen_lat, cen_lon Real truelat1, truelat2, stand_lon, moad_cen_lat Real dx, dy Real x, y Real Xoffset, Yoffset Real xtemp, ytemp Integer start(4), count(4) Integer nvars, n, i Integer dimids( NF_MAX_VAR_DIMS ) Integer NCHARDATE Character*64 name Character*24 dateStr Integer xtype, ndims, natts Logical match Integer ncdif, nrdif, mycelloff Real col_cent_cmaq, row_cent_cmaq, diflat, diflon Real, Parameter :: centol = 0.0001 Real*8 xe_cent_cmaq, yn_cent_cmaq Real cen_lat_cmaq, cen_lon_cmaq Character*16 :: reqDimNa3D(4)=(/'west_east ', & 'south_north', & 'bottom_top ', & 'Time ' /) Integer :: reqDimid3D(4) Character*16 :: reqDimNa2D(3)=(/'west_east ', & 'south_north', & 'Time ' /) Integer :: reqDimid2D(3) character*19, allocatable :: timestamp(:) !! Check for very fine grid spacing. Tolerance and testing is !! not set up to trap error conditions as grid spacing becomes !! very small. IF ( xcell3d <= 444.0 .OR. ycell3d <= 444.0 ) THEN WRITE(*,'(''**ERROR** Error traps not tested for '', & '' domains with smaller DX than 444-km'')') rstatus = .false. RETURN ENDIF !! set FTYPE3D to gridded FTYPE3D = 1 status = NF_GET_ATT_TEXT( WRFid(fileNo), NF_GLOBAL, 'TITLE', EXECN3D ) if( status.ne. 0 .or. ICHAR(EXECN3D(1:1)).eq.0 ) then EXECN3D = 'WRF V3.3' endif !! set NCOLS3D, NROWS3D, and NLAYS3D variables status = NF_INQ_DIMID( WRFid(fileNo), 'west_east', dimid ) status = status + NF_INQ_DIMLEN( WRFid(fileNo), dimid, NCOLS3D ) status = status + NF_INQ_DIMID( WRFid(fileNo), 'south_north', dimid ) status = status + NF_INQ_DIMLEN( WRFid(fileNo), dimid, NROWS3D ) status = status + NF_INQ_DIMID( WRFid(fileNo), 'bottom_top', dimid ) status = status + NF_INQ_DIMLEN( WRFid(fileNo), dimid, NLAYS3D ) status = status + NF_INQ_DIMID( WRFid(fileNo), 'Time', dimid ) status = status + NF_INQ_DIMLEN( WRFid(fileNo), dimid, MXREC3D ) status = status + NF_INQ_DIMID( WRFid(fileNo), 'DateStrLen', dimid ) status = status + NF_INQ_DIMLEN( WRFid(fileNo), dimid, NCHARDATE ) if( status.ne. 0 ) then write(*,'(''**ERROR** Reading required WRF dimensions'')') rstatus = .false. return endif !! set map projection variables status = NF_GET_ATT_INT( WRFid(fileNo), NF_GLOBAL, 'MAP_PROJ', map_proj) status = status + NF_GET_ATT_REAL( WRFid(fileNo), NF_GLOBAL, 'TRUELAT1', truelat1) status = status + NF_GET_ATT_REAL( WRFid(fileNo), NF_GLOBAL, 'TRUELAT2', truelat2) status = status + NF_GET_ATT_REAL( WRFid(fileNo), NF_GLOBAL, 'STAND_LON', stand_lon) status = status + NF_GET_ATT_REAL( WRFid(fileNo), NF_GLOBAL, 'MOAD_CEN_LAT', moad_cen_lat) status = status + NF_GET_ATT_REAL( WRFid(fileNo), NF_GLOBAL, 'CEN_LAT', cen_lat) status = status + NF_GET_ATT_REAL( WRFid(fileNo), NF_GLOBAL, 'CEN_LON', cen_lon) if( status.ne. 0 ) then write(*,'(''**ERROR** Reading required map projection variables'')') rstatus = .false. return endif !! set horizontal grid variables NTHIK3D = 1 write(GDNAM3D, '(''WRF_'',i3.3,''X'',I3.3)') NCOLS3D, NROWS3D status = NF_GET_ATT_REAL( WRFid(fileNo), NF_GLOBAL, 'DX', dx) status = status + NF_GET_ATT_REAL( WRFid(fileNo), NF_GLOBAL, 'DY', dy) if( status.ne. 0 ) then write(*,'(''**ERROR** Reading required map projection variables'')') rstatus = .false. return endif if( map_proj .eq. 1 ) then !! Lambert GDTYP3D = 2 !! lambert P_ALP3D = DBLE(min(truelat1,truelat2)) P_BET3D = DBLE(max(truelat1,truelat2)) P_GAM3D = DBLE(stand_lon) XCENT3D = DBLE(stand_lon) YCENT3D = YCENT ! assign reference latitude from first IOAPI file XCELL3D = DBLE(dx) YCELL3D = DBLE(dy) else if( map_proj .eq. 2 ) then !! Polste GDTYP3D = 6 !! polste P_ALP3D = SIGN(1.0, cen_lat) P_BET3D = truelat1 P_GAM3D = stand_lon XCENT3D = stand_lon YCENT3D = DBLE( moad_cen_lat) XCELL3D = DBLE(dx) YCELL3D = DBLE(dy) else write(*,*) map_proj write(*,'(''**ERROR** Unsupported map projection type for wrfout'')') rstatus = .false. return endif ! Find latitude and longitude coordinates of center of the ! CMAQ domain. Use these for comparison against the WRF ! domain. It is expected that these coordinates are the same ! as in the WRF domain because it is expected that the CMAQ ! domain is a subset of the WRF domain with a symmetrical ! perimeter removed. The latitude and longitude of the center ! of the CMAQ domain are in CEN_LAT_CMAQ and CEN_LON_CMAQ. col_cent_cmaq = FLOAT(ncols+1) * 0.5 row_cent_cmaq = FLOAT(nrows+1) * 0.5 xe_cent_cmaq = xorig + DBLE(col_cent_cmaq - 0.5) * xcell yn_cent_cmaq = yorig + DBLE(row_cent_cmaq - 0.5) * ycell Call SetMapProj(GDTYP3D, real(P_ALP3D), real(P_BET3D), & real(P_GAM3D), real(XCENT3D), real(YCENT3D)) Call ToLL(GDTYP3D, real(xe_cent_cmaq), real(yn_cent_cmaq), & cen_lon_cmaq, cen_lat_cmaq) diflat = ABS(cen_lat - cen_lat_cmaq) diflon = ABS(cen_lon - cen_lon_cmaq) ! For polar stereographic grids that are centered at a pole, ! the center longitude is irrelevant for this comparison. IF ( ( gdtyp3d == 6 ) .AND. & ( ( diflat == 0 ) .AND. ( ABS(NINT(cen_lat)) == 90 ) ) ) THEN diflon = 0.0 ENDIF ! Assume that the only time we are coming into this section ! of code is for WRF files generated by the two-way model ! when MCIP files are not handy for processing by Combine. In ! that case, the "trim" perimeter for WRF should be ! symmetrical. ncdif = ncols3d - ncols nrdif = nrows3d - nrows IF ( ( ncdif == nrdif ) .AND. ( MOD (nrdif, 2) == 0 ) .AND. & ( nrdif > 0 ) .AND. & ( diflat < centol ) .AND. ( diflon < centol ) ) THEN mycelloff = nrdif / 2 ELSE write(*,'(''**ERROR** Expecting centered WRF and '' & ''CMAQ domains'')') rstatus = .false. return ENDIF xorig3d = xorig - mycelloff * xcell3d yorig3d = yorig - mycelloff * ycell3d !! set vertical grid variables VGTYP3D = 7 !! read V_TOP variable for VGTOP3D start = (/ 1, 0, 0, 0 /) count = (/ 1, 0, 0, 0 /) status = NF_INQ_VARID( WRFid(fileNo), 'P_TOP', varid) status = status + NF_GET_VARA_REAL( WRFid(fileNo), varid, start, count, VGTOP3D) if( status.ne. 0 ) then write(*,'(''**ERROR** Reading VGTOP3D value from P_TOP variable'')') rstatus = .false. return endif !! read ZNW values for VGLVS3D values start = (/ 1, 1, 1, 1 /) count = (/ NLAYS3D+1, 1, 0, 0 /) status = NF_INQ_VARID( WRFid(fileNo), 'ZNW', varid) status = status + NF_GET_VARA_REAL( WRFid(fileNo), varid, start, count, VGLVS3D) if( status.ne. 0 ) then write(*,'(''**ERROR** Reading vertical sigma values from ZNW variable'')') rstatus = .false. return endif !! set time and date variables status = NF_GET_ATT_TEXT( WRFid(fileNo), NF_GLOBAL, 'START_DATE', dateStr ) status = status + NF_GET_ATT_REAL( WRFid(fileNo), NF_GLOBAL, 'DT', tstep) if( status.ne. 0 ) then write(*,'(''**ERROR** Reading required map projection variables'')') rstatus = .false. return endif read(dateStr,'(i4,1x,i2,1x,i2,1x,i2,1x,i2,1x,i2)',iostat=status) year,month,day,hour,minute,second if( status.ne.0 ) then write(*,'(''**ERROR** Reading starting date string:'',a)') TRIM(dateStr) rstatus = .false. return endif if (MXREC3D.eq.1) then !only one time step, set TSTEP3D to a nominal value of 10000 TSTEP3D = 10000 jday = JULIAN(year, month, day) SDATE3D = 1000*year + jday STIME3D = 10000*hour + 100*minute + second else !determine TSTEP3D from the first two values of the "Times" character variable status = NF_INQ_VARID( WRFid(fileNo), 'Times', varid) if( status.ne. 0 ) then write(*,'(a)') '**ERROR** Reading variable Times' rstatus = .false. return endif start = (/ 1, 1, 0, 0 /) count = (/ NCHARDATE, MXREC3D, 0, 0 /) allocate(timestamp(MXREC3D)) status = NF_GET_VARA_TEXT( WRFid(fileNo), varid, start, count, timestamp) if( status.ne. 0 ) then write(*,'(a)') '**ERROR** Reading variable Times' deallocate(timestamp) rstatus = .false. return endif read(timestamp(1),'(i4,1x,i2,1x,i2,1x,i2,1x,i2,1x,i2)',iostat=status) year,month,day,hour,minute,second if( status.ne.0 ) then write(*,'(''**ERROR** Reading first timestamp string:'',a)') TRIM(timestamp(1)) rstatus = .false. return endif jday = JULIAN(year, month, day) jdate1 = 1000*year + jday jtime1 = 10000*hour + 100*minute + second SDATE3D = jdate1 !use the first time step in the file, rather than the simulation start stored in START_DATE STIME3D = jtime1 read(timestamp(2),'(i4,1x,i2,1x,i2,1x,i2,1x,i2,1x,i2)',iostat=status) year,month,day,hour,minute,second if( status.ne.0 ) then write(*,'(''**ERROR** Reading second timestamp string:'',a)') TRIM(timestamp(2)) rstatus = .false. return endif jday = JULIAN(year, month, day) jdate2 = 1000*year + jday jtime2 = 10000*hour + 100*minute + second TSTEP3D = SEC2TIME( INT(SECSDIFF(jdate1,jtime1,jdate2,jtime2)) ) deallocate(timestamp) endif !! set array of variables NVARS3D = 0 VNAME3D = ' ' UNITS3D = ' ' VDESC3D = ' ' ! build array of required dimensions for variable match do n = 1, SIZE(reqDimNa3D) status = status + NF_INQ_DIMID( WRFid(fileNo), reqDimNa3D(n), reqDimid3D(n) ) enddo do n = 1, SIZE(reqDimNa2D) status = status + NF_INQ_DIMID( WRFid(fileNo), reqDimNa2D(n), reqDimid2D(n) ) enddo if( status.ne. 0 ) then write(*,'(''**ERROR** Reading WRF required dimensions'')') rstatus = .false. return endif ! get number of variables in WRF file status = NF_INQ_NVARS( WRFid(fileNo), nvars ) !! loop thru variables and record variables with dimensions !! (Time, bottom_top, south_north, west_east) do n = 1, nvars status = NF_INQ_VAR( WRFid(fileNo), n, name, xtype, ndims, dimids, natts ) match = .false. !! check 3D variables for match if( ndims.eq.SIZE(reqDimid3D) ) then match = .true. do i = 1, SIZE(reqDimid3D) if( reqDimId3D(i) .ne. dimids(i) ) match = .false. enddo endif !! check 2D variables for match if( ndims.eq.SIZE(reqDimid2D) ) then match = .true. do i = 1, SIZE(reqDimid2D) if( reqDimId2D(i) .ne. dimids(i) ) match = .false. enddo endif !! if match add variable to list if( match ) then NVARS3D = NVARS3D + 1 if( NVARS3D .gt. MXVARS3 ) then write(*,'(''**ERROR** Number of variables exceed maximum'')') rstatus = .false. return endif VNAME3D( NVARS3D ) = name VTYPE3D( NVARS3D ) = M3REAL status = status + NF_GET_ATT_TEXT( WRFid(fileNo), n, 'units', UNITS3D(NVARS3D) ) status = status + NF_GET_ATT_TEXT( WRFid(fileNo), n, 'description', VDESC3D(NVARS3D) ) !! replace null with spaces if( ICHAR(UNITS3D(NVARS3D)(1:1)) .eq. 0 ) UNITS3D(NVARS3D) = ' ' if( ICHAR(VDESC3D(NVARS3D)(1:1)) .eq. 0 ) VDESC3D(NVARS3D) = ' ' endif if( status.ne. 0 ) then write(*,'(''**ERROR** Reading WRF variable units and descriptions'')') rstatus = .false. return endif enddo ! variables loop rstatus = .true. return end Function WRF_DESC !**************************************************************************** ! routine to set map projection !**************************************************************************** Subroutine SetMapProj(gdtype, alpha, beta, gamma, xcent, ycent) USE M3UTILIO IMPLICIT NONE ! arguments Integer gdtype Real alpha, beta, gamma, xcent, ycent ! check for LAT/LON projection if( gdtype .eq. 1 ) then return endif ! check for lambert projection if( gdtype .eq. 2 ) then if( .NOT. SETLAM( alpha, beta, gamma, xcent, ycent) ) then Call m3exit ('combine', 0, 0, 'Lambert projection setup error', xstat2) endif return endif ! check for polste projection if( gdtype .eq. 6 ) then if( .NOT. SETPOL( alpha, beta, gamma, xcent, ycent) ) then Call m3exit ('combine', 0, 0, 'polar stereographic projection setup error', xstat2) endif return endif ! check for equatorial secant mercator projection if( gdtype .eq. 7 ) then if( .NOT. SETEQM( alpha, beta, gamma, xcent, ycent) ) then Call m3exit ('combine', 0, 0, 'equatorial mercator projection setup error', xstat2) endif return endif Call m3exit ('combine', 0, 0, 'Map projection setup error', xstat2) end Subroutine SetMapProj !**************************************************************************** ! routine to compute map projection from LAT/LON !**************************************************************************** Subroutine ToProj(gdtype, longitude, latitude, x, y) USE M3UTILIO IMPLICIT NONE ! arguments Integer gdtype Real longitude, latitude, x, y ! check for LAT/LON projection if( gdtype .eq. 1 ) then x = longitude y = latitude return endif ! check for lambert projection if( gdtype .eq. 2 ) then if(.NOT.LL2LAM(longitude, latitude, x, y) ) then Call m3exit('combine', 0, 0, 'Lat/Lon to Lambert error', xstat2) endif return endif ! check for polste projection if( gdtype .eq. 6 ) then if(.NOT.LL2POL(longitude, latitude, x, y) ) then Call m3exit('combine', 0, 0, 'Lat/Lon to polar stereographic error', xstat2) endif return endif ! check for equatorial mercator projection if( gdtype .eq. 7 ) then if(.NOT.LL2EQM(longitude, latitude, x, y) ) then Call m3exit('combine', 0, 0, 'Lat/Lon to equatorial mercator error', xstat2) endif return endif Call m3exit ('combine', 0, 0, 'Map projection setup error', xstat2) end Subroutine ToProj !**************************************************************************** ! routine to compute LAT/LON from map projection !**************************************************************************** Subroutine ToLL(gdtype, x, y, longitude, latitude) USE M3UTILIO IMPLICIT NONE ! arguments Integer gdtype Real longitude, latitude, x, y ! check for LAT/LON projection if( gdtype .eq. 1 ) then longitude = x latitude = y return endif ! check for lambert projection if( gdtype .eq. 2 ) then if(.NOT.LAM2LL(x, y, longitude, latitude) ) then Call m3exit('combine', 0, 0, 'Lat/Lon to Lambert error', xstat2) endif return endif ! check for polste projection if( gdtype .eq. 6 ) then if(.NOT.POL2LL(x, y, longitude, latitude) ) then Call m3exit('combine', 0, 0, 'Lat/Lon to polar stereographic error', xstat2) endif return endif ! check for equatorial mercator projection if( gdtype .eq. 7 ) then if(.NOT.EQM2LL(x, y, longitude, latitude) ) then Call m3exit('combine', 0, 0, 'Lat/Lon to equatorial mercator error', xstat2) endif return endif Call m3exit ('combine', 0, 0, 'Map projection setup error', xstat2) end Subroutine ToLL END MODULE M3FILES ================================================ FILE: POST/combine/src/module_specdef.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/work/rep/TOOLS/src/combine/module_specdef.F,v 1.1.1.1 2005/07/27 12:55:20 sjr Exp $ C*********************************************************************** C module to read, process and store the species definitions C*********************************************************************** Module spec_def Integer, Parameter, Private :: EXP_LEN = 1024 Integer, Parameter, Private :: REC_LEN = EXP_LEN * 2 Integer, Public :: numSpec Integer, Public :: maxSpec Integer, Public :: Klayer CHARACTER*(16), Allocatable, Public :: specName(:) CHARACTER*(16), Allocatable, Public :: specUnits(:) CHARACTER*(EXP_LEN), Allocatable, Public :: specExpression(:) CHARACTER*(EXP_LEN), Allocatable, Public :: specDesc(:) Public :: ReadSpec Private Interface Subroutine getFld( record, delimiter, nth, del, field, exception ) CHARACTER*(*), Intent( In ) :: record CHARACTER*(*), Intent( In ) :: delimiter CHARACTER, Intent( Out ) :: del Integer, Intent( In ) :: nth CHARACTER*(*), Intent( Out ) :: field CHARACTER*(*), Optional, Intent( In ) :: exception End Subroutine getFld INTEGER FUNCTION getFldCount(record, delimiter, exception) Result(nfields) CHARACTER*(*), Intent( In ) :: record CHARACTER*(*), Intent( In ) :: delimiter CHARACTER*(*), Optional, Intent( In ) :: exception End FUNCTION getFldCount Subroutine LeftTrim( STRING ) CHARACTER*(*), INTENT( INOUT ) :: STRING End Subroutine LeftTrim Subroutine RightTrim( STRING ) CHARACTER*(*), INTENT( INOUT ) :: STRING End Subroutine RightTrim SUBROUTINE UCASE ( STR ) CHARACTER, INTENT( INOUT ) :: STR*( * ) END SUBROUTINE UCASE Subroutine replace( string, old, new ) Character*(*), Intent( InOut ) :: string Character*(1), Intent( In ) :: old Character*(1), Intent( In ) :: new End Subroutine replace SUBROUTINE Remove_WhiteSpaces (text) CHARACTER*(*), Intent( InOut ) :: text END SUBROUTINE Remove_WhiteSpaces End Interface Contains cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c subroutine to read and load SPECFILE cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc Subroutine readSpec( specFile, status ) USE M3UTILIO USE M3FILES IMPLICIT NONE ! arguments CHARACTER*(*) specFile Integer status ! define external functions ! Integer getFldCount ! local variables Integer lfn Integer iostatus Character*(REC_LEN) record Character*(REC_LEN) NextRecord Character*(REC_LEN) field Character*(1) del Integer nflds Integer lenRec Integer sDate, sTime Integer eDate, eTime lfn = 20 sDate = 0 sTime = 0 eDate = 0 eTime = 0 Klayer = -1 numSpec = 0 maxSpec = MXVARS3 ! allocate species arrays if( .not. Allocated(specName) ) then Allocate( specName(maxSpec) ) Allocate( specUnits(maxSpec) ) Allocate( specExpression(maxSpec) ) Allocate( specDesc(maxSpec) ) endif ! open species definition file and fill arrays OPEN( UNIT=lfn, FILE=specFile, STATUS='OLD', IOSTAT=status) if( status.ne.0 ) return ! start read loop Do READ( lfn, '(a)', IOSTAT=iostatus ) RECORD IF( iostatus.ne.0 ) EXIT ! check for blank line IF ( ( LEN_TRIM(record) .eq. 0 ) .or. ( RECORD .eq. ' ' ) ) CYCLE ! check for cr character at end of line, and remove it if found lenRec = LEN_TRIM(record) if( record(lenRec:lenRec) .eq. char(13) ) record(lenRec:lenRec) = ' ' ! check for comment line IF ( index( '!/', RECORD(1:1) ) .gt. 0 ) CYCLE ! Check for parameter values IF ( RECORD( 1:1 ) .EQ. '#' ) THEN field = RECORD(2:8) CALL UCASE(field) IF ( field( 1:5 ) .EQ. 'START' ) & READ( RECORD(7:), *, IOSTAT=status ) sDate, sTime IF ( field( 1:3 ) .EQ. 'END' ) & READ( RECORD(5:), *, IOSTAT=status ) eDate, eTime IF ( field( 1:5 ) .EQ. 'LAYER' ) & READ( RECORD(7:), *, IOSTAT=status ) Klayer if( status.ne.0 ) then Write(*,'(''Invalid parameter record:'',a)') trim(record) return endif CYCLE ENDIF C...check if starting or ending dates where defined if( sDate .ne. 0 ) then if( SECSDIFF (startDate, startTime, sDate, sTime) .gt. 0 ) then startDate = sDate startTime = sTime endif endif if( eDate .ne. 0 ) then if( SECSDIFF (endDate, endTime, eDate, eTime) .lt. 0 ) then endDate = eDate endTime = eTime endif endif C...check for old specdef format if( index(record, ',').eq.0 .and. index(record, '=').eq.30) then Write(*,'(/''**Warning** Invalid Record,'', & '' Trying old Format''/)') Call readOld(lfn, status) return endif C...append any continuation records DO ! check for '\' character at end of line lenRec = LEN_TRIM(record) if( record(lenRec:lenRec) .eq. char(92) ) then READ( lfn, '(a)', IOSTAT=iostatus ) NEXTRECORD if( iostatus.ne.0 ) then Write(*,'(''**ERROR** EOF reading continuation record'')') EXIT endif Call LeftTrim( NEXTRECORD ) ! check for record length exceeded if( (lenRec + LEN_TRIM(NEXTRECORD)) .ge. REC_LEN ) then Write(*,'(//,''**ERROR** The maximum record length exceeded'')') Write(*,'(/,'' Species name ='',a)') record(1:16) Write(*,'('' Maximum length ='',i8)') REC_LEN Write(*,'('' Record length = '',i8)') lenRec + LEN_TRIM(NEXTRECORD) Stop endif ! append NEXTRECORD to record record = record(1:lenRec-1) // ' ' // TRIM(NEXTRECORD) ! check for cr character at end of line, and remove it if found lenRec = LEN_TRIM(record) if( record(lenRec:lenRec) .eq. char(13) ) record(lenRec:lenRec) = ' ' else EXIT endif Enddo if( iostatus.ne.0 ) EXIT C...check for species line nflds = getFldCount(record, ',') if( nflds.lt.3 ) then Write(*,'(''Invalid record found:'',a)') trim(record) Stop endif ! check for maximum species count if(numSpec.eq.maxSpec) then Write(*,'(''**ERROR** the number of species exceeds maximum'')') Stop endif ! save species line in arrays numSpec = numSpec+1 call getFld( record, ',', 1, del, specName(numSpec) ) call getFld( record, ',', 2, del, specUnits(numSpec) ) call getFld( record, ',', 3, del, field ) specExpression(numSpec) = field call getFld( record, ',', 4, del, specDesc(numSpec) ) if( specDesc(numSpec).eq.' ' ) specDesc(numSpec) = specExpression(numSpec) ! check if expression field is too long if( LEN_TRIM( field) .gt. EXP_LEN ) then Write(*,'(//,''**ERROR** The maximum expression length exceeded'')') Write(*,'(/,'' Species name ='',a)') TRIM( specName(numSpec) ) Write(*,'('' Maximum length ='',i8)') EXP_LEN Write(*,'('' Expression length = '',i8)') LEN_TRIM(field) Stop endif enddo ! close file and return close(unit=lfn) return End Subroutine readSpec cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c subroutine to read using old SPECFILE format cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc Subroutine readOld( lfn, status ) IMPLICIT NONE ! arguments Integer lfn Integer status ! local variables character*(256) record Integer iostatus, reclen character*(16) field1 ! new variable name character*(16) field2 ! variable units character*(1) field3 ! operator symbol character*(8) field4 ! muliply factor character*(1) field5 ! input file number character*(16) field6 ! input variable character*(70) field7 ! description Logical isnew character*(EXP_LEN) express backspace lfn ! start read loop Do READ( lfn, '(a)', IOSTAT=iostatus ) RECORD IF( iostatus.ne.0 ) EXIT ! check for comment line IF ( index( '!/#', RECORD(1:1) ) .gt. 0 ) CYCLE ! check for blank line reclen = LEN_TRIM( RECORD) if( reclen .le. 2 ) CYCLE if( RECORD(reclen:reclen).lt.' ') then RECORD(reclen:reclen) = ' ' if( LEN_TRIM( RECORD) .eq. 0 ) CYCLE endif Call readRec(record, field1, field2, field3, field4, & field5, field6, field7, status) if(status .ne. 0) then write(*,'(''<<---- Invalid species record ---->>'')') write(*,'(''>>'',a,''<<'',//)') trim(record) return endif Call LeftTrim( field4 ) ! left trim number field !determine if record has new variable ISNEW = (LEN_TRIM(field1) .gt. 0) if( ISNEW ) then IF ( numSpec .EQ. maxSpec ) return numSpec = numSpec + 1 specName(numSpec) = field1 specUnits(numSpec) = field2 specExpression(numSpec) = '(' // TRIM(field4) // '*' & // TRIM(field6) // '[' // field5 // '])' specDesc(numSpec) = field7 cycle endif ! if no specName defined cycle if( numSpec .EQ. 0 ) cycle ! add to previous species expression express = field3 // '(' // TRIM(field4) // '*' & // TRIM(field6) // '[' // field5 // ']))' specExpression(numSpec) = '(' // TRIM(specExpression(numSpec)) & // TRIM(express) enddo ! generate new specfile using new format Call genNewFile() return end Subroutine readOld C*********************************************************************** C routine to read variable record, (formated or unformatted) C*********************************************************************** Subroutine readRec(record, field1, field2, field3, field4, & field5, field6, field7, status) ! arguments character*(*) record character*(*) field1 ! new variable name character*(*) field2 ! variable units character*(*) field3 ! operator symbol character*(*) field4 ! muliply factor character*(*) field5 ! input file number character*(*) field6 ! input variable character*(*) field7 ! description integer status ! local variables logical ISFMT Real factor Integer stat, kfile character*(1) del status = 0 !determine if record is formatted or unformatted ISFMT = .TRUE. if( index('=+-*/',record(30:30)).eq.0 ) ISFMT = .FALSE. if( index(record(1:58),',').gt. 0 ) ISFMT = .FALSE. ! get input files from record if( ISFMT ) then field1 = record(2:17) field2 = record(19:28) field3 = record(30:30) field4 = record(32:39) field5 = record(41:41) field6 = record(43:58) field7 = record(60:129) else Call getFld( record, ',', 1, del, field1 ) Call getFld( record, ',', 2, del, field2 ) Call getFld( record, ',', 3, del, field3 ) Call getFld( record, ',', 4, del, field4 ) Call getFld( record, ',', 5, del, field5 ) Call getFld( record, ',', 6, del, field6 ) Call getFld( record, ',', 7, del, field7 ) endif ! verify fields if( index('=+*/',field3) .eq. 0 ) status = 3 read(field4,'(f8.0)',iostat=stat) factor if( stat.ne.0 ) status = 4 read(field5,'(I1)',iostat=stat) kfile if( stat.ne.0 ) status = 5 if( LEN_TRIM(field6) .eq. 0 ) status = 6 return end Subroutine readRec cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c subroutine to generate new SPECFILE from array data cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc Subroutine genNewFile() USE M3UTILIO IMPLICIT NONE C... local variables Character*(256) specFile INTEGER STATUS INTEGER lfn INTEGER n CHARACTER*1 REPLACE C...open variable definition file lfn = 21 specFile = 'specdef.new' OPEN( UNIT=lfn, FILE=SpecFile, STATUS='NEW', IOSTAT=status ) If(status.ne.0) then Write(*,'(/''New SPECDEF file: ['',a, & ''] cannot be opened as "NEW"'')') TRIM(SpecFile) Write(*,'(''Do you want to replace existing? (Y/N) '',$)') Read(*,'(a)') replace if( replace.ne.'Y' .and. replace.ne.'y' ) return OPEN( UNIT=lfn, FILE=SpecFile, IOSTAT=status ) if( status.ne.0 ) then Write(*,'(/''**ERROR** cannot open new SPECDEF file: ['', & a,'']'')') TRIM(SpecFile) return endif endif ! write header records write(lfn,'(''/#start YYYYDDD HHMMSS'')') write(lfn,'(''/#end YYYYDDD HHMMSS'')') write(lfn,'(''/#layer KLAY (default is all layers)'')') write(lfn,'(''/'')') write(lfn,'(''/new species ,units ,expression'')') do n = 1, numSpec Write(lfn,'(/a16,'', '',a16,'', '',a,'', '',a)') & specName(n), specUnits(n), TRIM(specExpression(n)), TRIM(specDesc(n)) enddo close(unit=lfn) write(*,'(/''-->New specdef file:['',a, & ''] generated from old format''/)') trim(specFile) return END Subroutine genNewFile End Module spec_def ================================================ FILE: POST/combine/src/utils.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/work/rep/TOOLS/src/combine/utils.F,v 1.1.1.1 2005/07/27 12:55:20 sjr Exp $ C*********************************************************************** C Returns the nth field of record C*********************************************************************** Subroutine getFld( record, delimiter, nth, del, field, exception ) IMPLICIT NONE CHARACTER*(*), Intent( In ) :: record CHARACTER*(*), Intent( In ) :: delimiter CHARACTER, Intent( Out ) :: del Integer, Intent( In ) :: nth CHARACTER*(*), Intent( Out ) :: field CHARACTER*(*), Optional, Intent( In ) :: exception Integer nfields Integer i, j, pos1 Integer nrec, nskip pos1 = 1 nfields = 0 del = delimiter(1:1) field = '' nrec = LEN(record) If( Present( exception ) )Then nskip = Len_Trim( exception ) Else nskip = 0 End If Loop_record: Do i=1, nrec If( index( delimiter,record(i:i) ) .gt. 0 )Then If( i .gt. 1 .And. nskip .Gt. 0 )Then Do j = 1, nskip If(record(i-1:i-1) .Eq. exception(j:j))Cycle Loop_record End Do End If nfields = nfields+1 If( nfields .eq. nth )Then If(pos1.le.i) field = record(pos1:i-1) call LeftTrim(field) call RightTrim(field) return End If del = record(i:i) pos1 = i+1 End If End Do Loop_record nfields = nfields+1 ! check If last field If( nfields .eq. nth ) Then field = record(pos1:) End If Call LeftTrim(field) Call RightTrim(field) Return End Subroutine getFld C*********************************************************************** C Returns the number of parsed fields in record C*********************************************************************** INTEGER FUNCTION getFldCount(record, delimiter, exception) & result(nfields) IMPLICIT NONE CHARACTER*(*), Intent( In ) :: record CHARACTER*(*), Intent( In ) :: delimiter CHARACTER*(*), Optional, Intent( In ) :: exception Integer i, j Integer nskip, nrec Logical isDel nfields = 0 If( Present( exception ) )Then nskip = Len_Trim( exception ) Else nskip = 0 End If nrec = LEN_TRIM(record) If( nrec.gt.0 ) nfields = 1 Loop_record: Do i=1,nrec isDel = ( index(delimiter, record(i:i)) .gt. 0 ) If( isDel ) Then If( i .gt. 1 .And. nskip .Gt. 0 )Then Do j = 1, nskip If( record(i-1:i-1) .Eq. exception(j:j))Then Cycle Loop_record End If End Do End If nfields = nfields+1 cycle End If End Do Loop_record Return End FUNCTION getFldCount C*********************************************************************** C routine to remove leading blank spaces from Character String C*********************************************************************** Subroutine LeftTrim( STRING ) IMPLICIT NONE CHARACTER*(*), INTENT( INOUT ) :: STRING Integer I Do I=1,LEN(STRING) If(STRING(I:I) .ne. CHAR(32)) Then STRING = STRING(I:) RETURN EndIf EndDo Return End Subroutine LeftTrim C*********************************************************************** C routine to remove trailing white spaces from Character String C*********************************************************************** Subroutine RightTrim( STRING ) IMPLICIT NONE CHARACTER*(*), INTENT( INOUT ) :: STRING Integer I Do I=LEN(STRING),1,-1 If(STRING(I:I) .lt. CHAR(32)) STRING(I:I) = CHAR(32) If(STRING(I:I) .gt. CHAR(32)) Exit EndDo Return End Subroutine RightTrim C*********************************************************************** C Routine to change character string to upper characters C*********************************************************************** SUBROUTINE UCASE ( STR ) IMPLICIT NONE CHARACTER, INTENT( INOUT ) :: STR*( * ) INTEGER I INTEGER K DO I = 1, LEN(STR) K = ICHAR(STR(I:I)) IF ( ( K .GE. 97 ) .AND. ( K .LE. 122 ) ) & STR( I:I ) = CHAR( K - 32 ) END DO RETURN END SUBROUTINE UCASE C**************************************************************************** C routine to replace characters within [] C**************************************************************************** Subroutine replace( string, old, new ) Implicit none ! arguments Character*(*), Intent( InOut ) :: string Character*(1), Intent( In ) :: old Character*(1), Intent( In ) :: new ! local variables Integer last, i Logical infield ! If no bracket marks, return If( index(string, '[').le.0 ) return call LeftTrim(string) last = LEN_TRIM(string) ! check for blank string If( last.le.0 ) return infield = .false. Do i=1,last If( string(i:i).eq.'[' ) infield = .true. If( string(i:i).eq.']' ) infield = .false. If( infield .and. string(i:i).eq.old) string(i:i) = new End Do Return End Subroutine replace SUBROUTINE Remove_WhiteSpaces (text) Implicit None CHARACTER*(*), Intent( InOut ) :: text CHARACTER(Len(text)) :: outs ! provide outs with extra 100 char len INTEGER :: i, nt nt = LEN_TRIM(text) If( text(1:1) .Eq. ' ' )Then outs = text(2:nt) nt = nt-1 Else outs = text(1:nt) End If i = 2 DO nt = LEN_TRIM(outs) IF (i .Eq. nt ) EXIT IF( outs(i:i) .Eq. ' ' )THEN outs = outs(1:i-1) // outs(i+1:nt) ELSE i = i + 1 END IF END DO text = outs END SUBROUTINE Remove_WhiteSpaces ================================================ FILE: POST/hr2day/README.md ================================================ hr2day ======== This Fortran program creates gridded IOAPI files with daily values from gridded IOAPI files containing hourly values. ## Environment Run Time Variables: ``` USELOCAL use local time when computing daily values (default N) USEDST use daylight savings time when computing daily values (default N) TZFILE location of time zone data file, tz.csv (this is a required input file) The time zone file has a header record for each time zone followed by the points in longitude/latitude that define its boundary polygon. * Header record (%d,%d,%s): n points in polygon,hour offset,description * Point records (%.4f,%.4f): longitude,latitude Two time zone files are provided with hr2day: * tz_legacy.csv: Old file with unknown source and some known issues. * tz.csv was created 2023-06-09 by Barron H. Henderson from the the Natural Earth time zone shapefile (v4.1.0) at 10m resolution. Shapefil available from https://www.naturalearthdata.com/ PARTIAL_DAY allow use of partial days when computing daily values. If this is set to N, the program will require at least 18 out of 24 values to be present in the time zone of interest to compute a daily value (default N) START_HOUR starting hour to use when computing daily values (default 0) END_HOUR ending hour to use when computing daily values (default 23) HOURS_8HRMAX Number of 8hr values to use when computing daily maximum 8hr ozone. Allowed values are 24 (use all 8-hr averages with starting hours from 0 - 23 hr local time) and 17 (use only the 17 8-hr averages with starting hours from 7 - 23 hr local time) (default is 24) M3_FILE_# List of input IOAPI file names with hourly values. If only a single input file is provided, INFILE can be used instead of M3_FILE_1. The program will concatenate time steps from all input files to construct the longest possible time record which can be processed. Duplicate time steps are eliminated. The maximum number of IOAPI files is set to be one less than the global IOAPI parameter MXFILE3. Since this parameter is currently set to 64 (https://www.cmascenter.org/ioapi/documentation/all_versions/html/TUTORIAL.html), the maximum number of IOAPI input files is 63. Supported map projections are Lambert conformal, polar stereographic, and lat/lon OUTFILE output IOAPI file name with computed daily values SPECIES_# Defines the name, units, expression and daily operation for each variable in OUTFILE. For configuration options see below. ``` ## Environment Run Time Variables (not required): ``` IOAPI_ISPH projection sphere type (use type #20 to match WRF/CMAQ) (ioapi default is 8) START_DATE Optional desired first and last processing date. END_DATE The program will adjust the requested dates if the desired range is not covered by the input file(s). If these dates are not specified, the processing will be performed for the longest possible time record that can be derived from the model input file(s). ``` ## Species and operator definitions: Defines the name, units, expression and daily operation for each variable in OUTFILE. These definitions are specified by environment variables SPECIES_[n] ``` format: SPECIES_1 = "[variable1_name], [variable1_units], [model_expression1], [operation1]" SPECIES_2 = "[variable2_name], [variable2_units], [model_expression2], [operation2]" variable[n]_name: desired name of the daily output variable, maximum 16 characters variable[n]_units: units of the daily output variable, maximum 16 characters model_expression[n]: Formular expressions supports operators +-*/ and are evaluated from left to right using precedence order of */+-. Order of evaluation can be forced by use of parentheses. When part of an expression is enclosed in parentheses, that part is evaluated first. Other supported functions include "LOG", "EXP", "SQRT", and "ABS". In addition, expresssions can be combined to create conditional statements of the form: "expression_for_condition ? expresssion_if_true : expression_if_false". operation[n]: daily operation to perform. Options are SUM - sums the 24 hour values AVG- sums the 24 values and divides by 24 MIN- uses the minimum hourly value MAX- uses the maximum hourly value HR@MIN - hour of the minimum hourly value HR@MAX - hour of the maximum hourly value @MAXT - uses the hourly value at maximum temperature MAXDIF - uses the maximum hourly change 8HRMAX - uses the maximum 8 hour period W126 - computes the W126 daily index value as a weighted average of ozone concentrations between 8am & 7pm. These daily index values can then be used to calculate annual W126 values for the secondary ozone standard by first computing 3-month sums of daily W126 index values and then determining the consecutive three month period with the largest 3-month sum of daily W126 values. @8HRMAXO3 - averages the value within the 8-hr-max ozone period HR@8HRMAX - Starting hour of the 8-hr-max period SUM06 - computes the SUM06 ozone value TZ - outputs the time zone offset used by hr2day. For example, a cell in Eastern Standard Time (UTC-0500) would output -5. examples: setenv SPECIES_1 "O3,ppbV,1000*O3,8HRMAX" (computes the 8-hr daily maximum value of 1000 * O3 from INFILE (assumed to be in ppmV) and writes the result to OUTFILE as O3 with units ppbV) setenv SPECIES_2 "ASO4J_AVG,ug/m3,ASO4J,AVG" (computes the 24-hr average value of ASO4J from INFILE (assumed to be in ug/m3) and writes the result to OUTFILE as ASO4J_AVG with units ug/m3) setenv SPECIES_3 "ASO4J_MAX,ug/m3,ASO4J,MAX" (computes the daily maximum value of ASO4J from INFILE (assumed to be in ug/m3) and writes the result to OUTFILE as ASO4J_MAX with units ug/m3) setenv SPECIES_4 "UTCOFFSET,hours since UTC,O3,TZ" (hr2day assigns each grid cell a time zone offset in hours since UTC from TZFILE. This writes the result to OUTFILE as UTCOFFSET with units hours since UTC. Although TZ does not use the expression (here O3), it must be a valid field to pass input checking.) ``` ## Compile hr2day source code: Execute the build script to compile hr2day: ``` cd $CMAQ_HOME/POST/hr2day/scripts ./bldit_hr2day.csh [compiler] [version] |& tee build_hr2day.log ``` ## Run hr2day: Edit the sample run script (run.hr2day.make8hrmax), then run: ``` ./run.hr2day |& tee hr2day.log ``` Check the log file to ensure complete and correct execution without errors. ================================================ FILE: POST/hr2day/inputs/tz.csv ================================================ 210,-10.0,Arctic Ocean -142.4651,74.9001 -142.4631,74.4463 -142.4611,73.9924 -142.4592,73.5385 -142.4572,73.0846 -142.4552,72.6307 -142.4533,72.1768 -142.4513,71.7229 -142.4494,71.2690 -142.4474,70.8152 -142.4454,70.3613 -142.4405,70.2273 -142.4880,70.2384 -142.6769,70.2705 -143.1592,70.3249 -143.5411,70.3334 -143.6786,70.3298 -143.9229,70.3051 -144.2419,70.2844 -144.4353,70.2533 -144.5964,70.2387 -144.7558,70.2099 -144.8145,70.2056 -144.9719,70.2341 -145.1166,70.2489 -145.3333,70.2936 -145.5389,70.3478 -145.7497,70.3771 -145.8526,70.3819 -146.0094,70.3810 -146.1855,70.3926 -146.4777,70.3964 -146.7699,70.4002 -146.9038,70.3992 -147.0733,70.3901 -147.1757,70.3938 -147.2864,70.4116 -147.4222,70.4592 -147.5484,70.4890 -147.7476,70.5153 -147.9394,70.5506 -148.1780,70.5635 -148.2556,70.5721 -148.3191,70.5883 -148.4693,70.6455 -148.5491,70.6679 -148.9782,70.7409 -149.1194,70.7560 -149.2436,70.7594 -149.3712,70.7559 -149.6687,70.7251 -149.9400,70.7174 -150.1858,70.6963 -150.5214,70.7158 -150.8104,70.7118 -150.9840,70.6991 -151.1607,70.6701 -151.1964,70.6684 -151.3902,70.7317 -151.4825,70.7507 -151.5957,70.7663 -151.6029,70.8526 -151.6694,70.9172 -151.8182,70.9845 -151.9167,71.0139 -152.0218,71.0365 -152.2377,71.0693 -152.3901,71.0863 -152.7503,71.1034 -153.1834,71.1345 -153.2992,71.1359 -153.4159,71.1314 -153.6891,71.0998 -154.0231,71.1014 -154.1358,71.1582 -154.3629,71.2416 -154.4445,71.2635 -154.5988,71.2906 -154.7375,71.3277 -154.8590,71.3464 -154.9903,71.3570 -155.1101,71.3594 -155.2704,71.3542 -155.3877,71.3734 -155.6819,71.4087 -155.7444,71.4224 -155.7938,71.4684 -155.8859,71.5158 -155.9701,71.5472 -156.0686,71.5737 -156.1924,71.5965 -156.3134,71.6101 -156.4405,71.6162 -156.5706,71.6141 -156.7079,71.6014 -156.8584,71.5747 -157.0164,71.5338 -157.2076,71.4723 -157.3509,71.4183 -157.4802,71.3599 -157.5260,71.3309 -157.5256,71.3783 -157.5256,71.6278 -157.5256,72.0952 -157.5256,72.5627 -157.5256,73.0302 -157.5256,73.4976 -157.5256,73.9651 -157.5256,74.4325 -157.5256,74.9000 -157.5256,75.3545 -157.5256,75.8091 -157.5256,76.2636 -157.5256,76.7182 -157.5256,77.1727 -157.5256,77.6273 -157.5256,78.0818 -157.5256,78.5364 -157.5256,78.9909 -157.5256,79.4455 -157.5256,79.9000 -157.5256,80.3545 -157.5256,80.8091 -157.5256,81.2636 -157.5256,81.7182 -157.5256,82.1727 -157.5256,82.6273 -157.5256,83.0818 -157.5256,83.5364 -157.5256,83.9909 -157.5256,84.4455 -157.5256,84.9000 -157.5256,85.3636 -157.5256,85.8273 -157.5256,86.2909 -157.5256,86.7545 -157.5256,87.2182 -157.5256,87.6818 -157.5256,88.1455 -157.5256,88.6091 -157.5256,89.0727 -157.5256,89.5364 -157.5256,90.0000 -157.0846,90.0000 -156.6436,90.0000 -156.2025,90.0000 -155.7615,90.0000 -155.3204,90.0000 -154.8794,90.0000 -154.4384,90.0000 -153.9973,90.0000 -153.5563,90.0000 -153.1153,90.0000 -152.6742,90.0000 -152.2332,90.0000 -151.7922,90.0000 -151.3511,90.0000 -150.9101,90.0000 -150.4691,90.0000 -150.0280,90.0000 -149.5870,90.0000 -149.1460,90.0000 -148.7049,90.0000 -148.2639,90.0000 -147.8229,90.0000 -147.3818,90.0000 -146.9408,90.0000 -146.4998,90.0000 -146.0587,90.0000 -145.6177,90.0000 -145.1766,90.0000 -144.7356,90.0000 -144.2946,90.0000 -143.8535,90.0000 -143.4125,90.0000 -142.9715,90.0000 -142.5304,90.0000 -142.5284,89.5364 -142.5264,89.0727 -142.5244,88.6091 -142.5224,88.1455 -142.5204,87.6818 -142.5184,87.2182 -142.5164,86.7546 -142.5144,86.2909 -142.5124,85.8273 -142.5104,85.3637 -142.5084,84.9000 -142.5064,84.4455 -142.5044,83.9910 -142.5025,83.5364 -142.5005,83.0819 -142.4985,82.6273 -142.4966,82.1728 -142.4946,81.7183 -142.4926,81.2637 -142.4907,80.8092 -142.4887,80.3546 -142.4867,79.9001 -142.4848,79.4456 -142.4828,78.9910 -142.4808,78.5365 -142.4789,78.0819 -142.4769,77.6274 -142.4749,77.1728 -142.4729,76.7183 -142.4710,76.2638 -142.4690,75.8092 -142.4670,75.3547 -142.4651,74.9001 6127,-3.0,America/Sao_Paulo -37.5492,84.9000 -37.5492,84.5153 -37.5492,84.1306 -37.5492,83.7459 -37.5481,83.7466 -37.5477,83.7468 -37.5481,83.7463 -37.5383,83.7197 -37.3868,83.7275 -37.0688,83.7370 -36.7543,83.7409 -36.4195,83.7410 -36.0847,83.7412 -35.8449,83.7648 -35.6284,83.7809 -35.3602,83.7949 -35.0920,83.8040 -34.8905,83.8070 -34.6718,83.8074 -34.1810,83.8042 -33.9274,83.8003 -33.7936,83.8033 -33.4482,83.8148 -33.1027,83.8263 -32.8369,83.8330 -32.5168,83.8361 -32.2000,83.8336 -31.8919,83.8254 -31.5651,83.8098 -31.3886,83.8069 -31.1190,83.7993 -30.7888,83.8030 -30.5958,83.8035 -30.3863,83.8017 -30.1791,83.7971 -29.8124,83.7827 -29.4447,83.7644 -29.0770,83.7461 -28.7093,83.7279 -28.6080,83.7249 -28.2073,83.7185 -27.8829,83.7064 -27.6616,83.6927 -27.3910,83.6695 -27.1984,83.6480 -27.0058,83.6196 -26.8900,83.6085 -26.4300,83.5797 -25.9700,83.5510 -25.5101,83.5222 -25.2445,83.5046 -24.9789,83.4870 -24.6072,83.4595 -24.3537,83.4325 -24.1768,83.4051 -24.0452,83.3757 -23.9597,83.3422 -23.9221,83.3104 -23.7476,83.2892 -23.5984,83.2652 -23.4729,83.2389 -23.3056,83.1962 -23.2255,83.1699 -23.1791,83.1467 -23.1590,83.1233 -23.1628,83.0952 -22.9855,83.0821 -22.8526,83.0693 -22.7197,83.0534 -22.6825,83.0481 -22.5421,83.0281 -22.5074,83.0243 -22.4556,83.0187 -22.2140,83.0003 -21.9372,82.9852 -21.7835,82.9749 -21.6103,82.9600 -21.4387,82.9415 -21.3207,82.9261 -21.1976,82.9056 -21.0563,82.8906 -20.6976,82.8458 -20.4687,82.8118 -20.0326,82.7390 -19.9381,82.7186 -19.8621,82.6968 -19.7736,82.6525 -19.7487,82.6070 -19.7748,82.5724 -19.8943,82.5069 -19.9863,82.4741 -20.0904,82.4488 -20.2018,82.4295 -20.4772,82.3883 -20.6996,82.3484 -20.8570,82.2907 -20.8682,82.2783 -20.8463,82.2714 -20.6575,82.2586 -20.6087,82.2578 -20.3470,82.2858 -20.1058,82.3037 -19.8225,82.3155 -19.4783,82.3214 -19.2445,82.3209 -19.0191,82.3150 -18.8058,82.3042 -18.6071,82.2891 -18.4256,82.2701 -18.2637,82.2480 -18.1241,82.2232 -17.9853,82.1915 -17.8403,82.1517 -17.7085,82.1085 -17.6449,82.0666 -17.5488,82.0336 -17.3306,81.9374 -17.1691,81.9273 -17.1248,81.9304 -16.9733,81.9499 -16.7284,81.9847 -16.5682,82.0015 -16.3111,82.0202 -16.0201,82.0310 -15.7480,82.0350 -15.4759,82.0390 -15.2090,82.0394 -14.8887,82.0322 -14.7489,82.0258 -14.6049,82.0161 -14.2449,82.0151 -13.8849,82.0142 -13.6637,82.0108 -13.4350,82.0022 -13.2332,81.9894 -13.0325,81.9709 -12.5718,81.9194 -12.2294,81.9010 -11.8701,81.8727 -11.5475,81.8389 -11.2248,81.8051 -11.0321,81.7800 -10.8971,81.7575 -10.7757,81.7320 -10.6713,81.7049 -10.4903,81.6397 -10.3247,81.6109 -10.1891,81.5787 -10.0994,81.5502 -10.0440,81.5227 -10.0117,81.4812 -10.0388,81.4365 -10.1233,81.3930 -10.2794,81.3421 -10.4532,81.2932 -10.5922,81.2631 -10.7574,81.2369 -10.9902,81.2088 -11.0692,81.1946 -11.2150,81.1573 -11.3311,81.1064 -11.4247,81.0796 -11.6146,81.0425 -12.0910,80.9661 -12.2048,80.9269 -12.3314,80.8967 -12.4422,80.8770 -12.5683,80.8596 -12.8785,80.8304 -12.9392,80.7844 -13.0314,80.7401 -13.1545,80.6975 -13.2938,80.6623 -13.5049,80.6279 -13.8976,80.5815 -14.0819,80.5642 -14.3371,80.5472 -14.4658,80.5195 -14.5869,80.4988 -14.6031,80.4872 -14.5491,80.4462 -14.5432,80.4053 -14.5866,80.3660 -14.6695,80.3286 -14.8174,80.2850 -15.2059,80.1945 -15.3277,80.1435 -15.5105,80.0953 -15.6355,80.0720 -15.7656,80.0538 -15.9230,80.0381 -16.0937,80.0256 -16.0983,79.9901 -16.1223,79.9613 -16.2867,79.8721 -16.6891,79.7037 -16.8256,79.6505 -16.8916,79.6305 -16.9827,79.6098 -17.1002,79.5888 -17.3682,79.5502 -17.4387,79.5490 -17.9198,79.5572 -18.4008,79.5654 -18.8819,79.5737 -19.3630,79.5819 -19.8440,79.5901 -20.3251,79.5983 -20.8061,79.6066 -21.2872,79.6148 -21.7682,79.6230 -22.2493,79.6312 -22.7304,79.6395 -22.7541,79.1784 -22.7779,78.7174 -22.8017,78.2564 -22.8255,77.7954 -22.8493,77.3344 -22.8731,76.8734 -22.8969,76.4124 -22.9207,75.9514 -22.4701,75.9342 -22.0194,75.9170 -21.5688,75.8998 -21.1181,75.8825 -20.6675,75.8653 -20.2169,75.8481 -19.7662,75.8309 -19.3156,75.8137 -18.8649,75.7965 -18.3964,75.7786 -18.0260,75.7514 -18.0389,75.7476 -18.1842,75.7191 -18.3400,75.7000 -18.5296,75.6870 -18.5960,75.6427 -18.6036,75.6205 -18.5890,75.6112 -18.5407,75.6086 -18.1317,75.6247 -17.8999,75.6216 -17.6756,75.6024 -17.5648,75.5855 -17.4689,75.5656 -17.3262,75.5243 -17.2602,75.4990 -17.2544,75.4968 -17.1569,75.4593 -17.1331,75.4457 -17.1019,75.4278 -17.0888,75.4204 -16.9844,75.3402 -16.7836,75.2977 -16.6315,75.2444 -16.5386,75.1822 -16.5204,75.1516 -16.5205,75.1206 -16.5505,75.0715 -16.5697,74.9951 -16.5984,74.9655 -16.6469,74.9353 -16.9282,74.8248 -17.0519,74.7890 -17.2444,74.7545 -17.4995,74.7326 -17.5209,74.7280 -17.5735,74.5873 -17.6221,74.5500 -17.7083,74.5123 -17.7975,74.4856 -17.9012,74.4629 -18.0309,74.4429 -18.1802,74.4283 -18.2485,74.4120 -18.3173,74.3797 -18.5219,74.2479 -18.6652,74.1913 -18.7466,74.1514 -18.8557,74.1175 -18.9496,74.0967 -19.0476,74.0813 -19.3412,74.0471 -19.4719,74.0380 -19.5855,73.9445 -19.5531,73.9232 -19.5267,73.8857 -19.5193,73.8434 -19.5385,73.7920 -19.5931,73.7316 -19.6501,73.6928 -19.7368,73.6545 -19.6752,73.5730 -19.6605,73.5271 -19.6785,73.4704 -19.7325,73.4158 -19.8328,73.3607 -19.9715,73.3128 -20.1036,73.2823 -20.4057,73.2301 -20.4718,73.2119 -20.4966,73.1910 -20.4569,73.1390 -20.4713,73.0965 -20.5360,73.0403 -20.6359,72.9919 -20.7210,72.9662 -20.7790,72.9539 -20.7863,72.9523 -20.8257,72.9439 -21.1795,72.8958 -21.2033,72.8496 -21.2434,72.8109 -21.1855,72.7495 -21.1824,72.6889 -21.2018,72.6605 -21.2841,72.5989 -21.3061,72.5701 -21.2881,72.5309 -21.5193,72.3367 -21.5668,72.2969 -21.7850,72.1136 -22.0526,72.0403 -22.3201,71.9670 -22.3229,71.9663 -22.6544,72.0547 -23.0080,72.1357 -23.0602,72.1674 -23.1492,72.1865 -23.5517,72.2742 -23.9541,72.3620 -24.3924,72.5149 -24.4362,72.0304 -24.4800,71.5459 -24.5238,71.0614 -24.5677,70.5769 -24.1989,70.4944 -23.8302,70.4118 -23.3762,70.3602 -22.9222,70.3086 -22.5095,70.2829 -22.0968,70.2571 -21.7484,70.2116 -21.7590,70.2036 -21.7226,70.2090 -21.5060,70.2264 -21.4655,70.1325 -21.4747,70.0951 -21.5041,70.0571 -21.5642,70.0082 -21.6496,69.9562 -21.8870,69.8450 -22.0475,69.7973 -22.2457,69.7665 -22.3113,69.7505 -22.4366,69.6701 -22.5139,69.6393 -22.5236,69.6355 -22.6647,69.5934 -22.7468,69.5358 -22.7998,69.5154 -22.8506,69.4958 -22.9907,69.4636 -23.1766,69.4389 -23.3227,69.3820 -23.5820,69.3188 -23.6750,69.2757 -23.7735,69.2457 -23.8684,69.2265 -24.0450,69.2034 -24.2025,69.1169 -24.3318,69.0756 -24.5122,69.0377 -24.6276,68.9763 -24.7721,68.9135 -25.0703,68.8083 -25.2238,68.7256 -25.2463,68.7200 -25.4666,68.6656 -25.6230,68.6166 -25.7732,68.5905 -26.0350,68.5004 -26.1376,68.4760 -26.2526,68.4584 -26.6023,68.4363 -26.9663,68.3551 -27.2313,68.3242 -27.4337,68.2856 -27.6493,68.2649 -27.8043,68.2602 -27.9667,68.2383 -28.1923,68.2205 -28.3810,68.1747 -28.7718,68.1114 -29.0590,68.0298 -29.1578,68.0082 -29.2847,67.9942 -29.4485,67.9899 -29.5942,67.9565 -29.7266,67.9350 -30.0132,67.8980 -30.2998,67.8610 -30.4351,67.8509 -30.6460,67.8534 -30.8381,67.8366 -30.9870,67.8319 -31.1683,67.8403 -31.3856,67.8679 -31.4990,67.8664 -31.6617,67.7460 -31.7722,67.6935 -31.8644,67.6685 -31.9675,67.6513 -32.1945,67.6433 -32.2545,67.6346 -32.5867,67.5159 -32.6674,67.4793 -32.7169,67.4359 -32.7029,67.3544 -32.7097,67.3019 -32.7401,67.2379 -32.7899,67.1750 -32.8817,67.0874 -32.9531,67.0379 -33.1063,66.9516 -33.2872,66.8736 -33.3063,66.8474 -33.3163,66.7687 -33.3739,66.7038 -33.5425,66.6157 -33.7061,66.5559 -33.8833,66.4341 -34.0563,66.3794 -34.2217,66.2538 -34.3046,66.2127 -34.4195,66.1693 -34.6402,66.1120 -34.7964,66.0628 -35.0426,66.0299 -35.1136,66.0144 -35.2660,65.9453 -35.4485,65.9066 -35.5147,65.8719 -35.6263,65.8292 -35.8404,65.7160 -36.0313,65.6532 -36.1889,65.6210 -36.3899,65.6071 -36.4542,65.5668 -36.5672,65.4528 -36.6176,65.4163 -36.7075,65.3770 -36.8323,65.3455 -37.0070,65.3243 -37.2076,65.3220 -37.2990,65.3297 -37.3951,65.3454 -37.5310,65.3676 -37.5436,65.1704 -37.5492,65.1684 -37.5492,64.9684 -37.5492,64.5139 -37.5492,64.0593 -37.5492,63.6048 -37.5492,63.1502 -37.5492,62.6957 -37.5492,62.2412 -37.5492,61.7866 -37.5492,61.3321 -37.5492,60.8775 -37.5492,60.4230 -37.5492,59.9684 -37.5492,59.5139 -37.5492,59.0593 -37.5492,58.6048 -37.5492,58.1502 -37.5492,57.6957 -37.5492,57.2412 -37.5492,56.7866 -37.5492,56.3321 -37.5492,55.8775 -37.5492,55.4230 -37.5492,54.9684 -37.5492,54.5139 -37.5492,54.0593 -37.5492,53.6048 -37.5492,53.1502 -37.5492,52.6957 -37.5492,52.2412 -37.5492,51.7866 -37.5492,51.3321 -37.5492,50.8775 -37.5492,50.4230 -37.5492,49.9684 -37.5492,49.5139 -37.5492,49.0593 -37.5492,48.6048 -37.5492,48.1502 -37.5492,47.6957 -37.5492,47.2412 -37.5492,46.7866 -37.5492,46.3321 -37.5492,45.8775 -37.5492,45.4230 -37.5492,44.9684 -37.5492,44.5139 -37.5492,44.0593 -37.5492,43.6048 -37.5492,43.1502 -37.5492,42.6957 -37.5492,42.2412 -37.5492,41.7866 -37.5492,41.3321 -37.5492,40.8775 -37.5492,40.4230 -37.5492,39.9684 -37.5492,39.5139 -37.5492,39.0593 -37.5492,38.6048 -37.5492,38.1502 -37.5492,37.6957 -37.5492,37.2412 -37.5492,36.7866 -37.5492,36.3321 -37.5492,35.8775 -37.5492,35.4230 -37.5492,34.9684 -37.5492,34.5139 -37.5492,34.0593 -37.5492,33.6048 -37.5492,33.1502 -37.5492,32.6957 -37.5492,32.2412 -37.5492,31.7866 -37.5492,31.3321 -37.5492,30.8775 -37.5492,30.4230 -37.5492,29.9684 -37.5492,29.5084 -37.5492,29.0484 -37.5492,28.5884 -37.5492,28.1284 -37.5492,27.6684 -37.5492,27.2084 -37.5492,26.7484 -37.5492,26.2884 -37.5492,25.8284 -37.5492,25.3684 -37.5492,24.9139 -37.5492,24.4593 -37.5492,24.0048 -37.5492,23.5502 -37.5492,23.0957 -37.5492,22.6412 -37.5492,22.1866 -37.5492,21.7321 -37.5492,21.2775 -37.5492,20.8230 -37.5492,20.3684 -37.5492,19.9139 -37.5492,19.4593 -37.5492,19.0048 -37.5492,18.5502 -37.5492,18.0957 -37.5492,17.6412 -37.5492,17.1866 -37.5492,16.7321 -37.5492,16.2775 -37.5492,15.8230 -37.5492,15.3684 -37.5492,15.3661 -37.5492,14.9115 -37.5492,14.4570 -37.5492,14.0025 -37.5492,13.5479 -37.5492,13.0934 -37.5492,12.6388 -37.5492,12.1843 -37.5492,11.7297 -37.5492,11.2752 -37.5492,10.8206 -37.5492,10.3661 -37.5492,9.9115 -37.5492,9.4570 -37.5492,9.0025 -37.5492,8.5479 -37.5492,8.0934 -37.5492,7.6388 -37.5492,7.1843 -37.5492,6.7297 -37.5492,6.2752 -37.5492,5.8206 -37.5492,5.3661 -37.5492,4.9115 -37.5492,4.4570 -37.5492,4.0025 -37.5492,3.5479 -37.5492,3.0934 -37.5492,2.6388 -37.5492,2.1843 -37.5492,1.7297 -37.5492,1.2752 -37.5492,0.8206 -37.5492,0.3661 -37.5492,-0.1072 -37.5492,-0.5805 -37.5492,-1.0539 -37.5492,-1.5272 -37.5492,-2.0005 -37.5492,-2.4738 -37.5492,-2.9471 -37.5492,-3.4204 -37.5492,-3.8937 -37.5492,-4.3670 -37.5437,-4.3746 -37.5187,-4.4088 -37.2825,-4.4943 -37.1788,-4.5528 -37.0409,-4.7268 -36.8282,-4.7507 -36.6882,-4.8630 -36.6195,-4.8850 -36.2298,-4.8906 -36.0079,-4.8465 -35.8719,-4.8552 -35.4856,-4.9461 -35.3942,-4.9852 -35.3084,-5.0423 -35.2447,-5.1026 -35.1844,-5.1876 -35.0550,-5.4610 -34.9742,-5.7622 -34.9125,-5.9329 -34.8952,-6.0602 -34.7864,-6.3685 -34.7387,-6.6734 -34.6232,-6.9579 -34.5946,-7.2183 -34.5935,-7.6415 -34.6267,-7.7863 -34.6069,-7.8934 -34.6139,-7.9746 -34.6987,-8.2599 -34.8138,-8.5817 -34.9288,-8.9035 -35.0158,-9.1062 -35.1080,-9.2718 -35.3977,-9.6323 -35.4864,-9.7188 -35.5374,-9.8056 -35.6584,-9.8936 -35.8947,-10.2026 -36.0543,-10.3643 -36.2591,-10.6462 -36.3391,-10.7002 -36.6020,-10.8150 -36.7219,-10.8995 -36.8015,-10.9801 -36.9352,-11.2304 -37.0876,-11.4114 -37.1499,-11.5309 -37.2566,-11.6854 -37.4395,-12.0691 -37.5435,-12.2563 -37.5490,-12.2662 -37.5490,-12.7570 -37.5490,-13.2477 -37.5490,-13.7385 -37.5490,-14.2293 -37.5490,-14.7201 -37.5490,-15.2108 -37.5490,-15.7016 -37.5490,-16.1924 -37.5490,-16.6831 -37.5490,-17.1739 -37.5490,-17.6284 -37.5490,-18.0830 -37.5490,-18.5375 -37.5490,-18.9921 -37.5490,-19.4466 -37.5490,-19.9012 -37.5490,-20.3557 -37.5490,-20.8103 -37.5490,-21.2648 -37.5490,-21.7193 -37.5490,-22.1739 -37.5490,-22.6284 -37.5490,-23.0830 -37.5490,-23.5375 -37.5490,-23.9921 -37.5490,-24.4466 -37.5490,-24.9012 -37.5490,-25.3557 -37.5490,-25.8103 -37.5490,-26.2648 -37.5490,-26.7193 -37.5490,-27.1739 -37.5490,-27.6284 -37.5490,-28.0830 -37.5490,-28.5375 -37.5490,-28.9921 -37.5491,-29.4466 -37.5491,-29.9012 -37.5491,-30.3557 -37.5491,-30.8103 -37.5491,-31.2648 -37.5491,-31.7193 -37.5491,-32.1739 -37.5491,-32.6284 -37.5491,-33.0830 -37.5491,-33.5375 -37.5491,-33.9921 -37.5491,-34.4466 -37.5491,-34.9012 -37.5491,-35.3557 -37.5491,-35.8103 -37.5491,-36.2648 -37.5491,-36.7193 -37.5491,-37.1739 -37.5491,-37.6284 -37.5491,-38.0830 -37.5491,-38.5375 -37.5491,-38.9921 -37.5491,-39.4466 -37.5491,-39.9012 -37.5491,-40.3557 -37.5491,-40.8103 -37.5491,-41.2648 -37.5491,-41.7193 -37.5491,-42.1739 -37.5491,-42.6653 -37.5491,-43.1567 -37.5491,-43.6482 -37.5491,-44.1396 -37.5491,-44.6310 -37.5491,-45.1224 -37.5491,-45.6139 -37.5491,-46.1053 -37.5491,-46.5967 -37.5491,-47.0881 -37.5491,-47.5427 -37.5491,-47.9972 -37.5491,-48.4518 -37.5491,-48.9063 -37.5491,-49.3609 -37.5491,-49.8154 -37.5491,-50.2700 -37.5491,-50.7245 -37.5491,-51.1790 -37.5491,-51.6336 -37.5491,-52.0881 -38.0423,-52.0881 -38.5355,-52.0881 -39.0287,-52.0881 -39.5218,-52.0881 -40.0150,-52.0881 -40.0388,-52.0881 -40.0443,-52.0881 -40.5438,-52.0881 -41.0432,-52.0881 -41.5427,-52.0881 -42.0421,-52.0881 -42.5416,-52.0881 -43.0410,-52.0881 -43.5405,-52.0881 -44.0399,-52.0881 -44.5394,-52.0881 -45.0388,-52.0881 -45.0392,-52.5618 -45.0392,-53.0367 -45.0392,-53.5092 -45.0392,-53.9853 -45.0392,-54.4590 -45.0388,-54.9339 -44.5409,-54.9339 -44.0429,-54.9339 -43.5450,-54.9339 -43.0471,-54.9339 -42.5491,-54.9339 -42.5436,-54.9339 -42.5198,-54.9339 -42.0246,-54.9339 -41.5293,-54.9339 -41.0341,-54.9339 -40.5389,-54.9339 -40.0436,-54.9339 -39.5484,-54.9339 -39.0531,-54.9339 -38.5579,-54.9339 -38.0627,-54.9339 -37.5674,-54.9339 -37.5491,-54.9339 -37.5491,-55.4305 -37.5491,-55.9271 -37.5491,-56.4237 -37.5491,-56.9203 -37.5491,-57.4169 -37.5491,-57.9135 -37.5491,-58.4102 -37.5491,-58.9068 -37.5491,-59.4034 -37.5491,-59.9000 -37.5491,-60.3545 -37.5491,-60.8091 -37.5491,-61.2636 -37.5491,-61.7182 -37.5491,-62.1727 -37.5491,-62.6273 -37.5491,-63.0818 -37.5491,-63.5364 -37.5491,-63.9909 -37.5491,-64.4455 -37.5491,-64.9000 -37.5491,-65.3545 -37.5491,-65.8091 -37.5491,-66.2636 -37.5491,-66.7182 -37.5491,-67.1727 -37.5491,-67.6273 -37.5491,-68.0818 -37.5491,-68.5364 -37.5491,-68.9909 -37.5491,-69.4455 -37.5491,-69.9000 -37.5491,-70.3545 -37.5491,-70.8091 -37.5491,-71.2636 -37.5491,-71.7182 -37.5491,-72.1727 -37.5492,-72.6273 -37.5492,-73.0818 -37.5492,-73.5364 -37.5492,-73.9909 -37.5492,-74.4455 -37.5492,-74.9000 -37.5492,-75.3681 -37.5492,-75.8362 -37.5492,-76.3043 -37.5492,-76.7724 -37.5492,-77.2405 -37.5492,-77.7086 -37.5492,-78.1767 -37.8486,-78.1697 -38.2693,-78.1599 -38.6901,-78.1501 -39.1109,-78.1403 -39.5316,-78.1305 -39.9524,-78.1207 -40.4309,-78.0547 -40.9093,-77.9887 -41.3275,-78.0179 -41.7457,-78.0471 -42.1640,-78.0764 -42.5822,-78.1056 -42.9496,-78.1312 -42.9638,-78.1254 -43.1386,-78.0681 -43.3916,-77.9962 -43.6447,-77.9243 -43.8108,-77.8838 -43.9788,-77.8531 -44.3159,-77.8014 -44.6530,-77.7498 -44.9900,-77.6981 -45.3204,-77.6417 -45.4726,-77.6207 -45.6440,-77.6054 -45.8594,-77.5940 -46.1131,-77.5863 -46.3668,-77.5785 -46.6432,-77.5679 -46.9196,-77.5573 -47.1891,-77.5520 -47.3540,-77.5534 -47.5157,-77.5612 -47.7053,-77.5788 -47.9194,-77.6104 -47.9590,-77.6113 -47.9817,-77.6056 -48.0770,-77.5829 -48.2062,-77.5598 -48.3489,-77.5414 -48.5018,-77.5281 -48.6621,-77.5202 -48.7989,-77.5178 -48.9645,-77.5204 -49.1016,-77.5272 -49.2496,-77.5398 -49.3873,-77.5575 -49.5459,-77.5857 -49.6609,-77.6145 -49.9018,-77.6488 -49.9542,-77.6065 -50.3865,-77.5061 -50.8158,-77.4064 -51.2450,-77.3067 -51.6742,-77.2070 -52.1035,-77.1073 -52.5327,-77.0076 -52.5327,-77.0186 -52.5327,-77.0186 -52.5327,-76.5220 -52.5327,-76.0254 -52.5327,-75.5287 -52.5328,-75.0321 -52.5328,-74.5355 -52.5328,-74.0389 -52.5328,-73.5843 -52.5328,-73.1298 -52.5328,-72.6752 -52.5329,-72.2207 -52.5329,-71.7662 -52.5329,-71.3116 -52.5329,-70.8571 -52.5329,-70.4025 -52.5329,-69.9480 -52.5329,-69.4934 -52.5330,-69.0389 -52.5330,-68.6542 -52.5330,-68.2695 -52.5330,-67.8847 -52.5330,-67.3848 -52.5330,-66.8848 -52.5330,-66.3848 -52.5330,-65.8848 -52.5331,-65.3848 -52.5331,-64.8848 -52.5331,-64.3848 -52.5331,-63.8848 -52.5331,-63.3848 -52.5331,-62.8848 -52.5331,-62.4302 -52.5332,-61.9757 -52.5332,-61.5211 -52.5332,-61.0666 -52.5332,-60.6120 -52.5332,-60.1575 -52.5332,-59.7029 -52.5332,-59.2484 -52.5332,-58.7938 -52.5333,-58.3393 -52.5333,-57.8848 -52.5333,-57.5299 -52.5339,-57.0370 -52.5344,-56.5441 -52.5350,-56.0511 -52.5356,-55.5582 -52.5362,-55.0653 -52.5368,-54.5724 -52.5374,-54.0794 -52.5379,-53.5865 -52.5385,-53.0936 -52.5391,-52.6007 -52.5397,-52.1077 -52.5403,-51.6148 -52.5408,-51.1219 -52.5414,-50.6290 -52.5420,-50.1360 -52.5426,-49.6431 -52.5432,-49.1502 -52.5438,-48.6573 -52.5443,-48.1643 -52.5449,-47.6714 -52.5455,-47.1785 -52.5461,-46.6856 -52.5467,-46.1926 -52.5473,-45.6997 -52.5478,-45.2068 -52.5484,-44.7139 -52.5490,-44.2210 -52.5496,-43.7280 -52.5502,-43.2351 -52.5507,-42.7422 -52.5513,-42.2493 -52.5519,-41.7563 -52.5525,-41.2634 -52.5531,-40.7705 -52.5537,-40.2776 -52.5542,-39.7846 -52.5548,-39.2917 -52.5554,-38.7988 -52.5560,-38.3059 -52.5566,-37.8129 -52.5572,-37.3200 -52.5577,-36.8271 -52.5583,-36.3342 -52.5589,-35.8412 -52.5595,-35.3483 -52.5601,-34.8554 -52.5606,-34.3625 -52.5612,-33.8695 -52.5618,-33.3766 -52.7046,-33.5207 -53.0456,-33.7969 -53.2152,-33.9109 -53.2455,-33.9616 -53.3027,-34.1446 -53.4792,-34.3261 -53.5043,-34.3871 -53.5506,-34.5001 -53.6130,-34.5513 -53.8093,-34.6538 -53.9853,-34.8331 -54.0387,-34.8611 -54.2314,-34.9183 -54.5116,-35.0333 -54.7919,-35.1483 -54.8928,-35.1779 -54.9885,-35.1739 -55.1684,-35.1256 -55.2898,-35.1081 -55.4829,-35.0237 -55.6489,-34.9922 -55.7763,-35.0134 -56.0546,-35.1206 -56.2078,-35.1360 -56.3300,-35.1196 -56.4517,-35.0874 -56.6735,-34.9530 -56.9975,-34.8535 -57.1744,-34.7289 -57.2738,-34.6820 -57.3912,-34.6604 -57.5828,-34.6751 -57.5740,-34.7033 -57.5121,-34.7598 -57.1202,-35.0422 -57.0149,-35.1533 -56.9287,-35.2697 -56.8759,-35.3969 -56.8788,-35.5097 -56.9290,-35.6045 -57.1265,-35.8534 -57.1248,-35.8997 -57.0240,-36.0457 -56.9319,-36.1217 -56.7128,-36.0958 -56.6181,-36.1266 -56.5393,-36.1860 -56.4858,-36.2563 -56.4452,-36.3429 -56.4400,-36.4685 -56.4096,-36.6236 -56.4059,-36.8784 -56.4534,-37.0269 -56.6516,-37.2567 -56.8751,-37.5740 -57.2329,-37.9106 -57.2540,-37.9600 -57.2674,-38.0961 -57.2882,-38.1629 -57.3355,-38.2343 -57.4132,-38.3042 -57.7367,-38.4843 -58.0849,-38.6371 -58.4816,-38.7577 -58.6991,-38.8038 -58.9895,-38.8961 -59.2553,-38.9388 -59.5211,-38.9815 -59.7793,-39.0461 -59.9763,-39.0572 -60.3358,-39.1194 -60.7992,-39.1782 -60.9788,-39.1868 -61.1077,-39.2109 -61.3504,-39.1924 -61.5015,-39.2205 -61.5540,-39.2408 -61.5918,-39.2724 -61.6567,-39.3708 -61.7709,-39.4654 -61.8240,-39.6587 -61.8612,-39.8931 -61.9267,-39.9818 -62.0612,-40.0604 -62.0771,-40.1921 -62.1373,-40.3203 -62.1062,-40.3839 -61.9675,-40.5015 -61.9215,-40.5615 -61.9085,-40.6437 -61.9416,-40.7351 -62.0649,-40.9368 -62.1393,-41.0114 -62.2502,-41.0730 -62.6284,-41.2327 -62.8938,-41.3182 -63.0649,-41.3537 -63.3314,-41.3643 -63.5979,-41.3749 -63.7472,-41.3719 -63.9488,-41.3352 -64.1393,-41.2420 -64.4354,-41.1448 -64.7316,-41.0475 -64.8229,-41.0398 -64.8523,-41.0607 -64.8709,-41.1357 -64.8557,-41.2328 -64.8242,-41.3133 -64.7486,-41.4280 -64.7265,-41.5108 -64.7359,-41.6674 -64.7212,-41.8059 -64.7797,-41.9526 -64.7742,-41.9745 -64.7322,-41.9986 -64.6546,-42.0189 -64.4543,-42.0378 -64.2185,-42.0025 -64.0019,-41.9188 -63.8527,-41.8845 -63.7081,-41.8860 -63.5810,-41.9292 -63.5242,-41.9704 -63.4724,-42.0285 -63.3687,-42.1768 -63.3323,-42.2586 -63.3036,-42.5716 -63.3125,-42.6848 -63.3380,-42.7834 -63.4116,-42.9026 -63.5149,-42.9751 -63.6644,-43.0222 -64.0037,-43.0903 -64.3015,-43.2453 -64.5940,-43.3226 -64.6892,-43.3587 -64.7380,-43.3981 -64.8047,-43.5122 -64.9930,-43.6710 -65.0233,-43.7204 -65.0271,-43.7661 -64.9379,-43.8838 -64.9238,-44.0153 -64.9689,-44.1970 -64.9443,-44.3332 -64.9921,-44.5223 -65.0229,-44.5799 -65.0865,-44.6410 -65.1554,-44.6895 -65.2600,-44.7322 -65.2945,-44.7584 -65.2510,-44.8501 -65.2484,-44.9139 -65.3362,-45.0902 -65.3840,-45.1462 -65.4927,-45.2059 -65.6376,-45.2423 -65.9488,-45.2267 -66.1248,-45.2050 -66.1770,-45.2292 -66.3515,-45.3543 -66.4318,-45.3926 -66.5409,-45.4117 -66.6923,-45.4023 -66.7456,-45.4107 -66.7957,-45.4550 -66.9431,-45.6429 -67.0338,-45.7176 -67.0619,-45.8303 -67.0978,-45.8935 -67.2255,-45.9849 -67.2772,-46.0418 -67.3080,-46.1068 -67.3130,-46.1693 -67.2726,-46.3057 -67.2197,-46.3984 -67.1659,-46.4451 -66.9261,-46.5704 -66.6105,-46.8273 -66.2590,-46.8668 -65.9838,-46.8630 -65.8677,-46.8760 -65.7152,-46.9399 -65.5477,-47.0662 -65.4830,-47.1708 -65.4344,-47.3315 -65.4610,-47.5552 -65.5563,-47.7686 -65.5503,-47.8035 -65.4869,-47.9237 -65.4878,-47.9993 -65.5082,-48.0404 -65.5851,-48.1156 -65.6391,-48.1991 -65.6853,-48.2377 -65.9807,-48.3531 -66.0200,-48.3834 -66.0797,-48.4622 -66.1470,-48.5072 -66.3278,-48.5748 -66.4696,-48.6074 -66.6842,-48.7372 -66.8524,-48.7964 -66.9041,-48.8337 -67.0333,-48.9679 -67.1602,-49.0196 -67.2577,-49.0953 -67.3058,-49.1634 -67.3012,-49.3017 -67.3776,-49.5065 -67.4350,-49.8014 -67.4988,-49.9662 -67.5043,-49.9642 -67.5043,-49.9662 -67.5232,-49.9945 -67.6470,-50.0980 -67.8743,-50.2259 -68.3219,-50.3824 -68.5506,-50.4414 -68.6630,-50.4978 -68.7489,-50.5843 -68.8107,-50.6910 -68.8467,-50.9748 -68.8033,-51.1674 -68.6709,-51.4379 -68.6301,-51.6003 -68.5887,-51.6860 -68.4665,-51.8571 -68.1789,-52.1166 -68.0839,-52.2460 -68.0667,-52.3323 -68.0913,-52.4115 -68.1585,-52.4846 -68.2797,-52.5562 -68.2904,-52.5861 -68.2052,-52.6723 -68.0445,-52.8037 -67.9818,-52.8783 -67.9158,-53.0170 -67.8947,-53.1718 -67.8124,-53.2767 -67.7342,-53.4395 -67.6840,-53.4954 -67.5137,-53.5968 -67.5090,-53.5963 -67.5050,-53.5987 -67.3481,-53.6921 -67.2981,-53.7379 -67.2511,-53.8072 -67.1893,-53.8481 -66.7379,-54.0481 -66.4964,-54.1326 -66.2977,-54.2752 -65.8868,-54.4173 -65.6809,-54.4543 -65.3629,-54.4420 -65.0980,-54.4526 -64.9740,-54.4786 -64.7594,-54.5591 -64.6151,-54.5252 -64.3312,-54.5161 -64.0622,-54.5197 -63.7932,-54.5233 -63.7136,-54.5319 -63.6438,-54.5504 -63.5733,-54.5853 -63.5191,-54.6313 -63.4847,-54.6878 -63.4763,-54.7431 -63.4899,-54.7925 -63.5298,-54.8465 -63.5908,-54.8952 -63.6802,-54.9426 -63.7837,-54.9793 -63.8802,-55.0008 -64.1935,-55.0299 -64.3341,-55.0319 -64.4669,-55.0771 -64.5672,-55.0946 -64.7426,-55.0902 -64.9105,-55.0455 -64.9585,-55.0422 -65.2696,-55.1011 -65.5807,-55.1600 -65.6856,-55.1633 -65.9020,-55.1460 -66.0287,-55.1638 -66.0812,-55.1971 -66.0865,-55.2165 -66.0956,-55.2500 -66.3635,-55.1239 -66.4342,-55.1209 -66.5268,-55.1081 -66.8584,-54.9952 -67.2081,-54.9187 -67.4117,-54.9030 -67.7335,-54.8996 -68.0606,-54.8787 -68.2594,-54.8770 -68.2644,-54.8769 -68.5876,-54.9042 -68.6638,-54.9128 -68.6695,-54.9135 -68.6596,-54.8862 -68.6478,-54.8537 -68.6475,-54.7991 -68.6474,-54.7830 -68.6474,-54.7823 -68.6456,-54.5144 -68.6438,-54.2466 -68.6420,-53.9788 -68.6415,-53.8948 -68.6399,-53.6633 -68.6385,-53.4429 -68.6367,-53.1751 -68.6349,-52.9072 -68.6331,-52.6396 -68.6331,-52.6393 -68.4541,-52.3641 -68.4535,-52.3107 -68.4600,-52.2999 -68.4833,-52.2954 -68.5623,-52.2837 -68.5786,-52.2803 -68.6091,-52.2680 -68.6272,-52.2636 -68.8260,-52.2432 -68.8641,-52.2332 -69.0131,-52.1791 -69.2177,-52.1380 -69.4908,-52.1325 -69.6694,-52.0847 -69.8388,-52.0394 -69.9582,-52.0074 -70.0392,-52.0066 -70.2647,-52.0046 -70.4902,-52.0027 -70.7156,-52.0007 -70.9412,-51.9987 -71.1666,-51.9968 -71.3921,-51.9947 -71.6176,-51.9927 -71.8431,-51.9908 -71.9232,-51.9901 -71.9707,-51.9706 -71.9657,-51.9279 -71.9540,-51.8960 -71.9640,-51.8680 -71.9872,-51.8449 -72.0153,-51.8278 -72.0781,-51.7786 -72.1476,-51.7394 -72.1926,-51.7207 -72.2866,-51.7015 -72.3062,-51.6915 -72.3196,-51.6715 -72.3283,-51.6162 -72.3364,-51.5994 -72.3570,-51.5835 -72.3809,-51.5796 -72.3812,-51.5795 -72.4023,-51.5797 -72.4075,-51.5797 -72.4346,-51.5760 -72.4556,-51.5527 -72.4278,-51.5224 -72.3567,-51.4760 -72.3538,-51.4683 -72.3546,-51.4590 -72.3565,-51.4494 -72.3572,-51.4404 -72.3538,-51.4305 -72.3472,-51.4230 -72.3400,-51.4163 -72.3345,-51.4088 -72.3291,-51.3908 -72.3288,-51.3345 -72.3260,-51.3126 -72.3189,-51.2980 -72.2760,-51.2596 -72.2643,-51.2452 -72.2631,-51.2306 -72.2794,-51.2168 -72.3549,-51.1839 -72.3877,-51.1606 -72.4086,-51.1261 -72.4101,-51.1058 -72.4020,-51.0921 -72.3736,-51.0666 -72.3562,-51.0467 -72.3441,-51.0370 -72.3280,-51.0326 -72.2989,-51.0292 -72.2825,-51.0073 -72.2714,-50.9607 -72.2622,-50.8751 -72.2690,-50.8363 -72.2894,-50.8106 -72.3166,-50.7887 -72.3436,-50.7606 -72.3529,-50.7432 -72.3532,-50.7290 -72.3465,-50.7151 -72.3104,-50.6649 -72.3083,-50.6489 -72.3274,-50.6416 -72.3507,-50.6373 -72.3888,-50.6203 -72.5078,-50.6018 -72.5115,-50.6013 -72.5546,-50.6151 -72.6236,-50.6668 -72.6629,-50.6677 -72.6681,-50.6678 -72.6882,-50.6595 -72.7390,-50.6243 -72.7597,-50.6170 -72.7613,-50.6164 -72.7839,-50.6196 -72.9083,-50.6666 -72.9439,-50.6854 -73.0156,-50.7364 -73.0572,-50.7578 -73.1014,-50.7706 -73.1016,-50.7706 -73.1450,-50.7702 -73.1832,-50.7495 -73.1922,-50.7167 -73.1908,-50.6785 -73.1977,-50.6414 -73.2082,-50.6265 -73.2504,-50.5895 -73.2631,-50.5730 -73.2673,-50.5566 -73.2673,-50.4990 -73.2795,-50.4452 -73.2812,-50.4256 -73.2782,-50.3847 -73.2797,-50.3645 -73.2898,-50.3331 -73.3069,-50.2996 -73.3284,-50.2684 -73.3518,-50.2437 -73.3706,-50.2320 -73.4113,-50.2170 -73.5361,-50.1408 -73.5470,-50.1137 -73.5370,-50.0831 -73.4862,-50.0227 -73.4841,-50.0095 -73.4930,-49.9912 -73.5057,-49.9787 -73.5599,-49.9471 -73.5782,-49.9324 -73.5739,-49.9201 -73.5595,-49.9081 -73.5474,-49.8945 -73.5438,-49.8767 -73.5443,-49.8616 -73.5400,-49.8476 -73.4871,-49.8111 -73.4685,-49.7871 -73.4706,-49.7600 -73.4981,-49.7278 -73.5303,-49.7060 -73.5450,-49.6927 -73.5519,-49.6768 -73.5462,-49.6595 -73.5336,-49.6444 -73.5237,-49.6285 -73.5266,-49.6090 -73.5384,-49.5940 -73.5677,-49.5718 -73.5810,-49.5592 -73.5935,-49.5405 -73.5921,-49.5300 -73.5614,-49.5081 -73.5481,-49.4910 -73.5498,-49.4776 -73.5562,-49.4632 -73.5566,-49.4440 -73.5459,-49.4278 -73.5278,-49.4167 -73.4893,-49.4007 -73.4722,-49.3876 -73.4675,-49.3750 -73.4760,-49.3422 -73.4766,-49.3172 -73.4633,-49.3077 -73.1505,-49.3037 -73.1468,-49.2856 -73.1361,-49.2787 -73.1037,-49.2728 -73.1031,-49.2666 -73.1681,-49.2582 -73.1886,-49.2391 -73.1898,-49.2143 -73.1768,-49.1893 -73.1127,-49.1349 -73.1026,-49.1213 -73.1003,-49.1087 -73.1006,-49.0958 -73.0977,-49.0810 -73.0840,-49.0587 -73.0231,-48.9982 -73.0230,-48.9982 -73.0152,-48.9904 -72.9751,-48.9643 -72.9277,-48.9523 -72.8304,-48.9445 -72.7867,-48.9339 -72.7484,-48.9138 -72.6775,-48.8630 -72.6243,-48.8197 -72.5978,-48.7911 -72.5876,-48.7605 -72.5835,-48.7219 -72.5897,-48.6159 -72.6121,-48.5610 -72.6202,-48.5100 -72.5823,-48.4521 -72.5434,-48.4313 -72.5020,-48.4151 -72.4386,-48.4004 -72.4222,-48.3912 -72.3942,-48.3643 -72.3826,-48.3503 -72.3769,-48.3464 -72.3641,-48.3430 -72.3596,-48.3432 -72.3503,-48.3437 -72.3209,-48.3503 -72.3181,-48.3497 -72.3078,-48.3475 -72.3006,-48.3333 -72.3092,-48.3160 -72.3231,-48.2990 -72.3311,-48.2855 -72.3296,-48.2686 -72.3170,-48.2310 -72.3150,-48.2112 -72.3387,-48.0908 -72.3485,-48.0704 -72.3825,-48.0622 -72.3935,-48.0578 -72.4009,-48.0509 -72.4033,-48.0423 -72.4043,-48.0332 -72.4081,-48.0241 -72.4247,-48.0096 -72.4424,-48.0042 -72.4616,-48.0011 -72.4829,-47.9938 -72.5149,-47.9730 -72.5408,-47.9458 -72.5494,-47.9148 -72.5297,-47.8827 -72.5059,-47.8529 -72.4799,-47.7828 -72.4628,-47.7491 -72.3683,-47.6350 -72.3572,-47.6183 -72.3499,-47.6023 -72.3454,-47.5852 -72.3431,-47.5657 -72.3251,-47.5119 -72.3264,-47.4984 -72.3430,-47.4880 -72.3638,-47.4834 -72.3760,-47.4745 -72.3667,-47.4510 -72.3521,-47.4363 -72.3342,-47.4265 -72.2937,-47.4150 -72.2684,-47.4138 -72.2669,-47.4140 -72.2146,-47.4203 -72.2120,-47.4199 -72.1928,-47.4175 -72.1760,-47.4075 -72.1509,-47.3818 -72.0634,-47.3119 -72.0436,-47.2870 -72.0349,-47.2697 -72.0360,-47.2596 -72.0422,-47.2496 -72.0487,-47.2329 -72.0506,-47.2158 -72.0470,-47.2037 -72.0358,-47.1975 -72.0306,-47.1977 -72.0153,-47.1982 -71.9513,-47.2277 -71.9180,-47.2345 -71.9161,-47.2338 -71.8862,-47.2219 -71.8688,-47.1966 -71.8680,-47.1689 -71.8796,-47.1425 -71.8989,-47.1214 -71.9258,-47.1068 -71.9898,-47.0805 -72.0107,-47.0619 -72.0055,-47.0422 -71.9402,-47.0144 -71.9203,-46.9985 -71.9322,-46.9838 -71.9657,-46.9622 -71.9758,-46.9485 -71.9751,-46.9340 -71.9587,-46.8748 -71.9541,-46.8675 -71.9473,-46.8609 -71.9417,-46.8543 -71.9409,-46.8461 -71.9455,-46.8383 -71.9517,-46.8311 -71.9562,-46.8236 -71.9556,-46.8140 -71.9396,-46.7995 -71.9130,-46.7949 -71.8613,-46.7945 -71.8396,-46.7886 -71.8251,-46.7790 -71.7987,-46.7510 -71.7815,-46.7381 -71.7257,-46.7156 -71.6927,-46.6901 -71.6857,-46.6596 -71.7010,-46.5871 -71.6987,-46.5691 -71.6913,-46.5538 -71.6860,-46.5381 -71.6904,-46.5192 -71.7574,-46.3930 -71.7671,-46.3580 -71.7684,-46.3185 -71.7647,-46.2729 -71.7688,-46.2445 -71.7883,-46.2247 -71.8484,-46.1961 -71.8968,-46.1630 -71.9060,-46.1589 -71.9150,-46.1567 -71.9202,-46.1523 -71.9181,-46.1421 -71.9100,-46.1363 -71.8960,-46.1334 -71.8218,-46.1268 -71.7978,-46.1219 -71.7756,-46.1126 -71.7614,-46.1006 -71.7409,-46.0712 -71.7290,-46.0577 -71.6546,-45.9994 -71.6178,-45.9705 -71.6299,-45.9341 -71.6468,-45.9057 -71.6714,-45.8840 -71.7064,-45.8685 -71.7487,-45.8576 -71.7640,-45.8482 -71.7704,-45.8310 -71.7656,-45.8159 -71.7569,-45.8019 -71.7545,-45.7868 -71.7684,-45.7687 -71.7946,-45.7509 -71.8040,-45.7399 -71.8073,-45.7240 -71.8050,-45.7171 -71.7891,-45.6985 -71.7860,-45.6894 -71.7882,-45.6829 -71.7919,-45.6769 -71.7934,-45.6695 -71.7914,-45.6530 -71.7879,-45.6418 -71.7701,-45.6165 -71.7643,-45.6117 -71.7570,-45.6066 -71.7507,-45.6009 -71.7483,-45.5943 -71.7520,-45.5873 -71.7672,-45.5762 -71.7706,-45.5724 -71.7551,-45.5493 -71.7192,-45.5332 -71.6776,-45.5236 -71.6447,-45.5200 -71.6409,-45.5202 -71.5672,-45.5239 -71.5657,-45.5237 -71.5313,-45.5190 -71.4946,-45.4985 -71.4836,-45.4827 -71.4868,-45.4679 -71.5071,-45.4388 -71.5158,-45.4184 -71.5138,-45.4084 -71.4134,-45.3787 -71.3948,-45.3708 -71.3798,-45.3592 -71.3562,-45.3328 -71.3398,-45.3228 -71.3170,-45.2995 -71.3227,-45.2672 -71.3441,-45.2342 -71.3687,-45.2088 -71.4009,-45.1860 -71.4544,-45.1590 -71.4927,-45.1233 -71.5025,-45.1117 -71.5206,-45.0658 -71.5607,-45.0058 -71.5942,-44.9781 -71.6264,-44.9752 -71.6295,-44.9749 -71.6642,-44.9788 -71.6672,-44.9792 -71.7078,-44.9737 -71.7241,-44.9644 -71.7503,-44.9406 -71.7654,-44.9318 -71.7864,-44.9277 -71.7879,-44.9274 -71.8112,-44.9292 -71.8339,-44.9352 -71.8552,-44.9434 -71.8907,-44.9468 -71.8949,-44.9472 -71.9350,-44.9338 -71.9752,-44.9153 -72.0144,-44.9048 -72.0153,-44.9045 -72.0543,-44.9066 -72.0588,-44.9068 -72.0790,-44.9022 -72.0864,-44.8866 -72.0803,-44.8532 -72.0796,-44.8371 -72.0942,-44.7828 -72.0817,-44.7608 -72.0533,-44.7548 -72.0510,-44.7554 -72.0153,-44.7655 -71.9931,-44.7725 -71.8600,-44.7910 -71.8571,-44.7906 -71.8369,-44.7882 -71.8187,-44.7786 -71.8065,-44.7668 -71.7924,-44.7573 -71.7682,-44.7544 -71.7657,-44.7547 -71.7455,-44.7577 -71.6781,-44.7786 -71.6367,-44.7800 -71.6362,-44.7798 -71.5459,-44.7504 -71.5026,-44.7429 -71.5002,-44.7434 -71.4626,-44.7522 -71.3844,-44.7919 -71.3415,-44.8016 -71.3382,-44.8011 -71.3033,-44.7956 -71.2683,-44.7771 -71.2436,-44.7479 -71.2365,-44.7095 -71.2448,-44.6744 -71.2461,-44.6582 -71.2404,-44.6388 -71.2189,-44.6071 -71.2049,-44.5917 -71.1943,-44.5848 -71.1727,-44.5842 -71.1528,-44.5808 -71.1371,-44.5706 -71.1279,-44.5494 -71.1281,-44.5303 -71.1361,-44.5204 -71.1711,-44.4663 -71.1768,-44.4522 -71.1918,-44.4380 -71.2153,-44.4276 -71.2405,-44.4239 -71.2923,-44.4233 -71.4431,-44.4016 -71.4433,-44.4015 -71.6433,-44.4025 -71.6487,-44.4026 -71.6998,-44.3934 -71.7378,-44.3934 -71.7433,-44.3934 -71.7862,-44.4027 -71.8221,-44.4031 -71.8275,-44.4032 -71.8661,-44.3771 -71.8696,-44.3592 -71.8531,-44.3481 -71.8305,-44.3407 -71.8159,-44.3336 -71.8095,-44.3148 -71.8171,-44.3006 -71.8294,-44.2868 -71.8373,-44.2702 -71.8334,-44.2521 -71.8118,-44.2225 -71.8106,-44.2052 -71.8180,-44.1878 -71.8495,-44.1453 -71.8642,-44.1078 -71.8407,-44.0944 -71.8012,-44.0860 -71.7677,-44.0641 -71.6751,-43.9598 -71.6648,-43.9397 -71.6654,-43.9263 -71.7213,-43.8587 -71.7342,-43.8462 -71.7424,-43.8418 -71.7613,-43.8345 -71.7673,-43.8284 -71.7698,-43.8173 -71.7663,-43.8096 -71.7611,-43.8027 -71.7584,-43.7936 -71.7605,-43.7714 -71.7643,-43.7700 -71.7675,-43.7689 -71.7810,-43.7756 -71.7994,-43.7800 -71.8026,-43.7808 -71.8210,-43.7744 -71.8247,-43.7581 -71.8189,-43.7394 -71.8087,-43.7260 -71.7919,-43.7172 -71.7498,-43.7052 -71.7312,-43.6974 -71.7147,-43.6844 -71.7091,-43.6716 -71.7162,-43.6141 -71.7198,-43.6022 -71.7292,-43.5948 -71.7717,-43.5720 -71.7782,-43.5675 -71.7843,-43.5615 -71.7890,-43.5554 -71.7953,-43.5494 -71.8062,-43.5442 -71.8282,-43.5422 -71.8289,-43.5421 -71.8516,-43.5425 -71.8566,-43.5426 -71.8793,-43.5389 -71.8870,-43.5245 -71.8838,-43.5192 -71.8643,-43.4993 -71.8641,-43.4986 -71.8638,-43.4774 -71.8743,-43.4626 -71.8916,-43.4534 -71.9093,-43.4497 -71.9117,-43.4492 -71.9220,-43.4509 -71.9324,-43.4548 -71.9393,-43.4562 -71.9428,-43.4569 -71.9529,-43.4532 -71.9606,-43.4435 -71.9563,-43.4386 -71.9476,-43.4342 -71.9423,-43.4267 -71.9465,-43.3984 -71.9464,-43.3918 -71.9403,-43.3828 -71.9329,-43.3781 -71.9250,-43.3743 -71.9178,-43.3678 -71.9147,-43.3597 -71.9128,-43.3297 -71.9072,-43.3220 -71.8949,-43.3192 -71.8695,-43.3176 -71.8299,-43.3034 -71.8106,-43.3000 -71.8077,-43.3004 -71.7663,-43.3069 -71.7657,-43.3062 -71.7562,-43.2953 -71.7539,-43.2770 -71.7550,-43.2592 -71.7569,-43.2510 -71.7625,-43.2353 -71.7631,-43.2254 -71.7606,-43.2164 -71.7512,-43.1992 -71.7485,-43.1901 -71.7557,-43.1725 -71.7756,-43.1614 -71.8674,-43.1332 -72.0153,-43.1204 -72.0599,-43.1054 -72.1016,-43.0785 -72.1348,-43.0422 -72.1540,-42.9987 -72.1476,-42.9637 -72.1250,-42.8986 -72.1182,-42.8638 -72.1267,-42.7197 -72.1311,-42.7039 -72.1453,-42.6698 -72.1469,-42.6557 -72.1380,-42.6317 -72.1371,-42.6241 -72.1401,-42.6148 -72.1509,-42.6005 -72.1539,-42.5926 -72.1487,-42.5571 -72.1281,-42.5299 -72.0983,-42.5108 -72.0474,-42.4910 -72.0447,-42.4812 -72.0512,-42.4699 -72.0807,-42.4338 -72.0821,-42.4234 -72.0662,-42.3689 -72.0754,-42.3500 -72.1270,-42.3130 -72.1392,-42.2876 -72.1302,-42.2633 -72.1085,-42.2409 -72.0827,-42.2212 -72.0644,-42.1976 -72.0569,-42.1705 -72.0454,-42.1447 -72.0153,-42.1247 -72.0100,-42.1248 -71.9830,-42.1253 -71.9669,-42.1449 -71.9535,-42.1673 -71.9293,-42.1769 -71.9263,-42.1759 -71.9150,-42.1723 -71.9063,-42.1631 -71.8992,-42.1526 -71.8898,-42.1442 -71.8773,-42.1397 -71.8068,-42.1303 -71.7786,-42.1200 -71.7549,-42.1044 -71.7417,-42.0839 -71.7451,-42.0319 -71.7493,-42.0244 -71.7680,-42.0074 -71.7747,-41.9996 -71.7861,-41.9864 -71.7854,-41.9723 -71.7806,-41.9564 -71.7799,-41.9392 -71.7995,-41.8675 -71.8201,-41.8378 -71.8444,-41.8133 -71.8624,-41.7861 -71.8641,-41.7486 -71.8745,-41.7155 -71.9314,-41.6530 -71.9315,-41.6229 -71.9173,-41.6102 -71.8832,-41.5949 -71.8690,-41.5845 -71.8587,-41.5673 -71.8624,-41.5560 -71.8736,-41.5451 -71.8862,-41.5297 -71.8936,-41.5128 -71.8942,-41.5002 -71.8867,-41.4704 -71.8843,-41.4511 -71.8853,-41.4367 -71.8898,-41.4229 -71.8978,-41.4054 -71.9094,-41.3677 -71.9077,-41.3359 -71.8832,-41.2698 -71.8788,-41.2492 -71.8814,-41.2336 -71.8939,-41.2003 -71.8949,-41.1798 -71.8869,-41.1726 -71.8768,-41.1667 -71.8714,-41.1504 -71.8681,-41.1146 -71.8595,-41.0789 -71.8583,-41.0572 -71.8726,-41.0202 -71.8729,-41.0102 -71.8732,-40.9990 -71.8569,-40.9577 -71.8569,-40.9383 -71.8654,-40.9134 -71.8764,-40.8957 -71.9162,-40.8501 -71.9267,-40.8277 -71.9611,-40.7204 -71.9551,-40.7093 -71.8788,-40.6471 -71.8586,-40.6164 -71.8532,-40.5796 -71.8564,-40.5703 -71.8661,-40.5594 -71.8673,-40.5497 -71.8643,-40.5424 -71.8463,-40.5160 -71.8097,-40.4264 -71.8019,-40.4145 -71.7902,-40.4113 -71.7872,-40.4120 -71.7477,-40.4208 -71.7348,-40.4214 -71.7345,-40.4211 -71.7245,-40.4130 -71.6840,-40.3402 -71.6795,-40.3241 -71.6792,-40.3138 -71.6807,-40.3039 -71.6848,-40.2953 -71.6922,-40.2885 -71.7042,-40.2828 -71.7069,-40.2824 -71.7110,-40.2819 -71.7240,-40.2863 -71.7294,-40.2900 -71.7312,-40.2953 -71.7345,-40.2978 -71.7354,-40.2986 -71.7482,-40.2965 -71.7555,-40.2915 -71.7762,-40.2672 -71.8074,-40.2423 -71.8215,-40.2272 -71.8292,-40.2101 -71.8278,-40.2029 -71.8191,-40.1882 -71.8176,-40.1847 -71.8222,-40.1745 -71.8220,-40.1644 -71.8145,-40.1338 -71.8103,-40.1246 -71.8084,-40.1161 -71.8126,-40.1084 -71.8200,-40.0996 -71.8195,-40.0929 -71.8062,-40.0797 -71.7722,-40.0769 -71.7713,-40.0773 -71.7272,-40.0938 -71.6892,-40.0990 -71.6890,-40.0983 -71.6764,-40.0608 -71.6786,-40.0503 -71.6862,-40.0291 -71.6883,-40.0181 -71.6860,-40.0095 -71.6799,-40.0044 -71.6728,-40.0005 -71.6675,-39.9951 -71.6303,-39.9310 -71.6221,-39.9099 -71.6267,-39.8951 -71.6400,-39.8835 -71.6747,-39.8592 -71.6849,-39.8479 -71.6901,-39.8335 -71.6924,-39.8116 -71.6975,-39.7900 -71.7160,-39.7475 -71.7198,-39.7263 -71.7143,-39.7084 -71.7043,-39.6902 -71.6995,-39.6735 -71.7215,-39.6448 -71.7242,-39.6234 -71.7198,-39.6014 -71.7109,-39.5836 -71.6952,-39.5684 -71.6898,-39.5684 -71.6829,-39.5685 -71.6466,-39.6000 -71.6379,-39.6076 -71.6233,-39.6167 -71.6063,-39.6195 -71.6037,-39.6190 -71.5819,-39.6147 -71.5605,-39.6128 -71.5585,-39.6131 -71.5422,-39.6157 -71.5379,-39.6155 -71.5255,-39.6150 -71.5090,-39.6017 -71.5011,-39.5656 -71.5474,-39.5323 -71.5211,-39.5013 -71.5069,-39.4883 -71.4880,-39.4611 -71.4759,-39.4491 -71.4671,-39.4338 -71.4831,-39.4022 -71.4820,-39.3830 -71.4661,-39.3672 -71.4446,-39.3560 -71.4257,-39.3421 -71.4175,-39.3180 -71.4075,-39.2360 -71.4182,-39.1006 -71.4365,-39.0260 -71.4357,-38.9991 -71.4213,-38.9353 -71.4054,-38.9105 -71.3762,-38.8880 -71.2852,-38.8502 -71.2592,-38.8327 -71.2465,-38.8185 -71.2415,-38.8116 -71.2335,-38.8088 -71.1583,-38.7988 -71.1424,-38.7922 -71.0841,-38.7571 -71.0539,-38.7466 -71.0155,-38.7463 -71.0151,-38.7464 -70.9727,-38.7508 -70.9706,-38.7504 -70.9505,-38.7472 -70.9350,-38.7358 -70.9208,-38.7122 -70.9150,-38.7064 -70.8849,-38.6946 -70.8793,-38.6914 -70.8778,-38.6816 -70.8825,-38.6750 -70.8885,-38.6688 -70.8913,-38.6605 -70.8906,-38.6495 -70.8889,-38.6431 -70.8785,-38.6278 -70.8532,-38.6000 -70.8431,-38.5845 -70.8398,-38.5644 -70.8542,-38.5276 -70.8853,-38.5030 -70.9228,-38.4830 -70.9560,-38.4594 -70.9792,-38.4247 -71.0222,-38.2647 -71.0252,-38.2343 -71.0234,-38.2037 -71.0145,-38.1703 -71.0141,-38.1676 -71.0145,-38.1651 -71.0155,-38.1623 -71.0285,-38.1229 -71.0290,-38.1046 -71.0155,-38.0879 -71.0129,-38.0823 -71.0121,-38.0767 -71.0129,-38.0710 -71.0155,-38.0655 -71.0429,-38.0366 -71.0519,-38.0203 -71.0575,-37.9993 -71.0666,-37.9784 -71.0931,-37.9402 -71.1004,-37.8974 -71.1387,-37.8385 -71.1905,-37.7061 -71.1978,-37.6609 -71.1963,-37.6400 -71.1894,-37.6259 -71.1779,-37.6145 -71.1627,-37.6025 -71.1386,-37.5906 -71.1334,-37.5844 -71.1328,-37.5726 -71.1450,-37.5549 -71.1472,-37.5439 -71.1419,-37.5244 -71.1263,-37.4863 -71.1232,-37.4665 -71.1286,-37.4432 -71.1419,-37.4251 -71.1738,-37.3916 -71.2002,-37.3435 -71.2101,-37.3154 -71.2111,-37.2927 -71.2027,-37.2749 -71.1631,-37.2357 -71.1520,-37.2148 -71.1510,-37.1954 -71.1535,-37.1759 -71.1531,-37.1548 -71.1448,-37.1333 -71.1306,-37.1201 -71.0946,-37.1034 -71.1324,-37.0776 -71.1450,-37.0617 -71.1541,-37.0135 -71.1615,-37.0028 -71.1929,-36.9868 -71.2126,-36.9724 -71.2062,-36.9714 -71.2038,-36.9719 -71.1866,-36.9753 -71.1670,-36.9755 -71.1668,-36.9754 -71.1488,-36.9654 -71.1412,-36.9515 -71.1457,-36.9375 -71.1745,-36.9219 -71.1740,-36.9144 -71.1691,-36.9063 -71.1665,-36.8988 -71.1660,-36.8904 -71.1640,-36.8869 -71.1643,-36.8827 -71.1707,-36.8721 -71.1786,-36.8661 -71.1883,-36.8629 -71.1971,-36.8584 -71.2024,-36.8482 -71.2006,-36.8391 -71.1944,-36.8305 -71.1873,-36.8224 -71.1822,-36.8149 -71.1570,-36.7605 -71.1523,-36.7411 -71.1544,-36.7040 -71.1508,-36.6883 -71.1354,-36.6769 -71.1305,-36.6773 -71.1155,-36.6785 -71.0963,-36.6895 -71.0785,-36.6968 -71.0762,-36.6955 -71.0629,-36.6876 -71.0608,-36.6713 -71.0755,-36.6038 -71.0744,-36.5664 -71.0669,-36.5204 -71.0488,-36.4843 -71.0155,-36.4775 -71.0132,-36.4782 -70.9951,-36.4833 -70.9765,-36.4855 -70.9743,-36.4851 -70.9586,-36.4825 -70.9405,-36.4726 -70.9288,-36.4567 -70.9217,-36.4193 -70.9133,-36.4052 -70.8959,-36.4004 -70.8927,-36.4010 -70.8741,-36.4047 -70.8343,-36.4198 -70.8258,-36.4246 -70.8198,-36.4300 -70.8127,-36.4334 -70.8089,-36.4326 -70.7241,-36.4146 -70.7144,-36.4032 -70.7141,-36.3799 -70.7191,-36.3682 -70.7346,-36.3469 -70.7377,-36.3343 -70.7352,-36.3255 -70.7181,-36.3003 -70.7171,-36.2917 -70.7193,-36.2835 -70.7204,-36.2753 -70.7160,-36.2658 -70.7086,-36.2601 -70.6994,-36.2566 -70.6805,-36.2524 -70.6671,-36.2446 -70.6302,-36.2052 -70.6254,-36.2023 -70.6141,-36.1979 -70.6099,-36.1946 -70.6068,-36.1881 -70.6058,-36.1752 -70.6038,-36.1696 -70.5940,-36.1502 -70.5869,-36.1432 -70.5738,-36.1390 -70.5702,-36.1396 -70.5508,-36.1428 -70.5046,-36.1636 -70.4996,-36.1634 -70.4766,-36.1625 -70.4570,-36.1523 -70.4406,-36.1363 -70.4362,-36.1294 -70.4282,-36.1166 -70.4162,-36.0837 -70.4098,-36.0744 -70.3924,-36.0587 -70.3858,-36.0460 -70.3892,-36.0305 -70.4182,-35.9689 -70.4181,-35.9573 -70.4105,-35.9383 -70.4051,-35.9327 -70.3969,-35.9274 -70.3903,-35.9212 -70.3892,-35.9132 -70.3957,-35.9064 -70.3962,-35.9059 -70.4133,-35.9077 -70.4179,-35.9081 -70.4263,-35.9038 -70.4257,-35.8684 -70.3628,-35.8152 -70.3671,-35.7831 -70.3819,-35.7614 -70.4270,-35.6597 -70.4282,-35.6439 -70.4177,-35.6074 -70.4175,-35.5874 -70.4236,-35.5475 -70.4137,-35.5062 -70.4219,-35.4911 -70.4366,-35.4778 -70.4509,-35.4611 -70.4747,-35.3947 -70.4773,-35.3794 -70.4659,-35.3710 -70.4461,-35.3668 -70.4339,-35.3571 -70.4452,-35.3322 -70.4808,-35.3141 -70.5262,-35.3096 -70.5659,-35.2984 -70.5844,-35.2597 -70.5484,-35.2093 -70.3921,-35.1667 -70.3740,-35.0971 -70.3781,-35.0247 -70.3592,-34.9533 -70.2822,-34.7982 -70.2862,-34.7864 -70.2983,-34.7776 -70.3130,-34.7631 -70.3218,-34.7456 -70.3149,-34.7397 -70.2986,-34.7365 -70.2786,-34.7270 -70.2577,-34.6958 -70.2479,-34.6194 -70.2333,-34.5853 -70.2147,-34.5680 -70.1733,-34.5384 -70.1562,-34.5182 -70.1339,-34.4695 -70.1198,-34.4474 -70.0731,-34.4146 -70.0642,-34.3958 -70.0649,-34.3729 -70.0691,-34.3437 -70.0700,-34.3135 -70.0631,-34.2912 -70.0458,-34.2770 -69.9947,-34.2691 -69.9905,-34.2693 -69.9737,-34.2700 -69.9530,-34.2738 -69.9171,-34.2846 -69.9154,-34.2834 -69.9114,-34.2807 -69.9103,-34.2738 -69.9078,-34.2687 -69.8382,-34.2432 -69.8344,-34.2333 -69.8428,-34.2093 -69.8676,-34.1702 -69.8741,-34.1567 -69.8787,-34.1400 -69.8779,-34.1310 -69.8739,-34.1226 -69.8695,-34.1075 -69.8609,-34.0312 -69.8613,-33.9847 -69.8711,-33.9577 -69.8864,-33.9548 -69.8898,-33.9542 -69.9028,-33.9581 -69.9058,-33.9590 -69.9150,-33.9557 -69.9135,-33.9279 -69.9041,-33.8889 -69.9028,-33.8714 -69.9203,-33.7935 -69.9197,-33.7719 -69.9120,-33.7603 -69.8780,-33.7374 -69.8655,-33.7264 -69.8652,-33.7114 -69.8923,-33.6787 -69.9009,-33.6623 -69.8994,-33.6428 -69.8784,-33.5860 -69.8793,-33.5755 -69.8826,-33.5668 -69.8843,-33.5580 -69.8808,-33.5474 -69.8748,-33.5429 -69.8548,-33.5365 -69.8470,-33.5328 -69.8436,-33.5211 -69.8396,-33.4746 -69.8364,-33.4582 -69.8261,-33.4429 -69.8000,-33.4147 -69.7922,-33.3993 -69.7932,-33.3794 -69.8112,-33.3443 -69.8194,-33.2895 -69.8423,-33.2657 -69.8752,-33.2496 -69.9092,-33.2387 -69.9108,-33.2382 -69.9460,-33.2429 -69.9893,-33.2945 -70.0105,-33.2982 -70.0155,-33.2991 -70.0466,-33.2390 -70.0573,-33.2253 -70.0912,-33.2013 -70.1063,-33.1869 -70.1149,-33.1696 -70.1153,-33.1494 -70.0977,-33.0918 -70.1010,-33.0713 -70.1108,-33.0549 -70.1167,-33.0384 -70.1084,-33.0183 -70.0944,-33.0083 -70.0620,-33.0013 -70.0480,-32.9927 -70.0397,-32.9770 -70.0298,-32.9348 -70.0226,-32.9166 -70.0057,-32.8890 -70.0057,-32.8766 -70.0198,-32.8675 -70.0423,-32.8598 -70.0598,-32.8508 -70.0928,-32.8233 -70.1455,-32.7683 -70.1612,-32.7384 -70.1859,-32.6302 -70.1866,-32.6076 -70.1842,-32.5890 -70.1814,-32.5805 -70.1761,-32.5727 -70.1526,-32.5721 -70.1432,-32.5690 -70.1634,-32.5425 -70.1653,-32.5252 -70.1636,-32.5065 -70.1663,-32.4853 -70.1780,-32.4649 -70.1940,-32.4536 -70.2327,-32.4347 -70.2508,-32.4040 -70.2479,-32.3303 -70.2616,-32.3143 -70.2747,-32.2991 -70.2980,-32.2910 -70.3152,-32.2883 -70.3273,-32.2801 -70.3352,-32.2555 -70.3353,-32.2469 -70.3324,-32.2288 -70.3327,-32.2197 -70.3368,-32.2082 -70.3486,-32.1869 -70.3510,-32.1747 -70.3494,-32.1657 -70.3424,-32.1492 -70.3407,-32.1400 -70.3444,-32.1334 -70.3611,-32.1226 -70.3654,-32.1130 -70.3647,-32.0937 -70.3667,-32.0858 -70.3735,-32.0771 -70.3901,-32.0620 -70.3946,-32.0531 -70.3930,-32.0417 -70.3788,-32.0304 -70.3741,-32.0310 -70.3578,-32.0333 -70.3155,-32.0477 -70.3106,-32.0475 -70.2902,-32.0468 -70.2809,-32.0378 -70.2727,-32.0009 -70.2632,-31.9862 -70.2532,-31.9746 -70.2472,-31.9615 -70.2500,-31.9422 -70.2612,-31.9257 -70.2805,-31.9070 -70.3017,-31.8910 -70.3188,-31.8821 -70.3616,-31.8766 -70.3627,-31.8765 -70.3947,-31.8775 -70.3995,-31.8776 -70.4338,-31.8701 -70.4696,-31.8383 -70.4807,-31.8201 -70.4895,-31.7976 -70.4940,-31.7739 -70.4918,-31.7312 -70.5023,-31.7145 -70.5327,-31.6843 -70.5857,-31.5923 -70.5953,-31.5677 -70.5969,-31.5496 -70.5869,-31.5057 -70.5834,-31.4689 -70.5845,-31.4320 -70.5809,-31.4130 -70.5633,-31.3818 -70.5601,-31.3629 -70.5654,-31.3417 -70.5727,-31.3230 -70.5745,-31.3042 -70.5523,-31.2646 -70.5484,-31.2468 -70.5489,-31.2081 -70.5469,-31.1882 -70.5414,-31.1726 -70.4853,-31.0967 -70.4733,-31.0894 -70.4700,-31.0907 -70.4536,-31.0976 -70.4461,-31.1188 -70.4411,-31.1414 -70.4289,-31.1538 -70.4245,-31.1526 -70.4141,-31.1500 -70.3985,-31.1376 -70.3864,-31.1216 -70.3779,-31.0922 -70.3680,-31.0730 -70.3453,-31.0417 -70.3264,-31.0337 -70.3223,-31.0342 -70.2838,-31.0394 -70.2819,-31.0390 -70.2720,-31.0365 -70.2731,-31.0238 -70.2854,-31.0103 -70.3141,-30.9882 -70.3306,-30.9716 -70.3407,-30.9560 -70.3447,-30.9382 -70.3250,-30.8008 -70.3105,-30.7655 -70.3056,-30.7581 -70.2878,-30.7378 -70.2817,-30.7256 -70.2821,-30.7156 -70.2848,-30.7056 -70.2854,-30.6931 -70.2815,-30.6731 -70.2757,-30.6572 -70.2563,-30.6266 -70.2409,-30.5916 -70.2226,-30.5151 -70.2025,-30.4868 -70.1852,-30.4771 -70.1693,-30.4702 -70.1567,-30.4597 -70.1494,-30.4396 -70.1542,-30.4187 -70.1793,-30.3822 -70.1789,-30.3647 -70.1524,-30.3539 -70.1497,-30.3551 -70.0698,-30.3893 -70.0357,-30.3971 -70.0331,-30.3964 -69.9999,-30.3881 -69.9701,-30.3748 -69.9435,-30.3556 -69.9176,-30.3295 -69.9083,-30.3127 -69.9053,-30.2944 -69.9036,-30.2565 -69.8995,-30.2380 -69.8962,-30.2290 -69.8917,-30.2210 -69.8826,-30.2131 -69.8629,-30.2055 -69.8544,-30.1991 -69.8412,-30.1619 -69.8552,-30.1266 -69.8862,-30.0998 -69.9226,-30.0883 -69.9242,-30.0878 -69.9597,-30.0923 -69.9631,-30.0927 -69.9787,-30.0894 -69.9859,-30.0725 -69.9811,-30.0586 -69.9468,-30.0131 -69.9335,-29.9768 -69.9277,-29.9396 -69.9211,-29.8056 -69.9346,-29.7183 -69.9434,-29.7047 -69.9690,-29.6855 -69.9787,-29.6661 -69.9784,-29.6432 -69.9744,-29.6131 -69.9740,-29.5833 -69.9971,-29.4881 -70.0016,-29.4764 -70.0077,-29.4656 -70.0155,-29.4561 -70.0250,-29.4044 -70.0325,-29.3899 -70.0412,-29.3769 -70.0481,-29.3631 -70.0500,-29.3461 -70.0461,-29.2975 -70.0366,-29.2772 -70.0155,-29.2664 -70.0053,-29.2629 -69.9948,-29.2573 -69.9858,-29.2500 -69.9802,-29.2408 -69.9817,-29.2335 -69.9936,-29.2200 -69.9950,-29.2144 -69.9905,-29.2083 -69.9856,-29.2059 -69.9805,-29.2043 -69.9649,-29.1921 -69.9381,-29.1769 -69.9275,-29.1680 -69.9208,-29.1562 -69.9202,-29.1488 -69.9164,-29.1432 -69.9000,-29.1372 -69.8498,-29.1293 -69.8278,-29.1201 -69.8094,-29.0987 -69.8027,-29.0767 -69.8012,-29.0501 -69.8072,-29.0000 -69.8118,-28.9801 -69.8121,-28.9599 -69.8083,-28.9399 -69.8005,-28.9208 -69.7909,-28.9058 -69.7786,-28.8927 -69.7728,-28.8842 -69.7719,-28.8759 -69.7723,-28.8676 -69.7703,-28.8586 -69.7413,-28.8124 -69.7383,-28.7943 -69.7419,-28.7724 -69.7565,-28.7298 -69.7614,-28.7077 -69.7589,-28.6734 -69.7463,-28.6406 -69.7276,-28.6107 -69.7064,-28.5844 -69.6987,-28.5798 -69.6906,-28.5778 -69.6839,-28.5739 -69.6803,-28.5631 -69.6778,-28.4577 -69.6595,-28.4010 -69.6585,-28.3979 -69.6128,-28.3563 -69.5590,-28.3179 -69.5156,-28.2675 -69.5067,-28.2504 -69.4960,-28.1984 -69.4817,-28.1879 -69.4781,-28.1893 -69.4616,-28.1958 -69.4411,-28.2085 -69.4258,-28.2126 -69.4248,-28.2114 -69.4174,-28.2025 -69.3954,-28.1620 -69.3726,-28.1304 -69.3363,-28.0524 -69.3172,-28.0365 -69.3164,-28.0293 -69.3193,-28.0227 -69.3186,-28.0145 -69.3087,-27.9995 -69.2965,-27.9894 -69.2806,-27.9829 -69.2214,-27.9685 -69.1957,-27.9514 -69.1785,-27.9241 -69.1395,-27.7723 -69.1298,-27.7344 -69.1237,-27.7221 -69.1138,-27.7158 -69.0866,-27.7038 -69.0813,-27.6962 -69.0855,-27.6815 -69.0929,-27.6692 -69.0987,-27.6565 -69.0978,-27.6402 -69.0910,-27.6293 -69.0685,-27.6100 -69.0594,-27.5997 -69.0341,-27.5513 -69.0245,-27.5243 -69.0218,-27.5001 -69.0254,-27.4869 -69.0260,-27.4734 -69.0229,-27.4604 -69.0156,-27.4489 -68.9991,-27.4377 -68.9641,-27.4211 -68.9481,-27.4089 -68.9369,-27.3952 -68.8885,-27.2950 -68.8848,-27.2785 -68.8869,-27.2391 -68.8852,-27.2215 -68.8762,-27.1984 -68.8345,-27.1360 -68.8198,-27.1203 -68.8066,-27.1128 -68.7698,-27.1046 -68.7652,-27.1048 -68.7241,-27.1067 -68.6883,-27.1269 -68.6550,-27.1512 -68.6162,-27.1657 -68.6120,-27.1652 -68.5913,-27.1628 -68.5809,-27.1493 -68.5747,-27.1295 -68.5629,-27.1074 -68.5453,-27.0903 -68.5235,-27.0769 -68.4997,-27.0686 -68.4486,-27.0667 -68.4276,-27.0620 -68.3828,-27.0444 -68.3720,-27.0435 -68.3690,-27.0437 -68.3432,-27.0456 -68.3407,-27.0454 -68.3360,-27.0450 -68.3339,-27.0374 -68.3366,-27.0122 -68.3346,-27.0001 -68.3293,-26.9810 -68.3129,-26.9446 -68.3076,-26.9266 -68.3108,-26.8980 -68.3256,-26.8701 -68.5157,-26.6291 -68.5497,-26.5893 -68.5756,-26.5506 -68.5929,-26.5083 -68.6008,-26.4573 -68.5994,-26.3786 -68.5928,-26.3380 -68.5807,-26.3035 -68.5516,-26.2691 -68.4254,-26.1793 -68.4145,-26.1442 -68.4226,-26.0936 -68.4919,-25.8366 -68.5040,-25.7549 -68.5131,-25.7289 -68.5274,-25.7056 -68.5468,-25.6873 -68.5648,-25.6630 -68.5664,-25.6352 -68.5651,-25.6086 -68.5743,-25.5878 -68.5605,-25.5726 -68.5721,-25.5517 -68.6084,-25.5107 -68.6137,-25.4929 -68.6154,-25.4742 -68.6114,-25.4370 -68.5215,-25.1836 -68.5020,-25.1600 -68.4985,-25.1559 -68.4795,-25.1454 -68.4639,-25.1449 -68.4631,-25.1451 -68.4474,-25.1481 -68.4262,-25.1487 -68.4255,-25.1486 -68.4047,-25.1448 -68.3847,-25.1368 -68.3721,-25.1234 -68.3729,-25.1034 -68.3945,-25.0775 -68.4260,-25.0512 -68.4490,-25.0211 -68.4456,-24.9837 -68.4429,-24.9741 -68.4453,-24.9676 -68.4504,-24.9616 -68.4555,-24.9539 -68.4594,-24.9493 -68.4706,-24.9414 -68.4746,-24.9368 -68.4751,-24.9320 -68.4741,-24.9270 -68.4723,-24.9231 -68.4712,-24.9221 -68.4785,-24.9079 -68.4848,-24.8996 -68.4954,-24.8958 -68.5157,-24.8955 -68.5231,-24.8901 -68.5471,-24.8774 -68.5565,-24.8688 -68.5607,-24.8622 -68.5835,-24.8087 -68.5841,-24.7917 -68.5779,-24.7699 -68.5268,-24.6753 -68.5157,-24.6413 -68.5135,-24.6268 -68.5092,-24.6123 -68.5010,-24.6018 -68.4873,-24.5988 -68.4865,-24.5998 -68.4683,-24.6233 -68.4570,-24.6293 -68.4561,-24.6269 -68.4499,-24.6102 -68.4432,-24.5797 -68.4031,-24.5005 -68.3853,-24.4911 -68.3812,-24.4918 -68.3679,-24.4942 -68.3504,-24.4998 -68.3461,-24.4994 -68.3323,-24.4982 -68.3195,-24.4873 -68.2823,-24.4323 -68.2726,-24.4042 -68.2679,-24.3968 -68.2500,-24.3854 -68.2165,-24.3725 -68.1663,-24.3531 -68.1161,-24.3338 -68.0660,-24.3144 -68.0157,-24.2951 -67.8907,-24.2439 -67.7657,-24.1927 -67.6407,-24.1415 -67.5158,-24.0904 -67.5067,-24.0871 -67.4867,-24.0801 -67.4667,-24.0729 -67.4577,-24.0696 -67.4178,-24.0556 -67.3679,-24.0304 -67.3453,-24.0006 -67.3236,-23.9352 -67.2568,-23.7331 -67.2534,-23.7227 -67.1832,-23.5102 -67.1129,-23.2977 -67.0428,-23.0854 -67.0250,-23.0319 -67.0195,-23.0007 -67.1994,-22.8222 -67.1482,-22.7427 -67.1187,-22.7101 -67.0432,-22.6546 -67.0321,-22.6394 -67.0298,-22.6176 -67.0382,-22.5246 -67.0212,-22.5238 -67.0194,-22.5240 -66.9990,-22.5258 -66.9974,-22.5255 -66.9836,-22.5225 -66.9707,-22.5143 -66.9611,-22.5007 -66.9408,-22.4805 -66.9141,-22.4675 -66.8019,-22.4349 -66.7906,-22.4276 -66.7900,-22.4173 -66.7960,-22.3883 -66.7935,-22.3801 -66.7807,-22.3652 -66.7734,-22.3426 -66.7616,-22.2683 -66.7544,-22.2449 -66.7414,-22.2251 -66.7183,-22.2064 -66.7048,-22.2008 -66.7002,-22.2012 -66.6939,-22.2017 -66.6829,-22.2051 -66.6633,-22.2074 -66.6469,-22.2125 -66.6438,-22.2118 -66.6418,-22.2113 -66.6388,-22.2049 -66.6361,-22.1974 -66.6322,-22.1926 -66.5158,-22.1629 -66.3830,-22.1271 -66.3587,-22.1096 -66.3547,-22.1002 -66.3485,-22.0905 -66.3407,-22.0823 -66.3322,-22.0774 -66.3195,-22.0758 -66.3186,-22.0764 -66.3153,-22.0782 -66.3131,-22.0770 -66.3128,-22.0765 -66.3070,-22.0650 -66.3026,-22.0503 -66.2930,-21.9570 -66.2455,-21.7924 -66.2280,-21.7869 -66.2252,-21.7878 -66.1433,-21.8125 -66.1000,-21.8329 -66.0691,-21.8640 -66.0572,-21.9126 -66.0520,-21.9180 -65.9600,-21.9331 -65.9382,-21.9446 -65.8100,-22.0858 -65.7808,-22.1051 -65.7501,-22.1140 -65.7461,-22.1136 -65.6108,-22.0991 -65.6034,-22.0957 -65.5989,-22.0911 -65.5940,-22.0873 -65.5854,-22.0865 -65.5831,-22.0868 -65.5160,-22.0959 -65.4628,-22.1014 -65.4579,-22.1014 -65.1960,-22.0985 -65.0259,-22.0966 -65.0256,-22.0966 -64.8380,-22.1375 -64.7678,-22.1744 -64.7284,-22.1833 -64.7252,-22.1828 -64.7192,-22.1817 -64.7007,-22.1742 -64.6929,-22.1729 -64.6910,-22.1735 -64.6845,-22.1754 -64.6633,-22.1784 -64.6442,-22.1917 -64.6218,-22.2022 -64.6017,-22.2066 -64.5924,-22.2128 -64.5657,-22.2431 -64.5573,-22.2550 -64.5483,-22.2755 -64.5477,-22.2915 -64.5546,-22.3054 -64.5676,-22.3198 -64.5775,-22.3432 -64.5644,-22.3606 -64.5434,-22.3743 -64.5300,-22.3854 -64.5288,-22.3962 -64.5366,-22.4155 -64.5368,-22.4257 -64.5312,-22.4330 -64.5133,-22.4440 -64.5095,-22.4499 -64.5036,-22.4728 -64.4892,-22.4912 -64.4338,-22.5423 -64.4353,-22.5571 -64.4427,-22.5674 -64.4510,-22.5762 -64.4549,-22.5871 -64.4559,-22.5971 -64.4607,-22.6167 -64.4617,-22.6280 -64.4592,-22.6429 -64.4527,-22.6487 -64.4437,-22.6519 -64.4338,-22.6590 -64.4072,-22.7124 -64.3963,-22.7205 -64.3745,-22.7297 -64.3612,-22.7519 -64.3578,-22.7791 -64.3655,-22.8030 -64.3532,-22.8170 -64.3508,-22.8461 -64.3308,-22.8719 -64.3319,-22.8634 -64.3324,-22.8592 -64.3090,-22.7823 -64.3001,-22.7629 -64.2995,-22.6909 -64.2563,-22.5407 -64.2418,-22.5167 -64.1902,-22.4712 -64.1660,-22.4385 -64.0917,-22.2579 -64.0844,-22.2506 -64.0643,-22.2403 -64.0565,-22.2292 -64.0253,-22.1554 -64.0099,-22.0993 -64.0011,-22.0829 -63.9959,-22.0793 -63.9889,-22.0774 -63.9813,-22.0738 -63.9736,-22.0665 -63.9701,-22.0585 -63.9665,-22.0391 -63.9570,-22.0167 -63.9564,-22.0108 -63.9531,-22.0076 -63.9387,-22.0018 -63.9119,-21.9972 -63.9079,-21.9974 -63.8186,-22.0030 -63.7985,-22.0115 -63.7573,-22.0457 -63.7459,-22.0506 -63.7440,-22.0490 -63.6994,-22.0120 -63.6833,-22.0037 -63.6449,-21.9975 -63.6396,-21.9975 -63.3277,-21.9991 -63.0159,-22.0008 -63.0158,-22.0007 -63.0154,-22.0007 -62.8675,-21.9932 -62.8663,-21.9934 -62.8241,-22.0009 -62.8098,-22.0041 -62.8068,-22.0135 -62.8005,-22.0512 -62.8005,-22.0611 -62.8033,-22.0694 -62.7966,-22.0816 -62.7964,-22.1132 -62.7890,-22.1309 -62.7749,-22.1447 -62.7275,-22.1662 -62.6848,-22.1948 -62.6729,-22.2066 -62.6687,-22.2155 -62.6673,-22.2245 -62.6645,-22.2317 -62.6558,-22.2345 -62.6459,-22.2362 -62.6373,-22.2408 -62.6303,-22.2473 -62.6251,-22.2550 -62.6264,-22.2550 -62.6319,-22.2550 -62.6258,-22.2685 -62.6297,-22.2789 -62.6363,-22.2877 -62.6382,-22.2960 -62.6308,-22.3050 -62.6186,-22.3115 -62.6051,-22.3152 -62.5938,-22.3164 -62.5702,-22.3220 -62.5531,-22.3353 -62.5289,-22.3649 -62.5162,-22.3702 -62.4761,-22.3818 -62.4674,-22.3888 -62.4605,-22.4039 -62.4436,-22.4197 -62.3737,-22.4644 -62.3542,-22.4713 -62.3468,-22.4723 -62.3112,-22.4767 -62.3000,-22.4798 -62.2927,-22.4839 -62.2900,-22.4887 -62.2891,-22.4938 -62.2893,-22.5048 -62.2869,-22.5121 -62.2811,-22.5135 -62.2769,-22.5132 -62.2743,-22.5130 -62.2731,-22.5133 -62.2688,-22.5144 -62.2467,-22.5384 -62.2387,-22.5563 -62.2443,-22.5730 -62.2585,-22.5911 -62.2583,-22.6036 -62.2452,-22.6138 -62.2204,-22.6243 -62.2080,-22.6272 -62.2044,-22.6268 -62.2021,-22.6265 -62.2010,-22.6270 -62.1985,-22.6282 -62.1931,-22.6386 -62.2001,-22.6606 -62.2005,-22.6736 -62.1814,-22.6849 -62.1938,-22.7083 -62.1897,-22.7137 -62.1763,-22.7173 -62.1696,-22.7259 -62.1652,-22.7372 -62.1590,-22.7478 -62.1316,-22.7757 -62.1280,-22.7832 -62.1252,-22.7921 -62.1214,-22.7998 -62.1143,-22.8030 -62.1133,-22.8065 -62.1047,-22.8137 -62.0948,-22.8199 -62.0901,-22.8202 -62.0863,-22.8324 -62.0771,-22.8439 -62.0559,-22.8645 -62.0413,-22.8849 -62.0227,-22.9218 -62.0115,-22.9368 -62.0093,-22.9464 -62.0144,-22.9697 -62.0115,-22.9744 -62.0114,-22.9789 -61.9975,-22.9981 -61.9619,-23.0344 -61.8505,-23.0972 -61.8425,-23.1047 -61.8198,-23.1352 -61.8081,-23.1450 -61.7855,-23.1569 -61.7748,-23.1656 -61.7640,-23.1774 -61.7578,-23.1871 -61.7550,-23.1988 -61.7543,-23.2173 -61.7497,-23.2348 -61.7385,-23.2434 -61.7240,-23.2493 -61.7099,-23.2584 -61.6942,-23.2745 -61.6858,-23.2792 -61.6723,-23.2829 -61.6669,-23.2829 -61.6251,-23.2829 -61.6106,-23.2893 -61.5601,-23.3384 -61.5513,-23.3426 -61.5395,-23.3446 -61.5215,-23.3450 -61.5263,-23.3533 -61.5310,-23.3647 -61.5318,-23.3747 -61.5159,-23.3844 -61.5066,-23.4078 -61.4973,-23.4132 -61.4758,-23.4141 -61.4574,-23.4174 -61.4412,-23.4237 -61.4260,-23.4337 -61.4142,-23.4436 -61.4042,-23.4501 -61.3903,-23.4537 -61.3673,-23.4547 -61.3024,-23.4814 -61.2945,-23.4941 -61.2884,-23.5099 -61.2781,-23.5236 -61.2574,-23.5293 -61.2484,-23.5331 -61.2291,-23.5513 -61.2199,-23.5572 -61.2132,-23.5576 -61.2105,-23.5574 -61.1932,-23.5562 -61.1913,-23.5565 -61.1857,-23.5572 -61.1733,-23.5666 -61.1599,-23.5803 -61.1450,-23.5927 -61.1277,-23.5982 -61.1153,-23.6070 -61.1117,-23.6272 -61.1152,-23.6500 -61.1243,-23.6664 -61.1151,-23.6756 -61.0980,-23.7019 -61.0717,-23.7157 -61.0555,-23.7347 -61.0435,-23.7554 -61.0417,-23.7688 -61.0357,-23.7746 -61.0213,-23.7967 -61.0118,-23.8055 -60.9803,-23.8241 -60.9765,-23.8231 -60.9422,-23.8138 -60.9401,-23.8148 -60.9054,-23.8305 -60.8718,-23.8559 -60.8431,-23.8718 -60.8223,-23.8741 -60.8178,-23.8740 -60.7348,-23.8721 -60.7344,-23.8722 -60.7253,-23.8750 -60.7049,-23.8913 -60.6952,-23.8936 -60.6906,-23.8934 -60.6492,-23.8914 -60.6471,-23.8915 -60.6376,-23.8923 -60.6266,-23.8958 -60.6093,-23.9047 -60.6001,-23.9065 -60.5991,-23.9122 -60.5830,-23.9442 -60.5772,-23.9460 -60.5415,-23.9476 -60.5232,-23.9557 -60.4904,-23.9773 -60.4285,-23.9885 -60.4240,-23.9883 -60.3929,-23.9872 -60.3918,-23.9873 -60.3838,-23.9885 -60.3731,-23.9947 -60.3535,-24.0108 -60.3429,-24.0164 -60.3335,-24.0180 -60.3293,-24.0178 -60.3019,-24.0164 -60.3005,-24.0166 -60.2236,-24.0274 -60.2191,-24.0272 -60.1487,-24.0252 -60.1248,-24.0202 -60.0779,-24.0048 -60.0572,-24.0029 -60.0556,-24.0032 -60.0392,-24.0070 -59.6791,-24.2254 -59.6408,-24.2615 -59.6232,-24.2835 -59.6160,-24.2896 -59.6060,-24.2929 -59.5809,-24.2959 -59.5639,-24.3054 -59.5455,-24.3088 -59.5375,-24.3141 -59.5266,-24.3250 -59.5159,-24.3327 -59.4931,-24.3448 -59.4714,-24.3536 -59.4652,-24.3585 -59.4618,-24.3654 -59.4593,-24.3745 -59.4558,-24.3824 -59.4315,-24.3925 -59.3926,-24.4238 -59.3833,-24.4335 -59.3629,-24.4690 -59.3465,-24.4876 -59.3136,-24.4988 -59.3005,-24.5129 -59.2911,-24.5161 -59.2759,-24.5182 -59.2686,-24.5235 -59.2631,-24.5302 -59.2536,-24.5372 -59.2120,-24.5502 -59.1834,-24.5687 -59.1599,-24.5763 -59.1225,-24.5988 -59.1027,-24.6054 -59.0838,-24.6056 -59.0777,-24.6068 -59.0679,-24.6123 -59.0479,-24.6305 -59.0382,-24.6370 -59.0064,-24.6442 -58.8147,-24.7768 -58.7940,-24.7816 -58.7430,-24.7828 -58.7287,-24.7867 -58.7215,-24.7919 -58.7136,-24.7951 -58.7074,-24.7993 -58.7049,-24.8073 -58.6997,-24.8120 -58.4789,-24.8513 -58.4563,-24.8617 -58.4440,-24.8728 -58.4203,-24.9031 -58.3561,-24.9686 -58.3499,-24.9783 -58.3468,-24.9862 -58.3415,-24.9919 -58.3288,-24.9953 -58.3252,-24.9948 -58.3175,-24.9936 -58.3048,-24.9877 -58.2928,-24.9798 -58.2646,-24.9530 -58.2480,-24.9417 -58.2296,-24.9412 -58.2293,-24.9414 -58.1394,-24.9979 -58.1295,-25.0129 -58.1242,-25.0127 -58.1170,-25.0123 -58.1165,-25.0126 -58.0475,-25.0444 -58.0376,-25.0451 -58.0355,-25.0448 -58.0153,-25.0425 -58.0133,-25.0429 -58.0059,-25.0444 -57.9991,-25.0527 -57.9954,-25.0641 -57.9893,-25.0742 -57.9753,-25.0785 -57.8960,-25.0787 -57.8762,-25.0853 -57.8620,-25.0968 -57.8179,-25.1437 -57.8028,-25.1539 -57.7715,-25.1679 -57.7596,-25.1809 -57.7273,-25.2461 -57.7078,-25.2709 -57.6775,-25.2898 -57.6770,-25.2901 -57.6467,-25.3605 -57.6463,-25.3726 -57.5842,-25.4167 -57.5708,-25.4304 -57.5636,-25.4435 -57.5624,-25.4598 -57.5755,-25.5467 -57.5808,-25.5644 -57.5926,-25.5757 -57.6062,-25.5788 -57.6171,-25.5859 -57.6218,-25.6092 -57.6286,-25.6154 -57.6398,-25.6157 -57.6443,-25.6158 -57.6683,-25.6129 -57.6736,-25.6123 -57.6755,-25.6169 -57.6807,-25.6393 -57.6845,-25.6470 -57.6938,-25.6527 -57.7014,-25.6534 -57.7037,-25.6536 -57.7112,-25.6531 -57.7142,-25.6529 -57.7254,-25.6538 -57.7467,-25.6619 -57.7592,-25.6727 -57.7801,-25.7017 -57.7740,-25.7100 -57.7661,-25.7156 -57.7566,-25.7196 -57.7459,-25.7221 -57.7566,-25.7349 -57.7734,-25.7507 -57.7927,-25.7641 -57.8111,-25.7699 -57.8261,-25.7783 -57.8225,-25.7975 -57.8074,-25.8314 -57.8183,-25.8452 -57.8251,-25.8498 -57.8387,-25.8588 -57.8597,-25.8689 -57.8808,-25.8761 -57.8837,-25.8832 -57.8808,-25.8902 -57.8579,-25.8980 -57.8569,-25.9084 -57.8626,-25.9199 -57.8688,-25.9276 -57.9037,-25.9536 -57.9113,-25.9686 -57.8651,-25.9809 -57.8652,-25.9943 -57.8782,-26.0103 -57.9937,-26.0885 -58.0271,-26.1057 -58.0920,-26.1272 -58.1022,-26.1367 -58.1118,-26.1703 -58.1207,-26.1910 -58.1261,-26.1977 -58.1295,-26.2019 -58.1331,-26.1947 -58.1387,-26.1890 -58.1467,-26.1848 -58.1511,-26.1833 -58.1568,-26.1814 -58.1544,-26.1993 -58.1426,-26.2095 -58.1267,-26.2167 -58.1121,-26.2261 -58.1115,-26.2395 -58.1288,-26.2515 -58.1515,-26.2601 -58.1673,-26.2633 -58.1754,-26.2703 -58.1755,-26.2866 -58.1704,-26.3186 -58.1731,-26.3350 -58.1782,-26.3493 -58.2117,-26.4027 -58.2185,-26.4186 -58.2151,-26.4313 -58.1909,-26.4517 -58.1942,-26.4621 -58.2082,-26.4716 -58.2114,-26.4794 -58.2142,-26.4969 -58.2197,-26.5124 -58.2228,-26.5276 -58.2189,-26.5445 -58.2135,-26.5502 -58.1909,-26.5650 -58.1848,-26.5726 -58.1760,-26.5868 -58.1704,-26.5923 -58.1770,-26.5986 -58.1940,-26.6097 -58.1978,-26.6128 -58.1976,-26.6246 -58.1927,-26.6336 -58.1869,-26.6416 -58.1841,-26.6507 -58.1893,-26.6568 -58.1971,-26.6572 -58.2012,-26.6575 -58.2327,-26.6520 -58.2356,-26.6500 -58.2378,-26.6486 -58.2410,-26.6498 -58.2461,-26.6612 -58.2507,-26.6802 -58.2534,-26.7582 -58.2572,-26.7632 -58.2642,-26.7644 -58.2647,-26.7645 -58.2717,-26.7643 -58.2769,-26.7643 -58.2934,-26.7686 -58.2920,-26.7787 -58.2840,-26.7902 -58.2803,-26.7984 -58.2933,-26.8108 -58.2940,-26.8115 -58.3110,-26.8091 -58.3261,-26.8046 -58.3288,-26.8038 -58.3455,-26.8086 -58.3579,-26.8305 -58.3459,-26.8445 -58.3276,-26.8568 -58.3213,-26.8741 -58.3344,-26.8841 -58.3572,-26.8856 -58.3808,-26.8874 -58.3908,-26.8969 -58.4000,-26.9095 -58.4216,-26.9174 -58.4659,-26.9280 -58.4816,-26.9379 -58.4898,-26.9504 -58.4877,-26.9637 -58.4727,-26.9757 -58.4806,-26.9899 -58.4984,-27.0096 -58.5075,-27.0235 -58.5109,-27.0314 -58.5128,-27.0383 -58.5137,-27.0549 -58.5169,-27.0590 -58.5176,-27.0599 -58.5255,-27.0584 -58.5325,-27.0542 -58.5335,-27.0517 -58.5335,-27.0478 -58.5360,-27.0405 -58.5393,-27.0379 -58.5415,-27.0362 -58.5417,-27.0363 -58.5509,-27.0410 -58.5572,-27.0482 -58.5619,-27.0555 -58.5652,-27.0634 -58.5677,-27.0721 -58.5679,-27.0901 -58.5660,-27.1055 -58.5710,-27.1160 -58.6216,-27.1238 -58.6443,-27.1359 -58.6588,-27.1563 -58.6639,-27.1851 -58.6578,-27.1980 -58.6442,-27.2101 -58.6195,-27.2267 -58.6070,-27.2457 -58.6054,-27.2661 -58.6096,-27.3155 -58.6097,-27.3163 -58.6057,-27.3130 -58.6039,-27.3123 -58.5163,-27.2784 -58.2437,-27.2570 -58.2415,-27.2573 -58.1343,-27.2697 -58.1305,-27.2695 -58.1195,-27.2689 -58.0590,-27.2590 -58.0543,-27.2591 -58.0275,-27.2598 -58.0092,-27.2633 -57.9498,-27.2746 -57.9195,-27.2862 -57.9050,-27.2890 -57.8606,-27.2975 -57.8603,-27.2976 -57.8174,-27.3106 -57.8171,-27.3107 -57.7149,-27.3298 -57.7037,-27.3334 -57.5418,-27.4071 -57.5254,-27.4121 -57.5195,-27.4139 -57.4938,-27.4162 -57.4915,-27.4159 -57.3928,-27.4034 -57.3665,-27.4032 -57.3663,-27.4033 -57.3620,-27.4043 -57.3413,-27.4094 -57.3324,-27.4147 -57.3157,-27.4295 -57.3091,-27.4354 -57.2986,-27.4405 -57.2885,-27.4430 -57.2431,-27.4541 -57.2426,-27.4542 -57.2326,-27.4587 -57.2059,-27.4789 -57.1967,-27.4842 -57.1859,-27.4872 -57.1856,-27.4873 -57.1622,-27.4877 -57.1536,-27.4890 -57.1145,-27.4906 -57.1135,-27.4904 -57.0817,-27.4840 -56.9828,-27.4353 -56.9465,-27.4221 -56.9099,-27.4187 -56.9088,-27.4191 -56.8753,-27.4313 -56.8136,-27.4866 -56.7772,-27.5066 -56.7770,-27.5065 -56.7766,-27.5067 -56.7727,-27.5061 -56.7397,-27.5004 -56.6886,-27.4647 -56.6185,-27.4464 -56.6148,-27.4469 -56.5524,-27.4550 -56.5123,-27.5000 -56.4934,-27.5271 -56.4675,-27.5537 -56.4374,-27.5752 -56.4368,-27.5754 -56.4058,-27.5866 -56.4052,-27.5868 -56.4016,-27.5862 -56.3730,-27.5806 -56.3551,-27.5564 -56.3415,-27.5257 -56.3220,-27.5004 -56.3025,-27.4809 -56.2908,-27.4610 -56.2870,-27.4386 -56.2908,-27.4113 -56.2853,-27.3896 -56.2623,-27.3783 -56.2335,-27.3712 -56.2109,-27.3622 -56.1744,-27.3247 -56.1555,-27.3118 -56.1300,-27.2989 -56.1252,-27.2992 -56.1044,-27.3006 -56.0797,-27.3048 -56.0792,-27.3049 -56.0124,-27.3283 -56.0124,-27.3283 -55.9903,-27.3323 -55.9856,-27.3321 -55.9716,-27.3317 -55.9661,-27.3316 -55.9419,-27.3283 -55.9186,-27.3278 -55.9183,-27.3279 -55.8983,-27.3349 -55.8833,-27.3536 -55.8683,-27.3911 -55.8596,-27.4012 -55.8476,-27.4074 -55.8207,-27.4141 -55.7602,-27.4437 -55.7580,-27.4421 -55.7230,-27.4173 -55.6872,-27.3794 -55.6591,-27.3601 -55.6342,-27.3564 -55.6130,-27.3455 -55.5968,-27.3284 -55.5871,-27.3055 -55.5862,-27.2917 -55.5887,-27.2835 -55.5896,-27.2768 -55.5762,-27.2564 -55.5742,-27.2460 -55.5761,-27.2353 -55.5804,-27.2236 -55.6045,-27.1826 -55.6038,-27.1675 -55.5772,-27.1615 -55.5608,-27.1538 -55.5550,-27.1358 -55.5509,-27.1152 -55.5393,-27.0994 -55.5195,-27.0975 -55.5167,-27.0977 -55.4919,-27.1001 -55.4890,-27.0998 -55.4673,-27.0980 -55.4568,-27.0821 -55.4543,-27.0359 -55.4482,-27.0155 -55.4363,-26.9964 -55.4195,-26.9799 -55.4018,-26.9693 -55.3817,-26.9638 -55.3349,-26.9585 -55.2861,-26.9343 -55.2807,-26.9343 -55.2620,-26.9346 -55.2407,-26.9422 -55.2221,-26.9512 -55.2067,-26.9555 -55.1671,-26.9573 -55.1658,-26.9571 -55.1438,-26.9537 -55.1278,-26.9417 -55.1244,-26.9200 -55.1382,-26.8806 -55.1313,-26.8636 -55.0664,-26.8052 -55.0462,-26.7985 -54.9973,-26.7946 -54.9808,-26.7878 -54.9665,-26.7723 -54.9566,-26.7575 -54.9494,-26.7400 -54.9362,-26.6940 -54.9254,-26.6741 -54.9088,-26.6599 -54.8848,-26.6544 -54.8794,-26.6544 -54.8405,-26.6544 -54.8329,-26.6581 -54.8283,-26.6633 -54.8228,-26.6658 -54.8200,-26.6645 -54.8125,-26.6612 -54.7985,-26.6450 -54.7904,-26.6228 -54.7868,-26.5982 -54.7858,-26.5752 -54.7890,-26.5567 -54.7943,-26.5426 -54.7953,-26.5285 -54.7858,-26.5104 -54.7708,-26.4941 -54.7427,-26.4732 -54.7120,-26.4418 -54.7032,-26.4282 -54.6986,-26.4119 -54.6889,-26.3508 -54.6859,-26.3453 -54.6845,-26.3399 -54.6691,-26.3084 -54.6691,-26.2633 -54.6716,-26.2437 -54.6698,-26.2362 -54.6617,-26.2230 -54.6502,-26.2082 -54.6438,-26.1970 -54.6473,-26.1840 -54.6654,-26.1644 -54.6693,-26.1492 -54.6486,-26.0852 -54.6480,-26.0628 -54.6588,-26.0308 -54.6637,-26.0004 -54.6671,-25.9899 -54.6678,-25.9799 -54.6617,-25.9692 -54.6534,-25.9656 -54.6292,-25.9643 -54.6207,-25.9617 -54.6119,-25.9466 -54.6128,-25.9279 -54.6207,-25.8829 -54.6156,-25.8665 -54.6047,-25.8507 -54.5950,-25.8329 -54.5934,-25.8108 -54.6000,-25.7987 -54.6226,-25.7735 -54.6275,-25.7600 -54.6304,-25.7402 -54.6486,-25.6879 -54.6484,-25.6616 -54.6392,-25.6521 -54.6340,-25.6523 -54.6040,-25.6538 -54.6036,-25.6536 -54.5888,-25.6448 -54.5917,-25.6247 -54.6077,-25.5924 -54.6057,-25.5749 -54.6054,-25.5727 -54.5996,-25.5486 -54.5970,-25.5247 -54.6040,-25.5058 -54.6140,-25.4876 -54.6179,-25.4655 -54.6173,-25.4440 -54.6153,-25.4328 -54.6035,-25.3975 -54.5811,-25.3603 -54.5526,-25.3366 -54.5340,-25.3143 -54.5091,-25.2787 -54.4869,-25.2132 -54.4749,-25.1955 -54.4412,-25.1670 -54.4321,-25.1495 -54.4352,-25.1306 -54.4607,-25.0921 -54.4688,-25.0728 -54.4697,-25.0559 -54.4678,-25.0372 -54.4588,-25.0028 -54.4128,-24.8212 -54.4052,-24.8048 -54.3766,-24.7667 -54.3268,-24.6284 -54.3262,-24.5959 -54.3403,-24.5273 -54.3400,-24.4967 -54.3284,-24.4643 -54.2896,-24.4113 -54.2772,-24.3894 -54.2677,-24.3585 -54.2665,-24.3295 -54.2798,-24.2983 -54.2881,-24.2753 -54.3118,-24.2467 -54.3196,-24.2342 -54.3245,-24.1968 -54.3373,-24.1650 -54.3401,-24.1489 -54.3303,-24.1182 -54.3065,-24.0899 -54.2717,-24.0659 -54.2508,-24.0506 -54.2512,-24.0504 -54.2103,-24.0307 -54.1912,-24.0176 -54.1831,-24.0055 -54.1040,-23.9679 -54.0827,-23.9492 -54.0747,-23.9056 -54.0733,-23.8165 -54.0636,-23.7747 -54.0322,-23.6978 -54.0231,-23.6371 -53.9770,-23.4887 -53.9777,-23.4530 -53.9736,-23.4438 -53.9531,-23.4245 -53.8678,-23.3926 -53.7593,-23.3280 -53.7306,-23.2964 -53.7108,-23.2585 -53.6817,-23.1822 -53.6624,-23.1455 -53.6468,-23.1060 -53.6336,-23.0013 -53.6282,-22.9816 -53.6023,-22.9202 -53.5904,-22.9025 -53.5582,-22.8724 -53.4851,-22.8308 -53.1735,-22.7017 -53.1415,-22.6763 -53.1147,-22.6454 -53.0590,-22.5456 -53.0536,-22.5389 -53.0412,-22.5347 -53.0275,-22.5318 -53.0181,-22.5285 -53.0088,-22.5185 -52.9927,-22.4856 -52.9725,-22.4589 -52.9662,-22.4547 -52.9636,-22.4566 -52.9577,-22.4610 -52.9425,-22.4613 -52.9421,-22.4612 -52.9246,-22.4558 -52.8481,-22.4206 -52.8432,-22.4153 -52.8333,-22.3910 -52.8285,-22.3848 -52.8223,-22.3801 -52.7290,-22.3279 -52.6971,-22.3025 -52.6817,-22.2938 -52.6267,-22.2738 -52.5937,-22.2491 -52.5756,-22.2385 -52.5653,-22.2354 -52.5443,-22.2325 -52.5342,-22.2294 -52.5244,-22.2233 -52.5009,-22.1995 -52.4931,-22.1946 -52.4677,-22.1831 -52.4606,-22.1771 -52.4437,-22.1562 -52.3748,-22.0989 -52.3704,-22.0917 -52.3643,-22.0652 -52.3609,-22.0565 -52.3307,-21.9990 -52.3257,-21.9843 -52.3227,-21.9545 -52.3192,-21.9401 -52.3093,-21.9249 -52.2582,-21.8797 -52.2511,-21.8749 -52.2330,-21.8682 -52.2227,-21.8623 -52.2137,-21.8535 -52.2061,-21.8429 -52.1996,-21.8317 -52.1956,-21.8198 -52.1944,-21.7998 -52.1904,-21.7887 -52.1581,-21.7393 -52.1438,-21.7307 -52.1081,-21.7159 -52.0847,-21.7003 -52.0657,-21.6844 -52.0491,-21.6661 -52.0460,-21.6439 -52.0473,-21.6369 -52.0562,-21.6241 -52.0686,-21.6197 -52.1118,-21.5503 -52.1094,-21.5234 -52.1056,-21.5214 -52.0972,-21.5185 -52.0936,-21.5157 -52.0907,-21.5108 -52.0899,-21.5061 -52.0897,-21.5013 -52.0886,-21.4962 -52.0831,-21.4858 -52.0760,-21.4803 -52.0668,-21.4780 -52.0550,-21.4776 -52.0537,-21.4777 -52.0358,-21.4800 -52.0199,-21.4841 -52.0043,-21.4854 -52.0033,-21.4850 -51.9864,-21.4792 -51.9707,-21.4666 -51.9417,-21.4227 -51.9338,-21.4020 -51.8729,-21.3430 -51.8571,-21.2986 -51.8606,-21.2571 -51.8804,-21.1717 -51.8766,-21.1440 -51.8640,-21.1297 -51.8466,-21.1203 -51.8217,-21.1013 -51.8053,-21.0940 -51.7984,-21.0898 -51.7934,-21.0837 -51.7773,-21.0557 -51.7512,-20.9956 -51.7401,-20.9868 -51.7386,-20.9836 -51.7165,-20.9663 -51.6468,-20.8944 -51.6375,-20.8770 -51.6265,-20.7683 -51.6277,-20.7225 -51.6257,-20.6998 -51.6036,-20.6616 -51.5942,-20.6168 -51.5855,-20.5964 -51.5677,-20.5849 -51.5201,-20.5742 -51.4675,-20.5232 -51.4452,-20.4910 -51.4021,-20.4414 -51.3879,-20.4177 -51.3504,-20.3773 -51.3319,-20.3624 -51.2725,-20.3344 -51.1427,-20.2973 -51.1191,-20.2832 -51.0925,-20.2634 -51.0607,-20.2282 -51.0346,-20.1893 -50.9994,-20.1017 -51.0102,-20.0280 -51.0125,-19.9047 -51.0331,-19.7541 -51.0318,-19.7247 -51.0261,-19.6976 -51.0028,-19.6676 -50.9968,-19.6458 -50.9961,-19.5915 -50.9941,-19.5828 -50.9897,-19.5760 -50.9821,-19.5721 -50.9641,-19.5719 -50.9555,-19.5685 -50.9426,-19.5493 -50.9489,-19.5322 -50.9620,-19.5153 -50.9692,-19.4965 -50.9667,-19.4735 -51.0398,-19.3683 -51.0902,-19.3147 -51.1040,-19.3027 -51.1185,-19.2930 -51.1308,-19.2875 -51.1437,-19.2844 -51.1506,-19.2843 -51.1559,-19.2843 -51.1770,-19.2875 -51.1791,-19.2878 -51.1920,-19.2866 -51.2225,-19.2723 -51.2357,-19.2683 -51.2740,-19.2668 -51.2876,-19.2641 -51.3009,-19.2597 -51.3163,-19.2529 -51.3258,-19.2456 -51.3471,-19.2229 -51.4122,-19.1692 -51.4252,-19.1616 -51.4354,-19.1577 -51.4740,-19.1528 -51.5361,-19.1373 -51.5457,-19.1359 -51.5472,-19.1357 -51.5858,-19.1377 -51.5897,-19.1380 -51.6373,-19.1318 -51.6486,-19.1288 -51.8476,-19.0481 -51.8587,-19.0399 -51.8831,-19.0135 -51.9185,-18.9883 -51.9563,-18.9754 -52.0105,-18.9652 -52.0462,-18.9532 -52.0652,-18.9447 -52.0759,-18.9355 -52.0808,-18.9266 -52.0850,-18.9172 -52.0899,-18.9086 -52.1040,-18.8960 -52.1791,-18.8488 -52.2369,-18.8213 -52.2629,-18.8139 -52.2731,-18.8130 -52.2755,-18.8128 -52.3249,-18.8163 -52.3280,-18.8165 -52.3483,-18.8147 -52.3611,-18.8099 -52.3713,-18.8038 -52.4466,-18.7325 -52.4753,-18.7130 -52.4882,-18.7074 -52.4994,-18.7055 -52.5019,-18.7051 -52.6189,-18.7223 -52.6211,-18.7226 -52.6483,-18.7201 -52.6955,-18.7098 -52.6957,-18.7098 -52.7598,-18.7103 -52.7652,-18.7103 -52.8750,-18.6805 -52.9018,-18.6648 -52.9028,-18.6591 -52.9025,-18.6545 -52.8984,-18.6378 -52.8621,-18.5567 -52.8502,-18.5357 -52.7919,-18.4620 -52.7838,-18.4492 -52.7777,-18.4347 -52.7745,-18.4118 -52.7799,-18.3998 -52.7889,-18.3916 -52.8795,-18.3537 -52.8999,-18.3477 -52.9088,-18.3462 -52.9098,-18.3462 -52.9149,-18.3461 -52.9221,-18.3475 -52.9305,-18.3511 -52.9724,-18.3792 -52.9834,-18.3847 -52.9912,-18.3872 -52.9931,-18.3879 -53.0056,-18.3857 -53.0165,-18.3787 -53.0390,-18.3574 -53.0489,-18.3427 -53.0565,-18.3266 -53.0596,-18.3142 -53.0622,-18.2931 -53.0464,-18.0956 -53.0489,-18.0666 -53.0548,-18.0456 -53.0593,-18.0166 -53.0754,-17.9753 -53.1144,-17.8964 -53.1380,-17.8285 -53.1452,-17.7983 -53.1494,-17.7878 -53.1541,-17.7787 -53.1834,-17.7427 -53.2364,-17.6521 -53.2468,-17.6218 -53.2503,-17.5924 -53.2488,-17.5633 -53.2379,-17.5145 -53.2274,-17.5010 -53.2294,-17.4896 -53.2263,-17.4501 -53.2167,-17.4091 -53.2107,-17.3899 -53.2060,-17.3800 -53.1999,-17.3722 -53.1951,-17.3626 -53.1970,-17.3519 -53.2013,-17.3412 -53.2037,-17.3312 -53.2087,-17.2820 -53.2037,-17.2657 -53.1969,-17.2561 -53.1720,-17.2353 -53.1642,-17.2245 -53.1570,-17.2031 -53.1475,-17.1869 -53.1410,-17.1633 -53.1372,-17.1586 -53.1205,-17.1428 -53.0840,-17.0890 -53.0761,-17.0808 -53.0639,-17.0741 -53.0522,-17.0578 -53.0431,-17.0376 -53.0385,-17.0193 -53.0391,-17.0108 -53.0442,-16.9916 -53.0454,-16.9814 -53.0432,-16.9717 -53.0333,-16.9496 -53.0193,-16.8849 -53.0249,-16.8679 -52.9966,-16.8386 -52.9690,-16.8190 -52.9020,-16.7866 -52.8598,-16.7723 -52.8509,-16.7672 -52.8342,-16.7544 -52.8147,-16.7454 -52.7779,-16.7040 -52.7368,-16.6704 -52.7176,-16.6506 -52.7096,-16.6323 -52.7078,-16.6083 -52.7020,-16.5889 -52.6915,-16.5730 -52.6755,-16.5600 -52.6481,-16.5424 -52.6379,-16.5289 -52.6339,-16.5088 -52.6302,-16.4640 -52.6210,-16.4261 -52.6365,-16.4177 -52.6387,-16.4153 -52.6421,-16.4126 -52.6603,-16.4039 -52.6679,-16.3991 -52.6733,-16.3945 -52.6775,-16.3894 -52.6818,-16.3828 -52.6870,-16.3691 -52.6880,-16.3620 -52.6873,-16.3397 -52.6839,-16.3137 -52.6804,-16.3007 -52.6750,-16.2913 -52.6691,-16.2866 -52.6503,-16.2753 -52.6275,-16.2648 -52.5739,-16.2507 -52.5619,-16.2463 -52.5524,-16.2411 -52.5448,-16.2334 -52.5414,-16.2268 -52.5400,-16.2205 -52.5400,-16.2134 -52.5446,-16.1695 -52.5426,-16.1599 -52.5380,-16.1521 -52.5308,-16.1457 -52.5208,-16.1396 -52.4680,-16.1189 -52.4541,-16.1106 -52.4495,-16.0945 -52.4358,-16.0827 -52.3942,-16.0678 -52.3674,-16.0504 -52.3573,-16.0494 -52.3518,-16.0494 -52.3478,-16.0494 -52.3397,-16.0461 -52.3340,-16.0381 -52.3123,-15.9864 -52.2670,-15.9378 -52.2596,-15.9201 -52.2555,-15.9133 -52.2466,-15.9053 -52.2360,-15.8987 -52.2118,-15.8897 -52.1641,-15.8805 -52.0585,-15.8748 -52.0354,-15.8684 -52.0143,-15.8556 -51.9797,-15.8230 -51.9748,-15.8130 -51.9749,-15.8055 -51.9723,-15.8007 -51.9592,-15.7990 -51.9566,-15.7994 -51.9461,-15.8009 -51.9311,-15.8097 -51.9213,-15.8127 -51.9168,-15.8124 -51.9038,-15.8116 -51.8997,-15.8098 -51.8882,-15.8048 -51.8771,-15.7925 -51.8680,-15.7605 -51.8320,-15.7171 -51.8014,-15.6517 -51.7879,-15.6314 -51.7794,-15.6106 -51.7804,-15.5850 -51.7878,-15.5596 -51.7984,-15.5390 -51.7910,-15.5253 -51.7868,-15.5277 -51.7684,-15.5384 -51.7656,-15.5368 -51.7540,-15.5300 -51.7329,-15.4946 -51.7170,-15.4742 -51.7106,-15.4557 -51.7028,-15.4086 -51.6981,-15.3985 -51.6847,-15.3789 -51.6811,-15.3676 -51.6815,-15.3549 -51.6871,-15.3337 -51.6886,-15.3227 -51.6874,-15.3113 -51.6823,-15.2968 -51.6811,-15.2885 -51.6772,-15.2819 -51.6595,-15.2718 -51.6544,-15.2646 -51.6549,-15.2427 -51.6604,-15.2257 -51.6628,-15.2097 -51.6544,-15.1901 -51.6451,-15.1793 -51.6304,-15.1655 -51.6131,-15.1536 -51.5961,-15.1486 -51.5812,-15.1401 -51.5377,-15.0803 -51.5192,-15.0627 -51.4795,-15.0483 -51.4589,-15.0353 -51.4328,-15.0067 -51.4175,-14.9954 -51.3975,-14.9909 -51.3730,-14.9884 -51.3562,-14.9814 -51.3254,-14.9561 -51.3232,-14.9588 -51.3126,-14.9713 -51.3094,-14.9921 -51.3030,-15.0104 -51.2805,-15.0182 -51.2766,-15.0176 -51.2607,-15.0154 -51.2447,-15.0083 -51.2156,-14.9909 -51.1815,-14.9767 -51.1652,-14.9626 -51.1573,-14.9538 -51.1576,-14.9499 -51.1537,-14.9449 -51.1471,-14.9206 -51.1436,-14.9121 -51.1344,-14.9047 -51.1127,-14.8939 -51.1057,-14.8879 -51.0982,-14.8224 -51.0890,-14.8122 -51.0741,-14.8045 -51.0704,-14.7862 -51.0716,-14.7439 -51.0649,-14.7218 -51.0477,-14.6836 -51.0443,-14.6582 -51.0390,-14.6471 -51.0155,-14.6284 -51.0101,-14.6172 -51.0084,-14.6076 -50.9998,-14.5886 -50.9948,-14.5736 -50.9932,-14.5708 -50.9897,-14.5663 -50.9925,-14.5549 -50.9880,-14.5439 -50.9808,-14.5322 -50.9754,-14.5185 -50.9743,-14.5024 -50.9763,-14.4868 -50.9785,-14.4790 -50.9820,-14.4662 -50.9887,-14.4502 -50.9905,-14.4453 -50.9929,-14.4343 -50.9980,-14.4191 -51.0022,-14.4099 -51.0035,-14.4050 -51.0032,-14.3995 -50.9986,-14.3831 -50.9977,-14.3769 -50.9915,-14.3562 -50.9824,-14.3356 -50.9787,-14.3239 -50.9769,-14.3143 -50.9790,-14.2996 -50.9792,-14.2929 -50.9787,-14.2865 -50.9651,-14.2358 -50.9295,-14.1669 -50.9250,-14.1553 -50.9233,-14.1471 -50.9247,-14.1422 -50.9285,-14.1333 -50.9298,-14.1285 -50.9304,-14.1216 -50.9281,-14.1175 -50.9239,-14.1154 -50.9194,-14.1159 -50.9184,-14.1160 -50.9046,-14.1191 -50.9022,-14.1184 -50.8736,-14.1105 -50.8617,-14.1035 -50.8583,-14.0999 -50.8554,-14.0959 -50.8530,-14.0906 -50.8512,-14.0841 -50.8502,-14.0749 -50.8503,-14.0678 -50.8520,-14.0622 -50.8607,-14.0504 -50.8629,-14.0458 -50.8645,-14.0405 -50.8652,-14.0281 -50.8640,-14.0038 -50.8645,-13.9999 -50.8689,-13.9850 -50.8701,-13.9769 -50.8703,-13.9630 -50.8690,-13.9551 -50.8559,-13.9206 -50.8501,-13.8800 -50.8504,-13.8681 -50.8516,-13.8596 -50.8588,-13.8395 -50.8624,-13.8231 -50.8633,-13.8149 -50.8627,-13.7598 -50.8636,-13.7534 -50.8650,-13.7480 -50.8715,-13.7310 -50.8734,-13.7217 -50.8719,-13.7161 -50.8688,-13.7119 -50.8642,-13.7097 -50.8489,-13.7042 -50.8371,-13.7024 -50.8317,-13.7011 -50.8273,-13.6985 -50.8116,-13.6863 -50.8045,-13.6796 -50.8013,-13.6759 -50.7980,-13.6702 -50.7946,-13.6629 -50.7744,-13.6031 -50.7636,-13.5411 -50.7607,-13.5337 -50.7458,-13.5134 -50.7424,-13.5100 -50.7385,-13.5070 -50.7249,-13.5004 -50.7241,-13.4998 -50.7208,-13.4964 -50.7094,-13.4806 -50.7062,-13.4770 -50.7032,-13.4729 -50.6954,-13.4596 -50.6817,-13.4469 -50.6745,-13.4372 -50.6709,-13.4302 -50.6686,-13.4236 -50.6657,-13.3937 -50.6633,-13.3862 -50.6606,-13.3803 -50.6489,-13.3640 -50.6353,-13.3497 -50.6201,-13.3299 -50.6050,-13.3030 -50.5798,-13.2466 -50.5755,-13.2340 -50.5745,-13.2284 -50.5748,-13.2227 -50.5759,-13.2174 -50.5851,-13.1993 -50.5861,-13.1940 -50.5845,-13.1758 -50.5846,-13.1629 -50.5795,-13.1226 -50.5806,-13.1098 -50.5837,-13.0996 -50.5915,-13.0856 -50.5934,-13.0786 -50.5922,-13.0735 -50.5894,-13.0696 -50.5856,-13.0664 -50.5813,-13.0638 -50.5660,-13.0579 -50.5610,-13.0547 -50.5559,-13.0500 -50.5541,-13.0447 -50.5543,-13.0399 -50.5562,-13.0355 -50.5592,-13.0316 -50.5673,-13.0248 -50.5693,-13.0190 -50.5679,-13.0144 -50.5649,-13.0102 -50.5576,-13.0039 -50.5228,-12.9833 -50.5189,-12.9801 -50.5104,-12.9690 -50.5040,-12.9585 -50.5010,-12.9509 -50.4838,-12.8791 -50.4839,-12.8641 -50.4860,-12.8536 -50.4895,-12.8448 -50.5031,-12.8403 -50.5035,-12.8402 -50.5296,-12.8407 -50.5345,-12.8408 -50.5467,-12.8388 -50.5604,-12.8337 -50.5670,-12.8297 -50.5718,-12.8256 -50.5745,-12.8215 -50.5755,-12.8170 -50.5744,-12.8122 -50.5715,-12.8089 -50.5694,-12.8052 -50.5724,-12.8034 -50.5757,-12.8029 -50.5776,-12.8026 -50.5834,-12.8030 -50.5939,-12.8064 -50.5961,-12.8067 -50.6008,-12.8075 -50.6041,-12.8045 -50.6060,-12.7998 -50.6083,-12.7858 -50.6131,-12.7762 -50.6152,-12.7695 -50.6154,-12.7630 -50.6138,-12.7508 -50.6137,-12.7382 -50.6158,-12.7204 -50.6183,-12.7094 -50.6201,-12.7044 -50.6290,-12.6874 -50.6303,-12.6820 -50.6324,-12.6593 -50.6353,-12.6542 -50.6396,-12.6509 -50.6559,-12.6421 -50.6711,-12.6312 -50.6773,-12.6231 -50.6806,-12.6151 -50.6810,-12.6074 -50.6786,-12.6028 -50.6746,-12.6003 -50.6699,-12.6001 -50.6693,-12.6004 -50.6659,-12.6023 -50.6630,-12.6053 -50.6593,-12.6065 -50.6576,-12.6052 -50.6564,-12.6043 -50.6544,-12.5991 -50.6539,-12.5914 -50.6570,-12.5698 -50.6572,-12.5619 -50.6562,-12.5559 -50.6546,-12.5505 -50.6457,-12.5311 -50.6440,-12.5259 -50.6427,-12.5140 -50.6380,-12.4990 -50.6381,-12.4847 -50.6401,-12.4664 -50.6396,-12.4572 -50.6365,-12.4517 -50.6316,-12.4501 -50.6263,-12.4492 -50.6223,-12.4468 -50.6196,-12.4428 -50.6179,-12.4376 -50.6177,-12.4311 -50.6357,-12.3080 -50.6343,-12.3029 -50.6294,-12.2926 -50.6284,-12.2829 -50.6308,-12.2725 -50.6449,-12.2364 -50.6476,-12.2323 -50.6648,-12.2183 -50.6746,-12.2021 -50.6780,-12.1920 -50.6887,-12.0418 -50.6868,-12.0204 -50.6876,-12.0006 -50.6874,-11.9995 -50.6846,-11.9951 -50.6814,-11.9921 -50.6691,-11.9837 -50.6656,-11.9789 -50.6632,-11.9720 -50.6625,-11.9599 -50.6643,-11.9514 -50.6686,-11.9415 -50.6704,-11.9349 -50.6704,-11.9286 -50.6685,-11.9238 -50.6653,-11.9200 -50.6608,-11.9177 -50.6563,-11.9148 -50.6525,-11.9098 -50.6506,-11.9010 -50.6498,-11.8898 -50.6519,-11.8833 -50.6553,-11.8788 -50.6599,-11.8764 -50.6710,-11.8734 -50.6771,-11.8710 -50.6829,-11.8627 -50.6847,-11.8530 -50.6861,-11.8289 -50.6879,-11.8224 -50.6905,-11.8168 -50.6976,-11.7972 -50.6990,-11.7817 -50.7016,-11.7732 -50.7042,-11.7674 -50.7120,-11.7585 -50.7170,-11.7514 -50.7179,-11.7455 -50.7180,-11.7387 -50.7169,-11.7227 -50.7154,-11.7162 -50.7127,-11.7116 -50.7029,-11.7004 -50.6957,-11.6938 -50.6878,-11.6878 -50.6777,-11.6769 -50.6698,-11.6710 -50.6662,-11.6676 -50.6634,-11.6635 -50.6614,-11.6584 -50.6599,-11.6528 -50.6554,-11.6082 -50.6560,-11.5999 -50.6580,-11.5939 -50.6610,-11.5900 -50.6645,-11.5864 -50.6682,-11.5833 -50.7098,-11.5613 -50.7139,-11.5584 -50.7177,-11.5552 -50.7234,-11.5470 -50.7259,-11.5426 -50.7364,-11.5306 -50.7456,-11.5132 -50.7481,-11.5016 -50.7466,-11.4713 -50.7437,-11.4536 -50.7378,-11.4381 -50.7348,-11.4262 -50.7313,-11.4026 -50.6998,-11.3060 -50.6942,-11.2976 -50.6911,-11.2937 -50.6861,-11.2848 -50.6789,-11.2638 -50.6763,-11.2593 -50.6720,-11.2264 -50.6699,-11.1429 -50.6657,-11.1330 -50.6501,-11.1064 -50.6471,-11.1024 -50.6436,-11.0990 -50.6354,-11.0934 -50.6311,-11.0911 -50.6269,-11.0882 -50.6230,-11.0840 -50.6200,-11.0756 -50.6172,-11.0612 -50.6184,-11.0312 -50.6201,-11.0237 -50.6235,-11.0135 -50.6327,-10.9625 -50.6406,-10.9361 -50.6408,-10.9283 -50.6391,-10.9222 -50.6269,-10.9065 -50.6240,-10.9009 -50.6214,-10.8943 -50.6189,-10.8840 -50.6188,-10.8769 -50.6197,-10.8706 -50.6284,-10.8508 -50.6335,-10.8344 -50.6336,-10.8274 -50.6321,-10.8217 -50.6237,-10.8092 -50.6166,-10.8023 -50.6127,-10.7992 -50.6060,-10.7921 -50.6055,-10.7895 -50.5965,-10.7720 -50.5925,-10.7530 -50.5918,-10.7116 -50.5939,-10.7027 -50.6055,-10.6771 -50.6055,-10.6624 -50.6043,-10.6566 -50.5918,-10.6399 -50.5877,-10.6316 -50.5831,-10.6185 -50.5782,-10.6120 -50.5705,-10.6082 -50.5615,-10.6065 -50.5540,-10.6033 -50.5380,-10.5689 -50.5338,-10.5642 -50.5246,-10.5583 -50.5249,-10.5453 -50.5304,-10.5226 -50.5244,-10.5120 -50.5088,-10.4930 -50.5037,-10.4816 -50.5023,-10.4710 -50.5037,-10.4372 -50.4990,-10.4177 -50.4871,-10.4008 -50.4552,-10.3717 -50.4315,-10.3410 -50.4119,-10.2991 -50.3987,-10.2541 -50.3938,-10.2141 -50.4012,-10.1770 -50.4031,-10.1533 -50.3969,-10.1359 -50.3912,-10.1269 -50.3833,-10.1049 -50.3758,-10.0946 -50.3211,-10.0373 -50.3094,-10.0208 -50.3044,-10.0055 -50.3026,-9.9845 -50.2839,-9.9192 -50.2618,-9.8442 -50.7141,-9.8208 -51.1665,-9.7974 -51.1664,-9.7964 -51.3032,-9.7894 -51.7776,-9.7613 -52.2520,-9.7333 -52.7263,-9.7053 -53.2007,-9.6772 -53.6751,-9.6492 -54.1495,-9.6212 -54.6238,-9.5931 -55.0982,-9.5651 -55.5528,-9.5325 -56.0073,-9.4999 -56.4619,-9.4672 -56.4671,-9.4669 -56.4721,-9.4741 -56.4730,-9.4754 -56.4950,-9.4694 -56.5550,-9.4416 -56.5863,-9.4152 -56.6004,-9.4084 -56.6495,-9.3965 -56.6606,-9.3909 -56.6723,-9.3831 -56.6837,-9.3773 -56.6926,-9.3759 -56.6949,-9.3756 -56.7056,-9.3768 -56.7160,-9.3807 -56.7399,-9.3923 -56.7544,-9.3966 -56.7709,-9.3976 -56.7756,-9.3979 -56.7884,-9.3932 -56.7977,-9.3849 -56.8031,-9.3752 -56.8131,-9.3457 -56.8152,-9.3135 -56.8195,-9.3030 -56.8256,-9.2925 -56.8334,-9.2826 -56.8426,-9.2731 -56.8603,-9.2637 -56.9308,-9.2445 -56.9542,-9.2405 -56.9685,-9.2393 -56.9723,-9.2390 -56.9827,-9.2409 -56.9922,-9.2439 -57.0025,-9.2452 -57.0062,-9.2456 -57.0203,-9.2422 -57.0510,-9.2304 -57.0653,-9.2190 -57.0748,-9.2077 -57.0782,-9.1977 -57.0801,-9.1877 -57.0787,-9.1227 -57.0868,-9.0776 -57.0918,-9.0665 -57.0985,-9.0576 -57.1086,-9.0513 -57.1820,-9.0191 -57.1916,-9.0127 -57.2050,-9.0009 -57.2308,-8.9869 -57.3032,-8.9575 -57.3143,-8.9508 -57.3640,-8.9133 -57.3688,-8.9033 -57.3741,-8.8831 -57.3807,-8.8737 -57.3899,-8.8666 -57.4316,-8.8412 -57.4518,-8.8257 -57.4874,-8.7927 -57.5040,-8.7813 -57.5174,-8.7758 -57.5850,-8.7563 -57.5966,-8.7449 -57.6015,-8.7327 -57.6003,-8.7090 -57.6013,-8.6978 -57.6063,-8.6743 -57.6140,-8.6531 -57.6203,-8.6425 -57.6280,-8.6322 -57.6370,-8.6228 -57.6447,-8.6130 -57.6497,-8.6027 -57.6515,-8.5911 -57.6476,-8.5689 -57.6476,-8.5589 -57.6567,-8.5272 -57.6582,-8.5174 -57.6568,-8.5090 -57.6566,-8.4985 -57.6581,-8.4931 -57.6619,-8.4849 -57.6813,-8.4557 -57.6859,-8.4458 -57.6861,-8.4358 -57.6827,-8.4258 -57.6780,-8.4156 -57.6749,-8.4046 -57.6735,-8.3930 -57.6756,-8.3480 -57.6746,-8.3281 -57.6721,-8.3185 -57.6640,-8.2989 -57.6610,-8.2893 -57.6590,-8.2600 -57.6458,-8.2294 -57.6490,-8.2155 -57.6596,-8.1991 -57.7048,-8.1585 -57.7156,-8.1455 -57.7201,-8.1357 -57.7264,-8.1163 -57.7319,-8.1056 -57.7400,-8.0943 -57.7867,-8.0464 -57.7937,-8.0359 -57.7988,-8.0254 -57.8018,-8.0156 -57.8073,-7.9838 -57.8240,-7.9538 -57.8322,-7.9320 -57.8370,-7.9119 -57.8408,-7.8785 -57.8442,-7.8665 -57.8680,-7.8180 -57.8857,-7.7696 -57.8992,-7.6926 -57.9065,-7.6787 -57.9169,-7.6639 -57.9365,-7.6448 -57.9462,-7.6313 -57.9525,-7.6193 -57.9648,-7.5742 -57.9853,-7.5302 -58.0644,-7.4110 -58.1410,-7.3391 -58.1602,-7.3223 -58.1760,-7.2997 -58.1813,-7.2836 -58.1831,-7.2716 -58.1831,-7.2606 -58.1797,-7.2408 -58.1795,-7.2205 -58.1908,-7.1666 -58.1965,-7.1528 -58.2224,-7.1100 -58.2387,-7.0937 -58.2686,-7.0701 -58.3237,-7.0116 -58.3445,-6.9938 -58.3815,-6.9696 -58.3973,-6.9559 -58.4156,-6.9312 -58.4265,-6.9133 -58.4375,-6.8883 -58.4721,-6.7833 -58.4763,-6.7633 -58.4779,-6.7432 -58.4769,-6.7228 -58.4719,-6.7016 -58.4568,-6.6727 -58.4393,-6.6483 -58.4255,-6.6340 -58.3482,-6.5713 -58.3386,-6.5596 -58.2999,-6.4969 -58.1077,-6.0830 -57.9155,-5.6692 -57.7232,-5.2553 -57.5310,-4.8415 -57.3388,-4.4276 -57.1466,-4.0138 -56.9544,-3.6000 -56.7621,-3.1861 -56.5786,-2.7883 -56.3951,-2.3906 -56.3868,-2.3607 -56.3857,-2.3392 -56.3982,-2.3271 -56.4038,-2.3171 -56.4059,-2.3093 -56.4045,-2.3039 -56.4020,-2.2994 -56.3993,-2.2953 -56.3927,-2.2882 -56.3848,-2.2822 -56.3487,-2.2630 -56.3278,-2.2493 -56.3204,-2.2425 -56.3179,-2.2392 -56.3176,-2.2375 -56.3174,-2.2358 -56.3751,-2.2527 -56.3845,-2.2582 -56.3924,-2.2640 -56.3990,-2.2705 -56.4011,-2.2715 -56.4024,-2.2722 -56.4057,-2.2719 -56.4098,-2.2702 -56.4319,-2.2656 -56.4504,-2.2642 -56.4732,-2.2601 -56.4829,-2.2564 -56.4871,-2.2531 -56.4906,-2.2486 -56.4926,-2.2411 -56.4924,-2.2349 -56.4916,-2.2289 -56.4852,-2.2014 -56.4848,-2.1953 -56.4852,-2.1892 -56.4864,-2.1834 -56.4897,-2.1727 -56.4926,-2.1680 -56.4968,-2.1642 -56.5041,-2.1617 -56.5062,-2.1616 -56.5100,-2.1614 -56.5160,-2.1621 -56.5271,-2.1648 -56.5786,-2.1831 -56.5833,-2.1853 -56.6278,-2.2174 -56.6332,-2.2202 -56.6383,-2.2217 -56.6407,-2.2224 -56.6495,-2.2204 -56.6686,-2.2130 -56.6902,-2.2079 -56.7002,-2.2043 -56.7092,-2.1998 -56.7260,-2.1891 -56.7351,-2.1847 -56.7450,-2.1811 -56.7545,-2.1755 -56.7620,-2.1673 -56.7667,-2.1527 -56.7670,-2.1402 -56.7654,-2.1282 -56.7504,-2.0758 -56.7485,-2.0652 -56.7481,-2.0540 -56.7521,-2.0439 -56.7589,-2.0361 -56.7706,-2.0318 -56.7716,-2.0315 -56.7828,-2.0323 -56.8060,-2.0364 -56.8131,-2.0365 -56.8182,-2.0365 -56.8296,-2.0349 -56.8401,-2.0319 -56.8497,-2.0280 -56.8584,-2.0229 -56.9223,-1.9769 -56.9403,-1.9676 -56.9805,-1.9536 -56.9975,-1.9454 -57.0107,-1.9349 -57.0569,-1.8855 -57.0772,-1.8544 -57.0884,-1.8210 -57.0933,-1.8118 -57.1052,-1.8044 -57.1291,-1.7979 -57.1408,-1.7921 -57.1725,-1.7702 -57.1877,-1.7654 -57.1991,-1.7641 -57.2020,-1.7638 -57.2339,-1.7678 -57.2375,-1.7682 -57.2478,-1.7658 -57.2551,-1.7591 -57.2569,-1.7456 -57.2559,-1.7237 -57.2602,-1.7162 -57.2670,-1.7142 -57.2685,-1.7137 -57.2784,-1.7148 -57.2980,-1.7223 -57.3197,-1.7282 -57.3303,-1.7294 -57.3313,-1.7296 -57.3430,-1.7292 -57.3534,-1.7265 -57.3714,-1.7173 -57.3806,-1.7139 -57.4009,-1.7118 -57.4110,-1.7088 -57.4533,-1.6906 -57.4651,-1.6842 -57.4911,-1.6667 -57.5170,-1.6541 -57.5474,-1.6341 -57.5689,-1.6226 -57.6614,-1.5900 -57.6726,-1.5837 -57.6833,-1.5737 -57.6937,-1.5546 -57.7018,-1.5427 -57.7111,-1.5355 -57.7207,-1.5332 -57.7404,-1.5305 -57.7540,-1.5209 -57.7711,-1.5041 -57.7998,-1.4692 -57.8176,-1.4535 -57.8328,-1.4434 -57.9070,-1.4233 -57.9205,-1.4144 -57.9356,-1.4001 -57.9585,-1.3724 -57.9734,-1.3574 -57.9859,-1.3482 -58.0109,-1.3388 -58.0872,-1.2984 -58.0987,-1.2891 -58.1095,-1.2766 -58.1194,-1.2558 -58.1272,-1.2436 -58.1360,-1.2369 -58.1363,-1.2366 -58.1520,-1.2374 -58.1560,-1.2376 -58.1661,-1.2362 -58.1776,-1.2302 -58.1896,-1.2200 -58.2036,-1.2038 -58.2398,-1.1461 -58.2495,-1.1355 -58.2600,-1.1303 -58.2695,-1.1293 -58.2713,-1.1291 -58.2891,-1.1300 -58.2930,-1.1302 -58.3032,-1.1289 -58.3130,-1.1243 -58.3229,-1.1176 -58.3950,-1.0490 -58.4036,-1.0387 -58.4109,-1.0263 -58.4156,-1.0127 -58.4179,-0.9927 -58.4182,-0.9657 -58.4202,-0.9533 -58.4244,-0.9388 -58.4322,-0.9192 -58.4358,-0.8987 -58.4465,-0.8619 -58.4538,-0.8476 -58.4669,-0.8347 -58.4794,-0.8285 -58.4999,-0.8218 -58.5060,-0.8179 -58.5528,-0.7744 -58.5646,-0.7672 -58.5739,-0.7650 -58.5763,-0.7645 -58.5874,-0.7664 -58.6083,-0.7721 -58.6102,-0.7726 -58.6215,-0.7710 -58.6331,-0.7651 -58.7083,-0.6944 -58.7439,-0.6525 -58.7509,-0.6386 -58.7553,-0.6218 -58.7559,-0.5942 -58.7484,-0.5474 -58.7488,-0.5043 -58.7448,-0.4871 -58.7388,-0.4723 -58.7350,-0.4600 -58.7356,-0.4467 -58.7460,-0.4306 -58.7566,-0.4218 -58.7688,-0.4150 -58.8203,-0.3940 -58.8306,-0.3875 -58.8401,-0.3800 -58.8486,-0.3717 -58.8545,-0.3623 -58.8592,-0.3520 -58.8664,-0.3218 -58.8695,-0.2873 -58.8689,-0.1737 -58.8616,-0.1180 -58.8573,-0.1064 -58.8548,-0.0828 -58.8760,0.2254 -58.9098,0.5877 -58.9437,0.9500 -58.9775,1.3123 -58.9775,1.3124 -58.9726,1.3104 -58.9718,1.3100 -58.9521,1.2992 -58.9336,1.2844 -58.9178,1.2605 -58.9125,1.2387 -58.9040,1.2180 -58.8782,1.1974 -58.8581,1.1890 -58.8491,1.1875 -58.8401,1.1860 -58.8364,1.1863 -58.8221,1.1874 -58.8020,1.1920 -58.7780,1.2015 -58.7589,1.2151 -58.7430,1.2325 -58.7153,1.2725 -58.7095,1.2769 -58.7038,1.2813 -58.6887,1.2827 -58.6860,1.2824 -58.5866,1.2730 -58.5856,1.2734 -58.5802,1.2756 -58.5675,1.2853 -58.5630,1.2871 -58.5606,1.2859 -58.5584,1.2848 -58.5528,1.2806 -58.5508,1.2786 -58.5488,1.2765 -58.5488,1.2765 -58.5492,1.2746 -58.5412,1.2718 -58.5333,1.2670 -58.5282,1.2673 -58.5250,1.2674 -58.4937,1.3167 -58.4872,1.3341 -58.4878,1.3583 -58.4941,1.3791 -58.5131,1.4184 -58.5197,1.4390 -58.5075,1.4544 -58.5050,1.4576 -58.4196,1.4722 -58.3924,1.4904 -58.3920,1.5000 -58.3978,1.5211 -58.3963,1.5310 -58.3892,1.5374 -58.3664,1.5476 -58.3619,1.5506 -58.3575,1.5535 -58.3503,1.5657 -58.3449,1.5804 -58.3380,1.5936 -58.3265,1.6015 -58.3244,1.6003 -58.3235,1.5998 -58.3222,1.5991 -58.3124,1.5830 -58.3053,1.5754 -58.2881,1.5668 -58.2667,1.5605 -58.2447,1.5569 -58.2258,1.5562 -58.2252,1.5564 -58.2130,1.5602 -58.2039,1.5661 -58.1986,1.5669 -58.1934,1.5678 -58.1921,1.5671 -58.1767,1.5590 -58.1690,1.5494 -58.1616,1.5276 -58.1547,1.5193 -58.1225,1.5107 -58.0752,1.5092 -58.0744,1.5094 -58.0333,1.5171 -58.0173,1.5364 -57.9996,1.5687 -57.9931,1.5870 -57.9900,1.6043 -57.9958,1.6348 -57.9971,1.6506 -57.9971,1.6506 -57.9941,1.6543 -57.9911,1.6579 -57.9862,1.6572 -57.9752,1.6557 -57.9451,1.6435 -57.9283,1.6427 -57.9276,1.6429 -57.9199,1.6457 -57.9115,1.6488 -57.8776,1.6695 -57.7969,1.7051 -57.7649,1.7137 -57.7603,1.7135 -57.7292,1.7118 -57.6447,1.6964 -57.6400,1.6965 -57.6140,1.6973 -57.5672,1.7091 -57.5373,1.7318 -57.4709,1.8159 -57.4604,1.8340 -57.4356,1.9005 -57.4256,1.9093 -57.4186,1.9119 -57.4116,1.9145 -57.3906,1.9255 -57.3827,1.9326 -57.3748,1.9398 -57.3622,1.9555 -57.3475,1.9691 -57.3255,1.9773 -57.3212,1.9769 -57.3009,1.9750 -57.2647,1.9524 -57.2445,1.9487 -57.2433,1.9495 -57.1590,2.0024 -57.1106,2.0217 -57.1088,2.0202 -57.0801,1.9973 -57.0739,1.9689 -57.0621,1.9483 -57.0436,1.9326 -57.0173,1.9187 -56.9993,1.9150 -56.9829,1.9148 -56.9824,1.9149 -56.9496,1.9184 -56.9445,1.9184 -56.9280,1.9183 -56.9196,1.9130 -56.9129,1.9035 -56.8968,1.8904 -56.8837,1.8859 -56.8125,1.8738 -56.7988,1.8737 -56.7987,1.8737 -56.7867,1.8793 -56.7437,1.9132 -56.7302,1.9163 -56.7270,1.9158 -56.7102,1.9130 -56.6900,1.9123 -56.6897,1.9125 -56.6757,1.9200 -56.6625,1.9302 -56.6457,1.9370 -56.6414,1.9365 -56.6360,1.9359 -56.6263,1.9348 -56.6105,1.9248 -56.5962,1.9132 -56.5809,1.9057 -56.5762,1.9060 -56.5650,1.9069 -56.5346,1.9242 -56.4889,1.9414 -56.4873,1.9416 -56.4875,1.9425 -56.4902,1.9520 -56.4906,1.9532 -56.4967,1.9629 -56.5055,1.9700 -56.5265,1.9767 -56.5349,1.9818 -56.5420,1.9886 -56.5476,1.9972 -56.5853,2.0168 -56.6833,2.0184 -56.7107,2.0296 -56.8070,2.1660 -56.8142,2.1958 -56.8218,2.2176 -56.8317,2.2617 -56.8444,2.2811 -56.8533,2.2859 -56.8764,2.2901 -56.8856,2.2948 -56.8899,2.3037 -56.8894,2.3398 -56.9005,2.3621 -56.9363,2.3933 -56.9439,2.4114 -56.9375,2.4258 -56.9357,2.4362 -56.9406,2.4459 -56.9571,2.4612 -56.9619,2.4700 -56.9651,2.4838 -56.9630,2.4935 -56.9581,2.5046 -56.9568,2.5155 -56.9629,2.5223 -56.9651,2.5247 -56.9855,2.5097 -56.9952,2.5064 -56.9996,2.5049 -57.0061,2.5142 -57.0008,2.5479 -57.0026,2.5551 -57.0279,2.5845 -57.0327,2.5936 -57.0334,2.6106 -57.0286,2.6237 -57.0260,2.6354 -57.0315,2.6458 -57.0327,2.6482 -57.0504,2.6382 -57.0535,2.6365 -57.0615,2.6424 -57.0675,2.6817 -57.0774,2.7001 -57.1032,2.7274 -57.1084,2.7405 -57.1045,2.7504 -57.0976,2.7630 -57.0954,2.7739 -57.1037,2.7780 -57.1050,2.7786 -57.1379,2.7736 -57.1392,2.7734 -57.1425,2.7711 -57.1492,2.7900 -57.1319,2.8260 -57.1380,2.8318 -57.1389,2.8326 -57.1507,2.8304 -57.1708,2.8211 -57.1767,2.8197 -57.1801,2.8190 -57.1921,2.8232 -57.1965,2.8326 -57.1997,2.8420 -57.2078,2.8462 -57.2118,2.8566 -57.2251,2.9083 -57.2158,2.9182 -57.2002,2.9306 -57.1893,2.9447 -57.1941,2.9595 -57.2273,2.9630 -57.2401,2.9704 -57.2319,2.9834 -57.2267,2.9926 -57.2273,3.0004 -57.2302,3.0092 -57.2319,3.0213 -57.2287,3.0248 -57.2235,3.0245 -57.2147,3.0241 -57.2145,3.0243 -57.2115,3.0281 -57.2125,3.0357 -57.2173,3.0483 -57.2183,3.0560 -57.2277,3.0783 -57.2450,3.0941 -57.2541,3.1124 -57.2388,3.1417 -57.2422,3.1435 -57.2429,3.1440 -57.2430,3.1446 -57.2431,3.1449 -57.2450,3.1479 -57.2517,3.1416 -57.2605,3.1358 -57.2685,3.1332 -57.2704,3.1326 -57.2804,3.1343 -57.2915,3.1424 -57.2897,3.1490 -57.2832,3.1569 -57.2804,3.1690 -57.2912,3.1921 -57.2934,3.2031 -57.2926,3.2154 -57.2872,3.2359 -57.2859,3.2478 -57.2895,3.2598 -57.2958,3.2680 -57.2980,3.2763 -57.2897,3.2888 -57.2883,3.2950 -57.2859,3.3298 -57.2890,3.3438 -57.3124,3.3918 -57.3139,3.3949 -57.3455,3.3702 -57.3687,3.3662 -57.3722,3.3656 -57.3990,3.3738 -57.4249,3.3851 -57.4305,3.3875 -57.4294,3.3694 -57.4364,3.3606 -57.4647,3.3533 -57.4672,3.3500 -57.4742,3.3432 -57.4779,3.3411 -57.4817,3.3389 -57.4852,3.3434 -57.4875,3.3486 -57.4935,3.3515 -57.5013,3.3530 -57.5094,3.3533 -57.5151,3.3577 -57.5279,3.3652 -57.5358,3.3668 -57.5408,3.3678 -57.5505,3.3481 -57.5562,3.3473 -57.5597,3.3467 -57.5706,3.3498 -57.6019,3.3672 -57.6187,3.3766 -57.6470,3.3824 -57.6554,3.3859 -57.6603,3.3901 -57.6637,3.3952 -57.6680,3.4071 -57.6701,3.4175 -57.6695,3.4258 -57.6644,3.4439 -57.6638,3.4506 -57.6660,3.4630 -57.6662,3.4695 -57.6510,3.4990 -57.6495,3.5167 -57.6659,3.5352 -57.6867,3.5473 -57.6906,3.5492 -57.6927,3.5522 -57.7035,3.5536 -57.7083,3.5557 -57.7128,3.5607 -57.7141,3.5641 -57.7150,3.5677 -57.7230,3.5824 -57.7280,3.6000 -57.7316,3.6072 -57.7697,3.6316 -57.8186,3.6518 -57.8353,3.6624 -57.8465,3.6810 -57.8524,3.7021 -57.8551,3.7475 -57.8593,3.7667 -57.8806,3.8122 -57.9313,3.8864 -57.9476,3.9054 -58.0134,3.9573 -58.0376,3.9877 -58.0475,4.0230 -58.0606,4.1081 -58.0732,4.1511 -58.0714,4.1718 -58.0575,4.1931 -57.9704,4.2820 -57.9593,4.2990 -57.9529,4.3188 -57.9508,4.3439 -57.9535,4.3605 -57.9590,4.3757 -57.9621,4.3914 -57.9581,4.4097 -57.9483,4.4251 -57.9368,4.4378 -57.9273,4.4509 -57.9200,4.4841 -57.9016,4.5285 -57.8846,4.5568 -57.8688,4.6077 -57.8509,4.6335 -57.8429,4.6509 -57.8415,4.6698 -57.8498,4.6875 -57.8767,4.7217 -57.8900,4.7629 -57.9066,4.7739 -57.9233,4.7824 -57.9309,4.7961 -57.9240,4.8298 -57.9079,4.8527 -57.8897,4.8723 -57.8762,4.8889 -57.8558,4.9228 -57.8483,4.9299 -57.8357,4.9331 -57.8331,4.9323 -57.8261,4.9303 -57.8164,4.9255 -57.8039,4.9231 -57.8007,4.9235 -57.7794,4.9264 -57.7678,4.9355 -57.7528,4.9640 -57.7260,4.9898 -57.6924,5.0063 -57.6549,5.0084 -57.6542,5.0081 -57.6156,4.9914 -57.6126,4.9924 -57.5717,5.0071 -57.5488,5.0111 -57.5231,5.0124 -57.5226,5.0122 -57.5177,5.0092 -57.5024,4.9947 -57.4957,4.9914 -57.4911,4.9918 -57.4828,4.9925 -57.4660,4.9976 -57.3869,5.0057 -57.3617,5.0124 -57.3510,5.0166 -57.3436,5.0208 -57.3349,5.0241 -57.3207,5.0261 -57.3184,5.0257 -57.3120,5.0244 -57.3042,5.0211 -57.2960,5.0203 -57.2952,5.0208 -57.2859,5.0261 -57.3224,5.0590 -57.3269,5.0702 -57.3257,5.0834 -57.3226,5.0948 -57.3077,5.1285 -57.3010,5.1572 -57.2945,5.1710 -57.2832,5.1769 -57.2781,5.1767 -57.2654,5.1763 -57.2528,5.1724 -57.2442,5.1620 -57.2388,5.1421 -57.2339,5.1442 -57.2233,5.1485 -57.2075,5.1576 -57.1953,5.1692 -57.1904,5.1831 -57.1979,5.2032 -57.2312,5.2436 -57.2380,5.2606 -57.2388,5.2626 -57.2431,5.2687 -57.2523,5.2715 -57.2531,5.2718 -57.2645,5.2712 -57.2729,5.2663 -57.2747,5.2567 -57.2695,5.2470 -57.2593,5.2349 -57.2619,5.2283 -57.2685,5.2240 -57.2734,5.2234 -57.2772,5.2229 -57.2859,5.2253 -57.2910,5.2308 -57.2928,5.2387 -57.2943,5.3085 -57.2972,5.3111 -57.2975,5.3113 -57.2993,5.3112 -57.3038,5.3110 -57.3105,5.3126 -57.3139,5.3135 -57.3283,5.3076 -57.3317,5.3076 -57.3372,5.3076 -57.3412,5.3169 -57.3378,5.3279 -57.3296,5.3386 -57.2810,5.3874 -57.2707,5.4034 -57.2667,5.4267 -57.2656,5.4482 -57.2624,5.4641 -57.2524,5.4848 -57.2385,5.5052 -57.2116,5.5203 -57.1976,5.5372 -57.1655,5.6441 -57.1614,5.7544 -57.1607,5.7733 -57.1022,5.9300 -57.0976,5.9422 -57.0716,6.0520 -57.0644,6.0629 -56.9624,6.2167 -56.6581,6.1750 -56.3538,6.1334 -56.0886,6.0621 -56.0407,6.0727 -55.9376,6.1476 -55.8529,6.1717 -55.6051,6.1870 -55.2896,6.1679 -55.0356,6.2181 -54.7173,6.1899 -54.4189,6.1298 -54.1205,6.0697 -53.7531,5.9640 -53.3702,5.7670 -53.2172,5.7503 -52.8069,5.6348 -52.7507,5.5926 -52.5852,5.4071 -52.5375,5.3645 -52.5375,5.5625 -52.5376,6.0302 -52.5376,6.4980 -52.5376,6.9657 -52.5376,7.4334 -52.5376,7.9011 -52.5376,8.3688 -52.5376,8.8366 -52.5376,9.3043 -52.5376,9.7720 -52.5376,10.2397 -52.5376,10.6943 -52.5376,11.1488 -52.5376,11.6033 -52.5376,12.0579 -52.5376,12.5124 -52.5376,12.9670 -52.5376,13.4215 -52.5376,13.8761 -52.5376,14.3306 -52.5376,14.7852 -52.5376,15.2397 -52.5376,15.6997 -52.5376,16.1597 -52.5376,16.6197 -52.5376,17.0797 -52.5376,17.5397 -52.5376,17.9997 -52.5377,18.4597 -52.5377,18.9197 -52.5377,19.3797 -52.5377,19.8397 -52.5377,20.2943 -52.5377,20.7488 -52.5377,21.2033 -52.5377,21.6579 -52.5377,22.1124 -52.5377,22.5670 -52.5377,23.0215 -52.5377,23.4761 -52.5377,23.9306 -52.5377,24.3852 -52.5377,24.8397 -52.5377,25.2943 -52.5377,25.7488 -52.5377,26.2033 -52.5377,26.6579 -52.5377,27.1124 -52.5377,27.5670 -52.5377,28.0215 -52.5377,28.4761 -52.5377,28.9306 -52.5377,29.3852 -52.5377,29.8397 -52.5377,29.9448 -52.5377,30.3993 -52.5377,30.8539 -52.5376,31.3084 -52.5376,31.7630 -52.5376,32.2175 -52.5375,32.6721 -52.5375,33.1266 -52.5375,33.5811 -52.5374,34.0357 -52.5374,34.4902 -52.5374,34.9448 -52.5373,35.3993 -52.5373,35.8539 -52.5373,36.3084 -52.5372,36.7630 -52.5372,37.2175 -52.5372,37.6721 -52.5371,38.1266 -52.5371,38.5811 -52.5371,39.0357 -52.5370,39.4902 -52.5370,39.9448 -52.5370,40.3993 -52.5369,40.8539 -52.5369,41.3084 -52.5369,41.7630 -52.5369,42.2175 -52.5368,42.6721 -52.5368,43.1266 -52.5368,43.5811 -52.5367,44.0357 -52.5367,44.4902 -52.5367,44.9448 -52.5366,45.3311 -52.5366,45.7174 -52.5366,46.1038 -52.5365,46.4901 -52.5365,46.4901 -52.5365,46.8327 -52.5365,47.1752 -52.3805,47.3913 -52.3470,47.4920 -52.3980,47.7236 -52.4368,47.8186 -52.4814,47.8715 -52.5364,47.9063 -52.5364,48.3140 -52.5364,48.7217 -52.5364,49.1294 -52.5363,49.5371 -52.5363,49.9448 -52.5363,50.4039 -52.5362,50.8630 -52.5362,51.3222 -52.5362,51.7813 -52.5361,52.2404 -52.5361,52.2405 -52.5361,52.6912 -52.5361,53.1419 -52.5360,53.5926 -52.5360,54.0433 -52.5360,54.4941 -52.5359,54.9448 -52.5359,55.3993 -52.5359,55.8539 -52.5359,56.3084 -52.5358,56.7630 -52.5358,57.2175 -52.5358,57.6721 -52.5357,58.1266 -52.5357,58.5811 -52.5357,59.0357 -52.5356,59.4902 -52.5356,59.9448 -52.5356,60.3945 -52.5355,60.8442 -52.5355,61.2939 -52.5355,61.7436 -52.5354,62.1934 -52.5354,62.6431 -52.5354,63.0928 -52.5353,63.5425 -52.5353,63.8315 -52.5353,64.1204 -52.5353,64.2497 -52.5353,64.2609 -52.5414,64.2729 -52.6012,64.3894 -52.5965,64.5576 -52.6436,64.6545 -52.6502,64.7130 -52.7168,64.7975 -52.7159,64.9723 -52.7488,64.9953 -52.9154,65.0551 -52.9973,65.1100 -53.0309,65.1579 -53.0292,65.2247 -53.0791,65.3277 -53.1106,65.3357 -53.3293,65.3595 -53.4677,65.3904 -53.6083,65.4498 -53.7386,65.6051 -53.7797,65.7854 -53.9261,65.8734 -53.9969,65.9670 -54.1226,66.0350 -54.1630,66.0778 -54.1835,66.1221 -54.1688,66.2149 -54.2122,66.3074 -54.2204,66.3585 -54.1619,66.5292 -54.1218,66.5865 -53.9997,66.6630 -53.9414,66.7277 -53.9690,66.7430 -54.2145,66.8283 -54.2916,66.8684 -54.3578,66.9263 -54.4746,67.0066 -54.5053,67.0571 -54.5100,67.1094 -54.4882,67.1619 -54.4208,67.2362 -54.4189,67.3248 -54.3902,67.4015 -54.3490,67.4661 -54.2834,67.5297 -54.3060,67.6147 -54.2887,67.6575 -54.2345,67.7168 -54.2628,67.7905 -54.2452,67.8509 -54.2035,67.8959 -54.1409,67.9364 -53.9577,68.0000 -53.9268,68.0187 -54.0045,68.0975 -54.0244,68.1502 -54.0115,68.2001 -53.9507,68.2694 -53.9605,68.3362 -53.9475,68.3791 -53.9053,68.4229 -53.7462,68.5242 -53.6409,68.6724 -53.5915,68.7202 -53.5056,68.7683 -53.5138,69.0254 -53.6519,69.0269 -54.1202,69.0781 -54.2039,69.0969 -54.3008,69.1304 -54.4547,69.1566 -54.5690,69.1872 -54.6610,69.2208 -54.7360,69.2581 -54.8837,69.3776 -55.0961,69.4192 -55.2876,69.4784 -55.4528,69.5514 -55.5613,69.6270 -55.5932,69.6714 -55.5985,69.7177 -55.5806,69.7571 -55.5376,69.8042 -55.5363,69.8969 -55.4343,70.0270 -55.4600,70.1565 -55.4404,70.2438 -55.4562,70.2606 -55.5629,70.3179 -55.6301,70.3897 -55.6602,70.4699 -55.6385,70.5395 -55.5931,70.5811 -55.5116,70.6221 -55.4199,70.6527 -55.2661,70.6900 -55.1619,70.8011 -55.0557,70.8598 -54.8783,70.9212 -54.7049,70.9681 -54.5630,70.9974 -54.5448,71.0103 -54.6150,71.0652 -54.6380,71.1260 -54.6655,71.1376 -54.8788,71.1460 -55.1205,71.1680 -55.3631,71.1728 -55.4980,71.1818 -55.6895,71.2122 -55.8794,71.2606 -56.0014,71.3037 -56.0903,71.3458 -56.1584,71.3934 -56.2652,71.4951 -56.4578,71.5638 -56.5136,71.5950 -56.5481,71.6253 -56.5683,71.6608 -56.5683,71.7013 -56.5390,71.7506 -56.4643,71.8157 -56.4856,71.8788 -56.4697,71.9284 -56.3945,71.9946 -56.2747,72.0447 -56.2527,72.0615 -56.2613,72.0775 -56.3409,72.1290 -56.3698,72.1799 -56.3080,72.3685 -56.3560,72.4563 -56.5172,72.4808 -56.6179,72.5029 -56.7180,72.5346 -56.7990,72.5725 -56.9079,72.6497 -56.9322,72.7187 -56.8906,72.7816 -56.7962,72.8353 -56.7317,72.8566 -56.5623,72.8968 -56.4037,72.9420 -56.4294,73.1152 -56.3716,73.1806 -56.2659,73.2428 -56.4103,73.3013 -56.4848,73.3680 -56.6894,73.4265 -56.7949,73.4748 -56.8322,73.5047 -56.8551,73.5394 -56.8587,73.5645 -56.8414,73.6009 -56.8500,73.6136 -57.0654,73.6435 -57.2306,73.6886 -57.3361,73.7330 -57.4713,73.8018 -57.5102,73.8343 -57.5296,73.8804 -57.5493,73.8953 -57.5881,73.9053 -57.7622,73.9325 -57.8767,73.9605 -57.9795,73.9992 -58.0483,74.0446 -58.0789,74.0846 -58.0856,74.1254 -58.0716,74.1623 -58.0146,74.2348 -58.0210,74.2884 -58.0805,74.3343 -58.2241,74.3862 -58.2867,74.4183 -58.3318,74.4611 -58.3426,74.5022 -58.3113,74.5554 -58.2318,74.6046 -58.1085,74.6474 -57.9602,74.6771 -57.9341,74.6860 -57.9827,74.7434 -57.9793,74.7856 -57.9933,74.8011 -58.0573,74.8159 -58.4064,74.8524 -58.5943,74.8790 -58.7455,74.9125 -58.8606,74.9551 -58.9449,75.0154 -58.9658,75.0515 -58.9721,75.1026 -59.0068,75.1304 -59.0742,75.1616 -59.2337,75.1889 -59.3532,75.2210 -59.4351,75.2548 -59.4904,75.2911 -59.5198,75.3290 -59.5240,75.3676 -59.4508,75.4866 -59.4606,75.5082 -59.4898,75.5227 -59.7720,75.5867 -60.0853,75.6068 -60.2085,75.6219 -60.3335,75.6437 -60.4526,75.6731 -60.5480,75.7075 -60.6111,75.7421 -60.6646,75.7873 -60.9920,75.7992 -61.1219,75.8121 -61.2459,75.8311 -61.3498,75.8522 -61.4308,75.8740 -61.5723,75.9258 -61.6339,75.9602 -61.6777,75.9686 -61.9282,75.9840 -62.1643,76.0086 -62.2734,76.0153 -62.3481,76.0142 -62.5751,75.9945 -62.7582,75.9887 -62.9568,75.9926 -63.1918,76.0089 -63.4097,75.9744 -63.6057,75.9529 -63.7720,76.1911 -64.1054,76.5601 -64.4387,76.9291 -64.7720,77.2981 -65.1054,77.6671 -65.4387,78.0361 -65.7721,78.4051 -66.1054,78.7741 -66.4388,79.1431 -66.6489,79.3536 -66.3658,79.4489 -66.1958,79.4865 -66.1343,79.5272 -66.0544,79.5674 -66.1501,79.6250 -66.1665,79.6548 -66.1632,79.7050 -66.2136,79.7694 -66.2901,79.8161 -66.5366,79.8308 -66.8015,79.8563 -67.1467,79.8546 -67.2915,79.8582 -67.4330,79.8650 -67.6706,79.8844 -67.8790,79.9123 -67.9788,79.9311 -68.0650,79.9521 -68.1520,79.9808 -68.2467,80.0246 -68.4458,80.0654 -68.5838,80.1061 -68.6524,80.1354 -68.6947,80.1619 -68.7107,80.1808 -68.3333,80.4167 -67.9278,80.5278 -67.5222,80.6389 -67.1167,80.7500 -66.8000,80.7836 -66.4833,80.8172 -66.2667,80.8347 -65.8500,80.9279 -65.4333,81.0211 -65.0167,81.1142 -64.6000,81.2074 -64.1833,81.3006 -63.8436,81.3959 -63.5039,81.4913 -63.1641,81.5867 -63.0093,81.6301 -62.5880,81.7484 -62.1667,81.8667 -61.7454,81.9347 -61.3242,82.0028 -60.9029,82.0708 -60.4817,82.1389 -60.0000,82.2167 -59.5379,82.3029 -59.5144,82.2960 -59.4752,82.2903 -59.4245,82.2874 -59.3728,82.2871 -59.2829,82.2909 -58.9657,82.3153 -58.6732,82.3340 -58.3807,82.3526 -58.1444,82.3642 -57.8565,82.3734 -57.3754,82.4113 -56.9874,82.4303 -56.5955,82.4594 -56.3111,82.4728 -56.0133,82.4990 -55.7242,82.5188 -55.4352,82.5386 -55.1507,82.5564 -54.9017,82.5681 -54.5775,82.5763 -54.2660,82.5760 -54.0580,82.5711 -53.8509,82.5621 -53.6747,82.5510 -53.4344,82.5314 -52.9631,82.5356 -52.8676,82.5387 -52.7616,82.5470 -52.6636,82.5608 -52.5582,82.5881 -52.5572,83.0505 -52.5563,83.5128 -52.5553,83.9752 -52.5544,84.4376 -52.5534,84.9000 -52.5525,85.3636 -52.5515,85.8273 -52.5506,86.2909 -52.5496,86.7546 -52.5487,87.2182 -52.5477,87.6818 -52.5468,88.1455 -52.5458,88.6091 -52.5448,89.0727 -52.5439,89.5364 -52.5429,90.0000 -52.1019,90.0000 -51.6610,90.0000 -51.2200,90.0000 -50.7790,90.0000 -50.3380,90.0000 -49.8970,90.0000 -49.4560,90.0000 -49.0150,90.0000 -48.5740,90.0000 -48.1330,90.0000 -47.6920,90.0000 -47.2510,90.0000 -46.8100,90.0000 -46.3690,90.0000 -45.9281,90.0000 -45.4871,90.0000 -45.0461,90.0000 -44.6051,90.0000 -44.1641,90.0000 -43.7231,90.0000 -43.2821,90.0000 -42.8411,90.0000 -42.4001,90.0000 -41.9591,90.0000 -41.5181,90.0000 -41.0771,90.0000 -40.6361,90.0000 -40.1952,90.0000 -39.7542,90.0000 -39.3132,90.0000 -38.8722,90.0000 -38.4312,90.0000 -37.9902,90.0000 -37.5492,90.0000 -37.5492,89.5364 -37.5492,89.0727 -37.5492,88.6091 -37.5492,88.1455 -37.5492,87.6818 -37.5492,87.2182 -37.5492,86.7545 -37.5492,86.2909 -37.5492,85.8273 -37.5492,85.3636 -37.5492,84.9000 24,-3.0,America/Miquelon -56.1509,46.5544 -56.1516,46.3059 -56.4049,46.3064 -56.4051,46.3676 -56.6885,46.4572 -56.8386,46.5544 -56.8990,46.6092 -57.0976,46.9837 -56.8692,47.1294 -56.6636,47.2160 -56.4953,47.3655 -56.3780,47.3359 -56.2555,47.3050 -56.1553,47.1683 -56.1054,47.1002 -56.1304,46.9307 -56.0999,46.8597 -56.0923,46.8547 -56.0807,46.8491 -55.9834,46.8024 -55.9102,46.6621 -55.9540,46.6168 -56.0807,46.5696 -56.1509,46.5544 3241,7.0,Asia/Omsk 83.9888,60.8269 83.9972,60.8261 84.2596,60.8555 84.3308,60.8057 84.3553,60.7909 84.7083,60.4589 84.7170,60.4481 84.7318,60.4250 84.7390,60.4160 84.7763,60.3810 84.7803,60.3760 84.7836,60.3705 84.7842,60.3627 84.7812,60.3560 84.7730,60.3486 84.7443,60.3294 84.7325,60.3185 84.7226,60.3062 84.7026,60.2684 84.6938,60.2518 84.6835,60.2389 84.6743,60.2302 84.6382,60.2104 84.6319,60.2056 84.6263,60.1927 84.6213,60.1740 84.6106,60.0592 84.6095,60.0560 84.6062,60.0460 84.6007,60.0371 84.5475,60.0011 84.5351,59.9904 84.5308,59.9852 84.5294,59.9798 84.5313,59.9750 84.5534,59.9645 84.6223,59.9442 84.6672,59.9162 84.6919,59.9048 85.0941,59.8982 85.4963,59.8916 85.4964,59.8916 85.4973,59.8916 85.9691,59.9559 86.2973,59.9530 86.6254,59.9500 87.0841,59.8828 87.0946,59.8773 87.1025,59.8670 87.1689,59.7154 87.1782,59.7008 87.1906,59.6897 87.2136,59.6850 87.4920,59.6736 87.5052,59.6717 87.5223,59.6672 87.5539,59.6407 87.8784,59.2890 87.8943,59.2761 87.9106,59.2681 87.9363,59.2662 87.9368,59.2662 87.9372,59.2662 88.2618,59.2824 88.5864,59.2986 88.6098,59.2974 88.6215,59.2930 88.6179,59.2753 88.6003,59.2325 88.6075,59.2149 88.6203,59.1988 88.8258,59.0345 88.8282,59.0296 88.8265,59.0245 88.8156,59.0178 88.7967,59.0105 88.3996,58.9179 88.3918,58.9145 88.3826,58.9089 88.1574,58.7175 87.9322,58.5261 87.9264,58.5196 87.9227,58.5136 87.9199,58.5082 87.9188,58.5038 87.9182,58.4999 88.0143,58.2683 88.0181,58.2426 88.0228,58.2366 88.0318,58.2297 88.0548,58.2192 88.0657,58.2126 88.0728,58.2068 88.0748,58.2020 88.0762,58.1971 88.0769,58.1920 88.0788,58.1871 88.0797,58.1822 88.0815,58.1773 88.0988,58.1495 88.1198,58.1223 88.1242,58.1180 88.1305,58.1140 88.1413,58.1101 88.1557,58.1065 88.4216,58.0715 88.6874,58.0366 88.7154,58.0289 88.8210,57.9766 88.8326,57.9685 88.8404,57.9643 88.8508,57.9606 88.8819,57.9569 89.3284,57.9500 89.3389,57.9479 89.3501,57.9429 89.3774,57.9169 89.3906,57.8776 89.3544,57.7963 89.3842,57.6663 89.3851,57.6509 89.3804,57.6372 89.3606,57.6270 89.2622,57.5999 89.2536,57.5996 89.2119,57.6046 89.1677,57.6158 89.1573,57.6170 89.1570,57.6169 89.1563,57.6170 89.1474,57.6142 89.1405,57.6076 89.1266,57.5730 89.1115,57.5513 89.0772,57.5147 89.0707,57.5098 89.0576,57.5028 89.0503,57.5002 89.0475,57.4996 89.0184,57.5000 89.0183,57.4999 89.0174,57.5000 89.0096,57.4987 89.0040,57.4969 88.9995,57.4947 88.9660,57.4653 88.9543,57.4583 88.9437,57.4541 88.8886,57.4489 88.8723,57.4444 88.8615,57.4317 88.8052,57.3234 88.7883,57.2993 88.7673,57.2745 88.7478,57.2444 88.7386,57.2328 88.7327,57.2274 88.7264,57.2228 88.7190,57.2197 88.7102,57.2183 88.6636,57.2162 88.6553,57.2144 88.6475,57.2117 88.6340,57.2031 88.6280,57.1978 88.5313,57.1279 88.5262,57.1221 88.5231,57.1143 88.5216,57.1082 88.5210,57.1028 88.5229,57.0986 88.5296,57.0958 88.6333,57.0813 88.6342,57.0813 88.6342,57.0813 88.6723,57.0816 88.7057,57.0889 88.7137,57.0891 88.7224,57.0864 88.7253,57.0753 88.7209,57.0553 88.6382,56.8868 88.6240,56.8330 88.6420,56.8252 88.6426,56.8208 88.6439,56.8153 88.6421,56.8045 88.6418,56.7910 88.6467,56.7494 88.6517,56.7418 88.6601,56.7377 88.7211,56.7317 88.7330,56.7286 88.7380,56.7242 88.7401,56.7192 88.7408,56.7135 88.7404,56.7075 88.7383,56.7004 88.7335,56.6959 88.7259,56.6932 88.6930,56.6855 88.6857,56.6821 88.6804,56.6773 88.6797,56.6490 88.6764,56.6415 88.6695,56.6381 88.6612,56.6363 88.5167,56.6266 88.5098,56.6246 88.5064,56.6204 88.5048,56.6145 88.5027,56.5971 88.5027,56.5900 88.5037,56.5840 88.5126,56.5650 88.5182,56.5558 88.5225,56.5514 88.5282,56.5478 88.5368,56.5454 88.6082,56.5365 88.6178,56.5295 88.6250,56.5166 88.6243,56.4897 88.6199,56.4779 88.6129,56.4704 88.5990,56.4647 88.5875,56.4562 88.5925,56.4436 88.6510,56.4245 88.6611,56.4189 88.7058,56.3858 88.7208,56.3794 88.7335,56.3760 88.8615,56.3663 88.8797,56.3546 88.9150,56.3459 88.9205,56.3416 88.9190,56.3378 88.9121,56.3348 88.9048,56.3305 88.8998,56.3252 88.8986,56.3159 88.9047,56.3120 88.9132,56.3098 89.0410,56.3047 89.0566,56.3017 89.0603,56.2970 89.0594,56.2917 89.0560,56.2859 89.0541,56.2804 89.0542,56.2753 89.0564,56.2706 89.0638,56.2616 89.0663,56.2569 89.0663,56.2517 89.0647,56.2462 89.0533,56.2228 89.0530,56.2167 89.0563,56.2101 89.0641,56.2066 89.0737,56.2046 89.0941,56.2026 89.1044,56.2005 89.1152,56.1966 89.1183,56.1917 89.1183,56.1863 89.1160,56.1807 89.1130,56.1697 89.1126,56.1634 89.1130,56.1566 89.1177,56.1477 89.1245,56.1431 89.1331,56.1412 89.1339,56.1412 89.1340,56.1412 89.1604,56.1423 89.1709,56.1416 89.1829,56.1397 89.1987,56.1346 89.2055,56.1297 89.2083,56.1243 89.2087,56.1182 89.2100,56.1116 89.2134,56.1027 89.2179,56.0978 89.2214,56.0951 89.2598,56.0801 89.2675,56.0747 89.2716,56.0694 89.2737,56.0650 89.2756,56.0538 89.2430,56.0437 89.2564,56.0272 89.2718,55.9969 89.2873,55.9792 89.3159,55.9612 89.3177,55.9500 89.3073,55.9258 89.3089,55.9206 89.3115,55.9141 89.3163,55.9099 89.3298,55.9022 89.3461,55.8950 89.3655,55.8896 89.4163,55.8842 89.4282,55.8814 89.4434,55.8760 89.4482,55.8685 89.4490,55.8620 89.4467,55.8558 89.4433,55.8502 89.4386,55.8451 89.4321,55.8417 89.4243,55.8396 89.3896,55.8363 89.3821,55.8333 89.3774,55.8278 89.3751,55.8197 89.3795,55.8138 89.3872,55.8073 89.3894,55.8022 89.3882,55.7965 89.3808,55.7849 89.3764,55.7794 89.3705,55.7750 89.3628,55.7725 89.2740,55.7646 89.2395,55.7540 89.2168,55.7424 89.1942,55.7259 89.1700,55.7040 89.1518,55.6982 89.0927,55.6991 89.0926,55.6991 89.0918,55.6991 89.0616,55.6929 88.8781,55.6207 88.8567,55.6055 88.6823,55.5160 88.6748,55.5100 88.6717,55.5058 88.6692,55.5002 88.6688,55.4976 88.6617,55.4868 88.6337,55.4658 88.6261,55.4612 88.6215,55.4575 88.6106,55.4476 88.5836,55.4182 88.5715,55.3995 88.5616,55.3881 88.5026,55.3406 88.4987,55.3383 88.4356,55.3137 88.4222,55.3059 88.4160,55.3014 88.4047,55.2908 88.4000,55.2849 88.3965,55.2790 88.3943,55.2733 88.3928,55.2678 88.3932,55.2617 88.3953,55.2552 88.4024,55.2466 88.4081,55.2409 88.4725,55.2012 88.4817,55.1929 88.4858,55.1865 88.4965,55.1662 88.4993,55.1588 88.5015,55.1505 88.5014,55.1385 88.5023,55.1299 88.5043,55.1218 88.5108,55.1131 88.5170,55.1075 88.5414,55.0907 88.5500,55.0834 88.5515,55.0783 88.5529,55.0703 88.5516,55.0463 88.5495,55.0349 88.5478,55.0296 88.5467,55.0232 88.5484,55.0167 88.5568,55.0088 88.5664,55.0048 88.5866,55.0003 88.5881,54.9997 88.5946,54.9906 88.6021,54.9778 88.6089,54.9712 88.6179,54.9674 88.6269,54.9670 88.6273,54.9671 88.6278,54.9670 88.6617,54.9686 88.6691,54.9671 88.6736,54.9627 88.6770,54.9565 88.6791,54.9470 88.6791,54.9391 88.6767,54.9309 88.6640,54.9115 88.6599,54.9030 88.6603,54.8931 88.6620,54.8864 88.6645,54.8808 88.6680,54.8769 88.6736,54.8743 88.6744,54.8744 88.6745,54.8743 88.6814,54.8747 88.6887,54.8768 88.7225,54.8950 88.7299,54.8972 88.7368,54.8978 88.7435,54.8954 88.7476,54.8901 88.7566,54.8328 88.7563,54.8176 88.7531,54.8046 88.7405,54.7870 88.7292,54.7743 88.7177,54.7642 88.7080,54.7615 88.6989,54.7608 88.6531,54.7628 88.6530,54.7628 88.6522,54.7628 88.6439,54.7600 88.6373,54.7547 88.6306,54.7465 88.6308,54.7386 88.6315,54.7325 88.6349,54.7223 88.6345,54.7165 88.6336,54.7119 88.6126,54.6969 88.6134,54.6863 88.6106,54.6131 88.6095,54.6079 88.6064,54.6025 88.5805,54.5781 88.5804,54.5728 88.5822,54.5673 88.6033,54.5367 88.6051,54.5319 88.6055,54.5269 88.6030,54.5217 88.5980,54.5171 88.5919,54.5128 88.5692,54.5000 88.5681,54.4989 88.5659,54.4964 88.5642,54.4925 88.5637,54.4877 88.5653,54.4776 88.5659,54.4675 88.5643,54.4627 88.5606,54.4584 88.5434,54.4452 88.5389,54.4397 88.5336,54.4284 88.5305,54.4232 88.5254,54.4188 88.5186,54.4161 88.4556,54.4025 88.3882,54.3972 88.3813,54.3958 88.3769,54.3929 88.3780,54.3885 88.3826,54.3837 88.3953,54.3788 88.5325,54.3443 88.5402,54.3408 88.5454,54.3367 88.5479,54.3320 88.5518,54.3012 88.5531,54.2962 88.5557,54.2915 88.5608,54.2877 88.5712,54.2870 88.5715,54.2871 88.5721,54.2870 88.5853,54.2890 88.6048,54.2988 88.6147,54.3062 88.6218,54.3133 88.6283,54.3180 88.6362,54.3216 88.6492,54.3220 88.6604,54.3233 88.6716,54.3257 88.6838,54.3335 88.6912,54.3400 88.6969,54.3468 88.7046,54.3587 88.7144,54.3648 88.7295,54.3708 88.7625,54.3779 88.7765,54.3842 88.7850,54.3903 88.7925,54.4018 88.7987,54.4071 88.8067,54.4105 88.8181,54.4133 88.8450,54.4156 88.8713,54.4096 88.9352,54.3782 88.9548,54.3692 88.9608,54.3645 88.9629,54.3588 88.9608,54.3507 88.9523,54.3320 88.9514,54.3261 88.9523,54.3203 88.9591,54.3141 88.9655,54.3093 89.0043,54.2901 89.0112,54.2887 89.0118,54.2888 89.0122,54.2887 89.0193,54.2896 89.0248,54.2937 89.0488,54.3236 89.0545,54.3288 89.0611,54.3323 89.0682,54.3351 89.1301,54.3505 89.1378,54.3505 89.1465,54.3488 89.1620,54.3424 89.1752,54.3348 89.1860,54.3268 89.1900,54.3219 89.1928,54.3163 89.1903,54.3082 89.1863,54.3013 89.1817,54.2947 89.1781,54.2887 89.1762,54.2827 89.1777,54.2769 89.1846,54.2707 89.1932,54.2665 89.2122,54.2595 89.2193,54.2554 89.2225,54.2503 89.2186,54.2425 89.1817,54.2012 89.1789,54.1949 89.1789,54.1881 89.1926,54.1576 89.1938,54.1532 89.1926,54.1497 89.1872,54.1474 89.0468,54.1174 89.0176,54.1070 89.0052,54.1006 88.9973,54.0939 88.9883,54.0835 88.9846,54.0777 88.9821,54.0715 88.9815,54.0652 88.9844,54.0582 88.9875,54.0528 88.9951,54.0434 89.0465,53.9920 89.0526,53.9829 89.0576,53.9737 89.0611,53.9639 89.0616,53.9589 89.0654,53.9548 89.0727,53.9526 89.0734,53.9527 89.0737,53.9526 89.1235,53.9599 89.1462,53.9584 89.1972,53.9477 89.2143,53.9412 89.2199,53.9372 89.2199,53.9325 89.1830,53.9012 89.1787,53.8949 89.1762,53.8877 89.1789,53.8783 89.1821,53.8721 89.1869,53.8668 89.1922,53.8635 89.1982,53.8614 89.1990,53.8615 89.1992,53.8614 89.2473,53.8644 89.2550,53.8635 89.2617,53.8611 89.2668,53.8575 89.2709,53.8535 89.2738,53.8491 89.2702,53.8428 89.2604,53.8348 89.2021,53.8055 89.1815,53.7807 89.1648,53.7788 89.1031,53.7815 89.1030,53.7815 89.1022,53.7815 89.0942,53.7801 89.0750,53.7683 89.0611,53.7622 89.0316,53.7531 89.0245,53.7487 89.0183,53.7422 89.0133,53.7301 89.0114,53.7223 89.0108,53.7156 89.0124,53.6913 89.0112,53.6794 89.0087,53.6736 89.0038,53.6676 88.9929,53.6607 88.9122,53.6252 88.8992,53.6129 88.8913,53.5996 88.8826,53.5960 88.8743,53.5956 88.8658,53.5972 88.8650,53.5972 88.8649,53.5972 88.8568,53.5969 88.8425,53.5919 88.8372,53.5883 88.8339,53.5846 88.8375,53.5793 88.8425,53.5748 88.8716,53.5548 88.8754,53.5489 88.8763,53.5412 88.8642,53.4998 88.8630,53.4802 88.8608,53.4741 88.8562,53.4676 88.8443,53.4591 88.7999,53.4367 88.7946,53.4315 88.7914,53.4257 88.7911,53.4168 88.7920,53.4073 88.7881,53.3964 88.7698,53.3766 88.7612,53.3651 88.7621,53.3596 88.7665,53.3547 88.7793,53.3501 88.7893,53.3484 88.7995,53.3478 88.8001,53.3478 88.8004,53.3478 88.8085,53.3481 88.8153,53.3496 88.8194,53.3529 88.8266,53.3674 88.8319,53.3711 88.8828,53.3866 88.8893,53.3875 88.8952,53.3866 88.9632,53.3505 88.9688,53.3456 88.9737,53.3396 88.9763,53.3296 88.9797,53.3224 88.9865,53.3150 89.0040,53.3009 89.0506,53.2494 89.0529,53.2439 89.0524,53.2374 89.0456,53.2276 89.0320,53.2163 89.0075,53.1998 89.0059,53.1923 89.0068,53.1849 89.0310,53.1569 89.0465,53.1448 89.0502,53.1403 89.0514,53.1356 89.0491,53.1305 89.0269,53.1159 89.0215,53.1109 89.0170,53.1047 89.0099,53.0843 89.0065,53.0795 89.0001,53.0760 88.9790,53.0706 88.9719,53.0681 88.9317,53.0484 88.9082,53.0325 88.9060,53.0286 88.9091,53.0247 88.9135,53.0206 88.9156,53.0157 88.9134,53.0103 88.8982,52.9957 88.8955,52.9912 88.8951,52.9874 88.8985,52.9820 88.9048,52.9781 88.9474,52.9610 88.9858,52.9505 88.9995,52.9498 88.9998,52.9498 89.0004,52.9498 89.0516,52.9556 89.0588,52.9554 89.0651,52.9540 89.0707,52.9510 89.1182,52.9200 89.1217,52.9156 89.1235,52.9108 89.1238,52.9057 89.1230,52.9003 89.1211,52.8948 89.1120,52.8772 89.1103,52.8716 89.1111,52.8667 89.1163,52.8634 89.1233,52.8616 89.1240,52.8617 89.1242,52.8616 89.1319,52.8622 89.1546,52.8672 89.1698,52.8688 89.1767,52.8682 89.1823,52.8656 89.2356,52.8100 89.2347,52.8043 89.2279,52.7977 89.1781,52.7657 89.1635,52.7514 89.1502,52.7353 89.1444,52.7305 89.0544,52.7137 89.0475,52.7108 89.0421,52.7064 89.0394,52.6993 89.0381,52.6933 89.0382,52.6876 89.0398,52.6827 89.0432,52.6781 89.0491,52.6742 89.0699,52.6632 89.1029,52.6393 89.1121,52.6309 89.1151,52.6264 89.1168,52.6215 89.1180,52.6166 89.1183,52.6115 89.1192,52.6066 89.1185,52.6019 89.1154,52.5978 89.0893,52.5929 89.0805,52.5901 89.0715,52.5857 89.0604,52.5760 89.0376,52.5492 89.0302,52.5433 89.0217,52.5377 88.9987,52.5293 88.9834,52.5253 88.9762,52.5215 88.9695,52.5162 88.9630,52.5074 88.9571,52.4968 88.9523,52.4925 88.9446,52.4880 88.8921,52.4694 88.8713,52.4568 88.8573,52.4465 88.7521,52.4059 88.7450,52.4009 88.7370,52.3916 88.7326,52.3847 88.7255,52.3774 88.7156,52.3706 88.6761,52.3525 88.6696,52.3485 88.6643,52.3440 88.6612,52.3375 88.6640,52.3328 88.6708,52.3288 88.7086,52.3200 88.7171,52.3170 88.7224,52.3131 88.7224,52.3080 88.7191,52.3023 88.7048,52.2852 88.6881,52.2567 88.6819,52.2511 88.6733,52.2465 88.6581,52.2447 88.6370,52.2441 88.6284,52.2428 88.6212,52.2393 88.6147,52.2319 88.6085,52.2260 88.5997,52.2213 88.5847,52.2203 88.5627,52.2220 88.5623,52.2219 88.5618,52.2220 88.5485,52.2204 88.5334,52.2158 88.5062,52.2029 88.4947,52.1945 88.4861,52.1867 88.4823,52.1809 88.4678,52.1755 88.4559,52.1722 88.3648,52.1680 88.3457,52.1335 88.3297,52.1249 88.2666,52.1206 88.2495,52.1164 88.2422,52.1113 88.2381,52.1058 88.2372,52.1003 88.2382,52.0952 88.2422,52.0909 88.2576,52.0786 88.2619,52.0743 88.2636,52.0694 88.2586,52.0661 88.2492,52.0626 88.2196,52.0556 88.2109,52.0551 88.2020,52.0563 88.1945,52.0592 88.1876,52.0627 88.1406,52.0939 88.1339,52.0972 88.1224,52.0983 88.1222,52.0982 88.1215,52.0983 88.1109,52.0949 88.0951,52.0868 88.0782,52.0754 88.0726,52.0706 88.0673,52.0651 88.0582,52.0531 88.0548,52.0472 88.0523,52.0413 88.0530,52.0364 88.0558,52.0317 88.0579,52.0266 88.0577,52.0210 88.0397,52.0029 88.0354,51.9926 88.0301,51.9893 87.9948,51.9764 87.9862,51.9711 87.9815,51.9655 87.9776,51.9387 87.9763,51.9332 87.9741,51.9276 87.9708,51.9218 87.9054,51.8572 87.8603,51.8290 87.8472,51.8189 87.8391,51.8106 87.8369,51.8049 87.8354,51.7993 87.8346,51.7937 87.8352,51.7884 87.8373,51.7836 87.8401,51.7791 87.8439,51.7750 87.8490,51.7721 87.8553,51.7717 87.8555,51.7718 87.8563,51.7717 87.8627,51.7736 87.8893,51.7866 87.8964,51.7889 87.9038,51.7904 87.9113,51.7909 87.9197,51.7899 87.9286,51.7875 87.9434,51.7807 87.9769,51.7578 87.9829,51.7557 87.9896,51.7555 87.9897,51.7555 87.9905,51.7555 88.0863,51.7774 88.0920,51.7774 88.0971,51.7746 88.1007,51.7707 88.1037,51.7661 88.1059,51.7614 88.1060,51.7543 88.1043,51.7452 88.0984,51.7292 88.0926,51.7203 88.0864,51.7136 87.9997,51.6621 87.9844,51.6486 87.9818,51.6421 87.9810,51.6361 87.9822,51.6312 87.9828,51.6252 87.9818,51.6182 87.9785,51.6082 87.9735,51.6023 87.9674,51.5976 87.8615,51.5494 87.8908,51.5167 87.9100,51.4903 87.9235,51.4790 87.9332,51.4754 87.9336,51.4756 87.9341,51.4754 87.9609,51.4863 87.9683,51.4874 87.9761,51.4871 88.0735,51.4516 88.0946,51.4407 88.1057,51.4322 88.1071,51.4222 88.1111,51.4075 88.1134,51.4023 88.1199,51.3953 88.1316,51.3859 88.1712,51.3671 88.1837,51.3638 88.2619,51.3602 88.2987,51.3489 88.3501,51.3243 88.3637,51.3198 88.5077,51.3164 88.5078,51.3164 88.5087,51.3164 88.5155,51.3176 88.5223,51.3199 88.5543,51.3365 88.5599,51.3410 88.5652,51.3463 88.5922,51.3826 88.5974,51.3880 88.6030,51.3923 88.6094,51.3958 88.6368,51.4061 88.6560,51.4156 88.6617,51.4193 88.6664,51.4236 88.6679,51.4286 88.6685,51.4337 88.6677,51.4490 88.6695,51.4702 88.6693,51.4806 88.6680,51.4856 88.6606,51.4999 88.6576,51.5092 88.6535,51.5184 88.6522,51.5232 88.6522,51.5278 88.6550,51.5315 88.6603,51.5349 88.7361,51.5592 88.8250,51.5165 88.8316,51.5113 88.8376,51.5050 88.8490,51.4874 88.8546,51.4811 88.8612,51.4756 88.8834,51.4636 88.9554,51.4384 88.9619,51.4336 88.9672,51.4279 88.9716,51.4188 88.9726,51.4121 88.9719,51.4058 88.9675,51.3944 88.9565,51.3763 88.9490,51.3591 88.9459,51.3481 88.9453,51.3428 88.9450,51.3323 88.9529,51.2921 88.9527,51.2816 88.9512,51.2709 88.9443,51.2487 88.9434,51.2433 88.9431,51.2381 88.9437,51.2330 88.9458,51.2283 88.9514,51.2224 88.9608,51.2158 88.9803,51.2056 89.0009,51.1975 89.0158,51.1940 89.0248,51.1902 89.0322,51.1843 89.0406,51.1738 89.0443,51.1669 89.0499,51.1512 89.0508,51.1461 89.0509,51.1410 89.0502,51.1356 89.0484,51.1300 89.0432,51.1186 89.0415,51.1132 89.0407,51.1084 89.0412,51.0932 89.0419,51.0883 89.0444,51.0784 89.0468,51.0738 89.0524,51.0646 89.0597,51.0559 89.0688,51.0483 89.0837,51.0386 89.1366,51.0103 89.1623,50.9999 89.1725,50.9920 89.1982,50.9674 89.3090,50.9013 89.3164,50.8930 89.3328,50.8795 89.3836,50.8576 89.3924,50.8527 89.3992,50.8441 89.4020,50.8378 89.4049,50.8274 89.4071,50.8233 89.4122,50.8186 89.4206,50.8140 89.4479,50.8035 89.4577,50.7979 89.4695,50.7835 89.4730,50.7782 89.4987,50.7518 89.5599,50.6993 89.5716,50.6864 89.5778,50.6773 89.5853,50.6687 89.5937,50.6603 89.6472,50.6204 89.6562,50.6117 89.6596,50.6072 89.6617,50.6024 89.6622,50.5974 89.6621,50.5870 89.6661,50.5825 89.6737,50.5790 89.6986,50.5763 89.6993,50.5763 89.6996,50.5763 89.7321,50.5777 89.7587,50.5730 89.7797,50.5669 89.8101,50.5544 89.8283,50.5431 89.8551,50.5180 89.8592,50.5127 89.8657,50.5017 89.8669,50.4982 89.8686,50.4901 89.8692,50.4851 89.8691,50.4799 89.8684,50.4745 89.8658,50.4633 89.8636,50.4576 89.8537,50.4401 89.8490,50.4345 89.8436,50.4299 89.8345,50.4262 89.8227,50.4231 89.7654,50.4180 89.6333,50.3852 89.6208,50.3847 89.6149,50.3873 89.6119,50.3907 89.6111,50.3935 89.6119,50.3978 89.6163,50.4084 89.6168,50.4138 89.6157,50.4187 89.6130,50.4233 89.6082,50.4274 89.5410,50.4646 89.5231,50.4698 89.5222,50.4698 89.5221,50.4698 89.5137,50.4694 89.5072,50.4660 89.5032,50.4573 89.5015,50.4507 89.5011,50.4344 89.5000,50.4271 89.4971,50.4172 89.4960,50.4119 89.4965,50.4068 89.4978,50.4022 89.4999,50.3991 89.5023,50.3966 89.5103,50.3893 89.5179,50.3806 89.5203,50.3759 89.5173,50.3698 89.5080,50.3624 89.4705,50.3465 89.4593,50.3439 89.4290,50.3400 89.4151,50.3359 89.4020,50.3305 89.3956,50.3257 89.3903,50.3193 89.3867,50.3074 89.3861,50.2998 89.3869,50.2935 89.3880,50.2886 89.3860,50.2835 89.3832,50.2792 89.3565,50.2717 89.3494,50.2642 89.3506,50.2553 89.3526,50.2455 89.3526,50.2403 89.3517,50.2351 89.3494,50.2298 89.3452,50.2247 89.3399,50.2199 89.3367,50.2149 89.3364,50.2096 89.3451,50.2045 89.3902,50.1881 89.3990,50.1859 89.4070,50.1857 89.4071,50.1857 89.4079,50.1857 89.4144,50.1869 89.4189,50.1899 89.4219,50.1929 89.4296,50.2030 89.4350,50.2075 89.4414,50.2101 89.4489,50.2107 89.5014,50.2068 89.5073,50.2044 89.5132,50.1994 89.5162,50.1881 89.5169,50.1805 89.5150,50.1425 89.5154,50.1374 89.5172,50.1312 89.5213,50.1243 89.5312,50.1144 89.5407,50.1094 89.5500,50.1070 89.5751,50.1050 89.5829,50.1035 89.5890,50.1002 89.5912,50.0952 89.5893,50.0876 89.5850,50.0815 89.5798,50.0760 89.5741,50.0718 89.5526,50.0523 89.5489,50.0467 89.5494,50.0395 89.5544,50.0314 89.5686,50.0184 89.5795,50.0133 89.5894,50.0104 89.5974,50.0066 89.6037,49.9989 89.6073,49.9805 89.6055,49.9700 89.6022,49.9631 89.6015,49.9617 89.5916,49.9508 89.5875,49.9451 89.5850,49.9394 89.5850,49.9337 89.5906,49.9268 89.5975,49.9204 89.6327,49.9081 89.6331,49.9083 89.6337,49.9081 89.6640,49.9247 89.6686,49.9273 89.7217,49.9397 89.8674,49.9427 89.9211,49.9509 89.9704,49.9671 89.9972,49.9928 89.9980,50.0037 89.9997,50.0246 90.0059,50.0507 90.0215,50.0707 90.0522,50.0842 90.1834,50.1025 90.2239,50.1144 90.3448,50.1747 90.3649,50.1798 90.4059,50.1826 90.4260,50.1869 90.4762,50.2146 90.5193,50.2183 90.6049,50.2060 90.6058,50.2060 90.6059,50.2060 90.6494,50.2067 90.6674,50.2104 90.6849,50.2162 90.7007,50.2252 90.7136,50.2380 90.7183,50.2520 90.7185,50.2808 90.7275,50.2919 90.7634,50.3057 90.8409,50.3208 90.8780,50.3394 90.9495,50.3975 90.9761,50.4139 91.0130,50.4253 91.1307,50.4262 91.1643,50.4328 91.2610,50.4666 91.2975,50.4664 91.3822,50.4550 91.3825,50.4550 91.3831,50.4550 91.4167,50.4614 91.4334,50.4781 91.4410,50.4986 91.4513,50.5191 91.4760,50.5360 91.5767,50.5620 91.6037,50.5796 91.6541,50.6401 91.6806,50.6565 91.7507,50.6841 91.8251,50.7016 91.9003,50.7072 92.0627,50.6863 92.0635,50.6863 92.0637,50.6863 92.1598,50.6891 92.2437,50.7200 92.2954,50.7913 92.2980,50.8099 92.2984,50.8276 92.3026,50.8434 92.3162,50.8559 92.3364,50.8636 92.3615,50.8683 92.3846,50.8656 92.3999,50.8506 92.4190,50.8117 92.4433,50.7863 92.4749,50.7705 92.5165,50.7606 92.5546,50.7430 92.6118,50.6877 92.6498,50.6741 92.6506,50.6741 92.6507,50.6741 92.6728,50.6756 92.6962,50.6819 92.7183,50.6922 92.7362,50.7052 92.7476,50.7215 92.7544,50.7547 92.7612,50.7708 92.7971,50.7880 92.8584,50.7955 92.9211,50.7925 92.9617,50.7779 92.9740,50.7422 92.9734,50.6944 92.9919,50.6548 93.0029,50.6348 93.0114,50.6233 93.0229,50.6163 93.0426,50.6099 93.1049,50.5988 93.1058,50.5988 93.1059,50.5988 93.1401,50.5994 93.1893,50.5998 93.4217,50.6093 93.5363,50.5847 93.8870,50.5750 94.2376,50.5652 94.2587,50.5575 94.2733,50.5448 94.2782,50.5292 94.2798,50.4927 94.3198,50.4290 94.3275,50.4044 94.3323,50.3010 94.3443,50.2492 94.3545,50.2236 94.3685,50.2027 94.3918,50.1856 94.4750,50.1623 94.4917,50.1523 94.4986,50.1395 94.5023,50.1251 94.5091,50.1099 94.5209,50.0978 94.5640,50.0710 94.5744,50.0585 94.5923,50.0298 94.6035,50.0197 94.6245,50.0152 94.6252,50.0153 94.6255,50.0152 94.6519,50.0178 94.7473,50.0404 94.9217,50.0459 94.9537,50.0406 94.9806,50.0248 95.0041,49.9928 95.0216,49.9698 95.0283,49.9634 95.0764,49.9455 95.0773,49.9455 95.0773,49.9455 95.3548,49.9477 95.3842,49.9419 95.3998,49.9389 95.4452,49.9144 95.4617,49.9026 95.4731,49.8964 95.4785,49.8933 95.4792,49.8930 95.4697,49.8870 95.4592,49.8772 95.4620,49.8447 95.4760,49.8012 95.4836,49.7475 95.4824,49.7319 95.4813,49.7274 95.4781,49.7195 95.4595,49.6853 95.4502,49.6627 95.4508,49.6369 95.4623,49.6058 95.4870,49.5680 95.4985,49.5463 95.5109,49.5069 95.5180,49.4949 95.5353,49.4775 95.5640,49.4640 95.6266,49.4414 95.6516,49.4276 95.6695,49.4082 95.6814,49.3911 95.6897,49.3621 95.6860,49.3078 95.5988,49.1943 95.5891,49.1644 95.5910,49.1317 95.5987,49.1042 95.6025,49.0777 95.5984,49.0545 95.5836,49.0296 95.5740,49.0080 95.5706,48.9867 95.5736,48.9538 95.5730,48.9433 95.5585,48.9053 95.5217,48.8585 95.4900,48.8482 95.4088,48.8476 95.3648,48.8411 95.2870,48.7937 95.2164,48.7681 95.0952,48.7239 94.9631,48.6999 94.7940,48.6868 94.7018,48.6947 94.6965,48.6972 94.6513,48.7166 94.6218,48.7221 94.6209,48.7221 94.6208,48.7221 94.5006,48.7197 94.4576,48.7260 94.1735,48.8032 94.1726,48.8032 94.1726,48.8032 94.1303,48.8030 93.7154,48.6576 93.6887,48.6360 93.6435,48.5859 93.6091,48.5639 93.5686,48.5448 93.5159,48.5044 93.4564,48.3976 93.4870,48.3820 93.4989,48.3736 93.5008,48.3699 93.5025,48.3630 93.5011,48.3585 93.4994,48.3552 93.4967,48.3522 93.4939,48.3484 93.4890,48.3389 93.4873,48.3313 93.4865,48.3215 93.4866,48.3039 93.4847,48.2949 93.4819,48.2880 93.4664,48.2656 93.4336,48.2347 93.3150,48.1495 93.2633,48.1197 93.1908,48.0885 93.2321,47.9960 93.2544,47.9588 93.2658,47.9228 93.2690,47.8953 93.2686,47.8674 93.2791,47.8485 93.3989,47.7373 93.4880,47.6310 93.4909,47.5775 93.4940,47.5621 93.5004,47.5427 93.5401,47.5051 93.6153,47.4567 93.8260,47.3261 93.9649,47.2647 94.0337,47.2427 94.0482,47.2265 94.0541,47.2057 94.0520,47.1797 94.0523,47.1515 94.0634,47.1152 94.0835,47.0779 94.1398,47.0062 94.2299,46.9150 94.2660,46.8649 94.2643,46.8276 94.2552,46.8095 94.2281,46.7829 94.1868,46.7604 93.9820,46.6966 93.8931,46.6582 93.7832,46.5856 93.7273,46.5728 93.6984,46.5692 93.5936,46.5769 93.5707,46.5808 93.5698,46.5808 93.5697,46.5808 93.5478,46.5803 93.5342,46.5713 93.5365,46.5501 93.5471,46.5324 93.6113,46.4458 93.6271,46.4143 93.6341,46.3819 93.6303,46.3500 93.6144,46.3222 93.4999,46.1790 93.4044,46.0112 93.4002,45.9933 93.4097,45.9425 93.4093,45.9238 93.3956,45.9070 93.3702,45.8959 93.3580,45.8821 93.3213,45.8262 93.3004,45.8066 93.2770,45.7915 93.1624,45.7436 93.1366,45.7256 93.1176,45.7023 93.1101,45.6678 93.1355,45.4479 93.1293,45.3279 93.0773,45.0103 93.0760,45.0054 93.0714,45.0049 93.0531,45.0035 93.0341,45.0076 93.0148,45.0093 93.0142,45.0093 93.0139,45.0093 92.9945,45.0084 92.9751,45.0047 92.9460,45.0058 92.9172,45.0146 92.8620,45.0379 92.8485,45.0391 92.8482,45.0391 92.8476,45.0391 92.8142,45.0339 92.7996,45.0332 92.7537,45.0380 92.7533,45.0379 92.7527,45.0380 92.6385,45.0156 92.5721,45.0130 92.4753,44.9975 92.4599,44.9979 92.4148,45.0113 92.3974,45.0131 92.3969,45.0131 92.3965,45.0131 92.3475,45.0077 92.3320,45.0078 92.2863,45.0195 92.2854,45.0195 92.2688,45.0195 92.2679,45.0195 92.2194,45.0102 92.1946,45.0145 92.1094,45.0582 92.0766,45.0689 92.0439,45.0748 92.0104,45.0762 92.0100,45.0762 92.0094,45.0762 91.9751,45.0734 91.9193,45.0656 91.7479,45.0724 91.7476,45.0724 91.7470,45.0724 91.7247,45.0707 91.6836,45.0612 91.6636,45.0596 91.5649,45.0771 91.5644,45.0771 91.5640,45.0771 91.5523,45.0753 91.5433,45.0718 91.5348,45.0712 91.5227,45.0775 91.4570,45.1375 91.4394,45.1461 91.4385,45.1461 91.4385,45.1461 91.4169,45.1457 91.3997,45.1369 91.3836,45.1242 91.3665,45.1142 91.3475,45.1138 91.2501,45.1297 91.1853,45.1538 91.1707,45.1635 91.1487,45.1872 91.1360,45.1979 91.1023,45.2107 91.0577,45.2176 91.0123,45.2189 91.0121,45.2189 91.0113,45.2189 90.9751,45.2149 90.9055,45.1860 90.8742,45.1862 90.8586,45.2151 90.8613,45.2317 90.8669,45.2426 90.8676,45.2536 90.8554,45.2706 90.8381,45.2800 90.7975,45.2928 90.7919,45.3043 90.7914,45.3377 90.7790,45.3653 90.7635,45.3916 90.7542,45.4209 90.7389,45.4417 90.6733,45.4757 90.6521,45.4931 90.6976,45.7300 90.7117,45.7522 90.9202,45.9501 90.9761,45.9873 90.9872,45.9931 91.0034,46.0218 91.0064,46.0681 90.9969,46.1137 90.9761,46.1405 90.9497,46.1683 90.9001,46.2817 90.8971,46.3020 90.9070,46.3173 90.9367,46.3439 90.9761,46.4165 90.9871,46.4353 91.0024,46.4750 91.0151,46.4932 91.0366,46.5291 91.0463,46.5511 91.0484,46.5664 91.0335,46.5799 91.0123,46.5853 90.9969,46.5946 90.9990,46.6203 91.0127,46.6629 91.0152,46.6898 91.0165,46.7032 91.0058,46.7404 90.9761,46.7741 90.9403,46.7988 90.9263,46.8131 90.9209,46.8336 90.9237,46.8416 90.9354,46.8568 90.9374,46.8644 90.9337,46.8748 90.9268,46.8807 90.9186,46.8854 90.9111,46.8924 90.9013,46.9107 90.8947,46.9282 90.8861,46.9447 90.8708,46.9603 90.8504,46.9732 90.8291,46.9823 90.8065,46.9868 90.8056,46.9868 90.8055,46.9868 90.7827,46.9864 90.7434,46.9919 90.7131,47.0147 90.4697,47.3089 90.4673,47.3163 90.4695,47.3235 90.4762,47.3303 90.4865,47.3449 90.4910,47.3618 90.4882,47.3782 90.4762,47.3911 90.4491,47.4040 90.4427,47.4305 90.4446,47.4628 90.4422,47.4930 90.4282,47.5066 90.3956,47.5247 90.3825,47.5384 90.3530,47.5883 90.3394,47.6028 90.3284,47.6230 90.3384,47.6370 90.3505,47.6478 90.3458,47.6586 90.3245,47.6702 90.3031,47.6785 90.2107,47.6957 90.1644,47.7100 90.1209,47.7301 90.0838,47.7561 90.0716,47.7699 90.0597,47.7895 90.0531,47.8107 90.0569,47.8289 90.0653,47.8506 90.0608,47.8688 90.0456,47.8798 90.0034,47.8804 89.9641,47.8887 89.9638,47.8885 89.9632,47.8887 89.9467,47.8832 89.9390,47.8709 89.9376,47.8575 89.9344,47.8443 89.9214,47.8321 89.8891,47.8243 89.7843,47.8185 89.7522,47.8243 89.7412,47.8362 89.7321,47.8648 89.7243,47.8782 89.7082,47.8890 89.6730,47.8941 89.6562,47.8998 89.6449,47.9128 89.6371,47.9296 89.6283,47.9439 89.6144,47.9496 89.5975,47.9526 89.5842,47.9620 89.5766,47.9760 89.5772,47.9929 89.5728,48.0205 89.5428,48.0310 89.5419,48.0310 89.5418,48.0310 89.5037,48.0300 89.4753,48.0230 89.4262,48.0217 89.4102,48.0231 89.3702,48.0382 89.3552,48.0388 89.3551,48.0387 89.3543,48.0388 89.3343,48.0324 89.2857,48.0056 89.2686,47.9931 89.2440,47.9802 89.2192,47.9770 89.1681,47.9840 89.0756,47.9843 89.0469,47.9929 89.0468,47.9930 89.0465,47.9930 88.9333,48.0970 88.9178,48.1060 88.8902,48.1109 88.8896,48.1109 88.8893,48.1109 88.8317,48.1052 88.8064,48.1060 88.7763,48.1206 88.7101,48.1664 88.6816,48.1730 88.6809,48.1730 88.6807,48.1730 88.6562,48.1712 88.6368,48.1758 88.5972,48.1977 88.5817,48.2120 88.5744,48.2297 88.5698,48.2492 88.5622,48.2683 88.5597,48.2881 88.5739,48.3253 88.5661,48.3430 88.5036,48.3926 88.4801,48.4001 88.4794,48.4001 88.4791,48.4001 88.4591,48.3981 88.4397,48.3937 88.4177,48.3941 88.3844,48.4087 88.3331,48.4540 88.3058,48.4690 88.2366,48.4932 88.2188,48.4950 88.2182,48.4950 88.2178,48.4950 88.1839,48.4928 88.1669,48.4937 88.1492,48.4994 88.1167,48.5165 88.0892,48.5261 88.0728,48.5388 88.0635,48.5429 88.0529,48.5432 88.0528,48.5432 88.0520,48.5432 88.0284,48.5396 88.0176,48.5398 87.9840,48.5523 87.9528,48.5752 87.9438,48.5995 87.9764,48.6165 87.9906,48.6242 87.9988,48.6352 88.0043,48.6460 88.0111,48.6534 88.0560,48.6734 88.0648,48.6826 88.0604,48.7081 88.0347,48.7291 87.9764,48.7560 87.9534,48.7611 87.9526,48.7611 87.9524,48.7611 87.9084,48.7589 87.8426,48.7793 87.8220,48.7883 87.8068,48.8006 87.8031,48.8096 87.8015,48.8303 87.7970,48.8398 87.7884,48.8466 87.7777,48.8512 87.7557,48.8573 87.7388,48.8694 87.7367,48.8867 87.7446,48.9052 87.7578,48.9204 87.8368,48.9459 87.8736,48.9680 87.8732,49.0041 87.8579,49.0156 87.8388,49.0204 87.8229,49.0287 87.8169,49.0506 87.8220,49.0718 87.8306,49.0860 87.8365,49.1007 87.8334,49.1239 87.8190,49.1540 87.8173,49.1658 87.8163,49.1658 87.8163,49.1658 87.7164,49.1589 87.5253,49.1198 87.5149,49.1197 87.5070,49.1209 87.5067,49.1208 87.5061,49.1209 87.5001,49.1192 87.4916,49.1032 87.4871,49.0970 87.4818,49.0916 87.4756,49.0876 87.4384,49.0747 87.4009,49.0711 87.3632,49.0751 87.3247,49.0853 87.3237,49.0855 87.3082,49.1139 87.2877,49.1843 87.2718,49.2051 87.2180,49.2298 87.1903,49.2378 87.1604,49.2420 87.0760,49.2369 87.0504,49.2389 87.0366,49.2427 87.0245,49.2489 87.0171,49.2586 87.0169,49.2728 87.0125,49.2807 87.0001,49.2891 86.9333,49.3243 86.9130,49.3387 86.9051,49.3519 86.9157,49.3700 86.9308,49.3806 86.9331,49.3901 86.9055,49.4047 86.8544,49.4213 86.8290,49.4333 86.8140,49.4500 86.8143,49.4730 86.8229,49.4928 86.8243,49.5092 86.8024,49.5222 86.7326,49.5507 86.7095,49.5545 86.6641,49.5474 86.6425,49.5475 86.6186,49.5580 86.5993,49.5735 86.5918,49.5872 86.5960,49.6019 86.6111,49.6202 86.6471,49.6537 86.6677,49.6643 86.7161,49.6668 86.7365,49.6719 86.7556,49.6815 86.7759,49.6950 86.7515,49.7117 86.7405,49.7228 86.7376,49.7350 86.7434,49.7447 86.7526,49.7560 86.7596,49.7677 86.7589,49.7786 86.7484,49.7830 86.7308,49.7825 86.7002,49.7777 86.6849,49.7782 86.6424,49.7939 86.6102,49.7955 86.5954,49.7809 86.5849,49.7601 86.5651,49.7427 86.5582,49.7415 86.5522,49.7423 86.5456,49.7426 86.5374,49.7394 86.5244,49.7295 86.5197,49.7268 86.4727,49.7083 86.4797,49.6973 86.4830,49.6863 86.4818,49.6769 86.4755,49.6708 86.4583,49.6657 86.3918,49.6250 86.3295,49.6103 86.2721,49.5836 86.2464,49.5501 86.2143,49.4962 86.1773,49.4633 86.1367,49.4930 86.1115,49.5202 86.0705,49.5263 86.0275,49.5156 85.9960,49.4928 85.9958,49.4928 85.9801,49.4829 85.9630,49.4786 85.9463,49.4814 85.9314,49.4928 85.9319,49.5101 85.9421,49.5511 85.9406,49.5596 85.8999,49.5641 85.8807,49.5633 85.8608,49.5575 85.8275,49.5410 85.8092,49.5365 85.7944,49.5418 85.7795,49.5560 85.7647,49.5668 85.7474,49.5730 85.7258,49.5730 85.6900,49.5629 85.6733,49.5604 85.6562,49.5649 85.6423,49.5775 85.6284,49.6065 85.6149,49.6171 85.5972,49.6193 85.5808,49.6134 85.5493,49.5953 85.5313,49.5891 85.5132,49.5853 85.4757,49.5831 85.4510,49.5884 85.4073,49.6096 85.3840,49.6157 85.3642,49.6141 85.3421,49.6082 85.3204,49.5995 85.3028,49.5901 85.2631,49.5815 85.2236,49.5957 85.1950,49.6257 85.1851,49.7050 85.1633,49.7340 85.0981,49.7822 85.0817,49.8000 85.0759,49.8139 85.0708,49.8502 85.0563,49.8733 85.0326,49.8850 84.9758,49.8940 84.9546,49.9069 84.9507,49.9333 84.9548,49.9905 84.9622,49.9919 84.9646,49.9928 84.9647,49.9928 85.0094,49.9978 85.0254,50.0041 85.0283,50.0205 85.0201,50.0331 84.9867,50.0670 84.9758,50.0752 84.9102,50.0951 84.8880,50.0967 84.8738,50.0924 84.8559,50.0849 84.8387,50.0808 84.8261,50.0867 84.8015,50.1238 84.7907,50.1328 84.7732,50.1383 84.7381,50.1354 84.7203,50.1366 84.6894,50.1510 84.6667,50.1700 84.6420,50.1849 84.6060,50.1874 84.5693,50.1855 84.5357,50.1909 84.5046,50.2046 84.4758,50.2271 84.4408,50.2446 84.4053,50.2308 84.3688,50.2118 84.3314,50.2135 84.3243,50.2196 84.3121,50.2364 84.3044,50.2432 84.2916,50.2480 84.2618,50.2536 84.2500,50.2599 84.2396,50.2782 84.2395,50.2993 84.2419,50.3219 84.2394,50.3446 84.2184,50.3777 84.1918,50.4077 84.1768,50.4391 84.1979,50.4931 84.1956,50.5114 84.1860,50.5280 84.1512,50.5526 84.1450,50.5661 84.1423,50.5815 84.1330,50.6008 84.1017,50.6286 83.9758,50.6864 83.9497,50.7179 83.9506,50.7804 83.9220,50.8007 83.8828,50.8120 83.8697,50.8214 83.8383,50.8563 83.8205,50.8680 83.8004,50.8757 83.7782,50.8794 83.7326,50.8796 83.7128,50.8822 83.6906,50.8918 83.6327,50.9248 83.6098,50.9320 83.4983,50.9454 83.4770,50.9534 83.4620,50.9643 83.4340,50.9927 83.3238,51.0024 83.2121,50.9927 83.1959,50.9888 83.1796,50.9873 83.1633,50.9885 83.1375,50.9947 83.1274,50.9952 83.1174,50.9946 83.1076,50.9927 83.0861,50.9525 83.0579,50.9172 83.0215,50.8918 82.9759,50.8819 82.8441,50.8917 82.7645,50.9067 82.7265,50.9007 82.7000,50.8810 82.6980,50.8110 82.6728,50.7898 82.6042,50.7690 82.4758,50.7140 82.4303,50.7411 82.4083,50.7484 82.3625,50.7421 82.3513,50.7455 82.3412,50.7503 82.3284,50.7521 82.3137,50.7478 82.3012,50.7409 82.2884,50.7374 82.2731,50.7431 82.2557,50.7452 82.2363,50.7345 82.2166,50.7194 82.1988,50.7088 82.1737,50.7031 82.1473,50.7016 82.0955,50.7081 82.0731,50.7157 82.0125,50.7501 81.9903,50.7596 81.9454,50.7692 81.8950,50.7742 81.8224,50.7657 81.8009,50.7679 81.7635,50.7843 81.7441,50.7849 81.7257,50.7746 81.6972,50.7450 81.6741,50.7360 81.4602,50.7303 81.4311,50.7407 81.4188,50.7625 81.4261,50.7882 81.4447,50.8134 81.4661,50.8337 81.4395,50.8597 81.4161,50.8897 81.4012,50.9230 81.4008,50.9591 81.2774,50.9627 81.1588,50.9382 81.1044,50.9367 81.0779,50.9407 81.0583,50.9471 81.0515,50.9557 81.0540,50.9699 81.0805,51.0309 81.1472,51.1359 81.1560,51.1574 81.1586,51.1743 81.1520,51.1865 81.1328,51.1945 81.1129,51.1959 81.0983,51.1909 81.0701,51.1720 81.0449,51.1735 81.0221,51.1774 80.9760,51.1911 80.9361,51.2057 80.9242,51.2161 80.9163,51.2354 80.9142,51.2702 80.9057,51.2836 80.8825,51.2849 80.8641,51.2758 80.8545,51.2646 80.8425,51.2575 80.8166,51.2610 80.6828,51.3020 80.6646,51.3002 80.6450,51.2892 80.6324,51.2780 80.6215,51.2645 80.6141,51.2497 80.6125,51.2339 80.5992,51.2086 80.5613,51.2021 80.4762,51.2096 80.4521,51.2079 80.4344,51.2006 80.4220,51.1876 80.4134,51.1684 80.4076,51.1357 80.4071,51.1172 80.4105,51.1048 80.4241,51.0921 80.4517,51.0735 80.4611,51.0590 80.4645,51.0437 80.4650,51.0258 80.4631,51.0078 80.4594,50.9927 80.4390,50.9581 80.4029,50.9337 80.3602,50.9192 80.3204,50.9141 80.2796,50.9172 80.2673,50.9157 80.2582,50.9113 80.2437,50.8987 80.2348,50.8932 80.1954,50.8823 80.1813,50.8757 80.1682,50.8598 80.1545,50.8272 80.1427,50.8171 80.1192,50.8149 80.1016,50.8216 80.0670,50.8466 80.0493,50.8523 80.0154,50.8395 80.0311,50.8088 80.0860,50.7521 80.0550,50.7529 80.0213,50.7669 79.9901,50.7881 79.9665,50.8102 79.9553,50.8260 79.9269,50.8785 79.8736,50.9502 79.8273,51.0124 79.7380,51.1324 79.6485,51.2524 79.5592,51.3725 79.4698,51.4926 79.3630,51.6176 79.2564,51.7426 79.1497,51.8676 79.0430,51.9925 79.0429,51.9925 79.0428,51.9925 79.0428,51.9926 78.9013,52.1539 78.7596,52.3153 78.6180,52.4766 78.4765,52.6379 78.3683,52.7526 78.2601,52.8674 78.1520,52.9822 78.0438,53.0969 77.9764,53.1685 77.8668,53.2723 77.7339,53.3615 77.6128,53.4428 77.4755,53.5083 77.2901,53.5967 77.1047,53.6851 76.9193,53.7736 76.7338,53.8620 76.6110,53.9206 76.5257,53.9613 76.4952,53.9923 76.4826,54.0301 76.4765,54.0420 76.3744,54.1478 76.3767,54.1543 76.3936,54.1618 76.4126,54.1657 76.4765,54.1640 76.6038,54.1354 76.6646,54.1341 76.7163,54.1709 76.7262,54.1802 76.7512,54.1940 76.7625,54.2026 76.7702,54.2131 76.7823,54.2424 76.8001,54.2607 76.8209,54.2776 76.8377,54.2969 76.8432,54.3223 76.8342,54.3457 76.8158,54.3556 76.7661,54.3646 76.7530,54.3767 76.7646,54.3905 76.7868,54.4028 76.8047,54.4101 76.8857,54.4228 76.9036,54.4326 76.9105,54.4546 76.8959,54.4639 76.8723,54.4647 76.8524,54.4612 76.7821,54.4395 76.7572,54.4371 76.7013,54.4402 76.6728,54.4365 76.6518,54.4223 76.6457,54.4037 76.6453,54.3838 76.6409,54.3665 76.6231,54.3559 76.6078,54.3546 76.5772,54.3568 76.5619,54.3563 76.5401,54.3511 76.4765,54.3231 76.4331,54.3166 76.2342,54.3474 76.2148,54.3422 76.1939,54.3256 76.1771,54.3068 76.1697,54.2914 76.1719,54.2747 76.1838,54.2516 76.0419,54.2117 75.8653,54.1621 75.7520,54.1302 75.6404,54.0989 75.6032,54.0945 75.4998,54.1023 75.4644,54.1006 75.4292,54.0901 75.3607,54.0595 75.4340,53.9865 75.2775,53.9177 75.1577,53.8651 75.0279,53.8079 75.0008,53.8065 74.9239,53.8310 74.8885,53.8364 74.8062,53.8377 74.7720,53.8309 74.7622,53.8226 74.7543,53.8085 74.7434,53.7795 74.7349,53.7652 74.7253,53.7591 74.6746,53.7571 74.6630,53.7550 74.6545,53.7484 74.6445,53.7346 74.6268,53.6873 74.6165,53.6807 74.4535,53.6850 74.4385,53.6734 74.4297,53.6536 74.4208,53.6031 74.4266,53.5964 74.4446,53.5858 74.4554,53.5774 74.4569,53.5698 74.4091,53.4776 74.3884,53.4622 74.3589,53.4661 74.3062,53.4924 74.3061,53.4924 74.3060,53.4926 74.2696,53.5152 74.2631,53.5302 74.2703,53.5532 74.2505,53.5568 74.2416,53.5678 74.2353,53.5819 74.2233,53.5946 74.2139,53.5970 74.1480,53.5980 74.1372,53.5939 74.1187,53.5695 74.1077,53.5651 74.0769,53.5662 74.0628,53.5732 74.0615,53.5895 74.0630,53.6087 74.0580,53.6246 74.0436,53.6300 73.9767,53.6352 73.9367,53.6395 73.9042,53.6392 73.8727,53.6321 73.8033,53.5984 73.7878,53.5951 73.7533,53.6070 73.7365,53.6098 73.6598,53.6116 73.6529,53.6092 73.6512,53.6028 73.6510,53.5948 73.6441,53.5792 73.6432,53.5702 73.6407,53.5632 73.6319,53.5609 73.6079,53.5633 73.6004,53.5629 73.5825,53.5586 73.5760,53.5532 73.5726,53.5432 73.5635,53.5255 73.5552,53.5148 73.5465,53.5069 73.5237,53.4925 73.5237,53.4924 73.5236,53.4924 73.4241,53.4326 73.4110,53.4300 73.3472,53.4594 73.3912,53.5202 73.2306,53.5723 73.2588,53.6063 73.2249,53.6299 73.2204,53.6431 73.2297,53.6624 73.2448,53.6748 73.2638,53.6810 73.3066,53.6857 73.3312,53.7752 73.3474,53.7876 73.4378,53.8085 73.3912,53.8282 73.4110,53.8503 73.4318,53.8654 73.4559,53.8737 73.4853,53.8749 73.6343,53.8574 73.6617,53.8608 73.6829,53.8741 73.6971,53.9008 73.7406,54.0579 73.6849,54.0484 73.6749,54.0516 73.6717,54.0724 73.6705,54.0759 73.6543,54.0785 73.6015,54.0712 73.5885,54.0662 73.5919,54.0577 73.6009,54.0469 73.6044,54.0347 73.5869,54.0194 73.5283,54.0107 73.5199,53.9924 73.5199,53.9923 73.5215,53.9687 73.5180,53.9560 73.5059,53.9497 73.4816,53.9454 73.4690,53.9473 73.4460,53.9639 73.4335,53.9707 73.4241,53.9726 73.3928,53.9740 73.3843,53.9703 73.3813,53.9602 73.3793,53.9487 73.3739,53.9409 73.3603,53.9384 73.1907,53.9616 73.0628,53.9791 73.0444,53.9923 73.0353,54.0206 73.0237,54.0340 72.9768,54.0477 72.9736,54.0865 72.9684,54.1041 72.9568,54.1175 72.9420,54.1218 72.8855,54.1173 72.7573,54.1260 72.6242,54.1350 72.5731,54.1287 72.5274,54.1001 72.5192,54.0882 72.5088,54.0687 72.5031,54.0509 72.5094,54.0436 72.5971,54.0546 72.6318,54.0539 72.6562,54.0425 72.6756,54.0217 72.6948,53.9926 72.7002,53.9576 72.6737,53.9505 72.5721,53.9764 72.5568,53.9772 72.5439,53.9708 72.5181,53.9432 72.4767,53.9134 72.4556,53.9053 72.4234,53.9035 72.3922,53.9082 72.3730,53.9201 72.3728,53.9362 72.3831,53.9564 72.4078,53.9923 72.4078,53.9925 72.4187,54.0160 72.4051,54.0307 72.3819,54.0430 72.3636,54.0595 72.3600,54.0686 72.3569,54.0818 72.3584,54.0930 72.3682,54.0963 72.3985,54.0897 72.4079,54.0896 72.4119,54.0928 72.4193,54.1053 72.4232,54.1087 72.4397,54.1089 72.4542,54.1071 72.4667,54.1099 72.4767,54.1237 72.4820,54.1283 72.4844,54.1325 72.4829,54.1356 72.3881,54.1576 72.2986,54.1784 72.3330,54.2238 72.3371,54.2365 72.3244,54.2535 72.2787,54.2627 72.2675,54.2735 72.2528,54.3035 72.2219,54.3332 72.1848,54.3568 72.1518,54.3683 72.0432,54.3780 72.0247,54.3709 72.0271,54.3553 72.0384,54.3460 72.0713,54.3332 72.0948,54.3208 72.1030,54.3116 72.0987,54.3005 72.0780,54.2739 72.0721,54.2627 72.0676,54.2511 72.0657,54.2410 72.0654,54.2280 72.0667,54.2224 72.0851,54.2131 72.1115,54.2062 72.1423,54.2033 72.1700,54.1968 72.1874,54.1794 72.1905,54.1520 72.1776,54.1360 72.1551,54.1284 72.1289,54.1261 72.0995,54.1319 72.0770,54.1483 72.0187,54.2150 72.0025,54.2256 71.9836,54.2316 71.9580,54.2360 71.7625,54.2476 71.7414,54.2424 71.7254,54.2291 71.7154,54.2107 71.7122,54.1907 71.7173,54.1465 71.7087,54.1322 71.6806,54.1191 71.6472,54.1086 71.6324,54.1071 71.6150,54.1095 71.6047,54.1137 71.5842,54.1259 71.5735,54.1292 71.5494,54.1270 71.4991,54.1116 71.4771,54.1097 71.4683,54.1584 71.4624,54.1715 71.4531,54.1813 71.4435,54.1851 71.4130,54.1844 71.3816,54.1888 71.3497,54.1977 71.3206,54.2010 71.2963,54.1890 71.2458,54.1358 71.2181,54.1163 71.1823,54.1016 71.1613,54.1020 71.1437,54.1137 71.1130,54.1502 71.0974,54.1651 71.0824,54.1743 71.0440,54.1859 71.0516,54.2003 71.0564,54.2234 71.0572,54.2471 71.0521,54.2632 71.0388,54.2676 70.9771,54.2701 70.9708,54.3050 70.9800,54.3251 71.0034,54.3331 71.0395,54.3321 71.0598,54.3280 71.0969,54.3157 71.1163,54.3117 71.1344,54.3116 71.1906,54.3182 71.1958,54.3608 71.1957,54.3745 71.1981,54.3917 71.1980,54.3995 71.1935,54.4040 71.1761,54.4076 71.1687,54.4109 71.1659,54.4170 71.1710,54.4510 71.1669,54.4627 71.1469,54.4762 71.1452,54.4806 71.1459,54.4862 71.1482,54.4925 71.1412,54.5638 71.1476,54.5914 71.1790,54.6087 71.2302,54.6175 71.2523,54.6253 71.2649,54.6392 71.2647,54.6617 71.2528,54.6824 71.2188,54.7142 71.2007,54.7240 71.1803,54.7274 71.1369,54.7270 71.0972,54.7330 71.0470,54.7491 71.0060,54.7742 70.9941,54.8075 70.9972,54.8348 70.9900,54.8486 70.9533,54.8735 70.9459,54.8879 70.9475,54.9061 70.9551,54.9233 70.9664,54.9349 70.9745,54.9469 70.9570,54.9735 70.9634,54.9923 70.9692,55.0051 70.9733,55.0185 70.9771,55.0461 70.9775,55.0479 70.9775,55.0516 70.9771,55.0534 70.9779,55.0657 70.9771,55.0780 70.9601,55.1056 70.8619,55.1806 70.7932,55.2332 70.7821,55.2485 70.7889,55.2655 70.8045,55.2815 70.8204,55.2941 70.7776,55.3070 70.7212,55.3131 70.6934,55.3111 70.5613,55.2696 70.4412,55.2833 70.4601,55.2874 70.4686,55.2856 70.4699,55.2966 70.4997,55.3328 70.5025,55.3471 70.5001,55.3505 70.4859,55.3653 70.4786,55.3744 70.4750,55.3805 70.4722,55.3884 70.4688,55.4014 70.4693,55.4103 70.4710,55.4180 70.4750,55.4241 70.4870,55.4369 70.5436,55.4865 70.5499,55.4901 70.5588,55.4921 70.6755,55.5050 70.6916,55.5088 70.7019,55.5163 70.7080,55.5226 70.7365,55.5653 70.7471,55.5903 70.7377,55.6067 70.7233,55.6201 70.7052,55.6288 70.6924,55.6317 70.6514,55.6309 70.6325,55.6326 70.6121,55.6406 70.5560,55.6702 70.5493,55.6755 70.5468,55.6811 70.5440,55.6963 70.5436,55.7103 70.5455,55.7193 70.5490,55.7262 70.5787,55.7545 70.5882,55.7682 70.5894,55.7747 70.5889,55.7811 70.5863,55.7940 70.5889,55.7986 70.5941,55.8017 70.6236,55.8139 70.6297,55.8154 70.6372,55.8156 70.6464,55.8144 70.6623,55.8093 70.6709,55.8073 70.6792,55.8067 70.7315,55.8191 70.7520,55.8278 70.7656,55.8380 70.7539,55.8531 70.7328,55.8562 70.7062,55.8552 70.6127,55.8399 70.5858,55.8379 70.5053,55.8473 70.4876,55.8541 70.4755,55.8765 70.4814,55.8895 70.5127,55.8944 70.7217,55.8987 70.7622,55.9035 70.8034,55.9209 70.8088,55.9250 70.8467,55.9634 70.8550,55.9737 70.8609,55.9840 70.8630,55.9916 70.8668,56.0212 70.8738,56.0403 70.9090,56.1118 70.9112,56.1234 70.9099,56.1318 70.9053,56.1359 70.8993,56.1395 70.8924,56.1428 70.8845,56.1457 70.8656,56.1503 70.8433,56.1536 70.8340,56.1559 70.8279,56.1596 70.8231,56.1665 70.8184,56.1757 70.8123,56.1924 70.8132,56.2016 70.8175,56.2076 70.8365,56.2180 70.8421,56.2228 70.8470,56.2284 70.8499,56.2363 70.8495,56.2423 70.8470,56.2476 70.8433,56.2521 70.8387,56.2560 70.8322,56.2585 70.8241,56.2586 70.8153,56.2577 70.8067,56.2561 70.7960,56.2579 70.7855,56.2628 70.7714,56.2796 70.7684,56.2888 70.7703,56.2959 70.8287,56.3273 70.8361,56.3304 70.8443,56.3325 70.9095,56.3403 70.9190,56.3428 70.9275,56.3470 70.9358,56.3557 70.9392,56.3630 70.9408,56.3698 70.9407,56.3879 70.9386,56.4043 70.9331,56.4121 70.9246,56.4171 70.9146,56.4191 70.9040,56.4223 70.8937,56.4276 70.8829,56.4388 70.8704,56.4495 70.8554,56.4559 70.8074,56.4479 70.7876,56.4471 70.7743,56.4597 70.7804,56.4717 70.7948,56.4838 70.8114,56.4918 70.8442,56.5004 70.8606,56.5016 70.9506,56.4945 70.9714,56.4991 71.0290,56.5265 71.0531,56.5444 71.0782,56.5687 71.1026,56.6159 71.1069,56.6390 71.0949,56.6575 71.0509,56.6822 71.0448,56.6947 71.0596,56.7016 71.0785,56.6998 71.1466,56.6798 71.1689,56.6757 71.2591,56.6847 71.3329,56.6712 71.3466,56.6703 71.3570,56.6711 71.3735,56.6752 71.3809,56.6779 71.3874,56.6811 71.3923,56.6853 71.3948,56.6905 71.3960,56.6962 71.3955,56.7019 71.3926,56.7126 71.3945,56.7189 71.3997,56.7253 71.4153,56.7327 71.4256,56.7333 71.4343,56.7316 71.4403,56.7279 71.4573,56.7217 71.4886,56.7169 71.5390,56.7235 71.5567,56.7322 71.5774,56.7592 71.5898,56.7865 71.5971,56.7978 71.6043,56.8036 71.6121,56.8077 71.6678,56.8264 71.6717,56.8320 71.6733,56.8378 71.6706,56.8604 71.6607,56.9038 71.6566,56.9156 71.6523,56.9226 71.6177,56.9529 71.5691,56.9826 71.3905,57.0532 71.3712,57.0638 71.2361,57.1850 71.2313,57.1961 71.2242,57.2016 71.2143,57.2045 71.1246,57.2096 71.1137,57.2126 71.1033,57.2167 71.0924,57.2242 71.0889,57.2306 71.0895,57.2371 71.0939,57.2420 71.1011,57.2447 71.1101,57.2462 71.1302,57.2478 71.1383,57.2494 71.1440,57.2523 71.1443,57.2581 71.1419,57.2655 71.1362,57.2774 71.1296,57.2834 71.1196,57.2864 71.1091,57.2880 71.0985,57.2913 71.0954,57.2966 71.0958,57.3030 71.1030,57.3264 71.0983,57.3391 71.0798,57.3444 71.0151,57.3512 71.0037,57.3512 70.9961,57.3502 70.9832,57.3426 70.9600,57.3369 70.8510,57.3280 70.8001,57.3191 70.7599,57.2818 70.7559,57.2769 70.7541,57.2713 70.7542,57.2598 70.7556,57.2544 70.7584,57.2495 70.7634,57.2455 70.7804,57.2400 70.7839,57.2353 70.7857,57.2300 70.7855,57.2240 70.7829,57.2170 70.7768,57.2094 70.7597,57.1995 70.7455,57.1957 70.7285,57.1936 70.6124,57.2006 70.6071,57.2043 70.6052,57.2094 70.6066,57.2157 70.6094,57.2216 70.6139,57.2268 70.6269,57.2338 70.6502,57.2425 70.6536,57.2455 70.6550,57.2482 70.6560,57.2529 70.6547,57.2580 70.6485,57.2623 70.6338,57.2646 70.5726,57.2665 70.5622,57.2682 70.5529,57.2706 70.4982,57.2983 70.4908,57.3038 70.4373,57.3730 70.4320,57.3838 70.4269,57.3990 70.4307,57.4048 70.4362,57.4093 70.6752,57.5113 70.6865,57.5188 70.6913,57.5256 70.6931,57.5318 70.6924,57.5375 70.6911,57.5429 70.6904,57.5487 70.6902,57.5678 70.6886,57.5758 70.6864,57.5817 70.6821,57.5866 70.6759,57.5900 70.6671,57.5918 70.6585,57.5921 70.6451,57.5910 70.6292,57.5879 70.6060,57.5805 70.5982,57.5791 70.5900,57.5785 70.5855,57.5797 70.5799,57.5836 70.5753,57.6796 70.5726,57.6973 70.5650,57.7053 70.5459,57.7084 70.5075,57.7090 70.5000,57.7126 70.4954,57.7230 70.4886,57.7493 70.4805,57.7607 70.4690,57.7673 70.4412,57.7729 70.4329,57.7788 70.4298,57.7848 70.4353,57.7977 70.4376,57.8063 70.4382,57.8156 70.4375,57.8304 70.4294,57.8381 70.4255,57.8468 70.4200,57.8520 70.4183,57.8584 70.4201,57.8658 70.4255,57.8741 70.4047,57.8890 70.3862,57.9071 70.3840,57.9223 70.4361,57.9338 70.4328,57.9405 70.4375,57.9536 70.4415,57.9588 70.4682,57.9815 70.6664,58.2581 70.8646,58.5346 70.8910,58.5450 70.9303,58.5473 70.9435,58.5456 70.9517,58.5421 70.9559,58.5379 70.9638,58.5326 70.9758,58.5271 71.0018,58.5204 71.0175,58.5187 71.0679,58.5247 71.0773,58.5224 71.0835,58.5185 71.0979,58.4935 71.1088,58.4803 71.1112,58.4752 71.1138,58.4643 71.1162,58.4588 71.1203,58.4534 71.1281,58.4480 71.1382,58.4459 71.1636,58.4448 71.1918,58.4397 71.2738,58.4071 71.2927,58.3949 71.3016,58.3851 71.2996,58.3792 71.2952,58.3741 71.2898,58.3698 71.2750,58.3640 71.2591,58.3594 71.2521,58.3563 71.2479,58.3515 71.2450,58.3409 71.2209,58.1658 71.2211,58.1581 71.2220,58.1506 71.2268,58.1398 71.2332,58.1321 71.2434,58.1232 71.2469,58.1165 71.2479,58.1098 71.2428,58.0897 71.2441,58.0833 71.2494,58.0765 71.2692,58.0764 71.4013,58.0921 71.4184,58.0921 71.4594,58.0815 71.4817,58.0801 71.5130,58.0826 71.5849,58.0953 71.9627,58.1224 71.9889,58.1227 72.0243,58.1107 72.0576,58.0950 72.0764,58.0795 72.1065,58.0472 72.1252,58.0314 72.1491,58.0262 72.4755,58.0284 72.5235,58.0152 72.6478,58.0135 72.8612,58.0105 72.8892,58.0190 72.9137,58.0296 72.9337,58.0409 72.9484,58.0534 72.9577,58.0656 72.9546,58.0836 72.9683,58.0964 72.9852,58.1074 73.0664,58.1406 73.0874,58.1463 73.4603,58.1421 73.8333,58.1378 74.2063,58.1336 74.4839,58.2691 74.5447,58.2840 74.6136,58.2943 74.6219,58.2985 74.6255,58.3035 74.6248,58.3088 74.6237,58.3141 74.6233,58.3197 74.6398,58.3339 74.6708,58.3544 74.7952,58.4179 74.8220,58.4269 74.8579,58.4266 74.8718,58.4283 74.8806,58.4317 74.8870,58.4361 74.8902,58.4415 74.8911,58.4470 74.8902,58.4523 74.8887,58.4575 74.8878,58.4632 74.8887,58.4687 74.8954,58.4752 74.9218,58.4839 74.9300,58.4901 74.9487,58.5073 75.1052,58.5810 75.1575,58.6182 75.1589,58.6280 75.1595,58.6502 75.1607,58.6777 75.1965,58.7005 75.3732,58.7859 75.6416,58.9824 75.6719,59.0156 75.6869,59.0401 75.6819,59.0642 75.6270,59.2116 75.6249,59.2255 75.6284,59.2378 75.6493,59.2456 75.7653,59.2706 75.7877,59.2787 75.8187,59.2945 75.8331,59.3087 75.8434,59.3233 75.8737,59.3926 75.8951,59.4264 75.9059,59.4317 75.9146,59.4321 75.9505,59.4205 75.9607,59.4184 75.9712,59.4177 75.9894,59.4201 75.9962,59.4225 76.0012,59.4248 76.0072,59.4284 76.1538,59.5351 76.1717,59.5428 76.4401,59.5446 76.6320,59.5766 76.6455,59.5851 76.6480,59.6079 76.6462,59.6660 76.6563,59.6927 76.7280,59.7295 76.7378,59.7435 76.7415,59.7578 76.7385,59.9360 76.7575,60.0567 76.7570,60.0660 76.7554,60.0712 76.7530,60.0760 76.7486,60.0804 76.7422,60.0842 76.7348,60.0877 76.7066,60.0969 76.6988,60.1012 76.6927,60.1072 76.6940,60.1126 76.6986,60.1173 76.7644,60.1579 76.7811,60.1729 76.8480,60.2661 76.8486,60.2723 76.8471,60.2778 76.8322,60.3117 76.8262,60.3213 76.8225,60.3258 76.8176,60.3300 76.8106,60.3335 76.8019,60.3363 76.7666,60.3402 76.7561,60.3424 76.7494,60.3469 76.7489,60.3573 76.7527,60.3775 76.7796,60.4518 76.8059,60.4711 76.8344,60.4828 76.8810,60.4887 77.0127,60.5272 77.0225,60.5325 77.0327,60.5406 77.0466,60.5590 77.0513,60.5692 77.0535,60.5775 77.0482,60.5984 77.0404,60.6186 77.0377,60.6234 77.0344,60.6278 77.0296,60.6318 77.0222,60.6342 76.9867,60.6376 76.9773,60.6415 76.9703,60.6491 76.9709,60.7104 76.9733,60.7163 76.9780,60.7204 76.9856,60.7217 76.9942,60.7357 77.0161,60.7293 77.0368,60.7264 77.0676,60.7263 77.0733,60.7407 77.0706,60.7458 77.0687,60.7564 77.0693,60.7621 77.0866,60.8332 77.0913,60.8428 77.0980,60.8493 77.1048,60.8525 77.1176,60.8553 77.1361,60.8561 77.2519,60.8342 77.3117,60.8323 77.3357,60.8285 77.3961,60.8121 77.4075,60.8111 77.5620,60.8291 77.7023,60.8252 77.7492,60.8158 77.8249,60.7918 77.8460,60.7809 77.8800,60.7566 77.8881,60.7533 77.8978,60.7505 77.9090,60.7484 77.9204,60.7475 77.9312,60.7479 77.9411,60.7492 78.0794,60.7952 78.1205,60.8018 78.1641,60.8031 78.4744,60.7775 78.4943,60.7802 78.6749,60.8280 78.6878,60.8289 78.6994,60.8276 78.7854,60.7842 78.7950,60.7815 78.8065,60.7798 78.8937,60.7849 78.9069,60.7880 78.9599,60.8195 78.9758,60.8252 78.9888,60.8265 78.9962,60.8242 79.0008,60.8222 79.0095,60.8205 79.0218,60.8199 79.0615,60.8251 79.0896,60.8242 79.1095,60.8255 79.1685,60.8366 79.1852,60.8376 79.1957,60.8355 79.2044,60.8324 79.2387,60.8135 79.2475,60.8107 79.2573,60.8087 79.2879,60.8088 79.2976,60.8073 79.3053,60.8043 79.3118,60.8007 79.3150,60.7965 79.3136,60.7923 79.2953,60.7804 79.2907,60.7756 79.2888,60.7703 79.2846,60.7256 79.2854,60.7205 79.2888,60.7160 79.3077,60.7051 79.3595,60.6636 79.3737,60.6623 79.3951,60.6639 79.5026,60.6866 79.8533,60.6919 80.1654,60.6636 80.1857,60.6647 80.2087,60.6701 80.4139,60.7606 80.4284,60.7648 80.4415,60.7671 80.6235,60.7687 80.6351,60.7719 80.6893,60.7939 80.7072,60.7965 80.7235,60.7966 80.8585,60.7785 81.0172,60.7572 81.0275,60.7547 81.0356,60.7494 81.0406,60.7378 81.0528,60.6944 81.0608,60.6803 81.0757,60.6659 81.0941,60.6526 81.1149,60.6418 81.1405,60.6367 81.4977,60.6155 81.5451,60.6313 81.8304,60.6447 81.8728,60.6385 81.9057,60.6296 82.1390,60.5320 82.1654,60.5263 82.1905,60.5308 82.3624,60.6006 82.3807,60.6120 82.3868,60.6256 82.3882,60.6399 82.3851,60.6843 82.3862,60.6984 82.3912,60.7115 82.4074,60.7230 82.7758,60.8756 83.1442,61.0282 83.5036,61.0472 83.5141,61.0445 83.5212,61.0410 83.6162,60.9818 83.8919,60.8717 83.9486,60.8416 83.9888,60.8269 3545,3.0,Asia/Riyadh 42.8967,37.3249 42.9370,37.3202 42.9796,37.3318 43.0052,37.3473 43.0435,37.3603 43.0837,37.3688 43.1148,37.3711 43.1320,37.3673 43.2634,37.3107 43.2703,37.3087 43.2786,37.3077 43.2875,37.3091 43.2969,37.3167 43.3057,37.3200 43.3242,37.3222 43.3361,37.3202 43.3760,37.2955 43.4168,37.2792 43.4633,37.2487 43.4796,37.2434 43.4924,37.2448 43.5171,37.2523 43.5295,37.2539 43.5424,37.2523 43.5506,37.2487 43.5689,37.2377 43.5942,37.2295 43.6183,37.2270 43.6490,37.2287 43.7208,37.2326 43.7469,37.2306 43.7706,37.2258 43.7806,37.2204 43.8021,37.2036 43.8094,37.1997 43.8220,37.2024 43.8400,37.2171 43.8936,37.2249 43.9242,37.2531 43.9538,37.2875 43.9904,37.3125 44.0356,37.3182 44.0880,37.3112 44.1845,37.2792 44.2069,37.2675 44.2232,37.2541 44.2350,37.2368 44.2435,37.2138 44.2485,37.1919 44.2496,37.1794 44.2483,37.1697 44.2401,37.1580 44.2302,37.1543 44.2188,37.1526 44.2060,37.1466 44.1892,37.1292 44.1806,37.1089 44.1800,37.0876 44.1875,37.0669 44.2278,36.9941 44.2343,36.9837 44.2433,36.9778 44.2848,36.9692 44.2972,36.9699 44.3066,36.9772 44.3159,36.9940 44.3160,36.9940 44.3161,36.9940 44.3161,36.9941 44.3316,37.0155 44.3352,37.0312 44.3431,37.0424 44.4281,37.0648 44.4544,37.0763 44.4792,37.0920 44.5034,37.1166 44.5394,37.1437 44.5782,37.1664 44.6103,37.1784 44.6289,37.1790 44.7338,37.1672 44.7538,37.1592 44.7661,37.1419 44.7525,37.1131 44.7527,37.1033 44.7607,37.0856 44.7665,37.0790 44.7736,37.0763 44.7811,37.0745 44.7884,37.0702 44.7922,37.0637 44.7973,37.0485 44.8019,37.0435 44.8112,37.0419 44.8309,37.0468 44.8406,37.0472 44.8476,37.0440 44.8589,37.0341 44.8808,37.0249 44.8874,37.0159 44.8857,37.0051 44.8748,36.9940 44.8692,36.9674 44.8749,36.9497 44.8841,36.9334 44.8888,36.9109 44.8834,36.8868 44.8696,36.8690 44.8341,36.8340 44.8234,36.8093 44.8312,36.7919 44.8512,36.7812 44.8772,36.7765 44.9082,36.7779 44.9227,36.7759 44.9352,36.7671 44.9444,36.7583 44.9548,36.7523 44.9664,36.7493 44.9795,36.7490 44.9962,36.7417 45.0110,36.7256 45.0353,36.6896 45.0459,36.6680 45.0443,36.6493 45.0249,36.6132 45.0142,36.5790 45.0133,36.5579 45.0103,36.5560 44.9979,36.5521 44.9934,36.5497 44.9914,36.5337 45.0059,36.5187 45.0253,36.5052 45.0382,36.4940 45.0391,36.4798 45.0455,36.4716 45.0541,36.4650 45.0621,36.4553 45.0669,36.4424 45.0685,36.4325 45.0723,36.4234 45.0837,36.4128 45.1108,36.4025 45.1400,36.4044 45.1960,36.4224 45.2213,36.4209 45.2389,36.4030 45.2496,36.3779 45.2545,36.3548 45.2570,36.3117 45.2639,36.2943 45.2827,36.2749 45.2585,36.2622 45.2642,36.2502 45.2828,36.2384 45.2974,36.2267 45.3020,36.2076 45.2995,36.1614 45.3046,36.1404 45.3356,36.1077 45.3483,36.0875 45.3442,36.0675 45.3319,36.0516 45.3196,36.0310 45.3137,36.0104 45.3202,35.9943 45.3202,35.9941 45.3202,35.9941 45.3203,35.9940 45.3205,35.9940 45.3381,35.9793 45.3596,35.9769 45.3818,35.9830 45.4015,35.9940 45.4016,35.9940 45.4019,35.9940 45.4020,35.9941 45.4022,35.9942 45.4199,35.9983 45.4531,36.0117 45.4793,36.0120 45.5400,35.9940 45.5769,35.9662 45.5899,35.9596 45.6170,35.9554 45.6469,35.9332 45.6932,35.8799 45.7187,35.8283 45.7310,35.8151 45.7490,35.8110 45.7867,35.8202 45.7979,35.8184 45.8142,35.8093 45.8348,35.8105 45.8541,35.8183 45.8783,35.8352 45.8885,35.8349 45.8988,35.8322 45.9091,35.8313 45.9413,35.8403 46.0049,35.8380 46.0250,35.8433 46.0443,35.8523 46.0604,35.8572 46.0770,35.8570 46.1078,35.8474 46.1150,35.8464 46.1199,35.8429 46.1248,35.8225 46.1291,35.8155 46.1352,35.8100 46.1434,35.8045 46.1635,35.7975 46.1850,35.7982 46.2274,35.8057 46.2464,35.8114 46.2635,35.8211 46.2814,35.8283 46.3030,35.8265 46.3196,35.8169 46.3271,35.8035 46.3251,35.7878 46.3134,35.7715 46.2975,35.7599 46.2671,35.7441 46.2535,35.7277 46.2379,35.7155 46.2170,35.7136 46.1777,35.7154 46.1276,35.6937 46.1070,35.6898 46.0371,35.6916 46.0165,35.6857 46.0038,35.6743 45.9959,35.6584 45.9924,35.6409 45.9923,35.6244 46.0020,35.5859 45.9992,35.5721 45.9687,35.5797 45.9639,35.5797 45.9593,35.5787 45.9680,35.5585 45.9792,35.5395 45.9831,35.5353 45.9846,35.5311 45.9832,35.5270 45.9792,35.5230 45.9713,35.5180 45.9661,35.5115 45.9636,35.5034 45.9640,35.4942 45.9770,35.4653 46.0410,35.3816 46.0963,35.3412 46.1202,35.3185 46.1274,35.2891 46.1201,35.2749 46.1077,35.2628 46.0988,35.2500 46.1015,35.2343 46.1154,35.2263 46.1542,35.2266 46.1693,35.2162 46.1655,35.1899 46.1438,35.1596 46.1304,35.1314 46.1511,35.1116 46.1431,35.0995 46.1324,35.0948 46.1200,35.0927 46.0945,35.0858 46.0766,35.0897 46.0666,35.0888 46.0398,35.0755 46.0251,35.0643 46.0092,35.0609 45.9792,35.0716 45.9664,35.0707 45.9560,35.0742 45.9350,35.0855 45.9202,35.0896 45.9132,35.0873 45.8994,35.0686 45.8984,35.0639 45.9012,35.0516 45.8991,35.0469 45.8931,35.0444 45.8790,35.0432 45.8725,35.0414 45.8619,35.0328 45.8570,35.0213 45.8568,35.0080 45.8597,34.9944 45.8597,34.9942 45.8690,34.9684 45.8663,34.9495 45.8579,34.9313 45.8502,34.9068 45.8350,34.8902 45.8080,34.8979 45.7783,34.9109 45.7551,34.9100 45.7485,34.8907 45.7505,34.8654 45.7454,34.8410 45.7177,34.8251 45.6892,34.8226 45.6766,34.8183 45.6668,34.8069 45.6636,34.7949 45.6659,34.7747 45.6628,34.7633 45.6350,34.7370 45.6274,34.7208 45.6423,34.7069 45.6505,34.7030 45.6595,34.6972 45.6669,34.6900 45.6704,34.6818 45.6735,34.6712 45.6784,34.6651 45.6835,34.6602 45.6876,34.6532 45.6908,34.6343 45.6912,34.6155 45.6945,34.5986 45.7056,34.5856 45.7086,34.5791 45.7083,34.5684 45.7056,34.5577 45.7015,34.5513 45.6956,34.5502 45.6736,34.5567 45.6048,34.5611 45.5739,34.5673 45.5396,34.5822 45.5007,34.5917 45.4965,34.5642 45.5048,34.5238 45.5035,34.4942 45.4987,34.4862 45.4930,34.4790 45.4865,34.4727 45.4793,34.4673 45.4268,34.4575 45.4171,34.4444 45.4480,34.3621 45.4608,34.3405 45.4793,34.3291 45.4992,34.3424 45.5215,34.3425 45.5422,34.3316 45.5576,34.3120 45.5630,34.2893 45.5610,34.2646 45.5477,34.2165 45.5427,34.2075 45.5287,34.1886 45.5267,34.1793 45.5315,34.1679 45.5388,34.1592 45.5445,34.1506 45.5445,34.1395 45.5344,34.1282 45.4939,34.1007 45.4793,34.0876 45.4549,34.0699 45.4436,34.0477 45.4352,34.0221 45.4199,33.9944 45.4199,33.9943 45.4197,33.9943 45.4115,33.9872 45.4018,33.9816 45.3804,33.9736 45.4010,33.9495 45.4237,33.9388 45.4497,33.9374 45.4793,33.9412 45.4818,33.9409 45.4839,33.9400 45.4858,33.9387 45.5748,33.8039 45.5882,33.7915 45.6036,33.7807 45.6167,33.7687 45.6239,33.7521 45.6282,33.7318 45.6351,33.7142 45.6452,33.6979 45.6588,33.6817 45.6740,33.6690 45.7211,33.6408 45.7280,33.6256 45.7277,33.5901 45.7346,33.5831 45.7520,33.5868 45.7685,33.5959 45.7975,33.6193 45.8158,33.6258 45.8644,33.6264 45.8860,33.6309 45.8820,33.6002 45.8997,33.5852 45.9209,33.5730 45.9279,33.5509 45.9156,33.5358 45.8682,33.5116 45.8526,33.4944 45.8697,33.4821 45.8994,33.4763 45.9297,33.4795 45.9482,33.4943 45.9531,33.4966 45.9582,33.4974 45.9633,33.4966 45.9682,33.4942 45.9714,33.4928 45.9744,33.4908 46.0080,33.4557 46.0194,33.4384 46.0275,33.4195 46.0305,33.3992 46.0311,33.3825 46.0362,33.3679 46.0697,33.3409 46.1095,33.2937 46.1413,33.2721 46.1553,33.2602 46.1642,33.2433 46.1644,33.2331 46.1584,33.2139 46.1577,33.2057 46.1621,33.1964 46.1737,33.1902 46.1743,33.1812 46.1672,33.1683 46.1534,33.1543 46.1265,33.1318 46.1054,33.1184 46.0892,33.1157 46.0724,33.1168 46.0504,33.1151 46.0303,33.1057 46.0293,33.0935 46.0433,33.0835 46.0872,33.0792 46.1060,33.0725 46.1204,33.0617 46.1262,33.0480 46.1195,33.0310 46.1047,33.0181 46.0880,33.0067 46.0757,32.9945 46.0757,32.9943 46.0970,32.9543 46.1556,32.9484 46.2734,32.9595 46.3796,32.9318 46.4793,32.8918 46.5073,32.8680 46.6044,32.8207 46.6504,32.7894 46.7159,32.7560 46.7573,32.7162 47.0584,32.4945 47.0586,32.4945 47.0587,32.4944 47.0906,32.4746 47.1210,32.4610 47.1526,32.4552 47.1878,32.4584 47.2055,32.4640 47.2513,32.4855 47.2653,32.4847 47.3219,32.4682 47.3433,32.4587 47.3561,32.4462 47.3673,32.4308 47.3841,32.4126 47.4108,32.3953 47.4164,32.3880 47.4180,32.3764 47.4143,32.3699 47.4088,32.3643 47.4000,32.3458 47.3959,32.3420 47.3958,32.3370 47.4025,32.3235 47.4071,32.3178 47.4369,32.2937 47.4416,32.2882 47.4454,32.2826 47.4630,32.2618 47.4694,32.2561 47.4791,32.2521 47.4845,32.2394 47.5040,32.2267 47.5092,32.2138 47.5077,32.1998 47.5024,32.1901 47.4964,32.1813 47.4925,32.1705 47.4904,32.1565 47.4913,32.1486 47.4982,32.1441 47.5138,32.1403 47.5267,32.1334 47.5348,32.1232 47.5436,32.1146 47.5587,32.1130 47.5781,32.1062 47.5950,32.0854 47.6178,32.0419 47.6331,32.0269 47.6681,32.0124 47.6779,31.9947 47.6779,31.9945 47.6826,31.9769 47.7184,31.9223 47.7252,31.9143 47.7433,31.9043 47.7510,31.8982 47.7565,31.8892 47.7617,31.8716 47.7653,31.8641 47.7814,31.8489 47.8208,31.8236 47.8345,31.8057 47.8373,31.7845 47.8313,31.7618 47.6789,31.4079 47.6729,30.9947 48.0015,30.9946 48.0122,30.9891 48.0154,30.9762 48.0120,30.4946 48.0120,30.4945 48.0136,30.4639 48.1194,30.4508 48.1306,30.4475 48.1409,30.4419 48.1577,30.4263 48.1705,30.4067 48.1795,30.3849 48.1877,30.3408 48.1921,30.3313 48.2001,30.3239 48.2112,30.3196 48.2230,30.3181 48.2351,30.3185 48.2717,30.3238 48.2843,30.3233 48.2964,30.3198 48.3057,30.3128 48.3260,30.2835 48.3582,30.2518 48.3970,30.2210 48.4036,30.2125 48.4087,30.2023 48.4106,30.1915 48.4080,30.1809 48.4007,30.1723 48.3911,30.1648 48.3833,30.1565 48.3811,30.1453 48.3831,30.1384 48.3956,30.1152 48.4155,30.0956 48.4212,30.0853 48.4239,30.0836 48.4422,30.0339 48.4443,30.0209 48.4531,30.0014 48.4578,29.9949 48.4643,29.9891 48.4782,29.9796 48.4856,29.9757 48.4930,29.9718 48.5240,29.9641 48.5310,29.9613 48.5315,29.9612 48.5604,29.9575 48.5608,29.9572 48.5723,29.9486 48.6061,29.8624 48.6792,29.7541 48.7915,29.8017 49.0022,29.8473 49.1549,29.9525 49.2853,29.9395 49.4065,29.8500 49.5179,29.8157 49.6174,29.8172 49.7692,29.8603 49.8528,29.8501 49.9728,29.7859 50.1295,29.6511 50.1902,29.5792 50.2341,29.4902 50.1237,29.4199 50.0700,29.3331 50.0678,29.2263 50.1201,29.1106 50.1730,29.0536 50.2457,29.0156 50.3085,29.0053 50.4440,29.0220 50.5244,28.9763 50.6228,28.7978 50.6816,28.7185 50.7355,28.6681 50.8312,28.6138 50.8659,28.4383 51.0177,28.1998 51.0906,27.9918 51.4095,27.7128 51.4892,27.6675 51.5818,27.6399 51.9433,27.6190 52.1163,27.5053 52.3230,27.4512 52.3433,27.4205 52.3635,27.3073 52.4075,27.2392 52.4864,27.1787 52.5110,27.1664 52.5195,27.0698 52.5213,27.0489 52.5213,26.9102 52.5213,26.8885 52.5213,26.4014 52.5213,25.9143 52.5213,25.4273 52.5213,24.9402 52.5213,24.6285 52.4785,24.6718 52.3880,24.7251 52.3148,24.7451 52.2476,24.7448 52.1760,24.7190 52.1216,24.6721 51.8585,24.5687 51.5953,24.4653 51.5953,24.3819 51.5940,24.3845 51.5744,24.3642 51.5923,24.3284 51.5912,24.2842 51.5699,24.2560 51.5696,24.2560 51.5755,24.2177 51.5752,24.1919 51.5732,24.1278 51.5785,24.1018 51.5935,24.0783 51.6505,24.0106 51.7026,23.9486 51.7548,23.8866 51.8068,23.8245 51.8590,23.7625 51.9112,23.7005 51.9634,23.6386 52.0155,23.5765 52.0677,23.5145 52.1198,23.4525 52.1720,23.3905 52.2241,23.3284 52.2763,23.2664 52.3283,23.2045 52.3805,23.1424 52.4326,23.0804 52.4848,23.0183 52.5385,22.9547 52.5585,22.9386 52.5831,22.9311 52.7438,22.9113 52.8828,22.8942 53.0218,22.8771 53.1609,22.8601 53.2999,22.8430 53.4389,22.8259 53.5781,22.8088 53.7171,22.7917 53.8561,22.7746 53.9953,22.7574 54.1343,22.7403 54.2733,22.7233 54.4124,22.7062 54.5513,22.6890 54.6903,22.6720 54.8294,22.6549 54.9686,22.6377 55.1053,22.6209 55.1204,22.6234 55.1868,22.7036 55.2504,22.6055 55.3311,22.4806 55.4120,22.3557 55.4928,22.2308 55.5736,22.1059 55.6267,22.0238 55.6370,22.0019 55.6376,21.9790 55.5952,21.8510 55.5886,21.8312 55.5701,21.7754 55.5412,21.6887 55.5155,21.6111 55.5140,21.6068 55.5038,21.5762 55.4596,21.4430 55.4102,21.2945 55.3575,21.1356 55.3029,20.9715 55.2483,20.8074 55.1955,20.6486 55.1462,20.5000 55.1019,20.3668 55.0645,20.2543 55.0357,20.1676 55.0171,20.1117 55.0105,20.0920 54.9784,19.9954 54.8279,19.9453 54.6567,19.8882 54.4856,19.8312 54.3146,19.7742 54.1435,19.7171 53.9722,19.6601 53.8011,19.6031 53.6300,19.5460 53.4589,19.4890 53.2878,19.4319 53.1166,19.3749 52.9455,19.3179 52.7744,19.2608 52.6031,19.2038 52.4321,19.1467 52.2611,19.0897 51.9786,18.9956 52.0140,18.9162 52.0567,18.8196 52.0995,18.7230 52.1423,18.6265 52.1850,18.5299 52.2278,18.4334 52.2707,18.3369 52.3133,18.2403 52.3562,18.1438 52.3990,18.0473 52.4417,17.9506 52.4845,17.8542 52.5274,17.7576 52.5488,17.7094 52.5702,17.6611 52.6128,17.5646 52.6556,17.4680 52.6984,17.3714 52.7301,17.2999 52.7283,17.2994 52.7230,17.2987 52.7215,17.2982 52.7362,17.2892 52.7739,17.2871 52.7910,17.2812 52.8016,17.2674 52.8403,17.1837 52.9027,17.0483 52.9653,16.9129 53.0279,16.7775 53.0904,16.6424 53.1266,16.5657 53.1749,16.4546 53.1269,16.4373 52.8805,16.3485 52.6342,16.2598 52.5213,16.1747 52.5213,15.7477 52.5213,15.3207 52.5213,14.8937 52.5213,14.4667 52.5213,14.0397 52.5213,13.6127 52.9985,13.6127 53.4757,13.6127 53.9529,13.6127 54.4301,13.6127 54.9073,13.6127 55.3845,13.6127 55.8617,13.6127 55.8617,13.1153 55.8617,12.6180 55.8617,12.1206 55.8617,11.6233 55.8617,11.1259 55.8617,10.6286 55.3844,10.6282 54.9071,10.6278 54.4299,10.6274 53.9526,10.6270 53.4753,10.6266 52.9980,10.6262 52.5207,10.6258 52.5207,10.1592 52.5207,9.6925 52.5207,9.2258 52.5207,8.7592 52.5207,8.2925 52.5207,7.8258 52.5207,7.3713 52.5207,6.9167 52.5207,6.4622 52.5207,6.0076 52.5207,5.5531 52.5207,5.0986 52.5207,4.6440 52.5207,4.1895 52.5207,3.7349 52.5207,3.2804 52.5207,2.8258 52.5207,2.3713 52.5207,1.9167 52.5207,1.4622 52.5207,1.0076 52.5207,0.5531 52.5207,0.0986 52.5207,-0.3560 52.5207,-0.8105 52.5207,-1.2651 52.5207,-1.7196 52.5208,-2.1742 52.5208,-2.6287 52.5208,-3.0833 52.5208,-3.5378 52.5208,-3.9924 52.5208,-4.4469 52.5208,-4.9014 52.5208,-5.3560 52.5208,-5.8105 52.5208,-6.2651 52.5208,-6.7196 52.5208,-7.1742 52.5208,-7.5620 52.5208,-7.9498 52.0415,-7.9493 51.5621,-7.9488 51.0828,-7.9483 50.6035,-7.9478 50.1241,-7.9474 49.6448,-7.9469 49.1654,-7.9464 48.6861,-7.9459 48.2068,-7.9454 47.7274,-7.9450 47.2481,-7.9445 46.7688,-7.9440 46.2894,-7.9435 45.8101,-7.9430 45.3308,-7.9426 44.8514,-7.9421 44.8510,-8.3600 44.8505,-8.7780 44.8501,-9.1959 44.8496,-9.6139 44.8492,-10.0318 44.8488,-10.4498 45.1823,-10.6832 45.5159,-10.9165 45.8888,-10.9224 46.2617,-10.9283 46.5861,-10.7895 46.9106,-10.6506 47.2507,-10.7307 47.5908,-10.8107 47.9671,-10.8200 48.3434,-10.8292 48.7198,-10.8384 49.0762,-10.5610 49.4327,-10.2836 49.6883,-10.5502 49.9440,-10.8168 50.1996,-11.0834 50.6638,-11.0842 51.1281,-11.0849 51.5923,-11.0856 52.0566,-11.0864 52.5208,-11.0871 52.5208,-11.4495 52.5208,-11.8118 52.5208,-12.1742 52.5208,-12.6287 52.5208,-13.0833 52.5208,-13.5378 52.5208,-13.9924 52.5208,-14.4469 52.5208,-14.9014 52.5208,-15.3560 52.5208,-15.8105 52.5208,-16.2651 52.5208,-16.7196 52.5209,-17.1742 52.5209,-17.6287 52.5209,-18.0833 52.5209,-18.5378 52.5209,-18.9924 52.5209,-19.4469 52.5209,-19.9014 52.5209,-20.3560 52.5209,-20.8105 52.5209,-21.2651 52.5209,-21.7196 52.5209,-22.1742 52.5209,-22.6742 52.5209,-23.1742 52.5209,-23.6742 52.5209,-24.1742 52.5209,-24.6287 52.5209,-25.0833 52.5209,-25.5378 52.5209,-25.9923 52.5209,-26.4469 52.5209,-26.9014 52.5209,-27.3560 52.5209,-27.8105 52.5209,-28.2651 52.5209,-28.7196 52.5209,-29.1742 52.5209,-29.6287 52.5209,-30.0833 52.5209,-30.5378 52.5209,-30.9923 52.5209,-31.4469 52.5209,-31.9014 52.5210,-32.3560 52.5210,-32.8105 52.5210,-33.2651 52.5210,-33.7196 52.5210,-34.1742 52.5210,-34.6287 52.5210,-35.0833 52.5210,-35.5378 52.5210,-35.9923 52.5210,-36.4469 52.5210,-36.9014 52.5210,-37.3560 52.5210,-37.8105 52.5210,-38.2651 52.5210,-38.7196 52.5210,-39.1742 52.5210,-39.6342 52.5210,-40.0942 52.5210,-40.5542 52.5210,-41.0142 52.5210,-41.4742 52.5210,-41.9739 52.5210,-42.4737 52.5210,-42.9734 52.5210,-43.4731 52.5210,-43.9729 52.5210,-44.4726 52.5210,-44.9724 52.0736,-44.9724 51.6262,-44.9724 51.1788,-44.9724 50.7314,-44.9724 50.2840,-44.9724 49.8366,-44.9724 49.3892,-44.9724 48.9418,-44.9724 48.9418,-45.4701 48.9418,-45.9678 48.9418,-46.4655 48.9418,-46.9633 49.3892,-46.9633 49.8366,-46.9633 50.2840,-46.9633 50.7314,-46.9633 51.1788,-46.9633 51.6262,-46.9633 52.0736,-46.9633 52.5211,-46.9633 52.5211,-47.4144 52.5211,-47.8654 52.5211,-48.3165 52.5211,-48.7676 52.5211,-49.2187 52.5211,-49.6698 52.5211,-50.1209 52.5211,-50.5720 52.5211,-51.0231 52.5211,-51.4742 52.5211,-51.9287 52.5211,-52.3833 52.5211,-52.8378 52.5211,-53.2923 52.5211,-53.7469 52.5211,-54.2014 52.5211,-54.6560 52.5211,-55.1105 52.5211,-55.5651 52.5211,-56.0196 52.5211,-56.4742 52.5211,-56.9287 52.5211,-57.3833 52.5211,-57.8378 52.5211,-58.2923 52.5211,-58.7469 52.5211,-59.2014 52.5211,-59.6560 52.5211,-60.1105 52.5211,-60.5651 52.5211,-61.0196 52.5211,-61.4742 52.5211,-61.9513 52.5212,-62.4284 52.5212,-62.9055 52.5212,-63.3826 52.5212,-63.8597 52.5212,-64.3368 52.5212,-64.8139 52.5212,-65.2910 52.5212,-65.7681 52.1991,-65.7730 51.9515,-65.7972 51.6413,-65.8447 51.5239,-65.8685 51.1515,-65.9742 51.0346,-66.0219 50.8330,-66.0691 50.4293,-66.1107 50.1997,-66.1531 50.0672,-66.1980 49.9467,-66.2612 49.8568,-66.3232 49.7687,-66.4084 49.6915,-66.5580 49.7037,-66.7239 49.6252,-66.6867 49.5250,-66.6558 49.3888,-66.6298 49.2176,-66.6129 49.0294,-66.5426 48.9476,-66.5232 48.8534,-66.5094 48.5231,-66.4974 48.3289,-66.4986 48.1741,-66.5142 48.0346,-66.5460 47.9186,-66.5909 47.8329,-66.6453 47.7871,-66.7001 47.7739,-66.7659 47.8079,-66.8472 47.8891,-66.9262 47.8379,-66.9947 47.8200,-67.0401 47.8189,-67.0939 47.8401,-67.1539 47.8833,-67.2108 47.9468,-67.2611 48.0311,-67.3038 48.1478,-67.3467 48.1470,-67.3624 48.1195,-67.3763 48.0682,-67.3759 47.9606,-67.3558 47.8622,-67.2907 47.7472,-67.2455 47.5613,-67.1944 47.4025,-67.1692 47.2512,-67.1118 47.0961,-67.0781 46.9849,-67.0661 46.8866,-67.0644 46.6875,-67.0730 46.4515,-67.0752 46.2488,-67.0951 46.1366,-67.1167 46.0316,-67.1462 45.9227,-67.1887 45.8467,-67.2298 45.7635,-67.3065 45.7082,-67.4502 45.6801,-67.4644 45.5190,-67.4940 45.3391,-67.4958 45.0903,-67.5214 44.8133,-67.5397 44.5637,-67.5823 44.4116,-67.6172 44.3005,-67.6562 44.2070,-67.7059 44.1322,-67.7682 43.9484,-67.7668 43.8700,-67.7719 43.7386,-67.7917 43.5669,-67.8361 43.4003,-67.8317 43.2598,-67.8383 42.9872,-67.8661 42.8187,-67.8901 42.6665,-67.9024 42.5787,-67.9160 42.4569,-67.9485 42.3694,-67.9914 42.2353,-68.0398 42.1205,-68.0999 42.0371,-68.1729 41.9810,-68.1982 41.7703,-68.2176 41.4422,-68.2682 41.1441,-68.3288 40.8460,-68.3895 40.6318,-68.4478 40.5537,-68.4823 40.5015,-68.5159 40.3954,-68.5206 40.2658,-68.5361 40.1597,-68.5572 39.9872,-68.6083 39.7275,-68.6300 39.5409,-68.6631 39.4137,-68.7051 39.3313,-68.7546 39.1508,-68.9975 39.1363,-69.0645 39.1659,-69.1503 39.1668,-69.2197 39.1302,-69.2786 39.1244,-69.3128 39.1407,-69.3567 39.1885,-69.4069 39.1813,-69.4374 39.1432,-69.4651 39.0624,-69.5041 38.8856,-69.5363 38.7120,-69.5861 38.6514,-69.5881 38.5792,-69.5822 38.2978,-69.5313 37.9620,-69.4871 37.8716,-69.4794 37.7082,-69.4765 37.5295,-69.4806 37.5295,-69.0576 37.5295,-68.6346 37.5295,-68.2115 37.5295,-67.7885 37.5295,-67.3655 37.5295,-67.3644 37.5295,-66.8645 37.5295,-66.3646 37.5295,-65.8647 37.5295,-65.3648 37.5295,-64.8649 37.5295,-64.3650 37.5295,-63.8651 37.5295,-63.3652 37.5295,-62.8654 37.5295,-62.3655 37.5295,-62.3644 37.5295,-61.8645 37.5295,-61.3646 37.5295,-60.8647 37.5295,-60.3648 37.5295,-59.8649 37.5295,-59.3650 37.5295,-58.8651 37.5295,-58.3652 37.5295,-57.8654 37.5295,-57.3655 37.5295,-57.3644 37.5295,-56.8645 37.5295,-56.3646 37.5295,-55.8647 37.5295,-55.3648 37.5295,-54.8649 37.5295,-54.3650 37.5295,-53.8651 37.5295,-53.3652 37.5295,-52.8654 37.5295,-52.3655 37.5295,-52.3644 37.5295,-51.8931 37.5295,-51.4218 37.5295,-50.9506 37.5295,-50.4793 37.5295,-50.0080 37.5295,-49.5367 37.5295,-49.0655 37.5295,-49.0644 37.5295,-48.5838 37.5295,-48.1033 37.5295,-47.6227 37.5295,-47.1421 37.4509,-47.1193 37.3837,-47.0821 37.3278,-47.0287 37.2935,-46.9670 37.2833,-46.9076 37.2995,-46.8404 37.3508,-46.7758 37.4612,-46.6846 37.5295,-46.6531 37.5295,-46.2218 37.5295,-45.7906 37.5295,-45.3593 37.5295,-44.9280 37.5295,-44.4967 37.5295,-44.0655 37.5295,-44.0644 37.5295,-43.5645 37.5295,-43.0646 37.5295,-42.5647 37.5295,-42.0648 37.5295,-41.5649 37.5295,-41.0650 37.5295,-40.5651 37.5295,-40.0652 37.5295,-39.5654 37.5295,-39.0655 37.5295,-39.0644 37.5295,-38.5645 37.5295,-38.0646 37.5295,-37.5647 37.5295,-37.0648 37.5295,-36.5649 37.5295,-36.0650 37.5295,-35.5651 37.5295,-35.0652 37.5295,-34.5654 37.5295,-34.0655 37.5295,-34.0644 37.5295,-33.5645 37.5295,-33.0646 37.5295,-32.5647 37.5295,-32.0648 37.5295,-31.5649 37.5295,-31.0650 37.5295,-30.5651 37.5295,-30.0652 37.5295,-29.5654 37.5295,-29.0655 37.5295,-29.0644 37.5295,-28.5645 37.5295,-28.0646 37.5295,-27.5647 37.5295,-27.0648 37.5295,-26.5649 37.5295,-26.0650 37.5295,-25.5651 37.5295,-25.0652 37.5295,-24.5654 37.5295,-24.0655 37.5295,-24.0644 37.5295,-23.5645 37.5295,-23.0646 37.5295,-22.5647 37.5295,-22.0648 37.5295,-21.5649 37.5295,-21.0650 37.5295,-20.5651 37.5295,-20.0652 37.5295,-19.5654 37.5295,-19.0655 37.5295,-19.0644 37.5295,-18.6329 37.5295,-18.2015 37.5295,-17.7700 37.6753,-17.6801 37.9413,-17.5500 38.2169,-17.4575 38.6630,-17.2713 38.9151,-17.2177 39.1866,-17.1335 39.2411,-17.0928 39.3043,-16.9838 39.3507,-16.9378 39.7121,-16.7416 39.9001,-16.6075 39.9522,-16.5503 40.0394,-16.4082 40.1437,-16.3220 40.2233,-16.2319 40.3477,-15.9908 40.4962,-15.8438 40.5899,-15.7290 40.7424,-15.5885 40.8411,-15.3637 40.8830,-15.1631 40.9513,-15.0363 41.0241,-14.8444 41.0366,-14.7280 41.0113,-14.4257 40.8483,-14.0435 40.8209,-13.9070 40.7633,-13.7337 40.7782,-13.5692 40.7562,-13.1311 40.7910,-12.9232 40.8290,-12.8246 40.8345,-12.7650 40.7300,-12.3545 40.7202,-11.9871 40.6465,-11.6049 40.6617,-11.4064 40.6520,-11.3181 40.7568,-11.0542 40.8298,-10.7547 40.8386,-10.6282 40.8167,-10.5828 40.7319,-10.4940 40.6476,-10.3313 40.5713,-10.3909 40.4369,-10.4748 40.4369,-10.4759 40.4210,-10.5038 40.3892,-10.5353 40.3533,-10.5607 40.2885,-10.5830 40.2507,-10.6109 40.1916,-10.6688 40.1728,-10.6931 40.1611,-10.7044 40.1332,-10.7146 40.0081,-10.8111 39.9891,-10.8209 39.8860,-10.8645 39.7858,-10.9326 39.7605,-10.9431 39.5928,-10.9794 39.5157,-10.9851 39.4985,-10.9906 39.4827,-10.9992 39.2866,-11.1542 39.2633,-11.1668 39.2382,-11.1742 39.2116,-11.1739 39.1905,-11.1662 39.1498,-11.1443 39.1262,-11.1397 39.0954,-11.1534 39.0608,-11.1601 38.9301,-11.1600 38.8963,-11.1677 38.8695,-11.1907 38.8519,-11.2028 38.8310,-11.2080 38.8178,-11.2163 38.7780,-11.2537 38.7597,-11.2632 38.7487,-11.2628 38.7271,-11.2577 38.7151,-11.2565 38.7042,-11.2585 38.6840,-11.2678 38.6542,-11.2758 38.6382,-11.2892 38.6157,-11.3172 38.5172,-11.3831 38.4923,-11.4135 38.4624,-11.3963 38.3831,-11.3767 38.3477,-11.3588 38.2925,-11.3016 38.2566,-11.2771 38.2104,-11.2700 38.2005,-11.2727 38.1784,-11.2818 38.1669,-11.2838 38.1550,-11.2806 38.1354,-11.2664 38.1257,-11.2632 38.1225,-11.2612 38.1172,-11.2520 38.1154,-11.2495 38.1093,-11.2496 38.1043,-11.2520 38.1012,-11.2549 38.1012,-11.2565 38.0708,-11.2558 38.0136,-11.2655 38.0042,-11.2753 37.9953,-11.2776 37.9546,-11.2800 37.9381,-11.2840 37.8752,-11.3191 37.8684,-11.3278 37.8658,-11.3425 37.8504,-11.3876 37.8410,-11.3998 37.8425,-11.4178 37.8185,-11.4599 37.8132,-11.4823 37.8173,-11.4956 37.8233,-11.5079 37.8251,-11.5202 37.8169,-11.5336 37.8044,-11.5445 37.7837,-11.5589 37.7109,-11.5904 37.6664,-11.6255 37.6478,-11.6360 37.6264,-11.6397 37.5946,-11.6400 37.5729,-11.6441 37.5368,-11.6630 37.5159,-11.6673 37.5038,-11.6727 37.4960,-11.6851 37.4904,-11.6989 37.4848,-11.7088 37.4764,-11.7160 37.4697,-11.7195 37.4507,-11.7226 37.4278,-11.7226 37.3783,-11.7088 37.3702,-11.7048 37.3524,-11.6863 37.3408,-11.6809 37.3314,-11.6816 37.3236,-11.6853 37.3158,-11.6902 37.3061,-11.6946 37.2702,-11.6984 37.2266,-11.6938 37.1416,-11.6747 37.1065,-11.6581 37.0716,-11.6292 37.0444,-11.5957 37.0324,-11.5649 37.0167,-11.5740 37.0078,-11.5806 36.9984,-11.5846 36.9059,-11.5928 36.8911,-11.5900 36.8663,-11.5742 36.8466,-11.5727 36.8371,-11.5680 36.8201,-11.5736 36.7748,-11.6263 36.7470,-11.6665 36.7380,-11.6747 36.7266,-11.6807 36.6897,-11.6946 36.6800,-11.7024 36.6746,-11.7088 36.6672,-11.7134 36.6406,-11.7163 36.6257,-11.7214 36.5630,-11.7313 36.5457,-11.7294 36.5206,-11.7171 36.5150,-11.7150 36.5087,-11.7098 36.5027,-11.6863 36.4949,-11.6809 36.3781,-11.6809 36.3733,-11.6831 36.3681,-11.6878 36.3612,-11.6924 36.3298,-11.6971 36.2934,-11.7073 36.2787,-11.7088 36.2684,-11.7060 36.2529,-11.6966 36.2409,-11.6946 36.1997,-11.7015 36.1882,-11.6937 36.1792,-11.6756 36.1762,-11.6550 36.1826,-11.6400 36.1759,-11.6201 36.1736,-11.5974 36.1681,-11.5787 36.1519,-11.5711 36.1428,-11.5690 36.1360,-11.5638 36.1295,-11.5571 36.1211,-11.5506 36.1115,-11.5466 36.0894,-11.5409 36.0796,-11.5370 36.0431,-11.5149 36.0222,-11.5057 36.0079,-11.5066 35.9885,-11.5122 35.9698,-11.5024 35.9608,-11.4835 35.9703,-11.4612 35.9531,-11.4406 35.9397,-11.4341 35.9020,-11.4345 35.8956,-11.4328 35.8673,-11.4209 35.8264,-11.4135 35.8131,-11.4224 35.7819,-11.4612 35.7643,-11.4749 35.7140,-11.4838 35.6956,-11.4946 35.7034,-11.5165 35.6913,-11.5243 35.6802,-11.5376 35.6719,-11.5514 35.6648,-11.5720 35.6548,-11.5783 35.6009,-11.5923 35.5997,-11.5922 35.5763,-11.6052 35.5598,-11.6010 35.5437,-11.5947 35.5327,-11.5956 35.5315,-11.6127 35.5201,-11.6091 35.5156,-11.6035 35.5130,-11.5966 35.5076,-11.5891 35.4987,-11.5823 35.4941,-11.5818 35.4902,-11.5841 35.4837,-11.5860 35.4834,-11.5869 35.4701,-11.5922 35.4658,-11.5926 35.4412,-11.5914 35.4319,-11.5884 35.4253,-11.5820 35.4235,-11.5766 35.3817,-11.5777 34.9646,-11.5736 34.9630,-11.5649 34.9630,-11.5131 34.9607,-11.4985 34.9557,-11.4867 34.9510,-11.4777 34.9487,-11.4718 34.9445,-11.4644 34.9351,-11.4565 34.9257,-11.4459 34.9171,-11.4188 34.8984,-11.4035 34.8941,-11.3960 34.8866,-11.3754 34.8679,-11.3588 34.8437,-11.3463 34.8005,-11.3319 34.7923,-11.3309 34.7849,-11.3335 34.7722,-11.3444 34.7656,-11.3451 34.7591,-11.3375 34.7370,-11.2968 34.7430,-11.2937 34.7516,-11.2871 34.7575,-11.2838 34.7575,-11.2776 34.7417,-11.2687 34.7287,-11.2540 34.7198,-11.2346 34.7166,-11.2117 34.7141,-11.2027 34.7079,-11.1950 34.6999,-11.1895 34.6818,-11.1851 34.6771,-11.1787 34.6740,-11.1700 34.6687,-11.1601 34.6211,-11.1197 34.6135,-11.1022 34.6106,-11.0777 34.5973,-11.0366 34.5930,-11.0162 34.5979,-10.9910 34.6271,-10.9541 34.6455,-10.9132 34.6476,-10.9029 34.6476,-10.8586 34.6606,-10.7960 34.6567,-10.7699 34.6628,-10.7614 34.6750,-10.7524 34.6724,-10.7395 34.6664,-10.7324 34.6599,-10.7277 34.6557,-10.7220 34.6539,-10.7176 34.6476,-10.7084 34.6609,-10.6873 34.6600,-10.6655 34.6505,-10.6453 34.6290,-10.6202 34.6263,-10.6143 34.6272,-10.5951 34.6244,-10.5834 34.6176,-10.5815 34.6089,-10.5820 34.6004,-10.5781 34.5923,-10.5667 34.5857,-10.5536 34.5811,-10.5397 34.5794,-10.5265 34.5815,-10.5137 34.5908,-10.4912 34.5930,-10.4817 34.5887,-10.4631 34.5695,-10.4314 34.5651,-10.4098 34.5853,-10.3007 34.5856,-10.2900 34.5834,-10.2776 34.5751,-10.2558 34.5656,-10.2027 34.5324,-10.1289 34.5247,-10.0948 34.5268,-10.0849 34.5357,-10.0653 34.5378,-10.0539 34.5364,-10.0430 34.5247,-10.0088 34.4947,-9.9667 34.4833,-9.9462 34.3835,-9.8238 34.3823,-9.8197 34.3642,-9.8024 34.3597,-9.7999 34.3375,-9.7772 34.3317,-9.7692 34.3267,-9.7503 34.3242,-9.7324 34.3179,-9.7192 34.2881,-9.7085 34.1908,-9.6068 34.1619,-9.5936 34.1446,-9.5749 34.1371,-9.5706 34.1032,-9.5299 34.0893,-9.5222 34.0798,-9.5110 34.0475,-9.4900 34.0127,-9.4775 33.9965,-9.4918 33.9843,-9.5056 33.9607,-9.5249 33.9459,-9.5500 33.9645,-9.5947 33.9626,-9.6121 33.9556,-9.6423 33.9549,-9.6606 33.9513,-9.6736 33.9431,-9.6839 33.9283,-9.6935 33.9283,-9.7003 33.9119,-9.7180 33.9002,-9.7096 33.8893,-9.6897 33.8653,-9.6696 33.8369,-9.6528 33.8135,-9.6433 33.7875,-9.6265 33.7620,-9.6010 33.7346,-9.5841 33.7025,-9.5929 33.6761,-9.6077 33.6506,-9.6110 33.6239,-9.6063 33.5934,-9.5968 33.5595,-9.5933 33.5352,-9.6033 33.5116,-9.6170 33.4805,-9.6244 33.4390,-9.6215 33.4196,-9.6156 33.4042,-9.6049 33.3922,-9.5862 33.3750,-9.5491 33.3565,-9.5318 33.3003,-9.4922 33.2824,-9.4860 33.2735,-9.4877 33.2577,-9.4980 33.2491,-9.5007 33.2371,-9.4996 33.2163,-9.4934 33.2024,-9.4935 33.1958,-9.4967 33.1820,-9.5079 33.1729,-9.5110 33.1692,-9.5089 33.1399,-9.4974 33.1130,-9.4915 33.1039,-9.4879 33.0423,-9.4407 32.9923,-9.3914 32.9747,-9.3812 32.9553,-9.3821 32.9363,-9.3917 32.9209,-9.4079 32.9055,-9.3982 32.8307,-9.3702 32.7843,-9.3397 32.7770,-9.3382 32.7596,-9.3400 32.7523,-9.3374 32.7465,-9.3300 32.7434,-9.3150 32.7397,-9.3073 32.7258,-9.2926 32.7132,-9.2858 32.6416,-9.2798 32.5556,-9.2612 32.5180,-9.2582 32.5045,-9.2493 32.4901,-9.2273 32.4707,-9.1819 32.4597,-9.1680 32.4234,-9.1438 32.3830,-9.1339 32.2527,-9.1365 32.2314,-9.1338 32.2113,-9.1268 32.1916,-9.1122 32.1548,-9.0752 32.1341,-9.0641 32.1250,-9.0637 32.1058,-9.0683 32.0964,-9.0691 32.0860,-9.0661 32.0572,-9.0496 32.0317,-9.0460 32.0158,-9.0527 32.0014,-9.0633 31.9806,-9.0719 31.9381,-9.0618 31.9177,-9.0225 31.9178,-8.9731 31.9366,-8.9326 31.7876,-8.8922 31.7643,-8.8941 31.7302,-8.9124 31.7098,-8.9197 31.6896,-8.9196 31.6727,-8.9130 31.5764,-8.8397 31.5534,-8.8091 31.5459,-8.7663 31.5460,-8.7290 31.5390,-8.7036 31.5191,-8.6870 31.4806,-8.6762 31.4647,-8.6661 31.4432,-8.6415 31.4275,-8.6335 31.4124,-8.6323 31.3988,-8.6338 31.3860,-8.6325 31.3726,-8.6239 31.3692,-8.6168 31.3659,-8.5986 31.3622,-8.5923 31.3533,-8.5872 31.3501,-8.5885 31.3475,-8.5924 31.3404,-8.5952 31.3288,-8.5977 31.2771,-8.6160 31.2694,-8.6211 31.2609,-8.6240 31.2480,-8.6219 31.2373,-8.6139 31.2184,-8.5887 31.2068,-8.5808 31.1827,-8.5808 31.1614,-8.5917 31.1410,-8.6062 31.1198,-8.6166 31.0778,-8.6163 31.0336,-8.6003 30.9924,-8.5759 30.9595,-8.5505 30.8919,-8.4792 30.8283,-8.3881 30.7783,-8.2891 30.7521,-8.1941 30.7281,-8.1041 30.6550,-7.9274 30.4416,-7.5963 30.4147,-7.5020 30.4049,-7.4360 30.3696,-7.3103 30.2945,-7.1494 30.2347,-7.0571 30.0909,-6.8900 30.0127,-6.8252 29.8731,-6.7542 29.7386,-6.6524 29.7070,-6.6193 29.6844,-6.5815 29.6339,-6.4469 29.5660,-6.3595 29.5377,-6.3124 29.5255,-6.2731 29.5088,-6.1537 29.4787,-6.0418 29.4761,-6.0021 29.4961,-5.9387 29.5709,-5.8380 29.6030,-5.7817 29.6124,-5.7044 29.5935,-5.6203 29.4964,-5.3917 29.4556,-5.2300 29.3778,-5.0875 29.3442,-5.0060 29.3238,-4.9202 29.3210,-4.8363 29.3408,-4.7517 29.4013,-4.5869 29.4109,-4.5023 29.4073,-4.4626 29.4042,-4.4498 29.6383,-4.4468 29.6875,-4.4584 29.7283,-4.4616 29.7328,-4.4633 29.7444,-4.4545 29.7474,-4.4432 29.7479,-4.4303 29.7517,-4.4161 29.7580,-4.4102 29.7750,-4.4023 29.7802,-4.3937 29.7823,-4.3774 29.7841,-4.3738 29.8003,-4.3639 29.8110,-4.3653 29.8218,-4.3707 29.8386,-4.3735 29.8474,-4.3705 29.9005,-4.3456 29.9363,-4.3120 29.9707,-4.2926 29.9808,-4.2844 30.0030,-4.2719 30.0156,-4.2560 30.0411,-4.1950 30.0515,-4.1802 30.1196,-4.1235 30.1498,-4.0868 30.1732,-4.0463 30.1914,-4.0025 30.2088,-3.9305 30.2208,-3.9100 30.2733,-3.8562 30.3117,-3.7899 30.3370,-3.7738 30.3816,-3.7883 30.3850,-3.7708 30.3819,-3.7552 30.3762,-3.7398 30.3720,-3.7229 30.3731,-3.7036 30.3801,-3.6856 30.4214,-3.6208 30.4289,-3.6022 30.4292,-3.5839 30.4269,-3.5639 30.4323,-3.5519 30.4601,-3.5319 30.4626,-3.5279 30.4663,-3.5161 30.4689,-3.5130 30.4856,-3.5105 30.4875,-3.5107 30.4880,-3.5126 30.5072,-3.5111 30.5082,-3.5089 30.5100,-3.5002 30.5115,-3.4977 30.5381,-3.4916 30.5450,-3.4891 30.5529,-3.4822 30.5660,-3.4667 30.6129,-3.4449 30.6391,-3.4195 30.6404,-3.3928 30.6033,-3.3726 30.6217,-3.3504 30.6405,-3.3329 30.6626,-3.3192 30.6899,-3.3089 30.7022,-3.3073 30.7120,-3.3019 30.7184,-3.2929 30.7215,-3.2810 30.7479,-3.2941 30.7757,-3.2910 30.7998,-3.2746 30.8148,-3.2477 30.8143,-3.2419 30.8099,-3.2241 30.8094,-3.2168 30.8235,-3.1967 30.8322,-3.1728 30.8340,-3.1603 30.8329,-3.1477 30.8288,-3.1405 30.8158,-3.1310 30.8123,-3.1235 30.8131,-3.1177 30.8178,-3.1044 30.8177,-3.0991 30.8078,-3.0852 30.7832,-3.0621 30.7783,-3.0474 30.7849,-3.0315 30.8158,-2.9958 30.8255,-2.9786 30.8021,-2.9784 30.7796,-2.9846 30.7554,-2.9914 30.7321,-2.9935 30.7189,-2.9895 30.6960,-2.9745 30.6837,-2.9700 30.6713,-2.9708 30.6614,-2.9748 30.6509,-2.9773 30.6376,-2.9744 30.6349,-2.9701 30.6321,-2.9538 30.6295,-2.9477 30.6252,-2.9448 30.6120,-2.9392 30.5470,-2.9003 30.5389,-2.8990 30.5249,-2.9042 30.5131,-2.9140 30.4933,-2.9413 30.4885,-2.9435 30.4841,-2.9307 30.4754,-2.9221 30.4696,-2.9142 30.4742,-2.9032 30.4560,-2.8983 30.4408,-2.8840 30.4158,-2.8517 30.4136,-2.8344 30.4251,-2.8122 30.4469,-2.7827 30.4473,-2.7573 30.4505,-2.7418 30.4586,-2.7287 30.5161,-2.6683 30.5226,-2.6494 30.4996,-2.6579 30.4638,-2.6742 30.4427,-2.6811 30.4232,-2.6809 30.4121,-2.6702 30.4160,-2.6456 30.4242,-2.6332 30.4480,-2.6105 30.4577,-2.5980 30.4620,-2.5875 30.4702,-2.5558 30.5081,-2.4635 30.5215,-2.4423 30.5546,-2.4006 30.5739,-2.3893 30.5952,-2.3919 30.6169,-2.3981 30.6379,-2.3970 30.6491,-2.3876 30.6633,-2.3607 30.6748,-2.3517 30.6877,-2.3500 30.6985,-2.3534 30.7507,-2.3791 30.7588,-2.3811 30.7679,-2.3786 30.7752,-2.3745 30.7891,-2.3711 30.8046,-2.3622 30.8214,-2.3547 30.8344,-2.3453 30.8447,-2.3266 30.8489,-2.3063 30.8447,-2.2378 30.8534,-2.1938 30.8878,-2.0825 30.8794,-2.0535 30.8687,-2.0390 30.8535,-2.0237 30.8355,-2.0147 30.8168,-2.0187 30.8299,-1.9606 30.8269,-1.9341 30.7970,-1.9293 30.8019,-1.9213 30.8080,-1.9148 30.8242,-1.9021 30.8166,-1.8842 30.8222,-1.8688 30.8324,-1.8538 30.8379,-1.8368 30.8299,-1.7967 30.8264,-1.7862 30.8379,-1.7587 30.8354,-1.7495 30.8265,-1.7359 30.8242,-1.7307 30.8246,-1.7199 30.8375,-1.6411 30.8383,-1.6154 30.8310,-1.5942 30.8072,-1.6033 30.7916,-1.5910 30.7820,-1.5684 30.7723,-1.5325 30.7678,-1.5248 30.7554,-1.5116 30.7389,-1.4895 30.7329,-1.4764 30.7383,-1.4707 30.7414,-1.4589 30.7432,-1.4328 30.7375,-1.4067 30.7181,-1.3949 30.6985,-1.3921 30.6324,-1.3676 30.6232,-1.3620 30.6082,-1.3478 30.5977,-1.3403 30.5682,-1.3281 30.5553,-1.3184 30.5499,-1.3024 30.5510,-1.2950 30.5534,-1.2891 30.5556,-1.2847 30.5566,-1.2816 30.5546,-1.2735 30.5453,-1.2614 30.5394,-1.2410 30.5212,-1.2108 30.5151,-1.1963 30.5112,-1.1704 30.5070,-1.1642 30.4947,-1.1553 30.4905,-1.1565 30.4840,-1.1600 30.4761,-1.1612 30.4673,-1.1553 30.4656,-1.1493 30.4683,-1.1433 30.4721,-1.1377 30.4742,-1.1318 30.4709,-1.1181 30.4563,-1.1081 30.4530,-1.0973 30.4562,-1.0861 30.4639,-1.0751 30.4716,-1.0670 30.4709,-1.0665 30.4456,-1.0587 30.4320,-1.0606 30.4189,-1.0664 30.4032,-1.0704 30.3863,-1.0682 30.3693,-1.0632 30.3528,-1.0608 30.3375,-1.0662 30.3290,-1.0805 30.3226,-1.1218 30.3174,-1.1370 30.3113,-1.1421 30.2946,-1.1496 30.2875,-1.1554 30.2846,-1.1614 30.2824,-1.1758 30.2805,-1.1824 30.2698,-1.2005 30.2567,-1.2172 30.2122,-1.2595 30.1967,-1.2687 30.1894,-1.2709 30.1814,-1.2715 30.1734,-1.2728 30.1656,-1.2775 30.1584,-1.2911 30.1524,-1.3299 30.1472,-1.3451 30.1363,-1.3552 30.0955,-1.3711 30.0608,-1.3897 30.0478,-1.4032 30.0387,-1.4250 30.0283,-1.4271 29.9604,-1.4648 29.9385,-1.4729 29.9174,-1.4752 29.8979,-1.4696 29.8807,-1.4536 29.8710,-1.4324 29.8686,-1.3913 29.8642,-1.3703 29.8361,-1.3295 29.8251,-1.3239 29.8161,-1.3226 29.8075,-1.3251 29.7982,-1.3309 29.7892,-1.3417 29.7832,-1.3614 29.7749,-1.3663 29.7680,-1.3638 29.7467,-1.3509 29.7348,-1.3482 29.7105,-1.3525 29.6938,-1.3612 29.6783,-1.3724 29.6577,-1.3839 29.6391,-1.3890 29.6181,-1.3906 29.5779,-1.3884 29.5873,-1.3297 29.5871,-1.3106 29.5832,-1.2993 29.5715,-1.2792 29.5710,-1.2686 29.5804,-1.2433 29.5814,-1.2348 29.5755,-1.2132 29.5653,-1.1979 29.5570,-1.1818 29.5569,-1.1577 29.5691,-1.0959 29.5701,-1.0779 29.5659,-1.0586 29.5512,-1.0201 29.5485,-1.0026 29.5514,-0.9906 29.5565,-0.9818 29.5603,-0.9721 29.5592,-0.9573 29.5553,-0.9385 29.5547,-0.9286 29.5560,-0.9195 29.5672,-0.9019 29.5967,-0.8919 29.6080,-0.8784 29.6108,-0.8640 29.6134,-0.8038 29.6111,-0.7827 29.6022,-0.7438 29.6030,-0.7229 29.6155,-0.6441 29.6188,-0.6390 29.6244,-0.6348 29.6293,-0.6298 29.6306,-0.6220 29.6282,-0.6160 29.6205,-0.6054 29.6188,-0.5994 29.6229,-0.5884 29.6322,-0.5858 29.6428,-0.5850 29.6509,-0.5796 29.6531,-0.5656 29.6497,-0.5043 29.6451,-0.4889 29.6319,-0.4612 29.6294,-0.4424 29.6540,-0.2989 29.6766,-0.1651 29.6940,-0.0631 29.7090,-0.0263 29.7143,-0.0075 29.7135,0.0116 29.7016,0.0552 29.7031,0.0725 29.7118,0.0996 29.7558,0.1609 29.7613,0.1721 29.7730,0.1675 29.7804,0.1612 29.7872,0.1585 29.7971,0.1648 29.8006,0.1724 29.8326,0.3370 29.8396,0.3585 29.8511,0.3772 29.9229,0.4602 29.9405,0.4983 29.9380,0.5373 29.9195,0.6181 29.9200,0.6387 29.9323,0.7232 29.9268,0.7749 29.9283,0.7850 29.9473,0.8246 29.9602,0.8321 29.9964,0.8599 30.0384,0.8789 30.1451,0.9032 30.1548,0.9087 30.1657,0.9214 30.1838,0.9551 30.1869,0.9588 30.1915,0.9749 30.2141,0.9985 30.2210,1.0171 30.2156,1.0578 30.2153,1.0771 30.2280,1.0890 30.2315,1.0978 30.2341,1.1081 30.2362,1.1295 30.2389,1.1360 30.2693,1.1673 30.2780,1.1716 30.2865,1.1743 30.2957,1.1726 30.3066,1.1639 30.3238,1.1558 30.3361,1.1689 30.3482,1.1890 30.3649,1.2020 30.3766,1.2031 30.3993,1.2006 30.4127,1.2020 30.4316,1.2070 30.4456,1.2128 30.4583,1.2217 30.4783,1.2386 30.5973,1.3917 30.6817,1.5003 30.8170,1.6095 30.9544,1.7207 31.0258,1.7782 31.1191,1.8954 31.1833,1.9762 31.2428,2.0512 31.2715,2.1030 31.2804,2.1534 31.2675,2.1733 31.2109,2.2053 31.1901,2.2215 31.1825,2.2387 31.1791,2.2598 31.1776,2.3029 31.1292,2.2847 31.1126,2.2821 31.0991,2.2827 31.0552,2.2902 31.0407,2.2979 31.0355,2.3069 31.0388,2.3110 31.0444,2.3139 31.0459,2.3197 31.0436,2.3270 31.0413,2.3312 30.9849,2.3946 30.9680,2.4054 30.9309,2.4056 30.9145,2.3782 30.9006,2.3460 30.8718,2.3321 30.8549,2.3397 30.8363,2.3563 30.8198,2.3760 30.8097,2.3924 30.8070,2.4070 30.8071,2.4222 30.8049,2.4344 30.7950,2.4401 30.7249,2.4408 30.7106,2.4451 30.7077,2.4623 30.7168,2.4831 30.7294,2.5035 30.7370,2.5195 30.7378,2.5375 30.7340,2.5745 30.7353,2.5931 30.7394,2.6033 30.7589,2.6338 30.7613,2.6416 30.7643,2.6584 30.7977,2.7484 30.7989,2.7535 30.7991,2.7635 30.8016,2.7691 30.8059,2.7719 30.8179,2.7742 30.8219,2.7762 30.8287,2.7861 30.8534,2.8534 30.8548,2.8932 30.8440,2.9328 30.8209,2.9732 30.8036,2.9891 30.7571,3.0215 30.7451,3.0363 30.7438,3.0555 30.7479,3.0767 30.8042,3.2460 30.8221,3.2814 30.8257,3.2837 30.8378,3.2864 30.8424,3.2887 30.8456,3.2939 30.8469,3.3044 30.8487,3.3093 30.8685,3.3433 30.8973,3.3750 30.9100,3.3934 30.9163,3.4148 30.9145,3.4265 30.9044,3.4475 30.9029,3.4589 30.9096,3.4872 30.9093,3.4961 30.8964,3.5200 30.8802,3.5144 30.8612,3.4982 30.8395,3.4902 30.8277,3.5111 30.8277,3.5112 30.8377,3.5627 30.8232,3.5804 30.7921,3.5927 30.7791,3.6026 30.7723,3.6176 30.7692,3.6518 30.7671,3.6568 30.7651,3.6617 30.7469,3.6749 30.7313,3.6635 30.7146,3.6438 30.6934,3.6319 30.6654,3.6321 30.6538,3.6306 30.6365,3.6241 30.6049,3.6067 30.5924,3.6035 30.5726,3.6010 30.5622,3.6014 30.5535,3.6045 30.5430,3.6129 30.5434,3.6179 30.5493,3.6241 30.5549,3.6364 30.5622,3.6753 30.5629,3.6949 30.5389,3.8415 30.5321,3.8545 30.5252,3.8676 30.5155,3.8709 30.5055,3.8698 30.4955,3.8671 30.4859,3.8656 30.4657,3.8661 30.4568,3.8676 30.4189,3.8797 30.3784,3.9038 30.3379,3.9279 30.2709,3.9494 30.2059,3.9504 30.1894,3.9561 30.1821,3.9655 30.1805,3.9756 30.1804,3.9862 30.1781,3.9971 30.1716,4.0082 30.1475,4.0367 30.1385,4.0597 30.1330,4.0828 30.1227,4.1025 30.0998,4.1151 30.0578,4.1237 30.0429,4.1331 30.0279,4.1545 30.0048,4.1993 29.9894,4.2178 29.9660,4.2318 29.9542,4.2338 29.9426,4.2338 29.9322,4.2361 29.9241,4.2456 29.9232,4.2578 29.9293,4.2684 29.9369,4.2783 29.9401,4.2883 29.9303,4.3087 29.9085,4.3292 29.8827,4.3440 29.8607,4.3473 29.8149,4.3468 29.7878,4.3688 29.7762,4.4056 29.7768,4.4493 29.7857,4.4794 29.7870,4.4897 29.7854,4.4986 29.7785,4.5151 29.7777,4.5239 29.7837,4.5338 29.7933,4.5454 29.7967,4.5560 29.7846,4.5633 29.7745,4.5675 29.7518,4.5813 29.7451,4.5839 29.7229,4.5782 29.7153,4.5797 29.7008,4.5883 29.6719,4.6140 29.6603,4.6222 29.6185,4.6416 29.6068,4.6439 29.5767,4.6444 29.5464,4.6574 29.5426,4.6585 29.5350,4.6607 29.5288,4.6599 29.5133,4.6521 29.5085,4.6554 29.4981,4.6657 29.4941,4.6683 29.4726,4.6722 29.4576,4.6695 29.4492,4.6571 29.4468,4.6221 29.4437,4.6047 29.4446,4.5945 29.4427,4.5834 29.4239,4.5661 29.4173,4.5555 29.4109,4.5323 29.4026,4.5121 29.3902,4.4938 29.3389,4.4495 29.3289,4.4349 29.3187,4.4111 29.3039,4.3871 29.2874,4.3836 29.2674,4.3879 29.2428,4.3874 29.2316,4.3755 29.2287,4.3567 29.2213,4.3407 29.1961,4.3371 29.1735,4.3480 29.1098,4.4124 29.0986,4.4205 29.0589,4.4377 29.0560,4.4365 29.0532,4.4508 29.0423,4.4554 28.9941,4.4875 28.9901,4.4917 28.9862,4.4959 28.9256,4.4808 28.9036,4.4786 28.8562,4.4825 28.8257,4.4783 28.8205,4.4783 28.8153,4.4783 28.7900,4.4886 28.7851,4.5080 28.7836,4.5304 28.7692,4.5498 28.7623,4.5519 28.7623,4.5519 28.7554,4.5540 28.7469,4.5493 28.7382,4.5409 28.7245,4.5340 28.7041,4.5340 28.6952,4.5326 28.6537,4.4527 28.6386,4.4321 28.6237,4.4223 28.5824,4.4126 28.5705,4.4051 28.5667,4.3941 28.5643,4.3826 28.5573,4.3735 28.5482,4.3708 28.5385,4.3718 28.5288,4.3738 28.5193,4.3744 28.4968,4.3690 28.4824,4.3590 28.4439,4.3085 28.4254,4.2908 28.4041,4.2778 28.3815,4.2753 28.3574,4.2829 28.3491,4.2923 28.3458,4.3064 28.3369,4.3275 28.3032,4.3522 28.2610,4.3504 28.2170,4.3420 28.1776,4.3472 28.1587,4.3608 28.1402,4.3793 28.1124,4.4146 28.1083,4.4340 28.1017,4.4422 28.0936,4.4427 28.0856,4.4433 28.0763,4.4377 28.0598,4.4201 28.0497,4.4191 28.0190,4.4628 28.0142,4.4722 28.0112,4.4801 28.0096,4.4884 28.0089,4.4991 28.0121,4.5218 28.0171,4.5390 28.0140,4.5500 27.9625,4.5574 27.9512,4.5560 27.9445,4.5573 27.9343,4.5682 27.9292,4.5700 27.9203,4.5653 27.9161,4.5622 27.9179,4.5608 27.9170,4.5584 27.9164,4.5536 27.9140,4.5493 27.9079,4.5487 27.8910,4.5558 27.8855,4.5567 27.8569,4.5525 27.8491,4.5533 27.8377,4.5600 27.8195,4.5796 27.8092,4.5880 27.8014,4.5905 27.7916,4.5926 27.7769,4.5957 27.7724,4.5958 27.7652,4.6121 27.7608,4.6360 27.7588,4.6771 27.7669,4.7354 27.7631,4.7571 27.7592,4.7663 27.7526,4.7777 27.7442,4.7878 27.7348,4.7932 27.7258,4.7928 27.7065,4.7874 27.6991,4.7874 27.6859,4.7979 27.6797,4.8145 27.6719,4.8559 27.6588,4.8797 27.6410,4.8909 27.5527,4.9006 27.5447,4.9034 27.5326,4.9076 27.5146,4.9224 27.5092,4.9324 27.5050,4.9539 27.5013,4.9632 27.4928,4.9730 27.4616,4.9969 27.4545,4.9998 27.4479,5.0034 27.4418,5.0080 27.4363,5.0132 27.4363,5.0132 27.4431,5.0578 27.4413,5.0708 27.4312,5.0837 27.4167,5.0941 27.4021,5.1045 27.3858,5.1438 27.3585,5.1668 27.3013,5.2052 27.2809,5.2306 27.2645,5.2601 27.2378,5.3232 27.2337,5.3383 27.2282,5.3876 27.2201,5.4131 27.2181,5.4255 27.2201,5.4409 27.2574,5.5413 27.2607,5.5503 27.2589,5.5600 27.2611,5.5776 27.2571,5.5861 27.2475,5.5927 27.2401,5.5920 27.2346,5.5888 27.2311,5.5876 27.2273,5.5867 27.2226,5.5844 27.2173,5.5854 27.2113,5.5949 27.2107,5.6016 27.2152,5.6162 27.2167,5.6335 27.2192,5.6400 27.2184,5.6453 27.2011,5.6570 27.1964,5.6615 27.1943,5.6673 27.1938,5.6763 27.1908,5.6918 27.1824,5.7075 27.1704,5.7203 27.1563,5.7275 27.1363,5.7340 27.1314,5.7415 27.1309,5.7521 27.1238,5.7687 27.1148,5.7753 27.0727,5.7913 27.0635,5.7909 27.0454,5.7849 27.0361,5.7851 27.0295,5.7899 27.0220,5.8051 27.0035,5.8193 26.9918,5.8478 26.9811,5.8592 26.9375,5.8485 26.9165,5.8496 26.9038,5.8670 26.8943,5.8897 26.8821,5.8919 26.8653,5.8860 26.8422,5.8843 26.8189,5.8946 26.8108,5.9124 26.8051,5.9572 26.7944,5.9705 26.7763,5.9819 26.7050,6.0098 26.6343,6.0065 26.6022,6.0107 26.5436,6.0308 26.5280,6.0432 26.5181,6.0611 26.5099,6.0827 26.4988,6.0998 26.4810,6.1050 26.4406,6.0770 26.4248,6.0724 26.4231,6.0831 26.4213,6.0937 26.4213,6.0937 26.4293,6.1131 26.4456,6.1302 26.4653,6.1443 26.4744,6.1494 26.4835,6.1545 26.5001,6.1680 26.5048,6.1772 26.5095,6.1864 26.5090,6.2054 26.4958,6.2211 26.4795,6.2251 26.4649,6.2244 26.4556,6.2305 26.4553,6.2545 26.4520,6.2803 26.4362,6.2917 26.3946,6.3005 26.3884,6.3046 26.3758,6.3126 26.3518,6.3444 26.3352,6.3606 26.3158,6.3716 26.3007,6.3778 26.2896,6.3872 26.2828,6.4079 26.2851,6.4259 26.2907,6.4447 26.2891,6.4594 26.2702,6.4656 26.2770,6.4774 26.2864,6.4842 26.2965,6.4895 26.3050,6.4969 26.3104,6.5082 26.3244,6.5372 26.3402,6.5583 26.3402,6.5583 26.3561,6.5795 26.3723,6.6098 26.3799,6.6198 26.3792,6.6314 26.3780,6.6532 26.3297,6.6806 26.2706,6.7025 26.2362,6.7200 26.2195,6.7375 26.1787,6.7659 26.1476,6.8047 26.1318,6.8117 26.1137,6.8165 26.0912,6.8303 26.0810,6.8423 26.0774,6.8533 26.0757,6.8646 26.0716,6.8775 26.0712,6.8836 26.0731,6.8897 26.0736,6.8951 26.0692,6.8991 26.0634,6.8991 26.0569,6.8974 26.0506,6.8967 26.0454,6.8997 26.0358,6.9223 26.0323,6.9741 26.0261,6.9967 25.9811,7.0003 25.9695,7.0036 25.9668,7.0099 25.9662,7.0175 25.9605,7.0245 25.9504,7.0286 25.9304,7.0315 25.9203,7.0341 25.8887,7.0519 25.8841,7.0611 25.8817,7.0798 25.8775,7.0877 25.8607,7.0955 25.8158,7.0998 25.8008,7.1049 25.7917,7.1211 25.7916,7.1344 25.7862,7.1427 25.7613,7.1438 25.7502,7.1465 25.7344,7.1624 25.7245,7.1667 25.7051,7.1664 25.6970,7.1686 25.6727,7.1878 25.6540,7.1954 25.5924,7.2112 25.5766,7.2198 25.5317,7.2607 25.5168,7.2699 25.5003,7.2728 25.4812,7.2662 25.4551,7.2782 25.4162,7.3078 25.3600,7.3356 25.3468,7.3450 25.3360,7.3596 25.3306,7.3741 25.3242,7.4029 25.3162,7.4172 25.3097,7.4220 25.2930,7.4272 25.2851,7.4316 25.2792,7.4384 25.2696,7.4542 25.2633,7.4610 25.2500,7.4700 25.1904,7.5012 25.1690,7.5512 25.1646,7.5673 25.1652,7.5799 25.1865,7.6001 25.2525,7.6224 25.2750,7.6420 25.2794,7.6595 25.2764,7.6743 25.2706,7.6882 25.2668,7.7031 25.2706,7.7461 25.2699,7.7608 25.2645,7.7777 25.2497,7.8043 25.2394,7.8360 25.2297,7.8516 25.2169,7.8641 25.1916,7.8724 25.1855,7.8779 25.1805,7.8840 25.1732,7.8886 25.1486,7.8926 25.1344,7.8925 25.1034,7.8858 25.0896,7.8849 25.0592,7.8961 25.0293,7.9188 24.9812,7.9723 24.9727,7.9770 24.9648,7.9826 24.9581,7.9892 24.9526,7.9966 24.9505,8.0144 24.9301,8.0355 24.9278,8.0710 24.9180,8.0870 24.8321,8.1657 24.8002,8.1803 24.7423,8.1868 24.7106,8.2043 24.6904,8.2066 24.6709,8.2068 24.6149,8.2171 24.5447,8.2061 24.5128,8.2071 24.4813,8.2267 24.4715,8.2289 24.4643,8.2332 24.4589,8.2398 24.4549,8.2487 24.4311,8.2714 24.3966,8.2678 24.3321,8.2457 24.3268,8.2486 24.3103,8.2616 24.3027,8.2654 24.2955,8.2665 24.2810,8.2665 24.2632,8.2685 24.2571,8.2692 24.2224,8.2772 24.2066,8.2833 24.1799,8.2977 24.1529,8.3179 24.1314,8.3431 24.1216,8.3723 24.1252,8.4049 24.1372,8.4389 24.1932,8.5324 24.2032,8.5435 24.2437,8.5702 24.2505,8.5796 24.2456,8.5918 24.2184,8.6130 24.2113,8.6271 24.2151,8.6414 24.2335,8.6678 24.2358,8.6820 24.2177,8.6915 24.1805,8.6907 24.1703,8.6893 24.1140,8.6816 24.0096,8.6989 23.9813,8.6942 23.9621,8.6970 23.9223,8.7134 23.8667,8.7078 23.8034,8.7221 23.7689,8.7213 23.7375,8.7069 23.7213,8.7020 23.6891,8.7107 23.6571,8.7100 23.6441,8.7152 23.6291,8.7256 23.6134,8.7322 23.5964,8.7341 23.5780,8.7305 23.5641,8.7227 23.5405,8.7048 23.5257,8.7015 23.5053,8.7107 23.4901,8.7326 23.4818,8.7594 23.4823,8.7834 23.4954,8.8094 23.5367,8.8556 23.5536,8.8832 23.5659,8.9400 23.5675,8.9748 23.5601,8.9965 23.5426,8.9973 23.5055,8.9611 23.4781,8.9589 23.4514,8.9742 23.4383,8.9945 23.4357,9.0189 23.4577,9.1462 23.4743,9.1707 23.4894,9.1767 23.5218,9.1754 23.5379,9.1781 23.5495,9.1853 23.5714,9.2073 23.6101,9.2555 23.6233,9.2656 23.6322,9.2776 23.6307,9.2922 23.6205,9.3229 23.6218,9.3406 23.6469,9.4184 23.6463,9.4250 23.6409,9.4331 23.6350,9.4354 23.6275,9.4351 23.6200,9.4477 23.6172,9.4572 23.6185,9.4883 23.6165,9.5015 23.6068,9.5262 23.6061,9.5372 23.6185,9.5661 23.6555,9.6225 23.6691,9.6520 23.6740,9.6903 23.6448,9.8631 23.6240,9.9078 23.4576,10.1737 23.2912,10.4397 23.1094,10.6145 23.0056,10.6868 22.8632,10.8918 22.8611,10.9192 22.9002,11.0599 22.9065,11.0699 22.9224,11.0871 22.9251,11.0980 22.9257,11.1181 22.9290,11.1379 22.9352,11.1559 22.9520,11.1910 22.9565,11.2088 22.9545,11.2378 22.9537,11.2509 22.9283,11.3251 22.9148,11.3961 22.9004,11.4082 22.8770,11.4088 22.7818,11.3989 22.7719,11.4032 22.7716,11.4333 22.7688,11.4423 22.7430,11.4661 22.6625,11.4931 22.6281,11.5098 22.5923,11.5437 22.5618,11.5860 22.5417,11.6330 22.5371,11.6809 22.5929,11.9889 22.6105,12.0396 22.6135,12.0572 22.6124,12.0728 22.6073,12.0777 22.5989,12.0632 22.5855,12.0714 22.5465,12.0644 22.4814,12.0443 22.4705,12.0361 22.4645,12.0330 22.4581,12.0304 22.4838,12.1403 22.4848,12.1525 22.4840,12.1647 22.4814,12.1767 22.4080,12.3998 22.3749,12.4509 22.3728,12.4631 22.3959,12.4961 22.4457,12.6111 22.4325,12.6238 22.3301,12.6615 22.2049,12.7434 22.1762,12.7015 22.1441,12.6713 22.1059,12.6504 22.0587,12.6367 22.0197,12.6314 21.9772,12.6318 21.9360,12.6395 21.9008,12.6564 21.8801,12.6763 21.8409,12.7489 21.8137,12.7823 21.8094,12.7937 21.8118,12.8000 21.8278,12.8311 21.8530,12.9057 21.9351,13.0592 21.9641,13.0983 21.9984,13.1306 22.0161,13.1402 22.1234,13.1822 22.1400,13.1935 22.2323,13.2890 22.2676,13.3346 22.2760,13.3763 22.2640,13.3992 22.2286,13.4411 22.2156,13.4650 22.2112,13.4842 22.2106,13.5417 22.1959,13.5805 22.1321,13.6387 22.1143,13.6774 22.1143,13.6997 22.1163,13.7152 22.1129,13.7298 22.0971,13.7498 22.0737,13.7714 22.0750,13.7803 22.0994,13.8194 22.1906,13.9328 22.2147,13.9566 22.2435,13.9754 22.4023,14.0493 22.4216,14.0621 22.4587,14.0961 22.4814,14.1085 22.5082,14.1136 22.5315,14.1226 22.5464,14.1397 22.5477,14.1690 22.5409,14.2012 22.5319,14.2206 22.5141,14.2315 22.4577,14.2411 22.4410,14.2499 22.4290,14.2646 22.4200,14.2862 22.4171,14.2981 22.4181,14.3059 22.4270,14.3230 22.4313,14.3272 22.4449,14.3334 22.4499,14.3384 22.4510,14.3458 22.4473,14.3516 22.4424,14.3569 22.4391,14.3629 22.4249,14.4704 22.4172,14.4841 22.3864,14.5065 22.3635,14.5435 22.3823,14.5791 22.4227,14.6091 22.4654,14.6293 22.6663,14.6817 22.6766,14.6890 22.6814,14.7029 22.6797,14.7118 22.6646,14.7438 22.6590,14.7613 22.6508,14.8162 22.6508,14.8419 22.6589,14.8574 22.6955,14.8815 22.7153,14.8994 22.7210,14.9159 22.7220,14.9347 22.7272,14.9590 22.7389,14.9798 22.8290,15.0716 22.8488,15.0875 22.8716,15.0997 22.9055,15.1126 22.9133,15.1217 22.9580,15.2016 22.9657,15.2239 22.9784,15.3402 22.9764,15.3736 22.9665,15.4048 22.9450,15.4331 22.9236,15.4556 22.9068,15.4814 22.8995,15.5102 22.9067,15.5414 22.9257,15.5639 23.0045,15.6114 23.0685,15.6867 23.0946,15.7043 23.1668,15.7129 23.3206,15.6813 23.3958,15.6883 23.5271,15.7352 23.5927,15.7490 23.7075,15.7489 23.8291,15.7310 23.9455,15.6922 23.9726,15.6911 23.9844,15.7212 23.9844,15.7219 23.9844,15.7797 23.9843,16.0119 23.9840,16.2442 23.9838,16.4765 23.9837,16.7088 23.9835,16.9411 23.9833,17.1734 23.9831,17.4057 23.9829,17.6379 23.9828,17.8702 23.9824,18.1025 23.9822,18.3348 23.9821,18.5670 23.9819,18.7993 23.9817,19.0316 23.9815,19.2638 23.9813,19.4842 23.9813,19.4842 23.9803,19.4966 23.9801,19.4967 23.9813,19.4968 23.9813,19.4972 23.9813,19.6210 23.9813,19.6221 23.9813,19.7458 23.9813,19.7469 23.9813,19.8706 23.9813,19.8717 23.9813,19.9954 24.1424,19.9954 24.2279,19.9953 24.3409,19.9953 24.4746,19.9952 24.5991,19.9951 24.7213,19.9950 24.8672,19.9950 24.9680,19.9950 24.9702,19.9952 24.9724,19.9954 24.9745,19.9957 24.9768,19.9960 24.9777,19.9975 24.9787,19.9990 24.9796,20.0005 24.9805,20.0021 24.9805,20.0031 24.9805,20.1200 24.9806,20.2151 24.9806,20.2162 24.9806,20.3102 24.9807,20.4053 24.9808,20.5004 24.9808,20.5014 24.9808,20.6249 24.9808,20.6260 24.9808,20.7495 24.9809,20.8741 24.9809,20.8752 24.9809,20.9987 24.9809,20.9998 24.9809,21.1233 24.9810,21.2479 24.9811,21.3724 24.9811,21.3735 24.9811,21.4970 24.9811,21.4981 24.9811,21.6216 24.9811,21.6226 24.9811,21.7462 24.9812,21.8708 24.9812,21.8719 24.9812,21.9954 25.0785,21.9953 25.1759,21.9953 25.2732,21.9953 25.3707,21.9953 25.4679,21.9953 25.5652,21.9952 25.6626,21.9952 25.7599,21.9952 25.8571,21.9952 25.9545,21.9952 26.0519,21.9951 26.1492,21.9951 26.2465,21.9951 26.3438,21.9951 26.4411,21.9951 26.5384,21.9951 26.6358,21.9951 26.7331,21.9950 26.8304,21.9950 26.9277,21.9950 27.0250,21.9950 27.1224,21.9950 27.2197,21.9950 27.3170,21.9949 27.4143,21.9949 27.5117,21.9949 27.6090,21.9949 27.7064,21.9949 27.8037,21.9949 27.9010,21.9949 27.9984,21.9948 28.0957,21.9948 28.1929,21.9948 28.2903,21.9948 28.3877,21.9948 28.4849,21.9948 28.5823,21.9948 28.6797,21.9948 28.7770,21.9948 28.8744,21.9947 28.9716,21.9947 29.0690,21.9947 29.1664,21.9947 29.2636,21.9947 29.3608,21.9947 29.4582,21.9946 29.5556,21.9946 29.6529,21.9946 29.7503,21.9946 29.8476,21.9946 29.9448,21.9945 30.0422,21.9945 30.1394,21.9945 30.2369,21.9945 30.3343,21.9945 30.4315,21.9945 30.5288,21.9945 30.6261,21.9945 30.7235,21.9945 30.8207,21.9945 30.9181,21.9945 31.0156,21.9944 31.1129,21.9944 31.2101,21.9944 31.2484,21.9944 31.2616,22.0018 31.3109,22.0957 31.3595,22.1881 31.3853,22.2145 31.4041,22.2238 31.4233,22.2270 31.4425,22.2242 31.4609,22.2155 31.4829,22.1954 31.4918,22.1733 31.4906,22.1493 31.4674,22.0852 31.4355,21.9964 31.4359,21.9964 31.4355,21.9954 31.5218,21.9954 31.6241,21.9954 31.7265,21.9954 31.8288,21.9954 31.9313,21.9954 32.0336,21.9954 32.1360,21.9954 32.2383,21.9954 32.3407,21.9954 32.4431,21.9954 32.5454,21.9954 32.6479,21.9954 32.7503,21.9954 32.8527,21.9954 32.9551,21.9954 33.0574,21.9954 33.1598,21.9954 33.3924,21.9955 33.6251,21.9955 33.8577,21.9955 34.0905,21.9955 34.3231,21.9955 34.5558,21.9955 34.7885,21.9956 35.0211,21.9956 35.2538,21.9956 35.4864,21.9956 35.7192,21.9956 35.9518,21.9956 36.1846,21.9956 36.4172,21.9967 36.6501,21.9958 36.8826,21.9957 36.8840,21.9957 36.8811,21.9816 36.8784,21.9769 36.8742,21.9749 36.8582,21.9728 36.8441,21.9671 36.8410,21.9661 37.1775,21.9619 37.5141,21.9578 37.5141,21.9588 37.5141,22.4044 37.5141,22.8501 37.5141,23.2957 37.5141,23.7413 37.5141,24.1869 37.5141,24.1908 37.4578,24.2333 37.4422,24.2459 37.3686,24.3429 37.3622,24.4173 37.2501,24.5865 37.0957,24.7592 37.0655,24.8166 37.0594,24.8628 37.0772,24.9058 37.1197,24.9362 37.1702,24.9406 37.1839,24.9741 37.1623,25.0408 37.1625,25.1331 37.0550,25.2403 37.0099,25.3110 36.9871,25.3176 36.9173,25.2728 36.8654,25.2779 36.7351,25.3838 36.6934,25.4539 36.5619,25.5021 36.5050,25.5061 36.4263,25.5692 36.4033,25.6626 36.4519,25.7410 36.4543,25.8195 36.4769,25.8743 36.5337,25.9327 36.5962,25.9503 36.6154,25.9727 36.4969,26.0017 36.4414,26.0562 36.2993,26.3141 36.1573,26.5719 36.0263,26.6992 35.9625,26.8286 35.7603,27.0380 35.7147,27.1212 35.7113,27.1816 35.4882,27.4009 35.4274,27.5098 35.4166,27.5798 35.3660,27.6403 35.3374,27.7040 35.2800,27.7467 35.2472,27.8246 35.1895,27.8885 35.1154,27.9284 35.0508,28.0115 34.9967,28.0159 34.9453,27.9904 34.8464,27.9812 34.7815,27.9843 34.7340,28.0098 34.6996,27.9707 34.7088,27.9027 34.6799,27.8527 34.6324,27.8311 34.5414,27.8299 34.4543,27.8716 34.4517,27.9184 34.5350,28.2195 34.6883,28.6617 34.7785,29.0974 34.8488,29.2514 34.8994,29.3620 34.9738,29.3478 35.0603,29.3347 35.1791,29.3167 35.3346,29.2931 35.4736,29.2721 35.6220,29.2497 35.7972,29.2231 35.9125,29.2057 36.0164,29.1900 36.0438,29.1909 36.0695,29.2000 36.1780,29.2784 36.2837,29.3549 36.4000,29.4389 36.4771,29.4946 36.5413,29.5894 36.6036,29.6815 36.6496,29.7494 36.7049,29.8312 36.7287,29.8535 36.7562,29.8655 36.8429,29.8812 36.9319,29.8972 37.0758,29.9233 37.2185,29.9491 37.3524,29.9733 37.4702,29.9946 37.4917,30.0112 37.5361,30.1053 37.5692,30.1750 37.6052,30.2507 37.6345,30.3128 37.6476,30.3309 37.6707,30.3476 37.7793,30.4004 37.9001,30.4591 37.9733,30.4945 37.9800,30.4981 37.9810,30.4984 37.9814,30.4988 37.9811,30.4995 37.9316,30.5497 37.8219,30.6609 37.7120,30.7720 37.6023,30.8832 37.4926,30.9945 37.4894,30.9977 37.4863,31.0009 37.4831,31.0041 37.4800,31.0073 37.3499,31.1282 37.2198,31.2491 37.0897,31.3701 36.9595,31.4910 37.2073,31.5544 37.4550,31.6177 37.7027,31.6811 37.9505,31.7445 38.1754,31.7999 38.4002,31.8554 38.6159,31.9087 38.6249,31.9109 38.8498,31.9663 38.9633,31.9944 38.9634,31.9943 38.9634,31.9945 38.9981,32.0069 39.1168,32.1029 39.1362,32.1154 39.1464,32.1181 39.1462,32.1258 39.2665,32.2129 39.2920,32.2445 39.2711,32.3120 39.2563,32.3427 39.2358,32.3529 39.0463,32.3085 39.0362,32.3134 39.0288,32.3283 38.9800,32.4721 38.9786,32.4737 38.9782,32.4750 38.9786,32.4757 38.9800,32.4761 39.0572,32.4966 38.9772,32.7455 38.8972,32.9943 38.8530,33.1301 38.7745,33.3717 38.8851,33.4271 38.9957,33.4825 39.1063,33.5379 39.2169,33.5933 39.3274,33.6487 39.4380,33.7041 39.5486,33.7595 39.6592,33.8148 39.7697,33.8702 39.8804,33.9256 39.9909,33.9810 40.1015,34.0364 40.2120,34.0918 40.3226,34.1472 40.4332,34.2025 40.5438,34.2580 40.6905,34.3315 40.9360,34.3861 40.9653,34.4019 40.9880,34.4285 41.0240,34.4942 41.0240,34.4943 41.1957,34.7685 41.2042,34.7931 41.2065,34.8193 41.1980,34.9940 41.1915,35.1821 41.2013,35.2430 41.2431,35.3665 41.2519,35.4641 41.2611,35.4942 41.2612,35.4942 41.2613,35.4942 41.2613,35.4943 41.3422,35.5937 41.3580,35.6239 41.3635,35.6552 41.3593,35.7928 41.3545,35.8256 41.3437,35.8577 41.2663,35.9942 41.2663,35.9943 41.2662,35.9943 41.2406,36.0430 41.2367,36.0603 41.2366,36.0770 41.2688,36.3280 41.2770,36.3548 41.3653,36.4939 41.3653,36.4940 41.3654,36.4941 41.3654,36.4942 41.3854,36.5164 41.4149,36.5274 41.4798,36.5361 41.7899,36.5893 41.8173,36.5997 41.8438,36.6179 41.9786,36.7336 42.1784,36.9053 42.2816,36.9940 42.2819,36.9940 42.2819,36.9940 42.2819,36.9941 42.3459,37.0429 42.3772,37.0622 42.3769,37.0768 42.3712,37.0879 42.3636,37.0982 42.3572,37.1100 42.4019,37.1141 42.4591,37.1293 42.5452,37.1409 42.5613,37.1466 42.5647,37.1520 42.5770,37.1792 42.7023,37.3253 42.7062,37.3332 42.7074,37.3402 42.7095,37.3472 42.7157,37.3553 42.7222,37.3589 42.7716,37.3749 42.7805,37.3755 42.7925,37.3743 42.8011,37.3691 42.8055,37.3519 42.8141,37.3468 42.8967,37.3249 376,-9.0,Gambier Islands -127.6971,-73.8881 -127.6922,-74.1335 -127.9471,-74.1079 -128.0680,-74.1019 -128.2037,-74.1019 -128.4173,-74.1143 -128.6097,-74.1415 -128.7698,-74.1831 -128.8778,-74.2349 -128.9160,-74.2741 -128.9275,-74.3146 -128.8440,-74.5385 -128.8443,-74.5704 -128.8663,-74.5885 -129.0552,-74.6192 -129.2990,-74.6192 -129.4701,-74.6290 -129.6096,-74.6457 -129.8016,-74.6791 -129.9523,-74.6939 -130.0154,-74.6942 -130.2627,-74.6697 -130.3178,-74.6604 -130.3385,-74.6521 -130.3335,-74.6419 -130.2572,-74.5990 -130.2221,-74.5648 -130.1714,-74.4295 -130.1929,-74.3917 -130.2410,-74.3525 -130.3121,-74.3153 -130.4034,-74.2817 -130.5004,-74.2560 -130.6097,-74.2357 -130.7597,-74.2183 -130.9647,-74.2056 -131.1624,-74.1617 -131.3658,-74.1364 -131.3894,-74.1267 -131.4384,-74.0744 -131.5180,-74.0329 -131.6352,-73.9939 -131.7906,-73.9603 -131.9534,-73.9386 -132.1148,-73.9273 -132.2853,-73.9249 -132.4456,-73.9320 -132.5720,-73.9447 -132.6866,-73.9630 -132.7878,-73.9860 -132.8739,-74.0130 -132.9794,-74.0653 -133.0640,-74.1499 -133.1515,-74.2019 -133.2669,-74.2445 -133.4947,-74.3037 -133.6089,-74.3549 -133.6529,-74.4012 -133.6578,-74.4572 -133.6196,-74.5112 -133.4855,-74.6104 -133.4851,-74.6312 -133.5251,-74.6432 -133.5878,-74.6446 -133.6499,-74.6342 -133.7147,-74.6113 -133.8571,-74.5457 -133.9306,-74.5203 -134.0595,-74.4884 -134.2221,-74.4609 -134.5034,-74.4296 -134.7846,-74.3984 -135.0590,-74.3738 -135.3126,-74.3627 -135.5434,-74.3671 -135.7356,-74.3845 -135.9292,-74.4177 -136.0647,-74.4509 -136.1623,-74.4926 -136.1982,-74.5019 -136.4498,-74.5106 -136.7670,-74.5503 -136.9359,-74.5537 -137.0774,-74.5637 -137.2659,-74.5913 -137.3826,-74.6219 -137.4828,-74.6632 -137.5548,-74.7099 -137.6285,-74.7814 -137.6863,-74.8141 -137.7681,-74.8423 -137.8642,-74.8611 -138.0784,-74.8811 -138.2822,-74.9127 -138.3414,-74.9184 -138.6179,-74.9269 -138.8945,-74.9354 -139.1467,-74.9262 -139.3074,-74.9278 -139.5648,-74.9490 -139.8179,-74.9600 -140.0313,-74.9869 -140.1968,-75.0240 -140.3886,-75.1009 -140.7641,-75.2152 -140.8726,-75.2581 -140.9555,-75.3050 -141.1291,-75.2955 -141.2722,-75.2942 -141.4065,-75.2988 -141.5962,-75.3128 -141.8155,-75.2794 -142.2007,-75.2449 -142.4091,-75.2347 -142.5293,-75.2362 -142.5293,-74.7962 -142.5293,-74.3561 -142.5293,-73.9161 -142.5293,-73.4760 -142.5293,-73.0760 -142.5293,-72.6760 -142.5293,-72.2760 -142.5293,-71.8760 -142.5293,-71.4215 -142.5293,-70.9669 -142.5293,-70.5124 -142.5293,-70.0578 -142.5293,-69.6033 -142.5293,-69.1487 -142.5293,-68.6942 -142.5293,-68.2396 -142.5293,-67.7851 -142.5293,-67.3305 -142.5293,-66.8760 -142.5293,-66.4215 -142.5293,-65.9669 -142.5293,-65.5124 -142.5293,-65.0578 -142.5293,-64.6033 -142.5293,-64.1487 -142.5293,-63.6942 -142.5293,-63.2396 -142.5293,-62.7851 -142.5293,-62.3305 -142.5293,-61.8760 -142.5293,-61.4215 -142.5293,-60.9669 -142.5293,-60.5124 -142.5293,-60.0578 -142.5293,-59.6033 -142.5293,-59.1487 -142.5293,-58.6942 -142.5293,-58.2396 -142.5293,-57.7851 -142.5293,-57.3305 -142.5293,-56.8760 -142.5293,-56.4189 -142.5293,-55.9617 -142.5293,-55.5046 -142.5293,-55.0474 -142.5293,-54.5903 -142.5293,-54.1331 -142.5293,-53.6760 -142.5293,-53.2215 -142.5293,-52.7669 -142.5293,-52.3124 -142.5293,-51.8578 -142.5293,-51.4033 -142.5293,-50.9487 -142.5293,-50.4942 -142.5293,-50.0396 -142.5293,-49.5851 -142.5293,-49.1305 -142.5293,-48.6760 -142.5293,-48.2215 -142.5293,-47.7669 -142.5293,-47.3124 -142.5293,-46.8578 -142.5293,-46.4033 -142.5293,-45.9487 -142.5293,-45.4942 -142.5293,-45.0396 -142.5293,-44.5851 -142.5293,-44.1305 -142.5293,-43.6760 -142.5293,-43.2215 -142.5293,-42.7669 -142.5293,-42.3124 -142.5293,-41.8578 -142.5293,-41.4033 -142.5293,-40.9487 -142.5293,-40.4942 -142.5293,-40.0396 -142.5293,-39.5851 -142.5293,-39.1305 -142.5293,-38.6760 -142.5293,-38.2215 -142.5293,-37.7669 -142.5293,-37.3124 -142.5293,-36.8578 -142.5293,-36.4033 -142.5293,-35.9487 -142.5293,-35.4942 -142.5293,-35.0396 -142.5293,-34.5851 -142.5293,-34.1305 -142.5293,-33.6760 -142.5293,-33.2084 -142.5293,-32.7408 -142.5293,-32.2733 -142.5293,-31.8057 -142.5293,-31.3381 -142.5293,-30.8705 -142.5293,-30.4030 -142.5293,-29.9354 -142.5293,-29.4678 -142.5293,-29.0002 -142.1078,-29.0002 -141.6863,-29.0002 -141.2648,-29.0001 -140.8433,-29.0001 -140.4219,-29.0001 -140.0004,-29.0000 -140.0003,-28.5002 -140.0002,-28.0003 -140.0001,-27.5005 -140.0000,-27.0006 -139.5000,-27.0006 -139.0000,-27.0006 -138.5000,-27.0006 -138.0000,-27.0006 -137.5000,-27.0006 -137.0000,-27.0006 -136.5000,-27.0006 -136.0000,-27.0006 -135.5000,-27.0006 -135.0000,-27.0006 -134.5000,-27.0006 -134.0000,-27.0006 -133.5000,-27.0006 -133.0000,-27.0006 -133.0000,-26.6673 -133.0000,-26.3339 -133.0000,-26.0006 -132.5007,-26.0005 -132.0014,-26.0005 -131.5021,-26.0004 -131.0027,-26.0004 -130.5034,-26.0003 -130.0041,-26.0003 -129.5048,-26.0002 -129.0055,-26.0002 -128.5061,-26.0001 -128.0068,-26.0001 -127.5075,-26.0000 -127.5075,-26.4875 -127.5075,-26.9750 -127.5075,-27.4625 -127.5075,-27.9500 -127.5075,-28.4375 -127.5075,-28.9250 -127.5075,-29.4125 -127.5075,-29.9000 -127.5075,-30.3545 -127.5075,-30.8091 -127.5075,-31.2636 -127.5075,-31.7182 -127.5075,-32.1727 -127.5075,-32.6273 -127.5075,-33.0818 -127.5075,-33.5364 -127.5075,-33.9909 -127.5075,-34.4455 -127.5075,-34.9000 -127.5075,-35.3545 -127.5075,-35.8091 -127.5075,-36.2636 -127.5075,-36.7182 -127.5075,-37.1727 -127.5074,-37.6273 -127.5074,-38.0818 -127.5074,-38.5364 -127.5074,-38.9909 -127.5074,-39.4455 -127.5074,-39.9000 -127.5074,-40.3545 -127.5074,-40.8091 -127.5074,-41.2636 -127.5074,-41.7182 -127.5074,-42.1727 -127.5074,-42.6273 -127.5074,-43.0818 -127.5074,-43.5364 -127.5074,-43.9909 -127.5074,-44.4455 -127.5074,-44.9000 -127.5074,-45.3545 -127.5074,-45.8091 -127.5074,-46.2636 -127.5074,-46.7182 -127.5074,-47.1727 -127.5074,-47.6273 -127.5074,-48.0818 -127.5074,-48.5364 -127.5074,-48.9909 -127.5074,-49.4455 -127.5074,-49.9000 -127.5074,-50.3545 -127.5074,-50.8091 -127.5074,-51.2636 -127.5074,-51.7182 -127.5074,-52.1727 -127.5074,-52.6273 -127.5074,-53.0818 -127.5074,-53.5364 -127.5074,-53.9909 -127.5074,-54.4455 -127.5074,-54.9000 -127.5074,-55.3545 -127.5074,-55.8091 -127.5074,-56.2636 -127.5074,-56.7182 -127.5074,-57.1727 -127.5074,-57.6273 -127.5074,-58.0818 -127.5074,-58.5364 -127.5074,-58.9909 -127.5074,-59.4455 -127.5074,-59.9000 -127.5074,-60.3500 -127.5074,-60.8000 -127.5074,-61.2545 -127.5074,-61.7091 -127.5074,-62.1636 -127.5074,-62.6182 -127.5074,-63.0727 -127.5074,-63.5273 -127.5074,-63.9818 -127.5074,-64.4364 -127.5074,-64.8909 -127.5073,-65.3455 -127.5073,-65.8000 -127.5073,-66.2545 -127.5073,-66.7091 -127.5073,-67.1636 -127.5073,-67.6182 -127.5073,-68.0727 -127.5073,-68.5273 -127.5073,-68.9818 -127.5073,-69.4364 -127.5073,-69.8909 -127.5073,-70.3455 -127.5073,-70.8000 -127.5073,-71.2606 -127.5073,-71.7211 -127.5073,-72.1817 -127.5073,-72.6423 -127.5073,-73.1029 -127.5270,-73.1055 -127.6607,-73.1327 -127.7757,-73.1654 -127.8847,-73.2061 -127.9721,-73.2477 -128.1329,-73.3394 -128.1898,-73.3885 -128.2065,-73.4415 -128.1730,-73.5076 -128.1885,-73.5477 -128.1703,-73.5960 -128.1128,-73.6416 -127.9908,-73.6946 -127.9864,-73.7441 -127.9606,-73.7800 -127.9065,-73.8175 -127.8196,-73.8547 -127.6971,-73.8881 1312,-9.0,America/Anchorage -127.5151,74.9000 -127.5151,74.4371 -127.5151,73.9742 -127.5151,73.5114 -127.5151,73.0485 -127.5151,72.5856 -127.5151,72.1227 -127.5151,71.6598 -127.5151,71.1970 -127.5151,70.7341 -127.7244,70.8024 -127.8438,70.8319 -127.9471,70.8496 -128.0801,70.8633 -128.2142,70.8681 -128.4221,70.8579 -128.6092,70.8267 -128.7608,70.7758 -128.8532,70.7159 -128.9456,70.6030 -128.9689,70.5345 -128.9474,70.4854 -128.8334,70.4083 -128.8094,70.3551 -128.7505,70.2910 -128.8423,70.2525 -128.8891,70.2526 -128.9355,70.2641 -129.0358,70.3064 -129.1789,70.3957 -129.3219,70.4432 -129.4192,70.4616 -129.5373,70.4744 -129.6605,70.4790 -129.7846,70.4756 -129.9055,70.4644 -130.0205,70.4453 -130.1115,70.4229 -130.2496,70.3785 -130.3243,70.3765 -130.5823,70.3856 -130.7141,70.3761 -130.8385,70.3579 -131.2744,70.2709 -131.3626,70.2404 -131.4969,70.1768 -131.6828,70.1489 -131.7798,70.1281 -132.0069,70.0352 -132.1364,69.9960 -132.2147,69.9839 -132.3476,69.9822 -132.4685,69.9740 -132.8169,69.9307 -132.9256,69.9069 -133.0486,69.8658 -133.1956,69.8410 -133.3388,69.8013 -133.4052,69.7896 -133.4975,69.7889 -133.6470,69.8184 -133.7852,69.8341 -133.9413,69.8873 -134.0737,69.9150 -134.2002,69.9297 -134.3322,69.9360 -134.5646,69.9330 -134.7405,69.9160 -134.8676,69.8882 -135.0407,69.8264 -135.2615,69.8576 -135.4392,69.8644 -135.6348,69.8537 -135.8130,69.8258 -135.9039,69.8032 -136.0037,69.7691 -136.0852,69.7293 -136.1354,69.6940 -136.1768,69.6466 -136.1918,69.5962 -136.1840,69.5596 -136.1419,69.4972 -136.2971,69.4403 -136.4669,69.3435 -136.5126,69.2946 -136.5126,69.2946 -136.5343,69.2714 -136.5809,69.1302 -136.5983,69.1211 -136.6545,69.1202 -136.7980,69.1452 -137.0091,69.1661 -137.1677,69.2013 -137.4163,69.2390 -137.7119,69.3042 -137.7539,69.3245 -137.8150,69.3877 -137.8836,69.4303 -137.9732,69.4641 -138.1145,69.4989 -138.1638,69.5213 -138.2151,69.5613 -138.3202,69.6731 -138.4102,69.7272 -138.5012,69.7633 -138.6076,69.7949 -138.7389,69.8241 -138.8706,69.8452 -139.0546,69.8603 -139.2264,69.8582 -139.3986,69.8403 -139.5936,69.8035 -139.7751,69.8233 -139.9100,69.8297 -140.1892,69.8273 -140.4333,69.8132 -140.8476,69.8547 -140.9369,69.8691 -140.9907,69.8779 -140.9999,69.7478 -141.0055,69.6583 -141.0055,69.6510 -141.0055,69.6509 -141.0055,69.5052 -141.0054,69.3594 -141.0053,69.2136 -141.0053,69.0678 -141.0052,68.9220 -141.0052,68.7763 -141.0051,68.6305 -141.0050,68.4847 -141.0049,68.3390 -141.0049,68.1932 -141.0048,68.0474 -141.0047,67.9016 -141.0047,67.7558 -141.0046,67.6101 -141.0045,67.4643 -141.0045,67.3185 -141.0044,67.1727 -141.0043,67.0269 -141.0042,66.8811 -141.0042,66.7354 -141.0042,66.5896 -141.0041,66.4438 -141.0040,66.2980 -141.0039,66.1523 -141.0038,66.0065 -141.0038,65.8607 -141.0037,65.7150 -141.0036,65.5692 -141.0036,65.4234 -141.0035,65.2776 -141.0035,65.1318 -141.0034,64.9860 -141.0033,64.8402 -141.0032,64.6945 -141.0031,64.5487 -141.0031,64.4029 -141.0031,64.2571 -141.0030,64.1113 -141.0029,63.9655 -141.0028,63.8198 -141.0028,63.6741 -141.0027,63.5283 -141.0026,63.3825 -141.0026,63.2367 -141.0025,63.0909 -141.0024,62.9451 -141.0024,62.7993 -141.0023,62.6536 -141.0022,62.5078 -141.0021,62.3620 -141.0021,62.2162 -141.0020,62.0704 -141.0020,61.9246 -141.0019,61.7789 -141.0018,61.6331 -141.0018,61.4873 -141.0017,61.3416 -141.0016,61.1958 -141.0015,61.0500 -141.0014,60.9042 -141.0014,60.7584 -141.0013,60.6127 -141.0012,60.4669 -141.0012,60.3211 -140.9949,60.3044 -140.9796,60.2958 -140.9091,60.2837 -140.7685,60.2593 -140.6605,60.2405 -140.5337,60.2185 -140.5187,60.2239 -140.5067,60.2363 -140.4753,60.2765 -140.4628,60.2891 -140.4478,60.2945 -140.4241,60.2932 -140.3250,60.2675 -140.1692,60.2272 -140.0158,60.1874 -139.9678,60.1884 -139.9169,60.2079 -139.8263,60.2565 -139.7284,60.3090 -139.6798,60.3268 -139.6283,60.3341 -139.5180,60.3367 -139.4140,60.3392 -139.2622,60.3428 -139.1016,60.3466 -139.0795,60.3410 -139.0687,60.3221 -139.0732,60.2998 -139.1135,60.2268 -139.1496,60.1612 -139.1832,60.1002 -139.1821,60.0734 -139.1123,60.0314 -139.0516,59.9949 -139.0038,59.9772 -138.8424,59.9377 -138.7426,59.9132 -138.7049,59.8985 -138.6972,59.8937 -138.6921,59.8869 -138.6543,59.8055 -138.6375,59.7841 -138.5992,59.7538 -138.4889,59.6964 -138.3636,59.6311 -138.2195,59.5560 -138.0676,59.4770 -137.9106,59.3952 -137.7583,59.3159 -137.6114,59.2393 -137.5942,59.2253 -137.5821,59.2066 -137.5493,59.1345 -137.5210,59.0724 -137.4844,58.9919 -137.5078,58.9400 -137.5088,58.9149 -137.4869,58.9001 -137.4535,58.8991 -137.4231,58.9077 -137.3381,58.9555 -137.2819,58.9871 -137.1723,59.0271 -137.0625,59.0672 -137.0463,59.0731 -136.9423,59.1111 -136.8408,59.1482 -136.7855,59.1572 -136.6719,59.1508 -136.6135,59.1542 -136.5695,59.1722 -136.5387,59.2018 -136.4972,59.2419 -136.4848,59.2538 -136.4836,59.2575 -136.4665,59.2878 -136.4671,59.3845 -136.4676,59.4616 -136.4160,59.4522 -136.3668,59.4496 -136.3200,59.4591 -136.2750,59.4864 -136.2447,59.5282 -136.2585,59.5561 -136.2994,59.5757 -136.3503,59.5924 -136.2585,59.6216 -136.1454,59.6368 -136.0269,59.6528 -135.9238,59.6667 -135.8310,59.6933 -135.6413,59.7474 -135.4828,59.7925 -135.4651,59.7897 -135.4044,59.7533 -135.3458,59.7310 -135.2599,59.6982 -135.2219,59.6753 -135.1920,59.6471 -135.1578,59.6233 -135.1067,59.6132 -135.0879,59.6065 -135.0329,59.5731 -135.0185,59.5594 -135.0162,59.5434 -135.0195,59.4932 -135.0233,59.4771 -135.0375,59.4616 -135.0786,59.4383 -135.0958,59.4189 -134.9933,59.3819 -135.0048,59.3671 -135.0144,59.3515 -135.0162,59.3362 -134.9800,59.2974 -134.9578,59.2810 -134.9324,59.2706 -134.8395,59.2581 -134.7435,59.2451 -134.7055,59.2401 -134.6921,59.2352 -134.6829,59.2230 -134.6714,59.1938 -134.6604,59.1813 -134.6108,59.1446 -134.5828,59.1288 -134.5567,59.1231 -134.5091,59.1228 -134.4776,59.1149 -134.4510,59.0979 -134.3980,59.0520 -134.3872,59.0369 -134.3856,59.0188 -134.3994,58.9750 -134.3434,58.9689 -134.3297,58.9630 -134.3200,58.9527 -134.3231,58.9492 -134.3303,58.9453 -134.3330,58.9341 -134.3274,58.9165 -134.3169,58.9038 -134.2222,58.8427 -134.1088,58.8082 -133.9831,58.7699 -133.8712,58.7359 -133.8311,58.7180 -133.7964,58.6934 -133.7001,58.5994 -133.6263,58.5464 -133.5471,58.5056 -133.4631,58.4622 -133.3922,58.4039 -133.4301,58.3721 -133.4150,58.3305 -133.3746,58.2910 -133.2573,58.2103 -133.1656,58.1473 -133.1421,58.1206 -133.0948,58.0331 -133.0752,58.0079 -132.9934,57.9419 -132.9172,57.8805 -132.8321,57.7916 -132.7094,57.6633 -132.6291,57.5793 -132.5524,57.4991 -132.4557,57.4210 -132.3623,57.3457 -132.3047,57.2804 -132.2310,57.1968 -132.2764,57.1489 -132.3412,57.0804 -132.1623,57.0503 -132.0319,57.0284 -132.1074,56.8588 -131.8716,56.7935 -131.8659,56.7857 -131.8724,56.7730 -131.8826,56.7591 -131.8880,56.7480 -131.8860,56.7371 -131.8807,56.7288 -131.8648,56.7135 -131.8390,56.6823 -131.8304,56.6648 -131.8266,56.6446 -131.8321,56.6034 -131.8256,56.5933 -131.7991,56.5877 -131.6923,56.5851 -131.5859,56.5950 -131.5604,56.5941 -131.5364,56.5852 -131.4917,56.5602 -131.3457,56.5033 -131.2156,56.4526 -131.1005,56.4077 -131.0169,56.3871 -130.8391,56.3725 -130.7603,56.3452 -130.6458,56.2619 -130.6023,56.2471 -130.4955,56.2324 -130.4723,56.2249 -130.4581,56.2107 -130.4279,56.1440 -130.4182,56.1297 -130.4040,56.1219 -130.2903,56.1010 -130.2432,56.0924 -130.2112,56.0900 -130.1168,56.1056 -130.0943,56.1015 -130.0715,56.0841 -130.0393,56.0455 -130.0266,56.0241 -130.0190,56.0022 -130.0147,55.9633 -130.0168,55.9189 -130.0196,55.9080 -130.0275,55.8773 -130.0569,55.8448 -130.1191,55.7994 -130.1454,55.7658 -130.1443,55.7238 -130.1331,55.7052 -130.1170,55.6829 -130.1060,55.6531 -130.1056,55.6394 -130.1195,55.5985 -130.1244,55.5749 -130.1145,55.5401 -130.0946,55.5128 -130.0512,55.4595 -130.0350,55.4184 -130.0214,55.3464 -129.9981,55.3168 -129.9798,55.3015 -129.9725,55.2873 -129.9780,55.2732 -130.0636,55.2186 -130.1418,55.1441 -130.2225,55.0274 -130.3168,54.9368 -130.3901,54.8809 -130.5291,54.8114 -130.6264,54.7705 -130.6417,54.7605 -130.6399,54.7430 -130.6210,54.7084 -130.6220,54.7086 -130.6250,54.6895 -130.6313,54.6737 -130.6367,54.6602 -130.6556,54.6539 -130.7460,54.6776 -130.8948,54.6900 -130.9270,54.7003 -130.9533,54.7087 -130.9957,54.7361 -131.0792,54.7709 -131.1516,54.7354 -131.2175,54.7031 -131.2324,54.6813 -131.2917,54.6383 -131.2989,54.6330 -131.3233,54.6153 -131.3934,54.5813 -131.4429,54.5573 -131.5644,54.4982 -131.6342,54.5082 -131.7379,54.4720 -131.8416,54.4359 -131.9454,54.3997 -132.0491,54.3636 -132.1355,54.3762 -132.2219,54.3888 -132.3083,54.4014 -132.3947,54.4140 -132.4556,54.4126 -132.5165,54.4112 -132.5774,54.4098 -132.6383,54.4084 -132.7143,54.4249 -132.7903,54.4414 -132.8138,54.4465 -132.8208,54.4465 -132.9348,54.4556 -133.0226,54.4625 -133.0639,54.4640 -133.0983,54.4600 -133.1747,54.4512 -133.2653,54.4245 -133.3390,54.3852 -133.3857,54.3389 -133.4164,54.2687 -133.4317,54.0852 -133.4923,53.8821 -133.4473,53.7337 -133.3445,53.6262 -133.3309,53.5458 -133.3019,53.4883 -133.2330,53.4135 -133.1087,53.3184 -133.0380,53.1973 -132.8994,53.0835 -132.7856,52.9217 -132.6479,52.8336 -132.4317,52.6419 -132.2773,52.5540 -132.1121,52.4211 -131.9258,52.3252 -131.8297,52.2061 -131.5295,51.9930 -131.4405,51.9463 -131.3409,51.8438 -131.2376,51.7839 -131.1247,51.7481 -131.0559,51.7426 -131.0082,51.7387 -130.8935,51.7547 -130.8160,51.7866 -130.8007,51.7929 -130.7367,51.8557 -130.6248,52.0329 -130.6132,52.0902 -130.6225,52.1432 -130.6668,52.2028 -130.6810,52.2769 -130.7167,52.3294 -130.9006,52.4598 -130.9367,52.5298 -130.9808,52.5748 -131.1111,52.6400 -131.1111,52.7285 -131.1307,52.7860 -131.2695,52.9104 -131.2482,53.0090 -131.2729,53.1159 -131.3170,53.1738 -131.5551,53.4085 -131.5660,53.4344 -131.5818,53.5753 -131.5371,53.6722 -131.5269,53.7388 -131.3805,53.8951 -131.3198,54.0316 -131.3114,54.1025 -131.1547,54.1546 -131.1319,54.0985 -131.0545,54.0120 -131.0743,53.9054 -131.0611,53.8215 -130.9996,53.7389 -130.8747,53.6617 -130.8701,53.5303 -130.8182,53.4435 -130.6739,53.3534 -130.5493,53.2435 -130.3661,53.1619 -130.1786,53.0195 -129.9847,52.9429 -129.9195,52.8566 -129.8611,52.8106 -129.8048,52.7844 -129.6866,52.7601 -129.6450,52.7430 -129.5896,52.6466 -129.4865,52.5324 -129.2297,52.3137 -129.1636,52.2790 -129.0438,52.2359 -128.9577,52.1521 -128.8876,52.1060 -128.8060,52.0756 -128.6590,52.0465 -128.5945,51.9947 -128.5796,51.9548 -128.5803,51.8292 -128.5543,51.7793 -128.4762,51.7029 -128.4865,51.6037 -128.4401,51.4886 -128.3899,51.4061 -128.3320,51.3451 -128.2702,51.3042 -128.1387,51.2437 -128.1229,51.1393 -128.1430,51.1072 -128.2214,51.0640 -128.5202,50.9815 -128.6480,50.9199 -128.6967,50.8795 -128.7301,50.8329 -128.7459,50.7799 -128.7434,50.7257 -128.6959,50.6161 -128.5986,50.5025 -128.4867,50.4104 -128.2953,50.2906 -128.2603,50.2601 -127.8840,50.0353 -127.5078,49.8106 -127.5078,49.4106 -127.5078,49.0106 -127.5078,48.6106 -127.5078,48.2106 -127.5078,47.7560 -127.5078,47.3015 -127.5078,46.8469 -127.5078,46.3924 -127.5078,45.9379 -127.5078,45.4833 -127.5078,45.0288 -127.5078,44.5742 -127.5078,44.1197 -127.5078,43.6651 -127.5078,43.2106 -127.5078,42.7560 -127.5078,42.3015 -127.5078,41.8469 -127.5078,41.3924 -127.5078,40.9379 -127.5078,40.4833 -127.5078,40.0288 -127.5078,39.5742 -127.5078,39.1197 -127.5078,38.6651 -127.5078,38.2106 -127.5078,37.7560 -127.5078,37.3015 -127.5078,36.8469 -127.5078,36.3924 -127.5078,35.9379 -127.5078,35.4833 -127.5078,35.0288 -127.5078,34.5742 -127.5078,34.1197 -127.5078,33.6651 -127.5078,33.2106 -127.5078,32.7560 -127.5078,32.3015 -127.5078,31.8469 -127.5078,31.3924 -127.5078,30.9379 -127.5078,30.4833 -127.5078,30.0288 -127.5078,29.5742 -127.5078,29.1197 -127.5078,28.6651 -127.5078,28.2106 -127.5078,27.7560 -127.5078,27.3015 -127.5078,26.8469 -127.5078,26.3924 -127.5078,25.9379 -127.5078,25.4833 -127.5078,25.0288 -127.5078,24.5742 -127.5078,24.1197 -127.5078,23.6651 -127.5078,23.2106 -127.5078,22.7560 -127.5078,22.3015 -127.5078,21.8469 -127.5078,21.3924 -127.5078,20.9379 -127.5079,20.4833 -127.5079,20.0288 -127.5079,19.5742 -127.5079,19.1197 -127.5079,18.6651 -127.5079,18.2106 -127.5079,17.7534 -127.5079,17.2963 -127.5079,16.8392 -127.5079,16.3820 -127.5079,15.9249 -127.5079,15.4677 -127.5079,15.0106 -127.5079,14.5560 -127.5079,14.1015 -127.5079,13.6469 -127.5079,13.1924 -127.5079,12.7379 -127.5079,12.2833 -127.5079,11.8288 -127.5079,11.3742 -127.5079,10.9197 -127.5079,10.4651 -127.5079,10.0106 -127.5079,9.5560 -127.5079,9.1015 -127.5079,8.6469 -127.5079,8.1924 -127.5079,7.7379 -127.5079,7.2833 -127.5079,6.8288 -127.5079,6.3742 -127.5079,5.9197 -127.5079,5.4651 -127.5079,5.0106 -127.5079,4.5560 -127.5079,4.1015 -127.5079,3.6469 -127.5079,3.1924 -127.5079,2.7379 -127.5079,2.2833 -127.5079,1.8288 -127.5079,1.3742 -127.5079,0.9197 -127.5079,0.4651 -127.5079,0.0106 -127.5079,-0.4078 -127.5079,-0.8263 -127.5079,-1.2447 -127.5079,-1.6631 -127.5079,-2.0816 -127.5079,-2.5000 -127.5079,-2.9545 -127.5079,-3.4091 -127.5079,-3.8636 -127.5079,-4.3182 -127.5079,-4.7727 -127.5079,-5.2273 -127.5079,-5.6818 -127.5079,-6.1364 -127.5079,-6.5909 -127.5079,-7.0455 -127.5079,-7.5000 -127.5079,-7.9545 -127.5079,-8.4091 -127.5079,-8.8636 -127.5079,-9.3182 -127.5079,-9.7727 -127.5079,-10.2273 -127.5079,-10.6818 -127.5079,-11.1364 -127.5079,-11.5909 -127.5079,-12.0455 -127.5079,-12.5000 -127.5079,-12.9545 -127.5079,-13.4091 -127.5079,-13.8636 -127.5079,-14.3182 -127.5079,-14.7727 -127.5079,-15.2273 -127.5079,-15.6818 -127.5079,-16.1364 -127.5079,-16.5909 -127.5079,-17.0455 -127.5079,-17.5000 -127.5082,-17.9501 -127.5084,-18.4001 -127.5086,-18.8502 -127.5089,-19.3002 -127.5091,-19.7503 -127.5093,-20.2004 -127.5095,-20.6504 -127.5098,-21.1005 -127.5100,-21.5505 -127.5102,-22.0006 -128.0093,-22.0006 -128.5084,-22.0006 -129.0074,-22.0006 -129.5065,-22.0006 -130.0056,-22.0006 -130.5047,-22.0006 -131.0037,-22.0006 -131.5028,-22.0006 -132.0019,-22.0006 -132.5009,-22.0006 -133.0000,-22.0006 -133.2000,-21.5506 -133.4001,-21.1006 -133.6001,-20.6506 -133.8001,-20.2006 -134.0001,-19.7506 -134.2001,-19.3006 -134.4002,-18.8506 -134.6002,-18.4006 -134.8002,-17.9506 -135.0002,-17.5006 -135.2002,-17.0506 -135.4002,-16.6006 -135.6003,-16.1506 -135.8003,-15.7006 -136.0003,-15.2506 -136.2003,-14.8006 -136.4003,-14.3506 -136.6004,-13.9006 -136.8004,-13.4507 -137.0004,-13.0007 -137.0000,-13.0000 -137.0000,-12.5703 -137.0001,-12.1406 -137.0001,-11.7109 -137.0001,-11.2812 -137.0001,-10.8516 -137.0002,-10.4219 -137.0002,-9.9922 -136.9999,-9.4932 -136.9996,-8.9943 -136.9993,-8.4954 -136.9989,-7.9964 -136.9986,-7.4975 -136.9983,-6.9986 -136.9980,-6.4996 -136.9977,-6.0007 -137.4587,-6.0007 -137.9196,-6.0007 -138.3806,-6.0007 -138.8416,-6.0007 -139.3025,-6.0007 -139.7635,-6.0007 -140.2245,-6.0007 -140.6854,-6.0007 -141.1464,-6.0007 -141.6074,-6.0007 -142.0683,-6.0007 -142.5293,-6.0007 -142.5293,-5.5515 -142.5293,-5.1024 -142.5293,-4.6532 -142.5293,-4.1986 -142.5293,-3.7441 -142.5293,-3.2896 -142.5293,-2.8350 -142.5293,-2.3805 -142.5293,-1.9259 -142.5293,-1.4714 -142.5293,-1.0168 -142.5293,-0.5623 -142.5293,-0.1077 -142.5293,0.3468 -142.5293,0.7754 -142.5293,1.2040 -142.5293,1.6325 -142.5293,2.0611 -142.5293,2.4897 -142.5293,2.9182 -142.5293,3.3468 -142.5293,3.8014 -142.5293,4.2559 -142.5293,4.7104 -142.5293,5.1650 -142.5293,5.6195 -142.5293,6.0741 -142.5293,6.5286 -142.5293,6.9832 -142.5293,7.4377 -142.5293,7.8923 -142.5293,8.3468 -142.5293,8.8014 -142.5293,9.2559 -142.5293,9.7104 -142.5293,10.1650 -142.5293,10.6195 -142.5293,11.0741 -142.5293,11.5286 -142.5293,11.9832 -142.5293,12.4377 -142.5293,12.8923 -142.5293,13.3468 -142.5293,13.8014 -142.5293,14.2559 -142.5293,14.7104 -142.5293,15.1650 -142.5293,15.6195 -142.5293,16.0741 -142.5293,16.5286 -142.5293,16.9832 -142.5293,17.4377 -142.5293,17.8923 -142.5293,18.3468 -142.5293,18.7719 -142.5293,19.1970 -142.5293,19.6220 -142.5293,20.0471 -142.5293,20.5017 -142.5293,20.9562 -142.5293,21.4108 -142.5293,21.8653 -142.5293,22.3199 -142.5293,22.7744 -142.5293,23.2289 -142.5293,23.6835 -142.5293,24.1380 -142.5293,24.5926 -142.5293,25.0471 -142.5293,25.5017 -142.5293,25.9562 -142.5293,26.4108 -142.5293,26.8653 -142.5293,27.3199 -142.5293,27.7744 -142.5293,28.2289 -142.5293,28.6835 -142.5293,29.1380 -142.5293,29.5926 -142.5293,30.0471 -142.5293,30.5017 -142.5293,30.9562 -142.5293,31.4108 -142.5293,31.8653 -142.5293,32.3199 -142.5293,32.7744 -142.5293,33.2289 -142.5293,33.6835 -142.5293,34.1380 -142.5293,34.5926 -142.5293,35.0471 -142.5293,35.5017 -142.5293,35.9562 -142.5293,36.4108 -142.5293,36.8653 -142.5293,37.3199 -142.5293,37.7744 -142.5293,38.2289 -142.5293,38.6835 -142.5293,39.1380 -142.5293,39.5926 -142.5293,40.0471 -142.5293,40.5017 -142.5293,40.9562 -142.5293,41.4108 -142.5293,41.8653 -142.5293,42.3199 -142.5293,42.7744 -142.5293,43.2289 -142.5293,43.6835 -142.5293,44.1380 -142.5293,44.5926 -142.5293,45.0471 -142.5293,45.5405 -142.5293,46.0339 -142.5293,46.5274 -142.5293,47.0208 -142.5293,47.5142 -142.5293,48.0076 -142.5293,48.5010 -142.5293,48.9944 -142.5293,49.4878 -142.5293,49.9812 -142.5293,50.0471 -142.5293,50.0471 -142.5298,50.5381 -142.5302,51.0291 -142.5306,51.5200 -142.5310,52.0110 -142.5314,52.5019 -142.5318,52.9929 -142.5322,53.4839 -142.5327,53.9748 -142.5331,54.4658 -142.5335,54.9568 -142.5339,55.4477 -142.5343,55.9387 -142.5347,56.4297 -142.5351,56.9206 -142.5356,57.4116 -142.5360,57.9026 -142.5364,58.3935 -142.5368,58.8845 -142.5372,59.3755 -142.5376,59.8664 -142.9942,59.7850 -143.4507,59.7037 -143.9072,59.6223 -144.3637,59.5409 -144.8202,59.4596 -145.2768,59.3782 -145.7333,59.2968 -146.1898,59.2154 -146.6544,59.0338 -147.1189,58.8522 -147.5834,58.6706 -148.0480,58.4890 -148.5125,58.3074 -148.9770,58.1258 -149.4416,57.9442 -149.9061,57.7626 -150.3706,57.5810 -150.8352,57.3994 -151.2997,57.2178 -151.7642,57.0362 -152.2288,56.8546 -152.6933,56.6730 -153.1578,56.4914 -153.6224,56.3098 -154.0869,56.1282 -154.5515,55.9466 -155.0160,55.7650 -155.4805,55.5834 -155.9263,55.4690 -156.3720,55.3547 -156.8178,55.2403 -157.2635,55.1259 -157.7093,55.0116 -158.1550,54.8972 -158.6008,54.7828 -159.0466,54.6685 -159.4923,54.5541 -159.9722,54.4575 -160.4521,54.3609 -160.9320,54.2643 -161.4119,54.1678 -161.8918,54.0712 -162.3717,53.9746 -162.8516,53.8780 -163.3315,53.7814 -163.8114,53.6848 -164.2913,53.5882 -164.7712,53.4916 -165.2511,53.3950 -165.7310,53.2984 -166.2109,53.2018 -166.6908,53.1053 -167.1707,53.0087 -167.6506,52.9121 -168.1305,52.8155 -168.6104,52.7189 -169.0903,52.6223 -169.3562,52.5671 -169.3478,53.0443 -169.3395,53.5215 -169.3312,53.9987 -169.6236,54.3737 -169.9161,54.7487 -170.2085,55.1237 -170.5009,55.4987 -170.7934,55.8737 -171.0858,56.2487 -171.3783,56.6237 -171.6707,56.9987 -171.9632,57.3737 -172.2556,57.7487 -172.5480,58.1237 -172.8405,58.4987 -173.1329,58.8737 -173.4254,59.2487 -173.7178,59.6237 -174.0102,59.9987 -174.0096,60.4565 -174.0091,60.9144 -174.0085,61.3723 -174.0079,61.8302 -174.0073,62.2881 -174.0067,62.7460 -174.0068,62.9286 -173.4834,63.2109 -173.0397,63.4479 -172.6073,63.6769 -172.3313,63.8214 -171.8261,64.0843 -171.5326,64.2361 -171.0603,64.4773 -170.6331,64.6929 -170.2517,64.8820 -169.8344,65.1173 -169.4172,65.3087 -169.0000,65.5000 -169.0000,65.9167 -169.0000,66.3333 -169.0000,66.7500 -169.0000,67.1667 -169.0000,67.5833 -169.0000,68.0000 -168.5556,68.1821 -168.1111,68.3642 -167.6667,68.5462 -167.2223,68.7283 -166.7779,68.9104 -166.7504,68.9558 -166.6808,69.0018 -166.5904,69.0378 -166.4730,69.0657 -166.3396,69.0825 -166.0510,69.0927 -165.5844,69.0671 -165.3701,69.0776 -165.1939,69.0798 -164.8796,69.1140 -164.4988,69.1281 -164.3762,69.1515 -164.0656,69.2538 -163.8161,69.3953 -163.7764,69.4356 -163.7571,69.4799 -163.7620,69.6281 -163.7496,69.6848 -163.5851,69.8991 -163.5108,69.9553 -163.2346,70.1122 -162.9997,70.2759 -162.8974,70.3263 -162.7624,70.3754 -162.4654,70.4486 -162.2192,70.5197 -162.0412,70.5498 -161.9413,70.5559 -161.8301,70.5552 -161.3496,70.5180 -161.2855,70.5209 -161.1135,70.5786 -160.8031,70.6617 -160.5780,70.7668 -160.3238,70.8536 -160.1680,70.9255 -160.0920,70.9531 -159.9113,70.9982 -159.6672,71.0398 -159.3651,71.0767 -159.1500,71.0883 -158.9649,71.0800 -158.7510,71.0462 -158.5190,71.0568 -158.2662,71.0443 -158.1742,71.0508 -157.9421,71.1217 -157.7754,71.1849 -157.6824,71.2319 -157.5275,71.3299 -157.5260,71.3309 -157.4802,71.3599 -157.3509,71.4183 -157.2076,71.4723 -157.0164,71.5338 -156.8584,71.5747 -156.7079,71.6014 -156.5706,71.6141 -156.4405,71.6162 -156.3134,71.6101 -156.1924,71.5965 -156.0686,71.5737 -155.9701,71.5472 -155.8859,71.5158 -155.7938,71.4684 -155.7444,71.4224 -155.6819,71.4087 -155.3877,71.3734 -155.2704,71.3542 -155.1101,71.3594 -154.9903,71.3570 -154.8590,71.3464 -154.7375,71.3277 -154.5988,71.2906 -154.4445,71.2635 -154.3629,71.2416 -154.1358,71.1582 -154.0231,71.1014 -153.6891,71.0998 -153.4159,71.1314 -153.2992,71.1359 -153.1834,71.1345 -152.7503,71.1034 -152.3901,71.0863 -152.2377,71.0693 -152.0218,71.0365 -151.9167,71.0139 -151.8182,70.9845 -151.6694,70.9172 -151.6029,70.8526 -151.5957,70.7663 -151.4825,70.7507 -151.3902,70.7317 -151.1964,70.6684 -151.1607,70.6701 -150.9840,70.6991 -150.8104,70.7118 -150.5214,70.7158 -150.1858,70.6963 -149.9400,70.7174 -149.6687,70.7251 -149.3712,70.7559 -149.2436,70.7594 -149.1194,70.7560 -148.9782,70.7409 -148.5491,70.6679 -148.4693,70.6455 -148.3191,70.5883 -148.2556,70.5721 -148.1780,70.5635 -147.9394,70.5506 -147.7476,70.5153 -147.5484,70.4890 -147.4222,70.4592 -147.2864,70.4116 -147.1757,70.3938 -147.0733,70.3901 -146.9038,70.3992 -146.7699,70.4002 -146.4777,70.3964 -146.1855,70.3926 -146.0094,70.3810 -145.8526,70.3819 -145.7497,70.3771 -145.5389,70.3478 -145.3333,70.2936 -145.1166,70.2489 -144.9719,70.2341 -144.8145,70.2056 -144.7558,70.2099 -144.5964,70.2387 -144.4353,70.2533 -144.2419,70.2844 -143.9229,70.3051 -143.6786,70.3298 -143.5411,70.3334 -143.1592,70.3249 -142.6769,70.2705 -142.4880,70.2384 -142.4405,70.2273 -142.4454,70.3613 -142.4474,70.8152 -142.4494,71.2690 -142.4513,71.7229 -142.4533,72.1768 -142.4552,72.6307 -142.4572,73.0846 -142.4592,73.5385 -142.4611,73.9924 -142.4631,74.4463 -142.4651,74.9001 -142.4670,75.3547 -142.4690,75.8092 -142.4710,76.2638 -142.4729,76.7183 -142.4749,77.1728 -142.4769,77.6274 -142.4789,78.0819 -142.4808,78.5365 -142.4828,78.9910 -142.4848,79.4456 -142.4867,79.9001 -142.4887,80.3546 -142.4907,80.8092 -142.4926,81.2637 -142.4946,81.7183 -142.4966,82.1728 -142.4985,82.6273 -142.5005,83.0819 -142.5025,83.5364 -142.5044,83.9910 -142.5064,84.4455 -142.5084,84.9000 -142.5104,85.3637 -142.5124,85.8273 -142.5144,86.2909 -142.5164,86.7546 -142.5184,87.2182 -142.5204,87.6818 -142.5224,88.1455 -142.5244,88.6091 -142.5264,89.0727 -142.5284,89.5364 -142.5304,90.0000 -142.0888,90.0000 -141.6472,90.0000 -141.2056,90.0000 -140.7639,90.0000 -140.3223,90.0000 -139.8807,90.0000 -139.4390,90.0000 -138.9974,90.0000 -138.5558,90.0000 -138.1142,90.0000 -137.6725,90.0000 -137.2309,90.0000 -136.7893,90.0000 -136.3477,90.0000 -135.9060,90.0000 -135.4644,90.0000 -135.0228,90.0000 -134.5811,90.0000 -134.1395,90.0000 -133.6979,90.0000 -133.2563,90.0000 -132.8146,90.0000 -132.3730,90.0000 -131.9314,90.0000 -131.4897,90.0000 -131.0481,90.0000 -130.6065,90.0000 -130.1649,90.0000 -129.7232,90.0000 -129.2816,90.0000 -128.8400,90.0000 -128.3984,90.0000 -127.9567,90.0000 -127.5151,90.0000 -127.5151,89.5364 -127.5151,89.0727 -127.5151,88.6091 -127.5151,88.1455 -127.5151,87.6818 -127.5151,87.2182 -127.5151,86.7545 -127.5151,86.2909 -127.5151,85.8273 -127.5151,85.3636 -127.5151,84.9000 -127.5151,84.4455 -127.5151,83.9909 -127.5151,83.5364 -127.5151,83.0818 -127.5151,82.6273 -127.5151,82.1727 -127.5151,81.7182 -127.5151,81.2636 -127.5151,80.8091 -127.5151,80.3545 -127.5151,79.9000 -127.5151,79.4455 -127.5151,78.9909 -127.5151,78.5364 -127.5151,78.0818 -127.5151,77.6273 -127.5151,77.1727 -127.5151,76.7182 -127.5151,76.2636 -127.5151,75.8091 -127.5151,75.3545 -127.5151,74.9000 8,-9.0,Gambier Islands -142.5293,-6.0007 -142.5293,-6.3341 -142.5293,-6.6675 -142.5293,-7.0010 -142.5293,-7.0010 -142.5293,-6.6675 -142.5293,-6.3341 -142.5293,-6.0007 146,-12.0,Pacific Ocean -178.0515,-2.5094 -178.5421,-2.5094 -179.0177,-2.5094 -179.5198,-2.5094 -180.0000,-2.5094 -180.0000,-2.1092 -180.0000,-1.7472 -180.0000,-1.3470 -180.0000,-0.9993 -180.0000,-0.5008 -180.0000,-0.0008 -180.0000,0.4992 -180.0000,0.9992 -180.0000,1.4992 -180.0000,1.9992 -180.0000,2.4992 -180.0000,2.9992 -180.0000,3.4991 -180.0000,3.9991 -180.0000,4.4991 -180.0000,4.9991 -180.0000,5.4991 -180.0000,5.9991 -180.0000,6.4991 -180.0000,6.9991 -180.0000,7.4991 -180.0000,7.9991 -180.0000,8.4991 -180.0000,8.9991 -180.0000,9.4991 -180.0000,9.9991 -180.0000,10.4991 -180.0000,10.9991 -180.0000,11.4991 -180.0000,11.9991 -180.0000,12.4991 -180.0000,12.9991 -180.0000,13.4991 -180.0000,13.9991 -180.0000,14.4991 -180.0000,14.9991 -180.0000,15.4991 -180.0000,15.9991 -180.0000,16.4991 -180.0000,16.9991 -180.0000,17.4990 -180.0000,17.9990 -180.0000,18.4990 -180.0000,18.9990 -180.0000,19.4990 -180.0000,19.9990 -180.0000,20.4990 -180.0000,20.9990 -180.0000,21.4990 -180.0000,21.9990 -180.0000,22.4990 -180.0000,22.9990 -180.0000,23.4990 -180.0000,23.9990 -180.0000,24.4990 -180.0000,24.9990 -180.0000,24.9990 -179.9374,24.9990 -179.4405,24.9990 -178.9435,24.9990 -178.4466,24.9990 -177.9497,24.9990 -177.4527,24.9990 -176.9558,24.9990 -176.4589,24.9990 -175.9619,24.9990 -175.4650,24.9990 -174.9681,24.9990 -174.4711,24.9990 -173.9742,24.9990 -173.4773,24.9990 -172.9803,24.9990 -172.4834,24.9990 -172.4834,24.5094 -172.4834,24.0197 -172.4834,23.5301 -172.4834,23.0404 -172.4834,22.5508 -172.4834,22.0508 -172.4833,21.5508 -172.4833,21.0509 -172.4832,20.5509 -172.4832,20.0509 -172.4832,19.5509 -172.4831,19.0509 -172.4831,18.5510 -172.4830,18.0510 -172.4830,17.5510 -172.4830,17.1293 -172.4830,16.7075 -172.4830,16.2858 -172.4830,15.8640 -172.4830,15.4423 -172.4830,15.0205 -172.5000,14.9991 -172.5000,14.4991 -172.5000,13.9991 -172.5000,13.4991 -172.5000,12.9991 -172.5000,12.4991 -172.5000,11.9991 -172.5000,11.4991 -172.5000,10.9991 -172.5000,10.4991 -172.5000,9.9991 -172.5000,9.4991 -172.5000,8.9991 -172.5000,8.4991 -172.5000,7.9991 -172.5000,7.4991 -172.5000,6.9991 -172.5000,6.4991 -172.5000,5.9991 -172.5000,5.4991 -172.5000,4.9991 -172.5000,4.4991 -172.5000,3.9992 -172.5000,3.4992 -172.5000,2.9992 -172.5000,2.4992 -172.5000,1.9992 -172.5000,1.4992 -172.5000,0.9992 -172.5000,0.4992 -172.5000,-0.0008 -172.5000,-0.5008 -172.5000,-1.0008 -172.4955,-1.4321 -172.4905,-1.9077 -172.4842,-2.5094 -173.0830,-2.5094 -173.6095,-2.5094 -174.1051,-2.5094 -174.6213,-2.5094 -175.0755,-2.5094 -175.6123,-2.5094 -176.1079,-2.5094 -176.6447,-2.5094 -177.1196,-2.5094 -177.6358,-2.5094 -178.0515,-2.5094 87,-12.0,Baker Island, Howland Island (both uninhabited) -180.0000,48.0000 -179.5009,48.0001 -179.0018,48.0001 -178.5027,48.0002 -178.0036,48.0002 -177.5045,48.0003 -177.0054,48.0004 -176.5063,48.0004 -176.0072,48.0005 -175.5081,48.0005 -175.0090,48.0006 -174.5099,48.0007 -174.0108,48.0007 -173.5117,48.0008 -173.0126,48.0008 -172.5135,48.0009 -172.5130,47.5193 -172.5125,47.0378 -172.5120,46.5562 -172.5115,46.0747 -172.5110,45.5931 -172.5105,45.1116 -172.5100,44.6300 -172.5095,44.1485 -172.5090,43.6669 -172.5085,43.1854 -172.5080,42.7038 -172.5075,42.2223 -172.5070,41.7407 -172.5065,41.2592 -172.5060,40.7776 -172.5055,40.2961 -172.5050,39.8145 -172.5045,39.3330 -172.5040,38.8514 -172.5035,38.3699 -172.5030,37.8883 -172.5025,37.4068 -172.5020,36.9252 -172.5015,36.4437 -172.5010,35.9621 -172.5005,35.4806 -172.5000,34.9990 -173.0000,34.9990 -173.5000,34.9990 -174.0000,34.9990 -174.5000,34.9989 -175.0000,34.9989 -175.5000,34.9989 -176.0000,34.9989 -176.5000,34.9989 -177.0000,34.9989 -177.5000,34.9989 -178.0000,34.9988 -178.5000,34.9988 -179.0000,34.9988 -179.5000,34.9988 -180.0000,34.9988 -180.0000,35.4803 -180.0000,35.9618 -180.0000,36.4434 -180.0000,36.9249 -180.0000,37.4064 -180.0000,37.8880 -180.0000,38.3695 -180.0000,38.8510 -180.0000,39.3325 -180.0000,39.8141 -180.0000,40.2956 -180.0000,40.7771 -180.0000,41.2586 -180.0000,41.7402 -180.0000,42.2217 -180.0000,42.7032 -180.0000,43.1847 -180.0000,43.6663 -180.0000,44.1478 -180.0000,44.6293 -180.0000,45.1108 -180.0000,45.5924 -180.0000,46.0739 -180.0000,46.5554 -180.0000,47.0369 -180.0000,47.5185 -180.0000,48.0000 -180.0000,48.0000 -180.0000,48.0000 2057,6.5,Asia/Rangoon 97.5899,28.4947 97.6136,28.4820 97.6141,28.4823 97.6146,28.4820 97.6421,28.4984 97.6708,28.5110 97.6996,28.4880 97.7400,28.3826 97.7653,28.3524 97.7973,28.3439 97.7976,28.3441 97.7982,28.3439 97.8596,28.3699 97.8975,28.3553 97.9447,28.2988 97.9788,28.2806 97.9929,28.2689 97.9938,28.2525 97.9849,28.2242 97.9911,28.2140 98.0314,28.2083 98.0486,28.1996 98.1187,28.1408 98.1270,28.1243 98.1280,28.1055 98.1225,28.0154 98.1185,27.9947 98.1071,27.9731 98.1135,27.9617 98.1490,27.9445 98.1658,27.9297 98.1773,27.9129 98.1767,27.8981 98.1567,27.8892 98.1401,27.8786 98.1458,27.8607 98.1624,27.8428 98.1966,27.8232 98.2007,27.8136 98.1985,27.8004 98.1979,27.7806 98.2021,27.7713 98.2084,27.7662 98.2115,27.7603 98.2018,27.7366 98.2044,27.7273 98.2381,27.6802 98.2544,27.6481 98.2757,27.5701 98.2947,27.5366 98.3286,27.5229 98.3292,27.5230 98.3296,27.5229 98.3649,27.5322 98.3842,27.5558 98.3938,27.5872 98.3991,27.6198 98.3984,27.6568 98.4010,27.6757 98.4110,27.6841 98.4222,27.6809 98.4745,27.6572 98.4923,27.6434 98.4929,27.6437 98.4933,27.6434 98.5226,27.6561 98.5434,27.6425 98.5644,27.6035 98.5784,27.5917 98.5793,27.5918 98.5794,27.5917 98.6055,27.5927 98.6175,27.5984 98.6268,27.6056 98.6360,27.6111 98.6473,27.6117 98.6559,27.6068 98.6657,27.5971 98.6742,27.5861 98.6793,27.5773 98.6818,27.5565 98.6711,27.5162 98.6683,27.4752 98.6744,27.3866 98.6773,27.3761 98.6837,27.3736 98.6911,27.3732 98.6974,27.3689 98.7077,27.3372 98.7042,27.3042 98.6802,27.2370 98.6736,27.2079 98.6726,27.1756 98.6827,27.1101 98.6914,27.0924 98.7027,27.0868 98.7165,27.0825 98.7314,27.0688 98.7378,27.0487 98.7317,27.0311 98.7206,27.0140 98.7127,26.9951 98.7357,26.9073 98.7363,26.8983 98.7331,26.8879 98.7187,26.8727 98.7145,26.8620 98.7181,26.8425 98.7424,26.8104 98.7504,26.7920 98.7492,26.7714 98.7344,26.7343 98.7320,26.7135 98.7465,26.6811 98.7474,26.6727 98.7468,26.6644 98.7471,26.6557 98.7507,26.6461 98.7556,26.6250 98.7485,26.6060 98.7280,26.5726 98.7211,26.5389 98.7172,26.4087 98.7135,26.3894 98.7074,26.3711 98.6977,26.3541 98.6578,26.3116 98.6495,26.2906 98.6446,26.2716 98.6422,26.2545 98.6482,26.2448 98.6490,26.2450 98.6491,26.2448 98.6684,26.2481 98.6770,26.2393 98.7015,26.1912 98.7055,26.1749 98.7003,26.1653 98.6924,26.1600 98.6865,26.1541 98.6867,26.1332 98.6808,26.1250 98.6444,26.0979 98.6317,26.0970 98.6252,26.1085 98.6267,26.1443 98.6203,26.1457 98.6199,26.1456 98.6193,26.1457 98.6022,26.1400 98.5630,26.1312 98.5502,26.1208 98.5455,26.1056 98.5473,26.0883 98.5538,26.0711 98.5726,26.0356 98.5772,26.0173 98.5754,25.9951 98.5824,25.9823 98.5925,25.9807 98.5929,25.9808 98.5934,25.9807 98.6046,25.9824 98.6162,25.9794 98.6253,25.9700 98.6581,25.9250 98.6673,25.9058 98.6724,25.9018 98.6847,25.8976 98.6898,25.8916 98.6924,25.8790 98.6902,25.8656 98.6849,25.8531 98.6778,25.8433 98.6261,25.8065 98.6103,25.8007 98.6013,25.8017 98.5919,25.8064 98.5633,25.8164 98.5405,25.8337 98.5278,25.8388 98.5269,25.8387 98.5268,25.8388 98.5095,25.8381 98.4981,25.8307 98.4745,25.8058 98.4613,25.7947 98.4526,25.7780 98.4393,25.7436 98.4323,25.7361 98.4247,25.7308 98.4187,25.7242 98.4167,25.7126 98.4163,25.7002 98.4132,25.6921 98.3752,25.6493 98.3698,25.6368 98.3572,25.5928 98.3471,25.5778 98.3326,25.5670 98.3121,25.5575 98.2898,25.5505 98.2776,25.5524 98.2481,25.5792 98.2333,25.5866 98.1512,25.6131 98.1505,25.6130 98.1502,25.6131 98.1401,25.6115 98.1384,25.5990 98.1394,25.5502 98.1342,25.5346 98.1230,25.5222 98.1046,25.5068 98.0998,25.5000 98.0995,25.4933 98.1047,25.4670 98.1089,25.4582 98.1120,25.4485 98.1102,25.4104 98.1121,25.3962 98.1084,25.3889 98.0900,25.3859 98.0757,25.3761 98.0626,25.3543 98.0449,25.3119 98.0335,25.3013 97.9924,25.2825 97.9763,25.2723 97.9308,25.2185 97.9099,25.2076 97.8898,25.2057 97.8798,25.2136 97.8727,25.2277 97.8613,25.2441 97.8246,25.2616 97.8243,25.2613 97.8236,25.2616 97.8010,25.2376 97.7770,25.1586 97.7541,25.1136 97.7375,25.0905 97.7216,25.0793 97.7036,25.0739 97.6996,25.0650 97.7052,25.0288 97.7034,24.9648 97.7033,24.9604 97.7083,24.9273 97.7241,24.8972 97.7610,24.8703 97.7730,24.8547 97.7652,24.8347 97.7485,24.8265 97.7275,24.8263 97.6869,24.8335 97.6864,24.8334 97.6860,24.8335 97.6639,24.8298 97.6425,24.8168 97.6040,24.7864 97.5362,24.7451 97.5361,24.7450 97.5328,24.7233 97.5386,24.5973 97.5139,24.4617 97.5133,24.4386 97.5196,24.4308 97.5204,24.4309 97.5205,24.4308 97.6016,24.4419 97.6244,24.4423 97.6399,24.4393 97.6473,24.4323 97.6523,24.4227 97.6555,24.4121 97.6573,24.4020 97.6626,24.3901 97.6810,24.3778 97.6883,24.3677 97.6896,24.3465 97.6743,24.3408 97.6536,24.3387 97.6382,24.3281 97.6445,24.3024 97.7184,24.2777 97.7241,24.2415 97.7185,24.2340 97.7112,24.2285 97.7047,24.2217 97.7016,24.2109 97.7046,24.1992 97.7187,24.1815 97.7231,24.1713 97.7201,24.1474 97.7077,24.1253 97.5165,23.9428 97.5330,23.9237 97.5727,23.9076 97.6099,23.8831 97.6155,23.8751 97.6197,23.8660 97.6247,23.8467 97.6254,23.8477 97.6256,23.8467 97.6380,23.8636 97.6483,23.8685 97.6566,23.8725 97.6779,23.8787 97.6978,23.8871 97.7491,23.9341 97.7688,23.9465 97.7905,23.9531 97.8050,23.9545 97.8188,23.9582 97.8373,23.9718 97.8776,24.0144 97.8909,24.0226 98.1060,24.1015 98.1824,24.1186 98.2192,24.1174 98.2933,24.1001 98.3307,24.0995 98.3307,24.0995 98.3316,24.0995 98.3483,24.1049 98.3797,24.1224 98.3965,24.1281 98.4354,24.1302 98.4745,24.1278 98.5033,24.1213 98.5431,24.0940 98.5702,24.0821 98.5852,24.0757 98.5856,24.0760 98.5862,24.0757 98.5981,24.0831 98.6135,24.0875 98.6414,24.1008 98.6827,24.1069 98.7171,24.1213 98.8190,24.1290 98.8562,24.1390 98.8660,24.1452 98.8670,24.1433 98.8735,24.1145 98.8562,24.0838 98.7656,24.0271 98.7168,23.9884 98.6992,23.9816 98.6799,23.9763 98.6633,23.9695 98.6588,23.9611 98.6657,23.9532 98.6745,23.9369 98.6730,23.9283 98.6648,23.9034 98.6642,23.8904 98.6714,23.8167 98.6683,23.8087 98.6636,23.8031 98.6637,23.7969 98.6757,23.7874 98.6850,23.7848 98.7083,23.7847 98.7384,23.7756 98.7779,23.7693 98.7932,23.7585 98.7991,23.7432 98.8003,23.6927 98.8080,23.6758 98.8496,23.6147 98.8560,23.6100 98.8574,23.6043 98.8502,23.5906 98.8433,23.5840 98.7963,23.5579 98.7844,23.5470 98.7809,23.5329 98.8000,23.4807 98.8098,23.4741 98.8105,23.4743 98.8108,23.4741 98.8310,23.4800 98.8489,23.4804 98.8640,23.4666 98.8755,23.4464 98.8896,23.4068 98.8923,23.3869 98.8901,23.3679 98.8819,23.3497 98.8738,23.3446 98.8621,23.3406 98.8532,23.3350 98.8534,23.3249 98.8605,23.3224 98.8613,23.3224 98.8614,23.3224 98.8965,23.3233 98.9107,23.2976 98.8601,23.2123 98.8590,23.1794 98.9334,23.1722 98.9707,23.1622 98.9904,23.1600 98.9908,23.1601 98.9913,23.1600 99.0099,23.1621 99.0264,23.1604 99.0332,23.1464 99.0393,23.1271 99.0551,23.1096 99.0749,23.1017 99.0922,23.1015 99.0922,23.1015 99.0931,23.1015 99.1305,23.1062 99.1387,23.1052 99.1640,23.0977 99.1787,23.0964 99.1827,23.0952 99.1849,23.0948 99.1855,23.0949 99.1858,23.0948 99.1943,23.0957 99.1994,23.0923 99.1997,23.0738 99.2021,23.0673 99.2096,23.0615 99.2166,23.0574 99.2249,23.0569 99.2250,23.0569 99.2258,23.0569 99.2371,23.0623 99.2584,23.0792 99.2677,23.0839 99.2858,23.0882 99.2950,23.0968 99.3031,23.1126 99.3150,23.1265 99.3340,23.1295 99.3510,23.1193 99.3810,23.0816 99.4033,23.0683 99.4782,23.0658 99.4931,23.0574 99.4950,23.0435 99.4916,23.0282 99.4904,23.0120 99.4988,22.9952 99.5346,22.9493 99.5380,22.9264 99.5154,22.9089 99.4855,22.9103 99.4309,22.9367 99.4303,22.9365 99.4299,22.9367 99.4134,22.9307 99.4112,22.9192 99.4169,22.8743 99.4144,22.8569 99.4036,22.8411 99.3789,22.8132 99.3590,22.7749 99.3507,22.7681 99.3385,22.7649 99.3272,22.7605 99.3170,22.7541 99.3080,22.7452 99.3079,22.7196 99.3550,22.6085 99.3574,22.5871 99.3470,22.5534 99.3441,22.5333 99.3466,22.5231 99.3563,22.5062 99.3578,22.4955 99.3534,22.4841 99.3451,22.4728 99.2828,22.4119 99.2431,22.3932 99.2374,22.3801 99.2406,22.3730 99.2464,22.3659 99.2483,22.3537 99.2437,22.3412 99.2257,22.3212 99.2184,22.3100 99.2062,22.2613 99.1994,22.2453 99.1664,22.2046 99.1594,22.1847 99.1751,22.1687 99.1445,22.1535 99.1664,22.1321 99.2123,22.1124 99.2529,22.1028 99.3300,22.0956 99.3305,22.0956 99.3309,22.0956 99.3659,22.0989 99.4259,22.1224 99.4389,22.1241 99.4904,22.1043 99.5051,22.1034 99.5055,22.1034 99.5060,22.1034 99.5393,22.1066 99.6335,22.0848 99.6422,22.0799 99.6501,22.0719 99.6593,22.0546 99.6638,22.0487 99.6839,22.0390 99.6842,22.0393 99.6848,22.0390 99.6947,22.0469 99.7048,22.0612 99.7243,22.0704 99.7392,22.0668 99.7999,22.0375 99.8075,22.0310 99.8134,22.0230 99.8210,22.0178 99.8218,22.0179 99.8220,22.0178 99.8346,22.0195 99.8427,22.0271 99.8433,22.0470 99.8488,22.0550 99.8673,22.0578 99.9424,22.0455 99.9349,22.0325 99.9343,22.0189 99.9398,22.0059 99.9505,21.9954 99.9657,21.9630 99.9553,21.9246 99.9202,21.8520 99.9180,21.8292 99.9221,21.8123 99.9392,21.7770 99.9503,21.7212 99.9607,21.7048 99.9967,21.6861 100.0823,21.6845 100.1205,21.6737 100.1352,21.6623 100.1428,21.6549 100.1463,21.6492 100.1437,21.6400 100.1362,21.6368 100.1261,21.6349 100.1157,21.6295 100.1039,21.6156 100.0949,21.5988 100.0886,21.5818 100.0856,21.5676 100.0861,21.5509 100.0900,21.5289 100.0973,21.5083 100.1078,21.4955 100.1283,21.4824 100.1488,21.4549 100.1625,21.4364 100.1871,21.4279 100.1875,21.4281 100.1881,21.4279 100.1988,21.4332 100.2312,21.4568 100.2450,21.4645 100.2762,21.4752 100.2905,21.4831 100.3032,21.4953 100.3032,21.4953 100.3034,21.4955 100.3034,21.4955 100.3156,21.5130 100.3275,21.5243 100.3429,21.5304 100.3635,21.5317 100.3837,21.5278 100.3991,21.5189 100.4293,21.4954 100.4343,21.4784 100.4435,21.4635 100.4567,21.4550 100.4575,21.4551 100.4576,21.4550 100.4752,21.4568 100.4976,21.4617 100.5460,21.4530 100.5466,21.4531 100.5469,21.4530 100.5728,21.4551 100.6227,21.4691 100.6467,21.4799 100.6623,21.4953 100.6623,21.4953 100.6625,21.4955 100.6625,21.4955 100.7049,21.5164 100.7576,21.5698 100.7980,21.6261 100.8359,21.6575 100.8784,21.6773 100.9752,21.7042 100.9937,21.7114 101.0439,21.7454 101.0563,21.7545 101.0696,21.7620 101.0834,21.7666 101.1189,21.7598 101.1249,21.7442 101.1277,21.6952 101.1363,21.6847 101.1493,21.6768 101.1615,21.6584 101.1688,21.6379 101.1667,21.6233 101.1739,21.6119 101.1677,21.6002 101.1577,21.5862 101.1542,21.5680 101.1590,21.5527 101.1600,21.5445 101.1611,21.5347 101.1571,21.5197 101.1432,21.5134 101.0034,21.4060 100.9099,21.3601 100.8960,21.3558 100.8625,21.3233 100.8513,21.3148 100.8146,21.3002 100.7920,21.2974 100.7726,21.3042 100.7650,21.3092 100.7567,21.3124 100.7477,21.3143 100.7450,21.3144 100.7384,21.3148 100.7254,21.3117 100.7220,21.3037 100.7226,21.2927 100.7211,21.2807 100.6894,21.1593 100.6376,21.0697 100.6255,21.0541 100.6068,21.0439 100.5619,21.0351 100.5435,21.0274 100.5558,20.9999 100.5573,20.9920 100.5520,20.9853 100.5333,20.9734 100.5292,20.9684 100.5271,20.9469 100.5178,20.9063 100.5157,20.8865 100.5342,20.8739 100.6231,20.8885 100.6521,20.8828 100.6521,20.8766 100.6266,20.8535 100.5989,20.8335 100.5690,20.8178 100.5367,20.8077 100.5134,20.8070 100.4708,20.8183 100.3837,20.8317 100.3648,20.8282 100.3511,20.8153 100.3420,20.7995 100.3297,20.7860 100.2902,20.7750 100.2745,20.7620 100.2487,20.7320 100.2216,20.7096 100.2113,20.6974 100.2072,20.6808 100.2023,20.6679 100.1802,20.6382 100.1729,20.6221 100.1729,20.6091 100.1601,20.5827 100.1493,20.5481 100.1367,20.4592 100.1274,20.4278 100.1252,20.4064 100.1209,20.3888 100.1111,20.3748 100.0998,20.3622 100.0971,20.3484 100.0976,20.3349 100.0993,20.3178 100.0555,20.3442 100.0476,20.3552 100.0427,20.3648 100.0361,20.3731 100.0229,20.3808 100.0084,20.3836 99.9967,20.3835 99.9859,20.3870 99.9743,20.4008 99.9647,20.4086 99.9611,20.4178 99.9588,20.4275 99.9524,20.4363 99.9420,20.4440 99.9371,20.4450 99.9325,20.4427 99.8779,20.4351 99.8557,20.4281 99.8377,20.4168 99.8263,20.4014 99.8130,20.3653 99.8040,20.3490 99.7872,20.3341 99.7696,20.3284 99.7291,20.3285 99.7084,20.3250 99.6713,20.3101 99.6519,20.3068 99.6422,20.3088 99.6270,20.3188 99.6180,20.3224 99.6076,20.3232 99.5893,20.3208 99.5797,20.3212 99.5029,20.3452 99.4541,20.3771 99.4400,20.3822 99.4206,20.3756 99.4296,20.3587 99.4664,20.3222 99.4750,20.3037 99.4863,20.2455 99.5189,20.2122 99.5258,20.1962 99.5206,20.1710 99.5103,20.1538 99.4993,20.1469 99.4875,20.1413 99.4745,20.1281 99.4414,20.1016 99.3212,20.0663 99.2957,20.0625 99.2753,20.0722 99.2365,20.1027 99.2190,20.1105 99.1777,20.1218 99.1584,20.1236 99.1175,20.1178 99.0735,20.1012 99.0365,20.0752 99.0168,20.0410 99.0059,19.9723 99.0070,19.9625 99.0128,19.9442 99.0135,19.9350 99.0109,19.9302 99.0062,19.9249 99.0014,19.9179 98.9994,19.9077 99.0027,19.8836 99.0076,19.8649 99.0088,19.8459 99.0009,19.8210 98.9877,19.7994 98.9738,19.7881 98.9351,19.7735 98.8993,19.7486 98.8837,19.7455 98.8645,19.7732 98.8519,19.7840 98.8379,19.7934 98.8078,19.8065 98.7492,19.7635 98.7301,19.7573 98.6413,19.7449 98.6238,19.7375 98.6154,19.7298 98.5984,19.7091 98.5907,19.7041 98.5683,19.7000 98.5483,19.6926 98.5380,19.6839 98.5365,19.6771 98.5326,19.6759 98.5155,19.6834 98.5051,19.6915 98.4976,19.7007 98.4888,19.7067 98.4745,19.7053 98.4396,19.6877 98.3944,19.6863 98.3476,19.6906 98.3073,19.6900 98.2628,19.6699 98.2375,19.6647 98.2192,19.6770 98.2167,19.6875 98.2179,19.7080 98.2133,19.7178 98.2059,19.7215 98.1720,19.7316 98.1322,19.7661 98.1114,19.7771 98.0859,19.7732 98.0729,19.7773 98.0606,19.7939 98.0456,19.8076 98.0245,19.8030 98.0179,19.7894 98.0046,19.7239 98.0056,19.7056 98.0139,19.6694 98.0136,19.6517 98.0083,19.6391 98.0001,19.6363 97.9904,19.6366 97.9795,19.6333 97.9707,19.6259 97.9561,19.6094 97.9481,19.6024 97.8858,19.5728 97.8486,19.5676 97.8398,19.5553 97.8389,19.5371 97.8410,19.5172 97.8443,19.5045 97.8481,19.4996 97.8487,19.4940 97.8421,19.4794 97.8335,19.4687 97.8004,19.4408 97.7671,19.3975 97.7677,19.3904 97.7751,19.3711 97.7767,19.3611 97.7831,19.3371 97.7971,19.3184 97.8062,19.3011 97.7983,19.2814 97.7887,19.2777 97.7773,19.2786 97.7680,19.2771 97.7641,19.2664 97.7697,19.2573 97.7963,19.2367 97.8052,19.2274 97.8126,19.2085 97.8151,19.1906 97.8108,19.1122 97.8041,19.0980 97.7899,19.0826 97.7278,19.0371 97.7170,19.0183 97.7104,18.9799 97.7033,18.9644 97.6891,18.9497 97.6681,18.9354 97.6578,18.9257 97.6619,18.9138 97.6844,18.8925 97.7086,18.8752 97.7191,18.8646 97.7234,18.8520 97.7194,18.8259 97.7204,18.8176 97.7327,18.7805 97.7358,18.7627 97.7363,18.7406 97.7412,18.7031 97.7526,18.6634 97.7597,18.6228 97.7518,18.5825 97.7457,18.5711 97.7428,18.5693 97.7379,18.5705 97.6903,18.5579 97.6374,18.5593 97.6179,18.5532 97.5484,18.5091 97.5095,18.4913 97.4628,18.4925 97.4381,18.4881 97.4275,18.4895 97.4166,18.4960 97.4122,18.5030 97.4094,18.5114 97.3889,18.5422 97.3801,18.5478 97.3514,18.5512 97.3576,18.5399 97.3791,18.5208 97.3905,18.5018 97.3946,18.4871 97.4177,18.4411 97.4431,18.4033 97.4434,18.4015 97.4465,18.3812 97.4468,18.3583 97.4526,18.3336 97.4665,18.3114 97.4865,18.2921 97.5081,18.2766 97.5283,18.2653 97.5376,18.2726 97.5420,18.2802 97.5606,18.3283 97.5624,18.3305 97.5738,18.3331 97.6247,18.3134 97.6376,18.3063 97.6438,18.2913 97.6433,18.2730 97.6357,18.2576 97.6207,18.2511 97.6179,18.2417 97.6290,18.2209 97.6804,18.1526 97.6843,18.1461 97.6853,18.1402 97.6853,18.1316 97.6875,18.1198 97.6968,18.1016 97.6991,18.0907 97.6980,18.0847 97.6937,18.0751 97.6928,18.0701 97.6942,18.0615 97.6977,18.0607 97.7022,18.0618 97.7064,18.0593 97.7201,18.0531 97.7221,18.0489 97.7252,18.0368 97.7398,18.0029 97.7440,17.9978 97.7472,17.9925 97.7518,17.9808 97.7541,17.9690 97.7509,17.9637 97.7476,17.9609 97.7201,17.9432 97.6918,17.8956 97.6855,17.8807 97.6991,17.8333 97.6761,17.8303 97.6840,17.8165 97.6965,17.8066 97.7065,17.7947 97.7112,17.7813 97.7169,17.7698 97.7410,17.7502 97.7496,17.7398 97.7516,17.7296 97.7518,17.7181 97.7531,17.7054 97.7593,17.6915 97.7689,17.6792 97.9338,17.5318 97.9486,17.5224 97.9722,17.5117 97.9828,17.5054 97.9917,17.4957 97.9961,17.4808 98.0182,17.4474 98.0286,17.4188 98.0355,17.4050 98.0487,17.3915 98.0623,17.3848 98.0768,17.3800 98.0887,17.3728 98.0947,17.3586 98.0941,17.3463 98.0905,17.3252 98.0926,17.3122 98.1006,17.3026 98.1862,17.2242 98.2018,17.2157 98.2210,17.2008 98.2563,17.1516 98.2790,17.1366 98.2708,17.1278 98.2662,17.1164 98.2683,17.1077 98.2944,17.1076 98.2953,17.0998 98.2902,17.0908 98.2862,17.0874 98.2997,17.0647 98.3133,17.0520 98.3307,17.0469 98.3798,17.0458 98.3999,17.0401 98.4179,17.0290 98.4362,17.0116 98.4467,16.9963 98.4637,16.9636 98.4745,16.9504 98.4804,16.9373 98.4807,16.9206 98.4845,16.9059 98.5001,16.8989 98.5095,16.8927 98.5160,16.8790 98.5246,16.8504 98.5120,16.8593 98.5006,16.8622 98.4925,16.8574 98.4900,16.8432 98.4944,16.8312 98.5034,16.8260 98.5132,16.8222 98.5205,16.8141 98.5175,16.8030 98.5054,16.7907 98.4892,16.7807 98.4745,16.7767 98.4625,16.7601 98.4547,16.7410 98.4567,16.7232 98.4863,16.7010 98.4914,16.6897 98.4984,16.6624 98.5123,16.6433 98.5471,16.6201 98.5616,16.6017 98.5658,16.5915 98.5678,16.5825 98.5673,16.5733 98.5640,16.5627 98.5642,16.5520 98.5704,16.5416 98.6316,16.4631 98.6398,16.4450 98.6382,16.4345 98.6282,16.4136 98.6295,16.4027 98.6424,16.3736 98.6570,16.3016 98.6633,16.2867 98.6824,16.2735 98.6984,16.2850 98.7283,16.3283 98.7886,16.3746 98.8021,16.3983 98.8104,16.4396 98.8187,16.4556 98.8396,16.4724 98.8434,16.4384 98.8621,16.4207 98.8853,16.4062 98.9025,16.3816 98.9033,16.3634 98.8934,16.3199 98.8887,16.2746 98.8837,16.2588 98.8556,16.2270 98.8431,16.2087 98.8367,16.1890 98.8347,16.1677 98.8354,16.1445 98.8308,16.1356 98.8072,16.1105 98.7984,16.1044 98.7830,16.1024 98.7760,16.1069 98.7703,16.1138 98.7584,16.1192 98.6972,16.1269 98.6796,16.1261 98.6587,16.1163 98.6503,16.0996 98.6441,16.0796 98.6302,16.0600 98.6191,16.0510 98.6116,16.0469 98.6031,16.0458 98.5901,16.0458 98.5800,16.0488 98.5677,16.0540 98.5559,16.0555 98.5470,16.0475 98.5501,16.0342 98.5770,15.9969 98.5838,15.9770 98.5807,15.9591 98.5686,15.9202 98.5693,15.8961 98.5766,15.8542 98.5744,15.8360 98.5431,15.7354 98.5403,15.7120 98.5437,15.6788 98.5457,15.6586 98.5437,15.6015 98.5671,15.4525 98.5690,15.4021 98.5599,15.3553 98.5336,15.3260 98.5302,15.3477 98.5155,15.3635 98.4950,15.3748 98.4745,15.3835 98.4554,15.3736 98.4394,15.3676 98.4034,15.3601 98.3969,15.3557 98.3962,15.3476 98.4003,15.3307 98.3991,15.3218 98.3936,15.3163 98.3848,15.3114 98.3837,15.3103 98.3812,15.3066 98.3788,15.3016 98.3775,15.2965 98.3800,15.2938 98.3861,15.2904 98.3921,15.2858 98.3947,15.2801 98.3947,15.2649 98.3923,15.2582 98.3852,15.2563 98.3703,15.2619 98.3360,15.2822 98.3179,15.2890 98.2951,15.2926 98.2830,15.2900 98.2477,15.2409 98.2329,15.2268 98.2154,15.2189 98.1772,15.2206 98.1779,15.2088 98.1907,15.1792 98.1858,15.1608 98.1650,15.1258 98.1604,15.1064 98.1681,15.0827 98.1990,15.0514 98.2044,15.0296 98.2012,15.0193 98.1957,15.0107 98.1913,15.0012 98.1911,14.9881 98.1951,14.9776 98.2149,14.9432 98.2216,14.9213 98.2204,14.8853 98.2221,14.8643 98.2251,14.8590 98.2359,14.8504 98.2391,14.8440 98.2388,14.8391 98.2354,14.8245 98.2433,14.8051 98.2975,14.7212 98.4182,14.6076 98.4313,14.5878 98.4400,14.5663 98.4455,14.5420 98.4528,14.5281 98.4651,14.5234 98.4782,14.5165 98.5477,14.3777 98.5932,14.3216 98.6015,14.3136 98.6145,14.3051 98.6215,14.3024 98.6369,14.2990 98.6442,14.2957 98.6508,14.2894 98.6636,14.2729 98.6704,14.2679 98.6856,14.2674 98.6974,14.2714 98.7070,14.2700 98.7311,14.2235 98.7537,14.2001 98.8723,14.1125 98.8937,14.1032 98.9177,14.0964 98.9353,14.0854 98.9453,14.0691 98.9476,14.0464 98.9530,14.0280 98.9848,13.9906 98.9970,13.9716 99.0071,13.9496 99.0162,13.9379 99.0476,13.9150 99.0521,13.9090 99.0571,13.8941 99.0611,13.8880 99.0663,13.8853 99.0803,13.8816 99.0848,13.8785 99.0900,13.8701 99.0922,13.8636 99.0919,13.8559 99.0895,13.8439 99.0898,13.8267 99.1012,13.7788 99.1088,13.7627 99.1413,13.7321 99.1525,13.7149 99.1528,13.6887 99.1495,13.6660 99.1520,13.5820 99.1879,13.4271 99.1888,13.4079 99.1836,13.3580 99.1869,13.3387 99.1869,13.3291 99.1827,13.3187 99.1769,13.3103 99.1728,13.3009 99.1734,13.2874 99.1860,13.2500 99.1902,13.2295 99.1873,13.2122 99.1728,13.1995 99.1332,13.1952 99.1141,13.1881 99.1021,13.1713 99.1022,13.1518 99.1053,13.1296 99.1025,13.1044 99.0938,13.0807 99.0883,13.0584 99.0932,13.0383 99.1153,13.0214 99.1325,13.0110 99.1511,12.9948 99.1648,12.9755 99.1673,12.9560 99.1631,12.9447 99.1579,12.9360 99.1542,12.9266 99.1532,12.9136 99.1553,12.9045 99.1684,12.8741 99.1719,12.8433 99.1753,12.8334 99.1832,12.8226 99.2031,12.8039 99.2107,12.7923 99.2144,12.7717 99.2132,12.7526 99.2141,12.7347 99.2245,12.7175 99.2335,12.7131 99.2563,12.7095 99.2667,12.7028 99.2712,12.6938 99.2735,12.6735 99.2769,12.6656 99.2863,12.6600 99.3097,12.6535 99.3172,12.6459 99.3236,12.6354 99.3334,12.6254 99.3445,12.6168 99.3938,12.5898 99.4033,12.5759 99.4073,12.5515 99.4071,12.5302 99.4042,12.5081 99.4003,12.4975 99.3895,12.4760 99.3870,12.4659 99.3913,12.4453 99.4140,12.4052 99.4206,12.3834 99.4234,12.3278 99.4267,12.3087 99.4322,12.2964 99.4463,12.2798 99.4476,12.2782 99.4544,12.2673 99.4571,12.2564 99.4547,12.2382 99.4556,12.2276 99.4594,12.2171 99.4701,12.1974 99.4738,12.1873 99.4720,12.1736 99.4638,12.1646 99.4541,12.1569 99.4488,12.1472 99.4523,12.1294 99.4663,12.1260 99.5226,12.1442 99.5329,12.1445 99.5417,12.1407 99.5458,12.1319 99.5435,12.1225 99.5393,12.1123 99.5376,12.1009 99.5217,12.0537 99.5184,12.0259 99.5343,12.0116 99.5533,12.0055 99.5670,11.9933 99.5740,11.9763 99.5729,11.9559 99.5574,11.9156 99.5541,11.8950 99.5614,11.8729 99.5738,11.8577 99.5918,11.8423 99.6110,11.8302 99.6280,11.8254 99.6300,11.8158 99.6153,11.7494 99.6069,11.7257 99.5426,11.6405 99.5307,11.6309 99.4892,11.6284 99.4661,11.6239 99.4498,11.6138 99.4406,11.5973 99.4392,11.5739 99.4411,11.5334 99.4374,11.5167 99.4282,11.4969 99.4159,11.4802 99.3870,11.4516 99.3776,11.4355 99.3721,11.4109 99.3705,11.3933 99.3643,11.3767 99.3264,11.3362 99.3157,11.3208 99.3005,11.2806 99.2884,11.2583 99.2562,11.2200 99.2433,11.1977 99.2130,11.1083 99.2062,11.1000 99.1849,11.0930 99.1751,11.0874 99.1676,11.0780 99.1582,11.0573 99.1517,11.0477 99.1331,11.0334 99.0932,11.0130 99.0769,10.9965 99.0725,10.9876 99.0636,10.9574 99.0551,10.9453 99.0453,10.9455 99.0347,10.9510 99.0233,10.9544 99.0106,10.9562 99.0056,10.9588 99.0015,10.9576 98.9923,10.9480 98.9867,10.9393 98.9826,10.9289 98.9802,10.9180 98.9796,10.9077 98.9818,10.8955 98.9898,10.8752 98.9899,10.8604 98.9861,10.8403 98.9819,10.8324 98.9745,10.8242 98.9697,10.8231 98.9340,10.8077 98.9233,10.8081 98.9147,10.8123 98.9054,10.8144 98.8921,10.8085 98.8836,10.7992 98.8753,10.7786 98.8682,10.7699 98.8609,10.7677 98.8396,10.7664 98.8301,10.7636 98.8110,10.7466 98.7667,10.6888 98.7568,10.6661 98.7479,10.6231 98.7515,10.6104 98.7707,10.5940 98.7773,10.5832 98.7913,10.5204 98.7904,10.5003 98.7765,10.4621 98.7664,10.4112 98.7479,10.3503 98.7474,10.3501 98.7474,10.3505 98.7311,10.3191 98.7166,10.2703 98.7074,10.2282 98.6810,10.1768 98.6309,10.0753 98.5795,9.9897 98.5710,9.9770 98.5124,9.9703 98.4885,9.9517 98.4351,9.9647 98.3896,9.9335 98.3203,9.8408 98.2693,9.7198 98.2547,9.6813 98.2327,9.6178 98.2035,9.5331 98.1655,9.4987 98.1266,9.4948 98.0620,9.4882 97.9999,9.5128 97.9378,9.5374 97.8527,9.5816 97.7567,9.5941 97.6263,9.6234 97.5194,9.6239 97.5194,9.6544 97.5195,10.1372 97.5195,10.6200 97.5195,11.1028 97.5196,11.5856 97.4883,11.5773 97.3925,11.5828 97.3287,11.6163 97.2743,11.6703 97.2397,11.7366 97.2290,11.8031 97.2480,11.8885 97.3022,11.9603 97.3740,12.0012 97.4706,12.0176 97.5196,12.0571 97.5196,12.5157 97.5196,12.9744 97.5197,13.4331 97.5197,13.8918 97.5197,14.3504 97.5197,14.8091 97.5198,15.2678 97.5022,15.3253 97.4345,15.5470 97.4380,15.6166 97.4854,15.7433 97.4852,15.7819 97.3811,15.9189 97.3494,16.1104 97.2799,16.2138 97.2496,16.2970 97.1752,16.3974 97.1148,16.5695 97.0685,16.6318 97.0044,16.6272 96.7663,16.4057 96.5355,16.3079 96.2179,16.1324 96.0883,16.0409 95.9577,15.9871 95.9104,15.9412 95.8081,15.7742 95.7162,15.6734 95.5796,15.5734 95.4404,15.5180 95.2946,15.5096 95.0966,15.5770 94.9403,15.5541 94.8786,15.5579 94.7059,15.5967 94.5478,15.6653 94.4027,15.6281 94.3501,15.6314 94.2664,15.6724 94.0663,15.8552 94.0110,15.9342 93.9885,16.0290 94.0256,16.4590 94.0686,16.6164 94.1537,16.7619 94.1667,16.9490 94.2391,17.0903 94.2409,17.2366 94.3194,17.3800 94.3371,17.4493 94.3249,17.6458 94.2395,17.9034 94.2257,18.0527 94.1211,18.1813 94.1084,18.3433 94.0408,18.4555 94.0050,18.5666 93.9772,18.6083 93.9455,18.6063 93.8484,18.5095 93.8073,18.4863 93.7152,18.4630 93.6243,18.4642 93.5530,18.4848 93.4971,18.5217 93.3961,18.6155 93.3191,18.7129 93.2700,18.8163 93.2644,18.9094 93.2851,18.9688 93.3689,19.0568 93.3837,19.0943 93.2800,19.2541 93.2598,19.3821 93.2771,19.4744 93.3456,19.5962 93.3131,19.6091 93.1819,19.5999 92.9819,19.6201 92.9204,19.6378 92.8661,19.6728 92.8140,19.7419 92.7848,19.8074 92.7192,19.9544 92.5784,20.1010 92.3556,20.4297 92.1805,20.5874 92.1557,20.6170 92.2763,20.6827 92.3141,20.7238 92.3510,20.7263 92.3450,20.7577 92.3327,20.8060 92.2988,20.8892 92.2690,20.9611 92.2659,21.0186 92.2654,21.0609 92.2243,21.0932 92.2184,21.1086 92.2118,21.1235 92.1883,21.1441 92.1808,21.1579 92.1750,21.1756 92.1784,21.1913 92.1840,21.2209 92.1852,21.2404 92.1781,21.2801 92.1783,21.2997 92.1837,21.3172 92.2116,21.3549 92.2251,21.3975 92.2363,21.4171 92.2529,21.4195 92.2845,21.4191 92.3227,21.4619 92.3547,21.4518 92.3679,21.4354 92.3722,21.4191 92.3742,21.4023 92.3812,21.3848 92.3896,21.3765 92.4003,21.3710 92.4231,21.3637 92.4654,21.3598 92.4987,21.3666 92.5245,21.3611 92.5439,21.3209 92.5516,21.2805 92.5587,21.2598 92.5706,21.2473 92.5909,21.2489 92.6143,21.2631 92.6338,21.2822 92.6429,21.2984 92.6392,21.3187 92.6033,21.4201 92.5927,21.4702 92.5902,21.4955 92.5862,21.5614 92.5756,21.7340 92.5930,21.8869 92.5902,21.9172 92.5759,21.9776 92.5838,21.9803 92.5913,21.9842 92.5980,21.9893 92.6039,21.9954 92.6153,22.0088 92.6276,22.0124 92.6399,22.0134 92.6509,22.0192 92.6584,22.0328 92.6584,22.0466 92.6561,22.0606 92.6562,22.0753 92.6621,22.0948 92.6646,22.0938 92.6695,22.0927 92.6740,22.0952 92.6747,22.1056 92.6711,22.1339 92.6740,22.1471 92.6838,22.1543 92.7081,22.1480 92.7716,22.1042 92.8361,22.0465 92.8539,22.0241 92.8621,21.9954 92.8670,21.9665 92.8775,21.9570 92.8892,21.9667 92.8986,21.9954 92.9062,22.0173 92.9210,22.0218 92.9374,22.0130 92.9503,21.9954 92.9556,21.9896 92.9617,21.9869 92.9681,21.9872 92.9749,21.9909 92.9771,21.9930 92.9790,21.9954 92.9799,22.0023 92.9796,22.0094 92.9779,22.0165 92.9749,22.0233 92.9684,22.0362 92.9653,22.0496 92.9672,22.0627 92.9855,22.0960 92.9952,22.1033 93.0075,22.1059 93.0255,22.1129 93.0226,22.1210 93.0239,22.1888 93.0224,22.1962 93.0245,22.2019 93.0364,22.2062 93.0458,22.2069 93.0725,22.2025 93.0906,22.1971 93.1043,22.1872 93.1195,22.1810 93.1417,22.1873 93.1231,22.2184 93.1235,22.2307 93.1248,22.2323 93.1297,22.2316 93.1515,22.2410 93.1613,22.2425 93.1690,22.2469 93.1737,22.2594 93.1743,22.2694 93.1659,22.3866 93.1535,22.4275 93.1179,22.4629 93.1096,22.4790 93.0992,22.5120 93.0982,22.5353 93.1091,22.5747 93.1105,22.5963 93.1044,22.6159 93.0819,22.6528 93.0739,22.6719 93.0708,22.6929 93.0795,22.7727 93.1124,22.8000 93.1159,22.7984 93.1253,22.8216 93.1611,22.8610 93.1755,22.8817 93.1774,22.9002 93.1711,22.9204 93.1511,22.9562 93.1432,22.9775 93.1382,23.0053 93.1401,23.0319 93.1524,23.0499 93.1771,23.0584 93.1965,23.0538 93.2121,23.0399 93.2256,23.0204 93.2465,23.0045 93.2728,23.0059 93.2988,23.0180 93.3183,23.0337 93.3334,23.0523 93.3749,23.1297 93.3752,23.1422 93.3730,23.1542 93.3727,23.1698 93.3808,23.2373 93.3764,23.2795 93.3779,23.2968 93.3842,23.3131 93.4037,23.3388 93.4072,23.3473 93.4078,23.3564 93.4059,23.3677 93.3998,23.4261 93.4002,23.4540 93.4324,23.6473 93.4303,23.6803 93.4260,23.6908 93.4123,23.7087 93.4063,23.7191 93.3748,23.7390 93.3583,23.8553 93.3592,23.8909 93.3560,23.9070 93.3519,23.9139 93.3460,23.9187 93.3376,23.9284 93.3161,23.9611 93.3081,23.9775 93.3030,23.9953 93.3011,24.0166 93.3030,24.0411 93.3097,24.0640 93.3222,24.0801 93.3485,24.0889 93.3683,24.0785 93.3965,24.0375 93.4065,24.0258 93.4392,23.9952 93.4456,23.9816 93.4490,23.9689 93.4567,23.9600 93.4748,23.9575 93.4957,23.9591 93.5268,23.9754 93.5435,23.9809 93.5500,23.9780 93.5553,23.9710 93.5613,23.9657 93.5711,23.9680 93.5770,23.9730 93.5818,23.9796 93.5856,23.9873 93.5880,23.9952 93.6124,24.0091 93.6605,24.0112 93.7111,24.0055 93.7430,23.9953 93.7828,23.9455 93.8037,23.9361 93.8832,23.9453 93.9123,23.9390 93.9405,23.9289 93.9751,23.9209 93.9979,23.9170 94.0551,23.8879 94.0711,23.8761 94.0853,23.8575 94.0997,23.8426 94.1169,23.8416 94.1319,23.8570 94.1351,23.8773 94.1336,23.8992 94.1351,23.9190 94.1449,23.9389 94.1903,23.9953 94.1939,24.0097 94.1991,24.0481 94.2037,24.0578 94.2141,24.0692 94.2185,24.0867 94.2222,24.1226 94.2340,24.1603 94.2828,24.2664 94.2869,24.2831 94.2900,24.3168 94.2954,24.3326 94.3028,24.3410 94.3237,24.3547 94.3307,24.3629 94.3317,24.3711 94.3283,24.3885 94.3287,24.3945 94.3400,24.4060 94.3522,24.4139 94.3612,24.4254 94.3637,24.4658 94.3704,24.4777 94.3819,24.4863 94.3971,24.4951 94.4108,24.5459 94.4185,24.5603 94.4302,24.5709 94.4750,24.5974 94.4871,24.6205 94.5080,24.6890 94.5163,24.7050 94.5310,24.7075 94.5434,24.7073 94.5557,24.7089 94.5695,24.7164 94.5815,24.7301 94.5895,24.7473 94.5932,24.7659 94.5932,24.7838 94.5990,24.8135 94.6391,24.8628 94.6548,24.8892 94.6735,24.9748 94.6898,24.9951 94.7086,25.0259 94.7138,25.0683 94.7068,25.1099 94.6891,25.1385 94.6533,25.1541 94.6130,25.1614 94.5769,25.1736 94.5533,25.2041 94.5501,25.2453 94.6080,25.3946 94.6305,25.4274 94.6595,25.4555 94.6920,25.4763 94.7111,25.4828 94.7458,25.4866 94.7644,25.4917 94.7824,25.5046 94.8080,25.5426 94.8224,25.5591 94.8310,25.5625 94.8508,25.5628 94.8603,25.5672 94.8610,25.5714 94.8529,25.5808 94.8535,25.5860 94.8575,25.5893 94.8680,25.5947 94.8717,25.5980 94.9615,25.7180 94.9690,25.7256 94.9786,25.7291 94.9999,25.7316 95.0088,25.7371 95.0153,25.7551 95.0135,25.7777 94.9932,25.8810 94.9940,25.9004 95.0006,25.9220 95.0120,25.9314 95.0494,25.9437 95.0659,25.9538 95.1082,25.9951 95.1395,26.0299 95.1512,26.0499 95.1501,26.0710 95.1375,26.0830 95.1017,26.0934 95.0882,26.1041 95.0784,26.1713 95.0824,26.1798 95.0897,26.1876 95.0945,26.1950 95.0908,26.2027 95.0828,26.2066 95.0745,26.2083 95.0664,26.2110 95.0587,26.2177 95.0463,26.2480 95.0418,26.2876 95.0436,26.3277 95.0505,26.3591 95.0642,26.3926 95.0661,26.4074 95.0617,26.4266 95.0426,26.4597 95.0406,26.4756 95.0544,26.4949 95.0544,26.4949 95.0699,26.5062 95.0992,26.5361 95.1096,26.5513 95.1149,26.5626 95.1162,26.5693 95.1159,26.5756 95.1191,26.6042 95.1228,26.6116 95.1326,26.6208 95.1414,26.6250 95.1634,26.6297 95.1732,26.6338 95.1816,26.6417 95.1956,26.6608 95.2049,26.6676 95.2233,26.6704 95.2391,26.6496 95.2606,26.6476 95.2790,26.6529 95.3160,26.6691 95.3927,26.6918 95.4106,26.7016 95.4400,26.7354 95.4627,26.7772 95.4898,26.8107 95.5314,26.8203 95.5544,26.8166 95.5748,26.8161 95.5913,26.8237 95.6034,26.8443 95.6133,26.8679 95.6243,26.8807 95.6400,26.8864 95.6861,26.8913 95.6993,26.8962 95.7092,26.9075 95.7350,26.9473 95.7780,26.9951 95.8049,27.0048 95.8615,27.0142 95.8889,27.0270 95.9164,27.0514 95.9384,27.0799 95.9748,27.1429 96.0132,27.1908 96.0742,27.2299 96.1426,27.2575 96.4078,27.2982 96.4747,27.2954 96.4901,27.2907 96.5109,27.2925 96.5318,27.2985 96.5473,27.3064 96.5675,27.3283 96.5760,27.3454 96.5869,27.3536 96.6142,27.3484 96.6232,27.3437 96.6293,27.3387 96.6364,27.3355 96.6490,27.3362 96.6592,27.3414 96.6759,27.3577 96.6873,27.3617 96.7052,27.3608 96.7242,27.3563 96.7589,27.3417 96.7763,27.3306 96.7892,27.3180 96.8099,27.2858 96.8217,27.2731 96.8538,27.2487 96.8596,27.2407 96.8513,27.2212 96.8418,27.2044 96.8427,27.1885 96.8653,27.1716 97.0030,27.1145 97.0119,27.1070 97.0189,27.0987 97.0268,27.0915 97.0380,27.0870 97.0479,27.0878 97.0670,27.0952 97.0772,27.0965 97.0899,27.0922 97.0980,27.0859 97.1060,27.0826 97.1192,27.0873 97.1229,27.0937 97.1330,27.1196 97.1348,27.1273 97.1293,27.1379 97.1208,27.1439 97.1117,27.1488 97.1044,27.1560 97.1017,27.1653 97.1013,27.1833 97.0955,27.1913 97.0679,27.2171 96.9051,27.4084 96.8814,27.4441 96.8770,27.4631 96.8902,27.4925 96.8885,27.5072 96.8847,27.5158 96.8810,27.5344 96.8803,27.5438 96.8773,27.5531 96.8662,27.5684 96.8620,27.5784 96.8621,27.5993 96.8702,27.6191 96.8835,27.6363 96.8997,27.6495 96.9395,27.6740 96.9570,27.6881 96.9909,27.7266 97.0040,27.7343 97.0505,27.7468 97.0567,27.7468 97.0604,27.7505 97.0620,27.7633 97.0653,27.7740 97.0723,27.7792 97.0922,27.7855 97.0982,27.7910 97.1060,27.8055 97.1124,27.8092 97.1232,27.8122 97.1318,27.8169 97.1821,27.8573 97.1980,27.8733 97.2109,27.8895 97.2229,27.8997 97.2412,27.9079 97.2607,27.9120 97.2764,27.9103 97.2880,27.8978 97.2887,27.8843 97.2929,27.8776 97.3149,27.8846 97.3335,27.8942 97.3382,27.9016 97.3363,27.9132 97.3357,27.9356 97.3400,27.9518 97.3568,27.9806 97.3623,27.9949 97.3551,28.0230 97.3065,28.0697 97.2929,28.0951 97.2989,28.1292 97.3287,28.1900 97.3235,28.2175 97.3237,28.2178 97.3244,28.2175 97.3348,28.2353 97.3705,28.2535 97.3788,28.2636 97.3853,28.2848 97.3988,28.2888 97.4024,28.2883 97.4167,28.2861 97.4176,28.2861 97.4177,28.2861 97.4376,28.2864 97.4488,28.2976 97.4533,28.3177 97.4533,28.3555 97.4512,28.3649 97.4477,28.3740 97.4463,28.3830 97.4511,28.3919 97.4667,28.4067 97.4724,28.4150 97.4755,28.4262 97.4891,28.4419 97.5040,28.4777 97.5149,28.4947 97.5287,28.5295 97.5466,28.5382 97.5675,28.5255 97.5899,28.4947 15,6.5,Indian/Cocos 97.5138,-11.2595 97.5138,-11.6502 97.5138,-12.0410 97.5138,-12.4317 97.5138,-12.8224 97.0807,-12.8213 96.6475,-12.8201 96.2144,-12.8190 96.2144,-12.4291 96.2144,-12.0392 96.2144,-11.6494 96.2144,-11.2595 96.6475,-11.2595 97.0807,-11.2595 97.5138,-11.2595 147,-11.0,Antarctica/ -157.5063,-76.8888 -157.5063,-77.3652 -157.5063,-77.8416 -157.5063,-78.3180 -157.5063,-78.7944 -157.5063,-79.2708 -157.5063,-79.7472 -157.5063,-80.2236 -157.5063,-80.7000 -157.5063,-81.1545 -157.5063,-81.6091 -157.5063,-82.0636 -157.5063,-82.5182 -157.5063,-82.9727 -157.5063,-83.4273 -157.5063,-83.8818 -157.5063,-84.3364 -157.5063,-84.7909 -157.5063,-85.2455 -157.5063,-85.7000 -157.5063,-86.1778 -157.5063,-86.6555 -157.5063,-87.1333 -157.5063,-87.6111 -157.5063,-88.0889 -157.5063,-88.5666 -157.5063,-89.0444 -157.5063,-89.5222 -157.5063,-89.9999 -157.9872,-90.0000 -158.4282,-90.0000 -158.8691,-90.0000 -159.3100,-90.0000 -159.7510,-90.0000 -160.1919,-90.0000 -160.6329,-90.0000 -161.0738,-90.0000 -161.5147,-90.0000 -161.9557,-90.0000 -162.3966,-90.0000 -162.8376,-90.0000 -163.2785,-90.0000 -163.7195,-90.0000 -164.1604,-90.0000 -164.6013,-90.0000 -165.0423,-90.0000 -165.4832,-90.0000 -165.9242,-90.0000 -166.3651,-90.0000 -166.8061,-90.0000 -167.2470,-90.0000 -167.6879,-90.0000 -168.1289,-90.0000 -168.5698,-90.0000 -169.0108,-90.0000 -169.4517,-90.0000 -169.8926,-90.0000 -170.3336,-90.0000 -170.7745,-90.0000 -171.2155,-90.0000 -171.6564,-90.0000 -172.0974,-90.0000 -172.5383,-90.0000 -172.5383,-89.5750 -172.5383,-89.1500 -172.5383,-88.7250 -172.5384,-88.3000 -172.5384,-87.8455 -172.5384,-87.3909 -172.5384,-86.9364 -172.5384,-86.4818 -172.5384,-86.0273 -172.5385,-85.5727 -172.5385,-85.1182 -172.5385,-84.6636 -172.5385,-84.2091 -172.5385,-83.7545 -172.5385,-83.3000 -172.5386,-82.8286 -172.5386,-82.3571 -172.5386,-81.8857 -172.5386,-81.4143 -172.5386,-80.9429 -172.5387,-80.4714 -172.5387,-80.0000 -172.5387,-79.5918 -172.5387,-79.1836 -172.5387,-78.7754 -172.5387,-78.3673 -172.0487,-78.3827 -171.5587,-78.3981 -171.0686,-78.4135 -170.5786,-78.4289 -170.0885,-78.4444 -169.5985,-78.4598 -169.1085,-78.4752 -168.6184,-78.4906 -168.1284,-78.5061 -167.6383,-78.5215 -167.1483,-78.5369 -166.6583,-78.5523 -166.1682,-78.5677 -165.6782,-78.5832 -165.1881,-78.5986 -164.6981,-78.6140 -164.2081,-78.6294 -163.7594,-78.5714 -163.3107,-78.5134 -162.8620,-78.4554 -162.4132,-78.3973 -161.9645,-78.3393 -161.5158,-78.2813 -161.0671,-78.2233 -160.6184,-78.1652 -160.1697,-78.1072 -159.7210,-78.0492 -159.3177,-77.9970 -159.4591,-77.9530 -159.5129,-77.9244 -159.5460,-77.8947 -159.5551,-77.8399 -159.5077,-77.7806 -159.3945,-77.7022 -159.2596,-77.6481 -159.2069,-77.5948 -159.1550,-77.5597 -159.1791,-77.5278 -159.1788,-77.5039 -159.1244,-77.4418 -159.1941,-77.3799 -159.2144,-77.3239 -159.1974,-77.2741 -159.1344,-77.2097 -159.1787,-77.1393 -159.1504,-77.0694 -159.0987,-77.0289 -159.0057,-76.9878 -158.8742,-76.9483 -158.7356,-76.9189 -158.6072,-76.9013 -158.4381,-76.8860 -158.1155,-76.8677 -157.9697,-76.8634 -157.8278,-76.8647 -157.6777,-76.8721 -157.5356,-76.8852 -157.5063,-76.8888 8112,1.0,Europe/Paris 7.5167,90.0000 7.8544,90.0000 8.1920,90.0000 8.5297,90.0000 8.8630,90.0000 9.1963,90.0000 9.5297,90.0000 9.8630,90.0000 10.1963,90.0000 10.5297,90.0000 10.8630,90.0000 11.1963,90.0000 11.5297,90.0000 11.8630,90.0000 12.1963,90.0000 12.5297,90.0000 12.8630,90.0000 13.1963,90.0000 13.5297,90.0000 13.8630,90.0000 14.1963,90.0000 14.5297,90.0000 14.8630,90.0000 15.1963,90.0000 15.5297,90.0000 15.8630,90.0000 16.1963,90.0000 16.5297,90.0000 16.8630,90.0000 17.1963,90.0000 17.5297,90.0000 17.8630,90.0000 18.1963,90.0000 18.5297,90.0000 18.8630,90.0000 19.1963,90.0000 19.5297,90.0000 19.8630,90.0000 20.1963,90.0000 20.5297,90.0000 20.8630,90.0000 21.1963,90.0000 21.5297,90.0000 21.8630,90.0000 22.1963,90.0000 22.5297,90.0000 22.5466,90.0000 22.5466,89.9892 22.5466,89.9881 22.5466,89.5256 22.5466,89.0632 22.5466,88.6007 22.5466,88.1383 22.5466,87.6758 22.5466,87.2134 22.5466,86.7509 22.5466,86.2884 22.5466,85.8260 22.5466,85.3635 22.5466,84.9011 22.5466,84.8892 22.5466,84.8881 22.5466,84.4067 22.5466,83.9253 22.5466,83.4439 22.5466,82.9625 22.5466,82.4811 22.5466,81.9996 22.5466,81.5182 22.5466,81.5053 22.5466,81.0714 23.0351,81.0711 23.5235,81.0708 24.0120,81.0704 24.5005,81.0701 24.9889,81.0698 25.4774,81.0694 25.9659,81.0691 26.4543,81.0688 26.9428,81.0684 27.4313,81.0681 27.9197,81.0678 28.4082,81.0674 28.8967,81.0671 29.3851,81.0668 29.8736,81.0664 30.3621,81.0661 30.8505,81.0658 31.3390,81.0654 31.8274,81.0651 32.3159,81.0648 32.8044,81.0645 33.2928,81.0641 33.7813,81.0638 34.2698,81.0635 34.7582,81.0631 34.7580,80.7207 34.7578,80.2405 34.7575,79.7603 34.7572,79.2801 34.7569,78.7999 34.7567,78.3197 34.7564,77.8395 34.7561,77.3593 34.7558,76.8791 34.7556,76.3989 34.7553,75.9187 34.7550,75.4385 34.3158,75.4365 33.8766,75.4344 33.4373,75.4324 32.9981,75.4303 32.5004,75.4311 32.0027,75.4319 31.5050,75.4327 31.0073,75.4335 30.5096,75.4342 30.0119,75.4350 29.5142,75.4358 29.0165,75.4366 28.5188,75.4374 28.0211,75.4382 27.5234,75.4390 27.0257,75.4398 26.5280,75.4405 26.0303,75.4413 25.5326,75.4421 25.0349,75.4429 24.5372,75.4437 24.0395,75.4445 23.5418,75.4453 23.0441,75.4460 22.5464,75.4468 22.5462,74.9476 22.5460,74.4484 22.5458,73.9492 22.5455,73.4500 22.5453,72.9508 22.5451,72.4516 22.5448,71.9524 22.5446,71.4532 22.5444,70.9540 22.6298,70.9672 23.0304,71.0539 23.2733,71.0795 23.4650,71.1668 23.5638,71.1959 23.6716,71.2177 23.8589,71.2369 24.1000,71.2333 24.1784,71.2361 24.3631,71.2859 24.5435,71.3111 24.6661,71.3185 24.7906,71.3192 25.0763,71.2991 25.2646,71.3401 25.4638,71.3665 25.6556,71.3755 25.8522,71.3698 26.0530,71.3500 26.3938,71.2949 26.4760,71.2716 26.7494,71.1672 26.8840,71.2000 27.0685,71.2355 27.3129,71.3050 27.4212,71.3235 27.5387,71.3349 27.6517,71.3382 27.7794,71.3340 27.9105,71.3208 28.0510,71.2930 28.2835,71.2948 28.4032,71.2858 28.5088,71.2715 28.6648,71.2364 28.7985,71.1854 28.8194,71.1806 28.9286,71.1561 29.0826,71.1009 29.2926,71.0807 29.4286,71.0589 29.6595,71.0092 29.8078,70.9546 30.0681,70.9288 30.2983,70.9127 30.4798,70.8807 30.7006,70.8158 30.7665,70.7839 30.8310,70.7391 30.9811,70.7066 31.1279,70.6602 31.3357,70.6172 31.4741,70.5651 31.6205,70.4672 31.6829,70.4009 31.6962,70.2759 31.6639,70.2123 31.6495,70.2030 31.7455,70.1659 31.6552,70.1534 31.5453,70.1247 31.4385,70.0850 31.3458,70.0608 31.2897,70.0462 31.2452,70.0346 31.2338,70.0316 30.9502,70.0346 30.8976,70.0346 30.8414,69.8055 30.8440,69.7662 30.8679,69.7490 30.8771,69.7376 30.8823,69.7201 30.8813,69.7105 30.8843,69.7024 30.9012,69.6890 30.9277,69.6721 30.9308,69.5949 30.9270,69.5784 30.8982,69.5442 30.8530,69.5274 30.7553,69.5215 30.6096,69.5304 30.5117,69.5363 30.4807,69.5441 30.2944,69.6202 30.2307,69.6373 30.1861,69.6413 30.1412,69.6399 30.1191,69.6346 30.1267,69.6264 30.1486,69.6185 30.2088,69.6087 30.2201,69.6002 30.2287,69.5821 30.2316,69.5583 30.2247,69.5408 30.2106,69.5282 30.1923,69.5192 30.1640,69.5118 30.1548,69.5061 30.1450,69.4911 30.1411,69.4768 30.1408,69.4644 30.1374,69.4530 30.1234,69.4419 30.0018,69.3946 29.9671,69.3735 29.9481,69.3656 29.9007,69.3582 29.7514,69.3572 29.7284,69.3515 29.6618,69.3250 29.6043,69.3152 29.4346,69.3118 29.3768,69.3016 29.3345,69.2774 29.3266,69.2626 29.3159,69.2349 29.3074,69.2263 29.3055,69.2181 29.3054,69.2097 29.3023,69.2008 29.2944,69.1917 29.2764,69.1759 29.2688,69.1667 29.2510,69.1308 29.2405,69.1151 29.2210,69.0984 29.1730,69.0694 29.1203,69.0468 29.0648,69.0347 29.0081,69.0369 28.9737,69.0342 28.9652,69.0312 28.9541,69.0273 28.8396,69.0803 28.8276,69.0908 28.8270,69.1068 28.8441,69.1813 28.8522,69.2035 28.8648,69.2166 29.2293,69.3769 29.3445,69.4644 29.2032,69.5860 29.1471,69.6639 29.1312,69.6742 28.8061,69.7300 28.4809,69.7857 28.4427,69.7915 28.4046,69.8023 28.3797,69.8224 28.3812,69.8562 28.1893,69.8860 28.1674,69.8943 27.9810,70.0096 27.9272,70.0533 27.8973,70.0707 27.8669,70.0753 27.7922,70.0589 27.6651,70.0683 27.6126,70.0621 27.5709,70.0409 27.5633,70.0236 27.4452,70.0032 27.3809,69.9743 27.3650,69.9718 27.3491,69.9713 27.3345,69.9686 27.3232,69.9597 27.3305,69.9575 27.3451,69.9507 27.3524,69.9487 27.3118,69.9295 27.1003,69.9018 27.0812,69.9029 27.0075,69.9225 26.9811,69.9233 26.9511,69.9202 26.8957,69.9343 26.8646,69.9381 26.7719,69.9284 26.7070,69.9351 26.5339,69.9252 26.5007,69.9183 26.4810,69.8994 26.4459,69.8818 26.4359,69.8742 26.4479,69.8560 26.4187,69.8356 26.3168,69.7949 26.2682,69.7583 26.2230,69.7319 26.2110,69.7229 26.1983,69.7154 26.1814,69.7112 26.0320,69.6967 26.0051,69.6893 25.9813,69.6749 25.9688,69.6632 25.9617,69.6525 25.9644,69.6427 25.9811,69.6335 26.0051,69.6108 26.0040,69.5872 25.9862,69.5654 25.9603,69.5487 25.9002,69.5320 25.8867,69.5209 25.8906,69.5148 25.9014,69.5091 25.9064,69.5019 25.8921,69.4909 25.8857,69.4791 25.8867,69.4552 25.8775,69.4470 25.8658,69.4410 25.8414,69.4178 25.8726,69.3791 25.8774,69.3708 25.7866,69.3128 25.7745,69.2988 25.7372,69.2182 25.7341,69.1913 25.7499,69.1652 25.7553,69.1596 25.7683,69.1421 25.7712,69.1351 25.7700,69.1274 25.7664,69.1227 25.7624,69.1192 25.7605,69.1152 25.7590,69.0820 25.7572,69.0751 25.7494,69.0656 25.7502,69.0592 25.7651,69.0434 25.7657,69.0392 25.7646,69.0352 25.7658,69.0307 25.7738,69.0254 25.7929,69.0182 25.8011,69.0132 25.8047,69.0061 25.7958,68.9933 25.7539,68.9784 25.7427,68.9659 25.7374,68.9525 25.7264,68.9425 25.6948,68.9256 25.6784,68.9125 25.6662,68.8974 25.6516,68.8835 25.6278,68.8741 25.6024,68.8721 25.4811,68.8877 25.4339,68.8839 25.3872,68.8746 25.2013,68.8126 25.1627,68.7846 25.1496,68.7646 25.1449,68.7426 25.1431,68.6960 25.1388,68.6883 25.1328,68.6827 25.1321,68.6766 25.1442,68.6680 25.1324,68.6476 25.1176,68.6377 25.0978,68.6337 25.0710,68.6314 25.0069,68.6146 24.9812,68.6151 24.9518,68.6051 24.9381,68.5883 24.9271,68.5704 24.9052,68.5570 24.8792,68.5548 24.8609,68.5634 24.8296,68.5941 24.7542,68.6379 24.6634,68.6661 24.4813,68.6892 24.3325,68.7086 24.1869,68.7445 24.1637,68.7548 24.1312,68.7762 23.9290,68.8162 23.8526,68.8167 23.7872,68.7998 23.7680,68.7560 23.7348,68.7154 23.6416,68.6950 23.4816,68.6856 23.1976,68.6180 23.1754,68.6217 23.0979,68.6701 23.0715,68.6809 23.0193,68.6867 22.8517,68.6757 22.5965,68.7246 22.5701,68.7268 22.5429,68.7260 22.4287,68.7101 22.4092,68.7129 22.3967,68.7318 22.3714,68.8226 22.3568,68.8328 22.2772,68.8575 22.2002,68.9085 22.1887,68.9186 22.1744,68.9437 22.1607,68.9561 22.0231,69.0120 21.6629,69.2632 21.6388,69.2714 21.3136,69.2914 21.0984,69.2395 21.0797,69.2301 21.0630,69.2149 21.0336,69.1812 21.1564,69.0876 21.0990,69.0438 21.0715,69.0367 21.0325,69.0410 20.7444,69.1044 20.7166,69.0988 20.6232,69.0364 20.6755,69.0182 20.7954,69.0112 20.8640,68.9863 20.9112,68.9807 20.9346,68.9670 20.9343,68.9490 20.9178,68.9330 20.8876,68.9271 20.8845,68.9067 20.9057,68.8946 21.0721,68.8694 21.1528,68.8417 21.2166,68.8172 21.2757,68.7764 21.2883,68.7700 21.2937,68.7682 21.3010,68.7592 21.3054,68.7558 21.3147,68.7540 21.3859,68.7538 21.4064,68.7489 21.4153,68.7388 21.4213,68.7275 21.4515,68.6965 21.4636,68.6869 21.4957,68.6755 21.5725,68.6674 21.6616,68.6335 21.7168,68.6192 21.7371,68.5879 21.9192,68.5682 21.9640,68.5469 21.9699,68.5408 21.9985,68.5258 22.0121,68.5164 22.0242,68.5104 22.0288,68.5094 22.0361,68.5065 22.0374,68.5001 22.0367,68.4929 22.0384,68.4883 22.0722,68.4770 22.3031,68.4761 22.3711,68.4684 22.3746,68.4662 22.3740,68.4563 22.3780,68.4541 22.4569,68.4518 22.5213,68.4382 22.5652,68.4363 22.6076,68.4249 22.6258,68.4251 22.6434,68.4273 22.6622,68.4274 22.6902,68.4168 22.7191,68.3988 22.7486,68.3855 22.8083,68.3949 22.8334,68.3848 22.8751,68.3511 22.9037,68.3366 23.0522,68.2982 23.0669,68.2903 23.0736,68.2819 23.0765,68.2738 23.0816,68.2653 23.0948,68.2555 23.1400,68.2342 23.1552,68.2174 23.1494,68.1940 23.1585,68.1867 23.1598,68.1787 23.1545,68.1538 23.1498,68.1448 23.1494,68.1394 23.1517,68.1303 23.1546,68.1283 23.1588,68.1276 23.1656,68.1220 23.1872,68.1223 23.2721,68.1450 23.3065,68.1456 23.3198,68.1383 23.3309,68.1278 23.3712,68.0685 23.3748,68.0600 23.3830,68.0512 23.4573,68.0243 23.4847,68.0159 23.5737,67.9733 23.6431,67.9632 23.6622,67.9504 23.6612,67.9329 23.6361,67.9135 23.6033,67.9030 23.5325,67.8932 23.4989,67.8822 23.4813,67.8646 23.4767,67.8413 23.4797,67.8170 23.4847,67.7962 23.4846,67.7372 23.4884,67.7248 23.4995,67.7090 23.5107,67.6693 23.5188,67.6528 23.5426,67.6267 23.5503,67.6109 23.5535,67.5870 23.5354,67.5770 23.4995,67.5663 23.4734,67.5550 23.4847,67.5430 23.4660,67.5224 23.4435,67.5047 23.4313,67.4855 23.4437,67.4610 23.4772,67.4438 23.5143,67.4448 23.5538,67.4520 23.5946,67.4536 23.6627,67.4362 23.7308,67.4314 23.7526,67.4273 23.7652,67.4201 23.7632,67.3975 23.7513,67.3695 23.7514,67.3462 23.7857,67.3375 23.7632,67.3065 23.7354,67.2897 23.6223,67.2690 23.6027,67.2603 23.5946,67.2444 23.5915,67.2250 23.5967,67.2180 23.6149,67.2140 23.6071,67.2012 23.5976,67.1903 23.5865,67.1809 23.5740,67.1730 23.5813,67.1531 23.5989,67.1403 23.6205,67.1293 23.6478,67.1086 23.6580,67.1040 23.6666,67.0979 23.6702,67.0871 23.6706,67.0742 23.6726,67.0657 23.6767,67.0585 23.6839,67.0495 23.7203,67.0169 23.7438,67.0010 23.7617,66.9943 23.7921,66.9889 23.8167,66.9755 23.8736,66.9246 23.9124,66.9034 23.9334,66.8888 23.9608,66.8619 24.0013,66.8124 24.0040,66.8052 23.9992,66.7963 23.9844,66.7930 23.9610,66.7935 23.9392,66.7911 23.9248,66.7730 23.8924,66.7509 23.8917,66.7436 23.9030,66.7069 23.9032,66.6863 23.8990,66.6664 23.8916,66.6479 23.8819,66.6318 23.8891,66.6141 23.8932,66.5960 23.8915,66.5789 23.8819,66.5635 23.8612,66.5546 23.8077,66.5392 23.8061,66.5281 23.7859,66.5184 23.7551,66.5119 23.7311,66.5031 23.7311,66.4872 23.7061,66.4830 23.6768,66.4740 23.6524,66.4588 23.6423,66.4363 23.6466,66.4241 23.6659,66.4056 23.6702,66.3953 23.6717,66.3818 23.6770,66.3636 23.6764,66.3500 23.6730,66.3395 23.6644,66.3264 23.6628,66.3165 23.6660,66.3055 23.6807,66.2830 23.6894,66.2570 23.7242,66.2066 23.7500,66.1897 23.7856,66.1767 23.8893,66.1611 23.9114,66.1486 23.9656,66.0816 23.9746,66.0728 23.9851,66.0664 24.0094,66.0556 24.0196,66.0489 24.0298,66.0350 24.0553,65.9852 24.0570,65.9701 24.0548,65.9479 24.0760,65.9280 24.1023,65.9086 24.1244,65.8689 24.1634,65.8408 24.1637,65.8224 24.1637,65.8156 24.1735,65.8039 24.1609,65.8074 24.1660,65.8007 24.1655,65.8003 24.1660,65.7996 24.1553,65.7919 24.1146,65.7529 24.1938,65.6960 24.1940,65.6911 24.1841,65.6772 24.1821,65.6691 24.1980,65.6467 24.1976,65.6162 24.1735,65.5756 24.1170,65.5047 24.0228,65.4352 23.6522,65.1754 23.2817,64.9156 22.9111,64.6559 22.5405,64.3961 22.1934,64.1527 21.8464,63.9093 21.4993,63.6659 21.0290,63.5445 20.6967,63.4850 20.3992,63.3327 20.1078,63.1218 19.8164,62.9109 19.5250,62.7000 19.4670,62.2956 19.4089,61.8912 19.3509,61.4868 19.2928,61.0823 19.2348,60.6779 19.1555,60.3672 19.0822,60.1908 19.3429,60.0090 19.3437,60.0085 19.7502,59.7268 20.1567,59.4450 20.3192,59.1448 20.4817,58.8446 20.4432,58.4839 20.3713,58.1997 20.4153,57.9121 20.0661,57.5639 20.0360,57.4458 19.8928,57.2371 19.6712,56.9672 19.5044,56.7149 19.4178,56.5839 19.3512,56.4506 19.0966,56.0444 19.0467,55.9237 18.9447,55.8910 19.0040,55.6188 19.0633,55.3467 19.2042,55.0808 19.3450,54.8150 19.3150,54.6700 19.3853,54.6242 19.6091,54.4783 19.6100,54.4586 19.6104,54.4571 19.6104,54.4569 19.6115,54.4563 19.6153,54.4540 19.6308,54.4467 19.6803,54.4367 19.7003,54.4361 19.9647,54.4278 20.0435,54.4254 20.2351,54.4194 20.3521,54.4157 20.6408,54.4068 20.9296,54.3978 21.2874,54.3868 21.7208,54.3733 21.9989,54.3647 22.2771,54.3561 22.5104,54.3488 22.6984,54.3429 22.7672,54.3563 22.7860,54.3652 22.8127,54.3941 22.8376,54.4009 22.8589,54.3992 22.9188,54.3811 22.9297,54.3803 22.9524,54.3831 22.9627,54.3817 22.9733,54.3754 22.9790,54.3676 22.9834,54.3598 22.9897,54.3534 23.0010,54.3489 23.0353,54.3465 23.0416,54.3410 23.0380,54.3315 23.0322,54.3201 23.0321,54.3096 23.0501,54.2948 23.0730,54.2949 23.0969,54.3008 23.1171,54.3035 23.1353,54.2983 23.1973,54.2679 23.2354,54.2542 23.3160,54.2363 23.3545,54.2171 23.3641,54.2083 23.3823,54.1879 23.3915,54.1801 23.4018,54.1760 23.4233,54.1725 23.4325,54.1693 23.4490,54.1549 23.4630,54.1349 23.4739,54.1126 23.4816,54.0912 23.4962,54.0446 23.4965,54.0220 23.4816,54.0066 23.4695,54.0007 23.4641,53.9968 23.4593,53.9923 23.4587,53.9816 23.4629,53.9725 23.4709,53.9653 23.4816,53.9601 23.4875,53.9556 23.4904,53.9506 23.4898,53.9451 23.4856,53.9393 23.4869,53.9100 23.4972,53.8855 23.5104,53.8625 23.5207,53.8373 23.5299,53.7842 23.5404,53.7636 23.5647,53.7425 23.5647,53.7424 23.5648,53.7424 23.5671,53.6810 23.5909,53.6113 23.6758,53.4557 23.7229,53.3971 23.7430,53.3655 23.7830,53.2709 23.8006,53.2425 23.8186,53.2280 23.8284,53.2138 23.8362,53.1993 23.8481,53.1838 23.8660,53.1720 23.8831,53.1640 23.8937,53.1520 23.8914,53.1277 23.8824,53.1133 23.8703,53.1013 23.8607,53.0875 23.8593,53.0680 23.8679,53.0510 23.8982,53.0275 23.9097,53.0127 23.9113,53.0051 23.9090,52.9930 23.9091,52.9867 23.9175,52.9588 23.9180,52.9508 23.9150,52.9446 23.9039,52.9311 23.9011,52.9233 23.9020,52.9125 23.9054,52.9065 23.9095,52.9015 23.9121,52.8939 23.9225,52.7426 23.9088,52.6999 23.8690,52.6700 23.7362,52.6149 23.5690,52.5859 23.4805,52.5544 23.3923,52.5096 23.2705,52.3951 23.2304,52.3651 23.2121,52.3475 23.1656,52.2894 23.1687,52.2889 23.1835,52.2813 23.1945,52.2715 23.1977,52.2583 23.1897,52.2405 23.2123,52.2317 23.2842,52.2197 23.2996,52.2234 23.3127,52.2153 23.3748,52.2009 23.3958,52.1996 23.3958,52.1934 23.3885,52.1842 23.3914,52.1825 23.4057,52.1859 23.4182,52.1825 23.4272,52.1768 23.4367,52.1757 23.4505,52.1859 23.4544,52.1815 23.4643,52.1764 23.4709,52.1716 23.4877,52.1816 23.4915,52.1741 23.4887,52.1621 23.4847,52.1586 23.5125,52.1244 23.5319,52.1206 23.5794,52.1215 23.5982,52.1145 23.6048,52.1068 23.6099,52.0986 23.6159,52.0923 23.6253,52.0897 23.6375,52.0845 23.6415,52.0729 23.6425,52.0614 23.6508,52.0489 23.6649,52.0112 23.6764,51.9941 23.6607,51.9869 23.6476,51.9741 23.6287,51.9463 23.6222,51.9279 23.6214,51.8956 23.6149,51.8843 23.6188,51.8833 23.6206,51.8832 23.6213,51.8820 23.6218,51.8774 23.6099,51.8733 23.6057,51.8516 23.5946,51.8433 23.6103,51.8252 23.6287,51.8098 23.6175,51.7865 23.5983,51.7747 23.5773,51.7667 23.5603,51.7545 23.5563,51.7474 23.5523,51.7366 23.5466,51.7136 23.5502,51.7084 23.5569,51.7014 23.5592,51.6952 23.5500,51.6924 23.5461,51.6896 23.5493,51.6832 23.5554,51.6763 23.5603,51.6720 23.5475,51.6621 23.5414,51.6597 23.5324,51.6590 23.5324,51.6515 23.5438,51.6438 23.5452,51.6341 23.5399,51.6071 23.5434,51.5927 23.5521,51.5788 23.5740,51.5553 23.5672,51.5549 23.5603,51.5553 23.5728,51.5397 23.5887,51.5359 23.6023,51.5308 23.6062,51.5174 23.6081,51.5112 23.6148,51.4972 23.6305,51.4904 23.6486,51.4862 23.6628,51.4802 23.6472,51.4602 23.6487,51.4540 23.6894,51.4164 23.6976,51.4044 23.6860,51.4010 23.6789,51.3941 23.6777,51.3838 23.6839,51.3703 23.6656,51.3658 23.6478,51.3540 23.6340,51.3393 23.6287,51.3260 23.6352,51.3047 23.6509,51.2996 23.6702,51.2994 23.6873,51.2924 23.7427,51.2163 23.7652,51.1990 23.8160,51.1788 23.8636,51.1483 23.8747,51.1361 23.8582,51.1307 23.8545,51.1215 23.8693,51.1017 23.8955,51.0761 23.9042,51.0627 23.9160,51.0209 23.9160,51.0147 23.9117,51.0068 23.9191,51.0027 23.9318,50.9995 23.9440,50.9942 23.9551,50.9836 23.9578,50.9753 23.9589,50.9663 23.9644,50.9532 23.9793,50.9375 24.0469,50.8980 24.1302,50.8689 24.1432,50.8564 24.1309,50.8391 24.1005,50.8350 24.0673,50.8348 24.0469,50.8291 24.0205,50.8386 23.9929,50.8362 23.9699,50.8252 23.9576,50.8080 23.9595,50.7889 23.9743,50.7762 23.9979,50.7692 24.0259,50.7670 24.0259,50.7608 24.0128,50.7433 24.0269,50.7280 24.0542,50.7172 24.0810,50.7130 24.0749,50.6902 24.0828,50.6692 24.1084,50.6299 24.0853,50.6044 24.0954,50.5569 24.1025,50.5436 24.1077,50.5408 24.1065,50.5386 24.0940,50.5271 24.0750,50.5143 24.0107,50.4928 24.0079,50.4807 24.0094,50.4615 24.0078,50.4485 24.0032,50.4377 23.9813,50.4048 23.9287,50.3908 23.7475,50.3894 23.7130,50.3824 23.6957,50.3768 23.6822,50.3682 23.6712,50.3536 23.6580,50.3256 23.6442,50.3127 23.5653,50.2578 23.5364,50.2428 23.5363,50.2428 23.5362,50.2428 23.5361,50.2428 23.4816,50.2160 23.4364,50.1935 23.2079,50.0339 23.1778,50.0040 23.1413,49.9855 23.1015,49.9571 22.9930,49.8544 22.9512,49.8266 22.9459,49.8184 22.9378,49.7982 22.9331,49.7911 22.9244,49.7854 22.9067,49.7812 22.8980,49.7774 22.8882,49.7697 22.8266,49.6974 22.8098,49.6863 22.7988,49.6833 22.7773,49.6805 22.7662,49.6742 22.7590,49.6656 22.7417,49.6337 22.6658,49.5674 22.6409,49.5288 22.6601,49.4930 22.6669,49.4784 22.6731,49.4358 22.6768,49.4245 22.6796,49.4189 22.6926,49.4055 22.7142,49.3906 22.7198,49.3830 22.7242,49.3671 22.7378,49.2754 22.7339,49.2609 22.7171,49.2304 22.7029,49.1950 22.6871,49.1734 22.6817,49.1612 22.6878,49.1559 22.6925,49.1579 22.7057,49.1688 22.7214,49.1616 22.7202,49.1612 22.7164,49.1606 22.7488,49.1456 22.7781,49.1203 22.7965,49.1114 22.8413,49.0949 22.8534,49.0848 22.8535,49.0763 22.8444,49.0567 22.8432,49.0431 22.8475,49.0337 22.8638,49.0154 22.8670,49.0100 22.8553,48.9940 22.8350,48.9997 22.8129,49.0129 22.7950,49.0190 22.7840,49.0213 22.7655,49.0384 22.7553,49.0447 22.7445,49.0455 22.7220,49.0410 22.6858,49.0428 22.6644,49.0415 22.6429,49.0432 22.6183,49.0542 22.5808,49.0814 22.5607,49.0855 22.5396,49.0722 22.5320,49.0557 22.5248,49.0329 22.5201,49.0098 22.5205,48.9929 22.5050,48.9842 22.4666,48.9805 22.4490,48.9714 22.4337,48.9418 22.4273,48.9295 22.4149,48.9117 22.4136,48.9068 22.4138,48.8939 22.4118,48.8878 22.4024,48.8788 22.3784,48.8654 22.3689,48.8565 22.3623,48.8443 22.3616,48.8365 22.3635,48.8283 22.3657,48.7944 22.3634,48.7876 22.3565,48.7761 22.3478,48.7679 22.3384,48.7630 22.3308,48.7564 22.3277,48.7430 22.3289,48.7216 22.3225,48.7003 22.3103,48.6817 22.2943,48.6676 22.2822,48.6624 22.2555,48.6568 22.2432,48.6512 22.2357,48.6442 22.2252,48.6282 22.2190,48.6209 22.1537,48.5859 22.1387,48.5696 22.1367,48.5493 22.1483,48.5088 22.1448,48.4931 22.1338,48.4768 22.1328,48.4048 22.1565,48.4021 22.1593,48.4023 22.1692,48.4095 22.2020,48.4182 22.2361,48.4153 22.2718,48.4035 22.2570,48.3732 22.2568,48.3573 22.2844,48.3584 22.2913,48.3576 22.2987,48.3491 22.2987,48.3393 22.2964,48.3278 22.2974,48.3140 22.3081,48.2937 22.3571,48.2431 22.3636,48.2387 22.3709,48.2374 22.3786,48.2389 22.3865,48.2431 22.3905,48.2443 22.3945,48.2448 22.3988,48.2443 22.4184,48.2390 22.4342,48.2367 22.4497,48.2377 22.4690,48.2441 22.4733,48.2445 22.4774,48.2439 22.4814,48.2426 22.5558,48.1772 22.5689,48.1565 22.5830,48.1248 22.6001,48.1011 22.6055,48.0970 22.6081,48.0968 22.6212,48.1018 22.6932,48.1018 22.7116,48.1058 22.7286,48.1131 22.7457,48.1163 22.7621,48.1093 22.7656,48.1045 22.8014,48.0910 22.8310,48.0724 22.8443,48.0610 22.8548,48.0473 22.8616,48.0284 22.8580,48.0180 22.8513,48.0088 22.8495,47.9931 22.8324,47.9789 22.8408,47.9668 22.8776,47.9467 22.8612,47.9338 22.8361,47.9025 22.8197,47.8923 22.7796,47.8823 22.7636,47.8748 22.7529,47.8612 22.7533,47.8527 22.7583,47.8462 22.7603,47.8389 22.7518,47.8277 22.7458,47.8250 22.7242,47.8235 22.7039,47.8172 22.6917,47.8107 22.6670,47.7888 22.6377,47.7716 22.6012,47.7609 22.5630,47.7572 22.5285,47.7610 22.4544,47.7874 22.4237,47.7826 22.4073,47.7431 22.3959,47.7357 22.3826,47.7320 22.3683,47.7312 22.3221,47.7359 22.3094,47.7350 22.2916,47.7307 22.2731,47.7238 22.2617,47.7158 22.2398,47.6935 22.2322,47.6883 22.2152,47.6799 22.2079,47.6737 22.2042,47.6663 22.2007,47.6479 22.1976,47.6393 22.1728,47.6154 22.1698,47.6088 22.1691,47.6014 22.1674,47.5938 22.1621,47.5862 22.1485,47.5793 22.0996,47.5709 22.0374,47.5393 22.0079,47.5174 21.9889,47.4929 21.9915,47.4618 22.0002,47.4272 22.0016,47.3938 21.9815,47.3661 21.9370,47.3572 21.9190,47.3497 21.9008,47.3357 21.8622,47.2974 21.8561,47.2857 21.8446,47.2499 21.8393,47.2408 21.8277,47.2260 21.8236,47.2149 21.8233,47.2033 21.8257,47.1943 21.8260,47.1851 21.8199,47.1727 21.8115,47.1647 21.7894,47.1503 21.7799,47.1407 21.7754,47.1317 21.7705,47.1140 21.7638,47.1052 21.7435,47.0916 21.6942,47.0692 21.6719,47.0547 21.6328,47.0227 21.6366,47.0141 21.6452,47.0112 21.6548,47.0099 21.6618,47.0061 21.6707,46.9944 21.6714,46.9934 21.6675,46.9924 21.6485,46.9430 21.6401,46.9357 21.5944,46.9100 21.5899,46.9089 21.5887,46.9062 21.5871,46.8944 21.5881,46.8822 21.5915,46.8715 21.5918,46.8607 21.5834,46.8479 21.5731,46.8418 21.5366,46.8350 21.5157,46.8216 21.5029,46.8053 21.4815,46.7650 21.4771,46.7602 21.4737,46.7549 21.4714,46.7490 21.4705,46.7430 21.4726,46.7402 21.4752,46.7378 21.4782,46.7359 21.5052,46.7232 21.5018,46.7035 21.4836,46.6849 21.4635,46.6770 21.4362,46.6737 21.4255,46.6620 21.4168,46.6452 21.3960,46.6264 21.3744,46.6184 21.3376,46.6204 21.3162,46.6166 21.3010,46.6039 21.2953,46.5850 21.2913,46.5467 21.2789,46.5284 21.2617,46.5133 21.2476,46.4975 21.2451,46.4769 21.2744,46.4384 21.2807,46.4164 21.2575,46.4042 21.2152,46.4029 21.1956,46.3981 21.1788,46.3845 21.1687,46.3628 21.1645,46.3183 21.1559,46.2989 21.1445,46.2837 21.1349,46.2785 21.1056,46.2787 21.0992,46.2763 21.0515,46.2361 21.0335,46.2313 21.0139,46.2431 21.0070,46.2489 20.9992,46.2516 20.9906,46.2516 20.9815,46.2489 20.9617,46.2483 20.9244,46.2596 20.9066,46.2622 20.8997,46.2607 20.8851,46.2550 20.8751,46.2544 20.8670,46.2571 20.8490,46.2678 20.8397,46.2711 20.8196,46.2717 20.7987,46.2676 20.7785,46.2601 20.7393,46.2375 20.7350,46.2319 20.7355,46.2225 20.7448,46.2003 20.7447,46.1923 20.7366,46.1867 20.7271,46.1877 20.7178,46.1900 20.7103,46.1881 20.7053,46.1806 20.7042,46.1663 20.6988,46.1565 20.6835,46.1447 20.6640,46.1378 20.6076,46.1295 20.6001,46.1296 20.5880,46.1328 20.5781,46.1375 20.5490,46.1562 20.5094,46.1677 20.4685,46.1741 20.4442,46.1469 20.2832,46.1438 20.2428,46.1081 20.2974,46.0607 20.3057,46.0536 20.3102,46.0479 20.3175,46.0386 20.3386,45.9926 20.3503,45.9805 20.3539,45.9767 20.3586,45.9742 20.3709,45.9677 20.4101,45.9555 20.4292,45.9465 20.4815,45.9127 20.4866,45.9111 20.4999,45.9067 20.5330,45.9041 20.5381,45.9037 20.5394,45.9033 20.5567,45.8984 20.5690,45.8898 20.5721,45.8877 20.6053,45.8460 20.6123,45.8412 20.6288,45.8337 20.6297,45.8333 20.6304,45.8326 20.6366,45.8269 20.6398,45.8190 20.6417,45.8038 20.6424,45.7984 20.6434,45.7954 20.6459,45.7887 20.6556,45.7773 20.6786,45.7566 20.6876,45.7438 20.6881,45.7431 20.6993,45.7359 20.6993,45.7359 20.7001,45.7354 20.7133,45.7333 20.7271,45.7359 20.7387,45.7430 20.7394,45.7434 20.7453,45.7550 20.7512,45.7608 20.7541,45.7636 20.7652,45.7668 20.7775,45.7623 20.7796,45.7598 20.7857,45.7526 20.7857,45.7511 20.7855,45.7434 20.7820,45.7350 20.7816,45.7338 20.7791,45.7237 20.7797,45.6849 20.7800,45.6717 20.7773,45.6575 20.7767,45.6564 20.7732,45.6489 20.7622,45.6306 20.7574,45.6152 20.7546,45.6057 20.7561,45.5982 20.7580,45.5893 20.7729,45.5713 20.7874,45.5537 20.7969,45.5365 20.8002,45.5305 20.7976,45.5165 20.7975,45.5164 20.7927,45.5130 20.7832,45.5061 20.7607,45.4933 20.7671,45.4793 20.7816,45.4726 20.7916,45.4703 20.7995,45.4685 20.8157,45.4630 20.8160,45.4629 20.8304,45.4525 20.8511,45.4311 20.8630,45.4187 20.9276,45.3775 20.9662,45.3416 20.9792,45.3341 20.9816,45.3327 21.0636,45.3062 21.0742,45.3004 21.0827,45.2935 21.0871,45.2909 21.0916,45.2881 21.1033,45.2861 21.1131,45.2893 21.1292,45.3019 21.1343,45.3028 21.1393,45.3036 21.1557,45.2952 21.1614,45.2891 21.1897,45.2596 21.2061,45.2459 21.2159,45.2410 21.2393,45.2294 21.2571,45.2241 21.2852,45.2235 21.2993,45.2232 21.3343,45.2154 21.4055,45.1997 21.4192,45.1944 21.4192,45.1944 21.4338,45.1888 21.4594,45.1740 21.4933,45.1451 21.4978,45.1319 21.4941,45.1193 21.4861,45.1144 21.4817,45.1115 21.4690,45.1110 21.4589,45.1075 21.4584,45.1073 21.4532,45.1034 21.4499,45.1009 21.4425,45.0930 21.4428,45.0925 21.4436,45.0914 21.4441,45.0882 21.4444,45.0853 21.4444,45.0779 21.4441,45.0756 21.4436,45.0729 21.4409,45.0687 21.4405,45.0683 21.4325,45.0615 21.4295,45.0573 21.4256,45.0432 21.4251,45.0362 21.4219,45.0314 21.4093,45.0240 21.3988,45.0214 21.3854,45.0207 21.3732,45.0200 21.3707,45.0192 21.3634,45.0165 21.3593,45.0120 21.3563,45.0083 21.3515,44.9982 21.3536,44.9898 21.3547,44.9896 21.3669,44.9871 21.3837,44.9866 21.3870,44.9813 21.3843,44.9750 21.3848,44.9697 21.3852,44.9695 21.4087,44.9586 21.4382,44.9546 21.4565,44.9523 21.4677,44.9484 21.4815,44.9436 21.5163,44.9339 21.5282,44.9264 21.5310,44.9246 21.5391,44.9085 21.5363,44.8893 21.5362,44.8892 21.5353,44.8887 21.5221,44.8808 21.4815,44.8726 21.4534,44.8696 21.3953,44.8716 21.3685,44.8649 21.3652,44.8628 21.3557,44.8564 21.3515,44.8518 21.3462,44.8459 21.3425,44.8321 21.3428,44.8320 21.3484,44.8302 21.3606,44.8264 21.3741,44.8191 21.3785,44.8167 21.3830,44.8099 21.3959,44.7902 21.4122,44.7848 21.4972,44.7780 21.5584,44.7817 21.5706,44.7792 21.5780,44.7776 21.5954,44.7660 21.6039,44.7501 21.6102,44.7323 21.6103,44.7319 21.6197,44.7139 21.6553,44.6884 21.6563,44.6876 21.7050,44.6771 21.7569,44.6771 21.7982,44.6834 21.8017,44.6839 21.8020,44.6840 21.8383,44.6950 21.8552,44.6982 21.8663,44.6968 21.8720,44.6960 21.9217,44.6775 21.9622,44.6622 21.9944,44.6585 22.0043,44.6515 22.0248,44.6161 22.0320,44.6035 22.0358,44.5908 22.0399,44.5770 22.0439,44.5710 22.0452,44.5692 22.0501,44.5659 22.0558,44.5622 22.0669,44.5574 22.0740,44.5524 22.0763,44.5507 22.0870,44.5218 22.1043,44.5096 22.1266,44.5027 22.1451,44.5012 22.1484,44.5008 22.1557,44.5023 22.1722,44.5056 22.1849,44.5151 22.2443,44.5913 22.2992,44.6617 22.3050,44.6774 22.3197,44.6853 22.3386,44.6884 22.3611,44.6921 22.3807,44.7005 22.4155,44.7278 22.4168,44.7285 22.4261,44.7337 22.4505,44.7330 22.4591,44.7317 22.4691,44.7300 22.4819,44.7248 22.4834,44.7241 22.5532,44.6691 22.5608,44.6648 22.5876,44.6495 22.6077,44.6422 22.6212,44.6374 22.7001,44.6306 22.7147,44.6231 22.7249,44.6149 22.7654,44.5828 22.7623,44.5739 22.7593,44.5647 22.7471,44.5558 22.7416,44.5516 22.7194,44.5442 22.6998,44.5416 22.6787,44.5453 22.6567,44.5561 22.6567,44.5561 22.6421,44.5633 22.6323,44.5660 22.6210,44.5691 22.6003,44.5696 22.5804,44.5654 22.5656,44.5554 22.5598,44.5388 22.5584,44.5309 22.5567,44.5215 22.5515,44.5153 22.5484,44.5117 22.5355,44.5075 22.5196,44.5070 22.5003,44.5061 22.4908,44.5040 22.4896,44.5033 22.4839,44.4998 22.4797,44.4902 22.4770,44.4770 22.4770,44.4646 22.4770,44.4639 22.4776,44.4624 22.4800,44.4558 22.5009,44.4420 22.5014,44.4413 22.5054,44.4350 22.5059,44.4312 22.5064,44.4275 22.5043,44.4137 22.5040,44.4117 22.5047,44.4068 22.5051,44.4040 22.5225,44.3749 22.5490,44.3490 22.5828,44.3283 22.5919,44.3255 22.6212,44.3159 22.6395,44.3140 22.6622,44.3114 22.6750,44.3075 22.6814,44.3053 22.6893,44.2918 22.6870,44.2625 22.6855,44.2437 22.6908,44.2288 22.6915,44.2285 22.6916,44.2284 22.6917,44.2284 22.6919,44.2283 22.6919,44.2283 22.6706,44.2213 22.6488,44.2140 22.6434,44.2099 22.6400,44.2072 22.6357,44.2022 22.6248,44.1894 22.6123,44.1790 22.6088,44.1759 22.6084,44.1758 22.6062,44.1746 22.6058,44.1727 22.6049,44.1685 22.6060,44.1631 22.6071,44.1614 22.6079,44.1601 22.6080,44.1600 22.6093,44.1599 22.5988,44.1304 22.5973,44.1200 22.5971,44.1191 22.5981,44.1093 22.6001,44.1028 22.6046,44.0881 22.6046,44.0796 22.5951,44.0667 22.5929,44.0638 22.5862,44.0630 22.5752,44.0614 22.5546,44.0624 22.5342,44.0572 22.5226,44.0447 22.5213,44.0422 22.5149,44.0303 22.5101,44.0258 22.5035,44.0199 22.4814,44.0194 22.4485,44.0156 22.4342,44.0140 22.4120,44.0071 22.4114,44.0065 22.3996,43.9933 22.3984,43.9867 22.3971,43.9807 22.3966,43.9521 22.3945,43.9363 22.3941,43.9356 22.3919,43.9320 22.3818,43.9188 22.3799,43.9149 22.3790,43.9135 22.3774,43.8889 22.3770,43.8834 22.3676,43.8528 22.3584,43.8363 22.3548,43.8298 22.3548,43.8298 22.3528,43.8218 22.3495,43.8082 22.3495,43.8081 22.3626,43.7808 22.3627,43.7806 22.3881,43.7584 22.3892,43.7505 22.3855,43.7335 22.3860,43.7256 22.3903,43.7124 22.3933,43.7067 22.3969,43.6994 22.4049,43.6872 22.4076,43.6840 22.4141,43.6764 22.4228,43.6707 22.4265,43.6682 22.4415,43.6622 22.4559,43.6563 22.4635,43.6511 22.4659,43.6493 22.4719,43.6378 22.4728,43.6361 22.4734,43.6225 22.4739,43.6129 22.4741,43.6125 22.4814,43.6006 22.4816,43.6004 22.4818,43.6000 22.4818,43.5999 22.4820,43.5995 22.4818,43.5989 22.4814,43.5985 22.4781,43.5949 22.4771,43.5913 22.4781,43.5876 22.4814,43.5841 22.4819,43.5832 22.4829,43.5817 22.4829,43.5808 22.4829,43.5790 22.4829,43.5777 22.4827,43.5767 22.4826,43.5764 22.4814,43.5741 22.4791,43.5700 22.4786,43.5690 22.4776,43.5642 22.4777,43.5635 22.4785,43.5592 22.4838,43.5511 22.4906,43.5409 22.5094,43.4933 22.5189,43.4742 22.5326,43.4648 22.5413,43.4618 22.5658,43.4533 22.5727,43.4482 22.5844,43.4367 22.5867,43.4345 22.5961,43.4293 22.5984,43.4288 22.6067,43.4272 22.6284,43.4282 22.6379,43.4261 22.6453,43.4203 22.6539,43.4072 22.6565,43.4032 22.6576,43.4024 22.6647,43.3967 22.6703,43.3952 22.6742,43.3941 22.6931,43.3949 22.7030,43.3938 22.7194,43.3885 22.7326,43.3817 22.8046,43.3287 22.8108,43.3222 22.8173,43.3155 22.8185,43.3125 22.8208,43.3075 22.8239,43.2893 22.8269,43.2815 22.8332,43.2748 22.8384,43.2708 22.8570,43.2568 22.8721,43.2422 22.8838,43.2306 22.8942,43.2229 22.8977,43.2202 22.9152,43.2123 22.9155,43.2123 22.9182,43.2118 22.9182,43.2118 22.9644,43.2044 22.9758,43.2008 22.9813,43.1990 22.9845,43.1747 22.9739,43.1414 22.9554,43.1081 22.9506,43.1027 22.9353,43.0853 22.9291,43.0822 22.9268,43.0811 22.9099,43.0753 22.9014,43.0700 22.8975,43.0638 22.8967,43.0626 22.8961,43.0612 22.8892,43.0446 22.8840,43.0366 22.8422,43.0075 22.8289,42.9938 22.8289,42.9935 22.8289,42.9933 22.8157,42.9895 22.7882,42.9848 22.7765,42.9795 22.7696,42.9715 22.7691,42.9710 22.7642,42.9607 22.7632,42.9586 22.7604,42.9509 22.7453,42.9102 22.7411,42.9016 22.7388,42.8974 22.7357,42.8946 22.7268,42.8869 22.7149,42.8831 22.6966,42.8773 22.6886,42.8760 22.6659,42.8721 22.6131,42.8825 22.5908,42.8869 22.5638,42.8842 22.5500,42.8773 22.5491,42.8764 22.5442,42.8715 22.5374,42.8684 22.5359,42.8685 22.5198,42.8704 22.5145,42.8703 22.5062,42.8700 22.5012,42.8671 22.4971,42.8644 22.4814,42.8467 22.4709,42.8401 22.4455,42.8302 22.4368,42.8243 22.4274,42.8136 22.4258,42.8098 22.4275,42.8081 22.4294,42.8061 22.4531,42.7636 22.4666,42.7485 22.4746,42.7438 22.4813,42.7398 22.4823,42.7366 22.4829,42.7339 22.4823,42.7308 22.4813,42.7276 22.4680,42.7186 22.4486,42.6908 22.4421,42.6816 22.4492,42.6680 22.4446,42.6433 22.4305,42.5980 22.4305,42.5980 22.4289,42.5927 22.4283,42.5898 22.4252,42.5731 22.4254,42.5730 22.4294,42.5715 22.4294,42.5715 22.4813,42.5355 22.5119,42.5191 22.5247,42.5075 22.5296,42.4990 22.5325,42.4936 22.5325,42.4934 22.5333,42.4906 22.5365,42.4784 22.5331,42.4576 22.5195,42.4209 22.5195,42.4209 22.5088,42.4049 22.4976,42.3992 22.4919,42.3983 22.4851,42.3972 22.4726,42.3927 22.4697,42.3916 22.4544,42.3768 22.4385,42.3401 22.4266,42.3285 22.4240,42.3259 22.4056,42.3217 22.3638,42.3212 22.3472,42.3143 22.3451,42.3134 22.4436,42.2144 22.4814,42.1933 22.4947,42.1646 22.5102,42.1448 22.5311,42.1291 22.6178,42.0827 22.6759,42.0606 22.7057,42.0559 22.7103,42.0530 22.7140,42.0486 22.7184,42.0445 22.7251,42.0425 22.7706,42.0440 22.7809,42.0432 22.7853,42.0391 22.7877,42.0326 22.7911,42.0258 22.7989,42.0212 22.8060,42.0214 22.8213,42.0254 22.8270,42.0251 22.8382,42.0195 22.8437,42.0145 22.8458,42.0069 22.8466,41.9936 22.8469,41.9935 22.8548,41.9826 22.8571,41.9719 22.8589,41.9479 22.8663,41.9249 22.8771,41.9020 22.8786,41.8950 22.8782,41.8803 22.8808,41.8727 22.8850,41.8692 22.8967,41.8644 22.9014,41.8604 22.9077,41.8486 22.9183,41.8143 22.9397,41.7767 22.9459,41.7693 22.9569,41.7657 22.9805,41.7647 22.9912,41.7610 23.0089,41.7399 23.0096,41.7164 22.9986,41.6931 22.9766,41.6666 22.9701,41.6520 22.9670,41.6470 22.9615,41.6445 22.9458,41.6411 22.9409,41.6376 22.9361,41.6262 22.9330,41.6123 22.9321,41.5980 22.9337,41.5846 22.9369,41.5789 22.9464,41.5677 22.9487,41.5610 22.9479,41.5551 22.9430,41.5386 22.9462,41.4532 22.9476,41.4484 22.9534,41.4382 22.9546,41.4324 22.9521,41.4277 22.9405,41.4169 22.9373,41.4108 22.9394,41.3894 22.9445,41.3684 22.9409,41.3498 22.9170,41.3358 22.8260,41.3410 22.7810,41.3349 22.7513,41.3152 22.7409,41.2836 22.7367,41.2044 22.7272,41.1658 22.7157,41.1456 22.7049,41.1397 22.6919,41.1446 22.6741,41.1566 22.6663,41.1645 22.6619,41.1723 22.6561,41.1781 22.6445,41.1802 22.6293,41.1771 22.6259,41.1698 22.6268,41.1608 22.6245,41.1526 22.6073,41.1360 22.5902,41.1251 22.5713,41.1195 22.5492,41.1185 22.5166,41.1222 22.5007,41.1221 22.4814,41.1177 22.4675,41.1150 22.4515,41.1137 22.4218,41.1146 22.4104,41.1179 22.3893,41.1283 22.3802,41.1317 22.3677,41.1324 22.3423,41.1290 22.3234,41.1285 22.3151,41.1244 22.3067,41.1284 22.3052,41.1416 22.3026,41.1455 22.2935,41.1475 22.2630,41.1505 22.2251,41.1596 22.2058,41.1614 22.1832,41.1599 22.1603,41.1519 22.1244,41.1272 22.1034,41.1215 22.0959,41.1236 22.0628,41.1372 22.0603,41.1400 22.0586,41.1451 22.0555,41.1499 22.0482,41.1519 22.0441,41.1499 22.0338,41.1413 22.0291,41.1386 21.9651,41.1244 21.9347,41.1119 21.9091,41.0975 21.9012,41.0908 21.8972,41.0813 21.8962,41.0614 21.8943,41.0538 21.8807,41.0384 21.8450,41.0124 21.8315,40.9937 21.8314,40.9937 21.8314,40.9936 21.8313,40.9935 21.7936,40.9736 21.7837,40.9642 21.7819,40.9559 21.7818,40.9451 21.7781,40.9337 21.7655,40.9239 21.7370,40.9192 21.6851,40.9280 21.6569,40.9182 21.6548,40.9143 21.6527,40.9014 21.6488,40.8958 21.6439,40.8945 21.6295,40.8951 21.6237,40.8944 21.6137,40.8883 21.5903,40.8707 21.5816,40.8663 21.5537,40.8704 21.5095,40.9005 21.4294,40.9090 21.4049,40.9086 21.3813,40.9005 21.3449,40.8731 21.3293,40.8663 21.2954,40.8609 21.2610,40.8608 21.2091,40.8691 21.1830,40.8702 21.1121,40.8539 20.9653,40.8494 20.9670,40.8020 20.9609,40.7808 20.9437,40.7653 20.9535,40.7592 20.9572,40.7516 20.9592,40.7436 20.9635,40.7361 20.9920,40.7155 21.0186,40.6909 21.0288,40.6768 21.0353,40.6594 21.0367,40.6397 21.0332,40.6214 21.0225,40.5866 21.0208,40.5751 21.0203,40.5668 21.0188,40.5590 21.0135,40.5489 21.0067,40.5432 20.9975,40.5392 20.9883,40.5335 20.9815,40.5233 20.9686,40.5206 20.9579,40.5149 20.9519,40.5061 20.9527,40.4937 20.9498,40.4879 20.9465,40.4829 20.9368,40.4725 20.9119,40.4595 20.8896,40.4637 20.8668,40.4721 20.8400,40.4716 20.8267,40.4648 20.8213,40.4564 20.8174,40.4468 20.8092,40.4366 20.8003,40.4328 20.7795,40.4290 20.7706,40.4220 20.7690,40.4126 20.7733,40.3853 20.7739,40.3749 20.7704,40.3626 20.7660,40.3543 20.7550,40.3386 20.7366,40.3036 20.7288,40.2983 20.7178,40.2939 20.7070,40.2881 20.6991,40.2784 20.6946,40.2556 20.6966,40.2356 20.6964,40.2151 20.6853,40.1912 20.6798,40.1878 20.6650,40.1844 20.6604,40.1789 20.6599,40.1727 20.6632,40.1617 20.6635,40.1566 20.6682,40.1381 20.6668,40.1335 20.6518,40.1010 20.6476,40.0940 20.6402,40.0901 20.5778,40.0673 20.5529,40.0654 20.4999,40.0715 20.4817,40.0678 20.4660,40.0608 20.4328,40.0638 20.4138,40.0572 20.4004,40.0453 20.3891,40.0294 20.3807,40.0117 20.3765,39.9937 20.3599,39.9910 20.3100,39.9899 20.2979,39.9869 20.3030,39.9791 20.3180,39.9184 20.3231,39.9124 20.3469,39.8943 20.3930,39.8355 20.3970,39.8181 20.3890,39.7981 20.3716,39.7843 20.3546,39.7858 20.3369,39.7940 20.2983,39.8054 20.2884,39.8066 20.2800,39.8040 20.2730,39.7965 20.2755,39.7924 20.2814,39.7882 20.2847,39.7803 20.2831,39.7751 20.2768,39.7632 20.2757,39.7601 20.2782,39.7567 20.2855,39.7497 20.2873,39.7467 20.2911,39.7379 20.2965,39.7335 20.2995,39.7282 20.2965,39.7174 20.2827,39.7044 20.2641,39.6961 20.2490,39.6848 20.2460,39.6629 20.2372,39.6670 20.2286,39.6692 20.2201,39.6692 20.2120,39.6670 20.2042,39.6603 20.2030,39.6526 20.2034,39.6453 20.1999,39.6401 20.1841,39.6370 20.1638,39.6443 20.1352,39.6642 20.0893,39.6828 20.0496,39.6927 20.0161,39.7014 20.0005,39.6934 19.9999,39.6935 19.9968,39.6926 19.9801,39.6614 19.9543,39.6985 19.9605,39.7445 19.9708,39.8210 19.6654,39.8756 19.6570,39.8771 19.4505,39.9085 19.3928,39.8379 19.3682,39.7754 19.3707,39.7136 19.4228,39.6174 19.5582,39.4834 19.6850,39.3230 19.7652,39.2637 19.8653,39.2269 19.8816,39.1604 19.9136,39.1073 19.9671,39.0532 20.0322,39.0116 20.1122,38.9853 20.2066,38.9776 20.2915,38.9907 20.3669,39.0239 20.4472,38.9581 20.3780,38.8795 20.3277,38.7858 20.2826,38.5506 20.1814,38.4713 20.1153,38.3370 20.0906,38.1879 20.1273,38.0768 20.2235,37.9906 20.3630,37.9379 20.3641,37.8021 20.3986,37.7188 20.5094,37.5986 20.6641,37.4872 20.7368,37.4576 20.8118,37.4507 21.1005,37.5104 21.2040,37.4536 21.3443,37.4260 21.3937,37.4021 21.4077,37.3582 21.3450,37.2816 21.3222,37.2228 21.3159,37.0935 21.3452,36.9951 21.4315,36.8683 21.4479,36.6970 21.4948,36.6182 21.5523,36.5698 21.6294,36.5279 21.7046,36.5033 21.7815,36.4947 21.8620,36.5027 21.9473,36.5275 22.1147,36.6210 22.1055,36.4874 22.1309,36.4141 22.1894,36.3458 22.3562,36.2234 22.4233,36.1937 22.4412,36.1922 22.4404,35.7457 22.4396,35.2992 22.4387,34.8527 22.4379,34.4063 22.4371,33.9598 22.4363,33.5133 22.4355,33.0668 22.3392,33.0921 22.2004,33.1505 22.1197,33.1535 21.9272,33.1157 21.7687,33.1534 21.6779,33.1588 21.5916,33.1454 21.5129,33.1167 21.2988,32.9789 21.2347,32.9720 21.0613,32.9845 20.9817,32.9705 20.7279,32.8629 20.4741,32.7554 20.1725,32.5707 19.8954,32.3216 19.8074,32.2065 19.7323,32.0549 19.6909,31.9132 19.6759,31.7684 19.6886,31.6220 19.7245,31.4920 19.8004,31.3144 19.9032,31.1687 19.9071,31.0924 19.8836,31.0090 19.6928,30.7806 19.5275,30.6373 19.2203,30.4916 19.1296,30.4757 19.0422,30.4852 18.7624,30.6238 18.5504,30.7853 18.3384,30.9467 18.0781,31.0421 17.9349,31.1195 17.5914,31.2174 17.4404,31.2861 17.1846,31.3447 16.9288,31.4032 16.7322,31.4338 16.4527,31.4312 16.3273,31.4451 16.0861,31.4990 15.8663,31.5802 15.7539,31.6771 15.6681,31.8227 15.6191,31.9939 15.6067,32.2158 15.5085,32.4022 15.4099,32.5070 15.2752,32.5838 15.0713,32.6336 14.8040,32.6548 14.7060,32.6947 14.5935,32.7094 14.3922,32.8519 14.2686,32.9108 13.8676,33.0003 13.6435,33.0108 13.4549,33.0893 13.3283,33.1218 13.2238,33.1304 13.1306,33.1217 12.8853,33.0327 12.7747,33.0106 12.5446,33.0139 12.3694,33.0491 12.1416,33.1640 11.9138,33.2789 11.6065,33.3747 11.5985,33.3785 11.5483,33.2637 11.5259,33.1769 11.5259,33.1769 11.5051,33.1811 11.5060,33.1364 11.4774,33.0412 11.4749,33.0258 11.4744,32.9699 11.4565,32.9021 11.4638,32.7985 11.4492,32.6930 11.4499,32.6380 11.4704,32.5993 11.5374,32.5435 11.5606,32.5076 11.5641,32.4655 11.5464,32.4343 11.5139,32.4080 11.4440,32.3685 11.1586,32.2526 10.8732,32.1367 10.8459,32.1118 10.8056,32.0324 10.7729,32.0045 10.7366,31.9854 10.7031,31.9622 10.6836,31.9570 10.6653,31.9632 10.6473,31.9720 10.6285,31.9741 10.6059,31.9536 10.5976,31.8735 10.5846,31.8403 10.5424,31.8066 10.5255,31.7721 10.5135,31.7570 10.4989,31.7443 10.4825,31.7331 10.4278,31.7146 10.3154,31.7158 10.2640,31.6805 10.1965,31.5786 10.1326,31.5176 10.1169,31.4944 10.1062,31.4292 10.1081,31.4118 10.1827,31.2408 10.2132,31.1354 10.2448,31.0782 10.2462,31.0596 10.2406,31.0212 10.2450,30.9857 10.2702,30.9156 10.2697,30.8821 10.2539,30.8418 10.1922,30.7313 10.1012,30.6417 9.9956,30.4945 9.8713,30.3552 9.8458,30.3423 9.7729,30.3381 9.7435,30.3313 9.5197,30.2289 9.2865,30.1171 9.3100,30.0844 9.4217,29.9687 9.5497,29.8023 9.6677,29.6083 9.7469,29.3684 9.8261,29.1285 9.8483,28.9757 9.8513,28.7860 9.8141,28.5268 9.7770,28.2676 9.7899,28.2094 9.9359,27.8667 9.9343,27.8274 9.8634,27.6192 9.8466,27.5993 9.8185,27.5857 9.7939,27.5697 9.7971,27.5489 9.8117,27.5265 9.8216,27.5057 9.8136,27.4865 9.7705,27.4442 9.7563,27.4230 9.7431,27.3641 9.7265,27.3247 9.7219,27.3085 9.7213,27.2919 9.8061,27.0251 9.8255,26.9206 9.8351,26.9010 9.8461,26.8920 9.8908,26.8696 9.9067,26.8575 9.9106,26.8431 9.8855,26.7366 9.8826,26.7018 9.8941,26.6740 9.8963,26.6528 9.8546,26.5244 9.8358,26.5042 9.4826,26.3526 9.4814,26.3326 9.4776,26.3156 9.4689,26.3010 9.4348,26.2720 9.4165,26.2323 9.4025,26.2162 9.3778,26.1689 9.4012,26.1134 9.5413,25.9364 9.6803,25.7607 9.6940,25.7435 9.8167,25.5885 9.9695,25.3954 10.0079,25.3314 10.0214,25.2680 10.0255,25.1364 10.0300,24.9951 10.0320,24.8563 10.0445,24.8296 10.1934,24.7499 10.2122,24.7229 10.2297,24.6299 10.2422,24.5951 10.2603,24.5766 10.3918,24.4800 10.4105,24.4733 10.4502,24.4769 10.5668,24.5165 10.6774,24.5539 10.6991,24.5561 10.7207,24.5523 10.9114,24.4945 11.1500,24.4223 11.5086,24.3138 11.5414,24.2975 11.5671,24.2668 11.6365,24.1376 11.7086,24.0030 11.8223,23.7906 11.8924,23.6601 11.9689,23.5174 12.0570,23.4976 12.1453,23.4779 12.2337,23.4583 12.3218,23.4386 12.4100,23.4189 12.4983,23.3992 12.5865,23.3796 12.6747,23.3599 12.7630,23.3402 12.8512,23.3205 12.9394,23.3008 13.0276,23.2811 13.1159,23.2614 13.2041,23.2417 13.2924,23.2221 13.3807,23.2024 13.4823,23.1797 13.5996,23.1190 13.6558,23.0726 13.7809,22.9696 13.9061,22.8666 14.0310,22.7637 14.1562,22.6607 14.2016,22.6232 14.2162,22.6163 14.2317,22.6179 14.2949,22.6498 14.4660,22.7362 14.6371,22.8225 14.8080,22.9089 14.9792,22.9953 14.9794,22.9955 14.9796,22.9956 14.9798,22.9957 14.9799,22.9958 14.9799,22.9957 14.9803,22.9959 14.9821,22.9969 14.9975,23.0038 15.0552,23.0300 15.1129,23.0561 15.1704,23.0823 15.2281,23.1084 15.2858,23.1345 15.3435,23.1606 15.4012,23.1868 15.4588,23.2129 15.5165,23.2390 15.5743,23.2652 15.6319,23.2913 15.6896,23.3175 15.7472,23.3436 15.8049,23.3698 15.8625,23.3959 15.9202,23.4220 15.9646,23.4422 15.9851,23.4447 16.0762,23.3996 16.1998,23.3387 16.3232,23.2777 16.4468,23.2167 16.5703,23.1557 16.6938,23.0947 16.8173,23.0337 16.9409,22.9727 17.0643,22.9118 17.1879,22.8508 17.3114,22.7898 17.4348,22.7288 17.5584,22.6678 17.6819,22.6068 17.8055,22.5458 17.8805,22.5087 17.9290,22.4848 18.0525,22.4239 18.1760,22.3628 18.2996,22.3018 18.4230,22.2409 18.5466,22.1798 18.6701,22.1188 18.7936,22.0579 18.9171,21.9968 19.0407,21.9359 19.1641,21.8749 19.2876,21.8139 19.4111,21.7529 19.5347,21.6919 19.6583,21.6309 19.7817,21.5699 19.9053,21.5089 20.0288,21.4479 20.1523,21.3869 20.2758,21.3259 20.3994,21.2650 20.5228,21.2039 20.6464,21.1429 20.7699,21.0820 20.8933,21.0209 21.0169,20.9600 21.1403,20.8990 21.2640,20.8380 21.3875,20.7770 21.5110,20.7160 21.6345,20.6550 21.7581,20.5940 21.8815,20.5331 22.0051,20.4720 22.1286,20.4111 22.2521,20.3501 22.3756,20.2891 22.4991,20.2281 22.6226,20.1671 22.7461,20.1061 22.8696,20.0451 22.9931,19.9841 23.1168,19.9232 23.2402,19.8621 23.3638,19.8012 23.4873,19.7402 23.6108,19.6791 23.7343,19.6181 23.8578,19.5572 23.9801,19.4967 23.9803,19.4966 23.9813,19.4842 23.9813,19.4842 23.9815,19.2638 23.9817,19.0316 23.9819,18.7993 23.9821,18.5670 23.9822,18.3348 23.9824,18.1025 23.9828,17.8702 23.9829,17.6379 23.9831,17.4057 23.9833,17.1734 23.9835,16.9411 23.9837,16.7088 23.9838,16.4765 23.9840,16.2442 23.9843,16.0119 23.9844,15.7797 23.9844,15.7219 23.9844,15.7212 23.9726,15.6911 23.9455,15.6922 23.8291,15.7310 23.7075,15.7489 23.5927,15.7490 23.5271,15.7352 23.3958,15.6883 23.3206,15.6813 23.1668,15.7129 23.0946,15.7043 23.0685,15.6867 23.0045,15.6114 22.9257,15.5639 22.9067,15.5414 22.8995,15.5102 22.9068,15.4814 22.9236,15.4556 22.9450,15.4331 22.9665,15.4048 22.9764,15.3736 22.9784,15.3402 22.9657,15.2239 22.9580,15.2016 22.9133,15.1217 22.9055,15.1126 22.8716,15.0997 22.8488,15.0875 22.8290,15.0716 22.7389,14.9798 22.7272,14.9590 22.7220,14.9347 22.7210,14.9159 22.7153,14.8994 22.6955,14.8815 22.6589,14.8574 22.6508,14.8419 22.6508,14.8162 22.6590,14.7613 22.6646,14.7438 22.6797,14.7118 22.6814,14.7029 22.6766,14.6890 22.6663,14.6817 22.4654,14.6293 22.4227,14.6091 22.3823,14.5791 22.3635,14.5435 22.3864,14.5065 22.4172,14.4841 22.4249,14.4704 22.4391,14.3629 22.4424,14.3569 22.4473,14.3516 22.4510,14.3458 22.4499,14.3384 22.4449,14.3334 22.4313,14.3272 22.4270,14.3230 22.4181,14.3059 22.4171,14.2981 22.4200,14.2862 22.4290,14.2646 22.4410,14.2499 22.4577,14.2411 22.5141,14.2315 22.5319,14.2206 22.5409,14.2012 22.5477,14.1690 22.5464,14.1397 22.5315,14.1226 22.5082,14.1136 22.4814,14.1085 22.4587,14.0961 22.4216,14.0621 22.4023,14.0493 22.2435,13.9754 22.2147,13.9566 22.1906,13.9328 22.0994,13.8194 22.0750,13.7803 22.0737,13.7714 22.0971,13.7498 22.1129,13.7298 22.1163,13.7152 22.1143,13.6997 22.1143,13.6774 22.1321,13.6387 22.1959,13.5805 22.2106,13.5417 22.2112,13.4842 22.2156,13.4650 22.2286,13.4411 22.2640,13.3992 22.2760,13.3763 22.2676,13.3346 22.2323,13.2890 22.1400,13.1935 22.1234,13.1822 22.0161,13.1402 21.9984,13.1306 21.9641,13.0983 21.9351,13.0592 21.8530,12.9057 21.8278,12.8311 21.8118,12.8000 21.8094,12.7937 21.8137,12.7823 21.8409,12.7489 21.8801,12.6763 21.9008,12.6564 21.9360,12.6395 21.9772,12.6318 22.0197,12.6314 22.0587,12.6367 22.1059,12.6504 22.1441,12.6713 22.1762,12.7015 22.2049,12.7434 22.3301,12.6615 22.4325,12.6238 22.4457,12.6111 22.3959,12.4961 22.3728,12.4631 22.3749,12.4509 22.4080,12.3998 22.4814,12.1767 22.4840,12.1647 22.4848,12.1525 22.4838,12.1403 22.4581,12.0304 22.4645,12.0330 22.4705,12.0361 22.4814,12.0443 22.5465,12.0644 22.5855,12.0714 22.5989,12.0632 22.6073,12.0777 22.6124,12.0728 22.6135,12.0572 22.6105,12.0396 22.5929,11.9889 22.5371,11.6809 22.5417,11.6330 22.5618,11.5860 22.5923,11.5437 22.6281,11.5098 22.6625,11.4931 22.7430,11.4661 22.7688,11.4423 22.7716,11.4333 22.7719,11.4032 22.7818,11.3989 22.8770,11.4088 22.9004,11.4082 22.9148,11.3961 22.9283,11.3251 22.9537,11.2509 22.9545,11.2378 22.9565,11.2088 22.9520,11.1910 22.9352,11.1559 22.9290,11.1379 22.9257,11.1181 22.9251,11.0980 22.9224,11.0871 22.9065,11.0699 22.9002,11.0599 22.8611,10.9192 22.8632,10.8918 23.0056,10.6868 23.1094,10.6145 23.2912,10.4397 23.4576,10.1737 23.6240,9.9078 23.6448,9.8631 23.6740,9.6903 23.6691,9.6520 23.6555,9.6225 23.6185,9.5661 23.6061,9.5372 23.6068,9.5262 23.6165,9.5015 23.6185,9.4883 23.6172,9.4572 23.6200,9.4477 23.6275,9.4351 23.6350,9.4354 23.6409,9.4331 23.6463,9.4250 23.6469,9.4184 23.6218,9.3406 23.6205,9.3229 23.6307,9.2922 23.6322,9.2776 23.6233,9.2656 23.6101,9.2555 23.5714,9.2073 23.5495,9.1853 23.5379,9.1781 23.5218,9.1754 23.4894,9.1767 23.4743,9.1707 23.4577,9.1462 23.4357,9.0189 23.4383,8.9945 23.4514,8.9742 23.4781,8.9589 23.5055,8.9611 23.5426,8.9973 23.5601,8.9965 23.5675,8.9748 23.5659,8.9400 23.5536,8.8832 23.5367,8.8556 23.4954,8.8094 23.4823,8.7834 23.4818,8.7594 23.4901,8.7326 23.5053,8.7107 23.5257,8.7015 23.5405,8.7048 23.5641,8.7227 23.5780,8.7305 23.5964,8.7341 23.6134,8.7322 23.6291,8.7256 23.6441,8.7152 23.6571,8.7100 23.6891,8.7107 23.7213,8.7020 23.7375,8.7069 23.7689,8.7213 23.8034,8.7221 23.8667,8.7078 23.9223,8.7134 23.9621,8.6970 23.9813,8.6942 24.0096,8.6989 24.1140,8.6816 24.1703,8.6893 24.1805,8.6907 24.2177,8.6915 24.2358,8.6820 24.2335,8.6678 24.2151,8.6414 24.2113,8.6271 24.2184,8.6130 24.2456,8.5918 24.2505,8.5796 24.2437,8.5702 24.2032,8.5435 24.1932,8.5324 24.1372,8.4389 24.1252,8.4049 24.1216,8.3723 24.1314,8.3431 24.1529,8.3179 24.1799,8.2977 24.2066,8.2833 24.2224,8.2772 24.2571,8.2692 24.2632,8.2685 24.2810,8.2665 24.2955,8.2665 24.3027,8.2654 24.3103,8.2616 24.3268,8.2486 24.3321,8.2457 24.3966,8.2678 24.4311,8.2714 24.4549,8.2487 24.4589,8.2398 24.4643,8.2332 24.4715,8.2289 24.4813,8.2267 24.5128,8.2071 24.5447,8.2061 24.6149,8.2171 24.6709,8.2068 24.6904,8.2066 24.7106,8.2043 24.7423,8.1868 24.8002,8.1803 24.8321,8.1657 24.9180,8.0870 24.9278,8.0710 24.9301,8.0355 24.9505,8.0144 24.9526,7.9966 24.9581,7.9892 24.9648,7.9826 24.9727,7.9770 24.9812,7.9723 25.0293,7.9188 25.0592,7.8961 25.0896,7.8849 25.1034,7.8858 25.1344,7.8925 25.1486,7.8926 25.1732,7.8886 25.1805,7.8840 25.1855,7.8779 25.1916,7.8724 25.2169,7.8641 25.2297,7.8516 25.2394,7.8360 25.2497,7.8043 25.2645,7.7777 25.2699,7.7608 25.2706,7.7461 25.2668,7.7031 25.2706,7.6882 25.2764,7.6743 25.2794,7.6595 25.2750,7.6420 25.2525,7.6224 25.1865,7.6001 25.1652,7.5799 25.1646,7.5673 25.1690,7.5512 25.1904,7.5012 25.2500,7.4700 25.2633,7.4610 25.2696,7.4542 25.2792,7.4384 25.2851,7.4316 25.2930,7.4272 25.3097,7.4220 25.3162,7.4172 25.3242,7.4029 25.3306,7.3741 25.3360,7.3596 25.3468,7.3450 25.3600,7.3356 25.4162,7.3078 25.4551,7.2782 25.4812,7.2662 25.5003,7.2728 25.5168,7.2699 25.5317,7.2607 25.5766,7.2198 25.5924,7.2112 25.6540,7.1954 25.6727,7.1878 25.6970,7.1686 25.7051,7.1664 25.7245,7.1667 25.7344,7.1624 25.7502,7.1465 25.7613,7.1438 25.7862,7.1427 25.7916,7.1344 25.7917,7.1211 25.8008,7.1049 25.8158,7.0998 25.8607,7.0955 25.8775,7.0877 25.8817,7.0798 25.8841,7.0611 25.8887,7.0519 25.9203,7.0341 25.9304,7.0315 25.9504,7.0286 25.9605,7.0245 25.9662,7.0175 25.9668,7.0099 25.9695,7.0036 25.9811,7.0003 26.0261,6.9967 26.0323,6.9741 26.0358,6.9223 26.0454,6.8997 26.0506,6.8967 26.0569,6.8974 26.0634,6.8991 26.0692,6.8991 26.0736,6.8951 26.0731,6.8897 26.0712,6.8836 26.0716,6.8775 26.0757,6.8646 26.0774,6.8533 26.0810,6.8423 26.0912,6.8303 26.1137,6.8165 26.1318,6.8117 26.1476,6.8047 26.1787,6.7659 26.2195,6.7375 26.2362,6.7200 26.2706,6.7025 26.3297,6.6806 26.3780,6.6532 26.3792,6.6314 26.3799,6.6198 26.3723,6.6098 26.3561,6.5795 26.3402,6.5583 26.3402,6.5583 26.3244,6.5372 26.3104,6.5082 26.3050,6.4969 26.2965,6.4895 26.2864,6.4842 26.2770,6.4774 26.2702,6.4656 26.2891,6.4594 26.2907,6.4447 26.2851,6.4259 26.2828,6.4079 26.2896,6.3872 26.3007,6.3778 26.3158,6.3716 26.3352,6.3606 26.3518,6.3444 26.3758,6.3126 26.3884,6.3046 26.3946,6.3005 26.4362,6.2917 26.4520,6.2803 26.4553,6.2545 26.4556,6.2305 26.4649,6.2244 26.4795,6.2251 26.4958,6.2211 26.5090,6.2054 26.5095,6.1864 26.5048,6.1772 26.5001,6.1680 26.4835,6.1545 26.4744,6.1494 26.4653,6.1443 26.4456,6.1302 26.4293,6.1131 26.4213,6.0937 26.4213,6.0937 26.4231,6.0831 26.4248,6.0724 26.4406,6.0770 26.4810,6.1050 26.4988,6.0998 26.5099,6.0827 26.5181,6.0611 26.5280,6.0432 26.5436,6.0308 26.6022,6.0107 26.6343,6.0065 26.7050,6.0098 26.7763,5.9819 26.7944,5.9705 26.8051,5.9572 26.8108,5.9124 26.8189,5.8946 26.8422,5.8843 26.8653,5.8860 26.8821,5.8919 26.8943,5.8897 26.9038,5.8670 26.9165,5.8496 26.9375,5.8485 26.9811,5.8592 26.9918,5.8478 27.0035,5.8193 27.0220,5.8051 27.0295,5.7899 27.0361,5.7851 27.0454,5.7849 27.0635,5.7909 27.0727,5.7913 27.1148,5.7753 27.1238,5.7687 27.1309,5.7521 27.1314,5.7415 27.1363,5.7340 27.1563,5.7275 27.1704,5.7203 27.1824,5.7075 27.1908,5.6918 27.1938,5.6763 27.1943,5.6673 27.1964,5.6615 27.2011,5.6570 27.2184,5.6453 27.2192,5.6400 27.2167,5.6335 27.2152,5.6162 27.2107,5.6016 27.2113,5.5949 27.2173,5.5854 27.2226,5.5844 27.2273,5.5867 27.2311,5.5876 27.2346,5.5888 27.2401,5.5920 27.2475,5.5927 27.2571,5.5861 27.2611,5.5776 27.2589,5.5600 27.2607,5.5503 27.2574,5.5413 27.2201,5.4409 27.2181,5.4255 27.2201,5.4131 27.2282,5.3876 27.2337,5.3383 27.2378,5.3232 27.2645,5.2601 27.2809,5.2306 27.3013,5.2052 27.3585,5.1668 27.3858,5.1438 27.4021,5.1045 27.4167,5.0941 27.4312,5.0837 27.4413,5.0708 27.4431,5.0578 27.4413,5.0707 27.4148,5.0807 27.4053,5.0828 27.3914,5.0922 27.3803,5.0944 27.3612,5.0955 27.3514,5.0973 27.3428,5.1006 27.3286,5.1108 27.3157,5.1224 27.3019,5.1320 27.2844,5.1360 27.2628,5.1384 27.2397,5.1449 27.1575,5.1854 27.1164,5.2003 27.0737,5.2033 27.0275,5.1900 26.9917,5.1713 26.9616,5.1512 26.9337,5.1266 26.9040,5.0944 26.8992,5.0860 26.8896,5.0621 26.8841,5.0534 26.8727,5.0418 26.8671,5.0375 26.8493,5.0391 26.8484,5.0414 26.8450,5.0463 26.8395,5.0512 26.8327,5.0534 26.8261,5.0508 26.8157,5.0402 26.8084,5.0391 26.8019,5.0445 26.7606,5.0881 26.7537,5.0923 26.7394,5.0944 26.6917,5.0944 26.6812,5.0893 26.6676,5.0783 26.6576,5.0733 26.6440,5.0783 26.6357,5.0776 26.6297,5.0671 26.6235,5.0671 26.6155,5.0782 26.5984,5.0806 26.5799,5.0743 26.5682,5.0596 26.5614,5.0671 26.5542,5.0598 26.5415,5.0531 26.5283,5.0481 26.5198,5.0460 26.5025,5.0475 26.4752,5.0573 26.4627,5.0596 26.4607,5.0660 26.4419,5.1043 26.4294,5.1138 26.4143,5.1227 26.4001,5.1336 26.3906,5.1490 26.3694,5.1406 26.3627,5.1360 26.3533,5.1478 26.3364,5.1486 26.3173,5.1464 26.2918,5.1510 26.2725,5.1591 26.2540,5.1723 26.2466,5.1900 26.2421,5.1881 26.2307,5.1852 26.2262,5.1831 26.2257,5.1990 26.2262,5.2043 26.2136,5.1991 26.2072,5.2077 26.1983,5.2384 26.1952,5.2348 26.1845,5.2253 26.1817,5.2296 26.1753,5.2337 26.1709,5.2384 26.1573,5.2325 26.1508,5.2400 26.1442,5.2518 26.1300,5.2589 26.1251,5.2486 26.1196,5.2415 26.1125,5.2384 26.1045,5.2386 26.0984,5.2396 26.0934,5.2414 26.0884,5.2446 26.0917,5.2191 26.0952,5.2111 26.0860,5.2152 26.0771,5.2163 26.0705,5.2122 26.0678,5.2008 26.0627,5.2001 26.0510,5.2002 26.0374,5.1980 26.0269,5.1900 26.0139,5.1992 25.9966,5.2192 25.9860,5.2253 25.9719,5.2277 25.9628,5.2245 25.9584,5.2148 25.9586,5.1974 25.9432,5.2041 25.9256,5.2018 25.9125,5.1904 25.9109,5.1701 25.8930,5.1852 25.8836,5.2035 25.8724,5.2171 25.8494,5.2179 25.8460,5.2117 25.8362,5.2000 25.8261,5.1947 25.8190,5.2146 25.8142,5.2216 25.8114,5.2309 25.8146,5.2446 25.8102,5.2427 25.7994,5.2401 25.7947,5.2384 25.7923,5.2628 25.7784,5.2691 25.7693,5.2652 25.7811,5.2589 25.7717,5.2455 25.7580,5.2444 25.7437,5.2506 25.7328,5.2589 25.7051,5.2896 25.6911,5.2998 25.6689,5.3061 25.6676,5.3072 25.6631,5.3092 25.6558,5.3178 25.6501,5.3203 25.6379,5.3180 25.6311,5.3118 25.6234,5.3099 25.6092,5.3203 25.6092,5.3265 25.6142,5.3299 25.6172,5.3336 25.6198,5.3372 25.6229,5.3408 25.6005,5.3405 25.5923,5.3492 25.5890,5.3623 25.5813,5.3749 25.5751,5.3749 25.5618,5.3730 25.5437,5.3753 25.5328,5.3722 25.5408,5.3544 25.5290,5.3519 25.5045,5.3423 25.4956,5.3445 25.4849,5.3553 25.4820,5.3569 25.4799,5.3532 25.4569,5.3406 25.4351,5.3287 25.4134,5.3236 25.3957,5.3340 25.3854,5.3215 25.3707,5.3168 25.3637,5.3106 25.3765,5.2930 25.3559,5.2864 25.3434,5.2719 25.3372,5.2517 25.3355,5.2284 25.3289,5.2160 25.3162,5.2022 25.3077,5.1853 25.3145,5.1633 25.3215,5.1592 25.3412,5.1556 25.3486,5.1490 25.3493,5.1417 25.3438,5.1219 25.3424,5.1115 25.3392,5.1052 25.3250,5.0881 25.3219,5.0770 25.3210,5.0523 25.3168,5.0423 25.3076,5.0323 25.2923,5.0283 25.2485,5.0241 25.2393,5.0155 25.2275,5.0096 25.1637,5.0056 25.1546,5.0093 25.1476,5.0141 25.1402,5.0180 25.1295,5.0186 25.1217,5.0086 25.1143,5.0018 25.1053,4.9988 25.1009,4.9946 25.0905,4.9745 25.0848,4.9542 25.0761,4.9518 25.0406,4.9621 25.0065,4.9809 24.9694,4.9914 24.9581,4.9914 24.9509,4.9877 24.9324,4.9744 24.9271,4.9715 24.9044,4.9668 24.8682,4.9444 24.8483,4.9367 24.8369,4.9377 24.8277,4.9419 24.8195,4.9445 24.8110,4.9404 24.8001,4.9289 24.7894,4.9199 24.7783,4.9185 24.7664,4.9299 24.7498,4.9187 24.7306,4.9175 24.6644,4.9244 24.6542,4.9294 24.6574,4.9398 24.6708,4.9572 24.6569,4.9673 24.6275,4.9769 24.6155,4.9851 24.6100,4.9967 24.6101,5.0167 24.6012,5.0261 24.5886,5.0311 24.5634,5.0349 24.5535,5.0391 24.5474,5.0465 24.5387,5.0656 24.5330,5.0733 24.5137,5.0872 24.4872,5.1008 24.4596,5.1074 24.4367,5.1006 24.4331,5.0893 24.4335,5.0755 24.4307,5.0674 24.4169,5.0733 24.4115,5.0819 24.4016,5.1115 24.3964,5.1223 24.3825,5.1079 24.3678,5.0845 24.3612,5.0629 24.3720,5.0534 24.3969,5.0482 24.3986,5.0360 24.3861,5.0224 24.3685,5.0124 24.2966,5.0033 24.2865,4.9951 24.2846,4.9924 24.2730,4.9640 24.2697,4.9525 24.2696,4.9432 24.2677,4.9357 24.2592,4.9299 24.2530,4.9299 24.2462,4.9541 24.2298,4.9612 24.2096,4.9562 24.1909,4.9442 24.1629,4.9078 24.1528,4.9026 24.1392,4.9054 24.1199,4.9189 24.1084,4.9231 24.0896,4.9202 24.0725,4.9103 24.0469,4.8889 23.9958,4.8651 23.9780,4.8541 23.9631,4.8687 23.9571,4.8708 23.9508,4.8678 23.9465,4.8616 23.9432,4.8517 23.9428,4.8405 23.9474,4.8306 23.9483,4.8177 23.9244,4.8178 23.8819,4.8269 23.8747,4.8250 23.8644,4.8161 23.8552,4.8132 23.8479,4.8140 23.8282,4.8193 23.8167,4.8206 23.7985,4.8147 23.7600,4.7874 23.7379,4.7791 23.6928,4.7734 23.6727,4.7672 23.6340,4.7451 23.5880,4.7339 23.5666,4.7244 23.5061,4.6764 23.4884,4.6698 23.4651,4.6672 23.4483,4.6594 23.4372,4.6466 23.4300,4.6288 23.4283,4.6173 23.4284,4.6086 23.4274,4.6013 23.4226,4.5941 23.4145,4.5908 23.3960,4.5916 23.3884,4.5873 23.3712,4.5973 23.3540,4.6036 23.3359,4.6068 23.3164,4.6077 23.3130,4.6102 23.3020,4.6217 23.2996,4.6251 23.2951,4.6276 23.2731,4.6320 23.2649,4.6351 23.2518,4.6630 23.2242,4.6801 23.2208,4.6835 23.2086,4.6905 23.1837,4.7253 23.1687,4.7381 23.1239,4.7156 23.0994,4.7117 23.0774,4.7211 23.0666,4.7302 23.0552,4.7378 23.0428,4.7430 23.0293,4.7449 23.0173,4.7505 23.0111,4.7636 23.0072,4.7784 22.9962,4.7995 22.9857,4.8264 22.9774,4.8343 22.9650,4.8353 22.9530,4.8308 22.9415,4.8247 22.9297,4.8206 22.9152,4.8212 22.9059,4.8242 22.8984,4.8236 22.8888,4.8132 22.8829,4.8007 22.8824,4.7885 22.8868,4.7767 22.8956,4.7654 22.8873,4.7555 22.8653,4.7387 22.8538,4.7113 22.8373,4.7142 22.8181,4.7246 22.8029,4.7306 22.7860,4.7246 22.7764,4.7101 22.7652,4.6760 22.7574,4.6608 22.7487,4.6483 22.7379,4.6378 22.7236,4.6288 22.7238,4.6170 22.7298,4.5967 22.7311,4.5873 22.7287,4.5803 22.7190,4.5628 22.7168,4.5565 22.7137,4.5512 22.7001,4.5411 22.6970,4.5357 22.6971,4.5120 22.6951,4.5015 22.6895,4.4917 22.6756,4.4847 22.6544,4.4828 22.6103,4.4842 22.5924,4.4737 22.5870,4.4494 22.5890,4.4220 22.5940,4.4023 22.6113,4.3819 22.6137,4.3744 22.6093,4.3634 22.5999,4.3526 22.5880,4.3442 22.5765,4.3408 22.5686,4.3315 22.5393,4.2782 22.5397,4.2669 22.5457,4.2459 22.5461,4.2372 22.5405,4.2273 22.5222,4.2113 22.5182,4.2068 22.5105,4.1913 22.4927,4.1740 22.4574,4.1491 22.4515,4.1467 22.4538,4.1448 22.4746,4.1317 22.4943,4.1227 22.5363,4.1132 22.5467,4.1092 22.5627,4.0998 22.6858,3.9998 22.6914,3.9968 22.7014,3.9931 22.7132,3.9899 22.7363,3.9894 22.7466,3.9881 22.7550,3.9827 22.7675,3.9179 22.7788,3.9018 22.7911,3.8913 22.8034,3.8845 22.8356,3.8727 22.8397,3.8659 22.8867,3.8554 22.9089,3.8545 22.9772,3.8787 22.9860,3.8893 23.0060,3.8826 23.0392,3.8607 23.0724,3.8856 23.0839,3.8887 23.1185,3.8905 23.1341,3.8946 23.1491,3.9023 23.1610,3.8936 23.1705,3.8896 23.1801,3.8886 23.1929,3.8887 23.2042,3.8855 23.2158,3.8713 23.2420,3.8628 23.2726,3.8394 23.2890,3.8340 23.3002,3.8329 23.3149,3.8283 23.3337,3.8250 23.3404,3.8204 23.3455,3.8157 23.3509,3.8135 23.3730,3.8194 23.3915,3.8306 23.4084,3.8375 23.4259,3.8306 23.4311,3.8302 23.4706,3.8197 23.4820,3.8193 23.4927,3.8204 23.5027,3.8230 23.5100,3.8214 23.5122,3.8169 23.5106,3.8012 23.5038,3.7746 23.4973,3.7582 23.4920,3.7486 23.4852,3.7384 23.4754,3.7277 23.4419,3.6997 23.4314,3.6883 23.3924,3.6368 23.3814,3.6253 23.3696,3.6172 23.3569,3.6119 23.3452,3.6114 23.3337,3.6159 23.3130,3.6332 23.3009,3.6387 23.2890,3.6408 23.2774,3.6416 23.2545,3.6402 23.2425,3.6415 23.2301,3.6457 23.2178,3.6546 23.2065,3.6645 23.1943,3.6723 23.1828,3.6755 23.1713,3.6750 23.1598,3.6695 23.1373,3.6519 23.0496,3.5577 23.0378,3.5496 23.0161,3.5400 23.0065,3.5371 22.9978,3.5358 22.9869,3.5352 22.9693,3.5364 22.9291,3.5442 22.9168,3.5406 22.9044,3.5335 22.8909,3.5241 22.8633,3.5092 22.8509,3.5045 22.7762,3.4861 22.6786,3.4528 22.6682,3.4461 22.6584,3.4374 22.6510,3.4270 22.6415,3.4165 22.6339,3.4023 22.6274,3.3860 22.6276,3.3650 22.6316,3.3478 22.6434,3.3302 22.6557,3.3198 22.6679,3.3133 22.6797,3.3095 22.7300,3.3001 22.7533,3.2928 22.7646,3.2873 22.7761,3.2801 22.7864,3.2677 22.7941,3.2510 22.7978,3.2240 22.7977,3.2053 22.7795,3.0890 22.7801,3.0634 22.7832,3.0479 22.7883,3.0328 22.7997,3.0131 22.8065,3.0041 22.8116,2.9992 22.8180,2.9964 22.8279,2.9949 22.8377,2.9956 22.8458,2.9986 22.8503,3.0011 22.8555,3.0051 22.8743,3.0233 22.9542,3.1223 22.9764,3.1427 22.9973,3.1586 23.0043,3.1627 23.0148,3.1671 23.0261,3.1703 23.0385,3.1720 23.0503,3.1707 23.0614,3.1662 23.0714,3.1549 23.0782,3.1389 23.0799,3.1127 23.0782,3.0943 23.0746,3.0773 23.0636,3.0461 23.0351,2.9887 23.0306,2.9770 23.0275,2.9643 23.0239,2.9278 23.0200,2.9163 23.0144,2.9046 22.9958,2.8790 22.9897,2.8685 22.9860,2.8574 22.9852,2.8379 22.9963,2.7491 22.9935,2.7317 22.9716,2.6960 22.9656,2.6838 22.9643,2.6695 22.9690,2.6531 22.9826,2.6294 23.0389,2.5581 23.0640,2.5326 23.0771,2.5231 23.0889,2.5162 23.0998,2.5111 23.1165,2.5055 23.1271,2.5036 23.1384,2.5029 23.1511,2.5034 23.2939,2.5334 23.3103,2.5351 23.3316,2.5341 23.3413,2.5317 23.3490,2.5285 23.3600,2.5220 23.3702,2.5138 23.3786,2.5057 23.3826,2.5009 23.3907,2.4887 23.4094,2.4658 23.4224,2.4539 23.4470,2.4373 23.5420,2.3930 23.6149,2.3400 23.6253,2.3296 23.6331,2.3105 23.6392,2.2859 23.6478,2.2139 23.6469,2.1949 23.6387,2.1865 23.6285,2.1835 23.6165,2.1841 23.6052,2.1862 23.5938,2.1895 23.5335,2.2166 23.5100,2.2232 23.3547,2.2505 23.3432,2.2492 23.3305,2.2442 23.2251,2.1649 23.1299,2.1083 23.1052,2.0977 23.0914,2.0959 23.0787,2.0973 23.0668,2.1021 23.0551,2.1103 22.9927,2.1769 22.9877,2.1810 22.9826,2.1835 22.9775,2.1839 22.9744,2.1827 22.9724,2.1795 22.9721,2.1734 22.9725,2.1644 22.9716,2.1605 22.9688,2.1574 22.9640,2.1569 22.9537,2.1576 22.9498,2.1567 22.9478,2.1558 22.9452,2.1538 22.9368,2.1493 22.9357,2.1456 22.9351,2.1388 22.9367,2.1258 22.9362,2.1200 22.9343,2.1152 22.9257,2.1043 22.9221,2.1012 22.9178,2.0989 22.9125,2.0983 22.9071,2.0990 22.9019,2.1003 22.8968,2.1009 22.8920,2.1001 22.8886,2.0981 22.8873,2.0957 22.8867,2.0904 22.8872,2.0760 22.8865,2.0724 22.8845,2.0690 22.8822,2.0675 22.8803,2.0668 22.8698,2.0654 22.8662,2.0633 22.8650,2.0610 22.8639,2.0564 22.8634,2.0514 22.8614,2.0477 22.8596,2.0464 22.8531,2.0457 22.8493,2.0446 22.8462,2.0418 22.8415,2.0344 22.8392,2.0324 22.8360,2.0311 22.8184,2.0314 22.8125,2.0308 22.8080,2.0289 22.7994,2.0236 22.7886,2.0191 22.7723,2.0156 22.7624,2.0118 22.7588,2.0111 22.7564,2.0112 22.7523,2.0125 22.7486,2.0149 22.7449,2.0180 22.7382,2.0250 22.7344,2.0280 22.7298,2.0304 22.7247,2.0318 22.7191,2.0324 22.7137,2.0322 22.7097,2.0316 22.7070,2.0316 22.7038,2.0333 22.6983,2.0377 22.6909,2.0466 22.6715,2.0783 22.6648,2.0867 22.6584,2.0918 22.6524,2.0955 22.6091,2.1139 22.5959,2.1172 22.5849,2.1164 22.5761,2.1101 22.5742,2.0987 22.5753,2.0856 22.5824,2.0593 22.5818,2.0445 22.5798,2.0330 22.5179,1.9170 22.5110,1.8972 22.4867,1.7342 22.4778,1.7072 22.4721,1.6944 22.4651,1.6820 22.4561,1.6704 22.4331,1.6470 22.4080,1.6256 22.3349,1.5793 22.3129,1.5576 22.3048,1.5458 22.2985,1.5344 22.2937,1.5235 22.2909,1.5134 22.2899,1.5059 22.2932,1.5018 22.2947,1.5005 22.2966,1.5003 22.3228,1.5044 22.3257,1.5043 22.3301,1.5032 22.3435,1.4987 22.3451,1.4985 22.3472,1.4988 22.3495,1.4994 22.3518,1.5004 22.3529,1.5010 22.3593,1.5040 22.3632,1.5044 22.3656,1.5040 22.3776,1.4974 22.3818,1.4965 22.3850,1.4963 22.3939,1.4970 22.3970,1.4968 22.4014,1.4957 22.4159,1.4905 22.4276,1.4897 22.4341,1.4882 22.4396,1.4847 22.4463,1.4782 22.4515,1.4741 22.4612,1.4689 22.4661,1.4671 22.4712,1.4658 22.4826,1.4655 22.4881,1.4645 22.4926,1.4621 22.5034,1.4517 22.5070,1.4492 22.5346,1.4360 22.5428,1.4304 22.5610,1.4085 22.5652,1.4045 22.5737,1.3994 22.5798,1.3946 22.5868,1.3878 22.5984,1.3735 22.6065,1.3676 22.6139,1.3644 22.6217,1.3583 22.6299,1.3472 22.6563,1.2844 22.6653,1.2703 22.6790,1.2351 22.6876,1.2244 22.6985,1.2141 22.7031,1.2080 22.7295,1.1641 22.7369,1.1427 22.7458,1.1230 22.7520,1.1031 22.7545,1.0982 22.7581,1.0938 22.7646,1.0884 22.7692,1.0819 22.7733,1.0694 22.7748,1.0607 22.7781,1.0508 22.7832,1.0411 22.8082,1.0076 22.8118,0.9998 22.8163,0.9847 22.8177,0.9753 22.8177,0.9674 22.8132,0.9515 22.8125,0.9456 22.8127,0.9395 22.8195,0.9135 22.8189,0.9069 22.8177,0.9014 22.8172,0.8967 22.8187,0.8915 22.8310,0.8638 22.8378,0.8429 22.8540,0.8092 22.8585,0.7940 22.8538,0.7633 22.8510,0.7085 22.8532,0.6969 22.8589,0.6785 22.8709,0.6601 22.8975,0.6259 22.9140,0.6082 22.9184,0.6007 22.9306,0.5661 22.9388,0.5101 22.9464,0.4789 22.9732,0.4137 22.9972,0.3759 23.0717,0.2889 23.0836,0.2718 23.0894,0.2590 23.1230,0.1840 23.1423,0.1538 23.2473,0.0323 23.3969,-0.1898 23.4067,-0.2148 23.4091,-0.2323 23.4056,-0.2481 23.3949,-0.2595 23.3834,-0.2652 23.3715,-0.2686 23.3469,-0.2731 23.3348,-0.2778 23.3238,-0.2868 23.3148,-0.2975 23.3048,-0.3075 23.2931,-0.3137 23.2799,-0.3151 23.2663,-0.3136 23.2532,-0.3102 23.1904,-0.2857 23.1669,-0.2790 23.1552,-0.2777 23.1420,-0.2784 23.1300,-0.2822 23.1174,-0.2885 23.0922,-0.3059 22.9842,-0.3969 22.9794,-0.4035 22.9846,-0.4070 22.9936,-0.4092 23.1927,-0.4226 23.2056,-0.4265 23.2180,-0.4344 23.2394,-0.4694 23.2497,-0.4830 23.2666,-0.4905 23.2811,-0.4917 23.2953,-0.4899 23.4334,-0.4400 23.4452,-0.4380 23.4611,-0.4459 23.4799,-0.4635 23.5746,-0.5863 23.6177,-0.6254 23.6236,-0.6359 23.6211,-0.6467 23.6129,-0.6559 23.6016,-0.6628 23.5890,-0.6671 23.5609,-0.6724 23.5114,-0.6863 23.4945,-0.6939 23.3724,-0.7866 23.3659,-0.7990 23.3673,-0.8140 23.3826,-0.8370 23.4069,-0.8649 23.5687,-0.9994 23.6537,-1.0372 23.7057,-1.0688 23.7192,-1.0795 23.7318,-1.0920 23.7459,-1.1144 23.7613,-1.1563 23.7679,-1.1673 23.7780,-1.1774 23.8235,-1.1965 23.8359,-1.2036 23.9843,-1.3254 24.0700,-1.3723 24.0932,-1.3808 24.1171,-1.3864 24.1410,-1.3891 24.2676,-1.3816 24.2802,-1.3830 24.2930,-1.3895 24.3051,-1.4016 24.3396,-1.4746 24.3642,-1.5138 24.3713,-1.5302 24.3900,-1.5930 24.4215,-1.7868 24.0828,-1.7462 24.0400,-1.7488 24.0120,-1.7537 23.9987,-1.7612 23.9860,-1.7650 23.9289,-1.7672 23.8842,-1.7647 23.8503,-1.7662 23.8277,-1.7693 23.8126,-1.7754 23.8015,-1.7836 23.7917,-1.7943 23.7858,-1.8066 23.7833,-1.8192 23.7824,-1.8836 23.7738,-1.8963 23.7583,-1.9109 23.7183,-1.9308 23.7011,-1.9507 23.6932,-1.9665 23.6939,-2.0023 23.6925,-2.0079 23.6888,-2.0152 23.6782,-2.0184 23.6661,-2.0184 23.5928,-2.0068 23.5682,-2.0054 23.5426,-2.0061 23.2633,-2.0609 23.2531,-2.0672 23.2407,-2.0733 23.2242,-2.0783 23.2113,-2.0736 23.2008,-2.0639 23.1632,-2.0004 23.1536,-1.9871 23.1344,-1.9650 23.1219,-1.9548 23.1095,-1.9467 23.0971,-1.9403 23.0816,-1.9359 23.0625,-1.9327 23.0313,-1.9311 23.0129,-1.9321 23.0006,-1.9338 22.9441,-1.9579 22.9382,-1.9593 22.9340,-1.9572 22.9091,-1.9142 22.9059,-1.9105 22.9024,-1.9070 22.8706,-1.8840 22.8476,-1.8725 22.8370,-1.8692 22.8328,-1.8668 22.8251,-1.8610 22.8203,-1.8586 22.8152,-1.8569 22.8096,-1.8559 22.7702,-1.8540 22.7643,-1.8529 22.7595,-1.8508 22.7553,-1.8477 22.7517,-1.8444 22.7435,-1.8388 22.7103,-1.8239 22.6917,-1.8117 22.6827,-1.8083 22.6768,-1.8075 22.6732,-1.8075 22.6691,-1.8085 22.6589,-1.8101 22.6456,-1.8140 22.6408,-1.8134 22.6363,-1.8106 22.6318,-1.8084 22.6243,-1.8087 22.6066,-1.8277 22.5476,-1.9247 22.5366,-1.9382 22.5259,-1.9474 22.5095,-1.9561 22.4971,-1.9588 22.4795,-1.9598 22.3278,-1.9499 22.2817,-1.9419 22.1835,-1.9123 22.1761,-1.9139 22.1721,-1.9167 22.1693,-1.9215 22.1689,-1.9245 22.1687,-1.9308 22.1699,-1.9417 22.1739,-1.9553 22.2074,-2.0362 22.2165,-2.0762 22.2290,-2.1801 22.2916,-2.4031 22.2926,-2.4185 22.2885,-2.4356 22.2783,-2.4510 22.2541,-2.4672 22.2356,-2.4709 22.2193,-2.4680 22.2089,-2.4608 22.1990,-2.4512 22.1920,-2.4403 22.1874,-2.4269 22.1855,-2.4116 22.1905,-2.3393 22.1881,-2.3231 22.1830,-2.3073 22.1767,-2.2966 22.1676,-2.2877 22.1574,-2.2835 22.1383,-2.2824 22.1239,-2.2881 22.1101,-2.2992 22.0820,-2.3388 22.0732,-2.3486 22.0460,-2.3719 22.0233,-2.3857 21.9698,-2.4117 21.9586,-2.4221 21.9194,-2.4745 21.9149,-2.4793 21.8991,-2.4904 21.8883,-2.4966 21.8303,-2.5229 21.8217,-2.5219 21.8157,-2.5202 21.8111,-2.5173 21.7781,-2.5028 21.7727,-2.4990 21.7589,-2.4869 21.7507,-2.4815 21.7409,-2.4774 21.7254,-2.4733 21.6866,-2.4574 21.6823,-2.4549 21.6658,-2.4439 21.6585,-2.4374 21.6497,-2.4256 21.6463,-2.4222 21.6416,-2.4200 21.6068,-2.4128 21.6020,-2.4107 21.5933,-2.4052 21.5709,-2.3854 21.5617,-2.3740 21.5549,-2.3671 21.5503,-2.3647 21.5452,-2.3631 21.5217,-2.3588 21.5117,-2.3550 21.4799,-2.3390 21.4748,-2.3390 21.4703,-2.3421 21.4655,-2.3548 21.4540,-2.4566 21.4414,-2.4693 21.4168,-2.4800 21.3226,-2.4987 21.3115,-2.5027 21.2880,-2.5089 21.2574,-2.5118 21.1821,-2.5106 21.0071,-2.4888 20.9686,-2.5615 20.9635,-2.5781 20.9601,-2.5943 20.9584,-2.6171 20.9598,-2.6565 20.9576,-2.6703 20.9522,-2.6869 20.9394,-2.7109 20.9267,-2.7276 20.8781,-2.7767 20.8414,-2.8275 20.6647,-3.2803 20.6552,-3.3269 20.6424,-3.5084 20.6640,-3.7455 20.6609,-3.8652 20.6690,-3.9222 20.6777,-4.0938 20.6755,-4.1111 20.6709,-4.1308 20.6612,-4.1469 20.6580,-4.1499 20.6446,-4.1534 20.6380,-4.1622 20.6339,-4.1732 20.6279,-4.1840 20.5991,-4.2081 20.5601,-4.2288 20.5170,-4.2442 20.4758,-4.2523 20.4606,-4.2532 20.4485,-4.2591 20.4476,-4.2622 20.4468,-4.2685 20.4451,-4.2753 20.4417,-4.2803 20.4349,-4.2817 20.4286,-4.2789 20.4228,-4.2748 20.4174,-4.2728 20.3939,-4.2782 20.3768,-4.2925 20.3655,-4.3124 20.3591,-4.3349 20.3566,-4.3657 20.3523,-4.3759 20.3424,-4.3893 20.3365,-4.3903 20.3292,-4.3858 20.3153,-4.3827 20.2938,-4.3861 20.2791,-4.3915 20.2662,-4.3906 20.2505,-4.3759 20.2322,-4.3453 20.2216,-4.3329 20.2021,-4.3206 20.1846,-4.3291 20.1653,-4.3154 20.1338,-4.2803 20.1087,-4.2733 20.0565,-4.2767 20.0454,-4.2751 20.0379,-4.2848 20.0365,-4.2895 20.0357,-4.2962 20.0356,-4.3047 20.0404,-4.3467 20.0425,-4.3541 20.0453,-4.3599 20.0592,-4.3736 20.0621,-4.3776 20.0646,-4.3820 20.0748,-4.4062 20.0855,-4.4231 20.0877,-4.4277 20.0891,-4.4346 20.0900,-4.4561 20.0911,-4.4641 20.0930,-4.4706 20.0958,-4.4747 20.0995,-4.4779 20.1079,-4.4833 20.1115,-4.4866 20.1147,-4.4907 20.1172,-4.4946 20.1186,-4.4981 20.1184,-4.5008 20.1172,-4.5042 20.1032,-4.5320 20.1007,-4.5352 20.0992,-4.5368 20.0866,-4.5438 20.0835,-4.5458 20.0818,-4.5476 20.0796,-4.5511 20.0652,-4.5915 20.0638,-4.5983 20.0634,-4.6100 20.0651,-4.6307 20.0643,-4.6654 20.0603,-4.6761 20.0578,-4.6803 20.0553,-4.6840 20.0545,-4.6893 20.0527,-4.7287 20.0554,-4.7658 20.0575,-4.7732 20.0596,-4.7779 20.0624,-4.7821 20.0727,-4.7925 20.0784,-4.8006 20.0824,-4.8102 20.0885,-4.8385 20.0903,-4.8434 20.0950,-4.8526 20.0967,-4.8579 20.1081,-4.9291 20.1113,-4.9395 20.1157,-4.9491 20.1184,-4.9532 20.1459,-4.9874 20.1476,-4.9927 20.1476,-4.9991 20.1443,-5.0082 20.1425,-5.0162 20.1415,-5.0249 20.1440,-5.0379 20.1468,-5.0451 20.1504,-5.0505 20.1611,-5.0604 20.1642,-5.0643 20.1664,-5.0689 20.1706,-5.0852 20.1748,-5.0948 20.1763,-5.0999 20.1779,-5.1114 20.1900,-5.1472 20.1910,-5.1546 20.1954,-5.2685 20.1943,-5.2733 20.1897,-5.2780 20.1853,-5.2809 20.1796,-5.2841 20.1779,-5.2853 20.1766,-5.2869 20.1693,-5.3130 20.1659,-5.3211 20.1625,-5.3270 20.1567,-5.3339 20.1530,-5.3397 20.1512,-5.3438 20.1498,-5.3499 20.1484,-5.3630 20.1501,-5.5518 20.1515,-5.5573 20.1532,-5.5623 20.1576,-5.5716 20.1604,-5.5758 20.1645,-5.5854 20.1697,-5.6011 20.1748,-5.6097 20.1768,-5.6144 20.1779,-5.6199 20.1785,-5.6256 20.1796,-5.6312 20.1811,-5.6502 20.1797,-5.6700 20.1779,-5.6805 20.1734,-5.6900 20.1697,-5.6963 20.1681,-5.7268 20.1658,-5.7359 20.1604,-5.7503 20.1532,-5.7641 20.1507,-5.7676 20.1395,-5.7785 20.1277,-5.7870 20.1222,-5.7924 20.1203,-5.7950 20.1181,-5.8016 20.1096,-5.8380 20.1087,-5.8391 20.1026,-5.8444 20.0858,-5.8554 20.0812,-5.8574 20.0592,-5.8625 20.0553,-5.8642 20.0534,-5.8653 20.0480,-5.8715 20.0447,-5.8771 20.0399,-5.8907 20.0371,-5.8972 20.0328,-5.9041 20.0317,-5.9069 20.0228,-5.9364 20.0208,-5.9398 20.0190,-5.9420 20.0087,-5.9504 20.0059,-5.9535 20.0047,-5.9554 20.0032,-5.9583 20.0021,-5.9597 20.0002,-5.9619 19.9949,-5.9659 19.9865,-5.9705 19.9812,-5.9744 19.9744,-5.9807 19.9667,-5.9863 19.9619,-5.9882 19.9567,-5.9891 19.9400,-5.9867 19.9340,-5.9868 19.9288,-5.9877 19.9249,-5.9897 19.9231,-5.9914 19.9147,-6.0031 19.9120,-6.0059 19.9085,-6.0079 19.9043,-6.0071 19.8948,-6.0027 19.8893,-6.0018 19.8866,-6.0018 19.8841,-6.0032 19.8826,-6.0053 19.8754,-6.0182 19.8728,-6.0221 19.8689,-6.0252 19.8641,-6.0272 19.8464,-6.0302 19.8415,-6.0321 19.8379,-6.0354 19.8232,-6.0554 19.8102,-6.0683 19.8061,-6.0708 19.7961,-6.0748 19.7919,-6.0775 19.7884,-6.0808 19.7820,-6.0883 19.7780,-6.0911 19.7681,-6.0949 19.7548,-6.1032 19.7449,-6.1069 19.7409,-6.1098 19.7378,-6.1138 19.7355,-6.1183 19.7325,-6.1223 19.7153,-6.1396 19.7029,-6.1477 19.6994,-6.1513 19.6974,-6.1562 19.6942,-6.1736 19.6911,-6.1837 19.6898,-6.1900 19.6898,-6.1980 19.7294,-6.5495 19.7480,-6.5913 19.8056,-6.6845 19.9181,-6.8199 19.9332,-6.8462 19.9409,-6.8642 19.9513,-6.9057 19.9591,-6.9696 19.9628,-7.0019 19.9815,-7.0019 19.9941,-7.0019 20.0361,-7.0019 20.0782,-7.0019 20.1201,-7.0019 20.1621,-7.0019 20.2041,-7.0019 20.2462,-7.0019 20.2943,-7.0019 20.2942,-6.9875 20.2986,-6.9545 20.3032,-6.9401 20.3112,-6.9251 20.3195,-6.9185 20.3311,-6.9168 20.3837,-6.9167 20.4673,-6.9164 20.5537,-6.9162 20.6115,-6.9160 20.5881,-6.9768 20.5609,-7.0478 20.5454,-7.0886 20.5245,-7.1431 20.5183,-7.1897 20.5194,-7.2372 20.5205,-7.2864 20.5670,-7.2862 20.6398,-7.2860 20.7126,-7.2859 20.7852,-7.2855 20.8580,-7.2853 20.9307,-7.2852 21.0035,-7.2849 21.0763,-7.2847 21.1489,-7.2846 21.2218,-7.2844 21.2943,-7.2842 21.3671,-7.2840 21.4400,-7.2838 21.5126,-7.2836 21.5855,-7.2834 21.6582,-7.2832 21.6828,-7.2831 21.7846,-7.2869 21.7883,-7.2918 21.7948,-7.2940 21.8025,-7.2989 21.8088,-7.3064 21.8314,-7.3542 21.8369,-7.3606 21.8424,-7.3699 21.8399,-7.3782 21.8350,-7.3853 21.8329,-7.3908 21.8387,-7.4020 21.8457,-7.4091 21.8516,-7.4165 21.8541,-7.4289 21.8530,-7.4350 21.8478,-7.4441 21.8467,-7.4491 21.8489,-7.4548 21.8586,-7.4640 21.8609,-7.4698 21.8591,-7.4826 21.8500,-7.5029 21.8467,-7.5143 21.8459,-7.5268 21.8482,-7.5330 21.8515,-7.5385 21.8541,-7.5484 21.8541,-7.5860 21.8508,-7.5936 21.8362,-7.6083 21.8329,-7.6142 21.8310,-7.6328 21.8266,-7.6456 21.8196,-7.6655 21.8079,-7.6994 21.7951,-7.7363 21.7872,-7.7586 21.7762,-7.7903 21.7705,-7.8068 21.7646,-7.8507 21.7709,-7.8765 21.7721,-7.8882 21.7688,-7.8999 21.7544,-7.9196 21.7511,-7.9292 21.7539,-7.9973 21.7585,-8.0151 21.7682,-8.0232 21.7996,-8.0409 21.8063,-8.0524 21.8085,-8.0767 21.8151,-8.0968 21.8260,-8.1144 21.8512,-8.1435 21.8573,-8.1569 21.8602,-8.1738 21.8625,-8.2164 21.8732,-8.2641 21.8814,-8.2821 21.9106,-8.3105 21.9206,-8.3290 21.9053,-8.3373 21.8999,-8.3488 21.9115,-8.3743 21.9360,-8.4130 21.9439,-8.4559 21.9400,-8.4999 21.9162,-8.5768 21.9213,-8.5786 21.9244,-8.5808 21.9284,-8.5825 21.9360,-8.5831 21.9178,-8.6152 21.9069,-8.6455 21.8951,-8.7187 21.8848,-8.7823 21.8778,-8.7892 21.8701,-8.8223 21.8599,-8.8464 21.8517,-8.9259 21.8541,-8.9778 21.8397,-9.0924 21.8519,-9.1929 21.8516,-9.2338 21.8411,-9.2758 21.8102,-9.3381 21.8038,-9.3730 21.7933,-9.3935 21.7920,-9.4061 21.7962,-9.4171 21.8132,-9.4375 21.8199,-9.4477 21.8322,-9.4884 21.8437,-9.5762 21.8541,-9.6178 21.8789,-9.6571 21.9424,-9.7229 21.9565,-9.7618 21.9627,-9.7585 21.9782,-9.7522 21.9844,-9.7488 21.9863,-9.7811 21.9984,-9.8091 22.0558,-9.8754 22.0658,-9.8810 22.0728,-9.8789 22.0799,-9.8716 22.0910,-9.8771 22.1076,-9.8914 22.1463,-9.9157 22.1599,-9.9315 22.1676,-9.9537 22.1756,-9.9889 22.1961,-10.0436 22.2049,-10.0858 22.2097,-10.0982 22.2028,-10.1306 22.2211,-10.1762 22.2457,-10.2212 22.2635,-10.2682 22.2869,-10.3091 22.2955,-10.3393 22.3101,-10.3570 22.3134,-10.3686 22.3123,-10.3799 22.3071,-10.3996 22.3060,-10.4098 22.3011,-10.4249 22.2787,-10.4610 22.2718,-10.4817 22.2740,-10.5030 22.2840,-10.5165 22.2964,-10.5297 22.3060,-10.5507 22.3095,-10.5929 22.3076,-10.6336 22.3101,-10.6688 22.3264,-10.6946 22.3210,-10.7007 22.3195,-10.7038 22.3224,-10.7422 22.3195,-10.7613 22.3097,-10.7698 22.2907,-10.7727 22.2659,-10.7799 22.2240,-10.7971 22.2060,-10.8099 22.1828,-10.8304 22.1655,-10.8524 22.1657,-10.8688 22.1748,-10.8843 22.1961,-10.9542 22.1961,-10.9923 22.1993,-10.9974 22.2140,-11.0079 22.2172,-11.0128 22.2206,-11.0300 22.2373,-11.0594 22.2438,-11.0783 22.2555,-11.1666 22.2520,-11.2086 22.2376,-11.2495 22.2631,-11.2482 22.2818,-11.2367 22.3257,-11.1903 22.3403,-11.1802 22.4403,-11.1469 22.4694,-11.1224 22.5010,-11.0424 22.5376,-11.0372 22.6136,-11.0675 22.6509,-11.0823 22.6890,-11.0930 22.7277,-11.0968 22.7642,-11.0905 22.7853,-11.0785 22.8069,-11.0631 22.8292,-11.0521 22.8531,-11.0531 22.8736,-11.0637 22.9112,-11.0883 22.9311,-11.0968 22.9696,-11.1025 23.0143,-11.1025 23.1147,-11.0855 23.1968,-11.0719 23.3065,-11.0117 23.3733,-10.9751 23.4154,-10.9633 23.4560,-10.9610 23.4948,-10.9643 23.5570,-10.9813 23.6416,-11.0045 23.6749,-11.0070 23.7141,-11.0039 23.7523,-11.0082 23.7937,-11.0211 23.8337,-11.0285 23.8674,-11.0164 23.8741,-11.0069 23.8818,-10.9845 23.8878,-10.9744 23.8973,-10.9665 23.9186,-10.9541 23.9280,-10.9454 23.9361,-10.9252 23.9406,-10.9016 23.9486,-10.8815 23.9675,-10.8723 23.9743,-10.9214 23.9806,-10.9383 24.0000,-10.9678 24.0037,-10.9825 23.9973,-11.0017 23.9937,-11.0196 23.9945,-11.0750 23.9901,-11.1135 23.9958,-11.1274 24.0153,-11.1305 24.0112,-11.2729 24.0170,-11.2984 24.0611,-11.3950 24.0617,-11.4070 24.0521,-11.4205 24.0208,-11.4446 24.0099,-11.4595 24.0076,-11.4705 24.0072,-11.4831 24.0098,-11.5072 24.0097,-11.5234 24.0054,-11.5352 23.9777,-11.5773 23.9599,-11.6172 23.9546,-11.6369 23.9546,-11.6622 23.9623,-11.6816 23.9727,-11.7006 23.9813,-11.7248 23.9855,-11.7995 23.9902,-11.8241 23.9885,-11.8342 23.9670,-11.8829 23.9610,-12.0117 23.9543,-12.1519 23.9596,-12.1967 23.9813,-12.2277 24.0066,-12.2537 24.0169,-12.2789 24.0210,-12.3400 24.0308,-12.3851 24.0280,-12.4021 24.0199,-12.4192 23.9861,-12.4677 23.9408,-12.5328 23.9287,-12.5616 23.9107,-12.6313 23.8917,-12.7051 23.8723,-12.7501 23.8657,-12.7897 23.8747,-12.8217 23.8951,-12.8498 23.9496,-12.9046 23.9718,-12.9334 23.9889,-12.9651 24.0006,-13.0015 23.9683,-13.0015 23.8442,-13.0015 23.7198,-13.0015 23.5956,-13.0015 23.4713,-13.0015 23.3469,-13.0015 23.2227,-13.0015 23.0984,-13.0015 22.9740,-13.0015 22.8498,-13.0015 22.7255,-13.0015 22.6012,-13.0015 22.4770,-13.0015 22.3528,-13.0015 22.2285,-13.0015 22.1042,-13.0015 21.9799,-13.0015 21.9800,-13.1522 21.9801,-13.3027 21.9802,-13.4535 21.9803,-13.6042 21.9804,-13.6948 21.9804,-13.7550 21.9805,-13.9056 21.9806,-14.0564 21.9807,-14.2069 21.9808,-14.3576 21.9809,-14.5084 21.9810,-14.6591 21.9811,-14.8098 21.9812,-14.9605 21.9813,-15.1112 21.9814,-15.2619 21.9815,-15.4125 21.9815,-15.4523 21.9815,-15.4735 21.9815,-15.5038 21.9815,-15.5478 21.9814,-15.6499 21.9812,-15.7520 21.9809,-15.8540 21.9808,-15.9561 21.9806,-16.0012 21.9815,-16.0040 21.9815,-16.0675 21.9815,-16.1282 21.9815,-16.1443 21.9838,-16.1659 22.0104,-16.1981 22.0452,-16.2523 22.0199,-16.2531 22.0117,-16.2523 22.0224,-16.2663 22.0260,-16.2790 22.0277,-16.2917 22.0322,-16.3063 22.0366,-16.3122 22.0486,-16.3224 22.0520,-16.3268 22.0537,-16.3365 22.0542,-16.3586 22.0558,-16.3646 22.0891,-16.3720 22.1056,-16.3794 22.1036,-16.3919 22.0943,-16.4047 22.0860,-16.4223 22.0807,-16.4410 22.0799,-16.4578 22.0846,-16.4702 22.1017,-16.4980 22.1073,-16.5123 22.1066,-16.5260 22.1040,-16.5367 22.1081,-16.5440 22.1273,-16.5464 22.1381,-16.5526 22.1425,-16.5671 22.1451,-16.5841 22.1517,-16.5977 22.2377,-16.6655 22.2513,-16.6700 22.2590,-16.6692 22.2741,-16.6636 22.2837,-16.6614 22.2874,-16.6583 22.2908,-16.6564 22.2956,-16.6592 22.3031,-16.6669 22.3070,-16.6692 22.3337,-16.6737 22.3435,-16.6832 22.3501,-16.6963 22.3658,-16.7169 22.3726,-16.7288 22.3780,-16.7348 22.3836,-16.7375 22.3996,-16.7404 22.4089,-16.7458 22.4166,-16.7545 22.4891,-16.8654 22.4997,-16.8935 22.5085,-16.9062 22.5229,-16.9147 22.5545,-16.9242 22.5672,-16.9369 22.5693,-16.9450 22.5692,-16.9624 22.5734,-16.9710 22.5793,-16.9753 22.5920,-16.9754 22.6517,-16.9987 22.6656,-17.0086 22.7105,-17.0554 22.7307,-17.0816 22.7448,-17.1083 22.7559,-17.1549 22.7652,-17.1696 22.7783,-17.1804 22.8094,-17.1964 22.8492,-17.2310 22.8762,-17.2481 22.9365,-17.2733 22.9842,-17.2858 22.9986,-17.2938 23.0404,-17.3371 23.0464,-17.3484 23.0541,-17.3753 23.0730,-17.4051 23.0976,-17.4322 23.1215,-17.4509 23.1657,-17.4674 23.1762,-17.4782 23.1791,-17.4942 23.1769,-17.5098 23.1775,-17.5240 23.1897,-17.5366 23.2070,-17.5412 23.2242,-17.5393 23.2413,-17.5351 23.2584,-17.5328 23.2908,-17.5354 23.3054,-17.5395 23.3202,-17.5464 23.3406,-17.5607 23.3594,-17.5829 23.3823,-17.6010 23.3751,-17.6154 23.3760,-17.6282 23.3817,-17.6411 23.4224,-17.6335 23.4574,-17.6268 23.4762,-17.6264 23.5060,-17.6205 23.5488,-17.6120 23.5918,-17.6035 23.6346,-17.5950 23.6772,-17.5867 23.7200,-17.5782 23.7628,-17.5697 23.8056,-17.5614 23.8485,-17.5529 23.8914,-17.5444 23.9342,-17.5360 23.9770,-17.5276 24.0196,-17.5191 24.0625,-17.5107 24.1053,-17.5022 24.1481,-17.4938 24.1909,-17.4853 24.2205,-17.4795 24.2388,-17.4782 24.2574,-17.4808 24.3103,-17.4826 24.3213,-17.4887 24.3294,-17.4851 24.3713,-17.4737 24.3889,-17.4713 24.4070,-17.4745 24.4493,-17.4891 24.4793,-17.4945 24.4982,-17.5035 24.5236,-17.5078 24.5317,-17.5134 24.5379,-17.5203 24.5465,-17.5265 24.5625,-17.5322 24.5712,-17.5335 24.5808,-17.5328 24.5913,-17.5284 24.6065,-17.5152 24.6174,-17.5092 24.6228,-17.5023 24.6297,-17.4955 24.6395,-17.4924 24.6844,-17.4924 24.7698,-17.5054 24.7751,-17.5076 24.7800,-17.5123 24.7868,-17.5169 24.7974,-17.5191 24.8295,-17.5177 24.8983,-17.5311 24.9249,-17.5430 24.9376,-17.5607 24.9580,-17.5517 24.9700,-17.5600 24.9711,-17.5607 24.9826,-17.5765 24.9985,-17.5880 25.0080,-17.5885 25.0267,-17.5827 25.0370,-17.5812 25.0406,-17.5845 25.0339,-17.6016 25.0339,-17.6085 25.0401,-17.6161 25.0453,-17.6200 25.0526,-17.6214 25.0642,-17.6215 25.0670,-17.6253 25.0852,-17.6409 25.0885,-17.6427 25.0969,-17.6722 25.0988,-17.6768 25.1080,-17.6789 25.1151,-17.6842 25.1200,-17.6911 25.1226,-17.6979 25.1314,-17.6865 25.1385,-17.6861 25.1533,-17.7010 25.1564,-17.7067 25.1553,-17.7194 25.1568,-17.7252 25.1612,-17.7294 25.1724,-17.7351 25.1778,-17.7388 25.1907,-17.7553 25.1982,-17.7584 25.2151,-17.7593 25.2289,-17.7625 25.2424,-17.7703 25.2535,-17.7815 25.2598,-17.7941 25.1942,-17.7823 25.1539,-17.7818 25.1209,-17.8135 25.0879,-17.8268 25.0570,-17.8277 25.0475,-17.8071 25.0197,-17.8238 25.0071,-17.8257 24.9985,-17.8140 24.9833,-17.8205 24.9751,-17.8163 24.9686,-17.8076 24.9581,-17.8009 24.9643,-17.7867 24.9533,-17.7884 24.9486,-17.7933 24.9452,-17.8000 24.9376,-17.8071 24.9311,-17.8105 24.8574,-17.8336 24.8381,-17.8350 24.8208,-17.8393 24.7974,-17.8581 24.7769,-17.8623 24.7707,-17.8655 24.7645,-17.8797 24.7560,-17.8828 24.7468,-17.8842 24.7382,-17.8876 24.7307,-17.8919 24.7253,-17.8959 24.6985,-17.9289 24.6641,-17.9499 24.6492,-17.9628 24.5986,-18.0208 24.5950,-18.0228 24.5918,-18.0284 24.5778,-18.0444 24.5746,-18.0504 24.5644,-18.0528 24.5184,-18.0573 24.5056,-18.0603 24.4715,-18.0300 24.4698,-18.0145 24.4651,-18.0087 24.4585,-18.0058 24.4510,-17.9990 24.4339,-17.9672 24.4216,-17.9565 24.3995,-17.9523 24.3653,-17.9508 24.3506,-17.9561 24.3343,-17.9716 24.3058,-18.0194 24.2964,-18.0262 24.2874,-18.0245 24.2701,-18.0158 24.2592,-18.0126 24.2382,-18.0099 24.2183,-18.0126 24.1831,-18.0294 24.1351,-18.0855 24.1016,-18.1088 24.0651,-18.1152 24.0570,-18.1190 24.0281,-18.1458 24.0203,-18.1516 23.9917,-18.1634 23.9797,-18.1719 23.9749,-18.1770 23.9712,-18.1839 23.9667,-18.1806 23.9620,-18.1779 23.9566,-18.1766 23.9508,-18.1776 23.9160,-18.2012 23.9129,-18.2357 23.8970,-18.2502 23.8675,-18.2694 23.8552,-18.2801 23.8372,-18.3058 23.8256,-18.3171 23.8098,-18.3217 23.7158,-18.4191 23.7009,-18.4280 23.6801,-18.4315 23.6565,-18.4583 23.6499,-18.4634 23.6454,-18.4660 23.6099,-18.4777 23.5922,-18.4782 23.5792,-18.4679 23.5713,-18.4260 23.5555,-18.3831 23.5466,-18.3695 23.5608,-18.3485 23.5515,-18.3275 23.5188,-18.2937 23.5273,-18.2777 23.5217,-18.2682 23.5113,-18.2603 23.5057,-18.2494 23.5015,-18.2375 23.4913,-18.2331 23.4778,-18.2309 23.4641,-18.2255 23.4588,-18.2176 23.4443,-18.2007 23.4294,-18.1885 23.4189,-18.1984 23.4103,-18.1974 23.4013,-18.1943 23.3958,-18.1914 23.3945,-18.1862 23.3963,-18.1694 23.3958,-18.1634 23.3897,-18.1533 23.3595,-18.1192 23.3481,-18.0944 23.3366,-18.0794 23.3338,-18.0740 23.3326,-18.0671 23.3338,-18.0433 23.3306,-18.0400 23.3233,-18.0392 23.3159,-18.0371 23.3127,-18.0300 23.3128,-18.0165 23.3115,-18.0098 23.3057,-18.0055 23.2928,-17.9990 23.2549,-17.9974 23.1858,-18.0031 23.0996,-18.0102 22.9814,-18.0200 22.8940,-18.0362 22.8097,-18.0519 22.7253,-18.0675 22.6409,-18.0832 22.5565,-18.0988 22.4721,-18.1145 22.3878,-18.1302 22.3035,-18.1458 22.2190,-18.1615 22.1346,-18.1772 22.0503,-18.1928 21.9660,-18.2086 21.8815,-18.2242 21.7971,-18.2399 21.7127,-18.2556 21.6285,-18.2712 21.5440,-18.2868 21.5270,-18.2900 21.5098,-18.2932 21.4929,-18.2964 21.4757,-18.2995 21.4568,-18.3002 21.4379,-18.3011 21.3909,-18.3029 21.3439,-18.3048 21.2968,-18.3066 21.2499,-18.3085 21.1935,-18.3108 21.1369,-18.3129 21.0806,-18.3152 21.0242,-18.3174 20.9751,-18.3193 20.9751,-18.3478 20.9751,-18.3886 20.9751,-18.4293 20.9751,-18.4701 20.9751,-18.5111 20.9751,-18.5520 20.9751,-18.5927 20.9751,-18.6335 20.9751,-18.6744 20.9751,-18.7152 20.9751,-18.7560 20.9751,-18.7968 20.9751,-18.8377 20.9751,-18.8784 20.9751,-18.9192 20.9751,-18.9600 20.9751,-19.0010 20.9755,-19.1259 20.9758,-19.2509 20.9763,-19.3758 20.9767,-19.5009 20.9770,-19.6258 20.9776,-19.7508 20.9780,-19.8758 20.9783,-20.0008 20.9787,-20.1259 20.9791,-20.2508 20.9794,-20.3758 20.9798,-20.5007 20.9802,-20.6258 20.9807,-20.7507 20.9811,-20.8758 20.9815,-21.0000 20.9815,-21.0007 20.9816,-21.0584 20.9819,-21.1161 20.9821,-21.1736 20.9822,-21.2312 20.9824,-21.2889 20.9826,-21.3464 20.9828,-21.4041 20.9830,-21.4618 20.9831,-21.5194 20.9835,-21.5770 20.9837,-21.6347 20.9839,-21.6924 20.9841,-21.7500 20.9843,-21.8076 20.9845,-21.8652 20.9847,-21.9228 20.9848,-21.9640 20.9720,-22.0007 20.9147,-22.0007 20.6806,-22.0007 20.4465,-22.0007 20.2124,-22.0007 19.9783,-22.0007 19.9784,-22.0868 19.9787,-22.2372 19.9789,-22.3876 19.9790,-22.5381 19.9792,-22.6886 19.9793,-22.8607 19.9796,-23.0325 19.9798,-23.2045 19.9799,-23.3086 19.9799,-23.3765 19.9801,-23.5486 19.9803,-23.7206 19.9805,-23.8925 19.9807,-24.0645 19.9808,-24.2366 19.9811,-24.4084 19.9813,-24.5804 19.9814,-24.7525 19.9818,-24.7650 19.9818,-24.8210 19.9818,-24.8771 19.9818,-24.9333 19.9819,-24.9893 19.9820,-25.0454 19.9820,-25.1014 19.9820,-25.1574 19.9820,-25.2136 19.9820,-25.2697 19.9820,-25.3257 19.9820,-25.3817 19.9821,-25.4378 19.9821,-25.4938 19.9821,-25.5500 19.9821,-25.6061 19.9821,-25.6621 19.9821,-25.7181 19.9821,-25.7741 19.9821,-25.8303 19.9822,-25.8863 19.9823,-25.9424 19.9823,-25.9985 19.9823,-26.0545 19.9823,-26.1105 19.9823,-26.1667 19.9824,-26.2227 19.9824,-26.2788 19.9824,-26.3348 19.9824,-26.3909 19.9824,-26.4470 19.9824,-26.5031 19.9825,-26.5591 19.9826,-26.6151 19.9826,-26.6712 19.9826,-26.7273 19.9826,-26.7834 19.9826,-26.8394 19.9827,-26.8955 19.9827,-26.9515 19.9827,-27.0077 19.9827,-27.0637 19.9827,-27.1197 19.9827,-27.1758 19.9828,-27.2319 19.9829,-27.2879 19.9829,-27.3441 19.9829,-27.4002 19.9829,-27.4561 19.9829,-27.5121 19.9829,-27.5682 19.9829,-27.6071 19.9829,-27.6244 19.9830,-27.6804 19.9830,-27.7365 19.9830,-27.7926 19.9830,-27.8485 19.9830,-27.9047 19.9830,-27.9608 19.9830,-28.0168 19.9830,-28.0729 19.9831,-28.1290 19.9832,-28.1850 19.9832,-28.2411 19.9832,-28.2972 19.9832,-28.3532 19.9832,-28.3927 19.9817,-28.4223 19.9505,-28.4293 19.9402,-28.4302 19.9079,-28.4265 19.8967,-28.4277 19.8703,-28.4408 19.8256,-28.4767 19.7963,-28.4842 19.7481,-28.4871 19.7253,-28.4942 19.7056,-28.5080 19.6883,-28.5160 19.5880,-28.5227 19.5792,-28.5252 19.5688,-28.5312 19.5624,-28.5381 19.5565,-28.5462 19.5476,-28.5559 19.5422,-28.5640 19.5337,-28.5824 19.5274,-28.5860 19.5178,-28.5894 19.5117,-28.5980 19.4829,-28.6782 19.4724,-28.6927 19.4551,-28.7052 19.4346,-28.7135 19.3535,-28.7319 19.3390,-28.7375 19.3284,-28.7358 19.3045,-28.7187 19.2900,-28.7197 19.2773,-28.7294 19.2659,-28.7426 19.2486,-28.7716 19.2450,-28.7925 19.2516,-28.8143 19.2889,-28.8710 19.2884,-28.8831 19.2766,-28.8895 19.2437,-28.8919 19.2376,-28.8956 19.2267,-28.9115 19.2185,-28.9189 19.1615,-28.9454 19.1202,-28.9575 19.0817,-28.9594 19.0647,-28.9398 19.0601,-28.9357 19.0490,-28.9324 19.0140,-28.9285 19.0069,-28.9263 18.9964,-28.9155 18.9712,-28.8805 18.9545,-28.8667 18.7457,-28.8399 18.5539,-28.8647 18.5177,-28.8823 18.4962,-28.8883 18.4916,-28.8863 18.4794,-28.8763 18.4750,-28.8740 18.4694,-28.8749 18.4607,-28.8799 18.4552,-28.8814 18.4357,-28.8842 18.4247,-28.8872 18.4170,-28.8917 18.3976,-28.8989 18.3731,-28.8952 18.3310,-28.8814 18.3087,-28.8800 18.2207,-28.8913 18.1851,-28.9022 18.1665,-28.9019 18.0824,-28.8760 18.0441,-28.8584 17.9833,-28.8137 17.9495,-28.7947 17.9133,-28.7813 17.7463,-28.7486 17.7141,-28.7511 17.7032,-28.7556 17.6834,-28.7675 17.6738,-28.7716 17.6610,-28.7723 17.6287,-28.7641 17.6071,-28.7557 17.6026,-28.7354 17.6034,-28.7108 17.5980,-28.6896 17.5829,-28.6802 17.5660,-28.6835 17.5470,-28.6914 17.5266,-28.6958 17.4852,-28.7002 17.4409,-28.7096 17.4036,-28.7043 17.4018,-28.6742 17.4143,-28.6327 17.4206,-28.5934 17.4096,-28.5714 17.3730,-28.5594 17.3653,-28.5425 17.3595,-28.5198 17.3324,-28.4886 17.3242,-28.4705 17.3282,-28.4561 17.3412,-28.4428 17.3586,-28.4328 17.3754,-28.4290 17.3913,-28.4188 17.3997,-28.3953 17.4021,-28.3678 17.4000,-28.3464 17.3948,-28.3351 17.3789,-28.3163 17.3720,-28.3061 17.3681,-28.2938 17.3670,-28.2835 17.3641,-28.2733 17.3550,-28.2610 17.3512,-28.2514 17.3498,-28.2387 17.3457,-28.2276 17.3345,-28.2229 17.3086,-28.2241 17.2452,-28.2374 17.2131,-28.2321 17.1920,-28.2088 17.1871,-28.1620 17.1898,-28.1394 17.1900,-28.1168 17.1809,-28.0995 17.1558,-28.0925 17.1363,-28.0847 17.1232,-28.0665 17.1118,-28.0460 17.0978,-28.0312 17.0865,-28.0270 17.0764,-28.0268 17.0567,-28.0312 17.0454,-28.0363 17.0120,-28.0583 16.9854,-28.0522 16.9738,-28.0550 16.9595,-28.0686 16.9475,-28.0727 16.9375,-28.0711 16.9275,-28.0602 16.9196,-28.0583 16.9135,-28.0627 16.8965,-28.0799 16.8930,-28.0826 16.8855,-28.1620 16.8782,-28.1720 16.8738,-28.1715 16.8687,-28.1679 16.8520,-28.1683 16.8478,-28.1654 16.8438,-28.1639 16.8377,-28.1682 16.8357,-28.1742 16.8384,-28.1795 16.8560,-28.1994 16.8564,-28.2066 16.8411,-28.2099 16.8198,-28.2097 16.8143,-28.2135 16.8103,-28.2229 16.8133,-28.2299 16.8208,-28.2400 16.8266,-28.2519 16.8246,-28.2645 16.8152,-28.2708 16.8051,-28.2677 16.7952,-28.2612 16.7865,-28.2576 16.7687,-28.2654 16.7644,-28.2832 16.7684,-28.3037 16.7755,-28.3191 16.7968,-28.3478 16.8039,-28.3661 16.7932,-28.3743 16.7785,-28.3830 16.7734,-28.4029 16.7721,-28.4258 16.7693,-28.4426 16.7584,-28.4597 16.7404,-28.4809 16.7205,-28.4960 16.7038,-28.4945 16.6997,-28.4852 16.6968,-28.4725 16.6923,-28.4611 16.6835,-28.4562 16.6731,-28.4598 16.5974,-28.5262 16.5591,-28.5371 16.5315,-28.5497 16.5054,-28.5654 16.4875,-28.5729 16.4086,-28.7059 16.4233,-28.7164 16.3830,-28.7650 16.4291,-28.8453 16.4632,-28.9046 16.4815,-28.9363 16.6361,-29.1371 16.7470,-29.3615 16.8578,-29.5859 17.0055,-30.0060 17.1533,-30.4261 17.2685,-30.6065 17.3190,-30.7117 17.3946,-30.8135 17.4702,-30.9777 17.5545,-31.1134 17.7040,-31.3145 17.8535,-31.5155 18.0378,-31.7300 18.0759,-31.7955 18.1866,-32.2479 18.1631,-32.3362 18.1847,-32.4513 18.1667,-32.5282 18.1483,-32.5585 18.1100,-32.5763 17.8900,-32.5914 17.8187,-32.6184 17.7242,-32.7352 17.7008,-32.8490 17.7323,-33.0097 17.7749,-33.1054 17.9695,-33.3052 18.0259,-33.4312 18.1545,-33.5199 18.1878,-33.6264 18.2719,-33.7133 18.2972,-33.7574 18.2982,-33.8020 18.2432,-33.8625 18.1757,-33.9833 18.1576,-34.0819 18.1792,-34.1988 18.2934,-34.3836 18.3808,-34.4412 18.4699,-34.4595 18.5096,-34.4542 18.5631,-34.4078 18.6339,-34.2727 18.6707,-34.2311 18.6670,-34.3970 18.6919,-34.4443 18.7392,-34.4815 18.8485,-34.5030 18.9625,-34.4814 19.0755,-34.5167 19.1194,-34.5568 19.1605,-34.6681 19.1921,-34.7058 19.2346,-34.7249 19.3926,-34.7547 19.5725,-34.8796 19.6331,-34.8905 19.7858,-34.8775 19.9371,-34.9356 20.0089,-34.9437 20.1113,-34.9043 20.2650,-34.7803 20.4553,-34.6757 20.5797,-34.5751 20.8860,-34.5748 20.9279,-34.5569 21.0217,-34.4838 21.2181,-34.5369 21.2943,-34.5467 21.3939,-34.5385 21.5256,-34.4944 21.7108,-34.5143 21.8208,-34.5032 21.8963,-34.4799 21.9678,-34.4403 22.0788,-34.3234 22.2251,-34.2901 22.3090,-34.1963 22.4722,-34.1838 22.5038,-34.1732 22.5038,-34.6285 22.5038,-35.0837 22.5038,-35.5390 22.5038,-35.5509 22.5038,-35.5519 22.5038,-36.0506 22.5038,-36.5493 22.5038,-37.0480 22.5038,-37.5467 22.5038,-38.0454 22.5038,-38.5441 22.5038,-39.0429 22.5038,-39.5416 22.5038,-40.0403 22.5038,-40.5390 22.5038,-40.5509 22.5038,-40.5519 22.5038,-41.0506 22.5038,-41.5493 22.5038,-42.0480 22.5038,-42.5467 22.5038,-43.0454 22.5038,-43.5441 22.5038,-44.0429 22.5038,-44.5416 22.5038,-45.0403 22.5038,-45.5390 22.5038,-45.5509 22.5038,-45.5519 22.5038,-46.0506 22.5038,-46.5493 22.5038,-47.0480 22.5038,-47.5467 22.5038,-48.0454 22.5038,-48.5441 22.5038,-49.0429 22.5038,-49.5416 22.5038,-50.0403 22.5038,-50.5390 22.5038,-50.5509 22.5038,-50.5519 22.5038,-51.0506 22.5038,-51.5493 22.5038,-52.0480 22.5038,-52.5467 22.5038,-53.0454 22.5038,-53.5441 22.5038,-54.0429 22.5038,-54.5416 22.5038,-55.0403 22.5038,-55.5390 22.5038,-55.5509 22.5038,-55.5519 22.5038,-56.0506 22.5038,-56.5493 22.5038,-57.0480 22.5038,-57.5467 22.5038,-58.0454 22.5038,-58.5441 22.5038,-59.0429 22.5038,-59.5416 22.5038,-60.0403 22.5038,-60.5390 22.5038,-60.5509 22.5038,-60.5519 22.5038,-61.0506 22.5038,-61.5493 22.5038,-62.0480 22.5038,-62.5467 22.5038,-63.0454 22.5038,-63.5441 22.5038,-64.0429 22.5038,-64.5416 22.5038,-65.0403 22.5038,-65.5390 22.5038,-65.5509 22.5038,-65.5519 22.5038,-66.0153 22.5038,-66.4787 22.5038,-66.9422 22.5038,-67.4056 22.5038,-67.8690 22.5038,-68.3324 22.5038,-68.7958 22.5038,-69.2592 22.5038,-69.7226 22.5038,-70.1860 22.4243,-70.1507 22.2475,-70.0902 22.1298,-70.0608 22.0027,-70.0378 21.8872,-70.0246 21.7665,-70.0186 21.5746,-70.0256 21.4020,-70.0511 21.2428,-70.0938 21.1081,-70.1510 21.0382,-70.1972 20.9018,-70.3194 20.7499,-70.4023 20.6706,-70.4609 20.5628,-70.5769 20.5197,-70.6777 20.3860,-70.6941 20.0764,-70.7041 19.9182,-70.6894 19.6207,-70.6846 19.6069,-70.6690 19.6204,-70.6439 19.8705,-70.4495 19.9164,-70.3790 19.8913,-70.3014 19.9077,-70.2464 19.8926,-70.2038 19.8257,-70.1481 19.7099,-70.0964 19.4940,-70.0290 19.2673,-69.9870 19.1282,-69.9716 19.0032,-69.9638 18.8834,-69.9626 18.7655,-69.9676 18.6282,-69.9818 18.5135,-70.0023 18.4215,-70.0273 18.2890,-70.0750 18.2425,-70.0918 17.9430,-70.1465 17.8466,-70.1687 17.7231,-70.2184 17.6511,-70.2765 17.5768,-70.2766 17.3256,-70.2577 17.3046,-70.2407 17.2420,-70.1198 17.1343,-70.0227 17.1048,-69.9717 17.1180,-69.9034 17.2085,-69.8140 17.2363,-69.7670 17.2348,-69.7138 17.1959,-69.6642 17.1485,-69.6323 17.0755,-69.5983 16.9008,-69.5472 16.6940,-69.5156 16.4343,-69.5031 16.0684,-69.5004 15.9102,-69.5077 15.7597,-69.5216 15.5994,-69.5448 15.4450,-69.5757 15.3164,-69.6101 15.2072,-69.6493 15.1141,-69.6960 15.0446,-69.7437 14.9873,-69.8011 14.9576,-69.8540 14.9586,-69.9397 15.0632,-70.0647 15.0644,-70.0761 15.0468,-70.0815 14.7842,-70.0910 14.5783,-70.0757 14.3870,-70.0750 14.1206,-70.0897 13.9571,-70.1121 13.8992,-70.1130 13.8243,-70.1006 13.7529,-70.0750 13.6241,-69.9778 13.5084,-69.9206 13.3799,-69.8804 13.2377,-69.8540 13.1205,-69.8419 12.9998,-69.8365 12.8878,-69.8385 12.7376,-69.8487 12.5103,-69.8446 12.3310,-69.8561 12.1656,-69.8814 11.9870,-69.9312 11.9727,-69.9377 11.9345,-69.9550 11.9182,-69.9624 11.9101,-69.9661 11.8704,-69.9921 11.8628,-69.9970 11.8601,-70.0002 11.8215,-70.0450 11.7654,-70.0496 11.7186,-70.0534 11.6143,-70.0619 11.6102,-70.0404 11.6073,-70.0252 11.5568,-69.9713 11.4580,-69.9138 11.3234,-69.8652 11.1850,-69.8335 11.0304,-69.8133 10.8337,-69.8010 10.5648,-69.7970 10.3285,-69.8143 10.1540,-69.8487 9.9714,-69.9142 9.8749,-69.9268 9.7502,-69.9202 9.5081,-69.8816 9.3538,-69.8659 9.1877,-69.8604 9.0300,-69.8670 8.9112,-69.8803 8.8066,-69.8996 8.7146,-69.9258 8.5340,-69.9773 8.4315,-69.9892 8.3826,-69.9948 8.3778,-69.9954 8.2487,-69.9929 8.0638,-69.9694 8.0055,-69.9620 7.8402,-69.9534 7.5872,-69.9630 7.5387,-69.9670 7.5387,-69.5501 7.5387,-69.1332 7.5387,-68.7163 7.5387,-68.7044 7.5387,-68.2056 7.5387,-67.7068 7.5387,-67.2080 7.5387,-66.7092 7.5387,-66.2103 7.5387,-65.7115 7.5387,-65.2127 7.5387,-64.7139 7.5387,-64.2151 7.5387,-63.7163 7.5387,-63.7044 7.5387,-63.2056 7.5387,-62.7068 7.5387,-62.2080 7.5387,-61.7092 7.5387,-61.2103 7.5387,-60.7115 7.5387,-60.2127 7.5387,-59.7139 7.5387,-59.2151 7.5387,-58.7163 7.5387,-58.7044 7.5387,-58.2662 7.5387,-57.8280 7.5387,-57.3898 7.5387,-56.9516 7.5387,-56.5134 7.5387,-56.0752 7.5387,-55.6371 7.5387,-55.1989 7.0806,-55.1989 6.6226,-55.1989 6.1645,-55.1989 5.7064,-55.1989 5.2484,-55.1989 4.7903,-55.1989 4.3322,-55.1989 3.8742,-55.1989 3.4161,-55.1989 2.9581,-55.1989 2.5000,-55.1989 2.5000,-54.8239 2.5000,-54.4489 2.5000,-54.0739 2.5000,-53.6989 2.9581,-53.6989 3.4161,-53.6989 3.8742,-53.6989 4.3322,-53.6989 4.7903,-53.6989 5.2484,-53.6989 5.7064,-53.6989 6.1645,-53.6989 6.6226,-53.6989 7.0806,-53.6989 7.5387,-53.6989 7.5387,-53.2341 7.5387,-52.7694 7.5387,-52.3047 7.5387,-51.8399 7.5387,-51.3752 7.5387,-50.9105 7.5387,-50.4457 7.5387,-49.9810 7.5387,-49.5163 7.5387,-49.5044 7.5387,-49.0056 7.5387,-48.5068 7.5387,-48.0080 7.5387,-47.5091 7.5387,-47.0103 7.5387,-46.5115 7.5387,-46.0127 7.5387,-45.5139 7.5387,-45.0151 7.5387,-44.5163 7.5387,-44.5044 7.5387,-44.0056 7.5387,-43.5068 7.5387,-43.0080 7.5387,-42.5091 7.5387,-42.0103 7.5387,-41.5115 7.5387,-41.0127 7.5387,-40.5139 7.5387,-40.0151 7.5387,-39.5163 7.5387,-39.5044 7.5387,-39.0056 7.5387,-38.5068 7.5387,-38.0080 7.5387,-37.5091 7.5387,-37.0103 7.5387,-36.5115 7.5387,-36.0127 7.5387,-35.5139 7.5387,-35.0151 7.5387,-34.5163 7.5387,-34.5044 7.5387,-34.2309 7.5387,-33.9575 7.5387,-33.9456 7.5387,-33.4468 7.5387,-32.9480 7.5387,-32.4492 7.5387,-31.9504 7.5387,-31.4516 7.5387,-30.9527 7.5387,-30.4539 7.5387,-29.9551 7.5387,-29.4563 7.5387,-28.9575 7.5387,-28.9456 7.5387,-28.4468 7.5387,-27.9480 7.5387,-27.4492 7.5387,-26.9504 7.5387,-26.4516 7.5387,-25.9527 7.5387,-25.4539 7.5387,-24.9551 7.5387,-24.4563 7.5387,-23.9575 7.5387,-23.9456 7.5387,-23.4468 7.5387,-22.9480 7.5387,-22.4492 7.5387,-21.9504 7.5387,-21.4516 7.5387,-20.9527 7.5387,-20.4539 7.5387,-19.9551 7.5387,-19.4563 7.5387,-18.9575 7.5387,-18.9456 7.5387,-18.4468 7.5387,-17.9480 7.5387,-17.4492 7.5387,-16.9504 7.5387,-16.4516 7.5387,-15.9527 7.5387,-15.4539 7.5387,-14.9551 7.5387,-14.4563 7.5387,-13.9575 7.5387,-13.9456 7.5387,-13.4991 7.5387,-13.0526 7.5387,-12.6061 7.5387,-12.1596 7.5387,-11.7131 7.5387,-11.2666 7.5387,-10.8201 7.5387,-10.3545 7.5387,-9.8888 7.5387,-9.4232 7.5387,-8.9575 7.5387,-8.9456 7.5387,-8.4468 7.5387,-7.9480 7.5387,-7.4492 7.5387,-6.9504 7.5387,-6.4516 7.5387,-5.9527 7.5387,-5.4539 7.5387,-4.9551 7.5387,-4.4563 7.5387,-3.9575 7.0504,-3.9575 6.5622,-3.9575 6.0740,-3.9575 5.5857,-3.9575 5.0975,-3.9575 4.6093,-3.9575 4.1210,-3.9575 3.6328,-3.9575 3.1445,-3.9575 2.6563,-3.9575 2.6563,-3.9456 2.6563,-3.4795 2.6563,-3.0133 2.6563,-2.5472 2.6563,-2.0810 2.6563,-1.6149 2.6563,-1.1487 2.6563,-0.6826 2.6563,-0.6707 3.1445,-0.6722 3.6328,-0.6737 4.1210,-0.6751 4.6093,-0.6766 5.0975,-0.6781 5.5857,-0.6796 6.0740,-0.6811 6.5622,-0.6825 7.0504,-0.6840 7.5387,-0.6855 7.5387,-0.5742 7.5387,-0.5623 7.5359,-0.0755 7.5331,0.4113 7.5303,0.8981 7.5275,1.3850 7.5816,1.4349 7.6400,1.5408 7.6620,1.6561 7.6441,1.7486 7.5969,1.8214 7.5274,1.8700 7.5286,1.9600 7.5306,2.4177 7.5326,2.8754 7.5346,3.3331 7.5367,3.7908 7.5387,4.2486 7.2665,4.1961 6.9029,4.1568 6.5394,4.1175 6.1758,4.0782 6.0173,4.0938 5.8430,4.1630 5.7176,4.2450 5.6055,4.3418 5.4824,4.4728 5.3883,4.5989 5.2700,4.8364 5.1863,5.0740 5.1483,5.2521 5.0334,5.3836 4.8966,5.6182 4.7740,5.7951 4.6621,5.9219 4.5293,6.0367 4.3947,6.1231 4.2627,6.1752 4.0805,6.2091 3.8825,6.2214 3.6061,6.2061 3.3297,6.1908 3.0446,6.1897 2.6503,6.1479 2.2561,6.1060 1.8618,6.0642 1.8314,6.1731 1.7984,6.2431 1.7824,6.2773 1.7657,6.3423 1.7635,6.3506 1.7441,6.4257 1.7184,6.4670 1.7098,6.4734 1.6883,6.4844 1.6817,6.4898 1.6795,6.4986 1.6820,6.5200 1.6808,6.5301 1.6745,6.5386 1.6578,6.5523 1.6552,6.5592 1.6539,6.5707 1.6466,6.5732 1.6368,6.5723 1.6274,6.5733 1.6196,6.5780 1.6112,6.5847 1.6033,6.5926 1.5973,6.6008 1.5941,6.6110 1.5948,6.6203 1.5965,6.6286 1.5963,6.6364 1.5854,6.6564 1.5724,6.6669 1.5660,6.6781 1.5743,6.7006 1.5970,6.7310 1.6011,6.7464 1.5952,6.7706 1.5875,6.7910 1.5832,6.8083 1.5826,6.8253 1.5901,6.8673 1.5880,6.8812 1.5791,6.8920 1.5626,6.9043 1.5514,6.9209 1.5319,6.9919 1.6075,6.9914 1.6257,6.9968 1.6249,7.1436 1.6243,7.2888 1.6237,7.4381 1.6228,7.6401 1.6219,7.8383 1.6213,7.9966 1.6238,8.1559 1.6256,8.2705 1.6149,8.3563 1.6099,8.3655 1.6040,8.3674 1.6011,8.3716 1.6060,8.3960 1.6060,8.4134 1.6076,8.4219 1.6404,8.4758 1.6442,8.4935 1.6399,8.5033 1.6141,8.5358 1.6090,8.5470 1.6076,8.5588 1.6055,8.7225 1.6043,8.8152 1.6028,8.9244 1.6012,9.0495 1.5958,9.0768 1.5878,9.1009 1.5673,9.1367 1.5052,9.2015 1.4253,9.2845 1.4012,9.3213 1.3867,9.3611 1.3799,9.4625 1.3684,9.4908 1.3513,9.4825 1.3365,9.4975 1.3264,9.5220 1.3232,9.5423 1.3273,9.5553 1.3451,9.5824 1.3513,9.5951 1.3525,9.6053 1.3522,9.6254 1.3546,9.6353 1.3560,9.6475 1.3482,9.6942 1.3474,9.7411 1.3474,9.7431 1.3469,9.7718 1.3451,9.8811 1.3438,9.9624 1.3310,9.9965 1.2255,10.0661 1.0822,10.1604 0.9395,10.2545 0.8444,10.3172 0.7688,10.3671 0.7607,10.3822 0.7599,10.4052 0.7738,10.5081 0.7885,10.5639 0.7892,10.6029 0.7813,10.6930 0.7956,10.7265 0.8500,10.7777 0.8629,10.7961 0.8660,10.8064 0.8676,10.8292 0.8695,10.8399 0.8851,10.8694 0.8837,10.8802 0.8753,10.9005 0.8729,10.9113 0.8758,10.9312 0.9015,10.9927 0.9320,10.9761 0.9454,10.9743 0.9633,10.9741 0.9675,10.9795 0.9700,10.9912 0.9691,11.0029 0.9633,11.0083 0.9553,11.0120 0.9518,11.0211 0.9513,11.0323 0.9524,11.0424 0.9559,11.0447 0.9644,11.0574 0.9703,11.0695 0.9769,11.0784 0.9814,11.0801 0.9860,11.0785 1.0079,11.0751 1.0146,11.0704 1.0197,11.0657 1.0251,11.0635 1.0280,11.0613 1.0332,11.0516 1.0350,11.0493 1.0413,11.0496 1.0522,11.0550 1.0561,11.0561 1.0869,11.0527 1.0970,11.0493 1.0997,11.0444 1.1068,11.0344 1.1142,11.0277 1.1175,11.0322 1.1186,11.0482 1.1072,11.0598 1.1009,11.0704 1.0993,11.0813 1.0991,11.0926 1.0970,11.1045 1.0952,11.1044 1.0856,11.1087 1.0828,11.1107 1.0821,11.1153 1.0839,11.1277 1.0828,11.1318 1.0739,11.1338 1.0730,11.1336 1.0670,11.1283 1.0633,11.1270 1.0623,11.1421 1.0675,11.1443 1.1004,11.1516 1.1062,11.1557 1.1130,11.1739 1.1175,11.1790 1.1281,11.1789 1.1481,11.1695 1.1584,11.1659 1.1532,11.1832 1.1493,11.2172 1.1306,11.2476 1.1356,11.2601 1.1459,11.2699 1.1563,11.2855 1.1660,11.2780 1.1735,11.2666 1.1722,11.2615 1.1809,11.2614 1.1862,11.2639 1.1914,11.2670 1.2001,11.2690 1.2190,11.2680 1.2352,11.2635 1.2684,11.2479 1.2811,11.2711 1.2826,11.2789 1.2804,11.2887 1.2705,11.2983 1.2684,11.3062 1.2733,11.3182 1.2845,11.3127 1.2962,11.2996 1.3025,11.2888 1.3093,11.2971 1.3163,11.2999 1.3235,11.2971 1.3304,11.2888 1.3479,11.3035 1.3459,11.3163 1.3362,11.3300 1.3304,11.3472 1.3391,11.3661 1.3590,11.3789 1.3817,11.3887 1.3981,11.3987 1.3886,11.4200 1.3898,11.4284 1.3981,11.4403 1.4111,11.4498 1.4236,11.4539 1.4338,11.4594 1.4396,11.4738 1.4560,11.4647 1.4753,11.4608 1.5693,11.4533 1.5673,11.4467 1.5650,11.4326 1.5632,11.4260 1.5806,11.4271 1.6016,11.3887 1.6211,11.3953 1.6382,11.4042 1.6844,11.4139 1.7035,11.4229 1.7191,11.4278 1.7633,11.4247 1.7822,11.4260 1.8215,11.4416 1.8406,11.4455 1.8580,11.4403 1.8676,11.4466 1.8798,11.4449 1.9058,11.4328 1.9480,11.4167 1.9834,11.4140 2.0108,11.4269 2.1470,11.5637 2.2201,11.6225 2.2736,11.6521 2.2874,11.6653 2.2911,11.6748 2.2902,11.6857 2.2908,11.7032 2.3016,11.7315 2.3400,11.7739 2.3541,11.7998 2.3814,11.8923 2.3902,11.8965 2.3381,11.9401 2.2588,12.0488 2.1885,12.1455 2.1138,12.2480 2.0709,12.3069 2.0518,12.3419 2.0542,12.3709 2.0693,12.3833 2.1269,12.3951 2.1315,12.3985 2.1387,12.4083 2.1450,12.4117 2.1480,12.4108 2.1588,12.4057 2.1638,12.4048 2.2233,12.4097 2.2379,12.4135 2.2450,12.4242 2.2430,12.4462 2.2431,12.4512 2.2463,12.4617 2.2463,12.4659 2.2423,12.4735 2.2296,12.4871 2.2239,12.4948 2.2157,12.5103 2.2109,12.5231 2.2032,12.5833 2.2000,12.5959 2.1933,12.6095 2.1843,12.6206 2.1660,12.6317 2.1555,12.6400 2.1448,12.6508 2.1410,12.6561 2.1352,12.6756 2.1090,12.7056 2.0689,12.7163 1.9717,12.7242 1.9625,12.7191 1.9455,12.7008 1.9345,12.6935 1.9266,12.6950 1.9196,12.6983 1.9114,12.6966 1.9070,12.6918 1.9002,12.6785 1.8832,12.6540 1.8727,12.6342 1.8607,12.6171 1.8437,12.6061 1.8261,12.6042 1.6995,12.6149 1.5970,12.6237 1.5639,12.6321 1.5359,12.6475 1.4671,12.7044 1.4120,12.7499 1.3306,12.8172 1.2308,12.8998 1.1709,12.9492 1.1140,12.9962 1.0838,13.0110 1.0123,13.0169 0.9835,13.0324 0.9746,13.0483 0.9718,13.0673 0.9713,13.1494 0.9708,13.2435 0.9704,13.3283 0.9835,13.3684 1.0047,13.3648 1.0847,13.3336 1.1385,13.3204 1.1607,13.3113 1.1676,13.3134 1.1776,13.3476 1.1824,13.3587 1.1877,13.3641 1.2057,13.3589 1.2221,13.3446 1.2415,13.3355 1.2687,13.3461 1.2496,13.3671 1.2343,13.3776 1.2174,13.3818 1.1750,13.3869 1.1572,13.3926 1.0482,13.4419 1.0153,13.4657 0.9966,13.4961 0.9914,13.5411 0.9510,13.5832 0.8969,13.6149 0.8507,13.6286 0.8131,13.6250 0.7953,13.6260 0.7757,13.6353 0.7637,13.6464 0.7629,13.6530 0.7663,13.6572 0.7670,13.6609 0.7662,13.6670 0.7664,13.6751 0.7635,13.6820 0.7534,13.6841 0.6207,13.6800 0.5943,13.6889 0.5805,13.7138 0.5848,13.7290 0.5945,13.7499 0.6005,13.7687 0.5937,13.7781 0.5745,13.7850 0.5632,13.7968 0.5530,13.8100 0.5193,13.8316 0.5041,13.8454 0.4920,13.8618 0.4835,13.8803 0.4757,13.8889 0.4548,13.9024 0.4486,13.9096 0.4481,13.9201 0.4563,13.9381 0.4567,13.9469 0.4459,13.9586 0.4284,13.9675 0.4119,13.9784 0.4039,13.9961 0.4019,14.0138 0.3914,14.0226 0.3784,14.0288 0.3692,14.0391 0.3691,14.0479 0.3773,14.0639 0.3785,14.0704 0.3742,14.0789 0.3687,14.0842 0.3625,14.0889 0.3563,14.0957 0.3436,14.1143 0.3392,14.1258 0.3435,14.1375 0.3674,14.1738 0.3722,14.1856 0.3774,14.2166 0.3811,14.2257 0.3906,14.2376 0.3916,14.2459 0.3888,14.2516 0.3464,14.3076 0.1886,14.4477 0.1588,14.4961 0.1529,14.5467 0.2197,14.7312 0.2131,14.7616 0.1841,14.8196 0.1858,14.8482 0.1980,14.8638 0.2119,14.8748 0.2208,14.8882 0.2185,14.9110 0.2128,14.9607 0.2132,14.9854 0.2213,14.9959 0.3532,14.9634 0.3870,14.9632 0.4188,14.9699 0.4835,14.9921 0.5148,14.9936 0.6701,14.9397 0.6838,14.9409 0.7114,14.9475 0.7399,14.9583 0.7692,14.9691 0.9221,14.9740 0.9493,14.9796 0.9737,14.9913 1.0575,15.0671 1.1231,15.1263 1.2032,15.1988 1.2709,15.2599 1.2978,15.2757 1.3315,15.2836 1.4052,15.2861 1.5017,15.2894 1.5984,15.2926 1.6949,15.2957 1.7914,15.2990 1.8881,15.3022 1.9846,15.3054 2.0814,15.3086 2.1779,15.3118 2.2745,15.3150 2.3710,15.3182 2.4677,15.3214 2.5642,15.3246 2.6610,15.3278 2.7575,15.3311 2.8541,15.3342 2.9507,15.3375 3.0002,15.3391 3.0057,15.3523 3.0058,15.3893 3.0078,15.4077 3.0103,15.4177 3.0175,15.4228 3.0335,15.4264 3.0730,15.4272 3.1923,15.4075 3.3804,15.3763 3.4833,15.3593 3.4888,15.3575 3.5071,15.3540 3.5165,15.4692 3.5265,15.4960 3.6141,15.5477 3.6922,15.6315 3.7289,15.6509 3.8084,15.6656 3.8461,15.6853 3.8712,15.7148 3.8865,15.7501 3.8945,15.7886 3.9035,15.8863 3.9099,15.9048 3.9251,15.9276 3.9832,15.9840 3.9842,15.9869 3.9848,15.9898 3.9846,15.9959 3.9847,15.9974 3.9845,15.9988 3.9840,16.0001 3.9832,16.0013 3.9708,16.0309 3.9669,16.0585 3.9712,16.0861 4.0606,16.2983 4.0756,16.3211 4.0948,16.3408 4.1182,16.3583 4.1617,16.3800 4.1759,16.3926 4.1840,16.4161 4.1834,16.5265 4.1830,16.6127 4.1823,16.7465 4.1820,16.8096 4.1846,16.8185 4.1976,16.8385 4.2020,16.8489 4.1966,16.9471 4.1978,16.9652 4.2037,16.9828 4.2117,16.9860 4.2223,16.9866 4.2356,16.9959 4.2353,17.1008 4.2350,17.1639 4.2347,17.2875 4.2343,17.4112 4.2338,17.5348 4.2334,17.6585 4.2331,17.7821 4.2326,17.9058 4.2322,18.0294 4.2319,18.1531 4.2315,18.2767 4.2311,18.4003 4.2307,18.5240 4.2303,18.6476 4.2298,18.7713 4.2294,18.8949 4.2290,19.0186 4.2286,19.1422 4.0576,19.1104 3.8865,19.0786 3.7156,19.0469 3.5446,19.0151 3.4398,18.9956 3.4397,18.9956 3.3587,18.9769 3.3331,18.9756 3.3184,18.9777 3.3084,18.9817 3.2849,18.9957 3.2260,19.0511 3.1798,19.0700 3.1586,19.0815 3.1388,19.0960 3.1209,19.1128 3.1041,19.1355 3.1027,19.1536 3.1118,19.1713 3.1266,19.1934 3.1342,19.2129 3.1393,19.2219 3.1527,19.2302 3.1744,19.2516 3.1789,19.2687 3.1838,19.3075 3.1929,19.3258 3.2115,19.3409 3.2327,19.3518 3.2510,19.3655 3.2608,19.3883 3.2582,19.4104 3.2475,19.4265 3.2348,19.4413 3.2260,19.4597 3.2262,19.4692 3.2317,19.4890 3.2323,19.4955 3.2281,19.5042 3.2229,19.5081 3.2175,19.5112 3.2122,19.5172 3.1994,19.5538 3.1983,19.5924 3.2168,19.7941 3.2128,19.8078 3.1988,19.8205 3.1832,19.8277 3.1470,19.8379 3.1305,19.8452 3.0726,19.8889 2.9460,19.9417 2.6718,19.9962 2.6169,19.9984 2.5257,20.0152 2.5148,20.0159 2.4954,20.0201 2.4593,20.0388 2.4399,20.0461 2.4157,20.0513 2.4004,20.0566 2.3887,20.0674 2.3482,20.1376 2.3165,20.1802 2.2796,20.2179 2.2182,20.2641 2.2008,20.2739 2.1824,20.2785 2.1613,20.2749 2.1382,20.2607 2.0975,20.2242 2.0712,20.2133 2.0563,20.2150 1.9934,20.2359 1.9834,20.2419 1.9756,20.2484 1.9671,20.2534 1.9553,20.2549 1.9412,20.2511 1.9243,20.2361 1.9134,20.2311 1.8914,20.2318 1.8838,20.2441 1.8803,20.2631 1.8706,20.2835 1.8550,20.2948 1.8389,20.2959 1.8209,20.2936 1.7992,20.2949 1.7781,20.3043 1.6592,20.3975 1.6492,20.4121 1.6501,20.4870 1.6440,20.5227 1.6237,20.5513 1.5597,20.5975 1.5204,20.6170 1.4835,20.6226 1.4658,20.6335 1.4475,20.6387 1.4072,20.6450 1.3640,20.6577 1.3469,20.6691 1.3315,20.6879 1.3105,20.7227 1.2967,20.7335 1.2733,20.7394 1.2523,20.7390 1.2125,20.7309 1.1913,20.7306 1.1685,20.7335 1.1546,20.7388 1.1472,20.7514 1.1446,20.7763 1.1453,20.7959 1.1675,20.8860 1.1801,20.9953 1.1779,21.0173 1.1593,21.0815 1.1465,21.1017 1.0293,21.1783 0.9426,21.2350 0.8560,21.2917 0.7694,21.3483 0.6827,21.4049 0.5961,21.4616 0.5095,21.5183 0.4228,21.5750 0.3362,21.6316 0.2495,21.6882 0.1630,21.7448 0.0763,21.8015 0.0000,21.8513 -0.0000,21.8513 -0.0104,21.8582 -0.0970,21.9148 -0.1837,21.9715 -0.2704,22.0281 -0.3570,22.0848 -0.4437,22.1414 -0.5303,22.1981 -0.6169,22.2548 -0.7036,22.3114 -0.7903,22.3680 -0.8769,22.4246 -0.9636,22.4813 -1.0502,22.5380 -1.1369,22.5946 -1.2235,22.6513 -1.3101,22.7080 -1.3968,22.7646 -1.4835,22.8212 -1.5701,22.8779 -1.6567,22.9346 -1.7433,22.9912 -1.8300,23.0478 -1.9166,23.1045 -2.0033,23.1610 -2.0899,23.2178 -2.1766,23.2744 -2.2632,23.3311 -2.3499,23.3877 -2.4365,23.4444 -2.5232,23.5010 -2.6098,23.5577 -2.6964,23.6143 -2.7831,23.6710 -2.8698,23.7276 -2.9564,23.7842 -3.0431,23.8409 -3.1296,23.8976 -3.2095,23.9497 -3.2891,24.0018 -3.3688,24.0540 -3.4485,24.1060 -3.5283,24.1581 -3.6080,24.2102 -3.6876,24.2623 -3.7673,24.3144 -3.8470,24.3666 -3.9267,24.4187 -4.0065,24.4708 -4.0862,24.5229 -4.1659,24.5750 -4.2455,24.6271 -4.3252,24.6792 -4.4049,24.7313 -4.5160,24.8040 -4.5924,24.8517 -4.6687,24.8993 -4.7449,24.9471 -4.8212,24.9948 -4.8214,24.9948 -4.8215,24.9950 -4.8216,24.9951 -4.9952,25.1021 -5.1687,25.2092 -5.3423,25.3162 -5.5160,25.4233 -5.6370,25.4945 -5.8046,25.5930 -5.9723,25.6916 -6.1399,25.7902 -6.1818,25.8149 -6.3075,25.8888 -6.5054,26.0052 -6.7033,26.1216 -6.9012,26.2379 -7.0991,26.3544 -7.2970,26.4707 -7.4949,26.5872 -7.6928,26.7035 -7.8908,26.8199 -8.0886,26.9362 -8.2864,27.0527 -8.4844,27.1690 -8.6824,27.2854 -8.6824,27.3795 -8.6824,27.4735 -8.6824,27.5674 -8.6824,27.6614 -8.6824,27.7214 -8.6824,27.7814 -8.6824,27.8412 -8.6824,27.9011 -8.6824,27.9611 -8.6824,28.0210 -8.6824,28.0809 -8.6824,28.1409 -8.6824,28.2008 -8.6824,28.2607 -8.6824,28.3206 -8.6824,28.3805 -8.6824,28.4405 -8.6824,28.5004 -8.6824,28.5603 -8.6824,28.6202 -8.6824,28.6659 -8.6788,28.6928 -8.6676,28.7117 -8.6488,28.7259 -8.5208,28.7871 -8.4758,28.8188 -8.4304,28.8410 -8.4178,28.8523 -8.3835,28.9058 -8.3685,28.9165 -8.3333,28.9304 -8.3168,28.9391 -8.2505,28.9948 -8.1823,29.0355 -8.0697,29.0793 -8.0363,29.0999 -7.9450,29.1762 -7.8391,29.2390 -7.7780,29.2893 -7.7300,29.3112 -7.7147,29.3218 -7.6536,29.3762 -7.6195,29.3894 -7.5727,29.3876 -7.5285,29.3809 -7.5061,29.3802 -7.4841,29.3824 -7.4633,29.3891 -7.3886,29.4485 -7.3159,29.5310 -7.3013,29.5422 -7.1407,29.6232 -7.1066,29.6288 -6.9862,29.6063 -6.8605,29.6071 -6.6940,29.5670 -6.6134,29.5642 -6.5437,29.6077 -6.5294,29.6274 -6.5192,29.6487 -6.5141,29.6714 -6.5159,29.6958 -6.5017,29.7327 -6.5009,29.7497 -6.5089,29.7920 -6.5051,29.8090 -6.4945,29.8206 -6.4775,29.8249 -6.4605,29.8207 -6.4246,29.8027 -6.4053,29.7992 -6.3468,29.8105 -6.3275,29.8110 -6.2681,29.7949 -6.2474,29.7935 -6.2249,29.7982 -6.2114,29.8073 -6.1997,29.8193 -6.1826,29.8329 -6.1420,29.8453 -6.1009,29.8400 -6.0596,29.8290 -6.0186,29.8240 -5.7674,29.8754 -5.5734,29.8940 -5.5160,29.9186 -5.4862,29.9403 -5.3823,29.9843 -5.3195,30.0287 -5.1494,30.1909 -5.0982,30.2521 -5.0279,30.3864 -4.9681,30.4741 -4.9485,30.4946 -4.9255,30.5070 -4.5763,30.6203 -4.5160,30.6244 -4.4451,30.6386 -4.3236,30.7019 -4.2216,30.7407 -4.1905,30.7612 -4.0486,30.8965 -4.0160,30.9098 -3.8569,30.9359 -3.7586,30.9339 -3.6996,30.9410 -3.6463,30.9599 -3.6170,30.9946 -3.6109,31.0116 -3.6087,31.0309 -3.6101,31.0503 -3.6145,31.0680 -3.6241,31.0865 -3.6359,31.0957 -3.6719,31.1109 -3.6897,31.1256 -3.7171,31.1633 -3.7314,31.1763 -3.7489,31.1802 -3.7637,31.1734 -3.7930,31.1497 -3.8108,31.1429 -3.8275,31.1438 -3.8393,31.1528 -3.8428,31.1702 -3.8362,31.1898 -3.8150,31.2205 -3.8129,31.2434 -3.8192,31.3189 -3.8152,31.3372 -3.8025,31.3506 -3.7475,31.3852 -3.7445,31.3917 -3.7506,31.4050 -3.7582,31.4127 -3.7689,31.4181 -3.8175,31.4323 -3.8409,31.4454 -3.8565,31.4655 -3.8595,31.4947 -3.8539,31.5338 -3.8496,31.6547 -3.8323,31.6870 -3.7973,31.7037 -3.7551,31.7100 -3.7161,31.7105 -3.6740,31.7045 -3.5914,31.6783 -3.5487,31.6700 -3.5116,31.6727 -3.4126,31.7164 -3.2806,31.7534 -3.1152,31.7997 -3.0162,31.8275 -2.9803,31.8575 -2.9657,31.8999 -2.9607,31.9945 -2.9387,32.0486 -2.8812,32.0763 -2.6956,32.0897 -2.5161,32.1322 -2.3786,32.1268 -2.3152,32.1243 -2.2434,32.1214 -2.1651,32.1183 -2.0819,32.1149 -1.9955,32.1115 -1.9076,32.1080 -1.8200,32.1045 -1.7343,32.1011 -1.6524,32.0978 -1.5758,32.0947 -1.5063,32.0919 -1.4456,32.0895 -1.3954,32.0876 -1.3574,32.0861 -1.3334,32.0851 -1.3250,32.0847 -1.2496,32.0817 -1.2103,32.0897 -1.1906,32.1252 -1.1956,32.1460 -1.2118,32.1583 -1.2327,32.1637 -1.2518,32.1635 -1.2890,32.1509 -1.3052,32.1512 -1.3096,32.1674 -1.3057,32.1737 -1.2892,32.1849 -1.2830,32.1902 -1.2766,32.2009 -1.2752,32.2091 -1.2755,32.2175 -1.2575,32.3208 -1.2441,32.3569 -1.2342,32.3746 -1.2180,32.3926 -1.2017,32.3999 -1.1603,32.4049 -1.1232,32.4179 -1.0900,32.4394 -1.0320,32.4944 -1.0475,32.5170 -1.3270,32.6989 -1.3905,32.7188 -1.4233,32.7424 -1.5588,32.9336 -1.5164,32.9595 -1.5089,32.9663 -1.5030,32.9746 -1.4988,32.9840 -1.4965,32.9943 -1.4934,33.0162 -1.4931,33.0395 -1.4995,33.0602 -1.5164,33.0740 -1.5455,33.0918 -1.5714,33.1120 -1.5921,33.1366 -1.6056,33.1680 -1.6236,33.1966 -1.6742,33.2380 -1.6834,33.2708 -1.6832,33.3692 -1.6728,33.3946 -1.6591,33.4198 -1.6404,33.4755 -1.6254,33.4942 -1.6127,33.5215 -1.6173,33.5544 -1.6624,33.6447 -1.6733,33.6565 -1.6907,33.6673 -1.7254,33.6777 -1.7407,33.6866 -1.7468,33.7024 -1.7422,33.7178 -1.7326,33.7279 -1.7209,33.7364 -1.7108,33.7471 -1.7032,33.7618 -1.7025,33.7728 -1.7130,33.8020 -1.7221,33.8512 -1.7187,33.8981 -1.6721,34.0592 -1.6696,34.0792 -1.6748,34.1060 -1.7461,34.2903 -1.7713,34.3347 -1.8096,34.3725 -1.7030,34.4797 -1.7142,34.4851 -1.7507,34.4942 -1.7985,34.5349 -1.8711,34.5966 -1.8630,34.6136 -1.8105,34.6807 -1.7861,34.7258 -1.7731,34.7341 -1.7695,34.7413 -1.7877,34.7567 -1.8928,34.8117 -1.9267,34.8381 -1.9797,34.8653 -1.9935,34.8789 -1.9984,34.8927 -1.9997,34.9063 -2.0036,34.9182 -2.0163,34.9262 -2.0612,34.9297 -2.0949,34.9477 -2.1260,34.9719 -2.1633,34.9940 -2.1938,35.0036 -2.1938,35.0037 -2.2117,35.0234 -2.2211,35.0500 -2.2213,35.0593 -2.2226,35.0893 -2.2213,35.1716 -2.2169,35.3192 -2.4083,35.3552 -2.4943,35.3460 -2.6041,35.3132 -2.6963,35.3945 -2.7237,35.5186 -2.7653,35.5766 -2.8554,35.6320 -2.9623,35.6533 -3.0455,35.6435 -3.1203,35.6129 -3.1811,35.5648 -3.2628,35.4623 -3.3569,35.4182 -3.4444,35.4194 -3.5917,35.4829 -3.7062,35.4979 -3.8489,35.4735 -3.9918,35.4683 -4.2927,35.3828 -4.4383,35.3727 -4.5556,35.3968 -4.6709,35.4470 -4.8965,35.5917 -5.0030,35.6784 -5.0563,35.7834 -5.0336,35.9124 -5.0507,35.9575 -5.2542,35.9968 -5.3237,36.0069 -5.3312,36.0080 -5.3812,36.0152 -5.6476,35.9258 -6.0508,35.9678 -6.0480,35.9698 -6.1331,35.9912 -6.2088,36.0304 -6.3855,36.1969 -6.4570,36.3307 -6.5438,36.4352 -6.6731,36.6314 -6.6980,36.7062 -6.6967,36.8115 -6.8642,36.9082 -7.0197,36.9716 -7.1582,36.9914 -7.2561,36.9748 -7.2989,36.9675 -7.3573,36.9577 -7.3775,37.0940 -7.3931,37.1761 -7.4138,37.1926 -7.4294,37.2367 -7.4342,37.2593 -7.4276,37.2745 -7.4374,37.3073 -7.4386,37.3196 -7.4450,37.3868 -7.4623,37.4179 -7.4600,37.4291 -7.4629,37.4511 -7.4689,37.4756 -7.4759,37.4942 -7.4815,37.5004 -7.4986,37.5117 -7.5063,37.5181 -7.5154,37.5293 -7.5175,37.5352 -7.5184,37.5419 -7.5237,37.5557 -7.5276,37.5555 -7.5291,37.5567 -7.5297,37.5672 -7.5265,37.5712 -7.5158,37.5809 -7.5147,37.5859 -7.5125,37.5904 -7.5118,37.5953 -7.5143,37.6014 -7.5049,37.6064 -7.4785,37.6289 -7.4716,37.6369 -7.4663,37.6520 -7.4576,37.7001 -7.4440,37.7302 -7.4263,37.7506 -7.3344,37.8119 -7.3069,37.8508 -7.2958,37.8849 -7.2739,37.9315 -7.2686,37.9492 -7.2691,37.9594 -7.2721,37.9689 -7.2727,37.9770 -7.2658,37.9830 -7.2340,37.9881 -7.2233,37.9938 -7.2103,37.9930 -7.1976,37.9899 -7.1853,37.9887 -7.1729,37.9938 -7.1597,37.9968 -7.1522,38.0007 -7.1419,38.0116 -7.1320,38.0324 -7.1233,38.0400 -7.1059,38.0387 -7.0494,38.0202 -7.0240,38.0226 -7.0158,38.0468 -7.0064,38.0593 -6.9976,38.0896 -6.9790,38.1199 -6.9655,38.1533 -6.9576,38.1682 -6.9475,38.1966 -6.9642,38.2061 -6.9921,38.2043 -7.0181,38.1980 -7.0210,38.1982 -7.0264,38.1996 -7.0387,38.1862 -7.0631,38.1775 -7.0883,38.1734 -7.1035,38.1736 -7.1269,38.1909 -7.1672,38.2721 -7.1724,38.2765 -7.1895,38.2865 -7.1963,38.2922 -7.2007,38.2984 -7.2071,38.3117 -7.2114,38.3175 -7.3171,38.4246 -7.3455,38.4410 -7.3592,38.4464 -7.3448,38.4583 -7.3352,38.4694 -7.3341,38.4810 -7.3456,38.4941 -7.3358,38.5059 -7.3177,38.5563 -7.2759,38.6038 -7.2704,38.6177 -7.2735,38.6254 -7.2794,38.6289 -7.2860,38.6319 -7.2909,38.6382 -7.2925,38.6461 -7.2930,38.6563 -7.2909,38.6791 -7.2841,38.7132 -7.2807,38.7204 -7.2722,38.7337 -7.2704,38.7375 -7.2115,38.7754 -7.1964,38.7800 -7.1797,38.7909 -7.1662,38.8034 -7.1606,38.8129 -7.1510,38.8193 -7.1049,38.8272 -7.0887,38.8334 -7.0765,38.8432 -7.0643,38.8511 -7.0561,38.8551 -7.0573,38.8694 -7.0522,38.8850 -7.0660,38.9046 -7.0445,38.9186 -7.0221,38.9429 -6.9886,38.9938 -6.9788,39.0038 -6.9733,39.0140 -6.9749,39.0230 -6.9863,39.0301 -6.9794,39.0472 -6.9857,39.0668 -6.9997,39.0847 -7.0158,39.0968 -7.0388,39.1091 -7.0649,39.1148 -7.0913,39.1124 -7.1152,39.1011 -7.1273,39.0975 -7.1425,39.0995 -7.1572,39.1054 -7.1675,39.1135 -7.1689,39.1219 -7.1579,39.1414 -7.1558,39.1515 -7.1681,39.1706 -7.1916,39.1792 -7.2193,39.1848 -7.2441,39.1956 -7.2581,39.2113 -7.2658,39.2314 -7.2643,39.2523 -7.2508,39.2706 -7.3005,39.3179 -7.3193,39.3295 -7.3267,39.3413 -7.3314,39.3626 -7.3319,39.3847 -7.3267,39.3988 -7.3189,39.4133 -7.3136,39.4361 -7.3135,39.4574 -7.3209,39.4674 -7.3629,39.4761 -7.3842,39.4840 -7.3994,39.4937 -7.4089,39.5156 -7.4176,39.5242 -7.4513,39.5378 -7.4681,39.5502 -7.4979,39.5810 -7.5158,39.5938 -7.5482,39.6632 -7.5573,39.6798 -7.3414,39.6718 -7.3278,39.6748 -7.3114,39.6803 -7.2928,39.6833 -7.2529,39.6823 -7.2358,39.6865 -7.2141,39.6762 -7.1829,39.6751 -7.0358,39.6893 -7.0211,39.6940 -7.0096,39.7155 -7.0107,39.7228 -7.0136,39.7296 -7.0133,39.7389 -7.0087,39.7483 -6.9968,39.7647 -6.9930,39.7742 -6.9946,39.7826 -6.9989,39.7918 -7.0003,39.8025 -6.9930,39.8161 -6.9852,39.8211 -6.9623,39.8285 -6.9528,39.8329 -6.9277,39.8619 -6.9242,39.8716 -6.9235,39.8883 -6.9218,39.8972 -6.9216,39.9022 -6.9251,39.9122 -6.9252,39.9179 -6.9223,39.9224 -6.9126,39.9281 -6.9095,39.9320 -6.9037,39.9567 -6.8998,39.9656 -6.9016,39.9765 -6.8969,39.9871 -6.8797,40.0092 -6.9199,40.0649 -6.9421,40.0863 -6.9557,40.1029 -6.9664,40.1103 -6.9772,40.1134 -7.0037,40.1163 -7.0158,40.1191 -7.0277,40.1326 -7.0348,40.1667 -7.0431,40.1814 -7.0346,40.1931 -7.0248,40.2162 -7.0158,40.2255 -6.9978,40.2317 -6.9547,40.2534 -6.9354,40.2558 -6.9158,40.2544 -6.8964,40.2555 -6.8781,40.2652 -6.8751,40.2712 -6.8739,40.2878 -6.8702,40.2955 -6.8639,40.3010 -6.8208,40.3253 -6.8120,40.3323 -6.7944,40.3564 -6.8281,40.3806 -6.8513,40.4095 -6.8571,40.4421 -6.8387,40.4772 -6.8153,40.5025 -6.8125,40.5146 -6.8181,40.5319 -6.8285,40.5455 -6.8398,40.5546 -6.8484,40.5648 -6.8505,40.5822 -6.8445,40.5978 -6.8213,40.6302 -6.8143,40.6472 -6.8142,40.6593 -6.8162,40.6772 -6.8243,40.7107 -6.8370,40.7433 -6.8391,40.7575 -6.8391,40.7769 -6.8373,40.7868 -6.8345,40.7922 -6.8335,40.7978 -6.8368,40.8083 -6.8381,40.8149 -6.8367,40.8402 -6.8203,40.8442 -6.8162,40.8568 -6.8212,40.8701 -6.8321,40.8759 -6.8470,40.8789 -6.8553,40.8872 -6.8636,40.9083 -6.8852,40.9489 -6.8992,40.9668 -6.9306,40.9921 -6.9404,41.0034 -6.9425,41.0160 -6.9318,41.0291 -6.9279,41.0479 -6.9068,41.0561 -6.8453,41.0519 -6.8180,41.0541 -6.8044,41.0644 -6.7648,41.1089 -6.7565,41.1271 -6.7590,41.1518 -6.7552,41.1588 -6.7422,41.1714 -6.7070,41.1943 -6.7013,41.2024 -6.6938,41.2174 -6.6582,41.2578 -6.6466,41.2676 -6.6289,41.2699 -6.5635,41.2707 -6.5545,41.2756 -6.4959,41.2949 -6.4631,41.3141 -6.4310,41.3390 -6.3996,41.3775 -6.3955,41.3784 -6.3832,41.3765 -6.3792,41.3775 -6.3767,41.3830 -6.3755,41.3908 -6.3762,41.3969 -6.3792,41.3973 -6.3662,41.4052 -6.3523,41.4093 -6.3211,41.4110 -6.3210,41.4196 -6.2829,41.4656 -6.2825,41.4723 -6.2852,41.4790 -6.2859,41.4869 -6.2795,41.4970 -6.2536,41.5175 -6.2059,41.5703 -6.2161,41.5801 -6.2301,41.5949 -6.2722,41.6282 -6.3171,41.6501 -6.3659,41.6636 -6.4471,41.6762 -6.4608,41.6766 -6.4677,41.6721 -6.4744,41.6659 -6.4880,41.6588 -6.5030,41.6531 -6.5134,41.6509 -6.5415,41.6589 -6.5553,41.6749 -6.5605,41.6945 -6.5631,41.7130 -6.5677,41.7224 -6.5743,41.7310 -6.5774,41.7397 -6.5715,41.7492 -6.5644,41.7575 -6.5601,41.7669 -6.5357,41.8486 -6.5242,41.8674 -6.5501,41.8739 -6.5679,41.8759 -6.5758,41.8829 -6.5676,41.9261 -6.5717,41.9426 -6.5851,41.9546 -6.6095,41.9623 -6.6228,41.9410 -6.6568,41.9331 -6.7280,41.9309 -6.7579,41.9376 -6.7944,41.9797 -6.8249,41.9838 -6.8312,41.9540 -6.8550,41.9429 -6.9171,41.9391 -6.9451,41.9434 -6.9695,41.9577 -6.9924,41.9664 -7.0158,41.9537 -7.0513,41.9420 -7.0827,41.9528 -7.1132,41.9724 -7.1454,41.9875 -7.1597,41.9857 -7.1773,41.9784 -7.1926,41.9696 -7.1999,41.9637 -7.2021,41.9497 -7.1957,41.9174 -7.1979,41.9015 -7.2187,41.8790 -7.2515,41.8637 -7.3225,41.8454 -7.3405,41.8432 -7.3768,41.8440 -7.3919,41.8420 -7.4054,41.8352 -7.4295,41.8145 -7.4427,41.8060 -7.4470,41.8218 -7.4566,41.8392 -7.4694,41.8525 -7.4833,41.8562 -7.4930,41.8569 -7.5081,41.8649 -7.5158,41.8650 -7.5233,41.8602 -7.5252,41.8542 -7.5263,41.8474 -7.5316,41.8402 -7.5467,41.8320 -7.5671,41.8266 -7.5884,41.8242 -7.6061,41.8255 -7.6222,41.8323 -7.6228,41.8417 -7.6074,41.8732 -7.6612,41.8749 -7.6633,41.8757 -7.6787,41.8813 -7.7064,41.8963 -7.7220,41.8993 -7.7501,41.8884 -7.8122,41.8771 -7.8392,41.8784 -7.8497,41.8758 -7.8544,41.8703 -7.8579,41.8638 -7.8648,41.8579 -7.8966,41.8579 -7.9034,41.8868 -7.9061,41.9139 -7.9258,41.9082 -7.9305,41.8967 -7.9354,41.8800 -7.9448,41.8670 -7.9634,41.8666 -7.9794,41.8686 -7.9936,41.8637 -8.0059,41.8540 -8.0157,41.8419 -8.0486,41.8164 -8.0935,41.8067 -8.1796,41.8107 -8.1754,41.8366 -8.1770,41.8498 -8.1846,41.8577 -8.2204,41.8682 -8.2317,41.8860 -8.2302,41.9047 -8.2207,41.9227 -8.1821,41.9654 -8.1530,41.9868 -8.1239,42.0009 -8.1080,42.0109 -8.0974,42.0235 -8.0951,42.0409 -8.1032,42.0558 -8.1184,42.0669 -8.1376,42.0729 -8.1584,42.0714 -8.1762,42.0653 -8.1913,42.0621 -8.2040,42.0696 -8.2074,42.0858 -8.2043,42.1288 -8.2134,42.1440 -8.2224,42.1536 -8.2523,42.1376 -8.2707,42.1320 -8.2878,42.1314 -8.2954,42.1301 -8.3043,42.1258 -8.3300,42.1084 -8.3467,42.1017 -8.5012,42.0831 -8.5200,42.0777 -8.5544,42.0601 -8.5728,42.0544 -8.6094,42.0537 -8.6269,42.0510 -8.6439,42.0415 -8.6526,42.0314 -8.6632,42.0099 -8.6708,41.9998 -8.6836,41.9934 -8.6913,41.9896 -8.7170,41.9838 -8.7396,41.9751 -8.7502,41.9688 -8.7515,41.9669 -8.7589,41.9560 -8.7720,41.9350 -8.8004,41.9127 -8.8048,41.9117 -8.8452,41.8892 -8.8521,41.8854 -8.8646,41.8770 -8.8663,41.8775 -8.8868,41.8660 -8.8870,41.8658 -8.9686,41.8658 -9.0462,41.8658 -9.0482,41.8658 -9.1403,41.8658 -9.1684,41.8658 -9.1647,41.8985 -9.1825,42.1128 -9.1466,42.2252 -9.1480,42.3156 -9.3145,42.4825 -9.3511,42.5507 -9.3737,42.6786 -9.5213,42.8063 -9.5707,42.8957 -9.5747,42.9689 -9.5510,43.1036 -9.5206,43.1886 -9.4768,43.2582 -9.4229,43.3129 -9.3563,43.3580 -9.2340,43.4095 -9.1534,43.4688 -8.9712,43.5400 -8.8609,43.5628 -8.6988,43.5378 -8.6341,43.5463 -8.6114,43.5707 -8.5781,43.6671 -8.5186,43.7294 -8.4562,43.7637 -8.3527,43.7899 -8.2630,43.8710 -8.1358,43.9186 -8.0617,43.9587 -7.9765,43.9825 -7.8601,43.9968 -7.6974,44.0167 -7.6007,44.0065 -7.4683,43.9509 -7.2895,43.8982 -7.0999,43.8005 -6.8896,43.7943 -6.6255,43.8063 -6.3985,43.7959 -6.2586,43.8243 -6.1039,43.8189 -5.9472,43.8811 -5.8172,43.8919 -5.7150,43.8717 -5.5460,43.7851 -5.3700,43.7868 -5.1011,43.7190 -4.9558,43.7020 -4.6856,43.6484 -4.5600,43.6363 -4.2730,43.6389 -3.9385,43.7132 -3.5627,43.7465 -3.4254,43.7210 -3.1548,43.6175 -3.0156,43.6529 -2.7502,43.6797 -2.4101,43.5937 -2.2767,43.5463 -2.1897,43.5385 -2.0903,43.5502 -1.9152,43.6091 -1.8272,43.6245 -1.8012,43.6291 -1.7477,43.6688 -1.6571,44.0167 -1.5664,44.3647 -1.5391,44.7796 -1.4869,45.1563 -1.4347,45.5330 -1.5239,45.6279 -1.5495,45.7788 -1.6570,45.8936 -1.7146,46.0447 -1.8268,46.1499 -1.8622,46.2863 -1.9555,46.3134 -2.0249,46.3569 -2.0814,46.4236 -2.1205,46.5124 -2.2620,46.4830 -2.4086,46.4919 -2.5413,46.5341 -2.6412,46.6043 -2.6840,46.6749 -2.6865,46.7568 -2.6532,46.8246 -2.6494,46.8285 -3.0315,47.0853 -3.0530,47.0803 -3.2244,47.0904 -3.3854,47.1422 -3.5116,47.2256 -3.5736,47.3148 -3.5767,47.4138 -3.5232,47.4992 -3.6154,47.5234 -3.7075,47.5753 -3.9273,47.5954 -4.0327,47.6280 -4.1765,47.5930 -4.3534,47.5902 -4.4700,47.6060 -4.5563,47.6359 -4.6449,47.7023 -4.7018,47.8068 -4.9056,47.8723 -4.9685,47.9084 -5.0149,47.9526 -5.0388,47.9980 -5.0442,48.0498 -5.0329,48.0951 -4.9875,48.1688 -4.9983,48.2051 -5.0562,48.2310 -5.2365,48.2519 -5.3201,48.2864 -5.4156,48.3648 -5.4518,48.4549 -5.4339,48.8338 -5.4161,49.2127 -5.3459,49.2157 -5.3014,49.2218 -5.1848,49.2401 -4.8652,49.3132 -4.5456,49.3862 -4.3642,49.4554 -4.2998,49.4601 -3.9312,49.5346 -3.7137,49.5440 -3.5820,49.5524 -3.3514,49.6407 -2.9431,49.7740 -2.8081,49.9629 -2.4334,50.0580 -2.0586,50.1530 -1.7800,50.1531 -1.5014,50.1532 -1.2514,50.1466 -1.0014,50.1399 -0.7514,50.1319 -0.5014,50.1238 -0.2597,50.2194 0.0358,50.2358 0.3189,50.2815 0.6020,50.3272 0.7761,50.3886 1.1225,50.6430 1.2199,50.7546 1.2564,50.7964 1.2635,50.8244 1.2814,50.8955 1.3556,50.9491 1.5467,51.0377 1.7239,51.0986 1.8875,51.1993 1.9073,51.2115 2.0567,51.2273 2.3818,51.2819 2.3863,51.2826 2.6468,51.3885 2.9072,51.4944 3.0866,51.5475 3.0966,51.5505 3.1352,51.6292 3.1850,51.6808 3.3416,51.7651 3.4436,51.8714 3.5642,51.9263 3.6633,51.9900 3.7524,52.1242 3.8100,52.1552 3.9707,52.2073 4.0636,52.2737 4.1905,52.4215 4.2429,52.5206 4.3238,52.8272 4.3738,52.9253 4.3572,53.0423 4.3866,53.1322 4.4265,53.1865 4.5277,53.2731 4.5952,53.3482 4.7290,53.4364 4.8711,53.4940 4.9858,53.5628 5.1539,53.6100 5.6067,53.6777 5.9915,53.6827 6.3261,53.7551 6.3280,53.7556 6.3469,53.7596 6.5471,53.7933 6.6962,53.8566 6.7966,53.8840 7.1344,53.9341 7.2887,53.9395 7.3929,53.9650 7.4990,53.9773 7.4990,54.4556 7.4990,54.9340 7.4990,55.4123 7.4990,55.8906 7.4990,56.3689 7.4990,56.8473 7.4990,57.3256 7.4990,57.8039 7.2730,57.8108 7.0693,57.7844 6.9714,57.7826 6.8658,57.7979 6.6982,57.8440 6.4430,57.8783 6.3376,57.9152 6.2413,57.9685 6.1172,58.0944 5.7558,58.2213 5.6605,58.2789 5.4947,58.3257 5.3499,58.3997 5.2507,58.4785 5.1016,58.6393 5.0579,58.7059 5.0533,58.7895 5.1316,58.8914 5.1338,58.9312 5.1121,58.9411 4.9687,58.9612 4.8560,59.0060 4.7743,59.0736 4.7294,59.1601 4.7233,59.2682 4.7778,59.4723 4.7083,59.5913 4.6527,59.7865 4.7019,59.9288 4.7503,59.9938 4.7523,60.0238 4.7199,60.0627 4.5954,60.1384 4.5278,60.2185 4.5095,60.2835 4.5328,60.3713 4.5283,60.4089 4.5090,60.4317 4.3994,60.4976 4.3506,60.5835 4.3618,60.6939 4.4223,60.7924 4.2519,60.9394 4.2074,61.0238 4.2136,61.0870 4.2514,61.1474 4.5044,61.3315 4.5206,61.3577 4.5135,61.4499 4.5393,61.5050 4.4431,61.5754 4.3972,61.6364 4.3848,61.6888 4.3960,61.7491 4.3564,61.8304 4.3662,61.8857 4.4083,61.9385 4.5248,62.0357 4.5518,62.0887 4.6137,62.1610 4.6614,62.2649 4.7304,62.3217 4.8009,62.3531 4.9228,62.3920 5.0686,62.4221 5.1485,62.4932 5.2776,62.5477 5.4108,62.5747 5.5793,62.5842 5.7965,62.6378 5.8816,62.7093 5.9724,62.7563 6.0778,62.7902 6.2412,62.8184 6.2833,62.8338 6.3786,62.9570 6.4677,63.0189 6.5739,63.0761 6.8211,63.1594 7.0484,63.2069 7.2273,63.2532 7.3121,63.2829 7.3356,63.2979 7.3417,63.3160 7.3101,63.4378 7.3542,63.5038 7.4137,63.5435 7.4899,63.5769 7.5166,63.5847 7.5166,64.0192 7.5166,64.4536 7.5166,64.8881 7.5166,64.9000 7.5166,65.3988 7.5166,65.8976 7.5166,66.3964 7.5166,66.8952 7.5166,67.3941 7.5166,67.8929 7.5166,68.3917 7.5166,68.8905 7.5166,69.3893 7.5166,69.8881 7.5166,69.9000 7.5166,70.3988 7.5166,70.8976 7.5166,71.3964 7.5166,71.8952 7.5166,72.3941 7.5166,72.8929 7.5166,73.3917 7.5166,73.8905 7.5166,74.3893 7.5166,74.8881 7.5166,74.9000 7.5166,75.3988 7.5166,75.8976 7.5166,76.3964 7.5166,76.8952 7.5166,77.3941 7.5166,77.8929 7.5166,78.3917 7.5166,78.8905 7.5166,79.3893 7.5166,79.8881 7.5166,79.9000 7.5166,80.3988 7.5166,80.8976 7.5166,81.3964 7.5166,81.8952 7.5166,82.3941 7.5166,82.8929 7.5166,83.3917 7.5166,83.8905 7.5166,84.3893 7.5166,84.8881 7.5166,84.9000 7.5166,85.3593 7.5166,85.8186 7.5166,86.2780 7.5166,86.7373 7.5166,87.1966 7.5166,87.6559 7.5166,88.1152 7.5166,88.5746 7.5166,89.0339 7.5166,89.4932 7.5166,89.9525 7.5167,90.0000 98,3.0,Arctic Ocean 41.9979,82.9985 41.5023,82.9985 41.0066,82.9985 40.5109,82.9985 40.0153,82.9985 39.5196,82.9985 39.0239,82.9985 38.5282,82.9985 38.0326,82.9985 37.5369,82.9985 37.5369,83.4739 37.5369,83.9493 37.5369,84.4246 37.5369,84.9000 37.5369,84.9011 37.5369,85.3646 37.5369,85.8281 37.5369,86.2917 37.5369,86.7552 37.5369,87.2188 37.5369,87.6823 37.5369,88.1458 37.5369,88.6094 37.5369,89.0729 37.5369,89.5365 37.5369,90.0000 37.9769,90.0000 38.4169,90.0000 38.8569,90.0000 39.2969,90.0000 39.7368,90.0000 40.1768,90.0000 40.6168,90.0000 41.0568,90.0000 41.4968,90.0000 41.9368,90.0000 42.3768,90.0000 42.8168,90.0000 43.2568,90.0000 43.6968,90.0000 44.1368,90.0000 44.5767,90.0000 45.0167,90.0000 45.4567,90.0000 45.8967,90.0000 46.3367,90.0000 46.7767,90.0000 47.2167,90.0000 47.6567,90.0000 48.0967,90.0000 48.5367,90.0000 48.9766,90.0000 49.4166,90.0000 49.8566,90.0000 50.2966,90.0000 50.7366,90.0000 51.1766,90.0000 51.6166,90.0000 52.0566,90.0000 52.4966,90.0000 52.5028,90.0000 52.5027,89.5332 52.5025,89.0665 52.5023,88.5997 52.5021,88.1329 52.5019,87.6662 52.5017,87.1994 52.5015,86.7326 52.5013,86.2659 52.5011,85.7991 52.5009,85.3323 52.5007,84.8656 52.5006,84.3988 52.5004,83.9320 52.5002,83.4653 52.5000,82.9985 52.0226,82.9985 51.5452,82.9985 51.0679,82.9985 50.5905,82.9985 50.1132,82.9985 49.6358,82.9985 49.1584,82.9985 48.6811,82.9985 48.2037,82.9985 47.7263,82.9985 47.2490,82.9985 46.7716,82.9985 46.2942,82.9985 45.8169,82.9985 45.3395,82.9985 44.8621,82.9985 44.3848,82.9985 43.9074,82.9985 43.4300,82.9985 42.9527,82.9985 42.4753,82.9985 41.9979,82.9985 19,8.75,Australia/Eucla 127.7473,-32.3120 127.5092,-32.3866 127.5090,-32.0693 127.5089,-31.7519 127.8277,-31.6585 128.1175,-31.6134 128.5135,-31.4331 128.7389,-31.3558 129.0017,-31.2622 129.0012,-31.6891 128.9997,-31.7841 128.9974,-31.8161 128.9974,-31.8718 128.9946,-31.8724 128.9194,-31.8999 128.6635,-32.0352 128.4237,-32.1242 128.1838,-32.2131 127.7473,-32.3120 754,0.0,Europe/London 7.5166,69.8881 7.5166,69.3893 7.5166,68.8905 7.5166,68.3917 7.5166,67.8929 7.5166,67.3941 7.5166,66.8952 7.5166,66.3964 7.5166,65.8976 7.5166,65.3988 7.5166,64.9000 7.5166,64.8881 7.5166,64.4536 7.5166,64.0192 7.5166,63.5847 7.4899,63.5769 7.4137,63.5435 7.3542,63.5038 7.3101,63.4378 7.3417,63.3160 7.3356,63.2979 7.3121,63.2829 7.2273,63.2532 7.0484,63.2069 6.8211,63.1594 6.5739,63.0761 6.4677,63.0189 6.3786,62.9570 6.2833,62.8338 6.2412,62.8184 6.0778,62.7902 5.9724,62.7563 5.8816,62.7093 5.7965,62.6378 5.5793,62.5842 5.4108,62.5747 5.2776,62.5477 5.1485,62.4932 5.0686,62.4221 4.9228,62.3920 4.8009,62.3531 4.7304,62.3217 4.6614,62.2649 4.6137,62.1610 4.5518,62.0887 4.5248,62.0357 4.4083,61.9385 4.3662,61.8857 4.3564,61.8304 4.3960,61.7491 4.3848,61.6888 4.3972,61.6364 4.4431,61.5754 4.5393,61.5050 4.5135,61.4499 4.5206,61.3577 4.5044,61.3315 4.2514,61.1474 4.2136,61.0870 4.2074,61.0238 4.2519,60.9394 4.4223,60.7924 4.3618,60.6939 4.3506,60.5835 4.3994,60.4976 4.5090,60.4317 4.5283,60.4089 4.5328,60.3713 4.5095,60.2835 4.5278,60.2185 4.5954,60.1384 4.7199,60.0627 4.7523,60.0238 4.7503,59.9938 4.7019,59.9288 4.6527,59.7865 4.7083,59.5913 4.7778,59.4723 4.7233,59.2682 4.7294,59.1601 4.7743,59.0736 4.8560,59.0060 4.9687,58.9612 5.1121,58.9411 5.1338,58.9312 5.1316,58.8914 5.0533,58.7895 5.0579,58.7059 5.1016,58.6393 5.2507,58.4785 5.3499,58.3997 5.4947,58.3257 5.6605,58.2789 5.7558,58.2213 6.1172,58.0944 6.2413,57.9685 6.3376,57.9152 6.4430,57.8783 6.6982,57.8440 6.8658,57.7979 6.9714,57.7826 7.0693,57.7844 7.2730,57.8108 7.4990,57.8039 7.4990,57.3256 7.4990,56.8473 7.4990,56.3689 7.4990,55.8906 7.4990,55.4123 7.4990,54.9340 7.4990,54.4556 7.4990,53.9773 7.3929,53.9650 7.2887,53.9395 7.1344,53.9341 6.7966,53.8840 6.6962,53.8566 6.5471,53.7933 6.3469,53.7596 6.3280,53.7556 6.3261,53.7551 5.9915,53.6827 5.6067,53.6777 5.1539,53.6100 4.9858,53.5628 4.8711,53.4940 4.7290,53.4364 4.5952,53.3482 4.5277,53.2731 4.4265,53.1865 4.3866,53.1322 4.3572,53.0423 4.3738,52.9253 4.3238,52.8272 4.2429,52.5206 4.1905,52.4215 4.0636,52.2737 3.9707,52.2073 3.8100,52.1552 3.7524,52.1242 3.6633,51.9900 3.5642,51.9263 3.4436,51.8714 3.3416,51.7651 3.1850,51.6808 3.1352,51.6292 3.0966,51.5505 3.0866,51.5475 2.9072,51.4944 2.6468,51.3885 2.3863,51.2826 2.3818,51.2819 2.0567,51.2273 1.9073,51.2115 1.8875,51.1993 1.7239,51.0986 1.5467,51.0377 1.3556,50.9491 1.2814,50.8955 1.2635,50.8244 1.2564,50.7964 1.2199,50.7546 1.1225,50.6430 0.7761,50.3886 0.6020,50.3272 0.3189,50.2815 0.0358,50.2358 -0.2597,50.2194 -0.5014,50.1238 -0.7514,50.1319 -1.0014,50.1399 -1.2514,50.1466 -1.5014,50.1532 -1.7800,50.1531 -2.0586,50.1530 -2.4334,50.0580 -2.8081,49.9629 -2.9431,49.7740 -3.3514,49.6407 -3.5820,49.5524 -3.7137,49.5440 -3.9312,49.5346 -4.2998,49.4601 -4.3642,49.4554 -4.5456,49.3862 -4.8652,49.3132 -5.1848,49.2401 -5.3014,49.2218 -5.3459,49.2157 -5.4161,49.2127 -5.4339,48.8338 -5.4518,48.4549 -5.4156,48.3648 -5.3201,48.2864 -5.2365,48.2519 -5.0562,48.2310 -4.9983,48.2051 -4.9875,48.1688 -5.0329,48.0951 -5.0442,48.0498 -5.0388,47.9980 -5.0149,47.9526 -4.9685,47.9084 -4.9056,47.8723 -4.7018,47.8068 -4.6449,47.7023 -4.5563,47.6359 -4.4700,47.6060 -4.3534,47.5902 -4.1765,47.5930 -4.0327,47.6280 -3.9273,47.5954 -3.7075,47.5753 -3.6154,47.5234 -3.5232,47.4992 -3.5767,47.4138 -3.5736,47.3148 -3.5116,47.2256 -3.3854,47.1422 -3.2244,47.0904 -3.0530,47.0803 -3.0315,47.0853 -2.6494,46.8285 -2.6532,46.8246 -2.6865,46.7568 -2.6840,46.6749 -2.6412,46.6043 -2.5413,46.5341 -2.4086,46.4919 -2.2620,46.4830 -2.1205,46.5124 -2.0814,46.4236 -2.0249,46.3569 -1.9555,46.3134 -1.8622,46.2863 -1.8268,46.1499 -1.7146,46.0447 -1.6570,45.8936 -1.5495,45.7788 -1.5239,45.6279 -1.4347,45.5330 -1.4869,45.1563 -1.5391,44.7796 -1.5664,44.3647 -1.6571,44.0167 -1.7477,43.6688 -1.8012,43.6291 -1.8272,43.6245 -1.9152,43.6091 -2.0903,43.5502 -2.1897,43.5385 -2.2767,43.5463 -2.4101,43.5937 -2.7502,43.6797 -3.0156,43.6529 -3.1548,43.6175 -3.4254,43.7210 -3.5627,43.7465 -3.9385,43.7132 -4.2730,43.6389 -4.5600,43.6363 -4.6856,43.6484 -4.9558,43.7020 -5.1011,43.7190 -5.3700,43.7868 -5.5460,43.7851 -5.7150,43.8717 -5.8172,43.8919 -5.9472,43.8811 -6.1039,43.8189 -6.2586,43.8243 -6.3985,43.7959 -6.6255,43.8063 -6.8896,43.7943 -7.0999,43.8005 -7.2895,43.8982 -7.4683,43.9509 -7.6007,44.0065 -7.6974,44.0167 -7.8601,43.9968 -7.8601,44.4790 -7.8601,44.9613 -7.8601,45.4436 -7.8601,45.9259 -7.8601,46.4082 -7.8601,46.8904 -7.8601,47.3655 -7.8601,47.8405 -7.8601,48.3156 -7.8601,48.7906 -7.8601,49.2656 -7.8601,49.7407 -7.8601,50.2157 -7.8601,50.6908 -7.8601,51.1658 -7.8601,51.6409 -8.0237,51.6058 -8.1024,51.5797 -8.2045,51.5317 -8.3237,51.4483 -8.3884,51.4191 -8.5930,51.3745 -8.7248,51.3607 -8.8838,51.3266 -8.9989,51.3220 -9.1214,51.2857 -9.2871,51.2653 -9.4000,51.2622 -9.5406,51.2810 -9.7073,51.2436 -9.8195,51.2338 -9.9080,51.2411 -9.9941,51.2641 -10.0706,51.3034 -10.1423,51.3662 -10.3008,51.3913 -10.4154,51.4464 -10.4841,51.5215 -10.5022,51.6017 -10.6346,51.6787 -10.6986,51.7439 -10.7428,51.8133 -10.7632,51.8924 -10.7537,51.9829 -10.8013,52.0652 -10.8170,52.1421 -10.8074,52.2077 -10.7687,52.2713 -10.6916,52.3369 -10.5692,52.4022 -10.4368,52.4550 -10.2817,52.4910 -10.2777,52.6017 -10.2229,52.6827 -10.1565,52.7248 -9.9929,52.7925 -9.8235,52.9029 -9.9936,52.9583 -10.0998,53.0184 -10.1514,53.0835 -10.1614,53.1699 -10.1768,53.1915 -10.3088,53.2167 -10.3838,53.2416 -10.4530,53.2810 -10.5025,53.3308 -10.5284,53.3895 -10.5259,53.4528 -10.5570,53.5257 -10.5429,53.6037 -10.5079,53.6513 -10.4489,53.6975 -10.3730,53.7339 -10.2934,53.7559 -10.4832,53.8088 -10.5574,53.8525 -10.6171,53.9344 -10.6168,54.0240 -10.5810,54.0813 -10.4913,54.1634 -10.4683,54.2790 -10.4240,54.3461 -10.3180,54.4283 -10.1743,54.4912 -10.0357,54.5192 -9.7995,54.5468 -9.5659,54.5265 -9.2966,54.5286 -9.0364,54.5030 -9.1089,54.5564 -9.1540,54.6277 -9.1628,54.7042 -9.1346,54.7772 -9.0894,54.8220 -8.9338,54.9182 -8.9267,55.0367 -8.8588,55.1272 -8.7807,55.1767 -8.6435,55.2255 -8.5527,55.3001 -8.4671,55.3422 -8.3781,55.3642 -8.2582,55.3744 -8.1447,55.4139 -7.8550,55.4643 -7.7580,55.4811 -7.5816,55.5656 -7.5163,55.5829 -7.5162,55.9658 -7.5162,56.3486 -7.5161,56.7315 -7.5285,56.7309 -7.6771,56.7505 -7.8060,56.7921 -7.8936,56.8501 -7.9369,56.9208 -7.9405,56.9768 -7.9230,57.0328 -7.8274,57.1514 -7.8433,57.2532 -7.8054,57.3893 -7.8224,57.4440 -8.1897,57.5192 -8.5571,57.5945 -8.7187,57.6045 -8.8478,57.6441 -8.9528,57.7165 -9.0036,57.8042 -8.9950,57.8941 -8.9362,57.9628 -8.8267,58.0152 -8.6665,58.0428 -8.2830,58.0948 -7.8995,58.1468 -7.5160,58.1987 -7.5159,58.5315 -7.5159,58.8643 -7.5158,59.2935 -7.5158,59.7227 -7.5157,60.1519 -7.5156,60.5811 -7.5156,61.0102 -7.5155,61.4394 -7.5155,61.8686 -7.5514,61.8785 -7.7939,61.9066 -7.9421,61.9476 -8.0122,61.9839 -8.0624,62.0290 -8.0895,62.0829 -8.0887,62.1345 -8.0532,62.1937 -7.9848,62.2442 -7.8570,62.2924 -7.6638,62.3295 -7.5715,62.4315 -7.5154,62.4623 -7.5153,62.8411 -7.5153,63.2198 -7.9996,63.2185 -8.4839,63.2173 -8.9681,63.2160 -9.4524,63.2147 -9.9367,63.2134 -10.4210,63.2122 -10.9053,63.2109 -11.3895,63.2096 -11.8738,63.2083 -12.3581,63.2071 -12.8424,63.2058 -13.3267,63.2045 -13.8109,63.2032 -14.2952,63.2020 -14.7795,63.2007 -15.2638,63.1994 -15.7481,63.1981 -16.2324,63.1969 -16.7166,63.1956 -17.2009,63.1943 -17.6852,63.1930 -18.1695,63.1918 -18.6538,63.1905 -18.8298,63.1889 -19.3025,63.2256 -19.4746,63.2496 -19.7407,63.3044 -19.8364,63.3173 -19.9672,63.2477 -20.1111,63.2079 -20.2900,63.1930 -20.4602,63.2090 -20.6047,63.2525 -20.7139,63.3209 -20.7669,63.3959 -20.7675,63.4840 -20.7794,63.4981 -20.9296,63.5659 -21.1998,63.6447 -21.3286,63.6460 -21.6325,63.6224 -21.8668,63.6346 -22.0717,63.6256 -22.2362,63.6361 -22.5271,63.6118 -22.5852,63.6070 -22.6812,63.5990 -22.8484,63.6135 -22.9955,63.6525 -23.0433,63.6776 -23.1180,63.7170 -23.1829,63.7982 -23.2132,63.9998 -23.1776,64.1133 -23.1149,64.1760 -23.0844,64.2066 -23.0153,64.2446 -22.9489,64.2691 -22.8725,64.2874 -22.7859,64.2983 -22.6890,64.3011 -22.5815,64.2945 -22.5931,64.3314 -22.6596,64.3707 -22.7906,64.4716 -22.8470,64.5456 -22.8922,64.5704 -22.9473,64.5836 -23.1750,64.5939 -23.2521,64.5975 -23.3216,64.5909 -23.5134,64.5411 -23.6832,64.5210 -23.8891,64.5198 -24.0682,64.5420 -24.2477,64.5962 -24.3813,64.6698 -24.5103,64.7937 -24.5400,64.8436 -24.5506,64.8936 -24.5328,64.9524 -24.4820,65.0041 -24.4065,65.0456 -24.2956,65.0826 -24.2240,65.0981 -24.2191,65.2306 -24.3693,65.2791 -24.6111,65.2844 -24.7159,65.2981 -24.8009,65.3177 -24.8953,65.3532 -24.9703,65.3974 -25.0223,65.4463 -25.0444,65.4947 -25.0343,65.5539 -24.9878,65.6028 -24.8661,65.6749 -24.7841,65.7377 -24.6633,65.7958 -24.6128,65.8643 -24.5581,65.9062 -24.4833,65.9428 -24.3389,65.9959 -24.3131,66.0995 -24.2452,66.1726 -24.1752,66.2118 -24.0503,66.2597 -23.9424,66.3184 -23.7146,66.3943 -23.6091,66.5199 -23.5378,66.5675 -23.4492,66.6013 -23.3401,66.6282 -23.1625,66.6565 -23.0123,66.6723 -22.8498,66.6765 -22.7134,66.6692 -22.5665,66.6728 -22.5274,66.6738 -22.4440,66.6758 -22.3343,66.6704 -22.2294,66.6578 -22.1453,66.6404 -22.0710,66.6167 -21.8090,66.4747 -21.6193,66.4266 -21.5102,66.3754 -21.3651,66.3265 -21.2702,66.2718 -21.1663,66.2385 -20.9248,66.1400 -20.8583,66.1988 -20.7480,66.2448 -20.4100,66.3196 -20.2890,66.3364 -20.1086,66.3426 -19.9456,66.3310 -19.7986,66.3032 -19.6789,66.2585 -19.4909,66.2950 -19.3042,66.3532 -18.9840,66.4079 -18.8732,66.4139 -18.7539,66.4105 -18.5017,66.3756 -18.3735,66.3876 -18.4708,66.4422 -18.5286,66.5133 -18.5331,66.5760 -18.4891,66.6457 -18.3954,66.7056 -18.2784,66.7445 -18.1300,66.7678 -17.9540,66.7716 -17.7907,66.7544 -17.3013,66.7547 -16.8118,66.7550 -16.3224,66.7554 -15.8330,66.7557 -15.3436,66.7561 -14.8542,66.7564 -14.3648,66.7567 -13.8753,66.7571 -13.3859,66.7574 -12.8965,66.7577 -12.4071,66.7581 -11.9177,66.7584 -11.4283,66.7587 -10.9389,66.7591 -10.4494,66.7594 -9.9600,66.7597 -9.4706,66.7601 -8.9812,66.7604 -8.4918,66.7607 -8.0024,66.7611 -7.5130,66.7614 -7.5123,67.1094 -7.5117,67.4574 -7.5117,67.9459 -7.5117,68.4344 -7.5117,68.9229 -7.5117,69.4115 -7.5117,69.9000 -7.5117,70.3207 -7.5117,70.7414 -7.5117,70.9038 -7.4709,70.9200 -7.4176,70.9543 -7.3804,70.9912 -7.3060,71.1214 -7.2983,71.1715 -7.3301,71.2232 -7.4153,71.2837 -7.5117,71.3199 -7.5117,71.7674 -7.5117,72.2149 -7.5117,72.6624 -7.5117,73.1099 -7.5117,73.5575 -7.5117,74.0050 -7.5117,74.4525 -7.5117,74.9000 -7.5117,75.3545 -7.5117,75.8091 -7.5117,76.2636 -7.5117,76.7182 -7.5117,77.1727 -7.5117,77.6273 -7.5117,78.0818 -7.5117,78.5364 -7.5117,78.9909 -7.5117,79.4455 -7.5117,79.9000 -7.5117,80.3545 -7.5117,80.8091 -7.5117,81.2636 -7.5117,81.7182 -7.5117,82.1727 -7.5117,82.6273 -7.5117,83.0818 -7.5117,83.5364 -7.5117,83.9909 -7.5117,84.4455 -7.5117,84.9000 -7.5117,85.3636 -7.5117,85.8273 -7.5117,86.2909 -7.5117,86.7545 -7.5117,87.2182 -7.5117,87.6818 -7.5117,88.1455 -7.5117,88.6091 -7.5117,89.0727 -7.5117,89.5364 -7.5117,90.0000 -7.0899,90.0000 -6.6204,90.0000 -6.1509,90.0000 -5.6814,90.0000 -5.2119,90.0000 -4.7424,90.0000 -4.2730,90.0000 -3.8035,90.0000 -3.3340,90.0000 -2.8645,90.0000 -2.3950,90.0000 -1.9255,90.0000 -1.4561,90.0000 -0.9866,90.0000 -0.5171,90.0000 -0.0476,90.0000 -0.0476,90.0000 0.4222,90.0000 0.8920,90.0000 1.3618,90.0000 1.8316,90.0000 2.3014,90.0000 2.7712,90.0000 3.2409,90.0000 3.7107,90.0000 4.1805,90.0000 4.6503,90.0000 5.1201,90.0000 5.5899,90.0000 6.0597,90.0000 6.5295,90.0000 6.9992,90.0000 7.2580,90.0000 7.5167,90.0000 7.5166,89.9881 7.5166,89.5255 7.5166,89.0630 7.5166,88.6004 7.5166,88.1379 7.5166,87.6753 7.5166,87.2128 7.5166,86.7502 7.5166,86.2877 7.5166,85.8251 7.5166,85.3626 7.5166,84.9000 7.5166,84.8881 7.5166,84.3893 7.5166,83.8905 7.5166,83.3917 7.5166,82.8929 7.5166,82.3941 7.5166,81.8952 7.5166,81.3964 7.5166,80.8976 7.5166,80.3988 7.5166,79.9000 7.5166,79.8881 7.5166,79.3893 7.5166,78.8905 7.5166,78.3917 7.5166,77.8929 7.5166,77.3941 7.5166,76.8952 7.5166,76.3964 7.5166,75.8976 7.5166,75.3988 7.5166,74.9000 7.5166,74.8881 7.5166,74.3893 7.5166,73.8905 7.5166,73.3917 7.5166,72.8929 7.5166,72.3941 7.5166,71.8952 7.5166,71.3964 7.5166,70.8976 7.5166,70.3988 7.5166,69.9000 7.5166,69.8881 132,0.0,America/Danmarkshavn -22.7304,79.6395 -22.2493,79.6312 -21.7682,79.6230 -21.2872,79.6148 -20.8061,79.6066 -20.3251,79.5983 -19.8440,79.5901 -19.3630,79.5819 -18.8819,79.5737 -18.4008,79.5654 -17.9198,79.5572 -17.4387,79.5490 -17.4360,79.5490 -17.4332,79.5490 -17.3843,79.5498 -17.5000,79.5312 -17.6931,79.5112 -18.0765,79.4852 -18.1668,79.4730 -18.2094,79.4593 -18.1544,79.4084 -18.1033,79.3905 -18.0509,79.3799 -17.9941,79.3811 -17.8280,79.3927 -17.7324,79.3956 -17.5704,79.3967 -17.4098,79.3935 -17.2875,79.3875 -17.2535,79.3859 -17.1048,79.3741 -16.9667,79.3583 -16.8460,79.3391 -16.7410,79.3169 -16.6392,79.2898 -16.4229,79.2144 -16.3501,79.1660 -16.3322,79.1120 -16.3884,79.0227 -16.4320,78.9879 -16.4844,78.9607 -16.5973,78.9241 -16.8650,78.8720 -16.9764,78.8377 -16.9827,78.8260 -16.9570,78.7679 -16.9780,78.7269 -17.0615,78.6773 -17.1967,78.6282 -17.2208,78.5810 -17.2976,78.5301 -17.3882,78.4929 -17.4218,78.4820 -17.5288,78.4474 -17.6958,78.4027 -17.8660,78.3668 -17.8957,78.3530 -17.9269,78.2929 -17.8844,78.2454 -17.8916,78.2002 -17.8714,78.1333 -17.8560,78.1216 -17.8000,78.1063 -17.7100,78.0944 -17.4800,78.0792 -17.3719,78.0721 -17.1974,78.0545 -17.0589,78.0331 -16.9450,78.0069 -16.8295,77.9636 -16.7228,77.8972 -16.6714,77.8408 -16.6653,77.7877 -16.6980,77.7361 -16.7844,77.6782 -16.8393,77.6282 -16.9225,77.5812 -17.0047,77.5488 -17.1181,77.5172 -17.2526,77.4901 -17.4049,77.4679 -17.4857,77.4590 -17.7073,77.4346 -17.7705,77.4235 -17.7991,77.4123 -17.7845,77.3993 -17.5092,77.3049 -17.4647,77.2810 -17.4445,77.2702 -17.3728,77.1969 -17.3442,77.1010 -17.3621,77.0056 -17.3578,76.9258 -17.3765,76.8879 -17.4142,76.8522 -17.4969,76.7737 -17.7639,76.6241 -17.8356,76.5136 -17.8343,76.3782 -17.7491,76.2478 -17.7464,76.2098 -17.7717,76.1624 -17.7287,76.1155 -17.7064,76.0539 -17.7177,75.9312 -17.7467,75.8858 -17.7908,75.8466 -17.8173,75.8310 -17.8468,75.8136 -17.9220,75.7820 -17.9397,75.7768 -18.0198,75.7532 -18.0263,75.7518 -18.3909,75.7786 -18.8595,75.7965 -19.3107,75.8137 -19.7620,75.8309 -20.2132,75.8481 -20.6645,75.8653 -21.1157,75.8825 -21.5670,75.8998 -22.0182,75.9170 -22.4695,75.9342 -22.9207,75.9514 -22.8969,76.4124 -22.8731,76.8734 -22.8493,77.3344 -22.8255,77.7954 -22.8017,78.2564 -22.7779,78.7174 -22.7541,79.1784 -22.7304,79.6395 2471,0.0,Europe/Lisbon -8.2040,42.0696 -8.1913,42.0621 -8.1762,42.0653 -8.1584,42.0714 -8.1376,42.0729 -8.1184,42.0669 -8.1032,42.0558 -8.0951,42.0409 -8.0974,42.0235 -8.1080,42.0109 -8.1239,42.0009 -8.1530,41.9868 -8.1821,41.9654 -8.2207,41.9227 -8.2302,41.9047 -8.2317,41.8860 -8.2204,41.8682 -8.1846,41.8577 -8.1770,41.8498 -8.1754,41.8366 -8.1796,41.8107 -8.0935,41.8067 -8.0486,41.8164 -8.0157,41.8419 -8.0059,41.8540 -7.9936,41.8637 -7.9794,41.8686 -7.9634,41.8666 -7.9448,41.8670 -7.9354,41.8800 -7.9305,41.8967 -7.9258,41.9082 -7.9061,41.9139 -7.9034,41.8868 -7.8966,41.8579 -7.8648,41.8579 -7.8579,41.8638 -7.8544,41.8703 -7.8497,41.8758 -7.8392,41.8784 -7.8122,41.8771 -7.7501,41.8884 -7.7220,41.8993 -7.7064,41.8963 -7.6787,41.8813 -7.6633,41.8757 -7.6612,41.8749 -7.6074,41.8732 -7.6228,41.8417 -7.6222,41.8323 -7.6061,41.8255 -7.5884,41.8242 -7.5671,41.8266 -7.5467,41.8320 -7.5316,41.8402 -7.5263,41.8474 -7.5252,41.8542 -7.5233,41.8602 -7.5158,41.8650 -7.5081,41.8649 -7.4930,41.8569 -7.4833,41.8562 -7.4694,41.8525 -7.4566,41.8392 -7.4470,41.8218 -7.4427,41.8060 -7.4295,41.8145 -7.4054,41.8352 -7.3919,41.8420 -7.3768,41.8440 -7.3405,41.8432 -7.3225,41.8454 -7.2515,41.8637 -7.2187,41.8790 -7.1979,41.9015 -7.1957,41.9174 -7.2021,41.9497 -7.1999,41.9637 -7.1926,41.9696 -7.1773,41.9784 -7.1597,41.9857 -7.1454,41.9875 -7.1132,41.9724 -7.0827,41.9528 -7.0513,41.9420 -7.0158,41.9537 -6.9924,41.9664 -6.9695,41.9577 -6.9451,41.9434 -6.9171,41.9391 -6.8550,41.9429 -6.8312,41.9540 -6.8249,41.9838 -6.7944,41.9797 -6.7579,41.9376 -6.7280,41.9309 -6.6568,41.9331 -6.6228,41.9410 -6.6095,41.9623 -6.5851,41.9546 -6.5717,41.9426 -6.5676,41.9261 -6.5758,41.8829 -6.5679,41.8759 -6.5501,41.8739 -6.5242,41.8674 -6.5357,41.8486 -6.5601,41.7669 -6.5644,41.7575 -6.5715,41.7492 -6.5774,41.7397 -6.5743,41.7310 -6.5677,41.7224 -6.5631,41.7130 -6.5605,41.6945 -6.5553,41.6749 -6.5415,41.6589 -6.5134,41.6509 -6.5030,41.6531 -6.4880,41.6588 -6.4744,41.6659 -6.4677,41.6721 -6.4608,41.6766 -6.4471,41.6762 -6.3659,41.6636 -6.3171,41.6501 -6.2722,41.6282 -6.2301,41.5949 -6.2161,41.5801 -6.2059,41.5703 -6.2536,41.5175 -6.2795,41.4970 -6.2859,41.4869 -6.2852,41.4790 -6.2825,41.4723 -6.2829,41.4656 -6.3210,41.4196 -6.3211,41.4110 -6.3523,41.4093 -6.3662,41.4052 -6.3792,41.3973 -6.3762,41.3969 -6.3755,41.3908 -6.3767,41.3830 -6.3792,41.3775 -6.3832,41.3765 -6.3955,41.3784 -6.3996,41.3775 -6.4310,41.3390 -6.4631,41.3141 -6.4959,41.2949 -6.5545,41.2756 -6.5635,41.2707 -6.6289,41.2699 -6.6466,41.2676 -6.6582,41.2578 -6.6938,41.2174 -6.7013,41.2024 -6.7070,41.1943 -6.7422,41.1714 -6.7552,41.1588 -6.7590,41.1518 -6.7565,41.1271 -6.7648,41.1089 -6.8044,41.0644 -6.8180,41.0541 -6.8453,41.0519 -6.9068,41.0561 -6.9279,41.0479 -6.9318,41.0291 -6.9425,41.0160 -6.9404,41.0034 -6.9306,40.9921 -6.8992,40.9668 -6.8852,40.9489 -6.8636,40.9083 -6.8553,40.8872 -6.8470,40.8789 -6.8321,40.8759 -6.8212,40.8701 -6.8162,40.8568 -6.8203,40.8442 -6.8367,40.8402 -6.8381,40.8149 -6.8368,40.8083 -6.8335,40.7978 -6.8345,40.7922 -6.8373,40.7868 -6.8391,40.7769 -6.8391,40.7575 -6.8370,40.7433 -6.8243,40.7107 -6.8162,40.6772 -6.8142,40.6593 -6.8143,40.6472 -6.8213,40.6302 -6.8445,40.5978 -6.8505,40.5822 -6.8484,40.5648 -6.8398,40.5546 -6.8285,40.5455 -6.8181,40.5319 -6.8125,40.5146 -6.8153,40.5025 -6.8387,40.4772 -6.8571,40.4421 -6.8513,40.4095 -6.8281,40.3806 -6.7944,40.3564 -6.8120,40.3323 -6.8208,40.3253 -6.8639,40.3010 -6.8702,40.2955 -6.8739,40.2878 -6.8751,40.2712 -6.8781,40.2652 -6.8964,40.2555 -6.9158,40.2544 -6.9354,40.2558 -6.9547,40.2534 -6.9978,40.2317 -7.0158,40.2255 -7.0248,40.2162 -7.0346,40.1931 -7.0431,40.1814 -7.0348,40.1667 -7.0277,40.1326 -7.0158,40.1191 -7.0037,40.1163 -6.9772,40.1134 -6.9664,40.1103 -6.9557,40.1029 -6.9421,40.0863 -6.9199,40.0649 -6.8797,40.0092 -6.8969,39.9871 -6.9016,39.9765 -6.8998,39.9656 -6.9037,39.9567 -6.9095,39.9320 -6.9126,39.9281 -6.9223,39.9224 -6.9252,39.9179 -6.9251,39.9122 -6.9216,39.9022 -6.9218,39.8972 -6.9235,39.8883 -6.9242,39.8716 -6.9277,39.8619 -6.9528,39.8329 -6.9623,39.8285 -6.9852,39.8211 -6.9930,39.8161 -7.0003,39.8025 -6.9989,39.7918 -6.9946,39.7826 -6.9930,39.7742 -6.9968,39.7647 -7.0087,39.7483 -7.0133,39.7389 -7.0136,39.7296 -7.0107,39.7228 -7.0096,39.7155 -7.0211,39.6940 -7.0358,39.6893 -7.1829,39.6751 -7.2141,39.6762 -7.2358,39.6865 -7.2529,39.6823 -7.2928,39.6833 -7.3114,39.6803 -7.3278,39.6748 -7.3414,39.6718 -7.5573,39.6798 -7.5482,39.6632 -7.5158,39.5938 -7.4979,39.5810 -7.4681,39.5502 -7.4513,39.5378 -7.4176,39.5242 -7.4089,39.5156 -7.3994,39.4937 -7.3842,39.4840 -7.3629,39.4761 -7.3209,39.4674 -7.3135,39.4574 -7.3136,39.4361 -7.3189,39.4133 -7.3267,39.3988 -7.3319,39.3847 -7.3314,39.3626 -7.3267,39.3413 -7.3193,39.3295 -7.3005,39.3179 -7.2508,39.2706 -7.2643,39.2523 -7.2658,39.2314 -7.2581,39.2113 -7.2441,39.1956 -7.2193,39.1848 -7.1916,39.1792 -7.1681,39.1706 -7.1558,39.1515 -7.1579,39.1414 -7.1689,39.1219 -7.1675,39.1135 -7.1572,39.1054 -7.1425,39.0995 -7.1273,39.0975 -7.1152,39.1011 -7.0913,39.1124 -7.0649,39.1148 -7.0388,39.1091 -7.0158,39.0968 -6.9997,39.0847 -6.9857,39.0668 -6.9794,39.0472 -6.9863,39.0301 -6.9749,39.0230 -6.9733,39.0140 -6.9788,39.0038 -6.9886,38.9938 -7.0221,38.9429 -7.0445,38.9186 -7.0660,38.9046 -7.0522,38.8850 -7.0573,38.8694 -7.0561,38.8551 -7.0643,38.8511 -7.0765,38.8432 -7.0887,38.8334 -7.1049,38.8272 -7.1510,38.8193 -7.1606,38.8129 -7.1662,38.8034 -7.1797,38.7909 -7.1964,38.7800 -7.2115,38.7754 -7.2704,38.7375 -7.2722,38.7337 -7.2807,38.7204 -7.2841,38.7132 -7.2909,38.6791 -7.2930,38.6563 -7.2925,38.6461 -7.2909,38.6382 -7.2860,38.6319 -7.2794,38.6289 -7.2735,38.6254 -7.2704,38.6177 -7.2759,38.6038 -7.3177,38.5563 -7.3358,38.5059 -7.3456,38.4941 -7.3341,38.4810 -7.3352,38.4694 -7.3448,38.4583 -7.3592,38.4464 -7.3455,38.4410 -7.3171,38.4246 -7.2114,38.3175 -7.2071,38.3117 -7.2007,38.2984 -7.1963,38.2922 -7.1895,38.2865 -7.1724,38.2765 -7.1672,38.2721 -7.1269,38.1909 -7.1035,38.1736 -7.0883,38.1734 -7.0631,38.1775 -7.0387,38.1862 -7.0264,38.1996 -7.0210,38.1982 -7.0181,38.1980 -6.9921,38.2043 -6.9642,38.2061 -6.9475,38.1966 -6.9576,38.1682 -6.9655,38.1533 -6.9790,38.1199 -6.9976,38.0896 -7.0064,38.0593 -7.0158,38.0468 -7.0240,38.0226 -7.0494,38.0202 -7.1059,38.0387 -7.1233,38.0400 -7.1320,38.0324 -7.1419,38.0116 -7.1522,38.0007 -7.1597,37.9968 -7.1729,37.9938 -7.1853,37.9887 -7.1976,37.9899 -7.2103,37.9930 -7.2233,37.9938 -7.2340,37.9881 -7.2658,37.9830 -7.2727,37.9770 -7.2721,37.9689 -7.2691,37.9594 -7.2686,37.9492 -7.2739,37.9315 -7.2958,37.8849 -7.3069,37.8508 -7.3344,37.8119 -7.4263,37.7506 -7.4440,37.7302 -7.4576,37.7001 -7.4663,37.6520 -7.4716,37.6369 -7.4785,37.6289 -7.5049,37.6064 -7.5143,37.6014 -7.5118,37.5953 -7.5125,37.5904 -7.5147,37.5859 -7.5158,37.5809 -7.5265,37.5712 -7.5297,37.5672 -7.5291,37.5567 -7.5276,37.5555 -7.5237,37.5557 -7.5184,37.5419 -7.5175,37.5352 -7.5154,37.5293 -7.5063,37.5181 -7.4986,37.5117 -7.4815,37.5004 -7.4759,37.4942 -7.4689,37.4756 -7.4629,37.4511 -7.4600,37.4291 -7.4623,37.4179 -7.4450,37.3868 -7.4386,37.3196 -7.4374,37.3073 -7.4276,37.2745 -7.4342,37.2593 -7.4294,37.2367 -7.4138,37.1926 -7.3931,37.1761 -7.3775,37.0940 -7.3573,36.9577 -7.2989,36.9675 -7.2561,36.9748 -7.1582,36.9914 -7.0197,36.9716 -6.8642,36.9082 -6.6967,36.8115 -6.6980,36.7062 -6.6731,36.6314 -6.5438,36.4352 -6.4570,36.3307 -6.3855,36.1969 -6.2088,36.0304 -6.1331,35.9912 -6.0480,35.9698 -6.0508,35.9678 -5.6476,35.9258 -5.3812,36.0152 -5.3312,36.0080 -5.3237,36.0069 -5.2542,35.9968 -5.0507,35.9575 -5.0336,35.9124 -5.0563,35.7834 -5.0030,35.6784 -4.8965,35.5917 -4.6709,35.4470 -4.5556,35.3968 -4.4383,35.3727 -4.2927,35.3828 -3.9918,35.4683 -3.8489,35.4735 -3.7062,35.4979 -3.5917,35.4829 -3.4444,35.4194 -3.3569,35.4182 -3.2628,35.4623 -3.1811,35.5648 -3.1203,35.6129 -3.0455,35.6435 -2.9623,35.6533 -2.8554,35.6320 -2.7653,35.5766 -2.7237,35.5186 -2.6963,35.3945 -2.6041,35.3132 -2.4943,35.3460 -2.4083,35.3552 -2.2169,35.3192 -2.2213,35.1716 -2.2226,35.0893 -2.2213,35.0593 -2.2211,35.0500 -2.2117,35.0234 -2.1938,35.0037 -2.1938,35.0036 -2.1633,34.9940 -2.1260,34.9719 -2.0949,34.9477 -2.0612,34.9297 -2.0163,34.9262 -2.0036,34.9182 -1.9997,34.9063 -1.9984,34.8927 -1.9935,34.8789 -1.9797,34.8653 -1.9267,34.8381 -1.8928,34.8117 -1.7877,34.7567 -1.7695,34.7413 -1.7731,34.7341 -1.7861,34.7258 -1.8105,34.6807 -1.8630,34.6136 -1.8711,34.5966 -1.7985,34.5349 -1.7507,34.4942 -1.7142,34.4851 -1.7030,34.4797 -1.8096,34.3725 -1.7713,34.3347 -1.7461,34.2903 -1.6748,34.1060 -1.6696,34.0792 -1.6721,34.0592 -1.7187,33.8981 -1.7221,33.8512 -1.7130,33.8020 -1.7025,33.7728 -1.7032,33.7618 -1.7108,33.7471 -1.7209,33.7364 -1.7326,33.7279 -1.7422,33.7178 -1.7468,33.7024 -1.7407,33.6866 -1.7254,33.6777 -1.6907,33.6673 -1.6733,33.6565 -1.6624,33.6447 -1.6173,33.5544 -1.6127,33.5215 -1.6254,33.4942 -1.6404,33.4755 -1.6591,33.4198 -1.6728,33.3946 -1.6832,33.3692 -1.6834,33.2708 -1.6742,33.2380 -1.6236,33.1966 -1.6056,33.1680 -1.5921,33.1366 -1.5714,33.1120 -1.5455,33.0918 -1.5164,33.0740 -1.4995,33.0602 -1.4931,33.0395 -1.4934,33.0162 -1.4965,32.9943 -1.4988,32.9840 -1.5030,32.9746 -1.5089,32.9663 -1.5164,32.9595 -1.5588,32.9336 -1.4233,32.7424 -1.3905,32.7188 -1.3270,32.6989 -1.0475,32.5170 -1.0320,32.4944 -1.0900,32.4394 -1.1232,32.4179 -1.1603,32.4049 -1.2017,32.3999 -1.2180,32.3926 -1.2342,32.3746 -1.2441,32.3569 -1.2575,32.3208 -1.2755,32.2175 -1.2752,32.2091 -1.2766,32.2009 -1.2830,32.1902 -1.2892,32.1849 -1.3057,32.1737 -1.3096,32.1674 -1.3052,32.1512 -1.2890,32.1509 -1.2518,32.1635 -1.2327,32.1637 -1.2118,32.1583 -1.1956,32.1460 -1.1906,32.1252 -1.2103,32.0897 -1.2496,32.0817 -1.3250,32.0847 -1.3334,32.0851 -1.3574,32.0861 -1.3954,32.0876 -1.4456,32.0895 -1.5063,32.0919 -1.5758,32.0947 -1.6524,32.0978 -1.7343,32.1011 -1.8200,32.1045 -1.9076,32.1080 -1.9955,32.1115 -2.0819,32.1149 -2.1651,32.1183 -2.2434,32.1214 -2.3152,32.1243 -2.3786,32.1268 -2.5161,32.1322 -2.6956,32.0897 -2.8812,32.0763 -2.9387,32.0486 -2.9607,31.9945 -2.9657,31.8999 -2.9803,31.8575 -3.0162,31.8275 -3.1152,31.7997 -3.2806,31.7534 -3.4126,31.7164 -3.5116,31.6727 -3.5487,31.6700 -3.5914,31.6783 -3.6740,31.7045 -3.7161,31.7105 -3.7551,31.7100 -3.7973,31.7037 -3.8323,31.6870 -3.8496,31.6547 -3.8539,31.5338 -3.8595,31.4947 -3.8565,31.4655 -3.8409,31.4454 -3.8175,31.4323 -3.7689,31.4181 -3.7582,31.4127 -3.7506,31.4050 -3.7445,31.3917 -3.7475,31.3852 -3.8025,31.3506 -3.8152,31.3372 -3.8192,31.3189 -3.8129,31.2434 -3.8150,31.2205 -3.8362,31.1898 -3.8428,31.1702 -3.8393,31.1528 -3.8275,31.1438 -3.8108,31.1429 -3.7930,31.1497 -3.7637,31.1734 -3.7489,31.1802 -3.7314,31.1763 -3.7171,31.1633 -3.6897,31.1256 -3.6719,31.1109 -3.6359,31.0957 -3.6241,31.0865 -3.6145,31.0680 -3.6101,31.0503 -3.6087,31.0309 -3.6109,31.0116 -3.6170,30.9946 -3.6463,30.9599 -3.6996,30.9410 -3.7586,30.9339 -3.8569,30.9359 -4.0160,30.9098 -4.0486,30.8965 -4.1905,30.7612 -4.2216,30.7407 -4.3236,30.7019 -4.4451,30.6386 -4.5160,30.6244 -4.5763,30.6203 -4.9255,30.5070 -4.9485,30.4946 -4.9681,30.4741 -5.0279,30.3864 -5.0982,30.2521 -5.1494,30.1909 -5.3195,30.0287 -5.3823,29.9843 -5.4862,29.9403 -5.5160,29.9186 -5.5734,29.8940 -5.7674,29.8754 -6.0186,29.8240 -6.0596,29.8290 -6.1009,29.8400 -6.1420,29.8453 -6.1826,29.8329 -6.1997,29.8193 -6.2114,29.8073 -6.2249,29.7982 -6.2474,29.7935 -6.2681,29.7949 -6.3275,29.8110 -6.3468,29.8105 -6.4053,29.7992 -6.4246,29.8027 -6.4605,29.8207 -6.4775,29.8249 -6.4945,29.8206 -6.5051,29.8090 -6.5089,29.7920 -6.5009,29.7497 -6.5017,29.7327 -6.5159,29.6958 -6.5141,29.6714 -6.5192,29.6487 -6.5294,29.6274 -6.5437,29.6077 -6.6134,29.5642 -6.6940,29.5670 -6.8605,29.6071 -6.9862,29.6063 -7.1066,29.6288 -7.1407,29.6232 -7.3013,29.5422 -7.3159,29.5310 -7.3886,29.4485 -7.4633,29.3891 -7.4841,29.3824 -7.5061,29.3802 -7.5285,29.3809 -7.5727,29.3876 -7.6195,29.3894 -7.6536,29.3762 -7.7147,29.3218 -7.7300,29.3112 -7.7780,29.2893 -7.8391,29.2390 -7.9450,29.1762 -8.0363,29.0999 -8.0697,29.0793 -8.1823,29.0355 -8.2505,28.9948 -8.3168,28.9391 -8.3333,28.9304 -8.3685,28.9165 -8.3835,28.9058 -8.4178,28.8523 -8.4304,28.8410 -8.4758,28.8188 -8.5208,28.7871 -8.6488,28.7259 -8.6676,28.7117 -8.6788,28.6928 -8.6824,28.6659 -8.6824,28.6202 -8.6824,28.5603 -8.6824,28.5004 -8.6824,28.4405 -8.6824,28.3805 -8.6824,28.3206 -8.6824,28.2607 -8.6824,28.2008 -8.6824,28.1409 -8.6824,28.0809 -8.6824,28.0210 -8.6824,27.9611 -8.6824,27.9011 -8.6824,27.8412 -8.6824,27.7814 -8.6824,27.7214 -8.6824,27.6614 -8.6824,27.5674 -8.6824,27.4735 -8.6824,27.3795 -8.6824,27.2854 -8.4844,27.1690 -8.2864,27.0527 -8.0886,26.9362 -7.8908,26.8199 -7.6928,26.7035 -7.4949,26.5872 -7.2970,26.4707 -7.0991,26.3544 -6.9012,26.2379 -6.7033,26.1216 -6.5054,26.0052 -6.3075,25.8888 -6.1818,25.8149 -6.1399,25.7902 -5.9723,25.6916 -5.8046,25.5930 -5.6370,25.4945 -5.5160,25.4233 -5.3423,25.3162 -5.1687,25.2092 -4.9952,25.1021 -4.8216,24.9951 -4.8215,24.9950 -4.8214,24.9948 -4.8212,24.9948 -4.7449,24.9471 -4.6687,24.8993 -4.5924,24.8517 -4.5160,24.8040 -4.4049,24.7313 -4.3252,24.6792 -4.2455,24.6271 -4.1659,24.5750 -4.0862,24.5229 -4.0065,24.4708 -3.9267,24.4187 -3.8470,24.3666 -3.7673,24.3144 -3.6876,24.2623 -3.6080,24.2102 -3.5283,24.1581 -3.4485,24.1060 -3.3688,24.0540 -3.2891,24.0018 -3.2095,23.9497 -3.1296,23.8976 -3.0431,23.8409 -2.9564,23.7842 -2.8698,23.7276 -2.7831,23.6710 -2.6964,23.6143 -2.6098,23.5577 -2.5232,23.5010 -2.4365,23.4444 -2.3499,23.3877 -2.2632,23.3311 -2.1766,23.2744 -2.0899,23.2178 -2.0033,23.1610 -1.9166,23.1045 -1.8300,23.0478 -1.7433,22.9912 -1.6567,22.9346 -1.5701,22.8779 -1.4835,22.8212 -1.3968,22.7646 -1.3101,22.7080 -1.2235,22.6513 -1.1369,22.5946 -1.0502,22.5380 -0.9636,22.4813 -0.8769,22.4246 -0.7903,22.3680 -0.7036,22.3114 -0.6169,22.2548 -0.5303,22.1981 -0.4437,22.1414 -0.3570,22.0848 -0.2704,22.0281 -0.1837,21.9715 -0.0970,21.9148 -0.0104,21.8582 -0.0000,21.8513 0.0000,21.8513 0.0763,21.8015 0.1630,21.7448 0.2495,21.6882 0.3362,21.6316 0.4228,21.5750 0.5095,21.5183 0.5961,21.4616 0.6827,21.4049 0.7694,21.3483 0.8560,21.2917 0.9426,21.2350 1.0293,21.1783 1.1465,21.1017 1.1593,21.0815 1.1779,21.0173 1.1801,20.9953 1.1675,20.8860 1.1453,20.7959 1.1446,20.7763 1.1472,20.7514 1.1546,20.7388 1.1685,20.7335 1.1913,20.7306 1.2125,20.7309 1.2523,20.7390 1.2733,20.7394 1.2967,20.7335 1.3105,20.7227 1.3315,20.6879 1.3469,20.6691 1.3640,20.6577 1.4072,20.6450 1.4475,20.6387 1.4658,20.6335 1.4835,20.6226 1.5204,20.6170 1.5597,20.5975 1.6237,20.5513 1.6440,20.5227 1.6501,20.4870 1.6492,20.4121 1.6592,20.3975 1.7781,20.3043 1.7992,20.2949 1.8209,20.2936 1.8389,20.2959 1.8550,20.2948 1.8706,20.2835 1.8803,20.2631 1.8838,20.2441 1.8914,20.2318 1.9134,20.2311 1.9243,20.2361 1.9412,20.2511 1.9553,20.2549 1.9671,20.2534 1.9756,20.2484 1.9834,20.2419 1.9934,20.2359 2.0563,20.2150 2.0712,20.2133 2.0975,20.2242 2.1382,20.2607 2.1613,20.2749 2.1824,20.2785 2.2008,20.2739 2.2182,20.2641 2.2796,20.2179 2.3165,20.1802 2.3482,20.1376 2.3887,20.0674 2.4004,20.0566 2.4157,20.0513 2.4399,20.0461 2.4593,20.0388 2.4954,20.0201 2.5148,20.0159 2.5257,20.0152 2.6169,19.9984 2.6718,19.9962 2.9460,19.9417 3.0726,19.8889 3.1305,19.8452 3.1470,19.8379 3.1832,19.8277 3.1988,19.8205 3.2128,19.8078 3.2168,19.7941 3.1983,19.5924 3.1994,19.5538 3.2122,19.5172 3.2175,19.5112 3.2229,19.5081 3.2281,19.5042 3.2323,19.4955 3.2317,19.4890 3.2262,19.4692 3.2260,19.4597 3.2348,19.4413 3.2475,19.4265 3.2582,19.4104 3.2608,19.3883 3.2510,19.3655 3.2327,19.3518 3.2115,19.3409 3.1929,19.3258 3.1838,19.3075 3.1789,19.2687 3.1744,19.2516 3.1527,19.2302 3.1393,19.2219 3.1342,19.2129 3.1266,19.1934 3.1118,19.1713 3.1027,19.1536 3.1041,19.1355 3.1209,19.1128 3.1388,19.0960 3.1586,19.0815 3.1798,19.0700 3.2260,19.0511 3.2849,18.9957 3.3084,18.9817 3.3184,18.9777 3.3331,18.9756 3.3587,18.9769 3.4397,18.9956 3.4398,18.9956 3.5446,19.0151 3.7156,19.0469 3.8865,19.0786 4.0576,19.1104 4.2286,19.1422 4.2290,19.0186 4.2294,18.8949 4.2298,18.7713 4.2303,18.6476 4.2307,18.5240 4.2311,18.4003 4.2315,18.2767 4.2319,18.1531 4.2322,18.0294 4.2326,17.9058 4.2331,17.7821 4.2334,17.6585 4.2338,17.5348 4.2343,17.4112 4.2347,17.2875 4.2350,17.1639 4.2353,17.1008 4.2356,16.9959 4.2223,16.9866 4.2117,16.9860 4.2037,16.9828 4.1978,16.9652 4.1966,16.9471 4.2020,16.8489 4.1976,16.8385 4.1846,16.8185 4.1820,16.8096 4.1823,16.7465 4.1830,16.6127 4.1834,16.5265 4.1840,16.4161 4.1759,16.3926 4.1617,16.3800 4.1182,16.3583 4.0948,16.3408 4.0756,16.3211 4.0606,16.2983 3.9712,16.0861 3.9669,16.0585 3.9708,16.0309 3.9832,16.0013 3.9840,16.0001 3.9845,15.9988 3.9847,15.9974 3.9846,15.9959 3.9848,15.9898 3.9842,15.9869 3.9832,15.9840 3.9251,15.9276 3.9099,15.9048 3.9035,15.8863 3.8945,15.7886 3.8865,15.7501 3.8712,15.7148 3.8461,15.6853 3.8084,15.6656 3.7289,15.6509 3.6922,15.6315 3.6141,15.5477 3.5265,15.4960 3.5165,15.4692 3.5071,15.3540 3.4888,15.3575 3.4833,15.3593 3.3804,15.3763 3.1923,15.4075 3.0730,15.4272 3.0335,15.4264 3.0175,15.4228 3.0103,15.4177 3.0078,15.4077 3.0058,15.3893 3.0057,15.3523 3.0002,15.3391 2.9507,15.3375 2.8541,15.3342 2.7575,15.3311 2.6610,15.3278 2.5642,15.3246 2.4677,15.3214 2.3710,15.3182 2.2745,15.3150 2.1779,15.3118 2.0814,15.3086 1.9846,15.3054 1.8881,15.3022 1.7914,15.2990 1.6949,15.2957 1.5984,15.2926 1.5017,15.2894 1.4052,15.2861 1.3315,15.2836 1.2978,15.2757 1.2709,15.2599 1.2032,15.1988 1.1231,15.1263 1.0575,15.0671 0.9737,14.9913 0.9493,14.9796 0.9221,14.9740 0.7692,14.9691 0.7399,14.9583 0.7114,14.9475 0.6838,14.9409 0.6701,14.9397 0.5148,14.9936 0.4835,14.9921 0.4188,14.9699 0.3870,14.9632 0.3532,14.9634 0.2213,14.9959 0.2132,14.9854 0.2128,14.9607 0.2185,14.9110 0.2208,14.8882 0.2119,14.8748 0.1980,14.8638 0.1858,14.8482 0.1841,14.8196 0.2131,14.7616 0.2197,14.7312 0.1529,14.5467 0.1588,14.4961 0.1886,14.4477 0.3464,14.3076 0.3888,14.2516 0.3916,14.2459 0.3906,14.2376 0.3811,14.2257 0.3774,14.2166 0.3722,14.1856 0.3674,14.1738 0.3435,14.1375 0.3392,14.1258 0.3436,14.1143 0.3563,14.0957 0.3625,14.0889 0.3687,14.0842 0.3742,14.0789 0.3785,14.0704 0.3773,14.0639 0.3691,14.0479 0.3692,14.0391 0.3784,14.0288 0.3914,14.0226 0.4019,14.0138 0.4039,13.9961 0.4119,13.9784 0.4284,13.9675 0.4459,13.9586 0.4567,13.9469 0.4563,13.9381 0.4481,13.9201 0.4486,13.9096 0.4548,13.9024 0.4757,13.8889 0.4835,13.8803 0.4920,13.8618 0.5041,13.8454 0.5193,13.8316 0.5530,13.8100 0.5632,13.7968 0.5745,13.7850 0.5937,13.7781 0.6005,13.7687 0.5945,13.7499 0.5848,13.7290 0.5805,13.7138 0.5943,13.6889 0.6207,13.6800 0.7534,13.6841 0.7635,13.6820 0.7664,13.6751 0.7662,13.6670 0.7670,13.6609 0.7663,13.6572 0.7629,13.6530 0.7637,13.6464 0.7757,13.6353 0.7953,13.6260 0.8131,13.6250 0.8507,13.6286 0.8969,13.6149 0.9510,13.5832 0.9914,13.5411 0.9966,13.4961 1.0153,13.4657 1.0482,13.4419 1.1572,13.3926 1.1750,13.3869 1.2174,13.3818 1.2343,13.3776 1.2496,13.3671 1.2687,13.3461 1.2415,13.3355 1.2221,13.3446 1.2057,13.3589 1.1877,13.3641 1.1824,13.3587 1.1776,13.3476 1.1676,13.3134 1.1607,13.3113 1.1385,13.3204 1.0847,13.3336 1.0047,13.3648 0.9835,13.3684 0.9704,13.3283 0.9708,13.2435 0.9713,13.1494 0.9718,13.0673 0.9746,13.0483 0.9835,13.0324 1.0123,13.0169 1.0838,13.0110 1.1140,12.9962 1.1709,12.9492 1.2308,12.8998 1.3306,12.8172 1.4120,12.7499 1.4671,12.7044 1.5359,12.6475 1.5639,12.6321 1.5970,12.6237 1.6995,12.6149 1.8261,12.6042 1.8437,12.6061 1.8607,12.6171 1.8727,12.6342 1.8832,12.6540 1.9002,12.6785 1.9070,12.6918 1.9114,12.6966 1.9196,12.6983 1.9266,12.6950 1.9345,12.6935 1.9455,12.7008 1.9625,12.7191 1.9717,12.7242 2.0689,12.7163 2.1090,12.7056 2.1352,12.6756 2.1410,12.6561 2.1448,12.6508 2.1555,12.6400 2.1660,12.6317 2.1843,12.6206 2.1933,12.6095 2.2000,12.5959 2.2032,12.5833 2.2109,12.5231 2.2157,12.5103 2.2239,12.4948 2.2296,12.4871 2.2423,12.4735 2.2463,12.4659 2.2463,12.4617 2.2431,12.4512 2.2430,12.4462 2.2450,12.4242 2.2379,12.4135 2.2233,12.4097 2.1638,12.4048 2.1588,12.4057 2.1480,12.4108 2.1450,12.4117 2.1387,12.4083 2.1315,12.3985 2.1269,12.3951 2.0693,12.3833 2.0542,12.3709 2.0518,12.3419 2.0709,12.3069 2.1138,12.2480 2.1885,12.1455 2.2588,12.0488 2.3381,11.9401 2.3902,11.8965 2.3814,11.8923 2.3541,11.7998 2.3400,11.7739 2.3016,11.7315 2.2908,11.7032 2.2902,11.6857 2.2911,11.6748 2.2874,11.6653 2.2736,11.6521 2.2201,11.6225 2.1470,11.5637 2.0108,11.4269 1.9834,11.4140 1.9480,11.4167 1.9058,11.4328 1.8798,11.4449 1.8676,11.4466 1.8580,11.4403 1.8406,11.4455 1.8215,11.4416 1.7822,11.4260 1.7633,11.4247 1.7191,11.4278 1.7035,11.4229 1.6844,11.4139 1.6382,11.4042 1.6211,11.3953 1.6016,11.3887 1.5806,11.4271 1.5632,11.4260 1.5650,11.4326 1.5673,11.4467 1.5693,11.4533 1.4753,11.4608 1.4560,11.4647 1.4396,11.4738 1.4338,11.4594 1.4236,11.4539 1.4111,11.4498 1.3981,11.4403 1.3898,11.4284 1.3886,11.4200 1.3981,11.3987 1.3817,11.3887 1.3590,11.3789 1.3391,11.3661 1.3304,11.3472 1.3362,11.3300 1.3459,11.3163 1.3479,11.3035 1.3304,11.2888 1.3235,11.2971 1.3163,11.2999 1.3093,11.2971 1.3025,11.2888 1.2962,11.2996 1.2845,11.3127 1.2733,11.3182 1.2684,11.3062 1.2705,11.2983 1.2804,11.2887 1.2826,11.2789 1.2811,11.2711 1.2684,11.2479 1.2352,11.2635 1.2190,11.2680 1.2001,11.2690 1.1914,11.2670 1.1862,11.2639 1.1809,11.2614 1.1722,11.2615 1.1735,11.2666 1.1660,11.2780 1.1563,11.2855 1.1459,11.2699 1.1356,11.2601 1.1306,11.2476 1.1493,11.2172 1.1532,11.1832 1.1584,11.1659 1.1481,11.1695 1.1281,11.1789 1.1175,11.1790 1.1130,11.1739 1.1062,11.1557 1.1004,11.1516 1.0675,11.1443 1.0623,11.1421 1.0633,11.1270 1.0670,11.1283 1.0730,11.1336 1.0739,11.1338 1.0828,11.1318 1.0839,11.1277 1.0821,11.1153 1.0828,11.1107 1.0856,11.1087 1.0952,11.1044 1.0970,11.1045 1.0991,11.0926 1.0993,11.0813 1.1009,11.0704 1.1072,11.0598 1.1186,11.0482 1.1175,11.0322 1.1142,11.0277 1.1068,11.0344 1.0997,11.0444 1.0970,11.0493 1.0869,11.0527 1.0561,11.0561 1.0522,11.0550 1.0413,11.0496 1.0350,11.0493 1.0332,11.0516 1.0280,11.0613 1.0251,11.0635 1.0197,11.0657 1.0146,11.0704 1.0079,11.0751 0.9860,11.0785 0.9814,11.0801 0.9769,11.0784 0.9703,11.0695 0.9644,11.0574 0.9559,11.0447 0.9524,11.0424 0.9513,11.0323 0.9518,11.0211 0.9553,11.0120 0.9633,11.0083 0.9691,11.0029 0.9700,10.9912 0.9675,10.9795 0.9633,10.9741 0.9454,10.9743 0.9320,10.9761 0.9015,10.9927 0.8758,10.9312 0.8729,10.9113 0.8753,10.9005 0.8837,10.8802 0.8851,10.8694 0.8695,10.8399 0.8676,10.8292 0.8660,10.8064 0.8629,10.7961 0.8500,10.7777 0.7956,10.7265 0.7813,10.6930 0.7892,10.6029 0.7885,10.5639 0.7738,10.5081 0.7599,10.4052 0.7607,10.3822 0.7688,10.3671 0.8444,10.3172 0.9395,10.2545 1.0822,10.1604 1.2255,10.0661 1.3310,9.9965 1.3438,9.9624 1.3451,9.8811 1.3469,9.7718 1.3474,9.7431 1.3474,9.7411 1.3482,9.6942 1.3560,9.6475 1.3546,9.6353 1.3522,9.6254 1.3525,9.6053 1.3513,9.5951 1.3451,9.5824 1.3273,9.5553 1.3232,9.5423 1.3264,9.5220 1.3365,9.4975 1.3513,9.4825 1.3684,9.4908 1.3799,9.4625 1.3867,9.3611 1.4012,9.3213 1.4253,9.2845 1.5052,9.2015 1.5673,9.1367 1.5878,9.1009 1.5958,9.0768 1.6012,9.0495 1.6028,8.9244 1.6043,8.8152 1.6055,8.7225 1.6076,8.5588 1.6090,8.5470 1.6141,8.5358 1.6399,8.5033 1.6442,8.4935 1.6404,8.4758 1.6076,8.4219 1.6060,8.4134 1.6060,8.3960 1.6011,8.3716 1.6040,8.3674 1.6099,8.3655 1.6149,8.3563 1.6256,8.2705 1.6238,8.1559 1.6213,7.9966 1.6219,7.8383 1.6228,7.6401 1.6237,7.4381 1.6243,7.2888 1.6249,7.1436 1.6257,6.9968 1.6075,6.9914 1.5319,6.9919 1.5514,6.9209 1.5626,6.9043 1.5791,6.8920 1.5880,6.8812 1.5901,6.8673 1.5826,6.8253 1.5832,6.8083 1.5875,6.7910 1.5952,6.7706 1.6011,6.7464 1.5970,6.7310 1.5743,6.7006 1.5660,6.6781 1.5724,6.6669 1.5854,6.6564 1.5963,6.6364 1.5965,6.6286 1.5948,6.6203 1.5941,6.6110 1.5973,6.6008 1.6033,6.5926 1.6112,6.5847 1.6196,6.5780 1.6274,6.5733 1.6368,6.5723 1.6466,6.5732 1.6539,6.5707 1.6552,6.5592 1.6578,6.5523 1.6745,6.5386 1.6808,6.5301 1.6820,6.5200 1.6795,6.4986 1.6817,6.4898 1.6883,6.4844 1.7098,6.4734 1.7184,6.4670 1.7441,6.4257 1.7635,6.3506 1.7657,6.3423 1.7824,6.2773 1.7984,6.2431 1.8314,6.1731 1.8618,6.0642 2.2561,6.1060 2.6503,6.1479 3.0446,6.1897 3.3297,6.1908 3.6061,6.2061 3.8825,6.2214 4.0805,6.2091 4.2627,6.1752 4.3947,6.1231 4.5293,6.0367 4.6621,5.9219 4.7740,5.7951 4.8966,5.6182 5.0334,5.3836 5.1483,5.2521 5.1863,5.0740 5.2700,4.8364 5.3883,4.5989 5.4824,4.4728 5.6055,4.3418 5.7176,4.2450 5.8430,4.1630 6.0173,4.0938 6.1758,4.0782 6.5394,4.1175 6.9029,4.1568 7.2665,4.1961 7.5387,4.2486 7.5367,3.7908 7.5346,3.3331 7.5326,2.8754 7.5306,2.4177 7.5286,1.9600 7.5274,1.8700 7.5969,1.8214 7.6441,1.7486 7.6620,1.6561 7.6400,1.5408 7.5816,1.4349 7.5275,1.3850 7.5303,0.8981 7.5331,0.4113 7.5359,-0.0755 7.5387,-0.5623 7.5387,-0.5742 7.5387,-0.6855 7.0504,-0.6840 6.5622,-0.6825 6.0740,-0.6811 5.5857,-0.6796 5.0975,-0.6781 4.6093,-0.6766 4.1210,-0.6751 3.6328,-0.6737 3.1445,-0.6722 2.6563,-0.6707 2.6563,-0.6826 2.6563,-1.1487 2.6563,-1.6149 2.6563,-2.0810 2.6563,-2.5472 2.6563,-3.0133 2.6563,-3.4795 2.6563,-3.9456 2.6563,-3.9575 3.1445,-3.9575 3.6328,-3.9575 4.1210,-3.9575 4.6093,-3.9575 5.0975,-3.9575 5.5857,-3.9575 6.0740,-3.9575 6.5622,-3.9575 7.0504,-3.9575 7.5387,-3.9575 7.5387,-4.4563 7.5387,-4.9551 7.5387,-5.4539 7.5387,-5.9527 7.5387,-6.4516 7.5387,-6.9504 7.5387,-7.4492 7.5387,-7.9480 7.5387,-8.4468 7.5387,-8.9456 7.5387,-8.9575 7.5387,-9.4232 7.5387,-9.8888 7.5387,-10.3545 7.5387,-10.8201 7.5387,-11.2666 7.5387,-11.7131 7.5387,-12.1596 7.5387,-12.6061 7.5387,-13.0526 7.5387,-13.4991 7.5387,-13.9456 7.5387,-13.9575 7.5387,-14.4563 7.5387,-14.9551 7.5387,-15.4539 7.5387,-15.9527 7.5387,-16.4516 7.5387,-16.9504 7.5387,-17.4492 7.5387,-17.9480 7.5387,-18.4468 7.5387,-18.9456 7.5387,-18.9575 7.5387,-19.4563 7.5387,-19.9551 7.5387,-20.4539 7.5387,-20.9527 7.5387,-21.4516 7.5387,-21.9504 7.5387,-22.4492 7.5387,-22.9480 7.5387,-23.4468 7.5387,-23.9456 7.5387,-23.9575 7.5387,-24.4563 7.5387,-24.9551 7.5387,-25.4539 7.5387,-25.9527 7.5387,-26.4516 7.5387,-26.9504 7.5387,-27.4492 7.5387,-27.9480 7.5387,-28.4468 7.5387,-28.9456 7.5387,-28.9575 7.5387,-29.4563 7.5387,-29.9551 7.5387,-30.4539 7.5387,-30.9527 7.5387,-31.4516 7.5387,-31.9504 7.5387,-32.4492 7.5387,-32.9480 7.5387,-33.4468 7.5387,-33.9456 7.5387,-33.9575 7.5387,-34.2309 7.5387,-34.5044 7.5387,-34.5163 7.5387,-35.0151 7.5387,-35.5139 7.5387,-36.0127 7.5387,-36.5115 7.5387,-37.0103 7.5387,-37.5091 7.5387,-38.0080 7.5387,-38.5068 7.5387,-39.0056 7.5387,-39.5044 7.5387,-39.5163 7.5387,-40.0151 7.5387,-40.5139 7.5387,-41.0127 7.5387,-41.5115 7.5387,-42.0103 7.5387,-42.5091 7.5387,-43.0080 7.5387,-43.5068 7.5387,-44.0056 7.5387,-44.5044 7.5387,-44.5163 7.5387,-45.0151 7.5387,-45.5139 7.5387,-46.0127 7.5387,-46.5115 7.5387,-47.0103 7.5387,-47.5091 7.5387,-48.0080 7.5387,-48.5068 7.5387,-49.0056 7.5387,-49.5044 7.5387,-49.5163 7.5387,-49.9810 7.5387,-50.4457 7.5387,-50.9105 7.5387,-51.3752 7.5387,-51.8399 7.5387,-52.3047 7.5387,-52.7694 7.5387,-53.2341 7.5387,-53.6989 7.0806,-53.6989 6.6226,-53.6989 6.1645,-53.6989 5.7064,-53.6989 5.2484,-53.6989 4.7903,-53.6989 4.3322,-53.6989 3.8742,-53.6989 3.4161,-53.6989 2.9581,-53.6989 2.5000,-53.6989 2.5000,-54.0739 2.5000,-54.4489 2.5000,-54.8239 2.5000,-55.1989 2.9581,-55.1989 3.4161,-55.1989 3.8742,-55.1989 4.3322,-55.1989 4.7903,-55.1989 5.2484,-55.1989 5.7064,-55.1989 6.1645,-55.1989 6.6226,-55.1989 7.0806,-55.1989 7.5387,-55.1989 7.5387,-55.6371 7.5387,-56.0752 7.5387,-56.5134 7.5387,-56.9516 7.5387,-57.3898 7.5387,-57.8280 7.5387,-58.2662 7.5387,-58.7044 7.5387,-58.7163 7.5387,-59.2151 7.5387,-59.7139 7.5387,-60.2127 7.5387,-60.7115 7.5387,-61.2103 7.5387,-61.7092 7.5387,-62.2080 7.5387,-62.7068 7.5387,-63.2056 7.5387,-63.7044 7.5387,-63.7163 7.5387,-64.2151 7.5387,-64.7139 7.5387,-65.2127 7.5387,-65.7115 7.5387,-66.2103 7.5387,-66.7092 7.5387,-67.2080 7.5387,-67.7068 7.5387,-68.2056 7.5387,-68.7044 7.5387,-68.7163 7.5387,-69.1332 7.5387,-69.5501 7.5387,-69.9670 7.3891,-69.9790 7.2833,-69.9876 7.0791,-69.9879 6.8745,-69.9717 6.5203,-69.9208 6.4000,-69.9124 6.2789,-69.9103 6.1300,-69.9172 5.9882,-69.9361 5.8695,-69.9640 5.7257,-70.0132 5.4142,-70.0252 5.3043,-70.0384 5.1669,-70.0626 5.0882,-70.0699 4.9774,-70.0718 4.8566,-70.0667 4.4456,-70.0272 4.3157,-70.0249 4.1911,-70.0297 3.9248,-70.0587 3.6598,-70.1168 3.4942,-70.1418 3.2886,-70.1588 2.9778,-70.1706 2.7910,-70.1931 2.6767,-70.2166 2.3849,-70.2912 2.2211,-70.3394 2.1196,-70.3798 2.0741,-70.3881 1.9260,-70.3848 1.8949,-70.3731 1.8828,-70.3535 1.9059,-70.3188 2.0326,-70.2354 2.0755,-70.1867 2.0832,-70.1120 2.0519,-70.0326 2.0067,-69.9795 1.9395,-69.9319 1.8463,-69.8911 1.7232,-69.8554 1.5573,-69.8270 1.3717,-69.8136 1.1531,-69.8163 0.9240,-69.8345 0.7415,-69.8620 0.6048,-69.8967 0.4884,-69.9425 0.3916,-70.0039 0.3469,-70.0515 0.3219,-70.1011 0.3158,-70.1517 0.3277,-70.2024 0.3923,-70.2905 0.5114,-70.3790 0.5429,-70.4527 0.5929,-70.5049 0.6716,-70.5487 0.7816,-70.5846 0.8882,-70.6063 1.1371,-70.6415 1.2894,-70.6816 1.3602,-70.7131 1.4121,-70.7490 1.4521,-70.7891 1.4613,-70.8185 1.4499,-70.8363 1.4204,-70.8504 1.1996,-70.8965 1.0373,-70.9406 0.9417,-70.9564 0.6743,-70.9866 0.5093,-71.0146 0.1168,-71.1024 0.1074,-71.1052 -0.0417,-71.1754 -0.0544,-71.1680 -0.0796,-71.1656 -0.1765,-71.1853 -0.2554,-71.2086 -0.2816,-71.2088 -0.3536,-71.1927 -0.6176,-71.1134 -0.7751,-71.0782 -0.9698,-71.0520 -1.1715,-71.0447 -1.3757,-71.0560 -1.5634,-71.0855 -1.7256,-71.1316 -1.8898,-71.2027 -1.7060,-71.0948 -1.6592,-71.0485 -1.6458,-71.0068 -1.5618,-70.9642 -1.4676,-70.8894 -1.4393,-70.8332 -1.4642,-70.7714 -1.5313,-70.7193 -1.6481,-70.6687 -1.7851,-70.6327 -2.0141,-70.5961 -2.0889,-70.5664 -2.0954,-70.5513 -2.0634,-70.5072 -2.0470,-70.4458 -2.0544,-70.3488 -2.1090,-70.2611 -2.2121,-70.1910 -2.3485,-70.1393 -2.5119,-70.1022 -2.6947,-70.0795 -2.8896,-70.0705 -3.0891,-70.0748 -3.2858,-70.0919 -3.4584,-70.1186 -3.6199,-70.1570 -3.7280,-70.1937 -3.8263,-70.2395 -4.0841,-70.4156 -4.1231,-70.4575 -4.1405,-70.4973 -4.1385,-70.5353 -4.1158,-70.5816 -4.1979,-70.6527 -4.2245,-70.7425 -4.2135,-70.7775 -4.1830,-70.8133 -4.0345,-70.9069 -3.9926,-70.9474 -3.9923,-70.9711 -4.0521,-71.0371 -4.0555,-71.0861 -4.1501,-71.0923 -4.3062,-71.1132 -4.4303,-71.1132 -4.8662,-71.1295 -5.0350,-71.1232 -5.0778,-71.1029 -5.0826,-71.0611 -5.0493,-70.9980 -4.9387,-70.8787 -4.9240,-70.8311 -4.9322,-70.7865 -4.9707,-70.7338 -5.0409,-70.6773 -5.1267,-70.6249 -5.2465,-70.5709 -5.2581,-70.5268 -5.3098,-70.4574 -5.3181,-70.3898 -5.3546,-70.3457 -5.4066,-70.3112 -5.4817,-70.2779 -5.5739,-70.2487 -5.6913,-70.2222 -5.8058,-70.2048 -5.9243,-70.1946 -6.0316,-70.1926 -6.1452,-70.1976 -6.6262,-70.2418 -6.7283,-70.2552 -6.8744,-70.2882 -6.9884,-70.3335 -7.0649,-70.3937 -7.0799,-70.4631 -7.0320,-70.5307 -6.9180,-70.6077 -6.9626,-70.6067 -7.1361,-70.5858 -7.3251,-70.5762 -7.5222,-70.5740 -7.5282,-70.5743 -7.5280,-70.0940 -7.5279,-69.6136 -7.5277,-69.1591 -7.5275,-68.7045 -7.5273,-68.2500 -7.5272,-67.7954 -7.5270,-67.3409 -7.5268,-66.8864 -7.5267,-66.4318 -7.5265,-65.9773 -7.5263,-65.5227 -7.5261,-65.0682 -7.5260,-64.6136 -7.5258,-64.1591 -7.5256,-63.7045 -7.5255,-63.2500 -7.5253,-62.7954 -7.5251,-62.3409 -7.5249,-61.8864 -7.5248,-61.4318 -7.5246,-60.9773 -7.5244,-60.5227 -7.5243,-60.0682 -7.5241,-59.6136 -7.5239,-59.1591 -7.5237,-58.7045 -7.5236,-58.2500 -7.5234,-57.7954 -7.5232,-57.3409 -7.5231,-56.8864 -7.5229,-56.4318 -7.5227,-55.9773 -7.5225,-55.5227 -7.5224,-55.0682 -7.5222,-54.6136 -7.5220,-54.1136 -7.5218,-53.6136 -7.5216,-53.1136 -7.5214,-52.6136 -7.5212,-52.1136 -7.5211,-51.6136 -7.5209,-51.1136 -7.5207,-50.6136 -7.5205,-50.1136 -7.5203,-49.6136 -7.5201,-49.1591 -7.5200,-48.7045 -7.5198,-48.2500 -7.5196,-47.7954 -7.5194,-47.3409 -7.5193,-46.8864 -7.5191,-46.4318 -7.5189,-45.9773 -7.5188,-45.5227 -7.5186,-45.0682 -7.5184,-44.6136 -7.5182,-44.1303 -7.5180,-43.6470 -7.5179,-43.1636 -7.5177,-42.6803 -7.5175,-42.1970 -7.5173,-41.7136 -7.9719,-41.7136 -8.4264,-41.7136 -8.8810,-41.7136 -9.3355,-41.7136 -9.7900,-41.7136 -10.2446,-41.7136 -10.6991,-41.7136 -11.1537,-41.7136 -11.6082,-41.7136 -12.0628,-41.7136 -12.5173,-41.7136 -12.9420,-41.7136 -13.3667,-41.7136 -13.7915,-41.7136 -14.2162,-41.7136 -14.6409,-41.7136 -14.6409,-41.2591 -14.6409,-40.8045 -14.6409,-40.3500 -14.6409,-39.8954 -14.6409,-39.4409 -14.6409,-38.9864 -14.6409,-38.5318 -14.6409,-38.0773 -14.6409,-37.6227 -14.6409,-37.1682 -14.6409,-36.7136 -14.6409,-36.3621 -14.6409,-36.0105 -14.6409,-35.6590 -14.1863,-35.6590 -13.7318,-35.6590 -13.2772,-35.6590 -12.8227,-35.6590 -12.3681,-35.6590 -11.9136,-35.6590 -11.4591,-35.6590 -11.0045,-35.6590 -10.5500,-35.6590 -10.0954,-35.6590 -9.6409,-35.6590 -9.2157,-35.6590 -8.7905,-35.6590 -8.3654,-35.6590 -7.9402,-35.6590 -7.5150,-35.6590 -7.5149,-35.2044 -7.5147,-34.7499 -7.5146,-34.2953 -7.5144,-33.8408 -7.5143,-33.3862 -7.5141,-32.9317 -7.5140,-32.4772 -7.5138,-32.0226 -7.5137,-31.5681 -7.5135,-31.1135 -7.5134,-30.6590 -7.5132,-30.2044 -7.5130,-29.7499 -7.5129,-29.2953 -7.5127,-28.8408 -7.5126,-28.3862 -7.5124,-27.9317 -7.5123,-27.4772 -7.5121,-27.0226 -7.5120,-26.5681 -7.5118,-26.1135 -7.5117,-25.6590 -7.5115,-25.2044 -7.5114,-24.7499 -7.5112,-24.2953 -7.5111,-23.8408 -7.5109,-23.3862 -7.5107,-22.9317 -7.5106,-22.4772 -7.5104,-22.0226 -7.5103,-21.5681 -7.5101,-21.1135 -7.5100,-20.6590 -7.5098,-20.1590 -7.5096,-19.6590 -7.5095,-19.1590 -7.5093,-18.6590 -7.5091,-18.1590 -7.5090,-17.6590 -7.5088,-17.1590 -7.5086,-16.6590 -7.5085,-16.1590 -7.5083,-15.6590 -7.5081,-15.2044 -7.5080,-14.7499 -7.5078,-14.2953 -7.5077,-13.8408 -7.5075,-13.3862 -7.5074,-12.9317 -7.5072,-12.4772 -7.5071,-12.0226 -7.5069,-11.5681 -7.5068,-11.1135 -7.5066,-10.6590 -7.5065,-10.2270 -7.5063,-9.7951 -7.5062,-9.3632 -8.0062,-9.3632 -8.5062,-9.3632 -9.0062,-9.3632 -9.5062,-9.3632 -10.0062,-9.3632 -10.5062,-9.3632 -11.0062,-9.3632 -11.5062,-9.3632 -12.0062,-9.3632 -12.5062,-9.3632 -12.9608,-9.3632 -13.4155,-9.3632 -13.8702,-9.3632 -14.3248,-9.3632 -14.7795,-9.3632 -15.2342,-9.3632 -15.6888,-9.3632 -16.1435,-9.3632 -16.1490,-8.9212 -16.1545,-8.4793 -16.1601,-8.0373 -16.1656,-7.5954 -16.1711,-7.1534 -16.1766,-6.7115 -16.1822,-6.2696 -16.1877,-5.8276 -15.7331,-5.8276 -15.2786,-5.8276 -14.8241,-5.8276 -14.3695,-5.8276 -13.9150,-5.8276 -13.4604,-5.8276 -13.0059,-5.8276 -12.5513,-5.8276 -12.0968,-5.8276 -11.6422,-5.8276 -11.1877,-5.8276 -10.7275,-5.8276 -10.2673,-5.8276 -9.8071,-5.8276 -9.3469,-5.8276 -8.8867,-5.8276 -8.4266,-5.8276 -7.9664,-5.8276 -7.5062,-5.8276 -7.5062,-5.3731 -7.5062,-4.9185 -7.5062,-4.4640 -7.5062,-4.0094 -7.5062,-3.5549 -7.5062,-3.1003 -7.5062,-2.6458 -7.5062,-2.1912 -7.5062,-1.7367 -7.5062,-1.2822 -7.5062,-0.8276 -7.5062,-0.3310 -7.5062,0.1655 -7.5062,0.6621 -7.5062,1.1587 -7.5062,1.6552 -7.5062,2.1518 -7.5062,2.6484 -7.5062,3.1449 -7.5062,3.6415 -7.5062,4.1381 -7.6275,4.1410 -7.8032,4.1793 -8.0330,4.3204 -8.3014,4.3817 -8.6461,4.5805 -8.8338,4.6582 -8.9734,4.7487 -9.1644,4.8303 -9.5423,5.1045 -9.7986,5.3520 -10.0550,5.5994 -10.3113,5.8469 -10.5029,5.9632 -10.7804,6.0551 -10.9013,6.1184 -10.9881,6.2130 -11.0164,6.3306 -11.4661,6.5291 -11.5462,6.6133 -11.6007,6.7410 -11.7186,6.8121 -11.8616,6.9285 -12.1324,7.0360 -12.4033,7.1435 -12.6333,7.1999 -12.7857,7.3050 -12.9973,7.3632 -13.0795,7.4057 -13.1296,7.4632 -13.1564,7.5424 -13.1431,7.6521 -13.0808,7.7368 -13.1556,7.8496 -13.1595,7.9643 -13.2443,7.9791 -13.3098,8.0310 -13.3867,8.2117 -13.4876,8.3942 -13.4935,8.5180 -13.4502,8.6582 -13.4474,8.7884 -13.4668,8.8759 -13.5154,8.9848 -13.5312,9.1115 -13.6487,9.2831 -13.8027,9.3142 -13.8946,9.3875 -13.9330,9.4782 -13.9179,9.6253 -13.9448,9.6857 -14.0938,9.7989 -14.3023,9.9070 -14.4108,9.9895 -14.5271,10.0197 -14.5917,10.0581 -14.6388,10.1156 -14.6819,10.2533 -14.7968,10.3237 -14.8314,10.3619 -14.8991,10.5381 -15.0757,10.5869 -15.1697,10.6379 -15.2260,10.6936 -15.2832,10.7839 -15.4102,10.8682 -15.5576,11.0397 -15.5969,11.0050 -15.7004,10.9567 -15.8106,10.8622 -16.0342,10.8228 -16.1680,10.8214 -16.2625,10.8450 -16.3568,10.9031 -16.4232,10.9838 -16.4838,11.1639 -16.4955,11.2769 -16.6075,11.3929 -16.6333,11.4631 -16.6392,11.5372 -16.6222,11.6121 -16.5805,11.6708 -16.3843,11.7682 -16.4949,11.8695 -16.5909,12.0106 -16.7015,12.0904 -16.8282,12.1423 -16.8897,12.1910 -16.9675,12.2954 -17.0136,12.4101 -17.0166,12.4725 -16.9937,12.6149 -17.0158,12.8139 -16.9836,12.9779 -17.0386,13.2509 -17.0438,13.3602 -16.9945,13.4893 -16.8867,13.5899 -16.8752,13.6178 -16.8908,13.6581 -16.9820,13.7796 -16.9999,13.9817 -17.0612,14.0673 -17.1489,14.2444 -17.2792,14.3950 -17.3224,14.4760 -17.3774,14.4514 -17.4489,14.4443 -17.5744,14.4859 -17.6363,14.5323 -17.6969,14.6033 -17.7491,14.7410 -17.7365,14.8377 -17.6721,14.9218 -17.6067,14.9562 -17.4029,15.0223 -17.2601,15.1168 -17.0242,15.4195 -16.7981,15.7720 -16.7580,15.9342 -16.7588,16.3080 -16.7030,16.5077 -16.6746,16.6866 -16.5614,16.9739 -16.3507,17.4182 -16.2871,17.6446 -16.2551,17.8749 -16.2530,18.0620 -16.2783,18.3506 -16.3750,18.6596 -16.4235,18.9431 -16.4744,19.0238 -16.6018,19.0913 -16.6560,19.1430 -16.7246,19.2540 -16.7566,19.3658 -16.7444,19.4580 -16.6807,19.5529 -16.7178,19.6940 -16.7107,19.7732 -16.6423,19.8928 -16.5391,19.9982 -16.5409,20.3093 -16.5608,20.3421 -16.6914,20.4052 -16.7744,20.4706 -16.8507,20.5471 -16.8911,20.6220 -16.9633,20.5735 -17.0474,20.5551 -17.1327,20.5669 -17.2086,20.6091 -17.2639,20.6707 -17.3025,20.7443 -17.3213,20.8296 -17.3199,20.9200 -17.2570,21.3649 -17.1977,21.6718 -17.1796,21.8563 -17.0891,22.1086 -17.0055,22.2531 -16.8812,22.4110 -16.8173,22.4618 -16.6666,22.5240 -16.6346,22.6055 -16.5838,22.6690 -16.5446,22.8508 -16.4237,23.1801 -16.2042,23.5204 -16.2036,23.5613 -16.2367,23.6570 -16.2352,23.7019 -16.1992,23.7887 -16.1172,23.9143 -15.9968,24.0461 -15.7590,24.2219 -15.5239,24.4355 -15.4034,24.5702 -15.1904,24.7426 -15.1164,24.8303 -15.0789,24.9499 -15.0746,25.2426 -15.0408,25.4241 -15.0009,25.5228 -14.9135,25.6717 -14.8527,25.8351 -14.7348,26.0124 -14.7199,26.1901 -14.6470,26.3344 -14.5515,26.4304 -14.4314,26.4828 -14.3117,26.6005 -14.2426,26.6316 -14.1180,26.6558 -14.0470,26.6833 -13.7674,26.8709 -13.7044,26.9778 -13.6830,27.0509 -14.1680,27.0511 -14.6531,27.0513 -15.1382,27.0516 -15.6233,27.0518 -16.1084,27.0520 -16.5935,27.0522 -17.0786,27.0524 -17.5637,27.0527 -18.0488,27.0529 -18.5339,27.0531 -18.5357,27.4808 -18.5375,27.9084 -18.5394,28.3361 -18.5412,28.7638 -18.5430,29.1914 -18.5449,29.6191 -18.5469,30.0990 -18.5490,30.5790 -18.5511,31.0589 -18.5531,31.5389 -18.5552,32.0188 -18.5572,32.4988 -18.5593,32.9787 -18.1969,33.3117 -17.8344,33.6448 -17.4720,33.9778 -17.1095,34.3108 -16.7470,34.6439 -16.3846,34.9769 -16.0221,35.3099 -15.6597,35.6429 -15.2972,35.9760 -14.9348,36.3090 -14.5723,36.6420 -14.2099,36.9750 -13.8474,37.3081 -13.4850,37.6411 -13.1225,37.9741 -12.7601,38.3072 -12.3976,38.6402 -12.0352,38.9732 -11.6727,39.3062 -11.3103,39.6393 -10.9478,39.9723 -10.5854,40.3053 -10.2229,40.6383 -9.8605,40.9714 -9.4980,41.3044 -9.1356,41.6374 -9.1819,41.7382 -9.1684,41.8658 -9.1403,41.8658 -9.0482,41.8658 -9.0462,41.8658 -8.9686,41.8658 -8.8870,41.8658 -8.8868,41.8660 -8.8663,41.8775 -8.8646,41.8770 -8.8521,41.8854 -8.8452,41.8892 -8.8048,41.9117 -8.8004,41.9127 -8.7720,41.9350 -8.7589,41.9560 -8.7515,41.9669 -8.7502,41.9688 -8.7396,41.9751 -8.7170,41.9838 -8.6913,41.9896 -8.6836,41.9934 -8.6708,41.9998 -8.6632,42.0099 -8.6526,42.0314 -8.6439,42.0415 -8.6269,42.0510 -8.6094,42.0537 -8.5728,42.0544 -8.5544,42.0601 -8.5200,42.0777 -8.5012,42.0831 -8.3467,42.1017 -8.3300,42.1084 -8.3043,42.1258 -8.2954,42.1301 -8.2878,42.1314 -8.2707,42.1320 -8.2523,42.1376 -8.2224,42.1536 -8.2134,42.1440 -8.2043,42.1288 -8.2074,42.0858 -8.2040,42.0696 3641,2.0,Europe/Mariehamn 33.1965,52.3689 33.2943,52.3573 33.3590,52.3576 33.3762,52.3553 33.4037,52.3430 33.4193,52.3383 33.4373,52.3392 33.4518,52.3453 33.4653,52.3527 33.4805,52.3578 33.4994,52.3410 33.4930,52.3031 33.5101,52.2875 33.5317,52.2888 33.6002,52.3308 33.6879,52.3558 33.7336,52.3610 33.7790,52.3601 33.8041,52.3546 33.8152,52.3451 33.8234,52.3315 33.8391,52.3139 33.8587,52.3022 33.9007,52.2859 33.9195,52.2698 33.9444,52.2358 33.9578,52.2247 34.0219,52.1979 34.0389,52.1865 34.0557,52.1703 34.0653,52.1586 34.0710,52.1490 34.0736,52.1396 34.0739,52.1283 34.0567,52.1058 34.0567,52.1004 34.0601,52.0832 34.0626,52.0502 34.0682,52.0310 34.0803,52.0136 34.1011,51.9925 34.1044,51.9753 34.0967,51.9606 34.0962,51.9518 34.1462,51.9516 34.1664,51.9423 34.2034,51.9123 34.2094,51.9088 34.2226,51.9032 34.2284,51.8993 34.2310,51.8945 34.2346,51.8807 34.2342,51.8783 34.2460,51.8755 34.2649,51.8812 34.2767,51.8812 34.2946,51.8739 34.3278,51.8505 34.3473,51.8417 34.3857,51.8177 34.4127,51.7777 34.4142,51.7365 34.3763,51.7086 34.3569,51.7056 34.2982,51.7061 34.1280,51.6807 34.0891,51.6666 34.0795,51.6431 34.0907,51.6332 34.1260,51.6270 34.1401,51.6212 34.1445,51.6138 34.1489,51.5932 34.1530,51.5840 34.1603,51.5761 34.2024,51.5462 34.2154,51.5320 34.2237,51.5148 34.2260,51.4929 34.2238,51.4824 34.2150,51.4647 34.2121,51.4550 34.2132,51.4448 34.2171,51.4361 34.2196,51.4273 34.2171,51.4171 34.2088,51.4115 34.1870,51.4083 34.1819,51.4023 34.1859,51.3942 34.1960,51.3856 34.2157,51.3738 34.2305,51.3677 34.2473,51.3634 34.2644,51.3612 34.2803,51.3613 34.3002,51.3684 34.3087,51.3346 34.2836,51.3012 34.2439,51.2741 34.1860,51.2489 34.2579,51.2296 34.2818,51.2264 34.2995,51.2316 34.3370,51.2511 34.3718,51.2568 34.4090,51.2531 34.4804,51.2370 34.5135,51.2296 34.5782,51.2367 34.6084,51.2340 34.6224,51.2248 34.6285,51.2111 34.6332,51.1956 34.6428,51.1806 34.6574,51.1717 34.6749,51.1677 34.7481,51.1647 34.8175,51.1747 34.8996,51.1965 34.9461,51.2143 34.9618,51.2153 34.9803,51.2095 34.9994,51.2021 35.0188,51.2046 35.0387,51.2102 35.0594,51.2123 35.0787,51.2076 35.0913,51.1977 35.0992,51.1832 35.1238,51.0913 35.1436,51.0585 35.1726,51.0406 35.2065,51.0389 35.2743,51.0488 35.3087,51.0473 35.3284,51.0432 35.3464,51.0366 35.3551,51.0256 35.3467,51.0083 35.3326,50.9999 35.2781,50.9927 35.2822,50.9815 35.2822,50.9543 35.2848,50.9443 35.2936,50.9376 35.3172,50.9342 35.3291,50.9291 35.3417,50.9159 35.3430,50.9041 35.3404,50.8918 35.3414,50.8765 35.3486,50.8638 35.3690,50.8460 35.3777,50.8337 35.3797,50.8196 35.3774,50.8075 35.3791,50.7972 35.3931,50.7884 35.4182,50.7789 35.4294,50.7721 35.4385,50.7624 35.4471,50.7343 35.4438,50.7095 35.4454,50.6875 35.4689,50.6685 35.3916,50.6464 35.3762,50.6346 35.3777,50.6218 35.4253,50.5005 35.4464,50.4760 35.4801,50.4669 35.5019,50.4643 35.5227,50.4595 35.5408,50.4500 35.5547,50.4333 35.5623,50.4096 35.5639,50.3918 35.5702,50.3765 35.5922,50.3605 35.6114,50.3517 35.6316,50.3450 35.6521,50.3411 35.6732,50.3402 35.6969,50.3451 35.7103,50.3556 35.7213,50.3687 35.7377,50.3816 35.7462,50.3840 35.7654,50.3845 35.7744,50.3869 35.7855,50.3945 35.8054,50.4122 35.8193,50.4190 35.8374,50.4232 35.9319,50.4302 36.1058,50.4211 36.1332,50.4116 36.1408,50.3929 36.1693,50.3837 36.2690,50.2814 36.2920,50.2740 36.3159,50.2749 36.3395,50.2815 36.3614,50.2917 36.3810,50.3041 36.3880,50.3064 36.4002,50.3066 36.4100,50.3046 36.4306,50.2969 36.4527,50.2936 36.4802,50.2809 36.5121,50.2764 36.5211,50.2741 36.5364,50.2675 36.5389,50.2650 36.5361,50.2609 36.5339,50.2387 36.5317,50.2288 36.5346,50.2199 36.5495,50.2122 36.5710,50.2069 36.5944,50.2044 36.6169,50.2064 36.6358,50.2140 36.6444,50.2223 36.6604,50.2439 36.6698,50.2530 36.6826,50.2607 36.8486,50.3237 36.9141,50.3391 36.9801,50.3421 37.0517,50.3353 37.1970,50.3624 37.2267,50.3771 37.2852,50.4153 37.3148,50.4230 37.4152,50.4319 37.4353,50.4249 37.4503,50.3990 37.4638,50.3665 37.4800,50.3400 37.5682,50.3125 37.5992,50.2909 37.6016,50.2490 37.5915,50.2253 37.5886,50.2146 37.5903,50.2038 37.5971,50.1969 37.6318,50.1741 37.7277,50.0787 37.7634,50.0626 37.8428,50.0391 37.8817,50.0230 37.9159,50.0033 37.9466,49.9782 37.9790,49.9414 37.9800,49.9396 37.9953,49.9213 37.9959,49.9059 38.0004,49.8998 38.0665,49.9272 38.0792,49.9299 38.0903,49.9284 38.1084,49.9207 38.1190,49.9192 38.1662,49.9406 38.1713,49.9841 38.1641,50.0304 38.1739,50.0601 38.1898,50.0628 38.2538,50.0591 38.2812,50.0624 38.2999,50.0605 38.3141,50.0495 38.3442,49.9921 38.3560,49.9806 38.3763,49.9749 38.4201,49.9718 38.4378,49.9673 38.4611,49.9569 38.4975,49.9482 38.5702,49.9566 38.6195,49.9508 38.6289,49.9533 38.6378,49.9572 38.6622,49.9626 38.6646,49.9652 38.6643,49.9627 38.6728,49.9430 38.6756,49.9270 38.6810,49.9183 38.6873,49.9138 38.7478,49.8854 38.8522,49.8658 38.8863,49.8452 38.9105,49.8206 38.9374,49.8035 39.0323,49.8073 39.0491,49.8106 39.0683,49.8211 39.0999,49.8516 39.1171,49.8644 39.1558,49.8736 39.1828,49.8585 39.2380,49.7651 39.2609,49.7445 39.2899,49.7321 39.3277,49.7263 39.3672,49.7318 39.4060,49.7443 39.4436,49.7495 39.4799,49.7336 39.4991,49.7281 39.5575,49.7240 39.5704,49.7133 39.5816,49.6907 39.5974,49.6480 39.6229,49.6135 39.6533,49.5998 39.6887,49.5935 39.7292,49.5808 39.7811,49.5484 39.8015,49.5422 39.8287,49.5415 39.8594,49.5456 39.8894,49.5533 39.9147,49.5630 39.9740,49.6026 39.9981,49.6082 40.0177,49.6079 40.1155,49.5906 40.1307,49.5798 40.1261,49.5591 40.1107,49.5453 40.0720,49.5307 40.0543,49.5198 40.0349,49.4871 40.0409,49.4555 40.0620,49.4258 40.1014,49.3855 40.1481,49.3496 40.1595,49.3336 40.1572,49.3159 40.1427,49.2819 40.1417,49.2458 40.1340,49.2363 40.1102,49.2276 40.0909,49.2173 40.0577,49.1828 40.0384,49.1685 39.9796,49.1419 39.9521,49.1245 39.9309,49.1006 39.9261,49.0865 39.9234,49.0580 39.9187,49.0478 39.9073,49.0426 39.8913,49.0418 39.8620,49.0451 39.8315,49.0453 39.7489,49.0262 39.6983,49.0284 39.6811,49.0203 39.6740,48.9701 39.6875,48.9576 39.7078,48.9488 39.7260,48.9370 39.7394,48.9190 39.7474,48.9053 39.7587,48.8954 39.7823,48.8884 39.8619,48.8764 39.8965,48.8799 39.9082,48.8784 39.9186,48.8725 39.9376,48.8562 39.9504,48.8528 39.9723,48.8603 39.9899,48.8757 40.0089,48.8878 40.0343,48.8856 40.0538,48.8692 40.0528,48.8497 40.0387,48.8300 40.0196,48.8131 39.9753,48.7897 39.9350,48.7867 39.8242,48.8156 39.8012,48.8149 39.7794,48.8077 39.7594,48.7928 39.7512,48.7819 39.7445,48.7705 39.7363,48.7615 39.7114,48.7548 39.7029,48.7466 39.6418,48.6117 39.6317,48.5869 39.6703,48.5884 39.6901,48.5937 39.8092,48.5838 39.8353,48.5735 39.8551,48.5561 39.8627,48.5301 39.8639,48.5227 39.8661,48.5170 39.8685,48.5129 39.8695,48.5099 39.8654,48.5015 39.8560,48.4994 39.8467,48.4998 39.8421,48.4991 39.8447,48.4835 39.8543,48.4754 39.8648,48.4698 39.8962,48.4239 39.9068,48.3983 39.9145,48.3847 39.9241,48.3761 39.9015,48.3612 39.8841,48.3464 39.8159,48.3082 39.8848,48.2790 39.9052,48.2806 39.9574,48.2934 39.9789,48.2901 39.9932,48.2732 39.9907,48.2537 39.9776,48.2355 39.9605,48.2221 39.9126,48.1977 39.8937,48.1830 39.8431,48.1198 39.8312,48.1000 39.8290,48.0768 39.8443,48.0457 39.8430,48.0364 39.8403,48.0350 39.8336,48.0362 39.7788,48.0292 39.7681,48.0243 39.7599,48.0150 39.7619,48.0098 39.7701,48.0041 39.7802,47.9931 39.7944,47.9713 39.7962,47.9614 39.7940,47.9457 39.7905,47.9377 39.7798,47.9225 39.7770,47.9137 39.7776,47.9066 39.7821,47.8929 39.7829,47.8866 39.7756,47.8580 39.7591,47.8329 39.7338,47.8160 39.7008,47.8115 39.6006,47.8295 39.5700,47.8309 39.5094,47.8228 39.4799,47.8261 39.4571,47.8313 39.4140,47.8232 39.3916,47.8226 39.3735,47.8283 39.3401,47.8436 39.3197,47.8460 39.1736,47.8371 39.1332,47.8295 39.1135,47.8286 39.0929,47.8321 39.0391,47.8569 38.8772,47.8612 38.8309,47.8482 38.7962,47.8199 38.7710,47.7808 38.7533,47.7351 38.7452,47.6931 38.7345,47.6771 38.7130,47.6757 38.6779,47.6852 38.6622,47.6833 38.6434,47.6735 38.6064,47.6451 38.5876,47.6343 38.5622,47.6266 38.3529,47.6071 38.3190,47.5913 38.2934,47.5628 38.2744,47.5278 38.2603,47.4929 38.2636,47.4217 38.2580,47.3932 38.2334,47.3624 38.2034,47.3346 38.1906,47.3169 38.1887,47.3010 38.2010,47.2906 38.2203,47.2888 38.2576,47.2927 38.2757,47.2918 38.2919,47.2870 38.3009,47.2760 38.2982,47.2560 38.2847,47.2411 38.2639,47.2315 38.2413,47.2239 38.2225,47.2152 38.2035,47.1923 38.1970,47.1624 38.2014,47.1307 38.2247,47.1080 38.2225,47.0996 38.2204,47.1008 38.2169,47.1028 38.2164,47.1031 38.2110,47.0948 37.9262,46.9147 37.6414,46.7346 37.6396,46.7315 37.4856,46.5517 37.4917,46.5404 37.5351,46.4605 37.5701,46.3960 37.6717,46.2898 37.8074,46.2005 37.7262,46.1467 37.6682,46.0824 37.5928,45.8818 37.5351,45.8576 37.4320,45.8143 37.3550,45.7453 37.3114,45.6451 37.3112,45.5238 37.1859,45.5333 36.8977,45.6341 36.8360,45.6367 36.7885,45.6323 36.6901,45.6231 36.6914,45.5068 36.6915,45.4428 36.6915,45.4337 36.6856,45.4005 36.6660,45.3672 36.6367,45.3302 36.6215,45.3218 36.6152,45.3184 36.5930,45.3193 36.5751,45.3094 36.5875,45.2900 36.5973,45.2801 36.5986,45.2796 36.6448,45.2608 36.6206,45.2253 36.5665,45.2115 36.5615,45.2109 36.5340,45.2072 36.5047,45.1985 36.5166,45.1592 36.5437,45.1229 36.5477,45.1175 36.6062,44.9861 36.6155,44.9326 36.5964,44.9055 36.6197,44.9082 36.6641,44.9132 36.7904,44.8998 36.9466,44.8596 37.0304,44.8110 37.1131,44.6800 37.1713,44.6154 37.3229,44.5161 37.4493,44.4752 37.7738,44.4277 37.8655,44.3830 38.0124,44.2617 38.0969,44.2150 38.2283,44.1815 38.4777,44.1473 38.5458,44.1253 38.6892,44.0318 38.8307,43.9568 39.1152,43.7667 39.3292,43.5966 39.5432,43.4265 39.6483,43.3600 39.7646,43.2591 39.9958,43.1757 40.1180,43.0353 40.1793,42.9868 40.2525,42.9595 40.4057,42.9443 40.5340,42.8987 40.6904,42.8888 40.7681,42.8345 40.8514,42.8006 40.9145,42.7079 41.0006,42.6387 41.0581,42.6148 41.2433,42.5819 41.3015,42.3454 41.3793,42.1912 41.4145,42.0693 41.4952,41.9541 41.5124,41.8934 41.5042,41.8505 41.4762,41.8057 41.3193,41.6511 41.4498,41.5578 41.5226,41.5166 41.5347,41.5098 41.6273,41.4805 41.6400,41.4787 41.6698,41.4805 41.6950,41.4891 41.7026,41.4890 41.7039,41.4851 41.7028,41.4776 41.7026,41.4695 41.7068,41.4632 41.7185,41.4596 41.7478,41.4569 41.7610,41.4535 41.8008,41.4257 41.8130,41.4218 41.8226,41.4260 41.8627,41.4518 41.8940,41.4855 41.9078,41.4935 41.9480,41.5056 42.0196,41.4851 42.0549,41.4935 42.0694,41.4986 42.0835,41.5001 42.0975,41.4983 42.1118,41.4935 42.1432,41.5003 42.1584,41.4999 42.1727,41.4935 42.1893,41.4817 42.2133,41.4802 42.2625,41.4823 42.4379,41.4309 42.4510,41.4314 42.4631,41.4318 42.4838,41.4422 42.5138,41.4762 42.5355,41.4935 42.5455,41.5096 42.5550,41.5503 42.5652,41.5671 42.5852,41.5788 42.6106,41.5851 42.6610,41.5883 42.8009,41.5792 42.8199,41.5723 42.8122,41.5630 42.8089,41.5529 42.8068,41.5430 42.8027,41.5341 42.7946,41.5268 42.7749,41.5143 42.7665,41.5043 42.7921,41.4929 42.8112,41.4772 42.8300,41.4725 42.8546,41.4938 42.8680,41.5002 42.8751,41.4937 42.8807,41.4812 42.8890,41.4700 42.8966,41.4666 42.9261,41.4591 42.9322,41.4548 42.9362,41.4502 42.9411,41.4463 42.9500,41.4437 42.9577,41.4370 42.9876,41.3947 43.0021,41.3827 43.0756,41.3449 43.1239,41.3129 43.1548,41.3019 43.1840,41.2990 43.1854,41.2938 43.1719,41.2793 43.1572,41.2697 43.1031,41.2488 43.1303,41.2423 43.1523,41.2442 43.1720,41.2423 43.1922,41.2250 43.2162,41.1805 43.2306,41.1726 43.3226,41.1921 43.3518,41.1936 43.3833,41.1872 43.4106,41.1752 43.4376,41.1562 43.4518,41.1326 43.4404,41.1066 43.4363,41.0832 43.4446,41.0515 43.4446,41.0514 43.4605,41.0229 43.4796,41.0091 43.5224,41.0045 43.5654,40.9881 43.6049,40.9633 43.6362,40.9335 43.6477,40.9139 43.6519,40.8948 43.6542,40.8747 43.6595,40.8520 43.6698,40.8321 43.6914,40.8058 43.7113,40.7816 43.7206,40.7629 43.7241,40.7464 43.7294,40.6771 43.7264,40.6690 43.7056,40.6408 43.6995,40.6346 43.7072,40.6119 43.6648,40.5741 43.6515,40.5534 43.6525,40.5294 43.6465,40.5330 43.6420,40.5344 43.6376,40.5351 43.6315,40.5369 43.6346,40.5328 43.6363,40.5298 43.6390,40.5226 43.6153,40.5204 43.5937,40.5090 43.5595,40.4779 43.5636,40.4647 43.5849,40.4466 43.6253,40.4202 43.6253,40.4133 43.6245,40.4111 43.6096,40.3730 43.6010,40.3618 43.5942,40.3454 43.6044,40.3298 43.6315,40.3103 43.6760,40.2660 43.6903,40.2404 43.6914,40.2386 43.6731,40.2277 43.6837,40.2101 43.7149,40.1806 43.7214,40.1694 43.7116,40.1565 43.6664,40.1489 43.6525,40.1390 43.6654,40.1102 43.7112,40.0907 43.7943,40.0726 43.8028,40.0707 43.9121,40.0243 44.0324,40.0086 44.0483,40.0129 44.0831,40.0316 44.1045,40.0360 44.1143,40.0339 44.1270,40.0245 44.1355,40.0223 44.1459,40.0234 44.1664,40.0280 44.1950,40.0308 44.2156,40.0351 44.2553,40.0434 44.2891,40.0434 44.3256,40.0347 44.4643,39.9723 44.5222,39.9335 44.5479,39.9115 44.5591,39.8969 44.5638,39.8817 44.5675,39.8730 44.5760,39.8664 44.5911,39.8578 44.5942,39.8481 44.5945,39.8368 44.5982,39.8310 44.6115,39.8373 44.6477,39.8051 44.6662,39.7964 44.6713,39.7959 44.6824,39.7972 44.6872,39.7964 44.6920,39.7930 44.6978,39.7853 44.7591,39.7231 44.7746,39.7028 44.7843,39.6902 44.7957,39.6524 44.8070,39.6399 44.8096,39.6370 44.8069,39.6400 44.7257,39.6853 44.7063,39.6980 44.6465,39.7195 44.6328,39.7316 44.6058,39.7632 44.5904,39.7715 44.5657,39.7659 44.4595,39.6985 44.4550,39.6871 44.4602,39.6545 44.4576,39.6387 44.4517,39.6259 44.4186,39.5743 44.4140,39.5609 44.4120,39.5445 44.4140,39.5304 44.4174,39.5175 44.4168,39.5055 44.4068,39.4937 44.4067,39.4937 44.4067,39.4937 44.4017,39.4713 44.4052,39.4525 44.4048,39.4344 44.3880,39.4145 44.3687,39.4036 44.3170,39.3853 44.2949,39.3812 44.2695,39.3829 44.2004,39.4095 44.1765,39.4115 44.1222,39.4004 44.0992,39.3985 44.0770,39.4006 44.0614,39.4003 44.0494,39.3969 44.0464,39.3960 44.0260,39.3862 44.0149,39.3741 44.0210,39.3620 44.0472,39.3379 44.0518,39.3280 44.0577,39.3068 44.0694,39.2870 44.0692,39.2796 44.0667,39.2730 44.0672,39.2640 44.0706,39.2555 44.0827,39.2357 44.0835,39.2268 44.0766,39.2087 44.0777,39.2001 44.1035,39.1846 44.1481,39.1664 44.1866,39.1451 44.1948,39.1205 44.1750,39.0902 44.1699,39.0744 44.1791,39.0349 44.1695,39.0230 44.1534,39.0126 44.1392,38.9940 44.1392,38.9938 44.1447,38.9868 44.1478,38.9801 44.1520,38.9646 44.1580,38.9575 44.1671,38.9520 44.1746,38.9458 44.1754,38.9367 44.1749,38.9284 44.1782,38.9207 44.1825,38.9131 44.1921,38.8908 44.2058,38.8757 44.2220,38.8634 44.2750,38.8436 44.2798,38.8142 44.2527,38.7418 44.2486,38.7218 44.2505,38.7092 44.2555,38.6973 44.2605,38.6792 44.2561,38.6720 44.2474,38.6651 44.2443,38.6590 44.2568,38.6539 44.2749,38.6494 44.2825,38.6454 44.2899,38.6389 44.2970,38.6223 44.2968,38.6016 44.2922,38.5620 44.3014,38.5112 44.3002,38.4940 44.2875,38.4537 44.2874,38.4419 44.2905,38.4166 44.2899,38.4074 44.2866,38.3910 44.2895,38.3823 44.2987,38.3772 44.3134,38.3718 44.3634,38.3646 44.3963,38.3797 44.4091,38.3818 44.4247,38.3770 44.4388,38.3676 44.4511,38.3540 44.4588,38.3383 44.4592,38.3224 44.4367,38.2969 44.4006,38.2747 44.3724,38.2495 44.3767,38.2015 44.3732,38.1821 44.3671,38.1625 44.3606,38.1479 44.3531,38.1400 44.3354,38.1341 44.3271,38.1284 44.3257,38.1197 44.3338,38.1009 44.3283,38.0946 44.3090,38.0872 44.2959,38.0790 44.2866,38.0663 44.2783,38.0453 44.2695,38.0300 44.2454,38.0084 44.2361,37.9940 44.2361,37.9940 44.2360,37.9939 44.2360,37.9938 44.2276,37.9810 44.2215,37.9688 44.2197,37.9561 44.2247,37.9420 44.2255,37.9293 44.2167,37.9186 44.2064,37.9083 44.2021,37.8972 44.2196,37.8753 44.2544,37.8708 44.3192,37.8769 44.3312,37.8740 44.3671,37.8602 44.3779,37.8541 44.3838,37.8450 44.3876,37.8334 44.3932,37.8211 44.4044,37.8097 44.4121,37.8077 44.4190,37.8097 44.4255,37.8108 44.4330,37.8061 44.4338,37.8011 44.4298,37.7851 44.4291,37.7791 44.4364,37.7678 44.4505,37.7666 44.4665,37.7711 44.4792,37.7769 44.5065,37.7793 44.5344,37.7692 44.5594,37.7520 44.5961,37.7164 44.5984,37.7070 44.5882,37.6940 44.5535,37.6718 44.5453,37.6630 44.5409,37.6327 44.5610,37.6147 44.5835,37.6011 44.5874,37.5840 44.5783,37.5639 44.5718,37.5392 44.5699,37.5144 44.5752,37.4940 44.5752,37.4938 44.5793,37.4770 44.5756,37.4689 44.5659,37.4472 44.5721,37.4308 44.5856,37.4247 44.6228,37.4219 44.6382,37.4126 44.6522,37.3840 44.6616,37.3757 44.6980,37.3800 44.7071,37.3710 44.7130,37.3568 44.7214,37.3433 44.7790,37.3138 44.8016,37.2927 44.7985,37.2603 44.7868,37.2481 44.7730,37.2417 44.7605,37.2332 44.7535,37.2153 44.7567,37.1952 44.7661,37.1781 44.7723,37.1612 44.7661,37.1419 44.7538,37.1592 44.7338,37.1672 44.6289,37.1790 44.6103,37.1784 44.5782,37.1664 44.5394,37.1437 44.5034,37.1166 44.4792,37.0920 44.4544,37.0763 44.4281,37.0648 44.3431,37.0424 44.3352,37.0312 44.3316,37.0155 44.3161,36.9941 44.3161,36.9940 44.3160,36.9940 44.3159,36.9940 44.3066,36.9772 44.2972,36.9699 44.2848,36.9692 44.2433,36.9778 44.2343,36.9837 44.2278,36.9941 44.1875,37.0669 44.1800,37.0876 44.1806,37.1089 44.1892,37.1292 44.2060,37.1466 44.2188,37.1526 44.2302,37.1543 44.2401,37.1580 44.2483,37.1697 44.2496,37.1794 44.2485,37.1919 44.2435,37.2138 44.2350,37.2368 44.2232,37.2541 44.2069,37.2675 44.1845,37.2792 44.0880,37.3112 44.0356,37.3182 43.9904,37.3125 43.9538,37.2875 43.9242,37.2531 43.8936,37.2249 43.8400,37.2171 43.8220,37.2024 43.8094,37.1997 43.8021,37.2036 43.7806,37.2204 43.7706,37.2258 43.7469,37.2306 43.7208,37.2326 43.6490,37.2287 43.6183,37.2270 43.5942,37.2295 43.5689,37.2377 43.5506,37.2487 43.5424,37.2523 43.5295,37.2539 43.5171,37.2523 43.4924,37.2448 43.4796,37.2434 43.4633,37.2487 43.4168,37.2792 43.3760,37.2955 43.3361,37.3202 43.3242,37.3222 43.3057,37.3200 43.2969,37.3167 43.2875,37.3091 43.2786,37.3077 43.2703,37.3087 43.2634,37.3107 43.1320,37.3673 43.1148,37.3711 43.0837,37.3688 43.0435,37.3603 43.0052,37.3473 42.9796,37.3318 42.9370,37.3202 42.8967,37.3249 42.8141,37.3468 42.8055,37.3519 42.8011,37.3691 42.7925,37.3743 42.7805,37.3755 42.7716,37.3749 42.7222,37.3589 42.7157,37.3553 42.7095,37.3472 42.7074,37.3402 42.7062,37.3332 42.7023,37.3253 42.5770,37.1792 42.5647,37.1520 42.5613,37.1466 42.5452,37.1409 42.4591,37.1293 42.4019,37.1141 42.3572,37.1100 42.3636,37.0982 42.3712,37.0879 42.3769,37.0768 42.3772,37.0622 42.3459,37.0429 42.2819,36.9941 42.2819,36.9940 42.2819,36.9940 42.2816,36.9940 42.1784,36.9053 41.9786,36.7336 41.8438,36.6179 41.8173,36.5997 41.7899,36.5893 41.4798,36.5361 41.4149,36.5274 41.3854,36.5164 41.3654,36.4942 41.3654,36.4941 41.3653,36.4940 41.3653,36.4939 41.2770,36.3548 41.2688,36.3280 41.2366,36.0770 41.2367,36.0603 41.2406,36.0430 41.2662,35.9943 41.2663,35.9943 41.2663,35.9942 41.3437,35.8577 41.3545,35.8256 41.3593,35.7928 41.3635,35.6552 41.3580,35.6239 41.3422,35.5937 41.2613,35.4943 41.2613,35.4942 41.2612,35.4942 41.2611,35.4942 41.2519,35.4641 41.2431,35.3665 41.2013,35.2430 41.1915,35.1821 41.1980,34.9940 41.2065,34.8193 41.2042,34.7931 41.1957,34.7685 41.0240,34.4943 41.0240,34.4942 40.9880,34.4285 40.9653,34.4019 40.9360,34.3861 40.6905,34.3315 40.5438,34.2580 40.4332,34.2025 40.3226,34.1472 40.2120,34.0918 40.1015,34.0364 39.9909,33.9810 39.8804,33.9256 39.7697,33.8702 39.6592,33.8148 39.5486,33.7595 39.4380,33.7041 39.3274,33.6487 39.2169,33.5933 39.1063,33.5379 38.9957,33.4825 38.8851,33.4271 38.7745,33.3717 38.8530,33.1301 38.8972,32.9943 38.9772,32.7455 39.0572,32.4966 38.9800,32.4761 38.9786,32.4757 38.9782,32.4750 38.9786,32.4737 38.9800,32.4721 39.0288,32.3283 39.0362,32.3134 39.0463,32.3085 39.2358,32.3529 39.2563,32.3427 39.2711,32.3120 39.2920,32.2445 39.2665,32.2129 39.1462,32.1258 39.1464,32.1181 39.1362,32.1154 39.1168,32.1029 38.9981,32.0069 38.9634,31.9945 38.9634,31.9943 38.9633,31.9944 38.8498,31.9663 38.6249,31.9109 38.6159,31.9087 38.4002,31.8554 38.1754,31.7999 37.9505,31.7445 37.7027,31.6811 37.4550,31.6177 37.2073,31.5544 36.9595,31.4910 37.0897,31.3701 37.2198,31.2491 37.3499,31.1282 37.4800,31.0073 37.4831,31.0041 37.4863,31.0009 37.4894,30.9977 37.4926,30.9945 37.6023,30.8832 37.7120,30.7720 37.8219,30.6609 37.9316,30.5497 37.9811,30.4995 37.9814,30.4988 37.9810,30.4984 37.9800,30.4981 37.9733,30.4945 37.9001,30.4591 37.7793,30.4004 37.6707,30.3476 37.6476,30.3309 37.6345,30.3128 37.6052,30.2507 37.5692,30.1750 37.5361,30.1053 37.4917,30.0112 37.4702,29.9946 37.3524,29.9733 37.2185,29.9491 37.0758,29.9233 36.9319,29.8972 36.8429,29.8812 36.7562,29.8655 36.7287,29.8535 36.7049,29.8312 36.6496,29.7494 36.6036,29.6815 36.5413,29.5894 36.4771,29.4946 36.4000,29.4389 36.2837,29.3549 36.1780,29.2784 36.0695,29.2000 36.0438,29.1909 36.0164,29.1900 35.9125,29.2057 35.7972,29.2231 35.6220,29.2497 35.4736,29.2721 35.3346,29.2931 35.1791,29.3167 35.0603,29.3347 34.9738,29.3478 34.8994,29.3620 34.8488,29.2514 34.7785,29.0974 34.6883,28.6617 34.5350,28.2195 34.4517,27.9184 34.4543,27.8716 34.5414,27.8299 34.6324,27.8311 34.6799,27.8527 34.7088,27.9027 34.6996,27.9707 34.7340,28.0098 34.7815,27.9843 34.8464,27.9812 34.9453,27.9904 34.9967,28.0159 35.0508,28.0115 35.1154,27.9284 35.1895,27.8885 35.2472,27.8246 35.2800,27.7467 35.3374,27.7040 35.3660,27.6403 35.4166,27.5798 35.4274,27.5098 35.4882,27.4009 35.7113,27.1816 35.7147,27.1212 35.7603,27.0380 35.9625,26.8286 36.0263,26.6992 36.1573,26.5719 36.2993,26.3141 36.4414,26.0562 36.4969,26.0017 36.6154,25.9727 36.5962,25.9503 36.5337,25.9327 36.4769,25.8743 36.4543,25.8195 36.4519,25.7410 36.4033,25.6626 36.4263,25.5692 36.5050,25.5061 36.5619,25.5021 36.6934,25.4539 36.7351,25.3838 36.8654,25.2779 36.9173,25.2728 36.9871,25.3176 37.0099,25.3110 37.0550,25.2403 37.1625,25.1331 37.1623,25.0408 37.1839,24.9741 37.1702,24.9406 37.1197,24.9362 37.0772,24.9058 37.0594,24.8628 37.0655,24.8166 37.0957,24.7592 37.2501,24.5865 37.3622,24.4173 37.3686,24.3429 37.4422,24.2459 37.4578,24.2333 37.5141,24.1908 37.5141,24.1869 37.5141,23.7413 37.5141,23.2957 37.5141,22.8501 37.5141,22.4044 37.5141,21.9588 37.1775,21.9625 36.8410,21.9661 36.8582,21.9728 36.8742,21.9749 36.8784,21.9769 36.8811,21.9816 36.8840,21.9957 36.6501,21.9958 36.4172,21.9967 36.1846,21.9967 35.9518,21.9967 35.7192,21.9967 35.4864,21.9966 35.2538,21.9966 35.0211,21.9966 34.7885,21.9966 34.5558,21.9966 34.3231,21.9965 34.0905,21.9965 33.8577,21.9965 33.6251,21.9965 33.3924,21.9965 33.1598,21.9965 33.0574,21.9965 32.9551,21.9965 32.8527,21.9965 32.7503,21.9965 32.6479,21.9965 32.5454,21.9965 32.4431,21.9965 32.3407,21.9965 32.2383,21.9965 32.1360,21.9965 32.0336,21.9965 31.9313,21.9965 31.8288,21.9965 31.7265,21.9965 31.6241,21.9965 31.5218,21.9965 31.4359,21.9964 31.4355,21.9964 31.4674,22.0852 31.4906,22.1493 31.4918,22.1733 31.4918,22.1743 31.4829,22.1965 31.4609,22.2166 31.4425,22.2252 31.4233,22.2280 31.4041,22.2248 31.3853,22.2155 31.3595,22.1892 31.3109,22.0968 31.2616,22.0028 31.2484,21.9954 31.2101,21.9954 31.1129,21.9954 31.0156,21.9955 30.9181,21.9955 30.8207,21.9955 30.7235,21.9955 30.6261,21.9955 30.5288,21.9955 30.4315,21.9955 30.3343,21.9956 30.2369,21.9956 30.1394,21.9956 30.0422,21.9956 29.9448,21.9956 29.8476,21.9956 29.7503,21.9957 29.6529,21.9957 29.5556,21.9957 29.4582,21.9957 29.3608,21.9957 29.2636,21.9957 29.1664,21.9957 29.0690,21.9957 28.9716,21.9957 28.8744,21.9958 28.7770,21.9958 28.6797,21.9958 28.5823,21.9958 28.4849,21.9958 28.3877,21.9958 28.2903,21.9958 28.1929,21.9959 28.0957,21.9959 27.9984,21.9959 27.9010,21.9959 27.8037,21.9960 27.7064,21.9960 27.6090,21.9960 27.5117,21.9960 27.4143,21.9960 27.3170,21.9960 27.2197,21.9960 27.1224,21.9960 27.0250,21.9960 26.9277,21.9960 26.8304,21.9960 26.7331,21.9961 26.6358,21.9962 26.5384,21.9962 26.4411,21.9962 26.3438,21.9962 26.2465,21.9962 26.1492,21.9962 26.0519,21.9962 25.9545,21.9963 25.8571,21.9963 25.7599,21.9963 25.6626,21.9963 25.5652,21.9963 25.4679,21.9964 25.3707,21.9964 25.2732,21.9964 25.1759,21.9964 25.0785,21.9964 24.9812,21.9964 24.9812,21.9954 24.9812,21.8719 24.9811,21.7472 24.9811,21.7462 24.9811,21.6226 24.9811,21.6216 24.9811,21.4981 24.9811,21.4970 24.9811,21.3735 24.9810,21.2489 24.9809,21.1244 24.9809,21.1233 24.9809,20.9998 24.9809,20.9987 24.9809,20.8752 24.9808,20.7506 24.9808,20.7495 24.9808,20.6260 24.9808,20.6249 24.9808,20.5014 24.9807,20.4064 24.9806,20.3113 24.9806,20.3102 24.9806,20.2162 24.9805,20.1211 24.9805,20.1200 24.9805,20.0031 24.9796,20.0016 24.9787,20.0001 24.9777,19.9985 24.9768,19.9970 24.9745,19.9967 24.9724,19.9965 24.9702,19.9962 24.9680,19.9960 24.8672,19.9960 24.7213,19.9961 24.5991,19.9961 24.4746,19.9962 24.3409,19.9964 24.2279,19.9964 24.1424,19.9965 23.9813,19.9965 23.9813,19.9954 23.9813,19.8717 23.9813,19.8706 23.9813,19.7469 23.9813,19.7458 23.9813,19.6221 23.9813,19.6210 23.9813,19.4972 23.9801,19.4967 23.8578,19.5572 23.7343,19.6181 23.6108,19.6791 23.4873,19.7402 23.3638,19.8012 23.2402,19.8621 23.1168,19.9232 22.9931,19.9841 22.8696,20.0451 22.7461,20.1061 22.6226,20.1671 22.4991,20.2281 22.3756,20.2891 22.2521,20.3501 22.1286,20.4111 22.0051,20.4720 21.8815,20.5331 21.7581,20.5940 21.6345,20.6550 21.5110,20.7160 21.3875,20.7770 21.2640,20.8380 21.1403,20.8990 21.0169,20.9600 20.8933,21.0209 20.7699,21.0820 20.6464,21.1429 20.5228,21.2039 20.3994,21.2650 20.2758,21.3259 20.1523,21.3869 20.0288,21.4479 19.9053,21.5089 19.7817,21.5699 19.6583,21.6309 19.5347,21.6919 19.4111,21.7529 19.2876,21.8139 19.1641,21.8749 19.0407,21.9359 18.9171,21.9968 18.7936,22.0579 18.6701,22.1188 18.5466,22.1798 18.4230,22.2409 18.2996,22.3018 18.1760,22.3628 18.0525,22.4239 17.9290,22.4848 17.8805,22.5087 17.8055,22.5458 17.6819,22.6068 17.5584,22.6678 17.4348,22.7288 17.3114,22.7898 17.1879,22.8508 17.0643,22.9118 16.9409,22.9727 16.8173,23.0337 16.6938,23.0947 16.5703,23.1557 16.4468,23.2167 16.3232,23.2777 16.1998,23.3387 16.0762,23.3996 15.9851,23.4447 15.9646,23.4422 15.9202,23.4220 15.8625,23.3959 15.8049,23.3698 15.7472,23.3436 15.6896,23.3175 15.6319,23.2913 15.5743,23.2652 15.5165,23.2390 15.4588,23.2129 15.4012,23.1868 15.3435,23.1606 15.2858,23.1345 15.2281,23.1084 15.1704,23.0823 15.1129,23.0561 15.0552,23.0300 14.9975,23.0038 14.9821,22.9969 14.9803,22.9959 14.9799,22.9957 14.9799,22.9958 14.9798,22.9957 14.9796,22.9956 14.9794,22.9955 14.9792,22.9953 14.8080,22.9089 14.6371,22.8225 14.4660,22.7362 14.2949,22.6498 14.2317,22.6179 14.2162,22.6163 14.2016,22.6232 14.1562,22.6607 14.0310,22.7637 13.9061,22.8666 13.7809,22.9696 13.6558,23.0726 13.5996,23.1190 13.4823,23.1797 13.3807,23.2024 13.2924,23.2221 13.2041,23.2417 13.1159,23.2614 13.0276,23.2811 12.9394,23.3008 12.8512,23.3205 12.7630,23.3402 12.6747,23.3599 12.5865,23.3796 12.4983,23.3992 12.4100,23.4189 12.3218,23.4386 12.2337,23.4583 12.1453,23.4779 12.0570,23.4976 11.9689,23.5174 11.8924,23.6601 11.8223,23.7906 11.7086,24.0030 11.6365,24.1376 11.5671,24.2668 11.5414,24.2975 11.5086,24.3138 11.1500,24.4223 10.9114,24.4945 10.7207,24.5523 10.6991,24.5561 10.6774,24.5539 10.5668,24.5165 10.4502,24.4769 10.4105,24.4733 10.3918,24.4800 10.2603,24.5766 10.2422,24.5951 10.2297,24.6299 10.2122,24.7229 10.1934,24.7499 10.0445,24.8296 10.0320,24.8563 10.0300,24.9951 10.0255,25.1364 10.0214,25.2680 10.0079,25.3314 9.9695,25.3954 9.8167,25.5885 9.6940,25.7435 9.6803,25.7607 9.5413,25.9364 9.4012,26.1134 9.3778,26.1689 9.4025,26.2162 9.4165,26.2323 9.4348,26.2720 9.4689,26.3010 9.4776,26.3156 9.4814,26.3326 9.4826,26.3526 9.8358,26.5042 9.8546,26.5244 9.8963,26.6528 9.8941,26.6740 9.8826,26.7018 9.8855,26.7366 9.9106,26.8431 9.9067,26.8575 9.8908,26.8696 9.8461,26.8920 9.8351,26.9010 9.8255,26.9206 9.8061,27.0251 9.7213,27.2919 9.7219,27.3085 9.7265,27.3247 9.7431,27.3641 9.7563,27.4230 9.7705,27.4442 9.8136,27.4865 9.8216,27.5057 9.8117,27.5265 9.7971,27.5489 9.7939,27.5697 9.8185,27.5857 9.8466,27.5993 9.8634,27.6192 9.9343,27.8274 9.9359,27.8667 9.7899,28.2094 9.7770,28.2676 9.8141,28.5268 9.8513,28.7860 9.8483,28.9757 9.8261,29.1285 9.7469,29.3684 9.6677,29.6083 9.5497,29.8023 9.4217,29.9687 9.3100,30.0844 9.2865,30.1171 9.5197,30.2289 9.7435,30.3313 9.7729,30.3381 9.8458,30.3423 9.8713,30.3552 9.9956,30.4945 10.1012,30.6417 10.1922,30.7313 10.2539,30.8418 10.2697,30.8821 10.2702,30.9156 10.2450,30.9857 10.2406,31.0212 10.2462,31.0596 10.2448,31.0782 10.2132,31.1354 10.1827,31.2408 10.1081,31.4118 10.1062,31.4292 10.1169,31.4944 10.1326,31.5176 10.1965,31.5786 10.2640,31.6805 10.3154,31.7158 10.4278,31.7146 10.4825,31.7331 10.4989,31.7443 10.5135,31.7570 10.5255,31.7721 10.5424,31.8066 10.5846,31.8403 10.5976,31.8735 10.6059,31.9536 10.6285,31.9741 10.6473,31.9720 10.6653,31.9632 10.6836,31.9570 10.7031,31.9622 10.7366,31.9854 10.7729,32.0045 10.8056,32.0324 10.8459,32.1118 10.8732,32.1367 11.1586,32.2526 11.4440,32.3685 11.5139,32.4080 11.5464,32.4343 11.5641,32.4655 11.5606,32.5076 11.5374,32.5435 11.4704,32.5993 11.4499,32.6380 11.4492,32.6930 11.4638,32.7985 11.4565,32.9021 11.4744,32.9699 11.4749,33.0258 11.4774,33.0412 11.5060,33.1364 11.5051,33.1811 11.5259,33.1769 11.5259,33.1769 11.5483,33.2637 11.5985,33.3785 11.6065,33.3747 11.9138,33.2789 12.1416,33.1640 12.3694,33.0491 12.5446,33.0139 12.7747,33.0106 12.8853,33.0327 13.1306,33.1217 13.2238,33.1304 13.3283,33.1218 13.4549,33.0893 13.6435,33.0108 13.8676,33.0003 14.2686,32.9108 14.3922,32.8519 14.5935,32.7094 14.7060,32.6947 14.8040,32.6548 15.0713,32.6336 15.2752,32.5838 15.4099,32.5070 15.5085,32.4022 15.6067,32.2158 15.6191,31.9939 15.6681,31.8227 15.7539,31.6771 15.8663,31.5802 16.0861,31.4990 16.3273,31.4451 16.4527,31.4312 16.7322,31.4338 16.9288,31.4032 17.1846,31.3447 17.4404,31.2861 17.5914,31.2174 17.9349,31.1195 18.0781,31.0421 18.3384,30.9467 18.5504,30.7853 18.7624,30.6238 19.0422,30.4852 19.1296,30.4757 19.2203,30.4916 19.5275,30.6373 19.6928,30.7806 19.8836,31.0090 19.9071,31.0924 19.9032,31.1687 19.8004,31.3144 19.7245,31.4920 19.6886,31.6220 19.6759,31.7684 19.6909,31.9132 19.7323,32.0549 19.8074,32.2065 19.8954,32.3216 20.1725,32.5707 20.4741,32.7554 20.7279,32.8629 20.9817,32.9705 21.0613,32.9845 21.2347,32.9720 21.2988,32.9789 21.5129,33.1167 21.5916,33.1454 21.6779,33.1588 21.7687,33.1534 21.9272,33.1157 22.1197,33.1535 22.2004,33.1505 22.3392,33.0921 22.4355,33.0668 22.4363,33.5133 22.4371,33.9598 22.4379,34.4063 22.4387,34.8527 22.4396,35.2992 22.4404,35.7457 22.4412,36.1922 22.4233,36.1937 22.3562,36.2234 22.1894,36.3458 22.1309,36.4141 22.1055,36.4874 22.1147,36.6210 21.9473,36.5275 21.8620,36.5027 21.7815,36.4947 21.7046,36.5033 21.6294,36.5279 21.5523,36.5698 21.4948,36.6182 21.4479,36.6970 21.4315,36.8683 21.3452,36.9951 21.3159,37.0935 21.3222,37.2228 21.3450,37.2816 21.4077,37.3582 21.3937,37.4021 21.3443,37.4260 21.2040,37.4536 21.1005,37.5104 20.8118,37.4507 20.7368,37.4576 20.6641,37.4872 20.5094,37.5986 20.3986,37.7188 20.3641,37.8021 20.3630,37.9379 20.2235,37.9906 20.1273,38.0768 20.0906,38.1879 20.1153,38.3370 20.1814,38.4713 20.2826,38.5506 20.3277,38.7858 20.3780,38.8795 20.4472,38.9581 20.3669,39.0239 20.2915,38.9907 20.2066,38.9776 20.1122,38.9853 20.0322,39.0116 19.9671,39.0532 19.9136,39.1073 19.8816,39.1604 19.8653,39.2269 19.7652,39.2637 19.6850,39.3230 19.5582,39.4834 19.4228,39.6174 19.3707,39.7136 19.3682,39.7754 19.3928,39.8379 19.4505,39.9085 19.6570,39.8771 19.6654,39.8756 19.9708,39.8210 19.9605,39.7445 19.9543,39.6985 19.9801,39.6614 19.9968,39.6926 19.9999,39.6935 20.0005,39.6934 20.0161,39.7014 20.0496,39.6927 20.0893,39.6828 20.1352,39.6642 20.1638,39.6443 20.1841,39.6370 20.1999,39.6401 20.2034,39.6453 20.2030,39.6526 20.2042,39.6603 20.2120,39.6670 20.2201,39.6692 20.2286,39.6692 20.2372,39.6670 20.2460,39.6629 20.2490,39.6848 20.2641,39.6961 20.2827,39.7044 20.2965,39.7174 20.2995,39.7282 20.2965,39.7335 20.2911,39.7379 20.2873,39.7467 20.2855,39.7497 20.2782,39.7567 20.2757,39.7601 20.2768,39.7632 20.2831,39.7751 20.2847,39.7803 20.2814,39.7882 20.2755,39.7924 20.2730,39.7965 20.2800,39.8040 20.2884,39.8066 20.2983,39.8054 20.3369,39.7940 20.3546,39.7858 20.3716,39.7843 20.3890,39.7981 20.3970,39.8181 20.3930,39.8355 20.3469,39.8943 20.3231,39.9124 20.3180,39.9184 20.3030,39.9791 20.2979,39.9869 20.3100,39.9899 20.3599,39.9910 20.3765,39.9937 20.3807,40.0117 20.3891,40.0294 20.4004,40.0453 20.4138,40.0572 20.4328,40.0638 20.4660,40.0608 20.4817,40.0678 20.4999,40.0715 20.5529,40.0654 20.5778,40.0673 20.6402,40.0901 20.6476,40.0940 20.6518,40.1010 20.6668,40.1335 20.6682,40.1381 20.6635,40.1566 20.6632,40.1617 20.6599,40.1727 20.6604,40.1789 20.6650,40.1844 20.6798,40.1878 20.6853,40.1912 20.6964,40.2151 20.6966,40.2356 20.6946,40.2556 20.6991,40.2784 20.7070,40.2881 20.7178,40.2939 20.7288,40.2983 20.7366,40.3036 20.7550,40.3386 20.7660,40.3543 20.7704,40.3626 20.7739,40.3749 20.7733,40.3853 20.7690,40.4126 20.7706,40.4220 20.7795,40.4290 20.8003,40.4328 20.8092,40.4366 20.8174,40.4468 20.8213,40.4564 20.8267,40.4648 20.8400,40.4716 20.8668,40.4721 20.8896,40.4637 20.9119,40.4595 20.9368,40.4725 20.9465,40.4829 20.9498,40.4879 20.9527,40.4937 20.9519,40.5061 20.9579,40.5149 20.9686,40.5206 20.9815,40.5233 20.9883,40.5335 20.9975,40.5392 21.0067,40.5432 21.0135,40.5489 21.0188,40.5590 21.0203,40.5668 21.0208,40.5751 21.0225,40.5866 21.0332,40.6214 21.0367,40.6397 21.0353,40.6594 21.0288,40.6768 21.0186,40.6909 20.9920,40.7155 20.9635,40.7361 20.9592,40.7436 20.9572,40.7516 20.9535,40.7592 20.9437,40.7653 20.9609,40.7808 20.9670,40.8020 20.9653,40.8494 21.1121,40.8539 21.1830,40.8702 21.2091,40.8691 21.2610,40.8608 21.2954,40.8609 21.3293,40.8663 21.3449,40.8731 21.3813,40.9005 21.4049,40.9086 21.4294,40.9090 21.5095,40.9005 21.5537,40.8704 21.5816,40.8663 21.5903,40.8707 21.6137,40.8883 21.6237,40.8944 21.6295,40.8951 21.6439,40.8945 21.6488,40.8958 21.6527,40.9014 21.6548,40.9143 21.6569,40.9182 21.6851,40.9280 21.7370,40.9192 21.7655,40.9239 21.7781,40.9337 21.7818,40.9451 21.7819,40.9559 21.7837,40.9642 21.7936,40.9736 21.8313,40.9935 21.8314,40.9936 21.8314,40.9937 21.8315,40.9937 21.8450,41.0124 21.8807,41.0384 21.8943,41.0538 21.8962,41.0614 21.8972,41.0813 21.9012,41.0908 21.9091,41.0975 21.9347,41.1119 21.9651,41.1244 22.0291,41.1386 22.0338,41.1413 22.0441,41.1499 22.0482,41.1519 22.0555,41.1499 22.0586,41.1451 22.0603,41.1400 22.0628,41.1372 22.0959,41.1236 22.1034,41.1215 22.1244,41.1272 22.1603,41.1519 22.1832,41.1599 22.2058,41.1614 22.2251,41.1596 22.2630,41.1505 22.2935,41.1475 22.3026,41.1455 22.3052,41.1416 22.3067,41.1284 22.3151,41.1244 22.3234,41.1285 22.3423,41.1290 22.3677,41.1324 22.3802,41.1317 22.3893,41.1283 22.4104,41.1179 22.4218,41.1146 22.4515,41.1137 22.4675,41.1150 22.4814,41.1177 22.5007,41.1221 22.5166,41.1222 22.5492,41.1185 22.5713,41.1195 22.5902,41.1251 22.6073,41.1360 22.6245,41.1526 22.6268,41.1608 22.6259,41.1698 22.6293,41.1771 22.6445,41.1802 22.6561,41.1781 22.6619,41.1723 22.6663,41.1645 22.6741,41.1566 22.6919,41.1446 22.7049,41.1397 22.7157,41.1456 22.7272,41.1658 22.7367,41.2044 22.7409,41.2836 22.7513,41.3152 22.7810,41.3349 22.8260,41.3410 22.9170,41.3358 22.9409,41.3498 22.9445,41.3684 22.9394,41.3894 22.9373,41.4108 22.9405,41.4169 22.9521,41.4277 22.9546,41.4324 22.9534,41.4382 22.9476,41.4484 22.9462,41.4532 22.9430,41.5386 22.9479,41.5551 22.9487,41.5610 22.9464,41.5677 22.9369,41.5789 22.9337,41.5846 22.9321,41.5980 22.9330,41.6123 22.9361,41.6262 22.9409,41.6376 22.9458,41.6411 22.9615,41.6445 22.9670,41.6470 22.9701,41.6520 22.9766,41.6666 22.9986,41.6931 23.0096,41.7164 23.0089,41.7399 22.9912,41.7610 22.9805,41.7647 22.9569,41.7657 22.9459,41.7693 22.9397,41.7767 22.9183,41.8143 22.9077,41.8486 22.9014,41.8604 22.8967,41.8644 22.8850,41.8692 22.8808,41.8727 22.8782,41.8803 22.8786,41.8950 22.8771,41.9020 22.8663,41.9249 22.8589,41.9479 22.8571,41.9719 22.8548,41.9826 22.8469,41.9935 22.8466,41.9936 22.8458,42.0069 22.8437,42.0145 22.8382,42.0195 22.8270,42.0251 22.8213,42.0254 22.8060,42.0214 22.7989,42.0212 22.7911,42.0258 22.7877,42.0326 22.7853,42.0391 22.7809,42.0432 22.7706,42.0440 22.7251,42.0425 22.7184,42.0445 22.7140,42.0486 22.7103,42.0530 22.7057,42.0559 22.6759,42.0606 22.6178,42.0827 22.5311,42.1291 22.5102,42.1448 22.4947,42.1646 22.4814,42.1933 22.4436,42.2144 22.3451,42.3134 22.3472,42.3143 22.3638,42.3212 22.4056,42.3217 22.4240,42.3259 22.4266,42.3285 22.4385,42.3401 22.4544,42.3768 22.4697,42.3916 22.4726,42.3927 22.4851,42.3972 22.4919,42.3983 22.4976,42.3992 22.5088,42.4049 22.5195,42.4209 22.5195,42.4209 22.5331,42.4576 22.5365,42.4784 22.5333,42.4906 22.5325,42.4934 22.5325,42.4936 22.5296,42.4990 22.5247,42.5075 22.5119,42.5191 22.4813,42.5355 22.4294,42.5715 22.4294,42.5715 22.4254,42.5730 22.4252,42.5731 22.4283,42.5898 22.4289,42.5927 22.4305,42.5980 22.4305,42.5980 22.4446,42.6433 22.4492,42.6680 22.4421,42.6816 22.4486,42.6908 22.4680,42.7186 22.4813,42.7276 22.4823,42.7308 22.4829,42.7339 22.4823,42.7366 22.4813,42.7398 22.4746,42.7438 22.4666,42.7485 22.4531,42.7636 22.4294,42.8061 22.4275,42.8081 22.4258,42.8098 22.4274,42.8136 22.4368,42.8243 22.4455,42.8302 22.4709,42.8401 22.4814,42.8467 22.4971,42.8644 22.5012,42.8671 22.5062,42.8700 22.5145,42.8703 22.5198,42.8704 22.5359,42.8685 22.5374,42.8684 22.5442,42.8715 22.5491,42.8764 22.5500,42.8773 22.5638,42.8842 22.5908,42.8869 22.6131,42.8825 22.6659,42.8721 22.6886,42.8760 22.6966,42.8773 22.7149,42.8831 22.7268,42.8869 22.7357,42.8946 22.7388,42.8974 22.7411,42.9016 22.7453,42.9102 22.7604,42.9509 22.7632,42.9586 22.7642,42.9607 22.7691,42.9710 22.7696,42.9715 22.7765,42.9795 22.7882,42.9848 22.8157,42.9895 22.8289,42.9933 22.8289,42.9935 22.8289,42.9938 22.8422,43.0075 22.8840,43.0366 22.8892,43.0446 22.8961,43.0612 22.8967,43.0626 22.8975,43.0638 22.9014,43.0700 22.9099,43.0753 22.9268,43.0811 22.9291,43.0822 22.9353,43.0853 22.9506,43.1027 22.9554,43.1081 22.9739,43.1414 22.9845,43.1747 22.9813,43.1990 22.9758,43.2008 22.9644,43.2044 22.9182,43.2118 22.9182,43.2118 22.9155,43.2123 22.9152,43.2123 22.8977,43.2202 22.8942,43.2229 22.8838,43.2306 22.8721,43.2422 22.8570,43.2568 22.8384,43.2708 22.8332,43.2748 22.8269,43.2815 22.8239,43.2893 22.8208,43.3075 22.8185,43.3125 22.8173,43.3155 22.8108,43.3222 22.8046,43.3287 22.7326,43.3817 22.7194,43.3885 22.7030,43.3938 22.6931,43.3949 22.6742,43.3941 22.6703,43.3952 22.6647,43.3967 22.6576,43.4024 22.6565,43.4032 22.6539,43.4072 22.6453,43.4203 22.6379,43.4261 22.6284,43.4282 22.6067,43.4272 22.5984,43.4288 22.5961,43.4293 22.5867,43.4345 22.5844,43.4367 22.5727,43.4482 22.5658,43.4533 22.5413,43.4618 22.5326,43.4648 22.5189,43.4742 22.5094,43.4933 22.4906,43.5409 22.4838,43.5511 22.4785,43.5592 22.4777,43.5635 22.4776,43.5642 22.4786,43.5690 22.4791,43.5700 22.4814,43.5741 22.4826,43.5764 22.4827,43.5767 22.4829,43.5777 22.4829,43.5790 22.4829,43.5808 22.4829,43.5817 22.4819,43.5832 22.4814,43.5841 22.4781,43.5876 22.4771,43.5913 22.4781,43.5949 22.4814,43.5985 22.4818,43.5989 22.4820,43.5995 22.4818,43.5999 22.4818,43.6000 22.4816,43.6004 22.4814,43.6006 22.4741,43.6125 22.4739,43.6129 22.4734,43.6225 22.4728,43.6361 22.4719,43.6378 22.4659,43.6493 22.4635,43.6511 22.4559,43.6563 22.4415,43.6622 22.4265,43.6682 22.4228,43.6707 22.4141,43.6764 22.4076,43.6840 22.4049,43.6872 22.3969,43.6994 22.3933,43.7067 22.3903,43.7124 22.3860,43.7256 22.3855,43.7335 22.3892,43.7505 22.3881,43.7584 22.3627,43.7806 22.3626,43.7808 22.3495,43.8081 22.3495,43.8082 22.3528,43.8218 22.3548,43.8298 22.3548,43.8298 22.3584,43.8363 22.3676,43.8528 22.3770,43.8834 22.3774,43.8889 22.3790,43.9135 22.3799,43.9149 22.3818,43.9188 22.3919,43.9320 22.3941,43.9356 22.3945,43.9363 22.3966,43.9521 22.3971,43.9807 22.3984,43.9867 22.3996,43.9933 22.4114,44.0065 22.4120,44.0071 22.4342,44.0140 22.4485,44.0156 22.4814,44.0194 22.5035,44.0199 22.5101,44.0258 22.5149,44.0303 22.5213,44.0422 22.5226,44.0447 22.5342,44.0572 22.5546,44.0624 22.5752,44.0614 22.5862,44.0630 22.5929,44.0638 22.5951,44.0667 22.6046,44.0796 22.6046,44.0881 22.6001,44.1028 22.5981,44.1093 22.5971,44.1191 22.5973,44.1200 22.5988,44.1304 22.6093,44.1599 22.6080,44.1600 22.6079,44.1601 22.6071,44.1614 22.6060,44.1631 22.6049,44.1685 22.6058,44.1727 22.6062,44.1746 22.6084,44.1758 22.6088,44.1759 22.6123,44.1790 22.6248,44.1894 22.6357,44.2022 22.6400,44.2072 22.6434,44.2099 22.6488,44.2140 22.6706,44.2213 22.6919,44.2283 22.6919,44.2283 22.6917,44.2284 22.6916,44.2284 22.6915,44.2285 22.6908,44.2288 22.6855,44.2437 22.6870,44.2625 22.6893,44.2918 22.6814,44.3053 22.6750,44.3075 22.6622,44.3114 22.6395,44.3140 22.6212,44.3159 22.5919,44.3255 22.5828,44.3283 22.5490,44.3490 22.5225,44.3749 22.5051,44.4040 22.5047,44.4068 22.5040,44.4117 22.5043,44.4137 22.5064,44.4275 22.5059,44.4312 22.5054,44.4350 22.5014,44.4413 22.5009,44.4420 22.4800,44.4558 22.4776,44.4624 22.4770,44.4639 22.4770,44.4646 22.4770,44.4770 22.4797,44.4902 22.4839,44.4998 22.4896,44.5033 22.4908,44.5040 22.5003,44.5061 22.5196,44.5070 22.5355,44.5075 22.5484,44.5117 22.5515,44.5153 22.5567,44.5215 22.5584,44.5309 22.5598,44.5388 22.5656,44.5554 22.5804,44.5654 22.6003,44.5696 22.6210,44.5691 22.6323,44.5660 22.6421,44.5633 22.6567,44.5561 22.6567,44.5561 22.6787,44.5453 22.6998,44.5416 22.7194,44.5442 22.7416,44.5516 22.7471,44.5558 22.7593,44.5647 22.7623,44.5739 22.7654,44.5828 22.7249,44.6149 22.7147,44.6231 22.7001,44.6306 22.6212,44.6374 22.6077,44.6422 22.5876,44.6495 22.5608,44.6648 22.5532,44.6691 22.4834,44.7241 22.4819,44.7248 22.4691,44.7300 22.4591,44.7317 22.4505,44.7330 22.4261,44.7337 22.4168,44.7285 22.4155,44.7278 22.3807,44.7005 22.3611,44.6921 22.3386,44.6884 22.3197,44.6853 22.3050,44.6774 22.2992,44.6617 22.2443,44.5913 22.1849,44.5151 22.1722,44.5056 22.1557,44.5023 22.1484,44.5008 22.1451,44.5012 22.1266,44.5027 22.1043,44.5096 22.0870,44.5218 22.0763,44.5507 22.0740,44.5524 22.0669,44.5574 22.0558,44.5622 22.0501,44.5659 22.0452,44.5692 22.0439,44.5710 22.0399,44.5770 22.0358,44.5908 22.0320,44.6035 22.0248,44.6161 22.0043,44.6515 21.9944,44.6585 21.9622,44.6622 21.9217,44.6775 21.8720,44.6960 21.8663,44.6968 21.8552,44.6982 21.8383,44.6950 21.8020,44.6840 21.8017,44.6839 21.7982,44.6834 21.7569,44.6771 21.7050,44.6771 21.6563,44.6876 21.6553,44.6884 21.6197,44.7139 21.6103,44.7319 21.6102,44.7323 21.6039,44.7501 21.5954,44.7660 21.5780,44.7776 21.5706,44.7792 21.5584,44.7817 21.4972,44.7780 21.4122,44.7848 21.3959,44.7902 21.3830,44.8099 21.3785,44.8167 21.3741,44.8191 21.3606,44.8264 21.3484,44.8302 21.3428,44.8320 21.3425,44.8321 21.3462,44.8459 21.3515,44.8518 21.3557,44.8564 21.3652,44.8628 21.3685,44.8649 21.3953,44.8716 21.4534,44.8696 21.4815,44.8726 21.5221,44.8808 21.5353,44.8887 21.5362,44.8892 21.5363,44.8893 21.5391,44.9085 21.5310,44.9246 21.5282,44.9264 21.5163,44.9339 21.4815,44.9436 21.4677,44.9484 21.4565,44.9523 21.4382,44.9546 21.4087,44.9586 21.3852,44.9695 21.3848,44.9697 21.3843,44.9750 21.3870,44.9813 21.3837,44.9866 21.3669,44.9871 21.3547,44.9896 21.3536,44.9898 21.3515,44.9982 21.3563,45.0083 21.3593,45.0120 21.3634,45.0165 21.3707,45.0192 21.3732,45.0200 21.3854,45.0207 21.3988,45.0214 21.4093,45.0240 21.4219,45.0314 21.4251,45.0362 21.4256,45.0432 21.4295,45.0573 21.4325,45.0615 21.4405,45.0683 21.4409,45.0687 21.4436,45.0729 21.4441,45.0756 21.4444,45.0779 21.4444,45.0853 21.4441,45.0882 21.4436,45.0914 21.4428,45.0925 21.4425,45.0930 21.4499,45.1009 21.4532,45.1034 21.4584,45.1073 21.4589,45.1075 21.4690,45.1110 21.4817,45.1115 21.4861,45.1144 21.4941,45.1193 21.4978,45.1319 21.4933,45.1451 21.4594,45.1740 21.4338,45.1888 21.4192,45.1944 21.4192,45.1944 21.4055,45.1997 21.3343,45.2154 21.2993,45.2232 21.2852,45.2235 21.2571,45.2241 21.2393,45.2294 21.2159,45.2410 21.2061,45.2459 21.1897,45.2596 21.1614,45.2891 21.1557,45.2952 21.1393,45.3036 21.1343,45.3028 21.1292,45.3019 21.1131,45.2893 21.1033,45.2861 21.0916,45.2881 21.0871,45.2909 21.0827,45.2935 21.0742,45.3004 21.0636,45.3062 20.9816,45.3327 20.9792,45.3341 20.9662,45.3416 20.9276,45.3775 20.8630,45.4187 20.8511,45.4311 20.8304,45.4525 20.8160,45.4629 20.8157,45.4630 20.7995,45.4685 20.7916,45.4703 20.7816,45.4726 20.7671,45.4793 20.7607,45.4933 20.7832,45.5061 20.7927,45.5130 20.7975,45.5164 20.7976,45.5165 20.8002,45.5305 20.7969,45.5365 20.7874,45.5537 20.7729,45.5713 20.7580,45.5893 20.7561,45.5982 20.7546,45.6057 20.7574,45.6152 20.7622,45.6306 20.7732,45.6489 20.7767,45.6564 20.7773,45.6575 20.7800,45.6717 20.7797,45.6849 20.7791,45.7237 20.7816,45.7338 20.7820,45.7350 20.7855,45.7434 20.7857,45.7511 20.7857,45.7526 20.7796,45.7598 20.7775,45.7623 20.7652,45.7668 20.7541,45.7636 20.7512,45.7608 20.7453,45.7550 20.7394,45.7434 20.7387,45.7430 20.7271,45.7359 20.7133,45.7333 20.7001,45.7354 20.6993,45.7359 20.6993,45.7359 20.6881,45.7431 20.6876,45.7438 20.6786,45.7566 20.6556,45.7773 20.6459,45.7887 20.6434,45.7954 20.6424,45.7984 20.6417,45.8038 20.6398,45.8190 20.6366,45.8269 20.6304,45.8326 20.6297,45.8333 20.6288,45.8337 20.6123,45.8412 20.6053,45.8460 20.5721,45.8877 20.5690,45.8898 20.5567,45.8984 20.5394,45.9033 20.5381,45.9037 20.5330,45.9041 20.4999,45.9067 20.4866,45.9111 20.4815,45.9127 20.4292,45.9465 20.4101,45.9555 20.3709,45.9677 20.3586,45.9742 20.3539,45.9767 20.3503,45.9805 20.3386,45.9926 20.3175,46.0386 20.3102,46.0479 20.3057,46.0536 20.2974,46.0607 20.2428,46.1081 20.2832,46.1438 20.4442,46.1469 20.4685,46.1741 20.5094,46.1677 20.5490,46.1562 20.5781,46.1375 20.5880,46.1328 20.6001,46.1296 20.6076,46.1295 20.6640,46.1378 20.6835,46.1447 20.6988,46.1565 20.7042,46.1663 20.7053,46.1806 20.7103,46.1881 20.7178,46.1900 20.7271,46.1877 20.7366,46.1867 20.7447,46.1923 20.7448,46.2003 20.7355,46.2225 20.7350,46.2319 20.7393,46.2375 20.7785,46.2601 20.7987,46.2676 20.8196,46.2717 20.8397,46.2711 20.8490,46.2678 20.8670,46.2571 20.8751,46.2544 20.8851,46.2550 20.8997,46.2607 20.9066,46.2622 20.9244,46.2596 20.9617,46.2483 20.9815,46.2489 20.9906,46.2516 20.9992,46.2516 21.0070,46.2489 21.0139,46.2431 21.0335,46.2313 21.0515,46.2361 21.0992,46.2763 21.1056,46.2787 21.1349,46.2785 21.1445,46.2837 21.1559,46.2989 21.1645,46.3183 21.1687,46.3628 21.1788,46.3845 21.1956,46.3981 21.2152,46.4029 21.2575,46.4042 21.2807,46.4164 21.2744,46.4384 21.2451,46.4769 21.2476,46.4975 21.2617,46.5133 21.2789,46.5284 21.2913,46.5467 21.2953,46.5850 21.3010,46.6039 21.3162,46.6166 21.3376,46.6204 21.3744,46.6184 21.3960,46.6264 21.4168,46.6452 21.4255,46.6620 21.4362,46.6737 21.4635,46.6770 21.4836,46.6849 21.5018,46.7035 21.5052,46.7232 21.4782,46.7359 21.4752,46.7378 21.4726,46.7402 21.4705,46.7430 21.4714,46.7490 21.4737,46.7549 21.4771,46.7602 21.4815,46.7650 21.5029,46.8053 21.5157,46.8216 21.5366,46.8350 21.5731,46.8418 21.5834,46.8479 21.5918,46.8607 21.5915,46.8715 21.5881,46.8822 21.5871,46.8944 21.5887,46.9062 21.5899,46.9089 21.5944,46.9100 21.6401,46.9357 21.6485,46.9430 21.6675,46.9924 21.6714,46.9934 21.6707,46.9944 21.6618,47.0061 21.6548,47.0099 21.6452,47.0112 21.6366,47.0141 21.6328,47.0227 21.6719,47.0547 21.6942,47.0692 21.7435,47.0916 21.7638,47.1052 21.7705,47.1140 21.7754,47.1317 21.7799,47.1407 21.7894,47.1503 21.8115,47.1647 21.8199,47.1727 21.8260,47.1851 21.8257,47.1943 21.8233,47.2033 21.8236,47.2149 21.8277,47.2260 21.8393,47.2408 21.8446,47.2499 21.8561,47.2857 21.8622,47.2974 21.9008,47.3357 21.9190,47.3497 21.9370,47.3572 21.9815,47.3661 22.0016,47.3938 22.0002,47.4272 21.9915,47.4618 21.9889,47.4929 22.0079,47.5174 22.0374,47.5393 22.0996,47.5709 22.1485,47.5793 22.1621,47.5862 22.1674,47.5938 22.1691,47.6014 22.1698,47.6088 22.1728,47.6154 22.1976,47.6393 22.2007,47.6479 22.2042,47.6663 22.2079,47.6737 22.2152,47.6799 22.2322,47.6883 22.2398,47.6935 22.2617,47.7158 22.2731,47.7238 22.2916,47.7307 22.3094,47.7350 22.3221,47.7359 22.3683,47.7312 22.3826,47.7320 22.3959,47.7357 22.4073,47.7431 22.4237,47.7826 22.4544,47.7874 22.5285,47.7610 22.5630,47.7572 22.6012,47.7609 22.6377,47.7716 22.6670,47.7888 22.6917,47.8107 22.7039,47.8172 22.7242,47.8235 22.7458,47.8250 22.7518,47.8277 22.7603,47.8389 22.7583,47.8462 22.7533,47.8527 22.7529,47.8612 22.7636,47.8748 22.7796,47.8823 22.8197,47.8923 22.8361,47.9025 22.8612,47.9338 22.8776,47.9467 22.8408,47.9668 22.8324,47.9789 22.8495,47.9931 22.8513,48.0088 22.8580,48.0180 22.8616,48.0284 22.8548,48.0473 22.8443,48.0610 22.8310,48.0724 22.8014,48.0910 22.7656,48.1045 22.7621,48.1093 22.7457,48.1163 22.7286,48.1131 22.7116,48.1058 22.6932,48.1018 22.6212,48.1018 22.6081,48.0968 22.6055,48.0970 22.6001,48.1011 22.5830,48.1248 22.5689,48.1565 22.5558,48.1772 22.4814,48.2426 22.4774,48.2439 22.4733,48.2445 22.4690,48.2441 22.4497,48.2377 22.4342,48.2367 22.4184,48.2390 22.3988,48.2443 22.3945,48.2448 22.3905,48.2443 22.3865,48.2431 22.3786,48.2389 22.3709,48.2374 22.3636,48.2387 22.3571,48.2431 22.3081,48.2937 22.2974,48.3140 22.2964,48.3278 22.2987,48.3393 22.2987,48.3491 22.2913,48.3576 22.2844,48.3584 22.2568,48.3573 22.2570,48.3732 22.2718,48.4035 22.2361,48.4153 22.2020,48.4182 22.1692,48.4095 22.1593,48.4023 22.1565,48.4021 22.1328,48.4048 22.1338,48.4768 22.1448,48.4931 22.1483,48.5088 22.1367,48.5493 22.1387,48.5696 22.1537,48.5859 22.2190,48.6209 22.2252,48.6282 22.2357,48.6442 22.2432,48.6512 22.2555,48.6568 22.2822,48.6624 22.2943,48.6676 22.3103,48.6817 22.3225,48.7003 22.3289,48.7216 22.3277,48.7430 22.3308,48.7564 22.3384,48.7630 22.3478,48.7679 22.3565,48.7761 22.3634,48.7876 22.3657,48.7944 22.3635,48.8283 22.3616,48.8365 22.3623,48.8443 22.3689,48.8565 22.3784,48.8654 22.4024,48.8788 22.4118,48.8878 22.4138,48.8939 22.4136,48.9068 22.4149,48.9117 22.4273,48.9295 22.4337,48.9418 22.4490,48.9714 22.4666,48.9805 22.5050,48.9842 22.5205,48.9929 22.5201,49.0098 22.5248,49.0329 22.5320,49.0557 22.5396,49.0722 22.5607,49.0855 22.5808,49.0814 22.6183,49.0542 22.6429,49.0432 22.6644,49.0415 22.6858,49.0428 22.7220,49.0410 22.7445,49.0455 22.7553,49.0447 22.7655,49.0384 22.7840,49.0213 22.7950,49.0190 22.8129,49.0129 22.8350,48.9997 22.8553,48.9940 22.8670,49.0100 22.8638,49.0154 22.8475,49.0337 22.8432,49.0431 22.8444,49.0567 22.8535,49.0763 22.8534,49.0848 22.8413,49.0949 22.7965,49.1114 22.7781,49.1203 22.7488,49.1456 22.7164,49.1606 22.7202,49.1612 22.7214,49.1616 22.7057,49.1688 22.6925,49.1579 22.6878,49.1559 22.6817,49.1612 22.6871,49.1734 22.7029,49.1950 22.7171,49.2304 22.7339,49.2609 22.7378,49.2754 22.7242,49.3671 22.7198,49.3830 22.7142,49.3906 22.6926,49.4055 22.6796,49.4189 22.6768,49.4245 22.6731,49.4358 22.6669,49.4784 22.6601,49.4930 22.6409,49.5288 22.6658,49.5674 22.7417,49.6337 22.7590,49.6656 22.7662,49.6742 22.7773,49.6805 22.7988,49.6833 22.8098,49.6863 22.8266,49.6974 22.8882,49.7697 22.8980,49.7774 22.9067,49.7812 22.9244,49.7854 22.9331,49.7911 22.9378,49.7982 22.9459,49.8184 22.9512,49.8266 22.9930,49.8544 23.1015,49.9571 23.1413,49.9855 23.1778,50.0040 23.2079,50.0339 23.4364,50.1935 23.4816,50.2160 23.5361,50.2428 23.5362,50.2428 23.5363,50.2428 23.5364,50.2428 23.5653,50.2578 23.6442,50.3127 23.6580,50.3256 23.6712,50.3536 23.6822,50.3682 23.6957,50.3768 23.7130,50.3824 23.7475,50.3894 23.9287,50.3908 23.9813,50.4048 24.0032,50.4377 24.0078,50.4485 24.0094,50.4615 24.0079,50.4807 24.0107,50.4928 24.0750,50.5143 24.0940,50.5271 24.1065,50.5386 24.1077,50.5408 24.1025,50.5436 24.0954,50.5569 24.0853,50.6044 24.1084,50.6299 24.0828,50.6692 24.0749,50.6902 24.0810,50.7130 24.0542,50.7172 24.0269,50.7280 24.0128,50.7433 24.0259,50.7608 24.0259,50.7670 23.9979,50.7692 23.9743,50.7762 23.9595,50.7889 23.9576,50.8080 23.9699,50.8252 23.9929,50.8362 24.0205,50.8386 24.0469,50.8291 24.0673,50.8348 24.1005,50.8350 24.1309,50.8391 24.1432,50.8564 24.1302,50.8689 24.0469,50.8980 23.9793,50.9375 23.9644,50.9532 23.9589,50.9663 23.9578,50.9753 23.9551,50.9836 23.9440,50.9942 23.9318,50.9995 23.9191,51.0027 23.9117,51.0068 23.9160,51.0147 23.9160,51.0209 23.9042,51.0627 23.8955,51.0761 23.8693,51.1017 23.8545,51.1215 23.8582,51.1307 23.8747,51.1361 23.8636,51.1483 23.8160,51.1788 23.7652,51.1990 23.7427,51.2163 23.6873,51.2924 23.6702,51.2994 23.6509,51.2996 23.6352,51.3047 23.6287,51.3260 23.6340,51.3393 23.6478,51.3540 23.6656,51.3658 23.6839,51.3703 23.6777,51.3838 23.6789,51.3941 23.6860,51.4010 23.6976,51.4044 23.6894,51.4164 23.6487,51.4540 23.6472,51.4602 23.6628,51.4802 23.6486,51.4862 23.6305,51.4904 23.6148,51.4972 23.6081,51.5112 23.6062,51.5174 23.6154,51.5131 23.6241,51.5159 23.6287,51.5312 23.6263,51.5409 23.5991,51.5890 23.5933,51.5970 23.5944,51.6050 23.6064,51.6181 23.6167,51.6248 23.6290,51.6290 23.6931,51.6395 23.7262,51.6449 23.7497,51.6445 23.8203,51.6313 23.8453,51.6298 23.8849,51.6199 23.9129,51.5986 23.9387,51.5835 23.9413,51.5819 23.9813,51.5860 24.1308,51.6698 24.2441,51.7182 24.2723,51.7429 24.2961,51.8081 24.3115,51.8276 24.3361,51.8502 24.3479,51.8612 24.3696,51.8751 24.3908,51.8800 24.6398,51.8921 24.7011,51.8829 24.7218,51.8823 24.7937,51.8895 25.0027,51.9105 25.0927,51.9398 25.1380,51.9489 25.1833,51.9498 25.3520,51.9215 25.3645,51.9214 25.6835,51.9180 25.7679,51.9285 25.9811,51.9035 26.0506,51.9048 26.0808,51.9007 26.1454,51.8648 26.1753,51.8567 26.4078,51.8506 26.4198,51.8469 26.4200,51.8397 26.4170,51.8306 26.4192,51.8209 26.4315,51.8102 26.4456,51.8056 26.6657,51.8014 26.8548,51.7493 26.9208,51.7425 27.0216,51.7645 27.1100,51.7624 27.1464,51.7574 27.1511,51.7568 27.1779,51.7471 27.1842,51.7314 27.1815,51.7101 27.1811,51.6834 27.1890,51.6638 27.2036,51.6551 27.2236,51.6537 27.2479,51.6557 27.2775,51.6511 27.2745,51.6338 27.2597,51.6123 27.2540,51.5954 27.2675,51.5875 27.2893,51.5890 27.3291,51.5970 27.3884,51.5907 27.4090,51.5917 27.4310,51.5984 27.4588,51.6175 27.4773,51.6237 27.5123,51.6231 27.6206,51.5959 27.6768,51.5948 27.6927,51.5892 27.7052,51.5684 27.6973,51.5432 27.6641,51.4929 27.6703,51.4848 27.6838,51.4755 27.7000,51.4675 27.7143,51.4637 27.7301,51.4652 27.7406,51.4714 27.7873,51.5109 27.7925,51.5173 27.7971,51.5306 27.7963,51.5415 27.7937,51.5523 27.7932,51.5650 27.7995,51.5852 27.8125,51.6020 27.8313,51.6129 27.8542,51.6153 27.8756,51.6080 27.9361,51.5670 27.9548,51.5608 27.9732,51.5578 28.0708,51.5576 28.0902,51.5620 28.1142,51.5756 28.1467,51.6144 28.1662,51.6331 28.1876,51.6452 28.2100,51.6520 28.2304,51.6511 28.2451,51.6406 28.2489,51.6306 28.2484,51.6221 28.2494,51.6131 28.2578,51.6018 28.2697,51.5943 28.2985,51.5830 28.3109,51.5744 28.3174,51.5640 28.3282,51.5364 28.3339,51.5284 28.3469,51.5252 28.3596,51.5294 28.3855,51.5450 28.4353,51.5661 28.4612,51.5717 28.4884,51.5720 28.5781,51.5601 28.6039,51.5535 28.6127,51.5399 28.6152,51.5196 28.6309,51.4636 28.6373,51.4496 28.6470,51.4390 28.6636,51.4340 28.6779,51.4381 28.6911,51.4434 28.7040,51.4426 28.7111,51.4302 28.7182,51.4116 28.7288,51.4013 28.7468,51.4140 28.7516,51.4287 28.7494,51.4669 28.7522,51.4837 28.7719,51.5113 28.7999,51.5326 28.8319,51.5483 28.8636,51.5589 28.8929,51.5629 28.9546,51.5633 28.9808,51.5695 29.0000,51.5824 29.0236,51.6140 29.0436,51.6262 29.0632,51.6306 29.0837,51.6312 29.1239,51.6250 29.1480,51.6156 29.1604,51.6033 29.1815,51.5670 29.2148,51.5355 29.2265,51.5191 29.2304,51.4929 29.2210,51.4670 29.2278,51.4556 29.2444,51.4479 29.2649,51.4329 29.2761,51.4136 29.2846,51.3917 29.2970,51.3737 29.3199,51.3656 29.3406,51.3701 29.3797,51.3915 29.4027,51.3961 29.4464,51.3849 29.4663,51.3851 29.4809,51.4013 29.4955,51.4256 29.5055,51.4375 29.5190,51.4418 29.5450,51.4437 29.5682,51.4496 29.5832,51.4608 29.5973,51.4740 29.6180,51.4856 29.6378,51.4909 29.6608,51.4931 29.6827,51.4912 29.7000,51.4837 29.7165,51.4657 29.7253,51.4505 29.7379,51.4395 29.8286,51.4300 29.8466,51.4329 29.8568,51.4399 29.8736,51.4592 29.8863,51.4648 29.8966,51.4642 29.9126,51.4574 29.9251,51.4579 29.9857,51.4779 30.0087,51.4821 30.1486,51.4844 30.1773,51.4795 30.2054,51.4665 30.2428,51.4344 30.2569,51.4251 30.3074,51.4096 30.3202,51.4021 30.3262,51.3953 30.3290,51.3886 30.3301,51.3807 30.3300,51.3704 30.3283,51.3625 30.3199,51.3416 30.3171,51.3406 30.3245,51.3300 30.3551,51.3053 30.3685,51.2977 30.3838,51.2939 30.4135,51.2941 30.4281,51.2918 30.4428,51.2830 30.4650,51.2619 30.4807,51.2589 30.4947,51.2599 30.5081,51.2577 30.5208,51.2524 30.5320,51.2446 30.5396,51.2352 30.5507,51.2368 30.5553,51.2435 30.5566,51.2673 30.5594,51.2693 30.5772,51.2890 30.5799,51.3037 30.6105,51.3175 30.6383,51.3359 30.6324,51.3641 30.6456,51.3675 30.6445,51.3727 30.6375,51.3786 30.6324,51.3840 30.6226,51.4121 30.6182,51.4187 30.6060,51.4246 30.5956,51.4250 30.5879,51.4274 30.5840,51.4392 30.5860,51.4518 30.5936,51.4589 30.6048,51.4612 30.6182,51.4597 30.6182,51.4671 30.6076,51.4698 30.5973,51.4743 30.5889,51.4818 30.5840,51.4938 30.5897,51.5020 30.5854,51.5094 30.5751,51.5161 30.5629,51.5218 30.5714,51.5264 30.5764,51.5311 30.5840,51.5423 30.5674,51.5473 30.5341,51.5533 30.5226,51.5627 30.5226,51.5689 30.5277,51.5713 30.5311,51.5733 30.5353,51.5750 30.5431,51.5764 30.5431,51.5826 30.5345,51.5858 30.5151,51.5963 30.5151,51.6037 30.5439,51.6201 30.5566,51.6236 30.5528,51.6333 30.5499,51.6372 30.5553,51.6398 30.5635,51.6473 30.5703,51.6515 30.5643,51.6653 30.5760,51.6864 30.5703,51.6999 30.5828,51.7023 30.6138,51.7029 30.6250,51.7061 30.6306,51.7156 30.6320,51.7280 30.6351,51.7397 30.6462,51.7471 30.6462,51.7545 30.6381,51.7551 30.6182,51.7613 30.6305,51.7700 30.6528,51.7791 30.6706,51.7905 30.6696,51.8061 30.6623,51.8156 30.6620,51.8194 30.6663,51.8224 30.6727,51.8296 30.6945,51.8473 30.6973,51.8507 30.7028,51.8538 30.7076,51.8604 30.7140,51.8670 30.7345,51.8737 30.7372,51.8822 30.7378,51.8916 30.7417,51.8979 30.7497,51.8996 30.7795,51.8979 30.7882,51.9006 30.7971,51.9067 30.8106,51.9184 30.8106,51.9252 30.8052,51.9293 30.8025,51.9355 30.8031,51.9391 30.8314,51.9459 30.8456,51.9514 30.8580,51.9576 30.8691,51.9650 30.8793,51.9737 30.8796,51.9769 30.8790,51.9820 30.8809,51.9882 30.8887,51.9943 30.8969,51.9983 30.9028,52.0000 30.9084,51.9984 30.9152,51.9926 30.9412,51.9938 30.9501,52.0068 30.9405,52.0201 30.9113,52.0226 30.9146,52.0276 30.9169,52.0324 30.9197,52.0373 30.9247,52.0423 30.9188,52.0592 30.9344,52.0697 30.9593,52.0747 31.0963,52.0796 31.1348,52.0767 31.1592,52.0681 31.2049,52.0439 31.2290,52.0382 31.2524,52.0445 31.2689,52.0612 31.2843,52.0812 31.3044,52.0975 31.3831,52.1175 31.4749,52.1178 31.6499,52.0968 31.7643,52.1006 31.8258,52.1041 31.8587,52.0999 31.8821,52.0864 31.8875,52.0700 31.8877,52.0516 31.8920,52.0362 31.9104,52.0291 31.9272,52.0311 31.9806,52.0476 32.0169,52.0498 32.0771,52.0400 32.0956,52.0407 32.2333,52.0809 32.2777,52.1027 32.3067,52.1412 32.3188,52.2014 32.3282,52.2192 32.3378,52.2255 32.3501,52.2299 32.3613,52.2359 32.3670,52.2472 32.3633,52.2557 32.3445,52.2765 32.3395,52.2872 32.3536,52.3216 32.3943,52.3268 32.4806,52.3071 32.5284,52.3162 32.7254,52.2521 32.7556,52.2524 32.8148,52.2620 32.8442,52.2623 32.8610,52.2572 32.8908,52.2423 32.9090,52.2411 32.9269,52.2469 33.0301,52.3036 33.0482,52.3091 33.0573,52.3086 33.0704,52.3042 33.0796,52.3056 33.0874,52.3108 33.0990,52.3248 33.1089,52.3283 33.1280,52.3327 33.1409,52.3404 33.1666,52.3601 33.1829,52.3673 33.1965,52.3689 124,3.0,Europe/Kaliningrad 20.0615,55.1703 20.2820,55.1671 20.3374,55.1784 20.4163,55.2261 20.5755,55.3503 20.6508,55.4270 20.9254,55.2826 20.9894,55.2731 21.2087,55.2409 21.2458,55.2448 21.2679,55.2484 21.2681,55.2484 21.3498,55.2878 21.3748,55.2900 21.4055,55.2724 21.4677,55.2112 21.5039,55.1944 21.6051,55.1925 21.6328,55.1847 21.6458,55.1810 21.7162,55.1495 21.7334,55.1363 21.7506,55.1280 21.8199,55.1193 21.8539,55.1022 21.8732,55.0949 21.9086,55.0899 21.9330,55.0805 21.9428,55.0783 21.9514,55.0805 21.9775,55.0920 22.0034,55.0935 22.0154,55.0884 22.0186,55.0773 22.0186,55.0609 22.0277,55.0444 22.0500,55.0335 22.0768,55.0286 22.0999,55.0299 22.1185,55.0378 22.1298,55.0470 22.1427,55.0546 22.2513,55.0709 22.4363,55.0578 22.5411,55.0758 22.5655,55.0678 22.5807,55.0576 22.5916,55.0376 22.6084,54.9924 22.6217,54.9700 22.6335,54.9579 22.6499,54.9529 22.7061,54.9531 22.7155,54.9514 22.7221,54.9472 22.7292,54.9404 22.7388,54.9341 22.7521,54.9311 22.7410,54.9176 22.7492,54.9099 22.8089,54.8938 22.8213,54.8855 22.8293,54.8727 22.8443,54.8323 22.8484,54.8138 22.8458,54.7961 22.8328,54.7787 22.8178,54.7692 22.7867,54.7560 22.7730,54.7425 22.7648,54.7371 22.7473,54.7316 22.7367,54.7263 22.7283,54.7251 22.7248,54.7234 22.7228,54.7186 22.7248,54.7138 22.7275,54.7093 22.7270,54.7053 22.7051,54.6865 22.7009,54.6796 22.7008,54.6693 22.7070,54.6465 22.7081,54.6356 22.7037,54.6175 22.6817,54.5699 22.6746,54.4923 22.6804,54.4532 22.7070,54.4187 22.7672,54.3563 22.6984,54.3429 22.5104,54.3488 22.2771,54.3561 21.9989,54.3647 21.7208,54.3733 21.2874,54.3868 20.9296,54.3978 20.6408,54.4068 20.3521,54.4157 20.2351,54.4194 20.0435,54.4254 19.9647,54.4278 19.7003,54.4361 19.6803,54.4367 19.6308,54.4467 19.6153,54.4540 19.6104,54.4569 19.6104,54.4571 19.6100,54.4586 19.6091,54.4783 19.3853,54.6242 19.4155,54.6354 19.5097,54.6933 19.5643,54.7545 19.5786,54.8062 19.5641,54.9004 19.5710,54.9470 19.6159,55.0276 19.6877,55.0931 19.7782,55.1390 19.8855,55.1642 19.9994,55.1712 20.0382,55.1706 20.0615,55.1703 1163,3.0,Europe/Minsk 24.0454,53.9309 24.0749,53.9357 24.1367,53.9554 24.1696,53.9589 24.2011,53.9525 24.2291,53.9324 24.2464,53.9036 24.2571,53.8940 24.2764,53.8918 24.3102,53.8927 24.3419,53.8870 24.3779,53.8868 24.4140,53.8977 24.5287,53.9584 24.5791,53.9756 24.6430,53.9830 24.6668,53.9939 24.6706,53.9943 24.6743,53.9937 24.6779,53.9923 24.6908,53.9728 24.7056,53.9642 24.7239,53.9634 24.7887,53.9697 24.8064,53.9753 24.8191,53.9923 24.8192,53.9924 24.8193,53.9925 24.8194,53.9926 24.8214,54.0199 24.8125,54.0389 24.7990,54.0560 24.7871,54.0776 24.7825,54.0929 24.7843,54.0962 24.7906,54.0966 24.7994,54.1032 24.8182,54.1101 24.8187,54.1140 24.8174,54.1206 24.8175,54.1282 24.8216,54.1345 24.8560,54.1467 24.9023,54.1498 24.9483,54.1459 25.0271,54.1279 25.0720,54.1322 25.1156,54.1488 25.1565,54.1757 25.1731,54.1966 25.1935,54.2437 25.2062,54.2568 25.2241,54.2585 25.2876,54.2452 25.3697,54.2479 25.3940,54.2572 25.4341,54.2918 25.4594,54.2989 25.4721,54.2972 25.4787,54.2933 25.4835,54.2877 25.5540,54.2313 25.5455,54.2275 25.5221,54.2286 25.5017,54.2218 25.4993,54.2118 25.5234,54.2042 25.5290,54.1957 25.5217,54.1882 25.4932,54.1824 25.4858,54.1754 25.4933,54.1575 25.5160,54.1448 25.5430,54.1370 25.6316,54.1283 25.6535,54.1287 25.6639,54.1324 25.6798,54.1453 25.6906,54.1482 25.7281,54.1452 25.7400,54.1463 25.7631,54.1564 25.7710,54.1721 25.7719,54.2179 25.7750,54.2225 25.7868,54.2318 25.7892,54.2362 25.7866,54.2423 25.7818,54.2444 25.7763,54.2456 25.7723,54.2489 25.7656,54.2600 25.7578,54.2690 25.7489,54.2763 25.7393,54.2826 25.7347,54.2832 25.7233,54.2810 25.7192,54.2815 25.7154,54.2852 25.7048,54.3030 25.7018,54.3128 25.6960,54.3210 25.6823,54.3256 25.6674,54.3233 25.6074,54.3049 25.5640,54.3031 25.5423,54.3081 25.5287,54.3210 25.5300,54.3461 25.5488,54.3677 25.5947,54.4001 25.6126,54.4218 25.6163,54.4411 25.6156,54.4619 25.6199,54.4881 25.6309,54.5084 25.6462,54.5204 25.7074,54.5415 25.7265,54.5530 25.7404,54.5685 25.7456,54.5884 25.7399,54.6077 25.7151,54.6432 25.7084,54.6630 25.7095,54.6756 25.7139,54.6856 25.7191,54.6948 25.7231,54.7053 25.7246,54.7157 25.7212,54.7667 25.7243,54.7801 25.7349,54.7891 25.7568,54.8004 25.7666,54.8033 25.7734,54.8034 25.7785,54.8053 25.7829,54.8137 25.7823,54.8220 25.7737,54.8419 25.7723,54.8509 25.7827,54.8697 25.8025,54.8816 25.8258,54.8920 25.8467,54.9062 25.8531,54.9164 25.8548,54.9255 25.8585,54.9330 25.8702,54.9388 25.9079,54.9481 25.9261,54.9478 25.9625,54.9429 25.9811,54.9427 26.1026,54.9570 26.1386,54.9689 26.1536,54.9785 26.1878,55.0087 26.2246,55.0549 26.2294,55.0634 26.2312,55.0755 26.2303,55.1003 26.2330,55.1116 26.2644,55.1401 26.3095,55.1446 26.4203,55.1281 26.4288,55.1282 26.4386,55.1300 26.4448,55.1339 26.4507,55.1398 26.4591,55.1447 26.4734,55.1457 26.5789,55.1185 26.6009,55.1208 26.6163,55.1354 26.6275,55.1644 26.6339,55.1922 26.6411,55.2028 26.6570,55.2153 26.6857,55.2316 26.7011,55.2368 26.7656,55.2467 26.7897,55.2572 26.8007,55.2733 26.7916,55.2902 26.7686,55.3002 26.6027,55.3169 26.5423,55.3076 26.5254,55.3081 26.4658,55.3209 26.4500,55.3271 26.4455,55.3375 26.4552,55.3561 26.4791,55.3814 26.4860,55.3908 26.4992,55.4281 26.5078,55.4391 26.5433,55.4596 26.5465,55.4712 26.5277,55.4922 26.5321,55.5163 26.5516,55.5345 26.5761,55.5506 26.5956,55.5680 26.6052,55.5901 26.6077,55.6165 26.6038,55.6433 26.5945,55.6670 26.6156,55.6880 26.6401,55.6956 26.6669,55.6940 26.7201,55.6819 26.7430,55.6829 26.8228,55.7061 26.8428,55.7193 26.9001,55.7787 26.9578,55.8186 26.9811,55.8269 27.1108,55.8363 27.1514,55.8325 27.1732,55.8257 27.2355,55.7958 27.2630,55.7872 27.2824,55.7919 27.3292,55.8176 27.3496,55.8312 27.3746,55.8148 27.4059,55.8043 27.4388,55.7987 27.5646,55.7922 27.5927,55.7942 27.6015,55.8096 27.6101,55.8310 27.6172,55.8786 27.6450,55.9228 27.7444,55.9597 27.7770,55.9924 27.7812,56.0164 27.8125,56.0345 27.8807,56.0639 27.8927,56.0771 27.9015,56.0893 27.9115,56.1002 27.9271,56.1094 27.9397,56.1131 27.9810,56.1180 28.0238,56.1296 28.0682,56.1476 28.1110,56.1568 28.1489,56.1424 28.1691,56.1253 28.2385,56.0826 28.2694,56.0582 28.2898,56.0466 28.3109,56.0427 28.3334,56.0502 28.3665,56.0791 28.3898,56.0886 28.5378,56.0977 28.5947,56.0924 28.6115,56.0885 28.6207,56.0830 28.6371,56.0657 28.6719,56.0376 28.6806,56.0274 28.6900,56.0039 28.6955,55.9802 28.7064,55.9598 28.7319,55.9468 28.8090,55.9346 28.8309,55.9377 28.8331,55.9610 28.8597,55.9765 28.9221,55.9921 28.9222,55.9922 28.9223,55.9922 28.9225,55.9922 28.9808,56.0135 29.0308,56.0242 29.0886,56.0232 29.1454,56.0120 29.1929,55.9921 29.2240,55.9782 29.3774,55.9540 29.3956,55.9477 29.4131,55.9380 29.4316,55.9242 29.4411,55.9149 29.4444,55.9069 29.4406,55.9005 29.4337,55.8995 29.4256,55.9000 29.4174,55.8980 29.4078,55.8939 29.3996,55.8919 29.3920,55.8884 29.3841,55.8799 29.3807,55.8712 29.3757,55.8468 29.3719,55.8364 29.3482,55.8028 29.3436,55.7870 29.3507,55.7661 29.3634,55.7515 29.4131,55.7278 29.4610,55.6873 29.4809,55.6811 29.5081,55.6855 29.5854,55.7380 29.6842,55.7706 29.7108,55.7738 29.7799,55.7638 29.8057,55.7715 29.8448,55.8126 29.8695,55.8305 29.9078,55.8432 29.9477,55.8482 29.9882,55.8468 30.1063,55.8219 30.1324,55.8269 30.1773,55.8514 30.2003,55.8580 30.2178,55.8551 30.2515,55.8376 30.2708,55.8307 30.4688,55.7935 30.4774,55.7877 30.4778,55.7791 30.4718,55.7710 30.4693,55.7626 30.4807,55.7540 30.5696,55.7295 30.5801,55.7248 30.5875,55.7183 30.5916,55.7057 30.5884,55.6966 30.5837,55.6885 30.5837,55.6791 30.5964,55.6653 30.6166,55.6574 30.6391,55.6545 30.6800,55.6563 30.6937,55.6522 30.7033,55.6423 30.7130,55.6267 30.7422,55.5944 30.7707,55.5915 30.8041,55.6023 30.8477,55.6110 30.8862,55.6005 30.9128,55.5716 30.9197,55.5345 30.8994,55.4991 30.9144,55.4933 30.9194,55.4923 30.9132,55.4797 30.8872,55.4681 30.8813,55.4514 30.8891,55.4334 30.9053,55.4209 30.9186,55.4076 30.9183,55.3878 30.9059,55.3760 30.8456,55.3511 30.8112,55.3231 30.7972,55.3043 30.7943,55.2855 30.8041,55.2730 30.8214,55.2644 30.8568,55.2535 30.8698,55.2415 30.8865,55.2045 30.9007,55.1921 30.9472,55.1714 30.9598,55.1626 30.9612,55.1585 30.9568,55.1495 30.9588,55.1444 30.9622,55.1429 30.9725,55.1409 30.9750,55.1395 30.9795,55.1343 30.9840,55.1309 30.9855,55.1258 30.9806,55.1153 30.9727,55.1086 30.9703,55.1014 30.9731,55.0940 30.9806,55.0863 30.9942,55.0670 31.0064,55.0424 31.0056,55.0230 30.9806,55.0187 30.9335,55.0256 30.9132,55.0246 30.9066,55.0126 30.9170,54.9960 30.9314,54.9852 30.9361,54.9732 30.9174,54.9540 30.8995,54.9464 30.8386,54.9392 30.8148,54.9280 30.8174,54.9176 30.8275,54.9025 30.8261,54.8775 30.8107,54.8615 30.7879,54.8477 30.7681,54.8299 30.7626,54.8020 30.7706,54.7860 30.7861,54.7793 30.8273,54.7710 30.9806,54.7057 30.9955,54.6898 30.9990,54.6713 31.0209,54.6737 31.1052,54.6683 31.1286,54.6404 31.1679,54.6216 31.1395,54.5829 31.0896,54.5359 31.0646,54.4923 31.0936,54.4794 31.1679,54.4671 31.1792,54.4531 31.2090,54.4480 31.2254,54.4280 31.2487,54.3768 31.2617,54.3645 31.2741,54.3566 31.2848,54.3474 31.2920,54.3313 31.2992,54.2726 31.3098,54.2443 31.3247,54.2292 31.4806,54.1566 31.5064,54.1439 31.5309,54.1374 31.5831,54.1295 31.6669,54.1019 31.6978,54.0979 31.7258,54.0975 31.7367,54.0942 31.7481,54.0863 31.7558,54.0749 31.7626,54.0603 31.7713,54.0485 31.7835,54.0458 31.8085,54.0560 31.8139,54.0571 31.8226,54.0534 31.8239,54.0501 31.8236,54.0455 31.8465,53.9923 31.8414,53.9846 31.8397,53.9772 31.8393,53.9698 31.8379,53.9621 31.8265,53.9402 31.8101,53.8826 31.7926,53.8574 31.7538,53.8196 31.7447,53.7949 31.7873,53.7944 31.8732,53.7771 32.0836,53.8096 32.1060,53.8069 32.1648,53.7817 32.2904,53.7609 32.3258,53.7455 32.3574,53.7197 32.3718,53.7144 32.4216,53.7158 32.4421,53.7139 32.4616,53.7068 32.4806,53.6921 32.4878,53.6847 32.4902,53.6771 32.4878,53.6696 32.4806,53.6624 32.4061,53.6394 32.3991,53.6354 32.3980,53.6274 32.4011,53.6099 32.4115,53.5824 32.4294,53.5616 32.4529,53.5464 32.4806,53.5356 32.5308,53.5214 32.5543,53.5108 32.5699,53.4926 32.5699,53.4924 32.5768,53.4860 32.5843,53.4842 32.5925,53.4865 32.6006,53.4924 32.6181,53.4943 32.6357,53.4927 32.6503,53.4876 32.6476,53.4793 32.6417,53.4690 32.6468,53.4580 32.6582,53.4557 32.6885,53.4622 32.7012,53.4621 32.7195,53.4395 32.7044,53.3664 32.7175,53.3349 32.6979,53.3259 32.6818,53.3268 32.6667,53.3313 32.6499,53.3337 32.5800,53.3244 32.5835,53.3212 32.5919,53.3118 32.5959,53.3083 32.5692,53.2988 32.5373,53.2951 32.5056,53.2972 32.4806,53.3052 32.4548,53.3004 32.4472,53.2888 32.4560,53.2778 32.4791,53.2749 32.4692,53.2555 32.4557,53.2367 32.4236,53.2044 32.4055,53.1927 32.3891,53.1876 32.3528,53.1805 32.3203,53.1628 32.2952,53.1409 32.2680,53.1248 32.2157,53.1255 32.2105,53.1218 32.2091,53.1163 32.2067,53.1124 32.2065,53.1099 32.2070,53.1052 32.2059,53.1004 32.2011,53.0976 32.1974,53.0977 32.1886,53.0992 32.1523,53.0963 32.1265,53.0842 32.1173,53.0811 32.0828,53.0820 32.0099,53.1000 31.9806,53.0980 31.9547,53.0900 31.9307,53.0883 31.9072,53.0919 31.8555,53.1102 31.8426,53.1122 31.8068,53.1100 31.7963,53.1124 31.7805,53.1279 31.7697,53.1693 31.7563,53.1866 31.7386,53.1925 31.6945,53.1929 31.6749,53.1952 31.6140,53.2098 31.5936,53.2107 31.5737,53.2071 31.5359,53.1949 31.5121,53.1941 31.4640,53.2000 31.4164,53.2000 31.3785,53.1820 31.3599,53.1338 31.3612,53.1213 31.3649,53.1097 31.3671,53.0989 31.3637,53.0888 31.3541,53.0821 31.3294,53.0793 31.3192,53.0764 31.2693,53.0284 31.2471,53.0144 31.3226,52.9771 31.3392,52.9581 31.3662,52.9086 31.3879,52.8880 31.4181,52.8702 31.4510,52.8572 31.4806,52.8509 31.5051,52.8489 31.5128,52.8410 31.5152,52.8284 31.5239,52.8117 31.5384,52.7999 31.5506,52.7947 31.5608,52.7871 31.5695,52.7675 31.5702,52.7253 31.5479,52.7057 31.4806,52.6825 31.4806,52.6825 31.4917,52.6671 31.5361,52.6305 31.5659,52.5902 31.5790,52.5778 31.6152,52.5586 31.6286,52.5481 31.6243,52.5381 31.6108,52.5360 31.5744,52.5413 31.5593,52.5405 31.5636,52.5371 31.5759,52.5247 31.5582,52.5200 31.5506,52.5119 31.5530,52.5022 31.5655,52.4926 31.5879,52.4826 31.5894,52.4580 31.5833,52.4283 31.5829,52.4028 31.5904,52.3918 31.6005,52.3834 31.6081,52.3725 31.6086,52.3544 31.6028,52.3409 31.5923,52.3286 31.5796,52.3185 31.5674,52.3114 31.5971,52.2843 31.6137,52.2730 31.6314,52.2648 31.6487,52.2610 31.6834,52.2572 31.6994,52.2515 31.6889,52.2432 31.6819,52.2305 31.6795,52.2159 31.6824,52.2019 31.6895,52.1916 31.6987,52.1854 31.7490,52.1639 31.7626,52.1498 31.7666,52.1301 31.7643,52.1006 31.6499,52.0968 31.4749,52.1178 31.3831,52.1175 31.3044,52.0975 31.2843,52.0812 31.2689,52.0612 31.2524,52.0445 31.2290,52.0382 31.2049,52.0439 31.1592,52.0681 31.1348,52.0767 31.0963,52.0796 30.9593,52.0747 30.9344,52.0697 30.9188,52.0592 30.9247,52.0423 30.9197,52.0373 30.9169,52.0324 30.9146,52.0276 30.9113,52.0226 30.9405,52.0201 30.9501,52.0068 30.9412,51.9938 30.9152,51.9926 30.9084,51.9984 30.9028,52.0000 30.8969,51.9983 30.8887,51.9943 30.8809,51.9882 30.8790,51.9820 30.8796,51.9769 30.8793,51.9737 30.8691,51.9650 30.8580,51.9576 30.8456,51.9514 30.8314,51.9459 30.8031,51.9391 30.8025,51.9355 30.8052,51.9293 30.8106,51.9252 30.8106,51.9184 30.7971,51.9067 30.7882,51.9006 30.7795,51.8979 30.7497,51.8996 30.7417,51.8979 30.7378,51.8916 30.7372,51.8822 30.7345,51.8737 30.7140,51.8670 30.7076,51.8604 30.7028,51.8538 30.6973,51.8507 30.6945,51.8473 30.6727,51.8296 30.6663,51.8224 30.6620,51.8194 30.6623,51.8156 30.6696,51.8061 30.6706,51.7905 30.6528,51.7791 30.6305,51.7700 30.6182,51.7613 30.6381,51.7551 30.6462,51.7545 30.6462,51.7471 30.6351,51.7397 30.6320,51.7280 30.6306,51.7156 30.6250,51.7061 30.6138,51.7029 30.5828,51.7023 30.5703,51.6999 30.5760,51.6864 30.5643,51.6653 30.5703,51.6515 30.5635,51.6473 30.5553,51.6398 30.5499,51.6372 30.5528,51.6333 30.5566,51.6236 30.5439,51.6201 30.5151,51.6037 30.5151,51.5963 30.5345,51.5858 30.5431,51.5826 30.5431,51.5764 30.5353,51.5750 30.5311,51.5733 30.5277,51.5713 30.5226,51.5689 30.5226,51.5627 30.5341,51.5533 30.5674,51.5473 30.5840,51.5423 30.5764,51.5311 30.5714,51.5264 30.5629,51.5218 30.5751,51.5161 30.5854,51.5094 30.5897,51.5020 30.5840,51.4938 30.5889,51.4818 30.5973,51.4743 30.6076,51.4698 30.6182,51.4671 30.6182,51.4597 30.6048,51.4612 30.5936,51.4589 30.5860,51.4518 30.5840,51.4392 30.5879,51.4274 30.5956,51.4250 30.6060,51.4246 30.6182,51.4187 30.6226,51.4121 30.6324,51.3840 30.6375,51.3786 30.6445,51.3727 30.6456,51.3675 30.6324,51.3641 30.6383,51.3359 30.6105,51.3175 30.5799,51.3037 30.5772,51.2890 30.5594,51.2693 30.5566,51.2673 30.5553,51.2435 30.5507,51.2368 30.5396,51.2352 30.5320,51.2446 30.5208,51.2524 30.5081,51.2577 30.4947,51.2599 30.4807,51.2589 30.4650,51.2619 30.4428,51.2830 30.4281,51.2918 30.4135,51.2941 30.3838,51.2939 30.3685,51.2977 30.3551,51.3053 30.3245,51.3300 30.3171,51.3406 30.3199,51.3416 30.3283,51.3625 30.3300,51.3704 30.3301,51.3807 30.3290,51.3886 30.3262,51.3953 30.3202,51.4021 30.3074,51.4096 30.2569,51.4251 30.2428,51.4344 30.2054,51.4665 30.1773,51.4795 30.1486,51.4844 30.0087,51.4821 29.9857,51.4779 29.9251,51.4579 29.9126,51.4574 29.8966,51.4642 29.8863,51.4648 29.8736,51.4592 29.8568,51.4399 29.8466,51.4329 29.8286,51.4300 29.7379,51.4395 29.7253,51.4505 29.7165,51.4657 29.7000,51.4837 29.6827,51.4912 29.6608,51.4931 29.6378,51.4909 29.6180,51.4856 29.5973,51.4740 29.5832,51.4608 29.5682,51.4496 29.5450,51.4437 29.5190,51.4418 29.5055,51.4375 29.4955,51.4256 29.4809,51.4013 29.4663,51.3851 29.4464,51.3849 29.4027,51.3961 29.3797,51.3915 29.3406,51.3701 29.3199,51.3656 29.2970,51.3737 29.2846,51.3917 29.2761,51.4136 29.2649,51.4329 29.2444,51.4479 29.2278,51.4556 29.2210,51.4670 29.2304,51.4929 29.2265,51.5191 29.2148,51.5355 29.1815,51.5670 29.1604,51.6033 29.1480,51.6156 29.1239,51.6250 29.0837,51.6312 29.0632,51.6306 29.0436,51.6262 29.0236,51.6140 29.0000,51.5824 28.9808,51.5695 28.9546,51.5633 28.8929,51.5629 28.8636,51.5589 28.8319,51.5483 28.7999,51.5326 28.7719,51.5113 28.7522,51.4837 28.7494,51.4669 28.7516,51.4287 28.7468,51.4140 28.7288,51.4013 28.7182,51.4116 28.7111,51.4302 28.7040,51.4426 28.6911,51.4434 28.6779,51.4381 28.6636,51.4340 28.6470,51.4390 28.6373,51.4496 28.6309,51.4636 28.6152,51.5196 28.6127,51.5399 28.6039,51.5535 28.5781,51.5601 28.4884,51.5720 28.4612,51.5717 28.4353,51.5661 28.3855,51.5450 28.3596,51.5294 28.3469,51.5252 28.3339,51.5284 28.3282,51.5364 28.3174,51.5640 28.3109,51.5744 28.2985,51.5830 28.2697,51.5943 28.2578,51.6018 28.2494,51.6131 28.2484,51.6221 28.2489,51.6306 28.2451,51.6406 28.2304,51.6511 28.2100,51.6520 28.1876,51.6452 28.1662,51.6331 28.1467,51.6144 28.1142,51.5756 28.0902,51.5620 28.0708,51.5576 27.9732,51.5578 27.9548,51.5608 27.9361,51.5670 27.8756,51.6080 27.8542,51.6153 27.8313,51.6129 27.8125,51.6020 27.7995,51.5852 27.7932,51.5650 27.7937,51.5523 27.7963,51.5415 27.7971,51.5306 27.7925,51.5173 27.7873,51.5109 27.7406,51.4714 27.7301,51.4652 27.7143,51.4637 27.7000,51.4675 27.6838,51.4755 27.6703,51.4848 27.6641,51.4929 27.6973,51.5432 27.7052,51.5684 27.6927,51.5892 27.6768,51.5948 27.6206,51.5959 27.5123,51.6231 27.4773,51.6237 27.4588,51.6175 27.4310,51.5984 27.4090,51.5917 27.3884,51.5907 27.3291,51.5970 27.2893,51.5890 27.2675,51.5875 27.2540,51.5954 27.2597,51.6123 27.2745,51.6338 27.2775,51.6511 27.2479,51.6557 27.2236,51.6537 27.2036,51.6551 27.1890,51.6638 27.1811,51.6834 27.1815,51.7101 27.1842,51.7314 27.1779,51.7471 27.1511,51.7568 27.1464,51.7574 27.1100,51.7624 27.0216,51.7645 26.9208,51.7425 26.8548,51.7493 26.6657,51.8014 26.4456,51.8056 26.4315,51.8102 26.4192,51.8209 26.4170,51.8306 26.4200,51.8397 26.4198,51.8469 26.4078,51.8506 26.1753,51.8567 26.1454,51.8648 26.0808,51.9007 26.0506,51.9048 25.9811,51.9035 25.7679,51.9285 25.6835,51.9180 25.3645,51.9214 25.3520,51.9215 25.1833,51.9498 25.1380,51.9489 25.0927,51.9398 25.0027,51.9105 24.7937,51.8895 24.7218,51.8823 24.7011,51.8829 24.6398,51.8921 24.3908,51.8800 24.3696,51.8751 24.3479,51.8612 24.3361,51.8502 24.3115,51.8276 24.2961,51.8081 24.2723,51.7429 24.2441,51.7182 24.1308,51.6698 23.9813,51.5860 23.9413,51.5819 23.9387,51.5835 23.9129,51.5986 23.8849,51.6199 23.8453,51.6298 23.8203,51.6313 23.7497,51.6445 23.7262,51.6449 23.6931,51.6395 23.6290,51.6290 23.6167,51.6248 23.6064,51.6181 23.5944,51.6050 23.5933,51.5970 23.5991,51.5890 23.6263,51.5409 23.6287,51.5312 23.6241,51.5159 23.6154,51.5131 23.6062,51.5174 23.6023,51.5308 23.5887,51.5359 23.5728,51.5397 23.5603,51.5553 23.5672,51.5549 23.5740,51.5553 23.5521,51.5788 23.5434,51.5927 23.5399,51.6071 23.5452,51.6341 23.5438,51.6438 23.5324,51.6515 23.5324,51.6590 23.5414,51.6597 23.5475,51.6621 23.5603,51.6720 23.5554,51.6763 23.5493,51.6832 23.5461,51.6896 23.5500,51.6924 23.5592,51.6952 23.5569,51.7014 23.5502,51.7084 23.5466,51.7136 23.5523,51.7366 23.5563,51.7474 23.5603,51.7545 23.5773,51.7667 23.5983,51.7747 23.6175,51.7865 23.6287,51.8098 23.6103,51.8252 23.5946,51.8433 23.6057,51.8516 23.6099,51.8733 23.6218,51.8774 23.6213,51.8820 23.6206,51.8832 23.6188,51.8833 23.6149,51.8843 23.6214,51.8956 23.6222,51.9279 23.6287,51.9463 23.6476,51.9741 23.6607,51.9869 23.6764,51.9941 23.6649,52.0112 23.6508,52.0489 23.6425,52.0614 23.6415,52.0729 23.6375,52.0845 23.6253,52.0897 23.6159,52.0923 23.6099,52.0986 23.6048,52.1068 23.5982,52.1145 23.5794,52.1215 23.5319,52.1206 23.5125,52.1244 23.4847,52.1586 23.4887,52.1621 23.4915,52.1741 23.4877,52.1816 23.4709,52.1716 23.4643,52.1764 23.4544,52.1815 23.4505,52.1859 23.4367,52.1757 23.4272,52.1768 23.4182,52.1825 23.4057,52.1859 23.3914,52.1825 23.3885,52.1842 23.3958,52.1934 23.3958,52.1996 23.3748,52.2009 23.3127,52.2153 23.2996,52.2234 23.2842,52.2197 23.2123,52.2317 23.1897,52.2405 23.1977,52.2583 23.1945,52.2715 23.1835,52.2813 23.1687,52.2889 23.1656,52.2894 23.2121,52.3475 23.2304,52.3651 23.2705,52.3951 23.3923,52.5096 23.4805,52.5544 23.5690,52.5859 23.7362,52.6149 23.8690,52.6700 23.9088,52.6999 23.9225,52.7426 23.9121,52.8939 23.9095,52.9015 23.9054,52.9065 23.9020,52.9125 23.9011,52.9233 23.9039,52.9311 23.9150,52.9446 23.9180,52.9508 23.9175,52.9588 23.9091,52.9867 23.9090,52.9930 23.9113,53.0051 23.9097,53.0127 23.8982,53.0275 23.8679,53.0510 23.8593,53.0680 23.8607,53.0875 23.8703,53.1013 23.8824,53.1133 23.8914,53.1277 23.8937,53.1520 23.8831,53.1640 23.8660,53.1720 23.8481,53.1838 23.8362,53.1993 23.8284,53.2138 23.8186,53.2280 23.8006,53.2425 23.7830,53.2709 23.7430,53.3655 23.7229,53.3971 23.6758,53.4557 23.5909,53.6113 23.5671,53.6810 23.5648,53.7424 23.5647,53.7424 23.5647,53.7425 23.5404,53.7636 23.5299,53.7842 23.5207,53.8373 23.5104,53.8625 23.4972,53.8855 23.4869,53.9100 23.4856,53.9393 23.5201,53.9340 23.6100,53.9018 23.6271,53.8982 23.6426,53.8990 23.6919,53.9115 23.7544,53.9168 23.7718,53.9243 23.7872,53.9279 23.7941,53.9271 23.8121,53.9208 23.8206,53.9193 23.8283,53.9201 23.9047,53.9461 23.9198,53.9478 24.0454,53.9309 104,5.0,Arctic Ocean 70.0504,81.9984 69.6315,81.9983 69.2126,81.9983 68.7937,81.9982 68.3748,81.9981 67.9559,81.9981 67.5370,81.9980 67.5369,82.4439 67.5368,82.8898 67.5368,82.8903 67.5368,83.2922 67.5368,83.6942 67.5368,84.0961 67.5368,84.4981 67.5368,84.9000 67.5368,85.3636 67.5368,85.8273 67.5368,86.2909 67.5368,86.7545 67.5368,87.2182 67.5368,87.6818 67.5368,88.1455 67.5368,88.6091 67.5368,89.0727 67.5368,89.5364 67.5368,90.0000 67.9776,90.0000 68.4185,90.0000 68.8594,90.0000 69.3003,90.0000 69.7412,90.0000 70.1821,90.0000 70.6230,90.0000 71.0639,90.0000 71.5048,90.0000 71.9457,90.0000 72.3866,90.0000 72.8275,90.0000 73.2684,90.0000 73.7093,90.0000 74.1502,90.0000 74.5911,90.0000 75.0320,90.0000 75.4729,90.0000 75.9137,90.0000 76.3546,90.0000 76.7955,90.0000 77.2364,90.0000 77.6773,90.0000 78.1182,90.0000 78.5591,90.0000 79.0000,90.0000 79.4409,90.0000 79.8818,90.0000 80.3227,90.0000 80.7636,90.0000 81.2045,90.0000 81.6454,90.0000 82.0863,90.0000 82.5272,90.0000 82.5272,89.5890 82.5272,89.1781 82.5272,88.7671 82.5272,88.3562 82.5272,87.9452 82.5291,87.4496 82.5311,86.9541 82.5331,86.4585 82.5351,85.9629 82.5371,85.4674 82.5391,84.9718 82.5411,84.4762 82.5431,83.9807 82.5450,83.4851 82.5470,82.9895 82.5490,82.4940 82.5510,81.9984 82.0822,81.9984 81.6135,81.9984 81.1447,81.9984 80.6760,81.9984 80.2072,81.9984 79.7385,81.9984 79.2697,81.9984 78.8010,81.9984 78.3322,81.9984 77.8635,81.9984 77.3947,81.9984 76.9260,81.9984 76.4572,81.9984 75.9884,81.9984 75.5197,81.9984 75.0509,81.9984 74.9976,81.9984 74.5029,81.9984 74.0082,81.9984 73.5135,81.9984 73.0187,81.9984 72.5240,81.9984 72.0293,81.9984 71.5346,81.9984 71.0398,81.9984 70.5451,81.9984 70.0504,81.9984 3127,5.0,Asia/Tashkent 52.3521,51.7302 52.3646,51.6903 52.3777,51.6601 52.4445,51.5802 52.4724,51.5150 52.4788,51.5049 52.4902,51.4926 52.5058,51.4789 52.5250,51.4675 52.5458,51.4595 52.5537,51.4580 52.5751,51.4671 52.6637,51.4634 52.6685,51.4551 52.6798,51.4590 52.6923,51.4684 52.7009,51.4768 52.7095,51.4821 52.7215,51.4852 52.7455,51.4870 52.7526,51.4905 52.7573,51.4979 52.7647,51.5053 52.7798,51.5081 52.7897,51.5048 52.8110,51.4907 52.8207,51.4870 52.8763,51.4901 52.8965,51.4853 52.8828,51.4671 52.9034,51.4650 52.9292,51.4554 52.9443,51.4529 52.9598,51.4559 52.9732,51.4636 52.9858,51.4727 52.9989,51.4802 53.0371,51.4897 53.1572,51.4870 53.1486,51.5048 53.1533,51.5127 53.1658,51.5146 53.1811,51.5143 53.1905,51.5125 53.1951,51.5080 53.1986,51.5024 53.2049,51.4972 53.2141,51.4948 53.2206,51.4965 53.2260,51.4995 53.2322,51.5007 53.3074,51.4938 53.3224,51.4953 53.3463,51.5030 53.3669,51.4936 53.3695,51.4939 53.4073,51.4842 53.4192,51.4749 53.4397,51.4512 53.4534,51.4419 53.5554,51.4155 53.5975,51.3972 53.6103,51.3884 53.6179,51.3721 53.6094,51.3641 53.5744,51.3532 53.5932,51.3391 53.5931,51.3226 53.5886,51.3053 53.5941,51.2894 53.6280,51.2678 53.6425,51.2554 53.6494,51.2373 53.6739,51.2199 53.8577,51.1846 53.9090,51.1904 53.9359,51.1856 53.9747,51.1665 53.9940,51.1534 54.0176,51.1191 54.0398,51.1104 54.0919,51.1052 54.1116,51.0960 54.1201,51.0812 54.1300,51.0423 54.1383,51.0286 54.1457,51.0197 54.1491,51.0097 54.1454,50.9927 54.1766,50.9679 54.1940,50.9582 54.2335,50.9431 54.2477,50.9310 54.2603,50.9174 54.2758,50.9043 54.3001,50.8947 54.3810,50.8854 54.3916,50.8805 54.4099,50.8687 54.4197,50.8645 54.4643,50.8580 54.4786,50.8535 54.4859,50.8451 54.4879,50.8356 54.4853,50.8254 54.4786,50.8157 54.4219,50.7687 54.4144,50.7485 54.4124,50.7040 54.4071,50.6848 54.3853,50.6394 54.3798,50.6194 54.3836,50.5999 54.3995,50.5787 54.4358,50.5475 54.4557,50.5355 54.4786,50.5260 54.4994,50.5233 54.5507,50.5313 54.5914,50.5423 54.6475,50.5732 54.6763,50.6025 54.6736,50.6343 54.6391,50.7070 54.6387,50.7280 54.6510,50.7656 54.6502,50.7863 54.6454,50.7927 54.6302,50.8037 54.6269,50.8116 54.6299,50.8203 54.6460,50.8377 54.6518,50.8463 54.6382,50.8857 54.5837,50.9057 54.5260,50.9164 54.5030,50.9283 54.5159,50.9373 54.5347,50.9436 54.5460,50.9533 54.5253,50.9911 54.5338,51.0032 54.5527,51.0102 54.6382,51.0277 54.6622,51.0279 54.6858,51.0236 54.7069,51.0163 54.7462,50.9930 54.8117,50.9724 54.8312,50.9593 54.8613,50.9339 54.8943,50.9124 55.0477,50.8842 55.0632,50.8622 55.0614,50.8227 55.0840,50.7969 55.3054,50.6650 55.3294,50.6552 55.3478,50.6514 55.3661,50.6525 55.4160,50.6614 55.4423,50.6617 55.4678,50.6570 55.4911,50.6459 55.5057,50.6302 55.5137,50.6140 55.5243,50.6007 55.5704,50.5883 55.5862,50.5784 55.6168,50.5499 55.6600,50.5300 55.6943,50.5388 55.7649,50.5868 55.9323,50.6465 56.0789,50.7248 56.1001,50.7479 56.1374,50.8688 56.1475,50.8923 56.1584,50.9055 56.1749,50.9087 56.2582,50.8845 56.2886,50.8803 56.3155,50.8838 56.3357,50.8959 56.3439,50.9114 56.3505,50.9480 56.3650,50.9579 56.4158,50.9627 56.4320,50.9762 56.4319,50.9898 56.4204,51.0186 56.4212,51.0335 56.4307,51.0454 56.4465,51.0566 56.4783,51.0730 56.5080,51.0663 56.5966,50.9840 56.6166,50.9783 56.6884,50.9691 56.7075,50.9704 56.7096,50.9816 56.7027,50.9982 56.6825,51.0305 56.6803,51.0498 56.6946,51.0635 56.7161,51.0725 56.7356,51.0776 56.7601,51.0802 56.7763,51.0760 56.8136,51.0570 56.8386,51.0514 56.8651,51.0518 56.8912,51.0566 56.9158,51.0642 56.9411,51.0683 57.0252,51.0627 57.0724,51.0697 57.1379,51.0959 57.1545,51.1000 57.1682,51.0938 57.1812,51.0735 57.1899,51.0348 57.1975,51.0174 57.2136,51.0101 57.2372,51.0095 57.2563,51.0060 57.2729,50.9975 57.2885,50.9812 57.2976,50.9650 57.3101,50.9293 57.3189,50.9132 57.3343,50.8974 57.3527,50.8860 57.4181,50.8624 57.4430,50.8578 57.4676,50.8585 57.4914,50.8669 57.5089,50.8813 57.5199,50.8966 57.5328,50.9100 57.5559,50.9188 57.5962,50.9157 57.6892,50.8967 57.7224,50.9087 57.7373,50.9382 57.7379,50.9709 57.7282,51.0371 57.7344,51.0739 57.7529,51.0975 57.7688,51.1197 57.7962,51.1233 57.8418,51.1058 57.8577,51.1034 57.9123,51.1034 57.9251,51.0996 57.9341,51.0940 57.9501,51.0792 57.9602,51.0775 57.9884,51.0874 58.0017,51.0898 58.0773,51.0979 58.0841,51.0966 58.0888,51.0919 58.0897,51.0856 58.0896,51.0796 58.0910,51.0761 58.1137,51.0652 58.1406,51.0567 58.1676,51.0552 58.1906,51.0655 58.2024,51.0834 58.2115,51.1049 58.2238,51.1231 58.2453,51.1307 58.2681,51.1346 58.3084,51.1500 58.3234,51.1419 58.3536,51.1220 58.3660,51.1089 58.3693,51.0951 58.3708,51.0819 58.3780,51.0707 58.3980,51.0637 58.5205,51.0619 58.5635,51.0493 58.5950,51.0234 58.6027,50.9812 58.5964,50.9625 58.5853,50.9478 58.5708,50.9360 58.5544,50.9254 58.5465,50.9119 58.5502,50.8933 58.5600,50.8752 58.5714,50.8635 58.5905,50.8611 58.6410,50.8634 58.6512,50.8533 58.6439,50.8147 58.6467,50.8013 58.6644,50.7899 58.6898,50.7884 58.7195,50.7935 58.7478,50.7951 58.7684,50.7827 58.7851,50.7497 58.7940,50.7377 58.8115,50.7255 58.8868,50.6889 58.9259,50.6781 59.1975,50.6627 59.2194,50.6584 59.2357,50.6446 59.2470,50.6296 59.2590,50.6204 59.2733,50.6160 59.2908,50.6155 59.3865,50.6303 59.4376,50.6311 59.4782,50.6144 59.4981,50.5997 59.5510,50.5860 59.5634,50.5799 59.5604,50.5538 59.5353,50.5466 59.4782,50.5524 59.4517,50.5373 59.4508,50.5223 59.4663,50.5074 59.5228,50.4746 59.5551,50.4844 59.5877,50.5062 59.6222,50.5241 59.6731,50.5295 59.7255,50.5277 59.7747,50.5337 59.8157,50.5629 59.8592,50.6225 59.8720,50.6360 59.9040,50.6603 59.9151,50.6738 59.9196,50.6909 59.9139,50.7260 59.9146,50.7459 59.9202,50.7631 59.9622,50.8295 59.9691,50.8374 59.9781,50.8438 60.0213,50.8541 60.0833,50.8572 60.1362,50.8445 60.1521,50.8077 60.1548,50.7709 60.1767,50.7422 60.2095,50.7197 60.2454,50.7020 60.3004,50.6847 60.7185,50.6527 60.8183,50.6629 61.0952,50.7227 61.3721,50.7825 61.4040,50.8026 61.4269,50.8331 61.4418,50.8750 61.4567,50.9650 61.4654,50.9927 61.5132,51.1595 61.5342,51.2061 61.5673,51.2339 61.6111,51.2493 61.6637,51.2584 61.6467,51.2631 61.6630,51.2635 61.6710,51.2637 61.8138,51.2692 61.8733,51.2959 61.9245,51.2395 61.9353,51.1856 61.9596,51.1289 62.0031,51.0896 62.0301,51.0652 62.1544,51.1104 62.2939,51.0396 62.2604,51.0115 62.2391,50.9457 62.3752,50.8506 62.3039,50.7543 62.3137,50.6960 62.3488,50.6729 62.4457,50.6748 62.5342,50.4390 62.6928,50.2224 62.8897,50.0242 62.9131,49.8972 62.8196,49.8743 62.7140,49.9083 62.6106,49.8551 62.5580,49.7509 62.4595,49.6868 62.4129,49.6009 62.4529,49.5205 62.3217,49.5245 62.2791,49.4884 62.2936,49.4438 62.4850,49.2281 62.3839,49.2195 62.2776,49.1861 62.3733,49.1670 62.4471,49.0506 62.6645,48.8783 62.8166,48.8513 62.8607,48.8671 62.9060,48.8834 63.0309,48.8630 63.0556,48.7893 63.0297,48.6919 63.3456,48.5808 63.6615,48.4697 63.9705,48.1512 64.1621,47.9375 64.2036,47.8785 64.1063,47.8056 63.6849,47.5983 63.2635,47.3911 62.8421,47.1839 62.7526,47.1809 62.6374,47.2192 62.5430,47.2293 62.4499,47.2482 62.4672,47.2918 62.3195,47.4455 62.1703,47.5440 62.0484,47.5707 61.8590,47.7765 61.5738,47.7760 61.3271,47.7335 61.1084,47.5282 61.0166,47.3612 60.7647,47.0999 60.5378,47.1120 60.4406,47.0463 60.4114,46.9238 60.1691,46.8846 59.9209,46.7598 59.6684,46.5802 59.3905,46.3231 59.1126,46.0660 59.0272,45.8181 59.0551,45.3243 59.0551,45.3240 59.0551,45.3240 59.0552,45.3240 59.1203,45.2931 59.2924,45.2112 59.4794,45.1225 59.6758,45.0291 59.8766,44.9338 60.0767,44.8387 60.2709,44.7465 60.4540,44.6594 60.6211,44.5801 60.7669,44.5108 60.8862,44.4541 60.9740,44.4124 61.0363,44.3828 61.0621,44.3620 61.0802,44.3355 61.0866,44.3112 61.0931,44.2594 61.1029,44.2361 61.1617,44.1681 61.1681,44.1631 61.2764,44.0789 61.3312,44.0362 61.3861,43.9934 61.4561,43.9352 61.5135,43.8872 61.5711,43.8393 61.6285,43.7914 61.6860,43.7434 61.7421,43.6965 61.7983,43.6496 61.8545,43.6027 61.9107,43.5558 61.9857,43.4933 62.0060,43.4870 62.0261,43.4806 62.0283,43.4809 62.1109,43.4919 62.1461,43.4967 62.1814,43.5014 62.2167,43.5062 62.2519,43.5109 62.3084,43.5184 62.3649,43.5260 62.4213,43.5336 62.4777,43.5411 62.5690,43.5519 62.6602,43.5627 62.7515,43.5735 62.8429,43.5843 62.9341,43.5951 63.0254,43.6058 63.1166,43.6166 63.2080,43.6275 63.3603,43.6174 63.5127,43.6073 63.6651,43.5973 63.8174,43.5872 63.9559,43.5781 64.0947,43.5689 64.2332,43.5597 64.3717,43.5506 64.4267,43.5470 64.4442,43.5507 64.4616,43.5543 64.5621,43.5948 64.6584,43.6336 64.7576,43.6736 64.8550,43.7129 64.8731,43.7178 64.8910,43.7228 64.9070,43.7210 64.9229,43.7191 64.9396,43.7083 64.9565,43.6974 65.0642,43.5956 65.1719,43.4937 65.2217,43.4553 65.2714,43.4170 65.3745,43.3699 65.4774,43.3228 65.4972,43.3100 65.5169,43.2972 65.6019,43.1690 65.6561,43.0872 65.7311,42.9742 65.7952,42.8772 65.8040,42.8765 65.8126,42.8758 65.9569,42.9330 66.1013,42.9903 66.0797,42.7419 66.0582,42.4936 66.0557,42.4673 66.0532,42.4409 66.0481,42.4323 66.0432,42.4237 66.0314,42.4203 66.0196,42.4168 66.0167,42.4099 66.0137,42.4030 66.0132,42.3729 66.0101,42.2082 66.0065,42.0134 66.0075,42.0081 66.0087,42.0027 66.0129,42.0001 66.0172,41.9976 66.1376,41.9972 66.2474,41.9969 66.3503,41.9967 66.3503,41.9967 66.3566,41.9966 66.4774,41.9962 66.4812,41.9966 66.4848,41.9970 66.4886,41.9969 66.4924,41.9968 66.4958,41.9962 66.4992,41.9956 66.5017,41.9945 66.5041,41.9935 66.5214,41.8671 66.5389,41.7408 66.5707,41.6173 66.6026,41.4938 66.6455,41.3465 66.6882,41.1992 66.7107,41.1786 66.7330,41.1581 66.7579,41.1531 66.7741,41.1499 66.8153,41.1419 66.9314,41.1472 67.0290,41.1515 67.1748,41.1581 67.2817,41.1630 67.4093,41.1687 67.4905,41.1724 67.6202,41.1784 67.7481,41.1841 67.7596,41.1817 67.7709,41.1793 67.7920,41.1710 67.8130,41.1627 67.8240,41.1598 67.8349,41.1569 67.8445,41.1579 67.8541,41.1590 67.8831,41.1735 67.9120,41.1880 67.9247,41.1942 67.9374,41.2004 67.9435,41.1861 67.9495,41.1719 67.9508,41.1712 67.9519,41.1706 67.9554,41.1650 67.9589,41.1595 67.9809,41.1375 68.0031,41.1156 68.0081,41.1067 68.0132,41.0979 68.0171,41.0785 68.0211,41.0591 68.0277,41.0509 68.0344,41.0427 68.0403,41.0464 68.0464,41.0502 68.0528,41.0525 68.0591,41.0548 68.0652,41.0541 68.0714,41.0533 68.0769,41.0480 68.0821,41.0427 68.0891,41.0539 68.0960,41.0651 68.1066,41.0659 68.1174,41.0667 68.1193,41.0561 68.1212,41.0455 68.1213,41.0444 68.1215,41.0433 68.1202,41.0387 68.1189,41.0340 68.1237,41.0328 68.1285,41.0317 68.1300,41.0306 68.1313,41.0296 68.1199,41.0232 68.1082,41.0168 68.1040,41.0152 68.0997,41.0136 68.1038,41.0119 68.1079,41.0103 68.1103,41.0079 68.1127,41.0055 68.1168,40.9997 68.1209,40.9938 68.1208,40.9795 68.1206,40.9653 68.1157,40.9485 68.1108,40.9317 68.1033,40.9153 68.0960,40.8990 68.0882,40.8859 68.0806,40.8730 68.0752,40.8664 68.0695,40.8598 68.0621,40.8535 68.0547,40.8472 68.0465,40.8423 68.0382,40.8372 68.0206,40.8312 68.0031,40.8252 67.9986,40.8221 67.9941,40.8190 67.9925,40.8150 67.9909,40.8111 67.9942,40.8093 67.9975,40.8075 68.0173,40.8043 68.0371,40.8011 68.0523,40.7945 68.0675,40.7880 68.1132,40.7535 68.1589,40.7191 68.1924,40.6990 68.2261,40.6789 68.2665,40.6627 68.3439,40.6317 68.4617,40.5847 68.4634,40.5872 68.4651,40.5897 68.4711,40.5945 68.4773,40.5992 68.4849,40.5989 68.4924,40.5986 68.4963,40.6021 68.4999,40.6056 68.5027,40.6100 68.5055,40.6143 68.5101,40.6167 68.5148,40.6191 68.5206,40.6183 68.5263,40.6176 68.5463,40.6100 68.5662,40.6025 68.5797,40.6009 68.5930,40.5995 68.6035,40.6043 68.6142,40.6091 68.6174,40.6157 68.6204,40.6222 68.6107,40.6261 68.6011,40.6300 68.6133,40.6452 68.6255,40.6604 68.6264,40.6638 68.6274,40.6671 68.6231,40.6727 68.6188,40.6782 68.6154,40.6844 68.6121,40.6905 68.6104,40.6969 68.6085,40.7034 68.6090,40.7096 68.6094,40.7158 68.5969,40.7181 68.5842,40.7204 68.5794,40.7224 68.5746,40.7245 68.5705,40.7285 68.5663,40.7325 68.5630,40.7418 68.5598,40.7513 68.5547,40.7932 68.5497,40.8350 68.5515,40.8427 68.5534,40.8504 68.5562,40.8529 68.5590,40.8555 68.5621,40.8574 68.5654,40.8592 68.5687,40.8648 68.5719,40.8705 68.5725,40.8753 68.5732,40.8801 68.5718,40.8914 68.5706,40.9025 68.5707,40.9080 68.5709,40.9135 68.5730,40.9125 68.5753,40.9116 68.5800,40.9102 68.5847,40.9088 68.5869,40.9077 68.5892,40.9066 68.5947,40.9184 68.6001,40.9301 68.6140,40.9373 68.6279,40.9445 68.6495,40.9517 68.6586,40.9547 68.6894,40.9649 68.6996,40.9744 68.7095,40.9838 68.7279,41.0238 68.7463,41.0638 68.7599,41.0755 68.7738,41.0873 68.8082,41.0987 68.8424,41.1101 68.8549,41.1264 68.8674,41.1426 68.8737,41.1491 68.8802,41.1555 68.8905,41.1581 68.9008,41.1606 68.9222,41.1628 68.9438,41.1649 68.9617,41.1716 68.9797,41.1782 68.9970,41.1871 69.0141,41.1960 69.0226,41.2024 69.0312,41.2088 69.0351,41.2145 69.0392,41.2203 69.0469,41.2679 69.0548,41.3154 69.0544,41.3236 69.0540,41.3319 69.0525,41.3378 69.0512,41.3436 69.0497,41.3454 69.0483,41.3472 69.0460,41.3485 69.0435,41.3499 69.0389,41.3543 69.0343,41.3587 69.0330,41.3629 69.0316,41.3670 69.0339,41.3705 69.0362,41.3740 69.0403,41.3766 69.0444,41.3792 69.0675,41.3878 69.0906,41.3963 69.1001,41.3985 69.1095,41.4007 69.1188,41.3979 69.1281,41.3951 69.1331,41.4055 69.1382,41.4159 69.1504,41.4250 69.1627,41.4341 69.1899,41.4471 69.2171,41.4601 69.2253,41.4614 69.2333,41.4626 69.2482,41.4586 69.2629,41.4546 69.2703,41.4554 69.2776,41.4562 69.2968,41.4655 69.3162,41.4748 69.3236,41.4764 69.3311,41.4779 69.3608,41.4738 69.3907,41.4697 69.3965,41.4724 69.4024,41.4748 69.4017,41.4800 69.4011,41.4852 69.3927,41.4967 69.3845,41.5082 69.3827,41.5135 69.3808,41.5188 69.3874,41.5319 69.3938,41.5450 69.4071,41.5522 69.4203,41.5595 69.4488,41.5664 69.4773,41.5731 69.5282,41.6032 69.5790,41.6334 69.5932,41.6458 69.6076,41.6583 69.6160,41.6633 69.6246,41.6683 69.6920,41.6824 69.7594,41.6964 69.8151,41.6981 69.8709,41.6996 69.8917,41.7062 69.9124,41.7129 69.9276,41.7263 69.9429,41.7397 69.9497,41.7475 69.9565,41.7552 69.9643,41.7599 69.9720,41.7646 70.0000,41.7723 70.0280,41.7800 70.0694,41.8029 70.1111,41.8260 70.1237,41.8371 70.1364,41.8481 70.1704,41.8920 70.2042,41.9358 70.2114,41.9414 70.2186,41.9469 70.2271,41.9506 70.2358,41.9543 70.2449,41.9567 70.2539,41.9591 70.2622,41.9623 70.2703,41.9656 70.2767,41.9709 70.2830,41.9763 70.2867,41.9850 70.2903,41.9938 70.3027,42.0141 70.3151,42.0346 70.3364,42.0484 70.3579,42.0622 70.4067,42.0780 70.4554,42.0937 70.4628,42.0927 70.4702,42.0916 70.4794,42.0867 70.4885,42.0819 70.4965,42.0751 70.5045,42.0685 70.5082,42.0620 70.5119,42.0554 70.5154,42.0460 70.5189,42.0367 70.5266,42.0308 70.5342,42.0250 70.5448,42.0219 70.5553,42.0187 70.5671,42.0175 70.5790,42.0162 70.5945,42.0219 70.6102,42.0274 70.6208,42.0422 70.6315,42.0569 70.6407,42.0751 70.6498,42.0934 70.6615,42.1097 70.6732,42.1260 70.6872,42.1385 70.7011,42.1509 70.7064,42.1576 70.7118,42.1643 70.7159,42.1737 70.7199,42.1829 70.7271,42.1901 70.7343,42.1973 70.7463,42.1977 70.7581,42.1980 70.7814,42.1932 70.8045,42.1884 70.8235,42.1905 70.8424,42.1925 70.8612,42.1997 70.8800,42.2069 70.9139,42.2276 70.9478,42.2481 71.0032,42.2818 71.0140,42.2877 71.0458,42.2910 71.0776,42.2812 71.2179,42.2064 71.2532,42.1976 71.2382,42.1602 71.2010,42.1408 71.1184,42.1229 70.9771,42.0442 70.9359,42.0369 70.8867,42.0385 70.8455,42.0304 70.8281,41.9937 70.8251,41.9363 70.8140,41.9195 70.7793,41.9097 70.6797,41.9011 70.6489,41.8874 70.5501,41.8241 70.5065,41.7856 70.4772,41.7384 70.4537,41.7121 70.4235,41.6969 70.3908,41.6851 70.3312,41.6496 70.1693,41.5783 70.1483,41.5525 70.1665,41.5202 70.2034,41.5056 70.3444,41.4938 70.3445,41.4937 70.3447,41.4936 70.3449,41.4935 70.3822,41.4764 70.3990,41.4650 70.4136,41.4507 70.4381,41.4161 70.4532,41.4055 70.4772,41.4047 70.5113,41.4145 70.6338,41.4675 70.6678,41.4714 70.6867,41.4625 70.7036,41.4455 70.7597,41.3725 70.7692,41.3521 70.7711,41.3310 70.7563,41.2696 70.7580,41.2522 70.7704,41.2385 70.7866,41.2404 70.8060,41.2475 70.8285,41.2491 70.8477,41.2431 70.8657,41.2332 70.8822,41.2205 70.8960,41.2061 70.9142,41.1930 70.9342,41.1914 70.9771,41.1963 71.0247,41.1898 71.0470,41.1820 71.0676,41.1697 71.0858,41.1620 71.1231,41.1582 71.1391,41.1484 71.1644,41.1162 71.1801,41.1081 71.1899,41.1275 71.1879,41.1484 71.1830,41.1664 71.1857,41.1802 71.2064,41.1888 71.2302,41.1873 71.2415,41.1752 71.2538,41.1375 71.2634,41.1235 71.2761,41.1132 71.2895,41.1139 71.3002,41.1330 71.3252,41.1573 71.3937,41.1127 71.4161,41.1274 71.4215,41.1621 71.4126,41.3347 71.4188,41.3474 71.4325,41.3448 71.4806,41.3108 71.5238,41.2967 71.5579,41.3017 71.5855,41.3235 71.6188,41.3778 71.6331,41.4113 71.6374,41.4313 71.6337,41.4496 71.6207,41.4622 71.6050,41.5122 71.6153,41.5321 71.6274,41.5432 71.6495,41.5499 71.6714,41.5474 71.6841,41.5341 71.6894,41.5146 71.6895,41.4938 71.6711,41.4376 71.6719,41.4255 71.6814,41.4228 71.6873,41.4310 71.6915,41.4419 71.6961,41.4474 71.7069,41.4441 71.7122,41.4280 71.7216,41.4248 71.7297,41.4301 71.7304,41.4512 71.7368,41.4554 71.7452,41.4528 71.7532,41.4473 71.8470,41.3418 71.8630,41.3122 71.8688,41.2792 71.8663,41.2366 71.8716,41.1945 71.8977,41.1849 71.9770,41.1952 72.0012,41.1800 72.0165,41.1635 72.0338,41.1566 72.0636,41.1702 72.0852,41.1849 72.1085,41.1964 72.1329,41.1993 72.1584,41.1879 72.1699,41.1687 72.1746,41.1414 72.1764,41.1129 72.1856,41.0606 72.1856,41.0411 72.1788,41.0232 72.1651,40.9994 72.2530,41.0196 72.2898,41.0235 72.2973,41.0281 72.3088,41.0544 72.3141,41.0617 72.3324,41.0728 72.3457,41.0660 72.3743,41.0320 72.3952,41.0220 72.4235,41.0157 72.4767,41.0118 72.4819,41.0088 72.4847,41.0047 72.4852,40.9996 72.4836,40.9935 72.4834,40.9706 72.5014,40.9635 72.5262,40.9622 72.5456,40.9565 72.5885,40.9058 72.6195,40.8801 72.6582,40.8672 72.7012,40.8632 72.8301,40.8721 72.8687,40.8641 72.8730,40.8348 72.8703,40.8182 72.8831,40.8196 72.9294,40.8442 73.0034,40.8702 73.0194,40.8619 73.0333,40.8472 73.0536,40.8363 73.1125,40.8392 73.1434,40.8338 73.1486,40.8137 73.1180,40.7829 73.0706,40.7625 72.9768,40.7361 72.8910,40.6951 72.8189,40.6811 72.7839,40.6697 72.7600,40.6418 72.7484,40.5751 72.7192,40.5649 72.6824,40.5777 72.6642,40.5778 72.6565,40.5611 72.6551,40.5464 72.6505,40.5322 72.6409,40.5199 72.6255,40.5105 72.5858,40.5087 72.5153,40.5456 72.4767,40.5496 72.4479,40.5605 72.4148,40.5899 72.3816,40.6121 72.3519,40.6020 72.3485,40.5854 72.3701,40.5577 72.3700,40.5399 72.3633,40.5236 72.3635,40.5123 72.3723,40.5033 72.4157,40.4793 72.4262,40.4593 72.4252,40.4360 72.4144,40.4107 72.3941,40.3894 72.3705,40.3856 72.3434,40.3934 72.2843,40.4199 72.2696,40.4240 72.2244,40.4224 72.2116,40.4256 72.2165,40.4349 72.2281,40.4375 72.2451,40.4387 72.2596,40.4424 72.2636,40.4525 72.2542,40.4583 72.2359,40.4599 72.1827,40.4578 72.1659,40.4544 72.0993,40.4264 72.0901,40.4160 72.0841,40.3974 72.0696,40.3694 72.0432,40.3493 71.9567,40.3157 71.9511,40.3015 71.9582,40.2865 71.9770,40.2761 72.0060,40.2658 72.0198,40.2587 72.0254,40.2509 72.0189,40.2400 72.0048,40.2373 71.9890,40.2393 71.9770,40.2431 71.9692,40.2444 71.9634,40.2437 71.9518,40.2409 71.9123,40.2434 71.8730,40.2508 71.8365,40.2492 71.8055,40.2253 71.7868,40.1935 71.7759,40.1799 71.7598,40.1681 71.7072,40.1443 71.6933,40.1411 71.6731,40.1479 71.6669,40.1631 71.6672,40.2042 71.6602,40.2245 71.6460,40.2471 71.6283,40.2589 71.6101,40.2464 71.6040,40.2273 71.6017,40.2099 71.5930,40.1984 71.5683,40.1966 71.5212,40.2037 71.4984,40.2105 71.4771,40.2208 71.4589,40.2341 71.4510,40.2489 71.4414,40.2609 71.3966,40.2715 71.3651,40.2941 71.3449,40.2952 71.3136,40.2927 71.2971,40.2938 71.2832,40.2984 71.2728,40.3077 71.2639,40.3182 71.2538,40.3244 71.2396,40.3211 71.2240,40.3029 71.2151,40.2807 71.2010,40.2638 71.1694,40.2614 71.0532,40.2742 70.9951,40.2666 70.9590,40.2384 70.9795,40.2141 70.9629,40.1897 70.9293,40.1706 70.8985,40.1626 70.8452,40.1718 70.8318,40.1682 70.8249,40.1635 70.8067,40.1562 70.8060,40.1577 70.8027,40.1601 70.7977,40.1619 70.7921,40.1614 70.7887,40.1590 70.7825,40.1526 70.7435,40.1271 70.7298,40.1207 70.6659,40.1042 70.6394,40.0849 70.6347,40.0593 70.6360,40.0285 70.6274,39.9939 70.6140,39.9758 70.5966,39.9620 70.5766,39.9522 70.5551,39.9462 70.5126,39.9452 70.5009,39.9406 70.4942,39.9317 70.4860,39.9096 70.4772,39.9009 70.4556,39.9068 70.4480,39.9200 70.4509,39.9374 70.4602,39.9561 70.4732,39.9701 70.4885,39.9785 70.5050,39.9851 70.5209,39.9937 70.5356,40.0160 70.5255,40.0337 70.5021,40.0460 70.4772,40.0520 70.3976,40.0612 70.3595,40.0740 70.3243,40.0775 70.3063,40.0848 70.2903,40.0982 70.2778,40.1121 70.2635,40.1243 70.2415,40.1327 70.2185,40.1341 70.1688,40.1317 70.1472,40.1370 70.0046,40.2088 69.9696,40.2116 69.5755,40.1036 69.5588,40.1017 69.5430,40.1031 69.5366,40.1079 69.5261,40.1232 69.5180,40.1251 69.5135,40.1207 69.5092,40.1034 69.5063,40.0969 69.4857,40.0737 69.4696,40.0510 69.4631,40.0254 69.4712,39.9937 69.4751,39.9877 69.4773,39.9816 69.4781,39.9750 69.4773,39.9682 69.5004,39.9357 69.5016,39.9225 69.4054,39.8961 69.3573,39.9595 69.3278,39.9847 69.3140,39.9869 69.3103,39.9848 69.3101,39.9786 69.3057,39.9686 69.2864,39.9358 69.2407,39.8289 69.2296,39.7905 69.2263,39.7510 69.2333,39.7327 69.2484,39.7194 69.2659,39.7078 69.2801,39.6943 69.2875,39.6778 69.2911,39.6589 69.2862,39.5397 69.3003,39.5156 69.3397,39.5281 69.3459,39.5354 69.3484,39.5432 69.3520,39.5496 69.3616,39.5529 69.3672,39.5499 69.3915,39.5305 69.4122,39.5250 69.4553,39.5305 69.4773,39.5304 69.4961,39.5326 69.5144,39.5376 69.5314,39.5456 69.5649,39.5681 69.5823,39.5736 69.6694,39.5778 69.7103,39.5741 69.7498,39.5638 69.7916,39.5454 69.8304,39.5362 69.9078,39.5485 69.9486,39.5451 69.9788,39.5344 69.9871,39.5396 70.0027,39.5569 70.0197,39.5686 70.0404,39.5736 70.0623,39.5735 70.0827,39.5698 70.1163,39.5546 70.1324,39.5500 70.1490,39.5543 70.1574,39.5639 70.1852,39.6103 70.2007,39.6195 70.2103,39.6097 70.2148,39.5911 70.2150,39.5741 70.2044,39.5382 70.2060,39.5241 70.2233,39.5191 70.2411,39.5224 70.3303,39.5731 70.3432,39.5769 70.3535,39.5759 70.3743,39.5710 70.3843,39.5709 70.3904,39.5740 70.3954,39.5795 70.4015,39.5848 70.4111,39.5875 70.4276,39.5901 70.4600,39.5995 70.4772,39.6012 70.4910,39.5969 70.5135,39.5815 70.5261,39.5756 70.5436,39.5743 70.5803,39.5795 70.5978,39.5778 70.6221,39.5635 70.6360,39.5425 70.6559,39.4939 70.6560,39.4937 70.6560,39.4937 70.6667,39.4869 70.6901,39.4792 70.6997,39.4722 70.7054,39.4585 70.7031,39.4447 70.6986,39.4314 70.6981,39.4190 70.7133,39.3984 70.7397,39.3862 70.7701,39.3821 70.7976,39.3853 70.8281,39.3986 70.8401,39.4014 70.8553,39.4017 70.8642,39.4006 70.8722,39.4030 70.8845,39.4139 70.9034,39.4209 70.9252,39.4129 70.9498,39.4007 70.9771,39.3949 71.0093,39.4076 71.0276,39.4352 71.0423,39.4679 71.0629,39.4956 71.0959,39.5124 71.1374,39.5212 71.1800,39.5230 71.2369,39.5145 71.2493,39.5144 71.2601,39.5206 71.2920,39.5490 71.3059,39.5572 71.3406,39.5717 71.3479,39.5762 71.3616,39.5876 71.3685,39.5915 71.3783,39.5942 71.4067,39.5982 71.4413,39.6107 71.4595,39.6121 71.4930,39.5962 71.5109,39.5841 71.5254,39.5692 71.5314,39.5531 71.5260,39.5382 71.5006,39.5092 71.4921,39.4937 71.5129,39.4588 71.5543,39.4442 71.6028,39.4423 71.7046,39.4590 71.7244,39.4594 71.7403,39.4483 71.7492,39.4255 71.7518,39.3997 71.7481,39.3796 71.7366,39.3646 71.7232,39.3540 71.7130,39.3415 71.7109,39.3210 71.7183,39.3011 71.7329,39.2851 71.7512,39.2742 71.7704,39.2695 71.8070,39.2728 71.8435,39.2850 71.9423,39.3390 71.9592,39.3459 71.9965,39.3519 72.0315,39.3667 72.0498,39.3689 72.0669,39.3585 72.0781,39.3366 72.0841,39.3112 72.0858,39.2901 72.0948,39.2751 72.1155,39.2681 72.1586,39.2626 72.1671,39.2587 72.1824,39.2493 72.2033,39.2408 72.2064,39.2346 72.2065,39.2269 72.2092,39.2173 72.2186,39.2009 72.2289,39.1892 72.2403,39.1899 72.2814,39.2597 72.3042,39.3136 72.3163,39.3288 72.3341,39.3338 72.3559,39.3361 72.3932,39.3508 72.4107,39.3513 72.4436,39.3448 72.4604,39.3441 72.4767,39.3461 72.5081,39.3720 72.5190,39.3757 72.5341,39.3723 72.5594,39.3596 72.5758,39.3593 72.5870,39.3649 72.6061,39.3835 72.6164,39.3904 72.6337,39.3945 72.6505,39.3938 72.8353,39.3562 72.8505,39.3567 72.8937,39.3639 72.9143,39.3627 72.9768,39.3522 72.9943,39.3478 73.0093,39.3486 73.0584,39.3688 73.0711,39.3707 73.0834,39.3678 73.1010,39.3612 73.1360,39.3535 73.1679,39.3554 73.2694,39.3826 73.3264,39.3909 73.3333,39.4011 73.3355,39.4152 73.3432,39.4307 73.3676,39.4438 73.4769,39.4648 73.5122,39.4674 73.6043,39.4596 73.6326,39.4483 73.6319,39.4288 73.6426,39.3718 73.6438,39.3513 73.6413,39.3353 73.6101,39.2655 73.6023,39.2358 73.6078,39.2073 73.6314,39.1751 73.6738,39.1426 73.6830,39.1287 73.6919,39.0945 73.6982,39.0784 73.7093,39.0655 73.7687,39.0299 73.8016,39.0014 73.8160,38.9938 73.8261,38.9769 73.8291,38.9602 73.8239,38.9449 73.8096,38.9327 73.7879,38.9271 73.7399,38.9269 73.7172,38.9186 73.7029,38.9070 73.6890,38.8911 73.6808,38.8730 73.6837,38.8549 73.6958,38.8401 73.7249,38.8146 73.7359,38.8004 73.7390,38.7811 73.7327,38.7372 73.7364,38.7217 73.7723,38.6746 73.7791,38.6602 73.7886,38.6186 73.7974,38.6028 73.8164,38.5866 73.8336,38.5780 73.8697,38.5668 73.8871,38.5590 73.9173,38.5371 73.9329,38.5297 74.0289,38.5272 74.0290,38.5273 74.0298,38.5272 74.0465,38.5304 74.0597,38.5470 74.0518,38.5627 74.0390,38.5792 74.0382,38.5985 74.0459,38.6035 74.0853,38.6140 74.0924,38.6204 74.0938,38.6288 74.0936,38.6377 74.0960,38.6458 74.1101,38.6623 74.1243,38.6695 74.1404,38.6692 74.2020,38.6523 74.2214,38.6497 74.2223,38.6497 74.2224,38.6497 74.2447,38.6502 74.3141,38.6691 74.3342,38.6670 74.4766,38.6121 74.6461,38.5611 74.6643,38.5490 74.6796,38.5349 74.6965,38.5240 74.7191,38.5215 74.7197,38.5216 74.7200,38.5215 74.7423,38.5230 74.7603,38.5200 74.7763,38.5107 74.7922,38.4940 74.7922,38.4940 74.7923,38.4939 74.7923,38.4938 74.8013,38.4828 74.8085,38.4777 74.8262,38.4696 74.8329,38.4636 74.8358,38.4552 74.8371,38.4457 74.8444,38.4172 74.8441,38.3978 74.8383,38.3794 74.8267,38.3632 74.7843,38.3257 74.7748,38.3096 74.7711,38.2915 74.7713,38.1963 74.7907,38.0814 74.8099,38.0532 74.8804,38.0217 74.8928,37.9940 74.8888,37.9309 74.8912,37.9043 74.8908,37.8977 74.8940,37.8923 74.9052,37.8869 74.9137,37.8808 74.9116,37.8738 74.8946,37.8521 74.8873,37.8489 74.8832,37.8439 74.8861,37.8306 74.8912,37.8230 74.8984,37.8176 74.9493,37.7953 74.9614,37.7855 74.9652,37.7675 74.9618,37.7581 74.9544,37.7477 74.9386,37.7308 74.9319,37.7216 74.9288,37.7124 74.9269,37.7036 74.9236,37.6953 74.9109,37.6802 74.8971,37.6676 74.8861,37.6535 74.8822,37.6344 74.8840,37.6277 74.8919,37.5992 74.9150,37.5707 74.9452,37.5486 75.0359,37.5064 75.0534,37.4938 75.1040,37.4406 75.1325,37.4185 75.1641,37.4006 75.1152,37.3878 75.0918,37.3784 75.0796,37.3612 75.0771,37.3242 75.0684,37.3121 74.9754,37.2843 74.9515,37.2813 74.9329,37.2725 74.9237,37.2552 74.9127,37.2390 74.8878,37.2336 74.8878,37.2336 74.8636,37.2446 74.8877,37.2336 74.8868,37.2336 74.8626,37.2446 74.8595,37.2489 74.8528,37.2581 74.8169,37.3069 74.7885,37.3312 74.6604,37.3940 74.6314,37.3811 74.5298,37.3758 74.5212,37.3756 74.5127,37.3772 74.4766,37.3861 74.4548,37.3936 74.4359,37.3923 74.4183,37.3892 74.3894,37.3934 74.3781,37.3938 74.3682,37.3964 74.3536,37.4159 74.3438,37.4210 74.3324,37.4204 74.3209,37.4139 74.3156,37.4269 74.3038,37.4002 74.2794,37.3975 74.2504,37.4037 74.2239,37.4034 74.2077,37.3899 74.2060,37.3557 74.1876,37.3384 74.1633,37.3301 74.0522,37.3122 73.9767,37.2903 73.9556,37.2868 73.8993,37.2655 73.8564,37.2616 73.8402,37.2577 73.8362,37.2567 73.7982,37.2285 73.7840,37.2259 73.7687,37.2289 73.7461,37.2305 73.7362,37.2277 73.7200,37.2175 73.7092,37.2170 73.7024,37.2212 73.6880,37.2369 73.6805,37.2425 73.6599,37.2437 73.6177,37.2332 73.6016,37.2409 73.5973,37.2618 73.6099,37.2814 73.6310,37.2960 73.6520,37.3021 73.6904,37.3052 73.7050,37.3110 73.7222,37.3225 73.7358,37.3352 73.7391,37.3383 73.7457,37.3529 73.7459,37.3949 73.7471,37.4031 73.7535,37.4284 73.7178,37.4318 73.6745,37.4310 73.6050,37.4458 73.5747,37.4547 73.4853,37.4810 73.4406,37.4799 73.3784,37.4525 73.3619,37.4564 73.3450,37.4645 73.3212,37.4670 73.2963,37.4649 73.2761,37.4595 73.2603,37.4500 73.2115,37.4083 73.2006,37.4042 73.1790,37.4107 73.1702,37.4083 73.1321,37.3844 73.1164,37.3691 73.0992,37.3399 73.0967,37.3369 73.0878,37.3261 73.0675,37.3151 72.9956,37.3093 72.9243,37.2748 72.9022,37.2538 72.8774,37.2469 72.8305,37.2398 72.7907,37.2203 72.7610,37.1875 72.7144,37.1100 72.6727,37.0576 72.6666,37.0383 72.6577,37.0288 72.5087,37.0111 72.4750,36.9975 72.4059,37.0077 72.3610,37.0003 72.2598,36.9673 72.2203,36.9455 72.2104,36.9366 72.1959,36.9190 72.1868,36.9114 72.1528,36.8957 72.1267,36.8727 71.8366,36.6992 71.7976,36.6861 71.7485,36.6786 71.6999,36.6786 71.6530,36.6870 71.6111,36.7048 71.5774,36.7333 71.5639,36.7507 71.5529,36.7696 71.5453,36.7900 71.5385,36.8361 71.5285,36.8561 71.4717,36.9300 71.4631,36.9481 71.4600,36.9698 71.4600,37.0107 71.4564,37.0225 71.4392,37.0441 71.4332,37.0547 71.4311,37.0670 71.4332,37.1273 71.4410,37.1684 71.4468,37.1836 71.4538,37.1926 71.4511,37.2101 71.4501,37.2167 71.4870,37.2671 71.4879,37.2950 71.4939,37.3075 71.4965,37.3285 71.4947,37.3707 71.4871,37.4091 71.4902,37.4234 71.5015,37.4458 71.5112,37.4859 71.4972,37.5665 71.5015,37.6103 71.5051,37.6160 71.5172,37.6292 71.5221,37.6376 71.5248,37.6477 71.5295,37.6786 71.5409,37.7097 71.5425,37.7196 71.5403,37.7305 71.5312,37.7518 71.5295,37.7611 71.5378,37.7790 71.5747,37.7980 71.5903,37.8157 71.5942,37.8338 71.5950,37.8575 71.5934,37.8793 71.5903,37.8914 71.5977,37.8984 71.5673,37.9281 71.5371,37.9445 71.5012,37.9462 71.3792,37.9129 71.3610,37.9020 71.3412,37.8933 71.3198,37.9006 71.2818,37.9250 71.2712,37.9262 71.2635,37.9244 71.2583,37.9265 71.2545,37.9393 71.2558,37.9499 71.2659,37.9725 71.2726,37.9980 71.3024,38.0423 71.3160,38.0833 71.3345,38.1117 71.3409,38.1409 71.3591,38.1841 71.3645,38.2068 71.3582,38.2513 71.3344,38.2807 71.3001,38.2987 71.2177,38.3258 71.1559,38.3762 71.1174,38.3986 71.0894,38.4099 71.0770,38.4122 71.0649,38.4118 71.0571,38.4090 71.0498,38.4087 71.0395,38.4153 71.0330,38.4237 71.0246,38.4419 71.0186,38.4498 71.0086,38.4586 70.9982,38.4657 70.9868,38.4709 70.9740,38.4737 70.9507,38.4731 70.9435,38.4659 70.9468,38.4432 70.9362,38.4330 70.9122,38.4377 70.8710,38.4532 70.8593,38.4517 70.8536,38.4474 70.8498,38.4428 70.8430,38.4402 70.8341,38.4406 70.8180,38.4450 70.8089,38.4464 70.7773,38.4465 70.7611,38.4435 70.7542,38.4365 70.7418,38.4194 70.6833,38.4146 70.6649,38.4054 70.6649,38.3986 70.6848,38.3867 70.6767,38.3749 70.6414,38.3542 70.6321,38.3501 70.6093,38.3512 70.6000,38.3471 70.5958,38.3382 70.5956,38.3278 70.5967,38.3176 70.5966,38.3092 70.5831,38.2751 70.5730,38.2711 70.5594,38.2682 70.5472,38.2627 70.5379,38.2381 70.5085,38.1925 70.4826,38.1374 70.4703,38.1205 70.4601,38.1122 70.4260,38.1006 70.4154,38.0945 70.3712,38.0583 70.3263,38.0113 70.3180,38.0063 70.2938,37.9961 70.2887,37.9908 70.2838,37.9819 70.2727,37.9782 70.2609,37.9765 70.2539,37.9734 70.2504,37.9641 70.2502,37.9556 70.2537,37.9474 70.2615,37.9393 70.2381,37.9324 70.2147,37.9293 70.1922,37.9329 70.1721,37.9461 70.1605,37.9207 70.1652,37.8899 70.1792,37.8608 70.1960,37.8399 70.2075,37.8356 70.2403,37.8276 70.2472,37.8192 70.2499,37.8049 70.2565,37.7918 70.2656,37.7812 70.2751,37.7742 70.2696,37.7626 70.2718,37.7487 70.2819,37.7196 70.2831,37.7048 70.2805,37.6960 70.2770,37.6880 70.2751,37.6755 70.2626,37.6609 70.2577,37.6581 70.2536,37.6546 70.2539,37.6466 70.2552,37.6375 70.2539,37.6308 70.2483,37.6233 70.2461,37.6213 70.2410,37.6171 70.2377,37.6181 70.2184,37.6174 70.2165,37.6171 70.2019,37.5880 70.1994,37.5793 70.1927,37.5760 70.1579,37.5414 70.1291,37.5323 70.0991,37.5366 70.0692,37.5452 70.0417,37.5488 70.0480,37.5414 70.0169,37.5460 70.0076,37.5488 70.0042,37.5514 69.9985,37.5556 69.9947,37.5623 69.9895,37.5673 69.9766,37.5693 69.9554,37.5755 69.9445,37.5897 69.9352,37.6057 69.9188,37.6171 69.8952,37.6182 69.8533,37.6012 69.8329,37.5967 69.8230,37.5930 69.8127,37.5858 69.8022,37.5815 69.7918,37.5861 69.7845,37.5904 69.7622,37.5958 69.7543,37.5967 69.7296,37.5941 69.6873,37.5796 69.6650,37.5762 69.5287,37.5860 69.5087,37.5790 69.4914,37.5370 69.4697,37.5201 69.4254,37.4942 69.4218,37.4895 69.4156,37.4775 69.4117,37.4725 69.4040,37.4669 69.3896,37.4588 69.3845,37.4533 69.3784,37.4374 69.3763,37.4189 69.3770,37.3807 69.3789,37.3771 69.3883,37.3751 69.3912,37.3707 69.3909,37.3653 69.3885,37.3638 69.3858,37.3631 69.3845,37.3601 69.3849,37.3509 69.3864,37.3415 69.3894,37.3329 69.3946,37.3261 69.4031,37.3112 69.4097,37.2767 69.4179,37.2677 69.4099,37.2457 69.4269,37.2395 69.4452,37.2364 69.4421,37.2236 69.4077,37.1775 69.3912,37.1647 69.3508,37.1441 69.3348,37.1291 69.3239,37.1210 69.3121,37.1175 69.3086,37.1169 69.2856,37.1129 69.2658,37.1054 69.2457,37.1039 69.1510,37.1550 69.1457,37.1570 69.1236,37.1692 69.1143,37.1775 69.0964,37.2130 69.0784,37.2252 69.0556,37.2371 69.0358,37.2516 69.0210,37.2880 69.0055,37.3055 68.9852,37.3204 68.9654,37.3291 68.8972,37.3360 68.8937,37.3372 68.8879,37.3381 68.8851,37.3348 68.8903,37.3229 68.8968,37.3165 68.9130,37.3068 68.9176,37.3024 68.9211,37.2880 68.9158,37.2791 68.9047,37.2767 68.8903,37.2820 68.8770,37.2961 68.8680,37.3121 68.8568,37.3249 68.8358,37.3291 68.8138,37.3234 68.8102,37.3121 68.8220,37.2820 68.8246,37.2606 68.8204,37.2509 68.8085,37.2516 68.7713,37.2707 68.7596,37.2752 68.7465,37.2762 68.7259,37.2745 68.6869,37.2790 68.6689,37.2783 68.6575,37.2677 68.6627,37.2637 68.6655,37.2594 68.6712,37.2472 68.6486,37.2444 68.6364,37.2299 68.6308,37.2138 68.6269,37.2063 68.6088,37.2041 68.5714,37.1947 68.5515,37.1926 68.5465,37.1882 68.5327,37.1690 68.5239,37.1647 68.5133,37.1640 68.4658,37.1554 68.4037,37.1516 68.4180,37.1283 68.4115,37.1134 68.3919,37.1054 68.3658,37.1032 68.3461,37.1069 68.3267,37.1130 68.3073,37.1142 68.2883,37.1032 68.2808,37.0867 68.2816,37.0665 68.2883,37.0244 68.2778,37.0101 68.2537,37.0102 68.2126,37.0213 68.1864,37.0183 68.1680,37.0061 68.1520,36.9928 68.1334,36.9865 68.1211,36.9803 68.0549,36.9346 68.0447,36.9292 68.0327,36.9252 68.0248,36.9255 68.0202,36.9257 68.0111,36.9309 68.0061,36.9387 68.0020,36.9475 67.9962,36.9558 67.9618,36.9899 67.9529,36.9962 67.9293,37.0062 67.9184,37.0138 67.9025,37.0344 67.8920,37.0520 67.8781,37.0644 67.8329,37.0731 67.8080,37.0832 67.7854,37.0965 67.7731,37.1100 67.7720,37.1250 67.7805,37.1889 67.7760,37.2075 67.7643,37.2209 67.7466,37.2294 67.7259,37.2335 67.6902,37.2323 67.6775,37.2335 67.6664,37.2380 67.6446,37.2512 67.6332,37.2541 67.6218,37.2529 67.6027,37.2483 67.5923,37.2472 67.5860,37.2426 67.5799,37.2327 67.5722,37.2232 67.5614,37.2199 67.5450,37.2315 67.5261,37.2729 67.5031,37.2820 67.4824,37.2774 67.4640,37.2663 67.4311,37.2398 67.4113,37.2279 67.3912,37.2196 67.3695,37.2147 67.3452,37.2130 67.3196,37.2084 67.2815,37.1887 67.2591,37.1851 67.2368,37.1924 67.2253,37.2077 67.2180,37.2263 67.2080,37.2435 67.1878,37.2582 67.1435,37.2719 67.1233,37.2820 67.1139,37.2972 67.0974,37.3406 67.0851,37.3496 67.0641,37.3546 67.0241,37.3775 67.0059,37.3844 66.9576,37.3852 66.8658,37.3679 66.7350,37.3633 66.7244,37.3601 66.7047,37.3465 66.6941,37.3434 66.6670,37.3443 66.6547,37.3461 66.5886,37.3685 66.5646,37.3707 66.5390,37.3691 66.5196,37.3642 66.5029,37.3557 66.4852,37.3434 66.4699,37.3298 66.4615,37.3244 66.4511,37.3229 66.4387,37.3279 66.4236,37.3457 66.4135,37.3496 66.3896,37.3472 66.3207,37.3291 66.2944,37.3312 66.2744,37.3433 66.2577,37.3568 66.2508,37.3597 66.2419,37.3633 66.2325,37.3654 66.2185,37.3748 66.2077,37.3769 66.1746,37.3755 66.1631,37.3769 66.1429,37.3851 66.1256,37.3987 66.0979,37.4284 66.0797,37.4409 65.8552,37.5079 65.8361,37.5192 65.8291,37.5256 65.8211,37.5352 65.8043,37.5653 65.7965,37.5693 65.7765,37.5729 65.7614,37.5784 65.7589,37.5641 65.7527,37.5379 65.7394,37.5291 65.6983,37.5294 65.6810,37.5264 65.6688,37.5206 65.6587,37.5103 65.6483,37.4941 65.6483,37.4940 65.6483,37.4939 65.6482,37.4938 65.6358,37.4741 65.6257,37.4528 65.6210,37.4304 65.6289,37.3875 65.6295,37.3654 65.6241,37.3451 65.6113,37.3311 65.5832,37.3081 65.5369,37.2571 65.5014,37.2423 65.4879,37.2420 65.1623,37.2353 65.0631,37.2332 64.9891,37.2137 64.8079,37.1355 64.7788,37.1180 64.7602,37.0926 64.7556,37.0536 64.7746,36.9776 64.7788,36.9385 64.7652,36.9046 64.6214,36.6926 64.6048,36.6606 64.5920,36.6211 64.5888,36.6005 64.5890,36.5802 64.5937,36.5598 64.6078,36.5216 64.6105,36.5009 64.6059,36.4611 64.5944,36.4242 64.5767,36.3896 64.4982,36.2914 64.4777,36.2716 64.4446,36.2500 64.4109,36.2399 64.3372,36.2260 64.3189,36.2198 64.3037,36.2115 64.2919,36.1994 64.2761,36.1592 64.2661,36.1525 64.2537,36.1548 64.2371,36.1604 64.1959,36.1659 64.1587,36.1603 64.1234,36.1461 64.0573,36.1052 64.0446,36.0923 64.0362,36.0764 64.0364,36.0586 64.0456,36.0113 64.0451,35.9987 63.9500,36.0289 63.9220,36.0337 63.9063,36.0317 63.8898,36.0296 63.8599,36.0221 63.7659,35.9773 63.7257,35.9689 63.6023,35.9627 63.5821,35.9590 63.5634,35.9506 63.5496,35.9390 63.5259,35.9127 63.5111,35.9018 63.4302,35.8710 63.3429,35.8563 63.1253,35.8602 63.1041,35.8565 63.0999,35.8529 63.0886,35.8434 63.0844,35.8261 63.0913,35.8133 63.0937,35.8103 63.1013,35.8006 63.1057,35.7829 63.1120,35.7699 63.1633,35.7323 63.1773,35.7169 63.1839,35.7123 63.2094,35.7045 63.2144,35.6993 63.2136,35.6923 63.2077,35.6832 63.1799,35.6665 63.1032,35.6460 63.0766,35.6247 63.0749,35.6098 63.0774,35.5588 63.0806,35.5465 63.0972,35.5355 63.1007,35.5250 63.0905,35.4935 63.0863,35.4557 63.0802,35.4371 63.0668,35.4256 63.0471,35.4214 63.0370,35.4206 63.0055,35.4184 62.9853,35.4146 62.9182,35.3882 62.8276,35.3293 62.8231,35.3275 62.7605,35.3024 62.7342,35.2807 62.7216,35.2664 62.7086,35.2560 62.6936,35.2484 62.6211,35.2227 62.6045,35.2194 62.5956,35.2206 62.5662,35.2308 62.5554,35.2304 62.5455,35.2280 62.5355,35.2274 62.5246,35.2322 62.4589,35.2819 62.4319,35.2806 62.3993,35.2559 62.3020,35.1475 62.2862,35.1406 62.2757,35.1510 62.2569,35.1872 62.2510,35.2023 62.2526,35.2428 62.2512,35.2604 62.2443,35.2781 62.2337,35.2938 62.2190,35.3063 62.1639,35.3262 62.1363,35.3414 62.0338,35.4240 62.0075,35.4389 61.9777,35.4509 61.9194,35.4518 61.7990,35.4175 61.7396,35.4138 61.6047,35.4306 61.5387,35.4523 61.4927,35.4942 61.4277,35.5428 61.4126,35.5483 61.4012,35.5498 61.3932,35.5536 61.3869,35.5595 61.3803,35.5673 61.3800,35.5713 61.3839,35.5821 61.3835,35.5865 61.3677,35.5980 61.3655,35.5985 61.3639,35.5982 61.3515,35.6071 61.3601,35.6184 61.3609,35.6210 61.3515,35.6278 61.3442,35.6309 61.3357,35.6309 61.2833,35.6226 61.2697,35.6185 61.2454,35.6493 61.2317,35.6719 61.2292,35.6986 61.2331,35.7046 61.2467,35.7155 61.2497,35.7225 61.2490,35.7402 61.2497,35.7458 61.2563,35.7695 61.2561,35.7794 61.2497,35.7867 61.2561,35.8091 61.2555,35.8254 61.2519,35.8404 61.2474,35.8762 61.2410,35.8939 61.2322,35.9107 61.2218,35.9245 61.2058,35.9405 61.1883,35.9536 61.1681,35.9624 61.1436,35.9655 61.1298,35.9705 61.1414,35.9824 61.1618,35.9959 61.1740,36.0065 61.1746,36.0158 61.1711,36.0359 61.1740,36.0480 61.1803,36.0528 61.1897,36.0558 61.1982,36.0608 61.2020,36.0716 61.2024,36.0807 61.2042,36.0906 61.2073,36.0995 61.2122,36.1064 61.2228,36.1175 61.2247,36.1237 61.2231,36.1288 61.2205,36.1589 61.2055,36.2211 61.1909,36.2406 61.1876,36.2503 61.1872,36.2735 61.1854,36.2840 61.1814,36.2945 61.1773,36.3004 61.1711,36.3064 61.1631,36.3116 61.1535,36.3149 61.1562,36.3219 61.1577,36.3247 61.1609,36.3286 61.1467,36.3573 61.1525,36.4063 61.1740,36.4868 61.1680,36.5018 61.1663,36.5138 61.1707,36.5244 61.1769,36.5320 61.1822,36.5416 61.1862,36.5528 61.1876,36.5651 61.1860,36.5777 61.1822,36.5869 61.1740,36.6023 61.1658,36.6363 61.1252,36.6408 61.0755,36.6478 60.9729,36.6463 60.8544,36.6446 60.6411,36.6415 60.5012,36.6395 60.3423,36.6371 60.3092,36.6520 60.2887,36.6811 60.2596,36.7424 60.2385,36.7697 60.1326,36.8734 60.0864,36.9300 60.0489,36.9940 60.0192,37.0258 59.9816,37.0388 59.8995,37.0506 59.8628,37.0678 59.7972,37.1122 59.6532,37.1497 59.6426,37.1502 59.6332,37.1463 59.6215,37.1315 59.6145,37.1255 59.6050,37.1239 59.5915,37.1323 59.5846,37.1489 59.5799,37.1678 59.5727,37.1834 59.5560,37.1978 59.5412,37.1998 59.5095,37.1898 59.5012,37.1902 59.4927,37.1936 59.4847,37.1988 59.4782,37.2041 59.4617,37.2076 59.4588,37.2148 59.4618,37.2230 59.4631,37.2297 59.4645,37.2325 59.4681,37.2358 59.4694,37.2407 59.4635,37.2474 59.4447,37.2642 59.3820,37.3057 59.3704,37.3194 59.3507,37.3884 59.3483,37.4093 59.3517,37.4204 59.3579,37.4303 59.3620,37.4392 59.3592,37.4475 59.3532,37.4584 59.3563,37.4806 59.3517,37.4938 59.3323,37.5151 59.3123,37.5303 59.2892,37.5352 59.2331,37.5147 59.2117,37.5163 59.0783,37.5927 59.0456,37.6196 59.0346,37.6245 59.0055,37.6280 58.9922,37.6315 58.9781,37.6395 58.9387,37.6539 58.8610,37.6681 58.8011,37.6947 58.7956,37.6877 58.7931,37.6728 58.7798,37.6596 58.7693,37.6568 58.7590,37.6562 58.7377,37.6594 58.7264,37.6594 58.7192,37.6548 58.7129,37.6488 58.7043,37.6446 58.6817,37.6427 58.6591,37.6454 58.6159,37.6595 58.5657,37.6949 58.5493,37.7016 58.5298,37.7004 58.5143,37.6915 58.5023,37.6774 58.4931,37.6607 58.4797,37.6441 58.4623,37.6375 58.3718,37.6304 58.3578,37.6333 58.3315,37.6483 58.3188,37.6531 58.2409,37.6623 58.2239,37.6675 58.2068,37.6787 58.2020,37.6901 58.2019,37.7040 58.1993,37.7222 58.1958,37.7296 58.1799,37.7530 58.1791,37.7608 58.1813,37.7679 58.1812,37.7749 58.1735,37.7816 58.1567,37.7882 58.1406,37.7911 58.1069,37.7934 58.0409,37.8057 57.8841,37.8653 57.8495,37.8727 57.8333,37.8717 57.8164,37.8686 57.8000,37.8676 57.7850,37.8726 57.7791,37.8788 57.7700,37.8939 57.7630,37.8994 57.7547,37.9010 57.7384,37.8980 57.7348,37.8983 57.7299,37.8986 57.7171,37.9051 57.7046,37.9137 57.6912,37.9203 57.6761,37.9205 57.6611,37.9174 57.6123,37.9166 57.5614,37.9282 57.5446,37.9300 57.5277,37.9278 57.5121,37.9241 57.4963,37.9223 57.3524,37.9675 57.3271,37.9941 57.3468,38.0469 57.3493,38.0636 57.3443,38.0811 57.3229,38.1051 57.3114,38.1350 57.2786,38.1629 57.2669,38.1769 57.2488,38.2115 57.2258,38.2424 57.2216,38.2512 57.2211,38.2586 57.2183,38.2651 57.2073,38.2707 57.1859,38.2765 57.1749,38.2776 57.1640,38.2765 57.1466,38.2698 57.1348,38.2597 57.1147,38.2321 57.1028,38.2220 57.0704,38.2051 57.0565,38.1952 57.0384,38.1873 57.0180,38.1898 56.9784,38.2027 56.8279,38.2250 56.8124,38.2290 56.7782,38.2445 56.7390,38.2696 56.7294,38.2711 56.6815,38.2646 56.6013,38.2369 56.5852,38.2346 56.5718,38.2395 56.5592,38.2474 56.5452,38.2541 56.5282,38.2574 56.4365,38.2551 56.4001,38.2441 56.3664,38.2255 56.3034,38.1794 56.2971,38.1658 56.3242,38.1411 56.3290,38.1238 56.3255,38.1052 56.3155,38.0895 56.2997,38.0802 56.2141,38.0688 56.1978,38.0706 56.1667,38.0808 56.1619,38.0824 56.1215,38.0865 55.9784,38.0659 55.9630,38.0665 55.9491,38.0701 55.9219,38.0814 55.9050,38.0856 55.8541,38.0860 55.8394,38.0899 55.8003,38.1078 55.7384,38.1186 55.7087,38.1187 55.5110,38.0858 55.4474,38.0837 55.4231,38.0759 55.3488,38.0305 55.3281,38.0221 55.3075,38.0088 55.2961,38.0076 55.2505,37.9954 55.2288,37.9858 55.2197,37.9700 55.2074,37.9662 55.1496,37.9575 55.1303,37.9523 55.1217,37.9447 55.1108,37.9265 55.1035,37.9188 55.0928,37.9155 55.0787,37.9137 55.0666,37.9084 55.0614,37.8948 55.0535,37.8844 55.0068,37.8431 54.8566,37.7611 54.8267,37.7353 54.8136,37.7186 54.8082,37.7028 54.8037,37.6829 54.7873,37.6519 54.7883,37.6308 54.7918,37.6254 54.8036,37.6169 54.8082,37.6103 54.8094,37.6033 54.8082,37.5793 54.8051,37.5650 54.7914,37.5399 54.7883,37.5246 54.7837,37.5175 54.7583,37.5006 54.7108,37.4757 54.6983,37.4663 54.6786,37.4600 54.6540,37.4389 54.6390,37.4333 54.6169,37.4330 54.5560,37.4436 54.5333,37.4408 54.3642,37.3627 54.3285,37.3533 54.3064,37.3532 54.2833,37.3557 54.2615,37.3548 54.2430,37.3450 54.2245,37.3307 54.2064,37.3246 54.1866,37.3237 54.0048,37.3364 53.9305,37.3416 53.8224,37.3542 53.6627,37.3491 53.3114,37.6411 52.9602,37.9332 52.6089,38.2252 52.2577,38.5172 51.9065,38.8092 51.5552,39.1012 51.4532,39.5077 51.3513,39.9142 51.2493,40.3206 51.1473,40.7271 51.0453,41.1335 50.9433,41.5400 50.8400,41.6517 50.7183,41.7967 50.7033,41.8433 50.6983,41.8550 50.6867,41.8867 50.6450,41.9300 50.6333,41.9433 50.6133,41.9567 50.6000,41.9650 50.4233,42.0867 50.3933,42.1083 50.3083,42.1733 50.2917,42.1850 50.1800,42.2733 50.1683,42.2833 50.1150,42.3283 50.1067,42.3367 50.0900,42.3483 50.0633,42.3717 50.0283,42.4083 50.0050,42.4300 49.8883,42.5600 50.0000,42.7500 49.7492,42.9400 49.4983,43.1300 49.4917,43.1367 49.4650,43.1717 49.4500,43.1933 49.3567,43.2633 49.3433,43.2750 49.3350,43.2833 49.0000,43.3200 49.0000,43.6933 49.0000,44.0667 49.3000,44.0667 49.6000,44.0667 49.6000,44.3333 49.3442,44.3333 49.0883,44.3333 49.1333,44.4233 49.1550,44.6767 49.1633,44.8333 49.1650,44.9183 49.1733,45.0400 49.1750,45.0983 49.2783,45.2050 49.2967,45.2250 49.3533,45.2883 49.4167,45.3550 49.4250,45.3583 49.6051,45.5491 49.7852,45.7398 50.0167,45.9850 49.9517,46.0017 49.8500,46.0700 49.8283,46.0850 49.7783,46.1183 49.7317,46.1567 49.7267,46.1617 49.7100,46.1767 49.7017,46.1867 49.6217,46.1783 49.6000,46.1767 49.5450,46.1800 49.5048,46.1922 49.4263,46.2281 49.3929,46.2399 49.3637,46.2477 49.3065,46.2629 49.3060,46.2630 49.3060,46.2631 49.2959,46.2747 49.2638,46.2933 49.2271,46.3279 49.0332,46.4049 48.9599,46.4453 48.9180,46.4743 48.8970,46.4822 48.8687,46.4824 48.8441,46.4785 48.8196,46.4793 48.7586,46.5131 48.7329,46.5340 48.7050,46.5504 48.6652,46.5572 48.5732,46.5583 48.5394,46.5680 48.5630,46.5913 48.5469,46.5993 48.5419,46.6133 48.5392,46.6280 48.5300,46.6382 48.4935,46.6535 48.4740,46.6592 48.4551,46.6608 48.4791,46.6835 48.5058,46.7326 48.5567,46.7617 48.6182,46.7704 48.6766,46.7580 48.6973,46.7451 48.7127,46.7288 48.7395,46.6906 48.7640,46.6828 48.9169,46.7026 48.9481,46.7199 49.0063,46.7691 49.0032,46.7725 48.6973,47.1010 48.5462,47.3694 48.5358,47.3935 48.5251,47.4102 48.5103,47.4174 48.4732,47.4204 48.4375,47.4292 48.4111,47.4458 48.3610,47.4929 48.3606,47.4931 48.1744,47.7129 48.1125,47.7485 48.0445,47.7697 47.6497,47.7656 47.4353,47.8344 47.4122,47.8359 47.3942,47.8268 47.3888,47.8119 47.3894,47.7516 47.3829,47.7054 47.3742,47.6858 47.3597,47.6833 47.1745,47.7705 47.1406,47.7927 47.1238,47.8080 47.1195,47.8198 47.1252,47.8321 47.1383,47.8496 47.1452,47.8558 47.1517,47.8591 47.1567,47.8632 47.1587,47.8715 47.1553,47.8774 47.1217,47.9154 47.0512,47.9746 47.0442,47.9862 47.0584,47.9945 47.1371,48.0273 47.1782,48.0518 47.1920,48.0718 47.1739,48.0842 47.1195,48.0883 47.1036,48.1012 47.1041,48.1192 47.1116,48.1362 47.1165,48.1539 47.1088,48.1740 47.1026,48.1803 47.0803,48.1960 47.0752,48.2051 47.0815,48.2118 47.0920,48.2173 47.0986,48.2226 47.1121,48.2416 47.1121,48.2422 47.1118,48.2510 47.0989,48.2654 47.0783,48.2753 46.9792,48.2940 46.7293,48.3521 46.4793,48.4102 46.4786,48.4102 46.4783,48.4106 46.4786,48.4112 46.4793,48.4119 46.6166,48.6630 46.7538,48.9141 46.7780,48.9360 46.8129,48.9538 46.8881,48.9805 46.9110,48.9928 46.9300,49.0040 46.9792,49.0473 47.0209,49.0968 47.0400,49.1503 47.0286,49.2015 46.9792,49.2443 46.8307,49.3183 46.7751,49.3325 46.8375,49.5764 46.8999,49.8203 46.9226,49.8614 46.9586,49.8841 47.1774,49.9472 47.2456,49.9924 47.3087,50.0448 47.3286,50.0730 47.3276,50.1093 47.2731,50.1584 47.2651,50.1863 47.2763,50.1999 47.3126,50.2224 47.3223,50.2374 47.3170,50.2529 47.3032,50.2635 47.2948,50.2754 47.3057,50.2949 47.3229,50.3045 47.3922,50.3232 47.4063,50.3342 47.4389,50.3832 47.4698,50.4118 47.5115,50.4369 47.5569,50.4526 47.5993,50.4527 47.6247,50.4408 47.6900,50.3863 47.7349,50.3701 47.7491,50.3602 47.7603,50.3472 47.7669,50.3372 47.7765,50.3298 47.7960,50.3248 47.8082,50.3199 47.8545,50.2850 47.8741,50.2664 47.9134,50.2439 47.9536,50.2049 47.9932,50.1818 48.0004,50.1697 48.0051,50.1560 48.0122,50.1421 48.0247,50.1313 48.0746,50.1053 48.0964,50.0785 48.1060,50.0506 48.1125,50.0220 48.1253,49.9930 48.1322,49.9837 48.1424,49.9638 48.1493,49.9549 48.1609,49.9465 48.2004,49.9250 48.2199,49.9015 48.2271,49.8795 48.2393,49.8648 48.2740,49.8631 48.3029,49.8667 48.3122,49.8636 48.3595,49.8340 48.4176,49.8117 48.4299,49.8097 48.4428,49.8150 48.4659,49.8358 48.4791,49.8432 48.6835,49.8955 48.7846,49.9334 48.8620,49.9929 48.8782,50.0100 48.8857,50.0199 48.8859,50.0304 48.8741,50.0698 48.8655,50.0862 48.8518,50.0973 48.7828,50.1115 48.7810,50.1376 48.7890,50.1730 48.7710,50.2110 48.7289,50.2654 48.7013,50.3346 48.6744,50.4785 48.6787,50.5485 48.6734,50.5795 48.6485,50.6016 48.5974,50.6080 48.5729,50.6169 48.5683,50.6365 48.5840,50.6496 48.6088,50.6479 48.7396,50.5975 48.7863,50.5906 48.8304,50.5960 49.0127,50.6834 49.1024,50.7580 49.1441,50.7817 49.2837,50.8037 49.3694,50.8268 49.4084,50.8483 49.4237,50.8821 49.4055,50.9135 49.3715,50.9394 49.3474,50.9643 49.3591,50.9927 49.3833,51.0194 49.3927,51.0342 49.4010,51.0671 49.4106,51.0855 49.4231,51.1020 49.4365,51.1123 49.4601,51.1162 49.5397,51.1008 49.7791,51.1022 49.7959,51.1096 49.8428,51.1507 49.9869,51.2298 50.0288,51.2430 50.2075,51.2659 50.3254,51.3035 50.3423,51.3127 50.3489,51.3226 50.3474,51.3352 50.3404,51.3529 50.3376,51.3720 50.3467,51.3812 50.3619,51.3874 50.3762,51.3970 50.3729,51.4010 50.3644,51.4069 50.3596,51.4133 50.3674,51.4190 50.3796,51.4212 50.4392,51.4230 50.4575,51.4269 50.4711,51.4361 50.4790,51.4537 50.5027,51.4561 50.5183,51.4598 50.5272,51.4701 50.5314,51.4927 50.5222,51.5508 50.5254,51.5656 50.5428,51.5774 50.5619,51.5807 50.5757,51.5884 50.5776,51.6134 50.5817,51.6353 50.5998,51.6347 50.6393,51.6162 50.6858,51.6156 50.6942,51.6112 50.6750,51.5944 50.6587,51.5762 50.6709,51.5675 50.6965,51.5656 50.7200,51.5674 50.7643,51.5787 50.7907,51.5973 50.7945,51.6260 50.7474,51.7090 50.7442,51.7424 50.8393,51.7455 50.8578,51.7353 50.8737,51.7219 50.8843,51.7056 50.9007,51.6871 50.9254,51.6797 51.1698,51.6695 51.1902,51.6741 51.2126,51.6818 51.2339,51.6855 51.2518,51.6785 51.2762,51.6516 51.2884,51.6429 51.3085,51.6371 51.3525,51.6362 51.3719,51.6296 51.3820,51.6098 51.3811,51.5871 51.3732,51.5716 51.3590,51.5615 51.3392,51.5550 51.2417,51.5437 51.2365,51.5359 51.2478,51.5211 51.2638,51.5049 51.2730,51.4929 51.2730,51.4926 51.3042,51.4716 51.3795,51.4671 51.4619,51.4753 51.5150,51.4927 51.5321,51.5084 51.5447,51.5241 51.5598,51.5346 51.5843,51.5349 51.6100,51.5277 51.6205,51.5187 51.6230,51.5042 51.6244,51.4810 51.6474,51.4512 51.6933,51.4541 51.7443,51.4734 51.7823,51.4929 51.7830,51.5298 51.7678,51.5630 51.7647,51.5933 51.8202,51.6330 51.8509,51.6617 51.8692,51.6731 51.8968,51.6797 51.9248,51.6783 51.9525,51.6710 51.9786,51.6604 52.0046,51.6549 52.0353,51.6524 52.0659,51.6534 52.0918,51.6587 52.1110,51.6703 52.1333,51.7020 52.1480,51.7161 52.1741,51.7252 52.2302,51.7225 52.2582,51.7242 52.2796,51.7353 52.2922,51.7656 52.3078,51.7745 52.3349,51.7637 52.3521,51.7302 19,-3.0,Esperanza, Vicecomodoro Marambio Stations -56.4109,-64.4177 -56.8896,-64.4177 -57.3683,-64.4177 -57.3664,-63.9940 -57.3646,-63.5702 -57.3628,-63.1465 -56.8841,-63.1465 -56.4054,-63.1465 -56.4068,-63.4764 -56.4083,-63.8062 -56.6091,-63.8372 -56.6381,-63.9069 -56.7310,-63.9761 -56.7313,-63.9993 -56.6960,-64.0099 -56.5584,-64.0141 -56.4529,-64.0273 -56.4093,-64.0374 -56.4109,-64.4177 98,7.0,Arctic Ocean 112.5000,90.0000 112.5004,89.5000 112.5007,89.0000 112.5011,88.5000 112.5014,88.0000 112.5018,87.5000 112.5021,87.0000 112.5025,86.5000 112.5028,86.0000 112.5032,85.5000 112.5035,85.0000 112.5039,84.5000 112.5042,84.0000 112.5046,83.5000 112.5049,83.0000 112.5053,82.5000 112.5056,82.0000 112.5060,81.5000 112.0220,81.5014 111.5380,81.5029 111.0540,81.5043 110.5700,81.5057 110.0860,81.5072 109.6020,81.5086 109.1180,81.5100 108.6340,81.5115 108.1501,81.5129 107.6661,81.5143 107.1821,81.5158 106.6981,81.5172 106.2141,81.5186 105.7301,81.5200 105.2461,81.5215 104.7621,81.5229 104.2781,81.5243 103.7941,81.5258 103.3101,81.5272 102.8261,81.5286 102.3421,81.5301 101.8581,81.5315 101.3741,81.5329 100.8901,81.5344 100.4062,81.5358 99.9222,81.5372 99.4382,81.5387 98.9542,81.5401 98.4702,81.5415 97.9862,81.5430 97.5022,81.5444 97.5017,81.5444 97.5012,81.5444 97.5026,82.0418 97.5039,82.5392 97.5052,83.0366 97.5066,83.5339 97.5079,84.0313 97.5093,84.5287 97.5106,85.0261 97.5119,85.5235 97.5133,86.0209 97.5146,86.5183 97.5159,87.0157 97.5173,87.5131 97.5186,88.0104 97.5200,88.5078 97.5213,89.0052 97.5226,89.5026 97.5240,90.0000 98.0232,90.0000 98.5224,90.0000 99.0216,90.0000 99.5208,90.0000 100.0200,90.0000 100.5192,90.0000 101.0184,90.0000 101.5176,90.0000 102.0168,90.0000 102.5160,90.0000 103.0152,90.0000 103.5144,90.0000 104.0136,90.0000 104.5128,90.0000 105.0120,90.0000 105.5112,90.0000 106.0104,90.0000 106.5096,90.0000 107.0088,90.0000 107.5080,90.0000 108.0072,90.0000 108.5064,90.0000 109.0056,90.0000 109.5048,90.0000 110.0040,90.0000 110.5032,90.0000 111.0024,90.0000 111.5016,90.0000 112.0008,90.0000 112.5000,90.0000 194,-10.0,Antarctica/ -142.5293,-75.2362 -142.5293,-75.6991 -142.5293,-76.1619 -142.5293,-76.6247 -142.5293,-77.0875 -142.5293,-77.5504 -142.5293,-78.0132 -142.5293,-78.4760 -142.5293,-78.9305 -142.5293,-79.3851 -142.5293,-79.8396 -142.5293,-80.2942 -142.5293,-80.7487 -142.5293,-81.2033 -142.5293,-81.6578 -142.5293,-82.1124 -142.5293,-82.5669 -142.5293,-83.0215 -142.5293,-83.4760 -142.5293,-83.9305 -142.5293,-84.3851 -142.5293,-84.8396 -142.5293,-85.2942 -142.5293,-85.7487 -142.5293,-86.2033 -142.5293,-86.6578 -142.5293,-87.1124 -142.5293,-87.5669 -142.5293,-88.0215 -142.5293,-88.4760 -142.5293,-88.8570 -142.5293,-89.2380 -142.5293,-89.6190 -142.5293,-90.0000 -142.9698,-90.0000 -143.4103,-90.0000 -143.8508,-90.0000 -144.2913,-90.0000 -144.7318,-90.0000 -145.1723,-90.0000 -145.6128,-90.0000 -146.0533,-90.0000 -146.4938,-90.0000 -146.9343,-90.0000 -147.3748,-90.0000 -147.8153,-90.0000 -148.2558,-90.0000 -148.6963,-90.0000 -149.1368,-90.0000 -149.5773,-90.0000 -150.0178,-90.0000 -150.4583,-90.0000 -150.8988,-90.0000 -151.3393,-90.0000 -151.7798,-90.0000 -152.2203,-90.0000 -152.6608,-90.0000 -153.1013,-90.0000 -153.5418,-90.0000 -153.9823,-90.0000 -154.4228,-90.0000 -154.8633,-90.0000 -155.3038,-90.0000 -155.7443,-90.0000 -156.1848,-90.0000 -156.6253,-90.0000 -157.0658,-90.0000 -157.5063,-90.0000 -157.5063,-89.5222 -157.5063,-89.0444 -157.5063,-88.5667 -157.5063,-88.0889 -157.5063,-87.6111 -157.5063,-87.1333 -157.5063,-86.6556 -157.5063,-86.1778 -157.5063,-85.7000 -157.5063,-85.2455 -157.5063,-84.7909 -157.5063,-84.3364 -157.5063,-83.8818 -157.5063,-83.4273 -157.5063,-82.9727 -157.5063,-82.5182 -157.5063,-82.0636 -157.5063,-81.6091 -157.5063,-81.1545 -157.5063,-80.7000 -157.5063,-80.2236 -157.5063,-79.7472 -157.5063,-79.2708 -157.5063,-78.7944 -157.5063,-78.3180 -157.5063,-77.8416 -157.5063,-77.3652 -157.5063,-76.8888 -157.2837,-76.9164 -157.1747,-76.9243 -157.0676,-76.9272 -156.9229,-76.9211 -156.7314,-76.8958 -156.5949,-76.8823 -156.3668,-76.8718 -155.8982,-76.8657 -155.7118,-76.8687 -155.5177,-76.8823 -155.2343,-76.9174 -155.1907,-76.9197 -154.8975,-76.9086 -154.7383,-76.8907 -154.5060,-76.8753 -154.3381,-76.8703 -154.1647,-76.8721 -153.9108,-76.8865 -153.6613,-76.9146 -153.4805,-76.9493 -153.2641,-77.0076 -152.9716,-77.0151 -152.7783,-77.0274 -152.5647,-77.0550 -152.3408,-77.1050 -152.0799,-77.1148 -151.9529,-77.0932 -151.6635,-77.0592 -151.6379,-77.0526 -151.6666,-77.0043 -151.6613,-76.9632 -151.6358,-76.9334 -151.5504,-76.8737 -151.6908,-76.7983 -151.7184,-76.7697 -151.7278,-76.7407 -151.7031,-76.6901 -151.6306,-76.6415 -151.5522,-76.6095 -151.4749,-76.5862 -151.2857,-76.5474 -151.0868,-76.5246 -150.7016,-76.5055 -150.6114,-76.4894 -150.5716,-76.4712 -150.5480,-76.4484 -150.5361,-76.3629 -150.4923,-76.3061 -150.3955,-76.2464 -150.2664,-76.1974 -150.1011,-76.1557 -149.9061,-76.1240 -149.6990,-76.1042 -149.4669,-76.0967 -149.3551,-76.0370 -149.2057,-75.9886 -148.9897,-75.9435 -148.7501,-75.9101 -148.5448,-75.8961 -148.2932,-75.8909 -148.0730,-75.8932 -147.8694,-75.9063 -147.6217,-75.8776 -147.4124,-75.8665 -147.3081,-75.8660 -147.0926,-75.8750 -147.0222,-75.8743 -146.8197,-75.7842 -146.7776,-75.7428 -146.7971,-75.6984 -146.9018,-75.6369 -146.9413,-75.5966 -146.9465,-75.5537 -146.9134,-75.5101 -146.8398,-75.4640 -146.7342,-75.4228 -146.5873,-75.3855 -146.4011,-75.3491 -146.2138,-75.3245 -146.0135,-75.3108 -145.8213,-75.3082 -145.6112,-75.3173 -145.4241,-75.3350 -145.2705,-75.3577 -144.9708,-75.4201 -144.8057,-75.4606 -144.5884,-75.4302 -144.2324,-75.4143 -143.9249,-75.3817 -143.6174,-75.3490 -143.4301,-75.3410 -143.2373,-75.3439 -143.1104,-75.3053 -142.9597,-75.2723 -142.7992,-75.2507 -142.7317,-75.2460 -142.6072,-75.2372 -142.5293,-75.2362 90,-12.0,Antarctica/ -179.5587,-90.0000 -180.0000,-90.0000 -180.0000,-89.6667 -180.0000,-89.3333 -180.0000,-89.0000 -180.0000,-88.6667 -180.0000,-88.3333 -180.0000,-88.0000 -180.0000,-87.6667 -180.0000,-87.3333 -180.0000,-87.0000 -180.0000,-86.7500 -180.0000,-86.5000 -180.0000,-86.1667 -180.0000,-85.8333 -180.0000,-85.5000 -180.0000,-85.2143 -180.0000,-84.7311 -180.0000,-84.2479 -180.0000,-83.7647 -180.0000,-83.2815 -180.0000,-82.7982 -180.0000,-82.3150 -180.0000,-81.8318 -180.0000,-81.3486 -180.0000,-80.8653 -180.0000,-80.3821 -180.0000,-79.8989 -180.0000,-79.4157 -180.0000,-78.9324 -180.0000,-78.4492 -180.0000,-77.9660 -179.5415,-78.0042 -179.0830,-78.0424 -178.6245,-78.0806 -178.1660,-78.1188 -177.7075,-78.1570 -177.2490,-78.1953 -176.7905,-78.2335 -176.3181,-78.2483 -175.8457,-78.2632 -175.3732,-78.2781 -174.9008,-78.2929 -174.4284,-78.3078 -173.9560,-78.3227 -173.4836,-78.3375 -173.0111,-78.3524 -172.5387,-78.3673 -172.5387,-78.7754 -172.5387,-79.1836 -172.5387,-79.5918 -172.5387,-80.0000 -172.5387,-80.4714 -172.5386,-80.9429 -172.5386,-81.4143 -172.5386,-81.8857 -172.5386,-82.3571 -172.5386,-82.8286 -172.5385,-83.3000 -172.5385,-83.7545 -172.5385,-84.2091 -172.5385,-84.6636 -172.5385,-85.1182 -172.5385,-85.5727 -172.5384,-86.0273 -172.5384,-86.4818 -172.5384,-86.9364 -172.5384,-87.3909 -172.5384,-87.8455 -172.5384,-88.3000 -172.5383,-88.7250 -172.5383,-89.1500 -172.5383,-89.5750 -172.5383,-90.0000 -172.9397,-90.0000 -173.3809,-90.0000 -173.8222,-90.0000 -174.2635,-90.0000 -174.7047,-90.0000 -175.1460,-90.0000 -175.5873,-90.0000 -176.0286,-90.0000 -176.4698,-90.0000 -176.9111,-90.0000 -177.3524,-90.0000 -177.7936,-90.0000 -178.2349,-90.0000 -178.6762,-90.0000 -179.1175,-90.0000 -179.5587,-90.0000 294,-7.0,Antarctica/ -97.5371,-71.6801 -97.5374,-72.1570 -97.5377,-72.6339 -97.5380,-73.1109 -97.5383,-73.5878 -97.5385,-74.0647 -97.5388,-74.5416 -97.5391,-75.0185 -97.5394,-75.4731 -97.5397,-75.9276 -97.5400,-76.3822 -97.5402,-76.8367 -97.5405,-77.2912 -97.5408,-77.7458 -97.5411,-78.2003 -97.5413,-78.6549 -97.5416,-79.1094 -97.5419,-79.5640 -97.5422,-80.0185 -97.5425,-80.4899 -97.5427,-80.9614 -97.5430,-81.4328 -97.5433,-81.9042 -97.5436,-82.3757 -97.5439,-82.8471 -97.5442,-83.3185 -97.5445,-83.7731 -97.5447,-84.2276 -97.5450,-84.6822 -97.5453,-85.1367 -97.5456,-85.5912 -97.5458,-86.0458 -97.5461,-86.5003 -97.5464,-86.9549 -97.5467,-87.4094 -97.5469,-87.8640 -97.5472,-88.3185 -97.5475,-88.7389 -97.5477,-89.1593 -97.5480,-89.5796 -97.5482,-90.0000 -97.9881,-90.0000 -98.4280,-90.0000 -98.8678,-90.0000 -99.3077,-90.0000 -99.7475,-90.0000 -100.1874,-90.0000 -100.6272,-90.0000 -101.0671,-90.0000 -101.5069,-90.0000 -101.9468,-90.0000 -102.3867,-90.0000 -102.8265,-90.0000 -103.2664,-90.0000 -103.7062,-90.0000 -104.1461,-90.0000 -104.5859,-90.0000 -105.0258,-90.0000 -105.4657,-90.0000 -105.9055,-90.0000 -106.3454,-90.0000 -106.7852,-90.0000 -107.2251,-90.0000 -107.6649,-90.0000 -108.1048,-90.0000 -108.5446,-90.0000 -108.9845,-90.0000 -109.4244,-90.0000 -109.8642,-90.0000 -110.3041,-90.0000 -110.7439,-90.0000 -111.1838,-90.0000 -111.6236,-90.0000 -112.0635,-90.0000 -112.5033,-90.0000 -112.5033,-89.5056 -112.5033,-89.0113 -112.5033,-88.5169 -112.5033,-88.0226 -112.5033,-87.5282 -112.5033,-87.0338 -112.5033,-86.5395 -112.5033,-86.0451 -112.5032,-85.5508 -112.5032,-85.0962 -112.5032,-84.6417 -112.5032,-84.1871 -112.5032,-83.7326 -112.5032,-83.2780 -112.5032,-82.8235 -112.5032,-82.3689 -112.5032,-81.9144 -112.5032,-81.4598 -112.5032,-81.0053 -112.5031,-80.5508 -112.5031,-80.0962 -112.5031,-79.6417 -112.5031,-79.1871 -112.5031,-78.7326 -112.5031,-78.2780 -112.5031,-77.8235 -112.5031,-77.3689 -112.5031,-76.9144 -112.5031,-76.4598 -112.5030,-76.0053 -112.5030,-75.5508 -112.5030,-75.2174 -112.5030,-74.8841 -112.5030,-74.5507 -112.5030,-74.1107 -112.4529,-74.0924 -112.2922,-74.0517 -112.1103,-74.0134 -111.9674,-73.9905 -111.8257,-73.9754 -111.6182,-73.9663 -111.3882,-73.9714 -110.9850,-74.0015 -110.7548,-74.0322 -110.4800,-74.0377 -110.2734,-74.0523 -110.1329,-74.0718 -110.0084,-74.0982 -109.8891,-74.1330 -109.7789,-74.1753 -109.5418,-74.2935 -109.4762,-74.3557 -109.3926,-74.4099 -109.3561,-74.4492 -109.3246,-74.5253 -109.3400,-74.6003 -109.3628,-74.6293 -109.4532,-74.7017 -109.4628,-74.7646 -109.4890,-74.8075 -109.5429,-74.8512 -109.6411,-74.9017 -109.6465,-74.9143 -109.6305,-74.9249 -109.5744,-74.9369 -109.4695,-74.9475 -109.0628,-74.9759 -108.6560,-75.0044 -108.2492,-75.0328 -107.8425,-75.0613 -107.6983,-75.0777 -107.5335,-75.1075 -107.2725,-75.1073 -107.0810,-75.1020 -106.8380,-75.1039 -106.6496,-75.1119 -106.5663,-75.1084 -106.2532,-75.0803 -106.0560,-75.0396 -105.9417,-75.0260 -105.7917,-75.0142 -105.6311,-74.9674 -105.4921,-74.9379 -105.3193,-74.9145 -105.1449,-74.9027 -104.7907,-74.9000 -104.6497,-74.9050 -104.4736,-74.9211 -104.0853,-74.9141 -103.8390,-74.9238 -103.5730,-74.8910 -103.3599,-74.8785 -103.1477,-74.8821 -102.7108,-74.9079 -102.3965,-74.9023 -102.2278,-74.9095 -102.0557,-74.8884 -101.8942,-74.8779 -101.7491,-74.8755 -101.5320,-74.8825 -101.4612,-74.8802 -101.3779,-74.8628 -101.3266,-74.8290 -101.3178,-74.7936 -101.3605,-74.7598 -101.4119,-74.7410 -101.4821,-74.7245 -101.7834,-74.6837 -101.9435,-74.6512 -102.1148,-74.5913 -102.2125,-74.5300 -102.2397,-74.4730 -102.1852,-74.3278 -102.1885,-74.2634 -102.1706,-74.2199 -102.1851,-74.1920 -102.3133,-74.1709 -102.4632,-74.1561 -102.6252,-74.1467 -102.9238,-74.1399 -103.0452,-74.1298 -103.1585,-74.1150 -103.2876,-74.0906 -103.4217,-74.0539 -103.5141,-74.0183 -103.5989,-73.9709 -103.6459,-73.9287 -103.6667,-73.8939 -103.6686,-73.8435 -103.6339,-73.7863 -103.7121,-73.7111 -103.7232,-73.5999 -103.6991,-73.5569 -103.6505,-73.5164 -103.5835,-73.4819 -103.4582,-73.4345 -103.5917,-73.3615 -103.8325,-73.2967 -103.8541,-73.2947 -103.9217,-73.3056 -104.2468,-73.3830 -104.3850,-73.4040 -104.5108,-73.4165 -104.6858,-73.4248 -104.8427,-73.4238 -105.0223,-73.4128 -105.1766,-73.3940 -105.3413,-73.3623 -105.4706,-73.3266 -105.5818,-73.2851 -105.6885,-73.2311 -105.7705,-73.1728 -105.8274,-73.1120 -105.8593,-73.0508 -105.8634,-72.9878 -105.8328,-72.9434 -105.7692,-72.8959 -105.6747,-72.8484 -105.5611,-72.8068 -105.4460,-72.7767 -105.3173,-72.7537 -105.1761,-72.7386 -105.0377,-72.7327 -104.8988,-72.7344 -104.7545,-72.7439 -104.6203,-72.7609 -104.5096,-72.7829 -104.3630,-72.8294 -104.1654,-72.9362 -104.1164,-72.9556 -104.0834,-72.9607 -104.0784,-72.9516 -104.1319,-72.8695 -104.1242,-72.8148 -104.0220,-72.7212 -103.9029,-72.6510 -103.7533,-72.5991 -103.4923,-72.5454 -103.2827,-72.5135 -103.0853,-72.4998 -102.8989,-72.5022 -102.7006,-72.5105 -102.6335,-72.3163 -102.7146,-72.2952 -102.8356,-72.2502 -102.9269,-72.1956 -102.9772,-72.1439 -103.0005,-72.0897 -102.9955,-72.0349 -102.9613,-71.9815 -102.8967,-71.9316 -102.8188,-71.8940 -102.7201,-71.8617 -102.5620,-71.8216 -102.3777,-71.7876 -102.2001,-71.7683 -101.7309,-71.7423 -101.2617,-71.7163 -100.7925,-71.6903 -100.7362,-71.6828 -100.5264,-71.6376 -100.3135,-71.6168 -100.1266,-71.6135 -99.9473,-71.6235 -99.7876,-71.6440 -99.7807,-71.6454 -99.6007,-71.6823 -99.5746,-71.6838 -99.4918,-71.6691 -99.2449,-71.5959 -99.0828,-71.5670 -98.8832,-71.5519 -98.5202,-71.5481 -98.3729,-71.5537 -98.2461,-71.5675 -97.9644,-71.6196 -97.6827,-71.6717 -97.6235,-71.6774 -97.5371,-71.6801 7,-3.0,Teniente Jubany Station -58.7148,-62.3788 -58.7148,-62.1199 -58.7148,-61.8611 -58.2909,-61.8611 -58.2909,-62.1199 -58.2909,-62.3788 -58.7148,-62.3788 48,-3.0,Rothera, San Martn Stations -68.3115,-66.5034 -68.1439,-66.5034 -67.6562,-66.5034 -67.1686,-66.5034 -66.6809,-66.5034 -66.1933,-66.5034 -66.1933,-66.9280 -66.1933,-67.3525 -66.1933,-67.7770 -66.1933,-68.2016 -66.1933,-68.6261 -66.5791,-68.6261 -66.9650,-68.6261 -67.3508,-68.6261 -67.7367,-68.6261 -67.7358,-68.6259 -67.7148,-68.6104 -67.7423,-68.5571 -67.7475,-68.5158 -67.6992,-68.3992 -67.7244,-68.3516 -67.7373,-68.2792 -67.8190,-68.1682 -67.8184,-68.1217 -67.7761,-68.0632 -67.8377,-67.9797 -68.0636,-67.9249 -68.1400,-67.9167 -68.2449,-67.9215 -68.4552,-67.9504 -68.8225,-67.9727 -68.9953,-67.9697 -69.1549,-67.9487 -69.2726,-67.9181 -69.3592,-67.8780 -69.6312,-67.6985 -69.7172,-67.6067 -69.7326,-67.5542 -69.7262,-67.4950 -69.6953,-67.4307 -69.6437,-67.3685 -69.5405,-67.2864 -69.3249,-67.1609 -69.1515,-66.9723 -68.8544,-66.7246 -68.7766,-66.6760 -68.6685,-66.6271 -68.3115,-66.5034 29,0.0,Halley Station -28.0000,-76.8000 -28.0000,-76.4272 -28.0000,-76.2500 -28.0000,-76.0233 -27.9499,-76.0202 -27.6983,-75.9808 -27.4938,-75.9620 -27.2769,-75.9171 -27.0242,-75.8869 -26.8341,-75.8335 -26.6088,-75.7947 -26.4544,-75.7633 -26.3460,-75.7467 -25.9685,-75.7109 -25.5910,-75.6750 -25.2135,-75.6391 -25.0000,-75.6188 -25.0000,-75.8436 -25.0000,-76.0000 -25.0000,-76.3600 -25.0000,-76.7572 -25.0000,-77.1531 -25.5090,-77.1536 -25.9916,-77.1536 -26.4742,-77.1536 -26.9567,-77.1536 -27.4393,-77.1536 -28.0000,-77.1547 -28.0000,-76.8000 31,-1.0,Neumayer Station -9.7687,-71.9518 -9.7687,-71.5436 -9.7687,-71.1355 -9.7687,-70.7274 -9.6458,-70.7497 -9.6074,-70.7567 -9.4370,-70.8138 -9.3040,-70.8909 -9.1477,-70.9128 -9.0121,-70.9393 -8.6656,-71.0310 -8.5756,-70.9312 -8.6007,-70.8905 -8.6022,-70.8520 -8.5824,-70.8166 -8.5391,-70.7780 -8.4774,-70.7415 -8.3449,-70.6876 -8.1933,-70.6470 -8.0522,-70.6253 -7.6727,-70.5818 -7.5282,-70.5743 -7.5283,-70.7888 -7.5284,-71.1765 -7.5286,-71.5641 -7.5287,-71.9518 -7.9767,-71.9518 -8.4247,-71.9518 -8.8727,-71.9518 -9.3207,-71.9518 -9.7687,-71.9518 30,7.0,Davis Station 77.3833,-69.1938 77.3506,-69.1938 77.3475,-68.9957 77.3846,-68.9868 77.4240,-68.9453 77.4336,-68.8320 77.4907,-68.7643 77.5067,-68.7542 77.5809,-68.7070 77.7074,-68.6511 77.7823,-68.6250 77.9299,-68.5944 77.9750,-68.5777 77.9838,-68.5637 77.9578,-68.5088 77.9624,-68.4597 78.0814,-68.3088 78.1414,-68.2658 78.3134,-68.1723 78.4523,-68.1145 78.8678,-67.9917 78.9729,-67.9729 78.9840,-67.9729 78.9840,-68.3799 78.9840,-68.7868 78.9840,-69.1938 78.5839,-69.1938 78.1837,-69.1938 77.7835,-69.1938 77.3833,-69.1938 27,6.0,Vostok Station 108.7303,-79.5277 108.2477,-79.5277 107.7652,-79.5277 107.2826,-79.5277 106.8000,-79.5277 106.3175,-79.5277 105.8349,-79.5277 105.3523,-79.5277 104.8698,-79.5277 104.8698,-79.1031 104.8698,-78.6786 104.8698,-78.2540 104.8698,-77.8295 104.8698,-77.4049 105.3523,-77.4049 105.8349,-77.4049 106.3175,-77.4049 106.8000,-77.4049 107.2826,-77.4049 107.7652,-77.4049 108.2477,-77.4049 108.7303,-77.4049 108.7303,-77.8295 108.7303,-78.2540 108.7303,-78.6786 108.7303,-79.1031 108.7303,-79.5277 27,10.0,Antarctica/DumontDUrville 125.4997,-75.9209 125.0172,-75.9209 124.5346,-75.9209 124.0520,-75.9209 123.5695,-75.9209 123.0869,-75.9209 122.6043,-75.9209 122.1218,-75.9209 121.6392,-75.9209 121.6392,-75.4964 121.6392,-75.0718 121.6392,-74.6473 121.6392,-74.2227 121.6392,-73.7982 122.1218,-73.7982 122.6043,-73.7982 123.0869,-73.7982 123.5695,-73.7982 124.0520,-73.7982 124.5346,-73.7982 125.0172,-73.7982 125.4997,-73.7982 125.4997,-74.2227 125.4997,-74.6473 125.4997,-75.0718 125.4997,-75.4964 125.4997,-75.9209 286,12.0,Antarctica/South_Pole 165.9892,-74.7343 165.8907,-74.7670 165.7670,-74.7932 165.6183,-74.8112 165.4716,-74.8188 165.3530,-74.8187 165.2221,-74.8121 165.0712,-74.7952 164.9168,-74.7658 164.7797,-74.7634 164.6339,-74.9208 164.5439,-74.9639 164.4191,-75.0004 164.3039,-75.0223 164.1598,-75.0399 164.0109,-75.0692 163.8746,-75.0855 163.6593,-75.0943 163.3997,-75.0858 163.3377,-75.1214 163.3491,-75.1938 163.3240,-75.2359 163.2674,-75.2806 163.1771,-75.3277 163.3018,-75.3916 163.4819,-75.4282 163.5921,-75.4632 163.6613,-75.5023 163.6940,-75.5446 163.6931,-75.5759 163.6729,-75.6095 163.5877,-75.6952 163.5406,-75.7289 163.6202,-75.7854 163.6364,-75.8358 163.5745,-75.9050 163.4540,-75.9922 163.4846,-76.0828 163.4725,-76.1111 163.4337,-76.1475 163.4994,-76.1903 163.5309,-76.2214 163.5530,-76.2708 163.5418,-76.3295 163.6276,-76.3897 163.6548,-76.4261 163.6408,-76.4793 163.5943,-76.5333 163.5297,-76.5745 163.6340,-76.6236 163.6979,-76.6634 163.7606,-76.7670 163.7606,-76.8201 163.6849,-76.8780 163.6794,-76.8950 163.6992,-76.9047 163.8400,-76.9436 163.9119,-76.9730 163.9564,-77.0041 163.9772,-77.0490 164.0888,-77.0857 164.1426,-77.1109 164.2598,-77.1882 164.3609,-77.2719 164.4219,-77.2988 164.5621,-77.3433 164.6319,-77.3799 164.6672,-77.4247 164.6781,-77.5065 164.6621,-77.5463 164.6131,-77.5918 164.6860,-77.6148 164.9323,-77.6710 165.0470,-77.7103 165.2175,-77.7497 165.3153,-77.7861 165.3959,-77.8306 165.4810,-77.8364 165.6312,-77.8377 165.7125,-77.8339 165.7433,-77.8258 165.7347,-77.8142 165.6665,-77.7874 165.6214,-77.7617 165.5808,-77.6921 165.4688,-77.6549 165.4017,-77.6230 165.3394,-77.5802 165.3130,-77.5426 165.3298,-77.5016 165.3899,-77.4629 165.4845,-77.4267 165.6525,-77.3837 165.6820,-77.3700 165.6780,-77.3589 165.5987,-77.3165 165.5713,-77.2808 165.5766,-77.2421 165.6259,-77.1868 165.7079,-77.1334 165.8109,-77.0903 165.9174,-77.0596 166.0901,-77.0268 166.0510,-76.9669 166.0459,-76.9203 166.0829,-76.8765 166.1508,-76.8409 166.2462,-76.8104 166.3644,-76.7852 166.5010,-76.7659 166.6827,-76.7510 166.8109,-76.7463 166.9422,-76.7462 167.0741,-76.7507 167.2044,-76.7600 167.3306,-76.7745 167.4543,-76.7947 167.5468,-76.8151 167.6377,-76.8419 167.7088,-76.8714 167.7531,-76.8984 167.7839,-76.9315 167.7914,-76.9607 167.7811,-76.9897 167.7529,-77.0178 167.7066,-77.0447 167.6377,-77.0728 167.8263,-77.1497 167.8873,-77.1648 167.9649,-77.1753 168.0710,-77.1839 168.5505,-77.2023 168.9947,-77.2309 169.4389,-77.2594 169.6340,-77.2818 169.8649,-77.3261 169.9834,-77.3575 170.0675,-77.3860 170.1361,-77.4160 170.1873,-77.4475 170.2254,-77.5016 170.4127,-77.5086 170.8317,-77.5241 171.2506,-77.5396 171.6695,-77.5551 172.0884,-77.5706 172.5073,-77.5861 173.0055,-77.6046 173.5036,-77.6230 174.0018,-77.6415 174.5000,-77.6599 174.9981,-77.6784 175.4963,-77.6968 175.9945,-77.7153 176.4926,-77.7337 176.9908,-77.7522 177.4890,-77.7706 177.9871,-77.7891 178.4853,-77.8075 178.9835,-77.8260 179.4816,-77.8444 179.9798,-77.8629 179.9804,-78.3550 179.9810,-78.8472 179.9817,-79.3393 179.9823,-79.8315 179.9829,-80.3236 179.9835,-80.8158 179.9842,-81.3079 179.9848,-81.8001 179.9854,-82.2922 179.9860,-82.7843 179.9866,-83.2765 179.9873,-83.7686 179.9879,-84.2608 179.9885,-84.7529 179.9885,-85.2299 179.9885,-85.7069 179.9885,-86.1839 179.9885,-86.6609 179.9885,-87.1380 179.9885,-87.6150 179.9885,-88.0920 179.9885,-88.5690 179.9885,-89.0460 179.9885,-89.5230 179.9885,-90.0000 179.9885,-90.0000 179.5474,-90.0000 179.1063,-90.0000 178.6652,-90.0000 178.2241,-90.0000 177.7829,-90.0000 177.3418,-90.0000 176.9007,-90.0000 176.4596,-90.0000 176.0185,-90.0000 175.5774,-90.0000 175.1363,-90.0000 174.6952,-90.0000 174.2540,-90.0000 173.8129,-90.0000 173.3718,-90.0000 172.9307,-90.0000 172.5011,-90.0000 172.5013,-89.5204 172.5015,-89.0659 172.5018,-88.6113 172.5020,-88.1568 172.5022,-87.7022 172.5024,-87.2477 172.5027,-86.7932 172.5029,-86.3386 172.5031,-85.8841 172.5034,-85.4295 172.5036,-84.9750 172.5038,-84.5204 172.5040,-84.0525 172.5043,-83.5846 172.5045,-83.1168 172.5048,-82.6489 172.5050,-82.1810 172.5052,-81.7131 172.5055,-81.2452 172.5057,-80.7773 172.5059,-80.3094 172.5062,-79.8415 172.0222,-79.8425 171.5383,-79.8435 171.0544,-79.8445 170.5705,-79.8455 170.0866,-79.8465 169.6027,-79.8475 169.1188,-79.8485 168.6349,-79.8495 168.1509,-79.8505 167.6670,-79.8515 167.1831,-79.8525 166.6992,-79.8535 166.2153,-79.8545 165.7314,-79.8555 165.2475,-79.8565 164.7636,-79.8575 164.2796,-79.8585 163.7957,-79.8595 163.3118,-79.8605 162.8279,-79.8615 162.3440,-79.8625 161.8601,-79.8635 161.8601,-79.3937 161.8601,-78.9239 161.8601,-78.4541 161.8601,-77.9843 161.8601,-77.5145 161.8601,-77.0447 161.8601,-76.5749 161.8601,-76.1051 161.8601,-75.6353 161.8601,-75.1655 161.8601,-74.6957 161.8601,-74.2259 161.8601,-73.7561 161.8601,-73.2863 162.3367,-73.2863 162.8133,-73.2863 163.2899,-73.2863 163.7665,-73.2863 164.2431,-73.2863 164.7197,-73.2863 165.1963,-73.2863 165.6729,-73.2863 166.1496,-73.2863 166.1496,-73.6573 166.1496,-74.0283 166.1043,-74.0411 165.9546,-74.0723 165.8208,-74.1426 165.6727,-74.1871 165.7952,-74.3246 166.0405,-74.4079 166.0914,-74.4375 166.1256,-74.4772 166.1432,-74.5507 166.1184,-74.6323 166.0756,-74.6859 165.9892,-74.7343 187,-3.0,Antarctica/ -37.8486,-78.1697 -37.5492,-78.1767 -37.2581,-78.1834 -37.0476,-78.1883 -37.0199,-78.1603 -36.9599,-78.1228 -36.8401,-78.0763 -36.6187,-78.0142 -36.5115,-77.9671 -36.4477,-77.9230 -36.3185,-77.8051 -36.2337,-77.7543 -36.1457,-77.7197 -36.0402,-77.6914 -35.9055,-77.6654 -35.7778,-77.6507 -35.7421,-77.6437 -35.6671,-77.5752 -35.5904,-77.5275 -35.5335,-77.5040 -35.3724,-77.4556 -35.2424,-77.3847 -35.1362,-77.3423 -34.9726,-77.3012 -34.6542,-77.2494 -34.5381,-77.1924 -34.3780,-77.1474 -34.1610,-77.1066 -34.0238,-77.0878 -33.7526,-77.0582 -33.6255,-77.0317 -33.6253,-77.4865 -33.6252,-77.9413 -33.6251,-78.3961 -33.6250,-78.8510 -33.6249,-79.3058 -33.6247,-79.7606 -34.1153,-79.7606 -34.6058,-79.7606 -35.0964,-79.7606 -35.5870,-79.7606 -36.0775,-79.7606 -36.5681,-79.7606 -37.0586,-79.7606 -37.5492,-79.7606 -37.5492,-79.8890 -37.5492,-80.3435 -37.5492,-80.7981 -37.5492,-81.2526 -37.5492,-81.7072 -37.5492,-82.1617 -37.5492,-82.6163 -37.5492,-83.0708 -37.5492,-83.5254 -37.5492,-83.9799 -37.5492,-84.4345 -37.5492,-84.8890 -37.5492,-85.3526 -37.5492,-85.8163 -37.5492,-86.2799 -37.5492,-86.7435 -37.5492,-87.2072 -37.5492,-87.6708 -37.5492,-88.1345 -37.5492,-88.5981 -37.5492,-89.0617 -37.5492,-89.5254 -37.5492,-89.9890 -37.9899,-89.9890 -38.4305,-89.9890 -38.8712,-89.9890 -39.3119,-89.9890 -39.7526,-89.9890 -40.1933,-89.9890 -40.6339,-89.9890 -41.0746,-89.9890 -41.5153,-89.9890 -41.9560,-89.9890 -42.3967,-89.9890 -42.8373,-89.9890 -43.2780,-89.9890 -43.7187,-89.9890 -44.1594,-89.9890 -44.6000,-89.9890 -45.0407,-89.9890 -45.4814,-89.9890 -45.9221,-89.9890 -46.3628,-89.9890 -46.8034,-89.9890 -47.2441,-89.9890 -47.6848,-89.9890 -48.1255,-89.9890 -48.5661,-89.9890 -49.0068,-89.9890 -49.4475,-89.9890 -49.8882,-89.9890 -50.3289,-89.9890 -50.7695,-89.9890 -51.2102,-89.9890 -51.6509,-89.9890 -52.0916,-89.9890 -52.5322,-89.9890 -52.5323,-89.4968 -52.5323,-89.0046 -52.5323,-88.5123 -52.5323,-88.0201 -52.5323,-87.5279 -52.5323,-87.0733 -52.5324,-86.6188 -52.5324,-86.1642 -52.5324,-85.7097 -52.5324,-85.2552 -52.5324,-84.8006 -52.5324,-84.3461 -52.5325,-83.8915 -52.5325,-83.4370 -52.5325,-82.9824 -52.5325,-82.5279 -52.5325,-82.0904 -52.5325,-81.6529 -52.5326,-81.2154 -52.5326,-80.7779 -52.5326,-80.3404 -52.5326,-79.9029 -52.5326,-79.4654 -52.5326,-79.0279 -52.5326,-78.6238 -52.5327,-78.2198 -52.5327,-77.8157 -52.5327,-77.4117 -52.5327,-77.0076 -52.1035,-77.1073 -51.6742,-77.2070 -51.2450,-77.3067 -50.8158,-77.4064 -50.3865,-77.5061 -49.9542,-77.6065 -49.9018,-77.6488 -49.6609,-77.6145 -49.5459,-77.5857 -49.3873,-77.5575 -49.2496,-77.5398 -49.1016,-77.5272 -48.9645,-77.5204 -48.7989,-77.5178 -48.6621,-77.5202 -48.5018,-77.5281 -48.3489,-77.5414 -48.2062,-77.5598 -48.0770,-77.5829 -47.9817,-77.6056 -47.9590,-77.6113 -47.9194,-77.6104 -47.7053,-77.5788 -47.5157,-77.5612 -47.3540,-77.5534 -47.1891,-77.5520 -46.9196,-77.5573 -46.6432,-77.5679 -46.3668,-77.5785 -46.1131,-77.5863 -45.8594,-77.5940 -45.6440,-77.6054 -45.4726,-77.6207 -45.3204,-77.6417 -44.9900,-77.6981 -44.6530,-77.7498 -44.3159,-77.8014 -43.9788,-77.8531 -43.8108,-77.8838 -43.6447,-77.9243 -43.3916,-77.9962 -43.1386,-78.0681 -42.9638,-78.1254 -42.9496,-78.1312 -42.5822,-78.1056 -42.1640,-78.0764 -41.7457,-78.0471 -41.3275,-78.0179 -40.9093,-77.9887 -40.4309,-78.0547 -39.9524,-78.1207 -39.5316,-78.1305 -39.1109,-78.1403 -38.6901,-78.1501 -38.2693,-78.1599 -37.8486,-78.1697 269,3.0,Antarctica/ 52.5212,-66.4742 52.5212,-66.9287 52.5212,-67.3833 52.5212,-67.8378 52.5212,-68.2923 52.5212,-68.7469 52.5212,-69.2014 52.5212,-69.6560 52.5212,-70.1105 52.5212,-70.5651 52.5212,-71.0196 52.5212,-71.4742 52.5212,-71.9287 52.5212,-72.3833 52.5212,-72.8378 52.5212,-73.2923 52.5212,-73.7469 52.5212,-74.2014 52.5212,-74.6560 52.5212,-75.1105 52.5212,-75.5651 52.5212,-76.0196 52.5212,-76.4742 52.5212,-76.8908 52.5212,-77.3075 52.5213,-77.7242 52.5213,-78.1408 52.5213,-78.5575 52.5213,-78.9742 52.5213,-79.4287 52.5213,-79.8833 52.5213,-80.3378 52.5213,-80.7923 52.5213,-81.2469 52.5213,-81.7014 52.5213,-82.1560 52.5213,-82.6105 52.5213,-83.0651 52.5213,-83.5196 52.5213,-83.9742 52.5213,-84.4287 52.5213,-84.8833 52.5213,-85.3378 52.5213,-85.7923 52.5213,-86.2469 52.5213,-86.7014 52.5213,-87.1560 52.5213,-87.6105 52.5213,-88.0651 52.5213,-88.5196 52.5213,-88.9742 52.5213,-89.3161 52.5213,-89.6581 52.5213,-90.0000 52.0254,-90.0000 51.5295,-90.0000 51.1962,-90.0000 50.8628,-90.0000 50.5295,-90.0000 50.1962,-90.0000 49.8628,-90.0000 49.5295,-90.0000 49.1962,-90.0000 48.8628,-90.0000 48.5295,-90.0000 48.1962,-90.0000 47.8628,-90.0000 47.5295,-90.0000 47.1962,-90.0000 46.8628,-90.0000 46.5295,-90.0000 46.1962,-90.0000 45.8628,-90.0000 45.5295,-90.0000 45.1962,-90.0000 44.8628,-90.0000 44.5295,-90.0000 44.1962,-90.0000 43.8628,-90.0000 43.5295,-90.0000 43.1962,-90.0000 42.8628,-90.0000 42.5295,-90.0000 42.1962,-90.0000 41.8628,-90.0000 41.5295,-90.0000 41.1962,-90.0000 40.8628,-90.0000 40.5295,-90.0000 40.1962,-90.0000 39.8628,-90.0000 39.5295,-90.0000 39.1962,-90.0000 38.8628,-90.0000 38.5295,-90.0000 38.1962,-90.0000 37.8628,-90.0000 37.5295,-90.0000 37.5295,-89.9989 37.5295,-89.5354 37.5295,-89.0719 37.5295,-88.6083 37.5295,-88.1448 37.5295,-87.6812 37.5295,-87.2177 37.5295,-86.7542 37.5295,-86.2906 37.5295,-85.8271 37.5295,-85.3635 37.5295,-84.9000 37.5295,-84.8989 37.5295,-84.3990 37.5295,-83.8992 37.5295,-83.3993 37.5295,-82.8994 37.5295,-82.3995 37.5295,-81.8996 37.5295,-81.3997 37.5295,-80.8998 37.5295,-80.3999 37.5295,-79.9000 37.5295,-79.8989 37.5295,-79.3990 37.5295,-78.8992 37.5295,-78.3993 37.5295,-77.8994 37.5295,-77.3995 37.5295,-76.8996 37.5295,-76.3997 37.5295,-75.8998 37.5295,-75.3999 37.5295,-74.9000 37.5295,-74.8989 37.5295,-74.3990 37.5295,-73.8992 37.5295,-73.3993 37.5295,-72.8994 37.5295,-72.3995 37.5295,-71.8996 37.5295,-71.3997 37.5295,-70.8998 37.5295,-70.3999 37.5295,-69.9000 37.5295,-69.8989 37.5295,-69.4806 37.7082,-69.4765 37.8716,-69.4794 37.9620,-69.4871 38.2978,-69.5313 38.5792,-69.5822 38.6514,-69.5881 38.7120,-69.5861 38.8856,-69.5363 39.0624,-69.5041 39.1432,-69.4651 39.1813,-69.4374 39.1885,-69.4069 39.1407,-69.3567 39.1244,-69.3128 39.1302,-69.2786 39.1668,-69.2197 39.1659,-69.1503 39.1363,-69.0645 39.1508,-68.9975 39.3313,-68.7546 39.4137,-68.7051 39.5409,-68.6631 39.7275,-68.6300 39.9872,-68.6083 40.1597,-68.5572 40.2658,-68.5361 40.3954,-68.5206 40.5015,-68.5159 40.5537,-68.4823 40.6318,-68.4478 40.8460,-68.3895 41.1441,-68.3288 41.4422,-68.2682 41.7703,-68.2176 41.9810,-68.1982 42.0371,-68.1729 42.1205,-68.0999 42.2353,-68.0398 42.3694,-67.9914 42.4569,-67.9485 42.5787,-67.9160 42.6665,-67.9024 42.8187,-67.8901 42.9872,-67.8661 43.2598,-67.8383 43.4003,-67.8317 43.5669,-67.8361 43.7386,-67.7917 43.8700,-67.7719 43.9484,-67.7668 44.1322,-67.7682 44.2070,-67.7059 44.3005,-67.6562 44.4116,-67.6172 44.5637,-67.5823 44.8133,-67.5397 45.0903,-67.5214 45.3391,-67.4958 45.5190,-67.4940 45.6801,-67.4644 45.7082,-67.4502 45.7635,-67.3065 45.8467,-67.2298 45.9227,-67.1887 46.0316,-67.1462 46.1366,-67.1167 46.2488,-67.0951 46.4515,-67.0752 46.6875,-67.0730 46.8866,-67.0644 46.9849,-67.0661 47.0961,-67.0781 47.2512,-67.1118 47.4025,-67.1692 47.5613,-67.1944 47.7472,-67.2455 47.8622,-67.2907 47.9606,-67.3558 48.0682,-67.3759 48.1195,-67.3763 48.1470,-67.3624 48.1478,-67.3467 48.0311,-67.3038 47.9468,-67.2611 47.8833,-67.2108 47.8401,-67.1539 47.8189,-67.0939 47.8200,-67.0401 47.8379,-66.9947 47.8891,-66.9262 47.8079,-66.8472 47.7739,-66.7659 47.7871,-66.7001 47.8329,-66.6453 47.9186,-66.5909 48.0346,-66.5460 48.1741,-66.5142 48.3289,-66.4986 48.5231,-66.4974 48.8534,-66.5094 48.9476,-66.5232 49.0294,-66.5426 49.2176,-66.6129 49.3888,-66.6298 49.5250,-66.6558 49.6252,-66.6867 49.7037,-66.7239 49.6915,-66.5580 49.7687,-66.4084 49.8568,-66.3232 49.9467,-66.2612 50.0672,-66.1980 50.1997,-66.1531 50.4293,-66.1107 50.8330,-66.0691 51.0346,-66.0219 51.1515,-65.9742 51.5239,-65.8685 51.6413,-65.8447 51.9515,-65.7972 52.1991,-65.7730 52.5212,-65.7681 52.5212,-66.1211 52.5212,-66.4742 237,-9.0,Antarctica/ -127.5073,-73.1029 -127.5073,-73.5524 -127.5073,-74.0019 -127.5073,-74.4514 -127.5073,-74.9010 -127.5073,-75.3505 -127.5073,-75.8000 -127.5073,-76.2556 -127.5073,-76.7111 -127.5073,-77.1667 -127.5073,-77.6222 -127.5073,-78.0778 -127.5073,-78.5333 -127.5073,-78.9889 -127.5073,-79.4444 -127.5073,-79.9000 -127.5073,-80.3545 -127.5073,-80.8091 -127.5073,-81.2636 -127.5073,-81.7182 -127.5073,-82.1727 -127.5073,-82.6273 -127.5073,-83.0818 -127.5073,-83.5364 -127.5073,-83.9909 -127.5073,-84.4455 -127.5073,-84.9000 -127.5073,-85.3636 -127.5073,-85.8273 -127.5073,-86.2909 -127.5073,-86.7545 -127.5073,-87.2182 -127.5073,-87.6818 -127.5073,-88.1455 -127.5073,-88.6091 -127.5073,-89.0727 -127.5073,-89.5364 -127.5073,-90.0000 -127.9491,-90.0000 -128.3909,-90.0000 -128.8327,-90.0000 -129.2746,-90.0000 -129.7164,-90.0000 -130.1582,-90.0000 -130.6000,-90.0000 -131.0419,-90.0000 -131.4837,-90.0000 -131.9255,-90.0000 -132.3673,-90.0000 -132.8091,-90.0000 -133.2510,-90.0000 -133.6928,-90.0000 -134.1346,-90.0000 -134.5764,-90.0000 -135.0183,-90.0000 -135.4601,-90.0000 -135.9019,-90.0000 -136.3437,-90.0000 -136.7856,-90.0000 -137.2274,-90.0000 -137.6692,-90.0000 -138.1110,-90.0000 -138.5529,-90.0000 -138.9947,-90.0000 -139.4365,-90.0000 -139.8783,-90.0000 -140.3202,-90.0000 -140.7620,-90.0000 -141.2038,-90.0000 -141.6456,-90.0000 -142.0875,-90.0000 -142.5293,-90.0000 -142.5293,-89.6190 -142.5293,-89.2380 -142.5293,-88.8570 -142.5293,-88.4760 -142.5293,-88.0215 -142.5293,-87.5669 -142.5293,-87.1124 -142.5293,-86.6578 -142.5293,-86.2033 -142.5293,-85.7487 -142.5293,-85.2942 -142.5293,-84.8396 -142.5293,-84.3851 -142.5293,-83.9305 -142.5293,-83.4760 -142.5293,-83.0215 -142.5293,-82.5669 -142.5293,-82.1124 -142.5293,-81.6578 -142.5293,-81.2033 -142.5293,-80.7487 -142.5293,-80.2942 -142.5293,-79.8396 -142.5293,-79.3851 -142.5293,-78.9305 -142.5293,-78.4760 -142.5293,-78.0132 -142.5293,-77.5504 -142.5293,-77.0875 -142.5293,-76.6247 -142.5293,-76.1619 -142.5293,-75.6991 -142.5293,-75.2362 -142.4091,-75.2347 -142.2007,-75.2449 -141.8155,-75.2794 -141.5962,-75.3128 -141.4065,-75.2988 -141.2722,-75.2942 -141.1291,-75.2955 -140.9555,-75.3050 -140.8726,-75.2581 -140.7641,-75.2152 -140.3886,-75.1009 -140.1968,-75.0240 -140.0313,-74.9869 -139.8179,-74.9600 -139.5648,-74.9490 -139.3074,-74.9278 -139.1467,-74.9262 -138.8945,-74.9354 -138.6179,-74.9269 -138.3414,-74.9184 -138.2822,-74.9127 -138.0784,-74.8811 -137.8642,-74.8611 -137.7681,-74.8423 -137.6863,-74.8141 -137.6285,-74.7814 -137.5548,-74.7099 -137.4828,-74.6632 -137.3826,-74.6219 -137.2659,-74.5913 -137.0774,-74.5637 -136.9359,-74.5537 -136.7670,-74.5503 -136.4498,-74.5106 -136.1982,-74.5019 -136.1623,-74.4926 -136.0647,-74.4509 -135.9292,-74.4177 -135.7356,-74.3845 -135.5434,-74.3671 -135.3126,-74.3627 -135.0590,-74.3738 -134.7846,-74.3984 -134.5034,-74.4296 -134.2221,-74.4609 -134.0595,-74.4884 -133.9306,-74.5203 -133.8571,-74.5457 -133.7147,-74.6113 -133.6499,-74.6342 -133.5878,-74.6446 -133.5251,-74.6432 -133.4851,-74.6312 -133.4855,-74.6104 -133.6196,-74.5112 -133.6578,-74.4572 -133.6529,-74.4012 -133.6089,-74.3549 -133.4947,-74.3037 -133.2669,-74.2445 -133.1515,-74.2019 -133.0640,-74.1499 -132.9794,-74.0653 -132.8739,-74.0130 -132.7878,-73.9860 -132.6866,-73.9630 -132.5720,-73.9447 -132.4456,-73.9320 -132.2853,-73.9249 -132.1148,-73.9273 -131.9534,-73.9386 -131.7906,-73.9603 -131.6352,-73.9939 -131.5180,-74.0329 -131.4384,-74.0744 -131.3894,-74.1267 -131.3658,-74.1364 -131.1624,-74.1617 -130.9647,-74.2056 -130.7597,-74.2183 -130.6097,-74.2357 -130.5004,-74.2560 -130.4034,-74.2817 -130.3121,-74.3153 -130.2410,-74.3525 -130.1929,-74.3917 -130.1714,-74.4295 -130.2221,-74.5648 -130.2572,-74.5990 -130.3335,-74.6419 -130.3385,-74.6521 -130.3178,-74.6604 -130.2627,-74.6697 -130.0154,-74.6942 -129.9523,-74.6939 -129.8016,-74.6791 -129.6096,-74.6457 -129.4701,-74.6290 -129.2990,-74.6192 -129.0552,-74.6192 -128.8663,-74.5885 -128.8443,-74.5704 -128.8440,-74.5385 -128.9275,-74.3146 -128.9160,-74.2741 -128.8778,-74.2349 -128.7698,-74.1831 -128.6097,-74.1415 -128.4173,-74.1143 -128.2037,-74.1019 -128.0680,-74.1019 -127.9471,-74.1079 -127.6922,-74.1335 -127.6971,-73.8881 -127.8196,-73.8547 -127.9065,-73.8175 -127.9606,-73.7800 -127.9864,-73.7441 -127.9908,-73.6946 -128.1128,-73.6416 -128.1703,-73.5960 -128.1885,-73.5477 -128.1730,-73.5076 -128.2065,-73.4415 -128.1898,-73.3885 -128.1329,-73.3394 -127.9721,-73.2477 -127.8847,-73.2061 -127.7757,-73.1654 -127.6607,-73.1327 -127.5270,-73.1055 -127.5073,-73.1029 233,1.0,Antarctica/ 17.1343,-70.0227 17.2420,-70.1198 17.3046,-70.2407 17.3256,-70.2577 17.5768,-70.2766 17.6511,-70.2765 17.7231,-70.2184 17.8466,-70.1687 17.9430,-70.1465 18.2425,-70.0918 18.2890,-70.0750 18.4215,-70.0273 18.5135,-70.0023 18.6282,-69.9818 18.7655,-69.9676 18.8834,-69.9626 19.0032,-69.9638 19.1282,-69.9716 19.2673,-69.9870 19.4940,-70.0290 19.7099,-70.0964 19.8257,-70.1481 19.8926,-70.2038 19.9077,-70.2464 19.8913,-70.3014 19.9164,-70.3790 19.8705,-70.4495 19.6204,-70.6439 19.6069,-70.6690 19.6207,-70.6846 19.9182,-70.6894 20.0764,-70.7041 20.3860,-70.6941 20.5197,-70.6777 20.5628,-70.5769 20.6706,-70.4609 20.7499,-70.4023 20.9018,-70.3194 21.0382,-70.1972 21.1081,-70.1510 21.2428,-70.0938 21.4020,-70.0511 21.5746,-70.0256 21.7665,-70.0186 21.8872,-70.0246 22.0027,-70.0378 22.1298,-70.0608 22.2475,-70.0902 22.4243,-70.1507 22.5038,-70.1860 22.5038,-70.5390 22.5038,-70.5509 22.5038,-70.5519 22.5038,-71.0215 22.5038,-71.4911 22.5038,-71.9607 22.5038,-72.4302 22.5038,-72.8998 22.5038,-73.3694 22.5038,-73.8390 22.5038,-73.8509 22.5038,-73.8519 22.5038,-74.3506 22.5038,-74.8493 22.5038,-75.3480 22.5038,-75.8467 22.5038,-76.3455 22.5038,-76.8442 22.5038,-77.3429 22.5038,-77.8416 22.5038,-78.3403 22.5038,-78.8390 22.5038,-78.8509 22.5038,-78.8519 22.5038,-79.3506 22.5038,-79.8493 22.5038,-80.3480 22.5038,-80.8467 22.5038,-81.3455 22.5038,-81.8442 22.5038,-82.3429 22.5038,-82.8416 22.5038,-83.3403 22.5038,-83.8390 22.5038,-83.8509 22.5038,-83.8519 22.5038,-84.2009 22.5038,-84.5499 22.5038,-84.8989 22.5038,-84.9108 22.5038,-84.9119 22.5038,-85.3744 22.5038,-85.8368 22.5038,-86.2993 22.5038,-86.7617 22.5038,-87.2242 22.5038,-87.6866 22.5038,-88.1491 22.5038,-88.6115 22.5038,-89.0740 22.5038,-89.5364 22.5038,-89.9989 22.5038,-89.9989 22.5038,-89.9999 22.0050,-89.9999 21.5061,-89.9999 21.0073,-89.9999 20.5085,-89.9999 20.0096,-89.9999 19.5108,-89.9999 19.0120,-89.9999 18.5131,-89.9999 18.0143,-89.9999 17.5154,-89.9999 17.0166,-89.9999 16.5178,-89.9999 16.0189,-89.9999 15.5201,-89.9999 15.0213,-89.9999 14.5224,-89.9999 14.0236,-89.9999 13.5247,-89.9999 13.0259,-89.9999 12.5271,-89.9999 12.0282,-89.9999 11.5294,-89.9999 11.0305,-89.9999 10.5317,-89.9999 10.0329,-89.9999 9.5340,-89.9999 9.0352,-89.9999 8.5364,-89.9999 8.0375,-89.9999 7.5387,-89.9999 7.5387,-89.5721 7.5387,-89.1442 7.5387,-88.7163 7.5387,-88.7044 7.5387,-88.2056 7.5387,-87.7068 7.5387,-87.2080 7.5387,-86.7091 7.5387,-86.2103 7.5387,-85.7115 7.5387,-85.2127 7.5387,-84.7139 7.5387,-84.2151 7.5387,-83.7163 7.5387,-83.7044 7.5387,-83.2056 7.5387,-82.7068 7.5387,-82.2080 7.5387,-81.7091 7.5387,-81.2103 7.5387,-80.7115 7.5387,-80.2127 7.5387,-79.7139 7.5387,-79.2151 7.5387,-78.7163 7.5387,-78.7044 7.5387,-78.2056 7.5387,-77.7068 7.5387,-77.2080 7.5387,-76.7091 7.5387,-76.2103 7.5387,-75.7115 7.5387,-75.2127 7.5387,-74.7139 7.5387,-74.2151 7.5387,-73.7163 7.5387,-73.7044 7.5387,-73.3038 7.5387,-72.9033 7.5387,-72.5027 7.5387,-72.1022 7.5387,-71.8715 8.0251,-71.8721 8.5116,-71.8726 8.9980,-71.8732 9.4844,-71.8738 9.9709,-71.8743 10.4573,-71.8749 10.9438,-71.8755 11.4302,-71.8760 11.9166,-71.8766 12.4031,-71.8772 12.8895,-71.8777 12.8892,-71.4699 12.8888,-71.0620 12.8885,-70.6542 12.8881,-70.2463 12.8878,-69.8385 12.9998,-69.8365 13.1205,-69.8419 13.2377,-69.8540 13.3799,-69.8804 13.5084,-69.9206 13.6241,-69.9778 13.7529,-70.0750 13.8243,-70.1006 13.8992,-70.1130 13.9571,-70.1121 14.1206,-70.0897 14.3870,-70.0750 14.5783,-70.0757 14.7842,-70.0910 15.0468,-70.0815 15.0644,-70.0761 15.0632,-70.0647 14.9586,-69.9397 14.9576,-69.8540 14.9873,-69.8011 15.0446,-69.7437 15.1141,-69.6960 15.2072,-69.6493 15.3164,-69.6101 15.4450,-69.5757 15.5994,-69.5448 15.7597,-69.5216 15.9102,-69.5077 16.0684,-69.5004 16.4343,-69.5031 16.6940,-69.5156 16.9008,-69.5472 17.0755,-69.5983 17.1485,-69.6323 17.1959,-69.6642 17.2348,-69.7138 17.2363,-69.7670 17.2085,-69.8140 17.1180,-69.9034 17.1048,-69.9717 17.1343,-70.0227 371,0.0,Antarctica/Troll 11.4580,-69.9138 11.5568,-69.9713 11.6073,-70.0252 11.6102,-70.0404 11.6143,-70.0619 11.7186,-70.0534 11.7654,-70.0496 11.8215,-70.0450 11.8601,-70.0002 11.8628,-69.9970 11.8704,-69.9921 11.9101,-69.9661 11.9182,-69.9624 11.9345,-69.9550 11.9727,-69.9377 11.9870,-69.9312 12.1656,-69.8814 12.3310,-69.8561 12.5103,-69.8446 12.7376,-69.8487 12.8878,-69.8385 12.8881,-70.2463 12.8885,-70.6542 12.8888,-71.0620 12.8892,-71.4699 12.8895,-71.8777 12.4031,-71.8772 11.9166,-71.8766 11.4302,-71.8760 10.9438,-71.8755 10.4573,-71.8749 9.9709,-71.8743 9.4844,-71.8738 8.9980,-71.8732 8.5116,-71.8726 8.0251,-71.8721 7.5387,-71.8715 7.5387,-72.1022 7.5387,-72.5027 7.5387,-72.9033 7.5387,-73.3038 7.5387,-73.7044 7.5387,-73.7163 7.5387,-74.2151 7.5387,-74.7139 7.5387,-75.2127 7.5387,-75.7115 7.5387,-76.2103 7.5387,-76.7091 7.5387,-77.2080 7.5387,-77.7068 7.5387,-78.2056 7.5387,-78.7044 7.5387,-78.7163 7.5387,-79.2151 7.5387,-79.7139 7.5387,-80.2127 7.5387,-80.7115 7.5387,-81.2103 7.5387,-81.7091 7.5387,-82.2080 7.5387,-82.7068 7.5387,-83.2056 7.5387,-83.7044 7.5387,-83.7163 7.5387,-84.2151 7.5387,-84.7139 7.5387,-85.2127 7.5387,-85.7115 7.5387,-86.2103 7.5387,-86.7091 7.5387,-87.2080 7.5387,-87.7068 7.5387,-88.2056 7.5387,-88.7044 7.5387,-88.7163 7.5387,-89.1442 7.5387,-89.5721 7.5387,-90.0000 7.4644,-90.0000 7.1311,-90.0000 6.7978,-90.0000 6.4644,-90.0000 6.1311,-90.0000 5.7978,-90.0000 5.4644,-90.0000 5.1311,-90.0000 4.7978,-90.0000 4.4644,-90.0000 4.1311,-90.0000 3.7978,-90.0000 3.4644,-90.0000 3.1311,-90.0000 2.7978,-90.0000 2.4644,-90.0000 2.1311,-90.0000 1.7978,-90.0000 1.4644,-90.0000 1.1311,-90.0000 0.7978,-90.0000 0.4644,-90.0000 0.0000,-90.0000 -0.0000,-90.0000 -0.2678,-90.0000 -0.5356,-90.0000 -0.8689,-90.0000 -1.2022,-90.0000 -1.5356,-90.0000 -1.8689,-90.0000 -2.2022,-90.0000 -2.5356,-90.0000 -2.8689,-90.0000 -3.2022,-90.0000 -3.5356,-90.0000 -3.8689,-90.0000 -4.2022,-90.0000 -4.5356,-90.0000 -4.8689,-90.0000 -5.2022,-90.0000 -5.5356,-90.0000 -5.8689,-90.0000 -6.2022,-90.0000 -6.5356,-90.0000 -6.8689,-90.0000 -7.2022,-90.0000 -7.5356,-90.0000 -7.5354,-89.5364 -7.5352,-89.0727 -7.5350,-88.6091 -7.5349,-88.1455 -7.5347,-87.6818 -7.5345,-87.2182 -7.5343,-86.7545 -7.5342,-86.2909 -7.5340,-85.8273 -7.5338,-85.3636 -7.5336,-84.9000 -7.5335,-84.4455 -7.5333,-83.9909 -7.5331,-83.5364 -7.5329,-83.0818 -7.5328,-82.6273 -7.5326,-82.1727 -7.5324,-81.7182 -7.5323,-81.2636 -7.5321,-80.8091 -7.5319,-80.3545 -7.5317,-79.9000 -7.5316,-79.6136 -7.5315,-79.1591 -7.5313,-78.7045 -7.5311,-78.2500 -7.5309,-77.7954 -7.5308,-77.3409 -7.5306,-76.8864 -7.5304,-76.4318 -7.5303,-75.9773 -7.5301,-75.5227 -7.5299,-75.0682 -7.5297,-74.6136 -7.5296,-74.1700 -7.5294,-73.7263 -7.5292,-73.2827 -7.5291,-72.8391 -7.5289,-72.3954 -7.5287,-71.9518 -7.5286,-71.5641 -7.5284,-71.1765 -7.5283,-70.7888 -7.5282,-70.5743 -7.5222,-70.5740 -7.3251,-70.5762 -7.1361,-70.5858 -6.9626,-70.6067 -6.9180,-70.6077 -7.0320,-70.5307 -7.0799,-70.4631 -7.0649,-70.3937 -6.9884,-70.3335 -6.8744,-70.2882 -6.7283,-70.2552 -6.6262,-70.2418 -6.1452,-70.1976 -6.0316,-70.1926 -5.9243,-70.1946 -5.8058,-70.2048 -5.6913,-70.2222 -5.5739,-70.2487 -5.4817,-70.2779 -5.4066,-70.3112 -5.3546,-70.3457 -5.3181,-70.3898 -5.3098,-70.4574 -5.2581,-70.5268 -5.2465,-70.5709 -5.1267,-70.6249 -5.0409,-70.6773 -4.9707,-70.7338 -4.9322,-70.7865 -4.9240,-70.8311 -4.9387,-70.8787 -5.0493,-70.9980 -5.0826,-71.0611 -5.0778,-71.1029 -5.0350,-71.1232 -4.8662,-71.1295 -4.4303,-71.1132 -4.3062,-71.1132 -4.1501,-71.0923 -4.0555,-71.0861 -4.0521,-71.0371 -3.9923,-70.9711 -3.9926,-70.9474 -4.0345,-70.9069 -4.1830,-70.8133 -4.2135,-70.7775 -4.2245,-70.7425 -4.1979,-70.6527 -4.1158,-70.5816 -4.1385,-70.5353 -4.1405,-70.4973 -4.1231,-70.4575 -4.0841,-70.4156 -3.8263,-70.2395 -3.7280,-70.1937 -3.6199,-70.1570 -3.4584,-70.1186 -3.2858,-70.0919 -3.0891,-70.0748 -2.8896,-70.0705 -2.6947,-70.0795 -2.5119,-70.1022 -2.3485,-70.1393 -2.2121,-70.1910 -2.1090,-70.2611 -2.0544,-70.3488 -2.0470,-70.4458 -2.0634,-70.5072 -2.0954,-70.5513 -2.0889,-70.5664 -2.0141,-70.5961 -1.7851,-70.6327 -1.6481,-70.6687 -1.5313,-70.7193 -1.4642,-70.7714 -1.4393,-70.8332 -1.4676,-70.8894 -1.5618,-70.9642 -1.6458,-71.0068 -1.6592,-71.0485 -1.7060,-71.0948 -1.8898,-71.2027 -1.7256,-71.1316 -1.5634,-71.0855 -1.3757,-71.0560 -1.1715,-71.0447 -0.9698,-71.0520 -0.7751,-71.0782 -0.6176,-71.1134 -0.3536,-71.1927 -0.2816,-71.2088 -0.2554,-71.2086 -0.1765,-71.1853 -0.0796,-71.1656 -0.0544,-71.1680 -0.0417,-71.1754 0.1074,-71.1052 0.1168,-71.1024 0.5093,-71.0146 0.6743,-70.9866 0.9417,-70.9564 1.0373,-70.9406 1.1996,-70.8965 1.4204,-70.8504 1.4499,-70.8363 1.4613,-70.8185 1.4521,-70.7891 1.4121,-70.7490 1.3602,-70.7131 1.2894,-70.6816 1.1371,-70.6415 0.8882,-70.6063 0.7816,-70.5846 0.6716,-70.5487 0.5929,-70.5049 0.5429,-70.4527 0.5114,-70.3790 0.3923,-70.2905 0.3277,-70.2024 0.3158,-70.1517 0.3219,-70.1011 0.3469,-70.0515 0.3916,-70.0039 0.4884,-69.9425 0.6048,-69.8967 0.7415,-69.8620 0.9240,-69.8345 1.1531,-69.8163 1.3717,-69.8136 1.5573,-69.8270 1.7232,-69.8554 1.8463,-69.8911 1.9395,-69.9319 2.0067,-69.9795 2.0519,-70.0326 2.0832,-70.1120 2.0755,-70.1867 2.0326,-70.2354 1.9059,-70.3188 1.8828,-70.3535 1.8949,-70.3731 1.9260,-70.3848 2.0741,-70.3881 2.1196,-70.3798 2.2211,-70.3394 2.3849,-70.2912 2.6767,-70.2166 2.7910,-70.1931 2.9778,-70.1706 3.2886,-70.1588 3.4942,-70.1418 3.6598,-70.1168 3.9248,-70.0587 4.1911,-70.0297 4.3157,-70.0249 4.4456,-70.0272 4.8566,-70.0667 4.9774,-70.0718 5.0882,-70.0699 5.1669,-70.0626 5.3043,-70.0384 5.4142,-70.0252 5.7257,-70.0132 5.8695,-69.9640 5.9882,-69.9361 6.1300,-69.9172 6.2789,-69.9103 6.4000,-69.9124 6.5203,-69.9208 6.8745,-69.9717 7.0791,-69.9879 7.2833,-69.9876 7.3891,-69.9790 7.5387,-69.9670 7.5872,-69.9630 7.8402,-69.9534 8.0055,-69.9620 8.0638,-69.9694 8.2487,-69.9929 8.3778,-69.9954 8.3826,-69.9948 8.4315,-69.9892 8.5340,-69.9773 8.7146,-69.9258 8.8066,-69.8996 8.9112,-69.8803 9.0300,-69.8670 9.1877,-69.8604 9.3538,-69.8659 9.5081,-69.8816 9.7502,-69.9202 9.8749,-69.9268 9.9714,-69.9142 10.1540,-69.8487 10.3285,-69.8143 10.5648,-69.7970 10.8337,-69.8010 11.0304,-69.8133 11.1850,-69.8335 11.3234,-69.8652 11.4580,-69.9138 268,6.0,Antarctica/Mirny 97.5138,-66.2013 97.5138,-66.6636 97.5138,-67.1259 97.5138,-67.5883 97.5138,-68.0506 97.5138,-68.5130 97.5138,-68.9753 97.5138,-69.4377 97.5138,-69.9000 97.5138,-70.3545 97.5138,-70.8091 97.5138,-71.2636 97.5138,-71.7182 97.5138,-72.1727 97.5138,-72.6273 97.5138,-73.0818 97.5138,-73.5364 97.5138,-73.9909 97.5138,-74.4455 97.5138,-74.9000 97.5138,-75.3545 97.5138,-75.8091 97.5138,-76.2636 97.5138,-76.7182 97.5138,-77.1727 97.5138,-77.6273 97.5138,-78.0818 97.5138,-78.5364 97.5138,-78.9909 97.5138,-79.4455 97.5138,-79.9000 97.5138,-80.3545 97.5138,-80.8091 97.5138,-81.2636 97.5138,-81.7182 97.5138,-82.1727 97.5138,-82.6273 97.5138,-83.0818 97.5138,-83.5364 97.5138,-83.9909 97.5138,-84.4455 97.5138,-84.9000 97.5138,-85.3636 97.5138,-85.8273 97.5138,-86.2909 97.5138,-86.7545 97.5138,-87.2182 97.5138,-87.6818 97.5138,-88.1455 97.5138,-88.6091 97.5138,-89.0727 97.5138,-89.5364 97.5138,-90.0000 97.5085,-90.0000 97.1752,-90.0000 96.8418,-90.0000 96.5085,-90.0000 96.1752,-90.0000 95.8418,-90.0000 95.5085,-90.0000 95.1752,-90.0000 94.8418,-90.0000 94.5085,-90.0000 94.1752,-90.0000 93.8418,-90.0000 93.5085,-90.0000 93.1752,-90.0000 92.8418,-90.0000 92.5085,-90.0000 92.1752,-90.0000 91.8418,-90.0000 91.5085,-90.0000 91.1752,-90.0000 90.8418,-90.0000 90.5085,-90.0000 90.1752,-90.0000 89.8418,-90.0000 89.5085,-90.0000 89.1752,-90.0000 88.8418,-90.0000 88.5085,-90.0000 88.1752,-90.0000 87.8418,-90.0000 87.5085,-90.0000 87.1752,-90.0000 86.8418,-90.0000 86.5085,-90.0000 86.1752,-90.0000 85.8418,-90.0000 85.5085,-90.0000 85.1752,-90.0000 84.8418,-90.0000 84.5085,-90.0000 84.1752,-90.0000 83.8418,-90.0000 83.5085,-90.0000 83.1752,-90.0000 82.8418,-90.0000 82.5085,-90.0000 82.5085,-89.5364 82.5085,-89.0727 82.5084,-88.6091 82.5084,-88.1455 82.5084,-87.6818 82.5084,-87.2182 82.5084,-86.7545 82.5084,-86.2909 82.5084,-85.8273 82.5084,-85.3636 82.5084,-84.9000 82.5083,-84.4648 82.5083,-84.0296 82.5083,-83.5944 82.5083,-83.1592 82.5083,-82.7240 82.5083,-82.2888 82.5083,-81.8343 82.5083,-81.3797 82.5083,-80.9252 82.5082,-80.4706 82.5082,-80.0161 82.5082,-79.5616 82.5082,-79.1070 82.5082,-78.6525 82.5082,-78.1979 82.5082,-77.7434 82.5082,-77.2888 82.5081,-76.8343 82.5081,-76.3797 82.5081,-75.9252 82.5081,-75.4706 82.5081,-75.0161 82.5081,-74.5616 82.5081,-74.1070 82.5081,-73.6525 82.5080,-73.1979 82.5080,-72.7434 82.5080,-72.2888 82.5080,-71.8388 82.5080,-71.3888 82.5080,-70.9388 82.5080,-70.4888 82.5080,-70.0388 82.5079,-69.5888 82.5079,-69.1388 82.5079,-68.6888 82.5079,-68.2687 82.5079,-67.8486 82.5079,-67.4285 82.7937,-67.4175 82.8620,-67.4094 82.9341,-67.3869 83.0665,-67.3072 83.1110,-67.2918 83.1418,-67.2811 83.2406,-67.2588 83.3022,-67.2202 83.3744,-67.1902 83.5293,-67.1518 83.8774,-67.0959 83.9381,-67.0732 84.0746,-67.0028 84.1763,-66.9676 84.3506,-66.9376 84.6143,-66.9284 84.7617,-66.9090 84.8091,-66.8897 84.8335,-66.8630 84.8036,-66.7679 84.6871,-66.7109 84.6345,-66.6728 84.6072,-66.6286 84.6079,-66.5735 84.6436,-66.5036 84.7104,-66.4393 84.7846,-66.3975 84.8952,-66.3634 85.0118,-66.3447 85.1364,-66.3379 85.2608,-66.3434 85.3771,-66.3618 85.4744,-66.3923 85.6910,-66.4917 85.7957,-66.5670 85.8781,-66.5843 85.9334,-66.5797 86.0263,-66.5443 86.0965,-66.5260 86.2290,-66.5043 86.4829,-66.4890 86.5933,-66.4918 86.6818,-66.5008 86.8076,-66.5290 86.9883,-66.5916 87.0581,-66.6261 87.1460,-66.6923 87.1875,-66.7068 87.2314,-66.7117 87.6226,-66.6467 87.7824,-66.6082 87.9608,-66.5913 88.0931,-66.5906 88.2092,-66.5973 88.4368,-66.6336 88.7512,-66.6080 88.8895,-66.6157 89.0863,-66.6131 89.5256,-66.6456 89.6657,-66.6220 89.7595,-66.6126 90.0257,-66.5962 90.2341,-66.5946 90.5250,-66.5357 90.8122,-66.4408 90.9280,-66.4147 91.0297,-66.4030 91.1399,-66.3986 91.3690,-66.4124 91.5423,-66.3742 91.8240,-66.3329 91.9343,-66.3243 92.0394,-66.3267 92.3669,-66.3563 92.4726,-66.3795 92.5945,-66.4217 92.6776,-66.4369 92.7390,-66.4308 92.9217,-66.3936 92.9880,-66.3888 93.1030,-66.3912 93.2502,-66.4070 93.6766,-66.4107 93.7939,-66.4245 93.9255,-66.4491 94.0743,-66.4952 94.0808,-66.4972 94.1074,-66.4897 94.2182,-66.4288 94.3608,-66.3874 94.7673,-66.3134 94.8626,-66.3044 94.9603,-66.3037 95.3441,-66.3458 95.4567,-66.3658 95.5943,-66.4099 95.7212,-66.4812 95.8809,-66.4252 95.9372,-66.4158 95.9672,-66.2906 95.9213,-66.2557 95.8905,-66.2126 95.8834,-66.1642 95.9051,-66.1101 95.9584,-66.0496 96.0310,-65.9931 96.1127,-65.9509 96.2111,-65.9162 96.3240,-65.8898 96.4492,-65.8727 96.5713,-65.8668 97.0489,-65.8935 97.1334,-65.9084 97.2356,-65.9390 97.3292,-65.9850 97.3912,-66.0379 97.4357,-66.1141 97.4439,-66.1809 97.5138,-66.2013 269,5.0,Antarctica/Mawson 67.6160,-67.6319 67.8948,-67.6469 68.1735,-67.6619 68.4107,-67.6981 68.7421,-67.6818 68.8758,-67.6242 69.0181,-67.5802 69.1557,-67.5537 69.3058,-67.5406 69.5093,-67.5415 69.7077,-67.5589 69.8872,-67.5938 70.0189,-67.6397 70.0840,-67.6775 70.1270,-67.7192 70.1798,-67.8524 70.1775,-67.9004 70.1068,-68.0179 70.1324,-68.0787 70.2365,-68.1742 70.6468,-68.4151 70.6858,-68.4560 70.6966,-68.5010 70.6946,-68.5054 71.0731,-68.6939 71.4718,-68.6829 71.8705,-68.6719 72.2692,-68.6609 72.6679,-68.6499 73.0914,-68.7818 73.5148,-68.9138 73.8613,-69.1393 74.2077,-69.3648 74.3495,-69.5489 74.4341,-69.5613 74.5461,-69.5835 74.6195,-69.6050 74.6450,-69.6160 74.7135,-69.6456 74.8289,-69.6557 74.8837,-69.6606 74.9082,-69.6603 74.9452,-69.6598 74.9943,-69.6506 75.0217,-69.6455 75.0382,-69.6424 75.0578,-69.6388 75.0874,-69.6332 75.2079,-69.6225 75.2385,-69.5675 75.2637,-69.5222 75.3148,-69.4637 75.3869,-69.4179 75.4853,-69.3815 75.9414,-69.2610 76.0421,-69.2445 76.2623,-69.2227 76.3177,-69.2124 76.6359,-69.0802 76.7358,-69.0509 76.8675,-69.0313 77.0994,-69.0148 77.2385,-68.9991 77.3475,-68.9957 77.3506,-69.1938 77.3833,-69.1938 77.7835,-69.1938 78.1837,-69.1938 78.5839,-69.1938 78.9840,-69.1938 78.9840,-68.7868 78.9840,-68.3799 78.9840,-67.9729 78.9729,-67.9729 79.2456,-67.9242 79.5184,-67.8754 79.9400,-67.8231 80.2484,-67.7690 80.5567,-67.7148 80.8114,-67.6966 80.9060,-67.6849 81.1738,-67.6328 81.3988,-67.5978 81.7133,-67.5288 82.0182,-67.4911 82.2035,-67.4897 82.3249,-67.4515 82.4480,-67.4307 82.5079,-67.4285 82.5079,-67.8486 82.5079,-68.2687 82.5079,-68.6888 82.5079,-69.1388 82.5079,-69.5888 82.5080,-70.0388 82.5080,-70.4888 82.5080,-70.9388 82.5080,-71.3888 82.5080,-71.8388 82.5080,-72.2888 82.5080,-72.7434 82.5080,-73.1979 82.5081,-73.6525 82.5081,-74.1070 82.5081,-74.5616 82.5081,-75.0161 82.5081,-75.4706 82.5081,-75.9252 82.5081,-76.3797 82.5081,-76.8343 82.5082,-77.2888 82.5082,-77.7434 82.5082,-78.1979 82.5082,-78.6525 82.5082,-79.1070 82.5082,-79.5616 82.5082,-80.0161 82.5082,-80.4706 82.5083,-80.9252 82.5083,-81.3797 82.5083,-81.8343 82.5083,-82.2888 82.5083,-82.7240 82.5083,-83.1592 82.5083,-83.5944 82.5083,-84.0296 82.5083,-84.4648 82.5084,-84.9000 82.5084,-85.3636 82.5084,-85.8273 82.5084,-86.2909 82.5084,-86.7545 82.5084,-87.2182 82.5084,-87.6818 82.5084,-88.1455 82.5084,-88.6091 82.5085,-89.0727 82.5085,-89.5364 82.5085,-90.0000 82.0101,-90.0000 81.5117,-90.0000 81.1784,-90.0000 80.8450,-90.0000 80.5117,-90.0000 80.1784,-90.0000 79.8450,-90.0000 79.5117,-90.0000 79.1784,-90.0000 78.8450,-90.0000 78.5117,-90.0000 78.1784,-90.0000 77.8450,-90.0000 77.5117,-90.0000 77.1784,-90.0000 76.8450,-90.0000 76.5117,-90.0000 76.1784,-90.0000 75.8450,-90.0000 75.5117,-90.0000 75.1784,-90.0000 74.8450,-90.0000 74.5117,-90.0000 74.1784,-90.0000 73.8450,-90.0000 73.5117,-90.0000 73.1784,-90.0000 72.8450,-90.0000 72.5117,-90.0000 72.1784,-90.0000 71.8450,-90.0000 71.5117,-90.0000 71.1784,-90.0000 70.8450,-90.0000 70.5117,-90.0000 70.1784,-90.0000 69.8450,-90.0000 69.5117,-90.0000 69.1784,-90.0000 68.8450,-90.0000 68.5117,-90.0000 68.1784,-90.0000 67.8450,-90.0000 67.5117,-90.0000 67.5117,-89.6482 67.5117,-89.1937 67.5117,-88.7391 67.5117,-88.2846 67.5117,-87.8300 67.5117,-87.3755 67.5117,-86.9210 67.5117,-86.4664 67.5117,-86.0119 67.5117,-85.5573 67.5117,-85.1028 67.5117,-84.6482 67.5117,-84.1937 67.5117,-83.7391 67.5117,-83.2846 67.5117,-82.8300 67.5117,-82.3755 67.5117,-81.9210 67.5117,-81.4664 67.5117,-81.0119 67.5117,-80.5573 67.5117,-80.1028 67.5117,-79.6482 67.5117,-79.1881 67.5117,-78.7280 67.5117,-78.2679 67.5117,-77.8077 67.5117,-77.3476 67.5117,-76.8875 67.5117,-76.4329 67.5117,-75.9784 67.5117,-75.5239 67.5117,-75.0693 67.5117,-74.6148 67.5117,-74.1602 67.5117,-73.7057 67.5117,-73.2511 67.5117,-72.7966 67.5117,-72.3420 67.5117,-71.8875 67.5117,-71.4868 67.5117,-71.0862 67.5117,-70.6855 67.5117,-70.2849 67.5117,-70.1137 67.5117,-69.8063 67.5117,-69.4988 67.0134,-69.4988 66.5151,-69.4988 66.0168,-69.4988 65.5185,-69.4988 65.0202,-69.4988 64.5219,-69.4988 64.0236,-69.4988 63.5253,-69.4988 63.0270,-69.4988 62.5287,-69.4988 62.0304,-69.4988 62.0297,-69.0717 62.0290,-68.6445 62.0283,-68.2173 62.0276,-67.7901 62.0269,-67.3630 62.1840,-67.3710 62.4993,-67.4065 62.6283,-67.4321 62.8141,-67.3755 62.9722,-67.3488 63.2809,-67.3301 63.5896,-67.3113 63.7060,-67.3124 64.0725,-67.3415 64.2403,-67.3604 64.5936,-67.4087 64.9440,-67.4733 65.3527,-67.5018 65.7614,-67.5303 66.1701,-67.5589 66.5787,-67.5874 66.7309,-67.5865 67.0520,-67.5684 67.2056,-67.5700 67.3235,-67.5828 67.4189,-67.5988 67.5117,-67.6144 67.6160,-67.6319 269,2.0,Antarctica/ 35.8547,-69.4381 35.9054,-69.4424 36.0172,-69.4349 36.3051,-69.4020 36.5003,-69.4038 36.6935,-69.4243 36.8320,-69.4297 36.9339,-69.4413 37.0854,-69.4693 37.2225,-69.5104 37.3632,-69.4895 37.4578,-69.4823 37.5295,-69.4806 37.5295,-69.8989 37.5295,-69.9000 37.5295,-70.3999 37.5295,-70.8998 37.5295,-71.3997 37.5295,-71.8996 37.5295,-72.3995 37.5295,-72.8994 37.5295,-73.3993 37.5295,-73.8992 37.5295,-74.3990 37.5295,-74.8989 37.5295,-74.9000 37.5295,-75.3999 37.5295,-75.8998 37.5295,-76.3997 37.5295,-76.8996 37.5295,-77.3995 37.5295,-77.8994 37.5295,-78.3993 37.5295,-78.8992 37.5295,-79.3990 37.5295,-79.8989 37.5295,-79.9000 37.5295,-80.3999 37.5295,-80.8998 37.5295,-81.3997 37.5295,-81.8996 37.5295,-82.3995 37.5295,-82.8994 37.5295,-83.3993 37.5295,-83.8992 37.5295,-84.3990 37.5295,-84.8989 37.5295,-84.9000 37.5295,-85.3635 37.5295,-85.8271 37.5295,-86.2906 37.5295,-86.7542 37.5295,-87.2177 37.5295,-87.6812 37.5295,-88.1448 37.5295,-88.6083 37.5295,-89.0719 37.5295,-89.5354 37.5295,-89.9989 37.5038,-89.9989 37.1705,-89.9989 36.8372,-89.9989 36.5038,-89.9989 36.1705,-89.9989 35.8372,-89.9989 35.5038,-89.9989 35.1705,-89.9989 34.8372,-89.9989 34.5038,-89.9989 34.1705,-89.9989 33.8372,-89.9989 33.5038,-89.9989 33.1705,-89.9989 32.8372,-89.9989 32.5038,-89.9989 32.1705,-89.9989 31.8372,-89.9989 31.5038,-89.9989 31.1705,-89.9989 30.8372,-89.9989 30.5038,-89.9989 30.1705,-89.9989 29.8372,-89.9989 29.5038,-89.9989 29.1705,-89.9989 28.8372,-89.9989 28.5038,-89.9989 28.1705,-89.9989 27.8372,-89.9989 27.5038,-89.9989 27.1705,-89.9989 26.8372,-89.9989 26.5038,-89.9989 26.1705,-89.9989 25.8372,-89.9989 25.5038,-89.9989 25.1705,-89.9989 24.8372,-89.9989 24.5038,-89.9989 24.1705,-89.9989 23.8372,-89.9989 23.5038,-89.9989 23.1705,-89.9989 22.8372,-89.9989 22.5038,-89.9989 22.5038,-89.5365 22.5038,-89.0740 22.5038,-88.6116 22.5038,-88.1491 22.5038,-87.6866 22.5038,-87.2242 22.5038,-86.7617 22.5038,-86.2993 22.5038,-85.8368 22.5038,-85.3744 22.5038,-84.9119 22.5038,-84.9108 22.5038,-84.8989 22.5038,-84.5499 22.5038,-84.2009 22.5038,-83.8519 22.5038,-83.8509 22.5038,-83.8390 22.5038,-83.3403 22.5038,-82.8416 22.5038,-82.3429 22.5038,-81.8442 22.5038,-81.3455 22.5038,-80.8467 22.5038,-80.3480 22.5038,-79.8493 22.5038,-79.3506 22.5038,-78.8519 22.5038,-78.8509 22.5038,-78.8390 22.5038,-78.3403 22.5038,-77.8416 22.5038,-77.3429 22.5038,-76.8442 22.5038,-76.3455 22.5038,-75.8467 22.5038,-75.3480 22.5038,-74.8493 22.5038,-74.3506 22.5038,-73.8519 22.5038,-73.8509 22.5038,-73.8390 22.5038,-73.3694 22.5038,-72.8998 22.5038,-72.4302 22.5038,-71.9607 22.5038,-71.4911 22.5038,-71.0215 22.5038,-70.5519 22.5038,-70.5509 22.5038,-70.5390 22.5038,-70.1860 22.7385,-70.2903 22.8703,-70.3250 22.9798,-70.3633 23.0171,-70.3699 23.0581,-70.3682 23.1043,-70.3557 23.2491,-70.2816 23.3421,-70.2473 23.4450,-70.2223 23.5677,-70.2048 23.7411,-70.1951 23.9799,-70.1971 24.2370,-70.2062 24.4173,-70.2282 24.5602,-70.2592 24.7100,-70.3064 24.8377,-70.3619 24.9516,-70.4312 24.9991,-70.4764 25.3438,-70.3856 25.3420,-70.3840 25.3057,-70.3108 25.3108,-70.2362 25.3578,-70.1635 25.4339,-70.1046 25.5253,-70.0594 25.6244,-70.0266 25.7229,-69.9754 25.8334,-69.9339 26.0091,-69.8899 26.1961,-69.8635 26.4141,-69.8527 26.6165,-69.8602 26.8615,-69.8926 27.0502,-69.9370 27.1604,-69.9790 27.2473,-70.0307 27.3539,-70.1568 27.4714,-70.2626 27.5009,-70.3260 27.4957,-70.3716 27.5847,-70.5354 27.7517,-70.5283 27.8597,-70.5188 28.0719,-70.4849 28.2429,-70.4685 28.4523,-70.4171 28.6203,-70.3925 28.7273,-70.3487 28.8914,-70.2967 28.9763,-70.2645 29.0576,-70.2338 29.1717,-70.2082 29.3306,-70.1871 29.4439,-70.1526 29.5732,-70.1262 30.0480,-70.0699 30.5233,-70.0589 30.6810,-70.0272 30.8214,-70.0120 31.0084,-70.0083 31.1889,-70.0220 31.2267,-70.0206 31.3928,-69.9969 31.6048,-69.9577 31.8471,-69.9262 31.9852,-69.8937 32.2098,-69.8513 32.2440,-69.8269 32.2437,-69.7719 32.2595,-69.7361 32.3934,-69.6137 32.4072,-69.5341 32.3930,-69.4505 32.3616,-69.4253 32.2259,-69.3630 32.1624,-69.3250 31.9812,-69.1856 31.9299,-69.1356 31.9138,-69.0920 31.9389,-69.0108 31.9280,-68.9210 31.9414,-68.8750 31.9758,-68.8298 32.0419,-68.7717 32.1507,-68.7130 32.4940,-68.5880 32.9424,-68.4899 33.0720,-68.4710 33.2035,-68.4635 33.5518,-68.4664 33.9002,-68.4694 34.2485,-68.4724 34.3627,-68.4785 34.4811,-68.4928 34.5747,-68.5113 34.6710,-68.5386 34.8323,-68.6103 34.8883,-68.6485 34.9239,-68.6877 34.9475,-68.7805 34.9066,-68.8909 35.2687,-69.0062 35.4392,-69.0804 35.6005,-69.1396 35.6845,-69.1803 35.7389,-69.2190 35.7627,-69.2530 35.7518,-69.3575 35.7619,-69.3882 35.7996,-69.4196 35.8547,-69.4381 238,9.0,Antarctica/ 134.0643,-65.9955 134.2629,-66.0762 134.3823,-66.1105 134.4747,-66.1501 134.6534,-66.1814 134.7335,-66.1827 134.7678,-66.1832 134.8429,-66.1763 134.9021,-66.1490 134.9390,-66.1182 135.0018,-66.0309 135.0925,-65.9836 135.1678,-65.9636 135.2517,-65.9514 135.3543,-65.9459 135.4597,-65.9483 135.6312,-65.9668 135.7377,-65.9934 135.8284,-66.0388 135.8840,-66.0994 136.0871,-66.0806 136.1344,-66.0815 136.4526,-66.1492 136.5649,-66.2032 136.9348,-66.1726 137.2353,-66.1823 137.5357,-66.1920 137.6773,-66.2112 137.8179,-66.2177 137.8857,-66.2273 138.2079,-66.3390 138.3963,-66.3755 138.4594,-66.3794 138.5924,-66.3676 138.6868,-66.3676 138.7842,-66.3773 138.8973,-66.4012 139.1735,-66.4149 139.4497,-66.4286 139.6636,-66.4623 139.6636,-66.8876 139.6636,-67.3128 139.6636,-67.7381 140.1367,-67.7381 140.6098,-67.7381 141.0829,-67.7381 141.5560,-67.7381 142.0292,-67.7381 142.5023,-67.7381 142.5023,-67.9966 142.5023,-68.3765 142.5023,-68.8311 142.5023,-69.2856 142.5023,-69.7402 142.5023,-70.1947 142.5023,-70.6493 142.5023,-71.1038 142.5023,-71.5583 142.5023,-72.0129 142.5023,-72.4674 142.5023,-72.9220 142.5023,-73.3765 142.5023,-73.8165 142.5023,-74.2565 142.5023,-74.6965 142.5023,-75.1365 142.5023,-75.5765 142.5023,-76.0311 142.5023,-76.4856 142.5023,-76.9402 142.5023,-77.3947 142.5023,-77.8493 142.5023,-78.3038 142.5023,-78.7583 142.5023,-79.2129 142.5023,-79.6674 142.5023,-80.1220 142.5023,-80.5765 142.5023,-81.0311 142.5023,-81.4856 142.5023,-81.9402 142.5023,-82.3947 142.5023,-82.8493 142.5023,-83.3038 142.5023,-83.7583 142.5023,-84.2129 142.5023,-84.6674 142.5023,-85.1220 142.5023,-85.5765 142.5023,-86.0099 142.5023,-86.4432 142.5023,-86.8765 142.5023,-87.3099 142.5023,-87.7432 142.5023,-88.1765 142.5023,-88.6324 142.5023,-89.0883 142.5023,-89.5441 142.5023,-90.0000 142.0051,-90.0000 141.5080,-90.0000 141.1746,-90.0000 140.8413,-90.0000 140.5080,-90.0000 140.1746,-90.0000 139.8413,-90.0000 139.5080,-90.0000 139.1746,-90.0000 138.8413,-90.0000 138.5080,-90.0000 138.1746,-90.0000 137.8413,-90.0000 137.5080,-90.0000 137.1746,-90.0000 136.8413,-90.0000 136.5080,-90.0000 136.1746,-90.0000 135.8413,-90.0000 135.5080,-90.0000 135.1746,-90.0000 134.8413,-90.0000 134.5080,-90.0000 134.1746,-90.0000 133.8413,-90.0000 133.5080,-90.0000 133.1746,-90.0000 132.8413,-90.0000 132.5080,-90.0000 132.1746,-90.0000 131.8413,-90.0000 131.5080,-90.0000 131.1746,-90.0000 130.8413,-90.0000 130.5080,-90.0000 130.1746,-90.0000 129.8413,-90.0000 129.5080,-90.0000 129.1746,-90.0000 128.8413,-90.0000 128.5080,-90.0000 128.0084,-90.0000 127.5089,-90.0000 127.5089,-89.5364 127.5089,-89.0727 127.5089,-88.6091 127.5089,-88.1455 127.5089,-87.6818 127.5089,-87.2182 127.5089,-86.7545 127.5089,-86.2909 127.5089,-85.8273 127.5089,-85.3636 127.5089,-84.9000 127.5089,-84.4211 127.5089,-83.9422 127.5089,-83.4633 127.5089,-82.9844 127.5089,-82.5056 127.5089,-82.0267 127.5089,-81.5721 127.5089,-81.1176 127.5089,-80.6630 127.5089,-80.2085 127.5089,-79.7539 127.5089,-79.2994 127.5089,-78.8448 127.5089,-78.3903 127.5089,-77.9358 127.5089,-77.4812 127.5089,-77.0267 127.5089,-76.5721 127.5089,-76.1176 127.5089,-75.6630 127.5089,-75.2085 127.5089,-74.7539 127.5089,-74.2994 127.5089,-73.8448 127.5089,-73.3903 127.5089,-72.9358 127.5089,-72.4812 127.5089,-72.0267 127.5089,-71.5767 127.5089,-71.1267 127.5089,-70.6767 127.5089,-70.2267 127.5089,-69.7767 127.5089,-69.3267 127.5089,-68.8767 127.5089,-68.4267 127.5089,-68.0167 127.5089,-67.6068 127.5089,-67.1969 127.5089,-66.7869 127.6077,-66.8052 127.6724,-66.8294 127.7396,-66.8677 127.8616,-66.8615 128.1500,-66.8671 128.2583,-66.8814 128.3883,-66.9142 128.4431,-66.9178 128.6746,-66.8721 128.7657,-66.8677 128.8964,-66.8732 128.9343,-66.8678 128.9673,-66.8550 129.0781,-66.7548 129.0845,-66.6615 129.1534,-66.5662 129.2021,-66.5285 129.3183,-66.4685 129.3544,-66.3918 129.3869,-66.3580 129.5806,-66.2600 129.8953,-66.1449 130.0671,-66.1158 130.2950,-66.1002 130.4499,-66.0336 130.5876,-66.0013 130.6936,-65.9920 130.7874,-65.9934 130.8803,-66.0047 131.0313,-66.0359 131.2406,-66.0436 131.4947,-66.0638 131.7488,-66.0840 131.8390,-66.0733 132.0413,-66.0283 132.4147,-65.9982 132.5784,-66.0007 132.7378,-66.0315 132.8604,-65.9812 132.9829,-65.9531 133.2254,-65.9259 133.4064,-65.9249 133.8610,-65.9525 133.9506,-65.9644 134.0643,-65.9955 213,4.0,Antarctica/ 59.5847,-67.1989 59.9808,-67.2053 60.3807,-67.1792 60.5818,-67.1805 60.6999,-67.1968 60.9945,-67.2647 61.2269,-67.2891 61.4768,-67.3507 61.6596,-67.3460 62.0269,-67.3630 62.0276,-67.7901 62.0283,-68.2173 62.0290,-68.6445 62.0297,-69.0717 62.0304,-69.4988 62.5287,-69.4988 63.0270,-69.4988 63.5253,-69.4988 64.0236,-69.4988 64.5219,-69.4988 65.0202,-69.4988 65.5185,-69.4988 66.0168,-69.4988 66.5151,-69.4988 67.0134,-69.4988 67.5117,-69.4988 67.5117,-69.8063 67.5117,-70.1137 67.5117,-70.2849 67.5117,-70.6855 67.5117,-71.0862 67.5117,-71.4868 67.5117,-71.8875 67.5117,-72.3420 67.5117,-72.7966 67.5117,-73.2511 67.5117,-73.7057 67.5117,-74.1602 67.5117,-74.6148 67.5117,-75.0693 67.5117,-75.5239 67.5117,-75.9784 67.5117,-76.4329 67.5117,-76.8875 67.5117,-77.3476 67.5117,-77.8077 67.5117,-78.2679 67.5117,-78.7280 67.5117,-79.1881 67.5117,-79.6482 67.5117,-80.1028 67.5117,-80.5573 67.5117,-81.0119 67.5117,-81.4664 67.5117,-81.9210 67.5117,-82.3755 67.5117,-82.8300 67.5117,-83.2846 67.5117,-83.7391 67.5117,-84.1937 67.5117,-84.6482 67.5117,-85.1028 67.5117,-85.5573 67.5117,-86.0119 67.5117,-86.4664 67.5117,-86.9210 67.5117,-87.3755 67.5117,-87.8300 67.5117,-88.2846 67.5117,-88.7391 67.5117,-89.1937 67.5117,-89.6482 67.5117,-90.0000 67.0165,-90.0000 66.5213,-90.0000 66.1880,-90.0000 65.8547,-90.0000 65.5213,-90.0000 65.1880,-90.0000 64.8547,-90.0000 64.5213,-90.0000 64.1880,-90.0000 63.8547,-90.0000 63.5213,-90.0000 63.1880,-90.0000 62.8547,-90.0000 62.5213,-90.0000 62.1880,-90.0000 61.8547,-90.0000 61.5213,-90.0000 61.1880,-90.0000 60.8547,-90.0000 60.5213,-90.0000 60.1880,-90.0000 59.8547,-90.0000 59.5213,-90.0000 59.1880,-90.0000 58.8547,-90.0000 58.5213,-90.0000 58.1880,-90.0000 57.8547,-90.0000 57.5213,-90.0000 57.1880,-90.0000 56.8547,-90.0000 56.5213,-90.0000 56.1880,-90.0000 55.8547,-90.0000 55.5213,-90.0000 55.1880,-90.0000 54.8547,-90.0000 54.5213,-90.0000 54.1880,-90.0000 53.8547,-90.0000 53.5213,-90.0000 53.1880,-90.0000 52.8547,-90.0000 52.5213,-90.0000 52.5213,-89.6581 52.5213,-89.3161 52.5213,-88.9742 52.5213,-88.5196 52.5213,-88.0651 52.5213,-87.6105 52.5213,-87.1560 52.5213,-86.7014 52.5213,-86.2469 52.5213,-85.7923 52.5213,-85.3378 52.5213,-84.8833 52.5213,-84.4287 52.5213,-83.9742 52.5213,-83.5196 52.5213,-83.0651 52.5213,-82.6105 52.5213,-82.1560 52.5213,-81.7014 52.5213,-81.2469 52.5213,-80.7923 52.5213,-80.3378 52.5213,-79.8833 52.5213,-79.4287 52.5213,-78.9742 52.5213,-78.5575 52.5213,-78.1408 52.5213,-77.7242 52.5212,-77.3075 52.5212,-76.8908 52.5212,-76.4742 52.5212,-76.0196 52.5212,-75.5651 52.5212,-75.1105 52.5212,-74.6560 52.5212,-74.2014 52.5212,-73.7469 52.5212,-73.2923 52.5212,-72.8378 52.5212,-72.3833 52.5212,-71.9287 52.5212,-71.4742 52.5212,-71.0196 52.5212,-70.5651 52.5212,-70.1105 52.5212,-69.6560 52.5212,-69.2014 52.5212,-68.7469 52.5212,-68.2923 52.5212,-67.8378 52.5212,-67.3833 52.5212,-66.9287 52.5212,-66.4742 52.5212,-66.1211 52.5212,-65.7681 52.6305,-65.7664 52.7550,-65.7595 53.0819,-65.7180 53.3259,-65.6987 53.5986,-65.6572 53.7657,-65.6468 53.9139,-65.6534 54.0940,-65.6818 54.3475,-65.6823 54.8251,-65.7109 55.3027,-65.7396 55.4123,-65.7566 55.8816,-65.8640 55.9533,-65.8880 56.0413,-65.9339 56.1437,-65.9601 56.2043,-65.9842 56.3968,-66.1188 56.5681,-66.1879 56.9108,-66.2131 57.0416,-66.2336 57.4131,-66.3437 57.6010,-66.4162 57.6977,-66.4741 57.7532,-66.5316 57.7702,-66.5849 57.7738,-66.7580 57.7971,-66.7897 57.8418,-66.8132 58.0876,-66.8654 58.1995,-66.8986 58.3473,-66.9182 58.4890,-66.9555 58.5657,-66.9614 58.8886,-66.9659 59.0129,-66.9771 59.1151,-66.9942 59.2196,-67.0248 59.4831,-67.1245 59.5482,-67.1601 59.5847,-67.1989 319,11.0,Antarctica/ 161.3447,-70.1069 161.3812,-70.1090 161.4323,-70.1043 161.6225,-70.0676 161.7290,-70.0537 161.8466,-70.0474 161.9608,-70.0503 162.0820,-70.0638 162.2735,-70.1069 162.5577,-70.0994 162.6815,-70.1013 162.8241,-70.1159 162.9959,-70.1481 163.0822,-70.1582 163.2291,-70.1654 163.5343,-70.1708 163.6795,-70.1830 163.7992,-70.2041 163.9082,-70.2361 163.9676,-70.2595 164.0345,-70.3059 164.0756,-70.3235 164.2370,-70.3197 164.3450,-70.3235 164.6678,-70.3593 164.8888,-70.3721 165.0484,-70.3901 165.3924,-70.3928 165.5426,-70.3993 165.6993,-70.4181 165.8717,-70.4581 166.2212,-70.4188 166.3662,-70.4116 166.5188,-70.4187 166.7045,-70.4453 166.8914,-70.4547 167.0091,-70.4737 167.1180,-70.5026 167.2068,-70.5372 167.2961,-70.5855 167.4706,-70.5867 167.5089,-70.5894 167.5608,-70.5931 167.9025,-70.6316 168.0501,-70.6634 168.1975,-70.7201 168.3243,-70.7968 168.3973,-70.9015 168.3947,-70.9546 168.4195,-70.9699 168.4835,-70.9828 168.7492,-71.0043 168.9768,-71.0394 169.1208,-71.0843 169.2574,-71.1620 169.4775,-71.2003 169.6036,-71.2377 169.6554,-71.2331 169.9198,-71.1532 170.0888,-71.1259 170.2100,-71.1177 170.3313,-71.1181 170.4343,-71.1252 170.5352,-71.1403 170.6190,-71.1616 170.6984,-71.1919 170.8550,-71.2842 170.9281,-71.3409 171.1529,-71.5503 171.3199,-71.6242 171.4040,-71.6922 171.4428,-71.7377 171.5085,-71.7840 171.5322,-71.8322 171.5141,-71.8794 171.4572,-71.9313 171.3568,-71.9923 171.2558,-72.0455 171.1635,-72.0812 170.9668,-72.1406 170.8025,-72.1735 170.7710,-72.1886 170.7709,-72.2167 170.8719,-72.3132 170.9260,-72.4194 170.9247,-72.4562 170.8881,-72.5156 170.8525,-72.6217 170.8095,-72.6667 170.7520,-72.7007 170.6795,-72.7279 170.5457,-72.7616 170.5201,-72.7730 170.2332,-72.9963 170.2410,-73.0469 170.2270,-73.0830 170.1750,-73.1314 170.1076,-73.1711 170.1214,-73.1783 170.2653,-73.2113 170.3627,-73.2565 170.4109,-73.2990 170.4819,-73.3983 170.5793,-73.4863 170.5814,-73.5255 170.5495,-73.5712 170.4352,-73.6689 170.3526,-73.7159 170.2732,-73.7430 170.1767,-73.7641 170.0204,-73.7866 169.8529,-73.8025 169.7087,-73.8089 169.5782,-73.8080 169.4497,-73.7995 169.3483,-73.7862 169.2570,-73.7670 169.1737,-73.7416 168.9489,-73.6604 168.8761,-73.6230 168.8389,-73.5860 168.8302,-73.5476 168.8511,-73.5088 168.9018,-73.4691 168.8962,-73.4615 168.8412,-73.4480 168.7013,-73.4260 168.5796,-73.4169 168.5375,-73.4204 168.5073,-73.4280 168.1810,-73.5663 168.0963,-73.5871 167.9225,-73.6191 167.7301,-73.6713 167.6294,-73.6872 167.3863,-73.7122 167.1058,-73.7533 166.9184,-73.7706 166.7216,-73.8906 166.6351,-73.9275 166.5145,-73.9589 166.2825,-73.9906 166.1496,-74.0283 166.1496,-73.6573 166.1496,-73.2863 165.6729,-73.2863 165.1963,-73.2863 164.7197,-73.2863 164.2431,-73.2863 163.7665,-73.2863 163.2899,-73.2863 162.8133,-73.2863 162.3367,-73.2863 161.8601,-73.2863 161.8600,-73.7561 161.8600,-74.2259 161.8599,-74.6957 161.8598,-75.1655 161.8598,-75.6353 161.8597,-76.1050 161.8596,-76.5748 161.8596,-77.0446 161.8595,-77.5144 161.8594,-77.9842 161.8594,-78.4540 161.8593,-78.9238 161.8592,-79.3936 161.8592,-79.8633 162.3432,-79.8623 162.8272,-79.8613 163.3112,-79.8603 163.7953,-79.8593 164.2793,-79.8583 164.7633,-79.8573 165.2473,-79.8563 165.7314,-79.8553 166.2154,-79.8542 166.6994,-79.8532 167.1834,-79.8522 167.6675,-79.8512 168.1515,-79.8502 168.6355,-79.8492 169.1196,-79.8482 169.6036,-79.8472 170.0876,-79.8462 170.5716,-79.8451 171.0557,-79.8441 171.5397,-79.8431 172.0237,-79.8421 172.5077,-79.8411 172.5073,-80.3090 172.5069,-80.7770 172.5066,-81.2449 172.5062,-81.7128 172.5058,-82.1808 172.5054,-82.6487 172.5050,-83.1166 172.5046,-83.5846 172.5042,-84.0525 172.5038,-84.5204 172.5036,-84.9750 172.5034,-85.4295 172.5031,-85.8841 172.5029,-86.3386 172.5027,-86.7932 172.5024,-87.2477 172.5022,-87.7022 172.5020,-88.1568 172.5018,-88.6113 172.5015,-89.0659 172.5013,-89.5204 172.5011,-90.0000 172.0604,-90.0000 171.6197,-90.0000 171.1790,-90.0000 170.7383,-90.0000 170.2976,-90.0000 169.8569,-90.0000 169.4162,-90.0000 168.9756,-90.0000 168.5349,-90.0000 168.0942,-90.0000 167.6535,-90.0000 167.2128,-90.0000 166.7721,-90.0000 166.3314,-90.0000 165.8907,-90.0000 165.4500,-90.0000 165.0093,-90.0000 164.5686,-90.0000 164.1280,-90.0000 163.6873,-90.0000 163.2466,-90.0000 162.8059,-90.0000 162.3652,-90.0000 161.9245,-90.0000 161.4838,-90.0000 161.0431,-90.0000 160.6024,-90.0000 160.1617,-90.0000 159.7210,-90.0000 159.2804,-90.0000 158.8397,-90.0000 158.3990,-90.0000 157.9583,-90.0000 157.5176,-90.0000 157.5176,-89.5022 157.5176,-89.0044 157.5176,-88.5498 157.5176,-88.0953 157.5176,-87.6407 157.5176,-87.1862 157.5176,-86.7316 157.5176,-86.2771 157.5176,-85.8225 157.5176,-85.3680 157.5176,-84.9135 157.5176,-84.4589 157.5176,-84.0044 157.5176,-83.5498 157.5176,-83.0953 157.5176,-82.6407 157.5176,-82.1862 157.5176,-81.7316 157.5176,-81.2771 157.5176,-80.8225 157.5176,-80.3680 157.5176,-79.9135 157.5176,-79.4589 157.5176,-79.0044 157.5176,-78.5498 157.5176,-78.0953 157.5176,-77.6407 157.5176,-77.1862 157.5176,-76.7316 157.5176,-76.2771 157.5176,-75.8225 157.5176,-75.3680 157.5176,-74.9135 157.5176,-74.4589 157.5176,-74.0044 157.5176,-73.5073 157.5176,-73.0102 157.5176,-72.5132 157.5176,-72.0161 157.5176,-71.5190 157.5176,-71.0220 157.5176,-70.5249 157.5176,-70.0278 157.5176,-69.5308 157.5176,-69.0337 157.6463,-69.0262 157.8800,-69.0035 158.0117,-69.0055 158.1300,-69.0139 158.5259,-69.0856 158.7052,-69.1464 158.9034,-69.1519 159.0619,-69.1738 159.1648,-69.2022 159.3090,-69.2600 159.5094,-69.2853 159.6835,-69.3282 159.9376,-69.3491 160.0599,-69.3721 160.2072,-69.4266 160.3080,-69.4951 160.4491,-69.5445 160.5795,-69.6267 160.6978,-69.6776 160.7631,-69.7142 160.8033,-69.7486 160.8210,-69.7802 160.8090,-69.8884 160.9286,-69.9121 161.0163,-69.9400 161.2169,-70.0304 161.3183,-70.0977 161.3447,-70.1069 302,10.0,Antarctica/DumontDUrville 142.5147,-66.7784 142.5779,-66.8268 142.6051,-66.8476 142.6522,-66.8655 142.6799,-66.8634 142.8241,-66.8182 143.2309,-66.7193 143.3691,-66.6961 143.5028,-66.6878 143.6486,-66.6969 143.9443,-66.7422 144.1079,-66.7899 144.2222,-66.8493 144.4661,-66.8445 144.6710,-66.8711 144.8115,-66.9095 144.9591,-66.9869 145.0439,-67.0603 145.0666,-67.1278 145.0313,-67.1925 144.8940,-67.3032 144.8206,-67.4017 144.7271,-67.4627 144.5948,-67.5291 144.6047,-67.5643 144.6489,-67.5668 144.7061,-67.5512 144.8773,-67.4488 144.9979,-67.3977 145.1130,-67.3692 145.2635,-67.3514 145.3969,-67.3483 145.5276,-67.3560 145.6673,-67.3800 145.7730,-67.4153 145.9636,-67.4245 146.1531,-67.4337 146.3093,-67.4591 146.4944,-67.5125 146.6099,-67.5810 146.7398,-67.6128 146.8068,-67.6368 146.9145,-67.7040 146.9619,-67.7657 147.0804,-67.7934 147.1833,-67.8283 147.2478,-67.8611 147.2948,-67.9031 147.3943,-67.9355 147.4342,-67.9562 147.4816,-67.9985 147.5084,-68.0605 147.5076,-68.1151 147.4706,-68.1855 147.4810,-68.2023 147.6095,-68.1962 147.8968,-68.2077 148.0083,-68.2196 148.1535,-68.2526 148.2881,-68.2528 148.4344,-68.2679 148.5589,-68.2483 148.6646,-68.2411 148.7487,-68.2421 148.9183,-68.2558 149.0480,-68.2418 149.1769,-68.2406 149.3162,-68.2243 149.4663,-68.2202 149.6401,-68.1942 149.7632,-68.1904 149.9261,-68.2067 150.0074,-68.2247 150.1126,-68.2612 150.1984,-68.2673 150.4226,-68.2616 150.6483,-68.2067 150.7870,-68.1869 150.9180,-68.1803 151.0632,-68.1855 151.1607,-68.1969 151.2517,-68.2148 151.3336,-68.2390 151.4031,-68.2690 151.5021,-68.3370 151.6100,-68.4664 151.6448,-68.4893 151.6871,-68.5045 151.7469,-68.5110 151.9058,-68.5038 152.0170,-68.5067 152.1212,-68.5197 152.2370,-68.5450 152.4461,-68.5361 152.5283,-68.5408 152.6793,-68.5608 152.8206,-68.5931 152.9508,-68.6110 153.0869,-68.6385 153.2038,-68.6202 153.2622,-68.5920 153.2531,-68.5453 153.2838,-68.4791 153.2409,-68.3862 153.2429,-68.3333 153.2855,-68.2558 153.3662,-68.1950 153.4959,-68.1466 153.6756,-68.1158 153.8511,-68.1107 154.0436,-68.1297 154.2706,-68.1790 154.6612,-68.3013 154.8854,-68.3450 154.9884,-68.3822 155.1315,-68.4648 155.2121,-68.5913 155.2247,-68.6393 155.3541,-68.7185 155.6403,-68.7745 155.9112,-68.7890 156.0664,-68.8165 156.1613,-68.8445 156.2530,-68.8815 156.3956,-68.9718 156.5056,-69.0019 156.5511,-69.0071 156.5764,-69.0069 156.7587,-69.0056 156.9232,-68.9826 157.0409,-68.9783 157.2121,-68.9899 157.4720,-69.0364 157.5176,-69.0337 157.5176,-69.5308 157.5176,-70.0278 157.5176,-70.5249 157.5176,-71.0220 157.5176,-71.5190 157.5176,-72.0161 157.5176,-72.5132 157.5176,-73.0102 157.5176,-73.5073 157.5176,-74.0044 157.5176,-74.4589 157.5176,-74.9135 157.5176,-75.3680 157.5176,-75.8225 157.5176,-76.2771 157.5176,-76.7316 157.5176,-77.1862 157.5176,-77.6407 157.5176,-78.0953 157.5176,-78.5498 157.5176,-79.0044 157.5176,-79.4589 157.5176,-79.9135 157.5176,-80.3680 157.5176,-80.8225 157.5176,-81.2771 157.5176,-81.7316 157.5176,-82.1862 157.5176,-82.6407 157.5176,-83.0953 157.5176,-83.5498 157.5176,-84.0044 157.5176,-84.4589 157.5176,-84.9135 157.5176,-85.3680 157.5176,-85.8225 157.5176,-86.2771 157.5176,-86.7316 157.5176,-87.1862 157.5176,-87.6407 157.5176,-88.0953 157.5176,-88.5498 157.5176,-89.0044 157.5176,-89.5022 157.5176,-90.0000 157.5023,-90.0000 157.1689,-90.0000 156.8356,-90.0000 156.5023,-90.0000 156.1689,-90.0000 155.8356,-90.0000 155.5023,-90.0000 155.1689,-90.0000 154.8356,-90.0000 154.5023,-90.0000 154.1689,-90.0000 153.8356,-90.0000 153.5023,-90.0000 153.1689,-90.0000 152.8356,-90.0000 152.5023,-90.0000 152.1689,-90.0000 151.8356,-90.0000 151.5023,-90.0000 151.1689,-90.0000 150.8356,-90.0000 150.5023,-90.0000 150.1689,-90.0000 149.8356,-90.0000 149.5023,-90.0000 149.1689,-90.0000 148.8356,-90.0000 148.5023,-90.0000 148.1689,-90.0000 147.8356,-90.0000 147.5023,-90.0000 147.1689,-90.0000 146.8356,-90.0000 146.5023,-90.0000 146.1689,-90.0000 145.8356,-90.0000 145.5023,-90.0000 145.1689,-90.0000 144.8356,-90.0000 144.5023,-90.0000 144.1689,-90.0000 143.8356,-90.0000 143.5023,-90.0000 143.1689,-90.0000 142.8356,-90.0000 142.5023,-90.0000 142.5023,-89.5441 142.5023,-89.0883 142.5023,-88.6324 142.5023,-88.1765 142.5023,-87.7432 142.5023,-87.3099 142.5023,-86.8765 142.5023,-86.4432 142.5023,-86.0099 142.5023,-85.5765 142.5023,-85.1220 142.5023,-84.6674 142.5023,-84.2129 142.5023,-83.7583 142.5023,-83.3038 142.5023,-82.8493 142.5023,-82.3947 142.5023,-81.9402 142.5023,-81.4856 142.5023,-81.0311 142.5023,-80.5765 142.5023,-80.1220 142.5023,-79.6674 142.5023,-79.2129 142.5023,-78.7583 142.5023,-78.3038 142.5023,-77.8493 142.5023,-77.3947 142.5023,-76.9402 142.5023,-76.4856 142.5023,-76.0311 142.5023,-75.5765 142.5023,-75.1365 142.5023,-74.6965 142.5023,-74.2565 142.5023,-73.8165 142.5023,-73.3765 142.5023,-72.9220 142.5023,-72.4674 142.5023,-72.0129 142.5023,-71.5583 142.5023,-71.1038 142.5023,-70.6493 142.5023,-70.1947 142.5023,-69.7402 142.5023,-69.2856 142.5023,-68.8311 142.5023,-68.3765 142.5023,-67.9966 142.5023,-67.7381 142.0292,-67.7381 141.5560,-67.7381 141.0829,-67.7381 140.6098,-67.7381 140.1367,-67.7381 139.6636,-67.7381 139.6636,-67.3128 139.6636,-66.8876 139.6636,-66.4623 139.8660,-66.4943 139.9506,-66.5159 140.0613,-66.5562 140.1381,-66.5699 140.2479,-66.5750 140.5578,-66.5693 140.7564,-66.5925 140.9737,-66.5984 141.1035,-66.6154 141.3073,-66.6593 141.4453,-66.6318 141.5671,-66.6227 141.7530,-66.6274 142.0984,-66.6504 142.2548,-66.6793 142.4028,-66.7263 142.5023,-66.7726 142.5147,-66.7784 200,-8.0,Antarctica/ -126.4456,-73.0667 -126.0077,-73.0913 -125.7499,-73.1206 -125.6586,-73.1387 -125.5719,-73.1632 -125.4378,-73.2228 -125.1877,-73.2638 -125.0418,-73.3032 -124.9115,-73.3634 -124.8386,-73.4385 -124.7339,-73.4684 -124.6139,-73.5175 -124.5771,-73.5226 -124.3894,-73.5276 -124.2178,-73.5445 -124.0740,-73.5705 -123.9478,-73.6081 -123.9048,-73.6063 -123.8510,-73.5973 -123.5804,-73.5271 -123.4098,-73.4958 -123.2116,-73.4762 -122.9790,-73.4695 -122.5718,-73.4750 -122.1646,-73.4805 -122.0532,-73.4880 -121.8042,-73.5193 -121.3598,-73.5360 -120.9154,-73.5526 -120.7633,-73.5584 -120.5870,-73.5490 -120.4184,-73.5515 -120.2257,-73.5692 -119.9757,-73.6100 -119.7389,-73.5795 -119.5422,-73.5689 -119.0858,-73.5751 -118.8549,-73.5902 -118.5920,-73.6301 -118.4420,-73.6641 -118.3034,-73.7135 -118.2029,-73.7740 -118.1454,-73.8472 -118.1354,-73.9029 -118.1553,-73.9377 -118.2837,-74.0528 -118.2895,-74.0657 -118.2782,-74.0702 -118.1619,-74.0595 -118.1275,-74.0526 -118.0212,-73.9798 -117.9564,-73.9527 -117.8784,-73.9296 -117.6254,-73.8702 -117.2861,-73.7975 -116.9468,-73.7248 -116.7871,-73.6940 -116.6543,-73.6756 -116.5072,-73.6639 -116.3505,-73.6603 -116.1435,-73.6679 -115.9427,-73.6912 -115.6807,-73.7420 -115.4857,-73.7983 -115.4132,-73.8065 -115.3506,-73.8011 -115.2138,-73.7690 -115.0688,-73.7435 -114.8610,-73.7247 -114.6516,-73.6885 -114.4398,-73.6663 -114.2828,-73.6584 -114.1306,-73.6585 -113.9657,-73.6693 -113.8106,-73.6892 -113.5709,-73.7358 -113.4302,-73.7684 -113.2563,-73.8391 -113.0923,-73.8738 -112.9931,-73.9019 -112.8411,-73.9664 -112.7344,-74.0314 -112.6808,-74.0912 -112.6671,-74.1820 -112.7021,-74.2474 -112.5920,-74.1522 -112.5285,-74.1200 -112.5030,-74.1107 -112.5030,-74.5507 -112.5030,-74.8841 -112.5030,-75.2174 -112.5030,-75.5508 -112.5030,-76.0053 -112.5031,-76.4598 -112.5031,-76.9144 -112.5031,-77.3689 -112.5031,-77.8235 -112.5031,-78.2780 -112.5031,-78.7326 -112.5031,-79.1871 -112.5031,-79.6417 -112.5031,-80.0962 -112.5031,-80.5508 -112.5032,-81.0053 -112.5032,-81.4598 -112.5032,-81.9144 -112.5032,-82.3689 -112.5032,-82.8235 -112.5032,-83.2780 -112.5032,-83.7326 -112.5032,-84.1871 -112.5032,-84.6417 -112.5032,-85.0962 -112.5032,-85.5508 -112.5033,-86.0451 -112.5033,-86.5395 -112.5033,-87.0338 -112.5033,-87.5282 -112.5033,-88.0226 -112.5033,-88.5169 -112.5033,-89.0113 -112.5033,-89.5056 -112.5033,-90.0000 -112.9446,-90.0000 -113.3859,-90.0000 -113.8272,-90.0000 -114.2685,-90.0000 -114.7098,-90.0000 -115.1511,-90.0000 -115.5924,-90.0000 -116.0337,-90.0000 -116.4750,-90.0000 -116.9163,-90.0000 -117.3575,-90.0000 -117.7988,-90.0000 -118.2401,-90.0000 -118.6814,-90.0000 -119.1227,-90.0000 -119.5640,-90.0000 -120.0053,-90.0000 -120.4466,-90.0000 -120.8879,-90.0000 -121.3292,-90.0000 -121.7705,-90.0000 -122.2118,-90.0000 -122.6530,-90.0000 -123.0943,-90.0000 -123.5356,-90.0000 -123.9769,-90.0000 -124.4182,-90.0000 -124.8595,-90.0000 -125.3008,-90.0000 -125.7421,-90.0000 -126.1834,-90.0000 -126.6247,-90.0000 -127.0660,-90.0000 -127.5073,-90.0000 -127.5073,-89.5364 -127.5073,-89.0727 -127.5073,-88.6091 -127.5073,-88.1455 -127.5073,-87.6818 -127.5073,-87.2182 -127.5073,-86.7545 -127.5073,-86.2909 -127.5073,-85.8273 -127.5073,-85.3636 -127.5073,-84.9000 -127.5073,-84.4455 -127.5073,-83.9909 -127.5073,-83.5364 -127.5073,-83.0818 -127.5073,-82.6273 -127.5073,-82.1727 -127.5073,-81.7182 -127.5073,-81.2636 -127.5073,-80.8091 -127.5073,-80.3545 -127.5073,-79.9000 -127.5073,-79.4444 -127.5073,-78.9889 -127.5073,-78.5333 -127.5073,-78.0778 -127.5073,-77.6222 -127.5073,-77.1667 -127.5073,-76.7111 -127.5073,-76.2556 -127.5073,-75.8000 -127.5073,-75.3505 -127.5073,-74.9010 -127.5073,-74.4514 -127.5073,-74.0019 -127.5073,-73.5524 -127.5073,-73.1029 -127.3930,-73.0873 -127.2509,-73.0765 -127.0854,-73.0747 -126.8636,-73.0820 -126.6143,-73.0672 -126.4456,-73.0667 295,-1.0,Antarctica/Central -9.7687,-70.7274 -9.7687,-71.1355 -9.7687,-71.5436 -9.7687,-71.9518 -9.3207,-71.9518 -8.8727,-71.9518 -8.4247,-71.9518 -7.9767,-71.9518 -7.5287,-71.9518 -7.5289,-72.3954 -7.5291,-72.8391 -7.5292,-73.2827 -7.5294,-73.7263 -7.5296,-74.1700 -7.5297,-74.6136 -7.5299,-75.0682 -7.5301,-75.5227 -7.5303,-75.9773 -7.5304,-76.4318 -7.5306,-76.8864 -7.5308,-77.3409 -7.5309,-77.7954 -7.5311,-78.2500 -7.5313,-78.7045 -7.5315,-79.1591 -7.5316,-79.6136 -7.5317,-79.9000 -7.5319,-80.3545 -7.5321,-80.8091 -7.5323,-81.2636 -7.5324,-81.7182 -7.5326,-82.1727 -7.5328,-82.6273 -7.5329,-83.0818 -7.5331,-83.5364 -7.5333,-83.9909 -7.5335,-84.4455 -7.5336,-84.9000 -7.5338,-85.3636 -7.5340,-85.8273 -7.5342,-86.2909 -7.5343,-86.7545 -7.5345,-87.2182 -7.5347,-87.6818 -7.5349,-88.1455 -7.5350,-88.6091 -7.5352,-89.0727 -7.5354,-89.5364 -7.5356,-90.0000 -8.0247,-90.0000 -8.5139,-90.0000 -8.8472,-90.0000 -9.1805,-90.0000 -9.5139,-90.0000 -9.8472,-90.0000 -10.1805,-90.0000 -10.5139,-90.0000 -10.8472,-90.0000 -11.1805,-90.0000 -11.5139,-90.0000 -11.8472,-90.0000 -12.1805,-90.0000 -12.5139,-90.0000 -12.8472,-90.0000 -13.1805,-90.0000 -13.5139,-90.0000 -13.8472,-90.0000 -14.1805,-90.0000 -14.5139,-90.0000 -14.8472,-90.0000 -15.1805,-90.0000 -15.5139,-90.0000 -16.0139,-90.0000 -16.5139,-90.0000 -16.8472,-90.0000 -17.1805,-90.0000 -17.5139,-90.0000 -17.8472,-90.0000 -18.1805,-90.0000 -18.5139,-90.0000 -18.8472,-90.0000 -19.1805,-90.0000 -19.5139,-90.0000 -19.8472,-90.0000 -20.1805,-90.0000 -20.5139,-90.0000 -20.8472,-90.0000 -21.1805,-90.0000 -21.5139,-90.0000 -21.8472,-90.0000 -22.1805,-90.0000 -22.5139,-90.0000 -22.5140,-89.5249 -22.5141,-89.0497 -22.5142,-88.5746 -22.5143,-88.0994 -22.5144,-87.6243 -22.5145,-87.1492 -22.5145,-86.6740 -22.5146,-86.1989 -22.5147,-85.7443 -22.5148,-85.2898 -22.5149,-84.8353 -22.5150,-84.3807 -22.5151,-83.9262 -22.5152,-83.4716 -22.5153,-83.0171 -22.5154,-82.5625 -22.5155,-82.1080 -22.5156,-81.6534 -22.5157,-81.1989 -22.5157,-80.7443 -22.5158,-80.2898 -22.5159,-79.8353 -22.5160,-79.3807 -22.5161,-78.9262 -22.5162,-78.4716 -22.5163,-78.0171 -22.5164,-77.5625 -22.5165,-77.1080 -22.5166,-76.6534 -22.5167,-76.1989 -22.5167,-75.8155 -22.5168,-75.4322 -22.4455,-75.4315 -22.2426,-75.4342 -22.0694,-75.4423 -21.8574,-75.4618 -21.6435,-75.4610 -21.5199,-75.4646 -21.3912,-75.4079 -21.2387,-75.3668 -20.8180,-75.2903 -20.7070,-75.2762 -20.5742,-75.2662 -20.4051,-75.2625 -20.2190,-75.2683 -20.0208,-75.2849 -19.9687,-75.2916 -19.7809,-75.3159 -19.7114,-75.3193 -19.6745,-75.3168 -19.6992,-75.2385 -19.6823,-75.2000 -19.6489,-75.1658 -19.5828,-75.1292 -19.3750,-75.0387 -19.2740,-74.9546 -19.2128,-74.9187 -19.1319,-74.8882 -18.9236,-74.8391 -18.8464,-74.7893 -18.7371,-74.7406 -18.7266,-74.7144 -18.7604,-74.6430 -18.7287,-74.5819 -18.6795,-74.5466 -18.6058,-74.5130 -18.5500,-74.4940 -18.4292,-74.4676 -18.3939,-74.4544 -18.3784,-74.4322 -18.3775,-74.3597 -18.3158,-74.3049 -18.2297,-74.2574 -18.1336,-74.2213 -18.0305,-74.1921 -17.9000,-74.1647 -17.7703,-74.1454 -17.5831,-74.1294 -17.2665,-74.1166 -16.9500,-74.1039 -16.8544,-74.0953 -16.8136,-74.0858 -16.8306,-74.0769 -17.0093,-74.0462 -17.1177,-74.0142 -17.2337,-73.9595 -17.2948,-73.9088 -17.3089,-73.8463 -17.2598,-73.7828 -17.3291,-73.7135 -17.3512,-73.6370 -17.2862,-73.4459 -17.2202,-73.3860 -17.0676,-73.3049 -16.9622,-73.2674 -16.7368,-73.2058 -16.6571,-73.1184 -16.5104,-73.0372 -16.3822,-72.9903 -16.1597,-72.9379 -16.1965,-72.9309 -16.4193,-72.9179 -16.5646,-72.9045 -16.7793,-72.8657 -16.8903,-72.8341 -16.9872,-72.7972 -17.0690,-72.7559 -17.1351,-72.7113 -17.1976,-72.6478 -17.2241,-72.5986 -17.2310,-72.5324 -17.2139,-72.4835 -17.1768,-72.4364 -17.1189,-72.3919 -17.0396,-72.3511 -16.9381,-72.3149 -16.7670,-72.2755 -16.6554,-72.2591 -16.4868,-72.2458 -16.3205,-72.2449 -16.1606,-72.2554 -15.9879,-72.2805 -15.8364,-72.3179 -15.7284,-72.3583 -15.6450,-72.4053 -15.4890,-72.5405 -15.4261,-72.6156 -15.4033,-72.6803 -15.4187,-72.7338 -15.4757,-72.7842 -15.5612,-72.8232 -15.7261,-72.8715 -15.5886,-72.8671 -15.3937,-72.8428 -15.2026,-72.8356 -15.1609,-72.8286 -15.1247,-72.7958 -15.1156,-72.6897 -15.0541,-72.6314 -14.9812,-72.5950 -14.8844,-72.5623 -14.7693,-72.5351 -14.6535,-72.5163 -14.5293,-72.5038 -14.4102,-72.4982 -14.2695,-72.4979 -14.1316,-72.5032 -13.9672,-72.5161 -13.8072,-72.5346 -13.5271,-72.5819 -13.4577,-72.5412 -13.3907,-72.5148 -13.0407,-72.4260 -13.0203,-72.4132 -13.0353,-72.3987 -13.0769,-72.3814 -13.3134,-72.3118 -13.4110,-72.2769 -13.5046,-72.2329 -13.5771,-72.1852 -13.6307,-72.1285 -13.6518,-72.0696 -13.6409,-72.0174 -13.5951,-71.9627 -13.5319,-71.9204 -13.4298,-71.8752 -13.3029,-71.8375 -13.1812,-71.8132 -13.0197,-71.7939 -12.8750,-71.7872 -12.7238,-71.7901 -12.5778,-71.8023 -12.7247,-71.7426 -12.8298,-71.6769 -12.9867,-71.5369 -13.0442,-71.4372 -13.0373,-71.3696 -12.9744,-71.2946 -12.8678,-71.2265 -12.7259,-71.1697 -12.5964,-71.1329 -12.4690,-71.1089 -12.2775,-71.0896 -12.0463,-71.0568 -11.8773,-71.0480 -11.6868,-71.0516 -11.4977,-71.0677 -11.3249,-71.0945 -11.0941,-71.1431 -11.0464,-71.1475 -10.9839,-71.1256 -11.0491,-71.0779 -11.0767,-71.0452 -11.0958,-71.0042 -11.0934,-70.9670 -11.0425,-70.9042 -10.9375,-70.8456 -10.7473,-70.7846 -10.5058,-70.7371 -10.2606,-70.7109 -10.0137,-70.7059 -9.8024,-70.7212 -9.7687,-70.7274 168,-2.0,Antarctica/ -22.5167,-76.1989 -22.5166,-76.6534 -22.5165,-77.1080 -22.5164,-77.5625 -22.5163,-78.0171 -22.5162,-78.4716 -22.5161,-78.9262 -22.5160,-79.3807 -22.5159,-79.8353 -22.5158,-80.2898 -22.5157,-80.7443 -22.5157,-81.1989 -22.5156,-81.6534 -22.5155,-82.1080 -22.5154,-82.5625 -22.5153,-83.0171 -22.5152,-83.4716 -22.5151,-83.9262 -22.5150,-84.3807 -22.5149,-84.8353 -22.5148,-85.2898 -22.5147,-85.7443 -22.5146,-86.1989 -22.5145,-86.6740 -22.5145,-87.1492 -22.5144,-87.6243 -22.5143,-88.0994 -22.5142,-88.5746 -22.5141,-89.0497 -22.5140,-89.5249 -22.5139,-90.0000 -22.5199,-90.0000 -22.8532,-90.0000 -23.1866,-90.0000 -23.5199,-90.0000 -23.8532,-90.0000 -24.1866,-90.0000 -24.5199,-90.0000 -24.8532,-90.0000 -25.1866,-90.0000 -25.5199,-90.0000 -25.8532,-90.0000 -26.1866,-90.0000 -26.5199,-90.0000 -26.8532,-90.0000 -27.1866,-90.0000 -27.5199,-90.0000 -27.8532,-90.0000 -28.1866,-90.0000 -28.5199,-90.0000 -28.8532,-90.0000 -29.1866,-90.0000 -29.5199,-90.0000 -29.8532,-90.0000 -30.1866,-90.0000 -30.5199,-90.0000 -30.8532,-90.0000 -31.1866,-90.0000 -31.5199,-90.0000 -31.8532,-90.0000 -32.1866,-90.0000 -32.5199,-90.0000 -32.8532,-90.0000 -33.1866,-90.0000 -33.5199,-90.0000 -33.8532,-90.0000 -34.1866,-90.0000 -34.5199,-90.0000 -34.8532,-90.0000 -35.1866,-90.0000 -35.5199,-90.0000 -35.8532,-90.0000 -36.1866,-90.0000 -36.5199,-90.0000 -36.8630,-90.0000 -37.2061,-90.0000 -37.5492,-89.9999 -37.5492,-89.5363 -37.5492,-89.0727 -37.5492,-88.6090 -37.5492,-88.1454 -37.5492,-87.6818 -37.5492,-87.2182 -37.5492,-86.7545 -37.5492,-86.2909 -37.5492,-85.8273 -37.5492,-85.3636 -37.5492,-84.9000 -37.5492,-84.4455 -37.5492,-83.9909 -37.5492,-83.5364 -37.5492,-83.0818 -37.5492,-82.6273 -37.5492,-82.1727 -37.5492,-81.7182 -37.5492,-81.2636 -37.5492,-80.8091 -37.5492,-80.3545 -37.5492,-79.9000 -37.5492,-79.7606 -37.0586,-79.7606 -36.5681,-79.7606 -36.0775,-79.7606 -35.5870,-79.7606 -35.0964,-79.7606 -34.6058,-79.7606 -34.1153,-79.7606 -33.6247,-79.7606 -33.6249,-79.3076 -33.6250,-78.8546 -33.6251,-78.4016 -33.6252,-77.9487 -33.6253,-77.4957 -33.6255,-77.0427 -33.5304,-77.0229 -33.1631,-76.9706 -32.8911,-76.9352 -32.6182,-76.9157 -32.4421,-76.8516 -32.2765,-76.8131 -32.1374,-76.7918 -31.8335,-76.7548 -31.5295,-76.7178 -31.4406,-76.7042 -31.3543,-76.6795 -31.1158,-76.5784 -30.7979,-76.4881 -30.6579,-76.4614 -30.3995,-76.4271 -30.3506,-76.4123 -30.2327,-76.3617 -29.9849,-76.2943 -29.8338,-76.2646 -29.6254,-76.2373 -29.4428,-76.1952 -29.2985,-76.1697 -29.1002,-76.1433 -28.7523,-76.1026 -28.4044,-76.0619 -28.2105,-76.0398 -28.0000,-76.0257 -28.0000,-76.2453 -28.0000,-76.5406 -28.0000,-76.8287 -28.0000,-77.1547 -27.4393,-77.1536 -26.9567,-77.1536 -26.4742,-77.1536 -25.9916,-77.1536 -25.5090,-77.1536 -25.0000,-77.1531 -25.0000,-76.8000 -25.0000,-76.3000 -25.0000,-75.9000 -25.0000,-75.6188 -24.8470,-75.6047 -24.5168,-75.5602 -24.2209,-75.5435 -23.9240,-75.5384 -23.6271,-75.5332 -23.3678,-75.5046 -23.1629,-75.4954 -22.9276,-75.4544 -22.7920,-75.4411 -22.6495,-75.4335 -22.5168,-75.4322 -22.5167,-75.8155 -22.5167,-76.1989 13,-5.0,Antarctica/ -68.1439,-66.5034 -68.3115,-66.5034 -68.2444,-66.4802 -68.0961,-66.4403 -67.8149,-66.3913 -67.7196,-66.3656 -67.6890,-66.3450 -67.5959,-66.1674 -67.5167,-66.1086 -67.4928,-66.0994 -67.4928,-66.5034 -67.8183,-66.5034 -68.1439,-66.5034 307,-5.0,Antarctica/ -69.1485,-69.2113 -69.0764,-69.2151 -68.8838,-69.1862 -68.6178,-69.1061 -68.4932,-69.0840 -68.3697,-69.0724 -68.2601,-69.0702 -68.1434,-69.0757 -68.0147,-69.0908 -67.7349,-69.1399 -67.7126,-69.1399 -67.6823,-69.1292 -67.6734,-69.1230 -67.6856,-69.1129 -67.8783,-69.0194 -67.9786,-68.9583 -68.0413,-68.8967 -68.0648,-68.8395 -68.0475,-68.7757 -67.9870,-68.7197 -67.8942,-68.6727 -67.7367,-68.6261 -67.4928,-68.6261 -67.4928,-69.0508 -67.4928,-69.4754 -67.4928,-69.9000 -67.4928,-70.3545 -67.4928,-70.8091 -67.4928,-71.2636 -67.4928,-71.7182 -67.4928,-72.1727 -67.4928,-72.6273 -67.4928,-73.0818 -67.4928,-73.5364 -67.4928,-73.9909 -67.4928,-74.4455 -67.4928,-74.9000 -67.4928,-75.3545 -67.4928,-75.8091 -67.4928,-76.2636 -67.4928,-76.7182 -67.4928,-77.1727 -67.4928,-77.6273 -67.4928,-78.0818 -67.4928,-78.5364 -67.4928,-78.9909 -67.4928,-79.4455 -67.4928,-79.9000 -67.4928,-80.3545 -67.4928,-80.8091 -67.4928,-81.2636 -67.4928,-81.7182 -67.4928,-82.1727 -67.4928,-82.6273 -67.4928,-83.0818 -67.4928,-83.5364 -67.4928,-83.9909 -67.4928,-84.4455 -67.4928,-84.9000 -67.4928,-85.3636 -67.4928,-85.8273 -67.4928,-86.2909 -67.4928,-86.7545 -67.4928,-87.2182 -67.4928,-87.6818 -67.4928,-88.1455 -67.4928,-88.6091 -67.4928,-89.0727 -67.4928,-89.5364 -67.4928,-90.0000 -67.5676,-90.0000 -67.9009,-90.0000 -68.2343,-90.0000 -68.5676,-90.0000 -68.9009,-90.0000 -69.2343,-90.0000 -69.5676,-90.0000 -69.9009,-90.0000 -70.2343,-90.0000 -70.5676,-90.0000 -70.9009,-90.0000 -71.2343,-90.0000 -71.5676,-90.0000 -71.9009,-90.0000 -72.2343,-90.0000 -72.5676,-90.0000 -72.9009,-90.0000 -73.2343,-90.0000 -73.5676,-90.0000 -73.9009,-90.0000 -74.2343,-90.0000 -74.5676,-90.0000 -74.9009,-90.0000 -75.2343,-90.0000 -75.5676,-90.0000 -75.9009,-90.0000 -76.2343,-90.0000 -76.5676,-90.0000 -76.9009,-90.0000 -77.2343,-90.0000 -77.5676,-90.0000 -77.9009,-90.0000 -78.2343,-90.0000 -78.5676,-90.0000 -78.9009,-90.0000 -79.2343,-90.0000 -79.5676,-90.0000 -79.9009,-90.0000 -80.2343,-90.0000 -80.5676,-90.0000 -80.9009,-90.0000 -81.2343,-90.0000 -81.5676,-90.0000 -82.0296,-90.0000 -82.4917,-89.9999 -82.4917,-89.5011 -82.4918,-89.0022 -82.4918,-88.5034 -82.4919,-88.0046 -82.4919,-87.5057 -82.4920,-87.0069 -82.4920,-86.5080 -82.4921,-86.0092 -82.4921,-85.5103 -82.4922,-85.0115 -82.4923,-84.5126 -82.4923,-84.0138 -82.4924,-83.5150 -82.4924,-83.0161 -82.4925,-82.5173 -82.4925,-82.0184 -82.4926,-81.5196 -82.4926,-81.0207 -82.4927,-80.5219 -82.4927,-80.0230 -82.4928,-79.5242 -82.4928,-79.0254 -82.4929,-78.5265 -82.4929,-78.0277 -82.4930,-77.5288 -82.4930,-77.0300 -82.4931,-76.5311 -82.4931,-76.0323 -82.4932,-75.5334 -82.4932,-75.0346 -82.4933,-74.5357 -82.4933,-74.0369 -82.4934,-73.5381 -82.3954,-73.5522 -82.1296,-73.6052 -82.0722,-73.6118 -82.0313,-73.6094 -82.0193,-73.5907 -82.0689,-73.4794 -82.0623,-73.3914 -82.0845,-73.3044 -82.0388,-73.2376 -81.9590,-73.1765 -81.8591,-73.1319 -81.7292,-73.0941 -81.5770,-73.0642 -81.4005,-73.0410 -81.3768,-73.0180 -81.3496,-72.9523 -81.3169,-72.9217 -81.2413,-72.8746 -81.1401,-72.8348 -81.0318,-72.8050 -80.8952,-72.7775 -80.7459,-72.7571 -80.6040,-72.7456 -80.3655,-72.7421 -80.1286,-72.7556 -79.8061,-72.7921 -79.4835,-72.8287 -79.2409,-72.8662 -79.0894,-72.9060 -78.9006,-72.9853 -78.6754,-73.0605 -78.5761,-73.1034 -78.3882,-73.1487 -78.2065,-73.2082 -78.0953,-73.2565 -78.0296,-73.2703 -77.9388,-73.2768 -77.8327,-73.2747 -77.5887,-73.2572 -77.4605,-73.2563 -77.3156,-73.2623 -77.1797,-73.2537 -76.9660,-73.2486 -76.9286,-73.2435 -76.8932,-73.2285 -76.8682,-73.2053 -76.8228,-73.0995 -76.7637,-73.0349 -76.6646,-72.9766 -76.4977,-72.9191 -76.4684,-72.8411 -76.4265,-72.8071 -76.3662,-72.7761 -76.2003,-72.7241 -76.0867,-72.7012 -75.9491,-72.6802 -75.8190,-72.6488 -75.7754,-72.3743 -75.7318,-72.0998 -75.8555,-72.0672 -75.9745,-72.0172 -76.0554,-71.9595 -76.0959,-71.9066 -76.1137,-71.8500 -76.1014,-71.8016 -76.0479,-71.7366 -76.0789,-71.6896 -76.0838,-71.6508 -76.0503,-71.5953 -75.9744,-71.5385 -75.9240,-71.5154 -75.9947,-71.3403 -76.1062,-71.3454 -76.2634,-71.3436 -76.5635,-71.3186 -76.6891,-71.2998 -76.7927,-71.2776 -76.8878,-71.2493 -76.9712,-71.2154 -77.0823,-71.1401 -77.1771,-71.0076 -77.1863,-70.9480 -77.1673,-70.9098 -77.1189,-70.8640 -76.9744,-70.7885 -76.8693,-70.7511 -76.7265,-70.7113 -76.4395,-70.6546 -76.2208,-70.6286 -75.9467,-70.6109 -75.6727,-70.5931 -75.6122,-70.5236 -75.5092,-70.4668 -75.3535,-70.4182 -75.1659,-70.3852 -75.2620,-70.3728 -75.7054,-70.3336 -75.9187,-70.3069 -76.1091,-70.2699 -76.2637,-70.2192 -76.3236,-70.1876 -76.3698,-70.1514 -76.4473,-70.0351 -76.4386,-69.9770 -76.3503,-69.8454 -76.2424,-69.7762 -76.1454,-69.7380 -76.0174,-69.7033 -75.9580,-69.6602 -75.8951,-69.6301 -75.7909,-69.5978 -75.6619,-69.5733 -75.2159,-69.5208 -74.9598,-69.5067 -74.8310,-69.5108 -74.6848,-69.5251 -74.5424,-69.5455 -74.4260,-69.5697 -74.3106,-69.6040 -74.2158,-69.6436 -74.1326,-69.6999 -74.0294,-69.7423 -73.9659,-69.7784 -73.5367,-69.5955 -73.5669,-69.5651 -73.5841,-69.5039 -73.5491,-69.4339 -73.4717,-69.3708 -73.3398,-69.3066 -73.1792,-69.2533 -73.0033,-69.2214 -72.7506,-69.1950 -72.7826,-69.0832 -72.7716,-69.0412 -72.7415,-68.9994 -72.6899,-68.9571 -72.5789,-68.8966 -72.5110,-68.8442 -72.4439,-68.8128 -72.3628,-68.7863 -72.1860,-68.7504 -71.8910,-68.7053 -71.5960,-68.6601 -71.5015,-68.6521 -71.2634,-68.6485 -71.0275,-68.6103 -70.7644,-68.5913 -70.5012,-68.5724 -70.3123,-68.5739 -70.1468,-68.5965 -69.7749,-68.7051 -69.6631,-68.7487 -69.5825,-68.7961 -69.5329,-68.8435 -69.4716,-68.9911 -69.4106,-69.0589 -69.3955,-69.1155 -69.1990,-69.1970 -69.1485,-69.2113 218,-6.0,Antarctica/ -96.8788,-71.6241 -96.6070,-71.6341 -96.4012,-71.6262 -96.2685,-71.6277 -96.1011,-71.6409 -95.9506,-71.6631 -95.8189,-71.6920 -95.6888,-71.7301 -95.5133,-71.7945 -95.4203,-71.8489 -95.2926,-71.8711 -95.2011,-71.8932 -95.1219,-71.9195 -95.0243,-71.9625 -94.9583,-72.0031 -94.8366,-72.1076 -94.8201,-72.1600 -94.8509,-72.2204 -94.7710,-72.2632 -94.7388,-72.2654 -94.6431,-72.2582 -94.5355,-72.2563 -94.3275,-72.2670 -94.1638,-72.2902 -93.9345,-72.3414 -93.7717,-72.3588 -93.6198,-72.3586 -93.3967,-72.3405 -93.2772,-72.3351 -93.1369,-72.3355 -92.9984,-72.3431 -92.8649,-72.3578 -92.7569,-72.3761 -92.6412,-72.4041 -92.5480,-72.4359 -92.4723,-72.4750 -92.4619,-72.4852 -92.0943,-72.4406 -91.9538,-72.4079 -91.6690,-72.3582 -91.4841,-72.3425 -91.1245,-72.3330 -90.9593,-72.3349 -90.7866,-72.3471 -90.6290,-72.3684 -90.4877,-72.3978 -90.3528,-72.4378 -90.1896,-72.5014 -90.1355,-72.5141 -90.0883,-72.5187 -89.9948,-72.5121 -89.7664,-72.4614 -89.5507,-72.4336 -89.3419,-72.4259 -89.0903,-72.4361 -88.7335,-72.4611 -88.3767,-72.4862 -88.0199,-72.5112 -87.8814,-72.5290 -87.7459,-72.5586 -87.6544,-72.5883 -87.5709,-72.6257 -87.5044,-72.6665 -87.4521,-72.7112 -87.4208,-72.7602 -87.3988,-72.8311 -87.4020,-72.8665 -87.4285,-72.9113 -87.4124,-72.9305 -87.3273,-72.9506 -87.0742,-72.9760 -86.9332,-72.9982 -86.8174,-73.0270 -86.6972,-73.0729 -86.4853,-73.0477 -86.3193,-73.0086 -86.2236,-72.9913 -86.0204,-72.9693 -85.8665,-72.9622 -85.7100,-72.9623 -85.5548,-72.9692 -85.4052,-72.9828 -85.2652,-73.0028 -85.1629,-73.0234 -85.0714,-73.0479 -84.9928,-73.0762 -84.9257,-73.1104 -84.8792,-73.1478 -84.8465,-73.2390 -84.6729,-73.3016 -84.6156,-73.3159 -84.5251,-73.3385 -84.4583,-73.3484 -84.3972,-73.3517 -84.1978,-73.3407 -84.0158,-73.3383 -83.9028,-73.3368 -83.7355,-73.3456 -83.7142,-73.3473 -83.4687,-73.3669 -83.3364,-73.3863 -83.2184,-73.4151 -83.1196,-73.4517 -83.0440,-73.4952 -82.7045,-73.5112 -82.6267,-73.5188 -82.4934,-73.5381 -82.4933,-74.0369 -82.4933,-74.5357 -82.4932,-75.0346 -82.4932,-75.5334 -82.4931,-76.0323 -82.4931,-76.5311 -82.4930,-77.0300 -82.4930,-77.5288 -82.4929,-78.0277 -82.4929,-78.5265 -82.4928,-79.0254 -82.4928,-79.5242 -82.4927,-80.0230 -82.4927,-80.5219 -82.4926,-81.0207 -82.4926,-81.5196 -82.4925,-82.0184 -82.4925,-82.5173 -82.4924,-83.0161 -82.4924,-83.5150 -82.4923,-84.0138 -82.4923,-84.5126 -82.4922,-85.0115 -82.4921,-85.5103 -82.4921,-86.0092 -82.4920,-86.5080 -82.4920,-87.0069 -82.4919,-87.5057 -82.4919,-88.0046 -82.4918,-88.5034 -82.4918,-89.0022 -82.4917,-89.5011 -82.4917,-89.9999 -82.9013,-90.0000 -83.3109,-90.0000 -83.7558,-90.0000 -84.2007,-90.0000 -84.6457,-90.0000 -85.0906,-90.0000 -85.5355,-90.0000 -85.9804,-90.0000 -86.4253,-90.0000 -86.8702,-90.0000 -87.3152,-90.0000 -87.7601,-90.0000 -88.2050,-90.0000 -88.6499,-90.0000 -89.0948,-90.0000 -89.5397,-90.0000 -89.9847,-90.0000 -90.4296,-90.0000 -90.8745,-90.0000 -91.3194,-90.0000 -91.7643,-90.0000 -92.2092,-90.0000 -92.6542,-90.0000 -93.0991,-90.0000 -93.5440,-90.0000 -93.9889,-90.0000 -94.4338,-90.0000 -94.8787,-90.0000 -95.3237,-90.0000 -95.7686,-90.0000 -96.2135,-90.0000 -96.6584,-90.0000 -97.1033,-90.0000 -97.5482,-90.0000 -97.5480,-89.5796 -97.5477,-89.1593 -97.5475,-88.7389 -97.5472,-88.3185 -97.5469,-87.8640 -97.5467,-87.4094 -97.5464,-86.9549 -97.5461,-86.5003 -97.5458,-86.0458 -97.5456,-85.5912 -97.5453,-85.1367 -97.5450,-84.6822 -97.5447,-84.2276 -97.5445,-83.7731 -97.5442,-83.3185 -97.5439,-82.8471 -97.5436,-82.3757 -97.5433,-81.9042 -97.5430,-81.4328 -97.5427,-80.9614 -97.5425,-80.4899 -97.5422,-80.0185 -97.5419,-79.5640 -97.5416,-79.1094 -97.5413,-78.6549 -97.5411,-78.2003 -97.5408,-77.7458 -97.5405,-77.2912 -97.5402,-76.8367 -97.5400,-76.3822 -97.5397,-75.9276 -97.5394,-75.4731 -97.5391,-75.0185 -97.5388,-74.5416 -97.5385,-74.0647 -97.5383,-73.5878 -97.5380,-73.1109 -97.5377,-72.6339 -97.5374,-72.1570 -97.5371,-71.6801 -97.4226,-71.6837 -97.1505,-71.6383 -97.0280,-71.6286 -96.8788,-71.6241 16,5.0,Uzbekistan 71.7573,39.9031 71.7418,39.9008 71.7162,39.9068 71.6968,39.9138 71.6753,39.9258 71.6655,39.9402 71.6818,39.9551 71.7069,39.9561 71.7241,39.9627 71.7356,39.9693 71.7388,39.9711 71.7606,39.9837 71.7855,39.9897 71.7898,39.9793 71.7671,39.9154 71.7573,39.9031 21,5.0,Tajikistan 70.6199,39.8507 70.6550,39.8498 70.6866,39.8609 70.6989,39.8584 70.7064,39.8400 70.7048,39.8221 70.6945,39.8148 70.6616,39.8098 70.6330,39.7985 70.5816,39.7666 70.5759,39.7701 70.5473,39.8076 70.5374,39.8173 70.5035,39.8355 70.4901,39.8502 70.4826,39.8668 70.4837,39.8822 70.4987,39.8819 70.5675,39.8642 70.5681,39.8641 70.6199,39.8507 50,5.0,Uzbekistan 71.1694,40.0428 71.1769,40.0420 71.1819,40.0434 71.1929,40.0503 71.1982,40.0526 71.2237,40.0579 71.2364,40.0561 71.2440,40.0468 71.2373,40.0311 71.1910,40.0062 71.1747,39.9940 71.1770,39.9682 71.2211,39.9317 71.2191,39.9009 71.2084,39.8888 71.1946,39.8848 71.1610,39.8842 71.1137,39.8745 71.0989,39.8755 71.0872,39.8838 71.0848,39.8948 71.0800,39.9034 71.0610,39.9041 71.0498,39.8980 71.0361,39.8875 71.0219,39.8808 71.0093,39.8857 71.0076,39.9112 71.0504,39.9629 71.0458,39.9920 71.0343,39.9991 71.0076,40.0035 70.9945,40.0089 70.9831,40.0214 70.9724,40.0395 70.9626,40.0560 70.9557,40.0712 70.9530,40.0792 70.9540,40.0958 70.9599,40.1134 70.9771,40.1446 71.0086,40.1578 71.0312,40.1469 71.0479,40.1225 71.0617,40.0952 71.0788,40.0786 71.1060,40.0649 71.1620,40.0469 71.1655,40.0446 71.1694,40.0428 56,5.5,India (Andaman Is.) 94.4318,6.3162 94.3451,6.2025 94.1713,6.0006 93.8821,5.6622 93.5929,5.3238 93.3037,4.9854 93.0145,4.6470 92.7253,4.3086 92.3986,4.0278 91.9879,4.0173 91.9898,4.5139 91.9917,5.0104 91.9936,5.5069 91.9955,6.0035 91.9974,6.5000 91.9974,6.9830 91.9974,7.4660 91.9974,7.9489 91.9974,8.4319 91.9974,8.9149 91.9974,9.3978 91.9974,9.8808 91.9974,10.3638 91.9974,10.8468 91.9974,11.3297 91.9974,11.8127 91.9985,12.2752 91.9995,12.7377 92.0006,13.2003 92.0016,13.6628 92.0027,14.1253 92.0038,14.5878 92.4047,14.2950 92.7697,14.0574 93.1347,13.8197 93.4089,13.6957 93.6831,13.5717 93.8333,13.8000 94.2348,13.8000 94.6364,13.8000 94.6417,13.4239 94.6470,13.0478 94.6459,12.5550 94.6448,12.0622 94.6438,11.5694 94.6427,11.0766 94.6416,10.5839 94.6405,10.0911 94.6394,9.5983 94.6384,9.1055 94.6373,8.6127 94.6362,8.1199 94.6351,7.6271 94.6340,7.1344 94.6329,6.6416 94.4318,6.3162 3785,5.5,Asia/Kolkata 77.8571,35.4366 77.8831,35.4311 77.8835,35.4312 77.8841,35.4311 77.9136,35.4410 77.9588,35.4821 77.9867,35.4941 78.0443,35.4916 78.0556,35.4529 78.0381,35.3981 78.0098,35.3475 78.0012,35.2689 78.0364,35.1942 78.1300,35.0554 78.1392,35.0189 78.1481,34.9431 78.1622,34.9088 78.2025,34.8657 78.2114,34.8483 78.2732,34.6589 78.2960,34.6247 78.3353,34.5944 78.3794,34.5787 78.5741,34.5512 78.6073,34.5465 78.6646,34.5264 78.7507,34.4713 78.8017,34.4150 78.8392,34.3969 78.8859,34.3858 78.9221,34.3723 78.9512,34.3492 78.9762,34.3092 78.9854,34.2864 78.9885,34.2631 78.9855,34.2399 78.9762,34.2172 78.9032,34.1581 78.8061,34.1230 78.7301,34.0793 78.7211,33.9944 78.7703,33.8724 78.7873,33.8084 78.7941,33.7439 78.7814,33.5528 78.8009,33.4942 78.8243,33.4611 78.9177,33.3863 78.9733,33.3096 78.9891,33.3020 79.0261,33.2926 79.0433,33.2859 79.0602,33.2768 79.0728,33.2636 79.0772,33.2447 79.0789,33.2212 79.0874,33.2156 79.0880,33.2158 79.0884,33.2156 79.1230,33.2289 79.1536,33.2269 79.2296,33.1922 79.2644,33.1820 79.3449,33.1793 79.3786,33.1643 79.3819,33.1273 79.3732,33.1121 79.3514,33.0849 79.3442,33.0659 79.3398,33.0133 79.3336,32.9943 79.3342,32.9568 79.3543,32.9306 79.4128,32.8865 79.4320,32.8554 79.4388,32.8246 79.4487,32.7956 79.4764,32.7698 79.5000,32.7468 79.5050,32.7142 79.4957,32.6782 79.4764,32.6454 79.4348,32.6024 79.3368,32.5357 79.2943,32.4946 79.2765,32.4903 79.2571,32.4959 79.2366,32.5043 79.2162,32.5079 79.2157,32.5078 79.2152,32.5079 79.1912,32.5043 79.1614,32.4965 79.1329,32.4855 79.1129,32.4724 79.1029,32.4499 79.0917,32.3906 79.0753,32.3708 79.0670,32.3701 79.0406,32.3760 79.0291,32.3771 79.0288,32.3770 79.0282,32.3771 79.0147,32.3740 78.9898,32.3641 78.9762,32.3616 78.9438,32.3465 78.9122,32.3547 78.8825,32.3763 78.8566,32.4005 78.7724,32.4617 78.7557,32.4938 78.7379,32.5458 78.7359,32.5606 78.7416,32.5787 78.7501,32.5959 78.7519,32.6128 78.7378,32.6298 78.7142,32.6375 78.7138,32.6373 78.7133,32.6375 78.6945,32.6297 78.6649,32.5990 78.6477,32.5860 78.6302,32.5780 78.5899,32.5699 78.4475,32.5663 78.4082,32.5584 78.3848,32.5475 78.3810,32.5280 78.4092,32.4766 78.4488,32.4268 78.4522,32.4168 78.4482,32.4107 78.4414,32.4049 78.4364,32.3962 78.4345,32.3838 78.4360,32.3780 78.4389,32.3733 78.4627,32.2818 78.4614,32.2602 78.4563,32.2421 78.4580,32.2297 78.4765,32.2244 78.5131,32.2076 78.5350,32.1813 78.5518,32.1504 78.6493,32.0364 78.6783,32.0168 78.7222,31.9946 78.7338,31.9847 78.7446,31.9642 78.7420,31.9453 78.7202,31.9029 78.7142,31.8830 78.7066,31.8408 78.7003,31.8217 78.6741,31.7869 78.6709,31.7705 78.6956,31.7467 78.6952,31.7380 78.6926,31.7284 78.6932,31.7185 78.6981,31.7110 78.7105,31.6982 78.7184,31.6806 78.7240,31.6733 78.7313,31.6680 78.7398,31.6660 78.7407,31.6661 78.7408,31.6660 78.7581,31.6666 78.7953,31.6338 78.8189,31.6074 78.8140,31.5950 78.7970,31.5788 78.6995,31.5100 78.6954,31.4881 78.7330,31.4677 78.7626,31.4451 78.7601,31.4120 78.7455,31.3735 78.7385,31.3350 78.7409,31.3177 78.7451,31.3081 78.7532,31.3020 78.7845,31.2883 78.7960,31.2881 78.7961,31.2881 78.7970,31.2881 78.8226,31.2936 78.8487,31.2909 78.8493,31.2909 78.8496,31.2909 78.8629,31.2915 78.8783,31.2982 78.8913,31.3096 78.9022,31.3237 78.9189,31.3541 78.9347,31.3473 78.9596,31.3251 78.9762,31.3200 78.9763,31.3203 78.9771,31.3200 78.9898,31.3433 78.9966,31.3868 79.0156,31.4255 79.0636,31.4335 79.0778,31.4272 79.1056,31.4062 79.1392,31.3886 79.1454,31.3748 79.1495,31.3593 79.1600,31.3445 79.1678,31.3414 79.1867,31.3395 79.1937,31.3353 79.1984,31.3249 79.1976,31.3156 79.1949,31.3062 79.1942,31.2954 79.1980,31.2873 79.2134,31.2769 79.2191,31.2695 79.2196,31.2608 79.2170,31.2525 79.2156,31.2437 79.2197,31.2337 79.2350,31.2234 79.2521,31.2197 79.2661,31.2123 79.2719,31.1910 79.2723,31.1719 79.2751,31.1542 79.2822,31.1382 79.2957,31.1241 79.3211,31.1123 79.3483,31.1054 79.3723,31.0941 79.3884,31.0695 79.3950,31.0367 79.4016,31.0236 79.4144,31.0204 79.4150,31.0205 79.4154,31.0204 79.4317,31.0232 79.4465,31.0238 79.4616,31.0211 79.4764,31.0140 79.4808,31.0100 79.4843,31.0054 79.4869,31.0002 79.4882,30.9945 79.4976,30.9812 79.5127,30.9662 79.5296,30.9536 79.5442,30.9474 79.5659,30.9425 79.5778,30.9384 79.5785,30.9385 79.5788,30.9384 79.5904,30.9402 79.6313,30.9625 79.6491,30.9658 79.6895,30.9674 79.7397,30.9792 79.7606,30.9772 79.8335,30.9615 79.8504,30.9545 79.8629,30.9415 79.8804,30.9128 79.9032,30.8902 79.9349,30.8725 80.0056,30.8473 80.0286,30.8308 80.0444,30.8067 80.0625,30.7848 80.0922,30.7745 80.0928,30.7746 80.0931,30.7745 80.1102,30.7781 80.1416,30.7932 80.1571,30.7932 80.1693,30.7853 80.1961,30.7481 80.2246,30.7341 80.2314,30.7249 80.2070,30.6861 80.1999,30.6807 80.1919,30.6797 80.1830,30.6800 80.1827,30.6800 80.1820,30.6800 80.1729,30.6792 80.1666,30.6744 80.1669,30.6619 80.1773,30.6499 80.1906,30.6380 80.1999,30.6259 80.2033,30.6063 80.1978,30.5914 80.1884,30.5770 80.1798,30.5595 80.1809,30.5597 80.1808,30.5595 80.2170,30.5668 80.2528,30.5650 80.3259,30.5465 80.4250,30.4978 80.4754,30.4805 80.5083,30.4623 80.5251,30.4586 80.5258,30.4587 80.5261,30.4586 80.5460,30.4610 80.5609,30.4651 80.5755,30.4662 80.5964,30.4598 80.6947,30.4117 80.7231,30.3920 80.7354,30.3782 80.7550,30.3458 80.7672,30.3314 80.7817,30.3210 80.8670,30.2885 80.9438,30.2701 80.9760,30.2552 80.9963,30.2269 81.0033,30.2127 81.0013,30.1989 81.0003,30.1938 81.0065,30.1889 80.9960,30.1970 80.9882,30.1966 80.9208,30.1767 80.9033,30.1804 80.8936,30.1981 80.8839,30.2104 80.8679,30.2002 80.8504,30.1819 80.8364,30.1700 80.8497,30.1434 80.8298,30.1171 80.7697,30.0773 80.7557,30.0646 80.7257,30.0228 80.7158,30.0133 80.6802,29.9921 80.6541,29.9706 80.6414,29.9634 80.6223,29.9582 80.5862,29.9541 80.5713,29.9469 80.5629,29.9297 80.5495,29.8937 80.5273,29.8624 80.4762,29.8061 80.4549,29.7906 80.3952,29.7766 80.3690,29.7579 80.3543,29.7303 80.3544,29.7049 80.3639,29.6797 80.3776,29.6529 80.3866,29.6272 80.3868,29.6268 80.3852,29.6048 80.3733,29.5842 80.3508,29.5621 80.3451,29.5584 80.3327,29.5525 80.3272,29.5486 80.3236,29.5417 80.3251,29.5355 80.3276,29.5299 80.3272,29.5248 80.3201,29.5158 80.3115,29.5081 80.2915,29.4947 80.2912,29.4946 80.2821,29.4843 80.2731,29.4787 80.2662,29.4721 80.2635,29.4592 80.2575,29.4501 80.2283,29.4417 80.2177,29.4346 80.2137,29.4169 80.2210,29.4001 80.2422,29.3674 80.2495,29.3270 80.2550,29.3166 80.2636,29.3153 80.2728,29.3157 80.2801,29.3102 80.2828,29.2913 80.2787,29.2681 80.2582,29.2025 80.2487,29.2044 80.2361,29.2131 80.2188,29.2111 80.2137,29.1966 80.2305,29.1547 80.2331,29.1393 80.2207,29.1261 80.2014,29.1212 80.1806,29.1213 80.1635,29.1234 80.1326,29.1102 80.1131,29.0722 80.1047,29.0276 80.1079,28.9948 80.1079,28.9946 80.0994,28.9773 80.0852,28.9675 80.0684,28.9599 80.0529,28.9491 80.0405,28.9328 80.0339,28.9159 80.0311,28.8978 80.0303,28.8777 80.0364,28.8370 80.0548,28.8242 80.0731,28.8209 80.0819,28.8194 80.1142,28.8026 80.1476,28.7633 80.1621,28.7533 80.1812,28.7473 80.2164,28.7419 80.2333,28.7327 80.2390,28.7263 80.2494,28.7102 80.2570,28.7027 80.2652,28.6993 80.2834,28.6954 80.2910,28.6897 80.3183,28.6401 80.3297,28.6275 80.3498,28.6202 80.3691,28.6226 80.3883,28.6272 80.4084,28.6263 80.4265,28.6168 80.4688,28.5718 80.4885,28.5624 80.4934,28.5756 80.4849,28.6393 80.4876,28.6565 80.4975,28.6701 80.5176,28.6800 80.5558,28.6789 80.5590,28.6730 80.5574,28.6643 80.5569,28.6550 80.5636,28.6470 80.5814,28.6390 80.5985,28.6338 80.6356,28.6279 80.6483,28.6198 80.6682,28.5863 80.6786,28.5747 80.6958,28.5675 80.7271,28.5597 80.7435,28.5500 80.7817,28.5147 80.7984,28.5057 80.8170,28.5026 80.8580,28.5024 80.8723,28.4969 80.8804,28.4819 80.8819,28.4668 80.8867,28.4528 80.9053,28.4408 80.9213,28.4362 80.9412,28.4327 80.9605,28.4323 80.9760,28.4369 80.9878,28.4310 80.9913,28.4203 80.9932,28.4078 81.0004,28.3970 81.1463,28.3722 81.1697,28.3613 81.1904,28.3381 81.2107,28.2786 81.2243,28.2508 81.2824,28.1916 81.2959,28.1675 81.2808,28.1620 81.2768,28.1538 81.2831,28.1461 81.2994,28.1425 81.2962,28.1283 81.3071,28.1238 81.3237,28.1262 81.3381,28.1327 81.3473,28.1444 81.3514,28.1568 81.3579,28.1660 81.3732,28.1678 81.3960,28.1606 81.4173,28.1470 81.4353,28.1298 81.4482,28.1114 81.4529,28.0970 81.4540,28.0866 81.4582,28.0773 81.4735,28.0664 81.5619,28.0260 81.5822,28.0133 81.5951,27.9949 81.5954,27.9948 81.5954,27.9947 81.6150,27.9812 81.6654,27.9708 81.6889,27.9632 81.7104,27.9475 81.7501,27.9097 81.8002,27.8841 81.8279,27.8656 81.8557,27.8509 81.8832,27.8491 81.9061,27.8631 81.9464,27.9054 81.9759,27.9170 82.0272,27.9124 82.0516,27.9052 82.0717,27.8900 82.0904,27.8723 82.1074,27.8636 82.1510,27.8483 82.2704,27.7605 82.3479,27.7260 82.3771,27.6996 82.4019,27.6772 82.4407,27.6664 82.4643,27.6689 82.5262,27.6752 82.6521,27.7041 82.6797,27.6944 82.6971,27.6694 82.7092,27.6309 82.7189,27.5561 82.7297,27.5182 82.7521,27.4950 82.8763,27.4875 82.9013,27.4804 82.9472,27.4573 83.0105,27.4434 83.1328,27.4442 83.1696,27.4312 83.2192,27.3938 83.2316,27.3812 83.2431,27.3622 83.2494,27.3481 83.2595,27.3381 83.2824,27.3309 83.3049,27.3319 83.3244,27.3417 83.3411,27.3569 83.3627,27.3856 83.3696,27.3982 83.3710,27.4102 83.3558,27.4287 83.3539,27.4403 83.3559,27.4525 83.3610,27.4622 83.3870,27.4705 83.4810,27.4697 83.5904,27.4566 83.6634,27.4323 83.8020,27.3659 83.8480,27.3510 83.8546,27.3451 83.8617,27.3545 83.8675,27.3584 83.8774,27.3617 83.8776,27.3699 83.8737,27.3801 83.8712,27.3894 83.8427,27.4181 83.8341,27.4340 83.8535,27.4410 83.8999,27.4439 83.9230,27.4500 83.9359,27.4461 83.9758,27.4397 84.0077,27.4408 84.0289,27.4537 84.0796,27.5095 84.0995,27.5169 84.1172,27.5133 84.1216,27.4950 84.1310,27.4864 84.1417,27.4808 84.1657,27.4722 84.1751,27.4630 84.1858,27.4386 84.1953,27.4361 84.2255,27.4404 84.2390,27.4311 84.2489,27.4124 84.2677,27.3886 84.2894,27.3761 84.5770,27.3290 84.6065,27.3105 84.6319,27.2770 84.6482,27.2407 84.6577,27.2034 84.6598,27.1651 84.6544,27.1254 84.6445,27.1037 84.6304,27.0808 84.6215,27.0580 84.6273,27.0365 84.6402,27.0284 84.7607,26.9990 84.7720,26.9992 84.7855,27.0085 84.8019,27.0138 84.8175,27.0106 84.8281,26.9949 84.8283,26.9948 84.8518,26.9821 84.9016,26.9672 84.9240,26.9557 84.9386,26.9366 84.9443,26.9157 84.9527,26.8976 84.9758,26.8869 84.9882,26.8838 85.0008,26.8822 85.0180,26.8744 85.0169,26.8592 85.0186,26.8458 85.0440,26.8437 85.1002,26.8635 85.1228,26.8657 85.1620,26.8510 85.1655,26.8208 85.1657,26.7863 85.1949,26.7589 85.2873,26.7370 85.3024,26.7373 85.3370,26.7468 85.3532,26.7576 85.3692,26.7750 85.3859,26.7884 85.4032,26.7876 85.4215,26.7827 85.4396,26.7877 85.4757,26.8052 85.5195,26.8264 85.5986,26.8544 85.6094,26.8510 85.6878,26.8119 85.7018,26.7966 85.7096,26.7625 85.7022,26.6884 85.7129,26.6532 85.7270,26.6376 85.7810,26.5992 85.7900,26.5970 85.8001,26.6007 85.8097,26.6030 85.8176,26.5967 85.8195,26.5883 85.8198,26.5795 85.8216,26.5717 85.8285,26.5661 85.8448,26.5685 85.8664,26.5799 85.9347,26.6329 85.9521,26.6420 85.9757,26.6444 86.0114,26.6544 86.0417,26.6455 86.1107,26.6067 86.1159,26.6026 86.1221,26.6003 86.1448,26.6015 86.1527,26.6007 86.1678,26.5966 86.1745,26.5933 86.1793,26.5886 86.1854,26.5844 86.1959,26.5827 86.2029,26.5846 86.2252,26.5974 86.2631,26.6091 86.2844,26.6120 86.3014,26.6090 86.3086,26.6021 86.3090,26.5880 86.3160,26.5810 86.3232,26.5801 86.3448,26.5826 86.3537,26.5826 86.3836,26.5728 86.4448,26.5431 86.4755,26.5320 86.4949,26.5278 86.5106,26.5201 86.5243,26.5091 86.5377,26.4949 86.5380,26.4949 86.5579,26.4840 86.6253,26.4563 86.6952,26.4182 86.7136,26.4146 86.7241,26.4220 86.7307,26.4338 86.7382,26.4437 86.7519,26.4455 86.7872,26.4331 86.7964,26.4315 86.8219,26.4381 86.8464,26.4527 86.8657,26.4724 86.8760,26.4949 86.9071,26.5115 86.9724,26.5320 86.9852,26.5407 87.0154,26.5690 87.0299,26.5798 87.0413,26.5802 87.0444,26.5612 87.0450,26.5443 87.0565,26.4949 87.0565,26.4949 87.0567,26.4949 87.0667,26.4656 87.0833,26.4321 87.1063,26.4047 87.1350,26.3942 87.1885,26.3996 87.2191,26.4081 87.2294,26.3988 87.2363,26.3833 87.2453,26.3702 87.2584,26.3629 87.3005,26.3460 87.3140,26.3438 87.3262,26.3533 87.3449,26.3893 87.3564,26.4037 87.3842,26.4186 87.4165,26.4270 87.4496,26.4286 87.4803,26.4234 87.5521,26.3867 87.5870,26.3780 87.6240,26.3929 87.6596,26.4175 87.6812,26.4242 87.6976,26.4163 87.7109,26.4057 87.7275,26.4038 87.7422,26.4105 87.7495,26.4257 87.7562,26.4469 87.7690,26.4515 87.7859,26.4460 87.8044,26.4374 87.8216,26.4375 87.8521,26.4607 87.8698,26.4646 87.8707,26.4607 87.8948,26.4429 87.8973,26.4435 87.9020,26.4353 87.9085,26.4178 87.9148,26.4083 87.9290,26.3964 87.9612,26.3790 87.9755,26.3666 88.0066,26.3699 88.0443,26.4057 88.0742,26.4539 88.0823,26.4949 88.0823,26.4949 88.0792,26.5074 88.0798,26.5176 88.0871,26.5391 88.1017,26.5819 88.1176,26.6101 88.1466,26.6612 88.1634,26.7051 88.1675,26.7250 88.1691,26.7440 88.1678,26.7629 88.1590,26.8026 88.1553,26.8456 88.1514,26.8628 88.1428,26.8784 88.1204,26.9088 88.1118,26.9243 88.0968,26.9593 88.0769,26.9918 88.0559,27.0180 88.0428,27.0289 88.0274,27.0354 88.0095,27.0456 87.9913,27.0815 87.9755,27.0951 87.9707,27.1027 87.9692,27.1108 87.9708,27.1192 87.9855,27.1484 87.9893,27.2184 88.0047,27.2492 88.0290,27.2981 88.0351,27.3226 88.0325,27.3339 88.0233,27.3484 88.0201,27.3534 88.0158,27.3642 88.0148,27.3781 88.0172,27.3892 88.0258,27.4121 88.0296,27.4187 88.0348,27.4238 88.0393,27.4295 88.0416,27.4381 88.0398,27.4424 88.0308,27.4507 88.0281,27.4551 88.0233,27.4747 88.0221,27.4842 88.0233,27.4949 88.0488,27.5453 88.1109,27.6395 88.1349,27.7232 88.1493,27.7488 88.1597,27.7741 88.1546,27.8152 88.1666,27.8336 88.1646,27.8454 88.1564,27.8513 88.1430,27.8557 88.1182,27.8609 88.1181,27.8611 88.1192,27.8609 88.1058,27.8797 88.0984,27.9040 88.1009,27.9283 88.1167,27.9473 88.1273,27.9504 88.1512,27.9472 88.1630,27.9469 88.1631,27.9469 88.1639,27.9469 88.1758,27.9498 88.1988,27.9583 88.3797,27.9826 88.4007,27.9947 88.4008,27.9947 88.4009,27.9947 88.4009,27.9949 88.4567,28.0315 88.4758,28.0361 88.5021,28.0289 88.5023,28.0291 88.5030,28.0289 88.5181,28.0396 88.5318,28.0590 88.5538,28.0781 88.5949,28.1066 88.6105,28.1058 88.6317,28.0834 88.6520,28.0694 88.7101,28.0620 88.7356,28.0553 88.7801,28.0283 88.8029,28.0110 88.8175,27.9949 88.8177,27.9949 88.8177,27.9947 88.8197,27.9773 88.8098,27.9445 88.8107,27.9279 88.8189,27.9152 88.8428,27.8924 88.8516,27.8772 88.8551,27.8592 88.8539,27.8437 88.8057,27.6551 88.7831,27.6220 88.7674,27.5862 88.7482,27.5601 88.7410,27.5457 88.7416,27.5317 88.7576,27.5114 88.7572,27.4950 88.7544,27.4642 88.7598,27.4351 88.7736,27.4085 88.7954,27.3859 88.8082,27.3784 88.8198,27.3736 88.8308,27.3673 88.8520,27.3424 88.8646,27.3324 88.8923,27.3155 88.8846,27.2863 88.8761,27.2805 88.8614,27.2704 88.8552,27.2689 88.8012,27.2564 88.7759,27.2409 88.7544,27.2126 88.7384,27.1798 88.7301,27.1510 88.7426,27.1427 88.7560,27.1364 88.8053,27.1130 88.8276,27.0979 88.8408,27.0752 88.8456,27.0496 88.8456,26.9949 88.8456,26.9948 88.8517,26.9454 88.8671,26.9642 88.8864,26.9790 88.9066,26.9811 88.9245,26.9617 88.9270,26.9494 88.9254,26.9390 88.9253,26.9294 88.9323,26.9192 88.9428,26.9137 88.9545,26.9126 88.9658,26.9155 88.9753,26.9217 88.9966,26.9228 89.0216,26.9127 89.0449,26.8971 89.0607,26.8815 89.0743,26.8564 89.0824,26.8360 89.0965,26.8214 89.1281,26.8135 89.1846,26.8106 89.2128,26.8130 89.2408,26.8198 89.2526,26.8268 89.2630,26.8363 89.2736,26.8439 89.2864,26.8450 89.3002,26.8444 89.3417,26.8543 89.4073,26.8134 89.4429,26.7970 89.5054,26.8037 89.5465,26.7975 89.5861,26.7841 89.6114,26.7660 89.6135,26.7485 89.5975,26.7210 89.6098,26.7122 89.6283,26.7125 89.6632,26.7255 89.6852,26.7246 89.7387,26.7033 89.7603,26.7002 89.8001,26.7005 89.8041,26.6998 89.8137,26.6961 89.8173,26.6962 89.8221,26.7010 89.8252,26.7077 89.8268,26.7135 89.8267,26.7157 89.8273,26.7179 89.8277,26.7225 89.8297,26.7276 89.8350,26.7315 89.8390,26.7312 89.8470,26.7248 89.8508,26.7232 89.8587,26.7221 89.8599,26.7219 89.8803,26.7163 89.8904,26.7149 89.9121,26.7167 89.9753,26.7319 90.0892,26.7417 90.1272,26.7514 90.1522,26.7718 90.1774,26.8321 90.2109,26.8515 90.2291,26.8529 90.2660,26.8516 90.2844,26.8571 90.3009,26.8683 90.3142,26.8804 90.3286,26.8907 90.3488,26.8967 90.3826,26.8918 90.4752,26.8324 90.5878,26.7801 90.6239,26.7764 90.7171,26.7670 91.0074,26.7821 91.0621,26.8046 91.0919,26.8048 91.1271,26.8009 91.1982,26.8023 91.2325,26.7952 91.2620,26.7790 91.2760,26.7741 91.2966,26.7746 91.3132,26.7787 91.3301,26.7855 91.3456,26.7947 91.3584,26.8062 91.3701,26.8247 91.3781,26.8428 91.3885,26.8585 91.4063,26.8695 91.4202,26.8715 91.4606,26.8694 91.4751,26.8655 91.4845,26.8527 91.5074,26.8080 91.5206,26.7976 91.5394,26.7988 91.5756,26.8101 91.5937,26.8108 91.6380,26.7990 91.6538,26.7980 91.7021,26.8035 91.7316,26.8162 91.7953,26.8535 91.8251,26.8585 91.8439,26.8494 91.8495,26.8347 91.8524,26.8185 91.8631,26.8048 91.8787,26.8030 91.8869,26.8144 91.8859,26.8309 91.8740,26.8443 91.8955,26.8535 91.8955,26.8683 91.8931,26.8814 91.9082,26.8852 91.9257,26.8787 91.9574,26.8543 91.9751,26.8466 92.0359,26.8548 92.0728,26.8878 92.0804,26.9216 92.0839,26.9373 92.0670,26.9948 92.0670,26.9949 92.0497,27.0268 91.9999,27.0715 91.9966,27.0802 91.9877,27.1040 91.9879,27.1223 91.9908,27.1408 91.9959,27.1580 92.0030,27.1726 92.0085,27.1795 92.0215,27.1918 92.0271,27.1998 92.0300,27.2085 92.0332,27.2274 92.0368,27.2365 92.0506,27.2514 92.0819,27.2751 92.0888,27.2923 92.0848,27.3042 91.9973,27.4487 91.9751,27.4724 91.9633,27.4689 91.9337,27.4491 91.9209,27.4451 91.9054,27.4460 91.8843,27.4472 91.8574,27.4431 91.7796,27.4188 91.7501,27.4162 91.7448,27.4238 91.7437,27.4392 91.7271,27.4599 91.7270,27.4600 91.7049,27.4688 91.6802,27.4728 91.6574,27.4792 91.6417,27.4950 91.6329,27.5117 91.6045,27.5321 91.5951,27.5464 91.5733,27.6197 91.5799,27.6580 91.6267,27.7164 91.6329,27.7594 91.6338,27.7595 91.6338,27.7594 91.7739,27.7638 91.8148,27.7545 91.8494,27.7353 91.8649,27.7300 91.8658,27.7300 91.8659,27.7300 91.8851,27.7308 91.9056,27.7317 91.9089,27.7319 91.9522,27.7248 91.9529,27.7249 91.9532,27.7248 91.9760,27.7266 92.0131,27.7413 92.0706,27.7940 92.1075,27.8109 92.1268,27.8127 92.2100,27.8063 92.2104,27.8063 92.2110,27.8063 92.2223,27.8074 92.2300,27.8107 92.2359,27.8212 92.2340,27.8303 92.2301,27.8394 92.2303,27.8492 92.2404,27.8651 92.2492,27.8626 92.2583,27.8482 92.2752,27.8117 92.2888,27.7931 92.3039,27.7862 92.3041,27.7865 92.3048,27.7862 92.3182,27.8037 92.3300,27.8327 92.3347,27.8313 92.3398,27.8156 92.3501,27.8025 92.3510,27.8026 92.3510,27.8025 92.3689,27.8038 92.3765,27.8211 92.3820,27.8425 92.3937,27.8559 92.4044,27.8538 92.4173,27.8289 92.4276,27.8212 92.4283,27.8213 92.4285,27.8212 92.4400,27.8233 92.4761,27.8466 92.5244,27.8600 92.5390,27.8692 92.5654,27.8952 92.5775,27.9010 92.6016,27.9049 92.6294,27.9158 92.6633,27.9391 92.6888,27.9679 92.6921,27.9949 92.6921,27.9949 92.6919,27.9949 92.6919,27.9950 92.7023,28.0252 92.7023,28.0378 92.6902,28.0483 92.6552,28.0521 92.6399,28.0575 92.6382,28.0720 92.6558,28.1058 92.6796,28.1331 92.7088,28.1554 92.7710,28.1922 92.7794,28.1956 92.7829,28.1909 92.7854,28.1833 92.7902,28.1789 92.8053,28.1780 92.8057,28.1781 92.8063,28.1780 92.8208,28.1793 92.8357,28.1835 92.8512,28.1919 92.8663,28.2052 92.8905,28.2358 92.9048,28.2497 92.9230,28.2586 92.9613,28.2702 92.9759,28.2823 93.0017,28.3087 93.0941,28.3666 93.1177,28.3906 93.1373,28.4245 93.1506,28.4615 93.1563,28.4949 93.1650,28.5228 93.2011,28.5962 93.2038,28.6099 93.2045,28.6198 93.2084,28.6275 93.2207,28.6350 93.2330,28.6379 93.2612,28.6388 93.2739,28.6413 93.2845,28.6478 93.2921,28.6549 93.3009,28.6596 93.3142,28.6589 93.3407,28.6535 93.3534,28.6526 93.3538,28.6527 93.3544,28.6526 93.3681,28.6538 93.4472,28.6719 93.5521,28.6789 93.6071,28.6722 93.6080,28.6722 93.6081,28.6722 93.6265,28.6724 93.6444,28.6802 93.6607,28.6935 93.6754,28.7028 93.6892,28.6991 93.7055,28.6919 93.7061,28.6921 93.7065,28.6919 93.7234,28.6966 93.7924,28.7510 93.8081,28.7591 93.8668,28.7753 93.8746,28.7820 93.8782,28.7924 93.8886,28.7951 93.9008,28.7953 93.9096,28.7982 93.9131,28.8061 93.9109,28.8118 93.9077,28.8175 93.9081,28.8253 93.9195,28.8332 93.9394,28.8367 93.9598,28.8369 93.9751,28.8350 93.9752,28.8351 93.9760,28.8350 93.9930,28.8446 94.0124,28.8530 94.0278,28.8642 94.0327,28.8823 94.0272,28.9006 94.0102,28.9375 94.0088,28.9563 94.0182,28.9730 94.0341,28.9761 94.0714,28.9678 94.0941,28.9656 94.0944,28.9656 94.0951,28.9656 94.1102,28.9695 94.1411,28.9948 94.2418,29.1254 94.2884,29.1479 94.3238,29.1460 94.3239,29.1461 94.3247,29.1460 94.3367,29.1496 94.3473,29.1591 94.3635,29.1853 94.3738,29.1963 94.3974,29.2071 94.4233,29.2105 94.4759,29.2108 94.4992,29.2152 94.5157,29.2211 94.5296,29.2312 94.5836,29.3029 94.6009,29.3166 94.6306,29.3194 94.6685,29.3066 94.7042,29.2847 94.7564,29.2305 94.7677,29.2139 94.7615,29.1747 94.7766,29.1667 94.7988,29.1664 94.7989,29.1664 94.7997,29.1664 94.8164,29.1689 94.8542,29.1700 94.8913,29.1605 94.9659,29.1302 94.9882,29.1243 94.9880,29.1246 94.9892,29.1243 94.9828,29.1331 94.9656,29.1501 94.9560,29.1684 94.9720,29.1601 94.9891,29.1540 95.0477,29.1408 95.0990,29.1138 95.1169,29.1081 95.1915,29.0968 95.1997,29.0942 95.2079,29.0896 95.2128,29.0819 95.2141,29.0731 95.2163,29.0650 95.2249,29.0594 95.2816,29.0527 95.3196,29.0390 95.3387,29.0344 95.3776,29.0319 95.3780,29.0319 95.3785,29.0319 95.4011,29.0339 95.4205,29.0396 95.4372,29.0501 95.4516,29.0669 95.4590,29.0847 95.4673,29.1227 95.4758,29.1367 95.5113,29.1318 95.5115,29.1319 95.5123,29.1318 95.5224,29.1379 95.5236,29.1612 95.5129,29.1975 95.5163,29.2094 95.5511,29.2125 95.5530,29.2201 95.5516,29.2303 95.5547,29.2390 95.5654,29.2456 95.5739,29.2473 95.5826,29.2475 95.5933,29.2497 95.6307,29.2641 95.6490,29.2753 95.6665,29.2962 95.6762,29.2974 95.6866,29.2969 95.6868,29.2970 95.6875,29.2969 95.6972,29.2988 95.7065,29.3063 95.7207,29.3256 95.7291,29.3332 95.7457,29.3404 95.7774,29.3455 95.7969,29.3529 95.8500,29.3881 95.8695,29.3922 95.9064,29.3912 95.9065,29.3912 95.9074,29.3912 95.9236,29.3943 95.9758,29.4182 96.0245,29.4528 96.0427,29.4611 96.0618,29.4595 96.0757,29.4450 96.0878,29.4261 96.1017,29.4106 96.1147,29.3997 96.1420,29.3685 96.1510,29.3541 96.1660,29.3032 96.1763,29.2865 96.2054,29.2569 96.2353,29.2412 96.2362,29.2412 96.2362,29.2412 96.2688,29.2417 96.3051,29.2612 96.3242,29.2750 96.3375,29.2795 96.3499,29.2742 96.3662,29.2572 96.3669,29.2442 96.3424,29.2106 96.3275,29.1804 96.3164,29.1719 96.2101,29.1458 96.1936,29.1369 96.1835,29.1238 96.1746,29.1088 96.1615,29.0949 96.1454,29.0866 96.0938,29.0739 96.1140,29.0642 96.1285,29.0460 96.1512,29.0031 96.1555,28.9804 96.1320,28.9457 96.1305,28.9225 96.1595,28.8976 96.1601,28.8979 96.1605,28.8976 96.2042,28.9190 96.2790,28.9946 96.2790,28.9947 96.2792,28.9948 96.2793,28.9949 96.3203,29.0248 96.4756,29.0633 96.4844,29.0647 96.4866,29.0646 96.4849,29.0575 96.4824,29.0502 96.4789,29.0433 96.4747,29.0371 96.4576,28.9946 96.4512,28.9814 96.4521,28.9704 96.4601,28.9633 96.4747,28.9621 96.4922,28.9480 96.5004,28.9292 96.5108,28.8855 96.5238,28.8644 96.5767,28.8085 96.5926,28.7579 96.5657,28.7283 96.4515,28.6800 96.4494,28.6689 96.4534,28.6533 96.4485,28.6303 96.4352,28.6112 96.4152,28.5939 96.3928,28.5846 96.3716,28.5894 96.3716,28.5892 96.3707,28.5894 96.3635,28.5644 96.3340,28.5497 96.3146,28.5312 96.3374,28.4949 96.3377,28.4947 96.3343,28.4681 96.3027,28.4450 96.2639,28.4244 96.2380,28.4055 96.2389,28.4055 96.2389,28.4055 96.2576,28.4056 96.2706,28.3975 96.2826,28.3875 96.2983,28.3823 96.2989,28.3824 96.2993,28.3823 96.3285,28.3880 96.3365,28.3875 96.3446,28.3820 96.3544,28.3664 96.3611,28.3601 96.3807,28.3515 96.3812,28.3517 96.3817,28.3515 96.3913,28.3550 96.4073,28.3868 96.4205,28.4038 96.4356,28.4152 96.4536,28.4208 96.4962,28.4215 96.5133,28.4288 96.5466,28.4500 96.5663,28.4577 96.5848,28.4607 96.6248,28.4619 96.6412,28.4587 96.7083,28.4176 96.7461,28.3773 96.7832,28.3610 96.7840,28.3611 96.7841,28.3610 96.7867,28.3611 96.8604,28.3649 96.8979,28.3547 96.9340,28.3366 96.9658,28.3305 96.9662,28.3306 96.9667,28.3305 96.9984,28.3371 97.0339,28.3570 97.0790,28.3750 97.1155,28.3666 97.1827,28.3150 97.1933,28.3114 97.1942,28.3114 97.1942,28.3114 97.2028,28.3115 97.2105,28.3081 97.2208,28.2834 97.2297,28.2746 97.2853,28.2357 97.3235,28.2175 97.3287,28.1900 97.2989,28.1292 97.2929,28.0951 97.3065,28.0697 97.3551,28.0230 97.3623,27.9949 97.3568,27.9806 97.3400,27.9518 97.3357,27.9356 97.3363,27.9132 97.3382,27.9016 97.3335,27.8942 97.3149,27.8846 97.2929,27.8776 97.2887,27.8843 97.2880,27.8978 97.2764,27.9103 97.2607,27.9120 97.2412,27.9079 97.2229,27.8997 97.2109,27.8895 97.1980,27.8733 97.1821,27.8573 97.1318,27.8169 97.1232,27.8122 97.1124,27.8092 97.1060,27.8055 97.0982,27.7910 97.0922,27.7855 97.0723,27.7792 97.0653,27.7740 97.0620,27.7633 97.0604,27.7505 97.0567,27.7468 97.0505,27.7468 97.0040,27.7343 96.9909,27.7266 96.9570,27.6881 96.9395,27.6740 96.8997,27.6495 96.8835,27.6363 96.8702,27.6191 96.8621,27.5993 96.8620,27.5784 96.8662,27.5684 96.8773,27.5531 96.8803,27.5438 96.8810,27.5344 96.8847,27.5158 96.8885,27.5072 96.8902,27.4925 96.8770,27.4631 96.8814,27.4441 96.9051,27.4084 97.0679,27.2171 97.0955,27.1913 97.1013,27.1833 97.1017,27.1653 97.1044,27.1560 97.1117,27.1488 97.1208,27.1439 97.1293,27.1379 97.1348,27.1273 97.1330,27.1196 97.1229,27.0937 97.1192,27.0873 97.1060,27.0826 97.0980,27.0859 97.0899,27.0922 97.0772,27.0965 97.0670,27.0952 97.0479,27.0878 97.0380,27.0870 97.0268,27.0915 97.0189,27.0987 97.0119,27.1070 97.0030,27.1145 96.8653,27.1716 96.8427,27.1885 96.8418,27.2044 96.8513,27.2212 96.8596,27.2407 96.8538,27.2487 96.8217,27.2731 96.8099,27.2858 96.7892,27.3180 96.7763,27.3306 96.7589,27.3417 96.7242,27.3563 96.7052,27.3608 96.6873,27.3617 96.6759,27.3577 96.6592,27.3414 96.6490,27.3362 96.6364,27.3355 96.6293,27.3387 96.6232,27.3437 96.6142,27.3484 96.5869,27.3536 96.5760,27.3454 96.5675,27.3283 96.5473,27.3064 96.5318,27.2985 96.5109,27.2925 96.4901,27.2907 96.4747,27.2954 96.4078,27.2982 96.1426,27.2575 96.0742,27.2299 96.0132,27.1908 95.9748,27.1429 95.9384,27.0799 95.9164,27.0514 95.8889,27.0270 95.8615,27.0142 95.8049,27.0048 95.7780,26.9951 95.7350,26.9473 95.7092,26.9075 95.6993,26.8962 95.6861,26.8913 95.6400,26.8864 95.6243,26.8807 95.6133,26.8679 95.6034,26.8443 95.5913,26.8237 95.5748,26.8161 95.5544,26.8166 95.5314,26.8203 95.4898,26.8107 95.4627,26.7772 95.4400,26.7354 95.4106,26.7016 95.3927,26.6918 95.3160,26.6691 95.2790,26.6529 95.2606,26.6476 95.2391,26.6496 95.2233,26.6704 95.2049,26.6676 95.1956,26.6608 95.1816,26.6417 95.1732,26.6338 95.1634,26.6297 95.1414,26.6250 95.1326,26.6208 95.1228,26.6116 95.1191,26.6042 95.1159,26.5756 95.1162,26.5693 95.1149,26.5626 95.1096,26.5513 95.0992,26.5361 95.0699,26.5062 95.0544,26.4949 95.0544,26.4949 95.0406,26.4756 95.0426,26.4597 95.0617,26.4266 95.0661,26.4074 95.0642,26.3926 95.0505,26.3591 95.0436,26.3277 95.0418,26.2876 95.0463,26.2480 95.0587,26.2177 95.0664,26.2110 95.0745,26.2083 95.0828,26.2066 95.0908,26.2027 95.0945,26.1950 95.0897,26.1876 95.0824,26.1798 95.0784,26.1713 95.0882,26.1041 95.1017,26.0934 95.1375,26.0830 95.1501,26.0710 95.1512,26.0499 95.1395,26.0299 95.1082,25.9951 95.0659,25.9538 95.0494,25.9437 95.0120,25.9314 95.0006,25.9220 94.9940,25.9004 94.9932,25.8810 95.0135,25.7777 95.0153,25.7551 95.0088,25.7371 94.9999,25.7316 94.9786,25.7291 94.9690,25.7256 94.9615,25.7180 94.8717,25.5980 94.8680,25.5947 94.8575,25.5893 94.8535,25.5860 94.8529,25.5808 94.8610,25.5714 94.8603,25.5672 94.8508,25.5628 94.8310,25.5625 94.8224,25.5591 94.8080,25.5426 94.7824,25.5046 94.7644,25.4917 94.7458,25.4866 94.7111,25.4828 94.6920,25.4763 94.6595,25.4555 94.6305,25.4274 94.6080,25.3946 94.5501,25.2453 94.5533,25.2041 94.5769,25.1736 94.6130,25.1614 94.6533,25.1541 94.6891,25.1385 94.7068,25.1099 94.7138,25.0683 94.7086,25.0259 94.6898,24.9951 94.6735,24.9748 94.6548,24.8892 94.6391,24.8628 94.5990,24.8135 94.5932,24.7838 94.5932,24.7659 94.5895,24.7473 94.5815,24.7301 94.5695,24.7164 94.5557,24.7089 94.5434,24.7073 94.5310,24.7075 94.5163,24.7050 94.5080,24.6890 94.4871,24.6205 94.4750,24.5974 94.4302,24.5709 94.4185,24.5603 94.4108,24.5459 94.3971,24.4951 94.3819,24.4863 94.3704,24.4777 94.3637,24.4658 94.3612,24.4254 94.3522,24.4139 94.3400,24.4060 94.3287,24.3945 94.3283,24.3885 94.3317,24.3711 94.3307,24.3629 94.3237,24.3547 94.3028,24.3410 94.2954,24.3326 94.2900,24.3168 94.2869,24.2831 94.2828,24.2664 94.2340,24.1603 94.2222,24.1226 94.2185,24.0867 94.2141,24.0692 94.2037,24.0578 94.1991,24.0481 94.1939,24.0097 94.1903,23.9953 94.1449,23.9389 94.1351,23.9190 94.1336,23.8992 94.1351,23.8773 94.1319,23.8570 94.1169,23.8416 94.0997,23.8426 94.0853,23.8575 94.0711,23.8761 94.0551,23.8879 93.9979,23.9170 93.9751,23.9209 93.9405,23.9289 93.9123,23.9390 93.8832,23.9453 93.8037,23.9361 93.7828,23.9455 93.7430,23.9953 93.7111,24.0055 93.6605,24.0112 93.6124,24.0091 93.5880,23.9952 93.5856,23.9873 93.5818,23.9796 93.5770,23.9730 93.5711,23.9680 93.5613,23.9657 93.5553,23.9710 93.5500,23.9780 93.5435,23.9809 93.5268,23.9754 93.4957,23.9591 93.4748,23.9575 93.4567,23.9600 93.4490,23.9689 93.4456,23.9816 93.4392,23.9952 93.4065,24.0258 93.3965,24.0375 93.3683,24.0785 93.3485,24.0889 93.3222,24.0801 93.3097,24.0640 93.3030,24.0411 93.3011,24.0166 93.3030,23.9953 93.3081,23.9775 93.3161,23.9611 93.3376,23.9284 93.3460,23.9187 93.3519,23.9139 93.3560,23.9070 93.3592,23.8909 93.3583,23.8553 93.3748,23.7390 93.4063,23.7191 93.4123,23.7087 93.4260,23.6908 93.4303,23.6803 93.4324,23.6473 93.4002,23.4540 93.3998,23.4261 93.4059,23.3677 93.4078,23.3564 93.4072,23.3473 93.4037,23.3388 93.3842,23.3131 93.3779,23.2968 93.3764,23.2795 93.3808,23.2373 93.3727,23.1698 93.3730,23.1542 93.3752,23.1422 93.3749,23.1297 93.3334,23.0523 93.3183,23.0337 93.2988,23.0180 93.2728,23.0059 93.2465,23.0045 93.2256,23.0204 93.2121,23.0399 93.1965,23.0538 93.1771,23.0584 93.1524,23.0499 93.1401,23.0319 93.1382,23.0053 93.1432,22.9775 93.1511,22.9562 93.1711,22.9204 93.1774,22.9002 93.1755,22.8817 93.1611,22.8610 93.1253,22.8216 93.1159,22.7984 93.1124,22.8000 93.0795,22.7727 93.0708,22.6929 93.0739,22.6719 93.0819,22.6528 93.1044,22.6159 93.1105,22.5963 93.1091,22.5747 93.0982,22.5353 93.0992,22.5120 93.1096,22.4790 93.1179,22.4629 93.1535,22.4275 93.1659,22.3866 93.1743,22.2694 93.1737,22.2594 93.1690,22.2469 93.1613,22.2425 93.1515,22.2410 93.1297,22.2316 93.1248,22.2323 93.1235,22.2307 93.1231,22.2184 93.1417,22.1873 93.1195,22.1810 93.1043,22.1872 93.0906,22.1971 93.0725,22.2025 93.0458,22.2069 93.0364,22.2062 93.0245,22.2019 93.0224,22.1962 93.0239,22.1888 93.0226,22.1210 93.0255,22.1129 93.0075,22.1059 92.9952,22.1033 92.9855,22.0960 92.9672,22.0627 92.9653,22.0496 92.9684,22.0362 92.9749,22.0233 92.9779,22.0165 92.9796,22.0094 92.9799,22.0023 92.9790,21.9954 92.9771,21.9930 92.9749,21.9909 92.9681,21.9872 92.9617,21.9869 92.9556,21.9896 92.9503,21.9954 92.9374,22.0130 92.9210,22.0218 92.9062,22.0173 92.8986,21.9954 92.8892,21.9667 92.8775,21.9570 92.8670,21.9665 92.8621,21.9954 92.8539,22.0241 92.8361,22.0465 92.7716,22.1042 92.7081,22.1480 92.6838,22.1543 92.6740,22.1471 92.6711,22.1339 92.6747,22.1056 92.6740,22.0952 92.6695,22.0927 92.6646,22.0938 92.6621,22.0948 92.6562,22.0753 92.6561,22.0606 92.6584,22.0466 92.6584,22.0328 92.6509,22.0192 92.6399,22.0134 92.6276,22.0124 92.6153,22.0088 92.6039,21.9954 92.5980,21.9893 92.5913,21.9842 92.5838,21.9803 92.5759,21.9776 92.5752,21.9866 92.5731,21.9954 92.5600,22.0613 92.5373,22.1286 92.5493,22.1385 92.5642,22.1383 92.5756,22.1433 92.5770,22.1687 92.5275,22.4470 92.5189,22.4954 92.5174,22.5126 92.5046,22.5438 92.5008,22.5605 92.5029,22.6186 92.4959,22.6956 92.4915,22.7111 92.4807,22.7262 92.4537,22.7480 92.4420,22.7629 92.4350,22.7933 92.4263,22.8711 92.4119,22.8879 92.3787,22.9004 92.3599,22.9266 92.3522,22.9603 92.3530,23.0299 92.3276,23.1714 92.3286,23.2112 92.3327,23.2263 92.3507,23.2610 92.3575,23.2789 92.3569,23.2891 92.3522,23.2988 92.3471,23.3154 92.3467,23.3253 92.3495,23.3450 92.3486,23.3541 92.3449,23.3591 92.3317,23.3687 92.3267,23.3753 92.3254,23.3822 92.3269,23.3960 92.3254,23.4035 92.3198,23.4122 92.3067,23.4239 92.3015,23.4318 92.2968,23.4466 92.2910,23.4953 92.2528,23.6093 92.2500,23.6426 92.2617,23.6851 92.2593,23.7065 92.2387,23.7168 92.2221,23.7078 92.2094,23.6616 92.1943,23.6481 92.1808,23.6654 92.1706,23.7036 92.1508,23.7317 92.1084,23.7182 92.0922,23.7013 92.0596,23.6595 92.0424,23.6456 92.0190,23.6401 92.0035,23.6474 91.9617,23.6911 91.9491,23.7098 91.9366,23.7235 91.9227,23.7230 91.9165,23.7099 91.9144,23.6883 91.9160,23.6502 91.9423,23.5344 91.9408,23.4952 91.9181,23.4599 91.9051,23.4466 91.8891,23.4359 91.8338,23.4139 91.8177,23.4009 91.7916,23.3683 91.7626,23.3215 91.7437,23.2723 91.7492,23.2324 91.7639,23.2006 91.7790,23.1318 91.7919,23.1011 91.7956,23.0895 91.7913,23.0804 91.7762,23.0653 91.7738,23.0649 91.7642,23.0656 91.7609,23.0655 91.7560,23.0615 91.7556,23.0568 91.7563,23.0522 91.7551,23.0482 91.7383,23.0247 91.7313,23.0173 91.7144,23.0031 91.7070,22.9954 91.6947,22.9881 91.6676,22.9826 91.6541,22.9781 91.6469,22.9766 91.6399,22.9780 91.6328,22.9803 91.6258,22.9815 91.6167,22.9781 91.6120,22.9698 91.6083,22.9603 91.6024,22.9530 91.5861,22.9445 91.5830,22.9479 91.5831,22.9578 91.5768,22.9688 91.5631,22.9750 91.5498,22.9772 91.5366,22.9819 91.5236,22.9952 91.5194,23.0056 91.5182,23.0351 91.5156,23.0388 91.5061,23.0412 91.5033,23.0444 91.4981,23.0700 91.4751,23.1431 91.4704,23.1533 91.4636,23.1841 91.4612,23.1844 91.4464,23.1979 91.4454,23.2030 91.4467,23.2088 91.4464,23.2155 91.4399,23.2235 91.4396,23.2226 91.4362,23.2157 91.4365,23.2149 91.4281,23.2295 91.4136,23.2486 91.3943,23.2627 91.3721,23.2619 91.3610,23.2475 91.3557,23.2241 91.3559,23.1796 91.3746,23.0957 91.3709,23.0628 91.3374,23.0711 91.3135,23.1010 91.3005,23.1423 91.2772,23.3033 91.2729,23.3135 91.2675,23.3215 91.2658,23.3294 91.2729,23.3385 91.2829,23.3476 91.2873,23.3556 91.2840,23.3614 91.2709,23.3646 91.2581,23.3736 91.2479,23.3938 91.2345,23.4363 91.2297,23.4612 91.2273,23.4688 91.2208,23.4779 91.2034,23.4879 91.1951,23.4952 91.1859,23.5116 91.1775,23.5443 91.1699,23.5620 91.1408,23.6121 91.1363,23.6295 91.1397,23.6536 91.1523,23.6551 91.1665,23.6541 91.1752,23.6703 91.1689,23.6854 91.1524,23.6910 91.1366,23.6989 91.1323,23.7206 91.1418,23.7399 91.1576,23.7450 91.1766,23.7465 91.1950,23.7552 91.2052,23.7716 91.2253,23.8261 91.2282,23.8450 91.2240,23.8575 91.2128,23.8807 91.2119,23.8945 91.2163,23.9084 91.2504,23.9640 91.2609,23.9773 91.2741,23.9882 91.2916,23.9948 91.3049,23.9939 91.3162,23.9895 91.3271,23.9879 91.3391,23.9952 91.3493,24.0361 91.3508,24.0742 91.3630,24.0998 91.4046,24.1031 91.4804,24.0880 91.5175,24.0852 91.5587,24.0897 91.5818,24.0961 91.5965,24.1050 91.6060,24.1189 91.6138,24.1401 91.6245,24.2035 91.6291,24.2153 91.6395,24.2117 91.6572,24.1714 91.6662,24.1559 91.6842,24.1455 91.7037,24.1429 91.7212,24.1490 91.7326,24.1643 91.7320,24.1817 91.7258,24.2021 91.7230,24.2210 91.7329,24.2343 91.7966,24.2216 91.8070,24.2211 91.8097,24.2145 91.8114,24.1920 91.8138,24.1831 91.8442,24.1553 91.8645,24.1506 91.8771,24.1580 91.8843,24.1756 91.9059,24.2606 91.9069,24.2804 91.8964,24.3201 91.8998,24.3381 91.9219,24.3445 91.9310,24.3370 91.9531,24.3230 91.9722,24.3161 91.9714,24.3297 91.9488,24.3635 91.9500,24.3754 92.0334,24.3688 92.0627,24.3710 92.0883,24.3816 92.1076,24.4060 92.1112,24.4343 92.1059,24.4953 92.1109,24.5143 92.1232,24.5254 92.1386,24.5337 92.1532,24.5445 92.1636,24.5592 92.1689,24.5743 92.1734,24.6084 92.1829,24.6473 92.2338,24.7775 92.2365,24.7930 92.2369,24.8086 92.2350,24.8248 92.2218,24.8569 92.2177,24.8746 92.2230,24.8914 92.2522,24.9030 92.2904,24.8913 92.3583,24.8537 92.3594,24.8462 92.3636,24.8410 92.3709,24.8379 92.3807,24.8367 92.4420,24.8554 92.4777,24.8639 92.4915,24.8837 92.4945,24.8949 92.4913,24.9123 92.4838,24.9282 92.4744,24.9367 92.4498,24.9464 92.4581,24.9533 92.4540,24.9581 92.4445,24.9624 92.4125,24.9841 92.4123,24.9874 92.3947,24.9932 92.3869,24.9951 92.3811,25.0234 92.3563,25.0370 92.3281,25.0480 92.3121,25.0686 92.3035,25.0743 92.2516,25.0808 92.2337,25.0850 92.2201,25.0904 92.2080,25.0981 92.1941,25.1092 92.1792,25.1267 92.1727,25.1320 92.1647,25.1336 92.1510,25.1297 92.1455,25.1317 92.1386,25.1364 92.1241,25.1370 92.1162,25.1394 92.1104,25.1449 92.1005,25.1591 92.0929,25.1647 92.0660,25.1745 92.0340,25.1817 92.0018,25.1830 91.9751,25.1754 91.9563,25.1698 91.9006,25.1776 91.7937,25.1653 91.7453,25.1694 91.7301,25.1675 91.7237,25.1619 91.7177,25.1498 91.7107,25.1447 91.7018,25.1471 91.6889,25.1530 91.6774,25.1526 91.6723,25.1365 91.6620,25.1272 91.6387,25.1240 91.6131,25.1251 91.5962,25.1289 91.5802,25.1409 91.5735,25.1523 91.5661,25.1600 91.5488,25.1611 91.5402,25.1576 91.5234,25.1452 91.5117,25.1425 91.5009,25.1412 91.4808,25.1353 91.4710,25.1339 91.4319,25.1379 91.2840,25.1790 91.2357,25.2019 91.2250,25.2016 91.2031,25.1913 91.1908,25.1895 91.1353,25.1912 90.9751,25.1678 90.9434,25.1574 90.8220,25.1423 90.7940,25.1454 90.7794,25.1520 90.7669,25.1605 90.7540,25.1676 90.7380,25.1694 90.7327,25.1669 90.7220,25.1566 90.7164,25.1536 90.7077,25.1530 90.6706,25.1588 90.6490,25.1678 90.6376,25.1711 90.6234,25.1714 90.5833,25.1620 90.5014,25.1688 90.3998,25.1490 90.3646,25.1500 90.2869,25.1801 90.1301,25.2116 89.9081,25.2969 89.8702,25.2956 89.8346,25.2824 89.8190,25.2850 89.8074,25.3045 89.7985,25.3401 89.7950,25.3742 89.8007,25.4129 89.8232,25.4891 89.8251,25.5645 89.8344,25.6348 89.8242,25.6741 89.8015,25.7247 89.7831,25.8144 89.7870,25.8391 89.8301,25.9080 89.8344,25.9318 89.8264,25.9375 89.8107,25.9388 89.7920,25.9491 89.8116,25.9552 89.8256,25.9657 89.8287,25.9794 89.8153,25.9951 89.8141,25.9961 89.8127,25.9963 89.8110,25.9960 89.8093,25.9952 89.8092,25.9951 89.8089,25.9951 89.8020,25.9886 89.7955,25.9860 89.7894,25.9880 89.7840,25.9951 89.7764,26.0082 89.7558,26.0324 89.7502,26.0416 89.7487,26.0590 89.7511,26.0715 89.7498,26.0839 89.7367,26.1006 89.7288,26.1142 89.7243,26.1307 89.7185,26.1455 89.7065,26.1542 89.6977,26.1548 89.6777,26.1531 89.6704,26.1541 89.6582,26.1592 89.6558,26.1613 89.6572,26.1654 89.6584,26.2079 89.6530,26.2227 89.6349,26.2258 89.6133,26.2194 89.6064,26.2110 89.6085,26.1807 89.6153,26.1691 89.6144,26.1642 89.5940,26.1697 89.5868,26.1692 89.5799,26.1661 89.5734,26.1607 89.5628,26.1426 89.5694,26.1301 89.5858,26.1229 89.6042,26.1207 89.5925,26.1140 89.5779,26.1072 89.5669,26.0990 89.5670,26.0871 89.5769,26.0826 89.5908,26.0850 89.6039,26.0847 89.6114,26.0722 89.6029,26.0553 89.5592,26.0222 89.5507,25.9951 89.5518,25.9815 89.5491,25.9689 89.5417,25.9597 89.5284,25.9571 89.5182,25.9621 89.5095,25.9726 89.4953,25.9951 89.4906,25.9973 89.4856,25.9987 89.4806,25.9992 89.4264,25.9951 89.4264,25.9950 89.4264,25.9950 89.4264,25.9949 89.4212,25.9932 89.4161,25.9926 89.4113,25.9932 89.4066,25.9951 89.3914,26.0155 89.3797,26.0153 89.3678,26.0054 89.3515,25.9969 89.3353,25.9986 89.3151,26.0068 89.2969,26.0182 89.2730,26.0435 89.2376,26.0581 89.2293,26.0672 89.2231,26.0866 89.2126,26.0990 89.1978,26.1077 89.1316,26.1338 89.1192,26.1466 89.1117,26.1645 89.1034,26.2252 89.0959,26.2410 89.0759,26.2711 89.0694,26.2874 89.0689,26.3143 89.0803,26.3156 89.0948,26.3095 89.1035,26.3137 89.1029,26.3273 89.0957,26.3345 89.0719,26.3406 89.0552,26.3470 89.0541,26.3539 89.0573,26.3626 89.0526,26.3746 89.0437,26.3811 89.0218,26.3862 89.0109,26.3902 89.0018,26.3971 88.9865,26.4127 88.9753,26.4179 88.9593,26.4286 88.9502,26.4369 88.9410,26.4394 88.9246,26.4321 88.9120,26.4212 88.8995,26.4045 88.8912,26.3858 88.8919,26.3688 88.9124,26.3489 88.9412,26.3401 88.9660,26.3285 88.9753,26.2999 88.9817,26.2918 88.9897,26.2894 88.9986,26.2915 89.0080,26.2972 89.0044,26.2757 89.0116,26.2692 89.0235,26.2688 89.0343,26.2658 89.0397,26.2472 89.0195,26.2345 88.9753,26.2243 88.9468,26.2329 88.9027,26.2729 88.8758,26.2774 88.8556,26.2651 88.8407,26.2320 88.8248,26.2266 88.8080,26.2334 88.7985,26.2476 88.7920,26.2646 88.7840,26.2799 88.7479,26.2925 88.6634,26.2644 88.6458,26.2760 88.6533,26.2831 88.6901,26.2998 88.7030,26.3097 88.7122,26.3283 88.7097,26.3406 88.6963,26.3503 88.6734,26.3607 88.6674,26.3682 88.6685,26.3857 88.6611,26.3889 88.6522,26.3915 88.6499,26.3984 88.6519,26.4071 88.6563,26.4151 88.6330,26.4201 88.6224,26.4245 88.6115,26.4308 88.6036,26.4402 88.5979,26.4515 88.5912,26.4612 88.5792,26.4660 88.5580,26.4657 88.5498,26.4667 88.5268,26.4754 88.5068,26.4876 88.4987,26.4949 88.4879,26.5058 88.4754,26.5150 88.4624,26.5288 88.4465,26.5355 88.4110,26.5451 88.3979,26.5587 88.3950,26.5784 88.3959,26.5996 88.3944,26.6180 88.3853,26.6235 88.3725,26.6116 88.3603,26.5931 88.3528,26.5787 88.3324,26.5147 88.3193,26.4949 88.3193,26.4949 88.3139,26.4815 88.3151,26.4651 88.3225,26.4518 88.3356,26.4482 88.3402,26.4541 88.3430,26.4772 88.3465,26.4840 88.3536,26.4846 88.3769,26.4753 88.4346,26.4652 88.4611,26.4539 88.4754,26.4320 88.4955,26.3781 88.4976,26.3527 88.4754,26.3558 88.4679,26.3541 88.4580,26.3530 88.4486,26.3534 88.4420,26.3561 88.4317,26.3622 88.4260,26.3579 88.4212,26.3487 88.4138,26.3402 88.3668,26.3134 88.3517,26.3010 88.3366,26.2818 88.3329,26.2672 88.3345,26.2308 88.3263,26.2159 88.3087,26.2061 88.2503,26.1880 88.2298,26.1840 88.2189,26.1802 88.2120,26.1738 88.2057,26.1664 88.1969,26.1596 88.1638,26.1405 88.1556,26.1285 88.1445,26.0959 88.1414,26.0905 88.1399,26.0853 88.1412,26.0755 88.1448,26.0705 88.1510,26.0670 88.1564,26.0614 88.1579,26.0505 88.1510,26.0313 88.1259,26.0134 88.1065,25.9800 88.0880,25.9232 88.0827,25.9159 88.0774,25.9128 88.0744,25.9081 88.0820,25.8638 88.0890,25.8487 88.0876,25.8400 88.0876,25.8310 88.1033,25.8148 88.1080,25.8063 88.1149,25.7873 88.1277,25.7749 88.1464,25.7757 88.1662,25.7836 88.1827,25.7924 88.2275,25.8043 88.2599,25.7890 88.3203,25.7253 88.3930,25.6808 88.4194,25.6538 88.4238,25.5922 88.4378,25.5798 88.4754,25.5626 88.4856,25.5426 88.5128,25.5237 88.5205,25.5093 88.5303,25.5002 88.5510,25.4965 88.5936,25.4951 88.6132,25.4864 88.6454,25.4673 88.6663,25.4629 88.6781,25.4659 88.6871,25.4739 88.6957,25.4836 88.7062,25.4917 88.7142,25.4928 88.7231,25.4914 88.7327,25.4910 88.7426,25.4952 88.7420,25.5128 88.7723,25.5020 88.7810,25.4952 88.7931,25.4820 88.8058,25.4717 88.8149,25.4586 88.8163,25.4372 88.7993,25.4017 88.7996,25.3956 88.8104,25.3884 88.8133,25.3801 88.8140,25.3704 88.8183,25.3596 88.8420,25.3328 88.8490,25.3272 88.8593,25.3247 88.8802,25.3235 88.8861,25.3191 88.9029,25.3034 88.9265,25.3005 88.9753,25.3026 88.9827,25.2945 88.9849,25.2850 88.9824,25.2749 88.9753,25.2652 88.9378,25.2402 88.9291,25.2294 88.9280,25.2159 88.9308,25.2026 88.9279,25.1927 88.9096,25.1892 88.9242,25.1679 88.8986,25.1693 88.8302,25.1913 88.8236,25.1948 88.8171,25.1968 88.8091,25.1953 88.8025,25.1881 88.7923,25.1666 88.7842,25.1609 88.7245,25.1665 88.6646,25.1869 88.6343,25.1923 88.5991,25.1931 88.5901,25.1901 88.5777,25.1775 88.5707,25.1732 88.5594,25.1708 88.5547,25.1711 88.5500,25.1731 88.5232,25.1798 88.4918,25.1911 88.4754,25.1951 88.4413,25.1897 88.4315,25.1730 88.4342,25.1167 88.4258,25.0511 88.4141,25.0215 88.3910,24.9951 88.3879,24.9688 88.3757,24.9456 88.3409,24.9041 88.3228,24.8747 88.3136,24.8683 88.2968,24.8697 88.2549,24.8800 88.2428,24.8806 88.2419,24.8988 88.2328,24.9183 88.2188,24.9351 88.2025,24.9453 88.1830,24.9470 88.1645,24.9411 88.1149,24.9164 88.1149,24.9120 88.1203,24.9068 88.1249,24.8981 88.1381,24.8635 88.1410,24.8446 88.1312,24.8318 88.1174,24.8193 88.1078,24.8011 88.0948,24.8031 88.0882,24.7961 88.0854,24.7840 88.0840,24.7705 88.0770,24.7612 88.0643,24.7592 88.0532,24.7550 88.0485,24.7112 88.0354,24.6938 88.0272,24.6757 88.0218,24.6456 88.0409,24.6404 88.0572,24.6341 88.0673,24.6137 88.0818,24.5999 88.0850,24.5939 88.0850,24.5417 88.0860,24.5367 88.0900,24.5330 88.0988,24.5225 88.1079,24.5080 88.1099,24.5010 88.1388,24.4953 88.4013,24.3694 88.4754,24.3155 88.4983,24.3110 88.5631,24.3082 88.6125,24.2929 88.6345,24.2941 88.6495,24.3154 88.6601,24.3383 88.6818,24.3339 88.7146,24.3154 88.7375,24.2871 88.7430,24.2475 88.7449,24.2434 88.7475,24.2270 88.7498,24.2233 88.7464,24.2141 88.7348,24.1984 88.7316,24.1898 88.7159,24.1829 88.6938,24.1753 88.6838,24.1665 88.6781,24.1543 88.6783,24.1447 88.6830,24.1243 88.6818,24.1127 88.6754,24.0918 88.6741,24.0826 88.6790,24.0712 88.6978,24.0563 88.7009,24.0436 88.7250,24.0384 88.7255,24.0289 88.7138,24.0147 88.7016,23.9953 88.7084,23.9836 88.7144,23.9644 88.7171,23.9431 88.7142,23.9252 88.7044,23.9137 88.6665,23.8795 88.6531,23.8698 88.6339,23.8661 88.6132,23.8678 88.5936,23.8669 88.5776,23.8552 88.5744,23.8456 88.5755,23.8366 88.5776,23.8276 88.5775,23.8185 88.5724,23.8069 88.5577,23.7857 88.5527,23.7750 88.5525,23.7654 88.5597,23.7503 88.5612,23.7410 88.5401,23.6500 88.5416,23.6388 88.5510,23.6344 88.5612,23.6325 88.5664,23.6287 88.5644,23.6162 88.5611,23.6086 88.5617,23.6020 88.5714,23.5923 88.5815,23.5883 88.6013,23.5903 88.6092,23.5888 88.6242,23.5739 88.6476,23.5351 88.6645,23.5183 88.6938,23.4998 88.7046,23.4952 88.7194,23.4681 88.7319,23.4726 88.7437,23.4893 88.7568,23.4988 88.7702,23.4888 88.7679,23.4673 88.7540,23.4332 88.7193,23.3483 88.6950,23.3126 88.6859,23.2933 88.6866,23.2716 88.6966,23.2524 88.7100,23.2412 88.7757,23.2216 88.7862,23.2215 88.7942,23.2250 88.8010,23.2308 88.8095,23.2361 88.8227,23.2380 88.8396,23.2348 88.9096,23.2124 88.9181,23.2086 88.9270,23.2065 88.9542,23.2074 88.9600,23.2027 88.9598,23.1945 88.9547,23.1838 88.9459,23.1743 88.9191,23.1539 88.8648,23.1003 88.8513,23.0751 88.8487,23.0238 88.8394,22.9954 88.8388,22.9758 88.8428,22.9646 88.8617,22.9424 88.8722,22.9268 88.8935,22.8796 88.9051,22.8664 88.9331,22.8581 88.9445,22.8480 88.9468,22.8345 88.9451,22.8151 88.9412,22.7957 88.9369,22.7823 88.9262,22.7670 88.9150,22.7544 88.9081,22.7408 88.9106,22.7226 88.9225,22.6937 88.9259,22.6808 88.9300,22.6586 88.9424,22.6375 88.9520,22.6119 88.9564,22.5850 88.9503,22.5620 88.9280,22.5481 88.9590,22.5368 88.9710,22.5279 88.9800,22.4909 88.9984,22.4512 89.0025,22.4280 89.0007,22.4201 88.9922,22.4070 88.9895,22.3967 88.9896,22.3869 89.0015,22.3337 89.0069,22.3214 89.0235,22.2948 89.0091,22.2856 89.0186,22.2647 89.0623,22.2116 89.0707,22.1948 89.0762,22.1750 89.0782,22.1508 89.0607,22.1305 89.0604,22.1299 89.0551,22.1173 89.0514,22.1012 89.0489,22.0789 89.0564,22.0541 89.0638,22.0329 89.0725,22.0168 89.0765,21.9925 89.0750,21.9572 89.0700,21.9361 89.0564,21.9274 89.0265,21.9162 89.0265,21.8839 89.0402,21.7896 89.0728,21.7394 89.1072,21.6962 89.1191,21.6737 89.1338,21.6458 89.1741,21.5734 89.2742,21.4394 89.1548,21.4145 88.9164,21.3270 88.8356,21.3214 88.6890,21.3422 88.4891,21.3225 88.3663,21.3422 88.2275,21.3456 88.0742,21.4187 87.9507,21.4519 87.8744,21.5091 87.7751,21.4583 87.6321,21.4338 87.4062,21.3597 87.2232,21.3225 87.1193,21.2259 87.0825,21.1756 87.0733,21.1390 87.0928,21.0566 87.2014,20.8394 87.1928,20.5430 87.1520,20.4974 87.0443,20.4240 86.9913,20.2768 86.9427,20.2021 86.6995,20.0314 86.6075,19.8970 86.5344,19.8222 86.4337,19.7527 86.3187,19.6994 86.0536,19.6212 85.7885,19.5429 85.4726,19.4037 85.3612,19.3406 85.1142,19.1450 85.0092,19.0408 84.8099,18.7802 84.6105,18.5196 84.4255,18.3305 84.2405,18.1414 84.1401,18.0720 83.8674,17.9431 83.7364,17.8586 83.6617,17.7840 83.5004,17.5539 83.3614,17.4330 83.0383,17.2431 82.7581,17.1205 82.6009,17.0237 82.5783,16.9855 82.5828,16.7691 82.5369,16.5736 82.5056,16.5285 82.4730,16.4817 82.3064,16.3334 82.1078,16.2272 81.7765,16.1098 81.6760,16.1024 81.5146,16.1386 81.4555,16.1263 81.4018,16.0632 81.3186,15.8523 81.1585,15.6335 81.0568,15.5595 80.8887,15.5139 80.7583,15.5114 80.6902,15.5368 80.5862,15.6457 80.5071,15.6058 80.4532,15.5511 80.3863,15.3711 80.3138,15.2380 80.2805,15.0299 80.3033,14.8522 80.3729,14.7201 80.3949,14.6197 80.3964,14.3777 80.3629,14.1833 80.3638,14.1016 80.4609,13.8509 80.4589,13.6846 80.5486,13.4548 80.5618,13.3013 80.5005,12.9727 80.4392,12.6440 80.3990,12.5084 80.3130,12.3056 80.0635,11.8910 80.0085,11.7473 79.9764,11.6032 80.0420,11.3887 80.0729,11.1455 80.0621,10.8335 80.0668,10.5524 80.0715,10.2712 80.0318,10.1933 80.1537,10.0398 80.2353,10.0402 80.3189,10.0205 80.3919,9.9744 80.5898,9.7416 80.8626,9.5373 80.9391,9.4614 81.1274,9.1517 81.2768,8.9577 81.4120,8.7462 81.5406,8.5935 81.5785,8.5052 81.6497,8.2473 81.8139,7.9622 81.9619,7.7595 82.0247,7.6157 82.0856,7.3928 82.1049,7.0482 82.0884,6.9184 81.9444,6.4680 81.8275,6.3132 81.6275,6.1495 81.4013,6.0066 81.0255,5.8781 80.7275,5.7442 80.5712,5.7178 80.3703,5.7359 80.2285,5.7763 80.1039,5.8373 80.0036,5.9206 79.9061,6.0379 79.8380,6.1731 79.7462,6.4837 79.6543,6.7942 79.6034,7.1512 79.6118,7.2758 79.5700,7.7361 79.4929,8.0323 79.4794,8.1525 79.4896,8.2379 79.5196,8.3257 79.6471,8.5144 79.6878,8.6360 79.7258,8.6979 79.7134,8.8300 79.6950,8.8574 79.5235,8.9324 79.3597,8.9547 79.2151,9.0362 79.1000,9.0545 78.9248,9.0363 78.6952,8.9439 78.5117,8.9012 78.4207,8.8365 78.4264,8.7899 78.3125,8.4066 78.2743,8.3251 78.2084,8.2378 78.1147,8.1542 77.9793,8.0672 77.6138,7.8740 77.5288,7.8577 77.3884,7.8791 77.2202,7.9388 76.9228,8.1596 76.7618,8.3182 76.5610,8.5656 76.3601,8.8130 76.2557,9.0441 76.1512,9.2752 76.1013,9.4595 76.0731,9.7434 75.9549,10.1396 75.8410,10.4014 75.7271,10.6631 75.6475,10.9631 75.5816,11.1439 75.5315,11.2476 75.4232,11.3774 75.3193,11.6005 75.0077,11.9150 74.9447,12.0726 74.8572,12.2261 74.7365,12.5025 74.6159,12.7790 74.5502,13.0662 74.4845,13.3534 74.4298,13.6850 74.3101,13.9421 74.2241,14.1706 74.1873,14.3092 74.1104,14.4224 74.0517,14.5472 73.9172,14.6719 73.8213,14.8644 73.7170,14.9836 73.7012,15.0362 73.6958,15.1781 73.5873,15.3116 73.5155,15.5354 73.4548,15.6355 73.4156,15.7419 73.2724,15.9405 73.1870,16.1858 73.1015,16.4311 73.0639,16.7670 73.0263,17.1029 72.9689,17.2658 72.8831,17.6784 72.7974,17.9229 72.7117,18.1674 72.6720,18.3993 72.6760,18.5294 72.6324,18.6755 72.6309,18.7656 72.5722,18.8488 72.5505,18.9142 72.5668,19.0785 72.5376,19.3003 72.4823,19.5531 72.4269,19.8059 72.4271,19.8976 72.4468,19.9993 72.5146,20.2011 72.5588,20.4013 72.6571,20.5795 72.6635,20.6867 72.6205,20.7747 72.6097,20.8605 72.4860,20.9244 72.4122,21.0125 72.3718,21.2511 72.3539,21.2411 72.2637,21.0658 72.1477,20.9695 71.9990,20.9133 71.8680,20.8454 71.7509,20.8066 71.5984,20.7262 71.1954,20.5615 71.0305,20.5095 70.8452,20.4845 70.7009,20.5036 70.4705,20.6220 70.2401,20.7403 69.9192,20.9924 69.7286,21.1888 69.5603,21.3896 69.4150,21.4985 69.2607,21.6513 69.1054,21.7681 68.8940,21.9754 68.7867,22.1160 68.7389,22.2042 68.7208,22.2740 68.7216,22.3505 68.7446,22.4387 68.8253,22.5739 68.8699,22.6116 69.0135,22.6825 69.0095,22.7119 68.9260,22.7675 68.6918,22.8768 68.5317,22.9849 68.3973,23.1080 68.3111,23.2468 68.2176,23.3588 68.0255,23.4280 67.9620,23.4999 68.0609,23.5941 68.1127,23.6434 68.1470,23.6619 68.1664,23.6835 68.1699,23.7036 68.1548,23.7537 68.1576,23.7774 68.1637,23.7939 68.1728,23.8154 68.1833,23.8403 68.1916,23.8548 68.2073,23.8770 68.2150,23.8817 68.2329,23.8891 68.2399,23.8931 68.2430,23.8934 68.2529,23.8917 68.2568,23.8919 68.2604,23.8955 68.2579,23.8995 68.2537,23.9028 68.2519,23.9048 68.2531,23.9112 68.2527,23.9201 68.2549,23.9291 68.2639,23.9359 68.2740,23.9377 68.2777,23.9335 68.2800,23.9257 68.2862,23.9164 68.3004,23.9105 68.3141,23.9159 68.3260,23.9278 68.3350,23.9410 68.3337,23.9480 68.3299,23.9582 68.3304,23.9666 68.3426,23.9686 68.3489,23.9646 68.3524,23.9565 68.3538,23.9472 68.3536,23.9393 68.3855,23.9604 68.4316,23.9671 68.5478,23.9663 68.6464,23.9657 68.7245,23.9652 68.7251,24.1041 68.7256,24.2089 68.7259,24.2892 68.7473,24.3312 68.7992,24.3291 68.8138,24.3084 68.8197,24.2503 68.8388,24.2365 68.8489,24.2440 68.8801,24.2974 68.8833,24.3054 68.8851,24.3136 68.8903,24.3195 68.9042,24.3206 68.9132,24.3173 68.9220,24.3105 68.9294,24.3024 68.9487,24.2703 68.9626,24.2572 68.9808,24.2554 69.0078,24.2646 69.0485,24.2852 69.0677,24.2884 69.0919,24.2819 69.1482,24.2567 69.1667,24.2532 69.2062,24.2586 69.2808,24.2837 69.5631,24.2768 69.5923,24.2646 69.6706,24.1887 69.7146,24.1686 69.7691,24.1626 69.9720,24.1652 70.0160,24.1741 70.0521,24.2021 70.0630,24.2203 70.0872,24.2825 70.0979,24.2988 70.1097,24.3049 70.1446,24.3079 70.2022,24.3256 70.2228,24.3267 70.2426,24.3306 70.2791,24.3551 70.2985,24.3634 70.3532,24.3663 70.3708,24.3724 70.4164,24.4019 70.5209,24.4249 70.5629,24.4241 70.5752,24.4000 70.5692,24.3899 70.5520,24.3794 70.5465,24.3731 70.5456,24.3622 70.5554,24.3270 70.5602,24.2873 70.5677,24.2728 70.5847,24.2579 70.6215,24.2412 70.7555,24.2314 70.7760,24.2367 70.8136,24.2545 70.8341,24.2613 70.8515,24.2649 70.8576,24.2717 70.8445,24.2883 70.8409,24.3058 70.8565,24.3238 70.9177,24.3617 70.9363,24.3672 70.9553,24.3659 70.9771,24.3572 70.9967,24.3566 71.0071,24.3640 71.0144,24.3752 71.0251,24.3863 71.0731,24.4021 71.0828,24.4115 71.0750,24.4364 71.0401,24.4468 71.0001,24.4529 70.9771,24.4649 70.9744,24.4722 70.9731,24.4796 70.9732,24.4872 70.9748,24.4950 70.9771,24.5151 70.9805,24.5219 70.9819,24.5285 70.9809,24.5347 70.9771,24.5404 70.9578,24.5560 70.9548,24.5845 70.9628,24.6158 70.9771,24.6397 71.0433,24.6691 71.0639,24.6826 71.0369,24.7207 71.0032,24.8082 70.9430,24.8941 70.9152,24.9466 70.8933,25.0019 70.8599,25.1394 70.8486,25.1633 70.8314,25.1833 70.7684,25.2331 70.7349,25.2673 70.7231,25.2873 70.7186,25.3108 70.7105,25.3359 70.6704,25.3756 70.6545,25.3966 70.6466,25.4314 70.6528,25.5459 70.6575,25.6336 70.6539,25.6745 70.6323,25.7014 70.5923,25.7088 70.5544,25.6988 70.5167,25.6839 70.4772,25.6763 70.3601,25.6735 70.3037,25.6846 70.2646,25.6973 70.2492,25.7077 70.2345,25.7310 70.2140,25.7863 70.1956,25.8070 70.1542,25.8394 70.1150,25.8817 70.0832,25.9299 70.0646,25.9803 70.0643,25.9955 70.0729,26.0475 70.0739,26.0831 70.0783,26.0996 70.1320,26.1805 70.1469,26.2174 70.1516,26.2541 70.1440,26.2943 70.1425,26.3137 70.1479,26.3332 70.1571,26.3540 70.1605,26.3713 70.1570,26.4109 70.1629,26.4933 70.1581,26.5301 70.1296,26.5625 70.0937,26.5804 70.0561,26.5891 69.8156,26.5803 69.7723,26.5951 69.7002,26.6530 69.6594,26.6777 69.5042,26.7352 69.4728,26.7666 69.4651,26.8078 69.4860,26.9268 69.5076,27.0501 69.5344,27.1256 69.5756,27.1884 69.6661,27.2700 69.7306,27.3103 69.8480,27.4104 69.9081,27.4973 69.9935,27.5711 70.0169,27.6006 70.0907,27.7936 70.1020,27.8117 70.1990,27.9010 70.2677,27.9453 70.3239,28.0004 70.3419,28.0115 70.3595,28.0163 70.3983,28.0216 70.4369,28.0353 70.4562,28.0398 70.4772,28.0373 70.5068,28.0290 70.5349,28.0160 70.5598,27.9984 70.5929,27.9645 70.6212,27.9441 70.6332,27.9316 70.6416,27.9113 70.6376,27.8742 70.6407,27.8548 70.6717,27.7911 70.7104,27.7412 70.7618,27.7098 70.8316,27.7015 70.9138,27.7178 71.0276,27.7680 71.1507,27.8224 71.2263,27.8454 71.3114,27.8617 71.3978,27.8684 71.4771,27.8624 71.5607,27.8685 71.7014,27.9068 71.8609,27.9502 71.8744,27.9597 71.8800,27.9749 71.8916,28.0971 71.8969,28.1155 71.9083,28.1356 71.9882,28.2281 72.1110,28.3176 72.1499,28.3538 72.1776,28.3971 72.1978,28.4449 72.2565,28.6456 72.2803,28.6872 72.3546,28.7672 72.3822,28.7840 72.5256,28.8499 72.6585,28.9110 72.7725,28.9633 72.9015,29.0226 72.9182,29.0329 72.9304,29.0477 72.9629,29.1168 72.9887,29.1546 73.0509,29.2282 73.1289,29.3603 73.1780,29.4434 73.2329,29.5366 73.2848,29.6837 73.3274,29.8052 73.3703,29.9273 73.3852,29.9423 73.5578,30.0125 73.7397,30.0485 73.7783,30.0673 73.9444,30.1883 73.9489,30.2173 73.9346,30.2610 73.9119,30.3038 73.8916,30.3298 73.8423,30.3530 73.8452,30.3570 73.8518,30.3727 73.8677,30.3874 73.8876,30.3965 73.9061,30.3948 73.9043,30.4015 73.9021,30.4156 73.8999,30.4221 73.9167,30.4172 73.9293,30.4191 73.9391,30.4261 73.9898,30.4878 73.9960,30.5010 74.0044,30.5089 74.0441,30.5187 74.0575,30.5314 74.0615,30.5556 74.0582,30.5745 74.0571,30.5916 74.0674,30.6105 74.0822,30.6259 74.0959,30.6371 74.1115,30.6462 74.1327,30.6555 74.1557,30.6596 74.1637,30.6649 74.1668,30.6791 74.1701,30.6872 74.1846,30.6968 74.1912,30.7170 74.1988,30.7250 74.2151,30.7375 74.2357,30.7641 74.2441,30.7712 74.2592,30.7810 74.2667,30.7884 74.2658,30.7954 74.2567,30.8153 74.2602,30.8194 74.2799,30.8247 74.3002,30.8382 74.3114,30.8559 74.3040,30.8740 74.3107,30.8845 74.3192,30.8934 74.3298,30.8996 74.3425,30.9019 74.3536,30.9011 74.3797,30.8945 74.4013,30.8931 74.4091,30.9010 74.4134,30.9151 74.4243,30.9323 74.4416,30.9462 74.4585,30.9534 74.4772,30.9561 74.4995,30.9565 74.5193,30.9625 74.5348,30.9762 74.5488,30.9922 74.5641,31.0044 74.5643,31.0250 74.5795,31.0427 74.6010,31.0566 74.6588,31.0838 74.6503,31.0931 74.6320,31.1075 74.6170,31.1153 74.5969,31.1158 74.5531,31.1090 74.5368,31.1152 74.5235,31.1293 74.5149,31.1418 74.5096,31.1561 74.5064,31.1754 74.5091,31.1957 74.5251,31.2354 74.5253,31.2802 74.5322,31.3032 74.5716,31.3892 74.5837,31.4066 74.6000,31.4241 74.6119,31.4402 74.6172,31.4589 74.6146,31.4778 74.5845,31.5175 74.5556,31.6122 74.4995,31.6999 74.4894,31.7112 74.4926,31.7146 74.5033,31.7306 74.5055,31.7320 74.5133,31.7351 74.5162,31.7374 74.5183,31.7418 74.5212,31.7538 74.5230,31.7585 74.5308,31.7678 74.5351,31.7711 74.5370,31.7757 74.5374,31.7889 74.5408,31.8109 74.5504,31.8270 74.5656,31.8405 74.6411,31.8906 74.6572,31.8957 74.6700,31.9042 74.6984,31.9502 74.7630,31.9390 74.7837,31.9429 74.8025,31.9689 74.8113,32.0037 74.8286,32.0254 74.8732,32.0117 74.8891,32.0289 74.9088,32.0319 74.9314,32.0298 74.9557,32.0322 74.9679,32.0379 74.9741,32.0450 74.9785,32.0534 74.9862,32.0632 74.9956,32.0674 75.0202,32.0658 75.0302,32.0664 75.0226,32.0947 75.0408,32.0980 75.1021,32.0781 75.1103,32.0776 75.1190,32.0810 75.1298,32.0902 75.1384,32.0935 75.1613,32.0880 75.1742,32.0868 75.1731,32.1097 75.1958,32.1286 75.2264,32.1421 75.2499,32.1489 75.2633,32.1509 75.2947,32.1489 75.2981,32.1598 75.3084,32.1939 75.3166,32.2107 75.3486,32.2420 75.3590,32.2617 75.3530,32.2844 75.3269,32.3125 75.2302,32.3802 75.1962,32.3973 75.1260,32.4117 75.0922,32.4293 75.0549,32.4555 75.0237,32.4663 74.9907,32.4634 74.9484,32.4488 74.9070,32.4452 74.8381,32.4749 74.7994,32.4727 74.7635,32.4627 74.7250,32.4608 74.6893,32.4714 74.6626,32.4984 74.6326,32.5682 74.6296,32.5881 74.6369,32.6063 74.6480,32.6236 74.6560,32.6407 74.6573,32.6606 74.6502,32.7012 74.6497,32.7231 74.6570,32.7453 74.6823,32.7873 74.6891,32.8088 74.6853,32.8312 74.6718,32.8406 74.6536,32.8374 74.6359,32.8221 74.6263,32.8027 74.6220,32.7854 74.6141,32.7704 74.5934,32.7579 74.5738,32.7525 74.5210,32.7453 74.5009,32.7460 74.4845,32.7535 74.4553,32.7786 74.4387,32.7860 74.4190,32.7846 74.3864,32.7678 74.3677,32.7635 74.3462,32.7669 74.3293,32.7764 74.3163,32.7911 74.3065,32.8099 74.3229,32.8305 74.3338,32.8493 74.3367,32.8701 74.3245,32.9214 74.3220,32.9720 74.3113,32.9943 74.2840,33.0088 74.1909,33.0221 74.1539,33.0402 74.0985,33.1048 74.0658,33.1326 74.0294,33.1542 74.0023,33.1777 73.9885,33.2086 73.9918,33.2526 74.0017,33.2702 74.0178,33.2795 74.0554,33.2920 74.0720,33.3023 74.0851,33.3143 74.0960,33.3285 74.1055,33.3452 74.1363,33.4180 74.1578,33.4942 74.1416,33.5494 74.0881,33.5853 74.0242,33.6143 73.9767,33.6484 73.9683,33.6621 73.9631,33.6768 73.9608,33.6923 73.9631,33.7216 73.9662,33.7345 73.9707,33.7471 73.9767,33.7589 74.0113,33.8105 74.0346,33.8286 74.1423,33.8442 74.1775,33.8575 74.2126,33.8784 74.2395,33.9010 74.2625,33.9299 74.2723,33.9621 74.2597,33.9944 74.2284,34.0129 74.1921,34.0119 74.1543,34.0041 74.1184,34.0025 74.0653,34.0183 74.0450,34.0194 73.9767,34.0046 73.9458,34.0098 73.9162,34.0279 73.8937,34.0543 73.8844,34.0842 73.8933,34.1147 73.9169,34.1353 73.9767,34.1616 73.9954,34.1764 73.9983,34.1968 73.9906,34.2185 73.9767,34.2375 73.9544,34.2872 73.9377,34.3042 73.9075,34.3068 73.8790,34.3043 73.8533,34.3074 73.8291,34.3153 73.8042,34.3275 73.7827,34.3468 73.7749,34.3710 73.7798,34.3961 73.7962,34.4185 73.8068,34.4252 73.8316,34.4364 73.8404,34.4444 73.8455,34.4565 73.8470,34.4942 73.8470,34.4943 73.8631,34.5171 73.9110,34.5450 73.9260,34.5650 73.9254,34.5934 73.9175,34.6193 73.9193,34.6425 73.9486,34.6627 73.9622,34.6682 74.1209,34.6909 74.1468,34.7019 74.2218,34.7478 74.2858,34.7689 74.3489,34.7734 74.4121,34.7645 74.6649,34.6883 75.0178,34.6297 75.1110,34.6336 75.1763,34.6454 75.2129,34.6450 75.2369,34.6319 75.2514,34.6131 75.2675,34.5983 75.3070,34.5740 75.3481,34.5572 75.6116,34.4984 75.6556,34.4970 75.7137,34.5085 75.7348,34.5086 75.7771,34.5038 75.7958,34.5079 75.8162,34.5217 75.8740,34.5714 75.9393,34.6120 75.9662,34.6191 75.9734,34.6223 75.9867,34.6360 76.0075,34.6651 76.0234,34.6772 76.0583,34.6834 76.1218,34.6609 76.1550,34.6617 76.2620,34.6847 76.3999,34.7507 76.4382,34.7629 76.4765,34.7578 76.5199,34.7311 76.5358,34.7262 76.5532,34.7258 76.6396,34.7411 76.6526,34.7470 76.7439,34.8193 76.7533,34.8383 76.7496,34.8921 76.7576,34.9151 76.7820,34.9309 76.8170,34.9408 76.8526,34.9433 76.8796,34.9371 76.9059,34.9231 76.9211,34.9207 76.9338,34.9289 76.9530,34.9466 77.0131,34.9864 77.0286,35.0034 77.0352,35.0345 77.0318,35.0462 77.0271,35.0621 77.0231,35.0863 77.0426,35.1072 77.0490,35.1104 77.4247,35.3029 77.8004,35.4953 77.8153,35.4733 77.8342,35.4522 77.8571,35.4366 8536,10.0,Asia/Yakutsk 157.5078,76.6559 157.0766,76.4182 156.6454,76.1805 156.2141,75.9427 155.7829,75.7050 155.3517,75.4672 154.9204,75.2295 154.4892,74.9917 154.0579,74.7540 153.6267,74.5163 153.1955,74.2785 152.7642,74.0408 152.3330,73.8030 151.9018,73.5653 151.4705,73.3275 151.4709,73.2885 151.0112,73.2856 150.5516,73.2826 150.0919,73.2796 149.6322,73.2767 149.1726,73.2737 148.7129,73.2708 148.2532,73.2678 147.7936,73.2649 147.3339,73.2619 146.8742,73.2590 146.8743,72.9985 146.3903,72.9985 145.9064,72.9985 145.4224,72.9985 144.9385,72.9985 144.4545,72.9985 143.9706,72.9985 143.4866,72.9985 143.0027,72.9985 142.5187,72.9985 142.0347,72.9985 141.5508,72.9985 141.0668,72.9985 140.5829,72.9985 140.0989,72.9985 139.6150,72.9985 139.1310,72.9985 138.6470,72.9985 138.1631,72.9985 137.6791,72.9985 137.1952,72.9985 136.7112,72.9985 136.2273,72.9985 135.7433,72.9985 135.2593,72.9985 134.7754,72.9985 134.2914,72.9985 133.8075,72.9985 133.3235,72.9985 132.8396,72.9985 132.3556,72.9985 131.8717,72.9985 131.8621,72.9985 131.8621,72.5963 131.8621,72.1940 131.8621,71.7917 131.8621,71.3894 131.8937,71.0040 131.9202,70.9966 132.0285,70.9599 132.1119,70.9299 132.2117,70.8803 132.1761,70.8258 132.0211,70.7486 132.0879,70.6780 132.1092,70.5905 132.1077,70.5550 131.9898,70.4760 132.0329,70.4360 132.3175,70.3514 132.5343,70.3352 132.5419,70.3354 132.7305,70.3388 132.8421,70.3407 132.8430,70.3406 133.0765,70.3012 133.1910,70.2190 133.1591,70.1333 133.0977,70.0642 133.0380,70.0257 132.8881,69.9614 132.8672,69.8995 132.9299,69.8739 133.0247,69.8640 133.0284,69.8646 133.0822,69.8736 133.1398,69.8831 133.1450,69.8824 133.1844,69.8771 133.2237,69.8350 133.1773,69.8034 133.1903,69.7672 133.3337,69.7450 133.3431,69.7450 133.5328,69.7453 133.5330,69.7453 133.6572,69.7387 133.6291,69.6945 133.4715,69.6513 133.4703,69.6509 133.3096,69.6573 133.3003,69.6577 133.2649,69.5923 133.2140,69.5758 133.1706,69.5616 133.1702,69.5615 133.0409,69.5632 133.0318,69.5633 132.9417,69.5368 132.9483,69.4946 132.8622,69.4643 132.7992,69.4461 132.8087,69.4095 132.7822,69.3428 132.7184,69.2900 132.6769,69.2290 132.7698,69.1536 132.6932,69.1228 132.6914,69.1221 132.5192,69.1378 132.5145,69.1382 132.3577,69.1239 132.4669,68.9731 132.7221,68.8830 132.9650,68.7034 133.2080,68.5238 133.0934,68.3837 132.9510,68.2097 132.6464,68.1574 132.3419,68.1051 131.9707,67.9432 131.8469,67.7243 131.6582,67.6583 131.6566,67.6577 131.3884,67.6762 131.3806,67.6767 130.9999,67.5578 130.6191,67.4388 130.4478,67.1818 130.2384,67.1438 130.0766,66.9534 130.0957,66.7345 130.1316,66.5611 129.9788,66.5179 129.9735,66.4573 130.0303,66.4205 130.1096,66.3690 130.1294,66.2724 130.3006,66.1477 130.4896,66.0615 130.6978,66.0085 130.8260,65.9842 130.8824,65.9578 130.8917,65.9113 130.9486,65.8715 131.0622,65.8437 131.1166,65.8347 131.1120,65.7910 131.1561,65.7679 131.3307,65.7517 131.4855,65.7476 131.6063,65.7156 131.6417,65.6956 131.6920,65.6673 131.6833,65.6232 131.5449,65.5460 131.4668,65.5123 131.4263,65.4496 131.4566,65.3946 131.5787,65.3835 131.7098,65.3347 131.7763,65.2506 131.8985,65.1832 131.9426,65.1179 131.9767,65.0487 132.0665,64.9665 132.2207,64.8774 132.3100,64.8226 132.3361,64.7610 132.2901,64.7048 132.2277,64.6665 132.2189,64.6227 132.2572,64.5879 132.3067,64.5609 132.3993,64.5539 132.4218,64.5530 132.5562,64.5480 132.7001,64.5030 132.7478,64.4740 132.7569,64.4119 132.7783,64.3653 132.8590,64.3309 132.8827,64.2950 132.8918,64.2956 132.9972,64.3023 133.0007,64.3019 133.1112,64.2897 133.1871,64.2770 133.2504,64.2643 133.3770,64.2517 133.3865,64.2517 133.5036,64.2517 133.6302,64.3150 133.6935,64.4163 133.6935,64.5682 133.7188,64.6568 133.7695,64.7328 133.8454,64.8087 133.8834,64.9606 133.9341,65.0366 134.0353,65.0746 134.0449,65.0746 134.1493,65.0746 134.2252,64.9986 134.3392,64.9480 134.4531,64.9227 134.4626,64.9227 134.5671,64.9227 134.8582,64.9353 135.0481,64.9606 135.1874,65.0239 135.3140,65.0872 135.4533,65.2138 135.5925,65.3784 135.8078,65.4671 136.0356,65.5304 136.0416,65.5294 136.2635,65.4924 136.4534,65.4417 136.6560,65.3658 136.8459,65.3151 136.9472,65.2392 137.0611,65.2265 137.0631,65.2273 137.1497,65.2645 137.2510,65.3531 137.3523,65.3658 137.3538,65.3648 137.4915,65.2771 137.6308,65.2392 137.6403,65.2392 137.8207,65.2392 138.0233,65.3025 138.3018,65.4544 138.4790,65.5304 138.7196,65.6063 138.8335,65.7329 138.9728,65.7709 138.9792,65.7700 139.1627,65.7456 139.1677,65.7462 139.3779,65.7709 139.3835,65.7704 139.5298,65.7582 139.5330,65.7588 139.8337,65.8089 139.9096,65.8595 139.9603,65.8975 140.0192,65.9285 140.1084,65.8845 140.2444,65.8329 140.3172,65.8249 140.3695,65.8193 140.3375,65.7785 140.2668,65.7386 140.1848,65.7128 140.0989,65.6716 140.1294,65.6345 140.2128,65.6004 140.3287,65.5606 140.2131,65.5300 140.0574,65.5061 139.9261,65.4534 139.7799,65.3588 139.6593,65.2573 139.5478,65.0990 139.4413,64.9853 139.4023,64.9176 139.4532,64.8686 139.6168,64.8493 139.7891,64.8088 139.9915,64.7615 140.0375,64.7101 140.0917,64.6639 140.2471,64.6216 140.3336,64.5912 140.4033,64.5424 140.4019,64.4889 140.2924,64.4315 140.2632,64.3696 140.2966,64.3170 140.2590,64.2796 140.2197,64.2306 140.2695,64.1952 140.3488,64.1830 140.4753,64.1612 140.5981,64.1294 140.6755,64.0921 140.6825,64.0359 140.6141,63.9625 140.5338,63.9017 140.4919,63.8549 140.4791,63.7953 140.5426,63.7372 140.6187,63.6951 140.6493,63.6590 140.6423,63.5871 140.5730,63.5337 140.4962,63.5141 140.4130,63.5050 140.2780,63.4776 140.1413,63.4376 140.0682,63.3834 140.0089,63.3381 139.9352,63.3348 139.8637,63.3212 139.7946,63.2992 139.7307,63.2240 139.7248,63.1514 139.7001,63.0724 139.6477,63.0113 139.6671,62.9765 139.6956,62.9088 139.6813,62.8374 139.7860,62.7184 139.8859,62.6232 140.1096,62.5947 140.2333,62.5233 140.3472,62.3875 140.3408,62.3808 140.3186,62.3443 140.3136,62.3319 140.3099,62.3189 140.3064,62.2946 140.3008,62.2836 140.2944,62.2742 140.2943,62.2675 140.2957,62.2615 140.2988,62.2563 140.3105,62.2419 140.3124,62.2364 140.3120,62.2302 140.3089,62.2232 140.2987,62.2061 140.2994,62.1996 140.3031,62.1943 140.3081,62.1898 140.3118,62.1850 140.3138,62.1795 140.3126,62.1725 140.3027,62.1550 140.3014,62.1479 140.3059,62.1307 140.3045,62.1248 140.2996,62.1194 140.2582,62.0990 140.2538,62.0943 140.2539,62.0883 140.2588,62.0839 140.2662,62.0802 140.2749,62.0773 140.2823,62.0739 140.2877,62.0697 140.2870,62.0626 140.2796,62.0534 140.2564,62.0383 140.2414,62.0316 140.2263,62.0281 140.1879,62.0268 140.1786,62.0242 140.1721,62.0198 140.1707,62.0125 140.1709,62.0007 140.1706,61.9992 140.1697,61.9970 140.1651,61.9915 140.1573,61.9852 140.1405,61.9764 140.1272,61.9723 140.1140,61.9705 140.1023,61.9708 140.0920,61.9727 140.0645,61.9806 140.0400,61.9836 140.0149,61.9843 140.0060,61.9830 140.0000,61.9812 139.9943,61.9777 139.9883,61.9720 139.9720,61.9478 139.9627,61.9379 139.9554,61.9269 139.9516,61.9143 139.9512,61.9081 139.9528,61.9025 139.9563,61.8975 139.9613,61.8931 139.9732,61.8851 139.9778,61.8805 139.9799,61.8752 139.9800,61.8696 139.9774,61.8640 139.9531,61.8326 139.9342,61.8127 139.9274,61.8073 139.9189,61.8019 139.8843,61.7877 139.8762,61.7831 139.8691,61.7770 139.8621,61.7664 139.8543,61.7579 139.8438,61.7490 139.7979,61.7184 139.7813,61.7100 139.7416,61.7016 139.7332,61.6979 139.7291,61.6905 139.7280,61.6839 139.7260,61.6769 139.7219,61.6706 139.7114,61.6655 139.6897,61.6607 139.6800,61.6573 139.6727,61.6515 139.6672,61.6409 139.6615,61.6181 139.6590,61.6120 139.6528,61.6007 139.6506,61.5946 139.6492,61.5881 139.6485,61.5754 139.6457,61.5689 139.6393,61.5617 139.6040,61.5392 139.5953,61.5314 139.5614,61.4912 139.5554,61.4863 139.5482,61.4817 139.5362,61.4773 139.5144,61.4730 139.5043,61.4724 139.4948,61.4739 139.4346,61.4911 139.4219,61.4919 139.4104,61.4911 139.4006,61.4887 139.3929,61.4853 139.3879,61.4791 139.3829,61.4740 139.3718,61.4694 139.3429,61.4613 139.3053,61.4450 139.2703,61.4348 139.2595,61.4335 139.2473,61.4330 139.1201,61.4494 139.1082,61.4491 139.0977,61.4476 139.0716,61.4397 139.0571,61.4329 139.0506,61.4290 139.0462,61.4244 139.0475,61.4176 139.0519,61.4127 139.0629,61.4041 139.0642,61.3990 139.0598,61.3932 139.0465,61.3867 139.0254,61.3795 139.0113,61.3724 138.9666,61.3359 138.9533,61.3275 138.9407,61.3211 138.9200,61.3174 138.9086,61.3179 138.8999,61.3201 138.8939,61.3240 138.8896,61.3288 138.8834,61.3326 138.8739,61.3351 138.8624,61.3365 138.8403,61.3372 138.8314,61.3355 138.7655,61.3123 138.7560,61.3113 138.7482,61.3126 138.7452,61.3174 138.7473,61.3246 138.7547,61.3356 138.7529,61.3411 138.7452,61.3437 138.7346,61.3431 138.7261,61.3405 138.7190,61.3371 138.6814,61.3112 138.6508,61.2819 138.6437,61.2693 138.6423,61.2606 138.6446,61.2546 138.6476,61.2493 138.6496,61.2438 138.6494,61.2292 138.6471,61.2193 138.6542,61.2149 138.6653,61.2127 138.6906,61.2106 138.6999,61.2080 138.7061,61.2041 138.7065,61.1987 138.7030,61.1931 138.6916,61.1886 138.6501,61.1798 138.6339,61.1740 138.5706,61.1425 138.5613,61.1402 138.5506,61.1388 138.4851,61.1390 138.4746,61.1375 138.4654,61.1351 138.4434,61.1251 138.4137,61.1066 138.4050,61.1028 138.3951,61.1003 138.3833,61.0995 138.2973,61.1112 138.2916,61.1100 138.2921,61.1065 138.2952,61.1022 138.3040,61.0929 138.3066,61.0874 138.3084,61.0817 138.3084,61.0753 138.3078,61.0692 138.3084,61.0633 138.3110,61.0580 138.3158,61.0537 138.3223,61.0499 138.3372,61.0431 138.3431,61.0392 138.3464,61.0341 138.3483,61.0284 138.3483,61.0218 138.3461,61.0014 138.3458,61.0001 138.3374,60.9919 138.3230,60.9828 138.3112,60.9781 138.2983,60.9758 138.2486,60.9734 138.2292,60.9693 138.2214,60.9663 138.2149,60.9626 138.2094,60.9578 138.2053,60.9518 138.2036,60.9432 138.2039,60.9363 138.2069,60.9242 138.2069,60.9185 138.2039,60.9126 138.1991,60.9067 138.1911,60.9004 138.1856,60.8950 138.1828,60.8894 138.1861,60.8830 138.1958,60.8732 138.1992,60.8682 138.2030,60.8568 138.2079,60.8523 138.2310,60.8428 138.2362,60.8386 138.2384,60.8329 138.2407,60.8208 138.2437,60.8156 138.2475,60.8108 138.2527,60.8066 138.2780,60.7915 138.2823,60.7869 138.2843,60.7816 138.2837,60.7758 138.2797,60.7643 138.2799,60.7590 138.2843,60.7548 138.2926,60.7521 138.3378,60.7458 138.3473,60.7435 138.3532,60.7395 138.3567,60.7347 138.3588,60.7298 138.3636,60.7256 138.3707,60.7224 138.3994,60.7154 138.4159,60.7096 138.4229,60.7062 138.4289,60.7023 138.4335,60.6977 138.4362,60.6924 138.4375,60.6865 138.4375,60.6804 138.4342,60.6720 138.4193,60.6444 138.4170,60.6344 138.4159,60.6262 138.4125,60.6189 138.4044,60.6114 138.3852,60.6009 138.3706,60.5968 138.3561,60.5948 138.3326,60.5941 138.3233,60.5921 138.3155,60.5878 138.3118,60.5811 138.3134,60.5684 138.3205,60.5592 138.3287,60.5507 138.3341,60.5434 138.3341,60.5366 138.3285,60.5295 138.3066,60.5164 138.2973,60.5125 138.2536,60.5012 138.2466,60.4976 138.2428,60.4927 138.2453,60.4862 138.2519,60.4819 138.2691,60.4756 138.2738,60.4713 138.2743,60.4659 138.2718,60.4585 138.2728,60.4530 138.2787,60.4487 138.2972,60.4424 138.3048,60.4389 138.3102,60.4348 138.3143,60.4305 138.3266,60.4063 138.3279,60.4012 138.3288,60.3960 138.3291,60.3906 138.3281,60.3849 138.3257,60.3790 138.3097,60.3532 138.3071,60.3471 138.3071,60.3418 138.3090,60.3371 138.3169,60.3288 138.3186,60.3239 138.3152,60.3181 138.2892,60.3052 138.2709,60.2984 138.2415,60.2839 138.2245,60.2712 138.2123,60.2586 138.2058,60.2499 138.2017,60.2424 138.2007,60.2367 138.2005,60.2313 138.2026,60.2262 138.2053,60.2215 138.2131,60.2126 138.2196,60.2034 138.2238,60.1990 138.2335,60.1906 138.2372,60.1860 138.2373,60.1795 138.2331,60.1711 138.2084,60.1417 138.2054,60.1356 138.2033,60.1296 138.2026,60.1240 138.2032,60.1187 138.2053,60.1139 138.2096,60.1095 138.2478,60.0867 138.2528,60.0825 138.2564,60.0777 138.2584,60.0723 138.2534,60.0643 138.2391,60.0451 138.2357,60.0389 138.2341,60.0331 138.2329,60.0273 138.2328,60.0219 138.2336,60.0167 138.2397,60.0002 138.2403,59.9957 138.2428,59.9862 138.2452,59.9811 138.2490,59.9765 138.2670,59.9593 138.2731,59.9554 138.2718,59.9483 138.2626,59.9383 138.2257,59.9171 138.1976,59.8967 138.1908,59.8845 138.1884,59.8785 138.1830,59.8554 138.1762,59.8429 138.1737,59.8367 138.1738,59.8312 138.1779,59.8268 138.1834,59.8228 138.1898,59.8190 138.1940,59.8146 138.1961,59.8097 138.1917,59.7707 138.1930,59.7650 138.1961,59.7594 138.2019,59.7529 138.2094,59.7486 138.2195,59.7458 138.2555,59.7390 138.2647,59.7358 138.2707,59.7320 138.2735,59.7273 138.2669,59.7206 138.2530,59.7125 138.2199,59.6997 138.1843,59.6819 138.1737,59.6798 138.0829,59.6867 138.0432,59.6846 138.0349,59.6858 138.0290,59.6889 138.0259,59.6934 138.0256,59.6987 138.0284,59.7046 138.0365,59.7168 138.0427,59.7292 138.0439,59.7350 138.0444,59.7406 138.0435,59.7458 138.0413,59.7507 138.0305,59.7696 138.0203,59.7834 138.0113,59.7916 138.0054,59.7949 137.9999,59.7970 137.9939,59.7969 137.9859,59.7940 137.9782,59.7855 137.9754,59.7789 137.9741,59.7726 137.9723,59.7669 137.9690,59.7615 137.9608,59.7564 137.9487,59.7525 137.8995,59.7455 137.8894,59.7463 137.8804,59.7486 137.8556,59.7581 137.8444,59.7600 137.8334,59.7608 137.6157,59.7398 137.5991,59.7334 137.5771,59.7227 137.4583,59.6473 137.4470,59.6361 137.4424,59.6277 137.4453,59.6176 137.4501,59.6080 137.4568,59.5988 137.4706,59.5859 137.4743,59.5815 137.4768,59.5767 137.4777,59.5716 137.4765,59.5660 137.4729,59.5605 137.4657,59.5553 137.4555,59.5511 137.4369,59.5489 137.4230,59.5487 137.3744,59.5533 137.3620,59.5518 137.3490,59.5486 137.3328,59.5389 137.3235,59.5322 137.3019,59.5085 137.2920,59.5015 137.2887,59.4996 137.2383,59.4791 137.2177,59.4643 137.2084,59.4525 137.1825,59.4456 137.0974,59.4508 137.0689,59.4386 137.0538,59.4303 137.0445,59.4270 137.0327,59.4255 136.9927,59.4301 136.9795,59.4303 136.9641,59.4283 136.8359,59.3980 136.8268,59.3947 136.8191,59.3906 136.8129,59.3861 136.7923,59.3646 136.7858,59.3603 136.7746,59.3568 136.7587,59.3546 136.6601,59.3539 136.6486,59.3572 136.6413,59.3613 136.6381,59.3659 136.6341,59.3703 136.6294,59.3746 136.6236,59.3783 136.6159,59.3813 136.5998,59.3826 136.5350,59.3809 136.5014,59.3835 136.4890,59.3879 136.4581,59.3950 136.4460,59.3961 136.3750,59.3926 136.3638,59.3942 136.3543,59.3969 136.3466,59.4003 136.3416,59.4044 136.3242,59.4268 136.3194,59.4306 136.3125,59.4337 136.3009,59.4347 136.2874,59.4331 136.2676,59.4275 136.2395,59.4150 136.2303,59.4122 136.2187,59.4113 136.2004,59.4137 136.1879,59.4166 136.1689,59.4230 136.1484,59.4278 136.1336,59.4284 136.0899,59.4259 136.0754,59.4274 136.0650,59.4302 136.0534,59.4380 136.0217,59.4734 136.0167,59.4776 136.0053,59.4845 135.9991,59.4862 135.9356,59.4865 135.9207,59.4890 135.9118,59.4925 135.9062,59.4999 135.8942,59.5100 135.8821,59.5176 135.8678,59.5246 135.8503,59.5307 135.8388,59.5328 135.8151,59.5348 135.7910,59.5343 135.7572,59.5288 135.7090,59.5126 135.6956,59.5098 135.6536,59.5062 135.6371,59.5031 135.6189,59.4955 135.6096,59.4889 135.6028,59.4824 135.5986,59.4762 135.5892,59.4649 135.5836,59.4600 135.5771,59.4558 135.5702,59.4521 135.5211,59.4371 135.4217,59.3869 135.4156,59.3825 135.4104,59.3774 135.3838,59.3420 135.3782,59.3371 135.3719,59.3329 135.3556,59.3245 135.3461,59.3186 135.3452,59.3136 135.3464,59.3086 135.3458,59.3033 135.3424,59.2980 135.3331,59.2873 135.3258,59.2753 135.3206,59.2695 135.3132,59.2648 135.3024,59.2604 135.2954,59.2560 135.2677,59.2312 135.2633,59.2256 135.2602,59.2201 135.2605,59.2150 135.2642,59.2106 135.2767,59.2031 135.2808,59.1988 135.2813,59.1938 135.2786,59.1888 135.2738,59.1841 135.2664,59.1800 135.2362,59.1697 135.2294,59.1658 135.2260,59.1606 135.2257,59.1560 135.2265,59.1487 135.2264,59.1439 135.2237,59.1381 135.2200,59.1321 135.2148,59.1269 135.2091,59.1223 135.2020,59.1189 135.1869,59.1162 135.1223,59.1144 135.1022,59.1167 135.0895,59.1203 135.0760,59.1331 135.0702,59.1371 135.0576,59.1398 135.0066,59.1419 134.9551,59.1511 134.9442,59.1520 134.9325,59.1512 134.9202,59.1492 134.8647,59.1284 134.8545,59.1270 134.8429,59.1296 134.8195,59.1393 134.8006,59.1444 134.7675,59.1470 134.7579,59.1493 134.7517,59.1526 134.7506,59.1576 134.7536,59.1627 134.7585,59.1677 134.7754,59.1818 134.7791,59.1870 134.7793,59.1921 134.7744,59.1960 134.7650,59.1985 134.7552,59.2001 134.7465,59.2028 134.7325,59.2094 134.7249,59.2113 134.7156,59.2104 134.6890,59.1984 134.6772,59.1953 134.6612,59.1930 134.5940,59.1905 134.5782,59.1880 134.5547,59.1810 134.5439,59.1748 134.5370,59.1684 134.5317,59.1561 134.5279,59.1509 134.5221,59.1474 134.5125,59.1481 134.4921,59.1542 134.4367,59.1640 134.4280,59.1669 134.4206,59.1703 134.4150,59.1742 134.4103,59.1784 134.4063,59.1828 134.3968,59.1913 134.3909,59.1948 134.3829,59.1975 134.2874,59.1970 134.2370,59.2039 134.2186,59.2087 134.1699,59.2278 134.0931,59.2496 134.0465,59.2560 133.9364,59.2463 133.8913,59.2470 133.8763,59.2458 133.8010,59.2246 133.7666,59.2227 133.6252,59.2321 133.6149,59.2341 133.6073,59.2372 133.6030,59.2415 133.6018,59.2467 133.6017,59.2522 133.6024,59.2638 133.6054,59.2759 133.6040,59.2809 133.5977,59.2842 133.5868,59.2863 133.5702,59.2924 133.5586,59.2941 133.5433,59.2939 133.4795,59.2798 133.4383,59.2772 133.4290,59.2756 133.4192,59.2720 133.4098,59.2669 133.3986,59.2566 133.3905,59.2436 133.3842,59.2402 133.3452,59.2364 133.3245,59.2262 133.3065,59.2215 133.2919,59.2192 133.2600,59.2181 133.2513,59.2187 133.2452,59.2217 133.2402,59.2255 133.2344,59.2288 133.2260,59.2291 133.2175,59.2254 133.2083,59.2157 133.2037,59.2083 133.1987,59.2017 133.1916,59.1974 133.1789,59.1953 133.1680,59.1959 133.1258,59.2044 133.1140,59.2036 133.1035,59.2002 133.0870,59.1849 133.0789,59.1796 133.0329,59.1651 133.0202,59.1574 132.9441,59.0968 132.9360,59.0928 132.9236,59.0903 132.9127,59.0910 132.9031,59.0933 132.8612,59.1080 132.8518,59.1088 132.8432,59.1071 132.8364,59.1033 132.8330,59.0960 132.8338,59.0903 132.8375,59.0854 132.8429,59.0814 132.8617,59.0645 132.8645,59.0597 132.8640,59.0541 132.8601,59.0482 132.8524,59.0426 132.8277,59.0324 132.8197,59.0273 132.8154,59.0200 132.8159,59.0142 132.8194,59.0094 132.8459,58.9947 132.8707,58.9869 132.8733,58.9833 132.8683,58.9773 132.8268,58.9436 132.8219,58.9384 132.8184,58.9323 132.8153,58.9259 132.8110,58.9132 132.8098,58.8903 132.8106,58.8850 132.8079,58.8802 132.7995,58.8761 132.7735,58.8743 132.7525,58.8754 132.7225,58.8819 132.7111,58.8873 132.6866,58.8941 132.6175,58.8917 132.6045,58.8912 132.5993,58.8910 132.5981,58.8893 132.5512,58.8177 132.5442,58.8096 132.5315,58.7980 132.5248,58.7908 132.5213,58.7849 132.5257,58.7811 132.5515,58.7724 132.5587,58.7690 132.5645,58.7652 132.5684,58.7608 132.5712,58.7559 132.5720,58.7506 132.5717,58.7447 132.5671,58.7263 132.5386,58.6717 132.5405,58.6623 132.5469,58.6562 132.5566,58.6535 132.5645,58.6504 132.5668,58.6456 132.5642,58.6399 132.5437,58.6284 132.4779,58.6079 132.4643,58.6010 132.4520,58.5930 132.4143,58.5578 132.4096,58.5491 132.4044,58.5422 132.3982,58.5359 132.3719,58.5239 132.3691,58.5192 132.3721,58.5128 132.3774,58.5082 132.3829,58.5041 132.4152,58.4912 132.4189,58.4869 132.4170,58.4820 132.4050,58.4760 132.3932,58.4743 132.3805,58.4744 132.3088,58.4839 132.2993,58.4861 132.2861,58.4929 132.2792,58.4958 132.2703,58.4969 132.2614,58.4961 132.2170,58.4878 132.1286,58.4894 132.1242,58.4868 132.1251,58.4831 132.1288,58.4789 132.1610,58.4550 132.1685,58.4459 132.1701,58.4408 132.1697,58.4350 132.1679,58.4229 132.1676,58.4116 132.1685,58.4004 132.1699,58.3952 132.1718,58.3901 132.1820,58.3706 132.1858,58.3661 132.1905,58.3619 132.2022,58.3542 132.2068,58.3500 132.2095,58.3446 132.2086,58.3374 132.2044,58.3271 132.2029,58.3199 132.2029,58.3134 132.2034,58.3080 132.2034,58.3017 132.2028,58.2949 132.1958,58.2712 132.1960,58.2484 132.1948,58.2425 132.1901,58.2368 132.1778,58.2312 132.1679,58.2310 132.1597,58.2331 132.1345,58.2478 132.1271,58.2507 132.1180,58.2519 132.1094,58.2510 132.1019,58.2483 132.0933,58.2429 132.0518,58.2079 132.0449,58.2046 132.0292,58.1993 132.0225,58.1954 132.0172,58.1904 132.0163,58.1814 132.0183,58.1755 132.0298,58.1612 132.0316,58.1561 132.0298,58.1496 132.0246,58.1408 132.0132,58.1274 132.0085,58.1145 132.0088,58.1067 132.0139,58.1016 132.0217,58.0985 132.1131,58.0771 132.1271,58.0702 132.1329,58.0664 132.1351,58.0613 132.1329,58.0553 132.1198,58.0465 132.0886,58.0344 132.0785,58.0251 132.0697,58.0194 132.0573,58.0160 132.0475,58.0170 132.0393,58.0196 131.9997,58.0379 131.9957,58.0406 131.9868,58.0482 131.9694,58.0596 131.9552,58.0664 131.9215,58.0781 131.8748,58.1085 131.8464,58.1221 131.8274,58.1266 131.8169,58.1274 131.7770,58.1253 131.7667,58.1269 131.7573,58.1293 131.7493,58.1324 131.7426,58.1360 131.7374,58.1400 131.7337,58.1445 131.7306,58.1493 131.7246,58.1649 131.7209,58.1695 131.7145,58.1726 131.7048,58.1739 131.6773,58.1708 131.6454,58.1741 131.6355,58.1738 131.5989,58.1688 131.5891,58.1693 131.5505,58.1776 131.5404,58.1781 131.5315,58.1767 131.5081,58.1700 131.4956,58.1682 131.4769,58.1675 131.4687,58.1647 131.4637,58.1599 131.4644,58.1509 131.4691,58.1454 131.4765,58.1411 131.5018,58.1309 131.5127,58.1245 131.5222,58.1162 131.5325,58.1023 131.5377,58.0926 131.5407,58.0879 131.5452,58.0837 131.5517,58.0801 131.6226,58.0664 131.6291,58.0632 131.6331,58.0589 131.6362,58.0538 131.6380,58.0486 131.6446,58.0336 131.6461,58.0284 131.6452,58.0231 131.6384,58.0179 131.6300,58.0152 131.6114,58.0120 131.6055,58.0085 131.6039,58.0010 131.6046,57.9995 131.6104,57.9954 131.7368,57.9284 131.7460,57.9260 131.7563,57.9248 131.7851,57.9259 131.7931,57.9239 131.7987,57.9204 131.8024,57.9158 131.8048,57.9109 131.8060,57.9055 131.8029,57.8975 131.7953,57.8874 131.7568,57.8531 131.7557,57.8462 131.7599,57.8419 131.7683,57.8395 131.7784,57.8389 131.7992,57.8395 131.8208,57.8378 131.8298,57.8354 131.8366,57.8321 131.8476,57.8242 131.8880,57.8086 131.8931,57.8046 131.9010,57.7957 131.9060,57.7860 131.9073,57.7806 131.9094,57.7756 131.9125,57.7708 131.9182,57.7670 131.9257,57.7638 131.9519,57.7554 131.9668,57.7490 132.0017,57.7243 132.0348,57.6909 132.0383,57.6864 132.0413,57.6817 132.0430,57.6767 132.0441,57.6716 132.0475,57.6611 132.0440,57.6545 132.0355,57.6476 132.0014,57.6352 131.9902,57.6334 131.9809,57.6330 131.9716,57.6314 131.9645,57.6280 131.9612,57.6205 131.9612,57.6145 131.9627,57.6087 131.9704,57.5942 131.9738,57.5896 131.9747,57.5858 131.9705,57.5829 131.9584,57.5834 131.8903,57.5930 131.8690,57.5930 131.8497,57.5911 131.8324,57.5876 131.8169,57.5824 131.7701,57.5617 131.7547,57.5590 131.7423,57.5592 131.7241,57.5644 131.7132,57.5658 131.7021,57.5650 131.6931,57.5605 131.6853,57.5501 131.6823,57.5429 131.6847,57.5373 131.6916,57.5340 131.7302,57.5234 131.7351,57.5194 131.7370,57.5146 131.7359,57.5093 131.7306,57.5016 131.7294,57.5003 131.6708,57.4743 131.6476,57.4667 131.6173,57.4526 131.5955,57.4367 131.5854,57.4256 131.5714,57.3996 131.5681,57.3884 131.5662,57.3764 131.5652,57.3646 131.5656,57.3590 131.5674,57.3539 131.5827,57.3304 131.5909,57.3103 131.5986,57.2958 131.5958,57.2906 131.5873,57.2857 131.5672,57.2823 131.5523,57.2821 131.5393,57.2835 131.5289,57.2855 131.5188,57.2862 131.5102,57.2845 131.5049,57.2786 131.5033,57.2727 131.5033,57.2667 131.5086,57.2511 131.5059,57.2458 131.4984,57.2438 131.4796,57.2442 131.4415,57.2525 131.4294,57.2533 131.4052,57.2525 131.3817,57.2496 131.3576,57.2488 131.3453,57.2507 131.3334,57.2545 131.3236,57.2598 131.3117,57.2720 131.3019,57.2845 131.2945,57.2906 131.2843,57.2963 131.2727,57.3015 131.2606,57.3048 131.2506,57.3043 131.2404,57.3008 131.2292,57.2922 131.2181,57.2805 131.2022,57.2545 131.1921,57.2430 131.1833,57.2355 131.1663,57.2316 131.1567,57.2308 131.1461,57.2309 131.1125,57.2347 131.1047,57.2341 131.1017,57.2309 131.1091,57.2243 131.1280,57.2111 131.1523,57.1890 131.1686,57.1686 131.1720,57.1513 131.1793,57.1373 131.1849,57.1340 131.1927,57.1307 131.2019,57.1305 131.2093,57.1330 131.2153,57.1369 131.2245,57.1471 131.2282,57.1528 131.2330,57.1577 131.2390,57.1618 131.2465,57.1644 131.2557,57.1656 131.2656,57.1653 131.2753,57.1637 131.2833,57.1610 131.2896,57.1573 131.2935,57.1513 131.2954,57.1435 131.2967,57.1311 131.3022,57.1259 131.3093,57.1243 131.3174,57.1248 131.3260,57.1234 131.4743,57.0792 131.4822,57.0760 131.4867,57.0720 131.4856,57.0671 131.4776,57.0624 131.4567,57.0599 131.4483,57.0579 131.4423,57.0541 131.4392,57.0485 131.4390,57.0422 131.4448,57.0358 131.4535,57.0321 131.4715,57.0262 131.4782,57.0229 131.4832,57.0183 131.4850,57.0131 131.4858,57.0043 131.4875,57.0004 131.4920,56.9968 131.5133,56.9925 131.5199,56.9897 131.5236,56.9840 131.5266,56.9752 131.5410,56.9605 131.5441,56.9559 131.5488,56.9521 131.5541,56.9497 131.5612,56.9502 131.5758,56.9545 131.5841,56.9545 131.5915,56.9523 131.5965,56.9479 131.5999,56.9424 131.6014,56.9345 131.6036,56.9286 131.6080,56.9239 131.6369,56.9165 131.6435,56.9124 131.6470,56.9070 131.6510,56.8869 131.6534,56.8820 131.6569,56.8777 131.6640,56.8748 131.6947,56.8698 131.7014,56.8664 131.7051,56.8620 131.7072,56.8569 131.7100,56.8522 131.7145,56.8482 131.7224,56.8459 131.7414,56.8446 131.7511,56.8429 131.7560,56.8378 131.7584,56.8303 131.7565,56.8170 131.7586,56.8095 131.7633,56.8039 131.7698,56.8004 131.7776,56.7973 131.7834,56.7920 131.7868,56.7848 131.7856,56.7712 131.7887,56.7638 131.7918,56.7583 131.7952,56.7553 131.7972,56.7530 131.7983,56.7483 131.7993,56.7413 131.7990,56.7293 131.7995,56.7224 131.7972,56.7174 131.7874,56.7163 131.7788,56.7172 131.7699,56.7167 131.7618,56.7130 131.7541,56.7044 131.7334,56.6969 131.7274,56.6929 131.7249,56.6855 131.7204,56.6784 131.7095,56.6705 131.7006,56.6663 131.6839,56.6608 131.6776,56.6576 131.6739,56.6537 131.6758,56.6484 131.6822,56.6448 131.6968,56.6380 131.6996,56.6339 131.6971,56.6293 131.6885,56.6246 131.6804,56.6211 131.6739,56.6168 131.6704,56.6113 131.6705,56.6038 131.6726,56.5980 131.6760,56.5929 131.6773,56.5864 131.6755,56.5779 131.6690,56.5640 131.6698,56.5565 131.6698,56.5496 131.6665,56.5432 131.6553,56.5323 131.6498,56.5244 131.6498,56.5143 131.6562,56.5099 131.6631,56.5062 131.6665,56.5030 131.6678,56.5011 131.6678,56.4998 131.6681,56.4985 131.6690,56.4954 131.6724,56.4917 131.6771,56.4878 131.7014,56.4734 131.7049,56.4688 131.7052,56.4638 131.7014,56.4591 131.6918,56.4562 131.6832,56.4571 131.6779,56.4605 131.6739,56.4650 131.6695,56.4687 131.6624,56.4706 131.6546,56.4698 131.6457,56.4661 131.6217,56.4520 131.6114,56.4506 131.6039,56.4523 131.6000,56.4566 131.5993,56.4620 131.6014,56.4678 131.6172,56.4894 131.6194,56.4946 131.6195,56.4983 131.6195,56.4998 131.6189,56.5007 131.6170,56.5019 131.6126,56.5039 131.6052,56.5045 131.5873,56.5034 131.5777,56.5037 131.5690,56.5057 131.5615,56.5086 131.5565,56.5124 131.5548,56.5171 131.5563,56.5223 131.5572,56.5280 131.5563,56.5332 131.5528,56.5377 131.5477,56.5416 131.5405,56.5449 131.5208,56.5491 131.5025,56.5499 131.4974,56.5495 131.4829,56.5462 131.4675,56.5412 131.4536,56.5352 131.4408,56.5281 131.4353,56.5239 131.3978,56.4855 131.3938,56.4791 131.3962,56.4706 131.4021,56.4656 131.4174,56.4585 131.4235,56.4548 131.4273,56.4505 131.4276,56.4445 131.4235,56.4372 131.4112,56.4270 131.4019,56.4216 131.3919,56.4186 131.3823,56.4183 131.3725,56.4192 131.3641,56.4216 131.3585,56.4253 131.3551,56.4298 131.3537,56.4351 131.3543,56.4410 131.3573,56.4536 131.3580,56.4598 131.3571,56.4654 131.3537,56.4701 131.3480,56.4739 131.3334,56.4803 131.3273,56.4840 131.3198,56.4927 131.3149,56.4961 131.3065,56.4973 131.2583,56.4945 131.2409,56.4915 131.2252,56.4869 131.1844,56.4679 131.1623,56.4510 131.1500,56.4386 131.1305,56.4152 131.1256,56.4105 131.1140,56.3954 131.0917,56.3589 131.0892,56.3522 131.0877,56.3452 131.0893,56.3373 131.0910,56.3312 131.0954,56.3206 131.1124,56.2920 131.1191,56.2774 131.1202,56.2726 131.1187,56.2636 131.1152,56.2516 131.0926,56.2059 131.0834,56.1958 131.0778,56.1916 131.0651,56.1847 130.9937,56.1553 130.9822,56.1482 130.9636,56.1286 130.9612,56.1211 130.9603,56.1125 130.9637,56.0998 130.9666,56.0920 130.9699,56.0858 130.9717,56.0792 130.9718,56.0712 130.9666,56.0568 130.9622,56.0481 130.9574,56.0410 130.9487,56.0304 130.9178,55.9999 130.9180,55.9856 130.9242,55.9418 130.9209,55.9348 130.9169,55.9289 130.9116,55.9240 130.9060,55.9198 130.8996,55.9163 130.8705,55.9058 130.8646,55.8995 130.8617,55.8889 130.8660,55.8336 130.8658,55.8268 130.8676,55.8200 130.8708,55.8134 130.8912,55.7949 130.8950,55.7906 130.9193,55.7705 130.9259,55.7614 130.9317,55.7489 130.9343,55.7358 130.9351,55.7229 130.9333,55.7030 130.9230,55.6786 130.9495,55.6709 130.9646,55.6640 130.9906,55.6449 130.9959,55.6420 131.0477,55.6329 131.0868,55.6181 131.0961,55.6160 131.1070,55.6154 131.1222,55.6186 131.1669,55.6377 131.1769,55.6399 131.1906,55.6406 131.2155,55.6373 131.3006,55.6176 131.3164,55.6166 131.3397,55.6172 131.3752,55.6219 131.3911,55.6271 131.4015,55.6320 131.4065,55.6368 131.4121,55.6408 131.4187,55.6440 131.4268,55.6460 131.4375,55.6464 131.4496,55.6451 131.4656,55.6404 131.4737,55.6358 131.4788,55.6309 131.4835,55.6271 131.5631,55.6126 131.5736,55.6128 131.5829,55.6177 131.5860,55.6231 131.5880,55.6350 131.5903,55.6412 131.5940,55.6469 131.5986,55.6518 131.6181,55.6532 131.6494,55.6508 131.7523,55.6323 131.7699,55.6260 131.7744,55.6218 131.7798,55.6182 131.7899,55.6155 131.8037,55.6143 131.8934,55.6266 131.9010,55.6292 131.9073,55.6330 131.9129,55.6371 131.9181,55.6417 131.9294,55.6499 131.9440,55.6552 131.9522,55.6569 131.9623,55.6578 132.0793,55.6428 132.1094,55.6423 132.1260,55.6448 132.1311,55.6502 132.1353,55.6557 132.1401,55.6606 132.1459,55.6647 132.1529,55.6674 132.1957,55.6747 132.2026,55.6776 132.2077,55.6822 132.2112,55.6877 132.2158,55.6996 132.2247,55.7032 132.2397,55.7040 132.3049,55.6959 132.3869,55.7050 132.4000,55.7032 132.4660,55.6804 132.4739,55.6792 132.5213,55.6806 132.5306,55.6790 132.5384,55.6756 132.5441,55.6626 132.5454,55.6569 132.5492,55.6468 132.5720,55.6262 132.6629,55.5607 132.6221,55.5308 132.6156,55.5234 132.6159,55.5162 132.6188,55.5110 132.6256,55.5029 132.6289,55.5001 132.6435,55.4906 132.7194,55.4541 132.7296,55.4464 132.7404,55.4326 132.7491,55.4246 132.7550,55.4210 132.7621,55.4180 132.7709,55.4163 132.7807,55.4155 132.8381,55.4187 132.8496,55.4179 132.8637,55.4153 132.8726,55.4120 132.8923,55.4011 132.9251,55.3896 132.9391,55.3830 132.9438,55.3791 132.9455,55.3747 132.9403,55.3695 132.9284,55.3638 132.9180,55.3608 132.9079,55.3591 132.8171,55.3593 132.7791,55.3480 132.7609,55.3461 132.7416,55.3467 132.7326,55.3487 132.7256,55.3519 132.7194,55.3554 132.7055,55.3619 132.6902,55.3671 132.6822,55.3675 132.6748,55.3642 132.6685,55.3584 132.6615,55.3482 132.6583,55.3406 132.6565,55.3336 132.6568,55.3280 132.6581,55.3229 132.6608,55.3181 132.6640,55.3134 132.6722,55.3043 132.6854,55.2856 132.6877,55.2808 132.6888,55.2756 132.6866,55.2702 132.6828,55.2650 132.6367,55.2200 132.6265,55.2128 132.6064,55.2020 132.5931,55.1977 132.5808,55.1959 132.5271,55.1990 132.4807,55.1953 132.4609,55.1954 132.4099,55.2047 132.3997,55.2051 132.3909,55.2041 132.3610,55.1943 132.3548,55.1914 132.3557,55.1879 132.3622,55.1787 132.3622,55.1724 132.3561,55.1657 132.3448,55.1581 132.3390,55.1517 132.3418,55.1451 132.3603,55.1431 132.3687,55.1410 132.3712,55.1361 132.3702,55.1299 132.3678,55.1231 132.3687,55.1165 132.3730,55.1103 132.3996,55.0923 132.4030,55.0859 132.4018,55.0789 132.3977,55.0719 132.3851,55.0640 132.3758,55.0596 132.3668,55.0564 132.3265,55.0474 132.2546,55.0396 132.0867,55.0499 132.0772,55.0492 132.0694,55.0474 132.0620,55.0449 132.0545,55.0410 132.0149,55.0155 131.9708,54.9980 131.9655,54.9949 131.9611,54.9905 131.9595,54.9834 131.9617,54.9781 131.9756,54.9597 131.9898,54.9362 131.9917,54.9312 131.9927,54.9259 131.9945,54.9208 131.9949,54.9152 131.9945,54.9094 131.9914,54.9032 131.9862,54.8975 131.9769,54.8925 131.9686,54.8893 131.9147,54.8735 131.8884,54.8589 131.8793,54.8560 131.8692,54.8550 131.8379,54.8562 131.8268,54.8545 131.8162,54.8510 131.7894,54.8389 131.7812,54.8319 131.7750,54.8206 131.7723,54.8125 131.7708,54.8054 131.7688,54.8003 131.7645,54.7965 131.7066,54.7873 131.6993,54.7851 131.6774,54.7712 131.6689,54.7684 131.6596,54.7668 131.6501,54.7667 131.6413,54.7675 131.6347,54.7695 131.6315,54.7736 131.6296,54.7784 131.6284,54.7830 131.6247,54.7856 131.6194,54.7843 131.6123,54.7808 131.5604,54.7352 131.5454,54.7264 131.5325,54.7224 131.4987,54.7225 131.4296,54.7162 131.3993,54.7191 131.3888,54.7166 131.3784,54.7109 131.3638,54.6979 131.3540,54.6915 131.3449,54.6872 131.3298,54.6828 131.3139,54.6759 131.2911,54.6575 131.2771,54.6429 131.2659,54.6372 131.2560,54.6339 131.2390,54.6309 131.2316,54.6286 131.2133,54.6183 131.1995,54.6128 131.1937,54.6083 131.1905,54.6026 131.1915,54.5934 131.1949,54.5874 131.1992,54.5822 131.2035,54.5780 131.2226,54.5506 131.2240,54.5453 131.2245,54.5397 131.2202,54.5267 131.1686,54.4264 131.1610,54.4046 131.1141,54.3233 131.1060,54.3162 131.0983,54.3114 131.0708,54.3004 131.0655,54.2962 131.0567,54.2863 131.0506,54.2830 131.0431,54.2821 131.0353,54.2831 130.9874,54.2993 130.9439,54.3232 130.9360,54.3254 130.9276,54.3261 130.9196,54.3250 130.8612,54.3051 130.8542,54.3009 130.8424,54.2878 130.8365,54.2835 130.8293,54.2814 130.8197,54.2819 130.7926,54.2877 130.7737,54.2879 130.7566,54.2854 130.7491,54.2833 130.7421,54.2805 130.7373,54.2759 130.7334,54.2705 130.7303,54.2645 130.7268,54.2592 130.7222,54.2551 130.7158,54.2522 130.6851,54.2442 130.6784,54.2405 130.6734,54.2347 130.6709,54.2246 130.6666,54.2181 130.6615,54.2129 130.5919,54.1772 130.5697,54.1614 130.5513,54.1511 130.5069,54.1198 130.5032,54.1151 130.4987,54.1072 130.4891,54.0829 130.4860,54.0701 130.4849,54.0640 130.4863,54.0413 130.4824,54.0165 130.4835,53.9934 130.4817,53.9880 130.4790,53.9823 130.4716,53.9723 130.4671,53.9677 130.4613,53.9640 130.4545,53.9611 130.4104,53.9476 130.4042,53.9441 130.3992,53.9397 130.3957,53.9340 130.3932,53.9278 130.3917,53.9216 130.3936,53.9153 130.3986,53.9093 130.4288,53.8885 130.4363,53.8850 130.4465,53.8824 130.4633,53.8813 130.4745,53.8819 130.4842,53.8836 130.4960,53.8888 130.5088,53.8970 130.5165,53.8978 130.5272,53.8953 130.5434,53.8876 130.5595,53.8819 130.5734,53.8785 130.5912,53.8780 130.6024,53.8790 130.6351,53.8868 130.6539,53.8834 130.6818,53.8757 130.7445,53.8516 130.7926,53.8392 130.8221,53.8387 130.8317,53.8350 130.8401,53.8284 130.8464,53.8143 130.8488,53.8055 130.8495,53.7977 130.8529,53.7916 130.8566,53.7872 130.8829,53.7757 130.9211,53.7678 130.9397,53.7751 130.9671,53.7958 130.9794,53.8028 130.9862,53.8057 131.0036,53.8102 131.0967,53.8129 131.1753,53.7965 131.2053,53.7951 131.2205,53.7923 131.2606,53.7807 131.2808,53.7794 131.3026,53.7812 131.3306,53.7786 131.3677,53.7678 131.3736,53.7652 131.4208,53.7513 131.4309,53.7448 131.4337,53.7386 131.4279,53.7271 131.4263,53.7211 131.4257,53.7153 131.4281,53.7046 131.4362,53.6841 131.4392,53.6795 131.4468,53.6708 131.4496,53.6661 131.4505,53.6607 131.4505,53.6551 131.4492,53.6492 131.4437,53.6375 131.4421,53.6320 131.4440,53.6272 131.4493,53.6235 131.4684,53.6134 131.4782,53.6057 131.4848,53.5966 131.4872,53.5917 131.4981,53.5739 131.4994,53.5709 131.4999,53.5691 131.5003,53.5629 131.4999,53.5595 131.4994,53.5574 131.4982,53.5549 131.4666,53.5144 131.4620,53.5036 131.4616,53.5011 131.4616,53.4998 131.4637,53.4959 131.4668,53.4922 131.4768,53.4845 131.4808,53.4804 131.4835,53.4756 131.4839,53.4701 131.4830,53.4642 131.4811,53.4583 131.4802,53.4524 131.4802,53.4468 131.4817,53.4416 131.4845,53.4369 131.4891,53.4330 131.4943,53.4298 131.4984,53.4265 131.5005,53.4241 131.5025,53.4198 131.5214,53.3592 131.5222,53.3551 131.5233,53.3448 131.5266,53.3345 131.5289,53.3296 131.5323,53.3194 131.5333,53.3142 131.5331,53.3088 131.5312,53.3036 131.5275,53.2986 131.5232,53.2937 131.5195,53.2885 131.5174,53.2827 131.5173,53.2713 131.5178,53.2661 131.5171,53.2612 131.5133,53.2571 131.5083,53.2540 131.5028,53.2514 131.4710,53.2431 131.4572,53.2378 131.4514,53.2341 131.4470,53.2297 131.4449,53.2241 131.4459,53.2192 131.4508,53.2153 131.4653,53.2129 131.6256,53.2143 131.6723,53.2247 131.7414,53.2269 131.7525,53.2291 131.7592,53.2319 131.7710,53.2389 131.7826,53.2412 131.8002,53.2412 131.8531,53.2335 131.8631,53.2290 131.8646,53.2237 131.8639,53.2178 131.8615,53.2116 131.8457,53.1811 131.8379,53.1709 131.8357,53.1663 131.8374,53.1620 131.8416,53.1580 131.8799,53.1323 131.8861,53.1293 131.8942,53.1280 131.9067,53.1309 131.9157,53.1339 131.9367,53.1432 131.9453,53.1445 131.9555,53.1440 131.9905,53.1339 131.9994,53.1335 132.0070,53.1346 132.0199,53.1385 132.0274,53.1429 132.0335,53.1478 132.0419,53.1580 132.0738,53.2101 132.0791,53.2143 132.0853,53.2177 132.0921,53.2204 132.0997,53.2223 132.1116,53.2230 132.1642,53.2195 132.2142,53.2214 132.2638,53.2325 132.3276,53.2352 132.3527,53.2393 132.3600,53.2415 132.3760,53.2447 132.3864,53.2452 132.3985,53.2442 132.4179,53.2388 132.4387,53.2309 132.4480,53.2289 132.5940,53.2297 132.6092,53.2323 132.6354,53.2535 132.6429,53.2560 132.6519,53.2570 132.6758,53.2501 132.6918,53.2436 132.7027,53.2412 132.7178,53.2400 132.7906,53.2446 132.8045,53.2432 132.8528,53.2323 132.8639,53.2310 132.8750,53.2311 132.8933,53.2346 132.9020,53.2398 132.9085,53.2456 132.9253,53.2765 132.9295,53.2817 132.9351,53.2855 132.9428,53.2874 132.9512,53.2885 132.9602,53.2884 132.9698,53.2871 132.9815,53.2837 132.9935,53.2818 133.0217,53.2834 133.0902,53.3028 133.0983,53.3041 133.1068,53.3036 133.1335,53.2933 133.1433,53.2916 133.1534,53.2912 133.1640,53.2940 133.1705,53.2985 133.1748,53.3041 133.1770,53.3102 133.1771,53.3157 133.1756,53.3209 133.1724,53.3254 133.1646,53.3340 133.1619,53.3385 133.1625,53.3434 133.1665,53.3476 133.1771,53.3547 133.1805,53.3591 133.1826,53.3702 133.1826,53.3759 133.1839,53.3820 133.1863,53.3884 133.1892,53.3945 133.2052,53.4163 133.2097,53.4211 133.2152,53.4254 133.2210,53.4290 133.2465,53.4415 133.2898,53.4555 133.3012,53.4630 133.3140,53.4693 133.3214,53.4714 133.3380,53.4739 133.3894,53.4750 133.4006,53.4767 133.4088,53.4798 133.4192,53.4882 133.4251,53.4918 133.4575,53.5072 133.4645,53.5088 133.4715,53.5087 133.4792,53.5034 133.4816,53.5008 133.4820,53.4983 133.4820,53.4955 133.4850,53.4927 133.4940,53.4922 133.4999,53.4925 133.5293,53.4968 133.5331,53.4990 133.5346,53.5007 133.5393,53.5140 133.5423,53.5199 133.5498,53.5313 133.5542,53.5364 133.5593,53.5410 133.5654,53.5444 133.5733,53.5460 133.6200,53.5460 133.6321,53.5437 133.6435,53.5396 133.6571,53.5309 133.6646,53.5251 133.7092,53.4768 133.7138,53.4731 133.7187,53.4701 133.7271,53.4676 133.7400,53.4667 133.7502,53.4670 133.7590,53.4685 133.7663,53.4706 133.7895,53.4856 133.7955,53.4873 133.8019,53.4859 133.8062,53.4802 133.8093,53.4749 133.8128,53.4699 133.8183,53.4659 133.8268,53.4631 133.8419,53.4623 133.8787,53.4662 133.8871,53.4654 133.9970,53.4341 134.0059,53.4329 134.0106,53.4332 134.0731,53.4447 134.0922,53.4448 134.1003,53.4462 134.1077,53.4488 134.1204,53.4554 134.1418,53.4722 134.1464,53.4773 134.1544,53.4803 134.1665,53.4803 134.1906,53.4727 134.2042,53.4711 134.2146,53.4718 134.2188,53.4765 134.2214,53.4821 134.2232,53.5006 134.2222,53.5103 134.2226,53.5149 134.2261,53.5184 134.2337,53.5187 134.2517,53.5159 134.2607,53.5158 134.2689,53.5168 134.2902,53.5242 134.2977,53.5257 134.3065,53.5257 134.3244,53.5230 134.3333,53.5230 134.3411,53.5246 134.3482,53.5270 134.3546,53.5301 134.3633,53.5312 134.3739,53.5303 134.3934,53.5211 134.4066,53.5177 134.4175,53.5165 134.4250,53.5184 134.4320,53.5208 134.4383,53.5241 134.4442,53.5278 134.4486,53.5325 134.4514,53.5378 134.4510,53.5428 134.4494,53.5477 134.4445,53.5573 134.4379,53.5773 134.4371,53.5825 134.4383,53.5876 134.4429,53.5917 134.4497,53.5939 134.5070,53.5953 134.5141,53.5964 134.5209,53.5988 134.5270,53.6025 134.5419,53.6163 134.5479,53.6196 134.5552,53.6209 134.5631,53.6195 134.5841,53.6102 134.6370,53.5952 134.6426,53.5925 134.6655,53.5785 134.6855,53.5630 134.7480,53.5393 134.7536,53.5356 134.7564,53.5305 134.7568,53.5247 134.7464,53.5044 134.7447,53.5000 134.7447,53.4981 134.7452,53.4938 134.7475,53.4864 134.7537,53.4796 134.7614,53.4752 134.7710,53.4731 134.7803,53.4727 134.7884,53.4742 134.8105,53.4804 134.8185,53.4810 134.8266,53.4794 134.8322,53.4758 134.8344,53.4703 134.8331,53.4621 134.8336,53.4559 134.8381,53.4513 134.9030,53.4343 134.9098,53.4310 134.9155,53.4270 134.9238,53.4166 134.9257,53.4090 134.9251,53.3992 134.9176,53.3818 134.9115,53.3738 134.9039,53.3719 134.8361,53.3835 134.8304,53.3816 134.8269,53.3769 134.8152,53.3470 134.8142,53.3406 134.8192,53.3326 134.8274,53.3283 134.8375,53.3254 134.8824,53.3201 134.8902,53.3181 134.8970,53.3154 134.9006,53.3096 134.9036,53.3029 134.9056,53.2905 134.9093,53.2837 134.9155,53.2788 134.9434,53.2733 134.9517,53.2705 134.9561,53.2640 134.9564,53.2539 134.9492,53.2335 134.9428,53.2223 134.9304,53.2130 134.8913,53.2001 134.8756,53.1969 134.8673,53.1923 134.8594,53.1844 134.8387,53.1394 134.8366,53.1323 134.8359,53.1247 134.8401,53.1153 134.8444,53.1093 134.8501,53.1045 134.8669,53.0936 134.8704,53.0889 134.8721,53.0835 134.8671,53.0763 134.8625,53.0722 134.8426,53.0680 134.8269,53.0684 134.8201,53.0675 134.8121,53.0656 134.8050,53.0631 134.7988,53.0598 134.7938,53.0557 134.7892,53.0509 134.7822,53.0400 134.7775,53.0353 134.7719,53.0314 134.7657,53.0282 134.7545,53.0202 134.7346,53.0009 134.7296,52.9950 134.6840,52.9563 134.6676,52.9467 134.6632,52.9435 134.6589,52.9391 134.6564,52.9326 134.6554,52.9251 134.6586,52.9148 134.6623,52.9076 134.6676,52.9001 134.6760,52.8905 134.6893,52.8783 134.6920,52.8744 134.6920,52.8709 134.6873,52.8685 134.6799,52.8673 134.6512,52.8677 134.6428,52.8669 134.6357,52.8644 134.6305,52.8561 134.6280,52.8424 134.6289,52.8139 134.6313,52.8006 134.6348,52.7914 134.6385,52.7870 134.6438,52.7833 134.6506,52.7800 134.7059,52.7662 134.7101,52.7640 134.7116,52.7609 134.7073,52.7584 134.6602,52.7409 134.6561,52.7367 134.6565,52.7301 134.6580,52.7243 134.6614,52.7191 134.6666,52.7154 134.6751,52.7132 134.6846,52.7121 134.7478,52.7130 134.7545,52.7110 134.7579,52.7054 134.7585,52.6951 134.7608,52.6818 134.7635,52.6771 134.7672,52.6728 134.7717,52.6686 134.7822,52.6608 134.7839,52.6547 134.7824,52.6471 134.7694,52.6330 134.7608,52.6256 134.7415,52.6126 134.7351,52.6098 134.7267,52.6091 134.7178,52.6095 134.7072,52.6075 134.6969,52.6022 134.6828,52.5889 134.6652,52.5777 134.6586,52.5751 134.6511,52.5687 134.6435,52.5594 134.6215,52.5203 134.6199,52.5125 134.6220,52.5002 134.6260,52.4932 134.6320,52.4881 134.6567,52.4799 134.6612,52.4759 134.6626,52.4709 134.6618,52.4642 134.6593,52.4566 134.6480,52.4380 134.6347,52.4270 134.6057,52.4176 134.5803,52.4202 134.5447,52.4197 134.5361,52.4216 134.5222,52.4277 134.5052,52.4382 134.4967,52.4424 134.4829,52.4474 134.4643,52.4517 134.3133,52.4594 134.2940,52.4630 134.2239,52.4888 134.2037,52.4920 134.1856,52.4918 134.1306,52.4837 134.1164,52.4844 134.1055,52.4864 134.0990,52.4896 134.0910,52.4922 134.0659,52.4963 134.0601,52.4982 134.0573,52.4994 134.0560,52.5002 134.0081,52.5367 134.0031,52.5392 133.8939,52.5183 133.8750,52.5197 133.8663,52.5219 133.8598,52.5251 133.8558,52.5293 133.8529,52.5338 133.8484,52.5435 133.8455,52.5482 133.8403,52.5518 133.8329,52.5542 133.8242,52.5550 133.7994,52.5522 133.6587,52.5716 133.6538,52.5733 133.6482,52.5761 133.6261,52.5960 133.6070,52.6060 133.5648,52.6192 133.5261,52.6258 133.5092,52.6307 133.5038,52.6337 133.5008,52.6370 133.4995,52.6399 133.4980,52.6441 133.4947,52.6481 133.4876,52.6505 133.4789,52.6514 133.4328,52.6511 133.4237,52.6524 133.4163,52.6551 133.4116,52.6589 133.3986,52.6712 133.3930,52.6748 133.3862,52.6780 133.3694,52.6830 133.3596,52.6845 133.3500,52.6849 133.3322,52.6841 133.3213,52.6818 133.3053,52.6760 133.2795,52.6639 133.2532,52.6457 133.2426,52.6350 133.2400,52.6276 133.2437,52.6175 133.2467,52.6129 133.2492,52.6082 133.2504,52.6030 133.2504,52.5975 133.2492,52.5914 133.2467,52.5852 133.2405,52.5730 133.2384,52.5669 133.2387,52.5615 133.2431,52.5575 133.2502,52.5544 133.2663,52.5489 133.2722,52.5455 133.2770,52.5414 133.2807,52.5372 133.2836,52.5326 133.2857,52.5277 133.2864,52.5222 133.2864,52.5165 133.2841,52.4991 133.2816,52.4925 133.2783,52.4874 133.2647,52.4731 133.2527,52.4630 133.2462,52.4556 133.2462,52.4501 133.2493,52.4455 133.2595,52.4379 133.2715,52.4311 133.3214,52.4118 133.3254,52.4078 133.3257,52.4023 133.3124,52.3712 133.3111,52.3652 133.3112,52.3595 133.3129,52.3545 133.3161,52.3500 133.3202,52.3458 133.3247,52.3418 133.3303,52.3382 133.3371,52.3349 133.4096,52.3105 133.4219,52.3036 133.4303,52.2954 133.4331,52.2908 133.4352,52.2860 133.4361,52.2807 133.4364,52.2697 133.4347,52.2641 133.4312,52.2592 133.4262,52.2550 133.4204,52.2514 133.3700,52.2262 133.3590,52.2175 133.3513,52.2100 133.3401,52.2039 133.3217,52.1983 133.2155,52.1819 133.2037,52.1757 133.1962,52.1707 133.1885,52.1668 133.1801,52.1653 133.1681,52.1669 133.1440,52.1745 133.1347,52.1734 133.1233,52.1706 133.1061,52.1645 133.0907,52.1633 133.0799,52.1645 133.0721,52.1674 133.0623,52.1685 133.0483,52.1666 133.0221,52.1582 133.0068,52.1547 132.9911,52.1551 132.9712,52.1593 132.9599,52.1600 132.9279,52.1559 132.9169,52.1568 132.9070,52.1586 132.8341,52.1793 132.8289,52.1778 132.8268,52.1737 132.8270,52.1693 132.8252,52.1644 132.8212,52.1602 132.8160,52.1563 132.8041,52.1497 132.7931,52.1420 132.7881,52.1377 132.7763,52.1323 132.6680,52.1020 132.6553,52.0932 132.6491,52.0871 132.6414,52.0824 132.6297,52.0820 132.6095,52.0846 132.5996,52.0840 132.5898,52.0815 132.5791,52.0742 132.5665,52.0632 132.5504,52.0516 132.5457,52.0473 132.5418,52.0422 132.5396,52.0364 132.5364,52.0239 132.5341,51.9980 132.5251,51.9630 132.5222,51.9571 132.5169,51.9530 132.5093,51.9513 132.4980,51.9531 132.4894,51.9558 132.4756,51.9626 132.4610,51.9681 132.4517,51.9697 132.4235,51.9696 132.4139,51.9676 132.4037,51.9634 132.3985,51.9562 132.3978,51.9504 132.3990,51.9448 132.4098,51.9147 132.4109,51.9095 132.4126,51.9045 132.4254,51.8809 132.4292,51.8716 132.4288,51.8672 132.4273,51.8639 132.4235,51.8599 132.3343,51.8249 132.3190,51.8169 132.3034,51.8047 132.2919,51.7977 132.2855,51.7949 132.2787,51.7930 132.2696,51.7947 132.2555,51.8009 132.2391,51.8118 132.2326,51.8150 132.2244,51.8167 132.2157,51.8168 132.1379,51.7955 132.1249,51.7898 132.1162,51.7841 132.1124,51.7787 132.1081,51.7737 132.1015,51.7698 132.0926,51.7683 132.0784,51.7705 132.0719,51.7746 132.0688,51.7799 132.0675,51.7908 132.0658,51.7960 132.0624,51.8001 132.0567,51.8025 132.0493,51.8023 132.0236,51.7855 131.9989,51.7755 131.9926,51.7712 131.9877,51.7659 131.9736,51.7430 131.9680,51.7386 131.9592,51.7367 131.9228,51.7387 131.9132,51.7406 131.9069,51.7439 131.8964,51.7511 131.8906,51.7542 131.8838,51.7561 131.8740,51.7564 131.8639,51.7546 131.8531,51.7478 131.8469,51.7416 131.8383,51.7300 131.8333,51.7256 131.8274,51.7223 131.7995,51.7133 131.7801,51.7049 131.7457,51.6841 131.7278,51.6811 131.5703,51.6713 131.4309,51.6883 131.4096,51.6813 131.4174,51.6728 131.4266,51.6651 131.4296,51.6604 131.4291,51.6539 131.4253,51.6458 131.4156,51.6340 131.4028,51.6209 131.3984,51.6145 131.3950,51.6070 131.3936,51.5940 131.3959,51.5867 131.3995,51.5809 131.4035,51.5767 131.4066,51.5721 131.4078,51.5669 131.4074,51.5552 131.4088,51.5501 131.4106,51.5451 131.4134,51.5404 131.4183,51.5366 131.4242,51.5331 131.4449,51.5256 131.4479,51.5235 131.4498,51.5199 131.4502,51.5159 131.4502,51.5127 131.4482,51.4999 131.4483,51.4986 131.4490,51.4957 131.4514,51.4919 131.4558,51.4882 131.4622,51.4850 131.4774,51.4794 131.4838,51.4761 131.4873,51.4719 131.4950,51.4462 131.5067,51.3819 131.5070,51.3761 131.5059,51.3700 131.5040,51.3638 131.5005,51.3573 131.4974,51.3529 131.4932,51.3484 131.4884,51.3446 131.4805,51.3418 131.4707,51.3399 131.4547,51.3398 131.4445,51.3412 131.4358,51.3437 131.4294,51.3468 131.3888,51.3712 131.3821,51.3743 131.3740,51.3766 131.3520,51.3774 131.3295,51.3760 131.2898,51.3639 131.2706,51.3502 131.2385,51.3193 131.2090,51.2713 131.1908,51.2558 131.1852,51.2522 131.1769,51.2490 131.1691,51.2487 131.1352,51.2569 131.1165,51.2587 131.1003,51.2565 131.0649,51.2457 131.0605,51.2430 131.0559,51.2392 131.0518,51.2327 131.0482,51.2246 131.0457,51.2108 131.0443,51.1896 131.0410,51.1842 131.0339,51.1788 131.0209,51.1712 131.0010,51.1572 130.9946,51.1511 130.9911,51.1455 130.9880,51.1385 130.9868,51.1280 130.9871,51.1210 130.9862,51.1138 130.9831,51.1072 130.9655,51.0854 130.9394,51.0413 130.9336,51.0341 130.9262,51.0274 130.9187,51.0243 130.8705,51.0166 130.8525,51.0164 130.8241,51.0197 130.8156,51.0195 130.8089,51.0172 130.8030,51.0138 130.7937,51.0057 130.7891,51.0007 130.7881,50.9999 130.7823,50.9931 130.7706,50.9686 130.7684,50.9620 130.7668,50.9551 130.7674,50.9487 130.7718,50.9425 130.7794,50.9401 130.8048,50.9380 130.8104,50.9350 130.8142,50.9310 130.8255,50.9067 130.8345,50.8938 130.8390,50.8855 130.8407,50.8809 130.8398,50.8759 130.8334,50.8706 130.8265,50.8673 130.8181,50.8658 130.8092,50.8656 130.8009,50.8645 130.7949,50.8614 130.7898,50.8574 130.7851,50.8530 130.7476,50.8092 130.7446,50.8027 130.7421,50.7954 130.7418,50.7841 130.7375,50.7787 130.7315,50.7752 130.7170,50.7714 130.7108,50.7677 130.7051,50.7631 130.6885,50.7456 130.6848,50.7400 130.6827,50.7337 130.6833,50.7256 130.6892,50.7192 130.7002,50.7103 130.7023,50.7055 130.6983,50.6976 130.6928,50.6933 130.6861,50.6904 130.6653,50.6845 130.6594,50.6813 130.6539,50.6777 130.6494,50.6734 130.6461,50.6684 130.6449,50.6627 130.6451,50.6573 130.6541,50.6479 130.6621,50.6409 130.7284,50.5977 130.7369,50.6039 130.7396,50.6082 130.7427,50.6143 130.7457,50.6269 130.7462,50.6444 130.7471,50.6504 130.7494,50.6566 130.7529,50.6619 130.7584,50.6654 130.7659,50.6662 130.7757,50.6641 130.8021,50.6547 130.8125,50.6535 130.8221,50.6535 130.8300,50.6546 130.8475,50.6555 130.8844,50.6538 130.8927,50.6544 130.8972,50.6581 130.8992,50.6632 130.9005,50.6683 130.9030,50.6719 130.9095,50.6727 130.9168,50.6713 130.9246,50.6689 130.9326,50.6657 130.9540,50.6500 131.0055,50.5843 131.0104,50.5752 131.0111,50.5681 131.0078,50.5631 131.0010,50.5545 130.9983,50.5522 130.9841,50.5418 130.9748,50.5331 130.9597,50.5123 130.9547,50.5080 130.9489,50.5051 130.8840,50.4880 130.8781,50.4848 130.8735,50.4805 130.8702,50.4751 130.8679,50.4689 130.8665,50.4627 130.8655,50.4565 130.8699,50.4496 130.8800,50.4428 130.9191,50.4274 130.9255,50.4203 130.9239,50.4150 130.9209,50.4092 130.9177,50.4042 130.9165,50.3986 130.9199,50.3930 130.9283,50.3880 130.9622,50.3809 130.9735,50.3802 130.9861,50.3812 130.9889,50.3818 130.9990,50.3871 131.0067,50.3925 131.0134,50.3982 131.0184,50.4037 131.0225,50.4094 131.0271,50.4140 131.0320,50.4172 131.0420,50.4206 131.0471,50.4214 131.0543,50.4216 131.0798,50.4187 131.0890,50.4200 131.1017,50.4242 131.1138,50.4296 131.1199,50.4310 131.1259,50.4304 131.1307,50.4245 131.1341,50.4193 131.1430,50.3934 131.1515,50.3796 131.1534,50.3750 131.1548,50.3704 131.1580,50.3454 131.1605,50.3407 131.1657,50.3366 131.1725,50.3338 131.1846,50.3335 131.1920,50.3362 131.1984,50.3398 131.2034,50.3439 131.2090,50.3474 131.2153,50.3501 131.2232,50.3513 131.2506,50.3509 131.2589,50.3518 131.2659,50.3539 131.2722,50.3566 131.2898,50.3661 131.2969,50.3653 131.3047,50.3604 131.3123,50.3448 131.3151,50.3355 131.3176,50.3165 131.3214,50.3008 131.3233,50.2785 131.3253,50.2688 131.3282,50.2643 131.3348,50.2592 131.3499,50.2527 131.3708,50.2466 131.3764,50.2417 131.3796,50.2321 131.3818,50.2184 131.3892,50.2073 131.4164,50.1922 131.4352,50.1891 131.4415,50.1862 131.4443,50.1817 131.4480,50.1718 131.4538,50.1626 131.4616,50.1542 131.4645,50.1498 131.4656,50.1455 131.4611,50.1408 131.4541,50.1388 131.4449,50.1384 131.4262,50.1391 131.4174,50.1387 131.4100,50.1371 131.4049,50.1335 131.4009,50.1284 131.3871,50.1060 131.3702,50.0868 131.3602,50.0790 131.3489,50.0722 131.3424,50.0696 131.3127,50.0637 131.3073,50.0606 131.3047,50.0563 131.3093,50.0382 131.3123,50.0320 131.3136,50.0264 131.3142,50.0203 131.3111,50.0119 131.3076,50.0061 131.3020,49.9997 131.3008,49.9985 131.2979,49.9949 131.2952,49.9898 131.2954,49.9823 131.3022,49.9747 131.3103,49.9721 131.3186,49.9719 131.3641,49.9804 131.3714,49.9809 131.3790,49.9795 131.3851,49.9766 131.3905,49.9731 131.3966,49.9698 131.4035,49.9669 131.4115,49.9647 131.4207,49.9635 131.4294,49.9634 131.4375,49.9641 131.4451,49.9641 131.4523,49.9623 131.4582,49.9595 131.4773,49.9475 131.4822,49.9413 131.4867,49.9329 131.4920,49.9175 131.4972,49.9104 131.4990,49.9052 131.4994,49.9008 131.4887,49.8825 131.4870,49.8768 131.4861,49.8686 131.4870,49.8324 131.4858,49.8227 131.4779,49.8027 131.4756,49.7942 131.4753,49.7864 131.4771,49.7761 131.4847,49.7589 131.4863,49.7539 131.4863,49.7476 131.4845,49.7412 131.4774,49.7329 131.4691,49.7300 131.4198,49.7241 131.3786,49.7252 131.3714,49.7243 131.3648,49.7221 131.3590,49.7189 131.3554,49.7126 131.3545,49.7037 131.3580,49.6889 131.3611,49.6806 131.3645,49.6740 131.3719,49.6656 131.3773,49.6621 131.3843,49.6593 131.3929,49.6580 131.4165,49.6582 131.4228,49.6561 131.4496,49.6445 131.4943,49.6173 131.4978,49.6139 131.4999,49.6113 131.5012,49.6038 131.5016,49.5923 131.4991,49.5673 131.4991,49.5461 131.4999,49.5405 131.4999,49.5279 131.4999,49.5270 131.4999,49.5268 131.4988,49.5154 131.4861,49.4627 131.4858,49.4508 131.4873,49.4431 131.4978,49.4315 131.4999,49.4287 131.4987,49.4218 131.4940,49.4114 131.3957,49.2436 131.3897,49.2477 131.3796,49.2496 131.3537,49.2503 131.3392,49.2471 131.3081,49.2366 131.3010,49.2378 131.2960,49.2410 131.2927,49.2451 131.2876,49.2478 131.2737,49.2488 131.2673,49.2504 131.2638,49.2542 131.2604,49.2583 131.2561,49.2614 131.2494,49.2620 131.2426,49.2607 131.2229,49.2537 131.2156,49.2521 131.1824,49.2499 131.1732,49.2468 131.1641,49.2411 131.1514,49.2284 131.1416,49.2121 131.1335,49.1864 131.1305,49.1806 131.1228,49.1704 131.0722,49.1255 131.0673,49.1200 131.0533,49.0976 131.0444,49.0877 131.0381,49.0836 131.0275,49.0796 131.0193,49.0745 131.0107,49.0649 131.0075,49.0575 131.0067,49.0510 131.0095,49.0464 131.0132,49.0422 131.0162,49.0377 131.0181,49.0327 131.0178,49.0269 131.0159,49.0207 131.0131,49.0148 130.9884,48.9784 130.9827,48.9722 130.9759,48.9690 130.9661,48.9664 130.9460,48.9660 130.9203,48.9682 130.9027,48.9723 130.8747,48.9836 130.8662,48.9856 130.8570,48.9867 130.8483,48.9868 130.8402,48.9861 130.8290,48.9834 130.7951,48.9711 130.7023,48.9375 130.6739,48.9242 130.6407,48.9016 130.6323,48.8921 130.6288,48.8825 130.6268,48.8745 130.6249,48.8743 130.5649,48.8559 130.5413,48.8535 130.5126,48.8555 130.4876,48.8637 130.4772,48.8795 130.4663,48.8913 130.4407,48.8965 130.4397,48.8965 130.4397,48.8965 130.3868,48.8963 130.3381,48.8853 130.2936,48.8701 130.2501,48.8646 130.2028,48.8826 130.1151,48.9303 130.0384,48.9720 129.9978,49.0024 129.9752,49.0151 129.9274,49.0257 129.9144,49.0395 129.9126,49.0593 129.9216,49.0819 129.8841,49.0998 129.8634,49.1065 129.8425,49.1092 129.8464,49.1541 129.8425,49.1672 129.8256,49.1742 129.7769,49.1776 129.7566,49.1843 129.7427,49.1957 129.7385,49.2055 129.7360,49.2389 129.7121,49.2742 129.6702,49.2792 129.6697,49.2791 129.6692,49.2792 129.6197,49.2743 129.5727,49.2798 129.5528,49.2905 129.5399,49.3037 129.5330,49.3215 129.5312,49.3693 129.5287,49.3848 129.5206,49.3971 129.5034,49.4108 129.4816,49.4213 129.4560,49.4273 129.4043,49.4307 129.4041,49.4306 129.4034,49.4307 129.3787,49.4250 129.3715,49.4106 129.3732,49.3699 129.3621,49.3498 129.3412,49.3413 129.3170,49.3441 129.2733,49.3753 129.2465,49.3859 129.2188,49.3908 129.2181,49.3908 129.2179,49.3908 129.1939,49.3897 129.1712,49.3803 129.1360,49.3541 129.1157,49.3489 129.0888,49.3521 129.0678,49.3616 129.0515,49.3767 129.0155,49.4311 128.9991,49.4413 128.9480,49.4495 128.9029,49.4717 128.8801,49.4797 128.8545,49.4805 128.8544,49.4805 128.8536,49.4805 128.8098,49.4687 128.7872,49.4655 128.7611,49.4709 128.7512,49.4845 128.7551,49.5025 128.7703,49.5207 128.7802,49.5251 128.7914,49.5271 128.8005,49.5319 128.8044,49.5443 128.8042,49.5552 128.8026,49.5651 128.7979,49.5725 128.7875,49.5753 128.7605,49.5778 128.7351,49.5844 128.6877,49.6032 128.6728,49.6114 128.6722,49.6112 128.6719,49.6114 128.6662,49.6095 128.6352,49.5782 128.6289,49.5754 128.5522,49.5884 128.5515,49.5884 128.5513,49.5884 128.3835,49.5794 128.3720,49.5753 128.3650,49.5697 128.3528,49.5545 128.3448,49.5480 128.3210,49.5449 128.2688,49.5588 128.2684,49.5586 128.2679,49.5588 128.2454,49.5514 128.2251,49.5418 128.1985,49.5390 128.0934,49.5416 128.0681,49.5467 128.0478,49.5583 128.0134,49.5874 127.9925,49.5987 127.9689,49.6032 127.9680,49.6032 127.9679,49.6032 127.9555,49.6030 127.9479,49.6012 127.9408,49.5959 127.9302,49.5852 127.9207,49.5811 127.9079,49.5803 127.8556,49.5849 127.8318,49.5939 127.8106,49.6071 127.7909,49.6231 127.7710,49.6339 127.7230,49.6486 127.7046,49.6606 127.6909,49.6815 127.6879,49.6989 127.6872,49.7168 127.6809,49.7392 127.6452,49.7671 127.5396,49.7899 127.5091,49.8223 127.5077,49.8443 127.5126,49.8691 127.5218,49.8918 127.5332,49.9077 127.5350,49.9225 127.5226,49.9412 127.4954,49.9732 127.4876,50.0256 127.5076,50.0635 127.5711,50.1302 127.5816,50.1491 127.5877,50.1672 127.5908,50.1864 127.5916,50.2087 127.5793,50.2206 127.4058,50.2760 127.3556,50.2986 127.3316,50.3282 127.3328,50.3402 127.3385,50.3527 127.3467,50.3644 127.3557,50.3735 127.3597,50.3813 127.3606,50.3929 127.3595,50.4151 127.3501,50.4262 127.3056,50.4514 127.2899,50.4660 127.3036,50.4776 127.3112,50.4884 127.3246,50.5138 127.3347,50.5250 127.3578,50.5446 127.3658,50.5547 127.3680,50.5778 127.3597,50.6050 127.3449,50.6278 127.3280,50.6373 127.2959,50.6664 127.2899,50.6752 127.2880,50.6820 127.2848,50.6883 127.2832,50.6948 127.2868,50.7025 127.2908,50.7084 127.2942,50.7154 127.2965,50.7228 127.2974,50.7301 127.2883,50.7510 127.2672,50.7641 127.2421,50.7747 127.2217,50.7882 127.1452,50.9035 127.1117,50.9315 127.0481,50.9672 127.0333,50.9724 126.9821,51.0277 126.9474,51.0483 126.9327,51.0638 126.9268,51.0860 126.9239,51.1079 126.9105,51.1460 126.9064,51.1643 126.9048,51.1934 126.9061,51.2081 126.9099,51.2216 126.9173,51.2328 126.9481,51.2581 126.9689,51.2815 126.9787,51.2966 126.9821,51.3089 126.9731,51.3240 126.9556,51.3296 126.9547,51.3295 126.9546,51.3296 126.9345,51.3288 126.9173,51.3247 126.9083,51.3212 126.8994,51.3165 126.8914,51.3105 126.8853,51.3029 126.8848,51.2956 126.8892,51.2893 126.8929,51.2820 126.8907,51.2715 126.8699,51.2517 126.8468,51.2515 126.8247,51.2656 126.8099,51.2891 126.8083,51.3081 126.8151,51.3249 126.8280,51.3390 126.8444,51.3494 126.8618,51.3539 126.8812,51.3562 126.8985,51.3620 126.9099,51.3770 126.9104,51.3911 126.9029,51.4010 126.8911,51.4070 126.8778,51.4099 126.8269,51.4121 126.8013,51.4190 126.7902,51.4358 126.7937,51.4591 126.8025,51.4772 126.8313,51.5081 126.8084,51.5342 126.7766,51.5458 126.7015,51.5627 126.6778,51.5766 126.6761,51.5884 126.7049,51.6136 126.7247,51.6359 126.7255,51.6496 126.7167,51.6632 126.7083,51.6856 126.7117,51.6860 126.7188,51.6909 126.7258,51.6975 126.7289,51.7030 126.7265,51.7087 126.7167,51.7175 126.7145,51.7232 126.6634,51.7334 126.6489,51.7413 126.4470,51.9825 126.4402,51.9979 126.4483,52.0188 126.4680,52.0317 126.4925,52.0388 126.5154,52.0425 126.5154,52.0487 126.5208,52.0613 126.5523,52.1130 126.5569,52.1306 126.5321,52.1527 126.4948,52.1613 126.4542,52.1656 126.3517,52.1917 126.3338,52.1934 126.3177,52.1998 126.3103,52.2139 126.3132,52.2280 126.3930,52.2644 126.4402,52.2753 126.4222,52.2873 126.3454,52.3026 126.3167,52.3162 126.3453,52.3576 126.3517,52.3769 126.3446,52.3914 126.3136,52.4174 126.2971,52.4352 126.2899,52.4500 126.2769,52.4633 126.2477,52.4658 126.2471,52.4658 126.2468,52.4658 126.2175,52.4648 126.2013,52.4671 126.2016,52.4865 126.2114,52.5114 126.2133,52.5330 126.1713,52.5476 126.0837,52.5934 126.0696,52.5953 126.0695,52.5952 126.0686,52.5953 126.0625,52.5872 126.0591,52.5755 126.0508,52.5712 126.0395,52.5697 126.0283,52.5665 126.0102,52.5684 125.9918,52.5864 125.9783,52.6108 125.9741,52.6316 125.9837,52.6530 126.0035,52.6655 126.0286,52.6712 126.0536,52.6725 126.0696,52.6799 126.0629,52.6966 126.0361,52.7271 126.0500,52.7371 126.0670,52.7442 126.1050,52.7545 126.0890,52.7754 126.0677,52.7832 126.0667,52.7832 126.0667,52.7832 126.0178,52.7824 126.0075,52.7787 125.9853,52.7646 125.9779,52.7650 125.8684,52.8494 125.8620,52.8560 125.8579,52.8643 125.8585,52.8744 125.8628,52.8815 125.8647,52.8886 125.8579,52.8990 125.8383,52.9067 125.8376,52.9066 125.8374,52.9067 125.7365,52.8958 125.6917,52.8813 125.6693,52.8781 125.6474,52.8849 125.6480,52.9009 125.6619,52.9194 125.6798,52.9332 125.6895,52.9365 125.7120,52.9412 125.7208,52.9463 125.7252,52.9528 125.7345,52.9817 125.6796,53.0057 125.6511,53.0234 125.6389,53.0461 125.6223,53.0621 125.6214,53.0621 125.6214,53.0621 125.5840,53.0589 125.5219,53.0426 125.5005,53.0506 125.4775,53.0835 125.4574,53.0909 125.4290,53.0947 125.1284,53.2065 125.0746,53.2122 125.0739,53.2122 125.0737,53.2122 125.0194,53.2107 124.9192,53.1939 124.8977,53.1855 124.8804,53.1725 124.8792,53.1539 124.8918,53.1343 124.8962,53.1177 124.8705,53.1081 124.8491,53.1137 124.8230,53.1472 124.8023,53.1552 124.8016,53.1551 124.8014,53.1552 124.7475,53.1477 124.7211,53.1488 124.6992,53.1626 124.6965,53.1698 124.6978,53.1763 124.6974,53.1838 124.6892,53.1936 124.6796,53.1993 124.6525,53.2088 124.6412,53.2103 124.6402,53.2103 124.5291,53.2103 124.5014,53.2137 124.4549,53.2282 124.4092,53.2357 124.3847,53.2461 124.3609,53.2595 124.3435,53.2725 124.3268,53.3060 124.3223,53.3098 124.3057,53.3290 124.2944,53.3513 124.2763,53.3647 124.2540,53.3755 124.2337,53.3817 124.2097,53.3827 124.2095,53.3827 124.2088,53.3827 124.1822,53.3786 124.1578,53.3700 124.1403,53.3578 124.1224,53.3529 124.1012,53.3634 124.0698,53.3896 124.0566,53.3949 124.0309,53.3999 124.0183,53.4070 124.0110,53.4147 123.9907,53.4415 123.9715,53.4552 123.8775,53.4887 123.8511,53.4950 123.7331,53.5038 123.7027,53.5101 123.6787,53.5200 123.6405,53.5513 123.6152,53.5633 123.6146,53.5632 123.6143,53.5633 123.5919,53.5579 123.5609,53.5242 123.5422,53.5143 123.5205,53.5200 123.5335,53.5325 123.5403,53.5370 123.5484,53.5405 123.5362,53.5546 123.5154,53.5624 123.5146,53.5623 123.5144,53.5624 123.4948,53.5601 123.4861,53.5439 123.4855,53.5260 123.4816,53.5182 123.4724,53.5190 123.4326,53.5358 123.4209,53.5385 123.3812,53.5428 123.3687,53.5458 123.3412,53.5614 123.3105,53.5675 123.2783,53.5694 123.2778,53.5694 123.2773,53.5694 123.2526,53.5678 123.2347,53.5603 123.2033,53.5383 123.1801,53.5305 123.1642,53.5164 123.1536,53.5131 123.0025,53.5073 122.8597,53.4739 122.4712,53.4647 122.4252,53.4524 122.4024,53.4510 122.3806,53.4616 122.3590,53.4796 122.3388,53.4913 122.3177,53.4960 122.3171,53.4959 122.3168,53.4960 122.2937,53.4927 122.2257,53.4739 122.1687,53.4691 122.1478,53.4611 122.1081,53.4381 122.0816,53.4295 121.8899,53.4306 121.8899,53.4306 121.8890,53.4306 121.6410,53.3849 121.5121,53.3298 121.4588,53.3204 121.4133,53.3173 121.4065,53.3169 121.3586,53.3241 121.3578,53.3240 121.3576,53.3241 121.3410,53.3236 121.3283,53.3200 121.3000,53.3025 121.2536,53.2869 121.2035,53.2767 121.1526,53.2745 121.0558,53.2900 121.0551,53.2900 121.0549,53.2900 120.8743,53.2802 120.8457,53.2734 120.8260,53.2619 120.8304,53.2448 120.8239,53.2352 120.7513,53.2069 120.7141,53.1850 120.6522,53.1228 120.6148,53.0971 120.5276,53.0558 120.4503,53.0083 120.3919,52.9568 120.3620,52.9394 120.3541,52.9332 120.3466,52.9235 120.3424,52.9154 120.3372,52.9077 120.3267,52.8990 120.3024,52.8912 120.2907,52.8854 120.2857,52.8749 120.2802,52.8659 120.2672,52.8581 120.2525,52.8527 120.2196,52.8449 120.1774,52.8179 120.1560,52.8091 120.0658,52.7832 120.0330,52.7607 120.0461,52.7340 120.0440,52.7235 120.0516,52.7046 120.0529,52.6930 120.0366,52.6681 120.0326,52.6589 120.0301,52.6394 120.0338,52.6254 120.0427,52.6135 120.0564,52.6005 120.0794,52.5900 120.1129,52.5845 120.1760,52.5837 120.1760,52.5838 120.1769,52.5837 120.1991,52.5891 120.2430,52.6072 120.2621,52.6111 120.3686,52.6173 120.3904,52.6222 120.4309,52.6361 120.4543,52.6390 120.4642,52.6360 120.4918,52.6173 120.5396,52.6037 120.6087,52.5740 120.6545,52.5670 120.7074,52.5503 120.7240,52.5422 120.7081,52.5181 120.7048,52.5092 120.7041,52.4978 120.7020,52.4888 120.6926,52.4746 120.6904,52.4702 120.6904,52.4391 120.6814,52.4230 120.6604,52.3988 120.6562,52.3814 120.6522,52.3725 120.6432,52.3663 120.6334,52.3617 120.6284,52.3579 120.6262,52.3468 120.6291,52.3409 120.6334,52.3355 120.6358,52.3262 120.6549,52.2991 120.7390,52.2566 120.7581,52.2374 120.7571,52.2279 120.7523,52.2119 120.7513,52.2030 120.7537,52.1945 120.7667,52.1796 120.7718,52.1716 120.7774,52.1650 120.7832,52.1620 120.7841,52.1580 120.7756,52.1484 120.7713,52.1410 120.7713,52.1325 120.7743,52.1243 120.7792,52.1176 120.7667,52.1084 120.7531,52.0863 120.7451,52.0767 120.7320,52.0702 120.7180,52.0665 120.7056,52.0610 120.6973,52.0487 120.6964,52.0345 120.7011,52.0229 120.7075,52.0124 120.7116,52.0016 120.7109,51.9883 120.7058,51.9800 120.6835,51.9593 120.6621,51.9250 120.6476,51.9110 120.6251,51.9054 120.5796,51.9077 120.5794,51.9076 120.5786,51.9077 120.5663,51.9053 120.5561,51.8984 120.5494,51.8905 120.5411,51.8830 120.5266,51.8774 120.5124,51.8762 120.5030,51.8772 120.5027,51.8772 120.5021,51.8772 120.4931,51.8757 120.4809,51.8669 120.4759,51.8591 120.4715,51.8490 120.4648,51.8402 120.4540,51.8364 120.4276,51.8337 120.4083,51.8261 120.3744,51.8023 120.3193,51.7760 120.1815,51.6830 120.1656,51.6686 120.1540,51.6641 120.1233,51.6672 120.1229,51.6671 120.1224,51.6672 120.1082,51.6652 120.1005,51.6599 120.0859,51.6444 120.0649,51.6149 120.0567,51.5964 120.0535,51.5770 120.0529,51.5522 120.0422,51.5385 119.9922,51.5033 119.9772,51.4870 119.9742,51.4642 119.9806,51.4527 119.9827,51.4422 119.9673,51.4218 119.9600,51.4123 119.9568,51.4045 119.9529,51.3977 119.9430,51.3908 119.8953,51.3840 119.9002,51.3703 119.9127,51.3496 119.9157,51.3307 119.8919,51.3226 119.8833,51.3180 119.8606,51.2890 119.8506,51.2843 119.8288,51.2797 119.8196,51.2747 119.8162,51.2690 119.8059,51.2440 119.8094,51.2326 119.8148,51.2227 119.8150,51.2159 119.8029,51.2134 119.7733,51.2185 119.7729,51.2184 119.7723,51.2185 119.7622,51.2150 119.7581,51.1990 119.7854,51.1717 119.7728,51.1627 119.7671,51.1597 119.7581,51.1580 119.7652,51.1424 119.7617,51.1282 119.7546,51.1143 119.7507,51.1000 119.7483,51.0834 119.7408,51.0715 119.7284,51.0645 119.7104,51.0625 119.7102,51.0385 119.6832,51.0161 119.6043,50.9782 119.5940,50.9696 119.5732,50.9458 119.5180,50.9048 119.5300,50.8871 119.5280,50.8668 119.5158,50.8481 119.4975,50.8359 119.5141,50.8134 119.5149,50.7919 119.5049,50.7506 119.4967,50.7371 119.4573,50.6963 119.4428,50.6851 119.4178,50.6763 119.4039,50.6732 119.3917,50.6721 119.3831,50.6666 119.3737,50.6427 119.3644,50.6373 119.3490,50.6347 119.3412,50.6281 119.3353,50.6192 119.3261,50.6100 119.3139,50.6046 119.3031,50.6028 119.2936,50.5992 119.2853,50.5889 119.2865,50.5777 119.2646,50.5200 119.2606,50.5141 119.2544,50.5095 119.2509,50.5045 119.2545,50.4970 119.2592,50.4932 119.2624,50.4920 119.2640,50.4896 119.2646,50.4828 119.2612,50.4792 119.2437,50.4455 119.2162,50.4249 119.2068,50.4151 119.1986,50.4131 119.1686,50.4141 119.1685,50.4141 119.1677,50.4141 119.1549,50.4114 119.1467,50.4043 119.1376,50.3925 119.1335,50.3815 119.1412,50.3766 119.1719,50.3757 119.1805,50.3698 119.1753,50.3561 119.1879,50.3547 119.1885,50.3547 119.1889,50.3547 119.2142,50.3565 119.2237,50.3561 119.2330,50.3527 119.2464,50.3442 119.2508,50.3425 119.2515,50.3426 119.2517,50.3425 119.3149,50.3517 119.3336,50.3499 119.3529,50.3455 119.3566,50.3408 119.3640,50.3195 119.3655,50.3108 119.3625,50.3042 119.3504,50.3015 119.3385,50.2940 119.3338,50.2763 119.3316,50.2173 119.3341,50.2111 119.3436,50.2022 119.3473,50.1951 119.3483,50.1846 119.3440,50.1424 119.3378,50.1241 119.3286,50.1081 119.3162,50.0927 119.3013,50.0798 119.2510,50.0483 119.2233,50.0250 119.2085,50.0151 119.1896,50.0073 119.0917,49.9866 118.9910,49.9794 118.9635,49.9820 118.9488,49.9852 118.9367,49.9896 118.9247,49.9916 118.9244,49.9915 118.9238,49.9916 118.9129,49.9877 118.9025,49.9821 118.8914,49.9793 118.7916,49.9664 118.7415,49.9531 118.7136,49.9495 118.6715,49.9621 118.6710,49.9619 118.6706,49.9621 118.6444,49.9546 118.6000,49.9310 118.5706,49.9207 118.5546,49.9098 118.5213,49.8941 118.4980,49.8767 118.4908,49.8695 118.4864,49.8607 118.4811,49.8424 118.4770,49.8360 118.4558,49.8286 118.3937,49.8200 118.3809,49.8115 118.3730,49.7863 118.3536,49.7764 118.3287,49.7730 118.3052,49.7671 118.2417,49.7292 118.2304,49.7292 118.2304,49.7292 118.2294,49.7292 118.2234,49.7121 118.2082,49.6954 118.1885,49.6813 118.1686,49.6715 118.1064,49.6518 118.0892,49.6401 118.0713,49.6251 118.0549,49.6140 118.0171,49.5958 117.9307,49.5673 117.9047,49.5527 117.8938,49.5466 117.8738,49.5132 117.8409,49.5096 117.8373,49.5091 117.8329,49.5098 117.8236,49.5103 117.8167,49.5120 117.8045,49.5189 117.7960,49.5191 117.7959,49.5191 117.7950,49.5191 117.7774,49.5128 117.7693,49.5111 117.7598,49.5127 117.4738,49.6143 117.2539,49.6225 117.0585,49.6729 117.0515,49.6756 116.7233,49.8017 116.6852,49.8233 116.6543,49.8638 116.6182,49.8973 116.5764,49.9218 116.3015,49.9930 116.2186,50.0138 116.1363,50.0144 116.1363,50.0144 116.1354,50.0144 116.0536,49.9984 115.7509,49.8850 115.7163,49.8778 115.6843,49.8777 115.5791,49.8936 115.5786,49.8936 115.5782,49.8936 115.5086,49.8868 115.4739,49.8871 115.4511,49.8914 115.4502,49.8914 115.4501,49.8914 115.3887,49.8911 115.3697,49.8954 115.2111,49.9717 115.0643,50.0775 115.0506,50.0908 115.0290,50.1199 115.0162,50.1329 114.9983,50.1443 114.7547,50.2362 114.6607,50.2514 114.6600,50.2513 114.6597,50.2514 114.4736,50.2341 114.4259,50.2418 114.3340,50.2723 114.2872,50.2769 114.2870,50.2768 114.2863,50.2769 114.2001,50.2562 114.1182,50.2244 114.0553,50.1838 114.0351,50.1769 113.9933,50.1687 113.9731,50.1605 113.8498,50.0807 113.8368,50.0769 113.8168,50.0769 113.7741,50.0816 113.7737,50.0816 113.7731,50.0816 113.7523,50.0786 113.5797,50.0199 113.5279,49.9928 113.5104,49.9810 113.4585,49.9573 113.4423,49.9460 113.4155,49.9224 113.2124,49.8220 113.1827,49.8020 113.1567,49.7774 113.0875,49.6874 113.0772,49.6690 113.0742,49.6534 113.0716,49.6177 113.0608,49.5960 113.0437,49.5886 112.9928,49.5872 112.9698,49.5830 112.9473,49.5761 112.9262,49.5665 112.8681,49.5317 112.7771,49.5014 112.7337,49.4928 112.7022,49.4913 112.6723,49.4959 112.5852,49.5263 112.4742,49.5341 112.4739,49.5341 112.4733,49.5341 112.4322,49.5292 112.1264,49.4399 112.0302,49.4119 111.6610,49.3964 111.6165,49.3864 111.5035,49.3471 111.4791,49.3433 111.4554,49.3431 111.4306,49.3464 111.3860,49.3623 111.3637,49.3676 111.3631,49.3676 111.3627,49.3676 111.3385,49.3647 111.3210,49.3553 111.2917,49.3308 111.2735,49.3228 111.1386,49.2916 110.9656,49.2074 110.8410,49.1624 110.7314,49.1377 110.6884,49.1346 110.6459,49.1367 110.6046,49.1453 110.5092,49.1843 110.4522,49.1946 110.4342,49.2026 110.3832,49.2400 110.3721,49.2417 110.3720,49.2416 110.3712,49.2417 110.3610,49.2346 110.3454,49.2206 110.3094,49.1959 110.2683,49.1771 110.2250,49.1654 110.1821,49.1620 109.9141,49.2137 109.8331,49.2269 109.8187,49.2277 109.7859,49.2514 109.7295,49.2665 109.7287,49.2664 109.7285,49.2665 109.5170,49.2559 109.4928,49.2628 109.4753,49.2691 109.4708,49.2766 109.4667,49.2945 109.4630,49.3005 109.4517,49.3059 109.4508,49.3059 109.4507,49.3059 109.4120,49.3032 109.3919,49.3093 109.3373,49.3233 109.3129,49.3325 109.2876,49.3385 109.1616,49.3467 109.1613,49.3466 109.1606,49.3467 109.0580,49.3291 109.0337,49.3279 108.9314,49.3488 108.9308,49.3488 108.9305,49.3488 108.8590,49.3406 108.7520,49.3412 108.7520,49.3412 108.7511,49.3412 108.6087,49.3237 108.5709,49.3257 108.5390,49.3274 108.4746,49.3564 108.3358,49.4364 108.2781,49.4825 108.2682,49.4958 108.2605,49.5096 108.2515,49.5224 108.2373,49.5325 108.2109,49.5402 108.1274,49.5472 108.1071,49.5543 108.0336,49.5893 108.0167,49.6022 108.0062,49.6178 108.0085,49.6336 108.0168,49.6557 108.0037,49.6632 108.0029,49.6631 108.0028,49.6632 107.9635,49.6611 107.9404,49.6632 107.9284,49.6700 107.9278,49.6829 107.9503,49.7206 107.9558,49.7328 107.9567,49.7455 107.9510,49.7825 107.9333,49.8303 107.9310,49.8514 107.9365,49.8666 107.9453,49.8804 107.9536,49.8975 107.9574,49.9234 107.9475,49.9335 107.8992,49.9355 107.8519,49.9460 107.8401,49.9466 107.8398,49.9465 107.8392,49.9466 107.8086,49.9439 107.7879,49.9482 107.7598,49.9616 107.7466,49.9670 107.7457,49.9673 107.7448,49.9676 107.7448,49.9676 107.7535,49.9794 107.7919,50.0199 107.7955,50.0257 107.7971,50.0337 107.7977,50.0396 107.7975,50.0476 107.7981,50.0525 107.7981,50.0576 107.8011,50.0807 107.8011,50.0861 107.7993,50.0908 107.7953,50.0944 107.7702,50.1021 107.7646,50.1056 107.7631,50.1105 107.7631,50.1160 107.7697,50.1472 107.7724,50.1521 107.7770,50.1566 107.8012,50.1654 107.8073,50.1693 107.8126,50.1744 107.8160,50.1821 107.8167,50.1883 107.8160,50.1938 107.8170,50.1987 107.8209,50.2032 107.8418,50.2097 107.8509,50.2111 107.8588,50.2112 107.8661,50.2098 107.8724,50.2070 107.8869,50.1962 107.8931,50.1947 107.8996,50.1965 107.9064,50.2000 107.9263,50.2148 107.9309,50.2209 107.9346,50.2286 107.9368,50.2536 107.9476,50.2766 107.9806,50.2976 107.9887,50.3108 107.9890,50.3165 107.9881,50.3272 107.9882,50.3315 107.9902,50.3348 108.0141,50.3348 108.0216,50.3357 108.0580,50.3465 108.0707,50.3459 108.0753,50.3423 108.0769,50.3369 108.0793,50.3323 108.0846,50.3286 108.1153,50.3177 108.1234,50.3169 108.1317,50.3182 108.1388,50.3244 108.1435,50.3305 108.1468,50.3371 108.1490,50.3433 108.1544,50.3505 108.1624,50.3584 108.1798,50.3690 108.1852,50.3759 108.1861,50.3816 108.1839,50.3864 108.1827,50.3913 108.1834,50.3963 108.1870,50.4010 108.1918,50.4050 108.2010,50.4083 108.2135,50.4108 108.2369,50.4127 108.2645,50.4116 108.3152,50.4027 108.3299,50.4048 108.3501,50.4105 108.4011,50.4321 108.4123,50.4390 108.4174,50.4442 108.4214,50.4497 108.4261,50.4546 108.4322,50.4581 108.4396,50.4597 108.4505,50.4576 108.4675,50.4522 108.4759,50.4503 108.4843,50.4498 108.5536,50.4651 108.5712,50.4669 108.5829,50.4657 108.5925,50.4583 108.5977,50.4551 108.6047,50.4538 108.6130,50.4545 108.6404,50.4603 108.6498,50.4656 108.6601,50.4751 108.6758,50.4947 108.6848,50.5166 108.6598,50.5335 108.6438,50.5340 108.6295,50.5303 108.6140,50.5281 108.5866,50.5299 108.5780,50.5296 108.5622,50.5277 108.5541,50.5275 108.5458,50.5286 108.5387,50.5313 108.5324,50.5345 108.5165,50.5452 108.4942,50.5702 108.4722,50.5899 108.4626,50.5934 108.4527,50.5955 108.4436,50.5966 108.4344,50.5992 108.4263,50.6032 108.4168,50.6099 108.4081,50.6123 108.3994,50.6131 108.3741,50.6119 108.3557,50.6141 108.3387,50.6189 108.2475,50.6537 108.2390,50.6560 108.2299,50.6573 108.1873,50.6576 108.1798,50.6596 108.1422,50.6795 108.1209,50.6942 108.1021,50.7099 108.0769,50.7357 108.0697,50.7465 108.0681,50.7497 108.0670,50.7535 108.0686,50.7591 108.0737,50.7657 108.0859,50.7751 108.1335,50.7994 108.1886,50.8176 108.2128,50.8286 108.2268,50.8333 108.2348,50.8346 108.2427,50.8382 108.2497,50.8435 108.2601,50.8898 108.2632,50.8992 108.2686,50.9115 108.2970,50.9631 108.3031,50.9796 108.3085,51.0110 108.3357,51.0458 108.3527,51.0554 108.4840,51.0567 108.4975,51.0588 108.5013,51.0600 108.5066,51.0623 108.5118,51.0654 108.5318,51.0830 108.5651,51.1057 108.5700,51.1108 108.5724,51.1185 108.5718,51.1295 108.5653,51.1434 108.5601,51.1513 108.5547,51.1571 108.5423,51.1639 108.4631,51.1978 108.4567,51.2031 108.4505,51.2098 108.4434,51.2219 108.4356,51.2262 108.4276,51.2286 108.4077,51.2299 108.3992,51.2317 108.3845,51.2375 108.3727,51.2445 108.3626,51.2521 108.3588,51.2564 108.3557,51.2613 108.3542,51.2673 108.3555,51.2756 108.3601,51.2832 108.3678,51.2902 108.3820,51.2983 108.4291,51.3135 108.4416,51.3197 108.4534,51.3274 108.4662,51.3385 108.4851,51.3623 108.4919,51.3771 108.4978,51.4048 108.5200,51.4139 108.5256,51.4174 108.5318,51.4228 108.5349,51.4285 108.5365,51.4343 108.5362,51.4398 108.5340,51.4500 108.5335,51.4550 108.5347,51.4601 108.5380,51.4653 108.5423,51.4702 108.5471,51.4747 108.5829,51.4998 108.5833,51.5003 108.5869,51.5031 108.5915,51.5062 108.5975,51.5092 108.6067,51.5105 108.6180,51.5100 108.6362,51.5055 108.6491,51.5006 108.6495,51.5002 108.6536,51.4958 108.6575,51.4923 108.6624,51.4885 108.6684,51.4850 108.6959,51.4722 108.7271,51.4625 108.7331,51.4591 108.7375,51.4550 108.7409,51.4508 108.7470,51.4484 108.7571,51.4488 108.7885,51.4574 108.7999,51.4585 108.8114,51.4560 108.8370,51.4476 108.8586,51.4437 108.9420,51.4405 108.9599,51.4433 109.0038,51.4562 109.0113,51.4604 109.0199,51.4668 109.0333,51.4811 109.0447,51.4964 109.0471,51.5004 109.0499,51.5014 109.0530,51.5034 109.0739,51.5066 109.0976,51.4985 109.1115,51.4914 109.1163,51.4876 109.1200,51.4832 109.1233,51.4787 109.1248,51.4738 109.1270,51.4636 109.1286,51.4587 109.1318,51.4542 109.1360,51.4500 109.1537,51.4394 109.1743,51.4243 109.2056,51.3961 109.2472,51.3660 109.2567,51.3644 109.2703,51.3653 109.2954,51.3739 109.3174,51.3850 109.3244,51.3877 109.3322,51.3888 109.3421,51.3870 109.3465,51.3832 109.3495,51.3785 109.3509,51.3735 109.3549,51.3639 109.3577,51.3592 109.3613,51.3549 109.3668,51.3528 109.3730,51.3531 109.3815,51.3611 109.3854,51.3677 109.3883,51.3746 109.3900,51.3805 109.3926,51.3864 109.3966,51.3919 109.4012,51.3964 109.4182,51.4077 109.4485,51.4197 109.5373,51.4403 109.6287,51.4491 109.6968,51.4768 109.7187,51.4890 109.8009,51.5188 109.8122,51.5250 109.8283,51.5375 109.8343,51.5409 109.8923,51.5575 109.9273,51.5726 109.9454,51.5857 109.9761,51.6024 109.9836,51.6049 110.0122,51.6046 110.0224,51.6074 110.0387,51.6136 110.0492,51.6161 110.0604,51.6142 110.0753,51.6075 110.0936,51.6028 110.2084,51.5918 110.2771,51.5936 110.3147,51.5909 110.3333,51.5864 110.3557,51.5777 110.3654,51.5767 110.3892,51.5770 110.3965,51.5744 110.4003,51.5702 110.4022,51.5654 110.4092,51.5406 110.4137,51.5310 110.4174,51.5269 110.4225,51.5233 110.4956,51.5133 110.5077,51.5097 110.5333,51.4991 110.5448,51.4959 110.5528,51.4959 110.6216,51.5076 110.6392,51.5078 110.6770,51.5045 110.6925,51.5078 110.7118,51.5157 110.7482,51.5385 110.7627,51.5504 110.7709,51.5596 110.7731,51.5649 110.7790,51.5705 110.7878,51.5756 110.8150,51.5845 110.8481,51.5900 110.8558,51.5919 110.8624,51.5950 110.8668,51.6017 110.8676,51.6073 110.8664,51.6127 110.8630,51.6223 110.8608,51.6325 110.8589,51.6374 110.8544,51.6468 110.8447,51.6600 110.8449,51.6646 110.8502,51.6691 110.8908,51.6819 110.9431,51.7183 110.9502,51.7214 110.9586,51.7237 110.9913,51.7226 110.9981,51.7231 111.0025,51.7253 111.0072,51.7313 111.0167,51.7503 111.0189,51.7564 111.0201,51.7677 111.0189,51.7727 111.0314,51.7820 111.0551,51.7937 111.1250,51.8179 111.1566,51.8251 111.1789,51.8277 111.1882,51.8257 111.1972,51.8249 111.2050,51.8259 111.3382,51.8617 111.3743,51.8672 111.3832,51.8671 111.3996,51.8685 111.4293,51.8753 111.4537,51.8778 111.4671,51.8814 111.4844,51.8879 111.5175,51.9042 111.5473,51.9153 111.5860,51.9217 111.5947,51.9255 111.6037,51.9312 111.6243,51.9518 111.6355,51.9570 111.6591,51.9629 111.6658,51.9657 111.6900,51.9804 111.7237,52.0057 111.7454,52.0267 111.7964,52.0899 111.8150,52.1013 111.8790,52.1275 111.8846,52.1330 111.8858,52.1382 111.8852,52.1428 111.8867,52.1474 111.8935,52.1512 111.9050,52.1564 111.9195,52.1657 111.9239,52.1706 111.9276,52.1764 111.9291,52.1820 111.9302,52.1931 111.9319,52.1984 111.9400,52.2039 111.9551,52.2082 111.9994,52.2160 112.0040,52.2175 112.0093,52.2205 112.0192,52.2298 112.0250,52.2339 112.0430,52.2443 112.0475,52.2492 112.0505,52.2550 112.0576,52.2724 112.0618,52.2772 112.0696,52.2804 112.0799,52.2824 112.1290,52.2808 112.1362,52.2816 112.1399,52.2844 112.1424,52.2937 112.1467,52.2983 112.1550,52.3002 112.1671,52.2995 112.1783,52.2933 112.1845,52.2881 112.1910,52.2782 112.1934,52.2735 112.1969,52.2638 112.1987,52.2536 112.2003,52.2487 112.2062,52.2448 112.2163,52.2424 112.2475,52.2439 112.2798,52.2508 112.2902,52.2504 112.3033,52.2468 112.3742,52.2127 112.4054,52.2084 112.4351,52.2288 112.4441,52.2335 112.4723,52.2415 112.4822,52.2458 112.4922,52.2542 112.4967,52.2604 112.4995,52.2653 112.5008,52.2693 112.5032,52.2851 112.5023,52.3008 112.5030,52.3063 112.5070,52.3128 112.5299,52.3308 112.5404,52.3436 112.5448,52.3470 112.5686,52.3483 112.6020,52.3547 112.6143,52.3545 112.6245,52.3526 112.6805,52.3314 112.6896,52.3302 112.6983,52.3301 112.7620,52.3399 112.7990,52.3376 112.8161,52.3383 112.8476,52.3433 112.8806,52.3439 112.9053,52.3367 112.9139,52.3354 112.9220,52.3358 112.9306,52.3372 112.9499,52.3433 113.0912,52.4074 113.1302,52.4345 113.1466,52.4398 113.1572,52.4416 113.2361,52.4688 113.2661,52.4755 113.2738,52.4762 113.2979,52.4719 113.4352,52.4685 113.4924,52.4737 113.5313,52.4861 113.5400,52.4853 113.5450,52.4822 113.5617,52.4604 113.5666,52.4564 113.5725,52.4535 113.5806,52.4545 113.5898,52.4604 113.6200,52.4926 113.6356,52.4994 113.6384,52.5003 113.6400,52.5010 113.6446,52.5034 113.6492,52.5077 113.6565,52.5213 113.6627,52.5279 113.6712,52.5341 113.7093,52.5514 113.7442,52.5736 113.7579,52.5790 113.7699,52.5815 113.7790,52.5811 113.7886,52.5834 113.7996,52.5877 113.8139,52.5990 113.8279,52.6034 113.8513,52.6047 113.8637,52.6084 113.9009,52.6276 113.9150,52.6308 113.9271,52.6309 113.9462,52.6276 113.9551,52.6285 113.9653,52.6332 114.0126,52.6653 114.0194,52.6683 114.0475,52.6778 114.0604,52.6842 114.0878,52.6946 114.1029,52.7046 114.1303,52.7300 114.1717,52.7777 114.2159,52.8136 114.2219,52.8173 114.2292,52.8193 114.2351,52.8215 114.2380,52.8255 114.2357,52.8316 114.2230,52.8506 114.2190,52.8600 114.2159,52.8698 114.2148,52.8801 114.2163,52.8864 114.2200,52.8936 114.2368,52.9114 114.2407,52.9185 114.2407,52.9258 114.2385,52.9313 114.2293,52.9453 114.2275,52.9501 114.2283,52.9554 114.2330,52.9605 114.2453,52.9652 114.2558,52.9666 114.3032,52.9643 114.3100,52.9666 114.3128,52.9718 114.3101,52.9827 114.3066,52.9895 114.3023,52.9948 114.2924,53.0041 114.2863,53.0122 114.2846,53.0181 114.2878,53.0263 114.2979,53.0403 114.3138,53.0524 114.3251,53.0677 114.2685,53.0836 114.2558,53.0909 114.2512,53.0950 114.2460,53.0987 114.2398,53.1013 114.2321,53.1016 114.2256,53.0991 114.2196,53.0951 114.2030,53.0817 114.1968,53.0781 114.1905,53.0756 114.1834,53.0756 114.1780,53.0783 114.1733,53.0820 114.1683,53.0853 114.1618,53.0869 114.1559,53.0848 114.1503,53.0810 114.1447,53.0765 114.1386,53.0731 114.1329,53.0729 114.1290,53.0763 114.1282,53.0856 114.1293,53.0927 114.1321,53.0995 114.1408,53.1106 114.1462,53.1152 114.1653,53.1254 114.1710,53.1299 114.1854,53.1463 114.1979,53.1647 114.2004,53.1706 114.2017,53.1762 114.2019,53.1816 114.2008,53.1871 114.1977,53.1925 114.1900,53.1983 114.1810,53.2018 114.1710,53.2041 114.1618,53.2046 114.1107,53.2018 114.1018,53.2029 114.0933,53.2052 114.0727,53.2156 114.0494,53.2245 114.0464,53.2287 114.0480,53.2337 114.0511,53.2396 114.0528,53.2451 114.0517,53.2493 114.0469,53.2511 114.0399,53.2508 113.9888,53.2362 113.9828,53.2362 113.9776,53.2398 113.9637,53.2590 113.9501,53.2713 113.9464,53.2766 113.9449,53.2832 113.9474,53.2939 113.9514,53.3013 113.9561,53.3080 113.9594,53.3144 113.9606,53.3215 113.9551,53.3373 113.9495,53.3475 113.9462,53.3518 113.9420,53.3556 113.9359,53.3582 113.9111,53.3588 113.9013,53.3606 113.8489,53.3782 113.8425,53.3818 113.8387,53.3902 113.8360,53.4020 113.8378,53.4277 113.8346,53.4394 113.8307,53.4477 113.8300,53.4547 113.8338,53.4642 113.8458,53.4808 113.8548,53.4886 113.8641,53.4928 113.8717,53.4945 113.8780,53.4966 113.8852,53.5001 113.8857,53.5008 113.8886,53.5154 113.8894,53.5354 113.8879,53.5456 113.8849,53.5533 113.8776,53.5620 113.8284,53.6020 113.8222,53.6082 113.8061,53.6162 113.7958,53.6257 113.7927,53.6297 113.8061,53.6431 113.8145,53.6490 113.8271,53.6545 113.8405,53.6586 113.8511,53.6602 113.8848,53.6566 113.8985,53.6602 113.8995,53.6624 113.9004,53.6665 113.9021,53.6710 113.9059,53.6745 113.9157,53.6788 113.9200,53.6801 113.9265,53.6813 113.9654,53.6774 113.9822,53.6814 113.9953,53.7012 113.9767,53.7138 113.9728,53.7299 113.9835,53.7437 114.0087,53.7496 114.0939,53.7564 114.1176,53.7639 114.1253,53.7701 114.1389,53.7866 114.1456,53.7906 114.1603,53.7871 114.1880,53.7681 114.1999,53.7670 114.2246,53.7745 114.2776,53.7792 114.3261,53.7900 114.3457,53.7981 114.3596,53.8119 114.3647,53.8356 114.3775,53.8437 114.4065,53.8441 114.4540,53.8390 114.4809,53.8402 114.5007,53.8449 114.5169,53.8544 114.5670,53.8970 114.5883,53.9266 114.5975,53.9346 114.6060,53.9391 114.6133,53.9408 114.6195,53.9394 114.6248,53.9346 114.6475,53.9447 114.6719,53.9510 114.7244,53.9551 114.7334,53.9570 114.7459,53.9618 114.7572,53.9675 114.7619,53.9724 114.7674,53.9815 114.7805,53.9818 114.8098,53.9755 114.8331,53.9761 114.8601,53.9805 114.8851,53.9885 114.9025,53.9998 114.9441,54.0177 114.9576,54.0192 114.9665,54.0234 114.9816,54.0370 114.9838,54.0402 114.9855,54.0477 114.9885,54.0512 114.9936,54.0539 115.0048,54.0567 115.0270,54.0679 115.0326,54.0762 115.0260,54.0888 115.0233,54.0984 115.0313,54.1062 115.0436,54.1114 115.0695,54.1155 115.0801,54.1207 115.0983,54.1332 115.1441,54.1483 115.1645,54.1617 115.1728,54.1847 115.1792,54.2106 115.1954,54.2196 115.2176,54.2223 115.2417,54.2288 115.2491,54.2345 115.2613,54.2501 115.2691,54.2567 115.2814,54.2602 115.3105,54.2623 115.3208,54.2672 115.3432,54.2845 115.4911,54.3287 115.5024,54.3355 115.5062,54.3450 115.5135,54.3549 115.5177,54.3654 115.5077,54.3883 115.5143,54.3972 115.5261,54.4036 115.5365,54.4075 115.5483,54.4101 115.5726,54.4115 115.5843,54.4144 115.6182,54.4387 115.6294,54.4423 115.7966,54.4723 115.8233,54.4813 115.8601,54.4862 115.9092,54.4998 115.9338,54.5038 115.9852,54.5001 116.0108,54.5020 116.0334,54.5137 116.0454,54.5179 116.0918,54.5168 116.1054,54.5182 116.1398,54.5304 116.1905,54.5385 116.4579,54.5168 116.4691,54.5137 116.4790,54.5069 116.4868,54.5000 116.4921,54.4969 116.5082,54.4976 116.5166,54.5004 116.5226,54.5064 116.5309,54.5168 116.5267,54.5241 116.5259,54.5306 116.5309,54.5379 116.5382,54.5416 116.5437,54.5405 116.5497,54.5381 116.5582,54.5379 116.5866,54.5428 116.6732,54.5478 116.7036,54.5540 116.7233,54.5652 116.7268,54.5747 116.7241,54.5820 116.7233,54.5903 116.7326,54.6027 116.7413,54.6089 116.7773,54.6266 116.7722,54.6317 116.7703,54.6351 116.7681,54.6377 116.7630,54.6403 116.7698,54.6591 116.7702,54.6769 116.7741,54.6903 116.8114,54.7008 116.8425,54.7244 116.8655,54.7297 116.8836,54.7375 116.8817,54.7558 116.8661,54.7911 116.8734,54.8033 116.8902,54.8124 116.9275,54.8259 116.9181,54.8411 116.9234,54.8855 116.8849,54.9049 116.8797,54.9286 116.8846,54.9559 116.8927,54.9767 116.8752,54.9763 116.8730,54.9846 116.8757,54.9957 116.8723,55.0040 116.8605,55.0049 116.8445,55.0035 116.8305,55.0049 116.8244,55.0140 116.8291,55.0235 116.8381,55.0340 116.8446,55.0448 116.8416,55.0552 116.8160,55.0738 116.8108,55.0791 116.8103,55.0851 116.8130,55.0916 116.8176,55.0996 116.8146,55.1042 116.8081,55.1088 116.7918,55.1335 116.7825,55.1437 116.7739,55.1480 116.7284,55.1424 116.7159,55.1446 116.6674,55.1685 116.6307,55.1761 116.6191,55.1822 116.6147,55.1882 116.6099,55.1973 116.6036,55.2058 116.5951,55.2094 116.5759,55.2134 116.5092,55.2436 116.4759,55.2532 116.4688,55.2579 116.4651,55.2698 116.4673,55.2945 116.4651,55.3019 116.4570,55.3105 116.4566,55.3160 116.4594,55.3212 116.4613,55.3289 116.4582,55.3404 116.4502,55.3446 116.4392,55.3472 116.4272,55.3535 116.4158,55.3684 116.4055,55.3867 116.3933,55.4022 116.3760,55.4087 116.1777,55.3906 116.1314,55.3744 116.1084,55.3851 116.0716,55.4149 116.0481,55.4155 115.9967,55.3989 115.9717,55.3944 115.9637,55.3979 115.9450,55.4138 115.9413,55.4183 115.9388,55.4281 115.9346,55.4322 115.9337,55.4372 115.9413,55.4496 115.9494,55.4560 115.9587,55.4599 115.9661,55.4653 115.9679,55.4764 115.9631,55.4828 115.9522,55.4922 115.9400,55.5006 115.9103,55.5103 115.8952,55.5254 115.8867,55.5453 115.8860,55.5657 115.8902,55.5766 115.9030,55.5961 115.9064,55.6067 115.9044,55.6170 115.8983,55.6221 115.8928,55.6282 115.8922,55.6415 115.8966,55.6468 115.9049,55.6538 115.9121,55.6630 115.9133,55.6749 115.9069,55.6846 115.8955,55.6912 115.8818,55.6949 115.8689,55.6961 115.8448,55.7048 115.8460,55.7256 115.8655,55.7712 115.8628,55.7904 115.8479,55.8347 115.8444,55.8568 115.8530,55.8777 115.8910,55.9058 115.8996,55.9251 115.8970,55.9481 115.8893,55.9652 115.8763,55.9786 115.8581,55.9903 115.8144,56.0067 115.7969,56.0193 115.7855,56.0534 115.7667,56.0680 115.7625,56.0760 115.7649,56.0857 115.7713,56.0924 115.7898,56.1070 115.7750,56.1186 115.7701,56.1370 115.7776,56.1541 115.8000,56.1616 115.8096,56.1628 115.8221,56.1663 115.8330,56.1718 115.8376,56.1789 115.8334,56.1888 115.8229,56.1931 115.7966,56.1964 115.7736,56.2057 115.7600,56.2189 115.7191,56.2687 115.6944,56.3097 115.6880,56.3267 115.6876,56.3376 115.6929,56.3571 115.6935,56.3677 115.6907,56.3781 115.6824,56.3937 115.6805,56.3981 115.6838,56.4245 115.6944,56.4392 115.7135,56.4444 115.7420,56.4428 115.7652,56.4362 115.7780,56.4342 115.7898,56.4366 115.7969,56.4442 115.8011,56.4556 115.8005,56.4661 115.7870,56.4738 115.7686,56.4875 115.7044,56.5079 115.6947,56.5132 115.6863,56.5193 115.6805,56.5253 115.6726,56.5399 115.6734,56.5472 115.6779,56.5529 115.6880,56.5838 115.6879,56.5954 115.6771,56.6004 115.6613,56.6023 115.6123,56.6141 115.4904,56.6199 115.4356,56.6411 115.4341,56.6898 115.4494,56.7004 115.4761,56.7091 115.5508,56.7212 115.5713,56.7319 115.5873,56.7472 115.5987,56.7649 115.6058,56.7868 115.6072,56.8075 115.6049,56.8437 115.5996,56.8679 115.5908,56.8855 115.5890,56.9020 115.6049,56.9226 115.6220,56.9337 115.6708,56.9533 115.6907,56.9567 115.7108,56.9635 115.8602,56.9324 115.8678,56.9289 115.8745,56.9251 115.9574,56.8650 115.9647,56.8615 115.9748,56.8588 115.9852,56.8571 116.0013,56.8563 116.0092,56.8568 116.0407,56.8619 116.0480,56.8607 116.0549,56.8582 116.0612,56.8549 116.0726,56.8474 116.1013,56.8219 116.1141,56.8151 116.1220,56.8127 116.1417,56.8097 116.1642,56.8091 116.1743,56.8103 116.2007,56.8166 116.2450,56.8177 116.2573,56.8195 116.2687,56.8235 116.2845,56.8327 116.2972,56.8384 116.3153,56.8438 116.3402,56.8476 116.3511,56.8480 116.3616,56.8473 116.3688,56.8446 116.3728,56.8404 116.3741,56.8351 116.3762,56.8304 116.3818,56.8269 116.3904,56.8247 116.4220,56.8213 116.4398,56.8172 116.4610,56.8082 116.5024,56.8014 116.5087,56.7991 116.5214,56.7929 116.5269,56.7890 116.5315,56.7847 116.5436,56.7707 116.5485,56.7665 116.5538,56.7625 116.5606,56.7593 116.5687,56.7569 116.6291,56.7485 116.6755,56.7499 116.7130,56.7595 116.7255,56.7603 116.7365,56.7597 116.7439,56.7569 116.7504,56.7535 116.7748,56.7327 116.7810,56.7291 116.7880,56.7262 116.7965,56.7245 116.8061,56.7247 116.8150,56.7262 116.9596,56.7781 116.9682,56.7800 116.9782,56.7807 116.9958,56.7790 117.0237,56.7733 117.0313,56.7751 117.0364,56.7782 117.0364,56.7840 117.0310,56.7876 117.0093,56.7966 117.0073,56.8009 117.0122,56.8065 117.0305,56.8123 117.0454,56.8146 117.0940,56.8154 117.1032,56.8136 117.1109,56.8108 117.1230,56.8042 117.1311,56.8042 117.1406,56.8085 117.1556,56.8219 117.1626,56.8305 117.1668,56.8383 117.1687,56.8443 117.1795,56.8660 117.1834,56.8708 117.1898,56.8756 117.1978,56.8804 117.2211,56.8902 117.2405,56.9008 117.2545,56.9110 117.2811,56.9200 117.3012,56.9233 117.3102,56.9259 117.3173,56.9300 117.3224,56.9377 117.3279,56.9427 117.3371,56.9441 117.3426,56.9414 117.3446,56.9360 117.3446,56.9303 117.3452,56.9249 117.3491,56.9211 117.3553,56.9183 117.3601,56.9149 117.3603,56.9103 117.3538,56.8938 117.3507,56.8816 117.3470,56.8715 117.3483,56.8677 117.3548,56.8652 117.4053,56.8586 117.4111,56.8564 117.4107,56.8524 117.4073,56.8480 117.4025,56.8435 117.3987,56.8382 117.4005,56.8337 117.4052,56.8299 117.4114,56.8266 117.4191,56.8244 117.4272,56.8231 117.4431,56.8190 117.4514,56.8190 117.4584,56.8221 117.4624,56.8316 117.4621,56.8382 117.4643,56.8461 117.4709,56.8535 117.4892,56.8652 117.4990,56.8695 117.5091,56.8716 117.5175,56.8704 117.5257,56.8683 117.5581,56.8518 117.5648,56.8502 117.5708,56.8512 117.5748,56.8574 117.5791,56.8701 117.5811,56.8894 117.5795,56.9017 117.5723,56.9246 117.5723,56.9300 117.5758,56.9347 117.6209,56.9487 117.6495,56.9606 117.6622,56.9675 117.6677,56.9721 117.6725,56.9775 117.6750,56.9863 117.6763,56.9930 117.6766,56.9996 117.6769,57.0007 117.6854,57.0136 117.6856,57.0196 117.6829,57.0248 117.6742,57.0332 117.6720,57.0377 117.6720,57.0428 117.6759,57.0539 117.6770,57.0598 117.6766,57.0658 117.6736,57.0708 117.6688,57.0750 117.6305,57.0955 117.6207,57.1039 117.6176,57.1088 117.6156,57.1143 117.6165,57.1328 117.6147,57.1384 117.6101,57.1428 117.6043,57.1462 117.6009,57.1497 117.6040,57.1542 117.6256,57.1635 117.7234,57.1871 117.7335,57.1905 117.7428,57.1958 117.7534,57.2068 117.7589,57.2142 117.7628,57.2211 117.7721,57.2440 117.7943,57.2874 117.7945,57.2927 117.7911,57.2970 117.7840,57.2998 117.7748,57.3019 117.6553,57.3065 117.6368,57.3104 117.6048,57.3203 117.5971,57.3212 117.5903,57.3185 117.5844,57.3140 117.5533,57.2701 117.5488,57.2650 117.5411,57.2611 117.5077,57.2545 117.4727,57.2393 117.4643,57.2392 117.4569,57.2410 117.4436,57.2475 117.4319,57.2547 117.4281,57.2589 117.4270,57.2637 117.4287,57.2687 117.4435,57.2892 117.4478,57.3043 117.4457,57.3237 117.4436,57.3293 117.4402,57.3338 117.4357,57.3366 117.4290,57.3360 117.3888,57.3245 117.3802,57.3236 117.3718,57.3249 117.3657,57.3282 117.3567,57.3371 117.3532,57.3419 117.3473,57.3524 117.3402,57.3618 117.3389,57.3676 117.3412,57.3742 117.3480,57.3840 117.3482,57.3906 117.3458,57.3960 117.3371,57.4048 117.3344,57.4099 117.3340,57.4156 117.3375,57.4249 117.3368,57.4314 117.3352,57.4377 117.3264,57.4533 117.3207,57.4567 117.2919,57.4600 117.2866,57.4638 117.2836,57.4691 117.2811,57.4813 117.2792,57.4869 117.2762,57.4919 117.2682,57.4998 117.2571,57.5090 117.2543,57.5139 117.2545,57.5193 117.2583,57.5308 117.2599,57.5369 117.2740,57.5544 117.2941,57.5699 117.2978,57.5780 117.2979,57.5847 117.2948,57.5898 117.2926,57.5954 117.2892,57.6072 117.2866,57.6125 117.2823,57.6172 117.2758,57.6205 117.2681,57.6233 117.1787,57.6438 117.1712,57.6438 117.1570,57.6392 117.1481,57.6391 117.1419,57.6413 117.1406,57.6460 117.1415,57.6512 117.1419,57.6572 117.1404,57.6684 117.1432,57.6746 117.1478,57.6810 117.1562,57.6899 117.1638,57.7033 117.1656,57.7091 117.1665,57.7216 117.1681,57.7283 117.1727,57.7365 117.1707,57.7420 117.1666,57.7463 117.1608,57.7502 117.1559,57.7544 117.1505,57.7651 117.1462,57.7697 117.1397,57.7731 117.1013,57.7870 117.0952,57.7904 117.0909,57.7944 117.0875,57.7991 117.0858,57.8044 117.0861,57.8103 117.0889,57.8155 117.0932,57.8208 117.0983,57.8260 117.1114,57.8365 117.1183,57.8397 117.1283,57.8416 117.1821,57.8394 117.1967,57.8403 117.2546,57.8528 117.2747,57.8524 117.2857,57.8500 117.2947,57.8471 117.3034,57.8459 117.3130,57.8470 117.3427,57.8606 117.3483,57.8644 117.3508,57.8697 117.3511,57.8755 117.3566,57.8823 117.3674,57.8894 117.3975,57.8992 117.4093,57.9058 117.4132,57.9116 117.4074,57.9150 117.3818,57.9221 117.3746,57.9251 117.3691,57.9288 117.3681,57.9342 117.3696,57.9396 117.3725,57.9450 117.3771,57.9565 117.3778,57.9625 117.3772,57.9683 117.3755,57.9740 117.3672,57.9896 117.3663,57.9946 117.3675,57.9982 117.3682,57.9997 117.3687,58.0001 117.3803,58.0077 117.3906,58.0160 117.3937,58.0208 117.3941,58.0259 117.3922,58.0310 117.3777,58.0504 117.3753,58.0557 117.3746,58.0609 117.3771,58.0658 117.3821,58.0697 117.4018,58.0800 117.4073,58.0837 117.4112,58.0882 117.4117,58.0935 117.4101,58.0989 117.4053,58.1097 117.4050,58.1153 117.4056,58.1214 117.4081,58.1268 117.4121,58.1322 117.4238,58.1444 117.4301,58.1490 117.4377,58.1518 117.4500,58.1498 117.4931,58.1380 117.5079,58.1363 117.5542,58.1366 117.5693,58.1409 117.5739,58.1462 117.5859,58.1751 117.5873,58.1802 117.5878,58.1843 117.5637,58.2083 117.5611,58.2138 117.5596,58.2198 117.5569,58.2251 117.5529,58.2298 117.5344,58.2406 117.5297,58.2450 117.5244,58.2558 117.5212,58.2609 117.5144,58.2641 117.4891,58.2721 117.4768,58.2789 117.4718,58.2832 117.4683,58.2881 117.4669,58.2934 117.4678,58.2989 117.4709,58.3040 117.4755,58.3091 117.4813,58.3141 117.4894,58.3195 117.4960,58.3231 117.5353,58.3389 117.5974,58.3542 117.6275,58.3658 117.6579,58.3732 117.6622,58.3784 117.6643,58.3840 117.6656,58.3901 117.6686,58.3952 117.6838,58.3980 117.7909,58.3946 117.8088,58.3960 117.8156,58.3992 117.8209,58.4034 117.8272,58.4065 117.8351,58.4078 117.8481,58.4036 117.8562,58.3993 117.8651,58.3957 117.8747,58.3940 117.8908,58.3961 117.9119,58.4011 117.9233,58.4022 117.9409,58.3992 117.9598,58.3988 117.9946,58.3946 118.0159,58.3875 118.0257,58.3818 118.0314,58.3757 118.0406,58.3535 118.0444,58.3487 118.0499,58.3448 118.0587,58.3418 118.0700,58.3403 118.0886,58.3413 118.0997,58.3440 118.1084,58.3474 118.1138,58.3514 118.1185,58.3559 118.1223,58.3607 118.1285,58.3720 118.1309,58.3781 118.1356,58.3841 118.1421,58.3859 118.1576,58.3856 118.1845,58.3822 118.3174,58.3525 118.3294,58.3473 118.3381,58.3424 118.3495,58.3279 118.3525,58.3227 118.3576,58.3053 118.3628,58.2946 118.3712,58.2853 118.3761,58.2810 118.3984,58.2648 118.4051,58.2615 118.4581,58.2480 118.4707,58.2430 118.4788,58.2378 118.4819,58.2326 118.4839,58.2270 118.4850,58.2210 118.4910,58.2164 118.5043,58.2137 118.5348,58.2143 118.5733,58.2083 118.5815,58.2044 118.6043,58.1890 118.6304,58.1752 118.6437,58.1741 118.6613,58.1749 118.6945,58.1816 118.7101,58.1865 118.7570,58.2066 118.7841,58.2128 118.9898,58.2290 119.0102,58.2332 119.0399,58.2326 119.1081,58.2227 119.1257,58.2804 119.1241,58.2885 119.1205,58.2981 119.0830,58.3208 119.0768,58.3286 119.0704,58.3412 119.0687,58.3573 119.0710,58.3662 119.0764,58.3719 119.0999,58.3872 119.1102,58.3957 119.1164,58.4047 119.1224,58.4178 119.1306,58.4461 119.1328,58.4609 119.1324,58.4723 119.1287,58.4803 119.1233,58.4854 119.1159,58.4891 119.1071,58.4914 119.0437,58.5000 119.0337,58.5031 119.0272,58.5065 119.0198,58.5114 118.9961,58.5319 118.9802,58.5428 118.9730,58.5459 118.9648,58.5486 118.9548,58.5501 118.9443,58.5504 118.9251,58.5482 118.9148,58.5480 118.9043,58.5501 118.8940,58.5538 118.8815,58.5604 118.8752,58.5657 118.8657,58.5692 118.8212,58.5743 118.8082,58.5790 118.7948,58.5867 118.7763,58.6040 118.7744,58.6115 118.7809,58.6150 118.8156,58.6145 118.8237,58.6167 118.8279,58.6212 118.8286,58.6269 118.8290,58.6331 118.8299,58.6394 118.8324,58.6448 118.8388,58.6546 118.8404,58.6592 118.8435,58.6636 118.8478,58.6679 118.8707,58.6833 118.8759,58.6891 118.8788,58.6968 118.8756,58.7284 118.8771,58.7546 118.8802,58.7667 118.8921,58.7969 118.8933,58.8048 118.8929,58.8164 118.8902,58.8235 118.8862,58.8293 118.8818,58.8338 118.8703,58.8415 118.8131,58.8672 118.7988,58.8770 118.7905,58.8858 118.7871,58.8930 118.7855,58.9000 118.7890,58.9197 118.7954,58.9346 118.8056,58.9366 118.8314,58.9367 118.8416,58.9417 118.8484,58.9511 118.8514,59.0023 118.8495,59.0090 118.8462,59.0134 118.8403,59.0156 118.8001,59.0220 118.7620,59.0227 118.7496,59.0245 118.7385,59.0284 118.7072,59.0638 118.6948,59.1239 118.6934,59.1455 118.6871,59.1796 118.6872,59.1856 118.6887,59.1915 118.7020,59.2126 118.7109,59.2219 118.7165,59.2260 118.7293,59.2332 118.7453,59.2387 118.7935,59.2479 118.8010,59.2504 118.8044,59.2548 118.8028,59.2601 118.7989,59.2671 118.7986,59.2729 118.8029,59.2772 118.8113,59.2795 118.8326,59.2826 118.8414,59.2852 118.8459,59.2911 118.8441,59.2958 118.8397,59.3004 118.8330,59.3040 118.8252,59.3069 118.7798,59.3184 118.7717,59.3220 118.7649,59.3265 118.7581,59.3329 118.7550,59.3392 118.7533,59.3455 118.7527,59.3518 118.7528,59.3578 118.7543,59.3638 118.7571,59.3692 118.7592,59.3768 118.7601,59.3858 118.7587,59.4001 118.7546,59.4078 118.7488,59.4134 118.7419,59.4169 118.7339,59.4198 118.6594,59.4310 118.5862,59.4549 118.5507,59.4800 118.5343,59.4858 118.4073,59.5123 118.3977,59.5161 118.3883,59.5213 118.3754,59.5350 118.3534,59.5764 118.3445,59.5879 118.3360,59.5956 118.3018,59.6059 118.2826,59.6093 118.2721,59.6092 118.2291,59.6044 118.2056,59.6048 118.1620,59.6095 118.1515,59.6087 118.1433,59.6064 118.1085,59.5898 118.0986,59.5883 118.0761,59.5870 118.0663,59.5853 118.0583,59.5826 118.0460,59.5750 118.0199,59.5537 118.0078,59.5466 117.9923,59.5394 117.9870,59.5359 117.9821,59.5315 117.9738,59.5218 117.9707,59.5164 117.9682,59.5109 117.9656,59.5002 117.9476,59.4645 117.9435,59.4596 117.9388,59.4550 117.9321,59.4513 117.9243,59.4483 117.9060,59.4439 117.8831,59.4419 117.8567,59.4420 117.8432,59.4435 117.8264,59.4491 117.8190,59.4547 117.8144,59.4607 117.8081,59.4711 117.8030,59.4820 117.8010,59.4876 117.7983,59.5001 117.7983,59.5006 117.7912,59.5125 117.7786,59.5283 117.7690,59.5357 117.7580,59.5394 117.7482,59.5387 117.7138,59.5292 117.6574,59.5038 117.6059,59.4742 117.5975,59.4723 117.5547,59.4762 117.5347,59.4799 117.4847,59.4962 117.4551,59.5000 117.3524,59.4974 117.3378,59.4997 117.2894,59.5214 117.2808,59.5240 117.2418,59.5286 117.2337,59.5313 117.2291,59.5334 117.2256,59.5370 117.2102,59.5588 117.2032,59.5645 117.1960,59.5689 117.1536,59.5812 117.1326,59.5852 117.0893,59.5884 117.0871,59.5908 117.0899,59.5944 117.0945,59.5986 117.1198,59.6134 117.1904,59.6464 117.1954,59.6506 117.1985,59.6554 117.1983,59.6609 117.1964,59.6662 117.1941,59.6784 117.1942,59.6849 117.1955,59.6911 117.1976,59.6969 117.2122,59.7172 117.2172,59.7273 117.2186,59.7331 117.2183,59.7390 117.2174,59.7451 117.2158,59.7511 117.2149,59.7637 117.2177,59.7759 117.2225,59.7873 117.2256,59.7927 117.2282,59.7983 117.2297,59.8043 117.2291,59.8121 117.2263,59.8208 117.2191,59.8336 117.2125,59.8405 117.2051,59.8456 117.1967,59.8483 117.1648,59.8531 117.1555,59.8554 117.1481,59.8586 117.0651,59.9079 117.0636,59.9134 117.0645,59.9188 117.0723,59.9288 117.0791,59.9394 117.0830,59.9443 117.0874,59.9490 117.0924,59.9533 117.0988,59.9570 117.1061,59.9602 117.1146,59.9628 117.1246,59.9646 117.1483,59.9651 117.1593,59.9638 117.2057,59.9528 117.2156,59.9528 117.2244,59.9546 117.2323,59.9573 117.2972,59.9874 117.3024,59.9923 117.3059,59.9984 117.3056,60.0080 117.3019,60.0139 117.2963,60.0189 117.2886,60.0218 117.2801,60.0238 117.2697,60.0242 117.2247,60.0215 117.2137,60.0224 117.1716,60.0354 117.1614,60.0365 117.1509,60.0357 117.1229,60.0296 117.1005,60.0278 117.0766,60.0292 117.0648,60.0315 117.0543,60.0354 117.0420,60.0423 117.0373,60.0484 117.0372,60.0541 117.0426,60.0647 117.0437,60.0713 117.0425,60.0799 117.0385,60.0857 117.0321,60.0914 117.0122,60.1039 116.9985,60.1161 116.9930,60.1229 116.9902,60.1294 116.9899,60.1357 116.9878,60.1433 116.9819,60.1498 116.9768,60.1544 116.9543,60.1686 116.8952,60.1935 116.8749,60.2049 116.8645,60.2133 116.8414,60.2375 116.8317,60.2430 116.8212,60.2467 116.7399,60.2580 116.7293,60.2620 116.7216,60.2662 116.6439,60.3317 116.6251,60.3438 116.5994,60.3548 116.5824,60.3599 116.3478,60.3908 116.3248,60.3890 116.2778,60.3776 116.2660,60.3764 116.2503,60.3769 116.2369,60.3803 116.1867,60.3989 116.0754,60.4069 116.0636,60.4099 116.0550,60.4135 116.0503,60.4182 116.0466,60.4231 116.0440,60.4287 116.0406,60.4339 116.0342,60.4398 116.0091,60.4543 115.9989,60.4572 115.8421,60.4677 115.8168,60.4755 115.7370,60.5180 115.7223,60.5223 115.7089,60.5248 115.6863,60.5262 115.3947,60.4871 115.2382,60.4470 115.1122,60.3946 115.0976,60.3869 115.0909,60.3821 115.0792,60.3706 115.0693,60.3584 115.0556,60.3345 115.0465,60.3115 115.0361,60.2935 115.0311,60.2875 115.0195,60.2767 115.0068,60.2685 114.9011,60.2286 114.8359,60.1904 114.8250,60.1867 114.8080,60.1836 114.7966,60.1849 114.7879,60.1877 114.7625,60.2087 114.7562,60.2127 114.7477,60.2168 114.7365,60.2204 114.7180,60.2235 114.7064,60.2223 114.6971,60.2192 114.6846,60.2089 114.6408,60.1616 114.6162,60.1409 114.6022,60.1324 114.5945,60.1289 114.5526,60.1171 114.5470,60.1130 114.5431,60.1078 114.5402,60.1021 114.5234,60.0510 114.5230,60.0456 114.5257,60.0408 114.5319,60.0368 114.5632,60.0225 114.5684,60.0183 114.5718,60.0138 114.5728,60.0089 114.5720,60.0046 114.5704,60.0019 114.5695,60.0006 114.5647,59.9969 114.5455,59.9854 114.3090,59.8789 114.3026,59.8740 114.2970,59.8685 114.2872,59.8562 114.2801,59.8442 114.2747,59.8383 114.2671,59.8325 114.2522,59.8273 114.2438,59.8224 114.2396,59.8170 114.2371,59.8062 114.2323,59.8001 114.2256,59.7939 114.2017,59.7767 114.1834,59.7593 114.1748,59.7535 114.1612,59.7477 114.0541,59.7407 114.0427,59.7367 114.0411,59.7319 114.0421,59.6964 114.0413,59.6863 114.0380,59.6824 114.0302,59.6811 113.9336,59.6888 113.9160,59.6868 113.8932,59.6821 113.8792,59.6813 113.8662,59.6822 113.8545,59.6842 113.8493,59.6816 113.8465,59.6771 113.8461,59.6717 113.8447,59.6661 113.8427,59.6603 113.8384,59.6544 113.8332,59.6488 113.8272,59.6439 113.8135,59.6353 113.7793,59.6086 113.6303,59.5797 113.5918,59.5652 113.5886,59.5595 113.5886,59.5542 113.5910,59.5495 113.5944,59.5448 113.5954,59.5398 113.5949,59.5344 113.5930,59.5287 113.5918,59.5231 113.5920,59.5178 113.5932,59.5128 113.5963,59.5082 113.5997,59.5042 113.6045,59.5003 113.6050,59.4991 113.5905,59.4852 113.5261,59.4427 113.5165,59.4389 113.5011,59.4380 113.4889,59.4345 113.4648,59.4251 113.4459,59.4116 113.4352,59.4023 113.4301,59.3947 113.4243,59.3827 113.4224,59.3769 113.4227,59.3717 113.4251,59.3670 113.4301,59.3628 113.4667,59.3447 113.4725,59.3390 113.4747,59.3313 113.4569,59.2991 113.4553,59.2935 113.4555,59.2882 113.4572,59.2834 113.4629,59.2729 113.4647,59.2663 113.4610,59.2616 113.4332,59.2489 113.3990,59.2261 113.3601,59.2111 113.3293,59.1948 113.2958,59.1724 113.2642,59.1569 113.2278,59.1510 113.2179,59.1509 113.1522,59.1645 113.1424,59.1644 113.1340,59.1625 113.0940,59.1489 113.0752,59.1465 113.0220,59.1475 113.0056,59.1443 112.9877,59.1385 112.9796,59.1369 112.9711,59.1362 112.9625,59.1381 112.9388,59.1487 112.9294,59.1512 112.9161,59.1516 112.9086,59.1477 112.8836,59.1227 112.8741,59.1176 112.8647,59.1141 112.7818,59.1010 112.7276,59.0834 112.7143,59.0769 112.7044,59.0708 112.6911,59.0590 112.6663,59.0413 112.6550,59.0364 112.6444,59.0337 112.6348,59.0342 112.6258,59.0367 112.6107,59.0436 112.5878,59.0595 112.5790,59.0673 112.5740,59.0691 112.5691,59.0671 112.5629,59.0621 112.5584,59.0552 112.5556,59.0478 112.5544,59.0334 112.5566,59.0268 112.5604,59.0206 112.5855,58.9905 112.6132,58.9690 112.6164,58.9622 112.6125,58.9545 112.5534,58.9124 112.5202,58.8763 112.5110,58.8725 112.5026,58.8704 112.4978,58.8707 112.4915,58.8722 112.4862,58.8754 112.4812,58.8794 112.4685,58.8928 112.4660,58.8974 112.4646,58.9021 112.4671,58.9069 112.4708,58.9114 112.4732,58.9150 112.4683,58.9180 112.4512,58.9240 112.4477,58.9285 112.4472,58.9338 112.4499,58.9504 112.4493,58.9824 112.4502,58.9929 112.4516,58.9973 112.4527,58.9997 112.4617,59.0104 112.4649,59.0156 112.4664,59.0210 112.4667,59.0263 112.4657,59.0314 112.4558,59.0549 112.4550,59.0597 112.4546,59.0646 112.4571,59.0738 112.4562,59.0786 112.4527,59.0882 112.4496,59.1142 112.4502,59.1197 112.4515,59.1252 112.4550,59.1312 112.4637,59.1422 112.4658,59.1474 112.4649,59.1522 112.4624,59.1569 112.4623,59.1620 112.4652,59.1678 112.5032,59.2079 112.5262,59.2277 112.5339,59.2327 112.5457,59.2376 112.5574,59.2402 112.5719,59.2419 112.5793,59.2453 112.5827,59.2503 112.5852,59.2558 112.5924,59.2619 112.6030,59.2643 112.6181,59.2655 112.6283,59.2672 112.6357,59.2703 112.6382,59.2751 112.6388,59.2802 112.6372,59.2906 112.6311,59.3105 112.6235,59.3141 112.6097,59.3161 112.5475,59.3135 112.4354,59.3263 112.3388,59.2997 112.3225,59.2975 112.3018,59.2984 112.2931,59.3006 112.2881,59.3040 112.2887,59.3089 112.3023,59.3251 112.3051,59.3309 112.3057,59.3363 112.3039,59.3412 112.3002,59.3457 112.2947,59.3498 112.2768,59.3611 112.2752,59.3653 112.2776,59.3699 112.2888,59.3793 112.3157,59.3958 112.3274,59.4054 112.3312,59.4111 112.3325,59.4166 112.3310,59.4216 112.3281,59.4263 112.3229,59.4304 112.2903,59.4494 112.2724,59.4666 112.2697,59.4713 112.2686,59.4763 112.2686,59.4816 112.2721,59.4927 112.2755,59.4993 112.2706,59.5004 112.2346,59.5017 112.2179,59.5004 112.1940,59.4783 112.1172,59.4246 112.1068,59.4136 112.0984,59.4015 112.0932,59.3959 112.0869,59.3914 111.9929,59.3439 111.9874,59.3394 111.9821,59.3340 111.9777,59.3280 111.9628,59.2922 111.9583,59.2858 111.9521,59.2795 111.9421,59.2739 111.9325,59.2719 111.8827,59.2779 111.7758,59.2758 111.7636,59.2736 111.7550,59.2695 111.7431,59.2596 111.6890,59.2274 111.6506,59.2101 111.6372,59.2076 111.6253,59.2073 111.5891,59.2181 111.5704,59.2201 111.5617,59.2223 111.5225,59.2379 111.5176,59.2416 111.5134,59.2457 111.5097,59.2500 111.5052,59.2537 111.5005,59.2568 111.4962,59.2589 111.4701,59.2673 111.4150,59.2678 111.3163,59.2575 111.2968,59.2532 111.2903,59.2490 111.2848,59.2436 111.2768,59.2378 111.2662,59.2322 111.2470,59.2258 111.2365,59.2206 111.2299,59.2151 111.2272,59.2095 111.2219,59.2029 111.2127,59.1965 111.1897,59.1888 111.1752,59.1878 111.1638,59.1894 111.1278,59.2073 111.1223,59.2114 111.1084,59.2295 111.1016,59.2336 111.0913,59.2365 111.0758,59.2383 111.0645,59.2376 111.0551,59.2353 111.0329,59.2193 111.0196,59.2123 111.0094,59.2095 111.0009,59.2085 110.9950,59.2092 110.9877,59.2115 110.9806,59.2147 110.9675,59.2221 110.9520,59.2290 110.9331,59.2350 110.9224,59.2373 110.8902,59.2396 110.8246,59.2534 110.7135,59.2589 110.6972,59.2572 110.6851,59.2546 110.6550,59.2417 110.6491,59.2372 110.6444,59.2319 110.6417,59.2262 110.6385,59.2152 110.6340,59.2104 110.6274,59.2070 110.5943,59.1974 110.5869,59.1944 110.5804,59.1908 110.5763,59.1861 110.5736,59.1806 110.5729,59.1750 110.5732,59.1697 110.5745,59.1646 110.5770,59.1597 110.5891,59.1412 110.5906,59.1364 110.5894,59.1313 110.5848,59.1268 110.5786,59.1228 110.5563,59.1129 110.5497,59.1092 110.5441,59.1049 110.5410,59.1001 110.5407,59.0950 110.5414,59.0898 110.5432,59.0849 110.5438,59.0798 110.5438,59.0743 110.5414,59.0686 110.5374,59.0631 110.5312,59.0587 110.4934,59.0380 110.4823,59.0349 110.4709,59.0336 110.3638,59.0353 110.3486,59.0325 110.3374,59.0293 110.3306,59.0253 110.3189,59.0157 110.3137,59.0100 110.3050,58.9974 110.2866,58.9852 110.2783,58.9840 110.2127,58.9835 110.1787,58.9789 110.1193,58.9804 110.0374,58.9917 110.0290,58.9948 110.0252,58.9980 110.0152,59.0003 109.9154,59.0076 109.8759,59.0000 109.8700,58.9978 109.8423,58.9841 109.8314,58.9808 109.8222,58.9813 109.8147,58.9839 109.8061,58.9924 109.7978,58.9988 109.7961,58.9998 109.7782,59.0178 109.7636,59.0412 109.7568,59.0557 109.7511,59.0611 109.7423,59.0664 109.7250,59.0732 109.7128,59.0750 109.7023,59.0742 109.6941,59.0717 109.6711,59.0604 109.6594,59.0579 109.6498,59.0590 109.6419,59.0619 109.6364,59.0660 109.6324,59.0703 109.6297,59.0751 109.6259,59.0905 109.6359,59.1269 109.6338,59.1416 109.6263,59.1520 109.6200,59.1583 109.6138,59.1631 109.6070,59.1673 109.5907,59.1734 109.5573,59.1763 109.5452,59.1785 109.5317,59.1842 109.5283,59.1898 109.5300,59.1955 109.5399,59.2068 109.5421,59.2146 109.5387,59.2198 109.5309,59.2253 109.5213,59.2309 109.5086,59.2406 109.5033,59.2472 109.5006,59.2525 109.4999,59.2580 109.5000,59.2601 109.5006,59.2641 109.5022,59.2692 109.5084,59.2815 109.5102,59.2889 109.5046,59.2926 109.4988,59.2944 109.4811,59.2948 109.4418,59.2913 109.4207,59.2918 109.3784,59.2997 109.3112,59.3034 109.2840,59.3097 109.2678,59.3160 109.2613,59.3213 109.2592,59.3267 109.2604,59.3332 109.2603,59.3409 109.2524,59.3537 109.2498,59.3613 109.2521,59.3674 109.3095,59.3945 109.3260,59.3994 109.3351,59.4011 109.3428,59.4045 109.3478,59.4096 109.3480,59.4181 109.3430,59.4233 109.3341,59.4273 109.2985,59.4357 109.2855,59.4404 109.2694,59.4491 109.2663,59.4555 109.2682,59.4614 109.2746,59.4657 109.2889,59.4729 109.3120,59.4816 109.3191,59.4862 109.3255,59.4922 109.3297,59.5035 109.3348,59.5109 109.3405,59.5168 109.3554,59.5235 109.3793,59.5316 109.3936,59.5388 109.4057,59.5480 109.4296,59.5792 109.4355,59.5830 109.4796,59.6033 109.5013,59.6171 109.5174,59.6296 109.5233,59.6362 109.5283,59.6431 109.5314,59.6536 109.5273,59.6594 109.5191,59.6637 109.5027,59.6689 109.4981,59.6727 109.4925,59.6795 109.4860,59.6929 109.4838,59.7015 109.4832,59.7089 109.4850,59.7203 109.4882,59.7326 109.4943,59.7483 109.5005,59.7591 109.5037,59.7638 109.5236,59.7852 109.5472,59.8054 109.6079,59.8405 109.6307,59.8501 109.6384,59.8547 109.6451,59.8606 109.6504,59.8706 109.6506,59.8773 109.6466,59.8825 109.6402,59.8864 109.6254,59.8935 109.6209,59.8977 109.6216,59.9030 109.6250,59.9084 109.6303,59.9136 109.6371,59.9178 109.6453,59.9203 109.6639,59.9236 109.6712,59.9270 109.6771,59.9317 109.6813,59.9377 109.6952,59.9628 109.6998,59.9690 109.7051,59.9744 109.7111,59.9793 109.7311,59.9912 109.7426,60.0012 109.7587,60.0194 109.7639,60.0270 109.7620,60.0321 109.7562,60.0364 109.7305,60.0458 109.7237,60.0507 109.7187,60.0573 109.7172,60.0700 109.7153,60.0778 109.7128,60.0841 109.7051,60.0931 109.6976,60.1049 109.6944,60.1147 109.6940,60.1219 109.6944,60.1286 109.6979,60.1403 109.7007,60.1461 109.7049,60.1518 109.7165,60.1784 109.7249,60.2106 109.7320,60.2251 109.7405,60.2335 109.7772,60.2408 109.7933,60.2464 109.8005,60.2502 109.8068,60.2561 109.8124,60.2637 109.8177,60.2752 109.8187,60.2826 109.8172,60.2888 109.8143,60.2945 109.8119,60.3008 109.8103,60.3097 109.8149,60.3147 109.8222,60.3182 109.8559,60.3283 109.8703,60.3345 109.8744,60.3382 109.8725,60.3423 109.8634,60.3515 109.8599,60.3576 109.8591,60.3662 109.8633,60.3717 109.8714,60.3746 109.9079,60.3819 109.9248,60.3871 109.9325,60.3903 109.9400,60.3954 109.9463,60.4019 109.9522,60.4124 109.9521,60.4191 109.9487,60.4245 109.9277,60.4365 109.9217,60.4420 109.9168,60.4506 109.9182,60.4576 109.9226,60.4633 109.9468,60.4825 109.9738,60.4993 109.9812,60.5027 110.0078,60.5106 110.0153,60.5164 110.0233,60.5255 110.0396,60.5544 110.0474,60.5610 110.0552,60.5640 110.1009,60.5752 110.1088,60.5788 110.1162,60.5871 110.1183,60.5964 110.1196,60.6124 110.1177,60.6210 110.1109,60.6273 110.1025,60.6316 110.0929,60.6436 110.0880,60.6483 110.0803,60.6519 110.0596,60.6581 110.0509,60.6620 110.0459,60.6676 110.0493,60.6715 110.0568,60.6739 110.0772,60.6756 110.1353,60.6735 110.1452,60.6746 110.1626,60.6793 110.1713,60.6805 110.1808,60.6795 110.1989,60.6745 110.2095,60.6734 110.2192,60.6741 110.2282,60.6761 110.2443,60.6821 110.2598,60.6903 110.2668,60.6965 110.2684,60.7020 110.2678,60.7073 110.2665,60.7124 110.2657,60.7175 110.2653,60.7234 110.2662,60.7300 110.2730,60.7583 110.2790,60.7637 110.2851,60.7675 110.2885,60.7702 110.2836,60.7729 110.2515,60.7849 110.2418,60.7904 110.2335,60.7972 110.2303,60.8094 110.2312,60.8176 110.2351,60.8249 110.2397,60.8310 110.2509,60.8416 110.2635,60.8510 110.2842,60.8633 110.2962,60.8728 110.3012,60.8785 110.3097,60.8905 110.3148,60.8962 110.3204,60.9015 110.3341,60.9099 110.3726,60.9281 110.3810,60.9336 110.3968,60.9496 110.4042,60.9544 110.4211,60.9595 110.4286,60.9631 110.4353,60.9674 110.4472,60.9770 110.4584,60.9883 110.4647,61.0053 110.4635,61.0208 110.4613,61.0329 110.4641,61.0406 110.4693,61.0467 110.4925,61.0596 110.5020,61.0658 110.5138,61.0775 110.5170,61.0850 110.5167,61.0912 110.5136,61.0960 110.5099,61.1005 110.5065,61.1062 110.5046,61.1131 110.5061,61.1381 110.5040,61.1431 110.5009,61.1478 110.4962,61.1520 110.4899,61.1558 110.4813,61.1592 110.4207,61.1771 110.4095,61.1792 110.3978,61.1802 110.3873,61.1798 110.3779,61.1780 110.3696,61.1752 110.3545,61.1680 110.3281,61.1508 110.3201,61.1488 110.2882,61.1536 110.2770,61.1540 110.2668,61.1528 110.2484,61.1489 110.2385,61.1482 110.1901,61.1553 110.1765,61.1596 110.1688,61.1641 110.1642,61.1689 110.1606,61.1744 110.1444,61.1911 110.1301,61.2000 110.1249,61.2071 110.1223,61.2129 110.1230,61.2294 110.1190,61.2369 110.1121,61.2462 110.0944,61.2626 110.0809,61.2704 110.0666,61.2755 109.9677,61.2936 109.9508,61.2986 109.9245,61.3020 109.9026,61.3005 109.8831,61.2971 109.8725,61.2963 109.8606,61.2968 109.8095,61.3109 109.8002,61.3165 109.7924,61.3252 109.7930,61.3318 109.7975,61.3369 109.8100,61.3450 109.8122,61.3500 109.8110,61.3547 109.8049,61.3642 109.8033,61.3691 109.8043,61.3744 109.8083,61.3797 109.8318,61.3999 109.8364,61.4059 109.8405,61.4122 109.8462,61.4244 109.8482,61.4304 109.8488,61.4359 109.8479,61.4412 109.8457,61.4461 109.8375,61.4598 109.8298,61.4686 109.8273,61.4727 109.8276,61.4773 109.8324,61.4814 109.8394,61.4848 109.8563,61.4904 109.8634,61.4942 109.8685,61.4996 109.8713,61.5053 109.8726,61.5111 109.8735,61.5168 109.8731,61.5240 109.8701,61.5329 109.8612,61.5473 109.8513,61.5573 109.7528,61.6319 109.7358,61.6402 109.7238,61.6432 109.7123,61.6481 109.7088,61.6532 109.7101,61.6596 109.7126,61.6664 109.7123,61.6741 109.7066,61.6788 109.6851,61.6836 109.6743,61.6871 109.6445,61.7049 109.6262,61.7128 109.6200,61.7181 109.6222,61.7285 109.6219,61.7405 109.6188,61.7536 109.6005,61.7920 109.5938,61.8158 109.5941,61.8498 109.5978,61.8704 109.6037,61.8843 109.6126,61.8936 109.6315,61.8989 109.6438,61.9045 109.6500,61.9098 109.7436,61.9784 109.7561,61.9850 109.7673,61.9884 109.7911,62.0032 109.8042,62.0067 109.8193,62.0077 109.8280,62.0161 109.8539,62.0453 109.8579,62.0531 109.8660,62.0576 109.8737,62.0676 109.8852,62.0884 109.8878,62.0918 109.8923,62.1001 109.8934,62.1018 109.8982,62.1073 109.9039,62.1127 109.9103,62.1175 109.9812,62.1508 109.9930,62.1579 109.9995,62.1635 110.0007,62.1660 110.0017,62.1702 110.0023,62.1781 110.0010,62.1835 109.9989,62.1871 109.9955,62.1904 109.9592,62.2136 109.9457,62.2242 109.9378,62.2326 109.9361,62.2389 109.9395,62.2443 109.9833,62.2676 109.9902,62.2722 109.9957,62.2775 109.9983,62.2846 109.9973,62.2882 109.9924,62.2919 109.9745,62.3007 109.9648,62.3101 109.9612,62.3184 109.9592,62.3296 109.9546,62.3356 109.9474,62.3404 109.9013,62.3509 109.8945,62.3542 109.8928,62.3587 109.9168,62.3943 109.9206,62.4013 109.9182,62.4063 109.9120,62.4104 109.9023,62.4136 109.8775,62.4180 109.8289,62.4195 109.7435,62.4117 109.6461,62.4167 109.5567,62.4314 109.5452,62.4313 109.5353,62.4295 109.5267,62.4266 109.4968,62.4112 109.4870,62.4110 109.4754,62.4147 109.4397,62.4465 109.4266,62.4543 109.4194,62.4578 109.4003,62.4635 109.3368,62.4706 109.3251,62.4731 109.3154,62.4769 109.3059,62.4836 109.3010,62.4907 109.2960,62.5006 109.2893,62.5069 109.2712,62.5181 109.2672,62.5235 109.2670,62.5300 109.2681,62.5367 109.2679,62.5448 109.2634,62.5514 109.2482,62.5654 109.2493,62.5703 109.2564,62.5726 109.3699,62.5770 109.3770,62.5817 109.3815,62.5888 109.3787,62.6139 109.3784,62.6394 109.3830,62.6465 109.3910,62.6505 109.4330,62.6551 109.4415,62.6581 109.4493,62.6618 109.4551,62.6669 109.4594,62.6728 109.4622,62.6789 109.4632,62.6846 109.4638,62.6902 109.4637,62.6956 109.4663,62.7236 109.4662,62.7291 109.4670,62.7347 109.4687,62.7403 109.4727,62.7460 109.4786,62.7511 109.4985,62.7640 109.5058,62.7738 109.5120,62.7766 109.5312,62.7782 109.5398,62.7810 109.5551,62.7886 109.5733,62.7935 109.6231,62.8022 109.6318,62.8050 109.6395,62.8095 109.6448,62.8160 109.6469,62.8262 109.6451,62.8330 109.6413,62.8385 109.6297,62.8525 109.6207,62.8661 109.6144,62.8737 109.6062,62.8793 109.5974,62.8827 109.5283,62.8990 109.4944,62.9130 109.4863,62.9175 109.4796,62.9231 109.4716,62.9318 109.4682,62.9383 109.4662,62.9444 109.4654,62.9496 109.4656,62.9552 109.4663,62.9608 109.4681,62.9670 109.4745,62.9834 109.4749,62.9920 109.4691,62.9959 109.4570,62.9997 109.4563,63.0010 109.4690,63.0096 109.4748,63.0151 109.4763,63.0242 109.4716,63.0292 109.4564,63.0338 109.4510,63.0368 109.4516,63.0409 109.4611,63.0519 109.4645,63.0601 109.4632,63.0727 109.4592,63.0797 109.4516,63.0843 109.4430,63.0861 109.4362,63.0894 109.4347,63.0938 109.4380,63.0991 109.4431,63.1049 109.4476,63.1114 109.4486,63.1199 109.4462,63.1263 109.4406,63.1327 109.4433,63.1380 109.4480,63.1429 109.4530,63.1490 109.4496,63.1529 109.4403,63.1562 109.4290,63.1591 109.4166,63.1666 109.4111,63.1734 109.4075,63.1815 109.4080,63.1876 109.4103,63.1929 109.4158,63.1975 109.4229,63.2014 109.4402,63.2077 109.4479,63.2114 109.4524,63.2175 109.4516,63.2228 109.4482,63.2276 109.4439,63.2321 109.4368,63.2413 109.4321,63.2458 109.4245,63.2494 109.4136,63.2521 109.3892,63.2553 109.3807,63.2573 109.3798,63.2620 109.3827,63.2760 109.3815,63.2855 109.3767,63.3038 109.3765,63.3101 109.3790,63.3160 109.3827,63.3216 109.3833,63.3305 109.3777,63.3394 109.3647,63.3542 109.3529,63.3594 109.3421,63.3601 109.3087,63.3468 109.2998,63.3443 109.2893,63.3447 109.2787,63.3485 109.2669,63.3594 109.2626,63.3684 109.2601,63.3801 109.2577,63.3868 109.2542,63.3925 109.2496,63.3969 109.2440,63.4010 109.2322,63.4117 109.2257,63.4209 109.2235,63.4284 109.2226,63.4372 109.2155,63.4418 109.1737,63.4546 109.1576,63.4622 109.1503,63.4668 109.1431,63.4731 109.1400,63.4789 109.1384,63.4845 109.1384,63.4904 109.1360,63.5041 109.1308,63.5087 109.1217,63.5109 109.1100,63.5125 109.0970,63.5166 109.0833,63.5252 109.0744,63.5360 109.0527,63.5491 109.0422,63.5523 109.0311,63.5533 109.0206,63.5525 109.0030,63.5491 108.9965,63.5488 108.9484,63.5514 108.9374,63.5502 108.8791,63.5374 108.8683,63.5365 108.8571,63.5369 108.8464,63.5392 108.8086,63.5518 108.7581,63.5586 108.7386,63.5648 108.7145,63.5753 108.7055,63.5780 108.6953,63.5791 108.6399,63.5751 108.6282,63.5756 108.6160,63.5782 108.5929,63.5921 108.5833,63.5965 108.5713,63.5985 108.5471,63.5990 108.1596,63.5629 108.1482,63.5637 108.1342,63.5705 108.1249,63.5800 108.1131,63.5987 108.1106,63.6088 108.1120,63.6167 108.1175,63.6216 108.1249,63.6254 108.1338,63.6283 108.1441,63.6300 108.1686,63.6301 108.1797,63.6312 108.1896,63.6332 108.2227,63.6466 108.2526,63.6626 108.2595,63.6672 108.2651,63.6727 108.2691,63.6786 108.2719,63.6847 108.2744,63.6964 108.2757,63.7243 108.2754,63.7298 108.2764,63.7576 108.2778,63.7634 108.2784,63.7691 108.2785,63.7747 108.2771,63.7854 108.2778,63.7908 108.2794,63.7964 108.2837,63.8019 108.2896,63.8069 108.2975,63.8105 108.3552,63.8239 108.3629,63.8244 108.3687,63.8226 108.3710,63.8164 108.3787,63.8122 108.4148,63.8001 108.4230,63.7987 108.4396,63.8007 108.4468,63.8000 108.4588,63.7935 108.4672,63.7910 108.4774,63.7907 108.5951,63.8054 108.6053,63.8044 108.6152,63.7999 108.6207,63.7932 108.6270,63.7885 108.6368,63.7867 108.6477,63.7868 108.6868,63.7954 108.6955,63.7985 108.7033,63.8023 108.7104,63.8066 108.7167,63.8117 108.7260,63.8240 108.7297,63.8302 108.7343,63.8363 108.7469,63.8462 108.7611,63.8551 108.7664,63.8604 108.7674,63.8679 108.7646,63.8733 108.7593,63.8781 108.7523,63.8819 108.7003,63.9030 108.6900,63.9086 108.6879,63.9142 108.6900,63.9202 108.7257,63.9519 108.7310,63.9587 108.7346,63.9665 108.7352,63.9771 108.7315,63.9836 108.7256,63.9888 108.7135,63.9961 108.7080,64.0011 108.7012,64.0055 108.6033,64.0370 108.5925,64.0420 108.5807,64.0505 108.5651,64.0664 108.5485,64.0934 108.5434,64.0998 108.5361,64.1036 108.4950,64.1157 108.4923,64.1201 108.4951,64.1252 108.5300,64.1574 108.5352,64.1636 108.5393,64.1699 108.5403,64.1777 108.5371,64.1828 108.5291,64.1868 108.4935,64.1955 108.4849,64.2001 108.4873,64.2038 108.4941,64.2069 108.5124,64.2127 108.5210,64.2162 108.5281,64.2213 108.5327,64.2275 108.5337,64.2354 108.5284,64.2404 108.5081,64.2492 108.4969,64.2558 108.4675,64.2817 108.4602,64.2854 108.4512,64.2884 108.4409,64.2902 108.3948,64.2910 108.3856,64.2934 108.3777,64.2966 108.3682,64.2991 108.3577,64.2997 108.3484,64.2983 108.3426,64.2955 108.3413,64.2911 108.3413,64.2805 108.3382,64.2743 108.3341,64.2682 108.3285,64.2625 108.3220,64.2576 108.3146,64.2535 108.3062,64.2501 108.2957,64.2483 108.2185,64.2500 108.2185,64.2501 108.1942,64.2506 108.1819,64.2524 108.1512,64.2602 108.1414,64.2606 108.1412,64.2606 108.1404,64.2606 108.0942,64.2481 108.0420,64.2394 108.0348,64.2356 108.0307,64.2319 108.0265,64.2235 107.9941,64.1787 107.9680,64.1700 107.9169,64.1782 107.9060,64.1788 107.8566,64.1816 107.8451,64.1844 107.8366,64.1880 107.8204,64.2006 107.8059,64.2081 107.6873,64.2398 107.6776,64.2435 107.6709,64.2476 107.6669,64.2522 107.6651,64.2572 107.6645,64.2681 107.6629,64.2732 107.6556,64.2793 107.6408,64.2854 107.6077,64.2943 107.5706,64.2986 107.5701,64.2986 107.5697,64.2986 107.5464,64.2970 107.5258,64.2932 107.4541,64.2697 107.3675,64.2506 107.3432,64.2476 107.3289,64.2486 107.3185,64.2513 107.2524,64.2795 107.2453,64.2833 107.2397,64.2874 107.2372,64.2925 107.2370,64.2980 107.2409,64.3105 107.2406,64.3171 107.2364,64.3233 107.2229,64.3302 107.2097,64.3328 107.0978,64.3398 107.0837,64.3431 107.0764,64.3470 107.0718,64.3513 107.0677,64.3560 107.0585,64.3611 107.0443,64.3667 106.9761,64.3821 106.9500,64.3925 106.9431,64.3964 106.9191,64.4057 106.8947,64.4120 106.8784,64.4138 106.8775,64.4138 106.8774,64.4138 106.7651,64.4128 106.7514,64.4150 106.7458,64.4211 106.7470,64.4188 106.7448,64.4211 106.7476,64.4157 106.7363,64.4186 106.7295,64.4225 106.7247,64.4269 106.7177,64.4363 106.7150,64.4412 106.7075,64.4505 106.6924,64.4635 106.6889,64.4682 106.6865,64.4732 106.6829,64.4836 106.6772,64.4898 106.6666,64.4965 106.6412,64.5061 106.6226,64.5104 106.6056,64.5127 106.6048,64.5127 106.6047,64.5127 106.5921,64.5125 106.5815,64.5107 106.5737,64.5072 106.5690,64.5018 106.5672,64.4962 106.5684,64.4909 106.5712,64.4861 106.5822,64.4720 106.5867,64.4674 106.5942,64.4580 106.5949,64.4531 106.5918,64.4486 106.5843,64.4453 106.5743,64.4435 106.5671,64.4434 106.5653,64.4434 106.3952,64.4426 106.3840,64.4413 106.3646,64.4366 106.3469,64.4304 106.3348,64.4281 106.2773,64.4267 106.2639,64.4252 106.2553,64.4221 106.2476,64.4182 106.2340,64.4090 106.2215,64.4051 106.2037,64.4026 106.1705,64.4012 106.1350,64.4044 106.0866,64.4145 106.0765,64.4176 106.0699,64.4215 106.0680,64.4266 106.0702,64.4324 106.0746,64.4381 106.0805,64.4433 106.0886,64.4470 106.0990,64.4488 106.1237,64.4497 106.1328,64.4524 106.1395,64.4567 106.1439,64.4622 106.1454,64.4678 106.1417,64.4742 106.1328,64.4808 106.0709,64.5025 106.0610,64.5073 106.0430,64.5129 106.0290,64.5144 106.0283,64.5144 106.0281,64.5144 106.0158,64.5140 106.0006,64.5101 105.9647,64.4939 105.9545,64.4904 105.9416,64.4883 105.8925,64.4898 105.8922,64.4898 105.8916,64.4898 105.8807,64.4889 105.8496,64.4808 105.8342,64.4792 105.8074,64.4799 105.7969,64.4837 105.7916,64.4887 105.7964,64.5010 105.8004,64.5071 105.8037,64.5132 105.8056,64.5193 105.8056,64.5250 105.8038,64.5301 105.8003,64.5348 105.7954,64.5392 105.7778,64.5516 105.7362,64.5705 105.7272,64.5765 105.7236,64.5821 105.7235,64.5877 105.7273,64.5933 105.7441,64.6088 105.7474,64.6141 105.7468,64.6191 105.7437,64.6239 105.7152,64.6461 105.7087,64.6527 105.7079,64.6584 105.7116,64.6636 105.7196,64.6669 105.7290,64.6681 105.7387,64.6671 105.7471,64.6643 105.7604,64.6565 105.7685,64.6530 105.7784,64.6499 105.8046,64.6458 105.8309,64.6444 105.8314,64.6444 105.8318,64.6444 105.8439,64.6448 105.8546,64.6466 105.8636,64.6495 105.8707,64.6536 105.8763,64.6585 105.8790,64.6643 105.8799,64.6700 105.8775,64.6750 105.8737,64.6795 105.8507,64.6981 105.8436,64.7056 105.8385,64.7136 105.8338,64.7262 105.8309,64.7423 105.8329,64.7596 105.8349,64.7657 105.8447,64.7850 105.8487,64.7913 105.8535,64.7970 105.8660,64.8071 105.8810,64.8153 105.8898,64.8184 105.8999,64.8205 105.9103,64.8210 105.9211,64.8199 105.9477,64.8114 105.9582,64.8096 105.9590,64.8096 105.9592,64.8096 105.9815,64.8105 105.9988,64.8142 106.0031,64.8159 106.0076,64.8188 106.0079,64.8227 106.0061,64.8268 106.0030,64.8308 105.9690,64.8512 105.9620,64.8587 105.9576,64.8655 105.9553,64.8710 105.9471,64.8835 105.9471,64.8892 105.9517,64.8939 105.9601,64.8971 105.9988,64.9041 106.0261,64.9052 106.0381,64.9036 106.0470,64.9004 106.0538,64.8966 106.0748,64.8784 106.0950,64.8650 106.1069,64.8606 106.1943,64.8497 106.1950,64.8498 106.1952,64.8497 106.2074,64.8502 106.2164,64.8527 106.2212,64.8572 106.2199,64.8627 106.2146,64.8688 106.2030,64.8767 106.1919,64.8816 106.1401,64.8947 106.1299,64.8997 106.1237,64.9048 106.1185,64.9148 106.1085,64.9292 106.1058,64.9340 106.0984,64.9434 105.9848,65.0026 105.9737,65.0118 105.9753,65.0169 105.9787,65.0223 105.9843,65.0280 105.9908,65.0332 105.9975,65.0376 106.0276,65.0502 106.1570,65.0867 106.1658,65.0909 106.1726,65.0962 106.1769,65.1015 106.1862,65.1177 106.1904,65.1229 106.1958,65.1274 106.2046,65.1302 106.2259,65.1331 106.2718,65.1353 106.2825,65.1368 106.2900,65.1398 106.2952,65.1444 106.3035,65.1552 106.3092,65.1609 106.3407,65.1838 106.3749,65.2042 106.3942,65.2107 106.4153,65.2148 106.4263,65.2153 106.4382,65.2147 106.4883,65.2048 106.4982,65.2047 106.4983,65.2047 106.4992,65.2047 106.5045,65.2083 106.4992,65.2121 106.4748,65.2211 106.4546,65.2330 106.4486,65.2382 106.4376,65.2501 106.4306,65.2591 106.4270,65.2657 106.4256,65.2716 106.4262,65.2767 106.4289,65.2871 106.4309,65.2923 106.4340,65.2978 106.4382,65.3032 106.4444,65.3085 106.4524,65.3131 106.5355,65.3490 106.5428,65.3538 106.5471,65.3585 106.5493,65.3635 106.5506,65.3685 106.5530,65.3731 106.5589,65.3768 106.5992,65.3814 106.6066,65.3838 106.6159,65.3912 106.6248,65.3930 106.6353,65.3929 106.7402,65.3780 106.7411,65.3780 106.7619,65.3780 106.7706,65.3766 106.7876,65.3712 106.7982,65.3702 106.7988,65.3702 106.7991,65.3702 106.8100,65.3707 106.8207,65.3724 106.8298,65.3751 106.8365,65.3783 106.8364,65.3889 106.8393,65.3929 106.8547,65.4000 106.8613,65.4046 106.8635,65.4095 106.8650,65.4146 106.8653,65.4197 106.8669,65.4248 106.8697,65.4302 106.8736,65.4355 106.8784,65.4406 106.9439,65.4821 106.9519,65.4883 106.9576,65.4947 106.9591,65.5022 106.9519,65.5072 106.9409,65.5112 106.7141,65.5489 106.7038,65.5519 106.6992,65.5562 106.6992,65.5610 106.7016,65.5663 106.7066,65.5718 106.7106,65.5778 106.7131,65.5839 106.7124,65.5913 106.7068,65.5964 106.6986,65.6006 106.6376,65.6089 106.6292,65.6114 106.6300,65.6148 106.6431,65.6214 106.6463,65.6270 106.6416,65.6313 106.6319,65.6348 106.5703,65.6395 106.5186,65.6515 106.4405,65.6617 106.4275,65.6666 106.4213,65.6714 106.4184,65.6764 106.4157,65.6912 106.4159,65.6962 106.4181,65.7015 106.4228,65.7066 106.4298,65.7113 106.4559,65.7245 106.4630,65.7299 106.4654,65.7376 106.4646,65.7469 106.4553,65.7628 106.4518,65.7717 106.4512,65.7786 106.4542,65.7836 106.4664,65.7941 106.4698,65.8009 106.4672,65.8096 106.4565,65.8190 106.4542,65.8257 106.4561,65.8315 106.4635,65.8362 106.4717,65.8405 106.4788,65.8452 106.4821,65.8502 106.4834,65.8553 106.4825,65.8603 106.4781,65.8697 106.4772,65.8746 106.4807,65.8909 106.4735,65.9153 106.4701,65.9221 106.4689,65.9270 106.4691,65.9320 106.4717,65.9374 106.4843,65.9539 106.4850,65.9590 106.4841,65.9640 106.4770,65.9782 106.4770,65.9833 106.4759,65.9934 106.4722,66.0074 106.4537,66.0369 106.4275,66.0627 106.4224,66.0689 106.4182,66.0762 106.4129,66.0814 106.3848,66.0992 106.3696,66.1120 106.3634,66.1197 106.3593,66.1262 106.3589,66.1322 106.3566,66.1387 106.3513,66.1475 106.3425,66.1524 106.3313,66.1545 106.3306,66.1544 106.3304,66.1545 106.2366,66.1496 106.2117,66.1511 106.1723,66.1592 106.1582,66.1645 106.1449,66.1715 106.1272,66.1842 106.1206,66.1919 106.1175,66.1986 106.1194,66.2089 106.1229,66.2194 106.1284,66.2301 106.1327,66.2406 106.1378,66.2467 106.1402,66.2538 106.1398,66.2629 106.1303,66.2733 106.1203,66.2919 106.1197,66.2985 106.1212,66.3097 106.1206,66.3152 106.1147,66.3204 106.1058,66.3268 106.1013,66.3322 106.1003,66.3376 106.1019,66.3478 106.1024,66.3580 106.1015,66.3680 106.1018,66.3730 106.1043,66.3783 106.1107,66.3840 106.1328,66.4008 106.1373,66.4060 106.1426,66.4111 106.1772,66.4298 106.1872,66.4334 106.2342,66.4373 106.2455,66.4398 106.3052,66.4612 106.3139,66.4660 106.3198,66.4716 106.3229,66.4789 106.3201,66.4844 106.3144,66.4897 106.3069,66.4948 106.2990,66.5013 106.2970,66.5069 106.2993,66.5126 106.3052,66.5184 106.3095,66.5258 106.3108,66.5349 106.3051,66.5497 106.2990,66.5586 106.2850,66.5688 106.2503,66.5815 106.2447,66.5920 106.2458,66.6022 106.2448,66.6109 106.2340,66.6454 106.2318,66.6571 106.2342,66.6662 106.2383,66.6717 106.2497,66.6835 106.2540,66.6899 106.2550,66.6973 106.2478,66.7022 106.1648,66.7212 106.1525,66.7265 106.1470,66.7329 106.1437,66.7405 106.1412,66.7520 106.1443,66.7588 106.1516,66.7641 106.1711,66.7710 106.1808,66.7763 106.1882,66.7827 106.1906,66.7941 106.1853,66.8006 106.1748,66.8054 106.1618,66.8075 106.1489,66.8080 106.1488,66.8080 106.1480,66.8080 106.0474,66.7890 106.0360,66.7880 106.0232,66.7888 106.0098,66.7918 105.9966,66.7973 105.9925,66.8025 105.9934,66.8078 105.9977,66.8126 106.0021,66.8161 106.0612,66.8494 106.0687,66.8549 106.0736,66.8629 106.0743,66.8723 106.0675,66.8883 106.0576,66.8960 106.0446,66.9008 105.9551,66.9037 105.9130,66.9100 105.8737,66.9225 105.8418,66.9376 105.8233,66.9444 105.8079,66.9469 105.8074,66.9468 105.8069,66.9469 105.7619,66.9399 105.7141,66.9372 105.6877,66.9395 105.6619,66.9482 105.6286,66.9628 105.5626,66.9994 105.5444,67.0146 105.5411,67.0234 105.8948,67.0437 105.9691,67.0634 105.9871,67.0731 105.9944,67.0781 105.9996,67.0824 106.0027,67.0857 106.0208,67.1109 106.0262,67.1220 106.0318,67.1377 106.0412,67.1565 106.0470,67.1627 106.0557,67.1672 106.1458,67.1827 106.2213,67.1838 106.2327,67.1857 106.3176,67.2094 106.3859,67.2535 106.4051,67.2627 106.4933,67.2838 106.5049,67.2853 106.5301,67.2845 106.5845,67.2739 106.5948,67.2701 106.6350,67.2487 106.6441,67.2454 106.6555,67.2442 106.6560,67.2442 106.6565,67.2442 106.6678,67.2454 106.6777,67.2489 106.6862,67.2539 106.7381,67.2995 106.7907,67.3346 106.7996,67.3421 106.8034,67.3482 106.8044,67.3540 106.8043,67.3594 106.8055,67.3712 106.8035,67.3913 106.8043,67.4014 106.8165,67.4542 106.8214,67.4907 106.8208,67.5035 106.8213,67.5086 106.8211,67.5136 106.8220,67.5188 106.8223,67.5238 106.8241,67.5345 106.8291,67.6185 106.8316,67.6312 106.8323,67.6412 106.8314,67.6562 106.8338,67.6734 106.8761,67.8396 106.8765,67.8466 106.8762,67.8516 106.8770,67.8617 106.8789,67.8720 106.8792,67.8770 106.8799,67.8821 106.8799,67.8871 106.8805,67.8921 106.8801,67.9022 106.8806,67.9073 106.8806,67.9123 106.8812,67.9174 106.8801,67.9272 106.8817,68.0129 106.8824,68.0184 106.8826,68.0234 106.8846,68.0337 106.8848,68.0387 106.8857,68.0438 106.8858,68.0488 106.8950,68.1093 106.8966,68.1426 106.8780,68.3132 106.8790,68.3399 106.8777,68.3579 106.8778,68.3653 106.8789,68.3756 106.8941,68.4435 106.8922,68.8554 106.8910,68.8599 106.8864,68.8655 106.5703,69.0923 106.2541,69.3192 106.1539,69.3911 106.1411,69.4044 106.1406,69.4163 106.1463,69.4231 106.1563,69.4280 106.2750,69.4548 106.2852,69.4588 106.2936,69.4637 106.2987,69.4688 106.3014,69.4745 106.3055,69.4882 106.3102,69.4946 106.3179,69.5008 106.3838,69.5391 106.4278,69.5639 106.4562,69.5713 106.4841,69.5696 106.5124,69.5631 106.5415,69.5509 106.5484,69.5466 106.5541,69.5421 106.5623,69.5330 106.5679,69.5281 106.5763,69.5235 106.5902,69.5189 106.6044,69.5172 106.6053,69.5172 106.6053,69.5172 106.8395,69.5182 106.8626,69.5246 106.9494,69.5382 107.1247,69.5875 107.4551,69.6359 107.7855,69.6843 107.8121,69.6849 107.8928,69.6777 107.8932,69.6778 107.8937,69.6777 107.9262,69.6812 108.0082,69.7050 108.0156,69.7080 108.0185,69.7119 108.0179,69.7164 108.0159,69.7211 108.0144,69.7260 108.0138,69.7308 108.0138,69.7358 108.0150,69.7410 108.0169,69.7461 108.0199,69.7514 108.0246,69.7568 108.0382,69.7680 108.0554,69.7795 108.1496,69.8248 108.2530,69.8522 108.2914,69.8568 108.4740,69.8538 108.5984,69.8366 108.5992,69.8367 108.5993,69.8366 108.8711,69.8403 108.8819,69.8380 108.8891,69.8343 108.9250,69.7978 108.9323,69.7934 108.9410,69.7892 109.0450,69.7730 109.1295,69.7678 109.1300,69.7678 109.1304,69.7678 109.2175,69.7721 109.2379,69.7759 109.2597,69.7852 109.2797,69.7961 109.3041,69.8133 109.3282,69.8256 109.3607,69.8382 109.3675,69.8437 109.3719,69.8488 109.3753,69.8541 109.3854,69.8648 109.4128,69.8871 109.4159,69.8922 109.4108,69.8967 109.3914,69.9051 109.3842,69.9095 109.3817,69.9142 109.3820,69.9192 109.3832,69.9243 109.3861,69.9295 109.3972,69.9403 109.4191,69.9572 109.4316,69.9731 109.4372,69.9786 109.4473,69.9846 109.4603,69.9906 109.4808,69.9973 109.4898,70.0014 109.4966,70.0061 109.5065,70.0236 109.5086,70.0284 109.5100,70.0335 109.5093,70.0382 109.5059,70.0419 109.4966,70.0435 109.4424,70.0438 109.4122,70.0488 109.3991,70.0524 109.3590,70.0690 109.3527,70.0734 109.3474,70.0779 109.3437,70.0826 109.3413,70.0874 109.3410,70.0924 109.3430,70.0975 109.3496,70.1080 109.3496,70.1130 109.3471,70.1177 109.3247,70.1358 109.2977,70.1535 109.2763,70.1715 109.2719,70.1762 109.2703,70.1810 109.2700,70.1860 109.2715,70.1911 109.2783,70.2065 109.2825,70.2123 109.2899,70.2181 109.3036,70.2245 109.3174,70.2271 109.3601,70.2298 109.5364,70.2640 109.5566,70.2748 109.5643,70.2804 109.5932,70.3076 109.5971,70.3129 109.5993,70.3181 109.5975,70.3279 109.5925,70.3325 109.5853,70.3368 109.5579,70.3496 109.5547,70.3543 109.5619,70.3607 109.5761,70.3680 109.6025,70.3782 109.6211,70.3818 109.6381,70.3836 109.6948,70.3843 109.8191,70.4048 109.8379,70.4052 109.8824,70.4024 109.8827,70.4024 109.8834,70.4024 109.9964,70.4169 110.0009,70.4171 110.0626,70.4115 110.0630,70.4115 110.0635,70.4115 110.1433,70.4207 110.2397,70.4184 110.2398,70.4185 110.2407,70.4184 110.2542,70.4224 110.2641,70.4274 110.2708,70.4329 110.2746,70.4381 110.2758,70.4431 110.2731,70.4479 110.2643,70.4523 110.2379,70.4596 110.1177,70.4780 110.1115,70.4823 110.1106,70.4872 110.1122,70.4923 110.1171,70.5026 110.1186,70.5076 110.1190,70.5126 110.1187,70.5176 110.1178,70.5225 110.1149,70.5272 110.1096,70.5318 110.0735,70.5442 110.0652,70.5486 110.0652,70.5537 110.0734,70.5551 110.1270,70.5532 110.1270,70.5532 110.1279,70.5532 110.1338,70.5557 110.1360,70.5597 110.1341,70.5643 110.1237,70.5785 110.1214,70.5833 110.1203,70.5882 110.1192,70.5980 110.1183,70.6029 110.1156,70.6076 110.1124,70.6123 110.1037,70.6215 110.1019,70.6266 110.1037,70.6319 110.1901,70.6652 110.2435,70.6723 110.2589,70.6767 110.2703,70.6819 110.2768,70.6877 110.2854,70.6935 110.2979,70.7002 110.3118,70.7027 110.4287,70.7079 110.4747,70.7156 110.4847,70.7206 110.4899,70.7260 110.4885,70.7309 110.4878,70.7358 110.4860,70.7406 110.4837,70.7552 110.4799,70.7649 110.4799,70.7698 110.4847,70.7759 110.4934,70.7829 110.5108,70.7924 110.5257,70.7974 110.5404,70.8006 110.5648,70.8018 110.5961,70.8033 110.6317,70.8002 110.6326,70.8002 110.6327,70.8002 110.6569,70.8004 110.6803,70.8052 110.7014,70.8121 110.7269,70.8141 110.7503,70.8136 110.7667,70.8113 110.7762,70.8079 110.7841,70.8038 110.7990,70.8007 110.7999,70.8008 110.7999,70.8007 110.8621,70.8014 110.9038,70.8079 110.9843,70.8340 111.0731,70.8480 111.3359,70.8553 111.3525,70.8590 111.3650,70.8639 111.3714,70.8692 111.3801,70.8797 111.3938,70.8906 111.4180,70.9038 111.4802,70.9279 111.5234,70.9386 111.9543,70.9823 111.9812,70.9887 111.9999,70.9968 112.0050,70.9999 112.0074,71.0026 112.0118,71.0112 112.0134,71.0161 112.0239,71.0366 112.0275,71.0423 112.0351,71.0482 112.0489,71.0554 112.0628,71.0594 112.0771,71.0612 112.1056,71.0601 112.1201,71.0580 112.1327,71.0545 112.1415,71.0503 112.1482,71.0458 112.1530,71.0411 112.1648,71.0321 112.1698,71.0274 112.1763,71.0180 112.1804,71.0133 112.1870,71.0088 112.1963,71.0049 112.2120,71.0006 112.2176,70.9998 112.2181,70.9998 112.2185,70.9998 112.2504,71.0033 112.2647,71.0075 112.2776,71.0127 112.3394,71.0485 112.3652,71.0589 112.3836,71.0629 112.4006,71.0646 112.4539,71.0639 112.4540,71.0639 112.4549,71.0639 112.4785,71.0693 112.5565,71.0966 112.5739,71.1064 112.5803,71.1137 112.5236,71.1445 112.5177,71.1491 112.5160,71.1550 112.5196,71.1617 112.5389,71.1721 112.5541,71.1777 112.6599,71.2027 112.6827,71.2106 112.6958,71.2173 112.7085,71.2378 112.7104,71.2429 112.7066,71.2475 112.6960,71.2514 112.6682,71.2577 112.6575,71.2615 112.6513,71.2659 112.6478,71.2706 112.6460,71.2754 112.6429,71.2801 112.6375,71.2843 112.6291,71.2876 112.6180,71.2885 112.6174,71.2884 112.6170,71.2885 112.6041,71.2877 112.5132,71.2679 112.5021,71.2672 112.4934,71.2690 112.4885,71.2727 112.4848,71.2771 112.4772,71.2816 112.4662,71.2858 112.4215,71.2955 112.4097,71.2993 112.3801,71.3169 112.3417,71.3342 112.0056,71.4050 112.0010,71.4078 111.9979,71.4136 111.9975,71.7732 111.9970,72.1327 111.9961,72.1327 111.9961,72.1327 111.8180,72.1317 111.7831,72.1378 111.7646,72.1435 111.7534,72.1485 111.7471,72.1535 111.7428,72.1583 111.7407,72.1631 111.7347,72.1725 111.7304,72.1772 111.7273,72.1818 111.7248,72.1867 111.7236,72.1969 111.7212,72.2018 111.7154,72.2062 111.6355,72.2091 111.6191,72.2130 111.6153,72.2183 111.6327,72.2342 111.6416,72.2446 111.6481,72.2549 111.6501,72.2600 111.6501,72.2650 111.6476,72.2696 111.6438,72.2745 111.5773,72.3093 111.5564,72.3165 111.5376,72.3190 111.5369,72.3190 111.5367,72.3190 111.4178,72.3145 111.3376,72.3204 111.3241,72.3250 111.3142,72.3309 111.3040,72.3339 111.0862,72.3696 111.0684,72.3752 111.0577,72.3806 111.0558,72.3854 111.0552,72.3903 111.0551,72.3953 111.0560,72.4002 111.0588,72.4050 111.0667,72.4095 111.1167,72.4249 111.1570,72.4335 111.1680,72.4372 111.1752,72.4420 111.1846,72.4521 111.1917,72.4567 111.2819,72.4783 111.2903,72.4825 111.2937,72.4872 111.2962,72.4923 111.2968,72.4977 111.2963,72.5033 111.2898,72.5105 111.2558,72.5245 111.2394,72.5338 111.2112,72.5445 111.0105,72.5741 110.9899,72.5751 110.9896,72.5750 110.9889,72.5751 110.9589,72.5714 110.9299,72.5711 110.8963,72.5757 110.8816,72.5802 110.8821,72.5851 110.8847,72.5900 110.8783,72.6009 110.8808,72.6051 110.9016,72.6132 110.9101,72.6186 110.9106,72.6253 110.9007,72.6297 110.8862,72.6325 110.7540,72.6394 110.7327,72.6428 110.7026,72.6504 110.6893,72.6563 110.6797,72.6618 110.6705,72.6711 110.6637,72.6804 110.6609,72.6853 110.6596,72.6901 110.6574,72.6949 110.6562,72.6999 110.6540,72.7047 110.6528,72.7096 110.6505,72.7144 110.6491,72.7193 110.6314,72.7478 110.6296,72.7526 110.6116,72.7810 110.6097,72.7858 110.6110,72.7908 110.6170,72.7954 110.6277,72.7994 110.6806,72.8132 110.6910,72.8192 110.6962,72.8260 110.6930,72.8354 110.6803,72.8414 110.6443,72.8517 110.6353,72.8566 110.6315,72.8617 110.6315,72.8674 110.6346,72.8737 110.6299,72.8827 110.6281,72.8891 110.6283,72.8945 110.6371,72.8988 110.6494,72.9019 110.7373,72.9125 110.8382,72.9451 110.8412,72.9496 110.8313,72.9512 110.8184,72.9516 110.8018,72.9539 110.7862,72.9665 110.7742,72.9785 110.7587,72.9872 110.7543,72.9935 110.7535,72.9975 110.7546,72.9995 110.7549,72.9997 110.7599,73.0019 110.7807,73.0086 110.8822,73.0229 110.8952,73.0267 110.9050,73.0324 110.9066,73.0436 110.9022,73.0505 110.8932,73.0562 110.8541,73.0699 110.8409,73.0762 110.8345,73.0816 110.8308,73.0867 110.8299,73.0917 110.8279,73.0984 110.8240,73.1065 110.8125,73.1210 110.7872,73.1407 110.7843,73.1472 110.7843,73.1535 110.7850,73.1594 110.7818,73.1664 110.7714,73.1713 110.7559,73.1752 110.4254,73.1838 110.4059,73.1887 110.3978,73.1936 110.3959,73.1988 110.4000,73.2037 110.4102,73.2085 110.5717,73.2525 110.5838,73.2573 110.5935,73.2635 110.5983,73.2703 110.5958,73.2798 110.5869,73.2862 110.5587,73.2984 110.5366,73.3168 110.5068,73.3256 110.4046,73.3341 110.1855,73.3831 110.1586,73.3950 110.1592,73.3991 110.1690,73.4010 110.5241,73.4041 110.5387,73.4062 110.5661,73.4136 110.6169,73.4335 110.6556,73.4557 110.6820,73.4773 110.7098,73.4937 110.7219,73.4985 110.7753,73.5101 110.7872,73.5276 110.8188,73.5589 110.8283,73.5635 110.8558,73.5682 110.9883,73.5653 110.9885,73.5653 110.9892,73.5653 111.0199,73.5686 111.0740,73.5829 111.0859,73.5876 111.0949,73.5928 111.1008,73.5980 111.1043,73.6032 111.1090,73.6081 111.1239,73.6204 111.1251,73.6297 111.1205,73.6359 111.1115,73.6411 111.0576,73.6552 110.9329,73.6879 110.9149,73.6902 110.9087,73.6917 110.9261,73.7039 110.9199,73.7150 110.9198,73.7151 110.8857,73.7256 110.8808,73.7309 110.8777,73.7343 110.8826,73.7452 110.8942,73.7547 110.9079,73.7618 110.9193,73.7654 110.9183,73.7654 110.9189,73.7656 110.8787,73.7679 110.9283,73.7877 111.0119,73.8110 111.2817,73.8597 111.3003,73.8672 111.3005,73.8673 111.6388,73.9354 111.6835,74.0695 111.3409,74.2781 111.3856,74.4270 111.8077,74.5413 112.2298,74.6555 112.6518,74.7697 113.1141,74.8273 113.5764,74.8848 114.0387,74.9424 114.5010,75.0000 114.5010,75.5000 114.5010,76.0000 114.5010,76.5000 114.5010,77.0000 114.5010,77.5000 114.5010,78.0000 115.0009,78.0000 115.5008,78.0000 116.0007,78.0000 116.5006,78.0000 117.0006,78.0000 117.5005,78.0000 118.0004,78.0000 118.5003,78.0000 119.0002,78.0000 119.5002,78.0000 120.0001,78.0000 120.5000,78.0000 120.5010,78.0000 120.9694,78.1332 121.4378,78.2665 121.9063,78.3997 122.3747,78.5329 122.8432,78.6662 123.3116,78.7994 123.7801,78.9326 124.2485,79.0659 124.7169,79.1991 125.1854,79.3323 125.6538,79.4655 126.1223,79.5988 126.5907,79.7320 127.0592,79.8652 127.5276,79.9985 128.0273,79.9985 128.5270,79.9985 129.0268,79.9985 129.5265,79.9985 130.0262,79.9985 130.5260,79.9985 131.0257,79.9985 131.5254,79.9985 132.0251,79.9985 132.5249,79.9985 133.0246,79.9985 133.5243,79.9985 134.0240,79.9985 134.5238,79.9985 135.0235,79.9985 135.5232,79.9985 136.0230,79.9985 136.5227,79.9985 137.0224,79.9985 137.5221,79.9985 138.0219,79.9985 138.5216,79.9985 139.0213,79.9985 139.5210,79.9985 140.0208,79.9985 140.5205,79.9985 141.0202,79.9985 141.5200,79.9985 142.0197,79.9985 142.5194,79.9985 142.5194,80.4886 142.5194,80.9788 142.5194,81.4689 142.5194,81.9591 142.5194,82.4492 142.5194,82.9394 142.5194,83.4295 142.5194,83.9197 142.5194,84.4098 142.5194,84.9000 142.5194,85.3636 142.5194,85.8273 142.5194,86.2909 142.5194,86.7545 142.5194,87.2182 142.5194,87.6818 142.5194,88.1455 142.5194,88.6091 142.5194,89.0727 142.5194,89.5364 142.5194,90.0000 142.9602,90.0000 143.4010,90.0000 143.8418,90.0000 144.2827,90.0000 144.7235,90.0000 145.1643,90.0000 145.6051,90.0000 146.0459,90.0000 146.4867,90.0000 146.9275,90.0000 147.3684,90.0000 147.8092,90.0000 148.2500,90.0000 148.6908,90.0000 149.1316,90.0000 149.5724,90.0000 150.0132,90.0000 150.4541,90.0000 150.8949,90.0000 151.3357,90.0000 151.7765,90.0000 152.2173,90.0000 152.6581,90.0000 153.0989,90.0000 153.5397,90.0000 153.9806,90.0000 154.4214,90.0000 154.8622,90.0000 155.3030,90.0000 155.7438,90.0000 156.1846,90.0000 156.6254,90.0000 157.0663,90.0000 157.5071,90.0000 157.5071,89.5364 157.5071,89.0727 157.5071,88.6091 157.5071,88.1455 157.5071,87.6818 157.5071,87.2182 157.5071,86.7545 157.5071,86.2909 157.5071,85.8273 157.5071,85.3636 157.5071,84.9000 157.5071,84.4455 157.5071,83.9909 157.5071,83.5364 157.5071,83.0818 157.5071,82.6273 157.5071,82.1727 157.5071,81.7182 157.5071,81.2636 157.5071,80.8091 157.5071,80.3545 157.5071,79.9000 157.5072,79.4366 157.5073,78.9731 157.5074,78.5097 157.5075,78.0462 157.5076,77.5828 157.5077,77.1194 157.5078,76.6559 1014,10.0,Australia/Sydney 157.5082,43.7928 157.5082,43.3382 157.5082,42.8837 157.5082,42.4291 157.5082,41.9746 157.5082,41.5200 157.5082,41.0655 157.5082,40.6109 157.5082,40.1564 157.5082,39.7019 157.5082,39.2473 157.5082,38.7928 157.5082,38.3382 157.5082,37.8837 157.5082,37.4291 157.5082,36.9746 157.5082,36.5200 157.5082,36.0655 157.5082,35.6109 157.5082,35.1564 157.5082,34.7019 157.5082,34.2473 157.5082,33.7928 157.5082,33.3382 157.5082,32.8837 157.5082,32.4291 157.5082,31.9746 157.5082,31.5200 157.5082,31.0655 157.5082,30.6109 157.5082,30.1564 157.5082,29.7019 157.5082,29.2473 157.5082,28.7928 157.5082,28.3382 157.5082,27.8837 157.5082,27.4291 157.5082,26.9746 157.5082,26.5200 157.5082,26.0655 157.5082,25.6109 157.5082,25.1564 157.5082,24.7019 157.5082,24.2473 157.5082,23.7928 157.5082,23.3382 157.5082,22.8837 157.5082,22.4291 157.5082,21.9746 157.5082,21.5200 157.5082,21.0655 157.5082,20.6109 157.5082,20.1564 157.5082,19.7019 157.5082,19.2473 157.5082,18.7928 157.5082,18.3446 157.5082,17.8964 157.5082,17.4482 157.5082,17.0000 157.5082,16.5455 157.5082,16.0909 157.5082,15.6364 157.5082,15.1818 157.5082,14.7273 157.5082,14.2727 157.5082,13.8182 157.5082,13.3636 157.5082,12.9091 157.5082,12.4545 157.5082,12.0000 157.0693,12.0000 156.6304,11.9999 156.1915,11.9999 155.7525,11.9999 155.3136,11.9998 154.8747,11.9998 154.4358,11.9997 153.9968,11.9997 153.9968,11.5190 153.9968,11.0383 153.9968,10.5576 153.9968,10.0769 153.9968,9.5962 153.9968,9.1155 153.9968,8.6348 153.9968,8.1541 153.9968,7.6734 153.9969,7.1927 153.9969,6.7120 153.9969,6.2313 153.9969,5.7506 153.9969,5.2698 153.9969,4.7891 153.9969,4.3084 153.9969,3.8277 153.9969,3.3470 153.9969,2.8663 153.9969,2.3856 153.9969,1.9049 153.9969,1.4242 153.9969,0.9435 153.9969,0.4628 153.9969,-0.0179 154.3975,-0.0185 154.7981,-0.0190 155.1987,-0.0196 155.5994,-0.0201 156.0000,-0.0207 156.3794,-0.0212 156.7588,-0.0217 157.1382,-0.0222 157.5176,-0.0228 157.5176,-0.4687 157.5176,-0.9146 157.5176,-1.3605 157.5176,-1.8065 157.5176,-2.2524 157.5176,-2.6983 157.5176,-3.1442 157.5176,-3.5902 157.9394,-3.5902 158.3611,-3.5902 158.7829,-3.5902 159.2046,-3.5902 159.6264,-3.5902 160.0482,-3.5902 160.0518,-3.9848 160.0554,-4.3794 160.0590,-4.7740 159.6029,-4.7984 159.1468,-4.8227 158.6907,-4.8470 158.2347,-4.8713 157.8761,-5.1453 157.5176,-5.4193 157.1472,-5.7020 156.7767,-5.9847 156.4063,-6.2673 156.0358,-6.5500 156.0395,-6.6511 156.0397,-6.6583 155.9231,-6.8472 155.6936,-6.9258 155.5994,-6.9258 155.5117,-6.9806 155.1122,-7.2467 155.1076,-7.2545 155.0934,-7.2784 155.0556,-7.3421 154.8206,-7.7385 154.5856,-8.1350 154.8192,-8.4288 155.0529,-8.7227 155.2866,-9.0165 155.5544,-9.3533 155.8221,-9.6901 156.0899,-10.0268 156.3577,-10.3636 156.6255,-10.7004 156.8933,-11.0371 157.1611,-11.3739 157.3394,-11.8046 157.5176,-12.2353 157.5176,-12.3192 157.5176,-12.7905 157.5176,-13.2618 157.5176,-13.7331 157.5176,-14.2044 157.5176,-14.6589 157.5176,-15.1135 157.5176,-15.5680 157.5176,-16.0225 157.5176,-16.4771 157.5176,-16.9316 157.5176,-17.3862 157.5176,-17.8407 157.5176,-18.2953 157.5176,-18.7498 157.5176,-19.2044 157.5176,-19.6589 157.5176,-20.1135 157.5176,-20.5680 157.5176,-21.0225 157.5176,-21.4771 157.5176,-21.9316 157.5176,-22.3862 157.5176,-22.8407 157.5176,-23.2953 157.5176,-23.7498 157.5176,-24.2044 157.5176,-24.6589 157.5176,-25.1135 157.5176,-25.5680 157.5176,-26.0225 157.5176,-26.4771 157.5176,-26.9316 157.5176,-27.3862 157.5176,-27.8407 157.5176,-28.2953 157.5176,-28.7498 157.5176,-29.2044 157.5176,-29.6589 157.5176,-30.1135 157.5176,-30.5680 157.5176,-31.0225 157.5176,-31.4771 157.5176,-31.9316 157.5176,-32.3862 157.5176,-32.8407 157.5176,-33.2953 157.5176,-33.7498 157.5176,-34.2044 157.5176,-34.6589 157.5176,-35.1135 157.5176,-35.5680 157.5176,-36.0225 157.5176,-36.4771 157.5176,-36.9316 157.5176,-37.3862 157.5176,-37.8407 157.5176,-38.2953 157.5176,-38.7498 157.5176,-39.2044 157.5176,-39.3044 157.5176,-39.7589 157.5176,-40.2135 157.5176,-40.6680 157.5176,-41.1225 157.5176,-41.5771 157.5176,-42.0316 157.5176,-42.4862 157.5176,-42.9407 157.5176,-43.3953 157.5176,-43.8498 157.5176,-44.3044 157.5176,-44.7589 157.5176,-45.2135 157.5176,-45.6680 157.5176,-46.1225 157.5176,-46.5771 157.5176,-47.0316 157.5176,-47.4862 157.5176,-47.9407 157.5176,-48.3953 157.5176,-48.8498 157.5176,-49.3044 157.5176,-49.7589 157.5176,-50.2135 157.5176,-50.6680 157.5176,-51.1225 157.5176,-51.5771 157.5176,-52.0316 157.5176,-52.4862 157.5176,-52.9407 157.5176,-53.3953 157.5176,-53.8498 157.5176,-54.3044 157.5176,-54.7744 157.5176,-55.2444 157.5176,-55.7144 157.5176,-56.1844 157.5176,-56.6544 157.5176,-57.1244 157.5176,-57.5944 157.5176,-58.0644 157.5176,-58.5344 157.5176,-59.0044 157.5176,-59.4589 157.5176,-59.9135 157.5176,-60.3680 157.5176,-60.8225 157.5176,-61.2771 157.5176,-61.7316 157.5176,-62.1862 157.5176,-62.6407 157.5176,-63.0953 157.5176,-63.5498 157.5176,-64.0044 157.5176,-64.4589 157.5176,-64.9135 157.5176,-65.3680 157.5176,-65.8225 157.5176,-66.2771 157.5176,-66.7316 157.5176,-67.1862 157.5176,-67.6407 157.5176,-68.0953 157.5176,-68.5498 157.5176,-69.0044 157.5176,-69.0337 157.4720,-69.0364 157.2121,-68.9899 157.0409,-68.9783 156.9232,-68.9826 156.7587,-69.0056 156.5764,-69.0069 156.5511,-69.0071 156.5056,-69.0019 156.3956,-68.9718 156.2530,-68.8815 156.1613,-68.8445 156.0664,-68.8165 155.9112,-68.7890 155.6403,-68.7745 155.3541,-68.7185 155.2247,-68.6393 155.2121,-68.5913 155.1315,-68.4648 154.9884,-68.3822 154.8854,-68.3450 154.6612,-68.3013 154.2706,-68.1790 154.0436,-68.1297 153.8511,-68.1107 153.6756,-68.1158 153.4959,-68.1466 153.3662,-68.1950 153.2855,-68.2558 153.2429,-68.3333 153.2409,-68.3862 153.2838,-68.4791 153.2531,-68.5453 153.2622,-68.5920 153.2038,-68.6202 153.0869,-68.6385 152.9508,-68.6110 152.8206,-68.5931 152.6793,-68.5608 152.5283,-68.5408 152.4461,-68.5361 152.2370,-68.5450 152.1212,-68.5197 152.0170,-68.5067 151.9058,-68.5038 151.7469,-68.5110 151.6871,-68.5045 151.6448,-68.4893 151.6100,-68.4664 151.5021,-68.3370 151.4031,-68.2690 151.3336,-68.2390 151.2517,-68.2148 151.1607,-68.1969 151.0632,-68.1855 150.9180,-68.1803 150.7870,-68.1869 150.6483,-68.2067 150.4226,-68.2616 150.1984,-68.2673 150.1126,-68.2612 150.0074,-68.2247 149.9261,-68.2067 149.7632,-68.1904 149.6401,-68.1942 149.4663,-68.2202 149.3162,-68.2243 149.1769,-68.2406 149.0480,-68.2418 148.9183,-68.2558 148.7487,-68.2421 148.6646,-68.2411 148.5589,-68.2483 148.4344,-68.2679 148.2881,-68.2528 148.1535,-68.2526 148.0083,-68.2196 147.8968,-68.2077 147.6095,-68.1962 147.4810,-68.2023 147.4706,-68.1855 147.5076,-68.1151 147.5084,-68.0605 147.4816,-67.9985 147.4342,-67.9562 147.3943,-67.9355 147.2948,-67.9031 147.2478,-67.8611 147.1833,-67.8283 147.0804,-67.7934 146.9619,-67.7657 146.9145,-67.7040 146.8068,-67.6368 146.7398,-67.6128 146.6099,-67.5810 146.4944,-67.5125 146.3093,-67.4591 146.1531,-67.4337 145.9636,-67.4245 145.7730,-67.4153 145.6673,-67.3800 145.5276,-67.3560 145.3969,-67.3483 145.2635,-67.3514 145.1130,-67.3692 144.9979,-67.3977 144.8773,-67.4488 144.7061,-67.5512 144.6489,-67.5668 144.6047,-67.5643 144.5948,-67.5291 144.7271,-67.4627 144.8206,-67.4017 144.8940,-67.3032 145.0313,-67.1925 145.0666,-67.1278 145.0439,-67.0603 144.9591,-66.9869 144.8115,-66.9095 144.6710,-66.8711 144.4661,-66.8445 144.2222,-66.8493 144.1079,-66.7899 143.9443,-66.7422 143.6486,-66.6969 143.5028,-66.6878 143.3691,-66.6961 143.2309,-66.7193 142.8241,-66.8182 142.6799,-66.8634 142.6522,-66.8655 142.6051,-66.8476 142.5779,-66.8268 142.5147,-66.7784 142.5023,-66.7726 142.5023,-66.2875 142.5023,-65.8023 142.5023,-65.3172 142.5023,-64.8320 142.5023,-64.3468 142.5023,-63.8617 142.5023,-63.3765 142.5023,-62.9220 142.5023,-62.4674 142.5023,-62.0129 142.5023,-61.5583 142.5023,-61.1038 142.5023,-60.6493 142.5023,-60.1947 142.5023,-59.7402 142.5023,-59.2856 142.5023,-58.8311 142.5023,-58.3765 142.5023,-57.9220 142.5023,-57.4674 142.5023,-57.0129 142.5023,-56.5583 142.5023,-56.1038 142.5023,-55.6493 142.5023,-55.1947 142.5023,-54.7402 142.5023,-54.2856 142.5023,-53.8311 142.5023,-53.3765 142.5023,-52.9220 142.5023,-52.4674 142.5023,-52.0129 142.5023,-51.5583 142.5023,-51.1038 142.5023,-50.6493 142.5023,-50.1947 142.5023,-49.7402 142.5023,-49.2856 142.5023,-48.8311 142.5023,-48.3765 142.5023,-47.9220 142.5023,-47.4674 142.5023,-47.0129 142.5023,-46.5583 142.5023,-46.1038 142.5023,-45.6493 142.5023,-45.1947 142.5023,-44.7402 142.5023,-44.2856 142.5023,-43.8311 142.5023,-43.3765 142.5023,-42.8990 142.5023,-42.4216 142.5023,-41.9441 142.5023,-41.4666 142.5023,-40.9891 142.5023,-40.5116 142.5023,-40.0342 142.5023,-39.5567 142.5023,-39.0792 142.5023,-38.6017 142.4487,-38.5705 142.3658,-38.5533 142.2140,-38.5671 142.1231,-38.5563 142.0132,-38.5200 141.8786,-38.4455 141.8483,-38.4503 141.8110,-38.5054 141.7757,-38.5307 141.6239,-38.5884 141.5135,-38.5931 141.3313,-38.5568 141.2680,-38.5305 141.2154,-38.4928 141.1768,-38.4409 141.1447,-38.3470 141.0065,-38.2504 140.9794,-38.2416 140.9706,-38.1586 140.9659,-38.1140 140.9707,-38.0602 140.9706,-38.0601 140.9572,-38.0560 140.9682,-38.0394 140.9681,-37.8686 140.9680,-37.5644 140.9679,-37.0646 140.9677,-36.5650 140.9677,-36.3671 140.9676,-36.0652 140.9676,-35.5655 140.9674,-35.0659 140.9673,-34.6529 140.9672,-34.5661 140.9671,-34.0664 140.9671,-33.9865 140.9872,-34.0009 141.0001,-34.0185 141.0001,-33.7115 141.0001,-33.3974 141.0001,-33.0834 141.0001,-32.7692 141.0001,-32.4551 141.0001,-32.1410 141.0001,-31.9746 141.3216,-31.9748 141.6430,-31.9750 141.6431,-31.7080 141.6431,-31.4409 141.3216,-31.4409 141.0001,-31.4409 141.0001,-31.1987 141.0001,-30.8846 141.0001,-30.5705 141.0001,-30.2563 141.0001,-29.9422 141.0001,-29.6282 141.0001,-29.3141 141.0001,-28.9999 141.0001,-28.6250 141.0001,-28.2499 141.0001,-27.8749 141.0001,-27.5000 141.0001,-27.1249 141.0001,-26.7499 141.0001,-26.3750 141.0001,-25.9999 141.0000,-25.9999 141.0000,-25.9999 140.9999,-25.9999 140.9998,-25.9999 140.9997,-25.9999 140.9996,-25.9999 140.6247,-25.9999 140.2498,-25.9999 139.8748,-25.9999 139.4999,-25.9999 139.1250,-25.9999 138.7501,-25.9999 138.3750,-25.9999 138.0002,-25.9999 138.0002,-25.7048 138.0002,-25.4096 138.0002,-25.1143 138.0002,-24.8192 138.0002,-24.5241 138.0002,-24.2289 138.0002,-23.9336 138.0002,-23.6385 138.0002,-23.3434 138.0002,-23.0482 138.0002,-22.7529 138.0002,-22.4578 138.0002,-22.1627 138.0002,-21.8675 138.0002,-21.5724 138.0002,-21.2772 138.0002,-20.9820 138.0002,-20.6868 138.0002,-20.3917 138.0002,-20.0966 138.0002,-19.8014 138.0002,-19.5062 138.0002,-19.2110 138.0002,-18.9158 138.0002,-18.6207 138.0002,-18.4478 138.0002,-18.3255 138.0002,-18.0303 138.0002,-17.7351 138.0002,-17.4400 138.0002,-17.1448 138.0002,-17.1077 138.0006,-16.8315 138.0010,-16.5552 137.9970,-16.4328 137.9970,-16.4074 137.9975,-16.2677 138.0120,-16.2870 138.1022,-16.3772 138.2180,-16.4759 138.3112,-16.5288 138.5306,-16.5762 138.7106,-16.5878 138.8640,-16.6658 138.9229,-16.6806 138.9441,-16.6544 138.9790,-16.5262 138.9970,-16.4958 139.0289,-16.4421 139.1131,-16.3479 139.2049,-16.2869 139.5788,-16.1950 139.6551,-16.2062 139.8524,-16.2803 139.9068,-16.3320 139.9425,-16.4158 139.9469,-16.5086 139.9226,-16.5901 139.8421,-16.6784 139.7453,-16.7171 139.6642,-16.7495 139.5896,-16.8078 139.6584,-16.8539 139.6946,-16.8933 139.7166,-16.9172 139.7533,-17.0006 139.7792,-17.0593 139.7810,-17.1266 139.7613,-17.1895 139.7169,-17.2441 139.6588,-17.2804 139.7637,-17.3437 139.9970,-17.4344 140.0140,-17.4410 140.1185,-17.5153 140.2619,-17.4932 140.4447,-17.4379 140.6239,-17.3219 140.6681,-17.2792 140.7381,-17.0984 140.7528,-17.0006 140.7647,-16.9219 140.8608,-16.7938 140.9103,-16.6892 140.9970,-16.6076 141.0204,-16.5856 141.1014,-16.3349 141.1824,-16.0843 141.1770,-16.0005 141.1708,-15.9057 141.2334,-15.6084 141.3266,-15.3455 141.4199,-15.0826 141.4235,-15.0006 141.4238,-14.9939 141.3655,-14.8017 141.3135,-14.4837 141.3203,-14.4211 141.3814,-14.2550 141.3907,-14.1848 141.2907,-14.0226 141.2866,-14.0006 141.2600,-13.8580 141.2675,-13.7428 141.2981,-13.6062 141.4367,-13.2668 141.4270,-13.1665 141.3802,-13.0225 141.3810,-13.0007 141.3835,-12.9310 141.4223,-12.8278 141.4943,-12.7389 141.4466,-12.7014 141.4088,-12.6475 141.3877,-12.5853 141.3847,-12.5130 141.4052,-12.4391 141.5976,-12.0006 141.6161,-11.9585 141.7695,-11.7593 141.9039,-11.3386 141.9320,-11.1750 141.9370,-11.0006 141.9375,-10.9839 141.9566,-10.8593 141.9071,-10.7075 141.9078,-10.6317 141.9207,-10.6053 141.9687,-10.5076 142.0955,-10.4081 141.9452,-10.2769 141.8944,-10.1802 141.8905,-10.1064 141.9078,-10.0309 141.9478,-9.9538 141.9540,-9.9470 141.9688,-9.8633 141.9884,-9.8385 142.0289,-9.7873 142.0591,-9.7731 142.0586,-9.7554 142.0585,-9.6046 142.0493,-9.5718 142.0585,-9.5078 142.0585,-9.4572 141.9750,-9.4184 141.6195,-9.4389 141.5072,-9.4236 141.3653,-9.3734 141.2914,-9.4156 141.2013,-9.4382 141.1162,-9.4363 141.0349,-9.4117 140.9773,-9.3665 140.9770,-9.1061 140.9770,-9.1061 140.9772,-8.9911 140.9774,-8.8648 140.9775,-8.7982 140.9776,-8.6112 140.9773,-8.4349 140.9770,-8.1701 140.9770,-8.1607 140.9769,-8.0020 140.9769,-7.9621 140.9769,-7.7729 140.9769,-7.5875 140.9769,-7.3237 140.9769,-7.2828 140.9770,-7.1571 140.9770,-7.0047 140.9772,-6.8966 140.9622,-6.8980 140.9433,-6.8881 140.9397,-6.8563 140.9160,-6.8627 140.9083,-6.8493 140.9067,-6.8282 140.9016,-6.8122 140.8824,-6.7982 140.8742,-6.7895 140.8709,-6.7784 140.8732,-6.7736 140.8827,-6.7606 140.8845,-6.7539 140.8787,-6.7422 140.8578,-6.7236 140.8504,-6.7130 140.8492,-6.7028 140.8517,-6.6940 140.8572,-6.6822 140.8658,-6.6492 140.8649,-6.6306 140.8504,-6.6236 140.8593,-6.6084 140.8739,-6.6034 140.8906,-6.5998 140.9050,-6.5895 140.9033,-6.5821 140.8965,-6.5730 140.8930,-6.5654 140.9016,-6.5621 140.9099,-6.5614 140.9151,-6.5585 140.9178,-6.5531 140.9188,-6.5279 140.9210,-6.5164 140.9282,-6.5097 140.9435,-6.5075 140.9502,-6.4987 140.9531,-6.4805 140.9486,-6.4655 140.9328,-6.4660 140.9332,-6.4538 140.9300,-6.4450 140.9232,-6.4398 140.9125,-6.4386 140.9213,-6.4339 140.9310,-6.4314 140.9416,-6.4309 140.9528,-6.4318 140.9502,-6.4189 140.9556,-6.4113 140.9632,-6.4043 140.9671,-6.3939 140.9647,-6.3880 140.9550,-6.3797 140.9528,-6.3738 140.9539,-6.3702 140.9587,-6.3681 140.9637,-6.3480 140.9729,-6.3366 140.9769,-6.3351 140.9769,-6.2294 140.9769,-6.0021 140.9769,-5.8065 140.9769,-5.6212 140.9769,-5.3638 140.9769,-5.3229 140.9769,-5.1974 140.9769,-5.0023 140.9769,-4.9995 140.9769,-4.9885 140.9762,-4.7737 140.9758,-4.5959 140.9747,-4.1736 140.9742,-4.0023 140.9735,-3.8000 140.9732,-3.5817 140.9724,-3.2506 140.9733,-3.0025 140.9738,-2.8367 140.9745,-2.6041 140.9745,-2.6015 140.9745,-2.6006 140.9745,-2.6006 140.9742,-2.2689 141.2303,-1.8508 141.4864,-1.4327 141.7425,-1.0145 141.9986,-0.5964 142.2547,-0.1783 142.5109,0.2399 142.5109,0.7098 142.5109,1.1798 142.5110,1.6498 142.5110,2.1197 142.5111,2.5897 142.5111,3.0596 142.5112,3.5296 142.5112,3.9996 142.0459,3.9996 141.5806,3.9996 141.1153,3.9997 140.6500,3.9997 140.1847,3.9997 139.7194,3.9997 139.2541,3.9998 138.7888,3.9998 138.3235,3.9998 137.8583,3.9999 137.3930,3.9999 136.9277,3.9999 136.4624,4.0000 135.9971,4.0000 135.9971,4.4837 135.9971,4.9674 135.9971,5.4511 135.9971,5.9348 135.9971,6.4185 135.9971,6.9022 135.9971,7.3859 135.9971,7.8696 135.9971,8.3533 135.9971,8.8370 135.9971,9.3207 135.9971,9.8044 135.9971,10.2881 135.9971,10.7718 135.9971,11.2555 135.9971,11.7392 135.9971,12.2229 135.9971,12.7066 135.9971,13.1903 135.9971,13.6740 135.9971,14.1577 135.9971,14.6414 135.9971,15.1251 135.9971,15.6088 135.9971,16.0925 135.9971,16.5762 135.9971,17.0599 136.4624,17.0599 136.9278,17.0600 137.3932,17.0600 137.8586,17.0601 138.3240,17.0602 138.7894,17.0602 139.2548,17.0603 139.7201,17.0603 140.1855,17.0604 140.6509,17.0605 141.1163,17.0605 141.5817,17.0606 142.0471,17.0606 142.5125,17.0607 142.5125,17.5571 142.5126,18.0536 142.5126,18.5500 142.5126,19.0465 142.5127,19.5429 142.5127,20.0394 142.5128,20.5358 142.5128,21.0323 142.5129,21.5287 142.5129,22.0252 142.5130,22.5216 142.5130,23.0181 142.5131,23.5145 142.5131,24.0109 142.5132,24.5074 142.5132,25.0038 142.5133,25.5003 142.5133,25.9967 142.5134,26.4932 142.5134,26.9896 142.5135,27.4861 142.5135,27.9825 142.5135,28.4790 142.5136,28.9754 142.5136,29.4719 142.5137,29.9683 142.5137,30.4648 142.5138,30.9612 142.5138,31.4576 142.5139,31.9541 142.5139,32.4505 142.5140,32.9470 142.5140,33.4434 142.5141,33.9399 142.5141,34.4363 142.5142,34.9328 142.5142,35.4292 142.5143,35.9257 142.5143,36.4221 142.5144,36.9186 142.5144,37.4150 142.5144,37.9115 142.5145,38.4079 142.5145,38.9043 142.5146,39.4008 142.5146,39.8972 142.5147,40.3937 142.5147,40.8104 142.5148,41.2271 142.5148,41.6438 142.5148,42.0605 142.5952,42.0289 142.8805,41.9368 143.1164,41.7833 143.2307,41.7586 143.3495,41.7798 143.4069,41.8123 143.4470,41.8520 143.5309,42.0093 143.5575,42.0932 143.5567,42.2439 143.6053,42.3333 143.7904,42.5338 144.0918,42.7502 144.1843,42.7977 144.2557,42.8121 144.4478,42.7684 144.5959,42.7765 144.7739,42.7585 144.8627,42.7767 144.9581,42.8185 145.1103,42.8392 145.2656,42.9248 145.3777,43.0080 145.4228,43.0129 145.5491,43.0018 145.6400,43.0257 145.7748,43.1539 145.9140,43.2196 146.3609,43.3970 146.8079,43.5744 147.2549,43.7517 147.7018,43.9291 148.1488,44.1064 148.5958,44.2838 149.0129,44.5457 149.4301,44.8075 149.8472,45.0694 150.2644,45.3313 150.6815,45.5931 151.0987,45.8550 151.5158,46.1169 151.9330,46.3787 152.3501,46.6406 152.7673,46.9025 153.1844,47.1643 153.6016,47.4262 154.0187,47.6881 154.4065,47.9430 154.7942,48.1979 155.1819,48.4528 155.5696,48.7078 155.9574,48.9627 156.3451,49.2176 156.7328,49.4725 157.1205,49.7274 157.5082,49.9824 157.5082,49.5858 157.5082,49.1893 157.5082,48.7928 157.5082,48.3382 157.5082,47.8837 157.5082,47.4291 157.5082,46.9746 157.5082,46.5200 157.5082,46.0655 157.5082,45.6109 157.5082,45.1564 157.5082,44.7019 157.5082,44.2473 157.5082,43.7928 98,14.0,Pacific/Kiritimati -157.5607,-5.8423 -158.0929,-5.8423 -158.4788,-5.8423 -158.4762,-5.2107 -158.4784,-4.6472 -158.4805,-4.0838 -158.4826,-3.5502 -158.4846,-3.0165 -158.4866,-2.5094 -158.4866,-1.9675 -158.4866,-1.3502 -158.4866,-0.9798 -158.4866,-0.6712 -158.4866,-0.2281 -159.0449,0.2196 -159.4311,0.5291 -159.7620,0.7945 -160.0478,1.0236 -160.3462,1.2628 -160.6398,1.4982 -160.6398,2.0449 -160.6398,2.6004 -160.6398,3.0943 -160.6398,3.6087 -160.6398,4.0613 -160.6398,4.5346 -160.6398,4.9373 -160.0456,4.9373 -159.6752,4.9373 -159.2019,4.9373 -158.7698,4.9373 -158.3377,4.9373 -157.8851,4.9373 -157.5147,4.9373 -156.9615,4.9373 -156.4871,4.9373 -156.0127,4.9373 -155.5286,4.9373 -155.2756,4.2578 -155.0758,3.7212 -154.9256,3.3178 -154.7488,2.8430 -154.5780,2.3845 -154.4181,1.9551 -154.2402,1.4772 -154.0670,1.0120 -153.9132,0.5990 -153.7327,0.1144 -153.5704,-0.3216 -153.3827,-0.8256 -153.2192,-1.2647 -153.0521,-1.7135 -152.8680,-2.2077 -152.6973,-2.6662 -152.5241,-3.1314 -152.3484,-3.6031 -152.1705,-4.0810 -151.9610,-4.6437 -151.8205,-5.0210 -151.6436,-5.4959 -151.4970,-5.8895 -151.3421,-6.3057 -151.1750,-6.7545 -150.9945,-7.2390 -150.8250,-7.6944 -150.6542,-8.1529 -150.5040,-8.5563 -150.3175,-9.0572 -150.1346,-9.5484 -150.0001,-10.0003 -150.0002,-10.5003 -150.0002,-11.0002 -150.0002,-11.3411 -150.0002,-11.6454 -150.4974,-11.6454 -151.0014,-11.6454 -151.5648,-11.6454 -152.0096,-11.6454 -152.6323,-11.6454 -153.1068,-11.6454 -153.5812,-11.6454 -154.0260,-11.6454 -154.5662,-11.6454 -154.7485,-10.9467 -154.8758,-10.4586 -154.9841,-10.0439 -155.0923,-9.6292 -155.2428,-9.0522 -155.3702,-8.5641 -155.5208,-7.9871 -155.6499,-7.4922 -155.7824,-6.9844 -155.9290,-6.4225 -156.0804,-5.8423 -156.3633,-5.8423 -156.6959,-5.8423 -157.1616,-5.8423 -157.5607,-5.8423 184,13.0,Pacific/Enderbury -158.4866,-2.5094 -158.4846,-3.0165 -158.4826,-3.5502 -158.4805,-4.0838 -158.4784,-4.6472 -158.4762,-5.2107 -158.4788,-5.8423 -159.0121,-5.8423 -159.5665,-5.8423 -160.1556,-5.8423 -160.6408,-5.8423 -161.1260,-5.8423 -161.6111,-5.8423 -162.0616,-5.8423 -162.5814,-5.8423 -163.2052,-5.8423 -163.7597,-5.8423 -164.2795,-5.8423 -164.7993,-5.8423 -165.2845,-5.8423 -165.7696,-5.8423 -166.2548,-5.8423 -166.7399,-5.8423 -167.2597,-5.8423 -167.7795,-5.8423 -168.2647,-5.8423 -168.8885,-5.8423 -169.3961,-5.8423 -169.6884,-6.4987 -169.8959,-6.9648 -170.1292,-7.4888 -170.3310,-7.9420 -170.5585,-8.4531 -170.7302,-8.8386 -170.9928,-9.4284 -171.0992,-10.0040 -171.1965,-10.5306 -171.2938,-11.0573 -171.2610,-11.3855 -171.1967,-12.0298 -171.1502,-12.5005 -171.1002,-12.9968 -171.0495,-13.5045 -171.0033,-13.9679 -171.2367,-14.4310 -171.5969,-14.5933 -172.0095,-14.7792 -172.5000,-15.0001 -172.5000,-15.5312 -172.5000,-16.0626 -172.5000,-16.3944 -172.5000,-16.8503 -172.5000,-17.2856 -172.5000,-17.6563 -172.5000,-18.1875 -172.5000,-18.7188 -172.5000,-19.2499 -172.5000,-19.7813 -172.5000,-20.3126 -172.4936,-20.9652 -172.5000,-21.5964 -172.5000,-22.4375 -172.5000,-22.9689 -172.5000,-23.5000 -172.5000,-24.0001 -172.5000,-24.4668 -172.5000,-25.0000 -172.5000,-25.4409 -172.5000,-26.0002 -173.0260,-26.0006 -173.5242,-26.0006 -174.0223,-26.0006 -174.5204,-26.0006 -175.0186,-26.0006 -175.5167,-26.0006 -176.0149,-26.0006 -176.5130,-26.0006 -177.0111,-26.0006 -177.5093,-26.0006 -178.0074,-26.0006 -178.5056,-26.0006 -179.0037,-26.0006 -179.5018,-26.0006 -180.0000,-26.0006 -179.7865,-25.5736 -179.5730,-25.1466 -179.3596,-24.7196 -179.1461,-24.2926 -178.9327,-23.8657 -178.7192,-23.4387 -178.5057,-23.0117 -178.2923,-22.5847 -178.0788,-22.1578 -177.8653,-21.7308 -177.6519,-21.3038 -177.4384,-20.8768 -177.2249,-20.4498 -177.0115,-20.0229 -177.0115,-19.5749 -177.0115,-19.1270 -177.0115,-18.6790 -177.0115,-18.2311 -177.0115,-17.7832 -177.0115,-17.3352 -177.0115,-16.8873 -177.0115,-16.4393 -177.0115,-15.9914 -177.0115,-15.4957 -177.0115,-15.0000 -176.5791,-15.0000 -176.1466,-15.0000 -175.7142,-15.0000 -175.2817,-15.0000 -174.8493,-15.0000 -174.4169,-15.0000 -174.4158,-14.5791 -174.4148,-14.1583 -174.4138,-13.7374 -174.4127,-13.3165 -174.4117,-12.8957 -174.4107,-12.4748 -174.7041,-12.0887 -174.9975,-11.7026 -175.2909,-11.3165 -175.5843,-10.9304 -175.8777,-10.5443 -176.1712,-10.1583 -176.4646,-9.7722 -176.7580,-9.3861 -177.0514,-9.0000 -177.3014,-8.6667 -177.5514,-8.3333 -177.8014,-8.0000 -178.0514,-7.6667 -178.0514,-7.1905 -178.0514,-6.7144 -178.0514,-6.2383 -178.0514,-5.7621 -178.0514,-5.2860 -178.0514,-4.8099 -178.0514,-4.3337 -178.0514,-3.8576 -178.0514,-3.3815 -178.0514,-2.9053 -178.0515,-2.5094 -177.6358,-2.5094 -177.1196,-2.5094 -176.6447,-2.5094 -176.1079,-2.5094 -175.6123,-2.5094 -175.0755,-2.5094 -174.6213,-2.5094 -174.1051,-2.5094 -173.6095,-2.5094 -173.0830,-2.5094 -172.4842,-2.5094 -172.1952,-2.5094 -171.7531,-2.5094 -171.2041,-2.5094 -170.7292,-2.5094 -170.2336,-2.5094 -169.7381,-2.5094 -169.2632,-2.5094 -168.7677,-2.5094 -168.2721,-2.5094 -167.7972,-2.5094 -167.3017,-2.5094 -166.8061,-2.5094 -166.3312,-2.5094 -165.8357,-2.5094 -165.3608,-2.5094 -164.8653,-2.5094 -164.3697,-2.5094 -163.9155,-2.5094 -163.3993,-2.5094 -162.9037,-2.5094 -162.4288,-2.5094 -161.8507,-2.5094 -161.2932,-2.5094 -160.7357,-2.5094 -160.1576,-2.5094 -159.5795,-2.5094 -159.0013,-2.5094 -158.4866,-2.5094 318,-8.0,Arctic Ocean -112.5046,78.7517 -112.5046,78.7455 -112.5140,78.7510 -112.5604,78.7480 -112.7962,78.7280 -113.0697,78.6933 -113.3433,78.6586 -113.5352,78.6221 -113.8671,78.5692 -113.9888,78.5433 -114.0746,78.5200 -114.0834,78.5176 -114.1612,78.4897 -114.2156,78.4625 -114.3666,78.3469 -114.4181,78.3257 -114.4879,78.3069 -114.6176,78.2846 -114.9082,78.2546 -115.1237,78.2200 -115.2746,78.2019 -115.4883,78.1620 -115.7455,78.1243 -115.8812,78.0951 -115.9950,78.0585 -116.0723,78.0179 -116.1122,77.9706 -116.1020,77.9321 -116.0663,77.9021 -115.9984,77.8670 -115.7431,77.7671 -115.6059,77.7228 -115.5520,77.6947 -115.5509,77.6869 -115.6080,77.6913 -115.9521,77.7430 -116.1994,77.7638 -116.3336,77.7685 -116.4757,77.7690 -116.8533,77.7554 -117.1824,77.7342 -117.3236,77.7204 -117.4556,77.7033 -117.6323,77.6701 -117.8506,77.6071 -117.8962,77.5992 -118.2765,77.5849 -118.5180,77.5699 -118.8479,77.5691 -119.1202,77.5579 -119.3692,77.5325 -119.6182,77.5070 -119.7315,77.4888 -119.8595,77.4655 -119.9139,77.4515 -120.0442,77.4136 -120.1326,77.3832 -120.1889,77.3530 -120.2254,77.3114 -120.2557,77.2972 -120.5612,77.2265 -120.7396,77.1564 -120.9006,77.1065 -121.0093,77.0446 -121.1352,77.0080 -121.2311,76.9709 -121.3415,76.9046 -121.3977,76.8942 -121.5778,76.8764 -121.6956,76.8602 -121.8122,76.8382 -121.9025,76.8150 -122.0182,76.7701 -122.1201,76.6878 -122.2370,76.6354 -122.2945,76.6288 -122.6415,76.6060 -122.8711,76.5809 -122.9748,76.5621 -123.4032,76.4376 -123.4041,76.4374 -123.5835,76.3414 -123.7517,76.2514 -123.7840,76.2328 -123.8889,76.1203 -123.8996,76.1039 -123.8972,76.0621 -123.8590,76.0224 -123.7608,75.9744 -123.5575,75.9178 -123.4816,75.8765 -123.4008,75.8441 -123.3015,75.8147 -123.1659,75.7848 -123.0130,75.7601 -122.8469,75.7413 -122.6719,75.7289 -122.4232,75.7195 -122.2514,75.7025 -122.0843,75.6705 -121.9054,75.6134 -121.7682,75.5806 -121.5824,75.5508 -121.3930,75.5330 -121.4791,75.1488 -121.5651,74.7646 -121.7134,74.7623 -122.0099,74.7420 -122.4210,74.6905 -122.5533,74.6792 -122.8293,74.6671 -123.1475,74.6603 -123.4657,74.6535 -123.6529,74.6355 -123.7704,74.6322 -124.0182,74.6160 -124.2905,74.6047 -124.5212,74.5793 -124.9645,74.5480 -125.1334,74.5282 -125.2651,74.5034 -125.3865,74.4685 -125.4647,74.4342 -125.5518,74.3410 -125.5516,74.3252 -125.5252,74.2881 -125.4059,74.1985 -125.2488,74.1244 -125.1825,74.0064 -125.0651,73.9133 -124.9695,73.8547 -124.9099,73.8021 -124.7905,73.7444 -124.7768,73.7233 -124.8280,73.6321 -125.0416,73.5446 -125.1225,73.5009 -125.2004,73.3953 -125.2815,73.3109 -125.3219,73.2852 -125.4310,73.2358 -125.5486,73.1511 -125.5724,73.1156 -125.5963,73.0354 -125.7427,72.9652 -125.7959,72.9268 -125.8245,72.8844 -125.8233,72.8409 -125.7874,72.7949 -125.7197,72.7488 -125.7183,72.7315 -125.7828,72.6859 -125.8054,72.6349 -125.8875,72.6001 -126.0701,72.5018 -126.1516,72.4061 -126.3161,72.3172 -126.3832,72.2322 -126.4820,72.1328 -126.5841,72.0815 -126.6329,72.0481 -126.6716,71.9814 -126.6447,71.9181 -126.6017,71.8831 -126.5252,71.8445 -126.4334,71.8151 -126.3280,71.7926 -126.1409,71.7661 -125.9110,71.7429 -125.7739,71.7396 -125.5615,71.7501 -125.5041,71.7465 -125.4298,71.7321 -125.2543,71.6814 -125.0938,71.6438 -124.8089,71.5915 -124.5241,71.5391 -124.4752,71.5160 -124.3895,71.4431 -124.2140,71.3618 -124.0150,71.1491 -123.9478,71.0980 -123.8649,71.0511 -123.7259,70.9867 -123.8733,70.6520 -124.0208,70.3172 -124.1628,70.3451 -124.3428,70.3641 -124.5439,70.3714 -124.7275,70.3650 -124.9117,70.3797 -125.1015,70.3776 -125.2441,70.3678 -125.3497,70.3543 -125.4442,70.3354 -125.5367,70.3081 -125.6362,70.2636 -125.7082,70.2094 -125.7346,70.1192 -125.8065,70.0423 -125.8375,69.9173 -125.8929,69.8051 -125.9220,69.7804 -125.9666,69.7802 -126.0671,69.8126 -126.1414,69.8652 -126.1589,69.8997 -126.1605,69.9901 -126.1995,70.0486 -126.3489,70.1363 -126.6216,70.3695 -126.7802,70.4619 -126.9484,70.5346 -127.2370,70.6431 -127.5143,70.7337 -127.5149,70.7340 -127.5151,70.7341 -127.5151,71.1970 -127.5151,71.6598 -127.5151,72.1227 -127.5151,72.5856 -127.5151,73.0485 -127.5151,73.5114 -127.5151,73.9742 -127.5151,74.4371 -127.5151,74.9000 -127.5151,75.3545 -127.5151,75.8091 -127.5151,76.2636 -127.5151,76.7182 -127.5151,77.1727 -127.5151,77.6273 -127.5151,78.0818 -127.5151,78.5364 -127.5151,78.9909 -127.5151,79.4455 -127.5151,79.9000 -127.5151,80.3545 -127.5151,80.8091 -127.5151,81.2636 -127.5151,81.7182 -127.5151,82.1727 -127.5151,82.6273 -127.5151,83.0818 -127.5151,83.5364 -127.5151,83.9909 -127.5151,84.4455 -127.5151,84.9000 -127.5151,85.3636 -127.5151,85.8273 -127.5151,86.2909 -127.5151,86.7545 -127.5151,87.2182 -127.5151,87.6818 -127.5151,88.1455 -127.5151,88.6091 -127.5151,89.0727 -127.5151,89.5364 -127.5151,90.0000 -127.0736,90.0000 -126.6321,90.0000 -126.1906,90.0000 -125.7492,90.0000 -125.3077,90.0000 -124.8662,90.0000 -124.4247,90.0000 -123.9832,90.0000 -123.5417,90.0000 -123.1002,90.0000 -122.6588,90.0000 -122.2173,90.0000 -121.7758,90.0000 -121.3343,90.0000 -120.8928,90.0000 -120.4513,90.0000 -120.0099,90.0000 -119.5684,90.0000 -119.1269,90.0000 -118.6854,90.0000 -118.2439,90.0000 -117.8024,90.0000 -117.3609,90.0000 -116.9195,90.0000 -116.4780,90.0000 -116.0365,90.0000 -115.5950,90.0000 -115.1535,90.0000 -114.7120,90.0000 -114.2705,90.0000 -113.8291,90.0000 -113.3876,90.0000 -112.9461,90.0000 -112.5046,90.0000 -112.5046,89.5364 -112.5046,89.0727 -112.5046,88.6091 -112.5046,88.1455 -112.5046,87.6818 -112.5046,87.2182 -112.5046,86.7545 -112.5046,86.2909 -112.5046,85.8273 -112.5046,85.3636 -112.5046,84.9000 -112.5046,84.4455 -112.5046,83.9909 -112.5046,83.5364 -112.5046,83.0818 -112.5046,82.6273 -112.5046,82.1727 -112.5046,81.7182 -112.5046,81.2636 -112.5046,80.8091 -112.5046,80.3545 -112.5046,79.9000 -112.5046,79.5172 -112.5046,79.1344 -112.5046,78.7517 3753,-8.0,America/Los_Angeles -140.8476,69.8547 -140.4333,69.8132 -140.1892,69.8273 -139.9100,69.8297 -139.7751,69.8233 -139.5936,69.8035 -139.3986,69.8403 -139.2264,69.8582 -139.0546,69.8603 -138.8706,69.8452 -138.7389,69.8241 -138.6076,69.7949 -138.5012,69.7633 -138.4102,69.7272 -138.3202,69.6731 -138.2151,69.5613 -138.1638,69.5213 -138.1145,69.4989 -137.9732,69.4641 -137.8836,69.4303 -137.8150,69.3877 -137.7539,69.3245 -137.7119,69.3042 -137.4163,69.2390 -137.1677,69.2013 -137.0091,69.1661 -136.7980,69.1452 -136.6545,69.1202 -136.5983,69.1211 -136.5809,69.1302 -136.5343,69.2714 -136.5126,69.2946 -136.5110,69.2856 -136.4604,69.0049 -136.4573,68.9874 -136.4454,68.9090 -136.4470,68.9059 -136.4449,68.9055 -136.4447,68.7286 -136.4446,68.6793 -136.4444,68.6300 -136.4441,68.5807 -136.4438,68.5314 -136.4436,68.4329 -136.4435,68.3344 -136.4438,68.2359 -136.4447,68.1371 -136.4453,68.0493 -136.4451,67.9614 -136.4444,67.8736 -136.4433,67.7856 -136.4441,67.7660 -136.4454,67.7456 -136.4448,67.7256 -136.4400,67.7076 -136.4367,67.7035 -136.4318,67.6997 -136.4273,67.6963 -136.4249,67.6937 -136.4244,67.6893 -136.4246,67.6841 -136.4251,67.6795 -136.4253,67.6773 -136.4249,67.6723 -136.4265,67.6677 -136.4269,67.6630 -136.4233,67.6574 -136.4153,67.6527 -136.4053,67.6500 -136.3949,67.6485 -136.3857,67.6472 -136.3666,67.6438 -136.3485,67.6410 -136.3303,67.6391 -136.3099,67.6378 -136.2751,67.6325 -136.2465,67.6202 -136.2218,67.6020 -136.1983,67.5787 -136.1894,67.5642 -136.1866,67.5501 -136.1853,67.5361 -136.1811,67.5222 -136.1769,67.5173 -136.1718,67.5148 -136.1662,67.5130 -136.1606,67.5100 -136.1573,67.5042 -136.1623,67.5001 -136.1696,67.4969 -136.1738,67.4934 -136.1757,67.4754 -136.1770,67.4605 -136.1813,67.4454 -136.1925,67.4266 -136.2013,67.4135 -136.2009,67.4081 -136.1918,67.4051 -136.1743,67.3996 -136.1609,67.3954 -136.1413,67.3894 -136.1236,67.3829 -136.1161,67.3773 -136.1228,67.3640 -136.1336,67.3628 -136.1380,67.3596 -136.1252,67.3401 -136.1186,67.3326 -136.1112,67.3253 -136.1042,67.3178 -136.0986,67.3096 -136.0952,67.2972 -136.1005,67.2910 -136.1103,67.2858 -136.1202,67.2759 -136.1245,67.2627 -136.1260,67.2478 -136.1292,67.2341 -136.1382,67.2246 -136.1555,67.2174 -136.1732,67.2116 -136.1908,67.2059 -136.2080,67.1992 -136.2187,67.1945 -136.2304,67.1875 -136.2374,67.1780 -136.2343,67.1660 -136.2208,67.1549 -136.2095,67.1511 -136.2035,67.1460 -136.2061,67.1309 -136.2107,67.1253 -136.2172,67.1222 -136.2229,67.1183 -136.2248,67.1101 -136.2233,67.1049 -136.2206,67.1008 -136.2179,67.0966 -136.2165,67.0915 -136.2180,67.0824 -136.2209,67.0731 -136.2216,67.0644 -136.2165,67.0567 -136.2027,67.0478 -136.1928,67.0425 -136.1858,67.0359 -136.1804,67.0230 -136.1778,67.0180 -136.1730,67.0116 -136.1674,67.0060 -136.1622,67.0037 -136.1441,67.0037 -136.1260,67.0037 -136.1079,67.0037 -136.0898,67.0037 -135.9928,67.0037 -135.8958,67.0036 -135.7988,67.0036 -135.7018,67.0036 -135.6133,67.0036 -135.5540,67.0036 -135.4237,67.0036 -135.2934,67.0036 -135.2341,67.0036 -135.1172,67.0036 -135.0003,67.0036 -134.8834,67.0036 -134.7664,67.0035 -134.6495,67.0035 -134.5326,67.0035 -134.4156,67.0035 -134.2987,67.0035 -134.2062,67.0035 -134.1136,67.0035 -134.0210,67.0034 -133.9284,67.0034 -133.8311,67.0034 -133.8730,66.9864 -133.9275,66.9826 -133.9835,66.9849 -134.0301,66.9866 -134.0450,66.9852 -134.0636,66.9812 -134.0808,66.9743 -134.0912,66.9638 -134.0879,66.9521 -134.0723,66.9443 -134.0533,66.9395 -134.0401,66.9368 -134.0020,66.9288 -133.9627,66.9221 -133.9249,66.9124 -133.8916,66.8956 -133.8883,66.8910 -133.8862,66.8850 -133.8830,66.8791 -133.8764,66.8752 -133.8674,66.8730 -133.8581,66.8708 -133.8494,66.8676 -133.8419,66.8625 -133.8306,66.8488 -133.8255,66.8388 -133.8184,66.8303 -133.8008,66.8212 -133.7837,66.8152 -133.7700,66.8089 -133.7633,66.7986 -133.7675,66.7808 -133.7795,66.7646 -133.7952,66.7549 -133.8130,66.7480 -133.8314,66.7401 -133.8342,66.7258 -133.8063,66.7110 -133.7719,66.6957 -133.7552,66.6801 -133.7617,66.6706 -133.7739,66.6637 -133.7819,66.6566 -133.7754,66.6467 -133.7598,66.6404 -133.7425,66.6383 -133.7251,66.6350 -133.7097,66.6256 -133.7019,66.6143 -133.6989,66.6054 -133.6933,66.5978 -133.6779,66.5908 -133.6565,66.5864 -133.6331,66.5836 -133.6106,66.5790 -133.5919,66.5692 -133.6006,66.5593 -133.6353,66.5486 -133.6734,66.5358 -133.6925,66.5198 -133.6832,66.4978 -133.6597,66.4790 -133.6369,66.4620 -133.6294,66.4453 -133.6515,66.4356 -133.6910,66.4453 -133.7323,66.4530 -133.7597,66.4371 -133.7630,66.4233 -133.7630,66.4093 -133.7630,66.3955 -133.7659,66.3821 -133.7729,66.3683 -133.7806,66.3577 -133.7898,66.3484 -133.8013,66.3381 -133.8191,66.3102 -133.7989,66.2985 -133.7612,66.2967 -133.7262,66.2984 -133.6885,66.3018 -133.6335,66.3032 -133.5843,66.2927 -133.5643,66.2606 -133.5663,66.2502 -133.5701,66.2407 -133.5741,66.2312 -133.5766,66.2212 -133.5754,66.2075 -133.5697,66.1987 -133.5628,66.1908 -133.5580,66.1800 -133.5672,66.1538 -133.5979,66.1391 -133.6351,66.1300 -133.6641,66.1204 -133.6754,66.1123 -133.6895,66.0996 -133.7011,66.0852 -133.7047,66.0720 -133.6954,66.0613 -133.6774,66.0568 -133.6577,66.0560 -133.6431,66.0560 -133.6084,66.0499 -133.6102,66.0364 -133.6256,66.0150 -133.6313,65.9854 -133.6118,65.9619 -133.5753,65.9556 -133.5340,65.9570 -133.5001,65.9567 -133.4624,65.9496 -133.4246,65.9443 -133.3876,65.9470 -133.3522,65.9632 -133.3486,65.9680 -133.3471,65.9738 -133.3451,65.9796 -133.3403,65.9841 -133.3307,65.9869 -133.3207,65.9873 -133.3104,65.9863 -133.3005,65.9850 -133.2817,65.9863 -133.2623,65.9919 -133.2429,65.9992 -133.2243,66.0052 -133.1744,66.0162 -133.1274,66.0233 -133.0799,66.0258 -133.0286,66.0235 -132.9967,66.0257 -132.9554,66.0297 -132.9204,66.0255 -132.9072,66.0031 -132.9189,65.9797 -132.9438,65.9586 -132.9720,65.9396 -132.9939,65.9231 -132.9679,65.9113 -132.9355,65.9074 -132.9021,65.9084 -132.8727,65.9104 -132.8580,65.9115 -132.8420,65.9136 -132.8265,65.9170 -132.8128,65.9221 -132.8067,65.9281 -132.8053,65.9358 -132.8050,65.9441 -132.8022,65.9523 -132.7814,65.9689 -132.7546,65.9760 -132.7268,65.9815 -132.7033,65.9934 -132.6861,66.0065 -132.6667,66.0171 -132.6458,66.0245 -132.6246,66.0288 -132.6044,66.0310 -132.5827,66.0318 -132.5615,66.0293 -132.5425,66.0214 -132.5335,66.0129 -132.5293,66.0041 -132.5261,65.9956 -132.5202,65.9879 -132.4819,65.9771 -132.4368,65.9864 -132.3911,65.9966 -132.3506,65.9884 -132.3413,65.9793 -132.3347,65.9674 -132.3320,65.9556 -132.3344,65.9467 -132.3467,65.9409 -132.3674,65.9369 -132.3893,65.9336 -132.4049,65.9301 -132.4392,65.9205 -132.4770,65.9129 -132.5134,65.9029 -132.5434,65.8864 -132.5533,65.8781 -132.5645,65.8672 -132.5717,65.8553 -132.5694,65.8441 -132.5553,65.8334 -132.5371,65.8268 -132.5178,65.8224 -132.5005,65.8189 -132.4578,65.8075 -132.4132,65.7918 -132.3707,65.7715 -132.3344,65.7459 -132.3247,65.7391 -132.3137,65.7333 -132.3029,65.7271 -132.2941,65.7195 -132.2897,65.7123 -132.2865,65.7043 -132.2832,65.6966 -132.2783,65.6898 -132.2640,65.6805 -132.2481,65.6750 -132.2326,65.6691 -132.2197,65.6587 -132.2135,65.6485 -132.2099,65.6395 -132.2053,65.6303 -132.1961,65.6198 -132.1854,65.6118 -132.1756,65.6037 -132.1726,65.5945 -132.1822,65.5835 -132.1939,65.5760 -132.2054,65.5695 -132.2174,65.5641 -132.2304,65.5596 -132.2435,65.5570 -132.2619,65.5525 -132.2761,65.5447 -132.2769,65.5321 -132.2754,65.5228 -132.2794,65.5131 -132.2862,65.5044 -132.2934,65.4983 -132.3042,65.4901 -132.3108,65.4829 -132.3152,65.4743 -132.3197,65.4623 -132.3204,65.4573 -132.3209,65.4502 -132.3214,65.4434 -132.3222,65.4398 -132.3302,65.4356 -132.3389,65.4359 -132.3479,65.4373 -132.3569,65.4359 -132.3618,65.4321 -132.3655,65.4268 -132.3693,65.4214 -132.3743,65.4170 -132.3847,65.4128 -132.3959,65.4102 -132.4071,65.4079 -132.4180,65.4048 -132.4308,65.3995 -132.4432,65.3939 -132.4558,65.3884 -132.4688,65.3833 -132.4966,65.3719 -132.5299,65.3525 -132.5534,65.3270 -132.5522,65.2969 -132.5545,65.2841 -132.5738,65.2794 -132.5971,65.2791 -132.6119,65.2799 -132.6298,65.2788 -132.6467,65.2743 -132.6623,65.2665 -132.6767,65.2556 -132.6898,65.2426 -132.7003,65.2335 -132.7134,65.2286 -132.7345,65.2281 -132.7513,65.2293 -132.7711,65.2295 -132.7813,65.2262 -132.7691,65.2167 -132.7563,65.2150 -132.7370,65.2137 -132.7202,65.2088 -132.7147,65.1964 -132.7252,65.1912 -132.7474,65.1896 -132.7715,65.1893 -132.7877,65.1879 -132.7715,65.1751 -132.7446,65.1638 -132.7158,65.1564 -132.6936,65.1557 -132.6930,65.1674 -132.6788,65.1711 -132.6598,65.1704 -132.6447,65.1694 -132.6266,65.1721 -132.6140,65.1788 -132.6033,65.1862 -132.5908,65.1912 -132.5744,65.1891 -132.5536,65.1806 -132.5353,65.1690 -132.5266,65.1574 -132.5338,65.1372 -132.5489,65.1187 -132.5529,65.1031 -132.5269,65.0914 -132.5033,65.0869 -132.4791,65.0832 -132.4548,65.0812 -132.4309,65.0819 -132.4106,65.0842 -132.3900,65.0850 -132.3706,65.0809 -132.3539,65.0690 -132.3500,65.0622 -132.3435,65.0493 -132.3372,65.0369 -132.3344,65.0315 -132.3471,65.0207 -132.3688,65.0177 -132.3919,65.0173 -132.4088,65.0142 -132.4183,65.0060 -132.4224,64.9972 -132.4257,64.9890 -132.4330,64.9824 -132.4510,64.9777 -132.4720,64.9760 -132.4921,64.9730 -132.5075,64.9645 -132.5134,64.9434 -132.4992,64.9248 -132.4825,64.9050 -132.4812,64.8799 -132.5026,64.8647 -132.5400,64.8564 -132.5802,64.8488 -132.6097,64.8356 -132.6200,64.8222 -132.6153,64.8155 -132.6026,64.8104 -132.5886,64.8020 -132.5810,64.7919 -132.5760,64.7826 -132.5691,64.7750 -132.5555,64.7706 -132.5355,64.7707 -132.5182,64.7751 -132.5014,64.7805 -132.4828,64.7843 -132.4630,64.7837 -132.4430,64.7801 -132.4228,64.7761 -132.4027,64.7745 -132.3617,64.7737 -132.3206,64.7686 -132.2806,64.7578 -132.2426,64.7399 -132.1997,64.7183 -132.1587,64.7059 -132.1158,64.7000 -132.0674,64.6984 -132.0538,64.6964 -132.0425,64.6909 -132.0333,64.6822 -132.0257,64.6705 -132.0157,64.6589 -132.0024,64.6508 -131.9881,64.6436 -131.9753,64.6348 -131.9661,64.6246 -131.9583,64.6141 -131.9495,64.6044 -131.9376,64.5965 -131.9232,64.5904 -131.9084,64.5846 -131.8937,64.5786 -131.8798,64.5721 -131.8634,64.5630 -131.8487,64.5558 -131.8332,64.5516 -131.8141,64.5520 -131.7939,64.5536 -131.7751,64.5529 -131.7566,64.5505 -131.7369,64.5470 -131.6817,64.5212 -131.7118,64.4899 -131.7716,64.4572 -131.8058,64.4266 -131.8095,64.4163 -131.8165,64.4039 -131.8232,64.3930 -131.8261,64.3870 -131.8186,64.3775 -131.8038,64.3772 -131.7871,64.3810 -131.7741,64.3842 -131.7521,64.3874 -131.7281,64.3905 -131.7042,64.3925 -131.6822,64.3923 -131.6654,64.3884 -131.6502,64.3814 -131.6353,64.3740 -131.6194,64.3687 -131.5989,64.3689 -131.5832,64.3759 -131.5681,64.3846 -131.5494,64.3896 -131.5391,64.3893 -131.5288,64.3879 -131.5185,64.3871 -131.5080,64.3884 -131.5004,64.3921 -131.4942,64.3974 -131.4878,64.4030 -131.4803,64.4073 -131.4635,64.4098 -131.4439,64.4108 -131.4266,64.4159 -131.4165,64.4304 -131.4152,64.4403 -131.4143,64.4489 -131.4112,64.4565 -131.4030,64.4631 -131.3845,64.4679 -131.3668,64.4646 -131.3495,64.4575 -131.3319,64.4509 -131.3127,64.4460 -131.2925,64.4415 -131.2723,64.4372 -131.2527,64.4331 -131.2158,64.4298 -131.1798,64.4298 -131.1456,64.4241 -131.1141,64.4038 -131.1029,64.3947 -131.0916,64.3886 -131.0800,64.3832 -131.0677,64.3756 -131.0678,64.3727 -131.0701,64.3679 -131.0719,64.3626 -131.0708,64.3584 -131.0619,64.3527 -131.0515,64.3485 -131.0407,64.3452 -131.0307,64.3419 -131.0035,64.3252 -131.0132,64.3118 -131.0391,64.2979 -131.0605,64.2795 -131.0343,64.2753 -131.0036,64.2721 -130.9753,64.2644 -130.9566,64.2466 -130.9502,64.2315 -130.9434,64.2185 -130.9335,64.2084 -130.9172,64.2024 -130.8727,64.1905 -130.8820,64.1811 -130.9148,64.1693 -130.9405,64.1500 -130.9420,64.1289 -130.9278,64.1132 -130.9060,64.1014 -130.8847,64.0920 -130.8696,64.0848 -130.8593,64.0772 -130.8566,64.0667 -130.8640,64.0512 -130.8626,64.0419 -130.8441,64.0428 -130.8223,64.0479 -130.8114,64.0511 -130.7947,64.0526 -130.7740,64.0518 -130.7567,64.0467 -130.7508,64.0353 -130.7579,64.0243 -130.7688,64.0182 -130.7754,64.0106 -130.7694,63.9951 -130.7399,63.9734 -130.6965,63.9596 -130.6509,63.9501 -130.6148,63.9414 -130.6032,63.9362 -130.5923,63.9303 -130.5811,63.9256 -130.5685,63.9240 -130.5620,63.9257 -130.5562,63.9290 -130.5505,63.9324 -130.5441,63.9342 -130.5298,63.9338 -130.5209,63.9304 -130.5129,63.9248 -130.5016,63.9179 -130.4841,63.9105 -130.4668,63.9051 -130.4498,63.8991 -130.4333,63.8901 -130.4247,63.8830 -130.4163,63.8749 -130.4079,63.8667 -130.3989,63.8595 -130.3625,63.8415 -130.3226,63.8303 -130.2815,63.8215 -130.2418,63.8111 -130.2221,63.8054 -130.2025,63.8015 -130.1831,63.8002 -130.1639,63.8020 -130.1507,63.8060 -130.1396,63.8100 -130.1281,63.8105 -130.1144,63.8040 -130.0980,63.7823 -130.1079,63.7666 -130.1321,63.7575 -130.1586,63.7554 -130.1699,63.7568 -130.1845,63.7587 -130.1988,63.7588 -130.2093,63.7552 -130.2115,63.7514 -130.2119,63.7474 -130.2134,63.7439 -130.2188,63.7412 -130.2390,63.7387 -130.2591,63.7386 -130.2788,63.7370 -130.2978,63.7298 -130.3152,63.7151 -130.3180,63.7030 -130.3081,63.6939 -130.2878,63.6886 -130.2760,63.6841 -130.2728,63.6775 -130.2682,63.6708 -130.2519,63.6668 -130.2224,63.6699 -130.1899,63.6803 -130.1577,63.6929 -130.1286,63.7026 -130.1118,63.7028 -130.0945,63.6975 -130.0858,63.6879 -130.0950,63.6751 -130.1067,63.6658 -130.1056,63.6613 -130.0968,63.6569 -130.0855,63.6482 -130.0860,63.6434 -130.0908,63.6381 -130.0937,63.6333 -130.0886,63.6294 -130.0803,63.6274 -130.0717,63.6261 -130.0630,63.6253 -130.0545,63.6251 -130.0335,63.6260 -130.0040,63.6270 -129.9750,63.6251 -129.9558,63.6173 -129.9514,63.6072 -129.9535,63.5974 -129.9567,63.5891 -129.9554,63.5833 -129.9396,63.5764 -129.9215,63.5743 -129.9033,63.5717 -129.8872,63.5634 -129.8743,63.5484 -129.8637,63.5310 -129.8527,63.5137 -129.8385,63.4988 -129.8228,63.4779 -129.8394,63.4692 -129.8695,63.4642 -129.8944,63.4548 -129.9091,63.4391 -129.9144,63.4260 -129.9123,63.4125 -129.9050,63.3957 -129.9067,63.3838 -129.9189,63.3733 -129.9346,63.3652 -129.9469,63.3602 -129.9713,63.3532 -129.9953,63.3498 -130.0194,63.3479 -130.0441,63.3453 -130.0657,63.3406 -130.0874,63.3331 -130.1088,63.3247 -130.1294,63.3165 -130.1355,63.3099 -130.1411,63.2978 -130.1450,63.2850 -130.1461,63.2764 -130.1471,63.2713 -130.1498,63.2697 -130.1501,63.2681 -130.1436,63.2634 -130.1337,63.2620 -130.1186,63.2640 -130.1032,63.2671 -130.0922,63.2692 -130.0580,63.2695 -130.0344,63.2615 -130.0147,63.2458 -129.9925,63.2226 -129.9837,63.2128 -129.9774,63.2070 -129.9685,63.2047 -129.9526,63.2054 -129.9323,63.2064 -129.9177,63.2040 -129.9053,63.1969 -129.8919,63.1834 -129.8794,63.1652 -129.8669,63.1440 -129.8526,63.1253 -129.8352,63.1148 -129.8489,63.0986 -129.8447,63.0913 -129.8297,63.0888 -129.8111,63.0870 -129.7915,63.0814 -129.7742,63.0733 -129.7566,63.0663 -129.7365,63.0639 -129.7044,63.0692 -129.6561,63.0758 -129.6138,63.0722 -129.5997,63.0467 -129.6073,63.0371 -129.6225,63.0278 -129.6392,63.0197 -129.6512,63.0134 -129.6638,63.0026 -129.6665,62.9950 -129.6665,62.9871 -129.6711,62.9756 -129.6791,62.9684 -129.6901,62.9625 -129.7005,62.9566 -129.7067,62.9498 -129.7076,62.9452 -129.7080,62.9391 -129.7080,62.9337 -129.7083,62.9309 -129.7170,62.9177 -129.7210,62.9093 -129.7172,62.9021 -129.7024,62.8923 -129.7212,62.8884 -129.7450,62.8889 -129.7652,62.8853 -129.7733,62.8686 -129.7645,62.8516 -129.7447,62.8394 -129.7221,62.8306 -129.7045,62.8240 -129.6925,62.8142 -129.6810,62.7999 -129.6688,62.7853 -129.6549,62.7742 -129.6463,62.7695 -129.6405,62.7657 -129.6365,62.7615 -129.6330,62.7559 -129.6357,62.7553 -129.6409,62.7531 -129.6461,62.7506 -129.6483,62.7492 -129.6460,62.7465 -129.6422,62.7436 -129.6387,62.7414 -129.6372,62.7409 -129.6346,62.7362 -129.6298,62.7330 -129.6258,62.7281 -129.6251,62.7185 -129.6257,62.7107 -129.6242,62.7054 -129.6199,62.7022 -129.6121,62.7004 -129.6019,62.7006 -129.5915,62.7021 -129.5811,62.7030 -129.5711,62.7014 -129.5648,62.6978 -129.5605,62.6928 -129.5567,62.6878 -129.5519,62.6840 -129.5439,62.6816 -129.5331,62.6794 -129.5230,62.6766 -129.5169,62.6726 -129.5160,62.6667 -129.5188,62.6617 -129.5223,62.6576 -129.5233,62.6548 -129.5221,62.6516 -129.5212,62.6478 -129.5199,62.6435 -129.5177,62.6390 -129.5133,62.6363 -129.5063,62.6346 -129.4990,62.6325 -129.4939,62.6284 -129.4955,62.6077 -129.5224,62.5990 -129.5538,62.5930 -129.5689,62.5801 -129.5520,62.5664 -129.5141,62.5719 -129.4743,62.5841 -129.4516,62.5904 -129.4189,62.5806 -129.3914,62.5643 -129.3645,62.5476 -129.3342,62.5368 -129.2976,62.5322 -129.2454,62.5236 -129.1969,62.5072 -129.1716,62.4791 -129.1789,62.4685 -129.1995,62.4625 -129.2228,62.4597 -129.2386,62.4582 -129.2559,62.4574 -129.2695,62.4573 -129.2775,62.4529 -129.2778,62.4391 -129.2826,62.4305 -129.2955,62.4278 -129.3047,62.4230 -129.2983,62.4076 -129.2824,62.3974 -129.2593,62.3913 -129.2351,62.3859 -129.2158,62.3776 -129.2396,62.3690 -129.2707,62.3558 -129.2977,62.3393 -129.3094,62.3212 -129.3065,62.3158 -129.2999,62.3080 -129.2925,62.2999 -129.2878,62.2937 -129.2834,62.2816 -129.2817,62.2726 -129.2772,62.2652 -129.2644,62.2578 -129.2790,62.2577 -129.2529,62.2506 -129.2361,62.2290 -129.2322,62.2251 -129.2166,62.2185 -129.2042,62.2158 -129.2018,62.2105 -129.2161,62.1959 -129.2332,62.1886 -129.2592,62.1813 -129.2831,62.1729 -129.2941,62.1620 -129.2876,62.1534 -129.2714,62.1512 -129.2526,62.1519 -129.2388,62.1518 -129.2168,62.1462 -129.1956,62.1386 -129.1748,62.1298 -129.1538,62.1211 -129.1300,62.1161 -129.1101,62.1189 -129.0912,62.1256 -129.0708,62.1317 -129.0535,62.1343 -129.0341,62.1358 -129.0145,62.1364 -128.9966,62.1362 -128.9785,62.1328 -128.9617,62.1261 -128.9450,62.1196 -128.9273,62.1163 -128.9121,62.1170 -128.8938,62.1173 -128.8767,62.1137 -128.8656,62.1027 -128.8630,62.0930 -128.8606,62.0824 -128.8565,62.0735 -128.8485,62.0687 -128.8298,62.0646 -128.8041,62.0595 -128.7791,62.0569 -128.7625,62.0608 -128.7531,62.0713 -128.7459,62.0828 -128.7373,62.0944 -128.7236,62.1054 -128.6850,62.1203 -128.6455,62.1239 -128.6050,62.1227 -128.5631,62.1237 -128.5466,62.1218 -128.5359,62.1140 -128.5275,62.1030 -128.5175,62.0917 -128.5050,62.0829 -128.4918,62.0761 -128.4784,62.0700 -128.4649,62.0631 -128.4462,62.0561 -128.4208,62.0491 -128.3968,62.0413 -128.3822,62.0311 -128.3798,62.0214 -128.3847,62.0152 -128.3906,62.0089 -128.3911,61.9990 -128.3813,61.9902 -128.3633,61.9842 -128.3439,61.9795 -128.3294,61.9748 -128.3176,61.9690 -128.3015,61.9612 -128.2864,61.9532 -128.2772,61.9467 -128.2673,61.9374 -128.2565,61.9283 -128.2466,61.9184 -128.2394,61.9067 -128.2364,61.8943 -128.2353,61.8823 -128.2325,61.8704 -128.2247,61.8584 -128.1988,61.8463 -128.1683,61.8502 -128.1363,61.8583 -128.1061,61.8592 -128.0843,61.8500 -128.0674,61.8360 -128.0524,61.8194 -128.0363,61.8031 -128.0277,61.7953 -128.0177,61.7853 -128.0087,61.7746 -128.0033,61.7648 -128.0025,61.7521 -128.0048,61.7391 -128.0057,61.7264 -128.0008,61.7148 -127.9946,61.7074 -127.9883,61.7004 -127.9813,61.6940 -127.9728,61.6887 -127.9541,61.6837 -127.9332,61.6818 -127.9132,61.6789 -127.8969,61.6703 -127.8699,61.6473 -127.8396,61.6269 -127.8069,61.6109 -127.7724,61.6012 -127.7507,61.5990 -127.7256,61.5962 -127.7026,61.5897 -127.6868,61.5759 -127.6808,61.5645 -127.6762,61.5570 -127.6693,61.5512 -127.6567,61.5451 -127.6360,61.5400 -127.6134,61.5378 -127.5914,61.5344 -127.5725,61.5253 -127.5602,61.5172 -127.5479,61.5125 -127.5348,61.5102 -127.5199,61.5096 -127.4780,61.5081 -127.4327,61.5056 -127.3881,61.5065 -127.3482,61.5149 -127.3127,61.5216 -127.2810,61.5161 -127.2511,61.5032 -127.2213,61.4876 -127.1946,61.4791 -127.1683,61.4745 -127.1457,61.4652 -127.1305,61.4426 -127.1284,61.4309 -127.1278,61.4191 -127.1262,61.4077 -127.1208,61.3970 -127.1077,61.3887 -127.0903,61.3840 -127.0738,61.3791 -127.0632,61.3699 -127.0616,61.3604 -127.0644,61.3519 -127.0681,61.3433 -127.0691,61.3337 -127.0657,61.3241 -127.0594,61.3162 -127.0522,61.3091 -127.0455,61.3017 -127.0352,61.2838 -127.0284,61.2649 -127.0232,61.2453 -127.0177,61.2254 -127.0146,61.2159 -127.0115,61.2068 -127.0089,61.1975 -127.0072,61.1877 -127.0096,61.1772 -127.0170,61.1695 -127.0253,61.1623 -127.0307,61.1535 -127.0265,61.1423 -127.0158,61.1355 -127.0122,61.1270 -127.0297,61.1104 -127.0443,61.1034 -127.0605,61.0992 -127.0772,61.0955 -127.0928,61.0901 -127.1027,61.0807 -127.1000,61.0707 -127.0909,61.0615 -127.0814,61.0543 -127.0680,61.0454 -127.0583,61.0427 -127.0483,61.0451 -127.0338,61.0509 -127.0130,61.0591 -126.9909,61.0658 -126.9683,61.0687 -126.9459,61.0648 -126.9365,61.0590 -126.9346,61.0522 -126.9362,61.0442 -126.9374,61.0348 -126.9368,61.0145 -126.9344,61.0005 -126.9284,60.9874 -126.9169,60.9701 -126.9118,60.9635 -126.9053,60.9546 -126.9007,60.9457 -126.9010,60.9387 -126.9091,60.9291 -126.9161,60.9221 -126.9198,60.9141 -126.9184,60.9016 -126.9176,60.8817 -126.9207,60.8657 -126.9162,60.8523 -126.8927,60.8403 -126.8809,60.8330 -126.8828,60.8248 -126.8902,60.8162 -126.8947,60.8073 -126.8922,60.7924 -126.8845,60.7819 -126.8729,60.7735 -126.8590,60.7651 -126.8520,60.7613 -126.8431,60.7573 -126.8339,60.7549 -126.8261,60.7551 -126.8211,60.7583 -126.8201,60.7624 -126.8201,60.7666 -126.8177,60.7698 -126.8020,60.7778 -126.7879,60.7824 -126.7727,60.7837 -126.7537,60.7817 -126.7367,60.7758 -126.7230,60.7663 -126.7097,60.7560 -126.6936,60.7481 -126.6749,60.7456 -126.6596,60.7497 -126.6450,60.7577 -126.6286,60.7668 -126.6006,60.7826 -126.5728,60.7994 -126.5433,60.8117 -126.5103,60.8145 -126.4962,60.8114 -126.4820,60.8060 -126.4682,60.7992 -126.4554,60.7924 -126.4346,60.7841 -126.4124,60.7793 -126.3896,60.7770 -126.3672,60.7763 -126.3344,60.7765 -126.2885,60.7796 -126.2455,60.7885 -126.2215,60.8060 -126.2198,60.8219 -126.2280,60.8295 -126.2386,60.8352 -126.2441,60.8456 -126.2373,60.8572 -126.2207,60.8625 -126.2012,60.8640 -126.1859,60.8641 -126.1682,60.8654 -126.1444,60.8669 -126.1217,60.8657 -126.1074,60.8590 -126.1061,60.8512 -126.1096,60.8428 -126.1137,60.8344 -126.1141,60.8265 -126.0938,60.8147 -126.0543,60.8057 -126.0142,60.8035 -125.9921,60.8120 -125.9769,60.8447 -125.9613,60.8685 -125.9384,60.8847 -125.9014,60.8947 -125.8640,60.8940 -125.8260,60.8831 -125.7892,60.8667 -125.7553,60.8492 -125.7154,60.8340 -125.6762,60.8277 -125.6359,60.8265 -125.5925,60.8267 -125.5466,60.8222 -125.4995,60.8114 -125.4527,60.7983 -125.4079,60.7863 -125.3642,60.7820 -125.3218,60.7879 -125.2807,60.8007 -125.2408,60.8170 -125.2248,60.8255 -125.2104,60.8349 -125.1956,60.8436 -125.1786,60.8497 -125.1583,60.8523 -125.1367,60.8525 -125.1149,60.8515 -125.0940,60.8509 -125.0699,60.8527 -125.0456,60.8566 -125.0214,60.8600 -124.9975,60.8604 -124.9710,60.8583 -124.9447,60.8563 -124.9183,60.8551 -124.8919,60.8551 -124.8690,60.8634 -124.8698,60.8817 -124.8758,60.9043 -124.8687,60.9262 -124.8485,60.9457 -124.8282,60.9612 -124.8058,60.9682 -124.7798,60.9623 -124.7617,60.9557 -124.7474,60.9546 -124.7329,60.9564 -124.7141,60.9584 -124.6961,60.9573 -124.6799,60.9546 -124.6637,60.9539 -124.6461,60.9588 -124.5986,60.9645 -124.5665,60.9390 -124.5462,60.8972 -124.5341,60.8546 -124.5222,60.8368 -124.5015,60.8176 -124.4833,60.8003 -124.4787,60.7879 -124.5042,60.7617 -124.5356,60.7449 -124.5695,60.7322 -124.6027,60.7183 -124.6197,60.6821 -124.5791,60.6401 -124.5179,60.6027 -124.4733,60.5801 -124.4573,60.5688 -124.4446,60.5538 -124.4351,60.5365 -124.4286,60.5187 -124.4272,60.5091 -124.4253,60.4959 -124.4222,60.4842 -124.4164,60.4793 -124.3919,60.4793 -124.3670,60.4792 -124.3422,60.4796 -124.3179,60.4819 -124.2824,60.4836 -124.2450,60.4778 -124.2162,60.4613 -124.2063,60.4311 -124.2094,60.4103 -124.2126,60.3921 -124.2132,60.3737 -124.2083,60.3526 -124.1957,60.3301 -124.1792,60.3130 -124.1615,60.2973 -124.1454,60.2790 -124.1316,60.2577 -124.1179,60.2367 -124.1026,60.2172 -124.0839,60.2004 -124.0687,60.1901 -124.0531,60.1805 -124.0375,60.1710 -124.0222,60.1610 -124.0138,60.1526 -124.0097,60.1435 -124.0066,60.1345 -124.0013,60.1260 -123.9808,60.0985 -123.9841,60.0834 -124.0020,60.0687 -124.0259,60.0420 -124.0256,60.0199 -123.9945,60.0163 -123.9542,60.0229 -123.9260,60.0318 -123.8958,60.0404 -123.8650,60.0383 -123.8379,60.0250 -123.8191,60.0001 -123.3417,60.0001 -122.8643,60.0001 -122.3869,60.0001 -121.9096,60.0001 -121.4322,60.0001 -120.9547,60.0001 -120.4773,60.0001 -120.0000,60.0001 -120.0000,59.9174 -120.0000,59.8346 -120.0000,59.7519 -120.0000,59.6691 -120.0000,59.5863 -120.0000,59.5036 -120.0000,59.4209 -120.0000,59.3381 -120.0000,59.0665 -120.0000,58.7948 -120.0000,58.5231 -120.0000,58.2515 -120.0000,57.9798 -120.0000,57.7082 -120.0000,57.4364 -120.0000,57.2709 -120.0000,57.2650 -120.0778,57.2174 -120.1551,57.2055 -120.1908,57.2114 -120.2681,57.2352 -120.3349,57.2543 -120.3526,57.2720 -120.3931,57.3126 -120.3812,57.3602 -120.3757,57.4100 -120.3812,57.4196 -120.4228,57.4434 -120.5001,57.4672 -120.6251,57.4315 -120.7143,57.4315 -120.8392,57.4315 -120.9463,57.4256 -121.0117,57.3721 -121.0534,57.3126 -121.1961,57.2769 -121.3092,57.2531 -121.3984,57.2531 -121.4498,57.2769 -121.4823,57.2882 -121.5529,57.2955 -121.5535,57.2956 -121.6058,57.2932 -121.6612,57.2994 -121.7103,57.2987 -121.7454,57.2814 -121.7471,57.2591 -121.7514,57.2246 -121.7819,57.1773 -121.8239,57.1481 -121.8357,57.1207 -121.8654,57.1019 -121.9234,57.0839 -122.0113,57.0601 -122.0597,57.0557 -122.1004,57.0588 -122.1855,57.0915 -122.2339,57.1237 -122.2837,57.1563 -122.3260,57.1761 -122.3579,57.1790 -122.3971,57.1726 -122.4252,57.1551 -122.4360,57.1381 -122.4399,57.1319 -122.4449,57.1240 -122.4782,57.1046 -122.4913,57.1018 -122.5355,57.0927 -122.5765,57.0894 -122.6217,57.0928 -122.7528,57.1099 -122.7853,57.1134 -122.8788,57.1232 -122.9212,57.1579 -123.0045,57.1757 -123.1116,57.1639 -123.2246,57.1460 -123.3258,57.1401 -123.4031,57.1044 -123.4745,57.0449 -123.5578,57.0270 -123.6648,56.9973 -123.7600,56.9735 -123.8076,56.9140 -123.7957,56.8486 -123.7957,56.8367 -123.7897,56.7772 -123.7481,56.7177 -123.6946,56.6582 -123.6886,56.5809 -123.6589,56.5511 -123.5815,56.5095 -123.5934,56.4203 -123.5934,56.3608 -123.5518,56.3132 -123.5221,56.2537 -123.4923,56.1764 -123.5102,56.1109 -123.4861,56.0200 -123.4685,55.9801 -123.4150,55.9087 -123.3377,55.8433 -123.3377,55.7897 -123.2782,55.7302 -123.1889,55.7421 -123.1413,55.7005 -123.0759,55.6350 -122.9926,55.6113 -122.9986,55.5399 -122.9450,55.4447 -122.8558,55.4149 -122.7547,55.3793 -122.6833,55.3912 -122.5881,55.4328 -122.5465,55.3852 -122.4751,55.3436 -122.4818,55.3321 -122.3561,55.2365 -122.2371,55.1532 -122.0468,55.0759 -121.8862,54.9807 -121.8564,54.8974 -121.7672,54.8855 -121.6661,54.8736 -121.5768,54.8379 -121.5471,54.7368 -121.5174,54.6357 -121.4222,54.5583 -121.3567,54.5464 -121.2497,54.5464 -121.1545,54.5464 -121.1129,54.4929 -121.0593,54.4751 -120.9820,54.4751 -120.9165,54.4751 -120.8273,54.4810 -120.8035,54.4275 -120.7500,54.3918 -120.6846,54.3323 -120.6132,54.3025 -120.5894,54.2371 -120.5358,54.1598 -120.4228,54.1538 -120.3038,54.1419 -120.1968,54.1241 -120.1730,54.0527 -120.1432,54.0051 -120.0897,53.9932 -120.0540,53.9397 -120.0540,53.8564 -120.0480,53.8148 -119.9958,53.8054 -119.9809,53.7906 -119.9621,53.7852 -119.9398,53.7848 -119.9189,53.7834 -119.9044,53.7753 -119.9032,53.7677 -119.9067,53.7591 -119.9116,53.7512 -119.9147,53.7456 -119.9184,53.7360 -119.9215,53.7295 -119.9212,53.7236 -119.9147,53.7159 -119.9029,53.7109 -119.8896,53.7109 -119.8762,53.7098 -119.8643,53.7020 -119.8545,53.6979 -119.8427,53.7017 -119.8300,53.7075 -119.8180,53.7093 -119.8077,53.7047 -119.8014,53.6975 -119.7962,53.6892 -119.7897,53.6812 -119.7745,53.6710 -119.7540,53.6581 -119.7371,53.6421 -119.7325,53.6231 -119.7537,53.6048 -119.7937,53.6027 -119.8365,53.6084 -119.8659,53.6138 -119.8808,53.6157 -119.9054,53.6173 -119.9265,53.6149 -119.9309,53.6051 -119.9218,53.5946 -119.9097,53.5857 -119.8972,53.5769 -119.8870,53.5666 -119.8859,53.5568 -119.8940,53.5496 -119.9042,53.5421 -119.9091,53.5320 -119.9049,53.5219 -119.8949,53.5128 -119.8826,53.5071 -119.8718,53.5074 -119.8481,53.5133 -119.8274,53.5081 -119.8087,53.4934 -119.7908,53.4709 -119.7797,53.4526 -119.7689,53.4332 -119.7567,53.4146 -119.7416,53.3995 -119.7185,53.3854 -119.6932,53.3741 -119.6670,53.3640 -119.6416,53.3538 -119.6317,53.3546 -119.6227,53.3625 -119.6143,53.3722 -119.6061,53.3781 -119.5889,53.3788 -119.5700,53.3747 -119.5509,53.3692 -119.5333,53.3655 -119.5141,53.3623 -119.4953,53.3584 -119.4764,53.3567 -119.4573,53.3595 -119.4429,53.3635 -119.4256,53.3669 -119.4081,53.3678 -119.3933,53.3645 -119.3809,53.3560 -119.3776,53.3473 -119.3777,53.3370 -119.3755,53.3234 -119.3713,53.3133 -119.3652,53.3012 -119.3589,53.2901 -119.3541,53.2834 -119.3363,53.2648 -119.3169,53.2452 -119.2970,53.2258 -119.2778,53.2082 -119.2634,53.1983 -119.2514,53.1953 -119.2387,53.1953 -119.2222,53.1942 -119.2090,53.1909 -119.1992,53.1870 -119.1879,53.1842 -119.1705,53.1845 -119.1564,53.1825 -119.1469,53.1754 -119.1379,53.1671 -119.1255,53.1615 -119.1132,53.1598 -119.1018,53.1589 -119.0901,53.1573 -119.0767,53.1535 -119.0631,53.1467 -119.0459,53.1383 -119.0288,53.1346 -119.0153,53.1422 -119.0144,53.1499 -119.0186,53.1583 -119.0238,53.1669 -119.0255,53.1756 -119.0219,53.1828 -119.0162,53.1872 -119.0109,53.1928 -119.0086,53.2035 -119.0094,53.2138 -119.0098,53.2233 -119.0066,53.2311 -118.9967,53.2365 -118.9784,53.2380 -118.9629,53.2333 -118.9485,53.2250 -118.9341,53.2159 -118.9200,53.2094 -118.9061,53.2054 -118.8921,53.2020 -118.8775,53.1971 -118.8502,53.1833 -118.8257,53.1668 -118.8019,53.1491 -118.7775,53.1321 -118.7663,53.1262 -118.7570,53.1215 -118.7514,53.1151 -118.7511,53.1040 -118.7566,53.0951 -118.7664,53.0865 -118.7758,53.0776 -118.7802,53.0676 -118.7766,53.0532 -118.7660,53.0515 -118.7519,53.0563 -118.7379,53.0616 -118.7260,53.0612 -118.7207,53.0545 -118.7176,53.0457 -118.7125,53.0392 -118.6977,53.0368 -118.6840,53.0381 -118.6722,53.0341 -118.6633,53.0156 -118.6650,52.9943 -118.6733,52.9797 -118.6737,52.9660 -118.6512,52.9477 -118.6371,52.9298 -118.6315,52.9070 -118.6243,52.8870 -118.6050,52.8775 -118.5935,52.8795 -118.5780,52.8843 -118.5620,52.8897 -118.5493,52.8932 -118.5328,52.8968 -118.5153,52.9001 -118.4982,52.8997 -118.4829,52.8926 -118.4767,52.8830 -118.4746,52.8721 -118.4709,52.8624 -118.4604,52.8562 -118.4435,52.8525 -118.4298,52.8481 -118.4206,52.8403 -118.4172,52.8262 -118.4199,52.8152 -118.4259,52.8065 -118.4313,52.7988 -118.4325,52.7909 -118.4231,52.7786 -118.4066,52.7710 -118.3883,52.7660 -118.3736,52.7614 -118.3553,52.7484 -118.3451,52.7321 -118.3369,52.7141 -118.3247,52.6956 -118.3147,52.6864 -118.3062,52.6775 -118.3050,52.6672 -118.3166,52.6539 -118.3274,52.6480 -118.3425,52.6392 -118.3524,52.6285 -118.3480,52.6164 -118.3424,52.6099 -118.3384,52.6024 -118.3345,52.5950 -118.3291,52.5881 -118.3167,52.5813 -118.3008,52.5760 -118.2864,52.5693 -118.2786,52.5592 -118.2787,52.5498 -118.2818,52.5419 -118.2842,52.5340 -118.2825,52.5240 -118.2759,52.5159 -118.2647,52.5065 -118.2528,52.4980 -118.2438,52.4929 -118.2345,52.4912 -118.2192,52.4882 -118.2074,52.4821 -118.2086,52.4709 -118.2205,52.4633 -118.2359,52.4599 -118.2503,52.4556 -118.2589,52.4453 -118.2584,52.4308 -118.2508,52.4196 -118.2406,52.4097 -118.2324,52.3992 -118.2307,52.3924 -118.2299,52.3837 -118.2289,52.3756 -118.2266,52.3703 -118.2113,52.3667 -118.3051,52.3692 -118.3884,52.3692 -118.4776,52.3454 -118.5252,52.3216 -118.5700,52.2614 -118.6025,52.2027 -118.6620,52.1789 -118.6144,52.1015 -118.5668,52.0778 -118.4776,52.0540 -118.4122,52.0064 -118.3289,51.9885 -118.2337,51.9885 -118.1921,51.9528 -118.1861,51.8814 -118.1742,51.8160 -118.1207,51.7744 -118.0196,51.7565 -117.9601,51.7268 -117.9779,51.6435 -117.9660,51.5364 -117.9184,51.5126 -117.8411,51.5067 -117.7816,51.4591 -117.6686,51.4175 -117.5615,51.4591 -117.4961,51.4888 -117.4009,51.4472 -117.3652,51.4056 -117.2998,51.3520 -117.2879,51.2687 -117.2641,51.1855 -117.1927,51.0784 -117.0975,50.9832 -116.9131,50.8345 -116.7822,50.7334 -116.6871,50.6977 -116.6097,50.6739 -116.6335,50.6322 -116.6752,50.5608 -116.6633,50.4657 -116.6216,50.3705 -116.5562,50.2991 -116.4729,50.1920 -116.4729,50.1385 -116.4908,50.0552 -116.5502,49.9719 -116.6395,49.9303 -116.6692,49.8470 -116.7465,49.8351 -116.8613,49.8282 -116.8789,49.7755 -116.8867,49.7071 -116.9121,49.6661 -116.8984,49.6466 -116.8750,49.6290 -116.8477,49.6075 -116.8262,49.5997 -116.8125,49.5880 -116.8047,49.5587 -116.7949,49.5176 -116.7930,49.4747 -116.7793,49.4532 -116.7578,49.3966 -116.7344,49.3555 -116.7129,49.3341 -116.6836,49.3008 -116.6659,49.2857 -116.7525,49.2402 -116.8536,49.2224 -116.9488,49.2105 -117.0083,49.1748 -117.0023,49.0856 -116.9012,49.0320 -116.8417,48.9995 -116.5384,48.9925 -116.4986,48.9925 -116.2788,48.9925 -116.0590,48.9925 -116.0482,48.9925 -116.0482,48.8754 -116.0483,48.7580 -116.0484,48.6405 -116.0486,48.5230 -116.0487,48.4055 -116.0487,48.2880 -116.0488,48.1706 -116.0489,48.0531 -116.0489,48.0037 -116.0455,47.9974 -116.0369,47.9879 -116.0148,47.9733 -115.9855,47.9483 -115.9737,47.9330 -115.9489,47.9100 -115.9414,47.8995 -115.9370,47.8945 -115.9304,47.8893 -115.9178,47.8825 -115.9071,47.8749 -115.8960,47.8651 -115.8867,47.8587 -115.8630,47.8489 -115.8550,47.8439 -115.8486,47.8357 -115.8446,47.8297 -115.8256,47.7817 -115.8212,47.7762 -115.8141,47.7706 -115.7875,47.7596 -115.7783,47.7544 -115.7722,47.7453 -115.7698,47.7384 -115.7666,47.7316 -115.7614,47.7261 -115.7324,47.7127 -115.7253,47.7081 -115.7189,47.6998 -115.7162,47.6929 -115.7152,47.6859 -115.7178,47.6611 -115.7130,47.6529 -115.6856,47.6238 -115.6788,47.6130 -115.6765,47.6045 -115.6789,47.5989 -115.6850,47.5888 -115.6892,47.5845 -115.6939,47.5808 -115.6992,47.5777 -115.7233,47.5673 -115.7288,47.5642 -115.7331,47.5607 -115.7328,47.5556 -115.7268,47.5505 -115.7011,47.5387 -115.6920,47.5324 -115.6844,47.5215 -115.6786,47.5008 -115.6780,47.5000 -115.6677,47.4954 -115.6522,47.4903 -115.6431,47.4858 -115.6392,47.4793 -115.6413,47.4742 -115.6456,47.4700 -115.6515,47.4674 -115.6580,47.4655 -115.6653,47.4641 -115.7079,47.4613 -115.7145,47.4598 -115.7194,47.4573 -115.7221,47.4554 -115.7248,47.4517 -115.7267,47.4471 -115.7240,47.4417 -115.7173,47.4365 -115.7006,47.4308 -115.6613,47.4228 -115.5862,47.3884 -115.5771,47.3824 -115.5450,47.3565 -115.5286,47.3399 -115.5202,47.3259 -115.5101,47.3127 -115.5047,47.3082 -115.4968,47.3041 -115.4822,47.2998 -115.4318,47.2934 -115.3417,47.2685 -115.3333,47.2644 -115.3253,47.2582 -115.3142,47.2461 -115.3046,47.2318 -115.3005,47.2267 -115.2941,47.2211 -115.2900,47.2162 -115.2871,47.2113 -115.2836,47.2007 -115.2799,47.1959 -115.2741,47.1919 -115.2642,47.1883 -115.2561,47.1842 -115.2489,47.1791 -115.2396,47.1701 -115.2310,47.1636 -115.1737,47.1249 -115.1647,47.1161 -115.1504,47.0928 -115.0611,47.0243 -115.0588,47.0192 -115.0542,47.0010 -115.0533,46.9992 -115.0517,46.9967 -115.0470,46.9928 -115.0394,46.9887 -115.0249,46.9845 -115.0051,46.9809 -114.9987,46.9780 -114.9919,46.9734 -114.9639,46.9470 -114.9574,46.9426 -114.9489,46.9378 -114.9240,46.9272 -114.9179,46.9228 -114.9171,46.9177 -114.9185,46.9123 -114.9209,46.9066 -114.9226,46.9007 -114.9233,46.8944 -114.9213,46.8770 -114.9183,46.8662 -114.9138,46.8560 -114.9054,46.8418 -114.8990,46.8369 -114.8899,46.8316 -114.8594,46.8177 -114.8486,46.8107 -114.8342,46.7993 -114.8236,46.7928 -114.8073,46.7875 -114.7787,46.7818 -114.7716,46.7787 -114.7664,46.7744 -114.7627,46.7674 -114.7619,46.7606 -114.7623,46.7541 -114.7695,46.7300 -114.7694,46.7245 -114.7666,46.7197 -114.7612,46.7160 -114.7514,46.7143 -114.7436,46.7154 -114.7372,46.7181 -114.7149,46.7377 -114.6987,46.7474 -114.6928,46.7498 -114.6858,46.7512 -114.6781,46.7516 -114.6701,46.7505 -114.6632,46.7485 -114.6378,46.7356 -114.6311,46.7301 -114.6227,46.7201 -114.6207,46.7129 -114.6223,46.7071 -114.6360,46.6949 -114.6388,46.6901 -114.6397,46.6844 -114.6383,46.6792 -114.6360,46.6742 -114.6287,46.6683 -114.6179,46.6617 -114.5939,46.6511 -114.5796,46.6466 -114.5670,46.6443 -114.5503,46.6452 -114.5383,46.6472 -114.5154,46.6536 -114.5085,46.6542 -114.5020,46.6534 -114.4854,46.6492 -114.4776,46.6484 -114.4702,46.6491 -114.4630,46.6506 -114.4504,46.6552 -114.4342,46.6638 -114.4277,46.6658 -114.3598,46.6780 -114.3517,46.6783 -114.3431,46.6777 -114.3355,46.6754 -114.3295,46.6716 -114.3253,46.6649 -114.3238,46.6585 -114.3229,46.6520 -114.3233,46.6339 -114.3267,46.6217 -114.3328,46.6115 -114.3354,46.6062 -114.3367,46.6006 -114.3360,46.5952 -114.3343,46.5900 -114.3331,46.5846 -114.3341,46.5791 -114.3370,46.5740 -114.3441,46.5651 -114.3465,46.5601 -114.3470,46.5547 -114.3454,46.5497 -114.3424,46.5452 -114.3399,46.5406 -114.3387,46.5358 -114.3405,46.5308 -114.3440,46.5267 -114.3489,46.5232 -114.3544,46.5202 -114.3606,46.5176 -114.3879,46.5102 -114.3938,46.5079 -114.3982,46.5052 -114.4002,46.5006 -114.4001,46.4995 -114.3991,46.4980 -114.3959,46.4939 -114.3816,46.4819 -114.3765,46.4764 -114.3727,46.4712 -114.3712,46.4658 -114.3706,46.4600 -114.3713,46.4537 -114.3730,46.4476 -114.3754,46.4414 -114.3987,46.4065 -114.4029,46.3950 -114.4055,46.3829 -114.4058,46.3702 -114.4040,46.3584 -114.4046,46.3523 -114.4061,46.3468 -114.4094,46.3419 -114.4299,46.3208 -114.4330,46.3154 -114.4347,46.3098 -114.4357,46.2981 -114.4376,46.2926 -114.4409,46.2875 -114.4493,46.2792 -114.4525,46.2749 -114.4544,46.2700 -114.4534,46.2645 -114.4504,46.2591 -114.4456,46.2526 -114.4398,46.2416 -114.4381,46.2363 -114.4369,46.2310 -114.4348,46.2140 -114.4323,46.2029 -114.4320,46.1970 -114.4332,46.1914 -114.4365,46.1867 -114.4411,46.1830 -114.4472,46.1806 -114.4544,46.1790 -114.4877,46.1765 -114.4938,46.1745 -114.4982,46.1719 -114.5004,46.1695 -114.5026,46.1653 -114.5032,46.1601 -114.5022,46.1548 -114.4976,46.1488 -114.4579,46.1187 -114.4537,46.1143 -114.4513,46.1091 -114.4507,46.1036 -114.4517,46.0979 -114.4542,46.0926 -114.4577,46.0878 -114.4779,46.0664 -114.4808,46.0614 -114.4829,46.0558 -114.4825,46.0491 -114.4796,46.0418 -114.4717,46.0319 -114.4703,46.0248 -114.4715,46.0187 -114.4736,46.0133 -114.4705,46.0069 -114.4614,46.0007 -114.4375,45.9934 -114.4112,45.9881 -114.4040,45.9852 -114.4000,45.9787 -114.3993,45.9725 -114.4013,45.9666 -114.4112,45.9524 -114.4138,45.9470 -114.4154,45.9409 -114.4162,45.9351 -114.4154,45.9295 -114.4131,45.9247 -114.4102,45.9199 -114.3891,45.8959 -114.3875,45.8883 -114.3889,45.8824 -114.3931,45.8781 -114.4171,45.8609 -114.4227,45.8581 -114.4295,45.8560 -114.4369,45.8548 -114.4711,45.8536 -114.4784,45.8525 -114.4848,45.8505 -114.4951,45.8447 -114.4985,45.8412 -114.5005,45.8387 -114.5059,45.8299 -114.5172,45.8171 -114.5239,45.8079 -114.5268,45.8026 -114.5302,45.7978 -114.5349,45.7938 -114.5454,45.7871 -114.5499,45.7835 -114.5513,45.7781 -114.5493,45.7713 -114.5409,45.7616 -114.5358,45.7479 -114.5335,45.7430 -114.5274,45.7372 -114.5019,45.7189 -114.4954,45.7116 -114.4937,45.7051 -114.4980,45.6956 -114.4976,45.6905 -114.4941,45.6803 -114.4943,45.6743 -114.4956,45.6691 -114.4978,45.6646 -114.5001,45.6613 -114.5028,45.6585 -114.5156,45.6483 -114.5365,45.6358 -114.5405,45.6319 -114.5422,45.6267 -114.5404,45.6204 -114.5344,45.6122 -114.5307,45.6061 -114.5291,45.6000 -114.5304,45.5945 -114.5332,45.5892 -114.5449,45.5765 -114.6288,45.4866 -114.7359,45.4450 -114.8549,45.4807 -115.0690,45.5818 -115.1880,45.6116 -115.3665,45.4807 -115.5033,45.4093 -115.6520,45.4688 -115.8007,45.4926 -116.2944,45.4688 -116.3004,45.9149 -116.6276,46.0696 -116.7893,45.8741 -116.7468,45.8360 -116.6878,45.8267 -116.6781,45.8206 -116.6574,45.8035 -116.5994,45.7780 -116.5574,45.7721 -116.5428,45.7624 -116.5301,45.7516 -116.5172,45.7319 -116.4988,45.6910 -116.4637,45.6424 -116.4559,45.6219 -116.4550,45.6008 -116.4630,45.5819 -116.4767,45.5665 -116.5062,45.5424 -116.5118,45.5356 -116.5307,45.5020 -116.5353,45.4809 -116.5392,45.4710 -116.5867,45.4281 -116.6015,45.3946 -116.6362,45.3657 -116.6490,45.3475 -116.6530,45.3263 -116.6561,45.2847 -116.6658,45.2684 -116.6790,45.2513 -116.6968,45.1898 -116.7174,45.1514 -116.8235,45.0358 -116.8313,45.0250 -116.8346,45.0148 -116.8324,45.0034 -116.8275,44.9955 -116.8226,44.9905 -116.8204,44.9875 -116.8220,44.9666 -116.8328,44.9199 -116.8408,44.9012 -116.8639,44.8661 -116.9173,44.8026 -116.9315,44.7902 -116.9501,44.7783 -117.0106,44.7500 -117.0292,44.7336 -117.0399,44.7192 -117.0674,44.6685 -117.0927,44.6330 -117.1038,44.6118 -117.1123,44.5728 -117.1223,44.5541 -117.1356,44.5371 -117.1493,44.5251 -117.1603,44.5211 -117.1714,44.5188 -117.1800,44.5136 -117.1835,44.5009 -117.1881,44.4956 -117.1973,44.4897 -117.2038,44.4825 -117.1935,44.4556 -117.2011,44.4376 -117.2121,44.4178 -117.2154,44.3948 -117.2109,44.3832 -117.1977,44.3628 -117.1949,44.3501 -117.1959,44.3397 -117.2007,44.3265 -117.2017,44.3163 -117.2067,44.3184 -117.2201,44.3014 -117.4073,44.3014 -117.4862,44.3014 -117.4859,44.3877 -117.5910,44.4445 -117.9714,44.4433 -117.9716,44.4433 -118.0314,44.4152 -118.0405,44.3899 -118.0575,44.3718 -118.1526,44.2707 -118.1869,44.2644 -118.2321,44.2561 -118.2274,44.0400 -118.2281,43.5820 -118.2287,43.1239 -118.2221,42.8230 -118.2154,42.5220 -117.8162,42.5198 -117.4169,42.5175 -117.0176,42.5153 -117.0171,42.2574 -117.0166,41.9995 -116.7947,41.9996 -116.6449,41.9996 -116.4590,41.9997 -116.2731,41.9997 -116.0872,41.9997 -115.9014,41.9998 -115.7155,41.9998 -115.5296,41.9998 -115.3437,41.9998 -115.1579,41.9998 -114.9720,41.9999 -114.7861,41.9999 -114.6002,42.0000 -114.4143,42.0000 -114.2284,42.0000 -114.0425,42.0001 -114.0425,41.8439 -114.0424,41.6878 -114.0424,41.5316 -114.0423,41.3755 -114.0422,41.2193 -114.0421,41.0631 -114.0421,40.9070 -114.0420,40.7508 -114.0419,40.5947 -114.0418,40.4385 -114.0417,40.2824 -114.0416,40.1262 -114.0416,39.9701 -114.0415,39.8139 -114.0414,39.6577 -114.0414,39.5016 -114.0413,39.3455 -114.0413,39.1893 -114.0412,39.0331 -114.0411,38.8770 -114.0410,38.7208 -114.0410,38.5647 -114.0409,38.4085 -114.0408,38.2523 -114.0407,38.0962 -114.0406,37.9401 -114.0405,37.7839 -114.0405,37.6277 -114.0404,37.4716 -114.0404,37.3154 -114.0403,37.1593 -114.0402,37.0031 -114.0403,36.9949 -114.0403,36.9713 -114.0404,36.9347 -114.0405,36.8873 -114.0406,36.8313 -114.0407,36.7687 -114.0409,36.7017 -114.0410,36.6326 -114.0412,36.5635 -114.0413,36.4966 -114.0414,36.4339 -114.0416,36.3779 -114.0417,36.3305 -114.0418,36.2940 -114.0418,36.2705 -114.0418,36.2621 -114.0420,36.2198 -114.0422,36.2174 -114.0428,36.2113 -114.0428,36.2103 -114.0453,36.2005 -114.0654,36.1782 -114.0842,36.1576 -114.0952,36.1265 -114.1084,36.0895 -114.1239,36.0459 -114.1587,36.0297 -114.2077,36.0232 -114.2336,36.0244 -114.2565,36.0325 -114.2753,36.0457 -114.2877,36.0581 -114.2972,36.0705 -114.3033,36.0816 -114.3196,36.1111 -114.3270,36.1208 -114.3366,36.1307 -114.3475,36.1398 -114.3564,36.1443 -114.3656,36.1472 -114.3723,36.1477 -114.3792,36.1474 -114.3859,36.1465 -114.3918,36.1450 -114.3972,36.1429 -114.4229,36.1303 -114.4287,36.1285 -114.4355,36.1277 -114.4429,36.1277 -114.4507,36.1284 -114.4640,36.1321 -114.4744,36.1375 -114.4828,36.1429 -114.4882,36.1456 -114.4920,36.1469 -114.5455,36.1597 -114.5548,36.1605 -114.5632,36.1588 -114.5788,36.1536 -114.6368,36.1413 -114.6694,36.1248 -114.7029,36.1121 -114.7071,36.1088 -114.7110,36.1054 -114.7181,36.0974 -114.7212,36.0927 -114.7227,36.0843 -114.7227,36.0731 -114.7194,36.0502 -114.7199,36.0389 -114.7244,36.0279 -114.7413,36.0136 -114.7413,36.0135 -114.7396,35.9858 -114.7292,35.9593 -114.7147,35.9362 -114.6753,35.8942 -114.6689,35.8854 -114.6668,35.8739 -114.6706,35.8628 -114.6881,35.8372 -114.6935,35.8224 -114.6945,35.7671 -114.6916,35.7396 -114.6867,35.7194 -114.6516,35.6468 -114.6451,35.6306 -114.6452,35.6303 -114.6527,35.6089 -114.6465,35.5655 -114.6676,35.5170 -114.6506,35.4770 -114.6323,35.4287 -114.6006,35.3767 -114.5909,35.3530 -114.5909,35.3529 -114.5923,35.3260 -114.5899,35.3005 -114.5768,35.2526 -114.5719,35.2126 -114.5726,35.1912 -114.5818,35.1513 -114.5861,35.1483 -114.5979,35.1434 -114.6119,35.1410 -114.6254,35.1410 -114.6355,35.1372 -114.6389,35.1235 -114.6343,35.1142 -114.6155,35.0965 -114.6116,35.0826 -114.6154,35.0731 -114.6389,35.0478 -114.6293,35.0154 -114.6282,35.0036 -114.6276,34.9966 -114.6170,34.8793 -114.6100,34.8675 -114.5942,34.8628 -114.5800,34.8569 -114.5686,34.8430 -114.5607,34.8272 -114.5570,34.8150 -114.5550,34.7870 -114.5424,34.7679 -114.5213,34.7570 -114.4943,34.7536 -114.4289,34.6429 -114.4245,34.6387 -114.4211,34.6343 -114.4197,34.6264 -114.4211,34.6026 -114.4197,34.5960 -114.4077,34.5795 -114.3945,34.5710 -114.3837,34.5611 -114.3788,34.5407 -114.3771,34.5401 -114.3766,34.5395 -114.3672,34.5301 -114.3717,34.5155 -114.3771,34.5004 -114.3772,34.4997 -114.3760,34.4901 -114.3729,34.4781 -114.3690,34.4715 -114.3638,34.4670 -114.3572,34.4656 -114.3442,34.4651 -114.3395,34.4646 -114.3354,34.4633 -114.3313,34.4606 -114.3236,34.4534 -114.3187,34.4499 -114.2988,34.4391 -114.2938,34.4355 -114.2789,34.4208 -114.1955,34.3704 -114.1784,34.3627 -114.1687,34.3559 -114.1570,34.3451 -114.1251,34.3278 -114.1250,34.3171 -114.1249,34.3141 -114.1191,34.2932 -114.1274,34.2797 -114.1591,34.2595 -114.1926,34.2322 -114.2243,34.1981 -114.2438,34.1937 -114.3459,34.1332 -114.3821,34.1237 -114.3982,34.1097 -114.4086,34.0911 -114.4169,34.0485 -114.4286,34.0291 -114.4443,34.0130 -114.4607,33.9995 -114.5003,33.9775 -114.5159,33.9636 -114.5222,33.9414 -114.5188,33.9298 -114.5107,33.9187 -114.4911,33.8995 -114.4898,33.8906 -114.4978,33.8814 -114.5160,33.8691 -114.5141,33.8540 -114.5139,33.8283 -114.5103,33.8041 -114.4980,33.7934 -114.4945,33.7880 -114.4934,33.7763 -114.4945,33.7646 -114.4980,33.7593 -114.5032,33.7543 -114.4990,33.7432 -114.4881,33.7251 -114.4947,33.7104 -114.5063,33.6991 -114.5173,33.6847 -114.5222,33.6603 -114.5215,33.6388 -114.5224,33.6276 -114.5256,33.6227 -114.5345,33.6168 -114.5345,33.6035 -114.5290,33.5817 -114.5326,33.5686 -114.5359,33.5619 -114.5495,33.5470 -114.5693,33.5305 -114.5793,33.5201 -114.5888,33.4955 -114.6258,33.4371 -114.6437,33.4258 -114.6683,33.4197 -114.7174,33.4166 -114.7269,33.4115 -114.7224,33.3998 -114.7121,33.3871 -114.7040,33.3791 -114.6981,33.3684 -114.7019,33.3598 -114.7140,33.3490 -114.7235,33.3212 -114.7213,33.3063 -114.6901,33.2764 -114.6832,33.2628 -114.6730,33.2050 -114.6782,33.1616 -114.6934,33.1241 -114.6967,33.0894 -114.6668,33.0542 -114.6273,33.0409 -114.5365,33.0354 -114.5017,33.0194 -114.4737,32.9853 -114.4698,32.9726 -114.4702,32.9628 -114.4725,32.9531 -114.4737,32.9406 -114.4580,32.8767 -114.4607,32.8549 -114.4721,32.8420 -114.5092,32.8203 -114.5222,32.8071 -114.5259,32.7897 -114.5251,32.7711 -114.5262,32.7533 -114.5359,32.7382 -114.5782,32.7301 -114.6829,32.7481 -114.7208,32.7246 -114.7243,32.7128 -114.7239,32.7115 -114.7312,32.6866 -114.7395,32.6691 -114.7512,32.6522 -114.7588,32.6448 -114.7815,32.6281 -114.7868,32.6210 -114.8027,32.5945 -114.7942,32.5741 -114.7955,32.5522 -114.8094,32.5113 -114.8221,32.5002 -114.8195,32.4993 -114.8328,32.4919 -114.8406,32.4905 -114.8537,32.4880 -114.9060,32.4917 -114.9263,32.4825 -114.9453,32.4628 -114.9602,32.4386 -114.9686,32.4160 -114.9701,32.3984 -114.9695,32.3817 -114.9717,32.3635 -114.9817,32.3415 -115.0001,32.3231 -115.0206,32.3098 -115.0371,32.2917 -115.0397,32.2772 -115.0348,32.2714 -115.0071,32.2414 -114.9840,32.2125 -114.9665,32.1806 -114.9559,32.1416 -114.9592,32.1202 -114.9704,32.1040 -114.9803,32.0897 -114.9794,32.0740 -114.9745,32.0696 -114.9664,32.0652 -114.9579,32.0607 -114.9516,32.0557 -114.9425,32.0434 -114.9370,32.0319 -114.9342,32.0196 -114.9333,32.0050 -114.9344,31.9792 -114.9365,31.9551 -114.9370,31.9307 -114.9336,31.9088 -114.9336,31.9087 -114.8948,31.8636 -114.8500,31.8365 -114.8194,31.8023 -114.7993,31.7269 -114.7475,31.6315 -114.7121,31.5667 -114.7137,31.5333 -114.4308,31.1407 -114.1479,30.7482 -113.8650,30.3556 -113.5821,29.9630 -113.2992,29.5705 -113.0163,29.1779 -112.7334,28.7853 -112.4505,28.3928 -112.1676,28.0002 -112.4454,28.0000 -112.7233,27.9997 -113.2027,28.0000 -113.6821,28.0003 -114.1616,28.0006 -114.2077,28.0003 -114.2191,28.0003 -114.5185,28.1861 -114.8179,28.3719 -115.1173,28.5577 -115.5625,28.5577 -116.0077,28.5577 -116.4529,28.5577 -116.8981,28.5577 -116.8988,28.1072 -116.8994,27.6567 -116.9001,27.2062 -116.9007,26.7557 -116.9014,26.3052 -116.9021,25.8546 -116.9027,25.4041 -116.9034,24.9536 -116.9040,24.5031 -116.9047,24.0526 -116.4154,24.0522 -115.9261,24.0518 -115.4368,24.0515 -114.9475,24.0511 -114.4581,24.0507 -113.9688,24.0504 -113.4795,24.0500 -112.9902,24.0496 -112.5009,24.0493 -112.5009,23.5947 -112.5009,23.1402 -112.5009,22.6856 -112.5009,22.2311 -112.5009,21.7765 -112.5010,21.3220 -112.5010,20.8674 -112.5010,20.4129 -112.5010,19.9583 -112.5010,19.5038 -112.5010,19.0493 -112.5010,18.5947 -112.5010,18.1402 -112.5010,17.6856 -112.5010,17.2311 -112.5010,16.7765 -112.5011,16.3220 -112.5011,15.8674 -112.5011,15.4129 -112.5011,14.9583 -112.5011,14.5038 -112.5011,14.0493 -112.5011,13.6244 -112.5011,13.1995 -112.5011,12.7746 -112.5011,12.3498 -112.5012,11.9249 -112.5012,11.5000 -112.0427,11.5000 -111.5843,11.5000 -111.1259,11.5000 -110.6674,11.5000 -110.2090,11.5000 -109.7506,11.5000 -109.2922,11.5000 -108.8337,11.5000 -108.3753,11.5000 -107.9169,11.5000 -107.4584,11.5000 -107.0000,11.5000 -107.0000,11.0714 -107.0000,10.6429 -107.0000,10.2143 -107.0000,9.7857 -107.0000,9.3571 -107.0000,8.9286 -107.0000,8.5000 -107.4584,8.5000 -107.9169,8.5000 -108.3753,8.5000 -108.8337,8.5000 -109.2922,8.5000 -109.7506,8.5000 -110.2090,8.5000 -110.6675,8.5000 -111.1259,8.5000 -111.5844,8.5000 -112.0428,8.5000 -112.5012,8.5000 -112.5012,8.0055 -112.5012,7.5109 -112.5013,7.0164 -112.5013,6.5219 -112.5013,6.0274 -112.5013,5.5328 -112.5013,5.0383 -112.5013,4.5438 -112.5013,4.0493 -112.5013,3.5947 -112.5013,3.1402 -112.5014,2.6856 -112.5014,2.2311 -112.5014,1.7765 -112.5014,1.3220 -112.5014,0.8674 -112.5014,0.4129 -112.5014,-0.0417 -112.5014,-0.4962 -112.5014,-0.9507 -112.5014,-1.4053 -112.5015,-1.8598 -112.5015,-2.3144 -112.5015,-2.7689 -112.5015,-3.2235 -112.5015,-3.6780 -112.5015,-4.1326 -112.5015,-4.5871 -112.5015,-5.0417 -112.5015,-5.4962 -112.5015,-5.9507 -112.5015,-6.3841 -112.5016,-6.8174 -112.5016,-7.2507 -112.5016,-7.6841 -112.5016,-8.1174 -112.5016,-8.5507 -112.5016,-9.0053 -112.5016,-9.4598 -112.5016,-9.9144 -112.5016,-10.3689 -112.5016,-10.8235 -112.5017,-11.2780 -112.5017,-11.7326 -112.5017,-12.1871 -112.5017,-12.6417 -112.5017,-13.0962 -112.5017,-13.5507 -112.5017,-14.0053 -112.5017,-14.4598 -112.5017,-14.9144 -112.5017,-15.3689 -112.5018,-15.8235 -112.5018,-16.2780 -112.5018,-16.7326 -112.5018,-17.1871 -112.5018,-17.6417 -112.5018,-18.0962 -112.5018,-18.5507 -112.5018,-19.0053 -112.5018,-19.4598 -112.5018,-19.9144 -112.5019,-20.3689 -112.5019,-20.8235 -112.5019,-21.2780 -112.5019,-21.7326 -112.5019,-22.1871 -112.5019,-22.6417 -112.5019,-23.0962 -112.5019,-23.5507 -112.5019,-23.9907 -112.5019,-24.4307 -112.5020,-24.8707 -112.5020,-25.3107 -112.5020,-25.7507 -112.5020,-26.2053 -112.5020,-26.6598 -112.5020,-27.1144 -112.5020,-27.5689 -112.5020,-28.0235 -112.5020,-28.4780 -112.5020,-28.9326 -112.5021,-29.3871 -112.5021,-29.8417 -112.5021,-30.2962 -112.5021,-30.7507 -112.5021,-31.2507 -112.5021,-31.7507 -112.5021,-32.2507 -112.5021,-32.7507 -112.5021,-33.2507 -112.5021,-33.7507 -112.5022,-34.2507 -112.5022,-34.7507 -112.5022,-35.2507 -112.5022,-35.7507 -112.5022,-36.2053 -112.5022,-36.6598 -112.5022,-37.1144 -112.5022,-37.5689 -112.5022,-38.0235 -112.5022,-38.4780 -112.5023,-38.9326 -112.5023,-39.3871 -112.5023,-39.8417 -112.5023,-40.2962 -112.5023,-40.7507 -112.5023,-41.2053 -112.5023,-41.6598 -112.5023,-42.1144 -112.5023,-42.5689 -112.5023,-43.0235 -112.5024,-43.4780 -112.5024,-43.9326 -112.5024,-44.3871 -112.5024,-44.8417 -112.5024,-45.2962 -112.5024,-45.7507 -112.5024,-46.2053 -112.5024,-46.6598 -112.5024,-47.1144 -112.5024,-47.5689 -112.5025,-48.0235 -112.5025,-48.4780 -112.5025,-48.9326 -112.5025,-49.3871 -112.5025,-49.8417 -112.5025,-50.2962 -112.5025,-50.7507 -112.5025,-51.2053 -112.5025,-51.6598 -112.5025,-52.1144 -112.5025,-52.5689 -112.5026,-53.0235 -112.5026,-53.4780 -112.5026,-53.9326 -112.5026,-54.3871 -112.5026,-54.8417 -112.5026,-55.2962 -112.5026,-55.7507 -112.5026,-56.2257 -112.5026,-56.7007 -112.5026,-57.1757 -112.5027,-57.6507 -112.5027,-58.1257 -112.5027,-58.6007 -112.5027,-59.0757 -112.5027,-59.5507 -112.5027,-60.0507 -112.5027,-60.5507 -112.5027,-61.0507 -112.5027,-61.5507 -112.5027,-62.0507 -112.5028,-62.5507 -112.5028,-63.0507 -112.5028,-63.5507 -112.5028,-64.0507 -112.5028,-64.5507 -112.5028,-65.0053 -112.5028,-65.4598 -112.5028,-65.9144 -112.5028,-66.3689 -112.5028,-66.8235 -112.5029,-67.2780 -112.5029,-67.7326 -112.5029,-68.1871 -112.5029,-68.6417 -112.5029,-69.0962 -112.5029,-69.5507 -112.5029,-70.0067 -112.5029,-70.4627 -112.5029,-70.9187 -112.5029,-71.3747 -112.5030,-71.8307 -112.5030,-72.2867 -112.5030,-72.7427 -112.5030,-73.1987 -112.5030,-73.6547 -112.5030,-74.1107 -112.5285,-74.1200 -112.5920,-74.1522 -112.7021,-74.2474 -112.6671,-74.1820 -112.6808,-74.0912 -112.7344,-74.0314 -112.8411,-73.9664 -112.9931,-73.9019 -113.0923,-73.8738 -113.2563,-73.8391 -113.4302,-73.7684 -113.5709,-73.7358 -113.8106,-73.6892 -113.9657,-73.6693 -114.1306,-73.6585 -114.2828,-73.6584 -114.4398,-73.6663 -114.6516,-73.6885 -114.8610,-73.7247 -115.0688,-73.7435 -115.2138,-73.7690 -115.3506,-73.8011 -115.4132,-73.8065 -115.4857,-73.7983 -115.6807,-73.7420 -115.9427,-73.6912 -116.1435,-73.6679 -116.3505,-73.6603 -116.5072,-73.6639 -116.6543,-73.6756 -116.7871,-73.6940 -116.9468,-73.7248 -117.2861,-73.7975 -117.6254,-73.8702 -117.8784,-73.9296 -117.9564,-73.9527 -118.0212,-73.9798 -118.1275,-74.0526 -118.1619,-74.0595 -118.2782,-74.0702 -118.2895,-74.0657 -118.2837,-74.0528 -118.1553,-73.9377 -118.1354,-73.9029 -118.1454,-73.8472 -118.2029,-73.7740 -118.3034,-73.7135 -118.4420,-73.6641 -118.5920,-73.6301 -118.8549,-73.5902 -119.0858,-73.5751 -119.5422,-73.5689 -119.7389,-73.5795 -119.9757,-73.6100 -120.2257,-73.5692 -120.4184,-73.5515 -120.5870,-73.5490 -120.7633,-73.5584 -120.9154,-73.5526 -121.3598,-73.5360 -121.8042,-73.5193 -122.0532,-73.4880 -122.1646,-73.4805 -122.5718,-73.4750 -122.9790,-73.4695 -123.2116,-73.4762 -123.4098,-73.4958 -123.5804,-73.5271 -123.8510,-73.5973 -123.9048,-73.6063 -123.9478,-73.6081 -124.0740,-73.5705 -124.2178,-73.5445 -124.3894,-73.5276 -124.5771,-73.5226 -124.6139,-73.5175 -124.7339,-73.4684 -124.8386,-73.4385 -124.9115,-73.3634 -125.0418,-73.3032 -125.1877,-73.2638 -125.4378,-73.2228 -125.5719,-73.1632 -125.6586,-73.1387 -125.7499,-73.1206 -126.0077,-73.0913 -126.4456,-73.0667 -126.6143,-73.0672 -126.8636,-73.0820 -127.0854,-73.0747 -127.2509,-73.0765 -127.3930,-73.0873 -127.5073,-73.1029 -127.5073,-72.6423 -127.5073,-72.1817 -127.5073,-71.7211 -127.5073,-71.2606 -127.5073,-70.8000 -127.5073,-70.3455 -127.5073,-69.8909 -127.5073,-69.4364 -127.5073,-68.9818 -127.5073,-68.5273 -127.5073,-68.0727 -127.5073,-67.6182 -127.5073,-67.1636 -127.5073,-66.7091 -127.5073,-66.2545 -127.5073,-65.8000 -127.5073,-65.3455 -127.5074,-64.8909 -127.5074,-64.4364 -127.5074,-63.9818 -127.5074,-63.5273 -127.5074,-63.0727 -127.5074,-62.6182 -127.5074,-62.1636 -127.5074,-61.7091 -127.5074,-61.2545 -127.5074,-60.8000 -127.5074,-60.3500 -127.5074,-59.9000 -127.5074,-59.4455 -127.5074,-58.9909 -127.5074,-58.5364 -127.5074,-58.0818 -127.5074,-57.6273 -127.5074,-57.1727 -127.5074,-56.7182 -127.5074,-56.2636 -127.5074,-55.8091 -127.5074,-55.3545 -127.5074,-54.9000 -127.5074,-54.4455 -127.5074,-53.9909 -127.5074,-53.5364 -127.5074,-53.0818 -127.5074,-52.6273 -127.5074,-52.1727 -127.5074,-51.7182 -127.5074,-51.2636 -127.5074,-50.8091 -127.5074,-50.3545 -127.5074,-49.9000 -127.5074,-49.4455 -127.5074,-48.9909 -127.5074,-48.5364 -127.5074,-48.0818 -127.5074,-47.6273 -127.5074,-47.1727 -127.5074,-46.7182 -127.5074,-46.2636 -127.5074,-45.8091 -127.5074,-45.3545 -127.5074,-44.9000 -127.5074,-44.4455 -127.5074,-43.9909 -127.5074,-43.5364 -127.5074,-43.0818 -127.5074,-42.6273 -127.5074,-42.1727 -127.5074,-41.7182 -127.5074,-41.2636 -127.5074,-40.8091 -127.5074,-40.3545 -127.5074,-39.9000 -127.5074,-39.4455 -127.5074,-38.9909 -127.5074,-38.5364 -127.5074,-38.0818 -127.5074,-37.6273 -127.5075,-37.1727 -127.5075,-36.7182 -127.5075,-36.2636 -127.5075,-35.8091 -127.5075,-35.3545 -127.5075,-34.9000 -127.5075,-34.4455 -127.5075,-33.9909 -127.5075,-33.5364 -127.5075,-33.0818 -127.5075,-32.6273 -127.5075,-32.1727 -127.5075,-31.7182 -127.5075,-31.2636 -127.5075,-30.8091 -127.5075,-30.3545 -127.5075,-29.9000 -127.5075,-29.4125 -127.5075,-28.9250 -127.5075,-28.4375 -127.5075,-27.9500 -127.5075,-27.4625 -127.5075,-26.9750 -127.5075,-26.4875 -127.5075,-26.0000 -128.0068,-26.0001 -128.5061,-26.0001 -129.0055,-26.0002 -129.5048,-26.0002 -130.0041,-26.0003 -130.5034,-26.0003 -131.0027,-26.0004 -131.5021,-26.0004 -132.0014,-26.0005 -132.5007,-26.0005 -133.0000,-26.0006 -133.0000,-25.5006 -133.0000,-25.0006 -133.0000,-24.5006 -133.0000,-24.0006 -133.0000,-23.5006 -133.0000,-23.0006 -133.0000,-22.5006 -133.0000,-22.0006 -132.5009,-22.0006 -132.0019,-22.0006 -131.5028,-22.0006 -131.0037,-22.0006 -130.5047,-22.0006 -130.0056,-22.0006 -129.5065,-22.0006 -129.0074,-22.0006 -128.5084,-22.0006 -128.0093,-22.0006 -127.5102,-22.0006 -127.5100,-21.5505 -127.5098,-21.1005 -127.5095,-20.6504 -127.5093,-20.2004 -127.5091,-19.7503 -127.5089,-19.3002 -127.5086,-18.8502 -127.5084,-18.4001 -127.5082,-17.9501 -127.5079,-17.5000 -127.5079,-17.0455 -127.5079,-16.5909 -127.5079,-16.1364 -127.5079,-15.6818 -127.5079,-15.2273 -127.5079,-14.7727 -127.5079,-14.3182 -127.5079,-13.8636 -127.5079,-13.4091 -127.5079,-12.9545 -127.5079,-12.5000 -127.5079,-12.0455 -127.5079,-11.5909 -127.5079,-11.1364 -127.5079,-10.6818 -127.5079,-10.2273 -127.5079,-9.7727 -127.5079,-9.3182 -127.5079,-8.8636 -127.5079,-8.4091 -127.5079,-7.9545 -127.5079,-7.5000 -127.5079,-7.0455 -127.5079,-6.5909 -127.5079,-6.1364 -127.5079,-5.6818 -127.5079,-5.2273 -127.5079,-4.7727 -127.5079,-4.3182 -127.5079,-3.8636 -127.5079,-3.4091 -127.5079,-2.9545 -127.5079,-2.5000 -127.5079,-2.0816 -127.5079,-1.6631 -127.5079,-1.2447 -127.5079,-0.8263 -127.5079,-0.4078 -127.5079,0.0106 -127.5079,0.4651 -127.5079,0.9197 -127.5079,1.3742 -127.5079,1.8288 -127.5079,2.2833 -127.5079,2.7379 -127.5079,3.1924 -127.5079,3.6469 -127.5079,4.1015 -127.5079,4.5560 -127.5079,5.0106 -127.5079,5.4651 -127.5079,5.9197 -127.5079,6.3742 -127.5079,6.8288 -127.5079,7.2833 -127.5079,7.7379 -127.5079,8.1924 -127.5079,8.6469 -127.5079,9.1015 -127.5079,9.5560 -127.5079,10.0106 -127.5079,10.4651 -127.5079,10.9197 -127.5079,11.3742 -127.5079,11.8288 -127.5079,12.2833 -127.5079,12.7379 -127.5079,13.1924 -127.5079,13.6469 -127.5079,14.1015 -127.5079,14.5560 -127.5079,15.0106 -127.5079,15.4677 -127.5079,15.9249 -127.5079,16.3820 -127.5079,16.8392 -127.5079,17.2963 -127.5079,17.7534 -127.5079,18.2106 -127.5079,18.6651 -127.5079,19.1197 -127.5079,19.5742 -127.5079,20.0288 -127.5079,20.4833 -127.5078,20.9379 -127.5078,21.3924 -127.5078,21.8469 -127.5078,22.3015 -127.5078,22.7560 -127.5078,23.2106 -127.5078,23.6651 -127.5078,24.1197 -127.5078,24.5742 -127.5078,25.0288 -127.5078,25.4833 -127.5078,25.9379 -127.5078,26.3924 -127.5078,26.8469 -127.5078,27.3015 -127.5078,27.7560 -127.5078,28.2106 -127.5078,28.6651 -127.5078,29.1197 -127.5078,29.5742 -127.5078,30.0288 -127.5078,30.4833 -127.5078,30.9379 -127.5078,31.3924 -127.5078,31.8469 -127.5078,32.3015 -127.5078,32.7560 -127.5078,33.2106 -127.5078,33.6651 -127.5078,34.1197 -127.5078,34.5742 -127.5078,35.0288 -127.5078,35.4833 -127.5078,35.9379 -127.5078,36.3924 -127.5078,36.8469 -127.5078,37.3015 -127.5078,37.7560 -127.5078,38.2106 -127.5078,38.6651 -127.5078,39.1197 -127.5078,39.5742 -127.5078,40.0288 -127.5078,40.4833 -127.5078,40.9379 -127.5078,41.3924 -127.5078,41.8469 -127.5078,42.3015 -127.5078,42.7560 -127.5078,43.2106 -127.5078,43.6651 -127.5078,44.1197 -127.5078,44.5742 -127.5078,45.0288 -127.5078,45.4833 -127.5078,45.9379 -127.5078,46.3924 -127.5078,46.8469 -127.5078,47.3015 -127.5078,47.7560 -127.5078,48.2106 -127.5078,48.6106 -127.5078,49.0106 -127.5078,49.4106 -127.5078,49.8106 -127.8840,50.0353 -128.2603,50.2601 -128.2953,50.2906 -128.4867,50.4104 -128.5986,50.5025 -128.6959,50.6161 -128.7434,50.7257 -128.7459,50.7799 -128.7301,50.8329 -128.6967,50.8795 -128.6480,50.9199 -128.5202,50.9815 -128.2214,51.0640 -128.1430,51.1072 -128.1229,51.1393 -128.1387,51.2437 -128.2702,51.3042 -128.3320,51.3451 -128.3899,51.4061 -128.4401,51.4886 -128.4865,51.6037 -128.4762,51.7029 -128.5543,51.7793 -128.5803,51.8292 -128.5796,51.9548 -128.5945,51.9947 -128.6590,52.0465 -128.8060,52.0756 -128.8876,52.1060 -128.9577,52.1521 -129.0438,52.2359 -129.1636,52.2790 -129.2297,52.3137 -129.4865,52.5324 -129.5896,52.6466 -129.6450,52.7430 -129.6866,52.7601 -129.8048,52.7844 -129.8611,52.8106 -129.9195,52.8566 -129.9847,52.9429 -130.1786,53.0195 -130.3661,53.1619 -130.5493,53.2435 -130.6739,53.3534 -130.8182,53.4435 -130.8701,53.5303 -130.8747,53.6617 -130.9996,53.7389 -131.0611,53.8215 -131.0743,53.9054 -131.0545,54.0120 -131.1319,54.0985 -131.1547,54.1546 -131.3114,54.1025 -131.3198,54.0316 -131.3805,53.8951 -131.5269,53.7388 -131.5371,53.6722 -131.5818,53.5753 -131.5660,53.4344 -131.5551,53.4085 -131.3170,53.1738 -131.2729,53.1159 -131.2482,53.0090 -131.2695,52.9104 -131.1307,52.7860 -131.1111,52.7285 -131.1111,52.6400 -130.9808,52.5748 -130.9367,52.5298 -130.9006,52.4598 -130.7167,52.3294 -130.6810,52.2769 -130.6668,52.2028 -130.6225,52.1432 -130.6132,52.0902 -130.6248,52.0329 -130.7367,51.8557 -130.8007,51.7929 -130.8160,51.7866 -130.8935,51.7547 -131.0082,51.7387 -131.0559,51.7426 -131.1247,51.7481 -131.2376,51.7839 -131.3409,51.8438 -131.4405,51.9463 -131.5295,51.9930 -131.8297,52.2061 -131.9258,52.3252 -132.1121,52.4211 -132.2773,52.5540 -132.4317,52.6419 -132.6479,52.8336 -132.7856,52.9217 -132.8994,53.0835 -133.0380,53.1973 -133.1087,53.3184 -133.2330,53.4135 -133.3019,53.4883 -133.3309,53.5458 -133.3445,53.6262 -133.4473,53.7337 -133.4923,53.8821 -133.4317,54.0852 -133.4164,54.2687 -133.3857,54.3389 -133.3390,54.3852 -133.2653,54.4245 -133.1747,54.4512 -133.0983,54.4600 -133.0639,54.4640 -133.0226,54.4625 -132.9348,54.4556 -132.8208,54.4465 -132.8138,54.4465 -132.7903,54.4414 -132.7143,54.4249 -132.6383,54.4084 -132.5774,54.4098 -132.5165,54.4112 -132.4556,54.4126 -132.3947,54.4140 -132.3083,54.4014 -132.2219,54.3888 -132.1355,54.3762 -132.0491,54.3636 -131.9454,54.3997 -131.8416,54.4359 -131.7379,54.4720 -131.6342,54.5082 -131.5644,54.4982 -131.4429,54.5573 -131.3934,54.5813 -131.3233,54.6153 -131.2989,54.6330 -131.2917,54.6383 -131.2324,54.6813 -131.2175,54.7031 -131.1516,54.7354 -131.0792,54.7709 -130.9957,54.7361 -130.9533,54.7087 -130.9270,54.7003 -130.8948,54.6900 -130.7460,54.6776 -130.6556,54.6539 -130.6367,54.6602 -130.6313,54.6737 -130.6250,54.6895 -130.6220,54.7086 -130.6210,54.7084 -130.6399,54.7430 -130.6417,54.7605 -130.6264,54.7705 -130.5291,54.8114 -130.3901,54.8809 -130.3168,54.9368 -130.2225,55.0274 -130.1418,55.1441 -130.0636,55.2186 -129.9780,55.2732 -129.9725,55.2873 -129.9798,55.3015 -129.9981,55.3168 -130.0214,55.3464 -130.0350,55.4184 -130.0512,55.4595 -130.0946,55.5128 -130.1145,55.5401 -130.1244,55.5749 -130.1195,55.5985 -130.1056,55.6394 -130.1060,55.6531 -130.1170,55.6829 -130.1331,55.7052 -130.1443,55.7238 -130.1454,55.7658 -130.1191,55.7994 -130.0569,55.8448 -130.0275,55.8773 -130.0196,55.9080 -130.0168,55.9189 -130.0147,55.9633 -130.0190,56.0022 -130.0266,56.0241 -130.0393,56.0455 -130.0715,56.0841 -130.0943,56.1015 -130.1168,56.1056 -130.2112,56.0900 -130.2432,56.0924 -130.2903,56.1010 -130.4040,56.1219 -130.4182,56.1297 -130.4279,56.1440 -130.4581,56.2107 -130.4723,56.2249 -130.4955,56.2324 -130.6023,56.2471 -130.6458,56.2619 -130.7603,56.3452 -130.8391,56.3725 -131.0169,56.3871 -131.1005,56.4077 -131.2156,56.4526 -131.3457,56.5033 -131.4917,56.5602 -131.5364,56.5852 -131.5604,56.5941 -131.5859,56.5950 -131.6923,56.5851 -131.7991,56.5877 -131.8256,56.5933 -131.8321,56.6034 -131.8266,56.6446 -131.8304,56.6648 -131.8390,56.6823 -131.8648,56.7135 -131.8807,56.7288 -131.8860,56.7371 -131.8880,56.7480 -131.8826,56.7591 -131.8724,56.7730 -131.8659,56.7857 -131.8716,56.7935 -132.1074,56.8588 -132.0319,57.0284 -132.1623,57.0503 -132.3412,57.0804 -132.2764,57.1489 -132.2310,57.1968 -132.3047,57.2804 -132.3623,57.3457 -132.4557,57.4210 -132.5524,57.4991 -132.6291,57.5793 -132.7094,57.6633 -132.8321,57.7916 -132.9172,57.8805 -132.9934,57.9419 -133.0752,58.0079 -133.0948,58.0331 -133.1421,58.1206 -133.1656,58.1473 -133.2573,58.2103 -133.3746,58.2910 -133.4150,58.3305 -133.4301,58.3721 -133.3922,58.4039 -133.4631,58.4622 -133.5471,58.5056 -133.6263,58.5464 -133.7001,58.5994 -133.7964,58.6934 -133.8311,58.7180 -133.8712,58.7359 -133.9831,58.7699 -134.1088,58.8082 -134.2222,58.8427 -134.3169,58.9038 -134.3274,58.9165 -134.3330,58.9341 -134.3303,58.9453 -134.3231,58.9492 -134.3200,58.9527 -134.3297,58.9630 -134.3434,58.9689 -134.3994,58.9750 -134.3856,59.0188 -134.3872,59.0369 -134.3980,59.0520 -134.4510,59.0979 -134.4776,59.1149 -134.5091,59.1228 -134.5567,59.1231 -134.5828,59.1288 -134.6108,59.1446 -134.6604,59.1813 -134.6714,59.1938 -134.6829,59.2230 -134.6921,59.2352 -134.7055,59.2401 -134.7435,59.2451 -134.8395,59.2581 -134.9324,59.2706 -134.9578,59.2810 -134.9800,59.2974 -135.0162,59.3362 -135.0144,59.3515 -135.0048,59.3671 -134.9933,59.3819 -135.0958,59.4189 -135.0786,59.4383 -135.0375,59.4616 -135.0233,59.4771 -135.0195,59.4932 -135.0162,59.5434 -135.0185,59.5594 -135.0329,59.5731 -135.0879,59.6065 -135.1067,59.6132 -135.1578,59.6233 -135.1920,59.6471 -135.2219,59.6753 -135.2599,59.6982 -135.3458,59.7310 -135.4044,59.7533 -135.4651,59.7897 -135.4828,59.7925 -135.6413,59.7474 -135.8310,59.6933 -135.9238,59.6667 -136.0269,59.6528 -136.1454,59.6368 -136.2585,59.6216 -136.3503,59.5924 -136.2994,59.5757 -136.2585,59.5561 -136.2447,59.5282 -136.2750,59.4864 -136.3200,59.4591 -136.3668,59.4496 -136.4160,59.4522 -136.4676,59.4616 -136.4671,59.3845 -136.4665,59.2878 -136.4836,59.2575 -136.4848,59.2538 -136.4972,59.2419 -136.5387,59.2018 -136.5695,59.1722 -136.6135,59.1542 -136.6719,59.1508 -136.7855,59.1572 -136.8408,59.1482 -136.9423,59.1111 -137.0463,59.0731 -137.0625,59.0672 -137.1723,59.0271 -137.2819,58.9871 -137.3381,58.9555 -137.4231,58.9077 -137.4535,58.8991 -137.4869,58.9001 -137.5088,58.9149 -137.5078,58.9400 -137.4844,58.9919 -137.5210,59.0724 -137.5493,59.1345 -137.5821,59.2066 -137.5942,59.2253 -137.6114,59.2393 -137.7583,59.3159 -137.9106,59.3952 -138.0676,59.4770 -138.2195,59.5560 -138.3636,59.6311 -138.4889,59.6964 -138.5992,59.7538 -138.6375,59.7841 -138.6543,59.8055 -138.6921,59.8869 -138.6972,59.8937 -138.7049,59.8985 -138.7426,59.9132 -138.8424,59.9377 -139.0038,59.9772 -139.0516,59.9949 -139.1123,60.0314 -139.1821,60.0734 -139.1832,60.1002 -139.1496,60.1612 -139.1135,60.2268 -139.0732,60.2998 -139.0687,60.3221 -139.0795,60.3410 -139.1016,60.3466 -139.2622,60.3428 -139.4140,60.3392 -139.5180,60.3367 -139.6283,60.3341 -139.6798,60.3268 -139.7284,60.3090 -139.8263,60.2565 -139.9169,60.2079 -139.9678,60.1884 -140.0158,60.1874 -140.1692,60.2272 -140.3250,60.2675 -140.4241,60.2932 -140.4478,60.2945 -140.4628,60.2891 -140.4753,60.2765 -140.5067,60.2363 -140.5187,60.2239 -140.5337,60.2185 -140.6605,60.2405 -140.7685,60.2593 -140.9091,60.2837 -140.9796,60.2958 -140.9949,60.3044 -141.0012,60.3211 -141.0012,60.4669 -141.0013,60.6127 -141.0014,60.7584 -141.0014,60.9042 -141.0015,61.0500 -141.0016,61.1958 -141.0017,61.3416 -141.0018,61.4873 -141.0018,61.6331 -141.0019,61.7789 -141.0020,61.9246 -141.0020,62.0704 -141.0021,62.2162 -141.0021,62.3620 -141.0022,62.5078 -141.0023,62.6536 -141.0024,62.7993 -141.0024,62.9451 -141.0025,63.0909 -141.0026,63.2367 -141.0026,63.3825 -141.0027,63.5283 -141.0028,63.6741 -141.0028,63.8198 -141.0029,63.9655 -141.0030,64.1113 -141.0031,64.2571 -141.0031,64.4029 -141.0031,64.5487 -141.0032,64.6945 -141.0033,64.8402 -141.0034,64.9860 -141.0035,65.1318 -141.0035,65.2776 -141.0036,65.4234 -141.0036,65.5692 -141.0037,65.7150 -141.0038,65.8607 -141.0038,66.0065 -141.0039,66.1523 -141.0040,66.2980 -141.0041,66.4438 -141.0042,66.5896 -141.0042,66.7354 -141.0042,66.8811 -141.0043,67.0269 -141.0044,67.1727 -141.0045,67.3185 -141.0045,67.4643 -141.0046,67.6101 -141.0047,67.7558 -141.0047,67.9016 -141.0048,68.0474 -141.0049,68.1932 -141.0049,68.3390 -141.0050,68.4847 -141.0051,68.6305 -141.0052,68.7763 -141.0052,68.9220 -141.0053,69.0678 -141.0053,69.2136 -141.0054,69.3594 -141.0055,69.5052 -141.0055,69.6509 -141.0055,69.6510 -141.0055,69.6583 -140.9999,69.7478 -140.9907,69.8779 -140.9369,69.8691 -140.8476,69.8547 1268,-1.0,Atlantic/Cape_Verde -21.1998,63.6447 -20.9296,63.5659 -20.7794,63.4981 -20.7675,63.4840 -20.7669,63.3959 -20.7139,63.3209 -20.6047,63.2525 -20.4602,63.2090 -20.2900,63.1930 -20.1111,63.2079 -19.9672,63.2477 -19.8364,63.3173 -19.7407,63.3044 -19.4746,63.2496 -19.3025,63.2256 -18.8298,63.1889 -18.6538,63.1905 -18.1695,63.1918 -17.6852,63.1930 -17.2009,63.1943 -16.7166,63.1956 -16.2324,63.1969 -15.7481,63.1981 -15.2638,63.1994 -14.7795,63.2007 -14.2952,63.2020 -13.8109,63.2032 -13.3267,63.2045 -12.8424,63.2058 -12.3581,63.2071 -11.8738,63.2083 -11.3895,63.2096 -10.9053,63.2109 -10.4210,63.2122 -9.9367,63.2134 -9.4524,63.2147 -8.9681,63.2160 -8.4839,63.2173 -7.9996,63.2185 -7.5153,63.2198 -7.5153,62.8411 -7.5154,62.4623 -7.5715,62.4315 -7.6638,62.3295 -7.8570,62.2924 -7.9848,62.2442 -8.0532,62.1937 -8.0887,62.1345 -8.0895,62.0829 -8.0624,62.0290 -8.0122,61.9839 -7.9421,61.9476 -7.7939,61.9066 -7.5514,61.8785 -7.5155,61.8686 -7.5155,61.4394 -7.5156,61.0102 -7.5156,60.5811 -7.5157,60.1519 -7.5158,59.7227 -7.5158,59.2935 -7.5159,58.8643 -7.5159,58.5315 -7.5160,58.1987 -7.8995,58.1468 -8.2830,58.0948 -8.6665,58.0428 -8.8267,58.0152 -8.9362,57.9628 -8.9950,57.8941 -9.0036,57.8042 -8.9528,57.7165 -8.8478,57.6441 -8.7187,57.6045 -8.5571,57.5945 -8.1897,57.5192 -7.8224,57.4440 -7.8054,57.3893 -7.8433,57.2532 -7.8274,57.1514 -7.9230,57.0328 -7.9405,56.9768 -7.9369,56.9208 -7.8936,56.8501 -7.8060,56.7921 -7.6771,56.7505 -7.5285,56.7309 -7.5161,56.7315 -7.5162,56.3486 -7.5162,55.9658 -7.5163,55.5829 -7.5816,55.5656 -7.7580,55.4811 -7.8550,55.4643 -8.1447,55.4139 -8.2582,55.3744 -8.3781,55.3642 -8.4671,55.3422 -8.5527,55.3001 -8.6435,55.2255 -8.7807,55.1767 -8.8588,55.1272 -8.9267,55.0367 -8.9338,54.9182 -9.0894,54.8220 -9.1346,54.7772 -9.1628,54.7042 -9.1540,54.6277 -9.1089,54.5564 -9.0364,54.5030 -9.2966,54.5286 -9.5659,54.5265 -9.7995,54.5468 -10.0357,54.5192 -10.1743,54.4912 -10.3180,54.4283 -10.4240,54.3461 -10.4683,54.2790 -10.4913,54.1634 -10.5810,54.0813 -10.6168,54.0240 -10.6171,53.9344 -10.5574,53.8525 -10.4832,53.8088 -10.2934,53.7559 -10.3730,53.7339 -10.4489,53.6975 -10.5079,53.6513 -10.5429,53.6037 -10.5570,53.5257 -10.5259,53.4528 -10.5284,53.3895 -10.5025,53.3308 -10.4530,53.2810 -10.3838,53.2416 -10.3088,53.2167 -10.1768,53.1915 -10.1614,53.1699 -10.1514,53.0835 -10.0998,53.0184 -9.9936,52.9583 -9.8235,52.9029 -9.9929,52.7925 -10.1565,52.7248 -10.2229,52.6827 -10.2777,52.6017 -10.2817,52.4910 -10.4368,52.4550 -10.5692,52.4022 -10.6916,52.3369 -10.7687,52.2713 -10.8074,52.2077 -10.8170,52.1421 -10.8013,52.0652 -10.7537,51.9829 -10.7632,51.8924 -10.7428,51.8133 -10.6986,51.7439 -10.6346,51.6787 -10.5022,51.6017 -10.4841,51.5215 -10.4154,51.4464 -10.3008,51.3913 -10.1423,51.3662 -10.0706,51.3034 -9.9941,51.2641 -9.9080,51.2411 -9.8195,51.2338 -9.7073,51.2436 -9.5406,51.2810 -9.4000,51.2622 -9.2871,51.2653 -9.1214,51.2857 -8.9989,51.3220 -8.8838,51.3266 -8.7248,51.3607 -8.5930,51.3745 -8.3884,51.4191 -8.3237,51.4483 -8.2045,51.5317 -8.1024,51.5797 -8.0237,51.6058 -7.8601,51.6409 -7.8601,51.1658 -7.8601,50.6908 -7.8601,50.2157 -7.8601,49.7407 -7.8601,49.2656 -7.8601,48.7906 -7.8601,48.3156 -7.8601,47.8405 -7.8601,47.3655 -7.8601,46.8904 -7.8601,46.4082 -7.8601,45.9259 -7.8601,45.4436 -7.8601,44.9613 -7.8601,44.4790 -7.8601,43.9968 -7.9765,43.9825 -8.0617,43.9587 -8.1358,43.9186 -8.2630,43.8710 -8.3527,43.7899 -8.4562,43.7637 -8.5186,43.7294 -8.5781,43.6671 -8.6114,43.5707 -8.6341,43.5463 -8.6988,43.5378 -8.8609,43.5628 -8.9712,43.5400 -9.1534,43.4688 -9.2340,43.4095 -9.3563,43.3580 -9.4229,43.3129 -9.4768,43.2582 -9.5206,43.1886 -9.5510,43.1036 -9.5747,42.9689 -9.5707,42.8957 -9.5213,42.8063 -9.3737,42.6786 -9.3511,42.5507 -9.3145,42.4825 -9.1480,42.3156 -9.1466,42.2252 -9.1825,42.1128 -9.1647,41.8985 -9.1684,41.8658 -9.1819,41.7382 -9.1356,41.6374 -9.4980,41.3044 -9.8605,40.9714 -10.2229,40.6383 -10.5854,40.3053 -10.9478,39.9723 -11.3103,39.6393 -11.6727,39.3062 -12.0352,38.9732 -12.3976,38.6402 -12.7601,38.3072 -13.1225,37.9741 -13.4850,37.6411 -13.8474,37.3081 -14.2099,36.9750 -14.5723,36.6420 -14.9348,36.3090 -15.2972,35.9760 -15.6597,35.6429 -16.0221,35.3099 -16.3846,34.9769 -16.7470,34.6439 -17.1095,34.3108 -17.4720,33.9778 -17.8344,33.6448 -18.1969,33.3117 -18.5593,32.9787 -18.5572,32.4988 -18.5552,32.0188 -18.5531,31.5389 -18.5511,31.0589 -18.5490,30.5790 -18.5469,30.0990 -18.5449,29.6191 -18.5430,29.1914 -18.5412,28.7638 -18.5394,28.3361 -18.5375,27.9084 -18.5357,27.4808 -18.5339,27.0531 -18.0488,27.0529 -17.5637,27.0527 -17.0786,27.0524 -16.5935,27.0522 -16.1084,27.0520 -15.6233,27.0518 -15.1382,27.0516 -14.6531,27.0513 -14.1680,27.0511 -13.6830,27.0509 -13.7044,26.9778 -13.7674,26.8709 -14.0470,26.6833 -14.1180,26.6558 -14.2426,26.6316 -14.3117,26.6005 -14.4314,26.4828 -14.5515,26.4304 -14.6470,26.3344 -14.7199,26.1901 -14.7348,26.0124 -14.8527,25.8351 -14.9135,25.6717 -15.0009,25.5228 -15.0408,25.4241 -15.0746,25.2426 -15.0789,24.9499 -15.1164,24.8303 -15.1904,24.7426 -15.4034,24.5702 -15.5239,24.4355 -15.7590,24.2219 -15.9968,24.0461 -16.1172,23.9143 -16.1992,23.7887 -16.2352,23.7019 -16.2367,23.6570 -16.2036,23.5613 -16.2042,23.5204 -16.4237,23.1801 -16.5446,22.8508 -16.5838,22.6690 -16.6346,22.6055 -16.6666,22.5240 -16.8173,22.4618 -16.8812,22.4110 -17.0055,22.2531 -17.0891,22.1086 -17.1796,21.8563 -17.1977,21.6718 -17.2570,21.3649 -17.3199,20.9200 -17.3213,20.8296 -17.3025,20.7443 -17.2639,20.6707 -17.2086,20.6091 -17.1327,20.5669 -17.0474,20.5551 -16.9633,20.5735 -16.8911,20.6220 -16.8507,20.5471 -16.7744,20.4706 -16.6914,20.4052 -16.5608,20.3421 -16.5409,20.3093 -16.5391,19.9982 -16.6423,19.8928 -16.7107,19.7732 -16.7178,19.6940 -16.6807,19.5529 -16.7444,19.4580 -16.7566,19.3658 -16.7246,19.2540 -16.6560,19.1430 -16.6018,19.0913 -16.4744,19.0238 -16.4235,18.9431 -16.3750,18.6596 -16.2783,18.3506 -16.2530,18.0620 -16.2551,17.8749 -16.2871,17.6446 -16.3507,17.4182 -16.5614,16.9739 -16.6746,16.6866 -16.7030,16.5077 -16.7588,16.3080 -16.7580,15.9342 -16.7981,15.7720 -17.0242,15.4195 -17.2601,15.1168 -17.4029,15.0223 -17.6067,14.9562 -17.6721,14.9218 -17.7365,14.8377 -17.7491,14.7410 -17.6969,14.6033 -17.6363,14.5323 -17.5744,14.4859 -17.4489,14.4443 -17.3774,14.4514 -17.3224,14.4760 -17.2792,14.3950 -17.1489,14.2444 -17.0612,14.0673 -16.9999,13.9817 -16.9820,13.7796 -16.8908,13.6581 -16.8752,13.6178 -16.8867,13.5899 -16.9945,13.4893 -17.0438,13.3602 -17.0386,13.2509 -16.9836,12.9779 -17.0158,12.8139 -16.9937,12.6149 -17.0166,12.4725 -17.0136,12.4101 -16.9675,12.2954 -16.8897,12.1910 -16.8282,12.1423 -16.7015,12.0904 -16.5909,12.0106 -16.4949,11.8695 -16.3843,11.7682 -16.5805,11.6708 -16.6222,11.6121 -16.6392,11.5372 -16.6333,11.4631 -16.6075,11.3929 -16.4955,11.2769 -16.4838,11.1639 -16.4232,10.9838 -16.3568,10.9031 -16.2625,10.8450 -16.1680,10.8214 -16.0342,10.8228 -15.8106,10.8622 -15.7004,10.9567 -15.5969,11.0050 -15.5576,11.0397 -15.4102,10.8682 -15.2832,10.7839 -15.2260,10.6936 -15.1697,10.6379 -15.0757,10.5869 -14.8991,10.5381 -14.8314,10.3619 -14.7968,10.3237 -14.6819,10.2533 -14.6388,10.1156 -14.5917,10.0581 -14.5271,10.0197 -14.4108,9.9895 -14.3023,9.9070 -14.0938,9.7989 -13.9448,9.6857 -13.9179,9.6253 -13.9330,9.4782 -13.8946,9.3875 -13.8027,9.3142 -13.6487,9.2831 -13.5312,9.1115 -13.5154,8.9848 -13.4668,8.8759 -13.4474,8.7884 -13.4502,8.6582 -13.4935,8.5180 -13.4876,8.3942 -13.3867,8.2117 -13.3098,8.0310 -13.2443,7.9791 -13.1595,7.9643 -13.1556,7.8496 -13.0808,7.7368 -13.1431,7.6521 -13.1564,7.5424 -13.1296,7.4632 -13.0795,7.4057 -12.9973,7.3632 -12.7857,7.3050 -12.6333,7.1999 -12.4033,7.1435 -12.1324,7.0360 -11.8616,6.9285 -11.7186,6.8121 -11.6007,6.7410 -11.5462,6.6133 -11.4661,6.5291 -11.0164,6.3306 -10.9881,6.2130 -10.9013,6.1184 -10.7804,6.0551 -10.5029,5.9632 -10.3113,5.8469 -10.0550,5.5994 -9.7986,5.3520 -9.5423,5.1045 -9.1644,4.8303 -8.9734,4.7487 -8.8338,4.6582 -8.6461,4.5805 -8.3014,4.3817 -8.0330,4.3204 -7.8032,4.1793 -7.6275,4.1410 -7.5062,4.1381 -7.5062,3.6415 -7.5062,3.1449 -7.5062,2.6484 -7.5062,2.1518 -7.5062,1.6552 -7.5062,1.1587 -7.5062,0.6621 -7.5062,0.1655 -7.5062,-0.3310 -7.5062,-0.8276 -7.5062,-1.2822 -7.5062,-1.7367 -7.5062,-2.1912 -7.5062,-2.6458 -7.5062,-3.1003 -7.5062,-3.5549 -7.5062,-4.0094 -7.5062,-4.4640 -7.5062,-4.9185 -7.5062,-5.3731 -7.5062,-5.8276 -7.9664,-5.8276 -8.4266,-5.8276 -8.8867,-5.8276 -9.3469,-5.8276 -9.8071,-5.8276 -10.2673,-5.8276 -10.7275,-5.8276 -11.1877,-5.8276 -11.6422,-5.8276 -12.0968,-5.8276 -12.5513,-5.8276 -13.0059,-5.8276 -13.4604,-5.8276 -13.9150,-5.8276 -14.3695,-5.8276 -14.8241,-5.8276 -15.2786,-5.8276 -15.7331,-5.8276 -16.1877,-5.8276 -16.1822,-6.2696 -16.1766,-6.7115 -16.1711,-7.1534 -16.1656,-7.5954 -16.1601,-8.0373 -16.1545,-8.4793 -16.1490,-8.9212 -16.1435,-9.3632 -15.6888,-9.3632 -15.2342,-9.3632 -14.7795,-9.3632 -14.3248,-9.3632 -13.8702,-9.3632 -13.4155,-9.3632 -12.9608,-9.3632 -12.5062,-9.3632 -12.0062,-9.3632 -11.5062,-9.3632 -11.0062,-9.3632 -10.5062,-9.3632 -10.0062,-9.3632 -9.5062,-9.3632 -9.0062,-9.3632 -8.5062,-9.3632 -8.0062,-9.3632 -7.5062,-9.3632 -7.5063,-9.7951 -7.5065,-10.2270 -7.5066,-10.6590 -7.5068,-11.1135 -7.5069,-11.5681 -7.5071,-12.0226 -7.5072,-12.4772 -7.5074,-12.9317 -7.5075,-13.3862 -7.5077,-13.8408 -7.5078,-14.2953 -7.5080,-14.7499 -7.5081,-15.2044 -7.5083,-15.6590 -7.5085,-16.1590 -7.5086,-16.6590 -7.5088,-17.1590 -7.5090,-17.6590 -7.5091,-18.1590 -7.5093,-18.6590 -7.5095,-19.1590 -7.5096,-19.6590 -7.5098,-20.1590 -7.5100,-20.6590 -7.5101,-21.1135 -7.5103,-21.5681 -7.5104,-22.0226 -7.5106,-22.4772 -7.5107,-22.9317 -7.5109,-23.3862 -7.5111,-23.8408 -7.5112,-24.2953 -7.5114,-24.7499 -7.5115,-25.2044 -7.5117,-25.6590 -7.5118,-26.1135 -7.5120,-26.5681 -7.5121,-27.0226 -7.5123,-27.4772 -7.5124,-27.9317 -7.5126,-28.3862 -7.5127,-28.8408 -7.5129,-29.2953 -7.5130,-29.7499 -7.5132,-30.2044 -7.5134,-30.6590 -7.5135,-31.1135 -7.5137,-31.5681 -7.5138,-32.0226 -7.5140,-32.4772 -7.5141,-32.9317 -7.5143,-33.3862 -7.5144,-33.8408 -7.5146,-34.2953 -7.5147,-34.7499 -7.5149,-35.2044 -7.5150,-35.6590 -7.9402,-35.6590 -8.3654,-35.6590 -8.7905,-35.6590 -9.2157,-35.6590 -9.6409,-35.6590 -10.0954,-35.6590 -10.5500,-35.6590 -11.0045,-35.6590 -11.4591,-35.6590 -11.9136,-35.6590 -12.3681,-35.6590 -12.8227,-35.6590 -13.2772,-35.6590 -13.7318,-35.6590 -14.1863,-35.6590 -14.6409,-35.6590 -14.6409,-36.0105 -14.6409,-36.3621 -14.6409,-36.7136 -14.6409,-37.1682 -14.6409,-37.6227 -14.6409,-38.0773 -14.6409,-38.5318 -14.6409,-38.9864 -14.6409,-39.4409 -14.6409,-39.8954 -14.6409,-40.3500 -14.6409,-40.8045 -14.6409,-41.2591 -14.6409,-41.7136 -14.2162,-41.7136 -13.7915,-41.7136 -13.3667,-41.7136 -12.9420,-41.7136 -12.5173,-41.7136 -12.0628,-41.7136 -11.6082,-41.7136 -11.1537,-41.7136 -10.6991,-41.7136 -10.2446,-41.7136 -9.7900,-41.7136 -9.3355,-41.7136 -8.8810,-41.7136 -8.4264,-41.7136 -7.9719,-41.7136 -7.5173,-41.7136 -7.5175,-42.1970 -7.5177,-42.6803 -7.5179,-43.1636 -7.5180,-43.6470 -7.5182,-44.1303 -7.5184,-44.6136 -7.5186,-45.0682 -7.5188,-45.5227 -7.5189,-45.9773 -7.5191,-46.4318 -7.5193,-46.8864 -7.5194,-47.3409 -7.5196,-47.7954 -7.5198,-48.2500 -7.5200,-48.7045 -7.5201,-49.1591 -7.5203,-49.6136 -7.5205,-50.1136 -7.5207,-50.6136 -7.5209,-51.1136 -7.5211,-51.6136 -7.5212,-52.1136 -7.5214,-52.6136 -7.5216,-53.1136 -7.5218,-53.6136 -7.5220,-54.1136 -7.5222,-54.6136 -7.5224,-55.0682 -7.5225,-55.5227 -7.5227,-55.9773 -7.5229,-56.4318 -7.5231,-56.8864 -7.5232,-57.3409 -7.5234,-57.7954 -7.5236,-58.2500 -7.5237,-58.7045 -7.5239,-59.1591 -7.5241,-59.6136 -7.5243,-60.0682 -7.5244,-60.5227 -7.5246,-60.9773 -7.5248,-61.4318 -7.5249,-61.8864 -7.5251,-62.3409 -7.5253,-62.7954 -7.5255,-63.2500 -7.5256,-63.7045 -7.5258,-64.1591 -7.5260,-64.6136 -7.5261,-65.0682 -7.5263,-65.5227 -7.5265,-65.9773 -7.5267,-66.4318 -7.5268,-66.8864 -7.5270,-67.3409 -7.5272,-67.7954 -7.5273,-68.2500 -7.5275,-68.7045 -7.5277,-69.1591 -7.5279,-69.6136 -7.5280,-70.0940 -7.5282,-70.5743 -7.6727,-70.5818 -8.0522,-70.6253 -8.1933,-70.6470 -8.3449,-70.6876 -8.4774,-70.7415 -8.5391,-70.7780 -8.5824,-70.8166 -8.6022,-70.8520 -8.6007,-70.8905 -8.5756,-70.9312 -8.6656,-71.0310 -9.0121,-70.9393 -9.1477,-70.9128 -9.3040,-70.8909 -9.4370,-70.8138 -9.6074,-70.7567 -9.6458,-70.7497 -9.7687,-70.7274 -9.8024,-70.7212 -10.0137,-70.7059 -10.2606,-70.7109 -10.5058,-70.7371 -10.7473,-70.7846 -10.9375,-70.8456 -11.0425,-70.9042 -11.0934,-70.9670 -11.0958,-71.0042 -11.0767,-71.0452 -11.0491,-71.0779 -10.9839,-71.1256 -11.0464,-71.1475 -11.0941,-71.1431 -11.3249,-71.0945 -11.4977,-71.0677 -11.6868,-71.0516 -11.8773,-71.0480 -12.0463,-71.0568 -12.2775,-71.0896 -12.4690,-71.1089 -12.5964,-71.1329 -12.7259,-71.1697 -12.8678,-71.2265 -12.9744,-71.2946 -13.0373,-71.3696 -13.0442,-71.4372 -12.9867,-71.5369 -12.8298,-71.6769 -12.7247,-71.7426 -12.5778,-71.8023 -12.7238,-71.7901 -12.8750,-71.7872 -13.0197,-71.7939 -13.1812,-71.8132 -13.3029,-71.8375 -13.4298,-71.8752 -13.5319,-71.9204 -13.5951,-71.9627 -13.6409,-72.0174 -13.6518,-72.0696 -13.6307,-72.1285 -13.5771,-72.1852 -13.5046,-72.2329 -13.4110,-72.2769 -13.3134,-72.3118 -13.0769,-72.3814 -13.0353,-72.3987 -13.0203,-72.4132 -13.0407,-72.4260 -13.3907,-72.5148 -13.4577,-72.5412 -13.5271,-72.5819 -13.8072,-72.5346 -13.9672,-72.5161 -14.1316,-72.5032 -14.2695,-72.4979 -14.4102,-72.4982 -14.5293,-72.5038 -14.6535,-72.5163 -14.7693,-72.5351 -14.8844,-72.5623 -14.9812,-72.5950 -15.0541,-72.6314 -15.1156,-72.6897 -15.1247,-72.7958 -15.1609,-72.8286 -15.2026,-72.8356 -15.3937,-72.8428 -15.5886,-72.8671 -15.7261,-72.8715 -15.5612,-72.8232 -15.4757,-72.7842 -15.4187,-72.7338 -15.4033,-72.6803 -15.4261,-72.6156 -15.4890,-72.5405 -15.6450,-72.4053 -15.7284,-72.3583 -15.8364,-72.3179 -15.9879,-72.2805 -16.1606,-72.2554 -16.3205,-72.2449 -16.4868,-72.2458 -16.6554,-72.2591 -16.7670,-72.2755 -16.9381,-72.3149 -17.0396,-72.3511 -17.1189,-72.3919 -17.1768,-72.4364 -17.2139,-72.4835 -17.2310,-72.5324 -17.2241,-72.5986 -17.1976,-72.6478 -17.1351,-72.7113 -17.0690,-72.7559 -16.9872,-72.7972 -16.8903,-72.8341 -16.7793,-72.8657 -16.5646,-72.9045 -16.4193,-72.9179 -16.1965,-72.9309 -16.1597,-72.9379 -16.3822,-72.9903 -16.5104,-73.0372 -16.6571,-73.1184 -16.7368,-73.2058 -16.9622,-73.2674 -17.0676,-73.3049 -17.2202,-73.3860 -17.2862,-73.4459 -17.3512,-73.6370 -17.3291,-73.7135 -17.2598,-73.7828 -17.3089,-73.8463 -17.2948,-73.9088 -17.2337,-73.9595 -17.1177,-74.0142 -17.0093,-74.0462 -16.8306,-74.0769 -16.8136,-74.0858 -16.8544,-74.0953 -16.9500,-74.1039 -17.2665,-74.1166 -17.5831,-74.1294 -17.7703,-74.1454 -17.9000,-74.1647 -18.0305,-74.1921 -18.1336,-74.2213 -18.2297,-74.2574 -18.3158,-74.3049 -18.3775,-74.3597 -18.3784,-74.4322 -18.3939,-74.4544 -18.4292,-74.4676 -18.5500,-74.4940 -18.6058,-74.5130 -18.6795,-74.5466 -18.7287,-74.5819 -18.7604,-74.6430 -18.7266,-74.7144 -18.7371,-74.7406 -18.8464,-74.7893 -18.9236,-74.8391 -19.1319,-74.8882 -19.2128,-74.9187 -19.2740,-74.9546 -19.3750,-75.0387 -19.5828,-75.1292 -19.6489,-75.1658 -19.6823,-75.2000 -19.6992,-75.2385 -19.6745,-75.3168 -19.7114,-75.3193 -19.7809,-75.3159 -19.9687,-75.2916 -20.0208,-75.2849 -20.2190,-75.2683 -20.4051,-75.2625 -20.5742,-75.2662 -20.7070,-75.2762 -20.8180,-75.2903 -21.2387,-75.3668 -21.3912,-75.4079 -21.5199,-75.4646 -21.6435,-75.4610 -21.8574,-75.4618 -22.0694,-75.4423 -22.2426,-75.4342 -22.4455,-75.4315 -22.5168,-75.4322 -22.5169,-75.0055 -22.5170,-74.5789 -22.5171,-74.1522 -22.5172,-73.7256 -22.5173,-73.2989 -22.5173,-72.8444 -22.5174,-72.3898 -22.5175,-71.9353 -22.5176,-71.4807 -22.5177,-71.0262 -22.5178,-70.5716 -22.5179,-70.1171 -22.5180,-69.6625 -22.5181,-69.2080 -22.5182,-68.7534 -22.5183,-68.2989 -22.5184,-67.8444 -22.5185,-67.3898 -22.5185,-66.9353 -22.5186,-66.4807 -22.5187,-66.0262 -22.5188,-65.5716 -22.5189,-65.1171 -22.5190,-64.6625 -22.5191,-64.2080 -22.5192,-63.7534 -22.5193,-63.2989 -22.5194,-62.8444 -22.5195,-62.3898 -22.5196,-61.9353 -22.5196,-61.4807 -22.5197,-61.0262 -22.5198,-60.5716 -22.5199,-60.1171 -22.5200,-59.6625 -22.5201,-59.2080 -22.5202,-58.7534 -22.5203,-58.2989 -22.5204,-57.8444 -22.5205,-57.3898 -22.5206,-56.9353 -22.5207,-56.4807 -22.5208,-56.0262 -22.5208,-55.5716 -22.5209,-55.1171 -22.5210,-54.6625 -22.5211,-54.2080 -22.5212,-53.7534 -22.5213,-53.2989 -22.5214,-52.8444 -22.5215,-52.3898 -22.5216,-51.9353 -22.5217,-51.4807 -22.5218,-51.0262 -22.5219,-50.5716 -22.5219,-50.1171 -22.5220,-49.6625 -22.5221,-49.2080 -22.5222,-48.7534 -22.5223,-48.2989 -22.5224,-47.8444 -22.5225,-47.3898 -22.5226,-46.9353 -22.5227,-46.4807 -22.5228,-46.0262 -22.5229,-45.5716 -22.5230,-45.1171 -22.5231,-44.6625 -22.5231,-44.2080 -22.5232,-43.7534 -22.5233,-43.2989 -22.5234,-42.8444 -22.5235,-42.3898 -22.5236,-41.9353 -22.5237,-41.4807 -22.5238,-41.0262 -22.5239,-40.5716 -22.5240,-40.1171 -22.5241,-39.6625 -22.5242,-39.2080 -22.5242,-38.7534 -22.5243,-38.2989 -22.5244,-37.8239 -22.5245,-37.3489 -22.5246,-36.8739 -22.5247,-36.3989 -22.5248,-35.8989 -22.5249,-35.3989 -22.5250,-34.8989 -22.5251,-34.3989 -22.5252,-33.8989 -22.5253,-33.3989 -22.5254,-32.8989 -22.5255,-32.3989 -22.5256,-31.8989 -22.5257,-31.3989 -22.5258,-30.9443 -22.5259,-30.4898 -22.5260,-30.0353 -22.5261,-29.5807 -22.5262,-29.1262 -22.5263,-28.6716 -22.5264,-28.2171 -22.5265,-27.7625 -22.5266,-27.3080 -22.5267,-26.8534 -22.5268,-26.3989 -22.5268,-25.9443 -22.5269,-25.4898 -22.5270,-25.0353 -22.5271,-24.5807 -22.5272,-24.1262 -22.5273,-23.6716 -22.5274,-23.2171 -22.5275,-22.7625 -22.5276,-22.3080 -22.5277,-21.8534 -22.5278,-21.3989 -22.5278,-20.9989 -22.5279,-20.5989 -22.5280,-20.1989 -22.5281,-19.7989 -22.5282,-19.3443 -22.5283,-18.8898 -22.5284,-18.4353 -22.5285,-17.9807 -22.5286,-17.5262 -22.5286,-17.0716 -22.5287,-16.6171 -22.5288,-16.1625 -22.5289,-15.7080 -22.5290,-15.2534 -22.5291,-14.7989 -22.5292,-14.3443 -22.5293,-13.8898 -22.5294,-13.4353 -22.5295,-12.9807 -22.5296,-12.5262 -22.5297,-12.0716 -22.5297,-11.6171 -22.5298,-11.1625 -22.5299,-10.7080 -22.5300,-10.2534 -22.5301,-9.7989 -22.5302,-9.2989 -22.5303,-8.7989 -22.5304,-8.2989 -22.5305,-7.7989 -22.5306,-7.2989 -22.5307,-6.7989 -22.5308,-6.2989 -22.5309,-5.7989 -22.5310,-5.2989 -22.5311,-4.7989 -22.5312,-4.3443 -22.5313,-3.8898 -22.5314,-3.4353 -22.5315,-2.9807 -22.5316,-2.5262 -22.5317,-2.0716 -22.5318,-1.6171 -22.5319,-1.1625 -22.5320,-0.7080 -22.5321,-0.2534 -22.5321,0.2011 -22.5322,0.6557 -22.5323,1.1102 -22.5324,1.5647 -22.5325,2.0193 -22.5326,2.4738 -22.5327,2.9284 -22.5328,3.3829 -22.5329,3.8375 -22.5330,4.2920 -22.5331,4.7466 -22.5332,5.2011 -22.5332,5.6557 -22.5333,6.1102 -22.5334,6.5647 -22.5335,7.0193 -22.5336,7.4738 -22.5337,7.9284 -22.5338,8.3829 -22.5339,8.8375 -22.5340,9.2920 -22.5341,9.7466 -22.5342,10.2011 -22.5343,10.6582 -22.5344,11.1154 -22.5344,11.5725 -22.5345,12.0297 -22.5346,12.4868 -22.5347,12.9440 -22.5348,13.4011 -23.0326,13.4011 -23.5304,13.4011 -24.0282,13.4011 -24.5260,13.4011 -25.0238,13.4011 -25.5216,13.4011 -26.0194,13.4011 -26.5172,13.4011 -27.0149,13.4011 -27.5127,13.4011 -27.5127,13.9005 -27.5127,14.3999 -27.5127,14.8994 -27.5127,15.3988 -27.5127,15.8982 -27.5127,16.3976 -27.5127,16.8971 -27.5127,17.3965 -27.5127,17.8959 -27.5127,18.3953 -27.0150,18.3953 -26.5174,18.3953 -26.0197,18.3953 -25.5220,18.3953 -25.0243,18.3953 -24.5266,18.3953 -24.0289,18.3953 -23.5312,18.3953 -23.0335,18.3953 -22.5358,18.3953 -22.5359,18.8499 -22.5360,19.3044 -22.5361,19.7590 -22.5362,20.2135 -22.5363,20.6681 -22.5364,21.1226 -22.5365,21.5771 -22.5366,22.0317 -22.5367,22.4862 -22.5367,22.9408 -22.5368,23.3953 -22.5369,23.8499 -22.5370,24.3044 -22.5371,24.7590 -22.5372,25.2135 -22.5373,25.6681 -22.5374,26.1226 -22.5375,26.5771 -22.5376,27.0317 -22.5377,27.4862 -22.5378,27.9408 -22.5379,28.3953 -22.5380,28.8953 -22.5381,29.3953 -22.5382,29.8953 -22.5383,30.3953 -22.5384,30.8953 -22.5385,31.3953 -22.5386,31.8953 -22.5387,32.3953 -22.5388,32.8953 -22.5389,33.3953 -22.5390,33.8388 -22.5390,34.2822 -22.5391,34.7256 -22.5392,35.1691 -22.5393,35.6125 -22.5394,36.0559 -22.5395,36.4994 -22.9940,36.4994 -23.4486,36.4994 -23.9031,36.4994 -24.3577,36.4994 -24.8122,36.4994 -25.2668,36.4994 -25.7213,36.4994 -26.1759,36.4994 -26.6304,36.4994 -27.0850,36.4994 -27.5395,36.4994 -28.0070,36.4994 -28.4745,36.4994 -28.9420,36.4994 -29.4095,36.4994 -29.8770,36.4994 -30.3445,36.4994 -30.8120,36.4994 -31.2795,36.4994 -31.7470,36.4994 -31.7470,36.9608 -31.7470,37.4222 -31.7470,37.8836 -31.7470,38.3451 -31.7470,38.8065 -31.7470,39.2679 -31.7470,39.7293 -31.7470,40.1908 -31.2924,40.1908 -30.8379,40.1908 -30.3833,40.1908 -29.9288,40.1908 -29.4742,40.1908 -29.0197,40.1908 -28.5652,40.1908 -28.1106,40.1908 -27.6561,40.1908 -27.2015,40.1908 -26.7470,40.1908 -26.2796,40.1908 -25.8121,40.1908 -25.3447,40.1908 -24.8773,40.1908 -24.4099,40.1908 -23.9425,40.1908 -23.4751,40.1908 -23.0077,40.1908 -22.5402,40.1908 -22.5403,40.6453 -22.5403,41.0998 -22.5404,41.5544 -22.5404,42.0089 -22.5404,42.4635 -22.5405,42.9180 -22.5405,43.3726 -22.5405,43.8271 -22.5406,44.2817 -22.5406,44.7362 -22.5407,45.1908 -22.5407,45.6453 -22.5407,46.0998 -22.5408,46.5544 -22.5408,47.0089 -22.5408,47.4635 -22.5409,47.9180 -22.5409,48.3726 -22.5410,48.8271 -22.5410,49.2817 -22.5410,49.7362 -22.5411,50.1908 -22.5411,50.6453 -22.5412,51.0998 -22.5412,51.5544 -22.5412,52.0089 -22.5413,52.4635 -22.5413,52.9180 -22.5413,53.3726 -22.5414,53.8271 -22.5414,54.2817 -22.5415,54.7362 -22.5415,55.1908 -22.5415,55.6453 -22.5416,56.0998 -22.5416,56.5544 -22.5416,57.0089 -22.5417,57.4635 -22.5417,57.9180 -22.5418,58.3726 -22.5418,58.8271 -22.5418,59.2817 -22.5419,59.7362 -22.5419,60.1908 -22.5419,60.6363 -22.5420,61.0819 -22.5420,61.5274 -22.5421,61.9730 -22.5421,62.4186 -22.5421,62.8641 -22.5421,62.8642 -22.5346,63.2380 -22.5271,63.6118 -22.2362,63.6361 -22.0717,63.6256 -21.8668,63.6346 -21.6325,63.6224 -21.3286,63.6460 -21.1998,63.6447 1012,-2.0,Atlantic/South_Georgia -22.5139,69.6393 -22.5139,69.2106 -22.5139,68.7818 -22.5139,68.3530 -22.5139,67.9242 -22.5139,67.4954 -22.5207,67.0846 -22.5274,66.6738 -22.5665,66.6728 -22.7134,66.6692 -22.8498,66.6765 -23.0123,66.6723 -23.1625,66.6565 -23.3401,66.6282 -23.4492,66.6013 -23.5378,66.5675 -23.6091,66.5199 -23.7146,66.3943 -23.9424,66.3184 -24.0503,66.2597 -24.1752,66.2118 -24.2452,66.1726 -24.3131,66.0995 -24.3389,65.9959 -24.4833,65.9428 -24.5581,65.9062 -24.6128,65.8643 -24.6633,65.7958 -24.7841,65.7377 -24.8661,65.6749 -24.9878,65.6028 -25.0343,65.5539 -25.0444,65.4947 -25.0223,65.4463 -24.9703,65.3974 -24.8953,65.3532 -24.8009,65.3177 -24.7159,65.2981 -24.6111,65.2844 -24.5189,65.2824 -24.3693,65.2791 -24.2191,65.2306 -24.2240,65.0981 -24.2956,65.0826 -24.4065,65.0456 -24.4820,65.0041 -24.5328,64.9524 -24.5506,64.8936 -24.5400,64.8436 -24.5103,64.7937 -24.3813,64.6698 -24.2477,64.5962 -24.0682,64.5420 -23.8891,64.5198 -23.6832,64.5210 -23.5134,64.5411 -23.3216,64.5909 -23.2521,64.5975 -23.1750,64.5939 -22.9473,64.5836 -22.8922,64.5704 -22.8470,64.5456 -22.7906,64.4716 -22.6596,64.3707 -22.5931,64.3314 -22.5815,64.2945 -22.6890,64.3011 -22.7859,64.2983 -22.8725,64.2874 -22.9489,64.2691 -23.0153,64.2446 -23.0844,64.2066 -23.1149,64.1760 -23.1776,64.1133 -23.2132,63.9998 -23.1829,63.7982 -23.1180,63.7170 -23.0433,63.6776 -22.9955,63.6525 -22.8484,63.6135 -22.6812,63.5990 -22.5852,63.6070 -22.5271,63.6118 -22.5346,63.2380 -22.5421,62.8642 -22.5421,62.8641 -22.5421,62.4186 -22.5421,61.9730 -22.5420,61.5274 -22.5420,61.0819 -22.5419,60.6363 -22.5419,60.1908 -22.5419,59.7362 -22.5418,59.2817 -22.5418,58.8271 -22.5418,58.3726 -22.5417,57.9180 -22.5417,57.4635 -22.5416,57.0089 -22.5416,56.5544 -22.5416,56.0998 -22.5415,55.6453 -22.5415,55.1908 -22.5415,54.7362 -22.5414,54.2817 -22.5414,53.8271 -22.5413,53.3726 -22.5413,52.9180 -22.5413,52.4635 -22.5412,52.0089 -22.5412,51.5544 -22.5412,51.0998 -22.5411,50.6453 -22.5411,50.1908 -22.5410,49.7362 -22.5410,49.2817 -22.5410,48.8271 -22.5409,48.3726 -22.5409,47.9180 -22.5408,47.4635 -22.5408,47.0089 -22.5408,46.5544 -22.5407,46.0998 -22.5407,45.6453 -22.5407,45.1908 -22.5406,44.7362 -22.5406,44.2817 -22.5405,43.8271 -22.5405,43.3726 -22.5405,42.9180 -22.5404,42.4635 -22.5404,42.0089 -22.5404,41.5544 -22.5403,41.0998 -22.5403,40.6453 -22.5402,40.1908 -23.0077,40.1908 -23.4751,40.1908 -23.9425,40.1908 -24.4099,40.1908 -24.8773,40.1908 -25.3447,40.1908 -25.8121,40.1908 -26.2796,40.1908 -26.7470,40.1908 -27.2015,40.1908 -27.6561,40.1908 -28.1106,40.1908 -28.5652,40.1908 -29.0197,40.1908 -29.4742,40.1908 -29.9288,40.1908 -30.3833,40.1908 -30.8379,40.1908 -31.2924,40.1908 -31.7470,40.1908 -31.7470,39.7293 -31.7470,39.2679 -31.7470,38.8065 -31.7470,38.3451 -31.7470,37.8836 -31.7470,37.4222 -31.7470,36.9608 -31.7470,36.4994 -31.2795,36.4994 -30.8120,36.4994 -30.3445,36.4994 -29.8770,36.4994 -29.4095,36.4994 -28.9420,36.4994 -28.4745,36.4994 -28.0070,36.4994 -27.5395,36.4994 -27.0850,36.4994 -26.6304,36.4994 -26.1759,36.4994 -25.7213,36.4994 -25.2668,36.4994 -24.8122,36.4994 -24.3577,36.4994 -23.9031,36.4994 -23.4486,36.4994 -22.9940,36.4994 -22.5395,36.4994 -22.5394,36.0559 -22.5393,35.6125 -22.5392,35.1691 -22.5391,34.7256 -22.5390,34.2822 -22.5390,33.8388 -22.5389,33.3953 -22.5388,32.8953 -22.5387,32.3953 -22.5386,31.8953 -22.5385,31.3953 -22.5384,30.8953 -22.5383,30.3953 -22.5382,29.8953 -22.5381,29.3953 -22.5380,28.8953 -22.5379,28.3953 -22.5378,27.9408 -22.5377,27.4862 -22.5376,27.0317 -22.5375,26.5771 -22.5374,26.1226 -22.5373,25.6681 -22.5372,25.2135 -22.5371,24.7590 -22.5370,24.3044 -22.5369,23.8499 -22.5368,23.3953 -22.5367,22.9408 -22.5367,22.4862 -22.5366,22.0317 -22.5365,21.5771 -22.5364,21.1226 -22.5363,20.6681 -22.5362,20.2135 -22.5361,19.7590 -22.5360,19.3044 -22.5359,18.8499 -22.5358,18.3953 -23.0335,18.3953 -23.5312,18.3953 -24.0289,18.3953 -24.5266,18.3953 -25.0243,18.3953 -25.5220,18.3953 -26.0197,18.3953 -26.5174,18.3953 -27.0150,18.3953 -27.5127,18.3953 -27.5127,17.8959 -27.5127,17.3965 -27.5127,16.8971 -27.5127,16.3976 -27.5127,15.8982 -27.5127,15.3988 -27.5127,14.8994 -27.5127,14.3999 -27.5127,13.9005 -27.5127,13.4011 -27.0149,13.4011 -26.5172,13.4011 -26.0194,13.4011 -25.5216,13.4011 -25.0238,13.4011 -24.5260,13.4011 -24.0282,13.4011 -23.5304,13.4011 -23.0326,13.4011 -22.5348,13.4011 -22.5347,12.9440 -22.5346,12.4868 -22.5345,12.0297 -22.5344,11.5725 -22.5344,11.1154 -22.5343,10.6582 -22.5342,10.2011 -22.5341,9.7466 -22.5340,9.2920 -22.5339,8.8375 -22.5338,8.3829 -22.5337,7.9284 -22.5336,7.4738 -22.5335,7.0193 -22.5334,6.5647 -22.5333,6.1102 -22.5332,5.6557 -22.5332,5.2011 -22.5331,4.7466 -22.5330,4.2920 -22.5329,3.8375 -22.5328,3.3829 -22.5327,2.9284 -22.5326,2.4738 -22.5325,2.0193 -22.5324,1.5647 -22.5323,1.1102 -22.5322,0.6557 -22.5321,0.2011 -22.5321,-0.2534 -22.5320,-0.7080 -22.5319,-1.1625 -22.5318,-1.6171 -22.5317,-2.0716 -22.5316,-2.5262 -22.5315,-2.9807 -22.5314,-3.4353 -22.5313,-3.8898 -22.5312,-4.3443 -22.5311,-4.7989 -22.5310,-5.2989 -22.5309,-5.7989 -22.5308,-6.2989 -22.5307,-6.7989 -22.5306,-7.2989 -22.5305,-7.7989 -22.5304,-8.2989 -22.5303,-8.7989 -22.5302,-9.2989 -22.5301,-9.7989 -22.5300,-10.2534 -22.5299,-10.7080 -22.5298,-11.1625 -22.5297,-11.6171 -22.5297,-12.0716 -22.5296,-12.5262 -22.5295,-12.9807 -22.5294,-13.4353 -22.5293,-13.8898 -22.5292,-14.3443 -22.5291,-14.7989 -22.5290,-15.2534 -22.5289,-15.7080 -22.5288,-16.1625 -22.5287,-16.6171 -22.5286,-17.0716 -22.5286,-17.5262 -22.5285,-17.9807 -22.5284,-18.4353 -22.5283,-18.8898 -22.5282,-19.3443 -22.5281,-19.7989 -22.5280,-20.1989 -22.5279,-20.5989 -22.5278,-20.9989 -22.5278,-21.3989 -22.5277,-21.8534 -22.5276,-22.3080 -22.5275,-22.7625 -22.5274,-23.2171 -22.5273,-23.6716 -22.5272,-24.1262 -22.5271,-24.5807 -22.5270,-25.0353 -22.5269,-25.4898 -22.5268,-25.9443 -22.5268,-26.3989 -22.5267,-26.8534 -22.5266,-27.3080 -22.5265,-27.7625 -22.5264,-28.2171 -22.5263,-28.6716 -22.5262,-29.1262 -22.5261,-29.5807 -22.5260,-30.0353 -22.5259,-30.4898 -22.5258,-30.9443 -22.5257,-31.3989 -22.5256,-31.8989 -22.5255,-32.3989 -22.5254,-32.8989 -22.5253,-33.3989 -22.5252,-33.8989 -22.5251,-34.3989 -22.5250,-34.8989 -22.5249,-35.3989 -22.5248,-35.8989 -22.5247,-36.3989 -22.5246,-36.8739 -22.5245,-37.3489 -22.5244,-37.8239 -22.5243,-38.2989 -22.5242,-38.7534 -22.5242,-39.2080 -22.5241,-39.6625 -22.5240,-40.1171 -22.5239,-40.5716 -22.5238,-41.0262 -22.5237,-41.4807 -22.5236,-41.9353 -22.5235,-42.3898 -22.5234,-42.8444 -22.5233,-43.2989 -22.5232,-43.7534 -22.5231,-44.2080 -22.5231,-44.6625 -22.5230,-45.1171 -22.5229,-45.5716 -22.5228,-46.0262 -22.5227,-46.4807 -22.5226,-46.9353 -22.5225,-47.3898 -22.5224,-47.8444 -22.5223,-48.2989 -22.5222,-48.7534 -22.5221,-49.2080 -22.5220,-49.6625 -22.5219,-50.1171 -22.5219,-50.5716 -22.5218,-51.0262 -22.5217,-51.4807 -22.5216,-51.9353 -22.5215,-52.3898 -22.5214,-52.8444 -22.5213,-53.2989 -22.5212,-53.7534 -22.5211,-54.2080 -22.5210,-54.6625 -22.5209,-55.1171 -22.5208,-55.5716 -22.5208,-56.0262 -22.5207,-56.4807 -22.5206,-56.9353 -22.5205,-57.3898 -22.5204,-57.8444 -22.5203,-58.2989 -22.5202,-58.7534 -22.5201,-59.2080 -22.5200,-59.6625 -22.5199,-60.1171 -22.5198,-60.5716 -22.5197,-61.0262 -22.5196,-61.4807 -22.5196,-61.9353 -22.5195,-62.3898 -22.5194,-62.8444 -22.5193,-63.2989 -22.5192,-63.7534 -22.5191,-64.2080 -22.5190,-64.6625 -22.5189,-65.1171 -22.5188,-65.5716 -22.5187,-66.0262 -22.5186,-66.4807 -22.5185,-66.9353 -22.5185,-67.3898 -22.5184,-67.8444 -22.5183,-68.2989 -22.5182,-68.7534 -22.5181,-69.2080 -22.5180,-69.6625 -22.5179,-70.1171 -22.5178,-70.5716 -22.5177,-71.0262 -22.5176,-71.4807 -22.5175,-71.9353 -22.5174,-72.3898 -22.5173,-72.8444 -22.5173,-73.2989 -22.5172,-73.7256 -22.5171,-74.1522 -22.5170,-74.5789 -22.5169,-75.0055 -22.5168,-75.4322 -22.6495,-75.4335 -22.7920,-75.4411 -22.9276,-75.4544 -23.1629,-75.4954 -23.3678,-75.5046 -23.6271,-75.5332 -23.9240,-75.5384 -24.2209,-75.5435 -24.5168,-75.5602 -24.5439,-75.5639 -24.8360,-75.6032 -25.2135,-75.6391 -25.5910,-75.6750 -25.9685,-75.7109 -26.3460,-75.7467 -26.4544,-75.7633 -26.6088,-75.7947 -26.8341,-75.8335 -27.0242,-75.8869 -27.2769,-75.9171 -27.4938,-75.9620 -27.6983,-75.9808 -27.9499,-76.0202 -28.2291,-76.0414 -28.4044,-76.0619 -28.7523,-76.1026 -29.1002,-76.1433 -29.2985,-76.1697 -29.4428,-76.1952 -29.6254,-76.2373 -29.8338,-76.2646 -29.9849,-76.2943 -30.2327,-76.3617 -30.3506,-76.4123 -30.3995,-76.4271 -30.6579,-76.4614 -30.7979,-76.4881 -31.1158,-76.5784 -31.3543,-76.6795 -31.4406,-76.7042 -31.5295,-76.7178 -31.8335,-76.7548 -32.1374,-76.7918 -32.2765,-76.8131 -32.4421,-76.8516 -32.6182,-76.9157 -32.8911,-76.9352 -33.1631,-76.9706 -33.5304,-77.0229 -33.6255,-77.0427 -33.6255,-77.0317 -33.7526,-77.0582 -34.0238,-77.0878 -34.1610,-77.1066 -34.3780,-77.1474 -34.5381,-77.1924 -34.6542,-77.2494 -34.9726,-77.3012 -35.1362,-77.3423 -35.2424,-77.3847 -35.3724,-77.4556 -35.5335,-77.5040 -35.5904,-77.5275 -35.6671,-77.5752 -35.7421,-77.6437 -35.7778,-77.6507 -35.9055,-77.6654 -36.0402,-77.6914 -36.1457,-77.7197 -36.2337,-77.7543 -36.3185,-77.8051 -36.4477,-77.9230 -36.5115,-77.9671 -36.6187,-78.0142 -36.8401,-78.0763 -36.9599,-78.1228 -37.0199,-78.1603 -37.0476,-78.1883 -37.2581,-78.1834 -37.5492,-78.1767 -37.5492,-77.7086 -37.5492,-77.2405 -37.5492,-76.7724 -37.5492,-76.3043 -37.5492,-75.8362 -37.5492,-75.3681 -37.5492,-74.9000 -37.5487,-74.4455 -37.5482,-73.9909 -37.5477,-73.5364 -37.5472,-73.0818 -37.5467,-72.6273 -37.5462,-72.1727 -37.5457,-71.7182 -37.5452,-71.2636 -37.5447,-70.8091 -37.5442,-70.3545 -37.5437,-69.9000 -37.5437,-69.4455 -37.5437,-68.9909 -37.5437,-68.5364 -37.5437,-68.0818 -37.5437,-67.6273 -37.5437,-67.1727 -37.5437,-66.7182 -37.5436,-66.2636 -37.5436,-65.8091 -37.5436,-65.3545 -37.5436,-64.9000 -37.5436,-64.4455 -37.5436,-63.9909 -37.5436,-63.5364 -37.5436,-63.0818 -37.5436,-62.6273 -37.5436,-62.1727 -37.5436,-61.7182 -37.5436,-61.2636 -37.5436,-60.8091 -37.5436,-60.3545 -37.5436,-59.9000 -37.5436,-59.4034 -37.5436,-58.9068 -37.5436,-58.4102 -37.5436,-57.9135 -37.5436,-57.4169 -37.5436,-56.9203 -37.5436,-56.4237 -37.5436,-55.9271 -37.5436,-55.4305 -37.5436,-54.9339 -37.5491,-54.9339 -37.5674,-54.9339 -38.0627,-54.9339 -38.5579,-54.9339 -39.0531,-54.9339 -39.5484,-54.9339 -40.0436,-54.9339 -40.5389,-54.9339 -41.0341,-54.9339 -41.5293,-54.9339 -42.0246,-54.9339 -42.5198,-54.9339 -42.5436,-54.9339 -42.5491,-54.9339 -43.0471,-54.9339 -43.5450,-54.9339 -44.0429,-54.9339 -44.5409,-54.9339 -45.0388,-54.9339 -45.0388,-54.4596 -45.0388,-53.9853 -45.0388,-53.5110 -45.0388,-53.0367 -45.0388,-52.5624 -45.0388,-52.0881 -44.5394,-52.0881 -44.0399,-52.0881 -43.5405,-52.0881 -43.0410,-52.0881 -42.5416,-52.0881 -42.0421,-52.0881 -41.5427,-52.0881 -41.0432,-52.0881 -40.5438,-52.0881 -40.0443,-52.0881 -40.0388,-52.0881 -40.0150,-52.0881 -39.5218,-52.0881 -39.0287,-52.0881 -38.5355,-52.0881 -38.0423,-52.0881 -37.5491,-52.0881 -37.5436,-52.0881 -37.5436,-51.6336 -37.5436,-51.1790 -37.5436,-50.7245 -37.5436,-50.2700 -37.5436,-49.8154 -37.5436,-49.3609 -37.5436,-48.9063 -37.5436,-48.4518 -37.5436,-47.9972 -37.5436,-47.5427 -37.5436,-47.0881 -37.5436,-46.5967 -37.5436,-46.1053 -37.5436,-45.6139 -37.5436,-45.1224 -37.5436,-44.6310 -37.5436,-44.1396 -37.5436,-43.6482 -37.5436,-43.1567 -37.5436,-42.6653 -37.5436,-42.1739 -37.5436,-41.7193 -37.5436,-41.2648 -37.5436,-40.8103 -37.5436,-40.3557 -37.5436,-39.9012 -37.5436,-39.4466 -37.5436,-38.9921 -37.5436,-38.5375 -37.5436,-38.0830 -37.5436,-37.6284 -37.5436,-37.1739 -37.5436,-36.7193 -37.5436,-36.2648 -37.5436,-35.8103 -37.5436,-35.3557 -37.5436,-34.9012 -37.5436,-34.4466 -37.5436,-33.9921 -37.5436,-33.5375 -37.5436,-33.0830 -37.5436,-32.6284 -37.5436,-32.1739 -37.5436,-31.7193 -37.5436,-31.2648 -37.5436,-30.8103 -37.5436,-30.3557 -37.5436,-29.9012 -37.5436,-29.4466 -37.5436,-28.9921 -37.5436,-28.5375 -37.5436,-28.0830 -37.5436,-27.6284 -37.5436,-27.1739 -37.5436,-26.7193 -37.5436,-26.2648 -37.5436,-25.8103 -37.5436,-25.3557 -37.5436,-24.9012 -37.5436,-24.4466 -37.5435,-23.9921 -37.5435,-23.5375 -37.5435,-23.0830 -37.5435,-22.6284 -37.5435,-22.1739 -37.5435,-21.7193 -37.5435,-21.2648 -37.5435,-20.8103 -37.5435,-20.3557 -37.5435,-19.9012 -37.5435,-19.4466 -37.5435,-18.9921 -37.5435,-18.5375 -37.5435,-18.0830 -37.5435,-17.6284 -37.5435,-17.1739 -37.5435,-16.6821 -37.5435,-16.1904 -37.5435,-15.6986 -37.5435,-15.2069 -37.5435,-14.7151 -37.5435,-14.2234 -37.5435,-13.7316 -37.5435,-13.2398 -37.5435,-12.7481 -37.5435,-12.2563 -37.4395,-12.0691 -37.2566,-11.6854 -37.1499,-11.5309 -37.0876,-11.4114 -36.9352,-11.2304 -36.8015,-10.9801 -36.7219,-10.8995 -36.6020,-10.8150 -36.3391,-10.7002 -36.2591,-10.6462 -36.0543,-10.3643 -35.8947,-10.2026 -35.6584,-9.8936 -35.5374,-9.8056 -35.4864,-9.7188 -35.3977,-9.6323 -35.1080,-9.2718 -35.0158,-9.1062 -34.9288,-8.9035 -34.8138,-8.5817 -34.6987,-8.2599 -34.6139,-7.9746 -34.6069,-7.8934 -34.6267,-7.7863 -34.5935,-7.6415 -34.5946,-7.2183 -34.6232,-6.9579 -34.7387,-6.6734 -34.7864,-6.3685 -34.8952,-6.0602 -34.9125,-5.9329 -34.9742,-5.7622 -35.0550,-5.4610 -35.1844,-5.1876 -35.2447,-5.1026 -35.3084,-5.0423 -35.3942,-4.9852 -35.4856,-4.9461 -35.8719,-4.8552 -36.0079,-4.8465 -36.2298,-4.8906 -36.6195,-4.8850 -36.6882,-4.8630 -36.8282,-4.7507 -37.0409,-4.7268 -37.1788,-4.5528 -37.2825,-4.4943 -37.5187,-4.4088 -37.5437,-4.3746 -37.5437,-3.9005 -37.5437,-3.4264 -37.5437,-2.9524 -37.5437,-2.4783 -37.5437,-2.0042 -37.5437,-1.5302 -37.5437,-1.0561 -37.5437,-0.5820 -37.5437,-0.1080 -37.5437,0.3661 -37.5437,0.8206 -37.5437,1.2752 -37.5437,1.7297 -37.5437,2.1843 -37.5437,2.6388 -37.5437,3.0934 -37.5437,3.5479 -37.5437,4.0025 -37.5437,4.4570 -37.5437,4.9115 -37.5437,5.3661 -37.5437,5.8206 -37.5437,6.2752 -37.5437,6.7297 -37.5437,7.1843 -37.5437,7.6388 -37.5437,8.0934 -37.5437,8.5479 -37.5437,9.0025 -37.5437,9.4570 -37.5437,9.9115 -37.5437,10.3661 -37.5437,10.8206 -37.5437,11.2752 -37.5437,11.7297 -37.5437,12.1843 -37.5437,12.6388 -37.5437,13.0934 -37.5437,13.5479 -37.5437,14.0025 -37.5437,14.4570 -37.5437,14.9115 -37.5437,15.3661 -37.5437,15.3684 -37.5437,15.8230 -37.5437,16.2775 -37.5437,16.7321 -37.5437,17.1866 -37.5437,17.6412 -37.5437,18.0957 -37.5437,18.5502 -37.5437,19.0048 -37.5437,19.4593 -37.5437,19.9139 -37.5437,20.3684 -37.5437,20.8230 -37.5437,21.2775 -37.5437,21.7321 -37.5437,22.1866 -37.5437,22.6412 -37.5437,23.0957 -37.5437,23.5502 -37.5437,24.0048 -37.5437,24.4593 -37.5437,24.9139 -37.5437,25.3684 -37.5437,25.8284 -37.5437,26.2884 -37.5437,26.7484 -37.5437,27.2084 -37.5437,27.6684 -37.5437,28.1284 -37.5437,28.5884 -37.5437,29.0484 -37.5437,29.5084 -37.5437,29.9684 -37.5437,30.4230 -37.5437,30.8775 -37.5437,31.3321 -37.5437,31.7866 -37.5437,32.2412 -37.5437,32.6957 -37.5437,33.1502 -37.5437,33.6048 -37.5437,34.0593 -37.5437,34.5139 -37.5437,34.9684 -37.5437,35.4230 -37.5437,35.8775 -37.5437,36.3321 -37.5437,36.7866 -37.5437,37.2412 -37.5437,37.6957 -37.5437,38.1502 -37.5437,38.6048 -37.5437,39.0593 -37.5437,39.5139 -37.5437,39.9684 -37.5437,40.4230 -37.5437,40.8775 -37.5437,41.3321 -37.5437,41.7866 -37.5437,42.2412 -37.5437,42.6957 -37.5437,43.1502 -37.5437,43.6048 -37.5437,44.0593 -37.5437,44.5139 -37.5437,44.9684 -37.5437,45.4230 -37.5437,45.8775 -37.5437,46.3321 -37.5437,46.7866 -37.5437,47.2412 -37.5437,47.6957 -37.5437,48.1502 -37.5437,48.6048 -37.5437,49.0593 -37.5437,49.5139 -37.5437,49.9684 -37.5437,50.4230 -37.5437,50.8775 -37.5437,51.3321 -37.5437,51.7866 -37.5437,52.2412 -37.5437,52.6957 -37.5437,53.1502 -37.5437,53.6048 -37.5437,54.0593 -37.5437,54.5139 -37.5437,54.9684 -37.5437,55.4230 -37.5437,55.8775 -37.5437,56.3321 -37.5437,56.7866 -37.5437,57.2412 -37.5437,57.6957 -37.5437,58.1502 -37.5437,58.6048 -37.5437,59.0593 -37.5437,59.5139 -37.5437,59.9684 -37.5437,60.4230 -37.5437,60.8775 -37.5437,61.3321 -37.5437,61.7866 -37.5437,62.2412 -37.5437,62.6957 -37.5437,63.1502 -37.5437,63.6048 -37.5437,64.0593 -37.5437,64.5139 -37.5437,64.9684 -37.5437,65.1684 -37.5436,65.1704 -37.5310,65.3676 -37.3951,65.3454 -37.2990,65.3297 -37.2076,65.3220 -37.0070,65.3243 -36.8323,65.3455 -36.7075,65.3770 -36.6176,65.4163 -36.5672,65.4528 -36.4542,65.5668 -36.3899,65.6071 -36.1889,65.6210 -36.0313,65.6532 -35.8404,65.7160 -35.6263,65.8292 -35.5147,65.8719 -35.4485,65.9066 -35.2660,65.9453 -35.1136,66.0144 -35.0426,66.0299 -34.7964,66.0628 -34.6402,66.1120 -34.4195,66.1693 -34.3046,66.2127 -34.2217,66.2538 -34.0563,66.3794 -33.8833,66.4341 -33.7061,66.5559 -33.5425,66.6157 -33.3739,66.7038 -33.3163,66.7687 -33.3063,66.8474 -33.2872,66.8736 -33.1063,66.9516 -32.9531,67.0379 -32.8817,67.0874 -32.7899,67.1750 -32.7401,67.2379 -32.7097,67.3019 -32.7029,67.3544 -32.7169,67.4359 -32.6674,67.4793 -32.5867,67.5159 -32.2545,67.6346 -32.1945,67.6433 -31.9675,67.6513 -31.8644,67.6685 -31.7722,67.6935 -31.6617,67.7460 -31.4990,67.8664 -31.3856,67.8679 -31.1683,67.8403 -30.9870,67.8319 -30.8381,67.8366 -30.6460,67.8534 -30.4351,67.8509 -30.2998,67.8610 -30.0132,67.8980 -29.7266,67.9350 -29.5942,67.9565 -29.4485,67.9899 -29.2847,67.9942 -29.1578,68.0082 -29.0590,68.0298 -28.7718,68.1114 -28.3810,68.1747 -28.1923,68.2205 -27.9667,68.2383 -27.8043,68.2602 -27.6493,68.2649 -27.4337,68.2856 -27.2313,68.3242 -26.9663,68.3551 -26.6023,68.4363 -26.2526,68.4584 -26.1376,68.4760 -26.0350,68.5004 -25.7732,68.5905 -25.6230,68.6166 -25.4666,68.6656 -25.2463,68.7200 -25.2238,68.7256 -25.0703,68.8083 -24.7721,68.9135 -24.6276,68.9763 -24.5122,69.0377 -24.3318,69.0756 -24.2025,69.1169 -24.0450,69.2034 -23.8684,69.2265 -23.7735,69.2457 -23.6750,69.2757 -23.5820,69.3188 -23.3227,69.3820 -23.1766,69.4389 -22.9907,69.4636 -22.8506,69.4958 -22.7998,69.5154 -22.7468,69.5358 -22.6647,69.5934 -22.5236,69.6355 -22.5139,69.6393 129,-2.0,Arctic Ocean -22.5294,90.0000 -22.5294,89.5019 -22.5293,89.0038 -22.5293,88.5057 -22.5293,88.0076 -22.5292,87.5095 -22.5292,87.0114 -22.5291,86.5133 -22.5291,86.0152 -22.5290,85.5171 -22.5290,85.0190 -22.5290,84.5209 -22.5289,84.0228 -22.5289,83.5247 -22.5288,83.0266 -22.6825,83.0481 -22.7197,83.0534 -22.8526,83.0693 -22.9855,83.0821 -23.1628,83.0952 -23.1590,83.1233 -23.1791,83.1467 -23.2255,83.1699 -23.3056,83.1962 -23.4729,83.2389 -23.5984,83.2652 -23.7476,83.2892 -23.9221,83.3104 -23.9597,83.3422 -24.0452,83.3757 -24.1768,83.4051 -24.3537,83.4325 -24.6072,83.4595 -24.9789,83.4870 -25.2445,83.5046 -25.5101,83.5222 -25.9700,83.5510 -26.4300,83.5797 -26.8900,83.6085 -27.0058,83.6196 -27.1984,83.6480 -27.3910,83.6695 -27.6616,83.6927 -27.8829,83.7064 -28.2073,83.7185 -28.6080,83.7249 -28.7093,83.7279 -29.0770,83.7461 -29.4447,83.7644 -29.8124,83.7827 -30.1791,83.7971 -30.3863,83.8017 -30.5958,83.8035 -30.7888,83.8030 -31.1190,83.7993 -31.3886,83.8069 -31.5651,83.8098 -31.8919,83.8254 -32.2000,83.8336 -32.5168,83.8361 -32.8369,83.8330 -33.1027,83.8263 -33.4482,83.8148 -33.7936,83.8033 -33.9274,83.8003 -34.1810,83.8042 -34.6718,83.8074 -34.8905,83.8070 -35.0920,83.8040 -35.3602,83.7949 -35.6284,83.7809 -35.8449,83.7648 -36.0847,83.7412 -36.4195,83.7410 -36.7543,83.7409 -37.0688,83.7370 -37.3868,83.7275 -37.5383,83.7197 -37.5481,83.7463 -37.5477,83.7468 -37.5481,83.7466 -37.5481,84.1310 -37.5481,84.5155 -37.5481,84.9000 -37.5481,85.3636 -37.5481,85.8273 -37.5481,86.2909 -37.5481,86.7545 -37.5481,87.2182 -37.5481,87.6818 -37.5481,88.1455 -37.5481,88.6091 -37.5481,89.0727 -37.5481,89.5364 -37.5481,90.0000 -37.1072,90.0000 -36.6663,90.0000 -36.2254,90.0000 -35.7845,90.0000 -35.3436,90.0000 -34.9027,90.0000 -34.4618,90.0000 -34.0209,90.0000 -33.5800,90.0000 -33.1391,90.0000 -32.6982,90.0000 -32.2573,90.0000 -31.8164,90.0000 -31.3755,90.0000 -30.9346,90.0000 -30.4937,90.0000 -30.0528,90.0000 -29.6119,90.0000 -29.1710,90.0000 -28.7301,90.0000 -28.2893,90.0000 -27.8484,90.0000 -27.4075,90.0000 -26.9666,90.0000 -26.5257,90.0000 -26.0848,90.0000 -25.6439,90.0000 -25.2030,90.0000 -24.7621,90.0000 -24.3212,90.0000 -23.8803,90.0000 -23.4394,90.0000 -22.9985,90.0000 -22.5294,90.0000 9873,-4.0,America/La_Paz -55.9102,46.6621 -55.8837,46.6755 -55.7296,46.6613 -55.5584,46.6830 -55.3435,46.6770 -55.2381,46.7011 -55.0759,46.7794 -54.8922,46.9274 -54.7259,47.1631 -54.5441,47.1667 -54.4047,47.2016 -54.3899,47.1797 -54.3948,47.1298 -54.4639,46.9477 -54.4775,46.8694 -54.4587,46.7775 -54.4101,46.7097 -54.3561,46.6717 -54.2908,46.6442 -54.0105,46.5708 -53.7972,46.4899 -53.6800,46.4455 -53.5535,46.4280 -53.3623,46.4618 -53.2126,46.4352 -53.0871,46.4415 -52.9529,46.4814 -52.9425,46.4885 -52.8619,46.5436 -52.6676,46.7475 -52.5942,46.9613 -52.5582,47.1451 -52.5404,47.1698 -52.5365,47.1752 -52.5365,46.8327 -52.5365,46.4901 -52.5365,46.4901 -52.5366,46.1038 -52.5366,45.7174 -52.5366,45.3311 -52.5367,44.9448 -52.5367,44.4902 -52.5367,44.0357 -52.5368,43.5811 -52.5368,43.1266 -52.5368,42.6721 -52.5369,42.2175 -52.5369,41.7630 -52.5369,41.3084 -52.5369,40.8539 -52.5370,40.3993 -52.5370,39.9448 -52.5370,39.4902 -52.5371,39.0357 -52.5371,38.5811 -52.5371,38.1266 -52.5372,37.6721 -52.5372,37.2175 -52.5372,36.7630 -52.5373,36.3084 -52.5373,35.8539 -52.5373,35.3993 -52.5374,34.9448 -52.5374,34.4902 -52.5374,34.0357 -52.5375,33.5811 -52.5375,33.1266 -52.5375,32.6721 -52.5376,32.2175 -52.5376,31.7630 -52.5376,31.3084 -52.5377,30.8539 -52.5377,30.3993 -52.5377,29.9448 -52.5377,29.8397 -52.5377,29.3852 -52.5377,28.9306 -52.5377,28.4761 -52.5377,28.0215 -52.5377,27.5670 -52.5377,27.1124 -52.5377,26.6579 -52.5377,26.2033 -52.5377,25.7488 -52.5377,25.2943 -52.5377,24.8397 -52.5377,24.3852 -52.5377,23.9306 -52.5377,23.4761 -52.5377,23.0215 -52.5377,22.5670 -52.5377,22.1124 -52.5377,21.6579 -52.5377,21.2033 -52.5377,20.7488 -52.5377,20.2943 -52.5377,19.8397 -52.5377,19.3797 -52.5377,18.9197 -52.5377,18.4597 -52.5376,17.9997 -52.5376,17.5397 -52.5376,17.0797 -52.5376,16.6197 -52.5376,16.1597 -52.5376,15.6997 -52.5376,15.2397 -52.5376,14.7852 -52.5376,14.3306 -52.5376,13.8761 -52.5376,13.4215 -52.5376,12.9670 -52.5376,12.5124 -52.5376,12.0579 -52.5376,11.6033 -52.5376,11.1488 -52.5376,10.6943 -52.5376,10.2397 -52.5376,9.7720 -52.5376,9.3043 -52.5376,8.8366 -52.5376,8.3688 -52.5376,7.9011 -52.5376,7.4334 -52.5376,6.9657 -52.5376,6.4980 -52.5376,6.0302 -52.5375,5.5625 -52.5375,5.3645 -52.5852,5.4071 -52.7507,5.5926 -52.8069,5.6348 -53.2172,5.7503 -53.3702,5.7670 -53.7531,5.9640 -54.1205,6.0697 -54.4189,6.1298 -54.7173,6.1899 -55.0356,6.2181 -55.2896,6.1679 -55.6051,6.1870 -55.8529,6.1717 -55.9376,6.1476 -56.0407,6.0727 -56.0886,6.0621 -56.3538,6.1334 -56.6581,6.1750 -56.9624,6.2167 -57.0644,6.0629 -57.0693,6.0616 -57.0716,6.0520 -57.0976,5.9422 -57.1022,5.9300 -57.1607,5.7733 -57.1614,5.7544 -57.1655,5.6441 -57.1976,5.5372 -57.2116,5.5203 -57.2385,5.5052 -57.2524,5.4848 -57.2624,5.4641 -57.2656,5.4482 -57.2667,5.4267 -57.2707,5.4034 -57.2810,5.3874 -57.3296,5.3386 -57.3378,5.3279 -57.3412,5.3169 -57.3372,5.3076 -57.3317,5.3076 -57.3283,5.3076 -57.3228,5.3076 -57.3105,5.3126 -57.3038,5.3110 -57.2993,5.3112 -57.2983,5.3110 -57.2972,5.3111 -57.2943,5.3085 -57.2928,5.2387 -57.2910,5.2308 -57.2859,5.2253 -57.2772,5.2229 -57.2734,5.2234 -57.2717,5.2229 -57.2630,5.2240 -57.2564,5.2283 -57.2538,5.2349 -57.2640,5.2470 -57.2692,5.2567 -57.2674,5.2663 -57.2590,5.2712 -57.2523,5.2715 -57.2431,5.2687 -57.2388,5.2626 -57.2380,5.2606 -57.2312,5.2436 -57.1979,5.2032 -57.1904,5.1831 -57.1953,5.1692 -57.2075,5.1576 -57.2233,5.1485 -57.2339,5.1442 -57.2387,5.1620 -57.2473,5.1724 -57.2599,5.1763 -57.2777,5.1769 -57.2781,5.1767 -57.2832,5.1769 -57.2945,5.1710 -57.3010,5.1572 -57.3077,5.1285 -57.3226,5.0948 -57.3257,5.0834 -57.3269,5.0702 -57.3224,5.0590 -57.2859,5.0261 -57.2952,5.0208 -57.2987,5.0211 -57.3065,5.0244 -57.3152,5.0261 -57.3184,5.0257 -57.3207,5.0261 -57.3349,5.0241 -57.3436,5.0208 -57.3510,5.0166 -57.3617,5.0124 -57.3869,5.0057 -57.4660,4.9976 -57.4828,4.9925 -57.4911,4.9918 -57.4969,4.9947 -57.5122,5.0092 -57.5176,5.0124 -57.5226,5.0122 -57.5231,5.0124 -57.5488,5.0111 -57.5717,5.0071 -57.6126,4.9924 -57.6494,5.0084 -57.6542,5.0081 -57.6549,5.0084 -57.6924,5.0063 -57.7260,4.9898 -57.7528,4.9640 -57.7678,4.9355 -57.7794,4.9264 -57.8007,4.9235 -57.8110,4.9255 -57.8206,4.9303 -57.8302,4.9331 -57.8331,4.9323 -57.8357,4.9331 -57.8483,4.9299 -57.8558,4.9228 -57.8762,4.8889 -57.8897,4.8723 -57.9079,4.8527 -57.9240,4.8298 -57.9309,4.7961 -57.9233,4.7824 -57.9066,4.7739 -57.8900,4.7629 -57.8767,4.7217 -57.8498,4.6875 -57.8415,4.6698 -57.8429,4.6509 -57.8509,4.6335 -57.8688,4.6077 -57.8846,4.5568 -57.9016,4.5285 -57.9200,4.4841 -57.9273,4.4509 -57.9368,4.4378 -57.9483,4.4251 -57.9581,4.4097 -57.9621,4.3914 -57.9590,4.3757 -57.9535,4.3605 -57.9508,4.3439 -57.9529,4.3188 -57.9593,4.2990 -57.9704,4.2820 -58.0575,4.1931 -58.0714,4.1718 -58.0732,4.1511 -58.0606,4.1081 -58.0475,4.0230 -58.0376,3.9877 -58.0134,3.9573 -57.9476,3.9054 -57.9313,3.8864 -57.8806,3.8122 -57.8593,3.7667 -57.8551,3.7475 -57.8524,3.7021 -57.8465,3.6810 -57.8353,3.6624 -57.8186,3.6518 -57.7697,3.6316 -57.7316,3.6072 -57.7280,3.6000 -57.7230,3.5824 -57.7150,3.5677 -57.7141,3.5641 -57.7128,3.5607 -57.7083,3.5557 -57.7035,3.5536 -57.6927,3.5522 -57.6906,3.5492 -57.6867,3.5473 -57.6659,3.5352 -57.6495,3.5167 -57.6510,3.4990 -57.6662,3.4695 -57.6660,3.4630 -57.6638,3.4506 -57.6644,3.4439 -57.6695,3.4258 -57.6701,3.4175 -57.6680,3.4071 -57.6637,3.3952 -57.6603,3.3901 -57.6554,3.3859 -57.6470,3.3824 -57.6187,3.3766 -57.6019,3.3672 -57.5706,3.3498 -57.5597,3.3467 -57.5562,3.3473 -57.5542,3.3467 -57.5450,3.3481 -57.5358,3.3668 -57.5279,3.3652 -57.5151,3.3577 -57.5094,3.3533 -57.5013,3.3530 -57.4935,3.3515 -57.4875,3.3486 -57.4852,3.3434 -57.4817,3.3389 -57.4779,3.3411 -57.4763,3.3389 -57.4688,3.3432 -57.4617,3.3500 -57.4592,3.3533 -57.4309,3.3606 -57.4240,3.3694 -57.4249,3.3851 -57.3990,3.3738 -57.3722,3.3656 -57.3687,3.3662 -57.3668,3.3656 -57.3400,3.3702 -57.3124,3.3918 -57.2890,3.3438 -57.2859,3.3298 -57.2883,3.2950 -57.2897,3.2888 -57.2980,3.2763 -57.2958,3.2680 -57.2895,3.2598 -57.2859,3.2478 -57.2872,3.2359 -57.2926,3.2154 -57.2934,3.2031 -57.2912,3.1921 -57.2804,3.1690 -57.2832,3.1569 -57.2897,3.1490 -57.2915,3.1424 -57.2804,3.1343 -57.2704,3.1326 -57.2685,3.1332 -57.2649,3.1326 -57.2550,3.1358 -57.2462,3.1416 -57.2430,3.1446 -57.2429,3.1440 -57.2422,3.1435 -57.2388,3.1417 -57.2541,3.1124 -57.2450,3.0941 -57.2277,3.0783 -57.2183,3.0560 -57.2173,3.0483 -57.2125,3.0357 -57.2115,3.0281 -57.2145,3.0243 -57.2232,3.0248 -57.2235,3.0245 -57.2287,3.0248 -57.2319,3.0213 -57.2302,3.0092 -57.2273,3.0004 -57.2267,2.9926 -57.2319,2.9834 -57.2401,2.9704 -57.2273,2.9630 -57.1941,2.9595 -57.1893,2.9447 -57.2002,2.9306 -57.2158,2.9182 -57.2251,2.9083 -57.2118,2.8566 -57.2078,2.8462 -57.1997,2.8420 -57.1965,2.8326 -57.1921,2.8232 -57.1801,2.8190 -57.1767,2.8197 -57.1746,2.8190 -57.1653,2.8211 -57.1452,2.8304 -57.1380,2.8318 -57.1319,2.8260 -57.1492,2.7900 -57.1425,2.7711 -57.1392,2.7734 -57.1379,2.7736 -57.1371,2.7711 -57.1337,2.7734 -57.1037,2.7780 -57.0954,2.7739 -57.0976,2.7630 -57.1045,2.7504 -57.1084,2.7405 -57.1032,2.7274 -57.0774,2.7001 -57.0675,2.6817 -57.0615,2.6424 -57.0535,2.6365 -57.0504,2.6382 -57.0480,2.6365 -57.0315,2.6458 -57.0260,2.6354 -57.0286,2.6237 -57.0334,2.6106 -57.0327,2.5936 -57.0279,2.5845 -57.0026,2.5551 -57.0008,2.5479 -57.0061,2.5142 -56.9996,2.5049 -56.9952,2.5064 -56.9941,2.5049 -56.9800,2.5097 -56.9629,2.5223 -56.9568,2.5155 -56.9581,2.5046 -56.9630,2.4935 -56.9651,2.4838 -56.9619,2.4700 -56.9571,2.4612 -56.9406,2.4459 -56.9357,2.4362 -56.9375,2.4258 -56.9439,2.4114 -56.9363,2.3933 -56.9005,2.3621 -56.8894,2.3398 -56.8899,2.3037 -56.8856,2.2948 -56.8764,2.2901 -56.8533,2.2859 -56.8444,2.2811 -56.8317,2.2617 -56.8218,2.2176 -56.8142,2.1958 -56.8070,2.1660 -56.7107,2.0296 -56.6833,2.0184 -56.5853,2.0168 -56.5476,1.9972 -56.5420,1.9886 -56.5349,1.9818 -56.5265,1.9767 -56.5055,1.9700 -56.4967,1.9629 -56.4906,1.9532 -56.4902,1.9520 -56.4875,1.9425 -56.4873,1.9416 -56.4889,1.9414 -56.5346,1.9242 -56.5650,1.9069 -56.5762,1.9060 -56.5907,1.9132 -56.6050,1.9248 -56.6208,1.9348 -56.6305,1.9359 -56.6402,1.9370 -56.6414,1.9365 -56.6457,1.9370 -56.6625,1.9302 -56.6757,1.9200 -56.6897,1.9125 -56.7047,1.9130 -56.7247,1.9163 -56.7270,1.9158 -56.7302,1.9163 -56.7437,1.9132 -56.7867,1.8793 -56.7987,1.8737 -56.8070,1.8738 -56.8782,1.8859 -56.8913,1.8904 -56.9074,1.9035 -56.9141,1.9130 -56.9225,1.9183 -56.9441,1.9184 -56.9445,1.9184 -56.9496,1.9184 -56.9824,1.9149 -56.9938,1.9150 -57.0118,1.9187 -57.0381,1.9326 -57.0566,1.9483 -57.0684,1.9689 -57.0747,1.9973 -57.1051,2.0217 -57.1088,2.0202 -57.1106,2.0217 -57.1590,2.0024 -57.2433,1.9495 -57.2592,1.9524 -57.2954,1.9750 -57.3201,1.9773 -57.3212,1.9769 -57.3255,1.9773 -57.3475,1.9691 -57.3622,1.9555 -57.3748,1.9398 -57.3827,1.9326 -57.3906,1.9255 -57.4116,1.9145 -57.4186,1.9119 -57.4256,1.9093 -57.4356,1.9005 -57.4604,1.8340 -57.4709,1.8159 -57.5373,1.7318 -57.5672,1.7091 -57.6140,1.6973 -57.6400,1.6965 -57.7237,1.7118 -57.7594,1.7137 -57.7603,1.7135 -57.7649,1.7137 -57.7969,1.7051 -57.8776,1.6695 -57.9115,1.6488 -57.9199,1.6457 -57.9276,1.6429 -57.9396,1.6435 -57.9697,1.6557 -57.9856,1.6579 -57.9862,1.6572 -57.9911,1.6579 -57.9941,1.6543 -57.9971,1.6506 -57.9971,1.6506 -57.9958,1.6348 -57.9900,1.6043 -57.9931,1.5870 -57.9996,1.5687 -58.0173,1.5364 -58.0333,1.5171 -58.0744,1.5094 -58.1170,1.5107 -58.1492,1.5193 -58.1562,1.5276 -58.1635,1.5494 -58.1712,1.5590 -58.1879,1.5678 -58.1921,1.5671 -58.1934,1.5678 -58.1986,1.5669 -58.2039,1.5661 -58.2130,1.5602 -58.2252,1.5564 -58.2392,1.5569 -58.2612,1.5605 -58.2826,1.5668 -58.2998,1.5754 -58.3069,1.5830 -58.3167,1.5991 -58.3189,1.6003 -58.3210,1.6015 -58.3235,1.5998 -58.3244,1.6003 -58.3265,1.6015 -58.3380,1.5936 -58.3449,1.5804 -58.3503,1.5657 -58.3575,1.5535 -58.3619,1.5506 -58.3664,1.5476 -58.3892,1.5374 -58.3963,1.5310 -58.3978,1.5211 -58.3920,1.5000 -58.3924,1.4904 -58.4196,1.4722 -58.5050,1.4576 -58.5075,1.4544 -58.5197,1.4390 -58.5131,1.4184 -58.4941,1.3791 -58.4878,1.3583 -58.4872,1.3341 -58.4937,1.3167 -58.5250,1.2674 -58.5282,1.2673 -58.5357,1.2718 -58.5437,1.2746 -58.5433,1.2765 -58.5433,1.2765 -58.5453,1.2786 -58.5473,1.2806 -58.5529,1.2848 -58.5576,1.2871 -58.5606,1.2859 -58.5630,1.2871 -58.5675,1.2853 -58.5802,1.2756 -58.5856,1.2734 -58.6832,1.2827 -58.6860,1.2824 -58.6887,1.2827 -58.7038,1.2813 -58.7095,1.2769 -58.7153,1.2725 -58.7430,1.2325 -58.7589,1.2151 -58.7780,1.2015 -58.8020,1.1920 -58.8221,1.1874 -58.8364,1.1863 -58.8436,1.1875 -58.8526,1.1890 -58.8728,1.1974 -58.8985,1.2180 -58.9070,1.2387 -58.9123,1.2605 -58.9281,1.2844 -58.9466,1.2992 -58.9671,1.3104 -58.9720,1.3124 -58.9720,1.3123 -58.9718,1.3100 -58.9726,1.3104 -58.9775,1.3124 -58.9775,1.3123 -58.9437,0.9500 -58.9098,0.5877 -58.8760,0.2254 -58.8548,-0.0828 -58.8573,-0.1064 -58.8616,-0.1180 -58.8689,-0.1737 -58.8695,-0.2873 -58.8664,-0.3218 -58.8592,-0.3520 -58.8545,-0.3623 -58.8486,-0.3717 -58.8401,-0.3800 -58.8306,-0.3875 -58.8203,-0.3940 -58.7688,-0.4150 -58.7566,-0.4218 -58.7460,-0.4306 -58.7356,-0.4467 -58.7350,-0.4600 -58.7388,-0.4723 -58.7448,-0.4871 -58.7488,-0.5043 -58.7484,-0.5474 -58.7559,-0.5942 -58.7553,-0.6218 -58.7509,-0.6386 -58.7439,-0.6525 -58.7083,-0.6944 -58.6331,-0.7651 -58.6215,-0.7710 -58.6102,-0.7726 -58.6083,-0.7721 -58.6047,-0.7726 -58.5819,-0.7664 -58.5739,-0.7650 -58.5646,-0.7672 -58.5528,-0.7744 -58.5060,-0.8179 -58.4999,-0.8218 -58.4794,-0.8285 -58.4669,-0.8347 -58.4538,-0.8476 -58.4465,-0.8619 -58.4358,-0.8987 -58.4322,-0.9192 -58.4244,-0.9388 -58.4202,-0.9533 -58.4182,-0.9657 -58.4179,-0.9927 -58.4156,-1.0127 -58.4109,-1.0263 -58.4036,-1.0387 -58.3950,-1.0490 -58.3229,-1.1176 -58.3130,-1.1243 -58.3032,-1.1289 -58.2930,-1.1302 -58.2891,-1.1300 -58.2875,-1.1302 -58.2695,-1.1293 -58.2600,-1.1303 -58.2495,-1.1355 -58.2398,-1.1461 -58.2036,-1.2038 -58.1896,-1.2200 -58.1776,-1.2302 -58.1661,-1.2362 -58.1560,-1.2376 -58.1520,-1.2374 -58.1505,-1.2376 -58.1360,-1.2369 -58.1272,-1.2436 -58.1194,-1.2558 -58.1095,-1.2766 -58.0987,-1.2891 -58.0872,-1.2984 -58.0109,-1.3388 -57.9859,-1.3482 -57.9734,-1.3574 -57.9585,-1.3724 -57.9356,-1.4001 -57.9205,-1.4144 -57.9070,-1.4233 -57.8328,-1.4434 -57.8176,-1.4535 -57.7998,-1.4692 -57.7711,-1.5041 -57.7540,-1.5209 -57.7404,-1.5305 -57.7207,-1.5332 -57.7111,-1.5355 -57.7018,-1.5427 -57.6937,-1.5546 -57.6833,-1.5737 -57.6726,-1.5837 -57.6614,-1.5900 -57.5689,-1.6226 -57.5474,-1.6341 -57.5170,-1.6541 -57.4911,-1.6667 -57.4651,-1.6842 -57.4533,-1.6906 -57.4110,-1.7088 -57.4009,-1.7118 -57.3806,-1.7139 -57.3714,-1.7173 -57.3534,-1.7265 -57.3430,-1.7292 -57.3313,-1.7296 -57.3303,-1.7294 -57.3258,-1.7296 -57.3142,-1.7282 -57.2925,-1.7223 -57.2729,-1.7148 -57.2670,-1.7142 -57.2602,-1.7162 -57.2559,-1.7237 -57.2569,-1.7456 -57.2551,-1.7591 -57.2478,-1.7658 -57.2375,-1.7682 -57.2339,-1.7678 -57.2320,-1.7682 -57.1991,-1.7641 -57.1877,-1.7654 -57.1725,-1.7702 -57.1408,-1.7921 -57.1291,-1.7979 -57.1052,-1.8044 -57.0933,-1.8118 -57.0884,-1.8210 -57.0772,-1.8544 -57.0569,-1.8855 -57.0107,-1.9349 -56.9975,-1.9454 -56.9805,-1.9536 -56.9403,-1.9676 -56.9223,-1.9769 -56.8584,-2.0229 -56.8497,-2.0280 -56.8401,-2.0319 -56.8296,-2.0349 -56.8182,-2.0365 -56.8131,-2.0365 -56.8128,-2.0365 -56.8005,-2.0364 -56.7773,-2.0323 -56.7706,-2.0318 -56.7589,-2.0361 -56.7521,-2.0439 -56.7481,-2.0540 -56.7485,-2.0652 -56.7504,-2.0758 -56.7654,-2.1282 -56.7670,-2.1402 -56.7667,-2.1527 -56.7620,-2.1673 -56.7545,-2.1755 -56.7450,-2.1811 -56.7351,-2.1847 -56.7260,-2.1891 -56.7092,-2.1998 -56.7002,-2.2043 -56.6902,-2.2079 -56.6686,-2.2130 -56.6495,-2.2204 -56.6407,-2.2224 -56.6383,-2.2217 -56.6352,-2.2224 -56.6278,-2.2202 -56.6224,-2.2174 -56.5778,-2.1853 -56.5731,-2.1831 -56.5216,-2.1648 -56.5105,-2.1621 -56.5062,-2.1616 -56.5041,-2.1617 -56.4968,-2.1642 -56.4926,-2.1680 -56.4897,-2.1727 -56.4864,-2.1834 -56.4852,-2.1892 -56.4848,-2.1953 -56.4852,-2.2014 -56.4916,-2.2289 -56.4924,-2.2349 -56.4926,-2.2411 -56.4906,-2.2486 -56.4871,-2.2531 -56.4829,-2.2564 -56.4732,-2.2601 -56.4504,-2.2642 -56.4319,-2.2656 -56.4098,-2.2702 -56.4057,-2.2719 -56.4024,-2.2722 -56.4011,-2.2715 -56.4002,-2.2719 -56.3969,-2.2722 -56.3935,-2.2705 -56.3869,-2.2640 -56.3790,-2.2582 -56.3697,-2.2527 -56.3176,-2.2375 -56.3179,-2.2392 -56.3204,-2.2425 -56.3278,-2.2493 -56.3487,-2.2630 -56.3848,-2.2822 -56.3927,-2.2882 -56.3993,-2.2953 -56.4020,-2.2994 -56.4045,-2.3039 -56.4059,-2.3093 -56.4038,-2.3171 -56.3982,-2.3271 -56.3857,-2.3392 -56.3868,-2.3607 -56.3951,-2.3906 -56.5786,-2.7883 -56.7621,-3.1861 -56.9544,-3.6000 -57.1466,-4.0138 -57.3388,-4.4276 -57.5310,-4.8415 -57.7232,-5.2553 -57.9155,-5.6692 -58.1077,-6.0830 -58.2999,-6.4969 -58.3386,-6.5596 -58.3482,-6.5713 -58.4255,-6.6340 -58.4393,-6.6483 -58.4568,-6.6727 -58.4719,-6.7016 -58.4769,-6.7228 -58.4779,-6.7432 -58.4763,-6.7633 -58.4721,-6.7833 -58.4375,-6.8883 -58.4265,-6.9133 -58.4156,-6.9312 -58.3973,-6.9559 -58.3815,-6.9696 -58.3445,-6.9938 -58.3237,-7.0116 -58.2686,-7.0701 -58.2387,-7.0937 -58.2224,-7.1100 -58.1965,-7.1528 -58.1908,-7.1666 -58.1795,-7.2205 -58.1797,-7.2408 -58.1831,-7.2606 -58.1831,-7.2716 -58.1813,-7.2836 -58.1760,-7.2997 -58.1602,-7.3223 -58.1410,-7.3391 -58.0644,-7.4110 -57.9853,-7.5302 -57.9648,-7.5742 -57.9525,-7.6193 -57.9462,-7.6313 -57.9365,-7.6448 -57.9169,-7.6639 -57.9065,-7.6787 -57.8992,-7.6926 -57.8857,-7.7696 -57.8680,-7.8180 -57.8442,-7.8665 -57.8408,-7.8785 -57.8370,-7.9119 -57.8322,-7.9320 -57.8240,-7.9538 -57.8073,-7.9838 -57.8018,-8.0156 -57.7988,-8.0254 -57.7937,-8.0359 -57.7867,-8.0464 -57.7400,-8.0943 -57.7319,-8.1056 -57.7264,-8.1163 -57.7201,-8.1357 -57.7156,-8.1455 -57.7048,-8.1585 -57.6596,-8.1991 -57.6490,-8.2155 -57.6458,-8.2294 -57.6590,-8.2600 -57.6610,-8.2893 -57.6640,-8.2989 -57.6721,-8.3185 -57.6746,-8.3281 -57.6756,-8.3480 -57.6735,-8.3930 -57.6749,-8.4046 -57.6780,-8.4156 -57.6827,-8.4258 -57.6861,-8.4358 -57.6859,-8.4458 -57.6813,-8.4557 -57.6619,-8.4849 -57.6581,-8.4931 -57.6566,-8.4985 -57.6568,-8.5090 -57.6582,-8.5174 -57.6567,-8.5272 -57.6476,-8.5589 -57.6476,-8.5689 -57.6515,-8.5911 -57.6497,-8.6027 -57.6447,-8.6130 -57.6370,-8.6228 -57.6280,-8.6322 -57.6203,-8.6425 -57.6140,-8.6531 -57.6063,-8.6743 -57.6013,-8.6978 -57.6003,-8.7090 -57.6015,-8.7327 -57.5966,-8.7449 -57.5850,-8.7563 -57.5174,-8.7758 -57.5040,-8.7813 -57.4874,-8.7927 -57.4518,-8.8257 -57.4316,-8.8412 -57.3899,-8.8666 -57.3807,-8.8737 -57.3741,-8.8831 -57.3688,-8.9033 -57.3640,-8.9133 -57.3143,-8.9508 -57.3032,-8.9575 -57.2308,-8.9869 -57.2050,-9.0009 -57.1916,-9.0127 -57.1820,-9.0191 -57.1086,-9.0513 -57.0985,-9.0576 -57.0918,-9.0665 -57.0868,-9.0776 -57.0787,-9.1227 -57.0801,-9.1877 -57.0782,-9.1977 -57.0748,-9.2077 -57.0653,-9.2190 -57.0510,-9.2304 -57.0203,-9.2422 -57.0062,-9.2456 -57.0025,-9.2452 -57.0007,-9.2456 -56.9867,-9.2439 -56.9772,-9.2409 -56.9685,-9.2393 -56.9542,-9.2405 -56.9308,-9.2445 -56.8603,-9.2637 -56.8426,-9.2731 -56.8334,-9.2826 -56.8256,-9.2925 -56.8195,-9.3030 -56.8152,-9.3135 -56.8131,-9.3457 -56.8031,-9.3752 -56.7977,-9.3849 -56.7884,-9.3932 -56.7756,-9.3979 -56.7709,-9.3976 -56.7701,-9.3979 -56.7490,-9.3966 -56.7344,-9.3923 -56.7105,-9.3807 -56.7001,-9.3768 -56.6926,-9.3759 -56.6837,-9.3773 -56.6723,-9.3831 -56.6606,-9.3909 -56.6495,-9.3965 -56.6004,-9.4084 -56.5863,-9.4152 -56.5550,-9.4416 -56.4950,-9.4694 -56.4730,-9.4754 -56.4721,-9.4741 -56.4675,-9.4754 -56.4619,-9.4672 -56.0073,-9.4999 -55.5528,-9.5325 -55.0982,-9.5651 -54.6238,-9.5931 -54.1495,-9.6212 -53.6751,-9.6492 -53.2007,-9.6772 -52.7263,-9.7053 -52.2520,-9.7333 -51.7776,-9.7613 -51.3032,-9.7894 -51.1664,-9.7964 -51.1665,-9.7974 -50.7141,-9.8208 -50.2618,-9.8442 -50.2839,-9.9192 -50.3026,-9.9845 -50.3044,-10.0055 -50.3094,-10.0208 -50.3211,-10.0373 -50.3758,-10.0946 -50.3833,-10.1049 -50.3912,-10.1269 -50.3969,-10.1359 -50.4031,-10.1533 -50.4012,-10.1770 -50.3938,-10.2141 -50.3987,-10.2541 -50.4119,-10.2991 -50.4315,-10.3410 -50.4552,-10.3717 -50.4871,-10.4008 -50.4990,-10.4177 -50.5037,-10.4372 -50.5023,-10.4710 -50.5037,-10.4816 -50.5088,-10.4930 -50.5244,-10.5120 -50.5304,-10.5226 -50.5249,-10.5453 -50.5246,-10.5583 -50.5338,-10.5642 -50.5380,-10.5689 -50.5540,-10.6033 -50.5615,-10.6065 -50.5705,-10.6082 -50.5782,-10.6120 -50.5831,-10.6185 -50.5877,-10.6316 -50.5918,-10.6399 -50.6043,-10.6566 -50.6055,-10.6624 -50.6055,-10.6771 -50.5939,-10.7027 -50.5918,-10.7116 -50.5925,-10.7530 -50.5965,-10.7720 -50.6055,-10.7895 -50.6060,-10.7921 -50.6127,-10.7992 -50.6166,-10.8023 -50.6237,-10.8092 -50.6321,-10.8217 -50.6336,-10.8274 -50.6335,-10.8344 -50.6284,-10.8508 -50.6197,-10.8706 -50.6188,-10.8769 -50.6189,-10.8840 -50.6214,-10.8943 -50.6240,-10.9009 -50.6269,-10.9065 -50.6391,-10.9222 -50.6408,-10.9283 -50.6406,-10.9361 -50.6327,-10.9625 -50.6235,-11.0135 -50.6201,-11.0237 -50.6184,-11.0312 -50.6172,-11.0612 -50.6200,-11.0756 -50.6230,-11.0840 -50.6269,-11.0882 -50.6311,-11.0911 -50.6354,-11.0934 -50.6436,-11.0990 -50.6471,-11.1024 -50.6501,-11.1064 -50.6657,-11.1330 -50.6699,-11.1429 -50.6720,-11.2264 -50.6763,-11.2593 -50.6789,-11.2638 -50.6861,-11.2848 -50.6911,-11.2937 -50.6942,-11.2976 -50.6998,-11.3060 -50.7313,-11.4026 -50.7348,-11.4262 -50.7378,-11.4381 -50.7437,-11.4536 -50.7466,-11.4713 -50.7481,-11.5016 -50.7456,-11.5132 -50.7364,-11.5306 -50.7259,-11.5426 -50.7234,-11.5470 -50.7177,-11.5552 -50.7139,-11.5584 -50.7098,-11.5613 -50.6682,-11.5833 -50.6645,-11.5864 -50.6610,-11.5900 -50.6580,-11.5939 -50.6560,-11.5999 -50.6554,-11.6082 -50.6599,-11.6528 -50.6614,-11.6584 -50.6634,-11.6635 -50.6662,-11.6676 -50.6698,-11.6710 -50.6777,-11.6769 -50.6878,-11.6878 -50.6957,-11.6938 -50.7029,-11.7004 -50.7127,-11.7116 -50.7154,-11.7162 -50.7169,-11.7227 -50.7180,-11.7387 -50.7179,-11.7455 -50.7170,-11.7514 -50.7120,-11.7585 -50.7042,-11.7674 -50.7016,-11.7732 -50.6990,-11.7817 -50.6976,-11.7972 -50.6905,-11.8168 -50.6879,-11.8224 -50.6861,-11.8289 -50.6847,-11.8530 -50.6829,-11.8627 -50.6771,-11.8710 -50.6710,-11.8734 -50.6599,-11.8764 -50.6553,-11.8788 -50.6519,-11.8833 -50.6498,-11.8898 -50.6506,-11.9010 -50.6525,-11.9098 -50.6563,-11.9148 -50.6608,-11.9177 -50.6653,-11.9200 -50.6685,-11.9238 -50.6704,-11.9286 -50.6704,-11.9349 -50.6686,-11.9415 -50.6643,-11.9514 -50.6625,-11.9599 -50.6632,-11.9720 -50.6656,-11.9789 -50.6691,-11.9837 -50.6814,-11.9921 -50.6846,-11.9951 -50.6874,-11.9995 -50.6876,-12.0006 -50.6868,-12.0204 -50.6887,-12.0418 -50.6780,-12.1920 -50.6746,-12.2021 -50.6648,-12.2183 -50.6476,-12.2323 -50.6449,-12.2364 -50.6308,-12.2725 -50.6284,-12.2829 -50.6294,-12.2926 -50.6343,-12.3029 -50.6357,-12.3080 -50.6177,-12.4311 -50.6179,-12.4376 -50.6196,-12.4428 -50.6223,-12.4468 -50.6263,-12.4492 -50.6316,-12.4501 -50.6365,-12.4517 -50.6396,-12.4572 -50.6401,-12.4664 -50.6381,-12.4847 -50.6380,-12.4990 -50.6427,-12.5140 -50.6440,-12.5259 -50.6457,-12.5311 -50.6546,-12.5505 -50.6562,-12.5559 -50.6572,-12.5619 -50.6570,-12.5698 -50.6539,-12.5914 -50.6544,-12.5991 -50.6564,-12.6043 -50.6576,-12.6052 -50.6604,-12.6023 -50.6644,-12.6001 -50.6691,-12.6003 -50.6693,-12.6004 -50.6699,-12.6001 -50.6746,-12.6003 -50.6786,-12.6028 -50.6810,-12.6074 -50.6806,-12.6151 -50.6773,-12.6231 -50.6711,-12.6312 -50.6559,-12.6421 -50.6396,-12.6509 -50.6353,-12.6542 -50.6324,-12.6593 -50.6303,-12.6820 -50.6290,-12.6874 -50.6201,-12.7044 -50.6183,-12.7094 -50.6158,-12.7204 -50.6137,-12.7382 -50.6138,-12.7508 -50.6154,-12.7630 -50.6152,-12.7695 -50.6131,-12.7762 -50.6083,-12.7858 -50.6060,-12.7998 -50.6041,-12.8045 -50.6008,-12.8075 -50.5961,-12.8067 -50.5953,-12.8075 -50.5885,-12.8064 -50.5779,-12.8030 -50.5757,-12.8029 -50.5724,-12.8034 -50.5694,-12.8052 -50.5715,-12.8089 -50.5744,-12.8122 -50.5755,-12.8170 -50.5745,-12.8215 -50.5718,-12.8256 -50.5670,-12.8297 -50.5604,-12.8337 -50.5467,-12.8388 -50.5345,-12.8408 -50.5296,-12.8407 -50.5291,-12.8408 -50.5031,-12.8403 -50.4895,-12.8448 -50.4860,-12.8536 -50.4839,-12.8641 -50.4838,-12.8791 -50.5010,-12.9509 -50.5040,-12.9585 -50.5104,-12.9690 -50.5189,-12.9801 -50.5228,-12.9833 -50.5576,-13.0039 -50.5649,-13.0102 -50.5679,-13.0144 -50.5693,-13.0190 -50.5673,-13.0248 -50.5592,-13.0316 -50.5562,-13.0355 -50.5543,-13.0399 -50.5541,-13.0447 -50.5559,-13.0500 -50.5610,-13.0547 -50.5660,-13.0579 -50.5813,-13.0638 -50.5856,-13.0664 -50.5894,-13.0696 -50.5922,-13.0735 -50.5934,-13.0786 -50.5915,-13.0856 -50.5837,-13.0996 -50.5806,-13.1098 -50.5795,-13.1226 -50.5846,-13.1629 -50.5845,-13.1758 -50.5861,-13.1940 -50.5851,-13.1993 -50.5759,-13.2174 -50.5748,-13.2227 -50.5745,-13.2284 -50.5755,-13.2340 -50.5798,-13.2466 -50.6050,-13.3030 -50.6201,-13.3299 -50.6353,-13.3497 -50.6489,-13.3640 -50.6606,-13.3803 -50.6633,-13.3862 -50.6657,-13.3937 -50.6686,-13.4236 -50.6709,-13.4302 -50.6745,-13.4372 -50.6817,-13.4469 -50.6954,-13.4596 -50.7032,-13.4729 -50.7062,-13.4770 -50.7094,-13.4806 -50.7208,-13.4964 -50.7241,-13.4998 -50.7249,-13.5004 -50.7385,-13.5070 -50.7424,-13.5100 -50.7458,-13.5134 -50.7607,-13.5337 -50.7636,-13.5411 -50.7744,-13.6031 -50.7946,-13.6629 -50.7980,-13.6702 -50.8013,-13.6759 -50.8045,-13.6796 -50.8116,-13.6863 -50.8273,-13.6985 -50.8317,-13.7011 -50.8371,-13.7024 -50.8489,-13.7042 -50.8642,-13.7097 -50.8688,-13.7119 -50.8719,-13.7161 -50.8734,-13.7217 -50.8715,-13.7310 -50.8650,-13.7480 -50.8636,-13.7534 -50.8627,-13.7598 -50.8633,-13.8149 -50.8624,-13.8231 -50.8588,-13.8395 -50.8516,-13.8596 -50.8504,-13.8681 -50.8501,-13.8800 -50.8559,-13.9206 -50.8690,-13.9551 -50.8703,-13.9630 -50.8701,-13.9769 -50.8689,-13.9850 -50.8645,-13.9999 -50.8640,-14.0038 -50.8652,-14.0281 -50.8645,-14.0405 -50.8629,-14.0458 -50.8607,-14.0504 -50.8520,-14.0622 -50.8503,-14.0678 -50.8502,-14.0749 -50.8512,-14.0841 -50.8530,-14.0906 -50.8554,-14.0959 -50.8583,-14.0999 -50.8617,-14.1035 -50.8736,-14.1105 -50.9022,-14.1184 -50.9130,-14.1160 -50.9185,-14.1154 -50.9194,-14.1159 -50.9239,-14.1154 -50.9281,-14.1175 -50.9304,-14.1216 -50.9298,-14.1285 -50.9285,-14.1333 -50.9247,-14.1422 -50.9233,-14.1471 -50.9250,-14.1553 -50.9295,-14.1669 -50.9651,-14.2358 -50.9787,-14.2865 -50.9792,-14.2929 -50.9790,-14.2996 -50.9769,-14.3143 -50.9787,-14.3239 -50.9824,-14.3356 -50.9915,-14.3562 -50.9977,-14.3769 -50.9986,-14.3831 -51.0032,-14.3995 -51.0035,-14.4050 -51.0022,-14.4099 -50.9980,-14.4191 -50.9929,-14.4343 -50.9905,-14.4453 -50.9887,-14.4502 -50.9820,-14.4662 -50.9785,-14.4790 -50.9763,-14.4868 -50.9743,-14.5024 -50.9754,-14.5185 -50.9808,-14.5322 -50.9880,-14.5439 -50.9925,-14.5549 -50.9897,-14.5663 -50.9932,-14.5708 -50.9948,-14.5736 -50.9998,-14.5886 -51.0084,-14.6076 -51.0101,-14.6172 -51.0155,-14.6284 -51.0390,-14.6471 -51.0443,-14.6582 -51.0477,-14.6836 -51.0649,-14.7218 -51.0716,-14.7439 -51.0704,-14.7862 -51.0741,-14.8045 -51.0890,-14.8122 -51.0982,-14.8224 -51.1057,-14.8879 -51.1127,-14.8939 -51.1344,-14.9047 -51.1436,-14.9121 -51.1471,-14.9206 -51.1537,-14.9449 -51.1576,-14.9499 -51.1573,-14.9538 -51.1652,-14.9626 -51.1815,-14.9767 -51.2156,-14.9909 -51.2447,-15.0083 -51.2607,-15.0154 -51.2766,-15.0176 -51.2975,-15.0104 -51.3039,-14.9921 -51.3071,-14.9713 -51.3200,-14.9561 -51.3232,-14.9588 -51.3254,-14.9561 -51.3562,-14.9814 -51.3730,-14.9884 -51.3975,-14.9909 -51.4175,-14.9954 -51.4328,-15.0067 -51.4589,-15.0353 -51.4795,-15.0483 -51.5192,-15.0627 -51.5377,-15.0803 -51.5812,-15.1401 -51.5961,-15.1486 -51.6131,-15.1536 -51.6304,-15.1655 -51.6451,-15.1793 -51.6544,-15.1901 -51.6628,-15.2097 -51.6604,-15.2257 -51.6549,-15.2427 -51.6544,-15.2646 -51.6595,-15.2718 -51.6772,-15.2819 -51.6811,-15.2885 -51.6823,-15.2968 -51.6874,-15.3113 -51.6886,-15.3227 -51.6871,-15.3337 -51.6815,-15.3549 -51.6811,-15.3676 -51.6847,-15.3789 -51.6981,-15.3985 -51.7028,-15.4086 -51.7106,-15.4557 -51.7170,-15.4742 -51.7329,-15.4946 -51.7540,-15.5300 -51.7656,-15.5368 -51.7855,-15.5253 -51.7868,-15.5277 -51.7910,-15.5253 -51.7984,-15.5390 -51.7878,-15.5596 -51.7804,-15.5850 -51.7794,-15.6106 -51.7879,-15.6314 -51.8014,-15.6517 -51.8320,-15.7171 -51.8680,-15.7605 -51.8771,-15.7925 -51.8882,-15.8048 -51.8997,-15.8098 -51.9038,-15.8116 -51.9168,-15.8124 -51.9256,-15.8097 -51.9406,-15.8009 -51.9537,-15.7990 -51.9566,-15.7994 -51.9592,-15.7990 -51.9723,-15.8007 -51.9749,-15.8055 -51.9748,-15.8130 -51.9797,-15.8230 -52.0143,-15.8556 -52.0354,-15.8684 -52.0585,-15.8748 -52.1641,-15.8805 -52.2118,-15.8897 -52.2360,-15.8987 -52.2466,-15.9053 -52.2555,-15.9133 -52.2596,-15.9201 -52.2670,-15.9378 -52.3123,-15.9864 -52.3340,-16.0381 -52.3397,-16.0461 -52.3478,-16.0494 -52.3518,-16.0494 -52.3573,-16.0494 -52.3674,-16.0504 -52.3942,-16.0678 -52.4358,-16.0827 -52.4495,-16.0945 -52.4541,-16.1106 -52.4680,-16.1189 -52.5208,-16.1396 -52.5308,-16.1457 -52.5380,-16.1521 -52.5426,-16.1599 -52.5446,-16.1695 -52.5400,-16.2134 -52.5400,-16.2205 -52.5414,-16.2268 -52.5448,-16.2334 -52.5524,-16.2411 -52.5619,-16.2463 -52.5739,-16.2507 -52.6275,-16.2648 -52.6503,-16.2753 -52.6691,-16.2866 -52.6750,-16.2913 -52.6804,-16.3007 -52.6839,-16.3137 -52.6873,-16.3397 -52.6880,-16.3620 -52.6870,-16.3691 -52.6818,-16.3828 -52.6775,-16.3894 -52.6733,-16.3945 -52.6679,-16.3991 -52.6603,-16.4039 -52.6421,-16.4126 -52.6387,-16.4153 -52.6365,-16.4177 -52.6210,-16.4261 -52.6302,-16.4640 -52.6339,-16.5088 -52.6379,-16.5289 -52.6481,-16.5424 -52.6755,-16.5600 -52.6915,-16.5730 -52.7020,-16.5889 -52.7078,-16.6083 -52.7096,-16.6323 -52.7176,-16.6506 -52.7368,-16.6704 -52.7779,-16.7040 -52.8147,-16.7454 -52.8342,-16.7544 -52.8509,-16.7672 -52.8598,-16.7723 -52.9020,-16.7866 -52.9690,-16.8190 -52.9966,-16.8386 -53.0249,-16.8679 -53.0193,-16.8849 -53.0333,-16.9496 -53.0432,-16.9717 -53.0454,-16.9814 -53.0442,-16.9916 -53.0391,-17.0108 -53.0385,-17.0193 -53.0431,-17.0376 -53.0522,-17.0578 -53.0639,-17.0741 -53.0761,-17.0808 -53.0840,-17.0890 -53.1205,-17.1428 -53.1372,-17.1586 -53.1410,-17.1633 -53.1475,-17.1869 -53.1570,-17.2031 -53.1642,-17.2245 -53.1720,-17.2353 -53.1969,-17.2561 -53.2037,-17.2657 -53.2087,-17.2820 -53.2037,-17.3312 -53.2013,-17.3412 -53.1970,-17.3519 -53.1951,-17.3626 -53.1999,-17.3722 -53.2060,-17.3800 -53.2107,-17.3899 -53.2167,-17.4091 -53.2263,-17.4501 -53.2294,-17.4896 -53.2274,-17.5010 -53.2379,-17.5145 -53.2488,-17.5633 -53.2503,-17.5924 -53.2468,-17.6218 -53.2364,-17.6521 -53.1834,-17.7427 -53.1541,-17.7787 -53.1494,-17.7878 -53.1452,-17.7983 -53.1380,-17.8285 -53.1144,-17.8964 -53.0754,-17.9753 -53.0593,-18.0166 -53.0548,-18.0456 -53.0489,-18.0666 -53.0464,-18.0956 -53.0622,-18.2931 -53.0596,-18.3142 -53.0565,-18.3266 -53.0489,-18.3427 -53.0390,-18.3574 -53.0165,-18.3787 -53.0056,-18.3857 -52.9931,-18.3879 -52.9912,-18.3872 -52.9876,-18.3879 -52.9779,-18.3847 -52.9669,-18.3792 -52.9250,-18.3511 -52.9166,-18.3475 -52.9098,-18.3462 -52.9088,-18.3462 -52.8999,-18.3477 -52.8795,-18.3537 -52.7889,-18.3916 -52.7799,-18.3998 -52.7745,-18.4118 -52.7777,-18.4347 -52.7838,-18.4492 -52.7919,-18.4620 -52.8502,-18.5357 -52.8621,-18.5567 -52.8984,-18.6378 -52.9025,-18.6545 -52.9028,-18.6591 -52.9018,-18.6648 -52.8750,-18.6805 -52.7652,-18.7103 -52.7598,-18.7103 -52.7597,-18.7103 -52.6955,-18.7098 -52.6483,-18.7201 -52.6211,-18.7226 -52.6189,-18.7223 -52.6156,-18.7226 -52.4994,-18.7055 -52.4882,-18.7074 -52.4753,-18.7130 -52.4466,-18.7325 -52.3713,-18.8038 -52.3611,-18.8099 -52.3483,-18.8147 -52.3280,-18.8165 -52.3249,-18.8163 -52.3225,-18.8165 -52.2731,-18.8130 -52.2629,-18.8139 -52.2369,-18.8213 -52.1791,-18.8488 -52.1040,-18.8960 -52.0899,-18.9086 -52.0850,-18.9172 -52.0808,-18.9266 -52.0759,-18.9355 -52.0652,-18.9447 -52.0462,-18.9532 -52.0105,-18.9652 -51.9563,-18.9754 -51.9185,-18.9883 -51.8831,-19.0135 -51.8587,-19.0399 -51.8476,-19.0481 -51.6486,-19.1288 -51.6373,-19.1318 -51.5897,-19.1380 -51.5858,-19.1377 -51.5842,-19.1380 -51.5457,-19.1359 -51.5361,-19.1373 -51.4740,-19.1528 -51.4354,-19.1577 -51.4252,-19.1616 -51.4122,-19.1692 -51.3471,-19.2229 -51.3258,-19.2456 -51.3163,-19.2529 -51.3009,-19.2597 -51.2876,-19.2641 -51.2740,-19.2668 -51.2357,-19.2683 -51.2225,-19.2723 -51.1920,-19.2866 -51.1791,-19.2878 -51.1770,-19.2875 -51.1736,-19.2878 -51.1506,-19.2843 -51.1437,-19.2844 -51.1308,-19.2875 -51.1185,-19.2930 -51.1040,-19.3027 -51.0902,-19.3147 -51.0398,-19.3683 -50.9667,-19.4735 -50.9692,-19.4965 -50.9620,-19.5153 -50.9489,-19.5322 -50.9426,-19.5493 -50.9555,-19.5685 -50.9641,-19.5719 -50.9821,-19.5721 -50.9897,-19.5760 -50.9941,-19.5828 -50.9961,-19.5915 -50.9968,-19.6458 -51.0028,-19.6676 -51.0261,-19.6976 -51.0318,-19.7247 -51.0331,-19.7541 -51.0125,-19.9047 -51.0102,-20.0280 -50.9994,-20.1017 -51.0346,-20.1893 -51.0607,-20.2282 -51.0925,-20.2634 -51.1191,-20.2832 -51.1427,-20.2973 -51.2725,-20.3344 -51.3319,-20.3624 -51.3504,-20.3773 -51.3879,-20.4177 -51.4021,-20.4414 -51.4452,-20.4910 -51.4675,-20.5232 -51.5201,-20.5742 -51.5677,-20.5849 -51.5855,-20.5964 -51.5942,-20.6168 -51.6036,-20.6616 -51.6257,-20.6998 -51.6277,-20.7225 -51.6265,-20.7683 -51.6375,-20.8770 -51.6468,-20.8944 -51.7165,-20.9663 -51.7386,-20.9836 -51.7401,-20.9868 -51.7512,-20.9956 -51.7773,-21.0557 -51.7934,-21.0837 -51.7984,-21.0898 -51.8053,-21.0940 -51.8217,-21.1013 -51.8466,-21.1203 -51.8640,-21.1297 -51.8766,-21.1440 -51.8804,-21.1717 -51.8606,-21.2571 -51.8571,-21.2986 -51.8729,-21.3430 -51.9338,-21.4020 -51.9417,-21.4227 -51.9707,-21.4666 -51.9864,-21.4792 -52.0033,-21.4850 -52.0144,-21.4841 -52.0304,-21.4800 -52.0495,-21.4776 -52.0537,-21.4777 -52.0550,-21.4776 -52.0668,-21.4780 -52.0760,-21.4803 -52.0831,-21.4858 -52.0886,-21.4962 -52.0897,-21.5013 -52.0899,-21.5061 -52.0907,-21.5108 -52.0936,-21.5157 -52.0972,-21.5185 -52.1056,-21.5214 -52.1094,-21.5234 -52.1118,-21.5503 -52.0686,-21.6197 -52.0562,-21.6241 -52.0473,-21.6369 -52.0460,-21.6439 -52.0491,-21.6661 -52.0657,-21.6844 -52.0847,-21.7003 -52.1081,-21.7159 -52.1438,-21.7307 -52.1581,-21.7393 -52.1904,-21.7887 -52.1944,-21.7998 -52.1956,-21.8198 -52.1996,-21.8317 -52.2061,-21.8429 -52.2137,-21.8535 -52.2227,-21.8623 -52.2330,-21.8682 -52.2511,-21.8749 -52.2582,-21.8797 -52.3093,-21.9249 -52.3192,-21.9401 -52.3227,-21.9545 -52.3257,-21.9843 -52.3307,-21.9990 -52.3609,-22.0565 -52.3643,-22.0652 -52.3704,-22.0917 -52.3748,-22.0989 -52.4437,-22.1562 -52.4606,-22.1771 -52.4677,-22.1831 -52.4931,-22.1946 -52.5009,-22.1995 -52.5244,-22.2233 -52.5342,-22.2294 -52.5443,-22.2325 -52.5653,-22.2354 -52.5756,-22.2385 -52.5937,-22.2491 -52.6267,-22.2738 -52.6817,-22.2938 -52.6971,-22.3025 -52.7290,-22.3279 -52.8223,-22.3801 -52.8285,-22.3848 -52.8333,-22.3910 -52.8432,-22.4153 -52.8481,-22.4206 -52.9246,-22.4558 -52.9421,-22.4612 -52.9522,-22.4610 -52.9607,-22.4547 -52.9636,-22.4566 -52.9662,-22.4547 -52.9725,-22.4589 -52.9927,-22.4856 -53.0088,-22.5185 -53.0181,-22.5285 -53.0275,-22.5318 -53.0412,-22.5347 -53.0536,-22.5389 -53.0590,-22.5456 -53.1147,-22.6454 -53.1415,-22.6763 -53.1735,-22.7017 -53.4851,-22.8308 -53.5582,-22.8724 -53.5904,-22.9025 -53.6023,-22.9202 -53.6282,-22.9816 -53.6336,-23.0013 -53.6468,-23.1060 -53.6624,-23.1455 -53.6817,-23.1822 -53.7108,-23.2585 -53.7306,-23.2964 -53.7593,-23.3280 -53.8678,-23.3926 -53.9531,-23.4245 -53.9736,-23.4438 -53.9777,-23.4530 -53.9770,-23.4887 -54.0231,-23.6371 -54.0322,-23.6978 -54.0636,-23.7747 -54.0733,-23.8165 -54.0747,-23.9056 -54.0827,-23.9492 -54.1040,-23.9679 -54.1831,-24.0055 -54.1912,-24.0176 -54.2103,-24.0307 -54.2512,-24.0504 -54.2508,-24.0506 -54.2717,-24.0659 -54.3065,-24.0899 -54.3303,-24.1182 -54.3401,-24.1489 -54.3373,-24.1650 -54.3245,-24.1968 -54.3196,-24.2342 -54.3118,-24.2467 -54.2881,-24.2753 -54.2798,-24.2983 -54.2665,-24.3295 -54.2677,-24.3585 -54.2772,-24.3894 -54.2896,-24.4113 -54.3284,-24.4643 -54.3400,-24.4967 -54.3403,-24.5273 -54.3262,-24.5959 -54.3268,-24.6284 -54.3766,-24.7667 -54.4052,-24.8048 -54.4128,-24.8212 -54.4588,-25.0028 -54.4678,-25.0372 -54.4697,-25.0559 -54.4688,-25.0728 -54.4607,-25.0921 -54.4352,-25.1306 -54.4321,-25.1495 -54.4412,-25.1670 -54.4749,-25.1955 -54.4869,-25.2132 -54.5091,-25.2787 -54.5340,-25.3143 -54.5526,-25.3366 -54.5811,-25.3603 -54.6035,-25.3975 -54.6153,-25.4328 -54.6173,-25.4440 -54.6179,-25.4655 -54.6140,-25.4876 -54.6040,-25.5058 -54.5970,-25.5247 -54.5996,-25.5486 -54.6054,-25.5727 -54.6057,-25.5749 -54.6077,-25.5924 -54.5917,-25.6247 -54.5888,-25.6448 -54.6036,-25.6536 -54.6337,-25.6521 -54.6340,-25.6523 -54.6392,-25.6521 -54.6484,-25.6616 -54.6486,-25.6879 -54.6304,-25.7402 -54.6275,-25.7600 -54.6226,-25.7735 -54.6000,-25.7987 -54.5934,-25.8108 -54.5950,-25.8329 -54.6047,-25.8507 -54.6156,-25.8665 -54.6207,-25.8829 -54.6128,-25.9279 -54.6119,-25.9466 -54.6207,-25.9617 -54.6292,-25.9643 -54.6534,-25.9656 -54.6617,-25.9692 -54.6678,-25.9799 -54.6671,-25.9899 -54.6637,-26.0004 -54.6588,-26.0308 -54.6480,-26.0628 -54.6486,-26.0852 -54.6693,-26.1492 -54.6654,-26.1644 -54.6473,-26.1840 -54.6438,-26.1970 -54.6502,-26.2082 -54.6617,-26.2230 -54.6698,-26.2362 -54.6716,-26.2437 -54.6691,-26.2633 -54.6691,-26.3084 -54.6845,-26.3399 -54.6859,-26.3453 -54.6889,-26.3508 -54.6986,-26.4119 -54.7032,-26.4282 -54.7120,-26.4418 -54.7427,-26.4732 -54.7708,-26.4941 -54.7858,-26.5104 -54.7953,-26.5285 -54.7943,-26.5426 -54.7890,-26.5567 -54.7858,-26.5752 -54.7868,-26.5982 -54.7904,-26.6228 -54.7985,-26.6450 -54.8125,-26.6612 -54.8200,-26.6645 -54.8228,-26.6633 -54.8274,-26.6581 -54.8350,-26.6544 -54.8405,-26.6544 -54.8794,-26.6544 -54.8848,-26.6544 -54.9088,-26.6599 -54.9254,-26.6741 -54.9362,-26.6940 -54.9494,-26.7400 -54.9566,-26.7575 -54.9665,-26.7723 -54.9808,-26.7878 -54.9973,-26.7946 -55.0462,-26.7985 -55.0664,-26.8052 -55.1313,-26.8636 -55.1382,-26.8806 -55.1244,-26.9200 -55.1278,-26.9417 -55.1438,-26.9537 -55.1658,-26.9571 -55.2012,-26.9555 -55.2167,-26.9512 -55.2352,-26.9422 -55.2565,-26.9346 -55.2806,-26.9343 -55.2807,-26.9343 -55.2861,-26.9343 -55.3349,-26.9585 -55.3817,-26.9638 -55.4018,-26.9693 -55.4195,-26.9799 -55.4363,-26.9964 -55.4482,-27.0155 -55.4543,-27.0359 -55.4568,-27.0821 -55.4673,-27.0980 -55.4890,-27.0998 -55.5140,-27.0975 -55.5167,-27.0977 -55.5195,-27.0975 -55.5393,-27.0994 -55.5509,-27.1152 -55.5550,-27.1358 -55.5608,-27.1538 -55.5772,-27.1615 -55.6038,-27.1675 -55.6045,-27.1826 -55.5804,-27.2236 -55.5761,-27.2353 -55.5742,-27.2460 -55.5762,-27.2564 -55.5896,-27.2768 -55.5887,-27.2835 -55.5862,-27.2917 -55.5871,-27.3055 -55.5968,-27.3284 -55.6130,-27.3455 -55.6342,-27.3564 -55.6591,-27.3601 -55.6872,-27.3794 -55.7230,-27.4173 -55.7580,-27.4421 -55.8152,-27.4141 -55.8421,-27.4074 -55.8542,-27.4012 -55.8628,-27.3911 -55.8779,-27.3536 -55.8928,-27.3349 -55.9131,-27.3278 -55.9183,-27.3279 -55.9186,-27.3278 -55.9419,-27.3283 -55.9661,-27.3316 -55.9716,-27.3317 -55.9856,-27.3321 -56.0069,-27.3283 -56.0069,-27.3283 -56.0738,-27.3049 -56.0742,-27.3048 -56.0989,-27.3006 -56.1246,-27.2989 -56.1252,-27.2992 -56.1300,-27.2989 -56.1555,-27.3118 -56.1744,-27.3247 -56.2109,-27.3622 -56.2335,-27.3712 -56.2623,-27.3783 -56.2853,-27.3896 -56.2908,-27.4113 -56.2870,-27.4386 -56.2908,-27.4610 -56.3025,-27.4809 -56.3220,-27.5004 -56.3415,-27.5257 -56.3551,-27.5564 -56.3730,-27.5806 -56.4016,-27.5862 -56.4314,-27.5754 -56.4319,-27.5752 -56.4620,-27.5537 -56.4879,-27.5271 -56.5068,-27.5000 -56.5469,-27.4550 -56.6130,-27.4464 -56.6148,-27.4469 -56.6185,-27.4464 -56.6886,-27.4647 -56.7397,-27.5004 -56.7727,-27.5061 -56.8081,-27.4866 -56.8699,-27.4313 -56.9044,-27.4187 -56.9088,-27.4191 -56.9099,-27.4187 -56.9465,-27.4221 -56.9828,-27.4353 -57.0817,-27.4840 -57.1135,-27.4904 -57.1482,-27.4890 -57.1567,-27.4877 -57.1801,-27.4873 -57.1805,-27.4872 -57.1912,-27.4842 -57.2004,-27.4789 -57.2271,-27.4587 -57.2371,-27.4542 -57.2376,-27.4541 -57.2830,-27.4430 -57.2931,-27.4405 -57.3036,-27.4354 -57.3102,-27.4295 -57.3269,-27.4147 -57.3358,-27.4094 -57.3565,-27.4043 -57.3610,-27.4032 -57.3663,-27.4033 -57.3665,-27.4032 -57.3928,-27.4034 -57.4915,-27.4159 -57.5140,-27.4139 -57.5199,-27.4121 -57.5363,-27.4071 -57.6982,-27.3334 -57.7094,-27.3298 -57.8116,-27.3107 -57.8119,-27.3106 -57.8548,-27.2976 -57.8551,-27.2975 -57.8995,-27.2890 -57.9140,-27.2862 -57.9444,-27.2746 -58.0037,-27.2633 -58.0220,-27.2598 -58.0535,-27.2590 -58.0543,-27.2591 -58.0590,-27.2590 -58.1195,-27.2689 -58.1305,-27.2695 -58.2382,-27.2570 -58.2415,-27.2573 -58.2437,-27.2570 -58.5163,-27.2784 -58.6039,-27.3123 -58.5999,-27.2661 -58.6016,-27.2457 -58.6140,-27.2267 -58.6387,-27.2101 -58.6524,-27.1980 -58.6584,-27.1851 -58.6533,-27.1563 -58.6388,-27.1359 -58.6161,-27.1238 -58.5655,-27.1160 -58.5605,-27.1055 -58.5624,-27.0901 -58.5622,-27.0721 -58.5597,-27.0634 -58.5564,-27.0555 -58.5517,-27.0482 -58.5454,-27.0410 -58.5393,-27.0379 -58.5360,-27.0405 -58.5335,-27.0478 -58.5335,-27.0517 -58.5325,-27.0542 -58.5255,-27.0584 -58.5176,-27.0599 -58.5169,-27.0590 -58.5121,-27.0599 -58.5082,-27.0549 -58.5073,-27.0383 -58.5054,-27.0314 -58.5020,-27.0235 -58.4929,-27.0096 -58.4752,-26.9899 -58.4672,-26.9757 -58.4822,-26.9637 -58.4843,-26.9504 -58.4761,-26.9379 -58.4604,-26.9280 -58.4161,-26.9174 -58.3945,-26.9095 -58.3853,-26.8969 -58.3753,-26.8874 -58.3517,-26.8856 -58.3289,-26.8841 -58.3158,-26.8741 -58.3221,-26.8568 -58.3404,-26.8445 -58.3524,-26.8305 -58.3400,-26.8086 -58.3261,-26.8046 -58.3110,-26.8091 -58.2940,-26.8115 -58.2933,-26.8108 -58.2886,-26.8115 -58.2748,-26.7984 -58.2785,-26.7902 -58.2865,-26.7787 -58.2879,-26.7686 -58.2717,-26.7643 -58.2647,-26.7645 -58.2642,-26.7644 -58.2593,-26.7645 -58.2518,-26.7632 -58.2479,-26.7582 -58.2452,-26.6802 -58.2407,-26.6612 -58.2356,-26.6500 -58.2327,-26.6520 -58.2012,-26.6575 -58.1971,-26.6572 -58.1957,-26.6575 -58.1839,-26.6568 -58.1786,-26.6507 -58.1814,-26.6416 -58.1872,-26.6336 -58.1921,-26.6246 -58.1923,-26.6128 -58.1885,-26.6097 -58.1715,-26.5986 -58.1649,-26.5923 -58.1705,-26.5868 -58.1793,-26.5726 -58.1854,-26.5650 -58.2080,-26.5502 -58.2134,-26.5445 -58.2173,-26.5276 -58.2142,-26.5124 -58.2087,-26.4969 -58.2059,-26.4794 -58.2027,-26.4716 -58.1887,-26.4621 -58.1854,-26.4517 -58.2096,-26.4313 -58.2131,-26.4186 -58.2062,-26.4027 -58.1727,-26.3493 -58.1676,-26.3350 -58.1649,-26.3186 -58.1700,-26.2866 -58.1700,-26.2703 -58.1618,-26.2633 -58.1460,-26.2601 -58.1233,-26.2515 -58.1060,-26.2395 -58.1066,-26.2261 -58.1212,-26.2167 -58.1371,-26.2095 -58.1489,-26.1993 -58.1511,-26.1833 -58.1467,-26.1848 -58.1387,-26.1890 -58.1331,-26.1947 -58.1295,-26.2019 -58.1261,-26.1977 -58.1240,-26.2019 -58.1152,-26.1910 -58.1063,-26.1703 -58.0967,-26.1367 -58.0865,-26.1272 -58.0216,-26.1057 -57.9882,-26.0885 -57.8727,-26.0103 -57.8597,-25.9943 -57.8596,-25.9809 -57.9058,-25.9686 -57.8982,-25.9536 -57.8633,-25.9276 -57.8571,-25.9199 -57.8514,-25.9084 -57.8524,-25.8980 -57.8754,-25.8902 -57.8782,-25.8832 -57.8754,-25.8761 -57.8542,-25.8689 -57.8332,-25.8588 -57.8197,-25.8498 -57.8128,-25.8452 -57.8019,-25.8314 -57.8171,-25.7975 -57.8206,-25.7783 -57.8056,-25.7699 -57.7872,-25.7641 -57.7679,-25.7507 -57.7511,-25.7349 -57.7404,-25.7221 -57.7511,-25.7196 -57.7606,-25.7156 -57.7685,-25.7100 -57.7746,-25.7017 -57.7537,-25.6727 -57.7413,-25.6619 -57.7199,-25.6538 -57.7112,-25.6531 -57.7037,-25.6536 -57.7014,-25.6534 -57.6982,-25.6536 -57.6883,-25.6527 -57.6790,-25.6470 -57.6753,-25.6393 -57.6700,-25.6169 -57.6683,-25.6129 -57.6443,-25.6158 -57.6398,-25.6157 -57.6388,-25.6158 -57.6231,-25.6154 -57.6163,-25.6092 -57.6116,-25.5859 -57.6007,-25.5788 -57.5872,-25.5757 -57.5753,-25.5644 -57.5700,-25.5467 -57.5569,-25.4598 -57.5581,-25.4435 -57.5653,-25.4304 -57.5787,-25.4167 -57.6408,-25.3726 -57.6412,-25.3605 -57.6715,-25.2901 -57.6720,-25.2898 -57.7023,-25.2709 -57.7218,-25.2461 -57.7541,-25.1809 -57.7660,-25.1679 -57.7973,-25.1539 -57.8124,-25.1437 -57.8565,-25.0968 -57.8707,-25.0853 -57.8905,-25.0787 -57.9698,-25.0785 -57.9838,-25.0742 -57.9899,-25.0641 -57.9936,-25.0527 -58.0005,-25.0444 -58.0098,-25.0425 -58.0133,-25.0429 -58.0153,-25.0425 -58.0355,-25.0448 -58.0421,-25.0444 -58.1115,-25.0123 -58.1165,-25.0126 -58.1170,-25.0123 -58.1242,-25.0127 -58.1339,-24.9979 -58.2241,-24.9412 -58.2293,-24.9414 -58.2296,-24.9412 -58.2480,-24.9417 -58.2646,-24.9530 -58.2928,-24.9798 -58.3048,-24.9877 -58.3175,-24.9936 -58.3252,-24.9948 -58.3360,-24.9919 -58.3413,-24.9862 -58.3444,-24.9783 -58.3506,-24.9686 -58.4148,-24.9031 -58.4385,-24.8728 -58.4508,-24.8617 -58.4734,-24.8513 -58.6942,-24.8120 -58.6994,-24.8073 -58.7019,-24.7993 -58.7081,-24.7951 -58.7160,-24.7919 -58.7233,-24.7867 -58.7375,-24.7828 -58.7885,-24.7816 -58.8092,-24.7768 -59.0009,-24.6442 -59.0327,-24.6370 -59.0424,-24.6305 -59.0625,-24.6123 -59.0722,-24.6068 -59.0783,-24.6056 -59.0972,-24.6054 -59.1170,-24.5988 -59.1544,-24.5763 -59.1779,-24.5687 -59.2065,-24.5502 -59.2481,-24.5372 -59.2576,-24.5302 -59.2631,-24.5235 -59.2705,-24.5182 -59.2856,-24.5161 -59.2951,-24.5129 -59.3081,-24.4988 -59.3410,-24.4876 -59.3574,-24.4690 -59.3778,-24.4335 -59.3871,-24.4238 -59.4260,-24.3925 -59.4503,-24.3824 -59.4538,-24.3745 -59.4563,-24.3654 -59.4597,-24.3585 -59.4659,-24.3536 -59.4877,-24.3448 -59.5104,-24.3327 -59.5211,-24.3250 -59.5320,-24.3141 -59.5400,-24.3088 -59.5584,-24.3054 -59.5754,-24.2959 -59.6005,-24.2929 -59.6105,-24.2896 -59.6177,-24.2835 -59.6353,-24.2615 -59.6736,-24.2254 -60.0337,-24.0070 -60.0517,-24.0029 -60.0556,-24.0032 -60.0572,-24.0029 -60.0779,-24.0048 -60.1248,-24.0202 -60.1487,-24.0252 -60.2191,-24.0272 -60.2964,-24.0164 -60.3005,-24.0166 -60.3019,-24.0164 -60.3293,-24.0178 -60.3374,-24.0164 -60.3480,-24.0108 -60.3676,-23.9947 -60.3784,-23.9885 -60.3874,-23.9872 -60.3918,-23.9873 -60.3929,-23.9872 -60.4240,-23.9883 -60.4849,-23.9773 -60.5177,-23.9557 -60.5360,-23.9476 -60.5718,-23.9460 -60.5775,-23.9442 -60.5936,-23.9122 -60.5946,-23.9065 -60.6038,-23.9047 -60.6212,-23.8958 -60.6322,-23.8923 -60.6437,-23.8914 -60.6471,-23.8915 -60.6492,-23.8914 -60.6906,-23.8934 -60.6994,-23.8913 -60.7199,-23.8750 -60.7293,-23.8721 -60.7344,-23.8722 -60.7348,-23.8721 -60.8178,-23.8740 -60.8376,-23.8718 -60.8664,-23.8559 -60.8999,-23.8305 -60.9367,-23.8138 -60.9401,-23.8148 -60.9422,-23.8138 -60.9765,-23.8231 -61.0063,-23.8055 -61.0158,-23.7967 -61.0302,-23.7746 -61.0362,-23.7688 -61.0381,-23.7554 -61.0500,-23.7347 -61.0662,-23.7157 -61.0925,-23.7019 -61.1097,-23.6756 -61.1188,-23.6664 -61.1098,-23.6500 -61.1062,-23.6272 -61.1099,-23.6070 -61.1222,-23.5982 -61.1395,-23.5927 -61.1545,-23.5803 -61.1678,-23.5666 -61.1802,-23.5572 -61.1877,-23.5562 -61.1913,-23.5565 -61.1932,-23.5562 -61.2105,-23.5574 -61.2144,-23.5572 -61.2236,-23.5513 -61.2429,-23.5331 -61.2519,-23.5293 -61.2726,-23.5236 -61.2829,-23.5099 -61.2890,-23.4941 -61.2970,-23.4814 -61.3618,-23.4547 -61.3849,-23.4537 -61.3987,-23.4501 -61.4087,-23.4436 -61.4205,-23.4337 -61.4357,-23.4237 -61.4519,-23.4174 -61.4703,-23.4141 -61.4918,-23.4132 -61.5011,-23.4078 -61.5104,-23.3844 -61.5263,-23.3747 -61.5255,-23.3647 -61.5208,-23.3533 -61.5161,-23.3450 -61.5340,-23.3446 -61.5458,-23.3426 -61.5546,-23.3384 -61.6051,-23.2893 -61.6196,-23.2829 -61.6251,-23.2829 -61.6669,-23.2829 -61.6803,-23.2792 -61.6888,-23.2745 -61.7044,-23.2584 -61.7185,-23.2493 -61.7330,-23.2434 -61.7443,-23.2348 -61.7488,-23.2173 -61.7495,-23.1988 -61.7523,-23.1871 -61.7585,-23.1774 -61.7693,-23.1656 -61.7800,-23.1569 -61.8027,-23.1450 -61.8143,-23.1352 -61.8370,-23.1047 -61.8450,-23.0972 -61.9564,-23.0344 -61.9921,-22.9981 -62.0059,-22.9789 -62.0061,-22.9744 -62.0089,-22.9697 -62.0038,-22.9464 -62.0061,-22.9368 -62.0172,-22.9218 -62.0358,-22.8849 -62.0504,-22.8645 -62.0716,-22.8439 -62.0808,-22.8324 -62.0846,-22.8202 -62.0894,-22.8199 -62.0992,-22.8137 -62.1079,-22.8065 -62.1088,-22.8030 -62.1159,-22.7998 -62.1197,-22.7921 -62.1225,-22.7832 -62.1262,-22.7757 -62.1535,-22.7478 -62.1597,-22.7372 -62.1641,-22.7259 -62.1708,-22.7173 -62.1842,-22.7137 -62.1883,-22.7083 -62.1759,-22.6849 -62.1950,-22.6736 -62.1946,-22.6606 -62.1876,-22.6386 -62.1930,-22.6282 -62.1966,-22.6265 -62.2010,-22.6270 -62.2021,-22.6265 -62.2044,-22.6268 -62.2149,-22.6243 -62.2397,-22.6138 -62.2528,-22.6036 -62.2530,-22.5911 -62.2389,-22.5730 -62.2332,-22.5563 -62.2412,-22.5384 -62.2634,-22.5144 -62.2688,-22.5130 -62.2731,-22.5133 -62.2743,-22.5130 -62.2769,-22.5132 -62.2814,-22.5121 -62.2838,-22.5048 -62.2836,-22.4938 -62.2845,-22.4887 -62.2872,-22.4839 -62.2945,-22.4798 -62.3057,-22.4767 -62.3414,-22.4723 -62.3487,-22.4713 -62.3683,-22.4644 -62.4381,-22.4197 -62.4550,-22.4039 -62.4619,-22.3888 -62.4706,-22.3818 -62.5107,-22.3702 -62.5234,-22.3649 -62.5476,-22.3353 -62.5647,-22.3220 -62.5883,-22.3164 -62.5996,-22.3152 -62.6132,-22.3115 -62.6253,-22.3050 -62.6327,-22.2960 -62.6308,-22.2877 -62.6242,-22.2789 -62.6203,-22.2685 -62.6264,-22.2550 -62.6251,-22.2550 -62.6196,-22.2550 -62.6248,-22.2473 -62.6318,-22.2408 -62.6404,-22.2362 -62.6504,-22.2345 -62.6590,-22.2317 -62.6618,-22.2245 -62.6632,-22.2155 -62.6675,-22.2066 -62.6793,-22.1948 -62.7220,-22.1662 -62.7694,-22.1447 -62.7835,-22.1309 -62.7909,-22.1132 -62.7911,-22.0816 -62.7978,-22.0694 -62.7951,-22.0611 -62.7950,-22.0512 -62.8014,-22.0135 -62.8044,-22.0041 -62.8186,-22.0009 -62.8620,-21.9932 -62.8663,-21.9934 -62.8675,-21.9932 -63.0154,-22.0007 -63.0158,-22.0007 -63.3276,-21.9991 -63.6394,-21.9975 -63.6396,-21.9975 -63.6449,-21.9975 -63.6833,-22.0037 -63.6994,-22.0120 -63.7440,-22.0490 -63.7518,-22.0457 -63.7930,-22.0115 -63.8131,-22.0030 -63.9064,-21.9972 -63.9079,-21.9974 -63.9119,-21.9972 -63.9387,-22.0018 -63.9531,-22.0076 -63.9564,-22.0108 -63.9570,-22.0167 -63.9665,-22.0391 -63.9701,-22.0585 -63.9736,-22.0665 -63.9813,-22.0738 -63.9889,-22.0774 -63.9959,-22.0793 -64.0011,-22.0829 -64.0099,-22.0993 -64.0253,-22.1554 -64.0565,-22.2292 -64.0643,-22.2403 -64.0844,-22.2506 -64.0917,-22.2579 -64.1660,-22.4385 -64.1902,-22.4712 -64.2418,-22.5167 -64.2563,-22.5407 -64.2995,-22.6909 -64.3001,-22.7629 -64.3090,-22.7823 -64.3324,-22.8592 -64.3319,-22.8634 -64.3453,-22.8461 -64.3477,-22.8170 -64.3600,-22.8030 -64.3523,-22.7791 -64.3557,-22.7519 -64.3690,-22.7297 -64.3908,-22.7205 -64.4017,-22.7124 -64.4283,-22.6590 -64.4382,-22.6519 -64.4472,-22.6487 -64.4537,-22.6429 -64.4562,-22.6280 -64.4552,-22.6167 -64.4505,-22.5971 -64.4494,-22.5871 -64.4455,-22.5762 -64.4373,-22.5674 -64.4298,-22.5571 -64.4283,-22.5423 -64.4837,-22.4912 -64.4981,-22.4728 -64.5040,-22.4499 -64.5078,-22.4440 -64.5257,-22.4330 -64.5313,-22.4257 -64.5311,-22.4155 -64.5233,-22.3962 -64.5246,-22.3854 -64.5379,-22.3743 -64.5589,-22.3606 -64.5720,-22.3432 -64.5621,-22.3198 -64.5492,-22.3054 -64.5423,-22.2915 -64.5428,-22.2755 -64.5518,-22.2550 -64.5602,-22.2431 -64.5869,-22.2128 -64.5962,-22.2066 -64.6163,-22.2022 -64.6387,-22.1917 -64.6578,-22.1784 -64.6790,-22.1754 -64.6874,-22.1729 -64.6910,-22.1735 -64.6929,-22.1729 -64.7007,-22.1742 -64.7192,-22.1817 -64.7252,-22.1828 -64.7623,-22.1744 -64.8325,-22.1375 -65.0204,-22.0966 -65.0256,-22.0966 -65.0259,-22.0966 -65.1960,-22.0985 -65.4579,-22.1014 -65.5105,-22.0959 -65.5799,-22.0865 -65.5831,-22.0868 -65.5854,-22.0865 -65.5940,-22.0873 -65.5989,-22.0911 -65.6034,-22.0957 -65.6108,-22.0991 -65.7461,-22.1136 -65.7753,-22.1051 -65.8046,-22.0858 -65.9327,-21.9446 -65.9545,-21.9331 -66.0465,-21.9180 -66.0518,-21.9126 -66.0636,-21.8640 -66.0945,-21.8329 -66.1378,-21.8125 -66.2225,-21.7869 -66.2252,-21.7878 -66.2280,-21.7869 -66.2455,-21.7924 -66.2930,-21.9570 -66.3026,-22.0503 -66.3070,-22.0650 -66.3128,-22.0765 -66.3141,-22.0758 -66.3186,-22.0764 -66.3195,-22.0758 -66.3322,-22.0774 -66.3407,-22.0823 -66.3485,-22.0905 -66.3547,-22.1002 -66.3587,-22.1096 -66.3830,-22.1271 -66.5158,-22.1629 -66.6322,-22.1926 -66.6361,-22.1974 -66.6388,-22.2049 -66.6418,-22.2113 -66.6438,-22.2118 -66.6578,-22.2074 -66.6774,-22.2051 -66.6885,-22.2017 -66.6993,-22.2008 -66.7002,-22.2012 -66.7048,-22.2008 -66.7183,-22.2064 -66.7414,-22.2251 -66.7544,-22.2449 -66.7616,-22.2683 -66.7734,-22.3426 -66.7807,-22.3652 -66.7935,-22.3801 -66.7960,-22.3883 -66.7900,-22.4173 -66.7906,-22.4276 -66.8019,-22.4349 -66.9141,-22.4675 -66.9408,-22.4805 -66.9611,-22.5007 -66.9707,-22.5143 -66.9836,-22.5225 -66.9974,-22.5255 -67.0157,-22.5238 -67.0194,-22.5240 -67.0212,-22.5238 -67.0382,-22.5246 -67.0298,-22.6176 -67.0321,-22.6394 -67.0432,-22.6546 -67.1187,-22.7101 -67.1482,-22.7427 -67.1994,-22.8222 -67.0195,-23.0007 -67.0250,-23.0319 -67.0428,-23.0854 -67.1129,-23.2977 -67.1832,-23.5102 -67.2534,-23.7227 -67.2568,-23.7331 -67.3236,-23.9352 -67.3453,-24.0006 -67.3679,-24.0304 -67.4178,-24.0556 -67.4577,-24.0696 -67.4667,-24.0729 -67.4867,-24.0801 -67.5067,-24.0871 -67.5158,-24.0904 -67.6407,-24.1415 -67.7657,-24.1927 -67.8907,-24.2439 -68.0157,-24.2951 -68.0660,-24.3144 -68.1161,-24.3338 -68.1663,-24.3531 -68.2165,-24.3725 -68.2500,-24.3854 -68.2679,-24.3968 -68.2726,-24.4042 -68.2823,-24.4323 -68.3195,-24.4873 -68.3323,-24.4982 -68.3461,-24.4994 -68.3624,-24.4942 -68.3798,-24.4911 -68.3812,-24.4918 -68.3853,-24.4911 -68.4031,-24.5005 -68.4432,-24.5797 -68.4499,-24.6102 -68.4561,-24.6269 -68.4628,-24.6233 -68.4818,-24.5988 -68.4865,-24.5998 -68.4873,-24.5988 -68.5010,-24.6018 -68.5092,-24.6123 -68.5135,-24.6268 -68.5157,-24.6413 -68.5268,-24.6753 -68.5779,-24.7699 -68.5841,-24.7917 -68.5835,-24.8087 -68.5607,-24.8622 -68.5565,-24.8688 -68.5471,-24.8774 -68.5231,-24.8901 -68.5157,-24.8955 -68.4954,-24.8958 -68.4848,-24.8996 -68.4785,-24.9079 -68.4712,-24.9221 -68.4723,-24.9231 -68.4741,-24.9270 -68.4751,-24.9320 -68.4746,-24.9368 -68.4706,-24.9414 -68.4594,-24.9493 -68.4555,-24.9539 -68.4504,-24.9616 -68.4453,-24.9676 -68.4429,-24.9741 -68.4456,-24.9837 -68.4490,-25.0211 -68.4260,-25.0512 -68.3945,-25.0775 -68.3729,-25.1034 -68.3721,-25.1234 -68.3847,-25.1368 -68.4047,-25.1448 -68.4255,-25.1486 -68.4419,-25.1481 -68.4584,-25.1449 -68.4631,-25.1451 -68.4639,-25.1449 -68.4795,-25.1454 -68.4985,-25.1559 -68.5020,-25.1600 -68.5215,-25.1836 -68.6114,-25.4370 -68.6154,-25.4742 -68.6137,-25.4929 -68.6084,-25.5107 -68.5721,-25.5517 -68.5605,-25.5726 -68.5743,-25.5878 -68.5651,-25.6086 -68.5664,-25.6352 -68.5648,-25.6630 -68.5468,-25.6873 -68.5274,-25.7056 -68.5131,-25.7289 -68.5040,-25.7549 -68.4919,-25.8366 -68.4226,-26.0936 -68.4145,-26.1442 -68.4254,-26.1793 -68.5516,-26.2691 -68.5807,-26.3035 -68.5928,-26.3380 -68.5994,-26.3786 -68.6008,-26.4573 -68.5929,-26.5083 -68.5756,-26.5506 -68.5497,-26.5893 -68.5157,-26.6291 -68.3256,-26.8701 -68.3108,-26.8980 -68.3076,-26.9266 -68.3129,-26.9446 -68.3293,-26.9810 -68.3346,-27.0001 -68.3366,-27.0122 -68.3339,-27.0374 -68.3360,-27.0450 -68.3407,-27.0454 -68.3665,-27.0435 -68.3690,-27.0437 -68.3720,-27.0435 -68.3828,-27.0444 -68.4276,-27.0620 -68.4486,-27.0667 -68.4997,-27.0686 -68.5235,-27.0769 -68.5453,-27.0903 -68.5629,-27.1074 -68.5747,-27.1295 -68.5809,-27.1493 -68.5913,-27.1628 -68.6120,-27.1652 -68.6495,-27.1512 -68.6829,-27.1269 -68.7186,-27.1067 -68.7643,-27.1046 -68.7652,-27.1048 -68.7698,-27.1046 -68.8066,-27.1128 -68.8198,-27.1203 -68.8345,-27.1360 -68.8762,-27.1984 -68.8852,-27.2215 -68.8869,-27.2391 -68.8848,-27.2785 -68.8885,-27.2950 -68.9369,-27.3952 -68.9481,-27.4089 -68.9641,-27.4211 -68.9991,-27.4377 -69.0156,-27.4489 -69.0229,-27.4604 -69.0260,-27.4734 -69.0254,-27.4869 -69.0218,-27.5001 -69.0245,-27.5243 -69.0341,-27.5513 -69.0594,-27.5997 -69.0685,-27.6100 -69.0910,-27.6293 -69.0978,-27.6402 -69.0987,-27.6565 -69.0929,-27.6692 -69.0855,-27.6815 -69.0813,-27.6962 -69.0866,-27.7038 -69.1138,-27.7158 -69.1237,-27.7221 -69.1298,-27.7344 -69.1395,-27.7723 -69.1785,-27.9241 -69.1957,-27.9514 -69.2214,-27.9685 -69.2806,-27.9829 -69.2965,-27.9894 -69.3087,-27.9995 -69.3186,-28.0145 -69.3193,-28.0227 -69.3164,-28.0293 -69.3172,-28.0365 -69.3363,-28.0524 -69.3726,-28.1304 -69.3954,-28.1620 -69.4174,-28.2025 -69.4248,-28.2114 -69.4356,-28.2085 -69.4561,-28.1958 -69.4762,-28.1879 -69.4781,-28.1893 -69.4817,-28.1879 -69.4960,-28.1984 -69.5067,-28.2504 -69.5156,-28.2675 -69.5590,-28.3179 -69.6128,-28.3563 -69.6585,-28.3979 -69.6595,-28.4010 -69.6778,-28.4577 -69.6803,-28.5631 -69.6839,-28.5739 -69.6906,-28.5778 -69.6987,-28.5798 -69.7064,-28.5844 -69.7276,-28.6107 -69.7463,-28.6406 -69.7589,-28.6734 -69.7614,-28.7077 -69.7565,-28.7298 -69.7419,-28.7724 -69.7383,-28.7943 -69.7413,-28.8124 -69.7703,-28.8586 -69.7723,-28.8676 -69.7719,-28.8759 -69.7728,-28.8842 -69.7786,-28.8927 -69.7909,-28.9058 -69.8005,-28.9208 -69.8083,-28.9399 -69.8121,-28.9599 -69.8118,-28.9801 -69.8072,-29.0000 -69.8012,-29.0501 -69.8027,-29.0767 -69.8094,-29.0987 -69.8278,-29.1201 -69.8498,-29.1293 -69.9000,-29.1372 -69.9164,-29.1432 -69.9202,-29.1488 -69.9208,-29.1562 -69.9275,-29.1680 -69.9381,-29.1769 -69.9649,-29.1921 -69.9805,-29.2043 -69.9856,-29.2059 -69.9905,-29.2083 -69.9950,-29.2144 -69.9936,-29.2200 -69.9817,-29.2335 -69.9802,-29.2408 -69.9858,-29.2500 -69.9948,-29.2573 -70.0053,-29.2629 -70.0155,-29.2664 -70.0366,-29.2772 -70.0461,-29.2975 -70.0500,-29.3461 -70.0481,-29.3631 -70.0412,-29.3769 -70.0325,-29.3899 -70.0250,-29.4044 -70.0155,-29.4561 -70.0077,-29.4656 -70.0016,-29.4764 -69.9971,-29.4881 -69.9740,-29.5833 -69.9744,-29.6131 -69.9784,-29.6432 -69.9787,-29.6661 -69.9690,-29.6855 -69.9434,-29.7047 -69.9346,-29.7183 -69.9211,-29.8056 -69.9277,-29.9396 -69.9335,-29.9768 -69.9468,-30.0131 -69.9811,-30.0586 -69.9859,-30.0725 -69.9787,-30.0894 -69.9631,-30.0927 -69.9597,-30.0923 -69.9577,-30.0927 -69.9226,-30.0883 -69.8862,-30.0998 -69.8552,-30.1266 -69.8412,-30.1619 -69.8544,-30.1991 -69.8629,-30.2055 -69.8826,-30.2131 -69.8917,-30.2210 -69.8962,-30.2290 -69.8995,-30.2380 -69.9036,-30.2565 -69.9053,-30.2944 -69.9083,-30.3127 -69.9176,-30.3295 -69.9435,-30.3556 -69.9701,-30.3748 -69.9999,-30.3881 -70.0331,-30.3964 -70.0643,-30.3893 -70.1469,-30.3539 -70.1497,-30.3551 -70.1524,-30.3539 -70.1789,-30.3647 -70.1793,-30.3822 -70.1542,-30.4187 -70.1494,-30.4396 -70.1567,-30.4597 -70.1693,-30.4702 -70.1852,-30.4771 -70.2025,-30.4868 -70.2226,-30.5151 -70.2409,-30.5916 -70.2563,-30.6266 -70.2757,-30.6572 -70.2815,-30.6731 -70.2854,-30.6931 -70.2848,-30.7056 -70.2821,-30.7156 -70.2817,-30.7256 -70.2878,-30.7378 -70.3056,-30.7581 -70.3105,-30.7655 -70.3250,-30.8008 -70.3447,-30.9382 -70.3407,-30.9560 -70.3306,-30.9716 -70.3141,-30.9882 -70.2854,-31.0103 -70.2731,-31.0238 -70.2720,-31.0365 -70.2819,-31.0390 -70.3209,-31.0337 -70.3223,-31.0342 -70.3264,-31.0337 -70.3453,-31.0417 -70.3680,-31.0730 -70.3779,-31.0922 -70.3864,-31.1216 -70.3985,-31.1376 -70.4141,-31.1500 -70.4245,-31.1526 -70.4356,-31.1414 -70.4406,-31.1188 -70.4481,-31.0976 -70.4678,-31.0894 -70.4700,-31.0907 -70.4733,-31.0894 -70.4853,-31.0967 -70.5414,-31.1726 -70.5469,-31.1882 -70.5489,-31.2081 -70.5484,-31.2468 -70.5523,-31.2646 -70.5745,-31.3042 -70.5727,-31.3230 -70.5654,-31.3417 -70.5601,-31.3629 -70.5633,-31.3818 -70.5809,-31.4130 -70.5845,-31.4320 -70.5834,-31.4689 -70.5869,-31.5057 -70.5969,-31.5496 -70.5953,-31.5677 -70.5857,-31.5923 -70.5327,-31.6843 -70.5023,-31.7145 -70.4918,-31.7312 -70.4940,-31.7739 -70.4895,-31.7976 -70.4807,-31.8201 -70.4696,-31.8383 -70.4338,-31.8701 -70.3995,-31.8776 -70.3947,-31.8775 -70.3940,-31.8776 -70.3616,-31.8766 -70.3188,-31.8821 -70.3017,-31.8910 -70.2805,-31.9070 -70.2612,-31.9257 -70.2500,-31.9422 -70.2472,-31.9615 -70.2532,-31.9746 -70.2632,-31.9862 -70.2727,-32.0009 -70.2809,-32.0378 -70.2902,-32.0468 -70.3106,-32.0475 -70.3523,-32.0333 -70.3733,-32.0304 -70.3741,-32.0310 -70.3788,-32.0304 -70.3930,-32.0417 -70.3946,-32.0531 -70.3901,-32.0620 -70.3735,-32.0771 -70.3667,-32.0858 -70.3647,-32.0937 -70.3654,-32.1130 -70.3611,-32.1226 -70.3444,-32.1334 -70.3407,-32.1400 -70.3424,-32.1492 -70.3494,-32.1657 -70.3510,-32.1747 -70.3486,-32.1869 -70.3368,-32.2082 -70.3327,-32.2197 -70.3324,-32.2288 -70.3353,-32.2469 -70.3352,-32.2555 -70.3273,-32.2801 -70.3152,-32.2883 -70.2980,-32.2910 -70.2747,-32.2991 -70.2616,-32.3143 -70.2479,-32.3303 -70.2508,-32.4040 -70.2327,-32.4347 -70.1940,-32.4536 -70.1780,-32.4649 -70.1663,-32.4853 -70.1636,-32.5065 -70.1653,-32.5252 -70.1634,-32.5425 -70.1432,-32.5690 -70.1526,-32.5721 -70.1761,-32.5727 -70.1814,-32.5805 -70.1842,-32.5890 -70.1866,-32.6076 -70.1859,-32.6302 -70.1612,-32.7384 -70.1455,-32.7683 -70.0928,-32.8233 -70.0598,-32.8508 -70.0423,-32.8598 -70.0198,-32.8675 -70.0057,-32.8766 -70.0057,-32.8890 -70.0226,-32.9166 -70.0298,-32.9348 -70.0397,-32.9770 -70.0480,-32.9927 -70.0620,-33.0013 -70.0944,-33.0083 -70.1084,-33.0183 -70.1167,-33.0384 -70.1108,-33.0549 -70.1010,-33.0713 -70.0977,-33.0918 -70.1153,-33.1494 -70.1149,-33.1696 -70.1063,-33.1869 -70.0912,-33.2013 -70.0573,-33.2253 -70.0466,-33.2390 -70.0155,-33.2991 -70.0105,-33.2982 -70.0100,-33.2991 -69.9839,-33.2945 -69.9406,-33.2429 -69.9092,-33.2387 -69.8752,-33.2496 -69.8423,-33.2657 -69.8194,-33.2895 -69.8112,-33.3443 -69.7932,-33.3794 -69.7922,-33.3993 -69.8000,-33.4147 -69.8261,-33.4429 -69.8364,-33.4582 -69.8396,-33.4746 -69.8436,-33.5211 -69.8470,-33.5328 -69.8548,-33.5365 -69.8748,-33.5429 -69.8808,-33.5474 -69.8843,-33.5580 -69.8826,-33.5668 -69.8793,-33.5755 -69.8784,-33.5860 -69.8994,-33.6428 -69.9009,-33.6623 -69.8923,-33.6787 -69.8652,-33.7114 -69.8655,-33.7264 -69.8780,-33.7374 -69.9120,-33.7603 -69.9197,-33.7719 -69.9203,-33.7935 -69.9028,-33.8714 -69.9041,-33.8889 -69.9135,-33.9279 -69.9150,-33.9557 -69.9058,-33.9590 -69.9028,-33.9581 -69.9003,-33.9590 -69.8864,-33.9548 -69.8711,-33.9577 -69.8613,-33.9847 -69.8609,-34.0312 -69.8695,-34.1075 -69.8739,-34.1226 -69.8779,-34.1310 -69.8787,-34.1400 -69.8741,-34.1567 -69.8676,-34.1702 -69.8428,-34.2093 -69.8344,-34.2333 -69.8382,-34.2432 -69.9078,-34.2687 -69.9103,-34.2738 -69.9114,-34.2807 -69.9154,-34.2834 -69.9475,-34.2738 -69.9682,-34.2700 -69.9892,-34.2691 -69.9905,-34.2693 -69.9947,-34.2691 -70.0458,-34.2770 -70.0631,-34.2912 -70.0700,-34.3135 -70.0691,-34.3437 -70.0649,-34.3729 -70.0642,-34.3958 -70.0731,-34.4146 -70.1198,-34.4474 -70.1339,-34.4695 -70.1562,-34.5182 -70.1733,-34.5384 -70.2147,-34.5680 -70.2333,-34.5853 -70.2479,-34.6194 -70.2577,-34.6958 -70.2786,-34.7270 -70.2986,-34.7365 -70.3149,-34.7397 -70.3218,-34.7456 -70.3130,-34.7631 -70.2983,-34.7776 -70.2862,-34.7864 -70.2822,-34.7982 -70.3592,-34.9533 -70.3781,-35.0247 -70.3740,-35.0971 -70.3921,-35.1667 -70.5484,-35.2093 -70.5844,-35.2597 -70.5659,-35.2984 -70.5262,-35.3096 -70.4808,-35.3141 -70.4452,-35.3322 -70.4339,-35.3571 -70.4461,-35.3668 -70.4659,-35.3710 -70.4773,-35.3794 -70.4747,-35.3947 -70.4509,-35.4611 -70.4366,-35.4778 -70.4219,-35.4911 -70.4137,-35.5062 -70.4236,-35.5475 -70.4175,-35.5874 -70.4177,-35.6074 -70.4282,-35.6439 -70.4270,-35.6597 -70.3819,-35.7614 -70.3671,-35.7831 -70.3628,-35.8152 -70.4257,-35.8684 -70.4263,-35.9038 -70.4179,-35.9081 -70.4133,-35.9077 -70.4124,-35.9081 -70.3957,-35.9064 -70.3892,-35.9132 -70.3903,-35.9212 -70.3969,-35.9274 -70.4051,-35.9327 -70.4105,-35.9383 -70.4181,-35.9573 -70.4182,-35.9689 -70.3892,-36.0305 -70.3858,-36.0460 -70.3924,-36.0587 -70.4098,-36.0744 -70.4162,-36.0837 -70.4282,-36.1166 -70.4362,-36.1294 -70.4406,-36.1363 -70.4570,-36.1523 -70.4766,-36.1625 -70.4996,-36.1634 -70.5453,-36.1428 -70.5683,-36.1390 -70.5702,-36.1396 -70.5738,-36.1390 -70.5869,-36.1432 -70.5940,-36.1502 -70.6038,-36.1696 -70.6058,-36.1752 -70.6068,-36.1881 -70.6099,-36.1946 -70.6141,-36.1979 -70.6254,-36.2023 -70.6302,-36.2052 -70.6671,-36.2446 -70.6805,-36.2524 -70.6994,-36.2566 -70.7086,-36.2601 -70.7160,-36.2658 -70.7204,-36.2753 -70.7193,-36.2835 -70.7171,-36.2917 -70.7181,-36.3003 -70.7352,-36.3255 -70.7377,-36.3343 -70.7346,-36.3469 -70.7191,-36.3682 -70.7141,-36.3799 -70.7144,-36.4032 -70.7241,-36.4146 -70.8089,-36.4326 -70.8143,-36.4300 -70.8203,-36.4246 -70.8288,-36.4198 -70.8686,-36.4047 -70.8904,-36.4004 -70.8927,-36.4010 -70.8959,-36.4004 -70.9133,-36.4052 -70.9217,-36.4193 -70.9288,-36.4567 -70.9405,-36.4726 -70.9586,-36.4825 -70.9743,-36.4851 -70.9896,-36.4833 -71.0100,-36.4775 -71.0132,-36.4782 -71.0155,-36.4775 -71.0488,-36.4843 -71.0669,-36.5204 -71.0744,-36.5664 -71.0755,-36.6038 -71.0608,-36.6713 -71.0629,-36.6876 -71.0762,-36.6955 -71.0908,-36.6895 -71.1100,-36.6785 -71.1299,-36.6769 -71.1305,-36.6773 -71.1354,-36.6769 -71.1508,-36.6883 -71.1544,-36.7040 -71.1523,-36.7411 -71.1570,-36.7605 -71.1822,-36.8149 -71.1873,-36.8224 -71.1944,-36.8305 -71.2006,-36.8391 -71.2024,-36.8482 -71.1971,-36.8584 -71.1883,-36.8629 -71.1786,-36.8661 -71.1707,-36.8721 -71.1643,-36.8827 -71.1640,-36.8869 -71.1660,-36.8904 -71.1665,-36.8988 -71.1691,-36.9063 -71.1740,-36.9144 -71.1745,-36.9219 -71.1457,-36.9375 -71.1412,-36.9515 -71.1488,-36.9654 -71.1668,-36.9754 -71.1811,-36.9753 -71.2007,-36.9714 -71.2038,-36.9719 -71.2062,-36.9714 -71.2126,-36.9724 -71.1929,-36.9868 -71.1615,-37.0028 -71.1541,-37.0135 -71.1450,-37.0617 -71.1324,-37.0776 -71.0946,-37.1034 -71.1306,-37.1201 -71.1448,-37.1333 -71.1531,-37.1548 -71.1535,-37.1759 -71.1510,-37.1954 -71.1520,-37.2148 -71.1631,-37.2357 -71.2027,-37.2749 -71.2111,-37.2927 -71.2101,-37.3154 -71.2002,-37.3435 -71.1738,-37.3916 -71.1419,-37.4251 -71.1286,-37.4432 -71.1232,-37.4665 -71.1263,-37.4863 -71.1419,-37.5244 -71.1472,-37.5439 -71.1450,-37.5549 -71.1328,-37.5726 -71.1334,-37.5844 -71.1386,-37.5906 -71.1627,-37.6025 -71.1779,-37.6145 -71.1894,-37.6259 -71.1963,-37.6400 -71.1978,-37.6609 -71.1905,-37.7061 -71.1387,-37.8385 -71.1004,-37.8974 -71.0931,-37.9402 -71.0666,-37.9784 -71.0575,-37.9993 -71.0519,-38.0203 -71.0429,-38.0366 -71.0155,-38.0655 -71.0129,-38.0710 -71.0121,-38.0767 -71.0129,-38.0823 -71.0155,-38.0879 -71.0290,-38.1046 -71.0285,-38.1229 -71.0155,-38.1623 -71.0145,-38.1651 -71.0141,-38.1676 -71.0145,-38.1703 -71.0234,-38.2037 -71.0252,-38.2343 -71.0222,-38.2647 -70.9792,-38.4247 -70.9560,-38.4594 -70.9228,-38.4830 -70.8853,-38.5030 -70.8542,-38.5276 -70.8398,-38.5644 -70.8431,-38.5845 -70.8532,-38.6000 -70.8785,-38.6278 -70.8889,-38.6431 -70.8906,-38.6495 -70.8913,-38.6605 -70.8885,-38.6688 -70.8825,-38.6750 -70.8778,-38.6816 -70.8793,-38.6914 -70.8849,-38.6946 -70.9150,-38.7064 -70.9208,-38.7122 -70.9350,-38.7358 -70.9505,-38.7472 -70.9706,-38.7504 -71.0100,-38.7463 -71.0151,-38.7464 -71.0155,-38.7463 -71.0539,-38.7466 -71.0841,-38.7571 -71.1424,-38.7922 -71.1583,-38.7988 -71.2335,-38.8088 -71.2415,-38.8116 -71.2465,-38.8185 -71.2592,-38.8327 -71.2852,-38.8502 -71.3762,-38.8880 -71.4054,-38.9105 -71.4213,-38.9353 -71.4357,-38.9991 -71.4365,-39.0260 -71.4182,-39.1006 -71.4075,-39.2360 -71.4175,-39.3180 -71.4257,-39.3421 -71.4446,-39.3560 -71.4661,-39.3672 -71.4820,-39.3830 -71.4831,-39.4022 -71.4671,-39.4338 -71.4759,-39.4491 -71.4880,-39.4611 -71.5069,-39.4883 -71.5211,-39.5013 -71.5474,-39.5323 -71.5011,-39.5656 -71.5090,-39.6017 -71.5255,-39.6150 -71.5379,-39.6155 -71.5550,-39.6128 -71.5585,-39.6131 -71.5605,-39.6128 -71.5819,-39.6147 -71.6037,-39.6190 -71.6178,-39.6167 -71.6324,-39.6076 -71.6411,-39.6000 -71.6774,-39.5685 -71.6898,-39.5684 -71.6898,-39.5684 -71.6952,-39.5684 -71.7109,-39.5836 -71.7198,-39.6014 -71.7242,-39.6234 -71.7215,-39.6448 -71.6995,-39.6735 -71.7043,-39.6902 -71.7143,-39.7084 -71.7198,-39.7263 -71.7160,-39.7475 -71.6975,-39.7900 -71.6924,-39.8116 -71.6901,-39.8335 -71.6849,-39.8479 -71.6747,-39.8592 -71.6400,-39.8835 -71.6267,-39.8951 -71.6221,-39.9099 -71.6303,-39.9310 -71.6675,-39.9951 -71.6728,-40.0005 -71.6799,-40.0044 -71.6860,-40.0095 -71.6883,-40.0181 -71.6862,-40.0291 -71.6786,-40.0503 -71.6764,-40.0608 -71.6890,-40.0983 -71.7217,-40.0938 -71.7668,-40.0769 -71.7713,-40.0773 -71.7722,-40.0769 -71.8062,-40.0797 -71.8195,-40.0929 -71.8200,-40.0996 -71.8126,-40.1084 -71.8084,-40.1161 -71.8103,-40.1246 -71.8145,-40.1338 -71.8220,-40.1644 -71.8222,-40.1745 -71.8176,-40.1847 -71.8191,-40.1882 -71.8278,-40.2029 -71.8292,-40.2101 -71.8215,-40.2272 -71.8074,-40.2423 -71.7762,-40.2672 -71.7555,-40.2915 -71.7482,-40.2965 -71.7354,-40.2986 -71.7345,-40.2978 -71.7300,-40.2986 -71.7257,-40.2953 -71.7239,-40.2900 -71.7185,-40.2863 -71.7069,-40.2824 -71.7042,-40.2828 -71.6922,-40.2885 -71.6848,-40.2953 -71.6807,-40.3039 -71.6792,-40.3138 -71.6795,-40.3241 -71.6840,-40.3402 -71.7245,-40.4130 -71.7345,-40.4211 -71.7423,-40.4208 -71.7847,-40.4113 -71.7872,-40.4120 -71.7902,-40.4113 -71.8019,-40.4145 -71.8097,-40.4264 -71.8463,-40.5160 -71.8643,-40.5424 -71.8673,-40.5497 -71.8661,-40.5594 -71.8564,-40.5703 -71.8532,-40.5796 -71.8586,-40.6164 -71.8788,-40.6471 -71.9551,-40.7093 -71.9611,-40.7204 -71.9267,-40.8277 -71.9162,-40.8501 -71.8764,-40.8957 -71.8654,-40.9134 -71.8569,-40.9383 -71.8569,-40.9577 -71.8732,-40.9990 -71.8729,-41.0102 -71.8726,-41.0202 -71.8583,-41.0572 -71.8595,-41.0789 -71.8681,-41.1146 -71.8714,-41.1504 -71.8768,-41.1667 -71.8869,-41.1726 -71.8949,-41.1798 -71.8939,-41.2003 -71.8814,-41.2336 -71.8788,-41.2492 -71.8832,-41.2698 -71.9077,-41.3359 -71.9094,-41.3677 -71.8978,-41.4054 -71.8898,-41.4229 -71.8853,-41.4367 -71.8843,-41.4511 -71.8867,-41.4704 -71.8942,-41.5002 -71.8936,-41.5128 -71.8862,-41.5297 -71.8736,-41.5451 -71.8624,-41.5560 -71.8587,-41.5673 -71.8690,-41.5845 -71.8832,-41.5949 -71.9173,-41.6102 -71.9315,-41.6229 -71.9314,-41.6530 -71.8745,-41.7155 -71.8641,-41.7486 -71.8624,-41.7861 -71.8444,-41.8133 -71.8201,-41.8378 -71.7995,-41.8675 -71.7799,-41.9392 -71.7806,-41.9564 -71.7854,-41.9723 -71.7861,-41.9864 -71.7747,-41.9996 -71.7680,-42.0074 -71.7493,-42.0244 -71.7451,-42.0319 -71.7417,-42.0839 -71.7549,-42.1044 -71.7786,-42.1200 -71.8068,-42.1303 -71.8773,-42.1397 -71.8898,-42.1442 -71.8992,-42.1526 -71.9063,-42.1631 -71.9150,-42.1723 -71.9263,-42.1759 -71.9480,-42.1673 -71.9614,-42.1449 -71.9775,-42.1253 -72.0098,-42.1247 -72.0100,-42.1248 -72.0153,-42.1247 -72.0454,-42.1447 -72.0569,-42.1705 -72.0644,-42.1976 -72.0827,-42.2212 -72.1085,-42.2409 -72.1302,-42.2633 -72.1392,-42.2876 -72.1270,-42.3130 -72.0754,-42.3500 -72.0662,-42.3689 -72.0821,-42.4234 -72.0807,-42.4338 -72.0512,-42.4699 -72.0447,-42.4812 -72.0474,-42.4910 -72.0983,-42.5108 -72.1281,-42.5299 -72.1487,-42.5571 -72.1539,-42.5926 -72.1509,-42.6005 -72.1401,-42.6148 -72.1371,-42.6241 -72.1380,-42.6317 -72.1469,-42.6557 -72.1453,-42.6698 -72.1311,-42.7039 -72.1267,-42.7197 -72.1182,-42.8638 -72.1250,-42.8986 -72.1476,-42.9637 -72.1540,-42.9987 -72.1348,-43.0422 -72.1016,-43.0785 -72.0599,-43.1054 -72.0153,-43.1204 -71.8674,-43.1332 -71.7756,-43.1614 -71.7557,-43.1725 -71.7485,-43.1901 -71.7512,-43.1992 -71.7606,-43.2164 -71.7631,-43.2254 -71.7625,-43.2353 -71.7569,-43.2510 -71.7550,-43.2592 -71.7539,-43.2770 -71.7562,-43.2953 -71.7657,-43.3062 -71.8051,-43.3000 -71.8077,-43.3004 -71.8106,-43.3000 -71.8299,-43.3034 -71.8695,-43.3176 -71.8949,-43.3192 -71.9072,-43.3220 -71.9128,-43.3297 -71.9147,-43.3597 -71.9178,-43.3678 -71.9250,-43.3743 -71.9329,-43.3781 -71.9403,-43.3828 -71.9464,-43.3918 -71.9465,-43.3984 -71.9423,-43.4267 -71.9476,-43.4342 -71.9563,-43.4386 -71.9606,-43.4435 -71.9529,-43.4532 -71.9428,-43.4569 -71.9393,-43.4562 -71.9373,-43.4569 -71.9269,-43.4548 -71.9165,-43.4509 -71.9093,-43.4497 -71.8916,-43.4534 -71.8743,-43.4626 -71.8638,-43.4774 -71.8641,-43.4986 -71.8643,-43.4993 -71.8838,-43.5192 -71.8870,-43.5245 -71.8793,-43.5389 -71.8566,-43.5426 -71.8516,-43.5425 -71.8511,-43.5426 -71.8282,-43.5422 -71.8062,-43.5442 -71.7953,-43.5494 -71.7890,-43.5554 -71.7843,-43.5615 -71.7782,-43.5675 -71.7717,-43.5720 -71.7292,-43.5948 -71.7198,-43.6022 -71.7162,-43.6141 -71.7091,-43.6716 -71.7147,-43.6844 -71.7312,-43.6974 -71.7498,-43.7052 -71.7919,-43.7172 -71.8087,-43.7260 -71.8189,-43.7394 -71.8247,-43.7581 -71.8210,-43.7744 -71.8026,-43.7808 -71.7994,-43.7800 -71.7971,-43.7808 -71.7755,-43.7756 -71.7643,-43.7700 -71.7605,-43.7714 -71.7584,-43.7936 -71.7611,-43.8027 -71.7663,-43.8096 -71.7698,-43.8173 -71.7673,-43.8284 -71.7613,-43.8345 -71.7424,-43.8418 -71.7342,-43.8462 -71.7213,-43.8587 -71.6654,-43.9263 -71.6648,-43.9397 -71.6751,-43.9598 -71.7677,-44.0641 -71.8012,-44.0860 -71.8407,-44.0944 -71.8642,-44.1078 -71.8495,-44.1453 -71.8180,-44.1878 -71.8106,-44.2052 -71.8118,-44.2225 -71.8334,-44.2521 -71.8373,-44.2702 -71.8294,-44.2868 -71.8171,-44.3006 -71.8095,-44.3148 -71.8159,-44.3336 -71.8305,-44.3407 -71.8531,-44.3481 -71.8696,-44.3592 -71.8661,-44.3771 -71.8275,-44.4032 -71.8221,-44.4031 -71.8220,-44.4032 -71.7807,-44.4027 -71.7378,-44.3934 -71.6998,-44.3934 -71.6487,-44.4026 -71.6433,-44.4025 -71.6432,-44.4026 -71.4431,-44.4016 -71.2923,-44.4233 -71.2405,-44.4239 -71.2153,-44.4276 -71.1918,-44.4380 -71.1768,-44.4522 -71.1711,-44.4663 -71.1361,-44.5204 -71.1281,-44.5303 -71.1279,-44.5494 -71.1371,-44.5706 -71.1528,-44.5808 -71.1727,-44.5842 -71.1943,-44.5848 -71.2049,-44.5917 -71.2189,-44.6071 -71.2404,-44.6388 -71.2461,-44.6582 -71.2448,-44.6744 -71.2365,-44.7095 -71.2436,-44.7479 -71.2683,-44.7771 -71.3033,-44.7956 -71.3382,-44.8011 -71.3789,-44.7919 -71.4571,-44.7522 -71.4971,-44.7429 -71.5002,-44.7434 -71.5026,-44.7429 -71.5459,-44.7504 -71.6362,-44.7798 -71.6726,-44.7786 -71.7400,-44.7577 -71.7627,-44.7544 -71.7657,-44.7547 -71.7682,-44.7544 -71.7924,-44.7573 -71.8065,-44.7668 -71.8187,-44.7786 -71.8369,-44.7882 -71.8571,-44.7906 -71.9876,-44.7725 -72.0098,-44.7655 -72.0478,-44.7548 -72.0510,-44.7554 -72.0533,-44.7548 -72.0817,-44.7608 -72.0942,-44.7828 -72.0796,-44.8371 -72.0803,-44.8532 -72.0864,-44.8866 -72.0790,-44.9022 -72.0588,-44.9068 -72.0543,-44.9066 -72.0533,-44.9068 -72.0144,-44.9048 -71.9752,-44.9153 -71.9350,-44.9338 -71.8949,-44.9472 -71.8907,-44.9468 -71.8894,-44.9472 -71.8497,-44.9434 -71.8285,-44.9352 -71.8057,-44.9292 -71.7864,-44.9277 -71.7654,-44.9318 -71.7503,-44.9406 -71.7241,-44.9644 -71.7078,-44.9737 -71.6672,-44.9792 -71.6642,-44.9788 -71.6617,-44.9792 -71.6264,-44.9752 -71.5942,-44.9781 -71.5607,-45.0058 -71.5206,-45.0658 -71.5025,-45.1117 -71.4927,-45.1233 -71.4544,-45.1590 -71.4009,-45.1860 -71.3687,-45.2088 -71.3441,-45.2342 -71.3227,-45.2672 -71.3170,-45.2995 -71.3398,-45.3228 -71.3562,-45.3328 -71.3798,-45.3592 -71.3948,-45.3708 -71.4134,-45.3787 -71.5138,-45.4084 -71.5158,-45.4184 -71.5071,-45.4388 -71.4868,-45.4679 -71.4836,-45.4827 -71.4946,-45.4985 -71.5313,-45.5190 -71.5657,-45.5237 -71.6392,-45.5200 -71.6409,-45.5202 -71.6447,-45.5200 -71.6776,-45.5236 -71.7192,-45.5332 -71.7551,-45.5493 -71.7706,-45.5724 -71.7672,-45.5762 -71.7520,-45.5873 -71.7483,-45.5943 -71.7507,-45.6009 -71.7570,-45.6066 -71.7643,-45.6117 -71.7701,-45.6165 -71.7879,-45.6418 -71.7914,-45.6530 -71.7934,-45.6695 -71.7919,-45.6769 -71.7882,-45.6829 -71.7860,-45.6894 -71.7891,-45.6985 -71.8050,-45.7171 -71.8073,-45.7240 -71.8040,-45.7399 -71.7946,-45.7509 -71.7684,-45.7687 -71.7545,-45.7868 -71.7569,-45.8019 -71.7656,-45.8159 -71.7704,-45.8310 -71.7640,-45.8482 -71.7487,-45.8576 -71.7064,-45.8685 -71.6714,-45.8840 -71.6468,-45.9057 -71.6299,-45.9341 -71.6178,-45.9705 -71.6546,-45.9994 -71.7290,-46.0577 -71.7409,-46.0712 -71.7614,-46.1006 -71.7756,-46.1126 -71.7978,-46.1219 -71.8218,-46.1268 -71.8960,-46.1334 -71.9100,-46.1363 -71.9181,-46.1421 -71.9202,-46.1523 -71.9150,-46.1567 -71.9060,-46.1589 -71.8968,-46.1630 -71.8484,-46.1961 -71.7883,-46.2247 -71.7688,-46.2445 -71.7647,-46.2729 -71.7684,-46.3185 -71.7671,-46.3580 -71.7574,-46.3930 -71.6904,-46.5192 -71.6860,-46.5381 -71.6913,-46.5538 -71.6987,-46.5691 -71.7010,-46.5871 -71.6857,-46.6596 -71.6927,-46.6901 -71.7257,-46.7156 -71.7815,-46.7381 -71.7987,-46.7510 -71.8251,-46.7790 -71.8396,-46.7886 -71.8613,-46.7945 -71.9130,-46.7949 -71.9396,-46.7995 -71.9556,-46.8140 -71.9562,-46.8236 -71.9517,-46.8311 -71.9455,-46.8383 -71.9409,-46.8461 -71.9417,-46.8543 -71.9473,-46.8609 -71.9541,-46.8675 -71.9587,-46.8748 -71.9751,-46.9340 -71.9758,-46.9485 -71.9657,-46.9622 -71.9322,-46.9838 -71.9203,-46.9985 -71.9402,-47.0144 -72.0055,-47.0422 -72.0107,-47.0619 -71.9898,-47.0805 -71.9258,-47.1068 -71.8989,-47.1214 -71.8796,-47.1425 -71.8680,-47.1689 -71.8688,-47.1966 -71.8862,-47.2219 -71.9161,-47.2338 -71.9458,-47.2277 -72.0098,-47.1982 -72.0303,-47.1975 -72.0306,-47.1977 -72.0358,-47.1975 -72.0470,-47.2037 -72.0506,-47.2158 -72.0487,-47.2329 -72.0422,-47.2496 -72.0360,-47.2596 -72.0349,-47.2697 -72.0436,-47.2870 -72.0634,-47.3119 -72.1509,-47.3818 -72.1760,-47.4075 -72.1928,-47.4175 -72.2120,-47.4199 -72.2629,-47.4138 -72.2669,-47.4140 -72.2684,-47.4138 -72.2937,-47.4150 -72.3342,-47.4265 -72.3521,-47.4363 -72.3667,-47.4510 -72.3760,-47.4745 -72.3638,-47.4834 -72.3430,-47.4880 -72.3264,-47.4984 -72.3251,-47.5119 -72.3431,-47.5657 -72.3454,-47.5852 -72.3499,-47.6023 -72.3572,-47.6183 -72.3683,-47.6350 -72.4628,-47.7491 -72.4799,-47.7828 -72.5059,-47.8529 -72.5297,-47.8827 -72.5494,-47.9148 -72.5408,-47.9458 -72.5149,-47.9730 -72.4829,-47.9938 -72.4616,-48.0011 -72.4424,-48.0042 -72.4247,-48.0096 -72.4081,-48.0241 -72.4043,-48.0332 -72.4033,-48.0423 -72.4009,-48.0509 -72.3935,-48.0578 -72.3825,-48.0622 -72.3485,-48.0704 -72.3387,-48.0908 -72.3150,-48.2112 -72.3170,-48.2310 -72.3296,-48.2686 -72.3311,-48.2855 -72.3231,-48.2990 -72.3092,-48.3160 -72.3006,-48.3333 -72.3078,-48.3475 -72.3181,-48.3497 -72.3449,-48.3437 -72.3587,-48.3430 -72.3596,-48.3432 -72.3641,-48.3430 -72.3769,-48.3464 -72.3826,-48.3503 -72.3942,-48.3643 -72.4222,-48.3912 -72.4386,-48.4004 -72.5020,-48.4151 -72.5434,-48.4313 -72.5823,-48.4521 -72.6202,-48.5100 -72.6121,-48.5610 -72.5897,-48.6159 -72.5835,-48.7219 -72.5876,-48.7605 -72.5978,-48.7911 -72.6243,-48.8197 -72.6775,-48.8630 -72.7484,-48.9138 -72.7867,-48.9339 -72.8304,-48.9445 -72.9277,-48.9523 -72.9751,-48.9643 -73.0152,-48.9904 -73.0230,-48.9982 -73.0231,-48.9982 -73.0840,-49.0587 -73.0977,-49.0810 -73.1006,-49.0958 -73.1003,-49.1087 -73.1026,-49.1213 -73.1127,-49.1349 -73.1768,-49.1893 -73.1898,-49.2143 -73.1886,-49.2391 -73.1681,-49.2582 -73.1031,-49.2666 -73.1037,-49.2728 -73.1361,-49.2787 -73.1468,-49.2856 -73.1505,-49.3037 -73.4633,-49.3077 -73.4766,-49.3172 -73.4760,-49.3422 -73.4675,-49.3750 -73.4722,-49.3876 -73.4893,-49.4007 -73.5278,-49.4167 -73.5459,-49.4278 -73.5566,-49.4440 -73.5562,-49.4632 -73.5498,-49.4776 -73.5481,-49.4910 -73.5614,-49.5081 -73.5921,-49.5300 -73.5935,-49.5405 -73.5810,-49.5592 -73.5677,-49.5718 -73.5384,-49.5940 -73.5266,-49.6090 -73.5237,-49.6285 -73.5336,-49.6444 -73.5462,-49.6595 -73.5519,-49.6768 -73.5450,-49.6927 -73.5303,-49.7060 -73.4981,-49.7278 -73.4706,-49.7600 -73.4685,-49.7871 -73.4871,-49.8111 -73.5400,-49.8476 -73.5443,-49.8616 -73.5438,-49.8767 -73.5474,-49.8945 -73.5595,-49.9081 -73.5739,-49.9201 -73.5782,-49.9324 -73.5599,-49.9471 -73.5057,-49.9787 -73.4930,-49.9912 -73.4841,-50.0095 -73.4862,-50.0227 -73.5370,-50.0831 -73.5470,-50.1137 -73.5361,-50.1408 -73.4113,-50.2170 -73.3706,-50.2320 -73.3518,-50.2437 -73.3284,-50.2684 -73.3069,-50.2996 -73.2898,-50.3331 -73.2797,-50.3645 -73.2782,-50.3847 -73.2812,-50.4256 -73.2795,-50.4452 -73.2673,-50.4990 -73.2673,-50.5566 -73.2631,-50.5730 -73.2504,-50.5895 -73.2082,-50.6265 -73.1977,-50.6414 -73.1908,-50.6785 -73.1922,-50.7167 -73.1832,-50.7495 -73.1450,-50.7702 -73.1016,-50.7706 -73.1014,-50.7706 -73.0961,-50.7706 -73.0517,-50.7578 -73.0101,-50.7364 -72.9384,-50.6854 -72.9029,-50.6666 -72.7784,-50.6196 -72.7597,-50.6170 -72.7390,-50.6243 -72.6882,-50.6595 -72.6681,-50.6678 -72.6629,-50.6677 -72.6626,-50.6678 -72.6181,-50.6668 -72.5491,-50.6151 -72.5078,-50.6018 -72.3888,-50.6203 -72.3507,-50.6373 -72.3274,-50.6416 -72.3083,-50.6489 -72.3104,-50.6649 -72.3465,-50.7151 -72.3532,-50.7290 -72.3529,-50.7432 -72.3436,-50.7606 -72.3166,-50.7887 -72.2894,-50.8106 -72.2690,-50.8363 -72.2622,-50.8751 -72.2714,-50.9607 -72.2825,-51.0073 -72.2989,-51.0292 -72.3280,-51.0326 -72.3441,-51.0370 -72.3562,-51.0467 -72.3736,-51.0666 -72.4020,-51.0921 -72.4101,-51.1058 -72.4086,-51.1261 -72.3877,-51.1606 -72.3549,-51.1839 -72.2794,-51.2168 -72.2631,-51.2306 -72.2643,-51.2452 -72.2760,-51.2596 -72.3189,-51.2980 -72.3260,-51.3126 -72.3288,-51.3345 -72.3291,-51.3908 -72.3345,-51.4088 -72.3400,-51.4163 -72.3472,-51.4230 -72.3538,-51.4305 -72.3572,-51.4404 -72.3565,-51.4494 -72.3546,-51.4590 -72.3538,-51.4683 -72.3567,-51.4760 -72.4278,-51.5224 -72.4556,-51.5527 -72.4346,-51.5760 -72.4075,-51.5797 -72.4023,-51.5797 -72.4020,-51.5797 -72.3809,-51.5796 -72.3570,-51.5835 -72.3364,-51.5994 -72.3283,-51.6162 -72.3196,-51.6715 -72.3062,-51.6915 -72.2866,-51.7015 -72.1926,-51.7207 -72.1476,-51.7394 -72.0781,-51.7786 -72.0153,-51.8278 -71.9872,-51.8449 -71.9640,-51.8680 -71.9540,-51.8960 -71.9657,-51.9279 -71.9707,-51.9706 -71.9232,-51.9901 -71.8431,-51.9908 -71.6176,-51.9927 -71.3921,-51.9947 -71.1666,-51.9968 -70.9412,-51.9987 -70.7156,-52.0007 -70.4902,-52.0027 -70.2647,-52.0046 -70.0392,-52.0066 -69.9582,-52.0074 -69.8388,-52.0394 -69.6694,-52.0847 -69.4908,-52.1325 -69.2177,-52.1380 -69.0131,-52.1791 -68.8641,-52.2332 -68.8260,-52.2432 -68.6272,-52.2636 -68.6091,-52.2680 -68.5786,-52.2803 -68.5623,-52.2837 -68.4833,-52.2954 -68.4600,-52.2999 -68.4535,-52.3107 -68.4541,-52.3641 -68.6331,-52.6393 -68.6331,-52.6396 -68.6349,-52.9072 -68.6367,-53.1751 -68.6385,-53.4429 -68.6399,-53.6633 -68.6415,-53.8948 -68.6420,-53.9788 -68.6438,-54.2466 -68.6456,-54.5144 -68.6474,-54.7823 -68.6474,-54.7830 -68.6475,-54.7991 -68.6478,-54.8537 -68.6596,-54.8862 -68.6695,-54.9135 -68.6638,-54.9128 -68.6640,-54.9135 -68.5821,-54.9042 -68.2594,-54.8770 -68.0606,-54.8787 -67.7335,-54.8996 -67.4117,-54.9030 -67.2081,-54.9187 -66.8584,-54.9952 -66.5268,-55.1081 -66.4342,-55.1209 -66.3635,-55.1239 -66.0956,-55.2500 -66.0865,-55.2165 -66.0812,-55.1971 -66.0287,-55.1638 -65.9020,-55.1460 -65.6856,-55.1633 -65.5807,-55.1600 -65.2696,-55.1011 -64.9585,-55.0422 -64.9105,-55.0455 -64.7426,-55.0902 -64.5672,-55.0946 -64.4669,-55.0771 -64.3341,-55.0319 -64.1935,-55.0299 -63.8802,-55.0008 -63.7837,-54.9793 -63.6802,-54.9426 -63.5908,-54.8952 -63.5298,-54.8465 -63.4899,-54.7925 -63.4763,-54.7431 -63.4847,-54.6878 -63.5191,-54.6313 -63.5733,-54.5853 -63.6438,-54.5504 -63.7136,-54.5319 -63.7932,-54.5233 -64.0622,-54.5197 -64.3312,-54.5161 -64.6151,-54.5252 -64.7594,-54.5591 -64.9740,-54.4786 -65.0980,-54.4526 -65.3629,-54.4420 -65.6809,-54.4543 -65.8868,-54.4173 -66.2977,-54.2752 -66.4964,-54.1326 -66.7379,-54.0481 -67.1893,-53.8481 -67.2511,-53.8072 -67.2981,-53.7379 -67.3481,-53.6921 -67.5050,-53.5987 -67.5090,-53.5963 -67.6785,-53.4954 -67.7287,-53.4395 -67.8069,-53.2767 -67.8892,-53.1718 -67.9103,-53.0170 -67.9763,-52.8783 -68.0390,-52.8037 -68.1997,-52.6723 -68.2849,-52.5861 -68.2743,-52.5562 -68.1530,-52.4846 -68.0858,-52.4115 -68.0612,-52.3323 -68.0784,-52.2460 -68.1734,-52.1166 -68.4610,-51.8571 -68.5832,-51.6860 -68.6246,-51.6003 -68.6654,-51.4379 -68.7978,-51.1674 -68.8413,-50.9748 -68.8052,-50.6910 -68.7434,-50.5843 -68.6576,-50.4978 -68.5451,-50.4414 -68.3164,-50.3824 -67.8688,-50.2259 -67.6415,-50.0980 -67.5177,-49.9945 -67.4988,-49.9662 -67.4350,-49.8014 -67.3776,-49.5065 -67.3012,-49.3017 -67.3058,-49.1634 -67.2577,-49.0953 -67.1602,-49.0196 -67.0333,-48.9679 -66.9041,-48.8337 -66.8524,-48.7964 -66.6842,-48.7372 -66.4696,-48.6074 -66.3278,-48.5748 -66.1470,-48.5072 -66.0797,-48.4622 -66.0200,-48.3834 -65.9807,-48.3531 -65.6853,-48.2377 -65.6391,-48.1991 -65.5851,-48.1156 -65.5082,-48.0404 -65.4878,-47.9993 -65.4869,-47.9237 -65.5503,-47.8035 -65.5563,-47.7686 -65.4610,-47.5552 -65.4344,-47.3315 -65.4830,-47.1708 -65.5477,-47.0662 -65.7152,-46.9399 -65.8677,-46.8760 -65.9838,-46.8630 -66.2590,-46.8668 -66.6105,-46.8273 -66.9261,-46.5704 -67.1659,-46.4451 -67.2197,-46.3984 -67.2726,-46.3057 -67.3130,-46.1693 -67.3080,-46.1068 -67.2772,-46.0418 -67.2255,-45.9849 -67.0978,-45.8935 -67.0619,-45.8303 -67.0338,-45.7176 -66.9431,-45.6429 -66.7957,-45.4550 -66.7456,-45.4107 -66.6923,-45.4023 -66.5409,-45.4117 -66.4318,-45.3926 -66.3515,-45.3543 -66.1770,-45.2292 -66.1248,-45.2050 -65.9488,-45.2267 -65.6376,-45.2423 -65.4927,-45.2059 -65.3840,-45.1462 -65.3362,-45.0902 -65.2484,-44.9139 -65.2510,-44.8501 -65.2945,-44.7584 -65.2600,-44.7322 -65.1554,-44.6895 -65.0865,-44.6410 -65.0229,-44.5799 -64.9921,-44.5223 -64.9443,-44.3332 -64.9689,-44.1970 -64.9238,-44.0153 -64.9379,-43.8838 -65.0271,-43.7661 -65.0233,-43.7204 -64.9930,-43.6710 -64.8047,-43.5122 -64.7380,-43.3981 -64.6892,-43.3587 -64.5940,-43.3226 -64.3015,-43.2453 -64.0037,-43.0903 -63.6644,-43.0222 -63.5149,-42.9751 -63.4116,-42.9026 -63.3380,-42.7834 -63.3125,-42.6848 -63.3036,-42.5716 -63.3323,-42.2586 -63.3687,-42.1768 -63.4724,-42.0285 -63.5242,-41.9704 -63.5810,-41.9292 -63.7081,-41.8860 -63.8527,-41.8845 -64.0019,-41.9188 -64.2185,-42.0025 -64.4543,-42.0378 -64.6546,-42.0189 -64.7322,-41.9986 -64.7742,-41.9745 -64.7797,-41.9526 -64.7212,-41.8059 -64.7359,-41.6674 -64.7265,-41.5108 -64.7486,-41.4280 -64.8242,-41.3133 -64.8557,-41.2328 -64.8709,-41.1357 -64.8523,-41.0607 -64.8229,-41.0398 -64.7316,-41.0475 -64.4354,-41.1448 -64.1393,-41.2420 -63.9488,-41.3352 -63.7472,-41.3719 -63.5979,-41.3749 -63.3314,-41.3643 -63.0649,-41.3537 -62.8938,-41.3182 -62.6284,-41.2327 -62.2502,-41.0730 -62.1393,-41.0114 -62.0649,-40.9368 -61.9416,-40.7351 -61.9085,-40.6437 -61.9215,-40.5615 -61.9675,-40.5015 -62.1062,-40.3839 -62.1373,-40.3203 -62.0771,-40.1921 -62.0612,-40.0604 -61.9267,-39.9818 -61.8612,-39.8931 -61.8240,-39.6587 -61.7709,-39.4654 -61.6567,-39.3708 -61.5918,-39.2724 -61.5540,-39.2408 -61.5015,-39.2205 -61.3504,-39.1924 -61.1077,-39.2109 -60.9788,-39.1868 -60.7992,-39.1782 -60.3358,-39.1194 -59.9763,-39.0572 -59.7793,-39.0461 -59.5211,-38.9815 -59.2553,-38.9388 -58.9895,-38.8961 -58.6991,-38.8038 -58.4816,-38.7577 -58.0849,-38.6371 -57.7367,-38.4843 -57.4132,-38.3042 -57.3355,-38.2343 -57.2882,-38.1629 -57.2674,-38.0961 -57.2540,-37.9600 -57.2329,-37.9106 -56.8751,-37.5740 -56.6516,-37.2567 -56.4534,-37.0269 -56.4059,-36.8784 -56.4096,-36.6236 -56.4400,-36.4685 -56.4452,-36.3429 -56.4858,-36.2563 -56.5393,-36.1860 -56.6181,-36.1266 -56.7128,-36.0958 -56.9319,-36.1217 -57.0240,-36.0457 -57.1248,-35.8997 -57.1265,-35.8534 -56.9290,-35.6045 -56.8788,-35.5097 -56.8759,-35.3969 -56.9287,-35.2697 -57.0149,-35.1533 -57.1202,-35.0422 -57.5121,-34.7598 -57.5740,-34.7033 -57.5828,-34.6751 -57.3912,-34.6604 -57.2738,-34.6820 -57.1744,-34.7289 -56.9975,-34.8535 -56.6735,-34.9530 -56.4517,-35.0874 -56.3300,-35.1196 -56.2078,-35.1360 -56.0546,-35.1206 -55.7763,-35.0134 -55.6489,-34.9922 -55.4829,-35.0237 -55.2898,-35.1081 -55.1684,-35.1256 -54.9885,-35.1739 -54.8928,-35.1779 -54.7919,-35.1483 -54.5116,-35.0333 -54.2314,-34.9183 -54.0387,-34.8611 -53.9853,-34.8331 -53.8093,-34.6538 -53.6130,-34.5513 -53.5506,-34.5001 -53.5043,-34.3871 -53.4792,-34.3261 -53.3027,-34.1446 -53.2455,-33.9616 -53.2152,-33.9109 -53.0456,-33.7969 -52.7046,-33.5207 -52.5618,-33.3766 -52.5612,-33.8695 -52.5606,-34.3625 -52.5601,-34.8554 -52.5595,-35.3483 -52.5589,-35.8412 -52.5583,-36.3342 -52.5577,-36.8271 -52.5572,-37.3200 -52.5566,-37.8129 -52.5560,-38.3059 -52.5554,-38.7988 -52.5548,-39.2917 -52.5542,-39.7846 -52.5537,-40.2776 -52.5531,-40.7705 -52.5525,-41.2634 -52.5519,-41.7563 -52.5513,-42.2493 -52.5507,-42.7422 -52.5502,-43.2351 -52.5496,-43.7280 -52.5490,-44.2210 -52.5484,-44.7139 -52.5478,-45.2068 -52.5473,-45.6997 -52.5467,-46.1926 -52.5461,-46.6856 -52.5455,-47.1785 -52.5449,-47.6714 -52.5443,-48.1643 -52.5438,-48.6573 -52.5432,-49.1502 -52.5426,-49.6431 -52.5420,-50.1360 -52.5414,-50.6290 -52.5408,-51.1219 -52.5403,-51.6148 -52.5397,-52.1077 -52.5391,-52.6007 -52.5385,-53.0936 -52.5379,-53.5865 -52.5374,-54.0794 -52.5368,-54.5724 -52.5362,-55.0653 -52.5356,-55.5582 -52.5350,-56.0511 -52.5344,-56.5441 -52.5339,-57.0370 -52.5333,-57.5299 -52.5333,-57.8848 -52.5333,-58.3393 -52.5332,-58.7938 -52.5332,-59.2484 -52.5332,-59.7029 -52.5332,-60.1575 -52.5332,-60.6120 -52.5332,-61.0666 -52.5332,-61.5211 -52.5332,-61.9757 -52.5331,-62.4302 -52.5331,-62.8848 -52.5331,-63.3848 -52.5331,-63.8848 -52.5331,-64.3848 -52.5331,-64.8848 -52.5331,-65.3848 -52.5330,-65.8848 -52.5330,-66.3848 -52.5330,-66.8848 -52.5330,-67.3848 -52.5330,-67.8847 -52.5330,-68.2695 -52.5330,-68.6542 -52.5330,-69.0389 -52.5329,-69.4934 -52.5329,-69.9480 -52.5329,-70.4025 -52.5329,-70.8571 -52.5329,-71.3116 -52.5329,-71.7662 -52.5329,-72.2207 -52.5328,-72.6752 -52.5328,-73.1298 -52.5328,-73.5843 -52.5328,-74.0389 -52.5328,-74.5355 -52.5328,-75.0321 -52.5327,-75.5287 -52.5327,-76.0254 -52.5327,-76.5220 -52.5327,-77.0186 -53.0106,-76.9076 -53.4886,-76.7966 -53.9665,-76.6856 -54.4444,-76.5745 -54.9223,-76.4635 -55.4003,-76.3525 -55.8782,-76.2415 -56.3561,-76.1305 -56.8341,-76.0195 -57.3120,-75.9084 -57.7899,-75.7974 -58.2678,-75.6864 -58.7458,-75.5754 -59.2237,-75.4644 -59.7016,-75.3534 -60.1796,-75.2424 -60.6575,-75.1313 -61.1288,-75.0219 -61.3512,-75.0286 -61.2253,-74.9807 -61.0875,-74.9086 -61.0058,-74.8257 -60.9900,-74.7851 -60.9939,-74.7482 -60.9812,-74.7346 -60.9562,-74.7288 -60.7878,-74.7167 -60.6467,-74.6988 -60.5156,-74.6731 -60.4016,-74.6418 -60.2602,-74.5835 -60.1212,-74.4813 -60.0025,-74.4287 -59.9473,-74.3961 -59.8856,-74.3456 -59.8601,-74.3019 -59.8629,-74.2510 -59.8935,-74.2053 -59.9440,-74.1669 -60.0241,-74.1300 -60.1295,-74.0941 -60.2672,-74.0649 -60.2892,-74.0509 -60.2720,-74.0245 -60.1823,-73.9611 -60.1276,-73.8759 -60.0166,-73.7803 -59.9879,-73.7422 -59.9920,-73.6829 -60.0592,-73.6170 -60.0541,-73.5724 -60.0709,-73.5286 -60.0463,-73.5218 -59.7567,-73.4870 -59.6320,-73.4633 -59.4617,-73.4139 -59.3482,-73.3618 -59.2858,-73.3155 -59.2529,-73.2716 -59.2479,-73.2169 -59.2964,-73.1483 -59.2111,-73.0707 -59.1825,-72.9955 -59.2546,-72.8471 -59.3144,-72.7939 -59.3988,-72.7551 -59.5169,-72.7189 -59.6508,-72.6895 -59.8088,-72.6672 -59.8841,-72.5863 -60.0046,-72.5185 -59.9802,-72.4871 -59.9426,-72.4610 -59.7714,-72.4342 -59.6680,-72.4113 -59.5696,-72.3789 -59.4965,-72.3415 -59.4517,-72.3004 -59.4244,-72.2468 -59.4249,-72.1975 -59.4495,-72.1534 -59.5061,-72.1064 -59.5969,-72.0619 -59.7744,-72.0075 -59.9863,-71.9692 -60.0425,-71.9273 -60.1513,-71.8723 -60.1631,-71.8506 -60.1079,-71.7990 -60.0968,-71.7636 -60.1402,-71.6214 -60.1727,-71.5886 -60.2179,-71.5611 -60.4254,-71.4843 -60.3252,-71.4277 -60.2768,-71.3791 -60.2643,-71.3369 -60.2907,-71.2792 -60.2831,-71.2533 -60.2622,-71.2441 -60.1078,-71.2117 -60.0090,-71.1777 -59.9305,-71.1343 -59.8808,-71.0813 -59.8627,-71.0158 -59.8833,-70.9471 -59.9348,-70.8851 -60.0394,-70.8060 -59.9013,-70.7363 -59.8287,-70.6725 -59.7977,-70.5919 -59.8245,-70.5103 -59.8855,-70.4502 -59.9820,-70.3963 -60.1141,-70.3516 -60.2602,-70.3222 -60.2654,-70.3217 -60.4427,-70.3025 -60.6466,-70.2956 -60.9296,-70.3034 -61.0910,-70.3189 -61.2732,-70.2843 -61.2366,-70.2184 -60.9215,-70.1738 -60.8142,-70.1541 -60.6836,-70.1188 -60.5884,-70.0787 -60.5311,-70.0371 -60.5006,-69.9891 -60.4948,-69.9294 -60.5124,-69.8690 -60.5864,-69.7975 -60.7221,-69.7311 -60.8518,-69.6917 -61.1445,-69.6304 -61.2091,-69.6093 -61.2118,-69.5974 -61.1448,-69.5369 -61.1340,-69.4903 -61.1543,-69.4378 -61.2362,-69.3268 -61.3262,-69.2565 -61.6152,-69.1032 -61.7759,-69.0395 -61.9701,-68.9860 -62.1875,-68.9485 -62.4944,-68.9205 -62.5627,-68.9046 -62.6021,-68.8839 -62.6239,-68.8555 -62.6314,-68.8139 -62.6034,-68.7344 -62.5419,-68.6765 -62.3693,-68.5710 -62.3200,-68.5186 -62.2930,-68.4673 -62.2898,-68.4192 -62.3106,-68.3725 -62.3515,-68.3321 -62.4147,-68.2938 -62.5444,-68.2474 -62.7091,-68.2205 -62.9043,-68.2095 -63.3364,-68.2033 -63.5513,-68.2183 -63.8565,-68.2589 -64.1469,-68.2896 -64.4088,-68.3308 -64.4356,-68.3306 -64.3293,-68.2838 -64.2607,-68.2440 -64.2204,-68.2051 -64.1984,-68.1567 -64.2057,-68.0768 -64.2397,-68.0312 -64.3307,-67.9505 -64.3422,-67.9168 -64.3331,-67.8837 -64.2777,-67.8310 -64.0857,-67.7212 -64.0442,-67.6782 -64.0231,-67.6338 -64.0240,-67.5894 -64.0448,-67.5507 -64.1959,-67.4133 -64.2210,-67.3780 -64.2028,-67.3172 -64.2066,-67.2546 -64.1637,-67.1997 -64.1158,-67.1832 -64.0362,-67.1675 -63.6192,-67.1111 -63.4267,-67.0652 -63.3527,-67.0378 -63.2866,-67.0025 -63.1782,-66.8989 -63.1299,-66.8756 -63.0466,-66.8761 -62.8285,-66.9194 -62.6924,-66.9342 -62.5336,-66.9348 -62.3734,-66.9190 -62.2635,-66.8991 -62.1671,-66.8732 -61.9148,-66.7670 -61.7068,-66.7054 -61.4154,-66.6461 -61.0947,-66.5626 -60.8540,-66.5486 -60.7291,-66.5244 -60.6250,-66.4909 -60.5456,-66.4517 -60.4595,-66.3864 -60.3874,-66.3027 -60.2849,-66.2540 -60.2298,-66.2147 -60.0677,-66.0454 -60.0313,-65.9785 -60.0327,-65.9365 -60.0534,-65.8959 -60.0933,-65.8554 -60.1472,-65.8215 -60.2135,-65.7937 -60.3038,-65.7676 -60.5319,-65.7290 -60.8435,-65.7019 -61.2029,-65.7020 -61.2515,-65.6883 -61.2513,-65.6584 -61.1985,-65.5771 -61.1938,-65.5303 -61.2103,-65.4948 -61.3007,-65.4050 -61.1810,-65.3388 -61.0816,-65.2257 -60.8651,-65.2061 -60.7796,-65.1870 -60.6963,-65.1588 -60.5925,-65.1045 -60.4954,-65.0265 -60.2958,-65.0487 -60.3347,-65.0991 -60.3377,-65.1369 -60.3183,-65.1870 -60.2753,-65.2360 -60.1931,-65.2938 -60.1085,-65.3361 -59.9845,-65.3823 -59.8462,-65.4190 -59.7294,-65.4402 -59.6107,-65.4529 -59.4933,-65.4562 -59.3802,-65.4496 -59.2539,-65.4307 -59.1421,-65.4015 -59.0497,-65.3636 -58.9811,-65.3188 -58.9456,-65.2774 -58.9330,-65.2243 -58.9506,-65.1783 -58.9967,-65.1319 -59.1155,-65.0560 -59.2415,-64.9950 -59.2808,-64.9804 -59.3252,-64.7604 -59.2078,-64.7238 -58.9689,-64.7592 -58.8657,-64.7617 -58.7565,-64.7553 -58.6378,-64.7385 -58.5351,-64.7140 -58.4271,-64.6766 -58.2729,-64.6102 -58.2263,-64.5995 -58.1195,-64.6059 -57.9027,-64.6321 -57.7776,-64.6956 -57.6894,-64.7293 -57.5685,-64.7598 -57.4404,-64.7779 -57.3135,-64.7830 -57.1710,-64.7747 -57.0327,-64.7535 -56.9000,-64.7214 -56.7728,-64.6801 -56.6701,-64.6365 -56.5561,-64.5685 -56.4816,-64.4917 -56.3306,-64.4401 -56.2367,-64.3958 -56.1507,-64.3317 -56.1080,-64.2676 -56.1037,-64.2147 -56.1250,-64.1688 -56.1708,-64.1258 -56.2427,-64.0870 -56.3377,-64.0541 -56.4093,-64.0374 -56.4529,-64.0273 -56.5584,-64.0141 -56.6960,-64.0099 -56.7313,-63.9993 -56.7310,-63.9761 -56.6381,-63.9069 -56.6091,-63.8372 -56.4083,-63.8062 -56.3806,-63.8020 -56.2311,-63.7568 -56.0804,-63.7841 -55.9823,-63.7914 -55.8461,-63.7863 -55.7169,-63.7662 -55.6408,-63.7438 -55.5311,-63.6920 -55.3861,-63.6474 -55.2776,-63.5715 -55.0507,-63.5596 -54.9395,-63.5400 -54.8408,-63.5116 -54.7188,-63.4556 -54.6210,-63.3755 -54.5774,-63.2867 -54.5945,-63.1968 -54.6340,-63.1479 -54.6788,-63.1135 -54.8206,-63.0496 -54.9469,-63.0168 -55.1860,-62.9853 -55.4178,-62.9321 -55.5047,-62.9221 -55.6310,-62.9178 -55.7638,-62.8520 -55.9299,-62.8096 -56.0410,-62.7966 -56.2227,-62.7950 -56.3807,-62.7706 -56.4920,-62.7669 -56.6303,-62.7792 -56.7573,-62.8096 -56.8746,-62.8539 -57.0435,-62.9392 -57.1795,-62.9810 -57.2943,-63.0004 -57.5385,-63.0212 -57.7723,-63.0765 -58.0125,-63.1084 -58.1980,-63.1624 -58.3350,-63.1803 -58.4242,-63.2007 -58.5019,-63.2291 -58.5999,-63.2808 -59.0139,-63.3384 -59.2731,-63.3928 -59.3521,-63.3996 -59.4218,-63.3975 -59.7002,-63.3430 -59.8012,-63.3349 -59.9000,-63.3358 -60.0050,-63.3477 -60.0989,-63.3698 -60.3487,-63.4736 -60.4183,-63.4929 -60.7369,-63.4588 -60.8235,-63.4558 -60.9827,-63.4719 -61.1743,-63.5233 -61.2789,-63.5402 -61.4101,-63.5399 -61.5319,-63.5172 -61.5588,-63.5008 -61.5670,-63.4770 -61.4893,-63.3373 -61.4878,-63.2917 -61.5062,-63.2496 -61.5615,-63.1943 -61.6398,-63.1409 -61.9005,-63.0273 -61.9183,-63.0067 -61.9035,-62.9907 -61.8290,-62.9909 -61.3396,-63.0618 -61.1405,-63.1106 -60.8950,-63.1900 -60.7753,-63.2149 -60.5876,-63.2282 -60.4085,-63.2117 -60.2661,-63.1722 -60.1507,-63.1104 -60.0742,-63.0363 -60.0248,-62.9377 -59.5507,-62.7875 -59.3200,-62.7022 -59.2111,-62.6498 -59.0035,-62.5669 -58.9210,-62.5469 -58.6775,-62.5059 -58.2319,-62.3949 -58.0941,-62.3793 -57.9721,-62.3560 -57.8628,-62.3227 -57.6923,-62.2500 -57.6278,-62.2379 -57.4778,-62.2280 -57.3890,-62.2123 -57.2870,-62.1794 -57.2122,-62.1371 -57.1520,-62.0643 -57.1533,-61.9872 -57.2555,-61.8275 -57.3306,-61.7766 -57.4299,-61.7382 -57.5228,-61.7175 -57.6113,-61.7074 -57.8097,-61.7080 -58.0182,-61.6957 -58.1226,-61.7024 -58.2773,-61.7282 -58.4414,-61.7246 -58.5740,-61.7378 -58.9725,-61.8468 -59.0317,-61.8781 -59.1346,-61.9549 -59.2765,-62.0177 -59.3500,-62.0688 -59.5324,-62.1314 -59.7215,-62.1442 -59.8459,-62.1628 -59.9506,-62.1905 -60.0707,-62.2415 -60.3109,-62.2677 -60.4707,-62.3200 -60.6172,-62.2766 -60.7143,-62.2628 -60.8491,-62.2605 -60.9764,-62.2757 -61.1054,-62.3136 -61.2159,-62.3770 -61.3795,-62.4021 -61.5001,-62.4394 -61.5750,-62.4794 -61.6474,-62.5416 -61.8376,-62.6124 -61.9461,-62.6839 -62.0190,-62.6875 -62.2927,-62.6653 -62.4488,-62.6711 -62.5449,-62.6852 -62.6889,-62.7178 -62.8573,-62.7789 -62.9452,-62.8369 -63.1441,-63.0191 -63.1750,-63.0864 -63.1568,-63.1496 -63.0736,-63.2206 -62.8781,-63.3058 -62.7926,-63.3517 -62.6881,-63.4534 -62.6183,-63.4967 -62.5017,-63.5364 -62.3119,-63.5628 -62.2566,-63.5803 -62.2385,-63.6159 -62.2702,-63.6823 -62.3181,-63.7344 -62.3877,-63.7730 -62.4706,-63.7953 -62.6712,-63.8228 -62.7711,-63.8485 -62.8984,-63.9032 -63.0299,-63.9822 -63.1040,-64.0088 -63.2112,-64.0277 -63.4321,-64.0365 -63.6538,-64.0614 -63.7911,-64.0824 -63.8857,-64.1070 -63.9755,-64.1484 -64.1302,-64.2595 -64.3000,-64.3226 -64.4107,-64.3961 -64.5600,-64.4524 -64.6237,-64.4870 -64.7806,-64.6476 -64.7938,-64.7027 -64.7734,-64.7602 -64.7192,-64.8134 -64.6357,-64.8584 -64.5731,-64.8803 -64.3655,-64.9266 -64.3197,-64.9479 -64.4988,-65.0489 -64.5565,-65.1052 -64.6107,-65.2527 -64.6095,-65.2935 -64.5818,-65.3578 -64.6162,-65.4175 -64.6540,-65.4334 -64.7877,-65.4647 -64.8450,-65.4848 -64.9068,-65.5171 -64.9764,-65.5688 -65.1005,-65.6310 -65.1388,-65.6398 -65.1562,-65.6337 -65.1574,-65.6243 -65.0521,-65.5463 -65.0287,-65.5079 -65.0230,-65.4623 -65.0401,-65.4175 -65.0725,-65.3810 -65.1209,-65.3472 -65.1852,-65.3174 -65.2744,-65.2902 -65.3667,-65.2727 -65.4828,-65.2637 -65.5952,-65.2549 -65.7218,-65.2564 -65.8431,-65.2657 -65.9394,-65.2804 -66.0268,-65.3024 -66.1551,-65.3576 -66.3168,-65.4033 -66.4218,-65.4638 -66.6826,-65.7401 -66.7099,-65.7999 -66.7014,-65.8585 -66.8920,-65.8840 -67.0539,-65.9251 -67.1745,-65.9732 -67.2643,-66.0342 -67.4167,-66.0702 -67.4928,-66.0994 -67.4928,-65.6996 -67.4928,-65.2998 -67.4928,-64.9000 -67.4928,-64.4455 -67.4928,-63.9909 -67.4928,-63.5364 -67.4928,-63.0818 -67.4928,-62.6273 -67.4928,-62.1727 -67.4928,-61.7182 -67.4928,-61.2636 -67.4928,-60.8091 -67.4928,-60.3545 -67.4928,-59.9000 -67.4928,-59.4495 -67.4928,-58.9991 -67.4928,-58.5486 -67.4928,-58.0982 -67.4928,-57.6477 -67.4928,-57.1972 -67.4928,-56.7468 -67.4928,-56.2963 -67.4928,-56.2797 -67.4928,-56.1194 -67.4928,-56.0820 -67.5489,-56.0908 -67.6349,-56.0924 -67.9857,-56.0409 -68.1102,-55.9781 -68.2154,-55.9056 -68.4998,-55.7639 -68.6313,-55.6742 -68.8298,-55.7037 -69.0138,-55.6938 -69.1723,-55.7068 -69.4567,-55.6902 -69.5455,-55.6749 -69.7570,-55.6101 -69.9022,-55.5940 -69.9926,-55.5753 -70.2738,-55.4698 -70.3929,-55.4086 -70.4362,-55.4033 -70.5341,-55.4101 -70.5813,-55.4032 -70.8387,-55.3089 -71.1467,-55.2196 -71.3305,-55.1542 -71.5911,-55.1043 -71.6525,-55.0724 -71.8106,-54.9383 -71.8441,-54.9347 -71.9520,-54.9501 -72.0207,-54.9487 -72.1067,-54.9352 -72.1894,-54.9082 -72.2829,-54.8549 -72.3869,-54.7633 -72.4636,-54.6336 -72.7219,-54.5518 -72.7610,-54.5296 -72.8335,-54.4490 -72.8886,-54.3498 -72.9255,-54.3245 -73.0179,-54.3109 -73.2542,-54.3238 -73.3615,-54.3196 -73.4271,-54.3068 -73.6469,-54.2379 -73.6738,-54.2000 -73.7319,-53.9906 -73.7930,-53.9007 -73.9304,-53.7871 -74.1268,-53.6974 -74.2493,-53.5383 -74.4152,-53.4871 -74.5000,-53.4353 -74.5639,-53.3509 -74.5752,-53.2442 -74.5937,-53.2090 -74.6992,-53.1306 -74.8460,-53.0542 -74.9480,-52.9257 -75.0404,-52.8496 -75.0053,-52.6543 -74.9766,-52.6155 -74.9314,-52.5861 -74.8865,-52.5723 -74.9150,-52.4650 -75.0332,-52.4262 -75.1403,-52.3682 -75.2409,-52.2740 -75.3269,-52.1460 -75.4271,-51.9329 -75.4480,-51.8134 -75.5521,-51.7498 -75.6032,-51.6920 -75.6296,-51.6405 -75.6325,-51.5092 -75.5365,-51.3741 -75.5358,-51.2793 -75.4484,-51.1685 -75.3205,-51.0850 -75.2941,-51.0276 -75.3058,-51.0052 -75.3395,-50.9893 -75.5287,-50.9650 -75.5933,-50.9432 -75.7794,-50.7686 -75.8111,-50.7187 -75.8134,-50.6090 -75.7605,-50.3530 -75.7075,-50.0969 -75.7299,-50.0144 -75.8560,-49.9020 -75.9074,-49.7796 -75.9105,-49.6925 -75.8665,-49.3904 -75.8777,-49.3523 -75.9539,-49.2711 -75.9168,-49.0701 -75.9657,-48.9414 -75.9491,-48.8385 -75.9561,-48.6746 -75.9625,-48.5242 -75.9699,-48.0471 -75.9772,-47.5701 -75.9845,-47.0930 -75.9919,-46.6159 -75.8535,-46.1604 -75.7152,-45.7049 -75.5768,-45.2494 -75.4384,-44.7938 -75.3372,-44.4058 -75.2359,-44.0177 -75.1346,-43.6296 -75.1437,-43.6062 -75.1120,-43.5043 -75.0161,-43.3842 -74.9318,-43.3487 -74.8555,-43.3393 -74.7230,-43.3231 -74.6869,-43.3059 -74.6898,-43.2385 -74.6493,-43.1292 -74.5932,-43.0105 -74.5188,-42.9024 -74.4815,-42.7880 -74.4607,-42.6583 -74.4820,-42.5212 -74.4883,-42.4810 -74.4439,-42.3210 -74.4439,-42.1751 -74.3350,-42.0064 -74.3350,-41.8166 -74.2973,-41.7066 -74.2600,-41.6574 -74.1437,-41.5751 -74.1299,-41.5503 -74.1544,-41.3619 -74.2533,-41.1581 -74.2624,-41.0089 -74.2265,-40.8601 -74.1160,-40.6044 -74.0644,-40.4442 -73.9709,-40.0415 -73.9680,-39.9109 -73.8784,-39.8062 -73.6987,-39.7033 -73.6471,-39.5973 -73.5531,-39.4910 -73.5186,-39.4143 -73.5169,-39.2924 -73.5425,-39.1738 -73.6206,-38.9736 -73.7006,-38.8253 -73.7443,-38.6948 -73.8017,-38.6560 -74.0067,-38.6029 -74.0954,-38.5603 -74.1765,-38.4827 -74.2218,-38.3772 -74.2205,-38.3120 -74.1914,-38.2629 -73.9357,-38.1119 -73.8840,-38.1082 -73.7792,-38.1552 -73.7446,-38.1450 -73.7256,-38.1192 -73.7274,-38.0763 -73.7518,-38.0181 -73.9004,-37.8250 -73.9483,-37.7032 -73.9551,-37.6116 -73.9334,-37.4927 -73.9314,-37.4193 -74.3992,-37.4193 -74.8669,-37.4193 -75.3347,-37.4193 -75.8024,-37.4193 -76.2702,-37.4193 -76.7379,-37.4193 -77.2057,-37.4193 -77.6734,-37.4193 -78.1412,-37.4193 -78.6090,-37.4193 -79.0896,-37.4193 -79.5703,-37.4193 -80.0510,-37.4193 -80.5317,-37.4193 -81.0123,-37.4193 -81.4930,-37.4193 -81.4930,-36.9648 -81.4930,-36.5103 -81.4930,-36.0557 -81.4930,-35.6012 -81.4930,-35.1466 -81.4930,-34.6921 -81.4930,-34.2375 -81.4930,-33.7830 -81.4930,-33.3284 -81.4930,-32.8739 -81.4930,-32.4193 -81.4930,-31.9648 -81.4930,-31.5103 -81.4930,-31.0557 -81.4930,-30.6012 -81.4930,-30.1466 -81.4930,-29.6921 -81.4930,-29.2375 -81.4930,-28.7830 -81.4930,-28.3284 -81.4930,-27.8739 -81.4930,-27.4193 -81.4930,-26.9670 -81.4930,-26.5147 -81.4930,-26.0624 -81.4930,-25.6101 -81.4930,-25.1578 -81.4930,-24.7055 -81.0063,-24.7055 -80.5196,-24.7055 -80.0329,-24.7055 -79.5462,-24.7055 -79.0596,-24.7055 -78.5729,-24.7055 -78.0862,-24.7055 -77.5995,-24.7055 -77.1128,-24.7055 -76.6582,-24.7055 -76.2037,-24.7055 -75.7492,-24.7055 -75.2946,-24.7055 -74.8401,-24.7055 -74.3855,-24.7055 -73.9310,-24.7055 -73.4764,-24.7055 -73.0219,-24.7055 -72.5673,-24.7055 -72.1128,-24.7055 -71.6773,-24.7055 -71.2418,-24.7055 -70.8063,-24.7055 -70.8110,-24.6744 -70.7794,-24.2974 -70.7403,-24.1318 -70.7441,-23.9119 -70.7135,-23.7457 -70.7336,-23.6932 -70.8301,-23.4402 -70.8190,-23.1792 -70.7896,-23.0687 -70.7048,-22.9135 -70.6605,-22.8630 -70.5587,-22.7925 -70.5277,-22.7382 -70.4891,-22.4215 -70.4505,-22.1047 -70.3724,-21.6451 -70.3007,-21.4377 -70.3041,-21.3441 -70.3651,-21.1179 -70.4266,-20.7308 -70.4141,-20.4354 -70.3522,-19.9855 -70.3794,-19.7454 -70.4040,-19.6946 -70.4347,-19.5026 -70.4902,-19.3430 -70.5054,-19.1195 -70.5721,-18.8006 -70.5708,-18.5038 -70.6226,-18.4514 -70.5028,-18.3808 -70.4472,-18.3598 -70.4082,-18.3450 -70.4085,-18.3448 -70.3694,-18.3247 -70.3179,-18.3212 -70.2109,-18.3312 -70.1591,-18.3260 -70.1342,-18.3189 -70.0632,-18.2807 -70.0394,-18.2730 -70.0100,-18.2726 -69.9878,-18.2643 -69.9703,-18.2506 -69.9228,-18.1965 -69.8835,-18.1636 -69.8653,-18.1446 -69.8436,-18.1132 -69.7831,-17.9816 -69.7799,-17.9626 -69.7824,-17.9439 -69.7906,-17.9247 -69.8128,-17.8883 -69.8182,-17.8714 -69.8201,-17.8461 -69.8290,-17.8038 -69.8461,-17.7691 -69.8576,-17.7342 -69.8498,-17.6916 -69.8181,-17.6591 -69.7758,-17.6570 -69.7290,-17.6633 -69.6839,-17.6560 -69.6383,-17.6261 -69.5101,-17.5066 -69.5100,-17.5066 -69.5101,-17.5054 -69.5083,-17.4340 -69.5114,-17.3987 -69.5226,-17.3691 -69.5371,-17.3511 -69.5569,-17.3315 -69.5973,-17.3005 -69.6130,-17.2951 -69.6644,-17.2886 -69.6665,-17.2883 -69.6494,-17.2628 -69.6338,-17.2073 -69.6228,-17.1856 -69.6184,-17.1842 -69.6011,-17.1815 -69.5950,-17.1797 -69.5410,-17.1322 -69.5101,-17.1121 -69.4828,-17.1017 -69.4542,-17.0966 -69.4274,-17.0869 -69.4060,-17.0630 -69.4013,-17.0472 -69.4060,-17.0409 -69.4133,-17.0378 -69.4166,-17.0320 -69.4136,-17.0223 -69.4072,-17.0157 -69.3643,-16.9912 -69.3525,-16.9777 -69.3259,-16.9222 -69.2245,-16.8182 -69.2107,-16.7971 -69.1917,-16.7430 -69.1824,-16.7287 -69.1664,-16.7191 -69.1306,-16.7158 -69.1121,-16.7115 -69.0538,-16.6823 -69.0371,-16.6702 -69.0205,-16.6495 -69.0083,-16.6342 -69.0351,-16.5980 -69.0401,-16.5814 -69.0376,-16.5503 -69.0389,-16.4919 -69.0368,-16.4715 -69.0279,-16.4541 -69.0017,-16.4228 -68.9684,-16.4064 -68.9163,-16.3864 -68.8482,-16.3515 -68.8335,-16.3290 -68.8436,-16.3020 -68.8667,-16.2869 -68.9188,-16.2667 -68.9595,-16.2233 -68.9820,-16.2100 -69.0101,-16.2191 -69.0427,-16.2093 -69.0536,-16.2084 -69.0645,-16.2121 -69.0839,-16.2266 -69.0952,-16.2312 -69.1208,-16.2312 -69.1447,-16.2235 -69.1663,-16.2104 -69.1849,-16.1950 -69.2196,-16.1528 -69.2421,-16.0982 -69.2846,-15.9950 -69.3271,-15.8920 -69.3696,-15.7890 -69.4122,-15.6858 -69.4243,-15.6563 -69.4300,-15.6263 -69.4212,-15.5964 -69.3564,-15.5014 -69.3511,-15.4819 -69.3485,-15.4618 -69.3434,-15.4422 -69.3304,-15.4242 -69.3203,-15.4189 -69.2929,-15.4099 -69.2859,-15.4054 -69.2854,-15.3967 -69.2970,-15.3670 -69.2912,-15.3508 -69.2752,-15.3303 -69.2559,-15.3133 -69.2226,-15.3022 -69.2091,-15.2636 -69.1897,-15.2624 -69.1661,-15.2639 -69.1504,-15.2516 -69.1481,-15.2333 -69.1718,-15.2108 -69.1965,-15.1766 -69.2127,-15.1613 -69.2722,-15.1182 -69.2886,-15.1020 -69.3461,-15.0165 -69.3628,-15.0013 -69.3843,-14.9818 -69.3907,-14.9644 -69.3862,-14.9458 -69.3698,-14.9083 -69.3678,-14.9005 -69.3720,-14.8187 -69.3705,-14.8015 -69.3614,-14.7880 -69.3390,-14.7748 -69.2835,-14.7597 -69.2676,-14.7507 -69.2538,-14.7218 -69.2475,-14.5937 -69.2347,-14.5743 -69.2149,-14.5723 -69.1922,-14.5769 -69.1704,-14.5776 -69.1645,-14.5664 -69.1674,-14.5203 -69.1643,-14.5030 -69.1582,-14.4985 -69.1411,-14.4942 -69.1340,-14.4907 -69.0946,-14.4464 -69.0751,-14.4325 -69.0101,-14.3971 -68.9903,-14.3790 -68.9946,-14.3590 -69.0083,-14.3390 -69.0162,-14.3211 -69.0172,-14.2825 -69.0157,-14.2632 -69.0101,-14.2459 -68.9849,-14.2283 -68.9513,-14.2200 -68.8837,-14.2115 -68.8644,-14.1912 -68.8689,-14.1562 -68.8937,-14.0892 -68.9000,-14.0548 -68.9058,-14.0393 -68.9162,-14.0249 -68.9697,-13.9905 -68.9830,-13.9722 -68.9890,-13.9401 -68.9892,-13.9037 -68.9930,-13.8698 -69.0101,-13.8444 -69.0231,-13.8060 -69.0243,-13.7925 -69.0208,-13.7764 -69.0160,-13.7646 -69.0160,-13.7531 -69.0270,-13.7382 -69.0810,-13.6954 -69.1016,-13.6666 -69.0876,-13.6439 -69.0745,-13.6426 -69.0440,-13.6480 -69.0326,-13.6459 -69.0238,-13.6350 -69.0236,-13.6233 -69.0255,-13.6107 -69.0232,-13.5969 -69.0154,-13.5855 -68.9943,-13.5630 -68.9857,-13.5502 -68.9768,-13.5263 -68.9707,-13.5014 -68.9744,-13.4788 -68.9628,-13.2836 -68.9770,-13.2049 -68.9797,-13.1646 -68.9721,-13.0461 -68.9862,-12.9334 -68.9866,-12.8905 -68.9810,-12.8679 -68.9494,-12.8439 -68.9387,-12.8197 -68.9266,-12.8010 -68.9046,-12.8040 -68.8920,-12.7758 -68.8766,-12.7550 -68.8562,-12.7414 -68.7737,-12.7194 -68.7661,-12.7105 -68.7430,-12.6658 -68.7530,-12.6547 -68.7853,-12.6459 -68.7946,-12.6365 -68.7934,-12.6202 -68.7839,-12.6057 -68.7701,-12.5944 -68.7403,-12.5786 -68.7261,-12.5660 -68.7145,-12.5512 -68.7063,-12.5360 -68.7002,-12.5160 -68.6944,-12.5068 -68.6843,-12.5025 -68.6895,-12.4934 -68.7142,-12.4503 -68.8186,-12.2692 -68.9229,-12.0881 -69.0273,-11.9071 -69.1316,-11.7260 -69.2360,-11.5449 -69.3403,-11.3637 -69.4446,-11.1827 -69.5490,-11.0017 -69.5525,-10.9956 -69.5561,-10.9894 -69.5597,-10.9831 -69.5633,-10.9769 -69.5668,-10.9707 -69.5705,-10.9646 -69.5740,-10.9585 -69.5776,-10.9523 -69.5962,-10.9520 -69.7202,-10.9649 -69.7534,-10.9583 -69.7911,-10.9343 -69.8083,-10.9272 -69.8351,-10.9253 -69.8757,-10.9280 -69.8951,-10.9269 -69.9142,-10.9214 -69.9561,-10.9193 -70.1987,-11.0412 -70.2395,-11.0551 -70.2894,-11.0647 -70.3410,-11.0672 -70.3913,-11.0591 -70.4373,-11.0367 -70.4625,-11.0139 -70.5072,-10.9613 -70.5341,-10.9381 -70.5556,-10.9428 -70.6413,-11.0108 -70.6411,-10.9299 -70.6409,-10.8026 -70.6405,-10.6754 -70.6402,-10.5481 -70.6398,-10.4209 -70.6395,-10.2935 -70.6392,-10.1662 -70.6389,-10.0389 -70.6386,-9.9116 -70.6384,-9.8518 -70.6290,-9.8116 -70.6232,-9.8011 -70.6151,-9.7923 -70.6055,-9.7850 -70.5952,-9.7790 -70.5901,-9.7790 -70.5796,-9.7857 -70.5742,-9.7849 -70.5692,-9.7791 -70.5667,-9.7671 -70.5634,-9.7607 -70.5512,-9.7441 -70.5434,-9.7270 -70.5419,-9.7082 -70.5486,-9.6877 -70.5602,-9.6733 -70.5896,-9.6503 -70.6008,-9.6353 -70.6073,-9.6168 -70.6147,-9.5841 -70.6244,-9.5658 -70.6192,-9.5645 -70.5927,-9.5638 -70.5874,-9.5656 -70.5739,-9.5678 -70.5645,-9.5654 -70.5781,-9.5418 -70.5762,-9.5291 -70.5679,-9.5192 -70.5551,-9.5160 -70.5572,-9.5126 -70.5598,-9.5049 -70.5619,-9.5017 -70.5433,-9.4935 -70.5383,-9.4810 -70.5357,-9.4644 -70.5254,-9.4468 -70.5238,-9.4440 -70.5250,-9.4309 -70.5670,-9.4353 -70.5869,-9.4395 -70.6064,-9.4488 -70.6271,-9.4666 -70.6621,-9.5092 -70.6808,-9.5277 -70.7473,-9.5646 -70.7678,-9.5799 -70.8054,-9.6180 -70.8252,-9.6336 -70.8755,-9.6605 -70.8916,-9.6786 -70.9203,-9.7201 -70.9316,-9.7297 -70.9575,-9.7453 -70.9690,-9.7549 -70.9776,-9.7667 -70.9896,-9.7921 -70.9972,-9.8035 -71.0154,-9.8175 -71.0775,-9.8338 -71.1443,-9.8631 -71.1611,-9.8756 -71.1739,-9.8973 -71.1831,-9.9206 -71.1965,-9.9399 -71.2451,-9.9561 -71.2803,-9.9835 -71.2997,-9.9934 -71.3134,-9.9942 -71.3217,-9.9895 -71.3289,-9.9834 -71.3396,-9.9798 -71.3541,-9.9813 -71.3596,-9.9869 -71.3636,-9.9945 -71.3734,-10.0023 -71.3914,-10.0068 -71.4287,-10.0067 -71.6070,-10.0065 -71.7854,-10.0061 -71.9636,-10.0059 -72.1420,-10.0057 -72.1957,-10.0056 -72.1846,-9.9846 -72.1835,-9.9670 -72.1855,-9.9497 -72.1839,-9.9290 -72.1784,-9.9187 -72.1627,-9.9001 -72.1604,-9.8877 -72.1629,-9.8772 -72.1711,-9.8569 -72.1739,-9.8458 -72.1947,-9.8058 -72.2652,-9.7622 -72.2770,-9.7243 -72.2651,-9.6865 -72.2617,-9.6674 -72.2677,-9.6495 -72.2949,-9.6175 -72.3041,-9.6009 -72.3069,-9.5800 -72.3056,-9.5506 -72.3068,-9.5409 -72.3127,-9.5325 -72.3229,-9.5321 -72.3345,-9.5340 -72.3445,-9.5329 -72.3625,-9.5207 -72.3902,-9.4965 -72.4095,-9.4863 -72.4302,-9.4822 -72.4908,-9.4864 -72.5356,-9.4816 -72.5545,-9.4760 -72.5961,-9.4555 -72.6365,-9.4429 -72.6559,-9.4390 -72.6598,-9.4398 -72.6678,-9.4453 -72.6723,-9.4467 -72.6780,-9.4450 -72.6868,-9.4375 -72.6917,-9.4351 -72.8133,-9.4109 -73.2150,-9.4090 -73.1935,-9.3757 -73.1408,-9.3228 -73.1176,-9.2919 -73.1012,-9.2600 -73.0902,-9.2442 -73.0784,-9.2369 -73.0642,-9.2348 -73.0479,-9.2303 -73.0344,-9.2226 -73.0285,-9.2106 -73.0279,-9.1831 -72.9824,-9.1471 -72.9720,-9.1344 -72.9637,-9.1155 -72.9594,-9.0856 -72.9700,-9.0019 -72.9761,-8.9854 -73.0037,-8.9442 -73.0167,-8.9304 -73.0538,-8.9060 -73.0686,-8.8937 -73.1458,-8.7822 -73.1635,-8.7396 -73.1746,-8.7207 -73.1920,-8.7039 -73.2110,-8.6939 -73.2691,-8.6816 -73.2899,-8.6705 -73.3081,-8.6532 -73.3506,-8.5983 -73.3570,-8.5818 -73.3577,-8.5630 -73.3483,-8.5183 -73.3493,-8.4981 -73.3564,-8.4798 -73.3705,-8.4652 -73.3794,-8.4619 -73.4005,-8.4594 -73.4102,-8.4555 -73.4202,-8.4462 -73.4365,-8.4252 -73.4473,-8.4161 -73.5265,-8.3724 -73.5408,-8.3591 -73.5477,-8.3402 -73.5527,-8.2991 -73.5617,-8.2727 -73.5906,-8.2347 -73.6033,-8.2116 -73.6062,-8.1928 -73.6005,-8.1555 -73.6011,-8.1361 -73.6119,-8.1126 -73.6447,-8.0683 -73.6516,-8.0460 -73.6680,-8.0138 -73.7059,-7.9938 -73.7485,-7.9770 -73.7788,-7.9541 -73.7849,-7.9404 -73.7958,-7.8922 -73.7946,-7.8741 -73.7796,-7.8745 -73.7461,-7.8864 -73.7137,-7.8663 -73.7026,-7.8278 -73.7122,-7.7882 -73.7422,-7.7641 -73.7796,-7.7529 -73.8111,-7.7393 -73.8388,-7.7206 -73.9694,-7.5847 -74.0097,-7.5611 -74.0185,-7.5435 -73.9714,-7.5240 -73.9587,-7.5020 -73.9578,-7.4804 -73.9499,-7.4652 -73.9443,-7.4487 -73.9505,-7.4232 -73.9794,-7.3745 -73.9829,-7.3564 -73.9611,-7.3564 -73.9205,-7.3722 -73.9020,-7.3734 -73.8797,-7.3650 -73.8434,-7.3431 -73.8259,-7.3374 -73.8003,-7.3357 -73.7608,-7.3374 -73.7413,-7.3344 -73.7247,-7.3248 -73.7131,-7.3047 -73.7161,-7.2864 -73.7245,-7.2676 -73.7345,-7.2251 -73.8036,-7.1265 -73.8123,-7.1029 -73.8066,-7.0782 -73.7923,-7.0500 -73.7677,-6.9593 -73.7655,-6.9042 -73.7594,-6.8874 -73.7486,-6.8755 -73.7068,-6.8496 -73.6970,-6.8372 -73.6851,-6.8119 -73.6720,-6.8007 -73.6441,-6.7840 -73.5939,-6.7440 -73.5132,-6.6978 -73.4454,-6.6396 -73.4063,-6.6156 -73.3707,-6.5839 -73.3492,-6.5764 -73.2785,-6.5757 -73.2336,-6.5640 -73.1990,-6.5456 -73.1715,-6.5174 -73.1478,-6.4762 -73.1318,-6.4353 -73.1270,-6.4130 -73.1270,-6.3913 -73.1338,-6.3681 -73.1557,-6.3227 -73.1616,-6.2998 -73.1720,-6.2197 -73.1777,-6.2024 -73.2260,-6.1479 -73.2353,-6.1237 -73.2348,-6.0776 -73.2189,-6.0403 -73.1971,-6.0050 -73.1400,-5.8785 -73.1056,-5.8470 -73.0014,-5.7088 -72.9872,-5.6811 -72.9769,-5.6517 -72.9605,-5.5592 -72.9603,-5.5312 -72.9691,-5.4992 -72.9735,-5.4661 -72.9642,-5.4338 -72.9348,-5.3722 -72.9305,-5.3565 -72.9240,-5.3136 -72.9162,-5.2991 -72.9054,-5.2857 -72.8967,-5.2716 -72.8949,-5.2557 -72.9003,-5.1946 -72.9056,-5.1791 -72.9150,-5.1644 -72.9220,-5.1469 -72.9179,-5.1321 -72.8938,-5.1259 -72.8807,-5.1253 -72.8728,-5.1236 -72.8589,-5.1161 -72.8577,-5.1121 -72.8570,-5.0976 -72.8540,-5.0925 -72.8490,-5.0921 -72.8364,-5.0962 -72.8311,-5.0966 -72.7903,-5.0888 -72.7729,-5.0811 -72.7602,-5.0647 -72.7476,-5.0551 -72.7288,-5.0573 -72.7080,-5.0632 -72.6542,-5.0632 -72.6448,-5.0606 -72.6351,-5.0518 -72.6324,-5.0428 -72.6316,-5.0332 -72.6273,-5.0224 -72.6143,-5.0097 -72.5866,-4.9967 -72.5622,-4.9702 -72.5464,-4.9582 -72.5285,-4.9502 -72.5098,-4.9475 -72.4951,-4.9470 -72.4889,-4.9412 -72.4859,-4.9326 -72.4807,-4.9234 -72.4797,-4.9196 -72.4799,-4.9142 -72.4795,-4.9081 -72.4765,-4.9025 -72.4718,-4.9007 -72.4580,-4.9004 -72.4526,-4.8992 -72.4311,-4.8878 -72.4147,-4.8763 -72.4041,-4.8602 -72.3968,-4.8056 -72.3861,-4.7940 -72.3447,-4.7826 -72.3394,-4.7773 -72.3368,-4.7699 -72.3319,-4.7633 -72.3198,-4.7602 -72.2824,-4.7654 -72.2693,-4.7649 -72.2511,-4.7588 -72.2331,-4.7484 -72.1824,-4.7107 -72.1271,-4.6801 -72.1080,-4.6643 -72.0966,-4.6498 -72.0787,-4.6134 -72.0711,-4.6051 -72.0627,-4.6057 -72.0536,-4.6102 -72.0436,-4.6138 -72.0355,-4.6119 -72.0262,-4.6057 -72.0098,-4.5916 -71.9803,-4.5823 -71.9331,-4.5367 -71.9072,-4.5184 -71.8902,-4.5137 -71.8076,-4.5045 -71.8007,-4.5024 -71.7970,-4.4980 -71.7957,-4.4911 -71.7931,-4.4846 -71.7848,-4.4805 -71.7743,-4.4815 -71.7515,-4.4921 -71.7402,-4.4956 -71.7211,-4.4928 -71.7096,-4.4847 -71.6993,-4.4816 -71.6833,-4.4935 -71.6731,-4.5037 -71.6652,-4.5076 -71.6565,-4.5068 -71.6438,-4.5023 -71.6235,-4.4823 -71.6134,-4.4793 -71.6171,-4.5003 -71.5716,-4.4807 -71.5576,-4.4794 -71.5323,-4.4846 -71.5246,-4.4852 -71.5191,-4.4792 -71.5129,-4.4571 -71.5061,-4.4486 -71.4923,-4.4428 -71.4774,-4.4406 -71.4470,-4.4403 -71.4008,-4.4334 -71.3870,-4.4349 -71.3776,-4.4427 -71.3712,-4.4532 -71.3633,-4.4592 -71.3496,-4.4535 -71.3459,-4.4501 -71.3370,-4.4383 -71.3308,-4.4351 -71.3241,-4.4366 -71.3185,-4.4394 -71.3152,-4.4400 -71.3054,-4.4271 -71.3051,-4.4166 -71.3072,-4.4068 -71.3046,-4.3949 -71.2885,-4.3808 -71.2648,-4.3755 -71.2417,-4.3800 -71.2141,-4.4108 -71.2007,-4.3956 -71.1862,-4.3722 -71.1697,-4.3628 -71.1631,-4.3691 -71.1525,-4.3917 -71.1441,-4.3993 -71.1285,-4.4018 -71.1196,-4.3964 -71.1060,-4.3738 -71.0816,-4.3641 -71.0293,-4.3858 -71.0100,-4.3698 -71.0055,-4.3476 -70.9897,-4.3662 -70.9687,-4.3853 -70.9481,-4.3642 -70.9388,-4.3451 -70.9263,-4.3290 -70.8964,-4.2998 -70.8866,-4.2835 -70.8811,-4.2656 -70.8737,-4.2507 -70.8583,-4.2433 -70.8428,-4.2381 -70.8398,-4.2287 -70.8483,-4.2044 -70.8452,-4.1910 -70.8322,-4.1794 -70.7846,-4.1563 -70.7743,-4.1550 -70.7121,-4.1719 -70.6941,-4.1723 -70.6831,-4.1638 -70.6720,-4.1334 -70.6629,-4.1222 -70.6468,-4.1157 -70.6311,-4.1190 -70.6296,-4.1334 -70.6332,-4.1518 -70.6325,-4.1668 -70.5853,-4.1945 -70.5766,-4.1839 -70.5723,-4.1659 -70.5656,-4.1488 -70.5497,-4.1407 -70.5341,-4.1468 -70.5294,-4.1613 -70.5264,-4.1760 -70.5160,-4.1823 -70.5009,-4.1774 -70.4600,-4.1446 -70.4442,-4.1374 -70.4299,-4.1342 -70.4153,-4.1356 -70.3987,-4.1423 -70.3737,-4.1646 -70.3614,-4.1682 -70.3431,-4.1394 -70.3306,-4.1432 -70.3187,-4.1563 -70.3111,-4.1709 -70.3093,-4.1912 -70.3184,-4.2289 -70.3167,-4.2470 -70.3070,-4.2603 -70.2576,-4.2992 -70.2480,-4.3021 -70.2392,-4.3018 -70.2313,-4.3037 -70.2247,-4.3131 -70.2167,-4.3289 -70.2056,-4.3429 -70.1866,-4.3263 -70.1703,-4.2885 -70.1573,-4.2702 -70.1389,-4.2605 -70.1165,-4.2583 -70.0966,-4.2657 -70.0857,-4.2839 -70.0811,-4.3088 -70.0756,-4.3162 -70.0633,-4.3285 -70.0510,-4.3373 -70.0370,-4.3409 -70.0229,-4.3389 -69.9894,-4.3146 -69.9718,-4.2910 -69.9626,-4.2643 -69.9649,-4.2365 -69.9639,-4.2343 -69.9627,-4.2320 -69.9616,-4.2298 -69.9605,-4.2276 -69.9594,-4.2254 -69.9583,-4.2232 -69.9572,-4.2209 -69.9561,-4.2188 -69.9551,-4.2166 -69.9539,-4.2144 -69.9528,-4.2121 -69.9517,-4.2099 -69.9506,-4.2078 -69.9494,-4.2056 -69.9483,-4.2034 -69.9472,-4.2011 -69.9178,-4.0400 -69.8885,-3.8788 -69.8592,-3.7177 -69.8298,-3.5565 -69.8005,-3.3953 -69.7712,-3.2342 -69.7417,-3.0729 -69.7124,-2.9118 -69.6831,-2.7507 -69.6537,-2.5895 -69.6244,-2.4283 -69.5950,-2.2671 -69.5657,-2.1060 -69.5363,-1.9448 -69.5070,-1.7836 -69.4776,-1.6225 -69.4664,-1.5611 -69.4519,-1.5109 -69.4523,-1.4905 -69.4339,-1.4222 -69.4347,-1.3764 -69.4183,-1.2841 -69.4211,-1.2386 -69.3995,-1.1827 -69.4105,-1.1527 -69.4482,-1.0921 -69.4483,-1.0804 -69.4419,-1.0598 -69.4398,-1.0487 -69.4450,-1.0107 -69.4429,-1.0084 -69.4469,-1.0008 -69.4500,-0.9968 -69.4551,-0.9946 -69.4651,-0.9931 -69.4712,-0.9880 -69.4931,-0.9562 -69.5025,-0.9503 -69.5243,-0.9410 -69.5326,-0.9341 -69.5392,-0.9206 -69.5642,-0.8635 -69.5732,-0.8492 -69.5757,-0.8392 -69.5747,-0.8304 -69.5727,-0.8135 -69.5807,-0.7994 -69.6184,-0.7569 -69.6284,-0.7334 -69.6220,-0.7154 -69.5908,-0.6682 -69.5842,-0.6446 -69.5870,-0.6325 -69.5927,-0.6241 -69.5993,-0.6164 -69.6045,-0.6063 -69.6066,-0.5965 -69.6071,-0.5668 -69.6117,-0.5446 -69.6198,-0.5246 -69.6321,-0.5069 -69.6495,-0.4920 -69.6665,-0.4829 -69.7465,-0.4530 -69.7616,-0.4409 -69.7914,-0.4082 -69.8018,-0.4010 -69.8248,-0.3902 -69.8348,-0.3832 -69.8423,-0.3732 -69.8517,-0.3508 -69.8581,-0.3414 -69.8752,-0.3306 -69.9150,-0.3217 -69.9336,-0.3143 -69.9444,-0.3055 -69.9667,-0.2723 -70.0176,-0.2257 -70.0564,-0.1810 -70.0680,-0.1601 -70.0738,-0.1249 -70.0725,-0.0747 -70.0718,-0.0491 -70.0700,0.0180 -70.0673,0.1130 -70.0643,0.2220 -70.0614,0.3309 -70.0587,0.4259 -70.0568,0.4930 -70.0561,0.5186 -70.0542,0.5881 -70.0394,0.5746 -70.0207,0.5799 -69.9992,0.5898 -69.9765,0.5904 -69.9529,0.5858 -69.9339,0.5890 -69.9145,0.5945 -69.8459,0.5987 -69.8053,0.6069 -69.7675,0.6207 -69.7329,0.6390 -69.6947,0.6687 -69.6795,0.6700 -69.6513,0.6574 -69.6192,0.6507 -69.6046,0.6674 -69.5941,0.6893 -69.5742,0.6979 -69.5556,0.7002 -69.5234,0.7209 -69.5037,0.7296 -69.4781,0.7328 -69.4579,0.7281 -69.4397,0.7158 -69.3689,0.6444 -69.3626,0.6409 -69.3423,0.6502 -69.3203,0.6563 -69.3021,0.6566 -69.2928,0.6456 -69.2971,0.6181 -69.2790,0.6192 -69.2424,0.6138 -69.2262,0.6148 -69.2191,0.6195 -69.2084,0.6346 -69.2006,0.6395 -69.1901,0.6397 -69.1714,0.6328 -69.1623,0.6314 -69.1437,0.6375 -69.1375,0.6501 -69.1412,0.6682 -69.1521,0.6906 -69.1595,0.6973 -69.1812,0.7075 -69.1893,0.7152 -69.1923,0.7289 -69.1850,0.7377 -69.1746,0.7454 -69.1678,0.7560 -69.1678,0.7790 -69.1776,0.8236 -69.1754,0.8444 -69.1693,0.8481 -69.1598,0.8496 -69.1523,0.8543 -69.1524,0.8678 -69.1589,0.8762 -69.1707,0.8832 -69.1939,0.8921 -69.2100,0.9075 -69.2043,0.9437 -69.2262,0.9572 -69.2291,0.9674 -69.2302,0.9791 -69.2328,0.9884 -69.2402,0.9957 -69.2572,1.0069 -69.2743,1.0282 -69.2888,1.0384 -69.3388,1.0641 -69.3550,1.0671 -69.3709,1.0630 -69.4182,1.0286 -69.4284,1.0305 -69.4473,1.0417 -69.4524,1.0462 -69.4554,1.0507 -69.4598,1.0552 -69.4687,1.0594 -69.4783,1.0607 -69.5101,1.0561 -69.5430,1.0556 -69.5533,1.0568 -69.5968,1.0719 -69.6199,1.0728 -69.7160,1.0586 -69.7265,1.0610 -69.7281,1.0830 -69.7368,1.0884 -69.7497,1.0905 -69.7626,1.0911 -69.7877,1.0842 -69.8294,1.0572 -69.8522,1.0594 -69.8519,1.1193 -69.8515,1.1880 -69.8511,1.2566 -69.8508,1.3253 -69.8504,1.3941 -69.8500,1.4628 -69.8496,1.5315 -69.8492,1.6002 -69.8488,1.6689 -69.8562,1.7077 -69.8075,1.7074 -69.7892,1.7128 -69.7464,1.7352 -69.7291,1.7390 -69.7115,1.7385 -69.6901,1.7355 -69.6491,1.7389 -69.5803,1.7702 -69.5420,1.7727 -69.4692,1.7574 -69.3934,1.7253 -69.3524,1.7202 -69.3045,1.7202 -69.1784,1.7203 -69.0000,1.7205 -68.7955,1.7207 -68.5910,1.7209 -68.4126,1.7210 -68.2864,1.7211 -68.2386,1.7212 -68.1633,1.7213 -68.1804,1.7297 -68.1888,1.7358 -68.1917,1.7424 -68.1907,1.7550 -68.1935,1.7637 -68.2015,1.7687 -68.2390,1.7703 -68.2411,1.7883 -68.2390,1.8103 -68.2483,1.8221 -68.2737,1.8253 -68.2802,1.8294 -68.2608,1.8582 -68.2008,2.0078 -68.1922,2.0149 -68.1874,2.0083 -68.1873,1.9882 -68.1852,1.9808 -68.1771,1.9732 -68.1698,1.9697 -68.1491,1.9655 -68.1261,1.9562 -68.1111,1.9424 -68.1012,1.9241 -68.0792,1.8600 -68.0587,1.8164 -68.0318,1.7775 -67.9982,1.7500 -67.9649,1.7402 -67.9288,1.7413 -67.8932,1.7497 -67.8605,1.7615 -67.8208,1.7840 -67.7905,1.8126 -67.6697,1.9733 -67.5929,2.0548 -67.5544,2.0731 -67.5273,2.0966 -67.5103,2.1074 -67.4753,2.1119 -67.4661,2.1164 -67.4491,2.1341 -67.4397,2.1396 -67.4246,2.1381 -67.3817,2.1227 -67.3658,2.1150 -67.3406,2.0901 -67.3204,2.0531 -67.2886,1.9749 -67.2648,1.9325 -67.1557,1.7881 -67.1172,1.7098 -67.0830,1.6046 -67.0736,1.5412 -67.0982,1.2534 -67.0945,1.2012 -67.0861,1.1760 -67.0652,1.1727 -66.9782,1.1968 -66.9134,1.2149 -66.9000,1.2175 -66.8641,1.2127 -66.6356,1.0074 -66.4071,0.8021 -66.3462,0.7594 -66.2851,0.7458 -66.2283,0.7628 -66.2087,0.7631 -66.1890,0.7549 -66.1731,0.7431 -66.1563,0.7330 -66.1344,0.7311 -66.1111,0.7418 -66.0792,0.7776 -66.0575,0.7870 -66.0138,0.7897 -65.9942,0.7947 -65.9741,0.8070 -65.9527,0.8280 -65.9142,0.8746 -65.8918,0.8956 -65.8720,0.9090 -65.7854,0.9491 -65.7454,0.9742 -65.7210,0.9819 -65.7010,0.9844 -65.6287,0.9820 -65.6081,0.9853 -65.5960,0.9836 -65.5829,0.9777 -65.5709,0.9686 -65.5598,0.9580 -65.5358,0.9285 -65.5251,0.9083 -65.5185,0.8865 -65.5170,0.8628 -65.5332,0.8163 -65.5633,0.7779 -65.5873,0.7391 -65.5852,0.6915 -65.5743,0.6702 -65.5605,0.6560 -65.5427,0.6493 -65.5197,0.6509 -65.4978,0.6587 -65.4729,0.6725 -65.4512,0.6901 -65.4327,0.7209 -65.4139,0.7416 -65.4094,0.7553 -65.4108,0.7839 -65.4096,0.7921 -65.4000,0.8165 -65.3890,0.8357 -65.3272,0.9103 -65.3103,0.9187 -65.2844,0.9194 -65.2434,0.9131 -65.2231,0.9144 -65.2030,0.9238 -65.1790,0.9554 -65.1684,0.9965 -65.1602,1.0802 -65.1368,1.1269 -65.1005,1.1361 -65.0596,1.1324 -65.0225,1.1400 -65.0207,1.1440 -65.0197,1.1577 -65.0174,1.1630 -65.0132,1.1658 -65.0033,1.1694 -64.9994,1.1720 -64.9665,1.2006 -64.9561,1.2068 -64.9329,1.2130 -64.9147,1.2148 -64.8974,1.2197 -64.8777,1.2349 -64.8553,1.2587 -64.8393,1.2708 -64.8214,1.2706 -64.7713,1.2467 -64.7512,1.2433 -64.7309,1.2476 -64.6042,1.3313 -64.5912,1.3501 -64.5703,1.3955 -64.5512,1.4195 -64.5279,1.4357 -64.4751,1.4630 -64.4331,1.4940 -64.4090,1.5075 -64.3864,1.5102 -64.3646,1.4971 -64.3638,1.4774 -64.3850,1.4364 -64.3914,1.4177 -64.3948,1.3922 -64.3896,1.3693 -64.3701,1.3587 -64.3529,1.3658 -64.3407,1.3842 -64.3219,1.4244 -64.3015,1.4467 -64.2321,1.4971 -64.1771,1.5511 -64.1297,1.5781 -64.1095,1.5985 -64.0930,1.6226 -64.0809,1.6474 -64.0754,1.6654 -64.0725,1.6846 -64.0760,1.7454 -64.0603,1.8075 -64.0536,1.8937 -64.0366,1.9273 -63.9950,1.9580 -63.9583,1.9707 -63.9208,1.9743 -63.8023,1.9723 -63.7832,1.9750 -63.7626,1.9857 -63.6175,2.1012 -63.5620,2.1264 -63.5490,2.1284 -63.5205,2.1245 -63.5107,2.1246 -63.4434,2.1372 -63.4118,2.1494 -63.4022,2.1705 -63.4039,2.1885 -63.4006,2.2046 -63.3726,2.2668 -63.3705,2.2812 -63.3728,2.3491 -63.3712,2.3651 -63.3611,2.4000 -63.3649,2.4131 -63.3848,2.4206 -63.5107,2.4247 -63.5738,2.4344 -63.7041,2.4376 -63.7670,2.4293 -63.8313,2.4286 -63.9518,2.4615 -64.0108,2.4682 -64.0325,2.4630 -64.0480,2.4713 -64.0566,2.4885 -64.0578,2.5104 -64.0505,2.5347 -64.0122,2.6038 -64.0077,2.6228 -64.0044,2.6795 -63.9979,2.7060 -63.9976,2.7149 -64.0009,2.7254 -64.0122,2.7440 -64.0291,2.7980 -64.1060,2.9472 -64.1375,2.9873 -64.1735,3.0519 -64.2053,3.0892 -64.2229,3.1240 -64.2254,3.1656 -64.2163,3.2514 -64.2199,3.2929 -64.2456,3.4189 -64.2421,3.4430 -64.2321,3.4611 -64.2051,3.4971 -64.1979,3.5151 -64.1956,3.5329 -64.1957,3.5701 -64.2030,3.5947 -64.2221,3.6162 -64.2656,3.6522 -64.3242,3.7241 -64.3474,3.7383 -64.3945,3.7561 -64.4345,3.7785 -64.5314,3.8535 -64.5750,3.9142 -64.5961,3.9359 -64.6429,3.9730 -64.6628,3.9969 -64.6628,3.9970 -64.6629,3.9970 -64.6629,3.9970 -64.7074,4.0830 -64.7195,4.1232 -64.7271,4.1408 -64.7419,4.1572 -64.7629,4.1690 -64.7837,4.1771 -64.8013,4.1885 -64.8130,4.2106 -64.8155,4.2310 -64.8129,4.2528 -64.8051,4.2719 -64.7916,4.2844 -64.7459,4.2876 -64.6999,4.2642 -64.6610,4.2275 -64.6369,4.1911 -64.6211,4.1469 -64.6082,4.1265 -64.5897,4.1189 -64.3650,4.1519 -64.2406,4.1420 -64.1727,4.1234 -64.1467,4.1106 -64.1251,4.0885 -64.1081,4.0581 -64.0958,4.0244 -64.0790,3.9531 -64.0638,3.9116 -64.0377,3.8825 -63.9964,3.8808 -63.9569,3.9019 -63.9168,3.9294 -63.8751,3.9498 -63.8311,3.9494 -63.7906,3.9330 -63.7710,3.9288 -63.7459,3.9303 -63.6908,3.9440 -63.6716,3.9462 -63.6228,3.9352 -63.5542,3.8754 -63.5107,3.8545 -63.4689,3.8672 -63.4554,3.9006 -63.4482,3.9394 -63.4254,3.9684 -63.3914,3.9716 -63.3517,3.9587 -63.2860,3.9208 -63.2512,3.8866 -63.1932,3.8067 -63.1308,3.7621 -63.0250,3.6378 -63.0107,3.6150 -62.9971,3.5991 -62.9751,3.5831 -62.9511,3.5702 -62.9310,3.5638 -62.9077,3.5610 -62.8894,3.5608 -62.8720,3.5655 -62.8513,3.5772 -62.8316,3.5949 -62.8223,3.5988 -62.8078,3.5967 -62.7964,3.5973 -62.7863,3.6044 -62.7710,3.6233 -62.7496,3.6604 -62.7399,3.7004 -62.7404,3.7419 -62.7496,3.7836 -62.7668,3.8220 -62.7702,3.8478 -62.7743,3.8549 -62.7798,3.8613 -62.7851,3.8723 -62.7888,3.8994 -62.7828,3.9200 -62.7732,3.9399 -62.7663,3.9647 -62.7674,3.9871 -62.7707,4.0054 -62.7662,4.0207 -62.7444,4.0340 -62.7275,4.0385 -62.6707,4.0437 -62.5887,4.0307 -62.5610,4.0378 -62.5488,4.0775 -62.5486,4.0981 -62.5464,4.1139 -62.5370,4.1254 -62.5149,4.1331 -62.4837,4.1392 -62.4752,4.1439 -62.4699,4.1516 -62.4665,4.1687 -62.4630,4.1747 -62.4281,4.1832 -62.3842,4.1735 -62.1927,4.0947 -62.1536,4.0903 -62.1111,4.1048 -62.0350,4.1599 -61.9902,4.1664 -61.9686,4.1601 -61.9503,4.1522 -61.9315,4.1464 -61.9082,4.1462 -61.8881,4.1502 -61.8669,4.1570 -61.8470,4.1661 -61.8310,4.1769 -61.7792,4.2327 -61.7564,4.2464 -61.7378,4.2521 -61.7189,4.2547 -61.6805,4.2525 -61.6492,4.2434 -61.6405,4.2419 -61.6282,4.2435 -61.6102,4.2516 -61.5991,4.2544 -61.5854,4.2534 -61.5766,4.2497 -61.5673,4.2485 -61.5522,4.2550 -61.5421,4.2630 -61.5335,4.2736 -61.5267,4.2855 -61.5224,4.2978 -61.5164,4.3748 -61.5019,4.4019 -61.4582,4.4191 -61.4386,4.4212 -61.3811,4.4177 -61.3600,4.4189 -61.3332,4.4239 -61.3082,4.4333 -61.2930,4.4481 -61.2958,4.4690 -61.3229,4.5088 -61.3156,4.5208 -61.2973,4.5237 -61.2381,4.5159 -61.2201,4.5107 -61.1859,4.4941 -61.1686,4.4902 -61.1512,4.4921 -61.0955,4.5077 -61.0120,4.5183 -60.9773,4.5350 -60.9478,4.5736 -60.9404,4.5941 -60.9311,4.6374 -60.9034,4.6996 -60.8958,4.7085 -60.8880,4.7111 -60.8687,4.7112 -60.8600,4.7124 -60.7637,4.7551 -60.7181,4.7843 -60.6801,4.8179 -60.6126,4.9006 -60.5919,4.9497 -60.5987,4.9969 -60.6643,5.1703 -60.6849,5.1883 -60.7110,5.1982 -60.7411,5.2015 -60.8169,5.2851 -60.8927,5.3686 -60.9685,5.4521 -61.0443,5.5356 -61.1200,5.6191 -61.1958,5.7027 -61.2716,5.7861 -61.3474,5.8697 -61.3796,5.9053 -61.3967,5.9456 -61.3863,5.9566 -61.3528,5.9752 -61.3381,5.9868 -61.2912,6.0612 -61.2786,6.0930 -61.2694,6.1072 -61.2561,6.1144 -61.2229,6.1205 -61.2065,6.1258 -61.1945,6.1329 -61.1847,6.1460 -61.1740,6.1716 -61.1611,6.1829 -61.1473,6.1850 -61.1327,6.1836 -61.1216,6.1867 -61.1184,6.2026 -61.1180,6.2162 -61.1129,6.2541 -61.1148,6.2640 -61.1179,6.2672 -61.1214,6.2695 -61.1241,6.2762 -61.1291,6.2833 -61.1467,6.2942 -61.1520,6.3034 -61.1595,6.3313 -61.1609,6.3424 -61.1548,6.3906 -61.1499,6.4044 -61.1411,6.4165 -61.1390,6.4248 -61.1386,6.4331 -61.1398,6.4413 -61.1426,6.4494 -61.1535,6.4644 -61.1630,6.4943 -61.1709,6.5092 -61.1861,6.5233 -61.2001,6.5311 -61.2097,6.5410 -61.2120,6.5614 -61.2048,6.5958 -61.1902,6.6329 -61.1707,6.6685 -61.1393,6.7044 -61.1298,6.7158 -61.1110,6.7195 -61.0891,6.7175 -61.0704,6.7119 -61.0612,6.7301 -61.0401,6.7270 -61.0187,6.7204 -61.0003,6.7344 -60.9546,6.7287 -60.9338,6.7317 -60.9284,6.7359 -60.9012,6.7644 -60.8995,6.7686 -60.8991,6.7768 -60.9013,6.7860 -60.9112,6.8000 -60.9134,6.8112 -60.9076,6.8152 -60.8946,6.8142 -60.8724,6.8081 -60.8657,6.8033 -60.8585,6.7965 -60.8496,6.7899 -60.8376,6.7864 -60.8283,6.7871 -60.8053,6.7925 -60.7935,6.7938 -60.7731,6.7884 -60.7365,6.7648 -60.7215,6.7597 -60.7003,6.7671 -60.6841,6.7840 -60.6558,6.8246 -60.6395,6.8377 -60.6207,6.8459 -60.5487,6.8631 -60.4210,6.9422 -60.3942,6.9485 -60.3773,6.9385 -60.3681,6.9881 -60.3597,7.0049 -60.3446,7.0176 -60.3276,7.0286 -60.3134,7.0402 -60.3036,7.0541 -60.2958,7.0707 -60.2916,7.0883 -60.2923,7.1053 -60.2999,7.1210 -60.3128,7.1326 -60.3476,7.1519 -60.3601,7.1658 -60.3720,7.1723 -60.3852,7.1733 -60.4015,7.1709 -60.4158,7.1713 -60.4267,7.1769 -60.4371,7.1837 -60.4495,7.1883 -60.4753,7.1885 -60.4966,7.1806 -60.5129,7.1652 -60.5349,7.1258 -60.5480,7.1255 -60.6176,7.1804 -60.6284,7.1911 -60.6431,7.2209 -60.6436,7.2507 -60.6311,7.2777 -60.6068,7.2995 -60.6022,7.3065 -60.6000,7.3139 -60.5999,7.3219 -60.6018,7.3301 -60.6106,7.3436 -60.6220,7.3715 -60.6290,7.3844 -60.6361,7.3898 -60.6452,7.3934 -60.6532,7.3985 -60.6573,7.4081 -60.6569,7.4166 -60.6558,7.4229 -60.6563,7.4288 -60.6606,7.4361 -60.6742,7.4455 -60.6881,7.4486 -60.7007,7.4535 -60.7238,7.4958 -60.7297,7.5103 -60.7306,7.5254 -60.7165,7.5516 -60.6711,7.5661 -60.6556,7.5852 -60.6415,7.6109 -60.6317,7.6246 -60.6252,7.6295 -60.6107,7.6268 -60.6013,7.6339 -60.5975,7.6467 -60.5999,7.6615 -60.5845,7.6885 -60.5844,7.6994 -60.5877,7.7183 -60.5870,7.7271 -60.5821,7.7363 -60.5596,7.7630 -60.5398,7.8001 -60.5258,7.8134 -60.5033,7.8209 -60.4185,7.8194 -60.3748,7.8236 -60.3504,7.8418 -60.3424,7.8648 -60.3203,7.8847 -60.2719,7.9178 -60.2533,7.9346 -60.2430,7.9506 -60.2311,7.9641 -60.1831,7.9827 -60.1657,7.9970 -60.1498,8.0135 -60.1292,8.0288 -60.1079,8.0356 -60.0680,8.0318 -60.0465,8.0329 -60.0296,8.0428 -60.0195,8.0603 -60.0110,8.1004 -59.9993,8.1154 -59.9980,8.1271 -60.0005,8.1385 -60.0007,8.1529 -59.9933,8.1685 -59.9677,8.1884 -59.9571,8.2001 -59.9397,8.2084 -59.8898,8.2199 -59.8692,8.2211 -59.8485,8.2277 -59.8293,8.2451 -59.8167,8.2672 -59.8156,8.2878 -59.8556,8.3521 -59.9597,8.4682 -60.0203,8.5578 -60.0997,8.7974 -60.1102,8.8156 -60.1814,8.8321 -60.3189,8.8401 -60.4371,8.8240 -60.5697,8.7809 -60.6669,8.8184 -60.6706,8.8753 -60.6249,8.9949 -60.5665,9.2487 -60.5627,9.3514 -60.5828,9.4270 -60.7008,9.5864 -60.8274,9.7002 -60.9225,9.7555 -61.1140,9.7977 -61.1503,9.8269 -61.1233,9.8579 -61.1092,9.8663 -61.1092,9.8664 -61.2244,9.8756 -61.5003,9.9703 -61.5657,9.9781 -61.6311,9.9859 -61.8554,9.9859 -61.9737,10.0077 -62.0833,10.0463 -61.9731,10.3173 -61.8628,10.5882 -61.8036,10.5882 -61.8036,10.7147 -61.7301,10.9114 -61.7301,11.0102 -61.7301,11.0432 -61.7301,11.0761 -61.7301,11.1091 -61.7301,11.1420 -61.7301,11.1749 -61.9875,11.3735 -62.2448,11.5721 -62.3155,11.6154 -62.7646,11.7135 -63.2137,11.8116 -63.6628,11.9097 -64.1119,12.0078 -64.5611,12.1059 -65.0595,12.0964 -65.5580,12.0868 -66.0565,12.0773 -66.3341,12.1189 -66.6118,12.1605 -66.7113,12.1715 -67.1774,12.2218 -67.6436,12.2721 -67.7342,12.2750 -67.9796,12.1214 -67.9903,12.1002 -67.9903,12.0772 -67.9903,11.9518 -67.9903,11.8509 -67.9903,11.7861 -67.9903,11.6657 -68.2955,11.6657 -68.6007,11.6657 -68.6822,11.6928 -68.8300,11.7417 -68.9550,11.7586 -69.0797,11.8795 -69.2995,12.0068 -69.5193,12.1341 -69.7399,12.2619 -70.1410,12.3652 -70.1647,12.3498 -70.3375,12.3498 -70.4176,12.3498 -70.6895,12.3022 -70.9615,12.2546 -71.0253,12.3777 -71.0788,12.4578 -71.1338,12.5096 -71.4254,12.6382 -71.6137,12.6698 -71.7137,12.6712 -71.7719,12.6568 -71.7715,13.1470 -71.7712,13.6371 -71.7708,14.1273 -71.7704,14.6175 -71.7701,15.1076 -71.7697,15.5978 -71.7693,16.0879 -71.7690,16.5781 -71.7686,17.0682 -71.7682,17.5584 -71.7679,18.0385 -71.7447,18.1339 -71.7692,18.2022 -71.6947,18.3222 -71.9075,18.4378 -71.8850,18.4772 -72.0031,18.6008 -71.8317,18.6225 -71.7158,18.7497 -71.7195,18.8839 -71.7889,18.9628 -71.8560,18.9478 -71.7500,19.0197 -71.6350,19.1581 -71.6292,19.2197 -71.6961,19.2417 -71.7667,19.3319 -71.6986,19.4003 -71.6917,19.4858 -71.7542,19.7058 -71.7550,19.9735 -71.7559,20.2411 -71.2834,20.2411 -70.8109,20.2412 -70.3385,20.2412 -69.8660,20.2412 -69.3935,20.2412 -68.9211,20.2413 -68.4486,20.2413 -67.9761,20.2413 -67.5037,20.2413 -67.5037,20.6959 -67.5037,21.1504 -67.5037,21.6050 -67.5037,22.0595 -67.5037,22.5141 -67.5037,22.9686 -67.5037,23.4232 -67.5037,23.8777 -67.5037,24.3322 -67.5037,24.7868 -67.5037,25.2413 -67.5037,25.6959 -67.5037,26.1504 -67.5037,26.6050 -67.5037,27.0595 -67.5037,27.5141 -67.5037,27.9686 -67.5037,28.4232 -67.5037,28.8777 -67.5037,29.3322 -67.5037,29.7868 -67.5037,30.2413 -67.5037,30.6959 -67.5037,31.1504 -67.5037,31.6050 -67.5037,32.0595 -67.5037,32.5141 -67.5037,32.9686 -67.5037,33.4232 -67.5037,33.8777 -67.5037,34.3322 -67.5037,34.7868 -67.5037,35.2413 -67.5037,35.6959 -67.5037,36.1504 -67.5037,36.6050 -67.5037,37.0595 -67.5037,37.5141 -67.5037,37.9686 -67.5037,38.4232 -67.5037,38.8777 -67.5037,39.3322 -67.5037,39.7868 -67.5037,40.2413 -67.5037,40.7152 -67.5037,41.1890 -67.5037,41.6629 -67.5037,42.1367 -67.5037,42.6105 -67.5037,43.0844 -67.5037,43.5582 -67.3968,43.8576 -67.2900,44.1570 -67.2794,44.1867 -67.2793,44.1872 -67.2342,44.2034 -67.1871,44.2203 -67.1444,44.2356 -67.1119,44.2759 -67.0737,44.3235 -67.0428,44.3620 -67.0385,44.4242 -67.0441,44.4381 -67.0628,44.4840 -67.0447,44.5102 -67.0497,44.5569 -67.0214,44.5990 -67.0104,44.6155 -66.9820,44.6364 -66.9587,44.6535 -66.9467,44.7081 -66.9411,44.7339 -66.9388,44.7444 -66.9257,44.7563 -66.9039,44.7762 -66.8752,44.8067 -66.8854,44.8126 -66.9252,44.8375 -66.9291,44.8399 -66.9643,44.8477 -66.9768,44.8665 -66.9799,44.8852 -66.9658,44.9282 -66.9979,44.9532 -67.0135,44.9665 -67.0237,44.9844 -67.0362,45.0086 -67.0572,45.0407 -67.0815,45.0852 -67.1057,45.1243 -67.1097,45.1297 -67.1324,45.1555 -67.1544,45.1729 -67.1820,45.1818 -67.1879,45.1830 -67.1960,45.1846 -67.2034,45.1870 -67.2191,45.1921 -67.2424,45.2026 -67.2550,45.2050 -67.2673,45.2025 -67.2772,45.1951 -67.2792,45.1874 -67.2796,45.1791 -67.2846,45.1697 -67.3192,45.1539 -67.3563,45.1659 -67.3905,45.1931 -67.4276,45.2366 -67.4713,45.2663 -67.4750,45.2824 -67.4687,45.3018 -67.4591,45.3184 -67.4346,45.3503 -67.4288,45.3870 -67.4823,45.4555 -67.4932,45.4931 -67.4675,45.5083 -67.4430,45.5222 -67.4262,45.5334 -67.4221,45.5688 -67.4313,45.5979 -67.4500,45.6108 -67.4758,45.6130 -67.5064,45.6098 -67.5519,45.6104 -67.6075,45.6201 -67.6603,45.6374 -67.6908,45.6538 -67.7048,45.6642 -67.7105,45.6754 -67.7174,45.6854 -67.7280,45.6923 -67.7355,45.6908 -67.7407,45.6836 -67.7480,45.6778 -67.7618,45.6801 -67.7861,45.6912 -67.8001,45.6998 -67.8070,45.7129 -67.8111,45.7665 -67.8063,45.7818 -67.7941,45.7992 -67.7799,45.8157 -67.7728,45.8281 -67.7761,45.8408 -67.7926,45.8589 -67.7992,45.8757 -67.7874,45.8900 -67.7694,45.9040 -67.7578,45.9195 -67.7597,45.9286 -67.7675,45.9360 -67.7766,45.9429 -67.7828,45.9505 -67.7846,45.9601 -67.7871,46.0946 -67.7897,46.2290 -67.7923,46.3635 -67.7948,46.4979 -67.7974,46.6323 -67.8000,46.7668 -67.8025,46.9012 -67.8052,47.0356 -67.8087,47.0751 -67.8136,47.0819 -67.8547,47.0978 -67.8706,47.1074 -67.8991,47.1388 -67.9434,47.1645 -67.9500,47.1729 -67.9537,47.1866 -67.9624,47.1977 -67.9932,47.2232 -68.0394,47.2452 -68.1014,47.2862 -68.1154,47.2923 -68.1451,47.3015 -68.1561,47.3067 -68.1843,47.3331 -68.1970,47.3414 -68.2464,47.3606 -68.2997,47.3678 -68.3478,47.3585 -68.3820,47.3278 -68.3848,47.3159 -68.3834,47.3071 -68.3856,47.3017 -68.4102,47.2974 -68.4226,47.2931 -68.4353,47.2913 -68.4667,47.3057 -68.4920,47.3076 -68.5180,47.3048 -68.5397,47.2999 -68.5852,47.2825 -68.6079,47.2698 -68.6256,47.2552 -68.6442,47.2453 -68.6688,47.2434 -68.7178,47.2452 -68.7618,47.2370 -68.8897,47.1906 -68.9062,47.1902 -69.0402,47.2491 -69.0575,47.2695 -69.0644,47.2936 -69.0536,47.2938 -68.5761,47.4247 -68.3803,47.5586 -68.3728,47.9247 -68.1203,47.9267 -68.1161,48.0019 -67.8642,47.9997 -67.6122,47.9975 -67.6042,47.9361 -67.3567,47.8417 -67.3228,47.8964 -67.1886,47.8839 -67.0472,47.9308 -66.9469,47.8992 -66.9436,47.9631 -66.8437,47.9967 -66.3727,48.0866 -66.0553,48.0511 -65.7379,48.0156 -65.6323,47.9895 -65.4498,47.9163 -65.2664,47.9248 -64.9550,48.0438 -64.8743,48.0940 -64.7336,48.1305 -64.6013,48.2747 -64.2839,48.3416 -64.2626,48.3577 -63.8402,48.4071 -63.4422,48.4559 -63.0442,48.5047 -62.8525,48.1090 -62.6608,47.7134 -62.4691,47.3178 -62.2774,46.9222 -61.8485,46.9442 -61.4195,46.9662 -61.2509,47.3108 -61.0822,47.6554 -60.9136,48.0000 -61.0329,48.4489 -61.1522,48.8979 -61.2715,49.3468 -61.4265,49.7678 -61.5815,50.1888 -61.5625,50.2108 -61.5605,50.2333 -61.5727,50.2526 -61.6280,50.2679 -61.6272,50.2842 -61.6089,50.3025 -61.5850,50.3154 -61.5970,50.3196 -61.6221,50.3192 -61.6334,50.3223 -61.6430,50.3296 -61.6451,50.3362 -61.6448,50.3443 -61.6471,50.3564 -61.6806,50.4253 -61.6859,50.4583 -61.6603,50.6609 -61.6440,50.7070 -61.6229,50.7269 -61.6164,50.7306 -61.6214,50.7401 -61.6482,50.7673 -61.6660,50.7874 -61.6742,50.8097 -61.6872,50.8229 -61.6954,50.8368 -61.6880,50.8566 -61.7153,50.8908 -61.7065,50.8991 -61.6934,50.8982 -61.6709,50.8908 -61.6565,50.8912 -61.6495,50.8939 -61.6472,50.9012 -61.6471,50.9150 -61.6440,50.9275 -61.6366,50.9324 -61.6277,50.9347 -61.6165,50.9414 -61.6090,50.9432 -61.6055,50.9461 -61.6044,50.9503 -61.6061,50.9619 -61.6055,50.9665 -61.5947,50.9836 -61.5819,50.9976 -61.5313,51.0400 -61.5235,51.0519 -61.5236,51.0747 -61.5266,51.0839 -61.5577,51.1037 -61.5676,51.1177 -61.5877,51.1565 -61.6021,51.1645 -61.6188,51.1697 -61.6985,51.2303 -61.7059,51.2406 -61.7035,51.2493 -61.6880,51.2676 -61.6727,51.2925 -61.6659,51.3106 -61.6719,51.3251 -61.6951,51.3399 -61.7176,51.3443 -61.7396,51.3435 -61.7598,51.3487 -61.7768,51.3706 -61.7826,51.3926 -61.7765,51.4716 -61.7772,51.4753 -61.7811,51.4772 -61.8416,51.5532 -61.8450,51.5692 -61.8351,51.5866 -61.8284,51.6044 -61.8340,51.6241 -61.8805,51.6866 -61.8903,51.7058 -61.8941,51.7303 -61.9062,51.7455 -61.9665,51.7585 -61.9897,51.7685 -62.0001,51.7835 -62.0088,51.8046 -62.0147,51.8273 -62.0184,51.8715 -62.0243,51.8865 -62.0367,51.8964 -62.0821,51.9156 -62.1016,51.9275 -62.1147,51.9446 -62.1253,51.9916 -62.1314,51.9998 -62.1854,51.9998 -62.3884,51.9998 -62.5914,51.9998 -62.7944,51.9998 -62.9263,51.9998 -62.9975,51.9998 -63.2005,51.9998 -63.2981,51.9998 -63.3957,51.9998 -63.6065,51.9998 -63.6396,51.9998 -63.6726,51.9998 -63.7057,51.9998 -63.7387,51.9998 -63.7744,52.0136 -63.8082,52.0426 -63.8196,52.0681 -63.7882,52.0714 -63.7592,52.0620 -63.7144,52.0471 -63.6704,52.0357 -63.6441,52.0370 -63.6401,52.0506 -63.6496,52.0659 -63.6634,52.0819 -63.6718,52.0978 -63.6805,52.1441 -63.6936,52.1883 -63.7144,52.2286 -63.7354,52.2515 -63.7573,52.2706 -63.7717,52.2802 -63.7832,52.2912 -63.7852,52.3023 -63.7765,52.3068 -63.7621,52.3093 -63.7504,52.3133 -63.7495,52.3224 -63.7734,52.3351 -63.8055,52.3369 -63.8552,52.3358 -63.8820,52.3370 -63.8851,52.3350 -63.8897,52.3338 -63.9086,52.3383 -63.9727,52.3536 -64.0009,52.3696 -64.0064,52.3751 -64.0291,52.3978 -64.0381,52.4180 -64.0456,52.4286 -64.0519,52.4364 -64.0568,52.4426 -64.0578,52.4431 -64.0754,52.4536 -64.0812,52.4734 -64.0689,52.4944 -64.0654,52.4980 -64.0555,52.5080 -64.0436,52.5200 -64.0353,52.5270 -64.0157,52.5434 -63.9955,52.5579 -63.9668,52.5732 -63.9541,52.5799 -63.9346,52.5880 -63.9087,52.5987 -63.8759,52.6084 -63.8442,52.6152 -63.8357,52.6167 -63.8150,52.6204 -63.8126,52.6202 -63.7644,52.6242 -63.7136,52.6286 -63.6627,52.6332 -63.6119,52.6376 -63.5845,52.6399 -63.5570,52.6422 -63.5296,52.6445 -63.5022,52.6468 -63.4800,52.6462 -63.4578,52.6429 -63.4356,52.6396 -63.4136,52.6390 -63.3791,52.6512 -63.3842,52.6732 -63.4103,52.6974 -63.4389,52.7159 -63.4572,52.7236 -63.4767,52.7291 -63.4965,52.7344 -63.5156,52.7410 -63.5340,52.7502 -63.5545,52.7604 -63.5756,52.7685 -63.5958,52.7709 -63.5936,52.7763 -63.6052,52.7855 -63.6017,52.8199 -63.6120,52.8612 -63.6533,52.8371 -63.6671,52.8131 -63.7187,52.7787 -63.7943,52.7718 -64.0041,52.7339 -64.0626,52.7271 -64.1073,52.7202 -64.1245,52.6961 -64.1658,52.6755 -64.1589,52.6376 -64.1623,52.5964 -64.1899,52.5723 -64.1830,52.5517 -64.1623,52.5310 -64.1417,52.4898 -64.1360,52.4641 -64.1279,52.4278 -64.1279,52.3866 -64.1417,52.3556 -64.1658,52.3212 -64.2070,52.3040 -64.2208,52.2662 -64.2105,52.2215 -64.1795,52.1630 -64.1559,52.1327 -64.1555,52.1321 -64.1727,52.1149 -64.2105,52.1286 -64.2518,52.1149 -64.2586,52.0839 -64.2724,52.0392 -64.2518,52.0117 -64.2346,51.9807 -64.2758,51.9670 -64.2994,51.9853 -64.3068,51.9910 -64.3377,52.0117 -64.3618,51.9670 -64.3377,51.8741 -64.3376,51.8711 -64.3343,51.8191 -64.2930,51.7847 -64.2874,51.7664 -64.2793,51.7400 -64.3180,51.7012 -64.3192,51.7001 -64.3240,51.6953 -64.3446,51.6677 -64.4065,51.6540 -64.4375,51.6402 -64.4788,51.6093 -64.5006,51.6020 -64.5284,51.5927 -64.5304,51.5921 -64.5399,51.5962 -64.5785,51.6127 -64.6026,51.6379 -64.6160,51.6519 -64.6542,51.6918 -64.6886,51.7228 -64.7086,51.7328 -64.7711,51.7640 -64.8571,51.7744 -64.9190,51.7606 -64.9224,51.7297 -64.9568,51.7228 -64.9912,51.7365 -65.0325,51.7606 -65.0806,51.7503 -65.1322,51.7572 -65.1838,51.7744 -65.1770,51.7916 -65.1838,51.8225 -65.2217,51.8260 -65.2526,51.8466 -65.2767,51.8672 -65.3180,51.8535 -65.3386,51.8191 -65.3592,51.8500 -65.3936,51.8982 -65.3730,51.9188 -65.3592,51.9498 -65.3764,51.9842 -65.3936,51.9773 -65.4143,51.9842 -65.4349,52.0048 -65.4590,52.0254 -65.4831,52.0667 -65.5003,52.0977 -65.5278,52.0564 -65.5518,52.0323 -65.6138,52.0323 -65.6344,52.0151 -65.6619,51.9876 -65.6825,52.0254 -65.6619,52.0633 -65.6572,52.0938 -65.6550,52.1080 -65.6963,52.1045 -65.6989,52.1032 -65.7307,52.0873 -65.7582,52.0908 -65.7950,52.1005 -65.8236,52.1080 -65.8717,52.0977 -65.9027,52.0805 -65.9405,52.0942 -65.9508,52.0805 -65.9732,52.0693 -65.9921,52.0598 -66.0265,52.0805 -66.0884,52.0908 -66.0849,52.1217 -66.0781,52.1699 -66.1228,52.2008 -66.1641,52.2146 -66.1950,52.2215 -66.2122,52.2524 -66.2128,52.2530 -66.2485,52.2887 -66.2569,52.2971 -66.2844,52.3075 -66.3016,52.2868 -66.2913,52.2524 -66.2775,52.2215 -66.2638,52.1561 -66.3016,52.1321 -66.3498,52.1321 -66.3739,52.1424 -66.3799,52.1606 -66.3842,52.1733 -66.4082,52.2180 -66.4323,52.2284 -66.4473,52.2519 -66.4564,52.2662 -66.4610,52.2847 -66.4667,52.3075 -66.4787,52.3314 -66.4805,52.3350 -66.4772,52.3380 -66.4358,52.3763 -66.3876,52.3694 -66.3498,52.3591 -66.3498,52.3831 -66.3635,52.4416 -66.3842,52.4691 -66.3773,52.5035 -66.3739,52.5413 -66.3847,52.5566 -66.3922,52.5670 -66.4082,52.5895 -66.4048,52.6480 -66.3739,52.6686 -66.3119,52.6101 -66.2879,52.6101 -66.2947,52.6376 -66.3326,52.7374 -66.3327,52.7376 -66.3773,52.7993 -66.4014,52.8440 -66.3910,52.8715 -66.3498,52.8612 -66.3291,52.8543 -66.3278,52.8535 -66.3119,52.8440 -66.2879,52.8474 -66.2890,52.8655 -66.2911,52.8994 -66.2913,52.9025 -66.3154,52.9369 -66.3635,53.0022 -66.4254,53.0366 -66.4536,53.0304 -66.4564,53.0297 -66.4633,52.9953 -66.5080,52.9575 -66.5125,52.9556 -66.5493,52.9403 -66.5955,52.9382 -66.6249,52.9369 -66.6456,52.8887 -66.6456,52.8268 -66.6559,52.7959 -66.6567,52.7955 -66.7075,52.7718 -66.7487,52.7752 -66.7694,52.7649 -66.7591,52.7064 -66.7602,52.7035 -66.7694,52.6789 -66.7921,52.6789 -66.7935,52.6789 -66.8141,52.6927 -66.8244,52.7236 -66.8519,52.7305 -66.8523,52.7265 -66.8554,52.6892 -66.8657,52.6617 -66.8829,52.6760 -66.9070,52.6961 -66.9482,52.7374 -66.9861,52.7580 -66.9927,52.7601 -67.0411,52.7752 -67.0514,52.8096 -67.0617,52.8750 -67.0654,52.8746 -67.0996,52.8715 -67.1340,52.8578 -67.1649,52.8199 -67.2027,52.8268 -67.2612,52.8612 -67.3025,52.8681 -67.3472,52.9162 -67.3334,52.9437 -67.3403,52.9781 -67.3678,53.0160 -67.3850,53.1054 -67.3575,53.1295 -67.3266,53.1329 -67.2990,53.1570 -67.2406,53.1673 -67.2096,53.1535 -67.1683,53.1535 -67.1202,53.1226 -67.0927,53.1226 -67.0514,53.1226 -67.0583,53.0916 -67.0480,53.0744 -66.9964,53.0813 -66.9826,53.1054 -66.9826,53.1432 -66.9929,53.1673 -66.9757,53.1811 -66.9699,53.1834 -66.9689,53.1879 -66.9654,53.2395 -66.9649,53.2474 -66.9620,53.2946 -66.9964,53.3255 -67.0101,53.3530 -66.9861,53.3840 -66.9638,53.3899 -66.9345,53.3977 -66.8898,53.4149 -66.9207,53.4356 -66.9757,53.4768 -67.0308,53.5147 -67.1133,53.5250 -67.1303,53.5290 -67.1855,53.5422 -67.3231,53.5663 -67.3250,53.5681 -67.3438,53.5869 -67.3988,53.6351 -67.4125,53.6935 -67.4469,53.7073 -67.4539,53.7099 -67.5123,53.7314 -67.5295,53.7589 -67.5742,53.7658 -67.5948,53.7830 -67.5776,53.7967 -67.5467,53.8036 -67.5123,53.8139 -67.5204,53.8328 -67.5226,53.8380 -67.5604,53.8483 -67.5835,53.8552 -67.5948,53.8586 -67.6017,53.8861 -67.6155,53.9240 -67.6705,53.9446 -67.7118,53.9721 -67.7462,53.9824 -67.7806,54.0065 -67.8081,54.0340 -67.8012,54.0650 -67.7909,54.0994 -67.7737,54.1269 -67.7427,54.1544 -67.7049,54.1544 -67.6739,54.1682 -67.6395,54.1888 -67.6395,54.2301 -67.6739,54.2645 -67.6911,54.3057 -67.7462,54.3436 -67.7496,54.3814 -67.7496,54.4261 -67.7014,54.4502 -67.6671,54.4605 -67.6327,54.4846 -67.6325,54.4845 -67.6051,54.4708 -67.5467,54.4846 -67.5088,54.4880 -67.4951,54.5396 -67.5157,54.5740 -67.5084,54.5827 -67.4985,54.5946 -67.4263,54.5706 -67.3988,54.5534 -67.3403,54.5121 -67.3205,54.5045 -67.2681,54.4846 -67.2337,54.5155 -67.2543,54.5465 -67.2612,54.5706 -67.2371,54.5878 -67.1924,54.6118 -67.1885,54.6122 -67.1546,54.6153 -67.1236,54.6462 -67.1092,54.6593 -67.0902,54.6766 -67.0858,54.6806 -67.0858,54.7322 -67.1718,54.7804 -67.2646,54.8354 -67.3162,54.8939 -67.3781,54.9489 -67.4229,54.9971 -67.4435,55.0349 -67.4435,55.0507 -67.4351,55.0635 -67.4081,55.0806 -67.3788,55.0887 -67.3564,55.0883 -67.3337,55.0839 -67.3114,55.0774 -67.2898,55.0711 -67.2741,55.0660 -67.2689,55.0613 -67.2719,55.0552 -67.2811,55.0459 -67.2905,55.0396 -67.3010,55.0340 -67.3086,55.0268 -67.3094,55.0157 -67.2970,55.0060 -67.2727,54.9984 -67.2469,54.9928 -67.2301,54.9889 -67.1967,54.9746 -67.1670,54.9571 -67.1380,54.9387 -67.1069,54.9217 -67.0867,54.9149 -67.0654,54.9102 -67.0445,54.9049 -67.0252,54.8960 -67.0159,54.8849 -67.0089,54.8688 -67.0021,54.8515 -66.9933,54.8370 -66.9665,54.8143 -66.9362,54.7991 -66.9034,54.7882 -66.8694,54.7784 -66.8333,54.7644 -66.7850,54.7458 -66.7370,54.7339 -66.7013,54.7402 -66.7005,54.7482 -66.7102,54.7575 -66.7203,54.7669 -66.7211,54.7755 -66.7044,54.7841 -66.6833,54.7850 -66.6614,54.7825 -66.6425,54.7812 -66.6071,54.8039 -66.6384,54.8517 -66.6932,54.9036 -66.7288,54.9387 -66.7282,54.9598 -66.7040,54.9691 -66.6751,54.9745 -66.6608,54.9842 -66.6648,54.9962 -66.6752,55.0075 -66.6877,55.0176 -66.6981,55.0256 -66.7092,55.0353 -66.7170,55.0432 -66.7235,55.0513 -66.7308,55.0620 -66.7370,55.0697 -66.7448,55.0775 -66.7523,55.0851 -66.7574,55.0918 -66.7623,55.1042 -66.7612,55.1130 -66.7570,55.1218 -66.7523,55.1340 -66.7498,55.1469 -66.7473,55.1598 -66.7431,55.1716 -66.7352,55.1817 -66.7225,55.1868 -66.7069,55.1890 -66.6938,55.1925 -66.6887,55.2017 -66.7009,55.2206 -66.7279,55.2410 -66.7581,55.2593 -66.7801,55.2719 -66.7936,55.2805 -66.8118,55.2930 -66.8283,55.3063 -66.8372,55.3172 -66.8382,55.3292 -66.8320,55.3347 -66.8202,55.3369 -66.8044,55.3392 -66.7704,55.3388 -66.7314,55.3274 -66.6996,55.3071 -66.6868,55.2797 -66.6768,55.2578 -66.6511,55.2544 -66.6185,55.2575 -66.5880,55.2554 -66.5589,55.2404 -66.5357,55.2191 -66.5150,55.1950 -66.4933,55.1715 -66.4788,55.1605 -66.4655,55.1546 -66.4513,55.1504 -66.4340,55.1441 -66.4220,55.1373 -66.4108,55.1287 -66.4000,55.1196 -66.3888,55.1112 -66.3430,55.0736 -66.3006,55.0332 -66.2543,54.9981 -66.1972,54.9768 -66.1765,54.9738 -66.1550,54.9706 -66.1341,54.9655 -66.1153,54.9566 -66.0978,54.9443 -66.0789,54.9309 -66.0593,54.9188 -66.0399,54.9110 -66.0288,54.9114 -66.0173,54.9158 -66.0059,54.9215 -65.9947,54.9254 -65.9711,54.9278 -65.9497,54.9261 -65.9285,54.9221 -65.9056,54.9176 -65.8929,54.9163 -65.8736,54.9133 -65.8560,54.9075 -65.8487,54.8970 -65.8495,54.8819 -65.8493,54.8690 -65.8467,54.8562 -65.8402,54.8419 -65.8191,54.8163 -65.7915,54.7964 -65.7619,54.7785 -65.7343,54.7593 -65.7127,54.7382 -65.6980,54.7228 -65.6806,54.7148 -65.6784,54.7146 -65.6620,54.7200 -65.6511,54.7309 -65.6256,54.7492 -65.5746,54.7401 -65.5502,54.7279 -65.5455,54.7255 -65.4799,54.7309 -65.4453,54.7455 -65.4453,54.7455 -65.4453,54.7801 -65.4580,54.7965 -65.4817,54.8166 -65.4726,54.8421 -65.4252,54.8330 -65.3997,54.8239 -65.3797,54.8239 -65.3523,54.8257 -65.3177,54.8366 -65.2959,54.8257 -65.2740,54.8366 -65.2212,54.8512 -65.1939,54.8803 -65.1629,54.9295 -65.1028,54.9568 -65.0536,54.9496 -65.0044,54.9386 -64.9406,54.9295 -64.8714,54.8894 -64.8550,54.8730 -64.8477,54.8494 -64.8113,54.8403 -64.7821,54.8348 -64.7585,54.8166 -64.7657,54.7892 -64.7767,54.7674 -64.7714,54.7504 -64.7676,54.7382 -64.7147,54.7291 -64.6892,54.7364 -64.6744,54.7359 -64.6346,54.7346 -64.6310,54.7341 -64.5763,54.7273 -64.5380,54.7401 -64.5034,54.7637 -64.4579,54.7947 -64.3923,54.7892 -64.3139,54.7656 -64.2447,54.7328 -64.1810,54.7109 -64.1629,54.6892 -64.1445,54.6672 -64.1135,54.6308 -64.0516,54.6071 -63.9660,54.6071 -63.8986,54.6016 -63.8814,54.6134 -63.8585,54.6289 -63.8020,54.6417 -63.7401,54.6235 -63.7292,54.6471 -63.7583,54.6799 -63.7893,54.7109 -63.8713,54.7473 -63.8968,54.7637 -63.9040,54.7820 -63.8840,54.7965 -63.8385,54.8129 -63.8239,54.8293 -63.8366,54.8457 -63.8458,54.8803 -63.8202,54.9186 -63.8148,54.9405 -63.7729,54.9423 -63.7383,54.9332 -63.6909,54.9168 -63.6599,54.9022 -63.6053,54.9022 -63.5943,54.9186 -63.5980,54.9441 -63.5962,54.9605 -63.5761,54.9787 -63.5780,55.0024 -63.5834,55.0206 -63.5852,55.0498 -63.6016,55.0716 -63.5889,55.1208 -63.5652,55.1572 -63.5488,55.1846 -63.5342,55.1937 -63.4981,55.2027 -63.4978,55.2028 -63.4541,55.2046 -63.4195,55.2246 -63.4183,55.2280 -63.4104,55.2520 -63.4614,55.2483 -63.4960,55.2392 -63.5506,55.2265 -63.5943,55.2338 -63.6454,55.2447 -63.6599,55.2702 -63.6454,55.2866 -63.5998,55.3012 -63.5725,55.3012 -63.5415,55.3084 -63.5361,55.3230 -63.5579,55.3248 -63.5761,55.3267 -63.5780,55.3394 -63.5543,55.3467 -63.5269,55.3467 -63.4905,55.3467 -63.4559,55.3431 -63.3757,55.3576 -63.3429,55.3613 -63.3302,55.3886 -63.3375,55.4123 -63.3612,55.4123 -63.3903,55.4050 -63.4559,55.4159 -63.5105,55.4232 -63.5780,55.4232 -63.6417,55.4250 -63.7383,55.4396 -63.7674,55.4615 -63.7692,55.4833 -63.7437,55.4906 -63.7128,55.4997 -63.6854,55.5198 -63.6745,55.5562 -63.6745,55.5963 -63.6690,55.6236 -63.6818,55.6509 -63.7000,55.6546 -63.7273,55.6528 -63.7492,55.6546 -63.7419,55.6746 -63.7273,55.6892 -63.7109,55.7147 -63.7037,55.7311 -63.6927,55.7530 -63.6964,55.7766 -63.7109,55.7839 -63.7437,55.7894 -63.7619,55.7930 -63.7674,55.8040 -63.7674,55.8295 -63.7820,55.8477 -63.8257,55.8695 -63.8421,55.8932 -63.8403,55.9133 -63.8148,55.9206 -63.7893,55.9315 -63.7619,55.9333 -63.7292,55.9370 -63.6945,55.9424 -63.6910,55.9412 -63.6677,55.9520 -63.6415,55.9624 -63.6252,55.9698 -63.6079,55.9777 -63.5907,55.9854 -63.5750,55.9917 -63.5557,55.9961 -63.5362,55.9966 -63.5165,55.9961 -63.4967,55.9972 -63.4847,55.9994 -63.4666,56.0044 -63.4506,56.0122 -63.4449,56.0228 -63.4613,56.0308 -63.4942,56.0296 -63.5278,56.0244 -63.5461,56.0211 -63.5669,56.0185 -63.5872,56.0176 -63.6075,56.0184 -63.6284,56.0215 -63.6473,56.0274 -63.6658,56.0355 -63.6842,56.0431 -63.7032,56.0473 -63.7366,56.0464 -63.7711,56.0430 -63.8043,56.0432 -63.8341,56.0534 -63.8392,56.0602 -63.8401,56.0672 -63.8439,56.0723 -63.8580,56.0736 -63.8709,56.0745 -63.8779,56.0786 -63.8775,56.0853 -63.8683,56.0941 -63.8568,56.1003 -63.8461,56.1058 -63.8414,56.1120 -63.8477,56.1203 -63.8618,56.1233 -63.8814,56.1203 -63.9011,56.1146 -63.9158,56.1092 -63.9390,56.0965 -63.9766,56.0777 -64.0103,56.0698 -64.0217,56.0898 -64.0200,56.1141 -64.0184,56.1363 -64.0109,56.1556 -63.9916,56.1712 -63.9628,56.1773 -63.9223,56.1830 -63.8878,56.1942 -63.8769,56.2173 -63.8987,56.2377 -63.9417,56.2530 -63.9872,56.2619 -64.0166,56.2633 -64.0364,56.2592 -64.0550,56.2559 -64.0730,56.2563 -64.0911,56.2628 -64.0949,56.2669 -64.0987,56.2731 -64.1027,56.2798 -64.1072,56.2851 -64.1146,56.2899 -64.1224,56.2938 -64.1299,56.2979 -64.1366,56.3037 -64.1147,56.3218 -64.1052,56.3478 -64.1081,56.3754 -64.1239,56.3984 -64.1350,56.4033 -64.1503,56.4078 -64.1639,56.4145 -64.1697,56.4257 -64.1623,56.4345 -64.1454,56.4361 -64.1270,56.4342 -64.1150,56.4321 -64.0608,56.4239 -64.0110,56.4190 -63.9615,56.4196 -63.9080,56.4278 -63.8771,56.4393 -63.8746,56.4516 -63.8933,56.4630 -63.9256,56.4717 -63.9470,56.4835 -63.9477,56.5026 -63.9416,56.5247 -63.9426,56.5451 -63.9530,56.5577 -63.9672,56.5658 -63.9830,56.5719 -63.9980,56.5781 -64.0150,56.5893 -64.0222,56.5996 -64.0270,56.6114 -64.0369,56.6273 -64.0573,56.6440 -64.0821,56.6561 -64.1061,56.6694 -64.1241,56.6895 -64.1257,56.7093 -64.1157,56.7313 -64.0999,56.7514 -64.0836,56.7656 -64.0575,56.7719 -64.0198,56.7776 -63.9929,56.7886 -63.9989,56.8116 -64.0108,56.8370 -63.9974,56.8548 -63.9708,56.8670 -63.9432,56.8755 -63.9272,56.8760 -63.9047,56.8739 -63.8835,56.8732 -63.8714,56.8781 -63.8716,56.8906 -63.8832,56.9007 -63.8981,56.9091 -63.9082,56.9168 -63.9154,56.9366 -63.9124,56.9574 -63.9004,56.9750 -63.8807,56.9856 -63.8659,56.9918 -63.8678,56.9985 -63.8772,57.0073 -63.8846,57.0195 -63.8840,57.0291 -63.8807,57.0441 -63.8760,57.0592 -63.8717,57.0693 -63.8503,57.0843 -63.8216,57.0906 -63.7952,57.1009 -63.7809,57.1280 -63.7827,57.1396 -63.7883,57.1492 -63.7925,57.1585 -63.7902,57.1689 -63.7786,57.1835 -63.7652,57.1965 -63.7526,57.2102 -63.7433,57.2267 -63.7502,57.2441 -63.7734,57.2631 -63.8007,57.2758 -63.8205,57.2745 -63.8253,57.2554 -63.8355,57.2189 -63.8502,57.1918 -63.8684,57.2006 -63.8757,57.2274 -63.8692,57.2498 -63.8563,57.2713 -63.8448,57.2954 -63.8429,57.3068 -63.8421,57.3170 -63.8380,57.3253 -63.8266,57.3311 -63.8122,57.3368 -63.7992,57.3444 -63.7864,57.3515 -63.7728,57.3559 -63.7437,57.3614 -63.7177,57.3705 -63.7079,57.3852 -63.7279,57.4073 -63.7443,57.4217 -63.7575,57.4408 -63.7646,57.4626 -63.7630,57.4852 -63.7606,57.5109 -63.7638,57.5383 -63.7649,57.5644 -63.7566,57.5862 -63.7324,57.6032 -63.7005,57.6143 -63.6672,57.6246 -63.6392,57.6391 -63.6179,57.6567 -63.5954,57.6810 -63.5839,57.7081 -63.5958,57.7342 -63.6106,57.7395 -63.6306,57.7380 -63.6492,57.7312 -63.6602,57.7199 -63.6638,57.7083 -63.6668,57.6964 -63.6702,57.6846 -63.6753,57.6737 -63.6959,57.6590 -63.7168,57.6718 -63.7353,57.6960 -63.7488,57.7151 -63.7695,57.7305 -63.7800,57.7235 -63.7883,57.7065 -63.8029,57.6917 -63.8175,57.6885 -63.8253,57.6942 -63.8303,57.7049 -63.8363,57.7171 -63.8470,57.7238 -63.8623,57.7250 -63.8784,57.7255 -63.8919,57.7304 -63.9019,57.7457 -63.9062,57.7650 -63.9111,57.7832 -63.9228,57.7956 -63.9394,57.8010 -63.9574,57.8044 -63.9756,57.8075 -63.9929,57.8120 -64.0106,57.8137 -64.0159,57.8045 -64.0162,57.7906 -64.0189,57.7781 -64.0539,57.7679 -64.0941,57.8060 -64.1294,57.8599 -64.1500,57.8976 -64.1647,57.9180 -64.1834,57.9372 -64.2014,57.9566 -64.2144,57.9775 -64.2163,58.0033 -64.2134,58.0281 -64.2214,58.0452 -64.2559,58.0479 -64.2764,58.0473 -64.2926,58.0507 -64.3083,58.0564 -64.3274,58.0628 -64.3468,58.0661 -64.3659,58.0660 -64.3849,58.0648 -64.4043,58.0645 -64.4276,58.0748 -64.4286,58.0970 -64.4190,58.1239 -64.4108,58.1483 -64.3896,58.1877 -64.3508,58.2064 -64.3040,58.2130 -64.2587,58.2160 -64.2420,58.2198 -64.2247,58.2275 -64.2092,58.2380 -64.1974,58.2503 -64.1911,58.2642 -64.1882,58.2791 -64.1857,58.2939 -64.1805,58.3071 -64.1750,58.3190 -64.1719,58.3293 -64.1671,58.3388 -64.1564,58.3481 -64.1326,58.3586 -64.1052,58.3647 -64.0769,58.3685 -64.0508,58.3723 -64.0301,58.3834 -64.0168,58.4017 -64.0025,58.4208 -63.9794,58.4340 -63.9395,58.4375 -63.9010,58.4349 -63.8646,58.4383 -63.8307,58.4595 -63.8199,58.4741 -63.8182,58.4860 -63.8257,58.4965 -63.8426,58.5066 -63.8522,58.5149 -63.8556,58.5254 -63.8572,58.5367 -63.8619,58.5475 -63.8904,58.5668 -63.9194,58.5602 -63.9481,58.5434 -63.9760,58.5321 -64.0066,58.5280 -64.0305,58.5268 -64.0527,58.5332 -64.0780,58.5520 -64.0933,58.5714 -64.0992,58.5921 -64.0965,58.6142 -64.0861,58.6378 -64.0594,58.6690 -64.0286,58.6823 -63.9934,58.6848 -63.9540,58.6832 -63.9354,58.6866 -63.9178,58.6945 -63.9001,58.7022 -63.8808,58.7050 -63.8605,58.7030 -63.8406,58.7002 -63.8206,58.6983 -63.8002,58.6984 -63.7437,58.7021 -63.6870,58.7054 -63.6303,58.7095 -63.5741,58.7159 -63.5336,58.7235 -63.4978,58.7372 -63.4837,58.7586 -63.5084,58.7897 -63.5240,58.8015 -63.5394,58.8134 -63.5552,58.8248 -63.5718,58.8353 -63.5934,58.8443 -63.6151,58.8489 -63.6373,58.8525 -63.6599,58.8586 -63.6925,58.8702 -63.7263,58.8785 -63.7604,58.8791 -63.7941,58.8673 -63.8063,58.8579 -63.8166,58.8473 -63.8277,58.8373 -63.8419,58.8298 -63.8652,58.8252 -63.8911,58.8244 -63.9172,58.8258 -63.9411,58.8274 -63.9822,58.8233 -64.0203,58.8094 -64.0563,58.7896 -64.0913,58.7678 -64.1263,58.7525 -64.1571,58.7508 -64.1881,58.7573 -64.2238,58.7665 -64.2366,58.7696 -64.2498,58.7743 -64.2615,58.7818 -64.2691,58.7928 -64.2698,58.8077 -64.2644,58.8214 -64.2586,58.8352 -64.2586,58.8501 -64.2782,58.8752 -64.3104,58.8847 -64.3465,58.8851 -64.3773,58.8828 -64.4014,58.8838 -64.4246,58.8880 -64.4477,58.8928 -64.4713,58.8959 -64.4955,58.8948 -64.5196,58.8910 -64.5436,58.8875 -64.5680,58.8873 -64.6050,58.8964 -64.6365,58.9120 -64.6670,58.9290 -64.7015,58.9423 -64.7328,58.9409 -64.7621,58.9274 -64.7913,58.9137 -64.8227,58.9113 -64.8352,58.9135 -64.8566,58.9182 -64.8760,58.9253 -64.8822,58.9351 -64.8725,58.9414 -64.8552,58.9481 -64.8403,58.9563 -64.8380,58.9672 -64.8447,58.9734 -64.8542,58.9796 -64.8619,58.9861 -64.8635,58.9937 -64.8579,59.0004 -64.8454,59.0142 -64.8321,59.0286 -64.8241,59.0368 -64.7927,59.0546 -64.7542,59.0651 -64.7159,59.0657 -64.6847,59.0540 -64.6736,59.0445 -64.6654,59.0366 -64.6556,59.0301 -64.6399,59.0250 -64.6175,59.0221 -64.5968,59.0212 -64.5767,59.0179 -64.5562,59.0084 -64.5395,59.0024 -64.5211,59.0018 -64.5022,59.0016 -64.4842,58.9967 -64.4611,58.9874 -64.4379,58.9829 -64.4140,58.9820 -64.3890,58.9832 -64.3589,58.9854 -64.3183,58.9922 -64.2921,59.0073 -64.3049,59.0344 -64.3188,59.0461 -64.3329,59.0569 -64.3481,59.0662 -64.3649,59.0733 -64.3907,59.0783 -64.4178,59.0799 -64.4445,59.0819 -64.4691,59.0884 -64.4895,59.1057 -64.4913,59.1259 -64.4892,59.1468 -64.4981,59.1657 -64.5077,59.1724 -64.5184,59.1785 -64.5279,59.1857 -64.5340,59.1953 -64.5329,59.2113 -64.5231,59.2243 -64.5121,59.2364 -64.5075,59.2501 -64.5124,59.2607 -64.5223,59.2683 -64.5325,59.2758 -64.5383,59.2856 -64.5365,59.2974 -64.5287,59.3073 -64.5185,59.3156 -64.5092,59.3227 -64.5053,59.3417 -64.5233,59.3585 -64.5372,59.3727 -64.5211,59.3842 -64.5073,59.3874 -64.4928,59.3923 -64.4859,59.3995 -64.4951,59.4101 -64.5064,59.4211 -64.5034,59.4295 -64.4918,59.4364 -64.4772,59.4426 -64.4559,59.4512 -64.4343,59.4591 -64.4125,59.4666 -64.3908,59.4741 -64.3725,59.4792 -64.3557,59.4842 -64.3461,59.4919 -64.3494,59.5051 -64.3762,59.5235 -64.4141,59.5291 -64.4535,59.5259 -64.4845,59.5179 -64.5158,59.5047 -64.5472,59.4904 -64.5792,59.4773 -64.6119,59.4677 -64.6418,59.4592 -64.6720,59.4503 -64.7020,59.4473 -64.7313,59.4563 -64.7447,59.4652 -64.7559,59.4746 -64.7657,59.4852 -64.7749,59.4973 -64.7750,59.5009 -64.7723,59.5049 -64.7702,59.5093 -64.7719,59.5142 -64.7786,59.5182 -64.7865,59.5191 -64.7947,59.5191 -64.8022,59.5201 -64.8266,59.5336 -64.8279,59.5374 -64.8543,59.5452 -64.8934,59.5647 -64.9032,59.6038 -64.9018,59.6415 -64.8850,59.6638 -64.8655,59.6708 -64.8251,59.6805 -64.7745,59.6992 -64.7766,59.7043 -64.7813,59.7099 -64.7857,59.7181 -64.7886,59.7264 -64.7919,59.7353 -64.7954,59.7445 -64.7988,59.7537 -64.8020,59.7594 -64.8064,59.7657 -64.8103,59.7719 -64.8114,59.7756 -64.8119,59.7773 -64.8103,59.7813 -64.8068,59.7860 -64.8035,59.7899 -64.8019,59.7914 -64.8018,59.7988 -64.8015,59.8054 -64.8044,59.8118 -64.8141,59.8190 -64.7986,59.8284 -64.7816,59.8330 -64.7643,59.8367 -64.7477,59.8432 -64.7442,59.8515 -64.7553,59.8597 -64.7676,59.8689 -64.7677,59.8801 -64.7370,59.8918 -64.7014,59.8840 -64.6707,59.8834 -64.6544,59.9167 -64.6635,59.9404 -64.6901,59.9491 -64.7230,59.9513 -64.7511,59.9556 -64.7643,59.9619 -64.7769,59.9682 -64.7902,59.9717 -64.8057,59.9700 -64.8231,59.9650 -64.8354,59.9639 -64.8453,59.9683 -64.8558,59.9792 -64.8616,59.9894 -64.8660,60.0008 -64.8707,60.0122 -64.8775,60.0226 -64.8885,60.0316 -64.8997,60.0395 -64.9042,60.0478 -64.8952,60.0573 -64.8774,60.0597 -64.8564,60.0533 -64.8354,60.0444 -64.8172,60.0393 -64.7994,60.0399 -64.7815,60.0436 -64.7639,60.0487 -64.7468,60.0539 -64.7324,60.0561 -64.7164,60.0586 -64.7051,60.0642 -64.7047,60.0762 -64.7147,60.0816 -64.7324,60.0916 -64.7410,60.1014 -64.7239,60.1059 -64.6973,60.1060 -64.6706,60.1062 -64.6440,60.1064 -64.6174,60.1065 -64.6028,60.1096 -64.5992,60.1178 -64.6026,60.1292 -64.6088,60.1420 -64.6360,60.1743 -64.6696,60.1834 -64.7079,60.1798 -64.7489,60.1736 -64.7733,60.1802 -64.8096,60.1977 -64.8428,60.2189 -64.8580,60.2363 -64.8447,60.2641 -64.8083,60.2808 -64.7642,60.2896 -64.7277,60.2938 -64.7029,60.2946 -64.6780,60.2935 -64.6532,60.2926 -64.6390,60.2935 -64.6290,60.2941 -64.6047,60.2979 -64.5815,60.3014 -64.5580,60.3033 -64.5333,60.3026 -64.5314,60.3039 -64.5313,60.3040 -64.5192,60.3193 -64.5191,60.3195 -64.5124,60.3425 -64.4902,60.3612 -64.4602,60.3704 -64.4324,60.3727 -64.4323,60.3727 -64.3999,60.3822 -64.4004,60.3843 -64.4049,60.4029 -64.1964,60.5785 -64.1969,60.5788 -64.1668,60.6660 -64.1709,60.7148 -64.2030,60.7702 -64.2628,60.8186 -64.3341,60.8535 -64.4206,60.8794 -64.5275,60.8966 -64.6417,60.8996 -64.6535,61.1463 -64.5700,61.1726 -64.4974,61.2105 -64.3568,61.3166 -64.2837,61.3884 -64.2094,61.5944 -64.2229,61.6485 -64.2716,61.7131 -64.5531,61.9748 -64.6695,62.0459 -64.6977,62.1660 -64.5185,62.1654 -64.3727,62.1875 -64.2007,62.2461 -64.0422,62.3270 -63.9580,62.3967 -63.9123,62.5423 -63.9421,62.5913 -64.0843,62.6936 -64.1363,62.7510 -64.1650,62.8171 -64.1839,62.9522 -64.2164,62.9996 -64.2922,63.0724 -64.2585,63.0782 -64.0937,63.0646 -63.9675,63.0682 -63.8488,63.0869 -63.7401,63.1211 -63.6595,63.1664 -63.6280,63.2022 -63.5921,63.2856 -63.6076,63.3562 -63.6572,63.4220 -63.7695,63.4998 -63.8129,63.5420 -63.8425,63.5941 -63.8670,63.6917 -63.9427,63.8103 -64.0770,63.9375 -64.2486,64.1387 -64.3257,64.1853 -64.4272,64.2221 -64.5123,64.2409 -64.6788,64.2535 -64.7154,64.2678 -64.7110,64.2868 -64.6445,64.3338 -64.6054,64.3796 -64.5869,64.4312 -64.5893,64.4869 -64.6247,64.5549 -64.4519,64.8813 -64.1715,64.8302 -63.8945,64.7357 -63.7715,64.7065 -63.6786,64.6941 -63.5679,64.6882 -63.4581,64.6914 -63.3673,64.7013 -63.2296,64.7325 -63.1177,64.7817 -63.0587,64.8292 -63.0175,64.8967 -62.9573,64.9426 -62.8900,65.0101 -62.8690,65.0435 -62.8127,65.1890 -62.8394,65.3092 -62.8283,65.3425 -62.8192,65.3519 -62.7919,65.3728 -62.7567,65.3797 -62.5552,65.3816 -62.3908,65.4046 -62.1865,65.3985 -62.0329,65.4114 -61.9435,65.4292 -61.8635,65.4540 -61.7748,65.4939 -61.7101,65.5342 -61.6390,65.6044 -61.6138,65.6786 -61.6392,65.7453 -61.7236,65.8210 -61.5472,65.8890 -61.4600,65.9559 -61.4353,66.0306 -61.4784,66.1308 -61.3080,66.1600 -61.1838,66.1908 -61.0774,66.2281 -60.9992,66.2711 -60.9415,66.3400 -60.9386,66.4325 -60.8056,66.5031 -60.7576,66.5502 -60.7370,66.6060 -60.7415,66.6576 -60.7842,66.7300 -60.8684,66.8035 -61.1487,66.9824 -61.3527,67.0933 -61.7329,67.2206 -61.8146,67.2409 -61.8775,67.2565 -61.9762,67.3143 -62.1791,67.3783 -62.3095,67.3983 -62.5379,67.4060 -62.6655,67.4620 -62.8454,67.5142 -63.0169,67.5414 -63.1971,67.5506 -63.2337,67.5765 -63.3083,67.6577 -63.5546,67.7999 -63.6700,67.8368 -63.8625,67.8668 -63.9105,67.8884 -63.9943,67.9262 -64.1362,67.9698 -64.1376,67.9718 -64.2138,68.0795 -64.2895,68.1247 -64.3926,68.1647 -64.6944,68.2384 -64.8832,68.2634 -64.9952,68.2684 -65.1006,68.2664 -65.2154,68.2563 -65.3356,68.2366 -65.3724,68.2374 -65.3735,68.2377 -65.4878,68.2987 -65.6622,68.3568 -65.7331,68.3987 -65.8052,68.4295 -65.9040,68.4564 -66.0916,68.4906 -66.1910,68.5620 -66.3193,68.6091 -66.4745,68.6431 -66.6113,68.6647 -66.7181,68.6742 -66.9279,68.6830 -67.0360,68.6915 -67.0687,68.6987 -67.1092,68.7698 -67.2243,68.8618 -67.2299,68.8951 -67.2068,68.9201 -67.1636,68.9344 -67.0944,68.9400 -66.8265,68.9224 -66.6677,68.9254 -66.5068,68.9429 -66.3693,68.9732 -66.2312,69.0275 -66.1190,69.1027 -66.0602,69.1815 -66.0591,69.2593 -66.0833,69.3055 -66.1297,69.3548 -66.2819,69.4500 -66.3798,69.4944 -66.6579,69.5847 -66.5439,69.6592 -66.5127,69.7337 -66.5504,69.8452 -66.6034,69.9152 -66.6166,69.9806 -66.6593,70.0317 -67.0283,70.2669 -67.1612,70.3187 -67.3473,70.4068 -67.5019,70.4485 -67.5019,70.7201 -67.5019,70.9917 -67.5020,71.4168 -67.5020,71.8419 -67.5020,72.2671 -67.5020,72.6922 -67.5021,73.1173 -67.5021,73.5424 -67.5021,73.9927 -67.5021,74.4429 -67.5022,74.8932 -67.5022,75.3434 -67.5022,75.7937 -67.6402,75.8079 -68.0778,75.8376 -68.3959,75.8592 -68.7140,75.8808 -68.9406,75.9107 -69.1706,75.9589 -69.2761,75.9918 -69.4621,76.0326 -69.6516,76.1052 -69.9660,76.1563 -70.3390,76.2492 -70.4088,76.2758 -70.4683,76.3079 -70.5406,76.3840 -70.7453,76.4355 -70.8661,76.4881 -70.9282,76.5437 -70.9270,76.6003 -71.1759,76.6298 -71.3913,76.6728 -71.6164,76.7323 -71.7902,76.7935 -72.0662,76.8609 -72.1675,76.8964 -72.2423,76.9354 -72.2940,76.9801 -72.3350,77.0527 -72.3745,77.0784 -72.4320,77.1020 -72.5714,77.1373 -73.0563,77.2174 -73.2106,77.2475 -73.3570,77.2876 -73.4614,77.3327 -73.5241,77.3868 -73.5241,77.4410 -73.4567,77.5014 -73.3496,77.5442 -73.1807,77.5823 -72.8343,77.6403 -72.6758,77.6563 -72.3237,77.6757 -72.2797,77.6796 -72.2646,77.6840 -72.3190,77.6987 -72.4544,77.7153 -72.8270,77.7702 -72.9760,77.7978 -73.1104,77.8371 -73.1969,77.8869 -73.2408,77.9038 -73.5453,77.9708 -73.8158,78.0206 -73.9247,78.0520 -74.0040,78.0859 -74.0652,78.1388 -74.0649,78.1428 -74.0157,78.1878 -73.9158,78.2793 -73.8907,78.3022 -73.8771,78.3147 -73.7870,78.3971 -73.7656,78.4167 -73.6698,78.4647 -73.5740,78.5129 -73.4781,78.5610 -73.3823,78.6091 -73.3281,78.6363 -73.2865,78.6572 -73.1906,78.7053 -73.1091,78.7463 -73.0948,78.7534 -72.9990,78.8016 -72.7041,78.8699 -72.5405,78.9077 -72.0821,79.0138 -71.6236,79.1200 -71.1652,79.2261 -70.7068,79.3322 -70.2483,79.4383 -69.7898,79.5445 -69.3314,79.6506 -69.2480,79.7379 -69.1647,79.8253 -69.0814,79.9127 -68.9981,80.0000 -68.8313,80.1043 -68.7101,80.1802 -68.6947,80.1619 -68.6524,80.1354 -68.5838,80.1061 -68.4458,80.0654 -68.2467,80.0246 -68.1520,79.9808 -68.0650,79.9521 -67.9788,79.9311 -67.8790,79.9123 -67.6706,79.8844 -67.4330,79.8650 -67.2915,79.8582 -67.1467,79.8546 -66.8015,79.8563 -66.5366,79.8308 -66.2901,79.8161 -66.2136,79.7694 -66.1632,79.7050 -66.1665,79.6548 -66.1501,79.6250 -66.0544,79.5674 -66.1343,79.5272 -66.1958,79.4865 -66.3658,79.4489 -66.6489,79.3536 -66.4388,79.1431 -66.1054,78.7741 -65.7721,78.4051 -65.4387,78.0361 -65.1054,77.6671 -64.7720,77.2981 -64.4387,76.9291 -64.1054,76.5601 -63.7720,76.1911 -63.6057,75.9529 -63.4097,75.9744 -63.1918,76.0089 -62.9568,75.9926 -62.7582,75.9887 -62.5751,75.9945 -62.3481,76.0142 -62.2734,76.0153 -62.1643,76.0086 -61.9282,75.9840 -61.6777,75.9686 -61.6339,75.9602 -61.5723,75.9258 -61.4308,75.8740 -61.3498,75.8522 -61.2459,75.8311 -61.1219,75.8121 -60.9920,75.7992 -60.6646,75.7873 -60.6111,75.7421 -60.5480,75.7075 -60.4526,75.6731 -60.3335,75.6437 -60.2085,75.6219 -60.0853,75.6068 -59.7720,75.5867 -59.4898,75.5227 -59.4606,75.5082 -59.4508,75.4866 -59.5240,75.3676 -59.5198,75.3290 -59.4904,75.2911 -59.4351,75.2548 -59.3532,75.2210 -59.2337,75.1889 -59.0742,75.1616 -59.0068,75.1304 -58.9721,75.1026 -58.9658,75.0515 -58.9449,75.0154 -58.8606,74.9551 -58.7455,74.9125 -58.5943,74.8790 -58.4064,74.8524 -58.0573,74.8159 -57.9933,74.8011 -57.9793,74.7856 -57.9827,74.7434 -57.9341,74.6860 -57.9602,74.6771 -58.1085,74.6474 -58.2318,74.6046 -58.3113,74.5554 -58.3426,74.5022 -58.3318,74.4611 -58.2867,74.4183 -58.2241,74.3862 -58.0805,74.3343 -58.0210,74.2884 -58.0146,74.2348 -58.0716,74.1623 -58.0856,74.1254 -58.0789,74.0846 -58.0483,74.0446 -57.9795,73.9992 -57.8767,73.9605 -57.7622,73.9325 -57.5881,73.9053 -57.5493,73.8953 -57.5296,73.8804 -57.5102,73.8343 -57.4713,73.8018 -57.3361,73.7330 -57.2306,73.6886 -57.0654,73.6435 -56.8500,73.6136 -56.8414,73.6009 -56.8587,73.5645 -56.8551,73.5394 -56.8322,73.5047 -56.7949,73.4748 -56.6894,73.4265 -56.4848,73.3680 -56.4103,73.3013 -56.2659,73.2428 -56.3716,73.1806 -56.4294,73.1152 -56.4037,72.9420 -56.5623,72.8968 -56.7317,72.8566 -56.7962,72.8353 -56.8906,72.7816 -56.9322,72.7187 -56.9079,72.6497 -56.7990,72.5725 -56.7180,72.5346 -56.6179,72.5029 -56.5172,72.4808 -56.3560,72.4563 -56.3080,72.3685 -56.3698,72.1799 -56.3409,72.1290 -56.2613,72.0775 -56.2527,72.0615 -56.2747,72.0447 -56.3945,71.9946 -56.4697,71.9284 -56.4856,71.8788 -56.4643,71.8157 -56.5390,71.7506 -56.5683,71.7013 -56.5683,71.6608 -56.5481,71.6253 -56.5136,71.5950 -56.4578,71.5638 -56.2652,71.4951 -56.1584,71.3934 -56.0903,71.3458 -56.0014,71.3037 -55.8794,71.2606 -55.6895,71.2122 -55.4980,71.1818 -55.3631,71.1728 -55.1205,71.1680 -54.8788,71.1460 -54.6655,71.1376 -54.6380,71.1260 -54.6150,71.0652 -54.5448,71.0103 -54.5630,70.9974 -54.7049,70.9681 -54.8783,70.9212 -55.0557,70.8598 -55.1619,70.8011 -55.2661,70.6900 -55.4199,70.6527 -55.5116,70.6221 -55.5931,70.5811 -55.6385,70.5395 -55.6602,70.4699 -55.6301,70.3897 -55.5629,70.3179 -55.4562,70.2606 -55.4404,70.2438 -55.4600,70.1565 -55.4343,70.0270 -55.5363,69.8969 -55.5376,69.8042 -55.5806,69.7571 -55.5985,69.7177 -55.5932,69.6714 -55.5613,69.6270 -55.4528,69.5514 -55.2876,69.4784 -55.0961,69.4192 -54.8837,69.3776 -54.7360,69.2581 -54.6610,69.2208 -54.5690,69.1872 -54.4547,69.1566 -54.3008,69.1304 -54.2039,69.0969 -54.1202,69.0781 -53.6519,69.0269 -53.5138,69.0254 -53.5056,68.7683 -53.5915,68.7202 -53.6409,68.6724 -53.7462,68.5242 -53.9053,68.4229 -53.9475,68.3791 -53.9605,68.3362 -53.9507,68.2694 -54.0115,68.2001 -54.0244,68.1502 -54.0045,68.0975 -53.9268,68.0187 -53.9577,68.0000 -54.1409,67.9364 -54.2035,67.8959 -54.2452,67.8509 -54.2628,67.7905 -54.2345,67.7168 -54.2887,67.6575 -54.3060,67.6147 -54.2834,67.5297 -54.3490,67.4661 -54.3902,67.4015 -54.4189,67.3248 -54.4208,67.2362 -54.4882,67.1619 -54.5100,67.1094 -54.5053,67.0571 -54.4746,67.0066 -54.3578,66.9263 -54.2916,66.8684 -54.2145,66.8283 -53.9690,66.7430 -53.9414,66.7277 -53.9997,66.6630 -54.1218,66.5865 -54.1619,66.5292 -54.2204,66.3585 -54.2122,66.3074 -54.1688,66.2149 -54.1835,66.1221 -54.1630,66.0778 -54.1226,66.0350 -53.9969,65.9670 -53.9261,65.8734 -53.7797,65.7854 -53.7386,65.6051 -53.6083,65.4498 -53.4677,65.3904 -53.3293,65.3595 -53.1106,65.3357 -53.0791,65.3277 -53.0292,65.2247 -53.0309,65.1579 -52.9973,65.1100 -52.9154,65.0551 -52.7488,64.9953 -52.7159,64.9723 -52.7168,64.7975 -52.6502,64.7130 -52.6436,64.6545 -52.5965,64.5576 -52.6012,64.3894 -52.5414,64.2729 -52.5353,64.2609 -52.5353,64.2497 -52.5353,64.1204 -52.5353,63.8315 -52.5353,63.5425 -52.5354,63.0928 -52.5354,62.6431 -52.5354,62.1934 -52.5355,61.7436 -52.5355,61.2939 -52.5355,60.8442 -52.5356,60.3945 -52.5356,59.9448 -52.5356,59.4902 -52.5357,59.0357 -52.5357,58.5811 -52.5357,58.1266 -52.5358,57.6721 -52.5358,57.2175 -52.5358,56.7630 -52.5359,56.3084 -52.5359,55.8539 -52.5359,55.3993 -52.5359,54.9448 -52.5360,54.4941 -52.5360,54.0433 -52.5360,53.5926 -52.5361,53.1419 -52.5361,52.6912 -52.5361,52.2405 -52.5361,52.2404 -52.5362,51.7813 -52.5362,51.3222 -52.5362,50.8630 -52.5363,50.4039 -52.5363,49.9448 -52.5363,49.5371 -52.5364,49.1294 -52.5364,48.7217 -52.5364,48.3140 -52.5364,47.9063 -52.5404,47.9088 -52.6280,47.9642 -52.5730,48.0681 -52.6224,48.2192 -52.6507,48.2586 -52.7782,48.3378 -52.7716,48.3999 -52.6951,48.5784 -52.7064,48.6362 -52.7546,48.7318 -52.8098,48.8007 -52.8634,48.8313 -53.0632,48.8639 -53.1560,48.8694 -53.2267,48.8597 -53.3147,48.8216 -53.3507,48.8156 -53.4534,48.8578 -53.4431,48.8908 -53.3375,48.9631 -53.2999,49.0488 -53.2318,49.1299 -53.1829,49.2335 -53.1841,49.2866 -53.2298,49.3627 -53.2954,49.4143 -53.4680,49.5030 -53.6922,49.5872 -53.7165,49.6277 -53.7554,49.7693 -53.8254,49.8422 -53.9003,49.8886 -53.9788,49.9190 -54.0652,49.9360 -54.1579,49.9376 -54.2712,49.9201 -54.5342,49.8572 -54.7971,49.7943 -54.9541,49.7781 -55.1217,49.7430 -55.2700,49.7376 -55.2935,49.7549 -55.2886,49.7867 -55.1985,49.8714 -55.1741,49.9147 -55.1781,50.0048 -55.1979,50.0475 -55.6209,50.1838 -55.6755,50.1658 -55.6963,50.1690 -55.9048,50.2649 -56.0159,50.3446 -56.0217,50.3805 -56.0023,50.4217 -55.8525,50.5596 -55.7953,50.5613 -55.6925,50.5241 -55.6217,50.5112 -55.5452,50.5114 -55.4714,50.5241 -55.3834,50.5551 -55.2986,50.6033 -55.2324,50.6594 -55.1858,50.7226 -55.2500,51.0344 -55.2770,51.0719 -55.3687,51.1307 -55.3829,51.1568 -55.2408,51.2951 -55.1872,51.3722 -55.1083,51.5734 -55.1192,51.6098 -55.1747,51.6882 -55.1784,51.7155 -55.0528,51.8296 -54.9897,51.9135 -54.9767,51.9527 -54.9895,51.9759 -55.2293,52.1695 -55.2677,52.2274 -55.2984,52.2737 -55.3110,52.4392 -55.3886,52.5790 -55.4178,52.6918 -55.4702,52.8945 -55.5103,52.9921 -55.4996,53.0332 -55.4338,53.1364 -55.4241,53.1731 -55.4137,53.2126 -55.4233,53.3079 -55.4683,53.3844 -55.6281,53.5410 -55.7250,53.6776 -55.8109,53.7377 -55.9063,53.7718 -56.0560,53.8032 -56.0961,53.8277 -56.1898,53.9171 -56.4605,53.9927 -56.5234,53.9957 -56.6843,53.9696 -56.7484,53.9657 -56.9320,53.8371 -57.2182,53.6132 -57.5045,53.3893 -57.5045,53.0606 -57.2928,52.8872 -57.0812,52.7139 -57.0883,52.2260 -57.0954,51.7382 -57.1025,51.2503 -57.2659,51.1870 -57.3171,51.1608 -57.4718,50.9326 -57.5298,50.8831 -57.6310,50.8253 -57.6732,50.7809 -57.6961,50.7202 -57.7031,50.6018 -57.8015,50.4459 -57.9028,50.2311 -58.1816,49.8290 -58.2548,49.6867 -58.4019,49.5740 -58.4711,49.5028 -58.5088,49.4282 -58.5294,49.3104 -58.6656,49.2196 -58.7715,49.0803 -58.8137,48.9856 -58.9724,48.9276 -59.3631,48.7242 -59.4551,48.6538 -59.5233,48.5634 -59.5266,48.5543 -59.5273,48.4019 -59.5083,48.3751 -59.3949,48.2813 -59.3781,48.2318 -59.4145,48.1842 -59.5287,48.1123 -59.5626,48.0909 -59.6344,48.0305 -59.6799,47.9650 -59.6932,47.8999 -59.6735,47.8274 -59.5971,47.7070 -59.5796,47.5585 -59.5316,47.5036 -59.5077,47.4763 -59.4332,47.4317 -59.3452,47.3984 -59.2490,47.3768 -59.1371,47.3671 -58.7914,47.4048 -58.4456,47.4425 -58.0998,47.4803 -58.0014,47.4718 -57.7015,47.4158 -57.4966,47.4149 -57.3258,47.3889 -57.0441,47.3792 -56.8753,47.3392 -56.7199,47.3432 -56.5216,47.4099 -56.4418,47.4136 -56.3931,47.3832 -56.3742,47.3366 -56.3780,47.3359 -56.4953,47.3655 -56.6636,47.2160 -56.8692,47.1294 -57.0976,46.9837 -56.8990,46.6092 -56.8386,46.5544 -56.6885,46.4572 -56.4051,46.3676 -56.4049,46.3064 -56.1516,46.3059 -56.1509,46.5544 -56.0807,46.5696 -55.9540,46.6168 -55.9102,46.6621 4,-4.0,America/La_Paz -55.9102,46.6621 -55.9834,46.8024 -55.9254,46.6990 -55.9102,46.6621 525,-1.0,America/Scoresbysund -7.5117,84.9000 -7.5117,84.4455 -7.5117,83.9909 -7.5117,83.5364 -7.5117,83.0818 -7.5117,82.6273 -7.5117,82.1727 -7.5117,81.7182 -7.5117,81.2636 -7.5117,80.8091 -7.5117,80.3545 -7.5117,79.9000 -7.5117,79.4455 -7.5117,78.9909 -7.5117,78.5364 -7.5117,78.0818 -7.5117,77.6273 -7.5117,77.1727 -7.5117,76.7182 -7.5117,76.2636 -7.5117,75.8091 -7.5117,75.3545 -7.5117,74.9000 -7.5117,74.4525 -7.5117,74.0050 -7.5117,73.5575 -7.5117,73.1099 -7.5117,72.6624 -7.5117,72.2149 -7.5117,71.7674 -7.5117,71.3199 -7.4153,71.2837 -7.3301,71.2232 -7.2983,71.1715 -7.3060,71.1214 -7.3804,70.9912 -7.4176,70.9543 -7.4709,70.9200 -7.5117,70.9038 -7.5117,70.7414 -7.5117,70.3207 -7.5117,69.9000 -7.5117,69.4115 -7.5117,68.9229 -7.5117,68.4344 -7.5117,67.9459 -7.5117,67.4574 -7.5123,67.1094 -7.5130,66.7614 -8.0024,66.7611 -8.4918,66.7607 -8.9812,66.7604 -9.4706,66.7601 -9.9600,66.7597 -10.4494,66.7594 -10.9389,66.7591 -11.4283,66.7587 -11.9177,66.7584 -12.4071,66.7581 -12.8965,66.7577 -13.3859,66.7574 -13.8753,66.7571 -14.3648,66.7567 -14.8542,66.7564 -15.3436,66.7561 -15.8330,66.7557 -16.3224,66.7554 -16.8118,66.7550 -17.3013,66.7547 -17.7907,66.7544 -17.9540,66.7716 -18.1300,66.7678 -18.2784,66.7445 -18.3954,66.7056 -18.4891,66.6457 -18.5331,66.5760 -18.5286,66.5133 -18.4708,66.4422 -18.3735,66.3876 -18.5017,66.3756 -18.7539,66.4105 -18.8732,66.4139 -18.9840,66.4079 -19.3042,66.3532 -19.4909,66.2950 -19.6789,66.2585 -19.7986,66.3032 -19.9456,66.3310 -20.1086,66.3426 -20.2890,66.3364 -20.4100,66.3196 -20.7480,66.2448 -20.8583,66.1988 -20.9248,66.1400 -21.1663,66.2385 -21.2702,66.2718 -21.3651,66.3265 -21.5102,66.3754 -21.6193,66.4266 -21.8090,66.4747 -22.0710,66.6167 -22.1453,66.6404 -22.2294,66.6578 -22.3343,66.6704 -22.4440,66.6758 -22.5274,66.6738 -22.5207,67.0846 -22.5139,67.4954 -22.5139,67.9242 -22.5139,68.3530 -22.5139,68.7818 -22.5139,69.2106 -22.5139,69.6393 -22.4366,69.6701 -22.3113,69.7505 -22.2457,69.7665 -22.0475,69.7973 -21.8870,69.8450 -21.6496,69.9562 -21.5642,70.0082 -21.5041,70.0571 -21.4747,70.0951 -21.4655,70.1325 -21.5060,70.2264 -21.7226,70.2090 -21.7429,70.2116 -22.0913,70.2571 -22.5040,70.2829 -22.9168,70.3086 -23.3708,70.3602 -23.8248,70.4118 -24.1962,70.4944 -24.5677,70.5769 -24.5238,71.0614 -24.4800,71.5459 -24.4362,72.0304 -24.3924,72.5149 -23.9541,72.3620 -23.5517,72.2742 -23.1492,72.1865 -23.0602,72.1674 -23.0080,72.1357 -22.6544,72.0547 -22.3229,71.9663 -22.3201,71.9670 -22.3174,71.9663 -22.0485,72.0399 -21.7795,72.1136 -21.5183,72.3330 -21.5193,72.3367 -21.2881,72.5309 -21.3061,72.5701 -21.2841,72.5989 -21.2018,72.6605 -21.1824,72.6889 -21.1855,72.7495 -21.2434,72.8109 -21.2033,72.8496 -21.1795,72.8958 -20.8257,72.9439 -20.7863,72.9523 -20.7790,72.9539 -20.7210,72.9662 -20.6359,72.9919 -20.5360,73.0403 -20.4713,73.0965 -20.4569,73.1390 -20.4966,73.1910 -20.4718,73.2119 -20.4057,73.2301 -20.1036,73.2823 -19.9715,73.3128 -19.8328,73.3607 -19.7325,73.4158 -19.6785,73.4704 -19.6605,73.5271 -19.6752,73.5730 -19.7368,73.6545 -19.6501,73.6928 -19.5931,73.7316 -19.5385,73.7920 -19.5193,73.8434 -19.5267,73.8857 -19.5531,73.9232 -19.5855,73.9445 -19.4719,74.0380 -19.3412,74.0471 -19.0476,74.0813 -18.9496,74.0967 -18.8557,74.1175 -18.7466,74.1514 -18.6652,74.1913 -18.5219,74.2479 -18.3173,74.3797 -18.2485,74.4120 -18.1802,74.4283 -18.0309,74.4429 -17.9012,74.4629 -17.7975,74.4856 -17.7083,74.5123 -17.6221,74.5500 -17.5735,74.5873 -17.5209,74.7280 -17.4995,74.7326 -17.2444,74.7545 -17.0519,74.7890 -16.9282,74.8248 -16.6469,74.9353 -16.5984,74.9655 -16.5697,74.9951 -16.5505,75.0715 -16.5205,75.1206 -16.5204,75.1516 -16.5386,75.1822 -16.6315,75.2444 -16.7836,75.2977 -16.9844,75.3402 -17.0888,75.4204 -17.1019,75.4278 -17.1331,75.4457 -17.1569,75.4593 -17.2544,75.4968 -17.2602,75.4990 -17.3262,75.5243 -17.4689,75.5656 -17.5648,75.5855 -17.6756,75.6024 -17.8999,75.6216 -18.1317,75.6247 -18.5407,75.6086 -18.5890,75.6112 -18.6036,75.6205 -18.5960,75.6427 -18.5296,75.6870 -18.3400,75.7000 -18.1842,75.7191 -18.0389,75.7476 -18.0260,75.7514 -18.0198,75.7532 -17.9397,75.7768 -17.9220,75.7820 -17.8468,75.8136 -17.8173,75.8310 -17.7908,75.8466 -17.7467,75.8858 -17.7177,75.9312 -17.7064,76.0539 -17.7287,76.1155 -17.7717,76.1624 -17.7464,76.2098 -17.7491,76.2478 -17.8343,76.3782 -17.8356,76.5136 -17.7639,76.6241 -17.4969,76.7737 -17.4142,76.8522 -17.3765,76.8879 -17.3578,76.9258 -17.3621,77.0056 -17.3442,77.1010 -17.3728,77.1969 -17.4445,77.2702 -17.4647,77.2810 -17.5092,77.3049 -17.7845,77.3993 -17.7991,77.4123 -17.7705,77.4235 -17.7073,77.4346 -17.4857,77.4590 -17.4049,77.4679 -17.2526,77.4901 -17.1181,77.5172 -17.0047,77.5488 -16.9225,77.5812 -16.8393,77.6282 -16.7844,77.6782 -16.6980,77.7361 -16.6653,77.7877 -16.6714,77.8408 -16.7228,77.8972 -16.8295,77.9636 -16.9450,78.0069 -17.0589,78.0331 -17.1974,78.0545 -17.3719,78.0721 -17.4800,78.0792 -17.7100,78.0944 -17.8000,78.1063 -17.8560,78.1216 -17.8714,78.1333 -17.8916,78.2002 -17.8844,78.2454 -17.9269,78.2929 -17.8957,78.3530 -17.8660,78.3668 -17.6958,78.4027 -17.5288,78.4474 -17.4218,78.4820 -17.3882,78.4929 -17.2976,78.5301 -17.2208,78.5810 -17.1967,78.6282 -17.0615,78.6773 -16.9780,78.7269 -16.9570,78.7679 -16.9827,78.8260 -16.9764,78.8377 -16.8650,78.8720 -16.5973,78.9241 -16.4844,78.9607 -16.4320,78.9879 -16.3884,79.0227 -16.3322,79.1120 -16.3501,79.1660 -16.4229,79.2144 -16.6392,79.2898 -16.7410,79.3169 -16.8460,79.3391 -16.9667,79.3583 -17.1048,79.3741 -17.2535,79.3859 -17.2875,79.3875 -17.4098,79.3935 -17.5704,79.3967 -17.7324,79.3956 -17.8280,79.3927 -17.9941,79.3811 -18.0509,79.3799 -18.1033,79.3905 -18.1544,79.4084 -18.2094,79.4593 -18.1668,79.4730 -18.0765,79.4852 -17.6931,79.5112 -17.5000,79.5312 -17.3682,79.5502 -17.1002,79.5888 -16.9827,79.6098 -16.8916,79.6305 -16.8256,79.6505 -16.6891,79.7037 -16.2867,79.8721 -16.1223,79.9613 -16.0983,79.9901 -16.0937,80.0256 -15.9230,80.0381 -15.7656,80.0538 -15.6355,80.0720 -15.5105,80.0953 -15.3277,80.1435 -15.2059,80.1945 -14.8174,80.2850 -14.6695,80.3286 -14.5866,80.3660 -14.5432,80.4053 -14.5491,80.4462 -14.6031,80.4872 -14.5869,80.4988 -14.4658,80.5195 -14.3371,80.5472 -14.0819,80.5642 -13.8976,80.5815 -13.5049,80.6279 -13.2938,80.6623 -13.1545,80.6975 -13.0314,80.7401 -12.9392,80.7844 -12.8785,80.8304 -12.5683,80.8596 -12.4422,80.8770 -12.3314,80.8967 -12.2048,80.9269 -12.0910,80.9661 -11.6146,81.0425 -11.4247,81.0796 -11.3311,81.1064 -11.2150,81.1573 -11.0692,81.1946 -10.9902,81.2088 -10.7574,81.2369 -10.5922,81.2631 -10.4532,81.2932 -10.2794,81.3421 -10.1233,81.3930 -10.0388,81.4365 -10.0117,81.4812 -10.0440,81.5227 -10.0994,81.5502 -10.1891,81.5787 -10.3247,81.6109 -10.4903,81.6397 -10.6713,81.7049 -10.7757,81.7320 -10.8971,81.7575 -11.0321,81.7800 -11.2248,81.8051 -11.5475,81.8389 -11.8701,81.8727 -12.2294,81.9010 -12.5718,81.9194 -13.0325,81.9709 -13.2332,81.9894 -13.4350,82.0022 -13.6637,82.0108 -13.8849,82.0142 -14.2449,82.0151 -14.6049,82.0161 -14.7489,82.0258 -14.8887,82.0322 -15.2090,82.0394 -15.4759,82.0390 -15.7480,82.0350 -16.0201,82.0310 -16.3111,82.0202 -16.5682,82.0015 -16.7284,81.9847 -16.9733,81.9499 -17.1248,81.9304 -17.1691,81.9273 -17.3306,81.9374 -17.5488,82.0336 -17.6449,82.0666 -17.7085,82.1085 -17.8403,82.1517 -17.9853,82.1915 -18.1241,82.2232 -18.2637,82.2480 -18.4256,82.2701 -18.6071,82.2891 -18.8058,82.3042 -19.0191,82.3150 -19.2445,82.3209 -19.4783,82.3214 -19.8225,82.3155 -20.1058,82.3037 -20.3470,82.2858 -20.6087,82.2578 -20.6575,82.2586 -20.8463,82.2714 -20.8682,82.2783 -20.8570,82.2907 -20.6996,82.3484 -20.4772,82.3883 -20.2018,82.4295 -20.0904,82.4488 -19.9863,82.4741 -19.8943,82.5069 -19.7748,82.5724 -19.7487,82.6070 -19.7736,82.6525 -19.8621,82.6968 -19.9381,82.7186 -20.0326,82.7390 -20.4687,82.8118 -20.6976,82.8458 -21.0563,82.8906 -21.1976,82.9056 -21.3207,82.9261 -21.4387,82.9415 -21.6103,82.9600 -21.7835,82.9749 -21.9372,82.9852 -22.2140,83.0003 -22.4556,83.0187 -22.5074,83.0243 -22.5288,83.0266 -22.5289,83.5247 -22.5289,84.0228 -22.5290,84.5209 -22.5290,85.0190 -22.5290,85.5171 -22.5291,86.0152 -22.5291,86.5133 -22.5292,87.0114 -22.5292,87.5095 -22.5293,88.0076 -22.5293,88.5057 -22.5293,89.0038 -22.5294,89.5019 -22.5294,90.0000 -22.0877,90.0000 -21.6460,90.0000 -21.2043,90.0000 -20.7626,90.0000 -20.3209,90.0000 -19.8792,90.0000 -19.4376,90.0000 -18.9959,90.0000 -18.5542,90.0000 -18.1125,90.0000 -17.6708,90.0000 -17.2291,90.0000 -16.7874,90.0000 -16.3457,90.0000 -15.9040,90.0000 -15.4623,90.0000 -15.0206,90.0000 -14.5789,90.0000 -14.1372,90.0000 -13.6955,90.0000 -13.2538,90.0000 -12.8121,90.0000 -12.3704,90.0000 -11.9287,90.0000 -11.4870,90.0000 -11.0453,90.0000 -10.6036,90.0000 -10.1619,90.0000 -9.7202,90.0000 -9.2785,90.0000 -8.8368,90.0000 -8.3951,90.0000 -7.9534,90.0000 -7.5117,90.0000 -7.5117,89.5364 -7.5117,89.0727 -7.5117,88.6091 -7.5117,88.1455 -7.5117,87.6818 -7.5117,87.2182 -7.5117,86.7545 -7.5117,86.2909 -7.5117,85.8273 -7.5117,85.3636 -7.5117,84.9000 792,11.0,Russia (Primorsky Krai) 172.5346,74.9000 172.5382,74.4284 172.5419,73.9568 172.5455,73.4853 172.5491,73.0137 172.5527,72.5421 172.5563,72.0705 172.5599,71.5989 172.5636,71.1274 172.5672,70.6558 172.5708,70.1842 172.2198,70.1940 171.7837,70.2305 171.4626,70.2729 170.9916,70.2975 170.8871,70.3073 170.6678,70.3405 170.4680,70.3470 170.4645,70.3468 170.4585,70.3470 170.3008,70.3383 170.1458,70.3157 170.0136,70.2810 169.9109,70.2362 169.8353,70.1803 169.8043,70.1247 169.8167,70.0695 169.8747,70.0198 169.6983,70.0593 169.5451,70.0859 169.3905,70.1065 169.1201,70.1295 168.9156,70.1706 168.7611,70.1903 168.4449,70.2217 168.3077,70.2298 168.3010,70.2296 168.2982,70.2298 168.1482,70.2262 167.9949,70.2080 167.7434,70.1509 167.4887,70.0708 167.3260,69.9974 167.1265,69.8723 166.8940,69.7765 166.8014,69.7449 166.7589,69.7375 166.6182,69.7400 166.6138,69.7399 166.6087,69.7400 166.2747,69.7332 165.9780,69.7816 165.7220,69.8003 165.2506,69.8058 164.7791,69.8112 164.7069,69.8261 164.5773,69.8918 164.4454,69.9336 164.2746,69.9645 164.0749,69.9801 164.0668,69.9800 164.0654,69.9801 163.9417,69.9785 163.8155,69.9673 163.7451,69.9559 163.5982,69.9205 163.5391,69.9130 163.3633,69.9264 163.1325,69.9268 163.1323,69.9268 163.1230,69.9268 162.9919,69.9177 162.7927,69.8899 162.7354,69.8865 162.6187,69.8901 162.4084,69.9080 162.4005,69.9079 162.3989,69.9080 162.2100,69.9047 162.0959,69.8924 161.9970,69.8742 161.8271,69.8189 161.6963,69.8379 161.5168,69.8476 161.5104,69.8475 161.5072,69.8476 161.3829,69.8443 161.2628,69.8312 161.2162,69.8261 161.0953,69.8452 160.5990,69.8925 160.4875,69.9128 160.4631,69.9420 160.5043,70.0345 160.6858,70.1859 160.7262,70.2480 160.7298,70.3012 160.7140,70.3548 160.5996,70.5204 160.6071,70.5575 160.6475,70.5857 160.7264,70.6052 160.8929,70.6210 161.0429,70.6417 161.0676,70.6418 161.1298,70.6311 161.2865,70.5868 161.3914,70.5664 161.4867,70.5542 161.7162,70.5394 161.9054,70.4797 162.0831,70.4509 162.2263,70.4379 162.3613,70.4340 162.3657,70.4341 162.3708,70.4340 162.4816,70.4377 162.6491,70.4527 162.8278,70.4811 162.9587,70.5174 163.0569,70.5663 163.1086,70.6225 163.1108,70.6804 163.0650,70.7367 162.9670,70.7909 162.8341,70.8350 162.6983,70.8636 162.5601,70.8808 162.4527,70.8870 162.4445,70.8869 162.4432,70.8870 162.2625,70.8853 162.1939,70.9261 162.1246,70.9527 161.9209,71.0083 161.7955,71.0310 161.6463,71.0448 161.4903,71.0476 161.4877,71.0475 161.4808,71.0476 161.3263,71.0401 161.1654,71.0217 160.9986,71.0765 160.8672,71.1098 160.7310,71.1317 160.5850,71.1428 160.4566,71.1436 160.4557,71.1436 160.4471,71.1436 160.3213,71.1367 160.2012,71.1228 160.0899,71.1025 160.0040,71.0804 159.9179,71.0501 159.7418,70.9598 159.5560,71.0103 159.1618,71.0858 158.7677,71.1614 158.4837,71.2023 158.1998,71.2432 157.9128,71.2626 157.6258,71.2819 157.3113,71.2824 157.0055,71.2912 156.6996,71.3001 156.6933,71.3000 156.6900,71.3001 156.3080,71.2944 155.9856,71.3063 155.9792,71.3062 155.9761,71.3063 155.7945,71.3029 155.3624,71.2685 154.9302,71.2340 154.4981,71.1995 154.0660,71.1650 153.9349,71.1474 153.7668,71.1055 153.6864,71.0926 153.2435,71.0872 153.1202,71.0751 152.9151,71.0428 152.8153,71.0414 152.7758,71.0525 152.7216,71.1139 152.6550,71.1596 152.4936,71.2315 152.2329,71.3825 152.0386,71.4599 151.8149,71.5150 151.5146,71.5470 151.3194,71.5799 151.2488,71.5994 151.1248,71.6556 150.9860,71.6913 150.8483,71.7119 150.6535,71.7254 150.6223,71.7319 150.6198,71.7508 150.7072,71.8112 150.7454,71.8768 150.7410,71.9424 150.6901,72.0076 150.5880,72.0781 150.2836,72.2424 150.1363,72.2897 149.9283,72.3340 149.5939,72.3870 149.2594,72.4401 148.8982,72.4826 148.6096,72.5091 148.3664,72.5232 148.0929,72.5344 147.8194,72.5456 147.8130,72.5455 147.8098,72.5456 147.6205,72.5418 147.4695,72.5455 147.4644,72.5454 147.4600,72.5455 147.2367,72.5408 147.0751,72.5492 146.9399,72.5671 146.8839,72.5797 146.8839,72.5776 146.8744,72.5797 146.8745,72.3362 146.8032,72.3245 146.5545,72.3217 146.3004,72.3204 146.0463,72.3190 145.5831,72.3190 145.5736,72.3190 145.3140,72.3122 145.0544,72.3054 144.6527,72.2698 144.5060,72.2004 144.3726,72.2370 144.2442,72.2562 144.1154,72.2775 144.1124,72.2764 144.1059,72.2775 143.7580,72.1537 143.7554,72.1529 143.6520,72.1214 143.6110,72.1089 143.4086,72.0691 143.2082,72.0004 143.2058,71.9984 143.1241,71.9281 143.0972,71.8232 143.0596,71.7526 142.9970,71.7083 142.9828,71.6983 142.8011,71.6521 142.6351,71.5909 142.5650,71.4781 142.5327,71.3809 142.5640,71.2701 142.6317,71.1920 142.6124,71.1132 142.4950,71.0315 142.4068,70.9985 142.3075,70.9613 142.0657,70.8960 141.9970,70.8668 141.9073,70.8287 141.8239,70.7676 141.8037,70.6965 141.7398,70.6172 141.5404,70.5251 141.2242,70.3646 140.9970,70.2827 140.9450,70.2640 140.8626,70.1877 140.8396,70.0854 140.8154,69.9985 140.8141,69.9937 140.8190,69.9453 140.9562,69.9280 140.9592,69.9288 140.9657,69.9280 141.0065,69.9393 141.1000,69.9651 141.2023,69.9570 141.3342,69.9052 141.3876,69.8547 141.4140,69.8262 141.6090,69.8238 141.6095,69.8239 141.6185,69.8238 141.8478,69.8735 141.9514,69.8724 141.9970,69.8651 142.0521,69.8563 142.0615,69.8563 142.0616,69.8563 142.1718,69.8565 142.2454,69.8347 142.2608,69.7941 142.1204,69.7636 142.0866,69.7442 142.1194,69.6948 142.0918,69.6583 141.9970,69.6190 141.9970,69.6052 142.0102,69.5776 142.1378,69.5532 142.1464,69.5534 142.1473,69.5532 142.3223,69.5568 142.3940,69.5624 142.3018,69.5283 142.3511,69.4800 142.5019,69.4593 142.5446,69.4092 142.5047,69.3747 142.6349,69.3153 142.7237,69.2787 142.6695,69.2156 142.5509,69.2006 142.3049,69.1852 142.1658,69.1921 142.0512,69.2170 142.0065,69.2201 141.9139,69.2265 141.9074,69.2263 141.9044,69.2265 141.7025,69.2200 141.5690,69.1917 141.5050,69.1481 141.5031,69.0778 141.5126,69.0101 141.5147,68.9985 141.5214,68.9614 141.5202,68.9075 141.6105,68.8424 141.6940,68.7832 141.7618,68.7291 141.8187,68.6900 141.8400,68.6522 141.7450,68.5859 141.5856,68.5142 141.4648,68.4603 141.3696,68.4308 141.2442,68.4243 141.1706,68.4260 141.1698,68.4258 141.1611,68.4260 141.0628,68.3994 140.9994,68.3253 140.9970,68.3228 140.9431,68.2649 140.9970,68.2175 141.0035,68.2119 141.0843,68.1755 141.0876,68.1327 140.9921,68.0748 140.9321,68.0088 140.9451,67.9414 141.0301,67.8663 141.1225,67.8155 141.1691,67.7800 141.1768,67.7580 141.0545,67.7586 140.8928,67.7668 140.7996,67.7779 140.7169,67.8066 140.6856,67.8175 140.5788,67.8319 140.5733,67.8314 140.5693,67.8319 140.4560,67.8205 140.3369,67.7896 140.1948,67.7745 140.0461,67.7456 139.9143,67.7069 139.8159,67.6739 139.7103,67.6198 139.6057,67.5763 139.5129,67.5408 139.3750,67.5198 139.2416,67.5117 139.1174,67.5278 139.0041,67.5342 138.9977,67.5340 138.9946,67.5342 138.8997,67.5315 138.7623,67.5154 138.8548,67.4731 138.9342,67.4284 139.0266,67.3587 139.0270,67.3009 138.9380,67.2557 138.8694,67.2119 138.8387,67.1663 138.8869,67.1053 139.0020,67.0656 139.1768,67.0453 139.3031,67.0230 139.4247,66.9482 139.4534,66.8862 139.4693,66.8394 139.5607,66.8092 139.6733,66.8040 139.7729,66.8021 139.8521,66.7803 139.9047,66.7324 139.9576,66.6790 140.0295,66.6479 140.1443,66.6229 140.2212,66.6045 140.2747,66.5660 140.3471,66.5630 140.4248,66.5620 140.4904,66.5487 140.4926,66.5205 140.4290,66.4406 140.3428,66.4153 140.2378,66.4231 140.2334,66.4228 140.2283,66.4231 140.1259,66.4143 140.0149,66.3874 139.8154,66.3391 139.6644,66.2937 139.6121,66.2408 139.6382,66.1835 139.8066,66.1330 139.9775,66.0772 140.0827,66.0212 140.0454,65.9511 140.0192,65.9285 139.9603,65.8975 139.9096,65.8595 139.8337,65.8089 139.5330,65.7588 139.3874,65.7709 139.3835,65.7704 139.3779,65.7709 139.1677,65.7462 138.9823,65.7709 138.9792,65.7700 138.9728,65.7709 138.8335,65.7329 138.7196,65.6063 138.4790,65.5304 138.3018,65.4544 138.0233,65.3025 137.8207,65.2392 137.6403,65.2392 137.5011,65.2771 137.3618,65.3658 137.3538,65.3648 137.3523,65.3658 137.2510,65.3531 137.1497,65.2645 137.0631,65.2273 136.9567,65.2392 136.8554,65.3151 136.6655,65.3658 136.4629,65.4417 136.2730,65.4924 136.0452,65.5304 136.0416,65.5294 136.0356,65.5304 135.8078,65.4671 135.5925,65.3784 135.4533,65.2138 135.3140,65.0872 135.1874,65.0239 135.0481,64.9606 134.8582,64.9353 134.5671,64.9227 134.4626,64.9227 134.3487,64.9480 134.2348,64.9986 134.1588,65.0746 134.1493,65.0746 134.0449,65.0746 134.0353,65.0746 133.9341,65.0366 133.8834,64.9606 133.8454,64.8087 133.7695,64.7328 133.7188,64.6568 133.6935,64.5682 133.6935,64.4163 133.6302,64.3150 133.5036,64.2517 133.3865,64.2517 133.2599,64.2643 133.1966,64.2770 133.1207,64.2897 133.0067,64.3023 133.0007,64.3019 132.9972,64.3023 132.8918,64.2956 132.8685,64.3309 132.7878,64.3653 132.7664,64.4119 132.7573,64.4740 132.7096,64.5030 132.5657,64.5480 132.4313,64.5530 132.4088,64.5539 132.3162,64.5609 132.2667,64.5879 132.2284,64.6227 132.2372,64.6665 132.2996,64.7048 132.3456,64.7610 132.3195,64.8226 132.2302,64.8774 132.0760,64.9665 131.9862,65.0487 131.9521,65.1179 131.9080,65.1832 131.7858,65.2506 131.7193,65.3347 131.5882,65.3835 131.4661,65.3946 131.4358,65.4496 131.4763,65.5123 131.5544,65.5460 131.6928,65.6232 131.7015,65.6673 131.6512,65.6956 131.6158,65.7156 131.4950,65.7476 131.3402,65.7517 131.1656,65.7679 131.1215,65.7910 131.1261,65.8347 131.0717,65.8437 130.9581,65.8715 130.9012,65.9113 130.8919,65.9578 130.8355,65.9842 130.7073,66.0085 130.4991,66.0615 130.3101,66.1477 130.1389,66.2724 130.1191,66.3690 130.0398,66.4205 129.9830,66.4573 129.9883,66.5179 130.1411,66.5611 130.1052,66.7345 130.0861,66.9534 130.2479,67.1438 130.4573,67.1818 130.6287,67.4388 131.0085,67.5575 131.3884,67.6762 131.6566,67.6577 131.6582,67.6583 131.6661,67.6577 131.8565,67.7243 131.9802,67.9432 132.3514,68.1051 132.6560,68.1574 132.9605,68.2097 133.1029,68.3837 133.2175,68.5238 132.9746,68.7034 132.7316,68.8830 132.4669,68.9731 132.3672,69.1239 132.5192,69.1378 132.6914,69.1221 132.6932,69.1228 132.7009,69.1221 132.7793,69.1536 132.6864,69.2290 132.7279,69.2900 132.7917,69.3428 132.8182,69.4095 132.8087,69.4461 132.8717,69.4643 132.9578,69.4946 132.9512,69.5368 133.0409,69.5632 133.1702,69.5615 133.1706,69.5616 133.1797,69.5615 133.2235,69.5758 133.2744,69.5923 133.3096,69.6573 133.4703,69.6509 133.4715,69.6513 133.4798,69.6509 133.6386,69.6945 133.6667,69.7387 133.5423,69.7453 133.5330,69.7453 133.5328,69.7453 133.3431,69.7450 133.1998,69.7672 133.1868,69.8034 133.2332,69.8350 133.1939,69.8771 133.1493,69.8831 133.1450,69.8824 133.1398,69.8831 133.0822,69.8736 133.0284,69.8646 132.9394,69.8739 132.8767,69.8995 132.8976,69.9614 133.0475,70.0257 133.1072,70.0642 133.1686,70.1333 133.2005,70.2190 133.0860,70.3012 132.8516,70.3407 132.8430,70.3406 132.8421,70.3407 132.7305,70.3388 132.5419,70.3354 132.3270,70.3514 132.0424,70.4360 131.9993,70.4760 132.1172,70.5550 132.1187,70.5905 132.0974,70.6780 132.0306,70.7486 132.1856,70.8258 132.2212,70.8803 132.1214,70.9299 132.0380,70.9599 131.9297,70.9966 131.9032,71.0040 131.8717,71.3894 131.8717,71.7917 131.8717,72.1940 131.8717,72.5963 131.8717,72.9985 132.3556,72.9985 132.8396,72.9985 133.3235,72.9985 133.8075,72.9985 134.2914,72.9985 134.7754,72.9985 135.2593,72.9985 135.7433,72.9985 136.2273,72.9985 136.7112,72.9985 137.1952,72.9985 137.6791,72.9985 138.1631,72.9985 138.6470,72.9985 139.1310,72.9985 139.6150,72.9985 140.0989,72.9985 140.5829,72.9985 141.0668,72.9985 141.5508,72.9985 142.0347,72.9985 142.5187,72.9985 143.0027,72.9985 143.4866,72.9985 143.9706,72.9985 144.4545,72.9985 144.9385,72.9985 145.4224,72.9985 145.9064,72.9985 146.3903,72.9985 146.8743,72.9985 146.8838,72.9985 146.8837,73.2590 147.3434,73.2619 147.8031,73.2649 148.2627,73.2678 148.7224,73.2708 149.1821,73.2737 149.6418,73.2767 150.1014,73.2796 150.5611,73.2826 151.0208,73.2856 151.4804,73.2885 151.4800,73.3275 151.9106,73.5653 152.3412,73.8030 152.7717,74.0408 153.2023,74.2785 153.6328,74.5163 154.0634,74.7540 154.4939,74.9917 154.9245,75.2295 155.3551,75.4672 155.7856,75.7050 156.2162,75.9427 156.6467,76.1805 157.0773,76.4182 157.5078,76.6559 157.5091,77.1194 157.5103,77.5828 157.5116,78.0462 157.5128,78.5097 157.5141,78.9731 157.5153,79.4366 157.5166,79.9000 157.5166,80.3545 157.5166,80.8091 157.5166,81.2636 157.5166,81.7182 157.5166,82.1727 157.5166,82.6273 157.5166,83.0818 157.5166,83.5364 157.5166,83.9909 157.5166,84.4455 157.5166,84.9000 157.5166,85.3636 157.5166,85.8273 157.5166,86.2909 157.5166,86.7545 157.5166,87.2182 157.5166,87.6818 157.5166,88.1455 157.5166,88.6091 157.5166,89.0727 157.5166,89.5364 157.5166,90.0000 157.9586,90.0000 158.4006,90.0000 158.8425,90.0000 159.2845,90.0000 159.7265,90.0000 160.1685,90.0000 160.6105,90.0000 161.0525,90.0000 161.4945,90.0000 161.9365,90.0000 162.3784,90.0000 162.8204,90.0000 163.2624,90.0000 163.7044,90.0000 164.1464,90.0000 164.5884,90.0000 165.0304,90.0000 165.4723,90.0000 165.9143,90.0000 166.3563,90.0000 166.7983,90.0000 167.2403,90.0000 167.6823,90.0000 168.1243,90.0000 168.5663,90.0000 169.0082,90.0000 169.4502,90.0000 169.8922,90.0000 170.3342,90.0000 170.7762,90.0000 171.2182,90.0000 171.6602,90.0000 172.1022,90.0000 172.5346,90.0000 172.5346,89.5364 172.5346,89.0727 172.5346,88.6091 172.5346,88.1455 172.5346,87.6818 172.5346,87.2182 172.5346,86.7545 172.5346,86.2909 172.5346,85.8273 172.5346,85.3636 172.5346,84.9000 172.5346,84.4455 172.5346,83.9909 172.5346,83.5364 172.5346,83.0818 172.5346,82.6273 172.5346,82.1727 172.5346,81.7182 172.5346,81.2636 172.5346,80.8091 172.5346,80.3545 172.5346,79.9000 172.5346,79.4455 172.5346,78.9909 172.5346,78.5364 172.5346,78.0818 172.5346,77.6273 172.5346,77.1727 172.5346,76.7182 172.5346,76.2636 172.5346,75.8091 172.5346,75.3545 172.5346,74.9000 139,-4.0,Arctic Ocean -52.5429,90.0000 -52.5439,89.5364 -52.5448,89.0727 -52.5458,88.6091 -52.5468,88.1455 -52.5477,87.6818 -52.5487,87.2182 -52.5496,86.7546 -52.5506,86.2909 -52.5515,85.8273 -52.5525,85.3636 -52.5534,84.9000 -52.5544,84.4376 -52.5553,83.9752 -52.5563,83.5128 -52.5572,83.0505 -52.5582,82.5881 -52.6636,82.5608 -52.7616,82.5470 -52.8676,82.5387 -52.9631,82.5356 -53.4344,82.5314 -53.6747,82.5510 -53.8509,82.5621 -54.0580,82.5711 -54.2660,82.5760 -54.5775,82.5763 -54.9017,82.5681 -55.1507,82.5564 -55.4352,82.5386 -55.7242,82.5188 -56.0133,82.4990 -56.3111,82.4728 -56.5955,82.4594 -56.9874,82.4303 -57.3754,82.4113 -57.8565,82.3734 -58.1444,82.3642 -58.3807,82.3526 -58.6732,82.3340 -58.9657,82.3153 -59.2829,82.2909 -59.3728,82.2871 -59.4245,82.2874 -59.4752,82.2903 -59.5144,82.2960 -59.5379,82.3029 -59.5533,82.3150 -59.5717,82.3820 -59.6336,82.4331 -59.7615,82.4867 -59.9829,82.5535 -60.1120,82.5800 -60.2718,82.6066 -60.4534,82.6328 -60.6180,82.6517 -60.8038,82.6673 -61.1565,82.6869 -61.4460,82.7121 -61.7071,82.7263 -61.7606,82.7312 -61.7746,82.7379 -61.7407,82.7781 -61.7437,82.8135 -61.7808,82.8483 -61.8411,82.8778 -61.9419,82.9102 -62.0769,82.9406 -62.2231,82.9649 -62.3896,82.9849 -62.5966,83.0030 -62.8043,83.0157 -63.0417,83.0248 -63.3482,83.0321 -63.5012,83.0529 -63.6183,83.0659 -63.7295,83.0774 -63.9273,83.0923 -64.1364,83.1028 -64.3859,83.1100 -64.6760,83.1128 -64.9381,83.1112 -65.3279,83.1046 -65.7262,83.1309 -65.9873,83.1418 -66.2483,83.1526 -66.5206,83.1598 -66.8585,83.1645 -67.1964,83.1692 -67.5030,83.1871 -67.5030,83.6153 -67.5030,84.0435 -67.5030,84.4718 -67.5030,84.9000 -67.5030,85.3636 -67.5030,85.8273 -67.5030,86.2909 -67.5030,86.7545 -67.5030,87.2182 -67.5030,87.6818 -67.5030,88.1455 -67.5030,88.6091 -67.5030,89.0727 -67.5030,89.5364 -67.5030,90.0000 -67.0629,90.0000 -66.6227,90.0000 -66.1825,90.0000 -65.7424,90.0000 -65.3022,90.0000 -64.8620,90.0000 -64.4219,90.0000 -63.9817,90.0000 -63.5415,90.0000 -63.1014,90.0000 -62.6612,90.0000 -62.2211,90.0000 -61.7809,90.0000 -61.3407,90.0000 -60.9006,90.0000 -60.4604,90.0000 -60.0202,90.0000 -59.5801,90.0000 -59.1399,90.0000 -58.6997,90.0000 -58.2596,90.0000 -57.8194,90.0000 -57.3793,90.0000 -56.9391,90.0000 -56.4989,90.0000 -56.0588,90.0000 -55.6186,90.0000 -55.1784,90.0000 -54.7383,90.0000 -54.2981,90.0000 -53.8579,90.0000 -53.4178,90.0000 -52.9776,90.0000 -52.5429,90.0000 5574,-5.0,America/New_York -67.5030,84.9000 -67.5030,84.4718 -67.5030,84.0435 -67.5030,83.6153 -67.5030,83.1871 -67.1964,83.1692 -66.8585,83.1645 -66.5206,83.1598 -66.2483,83.1526 -65.9873,83.1418 -65.7262,83.1309 -65.3279,83.1046 -64.9381,83.1112 -64.6760,83.1128 -64.3859,83.1100 -64.1364,83.1028 -63.9273,83.0923 -63.7295,83.0774 -63.6183,83.0659 -63.5012,83.0529 -63.3482,83.0321 -63.0417,83.0248 -62.8043,83.0157 -62.5966,83.0030 -62.3896,82.9849 -62.2231,82.9649 -62.0769,82.9406 -61.9419,82.9102 -61.8411,82.8778 -61.7808,82.8483 -61.7437,82.8135 -61.7407,82.7781 -61.7746,82.7379 -61.7606,82.7312 -61.7071,82.7263 -61.4460,82.7121 -61.1565,82.6869 -60.8038,82.6673 -60.6180,82.6517 -60.4534,82.6328 -60.2718,82.6066 -60.1120,82.5800 -59.9829,82.5535 -59.7615,82.4867 -59.6336,82.4331 -59.5717,82.3820 -59.5533,82.3150 -59.5379,82.3029 -60.0000,82.2167 -60.4817,82.1389 -60.9029,82.0708 -61.3242,82.0028 -61.7454,81.9347 -62.1667,81.8667 -62.5880,81.7484 -63.0093,81.6301 -63.1641,81.5867 -63.5039,81.4913 -63.8436,81.3959 -64.1833,81.3006 -64.6000,81.2074 -65.0167,81.1142 -65.4333,81.0211 -65.8500,80.9279 -66.2667,80.8347 -66.4833,80.8172 -66.8000,80.7836 -67.1167,80.7500 -67.5222,80.6389 -67.9278,80.5278 -68.3333,80.4167 -68.5460,80.2838 -68.7107,80.1808 -68.7101,80.1802 -68.8313,80.1043 -68.9981,80.0000 -69.0814,79.9127 -69.1647,79.8253 -69.2480,79.7379 -69.3314,79.6506 -69.7898,79.5445 -70.2483,79.4383 -70.7068,79.3322 -71.1652,79.2261 -71.6236,79.1200 -72.0821,79.0138 -72.5405,78.9077 -72.7041,78.8699 -72.9990,78.8016 -73.0948,78.7534 -73.1091,78.7463 -73.1906,78.7053 -73.2865,78.6572 -73.3281,78.6363 -73.3823,78.6091 -73.4781,78.5610 -73.5740,78.5129 -73.6698,78.4647 -73.7656,78.4167 -73.7870,78.3971 -73.8771,78.3147 -73.8907,78.3022 -73.9158,78.2793 -74.0157,78.1878 -74.0649,78.1428 -74.0652,78.1388 -74.0040,78.0859 -73.9247,78.0520 -73.8158,78.0206 -73.5453,77.9708 -73.2408,77.9038 -73.1969,77.8869 -73.1104,77.8371 -72.9760,77.7978 -72.8270,77.7702 -72.4544,77.7153 -72.3190,77.6987 -72.2646,77.6840 -72.2797,77.6796 -72.3237,77.6757 -72.6758,77.6563 -72.8343,77.6403 -73.1807,77.5823 -73.3496,77.5442 -73.4567,77.5014 -73.5241,77.4410 -73.5241,77.3868 -73.4614,77.3327 -73.3570,77.2876 -73.2106,77.2475 -73.0563,77.2174 -72.5714,77.1373 -72.4320,77.1020 -72.3745,77.0784 -72.3350,77.0527 -72.2940,76.9801 -72.2423,76.9354 -72.1675,76.8964 -72.0662,76.8609 -71.7902,76.7935 -71.6164,76.7323 -71.3913,76.6728 -71.1759,76.6298 -70.9270,76.6003 -70.9282,76.5437 -70.8661,76.4881 -70.7453,76.4355 -70.5406,76.3840 -70.4683,76.3079 -70.4088,76.2758 -70.3390,76.2492 -69.9660,76.1563 -69.6516,76.1052 -69.4621,76.0326 -69.2761,75.9918 -69.1706,75.9589 -68.9406,75.9107 -68.7140,75.8808 -68.3959,75.8592 -68.0778,75.8376 -67.6402,75.8079 -67.5022,75.7937 -67.5022,75.3434 -67.5022,74.8932 -67.5021,74.4429 -67.5021,73.9927 -67.5021,73.5424 -67.5021,73.1173 -67.5020,72.6922 -67.5020,72.2671 -67.5020,71.8419 -67.5020,71.4168 -67.5019,70.9917 -67.5019,70.7201 -67.5019,70.4485 -67.3473,70.4068 -67.1612,70.3187 -67.0283,70.2669 -66.6593,70.0317 -66.6166,69.9806 -66.6034,69.9152 -66.5504,69.8452 -66.5127,69.7337 -66.5439,69.6592 -66.6579,69.5847 -66.3798,69.4944 -66.2819,69.4500 -66.1297,69.3548 -66.0833,69.3055 -66.0591,69.2593 -66.0602,69.1815 -66.1190,69.1027 -66.2312,69.0275 -66.3693,68.9732 -66.5068,68.9429 -66.6677,68.9254 -66.8265,68.9224 -67.0944,68.9400 -67.1636,68.9344 -67.2068,68.9201 -67.2299,68.8951 -67.2243,68.8618 -67.1092,68.7698 -67.0687,68.6987 -67.0360,68.6915 -66.9279,68.6830 -66.7181,68.6742 -66.6113,68.6647 -66.4745,68.6431 -66.3193,68.6091 -66.1910,68.5620 -66.0916,68.4906 -65.9040,68.4564 -65.8052,68.4295 -65.7331,68.3987 -65.6622,68.3568 -65.4878,68.2987 -65.3735,68.2377 -65.3724,68.2374 -65.3356,68.2366 -65.2154,68.2563 -65.1006,68.2664 -64.9952,68.2684 -64.8832,68.2634 -64.6944,68.2384 -64.3926,68.1647 -64.2895,68.1247 -64.2138,68.0795 -64.1376,67.9718 -64.1362,67.9698 -63.9943,67.9262 -63.9105,67.8884 -63.8625,67.8668 -63.6700,67.8368 -63.5546,67.7999 -63.3083,67.6577 -63.2337,67.5765 -63.1971,67.5506 -63.0169,67.5414 -62.8454,67.5142 -62.6655,67.4620 -62.5379,67.4060 -62.3095,67.3983 -62.1791,67.3783 -61.9762,67.3143 -61.8775,67.2565 -61.8146,67.2409 -61.7329,67.2206 -61.3527,67.0933 -61.1487,66.9824 -60.8684,66.8035 -60.7842,66.7300 -60.7415,66.6576 -60.7370,66.6060 -60.7576,66.5502 -60.8056,66.5031 -60.9386,66.4325 -60.9415,66.3400 -60.9992,66.2711 -61.0774,66.2281 -61.1838,66.1908 -61.3080,66.1600 -61.4784,66.1308 -61.4353,66.0306 -61.4600,65.9559 -61.5472,65.8890 -61.7236,65.8210 -61.6392,65.7453 -61.6138,65.6786 -61.6390,65.6044 -61.7101,65.5342 -61.7748,65.4939 -61.8635,65.4540 -61.9435,65.4292 -62.0329,65.4114 -62.1865,65.3985 -62.3908,65.4046 -62.5552,65.3816 -62.7567,65.3797 -62.7919,65.3728 -62.8192,65.3519 -62.8283,65.3425 -62.8394,65.3092 -62.8127,65.1890 -62.8690,65.0435 -62.8900,65.0101 -62.9573,64.9426 -63.0175,64.8967 -63.0587,64.8292 -63.1177,64.7817 -63.2296,64.7325 -63.3673,64.7013 -63.4581,64.6914 -63.5679,64.6882 -63.6786,64.6941 -63.7715,64.7065 -63.8945,64.7357 -64.1715,64.8302 -64.4519,64.8813 -64.6247,64.5549 -64.5893,64.4869 -64.5869,64.4312 -64.6054,64.3796 -64.6445,64.3338 -64.7110,64.2868 -64.7154,64.2678 -64.6788,64.2535 -64.5123,64.2409 -64.4272,64.2221 -64.3257,64.1853 -64.2486,64.1387 -64.0770,63.9375 -63.9427,63.8103 -63.8670,63.6917 -63.8425,63.5941 -63.8129,63.5420 -63.7695,63.4998 -63.6572,63.4220 -63.6076,63.3562 -63.5921,63.2856 -63.6280,63.2022 -63.6595,63.1664 -63.7401,63.1211 -63.8488,63.0869 -63.9675,63.0682 -64.0937,63.0646 -64.2585,63.0782 -64.2922,63.0724 -64.2164,62.9996 -64.1839,62.9522 -64.1650,62.8171 -64.1363,62.7510 -64.0843,62.6936 -63.9421,62.5913 -63.9123,62.5423 -63.9580,62.3967 -64.0422,62.3270 -64.2007,62.2461 -64.3727,62.1875 -64.5185,62.1654 -64.6977,62.1660 -64.6695,62.0459 -64.5531,61.9748 -64.2716,61.7131 -64.2229,61.6485 -64.2094,61.5944 -64.2837,61.3884 -64.3568,61.3166 -64.4974,61.2105 -64.5700,61.1726 -64.6535,61.1463 -64.6417,60.8996 -64.5275,60.8966 -64.4206,60.8794 -64.3341,60.8535 -64.2628,60.8186 -64.2030,60.7702 -64.1709,60.7148 -64.1668,60.6660 -64.1969,60.5788 -64.1964,60.5785 -64.4049,60.4029 -64.4004,60.3843 -64.3999,60.3822 -64.4323,60.3727 -64.4324,60.3727 -64.4602,60.3704 -64.4902,60.3612 -64.5124,60.3425 -64.5191,60.3195 -64.5192,60.3193 -64.5313,60.3040 -64.5314,60.3039 -64.5333,60.3026 -64.5580,60.3033 -64.5815,60.3014 -64.6047,60.2979 -64.6290,60.2941 -64.6390,60.2935 -64.6532,60.2926 -64.6780,60.2935 -64.7029,60.2946 -64.7277,60.2938 -64.7642,60.2896 -64.8083,60.2808 -64.8447,60.2641 -64.8580,60.2363 -64.8428,60.2189 -64.8096,60.1977 -64.7733,60.1802 -64.7489,60.1736 -64.7079,60.1798 -64.6696,60.1834 -64.6360,60.1743 -64.6088,60.1420 -64.6026,60.1292 -64.5992,60.1178 -64.6028,60.1096 -64.6174,60.1065 -64.6440,60.1064 -64.6706,60.1062 -64.6973,60.1060 -64.7239,60.1059 -64.7410,60.1014 -64.7324,60.0916 -64.7147,60.0816 -64.7047,60.0762 -64.7051,60.0642 -64.7164,60.0586 -64.7324,60.0561 -64.7468,60.0539 -64.7639,60.0487 -64.7815,60.0436 -64.7994,60.0399 -64.8172,60.0393 -64.8354,60.0444 -64.8564,60.0533 -64.8774,60.0597 -64.8952,60.0573 -64.9042,60.0478 -64.8997,60.0395 -64.8885,60.0316 -64.8775,60.0226 -64.8707,60.0122 -64.8660,60.0008 -64.8616,59.9894 -64.8558,59.9792 -64.8453,59.9683 -64.8354,59.9639 -64.8231,59.9650 -64.8057,59.9700 -64.7902,59.9717 -64.7769,59.9682 -64.7643,59.9619 -64.7511,59.9556 -64.7230,59.9513 -64.6901,59.9491 -64.6635,59.9404 -64.6544,59.9167 -64.6707,59.8834 -64.7014,59.8840 -64.7370,59.8918 -64.7677,59.8801 -64.7676,59.8689 -64.7553,59.8597 -64.7442,59.8515 -64.7477,59.8432 -64.7643,59.8367 -64.7816,59.8330 -64.7986,59.8284 -64.8141,59.8190 -64.8044,59.8118 -64.8015,59.8054 -64.8018,59.7988 -64.8019,59.7914 -64.8035,59.7899 -64.8068,59.7860 -64.8103,59.7813 -64.8119,59.7773 -64.8114,59.7756 -64.8103,59.7719 -64.8064,59.7657 -64.8020,59.7594 -64.7988,59.7537 -64.7954,59.7445 -64.7919,59.7353 -64.7886,59.7264 -64.7857,59.7181 -64.7813,59.7099 -64.7766,59.7043 -64.7745,59.6992 -64.8251,59.6805 -64.8655,59.6708 -64.8850,59.6638 -64.9018,59.6415 -64.9032,59.6038 -64.8934,59.5647 -64.8543,59.5452 -64.8279,59.5374 -64.8266,59.5336 -64.8022,59.5201 -64.7947,59.5191 -64.7865,59.5191 -64.7786,59.5182 -64.7719,59.5142 -64.7702,59.5093 -64.7723,59.5049 -64.7750,59.5009 -64.7749,59.4973 -64.7657,59.4852 -64.7559,59.4746 -64.7447,59.4652 -64.7313,59.4563 -64.7020,59.4473 -64.6720,59.4503 -64.6418,59.4592 -64.6119,59.4677 -64.5792,59.4773 -64.5472,59.4904 -64.5158,59.5047 -64.4845,59.5179 -64.4535,59.5259 -64.4141,59.5291 -64.3762,59.5235 -64.3494,59.5051 -64.3461,59.4919 -64.3557,59.4842 -64.3725,59.4792 -64.3908,59.4741 -64.4125,59.4666 -64.4343,59.4591 -64.4559,59.4512 -64.4772,59.4426 -64.4918,59.4364 -64.5034,59.4295 -64.5064,59.4211 -64.4951,59.4101 -64.4859,59.3995 -64.4928,59.3923 -64.5073,59.3874 -64.5211,59.3842 -64.5372,59.3727 -64.5233,59.3585 -64.5053,59.3417 -64.5092,59.3227 -64.5185,59.3156 -64.5287,59.3073 -64.5365,59.2974 -64.5383,59.2856 -64.5325,59.2758 -64.5223,59.2683 -64.5124,59.2607 -64.5075,59.2501 -64.5121,59.2364 -64.5231,59.2243 -64.5329,59.2113 -64.5340,59.1953 -64.5279,59.1857 -64.5184,59.1785 -64.5077,59.1724 -64.4981,59.1657 -64.4892,59.1468 -64.4913,59.1259 -64.4895,59.1057 -64.4691,59.0884 -64.4445,59.0819 -64.4178,59.0799 -64.3907,59.0783 -64.3649,59.0733 -64.3481,59.0662 -64.3329,59.0569 -64.3188,59.0461 -64.3049,59.0344 -64.2921,59.0073 -64.3183,58.9922 -64.3589,58.9854 -64.3890,58.9832 -64.4140,58.9820 -64.4379,58.9829 -64.4611,58.9874 -64.4842,58.9967 -64.5022,59.0016 -64.5211,59.0018 -64.5395,59.0024 -64.5562,59.0084 -64.5767,59.0179 -64.5968,59.0212 -64.6175,59.0221 -64.6399,59.0250 -64.6556,59.0301 -64.6654,59.0366 -64.6736,59.0445 -64.6847,59.0540 -64.7159,59.0657 -64.7542,59.0651 -64.7927,59.0546 -64.8241,59.0368 -64.8321,59.0286 -64.8454,59.0142 -64.8579,59.0004 -64.8635,58.9937 -64.8619,58.9861 -64.8542,58.9796 -64.8447,58.9734 -64.8380,58.9672 -64.8403,58.9563 -64.8552,58.9481 -64.8725,58.9414 -64.8822,58.9351 -64.8760,58.9253 -64.8566,58.9182 -64.8352,58.9135 -64.8227,58.9113 -64.7913,58.9137 -64.7621,58.9274 -64.7328,58.9409 -64.7015,58.9423 -64.6670,58.9290 -64.6365,58.9120 -64.6050,58.8964 -64.5680,58.8873 -64.5436,58.8875 -64.5196,58.8910 -64.4955,58.8948 -64.4713,58.8959 -64.4477,58.8928 -64.4246,58.8880 -64.4014,58.8838 -64.3773,58.8828 -64.3465,58.8851 -64.3104,58.8847 -64.2782,58.8752 -64.2586,58.8501 -64.2586,58.8352 -64.2644,58.8214 -64.2698,58.8077 -64.2691,58.7928 -64.2615,58.7818 -64.2498,58.7743 -64.2366,58.7696 -64.2238,58.7665 -64.1881,58.7573 -64.1571,58.7508 -64.1263,58.7525 -64.0913,58.7678 -64.0563,58.7896 -64.0203,58.8094 -63.9822,58.8233 -63.9411,58.8274 -63.9172,58.8258 -63.8911,58.8244 -63.8652,58.8252 -63.8419,58.8298 -63.8277,58.8373 -63.8166,58.8473 -63.8063,58.8579 -63.7941,58.8673 -63.7604,58.8791 -63.7263,58.8785 -63.6925,58.8702 -63.6599,58.8586 -63.6373,58.8525 -63.6151,58.8489 -63.5934,58.8443 -63.5718,58.8353 -63.5552,58.8248 -63.5394,58.8134 -63.5240,58.8015 -63.5084,58.7897 -63.4837,58.7586 -63.4978,58.7372 -63.5336,58.7235 -63.5741,58.7159 -63.6303,58.7095 -63.6870,58.7054 -63.7437,58.7021 -63.8002,58.6984 -63.8206,58.6983 -63.8406,58.7002 -63.8605,58.7030 -63.8808,58.7050 -63.9001,58.7022 -63.9178,58.6945 -63.9354,58.6866 -63.9540,58.6832 -63.9934,58.6848 -64.0286,58.6823 -64.0594,58.6690 -64.0861,58.6378 -64.0965,58.6142 -64.0992,58.5921 -64.0933,58.5714 -64.0780,58.5520 -64.0527,58.5332 -64.0305,58.5268 -64.0066,58.5280 -63.9760,58.5321 -63.9481,58.5434 -63.9194,58.5602 -63.8904,58.5668 -63.8619,58.5475 -63.8572,58.5367 -63.8556,58.5254 -63.8522,58.5149 -63.8426,58.5066 -63.8257,58.4965 -63.8182,58.4860 -63.8199,58.4741 -63.8307,58.4595 -63.8646,58.4383 -63.9010,58.4349 -63.9395,58.4375 -63.9794,58.4340 -64.0025,58.4208 -64.0168,58.4017 -64.0301,58.3834 -64.0508,58.3723 -64.0769,58.3685 -64.1052,58.3647 -64.1326,58.3586 -64.1564,58.3481 -64.1671,58.3388 -64.1719,58.3293 -64.1750,58.3190 -64.1805,58.3071 -64.1857,58.2939 -64.1882,58.2791 -64.1911,58.2642 -64.1974,58.2503 -64.2092,58.2380 -64.2247,58.2275 -64.2420,58.2198 -64.2587,58.2160 -64.3040,58.2130 -64.3508,58.2064 -64.3896,58.1877 -64.4108,58.1483 -64.4190,58.1239 -64.4286,58.0970 -64.4276,58.0748 -64.4043,58.0645 -64.3849,58.0648 -64.3659,58.0660 -64.3468,58.0661 -64.3274,58.0628 -64.3083,58.0564 -64.2926,58.0507 -64.2764,58.0473 -64.2559,58.0479 -64.2214,58.0452 -64.2134,58.0281 -64.2163,58.0033 -64.2144,57.9775 -64.2014,57.9566 -64.1834,57.9372 -64.1647,57.9180 -64.1500,57.8976 -64.1294,57.8599 -64.0941,57.8060 -64.0539,57.7679 -64.0189,57.7781 -64.0162,57.7906 -64.0159,57.8045 -64.0106,57.8137 -63.9929,57.8120 -63.9756,57.8075 -63.9574,57.8044 -63.9394,57.8010 -63.9228,57.7956 -63.9111,57.7832 -63.9062,57.7650 -63.9019,57.7457 -63.8919,57.7304 -63.8784,57.7255 -63.8623,57.7250 -63.8470,57.7238 -63.8363,57.7171 -63.8303,57.7049 -63.8253,57.6942 -63.8175,57.6885 -63.8029,57.6917 -63.7883,57.7065 -63.7800,57.7235 -63.7695,57.7305 -63.7488,57.7151 -63.7353,57.6960 -63.7168,57.6718 -63.6959,57.6590 -63.6753,57.6737 -63.6702,57.6846 -63.6668,57.6964 -63.6638,57.7083 -63.6602,57.7199 -63.6492,57.7312 -63.6306,57.7380 -63.6106,57.7395 -63.5958,57.7342 -63.5839,57.7081 -63.5954,57.6810 -63.6179,57.6567 -63.6392,57.6391 -63.6672,57.6246 -63.7005,57.6143 -63.7324,57.6032 -63.7566,57.5862 -63.7649,57.5644 -63.7638,57.5383 -63.7606,57.5109 -63.7630,57.4852 -63.7646,57.4626 -63.7575,57.4408 -63.7443,57.4217 -63.7279,57.4073 -63.7079,57.3852 -63.7177,57.3705 -63.7437,57.3614 -63.7728,57.3559 -63.7864,57.3515 -63.7992,57.3444 -63.8122,57.3368 -63.8266,57.3311 -63.8380,57.3253 -63.8421,57.3170 -63.8429,57.3068 -63.8448,57.2954 -63.8563,57.2713 -63.8692,57.2498 -63.8757,57.2274 -63.8684,57.2006 -63.8502,57.1918 -63.8355,57.2189 -63.8253,57.2554 -63.8205,57.2745 -63.8007,57.2758 -63.7734,57.2631 -63.7502,57.2441 -63.7433,57.2267 -63.7526,57.2102 -63.7652,57.1965 -63.7786,57.1835 -63.7902,57.1689 -63.7925,57.1585 -63.7883,57.1492 -63.7827,57.1396 -63.7809,57.1280 -63.7952,57.1009 -63.8216,57.0906 -63.8503,57.0843 -63.8717,57.0693 -63.8760,57.0592 -63.8807,57.0441 -63.8840,57.0291 -63.8846,57.0195 -63.8772,57.0073 -63.8678,56.9985 -63.8659,56.9918 -63.8807,56.9856 -63.9004,56.9750 -63.9124,56.9574 -63.9154,56.9366 -63.9082,56.9168 -63.8981,56.9091 -63.8832,56.9007 -63.8716,56.8906 -63.8714,56.8781 -63.8835,56.8732 -63.9047,56.8739 -63.9272,56.8760 -63.9432,56.8755 -63.9708,56.8670 -63.9974,56.8548 -64.0108,56.8370 -63.9989,56.8116 -63.9929,56.7886 -64.0198,56.7776 -64.0575,56.7719 -64.0836,56.7656 -64.0999,56.7514 -64.1157,56.7313 -64.1257,56.7093 -64.1241,56.6895 -64.1061,56.6694 -64.0821,56.6561 -64.0573,56.6440 -64.0369,56.6273 -64.0270,56.6114 -64.0222,56.5996 -64.0150,56.5893 -63.9980,56.5781 -63.9830,56.5719 -63.9672,56.5658 -63.9530,56.5577 -63.9426,56.5451 -63.9416,56.5247 -63.9477,56.5026 -63.9470,56.4835 -63.9256,56.4717 -63.8933,56.4630 -63.8746,56.4516 -63.8771,56.4393 -63.9080,56.4278 -63.9615,56.4196 -64.0110,56.4190 -64.0608,56.4239 -64.1150,56.4321 -64.1270,56.4342 -64.1454,56.4361 -64.1623,56.4345 -64.1697,56.4257 -64.1639,56.4145 -64.1503,56.4078 -64.1350,56.4033 -64.1239,56.3984 -64.1081,56.3754 -64.1052,56.3478 -64.1147,56.3218 -64.1366,56.3037 -64.1299,56.2979 -64.1224,56.2938 -64.1146,56.2899 -64.1072,56.2851 -64.1027,56.2798 -64.0987,56.2731 -64.0949,56.2669 -64.0911,56.2628 -64.0730,56.2563 -64.0550,56.2559 -64.0364,56.2592 -64.0166,56.2633 -63.9872,56.2619 -63.9417,56.2530 -63.8987,56.2377 -63.8769,56.2173 -63.8878,56.1942 -63.9223,56.1830 -63.9628,56.1773 -63.9916,56.1712 -64.0109,56.1556 -64.0184,56.1363 -64.0200,56.1141 -64.0217,56.0898 -64.0103,56.0698 -63.9766,56.0777 -63.9390,56.0965 -63.9158,56.1092 -63.9011,56.1146 -63.8814,56.1203 -63.8618,56.1233 -63.8477,56.1203 -63.8414,56.1120 -63.8461,56.1058 -63.8568,56.1003 -63.8683,56.0941 -63.8775,56.0853 -63.8779,56.0786 -63.8709,56.0745 -63.8580,56.0736 -63.8439,56.0723 -63.8401,56.0672 -63.8392,56.0602 -63.8341,56.0534 -63.8043,56.0432 -63.7711,56.0430 -63.7366,56.0464 -63.7032,56.0473 -63.6842,56.0431 -63.6658,56.0355 -63.6473,56.0274 -63.6284,56.0215 -63.6075,56.0184 -63.5872,56.0176 -63.5669,56.0185 -63.5461,56.0211 -63.5278,56.0244 -63.4942,56.0296 -63.4613,56.0308 -63.4449,56.0228 -63.4506,56.0122 -63.4666,56.0044 -63.4847,55.9994 -63.4967,55.9972 -63.5165,55.9961 -63.5362,55.9966 -63.5557,55.9961 -63.5750,55.9917 -63.5907,55.9854 -63.6079,55.9777 -63.6252,55.9698 -63.6415,55.9624 -63.6677,55.9520 -63.6910,55.9412 -63.6945,55.9424 -63.7292,55.9370 -63.7619,55.9333 -63.7893,55.9315 -63.8148,55.9206 -63.8403,55.9133 -63.8421,55.8932 -63.8257,55.8695 -63.7820,55.8477 -63.7674,55.8295 -63.7674,55.8040 -63.7619,55.7930 -63.7437,55.7894 -63.7109,55.7839 -63.6964,55.7766 -63.6927,55.7530 -63.7037,55.7311 -63.7109,55.7147 -63.7273,55.6892 -63.7419,55.6746 -63.7492,55.6546 -63.7273,55.6528 -63.7000,55.6546 -63.6818,55.6509 -63.6690,55.6236 -63.6745,55.5963 -63.6745,55.5562 -63.6854,55.5198 -63.7128,55.4997 -63.7437,55.4906 -63.7692,55.4833 -63.7674,55.4615 -63.7383,55.4396 -63.6417,55.4250 -63.5780,55.4232 -63.5105,55.4232 -63.4559,55.4159 -63.3903,55.4050 -63.3612,55.4123 -63.3375,55.4123 -63.3302,55.3886 -63.3429,55.3613 -63.3757,55.3576 -63.4559,55.3431 -63.4905,55.3467 -63.5269,55.3467 -63.5543,55.3467 -63.5780,55.3394 -63.5761,55.3267 -63.5579,55.3248 -63.5361,55.3230 -63.5415,55.3084 -63.5725,55.3012 -63.5998,55.3012 -63.6454,55.2866 -63.6599,55.2702 -63.6454,55.2447 -63.5943,55.2338 -63.5506,55.2265 -63.4960,55.2392 -63.4614,55.2483 -63.4104,55.2520 -63.4183,55.2280 -63.4195,55.2246 -63.4541,55.2046 -63.4978,55.2028 -63.4981,55.2027 -63.5342,55.1937 -63.5488,55.1846 -63.5652,55.1572 -63.5889,55.1208 -63.6016,55.0716 -63.5852,55.0498 -63.5834,55.0206 -63.5780,55.0024 -63.5761,54.9787 -63.5962,54.9605 -63.5980,54.9441 -63.5943,54.9186 -63.6053,54.9022 -63.6599,54.9022 -63.6909,54.9168 -63.7383,54.9332 -63.7729,54.9423 -63.8148,54.9405 -63.8202,54.9186 -63.8458,54.8803 -63.8366,54.8457 -63.8239,54.8293 -63.8385,54.8129 -63.8840,54.7965 -63.9040,54.7820 -63.8968,54.7637 -63.8713,54.7473 -63.7893,54.7109 -63.7583,54.6799 -63.7292,54.6471 -63.7401,54.6235 -63.8020,54.6417 -63.8585,54.6289 -63.8814,54.6134 -63.8986,54.6016 -63.9660,54.6071 -64.0516,54.6071 -64.1135,54.6308 -64.1445,54.6672 -64.1629,54.6892 -64.1810,54.7109 -64.2447,54.7328 -64.3139,54.7656 -64.3923,54.7892 -64.4579,54.7947 -64.5034,54.7637 -64.5380,54.7401 -64.5763,54.7273 -64.6310,54.7341 -64.6346,54.7346 -64.6744,54.7359 -64.6892,54.7364 -64.7147,54.7291 -64.7676,54.7382 -64.7714,54.7504 -64.7767,54.7674 -64.7657,54.7892 -64.7585,54.8166 -64.7821,54.8348 -64.8113,54.8403 -64.8477,54.8494 -64.8550,54.8730 -64.8714,54.8894 -64.9406,54.9295 -65.0044,54.9386 -65.0536,54.9496 -65.1028,54.9568 -65.1629,54.9295 -65.1939,54.8803 -65.2212,54.8512 -65.2740,54.8366 -65.2959,54.8257 -65.3177,54.8366 -65.3523,54.8257 -65.3797,54.8239 -65.3997,54.8239 -65.4252,54.8330 -65.4726,54.8421 -65.4817,54.8166 -65.4580,54.7965 -65.4453,54.7801 -65.4453,54.7455 -65.4453,54.7455 -65.4799,54.7309 -65.5455,54.7255 -65.5502,54.7279 -65.5746,54.7401 -65.6256,54.7492 -65.6511,54.7309 -65.6620,54.7200 -65.6784,54.7146 -65.6806,54.7148 -65.6980,54.7228 -65.7127,54.7382 -65.7343,54.7593 -65.7619,54.7785 -65.7915,54.7964 -65.8191,54.8163 -65.8402,54.8419 -65.8467,54.8562 -65.8493,54.8690 -65.8495,54.8819 -65.8487,54.8970 -65.8560,54.9075 -65.8736,54.9133 -65.8929,54.9163 -65.9056,54.9176 -65.9285,54.9221 -65.9497,54.9261 -65.9711,54.9278 -65.9947,54.9254 -66.0059,54.9215 -66.0173,54.9158 -66.0288,54.9114 -66.0399,54.9110 -66.0593,54.9188 -66.0789,54.9309 -66.0978,54.9443 -66.1153,54.9566 -66.1341,54.9655 -66.1550,54.9706 -66.1765,54.9738 -66.1972,54.9768 -66.2543,54.9981 -66.3006,55.0332 -66.3430,55.0736 -66.3888,55.1112 -66.4000,55.1196 -66.4108,55.1287 -66.4220,55.1373 -66.4340,55.1441 -66.4513,55.1504 -66.4655,55.1546 -66.4788,55.1605 -66.4933,55.1715 -66.5150,55.1950 -66.5357,55.2191 -66.5589,55.2404 -66.5880,55.2554 -66.6185,55.2575 -66.6511,55.2544 -66.6768,55.2578 -66.6868,55.2797 -66.6996,55.3071 -66.7314,55.3274 -66.7704,55.3388 -66.8044,55.3392 -66.8202,55.3369 -66.8320,55.3347 -66.8382,55.3292 -66.8372,55.3172 -66.8283,55.3063 -66.8118,55.2930 -66.7936,55.2805 -66.7801,55.2719 -66.7581,55.2593 -66.7279,55.2410 -66.7009,55.2206 -66.6887,55.2017 -66.6938,55.1925 -66.7069,55.1890 -66.7225,55.1868 -66.7352,55.1817 -66.7431,55.1716 -66.7473,55.1598 -66.7498,55.1469 -66.7523,55.1340 -66.7570,55.1218 -66.7612,55.1130 -66.7623,55.1042 -66.7574,55.0918 -66.7523,55.0851 -66.7448,55.0775 -66.7370,55.0697 -66.7308,55.0620 -66.7235,55.0513 -66.7170,55.0432 -66.7092,55.0353 -66.6981,55.0256 -66.6877,55.0176 -66.6752,55.0075 -66.6648,54.9962 -66.6608,54.9842 -66.6751,54.9745 -66.7040,54.9691 -66.7282,54.9598 -66.7288,54.9387 -66.6932,54.9036 -66.6384,54.8517 -66.6071,54.8039 -66.6425,54.7812 -66.6614,54.7825 -66.6833,54.7850 -66.7044,54.7841 -66.7211,54.7755 -66.7203,54.7669 -66.7102,54.7575 -66.7005,54.7482 -66.7013,54.7402 -66.7370,54.7339 -66.7850,54.7458 -66.8333,54.7644 -66.8694,54.7784 -66.9034,54.7882 -66.9362,54.7991 -66.9665,54.8143 -66.9933,54.8370 -67.0021,54.8515 -67.0089,54.8688 -67.0159,54.8849 -67.0252,54.8960 -67.0445,54.9049 -67.0654,54.9102 -67.0867,54.9149 -67.1069,54.9217 -67.1380,54.9387 -67.1670,54.9571 -67.1967,54.9746 -67.2301,54.9889 -67.2469,54.9928 -67.2727,54.9984 -67.2970,55.0060 -67.3094,55.0157 -67.3086,55.0268 -67.3010,55.0340 -67.2905,55.0396 -67.2811,55.0459 -67.2719,55.0552 -67.2689,55.0613 -67.2741,55.0660 -67.2898,55.0711 -67.3114,55.0774 -67.3337,55.0839 -67.3564,55.0883 -67.3788,55.0887 -67.4081,55.0806 -67.4351,55.0635 -67.4435,55.0507 -67.4435,55.0349 -67.4229,54.9971 -67.3781,54.9489 -67.3162,54.8939 -67.2646,54.8354 -67.1718,54.7804 -67.0858,54.7322 -67.0858,54.6806 -67.0902,54.6766 -67.1092,54.6593 -67.1236,54.6462 -67.1546,54.6153 -67.1885,54.6122 -67.1924,54.6118 -67.2371,54.5878 -67.2612,54.5706 -67.2543,54.5465 -67.2337,54.5155 -67.2681,54.4846 -67.3205,54.5045 -67.3403,54.5121 -67.3988,54.5534 -67.4263,54.5706 -67.4985,54.5946 -67.5084,54.5827 -67.5157,54.5740 -67.4951,54.5396 -67.5088,54.4880 -67.5467,54.4846 -67.6051,54.4708 -67.6325,54.4845 -67.6327,54.4846 -67.6671,54.4605 -67.7014,54.4502 -67.7496,54.4261 -67.7496,54.3814 -67.7462,54.3436 -67.6911,54.3057 -67.6739,54.2645 -67.6395,54.2301 -67.6395,54.1888 -67.6739,54.1682 -67.7049,54.1544 -67.7427,54.1544 -67.7737,54.1269 -67.7909,54.0994 -67.8012,54.0650 -67.8081,54.0340 -67.7806,54.0065 -67.7462,53.9824 -67.7118,53.9721 -67.6705,53.9446 -67.6155,53.9240 -67.6017,53.8861 -67.5948,53.8586 -67.5835,53.8552 -67.5604,53.8483 -67.5226,53.8380 -67.5204,53.8328 -67.5123,53.8139 -67.5467,53.8036 -67.5776,53.7967 -67.5948,53.7830 -67.5742,53.7658 -67.5295,53.7589 -67.5123,53.7314 -67.4539,53.7099 -67.4469,53.7073 -67.4125,53.6935 -67.3988,53.6351 -67.3438,53.5869 -67.3250,53.5681 -67.3231,53.5663 -67.1855,53.5422 -67.1303,53.5290 -67.1133,53.5250 -67.0308,53.5147 -66.9757,53.4768 -66.9207,53.4356 -66.8898,53.4149 -66.9345,53.3977 -66.9638,53.3899 -66.9861,53.3840 -67.0101,53.3530 -66.9964,53.3255 -66.9620,53.2946 -66.9649,53.2474 -66.9654,53.2395 -66.9689,53.1879 -66.9699,53.1834 -66.9757,53.1811 -66.9929,53.1673 -66.9826,53.1432 -66.9826,53.1054 -66.9964,53.0813 -67.0480,53.0744 -67.0583,53.0916 -67.0514,53.1226 -67.0927,53.1226 -67.1202,53.1226 -67.1683,53.1535 -67.2096,53.1535 -67.2406,53.1673 -67.2990,53.1570 -67.3266,53.1329 -67.3575,53.1295 -67.3850,53.1054 -67.3678,53.0160 -67.3403,52.9781 -67.3334,52.9437 -67.3472,52.9162 -67.3025,52.8681 -67.2612,52.8612 -67.2027,52.8268 -67.1649,52.8199 -67.1340,52.8578 -67.0996,52.8715 -67.0654,52.8746 -67.0617,52.8750 -67.0514,52.8096 -67.0411,52.7752 -66.9927,52.7601 -66.9861,52.7580 -66.9482,52.7374 -66.9070,52.6961 -66.8829,52.6760 -66.8657,52.6617 -66.8554,52.6892 -66.8523,52.7265 -66.8519,52.7305 -66.8244,52.7236 -66.8141,52.6927 -66.7935,52.6789 -66.7921,52.6789 -66.7694,52.6789 -66.7602,52.7035 -66.7591,52.7064 -66.7694,52.7649 -66.7487,52.7752 -66.7075,52.7718 -66.6567,52.7955 -66.6559,52.7959 -66.6456,52.8268 -66.6456,52.8887 -66.6249,52.9369 -66.5955,52.9382 -66.5493,52.9403 -66.5125,52.9556 -66.5080,52.9575 -66.4633,52.9953 -66.4564,53.0297 -66.4536,53.0304 -66.4254,53.0366 -66.3635,53.0022 -66.3154,52.9369 -66.2913,52.9025 -66.2911,52.8994 -66.2890,52.8655 -66.2879,52.8474 -66.3119,52.8440 -66.3278,52.8535 -66.3291,52.8543 -66.3498,52.8612 -66.3910,52.8715 -66.4014,52.8440 -66.3773,52.7993 -66.3327,52.7376 -66.3326,52.7374 -66.2947,52.6376 -66.2879,52.6101 -66.3119,52.6101 -66.3739,52.6686 -66.4048,52.6480 -66.4082,52.5895 -66.3922,52.5670 -66.3847,52.5566 -66.3739,52.5413 -66.3773,52.5035 -66.3842,52.4691 -66.3635,52.4416 -66.3498,52.3831 -66.3498,52.3591 -66.3876,52.3694 -66.4358,52.3763 -66.4772,52.3380 -66.4805,52.3350 -66.4787,52.3314 -66.4667,52.3075 -66.4610,52.2847 -66.4564,52.2662 -66.4473,52.2519 -66.4323,52.2284 -66.4082,52.2180 -66.3842,52.1733 -66.3799,52.1606 -66.3739,52.1424 -66.3498,52.1321 -66.3016,52.1321 -66.2638,52.1561 -66.2775,52.2215 -66.2913,52.2524 -66.3016,52.2868 -66.2844,52.3075 -66.2569,52.2971 -66.2485,52.2887 -66.2128,52.2530 -66.2122,52.2524 -66.1950,52.2215 -66.1641,52.2146 -66.1228,52.2008 -66.0781,52.1699 -66.0849,52.1217 -66.0884,52.0908 -66.0265,52.0805 -65.9921,52.0598 -65.9732,52.0693 -65.9508,52.0805 -65.9405,52.0942 -65.9027,52.0805 -65.8717,52.0977 -65.8236,52.1080 -65.7950,52.1005 -65.7582,52.0908 -65.7307,52.0873 -65.6989,52.1032 -65.6963,52.1045 -65.6550,52.1080 -65.6572,52.0938 -65.6619,52.0633 -65.6825,52.0254 -65.6619,51.9876 -65.6344,52.0151 -65.6138,52.0323 -65.5518,52.0323 -65.5278,52.0564 -65.5003,52.0977 -65.4831,52.0667 -65.4590,52.0254 -65.4349,52.0048 -65.4143,51.9842 -65.3936,51.9773 -65.3764,51.9842 -65.3592,51.9498 -65.3730,51.9188 -65.3936,51.8982 -65.3592,51.8500 -65.3386,51.8191 -65.3180,51.8535 -65.2767,51.8672 -65.2526,51.8466 -65.2217,51.8260 -65.1838,51.8225 -65.1770,51.7916 -65.1838,51.7744 -65.1322,51.7572 -65.0806,51.7503 -65.0325,51.7606 -64.9912,51.7365 -64.9568,51.7228 -64.9224,51.7297 -64.9190,51.7606 -64.8571,51.7744 -64.7711,51.7640 -64.7086,51.7328 -64.6886,51.7228 -64.6542,51.6918 -64.6160,51.6519 -64.6026,51.6379 -64.5785,51.6127 -64.5399,51.5962 -64.5304,51.5921 -64.5284,51.5927 -64.5006,51.6020 -64.4788,51.6093 -64.4375,51.6402 -64.4065,51.6540 -64.3446,51.6677 -64.3240,51.6953 -64.3192,51.7001 -64.3180,51.7012 -64.2793,51.7400 -64.2874,51.7664 -64.2930,51.7847 -64.3343,51.8191 -64.3376,51.8711 -64.3377,51.8741 -64.3618,51.9670 -64.3377,52.0117 -64.3068,51.9910 -64.2994,51.9853 -64.2758,51.9670 -64.2346,51.9807 -64.2518,52.0117 -64.2724,52.0392 -64.2586,52.0839 -64.2518,52.1149 -64.2105,52.1286 -64.1727,52.1149 -64.1555,52.1321 -64.1559,52.1327 -64.1795,52.1630 -64.2105,52.2215 -64.2208,52.2662 -64.2070,52.3040 -64.1658,52.3212 -64.1417,52.3556 -64.1279,52.3866 -64.1279,52.4278 -64.1360,52.4641 -64.1417,52.4898 -64.1623,52.5310 -64.1830,52.5517 -64.1899,52.5723 -64.1623,52.5964 -64.1589,52.6376 -64.1658,52.6755 -64.1245,52.6961 -64.1073,52.7202 -64.0626,52.7271 -64.0041,52.7339 -63.7943,52.7718 -63.7187,52.7787 -63.6671,52.8131 -63.6533,52.8371 -63.6120,52.8612 -63.6017,52.8199 -63.6052,52.7855 -63.5936,52.7763 -63.5958,52.7709 -63.5756,52.7685 -63.5545,52.7604 -63.5340,52.7502 -63.5156,52.7410 -63.4965,52.7344 -63.4767,52.7291 -63.4572,52.7236 -63.4389,52.7159 -63.4103,52.6974 -63.3842,52.6732 -63.3791,52.6512 -63.4136,52.6390 -63.4356,52.6396 -63.4578,52.6429 -63.4800,52.6462 -63.5022,52.6468 -63.5296,52.6445 -63.5570,52.6422 -63.5845,52.6399 -63.6119,52.6376 -63.6627,52.6332 -63.7136,52.6286 -63.7644,52.6242 -63.8126,52.6202 -63.8150,52.6204 -63.8357,52.6167 -63.8442,52.6152 -63.8759,52.6084 -63.9087,52.5987 -63.9346,52.5880 -63.9541,52.5799 -63.9668,52.5732 -63.9955,52.5579 -64.0157,52.5434 -64.0353,52.5270 -64.0436,52.5200 -64.0555,52.5080 -64.0654,52.4980 -64.0689,52.4944 -64.0812,52.4734 -64.0754,52.4536 -64.0578,52.4431 -64.0568,52.4426 -64.0519,52.4364 -64.0456,52.4286 -64.0381,52.4180 -64.0291,52.3978 -64.0064,52.3751 -64.0009,52.3696 -63.9727,52.3536 -63.9086,52.3383 -63.8897,52.3338 -63.8851,52.3350 -63.8820,52.3370 -63.8552,52.3358 -63.8055,52.3369 -63.7734,52.3351 -63.7495,52.3224 -63.7504,52.3133 -63.7621,52.3093 -63.7765,52.3068 -63.7852,52.3023 -63.7832,52.2912 -63.7717,52.2802 -63.7573,52.2706 -63.7354,52.2515 -63.7144,52.2286 -63.6936,52.1883 -63.6805,52.1441 -63.6718,52.0978 -63.6634,52.0819 -63.6496,52.0659 -63.6401,52.0506 -63.6441,52.0370 -63.6704,52.0357 -63.7144,52.0471 -63.7592,52.0620 -63.7882,52.0714 -63.8196,52.0681 -63.8082,52.0426 -63.7744,52.0136 -63.7387,51.9998 -63.7057,51.9998 -63.6726,51.9998 -63.6396,51.9998 -63.6065,51.9998 -63.3957,51.9998 -63.2981,51.9998 -63.2005,51.9998 -62.9975,51.9998 -62.9263,51.9998 -62.7944,51.9998 -62.5914,51.9998 -62.3884,51.9998 -62.1854,51.9998 -62.1314,51.9998 -62.1253,51.9916 -62.1147,51.9446 -62.1016,51.9275 -62.0821,51.9156 -62.0367,51.8964 -62.0243,51.8865 -62.0184,51.8715 -62.0147,51.8273 -62.0088,51.8046 -62.0001,51.7835 -61.9897,51.7685 -61.9665,51.7585 -61.9062,51.7455 -61.8941,51.7303 -61.8903,51.7058 -61.8805,51.6866 -61.8340,51.6241 -61.8284,51.6044 -61.8351,51.5866 -61.8450,51.5692 -61.8416,51.5532 -61.7811,51.4772 -61.7772,51.4753 -61.7765,51.4716 -61.7826,51.3926 -61.7768,51.3706 -61.7598,51.3487 -61.7396,51.3435 -61.7176,51.3443 -61.6951,51.3399 -61.6719,51.3251 -61.6659,51.3106 -61.6727,51.2925 -61.6880,51.2676 -61.7035,51.2493 -61.7059,51.2406 -61.6985,51.2303 -61.6188,51.1697 -61.6021,51.1645 -61.5877,51.1565 -61.5676,51.1177 -61.5577,51.1037 -61.5266,51.0839 -61.5236,51.0747 -61.5235,51.0519 -61.5313,51.0400 -61.5819,50.9976 -61.5947,50.9836 -61.6055,50.9665 -61.6061,50.9619 -61.6044,50.9503 -61.6055,50.9461 -61.6090,50.9432 -61.6165,50.9414 -61.6277,50.9347 -61.6366,50.9324 -61.6440,50.9275 -61.6471,50.9150 -61.6472,50.9012 -61.6495,50.8939 -61.6565,50.8912 -61.6709,50.8908 -61.6934,50.8982 -61.7065,50.8991 -61.7153,50.8908 -61.6880,50.8566 -61.6954,50.8368 -61.6872,50.8229 -61.6742,50.8097 -61.6660,50.7874 -61.6482,50.7673 -61.6214,50.7401 -61.6164,50.7306 -61.6229,50.7269 -61.6440,50.7070 -61.6603,50.6609 -61.6859,50.4583 -61.6806,50.4253 -61.6471,50.3564 -61.6448,50.3443 -61.6451,50.3362 -61.6430,50.3296 -61.6334,50.3223 -61.6221,50.3192 -61.5970,50.3196 -61.5850,50.3154 -61.6089,50.3025 -61.6272,50.2842 -61.6280,50.2679 -61.5727,50.2526 -61.5605,50.2333 -61.5625,50.2108 -61.5815,50.1888 -61.4265,49.7678 -61.2715,49.3468 -61.1522,48.8979 -61.0329,48.4489 -60.9136,48.0000 -61.0822,47.6554 -61.2509,47.3108 -61.4195,46.9662 -61.8485,46.9442 -62.2774,46.9222 -62.4691,47.3178 -62.6608,47.7134 -62.8525,48.1090 -63.0442,48.5047 -63.4422,48.4559 -63.8402,48.4071 -64.2626,48.3577 -64.2839,48.3416 -64.6013,48.2747 -64.7336,48.1305 -64.8743,48.0940 -64.9550,48.0438 -65.2664,47.9248 -65.4498,47.9163 -65.6323,47.9895 -65.7379,48.0156 -66.0553,48.0511 -66.3727,48.0866 -66.8437,47.9967 -66.9436,47.9631 -66.9469,47.8992 -67.0472,47.9308 -67.1886,47.8839 -67.3228,47.8964 -67.3567,47.8417 -67.6042,47.9361 -67.6122,47.9975 -67.8642,47.9997 -68.1161,48.0019 -68.1203,47.9267 -68.3728,47.9247 -68.3803,47.5586 -68.5761,47.4247 -69.0536,47.2938 -69.0644,47.2936 -69.0575,47.2695 -69.0402,47.2491 -68.9062,47.1902 -68.8897,47.1906 -68.7618,47.2370 -68.7178,47.2452 -68.6688,47.2434 -68.6442,47.2453 -68.6256,47.2552 -68.6079,47.2698 -68.5852,47.2825 -68.5397,47.2999 -68.5180,47.3048 -68.4920,47.3076 -68.4667,47.3057 -68.4353,47.2913 -68.4226,47.2931 -68.4102,47.2974 -68.3856,47.3017 -68.3834,47.3071 -68.3848,47.3159 -68.3820,47.3278 -68.3478,47.3585 -68.2997,47.3678 -68.2464,47.3606 -68.1970,47.3414 -68.1843,47.3331 -68.1561,47.3067 -68.1451,47.3015 -68.1154,47.2923 -68.1014,47.2862 -68.0394,47.2452 -67.9932,47.2232 -67.9624,47.1977 -67.9537,47.1866 -67.9500,47.1729 -67.9434,47.1645 -67.8991,47.1388 -67.8706,47.1074 -67.8547,47.0978 -67.8136,47.0819 -67.8087,47.0751 -67.8052,47.0356 -67.8025,46.9012 -67.8000,46.7668 -67.7974,46.6323 -67.7948,46.4979 -67.7923,46.3635 -67.7897,46.2290 -67.7871,46.0946 -67.7846,45.9601 -67.7828,45.9505 -67.7766,45.9429 -67.7675,45.9360 -67.7597,45.9286 -67.7578,45.9195 -67.7694,45.9040 -67.7874,45.8900 -67.7992,45.8757 -67.7926,45.8589 -67.7761,45.8408 -67.7728,45.8281 -67.7799,45.8157 -67.7941,45.7992 -67.8063,45.7818 -67.8111,45.7665 -67.8070,45.7129 -67.8001,45.6998 -67.7861,45.6912 -67.7618,45.6801 -67.7480,45.6778 -67.7407,45.6836 -67.7355,45.6908 -67.7280,45.6923 -67.7174,45.6854 -67.7105,45.6754 -67.7048,45.6642 -67.6908,45.6538 -67.6603,45.6374 -67.6075,45.6201 -67.5519,45.6104 -67.5064,45.6098 -67.4758,45.6130 -67.4500,45.6108 -67.4313,45.5979 -67.4221,45.5688 -67.4262,45.5334 -67.4430,45.5222 -67.4675,45.5083 -67.4932,45.4931 -67.4823,45.4555 -67.4288,45.3870 -67.4346,45.3503 -67.4591,45.3184 -67.4687,45.3018 -67.4750,45.2824 -67.4713,45.2663 -67.4276,45.2366 -67.3905,45.1931 -67.3563,45.1659 -67.3192,45.1539 -67.2846,45.1697 -67.2796,45.1791 -67.2792,45.1874 -67.2772,45.1951 -67.2673,45.2025 -67.2550,45.2050 -67.2424,45.2026 -67.2191,45.1921 -67.2034,45.1870 -67.1960,45.1846 -67.1879,45.1830 -67.1820,45.1818 -67.1544,45.1729 -67.1324,45.1555 -67.1097,45.1297 -67.1057,45.1243 -67.0815,45.0852 -67.0572,45.0407 -67.0362,45.0086 -67.0237,44.9844 -67.0135,44.9665 -66.9979,44.9532 -66.9658,44.9282 -66.9799,44.8852 -66.9768,44.8665 -66.9643,44.8477 -66.9291,44.8399 -66.9252,44.8375 -66.8854,44.8126 -66.8752,44.8067 -66.9039,44.7762 -66.9257,44.7563 -66.9388,44.7444 -66.9411,44.7339 -66.9467,44.7081 -66.9587,44.6535 -66.9820,44.6364 -67.0104,44.6155 -67.0214,44.5990 -67.0497,44.5569 -67.0447,44.5102 -67.0628,44.4840 -67.0441,44.4381 -67.0385,44.4242 -67.0428,44.3620 -67.0737,44.3235 -67.1119,44.2759 -67.1444,44.2356 -67.1871,44.2203 -67.2342,44.2034 -67.2793,44.1872 -67.2794,44.1867 -67.2900,44.1570 -67.3968,43.8576 -67.5037,43.5582 -67.5037,43.0844 -67.5037,42.6105 -67.5037,42.1367 -67.5037,41.6629 -67.5037,41.1890 -67.5037,40.7152 -67.5037,40.2413 -67.5037,39.7868 -67.5037,39.3322 -67.5037,38.8777 -67.5037,38.4232 -67.5037,37.9686 -67.5037,37.5141 -67.5037,37.0595 -67.5037,36.6050 -67.5037,36.1504 -67.5037,35.6959 -67.5037,35.2413 -67.5037,34.7868 -67.5037,34.3322 -67.5037,33.8777 -67.5037,33.4232 -67.5037,32.9686 -67.5037,32.5141 -67.5037,32.0595 -67.5037,31.6050 -67.5037,31.1504 -67.5037,30.6959 -67.5037,30.2413 -67.5037,29.7868 -67.5037,29.3322 -67.5037,28.8777 -67.5037,28.4232 -67.5037,27.9686 -67.5037,27.5141 -67.5037,27.0595 -67.5037,26.6050 -67.5037,26.1504 -67.5037,25.6959 -67.5037,25.2413 -67.5037,24.7868 -67.5037,24.3322 -67.5037,23.8777 -67.5037,23.4232 -67.5037,22.9686 -67.5037,22.5141 -67.5037,22.0595 -67.5037,21.6050 -67.5037,21.1504 -67.5037,20.6959 -67.5037,20.2413 -67.9761,20.2413 -68.4486,20.2413 -68.9211,20.2413 -69.3935,20.2412 -69.8660,20.2412 -70.3385,20.2412 -70.8109,20.2412 -71.2834,20.2411 -71.7559,20.2411 -71.7550,19.9735 -71.7542,19.7058 -71.6917,19.4858 -71.6986,19.4003 -71.7667,19.3319 -71.6961,19.2417 -71.6292,19.2197 -71.6350,19.1581 -71.7500,19.0197 -71.8560,18.9478 -71.7889,18.9628 -71.7195,18.8839 -71.7158,18.7497 -71.8317,18.6225 -72.0031,18.6008 -71.8850,18.4772 -71.9075,18.4378 -71.6947,18.3222 -71.7692,18.2022 -71.7447,18.1339 -71.7679,18.0385 -71.7682,17.5584 -71.7686,17.0682 -71.7690,16.5781 -71.7693,16.0879 -71.7697,15.5978 -71.7701,15.1076 -71.7704,14.6175 -71.7708,14.1273 -71.7712,13.6371 -71.7715,13.1470 -71.7719,12.6568 -71.7137,12.6712 -71.6137,12.6698 -71.4254,12.6382 -71.1338,12.5096 -71.0788,12.4578 -71.0253,12.3777 -70.9615,12.2546 -70.9298,12.1934 -70.8981,12.0883 -70.9031,12.0140 -70.9406,11.9421 -71.0809,11.8068 -71.1036,11.7849 -71.3274,11.8501 -71.3281,11.8517 -71.3320,11.8501 -71.3576,11.8508 -71.3755,11.8411 -71.3934,11.8259 -71.3944,11.8252 -71.4097,11.8123 -71.4495,11.7955 -71.4765,11.7886 -71.5351,11.7735 -71.5936,11.7585 -71.6523,11.7436 -71.7109,11.7285 -71.7694,11.7135 -71.8280,11.6986 -71.8866,11.6835 -71.9452,11.6685 -71.9711,11.6619 -71.9808,11.6555 -71.9835,11.6538 -71.9906,11.6491 -72.0079,11.6246 -72.0180,11.6061 -72.0478,11.5513 -72.0776,11.4965 -72.1075,11.4418 -72.1373,11.3870 -72.1671,11.3322 -72.1969,11.2774 -72.2268,11.2226 -72.2566,11.1678 -72.2667,11.1553 -72.2671,11.1549 -72.2847,11.1505 -72.3219,11.1601 -72.3413,11.1621 -72.3614,11.1580 -72.4170,11.1376 -72.4332,11.1369 -72.4385,11.1367 -72.4387,11.1368 -72.4391,11.1367 -72.4600,11.1358 -72.4815,11.1325 -72.4993,11.1208 -72.5038,11.1118 -72.5046,11.0952 -72.5047,11.0927 -72.5075,11.0830 -72.5142,11.0736 -72.5150,11.0725 -72.5339,11.0524 -72.5421,11.0411 -72.5762,10.9579 -72.5780,10.9555 -72.5945,10.9330 -72.6131,10.9153 -72.6401,10.8967 -72.6567,10.8852 -72.6830,10.8556 -72.7061,10.8113 -72.7544,10.6749 -72.7814,10.6313 -72.8430,10.5606 -72.8559,10.5237 -72.8614,10.5081 -72.8754,10.4896 -72.8920,10.4729 -72.9076,10.4525 -72.9149,10.4329 -72.9162,10.4138 -72.9155,10.3943 -72.9198,10.3474 -72.9356,10.1752 -72.9588,10.0971 -72.9877,9.9994 -72.9879,9.9604 -72.9962,9.9213 -72.9970,9.9007 -72.9904,9.8750 -72.9816,9.8566 -72.9776,9.8381 -72.9855,9.8122 -73.0169,9.7486 -73.0719,9.6641 -73.0972,9.5964 -73.1077,9.5780 -73.1132,9.5722 -73.1236,9.5613 -73.1637,9.5363 -73.1722,9.5287 -73.1784,9.5230 -73.1944,9.4856 -73.1974,9.4787 -73.2000,9.4749 -73.2774,9.3618 -73.3118,9.2762 -73.3244,9.2559 -73.3422,9.2392 -73.3791,9.2139 -73.3908,9.1945 -73.3911,9.1728 -73.3778,9.1647 -73.2538,9.1677 -73.2294,9.1711 -73.2166,9.1728 -73.2122,9.1734 -73.1762,9.1909 -73.1529,9.2127 -73.1419,9.2230 -73.1243,9.2345 -73.1132,9.2376 -73.0988,9.2416 -73.0760,9.2543 -73.0544,9.2744 -73.0327,9.2946 -73.0215,9.2950 -73.0097,9.2954 -73.0036,9.2879 -72.9911,9.2517 -72.9914,9.2479 -72.9955,9.2391 -72.9956,9.2354 -72.9922,9.2303 -72.9829,9.2210 -72.9801,9.2165 -72.9760,9.1921 -72.9787,9.1501 -72.9732,9.1284 -72.9553,9.1040 -72.9364,9.0992 -72.9162,9.1070 -72.8986,9.1185 -72.8820,9.1294 -72.8740,9.1334 -72.8617,9.1370 -72.8503,9.1367 -72.8467,9.1355 -72.8415,9.1338 -72.8341,9.1336 -72.8267,9.1417 -72.8077,9.1237 -72.7910,9.1139 -72.7856,9.1024 -72.8000,9.0794 -72.7840,9.0610 -72.7831,9.0599 -72.7781,9.0411 -72.7747,9.0282 -72.7666,8.9974 -72.7551,8.9537 -72.7435,8.9101 -72.7321,8.8664 -72.7205,8.8227 -72.7090,8.7791 -72.6975,8.7354 -72.6860,8.6917 -72.6754,8.6515 -72.6554,8.6179 -72.6371,8.5982 -72.6173,8.5770 -72.5978,8.5560 -72.5781,8.5349 -72.5585,8.5137 -72.5388,8.4926 -72.5192,8.4715 -72.4995,8.4504 -72.4799,8.4293 -72.4563,8.4039 -72.4445,8.3941 -72.4344,8.3902 -72.4250,8.3877 -72.4151,8.3824 -72.4033,8.3705 -72.3935,8.3554 -72.3868,8.3386 -72.3846,8.3258 -72.3840,8.3218 -72.3848,8.3147 -72.3858,8.3055 -72.3948,8.2728 -72.3960,8.2566 -72.3905,8.2343 -72.3573,8.1721 -72.3358,8.1039 -72.3338,8.0655 -72.3462,8.0481 -72.3501,8.0426 -72.3672,8.0427 -72.3785,8.0446 -72.3883,8.0462 -72.4071,8.0438 -72.4171,8.0258 -72.4219,8.0062 -72.4301,7.9905 -72.4419,7.9771 -72.4567,7.9649 -72.4674,7.9597 -72.4788,7.9555 -72.4878,7.9492 -72.4912,7.9375 -72.4867,7.9287 -72.4688,7.9082 -72.4657,7.9046 -72.4586,7.8935 -72.4545,7.8762 -72.4535,7.8599 -72.4518,7.8328 -72.4542,7.8152 -72.4742,7.7542 -72.4833,7.6494 -72.4804,7.6289 -72.4668,7.5899 -72.4645,7.5770 -72.4634,7.5708 -72.4665,7.5538 -72.4674,7.5487 -72.4759,7.5286 -72.4820,7.5080 -72.4787,7.4845 -72.4513,7.4402 -72.4146,7.4138 -72.4021,7.4096 -72.3882,7.4049 -72.3708,7.3991 -72.3218,7.3900 -72.2592,7.3910 -72.2397,7.3913 -72.2258,7.3874 -72.2062,7.3819 -72.1717,7.3373 -72.1663,7.3341 -72.1640,7.3289 -72.1735,7.2882 -72.1742,7.2796 -72.1715,7.2499 -72.1641,7.2208 -72.1533,7.1926 -72.0983,7.0868 -72.0810,7.0666 -72.0696,7.0592 -72.0421,7.0469 -72.0287,7.0388 -72.0053,7.0191 -71.9938,7.0129 -71.8810,6.9866 -71.8482,6.9839 -71.8326,6.9864 -71.8302,6.9879 -71.8219,6.9930 -71.8121,7.0012 -71.7996,7.0092 -71.7886,7.0097 -71.7778,7.0075 -71.7715,7.0111 -71.7740,7.0289 -71.7643,7.0291 -71.7454,7.0293 -71.7217,7.0334 -71.6980,7.0350 -71.6696,7.0277 -71.6735,7.0442 -71.6694,7.0488 -71.6670,7.0515 -71.6543,7.0534 -71.6452,7.0530 -71.6204,7.0521 -71.6122,7.0463 -71.6065,7.0383 -71.5947,7.0301 -71.5878,7.0293 -71.5806,7.0316 -71.5671,7.0393 -71.5584,7.0412 -71.5536,7.0373 -71.5511,7.0318 -71.5493,7.0291 -71.5486,7.0283 -71.5288,7.0271 -71.5291,7.0283 -71.5281,7.0299 -71.5161,7.0330 -71.5099,7.0346 -71.4876,7.0289 -71.4796,7.0222 -71.4677,7.0124 -71.4558,7.0157 -71.4547,7.0162 -71.4295,7.0277 -71.4139,7.0310 -71.3982,7.0295 -71.3792,7.0243 -71.3660,7.0207 -71.3494,7.0195 -71.3078,7.0274 -71.2925,7.0258 -71.2886,7.0228 -71.2835,7.0188 -71.2826,7.0137 -71.2815,7.0072 -71.2807,6.9946 -71.2755,6.9844 -71.2620,6.9787 -71.2348,6.9780 -71.2132,6.9775 -71.2015,6.9719 -71.1938,6.9653 -71.1861,6.9631 -71.1840,6.9626 -71.1663,6.9681 -71.1536,6.9771 -71.1454,6.9862 -71.1360,6.9921 -71.0655,6.9845 -71.0438,6.9871 -71.0163,6.9903 -71.0113,6.9909 -70.9613,7.0094 -70.9188,7.0395 -70.9081,7.0534 -70.9034,7.0632 -70.8955,7.0685 -70.8748,7.0692 -70.8366,7.0819 -70.7931,7.0851 -70.7330,7.0993 -70.7033,7.0999 -70.6967,7.0967 -70.6826,7.0846 -70.6732,7.0812 -70.6393,7.0735 -70.6229,7.0741 -70.6195,7.0752 -70.5947,7.0830 -70.5786,7.0858 -70.5774,7.0847 -70.5715,7.0794 -70.5209,7.0156 -70.5107,7.0097 -70.4948,7.0055 -70.4844,7.0053 -70.4841,7.0053 -70.4613,7.0083 -70.4517,7.0077 -70.4470,7.0047 -70.4410,6.9957 -70.4378,6.9930 -70.4229,6.9878 -70.3831,6.9688 -70.3191,6.9383 -70.2876,6.9369 -70.2740,6.9446 -70.2313,6.9685 -70.1950,6.9776 -70.1578,6.9795 -70.1320,6.9732 -70.1292,6.9725 -70.0966,6.9444 -70.0794,6.9228 -70.0036,6.8274 -69.9277,6.7318 -69.8518,6.6363 -69.7760,6.5408 -69.7002,6.4453 -69.6244,6.3498 -69.5485,6.2543 -69.4726,6.1587 -69.4436,6.1222 -69.4324,6.1222 -69.4311,6.1222 -69.4061,6.1293 -69.3582,6.1516 -69.3314,6.1564 -69.3256,6.1534 -69.3238,6.1525 -69.3113,6.1462 -69.2901,6.1220 -69.2686,6.0975 -69.2461,6.0807 -69.1892,6.1126 -69.1546,6.1460 -69.1300,6.1699 -69.1084,6.1826 -69.0802,6.2094 -69.0611,6.2178 -69.0369,6.2188 -69.0162,6.2140 -68.9928,6.2036 -68.9786,6.1973 -68.9713,6.1994 -68.9609,6.2024 -68.9383,6.1971 -68.9145,6.1887 -68.8929,6.1843 -68.8291,6.1878 -68.8079,6.1843 -68.7441,6.1649 -68.7216,6.1625 -68.7009,6.1580 -68.6593,6.1387 -68.6353,6.1359 -68.6220,6.1419 -68.5957,6.1649 -68.5847,6.1700 -68.5225,6.1733 -68.4490,6.1950 -68.4274,6.1973 -68.4067,6.1949 -68.3411,6.1768 -68.3042,6.1770 -68.1903,6.2178 -68.1538,6.2228 -68.1508,6.2232 -68.1465,6.2238 -68.0190,6.2116 -67.9780,6.2178 -67.9779,6.2179 -67.9433,6.2297 -67.9337,6.2315 -67.9241,6.2346 -67.9163,6.2422 -67.9111,6.2523 -67.9100,6.2580 -67.9092,6.2625 -67.9043,6.2751 -67.8928,6.2783 -67.8793,6.2779 -67.8748,6.2787 -67.8681,6.2799 -67.8576,6.2885 -67.8567,6.2894 -67.8391,6.3075 -67.8272,6.3134 -67.8185,6.3138 -67.8008,6.3086 -67.7310,6.3027 -67.5740,6.2662 -67.5728,6.2655 -67.5449,6.2481 -67.5183,6.2225 -67.4905,6.2016 -67.4643,6.1993 -67.4500,6.1979 -67.4556,6.1938 -67.4762,6.1784 -67.4870,6.1668 -67.4914,6.1530 -67.4912,6.1202 -67.4912,6.1174 -67.4912,6.1145 -67.4543,6.0568 -67.4523,6.0553 -67.4286,6.0385 -67.4210,6.0183 -67.4194,6.0029 -67.4186,5.9953 -67.4211,5.9844 -67.4225,5.9782 -67.4348,5.9682 -67.4398,5.9660 -67.4709,5.9528 -67.4852,5.9441 -67.5324,5.8926 -67.5416,5.8767 -67.6012,5.8206 -67.6251,5.7845 -67.6412,5.7448 -67.6491,5.7020 -67.6491,5.6870 -67.6491,5.6663 -67.6491,5.6561 -67.6378,5.5973 -67.6360,5.5776 -67.6326,5.5731 -67.6189,5.5597 -67.6177,5.5585 -67.6143,5.5537 -67.6156,5.5480 -67.6170,5.5416 -67.6230,5.5334 -67.6300,5.5269 -67.6360,5.5195 -67.6470,5.4834 -67.6525,5.4780 -67.6645,5.4749 -67.6753,5.4672 -67.6846,5.4570 -67.6937,5.4472 -67.7021,5.4414 -67.7248,5.4328 -67.7316,5.4301 -67.7370,5.4258 -67.7378,5.4249 -67.7467,5.4143 -67.7521,5.4097 -67.7567,5.4088 -67.7629,5.4097 -67.7679,5.4105 -67.7726,5.4097 -67.7986,5.3881 -67.8038,5.3838 -67.8098,5.3788 -67.8346,5.3393 -67.8379,5.3239 -67.8437,5.2972 -67.8378,5.2740 -67.8340,5.2589 -67.8250,5.2428 -67.8186,5.2278 -67.8147,5.2103 -67.8143,5.2013 -67.8135,5.1866 -67.8156,5.1779 -67.8198,5.1667 -67.8246,5.1543 -67.8272,5.1421 -67.8276,5.1307 -67.8269,5.1230 -67.8266,5.1204 -67.8245,5.1106 -67.8211,5.1009 -67.8210,5.1006 -67.8147,5.0910 -67.8139,5.0900 -67.7968,5.0702 -67.7931,5.0633 -67.7938,5.0596 -67.7952,5.0527 -67.7999,5.0459 -67.8046,5.0409 -67.8067,5.0357 -67.8050,4.9912 -67.8067,4.9723 -67.8196,4.9333 -67.8264,4.8948 -67.8272,4.8715 -67.8252,4.8649 -67.8224,4.8595 -67.8161,4.8473 -67.8135,4.8405 -67.8139,4.8283 -67.8171,4.8215 -67.8186,4.8157 -67.8135,4.8063 -67.8205,4.7876 -67.8229,4.7436 -67.8306,4.7275 -67.8406,4.7115 -67.8456,4.6897 -67.8488,4.6342 -67.8552,4.6077 -67.8537,4.5758 -67.8552,4.5662 -67.8606,4.5580 -67.8676,4.5532 -67.8734,4.5465 -67.8751,4.5326 -67.8736,4.5278 -67.8718,4.5216 -67.8651,4.5121 -67.8566,4.5042 -67.8515,4.5006 -67.8477,4.4979 -67.8477,4.5047 -67.8291,4.4914 -67.8219,4.4782 -67.8171,4.4584 -67.8135,4.4433 -67.8094,4.4393 -67.7984,4.4354 -67.7971,4.4349 -67.7931,4.4290 -67.7931,4.4289 -67.7927,4.4208 -67.7984,4.4069 -67.7999,4.3989 -67.7967,4.3858 -67.7950,4.3831 -67.7827,4.3638 -67.7794,4.3508 -67.7820,4.3389 -67.7999,4.3061 -67.8006,4.3008 -67.8049,4.2685 -67.8034,4.2592 -67.7994,4.2353 -67.7908,4.2043 -67.7899,4.1984 -67.7862,4.1730 -67.7777,4.1539 -67.7589,4.1386 -67.7562,4.1357 -67.7402,4.1187 -67.7335,4.0935 -67.7316,4.0864 -67.7272,4.0818 -67.7206,4.0750 -67.7149,4.0589 -67.7141,4.0565 -67.7170,4.0393 -67.7104,4.0357 -67.7016,4.0120 -67.6986,3.9500 -67.6939,3.9286 -67.6539,3.8592 -67.6444,3.8346 -67.6388,3.7852 -67.6318,3.7619 -67.6141,3.7406 -67.5948,3.7309 -67.5765,3.7307 -67.5579,3.7342 -67.5374,3.7355 -67.4998,3.7179 -67.4714,3.6801 -67.4039,3.5045 -67.3901,3.4851 -67.3754,3.4749 -67.3378,3.4601 -67.3046,3.4257 -67.3095,3.3839 -67.3353,3.3421 -67.3958,3.2666 -67.4081,3.2573 -67.4103,3.2565 -67.4184,3.2537 -67.4402,3.2494 -67.4403,3.2494 -67.4522,3.2437 -67.4709,3.2263 -67.5138,3.1867 -67.5566,3.1470 -67.5995,3.1075 -67.6423,3.0678 -67.6851,3.0282 -67.7280,2.9886 -67.7708,2.9490 -67.8136,2.9093 -67.8386,2.8861 -67.8553,2.8582 -67.8559,2.7898 -67.8550,2.7905 -67.8413,2.8014 -67.8333,2.8152 -67.8233,2.8273 -67.8033,2.8326 -67.7814,2.8315 -67.7702,2.8324 -67.7510,2.8421 -67.7426,2.8386 -67.7408,2.8367 -67.7316,2.8263 -67.6904,2.8063 -67.6656,2.8013 -67.6475,2.8080 -67.6457,2.8087 -67.6266,2.8134 -67.6085,2.7986 -67.5943,2.7761 -67.5871,2.7581 -67.5833,2.7278 -67.5815,2.7131 -67.5756,2.6911 -67.5686,2.6856 -67.5654,2.6831 -67.5637,2.6817 -67.5485,2.6815 -67.5188,2.6810 -67.5078,2.6776 -67.5022,2.6759 -67.5003,2.6753 -67.4852,2.6619 -67.4810,2.6535 -67.4801,2.6507 -67.4750,2.6347 -67.4709,2.6271 -67.4617,2.6204 -67.4476,2.6136 -67.4403,2.6100 -67.4362,2.6036 -67.4335,2.5974 -67.4326,2.5954 -67.4170,2.5758 -67.4129,2.5719 -67.4106,2.5712 -67.4004,2.5682 -67.3932,2.5593 -67.3881,2.5482 -67.3821,2.5387 -67.3815,2.5378 -67.3809,2.5373 -67.3720,2.5304 -67.3499,2.5185 -67.3406,2.5105 -67.3358,2.5003 -67.3313,2.4867 -67.3254,2.4746 -67.3166,2.4695 -67.3057,2.4662 -67.2947,2.4584 -67.2816,2.4453 -67.2757,2.4394 -67.2666,2.4338 -67.2568,2.4306 -67.2314,2.4223 -67.1976,2.4020 -67.1897,2.3944 -67.1861,2.3845 -67.1859,2.3753 -67.1857,2.3655 -67.1802,2.3565 -67.1743,2.3383 -67.1738,2.3364 -67.1767,2.3319 -67.1870,2.3160 -67.2063,2.2978 -67.2177,2.2845 -67.2173,2.2661 -67.2088,2.2459 -67.2013,2.2279 -67.1971,2.2095 -67.1943,2.1970 -67.1778,2.1545 -67.1693,2.1412 -67.1662,2.1394 -67.1541,2.1327 -67.1360,2.1271 -67.1210,2.1191 -67.1146,2.1030 -67.1143,2.0981 -67.1131,2.0785 -67.1112,2.0488 -67.1146,2.0313 -67.1190,2.0240 -67.1280,2.0125 -67.1351,2.0033 -67.1328,1.9916 -67.1326,1.9908 -67.1255,1.9805 -67.1181,1.9724 -67.1103,1.9595 -67.0916,1.9465 -67.0873,1.9388 -67.0848,1.9280 -67.0668,1.8941 -66.9938,1.7002 -66.9907,1.6919 -66.9809,1.6659 -66.9781,1.6443 -66.9781,1.6425 -66.9781,1.5997 -66.9742,1.5800 -66.9645,1.5583 -66.9508,1.5358 -66.9432,1.5232 -66.9336,1.5017 -66.9297,1.4795 -66.9324,1.4634 -66.9365,1.4385 -66.9327,1.4246 -66.9234,1.4144 -66.9189,1.4108 -66.9119,1.4052 -66.9017,1.3945 -66.8912,1.3745 -66.8835,1.3499 -66.8825,1.3260 -66.8923,1.3064 -66.9009,1.2890 -66.8959,1.2653 -66.8800,1.2326 -66.8641,1.2127 -66.9000,1.2175 -66.9134,1.2149 -66.9782,1.1968 -67.0652,1.1727 -67.0861,1.1760 -67.0945,1.2012 -67.0982,1.2534 -67.0736,1.5412 -67.0830,1.6046 -67.1172,1.7098 -67.1557,1.7881 -67.2648,1.9325 -67.2886,1.9749 -67.3204,2.0531 -67.3406,2.0901 -67.3658,2.1150 -67.3817,2.1227 -67.4246,2.1381 -67.4397,2.1396 -67.4491,2.1341 -67.4661,2.1164 -67.4753,2.1119 -67.5103,2.1074 -67.5273,2.0966 -67.5544,2.0731 -67.5929,2.0548 -67.6697,1.9733 -67.7905,1.8126 -67.8208,1.7840 -67.8605,1.7615 -67.8932,1.7497 -67.9288,1.7413 -67.9649,1.7402 -67.9982,1.7500 -68.0318,1.7775 -68.0587,1.8164 -68.0792,1.8600 -68.1012,1.9241 -68.1111,1.9424 -68.1261,1.9562 -68.1491,1.9655 -68.1698,1.9697 -68.1771,1.9732 -68.1852,1.9808 -68.1873,1.9882 -68.1874,2.0083 -68.1922,2.0149 -68.2008,2.0078 -68.2608,1.8582 -68.2802,1.8294 -68.2737,1.8253 -68.2483,1.8221 -68.2390,1.8103 -68.2411,1.7883 -68.2390,1.7703 -68.2015,1.7687 -68.1935,1.7637 -68.1907,1.7550 -68.1917,1.7424 -68.1888,1.7358 -68.1804,1.7297 -68.1633,1.7213 -68.2386,1.7212 -68.2864,1.7211 -68.4126,1.7210 -68.5910,1.7209 -68.7955,1.7207 -69.0000,1.7205 -69.1784,1.7203 -69.3045,1.7202 -69.3524,1.7202 -69.3934,1.7253 -69.4692,1.7574 -69.5420,1.7727 -69.5803,1.7702 -69.6491,1.7389 -69.6901,1.7355 -69.7115,1.7385 -69.7291,1.7390 -69.7464,1.7352 -69.7892,1.7128 -69.8075,1.7074 -69.8562,1.7077 -69.8488,1.6689 -69.8492,1.6002 -69.8496,1.5315 -69.8500,1.4628 -69.8504,1.3941 -69.8508,1.3253 -69.8511,1.2566 -69.8515,1.1880 -69.8519,1.1193 -69.8522,1.0594 -69.8294,1.0572 -69.7877,1.0842 -69.7626,1.0911 -69.7497,1.0905 -69.7368,1.0884 -69.7281,1.0830 -69.7265,1.0610 -69.7160,1.0586 -69.6199,1.0728 -69.5968,1.0719 -69.5533,1.0568 -69.5430,1.0556 -69.5101,1.0561 -69.4783,1.0607 -69.4687,1.0594 -69.4598,1.0552 -69.4554,1.0507 -69.4524,1.0462 -69.4473,1.0417 -69.4284,1.0305 -69.4182,1.0286 -69.3709,1.0630 -69.3550,1.0671 -69.3388,1.0641 -69.2888,1.0384 -69.2743,1.0282 -69.2572,1.0069 -69.2402,0.9957 -69.2328,0.9884 -69.2302,0.9791 -69.2291,0.9674 -69.2262,0.9572 -69.2043,0.9437 -69.2100,0.9075 -69.1939,0.8921 -69.1707,0.8832 -69.1589,0.8762 -69.1524,0.8678 -69.1523,0.8543 -69.1598,0.8496 -69.1693,0.8481 -69.1754,0.8444 -69.1776,0.8236 -69.1678,0.7790 -69.1678,0.7560 -69.1746,0.7454 -69.1850,0.7377 -69.1923,0.7289 -69.1893,0.7152 -69.1812,0.7075 -69.1595,0.6973 -69.1521,0.6906 -69.1412,0.6682 -69.1375,0.6501 -69.1437,0.6375 -69.1623,0.6314 -69.1714,0.6328 -69.1901,0.6397 -69.2006,0.6395 -69.2084,0.6346 -69.2191,0.6195 -69.2262,0.6148 -69.2424,0.6138 -69.2790,0.6192 -69.2971,0.6181 -69.2928,0.6456 -69.3021,0.6566 -69.3203,0.6563 -69.3423,0.6502 -69.3626,0.6409 -69.3689,0.6444 -69.4397,0.7158 -69.4579,0.7281 -69.4781,0.7328 -69.5037,0.7296 -69.5234,0.7209 -69.5556,0.7002 -69.5742,0.6979 -69.5941,0.6893 -69.6046,0.6674 -69.6192,0.6507 -69.6513,0.6574 -69.6795,0.6700 -69.6947,0.6687 -69.7329,0.6390 -69.7675,0.6207 -69.8053,0.6069 -69.8459,0.5987 -69.9145,0.5945 -69.9339,0.5890 -69.9529,0.5858 -69.9765,0.5904 -69.9992,0.5898 -70.0207,0.5799 -70.0394,0.5746 -70.0542,0.5881 -70.0561,0.5186 -70.0568,0.4930 -70.0587,0.4259 -70.0614,0.3309 -70.0643,0.2220 -70.0673,0.1130 -70.0700,0.0180 -70.0718,-0.0491 -70.0725,-0.0747 -70.0738,-0.1249 -70.0680,-0.1601 -70.0564,-0.1810 -70.0176,-0.2257 -69.9667,-0.2723 -69.9444,-0.3055 -69.9336,-0.3143 -69.9150,-0.3217 -69.8752,-0.3306 -69.8581,-0.3414 -69.8517,-0.3508 -69.8423,-0.3732 -69.8348,-0.3832 -69.8248,-0.3902 -69.8018,-0.4010 -69.7914,-0.4082 -69.7616,-0.4409 -69.7465,-0.4530 -69.6665,-0.4829 -69.6495,-0.4920 -69.6321,-0.5069 -69.6198,-0.5246 -69.6117,-0.5446 -69.6071,-0.5668 -69.6066,-0.5965 -69.6045,-0.6063 -69.5993,-0.6164 -69.5927,-0.6241 -69.5870,-0.6325 -69.5842,-0.6446 -69.5908,-0.6682 -69.6220,-0.7154 -69.6284,-0.7334 -69.6184,-0.7569 -69.5807,-0.7994 -69.5727,-0.8135 -69.5747,-0.8304 -69.5757,-0.8392 -69.5732,-0.8492 -69.5642,-0.8635 -69.5392,-0.9206 -69.5326,-0.9341 -69.5243,-0.9410 -69.5025,-0.9503 -69.4931,-0.9562 -69.4712,-0.9880 -69.4651,-0.9931 -69.4551,-0.9946 -69.4500,-0.9968 -69.4469,-1.0008 -69.4429,-1.0084 -69.4450,-1.0107 -69.4398,-1.0487 -69.4419,-1.0598 -69.4483,-1.0804 -69.4482,-1.0921 -69.4105,-1.1527 -69.3995,-1.1827 -69.4211,-1.2386 -69.4183,-1.2841 -69.4347,-1.3764 -69.4339,-1.4222 -69.4523,-1.4905 -69.4519,-1.5109 -69.4664,-1.5611 -69.4776,-1.6225 -69.5070,-1.7836 -69.5363,-1.9448 -69.5657,-2.1060 -69.5950,-2.2671 -69.6244,-2.4283 -69.6537,-2.5895 -69.6831,-2.7507 -69.7124,-2.9118 -69.7417,-3.0729 -69.7712,-3.2342 -69.8005,-3.3953 -69.8298,-3.5565 -69.8592,-3.7177 -69.8885,-3.8788 -69.9178,-4.0400 -69.9472,-4.2011 -69.9483,-4.2034 -69.9494,-4.2056 -69.9506,-4.2078 -69.9517,-4.2099 -69.9528,-4.2121 -69.9539,-4.2144 -69.9551,-4.2166 -69.9561,-4.2188 -69.9572,-4.2209 -69.9583,-4.2232 -69.9594,-4.2254 -69.9605,-4.2276 -69.9616,-4.2298 -69.9627,-4.2320 -69.9639,-4.2343 -69.9649,-4.2365 -69.9626,-4.2643 -69.9718,-4.2910 -69.9894,-4.3146 -70.0229,-4.3389 -70.0370,-4.3409 -70.0510,-4.3373 -70.0633,-4.3285 -70.0756,-4.3162 -70.0811,-4.3088 -70.0857,-4.2839 -70.0966,-4.2657 -70.1165,-4.2583 -70.1389,-4.2605 -70.1573,-4.2702 -70.1703,-4.2885 -70.1866,-4.3263 -70.2056,-4.3429 -70.2167,-4.3289 -70.2247,-4.3131 -70.2313,-4.3037 -70.2392,-4.3018 -70.2480,-4.3021 -70.2576,-4.2992 -70.3070,-4.2603 -70.3167,-4.2470 -70.3184,-4.2289 -70.3093,-4.1912 -70.3111,-4.1709 -70.3187,-4.1563 -70.3306,-4.1432 -70.3431,-4.1394 -70.3614,-4.1682 -70.3737,-4.1646 -70.3987,-4.1423 -70.4153,-4.1356 -70.4299,-4.1342 -70.4442,-4.1374 -70.4600,-4.1446 -70.5009,-4.1774 -70.5160,-4.1823 -70.5264,-4.1760 -70.5294,-4.1613 -70.5341,-4.1468 -70.5497,-4.1407 -70.5656,-4.1488 -70.5723,-4.1659 -70.5766,-4.1839 -70.5853,-4.1945 -70.6325,-4.1668 -70.6332,-4.1518 -70.6296,-4.1334 -70.6311,-4.1190 -70.6468,-4.1157 -70.6629,-4.1222 -70.6720,-4.1334 -70.6831,-4.1638 -70.6941,-4.1723 -70.7121,-4.1719 -70.7743,-4.1550 -70.7846,-4.1563 -70.8322,-4.1794 -70.8452,-4.1910 -70.8483,-4.2044 -70.8398,-4.2287 -70.8428,-4.2381 -70.8583,-4.2433 -70.8737,-4.2507 -70.8811,-4.2656 -70.8866,-4.2835 -70.8964,-4.2998 -70.9263,-4.3290 -70.9388,-4.3451 -70.9481,-4.3642 -70.9687,-4.3853 -70.9897,-4.3662 -71.0055,-4.3476 -71.0100,-4.3698 -71.0293,-4.3858 -71.0816,-4.3641 -71.1060,-4.3738 -71.1196,-4.3964 -71.1285,-4.4018 -71.1441,-4.3993 -71.1525,-4.3917 -71.1631,-4.3691 -71.1697,-4.3628 -71.1862,-4.3722 -71.2007,-4.3956 -71.2141,-4.4108 -71.2417,-4.3800 -71.2648,-4.3755 -71.2885,-4.3808 -71.3046,-4.3949 -71.3072,-4.4068 -71.3051,-4.4166 -71.3054,-4.4271 -71.3152,-4.4400 -71.3185,-4.4394 -71.3241,-4.4366 -71.3308,-4.4351 -71.3370,-4.4383 -71.3459,-4.4501 -71.3496,-4.4535 -71.3633,-4.4592 -71.3712,-4.4532 -71.3776,-4.4427 -71.3870,-4.4349 -71.4008,-4.4334 -71.4470,-4.4403 -71.4774,-4.4406 -71.4923,-4.4428 -71.5061,-4.4486 -71.5129,-4.4571 -71.5191,-4.4792 -71.5246,-4.4852 -71.5323,-4.4846 -71.5576,-4.4794 -71.5716,-4.4807 -71.6171,-4.5003 -71.6134,-4.4793 -71.6235,-4.4823 -71.6438,-4.5023 -71.6565,-4.5068 -71.6652,-4.5076 -71.6731,-4.5037 -71.6833,-4.4935 -71.6993,-4.4816 -71.7096,-4.4847 -71.7211,-4.4928 -71.7402,-4.4956 -71.7515,-4.4921 -71.7743,-4.4815 -71.7848,-4.4805 -71.7931,-4.4846 -71.7957,-4.4911 -71.7970,-4.4980 -71.8007,-4.5024 -71.8076,-4.5045 -71.8902,-4.5137 -71.9072,-4.5184 -71.9331,-4.5367 -71.9803,-4.5823 -72.0098,-4.5916 -72.0262,-4.6057 -72.0355,-4.6119 -72.0436,-4.6138 -72.0536,-4.6102 -72.0627,-4.6057 -72.0711,-4.6051 -72.0787,-4.6134 -72.0966,-4.6498 -72.1080,-4.6643 -72.1271,-4.6801 -72.1824,-4.7107 -72.2331,-4.7484 -72.2511,-4.7588 -72.2693,-4.7649 -72.2824,-4.7654 -72.3198,-4.7602 -72.3319,-4.7633 -72.3368,-4.7699 -72.3394,-4.7773 -72.3447,-4.7826 -72.3861,-4.7940 -72.3968,-4.8056 -72.4041,-4.8602 -72.4147,-4.8763 -72.4311,-4.8878 -72.4526,-4.8992 -72.4580,-4.9004 -72.4718,-4.9007 -72.4765,-4.9025 -72.4795,-4.9081 -72.4799,-4.9142 -72.4797,-4.9196 -72.4807,-4.9234 -72.4859,-4.9326 -72.4889,-4.9412 -72.4951,-4.9470 -72.5098,-4.9475 -72.5285,-4.9502 -72.5464,-4.9582 -72.5622,-4.9702 -72.5866,-4.9967 -72.6143,-5.0097 -72.6273,-5.0224 -72.6316,-5.0332 -72.6324,-5.0428 -72.6351,-5.0518 -72.6448,-5.0606 -72.6542,-5.0632 -72.7080,-5.0632 -72.7288,-5.0573 -72.7476,-5.0551 -72.7602,-5.0647 -72.7729,-5.0811 -72.7903,-5.0888 -72.8311,-5.0966 -72.8364,-5.0962 -72.8490,-5.0921 -72.8540,-5.0925 -72.8570,-5.0976 -72.8577,-5.1121 -72.8589,-5.1161 -72.8728,-5.1236 -72.8807,-5.1253 -72.8938,-5.1259 -72.9179,-5.1321 -72.9220,-5.1469 -72.9150,-5.1644 -72.9056,-5.1791 -72.9003,-5.1946 -72.8949,-5.2557 -72.8967,-5.2716 -72.9054,-5.2857 -72.9162,-5.2991 -72.9240,-5.3136 -72.9305,-5.3565 -72.9348,-5.3722 -72.9642,-5.4338 -72.9735,-5.4661 -72.9691,-5.4992 -72.9603,-5.5312 -72.9605,-5.5592 -72.9769,-5.6517 -72.9872,-5.6811 -73.0014,-5.7088 -73.1056,-5.8470 -73.1400,-5.8785 -73.1971,-6.0050 -73.2189,-6.0403 -73.2348,-6.0776 -73.2353,-6.1237 -73.2260,-6.1479 -73.1777,-6.2024 -73.1720,-6.2197 -73.1616,-6.2998 -73.1557,-6.3227 -73.1338,-6.3681 -73.1270,-6.3913 -73.1270,-6.4130 -73.1318,-6.4353 -73.1478,-6.4762 -73.1715,-6.5174 -73.1990,-6.5456 -73.2336,-6.5640 -73.2785,-6.5757 -73.3492,-6.5764 -73.3707,-6.5839 -73.4063,-6.6156 -73.4454,-6.6396 -73.5132,-6.6978 -73.5939,-6.7440 -73.6441,-6.7840 -73.6720,-6.8007 -73.6851,-6.8119 -73.6970,-6.8372 -73.7068,-6.8496 -73.7486,-6.8755 -73.7594,-6.8874 -73.7655,-6.9042 -73.7677,-6.9593 -73.7923,-7.0500 -73.8066,-7.0782 -73.8123,-7.1029 -73.8036,-7.1265 -73.7345,-7.2251 -73.7245,-7.2676 -73.7161,-7.2864 -73.7131,-7.3047 -73.7247,-7.3248 -73.7413,-7.3344 -73.7608,-7.3374 -73.8003,-7.3357 -73.8259,-7.3374 -73.8434,-7.3431 -73.8797,-7.3650 -73.9020,-7.3734 -73.9205,-7.3722 -73.9611,-7.3564 -73.9829,-7.3564 -73.9794,-7.3745 -73.9505,-7.4232 -73.9443,-7.4487 -73.9499,-7.4652 -73.9578,-7.4804 -73.9587,-7.5020 -73.9714,-7.5240 -74.0185,-7.5435 -74.0097,-7.5611 -73.9694,-7.5847 -73.8388,-7.7206 -73.8111,-7.7393 -73.7796,-7.7529 -73.7422,-7.7641 -73.7122,-7.7882 -73.7026,-7.8278 -73.7137,-7.8663 -73.7461,-7.8864 -73.7796,-7.8745 -73.7946,-7.8741 -73.7958,-7.8922 -73.7849,-7.9404 -73.7788,-7.9541 -73.7485,-7.9770 -73.7059,-7.9938 -73.6680,-8.0138 -73.6516,-8.0460 -73.6447,-8.0683 -73.6119,-8.1126 -73.6011,-8.1361 -73.6005,-8.1555 -73.6062,-8.1928 -73.6033,-8.2116 -73.5906,-8.2347 -73.5617,-8.2727 -73.5527,-8.2991 -73.5477,-8.3402 -73.5408,-8.3591 -73.5265,-8.3724 -73.4473,-8.4161 -73.4365,-8.4252 -73.4202,-8.4462 -73.4102,-8.4555 -73.4005,-8.4594 -73.3794,-8.4619 -73.3705,-8.4652 -73.3564,-8.4798 -73.3493,-8.4981 -73.3483,-8.5183 -73.3577,-8.5630 -73.3570,-8.5818 -73.3506,-8.5983 -73.3081,-8.6532 -73.2899,-8.6705 -73.2691,-8.6816 -73.2110,-8.6939 -73.1920,-8.7039 -73.1746,-8.7207 -73.1635,-8.7396 -73.1458,-8.7822 -73.0686,-8.8937 -73.0538,-8.9060 -73.0167,-8.9304 -73.0037,-8.9442 -72.9761,-8.9854 -72.9700,-9.0019 -72.9594,-9.0856 -72.9637,-9.1155 -72.9720,-9.1344 -72.9824,-9.1471 -73.0279,-9.1831 -73.0285,-9.2106 -73.0344,-9.2226 -73.0479,-9.2303 -73.0642,-9.2348 -73.0784,-9.2369 -73.0902,-9.2442 -73.1012,-9.2600 -73.1176,-9.2919 -73.1408,-9.3228 -73.1935,-9.3757 -73.2150,-9.4090 -72.8133,-9.4109 -72.6917,-9.4351 -72.6868,-9.4375 -72.6780,-9.4450 -72.6723,-9.4467 -72.6678,-9.4453 -72.6598,-9.4398 -72.6559,-9.4390 -72.6365,-9.4429 -72.5961,-9.4555 -72.5545,-9.4760 -72.5356,-9.4816 -72.4908,-9.4864 -72.4302,-9.4822 -72.4095,-9.4863 -72.3902,-9.4965 -72.3625,-9.5207 -72.3445,-9.5329 -72.3345,-9.5340 -72.3229,-9.5321 -72.3127,-9.5325 -72.3068,-9.5409 -72.3056,-9.5506 -72.3069,-9.5800 -72.3041,-9.6009 -72.2949,-9.6175 -72.2677,-9.6495 -72.2617,-9.6674 -72.2651,-9.6865 -72.2770,-9.7243 -72.2652,-9.7622 -72.1947,-9.8058 -72.1739,-9.8458 -72.1711,-9.8569 -72.1629,-9.8772 -72.1604,-9.8877 -72.1627,-9.9001 -72.1784,-9.9187 -72.1839,-9.9290 -72.1855,-9.9497 -72.1835,-9.9670 -72.1846,-9.9846 -72.1957,-10.0056 -72.1420,-10.0057 -71.9636,-10.0059 -71.7854,-10.0061 -71.6070,-10.0065 -71.4287,-10.0067 -71.3914,-10.0068 -71.3734,-10.0023 -71.3636,-9.9945 -71.3596,-9.9869 -71.3541,-9.9813 -71.3396,-9.9798 -71.3289,-9.9834 -71.3217,-9.9895 -71.3134,-9.9942 -71.2997,-9.9934 -71.2803,-9.9835 -71.2451,-9.9561 -71.1965,-9.9399 -71.1831,-9.9206 -71.1739,-9.8973 -71.1611,-9.8756 -71.1443,-9.8631 -71.0775,-9.8338 -71.0154,-9.8175 -70.9972,-9.8035 -70.9896,-9.7921 -70.9776,-9.7667 -70.9690,-9.7549 -70.9575,-9.7453 -70.9316,-9.7297 -70.9203,-9.7201 -70.8916,-9.6786 -70.8755,-9.6605 -70.8252,-9.6336 -70.8054,-9.6180 -70.7678,-9.5799 -70.7473,-9.5646 -70.6808,-9.5277 -70.6621,-9.5092 -70.6271,-9.4666 -70.6064,-9.4488 -70.5869,-9.4395 -70.5670,-9.4353 -70.5250,-9.4309 -70.5238,-9.4440 -70.5254,-9.4468 -70.5357,-9.4644 -70.5383,-9.4810 -70.5433,-9.4935 -70.5619,-9.5017 -70.5598,-9.5049 -70.5572,-9.5126 -70.5551,-9.5160 -70.5679,-9.5192 -70.5762,-9.5291 -70.5781,-9.5418 -70.5645,-9.5654 -70.5739,-9.5678 -70.5874,-9.5656 -70.5927,-9.5638 -70.6192,-9.5645 -70.6244,-9.5658 -70.6147,-9.5841 -70.6073,-9.6168 -70.6008,-9.6353 -70.5896,-9.6503 -70.5602,-9.6733 -70.5486,-9.6877 -70.5419,-9.7082 -70.5434,-9.7270 -70.5512,-9.7441 -70.5634,-9.7607 -70.5667,-9.7671 -70.5692,-9.7791 -70.5742,-9.7849 -70.5796,-9.7857 -70.5901,-9.7790 -70.5952,-9.7790 -70.6055,-9.7850 -70.6151,-9.7923 -70.6232,-9.8011 -70.6290,-9.8116 -70.6384,-9.8518 -70.6386,-9.9116 -70.6389,-10.0389 -70.6392,-10.1662 -70.6395,-10.2935 -70.6398,-10.4209 -70.6402,-10.5481 -70.6405,-10.6754 -70.6409,-10.8026 -70.6411,-10.9299 -70.6413,-11.0108 -70.5556,-10.9428 -70.5341,-10.9381 -70.5072,-10.9613 -70.4625,-11.0139 -70.4373,-11.0367 -70.3913,-11.0591 -70.3410,-11.0672 -70.2894,-11.0647 -70.2395,-11.0551 -70.1987,-11.0412 -69.9561,-10.9193 -69.9142,-10.9214 -69.8951,-10.9269 -69.8757,-10.9280 -69.8351,-10.9253 -69.8083,-10.9272 -69.7911,-10.9343 -69.7534,-10.9583 -69.7202,-10.9649 -69.5962,-10.9520 -69.5776,-10.9523 -69.5740,-10.9585 -69.5705,-10.9646 -69.5668,-10.9707 -69.5633,-10.9769 -69.5597,-10.9831 -69.5561,-10.9894 -69.5525,-10.9956 -69.5490,-11.0017 -69.4446,-11.1827 -69.3403,-11.3637 -69.2360,-11.5449 -69.1316,-11.7260 -69.0273,-11.9071 -68.9229,-12.0881 -68.8186,-12.2692 -68.7142,-12.4503 -68.6895,-12.4934 -68.6843,-12.5025 -68.6944,-12.5068 -68.7002,-12.5160 -68.7063,-12.5360 -68.7145,-12.5512 -68.7261,-12.5660 -68.7403,-12.5786 -68.7701,-12.5944 -68.7839,-12.6057 -68.7934,-12.6202 -68.7946,-12.6365 -68.7853,-12.6459 -68.7530,-12.6547 -68.7430,-12.6658 -68.7661,-12.7105 -68.7737,-12.7194 -68.8562,-12.7414 -68.8766,-12.7550 -68.8920,-12.7758 -68.9046,-12.8040 -68.9266,-12.8010 -68.9387,-12.8197 -68.9494,-12.8439 -68.9810,-12.8679 -68.9866,-12.8905 -68.9862,-12.9334 -68.9721,-13.0461 -68.9797,-13.1646 -68.9770,-13.2049 -68.9628,-13.2836 -68.9744,-13.4788 -68.9707,-13.5014 -68.9768,-13.5263 -68.9857,-13.5502 -68.9943,-13.5630 -69.0154,-13.5855 -69.0232,-13.5969 -69.0255,-13.6107 -69.0236,-13.6233 -69.0238,-13.6350 -69.0326,-13.6459 -69.0440,-13.6480 -69.0745,-13.6426 -69.0876,-13.6439 -69.1016,-13.6666 -69.0810,-13.6954 -69.0270,-13.7382 -69.0160,-13.7531 -69.0160,-13.7646 -69.0208,-13.7764 -69.0243,-13.7925 -69.0231,-13.8060 -69.0101,-13.8444 -68.9930,-13.8698 -68.9892,-13.9037 -68.9890,-13.9401 -68.9830,-13.9722 -68.9697,-13.9905 -68.9162,-14.0249 -68.9058,-14.0393 -68.9000,-14.0548 -68.8937,-14.0892 -68.8689,-14.1562 -68.8644,-14.1912 -68.8837,-14.2115 -68.9513,-14.2200 -68.9849,-14.2283 -69.0101,-14.2459 -69.0157,-14.2632 -69.0172,-14.2825 -69.0162,-14.3211 -69.0083,-14.3390 -68.9946,-14.3590 -68.9903,-14.3790 -69.0101,-14.3971 -69.0751,-14.4325 -69.0946,-14.4464 -69.1340,-14.4907 -69.1411,-14.4942 -69.1582,-14.4985 -69.1643,-14.5030 -69.1674,-14.5203 -69.1645,-14.5664 -69.1704,-14.5776 -69.1922,-14.5769 -69.2149,-14.5723 -69.2347,-14.5743 -69.2475,-14.5937 -69.2538,-14.7218 -69.2676,-14.7507 -69.2835,-14.7597 -69.3390,-14.7748 -69.3614,-14.7880 -69.3705,-14.8015 -69.3720,-14.8187 -69.3678,-14.9005 -69.3698,-14.9083 -69.3862,-14.9458 -69.3907,-14.9644 -69.3843,-14.9818 -69.3628,-15.0013 -69.3461,-15.0165 -69.2886,-15.1020 -69.2722,-15.1182 -69.2127,-15.1613 -69.1965,-15.1766 -69.1718,-15.2108 -69.1481,-15.2333 -69.1504,-15.2516 -69.1661,-15.2639 -69.1897,-15.2624 -69.2091,-15.2636 -69.2226,-15.3022 -69.2559,-15.3133 -69.2752,-15.3303 -69.2912,-15.3508 -69.2970,-15.3670 -69.2854,-15.3967 -69.2859,-15.4054 -69.2929,-15.4099 -69.3203,-15.4189 -69.3304,-15.4242 -69.3434,-15.4422 -69.3485,-15.4618 -69.3511,-15.4819 -69.3564,-15.5014 -69.4212,-15.5964 -69.4300,-15.6263 -69.4243,-15.6563 -69.4122,-15.6858 -69.3696,-15.7890 -69.3271,-15.8920 -69.2846,-15.9950 -69.2421,-16.0982 -69.2196,-16.1528 -69.1849,-16.1950 -69.1663,-16.2104 -69.1447,-16.2235 -69.1208,-16.2312 -69.0952,-16.2312 -69.0839,-16.2266 -69.0645,-16.2121 -69.0536,-16.2084 -69.0427,-16.2093 -69.0101,-16.2191 -68.9820,-16.2100 -68.9595,-16.2233 -68.9188,-16.2667 -68.8667,-16.2869 -68.8436,-16.3020 -68.8335,-16.3290 -68.8482,-16.3515 -68.9163,-16.3864 -68.9684,-16.4064 -69.0017,-16.4228 -69.0279,-16.4541 -69.0368,-16.4715 -69.0389,-16.4919 -69.0376,-16.5503 -69.0401,-16.5814 -69.0351,-16.5980 -69.0083,-16.6342 -69.0205,-16.6495 -69.0371,-16.6702 -69.0538,-16.6823 -69.1121,-16.7115 -69.1306,-16.7158 -69.1664,-16.7191 -69.1824,-16.7287 -69.1917,-16.7430 -69.2107,-16.7971 -69.2245,-16.8182 -69.3259,-16.9222 -69.3525,-16.9777 -69.3643,-16.9912 -69.4072,-17.0157 -69.4136,-17.0223 -69.4166,-17.0320 -69.4133,-17.0378 -69.4060,-17.0409 -69.4013,-17.0472 -69.4060,-17.0630 -69.4274,-17.0869 -69.4542,-17.0966 -69.4828,-17.1017 -69.5101,-17.1121 -69.5410,-17.1322 -69.5950,-17.1797 -69.6011,-17.1815 -69.6184,-17.1842 -69.6228,-17.1856 -69.6338,-17.2073 -69.6494,-17.2628 -69.6665,-17.2883 -69.6644,-17.2886 -69.6130,-17.2951 -69.5973,-17.3005 -69.5569,-17.3315 -69.5371,-17.3511 -69.5226,-17.3691 -69.5114,-17.3987 -69.5083,-17.4340 -69.5101,-17.5054 -69.5100,-17.5066 -69.5101,-17.5066 -69.6383,-17.6261 -69.6839,-17.6560 -69.7290,-17.6633 -69.7758,-17.6570 -69.8181,-17.6591 -69.8498,-17.6916 -69.8576,-17.7342 -69.8461,-17.7691 -69.8290,-17.8038 -69.8201,-17.8461 -69.8182,-17.8714 -69.8128,-17.8883 -69.7906,-17.9247 -69.7824,-17.9439 -69.7799,-17.9626 -69.7831,-17.9816 -69.8436,-18.1132 -69.8653,-18.1446 -69.8835,-18.1636 -69.9228,-18.1965 -69.9703,-18.2506 -69.9878,-18.2643 -70.0100,-18.2726 -70.0394,-18.2730 -70.0632,-18.2807 -70.1342,-18.3189 -70.1591,-18.3260 -70.2109,-18.3312 -70.3179,-18.3212 -70.3694,-18.3247 -70.4085,-18.3448 -70.4082,-18.3450 -70.4472,-18.3598 -70.5028,-18.3808 -70.6226,-18.4514 -70.5708,-18.5038 -70.5721,-18.8006 -70.5054,-19.1195 -70.4902,-19.3430 -70.4347,-19.5026 -70.4040,-19.6946 -70.3794,-19.7454 -70.3522,-19.9855 -70.4141,-20.4354 -70.4266,-20.7308 -70.3651,-21.1179 -70.3041,-21.3441 -70.3007,-21.4377 -70.3724,-21.6451 -70.4505,-22.1047 -70.4891,-22.4215 -70.5277,-22.7382 -70.5587,-22.7925 -70.6605,-22.8630 -70.7048,-22.9135 -70.7896,-23.0687 -70.8190,-23.1792 -70.8301,-23.4402 -70.7336,-23.6932 -70.7135,-23.7457 -70.7441,-23.9119 -70.7403,-24.1318 -70.7794,-24.2974 -70.8110,-24.6744 -70.8063,-24.7055 -71.2418,-24.7055 -71.6773,-24.7055 -72.1128,-24.7055 -72.5673,-24.7055 -73.0219,-24.7055 -73.4764,-24.7055 -73.9310,-24.7055 -74.3855,-24.7055 -74.8401,-24.7055 -75.2946,-24.7055 -75.7492,-24.7055 -76.2037,-24.7055 -76.6582,-24.7055 -77.1128,-24.7055 -77.5995,-24.7055 -78.0862,-24.7055 -78.5729,-24.7055 -79.0596,-24.7055 -79.5462,-24.7055 -80.0329,-24.7055 -80.5196,-24.7055 -81.0063,-24.7055 -81.4930,-24.7055 -81.4930,-25.1578 -81.4930,-25.6101 -81.4930,-26.0624 -81.4930,-26.5147 -81.4930,-26.9670 -81.4930,-27.4193 -81.4930,-27.8739 -81.4930,-28.3284 -81.4930,-28.7830 -81.4930,-29.2375 -81.4930,-29.6921 -81.4930,-30.1466 -81.4930,-30.6012 -81.4930,-31.0557 -81.4930,-31.5103 -81.4930,-31.9648 -81.4930,-32.4193 -81.4930,-32.8739 -81.4930,-33.3284 -81.4930,-33.7830 -81.4930,-34.2375 -81.4930,-34.6921 -81.4930,-35.1466 -81.4930,-35.6012 -81.4930,-36.0557 -81.4930,-36.5103 -81.4930,-36.9648 -81.4930,-37.4193 -81.0123,-37.4193 -80.5317,-37.4193 -80.0510,-37.4193 -79.5703,-37.4193 -79.0896,-37.4193 -78.6090,-37.4193 -78.1412,-37.4193 -77.6734,-37.4193 -77.2057,-37.4193 -76.7379,-37.4193 -76.2702,-37.4193 -75.8024,-37.4193 -75.3347,-37.4193 -74.8669,-37.4193 -74.3992,-37.4193 -73.9314,-37.4193 -73.9334,-37.4927 -73.9551,-37.6116 -73.9483,-37.7032 -73.9004,-37.8250 -73.7518,-38.0181 -73.7274,-38.0763 -73.7256,-38.1192 -73.7446,-38.1450 -73.7792,-38.1552 -73.8840,-38.1082 -73.9357,-38.1119 -74.1914,-38.2629 -74.2205,-38.3120 -74.2218,-38.3772 -74.1765,-38.4827 -74.0954,-38.5603 -74.0067,-38.6029 -73.8017,-38.6560 -73.7443,-38.6948 -73.7006,-38.8253 -73.6206,-38.9736 -73.5425,-39.1738 -73.5169,-39.2924 -73.5186,-39.4143 -73.5531,-39.4910 -73.6471,-39.5973 -73.6987,-39.7033 -73.8784,-39.8062 -73.9680,-39.9109 -73.9709,-40.0415 -74.0644,-40.4442 -74.1160,-40.6044 -74.2265,-40.8601 -74.2624,-41.0089 -74.2533,-41.1581 -74.1544,-41.3619 -74.1299,-41.5503 -74.1437,-41.5751 -74.2600,-41.6574 -74.2973,-41.7066 -74.3350,-41.8166 -74.3350,-42.0064 -74.4439,-42.1751 -74.4439,-42.3210 -74.4883,-42.4810 -74.4820,-42.5212 -74.4607,-42.6583 -74.4815,-42.7880 -74.5188,-42.9024 -74.5932,-43.0105 -74.6493,-43.1292 -74.6898,-43.2385 -74.6869,-43.3059 -74.7230,-43.3231 -74.8555,-43.3393 -74.9318,-43.3487 -75.0161,-43.3842 -75.1120,-43.5043 -75.1437,-43.6062 -75.1346,-43.6296 -75.2359,-44.0177 -75.3372,-44.4058 -75.4384,-44.7938 -75.5768,-45.2494 -75.7152,-45.7049 -75.8535,-46.1604 -75.9919,-46.6159 -75.9845,-47.0930 -75.9772,-47.5701 -75.9699,-48.0471 -75.9625,-48.5242 -75.9561,-48.6746 -75.9491,-48.8385 -75.9657,-48.9414 -75.9168,-49.0701 -75.9539,-49.2711 -75.8777,-49.3523 -75.8665,-49.3904 -75.9105,-49.6925 -75.9074,-49.7796 -75.8560,-49.9020 -75.7299,-50.0144 -75.7075,-50.0969 -75.7605,-50.3530 -75.8134,-50.6090 -75.8111,-50.7187 -75.7794,-50.7686 -75.5933,-50.9432 -75.5287,-50.9650 -75.3395,-50.9893 -75.3058,-51.0052 -75.2941,-51.0276 -75.3205,-51.0850 -75.4484,-51.1685 -75.5358,-51.2793 -75.5365,-51.3741 -75.6325,-51.5092 -75.6296,-51.6405 -75.6032,-51.6920 -75.5521,-51.7498 -75.4480,-51.8134 -75.4271,-51.9329 -75.3269,-52.1460 -75.2409,-52.2740 -75.1403,-52.3682 -75.0332,-52.4262 -74.9150,-52.4650 -74.8865,-52.5723 -74.9314,-52.5861 -74.9766,-52.6155 -75.0053,-52.6543 -75.0404,-52.8496 -74.9480,-52.9257 -74.8460,-53.0542 -74.6992,-53.1306 -74.5937,-53.2090 -74.5752,-53.2442 -74.5639,-53.3509 -74.5000,-53.4353 -74.4152,-53.4871 -74.2493,-53.5383 -74.1268,-53.6974 -73.9304,-53.7871 -73.7930,-53.9007 -73.7319,-53.9906 -73.6738,-54.2000 -73.6469,-54.2379 -73.4271,-54.3068 -73.3615,-54.3196 -73.2542,-54.3238 -73.0179,-54.3109 -72.9255,-54.3245 -72.8886,-54.3498 -72.8335,-54.4490 -72.7610,-54.5296 -72.7219,-54.5518 -72.4636,-54.6336 -72.3869,-54.7633 -72.2829,-54.8549 -72.1894,-54.9082 -72.1067,-54.9352 -72.0207,-54.9487 -71.9520,-54.9501 -71.8441,-54.9347 -71.8106,-54.9383 -71.6525,-55.0724 -71.5911,-55.1043 -71.3305,-55.1542 -71.1467,-55.2196 -70.8387,-55.3089 -70.5813,-55.4032 -70.5341,-55.4101 -70.4362,-55.4033 -70.3929,-55.4086 -70.2738,-55.4698 -69.9926,-55.5753 -69.9022,-55.5940 -69.7570,-55.6101 -69.5455,-55.6749 -69.4567,-55.6902 -69.1723,-55.7068 -69.0138,-55.6938 -68.8298,-55.7037 -68.6313,-55.6742 -68.4998,-55.7639 -68.2154,-55.9056 -68.1102,-55.9781 -67.9857,-56.0409 -67.6349,-56.0924 -67.5489,-56.0908 -67.4928,-56.0820 -67.4928,-56.1194 -67.4928,-56.2797 -67.4928,-56.2963 -67.4928,-56.7468 -67.4928,-57.1972 -67.4928,-57.6477 -67.4928,-58.0982 -67.4928,-58.5486 -67.4928,-58.9991 -67.4928,-59.4495 -67.4928,-59.9000 -67.4928,-60.3545 -67.4928,-60.8091 -67.4928,-61.2636 -67.4928,-61.7182 -67.4928,-62.1727 -67.4928,-62.6273 -67.4928,-63.0818 -67.4928,-63.5364 -67.4928,-63.9909 -67.4928,-64.4455 -67.4928,-64.9000 -67.4928,-65.2998 -67.4928,-65.6996 -67.4928,-66.0994 -67.5167,-66.1086 -67.5959,-66.1674 -67.6890,-66.3450 -67.7196,-66.3656 -67.8149,-66.3913 -68.0961,-66.4403 -68.2444,-66.4802 -68.3115,-66.5034 -68.6685,-66.6271 -68.7766,-66.6760 -68.8544,-66.7246 -69.1515,-66.9723 -69.3249,-67.1609 -69.5405,-67.2864 -69.6437,-67.3685 -69.6953,-67.4307 -69.7262,-67.4950 -69.7326,-67.5542 -69.7172,-67.6067 -69.6312,-67.6985 -69.3592,-67.8780 -69.2726,-67.9181 -69.1549,-67.9487 -68.9953,-67.9697 -68.8225,-67.9727 -68.4552,-67.9504 -68.2449,-67.9215 -68.1400,-67.9167 -68.0636,-67.9249 -67.8377,-67.9797 -67.7761,-68.0632 -67.8184,-68.1217 -67.8190,-68.1682 -67.7373,-68.2792 -67.7244,-68.3516 -67.6992,-68.3992 -67.7475,-68.5158 -67.7423,-68.5571 -67.7148,-68.6104 -67.7358,-68.6259 -67.7367,-68.6261 -67.8942,-68.6727 -67.9870,-68.7197 -68.0475,-68.7757 -68.0648,-68.8395 -68.0413,-68.8967 -67.9786,-68.9583 -67.8783,-69.0194 -67.6856,-69.1129 -67.6734,-69.1230 -67.6823,-69.1292 -67.7126,-69.1399 -67.7349,-69.1399 -68.0147,-69.0908 -68.1434,-69.0757 -68.2601,-69.0702 -68.3697,-69.0724 -68.4932,-69.0840 -68.6178,-69.1061 -68.8838,-69.1862 -69.0764,-69.2151 -69.1485,-69.2113 -69.1990,-69.1970 -69.3955,-69.1155 -69.4106,-69.0589 -69.4716,-68.9911 -69.5329,-68.8435 -69.5825,-68.7961 -69.6631,-68.7487 -69.7749,-68.7051 -70.1468,-68.5965 -70.3123,-68.5739 -70.5012,-68.5724 -70.7644,-68.5913 -71.0275,-68.6103 -71.2634,-68.6485 -71.5015,-68.6521 -71.5960,-68.6601 -71.8910,-68.7053 -72.1860,-68.7504 -72.3628,-68.7863 -72.4439,-68.8128 -72.5110,-68.8442 -72.5789,-68.8966 -72.6899,-68.9571 -72.7415,-68.9994 -72.7716,-69.0412 -72.7826,-69.0832 -72.7506,-69.1950 -73.0033,-69.2214 -73.1792,-69.2533 -73.3398,-69.3066 -73.4717,-69.3708 -73.5491,-69.4339 -73.5841,-69.5039 -73.5669,-69.5651 -73.5367,-69.5955 -73.9659,-69.7784 -74.0294,-69.7423 -74.1326,-69.6999 -74.2158,-69.6436 -74.3106,-69.6040 -74.4260,-69.5697 -74.5424,-69.5455 -74.6848,-69.5251 -74.8310,-69.5108 -74.9598,-69.5067 -75.2159,-69.5208 -75.6619,-69.5733 -75.7909,-69.5978 -75.8951,-69.6301 -75.9580,-69.6602 -76.0174,-69.7033 -76.1454,-69.7380 -76.2424,-69.7762 -76.3503,-69.8454 -76.4386,-69.9770 -76.4473,-70.0351 -76.3698,-70.1514 -76.3236,-70.1876 -76.2637,-70.2192 -76.1091,-70.2699 -75.9187,-70.3069 -75.7054,-70.3336 -75.2620,-70.3728 -75.1659,-70.3852 -75.3535,-70.4182 -75.5092,-70.4668 -75.6122,-70.5236 -75.6727,-70.5931 -75.9467,-70.6109 -76.2208,-70.6286 -76.4395,-70.6546 -76.7265,-70.7113 -76.8693,-70.7511 -76.9744,-70.7885 -77.1189,-70.8640 -77.1673,-70.9098 -77.1863,-70.9480 -77.1771,-71.0076 -77.0823,-71.1401 -76.9712,-71.2154 -76.8878,-71.2493 -76.7927,-71.2776 -76.6891,-71.2998 -76.5635,-71.3186 -76.2634,-71.3436 -76.1062,-71.3454 -75.9947,-71.3403 -75.9240,-71.5154 -75.9744,-71.5385 -76.0503,-71.5953 -76.0838,-71.6508 -76.0789,-71.6896 -76.0479,-71.7366 -76.1014,-71.8016 -76.1137,-71.8500 -76.0959,-71.9066 -76.0554,-71.9595 -75.9745,-72.0172 -75.8555,-72.0672 -75.7318,-72.0998 -75.7754,-72.3743 -75.8190,-72.6488 -75.9491,-72.6802 -76.0867,-72.7012 -76.2003,-72.7241 -76.3662,-72.7761 -76.4265,-72.8071 -76.4684,-72.8411 -76.4977,-72.9191 -76.6646,-72.9766 -76.7637,-73.0349 -76.8228,-73.0995 -76.8682,-73.2053 -76.8932,-73.2285 -76.9286,-73.2435 -76.9660,-73.2486 -77.1797,-73.2537 -77.3156,-73.2623 -77.4605,-73.2563 -77.5887,-73.2572 -77.8327,-73.2747 -77.9388,-73.2768 -78.0296,-73.2703 -78.0953,-73.2565 -78.2065,-73.2082 -78.3882,-73.1487 -78.5761,-73.1034 -78.6754,-73.0605 -78.9006,-72.9853 -79.0894,-72.9060 -79.2409,-72.8662 -79.4835,-72.8287 -79.8061,-72.7921 -80.1286,-72.7556 -80.3655,-72.7421 -80.6040,-72.7456 -80.7459,-72.7571 -80.8952,-72.7775 -81.0318,-72.8050 -81.1401,-72.8348 -81.2413,-72.8746 -81.3169,-72.9217 -81.3496,-72.9523 -81.3768,-73.0180 -81.4005,-73.0410 -81.5770,-73.0642 -81.7292,-73.0941 -81.8591,-73.1319 -81.9590,-73.1765 -82.0388,-73.2376 -82.0845,-73.3044 -82.0623,-73.3914 -82.0689,-73.4794 -82.0193,-73.5907 -82.0313,-73.6094 -82.0722,-73.6118 -82.1296,-73.6052 -82.3954,-73.5522 -82.4934,-73.5381 -82.4934,-73.0381 -82.4935,-72.5382 -82.4935,-72.0383 -82.4936,-71.5384 -82.4936,-71.0385 -82.4937,-70.5386 -82.4937,-70.0387 -82.4938,-69.5387 -82.4938,-69.0388 -82.4939,-68.5389 -82.4939,-68.0390 -82.4940,-67.5391 -82.4940,-67.0392 -82.4941,-66.5392 -82.4941,-66.0393 -82.4942,-65.5394 -82.4943,-65.0395 -82.4943,-64.5396 -82.4944,-64.0397 -82.4944,-63.5398 -82.4945,-63.0398 -82.4945,-62.5399 -82.4946,-62.0400 -82.4946,-61.5401 -82.4947,-61.0402 -82.4947,-60.5403 -82.4948,-60.0403 -82.4948,-59.5404 -82.4949,-59.0405 -82.4949,-58.5406 -82.4950,-58.0407 -82.4950,-57.5408 -82.4951,-57.0409 -82.4951,-56.5409 -82.4952,-56.0410 -82.4952,-55.5411 -82.4953,-55.0412 -82.4953,-54.5413 -82.4954,-54.0414 -82.4954,-53.5414 -82.4955,-53.0415 -82.4955,-52.5416 -82.4956,-52.0417 -82.4956,-51.5418 -82.4957,-51.0419 -82.4957,-50.5420 -82.4958,-50.0420 -82.4958,-49.5421 -82.4959,-49.0422 -82.4959,-48.5423 -82.4960,-48.0424 -82.4960,-47.5425 -82.4961,-47.0425 -82.4961,-46.5426 -82.4962,-46.0427 -82.4963,-45.5428 -82.4963,-45.0429 -82.4964,-44.5430 -82.4964,-44.0431 -82.4965,-43.5431 -82.4965,-43.0432 -82.4966,-42.5433 -82.4966,-42.0434 -82.4967,-41.5435 -82.4967,-41.0436 -82.4968,-40.5436 -82.4968,-40.0437 -82.4969,-39.5438 -82.4969,-39.0439 -82.4970,-38.5440 -82.4970,-38.0441 -82.4971,-37.5442 -82.4971,-37.0442 -82.4972,-36.5443 -82.4972,-36.0444 -82.4973,-35.5445 -82.4973,-35.0446 -82.4974,-34.5447 -82.4974,-34.0447 -82.4975,-33.5448 -82.4975,-33.0449 -82.4976,-32.5450 -82.4976,-32.0451 -82.4977,-31.5452 -82.4977,-31.0453 -82.4978,-30.5453 -82.4978,-30.0454 -82.4979,-29.5455 -82.4979,-29.0456 -82.4980,-28.5457 -82.4980,-28.0458 -82.4981,-27.5458 -82.4982,-27.0459 -82.4982,-26.5460 -82.4983,-26.0461 -82.4983,-25.5462 -82.4984,-25.0463 -82.4984,-24.5464 -82.4985,-24.0464 -82.4985,-23.5465 -82.4986,-23.0466 -82.4986,-22.5467 -82.4987,-22.0468 -82.4987,-21.5469 -82.4988,-21.0470 -82.4988,-20.5470 -82.4989,-20.0471 -82.4989,-19.5472 -82.4990,-19.0473 -82.4990,-18.5474 -82.4991,-18.0475 -82.4991,-17.5475 -82.4992,-17.0476 -82.4992,-16.5477 -82.4993,-16.0478 -82.4993,-15.5479 -82.4994,-15.0480 -82.4994,-14.5481 -82.4995,-14.0481 -82.4995,-13.5482 -82.4996,-13.0483 -82.4996,-12.5484 -82.4997,-12.0485 -82.4997,-11.5486 -82.4998,-11.0486 -82.4998,-10.5487 -82.4999,-10.0488 -82.4999,-9.5489 -82.5000,-9.0490 -82.5001,-8.5491 -82.5001,-8.0492 -82.5002,-7.5492 -82.5002,-7.0493 -82.5003,-6.5494 -82.5003,-6.0495 -82.5004,-5.5496 -82.5004,-5.0497 -82.5005,-4.5497 -82.5005,-4.0498 -82.5006,-3.5499 -82.5006,-3.0500 -82.5007,-2.5501 -82.5007,-2.0502 -82.5008,-1.5503 -82.5008,-1.0503 -82.5009,-0.5504 -82.5009,-0.0505 -82.5010,0.4494 -82.5010,0.9493 -82.5011,1.4492 -82.5011,1.9492 -82.5012,2.4491 -82.5012,2.9490 -82.5013,3.4489 -82.5013,3.9488 -82.5014,4.4487 -82.5014,4.9486 -82.5015,5.4486 -82.5015,5.9485 -82.5016,6.4484 -82.5016,6.9483 -82.5017,7.4482 -82.5017,7.9481 -82.5370,7.9950 -82.5641,8.0723 -82.6128,8.0974 -82.6411,8.0703 -82.6919,7.9367 -82.7385,7.8882 -82.8447,7.8596 -82.9634,7.8487 -82.9806,7.8529 -82.8968,8.0345 -82.8914,8.0575 -82.8864,8.1022 -82.9391,8.2168 -82.9437,8.2486 -82.9505,8.2588 -82.9680,8.2680 -82.9771,8.2692 -82.9892,8.2645 -82.9955,8.2648 -83.0011,8.2692 -83.0108,8.2834 -83.0161,8.2890 -83.0441,8.3054 -83.0532,8.3151 -83.0521,8.3276 -83.0433,8.3347 -82.9978,8.3602 -82.9535,8.4021 -82.9248,8.4167 -82.8965,8.4254 -82.8704,8.4381 -82.8483,8.4652 -82.8389,8.4946 -82.8360,8.5298 -82.8419,8.5995 -82.8498,8.6299 -82.8622,8.6557 -82.8789,8.6791 -82.9103,8.7139 -82.9192,8.7271 -82.9242,8.7412 -82.9230,8.7562 -82.9149,8.7648 -82.8851,8.7832 -82.8758,8.7939 -82.8756,8.8075 -82.8836,8.8124 -82.8883,8.8169 -82.8786,8.8298 -82.8669,8.8381 -82.7638,8.8800 -82.7339,8.8980 -82.7202,8.9202 -82.7194,8.9215 -82.7233,8.9309 -82.7491,8.9741 -82.7627,8.9830 -82.8082,8.9984 -82.8541,9.0320 -82.8766,9.0419 -82.8824,9.0453 -82.8869,9.0515 -82.8897,9.0594 -82.8933,9.0669 -82.9002,9.0721 -82.9095,9.0720 -82.9394,9.0596 -82.9417,9.2344 -82.9432,9.3543 -82.9443,9.4372 -82.9417,9.4563 -82.9333,9.4703 -82.9146,9.4769 -82.8613,9.4841 -82.8464,9.4925 -82.8448,9.5007 -82.8494,9.5035 -82.8559,9.5054 -82.8602,9.5112 -82.8671,9.5386 -82.8793,9.5599 -82.8774,9.5692 -82.8660,9.5851 -82.8475,9.6007 -82.8290,9.6027 -82.7711,9.5799 -82.7294,9.5449 -82.7197,9.5413 -82.7117,9.5450 -82.7015,9.5336 -82.6887,9.5094 -82.6780,9.4978 -82.6682,9.4932 -82.6507,9.4878 -82.6321,9.4847 -82.6189,9.4867 -82.6124,9.4995 -82.6082,9.5379 -82.6011,9.5487 -82.5859,9.5462 -82.5706,9.5382 -82.5628,9.5387 -82.5666,9.5520 -82.5714,9.5684 -82.5714,9.5748 -82.5661,9.5717 -82.5019,9.6424 -82.5019,9.7811 -82.5020,10.2750 -82.5020,10.7690 -82.5021,11.2629 -82.5021,11.7568 -82.5022,12.2507 -82.5022,12.6998 -82.5023,13.1488 -82.5023,13.5979 -82.5024,14.0469 -82.4907,14.0486 -82.4105,14.1020 -82.3740,14.1557 -82.3572,14.2179 -82.3650,14.3293 -82.4152,14.4281 -82.3708,14.4971 -82.3593,14.5859 -82.4013,14.6888 -82.4922,14.7636 -82.5025,14.8556 -82.5025,14.8816 -82.4899,14.8875 -82.4815,14.8914 -82.4199,14.8876 -82.4164,14.8874 -82.4124,14.8887 -82.3524,14.9093 -82.3492,14.9104 -82.3469,14.9123 -82.2906,14.9604 -82.2893,14.9615 -82.2884,14.9632 -82.2582,15.0181 -82.2582,15.0181 -82.2469,15.0985 -82.2625,15.1640 -82.3071,15.2294 -82.3080,15.2306 -82.3094,15.2316 -82.3602,15.2650 -82.3616,15.2670 -82.3640,15.2704 -82.4050,15.3276 -82.5025,15.3941 -82.5025,15.5058 -82.5026,15.9676 -82.5026,16.4294 -82.5027,16.8911 -82.5027,17.3529 -82.5028,17.8146 -82.5028,18.1742 -82.5028,18.5338 -82.5029,19.0045 -82.5029,19.4753 -82.5030,19.9460 -82.5030,20.4167 -82.5031,20.8875 -82.5031,21.3582 -82.7108,21.2627 -82.8844,21.2352 -83.1076,21.2635 -83.2296,21.3228 -83.3266,21.4076 -83.3954,21.5116 -83.4204,21.6245 -83.3935,21.7243 -83.3860,21.7323 -83.3972,21.7551 -83.4842,21.7591 -83.4847,21.7593 -83.4907,21.7567 -83.5774,21.7473 -83.6649,21.7611 -83.7381,21.7950 -83.7951,21.8494 -83.8534,21.7779 -83.9359,21.7284 -84.0167,21.7087 -84.1523,21.7087 -84.3582,21.5873 -84.5076,21.5575 -84.6049,21.5787 -84.6949,21.6414 -84.8473,21.6120 -84.9855,21.6325 -85.0902,21.6916 -85.1542,21.7794 -85.1722,21.8471 -85.1705,21.9164 -85.1498,21.9830 -85.1108,22.0425 -85.0079,22.1121 -84.7756,22.1602 -84.7009,22.1973 -84.6536,22.2656 -84.6284,22.3337 -84.6448,22.3892 -84.6352,22.4605 -84.5872,22.5377 -84.5215,22.5852 -84.4897,22.5934 -84.4453,22.6541 -84.3657,22.7380 -84.2688,22.7985 -84.2093,22.8694 -84.1309,22.9139 -83.8933,22.9724 -83.7890,22.9980 -83.7827,22.9995 -83.5316,23.0996 -83.2804,23.1997 -83.0463,23.2322 -82.6983,23.2471 -82.6271,23.2687 -82.5033,23.3355 -82.5034,23.5944 -82.5034,23.8533 -82.5034,24.3257 -82.5035,24.7980 -82.5035,25.2703 -82.5036,25.7427 -82.5036,26.2150 -82.5037,26.6873 -82.6588,26.9806 -82.7063,27.0703 -82.7814,27.1807 -82.9408,27.4150 -82.9635,27.4848 -82.9727,27.6229 -83.0697,27.7673 -83.0938,27.8838 -83.0849,27.9530 -83.0214,28.0737 -83.0082,28.2471 -82.9198,28.4713 -82.8932,28.5754 -82.9355,28.7247 -82.9412,28.8413 -82.9613,28.8979 -83.0039,28.9232 -83.1433,28.9365 -83.2310,28.9880 -83.2788,29.0487 -83.3075,29.1399 -83.4092,29.2443 -83.5958,29.4002 -83.6280,29.4479 -83.6478,29.5243 -83.7402,29.6049 -83.8360,29.7458 -84.0783,29.8731 -84.0991,29.8617 -84.1327,29.8067 -84.2566,29.7073 -84.3880,29.6593 -84.8037,29.4445 -84.9209,29.4069 -85.0280,29.3972 -85.1394,29.4140 -85.1623,29.4205 -85.2203,29.4369 -85.2162,29.6978 -85.1874,29.7173 -85.1104,29.7761 -85.0485,29.7798 -85.0313,29.7989 -85.0333,29.8460 -85.0540,29.9018 -85.0196,29.9502 -85.0211,29.9797 -85.1446,30.0178 -85.1664,30.1121 -85.1300,30.1185 -85.1398,30.1628 -85.1215,30.2000 -85.0693,30.2502 -85.0171,30.4333 -84.9466,30.5800 -84.9327,30.6064 -84.9325,30.6064 -84.8583,30.6966 -84.8758,30.7191 -84.9205,30.7601 -84.9353,30.8259 -84.9366,30.8681 -84.9441,30.8917 -84.9577,30.9152 -84.9662,30.9227 -84.9742,30.9528 -84.9799,30.9637 -84.9859,30.9691 -85.0033,30.9797 -85.0078,30.9842 -85.0088,30.9968 -85.0066,31.0001 -85.0038,31.0044 -84.9974,31.0106 -84.9941,31.0189 -84.9961,31.0294 -85.0056,31.0399 -85.0182,31.0868 -85.0423,31.1289 -85.0696,31.1612 -85.0897,31.1698 -85.1010,31.1827 -85.1025,31.1985 -85.0972,31.2343 -85.0993,31.2440 -85.1084,31.2636 -85.1102,31.2715 -85.1071,31.2817 -85.0945,31.2974 -85.0897,31.3063 -85.0837,31.3829 -85.0767,31.4196 -85.0556,31.4435 -85.0654,31.4721 -85.0596,31.4927 -85.0485,31.5117 -85.0425,31.5353 -85.0446,31.5490 -85.0535,31.5689 -85.0556,31.5766 -85.0561,31.6039 -85.0580,31.6165 -85.0670,31.6353 -85.1013,31.6756 -85.1095,31.6923 -85.1371,31.8037 -85.1439,31.8240 -85.1374,31.8452 -85.1364,31.8515 -85.1351,31.8564 -85.1301,31.8695 -85.1221,31.9030 -85.1027,31.9414 -85.0745,31.9807 -85.0704,31.9853 -85.0619,32.0002 -85.0604,32.0039 -85.0570,32.0288 -85.0645,32.0511 -85.0613,32.0739 -85.0512,32.0915 -85.0487,32.1045 -85.0491,32.1292 -85.0474,32.1376 -85.0314,32.1704 -85.0245,32.1796 -85.0177,32.1833 -85.0044,32.1850 -84.9876,32.1896 -84.9713,32.1962 -84.9594,32.2038 -84.9753,32.2125 -84.9717,32.2208 -84.9569,32.2240 -84.9389,32.2175 -84.9302,32.2223 -84.9225,32.2297 -84.9195,32.2397 -84.9253,32.2522 -84.9166,32.2527 -84.9077,32.2555 -84.9007,32.2609 -84.8979,32.2690 -84.9000,32.2763 -84.9045,32.2784 -84.9089,32.2791 -84.9150,32.2904 -84.9246,32.2972 -84.9723,32.3206 -84.9919,32.3369 -84.9954,32.3552 -84.9737,32.3751 -84.9789,32.3865 -84.9746,32.3962 -84.9681,32.4074 -84.9666,32.4203 -84.9677,32.4335 -84.9762,32.4483 -84.9866,32.4626 -84.9941,32.4782 -84.9990,32.5103 -85.0031,32.5231 -85.0146,32.5396 -85.0835,32.6153 -85.0777,32.6285 -85.0855,32.6364 -85.0973,32.6431 -85.1034,32.6525 -85.1011,32.6702 -85.1018,32.6828 -85.1118,32.7034 -85.1177,32.7382 -85.1258,32.7499 -85.1352,32.7601 -85.1390,32.7697 -85.1307,32.7792 -85.1362,32.7859 -85.1564,32.8043 -85.1625,32.8108 -85.1675,32.8177 -85.1707,32.8256 -85.1717,32.8344 -85.1687,32.8632 -85.2013,32.9352 -85.1986,32.9444 -85.2068,32.9836 -85.2080,32.9894 -85.2115,33.0063 -85.2171,33.0335 -85.2247,33.0703 -85.2341,33.1159 -85.2447,33.1697 -85.2572,33.2309 -85.2682,33.2987 -85.2830,33.3724 -85.2987,33.4513 -85.3143,33.5346 -85.3322,33.6216 -85.3502,33.7115 -85.3657,33.7931 -85.3862,33.8973 -85.4049,33.9917 -85.4221,34.0829 -85.4408,34.1798 -85.4588,34.2719 -85.4776,34.3619 -85.4971,34.4489 -85.5151,34.5322 -85.5315,34.6111 -85.5479,34.6848 -85.5627,34.7526 -85.5744,34.8138 -85.5846,34.8676 -85.5932,34.9132 -85.5994,34.9500 -85.6010,34.9626 -85.6045,34.9795 -85.6057,34.9852 -85.4741,34.9830 -85.4734,34.9836 -85.3620,35.0878 -85.3922,35.1194 -85.3823,35.1531 -85.2428,35.3249 -85.2259,35.3543 -85.1861,35.4240 -85.1682,35.4558 -85.1345,35.4593 -85.1464,35.4913 -85.1078,35.5713 -84.9163,35.7616 -84.7818,35.8250 -84.7811,35.8261 -84.7293,35.8586 -84.7122,35.8851 -84.6806,35.9085 -84.7207,35.9949 -84.9075,36.1564 -84.9075,36.1845 -84.9142,36.2083 -84.8593,36.2921 -84.7008,36.3709 -84.6591,36.3953 -84.7318,36.5247 -84.7470,36.5489 -84.7853,36.6034 -84.7780,36.6033 -84.7745,36.6079 -84.7683,36.6149 -84.5823,36.8261 -84.5781,36.8671 -84.6207,36.8971 -84.6785,36.9796 -84.7701,36.9577 -84.7838,36.9785 -84.8446,36.9911 -84.8815,37.0247 -84.9059,37.0473 -84.9012,37.1163 -84.9555,37.1015 -85.0432,37.1860 -85.0537,37.1962 -85.0570,37.2571 -85.1103,37.2811 -85.1651,37.3105 -85.1991,37.2679 -85.2904,37.2483 -85.3253,37.2168 -85.3528,37.1924 -85.3717,37.2212 -85.4089,37.2319 -85.3895,37.2400 -85.4798,37.3635 -85.5623,37.4178 -85.5839,37.4673 -85.6382,37.4542 -85.6573,37.4221 -85.8932,37.4401 -86.0475,37.4499 -86.1128,37.5661 -86.2412,37.5972 -86.2755,37.5935 -86.1516,37.7989 -86.2987,37.9060 -86.4909,38.0458 -86.4981,38.0499 -86.5052,38.0495 -86.5186,38.0405 -86.5235,38.0192 -86.5203,37.9535 -86.5232,37.9383 -86.5359,37.9286 -86.5897,37.9194 -86.5956,37.9044 -86.5955,37.8847 -86.6036,37.8645 -86.6244,37.8538 -86.6485,37.8541 -86.6630,37.8638 -86.6554,37.8813 -86.6439,37.9014 -86.6630,37.9055 -86.7072,37.8986 -86.7422,37.9039 -86.7728,37.9238 -86.7946,37.9507 -86.8029,37.9772 -86.8186,37.9950 -86.7966,37.9995 -86.7713,38.0011 -86.7915,38.2051 -87.0174,38.2036 -87.0731,38.2038 -87.0731,38.2326 -87.0725,38.5026 -87.1005,38.5344 -87.2421,38.5449 -87.3012,38.5103 -87.3551,38.5435 -87.4088,38.5295 -87.4629,38.5288 -87.4984,38.4953 -87.7365,38.4168 -87.7557,38.4168 -87.7523,38.4216 -87.7472,38.4417 -87.7624,38.4535 -87.7624,38.4610 -87.7319,38.4686 -87.7004,38.4815 -87.6919,38.4872 -87.6811,38.4972 -87.6737,38.5019 -87.6645,38.5024 -87.6585,38.4980 -87.6532,38.4971 -87.6464,38.5081 -87.6465,38.5199 -87.6633,38.5409 -87.6668,38.5565 -87.6619,38.5716 -87.6517,38.5829 -87.6388,38.5913 -87.6258,38.5975 -87.6320,38.5975 -87.6282,38.5997 -87.6247,38.6025 -87.6215,38.6064 -87.6184,38.6118 -87.6233,38.6318 -87.6150,38.6517 -87.5998,38.6686 -87.5837,38.6794 -87.5734,38.6809 -87.5597,38.6808 -87.5478,38.6828 -87.5427,38.6900 -87.5112,38.7634 -87.5242,38.8026 -87.5458,38.8412 -87.5570,38.8781 -87.5537,38.8898 -87.5396,38.9055 -87.5365,38.9575 -87.5425,38.9702 -87.5722,38.9904 -87.5837,39.0016 -87.5900,39.0185 -87.5983,39.0557 -87.6085,39.0736 -87.6389,39.0978 -87.6537,39.1050 -87.6612,39.1099 -87.6668,39.1183 -87.6633,39.1566 -87.6428,39.1722 -87.5987,39.2056 -87.5979,39.2486 -87.6207,39.2824 -87.6254,39.2997 -87.6150,39.3200 -87.5970,39.3349 -87.5365,39.3572 -87.5327,39.3616 -87.5325,39.3996 -87.5321,39.4771 -87.5319,39.5276 -87.5322,39.6073 -87.5332,39.8655 -87.5332,39.8831 -87.5323,40.0133 -87.5314,40.1480 -87.5288,40.1467 -87.5282,40.2687 -87.5275,40.4083 -87.5265,40.4772 -87.5264,40.4916 -87.5262,40.6739 -87.5265,40.6099 -87.5259,40.7287 -87.5259,40.7369 -87.2673,40.7365 -87.0986,40.7365 -87.0998,40.8376 -86.9864,40.8379 -86.9875,40.9122 -86.9307,40.9125 -86.9303,41.1724 -86.9301,41.2293 -86.9301,41.2452 -86.7838,41.2856 -86.7374,41.3293 -86.7008,41.4025 -86.6428,41.4328 -86.5962,41.4328 -86.5247,41.4329 -86.5249,41.5192 -86.5003,41.5210 -86.4868,41.6070 -86.4876,41.6493 -86.5266,41.6504 -86.5239,41.7595 -86.5593,41.7594 -86.9725,41.7596 -87.0464,41.7597 -87.1239,41.7597 -87.2015,41.7597 -87.2212,41.7597 -87.2212,41.7599 -87.2048,41.8257 -87.1789,41.9297 -87.1419,42.0784 -87.1220,42.1587 -87.1077,42.2160 -87.0650,42.3877 -87.0391,42.4918 -87.0581,42.6285 -87.0681,42.7003 -87.0816,42.7980 -87.0970,42.9087 -87.1086,42.9918 -87.1260,43.1172 -87.1416,43.2295 -87.1549,43.3257 -87.1516,43.4085 -87.1483,43.4912 -87.1450,43.5740 -87.1417,43.6568 -87.1144,43.7652 -87.0871,43.8736 -87.0597,43.9820 -87.0324,44.0904 -86.9999,44.1677 -86.9530,44.2791 -86.9154,44.3684 -86.8736,44.4678 -86.8330,44.5639 -86.7941,44.6564 -86.7469,44.7685 -86.7146,44.8452 -86.6700,44.8940 -86.6253,44.9428 -86.5806,44.9916 -86.5359,45.0405 -86.5030,45.0629 -86.4308,45.1123 -86.3585,45.1616 -86.3257,45.1841 -86.2645,45.2259 -86.2963,45.2399 -86.3282,45.2540 -86.3601,45.2681 -86.3919,45.2823 -86.4238,45.2963 -86.4556,45.3104 -86.4875,45.3245 -86.5194,45.3386 -86.5512,45.3527 -86.5831,45.3668 -86.6149,45.3809 -86.6468,45.3950 -86.6787,45.4091 -86.7105,45.4232 -86.7424,45.4373 -86.7742,45.4513 -87.1152,45.4513 -87.2705,45.5382 -87.2644,45.5500 -87.3275,45.5505 -87.3258,45.8986 -87.3684,45.8992 -87.3677,45.9853 -87.6170,45.9859 -87.6170,45.9866 -87.6159,46.2468 -87.8666,46.2467 -88.1172,46.2466 -88.1170,46.4196 -88.6166,46.4201 -88.6173,46.4201 -88.6797,46.4201 -88.9911,46.4197 -88.9906,46.3332 -89.3654,46.3330 -89.3653,46.5056 -89.7415,46.5052 -89.7403,46.5921 -89.8645,46.5928 -89.8628,46.7653 -89.9143,47.0194 -89.9658,47.2735 -89.9576,47.2861 -89.9290,47.3304 -89.9003,47.3748 -89.8716,47.4191 -89.8429,47.4635 -89.8142,47.5078 -89.7855,47.5521 -89.7569,47.5964 -89.7282,47.6408 -89.6995,47.6851 -89.6708,47.7294 -89.6422,47.7738 -89.6134,47.8181 -89.5848,47.8625 -89.5561,47.9068 -89.5274,47.9511 -89.4990,47.9951 -89.5931,47.9965 -89.6566,48.0080 -89.6787,48.0087 -89.7128,48.0034 -89.7246,48.0059 -89.7460,48.0138 -89.7633,48.0173 -89.7810,48.0172 -89.8035,48.0138 -89.9024,47.9859 -89.9204,47.9875 -89.9803,48.0101 -89.9953,48.0186 -90.0348,48.0606 -89.9885,48.2839 -90.3255,48.3593 -90.6626,48.4346 -90.9997,48.5100 -91.0057,48.8788 -91.0116,49.2476 -90.6745,49.3468 -90.3374,49.4459 -90.0003,49.5451 -90.0003,49.9535 -90.0003,50.3620 -90.0003,50.7705 -90.2561,50.8954 -90.5119,51.0203 -90.7737,51.2940 -90.7856,51.5081 -90.5000,51.7936 -90.2442,51.9007 -89.9885,52.0078 -90.0063,52.3885 -90.0241,52.7692 -89.6871,52.7732 -89.3500,52.7772 -89.0129,52.7811 -89.0129,53.0072 -88.7571,53.1856 -88.5013,53.3641 -88.5013,53.6734 -88.7571,53.8519 -89.0129,54.0303 -89.5066,54.0244 -90.0003,54.0184 -90.0037,54.4531 -90.0071,54.8878 -90.0105,55.3224 -90.0139,55.7571 -90.0173,56.1917 -89.6621,56.4112 -89.3070,56.6307 -88.9518,56.8502 -88.9467,56.8534 -88.9507,57.3259 -88.9547,57.7984 -88.9587,58.2708 -88.9627,58.7433 -88.9667,59.2158 -88.9707,59.6883 -88.9747,60.1608 -88.9787,60.6333 -88.9827,61.1058 -88.9867,61.5783 -88.9907,62.0508 -88.9947,62.5232 -88.6748,62.8920 -88.3549,63.2608 -88.0350,63.6296 -87.7151,63.9984 -87.3952,64.3672 -87.0753,64.7360 -86.7554,65.1048 -86.4355,65.4735 -86.1156,65.8423 -85.8782,65.9468 -85.6409,66.0512 -85.3200,66.1539 -84.9991,66.2567 -84.9991,66.6877 -84.9991,67.1187 -84.9991,67.5497 -84.9991,67.9807 -84.9991,68.4353 -84.9991,68.8898 -84.9991,69.3444 -84.9991,69.7989 -84.9991,70.2534 -84.9991,70.7080 -84.9991,71.1625 -84.9991,71.6171 -84.9991,72.0716 -84.9991,72.5262 -84.9991,72.9807 -84.9991,73.4353 -84.9991,73.8898 -84.9991,74.3444 -84.9991,74.7989 -84.9991,75.2534 -84.9991,75.7080 -84.9990,76.1625 -84.9990,76.6171 -84.9990,77.0716 -84.9990,77.5262 -84.9990,77.9807 -84.9991,78.4513 -84.9991,78.9219 -84.9991,79.3924 -84.9991,79.8630 -84.9991,80.3336 -84.9991,80.8041 -84.9992,81.2747 -84.9992,81.7453 -84.9992,82.2158 -84.9992,82.6864 -84.9990,82.6864 -84.9174,82.6874 -84.5856,82.6868 -84.3326,82.6819 -84.0267,82.6699 -83.9764,82.6818 -83.8292,82.7368 -83.7127,82.7654 -83.5044,82.8004 -83.2137,82.8329 -83.1457,82.8720 -83.0483,82.9054 -82.8946,82.9400 -82.7204,82.9673 -82.6419,82.9762 -82.5124,82.9909 -82.5095,82.9912 -82.5095,83.2007 -82.5034,83.2007 -82.5039,83.6526 -82.5043,84.0684 -82.5047,84.4842 -82.5051,84.9000 -82.5056,85.3636 -82.5060,85.8273 -82.5065,86.2909 -82.5069,86.7545 -82.5074,87.2182 -82.5079,87.6818 -82.5083,88.1455 -82.5088,88.6091 -82.5092,89.0727 -82.5097,89.5364 -82.5102,90.0000 -82.0261,90.0000 -81.5420,90.0000 -81.0579,90.0000 -80.5738,90.0000 -80.0897,90.0000 -79.6056,90.0000 -79.1215,90.0000 -78.6374,90.0000 -78.1533,90.0000 -77.6692,90.0000 -77.1851,90.0000 -76.7010,90.0000 -76.2168,90.0000 -75.7327,90.0000 -75.2486,90.0000 -74.7645,90.0000 -74.2804,90.0000 -73.7963,90.0000 -73.3122,90.0000 -72.8281,90.0000 -72.3440,90.0000 -71.8599,90.0000 -71.3758,90.0000 -70.8917,90.0000 -70.4076,90.0000 -69.9235,90.0000 -69.4394,90.0000 -68.9553,90.0000 -68.4712,90.0000 -67.9871,90.0000 -67.5030,90.0000 -67.5030,89.5364 -67.5030,89.0727 -67.5030,88.6091 -67.5030,88.1455 -67.5030,87.6818 -67.5030,87.2182 -67.5030,86.7545 -67.5030,86.2909 -67.5030,85.8273 -67.5030,85.3636 -67.5030,84.9000 2862,-6.0,America/Chicago -82.5039,83.6526 -82.5034,83.2007 -82.5095,83.2007 -82.5095,82.9912 -82.5124,82.9909 -82.6419,82.9762 -82.7204,82.9673 -82.8946,82.9400 -83.0483,82.9054 -83.1457,82.8720 -83.2137,82.8329 -83.5044,82.8004 -83.7127,82.7654 -83.8292,82.7368 -83.9764,82.6818 -84.0267,82.6699 -84.3326,82.6819 -84.5856,82.6868 -84.9174,82.6874 -84.9990,82.6864 -84.9992,82.6864 -84.9992,82.2158 -84.9992,81.7453 -84.9992,81.2747 -84.9991,80.8041 -84.9991,80.3336 -84.9991,79.8630 -84.9991,79.3924 -84.9991,78.9219 -84.9991,78.4513 -84.9990,77.9807 -84.9990,77.5262 -84.9990,77.0716 -84.9990,76.6171 -84.9990,76.1625 -84.9991,75.7080 -84.9991,75.2534 -84.9991,74.7989 -84.9991,74.3444 -84.9991,73.8898 -84.9991,73.4353 -84.9991,72.9807 -84.9991,72.5262 -84.9991,72.0716 -84.9991,71.6171 -84.9991,71.1625 -84.9991,70.7080 -84.9991,70.2534 -84.9991,69.7989 -84.9991,69.3444 -84.9991,68.8898 -84.9991,68.4353 -84.9991,67.9807 -84.9991,67.5497 -84.9991,67.1187 -84.9991,66.6877 -84.9991,66.2567 -85.3200,66.1539 -85.6409,66.0512 -85.8782,65.9468 -86.1156,65.8423 -86.4355,65.4735 -86.7554,65.1048 -87.0753,64.7360 -87.3952,64.3672 -87.7151,63.9984 -88.0350,63.6296 -88.3549,63.2608 -88.6748,62.8920 -88.9947,62.5232 -88.9907,62.0508 -88.9867,61.5783 -88.9827,61.1058 -88.9787,60.6333 -88.9747,60.1608 -88.9707,59.6883 -88.9667,59.2158 -88.9627,58.7433 -88.9587,58.2708 -88.9547,57.7984 -88.9507,57.3259 -88.9467,56.8534 -88.9518,56.8502 -89.3070,56.6307 -89.6621,56.4112 -90.0173,56.1917 -90.0139,55.7571 -90.0105,55.3224 -90.0071,54.8878 -90.0037,54.4531 -90.0003,54.0184 -89.5066,54.0244 -89.0129,54.0303 -88.7571,53.8519 -88.5013,53.6734 -88.5013,53.3641 -88.7571,53.1856 -89.0129,53.0072 -89.0129,52.7811 -89.3500,52.7772 -89.6871,52.7732 -90.0241,52.7692 -90.0063,52.3885 -89.9885,52.0078 -90.2442,51.9007 -90.5000,51.7936 -90.7856,51.5081 -90.7737,51.2940 -90.5119,51.0203 -90.2561,50.8954 -90.0003,50.7705 -90.0003,50.3620 -90.0003,49.9535 -90.0003,49.5451 -90.3374,49.4459 -90.6745,49.3468 -91.0116,49.2476 -91.0057,48.8788 -90.9997,48.5100 -90.6626,48.4346 -90.3255,48.3593 -89.9885,48.2839 -90.0348,48.0606 -89.9953,48.0186 -89.9803,48.0101 -89.9204,47.9875 -89.9024,47.9859 -89.8035,48.0138 -89.7810,48.0172 -89.7633,48.0173 -89.7460,48.0138 -89.7246,48.0059 -89.7128,48.0034 -89.6787,48.0087 -89.6566,48.0080 -89.5931,47.9965 -89.4990,47.9951 -89.5274,47.9511 -89.5561,47.9068 -89.5848,47.8625 -89.6134,47.8181 -89.6422,47.7738 -89.6708,47.7294 -89.6995,47.6851 -89.7282,47.6408 -89.7569,47.5964 -89.7855,47.5521 -89.8142,47.5078 -89.8429,47.4635 -89.8716,47.4191 -89.9003,47.3748 -89.9290,47.3304 -89.9576,47.2861 -89.9658,47.2735 -89.9143,47.0194 -89.8628,46.7653 -89.8645,46.5928 -89.7403,46.5921 -89.7415,46.5052 -89.3653,46.5056 -89.3654,46.3330 -88.9906,46.3332 -88.9911,46.4197 -88.6797,46.4201 -88.6173,46.4201 -88.6166,46.4201 -88.1170,46.4196 -88.1172,46.2466 -87.8666,46.2467 -87.6159,46.2468 -87.6170,45.9866 -87.6170,45.9859 -87.3677,45.9853 -87.3684,45.8992 -87.3258,45.8986 -87.3275,45.5505 -87.2644,45.5500 -87.2705,45.5382 -87.1152,45.4513 -86.7742,45.4513 -86.7424,45.4373 -86.7105,45.4232 -86.6787,45.4091 -86.6468,45.3950 -86.6149,45.3809 -86.5831,45.3668 -86.5512,45.3527 -86.5194,45.3386 -86.4875,45.3245 -86.4556,45.3104 -86.4238,45.2963 -86.3919,45.2823 -86.3601,45.2681 -86.3282,45.2540 -86.2963,45.2399 -86.2645,45.2259 -86.3257,45.1841 -86.3585,45.1616 -86.4308,45.1123 -86.5030,45.0629 -86.5359,45.0405 -86.5806,44.9916 -86.6253,44.9428 -86.6700,44.8940 -86.7146,44.8452 -86.7469,44.7685 -86.7941,44.6564 -86.8330,44.5639 -86.8736,44.4678 -86.9154,44.3684 -86.9530,44.2791 -86.9999,44.1677 -87.0324,44.0904 -87.0597,43.9820 -87.0871,43.8736 -87.1144,43.7652 -87.1417,43.6568 -87.1450,43.5740 -87.1483,43.4912 -87.1516,43.4085 -87.1549,43.3257 -87.1416,43.2295 -87.1260,43.1172 -87.1086,42.9918 -87.0970,42.9087 -87.0816,42.7980 -87.0681,42.7003 -87.0581,42.6285 -87.0391,42.4918 -87.0650,42.3877 -87.1077,42.2160 -87.1220,42.1587 -87.1419,42.0784 -87.1789,41.9297 -87.2048,41.8257 -87.2212,41.7599 -87.2212,41.7597 -87.2015,41.7597 -87.1239,41.7597 -87.0464,41.7597 -86.9725,41.7596 -86.5593,41.7594 -86.5239,41.7595 -86.5266,41.6504 -86.4876,41.6493 -86.4868,41.6070 -86.5003,41.5210 -86.5249,41.5192 -86.5247,41.4329 -86.5962,41.4328 -86.6428,41.4328 -86.7008,41.4025 -86.7374,41.3293 -86.7838,41.2856 -86.9301,41.2452 -86.9301,41.2293 -86.9303,41.1724 -86.9307,40.9125 -86.9875,40.9122 -86.9864,40.8379 -87.0998,40.8376 -87.0986,40.7365 -87.2673,40.7365 -87.5259,40.7369 -87.5259,40.7287 -87.5265,40.6099 -87.5262,40.6739 -87.5264,40.4916 -87.5265,40.4772 -87.5275,40.4083 -87.5282,40.2687 -87.5288,40.1467 -87.5314,40.1480 -87.5323,40.0133 -87.5332,39.8831 -87.5332,39.8655 -87.5322,39.6073 -87.5319,39.5276 -87.5321,39.4771 -87.5325,39.3996 -87.5327,39.3616 -87.5365,39.3572 -87.5970,39.3349 -87.6150,39.3200 -87.6254,39.2997 -87.6207,39.2824 -87.5979,39.2486 -87.5987,39.2056 -87.6428,39.1722 -87.6633,39.1566 -87.6668,39.1183 -87.6612,39.1099 -87.6537,39.1050 -87.6389,39.0978 -87.6085,39.0736 -87.5983,39.0557 -87.5900,39.0185 -87.5837,39.0016 -87.5722,38.9904 -87.5425,38.9702 -87.5365,38.9575 -87.5396,38.9055 -87.5537,38.8898 -87.5570,38.8781 -87.5458,38.8412 -87.5242,38.8026 -87.5112,38.7634 -87.5427,38.6900 -87.5478,38.6828 -87.5597,38.6808 -87.5734,38.6809 -87.5837,38.6794 -87.5998,38.6686 -87.6150,38.6517 -87.6233,38.6318 -87.6184,38.6118 -87.6215,38.6064 -87.6247,38.6025 -87.6282,38.5997 -87.6320,38.5975 -87.6258,38.5975 -87.6388,38.5913 -87.6517,38.5829 -87.6619,38.5716 -87.6668,38.5565 -87.6633,38.5409 -87.6465,38.5199 -87.6464,38.5081 -87.6532,38.4971 -87.6585,38.4980 -87.6645,38.5024 -87.6737,38.5019 -87.6811,38.4972 -87.6919,38.4872 -87.7004,38.4815 -87.7319,38.4686 -87.7624,38.4610 -87.7624,38.4535 -87.7472,38.4417 -87.7523,38.4216 -87.7557,38.4168 -87.7365,38.4168 -87.4984,38.4953 -87.4629,38.5288 -87.4088,38.5295 -87.3551,38.5435 -87.3012,38.5103 -87.2421,38.5449 -87.1005,38.5344 -87.0725,38.5026 -87.0731,38.2326 -87.0731,38.2038 -87.0174,38.2036 -86.7915,38.2051 -86.7713,38.0011 -86.7966,37.9995 -86.8186,37.9950 -86.8029,37.9772 -86.7946,37.9507 -86.7728,37.9238 -86.7422,37.9039 -86.7072,37.8986 -86.6630,37.9055 -86.6439,37.9014 -86.6554,37.8813 -86.6630,37.8638 -86.6485,37.8541 -86.6244,37.8538 -86.6036,37.8645 -86.5955,37.8847 -86.5956,37.9044 -86.5897,37.9194 -86.5359,37.9286 -86.5232,37.9383 -86.5203,37.9535 -86.5235,38.0192 -86.5186,38.0405 -86.5052,38.0495 -86.4981,38.0499 -86.4909,38.0458 -86.2987,37.9060 -86.1516,37.7989 -86.2755,37.5935 -86.2412,37.5972 -86.1128,37.5661 -86.0475,37.4499 -85.8932,37.4401 -85.6573,37.4221 -85.6382,37.4542 -85.5839,37.4673 -85.5623,37.4178 -85.4798,37.3635 -85.3895,37.2400 -85.4089,37.2319 -85.3717,37.2212 -85.3528,37.1924 -85.3253,37.2168 -85.2904,37.2483 -85.1991,37.2679 -85.1651,37.3105 -85.1103,37.2811 -85.0570,37.2571 -85.0537,37.1962 -85.0432,37.1860 -84.9555,37.1015 -84.9012,37.1163 -84.9059,37.0473 -84.8815,37.0247 -84.8446,36.9911 -84.7838,36.9785 -84.7701,36.9577 -84.6785,36.9796 -84.6207,36.8971 -84.5781,36.8671 -84.5823,36.8261 -84.7683,36.6149 -84.7745,36.6079 -84.7780,36.6033 -84.7853,36.6034 -84.7470,36.5489 -84.7318,36.5247 -84.6591,36.3953 -84.7008,36.3709 -84.8593,36.2921 -84.9142,36.2083 -84.9075,36.1845 -84.9075,36.1564 -84.7207,35.9949 -84.6806,35.9085 -84.7122,35.8851 -84.7293,35.8586 -84.7811,35.8261 -84.7818,35.8250 -84.9163,35.7616 -85.1078,35.5713 -85.1464,35.4913 -85.1345,35.4593 -85.1682,35.4558 -85.1861,35.4240 -85.2259,35.3543 -85.2428,35.3249 -85.3823,35.1531 -85.3922,35.1194 -85.3620,35.0878 -85.4734,34.9836 -85.4741,34.9830 -85.6057,34.9852 -85.6045,34.9795 -85.6010,34.9626 -85.5994,34.9500 -85.5932,34.9132 -85.5846,34.8676 -85.5744,34.8138 -85.5627,34.7526 -85.5479,34.6848 -85.5315,34.6111 -85.5151,34.5322 -85.4971,34.4489 -85.4776,34.3619 -85.4588,34.2719 -85.4408,34.1798 -85.4221,34.0829 -85.4049,33.9917 -85.3862,33.8973 -85.3657,33.7931 -85.3502,33.7115 -85.3322,33.6216 -85.3143,33.5346 -85.2987,33.4513 -85.2830,33.3724 -85.2682,33.2987 -85.2572,33.2309 -85.2447,33.1697 -85.2341,33.1159 -85.2247,33.0703 -85.2171,33.0335 -85.2115,33.0063 -85.2080,32.9894 -85.2068,32.9836 -85.1986,32.9444 -85.2013,32.9352 -85.1687,32.8632 -85.1717,32.8344 -85.1707,32.8256 -85.1675,32.8177 -85.1625,32.8108 -85.1564,32.8043 -85.1362,32.7859 -85.1307,32.7792 -85.1390,32.7697 -85.1352,32.7601 -85.1258,32.7499 -85.1177,32.7382 -85.1118,32.7034 -85.1018,32.6828 -85.1011,32.6702 -85.1034,32.6525 -85.0973,32.6431 -85.0855,32.6364 -85.0777,32.6285 -85.0835,32.6153 -85.0146,32.5396 -85.0031,32.5231 -84.9990,32.5103 -84.9941,32.4782 -84.9866,32.4626 -84.9762,32.4483 -84.9677,32.4335 -84.9666,32.4203 -84.9681,32.4074 -84.9746,32.3962 -84.9789,32.3865 -84.9737,32.3751 -84.9954,32.3552 -84.9919,32.3369 -84.9723,32.3206 -84.9246,32.2972 -84.9150,32.2904 -84.9089,32.2791 -84.9045,32.2784 -84.9000,32.2763 -84.8979,32.2690 -84.9007,32.2609 -84.9077,32.2555 -84.9166,32.2527 -84.9253,32.2522 -84.9195,32.2397 -84.9225,32.2297 -84.9302,32.2223 -84.9389,32.2175 -84.9569,32.2240 -84.9717,32.2208 -84.9753,32.2125 -84.9594,32.2038 -84.9713,32.1962 -84.9876,32.1896 -85.0044,32.1850 -85.0177,32.1833 -85.0245,32.1796 -85.0314,32.1704 -85.0474,32.1376 -85.0491,32.1292 -85.0487,32.1045 -85.0512,32.0915 -85.0613,32.0739 -85.0645,32.0511 -85.0570,32.0288 -85.0604,32.0039 -85.0619,32.0002 -85.0704,31.9853 -85.0745,31.9807 -85.1027,31.9414 -85.1221,31.9030 -85.1301,31.8695 -85.1351,31.8564 -85.1364,31.8515 -85.1374,31.8452 -85.1439,31.8240 -85.1371,31.8037 -85.1095,31.6923 -85.1013,31.6756 -85.0670,31.6353 -85.0580,31.6165 -85.0561,31.6039 -85.0556,31.5766 -85.0535,31.5689 -85.0446,31.5490 -85.0425,31.5353 -85.0485,31.5117 -85.0596,31.4927 -85.0654,31.4721 -85.0556,31.4435 -85.0767,31.4196 -85.0837,31.3829 -85.0897,31.3063 -85.0945,31.2974 -85.1071,31.2817 -85.1102,31.2715 -85.1084,31.2636 -85.0993,31.2440 -85.0972,31.2343 -85.1025,31.1985 -85.1010,31.1827 -85.0897,31.1698 -85.0696,31.1612 -85.0423,31.1289 -85.0182,31.0868 -85.0056,31.0399 -84.9961,31.0294 -84.9941,31.0189 -84.9974,31.0106 -85.0038,31.0044 -85.0066,31.0001 -85.0088,30.9968 -85.0078,30.9842 -85.0033,30.9797 -84.9859,30.9691 -84.9799,30.9637 -84.9742,30.9528 -84.9662,30.9227 -84.9577,30.9152 -84.9441,30.8917 -84.9366,30.8681 -84.9353,30.8259 -84.9205,30.7601 -84.8758,30.7191 -84.8583,30.6966 -84.9325,30.6064 -84.9327,30.6064 -84.9466,30.5800 -85.0171,30.4333 -85.0693,30.2502 -85.1215,30.2000 -85.1398,30.1628 -85.1300,30.1185 -85.1664,30.1121 -85.1446,30.0178 -85.0211,29.9797 -85.0196,29.9502 -85.0540,29.9018 -85.0333,29.8460 -85.0313,29.7989 -85.0485,29.7798 -85.1104,29.7761 -85.1874,29.7173 -85.2162,29.6978 -85.2203,29.4369 -85.1623,29.4205 -85.1394,29.4140 -85.0280,29.3972 -84.9209,29.4069 -84.8037,29.4445 -84.3880,29.6593 -84.2566,29.7073 -84.1327,29.8067 -84.0991,29.8617 -84.0783,29.8731 -83.8360,29.7458 -83.7402,29.6049 -83.6478,29.5243 -83.6280,29.4479 -83.5958,29.4002 -83.4092,29.2443 -83.3075,29.1399 -83.2788,29.0487 -83.2310,28.9880 -83.1433,28.9365 -83.0039,28.9232 -82.9613,28.8979 -82.9412,28.8413 -82.9355,28.7247 -82.8932,28.5754 -82.9198,28.4713 -83.0082,28.2471 -83.0214,28.0737 -83.0849,27.9530 -83.0938,27.8838 -83.0697,27.7673 -82.9727,27.6229 -82.9635,27.4848 -82.9408,27.4150 -82.7814,27.1807 -82.7063,27.0703 -82.6588,26.9806 -82.5037,26.6873 -82.5036,26.2150 -82.5036,25.7427 -82.5035,25.2703 -82.5035,24.7980 -82.5034,24.3257 -82.5034,23.8533 -82.5034,23.5944 -82.5033,23.3355 -82.6271,23.2687 -82.6983,23.2471 -83.0463,23.2322 -83.2804,23.1997 -83.5316,23.0996 -83.7827,22.9995 -83.7890,22.9980 -83.8933,22.9724 -84.1309,22.9139 -84.2093,22.8694 -84.2688,22.7985 -84.3657,22.7380 -84.4453,22.6541 -84.4897,22.5934 -84.5215,22.5852 -84.5872,22.5377 -84.6352,22.4605 -84.6448,22.3892 -84.6284,22.3337 -84.6536,22.2656 -84.7009,22.1973 -84.7756,22.1602 -85.0079,22.1121 -85.1108,22.0425 -85.1498,21.9830 -85.1705,21.9164 -85.1722,21.8471 -85.1542,21.7794 -85.0902,21.6916 -84.9855,21.6325 -84.8473,21.6120 -84.6949,21.6414 -84.6049,21.5787 -84.5076,21.5575 -84.3582,21.5873 -84.1523,21.7087 -84.0167,21.7087 -83.9359,21.7284 -83.8534,21.7779 -83.7951,21.8494 -83.7381,21.7950 -83.6649,21.7611 -83.5774,21.7473 -83.4907,21.7567 -83.4847,21.7593 -83.4842,21.7591 -83.3972,21.7551 -83.3860,21.7323 -83.3935,21.7243 -83.4204,21.6245 -83.3954,21.5116 -83.3266,21.4076 -83.2296,21.3228 -83.1076,21.2635 -82.8844,21.2352 -82.7108,21.2627 -82.5031,21.3582 -82.5031,20.8875 -82.5030,20.4167 -82.5030,19.9460 -82.5029,19.4753 -82.5029,19.0045 -82.5028,18.5338 -82.5028,18.2901 -82.5028,18.1880 -82.5028,17.8146 -82.5027,17.3529 -82.5027,16.8911 -82.5026,16.4294 -82.5026,15.9676 -82.5025,15.5058 -82.5025,15.3941 -82.4050,15.3276 -82.3640,15.2704 -82.3616,15.2670 -82.3602,15.2650 -82.3094,15.2316 -82.3080,15.2306 -82.3071,15.2294 -82.2625,15.1640 -82.2469,15.0985 -82.2582,15.0181 -82.2582,15.0181 -82.2884,14.9632 -82.2893,14.9615 -82.2906,14.9604 -82.3469,14.9123 -82.3492,14.9104 -82.3524,14.9093 -82.4124,14.8887 -82.4164,14.8874 -82.4199,14.8876 -82.4815,14.8914 -82.4899,14.8875 -82.5025,14.8816 -82.5025,14.8556 -82.4922,14.7636 -82.4013,14.6888 -82.3593,14.5859 -82.3708,14.4971 -82.4152,14.4281 -82.3650,14.3293 -82.3572,14.2179 -82.3740,14.1557 -82.4105,14.1020 -82.4907,14.0486 -82.5024,14.0469 -82.5023,13.5979 -82.5023,13.1488 -82.5022,12.6998 -82.5022,12.2507 -82.5021,11.7568 -82.5021,11.2629 -82.5020,10.7690 -82.5020,10.2750 -82.5019,9.7811 -82.5019,9.6424 -82.5661,9.5717 -82.5714,9.5748 -82.5714,9.5684 -82.5666,9.5520 -82.5628,9.5387 -82.5706,9.5382 -82.5859,9.5462 -82.6011,9.5487 -82.6082,9.5379 -82.6124,9.4995 -82.6189,9.4867 -82.6321,9.4847 -82.6507,9.4878 -82.6682,9.4932 -82.6780,9.4978 -82.6887,9.5094 -82.7015,9.5336 -82.7117,9.5450 -82.7197,9.5413 -82.7294,9.5449 -82.7711,9.5799 -82.8290,9.6027 -82.8475,9.6007 -82.8660,9.5851 -82.8774,9.5692 -82.8793,9.5599 -82.8671,9.5386 -82.8602,9.5112 -82.8559,9.5054 -82.8494,9.5035 -82.8448,9.5007 -82.8464,9.4925 -82.8613,9.4841 -82.9146,9.4769 -82.9333,9.4703 -82.9417,9.4563 -82.9443,9.4372 -82.9432,9.3543 -82.9417,9.2344 -82.9394,9.0596 -82.9095,9.0720 -82.9002,9.0721 -82.8933,9.0669 -82.8897,9.0594 -82.8869,9.0515 -82.8824,9.0453 -82.8766,9.0419 -82.8541,9.0320 -82.8082,8.9984 -82.7627,8.9830 -82.7491,8.9741 -82.7233,8.9309 -82.7194,8.9215 -82.7202,8.9202 -82.7339,8.8980 -82.7638,8.8800 -82.8669,8.8381 -82.8786,8.8298 -82.8883,8.8169 -82.8836,8.8124 -82.8756,8.8075 -82.8758,8.7939 -82.8851,8.7832 -82.9149,8.7648 -82.9230,8.7562 -82.9242,8.7412 -82.9192,8.7271 -82.9103,8.7139 -82.8789,8.6791 -82.8622,8.6557 -82.8498,8.6299 -82.8419,8.5995 -82.8360,8.5298 -82.8389,8.4946 -82.8483,8.4652 -82.8704,8.4381 -82.8965,8.4254 -82.9248,8.4167 -82.9535,8.4021 -82.9978,8.3602 -83.0433,8.3347 -83.0521,8.3276 -83.0532,8.3151 -83.0441,8.3054 -83.0161,8.2890 -83.0108,8.2834 -83.0011,8.2692 -82.9955,8.2648 -82.9892,8.2645 -82.9771,8.2692 -82.9680,8.2680 -82.9505,8.2588 -82.9437,8.2486 -82.9391,8.2168 -82.8864,8.1022 -82.8914,8.0575 -82.8968,8.0345 -82.9806,7.8529 -82.9634,7.8487 -82.8447,7.8596 -82.7385,7.8882 -82.6919,7.9367 -82.6411,8.0703 -82.6128,8.0974 -82.5641,8.0723 -82.5370,7.9950 -82.5017,7.9481 -82.5017,7.4482 -82.5016,6.9483 -82.5016,6.4484 -82.5015,5.9485 -82.5015,5.4486 -82.5014,4.9486 -82.5014,4.4487 -82.5013,3.9488 -82.5013,3.4489 -82.5012,2.9490 -82.5012,2.4491 -82.5011,1.9492 -82.5011,1.4492 -82.5010,0.9493 -82.5010,0.4494 -82.5009,-0.0505 -82.5009,-0.5504 -82.5008,-1.0503 -82.5008,-1.5503 -82.5007,-2.0502 -82.5007,-2.5501 -82.5006,-3.0500 -82.5006,-3.5499 -82.5005,-4.0498 -82.5005,-4.5497 -82.5004,-5.0497 -82.5004,-5.5496 -82.5003,-6.0495 -82.5003,-6.5494 -82.5002,-7.0493 -82.5002,-7.5492 -82.5001,-8.0492 -82.5001,-8.5491 -82.5000,-9.0490 -82.4999,-9.5489 -82.4999,-10.0488 -82.4998,-10.5487 -82.4998,-11.0486 -82.4997,-11.5486 -82.4997,-12.0485 -82.4996,-12.5484 -82.4996,-13.0483 -82.4995,-13.5482 -82.4995,-14.0481 -82.4994,-14.5481 -82.4994,-15.0480 -82.4993,-15.5479 -82.4993,-16.0478 -82.4992,-16.5477 -82.4992,-17.0476 -82.4991,-17.5475 -82.4991,-18.0475 -82.4990,-18.5474 -82.4990,-19.0473 -82.4989,-19.5472 -82.4989,-20.0471 -82.4988,-20.5470 -82.4988,-21.0470 -82.4987,-21.5469 -82.4987,-22.0468 -82.4986,-22.5467 -82.4986,-23.0466 -82.4985,-23.5465 -82.4985,-24.0464 -82.4984,-24.5464 -82.4984,-25.0463 -82.4983,-25.5462 -82.4983,-26.0461 -82.4982,-26.5460 -82.4982,-27.0459 -82.4981,-27.5458 -82.4980,-28.0458 -82.4980,-28.5457 -82.4979,-29.0456 -82.4979,-29.5455 -82.4978,-30.0454 -82.4978,-30.5453 -82.4977,-31.0453 -82.4977,-31.5452 -82.4976,-32.0451 -82.4976,-32.5450 -82.4975,-33.0449 -82.4975,-33.5448 -82.4974,-34.0447 -82.4974,-34.5447 -82.4973,-35.0446 -82.4973,-35.5445 -82.4972,-36.0444 -82.4972,-36.5443 -82.4971,-37.0442 -82.4971,-37.5442 -82.4970,-38.0441 -82.4970,-38.5440 -82.4969,-39.0439 -82.4969,-39.5438 -82.4968,-40.0437 -82.4968,-40.5436 -82.4967,-41.0436 -82.4967,-41.5435 -82.4966,-42.0434 -82.4966,-42.5433 -82.4965,-43.0432 -82.4965,-43.5431 -82.4964,-44.0431 -82.4964,-44.5430 -82.4963,-45.0429 -82.4963,-45.5428 -82.4962,-46.0427 -82.4961,-46.5426 -82.4961,-47.0425 -82.4960,-47.5425 -82.4960,-48.0424 -82.4959,-48.5423 -82.4959,-49.0422 -82.4958,-49.5421 -82.4958,-50.0420 -82.4957,-50.5420 -82.4957,-51.0419 -82.4956,-51.5418 -82.4956,-52.0417 -82.4955,-52.5416 -82.4955,-53.0415 -82.4954,-53.5414 -82.4954,-54.0414 -82.4953,-54.5413 -82.4953,-55.0412 -82.4952,-55.5411 -82.4952,-56.0410 -82.4951,-56.5409 -82.4951,-57.0409 -82.4950,-57.5408 -82.4950,-58.0407 -82.4949,-58.5406 -82.4949,-59.0405 -82.4948,-59.5404 -82.4948,-60.0403 -82.4947,-60.5403 -82.4947,-61.0402 -82.4946,-61.5401 -82.4946,-62.0400 -82.4945,-62.5399 -82.4945,-63.0398 -82.4944,-63.5398 -82.4944,-64.0397 -82.4943,-64.5396 -82.4943,-65.0395 -82.4942,-65.5394 -82.4941,-66.0393 -82.4941,-66.5392 -82.4940,-67.0392 -82.4940,-67.5391 -82.4939,-68.0390 -82.4939,-68.5389 -82.4938,-69.0388 -82.4938,-69.5387 -82.4937,-70.0387 -82.4937,-70.5386 -82.4936,-71.0385 -82.4936,-71.5384 -82.4935,-72.0383 -82.4935,-72.5382 -82.4934,-73.0381 -82.4934,-73.5381 -82.6267,-73.5188 -82.7045,-73.5112 -83.0440,-73.4952 -83.1196,-73.4517 -83.2184,-73.4151 -83.3364,-73.3863 -83.4687,-73.3669 -83.7142,-73.3473 -83.7355,-73.3456 -83.9028,-73.3368 -84.0158,-73.3383 -84.1978,-73.3407 -84.3972,-73.3517 -84.4583,-73.3484 -84.5251,-73.3385 -84.6156,-73.3159 -84.6729,-73.3016 -84.8465,-73.2390 -84.8792,-73.1478 -84.9257,-73.1104 -84.9928,-73.0762 -85.0714,-73.0479 -85.1629,-73.0234 -85.2652,-73.0028 -85.4052,-72.9828 -85.5548,-72.9692 -85.7100,-72.9623 -85.8665,-72.9622 -86.0204,-72.9693 -86.2236,-72.9913 -86.3193,-73.0086 -86.4853,-73.0477 -86.6972,-73.0729 -86.8174,-73.0270 -86.9332,-72.9982 -87.0742,-72.9760 -87.3273,-72.9506 -87.4124,-72.9305 -87.4285,-72.9113 -87.4020,-72.8665 -87.3988,-72.8311 -87.4208,-72.7602 -87.4521,-72.7112 -87.5044,-72.6665 -87.5709,-72.6257 -87.6544,-72.5883 -87.7459,-72.5586 -87.8814,-72.5290 -88.0199,-72.5112 -88.3767,-72.4862 -88.7335,-72.4611 -89.0903,-72.4361 -89.3419,-72.4259 -89.5507,-72.4336 -89.7664,-72.4614 -89.9948,-72.5121 -90.0883,-72.5187 -90.1355,-72.5141 -90.1896,-72.5014 -90.3528,-72.4378 -90.4877,-72.3978 -90.6290,-72.3684 -90.7866,-72.3471 -90.9593,-72.3349 -91.1245,-72.3330 -91.4841,-72.3425 -91.6690,-72.3582 -91.9538,-72.4079 -92.0943,-72.4406 -92.4619,-72.4852 -92.4723,-72.4750 -92.5480,-72.4359 -92.6412,-72.4041 -92.7569,-72.3761 -92.8649,-72.3578 -92.9984,-72.3431 -93.1369,-72.3355 -93.2772,-72.3351 -93.3967,-72.3405 -93.6198,-72.3586 -93.7717,-72.3588 -93.9345,-72.3414 -94.1638,-72.2902 -94.3275,-72.2670 -94.5355,-72.2563 -94.6431,-72.2582 -94.7388,-72.2654 -94.7710,-72.2632 -94.8509,-72.2204 -94.8201,-72.1600 -94.8366,-72.1076 -94.9583,-72.0031 -95.0243,-71.9625 -95.1219,-71.9195 -95.2011,-71.8932 -95.2926,-71.8711 -95.4203,-71.8489 -95.5133,-71.7945 -95.6888,-71.7301 -95.8189,-71.6920 -95.9506,-71.6631 -96.1011,-71.6409 -96.2685,-71.6277 -96.4012,-71.6262 -96.6070,-71.6341 -96.8788,-71.6241 -97.0280,-71.6286 -97.1505,-71.6383 -97.4226,-71.6837 -97.5371,-71.6801 -97.5368,-71.2647 -97.5366,-70.8493 -97.5363,-70.4339 -97.5361,-70.0185 -97.5360,-69.5433 -97.5358,-69.0681 -97.5357,-68.5929 -97.5356,-68.1384 -97.5355,-67.6838 -97.5353,-67.2293 -97.5352,-66.7747 -97.5351,-66.3202 -97.5350,-65.8656 -97.5349,-65.4111 -97.5347,-64.9565 -97.5346,-64.5020 -97.5345,-64.0475 -97.5344,-63.5929 -97.5342,-63.1384 -97.5341,-62.6838 -97.5340,-62.2293 -97.5339,-61.7747 -97.5338,-61.3202 -97.5336,-60.8656 -97.5335,-60.4111 -97.5334,-59.9565 -97.5333,-59.5020 -97.5332,-59.0475 -97.5330,-58.5929 -97.5329,-58.1384 -97.5328,-57.6838 -97.5327,-57.2293 -97.5326,-56.7747 -97.5324,-56.3202 -97.5323,-55.8656 -97.5322,-55.4111 -97.5321,-54.9565 -97.5320,-54.5020 -97.5318,-54.0475 -97.5317,-53.5929 -97.5316,-53.1384 -97.5315,-52.6838 -97.5314,-52.2293 -97.5312,-51.7747 -97.5311,-51.3202 -97.5310,-50.8656 -97.5309,-50.4111 -97.5307,-49.9565 -97.5306,-49.5020 -97.5305,-49.0475 -97.5304,-48.5929 -97.5303,-48.1384 -97.5301,-47.6838 -97.5300,-47.2293 -97.5299,-46.7747 -97.5298,-46.3202 -97.5297,-45.8656 -97.5295,-45.4111 -97.5294,-44.9565 -97.5293,-44.5020 -97.5292,-44.0475 -97.5291,-43.5929 -97.5289,-43.1384 -97.5288,-42.6838 -97.5287,-42.2293 -97.5286,-41.7747 -97.5285,-41.3202 -97.5283,-40.8656 -97.5282,-40.4111 -97.5281,-39.9565 -97.5280,-39.5020 -97.5279,-39.0475 -97.5277,-38.5929 -97.5276,-38.1133 -97.5276,-37.6337 -97.5275,-37.1541 -97.5274,-36.6744 -97.5273,-36.1948 -97.5272,-35.7152 -97.5271,-35.2356 -97.5270,-34.7560 -97.5270,-34.2764 -97.5269,-33.7967 -97.5268,-33.3171 -97.5267,-32.8375 -97.5266,-32.3579 -97.5265,-31.8783 -97.5264,-31.3986 -97.5263,-30.9190 -97.5263,-30.4394 -97.5262,-29.9598 -97.5261,-29.4802 -97.5260,-29.0006 -97.5260,-29.0000 -97.5371,-29.0000 -98.0318,-29.0001 -98.5265,-29.0002 -99.0212,-29.0002 -99.5159,-29.0003 -100.0106,-29.0004 -100.5053,-29.0005 -101.0000,-29.0006 -101.0007,-29.0006 -101.5007,-29.0006 -102.0006,-29.0006 -102.5005,-29.0006 -103.0004,-29.0006 -103.5004,-29.0006 -104.0003,-29.0006 -104.5002,-29.0006 -105.0002,-29.0006 -105.5001,-29.0006 -106.0000,-29.0006 -106.0007,-29.0006 -106.5006,-29.0006 -107.0005,-29.0006 -107.5005,-29.0006 -108.0004,-29.0006 -108.5003,-29.0006 -109.0003,-29.0006 -109.5002,-29.0006 -110.0001,-29.0006 -110.5001,-29.0006 -111.0000,-29.0006 -111.0000,-28.5006 -111.0000,-28.0006 -111.0000,-27.5006 -111.0000,-27.0006 -111.0000,-26.6006 -111.0000,-26.2006 -111.0000,-25.8006 -111.0000,-25.4006 -111.0000,-25.0006 -110.5000,-25.0006 -110.0000,-25.0006 -109.5000,-25.0006 -109.0000,-25.0006 -108.5000,-25.0006 -108.0000,-25.0006 -107.5000,-25.0006 -107.0455,-25.0006 -106.5909,-25.0006 -106.1364,-25.0006 -105.6818,-25.0006 -105.2273,-25.0006 -104.7727,-25.0006 -104.3182,-25.0006 -103.8637,-25.0006 -103.4091,-25.0006 -102.9546,-25.0006 -102.5000,-25.0006 -102.0149,-25.0005 -101.5298,-25.0005 -101.0447,-25.0004 -100.5596,-25.0004 -100.0745,-25.0003 -99.5894,-25.0002 -99.1788,-25.0002 -98.7682,-25.0001 -98.3576,-25.0001 -97.9470,-25.0001 -97.5364,-25.0000 -97.5240,-25.0000 -97.5240,-24.5036 -97.5239,-24.0072 -97.5239,-23.5109 -97.5238,-23.0145 -97.5238,-22.5181 -97.5237,-22.0217 -97.5237,-21.5254 -97.5236,-21.0290 -97.5236,-20.5326 -97.5235,-20.0362 -97.5235,-19.5399 -97.5235,-19.0435 -97.5234,-18.5471 -97.5234,-18.0507 -97.5233,-17.5544 -97.5232,-17.1169 -97.5231,-16.6794 -97.5231,-16.2419 -97.5230,-15.8044 -97.5229,-15.3669 -97.5228,-14.9294 -97.5227,-14.4919 -97.5226,-14.0544 -97.5225,-13.5544 -97.5224,-13.0544 -97.5223,-12.5544 -97.5223,-12.0544 -97.5222,-11.5544 -97.5221,-11.0544 -97.5220,-10.5544 -97.5219,-10.0544 -97.5218,-9.5544 -97.5217,-9.0544 -97.5216,-8.5998 -97.5215,-8.1453 -97.5214,-7.6907 -97.5213,-7.2362 -97.5212,-6.7816 -97.5211,-6.3271 -97.5211,-5.8725 -97.5210,-5.4180 -97.5209,-4.9635 -97.5208,-4.5089 -97.5207,-4.0544 -97.5206,-3.5998 -97.5205,-3.1453 -97.5204,-2.6907 -97.5204,-2.2362 -97.5203,-1.7816 -97.5202,-1.3271 -97.5201,-0.8725 -97.5200,-0.4180 -97.5199,0.0365 -97.5198,0.4911 -97.5197,0.9456 -97.5196,1.4002 -97.5196,1.8547 -97.5195,2.3093 -97.5194,2.7638 -97.5193,3.2184 -97.5192,3.6729 -97.5191,4.1275 -97.5190,4.5820 -97.5189,5.0365 -97.5189,5.4911 -97.5188,5.9456 -97.5187,6.4002 -97.5186,6.8547 -97.5185,7.3093 -97.5184,7.7638 -97.5183,8.2184 -97.5182,8.6729 -97.5182,9.1275 -97.5181,9.5820 -97.5180,10.0365 -97.5179,10.4911 -97.5178,10.9456 -97.5177,11.4252 -97.5176,11.9048 -97.5175,12.3844 -97.5174,12.8641 -97.5173,13.3437 -97.5172,13.8233 -97.5172,14.3029 -97.5171,14.7825 -97.5170,15.2621 -97.5169,15.7417 -97.7465,15.7608 -97.8675,15.7870 -97.9515,15.8297 -98.0553,15.9229 -98.1232,15.9620 -98.3744,16.0448 -98.6255,16.1275 -98.7955,16.2941 -98.8436,16.3257 -98.9732,16.3470 -99.2060,16.4231 -99.4845,16.4739 -99.7631,16.5248 -99.9232,16.5978 -100.1380,16.7484 -100.2447,16.7661 -100.4545,16.8545 -100.7990,16.9718 -101.1435,17.0890 -101.2024,17.1278 -101.3114,17.2475 -101.5431,17.3571 -101.7423,17.4963 -101.9057,17.6941 -101.9773,17.7499 -102.2091,17.7390 -102.6037,17.8436 -102.7773,17.8680 -103.1107,17.9971 -103.4208,18.0898 -103.5803,18.1559 -103.6437,18.2102 -103.7445,18.3487 -103.8463,18.4393 -103.9110,18.5388 -104.0863,18.7079 -104.1638,18.7457 -104.3989,18.8199 -104.5714,18.9253 -104.9555,19.0794 -105.1134,19.1735 -105.1969,19.2587 -105.3064,19.4266 -105.5420,19.6870 -105.7069,19.9256 -105.7648,20.1299 -105.8798,20.3017 -105.8982,20.3740 -105.8963,20.4409 -105.8450,20.5518 -105.7965,20.6567 -105.4765,20.6654 -105.2670,20.6992 -105.1970,20.7913 -105.1749,20.8229 -105.1528,20.8577 -105.1262,20.8907 -105.0946,20.9181 -105.0574,20.9368 -105.0441,20.9371 -105.0390,20.9307 -105.0371,20.9223 -105.0334,20.9172 -105.0273,20.9166 -105.0223,20.9185 -105.0177,20.9217 -105.0126,20.9251 -105.0044,20.9269 -104.9940,20.9262 -104.9835,20.9245 -104.9746,20.9231 -104.9243,20.9312 -104.8809,20.9579 -104.8400,20.9909 -104.7973,21.0176 -104.7877,21.0199 -104.7779,21.0206 -104.7681,21.0202 -104.7582,21.0188 -104.7392,21.0142 -104.7279,21.0097 -104.7183,21.0030 -104.7043,20.9916 -104.6962,20.9846 -104.6884,20.9775 -104.6802,20.9704 -104.6714,20.9640 -104.6557,20.9481 -104.6394,20.9335 -104.6210,20.9231 -104.5984,20.9198 -104.5684,20.9202 -104.5439,20.9178 -104.5229,20.9066 -104.5033,20.8808 -104.4909,20.8604 -104.4780,20.8442 -104.4625,20.8304 -104.4423,20.8177 -104.4203,20.8068 -104.3976,20.7949 -104.3780,20.7796 -104.3653,20.7591 -104.3528,20.7441 -104.3308,20.7317 -104.3061,20.7202 -104.2856,20.7080 -104.2834,20.7146 -104.2818,20.7215 -104.2812,20.7286 -104.2817,20.7357 -104.2825,20.7516 -104.2829,20.7677 -104.2829,20.7837 -104.2829,20.7997 -104.2785,20.8329 -104.2711,20.8615 -104.2599,20.8885 -104.2441,20.9168 -104.2387,20.9261 -104.2334,20.9354 -104.2283,20.9448 -104.2230,20.9540 -104.2129,20.9725 -104.2082,20.9933 -104.2063,21.0150 -104.2044,21.0363 -104.2042,21.0403 -104.2039,21.0442 -104.2038,21.0482 -104.2037,21.0521 -104.2053,21.0705 -104.2071,21.0902 -104.2099,21.1097 -104.2142,21.1272 -104.2222,21.1513 -104.2241,21.1693 -104.2150,21.1814 -104.2017,21.1986 -104.1959,21.1989 -104.1601,21.2040 -104.0824,21.2051 -104.0593,21.2093 -104.0397,21.2198 -103.9826,21.2705 -103.9686,21.2871 -103.9626,21.3044 -103.9623,21.3470 -103.9565,21.3652 -103.9447,21.3752 -103.9521,21.3786 -104.0122,21.4090 -104.0786,21.4446 -104.1445,21.4814 -104.2103,21.5192 -104.1881,21.5449 -104.1707,21.5697 -104.1581,21.5968 -104.1509,21.6295 -104.1481,21.6461 -104.1441,21.6621 -104.1393,21.6780 -104.1344,21.6939 -104.1266,21.7127 -104.1138,21.7424 -104.1023,21.7705 -104.0984,21.7845 -104.1266,21.8191 -104.1550,21.8525 -104.1846,21.8847 -104.2160,21.9163 -104.2538,21.9514 -104.2926,21.9850 -104.3320,22.0176 -104.3722,22.0501 -104.3931,22.0698 -104.3987,22.0854 -104.3932,22.1040 -104.3812,22.1323 -104.3684,22.1653 -104.3555,22.1983 -104.3426,22.2314 -104.3298,22.2644 -104.3243,22.2778 -104.3186,22.2916 -104.3140,22.3055 -104.3114,22.3191 -104.3176,22.3578 -104.3234,22.3968 -104.3290,22.4359 -104.3346,22.4749 -104.3703,22.4604 -104.4059,22.4458 -104.4415,22.4312 -104.4772,22.4168 -104.5041,22.4156 -104.5335,22.4274 -104.5623,22.4445 -104.5874,22.4596 -104.6138,22.4815 -104.6290,22.5105 -104.6381,22.5437 -104.6467,22.5783 -104.6500,22.5911 -104.6536,22.6045 -104.6592,22.6166 -104.6679,22.6256 -104.6890,22.6391 -104.7215,22.6584 -104.7537,22.6740 -104.7743,22.6762 -104.8043,22.6557 -104.8343,22.6351 -104.8642,22.6145 -104.8942,22.5940 -104.9156,22.5770 -104.9424,22.5562 -104.9707,22.5417 -104.9967,22.5435 -105.0026,22.5629 -105.0022,22.5934 -104.9990,22.6255 -104.9966,22.6495 -104.9942,22.6751 -104.9886,22.6916 -104.9775,22.7057 -104.9588,22.7235 -104.9444,22.7357 -104.9199,22.7569 -104.8973,22.7780 -104.8886,22.7903 -104.9003,22.8166 -104.9119,22.8429 -104.9236,22.8691 -104.9353,22.8955 -104.9455,22.9156 -104.9559,22.9285 -104.9699,22.9383 -104.9907,22.9493 -105.0353,22.9711 -105.0830,22.9952 -105.1315,23.0170 -105.1788,23.0316 -105.2296,23.0374 -105.2831,23.0372 -105.3370,23.0347 -105.3886,23.0333 -105.3896,23.0625 -105.3905,23.0915 -105.3914,23.1206 -105.3923,23.1498 -105.4333,23.1460 -105.4754,23.1426 -105.5154,23.1460 -105.5501,23.1630 -105.5652,23.1771 -105.5822,23.1942 -105.5991,23.2102 -105.6139,23.2210 -105.6221,23.2276 -105.6264,23.2360 -105.6295,23.2449 -105.6339,23.2533 -105.6475,23.2648 -105.6633,23.2731 -105.6779,23.2824 -105.6878,23.2972 -105.6895,23.3083 -105.6888,23.3197 -105.6885,23.3314 -105.6915,23.3436 -105.6996,23.3558 -105.7085,23.3663 -105.7134,23.3775 -105.7093,23.3923 -105.7056,23.4030 -105.7044,23.4137 -105.7071,23.4233 -105.7153,23.4307 -105.7233,23.4382 -105.7220,23.4462 -105.7173,23.4547 -105.7153,23.4641 -105.7257,23.4870 -105.7436,23.5076 -105.7599,23.5282 -105.7656,23.5511 -105.7812,23.5529 -105.7966,23.5558 -105.8117,23.5602 -105.8260,23.5666 -105.8430,23.5805 -105.8532,23.6014 -105.8593,23.6250 -105.8640,23.6468 -105.8717,23.6646 -105.8823,23.6810 -105.8921,23.6968 -105.8974,23.7135 -105.8997,23.7306 -105.9020,23.7477 -105.9043,23.7649 -105.9067,23.7820 -105.9129,23.8205 -105.9197,23.8613 -105.9223,23.9020 -105.9161,23.9402 -105.9025,23.9716 -105.8865,24.0010 -105.8717,24.0310 -105.8619,24.0644 -105.8869,24.0555 -105.9094,24.0515 -105.9297,24.0562 -105.9484,24.0733 -105.9636,24.0972 -105.9761,24.1223 -105.9873,24.1482 -105.9987,24.1743 -106.0092,24.2013 -106.0209,24.2319 -106.0350,24.2609 -106.0533,24.2833 -106.0781,24.3038 -106.1029,24.3243 -106.1278,24.3447 -106.1525,24.3653 -106.1626,24.3726 -106.1731,24.3793 -106.1840,24.3852 -106.1956,24.3898 -106.2363,24.3968 -106.2740,24.3909 -106.3092,24.3744 -106.3427,24.3493 -106.3546,24.3362 -106.3651,24.3212 -106.3760,24.3068 -106.3891,24.2955 -106.4046,24.2896 -106.4210,24.2880 -106.4379,24.2881 -106.4547,24.2874 -106.4762,24.2856 -106.4917,24.2873 -106.5064,24.2938 -106.5253,24.3065 -106.5437,24.3208 -106.5614,24.3364 -106.5787,24.3524 -106.5959,24.3680 -106.6061,24.3814 -106.6097,24.3961 -106.6099,24.4120 -106.6097,24.4286 -106.6114,24.4493 -106.6153,24.4661 -106.6218,24.4819 -106.6315,24.5000 -106.6382,24.5118 -106.6446,24.5238 -106.6506,24.5359 -106.6559,24.5486 -106.6644,24.5661 -106.6744,24.5780 -106.6860,24.5880 -106.6996,24.5999 -106.7220,24.6336 -106.7372,24.6709 -106.7564,24.7035 -106.7908,24.7233 -106.8101,24.7320 -106.8218,24.7453 -106.8308,24.7616 -106.8420,24.7791 -106.8546,24.7892 -106.8685,24.7922 -106.8835,24.7919 -106.8994,24.7919 -106.9178,24.7944 -106.9324,24.7995 -106.9435,24.8094 -106.9515,24.8260 -106.9533,24.8400 -106.9527,24.8538 -106.9542,24.8668 -106.9625,24.8788 -106.9777,24.8870 -106.9947,24.8918 -107.0116,24.8967 -107.0260,24.9051 -107.0364,24.9197 -107.0442,24.9391 -107.0506,24.9595 -107.0565,24.9769 -107.0742,25.0170 -107.0877,25.0596 -107.1003,25.1028 -107.1153,25.1445 -107.1263,25.1899 -107.1257,25.2374 -107.1188,25.2850 -107.1108,25.3308 -107.1047,25.3733 -107.0961,25.4203 -107.0827,25.4653 -107.0620,25.5015 -107.0440,25.5194 -107.0258,25.5353 -107.0092,25.5522 -106.9965,25.5735 -106.9853,25.5928 -106.9702,25.6100 -106.9533,25.6260 -106.9369,25.6416 -106.9086,25.6387 -106.8802,25.6359 -106.8519,25.6331 -106.8235,25.6302 -106.8045,25.6270 -106.7819,25.6228 -106.7592,25.6203 -106.7404,25.6225 -106.7209,25.6332 -106.7011,25.6496 -106.6821,25.6675 -106.6652,25.6827 -106.6464,25.6978 -106.6276,25.7129 -106.6089,25.7280 -106.5900,25.7431 -106.5856,25.7468 -106.5812,25.7505 -106.5768,25.7542 -106.5724,25.7579 -106.5567,25.7697 -106.5445,25.7799 -106.5362,25.7920 -106.5326,25.8095 -106.5311,25.8368 -106.5297,25.8641 -106.5283,25.8914 -106.5268,25.9187 -106.5268,25.9566 -106.5249,25.9928 -106.5121,26.0217 -106.4799,26.0376 -106.4612,26.0381 -106.4434,26.0367 -106.4265,26.0391 -106.4104,26.0507 -106.3993,26.0683 -106.3912,26.0894 -106.3847,26.1113 -106.3783,26.1315 -106.3735,26.1676 -106.3815,26.2031 -106.3964,26.2375 -106.4124,26.2703 -106.4273,26.3013 -106.4373,26.3335 -106.4322,26.3618 -106.4015,26.3810 -106.3579,26.3931 -106.3144,26.4051 -106.2708,26.4172 -106.2272,26.4292 -106.2080,26.4368 -106.1957,26.4453 -106.1910,26.4582 -106.1947,26.4787 -106.2017,26.4992 -106.2092,26.5194 -106.2169,26.5395 -106.2248,26.5597 -106.2213,26.5742 -106.2055,26.5889 -106.1856,26.6023 -106.1698,26.6126 -106.1657,26.6205 -106.1633,26.6337 -106.1620,26.6478 -106.1610,26.6586 -106.1606,26.6839 -106.1613,26.7138 -106.1579,26.7421 -106.1452,26.7623 -106.1286,26.7677 -106.1146,26.7610 -106.1027,26.7480 -106.0920,26.7349 -106.0823,26.7539 -106.0715,26.7724 -106.0605,26.7907 -106.0506,26.8096 -106.0455,26.8174 -106.0397,26.8246 -106.0336,26.8316 -106.0275,26.8386 -106.0125,26.8280 -105.9972,26.8177 -105.9818,26.8076 -105.9663,26.7976 -105.9283,26.7703 -105.8893,26.7414 -105.8494,26.7146 -105.8085,26.6933 -105.7829,26.6924 -105.7561,26.6913 -105.7295,26.6922 -105.7048,26.6977 -105.6804,26.6989 -105.6640,26.6852 -105.6502,26.6636 -105.6336,26.6412 -105.6154,26.6217 -105.5976,26.6032 -105.5782,26.5866 -105.5559,26.5728 -105.5276,26.5587 -105.4993,26.5447 -105.4709,26.5306 -105.4425,26.5165 -105.4138,26.5023 -105.3850,26.4880 -105.3563,26.4738 -105.3275,26.4595 -105.3084,26.4621 -105.2792,26.4753 -105.2495,26.4910 -105.2293,26.5017 -105.2012,26.5144 -105.1730,26.5270 -105.1449,26.5397 -105.1168,26.5524 -105.1035,26.5420 -105.0806,26.5153 -105.0575,26.4860 -105.0435,26.4682 -105.0264,26.4595 -105.0135,26.4719 -105.0017,26.4913 -104.9880,26.5036 -104.9658,26.5057 -104.9414,26.5036 -104.9168,26.4996 -104.8940,26.4962 -104.8333,26.4868 -104.7768,26.4695 -104.7234,26.4444 -104.6721,26.4115 -104.6376,26.3817 -104.5978,26.3510 -104.5570,26.3405 -104.5198,26.3715 -104.4745,26.4265 -104.4293,26.4816 -104.3840,26.5366 -104.3389,26.5917 -104.3054,26.6360 -104.2717,26.6818 -104.2346,26.7232 -104.1912,26.7549 -104.1550,26.7677 -104.1156,26.7731 -104.0756,26.7747 -104.0372,26.7761 -104.0104,26.7769 -103.9884,26.7747 -103.9670,26.7693 -103.9415,26.7604 -103.8630,26.7313 -103.7844,26.7021 -103.7058,26.6730 -103.6273,26.6439 -103.6419,26.7002 -103.6565,26.7565 -103.6712,26.8128 -103.6858,26.8691 -103.7370,27.0619 -103.7887,27.2546 -103.8405,27.4474 -103.8922,27.6401 -103.9037,27.6853 -103.9153,27.7306 -103.9268,27.7758 -103.9384,27.8211 -103.9440,27.8432 -103.9496,27.8653 -103.9553,27.8873 -103.9635,27.9189 -103.9313,27.9697 -103.8876,28.0399 -103.8451,28.1109 -103.8032,28.1823 -103.7613,28.2537 -103.7309,28.3065 -103.7006,28.3594 -103.6702,28.4123 -103.6398,28.4652 -103.5579,28.6049 -103.4746,28.7440 -103.3923,28.8835 -103.3508,28.9575 -103.3131,29.0247 -103.3127,29.0250 -103.3248,29.0268 -103.3305,29.0237 -103.3426,29.0412 -103.3517,29.0394 -103.3605,29.0298 -103.3721,29.0237 -103.3866,29.0288 -103.4146,29.0524 -103.4236,29.0579 -103.4357,29.0611 -103.4785,29.0821 -103.5297,29.1268 -103.5356,29.1351 -103.5382,29.1424 -103.5417,29.1488 -103.5502,29.1547 -103.5580,29.1562 -103.5850,29.1547 -103.6731,29.1736 -103.7025,29.1879 -103.7495,29.2230 -103.7591,29.2268 -103.7708,29.2298 -103.7777,29.2353 -103.7694,29.2575 -103.7742,29.2675 -103.7837,29.2748 -103.7942,29.2776 -103.8641,29.2814 -103.9281,29.2930 -104.0191,29.3203 -104.0573,29.3390 -104.1054,29.3857 -104.1398,29.4006 -104.1616,29.4168 -104.1945,29.4489 -104.2123,29.4847 -104.2187,29.4898 -104.2271,29.4930 -104.2510,29.5086 -104.2672,29.5266 -104.2928,29.5328 -104.3206,29.5323 -104.3385,29.5240 -104.3490,29.5376 -104.4304,29.5828 -104.4378,29.5854 -104.4440,29.5892 -104.4486,29.5977 -104.4521,29.6071 -104.4552,29.6134 -104.4694,29.6254 -104.5166,29.6543 -104.5308,29.6679 -104.5350,29.6778 -104.5352,29.6879 -104.5371,29.7021 -104.5437,29.7164 -104.5614,29.7454 -104.5703,29.7875 -104.5836,29.8026 -104.6012,29.8148 -104.6197,29.8331 -104.6238,29.8415 -104.6376,29.8880 -104.6563,29.9082 -104.6606,29.9184 -104.6635,29.9231 -104.6765,29.9368 -104.6805,29.9423 -104.6825,29.9521 -104.6801,29.9678 -104.6805,29.9765 -104.6991,30.0314 -104.7016,30.0553 -104.6986,30.0753 -104.6846,30.1111 -104.6805,30.1341 -104.6787,30.1704 -104.6816,30.1929 -104.6959,30.2084 -104.7152,30.2440 -104.7246,30.2522 -104.7422,30.2599 -104.7494,30.2645 -104.7617,30.2842 -104.7741,30.3116 -104.7888,30.3359 -104.8077,30.3464 -104.8129,30.3507 -104.8150,30.3606 -104.8160,30.3720 -104.8183,30.3805 -104.8243,30.3872 -104.8375,30.3941 -104.8449,30.4010 -104.8533,30.4121 -104.8550,30.4175 -104.8536,30.4240 -104.8524,30.4389 -104.8547,30.4487 -104.8645,30.4620 -104.8667,30.4730 -104.8652,30.4799 -104.8596,30.4911 -104.8593,30.4973 -104.8630,30.5024 -104.8797,30.5109 -104.8821,30.5209 -104.8840,30.5419 -104.8866,30.5519 -104.8982,30.5694 -104.9282,30.5995 -104.9343,30.6105 -104.9411,30.6140 -104.9727,30.6180 -104.9828,30.6207 -104.9172,30.6636 -104.9137,30.9424 -104.9103,31.2211 -104.9143,31.6108 -104.9183,32.0005 -104.9184,32.0010 -104.8427,32.0010 -104.6205,32.0011 -104.3984,32.0012 -104.1763,32.0012 -103.9708,32.0013 -103.9541,32.0013 -103.9195,32.0014 -103.7320,32.0015 -103.5099,32.0015 -103.2877,32.0016 -103.0656,32.0017 -103.0648,32.1407 -103.0641,32.2797 -103.0633,32.4187 -103.0626,32.5578 -103.0618,32.6968 -103.0615,32.7597 -103.0589,33.2529 -103.0582,33.3918 -103.0574,33.5308 -103.0567,33.6699 -103.0559,33.8089 -103.0551,33.9480 -103.0544,34.0870 -103.0537,34.2260 -103.0529,34.3650 -103.0522,34.5040 -103.0514,34.6430 -103.0507,34.7821 -103.0500,34.9211 -103.0492,35.0601 -103.0484,35.1991 -103.0477,35.3381 -103.0470,35.4772 -103.0462,35.6162 -103.0455,35.7552 -103.0447,35.8942 -103.0440,36.0332 -103.0432,36.1722 -103.0424,36.3112 -103.0417,36.4502 -103.0415,36.4816 -103.0421,36.4996 -103.0002,36.5002 -103.0004,36.6251 -103.0005,36.7500 -103.0007,36.8749 -103.0008,36.9998 -102.8773,36.9998 -102.7538,36.9998 -102.6303,36.9998 -102.5068,36.9998 -102.3832,36.9998 -102.2597,36.9998 -102.1362,36.9998 -102.0396,36.9998 -102.0399,37.0936 -102.0403,37.1873 -102.0406,37.2811 -102.0410,37.3749 -102.0414,37.4686 -102.0417,37.5624 -102.0421,37.6561 -102.0424,37.7291 -102.0421,37.7290 -102.0422,37.7385 -101.7847,37.7374 -101.5272,37.7362 -101.5420,37.9067 -101.5423,38.2632 -101.5675,38.2631 -101.5674,38.6996 -101.4846,38.7001 -101.4782,39.1348 -101.3917,39.1351 -101.3916,39.2222 -101.3891,39.5683 -101.4139,39.5683 -101.8073,39.5682 -102.0496,39.5682 -102.0498,39.6251 -102.0502,39.7189 -102.0506,39.8126 -102.0509,39.9063 -102.0513,40.0001 -101.6878,40.0001 -101.3243,40.0001 -101.3240,40.0750 -101.3240,40.0861 -101.3237,40.1770 -101.3234,40.3505 -101.3428,40.3505 -101.3453,40.6981 -101.2479,40.6978 -101.2500,41.0039 -101.2704,41.0474 -101.2697,41.3949 -101.4073,41.3954 -101.4065,41.7432 -101.0066,41.7407 -100.8425,41.7404 -100.8461,42.0079 -100.8461,42.0882 -100.8408,42.5442 -100.8354,43.0003 -101.2279,43.0003 -101.2281,43.3017 -101.2283,43.3893 -101.2282,43.6506 -101.2295,43.7854 -101.1832,43.8051 -101.1268,43.8434 -101.0639,43.8417 -101.0641,43.9949 -101.0469,44.0000 -101.0466,44.0799 -101.0469,44.1685 -101.0000,44.1683 -100.7701,44.1683 -100.5179,44.1684 -100.3625,44.3550 -100.3654,44.3555 -100.3992,44.4370 -100.4076,44.4572 -100.4553,44.4526 -100.5251,44.4458 -100.5392,44.4444 -100.5343,44.4845 -100.5318,44.5046 -100.5265,44.5474 -100.6401,44.5837 -100.6130,44.6914 -100.6212,44.7203 -100.7176,44.7709 -100.7242,44.8076 -100.6851,44.7970 -100.6468,44.7867 -100.5484,44.7601 -100.4187,44.8434 -100.4048,44.8977 -100.4227,44.9937 -100.3709,45.0532 -100.3482,45.0793 -100.2790,45.1589 -100.2602,45.2468 -100.3167,45.3179 -100.2739,45.3811 -100.3416,45.4728 -100.3742,45.4729 -100.4830,45.4733 -100.4827,45.5213 -100.4825,45.5515 -100.4327,45.5929 -100.4279,45.6154 -100.4166,45.6276 -100.4071,45.6502 -100.3835,45.6641 -100.3092,45.7079 -100.3857,45.9419 -100.4545,45.9419 -100.9243,45.9419 -101.3940,45.9420 -101.4744,46.0590 -101.4737,46.0593 -101.4155,46.0864 -101.3770,46.0910 -101.3594,46.0961 -101.3429,46.1038 -101.3292,46.1133 -101.3204,46.1251 -101.3135,46.1407 -101.2415,46.1531 -101.2073,46.1624 -101.2001,46.1716 -101.2057,46.1871 -101.1974,46.1978 -101.1393,46.2258 -101.1324,46.2302 -101.1267,46.2338 -101.1200,46.2391 -101.1169,46.2452 -101.1123,46.2544 -101.1067,46.2652 -101.0965,46.2762 -101.0486,46.2997 -101.0349,46.3091 -101.0327,46.3112 -101.0000,46.3417 -100.9691,46.3583 -100.9579,46.3693 -100.9416,46.3958 -100.9318,46.4069 -100.9179,46.4136 -100.8990,46.4145 -100.8577,46.4119 -100.7992,46.4120 -100.7799,46.4102 -100.7780,46.4098 -100.7760,46.4093 -100.7605,46.4056 -100.7422,46.4046 -100.6227,46.4209 -100.6199,46.4249 -100.6003,46.4269 -100.5900,46.4296 -100.5878,46.4505 -100.5691,46.6254 -100.5681,46.6344 -100.6136,46.6344 -100.6619,46.6344 -100.7782,46.6865 -100.7894,46.7171 -100.8265,46.8182 -100.9360,46.9828 -100.8822,47.0151 -100.8807,47.0410 -100.9652,47.1566 -101.0871,47.2966 -101.1989,47.2472 -101.2570,47.2649 -101.3438,47.2905 -101.3570,47.3280 -101.3684,47.5063 -101.3696,47.5245 -101.4362,47.5641 -101.6379,47.5276 -101.6943,47.5386 -101.8209,47.4949 -101.8920,47.5051 -102.0366,47.5727 -102.1562,47.5655 -102.1576,47.5656 -102.1923,47.5720 -102.2204,47.5865 -102.2650,47.6220 -102.2649,47.6234 -102.2754,47.6231 -102.3105,47.6173 -102.3613,47.6075 -102.3965,47.5958 -102.4219,47.5821 -102.4346,47.5306 -102.4346,47.5306 -102.4509,47.5299 -102.5079,47.5302 -102.5329,47.5349 -102.6140,47.5623 -102.6272,47.5620 -102.6377,47.5548 -102.6661,47.5500 -102.6873,47.5502 -102.6930,47.5610 -102.6906,47.5777 -102.6982,47.5911 -102.7379,47.5926 -102.7527,47.6050 -102.7750,47.6138 -102.7898,47.6128 -102.8522,47.6182 -102.9679,47.6744 -102.9837,47.6821 -103.0018,47.6901 -103.0192,47.6945 -103.0357,47.6903 -103.0501,47.6785 -103.0521,47.6744 -103.0560,47.6660 -103.0528,47.6380 -103.0577,47.6251 -103.0682,47.6124 -103.0824,47.6031 -103.0997,47.5995 -103.0999,47.5995 -103.1204,47.5997 -103.1805,47.6041 -103.2978,47.6177 -103.3580,47.6210 -103.3771,47.6192 -103.3946,47.6133 -103.4104,47.6043 -103.4229,47.5937 -103.4299,47.5811 -103.4346,47.5673 -103.4426,47.5552 -103.4560,47.5449 -103.4725,47.5364 -103.4903,47.5317 -103.5096,47.5314 -103.5901,47.5384 -103.6424,47.5942 -103.6984,47.6076 -103.7590,47.6636 -103.7993,47.8049 -103.8441,47.8542 -103.9360,47.8631 -103.9652,47.8855 -103.9629,47.9649 -104.0463,47.9672 -104.0463,47.9680 -104.0463,48.1349 -104.0463,48.3018 -104.0463,48.4686 -104.0463,48.6355 -104.0462,48.8023 -104.0476,48.9926 -104.1892,48.9926 -104.4090,48.9926 -104.6289,48.9926 -104.8487,48.9926 -105.0685,48.9926 -105.2883,48.9926 -105.5082,48.9926 -105.7279,48.9926 -105.9477,48.9926 -106.1675,48.9926 -106.3873,48.9926 -106.6072,48.9926 -106.8270,48.9926 -107.0468,48.9926 -107.2666,48.9926 -107.4864,48.9926 -107.7062,48.9926 -107.9260,48.9926 -108.1458,48.9926 -108.3656,48.9926 -108.5854,48.9926 -108.8052,48.9926 -109.0250,48.9926 -109.2449,48.9926 -109.4647,48.9926 -109.6845,48.9926 -109.9043,48.9926 -109.9994,48.9926 -109.9997,49.3921 -110.0000,49.7916 -110.0000,50.1129 -110.0000,50.4341 -110.0000,50.7188 -110.0000,50.9722 -110.0000,51.0626 -110.0000,51.4063 -110.0000,51.7501 -110.0000,52.0938 -110.0000,52.4376 -110.0000,52.7074 -109.5076,52.7074 -109.3998,52.7196 -109.3581,52.7638 -109.2920,52.8667 -109.2577,52.9230 -109.1572,52.9279 -109.0837,52.9083 -109.0151,52.8642 -108.9293,52.8520 -108.8852,52.9083 -108.8828,53.0088 -108.8509,53.0651 -108.8754,53.1092 -109.0126,53.2024 -109.0739,53.2612 -109.0886,53.2955 -109.1253,53.3347 -109.1915,53.3420 -109.2601,53.3837 -109.3140,53.4131 -109.3753,53.4229 -109.4561,53.4106 -109.5076,53.4253 -109.5860,53.4988 -109.6007,53.5552 -109.6914,53.6116 -109.7820,53.5969 -109.8433,53.5527 -109.9241,53.5772 -109.9927,53.6067 -110.0000,53.6086 -110.0000,53.8126 -110.0000,54.1563 -110.0000,54.4535 -110.0000,54.4821 -110.0000,54.5000 -110.0000,54.5000 -110.0000,54.5890 -110.0000,54.6311 -110.0000,54.7057 -110.0000,54.7748 -110.0000,54.8321 -110.0000,54.8438 -110.0000,55.1876 -110.0000,55.5313 -110.0000,55.7446 -110.0000,55.8751 -110.0000,56.2188 -110.0000,56.2206 -110.0000,56.2324 -110.0000,56.5625 -110.0000,56.7007 -110.0000,56.9063 -110.0000,57.2501 -110.0000,57.3796 -110.0000,57.5938 -110.0000,57.7394 -110.0000,57.9376 -110.0000,58.2813 -110.0000,58.3905 -110.0000,58.6251 -110.0000,58.9688 -110.0000,58.9740 -110.0000,59.3126 -110.0000,59.3201 -110.0000,59.5539 -110.0000,59.6564 -110.0000,60.0001 -109.8081,60.0001 -109.5001,60.0001 -109.0001,60.0001 -108.8554,60.0001 -108.5003,60.0001 -108.0004,60.0001 -107.6984,60.0001 -107.5005,60.0001 -107.0006,60.0001 -106.5007,60.0001 -106.2587,60.0001 -106.0946,60.0001 -106.0500,60.0001 -106.0008,60.0001 -105.9520,60.0001 -105.8637,60.0001 -105.8599,60.0001 -105.5009,60.0001 -105.0010,60.0001 -104.7225,60.0001 -104.5011,60.0001 -104.0012,60.0001 -103.5013,60.0001 -103.0014,60.0001 -102.5015,60.0001 -102.0016,60.0001 -102.0016,60.0007 -102.0016,60.0014 -102.0016,60.0020 -102.0016,60.0027 -102.0020,60.4086 -102.0025,60.8143 -102.0029,61.2201 -102.0033,61.6260 -102.0035,61.8851 -102.0038,62.1442 -102.0041,62.4033 -102.0044,62.6624 -102.0046,62.9216 -102.0049,63.1807 -102.0052,63.4398 -102.0054,63.6989 -102.0054,63.7362 -102.0055,63.7736 -102.0055,63.8109 -102.0056,63.8482 -102.0038,63.8931 -101.9995,63.9382 -101.9942,63.9833 -101.9893,64.0280 -101.9866,64.0792 -101.9878,64.1276 -101.9922,64.1760 -101.9991,64.2274 -102.0008,64.2283 -102.0008,64.2293 -102.0008,64.6779 -102.0007,65.1265 -102.0007,65.5751 -102.0007,66.0237 -102.0007,66.4724 -102.0007,66.9210 -101.6072,66.9205 -101.2137,66.9199 -100.7137,66.9192 -100.2137,66.9186 -99.7137,66.9179 -99.2137,66.9172 -98.7137,66.9165 -98.2137,66.9158 -97.7137,66.9151 -97.2137,66.9145 -96.7137,66.9138 -96.2137,66.9131 -96.0527,66.9126 -95.6384,66.9116 -95.2240,66.9106 -94.8096,66.9095 -94.3953,66.9085 -93.9809,66.9075 -93.4809,66.9062 -92.9809,66.9050 -92.4809,66.9037 -91.9809,66.9025 -91.4809,66.9012 -90.9809,66.9000 -90.4809,66.8988 -89.9809,66.8975 -89.4809,66.8963 -88.9809,66.8950 -88.9881,67.3665 -88.9952,67.8380 -89.0024,68.3095 -89.0095,68.7810 -89.0167,69.2525 -89.0153,69.3848 -89.0144,69.4803 -89.0654,69.4841 -89.1442,69.4870 -89.1976,69.4890 -89.3028,69.4863 -89.5758,69.4524 -89.6740,69.5469 -89.7282,69.5763 -89.8046,69.6049 -89.9088,69.6315 -90.3446,69.7190 -90.5556,69.7476 -90.6523,69.7863 -90.7912,69.8288 -90.8029,69.8432 -90.7974,69.9014 -90.8225,69.9440 -90.8731,69.9837 -90.9792,70.0351 -90.8969,70.1284 -90.8897,70.1656 -90.9019,70.2052 -90.9597,70.2667 -91.0670,70.3318 -91.0897,70.3859 -91.1261,70.4261 -91.1925,70.4688 -91.2778,70.5051 -91.3629,70.5293 -91.5174,70.5606 -91.5270,70.6111 -91.5581,70.6514 -91.6192,70.6973 -91.7071,70.7440 -91.7823,70.7699 -92.0719,70.8475 -92.2285,70.9247 -92.2480,70.9547 -92.2040,71.0402 -92.2072,71.1591 -92.2317,71.2154 -92.2921,71.2931 -92.3726,71.4301 -92.4277,71.4683 -92.5657,71.5258 -92.6853,71.5970 -93.0237,71.7073 -93.0507,71.7899 -93.1057,71.8519 -93.1791,71.8915 -93.3416,71.9464 -93.3592,71.9579 -93.3419,72.0316 -93.3422,72.1105 -93.2762,72.1525 -93.5962,72.1990 -93.9162,72.2456 -94.3559,72.3095 -94.7957,72.3734 -95.2354,72.4374 -95.6096,72.4918 -95.9837,72.5462 -96.3579,72.6006 -96.4566,72.6149 -96.7386,72.6559 -96.8913,72.6962 -97.2720,72.7508 -97.6526,72.8054 -98.0332,72.8600 -98.4138,72.9146 -98.8326,72.9717 -99.2514,73.0288 -99.6701,73.0859 -100.0889,73.1430 -100.5077,73.2001 -100.9536,73.2044 -101.1910,73.2229 -101.5957,73.2976 -102.0005,73.3723 -102.0005,73.8249 -102.0004,74.2775 -102.0004,74.7301 -102.0004,75.1827 -102.0004,75.6353 -102.0004,76.1010 -102.0004,76.5667 -102.0004,77.0323 -102.0003,77.4980 -102.0003,77.9637 -102.0003,78.4294 -102.0003,78.8950 -102.0003,79.3607 -101.9870,79.3577 -101.8118,79.3001 -101.4146,79.2836 -101.2825,79.2761 -101.2832,79.5584 -101.2840,79.8407 -101.3257,79.8671 -101.3591,79.9148 -101.3380,79.9642 -101.3877,80.0242 -101.3783,80.0620 -101.3321,80.1029 -101.2550,80.1441 -101.1416,80.1884 -101.0714,80.2100 -100.9711,80.2326 -100.6846,80.2894 -100.5180,80.3154 -100.3700,80.3318 -100.1943,80.3453 -100.0239,80.3534 -99.8481,80.3573 -99.6365,80.3560 -99.2323,80.3414 -98.9444,80.3383 -98.6414,80.3243 -98.5054,80.3127 -98.3820,80.2983 -98.2497,80.2783 -97.9796,80.2302 -97.9067,80.2209 -97.8677,80.2204 -97.7969,80.2504 -97.8817,80.2958 -97.9149,80.3319 -97.9107,80.3684 -97.8658,80.4058 -97.7875,80.4416 -97.6871,80.4738 -97.5389,80.5062 -97.5172,80.5094 -97.5172,80.6357 -97.5155,80.6357 -97.5155,80.7453 -97.5155,81.2070 -97.5155,81.6686 -97.5155,82.1302 -97.5155,82.5919 -97.5155,83.0535 -97.5155,83.5151 -97.5155,83.9767 -97.5155,84.4384 -97.5155,84.9000 -97.5155,85.3636 -97.5155,85.8273 -97.5155,86.2909 -97.5155,86.7545 -97.5155,87.2182 -97.5155,87.6818 -97.5155,88.1455 -97.5155,88.6091 -97.5155,89.0727 -97.5155,89.5364 -97.5155,90.0000 -97.0741,90.0000 -96.6328,90.0000 -96.1915,90.0000 -95.7501,90.0000 -95.3088,90.0000 -94.8675,90.0000 -94.4261,90.0000 -93.9848,90.0000 -93.5435,90.0000 -93.1021,90.0000 -92.6608,90.0000 -92.2195,90.0000 -91.7782,90.0000 -91.3368,90.0000 -90.8955,90.0000 -90.4542,90.0000 -90.0128,90.0000 -89.5715,90.0000 -89.1302,90.0000 -88.6888,90.0000 -88.2475,90.0000 -87.8062,90.0000 -87.3648,90.0000 -86.9235,90.0000 -86.4822,90.0000 -86.0408,90.0000 -85.5995,90.0000 -85.1582,90.0000 -84.7168,90.0000 -84.2755,90.0000 -83.8342,90.0000 -83.3928,90.0000 -82.9515,90.0000 -82.5102,90.0000 -82.5097,89.5364 -82.5092,89.0727 -82.5088,88.6091 -82.5083,88.1455 -82.5079,87.6818 -82.5074,87.2182 -82.5069,86.7545 -82.5065,86.2909 -82.5060,85.8273 -82.5056,85.3636 -82.5051,84.9000 -82.5047,84.4842 -82.5043,84.0684 -82.5039,83.6526 57,-9.5,Pacific/Marquesas -137.0004,-13.0000 -137.4599,-13.0001 -137.9194,-13.0001 -138.3789,-13.0002 -138.8384,-13.0002 -139.2978,-13.0003 -139.7573,-13.0003 -140.2144,-13.0003 -140.6716,-13.0002 -141.1287,-13.0002 -141.5858,-13.0001 -142.0429,-13.0001 -142.5000,-13.0000 -142.5290,-13.0000 -142.5290,-12.5001 -142.5290,-12.0002 -142.5291,-11.5002 -142.5291,-11.0003 -142.5291,-10.5004 -142.5291,-10.0005 -142.5291,-9.5006 -142.5292,-9.0006 -142.5292,-8.5007 -142.5292,-8.0008 -142.5292,-7.5009 -142.5293,-7.0010 -142.5293,-6.6675 -142.5293,-6.3341 -142.5293,-6.0007 -142.0683,-6.0007 -141.6074,-6.0007 -141.1464,-6.0007 -140.6854,-6.0007 -140.2245,-6.0007 -139.7635,-6.0007 -139.3025,-6.0007 -138.8416,-6.0007 -138.3806,-6.0007 -137.9196,-6.0007 -137.4587,-6.0007 -136.9977,-6.0007 -136.9980,-6.4996 -136.9983,-6.9986 -136.9986,-7.4975 -136.9989,-7.9964 -136.9993,-8.4954 -136.9996,-8.9943 -136.9999,-9.4932 -137.0002,-9.9922 -137.0002,-9.9930 -137.0002,-10.4226 -137.0003,-10.8521 -137.0003,-11.2817 -137.0003,-11.7113 -137.0003,-12.1409 -137.0004,-12.5704 -137.0004,-13.0000 5037,-7.0,America/Denver -97.9107,80.3684 -97.9149,80.3319 -97.8817,80.2958 -97.7969,80.2504 -97.8677,80.2204 -97.9067,80.2209 -97.9796,80.2302 -98.2497,80.2783 -98.3820,80.2983 -98.5054,80.3127 -98.6414,80.3243 -98.9444,80.3383 -99.2323,80.3414 -99.6365,80.3560 -99.8481,80.3573 -100.0239,80.3534 -100.1943,80.3453 -100.3700,80.3318 -100.5180,80.3154 -100.6846,80.2894 -100.9711,80.2326 -101.0714,80.2100 -101.1416,80.1884 -101.2550,80.1441 -101.3321,80.1029 -101.3783,80.0620 -101.3877,80.0242 -101.3380,79.9642 -101.3591,79.9148 -101.3257,79.8671 -101.2840,79.8407 -101.2832,79.5584 -101.2825,79.2761 -101.4146,79.2836 -101.8118,79.3001 -101.9870,79.3577 -102.0003,79.3607 -102.0003,78.8950 -102.0003,78.4294 -102.0003,77.9637 -102.0003,77.4980 -102.0004,77.0323 -102.0004,76.5667 -102.0004,76.1010 -102.0004,75.6353 -102.0004,75.1827 -102.0004,74.7301 -102.0004,74.2775 -102.0005,73.8249 -102.0005,73.3723 -101.5957,73.2976 -101.1910,73.2229 -100.9536,73.2044 -100.5077,73.2001 -100.0889,73.1430 -99.6701,73.0859 -99.2514,73.0288 -98.8326,72.9717 -98.4138,72.9146 -98.0332,72.8600 -97.6526,72.8054 -97.2720,72.7508 -96.8913,72.6962 -96.7386,72.6559 -96.4566,72.6149 -96.3579,72.6006 -95.9837,72.5462 -95.6096,72.4918 -95.2354,72.4374 -94.7957,72.3734 -94.3559,72.3095 -93.9162,72.2456 -93.5962,72.1990 -93.2762,72.1525 -93.3422,72.1105 -93.3419,72.0316 -93.3592,71.9579 -93.3416,71.9464 -93.1791,71.8915 -93.1057,71.8519 -93.0507,71.7899 -93.0237,71.7073 -92.6853,71.5970 -92.5657,71.5258 -92.4277,71.4683 -92.3726,71.4301 -92.2921,71.2931 -92.2317,71.2154 -92.2072,71.1591 -92.2040,71.0402 -92.2480,70.9547 -92.2285,70.9247 -92.0719,70.8475 -91.7823,70.7699 -91.7071,70.7440 -91.6192,70.6973 -91.5581,70.6514 -91.5270,70.6111 -91.5174,70.5606 -91.3629,70.5293 -91.2778,70.5051 -91.1925,70.4688 -91.1261,70.4261 -91.0897,70.3859 -91.0670,70.3318 -90.9597,70.2667 -90.9019,70.2052 -90.8897,70.1656 -90.8969,70.1284 -90.9792,70.0351 -90.8731,69.9837 -90.8225,69.9440 -90.7974,69.9014 -90.8029,69.8432 -90.7912,69.8288 -90.6523,69.7863 -90.5556,69.7476 -90.3446,69.7190 -89.9088,69.6315 -89.8046,69.6049 -89.7282,69.5763 -89.6740,69.5469 -89.5758,69.4524 -89.3028,69.4863 -89.1976,69.4890 -89.1442,69.4870 -89.0654,69.4841 -89.0144,69.4803 -89.0153,69.3848 -89.0167,69.2525 -89.0095,68.7810 -89.0024,68.3095 -88.9952,67.8380 -88.9881,67.3665 -88.9809,66.8950 -89.4809,66.8963 -89.9809,66.8975 -90.4809,66.8988 -90.9809,66.9000 -91.4809,66.9012 -91.9809,66.9025 -92.4809,66.9037 -92.9809,66.9050 -93.4809,66.9062 -93.9809,66.9075 -94.3953,66.9085 -94.8096,66.9095 -95.2240,66.9106 -95.6384,66.9116 -96.0527,66.9126 -96.2137,66.9131 -96.7137,66.9138 -97.2137,66.9145 -97.7137,66.9151 -98.2137,66.9158 -98.7137,66.9165 -99.2137,66.9172 -99.7137,66.9179 -100.2137,66.9186 -100.7137,66.9192 -101.2137,66.9199 -101.6072,66.9205 -102.0007,66.9210 -102.0007,66.4724 -102.0007,66.0237 -102.0007,65.5751 -102.0007,65.1265 -102.0008,64.6779 -102.0008,64.2293 -102.0008,64.2283 -101.9991,64.2274 -101.9922,64.1760 -101.9878,64.1276 -101.9866,64.0792 -101.9893,64.0280 -101.9942,63.9833 -101.9995,63.9382 -102.0038,63.8931 -102.0056,63.8482 -102.0055,63.8109 -102.0055,63.7736 -102.0054,63.7362 -102.0054,63.6989 -102.0052,63.4398 -102.0049,63.1807 -102.0046,62.9216 -102.0044,62.6624 -102.0041,62.4033 -102.0038,62.1442 -102.0035,61.8851 -102.0033,61.6260 -102.0029,61.2201 -102.0025,60.8143 -102.0020,60.4086 -102.0016,60.0027 -102.0016,60.0020 -102.0016,60.0014 -102.0016,60.0007 -102.0016,60.0001 -102.5015,60.0001 -103.0014,60.0001 -103.5013,60.0001 -104.0012,60.0001 -104.5011,60.0001 -104.7225,60.0001 -105.0010,60.0001 -105.5009,60.0001 -105.8599,60.0001 -105.8637,60.0001 -105.9520,60.0001 -106.0008,60.0001 -106.0500,60.0001 -106.0946,60.0001 -106.2587,60.0001 -106.5007,60.0001 -107.0006,60.0001 -107.5005,60.0001 -107.6984,60.0001 -108.0004,60.0001 -108.5003,60.0001 -108.8554,60.0001 -109.0001,60.0001 -109.5001,60.0001 -109.8081,60.0001 -110.0000,60.0001 -110.0000,59.6564 -110.0000,59.5539 -110.0000,59.3201 -110.0000,59.3126 -110.0000,58.9740 -110.0000,58.9688 -110.0000,58.6251 -110.0000,58.3905 -110.0000,58.2813 -110.0000,57.9376 -110.0000,57.7394 -110.0000,57.5938 -110.0000,57.3796 -110.0000,57.2501 -110.0000,56.9063 -110.0000,56.7007 -110.0000,56.5625 -110.0000,56.2324 -110.0000,56.2206 -110.0000,56.2188 -110.0000,55.8751 -110.0000,55.7446 -110.0000,55.5313 -110.0000,55.1876 -110.0000,54.8438 -110.0000,54.8321 -110.0000,54.7748 -110.0000,54.7057 -110.0000,54.6311 -110.0000,54.5890 -110.0000,54.5000 -110.0000,54.5000 -110.0000,54.4821 -110.0000,54.4535 -110.0000,54.1563 -110.0000,53.8126 -110.0000,53.6086 -109.9927,53.6067 -109.9241,53.5772 -109.8433,53.5527 -109.7820,53.5969 -109.6914,53.6116 -109.6007,53.5552 -109.5860,53.4988 -109.5076,53.4253 -109.4561,53.4106 -109.3753,53.4229 -109.3140,53.4131 -109.2601,53.3837 -109.1915,53.3420 -109.1253,53.3347 -109.0886,53.2955 -109.0739,53.2612 -109.0126,53.2024 -108.8754,53.1092 -108.8509,53.0651 -108.8828,53.0088 -108.8852,52.9083 -108.9293,52.8520 -109.0151,52.8642 -109.0837,52.9083 -109.1572,52.9279 -109.2577,52.9230 -109.2920,52.8667 -109.3581,52.7638 -109.3998,52.7196 -109.5076,52.7074 -110.0000,52.7074 -110.0000,52.4376 -110.0000,52.0938 -110.0000,51.7501 -110.0000,51.4063 -110.0000,51.0626 -110.0000,50.9722 -110.0000,50.7188 -110.0000,50.4341 -110.0000,50.1129 -110.0000,49.7916 -109.9997,49.3921 -109.9994,48.9926 -109.9043,48.9926 -109.6845,48.9926 -109.4647,48.9926 -109.2449,48.9926 -109.0250,48.9926 -108.8052,48.9926 -108.5854,48.9926 -108.3656,48.9926 -108.1458,48.9926 -107.9260,48.9926 -107.7062,48.9926 -107.4864,48.9926 -107.2666,48.9926 -107.0468,48.9926 -106.8270,48.9926 -106.6072,48.9926 -106.3873,48.9926 -106.1675,48.9926 -105.9477,48.9926 -105.7279,48.9926 -105.5082,48.9926 -105.2883,48.9926 -105.0685,48.9926 -104.8487,48.9926 -104.6289,48.9926 -104.4090,48.9926 -104.1892,48.9926 -104.0476,48.9926 -104.0462,48.8023 -104.0463,48.6355 -104.0463,48.4686 -104.0463,48.3018 -104.0463,48.1349 -104.0463,47.9680 -104.0463,47.9672 -103.9629,47.9649 -103.9652,47.8855 -103.9360,47.8631 -103.8441,47.8542 -103.7993,47.8049 -103.7590,47.6636 -103.6984,47.6076 -103.6424,47.5942 -103.5901,47.5384 -103.5096,47.5314 -103.4903,47.5317 -103.4725,47.5364 -103.4560,47.5449 -103.4426,47.5552 -103.4346,47.5673 -103.4299,47.5811 -103.4229,47.5937 -103.4104,47.6043 -103.3946,47.6133 -103.3771,47.6192 -103.3580,47.6210 -103.2978,47.6177 -103.1805,47.6041 -103.1204,47.5997 -103.0999,47.5995 -103.0997,47.5995 -103.0824,47.6031 -103.0682,47.6124 -103.0577,47.6251 -103.0528,47.6380 -103.0560,47.6660 -103.0521,47.6744 -103.0501,47.6785 -103.0357,47.6903 -103.0192,47.6945 -103.0018,47.6901 -102.9837,47.6821 -102.9679,47.6744 -102.8522,47.6182 -102.7898,47.6128 -102.7750,47.6138 -102.7527,47.6050 -102.7379,47.5926 -102.6982,47.5911 -102.6906,47.5777 -102.6930,47.5610 -102.6873,47.5502 -102.6661,47.5500 -102.6377,47.5548 -102.6272,47.5620 -102.6140,47.5623 -102.5329,47.5349 -102.5079,47.5302 -102.4509,47.5299 -102.4346,47.5306 -102.4346,47.5306 -102.4219,47.5821 -102.3965,47.5958 -102.3613,47.6075 -102.3105,47.6173 -102.2754,47.6231 -102.2649,47.6234 -102.2650,47.6220 -102.2204,47.5865 -102.1923,47.5720 -102.1576,47.5656 -102.1562,47.5655 -102.0366,47.5727 -101.8920,47.5051 -101.8209,47.4949 -101.6943,47.5386 -101.6379,47.5276 -101.4362,47.5641 -101.3696,47.5245 -101.3684,47.5063 -101.3570,47.3280 -101.3438,47.2905 -101.2570,47.2649 -101.1989,47.2472 -101.0871,47.2966 -100.9652,47.1566 -100.8807,47.0410 -100.8822,47.0151 -100.9360,46.9828 -100.8265,46.8182 -100.7894,46.7171 -100.7782,46.6865 -100.6619,46.6344 -100.6136,46.6344 -100.5681,46.6344 -100.5691,46.6254 -100.5878,46.4505 -100.5900,46.4296 -100.6003,46.4269 -100.6199,46.4249 -100.6227,46.4209 -100.7422,46.4046 -100.7605,46.4056 -100.7760,46.4093 -100.7780,46.4098 -100.7799,46.4102 -100.7992,46.4120 -100.8577,46.4119 -100.8990,46.4145 -100.9179,46.4136 -100.9318,46.4069 -100.9416,46.3958 -100.9579,46.3693 -100.9691,46.3583 -101.0000,46.3417 -101.0327,46.3112 -101.0349,46.3091 -101.0486,46.2997 -101.0965,46.2762 -101.1067,46.2652 -101.1123,46.2544 -101.1169,46.2452 -101.1200,46.2391 -101.1267,46.2338 -101.1324,46.2302 -101.1393,46.2258 -101.1974,46.1978 -101.2057,46.1871 -101.2001,46.1716 -101.2073,46.1624 -101.2415,46.1531 -101.3135,46.1407 -101.3204,46.1251 -101.3292,46.1133 -101.3429,46.1038 -101.3594,46.0961 -101.3770,46.0910 -101.4155,46.0864 -101.4737,46.0593 -101.4744,46.0590 -101.3940,45.9420 -100.9243,45.9419 -100.4545,45.9419 -100.3857,45.9419 -100.3092,45.7079 -100.3835,45.6641 -100.4071,45.6502 -100.4166,45.6276 -100.4279,45.6154 -100.4327,45.5929 -100.4825,45.5515 -100.4827,45.5213 -100.4830,45.4733 -100.3742,45.4729 -100.3416,45.4728 -100.2739,45.3811 -100.3167,45.3179 -100.2602,45.2468 -100.2790,45.1589 -100.3482,45.0793 -100.3709,45.0532 -100.4227,44.9937 -100.4048,44.8977 -100.4187,44.8434 -100.5484,44.7601 -100.6468,44.7867 -100.6851,44.7970 -100.7242,44.8076 -100.7176,44.7709 -100.6212,44.7203 -100.6130,44.6914 -100.6401,44.5837 -100.5265,44.5474 -100.5318,44.5046 -100.5343,44.4845 -100.5392,44.4444 -100.5251,44.4458 -100.4553,44.4526 -100.4076,44.4572 -100.3992,44.4370 -100.3654,44.3555 -100.3625,44.3550 -100.5179,44.1684 -100.7701,44.1683 -101.0000,44.1683 -101.0469,44.1685 -101.0466,44.0799 -101.0469,44.0000 -101.0641,43.9949 -101.0639,43.8417 -101.1268,43.8434 -101.1832,43.8051 -101.2295,43.7854 -101.2282,43.6506 -101.2283,43.3893 -101.2281,43.3017 -101.2279,43.0003 -100.8354,43.0003 -100.8408,42.5442 -100.8461,42.0882 -100.8461,42.0079 -100.8425,41.7404 -101.0066,41.7407 -101.4065,41.7432 -101.4073,41.3954 -101.2697,41.3949 -101.2704,41.0474 -101.2500,41.0039 -101.2479,40.6978 -101.3453,40.6981 -101.3428,40.3505 -101.3234,40.3505 -101.3237,40.1770 -101.3240,40.0861 -101.3240,40.0750 -101.3243,40.0001 -101.6878,40.0001 -102.0513,40.0001 -102.0509,39.9063 -102.0506,39.8126 -102.0502,39.7189 -102.0498,39.6251 -102.0496,39.5682 -101.8073,39.5682 -101.4139,39.5683 -101.3891,39.5683 -101.3916,39.2222 -101.3917,39.1351 -101.4782,39.1348 -101.4846,38.7001 -101.5674,38.6996 -101.5675,38.2631 -101.5423,38.2632 -101.5420,37.9067 -101.5272,37.7362 -101.7847,37.7374 -102.0422,37.7385 -102.0421,37.7290 -102.0424,37.7291 -102.0421,37.6561 -102.0417,37.5624 -102.0414,37.4686 -102.0410,37.3749 -102.0406,37.2811 -102.0403,37.1873 -102.0399,37.0936 -102.0396,36.9998 -102.1362,36.9998 -102.2597,36.9998 -102.3832,36.9998 -102.5068,36.9998 -102.6303,36.9998 -102.7538,36.9998 -102.8773,36.9998 -103.0008,36.9998 -103.0007,36.8749 -103.0005,36.7500 -103.0004,36.6251 -103.0002,36.5002 -103.0421,36.4996 -103.0415,36.4816 -103.0417,36.4502 -103.0424,36.3112 -103.0432,36.1722 -103.0440,36.0332 -103.0447,35.8942 -103.0455,35.7552 -103.0462,35.6162 -103.0470,35.4772 -103.0477,35.3381 -103.0484,35.1991 -103.0492,35.0601 -103.0500,34.9211 -103.0507,34.7821 -103.0514,34.6430 -103.0522,34.5040 -103.0529,34.3650 -103.0537,34.2260 -103.0544,34.0870 -103.0551,33.9480 -103.0559,33.8089 -103.0567,33.6699 -103.0574,33.5308 -103.0582,33.3918 -103.0589,33.2529 -103.0615,32.7597 -103.0618,32.6968 -103.0626,32.5578 -103.0633,32.4187 -103.0641,32.2797 -103.0648,32.1407 -103.0656,32.0017 -103.2877,32.0016 -103.5099,32.0015 -103.7320,32.0015 -103.9195,32.0014 -103.9541,32.0013 -103.9708,32.0013 -104.1763,32.0012 -104.3984,32.0012 -104.6205,32.0011 -104.8427,32.0010 -104.9184,32.0010 -104.9183,32.0005 -104.9143,31.6108 -104.9103,31.2211 -104.9137,30.9424 -104.9172,30.6636 -104.9828,30.6207 -104.9727,30.6180 -104.9411,30.6140 -104.9343,30.6105 -104.9282,30.5995 -104.8982,30.5694 -104.8866,30.5519 -104.8840,30.5419 -104.8821,30.5209 -104.8797,30.5109 -104.8630,30.5024 -104.8593,30.4973 -104.8596,30.4911 -104.8652,30.4799 -104.8667,30.4730 -104.8645,30.4620 -104.8547,30.4487 -104.8524,30.4389 -104.8536,30.4240 -104.8550,30.4175 -104.8533,30.4121 -104.8449,30.4010 -104.8375,30.3941 -104.8243,30.3872 -104.8183,30.3805 -104.8160,30.3720 -104.8150,30.3606 -104.8129,30.3507 -104.8077,30.3464 -104.7888,30.3359 -104.7741,30.3116 -104.7617,30.2842 -104.7494,30.2645 -104.7422,30.2599 -104.7246,30.2522 -104.7152,30.2440 -104.6959,30.2084 -104.6816,30.1929 -104.6787,30.1704 -104.6805,30.1341 -104.6846,30.1111 -104.6986,30.0753 -104.7016,30.0553 -104.6991,30.0314 -104.6805,29.9765 -104.6801,29.9678 -104.6825,29.9521 -104.6805,29.9423 -104.6765,29.9368 -104.6635,29.9231 -104.6606,29.9184 -104.6563,29.9082 -104.6376,29.8880 -104.6238,29.8415 -104.6197,29.8331 -104.6012,29.8148 -104.5836,29.8026 -104.5703,29.7875 -104.5614,29.7454 -104.5437,29.7164 -104.5371,29.7021 -104.5352,29.6879 -104.5350,29.6778 -104.5308,29.6679 -104.5166,29.6543 -104.4694,29.6254 -104.4552,29.6134 -104.4521,29.6071 -104.4486,29.5977 -104.4440,29.5892 -104.4378,29.5854 -104.4304,29.5828 -104.3490,29.5376 -104.3385,29.5240 -104.3206,29.5323 -104.2928,29.5328 -104.2672,29.5266 -104.2510,29.5086 -104.2271,29.4930 -104.2187,29.4898 -104.2123,29.4847 -104.1945,29.4489 -104.1616,29.4168 -104.1398,29.4006 -104.1054,29.3857 -104.0573,29.3390 -104.0191,29.3203 -103.9281,29.2930 -103.8641,29.2814 -103.7942,29.2776 -103.7837,29.2748 -103.7742,29.2675 -103.7694,29.2575 -103.7777,29.2353 -103.7708,29.2298 -103.7591,29.2268 -103.7495,29.2230 -103.7025,29.1879 -103.6731,29.1736 -103.5850,29.1547 -103.5580,29.1562 -103.5502,29.1547 -103.5417,29.1488 -103.5382,29.1424 -103.5356,29.1351 -103.5297,29.1268 -103.4785,29.0821 -103.4357,29.0611 -103.4236,29.0579 -103.4146,29.0524 -103.3866,29.0288 -103.3721,29.0237 -103.3605,29.0298 -103.3517,29.0394 -103.3426,29.0412 -103.3305,29.0237 -103.3248,29.0268 -103.3127,29.0250 -103.3131,29.0247 -103.3508,28.9575 -103.3923,28.8835 -103.4746,28.7440 -103.5579,28.6049 -103.6398,28.4652 -103.6702,28.4123 -103.7006,28.3594 -103.7309,28.3065 -103.7613,28.2537 -103.8032,28.1823 -103.8451,28.1109 -103.8876,28.0399 -103.9313,27.9697 -103.9635,27.9189 -103.9553,27.8873 -103.9496,27.8653 -103.9440,27.8432 -103.9384,27.8211 -103.9268,27.7758 -103.9153,27.7306 -103.9037,27.6853 -103.8922,27.6401 -103.8405,27.4474 -103.7887,27.2546 -103.7370,27.0619 -103.6858,26.8691 -103.6712,26.8128 -103.6565,26.7565 -103.6419,26.7002 -103.6273,26.6439 -103.7058,26.6730 -103.7844,26.7021 -103.8630,26.7313 -103.9415,26.7604 -103.9670,26.7693 -103.9884,26.7747 -104.0104,26.7769 -104.0372,26.7761 -104.0756,26.7747 -104.1156,26.7731 -104.1550,26.7677 -104.1912,26.7549 -104.2346,26.7232 -104.2717,26.6818 -104.3054,26.6360 -104.3389,26.5917 -104.3840,26.5366 -104.4293,26.4816 -104.4745,26.4265 -104.5198,26.3715 -104.5570,26.3405 -104.5978,26.3510 -104.6376,26.3817 -104.6721,26.4115 -104.7234,26.4444 -104.7768,26.4695 -104.8333,26.4868 -104.8940,26.4962 -104.9168,26.4996 -104.9414,26.5036 -104.9658,26.5057 -104.9880,26.5036 -105.0017,26.4913 -105.0135,26.4719 -105.0264,26.4595 -105.0435,26.4682 -105.0575,26.4860 -105.0806,26.5153 -105.1035,26.5420 -105.1168,26.5524 -105.1449,26.5397 -105.1730,26.5270 -105.2012,26.5144 -105.2293,26.5017 -105.2495,26.4910 -105.2792,26.4753 -105.3084,26.4621 -105.3275,26.4595 -105.3563,26.4738 -105.3850,26.4880 -105.4138,26.5023 -105.4425,26.5165 -105.4709,26.5306 -105.4993,26.5447 -105.5276,26.5587 -105.5559,26.5728 -105.5782,26.5866 -105.5976,26.6032 -105.6154,26.6217 -105.6336,26.6412 -105.6502,26.6636 -105.6640,26.6852 -105.6804,26.6989 -105.7048,26.6977 -105.7295,26.6922 -105.7561,26.6913 -105.7829,26.6924 -105.8085,26.6933 -105.8494,26.7146 -105.8893,26.7414 -105.9283,26.7703 -105.9663,26.7976 -105.9818,26.8076 -105.9972,26.8177 -106.0125,26.8280 -106.0275,26.8386 -106.0336,26.8316 -106.0397,26.8246 -106.0455,26.8174 -106.0506,26.8096 -106.0605,26.7907 -106.0715,26.7724 -106.0823,26.7539 -106.0920,26.7349 -106.1027,26.7480 -106.1146,26.7610 -106.1286,26.7677 -106.1452,26.7623 -106.1579,26.7421 -106.1613,26.7138 -106.1606,26.6839 -106.1610,26.6586 -106.1620,26.6478 -106.1633,26.6337 -106.1657,26.6205 -106.1698,26.6126 -106.1856,26.6023 -106.2055,26.5889 -106.2213,26.5742 -106.2248,26.5597 -106.2169,26.5395 -106.2092,26.5194 -106.2017,26.4992 -106.1947,26.4787 -106.1910,26.4582 -106.1957,26.4453 -106.2080,26.4368 -106.2272,26.4292 -106.2708,26.4172 -106.3144,26.4051 -106.3579,26.3931 -106.4015,26.3810 -106.4322,26.3618 -106.4373,26.3335 -106.4273,26.3013 -106.4124,26.2703 -106.3964,26.2375 -106.3815,26.2031 -106.3735,26.1676 -106.3783,26.1315 -106.3847,26.1113 -106.3912,26.0894 -106.3993,26.0683 -106.4104,26.0507 -106.4265,26.0391 -106.4434,26.0367 -106.4612,26.0381 -106.4799,26.0376 -106.5121,26.0217 -106.5249,25.9928 -106.5268,25.9566 -106.5268,25.9187 -106.5283,25.8914 -106.5297,25.8641 -106.5311,25.8368 -106.5326,25.8095 -106.5362,25.7920 -106.5445,25.7799 -106.5567,25.7697 -106.5724,25.7579 -106.5768,25.7542 -106.5812,25.7505 -106.5856,25.7468 -106.5900,25.7431 -106.6089,25.7280 -106.6276,25.7129 -106.6464,25.6978 -106.6652,25.6827 -106.6821,25.6675 -106.7011,25.6496 -106.7209,25.6332 -106.7404,25.6225 -106.7592,25.6203 -106.7819,25.6228 -106.8045,25.6270 -106.8235,25.6302 -106.8519,25.6331 -106.8802,25.6359 -106.9086,25.6387 -106.9369,25.6416 -106.9533,25.6260 -106.9702,25.6100 -106.9853,25.5928 -106.9965,25.5735 -107.0092,25.5522 -107.0258,25.5353 -107.0440,25.5194 -107.0620,25.5015 -107.0827,25.4653 -107.0961,25.4203 -107.1047,25.3733 -107.1108,25.3308 -107.1188,25.2850 -107.1257,25.2374 -107.1263,25.1899 -107.1153,25.1445 -107.1003,25.1028 -107.0877,25.0596 -107.0742,25.0170 -107.0565,24.9769 -107.0506,24.9595 -107.0442,24.9391 -107.0364,24.9197 -107.0260,24.9051 -107.0116,24.8967 -106.9947,24.8918 -106.9777,24.8870 -106.9625,24.8788 -106.9542,24.8668 -106.9527,24.8538 -106.9533,24.8400 -106.9515,24.8260 -106.9435,24.8094 -106.9324,24.7995 -106.9178,24.7944 -106.8994,24.7919 -106.8835,24.7919 -106.8685,24.7922 -106.8546,24.7892 -106.8420,24.7791 -106.8308,24.7616 -106.8218,24.7453 -106.8101,24.7320 -106.7908,24.7233 -106.7564,24.7035 -106.7372,24.6709 -106.7220,24.6336 -106.6996,24.5999 -106.6860,24.5880 -106.6744,24.5780 -106.6644,24.5661 -106.6559,24.5486 -106.6506,24.5359 -106.6446,24.5238 -106.6382,24.5118 -106.6315,24.5000 -106.6218,24.4819 -106.6153,24.4661 -106.6114,24.4493 -106.6097,24.4286 -106.6099,24.4120 -106.6097,24.3961 -106.6061,24.3814 -106.5959,24.3680 -106.5787,24.3524 -106.5614,24.3364 -106.5437,24.3208 -106.5253,24.3065 -106.5064,24.2938 -106.4917,24.2873 -106.4762,24.2856 -106.4547,24.2874 -106.4379,24.2881 -106.4210,24.2880 -106.4046,24.2896 -106.3891,24.2955 -106.3760,24.3068 -106.3651,24.3212 -106.3546,24.3362 -106.3427,24.3493 -106.3092,24.3744 -106.2740,24.3909 -106.2363,24.3968 -106.1956,24.3898 -106.1840,24.3852 -106.1731,24.3793 -106.1626,24.3726 -106.1525,24.3653 -106.1278,24.3447 -106.1029,24.3243 -106.0781,24.3038 -106.0533,24.2833 -106.0350,24.2609 -106.0209,24.2319 -106.0092,24.2013 -105.9987,24.1743 -105.9873,24.1482 -105.9761,24.1223 -105.9636,24.0972 -105.9484,24.0733 -105.9297,24.0562 -105.9094,24.0515 -105.8869,24.0555 -105.8619,24.0644 -105.8717,24.0310 -105.8865,24.0010 -105.9025,23.9716 -105.9161,23.9402 -105.9223,23.9020 -105.9197,23.8613 -105.9129,23.8205 -105.9067,23.7820 -105.9043,23.7649 -105.9020,23.7477 -105.8997,23.7306 -105.8974,23.7135 -105.8921,23.6968 -105.8823,23.6810 -105.8717,23.6646 -105.8640,23.6468 -105.8593,23.6250 -105.8532,23.6014 -105.8430,23.5805 -105.8260,23.5666 -105.8117,23.5602 -105.7966,23.5558 -105.7812,23.5529 -105.7656,23.5511 -105.7599,23.5282 -105.7436,23.5076 -105.7257,23.4870 -105.7153,23.4641 -105.7173,23.4547 -105.7220,23.4462 -105.7233,23.4382 -105.7153,23.4307 -105.7071,23.4233 -105.7044,23.4137 -105.7056,23.4030 -105.7093,23.3923 -105.7134,23.3775 -105.7085,23.3663 -105.6996,23.3558 -105.6915,23.3436 -105.6885,23.3314 -105.6888,23.3197 -105.6895,23.3083 -105.6878,23.2972 -105.6779,23.2824 -105.6633,23.2731 -105.6475,23.2648 -105.6339,23.2533 -105.6295,23.2449 -105.6264,23.2360 -105.6221,23.2276 -105.6139,23.2210 -105.5991,23.2102 -105.5822,23.1942 -105.5652,23.1771 -105.5501,23.1630 -105.5154,23.1460 -105.4754,23.1426 -105.4333,23.1460 -105.3923,23.1498 -105.3914,23.1206 -105.3905,23.0915 -105.3896,23.0625 -105.3886,23.0333 -105.3370,23.0347 -105.2831,23.0372 -105.2296,23.0374 -105.1788,23.0316 -105.1315,23.0170 -105.0830,22.9952 -105.0353,22.9711 -104.9907,22.9493 -104.9699,22.9383 -104.9559,22.9285 -104.9455,22.9156 -104.9353,22.8955 -104.9236,22.8691 -104.9119,22.8429 -104.9003,22.8166 -104.8886,22.7903 -104.8973,22.7780 -104.9199,22.7569 -104.9444,22.7357 -104.9588,22.7235 -104.9775,22.7057 -104.9886,22.6916 -104.9942,22.6751 -104.9966,22.6495 -104.9990,22.6255 -105.0022,22.5934 -105.0026,22.5629 -104.9967,22.5435 -104.9707,22.5417 -104.9424,22.5562 -104.9156,22.5770 -104.8942,22.5940 -104.8642,22.6145 -104.8343,22.6351 -104.8043,22.6557 -104.7743,22.6762 -104.7537,22.6740 -104.7215,22.6584 -104.6890,22.6391 -104.6679,22.6256 -104.6592,22.6166 -104.6536,22.6045 -104.6500,22.5911 -104.6467,22.5783 -104.6381,22.5437 -104.6290,22.5105 -104.6138,22.4815 -104.5874,22.4596 -104.5623,22.4445 -104.5335,22.4274 -104.5041,22.4156 -104.4772,22.4168 -104.4415,22.4312 -104.4059,22.4458 -104.3703,22.4604 -104.3346,22.4749 -104.3290,22.4359 -104.3234,22.3968 -104.3176,22.3578 -104.3114,22.3191 -104.3140,22.3055 -104.3186,22.2916 -104.3243,22.2778 -104.3298,22.2644 -104.3426,22.2314 -104.3555,22.1983 -104.3684,22.1653 -104.3812,22.1323 -104.3932,22.1040 -104.3987,22.0854 -104.3931,22.0698 -104.3722,22.0501 -104.3320,22.0176 -104.2926,21.9850 -104.2538,21.9514 -104.2160,21.9163 -104.1846,21.8847 -104.1550,21.8525 -104.1266,21.8191 -104.0984,21.7845 -104.1023,21.7705 -104.1138,21.7424 -104.1266,21.7127 -104.1344,21.6939 -104.1393,21.6780 -104.1441,21.6621 -104.1481,21.6461 -104.1509,21.6295 -104.1581,21.5968 -104.1707,21.5697 -104.1881,21.5449 -104.2103,21.5192 -104.1445,21.4814 -104.0786,21.4446 -104.0122,21.4090 -103.9521,21.3786 -103.9447,21.3752 -103.9565,21.3652 -103.9623,21.3470 -103.9626,21.3044 -103.9686,21.2871 -103.9826,21.2705 -104.0397,21.2198 -104.0593,21.2093 -104.0824,21.2051 -104.1601,21.2040 -104.1959,21.1989 -104.2017,21.1986 -104.2150,21.1814 -104.2241,21.1693 -104.2222,21.1513 -104.2142,21.1272 -104.2099,21.1097 -104.2071,21.0902 -104.2053,21.0705 -104.2037,21.0521 -104.2038,21.0482 -104.2039,21.0442 -104.2042,21.0403 -104.2044,21.0363 -104.2063,21.0150 -104.2082,20.9933 -104.2129,20.9725 -104.2230,20.9540 -104.2283,20.9448 -104.2334,20.9354 -104.2387,20.9261 -104.2441,20.9168 -104.2599,20.8885 -104.2711,20.8615 -104.2785,20.8329 -104.2829,20.7997 -104.2829,20.7837 -104.2829,20.7677 -104.2825,20.7516 -104.2817,20.7357 -104.2812,20.7286 -104.2818,20.7215 -104.2834,20.7146 -104.2856,20.7080 -104.3061,20.7202 -104.3308,20.7317 -104.3528,20.7441 -104.3653,20.7591 -104.3780,20.7796 -104.3976,20.7949 -104.4203,20.8068 -104.4423,20.8177 -104.4625,20.8304 -104.4780,20.8442 -104.4909,20.8604 -104.5033,20.8808 -104.5229,20.9066 -104.5439,20.9178 -104.5684,20.9202 -104.5984,20.9198 -104.6210,20.9231 -104.6394,20.9335 -104.6557,20.9481 -104.6714,20.9640 -104.6802,20.9704 -104.6884,20.9775 -104.6962,20.9846 -104.7043,20.9916 -104.7183,21.0030 -104.7279,21.0097 -104.7392,21.0142 -104.7582,21.0188 -104.7681,21.0202 -104.7779,21.0206 -104.7877,21.0199 -104.7973,21.0176 -104.8400,20.9909 -104.8809,20.9579 -104.9243,20.9312 -104.9746,20.9231 -104.9835,20.9245 -104.9940,20.9262 -105.0044,20.9269 -105.0126,20.9251 -105.0177,20.9217 -105.0223,20.9185 -105.0273,20.9166 -105.0334,20.9172 -105.0371,20.9223 -105.0390,20.9307 -105.0441,20.9371 -105.0574,20.9368 -105.0946,20.9181 -105.1262,20.8907 -105.1528,20.8577 -105.1749,20.8229 -105.1970,20.7913 -105.2670,20.6992 -105.4765,20.6654 -105.7965,20.6567 -105.8450,20.5518 -105.8963,20.4409 -105.8982,20.3740 -105.8798,20.3017 -105.7648,20.1299 -105.7069,19.9256 -105.5420,19.6870 -105.3064,19.4266 -105.1969,19.2587 -105.1134,19.1735 -104.9555,19.0794 -104.5714,18.9253 -104.3989,18.8199 -104.1638,18.7457 -104.0863,18.7079 -103.9110,18.5388 -103.8463,18.4393 -103.7445,18.3487 -103.6437,18.2102 -103.5803,18.1559 -103.4208,18.0898 -103.1107,17.9971 -102.7773,17.8680 -102.6037,17.8436 -102.2091,17.7390 -101.9773,17.7499 -101.9057,17.6941 -101.7423,17.4963 -101.5431,17.3571 -101.3114,17.2475 -101.2024,17.1278 -101.1435,17.0890 -100.7990,16.9718 -100.4545,16.8545 -100.2447,16.7661 -100.1380,16.7484 -99.9232,16.5978 -99.7631,16.5248 -99.4845,16.4739 -99.2060,16.4231 -98.9732,16.3470 -98.8436,16.3257 -98.7955,16.2941 -98.6255,16.1275 -98.3744,16.0448 -98.1232,15.9620 -98.0553,15.9229 -97.9515,15.8297 -97.8675,15.7870 -97.7465,15.7608 -97.5169,15.7417 -97.5170,15.2621 -97.5171,14.7825 -97.5172,14.3029 -97.5172,13.8233 -97.5173,13.3437 -97.5174,12.8641 -97.5175,12.3844 -97.5176,11.9048 -97.5177,11.4252 -97.5178,10.9456 -97.5179,10.4911 -97.5180,10.0365 -97.5181,9.5820 -97.5182,9.1275 -97.5182,8.6729 -97.5183,8.2184 -97.5184,7.7638 -97.5185,7.3093 -97.5186,6.8547 -97.5187,6.4002 -97.5188,5.9456 -97.5189,5.4911 -97.5189,5.0365 -97.5190,4.5820 -97.5191,4.1275 -97.5192,3.6729 -97.5193,3.2184 -97.5194,2.7638 -97.5195,2.3093 -97.5196,1.8547 -97.5196,1.4002 -97.5197,0.9456 -97.5198,0.4911 -97.5199,0.0365 -97.5200,-0.4180 -97.5201,-0.8725 -97.5202,-1.3271 -97.5203,-1.7816 -97.5204,-2.2362 -97.5204,-2.6907 -97.5205,-3.1453 -97.5206,-3.5998 -97.5207,-4.0544 -97.5208,-4.5089 -97.5209,-4.9635 -97.5210,-5.4180 -97.5211,-5.8725 -97.5211,-6.3271 -97.5212,-6.7816 -97.5213,-7.2362 -97.5214,-7.6907 -97.5215,-8.1453 -97.5216,-8.5998 -97.5217,-9.0544 -97.5218,-9.5544 -97.5219,-10.0544 -97.5220,-10.5544 -97.5221,-11.0544 -97.5222,-11.5544 -97.5223,-12.0544 -97.5223,-12.5544 -97.5224,-13.0544 -97.5225,-13.5544 -97.5226,-14.0544 -97.5227,-14.4919 -97.5228,-14.9294 -97.5229,-15.3669 -97.5230,-15.8044 -97.5231,-16.2419 -97.5231,-16.6794 -97.5232,-17.1169 -97.5233,-17.5544 -97.5234,-18.0507 -97.5234,-18.5471 -97.5235,-19.0435 -97.5235,-19.5399 -97.5235,-20.0362 -97.5236,-20.5326 -97.5236,-21.0290 -97.5237,-21.5254 -97.5237,-22.0217 -97.5238,-22.5181 -97.5238,-23.0145 -97.5239,-23.5109 -97.5239,-24.0072 -97.5240,-24.5036 -97.5240,-25.0000 -97.9371,-25.0000 -98.3502,-25.0001 -98.7632,-25.0001 -99.1763,-25.0002 -99.5894,-25.0002 -100.0745,-25.0003 -100.5596,-25.0004 -101.0447,-25.0004 -101.5298,-25.0005 -102.0149,-25.0005 -102.5000,-25.0006 -102.9546,-25.0006 -103.4091,-25.0006 -103.8637,-25.0006 -104.3182,-25.0006 -104.7727,-25.0006 -105.2273,-25.0006 -105.6818,-25.0006 -106.1364,-25.0006 -106.5909,-25.0006 -107.0455,-25.0006 -107.5000,-25.0006 -108.0000,-25.0006 -108.5000,-25.0006 -109.0000,-25.0006 -109.5000,-25.0006 -110.0000,-25.0006 -110.5000,-25.0006 -111.0000,-25.0006 -111.0000,-25.4006 -111.0000,-25.8006 -111.0000,-26.2006 -111.0000,-26.6006 -111.0000,-27.0006 -111.0000,-27.5006 -111.0000,-28.0006 -111.0000,-28.5006 -111.0000,-29.0006 -110.5001,-29.0006 -110.0001,-29.0006 -109.5002,-29.0006 -109.0003,-29.0006 -108.5003,-29.0006 -108.0004,-29.0006 -107.5005,-29.0006 -107.0005,-29.0006 -106.5006,-29.0006 -106.0007,-29.0006 -106.0000,-29.0006 -105.5001,-29.0006 -105.0002,-29.0006 -104.5002,-29.0006 -104.0003,-29.0006 -103.5004,-29.0006 -103.0004,-29.0006 -102.5005,-29.0006 -102.0006,-29.0006 -101.5007,-29.0006 -101.0007,-29.0006 -101.0000,-29.0006 -100.5037,-29.0005 -100.0074,-29.0004 -99.5111,-29.0003 -99.0149,-29.0002 -98.5186,-29.0002 -98.0223,-29.0001 -97.5260,-29.0000 -97.5260,-29.0006 -97.5261,-29.4802 -97.5262,-29.9598 -97.5263,-30.4394 -97.5263,-30.9190 -97.5264,-31.3986 -97.5265,-31.8783 -97.5266,-32.3579 -97.5267,-32.8375 -97.5268,-33.3171 -97.5269,-33.7967 -97.5270,-34.2764 -97.5270,-34.7560 -97.5271,-35.2356 -97.5272,-35.7152 -97.5273,-36.1948 -97.5274,-36.6744 -97.5275,-37.1541 -97.5276,-37.6337 -97.5276,-38.1133 -97.5277,-38.5929 -97.5279,-39.0475 -97.5280,-39.5020 -97.5281,-39.9565 -97.5282,-40.4111 -97.5283,-40.8656 -97.5285,-41.3202 -97.5286,-41.7747 -97.5287,-42.2293 -97.5288,-42.6838 -97.5289,-43.1384 -97.5291,-43.5929 -97.5292,-44.0475 -97.5293,-44.5020 -97.5294,-44.9565 -97.5295,-45.4111 -97.5297,-45.8656 -97.5298,-46.3202 -97.5299,-46.7747 -97.5300,-47.2293 -97.5301,-47.6838 -97.5303,-48.1384 -97.5304,-48.5929 -97.5305,-49.0475 -97.5306,-49.5020 -97.5307,-49.9565 -97.5309,-50.4111 -97.5310,-50.8656 -97.5311,-51.3202 -97.5312,-51.7747 -97.5314,-52.2293 -97.5315,-52.6838 -97.5316,-53.1384 -97.5317,-53.5929 -97.5318,-54.0475 -97.5320,-54.5020 -97.5321,-54.9565 -97.5322,-55.4111 -97.5323,-55.8656 -97.5324,-56.3202 -97.5326,-56.7747 -97.5327,-57.2293 -97.5328,-57.6838 -97.5329,-58.1384 -97.5330,-58.5929 -97.5332,-59.0475 -97.5333,-59.5020 -97.5334,-59.9565 -97.5335,-60.4111 -97.5336,-60.8656 -97.5338,-61.3202 -97.5339,-61.7747 -97.5340,-62.2293 -97.5341,-62.6838 -97.5342,-63.1384 -97.5344,-63.5929 -97.5345,-64.0475 -97.5346,-64.5020 -97.5347,-64.9565 -97.5349,-65.4111 -97.5350,-65.8656 -97.5351,-66.3202 -97.5352,-66.7747 -97.5353,-67.2293 -97.5355,-67.6838 -97.5356,-68.1384 -97.5357,-68.5929 -97.5358,-69.0681 -97.5360,-69.5433 -97.5361,-70.0185 -97.5363,-70.4339 -97.5366,-70.8493 -97.5368,-71.2647 -97.5371,-71.6801 -97.6235,-71.6774 -97.6827,-71.6717 -97.9644,-71.6196 -98.2461,-71.5675 -98.3729,-71.5537 -98.5202,-71.5481 -98.8832,-71.5519 -99.0828,-71.5670 -99.2449,-71.5959 -99.4918,-71.6691 -99.5746,-71.6838 -99.6007,-71.6823 -99.7807,-71.6454 -99.7876,-71.6440 -99.9473,-71.6235 -100.1266,-71.6135 -100.3135,-71.6168 -100.5264,-71.6376 -100.7362,-71.6828 -100.7925,-71.6903 -101.2617,-71.7163 -101.7309,-71.7423 -102.2001,-71.7683 -102.3777,-71.7876 -102.5620,-71.8216 -102.7201,-71.8617 -102.8188,-71.8940 -102.8967,-71.9316 -102.9613,-71.9815 -102.9955,-72.0349 -103.0005,-72.0897 -102.9772,-72.1439 -102.9269,-72.1956 -102.8356,-72.2502 -102.7146,-72.2952 -102.6335,-72.3163 -102.7006,-72.5105 -102.8989,-72.5022 -103.0853,-72.4998 -103.2827,-72.5135 -103.4923,-72.5454 -103.7533,-72.5991 -103.9029,-72.6510 -104.0220,-72.7212 -104.1242,-72.8148 -104.1319,-72.8695 -104.0784,-72.9516 -104.0834,-72.9607 -104.1164,-72.9556 -104.1654,-72.9362 -104.3630,-72.8294 -104.5096,-72.7829 -104.6203,-72.7609 -104.7545,-72.7439 -104.8988,-72.7344 -105.0377,-72.7327 -105.1761,-72.7386 -105.3173,-72.7537 -105.4460,-72.7767 -105.5611,-72.8068 -105.6747,-72.8484 -105.7692,-72.8959 -105.8328,-72.9434 -105.8634,-72.9878 -105.8593,-73.0508 -105.8274,-73.1120 -105.7705,-73.1728 -105.6885,-73.2311 -105.5818,-73.2851 -105.4706,-73.3266 -105.3413,-73.3623 -105.1766,-73.3940 -105.0223,-73.4128 -104.8427,-73.4238 -104.6858,-73.4248 -104.5108,-73.4165 -104.3850,-73.4040 -104.2468,-73.3830 -103.9217,-73.3056 -103.8541,-73.2947 -103.8325,-73.2967 -103.5917,-73.3615 -103.4582,-73.4345 -103.5835,-73.4819 -103.6505,-73.5164 -103.6991,-73.5569 -103.7232,-73.5999 -103.7121,-73.7111 -103.6339,-73.7863 -103.6686,-73.8435 -103.6667,-73.8939 -103.6459,-73.9287 -103.5989,-73.9709 -103.5141,-74.0183 -103.4217,-74.0539 -103.2876,-74.0906 -103.1585,-74.1150 -103.0452,-74.1298 -102.9238,-74.1399 -102.6252,-74.1467 -102.4632,-74.1561 -102.3133,-74.1709 -102.1851,-74.1920 -102.1706,-74.2199 -102.1885,-74.2634 -102.1852,-74.3278 -102.2397,-74.4730 -102.2125,-74.5300 -102.1148,-74.5913 -101.9435,-74.6512 -101.7834,-74.6837 -101.4821,-74.7245 -101.4119,-74.7410 -101.3605,-74.7598 -101.3178,-74.7936 -101.3266,-74.8290 -101.3779,-74.8628 -101.4612,-74.8802 -101.5320,-74.8825 -101.7491,-74.8755 -101.8942,-74.8779 -102.0557,-74.8884 -102.2278,-74.9095 -102.3965,-74.9023 -102.7108,-74.9079 -103.1477,-74.8821 -103.3599,-74.8785 -103.5730,-74.8910 -103.8390,-74.9238 -104.0853,-74.9141 -104.4736,-74.9211 -104.6497,-74.9050 -104.7907,-74.9000 -105.1449,-74.9027 -105.3193,-74.9145 -105.4921,-74.9379 -105.6311,-74.9674 -105.7917,-75.0142 -105.9417,-75.0260 -106.0560,-75.0396 -106.2532,-75.0803 -106.5663,-75.1084 -106.6496,-75.1119 -106.8380,-75.1039 -107.0810,-75.1020 -107.2725,-75.1073 -107.5335,-75.1075 -107.6983,-75.0777 -107.8425,-75.0613 -108.2492,-75.0328 -108.6560,-75.0044 -109.0628,-74.9759 -109.4695,-74.9475 -109.5744,-74.9369 -109.6305,-74.9249 -109.6465,-74.9143 -109.6411,-74.9017 -109.5429,-74.8512 -109.4890,-74.8075 -109.4628,-74.7646 -109.4532,-74.7017 -109.3628,-74.6293 -109.3400,-74.6003 -109.3246,-74.5253 -109.3561,-74.4492 -109.3926,-74.4099 -109.4762,-74.3557 -109.5418,-74.2935 -109.7789,-74.1753 -109.8891,-74.1330 -110.0084,-74.0982 -110.1329,-74.0718 -110.2734,-74.0523 -110.4800,-74.0377 -110.7548,-74.0322 -110.9850,-74.0015 -111.3882,-73.9714 -111.6182,-73.9663 -111.8257,-73.9754 -111.9674,-73.9905 -112.1103,-74.0134 -112.2922,-74.0517 -112.4529,-74.0924 -112.5030,-74.1107 -112.5030,-73.6547 -112.5030,-73.1987 -112.5030,-72.7427 -112.5030,-72.2867 -112.5030,-71.8307 -112.5029,-71.3747 -112.5029,-70.9187 -112.5029,-70.4627 -112.5029,-70.0067 -112.5029,-69.5507 -112.5029,-69.0962 -112.5029,-68.6417 -112.5029,-68.1871 -112.5029,-67.7326 -112.5029,-67.2780 -112.5028,-66.8235 -112.5028,-66.3689 -112.5028,-65.9144 -112.5028,-65.4598 -112.5028,-65.0053 -112.5028,-64.5507 -112.5028,-64.0507 -112.5028,-63.5507 -112.5028,-63.0507 -112.5028,-62.5507 -112.5027,-62.0507 -112.5027,-61.5507 -112.5027,-61.0507 -112.5027,-60.5507 -112.5027,-60.0507 -112.5027,-59.5507 -112.5027,-59.0757 -112.5027,-58.6007 -112.5027,-58.1257 -112.5027,-57.6507 -112.5026,-57.1757 -112.5026,-56.7007 -112.5026,-56.2257 -112.5026,-55.7507 -112.5026,-55.2962 -112.5026,-54.8417 -112.5026,-54.3871 -112.5026,-53.9326 -112.5026,-53.4780 -112.5026,-53.0235 -112.5025,-52.5689 -112.5025,-52.1144 -112.5025,-51.6598 -112.5025,-51.2053 -112.5025,-50.7507 -112.5025,-50.2962 -112.5025,-49.8417 -112.5025,-49.3871 -112.5025,-48.9326 -112.5025,-48.4780 -112.5025,-48.0235 -112.5024,-47.5689 -112.5024,-47.1144 -112.5024,-46.6598 -112.5024,-46.2053 -112.5024,-45.7507 -112.5024,-45.2962 -112.5024,-44.8417 -112.5024,-44.3871 -112.5024,-43.9326 -112.5024,-43.4780 -112.5023,-43.0235 -112.5023,-42.5689 -112.5023,-42.1144 -112.5023,-41.6598 -112.5023,-41.2053 -112.5023,-40.7507 -112.5023,-40.2962 -112.5023,-39.8417 -112.5023,-39.3871 -112.5023,-38.9326 -112.5022,-38.4780 -112.5022,-38.0235 -112.5022,-37.5689 -112.5022,-37.1144 -112.5022,-36.6598 -112.5022,-36.2053 -112.5022,-35.7507 -112.5022,-35.2507 -112.5022,-34.7507 -112.5022,-34.2507 -112.5021,-33.7507 -112.5021,-33.2507 -112.5021,-32.7507 -112.5021,-32.2507 -112.5021,-31.7507 -112.5021,-31.2507 -112.5021,-30.7507 -112.5021,-30.2962 -112.5021,-29.8417 -112.5021,-29.3871 -112.5020,-28.9326 -112.5020,-28.4780 -112.5020,-28.0235 -112.5020,-27.5689 -112.5020,-27.1144 -112.5020,-26.6598 -112.5020,-26.2053 -112.5020,-25.7507 -112.5020,-25.3107 -112.5020,-24.8707 -112.5019,-24.4307 -112.5019,-23.9907 -112.5019,-23.5507 -112.5019,-23.0962 -112.5019,-22.6417 -112.5019,-22.1871 -112.5019,-21.7326 -112.5019,-21.2780 -112.5019,-20.8235 -112.5019,-20.3689 -112.5018,-19.9144 -112.5018,-19.4598 -112.5018,-19.0053 -112.5018,-18.5507 -112.5018,-18.0962 -112.5018,-17.6417 -112.5018,-17.1871 -112.5018,-16.7326 -112.5018,-16.2780 -112.5018,-15.8235 -112.5017,-15.3689 -112.5017,-14.9144 -112.5017,-14.4598 -112.5017,-14.0053 -112.5017,-13.5507 -112.5017,-13.0962 -112.5017,-12.6417 -112.5017,-12.1871 -112.5017,-11.7326 -112.5017,-11.2780 -112.5016,-10.8235 -112.5016,-10.3689 -112.5016,-9.9144 -112.5016,-9.4598 -112.5016,-9.0053 -112.5016,-8.5507 -112.5016,-8.1174 -112.5016,-7.6841 -112.5016,-7.2507 -112.5016,-6.8174 -112.5015,-6.3841 -112.5015,-5.9507 -112.5015,-5.4962 -112.5015,-5.0417 -112.5015,-4.5871 -112.5015,-4.1326 -112.5015,-3.6780 -112.5015,-3.2235 -112.5015,-2.7689 -112.5015,-2.3144 -112.5015,-1.8598 -112.5014,-1.4053 -112.5014,-0.9507 -112.5014,-0.4962 -112.5014,-0.0417 -112.5014,0.4129 -112.5014,0.8674 -112.5014,1.3220 -112.5014,1.7765 -112.5014,2.2311 -112.5014,2.6856 -112.5013,3.1402 -112.5013,3.5947 -112.5013,4.0493 -112.5013,4.5438 -112.5013,5.0383 -112.5013,5.5328 -112.5013,6.0274 -112.5013,6.5219 -112.5013,7.0164 -112.5012,7.5109 -112.5012,8.0055 -112.5012,8.5000 -112.0428,8.5000 -111.5844,8.5000 -111.1259,8.5000 -110.6675,8.5000 -110.2090,8.5000 -109.7506,8.5000 -109.2922,8.5000 -108.8337,8.5000 -108.3753,8.5000 -107.9169,8.5000 -107.4584,8.5000 -107.0000,8.5000 -107.0000,8.9286 -107.0000,9.3571 -107.0000,9.7857 -107.0000,10.2143 -107.0000,10.6429 -107.0000,11.0714 -107.0000,11.5000 -107.4584,11.5000 -107.9169,11.5000 -108.3753,11.5000 -108.8337,11.5000 -109.2922,11.5000 -109.7506,11.5000 -110.2090,11.5000 -110.6674,11.5000 -111.1259,11.5000 -111.5843,11.5000 -112.0427,11.5000 -112.5012,11.5000 -112.5012,11.9249 -112.5011,12.3498 -112.5011,12.7746 -112.5011,13.1995 -112.5011,13.6244 -112.5011,14.0493 -112.5011,14.5038 -112.5011,14.9583 -112.5011,15.4129 -112.5011,15.8674 -112.5011,16.3220 -112.5010,16.7765 -112.5010,17.2311 -112.5010,17.6856 -112.5010,18.1402 -112.5010,18.5947 -112.5010,19.0493 -112.5010,19.5038 -112.5010,19.9583 -112.5010,20.4129 -112.5010,20.8674 -112.5010,21.3220 -112.5009,21.7765 -112.5009,22.2311 -112.5009,22.6856 -112.5009,23.1402 -112.5009,23.5947 -112.5009,24.0493 -112.9902,24.0496 -113.4795,24.0500 -113.9688,24.0504 -114.4581,24.0507 -114.9475,24.0511 -115.4368,24.0515 -115.9261,24.0518 -116.4154,24.0522 -116.9047,24.0526 -116.9040,24.5031 -116.9034,24.9536 -116.9027,25.4041 -116.9021,25.8546 -116.9014,26.3052 -116.9007,26.7557 -116.9001,27.2062 -116.8994,27.6567 -116.8988,28.1072 -116.8981,28.5577 -116.4529,28.5577 -116.0077,28.5577 -115.5625,28.5577 -115.1173,28.5577 -114.8179,28.3719 -114.5185,28.1861 -114.2191,28.0003 -114.2077,28.0003 -114.1616,28.0006 -113.6821,28.0003 -113.2027,28.0000 -112.7233,27.9997 -112.4454,28.0000 -112.1676,28.0002 -112.4505,28.3928 -112.7334,28.7853 -113.0163,29.1779 -113.2992,29.5705 -113.5821,29.9630 -113.8650,30.3556 -114.1479,30.7482 -114.4308,31.1407 -114.7137,31.5333 -114.7121,31.5667 -114.7475,31.6315 -114.7993,31.7269 -114.8194,31.8023 -114.8500,31.8365 -114.8948,31.8636 -114.9336,31.9087 -114.9336,31.9088 -114.9370,31.9307 -114.9365,31.9551 -114.9344,31.9792 -114.9333,32.0050 -114.9342,32.0196 -114.9370,32.0319 -114.9425,32.0434 -114.9516,32.0557 -114.9579,32.0607 -114.9664,32.0652 -114.9745,32.0696 -114.9794,32.0740 -114.9803,32.0897 -114.9704,32.1040 -114.9592,32.1202 -114.9559,32.1416 -114.9665,32.1806 -114.9840,32.2125 -115.0071,32.2414 -115.0348,32.2714 -115.0397,32.2772 -115.0371,32.2917 -115.0206,32.3098 -115.0001,32.3231 -114.9817,32.3415 -114.9717,32.3635 -114.9695,32.3817 -114.9701,32.3984 -114.9686,32.4160 -114.9602,32.4386 -114.9453,32.4628 -114.9263,32.4825 -114.9060,32.4917 -114.8537,32.4880 -114.8406,32.4905 -114.8328,32.4919 -114.8195,32.4993 -114.8221,32.5002 -114.8094,32.5113 -114.7955,32.5522 -114.7942,32.5741 -114.8027,32.5945 -114.7868,32.6210 -114.7815,32.6281 -114.7588,32.6448 -114.7512,32.6522 -114.7395,32.6691 -114.7312,32.6866 -114.7239,32.7115 -114.7243,32.7128 -114.7208,32.7246 -114.6829,32.7481 -114.5782,32.7301 -114.5359,32.7382 -114.5262,32.7533 -114.5251,32.7711 -114.5259,32.7897 -114.5222,32.8071 -114.5092,32.8203 -114.4721,32.8420 -114.4607,32.8549 -114.4580,32.8767 -114.4737,32.9406 -114.4725,32.9531 -114.4702,32.9628 -114.4698,32.9726 -114.4737,32.9853 -114.5017,33.0194 -114.5365,33.0354 -114.6273,33.0409 -114.6668,33.0542 -114.6967,33.0894 -114.6934,33.1241 -114.6782,33.1616 -114.6730,33.2050 -114.6832,33.2628 -114.6901,33.2764 -114.7213,33.3063 -114.7235,33.3212 -114.7140,33.3490 -114.7019,33.3598 -114.6981,33.3684 -114.7040,33.3791 -114.7121,33.3871 -114.7224,33.3998 -114.7269,33.4115 -114.7174,33.4166 -114.6683,33.4197 -114.6437,33.4258 -114.6258,33.4371 -114.5888,33.4955 -114.5793,33.5201 -114.5693,33.5305 -114.5495,33.5470 -114.5359,33.5619 -114.5326,33.5686 -114.5290,33.5817 -114.5345,33.6035 -114.5345,33.6168 -114.5256,33.6227 -114.5224,33.6276 -114.5215,33.6388 -114.5222,33.6603 -114.5173,33.6847 -114.5063,33.6991 -114.4947,33.7104 -114.4881,33.7251 -114.4990,33.7432 -114.5032,33.7543 -114.4980,33.7593 -114.4945,33.7646 -114.4934,33.7763 -114.4945,33.7880 -114.4980,33.7934 -114.5103,33.8041 -114.5139,33.8283 -114.5141,33.8540 -114.5160,33.8691 -114.4978,33.8814 -114.4898,33.8906 -114.4911,33.8995 -114.5107,33.9187 -114.5188,33.9298 -114.5222,33.9414 -114.5159,33.9636 -114.5003,33.9775 -114.4607,33.9995 -114.4443,34.0130 -114.4286,34.0291 -114.4169,34.0485 -114.4086,34.0911 -114.3982,34.1097 -114.3821,34.1237 -114.3459,34.1332 -114.2438,34.1937 -114.2243,34.1981 -114.1926,34.2322 -114.1591,34.2595 -114.1274,34.2797 -114.1191,34.2932 -114.1249,34.3141 -114.1250,34.3171 -114.1251,34.3278 -114.1570,34.3451 -114.1687,34.3559 -114.1784,34.3627 -114.1955,34.3704 -114.2789,34.4208 -114.2938,34.4355 -114.2988,34.4391 -114.3187,34.4499 -114.3236,34.4534 -114.3313,34.4606 -114.3354,34.4633 -114.3395,34.4646 -114.3442,34.4651 -114.3572,34.4656 -114.3638,34.4670 -114.3690,34.4715 -114.3729,34.4781 -114.3760,34.4901 -114.3772,34.4997 -114.3771,34.5004 -114.3717,34.5155 -114.3672,34.5301 -114.3766,34.5395 -114.3771,34.5401 -114.3788,34.5407 -114.3837,34.5611 -114.3945,34.5710 -114.4077,34.5795 -114.4197,34.5960 -114.4211,34.6026 -114.4197,34.6264 -114.4211,34.6343 -114.4245,34.6387 -114.4289,34.6429 -114.4943,34.7536 -114.5213,34.7570 -114.5424,34.7679 -114.5550,34.7870 -114.5570,34.8150 -114.5607,34.8272 -114.5686,34.8430 -114.5800,34.8569 -114.5942,34.8628 -114.6100,34.8675 -114.6170,34.8793 -114.6276,34.9966 -114.6282,35.0036 -114.6293,35.0154 -114.6389,35.0478 -114.6154,35.0731 -114.6116,35.0826 -114.6155,35.0965 -114.6343,35.1142 -114.6389,35.1235 -114.6355,35.1372 -114.6254,35.1410 -114.6119,35.1410 -114.5979,35.1434 -114.5861,35.1483 -114.5818,35.1513 -114.5726,35.1912 -114.5719,35.2126 -114.5768,35.2526 -114.5899,35.3005 -114.5923,35.3260 -114.5909,35.3529 -114.5909,35.3530 -114.6006,35.3767 -114.6323,35.4287 -114.6506,35.4770 -114.6676,35.5170 -114.6465,35.5655 -114.6527,35.6089 -114.6452,35.6303 -114.6451,35.6306 -114.6516,35.6468 -114.6867,35.7194 -114.6916,35.7396 -114.6945,35.7671 -114.6935,35.8224 -114.6881,35.8372 -114.6706,35.8628 -114.6668,35.8739 -114.6689,35.8854 -114.6753,35.8942 -114.7147,35.9362 -114.7292,35.9593 -114.7396,35.9858 -114.7413,36.0135 -114.7413,36.0136 -114.7244,36.0279 -114.7199,36.0389 -114.7194,36.0502 -114.7227,36.0731 -114.7227,36.0843 -114.7212,36.0927 -114.7181,36.0974 -114.7110,36.1054 -114.7071,36.1088 -114.7029,36.1121 -114.6694,36.1248 -114.6368,36.1413 -114.5788,36.1536 -114.5632,36.1588 -114.5548,36.1605 -114.5455,36.1597 -114.4920,36.1469 -114.4882,36.1456 -114.4828,36.1429 -114.4744,36.1375 -114.4640,36.1321 -114.4507,36.1284 -114.4429,36.1277 -114.4355,36.1277 -114.4287,36.1285 -114.4229,36.1303 -114.3972,36.1429 -114.3918,36.1450 -114.3859,36.1465 -114.3792,36.1474 -114.3723,36.1477 -114.3656,36.1472 -114.3564,36.1443 -114.3475,36.1398 -114.3366,36.1307 -114.3270,36.1208 -114.3196,36.1111 -114.3033,36.0816 -114.2972,36.0705 -114.2877,36.0581 -114.2753,36.0457 -114.2565,36.0325 -114.2336,36.0244 -114.2077,36.0232 -114.1587,36.0297 -114.1239,36.0459 -114.1084,36.0895 -114.0952,36.1265 -114.0842,36.1576 -114.0654,36.1782 -114.0453,36.2005 -114.0428,36.2103 -114.0428,36.2113 -114.0422,36.2174 -114.0420,36.2198 -114.0418,36.2621 -114.0418,36.2705 -114.0418,36.2940 -114.0417,36.3305 -114.0416,36.3779 -114.0414,36.4339 -114.0413,36.4966 -114.0412,36.5635 -114.0410,36.6326 -114.0409,36.7017 -114.0407,36.7687 -114.0406,36.8313 -114.0405,36.8873 -114.0404,36.9347 -114.0403,36.9713 -114.0403,36.9949 -114.0402,37.0031 -114.0403,37.1593 -114.0404,37.3154 -114.0404,37.4716 -114.0405,37.6277 -114.0405,37.7839 -114.0406,37.9401 -114.0407,38.0962 -114.0408,38.2523 -114.0409,38.4085 -114.0410,38.5647 -114.0410,38.7208 -114.0411,38.8770 -114.0412,39.0331 -114.0413,39.1893 -114.0413,39.3455 -114.0414,39.5016 -114.0414,39.6577 -114.0415,39.8139 -114.0416,39.9701 -114.0416,40.1262 -114.0417,40.2824 -114.0418,40.4385 -114.0419,40.5947 -114.0420,40.7508 -114.0421,40.9070 -114.0421,41.0631 -114.0422,41.2193 -114.0423,41.3755 -114.0424,41.5316 -114.0424,41.6878 -114.0425,41.8439 -114.0425,42.0001 -114.2284,42.0000 -114.4143,42.0000 -114.6002,42.0000 -114.7861,41.9999 -114.9720,41.9999 -115.1579,41.9998 -115.3437,41.9998 -115.5296,41.9998 -115.7155,41.9998 -115.9014,41.9998 -116.0872,41.9997 -116.2731,41.9997 -116.4590,41.9997 -116.6449,41.9996 -116.7947,41.9996 -117.0166,41.9995 -117.0171,42.2574 -117.0176,42.5153 -117.4169,42.5175 -117.8162,42.5198 -118.2154,42.5220 -118.2221,42.8230 -118.2287,43.1239 -118.2281,43.5820 -118.2274,44.0400 -118.2321,44.2561 -118.1869,44.2644 -118.1526,44.2707 -118.0575,44.3718 -118.0405,44.3899 -118.0314,44.4152 -117.9716,44.4433 -117.9714,44.4433 -117.5910,44.4445 -117.4859,44.3877 -117.4862,44.3014 -117.4073,44.3014 -117.2201,44.3014 -117.2067,44.3184 -117.2017,44.3163 -117.2007,44.3265 -117.1959,44.3397 -117.1949,44.3501 -117.1977,44.3628 -117.2109,44.3832 -117.2154,44.3948 -117.2121,44.4178 -117.2011,44.4376 -117.1935,44.4556 -117.2038,44.4825 -117.1973,44.4897 -117.1881,44.4956 -117.1835,44.5009 -117.1800,44.5136 -117.1714,44.5188 -117.1603,44.5211 -117.1493,44.5251 -117.1356,44.5371 -117.1223,44.5541 -117.1123,44.5728 -117.1038,44.6118 -117.0927,44.6330 -117.0674,44.6685 -117.0399,44.7192 -117.0292,44.7336 -117.0106,44.7500 -116.9501,44.7783 -116.9315,44.7902 -116.9173,44.8026 -116.8639,44.8661 -116.8408,44.9012 -116.8328,44.9199 -116.8220,44.9666 -116.8204,44.9875 -116.8226,44.9905 -116.8275,44.9955 -116.8324,45.0034 -116.8346,45.0148 -116.8313,45.0250 -116.8235,45.0358 -116.7174,45.1514 -116.6968,45.1898 -116.6790,45.2513 -116.6658,45.2684 -116.6561,45.2847 -116.6530,45.3263 -116.6490,45.3475 -116.6362,45.3657 -116.6015,45.3946 -116.5867,45.4281 -116.5392,45.4710 -116.5353,45.4809 -116.5307,45.5020 -116.5118,45.5356 -116.5062,45.5424 -116.4767,45.5665 -116.4630,45.5819 -116.4550,45.6008 -116.4559,45.6219 -116.4637,45.6424 -116.4988,45.6910 -116.5172,45.7319 -116.5301,45.7516 -116.5428,45.7624 -116.5574,45.7721 -116.5994,45.7780 -116.6574,45.8035 -116.6781,45.8206 -116.6878,45.8267 -116.7468,45.8360 -116.7893,45.8741 -116.6276,46.0696 -116.3004,45.9149 -116.2944,45.4688 -115.8007,45.4926 -115.6520,45.4688 -115.5033,45.4093 -115.3665,45.4807 -115.1880,45.6116 -115.0690,45.5818 -114.8549,45.4807 -114.7359,45.4450 -114.6288,45.4866 -114.5449,45.5765 -114.5332,45.5892 -114.5304,45.5945 -114.5291,45.6000 -114.5307,45.6061 -114.5344,45.6122 -114.5404,45.6204 -114.5422,45.6267 -114.5405,45.6319 -114.5365,45.6358 -114.5156,45.6483 -114.5028,45.6585 -114.5001,45.6613 -114.4978,45.6646 -114.4956,45.6691 -114.4943,45.6743 -114.4941,45.6803 -114.4976,45.6905 -114.4980,45.6956 -114.4937,45.7051 -114.4954,45.7116 -114.5019,45.7189 -114.5274,45.7372 -114.5335,45.7430 -114.5358,45.7479 -114.5409,45.7616 -114.5493,45.7713 -114.5513,45.7781 -114.5499,45.7835 -114.5454,45.7871 -114.5349,45.7938 -114.5302,45.7978 -114.5268,45.8026 -114.5239,45.8079 -114.5172,45.8171 -114.5059,45.8299 -114.5005,45.8387 -114.4985,45.8412 -114.4951,45.8447 -114.4848,45.8505 -114.4784,45.8525 -114.4711,45.8536 -114.4369,45.8548 -114.4295,45.8560 -114.4227,45.8581 -114.4171,45.8609 -114.3931,45.8781 -114.3889,45.8824 -114.3875,45.8883 -114.3891,45.8959 -114.4102,45.9199 -114.4131,45.9247 -114.4154,45.9295 -114.4162,45.9351 -114.4154,45.9409 -114.4138,45.9470 -114.4112,45.9524 -114.4013,45.9666 -114.3993,45.9725 -114.4000,45.9787 -114.4040,45.9852 -114.4112,45.9881 -114.4375,45.9934 -114.4614,46.0007 -114.4705,46.0069 -114.4736,46.0133 -114.4715,46.0187 -114.4703,46.0248 -114.4717,46.0319 -114.4796,46.0418 -114.4825,46.0491 -114.4829,46.0558 -114.4808,46.0614 -114.4779,46.0664 -114.4577,46.0878 -114.4542,46.0926 -114.4517,46.0979 -114.4507,46.1036 -114.4513,46.1091 -114.4537,46.1143 -114.4579,46.1187 -114.4976,46.1488 -114.5022,46.1548 -114.5032,46.1601 -114.5026,46.1653 -114.5004,46.1695 -114.4982,46.1719 -114.4938,46.1745 -114.4877,46.1765 -114.4544,46.1790 -114.4472,46.1806 -114.4411,46.1830 -114.4365,46.1867 -114.4332,46.1914 -114.4320,46.1970 -114.4323,46.2029 -114.4348,46.2140 -114.4369,46.2310 -114.4381,46.2363 -114.4398,46.2416 -114.4456,46.2526 -114.4504,46.2591 -114.4534,46.2645 -114.4544,46.2700 -114.4525,46.2749 -114.4493,46.2792 -114.4409,46.2875 -114.4376,46.2926 -114.4357,46.2981 -114.4347,46.3098 -114.4330,46.3154 -114.4299,46.3208 -114.4094,46.3419 -114.4061,46.3468 -114.4046,46.3523 -114.4040,46.3584 -114.4058,46.3702 -114.4055,46.3829 -114.4029,46.3950 -114.3987,46.4065 -114.3754,46.4414 -114.3730,46.4476 -114.3713,46.4537 -114.3706,46.4600 -114.3712,46.4658 -114.3727,46.4712 -114.3765,46.4764 -114.3816,46.4819 -114.3959,46.4939 -114.3991,46.4980 -114.4001,46.4995 -114.4002,46.5006 -114.3982,46.5052 -114.3938,46.5079 -114.3879,46.5102 -114.3606,46.5176 -114.3544,46.5202 -114.3489,46.5232 -114.3440,46.5267 -114.3405,46.5308 -114.3387,46.5358 -114.3399,46.5406 -114.3424,46.5452 -114.3454,46.5497 -114.3470,46.5547 -114.3465,46.5601 -114.3441,46.5651 -114.3370,46.5740 -114.3341,46.5791 -114.3331,46.5846 -114.3343,46.5900 -114.3360,46.5952 -114.3367,46.6006 -114.3354,46.6062 -114.3328,46.6115 -114.3267,46.6217 -114.3233,46.6339 -114.3229,46.6520 -114.3238,46.6585 -114.3253,46.6649 -114.3295,46.6716 -114.3355,46.6754 -114.3431,46.6777 -114.3517,46.6783 -114.3598,46.6780 -114.4277,46.6658 -114.4342,46.6638 -114.4504,46.6552 -114.4630,46.6506 -114.4702,46.6491 -114.4776,46.6484 -114.4854,46.6492 -114.5020,46.6534 -114.5085,46.6542 -114.5154,46.6536 -114.5383,46.6472 -114.5503,46.6452 -114.5670,46.6443 -114.5796,46.6466 -114.5939,46.6511 -114.6179,46.6617 -114.6287,46.6683 -114.6360,46.6742 -114.6383,46.6792 -114.6397,46.6844 -114.6388,46.6901 -114.6360,46.6949 -114.6223,46.7071 -114.6207,46.7129 -114.6227,46.7201 -114.6311,46.7301 -114.6378,46.7356 -114.6632,46.7485 -114.6701,46.7505 -114.6781,46.7516 -114.6858,46.7512 -114.6928,46.7498 -114.6987,46.7474 -114.7149,46.7377 -114.7372,46.7181 -114.7436,46.7154 -114.7514,46.7143 -114.7612,46.7160 -114.7666,46.7197 -114.7694,46.7245 -114.7695,46.7300 -114.7623,46.7541 -114.7619,46.7606 -114.7627,46.7674 -114.7664,46.7744 -114.7716,46.7787 -114.7787,46.7818 -114.8073,46.7875 -114.8236,46.7928 -114.8342,46.7993 -114.8486,46.8107 -114.8594,46.8177 -114.8899,46.8316 -114.8990,46.8369 -114.9054,46.8418 -114.9138,46.8560 -114.9183,46.8662 -114.9213,46.8770 -114.9233,46.8944 -114.9226,46.9007 -114.9209,46.9066 -114.9185,46.9123 -114.9171,46.9177 -114.9179,46.9228 -114.9240,46.9272 -114.9489,46.9378 -114.9574,46.9426 -114.9639,46.9470 -114.9919,46.9734 -114.9987,46.9780 -115.0051,46.9809 -115.0249,46.9845 -115.0394,46.9887 -115.0470,46.9928 -115.0517,46.9967 -115.0533,46.9992 -115.0542,47.0010 -115.0588,47.0192 -115.0611,47.0243 -115.1504,47.0928 -115.1647,47.1161 -115.1737,47.1249 -115.2310,47.1636 -115.2396,47.1701 -115.2489,47.1791 -115.2561,47.1842 -115.2642,47.1883 -115.2741,47.1919 -115.2799,47.1959 -115.2836,47.2007 -115.2871,47.2113 -115.2900,47.2162 -115.2941,47.2211 -115.3005,47.2267 -115.3046,47.2318 -115.3142,47.2461 -115.3253,47.2582 -115.3333,47.2644 -115.3417,47.2685 -115.4318,47.2934 -115.4822,47.2998 -115.4968,47.3041 -115.5047,47.3082 -115.5101,47.3127 -115.5202,47.3259 -115.5286,47.3399 -115.5450,47.3565 -115.5771,47.3824 -115.5862,47.3884 -115.6613,47.4228 -115.7006,47.4308 -115.7173,47.4365 -115.7240,47.4417 -115.7267,47.4471 -115.7248,47.4517 -115.7221,47.4554 -115.7194,47.4573 -115.7145,47.4598 -115.7079,47.4613 -115.6653,47.4641 -115.6580,47.4655 -115.6515,47.4674 -115.6456,47.4700 -115.6413,47.4742 -115.6392,47.4793 -115.6431,47.4858 -115.6522,47.4903 -115.6677,47.4954 -115.6780,47.5000 -115.6786,47.5008 -115.6844,47.5215 -115.6920,47.5324 -115.7011,47.5387 -115.7268,47.5505 -115.7328,47.5556 -115.7331,47.5607 -115.7288,47.5642 -115.7233,47.5673 -115.6992,47.5777 -115.6939,47.5808 -115.6892,47.5845 -115.6850,47.5888 -115.6789,47.5989 -115.6765,47.6045 -115.6788,47.6130 -115.6856,47.6238 -115.7130,47.6529 -115.7178,47.6611 -115.7152,47.6859 -115.7162,47.6929 -115.7189,47.6998 -115.7253,47.7081 -115.7324,47.7127 -115.7614,47.7261 -115.7666,47.7316 -115.7698,47.7384 -115.7722,47.7453 -115.7783,47.7544 -115.7875,47.7596 -115.8141,47.7706 -115.8212,47.7762 -115.8256,47.7817 -115.8446,47.8297 -115.8486,47.8357 -115.8550,47.8439 -115.8630,47.8489 -115.8867,47.8587 -115.8960,47.8651 -115.9071,47.8749 -115.9178,47.8825 -115.9304,47.8893 -115.9370,47.8945 -115.9414,47.8995 -115.9489,47.9100 -115.9737,47.9330 -115.9855,47.9483 -116.0148,47.9733 -116.0369,47.9879 -116.0455,47.9974 -116.0489,48.0037 -116.0489,48.0531 -116.0488,48.1706 -116.0487,48.2880 -116.0487,48.4055 -116.0486,48.5230 -116.0484,48.6405 -116.0483,48.7580 -116.0482,48.8754 -116.0482,48.9925 -116.0590,48.9925 -116.2788,48.9925 -116.4986,48.9925 -116.5384,48.9925 -116.8417,48.9995 -116.9012,49.0320 -117.0023,49.0856 -117.0083,49.1748 -116.9488,49.2105 -116.8536,49.2224 -116.7525,49.2402 -116.6659,49.2857 -116.6836,49.3008 -116.7129,49.3341 -116.7344,49.3555 -116.7578,49.3966 -116.7793,49.4532 -116.7930,49.4747 -116.7949,49.5176 -116.8047,49.5587 -116.8125,49.5880 -116.8262,49.5997 -116.8477,49.6075 -116.8750,49.6290 -116.8984,49.6466 -116.9121,49.6661 -116.8867,49.7071 -116.8789,49.7755 -116.8613,49.8282 -116.7465,49.8351 -116.6692,49.8470 -116.6395,49.9303 -116.5502,49.9719 -116.4908,50.0552 -116.4729,50.1385 -116.4729,50.1920 -116.5562,50.2991 -116.6216,50.3705 -116.6633,50.4657 -116.6752,50.5608 -116.6335,50.6322 -116.6097,50.6739 -116.6871,50.6977 -116.7822,50.7334 -116.9131,50.8345 -117.0975,50.9832 -117.1927,51.0784 -117.2641,51.1855 -117.2879,51.2687 -117.2998,51.3520 -117.3652,51.4056 -117.4009,51.4472 -117.4961,51.4888 -117.5615,51.4591 -117.6686,51.4175 -117.7816,51.4591 -117.8411,51.5067 -117.9184,51.5126 -117.9660,51.5364 -117.9779,51.6435 -117.9601,51.7268 -118.0196,51.7565 -118.1207,51.7744 -118.1742,51.8160 -118.1861,51.8814 -118.1921,51.9528 -118.2337,51.9885 -118.3289,51.9885 -118.4122,52.0064 -118.4776,52.0540 -118.5668,52.0778 -118.6144,52.1015 -118.6620,52.1789 -118.6025,52.2027 -118.5700,52.2614 -118.5252,52.3216 -118.4776,52.3454 -118.3884,52.3692 -118.3051,52.3692 -118.2113,52.3667 -118.2266,52.3703 -118.2289,52.3756 -118.2299,52.3837 -118.2307,52.3924 -118.2324,52.3992 -118.2406,52.4097 -118.2508,52.4196 -118.2584,52.4308 -118.2589,52.4453 -118.2503,52.4556 -118.2359,52.4599 -118.2205,52.4633 -118.2086,52.4709 -118.2074,52.4821 -118.2192,52.4882 -118.2345,52.4912 -118.2438,52.4929 -118.2528,52.4980 -118.2647,52.5065 -118.2759,52.5159 -118.2825,52.5240 -118.2842,52.5340 -118.2818,52.5419 -118.2787,52.5498 -118.2786,52.5592 -118.2864,52.5693 -118.3008,52.5760 -118.3167,52.5813 -118.3291,52.5881 -118.3345,52.5950 -118.3384,52.6024 -118.3424,52.6099 -118.3480,52.6164 -118.3524,52.6285 -118.3425,52.6392 -118.3274,52.6480 -118.3166,52.6539 -118.3050,52.6672 -118.3062,52.6775 -118.3147,52.6864 -118.3247,52.6956 -118.3369,52.7141 -118.3451,52.7321 -118.3553,52.7484 -118.3736,52.7614 -118.3883,52.7660 -118.4066,52.7710 -118.4231,52.7786 -118.4325,52.7909 -118.4313,52.7988 -118.4259,52.8065 -118.4199,52.8152 -118.4172,52.8262 -118.4206,52.8403 -118.4298,52.8481 -118.4435,52.8525 -118.4604,52.8562 -118.4709,52.8624 -118.4746,52.8721 -118.4767,52.8830 -118.4829,52.8926 -118.4982,52.8997 -118.5153,52.9001 -118.5328,52.8968 -118.5493,52.8932 -118.5620,52.8897 -118.5780,52.8843 -118.5935,52.8795 -118.6050,52.8775 -118.6243,52.8870 -118.6315,52.9070 -118.6371,52.9298 -118.6512,52.9477 -118.6737,52.9660 -118.6733,52.9797 -118.6650,52.9943 -118.6633,53.0156 -118.6722,53.0341 -118.6840,53.0381 -118.6977,53.0368 -118.7125,53.0392 -118.7176,53.0457 -118.7207,53.0545 -118.7260,53.0612 -118.7379,53.0616 -118.7519,53.0563 -118.7660,53.0515 -118.7766,53.0532 -118.7802,53.0676 -118.7758,53.0776 -118.7664,53.0865 -118.7566,53.0951 -118.7511,53.1040 -118.7514,53.1151 -118.7570,53.1215 -118.7663,53.1262 -118.7775,53.1321 -118.8019,53.1491 -118.8257,53.1668 -118.8502,53.1833 -118.8775,53.1971 -118.8921,53.2020 -118.9061,53.2054 -118.9200,53.2094 -118.9341,53.2159 -118.9485,53.2250 -118.9629,53.2333 -118.9784,53.2380 -118.9967,53.2365 -119.0066,53.2311 -119.0098,53.2233 -119.0094,53.2138 -119.0086,53.2035 -119.0109,53.1928 -119.0162,53.1872 -119.0219,53.1828 -119.0255,53.1756 -119.0238,53.1669 -119.0186,53.1583 -119.0144,53.1499 -119.0153,53.1422 -119.0288,53.1346 -119.0459,53.1383 -119.0631,53.1467 -119.0767,53.1535 -119.0901,53.1573 -119.1018,53.1589 -119.1132,53.1598 -119.1255,53.1615 -119.1379,53.1671 -119.1469,53.1754 -119.1564,53.1825 -119.1705,53.1845 -119.1879,53.1842 -119.1992,53.1870 -119.2090,53.1909 -119.2222,53.1942 -119.2387,53.1953 -119.2514,53.1953 -119.2634,53.1983 -119.2778,53.2082 -119.2970,53.2258 -119.3169,53.2452 -119.3363,53.2648 -119.3541,53.2834 -119.3589,53.2901 -119.3652,53.3012 -119.3713,53.3133 -119.3755,53.3234 -119.3777,53.3370 -119.3776,53.3473 -119.3809,53.3560 -119.3933,53.3645 -119.4081,53.3678 -119.4256,53.3669 -119.4429,53.3635 -119.4573,53.3595 -119.4764,53.3567 -119.4953,53.3584 -119.5141,53.3623 -119.5333,53.3655 -119.5509,53.3692 -119.5700,53.3747 -119.5889,53.3788 -119.6061,53.3781 -119.6143,53.3722 -119.6227,53.3625 -119.6317,53.3546 -119.6416,53.3538 -119.6670,53.3640 -119.6932,53.3741 -119.7185,53.3854 -119.7416,53.3995 -119.7567,53.4146 -119.7689,53.4332 -119.7797,53.4526 -119.7908,53.4709 -119.8087,53.4934 -119.8274,53.5081 -119.8481,53.5133 -119.8718,53.5074 -119.8826,53.5071 -119.8949,53.5128 -119.9049,53.5219 -119.9091,53.5320 -119.9042,53.5421 -119.8940,53.5496 -119.8859,53.5568 -119.8870,53.5666 -119.8972,53.5769 -119.9097,53.5857 -119.9218,53.5946 -119.9309,53.6051 -119.9265,53.6149 -119.9054,53.6173 -119.8808,53.6157 -119.8659,53.6138 -119.8365,53.6084 -119.7937,53.6027 -119.7537,53.6048 -119.7325,53.6231 -119.7371,53.6421 -119.7540,53.6581 -119.7745,53.6710 -119.7897,53.6812 -119.7962,53.6892 -119.8014,53.6975 -119.8077,53.7047 -119.8180,53.7093 -119.8300,53.7075 -119.8427,53.7017 -119.8545,53.6979 -119.8643,53.7020 -119.8762,53.7098 -119.8896,53.7109 -119.9029,53.7109 -119.9147,53.7159 -119.9212,53.7236 -119.9215,53.7295 -119.9184,53.7360 -119.9147,53.7456 -119.9116,53.7512 -119.9067,53.7591 -119.9032,53.7677 -119.9044,53.7753 -119.9189,53.7834 -119.9398,53.7848 -119.9621,53.7852 -119.9809,53.7906 -119.9958,53.8054 -120.0480,53.8148 -120.0540,53.8564 -120.0540,53.9397 -120.0897,53.9932 -120.1432,54.0051 -120.1730,54.0527 -120.1968,54.1241 -120.3038,54.1419 -120.4228,54.1538 -120.5358,54.1598 -120.5894,54.2371 -120.6132,54.3025 -120.6846,54.3323 -120.7500,54.3918 -120.8035,54.4275 -120.8273,54.4810 -120.9165,54.4751 -120.9820,54.4751 -121.0593,54.4751 -121.1129,54.4929 -121.1545,54.5464 -121.2497,54.5464 -121.3567,54.5464 -121.4222,54.5583 -121.5174,54.6357 -121.5471,54.7368 -121.5768,54.8379 -121.6661,54.8736 -121.7672,54.8855 -121.8564,54.8974 -121.8862,54.9807 -122.0468,55.0759 -122.2371,55.1532 -122.3561,55.2365 -122.4818,55.3321 -122.4751,55.3436 -122.5465,55.3852 -122.5881,55.4328 -122.6833,55.3912 -122.7547,55.3793 -122.8558,55.4149 -122.9450,55.4447 -122.9986,55.5399 -122.9926,55.6113 -123.0759,55.6350 -123.1413,55.7005 -123.1889,55.7421 -123.2782,55.7302 -123.3377,55.7897 -123.3377,55.8433 -123.4150,55.9087 -123.4685,55.9801 -123.4861,56.0200 -123.5102,56.1109 -123.4923,56.1764 -123.5221,56.2537 -123.5518,56.3132 -123.5934,56.3608 -123.5934,56.4203 -123.5815,56.5095 -123.6589,56.5511 -123.6886,56.5809 -123.6946,56.6582 -123.7481,56.7177 -123.7897,56.7772 -123.7957,56.8367 -123.7957,56.8486 -123.8076,56.9140 -123.7600,56.9735 -123.6648,56.9973 -123.5578,57.0270 -123.4745,57.0449 -123.4031,57.1044 -123.3258,57.1401 -123.2246,57.1460 -123.1116,57.1639 -123.0045,57.1757 -122.9212,57.1579 -122.8788,57.1232 -122.7853,57.1134 -122.7528,57.1099 -122.6217,57.0928 -122.5765,57.0894 -122.5355,57.0927 -122.4913,57.1018 -122.4782,57.1046 -122.4449,57.1240 -122.4399,57.1319 -122.4360,57.1381 -122.4252,57.1551 -122.3971,57.1726 -122.3579,57.1790 -122.3260,57.1761 -122.2837,57.1563 -122.2339,57.1237 -122.1855,57.0915 -122.1004,57.0588 -122.0597,57.0557 -122.0113,57.0601 -121.9234,57.0839 -121.8654,57.1019 -121.8357,57.1207 -121.8239,57.1481 -121.7819,57.1773 -121.7514,57.2246 -121.7471,57.2591 -121.7454,57.2814 -121.7103,57.2987 -121.6612,57.2994 -121.6058,57.2932 -121.5535,57.2956 -121.5529,57.2955 -121.4823,57.2882 -121.4498,57.2769 -121.3984,57.2531 -121.3092,57.2531 -121.1961,57.2769 -121.0534,57.3126 -121.0117,57.3721 -120.9463,57.4256 -120.8392,57.4315 -120.7143,57.4315 -120.6251,57.4315 -120.5001,57.4672 -120.4228,57.4434 -120.3812,57.4196 -120.3757,57.4100 -120.3812,57.3602 -120.3931,57.3126 -120.3526,57.2720 -120.3349,57.2543 -120.2681,57.2352 -120.1908,57.2114 -120.1551,57.2055 -120.0778,57.2174 -120.0000,57.2650 -120.0000,57.2709 -120.0000,57.4364 -120.0000,57.7082 -120.0000,57.9798 -120.0000,58.2515 -120.0000,58.5231 -120.0000,58.7948 -120.0000,59.0665 -120.0000,59.3381 -120.0000,59.4209 -120.0000,59.5036 -120.0000,59.5863 -120.0000,59.6691 -120.0000,59.7519 -120.0000,59.8346 -120.0000,59.9174 -120.0000,60.0001 -120.4773,60.0001 -120.9547,60.0001 -121.4322,60.0001 -121.9096,60.0001 -122.3869,60.0001 -122.8643,60.0001 -123.3417,60.0001 -123.8191,60.0001 -123.8379,60.0250 -123.8650,60.0383 -123.8958,60.0404 -123.9260,60.0318 -123.9542,60.0229 -123.9945,60.0163 -124.0256,60.0199 -124.0259,60.0420 -124.0020,60.0687 -123.9841,60.0834 -123.9808,60.0985 -124.0013,60.1260 -124.0066,60.1345 -124.0097,60.1435 -124.0138,60.1526 -124.0222,60.1610 -124.0375,60.1710 -124.0531,60.1805 -124.0687,60.1901 -124.0839,60.2004 -124.1026,60.2172 -124.1179,60.2367 -124.1316,60.2577 -124.1454,60.2790 -124.1615,60.2973 -124.1792,60.3130 -124.1957,60.3301 -124.2083,60.3526 -124.2132,60.3737 -124.2126,60.3921 -124.2094,60.4103 -124.2063,60.4311 -124.2162,60.4613 -124.2450,60.4778 -124.2824,60.4836 -124.3179,60.4819 -124.3422,60.4796 -124.3670,60.4792 -124.3919,60.4793 -124.4164,60.4793 -124.4222,60.4842 -124.4253,60.4959 -124.4272,60.5091 -124.4286,60.5187 -124.4351,60.5365 -124.4446,60.5538 -124.4573,60.5688 -124.4733,60.5801 -124.5179,60.6027 -124.5791,60.6401 -124.6197,60.6821 -124.6027,60.7183 -124.5695,60.7322 -124.5356,60.7449 -124.5042,60.7617 -124.4787,60.7879 -124.4833,60.8003 -124.5015,60.8176 -124.5222,60.8368 -124.5341,60.8546 -124.5462,60.8972 -124.5665,60.9390 -124.5986,60.9645 -124.6461,60.9588 -124.6637,60.9539 -124.6799,60.9546 -124.6961,60.9573 -124.7141,60.9584 -124.7329,60.9564 -124.7474,60.9546 -124.7617,60.9557 -124.7798,60.9623 -124.8058,60.9682 -124.8282,60.9612 -124.8485,60.9457 -124.8687,60.9262 -124.8758,60.9043 -124.8698,60.8817 -124.8690,60.8634 -124.8919,60.8551 -124.9183,60.8551 -124.9447,60.8563 -124.9710,60.8583 -124.9975,60.8604 -125.0214,60.8600 -125.0456,60.8566 -125.0699,60.8527 -125.0940,60.8509 -125.1149,60.8515 -125.1367,60.8525 -125.1583,60.8523 -125.1786,60.8497 -125.1956,60.8436 -125.2104,60.8349 -125.2248,60.8255 -125.2408,60.8170 -125.2807,60.8007 -125.3218,60.7879 -125.3642,60.7820 -125.4079,60.7863 -125.4527,60.7983 -125.4995,60.8114 -125.5466,60.8222 -125.5925,60.8267 -125.6359,60.8265 -125.6762,60.8277 -125.7154,60.8340 -125.7553,60.8492 -125.7892,60.8667 -125.8260,60.8831 -125.8640,60.8940 -125.9014,60.8947 -125.9384,60.8847 -125.9613,60.8685 -125.9769,60.8447 -125.9921,60.8120 -126.0142,60.8035 -126.0543,60.8057 -126.0938,60.8147 -126.1141,60.8265 -126.1137,60.8344 -126.1096,60.8428 -126.1061,60.8512 -126.1074,60.8590 -126.1217,60.8657 -126.1444,60.8669 -126.1682,60.8654 -126.1859,60.8641 -126.2012,60.8640 -126.2207,60.8625 -126.2373,60.8572 -126.2441,60.8456 -126.2386,60.8352 -126.2280,60.8295 -126.2198,60.8219 -126.2215,60.8060 -126.2455,60.7885 -126.2885,60.7796 -126.3344,60.7765 -126.3672,60.7763 -126.3896,60.7770 -126.4124,60.7793 -126.4346,60.7841 -126.4554,60.7924 -126.4682,60.7992 -126.4820,60.8060 -126.4962,60.8114 -126.5103,60.8145 -126.5433,60.8117 -126.5728,60.7994 -126.6006,60.7826 -126.6286,60.7668 -126.6450,60.7577 -126.6596,60.7497 -126.6749,60.7456 -126.6936,60.7481 -126.7097,60.7560 -126.7230,60.7663 -126.7367,60.7758 -126.7537,60.7817 -126.7727,60.7837 -126.7879,60.7824 -126.8020,60.7778 -126.8177,60.7698 -126.8201,60.7666 -126.8201,60.7624 -126.8211,60.7583 -126.8261,60.7551 -126.8339,60.7549 -126.8431,60.7573 -126.8520,60.7613 -126.8590,60.7651 -126.8729,60.7735 -126.8845,60.7819 -126.8922,60.7924 -126.8947,60.8073 -126.8902,60.8162 -126.8828,60.8248 -126.8809,60.8330 -126.8927,60.8403 -126.9162,60.8523 -126.9207,60.8657 -126.9176,60.8817 -126.9184,60.9016 -126.9198,60.9141 -126.9161,60.9221 -126.9091,60.9291 -126.9010,60.9387 -126.9007,60.9457 -126.9053,60.9546 -126.9118,60.9635 -126.9169,60.9701 -126.9284,60.9874 -126.9344,61.0005 -126.9368,61.0145 -126.9374,61.0348 -126.9362,61.0442 -126.9346,61.0522 -126.9365,61.0590 -126.9459,61.0648 -126.9683,61.0687 -126.9909,61.0658 -127.0130,61.0591 -127.0338,61.0509 -127.0483,61.0451 -127.0583,61.0427 -127.0680,61.0454 -127.0814,61.0543 -127.0909,61.0615 -127.1000,61.0707 -127.1027,61.0807 -127.0928,61.0901 -127.0772,61.0955 -127.0605,61.0992 -127.0443,61.1034 -127.0297,61.1104 -127.0122,61.1270 -127.0158,61.1355 -127.0265,61.1423 -127.0307,61.1535 -127.0253,61.1623 -127.0170,61.1695 -127.0096,61.1772 -127.0072,61.1877 -127.0089,61.1975 -127.0115,61.2068 -127.0146,61.2159 -127.0177,61.2254 -127.0232,61.2453 -127.0284,61.2649 -127.0352,61.2838 -127.0455,61.3017 -127.0522,61.3091 -127.0594,61.3162 -127.0657,61.3241 -127.0691,61.3337 -127.0681,61.3433 -127.0644,61.3519 -127.0616,61.3604 -127.0632,61.3699 -127.0738,61.3791 -127.0903,61.3840 -127.1077,61.3887 -127.1208,61.3970 -127.1262,61.4077 -127.1278,61.4191 -127.1284,61.4309 -127.1305,61.4426 -127.1457,61.4652 -127.1683,61.4745 -127.1946,61.4791 -127.2213,61.4876 -127.2511,61.5032 -127.2810,61.5161 -127.3127,61.5216 -127.3482,61.5149 -127.3881,61.5065 -127.4327,61.5056 -127.4780,61.5081 -127.5199,61.5096 -127.5348,61.5102 -127.5479,61.5125 -127.5602,61.5172 -127.5725,61.5253 -127.5914,61.5344 -127.6134,61.5378 -127.6360,61.5400 -127.6567,61.5451 -127.6693,61.5512 -127.6762,61.5570 -127.6808,61.5645 -127.6868,61.5759 -127.7026,61.5897 -127.7256,61.5962 -127.7507,61.5990 -127.7724,61.6012 -127.8069,61.6109 -127.8396,61.6269 -127.8699,61.6473 -127.8969,61.6703 -127.9132,61.6789 -127.9332,61.6818 -127.9541,61.6837 -127.9728,61.6887 -127.9813,61.6940 -127.9883,61.7004 -127.9946,61.7074 -128.0008,61.7148 -128.0057,61.7264 -128.0048,61.7391 -128.0025,61.7521 -128.0033,61.7648 -128.0087,61.7746 -128.0177,61.7853 -128.0277,61.7953 -128.0363,61.8031 -128.0524,61.8194 -128.0674,61.8360 -128.0843,61.8500 -128.1061,61.8592 -128.1363,61.8583 -128.1683,61.8502 -128.1988,61.8463 -128.2247,61.8584 -128.2325,61.8704 -128.2353,61.8823 -128.2364,61.8943 -128.2394,61.9067 -128.2466,61.9184 -128.2565,61.9283 -128.2673,61.9374 -128.2772,61.9467 -128.2864,61.9532 -128.3015,61.9612 -128.3176,61.9690 -128.3294,61.9748 -128.3439,61.9795 -128.3633,61.9842 -128.3813,61.9902 -128.3911,61.9990 -128.3906,62.0089 -128.3847,62.0152 -128.3798,62.0214 -128.3822,62.0311 -128.3968,62.0413 -128.4208,62.0491 -128.4462,62.0561 -128.4649,62.0631 -128.4784,62.0700 -128.4918,62.0761 -128.5050,62.0829 -128.5175,62.0917 -128.5275,62.1030 -128.5359,62.1140 -128.5466,62.1218 -128.5631,62.1237 -128.6050,62.1227 -128.6455,62.1239 -128.6850,62.1203 -128.7236,62.1054 -128.7373,62.0944 -128.7459,62.0828 -128.7531,62.0713 -128.7625,62.0608 -128.7791,62.0569 -128.8041,62.0595 -128.8298,62.0646 -128.8485,62.0687 -128.8565,62.0735 -128.8606,62.0824 -128.8630,62.0930 -128.8656,62.1027 -128.8767,62.1137 -128.8938,62.1173 -128.9121,62.1170 -128.9273,62.1163 -128.9450,62.1196 -128.9617,62.1261 -128.9785,62.1328 -128.9966,62.1362 -129.0145,62.1364 -129.0341,62.1358 -129.0535,62.1343 -129.0708,62.1317 -129.0912,62.1256 -129.1101,62.1189 -129.1300,62.1161 -129.1538,62.1211 -129.1748,62.1298 -129.1956,62.1386 -129.2168,62.1462 -129.2388,62.1518 -129.2526,62.1519 -129.2714,62.1512 -129.2876,62.1534 -129.2941,62.1620 -129.2831,62.1729 -129.2592,62.1813 -129.2332,62.1886 -129.2161,62.1959 -129.2018,62.2105 -129.2042,62.2158 -129.2166,62.2185 -129.2322,62.2251 -129.2361,62.2290 -129.2529,62.2506 -129.2790,62.2577 -129.2644,62.2578 -129.2772,62.2652 -129.2817,62.2726 -129.2834,62.2816 -129.2878,62.2937 -129.2925,62.2999 -129.2999,62.3080 -129.3065,62.3158 -129.3094,62.3212 -129.2977,62.3393 -129.2707,62.3558 -129.2396,62.3690 -129.2158,62.3776 -129.2351,62.3859 -129.2593,62.3913 -129.2824,62.3974 -129.2983,62.4076 -129.3047,62.4230 -129.2955,62.4278 -129.2826,62.4305 -129.2778,62.4391 -129.2775,62.4529 -129.2695,62.4573 -129.2559,62.4574 -129.2386,62.4582 -129.2228,62.4597 -129.1995,62.4625 -129.1789,62.4685 -129.1716,62.4791 -129.1969,62.5072 -129.2454,62.5236 -129.2976,62.5322 -129.3342,62.5368 -129.3645,62.5476 -129.3914,62.5643 -129.4189,62.5806 -129.4516,62.5904 -129.4743,62.5841 -129.5141,62.5719 -129.5520,62.5664 -129.5689,62.5801 -129.5538,62.5930 -129.5224,62.5990 -129.4955,62.6077 -129.4939,62.6284 -129.4990,62.6325 -129.5063,62.6346 -129.5133,62.6363 -129.5177,62.6390 -129.5199,62.6435 -129.5212,62.6478 -129.5221,62.6516 -129.5233,62.6548 -129.5223,62.6576 -129.5188,62.6617 -129.5160,62.6667 -129.5169,62.6726 -129.5230,62.6766 -129.5331,62.6794 -129.5439,62.6816 -129.5519,62.6840 -129.5567,62.6878 -129.5605,62.6928 -129.5648,62.6978 -129.5711,62.7014 -129.5811,62.7030 -129.5915,62.7021 -129.6019,62.7006 -129.6121,62.7004 -129.6199,62.7022 -129.6242,62.7054 -129.6257,62.7107 -129.6251,62.7185 -129.6258,62.7281 -129.6298,62.7330 -129.6346,62.7362 -129.6372,62.7409 -129.6387,62.7414 -129.6422,62.7436 -129.6460,62.7465 -129.6483,62.7492 -129.6461,62.7506 -129.6409,62.7531 -129.6357,62.7553 -129.6330,62.7559 -129.6365,62.7615 -129.6405,62.7657 -129.6463,62.7695 -129.6549,62.7742 -129.6688,62.7853 -129.6810,62.7999 -129.6925,62.8142 -129.7045,62.8240 -129.7221,62.8306 -129.7447,62.8394 -129.7645,62.8516 -129.7733,62.8686 -129.7652,62.8853 -129.7450,62.8889 -129.7212,62.8884 -129.7024,62.8923 -129.7172,62.9021 -129.7210,62.9093 -129.7170,62.9177 -129.7083,62.9309 -129.7080,62.9337 -129.7080,62.9391 -129.7076,62.9452 -129.7067,62.9498 -129.7005,62.9566 -129.6901,62.9625 -129.6791,62.9684 -129.6711,62.9756 -129.6665,62.9871 -129.6665,62.9950 -129.6638,63.0026 -129.6512,63.0134 -129.6392,63.0197 -129.6225,63.0278 -129.6073,63.0371 -129.5997,63.0467 -129.6138,63.0722 -129.6561,63.0758 -129.7044,63.0692 -129.7365,63.0639 -129.7566,63.0663 -129.7742,63.0733 -129.7915,63.0814 -129.8111,63.0870 -129.8297,63.0888 -129.8447,63.0913 -129.8489,63.0986 -129.8352,63.1148 -129.8526,63.1253 -129.8669,63.1440 -129.8794,63.1652 -129.8919,63.1834 -129.9053,63.1969 -129.9177,63.2040 -129.9323,63.2064 -129.9526,63.2054 -129.9685,63.2047 -129.9774,63.2070 -129.9837,63.2128 -129.9925,63.2226 -130.0147,63.2458 -130.0344,63.2615 -130.0580,63.2695 -130.0922,63.2692 -130.1032,63.2671 -130.1186,63.2640 -130.1337,63.2620 -130.1436,63.2634 -130.1501,63.2681 -130.1498,63.2697 -130.1471,63.2713 -130.1461,63.2764 -130.1450,63.2850 -130.1411,63.2978 -130.1355,63.3099 -130.1294,63.3165 -130.1088,63.3247 -130.0874,63.3331 -130.0657,63.3406 -130.0441,63.3453 -130.0194,63.3479 -129.9953,63.3498 -129.9713,63.3532 -129.9469,63.3602 -129.9346,63.3652 -129.9189,63.3733 -129.9067,63.3838 -129.9050,63.3957 -129.9123,63.4125 -129.9144,63.4260 -129.9091,63.4391 -129.8944,63.4548 -129.8695,63.4642 -129.8394,63.4692 -129.8228,63.4779 -129.8385,63.4988 -129.8527,63.5137 -129.8637,63.5310 -129.8743,63.5484 -129.8872,63.5634 -129.9033,63.5717 -129.9215,63.5743 -129.9396,63.5764 -129.9554,63.5833 -129.9567,63.5891 -129.9535,63.5974 -129.9514,63.6072 -129.9558,63.6173 -129.9750,63.6251 -130.0040,63.6270 -130.0335,63.6260 -130.0545,63.6251 -130.0630,63.6253 -130.0717,63.6261 -130.0803,63.6274 -130.0886,63.6294 -130.0937,63.6333 -130.0908,63.6381 -130.0860,63.6434 -130.0855,63.6482 -130.0968,63.6569 -130.1056,63.6613 -130.1067,63.6658 -130.0950,63.6751 -130.0858,63.6879 -130.0945,63.6975 -130.1118,63.7028 -130.1286,63.7026 -130.1577,63.6929 -130.1899,63.6803 -130.2224,63.6699 -130.2519,63.6668 -130.2682,63.6708 -130.2728,63.6775 -130.2760,63.6841 -130.2878,63.6886 -130.3081,63.6939 -130.3180,63.7030 -130.3152,63.7151 -130.2978,63.7298 -130.2788,63.7370 -130.2591,63.7386 -130.2390,63.7387 -130.2188,63.7412 -130.2134,63.7439 -130.2119,63.7474 -130.2115,63.7514 -130.2093,63.7552 -130.1988,63.7588 -130.1845,63.7587 -130.1699,63.7568 -130.1586,63.7554 -130.1321,63.7575 -130.1079,63.7666 -130.0980,63.7823 -130.1144,63.8040 -130.1281,63.8105 -130.1396,63.8100 -130.1507,63.8060 -130.1639,63.8020 -130.1831,63.8002 -130.2025,63.8015 -130.2221,63.8054 -130.2418,63.8111 -130.2815,63.8215 -130.3226,63.8303 -130.3625,63.8415 -130.3989,63.8595 -130.4079,63.8667 -130.4163,63.8749 -130.4247,63.8830 -130.4333,63.8901 -130.4498,63.8991 -130.4668,63.9051 -130.4841,63.9105 -130.5016,63.9179 -130.5129,63.9248 -130.5209,63.9304 -130.5298,63.9338 -130.5441,63.9342 -130.5505,63.9324 -130.5562,63.9290 -130.5620,63.9257 -130.5685,63.9240 -130.5811,63.9256 -130.5923,63.9303 -130.6032,63.9362 -130.6148,63.9414 -130.6509,63.9501 -130.6965,63.9596 -130.7399,63.9734 -130.7694,63.9951 -130.7754,64.0106 -130.7688,64.0182 -130.7579,64.0243 -130.7508,64.0353 -130.7567,64.0467 -130.7740,64.0518 -130.7947,64.0526 -130.8114,64.0511 -130.8223,64.0479 -130.8441,64.0428 -130.8626,64.0419 -130.8640,64.0512 -130.8566,64.0667 -130.8593,64.0772 -130.8696,64.0848 -130.8847,64.0920 -130.9060,64.1014 -130.9278,64.1132 -130.9420,64.1289 -130.9405,64.1500 -130.9148,64.1693 -130.8820,64.1811 -130.8727,64.1905 -130.9172,64.2024 -130.9335,64.2084 -130.9434,64.2185 -130.9502,64.2315 -130.9566,64.2466 -130.9753,64.2644 -131.0036,64.2721 -131.0343,64.2753 -131.0605,64.2795 -131.0391,64.2979 -131.0132,64.3118 -131.0035,64.3252 -131.0307,64.3419 -131.0407,64.3452 -131.0515,64.3485 -131.0619,64.3527 -131.0708,64.3584 -131.0719,64.3626 -131.0701,64.3679 -131.0678,64.3727 -131.0677,64.3756 -131.0800,64.3832 -131.0916,64.3886 -131.1029,64.3947 -131.1141,64.4038 -131.1456,64.4241 -131.1798,64.4298 -131.2158,64.4298 -131.2527,64.4331 -131.2723,64.4372 -131.2925,64.4415 -131.3127,64.4460 -131.3319,64.4509 -131.3495,64.4575 -131.3668,64.4646 -131.3845,64.4679 -131.4030,64.4631 -131.4112,64.4565 -131.4143,64.4489 -131.4152,64.4403 -131.4165,64.4304 -131.4266,64.4159 -131.4439,64.4108 -131.4635,64.4098 -131.4803,64.4073 -131.4878,64.4030 -131.4942,64.3974 -131.5004,64.3921 -131.5080,64.3884 -131.5185,64.3871 -131.5288,64.3879 -131.5391,64.3893 -131.5494,64.3896 -131.5681,64.3846 -131.5832,64.3759 -131.5989,64.3689 -131.6194,64.3687 -131.6353,64.3740 -131.6502,64.3814 -131.6654,64.3884 -131.6822,64.3923 -131.7042,64.3925 -131.7281,64.3905 -131.7521,64.3874 -131.7741,64.3842 -131.7871,64.3810 -131.8038,64.3772 -131.8186,64.3775 -131.8261,64.3870 -131.8232,64.3930 -131.8165,64.4039 -131.8095,64.4163 -131.8058,64.4266 -131.7716,64.4572 -131.7118,64.4899 -131.6817,64.5212 -131.7369,64.5470 -131.7566,64.5505 -131.7751,64.5529 -131.7939,64.5536 -131.8141,64.5520 -131.8332,64.5516 -131.8487,64.5558 -131.8634,64.5630 -131.8798,64.5721 -131.8937,64.5786 -131.9084,64.5846 -131.9232,64.5904 -131.9376,64.5965 -131.9495,64.6044 -131.9583,64.6141 -131.9661,64.6246 -131.9753,64.6348 -131.9881,64.6436 -132.0024,64.6508 -132.0157,64.6589 -132.0257,64.6705 -132.0333,64.6822 -132.0425,64.6909 -132.0538,64.6964 -132.0674,64.6984 -132.1158,64.7000 -132.1587,64.7059 -132.1997,64.7183 -132.2426,64.7399 -132.2806,64.7578 -132.3206,64.7686 -132.3617,64.7737 -132.4027,64.7745 -132.4228,64.7761 -132.4430,64.7801 -132.4630,64.7837 -132.4828,64.7843 -132.5014,64.7805 -132.5182,64.7751 -132.5355,64.7707 -132.5555,64.7706 -132.5691,64.7750 -132.5760,64.7826 -132.5810,64.7919 -132.5886,64.8020 -132.6026,64.8104 -132.6153,64.8155 -132.6200,64.8222 -132.6097,64.8356 -132.5802,64.8488 -132.5400,64.8564 -132.5026,64.8647 -132.4812,64.8799 -132.4825,64.9050 -132.4992,64.9248 -132.5134,64.9434 -132.5075,64.9645 -132.4921,64.9730 -132.4720,64.9760 -132.4510,64.9777 -132.4330,64.9824 -132.4257,64.9890 -132.4224,64.9972 -132.4183,65.0060 -132.4088,65.0142 -132.3919,65.0173 -132.3688,65.0177 -132.3471,65.0207 -132.3344,65.0315 -132.3372,65.0369 -132.3435,65.0493 -132.3500,65.0622 -132.3539,65.0690 -132.3706,65.0809 -132.3900,65.0850 -132.4106,65.0842 -132.4309,65.0819 -132.4548,65.0812 -132.4791,65.0832 -132.5033,65.0869 -132.5269,65.0914 -132.5529,65.1031 -132.5489,65.1187 -132.5338,65.1372 -132.5266,65.1574 -132.5353,65.1690 -132.5536,65.1806 -132.5744,65.1891 -132.5908,65.1912 -132.6033,65.1862 -132.6140,65.1788 -132.6266,65.1721 -132.6447,65.1694 -132.6598,65.1704 -132.6788,65.1711 -132.6930,65.1674 -132.6936,65.1557 -132.7158,65.1564 -132.7446,65.1638 -132.7715,65.1751 -132.7877,65.1879 -132.7715,65.1893 -132.7474,65.1896 -132.7252,65.1912 -132.7147,65.1964 -132.7202,65.2088 -132.7370,65.2137 -132.7563,65.2150 -132.7691,65.2167 -132.7813,65.2262 -132.7711,65.2295 -132.7513,65.2293 -132.7345,65.2281 -132.7134,65.2286 -132.7003,65.2335 -132.6898,65.2426 -132.6767,65.2556 -132.6623,65.2665 -132.6467,65.2743 -132.6298,65.2788 -132.6119,65.2799 -132.5971,65.2791 -132.5738,65.2794 -132.5545,65.2841 -132.5522,65.2969 -132.5534,65.3270 -132.5299,65.3525 -132.4966,65.3719 -132.4688,65.3833 -132.4558,65.3884 -132.4432,65.3939 -132.4308,65.3995 -132.4180,65.4048 -132.4071,65.4079 -132.3959,65.4102 -132.3847,65.4128 -132.3743,65.4170 -132.3693,65.4214 -132.3655,65.4268 -132.3618,65.4321 -132.3569,65.4359 -132.3479,65.4373 -132.3389,65.4359 -132.3302,65.4356 -132.3222,65.4398 -132.3214,65.4434 -132.3209,65.4502 -132.3204,65.4573 -132.3197,65.4623 -132.3152,65.4743 -132.3108,65.4829 -132.3042,65.4901 -132.2934,65.4983 -132.2862,65.5044 -132.2794,65.5131 -132.2754,65.5228 -132.2769,65.5321 -132.2761,65.5447 -132.2619,65.5525 -132.2435,65.5570 -132.2304,65.5596 -132.2174,65.5641 -132.2054,65.5695 -132.1939,65.5760 -132.1822,65.5835 -132.1726,65.5945 -132.1756,65.6037 -132.1854,65.6118 -132.1961,65.6198 -132.2053,65.6303 -132.2099,65.6395 -132.2135,65.6485 -132.2197,65.6587 -132.2326,65.6691 -132.2481,65.6750 -132.2640,65.6805 -132.2783,65.6898 -132.2832,65.6966 -132.2865,65.7043 -132.2897,65.7123 -132.2941,65.7195 -132.3029,65.7271 -132.3137,65.7333 -132.3247,65.7391 -132.3344,65.7459 -132.3707,65.7715 -132.4132,65.7918 -132.4578,65.8075 -132.5005,65.8189 -132.5178,65.8224 -132.5371,65.8268 -132.5553,65.8334 -132.5694,65.8441 -132.5717,65.8553 -132.5645,65.8672 -132.5533,65.8781 -132.5434,65.8864 -132.5134,65.9029 -132.4770,65.9129 -132.4392,65.9205 -132.4049,65.9301 -132.3893,65.9336 -132.3674,65.9369 -132.3467,65.9409 -132.3344,65.9467 -132.3320,65.9556 -132.3347,65.9674 -132.3413,65.9793 -132.3506,65.9884 -132.3911,65.9966 -132.4368,65.9864 -132.4819,65.9771 -132.5202,65.9879 -132.5261,65.9956 -132.5293,66.0041 -132.5335,66.0129 -132.5425,66.0214 -132.5615,66.0293 -132.5827,66.0318 -132.6044,66.0310 -132.6246,66.0288 -132.6458,66.0245 -132.6667,66.0171 -132.6861,66.0065 -132.7033,65.9934 -132.7268,65.9815 -132.7546,65.9760 -132.7814,65.9689 -132.8022,65.9523 -132.8050,65.9441 -132.8053,65.9358 -132.8067,65.9281 -132.8128,65.9221 -132.8265,65.9170 -132.8420,65.9136 -132.8580,65.9115 -132.8727,65.9104 -132.9021,65.9084 -132.9355,65.9074 -132.9679,65.9113 -132.9939,65.9231 -132.9720,65.9396 -132.9438,65.9586 -132.9189,65.9797 -132.9072,66.0031 -132.9204,66.0255 -132.9554,66.0297 -132.9967,66.0257 -133.0286,66.0235 -133.0799,66.0258 -133.1274,66.0233 -133.1744,66.0162 -133.2243,66.0052 -133.2429,65.9992 -133.2623,65.9919 -133.2817,65.9863 -133.3005,65.9850 -133.3104,65.9863 -133.3207,65.9873 -133.3307,65.9869 -133.3403,65.9841 -133.3451,65.9796 -133.3471,65.9738 -133.3486,65.9680 -133.3522,65.9632 -133.3876,65.9470 -133.4246,65.9443 -133.4624,65.9496 -133.5001,65.9567 -133.5340,65.9570 -133.5753,65.9556 -133.6118,65.9619 -133.6313,65.9854 -133.6256,66.0150 -133.6102,66.0364 -133.6084,66.0499 -133.6431,66.0560 -133.6577,66.0560 -133.6774,66.0568 -133.6954,66.0613 -133.7047,66.0720 -133.7011,66.0852 -133.6895,66.0996 -133.6754,66.1123 -133.6641,66.1204 -133.6351,66.1300 -133.5979,66.1391 -133.5672,66.1538 -133.5580,66.1800 -133.5628,66.1908 -133.5697,66.1987 -133.5754,66.2075 -133.5766,66.2212 -133.5741,66.2312 -133.5701,66.2407 -133.5663,66.2502 -133.5643,66.2606 -133.5843,66.2927 -133.6335,66.3032 -133.6885,66.3018 -133.7262,66.2984 -133.7612,66.2967 -133.7989,66.2985 -133.8191,66.3102 -133.8013,66.3381 -133.7898,66.3484 -133.7806,66.3577 -133.7729,66.3683 -133.7659,66.3821 -133.7630,66.3955 -133.7630,66.4093 -133.7630,66.4233 -133.7597,66.4371 -133.7323,66.4530 -133.6910,66.4453 -133.6515,66.4356 -133.6294,66.4453 -133.6369,66.4620 -133.6597,66.4790 -133.6832,66.4978 -133.6925,66.5198 -133.6734,66.5358 -133.6353,66.5486 -133.6006,66.5593 -133.5919,66.5692 -133.6106,66.5790 -133.6331,66.5836 -133.6565,66.5864 -133.6779,66.5908 -133.6933,66.5978 -133.6989,66.6054 -133.7019,66.6143 -133.7097,66.6256 -133.7251,66.6350 -133.7425,66.6383 -133.7598,66.6404 -133.7754,66.6467 -133.7819,66.6566 -133.7739,66.6637 -133.7617,66.6706 -133.7552,66.6801 -133.7719,66.6957 -133.8063,66.7110 -133.8342,66.7258 -133.8314,66.7401 -133.8130,66.7480 -133.7952,66.7549 -133.7795,66.7646 -133.7675,66.7808 -133.7633,66.7986 -133.7700,66.8089 -133.7837,66.8152 -133.8008,66.8212 -133.8184,66.8303 -133.8255,66.8388 -133.8306,66.8488 -133.8419,66.8625 -133.8494,66.8676 -133.8581,66.8708 -133.8674,66.8730 -133.8764,66.8752 -133.8830,66.8791 -133.8862,66.8850 -133.8883,66.8910 -133.8916,66.8956 -133.9249,66.9124 -133.9627,66.9221 -134.0020,66.9288 -134.0401,66.9368 -134.0533,66.9395 -134.0723,66.9443 -134.0879,66.9521 -134.0912,66.9638 -134.0808,66.9743 -134.0636,66.9812 -134.0450,66.9852 -134.0301,66.9866 -133.9835,66.9849 -133.9275,66.9826 -133.8730,66.9864 -133.8311,67.0034 -133.9284,67.0034 -134.0210,67.0034 -134.1136,67.0035 -134.2062,67.0035 -134.2987,67.0035 -134.4156,67.0035 -134.5326,67.0035 -134.6495,67.0035 -134.7664,67.0035 -134.8834,67.0036 -135.0003,67.0036 -135.1172,67.0036 -135.2341,67.0036 -135.2934,67.0036 -135.4237,67.0036 -135.5540,67.0036 -135.6133,67.0036 -135.7018,67.0036 -135.7988,67.0036 -135.8958,67.0036 -135.9928,67.0037 -136.0898,67.0037 -136.1079,67.0037 -136.1260,67.0037 -136.1441,67.0037 -136.1622,67.0037 -136.1674,67.0060 -136.1730,67.0116 -136.1778,67.0180 -136.1804,67.0230 -136.1858,67.0359 -136.1928,67.0425 -136.2027,67.0478 -136.2165,67.0567 -136.2216,67.0644 -136.2209,67.0731 -136.2180,67.0824 -136.2165,67.0915 -136.2179,67.0966 -136.2206,67.1008 -136.2233,67.1049 -136.2248,67.1101 -136.2229,67.1183 -136.2172,67.1222 -136.2107,67.1253 -136.2061,67.1309 -136.2035,67.1460 -136.2095,67.1511 -136.2208,67.1549 -136.2343,67.1660 -136.2374,67.1780 -136.2304,67.1875 -136.2187,67.1945 -136.2080,67.1992 -136.1908,67.2059 -136.1732,67.2116 -136.1555,67.2174 -136.1382,67.2246 -136.1292,67.2341 -136.1260,67.2478 -136.1245,67.2627 -136.1202,67.2759 -136.1103,67.2858 -136.1005,67.2910 -136.0952,67.2972 -136.0986,67.3096 -136.1042,67.3178 -136.1112,67.3253 -136.1186,67.3326 -136.1252,67.3401 -136.1380,67.3596 -136.1336,67.3628 -136.1228,67.3640 -136.1161,67.3773 -136.1236,67.3829 -136.1413,67.3894 -136.1609,67.3954 -136.1743,67.3996 -136.1918,67.4051 -136.2009,67.4081 -136.2013,67.4135 -136.1925,67.4266 -136.1813,67.4454 -136.1770,67.4605 -136.1757,67.4754 -136.1738,67.4934 -136.1696,67.4969 -136.1623,67.5001 -136.1573,67.5042 -136.1606,67.5100 -136.1662,67.5130 -136.1718,67.5148 -136.1769,67.5173 -136.1811,67.5222 -136.1853,67.5361 -136.1866,67.5501 -136.1894,67.5642 -136.1983,67.5787 -136.2218,67.6020 -136.2465,67.6202 -136.2751,67.6325 -136.3099,67.6378 -136.3303,67.6391 -136.3485,67.6410 -136.3666,67.6438 -136.3857,67.6472 -136.3949,67.6485 -136.4053,67.6500 -136.4153,67.6527 -136.4233,67.6574 -136.4269,67.6630 -136.4265,67.6677 -136.4249,67.6723 -136.4253,67.6773 -136.4251,67.6795 -136.4246,67.6841 -136.4244,67.6893 -136.4249,67.6937 -136.4273,67.6963 -136.4318,67.6997 -136.4367,67.7035 -136.4400,67.7076 -136.4448,67.7256 -136.4454,67.7456 -136.4441,67.7660 -136.4433,67.7856 -136.4444,67.8736 -136.4451,67.9614 -136.4453,68.0493 -136.4447,68.1371 -136.4438,68.2359 -136.4435,68.3344 -136.4436,68.4329 -136.4438,68.5314 -136.4441,68.5807 -136.4444,68.6300 -136.4446,68.6793 -136.4447,68.7286 -136.4449,68.9055 -136.4454,68.9090 -136.4573,68.9873 -136.4573,68.9874 -136.4604,69.0049 -136.5110,69.2856 -136.5126,69.2946 -136.5126,69.2946 -136.4669,69.3435 -136.2971,69.4403 -136.1419,69.4972 -136.1840,69.5596 -136.1918,69.5962 -136.1768,69.6466 -136.1354,69.6940 -136.0852,69.7293 -136.0037,69.7691 -135.9039,69.8032 -135.8130,69.8258 -135.6348,69.8537 -135.4392,69.8644 -135.2615,69.8576 -135.0407,69.8264 -134.8676,69.8882 -134.7405,69.9160 -134.5646,69.9330 -134.3322,69.9360 -134.2002,69.9297 -134.0737,69.9150 -133.9413,69.8873 -133.7852,69.8341 -133.6470,69.8184 -133.4975,69.7889 -133.4052,69.7896 -133.3388,69.8013 -133.1956,69.8410 -133.0486,69.8658 -132.9256,69.9069 -132.8169,69.9307 -132.4685,69.9740 -132.3476,69.9822 -132.2147,69.9839 -132.1364,69.9960 -132.0069,70.0352 -131.7798,70.1281 -131.6828,70.1489 -131.4969,70.1768 -131.3626,70.2404 -131.2744,70.2709 -130.8385,70.3579 -130.7141,70.3761 -130.5823,70.3856 -130.3243,70.3765 -130.2496,70.3785 -130.1115,70.4229 -130.0205,70.4453 -129.9055,70.4644 -129.7846,70.4756 -129.6605,70.4790 -129.5373,70.4744 -129.4192,70.4616 -129.3219,70.4432 -129.1789,70.3957 -129.0358,70.3064 -128.9355,70.2641 -128.8891,70.2526 -128.8423,70.2525 -128.7505,70.2910 -128.8094,70.3551 -128.8334,70.4083 -128.9474,70.4854 -128.9689,70.5345 -128.9456,70.6030 -128.8532,70.7159 -128.7608,70.7758 -128.6092,70.8267 -128.4221,70.8579 -128.2142,70.8681 -128.0801,70.8633 -127.9471,70.8496 -127.8438,70.8319 -127.7244,70.8024 -127.5143,70.7337 -127.2370,70.6431 -126.9484,70.5346 -126.7802,70.4619 -126.6216,70.3695 -126.3489,70.1363 -126.1995,70.0486 -126.1605,69.9901 -126.1589,69.8997 -126.1414,69.8652 -126.0671,69.8126 -125.9666,69.7802 -125.9220,69.7804 -125.8929,69.8051 -125.8375,69.9173 -125.8065,70.0423 -125.7346,70.1192 -125.7082,70.2094 -125.6362,70.2636 -125.5367,70.3081 -125.4442,70.3354 -125.3497,70.3543 -125.2441,70.3678 -125.1015,70.3776 -124.9117,70.3797 -124.7275,70.3650 -124.5439,70.3714 -124.3428,70.3641 -124.1628,70.3451 -124.0208,70.3172 -123.8733,70.6520 -123.7259,70.9867 -123.8649,71.0511 -123.9478,71.0980 -124.0150,71.1491 -124.2140,71.3618 -124.3895,71.4431 -124.4752,71.5160 -124.5241,71.5391 -124.8089,71.5915 -125.0938,71.6438 -125.2543,71.6814 -125.4298,71.7321 -125.5041,71.7465 -125.5615,71.7501 -125.7739,71.7396 -125.9110,71.7429 -126.1409,71.7661 -126.3280,71.7926 -126.4334,71.8151 -126.5252,71.8445 -126.6017,71.8831 -126.6447,71.9181 -126.6716,71.9814 -126.6329,72.0481 -126.5841,72.0815 -126.4820,72.1328 -126.3832,72.2322 -126.3161,72.3172 -126.1516,72.4061 -126.0701,72.5018 -125.8875,72.6001 -125.8054,72.6349 -125.7828,72.6859 -125.7183,72.7315 -125.7197,72.7488 -125.7874,72.7949 -125.8233,72.8409 -125.8245,72.8844 -125.7959,72.9268 -125.7427,72.9652 -125.5963,73.0354 -125.5724,73.1156 -125.5486,73.1511 -125.4310,73.2358 -125.3219,73.2852 -125.2815,73.3109 -125.2004,73.3953 -125.1225,73.5009 -125.0416,73.5446 -124.8280,73.6321 -124.7768,73.7233 -124.7905,73.7444 -124.9099,73.8021 -124.9695,73.8547 -125.0651,73.9133 -125.1825,74.0064 -125.2488,74.1244 -125.4059,74.1985 -125.5252,74.2881 -125.5516,74.3252 -125.5518,74.3410 -125.4647,74.4342 -125.3865,74.4685 -125.2651,74.5034 -125.1334,74.5282 -124.9645,74.5480 -124.5212,74.5793 -124.2905,74.6047 -124.0182,74.6160 -123.7704,74.6322 -123.6529,74.6355 -123.4657,74.6535 -123.1475,74.6603 -122.8293,74.6671 -122.5533,74.6792 -122.4210,74.6905 -122.0099,74.7420 -121.7134,74.7623 -121.5651,74.7646 -121.4791,75.1488 -121.3930,75.5330 -121.5824,75.5508 -121.7682,75.5806 -121.9054,75.6134 -122.0843,75.6705 -122.2514,75.7025 -122.4232,75.7195 -122.6719,75.7289 -122.8469,75.7413 -123.0130,75.7601 -123.1659,75.7848 -123.3015,75.8147 -123.4008,75.8441 -123.4816,75.8765 -123.5575,75.9178 -123.7608,75.9744 -123.8590,76.0224 -123.8972,76.0621 -123.8996,76.1039 -123.8889,76.1203 -123.7840,76.2328 -123.7517,76.2514 -123.5835,76.3414 -123.4041,76.4374 -123.4032,76.4376 -122.9748,76.5621 -122.8711,76.5809 -122.6415,76.6060 -122.2945,76.6288 -122.2370,76.6354 -122.1201,76.6878 -122.0182,76.7701 -121.9025,76.8150 -121.8122,76.8382 -121.6956,76.8602 -121.5778,76.8764 -121.3977,76.8942 -121.3415,76.9046 -121.2311,76.9709 -121.1352,77.0080 -121.0093,77.0446 -120.9006,77.1065 -120.7396,77.1564 -120.5612,77.2265 -120.2557,77.2972 -120.2254,77.3114 -120.1889,77.3530 -120.1326,77.3832 -120.0442,77.4136 -119.9139,77.4515 -119.8595,77.4655 -119.7315,77.4888 -119.6182,77.5070 -119.3692,77.5325 -119.1202,77.5579 -118.8479,77.5691 -118.5180,77.5699 -118.2765,77.5849 -117.8962,77.5992 -117.8506,77.6071 -117.6323,77.6701 -117.4556,77.7033 -117.3236,77.7204 -117.1824,77.7342 -116.8533,77.7554 -116.4757,77.7690 -116.3336,77.7685 -116.1994,77.7638 -115.9521,77.7430 -115.6080,77.6913 -115.5509,77.6869 -115.5520,77.6947 -115.6059,77.7228 -115.7431,77.7671 -115.9984,77.8670 -116.0663,77.9021 -116.1020,77.9321 -116.1122,77.9706 -116.0723,78.0179 -115.9950,78.0585 -115.8812,78.0951 -115.7455,78.1243 -115.4883,78.1620 -115.2746,78.2019 -115.1237,78.2200 -114.9082,78.2546 -114.6176,78.2846 -114.4879,78.3069 -114.4181,78.3257 -114.3666,78.3469 -114.2156,78.4625 -114.1612,78.4897 -114.0834,78.5176 -114.0746,78.5200 -113.9888,78.5433 -113.8671,78.5692 -113.5352,78.6221 -113.3433,78.6586 -113.0697,78.6933 -112.7962,78.7280 -112.5604,78.7480 -112.5140,78.7510 -112.5046,78.7455 -112.5046,78.7517 -112.5046,79.1344 -112.5046,79.5172 -112.5046,79.9000 -112.5046,80.3545 -112.5046,80.8091 -112.5046,81.2636 -112.5046,81.7182 -112.5046,82.1727 -112.5046,82.6273 -112.5046,83.0818 -112.5046,83.5364 -112.5046,83.9909 -112.5046,84.4455 -112.5046,84.9000 -112.5046,85.3636 -112.5046,85.8273 -112.5046,86.2909 -112.5046,86.7545 -112.5046,87.2182 -112.5046,87.6818 -112.5046,88.1455 -112.5046,88.6091 -112.5046,89.0727 -112.5046,89.5364 -112.5046,90.0000 -112.0638,90.0000 -111.6229,90.0000 -111.1820,90.0000 -110.7412,90.0000 -110.3003,90.0000 -109.8595,90.0000 -109.4186,90.0000 -108.9778,90.0000 -108.5369,90.0000 -108.0960,90.0000 -107.6552,90.0000 -107.2143,90.0000 -106.7735,90.0000 -106.3326,90.0000 -105.8918,90.0000 -105.4509,90.0000 -105.0100,90.0000 -104.5692,90.0000 -104.1283,90.0000 -103.6875,90.0000 -103.2466,90.0000 -102.8058,90.0000 -102.3649,90.0000 -101.9240,90.0000 -101.4832,90.0000 -101.0423,90.0000 -100.6015,90.0000 -100.1606,90.0000 -99.7198,90.0000 -99.2789,90.0000 -98.8380,90.0000 -98.3972,90.0000 -97.9563,90.0000 -97.5155,90.0000 -97.5155,89.5364 -97.5155,89.0727 -97.5155,88.6091 -97.5155,88.1455 -97.5155,87.6818 -97.5155,87.2182 -97.5155,86.7545 -97.5155,86.2909 -97.5155,85.8273 -97.5155,85.3636 -97.5155,84.9000 -97.5155,84.4262 -97.5155,83.9524 -97.5155,83.4786 -97.5155,83.0047 -97.5155,82.5309 -97.5155,82.0571 -97.5155,81.5833 -97.5155,81.1095 -97.5155,80.6357 -97.5172,80.6357 -97.5172,80.5094 -97.5389,80.5062 -97.6871,80.4738 -97.7875,80.4416 -97.8658,80.4058 -97.9107,80.3684 143,-12.0,Siberia -172.5085,70.5002 -172.5164,70.4974 -172.6071,70.5571 -172.7272,70.6362 -172.8579,70.7223 -172.9799,70.8025 -173.1903,70.9390 -173.4425,71.1026 -173.6604,71.2421 -173.9025,71.3970 -174.1325,71.5424 -174.3581,71.6850 -174.5949,71.8327 -174.8079,71.9657 -175.0018,72.0854 -175.2499,72.2386 -175.4435,72.3568 -175.6827,72.5029 -175.9176,72.6450 -176.1045,72.7580 -176.2988,72.8743 -176.5136,73.0030 -176.6989,73.1130 -176.9085,73.2373 -177.0768,73.3365 -177.2873,73.4603 -177.4664,73.5648 -177.6486,73.6711 -177.8257,73.7738 -177.9976,73.8732 -178.1640,73.9690 -178.3247,74.0612 -178.5561,74.1929 -178.7295,74.2916 -178.9907,74.4390 -179.4380,74.6890 -180.0000,75.0000 -180.0000,75.4762 -180.0000,75.9524 -180.0000,76.2857 -180.0000,76.6190 -180.0000,76.9524 -180.0000,77.2857 -180.0000,77.6190 -180.0000,77.9524 -180.0000,78.2857 -180.0000,78.6190 -180.0000,78.9524 -180.0000,79.2857 -180.0000,79.6190 -180.0000,79.9524 -180.0000,80.2857 -180.0000,80.6190 -180.0000,80.9524 -180.0000,81.2857 -180.0000,81.6190 -180.0000,81.9524 -180.0000,82.2857 -180.0000,82.6190 -180.0000,82.9524 -180.0000,83.2857 -180.0000,83.6190 -180.0000,83.9524 -180.0000,84.0000 -180.0000,84.3333 -180.0000,84.6667 -180.0000,85.0000 -180.0000,85.3333 -180.0000,85.6667 -180.0000,86.0000 -180.0000,86.3333 -180.0000,86.6667 -180.0000,87.0000 -180.0000,87.3333 -180.0000,87.6667 -180.0000,88.0000 -180.0000,88.3333 -180.0000,88.6667 -180.0000,89.0000 -180.0000,89.5000 -180.0000,90.0000 -180.0000,90.0000 -180.0000,90.0000 -179.5594,90.0000 -179.1187,90.0000 -178.6781,90.0000 -178.2374,90.0000 -177.7968,90.0000 -177.3561,90.0000 -176.9155,90.0000 -176.4748,90.0000 -176.0342,90.0000 -175.5935,90.0000 -175.1529,90.0000 -174.7123,90.0000 -174.2716,90.0000 -173.8310,90.0000 -173.3903,90.0000 -172.9497,90.0000 -172.5090,90.0000 -172.5090,89.5364 -172.5090,89.0727 -172.5090,88.6091 -172.5090,88.1455 -172.5090,87.6818 -172.5090,87.2182 -172.5090,86.7545 -172.5090,86.2909 -172.5090,85.8273 -172.5090,85.3636 -172.5090,84.9000 -172.5090,84.4455 -172.5090,83.9909 -172.5090,83.5364 -172.5090,83.0818 -172.5090,82.6273 -172.5090,82.1727 -172.5090,81.7182 -172.5090,81.2636 -172.5090,80.8091 -172.5090,80.3545 -172.5090,79.9000 -172.5090,79.4455 -172.5090,78.9909 -172.5090,78.5364 -172.5090,78.0818 -172.5090,77.6273 -172.5090,77.1727 -172.5090,76.7182 -172.5090,76.2636 -172.5090,75.8091 -172.5090,75.3545 -172.5090,74.9000 -172.5090,74.4339 -172.5090,73.9678 -172.5090,73.5017 -172.5090,73.0356 -172.5090,72.5695 -172.5090,72.1034 -172.5090,71.6374 -172.5090,71.1713 -172.5090,70.7052 -172.5085,70.5002 189,-12.0,Southern Ocean -172.5389,-75.0000 -172.5388,-75.4810 -172.5388,-75.9621 -172.5388,-76.4431 -172.5388,-76.9242 -172.5388,-77.4052 -172.5387,-77.8862 -172.5387,-78.3673 -173.0111,-78.3524 -173.4836,-78.3375 -173.9560,-78.3227 -174.4284,-78.3078 -174.9008,-78.2929 -175.3732,-78.2781 -175.8457,-78.2632 -176.3181,-78.2483 -176.7905,-78.2335 -177.2490,-78.1953 -177.7075,-78.1570 -178.1660,-78.1188 -178.6245,-78.0806 -179.0830,-78.0424 -179.5415,-78.0042 -180.0000,-77.9660 -180.0000,-77.5000 -180.0000,-77.1667 -180.0000,-76.8333 -180.0000,-76.5000 -180.0000,-76.1667 -180.0000,-75.8333 -180.0000,-75.5000 -180.0000,-75.1667 -180.0000,-74.8333 -180.0000,-74.5000 -180.0000,-74.1667 -180.0000,-73.8333 -180.0000,-73.5000 -180.0000,-73.1667 -180.0000,-72.8333 -180.0000,-72.5000 -180.0000,-72.1667 -180.0000,-71.8333 -180.0000,-71.5000 -180.0000,-71.1667 -180.0000,-70.8333 -180.0000,-70.5000 -180.0000,-70.1667 -180.0000,-69.8333 -180.0000,-69.5000 -180.0000,-69.1667 -180.0000,-68.8333 -180.0000,-68.5000 -180.0000,-68.1667 -180.0000,-67.8333 -180.0000,-67.5000 -180.0000,-67.1667 -180.0000,-66.8333 -180.0000,-66.5000 -180.0000,-66.1667 -180.0000,-65.8333 -180.0000,-65.5000 -180.0000,-65.1667 -180.0000,-64.8333 -180.0000,-64.5000 -180.0000,-64.1667 -180.0000,-63.8333 -180.0000,-63.5000 -180.0000,-63.1667 -180.0000,-62.8333 -180.0000,-62.5000 -180.0000,-62.1667 -180.0000,-61.8333 -180.0000,-61.5000 -180.0000,-61.1667 -180.0000,-60.8333 -180.0000,-60.5000 -180.0000,-60.1667 -180.0000,-59.8333 -180.0000,-59.5000 -180.0000,-59.1667 -180.0000,-58.8333 -180.0000,-58.5000 -180.0000,-58.1667 -180.0000,-57.8333 -180.0000,-57.5000 -180.0000,-57.1667 -180.0000,-56.8333 -180.0000,-56.5000 -180.0000,-56.1667 -180.0000,-55.8333 -180.0000,-55.5000 -180.0000,-55.1667 -180.0000,-54.8333 -180.0000,-54.5000 -180.0000,-54.1667 -180.0000,-53.8333 -180.0000,-53.5000 -180.0000,-53.1667 -180.0000,-52.8333 -180.0000,-52.5000 -180.0000,-52.1667 -180.0000,-51.8333 -180.0000,-51.5000 -180.0000,-50.9902 -179.7322,-50.7908 -179.3010,-50.4456 -178.9239,-50.1437 -178.5937,-49.8792 -178.2370,-49.5936 -177.8804,-49.3082 -177.4940,-48.9988 -177.1874,-48.7533 -176.7187,-48.3780 -176.2500,-48.0026 -175.8980,-47.7209 -175.5247,-47.4219 -175.1757,-47.1424 -174.8438,-46.8766 -174.3750,-46.5013 -174.0221,-46.2187 -173.6804,-45.9452 -173.2828,-45.6269 -172.9687,-45.3753 -172.5399,-45.0352 -172.5399,-45.5317 -172.5399,-46.0281 -172.5399,-46.5246 -172.5398,-47.0211 -172.5398,-47.5176 -172.5398,-48.0141 -172.5398,-48.5106 -172.5398,-49.0070 -172.5398,-49.5035 -172.5397,-50.0000 -172.5397,-50.4545 -172.5397,-50.9091 -172.5397,-51.3636 -172.5397,-51.8182 -172.5397,-52.2727 -172.5396,-52.7273 -172.5396,-53.1818 -172.5396,-53.6364 -172.5396,-54.0909 -172.5396,-54.5455 -172.5396,-55.0000 -172.5396,-55.4545 -172.5395,-55.9091 -172.5395,-56.3636 -172.5395,-56.8182 -172.5395,-57.2727 -172.5395,-57.7273 -172.5395,-58.1818 -172.5394,-58.6364 -172.5394,-59.0909 -172.5394,-59.5455 -172.5394,-60.0000 -172.5394,-60.4545 -172.5394,-60.9091 -172.5393,-61.3636 -172.5393,-61.8182 -172.5393,-62.2727 -172.5393,-62.7273 -172.5393,-63.1818 -172.5393,-63.6364 -172.5392,-64.0909 -172.5392,-64.5455 -172.5392,-65.0000 -172.5392,-65.4545 -172.5392,-65.9091 -172.5392,-66.3636 -172.5391,-66.8182 -172.5391,-67.2727 -172.5391,-67.7273 -172.5391,-68.1818 -172.5391,-68.6364 -172.5391,-69.0909 -172.5390,-69.5455 -172.5390,-70.0000 -172.5390,-70.4545 -172.5390,-70.9091 -172.5390,-71.3636 -172.5390,-71.8182 -172.5389,-72.2727 -172.5389,-72.7273 -172.5389,-73.1818 -172.5389,-73.6364 -172.5389,-74.0909 -172.5389,-74.5455 -172.5389,-75.0000 1057,-10.0,Pacific/Honolulu -169.3478,53.0443 -169.3562,52.5671 -169.0903,52.6223 -168.6104,52.7189 -168.1305,52.8155 -167.6506,52.9121 -167.1707,53.0087 -166.6908,53.1053 -166.2109,53.2018 -165.7310,53.2984 -165.2511,53.3950 -164.7712,53.4916 -164.2913,53.5882 -163.8114,53.6848 -163.3315,53.7814 -162.8516,53.8780 -162.3717,53.9746 -161.8918,54.0712 -161.4119,54.1678 -160.9320,54.2643 -160.4521,54.3609 -159.9722,54.4575 -159.4923,54.5541 -159.0466,54.6685 -158.6008,54.7828 -158.1550,54.8972 -157.7093,55.0116 -157.2635,55.1259 -156.8178,55.2403 -156.3720,55.3547 -155.9263,55.4690 -155.4805,55.5834 -155.0160,55.7650 -154.5515,55.9466 -154.0869,56.1282 -153.6224,56.3098 -153.1578,56.4914 -152.6933,56.6730 -152.2288,56.8546 -151.7642,57.0362 -151.2997,57.2178 -150.8352,57.3994 -150.3706,57.5810 -149.9061,57.7626 -149.4416,57.9442 -148.9770,58.1258 -148.5125,58.3074 -148.0480,58.4890 -147.5834,58.6706 -147.1189,58.8522 -146.6544,59.0338 -146.1898,59.2154 -145.7333,59.2968 -145.2768,59.3782 -144.8202,59.4596 -144.3637,59.5409 -143.9072,59.6223 -143.4507,59.7037 -142.9942,59.7850 -142.5376,59.8664 -142.5372,59.3755 -142.5368,58.8845 -142.5364,58.3935 -142.5360,57.9026 -142.5356,57.4116 -142.5351,56.9206 -142.5347,56.4297 -142.5343,55.9387 -142.5339,55.4477 -142.5335,54.9568 -142.5331,54.4658 -142.5327,53.9748 -142.5322,53.4839 -142.5318,52.9929 -142.5314,52.5019 -142.5310,52.0110 -142.5306,51.5200 -142.5302,51.0291 -142.5298,50.5381 -142.5293,50.0471 -142.5293,49.9812 -142.5293,49.4878 -142.5293,48.9944 -142.5293,48.5010 -142.5293,48.0076 -142.5293,47.5142 -142.5293,47.0208 -142.5293,46.5274 -142.5293,46.0339 -142.5293,45.5405 -142.5293,45.0471 -142.5293,44.5926 -142.5293,44.1380 -142.5293,43.6835 -142.5293,43.2289 -142.5293,42.7744 -142.5293,42.3199 -142.5293,41.8653 -142.5293,41.4108 -142.5293,40.9562 -142.5293,40.5017 -142.5293,40.0471 -142.5293,39.5926 -142.5293,39.1380 -142.5293,38.6835 -142.5293,38.2289 -142.5293,37.7744 -142.5293,37.3199 -142.5293,36.8653 -142.5293,36.4108 -142.5293,35.9562 -142.5293,35.5017 -142.5293,35.0471 -142.5293,34.5926 -142.5293,34.1380 -142.5293,33.6835 -142.5293,33.2289 -142.5293,32.7744 -142.5293,32.3199 -142.5293,31.8653 -142.5293,31.4108 -142.5293,30.9562 -142.5293,30.5017 -142.5293,30.0471 -142.5293,29.5926 -142.5293,29.1380 -142.5293,28.6835 -142.5293,28.2289 -142.5293,27.7744 -142.5293,27.3199 -142.5293,26.8653 -142.5293,26.4108 -142.5293,25.9562 -142.5293,25.5017 -142.5293,25.0471 -142.5293,24.5926 -142.5293,24.1380 -142.5293,23.6835 -142.5293,23.2289 -142.5293,22.7744 -142.5293,22.3199 -142.5293,21.8653 -142.5293,21.4108 -142.5293,20.9562 -142.5293,20.5017 -142.5293,20.0471 -142.5293,19.6220 -142.5293,19.1970 -142.5293,18.7719 -142.5293,18.3468 -142.5293,17.8923 -142.5293,17.4377 -142.5293,16.9832 -142.5293,16.5286 -142.5293,16.0741 -142.5293,15.6195 -142.5293,15.1650 -142.5293,14.7104 -142.5293,14.2559 -142.5293,13.8014 -142.5293,13.3468 -142.5293,12.8923 -142.5293,12.4377 -142.5293,11.9832 -142.5293,11.5286 -142.5293,11.0741 -142.5293,10.6195 -142.5293,10.1650 -142.5293,9.7104 -142.5293,9.2559 -142.5293,8.8014 -142.5293,8.3468 -142.5293,7.8923 -142.5293,7.4377 -142.5293,6.9832 -142.5293,6.5286 -142.5293,6.0741 -142.5293,5.6195 -142.5293,5.1650 -142.5293,4.7104 -142.5293,4.2559 -142.5293,3.8014 -142.5293,3.3468 -142.5293,2.9182 -142.5293,2.4897 -142.5293,2.0611 -142.5293,1.6325 -142.5293,1.2040 -142.5293,0.7754 -142.5293,0.3468 -142.5293,-0.1077 -142.5293,-0.5623 -142.5293,-1.0168 -142.5293,-1.4714 -142.5293,-1.9259 -142.5293,-2.3805 -142.5293,-2.8350 -142.5293,-3.2896 -142.5293,-3.7441 -142.5293,-4.1986 -142.5293,-4.6532 -142.5293,-5.1024 -142.5293,-5.5515 -142.5293,-6.0007 -142.5293,-6.3341 -142.5293,-6.6675 -142.5293,-7.0010 -142.5293,-7.4430 -142.5293,-7.8850 -142.5293,-8.3271 -142.5293,-8.7691 -142.5293,-9.2112 -142.5293,-9.6532 -142.5293,-10.1313 -142.5292,-10.6094 -142.5292,-11.0875 -142.5291,-11.5657 -142.5291,-12.0438 -142.5290,-12.5219 -142.5290,-13.0000 -142.5000,-13.0000 -142.5000,-13.0007 -142.0429,-13.0006 -141.5858,-13.0005 -141.1287,-13.0005 -140.6716,-13.0004 -140.2144,-13.0004 -139.7573,-13.0003 -139.2978,-13.0004 -138.8384,-13.0004 -138.3789,-13.0005 -137.9194,-13.0005 -137.4599,-13.0006 -137.0004,-13.0007 -136.8004,-13.4507 -136.6004,-13.9006 -136.4003,-14.3506 -136.2003,-14.8006 -136.0003,-15.2506 -135.8003,-15.7006 -135.6003,-16.1506 -135.4002,-16.6006 -135.2002,-17.0506 -135.0002,-17.5006 -134.8002,-17.9506 -134.6002,-18.4006 -134.4002,-18.8506 -134.2001,-19.3006 -134.0001,-19.7506 -133.8001,-20.2006 -133.6001,-20.6506 -133.4001,-21.1006 -133.2000,-21.5506 -133.0000,-22.0006 -133.0000,-22.5006 -133.0000,-23.0006 -133.0000,-23.5006 -133.0000,-24.0006 -133.0000,-24.5006 -133.0000,-25.0006 -133.0000,-25.5006 -133.0000,-26.0006 -133.0000,-26.3339 -133.0000,-26.6673 -133.0000,-27.0006 -133.5000,-27.0006 -134.0000,-27.0006 -134.5000,-27.0006 -135.0000,-27.0006 -135.5000,-27.0006 -136.0000,-27.0006 -136.5000,-27.0006 -137.0000,-27.0006 -137.5000,-27.0006 -138.0000,-27.0006 -138.5000,-27.0006 -139.0000,-27.0006 -139.5000,-27.0006 -140.0000,-27.0006 -140.0001,-27.5005 -140.0002,-28.0003 -140.0003,-28.5002 -140.0004,-29.0000 -140.4219,-29.0001 -140.8433,-29.0001 -141.2648,-29.0001 -141.6863,-29.0002 -142.1078,-29.0002 -142.5293,-29.0002 -142.5293,-29.4678 -142.5293,-29.9354 -142.5293,-30.4030 -142.5293,-30.8705 -142.5293,-31.3381 -142.5293,-31.8057 -142.5293,-32.2733 -142.5293,-32.7408 -142.5293,-33.2084 -142.5293,-33.6760 -142.5293,-34.1305 -142.5293,-34.5851 -142.5293,-35.0396 -142.5293,-35.4942 -142.5293,-35.9487 -142.5293,-36.4033 -142.5293,-36.8578 -142.5293,-37.3124 -142.5293,-37.7669 -142.5293,-38.2215 -142.5293,-38.6760 -142.5293,-39.1305 -142.5293,-39.5851 -142.5293,-40.0396 -142.5293,-40.4942 -142.5293,-40.9487 -142.5293,-41.4033 -142.5293,-41.8578 -142.5293,-42.3124 -142.5293,-42.7669 -142.5293,-43.2215 -142.5293,-43.6760 -142.5293,-44.1305 -142.5293,-44.5851 -142.5293,-45.0396 -142.5293,-45.4942 -142.5293,-45.9487 -142.5293,-46.4033 -142.5293,-46.8578 -142.5293,-47.3124 -142.5293,-47.7669 -142.5293,-48.2215 -142.5293,-48.6760 -142.5293,-49.1305 -142.5293,-49.5851 -142.5293,-50.0396 -142.5293,-50.4942 -142.5293,-50.9487 -142.5293,-51.4033 -142.5293,-51.8578 -142.5293,-52.3124 -142.5293,-52.7669 -142.5293,-53.2215 -142.5293,-53.6760 -142.5293,-54.1331 -142.5293,-54.5903 -142.5293,-55.0474 -142.5293,-55.5046 -142.5293,-55.9617 -142.5293,-56.4189 -142.5293,-56.8760 -142.5293,-57.3305 -142.5293,-57.7851 -142.5293,-58.2396 -142.5293,-58.6942 -142.5293,-59.1487 -142.5293,-59.6033 -142.5293,-60.0578 -142.5293,-60.5124 -142.5293,-60.9669 -142.5293,-61.4215 -142.5293,-61.8760 -142.5293,-62.3305 -142.5293,-62.7851 -142.5293,-63.2396 -142.5293,-63.6942 -142.5293,-64.1487 -142.5293,-64.6033 -142.5293,-65.0578 -142.5293,-65.5124 -142.5293,-65.9669 -142.5293,-66.4215 -142.5293,-66.8760 -142.5293,-67.3305 -142.5293,-67.7851 -142.5293,-68.2396 -142.5293,-68.6942 -142.5293,-69.1487 -142.5293,-69.6033 -142.5293,-70.0578 -142.5293,-70.5124 -142.5293,-70.9669 -142.5293,-71.4215 -142.5293,-71.8760 -142.5293,-72.2760 -142.5293,-72.6760 -142.5293,-73.0760 -142.5293,-73.4760 -142.5293,-73.9161 -142.5293,-74.3561 -142.5293,-74.7962 -142.5293,-75.2362 -142.6072,-75.2372 -142.7317,-75.2460 -142.7992,-75.2507 -142.9597,-75.2723 -143.1104,-75.3053 -143.2373,-75.3439 -143.4301,-75.3410 -143.6174,-75.3490 -143.9249,-75.3817 -144.2324,-75.4143 -144.5884,-75.4302 -144.8057,-75.4606 -144.9708,-75.4201 -145.2705,-75.3577 -145.4241,-75.3350 -145.6112,-75.3173 -145.8213,-75.3082 -146.0135,-75.3108 -146.2138,-75.3245 -146.4011,-75.3491 -146.5873,-75.3855 -146.7342,-75.4228 -146.8398,-75.4640 -146.9134,-75.5101 -146.9465,-75.5537 -146.9413,-75.5966 -146.9018,-75.6369 -146.7971,-75.6984 -146.7776,-75.7428 -146.8197,-75.7842 -147.0222,-75.8743 -147.0926,-75.8750 -147.3081,-75.8660 -147.4124,-75.8665 -147.6217,-75.8776 -147.8694,-75.9063 -148.0730,-75.8932 -148.2932,-75.8909 -148.5448,-75.8961 -148.7501,-75.9101 -148.9897,-75.9435 -149.2057,-75.9886 -149.3551,-76.0370 -149.4669,-76.0967 -149.6990,-76.1042 -149.9061,-76.1240 -150.1011,-76.1557 -150.2664,-76.1974 -150.3955,-76.2464 -150.4923,-76.3061 -150.5361,-76.3629 -150.5480,-76.4484 -150.5716,-76.4712 -150.6114,-76.4894 -150.7016,-76.5055 -151.0868,-76.5246 -151.2857,-76.5474 -151.4749,-76.5862 -151.5522,-76.6095 -151.6306,-76.6415 -151.7031,-76.6901 -151.7278,-76.7407 -151.7184,-76.7697 -151.6908,-76.7983 -151.5504,-76.8737 -151.6358,-76.9334 -151.6613,-76.9632 -151.6666,-77.0043 -151.6379,-77.0526 -151.6635,-77.0592 -151.9529,-77.0932 -152.0799,-77.1148 -152.3408,-77.1050 -152.5647,-77.0550 -152.7783,-77.0274 -152.9716,-77.0151 -153.2641,-77.0076 -153.4805,-76.9493 -153.6613,-76.9146 -153.9108,-76.8865 -154.1647,-76.8721 -154.3381,-76.8703 -154.5060,-76.8753 -154.7383,-76.8907 -154.8975,-76.9086 -155.1907,-76.9197 -155.2343,-76.9174 -155.5177,-76.8823 -155.7118,-76.8687 -155.8982,-76.8657 -156.3668,-76.8718 -156.5949,-76.8823 -156.7314,-76.8958 -156.9229,-76.9211 -157.0676,-76.9272 -157.1747,-76.9243 -157.2837,-76.9164 -157.5063,-76.8888 -157.5063,-76.4925 -157.5063,-76.0963 -157.5063,-75.7000 -157.5063,-75.2455 -157.5063,-74.7909 -157.5063,-74.3364 -157.5063,-73.8818 -157.5063,-73.4273 -157.5063,-72.9727 -157.5063,-72.5182 -157.5063,-72.0636 -157.5063,-71.6091 -157.5063,-71.1545 -157.5063,-70.7000 -157.5063,-70.2455 -157.5063,-69.7909 -157.5063,-69.3364 -157.5063,-68.8818 -157.5063,-68.4273 -157.5063,-67.9727 -157.5063,-67.5182 -157.5063,-67.0636 -157.5063,-66.6091 -157.5063,-66.1545 -157.5063,-65.7000 -157.5063,-65.2000 -157.5063,-64.7000 -157.5063,-64.2000 -157.5063,-63.7000 -157.5063,-63.2000 -157.5063,-62.7000 -157.5063,-62.2000 -157.5063,-61.7000 -157.5063,-61.2000 -157.5063,-60.7000 -157.5063,-60.2455 -157.5063,-59.7909 -157.5063,-59.3364 -157.5063,-58.8818 -157.5063,-58.4273 -157.5063,-57.9727 -157.5063,-57.5182 -157.5063,-57.0636 -157.5063,-56.6091 -157.5063,-56.1545 -157.5063,-55.7000 -157.5063,-55.2455 -157.5063,-54.7909 -157.5063,-54.3364 -157.5063,-53.8818 -157.5063,-53.4273 -157.5063,-52.9727 -157.5063,-52.5182 -157.5063,-52.0636 -157.5063,-51.6091 -157.5063,-51.1545 -157.5063,-50.7000 -157.5063,-50.4500 -157.5063,-50.2000 -157.5063,-49.7455 -157.5063,-49.2909 -157.5063,-48.8364 -157.5063,-48.3818 -157.5063,-47.9273 -157.5063,-47.4727 -157.5063,-47.0182 -157.5063,-46.5636 -157.5063,-46.1091 -157.5063,-45.6545 -157.5063,-45.2000 -157.5063,-44.7455 -157.5063,-44.2909 -157.5063,-43.8364 -157.5063,-43.3818 -157.5063,-42.9273 -157.5063,-42.4727 -157.5063,-42.0182 -157.5063,-41.5636 -157.5063,-41.1091 -157.5063,-40.6545 -157.5063,-40.2000 -157.5063,-39.7530 -157.5063,-39.3059 -157.5063,-38.8589 -157.5063,-38.4119 -157.5063,-37.9648 -157.5063,-37.5178 -157.5063,-37.0633 -157.5063,-36.6087 -157.5063,-36.1542 -157.5063,-35.6996 -157.5063,-35.2451 -157.5063,-34.7905 -157.5063,-34.3360 -157.5063,-33.8814 -157.5063,-33.4269 -157.5063,-32.9724 -157.5063,-32.5178 -157.5063,-32.0178 -157.5063,-31.5178 -157.5063,-31.0178 -157.5063,-30.5178 -157.5063,-30.0178 -157.5063,-29.5178 -157.5063,-29.0178 -157.5063,-28.5178 -157.5063,-28.0178 -157.5063,-27.5178 -157.5063,-27.0983 -157.5063,-26.6787 -157.5063,-26.2592 -157.5063,-25.8397 -157.5063,-25.4202 -157.5063,-25.0006 -158.0058,-25.0006 -158.5052,-25.0006 -159.0046,-25.0006 -159.5040,-25.0006 -160.0035,-25.0006 -160.5029,-25.0006 -161.0023,-25.0006 -161.5017,-25.0006 -162.0012,-25.0006 -162.5006,-25.0006 -163.0000,-25.0006 -163.0000,-24.5720 -163.0001,-24.1433 -163.0001,-23.7147 -163.0001,-23.2860 -163.0001,-22.8573 -163.0001,-22.4287 -163.0001,-22.0000 -163.5001,-22.0001 -164.0001,-22.0002 -164.5001,-22.0002 -165.0001,-22.0003 -165.5001,-22.0004 -166.0000,-22.0005 -166.5000,-22.0005 -167.0000,-22.0006 -167.0005,-21.5006 -167.0009,-21.0006 -167.0014,-20.5006 -167.0018,-20.0006 -167.0023,-19.5006 -167.0028,-19.0006 -167.0032,-18.5006 -167.0037,-18.0006 -167.0041,-17.5006 -167.0046,-17.0006 -167.0050,-16.5007 -167.0055,-16.0007 -167.0059,-15.5007 -167.0064,-15.0007 -167.0069,-14.5007 -167.0073,-14.0007 -167.0078,-13.5007 -167.0082,-13.0007 -167.5041,-13.0007 -168.0000,-13.0007 -168.0000,-12.5357 -168.0000,-12.0708 -168.0000,-11.6058 -168.0000,-11.1409 -168.0000,-10.6759 -168.0000,-10.2300 -168.0001,-9.7841 -168.0001,-9.3381 -168.0001,-8.8922 -168.0001,-8.4462 -168.0001,-8.0003 -167.9965,-8.0003 -167.9977,-7.9983 -167.9977,-5.8423 -167.9875,-5.8423 -167.4330,-5.8423 -166.9132,-5.8423 -166.4973,-5.8423 -166.0468,-5.8423 -165.4924,-5.8423 -164.9726,-5.8423 -164.5221,-5.8423 -164.0369,-5.8423 -163.4824,-5.8423 -163.0319,-5.8423 -162.5121,-5.8423 -161.9923,-5.8423 -161.5418,-5.8423 -161.0567,-5.8423 -160.5368,-5.8423 -159.9824,-5.8423 -159.4626,-5.8423 -159.0121,-5.8423 -158.4788,-5.8423 -158.0348,-5.8423 -157.5062,-5.8423 -156.9671,-5.8423 -156.5019,-5.8423 -156.0804,-5.8423 -155.9290,-6.4225 -155.7824,-6.9844 -155.6499,-7.4922 -155.5208,-7.9871 -155.3702,-8.5641 -155.2428,-9.0522 -155.0923,-9.6292 -154.9841,-10.0439 -154.8758,-10.4586 -154.7485,-10.9467 -154.5662,-11.6454 -153.9963,-11.6454 -153.5219,-11.6454 -153.0178,-11.6454 -152.5137,-11.6454 -152.0096,-11.6454 -151.4759,-11.6454 -150.9718,-11.6454 -150.4974,-11.6454 -150.0002,-11.6454 -150.0002,-11.5001 -150.0002,-11.0002 -150.0002,-10.5003 -150.0001,-10.0003 -150.1346,-9.5484 -150.3175,-9.0572 -150.5040,-8.5563 -150.6542,-8.1529 -150.8250,-7.6944 -150.9945,-7.2390 -151.1750,-6.7545 -151.3421,-6.3057 -151.4970,-5.8895 -151.6436,-5.4959 -151.8205,-5.0210 -151.9610,-4.6437 -152.1705,-4.0810 -152.3484,-3.6031 -152.5241,-3.1314 -152.6973,-2.6662 -152.8680,-2.2077 -153.0521,-1.7135 -153.2192,-1.2647 -153.3827,-0.8256 -153.5704,-0.3216 -153.7327,0.1144 -153.9132,0.5990 -154.0670,1.0120 -154.2402,1.4772 -154.4181,1.9551 -154.5780,2.3845 -154.7488,2.8430 -154.9256,3.3178 -155.0758,3.7212 -155.2756,4.2578 -155.5286,4.9373 -156.0127,4.9373 -156.3981,4.9373 -156.7540,4.9373 -157.1691,4.9373 -157.5249,4.9373 -157.5166,5.5000 -157.5166,5.9999 -157.5167,6.4999 -157.5167,6.9998 -157.5168,7.4998 -157.5168,7.9997 -157.5169,8.4997 -157.5169,8.9996 -157.5170,9.4996 -157.5171,9.9995 -157.5171,10.4995 -157.5172,10.9995 -157.5172,11.4994 -157.5173,11.9994 -157.5173,12.4993 -157.5174,12.9993 -157.5174,13.4992 -157.5175,13.9992 -157.5175,14.4991 -157.5176,14.9991 -158.0002,14.9991 -158.0002,15.0000 -158.4869,15.0000 -158.9737,15.0000 -159.4604,15.0000 -159.9472,15.0000 -160.4339,15.0000 -160.9206,15.0000 -161.4074,15.0000 -161.8941,15.0000 -162.3809,15.0000 -162.8676,15.0000 -163.3544,15.0000 -163.8411,15.0000 -164.3278,15.0000 -164.8146,15.0000 -165.3013,15.0000 -165.7881,15.0000 -166.2748,15.0000 -166.7615,15.0000 -167.2483,15.0000 -167.7350,15.0000 -168.2218,15.0000 -168.7085,15.0000 -169.1953,15.0000 -169.6820,15.0000 -170.1488,15.0000 -170.6157,15.0000 -171.0825,15.0000 -171.5493,15.0000 -172.0162,15.0000 -172.4830,15.0000 -172.4830,15.4252 -172.4830,15.8503 -172.4830,16.2755 -172.4830,16.7007 -172.4830,17.1258 -172.4830,17.5510 -172.4830,18.0510 -172.4831,18.5510 -172.4831,19.0509 -172.4832,19.5509 -172.4832,20.0509 -172.4832,20.5509 -172.4833,21.0509 -172.4833,21.5508 -172.4834,22.0508 -172.4834,22.5508 -172.4834,23.0404 -172.4834,23.5301 -172.4834,24.0197 -172.4834,24.5094 -172.4834,24.9990 -172.9532,24.9990 -173.4230,24.9990 -173.8928,24.9990 -174.3626,24.9990 -174.8323,24.9990 -175.3021,24.9990 -175.7719,24.9990 -176.2417,24.9990 -176.7115,24.9990 -177.1813,24.9990 -177.6511,24.9990 -178.1208,24.9990 -178.5906,24.9990 -179.0604,24.9990 -179.5302,24.9990 -180.0000,24.9990 -180.0000,25.4990 -180.0000,25.9990 -180.0000,26.4990 -180.0000,26.9990 -180.0000,27.4989 -180.0000,27.9989 -180.0000,28.4989 -180.0000,28.9989 -180.0000,29.4989 -180.0000,29.9989 -179.5117,29.9998 -179.0234,30.0007 -178.5350,30.0016 -178.0467,30.0025 -178.0467,29.5203 -178.0467,29.0381 -178.0467,28.5559 -178.0467,28.0737 -178.0467,27.5915 -177.6217,27.5915 -177.1967,27.5915 -176.7717,27.5915 -176.3467,27.5915 -176.3467,28.0730 -176.3467,28.5545 -176.3467,29.0359 -176.3467,29.5174 -176.3467,29.9989 -176.3467,30.0024 -175.8509,30.0023 -175.3551,30.0022 -174.8593,30.0022 -174.3635,30.0021 -173.8677,30.0020 -173.3719,30.0019 -172.8761,30.0018 -172.3803,30.0017 -171.8845,30.0016 -171.3887,30.0015 -170.8929,30.0014 -170.3971,30.0013 -169.9013,30.0012 -169.4056,30.0011 -168.9098,30.0010 -168.4140,30.0009 -167.9182,30.0008 -167.4224,30.0008 -166.9266,30.0007 -166.4308,30.0006 -165.9350,30.0005 -165.4392,30.0004 -164.9434,30.0003 -164.4476,30.0002 -163.9518,30.0001 -163.4560,30.0000 -162.9602,29.9999 -162.4644,29.9998 -161.9686,29.9997 -161.4728,29.9996 -160.9770,29.9995 -160.4812,29.9995 -159.9854,29.9994 -159.4896,29.9993 -158.9938,29.9992 -158.4980,29.9991 -158.0022,29.9990 -157.5064,29.9989 -157.5064,30.0268 -157.5064,30.4813 -157.5064,30.9359 -157.5064,31.3904 -157.5064,31.8450 -157.5064,32.2995 -157.5064,32.7541 -157.5064,33.2086 -157.5064,33.6631 -157.5064,34.1177 -157.5064,34.5722 -157.5064,35.0268 -157.5064,35.4813 -157.5064,35.9359 -157.5064,36.3904 -157.5064,36.8450 -157.5064,37.2995 -157.5064,37.7541 -157.5064,38.2086 -157.5064,38.6631 -157.5064,39.1177 -157.5064,39.5722 -157.5064,40.0268 -157.5064,40.4813 -157.5064,40.9359 -157.5064,41.3904 -157.5064,41.8450 -157.5064,42.2995 -157.5064,42.7541 -157.5064,43.2086 -157.5064,43.6631 -157.5064,44.1177 -157.5064,44.5722 -157.5064,45.0268 -157.5064,45.5226 -157.5064,46.0183 -157.5064,46.5141 -157.5064,47.0099 -157.5064,47.5057 -157.5064,48.0014 -157.9905,48.0014 -158.4746,48.0014 -158.9587,48.0014 -159.4428,48.0014 -159.9269,48.0014 -160.4110,48.0013 -160.8951,48.0013 -161.3792,48.0013 -161.8633,48.0013 -162.3474,48.0013 -162.8315,48.0013 -163.3156,48.0012 -163.7997,48.0012 -164.2838,48.0012 -164.7679,48.0012 -165.2520,48.0012 -165.7361,48.0011 -166.2202,48.0011 -166.7043,48.0011 -167.1884,48.0011 -167.6725,48.0011 -168.1566,48.0011 -168.6407,48.0010 -169.1248,48.0010 -169.6089,48.0010 -170.0930,48.0010 -170.5771,48.0010 -171.0612,48.0010 -171.5453,48.0009 -172.0294,48.0009 -172.5135,48.0009 -172.5135,48.0009 -173.0126,48.0008 -173.5117,48.0008 -174.0108,48.0007 -174.5099,48.0007 -175.0090,48.0006 -175.5081,48.0005 -176.0072,48.0005 -176.5063,48.0004 -177.0054,48.0004 -177.5045,48.0003 -178.0036,48.0002 -178.5027,48.0002 -179.0018,48.0001 -179.5009,48.0001 -180.0000,48.0000 -180.0000,48.4993 -180.0000,48.9986 -180.0000,49.4979 -180.0000,49.9972 -180.0000,49.9972 -180.0000,50.0036 -179.9995,50.4931 -179.9990,50.9826 -179.9986,51.4721 -179.9981,51.9616 -179.9976,52.4511 -179.9971,52.9406 -179.9967,53.4301 -179.9962,53.9196 -179.9957,54.4091 -179.9952,54.8986 -179.9948,55.3881 -179.9943,55.8776 -179.9938,56.3671 -179.9933,56.8566 -179.9929,57.3461 -179.9924,57.8356 -179.9919,58.3251 -179.9914,58.8146 -179.9910,59.3041 -179.9981,59.5030 -179.6932,59.6857 -179.3729,59.8768 -178.8089,60.2107 -178.4064,60.4472 -178.0788,60.6386 -177.7901,60.8065 -177.3828,61.0418 -176.9831,61.2712 -176.5912,61.4946 -175.9658,61.8479 -175.4666,62.1266 -175.1048,62.3278 -174.7603,62.5173 -174.4284,62.6997 -174.0068,62.9286 -174.0073,62.2881 -174.0079,61.8302 -174.0085,61.3723 -174.0091,60.9144 -174.0096,60.4565 -174.0102,59.9987 -173.7178,59.6237 -173.4254,59.2487 -173.1329,58.8737 -172.8405,58.4987 -172.5480,58.1237 -172.2556,57.7487 -171.9632,57.3737 -171.6707,56.9987 -171.3783,56.6237 -171.0858,56.2487 -170.7934,55.8737 -170.5009,55.4987 -170.2085,55.1237 -169.9161,54.7487 -169.6236,54.3737 -169.3312,53.9987 -169.3395,53.5215 -169.3478,53.0443 395,-11.0,Pacific/Pago_Pago -167.9977,-7.9983 -167.9965,-8.0003 -168.0001,-8.0003 -168.0001,-8.4004 -168.0001,-8.8004 -168.0001,-9.2005 -168.0001,-9.6006 -168.0001,-10.0007 -168.0000,-10.3383 -168.0000,-10.6759 -168.0000,-11.1409 -168.0000,-11.6058 -168.0000,-12.0708 -168.0000,-12.5357 -168.0000,-13.0007 -167.5061,-13.0007 -167.0121,-13.0007 -167.0115,-13.5007 -167.0108,-14.0007 -167.0101,-14.5007 -167.0094,-15.0007 -167.0088,-15.5007 -167.0081,-16.0007 -167.0074,-16.5007 -167.0068,-17.0006 -167.0061,-17.5006 -167.0054,-18.0006 -167.0047,-18.5006 -167.0041,-19.0006 -167.0034,-19.5006 -167.0027,-20.0006 -167.0020,-20.5006 -167.0014,-21.0006 -167.0007,-21.5006 -167.0000,-22.0006 -166.5000,-22.0005 -166.0000,-22.0005 -165.5001,-22.0004 -165.0001,-22.0003 -164.5001,-22.0002 -164.0001,-22.0002 -163.5001,-22.0001 -163.0001,-22.0000 -163.0001,-22.4287 -163.0001,-22.8573 -163.0001,-23.2860 -163.0001,-23.7147 -163.0001,-24.1433 -163.0000,-24.5720 -163.0000,-25.0006 -162.5006,-25.0006 -162.0012,-25.0006 -161.5017,-25.0006 -161.0023,-25.0006 -160.5029,-25.0006 -160.0035,-25.0006 -159.5040,-25.0006 -159.0046,-25.0006 -158.5052,-25.0006 -158.0058,-25.0006 -157.5063,-25.0006 -157.5063,-25.4202 -157.5063,-25.8397 -157.5063,-26.2592 -157.5063,-26.6787 -157.5063,-27.0983 -157.5063,-27.5178 -157.5063,-28.0178 -157.5063,-28.5178 -157.5063,-29.0178 -157.5063,-29.5178 -157.5063,-30.0178 -157.5063,-30.5178 -157.5063,-31.0178 -157.5063,-31.5178 -157.5063,-32.0178 -157.5063,-32.5178 -157.5063,-32.9724 -157.5063,-33.4269 -157.5063,-33.8814 -157.5063,-34.3360 -157.5063,-34.7905 -157.5063,-35.2451 -157.5063,-35.6996 -157.5063,-36.1542 -157.5063,-36.6087 -157.5063,-37.0633 -157.5063,-37.5178 -157.5063,-37.9648 -157.5063,-38.4119 -157.5063,-38.8589 -157.5063,-39.3059 -157.5063,-39.7530 -157.5063,-40.2000 -157.5063,-40.6545 -157.5063,-41.1091 -157.5063,-41.5636 -157.5063,-42.0182 -157.5063,-42.4727 -157.5063,-42.9273 -157.5063,-43.3818 -157.5063,-43.8364 -157.5063,-44.2909 -157.5063,-44.7455 -157.5063,-45.2000 -157.5063,-45.6545 -157.5063,-46.1091 -157.5063,-46.5636 -157.5063,-47.0182 -157.5063,-47.4727 -157.5063,-47.9273 -157.5063,-48.3818 -157.5063,-48.8364 -157.5063,-49.2909 -157.5063,-49.7455 -157.5063,-50.2000 -157.5063,-50.4500 -157.5063,-50.7000 -157.5063,-51.1545 -157.5063,-51.6091 -157.5063,-52.0636 -157.5063,-52.5182 -157.5063,-52.9727 -157.5063,-53.4273 -157.5063,-53.8818 -157.5063,-54.3364 -157.5063,-54.7909 -157.5063,-55.2455 -157.5063,-55.7000 -157.5063,-56.1545 -157.5063,-56.6091 -157.5063,-57.0636 -157.5063,-57.5182 -157.5063,-57.9727 -157.5063,-58.4273 -157.5063,-58.8818 -157.5063,-59.3364 -157.5063,-59.7909 -157.5063,-60.2455 -157.5063,-60.7000 -157.5063,-61.2000 -157.5063,-61.7000 -157.5063,-62.2000 -157.5063,-62.7000 -157.5063,-63.2000 -157.5063,-63.7000 -157.5063,-64.2000 -157.5063,-64.7000 -157.5063,-65.2000 -157.5063,-65.7000 -157.5063,-66.1545 -157.5063,-66.6091 -157.5063,-67.0636 -157.5063,-67.5182 -157.5063,-67.9727 -157.5063,-68.4273 -157.5063,-68.8818 -157.5063,-69.3364 -157.5063,-69.7909 -157.5063,-70.2455 -157.5063,-70.7000 -157.5063,-71.1545 -157.5063,-71.6091 -157.5063,-72.0636 -157.5063,-72.5182 -157.5063,-72.9727 -157.5063,-73.4273 -157.5063,-73.8818 -157.5063,-74.3364 -157.5063,-74.7909 -157.5063,-75.2455 -157.5063,-75.7000 -157.5063,-76.0963 -157.5063,-76.4925 -157.5063,-76.8888 -157.5356,-76.8852 -157.6777,-76.8721 -157.8278,-76.8647 -157.9697,-76.8634 -158.1155,-76.8677 -158.4381,-76.8860 -158.6072,-76.9013 -158.7356,-76.9189 -158.8742,-76.9483 -159.0057,-76.9878 -159.0987,-77.0289 -159.1504,-77.0694 -159.1787,-77.1393 -159.1344,-77.2097 -159.1974,-77.2741 -159.2144,-77.3239 -159.1941,-77.3799 -159.1244,-77.4418 -159.1788,-77.5039 -159.1791,-77.5278 -159.1550,-77.5597 -159.2069,-77.5948 -159.2596,-77.6481 -159.3945,-77.7022 -159.5077,-77.7806 -159.5551,-77.8399 -159.5460,-77.8947 -159.5129,-77.9244 -159.4591,-77.9530 -159.3177,-77.9970 -159.7210,-78.0492 -160.1697,-78.1072 -160.6184,-78.1652 -161.0671,-78.2233 -161.5158,-78.2813 -161.9645,-78.3393 -162.4132,-78.3973 -162.8620,-78.4554 -163.3107,-78.5134 -163.7594,-78.5714 -164.2081,-78.6294 -164.6981,-78.6140 -165.1881,-78.5986 -165.6782,-78.5832 -166.1682,-78.5677 -166.6583,-78.5523 -167.1483,-78.5369 -167.6383,-78.5215 -168.1284,-78.5061 -168.6184,-78.4906 -169.1085,-78.4752 -169.5985,-78.4598 -170.0885,-78.4444 -170.5786,-78.4289 -171.0686,-78.4135 -171.5587,-78.3981 -172.0487,-78.3827 -172.5387,-78.3673 -172.5387,-77.8862 -172.5388,-77.4052 -172.5388,-76.9242 -172.5388,-76.4431 -172.5388,-75.9621 -172.5388,-75.4810 -172.5389,-75.0000 -172.5389,-74.5455 -172.5389,-74.0909 -172.5389,-73.6364 -172.5389,-73.1818 -172.5389,-72.7273 -172.5389,-72.2727 -172.5390,-71.8182 -172.5390,-71.3636 -172.5390,-70.9091 -172.5390,-70.4545 -172.5390,-70.0000 -172.5390,-69.5455 -172.5391,-69.0909 -172.5391,-68.6364 -172.5391,-68.1818 -172.5391,-67.7273 -172.5391,-67.2727 -172.5391,-66.8182 -172.5392,-66.3636 -172.5392,-65.9091 -172.5392,-65.4545 -172.5392,-65.0000 -172.5392,-64.5455 -172.5392,-64.0909 -172.5393,-63.6364 -172.5393,-63.1818 -172.5393,-62.7273 -172.5393,-62.2727 -172.5393,-61.8182 -172.5393,-61.3636 -172.5394,-60.9091 -172.5394,-60.4545 -172.5394,-60.0000 -172.5394,-59.5455 -172.5394,-59.0909 -172.5394,-58.6364 -172.5395,-58.1818 -172.5395,-57.7273 -172.5395,-57.2727 -172.5395,-56.8182 -172.5395,-56.3636 -172.5395,-55.9091 -172.5396,-55.4545 -172.5396,-55.0000 -172.5396,-54.5455 -172.5396,-54.0909 -172.5396,-53.6364 -172.5396,-53.1818 -172.5396,-52.7273 -172.5397,-52.2727 -172.5397,-51.8182 -172.5397,-51.3636 -172.5397,-50.9091 -172.5397,-50.4545 -172.5397,-50.0000 -172.5398,-49.5455 -172.5398,-49.0909 -172.5398,-48.6364 -172.5398,-48.1818 -172.5398,-47.7273 -172.5398,-47.2727 -172.5399,-46.8182 -172.5399,-46.3636 -172.5399,-45.9091 -172.5399,-45.4545 -172.5399,-45.0352 -172.5000,-45.0000 -172.5000,-44.5472 -172.5000,-44.0624 -172.5000,-43.5754 -172.5000,-43.1251 -172.5000,-42.6014 -172.5000,-42.1875 -172.5000,-41.6273 -172.5000,-41.2500 -172.5000,-40.6325 -172.5000,-40.1143 -172.5000,-39.6791 -172.5000,-39.1403 -172.5000,-38.6221 -172.5000,-38.1662 -172.5000,-37.6895 -172.5000,-37.1817 -172.5000,-36.5625 -172.5000,-36.2076 -172.5000,-35.6249 -172.5000,-35.1921 -172.5000,-34.6876 -172.5000,-34.2180 -172.5000,-33.7359 -172.5000,-33.2854 -172.5000,-32.8125 -172.5000,-32.2906 -172.5000,-31.6265 -172.5000,-30.9375 -172.5000,-30.3528 -172.5000,-29.8347 -172.5000,-29.2363 -172.5000,-28.8191 -172.5000,-27.9999 -172.5000,-27.3891 -172.5000,-27.0001 -172.5000,-26.3736 -172.5000,-26.0002 -172.5000,-25.4409 -172.5000,-25.0000 -172.5000,-24.4668 -172.5000,-24.0001 -172.5000,-23.5000 -172.5000,-22.9689 -172.5000,-22.4375 -172.5000,-22.0006 -172.5000,-21.5964 -172.5000,-21.1197 -172.5000,-20.6638 -172.5000,-20.3126 -172.5000,-19.7813 -172.5000,-19.2499 -172.5000,-18.7188 -172.5000,-18.1875 -172.5000,-17.6563 -172.5000,-17.2856 -172.5000,-16.8503 -172.5000,-16.3944 -172.5000,-16.0626 -172.5000,-15.5312 -172.5000,-15.0001 -172.0095,-14.7792 -171.5969,-14.5933 -171.2367,-14.4310 -171.0033,-13.9679 -171.0495,-13.5045 -171.1002,-12.9968 -171.1502,-12.5005 -171.1967,-12.0298 -171.2297,-11.6998 -171.2610,-11.3855 -171.2938,-11.0573 -171.2244,-10.6820 -171.1722,-10.3991 -171.0996,-10.0063 -171.0454,-9.7129 -170.9928,-9.4284 -170.8496,-9.1069 -170.7302,-8.8386 -170.5585,-8.4531 -170.3310,-7.9420 -170.1292,-7.4888 -169.8959,-6.9648 -169.6884,-6.4987 -169.3961,-5.8423 -168.9924,-5.8423 -168.5073,-5.8423 -167.9977,-5.8423 -167.9977,-7.9983 181,-11.0,Pacific/Midway -172.5135,48.0009 -172.0294,48.0009 -171.5453,48.0009 -171.0612,48.0010 -170.5771,48.0010 -170.0930,48.0010 -169.6089,48.0010 -169.1248,48.0010 -168.6407,48.0010 -168.1566,48.0011 -167.6725,48.0011 -167.1884,48.0011 -166.7043,48.0011 -166.2202,48.0011 -165.7361,48.0011 -165.2520,48.0012 -164.7679,48.0012 -164.2838,48.0012 -163.7997,48.0012 -163.3156,48.0012 -162.8315,48.0013 -162.3474,48.0013 -161.8633,48.0013 -161.3792,48.0013 -160.8951,48.0013 -160.4110,48.0013 -159.9269,48.0014 -159.4428,48.0014 -158.9587,48.0014 -158.4746,48.0014 -157.9905,48.0014 -157.5064,48.0014 -157.5064,47.5057 -157.5064,47.0099 -157.5064,46.5141 -157.5064,46.0183 -157.5064,45.5226 -157.5064,45.0268 -157.5064,44.5722 -157.5064,44.1177 -157.5064,43.6631 -157.5064,43.2086 -157.5064,42.7541 -157.5064,42.2995 -157.5064,41.8450 -157.5064,41.3904 -157.5064,40.9359 -157.5064,40.4813 -157.5064,40.0268 -157.5064,39.5722 -157.5064,39.1177 -157.5064,38.6631 -157.5064,38.2086 -157.5064,37.7541 -157.5064,37.2995 -157.5064,36.8450 -157.5064,36.3904 -157.5064,35.9359 -157.5064,35.4813 -157.5064,35.0268 -157.5064,34.5722 -157.5064,34.1177 -157.5064,33.6631 -157.5064,33.2086 -157.5064,32.7541 -157.5064,32.2995 -157.5064,31.8450 -157.5064,31.3904 -157.5064,30.9359 -157.5064,30.4813 -157.5064,30.0268 -157.5064,29.9989 -158.0022,29.9990 -158.4980,29.9991 -158.9938,29.9992 -159.4896,29.9993 -159.9854,29.9994 -160.4812,29.9995 -160.9770,29.9995 -161.4728,29.9996 -161.9686,29.9997 -162.4644,29.9998 -162.9602,29.9999 -163.4560,30.0000 -163.9518,30.0001 -164.4476,30.0002 -164.9434,30.0003 -165.4392,30.0004 -165.9350,30.0005 -166.4308,30.0006 -166.9266,30.0007 -167.4224,30.0008 -167.9182,30.0008 -168.4140,30.0009 -168.9098,30.0010 -169.4056,30.0011 -169.9013,30.0012 -170.3971,30.0013 -170.8929,30.0014 -171.3887,30.0015 -171.8845,30.0016 -172.3803,30.0017 -172.8761,30.0018 -173.3719,30.0019 -173.8677,30.0020 -174.3635,30.0021 -174.8593,30.0022 -175.3551,30.0022 -175.8509,30.0023 -176.3467,30.0024 -176.3467,29.9989 -176.3467,29.5174 -176.3467,29.0359 -176.3467,28.5545 -176.3467,28.0730 -176.3467,27.5915 -176.7717,27.5915 -177.1967,27.5915 -177.6217,27.5915 -178.0467,27.5915 -178.0467,28.0737 -178.0467,28.5559 -178.0467,29.0381 -178.0467,29.5203 -178.0467,30.0025 -178.5350,30.0016 -179.0234,30.0007 -179.5117,29.9998 -180.0000,29.9989 -180.0000,30.4989 -180.0000,30.9989 -180.0000,31.4989 -180.0000,31.9989 -180.0000,32.4988 -180.0000,32.9988 -180.0000,33.4988 -180.0000,33.9988 -180.0000,34.4988 -180.0000,34.9988 -179.5000,34.9988 -179.0000,34.9988 -178.5000,34.9988 -178.0000,34.9988 -177.5000,34.9988 -177.0000,34.9988 -176.5000,34.9988 -176.0000,34.9988 -175.5000,34.9988 -175.0000,34.9988 -174.5000,34.9988 -174.0000,34.9988 -173.5000,34.9988 -173.0000,34.9988 -172.5000,34.9988 -172.5005,35.4804 -172.5010,35.9619 -172.5015,36.4435 -172.5020,36.9250 -172.5025,37.4066 -172.5030,37.8882 -172.5035,38.3697 -172.5040,38.8513 -172.5045,39.3328 -172.5050,39.8144 -172.5055,40.2959 -172.5060,40.7775 -172.5065,41.2591 -172.5070,41.7406 -172.5075,42.2222 -172.5080,42.7037 -172.5085,43.1853 -172.5090,43.6669 -172.5095,44.1484 -172.5100,44.6300 -172.5105,45.1115 -172.5110,45.5931 -172.5115,46.0747 -172.5120,46.5562 -172.5125,47.0378 -172.5130,47.5193 -172.5135,48.0009 142,-11.0,American Samoa, Niue -172.4830,15.0205 -172.4830,15.0000 -172.0162,15.0000 -171.5493,15.0000 -171.0825,15.0000 -170.6157,15.0000 -170.1488,15.0000 -169.6820,15.0000 -169.1953,15.0000 -168.7085,15.0000 -168.2218,15.0000 -167.7350,15.0000 -167.2483,15.0000 -166.7615,15.0000 -166.2748,15.0000 -165.7881,15.0000 -165.3013,15.0000 -164.8146,15.0000 -164.3278,15.0000 -163.8411,15.0000 -163.3544,15.0000 -162.8676,15.0000 -162.3809,15.0000 -161.8941,15.0000 -161.4074,15.0000 -160.9206,15.0000 -160.4339,15.0000 -159.9472,15.0000 -159.4604,15.0000 -158.9737,15.0000 -158.4869,15.0000 -158.0002,15.0000 -158.0002,14.9991 -157.5176,14.9991 -157.5175,14.4991 -157.5175,13.9992 -157.5174,13.4992 -157.5174,12.9993 -157.5173,12.4993 -157.5173,11.9994 -157.5172,11.4994 -157.5172,10.9995 -157.5171,10.4995 -157.5171,9.9995 -157.5170,9.4996 -157.5169,8.9996 -157.5169,8.4997 -157.5168,7.9997 -157.5168,7.4998 -157.5167,6.9998 -157.5167,6.4999 -157.5166,5.9999 -157.5166,5.5000 -157.5147,4.9373 -158.0291,4.9373 -158.5023,4.9373 -159.0167,4.9373 -159.5311,4.9373 -160.0044,4.9373 -160.6398,4.9373 -160.6398,4.5346 -160.6398,4.0613 -160.6398,3.5058 -160.6398,3.0120 -160.6398,2.5181 -160.6398,2.0037 -160.6398,1.4982 -160.2484,1.1844 -159.9124,0.9151 -159.5690,0.6397 -159.2405,0.3764 -158.9572,0.1492 -158.4866,-0.2281 -158.4866,-0.6094 -158.4866,-1.0036 -158.4866,-1.4869 -158.4866,-1.9777 -158.4866,-2.5094 -159.0424,-2.5094 -159.5710,-2.5094 -160.0240,-2.5094 -160.5526,-2.5094 -161.0434,-2.5094 -161.5342,-2.5094 -162.0250,-2.5094 -162.5158,-2.5094 -163.0444,-2.5094 -163.5352,-2.5094 -164.0260,-2.5094 -164.5168,-2.5094 -165.0077,-2.5094 -165.5362,-2.5094 -166.0270,-2.5094 -166.4801,-2.5094 -167.0087,-2.5094 -167.4617,-2.5094 -168.1790,-2.5094 -168.7076,-2.5094 -169.2739,-2.5094 -169.8780,-2.5094 -170.4066,-2.5094 -170.8596,-2.5094 -171.4637,-2.5094 -172.0678,-2.5094 -172.5020,-2.5093 -172.5015,-2.1313 -172.5010,-1.7745 -172.5005,-1.3744 -172.5000,-1.0008 -172.5000,-0.5008 -172.5000,-0.0008 -172.5000,0.4992 -172.5000,0.9992 -172.5000,1.4992 -172.5000,1.9992 -172.5000,2.4992 -172.5000,2.9992 -172.5000,3.4992 -172.5000,3.9992 -172.5000,4.4991 -172.5000,4.9991 -172.5000,5.4991 -172.5000,5.9991 -172.5000,6.4991 -172.5000,6.9991 -172.5000,7.4991 -172.5000,7.9991 -172.5000,8.4991 -172.5000,8.9991 -172.5000,9.4991 -172.5000,9.9991 -172.5000,10.4991 -172.5000,10.9991 -172.5000,11.4991 -172.5000,11.9991 -172.5000,12.4991 -172.5000,12.9991 -172.5000,13.4991 -172.5000,13.9991 -172.5000,14.4991 -172.5000,14.9991 -172.4830,15.0205 183,-11.0,Arctic Ocean -157.9421,71.1217 -158.1742,71.0508 -158.2662,71.0443 -158.5190,71.0568 -158.7510,71.0462 -158.9649,71.0800 -159.1500,71.0883 -159.3651,71.0767 -159.6672,71.0398 -159.9113,70.9982 -160.0920,70.9531 -160.1680,70.9255 -160.3238,70.8536 -160.5780,70.7668 -160.8031,70.6617 -161.1135,70.5786 -161.2855,70.5209 -161.3496,70.5180 -161.8301,70.5552 -161.9413,70.5559 -162.0412,70.5498 -162.2192,70.5197 -162.4654,70.4486 -162.7624,70.3754 -162.8974,70.3263 -162.9997,70.2759 -163.2346,70.1122 -163.5108,69.9553 -163.5851,69.8991 -163.7496,69.6848 -163.7620,69.6281 -163.7571,69.4799 -163.7764,69.4356 -163.8161,69.3953 -164.0656,69.2538 -164.3762,69.1515 -164.4988,69.1281 -164.8796,69.1140 -165.1939,69.0798 -165.3701,69.0776 -165.5844,69.0671 -166.0510,69.0927 -166.3396,69.0825 -166.4730,69.0657 -166.5904,69.0378 -166.6808,69.0018 -166.7504,68.9558 -166.7779,68.9104 -167.2223,68.7283 -167.6667,68.5462 -168.1111,68.3642 -168.5556,68.1821 -169.0000,68.0000 -169.3899,68.2481 -169.6985,68.5162 -170.1304,68.8373 -170.5365,69.1322 -170.8897,69.3839 -171.3379,69.6978 -171.7140,69.9568 -172.1081,70.2243 -172.5085,70.4921 -172.5090,70.6997 -172.5090,71.1664 -172.5090,71.6331 -172.5090,72.0998 -172.5090,72.5665 -172.5090,73.0332 -172.5090,73.4999 -172.5090,73.9666 -172.5090,74.4333 -172.5090,74.9000 -172.5090,75.3545 -172.5090,75.8091 -172.5090,76.2636 -172.5090,76.7182 -172.5090,77.1727 -172.5090,77.6273 -172.5090,78.0818 -172.5090,78.5364 -172.5090,78.9909 -172.5090,79.4455 -172.5090,79.9000 -172.5090,80.3545 -172.5090,80.8091 -172.5090,81.2636 -172.5090,81.7182 -172.5090,82.1727 -172.5090,82.6273 -172.5090,83.0818 -172.5090,83.5364 -172.5090,83.9909 -172.5090,84.4455 -172.5090,84.9000 -172.5090,85.3636 -172.5090,85.8273 -172.5090,86.2909 -172.5090,86.7545 -172.5090,87.2182 -172.5090,87.6818 -172.5090,88.1455 -172.5090,88.6091 -172.5090,89.0727 -172.5090,89.5364 -172.5090,90.0000 -172.0683,90.0000 -171.6277,90.0000 -171.1870,90.0000 -170.7463,90.0000 -170.3056,90.0000 -169.8649,90.0000 -169.4242,90.0000 -168.9835,90.0000 -168.5428,90.0000 -168.1021,90.0000 -167.6615,90.0000 -167.2208,90.0000 -166.7801,90.0000 -166.3394,90.0000 -165.8987,90.0000 -165.4580,90.0000 -165.0173,90.0000 -164.5766,90.0000 -164.1359,90.0000 -163.6953,90.0000 -163.2546,90.0000 -162.8139,90.0000 -162.3732,90.0000 -161.9325,90.0000 -161.4918,90.0000 -161.0511,90.0000 -160.6104,90.0000 -160.1698,90.0000 -159.7291,90.0000 -159.2884,90.0000 -158.8477,90.0000 -158.4070,90.0000 -157.9663,90.0000 -157.5256,90.0000 -157.5256,89.5364 -157.5256,89.0727 -157.5256,88.6091 -157.5256,88.1455 -157.5256,87.6818 -157.5256,87.2182 -157.5256,86.7545 -157.5256,86.2909 -157.5256,85.8273 -157.5256,85.3636 -157.5256,84.9000 -157.5256,84.4455 -157.5256,83.9909 -157.5256,83.5364 -157.5256,83.0818 -157.5256,82.6273 -157.5256,82.1727 -157.5256,81.7182 -157.5256,81.2636 -157.5256,80.8091 -157.5256,80.3545 -157.5256,79.9000 -157.5256,79.4455 -157.5256,78.9909 -157.5256,78.5364 -157.5256,78.0818 -157.5256,77.6273 -157.5256,77.1727 -157.5256,76.7182 -157.5256,76.2636 -157.5256,75.8091 -157.5256,75.3545 -157.5256,74.9000 -157.5259,74.4537 -157.5261,74.0075 -157.5263,73.5612 -157.5266,73.1150 -157.5268,72.6687 -157.5270,72.2224 -157.5273,71.7762 -157.5275,71.3299 -157.6824,71.2319 -157.7754,71.1849 -157.9421,71.1217 84,-10.0,United States (Aleutian Islands) 179.9997,59.5019 180.0000,59.2988 180.0000,58.8096 180.0000,58.3204 180.0000,57.8312 180.0000,57.3419 180.0000,56.8527 180.0000,56.3635 180.0000,55.8743 180.0000,55.3851 180.0000,54.8958 180.0000,54.4066 180.0000,53.9174 180.0000,53.4282 180.0000,52.9389 180.0000,52.4497 180.0000,51.9605 180.0000,51.4713 180.0000,50.9821 180.0000,50.4928 180.0000,50.0036 180.0000,49.6029 180.0000,49.2022 180.0000,48.8014 180.0000,48.4007 180.0000,48.0000 179.5550,48.2219 179.1101,48.4438 178.6532,48.6961 178.2162,48.9205 177.7714,49.1480 177.3339,49.3710 176.9104,49.5862 176.4794,49.8044 175.9968,50.0479 175.5871,50.2540 175.1479,50.4742 174.6937,50.7011 174.2611,50.9165 173.8138,51.1386 173.3544,51.3658 172.9671,51.5572 172.5213,51.7762 172.0628,52.0007 171.7345,52.1613 171.3394,52.3537 170.7999,52.6151 170.4874,52.7657 169.9997,52.9999 170.2740,53.1920 170.5474,53.3825 170.8197,53.5717 171.0911,53.7594 171.3616,53.9456 171.6311,54.1304 171.8997,54.3136 172.1670,54.4955 172.4334,54.6759 172.8272,54.9411 173.2262,55.2083 173.4881,55.3829 173.7490,55.5560 174.0087,55.7276 174.2671,55.8978 174.5244,56.0664 174.9285,56.3300 175.2889,56.5638 175.5908,56.7583 175.7921,56.8879 176.0568,57.0572 176.2900,57.2063 176.5014,57.3404 176.7824,57.5187 177.0376,57.6794 177.2693,57.8253 177.5429,57.9963 177.7505,58.1260 178.0306,58.2998 178.2256,58.4207 178.5014,58.5906 178.9380,58.8582 179.4136,59.1479 179.7279,59.3380 179.9997,59.5019 220,-3.5,America/St_Johns -55.2986,50.6033 -55.3834,50.5551 -55.4714,50.5241 -55.5452,50.5114 -55.6217,50.5112 -55.6925,50.5241 -55.7953,50.5613 -55.8525,50.5596 -56.0023,50.4217 -56.0217,50.3805 -56.0159,50.3446 -55.9048,50.2649 -55.6963,50.1690 -55.6755,50.1658 -55.6209,50.1838 -55.1979,50.0475 -55.1781,50.0048 -55.1741,49.9147 -55.1985,49.8714 -55.2886,49.7867 -55.2935,49.7549 -55.2700,49.7376 -55.1217,49.7430 -54.9541,49.7781 -54.7971,49.7943 -54.5342,49.8572 -54.2712,49.9201 -54.1579,49.9376 -54.0652,49.9360 -53.9788,49.9190 -53.9003,49.8886 -53.8254,49.8422 -53.7554,49.7693 -53.7165,49.6277 -53.6922,49.5872 -53.4680,49.5030 -53.2954,49.4143 -53.2298,49.3627 -53.1841,49.2866 -53.1829,49.2335 -53.2318,49.1299 -53.2999,49.0488 -53.3375,48.9631 -53.4431,48.8908 -53.4534,48.8578 -53.3507,48.8156 -53.3147,48.8216 -53.2267,48.8597 -53.1560,48.8694 -53.0632,48.8639 -52.8634,48.8313 -52.8098,48.8007 -52.7546,48.7318 -52.7064,48.6362 -52.6951,48.5784 -52.7716,48.3999 -52.7782,48.3378 -52.6507,48.2586 -52.6224,48.2192 -52.5730,48.0681 -52.6280,47.9642 -52.5404,47.9088 -52.5364,47.9063 -52.4814,47.8715 -52.4368,47.8186 -52.3980,47.7236 -52.3470,47.4920 -52.3805,47.3913 -52.5365,47.1752 -52.5404,47.1698 -52.5582,47.1451 -52.5942,46.9613 -52.6676,46.7475 -52.8619,46.5436 -52.9425,46.4885 -52.9529,46.4814 -53.0871,46.4415 -53.2126,46.4352 -53.3623,46.4618 -53.5535,46.4280 -53.6800,46.4455 -53.7972,46.4899 -54.0105,46.5708 -54.2908,46.6442 -54.3561,46.6717 -54.4101,46.7097 -54.4587,46.7775 -54.4775,46.8694 -54.4639,46.9477 -54.3948,47.1298 -54.3899,47.1797 -54.4047,47.2016 -54.5441,47.1667 -54.7259,47.1631 -54.8922,46.9274 -55.0759,46.7794 -55.2381,46.7011 -55.3435,46.6770 -55.5584,46.6830 -55.7296,46.6613 -55.8837,46.6755 -55.9102,46.6621 -55.9254,46.6990 -55.9834,46.8024 -56.0807,46.8491 -56.0923,46.8547 -56.0999,46.8597 -56.1304,46.9307 -56.1054,47.1002 -56.1553,47.1683 -56.2555,47.3050 -56.3780,47.3359 -56.3742,47.3366 -56.3931,47.3832 -56.4418,47.4136 -56.5216,47.4099 -56.7199,47.3432 -56.8753,47.3392 -57.0441,47.3792 -57.3258,47.3889 -57.4966,47.4149 -57.7015,47.4158 -58.0014,47.4718 -58.0998,47.4803 -58.4456,47.4425 -58.7914,47.4048 -59.1371,47.3671 -59.2490,47.3768 -59.3452,47.3984 -59.4332,47.4317 -59.5077,47.4763 -59.5316,47.5036 -59.5796,47.5585 -59.5971,47.7070 -59.6735,47.8274 -59.6932,47.8999 -59.6799,47.9650 -59.6344,48.0305 -59.5626,48.0909 -59.5287,48.1123 -59.4145,48.1842 -59.3781,48.2318 -59.3949,48.2813 -59.5083,48.3751 -59.5273,48.4019 -59.5266,48.5543 -59.5233,48.5634 -59.4551,48.6538 -59.3631,48.7242 -58.9724,48.9276 -58.8137,48.9856 -58.7715,49.0803 -58.6656,49.2196 -58.5294,49.3104 -58.5088,49.4282 -58.4711,49.5028 -58.4019,49.5740 -58.2548,49.6867 -58.1816,49.8290 -57.9028,50.2311 -57.8015,50.4459 -57.7031,50.6018 -57.6961,50.7202 -57.6732,50.7809 -57.6310,50.8253 -57.5298,50.8831 -57.4718,50.9326 -57.3171,51.1608 -57.2659,51.1870 -57.1025,51.2503 -57.0954,51.7382 -57.0883,52.2260 -57.0812,52.7139 -57.2928,52.8872 -57.5045,53.0606 -57.5045,53.3893 -57.2182,53.6132 -56.9320,53.8371 -56.7484,53.9657 -56.6843,53.9696 -56.5234,53.9957 -56.4605,53.9927 -56.1898,53.9171 -56.0961,53.8277 -56.0560,53.8032 -55.9063,53.7718 -55.8109,53.7377 -55.7250,53.6776 -55.6281,53.5410 -55.4683,53.3844 -55.4233,53.3079 -55.4137,53.2126 -55.4241,53.1731 -55.4338,53.1364 -55.4996,53.0332 -55.5103,52.9921 -55.4702,52.8945 -55.4178,52.6918 -55.3886,52.5790 -55.3110,52.4392 -55.2984,52.2737 -55.2677,52.2274 -55.2293,52.1695 -54.9895,51.9759 -54.9767,51.9527 -54.9897,51.9135 -55.0528,51.8296 -55.1784,51.7155 -55.1747,51.6882 -55.1192,51.6098 -55.1083,51.5734 -55.1872,51.3722 -55.2408,51.2951 -55.3829,51.1568 -55.3687,51.1307 -55.2770,51.0719 -55.2500,51.0344 -55.1858,50.7226 -55.2324,50.6594 -55.2986,50.6033 5,12.0,Asia/Kamchatka 139.1677,65.7462 139.1627,65.7456 138.9792,65.7700 138.9823,65.7709 139.1677,65.7462 5,12.0,Asia/Kamchatka 139.5330,65.7588 139.5298,65.7582 139.3835,65.7704 139.3874,65.7709 139.5330,65.7588 54,12.0,Asia/Kamchatka 157.5078,76.6559 157.0773,76.4182 156.6467,76.1805 156.2162,75.9427 155.7856,75.7050 155.3551,75.4672 154.9245,75.2295 154.4939,74.9917 154.0634,74.7540 153.6328,74.5163 153.2023,74.2785 152.7717,74.0408 152.3412,73.8030 151.9106,73.5653 151.4800,73.3275 151.4804,73.2885 151.0208,73.2856 150.5611,73.2826 150.1014,73.2796 149.6418,73.2767 149.1821,73.2737 148.7224,73.2708 148.2627,73.2678 147.8031,73.2649 147.3434,73.2619 146.8837,73.2590 146.8838,72.9985 146.8743,72.9985 146.8742,73.2590 147.3339,73.2619 147.7936,73.2649 148.2532,73.2678 148.7129,73.2708 149.1726,73.2737 149.6322,73.2767 150.0919,73.2796 150.5516,73.2826 151.0112,73.2856 151.4709,73.2885 151.4705,73.3275 151.9018,73.5653 152.3330,73.8030 152.7642,74.0408 153.1955,74.2785 153.6267,74.5163 154.0579,74.7540 154.4892,74.9917 154.9204,75.2295 155.3517,75.4672 155.7829,75.7050 156.2141,75.9427 156.6454,76.1805 157.0766,76.4182 157.5078,76.6559 44,12.0,Asia/Kamchatka 157.5078,76.6559 157.5077,77.1194 157.5076,77.5828 157.5075,78.0462 157.5074,78.5097 157.5073,78.9731 157.5072,79.4366 157.5071,79.9000 157.5071,80.3545 157.5071,80.8091 157.5071,81.2636 157.5071,81.7182 157.5071,82.1727 157.5071,82.6273 157.5071,83.0818 157.5071,83.5364 157.5071,83.9909 157.5071,84.4455 157.5071,84.9000 157.5071,85.3059 157.5071,85.7118 157.5071,86.1177 157.5166,86.1218 157.5166,85.7145 157.5166,85.3073 157.5166,84.9000 157.5166,84.4455 157.5166,83.9909 157.5166,83.5364 157.5166,83.0818 157.5166,82.6273 157.5166,82.1727 157.5166,81.7182 157.5166,81.2636 157.5166,80.8091 157.5166,80.3545 157.5166,79.9000 157.5153,79.4366 157.5141,78.9731 157.5128,78.5097 157.5116,78.0462 157.5103,77.5828 157.5091,77.1194 157.5078,76.6559 1432,12.0,Asia/Kamchatka 180.0000,90.0000 180.0000,89.5047 180.0000,89.0094 180.0000,88.5142 180.0000,88.0189 180.0000,87.5236 180.0000,87.0283 180.0000,86.5331 180.0000,86.0378 180.0000,85.5425 180.0000,85.0472 180.0000,84.5519 180.0000,84.0567 180.0000,83.5614 180.0000,83.0661 180.0000,82.5708 180.0000,82.0756 180.0000,81.5803 180.0000,81.0850 180.0000,80.5897 180.0000,80.0944 180.0000,79.5992 180.0000,79.1039 180.0000,78.6086 180.0000,78.1133 180.0000,77.6181 180.0000,77.1228 180.0000,76.6275 180.0000,76.1322 180.0000,75.6369 180.0000,75.1417 180.0000,74.6464 180.0000,74.1511 180.0000,73.6558 180.0000,73.1606 180.0000,72.6653 180.0000,72.1700 180.0000,71.6747 180.0000,71.1794 180.0000,70.6842 180.0000,70.1889 180.0000,69.6936 180.0000,69.1983 180.0000,68.7031 180.0000,68.2078 180.0000,67.7125 180.0000,67.2172 180.0000,66.7219 180.0000,66.2267 180.0000,65.7314 180.0000,65.2361 180.0000,64.7408 180.0000,64.2456 180.0000,63.7503 180.0000,63.2550 180.0000,62.7597 180.0000,62.2644 180.0000,61.7692 180.0000,61.2739 180.0000,60.7786 180.0000,60.2833 179.9997,59.5019 179.7279,59.3380 179.4136,59.1479 178.9380,58.8582 178.5014,58.5906 178.2256,58.4207 178.0306,58.2998 177.7505,58.1260 177.5429,57.9963 177.2693,57.8253 177.0376,57.6794 176.7824,57.5187 176.5014,57.3404 176.2900,57.2063 176.0568,57.0572 175.7921,56.8879 175.5908,56.7583 175.2889,56.5638 174.9285,56.3300 174.5244,56.0664 174.2671,55.8978 174.0087,55.7276 173.7490,55.5560 173.4881,55.3829 173.2262,55.2083 172.8272,54.9411 172.4334,54.6759 172.1670,54.4955 171.8997,54.3136 171.6311,54.1304 171.3616,53.9456 171.0911,53.7594 170.8197,53.5717 170.5474,53.3825 170.2740,53.1920 169.9997,52.9999 169.6938,52.8015 169.3873,52.6026 169.0763,52.4007 168.7737,52.2043 168.3860,51.9527 167.9976,51.7007 167.7310,51.5074 167.3571,51.2363 167.0000,50.9775 166.6464,50.7406 166.2928,50.5037 165.9393,50.2668 165.5857,50.0300 165.1370,50.0300 164.6883,50.0300 164.2396,50.0300 163.7909,50.0300 163.3422,50.0300 162.8935,50.0300 162.4448,50.0300 161.9511,50.0252 161.4575,50.0204 160.9638,50.0157 160.4702,50.0109 159.9765,50.0062 159.4829,50.0014 158.9892,49.9966 158.4956,49.9919 158.0019,49.9871 157.5082,49.9824 157.1205,49.7274 156.7328,49.4725 156.3451,49.2176 155.9574,48.9627 155.5696,48.7078 155.1819,48.4528 154.7942,48.1979 154.4065,47.9430 154.0187,47.6881 153.6677,48.0261 153.3166,48.3642 152.9655,48.7022 152.6144,49.0403 152.2633,49.3783 151.9122,49.7164 151.5611,50.0545 151.2100,50.3925 150.8589,50.7306 150.5078,51.0686 150.1568,51.4067 149.8057,51.7447 149.4546,52.0828 149.1035,52.4208 148.7524,52.7589 148.4013,53.0970 148.0502,53.4350 147.6991,53.7731 147.3480,54.1111 146.9970,54.4492 146.9970,54.9443 146.9970,55.4395 146.9970,55.9347 146.9970,56.4298 146.9970,56.9250 146.9970,57.4202 146.9970,57.9153 146.9970,58.4105 146.9970,58.9057 146.9970,59.4008 147.0028,59.4007 147.0753,59.4109 147.0929,59.4176 147.1019,59.4239 147.0967,59.4396 147.0954,59.4451 147.0948,59.4565 147.0957,59.4625 147.0975,59.4684 147.1012,59.4737 147.1059,59.4787 147.1229,59.4939 147.1282,59.5018 147.1302,59.5084 147.1292,59.5142 147.1270,59.5193 147.1208,59.5289 147.1190,59.5342 147.1192,59.5401 147.1203,59.5462 147.1227,59.5526 147.1327,59.5710 147.1334,59.5728 147.1353,59.5774 147.1369,59.5837 147.1366,59.5895 147.1344,59.5947 147.1316,59.5998 147.1320,59.6070 147.1381,59.6176 147.1546,59.6325 147.1588,59.6412 147.1586,59.6475 147.1533,59.6516 147.0967,59.6803 147.0910,59.6848 147.0871,59.6911 147.0896,59.6959 147.0950,59.7001 147.1084,59.7074 147.1257,59.7211 147.1394,59.7354 147.1455,59.7447 147.1481,59.7525 147.1486,59.7584 147.1470,59.7698 147.1450,59.7749 147.1421,59.7798 147.1322,59.7882 147.1205,59.7959 147.1131,59.7992 147.1071,59.8029 147.1031,59.8066 147.1051,59.8111 147.1099,59.8152 147.1252,59.8257 147.1353,59.8348 147.1397,59.8422 147.1409,59.8486 147.1375,59.8533 147.1261,59.8611 147.1229,59.8665 147.1209,59.8727 147.1175,59.8802 147.1113,59.8849 147.1029,59.8885 147.0499,59.8998 147.0430,59.9033 147.0396,59.9097 147.0354,59.9313 147.0295,59.9382 147.0211,59.9430 147.0039,59.9473 146.9979,59.9480 146.9893,59.9478 146.8728,59.9327 146.8042,59.9048 146.7958,59.9024 146.7868,59.9010 146.7761,59.9064 146.7649,59.9169 146.7506,59.9425 146.7402,59.9540 146.7305,59.9615 146.6571,59.9822 146.6498,59.9856 146.6451,59.9896 146.6447,59.9942 146.6472,59.9977 146.6491,59.9995 146.6674,60.0112 146.6726,60.0159 146.6767,60.0215 146.6791,60.0277 146.6832,60.0472 146.6835,60.0543 146.6801,60.0955 146.6760,60.1020 146.6703,60.1071 146.6407,60.1205 146.6234,60.1265 146.6040,60.1307 146.5934,60.1310 146.5829,60.1302 146.5740,60.1281 146.5604,60.1209 146.5542,60.1168 146.5471,60.1134 146.5384,60.1119 146.5280,60.1133 146.5193,60.1191 146.5146,60.1253 146.5111,60.1331 146.5055,60.1373 146.4972,60.1381 146.4891,60.1363 146.4724,60.1310 146.4639,60.1297 146.4539,60.1318 146.4515,60.1365 146.4521,60.1424 146.4555,60.1485 146.4594,60.1541 146.4626,60.1613 146.4644,60.1694 146.4635,60.1804 146.4601,60.1872 146.4549,60.1925 146.4189,60.2108 146.4018,60.2247 146.3972,60.2311 146.3882,60.2599 146.3823,60.2667 146.3742,60.2712 146.3634,60.2723 146.3521,60.2724 146.3419,60.2713 146.2896,60.2574 146.2793,60.2565 146.2310,60.2584 146.2212,60.2569 146.1731,60.2401 146.1002,60.2241 145.8634,60.2223 145.8538,60.2206 145.8461,60.2175 145.8343,60.2089 145.8291,60.2043 145.8231,60.2002 145.8159,60.1969 145.8055,60.1962 145.7930,60.1982 145.7667,60.2111 145.7588,60.2159 145.7438,60.2226 145.7262,60.2283 145.7114,60.2351 145.6137,60.2918 145.5940,60.3070 145.5774,60.3254 145.5708,60.3351 145.5687,60.3400 145.5683,60.3449 145.5721,60.3492 145.5792,60.3524 145.6186,60.3584 145.6280,60.3608 145.6350,60.3644 145.6392,60.3692 145.6396,60.3756 145.6367,60.3825 145.6299,60.3916 145.6214,60.3967 145.6109,60.3999 145.5582,60.4052 145.5453,60.4087 145.5303,60.4149 145.5245,60.4210 145.5223,60.4273 145.5219,60.4331 145.5201,60.4408 145.5172,60.4496 145.5100,60.4637 145.5103,60.4721 145.5143,60.4781 145.5443,60.4990 145.5511,60.5027 145.5674,60.5083 145.6034,60.5168 145.6099,60.5207 145.6135,60.5258 145.6146,60.5319 145.6137,60.5462 145.6154,60.5525 145.6202,60.5573 145.6288,60.5598 145.6480,60.5632 145.6652,60.5680 145.7096,60.5876 145.7353,60.6033 145.7432,60.6064 145.7525,60.6084 145.7633,60.6090 145.7749,60.6085 145.7857,60.6067 145.8057,60.5993 145.8145,60.5985 145.8230,60.6002 145.8309,60.6027 145.8461,60.6090 145.8748,60.6144 145.8823,60.6192 145.8866,60.6276 145.8844,60.6454 145.8882,60.6540 145.8955,60.6590 145.9281,60.6617 146.0314,60.6997 146.0379,60.7035 146.0432,60.7082 146.0466,60.7143 146.0516,60.7274 146.0545,60.7331 146.0598,60.7373 146.0689,60.7388 146.1180,60.7356 146.1399,60.7364 146.1499,60.7356 146.1587,60.7333 146.1661,60.7300 146.1719,60.7260 146.1759,60.7215 146.1819,60.7117 146.1855,60.7070 146.1913,60.7030 146.1995,60.6999 146.2094,60.6974 146.2461,60.6922 146.2555,60.6895 146.2632,60.6862 146.3012,60.6641 146.3099,60.6607 146.3201,60.6587 146.3660,60.6588 146.3868,60.6612 146.3957,60.6634 146.4040,60.6661 146.4183,60.6731 146.4431,60.6897 146.4644,60.7087 146.4689,60.7141 146.4727,60.7205 146.4757,60.7276 146.4764,60.7364 146.4720,60.7418 146.4561,60.7490 146.4495,60.7526 146.4477,60.7580 146.4479,60.7636 146.4501,60.7690 146.4551,60.7728 146.4723,60.7778 146.4804,60.7812 146.4844,60.7879 146.4819,60.7929 146.4706,60.8005 146.4702,60.8046 146.4740,60.8089 146.4857,60.8173 146.4960,60.8270 146.5000,60.8338 146.5027,60.8416 146.5027,60.8528 146.4984,60.8591 146.4910,60.8677 146.4850,60.8785 146.4764,60.9008 146.4752,60.9130 146.4770,60.9223 146.4861,60.9329 146.4913,60.9378 146.4971,60.9422 146.5102,60.9502 146.5175,60.9536 146.5259,60.9563 146.5353,60.9579 146.5460,60.9580 146.5913,60.9507 146.6432,60.9473 146.6668,60.9479 146.6774,60.9492 146.6872,60.9513 146.6953,60.9544 146.7012,60.9589 146.7048,60.9648 146.7070,60.9711 146.7116,60.9950 146.7139,61.0002 146.7156,61.0008 146.7190,61.0015 146.7266,61.0018 146.7313,61.0035 146.7315,61.0072 146.7286,61.0114 146.7234,61.0156 146.7166,61.0191 146.7125,61.0238 146.7097,61.0287 146.7079,61.0339 146.7054,61.0391 146.7017,61.0437 146.6967,61.0480 146.6898,61.0516 146.6732,61.0578 146.6664,61.0611 146.6656,61.0661 146.6675,61.0718 146.6721,61.0768 146.6780,61.0812 146.6869,61.0837 146.7272,61.0895 146.7412,61.0974 146.7472,61.1149 146.7342,61.1497 146.7331,61.1662 146.7346,61.1724 146.7457,61.1948 146.7500,61.2085 146.7499,61.2164 146.7472,61.2229 146.7387,61.2319 146.7063,61.2566 146.6999,61.2638 146.6936,61.2736 146.6841,61.2928 146.6820,61.3038 146.6833,61.3126 146.6872,61.3182 146.6922,61.3234 146.7237,61.3449 146.7293,61.3496 146.7336,61.3552 146.7405,61.3676 146.7487,61.3791 146.7592,61.3897 146.7639,61.3956 146.7676,61.4033 146.7642,61.4081 146.7566,61.4113 146.6767,61.4076 146.6633,61.4092 146.6503,61.4122 146.6371,61.4173 146.6251,61.4242 146.6148,61.4341 146.6129,61.4426 146.6160,61.4487 146.6211,61.4548 146.6257,61.4615 146.6278,61.4721 146.6269,61.4793 146.6250,61.4854 146.6217,61.4903 146.6179,61.4950 146.5853,61.5212 146.5794,61.5279 146.5782,61.5344 146.5826,61.5589 146.5820,61.5729 146.5792,61.5826 146.5691,61.6035 146.5690,61.6103 146.5731,61.6166 146.5798,61.6212 146.5844,61.6297 146.5834,61.6355 146.5797,61.6408 146.5737,61.6448 146.5588,61.6517 146.5399,61.6567 146.5164,61.6590 146.5049,61.6616 146.4546,61.6974 146.4455,61.7056 146.4424,61.7125 146.4442,61.7268 146.4417,61.7324 146.4372,61.7371 146.4191,61.7489 146.4115,61.7523 146.3820,61.7610 146.3734,61.7651 146.3647,61.7710 146.3606,61.7765 146.3582,61.7821 146.3588,61.7882 146.3628,61.8018 146.3631,61.8096 146.3607,61.8202 146.3554,61.8265 146.3484,61.8313 146.2997,61.8558 146.2921,61.8582 146.2706,61.8611 146.2611,61.8638 146.2566,61.8682 146.2523,61.8750 146.2464,61.8806 146.2366,61.8860 146.2314,61.8934 146.2189,61.9029 146.2121,61.9066 146.2040,61.9097 146.1941,61.9118 146.1835,61.9124 146.1633,61.9109 146.1545,61.9120 146.1506,61.9164 146.1474,61.9297 146.1347,61.9391 146.0952,61.9510 146.0689,61.9513 146.0379,61.9484 146.0279,61.9505 146.0202,61.9537 146.0100,61.9622 146.0023,61.9711 146.0005,61.9757 145.9996,61.9790 145.9968,61.9842 145.9847,61.9924 145.9588,62.0053 145.8913,62.0254 145.8742,62.0275 145.8648,62.0262 145.8337,62.0149 145.8141,62.0098 145.8007,62.0092 145.7915,62.0113 145.7848,62.0149 145.7795,62.0191 145.7622,62.0372 145.7504,62.0525 145.7432,62.0582 145.7328,62.0600 145.7216,62.0602 145.6792,62.0546 145.6703,62.0520 145.6634,62.0483 145.6585,62.0432 145.6554,62.0371 145.6489,62.0176 145.6455,62.0114 145.6405,62.0066 145.6361,62.0030 145.6312,62.0005 145.6180,61.9953 145.6003,61.9908 145.5492,61.9828 145.5334,61.9765 145.5136,61.9641 145.5033,61.9600 145.4842,61.9563 145.4684,61.9557 145.4533,61.9565 145.4418,61.9588 145.4334,61.9622 145.4297,61.9669 145.4158,61.9735 145.3917,61.9805 145.2936,61.9917 145.2717,61.9915 145.2630,61.9889 145.2334,61.9750 145.2227,61.9711 145.2085,61.9680 145.1837,61.9650 145.1676,61.9654 145.1558,61.9676 145.1100,61.9881 145.0326,62.0096 145.0249,62.0130 145.0185,62.0169 144.9829,62.0469 144.9676,62.0568 144.9452,62.0633 144.8699,62.0691 144.8473,62.0678 144.8318,62.0654 144.7974,62.0543 144.7451,62.0469 144.7186,62.0817 144.7193,62.0883 144.7217,62.0959 144.7281,62.1001 144.7353,62.1037 144.7545,62.1161 144.7622,62.1192 144.7728,62.1196 144.7956,62.1173 144.8074,62.1171 144.8173,62.1188 144.8263,62.1213 144.8441,62.1289 144.8720,62.1451 144.8826,62.1539 144.8931,62.1586 144.9032,62.1602 144.9144,62.1592 144.9247,62.1571 144.9399,62.1569 144.9580,62.1594 144.9910,62.1711 145.0014,62.1787 145.0045,62.1849 144.9961,62.1952 144.9944,62.2001 144.9946,62.2060 144.9977,62.2183 144.9968,62.2238 144.9940,62.2289 144.9837,62.2373 144.9803,62.2412 144.9797,62.2442 144.9857,62.2449 144.9935,62.2439 145.0370,62.2340 145.0492,62.2333 145.0602,62.2341 145.1150,62.2461 145.1215,62.2507 145.1254,62.2622 145.1296,62.2681 145.1553,62.2719 145.1738,62.2764 145.1780,62.2811 145.1769,62.2858 145.1707,62.2898 145.1627,62.2931 145.1345,62.3016 145.1282,62.3050 145.1262,62.3087 145.1308,62.3119 145.1527,62.3183 145.1682,62.3245 145.1754,62.3307 145.1791,62.3371 145.1785,62.3428 145.1759,62.3480 145.1716,62.3525 145.1608,62.3607 145.1559,62.3653 145.1519,62.3699 145.1499,62.3752 145.1497,62.3813 145.1528,62.3899 145.1578,62.4002 145.1746,62.4280 145.1768,62.4361 145.1765,62.4418 145.1741,62.4470 145.1708,62.4519 145.1654,62.4561 145.1319,62.4750 145.1265,62.4793 145.1236,62.4842 145.1243,62.4899 145.1308,62.4934 145.1403,62.4955 145.1516,62.4952 145.1615,62.4933 145.1693,62.4899 145.1815,62.4909 145.1991,62.4965 145.2360,62.5185 145.2558,62.5275 145.2725,62.5320 145.2830,62.5306 145.2927,62.5280 145.3258,62.5152 145.3468,62.5099 145.3724,62.5072 145.3873,62.5097 145.4027,62.5152 145.4397,62.5348 145.4798,62.5480 145.4823,62.5527 145.4790,62.5569 145.4660,62.5645 145.4424,62.5868 145.4368,62.5909 145.4294,62.5944 145.4025,62.6026 145.3943,62.6069 145.3889,62.6124 145.3901,62.6231 145.3955,62.6290 145.4047,62.6343 145.4145,62.6386 145.4261,62.6452 145.4286,62.6509 145.4258,62.6556 145.4022,62.6717 145.3973,62.6761 145.3938,62.6821 145.3921,62.6895 145.3951,62.7021 145.3954,62.7102 145.3927,62.7164 145.3862,62.7204 145.3623,62.7304 145.3370,62.7461 145.3261,62.7544 145.3257,62.7654 145.3290,62.7814 145.3558,62.8360 145.3605,62.8485 145.3597,62.8543 145.3582,62.8598 145.3571,62.8671 145.3564,62.8759 145.3608,62.8916 145.3660,62.9103 145.3642,62.9157 145.3605,62.9204 145.3558,62.9250 145.3398,62.9376 145.3353,62.9421 145.3323,62.9482 145.3316,62.9558 145.3336,62.9676 145.3327,62.9751 145.3290,62.9809 145.3233,62.9849 145.3184,62.9893 145.3162,62.9940 145.3158,62.9981 145.3158,62.9998 145.3153,63.0010 145.3141,63.0021 145.3097,63.0051 145.3028,63.0084 145.2825,63.0137 145.2747,63.0177 145.2710,63.0232 145.2700,63.0311 145.2734,63.0370 145.2791,63.0419 145.2961,63.0477 145.3028,63.0509 145.3050,63.0554 145.3025,63.0598 145.2982,63.0644 145.2930,63.0687 145.2889,63.0732 145.2874,63.0790 145.2905,63.0862 145.2975,63.0965 145.2998,63.1039 145.2989,63.1102 145.2632,63.1651 145.2552,63.1745 145.2521,63.1796 145.2517,63.1903 145.2542,63.2060 145.2641,63.2388 145.2704,63.2544 145.2766,63.2653 145.2819,63.2702 145.3471,63.3144 145.3545,63.3207 145.3636,63.3308 145.3667,63.3396 145.3685,63.3499 145.3724,63.3598 145.3769,63.3668 145.3907,63.3835 145.4239,63.4329 145.4394,63.4619 145.4413,63.4685 145.4447,63.4935 145.4446,63.5152 145.4472,63.5220 145.4514,63.5279 145.4620,63.5382 145.5182,63.5792 145.5231,63.5844 145.5283,63.5919 145.5393,63.6077 145.5580,63.6296 145.5684,63.6398 145.5746,63.6443 145.5830,63.6474 145.6145,63.6531 145.6243,63.6562 145.6331,63.6603 145.6405,63.6671 145.6432,63.6733 145.6424,63.6791 145.6408,63.6845 145.6398,63.6902 145.6402,63.6963 145.6393,63.7021 145.6370,63.7073 145.6337,63.7121 145.6291,63.7167 145.6260,63.7216 145.6237,63.7269 145.6229,63.7326 145.6263,63.7577 145.6265,63.7637 145.6256,63.7694 145.6217,63.7800 145.6185,63.7851 145.6140,63.7896 145.6077,63.7936 145.5819,63.8034 145.5749,63.8071 145.5572,63.8190 145.5533,63.8241 145.5562,63.8282 145.5608,63.8319 145.5723,63.8361 145.7395,63.8570 145.7550,63.8621 145.7811,63.8758 145.7974,63.8824 145.8160,63.8876 145.9177,63.9004 145.9515,63.9129 146.0704,63.9317 146.1087,63.9416 146.1759,63.9735 146.1816,63.9796 146.1857,63.9862 146.1938,64.0113 146.2006,64.0255 146.2074,64.0334 146.2150,64.0393 146.2703,64.0550 146.0850,64.2085 145.8756,64.2752 145.7043,64.3799 145.4674,64.4416 145.2665,64.4941 145.0380,64.5321 144.8667,64.5607 144.7458,64.7328 144.6065,64.8214 144.4672,64.9733 144.2900,65.0872 144.1507,65.0619 143.9608,65.0366 143.7330,65.0872 143.5557,65.1885 143.4038,65.2012 143.2392,65.1252 143.1000,65.1126 143.0493,65.2138 142.9733,65.3531 142.8214,65.4038 142.6315,65.3658 142.4796,65.2392 142.2644,65.2012 142.0618,65.3658 141.8719,65.4797 141.7200,65.5050 141.5174,65.4164 141.3908,65.3151 141.2516,65.3151 141.1250,65.4038 141.0364,65.5050 140.8591,65.5304 140.5933,65.5430 140.3287,65.5606 140.2128,65.6004 140.1294,65.6345 140.0989,65.6716 140.1848,65.7128 140.2668,65.7386 140.3375,65.7785 140.3695,65.8193 140.3172,65.8249 140.2444,65.8329 140.1084,65.8845 140.0192,65.9285 140.0454,65.9511 140.0827,66.0212 139.9775,66.0772 139.8066,66.1330 139.6382,66.1835 139.6121,66.2408 139.6644,66.2937 139.8154,66.3391 140.0149,66.3874 140.1259,66.4143 140.2283,66.4231 140.2334,66.4228 140.2378,66.4231 140.3428,66.4153 140.4290,66.4406 140.4926,66.5205 140.4904,66.5487 140.4248,66.5620 140.3471,66.5630 140.2747,66.5660 140.2212,66.6045 140.1443,66.6229 140.0295,66.6479 139.9576,66.6790 139.9047,66.7324 139.8521,66.7803 139.7729,66.8021 139.6733,66.8040 139.5607,66.8092 139.4693,66.8394 139.4534,66.8862 139.4247,66.9482 139.3031,67.0230 139.1768,67.0453 139.0020,67.0656 138.8869,67.1053 138.8387,67.1663 138.8694,67.2119 138.9380,67.2557 139.0270,67.3009 139.0266,67.3587 138.9342,67.4284 138.8548,67.4731 138.7623,67.5154 138.8997,67.5315 138.9946,67.5342 138.9977,67.5340 139.0041,67.5342 139.1174,67.5278 139.2416,67.5117 139.3750,67.5198 139.5129,67.5408 139.6057,67.5763 139.7103,67.6198 139.8159,67.6739 139.9143,67.7069 140.0461,67.7456 140.1948,67.7745 140.3369,67.7896 140.4560,67.8205 140.5693,67.8319 140.5733,67.8314 140.5788,67.8319 140.6856,67.8175 140.7169,67.8066 140.7996,67.7779 140.8928,67.7668 141.0545,67.7586 141.1768,67.7580 141.1691,67.7800 141.1225,67.8155 141.0301,67.8663 140.9451,67.9414 140.9321,68.0088 140.9921,68.0748 141.0876,68.1327 141.0843,68.1755 141.0035,68.2119 140.9970,68.2175 140.9431,68.2649 140.9970,68.3228 140.9994,68.3253 141.0628,68.3994 141.1611,68.4260 141.1698,68.4258 141.1706,68.4260 141.2442,68.4243 141.3696,68.4308 141.4648,68.4603 141.5856,68.5142 141.7450,68.5859 141.8400,68.6522 141.8187,68.6900 141.7618,68.7291 141.6940,68.7832 141.6105,68.8424 141.5202,68.9075 141.5214,68.9614 141.5147,68.9985 141.5126,69.0101 141.5031,69.0778 141.5050,69.1481 141.5690,69.1917 141.7025,69.2200 141.9044,69.2265 141.9074,69.2263 141.9139,69.2265 142.0065,69.2201 142.0512,69.2170 142.1658,69.1921 142.3049,69.1852 142.5509,69.2006 142.6695,69.2156 142.7237,69.2787 142.6349,69.3153 142.5047,69.3747 142.5446,69.4092 142.5019,69.4593 142.3511,69.4800 142.3018,69.5283 142.3940,69.5624 142.3223,69.5568 142.1473,69.5532 142.1464,69.5534 142.1378,69.5532 142.0102,69.5776 141.9970,69.6052 141.9970,69.6190 142.0918,69.6583 142.1194,69.6948 142.0866,69.7442 142.1204,69.7636 142.2608,69.7941 142.2454,69.8347 142.1718,69.8565 142.0616,69.8563 142.0615,69.8563 142.0521,69.8563 141.9970,69.8651 141.9514,69.8724 141.8478,69.8735 141.6185,69.8238 141.6095,69.8239 141.6090,69.8238 141.4140,69.8262 141.3876,69.8547 141.3342,69.9052 141.2023,69.9570 141.1000,69.9651 141.0065,69.9393 140.9657,69.9280 140.9592,69.9288 140.9562,69.9280 140.8190,69.9453 140.8141,69.9937 140.8154,69.9985 140.8396,70.0854 140.8626,70.1877 140.9450,70.2640 140.9970,70.2827 141.2242,70.3646 141.5404,70.5251 141.7398,70.6172 141.8037,70.6965 141.8239,70.7676 141.9073,70.8287 141.9970,70.8668 142.0657,70.8960 142.3075,70.9613 142.4068,70.9985 142.4950,71.0315 142.6124,71.1132 142.6317,71.1920 142.5640,71.2701 142.5327,71.3809 142.5650,71.4781 142.6351,71.5909 142.8011,71.6521 142.9828,71.6983 142.9970,71.7083 143.0596,71.7526 143.0972,71.8232 143.1241,71.9281 143.2058,71.9984 143.2082,72.0004 143.4086,72.0691 143.6110,72.1089 143.6520,72.1214 143.7554,72.1529 143.7580,72.1537 144.1059,72.2775 144.1124,72.2764 144.1154,72.2775 144.2442,72.2562 144.3726,72.2370 144.5060,72.2004 144.6527,72.2698 145.0544,72.3054 145.3140,72.3122 145.5736,72.3190 145.5831,72.3190 146.0463,72.3190 146.3004,72.3204 146.5545,72.3217 146.8032,72.3245 146.8745,72.3362 146.8744,72.5797 146.8839,72.5776 146.8839,72.5797 146.9399,72.5671 147.0751,72.5492 147.2367,72.5408 147.4600,72.5455 147.4644,72.5454 147.4695,72.5455 147.6205,72.5418 147.8098,72.5456 147.8130,72.5455 147.8194,72.5456 148.0929,72.5344 148.3664,72.5232 148.6096,72.5091 148.8982,72.4826 149.2594,72.4401 149.5939,72.3870 149.9283,72.3340 150.1363,72.2897 150.2836,72.2424 150.5880,72.0781 150.6901,72.0076 150.7410,71.9424 150.7454,71.8768 150.7072,71.8112 150.6198,71.7508 150.6223,71.7319 150.6535,71.7254 150.8483,71.7119 150.9860,71.6913 151.1248,71.6556 151.2488,71.5994 151.3194,71.5799 151.5146,71.5470 151.8149,71.5150 152.0386,71.4599 152.2329,71.3825 152.4936,71.2315 152.6550,71.1596 152.7216,71.1139 152.7758,71.0525 152.8153,71.0414 152.9151,71.0428 153.1202,71.0751 153.2435,71.0872 153.6864,71.0926 153.7668,71.1055 153.9349,71.1474 154.0660,71.1650 154.4981,71.1995 154.9302,71.2340 155.3624,71.2685 155.7945,71.3029 155.9761,71.3063 155.9792,71.3062 155.9856,71.3063 156.3080,71.2944 156.6900,71.3001 156.6933,71.3000 156.6996,71.3001 157.0055,71.2912 157.3113,71.2824 157.6258,71.2819 157.9128,71.2626 158.1998,71.2432 158.4837,71.2023 158.7677,71.1614 159.1618,71.0858 159.5560,71.0103 159.7418,70.9598 159.9179,71.0501 160.0040,71.0804 160.0899,71.1025 160.2012,71.1228 160.3213,71.1367 160.4471,71.1436 160.4557,71.1436 160.4566,71.1436 160.5850,71.1428 160.7310,71.1317 160.8672,71.1098 160.9986,71.0765 161.1654,71.0217 161.3263,71.0401 161.4808,71.0476 161.4877,71.0475 161.4903,71.0476 161.6463,71.0448 161.7955,71.0310 161.9209,71.0083 162.1246,70.9527 162.1939,70.9261 162.2625,70.8853 162.4432,70.8870 162.4445,70.8869 162.4527,70.8870 162.5601,70.8808 162.6983,70.8636 162.8341,70.8350 162.9670,70.7909 163.0650,70.7367 163.1108,70.6804 163.1086,70.6225 163.0569,70.5663 162.9587,70.5174 162.8278,70.4811 162.6491,70.4527 162.4816,70.4377 162.3708,70.4340 162.3657,70.4341 162.3613,70.4340 162.2263,70.4379 162.0831,70.4509 161.9054,70.4797 161.7162,70.5394 161.4867,70.5542 161.3914,70.5664 161.2865,70.5868 161.1298,70.6311 161.0676,70.6418 161.0429,70.6417 160.8929,70.6210 160.7264,70.6052 160.6475,70.5857 160.6071,70.5575 160.5996,70.5204 160.7140,70.3548 160.7298,70.3012 160.7262,70.2480 160.6858,70.1859 160.5043,70.0345 160.4631,69.9420 160.4875,69.9128 160.5990,69.8925 161.0953,69.8452 161.2162,69.8261 161.2628,69.8312 161.3829,69.8443 161.5072,69.8476 161.5104,69.8475 161.5168,69.8476 161.6963,69.8379 161.8271,69.8189 161.9970,69.8742 162.0959,69.8924 162.2100,69.9047 162.3989,69.9080 162.4005,69.9079 162.4084,69.9080 162.6187,69.8901 162.7354,69.8865 162.7927,69.8899 162.9919,69.9177 163.1230,69.9268 163.1323,69.9268 163.1325,69.9268 163.3633,69.9264 163.5391,69.9130 163.5982,69.9205 163.7451,69.9559 163.8155,69.9673 163.9417,69.9785 164.0654,69.9801 164.0668,69.9800 164.0749,69.9801 164.2746,69.9645 164.4454,69.9336 164.5773,69.8918 164.7069,69.8261 164.7791,69.8112 165.2506,69.8058 165.7220,69.8003 165.9780,69.7816 166.2747,69.7332 166.6087,69.7400 166.6138,69.7399 166.6182,69.7400 166.7589,69.7375 166.8014,69.7449 166.8940,69.7765 167.1265,69.8723 167.3260,69.9974 167.4887,70.0708 167.7434,70.1509 167.9949,70.2080 168.1482,70.2262 168.2982,70.2298 168.3010,70.2296 168.3077,70.2298 168.4449,70.2217 168.7611,70.1903 168.9156,70.1706 169.1201,70.1295 169.3905,70.1065 169.5451,70.0859 169.6983,70.0593 169.8747,70.0198 169.8167,70.0695 169.8043,70.1247 169.8353,70.1803 169.9109,70.2362 170.0136,70.2810 170.1458,70.3157 170.3008,70.3383 170.4585,70.3470 170.4645,70.3468 170.4680,70.3470 170.6678,70.3405 170.8871,70.3073 170.9916,70.2975 171.4626,70.2729 171.7837,70.2305 172.2198,70.1940 172.5708,70.1842 172.5672,70.6558 172.5636,71.1274 172.5599,71.5989 172.5563,72.0705 172.5527,72.5421 172.5491,73.0137 172.5455,73.4853 172.5419,73.9568 172.5382,74.4284 172.5346,74.9000 172.5346,75.3545 172.5346,75.8091 172.5346,76.2636 172.5346,76.7182 172.5346,77.1727 172.5346,77.6273 172.5346,78.0818 172.5346,78.5364 172.5346,78.9909 172.5346,79.4455 172.5346,79.9000 172.5346,80.3545 172.5346,80.8091 172.5346,81.2636 172.5346,81.7182 172.5346,82.1727 172.5346,82.6273 172.5346,83.0818 172.5346,83.5364 172.5346,83.9909 172.5346,84.4455 172.5346,84.9000 172.5346,85.3636 172.5346,85.8273 172.5346,86.2909 172.5346,86.7545 172.5346,87.2182 172.5346,87.6818 172.5346,88.1455 172.5346,88.6091 172.5346,89.0727 172.5346,89.5364 172.5346,90.0000 173.0323,90.0000 173.5300,90.0000 174.0277,90.0000 174.5254,90.0000 175.0231,90.0000 175.5208,90.0000 176.0185,90.0000 176.5162,90.0000 177.0138,90.0000 177.5115,90.0000 178.0092,90.0000 178.5069,90.0000 179.0046,90.0000 179.5023,90.0000 180.0000,90.0000 4594,11.0,Asia/Vladivostok 141.1250,65.4038 141.2516,65.3151 141.3908,65.3151 141.5174,65.4164 141.7200,65.5050 141.8719,65.4797 142.0618,65.3658 142.2644,65.2012 142.4796,65.2392 142.6315,65.3658 142.8214,65.4038 142.9733,65.3531 143.0493,65.2138 143.1000,65.1126 143.2392,65.1252 143.4038,65.2012 143.5557,65.1885 143.7330,65.0872 143.9608,65.0366 144.1507,65.0619 144.2900,65.0872 144.4672,64.9733 144.6065,64.8214 144.7458,64.7328 144.8667,64.5607 145.0380,64.5321 145.2665,64.4941 145.4674,64.4416 145.7043,64.3799 145.8756,64.2752 146.0850,64.2085 146.2703,64.0550 146.2150,64.0393 146.2074,64.0334 146.2006,64.0255 146.1938,64.0113 146.1857,63.9862 146.1816,63.9796 146.1759,63.9735 146.1087,63.9416 146.0704,63.9317 145.9515,63.9129 145.9177,63.9004 145.8160,63.8876 145.7974,63.8824 145.7811,63.8758 145.7550,63.8621 145.7395,63.8570 145.5723,63.8361 145.5608,63.8319 145.5562,63.8282 145.5533,63.8241 145.5572,63.8190 145.5749,63.8071 145.5819,63.8034 145.6077,63.7936 145.6140,63.7896 145.6185,63.7851 145.6217,63.7800 145.6256,63.7694 145.6265,63.7637 145.6263,63.7577 145.6229,63.7326 145.6237,63.7269 145.6260,63.7216 145.6291,63.7167 145.6337,63.7121 145.6370,63.7073 145.6393,63.7021 145.6402,63.6963 145.6398,63.6902 145.6408,63.6845 145.6424,63.6791 145.6432,63.6733 145.6405,63.6671 145.6331,63.6603 145.6243,63.6562 145.6145,63.6531 145.5830,63.6474 145.5746,63.6443 145.5684,63.6398 145.5580,63.6296 145.5393,63.6077 145.5283,63.5919 145.5231,63.5844 145.5182,63.5792 145.4620,63.5382 145.4514,63.5279 145.4472,63.5220 145.4446,63.5152 145.4447,63.4935 145.4413,63.4685 145.4394,63.4619 145.4239,63.4329 145.3907,63.3835 145.3769,63.3668 145.3724,63.3598 145.3685,63.3499 145.3667,63.3396 145.3636,63.3308 145.3545,63.3207 145.3471,63.3144 145.2819,63.2702 145.2766,63.2653 145.2704,63.2544 145.2641,63.2388 145.2542,63.2060 145.2517,63.1903 145.2521,63.1796 145.2552,63.1745 145.2632,63.1651 145.2989,63.1102 145.2998,63.1039 145.2975,63.0965 145.2905,63.0862 145.2874,63.0790 145.2889,63.0732 145.2930,63.0687 145.2982,63.0644 145.3025,63.0598 145.3050,63.0554 145.3028,63.0509 145.2961,63.0477 145.2791,63.0419 145.2734,63.0370 145.2700,63.0311 145.2710,63.0232 145.2747,63.0177 145.2825,63.0137 145.3028,63.0084 145.3097,63.0051 145.3141,63.0021 145.3153,63.0010 145.3158,62.9998 145.3158,62.9981 145.3162,62.9940 145.3184,62.9893 145.3233,62.9849 145.3290,62.9809 145.3327,62.9751 145.3336,62.9676 145.3316,62.9558 145.3323,62.9482 145.3353,62.9421 145.3398,62.9376 145.3558,62.9250 145.3605,62.9204 145.3642,62.9157 145.3660,62.9103 145.3608,62.8916 145.3564,62.8759 145.3571,62.8671 145.3582,62.8598 145.3597,62.8543 145.3605,62.8485 145.3558,62.8360 145.3290,62.7814 145.3257,62.7654 145.3261,62.7544 145.3370,62.7461 145.3623,62.7304 145.3862,62.7204 145.3927,62.7164 145.3954,62.7102 145.3951,62.7021 145.3921,62.6895 145.3938,62.6821 145.3973,62.6761 145.4022,62.6717 145.4258,62.6556 145.4286,62.6509 145.4261,62.6452 145.4145,62.6386 145.4047,62.6343 145.3955,62.6290 145.3901,62.6231 145.3889,62.6124 145.3943,62.6069 145.4025,62.6026 145.4294,62.5944 145.4368,62.5909 145.4424,62.5868 145.4660,62.5645 145.4790,62.5569 145.4823,62.5527 145.4798,62.5480 145.4397,62.5348 145.4027,62.5152 145.3873,62.5097 145.3724,62.5072 145.3468,62.5099 145.3258,62.5152 145.2927,62.5280 145.2830,62.5306 145.2725,62.5320 145.2558,62.5275 145.2360,62.5185 145.1991,62.4965 145.1815,62.4909 145.1693,62.4899 145.1615,62.4933 145.1516,62.4952 145.1403,62.4955 145.1308,62.4934 145.1243,62.4899 145.1236,62.4842 145.1265,62.4793 145.1319,62.4750 145.1654,62.4561 145.1708,62.4519 145.1741,62.4470 145.1765,62.4418 145.1768,62.4361 145.1746,62.4280 145.1578,62.4002 145.1528,62.3899 145.1497,62.3813 145.1499,62.3752 145.1519,62.3699 145.1559,62.3653 145.1608,62.3607 145.1716,62.3525 145.1759,62.3480 145.1785,62.3428 145.1791,62.3371 145.1754,62.3307 145.1682,62.3245 145.1527,62.3183 145.1308,62.3119 145.1262,62.3087 145.1282,62.3050 145.1345,62.3016 145.1627,62.2931 145.1707,62.2898 145.1769,62.2858 145.1780,62.2811 145.1738,62.2764 145.1553,62.2719 145.1296,62.2681 145.1254,62.2622 145.1215,62.2507 145.1150,62.2461 145.0602,62.2341 145.0492,62.2333 145.0370,62.2340 144.9935,62.2439 144.9857,62.2449 144.9797,62.2442 144.9803,62.2412 144.9837,62.2373 144.9940,62.2289 144.9968,62.2238 144.9977,62.2183 144.9946,62.2060 144.9944,62.2001 144.9961,62.1952 145.0045,62.1849 145.0014,62.1787 144.9910,62.1711 144.9580,62.1594 144.9399,62.1569 144.9247,62.1571 144.9144,62.1592 144.9032,62.1602 144.8931,62.1586 144.8826,62.1539 144.8720,62.1451 144.8441,62.1289 144.8263,62.1213 144.8173,62.1188 144.8074,62.1171 144.7956,62.1173 144.7728,62.1196 144.7622,62.1192 144.7545,62.1161 144.7353,62.1037 144.7281,62.1001 144.7217,62.0959 144.7193,62.0883 144.7186,62.0817 144.7451,62.0469 144.7974,62.0543 144.8318,62.0654 144.8473,62.0678 144.8699,62.0691 144.9452,62.0633 144.9676,62.0568 144.9829,62.0469 145.0185,62.0169 145.0249,62.0130 145.0326,62.0096 145.1100,61.9881 145.1558,61.9676 145.1676,61.9654 145.1837,61.9650 145.2085,61.9680 145.2227,61.9711 145.2334,61.9750 145.2630,61.9889 145.2717,61.9915 145.2936,61.9917 145.3917,61.9805 145.4158,61.9735 145.4297,61.9669 145.4334,61.9622 145.4418,61.9588 145.4533,61.9565 145.4684,61.9557 145.4842,61.9563 145.5033,61.9600 145.5136,61.9641 145.5334,61.9765 145.5492,61.9828 145.6003,61.9908 145.6180,61.9953 145.6312,62.0005 145.6361,62.0030 145.6405,62.0066 145.6455,62.0114 145.6489,62.0176 145.6554,62.0371 145.6585,62.0432 145.6634,62.0483 145.6703,62.0520 145.6792,62.0546 145.7216,62.0602 145.7328,62.0600 145.7432,62.0582 145.7504,62.0525 145.7622,62.0372 145.7795,62.0191 145.7848,62.0149 145.7915,62.0113 145.8007,62.0092 145.8141,62.0098 145.8337,62.0149 145.8648,62.0262 145.8742,62.0275 145.8913,62.0254 145.9588,62.0053 145.9847,61.9924 145.9968,61.9842 145.9996,61.9790 146.0005,61.9757 146.0023,61.9711 146.0100,61.9622 146.0202,61.9537 146.0279,61.9505 146.0379,61.9484 146.0689,61.9513 146.0952,61.9510 146.1347,61.9391 146.1474,61.9297 146.1506,61.9164 146.1545,61.9120 146.1633,61.9109 146.1835,61.9124 146.1941,61.9118 146.2040,61.9097 146.2121,61.9066 146.2189,61.9029 146.2314,61.8934 146.2366,61.8860 146.2464,61.8806 146.2523,61.8750 146.2566,61.8682 146.2611,61.8638 146.2706,61.8611 146.2921,61.8582 146.2997,61.8558 146.3484,61.8313 146.3554,61.8265 146.3607,61.8202 146.3631,61.8096 146.3628,61.8018 146.3588,61.7882 146.3582,61.7821 146.3606,61.7765 146.3647,61.7710 146.3734,61.7651 146.3820,61.7610 146.4115,61.7523 146.4191,61.7489 146.4372,61.7371 146.4417,61.7324 146.4442,61.7268 146.4424,61.7125 146.4455,61.7056 146.4546,61.6974 146.5049,61.6616 146.5164,61.6590 146.5399,61.6567 146.5588,61.6517 146.5737,61.6448 146.5797,61.6408 146.5834,61.6355 146.5844,61.6297 146.5798,61.6212 146.5731,61.6166 146.5690,61.6103 146.5691,61.6035 146.5792,61.5826 146.5820,61.5729 146.5826,61.5589 146.5782,61.5344 146.5794,61.5279 146.5853,61.5212 146.6179,61.4950 146.6217,61.4903 146.6250,61.4854 146.6269,61.4793 146.6278,61.4721 146.6257,61.4615 146.6211,61.4548 146.6160,61.4487 146.6129,61.4426 146.6148,61.4341 146.6251,61.4242 146.6371,61.4173 146.6503,61.4122 146.6633,61.4092 146.6767,61.4076 146.7566,61.4113 146.7642,61.4081 146.7676,61.4033 146.7639,61.3956 146.7592,61.3897 146.7487,61.3791 146.7405,61.3676 146.7336,61.3552 146.7293,61.3496 146.7237,61.3449 146.6922,61.3234 146.6872,61.3182 146.6833,61.3126 146.6820,61.3038 146.6841,61.2928 146.6936,61.2736 146.6999,61.2638 146.7063,61.2566 146.7387,61.2319 146.7472,61.2229 146.7499,61.2164 146.7500,61.2085 146.7457,61.1948 146.7346,61.1724 146.7331,61.1662 146.7342,61.1497 146.7472,61.1149 146.7412,61.0974 146.7272,61.0895 146.6869,61.0837 146.6780,61.0812 146.6721,61.0768 146.6675,61.0718 146.6656,61.0661 146.6664,61.0611 146.6732,61.0578 146.6898,61.0516 146.6967,61.0480 146.7017,61.0437 146.7054,61.0391 146.7079,61.0339 146.7097,61.0287 146.7125,61.0238 146.7166,61.0191 146.7234,61.0156 146.7286,61.0114 146.7315,61.0072 146.7313,61.0035 146.7266,61.0018 146.7190,61.0015 146.7156,61.0008 146.7139,61.0002 146.7116,60.9950 146.7070,60.9711 146.7048,60.9648 146.7012,60.9589 146.6953,60.9544 146.6872,60.9513 146.6774,60.9492 146.6668,60.9479 146.6432,60.9473 146.5913,60.9507 146.5460,60.9580 146.5353,60.9579 146.5259,60.9563 146.5175,60.9536 146.5102,60.9502 146.4971,60.9422 146.4913,60.9378 146.4861,60.9329 146.4770,60.9223 146.4752,60.9130 146.4764,60.9008 146.4850,60.8785 146.4910,60.8677 146.4984,60.8591 146.5027,60.8528 146.5027,60.8416 146.5000,60.8338 146.4960,60.8270 146.4857,60.8173 146.4740,60.8089 146.4702,60.8046 146.4706,60.8005 146.4819,60.7929 146.4844,60.7879 146.4804,60.7812 146.4723,60.7778 146.4551,60.7728 146.4501,60.7690 146.4479,60.7636 146.4477,60.7580 146.4495,60.7526 146.4561,60.7490 146.4720,60.7418 146.4764,60.7364 146.4757,60.7276 146.4727,60.7205 146.4689,60.7141 146.4644,60.7087 146.4431,60.6897 146.4183,60.6731 146.4040,60.6661 146.3957,60.6634 146.3868,60.6612 146.3660,60.6588 146.3201,60.6587 146.3099,60.6607 146.3012,60.6641 146.2632,60.6862 146.2555,60.6895 146.2461,60.6922 146.2094,60.6974 146.1995,60.6999 146.1913,60.7030 146.1855,60.7070 146.1819,60.7117 146.1759,60.7215 146.1719,60.7260 146.1661,60.7300 146.1587,60.7333 146.1499,60.7356 146.1399,60.7364 146.1180,60.7356 146.0689,60.7388 146.0598,60.7373 146.0545,60.7331 146.0516,60.7274 146.0466,60.7143 146.0432,60.7082 146.0379,60.7035 146.0314,60.6997 145.9281,60.6617 145.8955,60.6590 145.8882,60.6540 145.8844,60.6454 145.8866,60.6276 145.8823,60.6192 145.8748,60.6144 145.8461,60.6090 145.8309,60.6027 145.8230,60.6002 145.8145,60.5985 145.8057,60.5993 145.7857,60.6067 145.7749,60.6085 145.7633,60.6090 145.7525,60.6084 145.7432,60.6064 145.7353,60.6033 145.7096,60.5876 145.6652,60.5680 145.6480,60.5632 145.6288,60.5598 145.6202,60.5573 145.6154,60.5525 145.6137,60.5462 145.6146,60.5319 145.6135,60.5258 145.6099,60.5207 145.6034,60.5168 145.5674,60.5083 145.5511,60.5027 145.5443,60.4990 145.5143,60.4781 145.5103,60.4721 145.5100,60.4637 145.5172,60.4496 145.5201,60.4408 145.5219,60.4331 145.5223,60.4273 145.5245,60.4210 145.5303,60.4149 145.5453,60.4087 145.5582,60.4052 145.6109,60.3999 145.6214,60.3967 145.6299,60.3916 145.6367,60.3825 145.6396,60.3756 145.6392,60.3692 145.6350,60.3644 145.6280,60.3608 145.6186,60.3584 145.5792,60.3524 145.5721,60.3492 145.5683,60.3449 145.5687,60.3400 145.5708,60.3351 145.5774,60.3254 145.5940,60.3070 145.6137,60.2918 145.7114,60.2351 145.7262,60.2283 145.7438,60.2226 145.7588,60.2159 145.7667,60.2111 145.7930,60.1982 145.8055,60.1962 145.8159,60.1969 145.8231,60.2002 145.8291,60.2043 145.8343,60.2089 145.8461,60.2175 145.8538,60.2206 145.8634,60.2223 146.1002,60.2241 146.1731,60.2401 146.2212,60.2569 146.2310,60.2584 146.2793,60.2565 146.2896,60.2574 146.3419,60.2713 146.3521,60.2724 146.3634,60.2723 146.3742,60.2712 146.3823,60.2667 146.3882,60.2599 146.3972,60.2311 146.4018,60.2247 146.4189,60.2108 146.4549,60.1925 146.4601,60.1872 146.4635,60.1804 146.4644,60.1694 146.4626,60.1613 146.4594,60.1541 146.4555,60.1485 146.4521,60.1424 146.4515,60.1365 146.4539,60.1318 146.4639,60.1297 146.4724,60.1310 146.4891,60.1363 146.4972,60.1381 146.5055,60.1373 146.5111,60.1331 146.5146,60.1253 146.5193,60.1191 146.5280,60.1133 146.5384,60.1119 146.5471,60.1134 146.5542,60.1168 146.5604,60.1209 146.5740,60.1281 146.5829,60.1302 146.5934,60.1310 146.6040,60.1307 146.6234,60.1265 146.6407,60.1205 146.6703,60.1071 146.6760,60.1020 146.6801,60.0955 146.6835,60.0543 146.6832,60.0472 146.6791,60.0277 146.6767,60.0215 146.6726,60.0159 146.6674,60.0112 146.6491,59.9995 146.6472,59.9977 146.6447,59.9942 146.6451,59.9896 146.6498,59.9856 146.6571,59.9822 146.7305,59.9615 146.7402,59.9540 146.7506,59.9425 146.7649,59.9169 146.7761,59.9064 146.7868,59.9010 146.7958,59.9024 146.8042,59.9048 146.8728,59.9327 146.9893,59.9478 146.9979,59.9480 147.0039,59.9473 147.0211,59.9430 147.0295,59.9382 147.0354,59.9313 147.0396,59.9097 147.0430,59.9033 147.0499,59.8998 147.1029,59.8885 147.1113,59.8849 147.1175,59.8802 147.1209,59.8727 147.1229,59.8665 147.1261,59.8611 147.1375,59.8533 147.1409,59.8486 147.1397,59.8422 147.1353,59.8348 147.1252,59.8257 147.1099,59.8152 147.1051,59.8111 147.1031,59.8066 147.1071,59.8029 147.1131,59.7992 147.1205,59.7959 147.1322,59.7882 147.1421,59.7798 147.1450,59.7749 147.1470,59.7698 147.1486,59.7584 147.1481,59.7525 147.1455,59.7447 147.1394,59.7354 147.1257,59.7211 147.1084,59.7074 147.0950,59.7001 147.0896,59.6959 147.0871,59.6911 147.0910,59.6848 147.0967,59.6803 147.1533,59.6516 147.1586,59.6475 147.1588,59.6412 147.1546,59.6325 147.1381,59.6176 147.1320,59.6070 147.1316,59.5998 147.1344,59.5947 147.1366,59.5895 147.1369,59.5837 147.1353,59.5774 147.1334,59.5728 147.1327,59.5710 147.1227,59.5526 147.1203,59.5462 147.1192,59.5401 147.1190,59.5342 147.1208,59.5289 147.1270,59.5193 147.1292,59.5142 147.1302,59.5084 147.1282,59.5018 147.1229,59.4939 147.1059,59.4787 147.1012,59.4737 147.0975,59.4684 147.0957,59.4625 147.0948,59.4565 147.0954,59.4451 147.0967,59.4396 147.1019,59.4239 147.0929,59.4176 147.0753,59.4109 147.0028,59.4007 146.9970,59.4008 146.9970,58.9057 146.9970,58.4105 146.9970,57.9153 146.9970,57.4202 146.9970,56.9250 146.9970,56.4298 146.9970,55.9347 146.9970,55.4395 146.9970,54.9443 146.9970,54.4492 147.3480,54.1111 147.6991,53.7731 148.0502,53.4350 148.4013,53.0970 148.7524,52.7589 149.1035,52.4208 149.4546,52.0828 149.8057,51.7447 150.1568,51.4067 150.5078,51.0686 150.8589,50.7306 151.2100,50.3925 151.5611,50.0545 151.9122,49.7164 152.2633,49.3783 152.6144,49.0403 152.9655,48.7022 153.3166,48.3642 153.6677,48.0261 154.0187,47.6881 153.6016,47.4262 153.1844,47.1643 152.7673,46.9025 152.3501,46.6406 151.9330,46.3787 151.5158,46.1169 151.0987,45.8550 150.6815,45.5931 150.2644,45.3313 149.8472,45.0694 149.4301,44.8075 149.0129,44.5457 148.5958,44.2838 148.1488,44.1064 147.7018,43.9291 147.2549,43.7517 146.8079,43.5744 146.3609,43.3970 145.9140,43.2196 145.9045,43.2619 145.8919,43.2854 145.8463,43.3704 145.8408,43.4171 145.7803,43.4538 145.7100,43.5232 145.7058,43.5273 145.6877,43.5453 145.6623,43.5396 145.6065,43.5273 145.5387,43.5123 145.4800,43.5782 145.4613,43.5991 145.4024,43.6487 145.3318,43.6817 145.2628,43.7317 145.2423,43.7834 145.2462,43.8176 145.2521,43.8693 145.2745,43.9053 145.3404,43.9623 145.3617,43.9807 145.4043,44.0175 145.4421,44.0642 145.4988,44.1065 145.5332,44.1427 145.5781,44.2178 145.5974,44.2499 145.5891,44.3019 145.5792,44.3645 145.5044,44.4597 145.4546,44.4872 145.3907,44.5048 145.3223,44.5088 145.2546,44.4991 145.1647,44.4583 144.9977,44.3112 144.8568,44.2163 144.7038,44.0857 144.6621,44.0813 144.5565,44.0917 144.5053,44.1080 144.4515,44.2033 144.3644,44.2540 143.9312,44.3257 143.7104,44.3860 143.5693,44.4387 143.5098,44.5000 143.2066,44.6696 142.9679,44.8468 142.7862,45.0169 142.6795,45.1555 142.5152,45.3076 142.5152,45.6230 142.3764,45.6395 141.9686,45.7185 141.6206,45.7858 141.4916,45.8470 141.3514,45.8089 141.1084,45.8447 141.0202,46.1650 140.9996,46.2328 141.0046,46.3075 141.0266,46.3495 141.0769,46.3902 141.1583,46.4164 141.3867,46.5311 141.6150,46.6458 141.6413,46.7358 141.7861,46.9829 141.8240,47.0769 141.8222,47.1424 141.7515,47.2664 141.7252,47.5850 141.7565,47.6888 141.9206,47.9748 141.9346,48.0617 141.9230,48.2079 141.8975,48.2976 141.6663,48.6016 141.6270,48.6882 141.6187,48.7630 141.6435,48.8345 141.7277,48.9334 141.7723,49.0202 141.8015,49.1495 141.8370,49.2278 141.8278,49.3302 141.9054,49.5733 141.9262,49.7503 141.8938,49.9100 141.9272,50.1154 141.8954,50.3429 141.8160,50.4952 141.8050,50.5721 141.8938,50.9173 141.9301,50.9747 142.0171,51.0600 142.0331,51.0969 141.9531,51.2038 141.8860,51.3345 141.8175,51.4153 141.6212,51.5808 141.5284,51.6273 141.4738,51.6340 141.4328,51.6161 141.3505,51.5409 141.2252,51.4739 141.2109,51.3732 141.1767,51.3035 141.1264,51.2446 141.0204,51.1624 141.0296,51.0282 140.9893,50.9027 140.9511,50.8467 140.8518,50.7526 140.8244,50.7073 140.8317,50.6013 140.8177,50.5200 140.8594,50.3688 140.8539,50.2856 140.9373,50.2253 140.9761,50.1823 141.0020,50.1215 141.0032,50.0576 140.9854,50.0104 140.9471,49.9633 140.8200,49.8827 140.8648,49.5360 140.7160,49.2749 140.6062,49.1707 140.5924,49.0930 140.5974,48.9117 140.5694,48.8608 140.4653,48.7554 140.4326,48.7044 140.4205,48.6444 140.4233,48.4818 140.3880,48.3988 140.2093,48.2241 139.9598,48.0905 139.8244,47.9598 139.4912,47.7284 139.4045,47.5836 139.2982,47.4484 139.2520,47.3339 139.1741,47.2369 139.1329,47.2043 139.0001,47.1339 138.7798,46.9625 138.7242,46.8197 138.6020,46.6652 138.5883,46.5508 138.5663,46.4979 138.4954,46.4196 138.4004,46.3618 138.3267,46.1917 138.2855,46.1295 138.1939,46.0318 138.0203,45.8821 137.8861,45.7221 137.6940,45.5748 137.5608,45.5025 137.3181,45.2627 137.0342,45.1098 136.9501,44.9885 136.8179,44.8980 136.7506,44.8090 136.6065,44.6667 136.4769,44.5741 136.4075,44.4575 136.3539,44.4010 136.2860,44.3576 136.1087,44.2846 136.0667,44.2575 136.0057,44.1864 135.9027,44.1048 135.6942,43.7587 135.6165,43.6658 135.4182,43.5410 135.3221,43.4123 135.2696,43.3671 135.0332,43.2757 134.8960,43.1696 134.5816,43.0175 134.3624,42.9392 134.0576,42.7407 133.7856,42.6509 133.5956,42.6473 133.2354,42.5244 133.1255,42.5143 133.0100,42.5266 132.7372,42.5910 132.6122,42.6492 132.5202,42.6296 132.4616,42.5925 132.3635,42.5720 132.2684,42.5819 132.1988,42.6147 132.1278,42.6776 132.0997,42.7562 132.1027,42.7669 132.0609,42.8237 131.8841,42.7859 131.8769,42.7866 131.7606,42.7257 131.6797,42.7044 131.6847,42.6746 131.6648,42.5904 131.6337,42.5447 131.5728,42.5031 131.4950,42.4818 131.4274,42.4849 131.3653,42.4259 131.3162,42.3999 131.2587,42.3861 131.1205,42.3982 131.0574,42.4038 130.9903,42.3106 130.9805,42.2970 130.7005,42.2948 130.7001,42.2950 130.6729,42.3111 130.6628,42.3206 130.6603,42.3339 130.6606,42.3592 130.6567,42.3833 130.6458,42.4009 130.6285,42.4148 130.6059,42.4206 130.5874,42.4320 130.5756,42.4457 130.5588,42.4827 130.5547,42.4876 130.5499,42.4904 130.5461,42.4953 130.5445,42.5063 130.5427,42.5105 130.5308,42.5305 130.5316,42.5310 130.5317,42.5305 130.5685,42.5528 130.5855,42.5689 130.5853,42.5989 130.5729,42.6218 130.5521,42.6456 130.5277,42.6658 130.5049,42.6778 130.4753,42.6790 130.4750,42.6790 130.4743,42.6790 130.4384,42.6753 130.4047,42.6776 130.3806,42.6967 130.4081,42.7354 130.4919,42.7808 130.5874,42.8173 130.6499,42.8289 130.7310,42.8259 130.7349,42.8245 130.7351,42.8247 130.7358,42.8245 130.7490,42.8375 130.7578,42.8533 130.7705,42.8658 130.7947,42.8690 130.8165,42.8641 130.8562,42.8498 130.9924,42.8487 130.9925,42.8487 130.9934,42.8487 131.0005,42.8588 131.0029,42.8733 131.0097,42.8869 131.0248,42.8963 131.0402,42.8980 131.0740,42.8966 131.0741,42.8966 131.0749,42.8966 131.1040,42.9104 131.1003,42.9354 131.0837,42.9652 131.0753,42.9934 131.0762,43.0196 131.0793,43.0318 131.0864,43.0421 131.0950,43.0468 131.1134,43.0519 131.1208,43.0590 131.1239,43.0677 131.1250,43.0754 131.1276,43.0824 131.1353,43.0893 131.1703,43.1078 131.1849,43.1208 131.1908,43.1392 131.1858,43.1563 131.1759,43.1684 131.1682,43.1816 131.1700,43.2017 131.1795,43.2174 131.1940,43.2308 131.2265,43.2519 131.2387,43.2658 131.2430,43.2838 131.2434,43.3214 131.2489,43.3442 131.2587,43.3557 131.2706,43.3647 131.2819,43.3802 131.2828,43.3931 131.2788,43.4385 131.2752,43.4512 131.2626,43.4638 131.2616,43.4645 131.2538,43.4692 131.1679,43.5211 131.1617,43.5328 131.1666,43.5490 131.1867,43.5744 131.1930,43.5886 131.1917,43.5959 131.1834,43.6140 131.1812,43.6230 131.1824,43.6298 131.1882,43.6480 131.1889,43.6567 131.1864,43.6663 131.1784,43.6845 131.1760,43.6938 131.1759,43.7015 131.1788,43.7255 131.1713,43.7811 131.1738,43.7991 131.1938,43.8602 131.2183,43.9085 131.2193,43.9259 131.2089,43.9595 131.2077,43.9748 131.2139,43.9932 131.2141,44.0069 131.2187,44.0161 131.2363,44.0311 131.2525,44.0416 131.2624,44.0461 131.2654,44.0542 131.1661,44.3681 131.0668,44.6820 131.0223,44.7469 131.0085,44.7573 130.9725,44.7756 130.9311,44.8250 130.9344,44.8417 130.9725,44.8541 130.9912,44.8542 131.0092,44.8563 131.0257,44.8624 131.0398,44.8746 131.0430,44.8825 131.0421,44.8978 131.0463,44.9054 131.0525,44.9090 131.0968,44.9191 131.1102,44.9195 131.1236,44.9156 131.1404,44.9068 131.1580,44.9017 131.1587,44.9018 131.1590,44.9017 131.1775,44.9034 131.2456,44.9222 131.2599,44.9282 131.3009,44.9565 131.3141,44.9637 131.3304,44.9676 131.3505,44.9680 131.4195,44.9590 131.4199,44.9590 131.4205,44.9590 131.4347,44.9613 131.4439,44.9713 131.4531,44.9837 131.4667,44.9932 131.4724,44.9966 131.6100,45.0897 131.6208,45.1037 131.6233,45.1237 131.6059,45.1474 131.6062,45.1646 131.6161,45.1849 131.6287,45.1985 131.6455,45.2064 131.6678,45.2096 131.7113,45.2087 131.7113,45.2087 131.7122,45.2087 131.7241,45.2153 131.7862,45.3047 131.8190,45.3328 131.8532,45.3375 131.8707,45.3263 131.8805,45.3099 131.8884,45.2911 131.9004,45.2729 131.9146,45.2601 131.9315,45.2487 131.9499,45.2397 131.9688,45.2340 131.9696,45.2338 132.4047,45.1465 132.8398,45.0592 132.9212,45.0279 132.9534,45.0244 132.9536,45.0245 132.9543,45.0244 132.9671,45.0289 132.9936,45.0485 133.0248,45.0583 133.0506,45.0817 133.0743,45.0906 133.0997,45.1078 133.1164,45.1230 133.1225,45.1313 133.1262,45.1413 133.1282,45.1554 133.1216,45.1834 133.1075,45.2147 133.0985,45.2435 133.1077,45.2646 133.1028,45.2872 133.1282,45.3851 133.1297,45.4028 133.1341,45.4196 133.1412,45.4354 133.1808,45.4938 133.1902,45.5041 133.2031,45.5113 133.2418,45.5233 133.2726,45.5284 133.2998,45.5421 133.3312,45.5493 133.3635,45.5679 133.3758,45.5731 133.4144,45.5733 133.4261,45.5804 133.4161,45.6004 133.4286,45.6153 133.4430,45.6206 133.4594,45.6226 133.4782,45.6277 133.4727,45.6325 133.4631,45.6440 133.4576,45.6488 133.4838,45.6629 133.4925,45.6734 133.4888,45.6867 133.4776,45.6936 133.4526,45.6992 133.4440,45.7097 133.4718,45.7289 133.4859,45.7685 133.5123,45.7786 133.5044,45.7876 133.4847,45.7966 133.4782,45.8058 133.4782,45.8201 133.4859,45.8284 133.4950,45.8333 133.4993,45.8372 133.5036,45.8620 133.5153,45.8793 133.5326,45.8882 133.5523,45.8884 133.5591,45.8852 133.5641,45.8806 133.5701,45.8764 133.5797,45.8748 133.5801,45.8749 133.5806,45.8748 133.5868,45.8763 133.5870,45.8798 133.5854,45.8841 133.5875,45.8884 133.6040,45.8986 133.6071,45.9051 133.6079,45.9195 133.6110,45.9298 133.6186,45.9363 133.6280,45.9377 133.6499,45.9278 133.6502,45.9281 133.6508,45.9278 133.6591,45.9345 133.6958,46.0228 133.7210,46.0638 133.7203,46.0793 133.6973,46.1150 133.6883,46.1418 133.6997,46.1490 133.7210,46.1502 133.7420,46.1590 133.7670,46.1780 133.7761,46.1867 133.7827,46.1967 133.7874,46.2067 133.7945,46.2143 133.8066,46.2172 133.8129,46.2142 133.8212,46.2001 133.8301,46.1969 133.8305,46.1971 133.8311,46.1969 133.8376,46.2004 133.8538,46.2175 133.8619,46.2236 133.8563,46.2366 133.8705,46.2445 133.8910,46.2508 133.9034,46.2590 133.9029,46.2781 133.8950,46.2913 133.8947,46.3019 133.9169,46.3130 133.9080,46.3225 133.8973,46.3272 133.8965,46.3272 133.8964,46.3272 133.8852,46.3266 133.8751,46.3202 133.8643,46.3393 133.8818,46.3537 133.9270,46.3713 133.9348,46.3908 133.9224,46.4101 133.9012,46.4266 133.8828,46.4371 133.8714,46.4405 133.8625,46.4410 133.8553,46.4447 133.8487,46.4570 133.8468,46.4707 133.8503,46.4803 133.8929,46.5290 133.8973,46.5382 133.8998,46.5633 133.9034,46.5736 133.9213,46.5903 133.9683,46.6112 133.9890,46.6252 133.9994,46.6377 134.0062,46.6458 134.0157,46.6650 134.0268,46.7108 134.0427,46.7527 134.0456,46.7720 134.0368,46.7896 134.0224,46.8061 134.0176,46.8195 134.0214,46.8340 134.0637,46.9069 134.0679,46.9268 134.0679,46.9678 134.0701,46.9812 134.0751,46.9881 134.0818,46.9927 134.0883,46.9988 134.1152,47.0558 134.1252,47.0705 134.1467,47.0812 134.1981,47.0852 134.2181,47.0944 134.2282,47.1177 134.2172,47.1377 134.1997,47.1555 134.1907,47.1729 134.1965,47.1937 134.1982,47.2053 134.1941,47.2105 134.1874,47.2137 134.1693,47.2306 134.1628,47.2384 134.1551,47.2579 134.1610,47.2716 134.1711,47.2868 134.1765,47.3104 134.1845,47.3275 134.2040,47.3384 134.2460,47.3551 134.2584,47.3672 134.2804,47.3978 134.2938,47.4097 134.3138,47.4201 134.3336,47.4264 134.3550,47.4294 134.3791,47.4302 134.3900,47.4328 134.4028,47.4374 134.4152,47.4391 134.4366,47.4298 134.4719,47.4286 134.4721,47.4287 134.4729,47.4286 134.4856,47.4302 134.5014,47.4389 134.5362,47.4656 134.5578,47.4712 134.5616,47.4818 134.6051,47.5277 134.6159,47.5366 134.6252,47.5496 134.6691,47.5740 134.6836,47.5878 134.6871,47.6089 134.6876,47.6312 134.6938,47.6489 134.7149,47.6561 134.7264,47.6632 134.7735,47.7107 134.7661,47.7182 134.7707,47.7410 134.6975,47.7951 134.6774,47.8243 134.6750,47.8404 134.6685,47.8647 134.6587,47.8867 134.6467,47.8963 134.6237,47.9002 134.6000,47.9107 134.5886,47.9259 134.6023,47.9441 134.5679,47.9855 134.5603,48.0095 134.5682,48.0404 134.5874,48.0612 134.6489,48.1022 134.6637,48.1080 134.6839,48.1355 134.6884,48.2198 134.7040,48.2526 134.7197,48.2634 134.7186,48.2633 134.7187,48.2634 134.7014,48.2616 134.6621,48.2670 134.6123,48.2854 134.5704,48.3155 134.5436,48.3573 134.5428,48.3569 134.5426,48.3573 134.5259,48.3490 134.5082,48.3426 134.4900,48.3392 134.4723,48.3399 134.4541,48.3442 134.4064,48.3703 134.3873,48.3813 134.3866,48.3812 134.3863,48.3813 134.3671,48.3770 134.2062,48.3597 134.1161,48.3352 134.0572,48.3272 134.0406,48.3225 134.0248,48.3151 133.9824,48.2852 133.9664,48.2787 133.9371,48.2733 133.8785,48.2753 133.8783,48.2753 133.8775,48.2753 133.8676,48.2743 133.8495,48.2693 133.8148,48.2551 133.7966,48.2506 133.7389,48.2511 133.7388,48.2511 133.7379,48.2511 133.7213,48.2448 133.7077,48.2317 133.6855,48.2021 133.6702,48.1900 133.6545,48.1839 133.6214,48.1773 133.6055,48.1716 133.5938,48.1642 133.5848,48.1554 133.5778,48.1450 133.5720,48.1328 133.5599,48.1133 133.5440,48.1015 133.5244,48.0954 133.4643,48.0896 133.4518,48.0914 133.4141,48.1030 133.3972,48.1059 133.3804,48.1063 133.3803,48.1063 133.3795,48.1063 133.3240,48.1001 133.3024,48.1013 133.2917,48.1044 133.2737,48.1152 133.2638,48.1194 133.2247,48.1260 133.2239,48.1260 133.2237,48.1260 133.1852,48.1248 133.0920,48.1068 133.0754,48.1009 133.0610,48.0918 133.0510,48.0785 133.0475,48.0716 133.0440,48.0662 133.0394,48.0615 133.0328,48.0568 133.0247,48.0524 132.9408,48.0267 132.9403,48.0226 132.8648,47.9857 132.8536,47.9761 132.8334,47.9516 132.8207,47.9424 132.8059,47.9362 132.7899,47.9328 132.7758,47.9338 132.7635,47.9394 132.7391,47.9541 132.7234,47.9589 132.7067,47.9604 132.7063,47.9603 132.7057,47.9604 132.6891,47.9577 132.6746,47.9506 132.6681,47.9451 132.6631,47.9387 132.6604,47.9313 132.6609,47.9230 132.6641,47.9158 132.6681,47.9093 132.6714,47.9025 132.6723,47.8944 132.6680,47.8813 132.6588,47.8698 132.6074,47.8276 132.5814,47.8007 132.5764,47.7942 132.5739,47.7884 132.5736,47.7822 132.5808,47.7648 132.5823,47.7561 132.5804,47.7480 132.5742,47.7396 132.5567,47.7235 132.5472,47.7168 132.5364,47.7111 132.5247,47.7075 132.4766,47.7068 132.4542,47.7105 132.4016,47.7298 132.3675,47.7353 132.3334,47.7365 132.3331,47.7365 132.3324,47.7365 132.2644,47.7288 132.2508,47.7254 132.2022,47.7005 132.1890,47.6956 132.1617,47.6900 132.1179,47.6895 132.0902,47.6948 132.0263,47.6979 132.0261,47.6978 132.0254,47.6979 131.9665,47.6900 131.9574,47.6869 131.9330,47.6722 131.9245,47.6689 131.9143,47.6677 131.9045,47.6681 131.8953,47.6700 131.8658,47.6816 131.8556,47.6841 131.8369,47.6845 131.8367,47.6845 131.8359,47.6845 131.7990,47.6794 131.7813,47.6791 131.7040,47.6962 131.7033,47.6961 131.7030,47.6962 131.6836,47.6946 131.6307,47.6669 131.6217,47.6638 131.6125,47.6620 131.6039,47.6616 131.5949,47.6623 131.5857,47.6647 131.5784,47.6686 131.5389,47.7032 131.5087,47.7215 131.4760,47.7345 131.4418,47.7412 131.4193,47.7426 131.4190,47.7426 131.4184,47.7426 131.2101,47.7092 131.1672,47.6971 131.1292,47.6812 131.1039,47.6765 131.0847,47.6752 131.0451,47.6772 131.0243,47.6823 130.9844,47.7000 130.9666,47.7039 130.9428,47.7180 130.9392,47.7511 130.9433,47.7898 130.9427,47.8206 130.9079,47.8843 130.8583,47.9278 130.6833,48.0503 130.6757,48.0639 130.6719,48.0866 130.6658,48.1021 130.6643,48.1164 130.6757,48.1359 130.7082,48.1634 130.7305,48.1780 130.7474,48.1844 130.7537,48.1896 130.7646,48.2253 130.7698,48.2367 130.7748,48.2442 130.8204,48.2819 130.8249,48.2942 130.8261,48.3178 130.8231,48.3338 130.8154,48.3400 130.8044,48.3427 130.7912,48.3482 130.7806,48.3564 130.7747,48.3642 130.7646,48.3830 130.7442,48.4116 130.7393,48.4298 130.7474,48.4478 130.7605,48.4679 130.7599,48.4857 130.7452,48.4973 130.7168,48.4991 130.7167,48.4990 130.7159,48.4991 130.6398,48.4774 130.6273,48.4823 130.6253,48.4884 130.6167,48.5081 130.6144,48.5195 130.6157,48.5302 130.6217,48.5493 130.6211,48.5605 130.6086,48.5767 130.5873,48.5834 130.5633,48.5881 130.5417,48.5984 130.5307,48.6163 130.5342,48.6358 130.6288,48.7960 130.6676,48.8415 130.6775,48.8574 130.6753,48.8708 130.6516,48.8764 130.6509,48.8763 130.6507,48.8764 130.6268,48.8745 130.6288,48.8825 130.6323,48.8921 130.6407,48.9016 130.6739,48.9242 130.7023,48.9375 130.7951,48.9711 130.8290,48.9834 130.8402,48.9861 130.8483,48.9868 130.8570,48.9867 130.8662,48.9856 130.8747,48.9836 130.9027,48.9723 130.9203,48.9682 130.9460,48.9660 130.9661,48.9664 130.9759,48.9690 130.9827,48.9722 130.9884,48.9784 131.0131,49.0148 131.0159,49.0207 131.0178,49.0269 131.0181,49.0327 131.0162,49.0377 131.0132,49.0422 131.0095,49.0464 131.0067,49.0510 131.0075,49.0575 131.0107,49.0649 131.0193,49.0745 131.0275,49.0796 131.0381,49.0836 131.0444,49.0877 131.0533,49.0976 131.0673,49.1200 131.0722,49.1255 131.1228,49.1704 131.1305,49.1806 131.1335,49.1864 131.1416,49.2121 131.1514,49.2284 131.1641,49.2411 131.1732,49.2468 131.1824,49.2499 131.2156,49.2521 131.2229,49.2537 131.2426,49.2607 131.2494,49.2620 131.2561,49.2614 131.2604,49.2583 131.2638,49.2542 131.2673,49.2504 131.2737,49.2488 131.2876,49.2478 131.2927,49.2451 131.2960,49.2410 131.3010,49.2378 131.3081,49.2366 131.3392,49.2471 131.3537,49.2503 131.3796,49.2496 131.3897,49.2477 131.3957,49.2436 131.4940,49.4114 131.4987,49.4218 131.4999,49.4287 131.4978,49.4315 131.4873,49.4431 131.4858,49.4508 131.4861,49.4627 131.4988,49.5154 131.4999,49.5268 131.4999,49.5270 131.4999,49.5279 131.4999,49.5405 131.4991,49.5461 131.4991,49.5673 131.5016,49.5923 131.5012,49.6038 131.4999,49.6113 131.4978,49.6139 131.4943,49.6173 131.4496,49.6445 131.4228,49.6561 131.4165,49.6582 131.3929,49.6580 131.3843,49.6593 131.3773,49.6621 131.3719,49.6656 131.3645,49.6740 131.3611,49.6806 131.3580,49.6889 131.3545,49.7037 131.3554,49.7126 131.3590,49.7189 131.3648,49.7221 131.3714,49.7243 131.3786,49.7252 131.4198,49.7241 131.4691,49.7300 131.4774,49.7329 131.4845,49.7412 131.4863,49.7476 131.4863,49.7539 131.4847,49.7589 131.4771,49.7761 131.4753,49.7864 131.4756,49.7942 131.4779,49.8027 131.4858,49.8227 131.4870,49.8324 131.4861,49.8686 131.4870,49.8768 131.4887,49.8825 131.4994,49.9008 131.4990,49.9052 131.4972,49.9104 131.4920,49.9175 131.4867,49.9329 131.4822,49.9413 131.4773,49.9475 131.4582,49.9595 131.4523,49.9623 131.4451,49.9641 131.4375,49.9641 131.4294,49.9634 131.4207,49.9635 131.4115,49.9647 131.4035,49.9669 131.3966,49.9698 131.3905,49.9731 131.3851,49.9766 131.3790,49.9795 131.3714,49.9809 131.3641,49.9804 131.3186,49.9719 131.3103,49.9721 131.3022,49.9747 131.2954,49.9823 131.2952,49.9898 131.2979,49.9949 131.3008,49.9985 131.3020,49.9997 131.3076,50.0061 131.3111,50.0119 131.3142,50.0203 131.3136,50.0264 131.3123,50.0320 131.3093,50.0382 131.3047,50.0563 131.3073,50.0606 131.3127,50.0637 131.3424,50.0696 131.3489,50.0722 131.3602,50.0790 131.3702,50.0868 131.3871,50.1060 131.4009,50.1284 131.4049,50.1335 131.4100,50.1371 131.4174,50.1387 131.4262,50.1391 131.4449,50.1384 131.4541,50.1388 131.4611,50.1408 131.4656,50.1455 131.4645,50.1498 131.4616,50.1542 131.4538,50.1626 131.4480,50.1718 131.4443,50.1817 131.4415,50.1862 131.4352,50.1891 131.4164,50.1922 131.3892,50.2073 131.3818,50.2184 131.3796,50.2321 131.3764,50.2417 131.3708,50.2466 131.3499,50.2527 131.3348,50.2592 131.3282,50.2643 131.3253,50.2688 131.3233,50.2785 131.3214,50.3008 131.3176,50.3165 131.3151,50.3355 131.3123,50.3448 131.3047,50.3604 131.2969,50.3653 131.2898,50.3661 131.2722,50.3566 131.2659,50.3539 131.2589,50.3518 131.2506,50.3509 131.2232,50.3513 131.2153,50.3501 131.2090,50.3474 131.2034,50.3439 131.1984,50.3398 131.1920,50.3362 131.1846,50.3335 131.1725,50.3338 131.1657,50.3366 131.1605,50.3407 131.1580,50.3454 131.1548,50.3704 131.1534,50.3750 131.1515,50.3796 131.1430,50.3934 131.1341,50.4193 131.1307,50.4245 131.1259,50.4304 131.1199,50.4310 131.1138,50.4296 131.1017,50.4242 131.0890,50.4200 131.0798,50.4187 131.0543,50.4216 131.0471,50.4214 131.0420,50.4206 131.0320,50.4172 131.0271,50.4140 131.0225,50.4094 131.0184,50.4037 131.0134,50.3982 131.0067,50.3925 130.9990,50.3871 130.9889,50.3818 130.9861,50.3812 130.9735,50.3802 130.9622,50.3809 130.9283,50.3880 130.9199,50.3930 130.9165,50.3986 130.9177,50.4042 130.9209,50.4092 130.9239,50.4150 130.9255,50.4203 130.9191,50.4274 130.8800,50.4428 130.8699,50.4496 130.8655,50.4565 130.8665,50.4627 130.8679,50.4689 130.8702,50.4751 130.8735,50.4805 130.8781,50.4848 130.8840,50.4880 130.9489,50.5051 130.9547,50.5080 130.9597,50.5123 130.9748,50.5331 130.9841,50.5418 130.9983,50.5522 131.0010,50.5545 131.0078,50.5631 131.0111,50.5681 131.0104,50.5752 131.0055,50.5843 130.9540,50.6500 130.9326,50.6657 130.9246,50.6689 130.9168,50.6713 130.9095,50.6727 130.9030,50.6719 130.9005,50.6683 130.8992,50.6632 130.8972,50.6581 130.8927,50.6544 130.8844,50.6538 130.8475,50.6555 130.8300,50.6546 130.8221,50.6535 130.8125,50.6535 130.8021,50.6547 130.7757,50.6641 130.7659,50.6662 130.7584,50.6654 130.7529,50.6619 130.7494,50.6566 130.7471,50.6504 130.7462,50.6444 130.7457,50.6269 130.7427,50.6143 130.7396,50.6082 130.7369,50.6039 130.7284,50.5977 130.6621,50.6409 130.6541,50.6479 130.6451,50.6573 130.6449,50.6627 130.6461,50.6684 130.6494,50.6734 130.6539,50.6777 130.6594,50.6813 130.6653,50.6845 130.6861,50.6904 130.6928,50.6933 130.6983,50.6976 130.7023,50.7055 130.7002,50.7103 130.6892,50.7192 130.6833,50.7256 130.6827,50.7337 130.6848,50.7400 130.6885,50.7456 130.7051,50.7631 130.7108,50.7677 130.7170,50.7714 130.7315,50.7752 130.7375,50.7787 130.7418,50.7841 130.7421,50.7954 130.7446,50.8027 130.7476,50.8092 130.7851,50.8530 130.7898,50.8574 130.7949,50.8614 130.8009,50.8645 130.8092,50.8656 130.8181,50.8658 130.8265,50.8673 130.8334,50.8706 130.8398,50.8759 130.8407,50.8809 130.8390,50.8855 130.8345,50.8938 130.8255,50.9067 130.8142,50.9310 130.8104,50.9350 130.8048,50.9380 130.7794,50.9401 130.7718,50.9425 130.7674,50.9487 130.7668,50.9551 130.7684,50.9620 130.7706,50.9686 130.7823,50.9931 130.7881,50.9999 130.7891,51.0007 130.7937,51.0057 130.8030,51.0138 130.8089,51.0172 130.8156,51.0195 130.8241,51.0197 130.8525,51.0164 130.8705,51.0166 130.9187,51.0243 130.9262,51.0274 130.9336,51.0341 130.9394,51.0413 130.9655,51.0854 130.9831,51.1072 130.9862,51.1138 130.9871,51.1210 130.9868,51.1280 130.9880,51.1385 130.9911,51.1455 130.9946,51.1511 131.0010,51.1572 131.0209,51.1712 131.0339,51.1788 131.0410,51.1842 131.0443,51.1896 131.0457,51.2108 131.0482,51.2246 131.0518,51.2327 131.0559,51.2392 131.0605,51.2430 131.0649,51.2457 131.1003,51.2565 131.1165,51.2587 131.1352,51.2569 131.1691,51.2487 131.1769,51.2490 131.1852,51.2522 131.1908,51.2558 131.2090,51.2713 131.2385,51.3193 131.2706,51.3502 131.2898,51.3639 131.3295,51.3760 131.3520,51.3774 131.3740,51.3766 131.3821,51.3743 131.3888,51.3712 131.4294,51.3468 131.4358,51.3437 131.4445,51.3412 131.4547,51.3398 131.4707,51.3399 131.4805,51.3418 131.4884,51.3446 131.4932,51.3484 131.4974,51.3529 131.5005,51.3573 131.5040,51.3638 131.5059,51.3700 131.5070,51.3761 131.5067,51.3819 131.4950,51.4462 131.4873,51.4719 131.4838,51.4761 131.4774,51.4794 131.4622,51.4850 131.4558,51.4882 131.4514,51.4919 131.4490,51.4957 131.4483,51.4986 131.4482,51.4999 131.4502,51.5127 131.4502,51.5159 131.4498,51.5199 131.4479,51.5235 131.4449,51.5256 131.4242,51.5331 131.4183,51.5366 131.4134,51.5404 131.4106,51.5451 131.4088,51.5501 131.4074,51.5552 131.4078,51.5669 131.4066,51.5721 131.4035,51.5767 131.3995,51.5809 131.3959,51.5867 131.3936,51.5940 131.3950,51.6070 131.3984,51.6145 131.4028,51.6209 131.4156,51.6340 131.4253,51.6458 131.4291,51.6539 131.4296,51.6604 131.4266,51.6651 131.4174,51.6728 131.4096,51.6813 131.4309,51.6883 131.5703,51.6713 131.7278,51.6811 131.7457,51.6841 131.7801,51.7049 131.7995,51.7133 131.8274,51.7223 131.8333,51.7256 131.8383,51.7300 131.8469,51.7416 131.8531,51.7478 131.8639,51.7546 131.8740,51.7564 131.8838,51.7561 131.8906,51.7542 131.8964,51.7511 131.9069,51.7439 131.9132,51.7406 131.9228,51.7387 131.9592,51.7367 131.9680,51.7386 131.9736,51.7430 131.9877,51.7659 131.9926,51.7712 131.9989,51.7755 132.0236,51.7855 132.0493,51.8023 132.0567,51.8025 132.0624,51.8001 132.0658,51.7960 132.0675,51.7908 132.0688,51.7799 132.0719,51.7746 132.0784,51.7705 132.0926,51.7683 132.1015,51.7698 132.1081,51.7737 132.1124,51.7787 132.1162,51.7841 132.1249,51.7898 132.1379,51.7955 132.2157,51.8168 132.2244,51.8167 132.2326,51.8150 132.2391,51.8118 132.2555,51.8009 132.2696,51.7947 132.2787,51.7930 132.2855,51.7949 132.2919,51.7977 132.3034,51.8047 132.3190,51.8169 132.3343,51.8249 132.4235,51.8599 132.4273,51.8639 132.4288,51.8672 132.4292,51.8716 132.4254,51.8809 132.4126,51.9045 132.4109,51.9095 132.4098,51.9147 132.3990,51.9448 132.3978,51.9504 132.3985,51.9562 132.4037,51.9634 132.4139,51.9676 132.4235,51.9696 132.4517,51.9697 132.4610,51.9681 132.4756,51.9626 132.4894,51.9558 132.4980,51.9531 132.5093,51.9513 132.5169,51.9530 132.5222,51.9571 132.5251,51.9630 132.5341,51.9980 132.5364,52.0239 132.5396,52.0364 132.5418,52.0422 132.5457,52.0473 132.5504,52.0516 132.5665,52.0632 132.5791,52.0742 132.5898,52.0815 132.5996,52.0840 132.6095,52.0846 132.6297,52.0820 132.6414,52.0824 132.6491,52.0871 132.6553,52.0932 132.6680,52.1020 132.7763,52.1323 132.7881,52.1377 132.7931,52.1420 132.8041,52.1497 132.8160,52.1563 132.8212,52.1602 132.8252,52.1644 132.8270,52.1693 132.8268,52.1737 132.8289,52.1778 132.8341,52.1793 132.9070,52.1586 132.9169,52.1568 132.9279,52.1559 132.9599,52.1600 132.9712,52.1593 132.9911,52.1551 133.0068,52.1547 133.0221,52.1582 133.0483,52.1666 133.0623,52.1685 133.0721,52.1674 133.0799,52.1645 133.0907,52.1633 133.1061,52.1645 133.1233,52.1706 133.1347,52.1734 133.1440,52.1745 133.1681,52.1669 133.1801,52.1653 133.1885,52.1668 133.1962,52.1707 133.2037,52.1757 133.2155,52.1819 133.3217,52.1983 133.3401,52.2039 133.3513,52.2100 133.3590,52.2175 133.3700,52.2262 133.4204,52.2514 133.4262,52.2550 133.4312,52.2592 133.4347,52.2641 133.4364,52.2697 133.4361,52.2807 133.4352,52.2860 133.4331,52.2908 133.4303,52.2954 133.4219,52.3036 133.4096,52.3105 133.3371,52.3349 133.3303,52.3382 133.3247,52.3418 133.3202,52.3458 133.3161,52.3500 133.3129,52.3545 133.3112,52.3595 133.3111,52.3652 133.3124,52.3712 133.3257,52.4023 133.3254,52.4078 133.3214,52.4118 133.2715,52.4311 133.2595,52.4379 133.2493,52.4455 133.2462,52.4501 133.2462,52.4556 133.2527,52.4630 133.2647,52.4731 133.2783,52.4874 133.2816,52.4925 133.2841,52.4991 133.2864,52.5165 133.2864,52.5222 133.2857,52.5277 133.2836,52.5326 133.2807,52.5372 133.2770,52.5414 133.2722,52.5455 133.2663,52.5489 133.2502,52.5544 133.2431,52.5575 133.2387,52.5615 133.2384,52.5669 133.2405,52.5730 133.2467,52.5852 133.2492,52.5914 133.2504,52.5975 133.2504,52.6030 133.2492,52.6082 133.2467,52.6129 133.2437,52.6175 133.2400,52.6276 133.2426,52.6350 133.2532,52.6457 133.2795,52.6639 133.3053,52.6760 133.3213,52.6818 133.3322,52.6841 133.3500,52.6849 133.3596,52.6845 133.3694,52.6830 133.3862,52.6780 133.3930,52.6748 133.3986,52.6712 133.4116,52.6589 133.4163,52.6551 133.4237,52.6524 133.4328,52.6511 133.4789,52.6514 133.4876,52.6505 133.4947,52.6481 133.4980,52.6441 133.4995,52.6399 133.5008,52.6370 133.5038,52.6337 133.5092,52.6307 133.5261,52.6258 133.5648,52.6192 133.6070,52.6060 133.6261,52.5960 133.6482,52.5761 133.6538,52.5733 133.6587,52.5716 133.7994,52.5522 133.8242,52.5550 133.8329,52.5542 133.8403,52.5518 133.8455,52.5482 133.8484,52.5435 133.8529,52.5338 133.8558,52.5293 133.8598,52.5251 133.8663,52.5219 133.8750,52.5197 133.8939,52.5183 134.0031,52.5392 134.0081,52.5367 134.0560,52.5002 134.0573,52.4994 134.0601,52.4982 134.0659,52.4963 134.0910,52.4922 134.0990,52.4896 134.1055,52.4864 134.1164,52.4844 134.1306,52.4837 134.1856,52.4918 134.2037,52.4920 134.2239,52.4888 134.2940,52.4630 134.3133,52.4594 134.4643,52.4517 134.4829,52.4474 134.4967,52.4424 134.5052,52.4382 134.5222,52.4277 134.5361,52.4216 134.5447,52.4197 134.5803,52.4202 134.6057,52.4176 134.6347,52.4270 134.6480,52.4380 134.6593,52.4566 134.6618,52.4642 134.6626,52.4709 134.6612,52.4759 134.6567,52.4799 134.6320,52.4881 134.6260,52.4932 134.6220,52.5002 134.6199,52.5125 134.6215,52.5203 134.6435,52.5594 134.6511,52.5687 134.6586,52.5751 134.6652,52.5777 134.6828,52.5889 134.6969,52.6022 134.7072,52.6075 134.7178,52.6095 134.7267,52.6091 134.7351,52.6098 134.7415,52.6126 134.7608,52.6256 134.7694,52.6330 134.7824,52.6471 134.7839,52.6547 134.7822,52.6608 134.7717,52.6686 134.7672,52.6728 134.7635,52.6771 134.7608,52.6818 134.7585,52.6951 134.7579,52.7054 134.7545,52.7110 134.7478,52.7130 134.6846,52.7121 134.6751,52.7132 134.6666,52.7154 134.6614,52.7191 134.6580,52.7243 134.6565,52.7301 134.6561,52.7367 134.6602,52.7409 134.7073,52.7584 134.7116,52.7609 134.7101,52.7640 134.7059,52.7662 134.6506,52.7800 134.6438,52.7833 134.6385,52.7870 134.6348,52.7914 134.6313,52.8006 134.6289,52.8139 134.6280,52.8424 134.6305,52.8561 134.6357,52.8644 134.6428,52.8669 134.6512,52.8677 134.6799,52.8673 134.6873,52.8685 134.6920,52.8709 134.6920,52.8744 134.6893,52.8783 134.6760,52.8905 134.6676,52.9001 134.6623,52.9076 134.6586,52.9148 134.6554,52.9251 134.6564,52.9326 134.6589,52.9391 134.6632,52.9435 134.6676,52.9467 134.6840,52.9563 134.7296,52.9950 134.7346,53.0009 134.7545,53.0202 134.7657,53.0282 134.7719,53.0314 134.7775,53.0353 134.7822,53.0400 134.7892,53.0509 134.7938,53.0557 134.7988,53.0598 134.8050,53.0631 134.8121,53.0656 134.8201,53.0675 134.8269,53.0684 134.8426,53.0680 134.8625,53.0722 134.8671,53.0763 134.8721,53.0835 134.8704,53.0889 134.8669,53.0936 134.8501,53.1045 134.8444,53.1093 134.8401,53.1153 134.8359,53.1247 134.8366,53.1323 134.8387,53.1394 134.8594,53.1844 134.8673,53.1923 134.8756,53.1969 134.8913,53.2001 134.9304,53.2130 134.9428,53.2223 134.9492,53.2335 134.9564,53.2539 134.9561,53.2640 134.9517,53.2705 134.9434,53.2733 134.9155,53.2788 134.9093,53.2837 134.9056,53.2905 134.9036,53.3029 134.9006,53.3096 134.8970,53.3154 134.8902,53.3181 134.8824,53.3201 134.8375,53.3254 134.8274,53.3283 134.8192,53.3326 134.8142,53.3406 134.8152,53.3470 134.8269,53.3769 134.8304,53.3816 134.8361,53.3835 134.9039,53.3719 134.9115,53.3738 134.9176,53.3818 134.9251,53.3992 134.9257,53.4090 134.9238,53.4166 134.9155,53.4270 134.9098,53.4310 134.9030,53.4343 134.8381,53.4513 134.8336,53.4559 134.8331,53.4621 134.8344,53.4703 134.8322,53.4758 134.8266,53.4794 134.8185,53.4810 134.8105,53.4804 134.7884,53.4742 134.7803,53.4727 134.7710,53.4731 134.7614,53.4752 134.7537,53.4796 134.7475,53.4864 134.7452,53.4938 134.7447,53.4981 134.7447,53.5000 134.7464,53.5044 134.7568,53.5247 134.7564,53.5305 134.7536,53.5356 134.7480,53.5393 134.6855,53.5630 134.6655,53.5785 134.6426,53.5925 134.6370,53.5952 134.5841,53.6102 134.5631,53.6195 134.5552,53.6209 134.5479,53.6196 134.5419,53.6163 134.5270,53.6025 134.5209,53.5988 134.5141,53.5964 134.5070,53.5953 134.4497,53.5939 134.4429,53.5917 134.4383,53.5876 134.4371,53.5825 134.4379,53.5773 134.4445,53.5573 134.4494,53.5477 134.4510,53.5428 134.4514,53.5378 134.4486,53.5325 134.4442,53.5278 134.4383,53.5241 134.4320,53.5208 134.4250,53.5184 134.4175,53.5165 134.4066,53.5177 134.3934,53.5211 134.3739,53.5303 134.3633,53.5312 134.3546,53.5301 134.3482,53.5270 134.3411,53.5246 134.3333,53.5230 134.3244,53.5230 134.3065,53.5257 134.2977,53.5257 134.2902,53.5242 134.2689,53.5168 134.2607,53.5158 134.2517,53.5159 134.2337,53.5187 134.2261,53.5184 134.2226,53.5149 134.2222,53.5103 134.2232,53.5006 134.2214,53.4821 134.2188,53.4765 134.2146,53.4718 134.2042,53.4711 134.1906,53.4727 134.1665,53.4803 134.1544,53.4803 134.1464,53.4773 134.1418,53.4722 134.1204,53.4554 134.1077,53.4488 134.1003,53.4462 134.0922,53.4448 134.0731,53.4447 134.0106,53.4332 134.0059,53.4329 133.9970,53.4341 133.8871,53.4654 133.8787,53.4662 133.8419,53.4623 133.8268,53.4631 133.8183,53.4659 133.8128,53.4699 133.8093,53.4749 133.8062,53.4802 133.8019,53.4859 133.7955,53.4873 133.7895,53.4856 133.7663,53.4706 133.7590,53.4685 133.7502,53.4670 133.7400,53.4667 133.7271,53.4676 133.7187,53.4701 133.7138,53.4731 133.7092,53.4768 133.6646,53.5251 133.6571,53.5309 133.6435,53.5396 133.6321,53.5437 133.6200,53.5460 133.5733,53.5460 133.5654,53.5444 133.5593,53.5410 133.5542,53.5364 133.5498,53.5313 133.5423,53.5199 133.5393,53.5140 133.5346,53.5007 133.5331,53.4990 133.5293,53.4968 133.4999,53.4925 133.4940,53.4922 133.4850,53.4927 133.4820,53.4955 133.4820,53.4983 133.4816,53.5008 133.4792,53.5034 133.4715,53.5087 133.4645,53.5088 133.4575,53.5072 133.4251,53.4918 133.4192,53.4882 133.4088,53.4798 133.4006,53.4767 133.3894,53.4750 133.3380,53.4739 133.3214,53.4714 133.3140,53.4693 133.3012,53.4630 133.2898,53.4555 133.2465,53.4415 133.2210,53.4290 133.2152,53.4254 133.2097,53.4211 133.2052,53.4163 133.1892,53.3945 133.1863,53.3884 133.1839,53.3820 133.1826,53.3759 133.1826,53.3702 133.1805,53.3591 133.1771,53.3547 133.1665,53.3476 133.1625,53.3434 133.1619,53.3385 133.1646,53.3340 133.1724,53.3254 133.1756,53.3209 133.1771,53.3157 133.1770,53.3102 133.1748,53.3041 133.1705,53.2985 133.1640,53.2940 133.1534,53.2912 133.1433,53.2916 133.1335,53.2933 133.1068,53.3036 133.0983,53.3041 133.0902,53.3028 133.0217,53.2834 132.9935,53.2818 132.9815,53.2837 132.9698,53.2871 132.9602,53.2884 132.9512,53.2885 132.9428,53.2874 132.9351,53.2855 132.9295,53.2817 132.9253,53.2765 132.9085,53.2456 132.9020,53.2398 132.8933,53.2346 132.8750,53.2311 132.8639,53.2310 132.8528,53.2323 132.8045,53.2432 132.7906,53.2446 132.7178,53.2400 132.7027,53.2412 132.6918,53.2436 132.6758,53.2501 132.6519,53.2570 132.6429,53.2560 132.6354,53.2535 132.6092,53.2323 132.5940,53.2297 132.4480,53.2289 132.4387,53.2309 132.4179,53.2388 132.3985,53.2442 132.3864,53.2452 132.3760,53.2447 132.3600,53.2415 132.3527,53.2393 132.3276,53.2352 132.2638,53.2325 132.2142,53.2214 132.1642,53.2195 132.1116,53.2230 132.0997,53.2223 132.0921,53.2204 132.0853,53.2177 132.0791,53.2143 132.0738,53.2101 132.0419,53.1580 132.0335,53.1478 132.0274,53.1429 132.0199,53.1385 132.0070,53.1346 131.9994,53.1335 131.9905,53.1339 131.9555,53.1440 131.9453,53.1445 131.9367,53.1432 131.9157,53.1339 131.9067,53.1309 131.8942,53.1280 131.8861,53.1293 131.8799,53.1323 131.8416,53.1580 131.8374,53.1620 131.8357,53.1663 131.8379,53.1709 131.8457,53.1811 131.8615,53.2116 131.8639,53.2178 131.8646,53.2237 131.8631,53.2290 131.8531,53.2335 131.8002,53.2412 131.7826,53.2412 131.7710,53.2389 131.7592,53.2319 131.7525,53.2291 131.7414,53.2269 131.6723,53.2247 131.6256,53.2143 131.4653,53.2129 131.4508,53.2153 131.4459,53.2192 131.4449,53.2241 131.4470,53.2297 131.4514,53.2341 131.4572,53.2378 131.4710,53.2431 131.5028,53.2514 131.5083,53.2540 131.5133,53.2571 131.5171,53.2612 131.5178,53.2661 131.5173,53.2713 131.5174,53.2827 131.5195,53.2885 131.5232,53.2937 131.5275,53.2986 131.5312,53.3036 131.5331,53.3088 131.5333,53.3142 131.5323,53.3194 131.5289,53.3296 131.5266,53.3345 131.5233,53.3448 131.5222,53.3551 131.5214,53.3592 131.5025,53.4198 131.5005,53.4241 131.4984,53.4265 131.4943,53.4298 131.4891,53.4330 131.4845,53.4369 131.4817,53.4416 131.4802,53.4468 131.4802,53.4524 131.4811,53.4583 131.4830,53.4642 131.4839,53.4701 131.4835,53.4756 131.4808,53.4804 131.4768,53.4845 131.4668,53.4922 131.4637,53.4959 131.4616,53.4998 131.4616,53.5011 131.4620,53.5036 131.4666,53.5144 131.4982,53.5549 131.4994,53.5574 131.4999,53.5595 131.5003,53.5629 131.4999,53.5691 131.4994,53.5709 131.4981,53.5739 131.4872,53.5917 131.4848,53.5966 131.4782,53.6057 131.4684,53.6134 131.4493,53.6235 131.4440,53.6272 131.4421,53.6320 131.4437,53.6375 131.4492,53.6492 131.4505,53.6551 131.4505,53.6607 131.4496,53.6661 131.4468,53.6708 131.4392,53.6795 131.4362,53.6841 131.4281,53.7046 131.4257,53.7153 131.4263,53.7211 131.4279,53.7271 131.4337,53.7386 131.4309,53.7448 131.4208,53.7513 131.3736,53.7652 131.3677,53.7678 131.3306,53.7786 131.3026,53.7812 131.2808,53.7794 131.2606,53.7807 131.2205,53.7923 131.2053,53.7951 131.1753,53.7965 131.0967,53.8129 131.0036,53.8102 130.9862,53.8057 130.9794,53.8028 130.9671,53.7958 130.9397,53.7751 130.9211,53.7678 130.8829,53.7757 130.8566,53.7872 130.8529,53.7916 130.8495,53.7977 130.8488,53.8055 130.8464,53.8143 130.8401,53.8284 130.8317,53.8350 130.8221,53.8387 130.7926,53.8392 130.7445,53.8516 130.6818,53.8757 130.6539,53.8834 130.6351,53.8868 130.6024,53.8790 130.5912,53.8780 130.5734,53.8785 130.5595,53.8819 130.5434,53.8876 130.5272,53.8953 130.5165,53.8978 130.5088,53.8970 130.4960,53.8888 130.4842,53.8836 130.4745,53.8819 130.4633,53.8813 130.4465,53.8824 130.4363,53.8850 130.4288,53.8885 130.3986,53.9093 130.3936,53.9153 130.3917,53.9216 130.3932,53.9278 130.3957,53.9340 130.3992,53.9397 130.4042,53.9441 130.4104,53.9476 130.4545,53.9611 130.4613,53.9640 130.4671,53.9677 130.4716,53.9723 130.4790,53.9823 130.4817,53.9880 130.4835,53.9934 130.4824,54.0165 130.4863,54.0413 130.4849,54.0640 130.4860,54.0701 130.4891,54.0829 130.4987,54.1072 130.5032,54.1151 130.5069,54.1198 130.5513,54.1511 130.5697,54.1614 130.5919,54.1772 130.6615,54.2129 130.6666,54.2181 130.6709,54.2246 130.6734,54.2347 130.6784,54.2405 130.6851,54.2442 130.7158,54.2522 130.7222,54.2551 130.7268,54.2592 130.7303,54.2645 130.7334,54.2705 130.7373,54.2759 130.7421,54.2805 130.7491,54.2833 130.7566,54.2854 130.7737,54.2879 130.7926,54.2877 130.8197,54.2819 130.8293,54.2814 130.8365,54.2835 130.8424,54.2878 130.8542,54.3009 130.8612,54.3051 130.9196,54.3250 130.9276,54.3261 130.9360,54.3254 130.9439,54.3232 130.9874,54.2993 131.0353,54.2831 131.0431,54.2821 131.0506,54.2830 131.0567,54.2863 131.0655,54.2962 131.0708,54.3004 131.0983,54.3114 131.1060,54.3162 131.1141,54.3233 131.1610,54.4046 131.1686,54.4264 131.2202,54.5267 131.2245,54.5397 131.2240,54.5453 131.2226,54.5506 131.2035,54.5780 131.1992,54.5822 131.1949,54.5874 131.1915,54.5934 131.1905,54.6026 131.1937,54.6083 131.1995,54.6128 131.2133,54.6183 131.2316,54.6286 131.2390,54.6309 131.2560,54.6339 131.2659,54.6372 131.2771,54.6429 131.2911,54.6575 131.3139,54.6759 131.3298,54.6828 131.3449,54.6872 131.3540,54.6915 131.3638,54.6979 131.3784,54.7109 131.3888,54.7166 131.3993,54.7191 131.4296,54.7162 131.4987,54.7225 131.5325,54.7224 131.5454,54.7264 131.5604,54.7352 131.6123,54.7808 131.6194,54.7843 131.6247,54.7856 131.6284,54.7830 131.6296,54.7784 131.6315,54.7736 131.6347,54.7695 131.6413,54.7675 131.6501,54.7667 131.6596,54.7668 131.6689,54.7684 131.6774,54.7712 131.6993,54.7851 131.7066,54.7873 131.7645,54.7965 131.7688,54.8003 131.7708,54.8054 131.7723,54.8125 131.7750,54.8206 131.7812,54.8319 131.7894,54.8389 131.8162,54.8510 131.8268,54.8545 131.8379,54.8562 131.8692,54.8550 131.8793,54.8560 131.8884,54.8589 131.9147,54.8735 131.9686,54.8893 131.9769,54.8925 131.9862,54.8975 131.9914,54.9032 131.9945,54.9094 131.9949,54.9152 131.9945,54.9208 131.9927,54.9259 131.9917,54.9312 131.9898,54.9362 131.9756,54.9597 131.9617,54.9781 131.9595,54.9834 131.9611,54.9905 131.9655,54.9949 131.9708,54.9980 132.0149,55.0155 132.0545,55.0410 132.0620,55.0449 132.0694,55.0474 132.0772,55.0492 132.0867,55.0499 132.2546,55.0396 132.3265,55.0474 132.3668,55.0564 132.3758,55.0596 132.3851,55.0640 132.3977,55.0719 132.4018,55.0789 132.4030,55.0859 132.3996,55.0923 132.3730,55.1103 132.3687,55.1165 132.3678,55.1231 132.3702,55.1299 132.3712,55.1361 132.3687,55.1410 132.3603,55.1431 132.3418,55.1451 132.3390,55.1517 132.3448,55.1581 132.3561,55.1657 132.3622,55.1724 132.3622,55.1787 132.3557,55.1879 132.3548,55.1914 132.3610,55.1943 132.3909,55.2041 132.3997,55.2051 132.4099,55.2047 132.4609,55.1954 132.4807,55.1953 132.5271,55.1990 132.5808,55.1959 132.5931,55.1977 132.6064,55.2020 132.6265,55.2128 132.6367,55.2200 132.6828,55.2650 132.6866,55.2702 132.6888,55.2756 132.6877,55.2808 132.6854,55.2856 132.6722,55.3043 132.6640,55.3134 132.6608,55.3181 132.6581,55.3229 132.6568,55.3280 132.6565,55.3336 132.6583,55.3406 132.6615,55.3482 132.6685,55.3584 132.6748,55.3642 132.6822,55.3675 132.6902,55.3671 132.7055,55.3619 132.7194,55.3554 132.7256,55.3519 132.7326,55.3487 132.7416,55.3467 132.7609,55.3461 132.7791,55.3480 132.8171,55.3593 132.9079,55.3591 132.9180,55.3608 132.9284,55.3638 132.9403,55.3695 132.9455,55.3747 132.9438,55.3791 132.9391,55.3830 132.9251,55.3896 132.8923,55.4011 132.8726,55.4120 132.8637,55.4153 132.8496,55.4179 132.8381,55.4187 132.7807,55.4155 132.7709,55.4163 132.7621,55.4180 132.7550,55.4210 132.7491,55.4246 132.7404,55.4326 132.7296,55.4464 132.7194,55.4541 132.6435,55.4906 132.6289,55.5001 132.6256,55.5029 132.6188,55.5110 132.6159,55.5162 132.6156,55.5234 132.6221,55.5308 132.6629,55.5607 132.5720,55.6262 132.5492,55.6468 132.5454,55.6569 132.5441,55.6626 132.5384,55.6756 132.5306,55.6790 132.5213,55.6806 132.4739,55.6792 132.4660,55.6804 132.4000,55.7032 132.3869,55.7050 132.3049,55.6959 132.2397,55.7040 132.2247,55.7032 132.2158,55.6996 132.2112,55.6877 132.2077,55.6822 132.2026,55.6776 132.1957,55.6747 132.1529,55.6674 132.1459,55.6647 132.1401,55.6606 132.1353,55.6557 132.1311,55.6502 132.1260,55.6448 132.1094,55.6423 132.0793,55.6428 131.9623,55.6578 131.9522,55.6569 131.9440,55.6552 131.9294,55.6499 131.9181,55.6417 131.9129,55.6371 131.9073,55.6330 131.9010,55.6292 131.8934,55.6266 131.8037,55.6143 131.7899,55.6155 131.7798,55.6182 131.7744,55.6218 131.7699,55.6260 131.7523,55.6323 131.6494,55.6508 131.6181,55.6532 131.5986,55.6518 131.5940,55.6469 131.5903,55.6412 131.5880,55.6350 131.5860,55.6231 131.5829,55.6177 131.5736,55.6128 131.5631,55.6126 131.4835,55.6271 131.4788,55.6309 131.4737,55.6358 131.4656,55.6404 131.4496,55.6451 131.4375,55.6464 131.4268,55.6460 131.4187,55.6440 131.4121,55.6408 131.4065,55.6368 131.4015,55.6320 131.3911,55.6271 131.3752,55.6219 131.3397,55.6172 131.3164,55.6166 131.3006,55.6176 131.2155,55.6373 131.1906,55.6406 131.1769,55.6399 131.1669,55.6377 131.1222,55.6186 131.1070,55.6154 131.0961,55.6160 131.0868,55.6181 131.0477,55.6329 130.9959,55.6420 130.9906,55.6449 130.9646,55.6640 130.9495,55.6709 130.9230,55.6786 130.9333,55.7030 130.9351,55.7229 130.9343,55.7358 130.9317,55.7489 130.9259,55.7614 130.9193,55.7705 130.8950,55.7906 130.8912,55.7949 130.8708,55.8134 130.8676,55.8200 130.8658,55.8268 130.8660,55.8336 130.8617,55.8889 130.8646,55.8995 130.8705,55.9058 130.8996,55.9163 130.9060,55.9198 130.9116,55.9240 130.9169,55.9289 130.9209,55.9348 130.9242,55.9418 130.9180,55.9856 130.9178,55.9999 130.9487,56.0304 130.9574,56.0410 130.9622,56.0481 130.9666,56.0568 130.9718,56.0712 130.9717,56.0792 130.9699,56.0858 130.9666,56.0920 130.9637,56.0998 130.9603,56.1125 130.9612,56.1211 130.9636,56.1286 130.9822,56.1482 130.9937,56.1553 131.0651,56.1847 131.0778,56.1916 131.0834,56.1958 131.0926,56.2059 131.1152,56.2516 131.1187,56.2636 131.1202,56.2726 131.1191,56.2774 131.1124,56.2920 131.0954,56.3206 131.0910,56.3312 131.0893,56.3373 131.0877,56.3452 131.0892,56.3522 131.0917,56.3589 131.1140,56.3954 131.1256,56.4105 131.1305,56.4152 131.1500,56.4386 131.1623,56.4510 131.1844,56.4679 131.2252,56.4869 131.2409,56.4915 131.2583,56.4945 131.3065,56.4973 131.3149,56.4961 131.3198,56.4927 131.3273,56.4840 131.3334,56.4803 131.3480,56.4739 131.3537,56.4701 131.3571,56.4654 131.3580,56.4598 131.3573,56.4536 131.3543,56.4410 131.3537,56.4351 131.3551,56.4298 131.3585,56.4253 131.3641,56.4216 131.3725,56.4192 131.3823,56.4183 131.3919,56.4186 131.4019,56.4216 131.4112,56.4270 131.4235,56.4372 131.4276,56.4445 131.4273,56.4505 131.4235,56.4548 131.4174,56.4585 131.4021,56.4656 131.3962,56.4706 131.3938,56.4791 131.3978,56.4855 131.4353,56.5239 131.4408,56.5281 131.4536,56.5352 131.4675,56.5412 131.4829,56.5462 131.4974,56.5495 131.5025,56.5499 131.5208,56.5491 131.5405,56.5449 131.5477,56.5416 131.5528,56.5377 131.5563,56.5332 131.5572,56.5280 131.5563,56.5223 131.5548,56.5171 131.5565,56.5124 131.5615,56.5086 131.5690,56.5057 131.5777,56.5037 131.5873,56.5034 131.6052,56.5045 131.6126,56.5039 131.6170,56.5019 131.6189,56.5007 131.6195,56.4998 131.6195,56.4983 131.6194,56.4946 131.6172,56.4894 131.6014,56.4678 131.5993,56.4620 131.6000,56.4566 131.6039,56.4523 131.6114,56.4506 131.6217,56.4520 131.6457,56.4661 131.6546,56.4698 131.6624,56.4706 131.6695,56.4687 131.6739,56.4650 131.6779,56.4605 131.6832,56.4571 131.6918,56.4562 131.7014,56.4591 131.7052,56.4638 131.7049,56.4688 131.7014,56.4734 131.6771,56.4878 131.6724,56.4917 131.6690,56.4954 131.6681,56.4985 131.6678,56.4998 131.6678,56.5011 131.6665,56.5030 131.6631,56.5062 131.6562,56.5099 131.6498,56.5143 131.6498,56.5244 131.6553,56.5323 131.6665,56.5432 131.6698,56.5496 131.6698,56.5565 131.6690,56.5640 131.6755,56.5779 131.6773,56.5864 131.6760,56.5929 131.6726,56.5980 131.6705,56.6038 131.6704,56.6113 131.6739,56.6168 131.6804,56.6211 131.6885,56.6246 131.6971,56.6293 131.6996,56.6339 131.6968,56.6380 131.6822,56.6448 131.6758,56.6484 131.6739,56.6537 131.6776,56.6576 131.6839,56.6608 131.7006,56.6663 131.7095,56.6705 131.7204,56.6784 131.7249,56.6855 131.7274,56.6929 131.7334,56.6969 131.7541,56.7044 131.7618,56.7130 131.7699,56.7167 131.7788,56.7172 131.7874,56.7163 131.7972,56.7174 131.7995,56.7224 131.7990,56.7293 131.7993,56.7413 131.7983,56.7483 131.7972,56.7530 131.7952,56.7553 131.7918,56.7583 131.7887,56.7638 131.7856,56.7712 131.7868,56.7848 131.7834,56.7920 131.7776,56.7973 131.7698,56.8004 131.7633,56.8039 131.7586,56.8095 131.7565,56.8170 131.7584,56.8303 131.7560,56.8378 131.7511,56.8429 131.7414,56.8446 131.7224,56.8459 131.7145,56.8482 131.7100,56.8522 131.7072,56.8569 131.7051,56.8620 131.7014,56.8664 131.6947,56.8698 131.6640,56.8748 131.6569,56.8777 131.6534,56.8820 131.6510,56.8869 131.6470,56.9070 131.6435,56.9124 131.6369,56.9165 131.6080,56.9239 131.6036,56.9286 131.6014,56.9345 131.5999,56.9424 131.5965,56.9479 131.5915,56.9523 131.5841,56.9545 131.5758,56.9545 131.5612,56.9502 131.5541,56.9497 131.5488,56.9521 131.5441,56.9559 131.5410,56.9605 131.5266,56.9752 131.5236,56.9840 131.5199,56.9897 131.5133,56.9925 131.4920,56.9968 131.4875,57.0004 131.4858,57.0043 131.4850,57.0131 131.4832,57.0183 131.4782,57.0229 131.4715,57.0262 131.4535,57.0321 131.4448,57.0358 131.4390,57.0422 131.4392,57.0485 131.4423,57.0541 131.4483,57.0579 131.4567,57.0599 131.4776,57.0624 131.4856,57.0671 131.4867,57.0720 131.4822,57.0760 131.4743,57.0792 131.3260,57.1234 131.3174,57.1248 131.3093,57.1243 131.3022,57.1259 131.2967,57.1311 131.2954,57.1435 131.2935,57.1513 131.2896,57.1573 131.2833,57.1610 131.2753,57.1637 131.2656,57.1653 131.2557,57.1656 131.2465,57.1644 131.2390,57.1618 131.2330,57.1577 131.2282,57.1528 131.2245,57.1471 131.2153,57.1369 131.2093,57.1330 131.2019,57.1305 131.1927,57.1307 131.1849,57.1340 131.1793,57.1373 131.1720,57.1513 131.1686,57.1686 131.1523,57.1890 131.1280,57.2111 131.1091,57.2243 131.1017,57.2309 131.1047,57.2341 131.1125,57.2347 131.1461,57.2309 131.1567,57.2308 131.1663,57.2316 131.1833,57.2355 131.1921,57.2430 131.2022,57.2545 131.2181,57.2805 131.2292,57.2922 131.2404,57.3008 131.2506,57.3043 131.2606,57.3048 131.2727,57.3015 131.2843,57.2963 131.2945,57.2906 131.3019,57.2845 131.3117,57.2720 131.3236,57.2598 131.3334,57.2545 131.3453,57.2507 131.3576,57.2488 131.3817,57.2496 131.4052,57.2525 131.4294,57.2533 131.4415,57.2525 131.4796,57.2442 131.4984,57.2438 131.5059,57.2458 131.5086,57.2511 131.5033,57.2667 131.5033,57.2727 131.5049,57.2786 131.5102,57.2845 131.5188,57.2862 131.5289,57.2855 131.5393,57.2835 131.5523,57.2821 131.5672,57.2823 131.5873,57.2857 131.5958,57.2906 131.5986,57.2958 131.5909,57.3103 131.5827,57.3304 131.5674,57.3539 131.5656,57.3590 131.5652,57.3646 131.5662,57.3764 131.5681,57.3884 131.5714,57.3996 131.5854,57.4256 131.5955,57.4367 131.6173,57.4526 131.6476,57.4667 131.6708,57.4743 131.7294,57.5003 131.7306,57.5016 131.7359,57.5093 131.7370,57.5146 131.7351,57.5194 131.7302,57.5234 131.6916,57.5340 131.6847,57.5373 131.6823,57.5429 131.6853,57.5501 131.6931,57.5605 131.7021,57.5650 131.7132,57.5658 131.7241,57.5644 131.7423,57.5592 131.7547,57.5590 131.7701,57.5617 131.8169,57.5824 131.8324,57.5876 131.8497,57.5911 131.8690,57.5930 131.8903,57.5930 131.9584,57.5834 131.9705,57.5829 131.9747,57.5858 131.9738,57.5896 131.9704,57.5942 131.9627,57.6087 131.9612,57.6145 131.9612,57.6205 131.9645,57.6280 131.9716,57.6314 131.9809,57.6330 131.9902,57.6334 132.0014,57.6352 132.0355,57.6476 132.0440,57.6545 132.0475,57.6611 132.0441,57.6716 132.0430,57.6767 132.0413,57.6817 132.0383,57.6864 132.0348,57.6909 132.0017,57.7243 131.9668,57.7490 131.9519,57.7554 131.9257,57.7638 131.9182,57.7670 131.9125,57.7708 131.9094,57.7756 131.9073,57.7806 131.9060,57.7860 131.9010,57.7957 131.8931,57.8046 131.8880,57.8086 131.8476,57.8242 131.8366,57.8321 131.8298,57.8354 131.8208,57.8378 131.7992,57.8395 131.7784,57.8389 131.7683,57.8395 131.7599,57.8419 131.7557,57.8462 131.7568,57.8531 131.7953,57.8874 131.8029,57.8975 131.8060,57.9055 131.8048,57.9109 131.8024,57.9158 131.7987,57.9204 131.7931,57.9239 131.7851,57.9259 131.7563,57.9248 131.7460,57.9260 131.7368,57.9284 131.6104,57.9954 131.6046,57.9995 131.6039,58.0010 131.6055,58.0085 131.6114,58.0120 131.6300,58.0152 131.6384,58.0179 131.6452,58.0231 131.6461,58.0284 131.6446,58.0336 131.6380,58.0486 131.6362,58.0538 131.6331,58.0589 131.6291,58.0632 131.6226,58.0664 131.5517,58.0801 131.5452,58.0837 131.5407,58.0879 131.5377,58.0926 131.5325,58.1023 131.5222,58.1162 131.5127,58.1245 131.5018,58.1309 131.4765,58.1411 131.4691,58.1454 131.4644,58.1509 131.4637,58.1599 131.4687,58.1647 131.4769,58.1675 131.4956,58.1682 131.5081,58.1700 131.5315,58.1767 131.5404,58.1781 131.5505,58.1776 131.5891,58.1693 131.5989,58.1688 131.6355,58.1738 131.6454,58.1741 131.6773,58.1708 131.7048,58.1739 131.7145,58.1726 131.7209,58.1695 131.7246,58.1649 131.7306,58.1493 131.7337,58.1445 131.7374,58.1400 131.7426,58.1360 131.7493,58.1324 131.7573,58.1293 131.7667,58.1269 131.7770,58.1253 131.8169,58.1274 131.8274,58.1266 131.8464,58.1221 131.8748,58.1085 131.9215,58.0781 131.9552,58.0664 131.9694,58.0596 131.9868,58.0482 131.9957,58.0406 131.9997,58.0379 132.0393,58.0196 132.0475,58.0170 132.0573,58.0160 132.0697,58.0194 132.0785,58.0251 132.0886,58.0344 132.1198,58.0465 132.1329,58.0553 132.1351,58.0613 132.1329,58.0664 132.1271,58.0702 132.1131,58.0771 132.0217,58.0985 132.0139,58.1016 132.0088,58.1067 132.0085,58.1145 132.0132,58.1274 132.0246,58.1408 132.0298,58.1496 132.0316,58.1561 132.0298,58.1612 132.0183,58.1755 132.0163,58.1814 132.0172,58.1904 132.0225,58.1954 132.0292,58.1993 132.0449,58.2046 132.0518,58.2079 132.0933,58.2429 132.1019,58.2483 132.1094,58.2510 132.1180,58.2519 132.1271,58.2507 132.1345,58.2478 132.1597,58.2331 132.1679,58.2310 132.1778,58.2312 132.1901,58.2368 132.1948,58.2425 132.1960,58.2484 132.1958,58.2712 132.2028,58.2949 132.2034,58.3017 132.2034,58.3080 132.2029,58.3134 132.2029,58.3199 132.2044,58.3271 132.2086,58.3374 132.2095,58.3446 132.2068,58.3500 132.2022,58.3542 132.1905,58.3619 132.1858,58.3661 132.1820,58.3706 132.1718,58.3901 132.1699,58.3952 132.1685,58.4004 132.1676,58.4116 132.1679,58.4229 132.1697,58.4350 132.1701,58.4408 132.1685,58.4459 132.1610,58.4550 132.1288,58.4789 132.1251,58.4831 132.1242,58.4868 132.1286,58.4894 132.2170,58.4878 132.2614,58.4961 132.2703,58.4969 132.2792,58.4958 132.2861,58.4929 132.2993,58.4861 132.3088,58.4839 132.3805,58.4744 132.3932,58.4743 132.4050,58.4760 132.4170,58.4820 132.4189,58.4869 132.4152,58.4912 132.3829,58.5041 132.3774,58.5082 132.3721,58.5128 132.3691,58.5192 132.3719,58.5239 132.3982,58.5359 132.4044,58.5422 132.4096,58.5491 132.4143,58.5578 132.4520,58.5930 132.4643,58.6010 132.4779,58.6079 132.5437,58.6284 132.5642,58.6399 132.5668,58.6456 132.5645,58.6504 132.5566,58.6535 132.5469,58.6562 132.5405,58.6623 132.5386,58.6717 132.5671,58.7263 132.5717,58.7447 132.5720,58.7506 132.5712,58.7559 132.5684,58.7608 132.5645,58.7652 132.5587,58.7690 132.5515,58.7724 132.5257,58.7811 132.5213,58.7849 132.5248,58.7908 132.5315,58.7980 132.5442,58.8096 132.5512,58.8177 132.5981,58.8893 132.6045,58.8912 132.6249,58.8861 132.6175,58.8917 132.6866,58.8941 132.7111,58.8873 132.7225,58.8819 132.7525,58.8754 132.7735,58.8743 132.7995,58.8761 132.8079,58.8802 132.8106,58.8850 132.8098,58.8903 132.8110,58.9132 132.8153,58.9259 132.8184,58.9323 132.8219,58.9384 132.8268,58.9436 132.8683,58.9773 132.8733,58.9833 132.8707,58.9869 132.8459,58.9947 132.8194,59.0094 132.8159,59.0142 132.8154,59.0200 132.8197,59.0273 132.8277,59.0324 132.8524,59.0426 132.8601,59.0482 132.8640,59.0541 132.8645,59.0597 132.8617,59.0645 132.8429,59.0814 132.8375,59.0854 132.8338,59.0903 132.8330,59.0960 132.8364,59.1033 132.8432,59.1071 132.8518,59.1088 132.8612,59.1080 132.9031,59.0933 132.9127,59.0910 132.9236,59.0903 132.9360,59.0928 132.9441,59.0968 133.0202,59.1574 133.0329,59.1651 133.0789,59.1796 133.0870,59.1849 133.1035,59.2002 133.1140,59.2036 133.1258,59.2044 133.1680,59.1959 133.1789,59.1953 133.1916,59.1974 133.1987,59.2017 133.2037,59.2083 133.2083,59.2157 133.2175,59.2254 133.2260,59.2291 133.2344,59.2288 133.2402,59.2255 133.2452,59.2217 133.2513,59.2187 133.2600,59.2181 133.2919,59.2192 133.3065,59.2215 133.3245,59.2262 133.3452,59.2364 133.3842,59.2402 133.3905,59.2436 133.3986,59.2566 133.4098,59.2669 133.4192,59.2720 133.4290,59.2756 133.4383,59.2772 133.4795,59.2798 133.5433,59.2939 133.5586,59.2941 133.5702,59.2924 133.5868,59.2863 133.5977,59.2842 133.6040,59.2809 133.6054,59.2759 133.6024,59.2638 133.6017,59.2522 133.6018,59.2467 133.6030,59.2415 133.6073,59.2372 133.6149,59.2341 133.6252,59.2321 133.7666,59.2227 133.8010,59.2246 133.8763,59.2458 133.8913,59.2470 133.9364,59.2463 134.0465,59.2560 134.0931,59.2496 134.1699,59.2278 134.2186,59.2087 134.2370,59.2039 134.2874,59.1970 134.3829,59.1975 134.3909,59.1948 134.3968,59.1913 134.4063,59.1828 134.4103,59.1784 134.4150,59.1742 134.4206,59.1703 134.4280,59.1669 134.4367,59.1640 134.4921,59.1542 134.5125,59.1481 134.5221,59.1474 134.5279,59.1509 134.5317,59.1561 134.5370,59.1684 134.5439,59.1748 134.5547,59.1810 134.5782,59.1880 134.5940,59.1905 134.6612,59.1930 134.6772,59.1953 134.6890,59.1984 134.7156,59.2104 134.7249,59.2113 134.7325,59.2094 134.7465,59.2028 134.7552,59.2001 134.7650,59.1985 134.7744,59.1960 134.7793,59.1921 134.7791,59.1870 134.7754,59.1818 134.7585,59.1677 134.7536,59.1627 134.7506,59.1576 134.7517,59.1526 134.7579,59.1493 134.7675,59.1470 134.8006,59.1444 134.8195,59.1393 134.8429,59.1296 134.8545,59.1270 134.8647,59.1284 134.9202,59.1492 134.9325,59.1512 134.9442,59.1520 134.9551,59.1511 135.0066,59.1419 135.0576,59.1398 135.0702,59.1371 135.0760,59.1331 135.0895,59.1203 135.1022,59.1167 135.1223,59.1144 135.1869,59.1162 135.2020,59.1189 135.2091,59.1223 135.2148,59.1269 135.2200,59.1321 135.2237,59.1381 135.2264,59.1439 135.2265,59.1487 135.2257,59.1560 135.2260,59.1606 135.2294,59.1658 135.2362,59.1697 135.2664,59.1800 135.2738,59.1841 135.2786,59.1888 135.2813,59.1938 135.2808,59.1988 135.2767,59.2031 135.2642,59.2106 135.2605,59.2150 135.2602,59.2201 135.2633,59.2256 135.2677,59.2312 135.2954,59.2560 135.3024,59.2604 135.3132,59.2648 135.3206,59.2695 135.3258,59.2753 135.3331,59.2873 135.3424,59.2980 135.3458,59.3033 135.3464,59.3086 135.3452,59.3136 135.3461,59.3186 135.3556,59.3245 135.3719,59.3329 135.3782,59.3371 135.3838,59.3420 135.4104,59.3774 135.4156,59.3825 135.4217,59.3869 135.5211,59.4371 135.5702,59.4521 135.5771,59.4558 135.5836,59.4600 135.5892,59.4649 135.5986,59.4762 135.6028,59.4824 135.6096,59.4889 135.6189,59.4955 135.6371,59.5031 135.6536,59.5062 135.6956,59.5098 135.7090,59.5126 135.7572,59.5288 135.7910,59.5343 135.8151,59.5348 135.8388,59.5328 135.8503,59.5307 135.8678,59.5246 135.8821,59.5176 135.8942,59.5100 135.9062,59.4999 135.9118,59.4925 135.9207,59.4890 135.9356,59.4865 135.9991,59.4862 136.0053,59.4845 136.0167,59.4776 136.0217,59.4734 136.0534,59.4380 136.0650,59.4302 136.0754,59.4274 136.0899,59.4259 136.1336,59.4284 136.1484,59.4278 136.1689,59.4230 136.1879,59.4166 136.2004,59.4137 136.2187,59.4113 136.2303,59.4122 136.2395,59.4150 136.2676,59.4275 136.2874,59.4331 136.3009,59.4347 136.3125,59.4337 136.3194,59.4306 136.3242,59.4268 136.3416,59.4044 136.3466,59.4003 136.3543,59.3969 136.3638,59.3942 136.3750,59.3926 136.4460,59.3961 136.4581,59.3950 136.4890,59.3879 136.5014,59.3835 136.5350,59.3809 136.5998,59.3826 136.6159,59.3813 136.6236,59.3783 136.6294,59.3746 136.6341,59.3703 136.6381,59.3659 136.6413,59.3613 136.6486,59.3572 136.6601,59.3539 136.7587,59.3546 136.7746,59.3568 136.7858,59.3603 136.7923,59.3646 136.8129,59.3861 136.8191,59.3906 136.8268,59.3947 136.8359,59.3980 136.9641,59.4283 136.9795,59.4303 136.9927,59.4301 137.0327,59.4255 137.0445,59.4270 137.0538,59.4303 137.0689,59.4386 137.0974,59.4508 137.1825,59.4456 137.2084,59.4525 137.2177,59.4643 137.2383,59.4791 137.2887,59.4996 137.2920,59.5015 137.3019,59.5085 137.3235,59.5322 137.3328,59.5389 137.3490,59.5486 137.3620,59.5518 137.3744,59.5533 137.4230,59.5487 137.4369,59.5489 137.4555,59.5511 137.4657,59.5553 137.4729,59.5605 137.4765,59.5660 137.4777,59.5716 137.4768,59.5767 137.4743,59.5815 137.4706,59.5859 137.4568,59.5988 137.4501,59.6080 137.4453,59.6176 137.4424,59.6277 137.4470,59.6361 137.4583,59.6473 137.5771,59.7227 137.5991,59.7334 137.6157,59.7398 137.8334,59.7608 137.8444,59.7600 137.8556,59.7581 137.8804,59.7486 137.8894,59.7463 137.8995,59.7455 137.9487,59.7525 137.9608,59.7564 137.9690,59.7615 137.9723,59.7669 137.9741,59.7726 137.9754,59.7789 137.9782,59.7855 137.9859,59.7940 137.9939,59.7969 137.9999,59.7970 138.0054,59.7949 138.0113,59.7916 138.0203,59.7834 138.0305,59.7696 138.0413,59.7507 138.0435,59.7458 138.0444,59.7406 138.0439,59.7350 138.0427,59.7292 138.0365,59.7168 138.0284,59.7046 138.0256,59.6987 138.0259,59.6934 138.0290,59.6889 138.0349,59.6858 138.0432,59.6846 138.0829,59.6867 138.1737,59.6798 138.1843,59.6819 138.2199,59.6997 138.2530,59.7125 138.2669,59.7206 138.2735,59.7273 138.2707,59.7320 138.2647,59.7358 138.2555,59.7390 138.2195,59.7458 138.2094,59.7486 138.2019,59.7529 138.1961,59.7594 138.1930,59.7650 138.1917,59.7707 138.1961,59.8097 138.1940,59.8146 138.1898,59.8190 138.1834,59.8228 138.1779,59.8268 138.1738,59.8312 138.1737,59.8367 138.1762,59.8429 138.1830,59.8554 138.1884,59.8785 138.1908,59.8845 138.1976,59.8967 138.2257,59.9171 138.2626,59.9383 138.2718,59.9483 138.2731,59.9554 138.2670,59.9593 138.2490,59.9765 138.2452,59.9811 138.2428,59.9862 138.2403,59.9957 138.2397,60.0002 138.2336,60.0167 138.2328,60.0219 138.2329,60.0273 138.2341,60.0331 138.2357,60.0389 138.2391,60.0451 138.2534,60.0643 138.2584,60.0723 138.2564,60.0777 138.2528,60.0825 138.2478,60.0867 138.2096,60.1095 138.2053,60.1139 138.2032,60.1187 138.2026,60.1240 138.2033,60.1296 138.2054,60.1356 138.2084,60.1417 138.2331,60.1711 138.2373,60.1795 138.2372,60.1860 138.2335,60.1906 138.2238,60.1990 138.2196,60.2034 138.2131,60.2126 138.2053,60.2215 138.2026,60.2262 138.2005,60.2313 138.2007,60.2367 138.2017,60.2424 138.2058,60.2499 138.2123,60.2586 138.2245,60.2712 138.2415,60.2839 138.2709,60.2984 138.2892,60.3052 138.3152,60.3181 138.3186,60.3239 138.3169,60.3288 138.3090,60.3371 138.3071,60.3418 138.3071,60.3471 138.3097,60.3532 138.3257,60.3790 138.3281,60.3849 138.3291,60.3906 138.3288,60.3960 138.3279,60.4012 138.3266,60.4063 138.3143,60.4305 138.3102,60.4348 138.3048,60.4389 138.2972,60.4424 138.2787,60.4487 138.2728,60.4530 138.2718,60.4585 138.2743,60.4659 138.2738,60.4713 138.2691,60.4756 138.2519,60.4819 138.2453,60.4862 138.2428,60.4927 138.2466,60.4976 138.2536,60.5012 138.2973,60.5125 138.3066,60.5164 138.3285,60.5295 138.3341,60.5366 138.3341,60.5434 138.3287,60.5507 138.3205,60.5592 138.3134,60.5684 138.3118,60.5811 138.3155,60.5878 138.3233,60.5921 138.3326,60.5941 138.3561,60.5948 138.3706,60.5968 138.3852,60.6009 138.4044,60.6114 138.4125,60.6189 138.4159,60.6262 138.4170,60.6344 138.4193,60.6444 138.4342,60.6720 138.4375,60.6804 138.4375,60.6865 138.4362,60.6924 138.4335,60.6977 138.4289,60.7023 138.4229,60.7062 138.4159,60.7096 138.3994,60.7154 138.3707,60.7224 138.3636,60.7256 138.3588,60.7298 138.3567,60.7347 138.3532,60.7395 138.3473,60.7435 138.3378,60.7458 138.2926,60.7521 138.2843,60.7548 138.2799,60.7590 138.2797,60.7643 138.2837,60.7758 138.2843,60.7816 138.2823,60.7869 138.2780,60.7915 138.2527,60.8066 138.2475,60.8108 138.2437,60.8156 138.2407,60.8208 138.2384,60.8329 138.2362,60.8386 138.2310,60.8428 138.2079,60.8523 138.2030,60.8568 138.1992,60.8682 138.1958,60.8732 138.1861,60.8830 138.1828,60.8894 138.1856,60.8950 138.1911,60.9004 138.1991,60.9067 138.2039,60.9126 138.2069,60.9185 138.2069,60.9242 138.2039,60.9363 138.2036,60.9432 138.2053,60.9518 138.2094,60.9578 138.2149,60.9626 138.2214,60.9663 138.2292,60.9693 138.2486,60.9734 138.2983,60.9758 138.3112,60.9781 138.3230,60.9828 138.3374,60.9919 138.3458,61.0001 138.3461,61.0014 138.3483,61.0218 138.3483,61.0284 138.3464,61.0341 138.3431,61.0392 138.3372,61.0431 138.3223,61.0499 138.3158,61.0537 138.3110,61.0580 138.3084,61.0633 138.3078,61.0692 138.3084,61.0753 138.3084,61.0817 138.3066,61.0874 138.3040,61.0929 138.2952,61.1022 138.2921,61.1065 138.2916,61.1100 138.2973,61.1112 138.3833,61.0995 138.3951,61.1003 138.4050,61.1028 138.4137,61.1066 138.4434,61.1251 138.4654,61.1351 138.4746,61.1375 138.4851,61.1390 138.5506,61.1388 138.5613,61.1402 138.5706,61.1425 138.6339,61.1740 138.6501,61.1798 138.6916,61.1886 138.7030,61.1931 138.7065,61.1987 138.7061,61.2041 138.6999,61.2080 138.6906,61.2106 138.6653,61.2127 138.6542,61.2149 138.6471,61.2193 138.6494,61.2292 138.6496,61.2438 138.6476,61.2493 138.6446,61.2546 138.6423,61.2606 138.6437,61.2693 138.6508,61.2819 138.6814,61.3112 138.7190,61.3371 138.7261,61.3405 138.7346,61.3431 138.7452,61.3437 138.7529,61.3411 138.7547,61.3356 138.7473,61.3246 138.7452,61.3174 138.7482,61.3126 138.7560,61.3113 138.7655,61.3123 138.8314,61.3355 138.8403,61.3372 138.8624,61.3365 138.8739,61.3351 138.8834,61.3326 138.8896,61.3288 138.8939,61.3240 138.8999,61.3201 138.9086,61.3179 138.9200,61.3174 138.9407,61.3211 138.9533,61.3275 138.9666,61.3359 139.0113,61.3724 139.0254,61.3795 139.0465,61.3867 139.0598,61.3932 139.0642,61.3990 139.0629,61.4041 139.0519,61.4127 139.0475,61.4176 139.0462,61.4244 139.0506,61.4290 139.0571,61.4329 139.0716,61.4397 139.0977,61.4476 139.1082,61.4491 139.1201,61.4494 139.2473,61.4330 139.2595,61.4335 139.2703,61.4348 139.3053,61.4450 139.3429,61.4613 139.3718,61.4694 139.3829,61.4740 139.3879,61.4791 139.3929,61.4853 139.4006,61.4887 139.4104,61.4911 139.4219,61.4919 139.4346,61.4911 139.4948,61.4739 139.5043,61.4724 139.5144,61.4730 139.5362,61.4773 139.5482,61.4817 139.5554,61.4863 139.5614,61.4912 139.5953,61.5314 139.6040,61.5392 139.6393,61.5617 139.6457,61.5689 139.6485,61.5754 139.6492,61.5881 139.6506,61.5946 139.6528,61.6007 139.6590,61.6120 139.6615,61.6181 139.6672,61.6409 139.6727,61.6515 139.6800,61.6573 139.6897,61.6607 139.7114,61.6655 139.7219,61.6706 139.7260,61.6769 139.7280,61.6839 139.7291,61.6905 139.7332,61.6979 139.7416,61.7016 139.7813,61.7100 139.7979,61.7184 139.8438,61.7490 139.8543,61.7579 139.8621,61.7664 139.8691,61.7770 139.8762,61.7831 139.8843,61.7877 139.9189,61.8019 139.9274,61.8073 139.9342,61.8127 139.9531,61.8326 139.9774,61.8640 139.9800,61.8696 139.9799,61.8752 139.9778,61.8805 139.9732,61.8851 139.9613,61.8931 139.9563,61.8975 139.9528,61.9025 139.9512,61.9081 139.9516,61.9143 139.9554,61.9269 139.9627,61.9379 139.9720,61.9478 139.9883,61.9720 139.9943,61.9777 140.0000,61.9812 140.0060,61.9830 140.0149,61.9843 140.0400,61.9836 140.0645,61.9806 140.0920,61.9727 140.1023,61.9708 140.1140,61.9705 140.1272,61.9723 140.1405,61.9764 140.1573,61.9852 140.1651,61.9915 140.1697,61.9970 140.1706,61.9992 140.1709,62.0007 140.1707,62.0125 140.1721,62.0198 140.1786,62.0242 140.1879,62.0268 140.2263,62.0281 140.2414,62.0316 140.2564,62.0383 140.2796,62.0534 140.2870,62.0626 140.2877,62.0697 140.2823,62.0739 140.2749,62.0773 140.2662,62.0802 140.2588,62.0839 140.2539,62.0883 140.2538,62.0943 140.2582,62.0990 140.2996,62.1194 140.3045,62.1248 140.3059,62.1307 140.3014,62.1479 140.3027,62.1550 140.3126,62.1725 140.3138,62.1795 140.3118,62.1850 140.3081,62.1898 140.3031,62.1943 140.2994,62.1996 140.2987,62.2061 140.3089,62.2232 140.3120,62.2302 140.3124,62.2364 140.3105,62.2419 140.2988,62.2563 140.2957,62.2615 140.2943,62.2675 140.2944,62.2742 140.3008,62.2836 140.3064,62.2946 140.3099,62.3189 140.3136,62.3319 140.3186,62.3443 140.3408,62.3808 140.3472,62.3875 140.2333,62.5233 140.1096,62.5947 139.8859,62.6232 139.7860,62.7184 139.6813,62.8374 139.6956,62.9088 139.6671,62.9765 139.6477,63.0113 139.7001,63.0724 139.7248,63.1514 139.7307,63.2240 139.7946,63.2992 139.8637,63.3212 139.9352,63.3348 140.0089,63.3381 140.0682,63.3834 140.1413,63.4376 140.2780,63.4776 140.4130,63.5050 140.4962,63.5141 140.5730,63.5337 140.6423,63.5871 140.6493,63.6590 140.6187,63.6951 140.5426,63.7372 140.4791,63.7953 140.4919,63.8549 140.5338,63.9017 140.6141,63.9625 140.6825,64.0359 140.6755,64.0921 140.5981,64.1294 140.4753,64.1612 140.3488,64.1830 140.2695,64.1952 140.2197,64.2306 140.2590,64.2796 140.2966,64.3170 140.2632,64.3696 140.2924,64.4315 140.4019,64.4889 140.4033,64.5424 140.3336,64.5912 140.2471,64.6216 140.0917,64.6639 140.0375,64.7101 139.9915,64.7615 139.7891,64.8088 139.6168,64.8493 139.4532,64.8686 139.4023,64.9176 139.4413,64.9853 139.5478,65.0990 139.6593,65.2573 139.7799,65.3588 139.9261,65.4534 140.0574,65.5061 140.2131,65.5300 140.3287,65.5606 140.5933,65.5430 140.8591,65.5304 141.0364,65.5050 141.1250,65.4038 12,10.5,Australia/Lord_Howe 159.5000,-32.0000 159.1667,-32.0000 158.8333,-32.0000 158.5000,-32.0000 158.5000,-31.5005 158.5000,-31.0010 158.8333,-31.0007 159.1667,-31.0003 159.5000,-31.0000 159.5000,-31.3333 159.5000,-31.6667 159.5000,-32.0000 3026,7.0,Asia/Jakarta 105.3895,23.2754 105.3991,23.2749 105.3993,23.2749 105.4001,23.2749 105.4076,23.2775 105.4147,23.2784 105.4259,23.2732 105.4309,23.2678 105.4440,23.2452 105.4440,23.2452 105.4440,23.2451 105.4643,23.2060 105.4739,23.1945 105.5172,23.1677 105.5283,23.1555 105.5348,23.1363 105.5353,23.0941 105.5397,23.0755 105.5516,23.0597 105.5660,23.0541 105.6368,23.0513 105.6650,23.0434 105.6658,23.0434 105.6659,23.0434 105.6904,23.0439 105.7007,23.0378 105.7197,23.0196 105.7316,23.0142 105.7432,23.0108 105.7547,23.0057 105.7658,22.9955 105.7658,22.9953 105.7660,22.9952 105.7661,22.9952 105.7794,22.9761 105.8357,22.9172 105.8539,22.9046 105.8545,22.9049 105.8548,22.9046 105.8632,22.9078 105.8675,22.9151 105.8711,22.9231 105.8769,22.9283 105.8870,22.9297 105.9037,22.9255 105.9132,22.9244 105.9137,22.9244 105.9142,22.9244 105.9458,22.9277 105.9622,22.9324 105.9749,22.9399 105.9909,22.9706 106.0002,22.9754 106.0780,22.9810 106.1321,22.9750 106.1700,22.9660 106.2024,22.9470 106.2230,22.9124 106.2271,22.8756 106.2340,22.8639 106.2554,22.8547 106.2766,22.8510 106.2775,22.8510 106.2775,22.8510 106.2973,22.8511 106.3166,22.8538 106.4589,22.8890 106.4747,22.8971 106.4789,22.9196 106.4884,22.9252 106.5012,22.9217 106.5169,22.9154 106.5670,22.9038 106.5817,22.8953 106.5917,22.8809 106.5992,22.8650 106.6104,22.8529 106.6327,22.8496 106.6330,22.8497 106.6337,22.8496 106.6408,22.8534 106.6489,22.8670 106.6574,22.8698 106.6675,22.8675 106.6744,22.8615 106.6851,22.8482 106.7149,22.8261 106.7310,22.8001 106.7304,22.7976 106.7451,22.7972 106.7453,22.7972 106.7460,22.7972 106.7689,22.7992 106.7898,22.7972 106.7987,22.7844 106.7915,22.7721 106.7585,22.7542 106.7466,22.7443 106.7396,22.7268 106.7355,22.6954 106.7266,22.6773 106.7051,22.6461 106.6977,22.6309 106.6802,22.5794 106.6679,22.5691 106.6473,22.5688 106.6310,22.5801 106.6205,22.5973 106.6086,22.6100 106.6077,22.6099 106.6076,22.6100 106.5880,22.6078 106.5771,22.5953 106.5688,22.5746 106.5459,22.4725 106.5414,22.4643 106.5303,22.4493 106.5269,22.4383 106.5269,22.4278 106.5345,22.3975 106.5365,22.3605 106.5418,22.3451 106.5553,22.3320 106.5775,22.3246 106.6173,22.3228 106.6338,22.3094 106.6397,22.2967 106.6629,22.2233 106.6605,22.2134 106.6518,22.2056 106.6397,22.1909 106.6424,22.1761 106.6487,22.1651 106.6561,22.1551 106.6613,22.1436 106.6615,22.1363 106.6584,22.1201 106.6587,22.1119 106.6613,22.1066 106.6701,22.0966 106.6722,22.0925 106.6730,22.0661 106.6679,22.0427 106.6482,21.9955 106.6481,21.9870 106.6496,21.9776 106.6531,21.9689 106.6589,21.9628 106.6746,21.9622 106.6747,21.9622 106.6756,21.9622 106.6907,21.9729 106.7233,22.0070 106.7291,22.0082 106.7426,22.0039 106.7483,22.0000 106.7561,21.9895 106.7610,21.9851 106.7815,21.9750 106.7991,21.9726 106.7999,21.9726 106.8000,21.9726 106.8406,21.9736 106.8648,21.9681 106.8769,21.9573 106.8854,21.9433 106.8988,21.9278 106.9204,21.9170 106.9211,21.9171 106.9213,21.9170 106.9387,21.9200 106.9547,21.9290 106.9721,21.9358 106.9919,21.9354 107.0094,21.9274 107.0202,21.9129 107.0211,21.8923 107.0118,21.8756 106.9975,21.8608 106.9871,21.8448 106.9891,21.8243 107.0029,21.8106 107.0237,21.8041 107.0658,21.7958 107.0948,21.7790 107.1724,21.7151 107.2121,21.7052 107.2126,21.7054 107.2131,21.7052 107.2448,21.7152 107.2728,21.7182 107.3032,21.6887 107.3297,21.6160 107.3336,21.6125 107.3482,21.5994 107.3487,21.5997 107.3491,21.5994 107.3838,21.6189 107.4109,21.6454 107.4266,21.6519 107.4459,21.6469 107.4570,21.6315 107.4610,21.5964 107.4738,21.5906 107.4912,21.5841 107.5013,21.5815 107.5022,21.5816 107.5023,21.5815 107.5108,21.5818 107.5192,21.5874 107.5275,21.6033 107.5340,21.6087 107.5515,21.6108 107.5928,21.6056 107.5938,21.6056 107.6132,21.6056 107.6142,21.6056 107.6728,21.6176 107.6912,21.6247 107.7304,21.6520 107.7458,21.6575 107.7604,21.6582 107.7779,21.6560 107.8116,21.6478 107.8324,21.6394 107.8399,21.6299 107.8445,21.6175 107.8555,21.6003 107.8677,21.5892 107.8961,21.5694 107.9310,21.5342 107.9442,21.5308 107.9919,21.4855 107.9928,21.4855 107.9926,21.4857 108.0139,21.4924 108.0225,21.4857 108.0365,21.4882 108.0479,21.4932 108.0613,21.4962 108.0800,21.4932 108.1012,21.4701 108.1004,21.4671 108.0994,21.4639 108.0976,21.4610 108.0944,21.4578 108.0941,21.4564 108.0955,21.4523 108.1347,21.2756 108.1606,21.2525 108.1969,21.2768 108.2066,21.2833 108.3530,21.3331 108.4820,21.3550 108.6299,21.4007 108.8161,21.3959 108.8479,21.3421 108.9547,21.2254 108.9020,21.1602 108.8725,21.0895 108.8679,21.0158 108.8879,20.9446 108.9663,20.8515 109.0234,20.8230 109.0819,20.8126 109.2172,20.8432 109.2777,20.8830 109.3147,20.9290 109.3287,20.9901 109.2942,21.1663 109.2996,21.2200 109.3506,21.2406 109.4560,21.2403 109.4679,21.2130 109.4468,21.1158 109.4454,20.8453 109.5257,20.6884 109.5333,20.5701 109.6210,20.4371 109.6864,20.2353 109.5069,20.1851 109.4079,20.1290 109.2624,20.1290 109.1384,20.0787 108.9994,19.9450 108.9357,19.8134 108.8730,19.7464 108.7640,19.6583 108.5746,19.5486 108.5016,19.4865 108.4284,19.3723 108.3984,19.2652 108.3912,19.1253 108.4125,18.9453 108.4028,18.8262 108.4205,18.7593 108.4689,18.6742 108.4519,18.5560 108.4672,18.4683 108.5063,18.3892 108.5721,18.3320 108.8297,18.2105 109.0874,18.0890 109.1681,18.0761 109.2689,18.0881 109.3847,18.0020 109.4466,17.9796 109.6124,17.9649 109.7833,18.0079 109.8596,18.0548 109.9620,18.1593 110.0997,18.1803 110.1953,18.2256 110.3190,18.4347 110.5015,18.4738 110.5958,18.5443 110.7518,18.8243 110.7387,18.9145 110.8529,19.2008 110.9101,19.2750 111.1075,19.4514 111.2241,19.6799 111.2352,19.7341 111.2255,19.7967 111.1811,19.9584 111.1168,20.1177 111.0711,20.1537 110.9056,20.2363 110.7356,20.3888 110.7392,20.5195 110.6991,20.6793 110.8008,20.7853 110.8444,20.8598 110.8507,20.9786 110.8168,21.0709 110.8305,21.1192 110.8555,21.1496 111.1113,21.2543 111.2783,21.2297 111.4628,21.3012 111.8938,21.3622 112.0710,21.4200 112.1707,21.4849 112.2269,21.5008 112.3046,21.4900 112.4296,21.4123 112.4874,21.3910 112.5005,21.3912 112.5005,20.9088 112.5005,20.4263 112.5005,19.9439 112.5005,19.4615 112.5005,18.9790 112.5005,18.4966 112.5005,18.0142 112.5005,17.5317 112.5006,17.0493 112.5006,16.7979 112.5006,16.5465 112.5006,16.0878 112.5006,15.6291 112.5006,15.1704 112.5006,14.7117 112.5137,14.7117 112.5131,14.2572 112.5126,13.8026 112.5120,13.3481 112.5115,12.8936 112.5109,12.4390 112.5104,11.9845 112.5098,11.5299 112.5093,11.0754 112.5087,10.6208 112.5082,10.1663 112.5076,9.7117 112.5070,9.2181 112.5064,8.7244 112.5058,8.2307 112.5052,7.7371 112.5046,7.2434 112.5040,6.7497 112.5035,6.2561 112.0068,6.2562 111.5102,6.2562 111.0135,6.2563 110.5169,6.2564 110.0203,6.2564 109.5236,6.2565 109.0270,6.2566 108.5304,6.2567 108.0337,6.2567 107.5371,6.2568 107.0404,6.2569 106.5438,6.2570 106.0472,6.2570 105.5505,6.2571 105.0539,6.2572 104.5573,6.2572 104.0606,6.2573 103.5640,6.2574 103.0674,6.2575 102.5707,6.2575 102.0741,6.2576 102.0741,6.2576 102.0731,6.2576 102.0683,6.2181 102.0667,6.2048 102.0713,6.1267 102.0600,6.0948 102.0334,6.0684 101.9594,6.0116 101.9347,5.9817 101.9198,5.9403 101.9193,5.8976 101.9129,5.8593 101.8803,5.8310 101.8692,5.8239 101.8643,5.8154 101.8608,5.8065 101.8547,5.7977 101.8255,5.7798 101.8202,5.7737 101.8123,5.7525 101.8005,5.7399 101.7849,5.7382 101.7638,5.7495 101.7551,5.7603 101.7488,5.7724 101.7410,5.7824 101.7277,5.7865 101.7273,5.7863 101.7268,5.7865 101.7148,5.7829 101.6966,5.7663 101.6870,5.7613 101.6669,5.7656 101.6513,5.7826 101.6317,5.8284 101.6322,5.8374 101.6353,5.8473 101.6350,5.8556 101.6255,5.8594 101.6138,5.8613 101.6061,5.8661 101.6007,5.8741 101.5961,5.8854 101.5803,5.9063 101.5589,5.9113 101.5584,5.9112 101.5579,5.9113 101.5347,5.9060 101.3927,5.8511 101.3576,5.8284 101.3190,5.8101 101.2797,5.8030 101.2490,5.7870 101.2366,5.7417 101.2336,5.7194 101.2250,5.6992 101.2123,5.6815 101.1969,5.6668 101.1500,5.6386 101.1227,5.6301 101.1064,5.6376 101.0949,5.6627 101.0797,5.6878 101.0608,5.7096 101.0383,5.7246 101.0284,5.7266 101.0276,5.7265 101.0274,5.7266 101.0092,5.7257 100.9996,5.7295 100.9927,5.7375 100.9810,5.7610 100.9682,5.7810 100.9662,5.7924 100.9687,5.8041 100.9752,5.8153 101.0163,5.8983 101.0328,5.9089 101.0539,5.9131 101.0721,5.9198 101.0797,5.9382 101.0814,5.9570 101.0884,5.9897 101.0900,6.0466 101.0952,6.0858 101.0881,6.1056 101.0695,6.1196 101.0535,6.1346 101.0544,6.1576 101.0678,6.1743 101.0810,6.1803 101.0901,6.1888 101.0920,6.2132 101.0892,6.2335 101.0826,6.2465 101.0699,6.2509 101.0693,6.2507 101.0690,6.2509 101.0236,6.2411 101.0074,6.2464 100.9752,6.2726 100.9745,6.2725 100.9743,6.2726 100.9552,6.2686 100.9289,6.2406 100.9106,6.2359 100.8694,6.2462 100.8561,6.2479 100.8558,6.2478 100.8551,6.2479 100.8428,6.2439 100.8373,6.2372 100.8339,6.2368 100.8255,6.2515 100.8231,6.2599 100.8225,6.2888 100.8243,6.2977 100.8279,6.3071 100.8300,6.3163 100.8281,6.3246 100.8161,6.3448 100.8117,6.3558 100.8094,6.3673 100.8066,6.4148 100.7973,6.4339 100.7742,6.4473 100.7628,6.4490 100.7620,6.4489 100.7619,6.4490 100.7525,6.4488 100.7433,6.4501 100.7348,6.4564 100.7321,6.4647 100.7325,6.4870 100.7309,6.4932 100.7300,6.4932 100.7300,6.4932 100.7128,6.4930 100.6484,6.4472 100.6313,6.4449 100.6136,6.4492 100.5794,6.4643 100.5184,6.4819 100.5001,6.4903 100.4682,6.5132 100.4533,6.5169 100.4527,6.5168 100.4523,6.5169 100.4269,6.5139 100.4106,6.5153 100.3883,6.5221 100.3497,6.5406 100.3302,6.5578 100.3188,6.5767 100.2817,6.6889 100.2749,6.6963 100.2643,6.7000 100.2527,6.7011 100.2522,6.7010 100.2517,6.7011 100.2426,6.7003 100.2275,6.6908 100.2275,6.6889 100.2133,6.6892 100.2047,6.6939 100.1976,6.7025 100.1885,6.7080 100.1879,6.7078 100.1876,6.7080 100.1733,6.7034 100.1668,6.6951 100.1640,6.6837 100.1628,6.6611 100.1561,6.6206 100.1572,6.6035 100.1652,6.5803 100.1672,6.5661 100.1612,6.5575 100.1524,6.5500 100.1457,6.5395 100.1448,6.5306 100.1481,6.5132 100.1485,6.5045 100.1444,6.4796 100.1356,6.4577 100.1274,6.4420 100.1111,6.4117 100.0918,6.3930 100.0731,6.3843 100.0470,6.3843 100.0146,6.3962 99.9797,6.4572 99.9573,6.4740 99.8866,6.5017 99.8034,6.5344 99.7835,6.5276 99.7386,6.4740 99.7093,6.4690 99.6520,6.4753 99.5556,6.5033 99.5107,6.4821 99.4572,6.3065 99.4474,6.3040 99.5009,6.2354 99.6361,6.0345 99.7405,5.9610 99.8144,5.9495 99.8147,5.9496 99.8153,5.9495 99.8866,5.9692 99.9654,6.0125 100.0388,6.1012 100.0972,6.0535 100.1408,5.9399 100.1606,5.7852 100.1262,5.6665 100.0324,5.6086 99.9817,5.5303 99.9617,5.4020 99.9735,5.2396 100.0070,5.1537 100.1486,5.0338 100.2727,4.8032 100.3910,4.6786 100.3965,4.5865 100.3623,4.3612 100.3648,4.2828 100.3972,4.1684 100.4833,3.9819 100.5141,3.8074 100.5953,3.6967 100.8701,3.4784 100.9594,3.3271 101.0802,3.1921 101.0294,3.0177 101.0895,2.7847 101.1246,2.7181 101.1656,2.6815 101.2862,2.6242 101.3528,2.5460 101.4222,2.4914 101.6157,2.4113 101.6567,2.3552 101.8900,2.1806 101.8891,2.1819 101.8909,2.1806 101.8890,2.1835 102.0849,2.0346 102.3680,1.9080 102.5867,1.6834 102.7608,1.6272 102.8388,1.5631 103.2151,1.3807 103.2461,1.3449 103.2430,1.3009 103.3035,1.2718 103.3330,1.2610 103.3796,1.2499 103.4474,1.2144 103.5275,1.1350 103.6113,1.2119 103.6511,1.1957 103.6697,1.1788 103.7403,1.1302 103.8790,1.2075 104.0323,1.2698 104.0603,1.2723 104.1836,1.2562 104.2839,1.2579 104.4272,1.3390 104.7212,1.6153 105.0152,1.8917 105.0195,2.3754 104.9385,2.6473 104.8576,2.9192 104.8347,3.1704 104.8118,3.4216 104.8125,3.8189 104.8132,4.2163 104.8139,4.6137 104.8146,5.0111 105.2775,5.0111 105.7404,5.0111 106.2033,5.0111 106.6662,5.0111 107.1291,5.0111 107.5920,5.0111 108.0549,5.0111 108.5179,5.0111 108.9808,5.0111 109.4437,5.0111 109.9066,5.0111 109.9067,4.6086 109.9069,4.2062 109.9071,3.8038 109.9072,3.4014 109.9074,2.9989 109.7765,2.5410 109.6456,2.0831 109.6266,2.0297 109.6003,1.9831 109.5851,1.9609 109.5744,1.9486 109.5379,1.9177 109.5294,1.9052 109.5284,1.8900 109.5347,1.8539 109.5343,1.8465 109.5347,1.8390 109.5398,1.8266 109.5466,1.8143 109.5556,1.8022 109.5670,1.7926 109.5801,1.7880 109.6240,1.7878 109.6418,1.7810 109.6472,1.7619 109.6406,1.6830 109.6417,1.6372 109.6470,1.6176 109.6580,1.5972 109.6773,1.5729 109.7664,1.4965 109.7732,1.4859 109.7756,1.4579 109.7815,1.4563 109.7819,1.4565 109.7825,1.4563 109.8009,1.4664 109.8078,1.4600 109.8255,1.4176 109.8428,1.4033 109.8629,1.4015 109.8633,1.4015 109.8638,1.4015 109.8837,1.4038 109.9021,1.4038 109.9202,1.3948 109.9325,1.3785 109.9518,1.3197 109.9638,1.2986 109.9763,1.2877 110.0121,1.2705 110.0307,1.2536 110.0518,1.2155 110.0746,1.1986 110.0935,1.1916 110.1522,1.1839 110.1704,1.1745 110.1851,1.1542 110.2067,1.1117 110.2566,1.0391 110.2617,1.0147 110.2635,0.9943 110.2728,0.9911 110.2733,0.9912 110.2737,0.9911 110.2873,0.9953 110.3012,0.9976 110.3516,0.9865 110.3641,0.9814 110.3807,0.9666 110.4226,0.9095 110.4603,0.8797 110.5064,0.8573 110.5539,0.8514 110.5541,0.8515 110.5549,0.8514 110.5970,0.8711 110.6069,0.8833 110.6106,0.8909 110.6143,0.8939 110.6248,0.8931 110.6321,0.8886 110.6389,0.8808 110.6477,0.8739 110.6613,0.8721 110.6615,0.8722 110.6622,0.8721 110.6754,0.8770 110.6940,0.8947 110.7051,0.9014 110.7094,0.9014 110.7207,0.8974 110.7248,0.8973 110.7249,0.8973 110.7258,0.8973 110.7457,0.9051 110.7467,0.9080 110.7588,0.9143 110.7611,0.9129 110.7713,0.9044 110.7767,0.9033 110.7770,0.9034 110.7777,0.9033 110.7849,0.9082 110.7872,0.9163 110.7880,0.9342 110.7979,0.9497 110.8536,0.9972 110.8813,1.0105 110.9115,1.0157 110.9744,1.0177 111.1983,1.0752 111.2175,1.0733 111.3518,1.0139 111.3741,1.0075 111.3955,1.0063 111.3957,1.0063 111.3965,1.0063 111.4160,1.0102 111.4554,1.0226 111.4721,1.0222 111.4824,1.0129 111.4880,0.9979 111.4920,0.9809 111.5032,0.9584 111.5040,0.9588 111.5042,0.9584 111.5163,0.9645 111.5398,0.9977 111.6236,1.0303 111.6379,1.0322 111.6552,1.0308 111.6821,1.0235 111.7342,1.0014 111.7628,0.9930 111.7633,0.9931 111.7638,0.9930 111.8240,1.0085 111.9111,1.1140 111.9743,1.1340 112.0541,1.1336 112.0541,1.1336 112.0550,1.1336 112.0804,1.1372 112.0939,1.1431 112.1010,1.1549 112.1536,1.3063 112.1849,1.3690 112.1883,1.3797 112.1890,1.3914 112.1828,1.4000 112.1600,1.4008 112.1551,1.4095 112.1625,1.4345 112.1810,1.4490 112.2961,1.5038 112.3200,1.5117 112.3819,1.5177 112.3995,1.5233 112.4169,1.5367 112.4307,1.5507 112.4468,1.5621 112.4713,1.5676 112.7689,1.5522 112.7948,1.5444 112.8015,1.5438 112.8017,1.5439 112.8025,1.5438 112.8145,1.5493 112.8215,1.5576 112.8276,1.5672 112.8374,1.5761 112.8557,1.5826 112.8714,1.5807 112.8881,1.5749 112.9077,1.5705 112.9085,1.5706 112.9086,1.5705 112.9562,1.5723 112.9732,1.5699 112.9972,1.5602 113.0141,1.5508 113.0234,1.5370 113.0243,1.5144 113.0185,1.4924 113.0073,1.4733 112.9917,1.4570 112.9612,1.4344 112.9553,1.4236 112.9582,1.4157 112.9732,1.4151 112.9733,1.4151 112.9741,1.4151 113.0124,1.4280 113.0512,1.4347 113.0890,1.4313 113.1257,1.4136 113.1586,1.3882 113.1728,1.3837 113.2177,1.3809 113.2760,1.3689 113.3237,1.3514 113.3976,1.2939 113.4429,1.2924 113.4430,1.2924 113.4439,1.2924 113.4833,1.3087 113.5042,1.3145 113.5245,1.3136 113.5462,1.3016 113.5965,1.2416 113.6248,1.2276 113.6255,1.2277 113.6258,1.2276 113.6505,1.2333 113.8091,1.3397 113.8692,1.4155 113.8921,1.4350 113.9106,1.4425 114.0549,1.4651 114.0943,1.4657 114.1309,1.4542 114.1411,1.4453 114.1503,1.4343 114.1604,1.4248 114.1734,1.4205 114.1739,1.4207 114.1744,1.4205 114.1842,1.4235 114.1996,1.4341 114.2059,1.4248 114.1914,1.3437 114.1911,1.3302 114.1927,1.3143 114.2039,1.2950 114.2084,1.2779 114.2089,1.2617 114.2061,1.2406 114.2006,1.2251 114.1921,1.2144 114.1834,1.2082 114.1731,1.2023 114.1462,1.1776 114.1233,1.1674 114.1118,1.1607 114.0180,1.0786 114.0072,1.0722 113.9898,1.0644 113.9794,1.0585 113.9488,1.0339 113.8993,1.0115 113.8863,1.0031 113.8700,0.9873 113.8645,0.9764 113.8632,0.9645 113.8646,0.9530 113.8645,0.9416 113.8608,0.9199 113.8602,0.9101 113.8626,0.9023 113.8670,0.8980 113.8739,0.8960 113.8746,0.8961 113.8748,0.8960 113.8843,0.8967 113.9043,0.9042 113.9138,0.9064 113.9231,0.9057 113.9333,0.9004 113.9417,0.8917 113.9473,0.8789 113.9481,0.8622 113.9434,0.8410 113.9329,0.8204 113.9271,0.8021 113.9239,0.7823 113.9233,0.7616 113.9177,0.7364 113.9079,0.7189 113.8742,0.6799 113.8506,0.6456 113.8407,0.6375 113.8177,0.6276 113.8072,0.6200 113.7941,0.6036 113.7879,0.5919 113.7764,0.5586 113.7775,0.5589 113.7773,0.5586 113.8053,0.5683 113.8554,0.5742 113.8708,0.5776 113.9128,0.5959 113.9287,0.5994 113.9708,0.6036 113.9847,0.6084 113.9947,0.6151 114.0081,0.6301 114.0181,0.6380 114.0373,0.6470 114.0534,0.6489 114.0950,0.6488 114.0951,0.6488 114.0960,0.6488 114.1372,0.6529 114.1839,0.6505 114.1981,0.6465 114.2117,0.6400 114.2368,0.6216 114.2514,0.6144 114.2671,0.6098 114.3428,0.5965 114.3590,0.5914 114.3775,0.5886 114.3781,0.5887 114.3785,0.5886 114.6640,0.6213 114.6838,0.6346 114.7060,0.6542 114.7364,0.6726 114.7863,0.6898 114.8339,0.6982 114.8573,0.7062 114.8673,0.7115 114.8751,0.7273 114.8796,0.7333 114.8839,0.7358 114.8910,0.7373 114.9475,0.7400 114.9641,0.7389 114.9765,0.7352 114.9830,0.7281 114.9908,0.7114 114.9969,0.7061 115.0020,0.7031 115.0096,0.7001 115.0186,0.6953 115.0271,0.6870 115.0332,0.6773 115.0376,0.6664 115.0421,0.6577 115.0532,0.6455 115.0572,0.6369 115.0619,0.5934 115.0662,0.5802 115.0725,0.5681 115.0769,0.5575 115.0784,0.5473 115.0760,0.5330 115.0694,0.5211 115.0579,0.5089 115.0332,0.4887 115.0251,0.4795 114.9679,0.3642 114.9559,0.3287 114.9530,0.3125 114.9531,0.2842 114.9551,0.2715 114.9594,0.2584 114.9689,0.2368 114.9722,0.2259 114.9732,0.2118 114.9720,0.1856 114.9735,0.1763 114.9781,0.1665 115.0000,0.1309 115.0112,0.1085 115.0159,0.0950 115.0192,0.0807 115.0198,0.0696 115.0177,0.0577 114.9854,-0.0172 114.9704,-0.0682 114.9676,-0.0860 114.9673,-0.0975 114.9698,-0.1064 114.9747,-0.1128 114.9781,-0.1196 114.9793,-0.1288 114.9766,-0.1414 114.9755,-0.1548 114.9781,-0.1667 114.9863,-0.1789 114.9963,-0.1794 114.9964,-0.1794 114.9972,-0.1794 115.0035,-0.1777 115.0385,-0.1425 115.0465,-0.1368 115.0777,-0.1230 115.0867,-0.1175 115.0940,-0.1104 115.0996,-0.1031 115.1087,-0.0867 115.1883,0.0052 115.2138,0.0249 115.2270,0.0245 115.2271,0.0246 115.2279,0.0245 115.2495,0.0274 115.2661,0.0312 115.2755,0.0314 115.3033,0.0234 115.3370,0.0171 115.3426,0.0144 115.3466,0.0103 115.3478,0.0057 115.3474,0.0023 115.3423,-0.0104 115.3370,-0.0290 115.3256,-0.0982 115.3222,-0.1100 115.3179,-0.1207 115.2910,-0.1677 115.2841,-0.1852 115.2772,-0.2201 115.2729,-0.2943 115.2742,-0.3110 115.2875,-0.3510 115.2906,-0.3664 115.2946,-0.4166 115.2997,-0.4380 115.3120,-0.4733 115.3299,-0.5110 115.3813,-0.5820 115.3874,-0.5976 115.3906,-0.6152 115.3913,-0.6552 115.4152,-0.7739 115.4214,-0.7863 115.4532,-0.8281 115.4588,-0.8434 115.4599,-0.8587 115.4584,-0.8719 115.4600,-0.8860 115.4671,-0.8973 115.5178,-0.9378 115.5287,-0.9446 115.5401,-0.9496 115.5745,-0.9582 115.6054,-0.9728 115.6113,-0.9748 115.6194,-0.9759 115.6287,-0.9780 115.6419,-0.9848 115.6552,-0.9943 115.6728,-1.0133 115.6807,-1.0257 115.6878,-1.0441 115.6928,-1.0523 115.7171,-1.0718 115.7255,-1.0870 115.7332,-1.0970 115.7397,-1.1038 115.7460,-1.1070 115.7524,-1.1074 115.7526,-1.1074 115.7533,-1.1074 115.7599,-1.1056 115.7728,-1.0977 115.7858,-1.0918 115.8051,-1.0856 115.8166,-1.2070 115.8113,-1.2219 115.8078,-1.2722 115.8020,-1.2944 115.7506,-1.3873 115.7341,-1.4113 115.7202,-1.4263 115.7072,-1.4303 115.6946,-1.4292 115.6785,-1.4259 115.6872,-1.3822 115.6869,-1.3685 115.6810,-1.3609 115.6667,-1.3607 115.6667,-1.3608 115.6658,-1.3607 115.6425,-1.3663 115.5530,-1.4043 115.5095,-1.4122 115.4801,-1.4158 115.4737,-1.4173 115.4266,-1.4345 115.4169,-1.4434 115.4102,-1.4535 115.4043,-1.4744 115.3383,-1.7654 115.3352,-1.7994 115.3414,-1.8281 115.3536,-1.8557 115.3609,-1.8799 115.3584,-1.9039 115.3401,-1.9387 115.3224,-1.9600 115.3112,-1.9800 115.3080,-1.9919 115.3301,-2.0371 115.1876,-2.1711 115.1553,-2.1960 115.1309,-2.2076 115.0848,-2.2200 115.0264,-2.2354 114.9048,-2.2625 114.8902,-2.2689 114.8800,-2.2746 114.8786,-2.2790 114.8792,-2.2850 114.8790,-2.2928 114.8790,-2.3263 114.8821,-2.3357 114.8913,-2.3522 114.8952,-2.3628 114.8998,-2.3676 114.9043,-2.3742 114.9062,-2.3844 114.9081,-2.4187 114.9062,-2.4294 114.9021,-2.4403 114.8858,-2.4703 114.8725,-2.5075 114.8686,-2.5150 114.8222,-2.5620 114.8100,-2.5802 114.8014,-2.5996 114.7949,-2.6214 114.7909,-2.6440 114.7895,-2.6658 114.7854,-2.6888 114.7753,-2.7051 114.7572,-2.7231 114.7492,-2.7301 114.7430,-2.7345 114.6750,-2.7594 114.6651,-2.7652 114.6602,-2.7717 114.6611,-2.7836 114.6589,-2.7909 114.6544,-2.7991 114.6439,-2.8120 114.6371,-2.8181 114.6312,-2.8223 114.6107,-2.8294 114.5410,-2.8432 114.5339,-2.8464 114.5283,-2.8500 114.5045,-2.8810 114.4981,-2.8933 114.4938,-2.9060 114.4711,-3.0040 114.3107,-3.4338 114.1543,-3.8767 113.9979,-4.3195 113.8415,-4.7624 113.6851,-5.2052 113.6861,-5.2052 114.1252,-5.2052 114.5644,-5.2052 115.0035,-5.2052 115.4427,-5.2052 115.8818,-5.2052 116.3209,-5.2052 116.3209,-5.6739 116.3209,-6.1426 116.3209,-6.6113 116.3209,-7.0800 116.3209,-7.5487 116.0445,-7.5487 115.7680,-7.5487 115.7670,-7.5487 115.7670,-7.5576 115.3146,-7.5614 114.8621,-7.5652 114.6788,-7.7597 114.4956,-7.9543 114.4351,-8.1130 114.4502,-8.3435 114.6996,-8.5778 114.6996,-8.9307 114.6996,-9.2836 114.6996,-9.6365 114.2599,-9.6365 113.8203,-9.6365 113.3806,-9.6365 112.9410,-9.6365 112.5013,-9.6365 112.5004,-9.6365 112.5004,-10.0910 112.5004,-10.5456 112.5004,-11.0001 112.5004,-11.4547 112.5004,-11.9092 112.5004,-12.3638 112.5004,-12.8183 112.5004,-13.2728 112.5004,-13.7274 112.5004,-14.1819 112.5004,-14.6365 112.5004,-15.0910 112.5004,-15.5456 112.5004,-16.0001 112.5004,-16.4547 112.5004,-16.9092 112.5004,-17.3638 112.5004,-17.8183 112.5004,-18.2728 112.5004,-18.7274 112.5004,-19.1819 112.5004,-19.6365 112.5004,-20.0910 112.5004,-20.5456 112.5004,-21.0001 112.5004,-21.4547 112.5004,-21.9092 112.5004,-22.3638 112.5004,-22.8183 112.5004,-23.2728 112.5004,-23.7274 112.5004,-24.1819 112.5004,-24.6365 112.5004,-25.0910 112.5004,-25.5456 112.5004,-26.0001 112.5004,-26.4547 112.5004,-26.9092 112.5004,-27.3638 112.5004,-27.8183 112.5004,-28.2728 112.5004,-28.7274 112.5004,-29.1819 112.5004,-29.6365 112.5004,-30.0910 112.5004,-30.5456 112.5004,-31.0001 112.5004,-31.4547 112.5004,-31.9092 112.5004,-32.3638 112.5004,-32.8183 112.5004,-33.2728 112.5004,-33.7274 112.5004,-34.1819 112.5004,-34.6365 112.5004,-35.0910 112.5004,-35.5456 112.5004,-36.0001 112.5004,-36.4547 112.5004,-36.9092 112.5004,-37.3638 112.5004,-37.8183 112.5004,-38.2728 112.5004,-38.7274 112.5004,-39.1819 112.5004,-39.6365 112.5004,-39.7365 112.5004,-40.1910 112.5004,-40.6456 112.5004,-41.1001 112.5004,-41.5547 112.5004,-42.0092 112.5004,-42.4637 112.5004,-42.9183 112.5004,-43.3728 112.5004,-43.8274 112.5004,-44.2819 112.5004,-44.7365 112.5004,-45.1910 112.5004,-45.6456 112.5004,-46.1001 112.5004,-46.5547 112.5004,-47.0092 112.5004,-47.4637 112.5004,-47.9183 112.5004,-48.3728 112.5004,-48.8274 112.5004,-49.2819 112.5004,-49.7365 112.5004,-50.1910 112.5004,-50.6456 112.5004,-51.1001 112.5004,-51.5547 112.5004,-52.0092 112.5004,-52.4637 112.5004,-52.9183 112.5004,-53.3728 112.5004,-53.8274 112.5004,-54.2819 112.5004,-54.7365 112.5004,-55.2065 112.5004,-55.6765 112.5004,-56.1465 112.5004,-56.6165 112.5004,-57.0865 112.5004,-57.5565 112.5004,-58.0265 112.5004,-58.4965 112.5004,-58.9665 112.5004,-59.4365 112.5004,-59.9365 112.5004,-60.4365 112.5004,-60.9365 112.5004,-61.4365 112.5004,-61.9365 112.5004,-62.4365 112.5004,-62.9365 112.5004,-63.4365 112.5004,-63.9365 112.5004,-64.4365 112.5004,-64.8528 112.5004,-65.2691 112.5004,-65.6855 112.3648,-65.7027 112.0966,-65.7367 111.8284,-65.7707 111.6045,-65.7718 111.5028,-65.7783 111.1089,-65.8478 110.7151,-65.9173 110.5997,-65.9548 110.4782,-66.0134 110.1962,-66.1852 110.1144,-66.2517 110.0871,-66.3024 110.0962,-66.3506 110.1490,-66.4119 110.2258,-66.4578 110.1879,-66.5188 110.1144,-66.5380 110.0038,-66.5669 109.8603,-66.6227 109.6886,-66.6561 109.4540,-66.7284 109.3682,-66.7349 109.1331,-66.7198 108.9924,-66.7275 108.8680,-66.6862 108.6622,-66.6383 108.6265,-66.6171 108.5824,-66.5591 108.5452,-66.5316 108.4661,-66.4988 108.3687,-66.4755 108.2794,-66.4634 108.1299,-66.4571 108.0259,-66.4195 107.9431,-66.4008 107.6198,-66.3727 107.2531,-66.3072 107.1278,-66.2973 106.8844,-66.2914 106.6893,-66.2547 106.4708,-66.2299 106.1163,-66.1764 105.7618,-66.1229 105.5322,-66.0607 105.3218,-66.0416 105.0005,-65.9863 104.7856,-65.9714 104.7300,-65.9522 104.6570,-65.9272 104.5724,-65.9072 104.3194,-65.8673 104.0665,-65.8273 103.8815,-65.8126 103.6333,-65.8144 103.4809,-65.7791 103.4091,-65.7683 103.4065,-65.6326 103.4561,-65.6291 103.5598,-65.6110 103.6488,-65.5844 103.7332,-65.5438 103.7895,-65.4963 103.8122,-65.4534 103.8069,-65.4005 103.7729,-65.3571 103.7095,-65.3162 103.5960,-65.2708 103.5694,-65.1881 103.5012,-65.1210 103.4255,-65.0788 103.3209,-65.0384 103.1542,-64.9939 102.9901,-64.9699 102.8021,-64.9669 102.6318,-64.9859 102.5463,-65.0075 102.4824,-65.0333 102.4311,-65.0659 102.3927,-65.1061 102.3670,-65.1545 102.3609,-65.2046 102.3761,-65.2540 102.4087,-65.2953 102.4607,-65.3326 102.5297,-65.3640 102.6183,-65.3911 102.7202,-65.4115 102.7911,-65.5255 102.8928,-65.5790 102.9524,-65.5966 102.9027,-65.7080 102.7278,-65.6951 102.5955,-65.7012 102.4287,-65.7220 102.3065,-65.7469 102.1710,-65.7881 101.7856,-65.7971 101.6241,-65.7831 101.4286,-65.7781 101.4053,-65.7508 101.4096,-65.7407 101.5785,-65.6597 101.6235,-65.6221 101.6546,-65.5757 101.6581,-65.4848 101.6353,-65.4441 101.5931,-65.4027 101.4253,-65.3012 101.3019,-65.2627 100.9996,-65.2149 100.8625,-65.2092 100.7233,-65.2130 100.4430,-65.2438 100.2624,-65.2883 100.0816,-65.3702 99.9131,-65.4875 99.8713,-65.5556 99.8672,-65.6261 99.9118,-65.7126 100.0119,-65.7881 99.9893,-65.8476 99.9996,-65.9060 99.9636,-65.9429 99.7549,-66.0702 99.6867,-66.1292 99.6572,-66.1786 99.6531,-66.2283 99.7209,-66.3497 99.6609,-66.3678 99.6020,-66.3770 99.4455,-66.3867 99.4044,-66.3836 99.3664,-66.3699 99.2629,-66.3020 99.1255,-66.2547 98.9152,-66.2118 98.7060,-66.1930 98.5924,-66.1958 98.4916,-66.2076 98.2607,-66.2718 98.0435,-66.2989 97.9020,-66.3425 97.8442,-66.3420 97.7891,-66.3236 97.7133,-66.2724 97.6464,-66.2399 97.5138,-66.2013 97.5138,-65.7675 97.5138,-65.3338 97.5138,-64.9000 97.5138,-64.5118 97.5138,-64.1236 97.5138,-63.7353 97.5138,-63.2808 97.5138,-62.8262 97.5138,-62.3717 97.5138,-61.9172 97.5138,-61.4626 97.5138,-61.0081 97.5138,-60.5535 97.5138,-60.0990 97.5138,-59.6444 97.5138,-59.1899 97.5138,-58.7353 97.5138,-58.2808 97.5138,-57.8262 97.5138,-57.3717 97.5138,-56.9172 97.5138,-56.4626 97.5138,-56.0081 97.5138,-55.5535 97.5138,-55.0990 97.5138,-54.6444 97.5138,-54.1899 97.5138,-53.7353 97.5138,-53.2808 97.5138,-52.8262 97.5138,-52.3717 97.5138,-51.9172 97.5138,-51.4626 97.5138,-51.0081 97.5138,-50.5535 97.5138,-50.0990 97.5138,-49.6444 97.5138,-49.1899 97.5138,-48.7353 97.5138,-48.2909 97.5138,-47.8464 97.5138,-47.4020 97.5138,-46.9576 97.5138,-46.5131 97.5138,-46.0687 97.5138,-45.6242 97.5138,-45.1798 97.5138,-44.7353 97.5138,-44.2808 97.5138,-43.8262 97.5138,-43.3717 97.5138,-42.9172 97.5138,-42.4626 97.5138,-42.0081 97.5138,-41.5535 97.5138,-41.0990 97.5138,-40.6444 97.5138,-40.1899 97.5138,-39.7353 97.5138,-39.2808 97.5138,-38.8262 97.5138,-38.3717 97.5138,-37.9172 97.5138,-37.4626 97.5138,-37.0081 97.5138,-36.5535 97.5138,-36.0990 97.5138,-35.6444 97.5138,-35.1899 97.5138,-34.7353 97.5138,-34.2808 97.5138,-33.8262 97.5138,-33.3717 97.5138,-32.9172 97.5138,-32.4626 97.5138,-32.0081 97.5138,-31.5535 97.5138,-31.0990 97.5138,-30.6444 97.5138,-30.1899 97.5138,-29.7353 97.5138,-29.2808 97.5138,-28.8262 97.5138,-28.3717 97.5138,-27.9172 97.5138,-27.4626 97.5138,-27.0081 97.5138,-26.5535 97.5138,-26.0990 97.5138,-25.6444 97.5138,-25.1899 97.5138,-24.7353 97.5138,-24.2808 97.5138,-23.8262 97.5138,-23.3717 97.5138,-22.9172 97.5138,-22.4626 97.5138,-22.0081 97.5138,-21.5535 97.5138,-21.0990 97.5138,-20.6444 97.5138,-20.1899 97.5138,-19.7353 97.5138,-19.2808 97.5138,-18.8262 97.5138,-18.3717 97.5138,-17.9172 97.5138,-17.4626 97.5138,-17.0081 97.5138,-16.5535 97.5138,-16.0990 97.5138,-15.6444 97.5138,-15.1899 97.5138,-14.7353 97.5138,-14.3353 97.5138,-13.9353 97.5138,-13.5644 97.5138,-13.1934 97.5138,-12.8224 97.5138,-12.4317 97.5138,-12.0410 97.5138,-11.6502 97.5138,-11.2595 97.5138,-10.8050 97.5138,-10.3504 97.5138,-9.8959 97.5138,-9.4413 97.5138,-8.9868 97.5138,-8.5322 97.5138,-8.0777 97.5138,-7.6231 97.5138,-7.1686 97.5138,-6.7140 97.5138,-6.2595 97.5138,-5.7738 97.5138,-5.2882 97.5138,-4.8025 97.5138,-4.3169 97.5138,-3.8312 97.5138,-3.3455 97.5138,-2.8599 97.5138,-2.3742 97.5138,-1.8886 97.5138,-1.4029 97.5138,-1.2595 97.5164,-0.9146 97.5189,-0.5698 97.5189,-0.2231 97.5189,0.1235 97.5189,0.4702 97.4865,0.5240 97.4551,0.6342 97.4436,0.6242 97.3663,0.5982 97.2719,0.6080 97.1892,0.6548 97.1358,0.7168 97.1099,0.7946 97.1153,0.8879 97.1516,0.9614 97.1643,0.9725 97.1296,1.0519 97.0273,1.1809 96.9016,1.2728 96.8722,1.3269 96.8578,1.3938 96.8786,1.5041 96.6233,1.8638 96.5570,1.8732 96.4895,1.9101 96.4444,1.9564 96.3751,2.1243 96.2092,2.1917 95.9878,2.3756 95.8675,2.3973 95.6856,2.4748 95.5906,2.5655 95.5088,2.6967 95.4838,2.8205 95.5264,2.9470 95.6756,3.1152 95.7406,3.1446 95.8138,3.1488 95.9947,3.0907 96.1306,2.9742 96.2447,2.9077 96.3806,2.7700 96.5672,2.6614 96.6614,2.5021 96.6826,2.3899 96.7057,2.3853 96.7845,2.3401 96.8384,2.2782 96.8475,2.2509 96.8812,2.2664 96.9755,2.3761 97.0362,2.4156 97.1780,2.4426 97.3847,2.4376 97.4335,2.4627 97.4561,2.5152 97.4458,2.6214 97.4149,2.6987 97.2768,2.7792 97.2035,2.8544 97.0310,3.1143 96.8585,3.3743 96.7872,3.4607 96.7024,3.5178 96.4649,3.5601 96.3323,3.6301 96.1052,3.8884 95.8701,4.0712 95.6061,4.3442 95.4091,4.5046 95.3104,4.6303 95.1038,5.0102 95.0645,5.1240 95.0031,5.2178 94.9890,5.3019 95.0101,5.4185 94.8694,5.5713 94.8237,5.6594 94.8057,5.7364 94.8173,5.8192 94.8695,5.8976 94.9982,5.9697 95.1059,6.0899 95.2103,6.1231 95.3378,6.1091 95.4864,6.0446 95.6403,5.8494 95.9376,5.7153 96.0261,5.6428 96.1360,5.5176 96.1826,5.4886 96.5702,5.4227 96.6335,5.4323 96.7716,5.4835 96.8807,5.4948 97.0587,5.4789 97.2479,5.4266 97.4891,5.4627 97.5192,5.4550 97.5192,5.8284 97.5193,6.2017 97.5193,6.5751 97.5193,7.0438 97.5193,7.5125 97.5194,7.9812 97.5194,8.4499 97.4966,8.4640 97.4409,8.5449 97.4152,8.6399 97.4259,8.7223 97.4676,8.7944 97.5194,8.8328 97.5194,9.3082 97.5194,9.6239 97.6263,9.6234 97.7567,9.5941 97.8527,9.5816 97.9378,9.5374 97.9999,9.5128 98.0620,9.4882 98.1266,9.4948 98.1655,9.4987 98.2035,9.5331 98.2327,9.6178 98.2547,9.6813 98.2693,9.7198 98.3203,9.8408 98.3896,9.9335 98.4351,9.9647 98.4885,9.9517 98.5124,9.9703 98.5710,9.9770 98.5795,9.9897 98.6309,10.0753 98.6810,10.1768 98.7074,10.2282 98.7166,10.2703 98.7311,10.3191 98.7474,10.3505 98.7474,10.3501 98.7479,10.3503 98.7664,10.4112 98.7765,10.4621 98.7904,10.5003 98.7913,10.5204 98.7773,10.5832 98.7707,10.5940 98.7515,10.6104 98.7479,10.6231 98.7568,10.6661 98.7667,10.6888 98.8110,10.7466 98.8301,10.7636 98.8396,10.7664 98.8609,10.7677 98.8682,10.7699 98.8753,10.7786 98.8836,10.7992 98.8921,10.8085 98.9054,10.8144 98.9147,10.8123 98.9233,10.8081 98.9340,10.8077 98.9697,10.8231 98.9745,10.8242 98.9819,10.8324 98.9861,10.8403 98.9899,10.8604 98.9898,10.8752 98.9818,10.8955 98.9796,10.9077 98.9802,10.9180 98.9826,10.9289 98.9867,10.9393 98.9923,10.9480 99.0015,10.9576 99.0056,10.9588 99.0106,10.9562 99.0233,10.9544 99.0347,10.9510 99.0453,10.9455 99.0551,10.9453 99.0636,10.9574 99.0725,10.9876 99.0769,10.9965 99.0932,11.0130 99.1331,11.0334 99.1517,11.0477 99.1582,11.0573 99.1676,11.0780 99.1751,11.0874 99.1849,11.0930 99.2062,11.1000 99.2130,11.1083 99.2433,11.1977 99.2562,11.2200 99.2884,11.2583 99.3005,11.2806 99.3157,11.3208 99.3264,11.3362 99.3643,11.3767 99.3705,11.3933 99.3721,11.4109 99.3776,11.4355 99.3870,11.4516 99.4159,11.4802 99.4282,11.4969 99.4374,11.5167 99.4411,11.5334 99.4392,11.5739 99.4406,11.5973 99.4498,11.6138 99.4661,11.6239 99.4892,11.6284 99.5307,11.6309 99.5426,11.6405 99.6069,11.7257 99.6153,11.7494 99.6300,11.8158 99.6280,11.8254 99.6110,11.8302 99.5918,11.8423 99.5738,11.8577 99.5614,11.8729 99.5541,11.8950 99.5574,11.9156 99.5729,11.9559 99.5740,11.9763 99.5670,11.9933 99.5533,12.0055 99.5343,12.0116 99.5184,12.0259 99.5217,12.0537 99.5376,12.1009 99.5393,12.1123 99.5435,12.1225 99.5458,12.1319 99.5417,12.1407 99.5329,12.1445 99.5226,12.1442 99.4663,12.1260 99.4523,12.1294 99.4488,12.1472 99.4541,12.1569 99.4638,12.1646 99.4720,12.1736 99.4738,12.1873 99.4701,12.1974 99.4594,12.2171 99.4556,12.2276 99.4547,12.2382 99.4571,12.2564 99.4544,12.2673 99.4476,12.2782 99.4463,12.2798 99.4322,12.2964 99.4267,12.3087 99.4234,12.3278 99.4206,12.3834 99.4140,12.4052 99.3913,12.4453 99.3870,12.4659 99.3895,12.4760 99.4003,12.4975 99.4042,12.5081 99.4071,12.5302 99.4073,12.5515 99.4033,12.5759 99.3938,12.5898 99.3445,12.6168 99.3334,12.6254 99.3236,12.6354 99.3172,12.6459 99.3097,12.6535 99.2863,12.6600 99.2769,12.6656 99.2735,12.6735 99.2712,12.6938 99.2667,12.7028 99.2563,12.7095 99.2335,12.7131 99.2245,12.7175 99.2141,12.7347 99.2132,12.7526 99.2144,12.7717 99.2107,12.7923 99.2031,12.8039 99.1832,12.8226 99.1753,12.8334 99.1719,12.8433 99.1684,12.8741 99.1553,12.9045 99.1532,12.9136 99.1542,12.9266 99.1579,12.9360 99.1631,12.9447 99.1673,12.9560 99.1648,12.9755 99.1511,12.9948 99.1325,13.0110 99.1153,13.0214 99.0932,13.0383 99.0883,13.0584 99.0938,13.0807 99.1025,13.1044 99.1053,13.1296 99.1022,13.1518 99.1021,13.1713 99.1141,13.1881 99.1332,13.1952 99.1728,13.1995 99.1873,13.2122 99.1902,13.2295 99.1860,13.2500 99.1734,13.2874 99.1728,13.3009 99.1769,13.3103 99.1827,13.3187 99.1869,13.3291 99.1869,13.3387 99.1836,13.3580 99.1888,13.4079 99.1879,13.4271 99.1520,13.5820 99.1495,13.6660 99.1528,13.6887 99.1525,13.7149 99.1413,13.7321 99.1088,13.7627 99.1012,13.7788 99.0898,13.8267 99.0895,13.8439 99.0919,13.8559 99.0922,13.8636 99.0900,13.8701 99.0848,13.8785 99.0803,13.8816 99.0663,13.8853 99.0611,13.8880 99.0571,13.8941 99.0521,13.9090 99.0476,13.9150 99.0162,13.9379 99.0071,13.9496 98.9970,13.9716 98.9848,13.9906 98.9530,14.0280 98.9476,14.0464 98.9453,14.0691 98.9353,14.0854 98.9177,14.0964 98.8937,14.1032 98.8723,14.1125 98.7537,14.2001 98.7311,14.2235 98.7070,14.2700 98.6974,14.2714 98.6856,14.2674 98.6704,14.2679 98.6636,14.2729 98.6508,14.2894 98.6442,14.2957 98.6369,14.2990 98.6215,14.3024 98.6145,14.3051 98.6015,14.3136 98.5932,14.3216 98.5477,14.3777 98.4782,14.5165 98.4651,14.5234 98.4528,14.5281 98.4455,14.5420 98.4400,14.5663 98.4313,14.5878 98.4182,14.6076 98.2975,14.7212 98.2433,14.8051 98.2354,14.8245 98.2388,14.8391 98.2391,14.8440 98.2359,14.8504 98.2251,14.8590 98.2221,14.8643 98.2204,14.8853 98.2216,14.9213 98.2149,14.9432 98.1951,14.9776 98.1911,14.9881 98.1913,15.0012 98.1957,15.0107 98.2012,15.0193 98.2044,15.0296 98.1990,15.0514 98.1681,15.0827 98.1604,15.1064 98.1650,15.1258 98.1858,15.1608 98.1907,15.1792 98.1779,15.2088 98.1772,15.2206 98.2154,15.2189 98.2329,15.2268 98.2477,15.2409 98.2830,15.2900 98.2951,15.2926 98.3179,15.2890 98.3360,15.2822 98.3703,15.2619 98.3852,15.2563 98.3923,15.2582 98.3947,15.2649 98.3947,15.2801 98.3921,15.2858 98.3861,15.2904 98.3800,15.2938 98.3775,15.2965 98.3788,15.3016 98.3812,15.3066 98.3837,15.3103 98.3848,15.3114 98.3936,15.3163 98.3991,15.3218 98.4003,15.3307 98.3962,15.3476 98.3969,15.3557 98.4034,15.3601 98.4394,15.3676 98.4554,15.3736 98.4745,15.3835 98.4950,15.3748 98.5155,15.3635 98.5302,15.3477 98.5336,15.3260 98.5599,15.3553 98.5690,15.4021 98.5671,15.4525 98.5437,15.6015 98.5457,15.6586 98.5437,15.6788 98.5403,15.7120 98.5431,15.7354 98.5744,15.8360 98.5766,15.8542 98.5693,15.8961 98.5686,15.9202 98.5807,15.9591 98.5838,15.9770 98.5770,15.9969 98.5501,16.0342 98.5470,16.0475 98.5559,16.0555 98.5677,16.0540 98.5800,16.0488 98.5901,16.0458 98.6031,16.0458 98.6116,16.0469 98.6191,16.0510 98.6302,16.0600 98.6441,16.0796 98.6503,16.0996 98.6587,16.1163 98.6796,16.1261 98.6972,16.1269 98.7584,16.1192 98.7703,16.1138 98.7760,16.1069 98.7830,16.1024 98.7984,16.1044 98.8072,16.1105 98.8308,16.1356 98.8354,16.1445 98.8347,16.1677 98.8367,16.1890 98.8431,16.2087 98.8556,16.2270 98.8837,16.2588 98.8887,16.2746 98.8934,16.3199 98.9033,16.3634 98.9025,16.3816 98.8853,16.4062 98.8621,16.4207 98.8434,16.4384 98.8396,16.4724 98.8187,16.4556 98.8104,16.4396 98.8021,16.3983 98.7886,16.3746 98.7283,16.3283 98.6984,16.2850 98.6824,16.2735 98.6633,16.2867 98.6570,16.3016 98.6424,16.3736 98.6295,16.4027 98.6282,16.4136 98.6382,16.4345 98.6398,16.4450 98.6316,16.4631 98.5704,16.5416 98.5642,16.5520 98.5640,16.5627 98.5673,16.5733 98.5678,16.5825 98.5658,16.5915 98.5616,16.6017 98.5471,16.6201 98.5123,16.6433 98.4984,16.6624 98.4914,16.6897 98.4863,16.7010 98.4567,16.7232 98.4547,16.7410 98.4625,16.7601 98.4745,16.7767 98.4892,16.7807 98.5054,16.7907 98.5175,16.8030 98.5205,16.8141 98.5132,16.8222 98.5034,16.8260 98.4944,16.8312 98.4900,16.8432 98.4925,16.8574 98.5006,16.8622 98.5120,16.8593 98.5246,16.8504 98.5160,16.8790 98.5095,16.8927 98.5001,16.8989 98.4845,16.9059 98.4807,16.9206 98.4804,16.9373 98.4745,16.9504 98.4637,16.9636 98.4467,16.9963 98.4362,17.0116 98.4179,17.0290 98.3999,17.0401 98.3798,17.0458 98.3307,17.0469 98.3133,17.0520 98.2997,17.0647 98.2862,17.0874 98.2902,17.0908 98.2953,17.0998 98.2944,17.1076 98.2683,17.1077 98.2662,17.1164 98.2708,17.1278 98.2790,17.1366 98.2563,17.1516 98.2210,17.2008 98.2018,17.2157 98.1862,17.2242 98.1006,17.3026 98.0926,17.3122 98.0905,17.3252 98.0941,17.3463 98.0947,17.3586 98.0887,17.3728 98.0768,17.3800 98.0623,17.3848 98.0487,17.3915 98.0355,17.4050 98.0286,17.4188 98.0182,17.4474 97.9961,17.4808 97.9917,17.4957 97.9828,17.5054 97.9722,17.5117 97.9486,17.5224 97.9338,17.5318 97.7689,17.6792 97.7593,17.6915 97.7531,17.7054 97.7518,17.7181 97.7516,17.7296 97.7496,17.7398 97.7410,17.7502 97.7169,17.7698 97.7112,17.7813 97.7065,17.7947 97.6965,17.8066 97.6840,17.8165 97.6761,17.8303 97.6991,17.8333 97.6855,17.8807 97.6918,17.8956 97.7201,17.9432 97.7476,17.9609 97.7509,17.9637 97.7541,17.9690 97.7518,17.9808 97.7472,17.9925 97.7440,17.9978 97.7398,18.0029 97.7252,18.0368 97.7221,18.0489 97.7201,18.0531 97.7064,18.0593 97.7022,18.0618 97.6977,18.0607 97.6942,18.0615 97.6928,18.0701 97.6937,18.0751 97.6980,18.0847 97.6991,18.0907 97.6968,18.1016 97.6875,18.1198 97.6853,18.1316 97.6853,18.1402 97.6843,18.1461 97.6804,18.1526 97.6290,18.2209 97.6179,18.2417 97.6207,18.2511 97.6357,18.2576 97.6433,18.2730 97.6438,18.2913 97.6376,18.3063 97.6247,18.3134 97.5738,18.3331 97.5624,18.3305 97.5606,18.3283 97.5420,18.2802 97.5376,18.2726 97.5283,18.2653 97.5081,18.2766 97.4865,18.2921 97.4665,18.3114 97.4526,18.3336 97.4468,18.3583 97.4465,18.3812 97.4434,18.4015 97.4431,18.4033 97.4177,18.4411 97.3946,18.4871 97.3905,18.5018 97.3791,18.5208 97.3576,18.5399 97.3514,18.5512 97.3801,18.5478 97.3889,18.5422 97.4094,18.5114 97.4122,18.5030 97.4166,18.4960 97.4275,18.4895 97.4381,18.4881 97.4628,18.4925 97.5095,18.4913 97.5484,18.5091 97.6179,18.5532 97.6374,18.5593 97.6903,18.5579 97.7379,18.5705 97.7428,18.5693 97.7457,18.5711 97.7518,18.5825 97.7597,18.6228 97.7526,18.6634 97.7412,18.7031 97.7363,18.7406 97.7358,18.7627 97.7327,18.7805 97.7204,18.8176 97.7194,18.8259 97.7234,18.8520 97.7191,18.8646 97.7086,18.8752 97.6844,18.8925 97.6619,18.9138 97.6578,18.9257 97.6681,18.9354 97.6891,18.9497 97.7033,18.9644 97.7104,18.9799 97.7170,19.0183 97.7278,19.0371 97.7899,19.0826 97.8041,19.0980 97.8108,19.1122 97.8151,19.1906 97.8126,19.2085 97.8052,19.2274 97.7963,19.2367 97.7697,19.2573 97.7641,19.2664 97.7680,19.2771 97.7773,19.2786 97.7887,19.2777 97.7983,19.2814 97.8062,19.3011 97.7971,19.3184 97.7831,19.3371 97.7767,19.3611 97.7751,19.3711 97.7677,19.3904 97.7671,19.3975 97.8004,19.4408 97.8335,19.4687 97.8421,19.4794 97.8487,19.4940 97.8481,19.4996 97.8443,19.5045 97.8410,19.5172 97.8389,19.5371 97.8398,19.5553 97.8486,19.5676 97.8858,19.5728 97.9481,19.6024 97.9561,19.6094 97.9707,19.6259 97.9795,19.6333 97.9904,19.6366 98.0001,19.6363 98.0083,19.6391 98.0136,19.6517 98.0139,19.6694 98.0056,19.7056 98.0046,19.7239 98.0179,19.7894 98.0245,19.8030 98.0456,19.8076 98.0606,19.7939 98.0729,19.7773 98.0859,19.7732 98.1114,19.7771 98.1322,19.7661 98.1720,19.7316 98.2059,19.7215 98.2133,19.7178 98.2179,19.7080 98.2167,19.6875 98.2192,19.6770 98.2375,19.6647 98.2628,19.6699 98.3073,19.6900 98.3476,19.6906 98.3944,19.6863 98.4396,19.6877 98.4745,19.7053 98.4888,19.7067 98.4976,19.7007 98.5051,19.6915 98.5155,19.6834 98.5326,19.6759 98.5365,19.6771 98.5380,19.6839 98.5483,19.6926 98.5683,19.7000 98.5907,19.7041 98.5984,19.7091 98.6154,19.7298 98.6238,19.7375 98.6413,19.7449 98.7301,19.7573 98.7492,19.7635 98.8078,19.8065 98.8379,19.7934 98.8519,19.7840 98.8645,19.7732 98.8837,19.7455 98.8993,19.7486 98.9351,19.7735 98.9738,19.7881 98.9877,19.7994 99.0009,19.8210 99.0088,19.8459 99.0076,19.8649 99.0027,19.8836 98.9994,19.9077 99.0014,19.9179 99.0062,19.9249 99.0109,19.9302 99.0135,19.9350 99.0128,19.9442 99.0070,19.9625 99.0059,19.9723 99.0168,20.0410 99.0365,20.0752 99.0735,20.1012 99.1175,20.1178 99.1584,20.1236 99.1777,20.1218 99.2190,20.1105 99.2365,20.1027 99.2753,20.0722 99.2957,20.0625 99.3212,20.0663 99.4414,20.1016 99.4745,20.1281 99.4875,20.1413 99.4993,20.1469 99.5103,20.1538 99.5206,20.1710 99.5258,20.1962 99.5189,20.2122 99.4863,20.2455 99.4750,20.3037 99.4664,20.3222 99.4296,20.3587 99.4206,20.3756 99.4400,20.3822 99.4541,20.3771 99.5029,20.3452 99.5797,20.3212 99.5893,20.3208 99.6076,20.3232 99.6180,20.3224 99.6270,20.3188 99.6422,20.3088 99.6519,20.3068 99.6713,20.3101 99.7084,20.3250 99.7291,20.3285 99.7696,20.3284 99.7872,20.3341 99.8040,20.3490 99.8130,20.3653 99.8263,20.4014 99.8377,20.4168 99.8557,20.4281 99.8779,20.4351 99.9325,20.4427 99.9371,20.4450 99.9420,20.4440 99.9524,20.4363 99.9588,20.4275 99.9611,20.4178 99.9647,20.4086 99.9743,20.4008 99.9859,20.3870 99.9967,20.3835 100.0084,20.3836 100.0229,20.3808 100.0361,20.3731 100.0427,20.3648 100.0476,20.3552 100.0555,20.3442 100.0993,20.3178 100.0976,20.3349 100.0971,20.3484 100.0998,20.3622 100.1111,20.3748 100.1209,20.3888 100.1252,20.4064 100.1274,20.4278 100.1367,20.4592 100.1493,20.5481 100.1601,20.5827 100.1729,20.6091 100.1729,20.6221 100.1802,20.6382 100.2023,20.6679 100.2072,20.6808 100.2113,20.6974 100.2216,20.7096 100.2487,20.7320 100.2745,20.7620 100.2902,20.7750 100.3297,20.7860 100.3420,20.7995 100.3511,20.8153 100.3648,20.8282 100.3837,20.8317 100.4708,20.8183 100.5134,20.8070 100.5367,20.8077 100.5690,20.8178 100.5989,20.8335 100.6266,20.8535 100.6521,20.8766 100.6521,20.8828 100.6231,20.8885 100.5342,20.8739 100.5157,20.8865 100.5178,20.9063 100.5271,20.9469 100.5292,20.9684 100.5333,20.9734 100.5520,20.9853 100.5573,20.9920 100.5558,20.9999 100.5435,21.0274 100.5619,21.0351 100.6068,21.0439 100.6255,21.0541 100.6376,21.0697 100.6894,21.1593 100.7211,21.2807 100.7226,21.2927 100.7220,21.3037 100.7254,21.3117 100.7384,21.3148 100.7450,21.3144 100.7477,21.3143 100.7567,21.3124 100.7650,21.3092 100.7726,21.3042 100.7920,21.2974 100.8146,21.3002 100.8513,21.3148 100.8625,21.3233 100.8960,21.3558 100.9099,21.3601 101.0034,21.4060 101.1432,21.5134 101.1571,21.5197 101.1611,21.5347 101.1600,21.5445 101.1590,21.5527 101.1745,21.5517 101.1866,21.5353 101.1878,21.5059 101.1683,21.4245 101.1714,21.4034 101.1791,21.3982 101.2080,21.3835 101.2265,21.3709 101.2272,21.3710 101.2274,21.3709 101.2317,21.3718 101.2331,21.3717 101.2348,21.3637 101.2228,21.3351 101.2074,21.3148 101.2095,21.3087 101.2184,21.2999 101.2204,21.2963 101.2191,21.2825 101.2090,21.2455 101.2204,21.2337 101.2348,21.2063 101.2443,21.1929 101.2597,21.1795 101.2753,21.1741 101.2760,21.1742 101.2762,21.1741 101.2937,21.1761 101.3148,21.1848 101.3632,21.2158 101.3727,21.2191 101.3824,21.2225 101.4960,21.2428 101.5176,21.2426 101.5391,21.2389 101.5729,21.2282 101.5797,21.2276 101.5840,21.2244 101.5882,21.2133 101.5866,21.2042 101.5810,21.1947 101.5772,21.1852 101.5818,21.1757 101.5965,21.1734 101.5968,21.1735 101.5975,21.1734 101.6369,21.1894 101.6551,21.1892 101.6702,21.1771 101.6883,21.1458 101.7043,21.1351 101.7179,21.1345 101.7181,21.1345 101.7189,21.1345 101.7384,21.1376 101.7569,21.1433 101.7677,21.1506 101.7694,21.1604 101.7712,21.1704 101.7645,21.1847 101.7610,21.1960 101.7743,21.2072 101.7960,21.2029 101.7966,21.2030 101.7970,21.2029 101.8062,21.2045 101.8143,21.2096 101.8202,21.2160 101.8224,21.2211 101.8238,21.2241 101.8247,21.2345 101.8212,21.2473 101.8132,21.2581 101.8021,21.2671 101.7895,21.2742 101.7375,21.2923 101.7235,21.3042 101.7161,21.3211 101.7165,21.3382 101.7265,21.3754 101.7306,21.4742 101.7452,21.4956 101.7492,21.5145 101.7357,21.5544 101.7371,21.5709 101.7519,21.5797 101.7736,21.5825 101.7945,21.5882 101.8071,21.6060 101.8048,21.6259 101.7905,21.6340 101.7718,21.6388 101.7569,21.6487 101.7533,21.6591 101.7566,21.6800 101.7558,21.6898 101.7501,21.6981 101.7337,21.7114 101.7295,21.7175 101.7289,21.7327 101.7326,21.7505 101.7525,21.8064 101.7520,21.8161 101.7271,21.8373 101.7222,21.8444 101.7097,21.8696 101.6868,21.8986 101.6840,21.9071 101.6834,21.9148 101.6815,21.9226 101.6746,21.9314 101.6391,21.9409 101.6173,21.9536 101.6078,21.9676 101.6013,22.0075 101.5931,22.0281 101.5659,22.0695 101.5564,22.0903 101.5560,22.1124 101.5628,22.1301 101.5679,22.1493 101.5625,22.1761 101.5500,22.1935 101.5192,22.2282 101.5167,22.2454 101.5327,22.2634 101.5416,22.2715 101.5519,22.2767 101.5637,22.2768 101.5757,22.2731 101.5880,22.2714 101.5882,22.2715 101.5889,22.2714 101.6022,22.2770 101.6071,22.2848 101.6208,22.3264 101.6235,22.3424 101.6247,22.3466 101.6421,22.3633 101.6446,22.3647 101.6467,22.3845 101.6451,22.4040 101.6460,22.4242 101.6555,22.4461 101.6696,22.4623 101.6901,22.4789 101.7141,22.4915 101.7427,22.4960 101.7506,22.4960 101.7551,22.4955 101.7849,22.4722 101.8178,22.4063 101.8426,22.3833 101.8679,22.3788 101.8680,22.3790 101.8689,22.3788 101.8782,22.3919 101.8825,22.4122 101.8926,22.4297 101.9103,22.4359 101.9538,22.4369 101.9752,22.4451 101.9956,22.4474 102.0146,22.4461 102.0759,22.4324 102.0855,22.4291 102.0953,22.4231 102.0999,22.4149 102.1006,22.4058 102.1035,22.3975 102.1044,22.3975 102.1187,22.3975 102.1196,22.3975 102.1298,22.4109 102.1480,22.4211 102.1651,22.4254 102.1866,22.4211 102.2036,22.4125 102.2180,22.4107 102.2181,22.4108 102.2190,22.4107 102.2323,22.4263 102.2376,22.4434 102.2435,22.4772 102.2535,22.4955 102.3778,22.6156 102.3853,22.6289 102.3834,22.6308 102.3795,22.6391 102.3736,22.6458 102.3643,22.6514 102.3572,22.6587 102.3568,22.6699 102.3637,22.6774 102.3738,22.6783 102.3846,22.6777 102.3848,22.6778 102.3856,22.6777 102.3959,22.6805 102.4082,22.6934 102.4162,22.7098 102.4266,22.7452 102.4266,22.7453 102.4437,22.7652 102.4681,22.7685 102.4943,22.7604 102.5158,22.7452 102.5263,22.7260 102.5289,22.7078 102.5358,22.6958 102.5584,22.6949 102.5584,22.6950 102.5593,22.6949 102.5667,22.6995 102.5713,22.7071 102.5772,22.7138 102.5869,22.7159 102.5912,22.7126 102.6061,22.6967 102.6125,22.6916 102.6323,22.6850 102.6722,22.6784 102.6927,22.6705 102.7519,22.6253 102.7712,22.6178 102.8134,22.6087 102.8318,22.5997 102.8452,22.5852 102.8531,22.5684 102.8593,22.5505 102.8937,22.4874 102.9026,22.4772 102.9196,22.4692 102.9565,22.4597 102.9891,22.4376 103.0089,22.4303 103.0290,22.4302 103.0291,22.4302 103.0300,22.4302 103.0460,22.4405 103.0500,22.4568 103.0458,22.4729 103.0451,22.4865 103.0592,22.4955 103.0754,22.4982 103.0922,22.5051 103.1430,22.5378 103.1467,22.5456 103.1456,22.5558 103.1336,22.5698 103.1310,22.5780 103.1427,22.6070 103.1694,22.6265 103.2294,22.6558 103.2458,22.6687 103.2534,22.6786 103.2709,22.7233 103.3106,22.7879 103.3219,22.7903 103.3442,22.7830 103.3571,22.7760 103.3688,22.7671 103.3789,22.7568 103.3875,22.7452 103.4017,22.7378 103.4040,22.7239 103.4023,22.7065 103.4043,22.6888 103.4109,22.6747 103.4475,22.6183 103.4731,22.5916 103.4854,22.5841 103.5036,22.5814 103.5038,22.5815 103.5046,22.5814 103.5152,22.5874 103.5472,22.6314 103.5519,22.6408 103.5509,22.6487 103.5455,22.6910 103.5481,22.7007 103.5693,22.7250 103.5778,22.7408 103.5835,22.7558 103.5910,22.7680 103.6048,22.7760 103.6474,22.7988 103.6585,22.7932 103.7264,22.7163 103.7942,22.6594 103.8053,22.6474 103.8097,22.6387 103.8297,22.6092 103.8363,22.6028 103.8442,22.5993 103.8668,22.5754 103.8727,22.5736 103.8887,22.5717 103.8946,22.5692 103.9028,22.5586 103.9170,22.5333 103.9254,22.5282 103.9407,22.5247 103.9509,22.5165 103.9595,22.5071 103.9602,22.5075 103.9605,22.5071 103.9749,22.5153 103.9863,22.5272 103.9883,22.5402 103.9865,22.5545 103.9865,22.5703 103.9910,22.5853 104.0043,22.6150 104.0084,22.6302 104.0149,22.6910 104.0248,22.7192 104.0457,22.7452 104.0550,22.7538 104.0669,22.7740 104.0743,22.7827 104.0878,22.7916 104.1000,22.7946 104.1291,22.7968 104.2141,22.8250 104.2412,22.8244 104.2331,22.8048 104.2288,22.7834 104.2297,22.7619 104.2368,22.7421 104.2495,22.7283 104.3044,22.7047 104.3252,22.6925 104.3402,22.6864 104.3409,22.6865 104.3411,22.6864 104.3564,22.6886 104.3629,22.6925 104.4500,22.7452 104.4696,22.7649 104.5343,22.8144 104.5522,22.8328 104.5544,22.8359 104.5624,22.8344 104.5627,22.8298 104.5612,22.8244 104.5647,22.8200 104.5705,22.8163 104.5745,22.8123 104.5792,22.8089 104.5884,22.8069 104.5888,22.8070 104.5894,22.8069 104.5952,22.8090 104.6054,22.8202 104.6106,22.8229 104.6290,22.8208 104.6476,22.8154 104.6627,22.8109 104.6635,22.8110 104.6637,22.8109 104.6842,22.8122 104.7017,22.8182 104.7163,22.8271 104.7292,22.8391 104.7638,22.8847 104.7752,22.8962 104.8246,22.9241 104.8289,22.9342 104.8280,22.9543 104.7989,23.0856 104.8124,23.0962 104.8369,23.0998 104.8622,23.1196 104.8665,23.1335 104.8677,23.1495 104.8710,23.1635 104.8817,23.1716 104.8948,23.1703 104.9210,23.1558 104.9351,23.1543 104.9352,23.1544 104.9360,23.1543 104.9462,23.1598 104.9824,23.1904 105.0166,23.2068 105.0476,23.2268 105.0620,23.2325 105.1434,23.2537 105.1469,23.2567 105.1487,23.2609 105.1513,23.2648 105.1561,23.2667 105.1584,23.2658 105.1658,23.2606 105.1690,23.2594 105.1766,23.2578 105.1824,23.2544 105.1896,23.2522 105.1902,23.2523 105.1905,23.2522 105.2018,23.2540 105.2185,23.2654 105.2248,23.2817 105.2286,23.3006 105.2369,23.3198 105.2465,23.3302 105.2810,23.3588 105.2946,23.3663 105.3122,23.3658 105.3201,23.3543 105.3244,23.3367 105.3323,23.3180 105.3440,23.3042 105.3596,23.2916 105.3757,23.2815 105.3895,23.2754 36,5.5,India (Laccadive Is.) 74.0000,10.0000 74.0006,9.5484 74.0012,9.0967 74.0017,8.6451 74.0023,8.1934 74.0029,7.7418 73.6651,7.6962 73.3272,7.6506 73.0233,7.6823 72.7194,7.7140 72.3136,7.7771 71.9079,7.8403 71.5021,7.9034 71.5017,8.3227 71.5013,8.7421 71.5009,9.1614 71.5004,9.5807 71.5000,10.0000 71.5000,10.4167 71.5000,10.8333 71.5000,11.2500 71.5000,11.6667 71.5000,12.0833 71.5000,12.5000 71.9167,12.5000 72.3333,12.5000 72.7500,12.5000 73.1667,12.5000 73.5833,12.5000 74.0000,12.5000 74.0000,12.0833 74.0000,11.6667 74.0000,11.2500 74.0000,10.8333 74.0000,10.4167 74.0000,10.0000 110,9.0,Arctic Ocean 127.5045,90.0000 127.9452,90.0000 128.3868,90.0000 128.8284,90.0000 129.2701,90.0000 129.7117,90.0000 130.1534,90.0000 130.5950,90.0000 131.0367,90.0000 131.4783,90.0000 131.9200,90.0000 132.3616,90.0000 132.8032,90.0000 133.2449,90.0000 133.6865,90.0000 134.1282,90.0000 134.5698,90.0000 135.0115,90.0000 135.4531,90.0000 135.8947,90.0000 136.3364,90.0000 136.7780,90.0000 137.2197,90.0000 137.6613,90.0000 138.1030,90.0000 138.5446,90.0000 138.9863,90.0000 139.4279,90.0000 139.8695,90.0000 140.3112,90.0000 140.7528,90.0000 141.1945,90.0000 141.6361,90.0000 142.0778,90.0000 142.5194,90.0000 142.5194,89.5364 142.5194,89.0727 142.5194,88.6091 142.5194,88.1455 142.5194,87.6818 142.5194,87.2182 142.5194,86.7545 142.5194,86.2909 142.5194,85.8273 142.5194,85.3636 142.5194,84.9000 142.5194,84.4098 142.5194,83.9197 142.5194,83.4295 142.5194,82.9394 142.5194,82.4492 142.5194,81.9591 142.5194,81.4689 142.5194,80.9788 142.5194,80.4886 142.5194,79.9985 142.0197,79.9985 141.5200,79.9985 141.0202,79.9985 140.5205,79.9985 140.0208,79.9985 139.5210,79.9985 139.0213,79.9985 138.5216,79.9985 138.0219,79.9985 137.5221,79.9985 137.0224,79.9985 136.5227,79.9985 136.0230,79.9985 135.5232,79.9985 135.0235,79.9985 134.5238,79.9985 134.0240,79.9985 133.5243,79.9985 133.0246,79.9985 132.5249,79.9985 132.0251,79.9985 131.5254,79.9985 131.0257,79.9985 130.5260,79.9985 130.0262,79.9985 129.5265,79.9985 129.0268,79.9985 128.5270,79.9985 128.0273,79.9985 127.5276,79.9985 127.5330,80.0000 127.5320,80.3868 127.5310,80.7737 127.5301,81.1605 127.5317,81.1609 127.5302,81.6388 127.5287,82.1168 127.5272,82.5947 127.5256,83.0726 127.5241,83.5505 127.5230,84.0004 127.5219,84.4502 127.5208,84.9000 127.5193,85.3637 127.5178,85.8273 127.5163,86.2909 127.5148,86.7546 127.5133,87.2182 127.5119,87.6818 127.5104,88.1455 127.5089,88.6091 127.5074,89.0727 127.5059,89.5364 127.5045,90.0000 20,12.75,Pacific/Chatham -175.0000,-45.0004 -175.5000,-45.0003 -176.0000,-45.0002 -176.5000,-45.0001 -177.0000,-45.0001 -177.5000,-45.0000 -177.5000,-44.5000 -177.5000,-44.0000 -177.5000,-43.5000 -177.5000,-43.0000 -177.0000,-43.0001 -176.5000,-43.0001 -176.0000,-43.0002 -175.5000,-43.0003 -175.0000,-43.0003 -175.0000,-43.4003 -175.0000,-43.8003 -175.0000,-44.2003 -175.0000,-44.6003 -175.0000,-45.0004 4146,2.0,Africa/Johannesburg 25.5437,5.3753 25.5618,5.3730 25.5751,5.3749 25.5813,5.3749 25.5890,5.3623 25.5923,5.3492 25.6005,5.3405 25.6229,5.3408 25.6198,5.3372 25.6172,5.3336 25.6142,5.3299 25.6092,5.3265 25.6092,5.3203 25.6234,5.3099 25.6311,5.3118 25.6379,5.3180 25.6501,5.3203 25.6558,5.3178 25.6631,5.3092 25.6676,5.3072 25.6689,5.3061 25.6911,5.2998 25.7051,5.2896 25.7328,5.2589 25.7437,5.2506 25.7580,5.2444 25.7717,5.2455 25.7811,5.2589 25.7693,5.2652 25.7784,5.2691 25.7923,5.2628 25.7947,5.2384 25.7994,5.2401 25.8102,5.2427 25.8146,5.2446 25.8114,5.2309 25.8142,5.2216 25.8190,5.2146 25.8261,5.1947 25.8362,5.2000 25.8460,5.2117 25.8494,5.2179 25.8724,5.2171 25.8836,5.2035 25.8930,5.1852 25.9109,5.1701 25.9125,5.1904 25.9256,5.2018 25.9432,5.2041 25.9586,5.1974 25.9584,5.2148 25.9628,5.2245 25.9719,5.2277 25.9860,5.2253 25.9966,5.2192 26.0139,5.1992 26.0269,5.1900 26.0374,5.1980 26.0510,5.2002 26.0627,5.2001 26.0678,5.2008 26.0705,5.2122 26.0771,5.2163 26.0860,5.2152 26.0952,5.2111 26.0917,5.2191 26.0884,5.2446 26.0934,5.2414 26.0984,5.2396 26.1045,5.2386 26.1125,5.2384 26.1196,5.2415 26.1251,5.2486 26.1300,5.2589 26.1442,5.2518 26.1508,5.2400 26.1573,5.2325 26.1709,5.2384 26.1753,5.2337 26.1817,5.2296 26.1845,5.2253 26.1952,5.2348 26.1983,5.2384 26.2072,5.2077 26.2136,5.1991 26.2262,5.2043 26.2257,5.1990 26.2262,5.1831 26.2307,5.1852 26.2421,5.1881 26.2466,5.1900 26.2540,5.1723 26.2725,5.1591 26.2918,5.1510 26.3173,5.1464 26.3364,5.1486 26.3533,5.1478 26.3627,5.1360 26.3694,5.1406 26.3906,5.1490 26.4001,5.1336 26.4143,5.1227 26.4294,5.1138 26.4419,5.1043 26.4607,5.0660 26.4627,5.0596 26.4752,5.0573 26.5025,5.0475 26.5198,5.0460 26.5283,5.0481 26.5415,5.0531 26.5542,5.0598 26.5614,5.0671 26.5682,5.0596 26.5799,5.0743 26.5984,5.0806 26.6155,5.0782 26.6235,5.0671 26.6297,5.0671 26.6357,5.0776 26.6440,5.0783 26.6576,5.0733 26.6676,5.0783 26.6812,5.0893 26.6917,5.0944 26.7394,5.0944 26.7537,5.0923 26.7606,5.0881 26.8019,5.0445 26.8084,5.0391 26.8157,5.0402 26.8261,5.0508 26.8327,5.0534 26.8395,5.0512 26.8450,5.0463 26.8484,5.0414 26.8493,5.0391 26.8671,5.0375 26.8727,5.0418 26.8841,5.0534 26.8896,5.0621 26.8992,5.0860 26.9040,5.0944 26.9337,5.1266 26.9616,5.1512 26.9917,5.1713 27.0275,5.1900 27.0737,5.2033 27.1164,5.2003 27.1575,5.1854 27.2397,5.1449 27.2628,5.1384 27.2844,5.1360 27.3019,5.1320 27.3157,5.1224 27.3286,5.1108 27.3428,5.1006 27.3514,5.0973 27.3612,5.0955 27.3803,5.0944 27.3914,5.0922 27.4053,5.0828 27.4148,5.0807 27.4413,5.0707 27.4431,5.0578 27.4363,5.0132 27.4363,5.0132 27.4418,5.0080 27.4479,5.0034 27.4545,4.9998 27.4616,4.9969 27.4928,4.9730 27.5013,4.9632 27.5050,4.9539 27.5092,4.9324 27.5146,4.9224 27.5326,4.9076 27.5447,4.9034 27.5527,4.9006 27.6410,4.8909 27.6588,4.8797 27.6719,4.8559 27.6797,4.8145 27.6859,4.7979 27.6991,4.7874 27.7065,4.7874 27.7258,4.7928 27.7348,4.7932 27.7442,4.7878 27.7526,4.7777 27.7592,4.7663 27.7631,4.7571 27.7669,4.7354 27.7588,4.6771 27.7608,4.6360 27.7652,4.6121 27.7724,4.5958 27.7769,4.5957 27.7916,4.5926 27.8014,4.5905 27.8092,4.5880 27.8195,4.5796 27.8377,4.5600 27.8491,4.5533 27.8569,4.5525 27.8855,4.5567 27.8910,4.5558 27.9079,4.5487 27.9140,4.5493 27.9164,4.5536 27.9170,4.5584 27.9179,4.5608 27.9161,4.5622 27.9203,4.5653 27.9292,4.5700 27.9343,4.5682 27.9445,4.5573 27.9512,4.5560 27.9625,4.5574 28.0140,4.5500 28.0171,4.5390 28.0121,4.5218 28.0089,4.4991 28.0096,4.4884 28.0112,4.4801 28.0142,4.4722 28.0190,4.4628 28.0497,4.4191 28.0598,4.4201 28.0763,4.4377 28.0856,4.4433 28.0936,4.4427 28.1017,4.4422 28.1083,4.4340 28.1124,4.4146 28.1402,4.3793 28.1587,4.3608 28.1776,4.3472 28.2170,4.3420 28.2610,4.3504 28.3032,4.3522 28.3369,4.3275 28.3458,4.3064 28.3491,4.2923 28.3574,4.2829 28.3815,4.2753 28.4041,4.2778 28.4254,4.2908 28.4439,4.3085 28.4824,4.3590 28.4968,4.3690 28.5193,4.3744 28.5288,4.3738 28.5385,4.3718 28.5482,4.3708 28.5573,4.3735 28.5643,4.3826 28.5667,4.3941 28.5705,4.4051 28.5824,4.4126 28.6237,4.4223 28.6386,4.4321 28.6537,4.4527 28.6952,4.5326 28.7041,4.5340 28.7245,4.5340 28.7382,4.5409 28.7469,4.5493 28.7554,4.5540 28.7623,4.5519 28.7623,4.5519 28.7692,4.5498 28.7836,4.5304 28.7851,4.5080 28.7900,4.4886 28.8153,4.4783 28.8205,4.4783 28.8257,4.4783 28.8562,4.4825 28.9036,4.4786 28.9256,4.4808 28.9862,4.4959 28.9901,4.4917 28.9941,4.4875 29.0423,4.4554 29.0532,4.4508 29.0560,4.4365 29.0589,4.4377 29.0986,4.4205 29.1098,4.4124 29.1735,4.3480 29.1961,4.3371 29.2213,4.3407 29.2287,4.3567 29.2316,4.3755 29.2428,4.3874 29.2674,4.3879 29.2874,4.3836 29.3039,4.3871 29.3187,4.4111 29.3289,4.4349 29.3389,4.4495 29.3902,4.4938 29.4026,4.5121 29.4109,4.5323 29.4173,4.5555 29.4239,4.5661 29.4427,4.5834 29.4446,4.5945 29.4437,4.6047 29.4468,4.6221 29.4492,4.6571 29.4576,4.6695 29.4726,4.6722 29.4941,4.6683 29.4981,4.6657 29.5085,4.6554 29.5133,4.6521 29.5288,4.6599 29.5350,4.6607 29.5426,4.6585 29.5464,4.6574 29.5767,4.6444 29.6068,4.6439 29.6185,4.6416 29.6603,4.6222 29.6719,4.6140 29.7008,4.5883 29.7153,4.5797 29.7229,4.5782 29.7451,4.5839 29.7518,4.5813 29.7745,4.5675 29.7846,4.5633 29.7967,4.5560 29.7933,4.5454 29.7837,4.5338 29.7777,4.5239 29.7785,4.5151 29.7854,4.4986 29.7870,4.4897 29.7857,4.4794 29.7768,4.4493 29.7762,4.4056 29.7878,4.3688 29.8149,4.3468 29.8607,4.3473 29.8827,4.3440 29.9085,4.3292 29.9303,4.3087 29.9401,4.2883 29.9369,4.2783 29.9293,4.2684 29.9232,4.2578 29.9241,4.2456 29.9322,4.2361 29.9426,4.2338 29.9542,4.2338 29.9660,4.2318 29.9894,4.2178 30.0048,4.1993 30.0279,4.1545 30.0429,4.1331 30.0578,4.1237 30.0998,4.1151 30.1227,4.1025 30.1330,4.0828 30.1385,4.0597 30.1475,4.0367 30.1716,4.0082 30.1781,3.9971 30.1804,3.9862 30.1805,3.9756 30.1821,3.9655 30.1894,3.9561 30.2059,3.9504 30.2709,3.9494 30.3379,3.9279 30.3784,3.9038 30.4189,3.8797 30.4568,3.8676 30.4657,3.8661 30.4859,3.8656 30.4955,3.8671 30.5055,3.8698 30.5155,3.8709 30.5252,3.8676 30.5321,3.8545 30.5389,3.8415 30.5629,3.6949 30.5622,3.6753 30.5549,3.6364 30.5493,3.6241 30.5434,3.6179 30.5430,3.6129 30.5535,3.6045 30.5622,3.6014 30.5726,3.6010 30.5924,3.6035 30.6049,3.6067 30.6365,3.6241 30.6538,3.6306 30.6654,3.6321 30.6934,3.6319 30.7146,3.6438 30.7313,3.6635 30.7469,3.6749 30.7651,3.6617 30.7671,3.6568 30.7692,3.6518 30.7723,3.6176 30.7791,3.6026 30.7921,3.5927 30.8232,3.5804 30.8377,3.5627 30.8277,3.5112 30.8277,3.5111 30.8395,3.4902 30.8612,3.4982 30.8802,3.5144 30.8964,3.5200 30.9093,3.4961 30.9096,3.4872 30.9029,3.4589 30.9044,3.4475 30.9145,3.4265 30.9163,3.4148 30.9100,3.3934 30.8973,3.3750 30.8685,3.3433 30.8487,3.3093 30.8469,3.3044 30.8456,3.2939 30.8424,3.2887 30.8378,3.2864 30.8257,3.2837 30.8221,3.2814 30.8042,3.2460 30.7479,3.0767 30.7438,3.0555 30.7451,3.0363 30.7571,3.0215 30.8036,2.9891 30.8209,2.9732 30.8440,2.9328 30.8548,2.8932 30.8534,2.8534 30.8287,2.7861 30.8219,2.7762 30.8179,2.7742 30.8059,2.7719 30.8016,2.7691 30.7991,2.7635 30.7989,2.7535 30.7977,2.7484 30.7643,2.6584 30.7613,2.6416 30.7589,2.6338 30.7394,2.6033 30.7353,2.5931 30.7340,2.5745 30.7378,2.5375 30.7370,2.5195 30.7294,2.5035 30.7168,2.4831 30.7077,2.4623 30.7106,2.4451 30.7249,2.4408 30.7950,2.4401 30.8049,2.4344 30.8071,2.4222 30.8070,2.4070 30.8097,2.3924 30.8198,2.3760 30.8363,2.3563 30.8549,2.3397 30.8718,2.3321 30.9006,2.3460 30.9145,2.3782 30.9309,2.4056 30.9680,2.4054 30.9849,2.3946 31.0413,2.3312 31.0436,2.3270 31.0459,2.3197 31.0444,2.3139 31.0388,2.3110 31.0355,2.3069 31.0407,2.2979 31.0552,2.2902 31.0991,2.2827 31.1126,2.2821 31.1292,2.2847 31.1776,2.3029 31.1791,2.2598 31.1825,2.2387 31.1901,2.2215 31.2109,2.2053 31.2675,2.1733 31.2804,2.1534 31.2715,2.1030 31.2428,2.0512 31.1833,1.9762 31.1191,1.8954 31.0258,1.7782 30.9544,1.7207 30.8170,1.6095 30.6817,1.5003 30.5973,1.3917 30.4783,1.2386 30.4583,1.2217 30.4456,1.2128 30.4316,1.2070 30.4127,1.2020 30.3993,1.2006 30.3766,1.2031 30.3649,1.2020 30.3482,1.1890 30.3361,1.1689 30.3238,1.1558 30.3066,1.1639 30.2957,1.1726 30.2865,1.1743 30.2780,1.1716 30.2693,1.1673 30.2389,1.1360 30.2362,1.1295 30.2341,1.1081 30.2315,1.0978 30.2280,1.0890 30.2153,1.0771 30.2156,1.0578 30.2210,1.0171 30.2141,0.9985 30.1915,0.9749 30.1869,0.9588 30.1838,0.9551 30.1657,0.9214 30.1548,0.9087 30.1451,0.9032 30.0384,0.8789 29.9964,0.8599 29.9602,0.8321 29.9473,0.8246 29.9283,0.7850 29.9268,0.7749 29.9323,0.7232 29.9200,0.6387 29.9195,0.6181 29.9380,0.5373 29.9405,0.4983 29.9229,0.4602 29.8511,0.3772 29.8396,0.3585 29.8326,0.3370 29.8006,0.1724 29.7971,0.1648 29.7872,0.1585 29.7804,0.1612 29.7730,0.1675 29.7613,0.1721 29.7558,0.1609 29.7118,0.0996 29.7031,0.0725 29.7016,0.0552 29.7135,0.0116 29.7143,-0.0075 29.7090,-0.0263 29.6940,-0.0631 29.6766,-0.1651 29.6540,-0.2989 29.6294,-0.4424 29.6319,-0.4612 29.6451,-0.4889 29.6497,-0.5043 29.6531,-0.5656 29.6509,-0.5796 29.6428,-0.5850 29.6322,-0.5858 29.6229,-0.5884 29.6188,-0.5994 29.6205,-0.6054 29.6282,-0.6160 29.6306,-0.6220 29.6293,-0.6298 29.6244,-0.6348 29.6188,-0.6390 29.6155,-0.6441 29.6030,-0.7229 29.6022,-0.7438 29.6111,-0.7827 29.6134,-0.8038 29.6108,-0.8640 29.6080,-0.8784 29.5967,-0.8919 29.5672,-0.9019 29.5560,-0.9195 29.5547,-0.9286 29.5553,-0.9385 29.5592,-0.9573 29.5603,-0.9721 29.5565,-0.9818 29.5514,-0.9906 29.5485,-1.0026 29.5512,-1.0201 29.5659,-1.0586 29.5701,-1.0779 29.5691,-1.0959 29.5569,-1.1577 29.5570,-1.1818 29.5653,-1.1979 29.5755,-1.2132 29.5814,-1.2348 29.5804,-1.2433 29.5710,-1.2686 29.5715,-1.2792 29.5832,-1.2993 29.5871,-1.3106 29.5873,-1.3297 29.5779,-1.3884 29.6181,-1.3906 29.6391,-1.3890 29.6577,-1.3839 29.6783,-1.3724 29.6938,-1.3612 29.7105,-1.3525 29.7348,-1.3482 29.7467,-1.3509 29.7680,-1.3638 29.7749,-1.3663 29.7832,-1.3614 29.7892,-1.3417 29.7982,-1.3309 29.8075,-1.3251 29.8161,-1.3226 29.8251,-1.3239 29.8361,-1.3295 29.8642,-1.3703 29.8686,-1.3913 29.8710,-1.4324 29.8807,-1.4536 29.8979,-1.4696 29.9174,-1.4752 29.9385,-1.4729 29.9604,-1.4648 30.0283,-1.4271 30.0387,-1.4250 30.0478,-1.4032 30.0608,-1.3897 30.0955,-1.3711 30.1363,-1.3552 30.1472,-1.3451 30.1524,-1.3299 30.1584,-1.2911 30.1656,-1.2775 30.1734,-1.2728 30.1814,-1.2715 30.1894,-1.2709 30.1967,-1.2687 30.2122,-1.2595 30.2567,-1.2172 30.2698,-1.2005 30.2805,-1.1824 30.2824,-1.1758 30.2846,-1.1614 30.2875,-1.1554 30.2946,-1.1496 30.3113,-1.1421 30.3174,-1.1370 30.3226,-1.1218 30.3290,-1.0805 30.3375,-1.0662 30.3528,-1.0608 30.3693,-1.0632 30.3863,-1.0682 30.4032,-1.0704 30.4189,-1.0664 30.4320,-1.0606 30.4456,-1.0587 30.4709,-1.0665 30.4716,-1.0670 30.4639,-1.0751 30.4562,-1.0861 30.4530,-1.0973 30.4563,-1.1081 30.4709,-1.1181 30.4742,-1.1318 30.4721,-1.1377 30.4683,-1.1433 30.4656,-1.1493 30.4673,-1.1553 30.4761,-1.1612 30.4840,-1.1600 30.4905,-1.1565 30.4947,-1.1553 30.5070,-1.1642 30.5112,-1.1704 30.5151,-1.1963 30.5212,-1.2108 30.5394,-1.2410 30.5453,-1.2614 30.5546,-1.2735 30.5566,-1.2816 30.5556,-1.2847 30.5534,-1.2891 30.5510,-1.2950 30.5499,-1.3024 30.5553,-1.3184 30.5682,-1.3281 30.5977,-1.3403 30.6082,-1.3478 30.6232,-1.3620 30.6324,-1.3676 30.6985,-1.3921 30.7181,-1.3949 30.7375,-1.4067 30.7432,-1.4328 30.7414,-1.4589 30.7383,-1.4707 30.7329,-1.4764 30.7389,-1.4895 30.7554,-1.5116 30.7678,-1.5248 30.7723,-1.5325 30.7820,-1.5684 30.7916,-1.5910 30.8072,-1.6033 30.8310,-1.5942 30.8383,-1.6154 30.8375,-1.6411 30.8246,-1.7199 30.8242,-1.7307 30.8265,-1.7359 30.8354,-1.7495 30.8379,-1.7587 30.8264,-1.7862 30.8299,-1.7967 30.8379,-1.8368 30.8324,-1.8538 30.8222,-1.8688 30.8166,-1.8842 30.8242,-1.9021 30.8080,-1.9148 30.8019,-1.9213 30.7970,-1.9293 30.8269,-1.9341 30.8299,-1.9606 30.8168,-2.0187 30.8355,-2.0147 30.8535,-2.0237 30.8687,-2.0390 30.8794,-2.0535 30.8878,-2.0825 30.8534,-2.1938 30.8447,-2.2378 30.8489,-2.3063 30.8447,-2.3266 30.8344,-2.3453 30.8214,-2.3547 30.8046,-2.3622 30.7891,-2.3711 30.7752,-2.3745 30.7679,-2.3786 30.7588,-2.3811 30.7507,-2.3791 30.6985,-2.3534 30.6877,-2.3500 30.6748,-2.3517 30.6633,-2.3607 30.6491,-2.3876 30.6379,-2.3970 30.6169,-2.3981 30.5952,-2.3919 30.5739,-2.3893 30.5546,-2.4006 30.5215,-2.4423 30.5081,-2.4635 30.4702,-2.5558 30.4620,-2.5875 30.4577,-2.5980 30.4480,-2.6105 30.4242,-2.6332 30.4160,-2.6456 30.4121,-2.6702 30.4232,-2.6809 30.4427,-2.6811 30.4638,-2.6742 30.4996,-2.6579 30.5226,-2.6494 30.5161,-2.6683 30.4586,-2.7287 30.4505,-2.7418 30.4473,-2.7573 30.4469,-2.7827 30.4251,-2.8122 30.4136,-2.8344 30.4158,-2.8517 30.4408,-2.8840 30.4560,-2.8983 30.4742,-2.9032 30.4696,-2.9142 30.4754,-2.9221 30.4841,-2.9307 30.4885,-2.9435 30.4933,-2.9413 30.5131,-2.9140 30.5249,-2.9042 30.5389,-2.8990 30.5470,-2.9003 30.6120,-2.9392 30.6252,-2.9448 30.6295,-2.9477 30.6321,-2.9538 30.6349,-2.9701 30.6376,-2.9744 30.6509,-2.9773 30.6614,-2.9748 30.6713,-2.9708 30.6837,-2.9700 30.6960,-2.9745 30.7189,-2.9895 30.7321,-2.9935 30.7554,-2.9914 30.7796,-2.9846 30.8021,-2.9784 30.8255,-2.9786 30.8158,-2.9958 30.7849,-3.0315 30.7783,-3.0474 30.7832,-3.0621 30.8078,-3.0852 30.8177,-3.0991 30.8178,-3.1044 30.8131,-3.1177 30.8123,-3.1235 30.8158,-3.1310 30.8288,-3.1405 30.8329,-3.1477 30.8340,-3.1603 30.8322,-3.1728 30.8235,-3.1967 30.8094,-3.2168 30.8099,-3.2241 30.8143,-3.2419 30.8148,-3.2477 30.7998,-3.2746 30.7757,-3.2910 30.7479,-3.2941 30.7215,-3.2810 30.7184,-3.2929 30.7120,-3.3019 30.7022,-3.3073 30.6899,-3.3089 30.6626,-3.3192 30.6405,-3.3329 30.6217,-3.3504 30.6033,-3.3726 30.6404,-3.3928 30.6391,-3.4195 30.6129,-3.4449 30.5660,-3.4667 30.5529,-3.4822 30.5450,-3.4891 30.5381,-3.4916 30.5115,-3.4977 30.5100,-3.5002 30.5082,-3.5089 30.5072,-3.5111 30.4880,-3.5126 30.4875,-3.5107 30.4856,-3.5105 30.4689,-3.5130 30.4663,-3.5161 30.4626,-3.5279 30.4601,-3.5319 30.4323,-3.5519 30.4269,-3.5639 30.4292,-3.5839 30.4289,-3.6022 30.4214,-3.6208 30.3801,-3.6856 30.3731,-3.7036 30.3720,-3.7229 30.3762,-3.7398 30.3819,-3.7552 30.3850,-3.7708 30.3816,-3.7883 30.3370,-3.7738 30.3117,-3.7899 30.2733,-3.8562 30.2208,-3.9100 30.2088,-3.9305 30.1914,-4.0025 30.1732,-4.0463 30.1498,-4.0868 30.1196,-4.1235 30.0515,-4.1802 30.0411,-4.1950 30.0156,-4.2560 30.0030,-4.2719 29.9808,-4.2844 29.9707,-4.2926 29.9363,-4.3120 29.9005,-4.3456 29.8474,-4.3705 29.8386,-4.3735 29.8218,-4.3707 29.8110,-4.3653 29.8003,-4.3639 29.7841,-4.3738 29.7823,-4.3774 29.7802,-4.3937 29.7750,-4.4023 29.7580,-4.4102 29.7517,-4.4161 29.7479,-4.4303 29.7474,-4.4432 29.7444,-4.4545 29.7328,-4.4633 29.7283,-4.4616 29.6875,-4.4584 29.6383,-4.4468 29.4042,-4.4498 29.4073,-4.4626 29.4109,-4.5023 29.4013,-4.5869 29.3408,-4.7517 29.3210,-4.8363 29.3238,-4.9202 29.3442,-5.0060 29.3778,-5.0875 29.4556,-5.2300 29.4964,-5.3917 29.5935,-5.6203 29.6124,-5.7044 29.6030,-5.7817 29.5709,-5.8380 29.4961,-5.9387 29.4761,-6.0021 29.4787,-6.0418 29.5088,-6.1537 29.5255,-6.2731 29.5377,-6.3124 29.5660,-6.3595 29.6339,-6.4469 29.6844,-6.5815 29.7070,-6.6193 29.7386,-6.6524 29.8731,-6.7542 30.0127,-6.8252 30.0909,-6.8900 30.2347,-7.0571 30.2945,-7.1494 30.3696,-7.3103 30.4049,-7.4360 30.4147,-7.5020 30.4416,-7.5963 30.6550,-7.9274 30.7281,-8.1041 30.7521,-8.1941 30.7783,-8.2891 30.8283,-8.3881 30.8919,-8.4792 30.9595,-8.5505 30.9924,-8.5759 31.0336,-8.6003 31.0778,-8.6163 31.1198,-8.6166 31.1410,-8.6062 31.1614,-8.5917 31.1827,-8.5808 31.2068,-8.5808 31.2184,-8.5887 31.2373,-8.6139 31.2480,-8.6219 31.2609,-8.6240 31.2694,-8.6211 31.2771,-8.6160 31.3288,-8.5977 31.3404,-8.5952 31.3475,-8.5924 31.3501,-8.5885 31.3533,-8.5872 31.3622,-8.5923 31.3659,-8.5986 31.3692,-8.6168 31.3726,-8.6239 31.3860,-8.6325 31.3988,-8.6338 31.4124,-8.6323 31.4275,-8.6335 31.4432,-8.6415 31.4647,-8.6661 31.4806,-8.6762 31.5191,-8.6870 31.5390,-8.7036 31.5460,-8.7290 31.5459,-8.7663 31.5534,-8.8091 31.5764,-8.8397 31.6727,-8.9130 31.6896,-8.9196 31.7098,-8.9197 31.7302,-8.9124 31.7643,-8.8941 31.7876,-8.8922 31.9366,-8.9326 31.9178,-8.9731 31.9177,-9.0225 31.9381,-9.0618 31.9806,-9.0719 32.0014,-9.0633 32.0158,-9.0527 32.0317,-9.0460 32.0572,-9.0496 32.0860,-9.0661 32.0964,-9.0691 32.1058,-9.0683 32.1250,-9.0637 32.1341,-9.0641 32.1548,-9.0752 32.1916,-9.1122 32.2113,-9.1268 32.2314,-9.1338 32.2527,-9.1365 32.3830,-9.1339 32.4234,-9.1438 32.4597,-9.1680 32.4707,-9.1819 32.4901,-9.2273 32.5045,-9.2493 32.5180,-9.2582 32.5556,-9.2612 32.6416,-9.2798 32.7132,-9.2858 32.7258,-9.2926 32.7397,-9.3073 32.7434,-9.3150 32.7465,-9.3300 32.7523,-9.3374 32.7596,-9.3400 32.7770,-9.3382 32.7843,-9.3397 32.8307,-9.3702 32.9055,-9.3982 32.9209,-9.4079 32.9363,-9.3917 32.9553,-9.3821 32.9747,-9.3812 32.9923,-9.3914 33.0423,-9.4407 33.1039,-9.4879 33.1130,-9.4915 33.1399,-9.4974 33.1692,-9.5089 33.1729,-9.5110 33.1820,-9.5079 33.1958,-9.4967 33.2024,-9.4935 33.2163,-9.4934 33.2371,-9.4996 33.2491,-9.5007 33.2577,-9.4980 33.2735,-9.4877 33.2824,-9.4860 33.3003,-9.4922 33.3565,-9.5318 33.3750,-9.5491 33.3922,-9.5862 33.4042,-9.6049 33.4196,-9.6156 33.4390,-9.6215 33.4805,-9.6244 33.5116,-9.6170 33.5352,-9.6033 33.5595,-9.5933 33.5934,-9.5968 33.6239,-9.6063 33.6506,-9.6110 33.6761,-9.6077 33.7025,-9.5929 33.7346,-9.5841 33.7620,-9.6010 33.7875,-9.6265 33.8135,-9.6433 33.8369,-9.6528 33.8653,-9.6696 33.8893,-9.6897 33.9002,-9.7096 33.9119,-9.7180 33.9283,-9.7003 33.9283,-9.6935 33.9431,-9.6839 33.9513,-9.6736 33.9549,-9.6606 33.9556,-9.6423 33.9626,-9.6121 33.9645,-9.5947 33.9459,-9.5500 33.9607,-9.5249 33.9843,-9.5056 33.9965,-9.4918 34.0127,-9.4775 34.0475,-9.4900 34.0798,-9.5110 34.0893,-9.5222 34.1032,-9.5299 34.1371,-9.5706 34.1446,-9.5749 34.1619,-9.5936 34.1908,-9.6068 34.2881,-9.7085 34.3179,-9.7192 34.3242,-9.7324 34.3267,-9.7503 34.3317,-9.7692 34.3375,-9.7772 34.3597,-9.7999 34.3642,-9.8024 34.3823,-9.8197 34.3835,-9.8238 34.4833,-9.9462 34.4947,-9.9667 34.5247,-10.0088 34.5364,-10.0430 34.5378,-10.0539 34.5357,-10.0653 34.5268,-10.0849 34.5247,-10.0948 34.5324,-10.1289 34.5656,-10.2027 34.5751,-10.2558 34.5834,-10.2776 34.5856,-10.2900 34.5853,-10.3007 34.5651,-10.4098 34.5695,-10.4314 34.5887,-10.4631 34.5930,-10.4817 34.5908,-10.4912 34.5815,-10.5137 34.5794,-10.5265 34.5811,-10.5397 34.5857,-10.5536 34.5923,-10.5667 34.6004,-10.5781 34.6089,-10.5820 34.6176,-10.5815 34.6244,-10.5834 34.6272,-10.5951 34.6263,-10.6143 34.6290,-10.6202 34.6505,-10.6453 34.6600,-10.6655 34.6609,-10.6873 34.6476,-10.7084 34.6539,-10.7176 34.6557,-10.7220 34.6599,-10.7277 34.6664,-10.7324 34.6724,-10.7395 34.6750,-10.7524 34.6628,-10.7614 34.6567,-10.7699 34.6606,-10.7960 34.6476,-10.8586 34.6476,-10.9029 34.6455,-10.9132 34.6271,-10.9541 34.5979,-10.9910 34.5930,-11.0162 34.5973,-11.0366 34.6106,-11.0777 34.6135,-11.1022 34.6211,-11.1197 34.6687,-11.1601 34.6740,-11.1700 34.6771,-11.1787 34.6818,-11.1851 34.6999,-11.1895 34.7079,-11.1950 34.7141,-11.2027 34.7166,-11.2117 34.7198,-11.2346 34.7287,-11.2540 34.7417,-11.2687 34.7575,-11.2776 34.7575,-11.2838 34.7516,-11.2871 34.7430,-11.2937 34.7370,-11.2968 34.7591,-11.3375 34.7656,-11.3451 34.7722,-11.3444 34.7849,-11.3335 34.7923,-11.3309 34.8005,-11.3319 34.8437,-11.3463 34.8679,-11.3588 34.8866,-11.3754 34.8941,-11.3960 34.8984,-11.4035 34.9171,-11.4188 34.9257,-11.4459 34.9351,-11.4565 34.9445,-11.4644 34.9487,-11.4718 34.9510,-11.4777 34.9557,-11.4867 34.9607,-11.4985 34.9630,-11.5131 34.9630,-11.5649 34.9646,-11.5736 35.3817,-11.5777 35.4235,-11.5766 35.4253,-11.5820 35.4319,-11.5884 35.4412,-11.5914 35.4658,-11.5926 35.4701,-11.5922 35.4834,-11.5869 35.4837,-11.5860 35.4902,-11.5841 35.4941,-11.5818 35.4987,-11.5823 35.5076,-11.5891 35.5130,-11.5966 35.5156,-11.6035 35.5201,-11.6091 35.5315,-11.6127 35.5327,-11.5956 35.5437,-11.5947 35.5598,-11.6010 35.5763,-11.6052 35.5997,-11.5922 35.6009,-11.5923 35.6548,-11.5783 35.6648,-11.5720 35.6719,-11.5514 35.6802,-11.5376 35.6913,-11.5243 35.7034,-11.5165 35.6956,-11.4946 35.7140,-11.4838 35.7643,-11.4749 35.7819,-11.4612 35.8131,-11.4224 35.8264,-11.4135 35.8673,-11.4209 35.8956,-11.4328 35.9020,-11.4345 35.9397,-11.4341 35.9531,-11.4406 35.9703,-11.4612 35.9608,-11.4835 35.9698,-11.5024 35.9885,-11.5122 36.0079,-11.5066 36.0222,-11.5057 36.0431,-11.5149 36.0796,-11.5370 36.0894,-11.5409 36.1115,-11.5466 36.1211,-11.5506 36.1295,-11.5571 36.1360,-11.5638 36.1428,-11.5690 36.1519,-11.5711 36.1681,-11.5787 36.1736,-11.5974 36.1759,-11.6201 36.1826,-11.6400 36.1762,-11.6550 36.1792,-11.6756 36.1882,-11.6937 36.1997,-11.7015 36.2409,-11.6946 36.2529,-11.6966 36.2684,-11.7060 36.2787,-11.7088 36.2934,-11.7073 36.3298,-11.6971 36.3612,-11.6924 36.3681,-11.6878 36.3733,-11.6831 36.3781,-11.6809 36.4949,-11.6809 36.5027,-11.6863 36.5087,-11.7098 36.5150,-11.7150 36.5206,-11.7171 36.5457,-11.7294 36.5630,-11.7313 36.6257,-11.7214 36.6406,-11.7163 36.6672,-11.7134 36.6746,-11.7088 36.6800,-11.7024 36.6897,-11.6946 36.7266,-11.6807 36.7380,-11.6747 36.7470,-11.6665 36.7748,-11.6263 36.8201,-11.5736 36.8371,-11.5680 36.8466,-11.5727 36.8663,-11.5742 36.8911,-11.5900 36.9059,-11.5928 36.9984,-11.5846 37.0078,-11.5806 37.0167,-11.5740 37.0324,-11.5649 37.0444,-11.5957 37.0716,-11.6292 37.1065,-11.6581 37.1416,-11.6747 37.2266,-11.6938 37.2702,-11.6984 37.3061,-11.6946 37.3158,-11.6902 37.3236,-11.6853 37.3314,-11.6816 37.3408,-11.6809 37.3524,-11.6863 37.3702,-11.7048 37.3783,-11.7088 37.4278,-11.7226 37.4507,-11.7226 37.4697,-11.7195 37.4764,-11.7160 37.4848,-11.7088 37.4904,-11.6989 37.4960,-11.6851 37.5038,-11.6727 37.5159,-11.6673 37.5368,-11.6630 37.5729,-11.6441 37.5946,-11.6400 37.6264,-11.6397 37.6478,-11.6360 37.6664,-11.6255 37.7109,-11.5904 37.7837,-11.5589 37.8044,-11.5445 37.8169,-11.5336 37.8251,-11.5202 37.8233,-11.5079 37.8173,-11.4956 37.8132,-11.4823 37.8185,-11.4599 37.8425,-11.4178 37.8410,-11.3998 37.8504,-11.3876 37.8658,-11.3425 37.8684,-11.3278 37.8752,-11.3191 37.9381,-11.2840 37.9546,-11.2800 37.9953,-11.2776 38.0042,-11.2753 38.0136,-11.2655 38.0708,-11.2558 38.1012,-11.2565 38.1012,-11.2549 38.1043,-11.2520 38.1093,-11.2496 38.1154,-11.2495 38.1172,-11.2520 38.1225,-11.2612 38.1257,-11.2632 38.1354,-11.2664 38.1550,-11.2806 38.1669,-11.2838 38.1784,-11.2818 38.2005,-11.2727 38.2104,-11.2700 38.2566,-11.2771 38.2925,-11.3016 38.3477,-11.3588 38.3831,-11.3767 38.4624,-11.3963 38.4923,-11.4135 38.5172,-11.3831 38.6157,-11.3172 38.6382,-11.2892 38.6542,-11.2758 38.6840,-11.2678 38.7042,-11.2585 38.7151,-11.2565 38.7271,-11.2577 38.7487,-11.2628 38.7597,-11.2632 38.7780,-11.2537 38.8178,-11.2163 38.8310,-11.2080 38.8519,-11.2028 38.8695,-11.1907 38.8963,-11.1677 38.9301,-11.1600 39.0608,-11.1601 39.0954,-11.1534 39.1262,-11.1397 39.1498,-11.1443 39.1905,-11.1662 39.2116,-11.1739 39.2382,-11.1742 39.2633,-11.1668 39.2866,-11.1542 39.4827,-10.9992 39.4985,-10.9906 39.5157,-10.9851 39.5928,-10.9794 39.7605,-10.9431 39.7858,-10.9326 39.8860,-10.8645 39.9891,-10.8209 40.0081,-10.8111 40.1332,-10.7146 40.1611,-10.7044 40.1728,-10.6931 40.1916,-10.6688 40.2507,-10.6109 40.2885,-10.5830 40.3533,-10.5607 40.3892,-10.5353 40.4210,-10.5038 40.4369,-10.4759 40.4369,-10.4748 40.5713,-10.3909 40.6476,-10.3313 40.7319,-10.4940 40.8167,-10.5828 40.8386,-10.6282 40.8298,-10.7547 40.7568,-11.0542 40.6520,-11.3181 40.6617,-11.4064 40.6465,-11.6049 40.7202,-11.9871 40.7300,-12.3545 40.8345,-12.7650 40.8290,-12.8246 40.7910,-12.9232 40.7562,-13.1311 40.7782,-13.5692 40.7633,-13.7337 40.8209,-13.9070 40.8483,-14.0435 41.0113,-14.4257 41.0366,-14.7280 41.0241,-14.8444 40.9513,-15.0363 40.8830,-15.1631 40.8411,-15.3637 40.7424,-15.5885 40.5899,-15.7290 40.4962,-15.8438 40.3477,-15.9908 40.2233,-16.2319 40.1437,-16.3220 40.0394,-16.4082 39.9522,-16.5503 39.9001,-16.6075 39.7121,-16.7416 39.3507,-16.9378 39.3043,-16.9838 39.2411,-17.0928 39.1866,-17.1335 38.9151,-17.2177 38.6630,-17.2713 38.2169,-17.4575 37.9413,-17.5500 37.6753,-17.6801 37.5295,-17.7700 37.5295,-18.2015 37.5295,-18.6329 37.5295,-19.0644 37.5295,-19.0655 37.5295,-19.5654 37.5295,-20.0652 37.5295,-20.5651 37.5295,-21.0650 37.5295,-21.5649 37.5295,-22.0648 37.5295,-22.5647 37.5295,-23.0646 37.5295,-23.5645 37.5295,-24.0644 37.5295,-24.0655 37.5295,-24.5654 37.5295,-25.0652 37.5295,-25.5651 37.5295,-26.0650 37.5295,-26.5649 37.5295,-27.0648 37.5295,-27.5647 37.5295,-28.0646 37.5295,-28.5645 37.5295,-29.0644 37.5295,-29.0655 37.5295,-29.5654 37.5295,-30.0652 37.5295,-30.5651 37.5295,-31.0650 37.5295,-31.5649 37.5295,-32.0648 37.5295,-32.5647 37.5295,-33.0646 37.5295,-33.5645 37.5295,-34.0644 37.5295,-34.0655 37.5295,-34.5654 37.5295,-35.0652 37.5295,-35.5651 37.5295,-36.0650 37.5295,-36.5649 37.5295,-37.0648 37.5295,-37.5647 37.5295,-38.0646 37.5295,-38.5645 37.5295,-39.0644 37.5295,-39.0655 37.5295,-39.5654 37.5295,-40.0652 37.5295,-40.5651 37.5295,-41.0650 37.5295,-41.5649 37.5295,-42.0648 37.5295,-42.5647 37.5295,-43.0646 37.5295,-43.5645 37.5295,-44.0644 37.5295,-44.0655 37.5295,-44.4967 37.5295,-44.9280 37.5295,-45.3593 37.5295,-45.7906 37.5295,-46.2218 37.5295,-46.6531 37.4612,-46.6846 37.3508,-46.7758 37.2995,-46.8404 37.2833,-46.9076 37.2935,-46.9670 37.3278,-47.0287 37.3837,-47.0821 37.4509,-47.1193 37.5295,-47.1421 37.5295,-47.6227 37.5295,-48.1033 37.5295,-48.5838 37.5295,-49.0644 37.5295,-49.0655 37.5295,-49.5367 37.5295,-50.0080 37.5295,-50.4793 37.5295,-50.9506 37.5295,-51.4218 37.5295,-51.8931 37.5295,-52.3644 37.5295,-52.3655 37.5295,-52.8654 37.5295,-53.3652 37.5295,-53.8651 37.5295,-54.3650 37.5295,-54.8649 37.5295,-55.3648 37.5295,-55.8647 37.5295,-56.3646 37.5295,-56.8645 37.5295,-57.3644 37.5295,-57.3655 37.5295,-57.8654 37.5295,-58.3652 37.5295,-58.8651 37.5295,-59.3650 37.5295,-59.8649 37.5295,-60.3648 37.5295,-60.8647 37.5295,-61.3646 37.5295,-61.8645 37.5295,-62.3644 37.5295,-62.3655 37.5295,-62.8654 37.5295,-63.3652 37.5295,-63.8651 37.5295,-64.3650 37.5295,-64.8649 37.5295,-65.3648 37.5295,-65.8647 37.5295,-66.3646 37.5295,-66.8645 37.5295,-67.3644 37.5295,-67.3655 37.5295,-67.7885 37.5295,-68.2115 37.5295,-68.6346 37.5295,-69.0576 37.5295,-69.4806 37.4578,-69.4823 37.3632,-69.4895 37.2225,-69.5104 37.0854,-69.4693 36.9339,-69.4413 36.8320,-69.4297 36.6935,-69.4243 36.5003,-69.4038 36.3051,-69.4020 36.0172,-69.4349 35.9054,-69.4424 35.8547,-69.4381 35.7996,-69.4196 35.7619,-69.3882 35.7518,-69.3575 35.7627,-69.2530 35.7389,-69.2190 35.6845,-69.1803 35.6005,-69.1396 35.4392,-69.0804 35.2687,-69.0062 34.9066,-68.8909 34.9475,-68.7805 34.9239,-68.6877 34.8883,-68.6485 34.8323,-68.6103 34.6710,-68.5386 34.5747,-68.5113 34.4811,-68.4928 34.3627,-68.4785 34.2485,-68.4724 33.9002,-68.4694 33.5518,-68.4664 33.2035,-68.4635 33.0720,-68.4710 32.9424,-68.4899 32.4940,-68.5880 32.1507,-68.7130 32.0419,-68.7717 31.9758,-68.8298 31.9414,-68.8750 31.9280,-68.9210 31.9389,-69.0108 31.9138,-69.0920 31.9299,-69.1356 31.9812,-69.1856 32.1624,-69.3250 32.2259,-69.3630 32.3616,-69.4253 32.3930,-69.4505 32.4072,-69.5341 32.3934,-69.6137 32.2595,-69.7361 32.2437,-69.7719 32.2440,-69.8269 32.2098,-69.8513 31.9852,-69.8937 31.8471,-69.9262 31.6048,-69.9577 31.3928,-69.9969 31.2267,-70.0206 31.1889,-70.0220 31.0084,-70.0083 30.8214,-70.0120 30.6810,-70.0272 30.5233,-70.0589 30.0480,-70.0699 29.5732,-70.1262 29.4439,-70.1526 29.3306,-70.1871 29.1717,-70.2082 29.0576,-70.2338 28.9763,-70.2645 28.8914,-70.2967 28.7273,-70.3487 28.6203,-70.3925 28.4523,-70.4171 28.2429,-70.4685 28.0719,-70.4849 27.8597,-70.5188 27.7517,-70.5283 27.5847,-70.5354 27.4957,-70.3716 27.5009,-70.3260 27.4714,-70.2626 27.3539,-70.1568 27.2473,-70.0307 27.1604,-69.9790 27.0502,-69.9370 26.8615,-69.8926 26.6165,-69.8602 26.4141,-69.8527 26.1961,-69.8635 26.0091,-69.8899 25.8334,-69.9339 25.7229,-69.9754 25.6244,-70.0266 25.5253,-70.0594 25.4339,-70.1046 25.3578,-70.1635 25.3108,-70.2362 25.3057,-70.3108 25.3420,-70.3840 25.3438,-70.3856 24.9991,-70.4764 24.9516,-70.4312 24.8377,-70.3619 24.7100,-70.3064 24.5602,-70.2592 24.4173,-70.2282 24.2370,-70.2062 23.9799,-70.1971 23.7411,-70.1951 23.5677,-70.2048 23.4450,-70.2223 23.3421,-70.2473 23.2491,-70.2816 23.1043,-70.3557 23.0581,-70.3682 23.0171,-70.3699 22.9798,-70.3633 22.8703,-70.3250 22.7385,-70.2903 22.5038,-70.1860 22.5038,-69.7226 22.5038,-69.2592 22.5038,-68.7958 22.5038,-68.3324 22.5038,-67.8690 22.5038,-67.4056 22.5038,-66.9422 22.5038,-66.4787 22.5038,-66.0153 22.5038,-65.5519 22.5038,-65.5509 22.5038,-65.5390 22.5038,-65.0403 22.5038,-64.5416 22.5038,-64.0429 22.5038,-63.5441 22.5038,-63.0454 22.5038,-62.5467 22.5038,-62.0480 22.5038,-61.5493 22.5038,-61.0506 22.5038,-60.5519 22.5038,-60.5509 22.5038,-60.5390 22.5038,-60.0403 22.5038,-59.5416 22.5038,-59.0429 22.5038,-58.5441 22.5038,-58.0454 22.5038,-57.5467 22.5038,-57.0480 22.5038,-56.5493 22.5038,-56.0506 22.5038,-55.5519 22.5038,-55.5509 22.5038,-55.5390 22.5038,-55.0403 22.5038,-54.5416 22.5038,-54.0429 22.5038,-53.5441 22.5038,-53.0454 22.5038,-52.5467 22.5038,-52.0480 22.5038,-51.5493 22.5038,-51.0506 22.5038,-50.5519 22.5038,-50.5509 22.5038,-50.5390 22.5038,-50.0403 22.5038,-49.5416 22.5038,-49.0429 22.5038,-48.5441 22.5038,-48.0454 22.5038,-47.5467 22.5038,-47.0480 22.5038,-46.5493 22.5038,-46.0506 22.5038,-45.5519 22.5038,-45.5509 22.5038,-45.5390 22.5038,-45.0403 22.5038,-44.5416 22.5038,-44.0429 22.5038,-43.5441 22.5038,-43.0454 22.5038,-42.5467 22.5038,-42.0480 22.5038,-41.5493 22.5038,-41.0506 22.5038,-40.5519 22.5038,-40.5509 22.5038,-40.5390 22.5038,-40.0403 22.5038,-39.5416 22.5038,-39.0429 22.5038,-38.5441 22.5038,-38.0454 22.5038,-37.5467 22.5038,-37.0480 22.5038,-36.5493 22.5038,-36.0506 22.5038,-35.5519 22.5038,-35.5509 22.5038,-35.5390 22.5038,-35.0837 22.5038,-34.6285 22.5038,-34.1732 22.4722,-34.1838 22.3090,-34.1963 22.2251,-34.2901 22.0788,-34.3234 21.9678,-34.4403 21.8963,-34.4799 21.8208,-34.5032 21.7108,-34.5143 21.5256,-34.4944 21.3939,-34.5385 21.2943,-34.5467 21.2181,-34.5369 21.0217,-34.4838 20.9279,-34.5569 20.8860,-34.5748 20.5797,-34.5751 20.4553,-34.6757 20.2650,-34.7803 20.1113,-34.9043 20.0089,-34.9437 19.9371,-34.9356 19.7858,-34.8775 19.6331,-34.8905 19.5725,-34.8796 19.3926,-34.7547 19.2346,-34.7249 19.1921,-34.7058 19.1605,-34.6681 19.1194,-34.5568 19.0755,-34.5167 18.9625,-34.4814 18.8485,-34.5030 18.7392,-34.4815 18.6919,-34.4443 18.6670,-34.3970 18.6707,-34.2311 18.6339,-34.2727 18.5631,-34.4078 18.5096,-34.4542 18.4699,-34.4595 18.3808,-34.4412 18.2934,-34.3836 18.1792,-34.1988 18.1576,-34.0819 18.1757,-33.9833 18.2432,-33.8625 18.2982,-33.8020 18.2972,-33.7574 18.2719,-33.7133 18.1878,-33.6264 18.1545,-33.5199 18.0259,-33.4312 17.9695,-33.3052 17.7749,-33.1054 17.7323,-33.0097 17.7008,-32.8490 17.7242,-32.7352 17.8187,-32.6184 17.8900,-32.5914 18.1100,-32.5763 18.1483,-32.5585 18.1667,-32.5282 18.1847,-32.4513 18.1631,-32.3362 18.1866,-32.2479 18.0759,-31.7955 18.0378,-31.7300 17.8535,-31.5155 17.7040,-31.3145 17.5545,-31.1134 17.4702,-30.9777 17.3946,-30.8135 17.3190,-30.7117 17.2685,-30.6065 17.1533,-30.4261 17.0055,-30.0060 16.8578,-29.5859 16.7470,-29.3615 16.6361,-29.1371 16.4815,-28.9363 16.4632,-28.9046 16.4291,-28.8453 16.3830,-28.7650 16.4233,-28.7164 16.4086,-28.7059 16.4875,-28.5729 16.5054,-28.5654 16.5315,-28.5497 16.5591,-28.5371 16.5974,-28.5262 16.6731,-28.4598 16.6835,-28.4562 16.6923,-28.4611 16.6968,-28.4725 16.6997,-28.4852 16.7038,-28.4945 16.7205,-28.4960 16.7404,-28.4809 16.7584,-28.4597 16.7693,-28.4426 16.7721,-28.4258 16.7734,-28.4029 16.7785,-28.3830 16.7932,-28.3743 16.8039,-28.3661 16.7968,-28.3478 16.7755,-28.3191 16.7684,-28.3037 16.7644,-28.2832 16.7687,-28.2654 16.7865,-28.2576 16.7952,-28.2612 16.8051,-28.2677 16.8152,-28.2708 16.8246,-28.2645 16.8266,-28.2519 16.8208,-28.2400 16.8133,-28.2299 16.8103,-28.2229 16.8143,-28.2135 16.8198,-28.2097 16.8411,-28.2099 16.8564,-28.2066 16.8560,-28.1994 16.8384,-28.1795 16.8357,-28.1742 16.8377,-28.1682 16.8438,-28.1639 16.8478,-28.1654 16.8520,-28.1683 16.8687,-28.1679 16.8738,-28.1715 16.8782,-28.1720 16.8855,-28.1620 16.8930,-28.0826 16.8965,-28.0799 16.9135,-28.0627 16.9196,-28.0583 16.9275,-28.0602 16.9375,-28.0711 16.9475,-28.0727 16.9595,-28.0686 16.9738,-28.0550 16.9854,-28.0522 17.0120,-28.0583 17.0454,-28.0363 17.0567,-28.0312 17.0764,-28.0268 17.0865,-28.0270 17.0978,-28.0312 17.1118,-28.0460 17.1232,-28.0665 17.1363,-28.0847 17.1558,-28.0925 17.1809,-28.0995 17.1900,-28.1168 17.1898,-28.1394 17.1871,-28.1620 17.1920,-28.2088 17.2131,-28.2321 17.2452,-28.2374 17.3086,-28.2241 17.3345,-28.2229 17.3457,-28.2276 17.3498,-28.2387 17.3512,-28.2514 17.3550,-28.2610 17.3641,-28.2733 17.3670,-28.2835 17.3681,-28.2938 17.3720,-28.3061 17.3789,-28.3163 17.3948,-28.3351 17.4000,-28.3464 17.4021,-28.3678 17.3997,-28.3953 17.3913,-28.4188 17.3754,-28.4290 17.3586,-28.4328 17.3412,-28.4428 17.3282,-28.4561 17.3242,-28.4705 17.3324,-28.4886 17.3595,-28.5198 17.3653,-28.5425 17.3730,-28.5594 17.4096,-28.5714 17.4206,-28.5934 17.4143,-28.6327 17.4018,-28.6742 17.4036,-28.7043 17.4409,-28.7096 17.4852,-28.7002 17.5266,-28.6958 17.5470,-28.6914 17.5660,-28.6835 17.5829,-28.6802 17.5980,-28.6896 17.6034,-28.7108 17.6026,-28.7354 17.6071,-28.7557 17.6287,-28.7641 17.6610,-28.7723 17.6738,-28.7716 17.6834,-28.7675 17.7032,-28.7556 17.7141,-28.7511 17.7463,-28.7486 17.9133,-28.7813 17.9495,-28.7947 17.9833,-28.8137 18.0441,-28.8584 18.0824,-28.8760 18.1665,-28.9019 18.1851,-28.9022 18.2207,-28.8913 18.3087,-28.8800 18.3310,-28.8814 18.3731,-28.8952 18.3976,-28.8989 18.4170,-28.8917 18.4247,-28.8872 18.4357,-28.8842 18.4552,-28.8814 18.4607,-28.8799 18.4694,-28.8749 18.4750,-28.8740 18.4794,-28.8763 18.4916,-28.8863 18.4962,-28.8883 18.5177,-28.8823 18.5539,-28.8647 18.7457,-28.8399 18.9545,-28.8667 18.9712,-28.8805 18.9964,-28.9155 19.0069,-28.9263 19.0140,-28.9285 19.0490,-28.9324 19.0601,-28.9357 19.0647,-28.9398 19.0817,-28.9594 19.1202,-28.9575 19.1615,-28.9454 19.2185,-28.9189 19.2267,-28.9115 19.2376,-28.8956 19.2437,-28.8919 19.2766,-28.8895 19.2884,-28.8831 19.2889,-28.8710 19.2516,-28.8143 19.2450,-28.7925 19.2486,-28.7716 19.2659,-28.7426 19.2773,-28.7294 19.2900,-28.7197 19.3045,-28.7187 19.3284,-28.7358 19.3390,-28.7375 19.3535,-28.7319 19.4346,-28.7135 19.4551,-28.7052 19.4724,-28.6927 19.4829,-28.6782 19.5117,-28.5980 19.5178,-28.5894 19.5274,-28.5860 19.5337,-28.5824 19.5422,-28.5640 19.5476,-28.5559 19.5565,-28.5462 19.5624,-28.5381 19.5688,-28.5312 19.5792,-28.5252 19.5880,-28.5227 19.6883,-28.5160 19.7056,-28.5080 19.7253,-28.4942 19.7481,-28.4871 19.7963,-28.4842 19.8256,-28.4767 19.8703,-28.4408 19.8967,-28.4277 19.9079,-28.4265 19.9402,-28.4302 19.9505,-28.4293 19.9817,-28.4223 19.9832,-28.3927 19.9832,-28.3532 19.9832,-28.2972 19.9832,-28.2411 19.9832,-28.1850 19.9831,-28.1290 19.9830,-28.0729 19.9830,-28.0168 19.9830,-27.9608 19.9830,-27.9047 19.9830,-27.8485 19.9830,-27.7926 19.9830,-27.7365 19.9830,-27.6804 19.9829,-27.6244 19.9829,-27.6071 19.9829,-27.5682 19.9829,-27.5121 19.9829,-27.4561 19.9829,-27.4002 19.9829,-27.3441 19.9829,-27.2879 19.9828,-27.2319 19.9827,-27.1758 19.9827,-27.1197 19.9827,-27.0637 19.9827,-27.0077 19.9827,-26.9515 19.9827,-26.8955 19.9826,-26.8394 19.9826,-26.7834 19.9826,-26.7273 19.9826,-26.6712 19.9826,-26.6151 19.9825,-26.5591 19.9824,-26.5031 19.9824,-26.4470 19.9824,-26.3909 19.9824,-26.3348 19.9824,-26.2788 19.9824,-26.2227 19.9823,-26.1667 19.9823,-26.1105 19.9823,-26.0545 19.9823,-25.9985 19.9823,-25.9424 19.9822,-25.8863 19.9821,-25.8303 19.9821,-25.7741 19.9821,-25.7181 19.9821,-25.6621 19.9821,-25.6061 19.9821,-25.5500 19.9821,-25.4938 19.9821,-25.4378 19.9820,-25.3817 19.9820,-25.3257 19.9820,-25.2697 19.9820,-25.2136 19.9820,-25.1574 19.9820,-25.1014 19.9820,-25.0454 19.9819,-24.9893 19.9818,-24.9333 19.9818,-24.8771 19.9818,-24.8210 19.9818,-24.7650 19.9814,-24.7525 19.9813,-24.5804 19.9811,-24.4084 19.9808,-24.2366 19.9807,-24.0645 19.9805,-23.8925 19.9803,-23.7206 19.9801,-23.5486 19.9799,-23.3765 19.9799,-23.3086 19.9798,-23.2045 19.9796,-23.0325 19.9793,-22.8607 19.9792,-22.6886 19.9790,-22.5381 19.9789,-22.3876 19.9787,-22.2372 19.9784,-22.0868 19.9783,-22.0007 20.2124,-22.0007 20.4465,-22.0007 20.6806,-22.0007 20.9147,-22.0007 20.9720,-22.0007 20.9848,-21.9640 20.9847,-21.9228 20.9845,-21.8652 20.9843,-21.8076 20.9841,-21.7500 20.9839,-21.6924 20.9837,-21.6347 20.9835,-21.5770 20.9831,-21.5194 20.9830,-21.4618 20.9828,-21.4041 20.9826,-21.3464 20.9824,-21.2889 20.9822,-21.2312 20.9821,-21.1736 20.9819,-21.1161 20.9816,-21.0584 20.9815,-21.0007 20.9815,-21.0000 20.9811,-20.8758 20.9807,-20.7507 20.9802,-20.6258 20.9798,-20.5007 20.9794,-20.3758 20.9791,-20.2508 20.9787,-20.1259 20.9783,-20.0008 20.9780,-19.8758 20.9776,-19.7508 20.9770,-19.6258 20.9767,-19.5009 20.9763,-19.3758 20.9758,-19.2509 20.9755,-19.1259 20.9751,-19.0010 20.9751,-18.9600 20.9751,-18.9192 20.9751,-18.8784 20.9751,-18.8377 20.9751,-18.7968 20.9751,-18.7560 20.9751,-18.7152 20.9751,-18.6744 20.9751,-18.6335 20.9751,-18.5927 20.9751,-18.5520 20.9751,-18.5111 20.9751,-18.4701 20.9751,-18.4293 20.9751,-18.3886 20.9751,-18.3478 20.9751,-18.3193 21.0242,-18.3174 21.0806,-18.3152 21.1369,-18.3129 21.1935,-18.3108 21.2499,-18.3085 21.2968,-18.3066 21.3439,-18.3048 21.3909,-18.3029 21.4379,-18.3011 21.4568,-18.3002 21.4757,-18.2995 21.4929,-18.2964 21.5098,-18.2932 21.5270,-18.2900 21.5440,-18.2868 21.6285,-18.2712 21.7127,-18.2556 21.7971,-18.2399 21.8815,-18.2242 21.9660,-18.2086 22.0503,-18.1928 22.1346,-18.1772 22.2190,-18.1615 22.3035,-18.1458 22.3878,-18.1302 22.4721,-18.1145 22.5565,-18.0988 22.6409,-18.0832 22.7253,-18.0675 22.8097,-18.0519 22.8940,-18.0362 22.9814,-18.0200 23.0996,-18.0102 23.1858,-18.0031 23.2549,-17.9974 23.2928,-17.9990 23.3057,-18.0055 23.3115,-18.0098 23.3128,-18.0165 23.3127,-18.0300 23.3159,-18.0371 23.3233,-18.0392 23.3306,-18.0400 23.3338,-18.0433 23.3326,-18.0671 23.3338,-18.0740 23.3366,-18.0794 23.3481,-18.0944 23.3595,-18.1192 23.3897,-18.1533 23.3958,-18.1634 23.3963,-18.1694 23.3945,-18.1862 23.3958,-18.1914 23.4013,-18.1943 23.4103,-18.1974 23.4189,-18.1984 23.4294,-18.1885 23.4443,-18.2007 23.4588,-18.2176 23.4641,-18.2255 23.4778,-18.2309 23.4913,-18.2331 23.5015,-18.2375 23.5057,-18.2494 23.5113,-18.2603 23.5217,-18.2682 23.5273,-18.2777 23.5188,-18.2937 23.5515,-18.3275 23.5608,-18.3485 23.5466,-18.3695 23.5555,-18.3831 23.5713,-18.4260 23.5792,-18.4679 23.5922,-18.4782 23.6099,-18.4777 23.6454,-18.4660 23.6499,-18.4634 23.6565,-18.4583 23.6801,-18.4315 23.7009,-18.4280 23.7158,-18.4191 23.8098,-18.3217 23.8256,-18.3171 23.8372,-18.3058 23.8552,-18.2801 23.8675,-18.2694 23.8970,-18.2502 23.9129,-18.2357 23.9160,-18.2012 23.9508,-18.1776 23.9566,-18.1766 23.9620,-18.1779 23.9667,-18.1806 23.9712,-18.1839 23.9749,-18.1770 23.9797,-18.1719 23.9917,-18.1634 24.0203,-18.1516 24.0281,-18.1458 24.0570,-18.1190 24.0651,-18.1152 24.1016,-18.1088 24.1351,-18.0855 24.1831,-18.0294 24.2183,-18.0126 24.2382,-18.0099 24.2592,-18.0126 24.2701,-18.0158 24.2874,-18.0245 24.2964,-18.0262 24.3058,-18.0194 24.3343,-17.9716 24.3506,-17.9561 24.3653,-17.9508 24.3995,-17.9523 24.4216,-17.9565 24.4339,-17.9672 24.4510,-17.9990 24.4585,-18.0058 24.4651,-18.0087 24.4698,-18.0145 24.4715,-18.0300 24.5056,-18.0603 24.5184,-18.0573 24.5644,-18.0528 24.5746,-18.0504 24.5778,-18.0444 24.5918,-18.0284 24.5950,-18.0228 24.5986,-18.0208 24.6492,-17.9628 24.6641,-17.9499 24.6985,-17.9289 24.7253,-17.8959 24.7307,-17.8919 24.7382,-17.8876 24.7468,-17.8842 24.7560,-17.8828 24.7645,-17.8797 24.7707,-17.8655 24.7769,-17.8623 24.7974,-17.8581 24.8208,-17.8393 24.8381,-17.8350 24.8574,-17.8336 24.9311,-17.8105 24.9376,-17.8071 24.9452,-17.8000 24.9486,-17.7933 24.9533,-17.7884 24.9643,-17.7867 24.9581,-17.8009 24.9686,-17.8076 24.9751,-17.8163 24.9833,-17.8205 24.9985,-17.8140 25.0071,-17.8257 25.0197,-17.8238 25.0475,-17.8071 25.0570,-17.8277 25.0879,-17.8268 25.1209,-17.8135 25.1539,-17.7818 25.1942,-17.7823 25.2598,-17.7941 25.2535,-17.7815 25.2424,-17.7703 25.2289,-17.7625 25.2151,-17.7593 25.1982,-17.7584 25.1907,-17.7553 25.1778,-17.7388 25.1724,-17.7351 25.1612,-17.7294 25.1568,-17.7252 25.1553,-17.7194 25.1564,-17.7067 25.1533,-17.7010 25.1385,-17.6861 25.1314,-17.6865 25.1226,-17.6979 25.1200,-17.6911 25.1151,-17.6842 25.1080,-17.6789 25.0988,-17.6768 25.0969,-17.6722 25.0885,-17.6427 25.0852,-17.6409 25.0670,-17.6253 25.0642,-17.6215 25.0526,-17.6214 25.0453,-17.6200 25.0401,-17.6161 25.0339,-17.6085 25.0339,-17.6016 25.0406,-17.5845 25.0370,-17.5812 25.0267,-17.5827 25.0080,-17.5885 24.9985,-17.5880 24.9826,-17.5765 24.9711,-17.5607 24.9700,-17.5600 24.9580,-17.5517 24.9376,-17.5607 24.9249,-17.5430 24.8983,-17.5311 24.8295,-17.5177 24.7974,-17.5191 24.7868,-17.5169 24.7800,-17.5123 24.7751,-17.5076 24.7698,-17.5054 24.6844,-17.4924 24.6395,-17.4924 24.6297,-17.4955 24.6228,-17.5023 24.6174,-17.5092 24.6065,-17.5152 24.5913,-17.5284 24.5808,-17.5328 24.5712,-17.5335 24.5625,-17.5322 24.5465,-17.5265 24.5379,-17.5203 24.5317,-17.5134 24.5236,-17.5078 24.4982,-17.5035 24.4793,-17.4945 24.4493,-17.4891 24.4070,-17.4745 24.3889,-17.4713 24.3713,-17.4737 24.3294,-17.4851 24.3213,-17.4887 24.3103,-17.4826 24.2574,-17.4808 24.2388,-17.4782 24.2205,-17.4795 24.1909,-17.4853 24.1481,-17.4938 24.1053,-17.5022 24.0625,-17.5107 24.0196,-17.5191 23.9770,-17.5276 23.9342,-17.5360 23.8914,-17.5444 23.8485,-17.5529 23.8056,-17.5614 23.7628,-17.5697 23.7200,-17.5782 23.6772,-17.5867 23.6346,-17.5950 23.5918,-17.6035 23.5488,-17.6120 23.5060,-17.6205 23.4762,-17.6264 23.4574,-17.6268 23.4224,-17.6335 23.3817,-17.6411 23.3760,-17.6282 23.3751,-17.6154 23.3823,-17.6010 23.3594,-17.5829 23.3406,-17.5607 23.3202,-17.5464 23.3054,-17.5395 23.2908,-17.5354 23.2584,-17.5328 23.2413,-17.5351 23.2242,-17.5393 23.2070,-17.5412 23.1897,-17.5366 23.1775,-17.5240 23.1769,-17.5098 23.1791,-17.4942 23.1762,-17.4782 23.1657,-17.4674 23.1215,-17.4509 23.0976,-17.4322 23.0730,-17.4051 23.0541,-17.3753 23.0464,-17.3484 23.0404,-17.3371 22.9986,-17.2938 22.9842,-17.2858 22.9365,-17.2733 22.8762,-17.2481 22.8492,-17.2310 22.8094,-17.1964 22.7783,-17.1804 22.7652,-17.1696 22.7559,-17.1549 22.7448,-17.1083 22.7307,-17.0816 22.7105,-17.0554 22.6656,-17.0086 22.6517,-16.9987 22.5920,-16.9754 22.5793,-16.9753 22.5734,-16.9710 22.5692,-16.9624 22.5693,-16.9450 22.5672,-16.9369 22.5545,-16.9242 22.5229,-16.9147 22.5085,-16.9062 22.4997,-16.8935 22.4891,-16.8654 22.4166,-16.7545 22.4089,-16.7458 22.3996,-16.7404 22.3836,-16.7375 22.3780,-16.7348 22.3726,-16.7288 22.3658,-16.7169 22.3501,-16.6963 22.3435,-16.6832 22.3337,-16.6737 22.3070,-16.6692 22.3031,-16.6669 22.2956,-16.6592 22.2908,-16.6564 22.2874,-16.6583 22.2837,-16.6614 22.2741,-16.6636 22.2590,-16.6692 22.2513,-16.6700 22.2377,-16.6655 22.1517,-16.5977 22.1451,-16.5841 22.1425,-16.5671 22.1381,-16.5526 22.1273,-16.5464 22.1081,-16.5440 22.1040,-16.5367 22.1066,-16.5260 22.1073,-16.5123 22.1017,-16.4980 22.0846,-16.4702 22.0799,-16.4578 22.0807,-16.4410 22.0860,-16.4223 22.0943,-16.4047 22.1036,-16.3919 22.1056,-16.3794 22.0891,-16.3720 22.0558,-16.3646 22.0542,-16.3586 22.0537,-16.3365 22.0520,-16.3268 22.0486,-16.3224 22.0366,-16.3122 22.0322,-16.3063 22.0277,-16.2917 22.0260,-16.2790 22.0224,-16.2663 22.0117,-16.2523 22.0199,-16.2531 22.0452,-16.2523 22.0104,-16.1981 21.9838,-16.1659 21.9815,-16.1443 21.9815,-16.1282 21.9815,-16.0675 21.9815,-16.0040 21.9806,-16.0012 21.9808,-15.9561 21.9809,-15.8540 21.9812,-15.7520 21.9814,-15.6499 21.9815,-15.5478 21.9815,-15.5038 21.9815,-15.4735 21.9815,-15.4523 21.9815,-15.4125 21.9814,-15.2619 21.9813,-15.1112 21.9812,-14.9605 21.9811,-14.8098 21.9810,-14.6591 21.9809,-14.5084 21.9808,-14.3576 21.9807,-14.2069 21.9806,-14.0564 21.9805,-13.9056 21.9804,-13.7550 21.9804,-13.6948 21.9803,-13.6042 21.9802,-13.4535 21.9801,-13.3027 21.9800,-13.1522 21.9799,-13.0015 22.1042,-13.0015 22.2285,-13.0015 22.3528,-13.0015 22.4770,-13.0015 22.6012,-13.0015 22.7255,-13.0015 22.8498,-13.0015 22.9740,-13.0015 23.0984,-13.0015 23.2227,-13.0015 23.3469,-13.0015 23.4713,-13.0015 23.5956,-13.0015 23.7198,-13.0015 23.8442,-13.0015 23.9683,-13.0015 24.0006,-13.0015 23.9889,-12.9651 23.9718,-12.9334 23.9496,-12.9046 23.8951,-12.8498 23.8747,-12.8217 23.8657,-12.7897 23.8723,-12.7501 23.8917,-12.7051 23.9107,-12.6313 23.9287,-12.5616 23.9408,-12.5328 23.9861,-12.4677 24.0199,-12.4192 24.0280,-12.4021 24.0308,-12.3851 24.0210,-12.3400 24.0169,-12.2789 24.0066,-12.2537 23.9813,-12.2277 23.9596,-12.1967 23.9543,-12.1519 23.9610,-12.0117 23.9670,-11.8829 23.9885,-11.8342 23.9902,-11.8241 23.9855,-11.7995 23.9813,-11.7248 23.9727,-11.7006 23.9623,-11.6816 23.9546,-11.6622 23.9546,-11.6369 23.9599,-11.6172 23.9777,-11.5773 24.0054,-11.5352 24.0097,-11.5234 24.0098,-11.5072 24.0072,-11.4831 24.0076,-11.4705 24.0099,-11.4595 24.0208,-11.4446 24.0521,-11.4205 24.0617,-11.4070 24.0611,-11.3950 24.0170,-11.2984 24.0112,-11.2729 24.0153,-11.1305 23.9958,-11.1274 23.9901,-11.1135 23.9945,-11.0750 23.9937,-11.0196 23.9973,-11.0017 24.0037,-10.9825 24.0000,-10.9678 23.9806,-10.9383 23.9743,-10.9214 23.9675,-10.8723 23.9486,-10.8815 23.9406,-10.9016 23.9361,-10.9252 23.9280,-10.9454 23.9186,-10.9541 23.8973,-10.9665 23.8878,-10.9744 23.8818,-10.9845 23.8741,-11.0069 23.8674,-11.0164 23.8337,-11.0285 23.7937,-11.0211 23.7523,-11.0082 23.7141,-11.0039 23.6749,-11.0070 23.6416,-11.0045 23.5570,-10.9813 23.4948,-10.9643 23.4560,-10.9610 23.4154,-10.9633 23.3733,-10.9751 23.3065,-11.0117 23.1968,-11.0719 23.1147,-11.0855 23.0143,-11.1025 22.9696,-11.1025 22.9311,-11.0968 22.9112,-11.0883 22.8736,-11.0637 22.8531,-11.0531 22.8292,-11.0521 22.8069,-11.0631 22.7853,-11.0785 22.7642,-11.0905 22.7277,-11.0968 22.6890,-11.0930 22.6509,-11.0823 22.6136,-11.0675 22.5376,-11.0372 22.5010,-11.0424 22.4694,-11.1224 22.4403,-11.1469 22.3403,-11.1802 22.3257,-11.1903 22.2818,-11.2367 22.2631,-11.2482 22.2376,-11.2495 22.2520,-11.2086 22.2555,-11.1666 22.2438,-11.0783 22.2373,-11.0594 22.2206,-11.0300 22.2172,-11.0128 22.2140,-11.0079 22.1993,-10.9974 22.1961,-10.9923 22.1961,-10.9542 22.1748,-10.8843 22.1657,-10.8688 22.1655,-10.8524 22.1828,-10.8304 22.2060,-10.8099 22.2240,-10.7971 22.2659,-10.7799 22.2907,-10.7727 22.3097,-10.7698 22.3195,-10.7613 22.3224,-10.7422 22.3195,-10.7038 22.3210,-10.7007 22.3264,-10.6946 22.3101,-10.6688 22.3076,-10.6336 22.3095,-10.5929 22.3060,-10.5507 22.2964,-10.5297 22.2840,-10.5165 22.2740,-10.5030 22.2718,-10.4817 22.2787,-10.4610 22.3011,-10.4249 22.3060,-10.4098 22.3071,-10.3996 22.3123,-10.3799 22.3134,-10.3686 22.3101,-10.3570 22.2955,-10.3393 22.2869,-10.3091 22.2635,-10.2682 22.2457,-10.2212 22.2211,-10.1762 22.2028,-10.1306 22.2097,-10.0982 22.2049,-10.0858 22.1961,-10.0436 22.1756,-9.9889 22.1676,-9.9537 22.1599,-9.9315 22.1463,-9.9157 22.1076,-9.8914 22.0910,-9.8771 22.0799,-9.8716 22.0728,-9.8789 22.0658,-9.8810 22.0558,-9.8754 21.9984,-9.8091 21.9863,-9.7811 21.9844,-9.7488 21.9782,-9.7522 21.9627,-9.7585 21.9565,-9.7618 21.9424,-9.7229 21.8789,-9.6571 21.8541,-9.6178 21.8437,-9.5762 21.8322,-9.4884 21.8199,-9.4477 21.8132,-9.4375 21.7962,-9.4171 21.7920,-9.4061 21.7933,-9.3935 21.8038,-9.3730 21.8102,-9.3381 21.8411,-9.2758 21.8516,-9.2338 21.8519,-9.1929 21.8397,-9.0924 21.8541,-8.9778 21.8517,-8.9259 21.8599,-8.8464 21.8701,-8.8223 21.8778,-8.7892 21.8848,-8.7823 21.8951,-8.7187 21.9069,-8.6455 21.9178,-8.6152 21.9360,-8.5831 21.9284,-8.5825 21.9244,-8.5808 21.9213,-8.5786 21.9162,-8.5768 21.9400,-8.4999 21.9439,-8.4559 21.9360,-8.4130 21.9115,-8.3743 21.8999,-8.3488 21.9053,-8.3373 21.9206,-8.3290 21.9106,-8.3105 21.8814,-8.2821 21.8732,-8.2641 21.8625,-8.2164 21.8602,-8.1738 21.8573,-8.1569 21.8512,-8.1435 21.8260,-8.1144 21.8151,-8.0968 21.8085,-8.0767 21.8063,-8.0524 21.7996,-8.0409 21.7682,-8.0232 21.7585,-8.0151 21.7539,-7.9973 21.7511,-7.9292 21.7544,-7.9196 21.7688,-7.8999 21.7721,-7.8882 21.7709,-7.8765 21.7646,-7.8507 21.7705,-7.8068 21.7762,-7.7903 21.7872,-7.7586 21.7951,-7.7363 21.8079,-7.6994 21.8196,-7.6655 21.8266,-7.6456 21.8310,-7.6328 21.8329,-7.6142 21.8362,-7.6083 21.8508,-7.5936 21.8541,-7.5860 21.8541,-7.5484 21.8515,-7.5385 21.8482,-7.5330 21.8459,-7.5268 21.8467,-7.5143 21.8500,-7.5029 21.8591,-7.4826 21.8609,-7.4698 21.8586,-7.4640 21.8489,-7.4548 21.8467,-7.4491 21.8478,-7.4441 21.8530,-7.4350 21.8541,-7.4289 21.8516,-7.4165 21.8457,-7.4091 21.8387,-7.4020 21.8329,-7.3908 21.8350,-7.3853 21.8399,-7.3782 21.8424,-7.3699 21.8369,-7.3606 21.8314,-7.3542 21.8088,-7.3064 21.8025,-7.2989 21.7948,-7.2940 21.7883,-7.2918 21.7846,-7.2869 21.6828,-7.2831 21.6582,-7.2832 21.5855,-7.2834 21.5126,-7.2836 21.4400,-7.2838 21.3671,-7.2840 21.2943,-7.2842 21.2218,-7.2844 21.1489,-7.2846 21.0763,-7.2847 21.0035,-7.2849 20.9307,-7.2852 20.8580,-7.2853 20.7852,-7.2855 20.7126,-7.2859 20.6398,-7.2860 20.5670,-7.2862 20.5205,-7.2864 20.5194,-7.2372 20.5183,-7.1897 20.5245,-7.1431 20.5454,-7.0886 20.5609,-7.0478 20.5881,-6.9768 20.6115,-6.9160 20.5537,-6.9162 20.4673,-6.9164 20.3837,-6.9167 20.3311,-6.9168 20.3195,-6.9185 20.3112,-6.9251 20.3032,-6.9401 20.2986,-6.9545 20.2942,-6.9875 20.2943,-7.0019 20.2462,-7.0019 20.2041,-7.0019 20.1621,-7.0019 20.1201,-7.0019 20.0782,-7.0019 20.0361,-7.0019 19.9941,-7.0019 19.9815,-7.0019 19.9628,-7.0019 19.9591,-6.9696 19.9513,-6.9057 19.9409,-6.8642 19.9332,-6.8462 19.9181,-6.8199 19.8056,-6.6845 19.7480,-6.5913 19.7294,-6.5495 19.6898,-6.1980 19.6898,-6.1900 19.6911,-6.1837 19.6942,-6.1736 19.6974,-6.1562 19.6994,-6.1513 19.7029,-6.1477 19.7153,-6.1396 19.7325,-6.1223 19.7355,-6.1183 19.7378,-6.1138 19.7409,-6.1098 19.7449,-6.1069 19.7548,-6.1032 19.7681,-6.0949 19.7780,-6.0911 19.7820,-6.0883 19.7884,-6.0808 19.7919,-6.0775 19.7961,-6.0748 19.8061,-6.0708 19.8102,-6.0683 19.8232,-6.0554 19.8379,-6.0354 19.8415,-6.0321 19.8464,-6.0302 19.8641,-6.0272 19.8689,-6.0252 19.8728,-6.0221 19.8754,-6.0182 19.8826,-6.0053 19.8841,-6.0032 19.8866,-6.0018 19.8893,-6.0018 19.8948,-6.0027 19.9043,-6.0071 19.9085,-6.0079 19.9120,-6.0059 19.9147,-6.0031 19.9231,-5.9914 19.9249,-5.9897 19.9288,-5.9877 19.9340,-5.9868 19.9400,-5.9867 19.9567,-5.9891 19.9619,-5.9882 19.9667,-5.9863 19.9744,-5.9807 19.9812,-5.9744 19.9865,-5.9705 19.9949,-5.9659 20.0002,-5.9619 20.0021,-5.9597 20.0032,-5.9583 20.0047,-5.9554 20.0059,-5.9535 20.0087,-5.9504 20.0190,-5.9420 20.0208,-5.9398 20.0228,-5.9364 20.0317,-5.9069 20.0328,-5.9041 20.0371,-5.8972 20.0399,-5.8907 20.0447,-5.8771 20.0480,-5.8715 20.0534,-5.8653 20.0553,-5.8642 20.0592,-5.8625 20.0812,-5.8574 20.0858,-5.8554 20.1026,-5.8444 20.1087,-5.8391 20.1096,-5.8380 20.1181,-5.8016 20.1203,-5.7950 20.1222,-5.7924 20.1277,-5.7870 20.1395,-5.7785 20.1507,-5.7676 20.1532,-5.7641 20.1604,-5.7503 20.1658,-5.7359 20.1681,-5.7268 20.1697,-5.6963 20.1734,-5.6900 20.1779,-5.6805 20.1797,-5.6700 20.1811,-5.6502 20.1796,-5.6312 20.1785,-5.6256 20.1779,-5.6199 20.1768,-5.6144 20.1748,-5.6097 20.1697,-5.6011 20.1645,-5.5854 20.1604,-5.5758 20.1576,-5.5716 20.1532,-5.5623 20.1515,-5.5573 20.1501,-5.5518 20.1484,-5.3630 20.1498,-5.3499 20.1512,-5.3438 20.1530,-5.3397 20.1567,-5.3339 20.1625,-5.3270 20.1659,-5.3211 20.1693,-5.3130 20.1766,-5.2869 20.1779,-5.2853 20.1796,-5.2841 20.1853,-5.2809 20.1897,-5.2780 20.1943,-5.2733 20.1954,-5.2685 20.1910,-5.1546 20.1900,-5.1472 20.1779,-5.1114 20.1763,-5.0999 20.1748,-5.0948 20.1706,-5.0852 20.1664,-5.0689 20.1642,-5.0643 20.1611,-5.0604 20.1504,-5.0505 20.1468,-5.0451 20.1440,-5.0379 20.1415,-5.0249 20.1425,-5.0162 20.1443,-5.0082 20.1476,-4.9991 20.1476,-4.9927 20.1459,-4.9874 20.1184,-4.9532 20.1157,-4.9491 20.1113,-4.9395 20.1081,-4.9291 20.0967,-4.8579 20.0950,-4.8526 20.0903,-4.8434 20.0885,-4.8385 20.0824,-4.8102 20.0784,-4.8006 20.0727,-4.7925 20.0624,-4.7821 20.0596,-4.7779 20.0575,-4.7732 20.0554,-4.7658 20.0527,-4.7287 20.0545,-4.6893 20.0553,-4.6840 20.0578,-4.6803 20.0603,-4.6761 20.0643,-4.6654 20.0651,-4.6307 20.0634,-4.6100 20.0638,-4.5983 20.0652,-4.5915 20.0796,-4.5511 20.0818,-4.5476 20.0835,-4.5458 20.0866,-4.5438 20.0992,-4.5368 20.1007,-4.5352 20.1032,-4.5320 20.1172,-4.5042 20.1184,-4.5008 20.1186,-4.4981 20.1172,-4.4946 20.1147,-4.4907 20.1115,-4.4866 20.1079,-4.4833 20.0995,-4.4779 20.0958,-4.4747 20.0930,-4.4706 20.0911,-4.4641 20.0900,-4.4561 20.0891,-4.4346 20.0877,-4.4277 20.0855,-4.4231 20.0748,-4.4062 20.0646,-4.3820 20.0621,-4.3776 20.0592,-4.3736 20.0453,-4.3599 20.0425,-4.3541 20.0404,-4.3467 20.0356,-4.3047 20.0357,-4.2962 20.0365,-4.2895 20.0379,-4.2848 20.0454,-4.2751 20.0565,-4.2767 20.1087,-4.2733 20.1338,-4.2803 20.1653,-4.3154 20.1846,-4.3291 20.2021,-4.3206 20.2216,-4.3329 20.2322,-4.3453 20.2505,-4.3759 20.2662,-4.3906 20.2791,-4.3915 20.2938,-4.3861 20.3153,-4.3827 20.3292,-4.3858 20.3365,-4.3903 20.3424,-4.3893 20.3523,-4.3759 20.3566,-4.3657 20.3591,-4.3349 20.3655,-4.3124 20.3768,-4.2925 20.3939,-4.2782 20.4174,-4.2728 20.4228,-4.2748 20.4286,-4.2789 20.4349,-4.2817 20.4417,-4.2803 20.4451,-4.2753 20.4468,-4.2685 20.4476,-4.2622 20.4485,-4.2591 20.4606,-4.2532 20.4758,-4.2523 20.5170,-4.2442 20.5601,-4.2288 20.5991,-4.2081 20.6279,-4.1840 20.6339,-4.1732 20.6380,-4.1622 20.6446,-4.1534 20.6580,-4.1499 20.6612,-4.1469 20.6709,-4.1308 20.6755,-4.1111 20.6777,-4.0938 20.6690,-3.9222 20.6609,-3.8652 20.6640,-3.7455 20.6424,-3.5084 20.6552,-3.3269 20.6647,-3.2803 20.8414,-2.8275 20.8781,-2.7767 20.9267,-2.7276 20.9394,-2.7109 20.9522,-2.6869 20.9576,-2.6703 20.9598,-2.6565 20.9584,-2.6171 20.9601,-2.5943 20.9635,-2.5781 20.9686,-2.5615 21.0071,-2.4888 21.1821,-2.5106 21.2574,-2.5118 21.2880,-2.5089 21.3115,-2.5027 21.3226,-2.4987 21.4168,-2.4800 21.4414,-2.4693 21.4540,-2.4566 21.4655,-2.3548 21.4703,-2.3421 21.4748,-2.3390 21.4799,-2.3390 21.5117,-2.3550 21.5217,-2.3588 21.5452,-2.3631 21.5503,-2.3647 21.5549,-2.3671 21.5617,-2.3740 21.5709,-2.3854 21.5933,-2.4052 21.6020,-2.4107 21.6068,-2.4128 21.6416,-2.4200 21.6463,-2.4222 21.6497,-2.4256 21.6585,-2.4374 21.6658,-2.4439 21.6823,-2.4549 21.6866,-2.4574 21.7254,-2.4733 21.7409,-2.4774 21.7507,-2.4815 21.7589,-2.4869 21.7727,-2.4990 21.7781,-2.5028 21.8111,-2.5173 21.8157,-2.5202 21.8217,-2.5219 21.8303,-2.5229 21.8883,-2.4966 21.8991,-2.4904 21.9149,-2.4793 21.9194,-2.4745 21.9586,-2.4221 21.9698,-2.4117 22.0233,-2.3857 22.0460,-2.3719 22.0732,-2.3486 22.0820,-2.3388 22.1101,-2.2992 22.1239,-2.2881 22.1383,-2.2824 22.1574,-2.2835 22.1676,-2.2877 22.1767,-2.2966 22.1830,-2.3073 22.1881,-2.3231 22.1905,-2.3393 22.1855,-2.4116 22.1874,-2.4269 22.1920,-2.4403 22.1990,-2.4512 22.2089,-2.4608 22.2193,-2.4680 22.2356,-2.4709 22.2541,-2.4672 22.2783,-2.4510 22.2885,-2.4356 22.2926,-2.4185 22.2916,-2.4031 22.2290,-2.1801 22.2165,-2.0762 22.2074,-2.0362 22.1739,-1.9553 22.1699,-1.9417 22.1687,-1.9308 22.1689,-1.9245 22.1693,-1.9215 22.1721,-1.9167 22.1761,-1.9139 22.1835,-1.9123 22.2817,-1.9419 22.3278,-1.9499 22.4795,-1.9598 22.4971,-1.9588 22.5095,-1.9561 22.5259,-1.9474 22.5366,-1.9382 22.5476,-1.9247 22.6066,-1.8277 22.6243,-1.8087 22.6318,-1.8084 22.6363,-1.8106 22.6408,-1.8134 22.6456,-1.8140 22.6589,-1.8101 22.6691,-1.8085 22.6732,-1.8075 22.6768,-1.8075 22.6827,-1.8083 22.6917,-1.8117 22.7103,-1.8239 22.7435,-1.8388 22.7517,-1.8444 22.7553,-1.8477 22.7595,-1.8508 22.7643,-1.8529 22.7702,-1.8540 22.8096,-1.8559 22.8152,-1.8569 22.8203,-1.8586 22.8251,-1.8610 22.8328,-1.8668 22.8370,-1.8692 22.8476,-1.8725 22.8706,-1.8840 22.9024,-1.9070 22.9059,-1.9105 22.9091,-1.9142 22.9340,-1.9572 22.9382,-1.9593 22.9441,-1.9579 23.0006,-1.9338 23.0129,-1.9321 23.0313,-1.9311 23.0625,-1.9327 23.0816,-1.9359 23.0971,-1.9403 23.1095,-1.9467 23.1219,-1.9548 23.1344,-1.9650 23.1536,-1.9871 23.1632,-2.0004 23.2008,-2.0639 23.2113,-2.0736 23.2242,-2.0783 23.2407,-2.0733 23.2531,-2.0672 23.2633,-2.0609 23.5426,-2.0061 23.5682,-2.0054 23.5928,-2.0068 23.6661,-2.0184 23.6782,-2.0184 23.6888,-2.0152 23.6925,-2.0079 23.6939,-2.0023 23.6932,-1.9665 23.7011,-1.9507 23.7183,-1.9308 23.7583,-1.9109 23.7738,-1.8963 23.7824,-1.8836 23.7833,-1.8192 23.7858,-1.8066 23.7917,-1.7943 23.8015,-1.7836 23.8126,-1.7754 23.8277,-1.7693 23.8503,-1.7662 23.8842,-1.7647 23.9289,-1.7672 23.9860,-1.7650 23.9987,-1.7612 24.0120,-1.7537 24.0400,-1.7488 24.0828,-1.7462 24.4215,-1.7868 24.3900,-1.5930 24.3713,-1.5302 24.3642,-1.5138 24.3396,-1.4746 24.3051,-1.4016 24.2930,-1.3895 24.2802,-1.3830 24.2676,-1.3816 24.1410,-1.3891 24.1171,-1.3864 24.0932,-1.3808 24.0700,-1.3723 23.9843,-1.3254 23.8359,-1.2036 23.8235,-1.1965 23.7780,-1.1774 23.7679,-1.1673 23.7613,-1.1563 23.7459,-1.1144 23.7318,-1.0920 23.7192,-1.0795 23.7057,-1.0688 23.6537,-1.0372 23.5687,-0.9994 23.4069,-0.8649 23.3826,-0.8370 23.3673,-0.8140 23.3659,-0.7990 23.3724,-0.7866 23.4945,-0.6939 23.5114,-0.6863 23.5609,-0.6724 23.5890,-0.6671 23.6016,-0.6628 23.6129,-0.6559 23.6211,-0.6467 23.6236,-0.6359 23.6177,-0.6254 23.5746,-0.5863 23.4799,-0.4635 23.4611,-0.4459 23.4452,-0.4380 23.4334,-0.4400 23.2953,-0.4899 23.2811,-0.4917 23.2666,-0.4905 23.2497,-0.4830 23.2394,-0.4694 23.2180,-0.4344 23.2056,-0.4265 23.1927,-0.4226 22.9936,-0.4092 22.9846,-0.4070 22.9794,-0.4035 22.9842,-0.3969 23.0922,-0.3059 23.1174,-0.2885 23.1300,-0.2822 23.1420,-0.2784 23.1552,-0.2777 23.1669,-0.2790 23.1904,-0.2857 23.2532,-0.3102 23.2663,-0.3136 23.2799,-0.3151 23.2931,-0.3137 23.3048,-0.3075 23.3148,-0.2975 23.3238,-0.2868 23.3348,-0.2778 23.3469,-0.2731 23.3715,-0.2686 23.3834,-0.2652 23.3949,-0.2595 23.4056,-0.2481 23.4091,-0.2323 23.4067,-0.2148 23.3969,-0.1898 23.2473,0.0323 23.1423,0.1538 23.1230,0.1840 23.0894,0.2590 23.0836,0.2718 23.0717,0.2889 22.9972,0.3759 22.9732,0.4137 22.9464,0.4789 22.9388,0.5101 22.9306,0.5661 22.9184,0.6007 22.9140,0.6082 22.8975,0.6259 22.8709,0.6601 22.8589,0.6785 22.8532,0.6969 22.8510,0.7085 22.8538,0.7633 22.8585,0.7940 22.8540,0.8092 22.8378,0.8429 22.8310,0.8638 22.8187,0.8915 22.8172,0.8967 22.8177,0.9014 22.8189,0.9069 22.8195,0.9135 22.8127,0.9395 22.8125,0.9456 22.8132,0.9515 22.8177,0.9674 22.8177,0.9753 22.8163,0.9847 22.8118,0.9998 22.8082,1.0076 22.7832,1.0411 22.7781,1.0508 22.7748,1.0607 22.7733,1.0694 22.7692,1.0819 22.7646,1.0884 22.7581,1.0938 22.7545,1.0982 22.7520,1.1031 22.7458,1.1230 22.7369,1.1427 22.7295,1.1641 22.7031,1.2080 22.6985,1.2141 22.6876,1.2244 22.6790,1.2351 22.6653,1.2703 22.6563,1.2844 22.6299,1.3472 22.6217,1.3583 22.6139,1.3644 22.6065,1.3676 22.5984,1.3735 22.5868,1.3878 22.5798,1.3946 22.5737,1.3994 22.5652,1.4045 22.5610,1.4085 22.5428,1.4304 22.5346,1.4360 22.5070,1.4492 22.5034,1.4517 22.4926,1.4621 22.4881,1.4645 22.4826,1.4655 22.4712,1.4658 22.4661,1.4671 22.4612,1.4689 22.4515,1.4741 22.4463,1.4782 22.4396,1.4847 22.4341,1.4882 22.4276,1.4897 22.4159,1.4905 22.4014,1.4957 22.3970,1.4968 22.3939,1.4970 22.3850,1.4963 22.3818,1.4965 22.3776,1.4974 22.3656,1.5040 22.3632,1.5044 22.3593,1.5040 22.3529,1.5010 22.3518,1.5004 22.3495,1.4994 22.3472,1.4988 22.3451,1.4985 22.3435,1.4987 22.3301,1.5032 22.3257,1.5043 22.3228,1.5044 22.2966,1.5003 22.2947,1.5005 22.2932,1.5018 22.2899,1.5059 22.2909,1.5134 22.2937,1.5235 22.2985,1.5344 22.3048,1.5458 22.3129,1.5576 22.3349,1.5793 22.4080,1.6256 22.4331,1.6470 22.4561,1.6704 22.4651,1.6820 22.4721,1.6944 22.4778,1.7072 22.4867,1.7342 22.5110,1.8972 22.5179,1.9170 22.5798,2.0330 22.5818,2.0445 22.5824,2.0593 22.5753,2.0856 22.5742,2.0987 22.5761,2.1101 22.5849,2.1164 22.5959,2.1172 22.6091,2.1139 22.6524,2.0955 22.6584,2.0918 22.6648,2.0867 22.6715,2.0783 22.6909,2.0466 22.6983,2.0377 22.7038,2.0333 22.7070,2.0316 22.7097,2.0316 22.7137,2.0322 22.7191,2.0324 22.7247,2.0318 22.7298,2.0304 22.7344,2.0280 22.7382,2.0250 22.7449,2.0180 22.7486,2.0149 22.7523,2.0125 22.7564,2.0112 22.7588,2.0111 22.7624,2.0118 22.7723,2.0156 22.7886,2.0191 22.7994,2.0236 22.8080,2.0289 22.8125,2.0308 22.8184,2.0314 22.8360,2.0311 22.8392,2.0324 22.8415,2.0344 22.8462,2.0418 22.8493,2.0446 22.8531,2.0457 22.8596,2.0464 22.8614,2.0477 22.8634,2.0514 22.8639,2.0564 22.8650,2.0610 22.8662,2.0633 22.8698,2.0654 22.8803,2.0668 22.8822,2.0675 22.8845,2.0690 22.8865,2.0724 22.8872,2.0760 22.8867,2.0904 22.8873,2.0957 22.8886,2.0981 22.8920,2.1001 22.8968,2.1009 22.9019,2.1003 22.9071,2.0990 22.9125,2.0983 22.9178,2.0989 22.9221,2.1012 22.9257,2.1043 22.9343,2.1152 22.9362,2.1200 22.9367,2.1258 22.9351,2.1388 22.9357,2.1456 22.9368,2.1493 22.9452,2.1538 22.9478,2.1558 22.9498,2.1567 22.9537,2.1576 22.9640,2.1569 22.9688,2.1574 22.9716,2.1605 22.9725,2.1644 22.9721,2.1734 22.9724,2.1795 22.9744,2.1827 22.9775,2.1839 22.9826,2.1835 22.9877,2.1810 22.9927,2.1769 23.0551,2.1103 23.0668,2.1021 23.0787,2.0973 23.0914,2.0959 23.1052,2.0977 23.1299,2.1083 23.2251,2.1649 23.3305,2.2442 23.3432,2.2492 23.3547,2.2505 23.5100,2.2232 23.5335,2.2166 23.5938,2.1895 23.6052,2.1862 23.6165,2.1841 23.6285,2.1835 23.6387,2.1865 23.6469,2.1949 23.6478,2.2139 23.6392,2.2859 23.6331,2.3105 23.6253,2.3296 23.6149,2.3400 23.5420,2.3930 23.4470,2.4373 23.4224,2.4539 23.4094,2.4658 23.3907,2.4887 23.3826,2.5009 23.3786,2.5057 23.3702,2.5138 23.3600,2.5220 23.3490,2.5285 23.3413,2.5317 23.3316,2.5341 23.3103,2.5351 23.2939,2.5334 23.1511,2.5034 23.1384,2.5029 23.1271,2.5036 23.1165,2.5055 23.0998,2.5111 23.0889,2.5162 23.0771,2.5231 23.0640,2.5326 23.0389,2.5581 22.9826,2.6294 22.9690,2.6531 22.9643,2.6695 22.9656,2.6838 22.9716,2.6960 22.9935,2.7317 22.9963,2.7491 22.9852,2.8379 22.9860,2.8574 22.9897,2.8685 22.9958,2.8790 23.0144,2.9046 23.0200,2.9163 23.0239,2.9278 23.0275,2.9643 23.0306,2.9770 23.0351,2.9887 23.0636,3.0461 23.0746,3.0773 23.0782,3.0943 23.0799,3.1127 23.0782,3.1389 23.0714,3.1549 23.0614,3.1662 23.0503,3.1707 23.0385,3.1720 23.0261,3.1703 23.0148,3.1671 23.0043,3.1627 22.9973,3.1586 22.9764,3.1427 22.9542,3.1223 22.8743,3.0233 22.8555,3.0051 22.8503,3.0011 22.8458,2.9986 22.8377,2.9956 22.8279,2.9949 22.8180,2.9964 22.8116,2.9992 22.8065,3.0041 22.7997,3.0131 22.7883,3.0328 22.7832,3.0479 22.7801,3.0634 22.7795,3.0890 22.7977,3.2053 22.7978,3.2240 22.7941,3.2510 22.7864,3.2677 22.7761,3.2801 22.7646,3.2873 22.7533,3.2928 22.7300,3.3001 22.6797,3.3095 22.6679,3.3133 22.6557,3.3198 22.6434,3.3302 22.6316,3.3478 22.6276,3.3650 22.6274,3.3860 22.6339,3.4023 22.6415,3.4165 22.6510,3.4270 22.6584,3.4374 22.6682,3.4461 22.6786,3.4528 22.7762,3.4861 22.8509,3.5045 22.8633,3.5092 22.8909,3.5241 22.9044,3.5335 22.9168,3.5406 22.9291,3.5442 22.9693,3.5364 22.9869,3.5352 22.9978,3.5358 23.0065,3.5371 23.0161,3.5400 23.0378,3.5496 23.0496,3.5577 23.1373,3.6519 23.1598,3.6695 23.1713,3.6750 23.1828,3.6755 23.1943,3.6723 23.2065,3.6645 23.2178,3.6546 23.2301,3.6457 23.2425,3.6415 23.2545,3.6402 23.2774,3.6416 23.2890,3.6408 23.3009,3.6387 23.3130,3.6332 23.3337,3.6159 23.3452,3.6114 23.3569,3.6119 23.3696,3.6172 23.3814,3.6253 23.3924,3.6368 23.4314,3.6883 23.4419,3.6997 23.4754,3.7277 23.4852,3.7384 23.4920,3.7486 23.4973,3.7582 23.5038,3.7746 23.5106,3.8012 23.5122,3.8169 23.5100,3.8214 23.5027,3.8230 23.4927,3.8204 23.4820,3.8193 23.4706,3.8197 23.4311,3.8302 23.4259,3.8306 23.4084,3.8375 23.3915,3.8306 23.3730,3.8194 23.3509,3.8135 23.3455,3.8157 23.3404,3.8204 23.3337,3.8250 23.3149,3.8283 23.3002,3.8329 23.2890,3.8340 23.2726,3.8394 23.2420,3.8628 23.2158,3.8713 23.2042,3.8855 23.1929,3.8887 23.1801,3.8886 23.1705,3.8896 23.1610,3.8936 23.1491,3.9023 23.1341,3.8946 23.1185,3.8905 23.0839,3.8887 23.0724,3.8856 23.0392,3.8607 23.0060,3.8826 22.9860,3.8893 22.9772,3.8787 22.9089,3.8545 22.8867,3.8554 22.8397,3.8659 22.8356,3.8727 22.8034,3.8845 22.7911,3.8913 22.7788,3.9018 22.7675,3.9179 22.7550,3.9827 22.7466,3.9881 22.7363,3.9894 22.7132,3.9899 22.7014,3.9931 22.6914,3.9968 22.6858,3.9998 22.5627,4.0998 22.5467,4.1092 22.5363,4.1132 22.4943,4.1227 22.4746,4.1317 22.4538,4.1448 22.4515,4.1467 22.4574,4.1491 22.4927,4.1740 22.5105,4.1913 22.5182,4.2068 22.5222,4.2113 22.5405,4.2273 22.5461,4.2372 22.5457,4.2459 22.5397,4.2669 22.5393,4.2782 22.5686,4.3315 22.5765,4.3408 22.5880,4.3442 22.5999,4.3526 22.6093,4.3634 22.6137,4.3744 22.6113,4.3819 22.5940,4.4023 22.5890,4.4220 22.5870,4.4494 22.5924,4.4737 22.6103,4.4842 22.6544,4.4828 22.6756,4.4847 22.6895,4.4917 22.6951,4.5015 22.6971,4.5120 22.6970,4.5357 22.7001,4.5411 22.7137,4.5512 22.7168,4.5565 22.7190,4.5628 22.7287,4.5803 22.7311,4.5873 22.7298,4.5967 22.7238,4.6170 22.7236,4.6288 22.7379,4.6378 22.7487,4.6483 22.7574,4.6608 22.7652,4.6760 22.7764,4.7101 22.7860,4.7246 22.8029,4.7306 22.8181,4.7246 22.8373,4.7142 22.8538,4.7113 22.8653,4.7387 22.8873,4.7555 22.8956,4.7654 22.8868,4.7767 22.8824,4.7885 22.8829,4.8007 22.8888,4.8132 22.8984,4.8236 22.9059,4.8242 22.9152,4.8212 22.9297,4.8206 22.9415,4.8247 22.9530,4.8308 22.9650,4.8353 22.9774,4.8343 22.9857,4.8264 22.9962,4.7995 23.0072,4.7784 23.0111,4.7636 23.0173,4.7505 23.0293,4.7449 23.0428,4.7430 23.0552,4.7378 23.0666,4.7302 23.0774,4.7211 23.0994,4.7117 23.1239,4.7156 23.1687,4.7381 23.1837,4.7253 23.2086,4.6905 23.2208,4.6835 23.2242,4.6801 23.2518,4.6630 23.2649,4.6351 23.2731,4.6320 23.2951,4.6276 23.2996,4.6251 23.3020,4.6217 23.3130,4.6102 23.3164,4.6077 23.3359,4.6068 23.3540,4.6036 23.3712,4.5973 23.3884,4.5873 23.3960,4.5916 23.4145,4.5908 23.4226,4.5941 23.4274,4.6013 23.4284,4.6086 23.4283,4.6173 23.4300,4.6288 23.4372,4.6466 23.4483,4.6594 23.4651,4.6672 23.4884,4.6698 23.5061,4.6764 23.5666,4.7244 23.5880,4.7339 23.6340,4.7451 23.6727,4.7672 23.6928,4.7734 23.7379,4.7791 23.7600,4.7874 23.7985,4.8147 23.8167,4.8206 23.8282,4.8193 23.8479,4.8140 23.8552,4.8132 23.8644,4.8161 23.8747,4.8250 23.8819,4.8269 23.9244,4.8178 23.9483,4.8177 23.9474,4.8306 23.9428,4.8405 23.9432,4.8517 23.9465,4.8616 23.9508,4.8678 23.9571,4.8708 23.9631,4.8687 23.9780,4.8541 23.9958,4.8651 24.0469,4.8889 24.0725,4.9103 24.0896,4.9202 24.1084,4.9231 24.1199,4.9189 24.1392,4.9054 24.1528,4.9026 24.1629,4.9078 24.1909,4.9442 24.2096,4.9562 24.2298,4.9612 24.2462,4.9541 24.2530,4.9299 24.2592,4.9299 24.2677,4.9357 24.2696,4.9432 24.2697,4.9525 24.2730,4.9640 24.2846,4.9924 24.2865,4.9951 24.2966,5.0033 24.3685,5.0124 24.3861,5.0224 24.3986,5.0360 24.3969,5.0482 24.3720,5.0534 24.3612,5.0629 24.3678,5.0845 24.3825,5.1079 24.3964,5.1223 24.4016,5.1115 24.4115,5.0819 24.4169,5.0733 24.4307,5.0674 24.4335,5.0755 24.4331,5.0893 24.4367,5.1006 24.4596,5.1074 24.4872,5.1008 24.5137,5.0872 24.5330,5.0733 24.5387,5.0656 24.5474,5.0465 24.5535,5.0391 24.5634,5.0349 24.5886,5.0311 24.6012,5.0261 24.6101,5.0167 24.6100,4.9967 24.6155,4.9851 24.6275,4.9769 24.6569,4.9673 24.6708,4.9572 24.6574,4.9398 24.6542,4.9294 24.6644,4.9244 24.7306,4.9175 24.7498,4.9187 24.7664,4.9299 24.7783,4.9185 24.7894,4.9199 24.8001,4.9289 24.8110,4.9404 24.8195,4.9445 24.8277,4.9419 24.8369,4.9377 24.8483,4.9367 24.8682,4.9444 24.9044,4.9668 24.9271,4.9715 24.9324,4.9744 24.9509,4.9877 24.9581,4.9914 24.9694,4.9914 25.0065,4.9809 25.0406,4.9621 25.0761,4.9518 25.0848,4.9542 25.0905,4.9745 25.1009,4.9946 25.1053,4.9988 25.1143,5.0018 25.1217,5.0086 25.1295,5.0186 25.1402,5.0180 25.1476,5.0141 25.1546,5.0093 25.1637,5.0056 25.2275,5.0096 25.2393,5.0155 25.2485,5.0241 25.2923,5.0283 25.3076,5.0323 25.3168,5.0423 25.3210,5.0523 25.3219,5.0770 25.3250,5.0881 25.3392,5.1052 25.3424,5.1115 25.3438,5.1219 25.3493,5.1417 25.3486,5.1490 25.3412,5.1556 25.3215,5.1592 25.3145,5.1633 25.3077,5.1853 25.3162,5.2022 25.3289,5.2160 25.3355,5.2284 25.3372,5.2517 25.3434,5.2719 25.3559,5.2864 25.3765,5.2930 25.3637,5.3106 25.3707,5.3168 25.3854,5.3215 25.3957,5.3340 25.4134,5.3236 25.4351,5.3287 25.4569,5.3406 25.4799,5.3532 25.4820,5.3569 25.4849,5.3553 25.4956,5.3445 25.5045,5.3423 25.5290,5.3519 25.5408,5.3544 25.5328,5.3722 25.5437,5.3753 286,2.0,Arctic Ocean 37.5369,82.9985 37.5369,82.5108 37.5370,82.0231 37.5370,81.5354 37.5370,81.0477 37.0449,81.0485 36.5528,81.0493 36.0606,81.0501 35.5685,81.0508 35.5683,80.6423 35.5681,80.2337 35.5679,79.8251 35.5677,79.4166 35.5675,79.0080 36.0597,79.0072 36.5520,79.0064 37.0442,79.0057 37.5364,79.0049 37.5366,78.5056 37.5368,78.0063 37.5369,77.5071 37.5371,77.0078 37.5373,76.5085 37.5375,76.0093 37.5376,75.5100 37.5378,75.0107 37.5380,74.5114 37.5381,74.0122 37.5383,73.5129 37.5385,73.0136 37.5386,72.5143 37.5388,72.0151 37.5390,71.5158 37.5391,71.0165 37.5393,70.5172 37.5395,70.0180 37.5396,69.5187 37.5398,69.0194 37.3758,69.0605 37.1153,69.1370 36.9980,69.1664 36.8145,69.2124 36.6314,69.2721 36.4278,69.3137 36.2103,69.3700 35.9980,69.4033 35.5888,69.4677 35.4628,69.4823 35.3002,69.4902 35.1568,69.4913 34.9980,69.4791 34.9065,69.4721 34.7797,69.5203 34.6375,69.5631 34.5163,69.5905 34.3858,69.6100 34.1918,69.6191 33.9980,69.6096 33.8811,69.6039 33.7518,69.6300 33.7334,69.6379 33.7252,69.6576 33.7402,69.7427 33.7220,69.7844 33.6602,69.8423 33.5652,69.8896 33.4801,69.9157 33.3779,69.9374 33.1481,69.9756 32.9980,69.9924 32.9434,69.9985 32.9323,69.9997 32.7343,70.0515 32.5781,70.0784 32.4789,70.1175 32.3620,70.1475 32.2380,70.1668 32.0907,70.1789 31.9980,70.1804 31.9413,70.1814 31.8108,70.1749 31.7455,70.1659 31.6495,70.2030 31.6639,70.2123 31.6962,70.2759 31.6829,70.4009 31.6205,70.4672 31.4741,70.5651 31.3357,70.6172 31.1279,70.6602 30.9811,70.7066 30.8310,70.7391 30.7665,70.7839 30.7006,70.8158 30.4798,70.8807 30.2983,70.9127 30.0681,70.9288 29.8078,70.9546 29.6595,71.0092 29.4286,71.0589 29.2926,71.0807 29.0826,71.1009 28.9286,71.1561 28.8194,71.1806 28.7985,71.1854 28.6648,71.2364 28.5088,71.2715 28.4032,71.2858 28.2835,71.2948 28.0510,71.2930 27.9105,71.3208 27.7794,71.3340 27.6517,71.3382 27.5387,71.3349 27.4212,71.3235 27.3129,71.3050 27.0685,71.2355 26.8840,71.2000 26.7494,71.1672 26.4760,71.2716 26.3938,71.2949 26.0530,71.3500 25.8522,71.3698 25.6556,71.3755 25.4638,71.3665 25.2646,71.3401 25.0763,71.2991 24.7906,71.3192 24.6661,71.3185 24.5435,71.3111 24.3631,71.2859 24.1784,71.2361 24.1000,71.2333 23.8589,71.2369 23.6716,71.2177 23.5638,71.1959 23.4650,71.1668 23.2733,71.0795 23.0304,71.0539 22.6298,70.9672 22.5444,70.9540 22.5446,71.4532 22.5448,71.9524 22.5451,72.4516 22.5453,72.9508 22.5455,73.4500 22.5458,73.9492 22.5460,74.4484 22.5462,74.9476 22.5464,75.4468 23.0441,75.4460 23.5418,75.4453 24.0395,75.4445 24.5372,75.4437 25.0349,75.4429 25.5326,75.4421 26.0303,75.4413 26.5280,75.4405 27.0257,75.4398 27.5234,75.4390 28.0211,75.4382 28.5188,75.4374 29.0165,75.4366 29.5142,75.4358 30.0119,75.4350 30.5096,75.4342 31.0073,75.4335 31.5050,75.4327 32.0027,75.4319 32.5004,75.4311 32.9981,75.4303 33.4373,75.4324 33.8766,75.4344 34.3158,75.4365 34.7550,75.4385 34.7553,75.9187 34.7556,76.3989 34.7558,76.8791 34.7561,77.3593 34.7564,77.8395 34.7567,78.3197 34.7569,78.7999 34.7572,79.2801 34.7575,79.7603 34.7578,80.2405 34.7580,80.7207 34.7582,81.0631 34.2698,81.0635 33.7813,81.0638 33.2928,81.0641 32.8044,81.0645 32.3159,81.0648 31.8274,81.0651 31.3390,81.0654 30.8505,81.0658 30.3621,81.0661 29.8736,81.0664 29.3851,81.0668 28.8967,81.0671 28.4082,81.0674 27.9197,81.0678 27.4313,81.0681 26.9428,81.0684 26.4543,81.0688 25.9659,81.0691 25.4774,81.0694 24.9889,81.0698 24.5005,81.0701 24.0120,81.0704 23.5235,81.0708 23.0351,81.0711 22.5466,81.0714 22.5466,81.5053 22.5466,81.5182 22.5466,81.9996 22.5466,82.4811 22.5466,82.9625 22.5466,83.4439 22.5466,83.9253 22.5466,84.4067 22.5466,84.8881 22.5466,84.8892 22.5466,84.9011 22.5466,85.3635 22.5466,85.8260 22.5466,86.2884 22.5466,86.7509 22.5466,87.2134 22.5466,87.6758 22.5466,88.1383 22.5466,88.6007 22.5466,89.0632 22.5466,89.5256 22.5466,89.9881 22.5466,89.9892 22.5466,90.0000 22.9875,90.0000 23.4284,90.0000 23.8693,90.0000 24.3102,90.0000 24.7511,90.0000 25.1920,90.0000 25.6328,90.0000 26.0737,90.0000 26.5146,90.0000 26.9555,90.0000 27.3964,90.0000 27.8373,90.0000 28.2782,90.0000 28.7191,90.0000 29.1600,90.0000 29.6009,90.0000 30.0418,90.0000 30.4826,90.0000 30.9235,90.0000 31.3644,90.0000 31.8053,90.0000 32.2462,90.0000 32.6871,90.0000 33.1280,90.0000 33.5689,90.0000 34.0098,90.0000 34.4507,90.0000 34.8916,90.0000 35.3324,90.0000 35.7733,90.0000 36.2142,90.0000 36.6551,90.0000 37.0960,90.0000 37.5369,90.0000 37.5369,89.5365 37.5369,89.0729 37.5369,88.6094 37.5369,88.1458 37.5369,87.6823 37.5369,87.2188 37.5369,86.7552 37.5369,86.2917 37.5369,85.8281 37.5369,85.3646 37.5369,84.9011 37.5369,84.9000 37.5369,84.4246 37.5369,83.9493 37.5369,83.4739 37.5369,82.9985 1921,9.0,Asia/Tokyo 141.1084,45.8447 141.3514,45.8089 141.4916,45.8470 141.6206,45.7858 141.9686,45.7185 142.3764,45.6395 142.5152,45.6230 142.5152,45.3076 142.6795,45.1555 142.7862,45.0169 142.9679,44.8468 143.2066,44.6696 143.5098,44.5000 143.5693,44.4387 143.7104,44.3860 143.9312,44.3257 144.3644,44.2540 144.4515,44.2033 144.5053,44.1080 144.5565,44.0917 144.6621,44.0813 144.7038,44.0857 144.8568,44.2163 144.9977,44.3112 145.1647,44.4583 145.2546,44.4991 145.3223,44.5088 145.3907,44.5048 145.4546,44.4872 145.5044,44.4597 145.5792,44.3645 145.5891,44.3019 145.5974,44.2499 145.5781,44.2178 145.5332,44.1427 145.4988,44.1065 145.4421,44.0642 145.4043,44.0175 145.3617,43.9807 145.3404,43.9623 145.2745,43.9053 145.2521,43.8693 145.2462,43.8176 145.2423,43.7834 145.2628,43.7317 145.3318,43.6817 145.4024,43.6487 145.4613,43.5991 145.4800,43.5782 145.5387,43.5123 145.6065,43.5273 145.6623,43.5396 145.6877,43.5453 145.7058,43.5273 145.7100,43.5232 145.7803,43.4538 145.8408,43.4171 145.8463,43.3704 145.8919,43.2854 145.9045,43.2619 145.9140,43.2196 145.7748,43.1539 145.6400,43.0257 145.5491,43.0018 145.4228,43.0129 145.3777,43.0080 145.2656,42.9248 145.1103,42.8392 144.9581,42.8185 144.8627,42.7767 144.7739,42.7585 144.5959,42.7765 144.4478,42.7684 144.2557,42.8121 144.1843,42.7977 144.0918,42.7502 143.7904,42.5338 143.6053,42.3333 143.5567,42.2439 143.5575,42.0932 143.5309,42.0093 143.4470,41.8520 143.4069,41.8123 143.3495,41.7798 143.2307,41.7586 143.1164,41.7833 142.8805,41.9368 142.5952,42.0289 142.5148,42.0605 142.5148,41.6438 142.5148,41.2271 142.5147,40.8104 142.5147,40.3937 142.5147,40.2067 142.5146,39.7142 142.5146,39.2218 142.5145,38.7293 142.5145,38.2368 142.5144,37.7443 142.5144,37.2519 142.5143,36.7594 142.5143,36.2669 142.5142,35.7745 142.5142,35.2820 142.5141,34.7895 142.5141,34.2971 142.5141,33.8046 142.5140,33.3121 142.5140,32.8197 142.5139,32.3272 142.5139,31.8347 142.5138,31.3423 142.5138,30.8498 142.5137,30.3573 142.5137,29.8649 142.5136,29.3724 142.5136,28.8799 142.5135,28.3875 142.5135,27.8950 142.5134,27.4025 142.5134,26.9100 142.5134,26.4176 142.5133,25.9251 142.5133,25.4326 142.5132,24.9402 142.5132,24.4477 142.5131,23.9552 142.5131,23.4628 142.5130,22.9703 142.5130,22.4778 142.5129,21.9854 142.5129,21.4929 142.5128,21.0004 142.5128,20.5080 142.5127,20.0155 142.5127,19.5230 142.5126,19.0306 142.5126,18.5381 142.5126,18.0456 142.5125,17.5532 142.5125,17.0607 142.0471,17.0606 141.5817,17.0606 141.1163,17.0605 140.6509,17.0605 140.1855,17.0604 139.7201,17.0603 139.2548,17.0603 138.7894,17.0602 138.3240,17.0602 137.8586,17.0601 137.3932,17.0600 136.9278,17.0600 136.4624,17.0599 135.9971,17.0599 135.9971,16.5762 135.9971,16.0925 135.9971,15.6088 135.9971,15.1251 135.9971,14.6414 135.9971,14.1577 135.9971,13.6740 135.9971,13.1903 135.9971,12.7066 135.9971,12.2229 135.9971,11.7392 135.9971,11.2555 135.9971,10.7718 135.9971,10.2881 135.9971,9.8044 135.9971,9.3207 135.9971,8.8370 135.9971,8.3533 135.9971,7.8696 135.9971,7.3859 135.9971,6.9022 135.9971,6.4185 135.9971,5.9348 135.9971,5.4511 135.9971,4.9674 135.9971,4.4837 135.9971,4.0000 136.4624,4.0000 136.9277,3.9999 137.3930,3.9999 137.8583,3.9999 138.3235,3.9998 138.7888,3.9998 139.2541,3.9998 139.7194,3.9997 140.1847,3.9997 140.6500,3.9997 141.1153,3.9997 141.5806,3.9996 142.0459,3.9996 142.5112,3.9996 142.5112,3.5296 142.5111,3.0596 142.5111,2.5897 142.5110,2.1197 142.5110,1.6498 142.5109,1.1798 142.5109,0.7098 142.5109,0.2399 142.2547,-0.1783 141.9986,-0.5964 141.7425,-1.0145 141.4864,-1.4327 141.2303,-1.8508 140.9742,-2.2689 140.9745,-2.6006 140.9745,-2.6006 140.9745,-2.6015 140.9745,-2.6041 140.9738,-2.8367 140.9733,-3.0025 140.9724,-3.2506 140.9732,-3.5817 140.9735,-3.8000 140.9742,-4.0023 140.9747,-4.1736 140.9758,-4.5959 140.9762,-4.7737 140.9769,-4.9885 140.9769,-4.9995 140.9769,-5.0023 140.9769,-5.1974 140.9769,-5.3229 140.9769,-5.3638 140.9769,-5.6212 140.9769,-5.8065 140.9769,-6.0021 140.9769,-6.2294 140.9769,-6.3351 140.9729,-6.3366 140.9637,-6.3480 140.9587,-6.3681 140.9539,-6.3702 140.9528,-6.3738 140.9550,-6.3797 140.9647,-6.3880 140.9671,-6.3939 140.9632,-6.4043 140.9556,-6.4113 140.9502,-6.4189 140.9528,-6.4318 140.9416,-6.4309 140.9310,-6.4314 140.9213,-6.4339 140.9125,-6.4386 140.9232,-6.4398 140.9300,-6.4450 140.9332,-6.4538 140.9328,-6.4660 140.9486,-6.4655 140.9531,-6.4805 140.9502,-6.4987 140.9435,-6.5075 140.9282,-6.5097 140.9210,-6.5164 140.9188,-6.5279 140.9178,-6.5531 140.9151,-6.5585 140.9099,-6.5614 140.9016,-6.5621 140.8930,-6.5654 140.8965,-6.5730 140.9033,-6.5821 140.9050,-6.5895 140.8906,-6.5998 140.8739,-6.6034 140.8593,-6.6084 140.8504,-6.6236 140.8649,-6.6306 140.8658,-6.6492 140.8572,-6.6822 140.8517,-6.6940 140.8492,-6.7028 140.8504,-6.7130 140.8578,-6.7236 140.8787,-6.7422 140.8845,-6.7539 140.8827,-6.7606 140.8732,-6.7736 140.8709,-6.7784 140.8742,-6.7895 140.8824,-6.7982 140.9016,-6.8122 140.9067,-6.8282 140.9083,-6.8493 140.9160,-6.8627 140.9397,-6.8563 140.9433,-6.8881 140.9622,-6.8980 140.9772,-6.8966 140.9770,-7.0047 140.9770,-7.1571 140.9769,-7.2828 140.9769,-7.3237 140.9769,-7.5875 140.9769,-7.7729 140.9769,-7.9621 140.9769,-8.0020 140.9770,-8.1607 140.9770,-8.1701 140.9773,-8.4349 140.9776,-8.6112 140.9775,-8.7982 140.9774,-8.8648 140.9772,-8.9911 140.9770,-9.1061 140.9770,-9.1061 140.9773,-9.3665 141.0349,-9.4117 141.1162,-9.4363 141.2013,-9.4382 141.2914,-9.4156 141.3653,-9.3734 141.5072,-9.4236 141.6195,-9.4389 141.9750,-9.4184 142.0585,-9.4572 142.0585,-9.5078 142.0493,-9.5718 142.0585,-9.6046 142.0586,-9.7554 142.0591,-9.7731 142.0289,-9.7873 141.9884,-9.8385 141.9688,-9.8633 141.9540,-9.9470 141.9478,-9.9538 141.9078,-10.0309 141.8905,-10.1064 141.8944,-10.1802 141.9452,-10.2769 142.0955,-10.4081 141.9687,-10.5076 141.9207,-10.6053 141.9078,-10.6317 141.9071,-10.7075 141.9566,-10.8593 141.9375,-10.9839 141.9370,-11.0006 141.9320,-11.1750 141.9039,-11.3386 141.7695,-11.7593 141.6161,-11.9585 141.5976,-12.0006 141.4052,-12.4391 141.3847,-12.5130 141.3877,-12.5853 141.4088,-12.6475 141.4466,-12.7014 141.4943,-12.7389 141.4223,-12.8278 141.3835,-12.9310 141.3810,-13.0007 141.3802,-13.0225 141.4270,-13.1665 141.4367,-13.2668 141.2981,-13.6062 141.2675,-13.7428 141.2600,-13.8580 141.2866,-14.0006 141.2907,-14.0226 141.3907,-14.1848 141.3814,-14.2550 141.3203,-14.4211 141.3135,-14.4837 141.3655,-14.8017 141.4238,-14.9939 141.4235,-15.0006 141.4199,-15.0826 141.3266,-15.3455 141.2334,-15.6084 141.1708,-15.9057 141.1770,-16.0005 141.1824,-16.0843 141.1014,-16.3349 141.0204,-16.5856 140.9970,-16.6076 140.9103,-16.6892 140.8608,-16.7938 140.7647,-16.9219 140.7528,-17.0006 140.7381,-17.0984 140.6681,-17.2792 140.6239,-17.3219 140.4447,-17.4379 140.2619,-17.4932 140.1185,-17.5153 140.0140,-17.4410 139.9970,-17.4344 139.7637,-17.3437 139.6588,-17.2804 139.7169,-17.2441 139.7613,-17.1895 139.7810,-17.1266 139.7792,-17.0593 139.7533,-17.0006 139.7166,-16.9172 139.6946,-16.8933 139.6584,-16.8539 139.5896,-16.8078 139.6642,-16.7495 139.7453,-16.7171 139.8421,-16.6784 139.9226,-16.5901 139.9469,-16.5086 139.9425,-16.4158 139.9068,-16.3320 139.8524,-16.2803 139.6551,-16.2062 139.5788,-16.1950 139.2049,-16.2869 139.1131,-16.3479 139.0289,-16.4421 138.9970,-16.4958 138.9790,-16.5262 138.9441,-16.6544 138.9229,-16.6806 138.8640,-16.6658 138.7106,-16.5878 138.5306,-16.5762 138.3112,-16.5288 138.2180,-16.4759 138.1022,-16.3772 138.0120,-16.2870 137.9975,-16.2677 137.9970,-16.2671 137.8975,-16.1349 137.8341,-16.0780 137.7518,-16.0359 137.4897,-15.9439 137.3372,-15.8396 137.3060,-15.7962 137.2824,-15.6572 137.2349,-15.5369 137.1700,-15.4609 137.0684,-15.3957 137.0080,-15.3381 136.9486,-15.3077 136.8868,-15.2976 136.7431,-15.3458 136.5876,-15.3158 136.4339,-15.3542 136.4016,-15.2994 136.3528,-15.2539 136.0610,-15.0852 135.9505,-14.9950 135.9823,-14.8803 135.9487,-14.7583 135.8602,-14.6668 135.7434,-14.6344 135.9054,-14.4251 136.0281,-14.3605 136.0782,-14.3117 136.1127,-14.2275 136.1199,-14.2272 136.1311,-14.2958 136.1826,-14.3769 136.2757,-14.4276 136.4326,-14.4182 136.6488,-14.4854 136.9551,-14.4936 137.0280,-14.4731 137.0785,-14.4391 137.1274,-14.3809 137.1665,-14.2967 137.1847,-14.1907 137.1712,-14.0883 137.1308,-14.0131 137.0611,-13.9616 137.1103,-13.8898 137.1289,-13.7998 137.1203,-13.7584 137.1534,-13.7188 137.1717,-13.6003 137.1557,-13.5394 137.1180,-13.4806 137.0630,-13.4368 136.9965,-13.4126 136.8978,-13.4161 136.8036,-13.4587 136.7980,-13.4643 136.7459,-13.4468 136.5883,-13.4655 136.5368,-13.4845 136.5354,-13.4841 136.4646,-13.4865 136.4266,-13.5032 136.4386,-13.4886 136.5962,-13.4001 136.6966,-13.2500 136.7103,-13.2296 136.8260,-13.1263 136.8568,-13.0197 136.8344,-12.8458 136.9347,-12.6822 137.1483,-12.4691 137.1886,-12.3813 137.1771,-12.2740 137.0679,-12.1221 136.9974,-11.9534 136.9269,-11.8918 136.8918,-11.8802 136.9546,-11.8490 137.0058,-11.8013 137.0410,-11.7354 137.0516,-11.6530 137.0178,-11.5505 136.9383,-11.4728 136.8443,-11.4450 136.7966,-11.4534 136.9101,-11.2995 136.9780,-11.0948 136.9863,-11.0202 136.9736,-10.9496 136.9395,-10.8914 136.8877,-10.8470 136.8258,-10.8207 136.7594,-10.8135 136.6867,-10.8265 136.6261,-10.8562 136.5667,-10.9150 136.5029,-11.0670 136.3106,-11.3375 136.2322,-11.3677 136.2002,-11.3466 136.1175,-11.3305 136.0302,-11.3475 135.9602,-11.3938 135.9137,-11.4583 135.9068,-11.4836 135.8828,-11.4923 135.7318,-11.6114 135.6422,-11.7323 135.4927,-11.7833 135.3998,-11.8747 135.3354,-11.8925 135.3255,-11.8449 135.3689,-11.7648 135.3801,-11.6824 135.3584,-11.6020 135.2973,-11.5268 135.2244,-11.4851 135.1408,-11.4740 135.0513,-11.4991 134.9843,-11.5495 134.9419,-11.6214 134.9306,-11.7135 134.9434,-11.7610 134.9055,-11.7775 134.7915,-11.7447 134.6944,-11.7496 134.6031,-11.7829 134.5162,-11.8496 134.4728,-11.8519 134.1469,-11.6607 134.0504,-11.5674 133.9968,-11.5355 133.8516,-11.5076 133.8253,-11.5119 133.7161,-11.5296 133.7126,-11.4396 133.6798,-11.3666 133.6135,-11.3043 133.5271,-11.2684 133.4315,-11.2607 133.3504,-11.2779 133.2771,-11.3182 133.2269,-11.3704 133.1234,-11.2658 133.1860,-11.2078 133.2284,-11.1175 133.2260,-11.0208 133.1894,-10.9459 133.1194,-10.8834 132.9965,-10.8390 132.8973,-10.7683 132.8281,-10.7563 132.7607,-10.7658 132.7069,-10.7958 132.6454,-10.7702 132.5660,-10.7690 132.4866,-10.7914 132.3642,-10.8534 132.2643,-10.9259 131.9892,-10.9273 131.9135,-10.9437 131.7087,-11.0398 131.6571,-11.0878 131.6128,-11.1582 131.5347,-11.0825 131.3538,-11.0018 131.2720,-10.9873 131.1739,-11.0060 130.9901,-11.0988 130.8546,-11.1121 130.7503,-11.1465 130.6697,-11.0954 130.5931,-11.0692 130.5348,-10.9994 130.4929,-10.9715 130.4290,-10.9519 130.3618,-10.9534 130.2951,-10.9784 130.2341,-11.0273 130.1583,-11.1615 130.0669,-11.2496 129.9985,-11.3430 129.9243,-11.5181 129.8236,-11.7057 129.8109,-11.7822 129.8251,-11.8547 129.8984,-11.9605 130.0062,-12.0204 130.1311,-12.0311 130.3112,-11.9978 130.4662,-12.0286 130.6908,-12.0209 130.7849,-12.0620 130.7850,-12.0622 130.7952,-12.1446 130.7800,-12.1708 130.7495,-12.1911 130.5783,-12.1858 130.4513,-12.2428 130.3928,-12.3147 130.3790,-12.3632 130.3520,-12.3651 130.2645,-12.4092 130.1774,-12.5199 130.1488,-12.5980 130.1514,-12.6294 130.1506,-12.6310 130.1386,-12.7003 130.0436,-12.7482 129.9721,-12.8104 129.9306,-12.8904 129.9077,-13.0088 129.9072,-13.1344 129.9306,-13.2364 129.8215,-13.2456 129.7354,-13.3075 129.6577,-13.4409 129.5317,-13.7837 129.4770,-13.8381 129.3524,-13.8985 129.3091,-13.9459 129.2724,-14.1046 129.1672,-14.3128 129.1533,-14.4108 129.1660,-14.4728 129.2040,-14.5388 129.3430,-14.6641 129.2207,-14.6461 129.0595,-14.6740 129.0014,-14.6579 129.0005,-14.6576 128.9971,-14.6567 128.9706,-14.6493 128.9613,-14.6467 128.8099,-14.6334 128.5577,-14.5553 128.5573,-14.5552 128.4120,-14.5827 128.4115,-14.5827 128.3705,-14.5744 128.2008,-14.4691 128.1055,-14.3906 127.9971,-14.2609 127.8140,-14.0417 127.7577,-14.0006 127.6583,-13.9281 127.5402,-13.7820 127.5065,-13.7645 127.5065,-13.3235 127.5065,-12.8825 127.5065,-12.4416 127.5064,-12.0006 127.5064,-11.5006 127.5064,-11.0006 127.1216,-10.7760 126.7368,-10.5514 126.3520,-10.3267 125.9672,-10.1021 125.5824,-9.8774 125.1977,-9.6528 125.0617,-9.4861 125.0556,-9.4514 125.0510,-9.4251 125.0463,-9.4099 125.0238,-9.3747 125.0228,-9.3677 125.0248,-9.3520 125.0234,-9.3456 125.0179,-9.3390 124.9972,-9.3261 124.9710,-9.3017 124.9660,-9.2934 124.9602,-9.2760 124.9541,-9.2415 124.9579,-9.2119 124.9745,-9.1919 124.9972,-9.1879 125.0072,-9.1861 125.0081,-9.1861 125.0277,-9.1863 125.0345,-9.1882 125.0414,-9.1932 125.0534,-9.2067 125.0597,-9.2105 125.0739,-9.2113 125.0740,-9.2113 125.0826,-9.2055 125.0915,-9.1968 125.1070,-9.1885 125.1179,-9.1876 125.1185,-9.1876 125.1425,-9.1891 125.1426,-9.1890 125.1506,-9.1854 125.1539,-9.1758 125.1527,-9.1708 125.1512,-9.1650 125.1470,-9.1545 125.1450,-9.1452 125.1620,-9.0823 125.1624,-9.0606 125.1540,-9.0408 125.1479,-9.0341 125.1394,-9.0248 125.1213,-9.0119 125.1025,-9.0013 125.1017,-9.0006 125.0953,-8.9948 125.0915,-8.9886 125.0873,-8.9864 125.0868,-8.9862 125.0765,-8.9908 125.0730,-8.9965 125.0721,-9.0006 125.0686,-9.0159 125.0653,-9.0232 125.0518,-9.0350 125.0044,-9.0556 124.9972,-9.0603 124.9789,-9.0720 124.9659,-9.0773 124.9486,-9.0785 124.9479,-9.0785 124.9330,-9.0745 124.9213,-9.0655 124.9130,-9.0528 124.9079,-9.0375 124.9092,-9.0203 124.9169,-9.0006 124.9225,-8.9863 124.9195,-8.9622 124.9252,-8.9213 124.8984,-8.8569 124.8348,-8.7606 124.8015,-8.7943 124.6203,-8.8755 124.4867,-8.9631 124.4398,-8.9738 124.4506,-9.1802 124.4506,-9.1803 124.4515,-9.2006 124.4366,-9.2559 124.4318,-9.2908 124.4279,-9.2995 124.4248,-9.3035 124.4209,-9.3069 124.4017,-9.3318 124.3719,-9.3571 124.3626,-9.3620 124.3581,-9.3622 124.3546,-9.3642 124.3479,-9.3746 124.3454,-9.4042 124.3417,-9.4118 124.3321,-9.4255 124.3302,-9.4296 124.3286,-9.4330 124.3288,-9.4398 124.3334,-9.4572 124.3323,-9.4666 124.3236,-9.4804 124.3101,-9.4887 124.2931,-9.4931 124.2738,-9.4949 124.2616,-9.4979 124.2575,-9.5012 124.2566,-9.4994 124.2534,-9.4864 124.2534,-9.4806 124.2544,-9.4754 124.2569,-9.4629 124.2575,-9.4554 124.2540,-9.4387 124.2469,-9.4215 124.2372,-9.4052 124.2258,-9.3916 124.2107,-9.3789 124.1975,-9.3732 124.1836,-9.3739 124.1672,-9.3806 124.1538,-9.3919 124.1337,-9.4193 124.1211,-9.4269 124.0903,-9.4215 124.0627,-9.3979 124.0302,-9.3421 124.0302,-9.3419 123.9294,-9.1612 123.8914,-9.0910 124.1636,-8.9549 124.4654,-8.8893 124.5976,-8.8112 124.8200,-8.7097 124.8782,-8.6429 124.8906,-8.6287 125.0157,-8.5365 125.3110,-8.4106 125.3378,-8.2257 125.3305,-8.0790 125.2371,-7.6234 125.1436,-7.1679 125.0501,-6.7123 124.9567,-6.2567 124.8632,-5.8012 124.7697,-5.3456 124.6763,-4.8900 124.5828,-4.4344 124.4893,-3.9789 124.3959,-3.5233 124.3024,-3.0677 124.3024,-2.6013 124.3024,-2.1350 124.3024,-1.6686 124.3024,-1.2022 124.5865,-0.7908 124.8706,-0.3793 125.1548,0.0321 125.4389,0.4435 125.7230,0.8550 126.0071,1.2664 126.2912,1.6778 126.5754,2.0893 126.8595,2.5007 127.1436,2.9121 127.3258,3.1759 127.5079,3.4397 127.5079,3.8943 127.5079,4.3488 127.5079,4.8034 127.5079,5.2579 127.5079,5.7125 127.5079,6.1670 127.5079,6.6216 127.5079,7.0761 127.5079,7.5306 127.5079,7.9852 127.5079,8.4397 127.5079,8.8943 127.5079,9.3488 127.5079,9.8034 127.5079,10.2579 127.5079,10.7125 127.5079,11.1670 127.5079,11.6216 127.5079,12.0761 127.5079,12.5306 127.5079,12.9852 127.5079,13.4397 127.5079,13.9397 127.5079,14.4397 127.5079,14.9397 127.5079,15.4397 127.5079,15.9397 127.5079,16.4397 127.5079,16.9397 127.5079,17.4397 127.5079,17.9397 127.5079,18.4397 127.5079,18.8943 127.5079,19.3488 127.5079,19.8034 127.5079,20.2579 127.5079,20.7125 127.5079,21.1670 127.5079,21.6216 127.5079,22.0761 127.5079,22.5306 127.5079,22.9852 127.5079,23.4397 127.5079,23.5489 127.0280,23.5507 126.5481,23.5524 126.0682,23.5542 125.5882,23.5559 125.1083,23.5577 124.6284,23.5594 124.1484,23.5612 123.6685,23.5629 123.1886,23.5647 122.7086,23.5664 122.5218,23.6496 122.4199,23.8863 122.3808,24.1504 122.3921,24.4132 122.4149,24.5771 122.5310,24.8138 122.7452,25.1226 122.8996,25.2298 123.3079,25.2405 123.3079,25.6018 123.3079,25.9631 123.3079,26.3244 123.7615,26.3248 124.2151,26.3252 124.6687,26.3256 125.1222,26.3260 125.5758,26.3264 126.0294,26.3268 126.4830,26.3272 126.4793,26.4105 126.5157,26.4899 126.5830,26.5485 126.6792,26.5859 126.7933,26.5873 126.8987,26.5512 126.9942,26.5445 127.0019,26.6501 127.0611,26.7406 127.1361,26.7855 127.2222,26.8029 127.5057,26.8063 127.5057,27.2096 127.5057,27.6129 127.5057,28.0162 127.5057,28.4195 127.5056,28.8228 127.5056,29.2860 127.5056,29.7492 127.5056,30.2124 127.5056,30.6756 127.5056,31.1388 127.5056,31.6020 127.5056,32.0652 127.5056,32.5284 127.5056,32.9916 127.5056,33.4548 127.5056,33.9180 127.4445,33.8552 127.3837,33.8226 127.2953,33.8151 127.1452,33.6063 127.1739,33.5296 127.1684,33.4475 127.1654,33.4427 127.1680,33.4190 127.1221,33.3059 127.0196,33.1904 126.9079,33.1253 126.7377,33.0719 126.2823,33.0039 126.1917,33.0108 126.0992,33.0450 126.0261,33.1014 125.9744,33.1738 125.9440,33.2698 125.9459,33.3548 125.9756,33.4358 126.0352,33.5065 126.1795,33.5977 126.1869,33.7977 126.1465,33.8266 126.0950,33.9101 126.0933,33.9912 126.1305,34.0597 126.0345,34.0461 125.8694,34.0584 125.7657,34.1063 125.7114,34.1594 125.6852,34.2291 125.6920,34.2984 125.7267,34.3565 125.8000,34.4191 125.6913,34.4526 125.6234,34.5164 125.5608,34.4868 125.5436,34.4734 125.5118,34.4602 125.5301,34.3600 125.5087,34.3047 125.4670,34.2579 125.3491,34.2068 125.2874,34.2092 125.3286,34.1686 125.3657,34.0781 125.3587,33.9951 125.3068,33.9180 125.2345,33.8730 125.1470,33.8541 125.0460,33.8664 124.9630,33.9073 124.9023,33.9684 124.8658,34.0526 124.8674,34.1299 124.9046,34.2019 124.9818,34.2607 125.0697,34.2876 125.1190,34.2842 125.0890,34.3218 125.0657,34.4297 125.0816,34.5064 124.9977,34.5731 124.9646,34.6495 124.9683,34.6975 124.9707,34.7304 125.0155,34.8051 125.0754,34.8589 125.1517,34.8885 125.2598,34.8892 125.3241,34.8647 125.4079,34.8870 125.6446,34.8612 125.6923,34.8724 125.7285,34.8969 125.8085,34.9957 125.8147,35.0227 125.8004,35.0468 125.8002,35.1354 125.8513,35.2161 125.8054,35.2807 125.7909,35.3486 125.8067,35.4154 125.8505,35.4741 125.9187,35.5178 125.9990,35.5382 126.0256,35.5340 126.0246,35.5359 126.0218,35.6136 126.0558,35.6905 126.1002,35.7383 126.1566,35.7732 126.1670,35.7767 126.1593,35.7853 126.1452,35.8528 126.1587,35.9088 126.1984,35.9634 126.2632,36.0068 126.3198,36.0144 126.2817,36.0537 126.2603,36.1261 126.2060,36.0752 126.1622,36.0008 126.0847,35.9521 125.9877,35.9323 125.8916,35.9475 125.8068,36.0003 125.7636,36.0677 125.7551,36.1358 125.7731,36.1909 125.8580,36.2713 125.9160,36.3528 126.0109,36.4006 126.1173,36.4023 126.0911,36.4816 126.0706,36.4971 126.0333,36.4934 125.9404,36.5189 125.8571,36.5898 125.8327,36.6891 125.8723,36.7734 125.8998,36.7916 125.9003,36.8017 125.9248,36.8584 125.8893,36.8663 125.8164,36.9171 125.7370,37.0158 125.7252,37.1006 125.7525,37.1702 125.8003,37.2219 125.8633,37.2490 125.8639,37.2879 125.8924,37.3463 125.9366,37.3908 126.1206,37.4789 126.1064,37.4988 125.9972,37.5434 125.9364,37.5970 125.9105,37.5261 125.8495,37.4689 125.7673,37.4358 125.6689,37.4312 125.5897,37.4554 125.5609,37.4758 125.5368,37.4929 125.5286,37.5053 125.5075,37.5112 125.3295,37.4900 125.1402,37.5254 124.9722,37.6132 124.9015,37.6334 124.8944,37.6279 124.8696,37.6192 124.7920,37.5920 124.7071,37.5857 124.5793,37.6324 124.5758,37.6373 124.5513,37.6462 124.4914,37.6938 124.3899,37.8851 124.3818,37.9814 124.4135,38.0813 124.4513,38.2001 124.5069,38.2678 124.6334,38.3469 124.5617,38.4872 124.5572,38.5436 124.5726,38.5985 124.6095,38.6493 124.6666,38.6911 124.7850,38.7284 124.7963,38.7568 124.8516,38.8080 124.9046,38.8277 124.9581,39.0060 125.0714,39.2268 125.1362,39.3106 125.1337,39.3378 125.1000,39.3332 125.0043,39.3606 124.9781,39.3681 124.9370,39.3358 124.8627,39.2774 124.7767,39.2435 124.6911,39.2382 124.5073,39.2728 124.4423,39.3075 124.3996,39.3524 124.3726,39.4337 124.3797,39.4639 124.3785,39.4653 124.3627,39.5294 124.3200,39.5457 124.2579,39.5991 124.2316,39.6510 124.2312,39.6710 124.2018,39.6651 124.3101,39.9246 124.3703,40.0040 124.3706,40.0965 124.3702,40.0983 124.3705,40.0979 124.3706,40.0980 124.3856,40.1105 124.4489,40.1565 124.5282,40.2141 124.5324,40.2160 124.5430,40.2176 124.5487,40.2209 124.5502,40.2247 124.5518,40.2362 124.5549,40.2414 124.5709,40.2524 124.6112,40.2722 124.6272,40.2861 124.6426,40.2943 124.6930,40.3028 124.7125,40.3103 124.7230,40.3267 124.7313,40.3497 124.7412,40.3704 124.7568,40.3792 124.7799,40.3835 124.8008,40.3941 124.8499,40.4316 124.8838,40.4655 124.8907,40.4779 124.8955,40.4836 124.8961,40.4832 124.9056,40.4765 124.9151,40.4659 124.9179,40.4611 124.9259,40.4579 124.9353,40.4556 124.9596,40.4537 124.9599,40.4537 124.9866,40.4574 124.9873,40.4573 125.0066,40.4561 125.0071,40.4562 125.0263,40.4574 125.0413,40.4611 125.0463,40.4711 125.0389,40.4835 125.0277,40.4959 125.0153,40.5083 125.0153,40.5220 125.0251,40.5344 125.0500,40.5418 125.0736,40.5480 125.0897,40.5555 125.1146,40.5641 125.1331,40.5729 125.1531,40.5840 125.1815,40.5940 125.2164,40.6026 125.2424,40.6113 125.2561,40.6150 125.2648,40.6225 125.2710,40.6325 125.2772,40.6436 125.2933,40.6486 125.3082,40.6498 125.3084,40.6498 125.3232,40.6449 125.3367,40.6411 125.3372,40.6413 125.3560,40.6460 125.3636,40.6467 125.3638,40.6467 125.3725,40.6439 125.3846,40.6351 125.3909,40.6325 125.4133,40.6318 125.4133,40.6318 125.4171,40.6393 125.4150,40.6519 125.4152,40.6527 125.4189,40.6666 125.4263,40.6712 125.4271,40.6711 125.4437,40.6687 125.4439,40.6688 125.4530,40.6734 125.4563,40.6797 125.4569,40.6937 125.4598,40.7013 125.4691,40.7129 125.4788,40.7188 125.4916,40.7209 125.5331,40.7218 125.5465,40.7259 125.5533,40.7371 125.5554,40.7588 125.5601,40.7783 125.5717,40.7849 125.5724,40.7848 125.5865,40.7819 125.6003,40.7727 125.6081,40.7642 125.6099,40.7613 125.6109,40.7613 125.6687,40.7622 125.6826,40.7689 125.6733,40.7841 125.6448,40.8106 125.6832,40.8479 125.7064,40.8605 125.7370,40.8652 125.7459,40.8682 125.7508,40.8748 125.7547,40.8817 125.7609,40.8857 125.7708,40.8862 125.7710,40.8862 125.7792,40.8846 125.8220,40.8698 125.8227,40.8698 125.8317,40.8708 125.8727,40.8927 125.8852,40.8975 125.9015,40.8993 125.9017,40.8992 125.9123,40.8941 125.9240,40.8841 125.9362,40.8774 125.9367,40.8776 125.9496,40.8826 125.9643,40.8913 125.9951,40.8941 126.0078,40.8993 126.0153,40.9091 126.0100,40.9139 125.9971,40.9149 125.9966,40.9149 125.9816,40.9137 125.9806,40.9136 125.9920,40.9284 126.0095,40.9327 126.0286,40.9353 126.0455,40.9447 126.0658,40.9686 126.0720,40.9806 126.0693,40.9894 126.0756,40.9971 126.0837,41.0025 126.0934,41.0062 126.1041,41.0092 126.1013,41.0221 126.1115,41.0324 126.1264,41.0432 126.1382,41.0570 126.1238,41.0755 126.1474,41.0923 126.2607,41.1431 126.2748,41.1526 126.2844,41.1641 126.3095,41.2078 126.3210,41.2189 126.3462,41.2377 126.3573,41.2494 126.3806,41.2908 126.3915,41.3034 126.4409,41.3484 126.4725,41.3665 126.4734,41.3665 126.5013,41.3661 126.4982,41.3618 126.4965,41.3580 126.4938,41.3548 126.4877,41.3518 126.4877,41.3444 126.4886,41.3446 126.5221,41.3519 126.5221,41.3776 126.5083,41.4092 126.5013,41.4344 126.5076,41.4472 126.5422,41.4890 126.5588,41.5342 126.5773,41.5618 126.5809,41.5752 126.5773,41.5883 126.5665,41.6019 126.5670,41.6142 126.6021,41.6421 126.6179,41.6659 126.6340,41.6686 126.6347,41.6686 126.6693,41.6671 126.6694,41.6672 126.6801,41.6719 126.7122,41.6942 126.7280,41.7013 126.7142,41.7099 126.6996,41.7164 126.6871,41.7240 126.6795,41.7360 126.6966,41.7412 126.6975,41.7412 126.7125,41.7412 126.7273,41.7369 126.7415,41.7292 126.7714,41.7045 126.7886,41.6959 126.7889,41.6962 126.7963,41.7049 126.8089,41.7298 126.8648,41.7473 126.8775,41.7735 126.8871,41.7849 126.9085,41.7962 126.9298,41.8010 126.9300,41.8009 126.9396,41.7937 126.9407,41.7718 126.9461,41.7662 126.9470,41.7662 126.9586,41.7668 126.9588,41.7668 126.9812,41.7633 127.0332,41.7316 127.0340,41.7317 127.0427,41.7326 127.0427,41.7325 127.0468,41.7192 127.0683,41.6936 127.0766,41.6809 127.0766,41.6808 127.0604,41.6822 127.0596,41.6822 127.0490,41.6777 127.0455,41.6680 127.0494,41.6534 127.0590,41.6433 127.0740,41.6357 127.1047,41.6262 127.1019,41.6223 127.0972,41.6124 127.1140,41.6104 127.1661,41.5950 127.1797,41.5852 127.1579,41.5786 127.1365,41.5692 127.1180,41.5558 127.1047,41.5374 127.1120,41.5366 127.1209,41.5348 127.1282,41.5316 127.1346,41.5220 127.1355,41.5222 127.1424,41.5239 127.1559,41.5305 127.1566,41.5304 127.1651,41.5285 127.1704,41.5239 127.1743,41.5193 127.1797,41.5170 127.1801,41.5172 127.1873,41.5215 127.2003,41.5421 127.2071,41.5459 127.2077,41.5457 127.2220,41.5408 127.2445,41.5280 127.2583,41.5255 127.2588,41.5256 127.2675,41.5273 127.2747,41.5304 127.2815,41.5311 127.2816,41.5310 127.2890,41.5255 127.2898,41.5186 127.2836,41.5122 127.2752,41.5073 127.2691,41.5050 127.2864,41.4990 127.3051,41.4947 127.3442,41.4913 127.3446,41.4914 127.3537,41.4927 127.3711,41.4981 127.3790,41.4988 127.3792,41.4987 127.3885,41.4960 127.3959,41.4914 127.4013,41.4868 127.4051,41.4845 127.4273,41.4831 127.4275,41.4832 127.4431,41.4880 127.4571,41.4947 127.4741,41.4988 127.4746,41.4987 127.4910,41.4954 127.5085,41.4882 127.5258,41.4843 127.5262,41.4845 127.5429,41.4913 127.5429,41.4909 127.5448,41.4689 127.5588,41.4582 127.5975,41.4503 127.6307,41.4329 127.6383,41.4299 127.6388,41.4301 127.6471,41.4330 127.6581,41.4466 127.6627,41.4470 127.6629,41.4469 127.6903,41.4390 127.7846,41.4369 127.7847,41.4369 127.8104,41.4436 127.8107,41.4434 127.8289,41.4340 127.8489,41.4313 127.8491,41.4314 127.8651,41.4374 127.8719,41.4537 127.8815,41.4609 127.9036,41.4663 127.9442,41.4709 127.9443,41.4708 127.9742,41.4503 127.9749,41.4506 127.9845,41.4540 127.9927,41.4611 128.0014,41.4709 128.0019,41.4704 128.0124,41.4601 128.0131,41.4423 128.0115,41.4243 128.0152,41.4133 128.0238,41.4115 128.0243,41.4116 128.0337,41.4138 128.0506,41.4207 128.0505,41.4203 128.0469,41.3988 128.0642,41.3884 128.0651,41.3884 128.0881,41.3889 128.1039,41.3996 128.1045,41.3993 128.1182,41.3934 128.1039,41.3791 128.1461,41.3763 128.1462,41.3764 128.1857,41.4045 128.2876,41.5447 128.3030,41.5834 128.2833,41.6051 128.2814,41.6230 128.2690,41.6434 128.2509,41.6601 128.2241,41.6694 128.1860,41.6929 128.1591,41.7118 128.1549,41.7338 128.1443,41.7547 128.0970,41.8226 128.0910,41.8417 128.0576,41.8498 128.0478,41.8640 128.0400,41.8796 128.0204,41.9651 128.0215,41.9798 128.0346,41.9937 128.0546,41.9983 128.1005,41.9991 128.2620,42.0329 128.2627,42.0328 128.3638,42.0265 128.3871,42.0207 128.4076,42.0083 128.4085,42.0084 128.4540,42.0103 128.4541,42.0103 128.4883,41.9975 128.5024,41.9961 128.5026,41.9962 128.5437,42.0081 128.5443,42.0080 128.5533,42.0066 128.5644,42.0008 128.5649,42.0010 128.5737,42.0043 128.5877,42.0200 128.5976,42.0271 128.6079,42.0302 128.6087,42.0301 128.6825,42.0257 128.6828,42.0258 128.7093,42.0302 128.7210,42.0476 128.7219,42.0476 128.8171,42.0439 128.8832,42.0304 128.9035,42.0263 128.9039,42.0264 128.9401,42.0354 128.9548,42.0752 128.9638,42.0885 128.9850,42.0929 129.0089,42.0951 129.0266,42.1019 129.0533,42.1229 129.0635,42.1361 129.0647,42.1538 129.0656,42.1533 129.0885,42.1432 129.1055,42.1421 129.1056,42.1422 129.1198,42.1494 129.1480,42.1737 129.1777,42.1934 129.1964,42.2092 129.2042,42.2143 129.2112,42.2200 129.2143,42.2257 129.2093,42.2347 129.1869,42.2360 129.1808,42.2431 129.1834,42.2546 129.1921,42.2599 129.2029,42.2627 129.2112,42.2670 129.2148,42.2756 129.2142,42.2837 129.2161,42.2911 129.2280,42.2977 129.2207,42.3037 129.2124,42.3078 129.2037,42.3102 129.1939,42.3108 129.1939,42.3182 129.1949,42.3182 129.2261,42.3181 129.2262,42.3181 129.2363,42.3239 129.2423,42.3387 129.2403,42.3440 129.2342,42.3466 129.2286,42.3502 129.2280,42.3592 129.2311,42.3676 129.2361,42.3744 129.2431,42.3787 129.2966,42.3872 129.3038,42.3896 129.3071,42.4076 129.3154,42.4223 129.3265,42.4268 129.3268,42.4265 129.3379,42.4144 129.3386,42.4147 129.3521,42.4206 129.3438,42.4292 129.3386,42.4384 129.3401,42.4455 129.3521,42.4480 129.3525,42.4478 129.3631,42.4450 129.3721,42.4326 129.3862,42.4281 129.3868,42.4282 129.3954,42.4302 129.4062,42.4360 129.4188,42.4411 129.4341,42.4411 129.4341,42.4411 129.4825,42.4107 129.4889,42.4026 129.5171,42.3910 129.5234,42.3834 129.5268,42.3731 129.5352,42.3696 129.5358,42.3697 129.5453,42.3713 129.5542,42.3769 129.5595,42.3870 129.5603,42.3968 129.5632,42.4041 129.5877,42.4114 129.5945,42.4222 129.5956,42.4356 129.5917,42.4480 129.5927,42.4479 129.6335,42.4454 129.6712,42.4379 129.6717,42.4380 129.7033,42.4424 129.7289,42.4759 129.7336,42.5118 129.7314,42.5509 129.7365,42.5852 129.7631,42.6062 129.7631,42.6124 129.7462,42.6155 129.7416,42.6290 129.7511,42.6429 129.7767,42.6472 129.7723,42.6617 129.7794,42.6704 129.7876,42.6769 129.7865,42.6847 129.7745,42.6933 129.7644,42.6969 129.7576,42.7036 129.7556,42.7223 129.7573,42.7347 129.7613,42.7460 129.7735,42.7670 129.7895,42.7925 129.7950,42.8065 129.7990,42.8367 129.8342,42.9075 129.8415,42.9178 129.8467,42.9282 129.8476,42.9513 129.8517,42.9619 129.8631,42.9690 129.8933,42.9715 129.9070,42.9761 129.8977,42.9787 129.8901,42.9828 129.8841,42.9885 129.8798,42.9960 129.8907,42.9994 129.9092,43.0084 129.9207,43.0103 129.9212,43.0102 129.9341,43.0084 129.9416,43.0036 129.9717,42.9737 129.9813,42.9667 129.9957,42.9619 130.0082,42.9606 130.0089,42.9606 130.0473,42.9619 130.0943,42.9769 130.1215,42.9818 130.1217,42.9817 130.1336,42.9727 130.1305,42.9595 130.1225,42.9433 130.1116,42.9291 130.0988,42.9215 130.1404,42.9071 130.1413,42.9071 130.1938,42.9082 130.1940,42.9082 130.2346,42.9028 130.2390,42.9022 130.2565,42.8669 130.2422,42.7820 130.2430,42.7434 130.2627,42.7086 130.3171,42.6674 130.3248,42.6503 130.3930,42.6062 130.4040,42.6041 130.4047,42.6041 130.4127,42.6046 130.4133,42.6046 130.4205,42.6043 130.4277,42.5994 130.4300,42.5915 130.4264,42.5721 130.4312,42.5615 130.4525,42.5493 130.4531,42.5496 130.4679,42.5549 130.4710,42.5698 130.4551,42.5852 130.4678,42.6004 130.4842,42.6100 130.5014,42.6108 130.5015,42.6107 130.5165,42.5994 130.5195,42.5886 130.5252,42.5492 130.5308,42.5305 130.5427,42.5105 130.5445,42.5063 130.5461,42.4953 130.5499,42.4904 130.5547,42.4876 130.5588,42.4827 130.5756,42.4457 130.5874,42.4320 130.6059,42.4206 130.6285,42.4148 130.6458,42.4009 130.6567,42.3833 130.6606,42.3592 130.6603,42.3339 130.6628,42.3206 130.6729,42.3111 130.7001,42.2950 130.7005,42.2948 130.9805,42.2970 130.9903,42.3106 131.0574,42.4038 131.1205,42.3982 131.2587,42.3861 131.3162,42.3999 131.3653,42.4259 131.4274,42.4849 131.4950,42.4818 131.5728,42.5031 131.6337,42.5447 131.6648,42.5904 131.6847,42.6746 131.6797,42.7044 131.7606,42.7257 131.8769,42.7866 131.8841,42.7859 132.0609,42.8237 132.1027,42.7669 132.0997,42.7562 132.1278,42.6776 132.1988,42.6147 132.2684,42.5819 132.3635,42.5720 132.4616,42.5925 132.5202,42.6296 132.6122,42.6492 132.7372,42.5910 133.0100,42.5266 133.1255,42.5143 133.2354,42.5244 133.5956,42.6473 133.7856,42.6509 134.0576,42.7407 134.3624,42.9392 134.5816,43.0175 134.8960,43.1696 135.0332,43.2757 135.2696,43.3671 135.3221,43.4123 135.4182,43.5410 135.6165,43.6658 135.6942,43.7587 135.9027,44.1048 136.0057,44.1864 136.0667,44.2575 136.1087,44.2846 136.2860,44.3576 136.3539,44.4010 136.4075,44.4575 136.4769,44.5741 136.6065,44.6667 136.7506,44.8090 136.8179,44.8980 136.9501,44.9885 137.0342,45.1098 137.3181,45.2627 137.5608,45.5025 137.6940,45.5748 137.8861,45.7221 138.0203,45.8821 138.1939,46.0318 138.2855,46.1295 138.3267,46.1917 138.4004,46.3618 138.4954,46.4196 138.5663,46.4979 138.5883,46.5508 138.6020,46.6652 138.7242,46.8197 138.7798,46.9625 139.0001,47.1339 139.1329,47.2043 139.1741,47.2369 139.2520,47.3339 139.2982,47.4484 139.4045,47.5836 139.4912,47.7284 139.8244,47.9598 139.9598,48.0905 140.2093,48.2241 140.3880,48.3988 140.4233,48.4818 140.4205,48.6444 140.4326,48.7044 140.4653,48.7554 140.5694,48.8608 140.5974,48.9117 140.5924,49.0930 140.6062,49.1707 140.7160,49.2749 140.8648,49.5360 140.8200,49.8827 140.9471,49.9633 140.9854,50.0104 141.0032,50.0576 141.0020,50.1215 140.9761,50.1823 140.9373,50.2253 140.8539,50.2856 140.8594,50.3688 140.8177,50.5200 140.8317,50.6013 140.8244,50.7073 140.8518,50.7526 140.9511,50.8467 140.9893,50.9027 141.0296,51.0282 141.0204,51.1624 141.1264,51.2446 141.1767,51.3035 141.2109,51.3732 141.2252,51.4739 141.3505,51.5409 141.4328,51.6161 141.4738,51.6340 141.5284,51.6273 141.6212,51.5808 141.8175,51.4153 141.8860,51.3345 141.9531,51.2038 142.0331,51.0969 142.0171,51.0600 141.9301,50.9747 141.8938,50.9173 141.8050,50.5721 141.8160,50.4952 141.8954,50.3429 141.9272,50.1154 141.8938,49.9100 141.9262,49.7503 141.9054,49.5733 141.8278,49.3302 141.8370,49.2278 141.8015,49.1495 141.7723,49.0202 141.7277,48.9334 141.6435,48.8345 141.6187,48.7630 141.6270,48.6882 141.6663,48.6016 141.8975,48.2976 141.9230,48.2079 141.9346,48.0617 141.9206,47.9748 141.7565,47.6888 141.7252,47.5850 141.7515,47.2664 141.8222,47.1424 141.8240,47.0769 141.7861,46.9829 141.6413,46.7358 141.6150,46.6458 141.3867,46.5311 141.1583,46.4164 141.0769,46.3902 141.0266,46.3495 141.0046,46.3075 140.9996,46.2328 141.0202,46.1650 141.1084,45.8447 366,9.0,Southern Ocean 131.4318,-31.7537 131.6164,-31.8408 131.9183,-32.0268 132.0650,-32.1475 132.1531,-32.1895 132.2742,-32.2085 132.4064,-32.1929 132.5167,-32.1957 132.6491,-32.1235 132.6836,-32.1234 132.7434,-32.1488 132.8461,-32.2358 132.9656,-32.2830 133.0760,-32.3558 133.3479,-32.3891 133.4567,-32.4650 133.5160,-32.4860 133.5897,-32.4899 133.6585,-32.4731 133.6605,-32.5682 133.6942,-32.6396 133.7445,-32.6828 133.8466,-32.7105 133.8665,-32.7278 133.8865,-32.8237 133.8614,-32.9311 133.8795,-32.9858 134.0088,-33.1489 134.0781,-33.2030 134.1382,-33.2831 134.1885,-33.3217 134.2384,-33.5778 134.2884,-33.8338 134.3064,-33.8691 134.3463,-33.9083 134.5503,-34.1745 134.7543,-34.4406 134.9582,-34.7068 135.0126,-34.7447 135.1418,-34.7745 135.2319,-34.8355 135.3195,-34.8598 135.4126,-34.9552 135.4686,-35.0542 135.5380,-35.0994 135.8134,-35.4007 136.0889,-35.7021 136.3644,-36.0034 136.5027,-36.0999 136.5758,-36.1828 136.6599,-36.2207 136.7273,-36.2265 137.1365,-36.2061 137.2737,-36.1818 137.4020,-36.2401 137.4844,-36.2458 137.5741,-36.2220 137.7269,-36.1507 137.7869,-36.0984 137.8190,-36.0362 138.0359,-36.0846 138.1004,-36.0783 138.1650,-36.0541 138.2926,-35.9593 138.3374,-35.8286 138.5791,-35.8078 138.7666,-35.7221 138.8385,-35.7357 139.1506,-35.9340 139.2654,-36.0283 139.4253,-36.2315 139.6076,-36.5722 139.6465,-36.6692 139.6546,-36.7588 139.6359,-36.7813 139.5523,-36.8198 139.5053,-36.8579 139.4740,-36.9109 139.4675,-36.9681 139.4846,-37.0281 139.5358,-37.1070 139.5377,-37.2000 139.5587,-37.2693 139.6777,-37.4388 139.8378,-37.5971 140.0581,-37.7637 140.1947,-37.9740 140.2694,-38.0450 140.4953,-38.1724 140.6093,-38.2181 140.7187,-38.2330 140.9178,-38.2213 140.9794,-38.2416 141.0065,-38.2504 141.1447,-38.3470 141.1768,-38.4409 141.2154,-38.4928 141.2680,-38.5305 141.3313,-38.5568 141.5135,-38.5931 141.6239,-38.5884 141.7757,-38.5307 141.8110,-38.5054 141.8483,-38.4503 141.8786,-38.4455 142.0132,-38.5200 142.1231,-38.5563 142.2140,-38.5671 142.3658,-38.5533 142.4487,-38.5705 142.5023,-38.6017 142.5023,-39.0792 142.5023,-39.5567 142.5023,-40.0342 142.5023,-40.5116 142.5023,-40.9891 142.5023,-41.4666 142.5023,-41.9441 142.5023,-42.4216 142.5023,-42.8990 142.5023,-43.3765 142.5023,-43.8311 142.5023,-44.2856 142.5023,-44.7402 142.5023,-45.1947 142.5023,-45.6493 142.5023,-46.1038 142.5023,-46.5583 142.5023,-47.0129 142.5023,-47.4674 142.5023,-47.9220 142.5023,-48.3765 142.5023,-48.8311 142.5023,-49.2856 142.5023,-49.7402 142.5023,-50.1947 142.5023,-50.6493 142.5023,-51.1038 142.5023,-51.5583 142.5023,-52.0129 142.5023,-52.4674 142.5023,-52.9220 142.5023,-53.3765 142.5023,-53.8311 142.5023,-54.2856 142.5023,-54.7402 142.5023,-55.1947 142.5023,-55.6493 142.5023,-56.1038 142.5023,-56.5583 142.5023,-57.0129 142.5023,-57.4674 142.5023,-57.9220 142.5023,-58.3765 142.5023,-58.8311 142.5023,-59.2856 142.5023,-59.7402 142.5023,-60.1947 142.5023,-60.6493 142.5023,-61.1038 142.5023,-61.5583 142.5023,-62.0129 142.5023,-62.4674 142.5023,-62.9220 142.5023,-63.3765 142.5023,-63.8617 142.5023,-64.3468 142.5023,-64.8320 142.5023,-65.3172 142.5023,-65.8023 142.5023,-66.2875 142.5023,-66.7726 142.4028,-66.7263 142.2548,-66.6793 142.0984,-66.6504 141.7530,-66.6274 141.5671,-66.6227 141.4453,-66.6318 141.3073,-66.6593 141.1035,-66.6154 140.9737,-66.5984 140.7564,-66.5925 140.5578,-66.5693 140.2479,-66.5750 140.1381,-66.5699 140.0613,-66.5562 139.9506,-66.5159 139.8660,-66.4943 139.6636,-66.4623 139.4497,-66.4286 139.1735,-66.4149 138.8973,-66.4012 138.7842,-66.3773 138.6868,-66.3676 138.5924,-66.3676 138.4594,-66.3794 138.3963,-66.3755 138.2079,-66.3390 137.8857,-66.2273 137.8179,-66.2177 137.6773,-66.2112 137.5357,-66.1920 137.2353,-66.1823 136.9348,-66.1726 136.5649,-66.2032 136.4526,-66.1492 136.1344,-66.0815 136.0871,-66.0806 135.8840,-66.0994 135.8284,-66.0388 135.7377,-65.9934 135.6312,-65.9668 135.4597,-65.9483 135.3543,-65.9459 135.2517,-65.9514 135.1678,-65.9636 135.0925,-65.9836 135.0018,-66.0309 134.9390,-66.1182 134.9021,-66.1490 134.8429,-66.1763 134.7678,-66.1832 134.7335,-66.1827 134.6534,-66.1814 134.4747,-66.1501 134.3823,-66.1105 134.2629,-66.0762 134.0643,-65.9955 133.9506,-65.9644 133.8610,-65.9525 133.4064,-65.9249 133.2254,-65.9259 132.9829,-65.9531 132.8604,-65.9812 132.7378,-66.0315 132.5784,-66.0007 132.4147,-65.9982 132.0413,-66.0283 131.8390,-66.0733 131.7488,-66.0840 131.4947,-66.0638 131.2406,-66.0436 131.0313,-66.0359 130.8803,-66.0047 130.7874,-65.9934 130.6936,-65.9920 130.5876,-66.0013 130.4499,-66.0336 130.2950,-66.1002 130.0671,-66.1158 129.8953,-66.1449 129.5806,-66.2600 129.3869,-66.3580 129.3544,-66.3918 129.3183,-66.4685 129.2021,-66.5285 129.1534,-66.5662 129.0845,-66.6615 129.0781,-66.7548 128.9673,-66.8550 128.9343,-66.8678 128.8964,-66.8732 128.7657,-66.8677 128.6746,-66.8721 128.4431,-66.9178 128.3883,-66.9142 128.2583,-66.8814 128.1500,-66.8671 127.8616,-66.8615 127.7396,-66.8677 127.6724,-66.8294 127.6077,-66.8052 127.5089,-66.7869 127.5089,-66.3069 127.5089,-65.8268 127.5089,-65.3468 127.5089,-64.8668 127.5089,-64.3867 127.5089,-63.9067 127.5089,-63.4267 127.5089,-62.9721 127.5089,-62.5176 127.5089,-62.0630 127.5089,-61.6085 127.5089,-61.1539 127.5089,-60.6994 127.5089,-60.2448 127.5089,-59.7903 127.5089,-59.3357 127.5089,-58.8812 127.5089,-58.4267 127.5089,-57.9721 127.5089,-57.5176 127.5089,-57.0630 127.5089,-56.6085 127.5089,-56.1539 127.5089,-55.6994 127.5089,-55.2448 127.5089,-54.7903 127.5089,-54.3357 127.5089,-53.8812 127.5089,-53.4267 127.5089,-52.9721 127.5089,-52.5176 127.5089,-52.0630 127.5089,-51.6085 127.5089,-51.1539 127.5089,-50.6994 127.5089,-50.2448 127.5089,-49.7903 127.5089,-49.3357 127.5089,-48.8812 127.5089,-48.4267 127.5089,-47.9721 127.5089,-47.5176 127.5089,-47.0630 127.5089,-46.6085 127.5089,-46.1539 127.5089,-45.6994 127.5089,-45.2448 127.5089,-44.7903 127.5089,-44.3357 127.5089,-43.8812 127.5089,-43.4267 127.5089,-42.9721 127.5089,-42.5176 127.5089,-42.0630 127.5089,-41.6085 127.5089,-41.1539 127.5089,-40.6994 127.5089,-40.2448 127.5089,-39.7903 127.5089,-39.3357 127.5089,-38.8812 127.5089,-38.4267 127.5089,-37.9721 127.5089,-37.5176 127.5089,-37.0630 127.5089,-36.6085 127.5089,-36.1539 127.5089,-35.6994 127.5089,-35.2448 127.5089,-34.7903 127.5089,-34.3357 127.5089,-33.8812 127.5089,-33.4267 127.5089,-33.0801 127.5089,-32.7335 127.5089,-32.3869 127.5089,-32.3866 127.7470,-32.3120 128.1835,-32.2131 128.4234,-32.1242 128.6633,-32.0352 128.9191,-31.8999 128.9943,-31.8724 128.9971,-31.8718 129.1465,-31.8398 129.2820,-31.8183 129.4685,-31.8122 129.9391,-31.7601 130.3811,-31.7560 130.8225,-31.7765 131.0591,-31.7153 131.1824,-31.6594 131.4318,-31.7537 1418,-4.5,America/Caracas -67.9796,12.1214 -67.7342,12.2750 -67.6436,12.2721 -67.1774,12.2218 -66.7113,12.1715 -66.6118,12.1605 -66.3341,12.1189 -66.0565,12.0773 -65.5580,12.0868 -65.0595,12.0964 -64.5611,12.1059 -64.1119,12.0078 -63.6628,11.9097 -63.2137,11.8116 -62.7646,11.7135 -62.3155,11.6154 -62.2448,11.5721 -61.9875,11.3735 -61.7301,11.1749 -61.7301,11.1420 -61.7301,11.1091 -61.7301,11.0761 -61.7301,11.0432 -61.7301,11.0102 -61.7301,10.9114 -61.8036,10.7147 -61.8036,10.5882 -61.8628,10.5882 -61.9731,10.3173 -62.0833,10.0463 -61.9737,10.0077 -61.8554,9.9859 -61.6311,9.9859 -61.5657,9.9781 -61.5003,9.9703 -61.2244,9.8756 -61.1092,9.8664 -61.1092,9.8663 -61.1233,9.8579 -61.1503,9.8269 -61.1140,9.7977 -60.9225,9.7555 -60.8274,9.7002 -60.7008,9.5864 -60.5828,9.4270 -60.5627,9.3514 -60.5665,9.2487 -60.6249,8.9949 -60.6706,8.8753 -60.6669,8.8184 -60.5697,8.7809 -60.4371,8.8240 -60.3189,8.8401 -60.1814,8.8321 -60.1102,8.8156 -60.0997,8.7974 -60.0203,8.5578 -59.9597,8.4682 -59.8556,8.3521 -59.8156,8.2878 -59.8167,8.2672 -59.8293,8.2451 -59.8485,8.2277 -59.8692,8.2211 -59.8898,8.2199 -59.9397,8.2084 -59.9571,8.2001 -59.9677,8.1884 -59.9933,8.1685 -60.0007,8.1529 -60.0005,8.1385 -59.9980,8.1271 -59.9993,8.1154 -60.0110,8.1004 -60.0195,8.0603 -60.0296,8.0428 -60.0465,8.0329 -60.0680,8.0318 -60.1079,8.0356 -60.1292,8.0288 -60.1498,8.0135 -60.1657,7.9970 -60.1831,7.9827 -60.2311,7.9641 -60.2430,7.9506 -60.2533,7.9346 -60.2719,7.9178 -60.3203,7.8847 -60.3424,7.8648 -60.3504,7.8418 -60.3748,7.8236 -60.4185,7.8194 -60.5033,7.8209 -60.5258,7.8134 -60.5398,7.8001 -60.5596,7.7630 -60.5821,7.7363 -60.5870,7.7271 -60.5877,7.7183 -60.5844,7.6994 -60.5845,7.6885 -60.5999,7.6615 -60.5975,7.6467 -60.6013,7.6339 -60.6107,7.6268 -60.6252,7.6295 -60.6317,7.6246 -60.6415,7.6109 -60.6556,7.5852 -60.6711,7.5661 -60.7165,7.5516 -60.7306,7.5254 -60.7297,7.5103 -60.7238,7.4958 -60.7007,7.4535 -60.6881,7.4486 -60.6742,7.4455 -60.6606,7.4361 -60.6563,7.4288 -60.6558,7.4229 -60.6569,7.4166 -60.6573,7.4081 -60.6532,7.3985 -60.6452,7.3934 -60.6361,7.3898 -60.6290,7.3844 -60.6220,7.3715 -60.6106,7.3436 -60.6018,7.3301 -60.5999,7.3219 -60.6000,7.3139 -60.6022,7.3065 -60.6068,7.2995 -60.6311,7.2777 -60.6436,7.2507 -60.6431,7.2209 -60.6284,7.1911 -60.6176,7.1804 -60.5480,7.1255 -60.5349,7.1258 -60.5129,7.1652 -60.4966,7.1806 -60.4753,7.1885 -60.4495,7.1883 -60.4371,7.1837 -60.4267,7.1769 -60.4158,7.1713 -60.4015,7.1709 -60.3852,7.1733 -60.3720,7.1723 -60.3601,7.1658 -60.3476,7.1519 -60.3128,7.1326 -60.2999,7.1210 -60.2923,7.1053 -60.2916,7.0883 -60.2958,7.0707 -60.3036,7.0541 -60.3134,7.0402 -60.3276,7.0286 -60.3446,7.0176 -60.3597,7.0049 -60.3681,6.9881 -60.3773,6.9385 -60.3942,6.9485 -60.4210,6.9422 -60.5487,6.8631 -60.6207,6.8459 -60.6395,6.8377 -60.6558,6.8246 -60.6841,6.7840 -60.7003,6.7671 -60.7215,6.7597 -60.7365,6.7648 -60.7731,6.7884 -60.7935,6.7938 -60.8053,6.7925 -60.8283,6.7871 -60.8376,6.7864 -60.8496,6.7899 -60.8585,6.7965 -60.8657,6.8033 -60.8724,6.8081 -60.8946,6.8142 -60.9076,6.8152 -60.9134,6.8112 -60.9112,6.8000 -60.9013,6.7860 -60.8991,6.7768 -60.8995,6.7686 -60.9012,6.7644 -60.9284,6.7359 -60.9338,6.7317 -60.9546,6.7287 -61.0003,6.7344 -61.0187,6.7204 -61.0401,6.7270 -61.0612,6.7301 -61.0704,6.7119 -61.0891,6.7175 -61.1110,6.7195 -61.1298,6.7158 -61.1393,6.7044 -61.1707,6.6685 -61.1902,6.6329 -61.2048,6.5958 -61.2120,6.5614 -61.2097,6.5410 -61.2001,6.5311 -61.1861,6.5233 -61.1709,6.5092 -61.1630,6.4943 -61.1535,6.4644 -61.1426,6.4494 -61.1398,6.4413 -61.1386,6.4331 -61.1390,6.4248 -61.1411,6.4165 -61.1499,6.4044 -61.1548,6.3906 -61.1609,6.3424 -61.1595,6.3313 -61.1520,6.3034 -61.1467,6.2942 -61.1291,6.2833 -61.1241,6.2762 -61.1214,6.2695 -61.1179,6.2672 -61.1148,6.2640 -61.1129,6.2541 -61.1180,6.2162 -61.1184,6.2026 -61.1216,6.1867 -61.1327,6.1836 -61.1473,6.1850 -61.1611,6.1829 -61.1740,6.1716 -61.1847,6.1460 -61.1945,6.1329 -61.2065,6.1258 -61.2229,6.1205 -61.2561,6.1144 -61.2694,6.1072 -61.2786,6.0930 -61.2912,6.0612 -61.3381,5.9868 -61.3528,5.9752 -61.3863,5.9566 -61.3967,5.9456 -61.3796,5.9053 -61.3474,5.8697 -61.2716,5.7861 -61.1958,5.7027 -61.1200,5.6191 -61.0443,5.5356 -60.9685,5.4521 -60.8927,5.3686 -60.8169,5.2851 -60.7411,5.2015 -60.7110,5.1982 -60.6849,5.1883 -60.6643,5.1703 -60.5987,4.9969 -60.5919,4.9497 -60.6126,4.9006 -60.6801,4.8179 -60.7181,4.7843 -60.7637,4.7551 -60.8600,4.7124 -60.8687,4.7112 -60.8880,4.7111 -60.8958,4.7085 -60.9034,4.6996 -60.9311,4.6374 -60.9404,4.5941 -60.9478,4.5736 -60.9773,4.5350 -61.0120,4.5183 -61.0955,4.5077 -61.1512,4.4921 -61.1686,4.4902 -61.1859,4.4941 -61.2201,4.5107 -61.2381,4.5159 -61.2973,4.5237 -61.3156,4.5208 -61.3229,4.5088 -61.2958,4.4690 -61.2930,4.4481 -61.3082,4.4333 -61.3332,4.4239 -61.3600,4.4189 -61.3811,4.4177 -61.4386,4.4212 -61.4582,4.4191 -61.5019,4.4019 -61.5164,4.3748 -61.5224,4.2978 -61.5267,4.2855 -61.5335,4.2736 -61.5421,4.2630 -61.5522,4.2550 -61.5673,4.2485 -61.5766,4.2497 -61.5854,4.2534 -61.5991,4.2544 -61.6102,4.2516 -61.6282,4.2435 -61.6405,4.2419 -61.6492,4.2434 -61.6805,4.2525 -61.7189,4.2547 -61.7378,4.2521 -61.7564,4.2464 -61.7792,4.2327 -61.8310,4.1769 -61.8470,4.1661 -61.8669,4.1570 -61.8881,4.1502 -61.9082,4.1462 -61.9315,4.1464 -61.9503,4.1522 -61.9686,4.1601 -61.9902,4.1664 -62.0350,4.1599 -62.1111,4.1048 -62.1536,4.0903 -62.1927,4.0947 -62.3842,4.1735 -62.4281,4.1832 -62.4630,4.1747 -62.4665,4.1687 -62.4699,4.1516 -62.4752,4.1439 -62.4837,4.1392 -62.5149,4.1331 -62.5370,4.1254 -62.5464,4.1139 -62.5486,4.0981 -62.5488,4.0775 -62.5610,4.0378 -62.5887,4.0307 -62.6707,4.0437 -62.7275,4.0385 -62.7444,4.0340 -62.7662,4.0207 -62.7707,4.0054 -62.7674,3.9871 -62.7663,3.9647 -62.7732,3.9399 -62.7828,3.9200 -62.7888,3.8994 -62.7851,3.8723 -62.7798,3.8613 -62.7743,3.8549 -62.7702,3.8478 -62.7668,3.8220 -62.7496,3.7836 -62.7404,3.7419 -62.7399,3.7004 -62.7496,3.6604 -62.7710,3.6233 -62.7863,3.6044 -62.7964,3.5973 -62.8078,3.5967 -62.8223,3.5988 -62.8316,3.5949 -62.8513,3.5772 -62.8720,3.5655 -62.8894,3.5608 -62.9077,3.5610 -62.9310,3.5638 -62.9511,3.5702 -62.9751,3.5831 -62.9971,3.5991 -63.0107,3.6150 -63.0250,3.6378 -63.1308,3.7621 -63.1932,3.8067 -63.2512,3.8866 -63.2860,3.9208 -63.3517,3.9587 -63.3914,3.9716 -63.4254,3.9684 -63.4482,3.9394 -63.4554,3.9006 -63.4689,3.8672 -63.5107,3.8545 -63.5542,3.8754 -63.6228,3.9352 -63.6716,3.9462 -63.6908,3.9440 -63.7459,3.9303 -63.7710,3.9288 -63.7906,3.9330 -63.8311,3.9494 -63.8751,3.9498 -63.9168,3.9294 -63.9569,3.9019 -63.9964,3.8808 -64.0377,3.8825 -64.0638,3.9116 -64.0790,3.9531 -64.0958,4.0244 -64.1081,4.0581 -64.1251,4.0885 -64.1467,4.1106 -64.1727,4.1234 -64.2406,4.1420 -64.3650,4.1519 -64.5897,4.1189 -64.6082,4.1265 -64.6211,4.1469 -64.6369,4.1911 -64.6610,4.2275 -64.6999,4.2642 -64.7459,4.2876 -64.7916,4.2844 -64.8051,4.2719 -64.8129,4.2528 -64.8155,4.2310 -64.8130,4.2106 -64.8013,4.1885 -64.7837,4.1771 -64.7629,4.1690 -64.7419,4.1572 -64.7271,4.1408 -64.7195,4.1232 -64.7074,4.0830 -64.6629,3.9970 -64.6629,3.9970 -64.6628,3.9970 -64.6628,3.9969 -64.6429,3.9730 -64.5961,3.9359 -64.5750,3.9142 -64.5314,3.8535 -64.4345,3.7785 -64.3945,3.7561 -64.3474,3.7383 -64.3242,3.7241 -64.2656,3.6522 -64.2221,3.6162 -64.2030,3.5947 -64.1957,3.5701 -64.1956,3.5329 -64.1979,3.5151 -64.2051,3.4971 -64.2321,3.4611 -64.2421,3.4430 -64.2456,3.4189 -64.2199,3.2929 -64.2163,3.2514 -64.2254,3.1656 -64.2229,3.1240 -64.2053,3.0892 -64.1735,3.0519 -64.1375,2.9873 -64.1060,2.9472 -64.0291,2.7980 -64.0122,2.7440 -64.0009,2.7254 -63.9976,2.7149 -63.9979,2.7060 -64.0044,2.6795 -64.0077,2.6228 -64.0122,2.6038 -64.0505,2.5347 -64.0578,2.5104 -64.0566,2.4885 -64.0480,2.4713 -64.0325,2.4630 -64.0108,2.4682 -63.9518,2.4615 -63.8313,2.4286 -63.7670,2.4293 -63.7041,2.4376 -63.5738,2.4344 -63.5107,2.4247 -63.3848,2.4206 -63.3649,2.4131 -63.3611,2.4000 -63.3712,2.3651 -63.3728,2.3491 -63.3705,2.2812 -63.3726,2.2668 -63.4006,2.2046 -63.4039,2.1885 -63.4022,2.1705 -63.4118,2.1494 -63.4434,2.1372 -63.5107,2.1246 -63.5205,2.1245 -63.5490,2.1284 -63.5620,2.1264 -63.6175,2.1012 -63.7626,1.9857 -63.7832,1.9750 -63.8023,1.9723 -63.9208,1.9743 -63.9583,1.9707 -63.9950,1.9580 -64.0366,1.9273 -64.0536,1.8937 -64.0603,1.8075 -64.0760,1.7454 -64.0725,1.6846 -64.0754,1.6654 -64.0809,1.6474 -64.0930,1.6226 -64.1095,1.5985 -64.1297,1.5781 -64.1771,1.5511 -64.2321,1.4971 -64.3015,1.4467 -64.3219,1.4244 -64.3407,1.3842 -64.3529,1.3658 -64.3701,1.3587 -64.3896,1.3693 -64.3948,1.3922 -64.3914,1.4177 -64.3850,1.4364 -64.3638,1.4774 -64.3646,1.4971 -64.3864,1.5102 -64.4090,1.5075 -64.4331,1.4940 -64.4751,1.4630 -64.5279,1.4357 -64.5512,1.4195 -64.5703,1.3955 -64.5912,1.3501 -64.6042,1.3313 -64.7309,1.2476 -64.7512,1.2433 -64.7713,1.2467 -64.8214,1.2706 -64.8393,1.2708 -64.8553,1.2587 -64.8777,1.2349 -64.8974,1.2197 -64.9147,1.2148 -64.9329,1.2130 -64.9561,1.2068 -64.9665,1.2006 -64.9994,1.1720 -65.0033,1.1694 -65.0132,1.1658 -65.0174,1.1630 -65.0197,1.1577 -65.0207,1.1440 -65.0225,1.1400 -65.0596,1.1324 -65.1005,1.1361 -65.1368,1.1269 -65.1602,1.0802 -65.1684,0.9965 -65.1790,0.9554 -65.2030,0.9238 -65.2231,0.9144 -65.2434,0.9131 -65.2844,0.9194 -65.3103,0.9187 -65.3272,0.9103 -65.3890,0.8357 -65.4000,0.8165 -65.4096,0.7921 -65.4108,0.7839 -65.4094,0.7553 -65.4139,0.7416 -65.4327,0.7209 -65.4512,0.6901 -65.4729,0.6725 -65.4978,0.6587 -65.5197,0.6509 -65.5427,0.6493 -65.5605,0.6560 -65.5743,0.6702 -65.5852,0.6915 -65.5873,0.7391 -65.5633,0.7779 -65.5332,0.8163 -65.5170,0.8628 -65.5185,0.8865 -65.5251,0.9083 -65.5358,0.9285 -65.5598,0.9580 -65.5709,0.9686 -65.5829,0.9777 -65.5960,0.9836 -65.6081,0.9853 -65.6287,0.9820 -65.7010,0.9844 -65.7210,0.9819 -65.7454,0.9742 -65.7854,0.9491 -65.8720,0.9090 -65.8918,0.8956 -65.9142,0.8746 -65.9527,0.8280 -65.9741,0.8070 -65.9942,0.7947 -66.0138,0.7897 -66.0575,0.7870 -66.0792,0.7776 -66.1111,0.7418 -66.1344,0.7311 -66.1563,0.7330 -66.1731,0.7431 -66.1890,0.7549 -66.2087,0.7631 -66.2283,0.7628 -66.2851,0.7458 -66.3462,0.7594 -66.4071,0.8021 -66.6356,1.0074 -66.8641,1.2127 -66.8800,1.2326 -66.8959,1.2653 -66.9009,1.2890 -66.8923,1.3064 -66.8825,1.3260 -66.8835,1.3499 -66.8912,1.3745 -66.9017,1.3945 -66.9119,1.4052 -66.9189,1.4108 -66.9234,1.4144 -66.9327,1.4246 -66.9365,1.4385 -66.9324,1.4634 -66.9297,1.4795 -66.9336,1.5017 -66.9432,1.5232 -66.9508,1.5358 -66.9645,1.5583 -66.9742,1.5800 -66.9781,1.5997 -66.9781,1.6425 -66.9781,1.6443 -66.9809,1.6659 -66.9907,1.6919 -66.9938,1.7002 -67.0668,1.8941 -67.0848,1.9280 -67.0873,1.9388 -67.0916,1.9465 -67.1103,1.9595 -67.1181,1.9724 -67.1255,1.9805 -67.1326,1.9908 -67.1328,1.9916 -67.1351,2.0033 -67.1280,2.0125 -67.1190,2.0240 -67.1146,2.0313 -67.1112,2.0488 -67.1131,2.0785 -67.1143,2.0981 -67.1146,2.1030 -67.1210,2.1191 -67.1360,2.1271 -67.1541,2.1327 -67.1662,2.1394 -67.1693,2.1412 -67.1778,2.1545 -67.1943,2.1970 -67.1971,2.2095 -67.2013,2.2279 -67.2088,2.2459 -67.2173,2.2661 -67.2177,2.2845 -67.2063,2.2978 -67.1870,2.3160 -67.1767,2.3319 -67.1738,2.3364 -67.1743,2.3383 -67.1802,2.3565 -67.1857,2.3655 -67.1859,2.3753 -67.1861,2.3845 -67.1897,2.3944 -67.1976,2.4020 -67.2314,2.4223 -67.2568,2.4306 -67.2666,2.4338 -67.2757,2.4394 -67.2816,2.4453 -67.2947,2.4584 -67.3057,2.4662 -67.3166,2.4695 -67.3254,2.4746 -67.3313,2.4867 -67.3358,2.5003 -67.3406,2.5105 -67.3499,2.5185 -67.3720,2.5304 -67.3809,2.5373 -67.3815,2.5378 -67.3821,2.5387 -67.3881,2.5482 -67.3932,2.5593 -67.4004,2.5682 -67.4106,2.5712 -67.4129,2.5719 -67.4170,2.5758 -67.4326,2.5954 -67.4335,2.5974 -67.4362,2.6036 -67.4403,2.6100 -67.4476,2.6136 -67.4617,2.6204 -67.4709,2.6271 -67.4750,2.6347 -67.4801,2.6507 -67.4810,2.6535 -67.4852,2.6619 -67.5003,2.6753 -67.5022,2.6759 -67.5078,2.6776 -67.5188,2.6810 -67.5485,2.6815 -67.5637,2.6817 -67.5654,2.6831 -67.5686,2.6856 -67.5756,2.6911 -67.5815,2.7131 -67.5833,2.7278 -67.5871,2.7581 -67.5943,2.7761 -67.6085,2.7986 -67.6266,2.8134 -67.6457,2.8087 -67.6475,2.8080 -67.6656,2.8013 -67.6904,2.8063 -67.7316,2.8263 -67.7408,2.8367 -67.7426,2.8386 -67.7510,2.8421 -67.7702,2.8324 -67.7814,2.8315 -67.8033,2.8326 -67.8233,2.8273 -67.8333,2.8152 -67.8413,2.8014 -67.8550,2.7905 -67.8559,2.7898 -67.8553,2.8582 -67.8386,2.8861 -67.8136,2.9093 -67.7708,2.9490 -67.7280,2.9886 -67.6851,3.0282 -67.6423,3.0678 -67.5995,3.1075 -67.5566,3.1470 -67.5138,3.1867 -67.4709,3.2263 -67.4522,3.2437 -67.4403,3.2494 -67.4402,3.2494 -67.4184,3.2537 -67.4103,3.2565 -67.4081,3.2573 -67.3958,3.2666 -67.3353,3.3421 -67.3095,3.3839 -67.3046,3.4257 -67.3378,3.4601 -67.3754,3.4749 -67.3901,3.4851 -67.4039,3.5045 -67.4714,3.6801 -67.4998,3.7179 -67.5374,3.7355 -67.5579,3.7342 -67.5765,3.7307 -67.5948,3.7309 -67.6141,3.7406 -67.6318,3.7619 -67.6388,3.7852 -67.6444,3.8346 -67.6539,3.8592 -67.6939,3.9286 -67.6986,3.9500 -67.7016,4.0120 -67.7104,4.0357 -67.7170,4.0393 -67.7141,4.0565 -67.7149,4.0589 -67.7206,4.0750 -67.7272,4.0818 -67.7316,4.0864 -67.7335,4.0935 -67.7402,4.1187 -67.7562,4.1357 -67.7589,4.1386 -67.7777,4.1539 -67.7862,4.1730 -67.7899,4.1984 -67.7908,4.2043 -67.7994,4.2353 -67.8034,4.2592 -67.8049,4.2685 -67.8006,4.3008 -67.7999,4.3061 -67.7820,4.3389 -67.7794,4.3508 -67.7827,4.3638 -67.7950,4.3831 -67.7967,4.3858 -67.7999,4.3989 -67.7984,4.4069 -67.7927,4.4208 -67.7931,4.4289 -67.7931,4.4290 -67.7971,4.4349 -67.7984,4.4354 -67.8094,4.4393 -67.8135,4.4433 -67.8171,4.4584 -67.8219,4.4782 -67.8291,4.4914 -67.8477,4.5047 -67.8477,4.4979 -67.8515,4.5006 -67.8566,4.5042 -67.8651,4.5121 -67.8718,4.5216 -67.8736,4.5278 -67.8751,4.5326 -67.8734,4.5465 -67.8676,4.5532 -67.8606,4.5580 -67.8552,4.5662 -67.8537,4.5758 -67.8552,4.6077 -67.8488,4.6342 -67.8456,4.6897 -67.8406,4.7115 -67.8306,4.7275 -67.8229,4.7436 -67.8205,4.7876 -67.8135,4.8063 -67.8186,4.8157 -67.8171,4.8215 -67.8139,4.8283 -67.8135,4.8405 -67.8161,4.8473 -67.8224,4.8595 -67.8252,4.8649 -67.8272,4.8715 -67.8264,4.8948 -67.8196,4.9333 -67.8067,4.9723 -67.8050,4.9912 -67.8067,5.0357 -67.8046,5.0409 -67.7999,5.0459 -67.7952,5.0527 -67.7938,5.0596 -67.7931,5.0633 -67.7968,5.0702 -67.8139,5.0900 -67.8147,5.0910 -67.8210,5.1006 -67.8211,5.1009 -67.8245,5.1106 -67.8266,5.1204 -67.8269,5.1230 -67.8276,5.1307 -67.8272,5.1421 -67.8246,5.1543 -67.8198,5.1667 -67.8156,5.1779 -67.8135,5.1866 -67.8143,5.2013 -67.8147,5.2103 -67.8186,5.2278 -67.8250,5.2428 -67.8340,5.2589 -67.8378,5.2740 -67.8437,5.2972 -67.8379,5.3239 -67.8346,5.3393 -67.8098,5.3788 -67.8038,5.3838 -67.7986,5.3881 -67.7726,5.4097 -67.7679,5.4105 -67.7629,5.4097 -67.7567,5.4088 -67.7521,5.4097 -67.7467,5.4143 -67.7378,5.4249 -67.7370,5.4258 -67.7316,5.4301 -67.7248,5.4328 -67.7021,5.4414 -67.6937,5.4472 -67.6846,5.4570 -67.6753,5.4672 -67.6645,5.4749 -67.6525,5.4780 -67.6470,5.4834 -67.6360,5.5195 -67.6300,5.5269 -67.6230,5.5334 -67.6170,5.5416 -67.6156,5.5480 -67.6143,5.5537 -67.6177,5.5585 -67.6189,5.5597 -67.6326,5.5731 -67.6360,5.5776 -67.6378,5.5973 -67.6491,5.6561 -67.6491,5.6663 -67.6491,5.6870 -67.6491,5.7020 -67.6412,5.7448 -67.6251,5.7845 -67.6012,5.8206 -67.5416,5.8767 -67.5324,5.8926 -67.4852,5.9441 -67.4709,5.9528 -67.4398,5.9660 -67.4348,5.9682 -67.4225,5.9782 -67.4211,5.9844 -67.4186,5.9953 -67.4194,6.0029 -67.4210,6.0183 -67.4286,6.0385 -67.4523,6.0553 -67.4543,6.0568 -67.4912,6.1145 -67.4912,6.1174 -67.4912,6.1202 -67.4914,6.1530 -67.4870,6.1668 -67.4762,6.1784 -67.4556,6.1938 -67.4500,6.1979 -67.4643,6.1993 -67.4905,6.2016 -67.5183,6.2225 -67.5449,6.2481 -67.5728,6.2655 -67.5740,6.2662 -67.7310,6.3027 -67.8008,6.3086 -67.8185,6.3138 -67.8272,6.3134 -67.8391,6.3075 -67.8567,6.2894 -67.8576,6.2885 -67.8681,6.2799 -67.8748,6.2787 -67.8793,6.2779 -67.8928,6.2783 -67.9043,6.2751 -67.9092,6.2625 -67.9100,6.2580 -67.9111,6.2523 -67.9163,6.2422 -67.9241,6.2346 -67.9337,6.2315 -67.9433,6.2297 -67.9779,6.2179 -67.9780,6.2178 -68.0190,6.2116 -68.1465,6.2238 -68.1508,6.2232 -68.1538,6.2228 -68.1903,6.2178 -68.3042,6.1770 -68.3411,6.1768 -68.4067,6.1949 -68.4274,6.1973 -68.4490,6.1950 -68.5225,6.1733 -68.5847,6.1700 -68.5957,6.1649 -68.6220,6.1419 -68.6353,6.1359 -68.6593,6.1387 -68.7009,6.1580 -68.7216,6.1625 -68.7441,6.1649 -68.8079,6.1843 -68.8291,6.1878 -68.8929,6.1843 -68.9145,6.1887 -68.9383,6.1971 -68.9609,6.2024 -68.9713,6.1994 -68.9786,6.1973 -68.9928,6.2036 -69.0162,6.2140 -69.0369,6.2188 -69.0611,6.2178 -69.0802,6.2094 -69.1084,6.1826 -69.1300,6.1699 -69.1546,6.1460 -69.1892,6.1126 -69.2461,6.0807 -69.2686,6.0975 -69.2901,6.1220 -69.3113,6.1462 -69.3238,6.1525 -69.3256,6.1534 -69.3314,6.1564 -69.3582,6.1516 -69.4061,6.1293 -69.4311,6.1222 -69.4324,6.1222 -69.4436,6.1222 -69.4726,6.1587 -69.5485,6.2543 -69.6244,6.3498 -69.7002,6.4453 -69.7760,6.5408 -69.8518,6.6363 -69.9277,6.7318 -70.0036,6.8274 -70.0794,6.9228 -70.0966,6.9444 -70.1292,6.9725 -70.1320,6.9732 -70.1578,6.9795 -70.1950,6.9776 -70.2313,6.9685 -70.2740,6.9446 -70.2876,6.9369 -70.3191,6.9383 -70.3831,6.9688 -70.4229,6.9878 -70.4378,6.9930 -70.4410,6.9957 -70.4470,7.0047 -70.4517,7.0077 -70.4613,7.0083 -70.4841,7.0053 -70.4844,7.0053 -70.4948,7.0055 -70.5107,7.0097 -70.5209,7.0156 -70.5715,7.0794 -70.5774,7.0847 -70.5786,7.0858 -70.5947,7.0830 -70.6195,7.0752 -70.6229,7.0741 -70.6393,7.0735 -70.6732,7.0812 -70.6826,7.0846 -70.6967,7.0967 -70.7033,7.0999 -70.7330,7.0993 -70.7931,7.0851 -70.8366,7.0819 -70.8748,7.0692 -70.8955,7.0685 -70.9034,7.0632 -70.9081,7.0534 -70.9188,7.0395 -70.9613,7.0094 -71.0113,6.9909 -71.0163,6.9903 -71.0438,6.9871 -71.0655,6.9845 -71.1360,6.9921 -71.1454,6.9862 -71.1536,6.9771 -71.1663,6.9681 -71.1840,6.9626 -71.1861,6.9631 -71.1938,6.9653 -71.2015,6.9719 -71.2132,6.9775 -71.2348,6.9780 -71.2620,6.9787 -71.2755,6.9844 -71.2807,6.9946 -71.2815,7.0072 -71.2826,7.0137 -71.2835,7.0188 -71.2886,7.0228 -71.2925,7.0258 -71.3078,7.0274 -71.3494,7.0195 -71.3660,7.0207 -71.3792,7.0243 -71.3982,7.0295 -71.4139,7.0310 -71.4295,7.0277 -71.4547,7.0162 -71.4558,7.0157 -71.4677,7.0124 -71.4796,7.0222 -71.4876,7.0289 -71.5099,7.0346 -71.5161,7.0330 -71.5281,7.0299 -71.5291,7.0283 -71.5288,7.0271 -71.5486,7.0283 -71.5493,7.0291 -71.5511,7.0318 -71.5536,7.0373 -71.5584,7.0412 -71.5671,7.0393 -71.5806,7.0316 -71.5878,7.0293 -71.5947,7.0301 -71.6065,7.0383 -71.6122,7.0463 -71.6204,7.0521 -71.6452,7.0530 -71.6543,7.0534 -71.6670,7.0515 -71.6694,7.0488 -71.6735,7.0442 -71.6696,7.0277 -71.6980,7.0350 -71.7217,7.0334 -71.7454,7.0293 -71.7643,7.0291 -71.7740,7.0289 -71.7715,7.0111 -71.7778,7.0075 -71.7886,7.0097 -71.7996,7.0092 -71.8121,7.0012 -71.8219,6.9930 -71.8302,6.9879 -71.8326,6.9864 -71.8482,6.9839 -71.8810,6.9866 -71.9938,7.0129 -72.0053,7.0191 -72.0287,7.0388 -72.0421,7.0469 -72.0696,7.0592 -72.0810,7.0666 -72.0983,7.0868 -72.1533,7.1926 -72.1641,7.2208 -72.1715,7.2499 -72.1742,7.2796 -72.1735,7.2882 -72.1640,7.3289 -72.1663,7.3341 -72.1717,7.3373 -72.2062,7.3819 -72.2258,7.3874 -72.2397,7.3913 -72.2592,7.3910 -72.3218,7.3900 -72.3708,7.3991 -72.3882,7.4049 -72.4021,7.4096 -72.4146,7.4138 -72.4513,7.4402 -72.4787,7.4845 -72.4820,7.5080 -72.4759,7.5286 -72.4674,7.5487 -72.4665,7.5538 -72.4634,7.5708 -72.4645,7.5770 -72.4668,7.5899 -72.4804,7.6289 -72.4833,7.6494 -72.4742,7.7542 -72.4542,7.8152 -72.4518,7.8328 -72.4535,7.8599 -72.4545,7.8762 -72.4586,7.8935 -72.4657,7.9046 -72.4688,7.9082 -72.4867,7.9287 -72.4912,7.9375 -72.4878,7.9492 -72.4788,7.9555 -72.4674,7.9597 -72.4567,7.9649 -72.4419,7.9771 -72.4301,7.9905 -72.4219,8.0062 -72.4171,8.0258 -72.4071,8.0438 -72.3883,8.0462 -72.3785,8.0446 -72.3672,8.0427 -72.3501,8.0426 -72.3462,8.0481 -72.3338,8.0655 -72.3358,8.1039 -72.3573,8.1721 -72.3905,8.2343 -72.3960,8.2566 -72.3948,8.2728 -72.3858,8.3055 -72.3848,8.3147 -72.3840,8.3218 -72.3846,8.3258 -72.3868,8.3386 -72.3935,8.3554 -72.4033,8.3705 -72.4151,8.3824 -72.4250,8.3877 -72.4344,8.3902 -72.4445,8.3941 -72.4563,8.4039 -72.4799,8.4293 -72.4995,8.4504 -72.5192,8.4715 -72.5388,8.4926 -72.5585,8.5137 -72.5781,8.5349 -72.5978,8.5560 -72.6173,8.5770 -72.6371,8.5982 -72.6554,8.6179 -72.6754,8.6515 -72.6860,8.6917 -72.6975,8.7354 -72.7090,8.7791 -72.7205,8.8227 -72.7321,8.8664 -72.7435,8.9101 -72.7551,8.9537 -72.7666,8.9974 -72.7747,9.0282 -72.7781,9.0411 -72.7831,9.0599 -72.7840,9.0610 -72.8000,9.0794 -72.7856,9.1024 -72.7910,9.1139 -72.8077,9.1237 -72.8267,9.1417 -72.8341,9.1336 -72.8415,9.1338 -72.8467,9.1355 -72.8503,9.1367 -72.8617,9.1370 -72.8740,9.1334 -72.8820,9.1294 -72.8986,9.1185 -72.9162,9.1070 -72.9364,9.0992 -72.9553,9.1040 -72.9732,9.1284 -72.9787,9.1501 -72.9760,9.1921 -72.9801,9.2165 -72.9829,9.2210 -72.9922,9.2303 -72.9956,9.2354 -72.9955,9.2391 -72.9914,9.2479 -72.9911,9.2517 -73.0036,9.2879 -73.0097,9.2954 -73.0215,9.2950 -73.0327,9.2946 -73.0544,9.2744 -73.0760,9.2543 -73.0988,9.2416 -73.1132,9.2376 -73.1243,9.2345 -73.1419,9.2230 -73.1529,9.2127 -73.1762,9.1909 -73.2122,9.1734 -73.2166,9.1728 -73.2294,9.1711 -73.2538,9.1677 -73.3778,9.1647 -73.3911,9.1728 -73.3908,9.1945 -73.3791,9.2139 -73.3422,9.2392 -73.3244,9.2559 -73.3118,9.2762 -73.2774,9.3618 -73.2000,9.4749 -73.1974,9.4787 -73.1944,9.4856 -73.1784,9.5230 -73.1722,9.5287 -73.1637,9.5363 -73.1236,9.5613 -73.1132,9.5722 -73.1077,9.5780 -73.0972,9.5964 -73.0719,9.6641 -73.0169,9.7486 -72.9855,9.8122 -72.9776,9.8381 -72.9816,9.8566 -72.9904,9.8750 -72.9970,9.9007 -72.9962,9.9213 -72.9879,9.9604 -72.9877,9.9994 -72.9588,10.0971 -72.9356,10.1752 -72.9198,10.3474 -72.9155,10.3943 -72.9162,10.4138 -72.9149,10.4329 -72.9076,10.4525 -72.8920,10.4729 -72.8754,10.4896 -72.8614,10.5081 -72.8559,10.5237 -72.8430,10.5606 -72.7814,10.6313 -72.7544,10.6749 -72.7061,10.8113 -72.6830,10.8556 -72.6567,10.8852 -72.6401,10.8967 -72.6131,10.9153 -72.5945,10.9330 -72.5774,10.9560 -72.5765,10.9574 -72.5762,10.9579 -72.5421,11.0411 -72.5339,11.0524 -72.5150,11.0725 -72.5142,11.0736 -72.5075,11.0830 -72.5047,11.0927 -72.5046,11.0952 -72.5038,11.1118 -72.4993,11.1208 -72.4815,11.1325 -72.4600,11.1358 -72.4391,11.1367 -72.4385,11.1367 -72.4332,11.1369 -72.4170,11.1376 -72.3614,11.1580 -72.3413,11.1621 -72.3219,11.1601 -72.2847,11.1505 -72.2671,11.1549 -72.2667,11.1553 -72.2566,11.1678 -72.2268,11.2226 -72.1969,11.2774 -72.1671,11.3322 -72.1373,11.3870 -72.1075,11.4418 -72.0776,11.4965 -72.0478,11.5513 -72.0180,11.6061 -72.0079,11.6246 -71.9906,11.6491 -71.9835,11.6538 -71.9808,11.6555 -71.9711,11.6619 -71.9452,11.6685 -71.8866,11.6835 -71.8280,11.6986 -71.7694,11.7135 -71.7109,11.7285 -71.6523,11.7436 -71.5936,11.7585 -71.5351,11.7735 -71.4765,11.7886 -71.4495,11.7955 -71.4097,11.8123 -71.3944,11.8252 -71.3934,11.8259 -71.3755,11.8411 -71.3576,11.8508 -71.3320,11.8501 -71.3281,11.8517 -71.3274,11.8501 -71.1036,11.7849 -71.0809,11.8068 -70.9406,11.9421 -70.9031,12.0140 -70.8981,12.0883 -70.9298,12.1934 -70.9615,12.2546 -70.6895,12.3022 -70.4176,12.3498 -70.3375,12.3498 -70.1647,12.3498 -70.1410,12.3652 -69.7399,12.2619 -69.5193,12.1341 -69.2995,12.0068 -69.0797,11.8795 -68.9550,11.7586 -68.8300,11.7417 -68.6822,11.6928 -68.6007,11.6657 -68.2955,11.6657 -67.9903,11.6657 -67.9903,11.7861 -67.9903,11.8509 -67.9903,11.9518 -67.9903,12.0772 -67.9903,12.1002 -67.9796,12.1214 21,11.5,Pacific/Norfolk 169.5000,-30.0000 169.0833,-30.0000 168.6667,-30.0000 168.2500,-30.0000 167.8333,-30.0000 167.4167,-30.0000 167.0000,-30.0000 167.0000,-29.5000 167.0000,-29.0000 167.0000,-28.5000 167.0000,-28.0000 167.4167,-28.0000 167.8333,-28.0000 168.2500,-28.0000 168.6667,-28.0000 169.0833,-28.0000 169.5000,-28.0000 169.5000,-28.5000 169.5000,-29.0000 169.5000,-29.5000 169.5000,-30.0000 478,9.5,Australia/Adelaide 132.8973,-10.7683 132.9965,-10.8390 133.1194,-10.8834 133.1894,-10.9459 133.2260,-11.0208 133.2284,-11.1175 133.1860,-11.2078 133.1234,-11.2658 133.2269,-11.3704 133.2771,-11.3182 133.3504,-11.2779 133.4315,-11.2607 133.5271,-11.2684 133.6135,-11.3043 133.6798,-11.3666 133.7126,-11.4396 133.7161,-11.5296 133.8253,-11.5119 133.8516,-11.5076 133.9968,-11.5355 134.0504,-11.5674 134.1469,-11.6607 134.4728,-11.8519 134.5162,-11.8496 134.6031,-11.7829 134.6944,-11.7496 134.7915,-11.7447 134.9055,-11.7775 134.9434,-11.7610 134.9306,-11.7135 134.9419,-11.6214 134.9843,-11.5495 135.0513,-11.4991 135.1408,-11.4740 135.2244,-11.4851 135.2973,-11.5268 135.3584,-11.6020 135.3801,-11.6824 135.3689,-11.7648 135.3255,-11.8449 135.3354,-11.8925 135.3998,-11.8747 135.4927,-11.7833 135.6422,-11.7323 135.7318,-11.6114 135.8828,-11.4923 135.9068,-11.4836 135.9137,-11.4583 135.9602,-11.3938 136.0302,-11.3475 136.1175,-11.3305 136.2002,-11.3466 136.2322,-11.3677 136.3106,-11.3375 136.5029,-11.0670 136.5667,-10.9150 136.6261,-10.8562 136.6867,-10.8265 136.7594,-10.8135 136.8258,-10.8207 136.8877,-10.8470 136.9395,-10.8914 136.9736,-10.9496 136.9863,-11.0202 136.9780,-11.0948 136.9101,-11.2995 136.7966,-11.4534 136.8443,-11.4450 136.9383,-11.4728 137.0178,-11.5505 137.0516,-11.6530 137.0410,-11.7354 137.0058,-11.8013 136.9546,-11.8490 136.8918,-11.8802 136.9269,-11.8918 136.9974,-11.9534 137.0679,-12.1221 137.1771,-12.2740 137.1886,-12.3813 137.1483,-12.4691 136.9347,-12.6822 136.8344,-12.8458 136.8568,-13.0197 136.8260,-13.1263 136.7103,-13.2296 136.6966,-13.2500 136.5962,-13.4001 136.4386,-13.4886 136.4266,-13.5032 136.4646,-13.4865 136.5354,-13.4841 136.5368,-13.4845 136.5883,-13.4655 136.7459,-13.4468 136.7980,-13.4643 136.8036,-13.4587 136.8978,-13.4161 136.9965,-13.4126 137.0630,-13.4368 137.1180,-13.4806 137.1557,-13.5394 137.1717,-13.6003 137.1534,-13.7188 137.1203,-13.7584 137.1289,-13.7998 137.1103,-13.8898 137.0611,-13.9616 137.1308,-14.0131 137.1712,-14.0883 137.1847,-14.1907 137.1665,-14.2967 137.1274,-14.3809 137.0785,-14.4391 137.0280,-14.4731 136.9551,-14.4936 136.6488,-14.4854 136.4326,-14.4182 136.2757,-14.4276 136.1826,-14.3769 136.1311,-14.2958 136.1199,-14.2272 136.1127,-14.2275 136.0782,-14.3117 136.0281,-14.3605 135.9054,-14.4251 135.7434,-14.6344 135.8602,-14.6668 135.9487,-14.7583 135.9823,-14.8803 135.9505,-14.9950 136.0610,-15.0852 136.3528,-15.2539 136.4016,-15.2994 136.4339,-15.3542 136.5876,-15.3158 136.7431,-15.3458 136.8868,-15.2976 136.9486,-15.3077 137.0080,-15.3381 137.0684,-15.3957 137.1700,-15.4609 137.2349,-15.5369 137.2824,-15.6572 137.3060,-15.7962 137.3372,-15.8396 137.4897,-15.9439 137.7518,-16.0359 137.8341,-16.0780 137.8975,-16.1349 137.9970,-16.2671 137.9970,-16.4074 137.9970,-16.4328 138.0010,-16.5552 138.0006,-16.8315 138.0002,-17.1077 138.0002,-17.1448 138.0002,-17.4400 138.0002,-17.7351 138.0002,-18.0303 138.0002,-18.3255 138.0002,-18.4478 138.0002,-18.6207 138.0002,-18.9158 138.0002,-19.2110 138.0002,-19.5062 138.0002,-19.8014 138.0002,-20.0966 138.0002,-20.3917 138.0002,-20.6868 138.0002,-20.9820 138.0002,-21.2772 138.0002,-21.5724 138.0002,-21.8675 138.0002,-22.1627 138.0002,-22.4578 138.0002,-22.7529 138.0002,-23.0482 138.0002,-23.3434 138.0002,-23.6385 138.0002,-23.9336 138.0002,-24.2289 138.0002,-24.5241 138.0002,-24.8192 138.0002,-25.1143 138.0002,-25.4096 138.0002,-25.7048 138.0002,-25.9999 138.3750,-25.9999 138.7501,-25.9999 139.1250,-25.9999 139.4999,-25.9999 139.8748,-25.9999 140.2498,-25.9999 140.6247,-25.9999 140.9996,-25.9999 140.9997,-25.9999 140.9998,-25.9999 140.9999,-25.9999 141.0000,-25.9999 141.0000,-25.9999 141.0001,-25.9999 141.0001,-26.3750 141.0001,-26.7499 141.0001,-27.1249 141.0001,-27.5000 141.0001,-27.8749 141.0001,-28.2499 141.0001,-28.6250 141.0001,-28.9999 141.0001,-29.3141 141.0001,-29.6282 141.0001,-29.9422 141.0001,-30.2563 141.0001,-30.5705 141.0001,-30.8846 141.0001,-31.1987 141.0001,-31.4409 141.3216,-31.4409 141.6431,-31.4409 141.6431,-31.7080 141.6430,-31.9750 141.3216,-31.9748 141.0001,-31.9746 141.0001,-32.1410 141.0001,-32.4551 141.0001,-32.7692 141.0001,-33.0834 141.0001,-33.3974 141.0001,-33.7115 141.0001,-34.0185 140.9872,-34.0009 140.9671,-33.9865 140.9671,-34.0664 140.9672,-34.5661 140.9673,-34.6529 140.9674,-35.0659 140.9676,-35.5655 140.9676,-36.0652 140.9677,-36.3671 140.9677,-36.5650 140.9679,-37.0646 140.9680,-37.5644 140.9681,-37.8686 140.9682,-38.0394 140.9572,-38.0560 140.9706,-38.0601 140.9707,-38.0602 140.9659,-38.1140 140.9706,-38.1586 140.9794,-38.2416 140.9178,-38.2213 140.7187,-38.2330 140.6093,-38.2181 140.4953,-38.1724 140.2694,-38.0450 140.1947,-37.9740 140.0581,-37.7637 139.8378,-37.5971 139.6777,-37.4388 139.5587,-37.2693 139.5377,-37.2000 139.5358,-37.1070 139.4846,-37.0281 139.4675,-36.9681 139.4740,-36.9109 139.5053,-36.8579 139.5523,-36.8198 139.6359,-36.7813 139.6546,-36.7588 139.6465,-36.6692 139.6076,-36.5722 139.4253,-36.2315 139.2654,-36.0283 139.1506,-35.9340 138.8385,-35.7357 138.7666,-35.7221 138.5791,-35.8078 138.3374,-35.8286 138.2926,-35.9593 138.1650,-36.0541 138.1004,-36.0783 138.0359,-36.0846 137.8190,-36.0362 137.7869,-36.0984 137.7269,-36.1507 137.5741,-36.2220 137.4844,-36.2458 137.4020,-36.2401 137.2737,-36.1818 137.1365,-36.2061 136.7273,-36.2265 136.6599,-36.2207 136.5758,-36.1828 136.5027,-36.0999 136.3644,-36.0034 136.0889,-35.7021 135.8134,-35.4007 135.5380,-35.0994 135.4686,-35.0542 135.4126,-34.9552 135.3195,-34.8598 135.2319,-34.8355 135.1418,-34.7745 135.0126,-34.7447 134.9582,-34.7068 134.7543,-34.4406 134.5503,-34.1745 134.3463,-33.9083 134.3064,-33.8691 134.2884,-33.8338 134.2384,-33.5778 134.1885,-33.3217 134.1382,-33.2831 134.0781,-33.2030 134.0088,-33.1489 133.8795,-32.9858 133.8614,-32.9311 133.8865,-32.8237 133.8665,-32.7278 133.8466,-32.7105 133.7445,-32.6828 133.6942,-32.6396 133.6605,-32.5682 133.6585,-32.4731 133.5897,-32.4899 133.5160,-32.4860 133.4567,-32.4650 133.3479,-32.3891 133.0760,-32.3558 132.9656,-32.2830 132.8461,-32.2358 132.7434,-32.1488 132.6836,-32.1234 132.6491,-32.1235 132.5167,-32.1957 132.4064,-32.1929 132.2742,-32.2085 132.1531,-32.1895 132.0650,-32.1475 131.9183,-32.0268 131.6164,-31.8408 131.4318,-31.7537 131.1824,-31.6594 131.0591,-31.7153 130.8225,-31.7765 130.3811,-31.7560 129.9391,-31.7601 129.4685,-31.8122 129.2820,-31.8183 129.1465,-31.8398 128.9971,-31.8718 128.9971,-31.8161 128.9981,-31.8161 128.9997,-31.7841 129.0001,-31.7547 129.0012,-31.6892 129.0011,-31.6892 129.0012,-31.6891 129.0017,-31.1894 129.0022,-30.6898 129.0027,-30.1901 129.0032,-29.6905 129.0037,-29.1908 129.0042,-28.6912 129.0047,-28.1916 129.0052,-27.6919 129.0057,-27.1923 129.0062,-26.6926 129.0065,-26.3488 129.0068,-26.0049 129.0066,-25.5504 129.0064,-25.0958 129.0061,-24.6413 129.0059,-24.1867 129.0056,-23.7322 129.0054,-23.2776 129.0052,-22.8231 129.0049,-22.3685 129.0047,-21.9140 129.0044,-21.4594 129.0042,-21.0049 129.0039,-20.5049 129.0037,-20.0049 129.0034,-19.5049 129.0031,-19.0049 129.0029,-18.5049 129.0026,-18.0049 129.0023,-17.5049 129.0021,-17.0049 129.0018,-16.5049 129.0015,-16.0049 129.0013,-15.6296 129.0011,-15.2542 129.0009,-14.8789 129.0011,-14.8682 128.9942,-14.7782 128.9981,-14.7750 129.0014,-14.6579 129.0595,-14.6740 129.2207,-14.6461 129.3430,-14.6641 129.2040,-14.5388 129.1660,-14.4728 129.1533,-14.4108 129.1672,-14.3128 129.2724,-14.1046 129.3091,-13.9459 129.3524,-13.8985 129.4770,-13.8381 129.5317,-13.7837 129.6577,-13.4409 129.7354,-13.3075 129.8215,-13.2456 129.9306,-13.2364 129.9072,-13.1344 129.9077,-13.0088 129.9306,-12.8904 129.9721,-12.8104 130.0436,-12.7482 130.1386,-12.7003 130.1506,-12.6310 130.1514,-12.6294 130.1488,-12.5980 130.1774,-12.5199 130.2645,-12.4092 130.3520,-12.3651 130.3790,-12.3632 130.3928,-12.3147 130.4513,-12.2428 130.5783,-12.1858 130.7495,-12.1911 130.7800,-12.1708 130.7952,-12.1446 130.7850,-12.0622 130.7849,-12.0620 130.6908,-12.0209 130.4662,-12.0286 130.3112,-11.9978 130.1311,-12.0311 130.0062,-12.0204 129.8984,-11.9605 129.8251,-11.8547 129.8109,-11.7822 129.8236,-11.7057 129.9243,-11.5181 129.9985,-11.3430 130.0669,-11.2496 130.1583,-11.1615 130.2341,-11.0273 130.2951,-10.9784 130.3618,-10.9534 130.4290,-10.9519 130.4929,-10.9715 130.5348,-10.9994 130.5931,-11.0692 130.6697,-11.0954 130.7503,-11.1465 130.8546,-11.1121 130.9901,-11.0988 131.1739,-11.0060 131.2720,-10.9873 131.3538,-11.0018 131.5347,-11.0825 131.6128,-11.1582 131.6571,-11.0878 131.7087,-11.0398 131.9135,-10.9437 131.9892,-10.9273 132.2643,-10.9259 132.3642,-10.8534 132.4866,-10.7914 132.5660,-10.7690 132.6454,-10.7702 132.7069,-10.7958 132.7607,-10.7658 132.8281,-10.7563 132.8973,-10.7683 14506,8.0,Australia/Perth 127.5045,90.0000 127.5059,89.5364 127.5074,89.0727 127.5089,88.6091 127.5104,88.1455 127.5119,87.6818 127.5133,87.2182 127.5148,86.7546 127.5163,86.2909 127.5178,85.8273 127.5193,85.3637 127.5208,84.9000 127.5220,84.4100 127.5232,83.9200 127.5244,83.4300 127.5256,82.9400 127.5269,82.4500 127.5281,81.9600 127.5293,81.4700 127.5305,80.9800 127.5317,80.4900 127.5330,80.0000 127.5276,79.9985 127.0592,79.8652 126.5907,79.7320 126.1223,79.5988 125.6538,79.4655 125.1854,79.3323 124.7169,79.1991 124.2485,79.0659 123.7801,78.9326 123.3116,78.7994 122.8432,78.6662 122.3747,78.5329 121.9063,78.3997 121.4378,78.2665 120.9694,78.1332 120.5010,78.0000 120.5000,78.0000 120.0001,78.0000 119.5002,78.0000 119.0002,78.0000 118.5003,78.0000 118.0004,78.0000 117.5005,78.0000 117.0006,78.0000 116.5006,78.0000 116.0007,78.0000 115.5008,78.0000 115.0009,78.0000 114.5010,78.0000 114.5010,77.5000 114.5010,77.0000 114.5010,76.5000 114.5010,76.0000 114.5010,75.5000 114.5010,75.0000 114.0387,74.9424 113.5764,74.8848 113.1141,74.8273 112.6518,74.7697 112.2298,74.6555 111.8077,74.5413 111.3856,74.4270 111.3409,74.2781 111.6835,74.0695 111.6388,73.9354 111.3005,73.8673 111.3003,73.8672 111.2817,73.8597 111.0119,73.8110 110.9283,73.7877 110.8787,73.7679 110.9189,73.7656 110.9183,73.7654 110.9193,73.7654 110.9079,73.7618 110.8942,73.7547 110.8826,73.7452 110.8777,73.7343 110.8808,73.7309 110.8857,73.7256 110.9198,73.7151 110.9199,73.7150 110.9261,73.7039 110.9087,73.6917 110.9149,73.6902 110.9329,73.6879 111.0576,73.6552 111.1115,73.6411 111.1205,73.6359 111.1251,73.6297 111.1239,73.6204 111.1090,73.6081 111.1043,73.6032 111.1008,73.5980 111.0949,73.5928 111.0859,73.5876 111.0740,73.5829 111.0199,73.5686 110.9892,73.5653 110.9885,73.5653 110.8559,73.5682 110.8558,73.5682 110.8283,73.5635 110.8188,73.5589 110.7872,73.5276 110.7753,73.5101 110.7219,73.4985 110.7098,73.4937 110.6820,73.4773 110.6556,73.4557 110.6169,73.4335 110.5661,73.4136 110.5387,73.4062 110.5241,73.4041 110.1690,73.4010 110.1592,73.3991 110.1586,73.3950 110.1855,73.3831 110.4046,73.3341 110.5068,73.3256 110.5366,73.3168 110.5587,73.2984 110.5869,73.2862 110.5958,73.2798 110.5983,73.2703 110.5935,73.2635 110.5838,73.2573 110.5717,73.2525 110.4102,73.2085 110.4000,73.2037 110.3959,73.1988 110.3978,73.1936 110.4059,73.1887 110.4254,73.1838 110.7559,73.1752 110.7714,73.1713 110.7818,73.1664 110.7850,73.1594 110.7843,73.1535 110.7843,73.1472 110.7872,73.1407 110.8125,73.1210 110.8240,73.1065 110.8279,73.0984 110.8299,73.0917 110.8308,73.0867 110.8345,73.0816 110.8409,73.0762 110.8541,73.0699 110.8932,73.0562 110.9022,73.0505 110.9066,73.0436 110.9050,73.0324 110.8952,73.0267 110.8822,73.0229 110.7807,73.0086 110.7599,73.0019 110.7549,72.9997 110.7546,72.9995 110.7535,72.9975 110.7543,72.9935 110.7587,72.9872 110.7742,72.9785 110.7862,72.9665 110.8018,72.9539 110.8184,72.9516 110.8313,72.9512 110.8412,72.9496 110.8382,72.9451 110.7373,72.9125 110.6494,72.9019 110.6371,72.8988 110.6283,72.8945 110.6281,72.8891 110.6299,72.8827 110.6346,72.8737 110.6315,72.8674 110.6315,72.8617 110.6353,72.8566 110.6443,72.8517 110.6803,72.8414 110.6930,72.8354 110.6962,72.8260 110.6910,72.8192 110.6806,72.8132 110.6277,72.7994 110.6170,72.7954 110.6110,72.7908 110.6097,72.7858 110.6116,72.7810 110.6296,72.7526 110.6314,72.7478 110.6491,72.7193 110.6505,72.7144 110.6528,72.7096 110.6540,72.7047 110.6562,72.6999 110.6574,72.6949 110.6596,72.6901 110.6609,72.6853 110.6637,72.6804 110.6705,72.6711 110.6797,72.6618 110.6893,72.6563 110.7026,72.6504 110.7327,72.6428 110.7540,72.6394 110.8862,72.6325 110.9007,72.6297 110.9106,72.6253 110.9101,72.6186 110.9016,72.6132 110.8808,72.6051 110.8783,72.6009 110.8847,72.5900 110.8821,72.5851 110.8816,72.5802 110.8963,72.5757 110.9299,72.5711 110.9299,72.5711 110.9599,72.5714 110.9896,72.5750 110.9899,72.5751 111.0105,72.5741 111.2112,72.5445 111.2394,72.5338 111.2558,72.5245 111.2898,72.5105 111.2963,72.5033 111.2968,72.4977 111.2962,72.4923 111.2937,72.4872 111.2903,72.4825 111.2819,72.4783 111.1917,72.4567 111.1846,72.4521 111.1752,72.4420 111.1680,72.4372 111.1570,72.4335 111.1167,72.4249 111.0667,72.4095 111.0588,72.4050 111.0560,72.4002 111.0551,72.3953 111.0552,72.3903 111.0558,72.3854 111.0577,72.3806 111.0684,72.3752 111.0862,72.3696 111.3040,72.3339 111.3142,72.3309 111.3241,72.3250 111.3376,72.3204 111.4178,72.3145 111.4182,72.3145 111.5369,72.3190 111.5376,72.3190 111.5564,72.3165 111.5773,72.3093 111.6438,72.2745 111.6476,72.2696 111.6501,72.2650 111.6501,72.2600 111.6481,72.2549 111.6416,72.2446 111.6327,72.2342 111.6153,72.2183 111.6191,72.2130 111.6355,72.2091 111.7154,72.2062 111.7212,72.2018 111.7236,72.1969 111.7248,72.1867 111.7273,72.1818 111.7304,72.1772 111.7347,72.1725 111.7407,72.1631 111.7428,72.1583 111.7471,72.1535 111.7534,72.1485 111.7646,72.1435 111.7831,72.1378 111.8180,72.1317 111.8180,72.1317 111.9961,72.1327 111.9970,72.1327 111.9975,71.7732 111.9979,71.4136 112.0010,71.4078 112.0056,71.4050 112.3417,71.3342 112.3801,71.3169 112.4097,71.2993 112.4215,71.2955 112.4662,71.2858 112.4772,71.2816 112.4848,71.2771 112.4885,71.2727 112.4934,71.2690 112.5021,71.2672 112.5023,71.2672 112.5141,71.2679 112.6051,71.2877 112.6174,71.2884 112.6180,71.2885 112.6291,71.2876 112.6375,71.2843 112.6429,71.2801 112.6460,71.2754 112.6478,71.2706 112.6513,71.2659 112.6575,71.2615 112.6682,71.2577 112.6960,71.2514 112.7066,71.2475 112.7104,71.2429 112.7085,71.2378 112.6958,71.2173 112.6827,71.2106 112.6599,71.2027 112.5541,71.1777 112.5389,71.1721 112.5196,71.1617 112.5160,71.1550 112.5177,71.1491 112.5236,71.1445 112.5803,71.1137 112.5739,71.1064 112.5565,71.0966 112.4785,71.0693 112.4549,71.0639 112.4540,71.0639 112.4007,71.0646 112.4006,71.0646 112.3836,71.0629 112.3652,71.0589 112.3394,71.0485 112.2776,71.0127 112.2647,71.0075 112.2504,71.0033 112.2185,70.9998 112.2181,70.9998 112.2129,71.0006 112.1972,71.0049 112.1879,71.0088 112.1813,71.0133 112.1773,71.0180 112.1708,71.0274 112.1657,71.0321 112.1539,71.0411 112.1492,71.0458 112.1425,71.0503 112.1337,71.0545 112.1211,71.0580 112.1066,71.0601 112.0773,71.0612 112.0771,71.0612 112.0628,71.0594 112.0489,71.0554 112.0351,71.0482 112.0275,71.0423 112.0239,71.0366 112.0134,71.0161 112.0118,71.0112 112.0074,71.0026 112.0050,70.9999 111.9999,70.9968 111.9812,70.9887 111.9543,70.9823 111.5234,70.9386 111.4802,70.9279 111.4180,70.9038 111.3938,70.8906 111.3801,70.8797 111.3714,70.8692 111.3650,70.8639 111.3525,70.8590 111.3359,70.8553 111.0731,70.8480 110.9843,70.8340 110.9038,70.8079 110.8621,70.8014 110.7999,70.8007 110.7999,70.8008 110.7850,70.8038 110.7772,70.8079 110.7677,70.8113 110.7512,70.8136 110.7271,70.8141 110.7269,70.8141 110.7014,70.8121 110.6803,70.8052 110.6569,70.8004 110.6327,70.8002 110.6326,70.8002 110.5967,70.8033 110.5961,70.8033 110.5648,70.8018 110.5404,70.8006 110.5257,70.7974 110.5108,70.7924 110.4934,70.7829 110.4847,70.7759 110.4799,70.7698 110.4799,70.7649 110.4837,70.7552 110.4860,70.7406 110.4878,70.7358 110.4885,70.7309 110.4899,70.7260 110.4847,70.7206 110.4747,70.7156 110.4287,70.7079 110.3118,70.7027 110.2979,70.7002 110.2854,70.6935 110.2768,70.6877 110.2703,70.6819 110.2589,70.6767 110.2435,70.6723 110.1901,70.6652 110.1037,70.6319 110.1019,70.6266 110.1037,70.6215 110.1124,70.6123 110.1156,70.6076 110.1183,70.6029 110.1192,70.5980 110.1203,70.5882 110.1214,70.5833 110.1237,70.5785 110.1341,70.5643 110.1360,70.5597 110.1338,70.5557 110.1279,70.5532 110.1270,70.5532 110.0735,70.5552 110.0734,70.5551 110.0652,70.5537 110.0652,70.5486 110.0735,70.5442 110.1096,70.5318 110.1149,70.5272 110.1178,70.5225 110.1187,70.5176 110.1190,70.5126 110.1186,70.5076 110.1171,70.5026 110.1122,70.4923 110.1106,70.4872 110.1115,70.4823 110.1177,70.4780 110.2379,70.4596 110.2643,70.4523 110.2731,70.4479 110.2758,70.4431 110.2746,70.4381 110.2708,70.4329 110.2641,70.4274 110.2542,70.4224 110.2407,70.4184 110.2398,70.4185 110.1435,70.4208 110.1433,70.4207 110.0635,70.4115 110.0630,70.4115 110.0016,70.4171 110.0009,70.4171 109.9964,70.4169 109.8834,70.4024 109.8827,70.4024 109.8386,70.4053 109.8379,70.4052 109.8191,70.4048 109.6948,70.3843 109.6381,70.3836 109.6211,70.3818 109.6025,70.3782 109.5761,70.3680 109.5619,70.3607 109.5547,70.3543 109.5579,70.3496 109.5853,70.3368 109.5925,70.3325 109.5975,70.3279 109.5993,70.3181 109.5971,70.3129 109.5932,70.3076 109.5643,70.2804 109.5566,70.2748 109.5364,70.2640 109.3601,70.2298 109.3174,70.2271 109.3036,70.2245 109.2899,70.2181 109.2825,70.2123 109.2783,70.2065 109.2715,70.1911 109.2700,70.1860 109.2703,70.1810 109.2719,70.1762 109.2763,70.1715 109.2977,70.1535 109.3247,70.1358 109.3471,70.1177 109.3496,70.1130 109.3496,70.1080 109.3430,70.0975 109.3410,70.0924 109.3413,70.0874 109.3437,70.0826 109.3474,70.0779 109.3527,70.0734 109.3590,70.0690 109.3991,70.0524 109.4122,70.0488 109.4424,70.0438 109.4966,70.0435 109.5059,70.0419 109.5093,70.0382 109.5100,70.0335 109.5086,70.0284 109.5065,70.0236 109.4966,70.0061 109.4898,70.0014 109.4808,69.9973 109.4603,69.9906 109.4473,69.9846 109.4372,69.9786 109.4316,69.9731 109.4191,69.9572 109.3972,69.9403 109.3861,69.9295 109.3832,69.9243 109.3820,69.9192 109.3817,69.9142 109.3842,69.9095 109.3914,69.9051 109.4108,69.8967 109.4159,69.8922 109.4128,69.8871 109.3854,69.8648 109.3753,69.8541 109.3719,69.8488 109.3675,69.8437 109.3607,69.8382 109.3282,69.8256 109.3041,69.8133 109.2797,69.7961 109.2597,69.7852 109.2379,69.7759 109.2175,69.7721 109.1304,69.7678 109.1300,69.7678 109.0459,69.7730 108.9419,69.7892 108.9332,69.7934 108.9259,69.7978 108.8900,69.8343 108.8828,69.8380 108.8720,69.8403 108.8711,69.8403 108.5993,69.8366 108.5992,69.8367 108.4750,69.8538 108.2915,69.8568 108.2914,69.8568 108.2530,69.8522 108.1496,69.8248 108.0554,69.7795 108.0382,69.7680 108.0246,69.7568 108.0199,69.7514 108.0169,69.7461 108.0150,69.7410 108.0138,69.7358 108.0138,69.7308 108.0144,69.7260 108.0159,69.7211 108.0179,69.7164 108.0185,69.7119 108.0156,69.7080 108.0082,69.7050 107.9262,69.6812 107.8937,69.6777 107.8932,69.6778 107.8129,69.6849 107.8121,69.6849 107.7855,69.6843 107.4551,69.6359 107.1247,69.5875 106.9494,69.5382 106.8626,69.5246 106.8395,69.5182 106.6053,69.5172 106.6053,69.5172 106.5912,69.5189 106.5772,69.5235 106.5688,69.5281 106.5633,69.5330 106.5551,69.5421 106.5493,69.5466 106.5425,69.5509 106.5133,69.5631 106.4850,69.5696 106.4564,69.5713 106.4562,69.5713 106.4278,69.5639 106.3838,69.5391 106.3179,69.5008 106.3102,69.4946 106.3055,69.4882 106.3014,69.4745 106.2987,69.4688 106.2936,69.4637 106.2852,69.4588 106.2750,69.4548 106.1563,69.4280 106.1463,69.4231 106.1406,69.4163 106.1411,69.4044 106.1539,69.3911 106.2541,69.3192 106.5703,69.0923 106.8864,68.8655 106.8910,68.8599 106.8922,68.8554 106.8941,68.4435 106.8789,68.3756 106.8778,68.3653 106.8777,68.3579 106.8790,68.3399 106.8780,68.3132 106.8966,68.1426 106.8950,68.1093 106.8858,68.0488 106.8857,68.0438 106.8848,68.0387 106.8846,68.0337 106.8826,68.0234 106.8824,68.0184 106.8817,68.0129 106.8801,67.9272 106.8812,67.9174 106.8806,67.9123 106.8806,67.9073 106.8801,67.9022 106.8805,67.8921 106.8799,67.8871 106.8799,67.8821 106.8792,67.8770 106.8789,67.8720 106.8770,67.8617 106.8762,67.8516 106.8765,67.8466 106.8761,67.8396 106.8338,67.6734 106.8314,67.6562 106.8323,67.6412 106.8316,67.6312 106.8291,67.6185 106.8241,67.5345 106.8223,67.5238 106.8220,67.5188 106.8211,67.5136 106.8213,67.5086 106.8208,67.5035 106.8214,67.4907 106.8165,67.4542 106.8043,67.4014 106.8035,67.3913 106.8055,67.3712 106.8043,67.3594 106.8044,67.3540 106.8034,67.3482 106.7996,67.3421 106.7907,67.3346 106.7381,67.2995 106.6862,67.2539 106.6777,67.2489 106.6678,67.2454 106.6565,67.2442 106.6560,67.2442 106.6450,67.2454 106.6359,67.2487 106.5957,67.2701 106.5855,67.2739 106.5310,67.2845 106.5051,67.2853 106.5049,67.2853 106.4933,67.2838 106.4051,67.2627 106.3859,67.2535 106.3176,67.2094 106.2327,67.1857 106.2213,67.1838 106.1458,67.1827 106.0557,67.1672 106.0470,67.1627 106.0412,67.1565 106.0318,67.1377 106.0262,67.1220 106.0208,67.1109 106.0027,67.0857 105.9996,67.0824 105.9944,67.0781 105.9871,67.0731 105.9691,67.0634 105.8948,67.0437 105.5411,67.0234 105.5444,67.0146 105.5626,66.9994 105.6286,66.9628 105.6619,66.9482 105.6877,66.9395 105.7141,66.9372 105.7145,66.9372 105.7629,66.9399 105.8074,66.9468 105.8079,66.9469 105.8233,66.9444 105.8418,66.9376 105.8737,66.9225 105.9130,66.9100 105.9551,66.9037 106.0446,66.9008 106.0576,66.8960 106.0675,66.8883 106.0743,66.8723 106.0736,66.8629 106.0687,66.8549 106.0612,66.8494 106.0021,66.8161 105.9977,66.8126 105.9934,66.8078 105.9925,66.8025 105.9966,66.7973 106.0098,66.7918 106.0232,66.7888 106.0360,66.7880 106.0366,66.7879 106.0484,66.7890 106.1488,66.8080 106.1489,66.8080 106.1618,66.8075 106.1748,66.8054 106.1853,66.8006 106.1906,66.7941 106.1882,66.7827 106.1808,66.7763 106.1711,66.7710 106.1516,66.7641 106.1443,66.7588 106.1412,66.7520 106.1437,66.7405 106.1470,66.7329 106.1525,66.7265 106.1648,66.7212 106.2478,66.7022 106.2550,66.6973 106.2540,66.6899 106.2497,66.6835 106.2383,66.6717 106.2342,66.6662 106.2318,66.6571 106.2340,66.6454 106.2448,66.6109 106.2458,66.6022 106.2447,66.5920 106.2503,66.5815 106.2850,66.5688 106.2990,66.5586 106.3051,66.5497 106.3108,66.5349 106.3095,66.5258 106.3052,66.5184 106.2993,66.5126 106.2970,66.5069 106.2990,66.5013 106.3069,66.4948 106.3144,66.4897 106.3201,66.4844 106.3229,66.4789 106.3198,66.4716 106.3139,66.4660 106.3052,66.4612 106.2455,66.4398 106.2342,66.4373 106.1872,66.4334 106.1772,66.4298 106.1426,66.4111 106.1373,66.4060 106.1328,66.4008 106.1107,66.3840 106.1043,66.3783 106.1018,66.3730 106.1015,66.3680 106.1024,66.3580 106.1019,66.3478 106.1003,66.3376 106.1013,66.3322 106.1058,66.3268 106.1147,66.3204 106.1206,66.3152 106.1212,66.3097 106.1197,66.2985 106.1203,66.2919 106.1303,66.2733 106.1398,66.2629 106.1402,66.2538 106.1378,66.2467 106.1327,66.2406 106.1284,66.2301 106.1229,66.2194 106.1194,66.2089 106.1175,66.1986 106.1206,66.1919 106.1272,66.1842 106.1449,66.1715 106.1582,66.1645 106.1723,66.1592 106.2117,66.1511 106.2366,66.1496 106.2371,66.1496 106.3306,66.1544 106.3313,66.1545 106.3425,66.1524 106.3513,66.1475 106.3566,66.1387 106.3589,66.1322 106.3593,66.1262 106.3634,66.1197 106.3696,66.1120 106.3848,66.0992 106.4129,66.0814 106.4182,66.0762 106.4224,66.0689 106.4275,66.0627 106.4537,66.0369 106.4722,66.0074 106.4759,65.9934 106.4770,65.9833 106.4770,65.9782 106.4841,65.9640 106.4850,65.9590 106.4843,65.9539 106.4717,65.9374 106.4691,65.9320 106.4689,65.9270 106.4701,65.9221 106.4735,65.9153 106.4807,65.8909 106.4772,65.8746 106.4781,65.8697 106.4825,65.8603 106.4834,65.8553 106.4821,65.8502 106.4788,65.8452 106.4717,65.8405 106.4635,65.8362 106.4561,65.8315 106.4542,65.8257 106.4565,65.8190 106.4672,65.8096 106.4698,65.8009 106.4664,65.7941 106.4542,65.7836 106.4512,65.7786 106.4518,65.7717 106.4553,65.7628 106.4646,65.7469 106.4654,65.7376 106.4630,65.7299 106.4559,65.7245 106.4298,65.7113 106.4228,65.7066 106.4181,65.7015 106.4159,65.6962 106.4157,65.6912 106.4184,65.6764 106.4213,65.6714 106.4275,65.6666 106.4405,65.6617 106.5186,65.6515 106.5703,65.6395 106.6319,65.6348 106.6416,65.6313 106.6463,65.6270 106.6431,65.6214 106.6300,65.6148 106.6292,65.6114 106.6376,65.6089 106.6986,65.6006 106.7068,65.5964 106.7124,65.5913 106.7131,65.5839 106.7106,65.5778 106.7066,65.5718 106.7016,65.5663 106.6992,65.5610 106.6992,65.5562 106.7038,65.5519 106.7141,65.5489 106.9409,65.5112 106.9519,65.5072 106.9591,65.5022 106.9576,65.4947 106.9519,65.4883 106.9439,65.4821 106.8784,65.4406 106.8736,65.4355 106.8697,65.4302 106.8669,65.4248 106.8653,65.4197 106.8650,65.4146 106.8635,65.4095 106.8613,65.4046 106.8547,65.4000 106.8393,65.3929 106.8364,65.3889 106.8365,65.3783 106.8298,65.3751 106.8207,65.3724 106.8100,65.3707 106.7991,65.3702 106.7988,65.3702 106.7886,65.3712 106.7715,65.3766 106.7628,65.3780 106.7619,65.3780 106.7411,65.3780 106.6362,65.3929 106.6249,65.3930 106.6248,65.3930 106.6159,65.3912 106.6066,65.3838 106.5992,65.3814 106.5589,65.3768 106.5530,65.3731 106.5506,65.3685 106.5493,65.3635 106.5471,65.3585 106.5428,65.3538 106.5355,65.3490 106.4524,65.3131 106.4444,65.3085 106.4382,65.3032 106.4340,65.2978 106.4309,65.2923 106.4289,65.2871 106.4262,65.2767 106.4256,65.2716 106.4270,65.2657 106.4306,65.2591 106.4376,65.2501 106.4486,65.2382 106.4546,65.2330 106.4748,65.2211 106.4992,65.2121 106.5045,65.2083 106.4992,65.2047 106.4983,65.2047 106.4893,65.2048 106.4391,65.2147 106.4268,65.2153 106.4263,65.2153 106.4153,65.2148 106.3942,65.2107 106.3749,65.2042 106.3407,65.1838 106.3092,65.1609 106.3035,65.1552 106.2952,65.1444 106.2900,65.1398 106.2825,65.1368 106.2718,65.1353 106.2259,65.1331 106.2046,65.1302 106.1958,65.1274 106.1904,65.1229 106.1862,65.1177 106.1769,65.1015 106.1726,65.0962 106.1658,65.0909 106.1570,65.0867 106.0276,65.0502 105.9975,65.0376 105.9908,65.0332 105.9843,65.0280 105.9787,65.0223 105.9753,65.0169 105.9737,65.0118 105.9848,65.0026 106.0984,64.9434 106.1058,64.9340 106.1085,64.9292 106.1185,64.9148 106.1237,64.9048 106.1299,64.8997 106.1401,64.8947 106.1919,64.8816 106.2030,64.8767 106.2146,64.8688 106.2199,64.8627 106.2212,64.8572 106.2164,64.8527 106.2074,64.8502 106.1952,64.8497 106.1950,64.8498 106.1079,64.8606 106.0959,64.8650 106.0757,64.8784 106.0548,64.8966 106.0479,64.9004 106.0391,64.9036 106.0269,64.9052 106.0261,64.9052 105.9988,64.9041 105.9601,64.8971 105.9517,64.8939 105.9471,64.8892 105.9471,64.8835 105.9553,64.8710 105.9576,64.8655 105.9620,64.8587 105.9690,64.8512 106.0030,64.8308 106.0061,64.8268 106.0079,64.8227 106.0076,64.8188 106.0031,64.8159 105.9988,64.8142 105.9815,64.8105 105.9592,64.8096 105.9590,64.8096 105.9486,64.8114 105.9221,64.8199 105.9109,64.8210 105.9103,64.8210 105.8999,64.8205 105.8898,64.8184 105.8810,64.8153 105.8660,64.8071 105.8535,64.7970 105.8487,64.7913 105.8447,64.7850 105.8349,64.7657 105.8329,64.7596 105.8309,64.7423 105.8338,64.7262 105.8385,64.7136 105.8436,64.7056 105.8507,64.6981 105.8737,64.6795 105.8775,64.6750 105.8799,64.6700 105.8790,64.6643 105.8763,64.6585 105.8707,64.6536 105.8636,64.6495 105.8546,64.6466 105.8439,64.6448 105.8318,64.6444 105.8314,64.6444 105.8056,64.6458 105.7793,64.6499 105.7694,64.6530 105.7613,64.6565 105.7480,64.6643 105.7396,64.6671 105.7294,64.6681 105.7290,64.6681 105.7196,64.6669 105.7116,64.6636 105.7079,64.6584 105.7087,64.6527 105.7152,64.6461 105.7437,64.6239 105.7468,64.6191 105.7474,64.6141 105.7441,64.6088 105.7273,64.5933 105.7235,64.5877 105.7236,64.5821 105.7272,64.5765 105.7362,64.5705 105.7778,64.5516 105.7954,64.5392 105.8003,64.5348 105.8038,64.5301 105.8056,64.5250 105.8056,64.5193 105.8037,64.5132 105.8004,64.5071 105.7964,64.5010 105.7916,64.4887 105.7969,64.4837 105.8074,64.4799 105.8342,64.4792 105.8349,64.4792 105.8505,64.4808 105.8817,64.4889 105.8922,64.4898 105.8925,64.4898 105.9416,64.4883 105.9424,64.4883 105.9554,64.4904 105.9657,64.4939 106.0015,64.5101 106.0167,64.5140 106.0283,64.5144 106.0290,64.5144 106.0430,64.5129 106.0610,64.5073 106.0709,64.5025 106.1328,64.4808 106.1417,64.4742 106.1454,64.4678 106.1439,64.4622 106.1395,64.4567 106.1328,64.4524 106.1237,64.4497 106.0990,64.4488 106.0886,64.4470 106.0805,64.4433 106.0746,64.4381 106.0702,64.4324 106.0680,64.4266 106.0699,64.4215 106.0765,64.4176 106.0866,64.4145 106.1350,64.4044 106.1705,64.4012 106.1708,64.4011 106.2046,64.4026 106.2224,64.4051 106.2349,64.4090 106.2486,64.4182 106.2562,64.4221 106.2649,64.4252 106.2782,64.4267 106.3358,64.4281 106.3479,64.4304 106.3656,64.4366 106.3850,64.4413 106.3961,64.4426 106.5662,64.4434 106.5680,64.4434 106.5753,64.4435 106.5853,64.4453 106.5927,64.4486 106.5958,64.4531 106.5952,64.4580 106.5877,64.4674 106.5831,64.4720 106.5722,64.4861 106.5694,64.4909 106.5681,64.4962 106.5700,64.5018 106.5746,64.5072 106.5825,64.5107 106.5930,64.5125 106.6048,64.5127 106.6056,64.5127 106.6226,64.5104 106.6412,64.5061 106.6666,64.4965 106.6772,64.4898 106.6829,64.4836 106.6865,64.4732 106.6889,64.4682 106.6924,64.4635 106.7075,64.4505 106.7150,64.4412 106.7177,64.4363 106.7247,64.4269 106.7295,64.4225 106.7363,64.4186 106.7476,64.4157 106.7487,64.4154 106.7470,64.4188 106.7458,64.4211 106.7514,64.4150 106.7651,64.4128 106.7651,64.4128 106.8775,64.4138 106.8784,64.4138 106.8947,64.4120 106.9191,64.4057 106.9431,64.3964 106.9500,64.3925 106.9761,64.3821 107.0443,64.3667 107.0585,64.3611 107.0677,64.3560 107.0718,64.3513 107.0764,64.3470 107.0837,64.3431 107.0978,64.3398 107.2097,64.3328 107.2229,64.3302 107.2364,64.3233 107.2406,64.3171 107.2409,64.3105 107.2370,64.2980 107.2372,64.2925 107.2397,64.2874 107.2453,64.2833 107.2524,64.2795 107.3185,64.2513 107.3289,64.2486 107.3432,64.2476 107.3438,64.2476 107.3685,64.2506 107.4551,64.2697 107.5267,64.2932 107.5474,64.2970 107.5701,64.2986 107.5706,64.2986 107.6077,64.2943 107.6408,64.2854 107.6556,64.2793 107.6629,64.2732 107.6645,64.2681 107.6651,64.2572 107.6669,64.2522 107.6709,64.2476 107.6776,64.2435 107.6873,64.2398 107.8059,64.2081 107.8204,64.2006 107.8366,64.1880 107.8451,64.1844 107.8566,64.1816 107.9060,64.1788 107.9169,64.1782 107.9680,64.1700 107.9687,64.1699 107.9950,64.1787 108.0275,64.2235 108.0317,64.2319 108.0357,64.2356 108.0430,64.2394 108.0952,64.2481 108.1412,64.2606 108.1414,64.2606 108.1512,64.2602 108.1819,64.2524 108.1942,64.2506 108.2185,64.2501 108.2185,64.2500 108.2385,64.1790 108.2979,64.0831 108.2995,64.0778 108.3004,64.0725 108.3020,64.0674 108.3048,64.0625 108.3161,64.0488 108.3192,64.0440 108.3211,64.0390 108.3186,64.0330 108.3113,64.0268 108.2859,64.0125 108.2638,63.9959 108.2530,63.9924 108.2425,63.9928 108.2110,64.0002 108.2039,64.0008 108.1713,64.0004 108.1692,64.0000 108.1378,63.9865 108.1285,63.9840 108.1178,63.9829 108.0659,63.9898 108.0193,63.9885 108.0089,63.9896 107.9618,64.0000 107.9495,64.0004 107.9145,63.9970 107.8947,63.9926 107.8770,63.9868 107.8664,63.9852 107.8554,63.9848 107.8434,63.9861 107.8346,63.9891 107.8254,63.9934 107.8176,64.0002 107.8161,64.0011 107.8126,64.0026 107.8048,64.0048 107.7949,64.0067 107.7839,64.0068 107.7730,64.0058 107.7356,63.9954 107.6807,63.9892 107.6632,63.9832 107.6406,63.9712 107.6331,63.9658 107.6264,63.9590 107.6198,63.9483 107.6183,63.9411 107.6186,63.9349 107.6214,63.9245 107.6222,63.9193 107.6207,63.9131 107.6172,63.9066 107.5975,63.8773 107.5901,63.8704 107.5759,63.8625 107.5639,63.8585 107.5512,63.8570 107.5393,63.8575 107.5279,63.8595 107.4991,63.8687 107.4871,63.8708 107.4747,63.8716 107.4633,63.8710 107.4257,63.8610 107.4141,63.8603 107.3734,63.8655 107.3646,63.8688 107.3615,63.8736 107.3605,63.8789 107.3577,63.8837 107.3531,63.8881 107.3258,63.9091 107.3224,63.9138 107.3202,63.9188 107.3153,63.9343 107.3129,63.9391 107.3085,63.9436 107.3013,63.9473 107.2908,63.9500 107.2033,63.9569 107.1977,63.9566 107.1911,63.9553 107.1834,63.9527 107.1745,63.9466 107.1656,63.9379 107.1429,63.9105 107.1308,63.9020 107.1205,63.8980 107.0819,63.8878 107.0718,63.8870 107.0614,63.8886 107.0536,63.8918 107.0368,63.9043 107.0133,63.9151 107.0027,63.9222 106.9963,63.9282 106.9914,63.9320 106.9774,63.9396 106.9415,63.9528 106.8940,63.9632 106.8693,63.9735 106.8601,63.9762 106.8494,63.9772 106.8201,63.9734 106.8108,63.9751 106.8035,63.9783 106.7926,63.9868 106.7861,63.9907 106.7774,63.9938 106.7653,63.9957 106.7411,63.9956 106.7203,63.9921 106.7109,63.9866 106.7020,63.9781 106.6920,63.9611 106.6836,63.9424 106.6817,63.9364 106.6809,63.9306 106.6824,63.9253 106.6905,63.9162 106.7013,63.9078 106.7808,63.8610 106.7914,63.8526 106.7944,63.8479 106.7944,63.8424 106.7894,63.8352 106.7700,63.8189 106.7017,63.7726 106.6950,63.7656 106.6730,63.7319 106.6626,63.7235 106.6401,63.7093 106.6347,63.7034 106.6304,63.6968 106.6286,63.6884 106.6294,63.6822 106.6323,63.6767 106.6363,63.6723 106.6418,63.6680 106.6768,63.6491 106.6886,63.6410 106.6924,63.6363 106.6916,63.6293 106.6865,63.6205 106.6712,63.6055 106.6124,63.5633 106.6072,63.5573 106.6024,63.5460 106.5960,63.5352 106.5442,63.5314 106.5323,63.5299 106.5276,63.5265 106.5223,63.5210 106.5174,63.5141 106.5130,63.5063 106.5106,63.4951 106.5122,63.4881 106.5178,63.4830 106.5737,63.4639 106.5800,63.4598 106.5853,63.4556 106.6094,63.4284 106.6143,63.4241 106.6381,63.4079 106.6528,63.4004 106.7263,63.3750 106.7325,63.3715 106.7315,63.3675 106.7156,63.3572 106.7081,63.3508 106.7017,63.3433 106.6953,63.3315 106.6896,63.3106 106.6874,63.3050 106.6824,63.3001 106.6736,63.2976 106.6624,63.2967 106.5076,63.3047 106.5007,63.3078 106.4971,63.3121 106.4940,63.3169 106.4899,63.3213 106.4809,63.3246 106.4695,63.3272 106.4546,63.3256 106.4385,63.3200 106.3915,63.2855 106.3757,63.2778 106.3693,63.2724 106.3661,63.2630 106.3652,63.2440 106.3620,63.2263 106.3628,63.2209 106.3687,63.2169 106.3778,63.2137 106.4222,63.2030 106.4255,63.1966 106.4194,63.1855 106.4005,63.1638 106.3923,63.1475 106.3906,63.1376 106.3942,63.1318 106.4048,63.1235 106.4070,63.1186 106.4042,63.1133 106.3923,63.1058 106.3583,63.0893 106.3142,63.0752 106.2934,63.0716 106.1361,63.0688 106.1271,63.0663 106.1243,63.0595 106.1247,63.0539 106.1266,63.0482 106.1479,63.0147 106.1561,63.0060 106.1624,63.0010 106.1754,62.9937 106.1810,62.9898 106.1850,62.9853 106.1844,62.9802 106.1696,62.9688 106.1655,62.9632 106.1677,62.9569 106.1777,62.9534 106.2111,62.9450 106.2178,62.9412 106.2205,62.9363 106.2210,62.9308 106.2193,62.9248 106.2146,62.9123 106.2132,62.9063 106.2139,62.9009 106.2187,62.8968 106.2262,62.8938 106.3122,62.8810 106.3213,62.8778 106.3435,62.8671 106.3631,62.8610 106.4358,62.8467 106.4435,62.8430 106.4478,62.8386 106.4503,62.8337 106.4608,62.7917 106.4660,62.7819 106.4710,62.7776 106.4788,62.7742 106.4994,62.7683 106.5082,62.7647 106.5152,62.7608 106.5199,62.7564 106.5239,62.7518 106.5257,62.7468 106.5262,62.7413 106.5141,62.7180 106.4958,62.6919 106.4974,62.6813 106.5054,62.6750 106.5425,62.6732 106.5533,62.6711 106.5614,62.6679 106.5731,62.6598 106.5805,62.6557 106.5926,62.6514 106.7979,62.6018 106.7969,62.5982 106.7900,62.5961 106.7267,62.5877 106.7125,62.5815 106.6970,62.5714 106.6700,62.5486 106.6626,62.5372 106.6621,62.5292 106.6831,62.5180 106.6944,62.5097 106.7041,62.5011 106.7082,62.4966 106.7149,62.4876 106.7124,62.4817 106.7044,62.4745 106.6303,62.4366 106.5441,62.3801 106.5336,62.3765 106.5165,62.3743 106.5054,62.3757 106.4809,62.3858 106.4697,62.3880 106.4574,62.3893 106.4465,62.3887 106.4370,62.3866 106.4293,62.3828 106.4240,62.3778 106.4224,62.3701 106.4234,62.3642 106.4267,62.3589 106.4312,62.3545 106.4367,62.3504 106.4431,62.3465 106.4691,62.3368 106.4763,62.3332 106.4801,62.3285 106.4790,62.3235 106.4735,62.3189 106.4595,62.3168 106.4076,62.3168 106.3982,62.3143 106.3862,62.3001 106.3754,62.2912 106.3372,62.2719 106.3283,62.2658 106.3278,62.2591 106.3336,62.2548 106.3419,62.2510 106.3960,62.2387 106.4073,62.2383 106.4374,62.2409 106.4449,62.2396 106.4471,62.2355 106.4469,62.2301 106.4373,62.2107 106.4352,62.2045 106.4365,62.1993 106.4435,62.1902 106.4435,62.1848 106.4380,62.1785 106.4274,62.1695 106.4213,62.1626 106.4188,62.1563 106.4191,62.1509 106.4159,62.1435 106.4076,62.1342 106.3884,62.1194 106.3800,62.1105 106.3761,62.1032 106.3794,62.0986 106.3856,62.0947 106.4017,62.0878 106.4067,62.0839 106.4050,62.0780 106.3996,62.0715 106.3903,62.0628 106.3892,62.0567 106.3918,62.0517 106.4072,62.0391 106.4082,62.0348 106.4048,62.0307 106.2191,62.0032 106.2104,62.0004 106.1965,61.9925 106.1609,61.9621 106.1532,61.9570 106.1426,61.9524 106.0811,61.9398 106.0712,61.9367 106.0624,61.9319 106.0544,61.9225 106.0471,61.9087 106.0428,61.9034 106.0369,61.8988 105.9031,61.8349 105.8957,61.8284 105.8914,61.8228 105.8889,61.8169 105.8873,61.8110 105.8873,61.8054 105.8889,61.8002 105.8919,61.7954 105.8956,61.7909 105.9205,61.7696 105.9291,61.7609 105.9362,61.7515 105.9390,61.7467 105.9408,61.7416 105.9417,61.7137 105.9445,61.7033 105.9486,61.6932 105.9477,61.6888 105.9423,61.6854 105.9027,61.6832 105.8904,61.6805 105.8775,61.6763 105.8598,61.6672 105.8501,61.6606 105.8428,61.6540 105.8237,61.6312 105.8180,61.6263 105.8100,61.6224 105.8003,61.6199 105.7873,61.6204 105.7787,61.6230 105.7728,61.6271 105.7636,61.6358 105.7579,61.6399 105.7508,61.6435 105.7304,61.6486 105.7186,61.6496 105.6971,61.6452 105.6691,61.6360 105.6121,61.6111 105.5900,61.5981 105.5770,61.5878 105.5736,61.5816 105.5692,61.5757 105.5620,61.5704 105.5511,61.5663 105.4775,61.5553 105.4231,61.5413 105.3769,61.5337 105.3684,61.5298 105.3616,61.5225 105.3534,61.5095 105.3479,61.5046 105.2842,61.4758 105.2751,61.4680 105.2721,61.4615 105.2741,61.4564 105.2767,61.4515 105.2803,61.4413 105.2816,61.4361 105.2816,61.4306 105.2727,61.4249 105.2542,61.4199 105.1842,61.4150 105.1059,61.4170 104.9582,61.3983 104.9419,61.3929 104.9255,61.3841 104.9050,61.3675 104.8923,61.3629 104.8734,61.3588 104.7899,61.3484 104.7871,61.3405 104.8075,61.3351 104.8320,61.3317 104.9031,61.3286 104.9131,61.3262 104.9212,61.3229 104.9272,61.3190 104.9313,61.3145 104.9347,61.3067 104.9442,61.2777 104.9527,61.2701 104.9666,61.2601 104.9706,61.2557 104.9737,61.2509 104.9838,61.2312 104.9931,61.2169 104.9956,61.2122 105.0055,61.1976 105.0078,61.1929 105.0093,61.1876 105.0083,61.1822 105.0009,61.1764 104.9925,61.1746 104.8376,61.1762 104.8297,61.1732 104.8238,61.1684 104.8189,61.1631 104.8131,61.1583 104.8063,61.1545 104.7908,61.1481 104.7794,61.1384 104.7732,61.1340 104.7660,61.1305 104.7580,61.1275 104.7434,61.1202 104.7375,61.1156 104.7321,61.1105 104.7224,61.0994 104.7171,61.0946 104.7107,61.0903 104.7034,61.0868 104.6955,61.0840 104.6863,61.0822 104.6519,61.0827 104.6315,61.0803 104.6159,61.0741 104.6097,61.0699 104.6058,61.0645 104.6063,61.0579 104.6135,61.0494 104.6308,61.0402 104.6361,61.0364 104.6333,61.0308 104.6281,61.0261 104.6154,61.0171 104.6053,61.0073 104.6011,61.0012 104.6010,60.9999 104.6032,60.9934 104.6075,60.9870 104.6104,60.9814 104.6119,60.9763 104.6084,60.9718 104.6026,60.9678 104.5721,60.9548 104.5671,60.9503 104.5655,60.9448 104.5704,60.9383 104.5779,60.9341 104.6106,60.9205 104.6240,60.9131 104.6289,60.9088 104.6320,60.9038 104.6326,60.8978 104.6295,60.8900 104.6241,60.8846 104.6175,60.8799 104.6017,60.8739 104.5837,60.8696 104.5026,60.8597 104.4847,60.8551 104.4699,60.8484 104.4641,60.8445 104.4607,60.8388 104.4616,60.8325 104.4674,60.8211 104.4778,60.8086 104.4967,60.7916 104.5076,60.7835 104.5144,60.7798 104.5223,60.7764 104.5325,60.7738 104.5705,60.7681 104.5807,60.7655 104.5882,60.7619 104.5934,60.7575 104.5971,60.7529 104.5989,60.7474 104.5996,60.7420 104.5954,60.7352 104.5695,60.7178 104.5643,60.7129 104.5599,60.7075 104.5241,60.6449 104.5225,60.6390 104.5241,60.6335 104.5344,60.6284 104.5445,60.6248 104.5524,60.6205 104.5562,60.6149 104.5568,60.6063 104.5580,60.5992 104.5645,60.5845 104.5658,60.5766 104.5643,60.5651 104.5648,60.5566 104.5665,60.5484 104.5729,60.5393 104.5786,60.5334 104.5848,60.5285 104.6278,60.5073 104.6334,60.5032 104.6389,60.4940 104.6444,60.4812 104.6528,60.4540 104.6587,60.4413 104.6652,60.4326 104.6695,60.4286 104.6725,60.4249 104.6691,60.4211 104.6633,60.4176 104.6580,60.4137 104.6568,60.4091 104.6658,60.4028 104.6772,60.3999 104.7376,60.3910 104.7562,60.3852 104.7716,60.3785 104.7970,60.3634 104.8190,60.3472 104.8511,60.3345 104.8584,60.3300 104.8645,60.3234 104.8712,60.3119 104.8796,60.3058 104.8902,60.3017 104.9963,60.2842 105.0121,60.2836 105.0575,60.2923 105.0793,60.2928 105.0913,60.2914 105.1288,60.2805 105.1516,60.2774 105.2215,60.2762 105.2309,60.2778 105.2389,60.2808 105.2584,60.2929 105.2665,60.2956 105.2755,60.2976 105.2978,60.2981 105.3222,60.2955 105.3327,60.2928 105.3408,60.2894 105.3478,60.2857 105.3588,60.2778 105.3625,60.2733 105.3705,60.2586 105.3742,60.2543 105.3792,60.2512 105.3871,60.2511 105.3940,60.2537 105.4147,60.2651 105.4229,60.2677 105.4324,60.2694 105.4423,60.2698 105.4525,60.2687 105.4605,60.2659 105.4673,60.2623 105.4724,60.2582 105.4767,60.2539 105.4795,60.2490 105.4817,60.2435 105.4837,60.2360 105.4844,60.2250 105.4829,60.2100 105.4795,60.1980 105.4744,60.1859 105.4636,60.1682 105.4561,60.1586 105.4493,60.1513 105.4313,60.1380 105.4271,60.1311 105.4247,60.1229 105.4246,60.1097 105.4287,60.0951 105.4338,60.0854 105.4403,60.0761 105.4758,60.0359 105.4857,60.0219 105.4878,60.0168 105.4890,60.0116 105.4896,60.0012 105.4895,59.9999 105.4838,59.9912 105.4752,59.9814 105.4550,59.9650 105.4503,59.9586 105.4469,59.9506 105.4428,59.9297 105.4348,59.9048 105.4338,59.8962 105.4357,59.8896 105.4401,59.8853 105.4460,59.8815 105.4705,59.8717 105.4838,59.8645 105.4890,59.8603 105.4930,59.8559 105.4939,59.8507 105.4915,59.8452 105.4831,59.8396 105.4748,59.8359 105.4571,59.8308 105.4199,59.8244 105.3781,59.8217 105.3436,59.8266 105.3161,59.8339 105.3135,59.8358 105.3111,59.8388 105.3104,59.8401 105.3093,59.8414 105.3068,59.8431 105.3008,59.8464 105.2912,59.8493 105.2785,59.8501 105.2519,59.8484 105.2384,59.8489 105.2253,59.8510 105.2012,59.8574 105.1873,59.8585 105.1205,59.8528 105.1095,59.8495 105.0908,59.8395 105.0793,59.8364 105.0360,59.8360 105.0254,59.8347 105.0214,59.8301 105.0236,59.8260 105.0239,59.8220 105.0204,59.8199 105.0202,59.8180 105.0255,59.8142 105.0301,59.8099 105.0331,59.8047 105.0326,59.7977 105.0297,59.7894 105.0210,59.7763 105.0134,59.7698 105.0058,59.7657 105.0001,59.7645 104.9931,59.7638 104.9635,59.7662 104.8935,59.7500 104.8864,59.7467 104.8502,59.7218 104.8370,59.7145 104.8072,59.7019 104.8017,59.6973 104.7998,59.6909 104.8035,59.6817 104.8118,59.6696 104.8129,59.6637 104.8054,59.6486 104.8035,59.6416 104.8048,59.6356 104.8110,59.6291 104.8672,59.5939 104.8716,59.5892 104.8741,59.5835 104.8716,59.5753 104.8676,59.5688 104.8630,59.5628 104.8601,59.5567 104.8599,59.5503 104.8636,59.5432 104.8683,59.5381 104.8842,59.5254 104.9524,59.4894 104.9623,59.4812 104.9737,59.4677 104.9788,59.4638 104.9866,59.4611 105.0357,59.4563 105.0458,59.4572 105.0545,59.4594 105.0622,59.4623 105.0702,59.4640 105.0787,59.4636 105.1018,59.4557 105.1102,59.4551 105.1179,59.4571 105.1467,59.4704 105.1548,59.4730 105.1637,59.4746 105.1734,59.4745 105.1823,59.4723 105.1886,59.4689 105.1926,59.4644 105.1981,59.4547 105.2263,59.4293 105.2290,59.4246 105.2284,59.4195 105.2213,59.4133 105.2161,59.4060 105.2126,59.3976 105.2141,59.3849 105.2207,59.3784 105.2395,59.3701 105.2445,59.3641 105.2424,59.3534 105.2347,59.3454 105.2265,59.3403 105.2037,59.3304 105.1972,59.3263 105.1922,59.3214 105.1897,59.3154 105.1917,59.3083 105.1966,59.3033 105.2414,59.2768 105.2486,59.2735 105.2581,59.2709 105.2803,59.2670 105.2890,59.2642 105.2950,59.2599 105.2983,59.2543 105.2993,59.2396 105.3005,59.2339 105.3024,59.2287 105.3053,59.2239 105.3089,59.2194 105.3241,59.2071 105.3280,59.2022 105.3300,59.1965 105.3262,59.1869 105.3093,59.1643 105.3046,59.1558 105.3039,59.1489 105.3067,59.1442 105.3249,59.1272 105.3544,59.1079 105.3547,59.1011 105.3479,59.0917 105.3215,59.0736 105.3064,59.0655 105.2922,59.0614 105.2384,59.0601 105.1954,59.0496 105.1545,59.0468 105.1459,59.0448 105.1359,59.0382 105.0933,58.9989 105.0849,58.9930 105.0640,58.9830 105.0473,58.9784 104.9809,58.9689 104.9642,58.9646 104.9492,58.9586 104.9354,58.9491 104.9161,58.9305 104.9043,58.9138 104.8997,58.9088 104.8933,58.9050 104.8848,58.9029 104.8559,58.8992 104.8475,58.8969 104.8404,58.8936 104.7991,58.8632 104.7685,58.8335 104.7619,58.8244 104.7601,58.8205 104.7614,58.8141 104.7682,58.8071 104.7864,58.7965 104.8087,58.7861 104.8167,58.7812 104.8235,58.7749 104.8298,58.7638 104.8348,58.7573 104.8398,58.7532 104.8574,58.7451 104.8680,58.7354 104.8734,58.7185 104.8660,58.7103 104.8481,58.6988 104.8204,58.6849 104.7949,58.6693 104.7877,58.6663 104.6333,58.6471 104.6256,58.6443 104.6188,58.6408 104.6073,58.6314 104.5971,58.6213 104.5909,58.6172 104.5817,58.6162 104.5705,58.6181 104.5411,58.6333 104.5324,58.6354 104.5197,58.6345 104.5111,58.6322 104.5043,58.6289 104.4736,58.6067 104.4661,58.6036 104.4591,58.6023 104.4514,58.6078 104.4382,58.6250 104.4102,58.6427 104.3949,58.6655 104.3992,58.6968 104.3941,58.7039 104.3748,58.7133 104.3530,58.7161 104.2996,58.7133 104.2816,58.7201 104.2685,58.7284 104.2545,58.7324 104.2428,58.7380 104.2391,58.7470 104.2306,58.7510 104.2211,58.7580 104.1789,58.7666 104.0478,58.7718 104.0412,58.7701 104.0381,58.7680 104.0282,58.7523 104.0231,58.7475 104.0164,58.7438 103.9919,58.7356 103.9749,58.7324 103.9342,58.7293 103.8886,58.7306 103.8778,58.7322 103.8701,58.7352 103.8679,58.7410 103.8725,58.7445 103.9254,58.7559 103.9332,58.7585 103.9403,58.7617 103.9452,58.7658 103.9481,58.7704 103.9497,58.7739 103.9528,58.7849 103.9534,58.7965 103.9527,58.8020 103.9503,58.8127 103.9499,58.8183 103.9502,58.8242 103.9533,58.8365 103.9537,58.8424 103.9499,58.8484 103.9410,58.8540 103.9239,58.8617 103.9165,58.8678 103.9125,58.8737 103.9072,58.8887 103.9048,58.8929 103.9020,58.8971 103.8973,58.9005 103.8905,58.9026 103.8793,58.9011 103.8605,58.8966 103.8406,58.8945 103.8183,58.8950 103.7950,58.8977 103.6939,58.9232 103.6735,58.9238 103.6493,58.9211 103.6148,58.9123 103.6045,58.9131 103.5949,58.9167 103.5869,58.9250 103.5862,58.9323 103.5902,58.9454 103.5906,58.9512 103.5880,58.9560 103.5832,58.9602 103.5554,58.9742 103.5497,58.9780 103.5311,58.9858 103.5120,58.9891 103.4918,58.9986 103.4894,59.0010 103.4856,59.0033 103.4782,59.0058 103.4449,59.0083 103.4262,59.0124 103.3981,59.0222 103.3762,59.0341 103.3357,59.0726 103.3216,59.0910 103.2932,59.1392 103.2811,59.1525 103.2759,59.1566 103.2538,59.1712 103.2496,59.1753 103.2470,59.1801 103.2470,59.1857 103.2477,59.1976 103.2468,59.2029 103.2396,59.2229 103.2412,59.2273 103.2476,59.2299 103.2563,59.2316 103.2780,59.2324 103.3259,59.2286 103.3357,59.2291 103.3414,59.2321 103.3422,59.2366 103.3408,59.2417 103.3387,59.2468 103.3353,59.2517 103.3312,59.2562 103.3253,59.2601 103.2403,59.2836 103.2264,59.2847 103.2122,59.2835 103.1903,59.2760 103.1670,59.2649 103.1539,59.2618 103.1099,59.2615 103.0836,59.2644 103.0641,59.2695 103.0567,59.2728 103.0505,59.2763 103.0276,59.2966 103.0246,59.3014 103.0184,59.3163 103.0115,59.3181 102.9998,59.3154 102.9538,59.2936 102.8729,59.2649 102.8670,59.2608 102.8561,59.2516 102.8466,59.2412 102.8435,59.2356 102.8420,59.2298 102.8420,59.2244 102.8407,59.2193 102.8324,59.2146 102.7940,59.2044 102.7603,59.1994 102.6538,59.1996 102.6164,59.2035 102.5894,59.2031 102.5228,59.1861 102.5035,59.1739 102.4687,59.1609 102.4558,59.1531 102.4483,59.1460 102.4397,59.1363 102.4264,59.1171 102.4155,59.0968 102.4081,59.0780 102.4068,59.0725 102.4080,59.0674 102.4120,59.0631 102.4223,59.0549 102.4260,59.0505 102.4290,59.0456 102.4321,59.0293 102.4338,59.0240 102.4363,59.0191 102.4399,59.0145 102.4483,59.0062 102.4504,59.0025 102.4505,59.0003 102.4496,58.9983 102.4362,58.9782 102.4369,58.9722 102.4394,58.9667 102.4399,58.9612 102.4383,58.9491 102.4396,58.9437 102.4442,58.9395 102.4508,58.9359 102.4864,58.9247 102.4932,58.9216 102.5114,58.9097 102.5350,58.9007 102.5383,58.8966 102.5380,58.8909 102.5350,58.8726 102.5350,58.8669 102.5362,58.8557 102.5396,58.8452 102.5445,58.8353 102.5612,58.8120 102.5638,58.8071 102.5659,58.8021 102.5659,58.7967 102.5638,58.7914 102.5612,58.7867 102.5325,58.7486 102.5206,58.7279 102.5142,58.7214 102.5052,58.7152 102.4647,58.6985 102.4555,58.6923 102.4424,58.6797 102.4318,58.6717 102.4166,58.6641 102.4050,58.6615 102.3267,58.6507 102.3189,58.6473 102.3121,58.6423 102.3065,58.6337 102.2993,58.6194 102.2919,58.6076 102.2735,58.5865 102.2707,58.5801 102.2657,58.5739 102.2412,58.5542 102.1989,58.5281 102.1871,58.5227 102.1626,58.5156 102.0021,58.4953 101.9897,58.4925 101.9742,58.4870 101.9485,58.4734 101.9404,58.4703 101.9234,58.4657 101.7872,58.4532 101.7820,58.4539 101.7745,58.4533 101.7658,58.4500 101.7396,58.4364 101.7186,58.4282 101.7018,58.4239 101.6912,58.4172 101.6794,58.4067 101.6607,58.3822 101.6502,58.3602 101.6429,58.3507 101.6027,58.3148 101.5658,58.2879 101.5596,58.2817 101.5535,58.2739 101.5464,58.2599 101.5434,58.2510 101.5408,58.2371 101.5374,58.2309 101.5318,58.2253 101.5211,58.2208 101.5120,58.2189 101.4776,58.2177 101.3831,58.2232 101.2986,58.2193 101.2834,58.2125 101.2660,58.1998 101.2363,58.1655 101.2211,58.1511 101.2089,58.1419 101.1924,58.1373 101.1470,58.1293 101.1189,58.1190 101.1159,58.1159 101.1124,58.1102 101.1115,58.0988 101.1125,58.0913 101.1150,58.0849 101.1189,58.0805 101.1240,58.0764 101.1307,58.0729 101.1538,58.0637 101.1596,58.0598 101.1620,58.0549 101.1625,58.0492 101.1609,58.0369 101.1549,58.0168 101.1451,57.9967 101.1383,57.9854 101.1284,57.9767 101.1004,57.9616 101.0782,57.9443 101.0717,57.9408 101.0464,57.9345 101.0399,57.9308 101.0349,57.9256 101.0318,57.9195 101.0323,57.9099 101.0334,57.9034 101.0312,57.8976 101.0233,57.8925 100.9993,57.8808 100.9715,57.8705 100.9628,57.8688 100.9535,57.8677 100.9145,57.8671 100.9045,57.8684 100.8955,57.8706 100.8884,57.8738 100.8764,57.8813 100.8696,57.8845 100.8603,57.8862 100.8191,57.8866 100.8136,57.8837 100.8151,57.8776 100.8185,57.8725 100.8325,57.8589 100.8426,57.8507 100.8466,57.8455 100.8476,57.8364 100.8451,57.8217 100.8466,57.8038 100.8500,57.7945 100.8556,57.7884 100.8690,57.7816 100.8773,57.7787 100.8827,57.7745 100.8856,57.7697 100.8799,57.7604 100.8740,57.7546 100.8677,57.7494 100.8616,57.7455 100.8562,57.7411 100.8466,57.7314 100.8207,57.6931 100.8043,57.6775 100.8024,57.6730 100.8073,57.6672 100.8142,57.6631 100.8202,57.6578 100.8220,57.6506 100.8225,57.6394 100.8247,57.6323 100.8279,57.6265 100.8320,57.6221 100.8475,57.6101 100.8737,57.5962 100.9355,57.5716 100.9485,57.5647 100.9534,57.5606 100.9563,57.5553 100.9566,57.5489 100.9541,57.5403 100.9507,57.5336 100.9435,57.5220 100.9420,57.5163 100.9439,57.5112 100.9487,57.5071 100.9544,57.5030 100.9587,57.4983 100.9574,57.4909 100.9540,57.4849 100.9359,57.4641 100.9300,57.4593 100.9229,57.4552 100.9123,57.4515 100.9026,57.4520 100.8931,57.4538 100.8709,57.4627 100.8625,57.4639 100.8519,57.4626 100.8368,57.4585 100.8269,57.4540 100.8194,57.4484 100.8118,57.4328 100.8050,57.4257 100.7937,57.4193 100.7716,57.4135 100.7498,57.4032 100.7330,57.4054 100.7263,57.4076 100.7166,57.4129 100.7069,57.4202 100.6920,57.4343 100.6720,57.4583 100.6656,57.4635 100.6568,57.4692 100.6387,57.4766 100.4197,57.5418 100.4121,57.5455 100.4059,57.5503 100.4025,57.5579 100.4019,57.5647 100.4032,57.5777 100.4026,57.5833 100.4010,57.5886 100.3988,57.5937 100.3961,57.5986 100.3929,57.6033 100.3611,57.6418 100.3590,57.6511 100.3601,57.6588 100.3638,57.6641 100.3640,57.6698 100.3590,57.6752 100.3350,57.6839 100.3317,57.6890 100.3335,57.6943 100.3373,57.6997 100.3463,57.7099 100.3673,57.7270 100.3661,57.7324 100.3559,57.7390 100.3120,57.7564 100.2974,57.7596 100.2775,57.7609 100.2713,57.7633 100.2706,57.7684 100.2720,57.7745 100.2794,57.7934 100.2799,57.7993 100.2763,57.8048 100.2678,57.8095 100.2318,57.8220 100.2106,57.8326 100.1549,57.8512 100.1303,57.8668 100.1258,57.8760 100.1243,57.8828 100.1230,57.9008 100.1199,57.9116 100.1175,57.9166 100.1101,57.9257 100.0866,57.9466 100.0826,57.9511 100.0800,57.9560 100.0780,57.9612 100.0767,57.9666 100.0754,57.9781 100.0751,58.0010 100.0804,58.0451 100.0777,58.0559 100.0755,58.0611 100.0714,58.0660 100.0659,58.0710 100.0550,58.0757 100.0444,58.0786 100.0182,58.0815 99.8483,58.0720 99.8186,58.0618 99.8078,58.0612 99.7945,58.0625 99.7369,58.0816 99.7037,58.0857 99.6412,58.0457 99.6388,58.0394 99.6332,58.0305 99.6332,58.0249 99.6311,58.0189 99.6246,58.0075 99.6214,58.0032 99.6190,58.0010 99.5595,57.9643 99.5483,57.9549 99.5436,57.9499 99.5382,57.9456 99.5313,57.9420 99.5192,57.9402 99.5088,57.9367 99.4985,57.9290 99.4952,57.9224 99.4920,57.9096 99.4890,57.9038 99.4818,57.8924 99.4711,57.8603 99.4676,57.8548 99.4589,57.8445 99.4385,57.8263 99.4345,57.8210 99.4317,57.8153 99.4294,57.8037 99.4230,57.7987 99.4119,57.7955 99.3318,57.7980 99.3117,57.7951 99.2550,57.7819 99.2107,57.7663 99.2001,57.7641 99.1860,57.7629 99.1619,57.7639 99.1346,57.7680 99.1164,57.7729 99.1058,57.7743 99.0936,57.7734 99.0808,57.7704 99.0033,57.7394 98.9903,57.7323 98.9626,57.7233 98.8892,57.7213 98.8724,57.7236 98.8554,57.7281 98.7961,57.7533 98.7898,57.7570 98.7848,57.7613 98.7818,57.7661 98.7805,57.7716 98.7789,57.7830 98.7762,57.7879 98.7685,57.7907 98.7462,57.7928 98.7333,57.7923 98.6837,57.7803 98.6305,57.7778 98.5471,57.7914 98.2674,57.8066 97.9877,57.8219 97.9350,57.8113 97.6717,57.4722 97.4085,57.1331 97.3559,57.0605 97.3495,57.0480 97.3538,57.0420 97.3614,57.0384 97.4045,57.0259 97.4101,57.0228 97.4173,57.0175 97.4224,57.0143 97.4356,57.0080 97.4408,57.0046 97.4668,56.9758 97.4713,56.9719 97.4766,56.9684 97.4829,56.9655 97.4897,56.9637 97.6089,56.9607 97.6169,56.9580 97.6209,56.9536 97.6202,56.9470 97.6157,56.9419 97.6066,56.9355 97.5883,56.9259 97.5661,56.9174 97.4968,56.8997 97.4921,56.8973 97.4859,56.8926 97.4791,56.8808 97.4750,56.8694 97.4695,56.8274 97.4767,56.8183 97.4816,56.8143 97.4872,56.8105 97.4992,56.8053 97.5476,56.7934 97.5574,56.7927 97.5661,56.7937 97.6088,56.8032 97.6398,56.8069 97.6804,56.8073 97.7025,56.8044 97.7663,56.7880 97.7720,56.7844 97.7760,56.7800 97.7782,56.7748 97.7765,56.7671 97.7571,56.7318 97.7539,56.7233 97.7524,56.7167 97.7518,56.7104 97.7520,56.7044 97.7555,56.6939 97.7593,56.6893 97.7633,56.6849 97.7681,56.6813 97.7732,56.6783 97.7802,56.6729 97.7830,56.6687 97.7830,56.6632 97.7787,56.6571 97.7605,56.6444 97.7560,56.6386 97.7574,56.6314 97.7608,56.6260 97.7700,56.6171 97.7731,56.6122 97.7748,56.6070 97.7744,56.6012 97.7713,56.5939 97.7666,56.5854 97.7526,56.5652 97.7524,56.5603 97.7633,56.5591 97.8457,56.5585 97.8691,56.5548 97.8780,56.5449 97.8812,56.5306 97.8828,56.4269 97.8790,56.4112 97.8691,56.3983 97.8416,56.3931 97.5923,56.3867 97.5692,56.3828 97.5612,56.3725 97.5591,56.3577 97.5605,56.3235 97.5636,56.3071 97.5683,56.2927 97.5812,56.2822 97.5861,56.2719 97.5886,56.2575 97.5869,56.2082 97.5812,56.1951 97.5659,56.1896 97.5181,56.1841 97.5009,56.1795 97.4837,56.1727 97.4411,56.1468 97.4342,56.1328 97.4320,56.1214 97.4327,56.1122 97.4263,56.0992 97.4144,56.0873 97.3647,56.0564 97.3529,56.0512 97.3467,56.0527 97.3271,56.0620 97.2931,56.0719 97.2863,56.0752 97.2807,56.0786 97.2773,56.0824 97.2724,56.0856 97.2634,56.0885 97.1842,56.1045 97.1544,56.1060 97.1262,56.1017 97.1013,56.0795 97.0718,56.0436 97.0580,56.0312 97.0405,56.0261 97.0017,56.0220 96.9874,56.0183 96.9828,56.0109 96.9805,56.0032 96.9732,55.8902 96.9688,55.8743 96.9610,55.8609 96.9137,55.8460 96.9004,55.8365 96.8810,55.8254 96.8444,55.8200 96.8301,55.7984 96.8199,55.7917 96.7874,55.7848 96.7806,55.7819 96.7739,55.7766 96.7685,55.7690 96.7630,55.7549 96.7611,55.7461 96.7654,55.7355 96.7704,55.7300 96.7763,55.7252 96.7818,55.7215 96.8156,55.7055 96.8191,55.7008 96.8180,55.6944 96.8073,55.6848 96.7991,55.6793 96.7583,55.6591 96.7553,55.6546 96.7537,55.6507 96.7739,55.6383 96.8230,55.6168 96.8469,55.6025 96.8557,55.5940 96.8571,55.5889 96.8561,55.5835 96.8493,55.5778 96.8287,55.5673 96.8234,55.5631 96.8209,55.5576 96.8227,55.5503 96.8259,55.5449 96.8341,55.5357 96.8366,55.5306 96.8373,55.5242 96.8357,55.5057 96.8370,55.4962 96.8411,55.4903 96.8465,55.4859 96.8508,55.4811 96.8517,55.4746 96.8472,55.4632 96.8447,55.4537 96.8441,55.4414 96.8472,55.4346 96.8520,55.4294 96.8722,55.4197 96.8781,55.4162 96.8821,55.4118 96.8841,55.4066 96.8874,55.3896 96.8908,55.3787 96.8958,55.3687 96.8990,55.3640 96.9128,55.3517 96.9159,55.3470 96.9184,55.3419 96.9198,55.3364 96.9190,55.3295 96.9155,55.3217 96.9049,55.3110 96.8964,55.3055 96.8875,55.3017 96.7826,55.2832 96.7209,55.2649 96.7075,55.2587 96.7027,55.2526 96.6999,55.2442 96.7029,55.2078 96.7016,55.1967 96.6961,55.1763 96.6880,55.1582 96.6843,55.1528 96.6813,55.1458 96.6762,55.1244 96.6717,55.1174 96.6664,55.1120 96.6612,55.1080 96.6575,55.1037 96.6566,55.0996 96.6614,55.0966 96.6779,55.0936 96.6837,55.0900 96.6856,55.0849 96.6825,55.0779 96.6782,55.0726 96.6506,55.0526 96.6459,55.0481 96.6349,55.0404 96.6287,55.0372 96.6214,55.0345 96.5896,55.0265 96.5859,55.0232 96.5871,55.0191 96.6255,54.9995 96.6830,54.9590 96.6905,54.9523 96.7128,54.9266 96.7148,54.9224 96.7148,54.9194 96.7131,54.9149 96.7104,54.9098 96.7069,54.9047 96.7042,54.8993 96.7035,54.8935 96.7041,54.8878 96.7064,54.8766 96.7075,54.8651 96.7042,54.8527 96.7016,54.8468 96.6982,54.8414 96.6939,54.8368 96.6797,54.8239 96.6779,54.8188 96.6769,54.8131 96.6735,54.8059 96.6661,54.7975 96.6489,54.7839 96.6410,54.7752 96.6355,54.7677 96.6326,54.7619 96.6292,54.7567 96.6249,54.7519 96.5900,54.7222 96.5658,54.6969 96.5640,54.6909 96.5645,54.6853 96.5674,54.6804 96.5716,54.6762 96.5813,54.6683 96.5851,54.6638 96.5877,54.6589 96.5874,54.6530 96.5820,54.6344 96.5786,54.6158 96.5764,54.6097 96.5735,54.6040 96.5691,54.5991 96.5597,54.5904 96.5556,54.5857 96.5528,54.5805 96.5520,54.5748 96.5531,54.5694 96.5550,54.5641 96.5627,54.5492 96.5722,54.5350 96.5744,54.5299 96.5753,54.5243 96.5738,54.5184 96.5657,54.5135 96.5519,54.5103 96.4960,54.5105 96.4364,54.5255 96.3523,54.5619 96.3366,54.5670 96.3281,54.5678 96.3189,54.5675 96.3127,54.5624 96.3013,54.5548 96.2802,54.5498 96.2220,54.5427 96.2081,54.5423 96.1964,54.5432 96.1180,54.5560 96.1104,54.5586 96.0836,54.5708 96.0758,54.5734 96.0656,54.5733 96.0540,54.5696 96.0398,54.5582 96.0341,54.5498 96.0323,54.5425 96.0338,54.5373 96.0338,54.5327 96.0307,54.5280 96.0215,54.5246 96.0181,54.5174 96.0189,54.5121 96.0205,54.5070 96.0201,54.5026 96.0181,54.4998 95.9844,54.4759 95.9784,54.4677 95.9776,54.4610 95.9809,54.4566 95.9821,54.4516 95.9791,54.4460 95.9664,54.4377 95.9527,54.4260 95.9487,54.4212 95.9394,54.4124 95.9230,54.3998 95.9156,54.3955 95.9069,54.3917 95.8979,54.3893 95.8859,54.3895 95.8727,54.3916 95.8549,54.3979 95.8460,54.4031 95.8348,54.4121 95.8289,54.4156 95.8212,54.4182 95.7983,54.4175 95.7590,54.4014 95.7382,54.3975 95.7307,54.3947 95.7176,54.3879 95.7120,54.3824 95.7076,54.3757 95.7039,54.3642 95.7005,54.3569 95.6918,54.3512 95.6828,54.3491 95.6738,54.3416 95.6677,54.3354 95.6541,54.2819 95.6597,54.2596 95.6639,54.2490 95.6667,54.2440 95.6717,54.2391 95.6792,54.2342 95.8137,54.2007 95.8228,54.1963 95.8322,54.1902 95.8550,54.1709 95.8686,54.1661 95.8801,54.1647 95.9014,54.1639 95.9116,54.1610 95.9200,54.1557 95.9292,54.1450 95.9330,54.1374 95.9352,54.1305 95.9360,54.1247 95.9377,54.1192 95.9453,54.1125 95.9577,54.1056 95.9853,54.0940 95.9974,54.0906 96.0077,54.0900 96.0236,54.0930 96.0332,54.0936 96.0440,54.0922 96.0559,54.0879 96.0696,54.0765 96.0765,54.0693 96.0803,54.0627 96.0806,54.0575 96.0781,54.0525 96.0744,54.0479 96.0697,54.0434 96.0628,54.0330 96.0582,54.0209 96.0546,54.0085 96.0511,53.9998 96.0595,53.9938 96.1165,53.9767 96.1269,53.9724 96.1694,53.9450 96.1857,53.9377 96.2071,53.9254 96.2632,53.8777 96.4065,53.7833 96.4151,53.7749 96.4254,53.7612 96.4307,53.7513 96.4378,53.7438 96.4770,53.7180 96.4884,53.7087 96.4952,53.7011 96.4985,53.6907 96.5061,53.6844 96.5483,53.6643 96.5593,53.6560 96.5692,53.6501 96.5761,53.6488 96.5872,53.6520 96.5928,53.6571 96.5992,53.6691 96.6042,53.6721 96.6123,53.6706 96.6239,53.6625 96.6307,53.6566 96.6400,53.6469 96.6450,53.6430 96.6586,53.6376 96.6850,53.6385 96.6985,53.6445 96.7014,53.6489 96.7047,53.6552 96.7141,53.6908 96.7193,53.6986 96.7277,53.7051 96.7437,53.7110 96.8087,53.7250 96.8759,53.7291 96.8855,53.7278 96.8930,53.7251 96.8987,53.7216 96.9351,53.6952 96.9438,53.6922 96.9849,53.6855 96.9917,53.6817 96.9933,53.6766 96.9942,53.6714 96.9960,53.6669 96.9992,53.6632 97.0054,53.6610 97.0161,53.6582 97.0526,53.6522 97.0629,53.6490 97.1019,53.6301 97.1186,53.6173 97.1285,53.6127 97.1361,53.6130 97.1458,53.6154 97.1564,53.6193 97.1753,53.6235 97.1888,53.6241 97.1996,53.6229 97.2062,53.6198 97.2117,53.6161 97.2157,53.6118 97.2266,53.6064 97.2432,53.6006 97.2839,53.5932 97.3042,53.5924 97.3189,53.5938 97.3293,53.5964 97.3349,53.5944 97.3386,53.5903 97.3415,53.5795 97.3454,53.5734 97.3525,53.5674 97.3782,53.5550 97.3848,53.5502 97.3873,53.5451 97.3926,53.5293 97.3950,53.5243 97.3983,53.5197 97.4033,53.5153 97.4098,53.5111 97.4336,53.4999 97.4348,53.4976 97.4364,53.4880 97.4365,53.4820 97.4377,53.4753 97.4408,53.4689 97.4488,53.4615 97.4563,53.4591 97.4658,53.4582 97.4857,53.4583 97.5630,53.4483 97.5751,53.4450 97.5813,53.4418 97.5868,53.4381 97.5897,53.4334 97.5912,53.4279 97.5917,53.4220 97.5866,53.3954 97.5878,53.3882 97.5931,53.3813 97.6072,53.3730 97.6197,53.3696 97.6317,53.3680 97.6511,53.3688 97.6997,53.3789 97.7323,53.3779 97.8105,53.3659 97.8591,53.3635 97.8793,53.3571 97.9048,53.3523 97.9145,53.3523 97.9431,53.3568 97.9585,53.3577 97.9672,53.3555 97.9725,53.3516 97.9739,53.3462 97.9739,53.3402 97.9684,53.3135 97.9681,53.3075 97.9694,53.3019 97.9714,53.2967 97.9746,53.2920 97.9786,53.2877 97.9883,53.2800 98.0081,53.2702 98.0134,53.2669 98.0318,53.2526 98.0402,53.2499 98.0492,53.2494 98.0856,53.2524 98.1805,53.2450 98.1925,53.2416 98.2008,53.2370 98.2058,53.2323 98.2132,53.2271 98.2217,53.2250 98.2805,53.2257 98.2901,53.2233 98.2969,53.2197 98.3000,53.2157 98.3009,53.2117 98.2981,53.2076 98.2885,53.1995 98.2844,53.1949 98.2820,53.1898 98.2819,53.1848 98.2838,53.1799 98.2897,53.1705 98.2916,53.1654 98.2926,53.1597 98.2922,53.1537 98.2870,53.1355 98.2866,53.1301 98.2885,53.1253 98.2974,53.1098 98.3041,53.1037 98.3153,53.1005 98.3337,53.0976 98.3486,53.0925 98.3593,53.0908 98.3668,53.0917 98.3860,53.1004 98.3934,53.1026 98.5472,53.1104 98.6000,53.1034 98.6091,53.1047 98.6162,53.1075 98.6669,53.1481 98.6728,53.1515 98.6799,53.1540 98.6884,53.1552 98.6988,53.1548 98.8622,53.1245 98.8798,53.1250 98.8830,53.1302 98.8879,53.1425 98.8941,53.1479 98.9046,53.1509 98.9262,53.1511 98.9386,53.1494 98.9482,53.1469 98.9541,53.1438 98.9647,53.1365 99.0566,53.1038 99.0653,53.0974 99.0628,53.0930 99.0575,53.0896 99.0253,53.0747 99.0117,53.0699 99.0050,53.0683 99.0005,53.0668 98.9960,53.0646 98.9885,53.0555 98.9853,53.0502 98.9836,53.0446 98.9853,53.0392 98.9903,53.0345 99.2507,52.9538 99.2458,52.9403 99.2408,52.9349 99.2240,52.9199 99.2184,52.9132 99.2151,52.9031 99.2144,52.8957 99.2148,52.8892 99.2213,52.8652 99.2206,52.8614 99.2168,52.8569 99.2076,52.8534 99.1986,52.8531 99.1903,52.8547 99.1596,52.8712 99.1518,52.8736 99.0827,52.8810 99.0460,52.8888 99.0310,52.8942 99.0179,52.9005 99.0070,52.9074 98.9963,52.9160 98.9861,52.9228 98.9786,52.9255 98.9693,52.9273 98.9589,52.9283 98.9489,52.9283 98.9390,52.9249 98.9296,52.9185 98.8573,52.8466 98.8537,52.8413 98.8517,52.8355 98.8543,52.8277 98.8577,52.8230 98.8591,52.8186 98.8598,52.8125 98.8591,52.8028 98.8620,52.7967 98.8674,52.7929 98.8752,52.7918 98.8832,52.7926 98.9149,52.7993 98.9237,52.7999 98.9324,52.7994 98.9387,52.7975 98.9399,52.7923 98.9384,52.7822 98.9319,52.7615 98.9307,52.7504 98.9313,52.7421 98.9400,52.7228 98.9409,52.7184 98.9406,52.7052 98.9384,52.6910 98.9381,52.6727 98.9350,52.6656 98.9290,52.6576 98.9146,52.6472 98.9050,52.6452 98.8985,52.6460 98.8948,52.6496 98.8908,52.6527 98.8860,52.6552 98.8789,52.6529 98.8708,52.6468 98.8577,52.6340 98.8480,52.6283 98.8393,52.6242 98.8174,52.6177 98.8111,52.6147 98.8056,52.6109 98.8014,52.6061 98.7975,52.5987 98.7947,52.5895 98.7938,52.5729 98.7967,52.5646 98.8017,52.5586 98.8191,52.5483 98.8235,52.5449 98.8266,52.5413 98.8261,52.5374 98.8233,52.5308 98.8065,52.5140 98.7991,52.5097 98.7923,52.5072 98.7660,52.5040 98.7484,52.5045 98.7391,52.5081 98.7339,52.5072 98.7294,52.5049 98.7215,52.4965 98.7198,52.4929 98.7195,52.4881 98.7217,52.4787 98.7236,52.4731 98.7242,52.4688 98.7226,52.4641 98.7164,52.4585 98.6743,52.4340 98.6595,52.4299 98.6341,52.4272 98.6302,52.4243 98.6301,52.4206 98.6354,52.4128 98.6771,52.3756 98.6781,52.3697 98.6769,52.3623 98.6709,52.3462 98.6619,52.3296 98.6474,52.3090 98.6446,52.3030 98.6416,52.2891 98.6418,52.2715 98.6471,52.2628 98.6611,52.2569 98.6737,52.2631 98.6768,52.2675 98.6858,52.2772 98.6905,52.2816 98.7015,52.2887 98.7081,52.2915 98.7156,52.2934 98.7273,52.2925 98.7424,52.2890 98.7666,52.2793 98.7808,52.2767 98.7920,52.2757 98.8004,52.2742 98.8080,52.2696 98.8148,52.2592 98.8174,52.2535 98.8185,52.2480 98.8176,52.2364 98.8099,52.2045 98.8096,52.2010 98.8099,52.1964 98.8145,52.1918 98.8229,52.1877 98.8409,52.1849 98.8521,52.1855 98.8614,52.1875 98.8883,52.1977 98.8959,52.1996 98.9041,52.2005 98.9130,52.2000 98.9207,52.1980 98.9278,52.1954 98.9333,52.1919 98.9378,52.1861 98.9415,52.1787 98.9485,52.1528 98.9482,52.1461 98.9427,52.1405 98.9386,52.1247 98.9494,52.1194 98.9634,52.1126 98.9754,52.0804 98.9957,52.0583 99.0260,52.0455 99.1997,52.0066 99.2338,51.9942 99.2569,51.9779 99.2756,51.9595 99.2963,51.9435 99.3248,51.9342 99.4582,51.9097 99.5578,51.8915 99.6803,51.8887 99.7106,51.8806 99.7849,51.8376 99.8496,51.7893 99.9189,51.7495 100.0069,51.7317 100.0992,51.7387 100.2112,51.7262 100.5118,51.7269 100.5721,51.7048 100.6399,51.6920 101.0704,51.5534 101.1180,51.5278 101.1597,51.5212 101.2017,51.5209 101.2425,51.5152 101.2806,51.4926 101.3164,51.4636 101.3511,51.4505 101.3887,51.4506 101.4830,51.4729 101.5273,51.4758 101.5708,51.4701 101.6446,51.4501 101.6976,51.4524 101.7246,51.4506 101.7431,51.4448 101.7963,51.4194 101.8227,51.4136 101.9028,51.4171 101.9216,51.4130 101.9566,51.3938 101.9752,51.3872 102.0522,51.3836 102.0756,51.3748 102.0922,51.3646 102.1848,51.3239 102.1943,51.3072 102.1802,51.2864 102.1362,51.2403 102.1347,51.2309 102.1406,51.2209 102.1486,51.2026 102.1510,51.1854 102.1497,51.1688 102.1431,51.1348 102.1475,51.0976 102.1663,51.0576 102.1929,51.0206 102.2203,50.9927 102.2306,50.9793 102.2320,50.9649 102.2265,50.9507 102.2162,50.9382 102.2404,50.9123 102.2328,50.8848 102.2137,50.8567 102.2040,50.8294 102.2177,50.7989 102.2466,50.7788 102.3085,50.7482 102.3303,50.7188 102.3212,50.6961 102.2978,50.6749 102.2769,50.6502 102.2725,50.6209 102.2834,50.5906 102.3039,50.5639 102.3286,50.5455 102.3736,50.5337 102.4728,50.5249 102.5141,50.5037 102.5875,50.4153 102.6187,50.3993 102.6205,50.3990 102.7635,50.3748 102.8881,50.3150 102.9283,50.3030 102.9751,50.2956 103.1310,50.3091 103.2026,50.2970 103.2411,50.2444 103.2541,50.2150 103.2777,50.1976 103.3075,50.1904 103.4081,50.1973 103.4397,50.1926 103.4749,50.1820 103.5349,50.1538 103.6024,50.1335 103.6690,50.1312 103.7862,50.1861 103.8464,50.1847 103.9749,50.1487 104.0405,50.1412 104.1226,50.1483 104.1991,50.1700 104.2484,50.2066 104.2699,50.2289 104.3223,50.2543 104.3505,50.2719 104.3782,50.2892 104.4068,50.3005 104.4751,50.3133 104.5779,50.3095 104.6114,50.3142 104.6334,50.3238 104.6728,50.3483 104.6980,50.3532 104.7905,50.3526 104.8194,50.3583 104.8800,50.3839 104.9025,50.3898 104.9352,50.3933 105.0511,50.3835 105.0792,50.3851 105.1067,50.3901 105.1323,50.3981 105.2417,50.4580 105.2794,50.4726 105.3296,50.4765 105.6403,50.4219 105.7802,50.4289 105.8075,50.4244 105.8557,50.4109 105.9052,50.4038 105.9590,50.4036 105.9858,50.3998 106.0399,50.3714 106.0442,50.3648 106.0442,50.3555 106.0454,50.3460 106.0491,50.3381 106.0569,50.3336 106.1363,50.3271 106.1619,50.3196 106.2021,50.2997 106.2232,50.2924 106.2458,50.2903 106.4407,50.3279 106.5492,50.3358 106.6575,50.3270 106.7471,50.3074 106.7892,50.2915 106.9374,50.2091 106.9746,50.1964 106.9837,50.1871 106.9989,50.1498 107.0070,50.1402 107.0272,50.1257 107.0346,50.1188 107.0402,50.1083 107.0494,50.0846 107.0581,50.0741 107.0712,50.0662 107.1017,50.0568 107.1156,50.0505 107.1654,50.0189 107.1931,50.0060 107.2259,49.9971 107.2558,49.9989 107.2814,50.0076 107.3058,50.0100 107.3650,49.9761 107.7303,49.9719 107.7448,49.9676 107.7457,49.9673 107.7466,49.9670 107.7598,49.9616 107.7879,49.9482 107.8086,49.9439 107.8089,49.9439 107.8398,49.9465 107.8401,49.9466 107.8519,49.9460 107.8992,49.9355 107.9475,49.9335 107.9574,49.9234 107.9536,49.8975 107.9453,49.8804 107.9365,49.8666 107.9310,49.8514 107.9333,49.8303 107.9510,49.7825 107.9567,49.7455 107.9558,49.7328 107.9503,49.7206 107.9278,49.6829 107.9284,49.6700 107.9404,49.6632 107.9635,49.6611 107.9638,49.6611 108.0029,49.6631 108.0037,49.6632 108.0168,49.6557 108.0085,49.6336 108.0062,49.6178 108.0167,49.6022 108.0336,49.5893 108.1071,49.5543 108.1274,49.5472 108.2109,49.5402 108.2373,49.5325 108.2515,49.5224 108.2605,49.5096 108.2682,49.4958 108.2781,49.4825 108.3358,49.4364 108.4746,49.3564 108.5390,49.3274 108.5709,49.3257 108.6087,49.3237 108.6094,49.3237 108.7520,49.3412 108.7520,49.3412 108.8590,49.3406 108.8599,49.3406 108.9308,49.3488 108.9314,49.3488 109.0337,49.3279 109.0339,49.3279 109.0590,49.3291 109.1613,49.3466 109.1616,49.3467 109.2876,49.3385 109.3129,49.3325 109.3373,49.3233 109.3919,49.3093 109.4120,49.3032 109.4122,49.3032 109.4508,49.3059 109.4517,49.3059 109.4630,49.3005 109.4667,49.2945 109.4708,49.2766 109.4753,49.2691 109.4928,49.2628 109.5170,49.2559 109.5172,49.2559 109.7287,49.2664 109.7295,49.2665 109.7859,49.2514 109.8187,49.2277 109.8331,49.2269 109.9141,49.2137 110.1821,49.1620 110.1824,49.1620 110.2260,49.1654 110.2693,49.1771 110.3103,49.1959 110.3464,49.2206 110.3620,49.2346 110.3720,49.2416 110.3721,49.2417 110.3832,49.2400 110.4342,49.2026 110.4522,49.1946 110.5092,49.1843 110.6046,49.1453 110.6459,49.1367 110.6884,49.1346 110.6890,49.1345 110.7323,49.1377 110.8420,49.1624 110.9665,49.2074 111.1395,49.2916 111.2745,49.3228 111.2927,49.3308 111.3219,49.3553 111.3394,49.3647 111.3631,49.3676 111.3637,49.3676 111.3860,49.3623 111.4306,49.3464 111.4554,49.3431 111.4555,49.3431 111.4801,49.3433 111.5045,49.3471 111.6174,49.3864 111.6620,49.3964 112.0311,49.4119 112.1274,49.4399 112.4332,49.5292 112.4739,49.5341 112.4742,49.5341 112.5852,49.5263 112.6723,49.4959 112.7022,49.4913 112.7024,49.4913 112.7347,49.4928 112.7781,49.5014 112.8690,49.5317 112.9271,49.5665 112.9483,49.5761 112.9707,49.5830 112.9938,49.5872 113.0446,49.5886 113.0618,49.5960 113.0725,49.6177 113.0751,49.6534 113.0781,49.6690 113.0884,49.6874 113.1577,49.7774 113.1836,49.8020 113.2134,49.8220 113.4165,49.9224 113.4433,49.9460 113.4595,49.9573 113.5114,49.9810 113.5288,49.9928 113.5806,50.0199 113.7532,50.0786 113.7737,50.0816 113.7741,50.0816 113.8168,50.0769 113.8168,50.0769 113.8378,50.0769 113.8508,50.0807 113.9741,50.1605 113.9942,50.1687 114.0361,50.1769 114.0562,50.1838 114.1192,50.2244 114.2010,50.2562 114.2870,50.2768 114.2872,50.2769 114.3340,50.2723 114.4259,50.2418 114.4736,50.2341 114.4740,50.2340 114.6600,50.2513 114.6607,50.2514 114.7547,50.2362 114.9983,50.1443 115.0162,50.1329 115.0290,50.1199 115.0506,50.0908 115.0643,50.0775 115.2111,49.9717 115.3697,49.8954 115.3887,49.8911 115.3888,49.8911 115.4502,49.8914 115.4511,49.8914 115.4739,49.8871 115.5086,49.8868 115.5095,49.8868 115.5786,49.8936 115.5791,49.8936 115.6843,49.8777 115.6844,49.8777 115.7172,49.8778 115.7518,49.8850 116.0546,49.9984 116.1363,50.0144 116.1363,50.0144 116.2186,50.0138 116.3015,49.9930 116.5764,49.9218 116.6182,49.8973 116.6543,49.8638 116.6852,49.8233 116.7233,49.8017 117.0515,49.6756 117.0585,49.6729 117.2539,49.6225 117.4738,49.6143 117.7598,49.5127 117.7693,49.5111 117.7698,49.5110 117.7784,49.5128 117.7959,49.5191 117.7960,49.5191 117.8045,49.5189 117.8167,49.5120 117.8236,49.5103 117.8329,49.5098 117.8373,49.5091 117.8378,49.5090 117.8419,49.5096 117.8747,49.5132 117.8948,49.5466 117.9056,49.5527 117.9317,49.5673 118.0181,49.5958 118.0559,49.6140 118.0722,49.6251 118.0901,49.6401 118.1074,49.6518 118.1696,49.6715 118.1894,49.6813 118.2092,49.6954 118.2244,49.7121 118.2304,49.7292 118.2304,49.7292 118.2417,49.7292 118.2427,49.7292 118.3061,49.7671 118.3297,49.7730 118.3546,49.7764 118.3739,49.7863 118.3819,49.8115 118.3947,49.8200 118.4568,49.8286 118.4780,49.8360 118.4820,49.8424 118.4874,49.8607 118.4917,49.8695 118.4990,49.8767 118.5222,49.8941 118.5555,49.9098 118.5716,49.9207 118.6009,49.9310 118.6453,49.9546 118.6710,49.9619 118.6715,49.9621 118.7136,49.9495 118.7139,49.9495 118.7424,49.9531 118.7926,49.9664 118.8923,49.9793 118.9034,49.9821 118.9139,49.9877 118.9244,49.9915 118.9247,49.9916 118.9367,49.9896 118.9488,49.9852 118.9635,49.9820 118.9910,49.9794 118.9914,49.9793 119.0926,49.9866 119.1905,50.0073 119.2095,50.0151 119.2242,50.0250 119.2520,50.0483 119.3023,50.0798 119.3172,50.0927 119.3296,50.1081 119.3387,50.1241 119.3449,50.1424 119.3493,50.1846 119.3482,50.1951 119.3446,50.2022 119.3351,50.2111 119.3325,50.2173 119.3347,50.2763 119.3395,50.2940 119.3514,50.3015 119.3634,50.3042 119.3665,50.3108 119.3649,50.3195 119.3576,50.3408 119.3539,50.3455 119.3345,50.3499 119.3153,50.3517 119.3149,50.3517 119.2517,50.3425 119.2515,50.3426 119.2474,50.3442 119.2340,50.3527 119.2247,50.3561 119.2145,50.3566 119.2142,50.3565 119.1889,50.3547 119.1885,50.3547 119.1763,50.3561 119.1815,50.3698 119.1728,50.3757 119.1422,50.3766 119.1344,50.3815 119.1385,50.3925 119.1477,50.4043 119.1558,50.4114 119.1685,50.4141 119.1686,50.4141 119.1986,50.4131 119.1994,50.4131 119.2077,50.4151 119.2171,50.4249 119.2446,50.4455 119.2622,50.4792 119.2655,50.4828 119.2650,50.4896 119.2633,50.4920 119.2601,50.4932 119.2555,50.4970 119.2518,50.5045 119.2554,50.5095 119.2616,50.5141 119.2655,50.5200 119.2875,50.5777 119.2862,50.5889 119.2945,50.5992 119.3040,50.6028 119.3148,50.6046 119.3271,50.6100 119.3363,50.6192 119.3421,50.6281 119.3499,50.6347 119.3653,50.6373 119.3747,50.6427 119.3840,50.6666 119.3926,50.6721 119.4049,50.6732 119.4187,50.6763 119.4438,50.6851 119.4582,50.6963 119.4976,50.7371 119.5059,50.7506 119.5158,50.7919 119.5150,50.8134 119.4984,50.8359 119.5167,50.8481 119.5289,50.8668 119.5309,50.8871 119.5189,50.9048 119.5741,50.9458 119.5950,50.9696 119.6052,50.9782 119.6842,51.0161 119.7111,51.0385 119.7113,51.0625 119.7294,51.0645 119.7418,51.0715 119.7492,51.0834 119.7517,51.1000 119.7556,51.1143 119.7627,51.1282 119.7662,51.1424 119.7591,51.1580 119.7680,51.1597 119.7738,51.1627 119.7864,51.1717 119.7591,51.1990 119.7631,51.2150 119.7729,51.2184 119.7733,51.2185 119.8029,51.2134 119.8034,51.2133 119.8159,51.2159 119.8157,51.2227 119.8104,51.2326 119.8069,51.2440 119.8172,51.2690 119.8206,51.2747 119.8298,51.2797 119.8516,51.2843 119.8616,51.2890 119.8843,51.3180 119.8928,51.3226 119.9166,51.3307 119.9137,51.3496 119.9011,51.3703 119.8962,51.3840 119.9440,51.3908 119.9538,51.3977 119.9578,51.4045 119.9609,51.4123 119.9682,51.4218 119.9837,51.4422 119.9815,51.4527 119.9751,51.4642 119.9782,51.4870 119.9931,51.5033 120.0431,51.5385 120.0539,51.5522 120.0545,51.5770 120.0577,51.5964 120.0659,51.6149 120.0868,51.6444 120.1014,51.6599 120.1092,51.6652 120.1229,51.6671 120.1233,51.6672 120.1540,51.6641 120.1547,51.6640 120.1666,51.6686 120.1824,51.6830 120.3203,51.7760 120.3754,51.8023 120.4093,51.8261 120.4285,51.8337 120.4550,51.8364 120.4658,51.8402 120.4724,51.8490 120.4769,51.8591 120.4818,51.8669 120.4941,51.8757 120.5027,51.8772 120.5030,51.8772 120.5124,51.8762 120.5129,51.8762 120.5276,51.8774 120.5421,51.8830 120.5503,51.8905 120.5571,51.8984 120.5673,51.9053 120.5794,51.9076 120.5796,51.9077 120.6251,51.9054 120.6259,51.9053 120.6486,51.9110 120.6630,51.9250 120.6845,51.9593 120.7067,51.9800 120.7119,51.9883 120.7125,52.0016 120.7085,52.0124 120.7020,52.0229 120.6973,52.0345 120.6983,52.0487 120.7066,52.0610 120.7190,52.0665 120.7329,52.0702 120.7460,52.0767 120.7540,52.0863 120.7676,52.1084 120.7801,52.1176 120.7753,52.1243 120.7722,52.1325 120.7722,52.1410 120.7765,52.1484 120.7850,52.1580 120.7842,52.1620 120.7784,52.1650 120.7727,52.1716 120.7676,52.1796 120.7547,52.1945 120.7522,52.2030 120.7533,52.2119 120.7580,52.2279 120.7590,52.2374 120.7399,52.2566 120.6559,52.2991 120.6367,52.3262 120.6344,52.3355 120.6301,52.3409 120.6271,52.3468 120.6293,52.3579 120.6344,52.3617 120.6441,52.3663 120.6532,52.3725 120.6572,52.3814 120.6614,52.3988 120.6823,52.4230 120.6913,52.4391 120.6913,52.4702 120.6935,52.4746 120.7029,52.4888 120.7051,52.4978 120.7058,52.5092 120.7091,52.5181 120.7249,52.5422 120.7083,52.5503 120.6554,52.5670 120.6097,52.5740 120.5405,52.6037 120.4928,52.6173 120.4651,52.6360 120.4550,52.6390 120.4543,52.6390 120.4309,52.6361 120.3904,52.6222 120.3686,52.6173 120.2621,52.6111 120.2430,52.6072 120.1991,52.5891 120.1769,52.5837 120.1760,52.5838 120.1138,52.5845 120.0803,52.5900 120.0574,52.6005 120.0436,52.6135 120.0347,52.6254 120.0311,52.6394 120.0336,52.6589 120.0375,52.6681 120.0539,52.6930 120.0525,52.7046 120.0450,52.7235 120.0470,52.7340 120.0339,52.7607 120.0668,52.7832 120.1569,52.8091 120.1783,52.8179 120.2206,52.8449 120.2534,52.8527 120.2682,52.8581 120.2811,52.8659 120.2867,52.8749 120.2917,52.8854 120.3033,52.8912 120.3276,52.8990 120.3382,52.9077 120.3434,52.9154 120.3475,52.9235 120.3550,52.9332 120.3630,52.9394 120.3929,52.9568 120.4513,53.0083 120.5286,53.0558 120.6157,53.0971 120.6532,53.1228 120.7150,53.1850 120.7522,53.2069 120.8248,53.2352 120.8314,53.2448 120.8269,53.2619 120.8467,53.2734 120.8752,53.2802 121.0551,53.2900 121.0558,53.2900 121.1526,53.2745 121.1528,53.2745 121.2044,53.2767 121.2545,53.2869 121.3009,53.3025 121.3293,53.3200 121.3419,53.3236 121.3578,53.3240 121.3586,53.3241 121.4065,53.3169 121.4068,53.3168 121.4142,53.3173 121.4597,53.3204 121.5131,53.3298 121.6420,53.3849 121.8899,53.4306 121.8899,53.4306 122.0816,53.4295 122.0826,53.4295 122.1090,53.4381 122.1487,53.4611 122.1696,53.4691 122.2266,53.4739 122.2947,53.4927 122.3171,53.4959 122.3177,53.4960 122.3388,53.4913 122.3590,53.4796 122.3806,53.4616 122.4024,53.4510 122.4026,53.4510 122.4261,53.4524 122.4722,53.4647 122.8606,53.4739 123.0035,53.5073 123.1546,53.5131 123.1652,53.5164 123.1810,53.5305 123.2042,53.5383 123.2357,53.5603 123.2535,53.5678 123.2778,53.5694 123.2783,53.5694 123.3105,53.5675 123.3412,53.5614 123.3687,53.5458 123.3812,53.5428 123.4209,53.5385 123.4326,53.5358 123.4724,53.5190 123.4816,53.5182 123.4825,53.5181 123.4865,53.5260 123.4870,53.5439 123.4957,53.5601 123.5146,53.5623 123.5154,53.5624 123.5362,53.5546 123.5484,53.5405 123.5403,53.5370 123.5335,53.5325 123.5205,53.5200 123.5422,53.5143 123.5428,53.5141 123.5619,53.5242 123.5929,53.5579 123.6146,53.5632 123.6152,53.5633 123.6405,53.5513 123.6787,53.5200 123.7027,53.5101 123.7331,53.5038 123.8511,53.4950 123.8775,53.4887 123.9715,53.4552 123.9907,53.4415 124.0110,53.4147 124.0183,53.4070 124.0309,53.3999 124.0566,53.3949 124.0698,53.3896 124.1012,53.3634 124.1224,53.3529 124.1228,53.3527 124.1412,53.3578 124.1587,53.3700 124.1832,53.3786 124.2095,53.3827 124.2097,53.3827 124.2337,53.3817 124.2540,53.3755 124.2763,53.3647 124.2944,53.3513 124.3057,53.3290 124.3223,53.3098 124.3268,53.3060 124.3435,53.2725 124.3609,53.2595 124.3847,53.2461 124.4092,53.2357 124.4549,53.2282 124.5014,53.2137 124.5291,53.2103 124.6402,53.2103 124.6412,53.2103 124.6525,53.2088 124.6796,53.1993 124.6892,53.1936 124.6974,53.1838 124.6978,53.1763 124.6965,53.1698 124.6992,53.1626 124.7211,53.1488 124.7475,53.1477 124.7483,53.1477 124.8016,53.1551 124.8023,53.1552 124.8230,53.1472 124.8491,53.1137 124.8705,53.1081 124.8711,53.1080 124.8972,53.1177 124.8927,53.1343 124.8801,53.1539 124.8814,53.1725 124.8986,53.1855 124.9201,53.1939 125.0204,53.2107 125.0739,53.2122 125.0746,53.2122 125.1284,53.2065 125.4290,53.0947 125.4574,53.0909 125.4775,53.0835 125.5005,53.0506 125.5219,53.0426 125.5223,53.0424 125.5850,53.0589 125.6214,53.0621 125.6223,53.0621 125.6389,53.0461 125.6511,53.0234 125.6796,53.0057 125.7345,52.9817 125.7252,52.9528 125.7208,52.9463 125.7120,52.9412 125.6895,52.9365 125.6798,52.9332 125.6619,52.9194 125.6480,52.9009 125.6474,52.8849 125.6693,52.8781 125.6696,52.8780 125.6927,52.8813 125.7374,52.8958 125.8376,52.9066 125.8383,52.9067 125.8579,52.8990 125.8647,52.8886 125.8628,52.8815 125.8585,52.8744 125.8579,52.8643 125.8620,52.8560 125.8684,52.8494 125.9779,52.7650 125.9853,52.7646 125.9862,52.7645 126.0084,52.7787 126.0188,52.7824 126.0667,52.7832 126.0677,52.7832 126.0890,52.7754 126.1050,52.7545 126.0670,52.7442 126.0500,52.7371 126.0361,52.7271 126.0629,52.6966 126.0696,52.6799 126.0536,52.6725 126.0286,52.6712 126.0035,52.6655 125.9837,52.6530 125.9741,52.6316 125.9783,52.6108 125.9918,52.5864 126.0102,52.5684 126.0283,52.5665 126.0290,52.5664 126.0405,52.5697 126.0517,52.5712 126.0601,52.5755 126.0635,52.5872 126.0695,52.5952 126.0696,52.5953 126.0837,52.5934 126.1713,52.5476 126.2133,52.5330 126.2114,52.5114 126.2016,52.4865 126.2013,52.4671 126.2175,52.4648 126.2177,52.4648 126.2471,52.4658 126.2477,52.4658 126.2769,52.4633 126.2899,52.4500 126.2971,52.4352 126.3136,52.4174 126.3446,52.3914 126.3517,52.3769 126.3453,52.3576 126.3167,52.3162 126.3454,52.3026 126.4222,52.2873 126.4402,52.2753 126.3930,52.2644 126.3132,52.2280 126.3103,52.2139 126.3177,52.1998 126.3338,52.1934 126.3517,52.1917 126.4542,52.1656 126.4948,52.1613 126.5321,52.1527 126.5569,52.1306 126.5523,52.1130 126.5208,52.0613 126.5154,52.0487 126.5154,52.0425 126.4925,52.0388 126.4680,52.0317 126.4483,52.0188 126.4402,51.9979 126.4470,51.9825 126.6489,51.7413 126.6634,51.7334 126.7145,51.7232 126.7167,51.7175 126.7265,51.7087 126.7289,51.7030 126.7258,51.6975 126.7188,51.6909 126.7117,51.6860 126.7083,51.6856 126.7167,51.6632 126.7255,51.6496 126.7247,51.6359 126.7049,51.6136 126.6761,51.5884 126.6778,51.5766 126.7015,51.5627 126.7766,51.5458 126.8084,51.5342 126.8313,51.5081 126.8025,51.4772 126.7937,51.4591 126.7902,51.4358 126.8013,51.4190 126.8269,51.4121 126.8778,51.4099 126.8911,51.4070 126.9029,51.4010 126.9104,51.3911 126.9099,51.3770 126.8985,51.3620 126.8812,51.3562 126.8618,51.3539 126.8444,51.3494 126.8280,51.3390 126.8151,51.3249 126.8083,51.3081 126.8099,51.2891 126.8247,51.2656 126.8468,51.2515 126.8468,51.2515 126.8709,51.2517 126.8916,51.2715 126.8939,51.2820 126.8901,51.2893 126.8858,51.2956 126.8863,51.3029 126.8923,51.3105 126.9003,51.3165 126.9092,51.3212 126.9182,51.3247 126.9354,51.3288 126.9547,51.3295 126.9556,51.3296 126.9731,51.3240 126.9821,51.3089 126.9787,51.2966 126.9689,51.2815 126.9481,51.2581 126.9173,51.2328 126.9099,51.2216 126.9061,51.2081 126.9048,51.1934 126.9064,51.1643 126.9105,51.1460 126.9239,51.1079 126.9268,51.0860 126.9327,51.0638 126.9474,51.0483 126.9821,51.0277 127.0333,50.9724 127.0481,50.9672 127.1117,50.9315 127.1452,50.9035 127.2217,50.7882 127.2421,50.7747 127.2672,50.7641 127.2883,50.7510 127.2974,50.7301 127.2965,50.7228 127.2942,50.7154 127.2908,50.7084 127.2868,50.7025 127.2832,50.6948 127.2848,50.6883 127.2880,50.6820 127.2899,50.6752 127.2959,50.6664 127.3280,50.6373 127.3449,50.6278 127.3597,50.6050 127.3680,50.5778 127.3658,50.5547 127.3578,50.5446 127.3347,50.5250 127.3246,50.5138 127.3112,50.4884 127.3036,50.4776 127.2899,50.4660 127.3056,50.4514 127.3501,50.4262 127.3595,50.4151 127.3606,50.3929 127.3597,50.3813 127.3557,50.3735 127.3467,50.3644 127.3385,50.3527 127.3328,50.3402 127.3316,50.3282 127.3556,50.2986 127.4058,50.2760 127.5793,50.2206 127.5916,50.2087 127.5908,50.1864 127.5877,50.1672 127.5816,50.1491 127.5711,50.1302 127.5076,50.0635 127.4876,50.0256 127.4954,49.9732 127.5226,49.9412 127.5350,49.9225 127.5332,49.9077 127.5218,49.8918 127.5126,49.8691 127.5077,49.8443 127.5091,49.8223 127.5396,49.7899 127.6452,49.7671 127.6809,49.7392 127.6872,49.7168 127.6879,49.6989 127.6909,49.6815 127.7046,49.6606 127.7230,49.6486 127.7710,49.6339 127.7909,49.6231 127.8106,49.6071 127.8318,49.5939 127.8556,49.5849 127.9079,49.5803 127.9083,49.5802 127.9216,49.5811 127.9311,49.5852 127.9418,49.5959 127.9489,49.6012 127.9564,49.6030 127.9680,49.6032 127.9689,49.6032 127.9925,49.5987 128.0134,49.5874 128.0478,49.5583 128.0681,49.5467 128.0934,49.5416 128.1985,49.5390 128.1993,49.5390 128.2260,49.5418 128.2464,49.5514 128.2684,49.5586 128.2688,49.5588 128.3210,49.5449 128.3213,49.5448 128.3457,49.5480 128.3538,49.5545 128.3660,49.5697 128.3730,49.5753 128.3845,49.5794 128.5515,49.5884 128.5522,49.5884 128.6289,49.5754 128.6296,49.5753 128.6361,49.5782 128.6671,49.6095 128.6722,49.6112 128.6728,49.6114 128.6877,49.6032 128.7351,49.5844 128.7605,49.5778 128.7875,49.5753 128.7979,49.5725 128.8026,49.5651 128.8042,49.5552 128.8044,49.5443 128.8005,49.5319 128.7914,49.5271 128.7802,49.5251 128.7703,49.5207 128.7551,49.5025 128.7512,49.4845 128.7611,49.4709 128.7872,49.4655 128.7875,49.4655 128.8108,49.4687 128.8544,49.4805 128.8545,49.4805 128.8801,49.4797 128.9029,49.4717 128.9480,49.4495 128.9991,49.4413 129.0155,49.4311 129.0515,49.3767 129.0678,49.3616 129.0888,49.3521 129.1157,49.3489 129.1163,49.3488 129.1370,49.3541 129.1721,49.3803 129.1949,49.3897 129.2181,49.3908 129.2188,49.3908 129.2465,49.3859 129.2733,49.3753 129.3170,49.3441 129.3412,49.3413 129.3419,49.3412 129.3630,49.3498 129.3742,49.3699 129.3724,49.4106 129.3796,49.4250 129.4041,49.4306 129.4043,49.4307 129.4560,49.4273 129.4816,49.4213 129.5034,49.4108 129.5206,49.3971 129.5287,49.3848 129.5312,49.3693 129.5330,49.3215 129.5399,49.3037 129.5528,49.2905 129.5727,49.2798 129.6197,49.2743 129.6202,49.2743 129.6697,49.2791 129.6702,49.2792 129.7121,49.2742 129.7360,49.2389 129.7385,49.2055 129.7427,49.1957 129.7566,49.1843 129.7769,49.1776 129.8256,49.1742 129.8425,49.1672 129.8464,49.1541 129.8425,49.1092 129.8634,49.1065 129.8841,49.0998 129.9216,49.0819 129.9126,49.0593 129.9144,49.0395 129.9274,49.0257 129.9752,49.0151 129.9978,49.0024 130.0384,48.9720 130.1151,48.9303 130.2028,48.8826 130.2501,48.8646 130.2503,48.8645 130.2945,48.8701 130.3391,48.8853 130.3878,48.8963 130.4397,48.8965 130.4407,48.8965 130.4663,48.8913 130.4772,48.8795 130.4876,48.8637 130.5126,48.8555 130.5413,48.8535 130.5419,48.8535 130.5658,48.8559 130.6259,48.8743 130.6278,48.8745 130.6509,48.8763 130.6516,48.8764 130.6753,48.8708 130.6775,48.8574 130.6676,48.8415 130.6288,48.7960 130.5342,48.6358 130.5307,48.6163 130.5417,48.5984 130.5633,48.5881 130.5873,48.5834 130.6086,48.5767 130.6211,48.5605 130.6217,48.5493 130.6157,48.5302 130.6144,48.5195 130.6167,48.5081 130.6253,48.4884 130.6273,48.4823 130.6398,48.4774 130.6402,48.4772 130.7167,48.4990 130.7168,48.4991 130.7452,48.4973 130.7599,48.4857 130.7605,48.4679 130.7474,48.4478 130.7393,48.4298 130.7442,48.4116 130.7646,48.3830 130.7747,48.3642 130.7806,48.3564 130.7912,48.3482 130.8044,48.3427 130.8154,48.3400 130.8231,48.3338 130.8261,48.3178 130.8249,48.2942 130.8204,48.2819 130.7748,48.2442 130.7698,48.2367 130.7646,48.2253 130.7537,48.1896 130.7474,48.1844 130.7305,48.1780 130.7082,48.1634 130.6757,48.1359 130.6643,48.1164 130.6658,48.1021 130.6719,48.0866 130.6757,48.0639 130.6833,48.0503 130.8583,47.9278 130.9079,47.8843 130.9427,47.8206 130.9433,47.7898 130.9392,47.7511 130.9428,47.7180 130.9666,47.7039 130.9844,47.7000 131.0243,47.6823 131.0451,47.6772 131.0847,47.6752 131.0853,47.6751 131.1048,47.6765 131.1301,47.6812 131.1682,47.6971 131.2111,47.7092 131.4190,47.7426 131.4193,47.7426 131.4418,47.7412 131.4760,47.7345 131.5087,47.7215 131.5389,47.7032 131.5784,47.6686 131.5857,47.6647 131.5949,47.6623 131.6039,47.6616 131.6042,47.6615 131.6134,47.6620 131.6226,47.6638 131.6316,47.6669 131.6845,47.6946 131.7033,47.6961 131.7040,47.6962 131.7813,47.6791 131.7814,47.6791 131.8000,47.6794 131.8367,47.6845 131.8369,47.6845 131.8556,47.6841 131.8658,47.6816 131.8953,47.6700 131.9045,47.6681 131.9143,47.6677 131.9150,47.6676 131.9254,47.6689 131.9339,47.6722 131.9583,47.6869 131.9675,47.6900 132.0261,47.6978 132.0263,47.6979 132.0902,47.6948 132.1179,47.6895 132.1180,47.6894 132.1626,47.6900 132.1899,47.6956 132.2031,47.7005 132.2517,47.7254 132.2654,47.7288 132.3331,47.7365 132.3334,47.7365 132.3675,47.7353 132.4016,47.7298 132.4542,47.7105 132.4766,47.7068 132.4767,47.7068 132.5256,47.7075 132.5374,47.7111 132.5481,47.7168 132.5576,47.7235 132.5751,47.7396 132.5813,47.7480 132.5833,47.7561 132.5817,47.7648 132.5746,47.7822 132.5748,47.7884 132.5774,47.7942 132.5823,47.8007 132.6084,47.8276 132.6598,47.8698 132.6690,47.8813 132.6733,47.8944 132.6724,47.9025 132.6691,47.9093 132.6650,47.9158 132.6618,47.9230 132.6613,47.9313 132.6641,47.9387 132.6691,47.9451 132.6756,47.9506 132.6900,47.9577 132.7063,47.9603 132.7067,47.9604 132.7234,47.9589 132.7391,47.9541 132.7635,47.9394 132.7758,47.9338 132.7899,47.9328 132.7906,47.9327 132.8068,47.9362 132.8216,47.9424 132.8343,47.9516 132.8546,47.9761 132.8657,47.9857 132.9413,48.0226 132.9417,48.0267 133.0256,48.0524 133.0338,48.0568 133.0403,48.0615 133.0450,48.0662 133.0485,48.0716 133.0520,48.0785 133.0619,48.0918 133.0764,48.1009 133.0929,48.1068 133.1861,48.1248 133.2239,48.1260 133.2247,48.1260 133.2638,48.1194 133.2737,48.1152 133.2917,48.1044 133.3024,48.1013 133.3240,48.1001 133.3246,48.1001 133.3803,48.1063 133.3804,48.1063 133.3972,48.1059 133.4141,48.1030 133.4518,48.0914 133.4643,48.0896 133.4647,48.0895 133.5253,48.0954 133.5450,48.1015 133.5609,48.1133 133.5730,48.1328 133.5788,48.1450 133.5858,48.1554 133.5948,48.1642 133.6065,48.1716 133.6224,48.1773 133.6555,48.1839 133.6712,48.1900 133.6865,48.2021 133.7087,48.2317 133.7222,48.2448 133.7388,48.2511 133.7389,48.2511 133.7966,48.2506 133.7976,48.2506 133.8158,48.2551 133.8505,48.2693 133.8686,48.2743 133.8783,48.2753 133.8785,48.2753 133.9371,48.2733 133.9379,48.2733 133.9674,48.2787 133.9834,48.2852 134.0258,48.3151 134.0416,48.3225 134.0581,48.3272 134.1170,48.3352 134.2072,48.3597 134.3681,48.3770 134.3866,48.3812 134.3873,48.3813 134.4064,48.3703 134.4541,48.3442 134.4723,48.3399 134.4900,48.3392 134.4908,48.3392 134.5092,48.3426 134.5268,48.3490 134.5428,48.3569 134.5436,48.3573 134.5704,48.3155 134.6123,48.2854 134.6621,48.2670 134.7014,48.2616 134.7018,48.2615 134.7186,48.2633 134.7197,48.2634 134.7040,48.2526 134.6884,48.2198 134.6839,48.1355 134.6637,48.1080 134.6489,48.1022 134.5874,48.0612 134.5682,48.0404 134.5603,48.0095 134.5679,47.9855 134.6023,47.9441 134.5886,47.9259 134.6000,47.9107 134.6237,47.9002 134.6467,47.8963 134.6587,47.8867 134.6685,47.8647 134.6750,47.8404 134.6774,47.8243 134.6975,47.7951 134.7707,47.7410 134.7661,47.7182 134.7735,47.7107 134.7264,47.6632 134.7149,47.6561 134.6938,47.6489 134.6876,47.6312 134.6871,47.6089 134.6836,47.5878 134.6691,47.5740 134.6252,47.5496 134.6159,47.5366 134.6051,47.5277 134.5616,47.4818 134.5578,47.4712 134.5362,47.4656 134.5014,47.4389 134.4856,47.4302 134.4729,47.4286 134.4721,47.4287 134.4375,47.4298 134.4159,47.4392 134.4152,47.4391 134.4028,47.4374 134.3900,47.4328 134.3791,47.4302 134.3550,47.4294 134.3336,47.4264 134.3138,47.4201 134.2938,47.4097 134.2804,47.3978 134.2584,47.3672 134.2460,47.3551 134.2040,47.3384 134.1845,47.3275 134.1765,47.3104 134.1711,47.2868 134.1610,47.2716 134.1551,47.2579 134.1628,47.2384 134.1693,47.2306 134.1874,47.2137 134.1941,47.2105 134.1982,47.2053 134.1965,47.1937 134.1907,47.1729 134.1997,47.1555 134.2172,47.1377 134.2282,47.1177 134.2181,47.0944 134.1981,47.0852 134.1467,47.0812 134.1252,47.0705 134.1152,47.0558 134.0883,46.9988 134.0818,46.9927 134.0751,46.9881 134.0701,46.9812 134.0679,46.9678 134.0679,46.9268 134.0637,46.9069 134.0214,46.8340 134.0176,46.8195 134.0224,46.8061 134.0368,46.7896 134.0456,46.7720 134.0427,46.7527 134.0268,46.7108 134.0157,46.6650 134.0062,46.6458 133.9994,46.6377 133.9890,46.6252 133.9683,46.6112 133.9213,46.5903 133.9034,46.5736 133.8998,46.5633 133.8973,46.5382 133.8929,46.5290 133.8503,46.4803 133.8468,46.4707 133.8487,46.4570 133.8553,46.4447 133.8625,46.4410 133.8714,46.4405 133.8828,46.4371 133.9012,46.4266 133.9224,46.4101 133.9348,46.3908 133.9270,46.3713 133.8818,46.3537 133.8643,46.3393 133.8751,46.3202 133.8754,46.3198 133.8861,46.3266 133.8965,46.3272 133.8973,46.3272 133.9080,46.3225 133.9169,46.3130 133.8947,46.3019 133.8950,46.2913 133.9029,46.2781 133.9034,46.2590 133.8910,46.2508 133.8705,46.2445 133.8563,46.2366 133.8619,46.2236 133.8538,46.2175 133.8376,46.2004 133.8311,46.1969 133.8305,46.1971 133.8222,46.2001 133.8139,46.2142 133.8072,46.2174 133.8066,46.2172 133.7945,46.2143 133.7874,46.2067 133.7827,46.1967 133.7761,46.1867 133.7670,46.1780 133.7420,46.1590 133.7210,46.1502 133.6997,46.1490 133.6883,46.1418 133.6973,46.1150 133.7203,46.0793 133.7210,46.0638 133.6958,46.0228 133.6591,45.9345 133.6508,45.9278 133.6502,45.9281 133.6287,45.9378 133.6280,45.9377 133.6186,45.9363 133.6110,45.9298 133.6079,45.9195 133.6071,45.9051 133.6040,45.8986 133.5875,45.8884 133.5854,45.8841 133.5870,45.8798 133.5868,45.8763 133.5806,45.8748 133.5801,45.8749 133.5710,45.8764 133.5650,45.8806 133.5601,45.8852 133.5532,45.8884 133.5523,45.8884 133.5326,45.8882 133.5153,45.8793 133.5036,45.8620 133.4993,45.8372 133.4950,45.8333 133.4859,45.8284 133.4782,45.8201 133.4782,45.8058 133.4847,45.7966 133.5044,45.7876 133.5123,45.7786 133.4859,45.7685 133.4718,45.7289 133.4440,45.7097 133.4526,45.6992 133.4776,45.6936 133.4888,45.6867 133.4925,45.6734 133.4838,45.6629 133.4576,45.6488 133.4631,45.6440 133.4727,45.6325 133.4782,45.6277 133.4594,45.6226 133.4430,45.6206 133.4286,45.6153 133.4161,45.6004 133.4261,45.5804 133.4144,45.5733 133.3758,45.5731 133.3635,45.5679 133.3312,45.5493 133.2998,45.5421 133.2726,45.5284 133.2418,45.5233 133.2031,45.5113 133.1902,45.5041 133.1808,45.4938 133.1412,45.4354 133.1341,45.4196 133.1297,45.4028 133.1282,45.3851 133.1028,45.2872 133.1077,45.2646 133.0985,45.2435 133.1075,45.2147 133.1216,45.1834 133.1282,45.1554 133.1262,45.1413 133.1225,45.1313 133.1164,45.1230 133.0997,45.1078 133.0743,45.0906 133.0506,45.0817 133.0248,45.0583 132.9936,45.0485 132.9671,45.0289 132.9543,45.0244 132.9536,45.0245 132.9222,45.0279 132.8407,45.0592 132.4057,45.1465 131.9706,45.2338 131.9698,45.2340 131.9509,45.2397 131.9325,45.2487 131.9155,45.2601 131.9014,45.2729 131.8894,45.2911 131.8814,45.3099 131.8717,45.3263 131.8540,45.3376 131.8532,45.3375 131.8190,45.3328 131.7862,45.3047 131.7241,45.2153 131.7122,45.2087 131.7113,45.2087 131.6679,45.2096 131.6678,45.2096 131.6455,45.2064 131.6287,45.1985 131.6161,45.1849 131.6062,45.1646 131.6059,45.1474 131.6233,45.1237 131.6208,45.1037 131.6100,45.0897 131.4724,44.9966 131.4667,44.9932 131.4531,44.9837 131.4439,44.9713 131.4347,44.9613 131.4205,44.9590 131.4199,44.9590 131.3513,44.9680 131.3505,44.9680 131.3304,44.9676 131.3141,44.9637 131.3009,44.9565 131.2599,44.9282 131.2456,44.9222 131.1775,44.9034 131.1590,44.9017 131.1587,44.9018 131.1414,44.9068 131.1246,44.9156 131.1110,44.9195 131.1102,44.9195 131.0968,44.9191 131.0525,44.9090 131.0463,44.9054 131.0421,44.8978 131.0430,44.8825 131.0398,44.8746 131.0257,44.8624 131.0092,44.8563 130.9912,44.8542 130.9725,44.8541 130.9344,44.8417 130.9311,44.8250 130.9725,44.7756 131.0085,44.7573 131.0223,44.7469 131.0668,44.6820 131.1661,44.3681 131.2654,44.0542 131.2624,44.0461 131.2525,44.0416 131.2363,44.0311 131.2187,44.0161 131.2141,44.0069 131.2139,43.9932 131.2077,43.9748 131.2089,43.9595 131.2193,43.9259 131.2183,43.9085 131.1938,43.8602 131.1738,43.7991 131.1713,43.7811 131.1788,43.7255 131.1759,43.7015 131.1760,43.6938 131.1784,43.6845 131.1864,43.6663 131.1889,43.6567 131.1882,43.6480 131.1824,43.6298 131.1812,43.6230 131.1834,43.6140 131.1917,43.5959 131.1930,43.5886 131.1867,43.5744 131.1666,43.5490 131.1617,43.5328 131.1679,43.5211 131.2538,43.4692 131.2616,43.4645 131.2626,43.4638 131.2752,43.4512 131.2788,43.4385 131.2828,43.3931 131.2819,43.3802 131.2706,43.3647 131.2587,43.3557 131.2489,43.3442 131.2434,43.3214 131.2430,43.2838 131.2387,43.2658 131.2265,43.2519 131.1940,43.2308 131.1795,43.2174 131.1700,43.2017 131.1682,43.1816 131.1759,43.1684 131.1858,43.1563 131.1908,43.1392 131.1849,43.1208 131.1703,43.1078 131.1353,43.0893 131.1276,43.0824 131.1250,43.0754 131.1239,43.0677 131.1208,43.0590 131.1134,43.0519 131.0950,43.0468 131.0864,43.0421 131.0793,43.0318 131.0762,43.0196 131.0753,42.9934 131.0837,42.9652 131.1003,42.9354 131.1040,42.9104 131.0749,42.8966 131.0741,42.8966 131.0404,42.8980 131.0402,42.8980 131.0248,42.8963 131.0097,42.8869 131.0029,42.8733 131.0005,42.8588 130.9934,42.8487 130.9925,42.8487 130.8572,42.8498 130.8175,42.8641 130.7953,42.8691 130.7947,42.8690 130.7705,42.8658 130.7578,42.8533 130.7490,42.8375 130.7358,42.8245 130.7351,42.8247 130.7319,42.8259 130.6501,42.8289 130.6499,42.8289 130.5874,42.8173 130.4919,42.7808 130.4081,42.7354 130.3806,42.6967 130.4047,42.6776 130.4384,42.6753 130.4390,42.6753 130.4750,42.6790 130.4753,42.6790 130.5049,42.6778 130.5277,42.6658 130.5521,42.6456 130.5729,42.6218 130.5853,42.5989 130.5855,42.5689 130.5685,42.5528 130.5317,42.5305 130.5316,42.5310 130.5261,42.5492 130.5205,42.5886 130.5175,42.5994 130.5024,42.6108 130.5015,42.6107 130.5014,42.6108 130.4842,42.6100 130.4678,42.6004 130.4551,42.5852 130.4710,42.5698 130.4679,42.5549 130.4531,42.5496 130.4322,42.5615 130.4273,42.5721 130.4310,42.5915 130.4287,42.5994 130.4214,42.6043 130.4137,42.6046 130.4133,42.6046 130.4127,42.6046 130.4047,42.6041 130.3940,42.6062 130.3257,42.6503 130.3181,42.6674 130.2636,42.7086 130.2440,42.7434 130.2432,42.7820 130.2574,42.8669 130.2400,42.9022 130.2356,42.9028 130.1948,42.9082 130.1940,42.9082 130.1938,42.9082 130.1413,42.9071 130.0997,42.9215 130.1125,42.9291 130.1235,42.9433 130.1314,42.9595 130.1345,42.9727 130.1224,42.9818 130.1217,42.9817 130.1215,42.9818 130.0943,42.9769 130.0473,42.9619 130.0089,42.9606 129.9967,42.9619 129.9823,42.9667 129.9727,42.9737 129.9425,43.0036 129.9351,43.0084 129.9216,43.0103 129.9212,43.0102 129.9207,43.0103 129.9092,43.0084 129.8907,42.9994 129.8798,42.9960 129.8841,42.9885 129.8901,42.9828 129.8977,42.9787 129.9070,42.9761 129.8933,42.9715 129.8631,42.9690 129.8517,42.9619 129.8476,42.9513 129.8467,42.9282 129.8415,42.9178 129.8342,42.9075 129.7990,42.8367 129.7950,42.8065 129.7895,42.7925 129.7735,42.7670 129.7613,42.7460 129.7573,42.7347 129.7556,42.7223 129.7576,42.7036 129.7644,42.6969 129.7745,42.6933 129.7865,42.6847 129.7876,42.6769 129.7794,42.6704 129.7723,42.6617 129.7767,42.6472 129.7511,42.6429 129.7416,42.6290 129.7462,42.6155 129.7631,42.6124 129.7631,42.6062 129.7365,42.5852 129.7314,42.5509 129.7336,42.5118 129.7289,42.4759 129.7033,42.4424 129.6717,42.4380 129.6344,42.4454 129.5927,42.4480 129.5927,42.4479 129.5917,42.4480 129.5956,42.4356 129.5945,42.4222 129.5877,42.4114 129.5632,42.4041 129.5603,42.3968 129.5595,42.3870 129.5542,42.3769 129.5453,42.3713 129.5358,42.3697 129.5278,42.3731 129.5243,42.3834 129.5180,42.3910 129.4898,42.4026 129.4834,42.4107 129.4350,42.4411 129.4341,42.4411 129.4341,42.4411 129.4188,42.4411 129.4062,42.4360 129.3954,42.4302 129.3868,42.4282 129.3730,42.4326 129.3640,42.4450 129.3531,42.4480 129.3525,42.4478 129.3521,42.4480 129.3401,42.4455 129.3386,42.4384 129.3438,42.4292 129.3521,42.4206 129.3386,42.4147 129.3275,42.4268 129.3268,42.4265 129.3265,42.4268 129.3154,42.4223 129.3071,42.4076 129.3038,42.3896 129.2966,42.3872 129.2431,42.3787 129.2361,42.3744 129.2311,42.3676 129.2280,42.3592 129.2286,42.3502 129.2342,42.3466 129.2403,42.3440 129.2423,42.3387 129.2363,42.3239 129.2262,42.3181 129.1949,42.3182 129.1949,42.3182 129.1939,42.3182 129.1939,42.3108 129.2037,42.3102 129.2124,42.3078 129.2207,42.3037 129.2280,42.2977 129.2161,42.2911 129.2142,42.2837 129.2148,42.2756 129.2112,42.2670 129.2029,42.2627 129.1921,42.2599 129.1834,42.2546 129.1808,42.2431 129.1869,42.2360 129.2093,42.2347 129.2143,42.2257 129.2112,42.2200 129.2042,42.2143 129.1964,42.2092 129.1777,42.1934 129.1480,42.1737 129.1198,42.1494 129.1056,42.1422 129.0894,42.1432 129.0657,42.1538 129.0656,42.1533 129.0647,42.1538 129.0635,42.1361 129.0533,42.1229 129.0266,42.1019 129.0089,42.0951 128.9850,42.0929 128.9638,42.0885 128.9548,42.0752 128.9401,42.0354 128.9039,42.0264 128.8841,42.0304 128.8180,42.0439 128.7219,42.0476 128.7219,42.0476 128.7210,42.0476 128.7093,42.0302 128.6828,42.0258 128.6088,42.0302 128.6087,42.0301 128.6079,42.0302 128.5976,42.0271 128.5877,42.0200 128.5737,42.0043 128.5649,42.0010 128.5543,42.0066 128.5447,42.0081 128.5443,42.0080 128.5437,42.0081 128.5026,41.9962 128.4893,41.9975 128.4550,42.0103 128.4541,42.0103 128.4540,42.0103 128.4085,42.0084 128.3881,42.0207 128.3647,42.0265 128.2629,42.0329 128.2627,42.0328 128.2620,42.0329 128.1005,41.9991 128.0546,41.9983 128.0346,41.9937 128.0215,41.9798 128.0204,41.9651 128.0400,41.8796 128.0478,41.8640 128.0576,41.8498 128.0910,41.8417 128.0970,41.8226 128.1443,41.7547 128.1549,41.7338 128.1591,41.7118 128.1860,41.6929 128.2241,41.6694 128.2509,41.6601 128.2690,41.6434 128.2814,41.6230 128.2833,41.6051 128.3030,41.5834 128.2876,41.5447 128.1857,41.4045 128.1462,41.3764 128.1049,41.3791 128.1192,41.3934 128.1049,41.3996 128.1045,41.3993 128.1039,41.3996 128.0881,41.3889 128.0651,41.3884 128.0478,41.3988 128.0516,41.4207 128.0505,41.4203 128.0506,41.4207 128.0337,41.4138 128.0243,41.4116 128.0161,41.4133 128.0125,41.4243 128.0140,41.4423 128.0133,41.4601 128.0024,41.4709 128.0019,41.4704 128.0014,41.4709 127.9927,41.4611 127.9845,41.4540 127.9749,41.4506 127.9452,41.4709 127.9443,41.4708 127.9442,41.4709 127.9036,41.4663 127.8815,41.4609 127.8719,41.4537 127.8651,41.4374 127.8491,41.4314 127.8298,41.4340 127.8113,41.4436 127.8107,41.4434 127.8104,41.4436 127.7847,41.4369 127.6912,41.4390 127.6636,41.4470 127.6629,41.4469 127.6627,41.4470 127.6581,41.4466 127.6471,41.4330 127.6388,41.4301 127.6316,41.4329 127.5985,41.4503 127.5598,41.4582 127.5457,41.4689 127.5438,41.4913 127.5429,41.4909 127.5429,41.4913 127.5262,41.4845 127.5094,41.4882 127.4920,41.4954 127.4751,41.4988 127.4746,41.4987 127.4741,41.4988 127.4571,41.4947 127.4431,41.4880 127.4275,41.4832 127.4061,41.4845 127.4023,41.4868 127.3969,41.4914 127.3894,41.4960 127.3799,41.4988 127.3792,41.4987 127.3790,41.4988 127.3711,41.4981 127.3537,41.4927 127.3446,41.4914 127.3061,41.4947 127.2873,41.4990 127.2700,41.5050 127.2761,41.5073 127.2845,41.5122 127.2907,41.5186 127.2899,41.5255 127.2824,41.5311 127.2816,41.5310 127.2815,41.5311 127.2747,41.5304 127.2675,41.5273 127.2588,41.5256 127.2455,41.5280 127.2229,41.5408 127.2080,41.5459 127.2077,41.5457 127.2071,41.5459 127.2003,41.5421 127.1873,41.5215 127.1801,41.5172 127.1753,41.5193 127.1713,41.5239 127.1661,41.5285 127.1569,41.5305 127.1566,41.5304 127.1559,41.5305 127.1424,41.5239 127.1355,41.5222 127.1292,41.5316 127.1218,41.5348 127.1129,41.5366 127.1056,41.5374 127.1190,41.5558 127.1375,41.5692 127.1588,41.5786 127.1807,41.5852 127.1670,41.5950 127.1149,41.6104 127.0982,41.6124 127.1028,41.6223 127.1056,41.6262 127.0750,41.6357 127.0599,41.6433 127.0504,41.6534 127.0464,41.6680 127.0499,41.6777 127.0604,41.6822 127.0766,41.6808 127.0766,41.6809 127.0776,41.6808 127.0693,41.6936 127.0477,41.7192 127.0436,41.7326 127.0427,41.7325 127.0427,41.7326 127.0340,41.7317 126.9821,41.7633 126.9595,41.7668 126.9588,41.7668 126.9586,41.7668 126.9470,41.7662 126.9416,41.7718 126.9406,41.7937 126.9308,41.8010 126.9300,41.8009 126.9298,41.8010 126.9085,41.7962 126.8871,41.7849 126.8775,41.7735 126.8648,41.7473 126.8089,41.7298 126.7963,41.7049 126.7889,41.6962 126.7723,41.7045 126.7425,41.7292 126.7282,41.7369 126.7135,41.7412 126.7125,41.7412 126.6975,41.7412 126.6966,41.7412 126.6795,41.7360 126.6871,41.7240 126.6996,41.7164 126.7142,41.7099 126.7280,41.7013 126.7122,41.6942 126.6801,41.6719 126.6694,41.6672 126.6349,41.6686 126.6347,41.6686 126.6340,41.6686 126.6179,41.6659 126.6021,41.6421 126.5670,41.6142 126.5665,41.6019 126.5773,41.5883 126.5809,41.5752 126.5773,41.5618 126.5588,41.5342 126.5422,41.4890 126.5076,41.4472 126.5013,41.4344 126.5083,41.4092 126.5221,41.3776 126.5221,41.3519 126.4886,41.3446 126.4886,41.3518 126.4947,41.3548 126.4974,41.3580 126.4992,41.3618 126.5023,41.3661 126.4735,41.3665 126.4734,41.3665 126.4725,41.3665 126.4409,41.3484 126.3915,41.3034 126.3806,41.2908 126.3573,41.2494 126.3462,41.2377 126.3210,41.2189 126.3095,41.2078 126.2844,41.1641 126.2748,41.1526 126.2607,41.1431 126.1474,41.0923 126.1238,41.0755 126.1382,41.0570 126.1264,41.0432 126.1115,41.0324 126.1013,41.0221 126.1041,41.0092 126.0934,41.0062 126.0837,41.0025 126.0756,40.9971 126.0693,40.9894 126.0720,40.9806 126.0658,40.9686 126.0455,40.9447 126.0286,40.9353 126.0095,40.9327 125.9920,40.9284 125.9806,40.9136 125.9816,40.9137 125.9815,40.9136 125.9971,40.9149 126.0100,40.9139 126.0153,40.9091 126.0078,40.8993 125.9951,40.8941 125.9643,40.8913 125.9496,40.8826 125.9367,40.8776 125.9250,40.8841 125.9132,40.8941 125.9025,40.8993 125.9017,40.8992 125.9015,40.8993 125.8852,40.8975 125.8727,40.8927 125.8317,40.8708 125.8227,40.8698 125.7801,40.8846 125.7718,40.8862 125.7710,40.8862 125.7708,40.8862 125.7609,40.8857 125.7547,40.8817 125.7508,40.8748 125.7459,40.8682 125.7370,40.8652 125.7064,40.8605 125.6832,40.8479 125.6448,40.8106 125.6733,40.7841 125.6826,40.7689 125.6687,40.7622 125.6109,40.7613 125.6091,40.7642 125.6013,40.7727 125.5875,40.7819 125.5727,40.7849 125.5724,40.7848 125.5717,40.7849 125.5601,40.7783 125.5554,40.7588 125.5533,40.7371 125.5465,40.7259 125.5331,40.7218 125.4916,40.7209 125.4788,40.7188 125.4691,40.7129 125.4598,40.7013 125.4569,40.6937 125.4563,40.6797 125.4530,40.6734 125.4439,40.6688 125.4273,40.6712 125.4271,40.6711 125.4263,40.6712 125.4189,40.6666 125.4152,40.6527 125.4150,40.6519 125.4171,40.6393 125.4133,40.6318 125.3918,40.6325 125.3855,40.6351 125.3734,40.6439 125.3645,40.6467 125.3638,40.6467 125.3636,40.6467 125.3560,40.6460 125.3372,40.6413 125.3241,40.6449 125.3091,40.6498 125.3084,40.6498 125.3082,40.6498 125.2933,40.6486 125.2772,40.6436 125.2710,40.6325 125.2648,40.6225 125.2561,40.6150 125.2424,40.6113 125.2164,40.6026 125.1815,40.5940 125.1531,40.5840 125.1331,40.5729 125.1146,40.5641 125.0897,40.5555 125.0736,40.5480 125.0500,40.5418 125.0251,40.5344 125.0153,40.5220 125.0153,40.5083 125.0277,40.4959 125.0389,40.4835 125.0463,40.4711 125.0413,40.4611 125.0263,40.4574 125.0071,40.4562 124.9876,40.4574 124.9873,40.4573 124.9866,40.4574 124.9599,40.4537 124.9363,40.4556 124.9268,40.4579 124.9189,40.4611 124.9161,40.4659 124.9066,40.4765 124.8965,40.4836 124.8961,40.4832 124.8955,40.4836 124.8907,40.4779 124.8838,40.4655 124.8499,40.4316 124.8008,40.3941 124.7799,40.3835 124.7568,40.3792 124.7412,40.3704 124.7313,40.3497 124.7230,40.3267 124.7125,40.3103 124.6930,40.3028 124.6426,40.2943 124.6272,40.2861 124.6112,40.2722 124.5709,40.2524 124.5549,40.2414 124.5518,40.2362 124.5502,40.2247 124.5487,40.2209 124.5430,40.2176 124.5324,40.2160 124.5282,40.2141 124.4489,40.1565 124.3856,40.1105 124.3706,40.0980 124.3705,40.0979 124.3702,40.0983 124.3706,40.0965 124.3703,40.0040 124.3101,39.9246 124.2018,39.6651 124.2312,39.6710 124.2316,39.6510 124.2579,39.5991 124.3200,39.5457 124.3627,39.5294 124.3785,39.4653 124.3797,39.4639 124.3726,39.4337 124.3996,39.3524 124.4423,39.3075 124.5073,39.2728 124.6911,39.2382 124.7767,39.2435 124.8627,39.2774 124.9370,39.3358 124.9781,39.3681 125.0043,39.3606 125.1000,39.3332 125.1337,39.3378 125.1362,39.3106 125.0714,39.2268 124.9581,39.0060 124.9046,38.8277 124.8516,38.8080 124.7963,38.7568 124.7850,38.7284 124.6666,38.6911 124.6095,38.6493 124.5726,38.5985 124.5572,38.5436 124.5617,38.4872 124.6334,38.3469 124.5069,38.2678 124.4513,38.2001 124.4135,38.0813 124.3818,37.9814 124.3899,37.8851 124.4914,37.6938 124.5513,37.6462 124.5758,37.6373 124.5793,37.6324 124.7071,37.5857 124.7920,37.5920 124.8696,37.6192 124.8944,37.6279 124.9015,37.6334 124.9722,37.6132 125.1402,37.5254 125.3295,37.4900 125.5075,37.5112 125.5286,37.5053 125.5368,37.4929 125.5609,37.4758 125.5897,37.4554 125.6689,37.4312 125.7673,37.4358 125.8495,37.4689 125.9105,37.5261 125.9364,37.5970 125.9972,37.5434 126.1064,37.4988 126.1206,37.4789 125.9366,37.3908 125.8924,37.3463 125.8639,37.2879 125.8633,37.2490 125.8003,37.2219 125.7525,37.1702 125.7252,37.1006 125.7370,37.0158 125.8164,36.9171 125.8893,36.8663 125.9248,36.8584 125.9003,36.8017 125.8998,36.7916 125.8723,36.7734 125.8327,36.6891 125.8571,36.5898 125.9404,36.5189 126.0333,36.4934 126.0706,36.4971 126.0911,36.4816 126.1173,36.4023 126.0109,36.4006 125.9160,36.3528 125.8580,36.2713 125.7731,36.1909 125.7551,36.1358 125.7636,36.0677 125.8068,36.0003 125.8916,35.9475 125.9877,35.9323 126.0847,35.9521 126.1622,36.0008 126.2060,36.0752 126.2603,36.1261 126.2817,36.0537 126.3198,36.0144 126.2632,36.0068 126.1984,35.9634 126.1587,35.9088 126.1452,35.8528 126.1593,35.7853 126.1670,35.7767 126.1566,35.7732 126.1002,35.7383 126.0558,35.6905 126.0218,35.6136 126.0246,35.5359 126.0256,35.5340 125.9990,35.5382 125.9187,35.5178 125.8505,35.4741 125.8067,35.4154 125.7909,35.3486 125.8054,35.2807 125.8513,35.2161 125.8002,35.1354 125.8004,35.0468 125.8147,35.0227 125.8085,34.9957 125.7285,34.8969 125.6923,34.8724 125.6446,34.8612 125.4079,34.8870 125.3241,34.8647 125.2598,34.8892 125.1517,34.8885 125.0754,34.8589 125.0155,34.8051 124.9707,34.7304 124.9683,34.6975 124.9646,34.6495 124.9977,34.5731 125.0816,34.5064 125.0657,34.4297 125.0890,34.3218 125.1190,34.2842 125.0697,34.2876 124.9818,34.2607 124.9046,34.2019 124.8674,34.1299 124.8658,34.0526 124.9023,33.9684 124.9630,33.9073 125.0460,33.8664 125.1470,33.8541 125.2345,33.8730 125.3068,33.9180 125.3587,33.9951 125.3657,34.0781 125.3286,34.1686 125.2874,34.2092 125.3491,34.2068 125.4670,34.2579 125.5087,34.3047 125.5301,34.3600 125.5118,34.4602 125.5436,34.4734 125.5608,34.4868 125.6234,34.5164 125.6913,34.4526 125.8000,34.4191 125.7267,34.3565 125.6920,34.2984 125.6852,34.2291 125.7114,34.1594 125.7657,34.1063 125.8694,34.0584 126.0345,34.0461 126.1305,34.0597 126.0933,33.9912 126.0950,33.9101 126.1465,33.8266 126.1869,33.7977 126.1795,33.5977 126.0352,33.5065 125.9756,33.4358 125.9459,33.3548 125.9440,33.2698 125.9744,33.1738 126.0261,33.1014 126.0992,33.0450 126.1917,33.0108 126.2823,33.0039 126.7377,33.0719 126.9079,33.1253 127.0196,33.1904 127.1221,33.3059 127.1680,33.4190 127.1654,33.4427 127.1684,33.4475 127.1739,33.5296 127.1452,33.6063 127.2953,33.8151 127.3837,33.8226 127.4445,33.8552 127.5056,33.9180 127.5056,33.4548 127.5056,32.9916 127.5056,32.5284 127.5056,32.0652 127.5056,31.6020 127.5056,31.1388 127.5056,30.6756 127.5056,30.2124 127.5056,29.7492 127.5056,29.2860 127.5056,28.8228 127.5057,28.4195 127.5057,28.0162 127.5057,27.6129 127.5057,27.2096 127.5057,26.8063 127.2222,26.8029 127.1361,26.7855 127.0611,26.7406 127.0019,26.6501 126.9942,26.5445 126.8987,26.5512 126.7933,26.5873 126.6792,26.5859 126.5830,26.5485 126.5157,26.4899 126.4793,26.4105 126.4830,26.3272 126.0294,26.3268 125.5758,26.3264 125.1222,26.3260 124.6687,26.3256 124.2151,26.3252 123.7615,26.3248 123.3079,26.3244 123.3079,25.9631 123.3079,25.6018 123.3079,25.2405 122.8996,25.2298 122.7452,25.1226 122.5310,24.8138 122.4149,24.5771 122.3921,24.4132 122.3808,24.1504 122.4199,23.8863 122.5218,23.6496 122.7086,23.5664 123.1886,23.5647 123.6685,23.5629 124.1484,23.5612 124.6284,23.5594 125.1083,23.5577 125.5882,23.5559 126.0682,23.5542 126.5481,23.5524 127.0280,23.5507 127.5079,23.5489 127.5079,23.4397 127.5079,22.9852 127.5079,22.5306 127.5079,22.0761 127.5079,21.6216 127.5079,21.1670 127.5079,20.7125 127.5079,20.2579 127.5079,19.8034 127.5079,19.3488 127.5079,18.8943 127.5079,18.4397 127.5079,17.9397 127.5079,17.4397 127.5079,16.9397 127.5079,16.4397 127.5079,15.9397 127.5079,15.4397 127.5079,14.9397 127.5079,14.4397 127.5079,13.9397 127.5079,13.4397 127.5079,12.9852 127.5079,12.5306 127.5079,12.0761 127.5079,11.6216 127.5079,11.1670 127.5079,10.7125 127.5079,10.2579 127.5079,9.8034 127.5079,9.3488 127.5079,8.8943 127.5079,8.4397 127.5079,7.9852 127.5079,7.5306 127.5079,7.0761 127.5079,6.6216 127.5079,6.1670 127.5079,5.7125 127.5079,5.2579 127.5079,4.8034 127.5079,4.3488 127.5079,3.8943 127.5079,3.4397 127.3258,3.1759 127.1436,2.9121 126.8595,2.5007 126.5754,2.0893 126.2912,1.6778 126.0071,1.2664 125.7230,0.8550 125.4389,0.4435 125.1548,0.0321 124.8706,-0.3793 124.5865,-0.7908 124.3024,-1.2022 124.3024,-1.6686 124.3024,-2.1350 124.3024,-2.6013 124.3024,-3.0677 124.3959,-3.5233 124.4893,-3.9789 124.5828,-4.4344 124.6763,-4.8900 124.7697,-5.3456 124.8632,-5.8012 124.9567,-6.2567 125.0501,-6.7123 125.1436,-7.1679 125.2371,-7.6234 125.3305,-8.0790 125.3378,-8.2257 125.3110,-8.4106 125.0157,-8.5365 124.8906,-8.6287 124.8782,-8.6429 124.8200,-8.7097 124.5976,-8.8112 124.4654,-8.8893 124.1636,-8.9549 123.8914,-9.0910 123.9294,-9.1612 124.0302,-9.3419 124.0302,-9.3421 124.0627,-9.3979 124.0903,-9.4215 124.1211,-9.4269 124.1337,-9.4193 124.1538,-9.3919 124.1672,-9.3806 124.1836,-9.3739 124.1975,-9.3732 124.2107,-9.3789 124.2258,-9.3916 124.2372,-9.4052 124.2469,-9.4215 124.2540,-9.4387 124.2575,-9.4554 124.2569,-9.4629 124.2544,-9.4754 124.2534,-9.4806 124.2534,-9.4864 124.2566,-9.4994 124.2575,-9.5012 124.2616,-9.4979 124.2738,-9.4949 124.2931,-9.4931 124.3101,-9.4887 124.3236,-9.4804 124.3323,-9.4666 124.3334,-9.4572 124.3288,-9.4398 124.3286,-9.4330 124.3302,-9.4296 124.3321,-9.4255 124.3417,-9.4118 124.3454,-9.4042 124.3479,-9.3746 124.3546,-9.3642 124.3581,-9.3622 124.3626,-9.3620 124.3719,-9.3571 124.4017,-9.3318 124.4209,-9.3069 124.4248,-9.3035 124.4279,-9.2995 124.4318,-9.2908 124.4366,-9.2559 124.4515,-9.2006 124.4506,-9.1803 124.4506,-9.1802 124.4398,-8.9738 124.4867,-8.9631 124.6203,-8.8755 124.8015,-8.7943 124.8348,-8.7606 124.8984,-8.8569 124.9252,-8.9213 124.9195,-8.9622 124.9225,-8.9863 124.9169,-9.0006 124.9092,-9.0203 124.9079,-9.0375 124.9130,-9.0528 124.9213,-9.0655 124.9330,-9.0745 124.9479,-9.0785 124.9486,-9.0785 124.9488,-9.0785 124.9668,-9.0773 124.9799,-9.0720 124.9981,-9.0603 125.0054,-9.0556 125.0528,-9.0350 125.0663,-9.0232 125.0695,-9.0159 125.0730,-9.0006 125.0740,-8.9965 125.0774,-8.9908 125.0873,-8.9864 125.0915,-8.9886 125.0953,-8.9948 125.1017,-9.0006 125.1025,-9.0013 125.1213,-9.0119 125.1394,-9.0248 125.1479,-9.0341 125.1540,-9.0408 125.1624,-9.0606 125.1620,-9.0823 125.1450,-9.1452 125.1470,-9.1545 125.1512,-9.1650 125.1527,-9.1708 125.1539,-9.1758 125.1506,-9.1854 125.1426,-9.1890 125.1189,-9.1876 125.1185,-9.1876 125.1179,-9.1876 125.1070,-9.1885 125.0915,-9.1968 125.0826,-9.2055 125.0740,-9.2113 125.0606,-9.2105 125.0543,-9.2067 125.0424,-9.1932 125.0355,-9.1882 125.0286,-9.1863 125.0082,-9.1861 125.0081,-9.1861 125.0072,-9.1861 124.9972,-9.1879 124.9745,-9.1919 124.9579,-9.2119 124.9541,-9.2415 124.9602,-9.2760 124.9660,-9.2934 124.9710,-9.3017 124.9972,-9.3261 125.0179,-9.3390 125.0234,-9.3456 125.0248,-9.3520 125.0228,-9.3677 125.0238,-9.3747 125.0463,-9.4099 125.0510,-9.4251 125.0556,-9.4514 125.0617,-9.4861 125.1977,-9.6528 125.5824,-9.8774 125.9672,-10.1021 126.3520,-10.3267 126.7368,-10.5514 127.1216,-10.7760 127.5064,-11.0006 127.5064,-11.5006 127.5064,-12.0006 127.5065,-12.4416 127.5065,-12.8825 127.5065,-13.3235 127.5065,-13.7645 127.5402,-13.7820 127.6583,-13.9281 127.7577,-14.0006 127.8140,-14.0417 127.9971,-14.2609 128.1055,-14.3906 128.2008,-14.4691 128.3705,-14.5744 128.4115,-14.5827 128.4120,-14.5827 128.4125,-14.5827 128.5577,-14.5553 128.8099,-14.6334 128.9613,-14.6467 128.9706,-14.6493 128.9971,-14.6567 129.0005,-14.6576 129.0014,-14.6579 128.9981,-14.7750 128.9942,-14.7782 129.0011,-14.8682 129.0009,-14.8789 129.0011,-15.2542 129.0013,-15.6296 129.0015,-16.0049 129.0018,-16.5049 129.0021,-17.0049 129.0023,-17.5049 129.0026,-18.0049 129.0029,-18.5049 129.0031,-19.0049 129.0034,-19.5049 129.0037,-20.0049 129.0039,-20.5049 129.0042,-21.0049 129.0044,-21.4594 129.0047,-21.9140 129.0049,-22.3685 129.0052,-22.8231 129.0054,-23.2776 129.0056,-23.7322 129.0059,-24.1867 129.0061,-24.6413 129.0064,-25.0958 129.0066,-25.5504 129.0068,-26.0049 129.0065,-26.3488 129.0062,-26.6926 129.0057,-27.1496 129.0053,-27.6065 129.0048,-28.0635 129.0044,-28.5205 129.0039,-28.9774 129.0035,-29.4344 129.0030,-29.8913 129.0026,-30.3483 129.0021,-30.8053 129.0017,-31.2622 128.7387,-31.3558 128.5133,-31.4331 128.1172,-31.6134 127.8274,-31.6585 127.5086,-31.7519 127.5088,-32.0694 127.5089,-32.3869 127.5089,-32.7335 127.5089,-33.0801 127.5089,-33.4267 127.5089,-33.8812 127.5089,-34.3357 127.5089,-34.7903 127.5089,-35.2448 127.5089,-35.6994 127.5089,-36.1539 127.5089,-36.6085 127.5089,-37.0630 127.5089,-37.5176 127.5089,-37.9721 127.5089,-38.4267 127.5089,-38.8812 127.5089,-39.3357 127.5089,-39.7903 127.5089,-40.2448 127.5089,-40.6994 127.5089,-41.1539 127.5089,-41.6085 127.5089,-42.0630 127.5089,-42.5176 127.5089,-42.9721 127.5089,-43.4267 127.5089,-43.8812 127.5089,-44.3357 127.5089,-44.7903 127.5089,-45.2448 127.5089,-45.6994 127.5089,-46.1539 127.5089,-46.6085 127.5089,-47.0630 127.5089,-47.5176 127.5089,-47.9721 127.5089,-48.4267 127.5089,-48.8812 127.5089,-49.3357 127.5089,-49.7903 127.5089,-50.2448 127.5089,-50.6994 127.5089,-51.1539 127.5089,-51.6085 127.5089,-52.0630 127.5089,-52.5176 127.5089,-52.9721 127.5089,-53.4267 127.5089,-53.8812 127.5089,-54.3357 127.5089,-54.7903 127.5089,-55.2448 127.5089,-55.6994 127.5089,-56.1539 127.5089,-56.6085 127.5089,-57.0630 127.5089,-57.5176 127.5089,-57.9721 127.5089,-58.4267 127.5089,-58.8812 127.5089,-59.3357 127.5089,-59.7903 127.5089,-60.2448 127.5089,-60.6994 127.5089,-61.1539 127.5089,-61.6085 127.5089,-62.0630 127.5089,-62.5176 127.5089,-62.9721 127.5089,-63.4267 127.5089,-63.9067 127.5089,-64.3867 127.5089,-64.8668 127.5089,-65.3468 127.5089,-65.8268 127.5089,-66.3069 127.5089,-66.7869 127.4064,-66.7680 127.2355,-66.6835 127.1548,-66.6091 127.1506,-66.5788 127.2272,-66.5047 127.2467,-66.4392 127.2038,-66.3778 127.1080,-66.3296 126.8984,-66.2678 126.7661,-66.2511 126.5957,-66.2103 126.4452,-66.1977 126.2750,-66.2059 126.1163,-66.1616 126.0197,-66.1490 125.9255,-66.1453 125.8236,-66.1507 125.7316,-66.1647 125.6413,-66.1889 125.4895,-66.2449 125.2543,-66.2732 125.1169,-66.3103 125.0371,-66.3449 124.9821,-66.3793 124.8715,-66.5241 124.8461,-66.5382 124.6614,-66.5461 124.5217,-66.4760 124.4379,-66.4544 124.3383,-66.4391 124.1459,-66.4270 123.9485,-66.4326 123.8310,-66.4486 123.5674,-66.5062 123.5343,-66.5135 123.4426,-66.5413 123.3531,-66.5821 123.1748,-66.5743 123.0464,-66.5798 122.7907,-66.6158 122.5351,-66.6519 122.4098,-66.6578 122.2840,-66.6803 122.1137,-66.6944 122.0330,-66.7085 121.8620,-66.7545 121.6685,-66.7962 121.6360,-66.7871 121.5343,-66.6956 121.4475,-66.6558 121.3105,-66.6263 121.1382,-66.6193 120.9015,-66.6408 120.6619,-66.7122 120.3910,-66.7326 120.1769,-66.7900 119.7404,-66.8708 119.4954,-66.9026 119.3282,-66.9397 119.2421,-66.9495 119.0808,-66.9575 118.9569,-66.9725 118.8943,-66.9712 118.8343,-66.9607 118.6940,-66.9092 118.6176,-66.8891 118.4606,-66.8714 118.3527,-66.8738 118.2132,-66.8944 117.7383,-66.9363 117.5472,-66.9222 117.4278,-66.9275 117.2906,-66.8574 117.1959,-66.8223 117.0748,-66.7966 116.9485,-66.7873 116.8100,-66.7955 116.6722,-66.8239 116.5349,-66.8666 116.3703,-66.9366 116.2148,-66.9342 116.1069,-66.9408 116.0919,-66.9373 116.0909,-66.9267 116.1761,-66.8320 116.1860,-66.7706 116.0383,-66.5669 115.9465,-66.5043 115.8001,-66.4541 115.4840,-66.3911 115.3472,-66.3471 115.2695,-66.3299 115.1335,-66.3171 114.9450,-66.3127 114.8001,-66.3159 114.7933,-66.2942 114.8260,-66.2108 114.8080,-66.1760 114.7484,-66.1292 114.5551,-66.0298 114.3267,-65.9475 114.1875,-65.9116 114.0863,-65.8503 113.9938,-65.8124 113.8818,-65.7810 113.6436,-65.7313 113.5902,-65.7116 113.4704,-65.6469 113.4005,-65.6277 113.3232,-65.6155 113.1909,-65.6090 113.0514,-65.6156 112.6282,-65.6693 112.5004,-65.6855 112.5007,-65.2691 112.5010,-64.8528 112.5014,-64.4365 112.5014,-63.9365 112.5014,-63.4365 112.5014,-62.9365 112.5014,-62.4365 112.5014,-61.9365 112.5014,-61.4365 112.5014,-60.9365 112.5014,-60.4365 112.5014,-59.9365 112.5014,-59.4365 112.5014,-58.9665 112.5014,-58.4965 112.5014,-58.0265 112.5014,-57.5565 112.5014,-57.0865 112.5014,-56.6165 112.5014,-56.1465 112.5014,-55.6765 112.5014,-55.2065 112.5014,-54.7365 112.5014,-54.2819 112.5014,-53.8274 112.5014,-53.3728 112.5014,-52.9183 112.5014,-52.4637 112.5014,-52.0092 112.5014,-51.5547 112.5014,-51.1001 112.5014,-50.6456 112.5014,-50.1910 112.5014,-49.7365 112.5014,-49.2819 112.5014,-48.8274 112.5014,-48.3728 112.5014,-47.9183 112.5014,-47.4637 112.5014,-47.0092 112.5014,-46.5547 112.5014,-46.1001 112.5014,-45.6456 112.5014,-45.1910 112.5014,-44.7365 112.5014,-44.2819 112.5014,-43.8274 112.5014,-43.3728 112.5014,-42.9183 112.5014,-42.4637 112.5014,-42.0092 112.5014,-41.5547 112.5014,-41.1001 112.5013,-40.6456 112.5013,-40.1910 112.5013,-39.7365 112.5013,-39.6365 112.5013,-39.1819 112.5013,-38.7274 112.5013,-38.2728 112.5013,-37.8183 112.5013,-37.3638 112.5013,-36.9092 112.5013,-36.4547 112.5013,-36.0001 112.5013,-35.5456 112.5013,-35.0910 112.5013,-34.6365 112.5013,-34.1819 112.5013,-33.7274 112.5013,-33.2728 112.5013,-32.8183 112.5013,-32.3638 112.5013,-31.9092 112.5013,-31.4547 112.5013,-31.0001 112.5013,-30.5456 112.5013,-30.0910 112.5013,-29.6365 112.5013,-29.1819 112.5013,-28.7274 112.5013,-28.2728 112.5013,-27.8183 112.5013,-27.3638 112.5013,-26.9092 112.5013,-26.4547 112.5013,-26.0001 112.5013,-25.5456 112.5013,-25.0910 112.5013,-24.6365 112.5013,-24.1819 112.5013,-23.7274 112.5013,-23.2728 112.5013,-22.8183 112.5013,-22.3638 112.5013,-21.9092 112.5013,-21.4547 112.5013,-21.0001 112.5013,-20.5456 112.5013,-20.0910 112.5013,-19.6365 112.5013,-19.1819 112.5013,-18.7274 112.5013,-18.2728 112.5013,-17.8183 112.5013,-17.3638 112.5013,-16.9092 112.5013,-16.4547 112.5013,-16.0001 112.5013,-15.5456 112.5013,-15.0910 112.5013,-14.6365 112.5013,-14.1819 112.5013,-13.7274 112.5013,-13.2728 112.5013,-12.8183 112.5013,-12.3638 112.5013,-11.9092 112.5013,-11.4547 112.5013,-11.0001 112.5013,-10.5456 112.5013,-10.0910 112.5013,-9.6365 112.9410,-9.6365 113.3806,-9.6365 113.8203,-9.6365 114.2599,-9.6365 114.6996,-9.6365 114.7005,-9.6365 114.7005,-9.2836 114.7005,-8.9307 114.7005,-8.5778 114.4512,-8.3435 114.4361,-8.1130 114.4965,-7.9543 114.6798,-7.7597 114.8630,-7.5652 115.3155,-7.5614 115.7680,-7.5576 115.7680,-7.5487 116.0445,-7.5487 116.3209,-7.5487 116.3219,-7.5487 116.3219,-7.0800 116.3219,-6.6113 116.3219,-6.1426 116.3219,-5.6739 116.3219,-5.2052 116.3209,-5.2052 115.8818,-5.2052 115.4427,-5.2052 115.0035,-5.2052 114.5644,-5.2052 114.1252,-5.2052 113.6861,-5.2052 113.8425,-4.7624 113.9989,-4.3195 114.1553,-3.8767 114.3117,-3.4338 114.4721,-3.0040 114.4947,-2.9060 114.4991,-2.8933 114.5054,-2.8810 114.5293,-2.8500 114.5348,-2.8464 114.5420,-2.8432 114.6116,-2.8294 114.6322,-2.8223 114.6381,-2.8181 114.6449,-2.8120 114.6553,-2.7991 114.6599,-2.7909 114.6620,-2.7836 114.6611,-2.7717 114.6660,-2.7652 114.6760,-2.7594 114.7439,-2.7345 114.7501,-2.7301 114.7582,-2.7231 114.7763,-2.7051 114.7864,-2.6888 114.7905,-2.6658 114.7919,-2.6440 114.7959,-2.6214 114.8024,-2.5996 114.8110,-2.5802 114.8231,-2.5620 114.8696,-2.5150 114.8734,-2.5075 114.8867,-2.4703 114.9031,-2.4403 114.9072,-2.4294 114.9091,-2.4187 114.9072,-2.3844 114.9052,-2.3742 114.9007,-2.3676 114.8961,-2.3628 114.8922,-2.3522 114.8830,-2.3357 114.8799,-2.3263 114.8799,-2.2928 114.8801,-2.2850 114.8796,-2.2790 114.8809,-2.2746 114.8912,-2.2689 114.9058,-2.2625 115.0274,-2.2354 115.0858,-2.2200 115.1319,-2.2076 115.1563,-2.1960 115.1885,-2.1711 115.3311,-2.0371 115.3089,-1.9919 115.3121,-1.9800 115.3234,-1.9600 115.3411,-1.9387 115.3593,-1.9039 115.3619,-1.8799 115.3545,-1.8557 115.3423,-1.8281 115.3361,-1.7994 115.3392,-1.7654 115.4052,-1.4744 115.4111,-1.4535 115.4179,-1.4434 115.4276,-1.4345 115.4746,-1.4173 115.4810,-1.4158 115.5105,-1.4122 115.5540,-1.4043 115.6435,-1.3663 115.6667,-1.3608 115.6667,-1.3607 115.6810,-1.3609 115.6869,-1.3685 115.6872,-1.3822 115.6785,-1.4259 115.6946,-1.4292 115.7072,-1.4303 115.7080,-1.4304 115.7211,-1.4263 115.7351,-1.4113 115.7516,-1.3873 115.8030,-1.2944 115.8087,-1.2722 115.8123,-1.2219 115.8175,-1.2070 115.8061,-1.0853 115.8051,-1.0856 115.7858,-1.0918 115.7728,-1.0977 115.7599,-1.1056 115.7533,-1.1074 115.7526,-1.1074 115.7469,-1.1070 115.7406,-1.1038 115.7342,-1.0970 115.7265,-1.0870 115.7180,-1.0718 115.6937,-1.0523 115.6888,-1.0441 115.6816,-1.0257 115.6738,-1.0133 115.6562,-0.9943 115.6429,-0.9848 115.6296,-0.9780 115.6203,-0.9759 115.6122,-0.9748 115.6063,-0.9728 115.5754,-0.9582 115.5410,-0.9496 115.5297,-0.9446 115.5188,-0.9378 115.4681,-0.8973 115.4610,-0.8860 115.4593,-0.8719 115.4609,-0.8587 115.4597,-0.8434 115.4541,-0.8281 115.4223,-0.7863 115.4161,-0.7739 115.3922,-0.6552 115.3915,-0.6152 115.3884,-0.5976 115.3822,-0.5820 115.3308,-0.5110 115.3130,-0.4733 115.3007,-0.4380 115.2956,-0.4166 115.2916,-0.3664 115.2885,-0.3510 115.2751,-0.3110 115.2739,-0.2943 115.2782,-0.2201 115.2851,-0.1852 115.2920,-0.1677 115.3189,-0.1207 115.3232,-0.1100 115.3265,-0.0982 115.3380,-0.0290 115.3432,-0.0104 115.3483,0.0023 115.3488,0.0057 115.3476,0.0103 115.3436,0.0144 115.3380,0.0171 115.3043,0.0234 115.2764,0.0314 115.2755,0.0314 115.2661,0.0312 115.2495,0.0274 115.2279,0.0245 115.2271,0.0246 115.2138,0.0250 115.2138,0.0249 115.1883,0.0052 115.1087,-0.0867 115.0996,-0.1031 115.0940,-0.1104 115.0867,-0.1175 115.0777,-0.1230 115.0465,-0.1368 115.0385,-0.1425 115.0035,-0.1777 114.9972,-0.1794 114.9964,-0.1794 114.9873,-0.1789 114.9791,-0.1667 114.9765,-0.1548 114.9776,-0.1414 114.9803,-0.1288 114.9791,-0.1196 114.9756,-0.1128 114.9708,-0.1064 114.9683,-0.0975 114.9685,-0.0860 114.9714,-0.0682 114.9864,-0.0172 115.0186,0.0577 115.0208,0.0696 115.0202,0.0807 115.0169,0.0950 115.0121,0.1085 115.0009,0.1309 114.9790,0.1665 114.9745,0.1763 114.9729,0.1856 114.9742,0.2118 114.9731,0.2259 114.9698,0.2368 114.9603,0.2584 114.9561,0.2715 114.9540,0.2842 114.9539,0.3125 114.9568,0.3287 114.9689,0.3642 115.0261,0.4795 115.0341,0.4887 115.0588,0.5089 115.0704,0.5211 115.0769,0.5330 115.0793,0.5473 115.0778,0.5575 115.0734,0.5681 115.0672,0.5802 115.0628,0.5934 115.0582,0.6369 115.0542,0.6455 115.0430,0.6577 115.0386,0.6664 115.0341,0.6773 115.0280,0.6870 115.0195,0.6953 115.0106,0.7001 115.0029,0.7031 114.9978,0.7061 114.9917,0.7114 114.9840,0.7281 114.9774,0.7352 114.9650,0.7389 114.9480,0.7401 114.9475,0.7400 114.8910,0.7373 114.8839,0.7358 114.8796,0.7333 114.8751,0.7273 114.8673,0.7115 114.8573,0.7062 114.8339,0.6982 114.7863,0.6898 114.7364,0.6726 114.7060,0.6542 114.6838,0.6346 114.6640,0.6213 114.3785,0.5886 114.3781,0.5887 114.3600,0.5914 114.3437,0.5965 114.2681,0.6098 114.2524,0.6144 114.2378,0.6216 114.2127,0.6400 114.1990,0.6465 114.1849,0.6505 114.1375,0.6529 114.1372,0.6529 114.0960,0.6488 114.0951,0.6488 114.0534,0.6490 114.0534,0.6489 114.0373,0.6470 114.0181,0.6380 114.0081,0.6301 113.9947,0.6151 113.9847,0.6084 113.9708,0.6036 113.9287,0.5994 113.9128,0.5959 113.8708,0.5776 113.8554,0.5742 113.8053,0.5683 113.7773,0.5586 113.7775,0.5589 113.7888,0.5919 113.7950,0.6036 113.8081,0.6200 113.8187,0.6276 113.8416,0.6375 113.8516,0.6456 113.8751,0.6799 113.9088,0.7189 113.9186,0.7364 113.9242,0.7616 113.9248,0.7823 113.9280,0.8021 113.9339,0.8204 113.9444,0.8410 113.9491,0.8622 113.9482,0.8789 113.9426,0.8917 113.9342,0.9004 113.9240,0.9057 113.9141,0.9065 113.9138,0.9064 113.9043,0.9042 113.8843,0.8967 113.8748,0.8960 113.8746,0.8961 113.8680,0.8980 113.8635,0.9023 113.8612,0.9101 113.8617,0.9199 113.8654,0.9416 113.8655,0.9530 113.8642,0.9645 113.8654,0.9764 113.8710,0.9873 113.8872,1.0031 113.9002,1.0115 113.9497,1.0339 113.9803,1.0585 113.9908,1.0644 114.0082,1.0722 114.0190,1.0786 114.1127,1.1607 114.1243,1.1674 114.1471,1.1776 114.1740,1.2023 114.1843,1.2082 114.1930,1.2144 114.2015,1.2251 114.2071,1.2406 114.2099,1.2617 114.2094,1.2779 114.2049,1.2950 114.1937,1.3143 114.1921,1.3302 114.1924,1.3437 114.2069,1.4248 114.2002,1.4345 114.1996,1.4341 114.1842,1.4235 114.1744,1.4205 114.1739,1.4207 114.1614,1.4248 114.1512,1.4343 114.1420,1.4453 114.1319,1.4542 114.0952,1.4657 114.0943,1.4657 114.0549,1.4651 113.9106,1.4425 113.8921,1.4350 113.8692,1.4155 113.8091,1.3397 113.6505,1.2333 113.6258,1.2276 113.6255,1.2277 113.5975,1.2416 113.5471,1.3016 113.5254,1.3136 113.5043,1.3145 113.5042,1.3145 113.4833,1.3087 113.4439,1.2924 113.4430,1.2924 113.3985,1.2939 113.3246,1.3514 113.2770,1.3689 113.2187,1.3809 113.1737,1.3837 113.1596,1.3882 113.1267,1.4136 113.0900,1.4313 113.0515,1.4348 113.0512,1.4347 113.0124,1.4280 112.9741,1.4151 112.9733,1.4151 112.9592,1.4157 112.9563,1.4236 112.9621,1.4344 112.9926,1.4570 113.0082,1.4733 113.0194,1.4924 113.0253,1.5144 113.0244,1.5370 113.0151,1.5508 112.9981,1.5602 112.9741,1.5699 112.9570,1.5723 112.9562,1.5723 112.9086,1.5705 112.9085,1.5706 112.8891,1.5749 112.8723,1.5807 112.8559,1.5827 112.8557,1.5826 112.8374,1.5761 112.8276,1.5672 112.8215,1.5576 112.8145,1.5493 112.8025,1.5438 112.8017,1.5439 112.7958,1.5444 112.7698,1.5522 112.4714,1.5677 112.4713,1.5676 112.4468,1.5621 112.4307,1.5507 112.4169,1.5367 112.3995,1.5233 112.3819,1.5177 112.3200,1.5117 112.2961,1.5038 112.1810,1.4490 112.1625,1.4345 112.1551,1.4095 112.1600,1.4008 112.1828,1.4000 112.1890,1.3914 112.1883,1.3797 112.1849,1.3690 112.1536,1.3063 112.1010,1.1549 112.0939,1.1431 112.0804,1.1372 112.0550,1.1336 112.0541,1.1336 111.9743,1.1340 111.9743,1.1340 111.9111,1.1140 111.8240,1.0085 111.7638,0.9930 111.7633,0.9931 111.7351,1.0014 111.6831,1.0235 111.6562,1.0308 111.6383,1.0322 111.6379,1.0322 111.6236,1.0303 111.5398,0.9977 111.5163,0.9645 111.5042,0.9584 111.5040,0.9588 111.4930,0.9809 111.4890,0.9979 111.4834,1.0129 111.4730,1.0222 111.4555,1.0226 111.4554,1.0226 111.4160,1.0102 111.3965,1.0063 111.3957,1.0063 111.3751,1.0075 111.3527,1.0139 111.2185,1.0733 111.1985,1.0752 111.1983,1.0752 110.9744,1.0177 110.9115,1.0157 110.8813,1.0105 110.8536,0.9972 110.7979,0.9497 110.7880,0.9342 110.7872,0.9163 110.7849,0.9082 110.7777,0.9033 110.7770,0.9034 110.7722,0.9044 110.7621,0.9129 110.7593,0.9145 110.7588,0.9143 110.7467,0.9080 110.7457,0.9051 110.7258,0.8973 110.7249,0.8973 110.7217,0.8974 110.7104,0.9014 110.7094,0.9014 110.7051,0.9014 110.6940,0.8947 110.6754,0.8770 110.6622,0.8721 110.6615,0.8722 110.6487,0.8739 110.6398,0.8808 110.6331,0.8886 110.6258,0.8931 110.6144,0.8940 110.6143,0.8939 110.6106,0.8909 110.6069,0.8833 110.5970,0.8711 110.5549,0.8514 110.5541,0.8515 110.5073,0.8573 110.4612,0.8797 110.4236,0.9095 110.3816,0.9666 110.3651,0.9814 110.3526,0.9865 110.3017,0.9977 110.3012,0.9976 110.2873,0.9953 110.2737,0.9911 110.2733,0.9912 110.2644,0.9943 110.2627,1.0147 110.2575,1.0391 110.2077,1.1117 110.1861,1.1542 110.1713,1.1745 110.1531,1.1839 110.0944,1.1916 110.0755,1.1986 110.0528,1.2155 110.0317,1.2536 110.0131,1.2705 109.9772,1.2877 109.9647,1.2986 109.9527,1.3197 109.9335,1.3785 109.9212,1.3948 109.9030,1.4038 109.8837,1.4038 109.8837,1.4038 109.8638,1.4015 109.8633,1.4015 109.8438,1.4033 109.8264,1.4176 109.8088,1.4600 109.8015,1.4668 109.8009,1.4664 109.7825,1.4563 109.7819,1.4565 109.7765,1.4579 109.7741,1.4859 109.7673,1.4965 109.6782,1.5729 109.6590,1.5972 109.6479,1.6176 109.6427,1.6372 109.6415,1.6830 109.6481,1.7619 109.6428,1.7810 109.6250,1.7878 109.5811,1.7880 109.5679,1.7926 109.5566,1.8022 109.5476,1.8143 109.5408,1.8266 109.5357,1.8390 109.5353,1.8465 109.5357,1.8539 109.5294,1.8900 109.5303,1.9052 109.5389,1.9177 109.5754,1.9486 109.5860,1.9609 109.6012,1.9831 109.6276,2.0297 109.6466,2.0831 109.6466,2.0866 109.7770,2.5428 109.9074,2.9989 109.9072,3.4014 109.9071,3.8038 109.9069,4.2062 109.9067,4.6086 109.9066,5.0111 109.4437,5.0111 108.9808,5.0111 108.5179,5.0111 108.0549,5.0111 107.5920,5.0111 107.1291,5.0111 106.6662,5.0111 106.2033,5.0111 105.7404,5.0111 105.2775,5.0111 104.8146,5.0111 104.8139,4.6137 104.8132,4.2163 104.8125,3.8189 104.8118,3.4216 104.8347,3.1704 104.8576,2.9192 104.9385,2.6473 105.0195,2.3754 105.0152,1.8917 104.7212,1.6153 104.4272,1.3390 104.2839,1.2579 104.1836,1.2562 104.0603,1.2723 104.0323,1.2698 103.8790,1.2075 103.7403,1.1302 103.6697,1.1788 103.6511,1.1957 103.6113,1.2119 103.5275,1.1350 103.4474,1.2144 103.3796,1.2499 103.3330,1.2610 103.3035,1.2718 103.2448,1.3000 103.2440,1.3009 103.2470,1.3449 103.2161,1.3807 102.8397,1.5631 102.7618,1.6272 102.5877,1.6834 102.3690,1.9080 102.0858,2.0346 101.8882,2.1849 101.8890,2.1835 101.8909,2.1806 101.8891,2.1819 101.6577,2.3552 101.6167,2.4113 101.4232,2.4914 101.3538,2.5460 101.2871,2.6242 101.1666,2.6815 101.1256,2.7181 101.0904,2.7847 101.0303,3.0177 101.0812,3.1921 100.9603,3.3271 100.8711,3.4784 100.5963,3.6967 100.5151,3.8074 100.4843,3.9819 100.3981,4.1684 100.3657,4.2828 100.3633,4.3612 100.3975,4.5865 100.3920,4.6786 100.2736,4.8032 100.1495,5.0338 100.0079,5.1537 99.9744,5.2396 99.9627,5.4020 99.9827,5.5303 100.0333,5.6086 100.1272,5.6665 100.1615,5.7852 100.1417,5.9399 100.0981,6.0535 100.0391,6.1017 100.0388,6.1012 99.9654,6.0125 99.8866,5.9692 99.8153,5.9495 99.8147,5.9496 99.7414,5.9610 99.6371,6.0345 99.5018,6.2354 99.4481,6.3042 99.4572,6.3065 99.5107,6.4821 99.5556,6.5033 99.6520,6.4753 99.7093,6.4690 99.7386,6.4740 99.7835,6.5276 99.8034,6.5344 99.8866,6.5017 99.9573,6.4740 99.9797,6.4572 100.0146,6.3962 100.0470,6.3843 100.0731,6.3843 100.0918,6.3930 100.1111,6.4117 100.1274,6.4420 100.1274,6.4421 100.1287,6.4421 100.1365,6.4577 100.1453,6.4796 100.1494,6.5045 100.1490,6.5132 100.1458,6.5306 100.1467,6.5395 100.1534,6.5500 100.1622,6.5575 100.1681,6.5661 100.1661,6.5803 100.1581,6.6035 100.1570,6.6206 100.1637,6.6611 100.1650,6.6837 100.1678,6.6951 100.1742,6.7034 100.1879,6.7078 100.1885,6.7080 100.1976,6.7025 100.2047,6.6939 100.2133,6.6892 100.2275,6.6889 100.2285,6.6889 100.2285,6.6908 100.2436,6.7003 100.2522,6.7010 100.2527,6.7011 100.2643,6.7000 100.2749,6.6963 100.2817,6.6889 100.3188,6.5767 100.3302,6.5578 100.3497,6.5406 100.3883,6.5221 100.4106,6.5153 100.4269,6.5139 100.4275,6.5139 100.4527,6.5168 100.4533,6.5169 100.4682,6.5132 100.5001,6.4903 100.5184,6.4819 100.5794,6.4643 100.6136,6.4492 100.6313,6.4449 100.6316,6.4448 100.6494,6.4472 100.7138,6.4930 100.7300,6.4932 100.7309,6.4932 100.7325,6.4870 100.7321,6.4647 100.7348,6.4564 100.7433,6.4501 100.7525,6.4488 100.7526,6.4488 100.7620,6.4489 100.7628,6.4490 100.7742,6.4473 100.7973,6.4339 100.8066,6.4148 100.8094,6.3673 100.8117,6.3558 100.8161,6.3448 100.8281,6.3246 100.8300,6.3163 100.8279,6.3071 100.8243,6.2977 100.8225,6.2888 100.8231,6.2599 100.8255,6.2515 100.8339,6.2368 100.8339,6.2367 100.8383,6.2372 100.8438,6.2439 100.8558,6.2478 100.8561,6.2479 100.8694,6.2462 100.9106,6.2359 100.9111,6.2358 100.9299,6.2406 100.9561,6.2686 100.9745,6.2725 100.9752,6.2726 101.0074,6.2464 101.0236,6.2411 101.0240,6.2410 101.0693,6.2507 101.0699,6.2509 101.0826,6.2465 101.0892,6.2335 101.0920,6.2132 101.0901,6.1888 101.0810,6.1803 101.0678,6.1743 101.0544,6.1576 101.0535,6.1346 101.0695,6.1196 101.0881,6.1056 101.0952,6.0858 101.0900,6.0466 101.0884,5.9897 101.0814,5.9570 101.0797,5.9382 101.0721,5.9198 101.0539,5.9131 101.0328,5.9089 101.0163,5.8983 100.9752,5.8153 100.9687,5.8041 100.9662,5.7924 100.9682,5.7810 100.9810,5.7610 100.9927,5.7375 100.9996,5.7295 101.0092,5.7257 101.0093,5.7257 101.0276,5.7265 101.0284,5.7266 101.0383,5.7246 101.0608,5.7096 101.0797,5.6878 101.0949,5.6627 101.1064,5.6376 101.1227,5.6301 101.1231,5.6299 101.1509,5.6386 101.1978,5.6668 101.2133,5.6815 101.2260,5.6992 101.2345,5.7194 101.2376,5.7417 101.2499,5.7870 101.2806,5.8030 101.3199,5.8101 101.3585,5.8284 101.3936,5.8511 101.5356,5.9060 101.5584,5.9112 101.5589,5.9113 101.5803,5.9063 101.5961,5.8854 101.6007,5.8741 101.6061,5.8661 101.6138,5.8613 101.6255,5.8594 101.6350,5.8556 101.6353,5.8473 101.6322,5.8374 101.6317,5.8284 101.6513,5.7826 101.6669,5.7656 101.6870,5.7613 101.6876,5.7612 101.6976,5.7663 101.7157,5.7829 101.7273,5.7863 101.7277,5.7865 101.7410,5.7824 101.7488,5.7724 101.7551,5.7603 101.7638,5.7495 101.7849,5.7382 101.7851,5.7381 101.8014,5.7399 101.8132,5.7525 101.8212,5.7737 101.8264,5.7798 101.8557,5.7977 101.8618,5.8065 101.8652,5.8154 101.8702,5.8239 101.8813,5.8310 101.9139,5.8593 101.9202,5.8976 101.9207,5.9403 101.9357,5.9817 101.9603,6.0116 102.0344,6.0684 102.0610,6.0948 102.0722,6.1267 102.0676,6.2048 102.0692,6.2181 102.0741,6.2576 102.0741,6.2576 102.5707,6.2575 103.0674,6.2575 103.5640,6.2574 104.0606,6.2573 104.5573,6.2572 105.0539,6.2572 105.5505,6.2571 106.0472,6.2570 106.5438,6.2570 107.0404,6.2569 107.5371,6.2568 108.0337,6.2567 108.5304,6.2567 109.0270,6.2566 109.5236,6.2565 110.0203,6.2564 110.5169,6.2564 111.0135,6.2563 111.5102,6.2562 112.0068,6.2562 112.5035,6.2561 112.5044,6.2561 112.5050,6.7497 112.5056,7.2434 112.5062,7.7371 112.5068,8.2307 112.5074,8.7244 112.5080,9.2181 112.5086,9.7117 112.5091,10.1652 112.5097,10.6187 112.5102,11.0721 112.5108,11.5256 112.5113,11.9790 112.5119,12.4325 112.5124,12.8860 112.5130,13.3394 112.5135,13.7929 112.5140,14.2463 112.5146,14.7117 112.5137,14.7117 112.5006,14.7117 112.5006,15.1704 112.5006,15.6291 112.5006,16.0878 112.5006,16.5465 112.5006,16.7979 112.5006,17.0493 112.5005,17.5317 112.5005,18.0142 112.5005,18.4966 112.5005,18.9790 112.5005,19.4615 112.5005,19.9439 112.5005,20.4263 112.5005,20.9088 112.5005,21.3912 112.4874,21.3910 112.4296,21.4123 112.3046,21.4900 112.2269,21.5008 112.1707,21.4849 112.0710,21.4200 111.8938,21.3622 111.4628,21.3012 111.2783,21.2297 111.1113,21.2543 110.8555,21.1496 110.8305,21.1192 110.8168,21.0709 110.8507,20.9786 110.8444,20.8598 110.8008,20.7853 110.6991,20.6793 110.7392,20.5195 110.7356,20.3888 110.9056,20.2363 111.0711,20.1537 111.1168,20.1177 111.1811,19.9584 111.2255,19.7967 111.2352,19.7341 111.2241,19.6799 111.1075,19.4514 110.9101,19.2750 110.8529,19.2008 110.7387,18.9145 110.7518,18.8243 110.5958,18.5443 110.5015,18.4738 110.3190,18.4347 110.1953,18.2256 110.0997,18.1803 109.9620,18.1593 109.8596,18.0548 109.7833,18.0079 109.6124,17.9649 109.4466,17.9796 109.3847,18.0020 109.2689,18.0881 109.1681,18.0761 109.0874,18.0890 108.8297,18.2105 108.5721,18.3320 108.5063,18.3892 108.4672,18.4683 108.4519,18.5560 108.4689,18.6742 108.4205,18.7593 108.4028,18.8262 108.4125,18.9453 108.3912,19.1253 108.3984,19.2652 108.4284,19.3723 108.5016,19.4865 108.5746,19.5486 108.7640,19.6583 108.8730,19.7464 108.9357,19.8134 108.9994,19.9450 109.1384,20.0787 109.2624,20.1290 109.4079,20.1290 109.5069,20.1851 109.6864,20.2353 109.6210,20.4371 109.5333,20.5701 109.5257,20.6884 109.4454,20.8453 109.4468,21.1158 109.4679,21.2130 109.4560,21.2403 109.3506,21.2406 109.2996,21.2200 109.2942,21.1663 109.3287,20.9901 109.3147,20.9290 109.2777,20.8830 109.2172,20.8432 109.0819,20.8126 109.0234,20.8230 108.9663,20.8515 108.8879,20.9446 108.8679,21.0158 108.8725,21.0895 108.9020,21.1602 108.9547,21.2254 108.8479,21.3421 108.8161,21.3959 108.6299,21.4007 108.4820,21.3550 108.3530,21.3331 108.2066,21.2833 108.1969,21.2768 108.1606,21.2525 108.1347,21.2756 108.0955,21.4523 108.0941,21.4564 108.0944,21.4578 108.0976,21.4610 108.0994,21.4639 108.1004,21.4671 108.1012,21.4701 108.0800,21.4932 108.0613,21.4962 108.0479,21.4932 108.0365,21.4882 108.0225,21.4857 108.0139,21.4924 107.9926,21.4857 107.9451,21.5308 107.9319,21.5342 107.8971,21.5694 107.8687,21.5892 107.8564,21.6003 107.8454,21.6175 107.8408,21.6299 107.8333,21.6394 107.8126,21.6478 107.7788,21.6560 107.7611,21.6582 107.7604,21.6582 107.7458,21.6575 107.7304,21.6520 107.6912,21.6247 107.6728,21.6176 107.6142,21.6056 107.6132,21.6056 107.5938,21.6056 107.5519,21.6108 107.5515,21.6108 107.5340,21.6087 107.5275,21.6033 107.5192,21.5874 107.5108,21.5818 107.5023,21.5815 107.5022,21.5816 107.4921,21.5841 107.4747,21.5906 107.4620,21.5964 107.4580,21.6315 107.4469,21.6469 107.4270,21.6521 107.4266,21.6519 107.4109,21.6454 107.3838,21.6189 107.3491,21.5994 107.3487,21.5997 107.3345,21.6125 107.3306,21.6160 107.3041,21.6887 107.2736,21.7183 107.2728,21.7182 107.2448,21.7152 107.2131,21.7052 107.2126,21.7054 107.1733,21.7151 107.0958,21.7790 107.0668,21.7958 107.0247,21.8041 107.0039,21.8106 106.9901,21.8243 106.9881,21.8448 106.9985,21.8608 107.0128,21.8756 107.0221,21.8923 107.0212,21.9129 107.0103,21.9274 106.9928,21.9354 106.9722,21.9358 106.9721,21.9358 106.9547,21.9290 106.9387,21.9200 106.9213,21.9170 106.9211,21.9171 106.8998,21.9278 106.8863,21.9433 106.8778,21.9573 106.8657,21.9681 106.8415,21.9736 106.8406,21.9736 106.8000,21.9726 106.7999,21.9726 106.7825,21.9750 106.7620,21.9851 106.7571,21.9895 106.7493,22.0000 106.7435,22.0039 106.7297,22.0083 106.7291,22.0082 106.7233,22.0070 106.6907,21.9729 106.6756,21.9622 106.6747,21.9622 106.6599,21.9628 106.6541,21.9689 106.6505,21.9776 106.6491,21.9870 106.6491,21.9955 106.6688,22.0427 106.6740,22.0661 106.6731,22.0925 106.6710,22.0966 106.6623,22.1066 106.6596,22.1119 106.6593,22.1201 106.6624,22.1363 106.6623,22.1436 106.6571,22.1551 106.6496,22.1651 106.6433,22.1761 106.6406,22.1909 106.6528,22.2056 106.6615,22.2134 106.6639,22.2233 106.6406,22.2967 106.6347,22.3094 106.6182,22.3228 106.5784,22.3246 106.5563,22.3320 106.5427,22.3451 106.5375,22.3605 106.5355,22.3975 106.5279,22.4278 106.5279,22.4383 106.5313,22.4493 106.5423,22.4643 106.5468,22.4725 106.5697,22.5746 106.5781,22.5953 106.5889,22.6078 106.6077,22.6099 106.6086,22.6100 106.6205,22.5973 106.6310,22.5801 106.6473,22.5688 106.6473,22.5688 106.6688,22.5691 106.6811,22.5794 106.6987,22.6309 106.7060,22.6461 106.7275,22.6773 106.7365,22.6954 106.7405,22.7268 106.7476,22.7443 106.7594,22.7542 106.7924,22.7721 106.7997,22.7844 106.7908,22.7972 106.7694,22.7992 106.7689,22.7992 106.7460,22.7972 106.7453,22.7972 106.7313,22.7976 106.7320,22.8001 106.7159,22.8261 106.6861,22.8482 106.6753,22.8615 106.6684,22.8675 106.6578,22.8700 106.6574,22.8698 106.6489,22.8670 106.6408,22.8534 106.6337,22.8496 106.6330,22.8497 106.6113,22.8529 106.6001,22.8650 106.5927,22.8809 106.5826,22.8953 106.5679,22.9038 106.5179,22.9154 106.5021,22.9217 106.4887,22.9254 106.4884,22.9252 106.4789,22.9196 106.4747,22.8971 106.4589,22.8890 106.3166,22.8538 106.2973,22.8511 106.2775,22.8510 106.2775,22.8510 106.2564,22.8547 106.2350,22.8639 106.2280,22.8756 106.2240,22.9124 106.2033,22.9470 106.1710,22.9660 106.1331,22.9750 106.0785,22.9810 106.0780,22.9810 106.0002,22.9754 105.9909,22.9706 105.9749,22.9399 105.9622,22.9324 105.9458,22.9277 105.9142,22.9244 105.9137,22.9244 105.9046,22.9255 105.8876,22.9298 105.8870,22.9297 105.8769,22.9283 105.8711,22.9231 105.8675,22.9151 105.8632,22.9078 105.8548,22.9046 105.8545,22.9049 105.8366,22.9172 105.7803,22.9761 105.7671,22.9952 105.7670,22.9952 105.7668,22.9953 105.7668,22.9955 105.7557,23.0057 105.7442,23.0108 105.7326,23.0142 105.7206,23.0196 105.7017,23.0378 105.6913,23.0440 105.6904,23.0439 105.6659,23.0434 105.6658,23.0434 105.6378,23.0513 105.5669,23.0541 105.5525,23.0597 105.5406,23.0755 105.5362,23.0941 105.5358,23.1363 105.5292,23.1555 105.5181,23.1677 105.4748,23.1945 105.4653,23.2060 105.4449,23.2451 105.4449,23.2452 105.4449,23.2452 105.4318,23.2678 105.4268,23.2732 105.4154,23.2785 105.4147,23.2784 105.4076,23.2775 105.4001,23.2749 105.3993,23.2749 105.3905,23.2754 105.3767,23.2815 105.3606,23.2916 105.3450,23.3042 105.3332,23.3180 105.3253,23.3367 105.3210,23.3543 105.3131,23.3658 105.2946,23.3663 105.2946,23.3663 105.2810,23.3588 105.2465,23.3302 105.2369,23.3198 105.2286,23.3006 105.2248,23.2817 105.2185,23.2654 105.2018,23.2540 105.1905,23.2522 105.1902,23.2523 105.1834,23.2544 105.1776,23.2578 105.1699,23.2594 105.1668,23.2606 105.1594,23.2658 105.1566,23.2668 105.1561,23.2667 105.1513,23.2648 105.1487,23.2609 105.1469,23.2567 105.1434,23.2537 105.0620,23.2325 105.0476,23.2268 105.0166,23.2068 104.9824,23.1904 104.9462,23.1598 104.9360,23.1543 104.9352,23.1544 104.9220,23.1558 104.8957,23.1703 104.8818,23.1717 104.8817,23.1716 104.8710,23.1635 104.8677,23.1495 104.8665,23.1335 104.8622,23.1196 104.8369,23.0998 104.8124,23.0962 104.7989,23.0856 104.8280,22.9543 104.8289,22.9342 104.8246,22.9241 104.7752,22.8962 104.7638,22.8847 104.7292,22.8391 104.7163,22.8271 104.7017,22.8182 104.6842,22.8122 104.6637,22.8109 104.6635,22.8110 104.6486,22.8154 104.6300,22.8208 104.6108,22.8230 104.6106,22.8229 104.6054,22.8202 104.5952,22.8090 104.5894,22.8069 104.5888,22.8070 104.5802,22.8089 104.5754,22.8123 104.5714,22.8163 104.5656,22.8200 104.5622,22.8244 104.5636,22.8298 104.5633,22.8344 104.5545,22.8360 104.5544,22.8359 104.5522,22.8328 104.5343,22.8144 104.4696,22.7649 104.4500,22.7452 104.3629,22.6925 104.3564,22.6886 104.3411,22.6864 104.3409,22.6865 104.3262,22.6925 104.3054,22.7047 104.2504,22.7283 104.2378,22.7421 104.2306,22.7619 104.2297,22.7834 104.2341,22.8048 104.2421,22.8244 104.2142,22.8250 104.2141,22.8250 104.1291,22.7968 104.1000,22.7946 104.0878,22.7916 104.0743,22.7827 104.0669,22.7740 104.0550,22.7538 104.0457,22.7452 104.0248,22.7192 104.0149,22.6910 104.0084,22.6302 104.0043,22.6150 103.9910,22.5853 103.9865,22.5703 103.9865,22.5545 103.9883,22.5402 103.9863,22.5272 103.9749,22.5153 103.9605,22.5071 103.9602,22.5075 103.9519,22.5165 103.9417,22.5247 103.9264,22.5282 103.9180,22.5333 103.9037,22.5586 103.8956,22.5692 103.8896,22.5717 103.8736,22.5736 103.8678,22.5754 103.8451,22.5993 103.8373,22.6028 103.8306,22.6092 103.8106,22.6387 103.8063,22.6474 103.7952,22.6594 103.7274,22.7163 103.6595,22.7932 103.6479,22.7990 103.6474,22.7988 103.6048,22.7760 103.5910,22.7680 103.5835,22.7558 103.5778,22.7408 103.5693,22.7250 103.5481,22.7007 103.5455,22.6910 103.5509,22.6487 103.5519,22.6408 103.5472,22.6314 103.5152,22.5874 103.5046,22.5814 103.5038,22.5815 103.4864,22.5841 103.4741,22.5916 103.4485,22.6183 103.4119,22.6747 103.4053,22.6888 103.4033,22.7065 103.4050,22.7239 103.4027,22.7378 103.3885,22.7452 103.3799,22.7568 103.3697,22.7671 103.3580,22.7760 103.3451,22.7830 103.3225,22.7904 103.3219,22.7903 103.3106,22.7879 103.2709,22.7233 103.2534,22.6786 103.2458,22.6687 103.2294,22.6558 103.1694,22.6265 103.1427,22.6070 103.1310,22.5780 103.1336,22.5698 103.1456,22.5558 103.1467,22.5456 103.1430,22.5378 103.0922,22.5051 103.0754,22.4982 103.0592,22.4955 103.0451,22.4865 103.0458,22.4729 103.0500,22.4568 103.0460,22.4405 103.0300,22.4302 103.0291,22.4302 103.0099,22.4303 102.9900,22.4376 102.9575,22.4597 102.9205,22.4692 102.9035,22.4772 102.8947,22.4874 102.8602,22.5505 102.8541,22.5684 102.8461,22.5852 102.8328,22.5997 102.8143,22.6087 102.7722,22.6178 102.7529,22.6253 102.6937,22.6705 102.6731,22.6784 102.6332,22.6850 102.6134,22.6916 102.6071,22.6967 102.5921,22.7126 102.5876,22.7161 102.5869,22.7159 102.5772,22.7138 102.5713,22.7071 102.5667,22.6995 102.5593,22.6949 102.5584,22.6950 102.5367,22.6958 102.5299,22.7078 102.5273,22.7260 102.5167,22.7452 102.4953,22.7604 102.4687,22.7686 102.4681,22.7685 102.4437,22.7652 102.4266,22.7453 102.4266,22.7452 102.4162,22.7098 102.4082,22.6934 102.3959,22.6805 102.3856,22.6777 102.3848,22.6778 102.3741,22.6784 102.3738,22.6783 102.3637,22.6774 102.3568,22.6699 102.3572,22.6587 102.3643,22.6514 102.3736,22.6458 102.3795,22.6391 102.3834,22.6308 102.3853,22.6289 102.3778,22.6156 102.2535,22.4955 102.2435,22.4772 102.2376,22.4434 102.2323,22.4263 102.2190,22.4107 102.2181,22.4108 102.2045,22.4125 102.1875,22.4211 102.1655,22.4255 102.1651,22.4254 102.1480,22.4211 102.1298,22.4109 102.1196,22.3975 102.1187,22.3975 102.1044,22.3975 102.1016,22.4058 102.1009,22.4149 102.0963,22.4231 102.0865,22.4291 102.0769,22.4324 102.0155,22.4461 101.9959,22.4474 101.9956,22.4474 101.9752,22.4451 101.9538,22.4369 101.9103,22.4359 101.8926,22.4297 101.8825,22.4122 101.8782,22.3919 101.8689,22.3788 101.8680,22.3790 101.8436,22.3833 101.8187,22.4063 101.7858,22.4722 101.7560,22.4955 101.7516,22.4960 101.7506,22.4960 101.7427,22.4960 101.7141,22.4915 101.6901,22.4789 101.6696,22.4623 101.6555,22.4461 101.6460,22.4242 101.6451,22.4040 101.6467,22.3845 101.6446,22.3647 101.6421,22.3633 101.6247,22.3466 101.6235,22.3424 101.6208,22.3264 101.6071,22.2848 101.6022,22.2770 101.5889,22.2714 101.5882,22.2715 101.5767,22.2731 101.5647,22.2768 101.5637,22.2768 101.5519,22.2767 101.5416,22.2715 101.5327,22.2634 101.5167,22.2454 101.5192,22.2282 101.5500,22.1935 101.5625,22.1761 101.5679,22.1493 101.5628,22.1301 101.5560,22.1124 101.5564,22.0903 101.5659,22.0695 101.5931,22.0281 101.6013,22.0075 101.6078,21.9676 101.6173,21.9536 101.6391,21.9409 101.6746,21.9314 101.6815,21.9226 101.6834,21.9148 101.6840,21.9071 101.6868,21.8986 101.7097,21.8696 101.7222,21.8444 101.7271,21.8373 101.7520,21.8161 101.7525,21.8064 101.7326,21.7505 101.7289,21.7327 101.7295,21.7175 101.7337,21.7114 101.7501,21.6981 101.7558,21.6898 101.7566,21.6800 101.7533,21.6591 101.7569,21.6487 101.7718,21.6388 101.7905,21.6340 101.8048,21.6259 101.8071,21.6060 101.7945,21.5882 101.7736,21.5825 101.7519,21.5797 101.7371,21.5709 101.7357,21.5544 101.7492,21.5145 101.7452,21.4956 101.7306,21.4742 101.7265,21.3754 101.7165,21.3382 101.7161,21.3211 101.7235,21.3042 101.7375,21.2923 101.7895,21.2742 101.8021,21.2671 101.8132,21.2581 101.8212,21.2473 101.8247,21.2345 101.8238,21.2241 101.8224,21.2211 101.8202,21.2160 101.8143,21.2096 101.8062,21.2045 101.7970,21.2029 101.7966,21.2030 101.7745,21.2074 101.7743,21.2072 101.7610,21.1960 101.7645,21.1847 101.7712,21.1704 101.7694,21.1604 101.7677,21.1506 101.7569,21.1433 101.7384,21.1376 101.7189,21.1345 101.7181,21.1345 101.7052,21.1351 101.6892,21.1458 101.6711,21.1771 101.6561,21.1892 101.6369,21.1895 101.6369,21.1894 101.5975,21.1734 101.5968,21.1735 101.5827,21.1757 101.5782,21.1852 101.5819,21.1947 101.5876,21.2042 101.5891,21.2133 101.5849,21.2244 101.5806,21.2276 101.5739,21.2282 101.5401,21.2389 101.5186,21.2426 101.4961,21.2428 101.4960,21.2428 101.3824,21.2225 101.3727,21.2191 101.3632,21.2158 101.3148,21.1848 101.2937,21.1761 101.2762,21.1741 101.2760,21.1742 101.2607,21.1795 101.2453,21.1929 101.2357,21.2063 101.2213,21.2337 101.2099,21.2455 101.2200,21.2825 101.2213,21.2963 101.2194,21.2999 101.2105,21.3087 101.2084,21.3148 101.2238,21.3351 101.2357,21.3637 101.2341,21.3717 101.2318,21.3718 101.2317,21.3718 101.2274,21.3709 101.2272,21.3710 101.2089,21.3835 101.1801,21.3982 101.1724,21.4034 101.1692,21.4245 101.1887,21.5059 101.1875,21.5353 101.1755,21.5517 101.1600,21.5527 101.1552,21.5680 101.1587,21.5862 101.1686,21.6002 101.1748,21.6119 101.1677,21.6233 101.1698,21.6379 101.1624,21.6584 101.1502,21.6768 101.1373,21.6847 101.1286,21.6952 101.1258,21.7442 101.1198,21.7598 101.0838,21.7667 101.0696,21.7620 101.0563,21.7545 101.0439,21.7454 100.9937,21.7114 100.9752,21.7042 100.8784,21.6773 100.8359,21.6575 100.7980,21.6261 100.7576,21.5698 100.7049,21.5164 100.6625,21.4955 100.6625,21.4955 100.6623,21.4953 100.6623,21.4953 100.6467,21.4799 100.6227,21.4691 100.5728,21.4551 100.5469,21.4530 100.4981,21.4618 100.4752,21.4568 100.4576,21.4550 100.4444,21.4635 100.4352,21.4784 100.4303,21.4954 100.4001,21.5189 100.3846,21.5278 100.3642,21.5318 100.3429,21.5304 100.3275,21.5243 100.3156,21.5130 100.3034,21.4955 100.3034,21.4955 100.3032,21.4953 100.3032,21.4953 100.2905,21.4831 100.2762,21.4752 100.2450,21.4645 100.2312,21.4568 100.1988,21.4332 100.1881,21.4279 100.1634,21.4364 100.1497,21.4549 100.1293,21.4824 100.1087,21.4955 100.0982,21.5083 100.0909,21.5289 100.0870,21.5509 100.0866,21.5676 100.0896,21.5818 100.0958,21.5988 100.1049,21.6156 100.1167,21.6295 100.1271,21.6349 100.1371,21.6368 100.1447,21.6400 100.1473,21.6492 100.1438,21.6549 100.1361,21.6623 100.1215,21.6737 100.0833,21.6845 99.9977,21.6861 99.9617,21.7048 99.9512,21.7212 99.9402,21.7770 99.9230,21.8123 99.9189,21.8292 99.9211,21.8520 99.9562,21.9246 99.9666,21.9630 99.9514,21.9954 99.9408,22.0059 99.9353,22.0189 99.9359,22.0325 99.9434,22.0455 99.8678,22.0579 99.8488,22.0550 99.8433,22.0470 99.8427,22.0271 99.8346,22.0195 99.8220,22.0178 99.8144,22.0230 99.8084,22.0310 99.8008,22.0375 99.7401,22.0668 99.7246,22.0706 99.7048,22.0612 99.6947,22.0469 99.6848,22.0390 99.6648,22.0487 99.6602,22.0546 99.6510,22.0719 99.6432,22.0799 99.6345,22.0848 99.5399,22.1067 99.5060,22.1034 99.4913,22.1043 99.4396,22.1242 99.4259,22.1224 99.3659,22.0989 99.3309,22.0956 99.2538,22.1028 99.2132,22.1124 99.1673,22.1321 99.1454,22.1535 99.1760,22.1687 99.1603,22.1847 99.1673,22.2046 99.2003,22.2453 99.2071,22.2613 99.2193,22.3100 99.2267,22.3212 99.2446,22.3412 99.2493,22.3537 99.2473,22.3659 99.2415,22.3730 99.2383,22.3801 99.2440,22.3932 99.2837,22.4119 99.3460,22.4728 99.3544,22.4841 99.3587,22.4955 99.3573,22.5062 99.3476,22.5231 99.3451,22.5333 99.3480,22.5534 99.3583,22.5871 99.3560,22.6085 99.3088,22.7196 99.3089,22.7452 99.3179,22.7541 99.3281,22.7605 99.3394,22.7649 99.3516,22.7681 99.3600,22.7749 99.3798,22.8132 99.4045,22.8411 99.4154,22.8569 99.4179,22.8743 99.4122,22.9192 99.4143,22.9307 99.4309,22.9367 99.4855,22.9103 99.5163,22.9088 99.5390,22.9264 99.5356,22.9493 99.4997,22.9952 99.4913,23.0120 99.4926,23.0282 99.4960,23.0435 99.4940,23.0574 99.4791,23.0658 99.4042,23.0683 99.3820,23.0816 99.3519,23.1193 99.3348,23.1296 99.3150,23.1265 99.3031,23.1126 99.2950,23.0968 99.2858,23.0882 99.2677,23.0839 99.2584,23.0792 99.2371,23.0623 99.2258,23.0569 99.2176,23.0574 99.2105,23.0615 99.2031,23.0673 99.2006,23.0738 99.2003,23.0923 99.1951,23.0958 99.1858,23.0948 99.1837,23.0952 99.1796,23.0964 99.1650,23.0977 99.1396,23.1052 99.1310,23.1062 99.0931,23.1015 99.0759,23.1017 99.0560,23.1096 99.0402,23.1271 99.0341,23.1464 99.0274,23.1604 99.0103,23.1622 98.9913,23.1600 98.9717,23.1622 98.9344,23.1722 98.8600,23.1794 98.8611,23.2123 98.9116,23.2976 98.8975,23.3233 98.8614,23.3224 98.8544,23.3249 98.8542,23.3350 98.8631,23.3406 98.8747,23.3446 98.8828,23.3497 98.8911,23.3679 98.8932,23.3869 98.8906,23.4068 98.8765,23.4464 98.8649,23.4666 98.8498,23.4804 98.8310,23.4800 98.8108,23.4741 98.8009,23.4807 98.7818,23.5329 98.7853,23.5470 98.7972,23.5579 98.8443,23.5840 98.8512,23.5906 98.8583,23.6043 98.8570,23.6100 98.8506,23.6147 98.8089,23.6758 98.8013,23.6927 98.8000,23.7432 98.7941,23.7585 98.7788,23.7693 98.7393,23.7756 98.7093,23.7847 98.6859,23.7848 98.6766,23.7874 98.6646,23.7969 98.6645,23.8031 98.6693,23.8087 98.6724,23.8167 98.6651,23.8904 98.6658,23.9034 98.6739,23.9283 98.6755,23.9369 98.6667,23.9532 98.6598,23.9611 98.6642,23.9695 98.6809,23.9763 98.7002,23.9816 98.7177,23.9884 98.7665,24.0271 98.8572,24.0838 98.8744,24.1145 98.8679,24.1433 98.8667,24.1457 98.8562,24.1390 98.8190,24.1290 98.7171,24.1213 98.6827,24.1069 98.6414,24.1008 98.6135,24.0875 98.5981,24.0831 98.5862,24.0757 98.5712,24.0821 98.5440,24.0940 98.5042,24.1213 98.4755,24.1278 98.4359,24.1303 98.3965,24.1281 98.3797,24.1224 98.3483,24.1049 98.3316,24.0995 98.2942,24.1001 98.2201,24.1174 98.1825,24.1187 98.1060,24.1015 97.8909,24.0226 97.8776,24.0144 97.8373,23.9718 97.8188,23.9582 97.8050,23.9545 97.7905,23.9531 97.7688,23.9465 97.7491,23.9341 97.6978,23.8871 97.6779,23.8787 97.6566,23.8725 97.6483,23.8685 97.6380,23.8636 97.6256,23.8467 97.6207,23.8660 97.6164,23.8751 97.6108,23.8831 97.5736,23.9076 97.5339,23.9237 97.5174,23.9428 97.7086,24.1253 97.7210,24.1474 97.7240,24.1713 97.7197,24.1815 97.7055,24.1992 97.7025,24.2109 97.7056,24.2217 97.7121,24.2285 97.7195,24.2340 97.7250,24.2415 97.7194,24.2777 97.6455,24.3024 97.6392,24.3281 97.6546,24.3387 97.6752,24.3408 97.6905,24.3465 97.6893,24.3677 97.6819,24.3778 97.6635,24.3901 97.6583,24.4020 97.6564,24.4121 97.6532,24.4227 97.6483,24.4323 97.6408,24.4393 97.6253,24.4423 97.6016,24.4419 97.5205,24.4308 97.5142,24.4386 97.5148,24.4617 97.5395,24.5973 97.5337,24.7233 97.5370,24.7450 97.5371,24.7451 97.6049,24.7864 97.6435,24.8168 97.6649,24.8298 97.6869,24.8335 97.7275,24.8263 97.7494,24.8265 97.7662,24.8347 97.7739,24.8547 97.7619,24.8703 97.7250,24.8972 97.7092,24.9273 97.7043,24.9604 97.7044,24.9648 97.7061,25.0288 97.7005,25.0650 97.7046,25.0739 97.7226,25.0793 97.7385,25.0905 97.7550,25.1136 97.7780,25.1586 97.8019,25.2376 97.8246,25.2616 97.8613,25.2441 97.8727,25.2277 97.8798,25.2136 97.8899,25.2056 97.9109,25.2076 97.9317,25.2185 97.9772,25.2723 97.9933,25.2825 98.0345,25.3013 98.0459,25.3119 98.0635,25.3543 98.0766,25.3761 98.0909,25.3859 98.1093,25.3889 98.1130,25.3962 98.1112,25.4104 98.1129,25.4485 98.1098,25.4582 98.1057,25.4670 98.1004,25.4933 98.1007,25.5000 98.1056,25.5068 98.1240,25.5222 98.1351,25.5346 98.1403,25.5502 98.1394,25.5990 98.1410,25.6115 98.1512,25.6131 98.2333,25.5866 98.2481,25.5792 98.2776,25.5524 98.2904,25.5504 98.3130,25.5575 98.3336,25.5670 98.3481,25.5778 98.3582,25.5928 98.3708,25.6368 98.3762,25.6493 98.4142,25.6921 98.4173,25.7002 98.4176,25.7126 98.4197,25.7242 98.4257,25.7308 98.4332,25.7361 98.4402,25.7436 98.4536,25.7780 98.4623,25.7947 98.4755,25.8058 98.4991,25.8307 98.5104,25.8381 98.5278,25.8388 98.5405,25.8337 98.5633,25.8164 98.5919,25.8064 98.6013,25.8017 98.6110,25.8006 98.6270,25.8065 98.6788,25.8433 98.6858,25.8531 98.6912,25.8656 98.6934,25.8790 98.6908,25.8916 98.6856,25.8976 98.6733,25.9018 98.6682,25.9058 98.6590,25.9250 98.6263,25.9700 98.6172,25.9794 98.6052,25.9825 98.5934,25.9807 98.5834,25.9823 98.5764,25.9951 98.5781,26.0173 98.5736,26.0356 98.5548,26.0711 98.5482,26.0883 98.5465,26.1056 98.5511,26.1208 98.5640,26.1312 98.6031,26.1400 98.6203,26.1457 98.6267,26.1443 98.6252,26.1085 98.6318,26.0969 98.6454,26.0979 98.6818,26.1250 98.6877,26.1332 98.6875,26.1541 98.6934,26.1600 98.7012,26.1653 98.7065,26.1749 98.7025,26.1912 98.6780,26.2393 98.6692,26.2482 98.6491,26.2448 98.6431,26.2545 98.6455,26.2716 98.6505,26.2906 98.6587,26.3116 98.6986,26.3541 98.7083,26.3711 98.7144,26.3894 98.7182,26.4087 98.7221,26.5389 98.7289,26.5726 98.7495,26.6060 98.7565,26.6250 98.7516,26.6461 98.7480,26.6557 98.7477,26.6644 98.7483,26.6727 98.7474,26.6811 98.7329,26.7135 98.7353,26.7343 98.7502,26.7714 98.7513,26.7920 98.7434,26.8104 98.7191,26.8425 98.7155,26.8620 98.7196,26.8727 98.7341,26.8879 98.7373,26.8983 98.7367,26.9073 98.7136,26.9951 98.7216,27.0140 98.7326,27.0311 98.7387,27.0487 98.7323,27.0688 98.7174,27.0825 98.7037,27.0868 98.6923,27.0924 98.6836,27.1101 98.6735,27.1756 98.6745,27.2079 98.6812,27.2370 98.7051,27.3042 98.7087,27.3372 98.6983,27.3689 98.6920,27.3732 98.6847,27.3736 98.6783,27.3761 98.6754,27.3866 98.6693,27.4752 98.6721,27.5162 98.6827,27.5565 98.6802,27.5773 98.6752,27.5861 98.6667,27.5971 98.6569,27.6068 98.6482,27.6117 98.6360,27.6111 98.6268,27.6056 98.6175,27.5984 98.6055,27.5927 98.5794,27.5917 98.5653,27.6035 98.5443,27.6425 98.5231,27.6563 98.4933,27.6434 98.4755,27.6572 98.4232,27.6809 98.4112,27.6843 98.4010,27.6757 98.3984,27.6568 98.3991,27.6198 98.3938,27.5872 98.3842,27.5558 98.3649,27.5322 98.3296,27.5229 98.2957,27.5366 98.2766,27.5701 98.2553,27.6481 98.2390,27.6802 98.2053,27.7273 98.2027,27.7366 98.2125,27.7603 98.2094,27.7662 98.2031,27.7713 98.1988,27.7806 98.1994,27.8004 98.2016,27.8136 98.1976,27.8232 98.1634,27.8428 98.1467,27.8607 98.1410,27.8786 98.1577,27.8892 98.1776,27.8981 98.1782,27.9129 98.1668,27.9297 98.1499,27.9445 98.1145,27.9617 98.1081,27.9731 98.1194,27.9947 98.1235,28.0154 98.1289,28.1055 98.1279,28.1243 98.1196,28.1408 98.0496,28.1996 98.0323,28.2083 97.9920,28.2140 97.9858,28.2242 97.9948,28.2525 97.9939,28.2689 97.9797,28.2806 97.9457,28.2988 97.8985,28.3553 97.8600,28.3701 97.7982,28.3439 97.7663,28.3524 97.7410,28.3826 97.7005,28.4880 97.6714,28.5113 97.6421,28.4984 97.6146,28.4820 97.5909,28.4947 97.5685,28.5255 97.5472,28.5385 97.5287,28.5295 97.5149,28.4947 97.5040,28.4777 97.4891,28.4419 97.4755,28.4262 97.4724,28.4150 97.4667,28.4067 97.4511,28.3919 97.4463,28.3830 97.4477,28.3740 97.4512,28.3649 97.4533,28.3555 97.4533,28.3177 97.4488,28.2976 97.4376,28.2864 97.4177,28.2861 97.4033,28.2883 97.3992,28.2889 97.3853,28.2848 97.3788,28.2636 97.3705,28.2535 97.3348,28.2353 97.3244,28.2175 97.2862,28.2357 97.2306,28.2746 97.2217,28.2834 97.2115,28.3081 97.2037,28.3116 97.1942,28.3114 97.1837,28.3150 97.1165,28.3666 97.0794,28.3751 97.0339,28.3570 96.9984,28.3371 96.9667,28.3305 96.9349,28.3366 96.8988,28.3547 96.8612,28.3650 96.7867,28.3611 96.7841,28.3610 96.7470,28.3773 96.7093,28.4176 96.6421,28.4587 96.6257,28.4619 96.5848,28.4607 96.5663,28.4577 96.5466,28.4500 96.5133,28.4288 96.4962,28.4215 96.4536,28.4208 96.4356,28.4152 96.4205,28.4038 96.4073,28.3868 96.3913,28.3550 96.3817,28.3515 96.3620,28.3601 96.3553,28.3664 96.3456,28.3820 96.3374,28.3875 96.3287,28.3881 96.2993,28.3823 96.2836,28.3875 96.2716,28.3975 96.2586,28.4056 96.2389,28.4055 96.2649,28.4244 96.3036,28.4450 96.3353,28.4681 96.3387,28.4947 96.3384,28.4949 96.3155,28.5312 96.3349,28.5497 96.3644,28.5644 96.3716,28.5894 96.3934,28.5845 96.4162,28.5939 96.4361,28.6112 96.4495,28.6303 96.4543,28.6533 96.4504,28.6689 96.4525,28.6800 96.5667,28.7283 96.5935,28.7579 96.5776,28.8085 96.5247,28.8644 96.5118,28.8855 96.5013,28.9292 96.4932,28.9480 96.4756,28.9621 96.4610,28.9633 96.4531,28.9704 96.4521,28.9814 96.4586,28.9946 96.4756,29.0371 96.4798,29.0433 96.4834,29.0502 96.4858,29.0575 96.4876,29.0646 96.4845,29.0647 96.4756,29.0633 96.3203,29.0248 96.2793,28.9949 96.2792,28.9948 96.2790,28.9947 96.2790,28.9946 96.2042,28.9190 96.1605,28.8976 96.1314,28.9225 96.1330,28.9457 96.1565,28.9804 96.1521,29.0031 96.1295,29.0460 96.1149,29.0642 96.0948,29.0739 96.1463,29.0866 96.1625,29.0949 96.1756,29.1088 96.1845,29.1238 96.1946,29.1369 96.2110,29.1458 96.3174,29.1719 96.3284,29.1804 96.3433,29.2106 96.3678,29.2442 96.3672,29.2572 96.3509,29.2742 96.3380,29.2797 96.3242,29.2750 96.3051,29.2612 96.2688,29.2417 96.2362,29.2412 96.2064,29.2569 96.1772,29.2865 96.1670,29.3032 96.1519,29.3541 96.1429,29.3685 96.1156,29.3997 96.1026,29.4106 96.0888,29.4261 96.0767,29.4450 96.0627,29.4595 96.0429,29.4611 96.0245,29.4528 95.9758,29.4182 95.9236,29.3943 95.9074,29.3912 95.8697,29.3922 95.8500,29.3881 95.7969,29.3529 95.7774,29.3455 95.7457,29.3404 95.7291,29.3332 95.7207,29.3256 95.7065,29.3063 95.6972,29.2988 95.6875,29.2969 95.6765,29.2974 95.6665,29.2962 95.6490,29.2753 95.6307,29.2641 95.5933,29.2497 95.5826,29.2475 95.5739,29.2473 95.5654,29.2456 95.5547,29.2390 95.5516,29.2303 95.5530,29.2201 95.5511,29.2125 95.5163,29.2094 95.5129,29.1975 95.5236,29.1612 95.5224,29.1379 95.5123,29.1318 95.4759,29.1368 95.4673,29.1227 95.4590,29.0847 95.4516,29.0669 95.4372,29.0501 95.4205,29.0396 95.4011,29.0339 95.3785,29.0319 95.3397,29.0344 95.3205,29.0390 95.2825,29.0527 95.2259,29.0594 95.2173,29.0650 95.2150,29.0731 95.2138,29.0819 95.2088,29.0896 95.2006,29.0942 95.1925,29.0968 95.1179,29.1081 95.1000,29.1138 95.0486,29.1408 94.9900,29.1540 94.9730,29.1601 94.9556,29.1691 94.9656,29.1501 94.9828,29.1331 94.9892,29.1243 94.9669,29.1302 94.8922,29.1605 94.8550,29.1700 94.8164,29.1689 94.7997,29.1664 94.7775,29.1667 94.7624,29.1747 94.7686,29.2139 94.7574,29.2305 94.7052,29.2847 94.6694,29.3066 94.6314,29.3195 94.6009,29.3166 94.5836,29.3029 94.5296,29.2312 94.5157,29.2211 94.4992,29.2152 94.4759,29.2108 94.4233,29.2105 94.3974,29.2071 94.3738,29.1963 94.3635,29.1853 94.3473,29.1591 94.3367,29.1496 94.3247,29.1460 94.2885,29.1479 94.2418,29.1254 94.1411,28.9948 94.1102,28.9695 94.0951,28.9656 94.0723,28.9678 94.0346,28.9762 94.0182,28.9730 94.0088,28.9563 94.0102,28.9375 94.0272,28.9006 94.0327,28.8823 94.0278,28.8642 94.0124,28.8530 93.9930,28.8446 93.9760,28.8350 93.9607,28.8369 93.9394,28.8367 93.9195,28.8332 93.9081,28.8253 93.9077,28.8175 93.9109,28.8118 93.9131,28.8061 93.9096,28.7982 93.9008,28.7953 93.8886,28.7951 93.8782,28.7924 93.8746,28.7820 93.8668,28.7753 93.8081,28.7591 93.7924,28.7510 93.7234,28.6966 93.7065,28.6919 93.6901,28.6991 93.6757,28.7030 93.6607,28.6935 93.6444,28.6802 93.6265,28.6724 93.6081,28.6722 93.5527,28.6789 93.4472,28.6719 93.3681,28.6538 93.3544,28.6526 93.3416,28.6535 93.3152,28.6589 93.3010,28.6596 93.2921,28.6549 93.2845,28.6478 93.2739,28.6413 93.2612,28.6388 93.2330,28.6379 93.2207,28.6350 93.2084,28.6275 93.2045,28.6198 93.2038,28.6099 93.2011,28.5962 93.1650,28.5228 93.1563,28.4949 93.1506,28.4615 93.1373,28.4245 93.1177,28.3906 93.0941,28.3666 93.0017,28.3087 92.9759,28.2823 92.9613,28.2702 92.9230,28.2586 92.9048,28.2497 92.8905,28.2358 92.8663,28.2052 92.8512,28.1919 92.8357,28.1835 92.8208,28.1793 92.8063,28.1780 92.7912,28.1789 92.7863,28.1833 92.7838,28.1909 92.7801,28.1959 92.7710,28.1922 92.7088,28.1554 92.6796,28.1331 92.6558,28.1058 92.6382,28.0720 92.6399,28.0575 92.6552,28.0521 92.6902,28.0483 92.7023,28.0378 92.7023,28.0252 92.6919,27.9950 92.6919,27.9949 92.6921,27.9949 92.6921,27.9949 92.6888,27.9679 92.6633,27.9391 92.6294,27.9158 92.6016,27.9049 92.5775,27.9010 92.5654,27.8952 92.5390,27.8692 92.5244,27.8600 92.4761,27.8466 92.4400,27.8233 92.4285,27.8212 92.4183,27.8289 92.4054,27.8538 92.3938,27.8560 92.3820,27.8425 92.3765,27.8211 92.3689,27.8038 92.3510,27.8025 92.3408,27.8156 92.3356,27.8313 92.3301,27.8329 92.3182,27.8037 92.3048,27.7862 92.2897,27.7931 92.2762,27.8117 92.2592,27.8482 92.2501,27.8626 92.2405,27.8653 92.2303,27.8492 92.2301,27.8394 92.2340,27.8303 92.2359,27.8212 92.2300,27.8107 92.2223,27.8074 92.2110,27.8063 92.1272,27.8127 92.1075,27.8109 92.0706,27.7940 92.0131,27.7413 91.9760,27.7266 91.9532,27.7248 91.9097,27.7319 91.9056,27.7317 91.8851,27.7308 91.8659,27.7300 91.8504,27.7353 91.8157,27.7545 91.7747,27.7638 91.6338,27.7594 91.6300,27.8078 91.6283,27.8298 91.6293,27.8527 91.6381,27.8772 91.6499,27.8972 91.6538,27.9167 91.6389,27.9397 91.6227,27.9507 91.6016,27.9593 91.5796,27.9647 91.5384,27.9694 91.4984,27.9841 91.4619,27.9844 91.4474,27.9864 91.4374,27.9894 91.4198,27.9947 91.3424,28.0306 91.3106,28.0564 91.2911,28.0914 91.2707,28.0729 91.2471,28.0715 91.2216,28.0749 91.1956,28.0706 91.1768,28.0575 91.1347,28.0141 91.1206,27.9949 91.1204,27.9948 91.1204,27.9947 91.0935,27.9717 91.0529,27.9628 91.0098,27.9668 90.9761,27.9821 90.9615,27.9947 90.9105,28.0327 90.8519,28.0440 90.7897,28.0475 90.7562,28.0552 90.7278,28.0617 90.6849,28.0871 90.6684,28.0903 90.6520,28.0870 90.6228,28.0730 90.5983,28.0706 90.5762,28.0658 90.5110,28.0741 90.4935,28.0744 90.4762,28.0723 90.4418,28.0675 90.4362,28.0675 90.4105,28.0678 90.3934,28.0680 90.3493,28.0769 90.3273,28.0971 90.3373,28.1370 90.3624,28.1785 90.3750,28.2176 90.3476,28.2502 90.3305,28.2558 90.2924,28.2614 90.2215,28.2824 90.0520,28.3106 89.9914,28.3206 89.9725,28.3180 89.9535,28.3082 89.9391,28.2974 89.9233,28.2894 89.8996,28.2877 89.8897,28.2916 89.8823,28.2975 89.8746,28.3006 89.8639,28.2958 89.8550,28.2873 89.8396,28.2679 89.8307,28.2592 89.7970,28.2402 89.7818,28.2288 89.7746,28.2128 89.7568,28.1844 89.7188,28.1691 89.5988,28.1498 89.5804,28.1446 89.5624,28.1346 89.5160,28.0819 89.4963,28.0680 89.4763,28.0613 89.4598,28.0478 89.4455,28.0312 89.4221,27.9947 89.4219,27.9947 89.4183,27.9887 89.3711,27.9094 89.3370,27.8691 89.3004,27.8442 89.2597,27.8276 89.2259,27.8078 89.1993,27.7801 89.1833,27.7491 89.1442,27.6737 89.1073,27.6241 89.1050,27.6184 89.1028,27.6128 89.1028,27.6020 89.1080,27.5797 89.1077,27.5706 89.0850,27.5425 89.0483,27.5248 89.0084,27.5113 88.9763,27.4957 88.9753,27.4948 88.9576,27.4785 88.9442,27.4598 88.9353,27.4386 88.9237,27.3887 88.9011,27.3413 88.8933,27.3155 88.8656,27.3324 88.8530,27.3424 88.8318,27.3673 88.8208,27.3736 88.8092,27.3784 88.7963,27.3859 88.7745,27.4085 88.7607,27.4351 88.7553,27.4642 88.7581,27.4950 88.7585,27.5114 88.7426,27.5317 88.7420,27.5457 88.7491,27.5601 88.7683,27.5862 88.7840,27.6220 88.8066,27.6551 88.8548,27.8437 88.8560,27.8592 88.8525,27.8772 88.8437,27.8924 88.8199,27.9152 88.8116,27.9279 88.8107,27.9445 88.8206,27.9773 88.8187,27.9947 88.8187,27.9949 88.8185,27.9949 88.8039,28.0110 88.7811,28.0283 88.7366,28.0553 88.7111,28.0620 88.6530,28.0694 88.6326,28.0834 88.6114,28.1058 88.5950,28.1066 88.5538,28.0781 88.5318,28.0590 88.5181,28.0396 88.5030,28.0289 88.4764,28.0362 88.4567,28.0315 88.4009,27.9949 88.4009,27.9947 88.4008,27.9947 88.4007,27.9947 88.3797,27.9826 88.1988,27.9583 88.1758,27.9498 88.1639,27.9469 88.1521,27.9472 88.1276,27.9504 88.1167,27.9473 88.1009,27.9283 88.0984,27.9040 88.1058,27.8797 88.1192,27.8609 88.0967,27.8653 88.0537,27.8865 88.0309,27.8933 88.0191,27.8921 87.9928,27.8826 87.9794,27.8805 87.9673,27.8827 87.9462,27.8923 87.9355,27.8953 87.8571,27.8986 87.8376,27.9083 87.8268,27.9066 87.8151,27.8910 87.7996,27.8635 87.7808,27.8394 87.7573,27.8204 87.7278,27.8078 87.7014,27.8056 87.6795,27.8134 87.6609,27.8199 87.6370,27.8237 87.6220,27.8195 87.5909,27.8046 87.5743,27.8050 87.5660,27.8109 87.5608,27.8191 87.5569,27.8271 87.5523,27.8319 87.5325,27.8368 87.5155,27.8352 87.4765,27.8267 87.3877,27.8044 87.3701,27.8039 87.3701,27.8191 87.3816,27.8358 87.3863,27.8494 87.3648,27.8553 87.3368,27.8464 87.3149,27.8286 87.2915,27.8161 87.2338,27.8297 87.1829,27.8245 87.1567,27.8258 87.1175,27.8446 87.0630,27.9084 87.0315,27.9381 87.0066,27.9515 86.9897,27.9525 86.9830,27.9507 86.9712,27.9474 86.9413,27.9431 86.9157,27.9451 86.8940,27.9542 86.8779,27.9706 86.8691,27.9947 86.8691,27.9949 86.8414,28.0148 86.7709,28.0121 86.7408,28.0215 86.7332,28.0350 86.7369,28.0649 86.7327,28.0769 86.7186,28.0883 86.7006,28.0988 86.6810,28.1057 86.6629,28.1068 86.6504,28.1012 86.6281,28.0835 86.6133,28.0803 86.5978,28.0865 86.5841,28.0980 86.5705,28.1066 86.5545,28.1042 86.5451,28.0930 86.5422,28.0782 86.5417,28.0622 86.5393,28.0472 86.5319,28.0337 86.5232,28.0237 86.5171,28.0122 86.5174,27.9947 86.5177,27.9714 86.5177,27.9714 86.5114,27.9524 86.4979,27.9379 86.4764,27.9276 86.4398,27.9109 86.4262,27.9099 86.4067,27.9170 86.3729,27.9420 86.3639,27.9461 86.3546,27.9448 86.3466,27.9409 86.3385,27.9380 86.3287,27.9397 86.3192,27.9458 86.2956,27.9724 86.2790,27.9837 86.2600,27.9876 86.2395,27.9896 86.2193,27.9947 86.2189,27.9949 86.2187,27.9950 86.2040,28.0026 86.1970,28.0146 86.1901,28.0436 86.1828,28.0549 86.1754,28.0624 86.1732,28.0718 86.1817,28.0888 86.1881,28.1087 86.1870,28.1335 86.1770,28.1530 86.1569,28.1565 86.0697,28.0768 86.0711,28.0667 86.0825,28.0517 86.0857,28.0439 86.0849,28.0385 86.0805,28.0216 86.0805,28.0133 86.0786,28.0069 86.0801,28.0011 86.0902,27.9949 86.0902,27.9949 86.0904,27.9949 86.0904,27.9947 86.0991,27.9856 86.0990,27.9775 86.0960,27.9689 86.0966,27.9579 86.1015,27.9502 86.1081,27.9442 86.1132,27.9373 86.1138,27.9268 86.1081,27.9228 86.0766,27.8948 86.0627,27.8890 86.0556,27.8880 86.0524,27.8875 86.0274,27.8899 85.9812,27.8852 85.9636,27.8914 85.9522,27.9162 85.9528,27.9368 85.9572,27.9569 85.9575,27.9762 85.9449,27.9947 85.9099,28.0224 85.8993,28.0360 85.8914,28.0592 85.8908,28.0713 85.8920,28.0809 85.8901,28.0903 85.8727,28.1109 85.8680,28.1329 85.8643,28.1433 85.8492,28.1589 85.8278,28.1705 85.7837,28.1881 85.7739,28.1938 85.7576,28.2032 85.7354,28.2215 85.7165,28.2434 85.7007,28.2691 85.6990,28.3134 85.6939,28.3352 85.6801,28.3329 85.6769,28.3247 85.6771,28.3151 85.6760,28.3064 85.6691,28.3005 85.6479,28.2937 85.6400,28.2879 85.6128,28.2511 85.5999,28.2508 85.5865,28.2632 85.5663,28.2754 85.5446,28.2804 85.5216,28.2829 85.4985,28.2826 85.4766,28.2791 85.4476,28.2922 85.4325,28.2971 85.4162,28.2964 85.4023,28.2888 85.3788,28.2660 85.3635,28.2597 85.3463,28.2612 85.3358,28.2687 85.3267,28.2774 85.3136,28.2828 85.3020,28.2811 85.2741,28.2698 85.2605,28.2669 85.2444,28.2679 85.2249,28.2717 85.2067,28.2783 85.1745,28.3043 85.1555,28.3009 85.1351,28.2920 85.1104,28.2923 85.0883,28.3041 85.0812,28.3188 85.0866,28.3615 85.0866,28.3810 85.0785,28.4357 85.0846,28.4455 85.1104,28.4593 85.1165,28.4727 85.1166,28.4915 85.1182,28.4973 85.1241,28.5046 85.1413,28.5109 85.1486,28.5158 85.1547,28.5249 85.1579,28.5331 85.1690,28.5832 85.1619,28.5950 85.1128,28.6088 85.0760,28.6317 85.0559,28.6387 85.0331,28.6341 85.0262,28.6284 85.0197,28.6199 85.0101,28.6025 85.0034,28.5944 84.9950,28.5908 84.9857,28.5886 84.9559,28.5743 84.9499,28.5683 84.9374,28.5448 84.9294,28.5385 84.9197,28.5357 84.9088,28.5370 84.8924,28.5418 84.8802,28.5436 84.8249,28.5405 84.8129,28.5420 84.8001,28.5466 84.7827,28.5589 84.7566,28.5854 84.7376,28.5942 84.6918,28.5961 84.6787,28.6044 84.6839,28.6508 84.6721,28.6589 84.6532,28.6624 84.6336,28.6688 84.6268,28.6761 84.6172,28.6937 84.6082,28.6982 84.5528,28.7064 84.5329,28.7127 84.5166,28.7214 84.4995,28.7279 84.4767,28.7273 84.4518,28.7339 84.4388,28.7533 84.4237,28.7992 84.4153,28.8083 84.3940,28.8243 84.3775,28.8488 84.3673,28.8567 84.3550,28.8613 84.2869,28.8737 84.2361,28.9000 84.2262,28.9141 84.2077,28.9407 84.2324,29.0260 84.2215,29.0389 84.1992,29.0453 84.1764,29.0574 84.1707,29.0889 84.1672,29.0985 84.1611,29.1055 84.1389,29.1247 84.1332,29.1438 84.1427,29.1603 84.1562,29.1759 84.1626,29.1925 84.1564,29.2066 84.1429,29.2083 84.1270,29.2063 84.1133,29.2091 84.1063,29.2199 84.1001,29.2470 84.0907,29.2566 84.0730,29.2570 84.0540,29.2504 84.0362,29.2476 84.0225,29.2598 84.0135,29.2702 84.0018,29.2725 83.9892,29.2695 83.9768,29.2637 83.9742,29.2770 83.9682,29.2847 83.9589,29.2890 83.9465,29.2918 83.9341,29.2918 83.9153,29.2894 83.8844,29.2820 83.8783,29.2768 83.8698,29.2634 83.8626,29.2602 83.8388,29.2540 83.7942,29.2348 83.7716,29.2322 83.7463,29.2345 83.7207,29.2336 83.6964,29.2262 83.6760,29.2088 83.6687,29.1923 83.6644,29.1748 83.6570,29.1608 83.6559,29.1604 83.6402,29.1548 83.6254,29.1555 83.5848,29.1621 83.5730,29.1684 83.5623,29.1762 83.5369,29.1792 83.5247,29.1836 83.5180,29.1917 83.5155,29.2018 83.5135,29.2235 83.5039,29.2610 83.4943,29.2761 83.4768,29.2869 83.4492,29.2968 83.4382,29.3052 83.4291,29.3335 83.4187,29.3409 83.4060,29.3465 83.3941,29.3562 83.3892,29.3702 83.3904,29.3824 83.3882,29.3935 83.3580,29.4154 83.3562,29.4280 83.3587,29.4428 83.3562,29.4607 83.3289,29.4850 83.2649,29.4730 83.2481,29.4947 83.2497,29.5066 83.2550,29.5133 83.2609,29.5188 83.2643,29.5271 83.2618,29.5420 83.2535,29.5552 83.2303,29.5759 83.2228,29.5798 83.2059,29.5849 83.1981,29.5891 83.1954,29.5936 83.1918,29.6069 83.1882,29.6121 83.1745,29.6213 83.1630,29.6252 83.1510,29.6256 83.1276,29.6234 83.1012,29.6177 83.0943,29.6151 83.0894,29.6044 83.0865,29.5904 83.0805,29.5796 83.0659,29.5788 83.0554,29.5861 83.0419,29.6103 83.0338,29.6205 82.9768,29.6640 82.9653,29.6659 82.9431,29.6629 82.9329,29.6642 82.9247,29.6697 82.9101,29.6846 82.9007,29.6884 82.8810,29.6811 82.8584,29.6662 82.8375,29.6598 82.8233,29.6780 82.8165,29.6901 82.8061,29.6960 82.7940,29.6995 82.7820,29.7051 82.7711,29.7142 82.7525,29.7393 82.6919,29.7807 82.6827,29.7977 82.6856,29.8097 82.6901,29.8196 82.6899,29.8277 82.6783,29.8344 82.6679,29.8350 82.6474,29.8293 82.6368,29.8290 82.6195,29.8398 82.5428,29.9232 82.5252,29.9324 82.4768,29.9455 82.4580,29.9541 82.4399,29.9658 82.4238,29.9797 82.4107,29.9946 82.3954,30.0031 82.3801,30.0032 82.3647,30.0012 82.3483,30.0034 82.3400,30.0092 82.3281,30.0257 82.3198,30.0318 82.2975,30.0368 82.2769,30.0369 82.2567,30.0397 82.2116,30.0644 82.1931,30.0615 82.1752,30.0555 82.1548,30.0582 82.1455,30.0694 82.1362,30.0897 82.1297,30.1108 82.1285,30.1244 82.1519,30.1622 82.1566,30.1814 82.1413,30.1940 82.1152,30.2022 82.0968,30.2135 82.0859,30.2308 82.0831,30.2573 82.0942,30.3147 82.0897,30.3301 82.0742,30.3372 82.0508,30.3392 82.0086,30.3368 81.9991,30.3341 81.9894,30.3298 81.9798,30.3268 81.9700,30.3283 81.9631,30.3337 81.9511,30.3484 81.9422,30.3540 81.9224,30.3574 81.8881,30.3550 81.8453,30.3712 81.8237,30.3682 81.8024,30.3613 81.7800,30.3580 81.7583,30.3629 81.6505,30.4055 81.6367,30.4110 81.6150,30.4169 81.5925,30.4143 81.5860,30.4081 81.5829,30.3994 81.5777,30.3910 81.5642,30.3856 81.5452,30.3826 81.5378,30.3786 81.5329,30.3703 81.5216,30.3319 81.5103,30.3284 81.4840,30.3319 81.4638,30.3414 81.4271,30.3725 81.4084,30.3792 81.3885,30.3739 81.3858,30.3609 81.3882,30.3451 81.3831,30.3313 81.3725,30.3169 81.3690,30.3010 81.3700,30.2661 81.3715,30.2573 81.3779,30.2412 81.3788,30.2326 81.3753,30.2231 81.3628,30.2048 81.3582,30.1736 81.3510,30.1572 81.3392,30.1435 81.3234,30.1338 81.3105,30.1321 81.2942,30.1328 81.2787,30.1319 81.2679,30.1251 81.2673,30.1177 81.2755,30.1022 81.2769,30.0954 81.2730,30.0799 81.2689,30.0721 81.2678,30.0699 81.2580,30.0635 81.2405,30.0588 81.2267,30.0505 81.2282,30.0225 81.2178,30.0082 81.1955,30.0045 81.1491,30.0232 81.1255,30.0228 81.0987,30.0169 81.0858,30.0262 81.0752,30.0719 81.0676,30.0872 81.0446,30.1202 81.0319,30.1527 81.0204,30.1723 81.0075,30.1889 81.0012,30.1938 81.0023,30.1989 81.0043,30.2127 80.9972,30.2269 80.9770,30.2552 80.9447,30.2701 80.8679,30.2885 80.7826,30.3210 80.7681,30.3314 80.7559,30.3458 80.7363,30.3782 80.7240,30.3920 80.6957,30.4117 80.5973,30.4598 80.5762,30.4663 80.5609,30.4651 80.5460,30.4610 80.5261,30.4586 80.5092,30.4623 80.4764,30.4805 80.4259,30.4978 80.3268,30.5465 80.2538,30.5650 80.2172,30.5668 80.1808,30.5595 80.1894,30.5770 80.1988,30.5914 80.2043,30.6063 80.2008,30.6259 80.1915,30.6380 80.1782,30.6499 80.1679,30.6619 80.1676,30.6744 80.1739,30.6792 80.1830,30.6800 80.1927,30.6797 80.2008,30.6807 80.2080,30.6861 80.2324,30.7249 80.2255,30.7341 80.1970,30.7481 80.1702,30.7853 80.1581,30.7932 80.1416,30.7932 80.1102,30.7781 80.0931,30.7745 80.0635,30.7848 80.0454,30.8067 80.0296,30.8308 80.0065,30.8473 79.9358,30.8725 79.9041,30.8902 79.8814,30.9128 79.8638,30.9415 79.8513,30.9545 79.8345,30.9615 79.7616,30.9772 79.7400,30.9792 79.6895,30.9674 79.6491,30.9658 79.6313,30.9625 79.5904,30.9402 79.5788,30.9384 79.5669,30.9425 79.5452,30.9474 79.5306,30.9536 79.5136,30.9662 79.4986,30.9812 79.4892,30.9945 79.4878,31.0002 79.4852,31.0054 79.4817,31.0100 79.4774,31.0140 79.4626,31.0211 79.4473,31.0238 79.4317,31.0232 79.4154,31.0204 79.4025,31.0236 79.3959,31.0367 79.3893,31.0695 79.3733,31.0941 79.3492,31.1054 79.3220,31.1123 79.2966,31.1241 79.2832,31.1382 79.2760,31.1542 79.2732,31.1719 79.2728,31.1910 79.2670,31.2123 79.2531,31.2197 79.2359,31.2234 79.2206,31.2337 79.2165,31.2437 79.2180,31.2525 79.2205,31.2608 79.2200,31.2695 79.2143,31.2769 79.1989,31.2873 79.1951,31.2954 79.1958,31.3062 79.1985,31.3156 79.1994,31.3249 79.1947,31.3353 79.1877,31.3395 79.1688,31.3414 79.1609,31.3445 79.1505,31.3593 79.1463,31.3748 79.1401,31.3886 79.1065,31.4062 79.0787,31.4272 79.0643,31.4336 79.0156,31.4255 78.9966,31.3868 78.9898,31.3433 78.9771,31.3200 78.9605,31.3251 78.9357,31.3473 78.9191,31.3544 78.9022,31.3237 78.8913,31.3096 78.8783,31.2982 78.8629,31.2915 78.8496,31.2909 78.8229,31.2937 78.7970,31.2881 78.7854,31.2883 78.7541,31.3020 78.7460,31.3081 78.7418,31.3177 78.7394,31.3350 78.7465,31.3735 78.7610,31.4120 78.7635,31.4451 78.7340,31.4677 78.6963,31.4881 78.7005,31.5100 78.7979,31.5788 78.8150,31.5950 78.8198,31.6074 78.7963,31.6338 78.7591,31.6666 78.7408,31.6660 78.7323,31.6680 78.7250,31.6733 78.7194,31.6806 78.7114,31.6982 78.6990,31.7110 78.6942,31.7185 78.6935,31.7284 78.6961,31.7380 78.6965,31.7467 78.6718,31.7705 78.6750,31.7869 78.7013,31.8217 78.7076,31.8408 78.7151,31.8830 78.7211,31.9029 78.7429,31.9453 78.7455,31.9642 78.7348,31.9847 78.7231,31.9946 78.6793,32.0168 78.6502,32.0364 78.5528,32.1504 78.5359,32.1813 78.5140,32.2076 78.4774,32.2244 78.4589,32.2297 78.4573,32.2421 78.4623,32.2602 78.4637,32.2818 78.4398,32.3733 78.4369,32.3780 78.4355,32.3838 78.4373,32.3962 78.4424,32.4049 78.4491,32.4107 78.4531,32.4168 78.4497,32.4268 78.4101,32.4766 78.3819,32.5280 78.3858,32.5475 78.4091,32.5584 78.4485,32.5663 78.5908,32.5699 78.6311,32.5780 78.6487,32.5860 78.6658,32.5990 78.6954,32.6297 78.7142,32.6375 78.7378,32.6298 78.7519,32.6128 78.7501,32.5959 78.7416,32.5787 78.7359,32.5606 78.7379,32.5458 78.7557,32.4938 78.7724,32.4617 78.8566,32.4005 78.8825,32.3763 78.9122,32.3547 78.9444,32.3464 78.9771,32.3616 78.9908,32.3641 79.0157,32.3740 79.0291,32.3771 79.0406,32.3760 79.0673,32.3701 79.0763,32.3708 79.0927,32.3906 79.1039,32.4499 79.1139,32.4724 79.1338,32.4855 79.1624,32.4965 79.1921,32.5043 79.2162,32.5079 79.2366,32.5043 79.2571,32.4959 79.2770,32.4902 79.2953,32.4946 79.3377,32.5357 79.4357,32.6024 79.4774,32.6454 79.4967,32.6782 79.5060,32.7142 79.5009,32.7468 79.4774,32.7698 79.4497,32.7956 79.4398,32.8246 79.4329,32.8554 79.4137,32.8865 79.3552,32.9306 79.3352,32.9568 79.3345,32.9943 79.3407,33.0133 79.3452,33.0659 79.3523,33.0849 79.3741,33.1121 79.3828,33.1273 79.3796,33.1643 79.3458,33.1793 79.2654,33.1820 79.2306,33.1922 79.1546,33.2269 79.1232,33.2289 79.0884,33.2156 79.0799,33.2212 79.0781,33.2447 79.0738,33.2636 79.0612,33.2768 79.0442,33.2859 79.0271,33.2926 78.9901,33.3020 78.9742,33.3096 78.9186,33.3863 78.8252,33.4611 78.8019,33.4942 78.7823,33.5528 78.7950,33.7439 78.7882,33.8084 78.7713,33.8724 78.7221,33.9944 78.7311,34.0793 78.8070,34.1230 78.9042,34.1581 78.9771,34.2172 78.9864,34.2399 78.9894,34.2631 78.9863,34.2864 78.9771,34.3092 78.9521,34.3492 78.9231,34.3723 78.8868,34.3858 78.8402,34.3969 78.8027,34.4150 78.7516,34.4713 78.6655,34.5264 78.6083,34.5465 78.5750,34.5512 78.3804,34.5787 78.3363,34.5944 78.2970,34.6247 78.2741,34.6589 78.2123,34.8483 78.2034,34.8657 78.1631,34.9088 78.1491,34.9431 78.1402,35.0189 78.1310,35.0554 78.0374,35.1942 78.0021,35.2689 78.0108,35.3475 78.0390,35.3981 78.0566,35.4529 78.0452,35.4916 77.9868,35.4942 77.9588,35.4821 77.9136,35.4410 77.8841,35.4311 77.8580,35.4366 77.8352,35.4522 77.8163,35.4733 77.8013,35.4954 77.7745,35.4990 77.7739,35.4989 77.7613,35.4981 77.7484,35.4943 77.7177,35.4754 77.6905,35.4630 77.6902,35.4630 77.6615,35.4584 77.5130,35.4788 77.4773,35.4775 77.4136,35.4698 77.3845,35.4724 77.3528,35.4864 77.3062,35.5181 77.2818,35.5283 77.2517,35.5310 77.1782,35.5235 77.1421,35.5257 77.1061,35.5383 77.0931,35.5482 77.0718,35.5713 77.0589,35.5805 77.0398,35.5853 77.0183,35.5850 76.9773,35.5790 76.9365,35.5800 76.9158,35.5835 76.8972,35.5899 76.8814,35.6010 76.8577,35.6289 76.8438,35.6416 76.8254,35.6482 76.7836,35.6460 76.7786,35.6461 76.7644,35.6471 76.7464,35.6550 76.7339,35.6666 76.7100,35.6940 76.6776,35.7138 76.6099,35.7343 76.6052,35.7357 76.5717,35.7513 76.5521,35.7840 76.5662,35.8655 76.5564,35.8979 76.5381,35.9025 76.5379,35.9023 76.5011,35.8715 76.4775,35.8653 76.4549,35.8648 76.4439,35.8633 76.4330,35.8605 76.4234,35.8543 76.4113,35.8368 76.4041,35.8310 76.3851,35.8282 76.3846,35.8283 76.3674,35.8309 76.3498,35.8310 76.3498,35.8310 76.3129,35.8096 76.2975,35.8095 76.2975,35.8095 76.2815,35.8142 76.2613,35.8178 76.2607,35.8178 76.2381,35.8155 76.1908,35.8050 76.1900,35.8050 76.1670,35.8062 76.1391,35.8267 76.1287,35.8621 76.1247,35.9035 76.1156,35.9418 76.0909,35.9781 76.0624,35.9916 75.9853,35.9956 75.9540,36.0073 75.9233,36.0317 75.9009,36.0635 75.8953,36.0974 75.9024,36.1136 75.9155,36.1239 75.9651,36.1498 75.9725,36.1550 75.9775,36.1628 75.9784,36.1738 75.9701,36.1917 75.9710,36.2023 75.9844,36.2154 76.0025,36.2221 76.0154,36.2304 76.0129,36.2481 76.0026,36.2615 75.9775,36.2870 75.9698,36.3020 75.9696,36.3418 75.9884,36.4212 75.9775,36.4626 75.8757,36.6195 75.8507,36.6447 75.7915,36.6878 75.7297,36.7232 75.6507,36.7540 75.5715,36.7667 75.5711,36.7666 75.5089,36.7476 75.5028,36.7380 75.4998,36.7276 75.4935,36.7207 75.4926,36.7207 75.4329,36.7229 75.4115,36.7473 75.4043,36.7848 75.4024,36.8259 75.3955,36.8643 75.3789,36.8943 75.3522,36.9158 75.3144,36.9288 75.1961,36.9489 75.1622,36.9642 75.1338,36.9847 75.1195,36.9912 75.1011,36.9941 75.1005,36.9941 75.0154,36.9845 74.9778,36.9843 74.9433,36.9770 74.9259,36.9709 74.9114,36.9626 74.9017,36.9499 74.8929,36.9210 74.8867,36.9114 74.8733,36.9071 74.8732,36.9074 74.8677,36.9166 74.8618,36.9469 74.8542,36.9590 74.8255,36.9941 74.8253,36.9941 74.7935,37.0152 74.7201,37.0164 74.6932,37.0359 74.6789,37.0517 74.6634,37.0545 74.6631,37.0544 74.6270,37.0428 74.5627,37.0297 74.5433,37.0217 74.5428,37.0219 74.5202,37.0302 74.5067,37.0470 74.5007,37.0571 74.4950,37.0665 74.4776,37.0831 74.4154,37.1078 74.3835,37.1266 74.3671,37.1478 74.3672,37.1492 74.3693,37.1671 74.3832,37.1720 74.4212,37.1681 74.4425,37.1705 74.4576,37.1773 74.4686,37.1899 74.4776,37.2101 74.4882,37.2259 74.5010,37.2316 74.5332,37.2322 74.5455,37.2350 74.5769,37.2421 74.5910,37.2434 74.5975,37.2408 74.6100,37.2302 74.6160,37.2284 74.6242,37.2308 74.6282,37.2343 74.6309,37.2383 74.6440,37.2484 74.6473,37.2548 74.6519,37.2596 74.6719,37.2613 74.6773,37.2637 74.6999,37.2803 74.7103,37.2908 74.7224,37.2978 74.7383,37.2961 74.7449,37.2884 74.7842,37.2197 74.7950,37.2139 74.8141,37.2154 74.8933,37.2311 74.8871,37.2328 74.8854,37.2336 74.8877,37.2336 74.8636,37.2446 74.8878,37.2336 74.8878,37.2336 74.8887,37.2336 74.9136,37.2390 74.9247,37.2552 74.9339,37.2725 74.9525,37.2813 74.9764,37.2843 75.0694,37.3121 75.0781,37.3242 75.0805,37.3612 75.0927,37.3784 75.1162,37.3878 75.1651,37.4006 75.1335,37.4185 75.1049,37.4406 75.0544,37.4938 75.0368,37.5064 74.9462,37.5486 74.9160,37.5707 74.8928,37.5992 74.8850,37.6277 74.8831,37.6344 74.8871,37.6535 74.8980,37.6676 74.9119,37.6802 74.9246,37.6953 74.9279,37.7036 74.9297,37.7124 74.9328,37.7216 74.9396,37.7308 74.9554,37.7477 74.9627,37.7581 74.9661,37.7675 74.9624,37.7855 74.9502,37.7953 74.8994,37.8176 74.8921,37.8230 74.8871,37.8306 74.8842,37.8439 74.8883,37.8489 74.8955,37.8521 74.9126,37.8738 74.9147,37.8808 74.9062,37.8869 74.8949,37.8923 74.8917,37.8977 74.8921,37.9043 74.8897,37.9309 74.8938,37.9940 74.8814,38.0217 74.8109,38.0532 74.7917,38.0814 74.7722,38.1963 74.7720,38.2915 74.7757,38.3096 74.7853,38.3257 74.8276,38.3632 74.8392,38.3794 74.8451,38.3978 74.8453,38.4172 74.8381,38.4457 74.8367,38.4552 74.8338,38.4636 74.8271,38.4696 74.8094,38.4777 74.8022,38.4828 74.7932,38.4938 74.7932,38.4939 74.7931,38.4940 74.7931,38.4940 74.7773,38.5107 74.7613,38.5200 74.7430,38.5231 74.7200,38.5215 74.6974,38.5240 74.6806,38.5349 74.6653,38.5490 74.6471,38.5611 74.4776,38.6121 74.3352,38.6670 74.3144,38.6692 74.2447,38.6502 74.2224,38.6497 74.2030,38.6523 74.1414,38.6692 74.1243,38.6695 74.1101,38.6623 74.0960,38.6458 74.0936,38.6377 74.0938,38.6288 74.0924,38.6204 74.0853,38.6140 74.0459,38.6035 74.0382,38.5985 74.0390,38.5792 74.0518,38.5627 74.0597,38.5470 74.0465,38.5304 74.0298,38.5272 73.9338,38.5297 73.9182,38.5371 73.8880,38.5590 73.8707,38.5668 73.8345,38.5780 73.8174,38.5866 73.7983,38.6028 73.7896,38.6186 73.7800,38.6602 73.7732,38.6746 73.7374,38.7217 73.7336,38.7372 73.7399,38.7811 73.7368,38.8004 73.7259,38.8146 73.6967,38.8401 73.6847,38.8549 73.6818,38.8730 73.6899,38.8911 73.7039,38.9070 73.7181,38.9186 73.7409,38.9269 73.7888,38.9271 73.8105,38.9327 73.8249,38.9449 73.8301,38.9602 73.8271,38.9769 73.8169,38.9938 73.8026,39.0014 73.7696,39.0299 73.7103,39.0655 73.6991,39.0784 73.6928,39.0945 73.6839,39.1287 73.6747,39.1426 73.6324,39.1751 73.6088,39.2073 73.6032,39.2358 73.6111,39.2655 73.6423,39.3353 73.6448,39.3513 73.6435,39.3718 73.6329,39.4288 73.6336,39.4483 73.8217,39.4682 73.8393,39.4757 73.8490,39.4897 73.8601,39.5243 73.8714,39.5468 73.8840,39.5612 73.9002,39.5715 73.9226,39.5821 73.9277,39.5929 73.9052,39.6465 73.9006,39.6895 73.8945,39.7104 73.8803,39.7279 73.8609,39.7372 73.8440,39.7404 73.8305,39.7470 73.8208,39.7667 73.8195,39.7860 73.8240,39.8057 73.8330,39.8237 73.8451,39.8381 73.8739,39.8568 73.8816,39.8650 73.8864,39.8765 73.8941,39.9181 73.9085,39.9379 73.9283,39.9533 73.9450,39.9701 73.9507,39.9937 73.9531,40.0083 73.9588,40.0214 73.9673,40.0333 73.9777,40.0436 74.0049,40.0608 74.0705,40.0678 74.1022,40.0788 74.1338,40.0953 74.1685,40.1064 74.2041,40.1099 74.2388,40.1039 74.2732,40.0938 74.3038,40.0901 74.3347,40.0937 74.3708,40.1058 74.4776,40.1724 74.5664,40.2470 74.5996,40.2662 74.6386,40.2820 74.6553,40.2915 74.7067,40.3313 74.7256,40.3375 74.7476,40.3365 74.8319,40.3199 74.8631,40.3262 74.8548,40.3588 74.8426,40.3721 74.7956,40.4055 74.7884,40.4207 74.7956,40.4407 74.8080,40.4618 74.8161,40.4801 74.8170,40.4837 74.8210,40.4940 74.8363,40.5116 74.8574,40.5132 74.8801,40.5051 74.9671,40.4593 75.0033,40.4473 75.0400,40.4411 75.0653,40.4438 75.1141,40.4608 75.1390,40.4639 75.1575,40.4582 75.1762,40.4481 75.1948,40.4413 75.2134,40.4447 75.2211,40.4530 75.2249,40.4624 75.2302,40.4703 75.2425,40.4741 75.2543,40.4760 75.2642,40.4802 75.4828,40.6141 75.5247,40.6332 75.5608,40.6329 75.5886,40.6119 75.6066,40.5694 75.6118,40.5129 75.6189,40.4940 75.6300,40.4813 75.6582,40.4611 75.6679,40.4502 75.6703,40.4324 75.6606,40.4191 75.6473,40.4053 75.6393,40.3861 75.6411,40.3673 75.6572,40.3231 75.6658,40.3057 75.6828,40.2917 75.7054,40.2931 75.7515,40.3083 75.7730,40.3102 75.7947,40.3089 75.8595,40.2964 75.8814,40.2953 75.9028,40.2989 75.9224,40.3091 75.9390,40.3262 75.9502,40.3431 75.9634,40.3573 76.0526,40.3902 76.0771,40.3920 76.0962,40.3874 76.1335,40.3715 76.1523,40.3681 76.1860,40.3842 76.2164,40.4166 76.2451,40.4412 76.2744,40.4341 76.2843,40.4173 76.3003,40.3557 76.3145,40.3433 76.3311,40.3481 76.3629,40.3719 76.4501,40.4155 76.4775,40.4361 76.4999,40.4646 76.5321,40.5350 76.5573,40.5657 76.6104,40.5971 76.6217,40.6113 76.6251,40.6275 76.6318,40.7289 76.6488,40.7649 76.6752,40.7954 76.7082,40.8176 76.7478,40.8345 76.7634,40.8470 76.7718,40.8671 76.7693,40.8870 76.7619,40.9066 76.7584,40.9258 76.7678,40.9447 76.7849,40.9571 76.8218,40.9778 76.8359,40.9935 76.8619,41.0132 76.9011,41.0258 77.0087,41.0442 77.0360,41.0403 77.0895,41.0196 77.1198,41.0117 77.2441,41.0057 77.3021,41.0193 77.3339,41.0206 77.3897,41.0117 77.4462,40.9937 77.4758,40.9820 77.5045,40.9811 77.5817,40.9977 77.6327,40.9958 77.6512,40.9971 77.6665,41.0013 77.7985,41.0547 77.8320,41.0630 77.8677,41.0641 77.9986,41.0498 78.0375,41.0361 78.0581,41.0343 78.0759,41.0395 78.1770,41.1055 78.1915,41.1177 78.2054,41.1337 78.2513,41.2005 78.2763,41.2289 78.2925,41.2408 78.3324,41.2587 78.3504,41.2704 78.3606,41.2875 78.3579,41.3055 78.3403,41.3440 78.3444,41.3620 78.3467,41.3642 78.3609,41.3775 78.3786,41.3866 78.4185,41.4005 78.5113,41.4544 78.5849,41.4660 78.6202,41.4781 78.6301,41.4880 78.6384,41.5129 78.6460,41.5237 78.6592,41.5325 78.6731,41.5384 78.8083,41.5784 78.8984,41.6263 78.9168,41.6332 78.9771,41.6418 79.0897,41.7025 79.1289,41.7143 79.1755,41.7226 79.1969,41.7295 79.2185,41.7412 79.2658,41.7745 79.2833,41.7835 79.3051,41.7876 79.3683,41.7724 79.3918,41.7727 79.4119,41.7786 79.4908,41.8193 79.5556,41.8376 79.6119,41.8676 79.6567,41.8758 79.7039,41.8749 79.7485,41.8797 79.7842,41.9051 79.7935,41.9228 79.8048,41.9600 79.8138,41.9776 79.8277,41.9922 79.8439,42.0018 79.8804,42.0132 79.9318,42.0233 80.1829,42.0210 80.2322,42.0337 80.2585,42.0653 80.2575,42.0844 80.2484,42.0984 80.2361,42.1109 80.2255,42.1256 80.2208,42.1419 80.2175,42.1744 80.2113,42.1895 80.2500,42.2049 80.2614,42.2165 80.2694,42.2380 80.2505,42.3100 80.2365,42.3246 80.2265,42.3390 80.2197,42.3549 80.1971,42.4346 80.1957,42.4463 80.2072,42.4660 80.2130,42.4788 80.2115,42.4908 80.2010,42.5084 80.1747,42.5369 80.1633,42.5524 80.1544,42.5915 80.1464,42.6071 80.1410,42.6230 80.1447,42.6448 80.1534,42.6604 80.1899,42.7016 80.2063,42.7311 80.2284,42.7910 80.2492,42.8162 80.2659,42.8237 80.2827,42.8227 80.3177,42.8156 80.3349,42.8171 80.3826,42.8314 80.4014,42.8430 80.4771,42.8639 80.5276,42.8684 80.5496,42.8785 80.5554,42.8989 80.5439,42.9167 80.5229,42.9254 80.4771,42.9303 80.4087,42.9547 80.3748,42.9752 80.3561,43.0006 80.3691,43.0285 80.4112,43.0487 80.4988,43.0762 80.5768,43.1194 80.6194,43.1343 80.6610,43.1328 80.7117,43.1048 80.7325,43.1011 80.7544,43.1040 80.7743,43.1129 80.7888,43.1280 80.7944,43.1495 80.7891,43.1682 80.7662,43.1999 80.7609,43.2188 80.7601,43.2382 80.7568,43.2576 80.7515,43.2703 80.7494,43.2752 80.7364,43.2889 80.6969,43.3033 80.6594,43.3106 80.6438,43.3262 80.6952,43.3947 80.7111,43.4259 80.7137,43.4589 80.5954,43.6846 80.4771,43.9102 80.4408,43.9490 80.4241,43.9721 80.4136,43.9932 80.4136,43.9933 80.4133,44.0136 80.4110,44.0319 80.4048,44.0489 80.3933,44.0655 80.3607,44.0893 80.3461,44.1031 80.3399,44.1215 80.3470,44.1589 80.3742,44.2310 80.3740,44.2702 80.3339,44.4174 80.3314,44.4531 80.3388,44.4940 80.3655,44.5697 80.3809,44.5913 80.3847,44.6028 80.3782,44.6153 80.3601,44.6326 80.3555,44.6418 80.3568,44.6529 80.3773,44.6713 80.4121,44.6828 80.4771,44.6937 80.4929,44.7017 80.4984,44.7149 80.4932,44.7280 80.4771,44.7354 80.3155,44.7803 80.2642,44.8094 80.2457,44.8160 80.2192,44.8181 80.0403,44.7905 79.9927,44.7936 79.8696,44.8494 79.8440,44.8735 79.8592,44.9037 79.8791,44.9147 79.9256,44.9317 80.0247,44.9932 80.0247,44.9933 80.0627,45.0190 80.1043,45.0322 80.1485,45.0345 80.2200,45.0260 80.2915,45.0462 80.3660,45.0432 80.3910,45.0458 80.4073,45.0566 80.4260,45.0921 80.4463,45.1042 80.4685,45.1063 80.5378,45.1011 80.6981,45.1437 80.7466,45.1443 80.8285,45.1258 80.8548,45.1265 80.9770,45.1611 81.0229,45.1616 81.0635,45.1722 81.1451,45.2047 81.5430,45.2933 81.6235,45.3343 81.6662,45.3480 81.7057,45.3399 81.7402,45.3381 81.7661,45.3077 81.7824,45.2666 81.7883,45.2323 81.7894,45.2091 81.7946,45.1956 81.8082,45.1887 81.8763,45.1811 81.8920,45.1737 81.9111,45.1580 81.9511,45.1445 82.0014,45.1535 82.1927,45.2222 82.2462,45.2318 82.2955,45.2282 82.3428,45.2049 82.4284,45.1372 82.4768,45.1157 82.5407,45.1237 82.5862,45.1768 82.6155,45.2486 82.6348,45.3394 82.6373,45.3789 82.6329,45.4158 82.6167,45.4354 82.5140,45.4658 82.3636,45.4812 82.3287,45.4933 82.3286,45.4933 82.3284,45.4933 82.2924,45.5332 82.3056,45.5829 82.3370,45.6351 82.3732,45.7342 82.4485,45.8254 82.4768,45.8732 82.4899,45.9017 82.5168,45.9931 82.5168,45.9932 82.5428,46.1315 82.5692,46.1965 82.6088,46.2552 82.6753,46.3311 82.6903,46.3625 82.7022,46.4169 82.7088,46.4342 82.7249,46.4582 82.7484,46.4933 82.8399,46.7324 82.9865,46.9425 82.9928,46.9587 82.9943,46.9756 82.9893,46.9930 82.9865,47.0125 82.9911,47.0322 83.0064,47.0698 83.0072,47.0806 83.0004,47.1000 82.9992,47.1103 83.0023,47.1214 83.0131,47.1427 83.0161,47.1544 83.0145,47.1946 83.0224,47.2059 83.0479,47.2147 83.0726,47.2185 83.1000,47.2197 83.1273,47.2176 83.1513,47.2115 83.2029,47.1804 83.2229,47.1719 83.3151,47.1579 83.3543,47.1450 83.5254,47.0671 83.9063,46.9740 84.0001,46.9743 84.0706,46.9644 84.0949,46.9674 84.1588,46.9930 84.1591,46.9931 84.1597,46.9932 84.1600,46.9933 84.2668,47.0001 84.3896,46.9930 84.3903,46.9932 84.4068,46.9942 84.4228,46.9931 84.4767,46.9752 84.5220,46.9698 84.6170,46.9863 84.6645,46.9839 84.7002,46.9702 84.7326,46.9478 84.7526,46.9180 84.7505,46.8825 84.7395,46.8662 84.7254,46.8503 84.7165,46.8352 84.7207,46.8213 84.7406,46.8148 84.7681,46.8181 84.8411,46.8391 84.9170,46.8506 84.9378,46.8610 84.9603,46.8909 84.9767,46.9020 84.9914,46.9077 85.0363,46.9150 85.0492,46.9207 85.0781,46.9433 85.1469,46.9781 85.1683,46.9930 85.1925,47.0233 85.2061,47.0337 85.2268,47.0416 85.2471,47.0444 85.3047,47.0394 85.4331,47.0531 85.4996,47.0518 85.5067,47.0639 85.5090,47.0825 85.5178,47.1003 85.5307,47.1143 85.5396,47.1279 85.5452,47.1432 85.5481,47.1620 85.5578,47.1787 85.5784,47.1892 85.6026,47.1944 85.6483,47.1979 85.6606,47.2065 85.6654,47.2213 85.6693,47.2419 85.6799,47.2749 85.6799,47.2907 85.6712,47.3091 85.6682,47.3261 85.6750,47.3443 85.6798,47.3638 85.6713,47.3843 85.6012,47.4632 85.5855,47.4929 85.5855,47.4931 85.5809,47.5238 85.5967,47.5909 85.5964,47.6241 85.5163,47.9203 85.5188,47.9446 85.5297,47.9666 85.5481,47.9930 85.5627,48.0307 85.5873,48.1412 85.7196,48.3588 85.7484,48.3901 85.7846,48.4076 86.0069,48.4296 86.1930,48.4182 86.2477,48.4374 86.2872,48.4697 86.3083,48.4831 86.3348,48.4904 86.4316,48.4859 86.5474,48.5172 86.5660,48.5273 86.5761,48.5398 86.5945,48.5741 86.6065,48.5901 86.6221,48.6032 86.6700,48.6342 86.7455,48.7035 86.7529,48.7154 86.7528,48.7292 86.7415,48.7717 86.7401,48.7835 86.7471,48.7928 86.7656,48.8076 86.7904,48.8391 86.7747,48.8585 86.7428,48.8787 86.7190,48.9125 86.7125,48.9371 86.7104,48.9542 86.7148,48.9699 86.7285,48.9903 86.7445,49.0077 86.7610,49.0201 86.7999,49.0422 86.8171,49.0585 86.8391,49.0939 86.8604,49.1053 86.8883,49.1068 86.9475,49.0945 86.9764,49.0924 87.1173,49.1298 87.1629,49.1228 87.2016,49.1087 87.3247,49.0853 87.3632,49.0751 87.4014,49.0710 87.4393,49.0747 87.4765,49.0876 87.4827,49.0916 87.4881,49.0970 87.4925,49.1032 87.5010,49.1192 87.5070,49.1209 87.5150,49.1196 87.5262,49.1198 87.7173,49.1589 87.8173,49.1658 87.8190,49.1540 87.8334,49.1239 87.8365,49.1007 87.8306,49.0860 87.8220,49.0718 87.8169,49.0506 87.8229,49.0287 87.8388,49.0204 87.8579,49.0156 87.8732,49.0041 87.8736,48.9680 87.8368,48.9459 87.7578,48.9204 87.7446,48.9052 87.7367,48.8867 87.7388,48.8694 87.7557,48.8573 87.7777,48.8512 87.7884,48.8466 87.7970,48.8398 87.8015,48.8303 87.8031,48.8096 87.8068,48.8006 87.8220,48.7883 87.8426,48.7793 87.9085,48.7588 87.9534,48.7611 87.9764,48.7560 88.0347,48.7291 88.0604,48.7081 88.0648,48.6826 88.0560,48.6734 88.0111,48.6534 88.0043,48.6460 87.9988,48.6352 87.9906,48.6242 87.9764,48.6165 87.9438,48.5995 87.9528,48.5752 87.9840,48.5523 88.0176,48.5398 88.0293,48.5396 88.0529,48.5432 88.0635,48.5429 88.0728,48.5388 88.0892,48.5261 88.1167,48.5165 88.1492,48.4994 88.1669,48.4937 88.1844,48.4928 88.2188,48.4950 88.2366,48.4932 88.3058,48.4690 88.3331,48.4540 88.3844,48.4087 88.4177,48.3941 88.4406,48.3937 88.4601,48.3981 88.4801,48.4001 88.5036,48.3926 88.5661,48.3430 88.5739,48.3253 88.5597,48.2881 88.5622,48.2683 88.5698,48.2492 88.5744,48.2297 88.5817,48.2120 88.5972,48.1977 88.6368,48.1758 88.6564,48.1712 88.6816,48.1730 88.7101,48.1664 88.7763,48.1206 88.8064,48.1060 88.8324,48.1052 88.8902,48.1109 88.9178,48.1060 88.9333,48.0970 89.0465,47.9930 89.0468,47.9930 89.0469,47.9929 89.0756,47.9843 89.1681,47.9840 89.2197,47.9770 89.2449,47.9802 89.2695,47.9931 89.2866,48.0056 89.3352,48.0324 89.3552,48.0388 89.3702,48.0382 89.4102,48.0231 89.4264,48.0216 89.4763,48.0230 89.5046,48.0300 89.5428,48.0310 89.5728,48.0205 89.5772,47.9929 89.5766,47.9760 89.5842,47.9620 89.5975,47.9526 89.6144,47.9496 89.6283,47.9439 89.6371,47.9296 89.6449,47.9128 89.6562,47.8998 89.6730,47.8941 89.7082,47.8890 89.7243,47.8782 89.7321,47.8648 89.7412,47.8362 89.7522,47.8243 89.7845,47.8185 89.8900,47.8243 89.9223,47.8321 89.9354,47.8443 89.9386,47.8575 89.9400,47.8709 89.9476,47.8832 89.9641,47.8887 90.0034,47.8804 90.0456,47.8798 90.0608,47.8688 90.0653,47.8506 90.0569,47.8289 90.0531,47.8107 90.0597,47.7895 90.0716,47.7699 90.0838,47.7561 90.1209,47.7301 90.1644,47.7100 90.2107,47.6957 90.3031,47.6785 90.3245,47.6702 90.3458,47.6586 90.3505,47.6478 90.3384,47.6370 90.3284,47.6230 90.3394,47.6028 90.3530,47.5883 90.3825,47.5384 90.3956,47.5247 90.4282,47.5066 90.4422,47.4930 90.4446,47.4628 90.4427,47.4305 90.4491,47.4040 90.4762,47.3911 90.4882,47.3782 90.4910,47.3618 90.4865,47.3449 90.4762,47.3303 90.4695,47.3235 90.4673,47.3163 90.4697,47.3089 90.7131,47.0147 90.7434,46.9919 90.7828,46.9863 90.8065,46.9868 90.8291,46.9823 90.8504,46.9732 90.8708,46.9603 90.8861,46.9447 90.8947,46.9282 90.9013,46.9107 90.9111,46.8924 90.9186,46.8854 90.9268,46.8807 90.9337,46.8748 90.9374,46.8644 90.9354,46.8568 90.9237,46.8416 90.9209,46.8336 90.9263,46.8131 90.9403,46.7988 90.9761,46.7741 91.0058,46.7404 91.0165,46.7032 91.0152,46.6898 91.0127,46.6629 90.9990,46.6203 90.9969,46.5946 91.0123,46.5853 91.0335,46.5799 91.0484,46.5664 91.0463,46.5511 91.0366,46.5291 91.0151,46.4932 91.0024,46.4750 90.9871,46.4353 90.9761,46.4165 90.9367,46.3439 90.9070,46.3173 90.8971,46.3020 90.9001,46.2817 90.9497,46.1683 90.9761,46.1405 90.9969,46.1137 91.0064,46.0681 91.0034,46.0218 90.9872,45.9931 90.9761,45.9873 90.9202,45.9501 90.7117,45.7522 90.6976,45.7300 90.6521,45.4931 90.6733,45.4757 90.7389,45.4417 90.7542,45.4209 90.7635,45.3916 90.7790,45.3653 90.7914,45.3377 90.7919,45.3043 90.7975,45.2928 90.8381,45.2800 90.8554,45.2706 90.8676,45.2536 90.8669,45.2426 90.8613,45.2317 90.8586,45.2151 90.8742,45.1862 90.9064,45.1860 90.9761,45.2149 91.0123,45.2189 91.0577,45.2176 91.1023,45.2107 91.1360,45.1979 91.1487,45.1872 91.1707,45.1635 91.1853,45.1538 91.2501,45.1297 91.3477,45.1137 91.3675,45.1142 91.3846,45.1242 91.4007,45.1369 91.4178,45.1457 91.4394,45.1461 91.4570,45.1375 91.5227,45.0775 91.5349,45.0711 91.5442,45.0718 91.5532,45.0753 91.5649,45.0771 91.6639,45.0595 91.6846,45.0612 91.7256,45.0707 91.7479,45.0724 91.9200,45.0656 91.9760,45.0734 92.0104,45.0762 92.0439,45.0748 92.0766,45.0689 92.1094,45.0582 92.1946,45.0145 92.2198,45.0101 92.2688,45.0195 92.2863,45.0195 92.3320,45.0078 92.3483,45.0076 92.3974,45.0131 92.4148,45.0113 92.4599,44.9979 92.4761,44.9975 92.5730,45.0130 92.6395,45.0156 92.7537,45.0380 92.7999,45.0332 92.8152,45.0339 92.8485,45.0391 92.8620,45.0379 92.9172,45.0146 92.9460,45.0058 92.9759,45.0047 92.9954,45.0084 93.0148,45.0093 93.0341,45.0076 93.0534,45.0035 93.0723,45.0049 93.0770,45.0054 93.0783,45.0103 93.1303,45.3279 93.1365,45.4479 93.1111,45.6678 93.1185,45.7023 93.1375,45.7256 93.1634,45.7436 93.2780,45.7915 93.3013,45.8066 93.3222,45.8262 93.3589,45.8821 93.3712,45.8959 93.3965,45.9070 93.4103,45.9238 93.4107,45.9425 93.4012,45.9933 93.4053,46.0112 93.5008,46.1790 93.6153,46.3222 93.6312,46.3500 93.6351,46.3819 93.6280,46.4143 93.6122,46.4458 93.5480,46.5324 93.5375,46.5501 93.5351,46.5713 93.5488,46.5803 93.5707,46.5808 93.5936,46.5769 93.6990,46.5692 93.7283,46.5728 93.7842,46.5856 93.8941,46.6582 93.9829,46.6966 94.1878,46.7604 94.2290,46.7829 94.2561,46.8095 94.2652,46.8276 94.2670,46.8649 94.2309,46.9150 94.1408,47.0062 94.0844,47.0779 94.0644,47.1152 94.0532,47.1515 94.0529,47.1797 94.0551,47.2057 94.0492,47.2265 94.0346,47.2427 93.9659,47.2647 93.8270,47.3261 93.6163,47.4567 93.5410,47.5051 93.5013,47.5427 93.4949,47.5621 93.4918,47.5775 93.4889,47.6310 93.3998,47.7373 93.2800,47.8485 93.2695,47.8674 93.2699,47.8953 93.2667,47.9228 93.2553,47.9588 93.2330,47.9960 93.1918,48.0885 93.2642,48.1197 93.3159,48.1495 93.4346,48.2347 93.4673,48.2656 93.4828,48.2880 93.4856,48.2949 93.4876,48.3039 93.4875,48.3215 93.4883,48.3313 93.4900,48.3389 93.4948,48.3484 93.4976,48.3522 93.5004,48.3552 93.5020,48.3585 93.5035,48.3630 93.5017,48.3699 93.4999,48.3736 93.4880,48.3820 93.4574,48.3976 93.5168,48.5044 93.5695,48.5448 93.6100,48.5639 93.6445,48.5859 93.6896,48.6360 93.7164,48.6576 94.1313,48.8030 94.1735,48.8032 94.4576,48.7260 94.5007,48.7197 94.6218,48.7221 94.6513,48.7166 94.6965,48.6972 94.7018,48.6947 94.7945,48.6867 94.9641,48.6999 95.0962,48.7239 95.2174,48.7681 95.2880,48.7937 95.3657,48.8411 95.4097,48.8476 95.4910,48.8482 95.5227,48.8585 95.5595,48.9053 95.5740,48.9433 95.5746,48.9538 95.5716,48.9867 95.5750,49.0080 95.5845,49.0296 95.5994,49.0545 95.6034,49.0777 95.5997,49.1042 95.5919,49.1317 95.5901,49.1644 95.5998,49.1943 95.6869,49.3078 95.6906,49.3621 95.6824,49.3911 95.6705,49.4082 95.6525,49.4276 95.6276,49.4414 95.5650,49.4640 95.5362,49.4775 95.5190,49.4949 95.5118,49.5069 95.4994,49.5463 95.4880,49.5680 95.4633,49.6058 95.4518,49.6369 95.4512,49.6627 95.4605,49.6853 95.4791,49.7195 95.4823,49.7274 95.4833,49.7319 95.4846,49.7475 95.4769,49.8012 95.4630,49.8447 95.4602,49.8772 95.4707,49.8870 95.4801,49.8930 95.4795,49.8933 95.4740,49.8964 95.4626,49.9026 95.4461,49.9144 95.4007,49.9389 95.3852,49.9419 95.3557,49.9477 95.0773,49.9455 95.0293,49.9634 95.0226,49.9698 95.0050,49.9928 94.9815,50.0248 94.9547,50.0406 94.9225,50.0459 94.7473,50.0404 94.6519,50.0178 94.6255,50.0152 94.6044,50.0197 94.5932,50.0298 94.5754,50.0585 94.5649,50.0710 94.5218,50.0978 94.5100,50.1099 94.5032,50.1251 94.4995,50.1395 94.4927,50.1523 94.4759,50.1623 94.3927,50.1856 94.3695,50.2027 94.3554,50.2236 94.3453,50.2492 94.3332,50.3010 94.3285,50.4044 94.3207,50.4290 94.2807,50.4927 94.2792,50.5292 94.2743,50.5448 94.2596,50.5575 94.2385,50.5652 93.8879,50.5750 93.5373,50.5847 93.4225,50.6094 93.1893,50.5998 93.1401,50.5994 93.1059,50.5988 93.0436,50.6099 93.0238,50.6163 93.0124,50.6233 93.0039,50.6348 92.9928,50.6548 92.9743,50.6944 92.9749,50.7422 92.9626,50.7779 92.9220,50.7925 92.8587,50.7955 92.7971,50.7880 92.7612,50.7708 92.7544,50.7547 92.7476,50.7215 92.7362,50.7052 92.7183,50.6922 92.6962,50.6819 92.6728,50.6756 92.6507,50.6741 92.6128,50.6877 92.5555,50.7430 92.5174,50.7606 92.4759,50.7705 92.4442,50.7863 92.4199,50.8117 92.4008,50.8506 92.3855,50.8656 92.3619,50.8684 92.3364,50.8636 92.3162,50.8559 92.3026,50.8434 92.2984,50.8276 92.2980,50.8099 92.2954,50.7913 92.2437,50.7200 92.1598,50.6891 92.0637,50.6863 91.9009,50.7072 91.8251,50.7016 91.7507,50.6841 91.6806,50.6565 91.6541,50.6401 91.6037,50.5796 91.5767,50.5620 91.4760,50.5360 91.4513,50.5191 91.4410,50.4986 91.4334,50.4781 91.4167,50.4614 91.3831,50.4550 91.2985,50.4664 91.2610,50.4666 91.1643,50.4328 91.1307,50.4262 91.0130,50.4253 90.9761,50.4139 90.9495,50.3975 90.8780,50.3394 90.8409,50.3208 90.7634,50.3057 90.7275,50.2919 90.7185,50.2808 90.7183,50.2520 90.7136,50.2380 90.7007,50.2252 90.6849,50.2162 90.6674,50.2104 90.6494,50.2067 90.6059,50.2060 90.5199,50.2184 90.4762,50.2146 90.4260,50.1869 90.4059,50.1826 90.3649,50.1798 90.3448,50.1747 90.2239,50.1144 90.1834,50.1025 90.0522,50.0842 90.0215,50.0707 90.0059,50.0507 89.9997,50.0246 89.9980,50.0037 89.9972,49.9928 89.9704,49.9671 89.9211,49.9509 89.8674,49.9427 89.7217,49.9397 89.6686,49.9273 89.6640,49.9247 89.6337,49.9081 89.5984,49.9204 89.5916,49.9268 89.5859,49.9337 89.5859,49.9394 89.5885,49.9451 89.5925,49.9508 89.6024,49.9617 89.6031,49.9631 89.6065,49.9700 89.6082,49.9805 89.6046,49.9989 89.5983,50.0066 89.5903,50.0104 89.5804,50.0133 89.5696,50.0184 89.5553,50.0314 89.5503,50.0395 89.5498,50.0467 89.5536,50.0523 89.5751,50.0718 89.5807,50.0760 89.5859,50.0815 89.5902,50.0876 89.5921,50.0952 89.5899,50.1002 89.5838,50.1035 89.5761,50.1050 89.5510,50.1070 89.5417,50.1094 89.5322,50.1144 89.5222,50.1243 89.5181,50.1312 89.5163,50.1374 89.5159,50.1425 89.5179,50.1805 89.5172,50.1881 89.5142,50.1994 89.5083,50.2044 89.5024,50.2068 89.4494,50.2107 89.4414,50.2101 89.4350,50.2075 89.4296,50.2030 89.4219,50.1929 89.4189,50.1899 89.4144,50.1869 89.4079,50.1857 89.4000,50.1859 89.3912,50.1881 89.3460,50.2045 89.3373,50.2096 89.3376,50.2149 89.3409,50.2199 89.3461,50.2247 89.3504,50.2298 89.3526,50.2351 89.3536,50.2403 89.3536,50.2455 89.3516,50.2553 89.3504,50.2642 89.3575,50.2717 89.3842,50.2792 89.3869,50.2835 89.3889,50.2886 89.3879,50.2935 89.3871,50.2998 89.3877,50.3074 89.3913,50.3193 89.3966,50.3257 89.4030,50.3305 89.4161,50.3359 89.4299,50.3400 89.4602,50.3439 89.4715,50.3465 89.5089,50.3624 89.5182,50.3698 89.5212,50.3759 89.5188,50.3806 89.5113,50.3893 89.5032,50.3966 89.5008,50.3991 89.4988,50.4022 89.4974,50.4068 89.4969,50.4119 89.4981,50.4172 89.5009,50.4271 89.5021,50.4344 89.5025,50.4507 89.5042,50.4573 89.5082,50.4660 89.5147,50.4694 89.5231,50.4698 89.5410,50.4646 89.6082,50.4274 89.6130,50.4233 89.6157,50.4187 89.6168,50.4138 89.6163,50.4084 89.6119,50.3978 89.6111,50.3935 89.6119,50.3907 89.6149,50.3873 89.6208,50.3847 89.6343,50.3852 89.7664,50.4180 89.8236,50.4231 89.8355,50.4262 89.8446,50.4299 89.8500,50.4345 89.8546,50.4401 89.8645,50.4576 89.8667,50.4633 89.8694,50.4745 89.8700,50.4799 89.8701,50.4851 89.8695,50.4901 89.8678,50.4982 89.8666,50.5017 89.8602,50.5127 89.8561,50.5180 89.8293,50.5431 89.8110,50.5544 89.7806,50.5669 89.7596,50.5730 89.7329,50.5777 89.6996,50.5763 89.6747,50.5790 89.6670,50.5825 89.6630,50.5870 89.6631,50.5974 89.6627,50.6024 89.6605,50.6072 89.6571,50.6117 89.6481,50.6204 89.5947,50.6603 89.5862,50.6687 89.5788,50.6773 89.5726,50.6864 89.5609,50.6993 89.4996,50.7518 89.4740,50.7782 89.4705,50.7835 89.4587,50.7979 89.4489,50.8035 89.4216,50.8140 89.4132,50.8186 89.4080,50.8233 89.4059,50.8274 89.4030,50.8378 89.4002,50.8441 89.3934,50.8527 89.3846,50.8576 89.3337,50.8795 89.3174,50.8930 89.3100,50.9013 89.1992,50.9674 89.1734,50.9920 89.1633,50.9999 89.1376,51.0103 89.0846,51.0386 89.0698,51.0483 89.0607,51.0559 89.0533,51.0646 89.0477,51.0738 89.0454,51.0784 89.0429,51.0883 89.0422,51.0932 89.0416,51.1084 89.0425,51.1132 89.0441,51.1186 89.0494,51.1300 89.0512,51.1356 89.0519,51.1410 89.0518,51.1461 89.0508,51.1512 89.0453,51.1669 89.0415,51.1738 89.0332,51.1843 89.0257,51.1902 89.0167,51.1940 89.0019,51.1975 88.9813,51.2056 88.9618,51.2158 88.9523,51.2224 88.9468,51.2283 88.9447,51.2330 88.9441,51.2381 88.9444,51.2433 88.9452,51.2487 88.9521,51.2709 88.9537,51.2816 88.9539,51.2921 88.9459,51.3323 88.9463,51.3428 88.9469,51.3481 88.9500,51.3591 88.9574,51.3763 88.9685,51.3944 88.9728,51.4058 88.9735,51.4121 88.9725,51.4188 88.9682,51.4279 88.9629,51.4336 88.9564,51.4384 88.8843,51.4636 88.8621,51.4756 88.8555,51.4811 88.8499,51.4874 88.8386,51.5050 88.8326,51.5113 88.8259,51.5165 88.7367,51.5594 88.6603,51.5349 88.6550,51.5315 88.6522,51.5278 88.6522,51.5232 88.6535,51.5184 88.6576,51.5092 88.6606,51.4999 88.6680,51.4856 88.6693,51.4806 88.6695,51.4702 88.6677,51.4490 88.6685,51.4337 88.6679,51.4286 88.6664,51.4236 88.6617,51.4193 88.6560,51.4156 88.6368,51.4061 88.6094,51.3958 88.6030,51.3923 88.5974,51.3880 88.5922,51.3826 88.5652,51.3463 88.5599,51.3410 88.5543,51.3365 88.5223,51.3199 88.5155,51.3176 88.5087,51.3164 88.3647,51.3198 88.3510,51.3243 88.2997,51.3489 88.2629,51.3602 88.1846,51.3638 88.1721,51.3671 88.1326,51.3859 88.1209,51.3953 88.1144,51.4023 88.1121,51.4075 88.1081,51.4222 88.1066,51.4322 88.0956,51.4407 88.0745,51.4516 87.9770,51.4871 87.9685,51.4875 87.9609,51.4863 87.9341,51.4754 87.9244,51.4790 87.9110,51.4903 87.8917,51.5167 87.8625,51.5494 87.9683,51.5976 87.9744,51.6023 87.9795,51.6082 87.9828,51.6182 87.9837,51.6252 87.9831,51.6312 87.9820,51.6361 87.9828,51.6421 87.9854,51.6486 88.0007,51.6621 88.0874,51.7136 88.0936,51.7203 88.0994,51.7292 88.1053,51.7452 88.1069,51.7543 88.1068,51.7614 88.1046,51.7661 88.1017,51.7707 88.0980,51.7746 88.0930,51.7774 88.0863,51.7774 87.9905,51.7555 87.9838,51.7557 87.9778,51.7578 87.9443,51.7807 87.9296,51.7875 87.9207,51.7899 87.9119,51.7909 87.9038,51.7904 87.8964,51.7889 87.8893,51.7866 87.8627,51.7736 87.8563,51.7717 87.8500,51.7721 87.8448,51.7750 87.8411,51.7791 87.8382,51.7836 87.8361,51.7884 87.8355,51.7937 87.8363,51.7993 87.8379,51.8049 87.8401,51.8106 87.8481,51.8189 87.8613,51.8290 87.9063,51.8572 87.9717,51.9218 87.9750,51.9276 87.9772,51.9332 87.9786,51.9387 87.9825,51.9655 87.9871,51.9711 87.9957,51.9764 88.0311,51.9893 88.0363,51.9926 88.0407,52.0029 88.0587,52.0210 88.0589,52.0266 88.0568,52.0317 88.0539,52.0364 88.0533,52.0413 88.0558,52.0472 88.0592,52.0531 88.0683,52.0651 88.0735,52.0706 88.0791,52.0754 88.0961,52.0868 88.1119,52.0949 88.1224,52.0983 88.1339,52.0972 88.1406,52.0939 88.1876,52.0627 88.1945,52.0592 88.2020,52.0563 88.2112,52.0550 88.2205,52.0556 88.2502,52.0626 88.2596,52.0661 88.2645,52.0694 88.2629,52.0743 88.2585,52.0786 88.2431,52.0909 88.2391,52.0952 88.2382,52.1003 88.2390,52.1058 88.2431,52.1113 88.2505,52.1164 88.2675,52.1206 88.3307,52.1249 88.3467,52.1335 88.3657,52.1680 88.4569,52.1722 88.4688,52.1755 88.4832,52.1809 88.4871,52.1867 88.4956,52.1945 88.5071,52.2029 88.5344,52.2158 88.5495,52.2204 88.5627,52.2220 88.5851,52.2203 88.6006,52.2213 88.6094,52.2260 88.6156,52.2319 88.6221,52.2393 88.6294,52.2428 88.6380,52.2441 88.6590,52.2447 88.6742,52.2465 88.6828,52.2511 88.6890,52.2567 88.7057,52.2852 88.7200,52.3023 88.7233,52.3080 88.7233,52.3131 88.7180,52.3170 88.7096,52.3200 88.6717,52.3288 88.6649,52.3328 88.6621,52.3375 88.6652,52.3440 88.6705,52.3485 88.6770,52.3525 88.7166,52.3706 88.7264,52.3774 88.7336,52.3847 88.7380,52.3916 88.7460,52.4009 88.7531,52.4059 88.8583,52.4465 88.8723,52.4568 88.8930,52.4694 88.9455,52.4880 88.9533,52.4925 88.9580,52.4968 88.9639,52.5074 88.9704,52.5162 88.9772,52.5215 88.9844,52.5253 88.9997,52.5293 89.0226,52.5377 89.0311,52.5433 89.0385,52.5492 89.0614,52.5760 89.0724,52.5857 89.0814,52.5901 89.0902,52.5929 89.1164,52.5978 89.1195,52.6019 89.1202,52.6066 89.1193,52.6115 89.1190,52.6166 89.1177,52.6215 89.1161,52.6264 89.1131,52.6309 89.1039,52.6393 89.0709,52.6632 89.0500,52.6742 89.0441,52.6781 89.0407,52.6827 89.0392,52.6876 89.0391,52.6933 89.0403,52.6993 89.0431,52.7064 89.0485,52.7108 89.0554,52.7137 89.1453,52.7305 89.1512,52.7353 89.1644,52.7514 89.1790,52.7657 89.2288,52.7977 89.2356,52.8043 89.2366,52.8100 89.1832,52.8656 89.1777,52.8682 89.1702,52.8689 89.1546,52.8672 89.1319,52.8622 89.1242,52.8616 89.1173,52.8634 89.1120,52.8667 89.1112,52.8716 89.1130,52.8772 89.1221,52.8948 89.1239,52.9003 89.1247,52.9057 89.1244,52.9108 89.1227,52.9156 89.1192,52.9200 89.0716,52.9510 89.0660,52.9540 89.0597,52.9554 89.0519,52.9557 89.0004,52.9498 88.9868,52.9505 88.9483,52.9610 88.9057,52.9781 88.8994,52.9820 88.8960,52.9874 88.8964,52.9912 88.8991,52.9957 88.9143,53.0103 88.9166,53.0157 88.9144,53.0206 88.9101,53.0247 88.9070,53.0286 88.9091,53.0325 88.9326,53.0484 88.9728,53.0681 88.9799,53.0706 89.0010,53.0760 89.0074,53.0795 89.0108,53.0843 89.0180,53.1047 89.0224,53.1109 89.0279,53.1159 89.0500,53.1305 89.0524,53.1356 89.0512,53.1403 89.0474,53.1448 89.0319,53.1569 89.0077,53.1849 89.0068,53.1923 89.0085,53.1998 89.0330,53.2163 89.0465,53.2276 89.0533,53.2374 89.0538,53.2439 89.0516,53.2494 89.0050,53.3009 88.9875,53.3150 88.9807,53.3224 88.9773,53.3296 88.9747,53.3396 88.9697,53.3456 88.9641,53.3505 88.8961,53.3866 88.8898,53.3875 88.8828,53.3866 88.8319,53.3711 88.8266,53.3674 88.8194,53.3529 88.8153,53.3496 88.8085,53.3481 88.8004,53.3478 88.7903,53.3484 88.7803,53.3501 88.7675,53.3547 88.7630,53.3596 88.7622,53.3651 88.7708,53.3766 88.7891,53.3964 88.7930,53.4073 88.7920,53.4168 88.7924,53.4257 88.7956,53.4315 88.8008,53.4367 88.8453,53.4591 88.8572,53.4676 88.8617,53.4741 88.8640,53.4802 88.8651,53.4998 88.8772,53.5412 88.8764,53.5489 88.8726,53.5548 88.8434,53.5748 88.8385,53.5793 88.8348,53.5846 88.8381,53.5883 88.8434,53.5919 88.8578,53.5969 88.8658,53.5972 88.8745,53.5955 88.8835,53.5960 88.8923,53.5996 88.9002,53.6129 88.9132,53.6252 88.9939,53.6607 89.0047,53.6676 89.0096,53.6736 89.0122,53.6794 89.0133,53.6913 89.0118,53.7156 89.0124,53.7223 89.0143,53.7301 89.0192,53.7422 89.0254,53.7487 89.0326,53.7531 89.0620,53.7622 89.0760,53.7683 89.0952,53.7801 89.1031,53.7815 89.1655,53.7788 89.1824,53.7807 89.2031,53.8055 89.2614,53.8348 89.2712,53.8428 89.2747,53.8491 89.2718,53.8535 89.2678,53.8575 89.2626,53.8611 89.2560,53.8635 89.2479,53.8644 89.1992,53.8614 89.1932,53.8635 89.1879,53.8668 89.1830,53.8721 89.1798,53.8783 89.1771,53.8877 89.1796,53.8949 89.1840,53.9012 89.2209,53.9325 89.2209,53.9372 89.2153,53.9412 89.1981,53.9477 89.1472,53.9584 89.1238,53.9600 89.0737,53.9526 89.0663,53.9548 89.0625,53.9589 89.0620,53.9639 89.0586,53.9737 89.0535,53.9829 89.0474,53.9920 88.9961,54.0434 88.9884,54.0528 88.9853,54.0582 88.9824,54.0652 88.9830,54.0715 88.9855,54.0777 88.9892,54.0835 88.9982,54.0939 89.0062,54.1006 89.0186,54.1070 89.0477,54.1174 89.1882,54.1474 89.1936,54.1497 89.1947,54.1532 89.1936,54.1576 89.1798,54.1881 89.1798,54.1949 89.1826,54.2012 89.2195,54.2425 89.2234,54.2503 89.2202,54.2554 89.2131,54.2595 89.1942,54.2665 89.1855,54.2707 89.1787,54.2769 89.1771,54.2827 89.1790,54.2887 89.1826,54.2947 89.1873,54.3013 89.1913,54.3082 89.1938,54.3163 89.1910,54.3219 89.1870,54.3268 89.1761,54.3348 89.1630,54.3424 89.1475,54.3488 89.1387,54.3505 89.1301,54.3505 89.0682,54.3351 89.0611,54.3323 89.0545,54.3288 89.0488,54.3236 89.0248,54.2937 89.0193,54.2896 89.0122,54.2887 89.0053,54.2901 88.9664,54.3093 88.9601,54.3141 88.9533,54.3203 88.9523,54.3261 88.9533,54.3320 88.9618,54.3507 88.9638,54.3588 88.9618,54.3645 88.9558,54.3692 88.9361,54.3782 88.8723,54.4096 88.8457,54.4157 88.8181,54.4133 88.8067,54.4105 88.7987,54.4071 88.7925,54.4018 88.7850,54.3903 88.7765,54.3842 88.7625,54.3779 88.7295,54.3708 88.7144,54.3648 88.7046,54.3587 88.6969,54.3468 88.6912,54.3400 88.6838,54.3335 88.6716,54.3257 88.6604,54.3233 88.6492,54.3220 88.6362,54.3216 88.6283,54.3180 88.6218,54.3133 88.6147,54.3062 88.6048,54.2988 88.5853,54.2890 88.5721,54.2870 88.5618,54.2877 88.5566,54.2915 88.5540,54.2962 88.5528,54.3012 88.5489,54.3320 88.5464,54.3367 88.5411,54.3408 88.5335,54.3443 88.3962,54.3788 88.3836,54.3837 88.3789,54.3885 88.3778,54.3929 88.3823,54.3958 88.3892,54.3972 88.4566,54.4025 88.5195,54.4161 88.5263,54.4188 88.5315,54.4232 88.5346,54.4284 88.5399,54.4397 88.5443,54.4452 88.5616,54.4584 88.5653,54.4627 88.5668,54.4675 88.5662,54.4776 88.5647,54.4877 88.5652,54.4925 88.5668,54.4964 88.5690,54.4989 88.5702,54.5000 88.5929,54.5128 88.5990,54.5171 88.6039,54.5217 88.6064,54.5269 88.6060,54.5319 88.6043,54.5367 88.5832,54.5673 88.5813,54.5728 88.5814,54.5781 88.6074,54.6025 88.6105,54.6079 88.6116,54.6131 88.6144,54.6863 88.6136,54.6969 88.6345,54.7119 88.6355,54.7165 88.6359,54.7223 88.6325,54.7325 88.6317,54.7386 88.6315,54.7465 88.6383,54.7547 88.6449,54.7600 88.6531,54.7628 88.6995,54.7608 88.7090,54.7615 88.7187,54.7642 88.7301,54.7743 88.7414,54.7870 88.7540,54.8046 88.7572,54.8176 88.7575,54.8328 88.7485,54.8901 88.7444,54.8954 88.7376,54.8979 88.7299,54.8972 88.7225,54.8950 88.6887,54.8768 88.6814,54.8747 88.6745,54.8743 88.6690,54.8769 88.6654,54.8808 88.6630,54.8864 88.6612,54.8931 88.6609,54.9030 88.6649,54.9115 88.6776,54.9309 88.6800,54.9391 88.6800,54.9470 88.6779,54.9565 88.6745,54.9627 88.6701,54.9671 88.6624,54.9687 88.6278,54.9670 88.6188,54.9674 88.6098,54.9712 88.6030,54.9778 88.5956,54.9906 88.5891,54.9997 88.5875,55.0003 88.5674,55.0048 88.5577,55.0088 88.5494,55.0167 88.5476,55.0232 88.5488,55.0296 88.5504,55.0349 88.5526,55.0463 88.5538,55.0703 88.5525,55.0783 88.5509,55.0834 88.5423,55.0907 88.5180,55.1075 88.5118,55.1131 88.5052,55.1218 88.5033,55.1299 88.5024,55.1385 88.5025,55.1505 88.5003,55.1588 88.4975,55.1662 88.4867,55.1865 88.4826,55.1929 88.4734,55.2012 88.4090,55.2409 88.4033,55.2466 88.3962,55.2552 88.3941,55.2617 88.3937,55.2678 88.3953,55.2733 88.3974,55.2790 88.4010,55.2849 88.4056,55.2908 88.4170,55.3014 88.4232,55.3059 88.4365,55.3137 88.4997,55.3383 88.5036,55.3406 88.5625,55.3881 88.5724,55.3995 88.5845,55.4182 88.6116,55.4476 88.6224,55.4575 88.6271,55.4612 88.6346,55.4658 88.6627,55.4868 88.6698,55.4976 88.6702,55.5002 88.6727,55.5058 88.6758,55.5100 88.6832,55.5160 88.8577,55.6055 88.8791,55.6207 89.0625,55.6929 89.0927,55.6991 89.1528,55.6982 89.1709,55.7040 89.1951,55.7259 89.2178,55.7424 89.2405,55.7540 89.2749,55.7646 89.3638,55.7725 89.3714,55.7750 89.3773,55.7794 89.3818,55.7849 89.3891,55.7965 89.3904,55.8022 89.3882,55.8073 89.3804,55.8138 89.3761,55.8197 89.3784,55.8278 89.3830,55.8333 89.3906,55.8363 89.4253,55.8396 89.4330,55.8417 89.4396,55.8451 89.4442,55.8502 89.4476,55.8558 89.4500,55.8620 89.4492,55.8685 89.4443,55.8760 89.4291,55.8814 89.4172,55.8842 89.3665,55.8896 89.3471,55.8950 89.3307,55.9022 89.3173,55.9099 89.3124,55.9141 89.3098,55.9206 89.3083,55.9258 89.3186,55.9500 89.3169,55.9612 89.2882,55.9792 89.2727,55.9969 89.2573,56.0272 89.2439,56.0437 89.2766,56.0538 89.2746,56.0650 89.2725,56.0694 89.2684,56.0747 89.2608,56.0801 89.2223,56.0951 89.2189,56.0978 89.2143,56.1027 89.2109,56.1116 89.2097,56.1182 89.2093,56.1243 89.2065,56.1297 89.1997,56.1346 89.1839,56.1397 89.1719,56.1416 89.1610,56.1424 89.1340,56.1412 89.1255,56.1431 89.1186,56.1477 89.1140,56.1566 89.1136,56.1634 89.1140,56.1697 89.1170,56.1807 89.1193,56.1863 89.1193,56.1917 89.1162,56.1966 89.1053,56.2005 89.0951,56.2026 89.0746,56.2046 89.0650,56.2066 89.0573,56.2101 89.0539,56.2167 89.0543,56.2228 89.0656,56.2462 89.0673,56.2517 89.0673,56.2569 89.0648,56.2616 89.0574,56.2706 89.0552,56.2753 89.0551,56.2804 89.0569,56.2859 89.0604,56.2917 89.0613,56.2970 89.0576,56.3017 89.0420,56.3047 88.9141,56.3098 88.9056,56.3120 88.8995,56.3159 88.9008,56.3252 88.9057,56.3305 88.9131,56.3348 88.9200,56.3378 88.9214,56.3416 88.9160,56.3459 88.8806,56.3546 88.8624,56.3663 88.7345,56.3760 88.7218,56.3794 88.7068,56.3858 88.6620,56.4189 88.6519,56.4245 88.5934,56.4436 88.5884,56.4562 88.5999,56.4647 88.6139,56.4704 88.6209,56.4779 88.6252,56.4897 88.6260,56.5166 88.6187,56.5295 88.6091,56.5365 88.5378,56.5454 88.5291,56.5478 88.5234,56.5514 88.5192,56.5558 88.5135,56.5650 88.5046,56.5840 88.5037,56.5900 88.5037,56.5971 88.5058,56.6145 88.5073,56.6204 88.5107,56.6246 88.5176,56.6266 88.6621,56.6363 88.6704,56.6381 88.6773,56.6415 88.6806,56.6490 88.6814,56.6773 88.6866,56.6821 88.6940,56.6855 88.7268,56.6932 88.7345,56.6959 88.7392,56.7004 88.7413,56.7075 88.7417,56.7135 88.7411,56.7192 88.7389,56.7242 88.7340,56.7286 88.7221,56.7317 88.6611,56.7377 88.6526,56.7418 88.6477,56.7494 88.6427,56.7910 88.6430,56.8045 88.6449,56.8153 88.6435,56.8208 88.6429,56.8252 88.6249,56.8330 88.6392,56.8868 88.7219,57.0553 88.7262,57.0753 88.7233,57.0864 88.7145,57.0891 88.7057,57.0889 88.6723,57.0816 88.6342,57.0813 88.5306,57.0958 88.5238,57.0986 88.5220,57.1028 88.5225,57.1082 88.5241,57.1143 88.5272,57.1221 88.5322,57.1279 88.6290,57.1978 88.6350,57.2031 88.6485,57.2117 88.6562,57.2144 88.6645,57.2162 88.7111,57.2183 88.7199,57.2197 88.7274,57.2228 88.7337,57.2274 88.7395,57.2328 88.7487,57.2444 88.7683,57.2745 88.7893,57.2993 88.8061,57.3234 88.8624,57.4317 88.8733,57.4444 88.8895,57.4489 88.9447,57.4541 88.9552,57.4583 88.9669,57.4653 89.0004,57.4947 89.0050,57.4969 89.0105,57.4987 89.0184,57.5000 89.0484,57.4996 89.0513,57.5002 89.0586,57.5028 89.0716,57.5098 89.0781,57.5147 89.1124,57.5513 89.1275,57.5730 89.1415,57.6076 89.1483,57.6142 89.1573,57.6170 89.1677,57.6158 89.2119,57.6046 89.2538,57.5995 89.2631,57.5999 89.3615,57.6270 89.3814,57.6372 89.3860,57.6509 89.3852,57.6663 89.3553,57.7963 89.3916,57.8776 89.3784,57.9169 89.3511,57.9429 89.3398,57.9479 89.3294,57.9500 88.8829,57.9569 88.8518,57.9606 88.8413,57.9643 88.8336,57.9685 88.8219,57.9766 88.7164,58.0289 88.6884,58.0366 88.4225,58.0715 88.1566,58.1065 88.1423,58.1101 88.1314,58.1140 88.1251,58.1180 88.1208,58.1223 88.0998,58.1495 88.0824,58.1773 88.0807,58.1822 88.0797,58.1871 88.0779,58.1920 88.0772,58.1971 88.0757,58.2020 88.0737,58.2068 88.0666,58.2126 88.0558,58.2192 88.0327,58.2297 88.0237,58.2366 88.0191,58.2426 88.0152,58.2683 87.9191,58.4999 87.9198,58.5038 87.9209,58.5082 87.9237,58.5136 87.9274,58.5196 87.9332,58.5261 88.1584,58.7175 88.3836,58.9089 88.3928,58.9145 88.4005,58.9179 88.7976,59.0105 88.8165,59.0178 88.8275,59.0245 88.8292,59.0296 88.8268,59.0345 88.6212,59.1988 88.6085,59.2149 88.6013,59.2325 88.6188,59.2753 88.6224,59.2930 88.6108,59.2974 88.5869,59.2987 88.2621,59.2824 87.9372,59.2662 87.9116,59.2681 87.8953,59.2761 87.8793,59.2890 87.5548,59.6407 87.5233,59.6672 87.5061,59.6717 87.4929,59.6736 87.2146,59.6850 87.1915,59.6897 87.1791,59.7008 87.1698,59.7154 87.1035,59.8670 87.0955,59.8773 87.0851,59.8828 86.6264,59.9500 86.2978,59.9530 85.9692,59.9559 85.4973,59.8916 85.0951,59.8982 84.6929,59.9048 84.6682,59.9162 84.6232,59.9442 84.5544,59.9645 84.5323,59.9750 84.5304,59.9798 84.5317,59.9852 84.5361,59.9904 84.5485,60.0011 84.6016,60.0371 84.6072,60.0460 84.6105,60.0560 84.6115,60.0592 84.6223,60.1740 84.6272,60.1927 84.6328,60.2056 84.6391,60.2104 84.6753,60.2302 84.6845,60.2389 84.6947,60.2518 84.7035,60.2684 84.7236,60.3062 84.7335,60.3185 84.7453,60.3294 84.7740,60.3486 84.7822,60.3560 84.7852,60.3627 84.7845,60.3705 84.7812,60.3760 84.7772,60.3810 84.7400,60.4160 84.7328,60.4250 84.7180,60.4481 84.7093,60.4589 84.3562,60.7909 84.3317,60.8057 84.2605,60.8555 84.6236,61.0001 84.6490,61.0007 85.0110,61.1028 85.3730,61.2049 85.6721,61.2892 85.6945,61.2990 85.7030,61.3062 85.6545,61.3439 85.6430,61.3573 85.6372,61.3667 85.6357,61.3716 85.6362,61.3768 85.6394,61.3824 85.6449,61.3876 85.7544,61.4378 85.7721,61.4435 85.9514,61.4647 85.9692,61.4746 85.9734,61.4995 85.9749,61.5083 85.9739,61.5269 85.9696,61.5385 85.9643,61.5449 85.9572,61.5500 85.8550,61.5951 85.8451,61.5956 85.8356,61.5942 85.8008,61.5838 85.7328,61.5742 85.7229,61.5747 85.4805,61.6279 85.4681,61.6325 85.4589,61.6370 85.4324,61.6580 85.4039,61.6850 85.3871,61.6981 85.3769,61.7011 85.3667,61.7013 85.3576,61.6995 85.3147,61.6864 85.2952,61.6833 85.2736,61.6826 85.1727,61.7035 85.1593,61.7085 85.1213,61.7377 85.0878,61.7542 85.0015,61.7854 84.9425,61.7961 84.9200,61.7965 84.8285,61.7867 84.7056,61.8045 84.6907,61.8100 84.6820,61.8153 84.6793,61.8201 84.6762,61.8247 84.6688,61.8390 84.6564,61.8576 84.6483,61.8670 84.6422,61.8720 84.6282,61.8788 84.5578,61.8980 84.5469,61.9028 84.5386,61.9118 84.5355,61.9164 84.5243,61.9300 84.5217,61.9347 84.5196,61.9395 84.5211,61.9451 84.5519,61.9881 84.5538,61.9931 84.5543,61.9965 84.5537,61.9991 84.5522,62.0015 84.4367,62.1780 84.4517,62.1983 84.7465,62.4104 84.7862,62.4164 84.8168,62.4277 84.8618,62.4512 84.8727,62.4586 84.8978,62.4808 84.9086,62.4931 84.9123,62.4990 84.9123,62.5042 84.9095,62.5089 84.8961,62.5221 84.8926,62.5272 84.8910,62.5329 84.8950,62.5411 84.9033,62.5479 84.9176,62.5564 84.9267,62.5640 84.9340,62.5723 84.9415,62.5829 84.9495,62.5892 84.9587,62.5929 84.9875,62.5980 84.9978,62.6011 85.0331,62.6205 85.0440,62.6243 85.0763,62.6322 85.0910,62.6380 85.0950,62.6432 85.0941,62.6480 85.0891,62.6522 85.0847,62.6575 85.0828,62.6638 85.0863,62.6735 85.0925,62.6798 85.1003,62.6849 85.1358,62.7019 85.1453,62.7082 85.1528,62.7143 85.1568,62.7200 85.1581,62.7254 85.1581,62.7307 85.1591,62.7361 85.1677,62.7475 85.2262,62.8012 85.3253,62.8693 85.3339,62.8727 85.3429,62.8753 85.4453,62.8843 85.4654,62.8913 85.5014,62.9161 85.5193,62.9326 85.5208,62.9379 85.5190,62.9426 85.5095,62.9565 85.5022,62.9708 85.4991,62.9754 85.4974,62.9807 85.4971,62.9862 85.5004,62.9931 85.5087,62.9995 85.5131,63.0014 85.5667,63.0343 85.5786,63.0449 85.5849,63.0539 85.5873,63.0682 85.5873,63.0742 85.5852,63.0795 85.5799,63.0833 85.5323,63.0927 85.5233,63.0961 85.5180,63.1004 85.5022,63.1183 85.4964,63.1225 85.4749,63.1341 85.4706,63.1383 85.4706,63.1431 85.4704,63.1492 85.4924,63.1982 85.5023,63.2120 85.5107,63.2172 85.5297,63.2251 85.5365,63.2325 85.5358,63.2408 85.5324,63.2525 85.5319,63.2628 85.5399,63.2673 85.5614,63.2732 85.6184,63.3151 85.6569,63.3346 85.6687,63.3445 85.6731,63.3598 85.6415,63.3742 85.4964,63.3748 85.4540,63.3697 85.4457,63.3636 85.4413,63.3558 85.4347,63.3497 85.4199,63.3492 85.4112,63.3532 85.4023,63.3611 85.3953,63.3708 85.3925,63.3796 85.3825,63.3932 85.3658,63.4048 85.3625,63.4149 85.3925,63.4243 85.3778,63.4439 85.3744,63.4540 85.3788,63.4665 85.3365,63.4868 85.3202,63.4986 85.3001,63.5174 85.2773,63.5224 85.2134,63.5109 85.2001,63.5106 85.1871,63.5304 85.1568,63.5351 85.0977,63.5342 85.0785,63.5432 85.0619,63.5561 85.0480,63.5720 85.0404,63.5831 85.0370,63.5830 85.0328,63.5864 85.0516,63.6006 85.0610,63.6038 85.0770,63.6071 85.0901,63.6074 85.1031,63.6059 85.1423,63.5967 85.1680,63.5947 85.1821,63.5970 85.1922,63.6018 85.2108,63.6197 85.2206,63.6266 85.2578,63.6439 85.2704,63.6515 85.3340,63.7008 85.3392,63.7067 85.3456,63.7182 85.3472,63.7237 85.3476,63.7290 85.3469,63.7341 85.3447,63.7390 85.3419,63.7436 85.3430,63.7507 85.3472,63.7598 85.3629,63.7762 85.3676,63.7854 85.3677,63.7922 85.3688,63.7994 85.3741,63.8084 85.4100,63.8422 85.4195,63.8563 85.4289,63.8667 85.4375,63.8727 85.4809,63.8935 85.4929,63.9021 85.5147,63.9246 85.5245,63.9316 85.5345,63.9367 85.5642,63.9429 85.6006,63.9563 85.6582,63.9850 85.6734,63.9910 85.9491,64.0534 85.9588,64.0596 85.9644,64.0657 85.9662,64.0712 85.9680,64.0819 85.9683,64.0924 85.9673,64.0974 85.9637,64.1019 85.9570,64.1060 85.9492,64.1097 85.9427,64.1137 85.9381,64.1181 85.9352,64.1228 85.9386,64.1306 85.9470,64.1408 85.9667,64.1593 85.9736,64.1692 85.9770,64.1771 85.9763,64.1821 85.9797,64.1899 85.9875,64.2000 86.0160,64.2288 86.0216,64.2369 86.0250,64.2480 86.0277,64.2536 86.0312,64.2646 86.0315,64.2699 86.0309,64.2750 86.0290,64.2798 86.0227,64.2890 86.0183,64.2934 86.0018,64.3048 85.9637,64.3203 85.9566,64.3242 85.9517,64.3285 85.9489,64.3333 85.9471,64.3381 85.9463,64.3433 85.9451,64.3481 85.9426,64.3529 85.9299,64.3663 85.9269,64.3710 85.9263,64.3760 85.9319,64.4030 85.9311,64.4081 85.9278,64.4128 85.9232,64.4169 85.8518,64.4502 85.8458,64.4544 85.8425,64.4592 85.8409,64.4644 85.8406,64.4857 85.8420,64.4926 85.8455,64.5010 85.8532,64.5148 85.8600,64.5239 85.9053,64.5686 85.9138,64.5800 85.9170,64.5885 85.9139,64.5932 85.9092,64.5976 85.9027,64.6016 85.8322,64.6306 85.8248,64.6346 85.8189,64.6387 85.8141,64.6431 85.8111,64.6477 85.8129,64.6563 85.8511,64.7224 85.8587,64.7393 85.8607,64.7505 85.8599,64.7564 85.8566,64.7634 85.8523,64.7688 85.8461,64.7734 85.8389,64.7773 85.8194,64.7843 85.6110,64.8278 85.5599,64.8300 85.5368,64.8288 85.5159,64.8251 85.4793,64.8124 85.4472,64.7953 85.4382,64.7920 85.3491,64.7831 85.1853,64.7508 85.1618,64.7506 85.1500,64.7518 85.1413,64.7536 85.1326,64.7565 85.1261,64.7603 85.1211,64.7647 85.1170,64.7716 85.1092,64.7973 85.1025,64.8056 85.0937,64.8109 85.0823,64.8118 85.0373,64.8077 84.9954,64.8090 84.9717,64.8126 84.9492,64.8187 84.9402,64.8233 84.9334,64.8291 84.9276,64.8382 84.9270,64.8450 84.9285,64.8514 84.9327,64.8570 84.9390,64.8622 84.9551,64.8722 84.9630,64.8789 84.9686,64.8914 84.9677,64.8992 84.9643,64.9062 84.9582,64.9129 84.9521,64.9179 84.9436,64.9221 84.9211,64.9279 84.8207,64.9307 84.4711,64.8902 84.3178,64.8957 84.3048,64.8982 84.2931,64.9027 84.2843,64.9089 84.2752,64.9199 84.2737,64.9275 84.2754,64.9346 84.2799,64.9403 84.2860,64.9459 84.2928,64.9510 84.3004,64.9556 84.3173,64.9631 84.3738,64.9804 84.3817,64.9861 84.3878,64.9939 84.3899,65.0082 84.3890,65.0165 84.3868,65.0232 84.3835,65.0279 84.3789,65.0322 84.3702,65.0358 84.3599,65.0391 84.3460,65.0449 84.3321,65.0528 84.3157,65.0698 84.3100,65.0794 84.3088,65.0874 84.3108,65.0929 84.3138,65.0985 84.3376,65.1210 84.3584,65.1461 84.3891,65.1752 84.4035,65.1858 84.4112,65.1903 84.4197,65.1940 84.4392,65.1992 84.4970,65.2037 84.5072,65.2057 84.5165,65.2089 84.5243,65.2134 84.5556,65.2434 84.5606,65.2493 84.5641,65.2544 84.5669,65.2627 84.5821,65.2855 84.5849,65.2912 84.5859,65.2972 84.5865,65.3111 84.5833,65.3166 84.5678,65.3268 84.5602,65.3341 84.5522,65.3477 84.5463,65.3554 84.5388,65.3612 84.5248,65.3692 84.5202,65.3735 84.5159,65.3791 84.5078,65.3945 84.5097,65.4010 84.5153,65.4062 84.5417,65.4178 84.5482,65.4238 84.5512,65.4334 84.5478,65.4416 84.5245,65.4677 84.5069,65.4952 84.4993,65.5038 84.4797,65.5154 84.4688,65.5232 84.4543,65.5386 84.4430,65.5462 84.4309,65.5514 84.2056,65.5925 84.1968,65.5954 84.1955,65.5993 84.2012,65.6023 84.2118,65.6039 84.2616,65.6060 84.2919,65.6132 84.2984,65.6175 84.3015,65.6228 84.3030,65.6288 84.3045,65.6464 84.3066,65.6523 84.3197,65.6701 84.3216,65.6769 84.3204,65.6844 84.3098,65.6879 84.2970,65.6894 84.2115,65.6920 84.1881,65.6970 84.1693,65.7034 84.1532,65.7105 84.1464,65.7145 84.1294,65.7272 84.0751,65.7530 84.0633,65.7617 84.0452,65.7833 84.0391,65.7889 84.0319,65.7930 84.0129,65.7979 83.9660,65.8027 83.7446,65.8008 83.6510,65.7891 83.5933,65.7754 83.5863,65.7767 83.5801,65.7798 83.5191,65.8225 83.5119,65.8286 83.5107,65.8341 83.5151,65.8386 83.5213,65.8431 83.5252,65.8492 83.5267,65.8566 83.5205,65.8684 83.5199,65.8768 83.5208,65.8846 83.5250,65.8975 83.5256,65.9035 83.5222,65.9083 83.3740,65.9838 83.3534,65.9988 83.3395,66.0112 83.2971,66.0583 83.2938,66.0660 83.2949,66.0731 83.3002,66.0782 83.3464,66.1020 83.3529,66.1067 83.3575,66.1123 83.3610,66.1185 83.3638,66.1247 83.3675,66.1308 83.3734,66.1358 83.3815,66.1395 83.4711,66.1541 83.5094,66.1656 83.5256,66.1730 83.5323,66.1781 83.5360,66.1844 83.5363,66.1926 83.5311,66.1978 83.4540,66.2433 83.4218,66.2623 83.4160,66.2665 83.3952,66.2853 83.3563,66.3312 83.3445,66.3416 83.2879,66.3728 83.2705,66.3855 83.2634,66.3894 83.2429,66.3955 83.1434,66.4148 83.1347,66.4182 83.1251,66.4236 83.1028,66.4442 83.0963,66.4523 83.0919,66.4592 83.0839,66.4863 83.0814,66.5032 83.0817,66.5150 83.0848,66.5394 83.0845,66.5452 83.0824,66.5564 83.0808,66.5617 83.0796,66.5673 83.0789,66.5730 83.0790,66.5789 83.0868,66.6042 83.0899,66.6097 83.0964,66.6140 83.1059,66.6169 83.1824,66.6233 83.1994,66.6302 83.2068,66.6345 83.2235,66.6418 83.2752,66.6542 83.2857,66.6577 83.2938,66.6630 83.2975,66.6732 83.2955,66.6803 83.2910,66.6869 83.2847,66.6938 83.2607,66.7123 83.2471,66.7203 83.1972,66.7410 83.1878,66.7469 83.1829,66.7525 83.1798,66.7580 83.1786,66.7637 83.1765,66.7912 83.1730,66.8042 83.1684,66.8119 83.1628,66.8180 83.1313,66.8387 83.1231,66.8419 83.1130,66.8440 83.0787,66.8418 83.0679,66.8422 83.0585,66.8448 83.0421,66.8523 83.0357,66.8568 83.0310,66.8626 83.0354,66.8665 83.0513,66.8745 83.0564,66.8804 83.0529,66.8856 83.0427,66.8910 82.7967,66.9766 82.4574,67.1102 82.1182,67.2438 82.1177,67.2484 82.1224,67.2521 82.1317,67.2544 82.1851,67.2580 82.1933,67.2617 82.1957,67.2681 82.1888,67.2788 82.1883,67.2852 82.1939,67.2885 82.2036,67.2874 82.2359,67.2799 82.2474,67.2795 82.2573,67.2815 82.2627,67.2856 82.2634,67.2906 82.2561,67.2954 82.2298,67.3061 82.2269,67.3096 82.2334,67.3109 82.2570,67.3086 82.2702,67.3085 82.2823,67.3096 82.3535,67.3280 82.3589,67.3309 82.3553,67.3341 82.3461,67.3369 82.3041,67.3442 82.2922,67.3480 82.2938,67.3507 82.3030,67.3522 82.3169,67.3531 82.3275,67.3553 82.3327,67.3600 82.3294,67.3643 82.2891,67.3859 82.2570,67.4091 82.2523,67.4192 82.2551,67.4262 82.2638,67.4298 82.2697,67.4349 82.2789,67.4466 82.2844,67.4520 82.2975,67.4615 82.3308,67.4801 82.3367,67.4810 82.3701,67.4792 82.3754,67.4806 82.3717,67.4840 82.3646,67.4883 82.3567,67.4945 82.3557,67.5003 82.3601,67.5053 82.3669,67.5097 82.3748,67.5139 82.3878,67.5236 82.3912,67.5289 82.3900,67.5342 82.3814,67.5353 82.3606,67.5333 82.3530,67.5333 82.3526,67.5366 82.3573,67.5491 82.3573,67.5571 82.3488,67.5609 82.3389,67.5631 82.3285,67.5623 82.2870,67.5527 82.2755,67.5515 82.2637,67.5522 82.2529,67.5545 82.2031,67.5751 82.1874,67.5851 82.1743,67.5904 82.1432,67.5960 82.1270,67.6007 82.1106,67.6090 82.0959,67.6230 82.0778,67.6367 82.0608,67.6468 82.0501,67.6546 82.0498,67.6601 82.0548,67.6647 82.0626,67.6685 82.1019,67.6805 82.1096,67.6837 82.1133,67.6864 82.1077,67.6880 82.0881,67.6900 82.0865,67.6932 82.0904,67.6973 82.0963,67.7022 82.1021,67.7081 82.1043,67.7150 82.1013,67.7244 82.0526,67.7483 82.0442,67.7512 82.0346,67.7526 82.0243,67.7514 82.0075,67.7472 82.0010,67.7476 81.9933,67.7510 81.9824,67.7572 81.9655,67.7693 81.9540,67.7760 81.9413,67.7800 81.9134,67.7825 81.8960,67.7888 81.8827,67.7993 81.8478,67.8339 81.8008,67.8676 81.7862,67.8755 81.7691,67.8826 81.7589,67.8880 81.7315,67.9075 81.7274,67.9163 81.7265,67.9238 81.7309,67.9295 81.7430,67.9396 81.7571,67.9483 81.7660,67.9507 81.7787,67.9509 81.8049,67.9472 81.8521,67.9363 81.8781,67.9329 81.9039,67.9343 81.9381,67.9409 81.9698,67.9570 81.9789,67.9602 81.9892,67.9623 82.0090,67.9622 82.0212,67.9607 82.0602,67.9485 82.3545,67.9435 82.3656,67.9459 82.3726,67.9511 82.3763,67.9585 82.3772,67.9694 82.3857,67.9896 82.3870,67.9950 82.3873,67.9985 82.3870,68.0014 82.3819,68.0270 82.3826,68.0347 82.3857,68.0422 82.3898,68.0491 82.3932,68.0572 82.3919,68.0632 82.3879,68.0684 82.3757,68.0781 82.3697,68.0843 82.3635,68.0936 82.3644,68.1006 82.3682,68.1069 82.3791,68.1179 82.3839,68.1255 82.3875,68.1353 82.3898,68.1625 82.3916,68.1707 82.3955,68.1766 82.4025,68.1811 82.4121,68.1844 82.4245,68.1857 82.4388,68.1854 82.4638,68.1809 82.5040,68.1684 82.5136,68.1667 82.5237,68.1678 82.5342,68.1703 82.5435,68.1740 82.5506,68.1791 82.5493,68.1836 82.5365,68.1952 82.5294,68.2050 82.5291,68.2127 82.5316,68.2198 82.5426,68.2307 82.5751,68.2554 82.5826,68.2596 82.6005,68.2668 82.6422,68.2781 82.6815,68.2828 82.6933,68.2858 82.7021,68.2923 82.7036,68.2980 82.7035,68.3039 82.6980,68.3201 82.6927,68.3310 82.6875,68.3453 82.6878,68.3523 82.6900,68.3592 82.6934,68.3656 82.6976,68.3718 82.7049,68.3871 82.7106,68.4141 82.6902,68.4718 82.6803,68.4918 82.6747,68.4975 82.6670,68.5040 82.6184,68.5344 82.5368,68.5604 82.4834,68.5717 82.4699,68.5766 82.4727,68.5795 82.4813,68.5819 82.5206,68.5867 82.5294,68.5907 82.5328,68.5984 82.5368,68.6107 82.5406,68.6140 82.5499,68.6134 82.5806,68.6056 82.5910,68.6046 82.6014,68.6059 82.6444,68.6161 82.6834,68.6299 82.8676,68.6278 82.9162,68.6345 82.9239,68.6390 82.9394,68.6439 83.0291,68.6614 83.0397,68.6673 83.0373,68.6719 83.0320,68.6764 83.0164,68.6839 82.8044,68.7418 82.7973,68.7465 82.7949,68.7538 82.7994,68.7598 82.8072,68.7666 82.8084,68.7720 82.8069,68.7772 82.7985,68.7868 82.7937,68.7913 82.7884,68.7950 82.7824,68.7969 82.7746,68.7962 82.7422,68.7901 82.7302,68.7892 82.5918,68.8106 82.5648,68.8186 82.5525,68.8269 82.5481,68.8336 82.5468,68.8403 82.5497,68.8653 82.5490,68.8720 82.5410,68.9085 82.5349,68.9267 82.5057,68.9739 82.4937,68.9868 82.4816,68.9951 82.4574,69.0009 82.4511,69.0032 82.4385,69.0077 82.4262,69.0105 82.3779,69.0157 82.3613,69.0208 82.3474,69.0290 82.3299,69.0465 82.3285,69.0557 82.3336,69.0620 82.3439,69.0652 82.3674,69.0696 82.4497,69.0766 82.4582,69.0797 82.4615,69.0842 82.4643,69.0890 82.4709,69.0930 82.4881,69.1010 82.4947,69.1054 82.4978,69.1105 82.4905,69.1145 82.4798,69.1186 82.4687,69.1244 82.4653,69.1322 82.4613,69.1550 82.4540,69.1619 82.4441,69.1669 82.4315,69.1696 82.4015,69.1727 82.3723,69.1719 82.2715,69.1574 82.2579,69.1567 81.8942,69.1827 81.8704,69.1873 81.8420,69.1964 81.7731,69.2329 81.7618,69.2422 81.7604,69.2472 81.7624,69.2524 81.7674,69.2574 81.8110,69.2851 81.8203,69.2886 81.8547,69.2961 81.9017,69.3143 81.9097,69.3186 81.9226,69.3287 81.9280,69.3347 81.9310,69.3412 81.9303,69.3493 81.9252,69.3548 81.9181,69.3596 81.7841,69.4287 81.7586,69.4363 81.6859,69.4465 81.6748,69.4463 81.6659,69.4433 81.6583,69.4392 81.6319,69.4196 81.6271,69.4148 81.6266,69.4095 81.6285,69.4044 81.6311,69.3992 81.6343,69.3882 81.6361,69.3767 81.6355,69.3706 81.6342,69.3642 81.6281,69.3513 81.6200,69.3392 81.6173,69.3335 81.6179,69.3287 81.6231,69.3243 81.6339,69.3169 81.6362,69.3144 81.6386,69.3104 81.6370,69.3056 81.6331,69.3002 81.6272,69.2950 81.6198,69.2905 81.6116,69.2864 81.5720,69.2733 81.5269,69.2629 81.4726,69.2568 81.4442,69.2567 81.3586,69.2836 81.3403,69.2857 81.3248,69.2856 81.2325,69.2660 81.1684,69.2399 80.9678,69.2091 80.9506,69.2100 80.9411,69.2139 80.9341,69.2190 80.9276,69.2261 80.9027,69.2358 80.8092,69.2619 80.7938,69.2686 80.7866,69.2739 80.7801,69.2842 80.7773,69.2900 80.7723,69.2956 80.7639,69.3023 80.7352,69.3081 80.4706,69.3197 80.2608,69.3557 80.2296,69.3577 80.1490,69.3528 80.1415,69.3545 80.1401,69.3568 80.1393,69.3609 80.1300,69.3617 80.1200,69.3602 80.1005,69.3540 80.0363,69.3541 80.0134,69.3497 79.9905,69.3426 79.9784,69.3413 79.9608,69.3419 79.9423,69.3475 79.9268,69.3507 79.9117,69.3524 79.8656,69.3486 79.8563,69.3507 79.8552,69.3545 79.8603,69.3590 79.8674,69.3633 79.8717,69.3680 79.8704,69.3729 79.8306,69.3902 79.8247,69.3947 79.8210,69.3997 79.8197,69.4051 79.8201,69.4171 79.8150,69.4233 79.8023,69.4256 79.7318,69.4291 79.7235,69.4324 79.7256,69.4363 79.7312,69.4405 79.7304,69.4465 79.7176,69.4508 79.6934,69.4559 79.6826,69.4609 79.6684,69.4743 79.6508,69.4839 79.6454,69.4914 79.6440,69.4982 79.6455,69.5045 79.6451,69.5104 79.6437,69.5161 79.6414,69.5215 79.6225,69.5467 79.6030,69.5657 79.5957,69.5791 79.5863,69.5883 79.5694,69.5936 79.5183,69.6040 79.5090,69.6094 79.5099,69.6139 79.5264,69.6216 79.5325,69.6256 79.5306,69.6300 79.5213,69.6337 79.5045,69.6375 79.4998,69.6428 79.4973,69.6484 79.4920,69.6545 79.4809,69.6571 79.4681,69.6572 79.4566,69.6550 79.4465,69.6518 79.4338,69.6498 79.4176,69.6498 79.1448,69.6821 79.1132,69.6826 79.0939,69.6848 79.0810,69.6885 79.0688,69.6935 79.0176,69.6988 79.0129,69.7034 79.0150,69.7080 79.1174,69.7316 79.1268,69.7349 79.1313,69.7388 79.1261,69.7438 79.0761,69.7489 79.0677,69.7530 79.0652,69.7585 79.0674,69.7644 79.0686,69.7713 79.0657,69.7783 79.0509,69.7877 79.0005,69.8011 78.9869,69.8064 78.9808,69.8117 78.9848,69.8164 78.9922,69.8195 79.0064,69.8241 79.0119,69.8278 79.0132,69.8331 79.0064,69.8365 78.9139,69.8609 78.8933,69.8695 78.8811,69.8761 78.8808,69.8797 78.8870,69.8806 78.9412,69.8768 78.9546,69.8782 78.9658,69.8806 79.0002,69.8928 79.0355,69.9117 79.0417,69.9165 79.0464,69.9216 79.0495,69.9264 79.0560,69.9301 79.0973,69.9340 79.1085,69.9368 79.1168,69.9409 79.1298,69.9507 79.1373,69.9553 79.1465,69.9593 79.1728,69.9633 79.1774,69.9686 79.1722,69.9783 79.1416,69.9981 79.1348,70.0084 79.1373,70.0145 79.1500,70.0158 79.1636,70.0153 79.1862,70.0104 79.1936,70.0104 79.1973,70.0146 79.1881,70.0261 79.1841,70.0339 79.1840,70.0414 79.1892,70.0463 79.1976,70.0504 79.2094,70.0528 79.2964,70.0586 79.3085,70.0568 79.3187,70.0530 79.3286,70.0473 79.3400,70.0451 79.3490,70.0462 79.3564,70.0500 79.3577,70.0569 79.3533,70.0662 79.3367,70.0817 79.3327,70.0913 79.3333,70.0991 79.3372,70.1051 79.3402,70.1110 79.3406,70.1168 79.3326,70.1388 79.3316,70.1436 79.3344,70.1476 79.3446,70.1498 79.3582,70.1514 79.3927,70.1500 79.4084,70.1467 79.4121,70.1441 79.3969,70.1381 79.3936,70.1321 79.3982,70.1272 79.4063,70.1230 79.4288,70.1168 79.4560,70.1119 79.4852,70.1098 79.4973,70.1117 79.5062,70.1154 79.5855,70.1744 79.6078,70.1880 79.6128,70.1931 79.6149,70.1987 79.6162,70.2044 79.6195,70.2102 79.6248,70.2156 79.6312,70.2207 79.6553,70.2332 79.6654,70.2365 79.7084,70.2393 79.7183,70.2424 79.7228,70.2479 79.7151,70.2586 79.7102,70.2678 79.7112,70.2750 79.7182,70.2796 79.7293,70.2824 79.7610,70.2813 79.7845,70.2756 79.7946,70.2721 79.8057,70.2694 79.8189,70.2678 79.8324,70.2683 79.8814,70.2781 79.9551,70.3088 79.9611,70.3137 80.0960,70.3534 80.1041,70.3582 80.1073,70.3646 80.1026,70.3752 80.0903,70.3847 80.0893,70.3918 80.0964,70.3954 80.1092,70.3967 80.1239,70.3956 80.1621,70.3892 80.1747,70.3900 80.1837,70.3933 80.1880,70.3988 80.1883,70.4055 80.1855,70.4130 80.1798,70.4231 80.1779,70.4296 80.1818,70.4343 80.1921,70.4351 80.2483,70.4277 80.2645,70.4273 80.2774,70.4288 80.2881,70.4320 80.2954,70.4365 80.3083,70.4468 80.3168,70.4508 80.3266,70.4544 80.3508,70.4599 80.5700,70.4608 80.5823,70.4583 80.5909,70.4540 80.5984,70.4483 80.6167,70.4317 80.6270,70.4241 80.6380,70.4203 80.6503,70.4195 80.6754,70.4218 80.6877,70.4211 80.6944,70.4163 80.6989,70.4094 80.7040,70.3991 80.7114,70.3935 80.7232,70.3906 80.7361,70.3917 80.7481,70.3940 80.7578,70.3978 80.7555,70.4019 80.7484,70.4061 80.7378,70.4108 80.7386,70.4155 80.7451,70.4192 80.7568,70.4208 80.7701,70.4199 80.7803,70.4182 80.7893,70.4183 80.7938,70.4226 80.7969,70.4284 80.7974,70.4340 80.7955,70.4383 80.7885,70.4394 80.7801,70.4388 80.7487,70.4435 80.7023,70.4438 80.6857,70.4459 80.6697,70.4504 80.6627,70.4556 80.6612,70.4617 80.6622,70.4679 80.6628,70.4735 80.6576,70.4779 80.6498,70.4818 80.6267,70.4894 80.6148,70.4952 80.6105,70.5011 80.6124,70.5071 80.6195,70.5115 80.6478,70.5150 80.6591,70.5182 80.6619,70.5267 80.6646,70.5322 80.6689,70.5385 80.6723,70.5453 80.6656,70.5588 80.6627,70.5669 80.6640,70.5736 80.6711,70.5776 80.7055,70.5858 80.7142,70.5899 80.7207,70.5949 80.7254,70.6008 80.7288,70.6072 80.7315,70.6135 80.7359,70.6193 80.7417,70.6247 80.7484,70.6297 80.7538,70.6352 80.7572,70.6414 80.7587,70.6485 80.7584,70.6556 80.7555,70.6637 80.7500,70.6693 80.7425,70.6740 80.7176,70.6856 80.7079,70.6889 80.6958,70.6908 80.6699,70.6911 80.6596,70.6924 80.6090,70.7102 80.5981,70.7163 80.5938,70.7222 80.5928,70.7287 80.5940,70.7349 80.5968,70.7414 80.6011,70.7474 80.6070,70.7528 80.6152,70.7571 80.6531,70.7722 80.6768,70.7856 80.6829,70.7907 80.6866,70.7961 80.6868,70.8012 80.6808,70.8054 80.6457,70.8198 80.6417,70.8235 80.5925,70.8403 80.5774,70.8481 80.5699,70.8543 80.5657,70.8604 80.5619,70.8712 80.5592,70.8766 80.5553,70.8886 80.5529,70.9002 80.5519,70.9120 80.5550,70.9490 80.5547,70.9669 80.5483,70.9945 80.5479,71.0032 80.5473,71.0076 80.5510,71.0444 80.5473,71.0540 80.5386,71.0594 80.5274,71.0635 80.4041,71.0912 79.9554,71.1341 79.5662,71.2774 79.4675,71.3006 79.3361,71.3152 79.2457,71.3167 79.2280,71.3208 79.2107,71.3284 79.1852,71.3449 79.1762,71.3550 79.1716,71.3634 79.1687,71.3766 79.1476,71.4073 79.1442,71.4152 79.1441,71.4217 79.1559,71.4319 79.1805,71.4450 79.3344,71.4811 79.3440,71.4848 79.3523,71.4893 79.3589,71.4943 79.3647,71.4997 79.3855,71.5305 79.3883,71.5371 79.3899,71.5435 79.3880,71.5509 79.3839,71.5590 79.3749,71.5714 79.3675,71.5787 79.3598,71.5849 79.3394,71.5979 79.3437,71.6016 79.3720,71.6124 79.3836,71.6150 79.3979,71.6156 79.4121,71.6142 79.4638,71.6032 79.4966,71.6001 79.5132,71.6002 79.5526,71.6069 79.8692,71.6017 79.9772,71.6174 79.9868,71.6212 79.9928,71.6259 80.0001,71.6329 80.0127,71.6420 80.0174,71.6470 80.0187,71.6521 80.0218,71.6569 80.0308,71.6598 80.0790,71.6599 80.0920,71.6617 80.1033,71.6646 80.1129,71.6690 80.1197,71.6749 80.1185,71.6872 80.1141,71.6987 80.0779,71.7563 80.0771,71.7647 80.0874,71.7681 80.1146,71.7688 80.1219,71.7741 80.1203,71.7787 80.1154,71.7837 80.0967,71.7970 80.0915,71.8018 80.0849,71.8062 80.0769,71.8098 80.0503,71.8125 80.0376,71.8153 80.0332,71.8198 80.0332,71.8252 80.0373,71.8308 80.0445,71.8356 80.0530,71.8399 80.0750,71.8464 80.1491,71.8538 80.1590,71.8571 80.1701,71.8655 80.1804,71.8666 80.2571,71.8542 80.2695,71.8551 80.2747,71.8607 80.2743,71.8696 80.2772,71.8744 80.2856,71.8745 80.3127,71.8716 80.3260,71.8725 80.3363,71.8757 80.3428,71.8803 80.3449,71.8854 80.3401,71.8898 80.3131,71.9013 80.3022,71.9047 80.2697,71.9106 80.2530,71.9165 80.2456,71.9239 80.2382,71.9342 80.2299,71.9397 80.2189,71.9425 80.2076,71.9413 80.1969,71.9392 80.1849,71.9386 80.1499,71.9438 80.1100,71.9499 80.0952,71.9544 80.0920,71.9599 80.0717,71.9678 80.0574,71.9714 80.0435,71.9769 80.0168,71.9834 79.9343,71.9875 79.9112,71.9863 79.9004,71.9883 79.8823,71.9949 79.8782,71.9980 79.8770,71.9994 79.8769,72.0018 79.8761,72.0054 79.8726,72.0148 79.8656,72.0207 79.8549,72.0252 79.6959,72.0577 79.6811,72.0578 79.6143,72.0426 79.5821,72.0415 79.4902,72.0467 79.4756,72.0451 79.4506,72.0398 79.4373,72.0396 79.4198,72.0434 79.4080,72.0523 79.3950,72.0572 79.3831,72.0602 79.3403,72.0576 79.2249,72.0760 79.1503,72.0773 79.1221,72.0735 79.1088,72.0730 79.0950,72.0759 79.0897,72.0806 79.0881,72.0866 79.0894,72.0926 79.0884,72.0997 79.0816,72.1046 79.0717,72.1085 79.0199,72.1195 78.9978,72.1218 78.9857,72.1217 78.9297,72.1156 78.9151,72.1162 78.9057,72.1192 78.9039,72.1240 78.9073,72.1293 78.9117,72.1346 78.9142,72.1395 78.9094,72.1438 78.8995,72.1472 78.7904,72.1691 78.7802,72.1727 78.7854,72.1753 78.7938,72.1781 78.7990,72.1820 78.7910,72.1844 78.7767,72.1850 78.6978,72.1803 78.6852,72.1818 78.6810,72.1862 78.6776,72.1923 78.6681,72.1965 78.6232,72.2045 78.6109,72.2082 78.6155,72.2102 78.6549,72.2161 78.6656,72.2195 78.6705,72.2249 78.6656,72.2290 78.6588,72.2324 78.6573,72.2360 78.6607,72.2410 78.6628,72.2476 78.6568,72.2583 78.6468,72.2658 78.6313,72.2751 78.6232,72.2818 78.6164,72.2885 78.6102,72.2959 78.5988,72.3002 78.5289,72.3078 78.5181,72.3111 78.4552,72.3412 78.4484,72.3476 78.4459,72.3538 78.4495,72.3591 78.4589,72.3644 78.4679,72.3680 78.5016,72.3771 78.5036,72.3817 78.5058,72.3812 78.5038,72.3878 78.5014,72.4015 78.4985,72.4082 78.4979,72.8399 78.4974,73.2717 78.5363,73.3050 78.5095,73.6182 78.4827,73.9314 78.4804,74.0337 78.8675,74.0466 79.2547,74.0595 79.6418,74.0725 80.0290,74.0854 80.4537,74.2658 80.8785,74.4463 81.3033,74.6268 81.7280,74.8072 82.1528,74.9877 82.5776,75.1682 83.0024,75.3486 83.4271,75.5291 83.6634,75.6295 84.1047,75.8170 84.5460,76.0045 84.9873,76.1920 85.4287,76.3794 85.8700,76.5669 86.3113,76.7544 86.7526,76.9419 87.1939,77.1294 87.6352,77.3169 88.0765,77.5044 88.5178,77.6919 88.9591,77.8794 88.9561,78.3162 88.9530,78.7529 88.9499,79.1897 88.9468,79.6265 88.9437,80.0632 88.9406,80.5000 88.4434,80.5000 87.9463,80.5000 87.4492,80.5000 86.9521,80.5000 86.4549,80.5000 85.9578,80.5000 85.4607,80.5000 84.9636,80.5000 84.4664,80.5000 83.9693,80.5000 83.4722,80.5000 82.9751,80.5000 82.4779,80.5000 81.9808,80.5000 81.4837,80.5000 80.9866,80.5000 80.4894,80.5000 79.9923,80.5000 79.4952,80.5000 78.9981,80.5000 78.5010,80.5000 78.5010,80.9000 78.5010,81.3000 78.9978,81.3000 79.4947,81.3000 79.9915,81.3000 80.4884,81.3000 80.9852,81.3000 81.4821,81.3000 81.9789,81.3000 82.4758,81.3000 82.9726,81.3000 83.4695,81.3000 83.9663,81.3000 84.4632,81.3000 84.9601,81.3000 85.4569,81.3000 85.9538,81.3000 86.4506,81.3000 86.9475,81.3000 87.4443,81.3000 87.9412,81.3000 88.4380,81.3000 88.9349,81.3000 88.9333,81.5186 89.4094,81.5200 89.8854,81.5214 90.3615,81.5229 90.8375,81.5243 91.3136,81.5257 91.7896,81.5272 92.2657,81.5286 92.7417,81.5300 93.2178,81.5315 93.6938,81.5329 94.1699,81.5343 94.6459,81.5358 95.1220,81.5372 95.5980,81.5386 96.0740,81.5401 96.5501,81.5415 97.0261,81.5430 97.5022,81.5444 97.9862,81.5430 98.4702,81.5415 98.9543,81.5401 99.4383,81.5387 99.9223,81.5372 100.4063,81.5358 100.8904,81.5344 101.3744,81.5329 101.8584,81.5315 102.3424,81.5301 102.8265,81.5286 103.3105,81.5272 103.7945,81.5258 104.2785,81.5243 104.7626,81.5229 105.2466,81.5215 105.7306,81.5200 106.2146,81.5186 106.6987,81.5172 107.1827,81.5157 107.6667,81.5143 108.1507,81.5129 108.6348,81.5115 109.1188,81.5100 109.6028,81.5086 110.0868,81.5072 110.5709,81.5057 111.0549,81.5043 111.5389,81.5029 112.0229,81.5014 112.5070,81.5000 112.5066,81.9722 112.5063,82.4444 112.5060,82.9167 112.5056,83.3889 112.5053,83.8611 112.5050,84.3333 112.5046,84.8056 112.5043,85.2778 112.5040,85.7500 112.5036,86.2222 112.5033,86.6944 112.5030,87.1667 112.5026,87.6389 112.5023,88.1111 112.5020,88.5833 112.5016,89.0556 112.5013,89.5278 112.5010,90.0000 112.5385,90.0000 113.0374,90.0000 113.5363,90.0000 114.0351,90.0000 114.5340,90.0000 115.0328,90.0000 115.5317,90.0000 116.0306,90.0000 116.5294,90.0000 117.0283,90.0000 117.5272,90.0000 118.0260,90.0000 118.5249,90.0000 119.0238,90.0000 119.5226,90.0000 120.0215,90.0000 120.5204,90.0000 121.0192,90.0000 121.5181,90.0000 122.0170,90.0000 122.5158,90.0000 123.0147,90.0000 123.5135,90.0000 124.0124,90.0000 124.5113,90.0000 125.0101,90.0000 125.5090,90.0000 126.0079,90.0000 126.5067,90.0000 127.0056,90.0000 127.5045,90.0000 134,12.0,Asia/Kamchatka -172.5085,70.5002 -172.5085,70.4921 -172.1081,70.2243 -171.7140,69.9568 -171.2470,69.6349 -170.8897,69.3839 -170.5365,69.1322 -170.1304,68.8373 -169.6985,68.5162 -169.3837,68.2502 -168.9942,68.0024 -169.0000,68.0000 -169.0000,67.5833 -169.0000,67.1667 -169.0000,66.7500 -169.0000,66.3333 -169.0000,65.9167 -169.0000,65.5000 -169.4172,65.3087 -169.8344,65.1173 -170.2517,64.8820 -170.6331,64.6929 -171.0603,64.4773 -171.4084,64.2995 -171.8261,64.0843 -172.3313,63.8214 -172.6073,63.6769 -173.0180,63.4593 -173.4834,63.2109 -173.9472,62.9610 -174.1489,62.8515 -174.4284,62.6997 -174.7603,62.5173 -175.1048,62.3278 -175.4666,62.1266 -175.9658,61.8479 -176.1718,61.7319 -176.5912,61.4946 -176.7450,61.4068 -176.9831,61.2712 -177.1209,61.1921 -177.3828,61.0418 -177.7901,60.8065 -178.0788,60.6386 -178.4064,60.4472 -178.8089,60.2107 -179.0563,60.0648 -179.3729,59.8768 -179.6932,59.6857 -179.9984,59.5028 -179.9905,59.9524 -179.9905,60.2857 -179.9905,60.6190 -179.9905,60.9524 -179.9905,61.2857 -179.9905,61.6190 -179.9905,61.9524 -179.9905,62.2857 -179.9905,62.6190 -179.9905,62.9524 -179.9905,63.2857 -179.9905,63.6190 -179.9905,63.9524 -179.9905,64.4524 -179.9905,64.9524 -179.9905,65.2857 -179.9905,65.6190 -179.9905,65.9524 -179.9905,66.2857 -179.9905,66.6190 -179.9905,66.9524 -179.9905,67.2857 -179.9905,67.6190 -179.9905,67.9524 -179.9905,68.2857 -179.9905,68.6190 -179.9905,68.9524 -179.9905,69.2857 -179.9905,69.6190 -179.9905,69.9524 -179.9905,70.2857 -179.9905,70.6190 -179.9905,70.9524 -179.9905,71.2857 -179.9905,71.6190 -179.9905,71.9524 -179.9905,72.2857 -179.9905,72.6190 -179.9905,72.9524 -179.9905,73.2857 -179.9905,73.6190 -179.9905,73.9524 -179.9905,74.2857 -179.9905,74.6190 -179.9905,74.9524 -179.9905,74.9524 -179.9905,74.9939 -180.0000,75.0000 -179.4380,74.6890 -178.9907,74.4390 -178.7295,74.2916 -178.5561,74.1929 -178.3247,74.0612 -178.1640,73.9690 -177.9976,73.8732 -177.8257,73.7738 -177.6486,73.6711 -177.4664,73.5648 -177.2873,73.4603 -177.0768,73.3365 -176.9085,73.2373 -176.6989,73.1130 -176.5136,73.0030 -176.2988,72.8743 -176.1045,72.7580 -175.9176,72.6450 -175.6827,72.5029 -175.4435,72.3568 -175.2499,72.2386 -175.0018,72.0854 -174.8079,71.9657 -174.5949,71.8327 -174.3581,71.6850 -174.1325,71.5424 -173.9025,71.3970 -173.6604,71.2421 -173.4425,71.1026 -173.1903,70.9390 -172.9799,70.8025 -172.8579,70.7223 -172.7272,70.6362 -172.6071,70.5571 -172.5164,70.4974 -172.5085,70.5002 1552,4.5,Asia/Kabul 71.0246,38.4419 71.0330,38.4237 71.0395,38.4153 71.0498,38.4087 71.0571,38.4090 71.0649,38.4118 71.0770,38.4122 71.0894,38.4099 71.1174,38.3986 71.1559,38.3762 71.2177,38.3258 71.3001,38.2987 71.3344,38.2807 71.3582,38.2513 71.3645,38.2068 71.3591,38.1841 71.3409,38.1409 71.3345,38.1117 71.3160,38.0833 71.3024,38.0423 71.2726,37.9980 71.2659,37.9725 71.2558,37.9499 71.2545,37.9393 71.2583,37.9265 71.2635,37.9244 71.2712,37.9262 71.2818,37.9250 71.3198,37.9006 71.3412,37.8933 71.3610,37.9020 71.3792,37.9129 71.5012,37.9462 71.5371,37.9445 71.5673,37.9281 71.5977,37.8984 71.5903,37.8914 71.5934,37.8793 71.5950,37.8575 71.5942,37.8338 71.5903,37.8157 71.5747,37.7980 71.5378,37.7790 71.5295,37.7611 71.5312,37.7518 71.5403,37.7305 71.5425,37.7196 71.5409,37.7097 71.5295,37.6786 71.5248,37.6477 71.5221,37.6376 71.5172,37.6292 71.5051,37.6160 71.5015,37.6103 71.4972,37.5665 71.5112,37.4859 71.5015,37.4458 71.4902,37.4234 71.4871,37.4091 71.4947,37.3707 71.4965,37.3285 71.4939,37.3075 71.4879,37.2950 71.4870,37.2671 71.4501,37.2167 71.4511,37.2101 71.4538,37.1926 71.4468,37.1836 71.4410,37.1684 71.4332,37.1273 71.4311,37.0670 71.4332,37.0547 71.4392,37.0441 71.4564,37.0225 71.4600,37.0107 71.4600,36.9698 71.4631,36.9481 71.4717,36.9300 71.5285,36.8561 71.5385,36.8361 71.5453,36.7900 71.5529,36.7696 71.5639,36.7507 71.5774,36.7333 71.6111,36.7048 71.6530,36.6870 71.6999,36.6786 71.7485,36.6786 71.7976,36.6861 71.8366,36.6992 72.1267,36.8727 72.1528,36.8957 72.1868,36.9114 72.1959,36.9190 72.2104,36.9366 72.2203,36.9455 72.2598,36.9673 72.3610,37.0003 72.4059,37.0077 72.4750,36.9975 72.5087,37.0111 72.6577,37.0288 72.6666,37.0383 72.6727,37.0576 72.7144,37.1100 72.7610,37.1875 72.7907,37.2203 72.8305,37.2398 72.8774,37.2469 72.9022,37.2538 72.9243,37.2748 72.9956,37.3093 73.0675,37.3151 73.0878,37.3261 73.0967,37.3369 73.0992,37.3399 73.1164,37.3691 73.1321,37.3844 73.1702,37.4083 73.1790,37.4107 73.2006,37.4042 73.2115,37.4083 73.2603,37.4500 73.2761,37.4595 73.2963,37.4649 73.3212,37.4670 73.3450,37.4645 73.3619,37.4564 73.3784,37.4525 73.4406,37.4799 73.4853,37.4810 73.5747,37.4547 73.6050,37.4458 73.6745,37.4310 73.7178,37.4318 73.7535,37.4284 73.7471,37.4031 73.7459,37.3949 73.7457,37.3529 73.7391,37.3383 73.7358,37.3352 73.7222,37.3225 73.7050,37.3110 73.6904,37.3052 73.6520,37.3021 73.6310,37.2960 73.6099,37.2814 73.5973,37.2618 73.6016,37.2409 73.6177,37.2332 73.6599,37.2437 73.6805,37.2425 73.6880,37.2369 73.7024,37.2212 73.7092,37.2170 73.7200,37.2175 73.7362,37.2277 73.7461,37.2305 73.7687,37.2289 73.7840,37.2259 73.7982,37.2285 73.8362,37.2567 73.8402,37.2577 73.8564,37.2616 73.8993,37.2655 73.9556,37.2868 73.9767,37.2903 74.0522,37.3122 74.1633,37.3301 74.1876,37.3384 74.2060,37.3557 74.2077,37.3899 74.2239,37.4034 74.2504,37.4037 74.2794,37.3975 74.3038,37.4002 74.3156,37.4269 74.3209,37.4139 74.3324,37.4204 74.3438,37.4210 74.3536,37.4159 74.3682,37.3964 74.3781,37.3938 74.3894,37.3934 74.4183,37.3892 74.4359,37.3923 74.4548,37.3936 74.4766,37.3861 74.5127,37.3772 74.5212,37.3756 74.5298,37.3758 74.6314,37.3811 74.6604,37.3940 74.7885,37.3312 74.8169,37.3069 74.8528,37.2581 74.8595,37.2489 74.8626,37.2446 74.8868,37.2336 74.8854,37.2336 74.8854,37.2336 74.8845,37.2336 74.8861,37.2328 74.8923,37.2311 74.8131,37.2154 74.7948,37.2140 74.7842,37.2197 74.7449,37.2884 74.7383,37.2961 74.7224,37.2978 74.7223,37.2977 74.7215,37.2978 74.7094,37.2908 74.6989,37.2803 74.6763,37.2637 74.6709,37.2613 74.6510,37.2596 74.6463,37.2548 74.6430,37.2484 74.6300,37.2383 74.6272,37.2343 74.6233,37.2308 74.6155,37.2285 74.6100,37.2302 74.5975,37.2408 74.5910,37.2434 74.5902,37.2433 74.5900,37.2434 74.5759,37.2421 74.5446,37.2350 74.5322,37.2322 74.5001,37.2316 74.4873,37.2259 74.4766,37.2101 74.4676,37.1899 74.4567,37.1773 74.4416,37.1705 74.4207,37.1681 74.3832,37.1720 74.3830,37.1720 74.3823,37.1720 74.3683,37.1671 74.3663,37.1492 74.3661,37.1478 74.3826,37.1266 74.4144,37.1078 74.4766,37.0831 74.4941,37.0665 74.4997,37.0571 74.5058,37.0470 74.5192,37.0302 74.5424,37.0217 74.5474,37.0157 74.5480,37.0136 74.5493,37.0089 74.5481,37.0016 74.5442,36.9940 74.5395,36.9720 74.5374,36.9622 74.5214,36.9585 74.5017,36.9724 74.4836,36.9940 74.4803,36.9969 74.4766,36.9993 74.4570,37.0044 74.4356,37.0032 74.4157,36.9988 74.3940,36.9940 74.3681,36.9768 74.2870,36.9355 74.2846,36.9342 74.2357,36.9022 74.2117,36.8951 74.1460,36.9017 74.1297,36.8984 74.1153,36.8895 74.1088,36.8756 74.1039,36.8413 74.0943,36.8312 74.0353,36.8156 74.0064,36.8157 73.9767,36.8248 73.9469,36.8309 73.8651,36.8726 73.8341,36.8829 73.7729,36.8920 73.7095,36.8942 73.6401,36.8966 73.5093,36.8787 73.4769,36.8829 73.4459,36.8865 73.3797,36.8792 73.3318,36.8821 73.2819,36.8680 73.2675,36.8665 73.2527,36.8680 73.2235,36.8743 73.1918,36.8770 73.0425,36.8643 73.0263,36.8595 73.0023,36.8461 72.9905,36.8416 72.9768,36.8421 72.9459,36.8522 72.9211,36.8474 72.8969,36.8370 72.8677,36.8304 72.7794,36.8268 72.6959,36.8367 72.6296,36.8329 72.5652,36.8206 72.5167,36.8006 72.4541,36.7580 72.4331,36.7534 72.3873,36.7558 72.3462,36.7449 72.3020,36.7427 72.2136,36.7264 72.1697,36.7114 72.1535,36.7021 72.1496,36.6893 72.1646,36.6701 72.1716,36.6536 72.1542,36.6455 72.0961,36.6389 72.0709,36.6323 72.0591,36.6271 72.0504,36.6186 72.0522,36.6104 72.0563,36.6019 72.0550,36.5929 72.0388,36.5805 71.9978,36.5724 71.9770,36.5630 71.9609,36.5496 71.9135,36.5276 71.8997,36.5183 71.8876,36.5080 71.8747,36.4991 71.8586,36.4942 71.7938,36.4907 71.7732,36.4800 71.7746,36.4484 71.7915,36.4213 71.7944,36.4076 71.7826,36.3965 71.7669,36.3918 71.7510,36.3911 71.7363,36.3959 71.7069,36.4214 71.6493,36.4528 71.6291,36.4595 71.6104,36.4579 71.6007,36.4493 71.5887,36.4185 71.5804,36.4023 71.5723,36.3917 71.5472,36.3716 71.5422,36.3564 71.5527,36.3410 71.5584,36.3279 71.5389,36.3193 71.5146,36.3152 71.4958,36.3096 71.4791,36.3005 71.4028,36.2314 71.3824,36.2186 71.3191,36.2006 71.3140,36.1940 71.3090,36.1727 71.3021,36.1633 71.2927,36.1579 71.2623,36.1461 71.2231,36.1254 71.2177,36.1181 71.2126,36.0968 71.2076,36.0876 71.1754,36.0612 71.1659,36.0457 71.1709,36.0270 71.1819,36.0188 71.2179,36.0027 71.2319,35.9940 71.2574,35.9716 71.2843,35.9625 71.3125,35.9574 71.3416,35.9473 71.3564,35.9331 71.3607,35.9003 71.3713,35.8851 71.4167,35.8588 71.4310,35.8437 71.4644,35.7947 71.4709,35.7799 71.4721,35.7700 71.4710,35.7613 71.4711,35.7523 71.4756,35.7410 71.4814,35.7341 71.4961,35.7246 71.5027,35.7191 71.5154,35.7015 71.5198,35.6838 71.5140,35.6656 71.4959,35.6466 71.4833,35.6266 71.4927,35.6096 71.5128,35.5963 71.5679,35.5742 71.5842,35.5642 71.5935,35.5494 71.5929,35.5302 71.5860,35.5121 71.5817,35.4931 71.5878,35.4709 71.5934,35.4642 71.6007,35.4555 71.6140,35.4432 71.6224,35.4296 71.6209,35.4101 71.6111,35.3955 71.5623,35.3606 71.5316,35.3279 71.5298,35.3009 71.5478,35.2756 71.6032,35.2234 71.6337,35.2031 71.6379,35.1897 71.6293,35.1701 71.6041,35.1382 71.5350,35.0986 71.5089,35.0720 71.5075,35.0282 71.5130,35.0181 71.5113,35.0087 71.5043,35.0006 71.4934,34.9942 71.4934,34.9941 71.4933,34.9941 71.4933,34.9940 71.4854,34.9835 71.4767,34.9603 71.4696,34.9497 71.4600,34.9427 71.4452,34.9378 71.3249,34.8976 71.2895,34.8750 71.2708,34.8443 71.2556,34.8102 71.2031,34.7482 71.1895,34.7371 71.1509,34.7203 71.0806,34.6729 71.0702,34.6612 71.0688,34.6459 71.0763,34.6236 71.0799,34.6029 71.0766,34.5785 71.0658,34.5585 71.0475,34.5511 71.0070,34.5563 70.9858,34.5562 70.9687,34.5497 70.9570,34.5320 70.9556,34.5100 70.9612,34.4876 70.9708,34.4689 70.9915,34.4431 71.0198,34.4144 71.0509,34.3898 71.1220,34.3568 71.1264,34.3322 71.0971,34.2625 71.0969,34.2443 71.1065,34.2094 71.1095,34.1892 71.1081,34.1652 71.1018,34.1518 71.0739,34.1253 71.0628,34.1053 71.0639,34.0889 71.0673,34.0730 71.0626,34.0543 71.0467,34.0419 70.9977,34.0333 70.9771,34.0274 70.9657,34.0138 70.9540,34.0048 70.9397,34.0009 70.9212,34.0022 70.8943,34.0094 70.8843,34.0070 70.8800,33.9943 70.8622,33.9648 70.7913,33.9536 70.6562,33.9548 70.5220,33.9387 70.4915,33.9396 70.4090,33.9544 70.3282,33.9573 70.3099,33.9617 70.2756,33.9762 70.2188,33.9807 70.0028,34.0438 69.9691,34.0457 69.9160,34.0389 69.8893,34.0312 69.8726,34.0172 69.8704,34.0013 69.8739,33.9863 69.8720,33.9715 69.8542,33.9564 69.8411,33.9418 69.8472,33.9269 69.8765,33.9026 69.8854,33.8895 69.8988,33.8515 69.9075,33.8356 69.9313,33.8064 69.9401,33.7915 69.9472,33.7720 69.9575,33.7527 69.9727,33.7448 69.9965,33.7421 70.0118,33.7403 70.0656,33.7210 70.1082,33.7273 70.1181,33.7165 70.1266,33.6770 70.1325,33.6614 70.1369,33.6563 70.1460,33.6499 70.1625,33.6432 70.1702,33.6387 70.1741,33.6321 70.1735,33.6079 70.1530,33.5447 70.1514,33.5259 70.1550,33.5066 70.1638,33.4887 70.1776,33.4734 70.1855,33.4690 70.2134,33.4613 70.2204,33.4560 70.2278,33.4399 70.2330,33.4326 70.2857,33.3829 70.3016,33.3518 70.2944,33.3189 70.1248,33.1990 70.1054,33.1898 70.0837,33.1913 70.0598,33.1981 70.0480,33.1941 70.0145,33.1408 70.0069,33.1318 69.9947,33.1273 69.9657,33.1294 69.9558,33.1277 69.8809,33.0892 69.8387,33.0867 69.7718,33.1148 69.7330,33.1093 69.6860,33.0808 69.6678,33.0770 69.6588,33.0784 69.6502,33.0819 69.6407,33.0842 69.6083,33.0791 69.5878,33.0795 69.5475,33.0750 69.5142,33.0567 69.4877,33.0284 69.4685,32.9943 69.4872,32.8859 69.4773,32.8568 69.4714,32.8522 69.4456,32.8357 69.4211,32.8068 69.3872,32.7853 69.3763,32.7719 69.3781,32.7523 69.3832,32.7445 69.3904,32.7379 69.3992,32.7330 69.4077,32.7299 69.4147,32.7256 69.4172,32.7180 69.4191,32.7005 69.4291,32.6674 69.4260,32.6551 69.4139,32.6355 69.3612,32.5685 69.3435,32.5561 69.3021,32.5438 69.2820,32.5328 69.2516,32.5005 69.2329,32.4627 69.2280,32.4213 69.2385,32.3783 69.2644,32.3224 69.2681,32.3013 69.2670,32.2796 69.2600,32.2368 69.2595,32.1945 69.2519,32.1523 69.2510,32.1306 69.2706,32.0360 69.3022,31.9599 69.3048,31.9469 69.3012,31.9413 69.2988,31.9377 69.2509,31.9070 69.2238,31.8819 69.1143,31.7378 69.1001,31.7240 69.0848,31.7158 69.0716,31.6979 69.0401,31.6731 69.0040,31.6511 68.9773,31.6415 68.9410,31.6437 68.9070,31.6343 68.8435,31.6065 68.8038,31.6026 68.7773,31.6186 68.7312,31.6755 68.7054,31.7013 68.6979,31.7159 68.6949,31.7564 68.6883,31.7686 68.6758,31.7747 68.6195,31.7835 68.5611,31.8118 68.5275,31.8230 68.5051,31.8227 68.4815,31.8157 68.4382,31.7960 68.4187,31.7830 68.4222,31.7732 68.4396,31.7666 68.4614,31.7636 68.5213,31.7648 68.5406,31.7625 68.5498,31.7535 68.5368,31.7410 68.5152,31.7300 68.4980,31.7252 68.4610,31.7305 68.3561,31.7625 68.3165,31.7652 68.2769,31.7636 68.2550,31.7664 68.2426,31.7769 68.2323,31.7902 68.2068,31.8079 68.1848,31.8182 68.1591,31.8259 68.1386,31.8247 68.1257,31.8115 68.1045,31.7688 68.0935,31.7516 68.0605,31.7256 68.0556,31.7166 68.0523,31.6954 68.0466,31.6884 67.9941,31.6634 67.9773,31.6519 67.9661,31.6382 67.9552,31.6332 67.9147,31.6314 67.8843,31.6356 67.8707,31.6352 67.8427,31.6235 67.7812,31.5642 67.7267,31.5314 67.6963,31.5208 67.6655,31.5181 67.6005,31.5305 67.5690,31.5299 67.5561,31.5122 67.5634,31.4973 67.5781,31.4821 67.5911,31.4648 67.5970,31.4257 67.6115,31.4108 67.6314,31.4001 67.6511,31.3953 67.7343,31.4048 67.7704,31.3947 67.7751,31.3528 67.7647,31.3341 67.7494,31.3280 67.7090,31.3293 67.6928,31.3252 67.6789,31.3166 67.6659,31.3063 67.6022,31.2711 67.5837,31.2652 67.5302,31.2566 67.4933,31.2430 67.4339,31.2361 67.3646,31.2107 67.3462,31.2078 67.2822,31.2128 67.2303,31.2106 67.2138,31.2123 67.1932,31.2185 67.1567,31.2359 67.1368,31.2411 67.1169,31.2403 67.0785,31.2320 67.0582,31.2324 67.0353,31.2359 67.0229,31.2394 67.0153,31.2447 67.0139,31.2527 67.0179,31.2587 67.0234,31.2649 67.0260,31.2730 67.0239,31.2953 67.0168,31.3091 67.0021,31.3159 66.9433,31.3147 66.9059,31.3055 66.8385,31.2770 66.8086,31.2547 66.7853,31.2318 66.7595,31.2148 66.7213,31.2103 66.6970,31.1958 66.6631,31.0831 66.6440,31.0602 66.5500,30.9770 66.5275,30.9683 66.3923,30.9446 66.3754,30.9367 66.3663,30.9229 66.2680,30.6014 66.2649,30.5578 66.2819,30.5181 66.3061,30.4911 66.3138,30.4783 66.3194,30.4578 66.3218,30.4374 66.3030,30.3053 66.3053,30.2448 66.3009,30.2256 66.2363,30.1116 66.2217,30.0737 66.2193,30.0579 66.2252,30.0444 66.2604,30.0231 66.3016,29.9867 66.3324,29.9661 66.3405,29.9566 66.3368,29.9520 66.3284,29.9495 66.3224,29.9465 66.3018,29.9157 66.2752,29.8852 66.1956,29.8353 66.1105,29.8136 66.0524,29.7989 65.9943,29.7840 65.9361,29.7693 65.8782,29.7545 65.8201,29.7397 65.7621,29.7249 65.7040,29.7102 65.6458,29.6953 65.5878,29.6806 65.5297,29.6657 65.4717,29.6510 65.4137,29.6362 65.3558,29.6214 65.2976,29.6066 65.2395,29.5918 65.1814,29.5771 65.0364,29.5402 64.9866,29.5416 64.8203,29.5679 64.6839,29.5688 64.4777,29.5704 64.2077,29.5000 64.1726,29.4843 64.1498,29.4585 64.1134,29.3963 64.0861,29.3866 63.9720,29.4296 63.7879,29.4606 63.5686,29.4975 63.4160,29.4850 63.3668,29.4809 63.3178,29.4769 63.2687,29.4729 63.2197,29.4688 63.1707,29.4648 63.1216,29.4608 63.0726,29.4568 63.0640,29.4560 63.0236,29.4527 62.9745,29.4486 62.9255,29.4446 62.8765,29.4406 62.8275,29.4366 62.7784,29.4325 62.7294,29.4285 62.6804,29.4245 62.6313,29.4204 62.4775,29.4078 62.3745,29.4249 62.2794,29.4515 62.1963,29.4749 62.1130,29.4982 62.0296,29.5216 61.9465,29.5450 61.8632,29.5684 61.7799,29.5918 61.6966,29.6152 61.6134,29.6385 61.5302,29.6619 61.4469,29.6853 61.3637,29.7086 61.2804,29.7320 61.1972,29.7553 61.1140,29.7787 61.0306,29.8022 60.9474,29.8255 60.8760,29.8455 60.8444,29.8582 60.9022,29.9169 60.9781,29.9941 60.9784,29.9944 61.1330,30.1543 61.2017,30.2253 61.2156,30.2397 61.2583,30.2839 61.2722,30.2983 61.3804,30.4103 61.4617,30.4945 61.4617,30.4946 61.5762,30.6139 61.7026,30.7455 61.7852,30.8314 61.8023,30.8471 61.7998,30.8524 61.7984,30.8535 61.7999,30.8715 61.8024,30.8785 61.8084,30.8814 61.8045,30.9497 61.8002,30.9614 61.8193,30.9939 61.8264,31.0150 61.8263,31.0346 61.8215,31.0545 61.8093,31.0871 61.7918,31.1189 61.7893,31.1293 61.7877,31.1586 61.7792,31.1811 61.7524,31.2191 61.7427,31.2395 61.7423,31.2594 61.7492,31.3024 61.7423,31.3209 61.7065,31.3598 61.6869,31.3732 61.6612,31.3819 61.4909,31.4031 61.2948,31.4276 61.1251,31.4489 61.1235,31.4491 60.9560,31.4701 60.8550,31.4827 60.8217,31.4947 60.8100,31.5884 60.7950,31.6367 60.7926,31.6601 60.8053,31.7340 60.7915,31.8265 60.7893,31.8750 60.7967,31.9368 60.7950,31.9585 60.7910,31.9692 60.7861,31.9790 60.7840,31.9893 60.7926,32.0113 60.7867,32.0169 60.7783,32.0210 60.7749,32.0272 60.7827,32.0425 60.8088,32.0712 60.8148,32.0879 60.8283,32.1674 60.8303,32.2489 60.7963,32.3559 60.7523,32.4946 60.7117,32.6103 60.6749,32.7156 60.6401,32.8155 60.6062,32.9124 60.5775,32.9943 60.5629,33.0583 60.5615,33.1373 60.5676,33.1513 60.6160,33.2062 60.6703,33.2677 60.7190,33.3230 60.7570,33.3663 60.7859,33.3878 60.8186,33.4049 60.8291,33.4163 60.8347,33.4363 60.8328,33.4535 60.8293,33.4701 60.8322,33.4845 60.8499,33.4944 60.8973,33.4970 60.9121,33.5015 60.9198,33.5126 60.9209,33.5141 60.9120,33.5284 60.8951,33.5411 60.8796,33.5487 60.8460,33.5558 60.8074,33.5582 60.7339,33.5549 60.6556,33.5599 60.5748,33.5878 60.5118,33.6384 60.4869,33.7114 60.4949,33.7441 60.5258,33.8021 60.5280,33.8414 60.4994,33.9943 60.4868,34.0943 60.4928,34.1390 60.5209,34.1861 60.5524,34.2201 60.5874,34.2503 60.6350,34.2712 60.6506,34.2854 60.6437,34.3066 60.7144,34.3101 60.8160,34.3153 60.8905,34.3189 60.8791,34.3376 60.8049,34.4175 60.7891,34.4435 60.7794,34.4551 60.7673,34.4642 60.7428,34.4735 60.7339,34.4804 60.7253,34.5043 60.7189,34.5112 60.7103,34.5151 60.6997,34.5164 60.7144,34.5374 60.7393,34.5480 60.7940,34.5541 60.8190,34.5599 60.8385,34.5709 60.8839,34.6137 60.8889,34.6217 60.8954,34.6283 60.9089,34.6347 60.9228,34.6365 60.9358,34.6357 60.9475,34.6380 60.9580,34.6494 60.9620,34.6738 60.9587,34.6996 60.9599,34.7232 60.9780,34.7406 61.0096,34.7610 61.0291,34.7897 61.0348,34.8062 61.0655,34.8147 61.0734,34.8477 61.0777,34.8830 61.0770,34.8917 61.0726,34.9103 61.0715,34.9206 61.0748,34.9331 61.0889,34.9519 61.0920,34.9615 61.0953,34.9810 61.1099,35.0185 61.1159,35.0599 61.1231,35.0742 61.1473,35.1021 61.1368,35.1112 61.1352,35.1194 61.1379,35.1283 61.1399,35.1397 61.1371,35.1439 61.1295,35.1523 61.1015,35.1832 61.0964,35.1932 61.1023,35.1977 61.1124,35.2020 61.1128,35.2117 61.1079,35.2213 61.1023,35.2256 61.1016,35.2353 61.1025,35.2567 61.1083,35.2780 61.1227,35.2877 61.1378,35.2880 61.1440,35.2881 61.1679,35.2914 61.1871,35.3004 61.1951,35.3181 61.1904,35.3696 61.1951,35.3901 61.2008,35.4011 61.2218,35.4242 61.2273,35.4345 61.2360,35.4658 61.2470,35.4851 61.2705,35.5084 61.2838,35.5273 61.2900,35.5481 61.2876,35.5683 61.2770,35.6092 61.2697,35.6185 61.2833,35.6226 61.3357,35.6309 61.3442,35.6309 61.3515,35.6278 61.3609,35.6210 61.3601,35.6184 61.3515,35.6071 61.3639,35.5982 61.3655,35.5985 61.3677,35.5980 61.3835,35.5865 61.3839,35.5821 61.3800,35.5713 61.3803,35.5673 61.3869,35.5595 61.3932,35.5536 61.4012,35.5498 61.4126,35.5483 61.4277,35.5428 61.4927,35.4942 61.5387,35.4523 61.6047,35.4306 61.7396,35.4138 61.7990,35.4175 61.9194,35.4518 61.9777,35.4509 62.0075,35.4389 62.0338,35.4240 62.1363,35.3414 62.1639,35.3262 62.2190,35.3063 62.2337,35.2938 62.2443,35.2781 62.2512,35.2604 62.2526,35.2428 62.2510,35.2023 62.2569,35.1872 62.2757,35.1510 62.2862,35.1406 62.3020,35.1475 62.3993,35.2559 62.4319,35.2806 62.4589,35.2819 62.5246,35.2322 62.5355,35.2274 62.5455,35.2280 62.5554,35.2304 62.5662,35.2308 62.5956,35.2206 62.6045,35.2194 62.6211,35.2227 62.6936,35.2484 62.7086,35.2560 62.7216,35.2664 62.7342,35.2807 62.7605,35.3024 62.8231,35.3275 62.8276,35.3293 62.9182,35.3882 62.9853,35.4146 63.0055,35.4184 63.0370,35.4206 63.0471,35.4214 63.0668,35.4256 63.0802,35.4371 63.0863,35.4557 63.0905,35.4935 63.1007,35.5250 63.0972,35.5355 63.0806,35.5465 63.0774,35.5588 63.0749,35.6098 63.0766,35.6247 63.1032,35.6460 63.1799,35.6665 63.2077,35.6832 63.2136,35.6923 63.2144,35.6993 63.2094,35.7045 63.1839,35.7123 63.1773,35.7169 63.1633,35.7323 63.1120,35.7699 63.1057,35.7829 63.1013,35.8006 63.0937,35.8103 63.0913,35.8133 63.0844,35.8261 63.0886,35.8434 63.0999,35.8529 63.1041,35.8565 63.1253,35.8602 63.3429,35.8563 63.4302,35.8710 63.5111,35.9018 63.5259,35.9127 63.5496,35.9390 63.5634,35.9506 63.5821,35.9590 63.6023,35.9627 63.7257,35.9689 63.7659,35.9773 63.8599,36.0221 63.8898,36.0296 63.9063,36.0317 63.9220,36.0337 63.9500,36.0289 64.0451,35.9987 64.0456,36.0113 64.0364,36.0586 64.0362,36.0764 64.0446,36.0923 64.0573,36.1052 64.1234,36.1461 64.1587,36.1603 64.1959,36.1659 64.2371,36.1604 64.2537,36.1548 64.2661,36.1525 64.2761,36.1592 64.2919,36.1994 64.3037,36.2115 64.3189,36.2198 64.3372,36.2260 64.4109,36.2399 64.4446,36.2500 64.4777,36.2716 64.4982,36.2914 64.5767,36.3896 64.5944,36.4242 64.6059,36.4611 64.6105,36.5009 64.6078,36.5216 64.5937,36.5598 64.5890,36.5802 64.5888,36.6005 64.5920,36.6211 64.6048,36.6606 64.6214,36.6926 64.7652,36.9046 64.7788,36.9385 64.7746,36.9776 64.7556,37.0536 64.7602,37.0926 64.7788,37.1180 64.8079,37.1355 64.9891,37.2137 65.0631,37.2332 65.1623,37.2353 65.4879,37.2420 65.5014,37.2423 65.5369,37.2571 65.5832,37.3081 65.6113,37.3311 65.6241,37.3451 65.6295,37.3654 65.6289,37.3875 65.6210,37.4304 65.6257,37.4528 65.6358,37.4741 65.6482,37.4938 65.6483,37.4939 65.6483,37.4940 65.6483,37.4941 65.6587,37.5103 65.6688,37.5206 65.6810,37.5264 65.6983,37.5294 65.7394,37.5291 65.7527,37.5379 65.7589,37.5641 65.7614,37.5784 65.7765,37.5729 65.7965,37.5693 65.8043,37.5653 65.8211,37.5352 65.8291,37.5256 65.8361,37.5192 65.8552,37.5079 66.0797,37.4409 66.0979,37.4284 66.1256,37.3987 66.1429,37.3851 66.1631,37.3769 66.1746,37.3755 66.2077,37.3769 66.2185,37.3748 66.2325,37.3654 66.2419,37.3633 66.2508,37.3597 66.2577,37.3568 66.2744,37.3433 66.2944,37.3312 66.3207,37.3291 66.3896,37.3472 66.4135,37.3496 66.4236,37.3457 66.4387,37.3279 66.4511,37.3229 66.4615,37.3244 66.4699,37.3298 66.4852,37.3434 66.5029,37.3557 66.5196,37.3642 66.5390,37.3691 66.5646,37.3707 66.5886,37.3685 66.6547,37.3461 66.6670,37.3443 66.6941,37.3434 66.7047,37.3465 66.7244,37.3601 66.7350,37.3633 66.8658,37.3679 66.9576,37.3852 67.0059,37.3844 67.0241,37.3775 67.0641,37.3546 67.0851,37.3496 67.0974,37.3406 67.1139,37.2972 67.1233,37.2820 67.1435,37.2719 67.1878,37.2582 67.2080,37.2435 67.2180,37.2263 67.2253,37.2077 67.2368,37.1924 67.2591,37.1851 67.2815,37.1887 67.3196,37.2084 67.3452,37.2130 67.3695,37.2147 67.3912,37.2196 67.4113,37.2279 67.4311,37.2398 67.4640,37.2663 67.4824,37.2774 67.5031,37.2820 67.5261,37.2729 67.5450,37.2315 67.5614,37.2199 67.5722,37.2232 67.5799,37.2327 67.5860,37.2426 67.5923,37.2472 67.6027,37.2483 67.6218,37.2529 67.6332,37.2541 67.6446,37.2512 67.6664,37.2380 67.6775,37.2335 67.6902,37.2323 67.7259,37.2335 67.7466,37.2294 67.7643,37.2209 67.7760,37.2075 67.7805,37.1889 67.7720,37.1250 67.7731,37.1100 67.7854,37.0965 67.8080,37.0832 67.8329,37.0731 67.8781,37.0644 67.8920,37.0520 67.9025,37.0344 67.9184,37.0138 67.9293,37.0062 67.9529,36.9962 67.9618,36.9899 67.9962,36.9558 68.0020,36.9475 68.0061,36.9387 68.0111,36.9309 68.0202,36.9257 68.0248,36.9255 68.0327,36.9252 68.0447,36.9292 68.0549,36.9346 68.1211,36.9803 68.1334,36.9865 68.1520,36.9928 68.1680,37.0061 68.1864,37.0183 68.2126,37.0213 68.2537,37.0102 68.2778,37.0101 68.2883,37.0244 68.2816,37.0665 68.2808,37.0867 68.2883,37.1032 68.3073,37.1142 68.3267,37.1130 68.3461,37.1069 68.3658,37.1032 68.3919,37.1054 68.4115,37.1134 68.4180,37.1283 68.4037,37.1516 68.4658,37.1554 68.5133,37.1640 68.5239,37.1647 68.5327,37.1690 68.5465,37.1882 68.5515,37.1926 68.5714,37.1947 68.6088,37.2041 68.6269,37.2063 68.6308,37.2138 68.6364,37.2299 68.6486,37.2444 68.6712,37.2472 68.6655,37.2594 68.6627,37.2637 68.6575,37.2677 68.6689,37.2783 68.6869,37.2790 68.7259,37.2745 68.7465,37.2762 68.7596,37.2752 68.7713,37.2707 68.8085,37.2516 68.8204,37.2509 68.8246,37.2606 68.8220,37.2820 68.8102,37.3121 68.8138,37.3234 68.8358,37.3291 68.8568,37.3249 68.8680,37.3121 68.8770,37.2961 68.8903,37.2820 68.9047,37.2767 68.9158,37.2791 68.9211,37.2880 68.9176,37.3024 68.9130,37.3068 68.8968,37.3165 68.8903,37.3229 68.8851,37.3348 68.8879,37.3381 68.8937,37.3372 68.8972,37.3360 68.9654,37.3291 68.9852,37.3204 69.0055,37.3055 69.0210,37.2880 69.0358,37.2516 69.0556,37.2371 69.0784,37.2252 69.0964,37.2130 69.1143,37.1775 69.1236,37.1692 69.1457,37.1570 69.1510,37.1550 69.2457,37.1039 69.2658,37.1054 69.2856,37.1129 69.3086,37.1169 69.3121,37.1175 69.3239,37.1210 69.3348,37.1291 69.3508,37.1441 69.3912,37.1647 69.4077,37.1775 69.4421,37.2236 69.4452,37.2364 69.4269,37.2395 69.4099,37.2457 69.4179,37.2677 69.4097,37.2767 69.4031,37.3112 69.3946,37.3261 69.3894,37.3329 69.3864,37.3415 69.3849,37.3509 69.3845,37.3601 69.3858,37.3631 69.3885,37.3638 69.3909,37.3653 69.3912,37.3707 69.3883,37.3751 69.3789,37.3771 69.3770,37.3807 69.3763,37.4189 69.3784,37.4374 69.3845,37.4533 69.3896,37.4588 69.4040,37.4669 69.4117,37.4725 69.4156,37.4775 69.4218,37.4895 69.4254,37.4942 69.4697,37.5201 69.4914,37.5370 69.5087,37.5790 69.5287,37.5860 69.6650,37.5762 69.6873,37.5796 69.7296,37.5941 69.7543,37.5967 69.7622,37.5958 69.7845,37.5904 69.7918,37.5861 69.8022,37.5815 69.8127,37.5858 69.8230,37.5930 69.8329,37.5967 69.8533,37.6012 69.8952,37.6182 69.9188,37.6171 69.9352,37.6057 69.9445,37.5897 69.9554,37.5755 69.9766,37.5693 69.9895,37.5673 69.9947,37.5623 69.9985,37.5556 70.0042,37.5514 70.0076,37.5488 70.0169,37.5460 70.0480,37.5414 70.0417,37.5488 70.0692,37.5452 70.0991,37.5366 70.1291,37.5323 70.1579,37.5414 70.1927,37.5760 70.1994,37.5793 70.2019,37.5880 70.2165,37.6171 70.2184,37.6174 70.2377,37.6181 70.2410,37.6171 70.2461,37.6213 70.2483,37.6233 70.2539,37.6308 70.2552,37.6375 70.2539,37.6466 70.2536,37.6546 70.2577,37.6581 70.2626,37.6609 70.2751,37.6755 70.2770,37.6880 70.2805,37.6960 70.2831,37.7048 70.2819,37.7196 70.2718,37.7487 70.2696,37.7626 70.2751,37.7742 70.2656,37.7812 70.2565,37.7918 70.2499,37.8049 70.2472,37.8192 70.2403,37.8276 70.2075,37.8356 70.1960,37.8399 70.1792,37.8608 70.1652,37.8899 70.1605,37.9207 70.1721,37.9461 70.1922,37.9329 70.2147,37.9293 70.2381,37.9324 70.2615,37.9393 70.2537,37.9474 70.2502,37.9556 70.2504,37.9641 70.2539,37.9734 70.2609,37.9765 70.2727,37.9782 70.2838,37.9819 70.2887,37.9908 70.2938,37.9961 70.3180,38.0063 70.3263,38.0113 70.3712,38.0583 70.4154,38.0945 70.4260,38.1006 70.4601,38.1122 70.4703,38.1205 70.4826,38.1374 70.5085,38.1925 70.5379,38.2381 70.5472,38.2627 70.5594,38.2682 70.5730,38.2711 70.5831,38.2751 70.5966,38.3092 70.5967,38.3176 70.5956,38.3278 70.5958,38.3382 70.6000,38.3471 70.6093,38.3512 70.6321,38.3501 70.6414,38.3542 70.6767,38.3749 70.6848,38.3867 70.6649,38.3986 70.6649,38.4054 70.6833,38.4146 70.7418,38.4194 70.7542,38.4365 70.7611,38.4435 70.7773,38.4465 70.8089,38.4464 70.8180,38.4450 70.8341,38.4406 70.8430,38.4402 70.8498,38.4428 70.8536,38.4474 70.8593,38.4517 70.8710,38.4532 70.9122,38.4377 70.9362,38.4330 70.9468,38.4432 70.9435,38.4659 70.9507,38.4731 70.9740,38.4737 70.9868,38.4709 70.9982,38.4657 71.0086,38.4586 71.0186,38.4498 71.0246,38.4419 799,4.0,Asia/Dubai 53.8927,26.2933 54.0613,26.2897 54.1422,26.3148 54.2691,26.3541 54.2662,26.2294 54.3237,26.0944 54.3137,26.0571 54.2829,25.9421 54.2872,25.8642 54.3426,25.7671 54.4394,25.7046 54.5311,25.6861 54.6069,25.6982 54.6839,25.7434 54.7481,25.8174 54.7747,25.8807 54.7775,25.9366 54.7130,26.0714 54.7005,26.0977 54.7573,26.2455 54.7966,26.2863 54.8098,26.2905 54.9264,26.3279 55.0334,26.3937 55.0966,26.4160 55.1391,26.4073 55.2387,26.3469 55.2956,26.3367 55.3133,26.3394 55.3826,26.3496 55.6896,26.4432 55.8384,26.4085 55.9323,26.4172 56.0253,26.4664 56.2230,26.6291 56.2523,26.6363 56.3807,26.6235 56.5050,26.6733 56.5657,26.7354 56.6588,26.8924 56.7065,26.8788 56.7470,26.8457 56.8213,26.7132 56.8623,26.5728 56.8510,26.4024 56.9094,26.2387 56.9614,25.9885 56.9879,25.9261 57.0661,25.8134 57.1047,25.6998 57.1358,25.6523 57.1879,25.6114 57.2585,25.5808 57.5475,25.5240 57.6944,25.4413 57.7747,25.4286 57.8695,25.4348 57.9709,25.3788 58.1056,25.3449 58.1989,25.3390 58.4083,25.3779 58.6835,25.3623 58.7629,25.3404 58.8956,25.2304 59.0105,25.1938 59.1532,25.1895 59.3422,25.2321 59.4159,25.2370 59.5890,25.1952 59.7197,25.1879 59.8574,25.1481 60.0152,25.1503 60.1771,25.1136 60.2705,25.1253 60.3890,25.0721 60.5885,25.0750 60.7181,25.0598 60.9985,25.0034 61.1312,24.9384 61.2144,24.9132 61.4347,24.8720 61.4525,24.8742 61.5674,24.8884 61.6688,24.8400 61.7580,24.8272 61.8897,24.8459 62.0770,24.9122 62.3111,24.8810 62.4297,24.9027 62.5131,24.9340 62.6165,25.0310 62.6738,25.0509 62.7736,25.0483 62.9941,25.0151 63.2040,25.0320 63.4642,24.9987 63.5462,25.0001 63.6599,25.0451 63.7823,25.1585 63.8961,25.1296 64.1824,25.1026 64.5350,24.9709 64.6450,24.9579 64.7345,24.9823 64.8860,25.0725 64.9451,25.0937 65.1908,25.0883 65.3623,25.1586 65.6666,25.1395 65.8941,25.2019 66.2170,25.2530 66.2979,25.2541 66.4369,25.1718 66.4693,25.1299 66.4707,25.0721 66.4262,24.8467 66.4320,24.7875 66.4570,24.7304 66.5046,24.6782 66.5589,24.6474 66.6301,24.6328 66.8235,24.6251 66.8817,24.6008 66.9282,24.5602 67.0339,24.3643 67.0845,24.1297 67.1308,24.0080 67.3192,23.7394 67.4379,23.6565 67.5131,23.6242 67.5131,23.3482 67.5130,23.0723 67.5117,23.0711 67.5117,22.6051 67.5117,22.1391 67.5117,21.6731 67.5117,21.2070 67.5117,20.7410 67.5117,20.2750 67.5117,19.8090 67.5117,19.3430 67.5117,18.8769 67.5117,18.4224 67.5117,17.9679 67.5117,17.5133 67.5117,17.0588 67.5117,16.6042 67.5117,16.1497 67.5117,15.6951 67.5117,15.2406 67.5117,14.7860 67.5117,14.3315 67.5117,13.8769 67.5117,13.4458 67.5117,13.0146 67.5117,12.5834 67.5117,12.1522 67.5117,11.6714 67.5117,11.1906 67.5117,10.7098 67.5117,10.2290 67.5117,9.7482 67.5117,9.2673 67.5117,8.7865 67.5117,8.3057 67.5117,7.8249 67.5117,7.3704 67.5117,6.9158 67.5117,6.4613 67.5117,6.0067 67.5117,5.5522 67.5117,5.0976 67.5117,4.6431 67.5117,4.1885 67.5117,3.7340 67.5117,3.2795 67.5117,2.8249 67.5117,2.3704 67.5117,1.9158 67.5117,1.4613 67.5117,1.0067 67.5117,0.5522 67.5117,0.0976 67.5117,-0.3569 67.5117,-0.8115 67.5117,-1.2660 67.5117,-1.7205 67.5117,-2.1751 67.5117,-2.6296 67.5117,-3.0842 67.5117,-3.5387 67.5117,-3.9933 67.5117,-4.4478 67.5117,-4.9024 67.5117,-5.3569 67.5117,-5.8115 67.5117,-6.2660 67.5117,-6.7205 67.5117,-7.1751 67.5117,-7.6296 67.5117,-8.0842 67.5117,-8.5387 67.5117,-8.9933 67.5117,-9.4478 67.5117,-9.9024 67.5117,-10.3569 67.5117,-10.8115 67.5117,-11.2660 67.5117,-11.7205 67.5117,-12.1751 67.5117,-12.6296 67.5117,-13.0842 67.5117,-13.5387 67.5117,-13.9933 67.5117,-14.4478 67.5117,-14.9024 67.5117,-15.3569 67.5117,-15.8115 67.5117,-16.2660 67.5117,-16.7205 67.5117,-17.1751 67.5117,-17.6296 67.5117,-18.0842 67.5117,-18.5387 67.5117,-18.9933 67.5117,-19.4478 67.5117,-19.9024 67.5117,-20.3569 67.5117,-20.8115 67.5117,-21.2660 67.5117,-21.7205 67.5117,-22.1751 67.5117,-22.6576 67.5117,-23.1401 67.5117,-23.6225 67.5117,-24.1050 67.5117,-24.5875 67.5117,-25.0420 67.5117,-25.4966 67.5117,-25.9511 67.5117,-26.4057 67.5117,-26.8602 67.5117,-27.3148 67.5117,-27.7693 67.5117,-28.2239 67.5117,-28.6784 67.5117,-29.1329 67.5117,-29.5875 67.5117,-30.0420 67.5117,-30.4966 67.5117,-30.9511 67.5117,-31.4057 67.5117,-31.8602 67.5117,-32.3148 67.5117,-32.7693 67.5117,-33.2239 67.5117,-33.6784 67.5117,-34.1329 67.5117,-34.5875 67.5117,-35.0420 67.5117,-35.4966 67.5117,-35.9511 67.5117,-36.4057 67.5117,-36.8602 67.5117,-37.3148 67.5117,-37.7693 67.5117,-38.2239 67.5117,-38.6784 67.5117,-39.1329 67.5117,-39.5875 67.5117,-40.0475 67.5117,-40.5075 67.5117,-40.9675 67.5117,-41.4275 67.5117,-41.8875 67.5117,-42.3420 67.5117,-42.7966 67.5117,-43.2511 67.5117,-43.7057 67.5117,-44.1602 67.5117,-44.6148 67.5117,-45.0693 67.5117,-45.5239 67.5117,-45.9784 67.5117,-46.4329 67.5117,-46.8875 67.5117,-47.3420 67.5117,-47.7966 67.5117,-48.2511 67.5117,-48.7057 67.5117,-49.1602 67.5117,-49.6148 67.5117,-50.0693 67.5117,-50.5239 67.5117,-50.9784 67.5117,-51.4329 67.5117,-51.8875 67.5117,-52.3420 67.5117,-52.7966 67.5117,-53.2511 67.5117,-53.7057 67.5117,-54.1602 67.5117,-54.6148 67.5117,-55.0693 67.5117,-55.5239 67.5117,-55.9784 67.5117,-56.4329 67.5117,-56.8875 67.5117,-57.3420 67.5117,-57.7966 67.5117,-58.2511 67.5117,-58.7057 67.5117,-59.1602 67.5117,-59.6148 67.5117,-60.0693 67.5117,-60.5239 67.5117,-60.9784 67.5117,-61.4329 67.5117,-61.8875 67.5117,-62.3420 67.5117,-62.7966 67.5117,-63.2511 67.5117,-63.7057 67.5117,-64.1602 67.5117,-64.6148 67.5117,-65.0693 67.5117,-65.5239 67.5117,-65.9784 67.5117,-66.4329 67.5117,-66.8875 67.5117,-67.2509 67.5117,-67.6144 67.4189,-67.5988 67.3235,-67.5828 67.2056,-67.5700 67.0520,-67.5684 66.7309,-67.5865 66.5787,-67.5874 66.1701,-67.5589 65.7614,-67.5303 65.3527,-67.5018 64.9440,-67.4733 64.5936,-67.4087 64.2403,-67.3604 64.0725,-67.3415 63.7060,-67.3124 63.5896,-67.3113 63.2809,-67.3301 62.9722,-67.3488 62.8141,-67.3755 62.6283,-67.4321 62.4993,-67.4065 62.1840,-67.3710 62.0269,-67.3630 61.6596,-67.3460 61.4768,-67.3507 61.2269,-67.2891 60.9945,-67.2647 60.6999,-67.1968 60.5818,-67.1805 60.3807,-67.1792 59.9808,-67.2053 59.5847,-67.1989 59.5482,-67.1601 59.4831,-67.1245 59.2196,-67.0248 59.1151,-66.9942 59.0129,-66.9771 58.8886,-66.9659 58.5657,-66.9614 58.4890,-66.9555 58.3473,-66.9182 58.1995,-66.8986 58.0876,-66.8654 57.8418,-66.8132 57.7971,-66.7897 57.7738,-66.7580 57.7702,-66.5849 57.7532,-66.5316 57.6977,-66.4741 57.6010,-66.4162 57.4131,-66.3437 57.0416,-66.2336 56.9108,-66.2131 56.5681,-66.1879 56.3968,-66.1188 56.2043,-65.9842 56.1437,-65.9601 56.0413,-65.9339 55.9533,-65.8880 55.8816,-65.8640 55.4123,-65.7566 55.3027,-65.7396 54.8251,-65.7109 54.3475,-65.6823 54.0940,-65.6818 53.9139,-65.6534 53.7657,-65.6468 53.5986,-65.6572 53.3259,-65.6987 53.0819,-65.7180 52.7550,-65.7595 52.6305,-65.7664 52.5212,-65.7681 52.5212,-65.2910 52.5212,-64.8139 52.5212,-64.3368 52.5212,-63.8597 52.5212,-63.3826 52.5212,-62.9055 52.5212,-62.4284 52.5211,-61.9513 52.5211,-61.4742 52.5211,-61.0196 52.5211,-60.5651 52.5211,-60.1105 52.5211,-59.6560 52.5211,-59.2014 52.5211,-58.7469 52.5211,-58.2923 52.5211,-57.8378 52.5211,-57.3833 52.5211,-56.9287 52.5211,-56.4742 52.5211,-56.0196 52.5211,-55.5651 52.5211,-55.1105 52.5211,-54.6560 52.5211,-54.2014 52.5211,-53.7469 52.5211,-53.2923 52.5211,-52.8378 52.5211,-52.3833 52.5211,-51.9287 52.5211,-51.4742 52.5211,-51.0231 52.5211,-50.5720 52.5211,-50.1209 52.5211,-49.6698 52.5211,-49.2187 52.5211,-48.7676 52.5211,-48.3165 52.5211,-47.8654 52.5211,-47.4144 52.5211,-46.9633 52.5210,-46.4655 52.5210,-45.9678 52.5210,-45.4701 52.5210,-44.9724 52.5210,-44.4726 52.5210,-43.9729 52.5210,-43.4731 52.5210,-42.9734 52.5210,-42.4737 52.5210,-41.9739 52.5210,-41.4742 52.5210,-41.0142 52.5210,-40.5542 52.5210,-40.0942 52.5210,-39.6342 52.5210,-39.1742 52.5210,-38.7196 52.5210,-38.2651 52.5210,-37.8105 52.5210,-37.3560 52.5210,-36.9014 52.5210,-36.4469 52.5210,-35.9923 52.5210,-35.5378 52.5210,-35.0833 52.5210,-34.6287 52.5210,-34.1742 52.5210,-33.7196 52.5210,-33.2651 52.5210,-32.8105 52.5210,-32.3560 52.5209,-31.9014 52.5209,-31.4469 52.5209,-30.9923 52.5209,-30.5378 52.5209,-30.0833 52.5209,-29.6287 52.5209,-29.1742 52.5209,-28.7196 52.5209,-28.2651 52.5209,-27.8105 52.5209,-27.3560 52.5209,-26.9014 52.5209,-26.4469 52.5209,-25.9923 52.5209,-25.5378 52.5209,-25.0833 52.5209,-24.6287 52.5209,-24.1742 52.5209,-23.6742 52.5209,-23.1742 52.5209,-22.6742 52.5209,-22.1742 52.5209,-21.7196 52.5209,-21.2651 52.5209,-20.8105 52.5209,-20.3560 52.5209,-19.9014 52.5209,-19.4469 52.5209,-18.9924 52.5209,-18.5378 52.5209,-18.0833 52.5209,-17.6287 52.5209,-17.1742 52.5208,-16.7196 52.5208,-16.2651 52.5208,-15.8105 52.5208,-15.3560 52.5208,-14.9014 52.5208,-14.4469 52.5208,-13.9924 52.5208,-13.5378 52.5208,-13.0833 52.5208,-12.6287 52.5208,-12.1742 52.5208,-11.8118 52.5208,-11.4495 52.5208,-11.0871 52.0566,-11.0864 51.5923,-11.0856 51.1281,-11.0849 50.6638,-11.0842 50.1996,-11.0834 49.9440,-10.8168 49.6883,-10.5502 49.4327,-10.2836 49.0762,-10.5610 48.7198,-10.8384 48.3434,-10.8292 47.9671,-10.8200 47.5908,-10.8107 47.2507,-10.7307 46.9106,-10.6506 46.5861,-10.7895 46.2617,-10.9283 45.8888,-10.9224 45.5159,-10.9165 45.1823,-10.6832 44.8488,-10.4498 44.8492,-10.0318 44.8496,-9.6139 44.8501,-9.1959 44.8505,-8.7780 44.8510,-8.3600 44.8514,-7.9421 45.3308,-7.9426 45.8101,-7.9430 46.2894,-7.9435 46.7688,-7.9440 47.2481,-7.9445 47.7274,-7.9450 48.2068,-7.9454 48.6861,-7.9459 49.1654,-7.9464 49.6448,-7.9469 50.1241,-7.9474 50.6035,-7.9478 51.0828,-7.9483 51.5621,-7.9488 52.0415,-7.9493 52.5208,-7.9498 52.5208,-7.5620 52.5208,-7.1742 52.5208,-6.7196 52.5208,-6.2651 52.5208,-5.8105 52.5208,-5.3560 52.5208,-4.9014 52.5208,-4.4469 52.5208,-3.9924 52.5208,-3.5378 52.5208,-3.0833 52.5208,-2.6287 52.5208,-2.1742 52.5207,-1.7196 52.5207,-1.2651 52.5207,-0.8105 52.5207,-0.3560 52.5207,0.0986 52.5207,0.5531 52.5207,1.0076 52.5207,1.4622 52.5207,1.9167 52.5207,2.3713 52.5207,2.8258 52.5207,3.2804 52.5207,3.7349 52.5207,4.1895 52.5207,4.6440 52.5207,5.0986 52.5207,5.5531 52.5207,6.0076 52.5207,6.4622 52.5207,6.9167 52.5207,7.3713 52.5207,7.8258 52.5207,8.2925 52.5207,8.7592 52.5207,9.2258 52.5207,9.6925 52.5207,10.1592 52.5207,10.6258 52.9980,10.6262 53.4753,10.6266 53.9526,10.6270 54.4299,10.6274 54.9071,10.6278 55.3844,10.6282 55.8617,10.6286 55.8617,11.1259 55.8617,11.6233 55.8617,12.1206 55.8617,12.6180 55.8617,13.1153 55.8617,13.6127 55.3845,13.6127 54.9073,13.6127 54.4301,13.6127 53.9529,13.6127 53.4757,13.6127 52.9985,13.6127 52.5213,13.6127 52.5213,14.0397 52.5213,14.4667 52.5213,14.8937 52.5213,15.3207 52.5213,15.7477 52.5213,16.1747 52.6342,16.2598 52.8805,16.3485 53.1269,16.4373 53.1749,16.4546 53.1266,16.5657 53.0904,16.6424 53.0279,16.7775 52.9653,16.9129 52.9027,17.0483 52.8403,17.1837 52.8016,17.2674 52.7910,17.2812 52.7739,17.2871 52.7362,17.2892 52.7215,17.2982 52.7230,17.2987 52.7283,17.2994 52.7301,17.2999 52.6984,17.3714 52.6556,17.4680 52.6128,17.5646 52.5702,17.6611 52.5488,17.7094 52.5274,17.7576 52.4845,17.8542 52.4417,17.9506 52.3990,18.0473 52.3562,18.1438 52.3133,18.2403 52.2707,18.3369 52.2278,18.4334 52.1850,18.5299 52.1423,18.6265 52.0995,18.7230 52.0567,18.8196 52.0140,18.9162 51.9786,18.9956 52.2611,19.0897 52.4321,19.1467 52.6031,19.2038 52.7744,19.2608 52.9455,19.3179 53.1166,19.3749 53.2878,19.4319 53.4589,19.4890 53.6300,19.5460 53.8011,19.6031 53.9722,19.6601 54.1435,19.7171 54.3146,19.7742 54.4856,19.8312 54.6567,19.8882 54.8279,19.9453 54.9784,19.9954 55.0105,20.0920 55.0171,20.1117 55.0357,20.1676 55.0645,20.2543 55.1019,20.3668 55.1462,20.5000 55.1955,20.6486 55.2483,20.8074 55.3029,20.9715 55.3575,21.1356 55.4102,21.2945 55.4596,21.4430 55.5038,21.5762 55.5140,21.6068 55.5155,21.6111 55.5412,21.6887 55.5701,21.7754 55.5886,21.8312 55.5952,21.8510 55.6376,21.9790 55.6370,22.0019 55.6267,22.0238 55.5736,22.1059 55.4928,22.2308 55.4120,22.3557 55.3311,22.4806 55.2504,22.6055 55.1868,22.7036 55.1204,22.6234 55.1053,22.6209 54.9686,22.6377 54.8294,22.6549 54.6903,22.6720 54.5513,22.6890 54.4124,22.7062 54.2733,22.7233 54.1343,22.7403 53.9953,22.7574 53.8561,22.7746 53.7171,22.7917 53.5781,22.8088 53.4389,22.8259 53.2999,22.8430 53.1609,22.8601 53.0218,22.8771 52.8828,22.8942 52.7438,22.9113 52.5831,22.9311 52.5585,22.9386 52.5385,22.9547 52.4848,23.0183 52.4326,23.0804 52.3805,23.1424 52.3283,23.2045 52.2763,23.2664 52.2241,23.3284 52.1720,23.3905 52.1198,23.4525 52.0677,23.5145 52.0155,23.5765 51.9634,23.6386 51.9112,23.7005 51.8590,23.7625 51.8068,23.8245 51.7548,23.8866 51.7026,23.9486 51.6505,24.0106 51.5935,24.0783 51.5785,24.1018 51.5732,24.1278 51.5752,24.1919 51.5755,24.2177 51.5696,24.2560 51.5699,24.2560 51.5912,24.2842 51.5923,24.3284 51.5744,24.3642 51.5940,24.3845 51.5953,24.3819 51.5953,24.4653 51.8585,24.5687 52.1216,24.6721 52.1760,24.7190 52.2476,24.7448 52.3148,24.7451 52.3880,24.7251 52.4785,24.6718 52.5213,24.6285 52.5213,24.9402 52.5213,25.4273 52.5213,25.9143 52.5213,26.4014 52.5213,26.8885 52.5213,26.9102 52.5213,27.0489 52.5213,27.0676 52.5195,27.0698 52.5110,27.1664 52.6842,27.0794 52.9054,26.9281 52.9227,26.8953 52.9283,26.7944 52.9460,26.7500 53.0003,26.6886 53.0847,26.6306 53.1687,26.6037 53.3824,26.5767 53.5229,26.4751 53.6883,26.4435 53.6923,26.4391 53.7796,26.3443 53.8927,26.2933 1832,3.5,Asia/Tehran 44.9825,39.4202 44.9877,39.4194 44.9986,39.4196 45.0064,39.4180 45.0099,39.4140 45.0121,39.4095 45.0156,39.4060 45.0517,39.3868 45.0572,39.3817 45.0605,39.3746 45.0686,39.3642 45.0787,39.3548 45.0880,39.3507 45.0960,39.3411 45.1143,39.3093 45.1204,39.2989 45.1289,39.2893 45.1358,39.2785 45.1463,39.2287 45.1527,39.2135 45.1789,39.2198 45.2831,39.1931 45.2857,39.1949 45.2926,39.1986 45.3017,39.2014 45.3111,39.2005 45.3139,39.1942 45.3113,39.1848 45.3111,39.1763 45.3209,39.1726 45.3349,39.1704 45.3482,39.1639 45.3539,39.1532 45.3453,39.1384 45.3519,39.1283 45.3606,39.1232 45.3699,39.1190 45.3793,39.1112 45.3835,39.1032 45.3913,39.0817 45.3964,39.0733 45.4058,39.0679 45.4297,39.0595 45.4345,39.0528 45.4323,39.0425 45.4282,39.0341 45.4253,39.0256 45.4271,39.0149 45.4386,39.0042 45.4598,38.9931 45.4826,38.9844 45.4945,38.9819 45.5103,38.9787 45.5308,38.9693 45.5431,38.9671 45.5708,38.9664 45.6278,38.9555 45.7169,38.9548 45.7911,38.9321 46.0018,38.8975 46.0680,38.8741 46.1261,38.8627 46.1359,38.8637 46.2025,38.8705 46.2199,38.8772 46.2719,38.9066 46.2913,38.9139 46.3045,38.9163 46.3434,38.9175 46.3676,38.9236 46.3782,38.9247 46.3919,38.9224 46.4961,38.8861 46.5140,38.8822 46.5321,38.8830 46.5537,38.8898 46.5698,38.8977 46.5854,38.9077 46.5992,38.9197 46.6107,38.9340 46.6388,38.9795 46.6522,38.9929 46.6704,39.0049 46.7284,39.0280 46.7448,39.0403 46.7616,39.0706 46.7738,39.0854 46.7815,39.0904 46.7981,39.0974 46.8060,39.1024 46.8117,39.1085 46.8374,39.1432 46.8510,39.1555 46.8662,39.1654 46.8830,39.1714 46.8987,39.1717 46.9266,39.1621 46.9416,39.1589 46.9538,39.1607 47.0136,39.1870 47.0205,39.1900 47.0309,39.1996 47.0361,39.2070 47.0529,39.2449 47.0891,39.2899 47.0925,39.2998 47.1022,39.3084 47.1501,39.3311 47.2278,39.3547 47.2497,39.3613 47.2914,39.3796 47.3245,39.4060 47.3742,39.4556 47.4069,39.4768 47.4488,39.4947 47.5155,39.5123 47.5187,39.5132 47.5412,39.5152 47.5541,39.5220 47.6070,39.5636 47.7453,39.6238 47.8038,39.6699 47.8231,39.6803 47.8469,39.6853 47.9229,39.6841 47.9352,39.6865 47.9457,39.6940 47.9573,39.7073 47.9714,39.7046 47.9907,39.6943 48.0520,39.6501 48.2201,39.4940 48.2886,39.4450 48.3167,39.4152 48.3389,39.3789 48.3284,39.3763 48.3025,39.3699 48.2499,39.3424 48.1872,39.3326 48.1535,39.3190 48.1246,39.2976 48.1062,39.2692 48.1043,39.2348 48.1178,39.2080 48.1422,39.1812 48.1991,39.1382 48.2563,39.1198 48.2713,39.1083 48.3015,39.0580 48.3068,39.0454 48.3063,39.0315 48.3016,39.0179 48.3014,39.0175 48.2937,39.0046 48.2846,38.9940 48.2845,38.9940 48.2845,38.9940 48.2844,38.9938 48.2844,38.9938 48.2432,38.9739 48.0585,38.9484 48.0551,38.9419 48.0553,38.9344 48.0524,38.9279 48.0000,38.9026 47.9907,38.8912 47.9931,38.8501 48.0130,38.8216 48.0780,38.7809 48.2104,38.7298 48.2230,38.7215 48.2256,38.7132 48.2303,38.6986 48.2262,38.6791 48.2280,38.6622 48.2765,38.6318 48.2922,38.6136 48.3103,38.6002 48.3411,38.5996 48.3918,38.6181 48.4153,38.6181 48.4267,38.5965 48.4337,38.5700 48.4466,38.5564 48.4627,38.5449 48.4791,38.5248 48.4959,38.5103 48.5108,38.4938 48.5356,38.4692 48.5486,38.4563 48.5759,38.4204 48.6079,38.3960 48.6130,38.3956 48.6591,38.3926 48.6832,38.3980 48.7103,38.4071 48.7356,38.4196 48.7553,38.4352 48.7777,38.4448 48.8097,38.4446 48.8388,38.4399 48.8581,38.4367 48.8748,38.4198 48.8748,38.4190 48.8752,38.4194 48.9581,38.4275 48.9605,38.4245 48.9683,38.4148 49.1215,38.4256 49.5271,38.5382 49.9327,38.6508 50.3384,38.7634 50.7440,38.8760 51.1496,38.9886 51.5552,39.1012 51.9065,38.8092 52.2577,38.5172 52.6089,38.2252 52.9602,37.9332 53.3114,37.6411 53.6627,37.3491 53.8224,37.3542 53.9305,37.3416 54.0048,37.3364 54.1866,37.3237 54.2064,37.3246 54.2245,37.3307 54.2430,37.3450 54.2615,37.3548 54.2833,37.3557 54.3064,37.3532 54.3285,37.3533 54.3642,37.3627 54.5333,37.4408 54.5560,37.4436 54.6169,37.4330 54.6390,37.4333 54.6540,37.4389 54.6786,37.4600 54.6983,37.4663 54.7108,37.4757 54.7583,37.5006 54.7837,37.5175 54.7883,37.5246 54.7914,37.5399 54.8051,37.5650 54.8082,37.5793 54.8094,37.6033 54.8082,37.6103 54.8036,37.6169 54.7918,37.6254 54.7883,37.6308 54.7873,37.6519 54.8037,37.6829 54.8082,37.7028 54.8136,37.7186 54.8267,37.7353 54.8566,37.7611 55.0068,37.8431 55.0535,37.8844 55.0614,37.8948 55.0666,37.9084 55.0787,37.9137 55.0928,37.9155 55.1035,37.9188 55.1108,37.9265 55.1217,37.9447 55.1303,37.9523 55.1496,37.9575 55.2074,37.9662 55.2197,37.9700 55.2288,37.9858 55.2505,37.9954 55.2961,38.0076 55.3075,38.0088 55.3281,38.0221 55.3488,38.0305 55.4231,38.0759 55.4474,38.0837 55.5110,38.0858 55.7087,38.1187 55.7384,38.1186 55.8003,38.1078 55.8394,38.0899 55.8541,38.0860 55.9050,38.0856 55.9219,38.0814 55.9491,38.0701 55.9630,38.0665 55.9784,38.0659 56.1215,38.0865 56.1619,38.0824 56.1667,38.0808 56.1978,38.0706 56.2141,38.0688 56.2997,38.0802 56.3155,38.0895 56.3255,38.1052 56.3290,38.1238 56.3242,38.1411 56.2971,38.1658 56.3034,38.1794 56.3664,38.2255 56.4001,38.2441 56.4365,38.2551 56.5282,38.2574 56.5452,38.2541 56.5592,38.2474 56.5718,38.2395 56.5852,38.2346 56.6013,38.2369 56.6815,38.2646 56.7294,38.2711 56.7390,38.2696 56.7782,38.2445 56.8124,38.2290 56.8279,38.2250 56.9784,38.2027 57.0180,38.1898 57.0384,38.1873 57.0565,38.1952 57.0704,38.2051 57.1028,38.2220 57.1147,38.2321 57.1348,38.2597 57.1466,38.2698 57.1640,38.2765 57.1749,38.2776 57.1859,38.2765 57.2073,38.2707 57.2183,38.2651 57.2211,38.2586 57.2216,38.2512 57.2258,38.2424 57.2488,38.2115 57.2669,38.1769 57.2786,38.1629 57.3114,38.1350 57.3229,38.1051 57.3443,38.0811 57.3493,38.0636 57.3468,38.0469 57.3271,37.9941 57.3524,37.9675 57.4963,37.9223 57.5121,37.9241 57.5277,37.9278 57.5446,37.9300 57.5614,37.9282 57.6123,37.9166 57.6611,37.9174 57.6761,37.9205 57.6912,37.9203 57.7046,37.9137 57.7171,37.9051 57.7299,37.8986 57.7348,37.8983 57.7384,37.8980 57.7547,37.9010 57.7630,37.8994 57.7700,37.8939 57.7791,37.8788 57.7850,37.8726 57.8000,37.8676 57.8164,37.8686 57.8333,37.8717 57.8495,37.8727 57.8841,37.8653 58.0409,37.8057 58.1069,37.7934 58.1406,37.7911 58.1567,37.7882 58.1735,37.7816 58.1812,37.7749 58.1813,37.7679 58.1791,37.7608 58.1799,37.7530 58.1958,37.7296 58.1993,37.7222 58.2019,37.7040 58.2020,37.6901 58.2068,37.6787 58.2239,37.6675 58.2409,37.6623 58.3188,37.6531 58.3315,37.6483 58.3578,37.6333 58.3718,37.6304 58.4623,37.6375 58.4797,37.6441 58.4931,37.6607 58.5023,37.6774 58.5143,37.6915 58.5298,37.7004 58.5493,37.7016 58.5657,37.6949 58.6159,37.6595 58.6591,37.6454 58.6817,37.6427 58.7043,37.6446 58.7129,37.6488 58.7192,37.6548 58.7264,37.6594 58.7377,37.6594 58.7590,37.6562 58.7693,37.6568 58.7798,37.6596 58.7931,37.6728 58.7956,37.6877 58.8011,37.6947 58.8610,37.6681 58.9387,37.6539 58.9781,37.6395 58.9922,37.6315 59.0055,37.6280 59.0346,37.6245 59.0456,37.6196 59.0783,37.5927 59.2117,37.5163 59.2331,37.5147 59.2892,37.5352 59.3123,37.5303 59.3323,37.5151 59.3517,37.4938 59.3563,37.4806 59.3532,37.4584 59.3592,37.4475 59.3620,37.4392 59.3579,37.4303 59.3517,37.4204 59.3483,37.4093 59.3507,37.3884 59.3704,37.3194 59.3820,37.3057 59.4447,37.2642 59.4635,37.2474 59.4694,37.2407 59.4681,37.2358 59.4645,37.2325 59.4631,37.2297 59.4618,37.2230 59.4588,37.2148 59.4617,37.2076 59.4782,37.2041 59.4847,37.1988 59.4927,37.1936 59.5012,37.1902 59.5095,37.1898 59.5412,37.1998 59.5560,37.1978 59.5727,37.1834 59.5799,37.1678 59.5846,37.1489 59.5915,37.1323 59.6050,37.1239 59.6145,37.1255 59.6215,37.1315 59.6332,37.1463 59.6426,37.1502 59.6532,37.1497 59.7972,37.1122 59.8628,37.0678 59.8995,37.0506 59.9816,37.0388 60.0192,37.0258 60.0489,36.9940 60.0864,36.9300 60.1326,36.8734 60.2385,36.7697 60.2596,36.7424 60.2887,36.6811 60.3092,36.6520 60.3423,36.6371 60.5012,36.6395 60.6411,36.6415 60.8544,36.6446 60.9729,36.6463 61.0755,36.6478 61.1252,36.6408 61.1658,36.6363 61.1740,36.6023 61.1822,36.5869 61.1860,36.5777 61.1876,36.5651 61.1862,36.5528 61.1822,36.5416 61.1769,36.5320 61.1707,36.5244 61.1663,36.5138 61.1680,36.5018 61.1740,36.4868 61.1525,36.4063 61.1467,36.3573 61.1609,36.3286 61.1577,36.3247 61.1562,36.3219 61.1535,36.3149 61.1631,36.3116 61.1711,36.3064 61.1773,36.3004 61.1814,36.2945 61.1854,36.2840 61.1872,36.2735 61.1876,36.2503 61.1909,36.2406 61.2055,36.2211 61.2205,36.1589 61.2231,36.1288 61.2247,36.1237 61.2228,36.1175 61.2122,36.1064 61.2073,36.0995 61.2042,36.0906 61.2024,36.0807 61.2020,36.0716 61.1982,36.0608 61.1897,36.0558 61.1803,36.0528 61.1740,36.0480 61.1711,36.0359 61.1746,36.0158 61.1740,36.0065 61.1618,35.9959 61.1414,35.9824 61.1298,35.9705 61.1436,35.9655 61.1681,35.9624 61.1883,35.9536 61.2058,35.9405 61.2218,35.9245 61.2322,35.9107 61.2410,35.8939 61.2474,35.8762 61.2519,35.8404 61.2555,35.8254 61.2561,35.8091 61.2497,35.7867 61.2561,35.7794 61.2563,35.7695 61.2497,35.7458 61.2490,35.7402 61.2497,35.7225 61.2467,35.7155 61.2331,35.7046 61.2292,35.6986 61.2317,35.6719 61.2454,35.6493 61.2697,35.6185 61.2770,35.6092 61.2876,35.5683 61.2900,35.5481 61.2838,35.5273 61.2705,35.5084 61.2470,35.4851 61.2360,35.4658 61.2273,35.4345 61.2218,35.4242 61.2008,35.4011 61.1951,35.3901 61.1904,35.3696 61.1951,35.3181 61.1871,35.3004 61.1679,35.2914 61.1440,35.2881 61.1378,35.2880 61.1227,35.2877 61.1083,35.2780 61.1025,35.2567 61.1016,35.2353 61.1023,35.2256 61.1079,35.2213 61.1128,35.2117 61.1124,35.2020 61.1023,35.1977 61.0964,35.1932 61.1015,35.1832 61.1295,35.1523 61.1371,35.1439 61.1399,35.1397 61.1379,35.1283 61.1352,35.1194 61.1368,35.1112 61.1473,35.1021 61.1231,35.0742 61.1159,35.0599 61.1099,35.0185 61.0953,34.9810 61.0920,34.9615 61.0889,34.9519 61.0748,34.9331 61.0715,34.9206 61.0726,34.9103 61.0770,34.8917 61.0777,34.8830 61.0734,34.8477 61.0655,34.8147 61.0348,34.8062 61.0291,34.7897 61.0096,34.7610 60.9780,34.7406 60.9599,34.7232 60.9587,34.6996 60.9620,34.6738 60.9580,34.6494 60.9475,34.6380 60.9358,34.6357 60.9228,34.6365 60.9089,34.6347 60.8954,34.6283 60.8889,34.6217 60.8839,34.6137 60.8385,34.5709 60.8190,34.5599 60.7940,34.5541 60.7393,34.5480 60.7144,34.5374 60.6997,34.5164 60.7103,34.5151 60.7189,34.5112 60.7253,34.5043 60.7339,34.4804 60.7428,34.4735 60.7673,34.4642 60.7794,34.4551 60.7891,34.4435 60.8049,34.4175 60.8791,34.3376 60.8905,34.3189 60.8160,34.3153 60.7144,34.3101 60.6437,34.3066 60.6506,34.2854 60.6350,34.2712 60.5874,34.2503 60.5524,34.2201 60.5209,34.1861 60.4928,34.1390 60.4868,34.0943 60.4994,33.9943 60.5280,33.8414 60.5258,33.8021 60.4949,33.7441 60.4869,33.7114 60.5118,33.6384 60.5748,33.5878 60.6556,33.5599 60.7339,33.5549 60.8074,33.5582 60.8460,33.5558 60.8796,33.5487 60.8951,33.5411 60.9120,33.5284 60.9209,33.5141 60.9198,33.5126 60.9121,33.5015 60.8973,33.4970 60.8499,33.4944 60.8322,33.4845 60.8293,33.4701 60.8328,33.4535 60.8347,33.4363 60.8291,33.4163 60.8186,33.4049 60.7859,33.3878 60.7570,33.3663 60.7190,33.3230 60.6703,33.2677 60.6160,33.2062 60.5676,33.1513 60.5615,33.1373 60.5629,33.0583 60.5775,32.9943 60.6062,32.9124 60.6401,32.8155 60.6749,32.7156 60.7117,32.6103 60.7523,32.4946 60.7963,32.3559 60.8303,32.2489 60.8283,32.1674 60.8148,32.0879 60.8088,32.0712 60.7827,32.0425 60.7749,32.0272 60.7783,32.0210 60.7867,32.0169 60.7926,32.0113 60.7840,31.9893 60.7861,31.9790 60.7910,31.9692 60.7950,31.9585 60.7967,31.9368 60.7893,31.8750 60.7915,31.8265 60.8053,31.7340 60.7926,31.6601 60.7950,31.6367 60.8100,31.5884 60.8217,31.4947 60.8550,31.4827 60.9560,31.4701 61.1235,31.4491 61.1251,31.4489 61.2948,31.4276 61.4909,31.4031 61.6612,31.3819 61.6869,31.3732 61.7065,31.3598 61.7423,31.3209 61.7492,31.3024 61.7423,31.2594 61.7427,31.2395 61.7524,31.2191 61.7792,31.1811 61.7877,31.1586 61.7893,31.1293 61.7918,31.1189 61.8093,31.0871 61.8215,31.0545 61.8263,31.0346 61.8264,31.0150 61.8193,30.9939 61.8002,30.9614 61.8045,30.9497 61.8084,30.8814 61.8024,30.8785 61.7999,30.8715 61.7984,30.8535 61.7998,30.8524 61.8023,30.8471 61.7852,30.8314 61.7026,30.7455 61.5762,30.6139 61.4617,30.4946 61.4617,30.4945 61.3804,30.4103 61.2722,30.2983 61.2583,30.2839 61.2156,30.2397 61.2017,30.2253 61.1330,30.1543 60.9784,29.9944 60.9781,29.9941 60.9022,29.9169 60.8444,29.8582 60.9251,29.7750 60.9780,29.7206 61.0433,29.6524 61.1187,29.5740 61.1969,29.4923 61.2792,29.4066 61.2987,29.3927 61.3198,29.3854 61.3374,29.3744 61.3466,29.3491 61.3447,29.3295 61.3328,29.2945 61.3328,29.2749 61.3423,29.2545 61.3742,29.2239 61.3870,29.2066 61.3901,29.1954 61.3928,29.1705 61.3979,29.1591 61.4086,29.1486 61.4177,29.1457 61.4269,29.1446 61.4377,29.1396 61.4480,29.1254 61.4532,29.1084 61.4609,29.0939 61.4780,29.0875 61.4878,29.0807 61.4906,29.0720 61.4872,29.0629 61.4780,29.0543 61.4708,29.0479 61.4680,29.0417 61.4703,29.0359 61.4780,29.0307 61.4910,29.0255 61.5021,29.0177 61.5109,29.0074 61.5532,28.9221 61.5590,28.9027 61.5613,28.8859 61.5665,28.8710 61.5953,28.8427 61.6240,28.7876 61.6530,28.7563 61.7562,28.6740 61.7977,28.6266 61.8612,28.5748 61.8928,28.5426 61.9113,28.5337 61.9711,28.5190 62.0188,28.4947 62.0491,28.4863 62.1156,28.4814 62.1475,28.4753 62.2307,28.4425 62.3628,28.4189 62.3905,28.4061 62.4022,28.3941 62.4107,28.3807 62.4210,28.3686 62.4372,28.3604 62.4538,28.3557 62.4643,28.3498 62.4712,28.3397 62.4777,28.3223 62.4923,28.3007 62.5554,28.2403 62.5756,28.2290 62.7393,28.2583 62.7615,28.2464 62.7664,28.2115 62.7517,28.1087 62.7357,27.9950 62.7542,27.9258 62.7803,27.8297 62.7864,27.7703 62.7947,27.6895 62.7997,27.6393 62.8093,27.5471 62.8147,27.4950 62.8086,27.4534 62.7560,27.3481 62.7757,27.3269 62.7806,27.3161 62.7788,27.2998 62.7741,27.2855 62.7681,27.2744 62.7582,27.2677 62.7424,27.2668 62.7856,27.2325 62.8006,27.2252 62.8085,27.2254 62.8223,27.2325 62.8293,27.2336 62.8374,27.2313 62.8608,27.2196 62.8924,27.2135 62.9196,27.2149 62.9778,27.2252 63.0038,27.2288 63.0562,27.2432 63.0827,27.2444 63.0994,27.2428 63.1123,27.2432 63.1670,27.2587 63.1771,27.2584 63.1896,27.2545 63.2154,27.2332 63.2268,27.2270 63.2515,27.2190 63.2606,27.2138 63.2713,27.2034 63.2856,27.1846 63.3196,27.1173 63.3024,27.1234 63.2806,27.1232 63.2609,27.1156 63.2500,27.0995 63.2462,27.0895 63.2356,27.0759 63.2314,27.0658 63.2299,27.0541 63.2350,26.9411 63.2440,26.9224 63.2565,26.9062 63.2649,26.8900 63.2616,26.8717 63.2467,26.8596 63.2060,26.8537 63.1896,26.8460 63.1823,26.8302 63.1743,26.6850 63.1638,26.6451 63.1413,26.6254 63.1313,26.6258 63.1235,26.6294 63.1162,26.6340 63.1076,26.6376 63.0980,26.6384 63.0689,26.6325 63.0294,26.6335 62.9904,26.6389 62.9000,26.6409 62.8217,26.6426 62.7536,26.6442 62.7427,26.6413 62.7351,26.6322 62.7247,26.6151 62.7180,26.6105 62.7106,26.6069 62.7019,26.6040 62.6710,26.5977 62.6625,26.5983 62.6513,26.6032 62.6406,26.6051 62.6320,26.6004 62.6241,26.5930 62.6158,26.5871 62.5953,26.5807 62.4280,26.5648 62.4185,26.5623 62.4106,26.5568 62.4025,26.5438 62.3967,26.5391 62.3864,26.5366 62.3653,26.5375 62.3559,26.5366 62.3476,26.5333 62.3347,26.5248 62.3265,26.5207 62.3070,26.5137 62.2983,26.5088 62.2920,26.5012 62.2901,26.4924 62.2931,26.4859 62.2970,26.4802 62.2979,26.4740 62.2875,26.4566 62.2561,26.4289 62.2490,26.4165 62.2545,26.3936 62.2642,26.3752 62.2651,26.3610 62.2434,26.3506 62.2059,26.3553 62.1615,26.3695 62.1238,26.3740 62.1069,26.3497 62.1033,26.3251 62.0942,26.3148 62.0528,26.3086 62.0323,26.3029 62.0137,26.2946 61.9777,26.2732 61.8571,26.2424 61.8329,26.2254 61.8184,26.1985 61.8099,26.1674 61.8007,26.1066 61.7927,26.0528 61.7832,25.9906 61.7706,25.9074 61.7601,25.8376 61.7545,25.8200 61.7444,25.8089 61.7393,25.8033 61.7219,25.7997 61.7026,25.8001 61.6814,25.7955 61.6603,25.7692 61.6653,25.7324 61.6764,25.6928 61.6735,25.6583 61.6672,25.6505 61.6525,25.6373 61.6466,25.6277 61.6432,25.6133 61.6391,25.5549 61.6331,25.4693 61.6260,25.3698 61.6200,25.2855 61.5899,25.2046 61.5899,25.2020 61.5899,25.2018 61.5914,25.0682 61.5674,24.8884 61.4525,24.8742 61.4347,24.8720 61.2144,24.9132 61.1312,24.9384 60.9985,25.0034 60.7181,25.0598 60.5885,25.0750 60.3890,25.0721 60.2705,25.1253 60.1771,25.1136 60.0152,25.1503 59.8574,25.1481 59.7197,25.1879 59.5890,25.1952 59.4159,25.2370 59.3422,25.2321 59.1532,25.1895 59.0105,25.1938 58.8956,25.2304 58.7629,25.3404 58.6835,25.3623 58.4083,25.3779 58.1989,25.3390 58.1056,25.3449 57.9709,25.3788 57.8695,25.4348 57.7747,25.4286 57.6944,25.4413 57.5475,25.5240 57.2585,25.5808 57.1879,25.6114 57.1358,25.6523 57.1047,25.6998 57.0661,25.8134 56.9879,25.9261 56.9614,25.9885 56.9094,26.2387 56.8510,26.4024 56.8623,26.5728 56.8213,26.7132 56.7470,26.8457 56.7065,26.8788 56.6588,26.8924 56.5657,26.7354 56.5050,26.6733 56.3807,26.6235 56.2523,26.6363 56.2230,26.6291 56.0253,26.4664 55.9323,26.4172 55.8384,26.4085 55.6896,26.4432 55.3826,26.3496 55.3133,26.3394 55.2956,26.3367 55.2387,26.3469 55.1391,26.4073 55.0966,26.4160 55.0334,26.3937 54.9264,26.3279 54.8098,26.2905 54.7966,26.2863 54.7573,26.2455 54.7005,26.0977 54.7130,26.0714 54.7775,25.9366 54.7747,25.8807 54.7481,25.8174 54.6839,25.7434 54.6069,25.6982 54.5311,25.6861 54.4394,25.7046 54.3426,25.7671 54.2872,25.8642 54.2829,25.9421 54.3137,26.0571 54.3237,26.0944 54.2662,26.2294 54.2691,26.3541 54.1422,26.3148 54.0613,26.2897 53.8927,26.2933 53.7796,26.3443 53.6923,26.4391 53.6883,26.4435 53.5229,26.4751 53.3824,26.5767 53.1687,26.6037 53.0847,26.6306 53.0003,26.6886 52.9460,26.7500 52.9283,26.7944 52.9227,26.8953 52.9054,26.9281 52.6842,27.0794 52.5110,27.1664 52.4864,27.1787 52.4075,27.2392 52.3635,27.3073 52.3433,27.4205 52.3230,27.4512 52.1163,27.5053 51.9433,27.6190 51.5818,27.6399 51.4892,27.6675 51.4095,27.7128 51.0906,27.9918 51.0177,28.1998 50.8659,28.4383 50.8312,28.6138 50.7355,28.6681 50.6816,28.7185 50.6228,28.7978 50.5244,28.9763 50.4440,29.0220 50.3085,29.0053 50.2457,29.0156 50.1730,29.0536 50.1201,29.1106 50.0678,29.2263 50.0700,29.3331 50.1237,29.4199 50.2341,29.4902 50.1902,29.5792 50.1295,29.6511 49.9728,29.7859 49.8528,29.8501 49.7692,29.8603 49.6174,29.8172 49.5179,29.8157 49.4065,29.8500 49.2853,29.9395 49.1549,29.9525 49.0022,29.8473 48.7915,29.8017 48.6792,29.7541 48.6061,29.8624 48.5723,29.9486 48.5608,29.9572 48.5604,29.9575 48.5315,29.9612 48.5310,29.9613 48.5240,29.9641 48.4930,29.9718 48.4856,29.9757 48.4782,29.9796 48.4643,29.9891 48.4578,29.9949 48.4531,30.0014 48.4443,30.0209 48.4422,30.0339 48.4239,30.0836 48.4212,30.0853 48.4155,30.0956 48.3956,30.1152 48.3831,30.1384 48.3811,30.1453 48.3833,30.1565 48.3911,30.1648 48.4007,30.1723 48.4080,30.1809 48.4106,30.1915 48.4087,30.2023 48.4036,30.2125 48.3970,30.2210 48.3582,30.2518 48.3260,30.2835 48.3057,30.3128 48.2964,30.3198 48.2843,30.3233 48.2717,30.3238 48.2351,30.3185 48.2230,30.3181 48.2112,30.3196 48.2001,30.3239 48.1921,30.3313 48.1877,30.3408 48.1795,30.3849 48.1705,30.4067 48.1577,30.4263 48.1409,30.4419 48.1306,30.4475 48.1194,30.4508 48.0136,30.4639 48.0120,30.4945 48.0120,30.4946 48.0154,30.9762 48.0122,30.9891 48.0015,30.9946 47.6729,30.9947 47.6789,31.4079 47.8313,31.7618 47.8373,31.7845 47.8345,31.8057 47.8208,31.8236 47.7814,31.8489 47.7653,31.8641 47.7617,31.8716 47.7565,31.8892 47.7510,31.8982 47.7433,31.9043 47.7252,31.9143 47.7184,31.9223 47.6826,31.9769 47.6779,31.9945 47.6779,31.9947 47.6681,32.0124 47.6331,32.0269 47.6178,32.0419 47.5950,32.0854 47.5781,32.1062 47.5587,32.1130 47.5436,32.1146 47.5348,32.1232 47.5267,32.1334 47.5138,32.1403 47.4982,32.1441 47.4913,32.1486 47.4904,32.1565 47.4925,32.1705 47.4964,32.1813 47.5024,32.1901 47.5077,32.1998 47.5092,32.2138 47.5040,32.2267 47.4845,32.2394 47.4791,32.2521 47.4694,32.2561 47.4630,32.2618 47.4454,32.2826 47.4416,32.2882 47.4369,32.2937 47.4071,32.3178 47.4025,32.3235 47.3958,32.3370 47.3959,32.3420 47.4000,32.3458 47.4088,32.3643 47.4143,32.3699 47.4180,32.3764 47.4164,32.3880 47.4108,32.3953 47.3841,32.4126 47.3673,32.4308 47.3561,32.4462 47.3433,32.4587 47.3219,32.4682 47.2653,32.4847 47.2513,32.4855 47.2055,32.4640 47.1878,32.4584 47.1526,32.4552 47.1210,32.4610 47.0906,32.4746 47.0587,32.4944 47.0586,32.4945 47.0584,32.4945 46.7573,32.7162 46.7159,32.7560 46.6504,32.7894 46.6044,32.8207 46.5073,32.8680 46.4793,32.8918 46.3796,32.9318 46.2734,32.9595 46.1556,32.9484 46.0970,32.9543 46.0757,32.9943 46.0757,32.9945 46.0880,33.0067 46.1047,33.0181 46.1195,33.0310 46.1262,33.0480 46.1204,33.0617 46.1060,33.0725 46.0872,33.0792 46.0433,33.0835 46.0293,33.0935 46.0303,33.1057 46.0504,33.1151 46.0724,33.1168 46.0892,33.1157 46.1054,33.1184 46.1265,33.1318 46.1534,33.1543 46.1672,33.1683 46.1743,33.1812 46.1737,33.1902 46.1621,33.1964 46.1577,33.2057 46.1584,33.2139 46.1644,33.2331 46.1642,33.2433 46.1553,33.2602 46.1413,33.2721 46.1095,33.2937 46.0697,33.3409 46.0362,33.3679 46.0311,33.3825 46.0305,33.3992 46.0275,33.4195 46.0194,33.4384 46.0080,33.4557 45.9744,33.4908 45.9714,33.4928 45.9682,33.4942 45.9633,33.4966 45.9582,33.4974 45.9531,33.4966 45.9482,33.4943 45.9297,33.4795 45.8994,33.4763 45.8697,33.4821 45.8526,33.4944 45.8682,33.5116 45.9156,33.5358 45.9279,33.5509 45.9209,33.5730 45.8997,33.5852 45.8820,33.6002 45.8860,33.6309 45.8644,33.6264 45.8158,33.6258 45.7975,33.6193 45.7685,33.5959 45.7520,33.5868 45.7346,33.5831 45.7277,33.5901 45.7280,33.6256 45.7211,33.6408 45.6740,33.6690 45.6588,33.6817 45.6452,33.6979 45.6351,33.7142 45.6282,33.7318 45.6239,33.7521 45.6167,33.7687 45.6036,33.7807 45.5882,33.7915 45.5748,33.8039 45.4858,33.9387 45.4839,33.9400 45.4818,33.9409 45.4793,33.9412 45.4497,33.9374 45.4237,33.9388 45.4010,33.9495 45.3804,33.9736 45.4018,33.9816 45.4115,33.9872 45.4197,33.9943 45.4199,33.9943 45.4199,33.9944 45.4352,34.0221 45.4436,34.0477 45.4549,34.0699 45.4793,34.0876 45.4939,34.1007 45.5344,34.1282 45.5445,34.1395 45.5445,34.1506 45.5388,34.1592 45.5315,34.1679 45.5267,34.1793 45.5287,34.1886 45.5427,34.2075 45.5477,34.2165 45.5610,34.2646 45.5630,34.2893 45.5576,34.3120 45.5422,34.3316 45.5215,34.3425 45.4992,34.3424 45.4793,34.3291 45.4608,34.3405 45.4480,34.3621 45.4171,34.4444 45.4268,34.4575 45.4793,34.4673 45.4865,34.4727 45.4930,34.4790 45.4987,34.4862 45.5035,34.4942 45.5048,34.5238 45.4965,34.5642 45.5007,34.5917 45.5396,34.5822 45.5739,34.5673 45.6048,34.5611 45.6736,34.5567 45.6956,34.5502 45.7015,34.5513 45.7056,34.5577 45.7083,34.5684 45.7086,34.5791 45.7056,34.5856 45.6945,34.5986 45.6912,34.6155 45.6908,34.6343 45.6876,34.6532 45.6835,34.6602 45.6784,34.6651 45.6735,34.6712 45.6704,34.6818 45.6669,34.6900 45.6595,34.6972 45.6505,34.7030 45.6423,34.7069 45.6274,34.7208 45.6350,34.7370 45.6628,34.7633 45.6659,34.7747 45.6636,34.7949 45.6668,34.8069 45.6766,34.8183 45.6892,34.8226 45.7177,34.8251 45.7454,34.8410 45.7505,34.8654 45.7485,34.8907 45.7551,34.9100 45.7783,34.9109 45.8080,34.8979 45.8350,34.8902 45.8502,34.9068 45.8579,34.9313 45.8663,34.9495 45.8690,34.9684 45.8597,34.9942 45.8597,34.9944 45.8568,35.0080 45.8570,35.0213 45.8619,35.0328 45.8725,35.0414 45.8790,35.0432 45.8931,35.0444 45.8991,35.0469 45.9012,35.0516 45.8984,35.0639 45.8994,35.0686 45.9132,35.0873 45.9202,35.0896 45.9350,35.0855 45.9560,35.0742 45.9664,35.0707 45.9792,35.0716 46.0092,35.0609 46.0251,35.0643 46.0398,35.0755 46.0666,35.0888 46.0766,35.0897 46.0945,35.0858 46.1200,35.0927 46.1324,35.0948 46.1431,35.0995 46.1511,35.1116 46.1304,35.1314 46.1438,35.1596 46.1655,35.1899 46.1693,35.2162 46.1542,35.2266 46.1154,35.2263 46.1015,35.2343 46.0988,35.2500 46.1077,35.2628 46.1201,35.2749 46.1274,35.2891 46.1202,35.3185 46.0963,35.3412 46.0410,35.3816 45.9770,35.4653 45.9640,35.4942 45.9636,35.5034 45.9661,35.5115 45.9713,35.5180 45.9792,35.5230 45.9832,35.5270 45.9846,35.5311 45.9831,35.5353 45.9792,35.5395 45.9680,35.5585 45.9593,35.5787 45.9639,35.5797 45.9687,35.5797 45.9992,35.5721 46.0020,35.5859 45.9923,35.6244 45.9924,35.6409 45.9959,35.6584 46.0038,35.6743 46.0165,35.6857 46.0371,35.6916 46.1070,35.6898 46.1276,35.6937 46.1777,35.7154 46.2170,35.7136 46.2379,35.7155 46.2535,35.7277 46.2671,35.7441 46.2975,35.7599 46.3134,35.7715 46.3251,35.7878 46.3271,35.8035 46.3196,35.8169 46.3030,35.8265 46.2814,35.8283 46.2635,35.8211 46.2464,35.8114 46.2274,35.8057 46.1850,35.7982 46.1635,35.7975 46.1434,35.8045 46.1352,35.8100 46.1291,35.8155 46.1248,35.8225 46.1199,35.8429 46.1150,35.8464 46.1078,35.8474 46.0770,35.8570 46.0604,35.8572 46.0443,35.8523 46.0250,35.8433 46.0049,35.8380 45.9413,35.8403 45.9091,35.8313 45.8988,35.8322 45.8885,35.8349 45.8783,35.8352 45.8541,35.8183 45.8348,35.8105 45.8142,35.8093 45.7979,35.8184 45.7867,35.8202 45.7490,35.8110 45.7310,35.8151 45.7187,35.8283 45.6932,35.8799 45.6469,35.9332 45.6170,35.9554 45.5899,35.9596 45.5769,35.9662 45.5400,35.9940 45.4793,36.0120 45.4531,36.0117 45.4199,35.9983 45.4022,35.9942 45.4020,35.9941 45.4019,35.9940 45.4016,35.9940 45.4015,35.9940 45.3818,35.9830 45.3596,35.9769 45.3381,35.9793 45.3205,35.9940 45.3203,35.9940 45.3202,35.9941 45.3202,35.9941 45.3202,35.9943 45.3137,36.0104 45.3196,36.0310 45.3319,36.0516 45.3442,36.0675 45.3483,36.0875 45.3356,36.1077 45.3046,36.1404 45.2995,36.1614 45.3020,36.2076 45.2974,36.2267 45.2828,36.2384 45.2642,36.2502 45.2585,36.2622 45.2827,36.2749 45.2639,36.2943 45.2570,36.3117 45.2545,36.3548 45.2496,36.3779 45.2389,36.4030 45.2213,36.4209 45.1960,36.4224 45.1400,36.4044 45.1108,36.4025 45.0837,36.4128 45.0723,36.4234 45.0685,36.4325 45.0669,36.4424 45.0621,36.4553 45.0541,36.4650 45.0455,36.4716 45.0391,36.4798 45.0382,36.4940 45.0253,36.5052 45.0059,36.5187 44.9914,36.5337 44.9934,36.5497 44.9979,36.5521 45.0103,36.5560 45.0133,36.5579 45.0142,36.5790 45.0249,36.6132 45.0443,36.6493 45.0459,36.6680 45.0353,36.6896 45.0110,36.7256 44.9962,36.7417 44.9795,36.7490 44.9664,36.7493 44.9548,36.7523 44.9444,36.7583 44.9352,36.7671 44.9227,36.7759 44.9082,36.7779 44.8772,36.7765 44.8512,36.7812 44.8312,36.7919 44.8234,36.8093 44.8341,36.8340 44.8696,36.8690 44.8834,36.8868 44.8888,36.9109 44.8841,36.9334 44.8749,36.9497 44.8692,36.9674 44.8748,36.9940 44.8857,37.0051 44.8874,37.0159 44.8808,37.0249 44.8589,37.0341 44.8476,37.0440 44.8406,37.0472 44.8309,37.0468 44.8112,37.0419 44.8019,37.0435 44.7973,37.0485 44.7922,37.0637 44.7884,37.0702 44.7811,37.0745 44.7736,37.0763 44.7665,37.0790 44.7607,37.0856 44.7527,37.1033 44.7525,37.1131 44.7661,37.1419 44.7723,37.1612 44.7661,37.1781 44.7567,37.1952 44.7535,37.2153 44.7605,37.2332 44.7730,37.2417 44.7868,37.2481 44.7985,37.2603 44.8016,37.2927 44.7790,37.3138 44.7214,37.3433 44.7130,37.3568 44.7071,37.3710 44.6980,37.3800 44.6616,37.3757 44.6522,37.3840 44.6382,37.4126 44.6228,37.4219 44.5856,37.4247 44.5721,37.4308 44.5659,37.4472 44.5756,37.4689 44.5793,37.4770 44.5752,37.4938 44.5752,37.4940 44.5699,37.5144 44.5718,37.5392 44.5783,37.5639 44.5874,37.5840 44.5835,37.6011 44.5610,37.6147 44.5409,37.6327 44.5453,37.6630 44.5535,37.6718 44.5882,37.6940 44.5984,37.7070 44.5961,37.7164 44.5594,37.7520 44.5344,37.7692 44.5065,37.7793 44.4792,37.7769 44.4665,37.7711 44.4505,37.7666 44.4364,37.7678 44.4291,37.7791 44.4298,37.7851 44.4338,37.8011 44.4330,37.8061 44.4255,37.8108 44.4190,37.8097 44.4121,37.8077 44.4044,37.8097 44.3932,37.8211 44.3876,37.8334 44.3838,37.8450 44.3779,37.8541 44.3671,37.8602 44.3312,37.8740 44.3192,37.8769 44.2544,37.8708 44.2196,37.8753 44.2021,37.8972 44.2064,37.9083 44.2167,37.9186 44.2255,37.9293 44.2247,37.9420 44.2197,37.9561 44.2215,37.9688 44.2276,37.9810 44.2360,37.9938 44.2360,37.9939 44.2361,37.9940 44.2361,37.9940 44.2454,38.0084 44.2695,38.0300 44.2783,38.0453 44.2866,38.0663 44.2959,38.0790 44.3090,38.0872 44.3283,38.0946 44.3338,38.1009 44.3257,38.1197 44.3271,38.1284 44.3354,38.1341 44.3531,38.1400 44.3606,38.1479 44.3671,38.1625 44.3732,38.1821 44.3767,38.2015 44.3724,38.2495 44.4006,38.2747 44.4367,38.2969 44.4592,38.3224 44.4588,38.3383 44.4511,38.3540 44.4388,38.3676 44.4247,38.3770 44.4091,38.3818 44.3963,38.3797 44.3634,38.3646 44.3134,38.3718 44.2987,38.3772 44.2895,38.3823 44.2866,38.3910 44.2899,38.4074 44.2905,38.4166 44.2874,38.4419 44.2875,38.4537 44.3002,38.4940 44.3014,38.5112 44.2922,38.5620 44.2968,38.6016 44.2970,38.6223 44.2899,38.6389 44.2825,38.6454 44.2749,38.6494 44.2568,38.6539 44.2443,38.6590 44.2474,38.6651 44.2561,38.6720 44.2605,38.6792 44.2555,38.6973 44.2505,38.7092 44.2486,38.7218 44.2527,38.7418 44.2798,38.8142 44.2750,38.8436 44.2220,38.8634 44.2058,38.8757 44.1921,38.8908 44.1825,38.9131 44.1782,38.9207 44.1749,38.9284 44.1754,38.9367 44.1746,38.9458 44.1671,38.9520 44.1580,38.9575 44.1520,38.9646 44.1478,38.9801 44.1447,38.9868 44.1392,38.9938 44.1392,38.9940 44.1534,39.0126 44.1695,39.0230 44.1791,39.0349 44.1699,39.0744 44.1750,39.0902 44.1948,39.1205 44.1866,39.1451 44.1481,39.1664 44.1035,39.1846 44.0777,39.2001 44.0766,39.2087 44.0835,39.2268 44.0827,39.2357 44.0706,39.2555 44.0672,39.2640 44.0667,39.2730 44.0692,39.2796 44.0694,39.2870 44.0577,39.3068 44.0518,39.3280 44.0472,39.3379 44.0210,39.3620 44.0149,39.3741 44.0260,39.3862 44.0464,39.3960 44.0494,39.3969 44.0614,39.4003 44.0770,39.4006 44.0992,39.3985 44.1222,39.4004 44.1765,39.4115 44.2004,39.4095 44.2695,39.3829 44.2949,39.3812 44.3170,39.3853 44.3687,39.4036 44.3880,39.4145 44.4048,39.4344 44.4052,39.4525 44.4017,39.4713 44.4067,39.4937 44.4067,39.4937 44.4068,39.4937 44.4168,39.5055 44.4174,39.5175 44.4140,39.5304 44.4120,39.5445 44.4140,39.5609 44.4186,39.5743 44.4517,39.6259 44.4576,39.6387 44.4602,39.6545 44.4550,39.6871 44.4595,39.6985 44.5657,39.7659 44.5904,39.7715 44.6058,39.7632 44.6328,39.7316 44.6465,39.7195 44.7063,39.6980 44.7257,39.6853 44.8069,39.6400 44.8096,39.6370 44.8278,39.6288 44.8492,39.6256 44.8723,39.6251 44.8693,39.6205 44.8654,39.6176 44.8864,39.6060 44.8984,39.5844 44.9284,39.4882 44.9407,39.4681 44.9616,39.4538 44.9533,39.4416 44.9570,39.4345 44.9825,39.4202 5399,9.0,Asia/Irkutsk 108.5081,64.2492 108.5284,64.2404 108.5337,64.2354 108.5327,64.2275 108.5281,64.2213 108.5210,64.2162 108.5124,64.2127 108.4941,64.2069 108.4873,64.2038 108.4849,64.2001 108.4935,64.1955 108.5291,64.1868 108.5371,64.1828 108.5403,64.1777 108.5393,64.1699 108.5352,64.1636 108.5300,64.1574 108.4951,64.1252 108.4923,64.1201 108.4950,64.1157 108.5361,64.1036 108.5434,64.0998 108.5485,64.0934 108.5651,64.0664 108.5807,64.0505 108.5925,64.0420 108.6033,64.0370 108.7012,64.0055 108.7080,64.0011 108.7135,63.9961 108.7256,63.9888 108.7315,63.9836 108.7352,63.9771 108.7346,63.9665 108.7310,63.9587 108.7257,63.9519 108.6900,63.9202 108.6879,63.9142 108.6900,63.9086 108.7003,63.9030 108.7523,63.8819 108.7593,63.8781 108.7646,63.8733 108.7674,63.8679 108.7664,63.8604 108.7611,63.8551 108.7469,63.8462 108.7343,63.8363 108.7297,63.8302 108.7260,63.8240 108.7167,63.8117 108.7104,63.8066 108.7033,63.8023 108.6955,63.7985 108.6868,63.7954 108.6477,63.7868 108.6368,63.7867 108.6270,63.7885 108.6207,63.7932 108.6152,63.7999 108.6053,63.8044 108.5951,63.8054 108.4774,63.7907 108.4672,63.7910 108.4588,63.7935 108.4468,63.8000 108.4396,63.8007 108.4230,63.7987 108.4148,63.8001 108.3787,63.8122 108.3710,63.8164 108.3687,63.8226 108.3629,63.8244 108.3552,63.8239 108.2975,63.8105 108.2896,63.8069 108.2837,63.8019 108.2794,63.7964 108.2778,63.7908 108.2771,63.7854 108.2785,63.7747 108.2784,63.7691 108.2778,63.7634 108.2764,63.7576 108.2754,63.7298 108.2757,63.7243 108.2744,63.6964 108.2719,63.6847 108.2691,63.6786 108.2651,63.6727 108.2595,63.6672 108.2526,63.6626 108.2227,63.6466 108.1896,63.6332 108.1797,63.6312 108.1686,63.6301 108.1441,63.6300 108.1338,63.6283 108.1249,63.6254 108.1175,63.6216 108.1120,63.6167 108.1106,63.6088 108.1131,63.5987 108.1249,63.5800 108.1342,63.5705 108.1482,63.5637 108.1596,63.5629 108.5471,63.5990 108.5713,63.5985 108.5833,63.5965 108.5929,63.5921 108.6160,63.5782 108.6282,63.5756 108.6399,63.5751 108.6953,63.5791 108.7055,63.5780 108.7145,63.5753 108.7386,63.5648 108.7581,63.5586 108.8086,63.5518 108.8464,63.5392 108.8571,63.5369 108.8683,63.5365 108.8791,63.5374 108.9374,63.5502 108.9484,63.5514 108.9965,63.5488 109.0030,63.5491 109.0206,63.5525 109.0311,63.5533 109.0422,63.5523 109.0527,63.5491 109.0744,63.5360 109.0833,63.5252 109.0970,63.5166 109.1100,63.5125 109.1217,63.5109 109.1308,63.5087 109.1360,63.5041 109.1384,63.4904 109.1384,63.4845 109.1400,63.4789 109.1431,63.4731 109.1503,63.4668 109.1576,63.4622 109.1737,63.4546 109.2155,63.4418 109.2226,63.4372 109.2235,63.4284 109.2257,63.4209 109.2322,63.4117 109.2440,63.4010 109.2496,63.3969 109.2542,63.3925 109.2577,63.3868 109.2601,63.3801 109.2626,63.3684 109.2669,63.3594 109.2787,63.3485 109.2893,63.3447 109.2998,63.3443 109.3087,63.3468 109.3421,63.3601 109.3529,63.3594 109.3647,63.3542 109.3777,63.3394 109.3833,63.3305 109.3827,63.3216 109.3790,63.3160 109.3765,63.3101 109.3767,63.3038 109.3815,63.2855 109.3827,63.2760 109.3798,63.2620 109.3807,63.2573 109.3892,63.2553 109.4136,63.2521 109.4245,63.2494 109.4321,63.2458 109.4368,63.2413 109.4439,63.2321 109.4482,63.2276 109.4516,63.2228 109.4524,63.2175 109.4479,63.2114 109.4402,63.2077 109.4229,63.2014 109.4158,63.1975 109.4103,63.1929 109.4080,63.1876 109.4075,63.1815 109.4111,63.1734 109.4166,63.1666 109.4290,63.1591 109.4403,63.1562 109.4496,63.1529 109.4530,63.1490 109.4480,63.1429 109.4433,63.1380 109.4406,63.1327 109.4462,63.1263 109.4486,63.1199 109.4476,63.1114 109.4431,63.1049 109.4380,63.0991 109.4347,63.0938 109.4362,63.0894 109.4430,63.0861 109.4516,63.0843 109.4592,63.0797 109.4632,63.0727 109.4645,63.0601 109.4611,63.0519 109.4516,63.0409 109.4510,63.0368 109.4564,63.0338 109.4716,63.0292 109.4763,63.0242 109.4748,63.0151 109.4690,63.0096 109.4563,63.0010 109.4570,62.9997 109.4691,62.9959 109.4749,62.9920 109.4745,62.9834 109.4681,62.9670 109.4663,62.9608 109.4656,62.9552 109.4654,62.9496 109.4662,62.9444 109.4682,62.9383 109.4716,62.9318 109.4796,62.9231 109.4863,62.9175 109.4944,62.9130 109.5283,62.8990 109.5974,62.8827 109.6062,62.8793 109.6144,62.8737 109.6207,62.8661 109.6297,62.8525 109.6413,62.8385 109.6451,62.8330 109.6469,62.8262 109.6448,62.8160 109.6395,62.8095 109.6318,62.8050 109.6231,62.8022 109.5733,62.7935 109.5551,62.7886 109.5398,62.7810 109.5312,62.7782 109.5120,62.7766 109.5058,62.7738 109.4985,62.7640 109.4786,62.7511 109.4727,62.7460 109.4687,62.7403 109.4670,62.7347 109.4662,62.7291 109.4663,62.7236 109.4637,62.6956 109.4638,62.6902 109.4632,62.6846 109.4622,62.6789 109.4594,62.6728 109.4551,62.6669 109.4493,62.6618 109.4415,62.6581 109.4330,62.6551 109.3910,62.6505 109.3830,62.6465 109.3784,62.6394 109.3787,62.6139 109.3815,62.5888 109.3770,62.5817 109.3699,62.5770 109.2564,62.5726 109.2493,62.5703 109.2482,62.5654 109.2634,62.5514 109.2679,62.5448 109.2681,62.5367 109.2670,62.5300 109.2672,62.5235 109.2712,62.5181 109.2893,62.5069 109.2960,62.5006 109.3010,62.4907 109.3059,62.4836 109.3154,62.4769 109.3251,62.4731 109.3368,62.4706 109.4003,62.4635 109.4194,62.4578 109.4266,62.4543 109.4397,62.4465 109.4754,62.4147 109.4870,62.4110 109.4968,62.4112 109.5267,62.4266 109.5353,62.4295 109.5452,62.4313 109.5567,62.4314 109.6461,62.4167 109.7435,62.4117 109.8289,62.4195 109.8775,62.4180 109.9023,62.4136 109.9120,62.4104 109.9182,62.4063 109.9206,62.4013 109.9168,62.3943 109.8928,62.3587 109.8945,62.3542 109.9013,62.3509 109.9474,62.3404 109.9546,62.3356 109.9592,62.3296 109.9612,62.3184 109.9648,62.3101 109.9745,62.3007 109.9924,62.2919 109.9973,62.2882 109.9983,62.2846 109.9957,62.2775 109.9902,62.2722 109.9833,62.2676 109.9395,62.2443 109.9361,62.2389 109.9378,62.2326 109.9457,62.2242 109.9592,62.2136 109.9955,62.1904 109.9989,62.1871 110.0010,62.1835 110.0023,62.1781 110.0017,62.1702 110.0007,62.1660 109.9995,62.1635 109.9930,62.1579 109.9812,62.1508 109.9103,62.1175 109.9039,62.1127 109.8982,62.1073 109.8934,62.1018 109.8923,62.1001 109.8878,62.0918 109.8852,62.0884 109.8737,62.0676 109.8660,62.0576 109.8579,62.0531 109.8539,62.0453 109.8280,62.0161 109.8193,62.0077 109.8042,62.0067 109.7911,62.0032 109.7673,61.9884 109.7561,61.9850 109.7436,61.9784 109.6500,61.9098 109.6438,61.9045 109.6315,61.8989 109.6126,61.8936 109.6037,61.8843 109.5978,61.8704 109.5941,61.8498 109.5938,61.8158 109.6005,61.7920 109.6188,61.7536 109.6219,61.7405 109.6222,61.7285 109.6200,61.7181 109.6262,61.7128 109.6445,61.7049 109.6743,61.6871 109.6851,61.6836 109.7066,61.6788 109.7123,61.6741 109.7126,61.6664 109.7101,61.6596 109.7088,61.6532 109.7123,61.6481 109.7238,61.6432 109.7358,61.6402 109.7528,61.6319 109.8513,61.5573 109.8612,61.5473 109.8701,61.5329 109.8731,61.5240 109.8735,61.5168 109.8726,61.5111 109.8713,61.5053 109.8685,61.4996 109.8634,61.4942 109.8563,61.4904 109.8394,61.4848 109.8324,61.4814 109.8276,61.4773 109.8273,61.4727 109.8298,61.4686 109.8375,61.4598 109.8457,61.4461 109.8479,61.4412 109.8488,61.4359 109.8482,61.4304 109.8462,61.4244 109.8405,61.4122 109.8364,61.4059 109.8318,61.3999 109.8083,61.3797 109.8043,61.3744 109.8033,61.3691 109.8049,61.3642 109.8110,61.3547 109.8122,61.3500 109.8100,61.3450 109.7975,61.3369 109.7930,61.3318 109.7924,61.3252 109.8002,61.3165 109.8095,61.3109 109.8606,61.2968 109.8725,61.2963 109.8831,61.2971 109.9026,61.3005 109.9245,61.3020 109.9508,61.2986 109.9677,61.2936 110.0666,61.2755 110.0809,61.2704 110.0944,61.2626 110.1121,61.2462 110.1190,61.2369 110.1230,61.2294 110.1223,61.2129 110.1249,61.2071 110.1301,61.2000 110.1444,61.1911 110.1606,61.1744 110.1642,61.1689 110.1688,61.1641 110.1765,61.1596 110.1901,61.1553 110.2385,61.1482 110.2484,61.1489 110.2668,61.1528 110.2770,61.1540 110.2882,61.1536 110.3201,61.1488 110.3281,61.1508 110.3545,61.1680 110.3696,61.1752 110.3779,61.1780 110.3873,61.1798 110.3978,61.1802 110.4095,61.1792 110.4207,61.1771 110.4813,61.1592 110.4899,61.1558 110.4962,61.1520 110.5009,61.1478 110.5040,61.1431 110.5061,61.1381 110.5046,61.1131 110.5065,61.1062 110.5099,61.1005 110.5136,61.0960 110.5167,61.0912 110.5170,61.0850 110.5138,61.0775 110.5020,61.0658 110.4925,61.0596 110.4693,61.0467 110.4641,61.0406 110.4613,61.0329 110.4635,61.0208 110.4647,61.0053 110.4584,60.9883 110.4472,60.9770 110.4353,60.9674 110.4286,60.9631 110.4211,60.9595 110.4042,60.9544 110.3968,60.9496 110.3810,60.9336 110.3726,60.9281 110.3341,60.9099 110.3204,60.9015 110.3148,60.8962 110.3097,60.8905 110.3012,60.8785 110.2962,60.8728 110.2842,60.8633 110.2635,60.8510 110.2509,60.8416 110.2397,60.8310 110.2351,60.8249 110.2312,60.8176 110.2303,60.8094 110.2335,60.7972 110.2418,60.7904 110.2515,60.7849 110.2836,60.7729 110.2885,60.7702 110.2851,60.7675 110.2790,60.7637 110.2730,60.7583 110.2662,60.7300 110.2653,60.7234 110.2657,60.7175 110.2665,60.7124 110.2678,60.7073 110.2684,60.7020 110.2668,60.6965 110.2598,60.6903 110.2443,60.6821 110.2282,60.6761 110.2192,60.6741 110.2095,60.6734 110.1989,60.6745 110.1808,60.6795 110.1713,60.6805 110.1626,60.6793 110.1452,60.6746 110.1353,60.6735 110.0772,60.6756 110.0568,60.6739 110.0493,60.6715 110.0459,60.6676 110.0509,60.6620 110.0596,60.6581 110.0803,60.6519 110.0880,60.6483 110.0929,60.6436 110.1025,60.6316 110.1109,60.6273 110.1177,60.6210 110.1196,60.6124 110.1183,60.5964 110.1162,60.5871 110.1088,60.5788 110.1009,60.5752 110.0552,60.5640 110.0474,60.5610 110.0396,60.5544 110.0233,60.5255 110.0153,60.5164 110.0078,60.5106 109.9812,60.5027 109.9738,60.4993 109.9468,60.4825 109.9226,60.4633 109.9182,60.4576 109.9168,60.4506 109.9217,60.4420 109.9277,60.4365 109.9487,60.4245 109.9521,60.4191 109.9522,60.4124 109.9463,60.4019 109.9400,60.3954 109.9325,60.3903 109.9248,60.3871 109.9079,60.3819 109.8714,60.3746 109.8633,60.3717 109.8591,60.3662 109.8599,60.3576 109.8634,60.3515 109.8725,60.3423 109.8744,60.3382 109.8703,60.3345 109.8559,60.3283 109.8222,60.3182 109.8149,60.3147 109.8103,60.3097 109.8119,60.3008 109.8143,60.2945 109.8172,60.2888 109.8187,60.2826 109.8177,60.2752 109.8124,60.2637 109.8068,60.2561 109.8005,60.2502 109.7933,60.2464 109.7772,60.2408 109.7405,60.2335 109.7320,60.2251 109.7249,60.2106 109.7165,60.1784 109.7049,60.1518 109.7007,60.1461 109.6979,60.1403 109.6944,60.1286 109.6940,60.1219 109.6944,60.1147 109.6976,60.1049 109.7051,60.0931 109.7128,60.0841 109.7153,60.0778 109.7172,60.0700 109.7187,60.0573 109.7237,60.0507 109.7305,60.0458 109.7562,60.0364 109.7620,60.0321 109.7639,60.0270 109.7587,60.0194 109.7426,60.0012 109.7311,59.9912 109.7111,59.9793 109.7051,59.9744 109.6998,59.9690 109.6952,59.9628 109.6813,59.9377 109.6771,59.9317 109.6712,59.9270 109.6639,59.9236 109.6453,59.9203 109.6371,59.9178 109.6303,59.9136 109.6250,59.9084 109.6216,59.9030 109.6209,59.8977 109.6254,59.8935 109.6402,59.8864 109.6466,59.8825 109.6506,59.8773 109.6504,59.8706 109.6451,59.8606 109.6384,59.8547 109.6307,59.8501 109.6079,59.8405 109.5472,59.8054 109.5236,59.7852 109.5037,59.7638 109.5005,59.7591 109.4943,59.7483 109.4882,59.7326 109.4850,59.7203 109.4832,59.7089 109.4838,59.7015 109.4860,59.6929 109.4925,59.6795 109.4981,59.6727 109.5027,59.6689 109.5191,59.6637 109.5273,59.6594 109.5314,59.6536 109.5283,59.6431 109.5233,59.6362 109.5174,59.6296 109.5013,59.6171 109.4796,59.6033 109.4355,59.5830 109.4296,59.5792 109.4057,59.5480 109.3936,59.5388 109.3793,59.5316 109.3554,59.5235 109.3405,59.5168 109.3348,59.5109 109.3297,59.5035 109.3255,59.4922 109.3191,59.4862 109.3120,59.4816 109.2889,59.4729 109.2746,59.4657 109.2682,59.4614 109.2663,59.4555 109.2694,59.4491 109.2855,59.4404 109.2985,59.4357 109.3341,59.4273 109.3430,59.4233 109.3480,59.4181 109.3478,59.4096 109.3428,59.4045 109.3351,59.4011 109.3260,59.3994 109.3095,59.3945 109.2521,59.3674 109.2498,59.3613 109.2524,59.3537 109.2603,59.3409 109.2604,59.3332 109.2592,59.3267 109.2613,59.3213 109.2678,59.3160 109.2840,59.3097 109.3112,59.3034 109.3784,59.2997 109.4207,59.2918 109.4418,59.2913 109.4811,59.2948 109.4988,59.2944 109.5046,59.2926 109.5102,59.2889 109.5084,59.2815 109.5022,59.2692 109.5006,59.2641 109.5000,59.2601 109.4999,59.2580 109.5006,59.2525 109.5033,59.2472 109.5086,59.2406 109.5213,59.2309 109.5309,59.2253 109.5387,59.2198 109.5421,59.2146 109.5399,59.2068 109.5300,59.1955 109.5283,59.1898 109.5317,59.1842 109.5452,59.1785 109.5573,59.1763 109.5907,59.1734 109.6070,59.1673 109.6138,59.1631 109.6200,59.1583 109.6263,59.1520 109.6338,59.1416 109.6359,59.1269 109.6259,59.0905 109.6297,59.0751 109.6324,59.0703 109.6364,59.0660 109.6419,59.0619 109.6498,59.0590 109.6594,59.0579 109.6711,59.0604 109.6941,59.0717 109.7023,59.0742 109.7128,59.0750 109.7250,59.0732 109.7423,59.0664 109.7511,59.0611 109.7568,59.0557 109.7636,59.0412 109.7782,59.0178 109.7961,58.9998 109.7978,58.9988 109.8061,58.9924 109.8147,58.9839 109.8222,58.9813 109.8314,58.9808 109.8423,58.9841 109.8700,58.9978 109.8759,59.0000 109.9154,59.0076 110.0152,59.0003 110.0252,58.9980 110.0290,58.9948 110.0374,58.9917 110.1193,58.9804 110.1787,58.9789 110.2127,58.9835 110.2783,58.9840 110.2866,58.9852 110.3050,58.9974 110.3137,59.0100 110.3189,59.0157 110.3306,59.0253 110.3374,59.0293 110.3486,59.0325 110.3638,59.0353 110.4709,59.0336 110.4823,59.0349 110.4934,59.0380 110.5312,59.0587 110.5374,59.0631 110.5414,59.0686 110.5438,59.0743 110.5438,59.0798 110.5432,59.0849 110.5414,59.0898 110.5407,59.0950 110.5410,59.1001 110.5441,59.1049 110.5497,59.1092 110.5563,59.1129 110.5786,59.1228 110.5848,59.1268 110.5894,59.1313 110.5906,59.1364 110.5891,59.1412 110.5770,59.1597 110.5745,59.1646 110.5732,59.1697 110.5729,59.1750 110.5736,59.1806 110.5763,59.1861 110.5804,59.1908 110.5869,59.1944 110.5943,59.1974 110.6274,59.2070 110.6340,59.2104 110.6385,59.2152 110.6417,59.2262 110.6444,59.2319 110.6491,59.2372 110.6550,59.2417 110.6851,59.2546 110.6972,59.2572 110.7135,59.2589 110.8246,59.2534 110.8902,59.2396 110.9224,59.2373 110.9331,59.2350 110.9520,59.2290 110.9675,59.2221 110.9806,59.2147 110.9877,59.2115 110.9950,59.2092 111.0009,59.2085 111.0094,59.2095 111.0196,59.2123 111.0329,59.2193 111.0551,59.2353 111.0645,59.2376 111.0758,59.2383 111.0913,59.2365 111.1016,59.2336 111.1084,59.2295 111.1223,59.2114 111.1278,59.2073 111.1638,59.1894 111.1752,59.1878 111.1897,59.1888 111.2127,59.1965 111.2219,59.2029 111.2272,59.2095 111.2299,59.2151 111.2365,59.2206 111.2470,59.2258 111.2662,59.2322 111.2768,59.2378 111.2848,59.2436 111.2903,59.2490 111.2968,59.2532 111.3163,59.2575 111.4150,59.2678 111.4701,59.2673 111.4962,59.2589 111.5005,59.2568 111.5052,59.2537 111.5097,59.2500 111.5134,59.2457 111.5176,59.2416 111.5225,59.2379 111.5617,59.2223 111.5704,59.2201 111.5891,59.2181 111.6253,59.2073 111.6372,59.2076 111.6506,59.2101 111.6890,59.2274 111.7431,59.2596 111.7550,59.2695 111.7636,59.2736 111.7758,59.2758 111.8827,59.2779 111.9325,59.2719 111.9421,59.2739 111.9521,59.2795 111.9583,59.2858 111.9628,59.2922 111.9777,59.3280 111.9821,59.3340 111.9874,59.3394 111.9929,59.3439 112.0869,59.3914 112.0932,59.3959 112.0984,59.4015 112.1068,59.4136 112.1172,59.4246 112.1940,59.4783 112.2179,59.5004 112.2346,59.5017 112.2706,59.5004 112.2755,59.4993 112.2721,59.4927 112.2686,59.4816 112.2686,59.4763 112.2697,59.4713 112.2724,59.4666 112.2903,59.4494 112.3229,59.4304 112.3281,59.4263 112.3310,59.4216 112.3325,59.4166 112.3312,59.4111 112.3274,59.4054 112.3157,59.3958 112.2888,59.3793 112.2776,59.3699 112.2752,59.3653 112.2768,59.3611 112.2947,59.3498 112.3002,59.3457 112.3039,59.3412 112.3057,59.3363 112.3051,59.3309 112.3023,59.3251 112.2887,59.3089 112.2881,59.3040 112.2931,59.3006 112.3018,59.2984 112.3225,59.2975 112.3388,59.2997 112.4354,59.3263 112.5475,59.3135 112.6097,59.3161 112.6235,59.3141 112.6311,59.3105 112.6372,59.2906 112.6388,59.2802 112.6382,59.2751 112.6357,59.2703 112.6283,59.2672 112.6181,59.2655 112.6030,59.2643 112.5924,59.2619 112.5852,59.2558 112.5827,59.2503 112.5793,59.2453 112.5719,59.2419 112.5574,59.2402 112.5457,59.2376 112.5339,59.2327 112.5262,59.2277 112.5032,59.2079 112.4652,59.1678 112.4623,59.1620 112.4624,59.1569 112.4649,59.1522 112.4658,59.1474 112.4637,59.1422 112.4550,59.1312 112.4515,59.1252 112.4502,59.1197 112.4496,59.1142 112.4527,59.0882 112.4562,59.0786 112.4571,59.0738 112.4546,59.0646 112.4550,59.0597 112.4558,59.0549 112.4657,59.0314 112.4667,59.0263 112.4664,59.0210 112.4649,59.0156 112.4617,59.0104 112.4527,58.9997 112.4516,58.9973 112.4502,58.9929 112.4493,58.9824 112.4499,58.9504 112.4472,58.9338 112.4477,58.9285 112.4512,58.9240 112.4683,58.9180 112.4732,58.9150 112.4708,58.9114 112.4671,58.9069 112.4646,58.9021 112.4660,58.8974 112.4685,58.8928 112.4812,58.8794 112.4862,58.8754 112.4915,58.8722 112.4978,58.8707 112.5026,58.8704 112.5110,58.8725 112.5202,58.8763 112.5534,58.9124 112.6125,58.9545 112.6164,58.9622 112.6132,58.9690 112.5855,58.9905 112.5604,59.0206 112.5566,59.0268 112.5544,59.0334 112.5556,59.0478 112.5584,59.0552 112.5629,59.0621 112.5691,59.0671 112.5740,59.0691 112.5790,59.0673 112.5878,59.0595 112.6107,59.0436 112.6258,59.0367 112.6348,59.0342 112.6444,59.0337 112.6550,59.0364 112.6663,59.0413 112.6911,59.0590 112.7044,59.0708 112.7143,59.0769 112.7276,59.0834 112.7818,59.1010 112.8647,59.1141 112.8741,59.1176 112.8836,59.1227 112.9086,59.1477 112.9161,59.1516 112.9294,59.1512 112.9388,59.1487 112.9625,59.1381 112.9711,59.1362 112.9796,59.1369 112.9877,59.1385 113.0056,59.1443 113.0220,59.1475 113.0752,59.1465 113.0940,59.1489 113.1340,59.1625 113.1424,59.1644 113.1522,59.1645 113.2179,59.1509 113.2278,59.1510 113.2642,59.1569 113.2958,59.1724 113.3293,59.1948 113.3601,59.2111 113.3990,59.2261 113.4332,59.2489 113.4610,59.2616 113.4647,59.2663 113.4629,59.2729 113.4572,59.2834 113.4555,59.2882 113.4553,59.2935 113.4569,59.2991 113.4747,59.3313 113.4725,59.3390 113.4667,59.3447 113.4301,59.3628 113.4251,59.3670 113.4227,59.3717 113.4224,59.3769 113.4243,59.3827 113.4301,59.3947 113.4352,59.4023 113.4459,59.4116 113.4648,59.4251 113.4889,59.4345 113.5011,59.4380 113.5165,59.4389 113.5261,59.4427 113.5905,59.4852 113.6050,59.4991 113.6045,59.5003 113.5997,59.5042 113.5963,59.5082 113.5932,59.5128 113.5920,59.5178 113.5918,59.5231 113.5930,59.5287 113.5949,59.5344 113.5954,59.5398 113.5944,59.5448 113.5910,59.5495 113.5886,59.5542 113.5886,59.5595 113.5918,59.5652 113.6303,59.5797 113.7793,59.6086 113.8135,59.6353 113.8272,59.6439 113.8332,59.6488 113.8384,59.6544 113.8427,59.6603 113.8447,59.6661 113.8461,59.6717 113.8465,59.6771 113.8493,59.6816 113.8545,59.6842 113.8662,59.6822 113.8792,59.6813 113.8932,59.6821 113.9160,59.6868 113.9336,59.6888 114.0302,59.6811 114.0380,59.6824 114.0413,59.6863 114.0421,59.6964 114.0411,59.7319 114.0427,59.7367 114.0541,59.7407 114.1612,59.7477 114.1748,59.7535 114.1834,59.7593 114.2017,59.7767 114.2256,59.7939 114.2323,59.8001 114.2371,59.8062 114.2396,59.8170 114.2438,59.8224 114.2522,59.8273 114.2671,59.8325 114.2747,59.8383 114.2801,59.8442 114.2872,59.8562 114.2970,59.8685 114.3026,59.8740 114.3090,59.8789 114.5455,59.9854 114.5647,59.9969 114.5695,60.0006 114.5704,60.0019 114.5720,60.0046 114.5728,60.0089 114.5718,60.0138 114.5684,60.0183 114.5632,60.0225 114.5319,60.0368 114.5257,60.0408 114.5230,60.0456 114.5234,60.0510 114.5402,60.1021 114.5431,60.1078 114.5470,60.1130 114.5526,60.1171 114.5945,60.1289 114.6022,60.1324 114.6162,60.1409 114.6408,60.1616 114.6846,60.2089 114.6971,60.2192 114.7064,60.2223 114.7180,60.2235 114.7365,60.2204 114.7477,60.2168 114.7562,60.2127 114.7625,60.2087 114.7879,60.1877 114.7966,60.1849 114.8080,60.1836 114.8250,60.1867 114.8359,60.1904 114.9011,60.2286 115.0068,60.2685 115.0195,60.2767 115.0311,60.2875 115.0361,60.2935 115.0465,60.3115 115.0556,60.3345 115.0693,60.3584 115.0792,60.3706 115.0909,60.3821 115.0976,60.3869 115.1122,60.3946 115.2382,60.4470 115.3947,60.4871 115.6863,60.5262 115.7089,60.5248 115.7223,60.5223 115.7370,60.5180 115.8168,60.4755 115.8421,60.4677 115.9989,60.4572 116.0091,60.4543 116.0342,60.4398 116.0406,60.4339 116.0440,60.4287 116.0466,60.4231 116.0503,60.4182 116.0550,60.4135 116.0636,60.4099 116.0754,60.4069 116.1867,60.3989 116.2369,60.3803 116.2503,60.3769 116.2660,60.3764 116.2778,60.3776 116.3248,60.3890 116.3478,60.3908 116.5824,60.3599 116.5994,60.3548 116.6251,60.3438 116.6439,60.3317 116.7216,60.2662 116.7293,60.2620 116.7399,60.2580 116.8212,60.2467 116.8317,60.2430 116.8414,60.2375 116.8645,60.2133 116.8749,60.2049 116.8952,60.1935 116.9543,60.1686 116.9768,60.1544 116.9819,60.1498 116.9878,60.1433 116.9899,60.1357 116.9902,60.1294 116.9930,60.1229 116.9985,60.1161 117.0122,60.1039 117.0321,60.0914 117.0385,60.0857 117.0425,60.0799 117.0437,60.0713 117.0426,60.0647 117.0372,60.0541 117.0373,60.0484 117.0420,60.0423 117.0543,60.0354 117.0648,60.0315 117.0766,60.0292 117.1005,60.0278 117.1229,60.0296 117.1509,60.0357 117.1614,60.0365 117.1716,60.0354 117.2137,60.0224 117.2247,60.0215 117.2697,60.0242 117.2801,60.0238 117.2886,60.0218 117.2963,60.0189 117.3019,60.0139 117.3056,60.0080 117.3059,59.9984 117.3024,59.9923 117.2972,59.9874 117.2323,59.9573 117.2244,59.9546 117.2156,59.9528 117.2057,59.9528 117.1593,59.9638 117.1483,59.9651 117.1246,59.9646 117.1146,59.9628 117.1061,59.9602 117.0988,59.9570 117.0924,59.9533 117.0874,59.9490 117.0830,59.9443 117.0791,59.9394 117.0723,59.9288 117.0645,59.9188 117.0636,59.9134 117.0651,59.9079 117.1481,59.8586 117.1555,59.8554 117.1648,59.8531 117.1967,59.8483 117.2051,59.8456 117.2125,59.8405 117.2191,59.8336 117.2263,59.8208 117.2291,59.8121 117.2297,59.8043 117.2282,59.7983 117.2256,59.7927 117.2225,59.7873 117.2177,59.7759 117.2149,59.7637 117.2158,59.7511 117.2174,59.7451 117.2183,59.7390 117.2186,59.7331 117.2172,59.7273 117.2122,59.7172 117.1976,59.6969 117.1955,59.6911 117.1942,59.6849 117.1941,59.6784 117.1964,59.6662 117.1983,59.6609 117.1985,59.6554 117.1954,59.6506 117.1904,59.6464 117.1198,59.6134 117.0945,59.5986 117.0899,59.5944 117.0871,59.5908 117.0893,59.5884 117.1326,59.5852 117.1536,59.5812 117.1960,59.5689 117.2032,59.5645 117.2102,59.5588 117.2256,59.5370 117.2291,59.5334 117.2337,59.5313 117.2418,59.5286 117.2808,59.5240 117.2894,59.5214 117.3378,59.4997 117.3524,59.4974 117.4551,59.5000 117.4847,59.4962 117.5347,59.4799 117.5547,59.4762 117.5975,59.4723 117.6059,59.4742 117.6574,59.5038 117.7138,59.5292 117.7482,59.5387 117.7580,59.5394 117.7690,59.5357 117.7786,59.5283 117.7912,59.5125 117.7983,59.5006 117.7983,59.5001 117.8010,59.4876 117.8030,59.4820 117.8081,59.4711 117.8144,59.4607 117.8190,59.4547 117.8264,59.4491 117.8432,59.4435 117.8567,59.4420 117.8831,59.4419 117.9060,59.4439 117.9243,59.4483 117.9321,59.4513 117.9388,59.4550 117.9435,59.4596 117.9476,59.4645 117.9656,59.5002 117.9682,59.5109 117.9707,59.5164 117.9738,59.5218 117.9821,59.5315 117.9870,59.5359 117.9923,59.5394 118.0078,59.5466 118.0199,59.5537 118.0460,59.5750 118.0583,59.5826 118.0663,59.5853 118.0761,59.5870 118.0986,59.5883 118.1085,59.5898 118.1433,59.6064 118.1515,59.6087 118.1620,59.6095 118.2056,59.6048 118.2291,59.6044 118.2721,59.6092 118.2826,59.6093 118.3018,59.6059 118.3360,59.5956 118.3445,59.5879 118.3534,59.5764 118.3754,59.5350 118.3883,59.5213 118.3977,59.5161 118.4073,59.5123 118.5343,59.4858 118.5507,59.4800 118.5862,59.4549 118.6594,59.4310 118.7339,59.4198 118.7419,59.4169 118.7488,59.4134 118.7546,59.4078 118.7587,59.4001 118.7601,59.3858 118.7592,59.3768 118.7571,59.3692 118.7543,59.3638 118.7528,59.3578 118.7527,59.3518 118.7533,59.3455 118.7550,59.3392 118.7581,59.3329 118.7649,59.3265 118.7717,59.3220 118.7798,59.3184 118.8252,59.3069 118.8330,59.3040 118.8397,59.3004 118.8441,59.2958 118.8459,59.2911 118.8414,59.2852 118.8326,59.2826 118.8113,59.2795 118.8029,59.2772 118.7986,59.2729 118.7989,59.2671 118.8028,59.2601 118.8044,59.2548 118.8010,59.2504 118.7935,59.2479 118.7453,59.2387 118.7293,59.2332 118.7165,59.2260 118.7109,59.2219 118.7020,59.2126 118.6887,59.1915 118.6872,59.1856 118.6871,59.1796 118.6934,59.1455 118.6948,59.1239 118.7072,59.0638 118.7385,59.0284 118.7496,59.0245 118.7620,59.0227 118.8001,59.0220 118.8403,59.0156 118.8462,59.0134 118.8495,59.0090 118.8514,59.0023 118.8484,58.9511 118.8416,58.9417 118.8314,58.9367 118.8056,58.9366 118.7954,58.9346 118.7890,58.9197 118.7855,58.9000 118.7871,58.8930 118.7905,58.8858 118.7988,58.8770 118.8131,58.8672 118.8703,58.8415 118.8818,58.8338 118.8862,58.8293 118.8902,58.8235 118.8929,58.8164 118.8933,58.8048 118.8921,58.7969 118.8802,58.7667 118.8771,58.7546 118.8756,58.7284 118.8788,58.6968 118.8759,58.6891 118.8707,58.6833 118.8478,58.6679 118.8435,58.6636 118.8404,58.6592 118.8388,58.6546 118.8324,58.6448 118.8299,58.6394 118.8290,58.6331 118.8286,58.6269 118.8279,58.6212 118.8237,58.6167 118.8156,58.6145 118.7809,58.6150 118.7744,58.6115 118.7763,58.6040 118.7948,58.5867 118.8082,58.5790 118.8212,58.5743 118.8657,58.5692 118.8752,58.5657 118.8815,58.5604 118.8940,58.5538 118.9043,58.5501 118.9148,58.5480 118.9251,58.5482 118.9443,58.5504 118.9548,58.5501 118.9648,58.5486 118.9730,58.5459 118.9802,58.5428 118.9961,58.5319 119.0198,58.5114 119.0272,58.5065 119.0337,58.5031 119.0437,58.5000 119.1071,58.4914 119.1159,58.4891 119.1233,58.4854 119.1287,58.4803 119.1324,58.4723 119.1328,58.4609 119.1306,58.4461 119.1224,58.4178 119.1164,58.4047 119.1102,58.3957 119.0999,58.3872 119.0764,58.3719 119.0710,58.3662 119.0687,58.3573 119.0704,58.3412 119.0768,58.3286 119.0830,58.3208 119.1205,58.2981 119.1241,58.2885 119.1257,58.2804 119.1081,58.2227 119.0399,58.2326 119.0102,58.2332 118.9898,58.2290 118.7841,58.2128 118.7570,58.2066 118.7101,58.1865 118.6945,58.1816 118.6613,58.1749 118.6437,58.1741 118.6304,58.1752 118.6043,58.1890 118.5815,58.2044 118.5733,58.2083 118.5348,58.2143 118.5043,58.2137 118.4910,58.2164 118.4850,58.2210 118.4839,58.2270 118.4819,58.2326 118.4788,58.2378 118.4707,58.2430 118.4581,58.2480 118.4051,58.2615 118.3984,58.2648 118.3761,58.2810 118.3712,58.2853 118.3628,58.2946 118.3576,58.3053 118.3525,58.3227 118.3495,58.3279 118.3381,58.3424 118.3294,58.3473 118.3174,58.3525 118.1845,58.3822 118.1576,58.3856 118.1421,58.3859 118.1356,58.3841 118.1309,58.3781 118.1285,58.3720 118.1223,58.3607 118.1185,58.3559 118.1138,58.3514 118.1084,58.3474 118.0997,58.3440 118.0886,58.3413 118.0700,58.3403 118.0587,58.3418 118.0499,58.3448 118.0444,58.3487 118.0406,58.3535 118.0314,58.3757 118.0257,58.3818 118.0159,58.3875 117.9946,58.3946 117.9598,58.3988 117.9409,58.3992 117.9233,58.4022 117.9119,58.4011 117.8908,58.3961 117.8747,58.3940 117.8651,58.3957 117.8562,58.3993 117.8481,58.4036 117.8351,58.4078 117.8272,58.4065 117.8209,58.4034 117.8156,58.3992 117.8088,58.3960 117.7909,58.3946 117.6838,58.3980 117.6686,58.3952 117.6656,58.3901 117.6643,58.3840 117.6622,58.3784 117.6579,58.3732 117.6275,58.3658 117.5974,58.3542 117.5353,58.3389 117.4960,58.3231 117.4894,58.3195 117.4813,58.3141 117.4755,58.3091 117.4709,58.3040 117.4678,58.2989 117.4669,58.2934 117.4683,58.2881 117.4718,58.2832 117.4768,58.2789 117.4891,58.2721 117.5144,58.2641 117.5212,58.2609 117.5244,58.2558 117.5297,58.2450 117.5344,58.2406 117.5529,58.2298 117.5569,58.2251 117.5596,58.2198 117.5611,58.2138 117.5637,58.2083 117.5878,58.1843 117.5873,58.1802 117.5859,58.1751 117.5739,58.1462 117.5693,58.1409 117.5542,58.1366 117.5079,58.1363 117.4931,58.1380 117.4500,58.1498 117.4377,58.1518 117.4301,58.1490 117.4238,58.1444 117.4121,58.1322 117.4081,58.1268 117.4056,58.1214 117.4050,58.1153 117.4053,58.1097 117.4101,58.0989 117.4117,58.0935 117.4112,58.0882 117.4073,58.0837 117.4018,58.0800 117.3821,58.0697 117.3771,58.0658 117.3746,58.0609 117.3753,58.0557 117.3777,58.0504 117.3922,58.0310 117.3941,58.0259 117.3937,58.0208 117.3906,58.0160 117.3803,58.0077 117.3687,58.0001 117.3682,57.9997 117.3675,57.9982 117.3663,57.9946 117.3672,57.9896 117.3755,57.9740 117.3772,57.9683 117.3778,57.9625 117.3771,57.9565 117.3725,57.9450 117.3696,57.9396 117.3681,57.9342 117.3691,57.9288 117.3746,57.9251 117.3818,57.9221 117.4074,57.9150 117.4132,57.9116 117.4093,57.9058 117.3975,57.8992 117.3674,57.8894 117.3566,57.8823 117.3511,57.8755 117.3508,57.8697 117.3483,57.8644 117.3427,57.8606 117.3130,57.8470 117.3034,57.8459 117.2947,57.8471 117.2857,57.8500 117.2747,57.8524 117.2546,57.8528 117.1967,57.8403 117.1821,57.8394 117.1283,57.8416 117.1183,57.8397 117.1114,57.8365 117.0983,57.8260 117.0932,57.8208 117.0889,57.8155 117.0861,57.8103 117.0858,57.8044 117.0875,57.7991 117.0909,57.7944 117.0952,57.7904 117.1013,57.7870 117.1397,57.7731 117.1462,57.7697 117.1505,57.7651 117.1559,57.7544 117.1608,57.7502 117.1666,57.7463 117.1707,57.7420 117.1727,57.7365 117.1681,57.7283 117.1665,57.7216 117.1656,57.7091 117.1638,57.7033 117.1562,57.6899 117.1478,57.6810 117.1432,57.6746 117.1404,57.6684 117.1419,57.6572 117.1415,57.6512 117.1406,57.6460 117.1419,57.6413 117.1481,57.6391 117.1570,57.6392 117.1712,57.6438 117.1787,57.6438 117.2681,57.6233 117.2758,57.6205 117.2823,57.6172 117.2866,57.6125 117.2892,57.6072 117.2926,57.5954 117.2948,57.5898 117.2979,57.5847 117.2978,57.5780 117.2941,57.5699 117.2740,57.5544 117.2599,57.5369 117.2583,57.5308 117.2545,57.5193 117.2543,57.5139 117.2571,57.5090 117.2682,57.4998 117.2762,57.4919 117.2792,57.4869 117.2811,57.4813 117.2836,57.4691 117.2866,57.4638 117.2919,57.4600 117.3207,57.4567 117.3264,57.4533 117.3352,57.4377 117.3368,57.4314 117.3375,57.4249 117.3340,57.4156 117.3344,57.4099 117.3371,57.4048 117.3458,57.3960 117.3482,57.3906 117.3480,57.3840 117.3412,57.3742 117.3389,57.3676 117.3402,57.3618 117.3473,57.3524 117.3532,57.3419 117.3567,57.3371 117.3657,57.3282 117.3718,57.3249 117.3802,57.3236 117.3888,57.3245 117.4290,57.3360 117.4357,57.3366 117.4402,57.3338 117.4436,57.3293 117.4457,57.3237 117.4478,57.3043 117.4435,57.2892 117.4287,57.2687 117.4270,57.2637 117.4281,57.2589 117.4319,57.2547 117.4436,57.2475 117.4569,57.2410 117.4643,57.2392 117.4727,57.2393 117.5077,57.2545 117.5411,57.2611 117.5488,57.2650 117.5533,57.2701 117.5844,57.3140 117.5903,57.3185 117.5971,57.3212 117.6048,57.3203 117.6368,57.3104 117.6553,57.3065 117.7748,57.3019 117.7840,57.2998 117.7911,57.2970 117.7945,57.2927 117.7943,57.2874 117.7721,57.2440 117.7628,57.2211 117.7589,57.2142 117.7534,57.2068 117.7428,57.1958 117.7335,57.1905 117.7234,57.1871 117.6256,57.1635 117.6040,57.1542 117.6009,57.1497 117.6043,57.1462 117.6101,57.1428 117.6147,57.1384 117.6165,57.1328 117.6156,57.1143 117.6176,57.1088 117.6207,57.1039 117.6305,57.0955 117.6688,57.0750 117.6736,57.0708 117.6766,57.0658 117.6770,57.0598 117.6759,57.0539 117.6720,57.0428 117.6720,57.0377 117.6742,57.0332 117.6829,57.0248 117.6856,57.0196 117.6854,57.0136 117.6769,57.0007 117.6766,56.9996 117.6763,56.9930 117.6750,56.9863 117.6725,56.9775 117.6677,56.9721 117.6622,56.9675 117.6495,56.9606 117.6209,56.9487 117.5758,56.9347 117.5723,56.9300 117.5723,56.9246 117.5795,56.9017 117.5811,56.8894 117.5791,56.8701 117.5748,56.8574 117.5708,56.8512 117.5648,56.8502 117.5581,56.8518 117.5257,56.8683 117.5175,56.8704 117.5091,56.8716 117.4990,56.8695 117.4892,56.8652 117.4709,56.8535 117.4643,56.8461 117.4621,56.8382 117.4624,56.8316 117.4584,56.8221 117.4514,56.8190 117.4431,56.8190 117.4272,56.8231 117.4191,56.8244 117.4114,56.8266 117.4052,56.8299 117.4005,56.8337 117.3987,56.8382 117.4025,56.8435 117.4073,56.8480 117.4107,56.8524 117.4111,56.8564 117.4053,56.8586 117.3548,56.8652 117.3483,56.8677 117.3470,56.8715 117.3507,56.8816 117.3538,56.8938 117.3603,56.9103 117.3601,56.9149 117.3553,56.9183 117.3491,56.9211 117.3452,56.9249 117.3446,56.9303 117.3446,56.9360 117.3426,56.9414 117.3371,56.9441 117.3279,56.9427 117.3224,56.9377 117.3173,56.9300 117.3102,56.9259 117.3012,56.9233 117.2811,56.9200 117.2545,56.9110 117.2405,56.9008 117.2211,56.8902 117.1978,56.8804 117.1898,56.8756 117.1834,56.8708 117.1795,56.8660 117.1687,56.8443 117.1668,56.8383 117.1626,56.8305 117.1556,56.8219 117.1406,56.8085 117.1311,56.8042 117.1230,56.8042 117.1109,56.8108 117.1032,56.8136 117.0940,56.8154 117.0454,56.8146 117.0305,56.8123 117.0122,56.8065 117.0073,56.8009 117.0093,56.7966 117.0310,56.7876 117.0364,56.7840 117.0364,56.7782 117.0313,56.7751 117.0237,56.7733 116.9958,56.7790 116.9782,56.7807 116.9682,56.7800 116.9596,56.7781 116.8150,56.7262 116.8061,56.7247 116.7965,56.7245 116.7880,56.7262 116.7810,56.7291 116.7748,56.7327 116.7504,56.7535 116.7439,56.7569 116.7365,56.7597 116.7255,56.7603 116.7130,56.7595 116.6755,56.7499 116.6291,56.7485 116.5687,56.7569 116.5606,56.7593 116.5538,56.7625 116.5485,56.7665 116.5436,56.7707 116.5315,56.7847 116.5269,56.7890 116.5214,56.7929 116.5087,56.7991 116.5024,56.8014 116.4610,56.8082 116.4398,56.8172 116.4220,56.8213 116.3904,56.8247 116.3818,56.8269 116.3762,56.8304 116.3741,56.8351 116.3728,56.8404 116.3688,56.8446 116.3616,56.8473 116.3511,56.8480 116.3402,56.8476 116.3153,56.8438 116.2972,56.8384 116.2845,56.8327 116.2687,56.8235 116.2573,56.8195 116.2450,56.8177 116.2007,56.8166 116.1743,56.8103 116.1642,56.8091 116.1417,56.8097 116.1220,56.8127 116.1141,56.8151 116.1013,56.8219 116.0726,56.8474 116.0612,56.8549 116.0549,56.8582 116.0480,56.8607 116.0407,56.8619 116.0092,56.8568 116.0013,56.8563 115.9852,56.8571 115.9748,56.8588 115.9647,56.8615 115.9574,56.8650 115.8745,56.9251 115.8678,56.9289 115.8602,56.9324 115.7108,56.9635 115.6907,56.9567 115.6708,56.9533 115.6220,56.9337 115.6049,56.9226 115.5890,56.9020 115.5908,56.8855 115.5996,56.8679 115.6049,56.8437 115.6072,56.8075 115.6058,56.7868 115.5987,56.7649 115.5873,56.7472 115.5713,56.7319 115.5508,56.7212 115.4761,56.7091 115.4494,56.7004 115.4341,56.6898 115.4356,56.6411 115.4904,56.6199 115.6123,56.6141 115.6613,56.6023 115.6771,56.6004 115.6879,56.5954 115.6880,56.5838 115.6779,56.5529 115.6734,56.5472 115.6726,56.5399 115.6805,56.5253 115.6863,56.5193 115.6947,56.5132 115.7044,56.5079 115.7686,56.4875 115.7870,56.4738 115.8005,56.4661 115.8011,56.4556 115.7969,56.4442 115.7898,56.4366 115.7780,56.4342 115.7652,56.4362 115.7420,56.4428 115.7135,56.4444 115.6944,56.4392 115.6838,56.4245 115.6805,56.3981 115.6824,56.3937 115.6907,56.3781 115.6935,56.3677 115.6929,56.3571 115.6876,56.3376 115.6880,56.3267 115.6944,56.3097 115.7191,56.2687 115.7600,56.2189 115.7736,56.2057 115.7966,56.1964 115.8229,56.1931 115.8334,56.1888 115.8376,56.1789 115.8330,56.1718 115.8221,56.1663 115.8096,56.1628 115.8000,56.1616 115.7776,56.1541 115.7701,56.1370 115.7750,56.1186 115.7898,56.1070 115.7713,56.0924 115.7649,56.0857 115.7625,56.0760 115.7667,56.0680 115.7855,56.0534 115.7969,56.0193 115.8144,56.0067 115.8581,55.9903 115.8763,55.9786 115.8893,55.9652 115.8970,55.9481 115.8996,55.9251 115.8910,55.9058 115.8530,55.8777 115.8444,55.8568 115.8479,55.8347 115.8628,55.7904 115.8655,55.7712 115.8460,55.7256 115.8448,55.7048 115.8689,55.6961 115.8818,55.6949 115.8955,55.6912 115.9069,55.6846 115.9133,55.6749 115.9121,55.6630 115.9049,55.6538 115.8966,55.6468 115.8922,55.6415 115.8928,55.6282 115.8983,55.6221 115.9044,55.6170 115.9064,55.6067 115.9030,55.5961 115.8902,55.5766 115.8860,55.5657 115.8867,55.5453 115.8952,55.5254 115.9103,55.5103 115.9400,55.5006 115.9522,55.4922 115.9631,55.4828 115.9679,55.4764 115.9661,55.4653 115.9587,55.4599 115.9494,55.4560 115.9413,55.4496 115.9337,55.4372 115.9346,55.4322 115.9388,55.4281 115.9413,55.4183 115.9450,55.4138 115.9637,55.3979 115.9717,55.3944 115.9967,55.3989 116.0481,55.4155 116.0716,55.4149 116.1084,55.3851 116.1314,55.3744 116.1777,55.3906 116.3760,55.4087 116.3933,55.4022 116.4055,55.3867 116.4158,55.3684 116.4272,55.3535 116.4392,55.3472 116.4502,55.3446 116.4582,55.3404 116.4613,55.3289 116.4594,55.3212 116.4566,55.3160 116.4570,55.3105 116.4651,55.3019 116.4673,55.2945 116.4651,55.2698 116.4688,55.2579 116.4759,55.2532 116.5092,55.2436 116.5759,55.2134 116.5951,55.2094 116.6036,55.2058 116.6099,55.1973 116.6147,55.1882 116.6191,55.1822 116.6307,55.1761 116.6674,55.1685 116.7159,55.1446 116.7284,55.1424 116.7739,55.1480 116.7825,55.1437 116.7918,55.1335 116.8081,55.1088 116.8146,55.1042 116.8176,55.0996 116.8130,55.0916 116.8103,55.0851 116.8108,55.0791 116.8160,55.0738 116.8416,55.0552 116.8446,55.0448 116.8381,55.0340 116.8291,55.0235 116.8244,55.0140 116.8305,55.0049 116.8445,55.0035 116.8605,55.0049 116.8723,55.0040 116.8757,54.9957 116.8730,54.9846 116.8752,54.9763 116.8927,54.9767 116.8846,54.9559 116.8797,54.9286 116.8849,54.9049 116.9234,54.8855 116.9181,54.8411 116.9275,54.8259 116.8902,54.8124 116.8734,54.8033 116.8661,54.7911 116.8817,54.7558 116.8836,54.7375 116.8655,54.7297 116.8425,54.7244 116.8114,54.7008 116.7741,54.6903 116.7702,54.6769 116.7698,54.6591 116.7630,54.6403 116.7681,54.6377 116.7703,54.6351 116.7722,54.6317 116.7773,54.6266 116.7413,54.6089 116.7326,54.6027 116.7233,54.5903 116.7241,54.5820 116.7268,54.5747 116.7233,54.5652 116.7036,54.5540 116.6732,54.5478 116.5866,54.5428 116.5582,54.5379 116.5497,54.5381 116.5437,54.5405 116.5382,54.5416 116.5309,54.5379 116.5259,54.5306 116.5267,54.5241 116.5309,54.5168 116.5226,54.5064 116.5166,54.5004 116.5082,54.4976 116.4921,54.4969 116.4868,54.5000 116.4790,54.5069 116.4691,54.5137 116.4579,54.5168 116.1905,54.5385 116.1398,54.5304 116.1054,54.5182 116.0918,54.5168 116.0454,54.5179 116.0334,54.5137 116.0108,54.5020 115.9852,54.5001 115.9338,54.5038 115.9092,54.4998 115.8601,54.4862 115.8233,54.4813 115.7966,54.4723 115.6294,54.4423 115.6182,54.4387 115.5843,54.4144 115.5726,54.4115 115.5483,54.4101 115.5365,54.4075 115.5261,54.4036 115.5143,54.3972 115.5077,54.3883 115.5177,54.3654 115.5135,54.3549 115.5062,54.3450 115.5024,54.3355 115.4911,54.3287 115.3432,54.2845 115.3208,54.2672 115.3105,54.2623 115.2814,54.2602 115.2691,54.2567 115.2613,54.2501 115.2491,54.2345 115.2417,54.2288 115.2176,54.2223 115.1954,54.2196 115.1792,54.2106 115.1728,54.1847 115.1645,54.1617 115.1441,54.1483 115.0983,54.1332 115.0801,54.1207 115.0695,54.1155 115.0436,54.1114 115.0313,54.1062 115.0233,54.0984 115.0260,54.0888 115.0326,54.0762 115.0270,54.0679 115.0048,54.0567 114.9936,54.0539 114.9885,54.0512 114.9855,54.0477 114.9838,54.0402 114.9816,54.0370 114.9665,54.0234 114.9576,54.0192 114.9441,54.0177 114.9025,53.9998 114.8851,53.9885 114.8601,53.9805 114.8331,53.9761 114.8098,53.9755 114.7805,53.9818 114.7674,53.9815 114.7619,53.9724 114.7572,53.9675 114.7459,53.9618 114.7334,53.9570 114.7244,53.9551 114.6719,53.9510 114.6475,53.9447 114.6248,53.9346 114.6195,53.9394 114.6133,53.9408 114.6060,53.9391 114.5975,53.9346 114.5883,53.9266 114.5670,53.8970 114.5169,53.8544 114.5007,53.8449 114.4809,53.8402 114.4540,53.8390 114.4065,53.8441 114.3775,53.8437 114.3647,53.8356 114.3596,53.8119 114.3457,53.7981 114.3261,53.7900 114.2776,53.7792 114.2246,53.7745 114.1999,53.7670 114.1880,53.7681 114.1603,53.7871 114.1456,53.7906 114.1389,53.7866 114.1253,53.7701 114.1176,53.7639 114.0939,53.7564 114.0087,53.7496 113.9835,53.7437 113.9728,53.7299 113.9767,53.7138 113.9953,53.7012 113.9822,53.6814 113.9654,53.6774 113.9265,53.6813 113.9200,53.6801 113.9157,53.6788 113.9059,53.6745 113.9021,53.6710 113.9004,53.6665 113.8995,53.6624 113.8985,53.6602 113.8848,53.6566 113.8511,53.6602 113.8405,53.6586 113.8271,53.6545 113.8145,53.6490 113.8061,53.6431 113.7927,53.6297 113.7958,53.6257 113.8061,53.6162 113.8222,53.6082 113.8284,53.6020 113.8776,53.5620 113.8849,53.5533 113.8879,53.5456 113.8894,53.5354 113.8886,53.5154 113.8857,53.5008 113.8852,53.5001 113.8780,53.4966 113.8717,53.4945 113.8641,53.4928 113.8548,53.4886 113.8458,53.4808 113.8338,53.4642 113.8300,53.4547 113.8307,53.4477 113.8346,53.4394 113.8378,53.4277 113.8360,53.4020 113.8387,53.3902 113.8425,53.3818 113.8489,53.3782 113.9013,53.3606 113.9111,53.3588 113.9359,53.3582 113.9420,53.3556 113.9462,53.3518 113.9495,53.3475 113.9551,53.3373 113.9606,53.3215 113.9594,53.3144 113.9561,53.3080 113.9514,53.3013 113.9474,53.2939 113.9449,53.2832 113.9464,53.2766 113.9501,53.2713 113.9637,53.2590 113.9776,53.2398 113.9828,53.2362 113.9888,53.2362 114.0399,53.2508 114.0469,53.2511 114.0517,53.2493 114.0528,53.2451 114.0511,53.2396 114.0480,53.2337 114.0464,53.2287 114.0494,53.2245 114.0727,53.2156 114.0933,53.2052 114.1018,53.2029 114.1107,53.2018 114.1618,53.2046 114.1710,53.2041 114.1810,53.2018 114.1900,53.1983 114.1977,53.1925 114.2008,53.1871 114.2019,53.1816 114.2017,53.1762 114.2004,53.1706 114.1979,53.1647 114.1854,53.1463 114.1710,53.1299 114.1653,53.1254 114.1462,53.1152 114.1408,53.1106 114.1321,53.0995 114.1293,53.0927 114.1282,53.0856 114.1290,53.0763 114.1329,53.0729 114.1386,53.0731 114.1447,53.0765 114.1503,53.0810 114.1559,53.0848 114.1618,53.0869 114.1683,53.0853 114.1733,53.0820 114.1780,53.0783 114.1834,53.0756 114.1905,53.0756 114.1968,53.0781 114.2030,53.0817 114.2196,53.0951 114.2256,53.0991 114.2321,53.1016 114.2398,53.1013 114.2460,53.0987 114.2512,53.0950 114.2558,53.0909 114.2685,53.0836 114.3251,53.0677 114.3138,53.0524 114.2979,53.0403 114.2878,53.0263 114.2846,53.0181 114.2863,53.0122 114.2924,53.0041 114.3023,52.9948 114.3066,52.9895 114.3101,52.9827 114.3128,52.9718 114.3100,52.9666 114.3032,52.9643 114.2558,52.9666 114.2453,52.9652 114.2330,52.9605 114.2283,52.9554 114.2275,52.9501 114.2293,52.9453 114.2385,52.9313 114.2407,52.9258 114.2407,52.9185 114.2368,52.9114 114.2200,52.8936 114.2163,52.8864 114.2148,52.8801 114.2159,52.8698 114.2190,52.8600 114.2230,52.8506 114.2357,52.8316 114.2380,52.8255 114.2351,52.8215 114.2292,52.8193 114.2219,52.8173 114.2159,52.8136 114.1717,52.7777 114.1303,52.7300 114.1029,52.7046 114.0878,52.6946 114.0604,52.6842 114.0475,52.6778 114.0194,52.6683 114.0126,52.6653 113.9653,52.6332 113.9551,52.6285 113.9462,52.6276 113.9271,52.6309 113.9150,52.6308 113.9009,52.6276 113.8637,52.6084 113.8513,52.6047 113.8279,52.6034 113.8139,52.5990 113.7996,52.5877 113.7886,52.5834 113.7790,52.5811 113.7699,52.5815 113.7579,52.5790 113.7442,52.5736 113.7093,52.5514 113.6712,52.5341 113.6627,52.5279 113.6565,52.5213 113.6492,52.5077 113.6446,52.5034 113.6400,52.5010 113.6384,52.5003 113.6356,52.4994 113.6200,52.4926 113.5898,52.4604 113.5806,52.4545 113.5725,52.4535 113.5666,52.4564 113.5617,52.4604 113.5450,52.4822 113.5400,52.4853 113.5313,52.4861 113.4924,52.4737 113.4352,52.4685 113.2979,52.4719 113.2738,52.4762 113.2661,52.4755 113.2361,52.4688 113.1572,52.4416 113.1466,52.4398 113.1302,52.4345 113.0912,52.4074 112.9499,52.3433 112.9306,52.3372 112.9220,52.3358 112.9139,52.3354 112.9053,52.3367 112.8806,52.3439 112.8476,52.3433 112.8161,52.3383 112.7990,52.3376 112.7620,52.3399 112.6983,52.3301 112.6896,52.3302 112.6805,52.3314 112.6245,52.3526 112.6143,52.3545 112.6020,52.3547 112.5686,52.3483 112.5448,52.3470 112.5404,52.3436 112.5299,52.3308 112.5070,52.3128 112.5030,52.3063 112.5023,52.3008 112.5032,52.2851 112.5008,52.2693 112.4995,52.2653 112.4967,52.2604 112.4922,52.2542 112.4822,52.2458 112.4723,52.2415 112.4441,52.2335 112.4351,52.2288 112.4054,52.2084 112.3742,52.2127 112.3033,52.2468 112.2902,52.2504 112.2798,52.2508 112.2475,52.2439 112.2163,52.2424 112.2062,52.2448 112.2003,52.2487 112.1987,52.2536 112.1969,52.2638 112.1934,52.2735 112.1910,52.2782 112.1845,52.2881 112.1783,52.2933 112.1671,52.2995 112.1550,52.3002 112.1467,52.2983 112.1424,52.2937 112.1399,52.2844 112.1362,52.2816 112.1290,52.2808 112.0799,52.2824 112.0696,52.2804 112.0618,52.2772 112.0576,52.2724 112.0505,52.2550 112.0475,52.2492 112.0430,52.2443 112.0250,52.2339 112.0192,52.2298 112.0093,52.2205 112.0040,52.2175 111.9994,52.2160 111.9551,52.2082 111.9400,52.2039 111.9319,52.1984 111.9302,52.1931 111.9291,52.1820 111.9276,52.1764 111.9239,52.1706 111.9195,52.1657 111.9050,52.1564 111.8935,52.1512 111.8867,52.1474 111.8852,52.1428 111.8858,52.1382 111.8846,52.1330 111.8790,52.1275 111.8150,52.1013 111.7964,52.0899 111.7454,52.0267 111.7237,52.0057 111.6900,51.9804 111.6658,51.9657 111.6591,51.9629 111.6355,51.9570 111.6243,51.9518 111.6037,51.9312 111.5947,51.9255 111.5860,51.9217 111.5473,51.9153 111.5175,51.9042 111.4844,51.8879 111.4671,51.8814 111.4537,51.8778 111.4293,51.8753 111.3996,51.8685 111.3832,51.8671 111.3743,51.8672 111.3382,51.8617 111.2050,51.8259 111.1972,51.8249 111.1882,51.8257 111.1789,51.8277 111.1566,51.8251 111.1250,51.8179 111.0551,51.7937 111.0314,51.7820 111.0189,51.7727 111.0201,51.7677 111.0189,51.7564 111.0167,51.7503 111.0072,51.7313 111.0025,51.7253 110.9981,51.7231 110.9913,51.7226 110.9586,51.7237 110.9502,51.7214 110.9431,51.7183 110.8908,51.6819 110.8502,51.6691 110.8449,51.6646 110.8447,51.6600 110.8544,51.6468 110.8589,51.6374 110.8608,51.6325 110.8630,51.6223 110.8664,51.6127 110.8676,51.6073 110.8668,51.6017 110.8624,51.5950 110.8558,51.5919 110.8481,51.5900 110.8150,51.5845 110.7878,51.5756 110.7790,51.5705 110.7731,51.5649 110.7709,51.5596 110.7627,51.5504 110.7482,51.5385 110.7118,51.5157 110.6925,51.5078 110.6770,51.5045 110.6392,51.5078 110.6216,51.5076 110.5528,51.4959 110.5448,51.4959 110.5333,51.4991 110.5077,51.5097 110.4956,51.5133 110.4225,51.5233 110.4174,51.5269 110.4137,51.5310 110.4092,51.5406 110.4022,51.5654 110.4003,51.5702 110.3965,51.5744 110.3892,51.5770 110.3654,51.5767 110.3557,51.5777 110.3333,51.5864 110.3147,51.5909 110.2771,51.5936 110.2084,51.5918 110.0936,51.6028 110.0753,51.6075 110.0604,51.6142 110.0492,51.6161 110.0387,51.6136 110.0224,51.6074 110.0122,51.6046 109.9836,51.6049 109.9761,51.6024 109.9454,51.5857 109.9273,51.5726 109.8923,51.5575 109.8343,51.5409 109.8283,51.5375 109.8122,51.5250 109.8009,51.5188 109.7187,51.4890 109.6968,51.4768 109.6287,51.4491 109.5373,51.4403 109.4485,51.4197 109.4182,51.4077 109.4012,51.3964 109.3966,51.3919 109.3926,51.3864 109.3900,51.3805 109.3883,51.3746 109.3854,51.3677 109.3815,51.3611 109.3730,51.3531 109.3668,51.3528 109.3613,51.3549 109.3577,51.3592 109.3549,51.3639 109.3509,51.3735 109.3495,51.3785 109.3465,51.3832 109.3421,51.3870 109.3322,51.3888 109.3244,51.3877 109.3174,51.3850 109.2954,51.3739 109.2703,51.3653 109.2567,51.3644 109.2472,51.3660 109.2056,51.3961 109.1743,51.4243 109.1537,51.4394 109.1360,51.4500 109.1318,51.4542 109.1286,51.4587 109.1270,51.4636 109.1248,51.4738 109.1233,51.4787 109.1200,51.4832 109.1163,51.4876 109.1115,51.4914 109.0976,51.4985 109.0739,51.5066 109.0530,51.5034 109.0499,51.5014 109.0471,51.5004 109.0447,51.4964 109.0333,51.4811 109.0199,51.4668 109.0113,51.4604 109.0038,51.4562 108.9599,51.4433 108.9420,51.4405 108.8586,51.4437 108.8370,51.4476 108.8114,51.4560 108.7999,51.4585 108.7885,51.4574 108.7571,51.4488 108.7470,51.4484 108.7409,51.4508 108.7375,51.4550 108.7331,51.4591 108.7271,51.4625 108.6959,51.4722 108.6684,51.4850 108.6624,51.4885 108.6575,51.4923 108.6536,51.4958 108.6495,51.5002 108.6491,51.5006 108.6362,51.5055 108.6180,51.5100 108.6067,51.5105 108.5975,51.5092 108.5915,51.5062 108.5869,51.5031 108.5833,51.5003 108.5829,51.4998 108.5471,51.4747 108.5423,51.4702 108.5380,51.4653 108.5347,51.4601 108.5335,51.4550 108.5340,51.4500 108.5362,51.4398 108.5365,51.4343 108.5349,51.4285 108.5318,51.4228 108.5256,51.4174 108.5200,51.4139 108.4978,51.4048 108.4919,51.3771 108.4851,51.3623 108.4662,51.3385 108.4534,51.3274 108.4416,51.3197 108.4291,51.3135 108.3820,51.2983 108.3678,51.2902 108.3601,51.2832 108.3555,51.2756 108.3542,51.2673 108.3557,51.2613 108.3588,51.2564 108.3626,51.2521 108.3727,51.2445 108.3845,51.2375 108.3992,51.2317 108.4077,51.2299 108.4276,51.2286 108.4356,51.2262 108.4434,51.2219 108.4505,51.2098 108.4567,51.2031 108.4631,51.1978 108.5423,51.1639 108.5547,51.1571 108.5601,51.1513 108.5653,51.1434 108.5718,51.1295 108.5724,51.1185 108.5700,51.1108 108.5651,51.1057 108.5318,51.0830 108.5118,51.0654 108.5066,51.0623 108.5013,51.0600 108.4975,51.0588 108.4840,51.0567 108.3527,51.0554 108.3357,51.0458 108.3085,51.0110 108.3031,50.9796 108.2970,50.9631 108.2686,50.9115 108.2632,50.8992 108.2601,50.8898 108.2497,50.8435 108.2427,50.8382 108.2348,50.8346 108.2268,50.8333 108.2128,50.8286 108.1886,50.8176 108.1335,50.7994 108.0859,50.7751 108.0737,50.7657 108.0686,50.7591 108.0670,50.7535 108.0681,50.7497 108.0697,50.7465 108.0769,50.7357 108.1021,50.7099 108.1209,50.6942 108.1422,50.6795 108.1798,50.6596 108.1873,50.6576 108.2299,50.6573 108.2390,50.6560 108.2475,50.6537 108.3387,50.6189 108.3557,50.6141 108.3741,50.6119 108.3994,50.6131 108.4081,50.6123 108.4168,50.6099 108.4263,50.6032 108.4344,50.5992 108.4436,50.5966 108.4527,50.5955 108.4626,50.5934 108.4722,50.5899 108.4942,50.5702 108.5165,50.5452 108.5324,50.5345 108.5387,50.5313 108.5458,50.5286 108.5541,50.5275 108.5622,50.5277 108.5780,50.5296 108.5866,50.5299 108.6140,50.5281 108.6295,50.5303 108.6438,50.5340 108.6598,50.5335 108.6848,50.5166 108.6758,50.4947 108.6601,50.4751 108.6498,50.4656 108.6404,50.4603 108.6130,50.4545 108.6047,50.4538 108.5977,50.4551 108.5925,50.4583 108.5829,50.4657 108.5712,50.4669 108.5536,50.4651 108.4843,50.4498 108.4759,50.4503 108.4675,50.4522 108.4505,50.4576 108.4396,50.4597 108.4322,50.4581 108.4261,50.4546 108.4214,50.4497 108.4174,50.4442 108.4123,50.4390 108.4011,50.4321 108.3501,50.4105 108.3299,50.4048 108.3152,50.4027 108.2645,50.4116 108.2369,50.4127 108.2135,50.4108 108.2010,50.4083 108.1918,50.4050 108.1870,50.4010 108.1834,50.3963 108.1827,50.3913 108.1839,50.3864 108.1861,50.3816 108.1852,50.3759 108.1798,50.3690 108.1624,50.3584 108.1544,50.3505 108.1490,50.3433 108.1468,50.3371 108.1435,50.3305 108.1388,50.3244 108.1317,50.3182 108.1234,50.3169 108.1153,50.3177 108.0846,50.3286 108.0793,50.3323 108.0769,50.3369 108.0753,50.3423 108.0707,50.3459 108.0580,50.3465 108.0216,50.3357 108.0141,50.3348 107.9902,50.3348 107.9882,50.3315 107.9881,50.3272 107.9890,50.3165 107.9887,50.3108 107.9806,50.2976 107.9476,50.2766 107.9368,50.2536 107.9346,50.2286 107.9309,50.2209 107.9263,50.2148 107.9064,50.2000 107.8996,50.1965 107.8931,50.1947 107.8869,50.1962 107.8724,50.2070 107.8661,50.2098 107.8588,50.2112 107.8509,50.2111 107.8418,50.2097 107.8209,50.2032 107.8170,50.1987 107.8160,50.1938 107.8167,50.1883 107.8160,50.1821 107.8126,50.1744 107.8073,50.1693 107.8012,50.1654 107.7770,50.1566 107.7724,50.1521 107.7697,50.1472 107.7631,50.1160 107.7631,50.1105 107.7646,50.1056 107.7702,50.1021 107.7953,50.0944 107.7993,50.0908 107.8011,50.0861 107.8011,50.0807 107.7981,50.0576 107.7981,50.0525 107.7975,50.0476 107.7977,50.0396 107.7971,50.0337 107.7955,50.0257 107.7919,50.0199 107.7535,49.9794 107.7448,49.9676 107.7448,49.9676 107.7303,49.9719 107.3650,49.9761 107.3058,50.0100 107.3050,50.0099 107.3049,50.0100 107.2804,50.0076 107.2549,49.9989 107.2257,49.9971 107.1931,50.0060 107.1654,50.0189 107.1156,50.0505 107.1017,50.0568 107.0712,50.0662 107.0581,50.0741 107.0494,50.0846 107.0402,50.1083 107.0346,50.1188 107.0272,50.1257 107.0070,50.1402 106.9989,50.1498 106.9837,50.1871 106.9746,50.1964 106.9374,50.2091 106.7892,50.2915 106.7471,50.3074 106.6575,50.3270 106.5492,50.3358 106.5487,50.3358 106.5482,50.3358 106.4398,50.3279 106.2452,50.2903 106.2232,50.2924 106.2021,50.2997 106.1619,50.3196 106.1363,50.3271 106.0569,50.3336 106.0491,50.3381 106.0454,50.3460 106.0442,50.3555 106.0442,50.3648 106.0399,50.3714 105.9858,50.3998 105.9590,50.4036 105.9052,50.4038 105.8557,50.4109 105.8075,50.4244 105.7802,50.4289 105.7795,50.4289 105.7793,50.4289 105.6401,50.4220 105.3296,50.4765 105.3289,50.4764 105.3286,50.4765 105.2785,50.4726 105.2407,50.4580 105.1313,50.3981 105.1058,50.3901 105.0782,50.3851 105.0507,50.3835 104.9352,50.3933 104.9348,50.3932 104.9342,50.3933 104.9016,50.3898 104.8790,50.3839 104.8185,50.3583 104.7896,50.3526 104.6980,50.3532 104.6980,50.3532 104.6971,50.3532 104.6719,50.3483 104.6325,50.3238 104.6104,50.3142 104.5772,50.3095 104.4751,50.3133 104.4749,50.3132 104.4741,50.3133 104.4058,50.3005 104.3772,50.2892 104.3495,50.2719 104.3214,50.2543 104.2690,50.2289 104.2475,50.2066 104.1981,50.1700 104.1217,50.1483 104.0401,50.1412 103.9749,50.1487 103.8464,50.1847 103.7862,50.1861 103.7862,50.1861 103.7853,50.1861 103.6681,50.1312 103.6024,50.1335 103.5349,50.1538 103.4749,50.1820 103.4397,50.1926 103.4081,50.1973 103.4074,50.1973 103.4071,50.1973 103.3073,50.1905 103.2777,50.1976 103.2541,50.2150 103.2411,50.2444 103.2026,50.2970 103.1310,50.3091 103.1303,50.3091 103.1300,50.3091 102.9747,50.2957 102.9283,50.3030 102.8881,50.3150 102.7635,50.3748 102.6205,50.3990 102.6187,50.3993 102.5875,50.4153 102.5141,50.5037 102.4728,50.5249 102.3736,50.5337 102.3286,50.5455 102.3039,50.5639 102.2834,50.5906 102.2725,50.6209 102.2769,50.6502 102.2978,50.6749 102.3212,50.6961 102.3303,50.7188 102.3085,50.7482 102.2466,50.7788 102.2177,50.7989 102.2040,50.8294 102.2137,50.8567 102.2328,50.8848 102.2404,50.9123 102.2162,50.9382 102.2265,50.9507 102.2320,50.9649 102.2306,50.9793 102.2203,50.9927 102.1929,51.0206 102.1663,51.0576 102.1475,51.0976 102.1431,51.1348 102.1497,51.1688 102.1510,51.1854 102.1486,51.2026 102.1406,51.2209 102.1347,51.2309 102.1362,51.2403 102.1802,51.2864 102.1943,51.3072 102.1848,51.3239 102.0922,51.3646 102.0756,51.3748 102.0522,51.3836 101.9752,51.3872 101.9566,51.3938 101.9216,51.4130 101.9028,51.4171 101.9020,51.4170 101.9019,51.4171 101.8226,51.4136 101.7963,51.4194 101.7431,51.4448 101.7246,51.4506 101.6976,51.4524 101.6970,51.4524 101.6966,51.4524 101.6445,51.4501 101.5708,51.4701 101.5273,51.4758 101.5267,51.4758 101.5264,51.4758 101.4821,51.4729 101.3878,51.4506 101.3511,51.4505 101.3164,51.4636 101.2806,51.4926 101.2425,51.5152 101.2017,51.5209 101.1597,51.5212 101.1180,51.5278 101.0704,51.5534 100.6399,51.6920 100.5721,51.7048 100.5118,51.7269 100.5109,51.7269 100.5109,51.7269 100.2112,51.7262 100.0992,51.7387 100.0986,51.7386 100.0983,51.7387 100.0067,51.7318 99.9189,51.7495 99.8496,51.7893 99.7849,51.8376 99.7106,51.8806 99.6803,51.8887 99.5578,51.8915 99.4582,51.9097 99.3248,51.9342 99.2963,51.9435 99.2756,51.9595 99.2569,51.9779 99.2338,51.9942 99.1997,52.0066 99.0260,52.0455 98.9957,52.0583 98.9754,52.0804 98.9634,52.1126 98.9494,52.1194 98.9386,52.1247 98.9427,52.1405 98.9482,52.1461 98.9485,52.1528 98.9415,52.1787 98.9378,52.1861 98.9333,52.1919 98.9278,52.1954 98.9207,52.1980 98.9130,52.2000 98.9041,52.2005 98.9038,52.2004 98.9031,52.2005 98.8950,52.1996 98.8873,52.1977 98.8605,52.1875 98.8512,52.1855 98.8407,52.1850 98.8229,52.1877 98.8145,52.1918 98.8099,52.1964 98.8096,52.2010 98.8099,52.2045 98.8176,52.2364 98.8185,52.2480 98.8174,52.2535 98.8148,52.2592 98.8080,52.2696 98.8004,52.2742 98.7920,52.2757 98.7808,52.2767 98.7666,52.2793 98.7424,52.2890 98.7273,52.2925 98.7156,52.2934 98.7154,52.2934 98.7146,52.2934 98.7072,52.2915 98.7006,52.2887 98.6895,52.2816 98.6849,52.2772 98.6759,52.2675 98.6728,52.2631 98.6606,52.2571 98.6471,52.2628 98.6418,52.2715 98.6416,52.2891 98.6446,52.3030 98.6474,52.3090 98.6619,52.3296 98.6709,52.3462 98.6769,52.3623 98.6781,52.3697 98.6771,52.3756 98.6354,52.4128 98.6301,52.4206 98.6302,52.4243 98.6341,52.4272 98.6595,52.4299 98.6743,52.4340 98.7164,52.4585 98.7226,52.4641 98.7242,52.4688 98.7236,52.4731 98.7217,52.4787 98.7195,52.4881 98.7198,52.4929 98.7215,52.4965 98.7294,52.5049 98.7339,52.5072 98.7385,52.5080 98.7475,52.5045 98.7651,52.5040 98.7652,52.5040 98.7660,52.5040 98.7923,52.5072 98.7991,52.5097 98.8065,52.5140 98.8233,52.5308 98.8261,52.5374 98.8266,52.5413 98.8235,52.5449 98.8191,52.5483 98.8017,52.5586 98.7967,52.5646 98.7938,52.5729 98.7947,52.5895 98.7975,52.5987 98.8014,52.6061 98.8056,52.6109 98.8111,52.6147 98.8174,52.6177 98.8393,52.6242 98.8480,52.6283 98.8577,52.6340 98.8708,52.6468 98.8789,52.6529 98.8854,52.6550 98.8898,52.6527 98.8938,52.6496 98.8976,52.6460 98.9041,52.6452 98.9044,52.6453 98.9050,52.6452 98.9146,52.6472 98.9290,52.6576 98.9350,52.6656 98.9381,52.6727 98.9384,52.6910 98.9406,52.7052 98.9409,52.7184 98.9400,52.7228 98.9313,52.7421 98.9307,52.7504 98.9319,52.7615 98.9384,52.7822 98.9399,52.7923 98.9387,52.7975 98.9324,52.7994 98.9237,52.7999 98.9233,52.7998 98.9228,52.7999 98.9140,52.7993 98.8823,52.7926 98.8748,52.7919 98.8674,52.7929 98.8620,52.7967 98.8591,52.8028 98.8598,52.8125 98.8591,52.8186 98.8577,52.8230 98.8543,52.8277 98.8517,52.8355 98.8537,52.8413 98.8573,52.8466 98.9296,52.9185 98.9390,52.9249 98.9489,52.9283 98.9579,52.9283 98.9684,52.9273 98.9777,52.9255 98.9851,52.9228 98.9953,52.9160 99.0061,52.9074 99.0169,52.9005 99.0301,52.8942 99.0450,52.8888 99.0817,52.8810 99.1509,52.8736 99.1586,52.8712 99.1893,52.8547 99.1977,52.8531 99.1985,52.8531 99.1986,52.8531 99.2076,52.8534 99.2168,52.8569 99.2206,52.8614 99.2213,52.8652 99.2148,52.8892 99.2144,52.8957 99.2151,52.9031 99.2184,52.9132 99.2240,52.9199 99.2408,52.9349 99.2458,52.9403 99.2507,52.9538 98.9903,53.0345 98.9853,53.0392 98.9836,53.0446 98.9853,53.0502 98.9885,53.0555 98.9960,53.0646 99.0005,53.0668 99.0050,53.0683 99.0117,53.0699 99.0253,53.0747 99.0575,53.0896 99.0628,53.0930 99.0653,53.0974 99.0566,53.1038 98.9647,53.1365 98.9541,53.1438 98.9482,53.1469 98.9386,53.1494 98.9262,53.1511 98.9253,53.1511 98.9253,53.1511 98.9037,53.1509 98.8931,53.1479 98.8869,53.1425 98.8821,53.1302 98.8789,53.1250 98.8621,53.1245 98.6988,53.1548 98.6884,53.1552 98.6882,53.1551 98.6874,53.1552 98.6790,53.1540 98.6718,53.1515 98.6659,53.1481 98.6152,53.1075 98.6082,53.1047 98.5995,53.1035 98.5472,53.1104 98.5465,53.1104 98.5463,53.1104 98.3925,53.1026 98.3850,53.1004 98.3658,53.0917 98.3589,53.0908 98.3486,53.0925 98.3337,53.0976 98.3153,53.1005 98.3041,53.1037 98.2974,53.1098 98.2885,53.1253 98.2866,53.1301 98.2870,53.1355 98.2922,53.1537 98.2926,53.1597 98.2916,53.1654 98.2897,53.1705 98.2838,53.1799 98.2819,53.1848 98.2820,53.1898 98.2844,53.1949 98.2885,53.1995 98.2981,53.2076 98.3009,53.2117 98.3000,53.2157 98.2969,53.2197 98.2901,53.2233 98.2805,53.2257 98.2796,53.2257 98.2795,53.2257 98.2216,53.2250 98.2132,53.2271 98.2058,53.2323 98.2008,53.2370 98.1925,53.2416 98.1805,53.2450 98.0856,53.2524 98.0852,53.2523 98.0847,53.2524 98.0486,53.2494 98.0402,53.2499 98.0318,53.2526 98.0134,53.2669 98.0081,53.2702 97.9883,53.2800 97.9786,53.2877 97.9746,53.2920 97.9714,53.2967 97.9694,53.3019 97.9681,53.3075 97.9684,53.3135 97.9739,53.3402 97.9739,53.3462 97.9725,53.3516 97.9672,53.3555 97.9585,53.3577 97.9577,53.3577 97.9576,53.3577 97.9422,53.3568 97.9135,53.3523 97.9048,53.3523 97.8793,53.3571 97.8591,53.3635 97.8105,53.3659 97.7323,53.3779 97.6997,53.3789 97.6996,53.3789 97.6988,53.3789 97.6502,53.3688 97.6315,53.3680 97.6197,53.3696 97.6072,53.3730 97.5931,53.3813 97.5878,53.3882 97.5866,53.3954 97.5917,53.4220 97.5912,53.4279 97.5897,53.4334 97.5868,53.4381 97.5813,53.4418 97.5751,53.4450 97.5630,53.4483 97.4857,53.4583 97.4847,53.4583 97.4847,53.4583 97.4658,53.4582 97.4563,53.4591 97.4488,53.4615 97.4408,53.4689 97.4377,53.4753 97.4365,53.4820 97.4364,53.4880 97.4348,53.4976 97.4336,53.4999 97.4098,53.5111 97.4033,53.5153 97.3983,53.5197 97.3950,53.5243 97.3926,53.5293 97.3873,53.5451 97.3848,53.5502 97.3782,53.5550 97.3525,53.5674 97.3454,53.5734 97.3415,53.5795 97.3386,53.5903 97.3349,53.5944 97.3293,53.5964 97.3287,53.5962 97.3284,53.5964 97.3179,53.5938 97.3035,53.5924 97.2839,53.5932 97.2432,53.6006 97.2266,53.6064 97.2157,53.6118 97.2117,53.6161 97.2062,53.6198 97.1996,53.6229 97.1888,53.6241 97.1882,53.6241 97.1879,53.6241 97.1744,53.6235 97.1554,53.6193 97.1448,53.6154 97.1352,53.6130 97.1284,53.6127 97.1186,53.6173 97.1019,53.6301 97.0629,53.6490 97.0526,53.6522 97.0161,53.6582 97.0054,53.6610 96.9992,53.6632 96.9960,53.6669 96.9942,53.6714 96.9933,53.6766 96.9917,53.6817 96.9849,53.6855 96.9438,53.6922 96.9351,53.6952 96.8987,53.7216 96.8930,53.7251 96.8855,53.7278 96.8759,53.7291 96.8752,53.7290 96.8749,53.7291 96.8078,53.7250 96.7428,53.7110 96.7267,53.7051 96.7184,53.6986 96.7132,53.6908 96.7038,53.6552 96.7005,53.6489 96.6976,53.6445 96.6841,53.6385 96.6586,53.6376 96.6450,53.6430 96.6400,53.6469 96.6307,53.6566 96.6239,53.6625 96.6123,53.6706 96.6042,53.6721 96.6040,53.6719 96.6032,53.6721 96.5983,53.6691 96.5919,53.6571 96.5863,53.6520 96.5755,53.6489 96.5692,53.6501 96.5593,53.6560 96.5483,53.6643 96.5061,53.6844 96.4985,53.6907 96.4952,53.7011 96.4884,53.7087 96.4770,53.7180 96.4378,53.7438 96.4307,53.7513 96.4254,53.7612 96.4151,53.7749 96.4065,53.7833 96.2632,53.8777 96.2071,53.9254 96.1857,53.9377 96.1694,53.9450 96.1269,53.9724 96.1165,53.9767 96.0595,53.9938 96.0511,53.9998 96.0546,54.0085 96.0582,54.0209 96.0628,54.0330 96.0697,54.0434 96.0744,54.0479 96.0781,54.0525 96.0806,54.0575 96.0803,54.0627 96.0765,54.0693 96.0696,54.0765 96.0559,54.0879 96.0440,54.0922 96.0332,54.0936 96.0325,54.0936 96.0322,54.0936 96.0227,54.0930 96.0070,54.0901 95.9974,54.0906 95.9853,54.0940 95.9577,54.1056 95.9453,54.1125 95.9377,54.1192 95.9360,54.1247 95.9352,54.1305 95.9330,54.1374 95.9292,54.1450 95.9200,54.1557 95.9116,54.1610 95.9014,54.1639 95.8801,54.1647 95.8686,54.1661 95.8550,54.1709 95.8322,54.1902 95.8228,54.1963 95.8137,54.2007 95.6792,54.2342 95.6717,54.2391 95.6667,54.2440 95.6639,54.2490 95.6597,54.2596 95.6541,54.2819 95.6677,54.3354 95.6738,54.3416 95.6828,54.3491 95.6918,54.3512 95.7005,54.3569 95.7039,54.3642 95.7076,54.3757 95.7120,54.3824 95.7176,54.3879 95.7307,54.3947 95.7382,54.3975 95.7590,54.4014 95.7983,54.4175 95.8203,54.4182 95.8280,54.4156 95.8339,54.4121 95.8450,54.4031 95.8539,54.3979 95.8717,54.3916 95.8849,54.3895 95.8969,54.3893 95.8970,54.3894 95.8979,54.3893 95.9069,54.3917 95.9156,54.3955 95.9230,54.3998 95.9394,54.4124 95.9487,54.4212 95.9527,54.4260 95.9664,54.4377 95.9791,54.4460 95.9821,54.4516 95.9809,54.4566 95.9776,54.4610 95.9784,54.4677 95.9844,54.4759 96.0181,54.4998 96.0201,54.5026 96.0205,54.5070 96.0189,54.5121 96.0181,54.5174 96.0215,54.5246 96.0307,54.5280 96.0338,54.5327 96.0338,54.5373 96.0323,54.5425 96.0341,54.5498 96.0398,54.5582 96.0540,54.5696 96.0656,54.5733 96.0749,54.5734 96.0826,54.5708 96.1094,54.5586 96.1171,54.5560 96.1954,54.5432 96.2072,54.5423 96.2079,54.5423 96.2081,54.5423 96.2220,54.5427 96.2802,54.5498 96.3013,54.5548 96.3127,54.5624 96.3189,54.5675 96.3274,54.5678 96.3356,54.5670 96.3514,54.5619 96.4355,54.5255 96.4950,54.5105 96.5509,54.5103 96.5510,54.5103 96.5519,54.5103 96.5657,54.5135 96.5738,54.5184 96.5753,54.5243 96.5744,54.5299 96.5722,54.5350 96.5627,54.5492 96.5550,54.5641 96.5531,54.5694 96.5520,54.5748 96.5528,54.5805 96.5556,54.5857 96.5597,54.5904 96.5691,54.5991 96.5735,54.6040 96.5764,54.6097 96.5786,54.6158 96.5820,54.6344 96.5874,54.6530 96.5877,54.6589 96.5851,54.6638 96.5813,54.6683 96.5716,54.6762 96.5674,54.6804 96.5645,54.6853 96.5640,54.6909 96.5658,54.6969 96.5900,54.7222 96.6249,54.7519 96.6292,54.7567 96.6326,54.7619 96.6355,54.7677 96.6410,54.7752 96.6489,54.7839 96.6661,54.7975 96.6735,54.8059 96.6769,54.8131 96.6779,54.8188 96.6797,54.8239 96.6939,54.8368 96.6982,54.8414 96.7016,54.8468 96.7042,54.8527 96.7075,54.8651 96.7064,54.8766 96.7041,54.8878 96.7035,54.8935 96.7042,54.8993 96.7069,54.9047 96.7104,54.9098 96.7131,54.9149 96.7148,54.9194 96.7148,54.9224 96.7128,54.9266 96.6905,54.9523 96.6830,54.9590 96.6255,54.9995 96.5871,55.0191 96.5859,55.0232 96.5896,55.0265 96.6214,55.0345 96.6287,55.0372 96.6349,55.0404 96.6459,55.0481 96.6506,55.0526 96.6782,55.0726 96.6825,55.0779 96.6856,55.0849 96.6837,55.0900 96.6779,55.0936 96.6614,55.0966 96.6566,55.0996 96.6575,55.1037 96.6612,55.1080 96.6664,55.1120 96.6717,55.1174 96.6762,55.1244 96.6813,55.1458 96.6843,55.1528 96.6880,55.1582 96.6961,55.1763 96.7016,55.1967 96.7029,55.2078 96.6999,55.2442 96.7027,55.2526 96.7075,55.2587 96.7209,55.2649 96.7826,55.2832 96.8875,55.3017 96.8964,55.3055 96.9049,55.3110 96.9155,55.3217 96.9190,55.3295 96.9198,55.3364 96.9184,55.3419 96.9159,55.3470 96.9128,55.3517 96.8990,55.3640 96.8958,55.3687 96.8908,55.3787 96.8874,55.3896 96.8841,55.4066 96.8821,55.4118 96.8781,55.4162 96.8722,55.4197 96.8520,55.4294 96.8472,55.4346 96.8441,55.4414 96.8447,55.4537 96.8472,55.4632 96.8517,55.4746 96.8508,55.4811 96.8465,55.4859 96.8411,55.4903 96.8370,55.4962 96.8357,55.5057 96.8373,55.5242 96.8366,55.5306 96.8341,55.5357 96.8259,55.5449 96.8227,55.5503 96.8209,55.5576 96.8234,55.5631 96.8287,55.5673 96.8493,55.5778 96.8561,55.5835 96.8571,55.5889 96.8557,55.5940 96.8469,55.6025 96.8230,55.6168 96.7739,55.6383 96.7537,55.6507 96.7553,55.6546 96.7583,55.6591 96.7991,55.6793 96.8073,55.6848 96.8180,55.6944 96.8191,55.7008 96.8156,55.7055 96.7818,55.7215 96.7763,55.7252 96.7704,55.7300 96.7654,55.7355 96.7611,55.7461 96.7630,55.7549 96.7685,55.7690 96.7739,55.7766 96.7806,55.7819 96.7874,55.7848 96.8199,55.7917 96.8301,55.7984 96.8444,55.8200 96.8810,55.8254 96.9004,55.8365 96.9137,55.8460 96.9610,55.8609 96.9688,55.8743 96.9732,55.8902 96.9805,56.0032 96.9828,56.0109 96.9874,56.0183 97.0017,56.0220 97.0405,56.0261 97.0580,56.0312 97.0718,56.0436 97.1013,56.0795 97.1262,56.1017 97.1542,56.1060 97.1832,56.1045 97.2624,56.0885 97.2714,56.0856 97.2764,56.0824 97.2798,56.0786 97.2854,56.0752 97.2922,56.0719 97.3262,56.0620 97.3457,56.0527 97.3519,56.0512 97.3522,56.0513 97.3529,56.0512 97.3647,56.0564 97.4144,56.0873 97.4263,56.0992 97.4327,56.1122 97.4320,56.1214 97.4342,56.1328 97.4411,56.1468 97.4837,56.1727 97.5009,56.1795 97.5181,56.1841 97.5659,56.1896 97.5812,56.1951 97.5869,56.2082 97.5886,56.2575 97.5861,56.2719 97.5812,56.2822 97.5683,56.2927 97.5636,56.3071 97.5605,56.3235 97.5591,56.3577 97.5612,56.3725 97.5692,56.3828 97.5923,56.3867 97.8416,56.3931 97.8691,56.3983 97.8790,56.4112 97.8828,56.4269 97.8812,56.5306 97.8780,56.5449 97.8691,56.5548 97.8457,56.5585 97.7633,56.5591 97.7524,56.5603 97.7526,56.5652 97.7666,56.5854 97.7713,56.5939 97.7744,56.6012 97.7748,56.6070 97.7731,56.6122 97.7700,56.6171 97.7608,56.6260 97.7574,56.6314 97.7560,56.6386 97.7605,56.6444 97.7787,56.6571 97.7830,56.6632 97.7830,56.6687 97.7802,56.6729 97.7732,56.6783 97.7681,56.6813 97.7633,56.6849 97.7593,56.6893 97.7555,56.6939 97.7520,56.7044 97.7518,56.7104 97.7524,56.7167 97.7539,56.7233 97.7571,56.7318 97.7765,56.7671 97.7782,56.7748 97.7760,56.7800 97.7720,56.7844 97.7663,56.7880 97.7025,56.8044 97.6804,56.8073 97.6795,56.8073 97.6794,56.8073 97.6388,56.8069 97.6078,56.8032 97.5651,56.7937 97.5568,56.7927 97.5476,56.7934 97.4992,56.8053 97.4872,56.8105 97.4816,56.8143 97.4767,56.8183 97.4695,56.8274 97.4750,56.8694 97.4791,56.8808 97.4859,56.8926 97.4921,56.8973 97.4968,56.8997 97.5661,56.9174 97.5883,56.9259 97.6066,56.9355 97.6157,56.9419 97.6202,56.9470 97.6209,56.9536 97.6169,56.9580 97.6089,56.9607 97.4897,56.9637 97.4829,56.9655 97.4766,56.9684 97.4713,56.9719 97.4668,56.9758 97.4408,57.0046 97.4356,57.0080 97.4224,57.0143 97.4173,57.0175 97.4101,57.0228 97.4045,57.0259 97.3614,57.0384 97.3538,57.0420 97.3495,57.0480 97.3559,57.0605 97.4085,57.1331 97.6717,57.4722 97.9350,57.8113 97.9875,57.8219 98.2668,57.8066 98.5462,57.7914 98.6296,57.7778 98.6303,57.7779 98.6305,57.7778 98.6837,57.7803 98.7333,57.7923 98.7455,57.7927 98.7675,57.7907 98.7753,57.7879 98.7780,57.7830 98.7795,57.7716 98.7809,57.7661 98.7839,57.7613 98.7888,57.7570 98.7951,57.7533 98.8545,57.7281 98.8714,57.7236 98.8883,57.7213 98.8891,57.7213 98.8892,57.7213 98.9626,57.7233 98.9903,57.7323 99.0033,57.7394 99.0808,57.7704 99.0936,57.7734 99.1052,57.7742 99.1154,57.7729 99.1336,57.7680 99.1609,57.7639 99.1851,57.7629 99.1854,57.7630 99.1860,57.7629 99.2001,57.7641 99.2107,57.7663 99.2550,57.7819 99.3117,57.7951 99.3316,57.7979 99.4109,57.7955 99.4110,57.7956 99.4119,57.7955 99.4230,57.7987 99.4294,57.8037 99.4317,57.8153 99.4345,57.8210 99.4385,57.8263 99.4589,57.8445 99.4676,57.8548 99.4711,57.8603 99.4818,57.8924 99.4890,57.9038 99.4920,57.9096 99.4952,57.9224 99.4985,57.9290 99.5088,57.9367 99.5192,57.9402 99.5313,57.9420 99.5382,57.9456 99.5436,57.9499 99.5483,57.9549 99.5595,57.9643 99.6190,58.0010 99.6214,58.0032 99.6246,58.0075 99.6311,58.0189 99.6332,58.0249 99.6332,58.0305 99.6388,58.0394 99.6412,58.0457 99.7036,58.0856 99.7360,58.0816 99.7935,58.0625 99.8069,58.0612 99.8075,58.0612 99.8078,58.0612 99.8186,58.0618 99.8483,58.0720 100.0176,58.0814 100.0434,58.0786 100.0541,58.0757 100.0649,58.0710 100.0704,58.0660 100.0745,58.0611 100.0767,58.0559 100.0794,58.0451 100.0741,58.0010 100.0744,57.9781 100.0758,57.9666 100.0770,57.9612 100.0791,57.9560 100.0817,57.9511 100.0856,57.9466 100.1092,57.9257 100.1165,57.9166 100.1190,57.9116 100.1221,57.9008 100.1233,57.8828 100.1249,57.8760 100.1293,57.8668 100.1539,57.8512 100.2096,57.8326 100.2308,57.8220 100.2669,57.8095 100.2754,57.8048 100.2790,57.7993 100.2785,57.7934 100.2710,57.7745 100.2697,57.7684 100.2704,57.7633 100.2766,57.7609 100.2964,57.7596 100.3110,57.7564 100.3549,57.7390 100.3652,57.7324 100.3663,57.7270 100.3453,57.7099 100.3363,57.6997 100.3325,57.6943 100.3308,57.6890 100.3341,57.6839 100.3580,57.6752 100.3630,57.6698 100.3629,57.6641 100.3592,57.6588 100.3580,57.6511 100.3601,57.6418 100.3919,57.6033 100.3951,57.5986 100.3978,57.5937 100.4000,57.5886 100.4017,57.5833 100.4023,57.5777 100.4009,57.5647 100.4016,57.5579 100.4050,57.5503 100.4112,57.5455 100.4187,57.5418 100.6377,57.4766 100.6558,57.4692 100.6647,57.4635 100.6711,57.4583 100.6910,57.4343 100.7059,57.4202 100.7156,57.4129 100.7254,57.4076 100.7321,57.4054 100.7488,57.4032 100.7490,57.4033 100.7498,57.4032 100.7716,57.4135 100.7937,57.4193 100.8050,57.4257 100.8118,57.4328 100.8194,57.4484 100.8269,57.4540 100.8368,57.4585 100.8519,57.4626 100.8620,57.4639 100.8699,57.4627 100.8922,57.4538 100.9017,57.4520 100.9114,57.4515 100.9115,57.4516 100.9123,57.4515 100.9229,57.4552 100.9300,57.4593 100.9359,57.4641 100.9540,57.4849 100.9574,57.4909 100.9587,57.4983 100.9544,57.5030 100.9487,57.5071 100.9439,57.5112 100.9420,57.5163 100.9435,57.5220 100.9507,57.5336 100.9541,57.5403 100.9566,57.5489 100.9563,57.5553 100.9534,57.5606 100.9485,57.5647 100.9355,57.5716 100.8737,57.5962 100.8475,57.6101 100.8320,57.6221 100.8279,57.6265 100.8247,57.6323 100.8225,57.6394 100.8220,57.6506 100.8202,57.6578 100.8142,57.6631 100.8073,57.6672 100.8024,57.6730 100.8043,57.6775 100.8207,57.6931 100.8466,57.7314 100.8562,57.7411 100.8616,57.7455 100.8677,57.7494 100.8740,57.7546 100.8799,57.7604 100.8856,57.7697 100.8827,57.7745 100.8773,57.7787 100.8690,57.7816 100.8556,57.7884 100.8500,57.7945 100.8466,57.8038 100.8451,57.8217 100.8476,57.8364 100.8466,57.8455 100.8426,57.8507 100.8325,57.8589 100.8185,57.8725 100.8151,57.8776 100.8136,57.8837 100.8191,57.8866 100.8593,57.8862 100.8686,57.8845 100.8754,57.8813 100.8874,57.8738 100.8945,57.8706 100.9035,57.8684 100.9136,57.8671 100.9144,57.8671 100.9145,57.8671 100.9535,57.8677 100.9628,57.8688 100.9715,57.8705 100.9993,57.8808 101.0233,57.8925 101.0312,57.8976 101.0334,57.9034 101.0323,57.9099 101.0318,57.9195 101.0349,57.9256 101.0399,57.9308 101.0464,57.9345 101.0717,57.9408 101.0782,57.9443 101.1004,57.9616 101.1284,57.9767 101.1383,57.9854 101.1451,57.9967 101.1549,58.0168 101.1609,58.0369 101.1625,58.0492 101.1620,58.0549 101.1596,58.0598 101.1538,58.0637 101.1307,58.0729 101.1240,58.0764 101.1189,58.0805 101.1150,58.0849 101.1125,58.0913 101.1115,58.0988 101.1124,58.1102 101.1159,58.1159 101.1189,58.1190 101.1470,58.1293 101.1924,58.1373 101.2089,58.1419 101.2211,58.1511 101.2363,58.1655 101.2660,58.1998 101.2834,58.2125 101.2986,58.2193 101.3826,58.2231 101.4766,58.2177 101.4772,58.2178 101.4776,58.2177 101.5120,58.2189 101.5211,58.2208 101.5318,58.2253 101.5374,58.2309 101.5408,58.2371 101.5434,58.2510 101.5464,58.2599 101.5535,58.2739 101.5596,58.2817 101.5658,58.2879 101.6027,58.3148 101.6429,58.3507 101.6502,58.3602 101.6607,58.3822 101.6794,58.4067 101.6912,58.4172 101.7018,58.4239 101.7186,58.4282 101.7396,58.4364 101.7658,58.4500 101.7745,58.4533 101.7814,58.4539 101.7863,58.4532 101.7868,58.4533 101.7872,58.4532 101.9234,58.4657 101.9404,58.4703 101.9485,58.4734 101.9742,58.4870 101.9897,58.4925 102.0021,58.4953 102.1626,58.5156 102.1871,58.5227 102.1989,58.5281 102.2412,58.5542 102.2657,58.5739 102.2707,58.5801 102.2735,58.5865 102.2919,58.6076 102.2993,58.6194 102.3065,58.6337 102.3121,58.6423 102.3189,58.6473 102.3267,58.6507 102.4050,58.6615 102.4166,58.6641 102.4318,58.6717 102.4424,58.6797 102.4555,58.6923 102.4647,58.6985 102.5052,58.7152 102.5142,58.7214 102.5206,58.7279 102.5325,58.7486 102.5612,58.7867 102.5638,58.7914 102.5659,58.7967 102.5659,58.8021 102.5638,58.8071 102.5612,58.8120 102.5445,58.8353 102.5396,58.8452 102.5362,58.8557 102.5350,58.8669 102.5350,58.8726 102.5380,58.8909 102.5383,58.8966 102.5350,58.9007 102.5114,58.9097 102.4932,58.9216 102.4864,58.9247 102.4508,58.9359 102.4442,58.9395 102.4396,58.9437 102.4383,58.9491 102.4399,58.9612 102.4394,58.9667 102.4369,58.9722 102.4362,58.9782 102.4496,58.9983 102.4505,59.0003 102.4504,59.0025 102.4483,59.0062 102.4399,59.0145 102.4363,59.0191 102.4338,59.0240 102.4321,59.0293 102.4290,59.0456 102.4260,59.0505 102.4223,59.0549 102.4120,59.0631 102.4080,59.0674 102.4068,59.0725 102.4081,59.0780 102.4155,59.0968 102.4264,59.1171 102.4397,59.1363 102.4483,59.1460 102.4558,59.1531 102.4687,59.1609 102.5035,59.1739 102.5228,59.1861 102.5894,59.2031 102.6156,59.2035 102.6529,59.1996 102.7593,59.1994 102.7594,59.1994 102.7603,59.1994 102.7940,59.2044 102.8324,59.2146 102.8407,59.2193 102.8420,59.2244 102.8420,59.2298 102.8435,59.2356 102.8466,59.2412 102.8561,59.2516 102.8670,59.2608 102.8729,59.2649 102.9538,59.2936 102.9998,59.3154 103.0110,59.3180 103.0174,59.3163 103.0236,59.3014 103.0266,59.2966 103.0496,59.2763 103.0558,59.2728 103.0632,59.2695 103.0826,59.2644 103.1090,59.2615 103.1099,59.2615 103.1099,59.2615 103.1539,59.2618 103.1670,59.2649 103.1903,59.2760 103.2122,59.2835 103.2259,59.2847 103.2393,59.2836 103.3244,59.2601 103.3303,59.2562 103.3344,59.2517 103.3377,59.2468 103.3399,59.2417 103.3412,59.2366 103.3405,59.2321 103.3347,59.2291 103.3256,59.2286 103.2780,59.2324 103.2773,59.2323 103.2770,59.2324 103.2553,59.2316 103.2466,59.2299 103.2402,59.2273 103.2387,59.2229 103.2458,59.2029 103.2468,59.1976 103.2460,59.1857 103.2460,59.1801 103.2486,59.1753 103.2529,59.1712 103.2750,59.1566 103.2801,59.1525 103.2922,59.1392 103.3206,59.0910 103.3347,59.0726 103.3752,59.0341 103.3971,59.0222 103.4252,59.0124 103.4439,59.0083 103.4772,59.0058 103.4847,59.0033 103.4885,59.0010 103.4909,58.9986 103.5110,58.9891 103.5301,58.9858 103.5487,58.9780 103.5544,58.9742 103.5822,58.9602 103.5871,58.9560 103.5897,58.9512 103.5893,58.9454 103.5852,58.9323 103.5860,58.9250 103.5939,58.9167 103.6035,58.9131 103.6139,58.9123 103.6141,58.9124 103.6148,58.9123 103.6493,58.9211 103.6733,58.9238 103.6929,58.9232 103.7940,58.8977 103.8174,58.8950 103.8397,58.8945 103.8399,58.8945 103.8406,58.8945 103.8605,58.8966 103.8793,58.9011 103.8898,58.9025 103.8963,58.9005 103.9011,58.8971 103.9039,58.8929 103.9062,58.8887 103.9115,58.8737 103.9155,58.8678 103.9230,58.8617 103.9400,58.8540 103.9489,58.8484 103.9528,58.8424 103.9523,58.8365 103.9492,58.8242 103.9489,58.8183 103.9493,58.8127 103.9517,58.8020 103.9524,58.7965 103.9518,58.7849 103.9487,58.7739 103.9472,58.7704 103.9443,58.7658 103.9393,58.7617 103.9323,58.7585 103.9244,58.7559 103.8715,58.7445 103.8670,58.7410 103.8691,58.7352 103.8769,58.7322 103.8876,58.7306 103.9332,58.7293 103.9335,58.7294 103.9342,58.7293 103.9749,58.7324 103.9919,58.7356 104.0164,58.7438 104.0231,58.7475 104.0282,58.7523 104.0381,58.7680 104.0412,58.7701 104.0476,58.7718 104.1780,58.7666 104.2201,58.7580 104.2296,58.7510 104.2381,58.7470 104.2418,58.7380 104.2535,58.7324 104.2676,58.7284 104.2807,58.7201 104.2987,58.7133 104.2995,58.7133 104.2996,58.7133 104.3523,58.7160 104.3738,58.7133 104.3931,58.7039 104.3982,58.6968 104.3940,58.6655 104.4093,58.6427 104.4373,58.6250 104.4504,58.6078 104.4582,58.6023 104.4589,58.6024 104.4591,58.6023 104.4661,58.6036 104.4736,58.6067 104.5043,58.6289 104.5111,58.6322 104.5197,58.6345 104.5316,58.6353 104.5401,58.6333 104.5696,58.6181 104.5807,58.6162 104.5813,58.6163 104.5817,58.6162 104.5909,58.6172 104.5971,58.6213 104.6073,58.6314 104.6188,58.6408 104.6256,58.6443 104.6333,58.6471 104.7877,58.6663 104.7949,58.6693 104.8204,58.6849 104.8481,58.6988 104.8660,58.7103 104.8734,58.7185 104.8680,58.7354 104.8574,58.7451 104.8398,58.7532 104.8348,58.7573 104.8298,58.7638 104.8235,58.7749 104.8167,58.7812 104.8087,58.7861 104.7864,58.7965 104.7682,58.8071 104.7614,58.8141 104.7601,58.8205 104.7619,58.8244 104.7685,58.8335 104.7991,58.8632 104.8404,58.8936 104.8475,58.8969 104.8559,58.8992 104.8848,58.9029 104.8933,58.9050 104.8997,58.9088 104.9043,58.9138 104.9161,58.9305 104.9354,58.9491 104.9492,58.9586 104.9642,58.9646 104.9809,58.9689 105.0473,58.9784 105.0640,58.9830 105.0849,58.9930 105.0933,58.9989 105.1359,59.0382 105.1459,59.0448 105.1545,59.0468 105.1954,59.0496 105.2384,59.0601 105.2922,59.0614 105.3064,59.0655 105.3215,59.0736 105.3479,59.0917 105.3547,59.1011 105.3544,59.1079 105.3249,59.1272 105.3067,59.1442 105.3039,59.1489 105.3046,59.1558 105.3093,59.1643 105.3262,59.1869 105.3300,59.1965 105.3280,59.2022 105.3241,59.2071 105.3089,59.2194 105.3053,59.2239 105.3024,59.2287 105.3005,59.2339 105.2993,59.2396 105.2983,59.2543 105.2950,59.2599 105.2890,59.2642 105.2803,59.2670 105.2581,59.2709 105.2486,59.2735 105.2414,59.2768 105.1966,59.3033 105.1917,59.3083 105.1897,59.3154 105.1922,59.3214 105.1972,59.3263 105.2037,59.3304 105.2265,59.3403 105.2347,59.3454 105.2424,59.3534 105.2445,59.3641 105.2395,59.3701 105.2207,59.3784 105.2141,59.3849 105.2126,59.3976 105.2161,59.4060 105.2213,59.4133 105.2284,59.4195 105.2290,59.4246 105.2263,59.4293 105.1981,59.4547 105.1926,59.4644 105.1886,59.4689 105.1823,59.4723 105.1734,59.4745 105.1637,59.4746 105.1636,59.4746 105.1627,59.4746 105.1538,59.4730 105.1458,59.4704 105.1169,59.4571 105.1095,59.4552 105.1018,59.4557 105.0787,59.4636 105.0702,59.4640 105.0701,59.4639 105.0693,59.4640 105.0612,59.4623 105.0536,59.4594 105.0449,59.4572 105.0352,59.4563 104.9866,59.4611 104.9788,59.4638 104.9737,59.4677 104.9623,59.4812 104.9524,59.4894 104.8842,59.5254 104.8683,59.5381 104.8636,59.5432 104.8599,59.5503 104.8601,59.5567 104.8630,59.5628 104.8676,59.5688 104.8716,59.5753 104.8741,59.5835 104.8716,59.5892 104.8672,59.5939 104.8110,59.6291 104.8048,59.6356 104.8035,59.6416 104.8054,59.6486 104.8129,59.6637 104.8118,59.6696 104.8035,59.6817 104.7998,59.6909 104.8017,59.6973 104.8072,59.7019 104.8370,59.7145 104.8502,59.7218 104.8864,59.7467 104.8935,59.7500 104.9632,59.7661 104.9922,59.7638 104.9926,59.7639 104.9931,59.7638 105.0001,59.7645 105.0058,59.7657 105.0134,59.7698 105.0210,59.7763 105.0297,59.7894 105.0326,59.7977 105.0331,59.8047 105.0301,59.8099 105.0255,59.8142 105.0202,59.8180 105.0204,59.8199 105.0239,59.8220 105.0236,59.8260 105.0214,59.8301 105.0254,59.8347 105.0360,59.8360 105.0793,59.8364 105.0908,59.8395 105.1095,59.8495 105.1205,59.8528 105.1869,59.8584 105.2002,59.8574 105.2243,59.8510 105.2374,59.8489 105.2510,59.8484 105.2513,59.8485 105.2519,59.8484 105.2780,59.8501 105.2902,59.8493 105.2999,59.8464 105.3059,59.8431 105.3083,59.8414 105.3095,59.8401 105.3102,59.8388 105.3126,59.8358 105.3152,59.8339 105.3426,59.8266 105.3772,59.8217 105.3778,59.8217 105.3781,59.8217 105.4199,59.8244 105.4571,59.8308 105.4748,59.8359 105.4831,59.8396 105.4915,59.8452 105.4939,59.8507 105.4930,59.8559 105.4890,59.8603 105.4838,59.8645 105.4705,59.8717 105.4460,59.8815 105.4401,59.8853 105.4357,59.8896 105.4338,59.8962 105.4348,59.9048 105.4428,59.9297 105.4469,59.9506 105.4503,59.9586 105.4550,59.9650 105.4752,59.9814 105.4838,59.9912 105.4895,59.9999 105.4896,60.0012 105.4890,60.0116 105.4878,60.0168 105.4857,60.0219 105.4758,60.0359 105.4403,60.0761 105.4338,60.0854 105.4287,60.0951 105.4246,60.1097 105.4247,60.1229 105.4271,60.1311 105.4313,60.1380 105.4493,60.1513 105.4561,60.1586 105.4636,60.1682 105.4744,60.1859 105.4795,60.1980 105.4829,60.2100 105.4844,60.2250 105.4837,60.2360 105.4817,60.2435 105.4795,60.2490 105.4767,60.2539 105.4724,60.2582 105.4673,60.2623 105.4605,60.2659 105.4525,60.2687 105.4423,60.2698 105.4416,60.2698 105.4413,60.2698 105.4314,60.2694 105.4219,60.2677 105.4138,60.2651 105.3931,60.2537 105.3862,60.2511 105.3792,60.2512 105.3742,60.2543 105.3705,60.2586 105.3625,60.2733 105.3588,60.2778 105.3478,60.2857 105.3408,60.2894 105.3327,60.2928 105.3222,60.2955 105.2978,60.2981 105.2970,60.2981 105.2969,60.2981 105.2745,60.2976 105.2655,60.2956 105.2575,60.2929 105.2379,60.2808 105.2300,60.2778 105.2207,60.2762 105.1516,60.2774 105.1288,60.2805 105.0913,60.2914 105.0793,60.2928 105.0785,60.2927 105.0784,60.2928 105.0566,60.2923 105.0113,60.2836 104.9963,60.2842 104.8902,60.3017 104.8796,60.3058 104.8712,60.3119 104.8645,60.3234 104.8584,60.3300 104.8511,60.3345 104.8190,60.3472 104.7970,60.3634 104.7716,60.3785 104.7562,60.3852 104.7376,60.3910 104.6772,60.3999 104.6658,60.4028 104.6568,60.4091 104.6580,60.4137 104.6633,60.4176 104.6691,60.4211 104.6725,60.4249 104.6695,60.4286 104.6652,60.4326 104.6587,60.4413 104.6528,60.4540 104.6444,60.4812 104.6389,60.4940 104.6334,60.5032 104.6278,60.5073 104.5848,60.5285 104.5786,60.5334 104.5729,60.5393 104.5665,60.5484 104.5648,60.5566 104.5643,60.5651 104.5658,60.5766 104.5645,60.5845 104.5580,60.5992 104.5568,60.6063 104.5562,60.6149 104.5524,60.6205 104.5445,60.6248 104.5344,60.6284 104.5241,60.6335 104.5225,60.6390 104.5241,60.6449 104.5599,60.7075 104.5643,60.7129 104.5695,60.7178 104.5954,60.7352 104.5996,60.7420 104.5989,60.7474 104.5971,60.7529 104.5934,60.7575 104.5882,60.7619 104.5807,60.7655 104.5705,60.7681 104.5325,60.7738 104.5223,60.7764 104.5144,60.7798 104.5076,60.7835 104.4967,60.7916 104.4778,60.8086 104.4674,60.8211 104.4616,60.8325 104.4607,60.8388 104.4641,60.8445 104.4699,60.8484 104.4847,60.8551 104.5026,60.8597 104.5837,60.8696 104.6017,60.8739 104.6175,60.8799 104.6241,60.8846 104.6295,60.8900 104.6326,60.8978 104.6320,60.9038 104.6289,60.9088 104.6240,60.9131 104.6106,60.9205 104.5779,60.9341 104.5704,60.9383 104.5655,60.9448 104.5671,60.9503 104.5721,60.9548 104.6026,60.9678 104.6084,60.9718 104.6119,60.9763 104.6104,60.9814 104.6075,60.9870 104.6032,60.9934 104.6010,60.9999 104.6011,61.0012 104.6053,61.0073 104.6154,61.0171 104.6281,61.0261 104.6333,61.0308 104.6361,61.0364 104.6308,61.0402 104.6135,61.0494 104.6063,61.0579 104.6058,61.0645 104.6097,61.0699 104.6159,61.0741 104.6315,61.0803 104.6517,61.0827 104.6853,61.0822 104.6854,61.0822 104.6863,61.0822 104.6955,61.0840 104.7034,61.0868 104.7107,61.0903 104.7171,61.0946 104.7224,61.0994 104.7321,61.1105 104.7375,61.1156 104.7434,61.1202 104.7580,61.1275 104.7660,61.1305 104.7732,61.1340 104.7794,61.1384 104.7908,61.1481 104.8063,61.1545 104.8131,61.1583 104.8189,61.1631 104.8238,61.1684 104.8297,61.1732 104.8376,61.1762 104.9916,61.1746 104.9916,61.1746 104.9925,61.1746 105.0009,61.1764 105.0083,61.1822 105.0093,61.1876 105.0078,61.1929 105.0055,61.1976 104.9956,61.2122 104.9931,61.2169 104.9838,61.2312 104.9737,61.2509 104.9706,61.2557 104.9666,61.2601 104.9527,61.2701 104.9442,61.2777 104.9347,61.3067 104.9313,61.3145 104.9272,61.3190 104.9212,61.3229 104.9131,61.3262 104.9031,61.3286 104.8320,61.3317 104.8075,61.3351 104.7871,61.3405 104.7899,61.3484 104.8734,61.3588 104.8923,61.3629 104.9050,61.3675 104.9255,61.3841 104.9419,61.3929 104.9582,61.3983 105.1057,61.4170 105.1833,61.4150 105.1835,61.4150 105.1842,61.4150 105.2542,61.4199 105.2727,61.4249 105.2816,61.4306 105.2816,61.4361 105.2803,61.4413 105.2767,61.4515 105.2741,61.4564 105.2721,61.4615 105.2751,61.4680 105.2842,61.4758 105.3479,61.5046 105.3534,61.5095 105.3616,61.5225 105.3684,61.5298 105.3769,61.5337 105.4231,61.5413 105.4775,61.5553 105.5511,61.5663 105.5620,61.5704 105.5692,61.5757 105.5736,61.5816 105.5770,61.5878 105.5900,61.5981 105.6121,61.6111 105.6691,61.6360 105.6971,61.6452 105.7183,61.6496 105.7295,61.6486 105.7499,61.6435 105.7570,61.6399 105.7627,61.6358 105.7719,61.6271 105.7778,61.6230 105.7863,61.6204 105.7994,61.6199 105.7995,61.6199 105.8003,61.6199 105.8100,61.6224 105.8180,61.6263 105.8237,61.6312 105.8428,61.6540 105.8501,61.6606 105.8598,61.6672 105.8775,61.6763 105.8904,61.6805 105.9027,61.6832 105.9423,61.6854 105.9477,61.6888 105.9486,61.6932 105.9445,61.7033 105.9417,61.7137 105.9408,61.7416 105.9390,61.7467 105.9362,61.7515 105.9291,61.7609 105.9205,61.7696 105.8956,61.7909 105.8919,61.7954 105.8889,61.8002 105.8873,61.8054 105.8873,61.8110 105.8889,61.8169 105.8914,61.8228 105.8957,61.8284 105.9031,61.8349 106.0369,61.8988 106.0428,61.9034 106.0471,61.9087 106.0544,61.9225 106.0624,61.9319 106.0712,61.9367 106.0811,61.9398 106.1426,61.9524 106.1532,61.9570 106.1609,61.9621 106.1965,61.9925 106.2104,62.0004 106.2191,62.0032 106.4048,62.0307 106.4082,62.0348 106.4072,62.0391 106.3918,62.0517 106.3892,62.0567 106.3903,62.0628 106.3996,62.0715 106.4050,62.0780 106.4067,62.0839 106.4017,62.0878 106.3856,62.0947 106.3794,62.0986 106.3761,62.1032 106.3800,62.1105 106.3884,62.1194 106.4076,62.1342 106.4159,62.1435 106.4191,62.1509 106.4188,62.1563 106.4213,62.1626 106.4274,62.1695 106.4380,62.1785 106.4435,62.1848 106.4435,62.1902 106.4365,62.1993 106.4352,62.2045 106.4373,62.2107 106.4469,62.2301 106.4471,62.2355 106.4449,62.2396 106.4374,62.2409 106.4367,62.2408 106.4364,62.2409 106.4066,62.2383 106.3960,62.2387 106.3419,62.2510 106.3336,62.2548 106.3278,62.2591 106.3283,62.2658 106.3372,62.2719 106.3754,62.2912 106.3862,62.3001 106.3982,62.3143 106.4076,62.3168 106.4585,62.3168 106.4595,62.3168 106.4735,62.3189 106.4790,62.3235 106.4801,62.3285 106.4763,62.3332 106.4691,62.3368 106.4431,62.3465 106.4367,62.3504 106.4312,62.3545 106.4267,62.3589 106.4234,62.3642 106.4224,62.3701 106.4240,62.3778 106.4293,62.3828 106.4370,62.3866 106.4465,62.3887 106.4568,62.3893 106.4688,62.3880 106.4799,62.3858 106.5044,62.3757 106.5156,62.3743 106.5161,62.3743 106.5165,62.3743 106.5336,62.3765 106.5441,62.3801 106.6303,62.4366 106.7044,62.4745 106.7124,62.4817 106.7149,62.4876 106.7082,62.4966 106.7041,62.5011 106.6944,62.5097 106.6831,62.5180 106.6621,62.5292 106.6626,62.5372 106.6700,62.5486 106.6970,62.5714 106.7125,62.5815 106.7267,62.5877 106.7900,62.5961 106.7969,62.5982 106.7979,62.6018 106.5926,62.6514 106.5805,62.6557 106.5731,62.6598 106.5614,62.6679 106.5533,62.6711 106.5425,62.6732 106.5054,62.6750 106.4974,62.6813 106.4958,62.6919 106.5141,62.7180 106.5262,62.7413 106.5257,62.7468 106.5239,62.7518 106.5199,62.7564 106.5152,62.7608 106.5082,62.7647 106.4994,62.7683 106.4788,62.7742 106.4710,62.7776 106.4660,62.7819 106.4608,62.7917 106.4503,62.8337 106.4478,62.8386 106.4435,62.8430 106.4358,62.8467 106.3631,62.8610 106.3435,62.8671 106.3213,62.8778 106.3122,62.8810 106.2262,62.8938 106.2187,62.8968 106.2139,62.9009 106.2132,62.9063 106.2146,62.9123 106.2193,62.9248 106.2210,62.9308 106.2205,62.9363 106.2178,62.9412 106.2111,62.9450 106.1777,62.9534 106.1677,62.9569 106.1655,62.9632 106.1696,62.9688 106.1844,62.9802 106.1850,62.9853 106.1810,62.9898 106.1754,62.9937 106.1624,63.0010 106.1561,63.0060 106.1479,63.0147 106.1266,63.0482 106.1247,63.0539 106.1243,63.0595 106.1271,63.0663 106.1361,63.0688 106.2934,63.0716 106.3142,63.0752 106.3583,63.0893 106.3923,63.1058 106.4042,63.1133 106.4070,63.1186 106.4048,63.1235 106.3942,63.1318 106.3906,63.1376 106.3923,63.1475 106.4005,63.1638 106.4194,63.1855 106.4255,63.1966 106.4222,63.2030 106.3778,63.2137 106.3687,63.2169 106.3628,63.2209 106.3620,63.2263 106.3652,63.2440 106.3661,63.2630 106.3693,63.2724 106.3757,63.2778 106.3915,63.2855 106.4385,63.3200 106.4546,63.3256 106.4689,63.3272 106.4799,63.3246 106.4889,63.3213 106.4931,63.3169 106.4962,63.3121 106.4998,63.3078 106.5066,63.3047 106.6614,63.2967 106.6618,63.2967 106.6624,63.2967 106.6736,63.2976 106.6824,63.3001 106.6874,63.3050 106.6896,63.3106 106.6953,63.3315 106.7017,63.3433 106.7081,63.3508 106.7156,63.3572 106.7315,63.3675 106.7325,63.3715 106.7263,63.3750 106.6528,63.4004 106.6381,63.4079 106.6143,63.4241 106.6094,63.4284 106.5853,63.4556 106.5800,63.4598 106.5737,63.4639 106.5178,63.4830 106.5122,63.4881 106.5106,63.4951 106.5130,63.5063 106.5174,63.5141 106.5223,63.5210 106.5276,63.5265 106.5323,63.5299 106.5442,63.5314 106.5960,63.5352 106.6024,63.5460 106.6072,63.5573 106.6124,63.5633 106.6712,63.6055 106.6865,63.6205 106.6916,63.6293 106.6924,63.6363 106.6886,63.6410 106.6768,63.6491 106.6418,63.6680 106.6363,63.6723 106.6323,63.6767 106.6294,63.6822 106.6286,63.6884 106.6304,63.6968 106.6347,63.7034 106.6401,63.7093 106.6626,63.7235 106.6730,63.7319 106.6950,63.7656 106.7017,63.7726 106.7700,63.8189 106.7894,63.8352 106.7944,63.8424 106.7944,63.8479 106.7914,63.8526 106.7808,63.8610 106.7013,63.9078 106.6905,63.9162 106.6824,63.9253 106.6809,63.9306 106.6817,63.9364 106.6836,63.9424 106.6920,63.9611 106.7020,63.9781 106.7109,63.9866 106.7203,63.9921 106.7411,63.9956 106.7644,63.9957 106.7765,63.9938 106.7851,63.9907 106.7917,63.9868 106.8025,63.9783 106.8098,63.9751 106.8191,63.9734 106.8197,63.9735 106.8201,63.9734 106.8491,63.9771 106.8591,63.9762 106.8683,63.9735 106.8930,63.9632 106.9406,63.9528 106.9764,63.9396 106.9904,63.9320 106.9954,63.9282 107.0018,63.9222 107.0123,63.9151 107.0359,63.9043 107.0526,63.8918 107.0605,63.8886 107.0708,63.8870 107.0714,63.8871 107.0718,63.8870 107.0819,63.8878 107.1205,63.8980 107.1308,63.9020 107.1429,63.9105 107.1656,63.9379 107.1745,63.9466 107.1834,63.9527 107.1911,63.9553 107.1977,63.9566 107.2028,63.9568 107.2898,63.9500 107.3004,63.9473 107.3076,63.9436 107.3119,63.9391 107.3143,63.9343 107.3193,63.9188 107.3214,63.9138 107.3248,63.9091 107.3521,63.8881 107.3568,63.8837 107.3596,63.8789 107.3605,63.8736 107.3636,63.8688 107.3725,63.8655 107.4131,63.8603 107.4138,63.8604 107.4141,63.8603 107.4257,63.8610 107.4633,63.8710 107.4742,63.8715 107.4862,63.8708 107.4982,63.8687 107.5269,63.8595 107.5384,63.8575 107.5503,63.8570 107.5505,63.8570 107.5512,63.8570 107.5639,63.8585 107.5759,63.8625 107.5901,63.8704 107.5975,63.8773 107.6172,63.9066 107.6207,63.9131 107.6222,63.9193 107.6214,63.9245 107.6186,63.9349 107.6183,63.9411 107.6198,63.9483 107.6264,63.9590 107.6331,63.9658 107.6406,63.9712 107.6632,63.9832 107.6807,63.9892 107.7356,63.9954 107.7730,64.0058 107.7837,64.0068 107.7940,64.0067 107.8039,64.0048 107.8116,64.0026 107.8152,64.0011 107.8166,64.0002 107.8245,63.9934 107.8337,63.9891 107.8424,63.9861 107.8544,63.9848 107.8551,63.9848 107.8554,63.9848 107.8664,63.9852 107.8770,63.9868 107.8947,63.9926 107.9145,63.9970 107.9493,64.0004 107.9609,64.0000 108.0079,63.9896 108.0183,63.9885 108.0191,63.9885 108.0193,63.9885 108.0651,63.9897 108.1168,63.9829 108.1174,63.9830 108.1178,63.9829 108.1285,63.9840 108.1378,63.9865 108.1692,64.0000 108.1713,64.0004 108.2031,64.0008 108.2101,64.0002 108.2416,63.9928 108.2520,63.9924 108.2521,63.9924 108.2530,63.9924 108.2638,63.9959 108.2859,64.0125 108.3113,64.0268 108.3186,64.0330 108.3211,64.0390 108.3192,64.0440 108.3161,64.0488 108.3048,64.0625 108.3020,64.0674 108.3004,64.0725 108.2995,64.0778 108.2979,64.0831 108.2385,64.1790 108.2185,64.2500 108.2957,64.2483 108.3062,64.2501 108.3146,64.2535 108.3220,64.2576 108.3285,64.2625 108.3341,64.2682 108.3382,64.2743 108.3413,64.2805 108.3413,64.2911 108.3426,64.2955 108.3484,64.2983 108.3577,64.2997 108.3682,64.2991 108.3777,64.2966 108.3856,64.2934 108.3948,64.2910 108.4409,64.2902 108.4512,64.2884 108.4602,64.2854 108.4675,64.2817 108.4969,64.2558 108.5081,64.2492 33,6.0,Indian/Chagos 73.0000,-8.0000 72.5812,-8.0000 72.1624,-8.0000 71.7436,-8.0000 71.3249,-8.0000 70.9061,-8.0000 70.9058,-7.5254 70.9055,-7.0509 70.9052,-6.5763 70.9049,-6.1018 70.9046,-5.6272 70.9043,-5.1526 70.9040,-4.6781 70.9037,-4.2035 70.9034,-3.7290 70.9031,-3.2544 70.9028,-2.7798 71.3690,-2.7794 71.8351,-2.7790 72.2169,-2.8805 72.5987,-2.9820 73.0001,-3.0609 73.0001,-3.5046 73.0000,-3.9483 73.0000,-4.3985 73.0000,-4.8487 73.0000,-5.2989 73.0000,-5.7491 73.0000,-6.1993 73.0000,-6.6494 73.0000,-7.0996 73.0000,-7.5498 73.0000,-8.0000 25,5.0,French Southern and Antarctic Lands 52.5211,-46.9633 52.0736,-46.9633 51.6262,-46.9633 51.1788,-46.9633 50.7314,-46.9633 50.2840,-46.9633 49.8366,-46.9633 49.3892,-46.9633 48.9418,-46.9633 48.9418,-46.4655 48.9418,-45.9678 48.9418,-45.4701 48.9418,-44.9724 49.3892,-44.9724 49.8366,-44.9724 50.2840,-44.9724 50.7314,-44.9724 51.1788,-44.9724 51.6262,-44.9724 52.0736,-44.9724 52.5210,-44.9724 52.5210,-45.4701 52.5210,-45.9678 52.5210,-46.4655 52.5211,-46.9633 1100,5.75,Asia/Kathmandu 81.7574,30.3629 81.7790,30.3580 81.7796,30.3581 81.7800,30.3580 81.8024,30.3613 81.8237,30.3682 81.8446,30.3711 81.8872,30.3550 81.8880,30.3551 81.8881,30.3550 81.9218,30.3573 81.9412,30.3540 81.9501,30.3484 81.9621,30.3337 81.9690,30.3283 81.9789,30.3268 81.9792,30.3269 81.9798,30.3268 81.9894,30.3298 81.9991,30.3341 82.0086,30.3368 82.0502,30.3392 82.0732,30.3372 82.0888,30.3301 82.0932,30.3147 82.0821,30.2573 82.0850,30.2308 82.0959,30.2135 82.1142,30.2022 82.1404,30.1940 82.1557,30.1814 82.1510,30.1622 82.1276,30.1244 82.1287,30.1108 82.1352,30.0897 82.1445,30.0694 82.1538,30.0582 82.1742,30.0555 82.1745,30.0556 82.1752,30.0555 82.1931,30.0615 82.2109,30.0643 82.2557,30.0397 82.2760,30.0369 82.2965,30.0368 82.3189,30.0318 82.3272,30.0257 82.3391,30.0092 82.3473,30.0034 82.3637,30.0012 82.3642,30.0012 82.3647,30.0012 82.3800,30.0032 82.3944,30.0031 82.4098,29.9946 82.4229,29.9797 82.4389,29.9658 82.4571,29.9541 82.4758,29.9455 82.5242,29.9324 82.5418,29.9232 82.6185,29.8398 82.6359,29.8290 82.6368,29.8291 82.6368,29.8290 82.6474,29.8293 82.6678,29.8350 82.6773,29.8344 82.6890,29.8277 82.6892,29.8196 82.6846,29.8097 82.6818,29.7977 82.6910,29.7807 82.7515,29.7393 82.7701,29.7142 82.7811,29.7051 82.7931,29.6995 82.8052,29.6960 82.8155,29.6901 82.8224,29.6780 82.8366,29.6598 82.8373,29.6600 82.8375,29.6598 82.8584,29.6662 82.8810,29.6811 82.9002,29.6882 82.9091,29.6846 82.9237,29.6697 82.9319,29.6642 82.9421,29.6629 82.9426,29.6630 82.9431,29.6629 82.9648,29.6658 82.9759,29.6640 83.0329,29.6205 83.0409,29.6103 83.0545,29.5861 83.0649,29.5788 83.0658,29.5788 83.0659,29.5788 83.0805,29.5796 83.0865,29.5904 83.0894,29.6044 83.0943,29.6151 83.1012,29.6177 83.1276,29.6234 83.1507,29.6256 83.1621,29.6252 83.1736,29.6213 83.1873,29.6121 83.1909,29.6069 83.1945,29.5936 83.1972,29.5891 83.2049,29.5849 83.2219,29.5798 83.2293,29.5759 83.2526,29.5552 83.2608,29.5420 83.2633,29.5271 83.2599,29.5188 83.2540,29.5133 83.2487,29.5066 83.2472,29.4947 83.2639,29.4730 83.2648,29.4732 83.2649,29.4730 83.3281,29.4849 83.3552,29.4607 83.3578,29.4428 83.3552,29.4280 83.3570,29.4154 83.3872,29.3935 83.3894,29.3824 83.3883,29.3702 83.3931,29.3562 83.4050,29.3465 83.4178,29.3409 83.4282,29.3335 83.4372,29.3052 83.4482,29.2968 83.4758,29.2869 83.4934,29.2761 83.5030,29.2610 83.5125,29.2235 83.5146,29.2018 83.5171,29.1917 83.5237,29.1836 83.5360,29.1792 83.5614,29.1762 83.5720,29.1684 83.5838,29.1621 83.6244,29.1555 83.6393,29.1548 83.6394,29.1548 83.6402,29.1548 83.6559,29.1604 83.6570,29.1608 83.6644,29.1748 83.6687,29.1923 83.6760,29.2088 83.6964,29.2262 83.7207,29.2336 83.7456,29.2344 83.7706,29.2322 83.7710,29.2323 83.7716,29.2322 83.7942,29.2348 83.8388,29.2540 83.8626,29.2602 83.8698,29.2634 83.8783,29.2768 83.8844,29.2820 83.9153,29.2894 83.9341,29.2918 83.9456,29.2918 83.9580,29.2890 83.9673,29.2847 83.9733,29.2770 83.9758,29.2637 83.9767,29.2642 83.9768,29.2637 83.9892,29.2695 84.0014,29.2724 84.0125,29.2702 84.0215,29.2598 84.0352,29.2476 84.0360,29.2477 84.0362,29.2476 84.0540,29.2504 84.0730,29.2570 84.0897,29.2566 84.0991,29.2470 84.1053,29.2199 84.1124,29.2091 84.1260,29.2063 84.1266,29.2063 84.1270,29.2063 84.1425,29.2082 84.1555,29.2066 84.1617,29.1925 84.1552,29.1759 84.1417,29.1603 84.1323,29.1438 84.1380,29.1247 84.1601,29.1055 84.1662,29.0985 84.1697,29.0889 84.1755,29.0574 84.1982,29.0453 84.2206,29.0389 84.2314,29.0260 84.2067,28.9407 84.2253,28.9141 84.2351,28.9000 84.2860,28.8737 84.3540,28.8613 84.3663,28.8567 84.3766,28.8488 84.3931,28.8243 84.4143,28.8083 84.4227,28.7992 84.4378,28.7533 84.4508,28.7339 84.4758,28.7273 84.4766,28.7273 84.4767,28.7273 84.4987,28.7278 84.5156,28.7214 84.5320,28.7127 84.5518,28.7064 84.6072,28.6982 84.6162,28.6937 84.6258,28.6761 84.6326,28.6688 84.6523,28.6624 84.6711,28.6589 84.6830,28.6508 84.6778,28.6044 84.6908,28.5961 84.7366,28.5942 84.7556,28.5854 84.7818,28.5589 84.7991,28.5466 84.8120,28.5420 84.8239,28.5405 84.8246,28.5406 84.8249,28.5405 84.8795,28.5436 84.8914,28.5418 84.9079,28.5370 84.9187,28.5357 84.9190,28.5358 84.9197,28.5357 84.9294,28.5385 84.9374,28.5448 84.9499,28.5683 84.9559,28.5743 84.9857,28.5886 84.9950,28.5908 85.0034,28.5944 85.0101,28.6025 85.0197,28.6199 85.0262,28.6284 85.0331,28.6341 85.0553,28.6386 85.0750,28.6317 85.1119,28.6088 85.1610,28.5950 85.1680,28.5832 85.1570,28.5331 85.1537,28.5249 85.1476,28.5158 85.1404,28.5109 85.1232,28.5046 85.1172,28.4973 85.1157,28.4915 85.1156,28.4727 85.1095,28.4593 85.0837,28.4455 85.0776,28.4357 85.0857,28.3810 85.0857,28.3615 85.0802,28.3188 85.0874,28.3041 85.1094,28.2923 85.1342,28.2920 85.1342,28.2920 85.1351,28.2920 85.1555,28.3009 85.1738,28.3042 85.2057,28.2783 85.2239,28.2717 85.2434,28.2679 85.2596,28.2669 85.2598,28.2670 85.2605,28.2669 85.2741,28.2698 85.3020,28.2811 85.3129,28.2827 85.3257,28.2774 85.3348,28.2687 85.3454,28.2612 85.3626,28.2597 85.3627,28.2597 85.3635,28.2597 85.3788,28.2660 85.4023,28.2888 85.4162,28.2964 85.4317,28.2970 85.4466,28.2922 85.4757,28.2791 85.4764,28.2792 85.4766,28.2791 85.4985,28.2826 85.5208,28.2829 85.5437,28.2804 85.5653,28.2754 85.5855,28.2632 85.5989,28.2508 85.5999,28.2509 85.5999,28.2508 85.6128,28.2511 85.6400,28.2879 85.6479,28.2937 85.6691,28.3005 85.6760,28.3064 85.6771,28.3151 85.6769,28.3247 85.6801,28.3329 85.6930,28.3351 85.6980,28.3134 85.6998,28.2691 85.7156,28.2434 85.7345,28.2215 85.7566,28.2032 85.7730,28.1938 85.7828,28.1881 85.8269,28.1705 85.8483,28.1589 85.8634,28.1433 85.8670,28.1329 85.8717,28.1109 85.8891,28.0903 85.8911,28.0809 85.8898,28.0713 85.8904,28.0592 85.8983,28.0360 85.9089,28.0224 85.9440,27.9947 85.9566,27.9762 85.9563,27.9569 85.9518,27.9368 85.9512,27.9162 85.9627,27.8914 85.9803,27.8852 85.9810,27.8852 85.9812,27.8852 86.0270,27.8899 86.0514,27.8875 86.0518,27.8876 86.0524,27.8875 86.0556,27.8880 86.0627,27.8890 86.0766,27.8948 86.1081,27.9228 86.1138,27.9268 86.1132,27.9373 86.1081,27.9442 86.1015,27.9502 86.0966,27.9579 86.0960,27.9689 86.0990,27.9775 86.0991,27.9856 86.0904,27.9947 86.0904,27.9949 86.0902,27.9949 86.0902,27.9949 86.0801,28.0011 86.0786,28.0069 86.0805,28.0133 86.0805,28.0216 86.0849,28.0385 86.0857,28.0439 86.0825,28.0517 86.0711,28.0667 86.0697,28.0768 86.1568,28.1564 86.1760,28.1530 86.1860,28.1335 86.1872,28.1087 86.1808,28.0888 86.1722,28.0718 86.1745,28.0624 86.1819,28.0549 86.1891,28.0436 86.1960,28.0146 86.2030,28.0026 86.2178,27.9950 86.2179,27.9949 86.2184,27.9947 86.2385,27.9896 86.2590,27.9876 86.2781,27.9837 86.2947,27.9724 86.3182,27.9458 86.3277,27.9397 86.3376,27.9380 86.3379,27.9381 86.3385,27.9380 86.3466,27.9409 86.3546,27.9448 86.3632,27.9460 86.3720,27.9420 86.4057,27.9170 86.4253,27.9099 86.4261,27.9100 86.4262,27.9099 86.4398,27.9109 86.4764,27.9276 86.4979,27.9379 86.5114,27.9524 86.5177,27.9714 86.5177,27.9714 86.5174,27.9947 86.5171,28.0122 86.5232,28.0237 86.5319,28.0337 86.5393,28.0472 86.5417,28.0622 86.5422,28.0782 86.5451,28.0930 86.5545,28.1042 86.5697,28.1065 86.5831,28.0980 86.5969,28.0865 86.6123,28.0803 86.6129,28.0804 86.6133,28.0803 86.6281,28.0835 86.6504,28.1012 86.6628,28.1068 86.6801,28.1057 86.6996,28.0988 86.7177,28.0883 86.7317,28.0769 86.7360,28.0649 86.7322,28.0350 86.7398,28.0215 86.7700,28.0121 86.7708,28.0121 86.7709,28.0121 86.8405,28.0147 86.8682,27.9949 86.8682,27.9947 86.8769,27.9706 86.8931,27.9542 86.9147,27.9451 86.9404,27.9431 86.9407,27.9432 86.9413,27.9431 86.9712,27.9474 86.9830,27.9507 86.9895,27.9524 87.0057,27.9515 87.0305,27.9381 87.0620,27.9084 87.1165,27.8446 87.1558,27.8258 87.1820,27.8245 87.1823,27.8245 87.1829,27.8245 87.2332,27.8297 87.2905,27.8161 87.2908,27.8162 87.2915,27.8161 87.3149,27.8286 87.3368,27.8464 87.3644,27.8551 87.3853,27.8494 87.3807,27.8358 87.3691,27.8191 87.3691,27.8039 87.3701,27.8040 87.3701,27.8039 87.3877,27.8044 87.4765,27.8267 87.5155,27.8352 87.5318,27.8367 87.5513,27.8319 87.5560,27.8271 87.5598,27.8191 87.5651,27.8109 87.5733,27.8050 87.5900,27.8046 87.5900,27.8046 87.5909,27.8046 87.6220,27.8195 87.6367,27.8236 87.6600,27.8199 87.6785,27.8134 87.7005,27.8056 87.7012,27.8057 87.7014,27.8056 87.7278,27.8078 87.7573,27.8204 87.7808,27.8394 87.7996,27.8635 87.8151,27.8910 87.8268,27.9066 87.8369,27.9082 87.8561,27.8986 87.9346,27.8953 87.9452,27.8923 87.9664,27.8827 87.9784,27.8805 87.9789,27.8806 87.9794,27.8805 87.9928,27.8826 88.0191,27.8921 88.0302,27.8933 88.0528,27.8865 88.0957,27.8653 88.1182,27.8609 88.1430,27.8557 88.1564,27.8513 88.1646,27.8454 88.1666,27.8336 88.1546,27.8152 88.1597,27.7741 88.1493,27.7488 88.1349,27.7232 88.1109,27.6395 88.0488,27.5453 88.0233,27.4949 88.0221,27.4842 88.0233,27.4747 88.0281,27.4551 88.0308,27.4507 88.0398,27.4424 88.0416,27.4381 88.0393,27.4295 88.0348,27.4238 88.0296,27.4187 88.0258,27.4121 88.0172,27.3892 88.0148,27.3781 88.0158,27.3642 88.0201,27.3534 88.0233,27.3484 88.0325,27.3339 88.0351,27.3226 88.0290,27.2981 88.0047,27.2492 87.9893,27.2184 87.9855,27.1484 87.9708,27.1192 87.9692,27.1108 87.9707,27.1027 87.9755,27.0951 87.9913,27.0815 88.0095,27.0456 88.0274,27.0354 88.0428,27.0289 88.0559,27.0180 88.0769,26.9918 88.0968,26.9593 88.1118,26.9243 88.1204,26.9088 88.1428,26.8784 88.1514,26.8628 88.1553,26.8456 88.1590,26.8026 88.1678,26.7629 88.1691,26.7440 88.1675,26.7250 88.1634,26.7051 88.1466,26.6612 88.1176,26.6101 88.1017,26.5819 88.0871,26.5391 88.0798,26.5176 88.0792,26.5074 88.0823,26.4949 88.0823,26.4949 88.0742,26.4539 88.0443,26.4057 88.0066,26.3699 87.9755,26.3666 87.9612,26.3790 87.9290,26.3964 87.9148,26.4083 87.9085,26.4178 87.9020,26.4353 87.8973,26.4435 87.8948,26.4429 87.8707,26.4607 87.8698,26.4646 87.8521,26.4607 87.8216,26.4375 87.8044,26.4374 87.7859,26.4460 87.7690,26.4515 87.7562,26.4469 87.7495,26.4257 87.7422,26.4105 87.7275,26.4038 87.7109,26.4057 87.6976,26.4163 87.6812,26.4242 87.6596,26.4175 87.6240,26.3929 87.5870,26.3780 87.5521,26.3867 87.4803,26.4234 87.4496,26.4286 87.4165,26.4270 87.3842,26.4186 87.3564,26.4037 87.3449,26.3893 87.3262,26.3533 87.3140,26.3438 87.3005,26.3460 87.2584,26.3629 87.2453,26.3702 87.2363,26.3833 87.2294,26.3988 87.2191,26.4081 87.1885,26.3996 87.1350,26.3942 87.1063,26.4047 87.0833,26.4321 87.0667,26.4656 87.0567,26.4949 87.0565,26.4949 87.0565,26.4949 87.0450,26.5443 87.0444,26.5612 87.0413,26.5802 87.0299,26.5798 87.0154,26.5690 86.9852,26.5407 86.9724,26.5320 86.9071,26.5115 86.8760,26.4949 86.8657,26.4724 86.8464,26.4527 86.8219,26.4381 86.7964,26.4315 86.7872,26.4331 86.7519,26.4455 86.7382,26.4437 86.7307,26.4338 86.7241,26.4220 86.7136,26.4146 86.6952,26.4182 86.6253,26.4563 86.5579,26.4840 86.5380,26.4949 86.5377,26.4949 86.5243,26.5091 86.5106,26.5201 86.4949,26.5278 86.4755,26.5320 86.4448,26.5431 86.3836,26.5728 86.3537,26.5826 86.3448,26.5826 86.3232,26.5801 86.3160,26.5810 86.3090,26.5880 86.3086,26.6021 86.3014,26.6090 86.2844,26.6120 86.2631,26.6091 86.2252,26.5974 86.2029,26.5846 86.1959,26.5827 86.1854,26.5844 86.1793,26.5886 86.1745,26.5933 86.1678,26.5966 86.1527,26.6007 86.1448,26.6015 86.1221,26.6003 86.1159,26.6026 86.1107,26.6067 86.0417,26.6455 86.0114,26.6544 85.9757,26.6444 85.9521,26.6420 85.9347,26.6329 85.8664,26.5799 85.8448,26.5685 85.8285,26.5661 85.8216,26.5717 85.8198,26.5795 85.8195,26.5883 85.8176,26.5967 85.8097,26.6030 85.8001,26.6007 85.7900,26.5970 85.7810,26.5992 85.7270,26.6376 85.7129,26.6532 85.7022,26.6884 85.7096,26.7625 85.7018,26.7966 85.6878,26.8119 85.6094,26.8510 85.5986,26.8544 85.5195,26.8264 85.4757,26.8052 85.4396,26.7877 85.4215,26.7827 85.4032,26.7876 85.3859,26.7884 85.3692,26.7750 85.3532,26.7576 85.3370,26.7468 85.3024,26.7373 85.2873,26.7370 85.1949,26.7589 85.1657,26.7863 85.1655,26.8208 85.1620,26.8510 85.1228,26.8657 85.1002,26.8635 85.0440,26.8437 85.0186,26.8458 85.0169,26.8592 85.0180,26.8744 85.0008,26.8822 84.9882,26.8838 84.9758,26.8869 84.9527,26.8976 84.9443,26.9157 84.9386,26.9366 84.9240,26.9557 84.9016,26.9672 84.8518,26.9821 84.8283,26.9948 84.8281,26.9949 84.8175,27.0106 84.8019,27.0138 84.7855,27.0085 84.7720,26.9992 84.7607,26.9990 84.6402,27.0284 84.6273,27.0365 84.6215,27.0580 84.6304,27.0808 84.6445,27.1037 84.6544,27.1254 84.6598,27.1651 84.6577,27.2034 84.6482,27.2407 84.6319,27.2770 84.6065,27.3105 84.5770,27.3290 84.2894,27.3761 84.2677,27.3886 84.2489,27.4124 84.2390,27.4311 84.2255,27.4404 84.1953,27.4361 84.1858,27.4386 84.1751,27.4630 84.1657,27.4722 84.1417,27.4808 84.1310,27.4864 84.1216,27.4950 84.1172,27.5133 84.0995,27.5169 84.0796,27.5095 84.0289,27.4537 84.0077,27.4408 83.9758,27.4397 83.9359,27.4461 83.9230,27.4500 83.8999,27.4439 83.8535,27.4410 83.8341,27.4340 83.8427,27.4181 83.8712,27.3894 83.8737,27.3801 83.8776,27.3699 83.8774,27.3617 83.8675,27.3584 83.8617,27.3545 83.8546,27.3451 83.8480,27.3510 83.8020,27.3659 83.6634,27.4323 83.5904,27.4566 83.4810,27.4697 83.3870,27.4705 83.3610,27.4622 83.3559,27.4525 83.3539,27.4403 83.3558,27.4287 83.3710,27.4102 83.3696,27.3982 83.3627,27.3856 83.3411,27.3569 83.3244,27.3417 83.3049,27.3319 83.2824,27.3309 83.2595,27.3381 83.2494,27.3481 83.2431,27.3622 83.2316,27.3812 83.2192,27.3938 83.1696,27.4312 83.1328,27.4442 83.0105,27.4434 82.9472,27.4573 82.9013,27.4804 82.8763,27.4875 82.7521,27.4950 82.7297,27.5182 82.7189,27.5561 82.7092,27.6309 82.6971,27.6694 82.6797,27.6944 82.6521,27.7041 82.5262,27.6752 82.4643,27.6689 82.4407,27.6664 82.4019,27.6772 82.3771,27.6996 82.3479,27.7260 82.2704,27.7605 82.1510,27.8483 82.1074,27.8636 82.0904,27.8723 82.0717,27.8900 82.0516,27.9052 82.0272,27.9124 81.9759,27.9170 81.9464,27.9054 81.9061,27.8631 81.8832,27.8491 81.8557,27.8509 81.8279,27.8656 81.8002,27.8841 81.7501,27.9097 81.7104,27.9475 81.6889,27.9632 81.6654,27.9708 81.6150,27.9812 81.5954,27.9947 81.5954,27.9948 81.5951,27.9949 81.5822,28.0133 81.5619,28.0260 81.4735,28.0664 81.4582,28.0773 81.4540,28.0866 81.4529,28.0970 81.4482,28.1114 81.4353,28.1298 81.4173,28.1470 81.3960,28.1606 81.3732,28.1678 81.3579,28.1660 81.3514,28.1568 81.3473,28.1444 81.3381,28.1327 81.3237,28.1262 81.3071,28.1238 81.2962,28.1283 81.2994,28.1425 81.2831,28.1461 81.2768,28.1538 81.2808,28.1620 81.2959,28.1675 81.2824,28.1916 81.2243,28.2508 81.2107,28.2786 81.1904,28.3381 81.1697,28.3613 81.1463,28.3722 81.0004,28.3970 80.9932,28.4078 80.9913,28.4203 80.9878,28.4310 80.9760,28.4369 80.9605,28.4323 80.9412,28.4327 80.9213,28.4362 80.9053,28.4408 80.8867,28.4528 80.8819,28.4668 80.8804,28.4819 80.8723,28.4969 80.8580,28.5024 80.8170,28.5026 80.7984,28.5057 80.7817,28.5147 80.7435,28.5500 80.7271,28.5597 80.6958,28.5675 80.6786,28.5747 80.6682,28.5863 80.6483,28.6198 80.6356,28.6279 80.5985,28.6338 80.5814,28.6390 80.5636,28.6470 80.5569,28.6550 80.5574,28.6643 80.5590,28.6730 80.5558,28.6789 80.5176,28.6800 80.4975,28.6701 80.4876,28.6565 80.4849,28.6393 80.4934,28.5756 80.4885,28.5624 80.4688,28.5718 80.4265,28.6168 80.4084,28.6263 80.3883,28.6272 80.3691,28.6226 80.3498,28.6202 80.3297,28.6275 80.3183,28.6401 80.2910,28.6897 80.2834,28.6954 80.2652,28.6993 80.2570,28.7027 80.2494,28.7102 80.2390,28.7263 80.2333,28.7327 80.2164,28.7419 80.1812,28.7473 80.1621,28.7533 80.1476,28.7633 80.1142,28.8026 80.0819,28.8194 80.0731,28.8209 80.0548,28.8242 80.0364,28.8370 80.0303,28.8777 80.0311,28.8978 80.0339,28.9159 80.0405,28.9328 80.0529,28.9491 80.0684,28.9599 80.0852,28.9675 80.0994,28.9773 80.1079,28.9946 80.1079,28.9948 80.1047,29.0276 80.1131,29.0722 80.1326,29.1102 80.1635,29.1234 80.1806,29.1213 80.2014,29.1212 80.2207,29.1261 80.2331,29.1393 80.2305,29.1547 80.2137,29.1966 80.2188,29.2111 80.2361,29.2131 80.2487,29.2044 80.2582,29.2025 80.2787,29.2681 80.2828,29.2913 80.2801,29.3102 80.2728,29.3157 80.2636,29.3153 80.2550,29.3166 80.2495,29.3270 80.2422,29.3674 80.2210,29.4001 80.2137,29.4169 80.2177,29.4346 80.2283,29.4417 80.2575,29.4501 80.2635,29.4592 80.2662,29.4721 80.2731,29.4787 80.2821,29.4843 80.2912,29.4946 80.2915,29.4947 80.3115,29.5081 80.3201,29.5158 80.3272,29.5248 80.3276,29.5299 80.3251,29.5355 80.3236,29.5417 80.3272,29.5486 80.3327,29.5525 80.3451,29.5584 80.3508,29.5621 80.3733,29.5842 80.3852,29.6048 80.3868,29.6268 80.3866,29.6272 80.3776,29.6529 80.3639,29.6797 80.3544,29.7049 80.3543,29.7303 80.3690,29.7579 80.3952,29.7766 80.4549,29.7906 80.4762,29.8061 80.5273,29.8624 80.5495,29.8937 80.5629,29.9297 80.5713,29.9469 80.5862,29.9541 80.6223,29.9582 80.6414,29.9634 80.6541,29.9706 80.6802,29.9921 80.7158,30.0133 80.7257,30.0228 80.7557,30.0646 80.7697,30.0773 80.8298,30.1171 80.8497,30.1434 80.8364,30.1700 80.8504,30.1819 80.8679,30.2002 80.8839,30.2104 80.8936,30.1981 80.9033,30.1804 80.9208,30.1767 80.9882,30.1966 80.9960,30.1970 81.0065,30.1889 81.0194,30.1723 81.0309,30.1527 81.0437,30.1202 81.0666,30.0872 81.0742,30.0719 81.0848,30.0262 81.0978,30.0169 81.0985,30.0171 81.0987,30.0169 81.1255,30.0228 81.1481,30.0232 81.1945,30.0045 81.1952,30.0046 81.1955,30.0045 81.2178,30.0082 81.2282,30.0225 81.2267,30.0505 81.2405,30.0588 81.2580,30.0635 81.2678,30.0699 81.2689,30.0721 81.2730,30.0799 81.2769,30.0954 81.2755,30.1022 81.2673,30.1177 81.2679,30.1251 81.2787,30.1319 81.2938,30.1328 81.3095,30.1321 81.3098,30.1321 81.3105,30.1321 81.3234,30.1338 81.3392,30.1435 81.3510,30.1572 81.3582,30.1736 81.3628,30.2048 81.3753,30.2231 81.3788,30.2326 81.3779,30.2412 81.3715,30.2573 81.3700,30.2661 81.3690,30.3010 81.3725,30.3169 81.3831,30.3313 81.3882,30.3451 81.3858,30.3609 81.3885,30.3739 81.4078,30.3790 81.4261,30.3725 81.4628,30.3414 81.4831,30.3319 81.5094,30.3284 81.5097,30.3285 81.5103,30.3284 81.5216,30.3319 81.5329,30.3703 81.5378,30.3786 81.5452,30.3826 81.5642,30.3856 81.5777,30.3910 81.5829,30.3994 81.5860,30.4081 81.5925,30.4143 81.6143,30.4168 81.6357,30.4110 81.6495,30.4055 81.7574,30.3629 323,6.0,Asia/Thimphu 90.0510,28.3106 90.2205,28.2824 90.2915,28.2614 90.3295,28.2558 90.3467,28.2502 90.3740,28.2176 90.3614,28.1785 90.3363,28.1370 90.3263,28.0971 90.3483,28.0769 90.3924,28.0680 90.4096,28.0678 90.4352,28.0675 90.4408,28.0675 90.4409,28.0675 90.4418,28.0675 90.4762,28.0723 90.4934,28.0744 90.5101,28.0741 90.5753,28.0658 90.5756,28.0659 90.5762,28.0658 90.5983,28.0706 90.6228,28.0730 90.6520,28.0870 90.6679,28.0902 90.6839,28.0871 90.7269,28.0617 90.7553,28.0552 90.7887,28.0475 90.8509,28.0440 90.9095,28.0327 90.9606,27.9947 90.9751,27.9821 91.0088,27.9668 91.0519,27.9628 91.0522,27.9629 91.0529,27.9628 91.0935,27.9717 91.1204,27.9947 91.1204,27.9948 91.1206,27.9949 91.1347,28.0141 91.1768,28.0575 91.1956,28.0706 91.2211,28.0748 91.2461,28.0715 91.2468,28.0715 91.2471,28.0715 91.2707,28.0729 91.2905,28.0908 91.3096,28.0564 91.3414,28.0306 91.4188,27.9947 91.4365,27.9894 91.4464,27.9864 91.4609,27.9844 91.4975,27.9841 91.5375,27.9694 91.5786,27.9647 91.6006,27.9593 91.6217,27.9507 91.6380,27.9397 91.6528,27.9167 91.6489,27.8972 91.6371,27.8772 91.6283,27.8527 91.6273,27.8298 91.6291,27.8078 91.6329,27.7594 91.6267,27.7164 91.5799,27.6580 91.5733,27.6197 91.5951,27.5464 91.6045,27.5321 91.6329,27.5117 91.6417,27.4950 91.6574,27.4792 91.6802,27.4728 91.7049,27.4688 91.7270,27.4600 91.7271,27.4599 91.7437,27.4392 91.7448,27.4238 91.7501,27.4162 91.7796,27.4188 91.8574,27.4431 91.8843,27.4472 91.9054,27.4460 91.9209,27.4451 91.9337,27.4491 91.9633,27.4689 91.9751,27.4724 91.9973,27.4487 92.0848,27.3042 92.0888,27.2923 92.0819,27.2751 92.0506,27.2514 92.0368,27.2365 92.0332,27.2274 92.0300,27.2085 92.0271,27.1998 92.0215,27.1918 92.0085,27.1795 92.0030,27.1726 91.9959,27.1580 91.9908,27.1408 91.9879,27.1223 91.9877,27.1040 91.9966,27.0802 91.9999,27.0715 92.0497,27.0268 92.0670,26.9949 92.0670,26.9948 92.0839,26.9373 92.0804,26.9216 92.0728,26.8878 92.0359,26.8548 91.9751,26.8466 91.9574,26.8543 91.9257,26.8787 91.9082,26.8852 91.8931,26.8814 91.8955,26.8683 91.8955,26.8535 91.8740,26.8443 91.8859,26.8309 91.8869,26.8144 91.8787,26.8030 91.8631,26.8048 91.8524,26.8185 91.8495,26.8347 91.8439,26.8494 91.8251,26.8585 91.7953,26.8535 91.7316,26.8162 91.7021,26.8035 91.6538,26.7980 91.6380,26.7990 91.5937,26.8108 91.5756,26.8101 91.5394,26.7988 91.5206,26.7976 91.5074,26.8080 91.4845,26.8527 91.4751,26.8655 91.4606,26.8694 91.4202,26.8715 91.4063,26.8695 91.3885,26.8585 91.3781,26.8428 91.3701,26.8247 91.3584,26.8062 91.3456,26.7947 91.3301,26.7855 91.3132,26.7787 91.2966,26.7746 91.2760,26.7741 91.2620,26.7790 91.2325,26.7952 91.1982,26.8023 91.1271,26.8009 91.0919,26.8048 91.0621,26.8046 91.0074,26.7821 90.7171,26.7670 90.6239,26.7764 90.5878,26.7801 90.4752,26.8324 90.3826,26.8918 90.3488,26.8967 90.3286,26.8907 90.3142,26.8804 90.3009,26.8683 90.2844,26.8571 90.2660,26.8516 90.2291,26.8529 90.2109,26.8515 90.1774,26.8321 90.1522,26.7718 90.1272,26.7514 90.0892,26.7417 89.9753,26.7319 89.9121,26.7167 89.8904,26.7149 89.8803,26.7163 89.8599,26.7219 89.8587,26.7221 89.8508,26.7232 89.8470,26.7248 89.8390,26.7312 89.8350,26.7315 89.8297,26.7276 89.8277,26.7225 89.8273,26.7179 89.8267,26.7157 89.8268,26.7135 89.8252,26.7077 89.8221,26.7010 89.8173,26.6962 89.8137,26.6961 89.8041,26.6998 89.8001,26.7005 89.7603,26.7002 89.7387,26.7033 89.6852,26.7246 89.6632,26.7255 89.6283,26.7125 89.6098,26.7122 89.5975,26.7210 89.6135,26.7485 89.6114,26.7660 89.5861,26.7841 89.5465,26.7975 89.5054,26.8037 89.4429,26.7970 89.4073,26.8134 89.3417,26.8543 89.3002,26.8444 89.2864,26.8450 89.2736,26.8439 89.2630,26.8363 89.2526,26.8268 89.2408,26.8198 89.2128,26.8130 89.1846,26.8106 89.1281,26.8135 89.0965,26.8214 89.0824,26.8360 89.0743,26.8564 89.0607,26.8815 89.0449,26.8971 89.0216,26.9127 88.9966,26.9228 88.9753,26.9217 88.9658,26.9155 88.9545,26.9126 88.9428,26.9137 88.9323,26.9192 88.9253,26.9294 88.9254,26.9390 88.9270,26.9494 88.9245,26.9617 88.9066,26.9811 88.8864,26.9790 88.8671,26.9642 88.8517,26.9454 88.8456,26.9948 88.8456,26.9949 88.8456,27.0496 88.8408,27.0752 88.8276,27.0979 88.8053,27.1130 88.7560,27.1364 88.7426,27.1427 88.7301,27.1510 88.7384,27.1798 88.7544,27.2126 88.7759,27.2409 88.8012,27.2564 88.8552,27.2689 88.8614,27.2704 88.8761,27.2805 88.8846,27.2863 88.8923,27.3155 88.8925,27.3160 88.8933,27.3155 88.9011,27.3413 88.9237,27.3887 88.9353,27.4386 88.9442,27.4598 88.9576,27.4785 88.9753,27.4948 88.9763,27.4957 89.0084,27.5113 89.0483,27.5248 89.0850,27.5425 89.1077,27.5706 89.1080,27.5797 89.1028,27.6020 89.1028,27.6128 89.1050,27.6184 89.1073,27.6241 89.1442,27.6737 89.1833,27.7491 89.1993,27.7801 89.2259,27.8078 89.2597,27.8276 89.3004,27.8442 89.3370,27.8691 89.3711,27.9094 89.4183,27.9887 89.4219,27.9947 89.4221,27.9947 89.4455,28.0312 89.4598,28.0478 89.4763,28.0613 89.4963,28.0680 89.5160,28.0819 89.5624,28.1346 89.5804,28.1446 89.5988,28.1498 89.7188,28.1691 89.7568,28.1844 89.7746,28.2128 89.7818,28.2288 89.7970,28.2402 89.8307,28.2592 89.8396,28.2679 89.8550,28.2873 89.8639,28.2958 89.8741,28.3004 89.8813,28.2975 89.8887,28.2916 89.8987,28.2877 89.8995,28.2878 89.8996,28.2877 89.9233,28.2894 89.9391,28.2974 89.9535,28.3082 89.9725,28.3180 89.9909,28.3206 90.0510,28.3106 288,8.0,Antarctica/Casey 112.5004,-65.6855 112.6282,-65.6693 113.0514,-65.6156 113.1909,-65.6090 113.3232,-65.6155 113.4005,-65.6277 113.4704,-65.6469 113.5902,-65.7116 113.6436,-65.7313 113.8818,-65.7810 113.9938,-65.8124 114.0863,-65.8503 114.1875,-65.9116 114.3267,-65.9475 114.5551,-66.0298 114.7484,-66.1292 114.8080,-66.1760 114.8260,-66.2108 114.7933,-66.2942 114.8001,-66.3159 114.9450,-66.3127 115.1335,-66.3171 115.2695,-66.3299 115.3472,-66.3471 115.4840,-66.3911 115.8001,-66.4541 115.9465,-66.5043 116.0383,-66.5669 116.1860,-66.7706 116.1761,-66.8320 116.0909,-66.9267 116.0919,-66.9373 116.1069,-66.9408 116.2148,-66.9342 116.3703,-66.9366 116.5349,-66.8666 116.6722,-66.8239 116.8100,-66.7955 116.9485,-66.7873 117.0748,-66.7966 117.1959,-66.8223 117.2906,-66.8574 117.4278,-66.9275 117.5472,-66.9222 117.7383,-66.9363 118.2132,-66.8944 118.3527,-66.8738 118.4606,-66.8714 118.6176,-66.8891 118.6940,-66.9092 118.8343,-66.9607 118.8943,-66.9712 118.9569,-66.9725 119.0808,-66.9575 119.2421,-66.9495 119.3282,-66.9397 119.4954,-66.9026 119.7404,-66.8708 120.1769,-66.7900 120.3910,-66.7326 120.6619,-66.7122 120.9015,-66.6408 121.1382,-66.6193 121.3105,-66.6263 121.4475,-66.6558 121.5343,-66.6956 121.6360,-66.7871 121.6685,-66.7962 121.8620,-66.7545 122.0330,-66.7085 122.1137,-66.6944 122.2840,-66.6803 122.4098,-66.6578 122.5351,-66.6519 122.7907,-66.6158 123.0464,-66.5798 123.1748,-66.5743 123.3531,-66.5821 123.4426,-66.5413 123.5343,-66.5135 123.5674,-66.5062 123.8310,-66.4486 123.9485,-66.4326 124.1459,-66.4270 124.3383,-66.4391 124.4379,-66.4544 124.5217,-66.4760 124.6614,-66.5461 124.8461,-66.5382 124.8715,-66.5241 124.9821,-66.3793 125.0371,-66.3449 125.1169,-66.3103 125.2543,-66.2732 125.4895,-66.2449 125.6413,-66.1889 125.7316,-66.1647 125.8236,-66.1507 125.9255,-66.1453 126.0197,-66.1490 126.1163,-66.1616 126.2750,-66.2059 126.4452,-66.1977 126.5957,-66.2103 126.7661,-66.2511 126.8984,-66.2678 127.1080,-66.3296 127.2038,-66.3778 127.2467,-66.4392 127.2272,-66.5047 127.1506,-66.5788 127.1548,-66.6091 127.2355,-66.6835 127.4064,-66.7680 127.5089,-66.7869 127.5089,-67.1969 127.5089,-67.6068 127.5089,-68.0167 127.5089,-68.4267 127.5089,-68.8767 127.5089,-69.3267 127.5089,-69.7767 127.5089,-70.2267 127.5089,-70.6767 127.5089,-71.1267 127.5089,-71.5767 127.5089,-72.0267 127.5089,-72.4812 127.5089,-72.9358 127.5089,-73.3903 127.5089,-73.8448 127.5089,-74.2994 127.5089,-74.7539 127.5089,-75.2085 127.5089,-75.6630 127.5089,-76.1176 127.5089,-76.5721 127.5089,-77.0267 127.5089,-77.4812 127.5089,-77.9358 127.5089,-78.3903 127.5089,-78.8448 127.5089,-79.2994 127.5089,-79.7539 127.5089,-80.2085 127.5089,-80.6630 127.5089,-81.1176 127.5089,-81.5721 127.5089,-82.0267 127.5089,-82.5056 127.5089,-82.9844 127.5089,-83.4633 127.5089,-83.9422 127.5089,-84.4211 127.5089,-84.9000 127.5089,-85.3636 127.5089,-85.8273 127.5089,-86.2909 127.5089,-86.7545 127.5089,-87.2182 127.5089,-87.6818 127.5089,-88.1455 127.5089,-88.6091 127.5089,-89.0727 127.5089,-89.5364 127.5089,-90.0000 127.5014,-90.0000 127.1680,-90.0000 126.8347,-90.0000 126.5014,-90.0000 126.1680,-90.0000 125.8347,-90.0000 125.5014,-90.0000 125.1680,-90.0000 124.8347,-90.0000 124.5014,-90.0000 124.1680,-90.0000 123.8347,-90.0000 123.5014,-90.0000 123.1680,-90.0000 122.8347,-90.0000 122.5014,-90.0000 122.1680,-90.0000 121.8347,-90.0000 121.5014,-90.0000 121.1680,-90.0000 120.8347,-90.0000 120.5014,-90.0000 120.1680,-90.0000 119.8347,-90.0000 119.5014,-90.0000 119.1680,-90.0000 118.8347,-90.0000 118.5014,-90.0000 118.1680,-90.0000 117.8347,-90.0000 117.5014,-90.0000 117.1680,-90.0000 116.8347,-90.0000 116.5014,-90.0000 116.1680,-90.0000 115.8347,-90.0000 115.5014,-90.0000 115.1680,-90.0000 114.8347,-90.0000 114.5014,-90.0000 114.1680,-90.0000 113.8347,-90.0000 113.5014,-90.0000 113.1680,-90.0000 112.8347,-90.0000 112.5014,-90.0000 112.5014,-89.7182 112.5014,-89.4365 112.5014,-88.9819 112.5014,-88.5274 112.5014,-88.0728 112.5014,-87.6183 112.5014,-87.1638 112.5014,-86.7092 112.5014,-86.2547 112.5014,-85.8001 112.5014,-85.3456 112.5014,-84.8910 112.5014,-84.4365 112.5014,-83.9819 112.5014,-83.5274 112.5014,-83.0728 112.5014,-82.6183 112.5014,-82.1638 112.5014,-81.7092 112.5014,-81.2547 112.5014,-80.8001 112.5014,-80.3456 112.5014,-79.8910 112.5014,-79.4365 112.5014,-78.9819 112.5014,-78.5274 112.5014,-78.0728 112.5014,-77.6183 112.5014,-77.1638 112.5014,-76.7092 112.5014,-76.2547 112.5014,-75.8001 112.5014,-75.3456 112.5014,-74.8910 112.5014,-74.4365 112.5014,-73.9819 112.5014,-73.5274 112.5014,-73.0728 112.5014,-72.6183 112.5014,-72.1638 112.5014,-71.7092 112.5014,-71.2547 112.5014,-70.8001 112.5014,-70.3456 112.5014,-69.8910 112.5014,-69.4365 112.5013,-69.0322 112.5012,-68.6280 112.5011,-68.2238 112.5010,-67.8195 112.5009,-67.4153 112.5008,-67.3393 112.0256,-67.3387 111.5504,-67.3380 111.0752,-67.3374 110.6000,-67.3368 110.1248,-67.3361 110.1196,-66.9371 110.1144,-66.5380 110.1879,-66.5188 110.2258,-66.4578 110.1490,-66.4119 110.0962,-66.3506 110.0871,-66.3024 110.1144,-66.2517 110.1962,-66.1852 110.4782,-66.0134 110.5997,-65.9548 110.7151,-65.9173 111.1089,-65.8478 111.5028,-65.7783 111.6045,-65.7718 111.8284,-65.7707 112.0966,-65.7367 112.3648,-65.7027 112.5004,-65.6855 1018,11.0,Pacific/Guadalcanal 172.5213,51.7762 172.5064,51.3888 172.5073,51.0304 172.5082,50.6719 172.5127,50.6719 172.5125,50.2174 172.5123,49.7628 172.5121,49.3083 172.5119,48.8537 172.5117,48.3992 172.5115,47.9447 172.5114,47.4901 172.5112,47.0356 172.5110,46.5810 172.5108,46.1265 172.5106,45.6719 172.5104,45.2174 172.5102,44.7628 172.5100,44.3083 172.5098,43.8537 172.5096,43.3992 172.5094,42.9447 172.5092,42.4901 172.5091,42.0356 172.5089,41.5810 172.5087,41.1265 172.5085,40.6719 172.5083,40.2174 172.5081,39.7628 172.5079,39.3083 172.5077,38.8537 172.5075,38.3992 172.5073,37.9447 172.5071,37.4901 172.5070,37.0356 172.5068,36.5810 172.5066,36.1265 172.5064,35.6719 172.5062,35.1719 172.5060,34.6719 172.5058,34.1719 172.5055,33.6719 172.5053,33.1719 172.5051,32.6719 172.5049,32.1719 172.5047,31.6719 172.5045,31.1719 172.5043,30.6719 172.5041,30.2174 172.5039,29.7628 172.5037,29.3083 172.5035,28.8537 172.5033,28.3992 172.5031,27.9447 172.5029,27.4901 172.5028,27.0356 172.5026,26.5810 172.5024,26.1265 172.5022,25.6719 172.5020,25.1907 172.5018,24.7096 172.5016,24.2284 172.5014,23.7472 172.5012,23.2660 172.5010,22.7848 172.5008,22.3036 172.5006,21.8224 172.5004,21.3412 172.5002,20.8601 172.0456,20.8600 171.5911,20.8600 171.1365,20.8600 170.6820,20.8600 170.2274,20.8600 169.7729,20.8600 169.3183,20.8600 168.8638,20.8600 168.4092,20.8599 167.9547,20.8599 167.5002,20.8599 167.0456,20.8599 166.5911,20.8599 166.1365,20.8599 165.6820,20.8599 165.2274,20.8599 164.7729,20.8598 164.3183,20.8598 163.8638,20.8598 163.4092,20.8598 162.9547,20.8598 162.5002,20.8598 162.0185,20.8598 161.5368,20.8598 161.0551,20.8597 160.5733,20.8597 160.5727,20.3597 160.5721,19.8597 160.5715,19.3597 160.5709,18.8597 160.5702,18.3597 160.5696,17.8597 160.5690,17.3597 160.5684,16.8597 160.5677,16.3597 160.5671,15.8597 160.5665,15.4052 160.5660,14.9506 160.5654,14.4961 160.5648,14.0416 160.5643,13.5870 160.5637,13.1325 160.5631,12.6779 160.5626,12.2234 160.5620,11.7688 160.5614,11.3143 160.5609,10.8597 160.5605,10.3915 160.5601,9.9233 160.5597,9.4550 160.5593,8.9868 160.5590,8.5186 160.5586,8.0504 161.0486,8.0504 161.5385,8.0504 162.0285,8.0504 162.5185,8.0504 163.0085,8.0504 163.4985,8.0504 163.9885,8.0504 163.9889,7.5549 163.9893,7.0595 163.9897,6.5640 163.9901,6.0686 163.9905,5.5731 163.9910,5.0777 163.9914,4.5822 163.9918,4.0868 163.9922,3.5914 163.9926,3.0959 163.9930,2.6005 163.9934,2.1050 163.9939,1.6096 163.9943,1.1141 163.9947,0.6187 163.9951,0.1233 163.9955,-0.3722 163.9959,-0.8676 163.9963,-1.3631 163.9968,-1.8585 163.9972,-2.3540 164.3840,-2.3540 164.7708,-2.3541 165.1576,-2.3542 165.5444,-2.3543 165.9989,-2.3544 166.4535,-2.3545 166.9080,-2.3546 167.3626,-2.3547 167.8171,-2.3548 168.2717,-2.3548 168.7262,-2.3549 169.1808,-2.3550 169.6353,-2.3551 170.0899,-2.3552 170.5444,-2.3553 171.0337,-2.3554 171.5229,-2.3555 172.0122,-2.3556 172.5015,-2.3557 172.5015,-2.8103 172.5015,-3.2648 172.5015,-3.7193 172.5015,-4.1739 172.5015,-4.6284 172.5015,-5.0830 172.5015,-5.5375 172.5014,-5.9921 172.5014,-6.4466 172.5014,-6.9012 172.5014,-7.3557 172.5014,-7.8103 172.5014,-8.2648 172.5014,-8.7193 172.5014,-9.1739 172.5014,-9.6284 172.5014,-10.0830 172.5014,-10.5375 172.5014,-10.9921 172.5014,-11.4466 172.5014,-11.9012 172.5014,-12.3557 172.5014,-12.8103 172.5014,-13.2648 172.5014,-13.7193 172.5014,-14.1739 172.5014,-14.6284 172.5014,-15.0830 172.5014,-15.5375 172.5014,-15.9921 172.5014,-16.4466 172.5013,-16.9012 172.5013,-17.3557 172.5013,-17.8103 172.5013,-18.2648 172.5013,-18.7193 172.5013,-19.1739 172.5013,-19.6284 172.5013,-20.0830 172.5013,-20.5375 172.5013,-20.9921 172.5013,-21.4466 172.5013,-21.9012 172.5013,-22.3557 172.5013,-22.8103 172.5013,-23.2648 172.5013,-23.7193 172.5013,-24.1739 172.5013,-24.6284 172.5013,-25.0830 172.5013,-25.5375 172.5013,-25.9921 172.5013,-26.4466 172.5013,-26.9012 172.5013,-27.3557 172.5013,-27.6628 172.5013,-27.9698 172.5012,-28.4386 172.5012,-28.9074 172.5012,-29.3762 172.5012,-29.8450 172.5012,-30.3138 172.5012,-30.7826 172.5012,-31.2714 172.5012,-31.7602 172.5012,-32.2490 172.2569,-32.6323 172.0125,-33.0156 171.7682,-33.3989 171.5239,-33.7822 171.2795,-34.1655 171.0352,-34.5488 170.7909,-34.9321 170.5465,-35.3154 170.3022,-35.6986 170.0579,-36.0819 169.8135,-36.4652 169.5448,-36.8868 169.2760,-37.3085 169.0072,-37.7301 168.7385,-38.1517 168.4697,-38.5733 168.2009,-38.9949 167.9322,-39.4166 167.6634,-39.8382 167.3946,-40.2598 167.1259,-40.6814 166.8683,-41.0854 166.6108,-41.4894 166.3533,-41.8934 166.0957,-42.2974 165.8382,-42.7014 165.5807,-43.1053 165.3232,-43.5093 165.0656,-43.9133 165.0648,-44.4133 165.0640,-44.9133 165.0632,-45.4133 165.0623,-45.9133 165.0615,-46.4133 165.0607,-46.9133 165.0598,-47.4133 165.0590,-47.9133 165.0582,-48.4133 165.0573,-48.9133 165.0565,-49.4133 165.0557,-49.9133 165.0549,-50.4133 165.0540,-50.9133 165.0532,-51.4133 165.0524,-51.9133 165.0515,-52.4133 165.0507,-52.9133 165.0499,-53.4133 165.0490,-53.9133 165.0485,-54.2169 165.0480,-54.5204 165.5026,-54.5204 165.9571,-54.5204 166.4117,-54.5204 166.8662,-54.5204 167.3208,-54.5204 167.7753,-54.5204 168.2299,-54.5204 168.6844,-54.5204 169.1389,-54.5204 169.5935,-54.5204 170.0480,-54.5204 170.5422,-54.5204 171.0363,-54.5204 171.5305,-54.5204 172.0247,-54.5204 172.5188,-54.5204 172.5186,-54.9750 172.5184,-55.4295 172.5181,-55.8841 172.5179,-56.3386 172.5177,-56.7932 172.5174,-57.2477 172.5172,-57.7022 172.5170,-58.1568 172.5168,-58.6113 172.5165,-59.0659 172.5163,-59.5204 172.5161,-60.0204 172.5158,-60.5204 172.5156,-61.0204 172.5153,-61.5204 172.5151,-62.0204 172.5148,-62.5204 172.5146,-63.0204 172.5143,-63.5204 172.5141,-64.0204 172.5138,-64.5204 172.5136,-64.9750 172.5134,-65.4295 172.5131,-65.8841 172.5129,-66.3386 172.5127,-66.7932 172.5125,-67.2477 172.5122,-67.7022 172.5120,-68.1568 172.5118,-68.6113 172.5115,-69.0659 172.5113,-69.5204 172.5111,-69.9750 172.5109,-70.4295 172.5106,-70.8841 172.5104,-71.3386 172.5102,-71.7932 172.5100,-72.2477 172.5097,-72.7022 172.5095,-73.1568 172.5093,-73.6113 172.5090,-74.0659 172.5088,-74.5204 172.5086,-74.9584 172.5084,-75.3963 172.5082,-75.8343 172.5079,-76.2723 172.5077,-76.7102 172.5075,-77.1482 172.5073,-77.5861 172.0884,-77.5706 171.6695,-77.5551 171.2506,-77.5396 170.8317,-77.5241 170.4127,-77.5086 170.2254,-77.5016 170.1873,-77.4475 170.1361,-77.4160 170.0675,-77.3860 169.9834,-77.3575 169.8649,-77.3261 169.6340,-77.2818 169.4389,-77.2594 168.9947,-77.2309 168.5505,-77.2023 168.0710,-77.1839 167.9649,-77.1753 167.8873,-77.1648 167.8263,-77.1497 167.6377,-77.0728 167.7066,-77.0447 167.7529,-77.0178 167.7811,-76.9897 167.7914,-76.9607 167.7839,-76.9315 167.7531,-76.8984 167.7088,-76.8714 167.6377,-76.8419 167.5468,-76.8151 167.4543,-76.7947 167.3306,-76.7745 167.2044,-76.7600 167.0741,-76.7507 166.9422,-76.7462 166.8109,-76.7463 166.6827,-76.7510 166.5010,-76.7659 166.3644,-76.7852 166.2462,-76.8104 166.1508,-76.8409 166.0829,-76.8765 166.0459,-76.9203 166.0510,-76.9669 166.0901,-77.0268 165.9174,-77.0596 165.8109,-77.0903 165.7079,-77.1334 165.6259,-77.1868 165.5766,-77.2421 165.5713,-77.2808 165.5987,-77.3165 165.6780,-77.3589 165.6820,-77.3700 165.6525,-77.3837 165.4845,-77.4267 165.3899,-77.4629 165.3298,-77.5016 165.3130,-77.5426 165.3394,-77.5802 165.4017,-77.6230 165.4688,-77.6549 165.5808,-77.6921 165.6214,-77.7617 165.6665,-77.7874 165.7347,-77.8142 165.7433,-77.8258 165.7125,-77.8339 165.6312,-77.8377 165.4810,-77.8364 165.3959,-77.8306 165.3153,-77.7861 165.2175,-77.7497 165.0470,-77.7103 164.9323,-77.6710 164.6860,-77.6148 164.6131,-77.5918 164.6621,-77.5463 164.6781,-77.5065 164.6672,-77.4247 164.6319,-77.3799 164.5621,-77.3433 164.4219,-77.2988 164.3609,-77.2719 164.2598,-77.1882 164.1426,-77.1109 164.0888,-77.0857 163.9772,-77.0490 163.9564,-77.0041 163.9119,-76.9730 163.8400,-76.9436 163.6992,-76.9047 163.6794,-76.8950 163.6849,-76.8780 163.7606,-76.8201 163.7606,-76.7670 163.6979,-76.6634 163.6340,-76.6236 163.5297,-76.5745 163.5943,-76.5333 163.6408,-76.4793 163.6548,-76.4261 163.6276,-76.3897 163.5418,-76.3295 163.5530,-76.2708 163.5309,-76.2214 163.4994,-76.1903 163.4337,-76.1475 163.4725,-76.1111 163.4846,-76.0828 163.4540,-75.9922 163.5745,-75.9050 163.6364,-75.8358 163.6202,-75.7854 163.5406,-75.7289 163.5877,-75.6952 163.6729,-75.6095 163.6931,-75.5759 163.6940,-75.5446 163.6613,-75.5023 163.5921,-75.4632 163.4819,-75.4282 163.3018,-75.3916 163.1771,-75.3277 163.2674,-75.2806 163.3240,-75.2359 163.3491,-75.1938 163.3377,-75.1214 163.3997,-75.0858 163.6593,-75.0943 163.8746,-75.0855 164.0109,-75.0692 164.1598,-75.0399 164.3039,-75.0223 164.4191,-75.0004 164.5439,-74.9639 164.6339,-74.9208 164.7797,-74.7634 164.9168,-74.7658 165.0712,-74.7952 165.2221,-74.8121 165.3530,-74.8187 165.4716,-74.8188 165.6183,-74.8112 165.7670,-74.7932 165.8907,-74.7670 165.9892,-74.7343 166.0756,-74.6859 166.1184,-74.6323 166.1432,-74.5507 166.1256,-74.4772 166.0914,-74.4375 166.0405,-74.4079 165.7952,-74.3246 165.6727,-74.1871 165.8208,-74.1426 165.9546,-74.0723 166.1043,-74.0411 166.2825,-73.9906 166.5145,-73.9589 166.6351,-73.9275 166.7216,-73.8906 166.9184,-73.7706 167.1058,-73.7533 167.3863,-73.7122 167.6294,-73.6872 167.7301,-73.6713 167.9225,-73.6191 168.0963,-73.5871 168.1810,-73.5663 168.5073,-73.4280 168.5375,-73.4204 168.5796,-73.4169 168.7013,-73.4260 168.8412,-73.4480 168.8962,-73.4615 168.9018,-73.4691 168.8511,-73.5088 168.8302,-73.5476 168.8389,-73.5860 168.8761,-73.6230 168.9489,-73.6604 169.1737,-73.7416 169.2570,-73.7670 169.3483,-73.7862 169.4497,-73.7995 169.5782,-73.8080 169.7087,-73.8089 169.8529,-73.8025 170.0204,-73.7866 170.1767,-73.7641 170.2732,-73.7430 170.3526,-73.7159 170.4352,-73.6689 170.5495,-73.5712 170.5814,-73.5255 170.5793,-73.4863 170.4819,-73.3983 170.4109,-73.2990 170.3627,-73.2565 170.2653,-73.2113 170.1214,-73.1783 170.1076,-73.1711 170.1750,-73.1314 170.2270,-73.0830 170.2410,-73.0469 170.2332,-72.9963 170.5201,-72.7730 170.5457,-72.7616 170.6795,-72.7279 170.7520,-72.7007 170.8095,-72.6667 170.8525,-72.6217 170.8881,-72.5156 170.9247,-72.4562 170.9260,-72.4194 170.8719,-72.3132 170.7709,-72.2167 170.7710,-72.1886 170.8025,-72.1735 170.9668,-72.1406 171.1635,-72.0812 171.2558,-72.0455 171.3568,-71.9923 171.4572,-71.9313 171.5141,-71.8794 171.5322,-71.8322 171.5085,-71.7840 171.4428,-71.7377 171.4040,-71.6922 171.3199,-71.6242 171.1529,-71.5503 170.9281,-71.3409 170.8550,-71.2842 170.6984,-71.1919 170.6190,-71.1616 170.5352,-71.1403 170.4343,-71.1252 170.3313,-71.1181 170.2100,-71.1177 170.0888,-71.1259 169.9198,-71.1532 169.6554,-71.2331 169.6036,-71.2377 169.4775,-71.2003 169.2574,-71.1620 169.1208,-71.0843 168.9768,-71.0394 168.7492,-71.0043 168.4835,-70.9828 168.4195,-70.9699 168.3947,-70.9546 168.3973,-70.9015 168.3243,-70.7968 168.1975,-70.7201 168.0501,-70.6634 167.9025,-70.6316 167.5608,-70.5931 167.5089,-70.5894 167.4706,-70.5867 167.2961,-70.5855 167.2068,-70.5372 167.1180,-70.5026 167.0091,-70.4737 166.8914,-70.4547 166.7045,-70.4453 166.5188,-70.4187 166.3662,-70.4116 166.2212,-70.4188 165.8717,-70.4581 165.6993,-70.4181 165.5426,-70.3993 165.3924,-70.3928 165.0484,-70.3901 164.8888,-70.3721 164.6678,-70.3593 164.3450,-70.3235 164.2370,-70.3197 164.0756,-70.3235 164.0345,-70.3059 163.9676,-70.2595 163.9082,-70.2361 163.7992,-70.2041 163.6795,-70.1830 163.5343,-70.1708 163.2291,-70.1654 163.0822,-70.1582 162.9959,-70.1481 162.8241,-70.1159 162.6815,-70.1013 162.5577,-70.0994 162.2735,-70.1069 162.0820,-70.0638 161.9608,-70.0503 161.8466,-70.0474 161.7290,-70.0537 161.6225,-70.0676 161.4323,-70.1043 161.3812,-70.1090 161.3447,-70.1069 161.3183,-70.0977 161.2169,-70.0304 161.0163,-69.9400 160.9286,-69.9121 160.8090,-69.8884 160.8210,-69.7802 160.8033,-69.7486 160.7631,-69.7142 160.6978,-69.6776 160.5795,-69.6267 160.4491,-69.5445 160.3080,-69.4951 160.2072,-69.4266 160.0599,-69.3721 159.9376,-69.3491 159.6835,-69.3282 159.5094,-69.2853 159.3090,-69.2600 159.1648,-69.2022 159.0619,-69.1738 158.9034,-69.1519 158.7052,-69.1464 158.5259,-69.0856 158.1300,-69.0139 158.0117,-69.0055 157.8800,-69.0035 157.6463,-69.0262 157.5176,-69.0337 157.5176,-69.0044 157.5176,-68.5498 157.5176,-68.0953 157.5176,-67.6407 157.5176,-67.1862 157.5176,-66.7316 157.5176,-66.2771 157.5176,-65.8225 157.5176,-65.3680 157.5176,-64.9135 157.5176,-64.4589 157.5176,-64.0044 157.5176,-63.5498 157.5176,-63.0953 157.5176,-62.6407 157.5176,-62.1862 157.5176,-61.7316 157.5176,-61.2771 157.5176,-60.8225 157.5176,-60.3680 157.5176,-59.9135 157.5176,-59.4589 157.5176,-59.0044 157.5176,-58.5344 157.5176,-58.0644 157.5176,-57.5944 157.5176,-57.1244 157.5176,-56.6544 157.5176,-56.1844 157.5176,-55.7144 157.5176,-55.2444 157.5176,-54.7744 157.5176,-54.3044 157.5176,-53.8498 157.5176,-53.3953 157.5176,-52.9407 157.5176,-52.4862 157.5176,-52.0316 157.5176,-51.5771 157.5176,-51.1225 157.5176,-50.6680 157.5176,-50.2135 157.5176,-49.7589 157.5176,-49.3044 157.5176,-48.8498 157.5176,-48.3953 157.5176,-47.9407 157.5176,-47.4862 157.5176,-47.0316 157.5176,-46.5771 157.5176,-46.1225 157.5176,-45.6680 157.5176,-45.2135 157.5176,-44.7589 157.5176,-44.3044 157.5176,-43.8498 157.5176,-43.3953 157.5176,-42.9407 157.5176,-42.4862 157.5176,-42.0316 157.5176,-41.5771 157.5176,-41.1225 157.5176,-40.6680 157.5176,-40.2135 157.5176,-39.7589 157.5176,-39.3044 157.5176,-39.2044 157.5176,-38.7498 157.5176,-38.2953 157.5176,-37.8407 157.5176,-37.3862 157.5176,-36.9316 157.5176,-36.4771 157.5176,-36.0225 157.5176,-35.5680 157.5176,-35.1135 157.5176,-34.6589 157.5176,-34.2044 157.5176,-33.7498 157.5176,-33.2953 157.5176,-32.8407 157.5176,-32.3862 157.5176,-31.9316 157.5176,-31.4771 157.5176,-31.0225 157.5176,-30.5680 157.5176,-30.1135 157.5176,-29.6589 157.5176,-29.2044 157.5176,-28.7498 157.5176,-28.2953 157.5176,-27.8407 157.5176,-27.3862 157.5176,-26.9316 157.5176,-26.4771 157.5176,-26.0225 157.5176,-25.5680 157.5176,-25.1135 157.5176,-24.6589 157.5176,-24.2044 157.5176,-23.7498 157.5176,-23.2953 157.5176,-22.8407 157.5176,-22.3862 157.5176,-21.9316 157.5176,-21.4771 157.5176,-21.0225 157.5176,-20.5680 157.5176,-20.1135 157.5176,-19.6589 157.5176,-19.2044 157.5176,-18.7498 157.5176,-18.2953 157.5176,-17.8407 157.5176,-17.3862 157.5176,-16.9316 157.5176,-16.4771 157.5176,-16.0225 157.5176,-15.5680 157.5176,-15.1135 157.5176,-14.6589 157.5176,-14.2044 157.5176,-13.7331 157.5176,-13.2618 157.5176,-12.7905 157.5176,-12.3192 157.5176,-12.2353 157.3394,-11.8046 157.1611,-11.3739 156.8933,-11.0371 156.6255,-10.7004 156.3577,-10.3636 156.0899,-10.0268 155.8221,-9.6901 155.5544,-9.3533 155.2866,-9.0165 155.0529,-8.7227 154.8192,-8.4288 154.5856,-8.1350 154.8206,-7.7385 155.0556,-7.3421 155.0934,-7.2784 155.1076,-7.2545 155.1122,-7.2467 155.5117,-6.9806 155.5994,-6.9258 155.6936,-6.9258 155.9231,-6.8472 156.0397,-6.6583 156.0395,-6.6511 156.0358,-6.5500 156.4063,-6.2673 156.7767,-5.9847 157.1472,-5.7020 157.5176,-5.4193 157.8761,-5.1453 158.2347,-4.8713 158.6907,-4.8470 159.1468,-4.8227 159.6029,-4.7984 160.0590,-4.7740 160.0554,-4.3794 160.0518,-3.9848 160.0482,-3.5902 159.6264,-3.5902 159.2046,-3.5902 158.7829,-3.5902 158.3611,-3.5902 157.9394,-3.5902 157.5176,-3.5902 157.5176,-3.1442 157.5176,-2.6983 157.5176,-2.2524 157.5176,-1.8065 157.5176,-1.3605 157.5176,-0.9146 157.5176,-0.4687 157.5176,-0.0228 157.1382,-0.0222 156.7588,-0.0217 156.3794,-0.0212 156.0000,-0.0207 155.5994,-0.0201 155.1987,-0.0196 154.7981,-0.0190 154.3975,-0.0185 153.9969,-0.0179 153.9969,0.4628 153.9969,0.9435 153.9969,1.4242 153.9969,1.9049 153.9969,2.3856 153.9969,2.8663 153.9969,3.3470 153.9969,3.8277 153.9969,4.3084 153.9969,4.7891 153.9969,5.2698 153.9969,5.7506 153.9969,6.2313 153.9969,6.7120 153.9969,7.1927 153.9968,7.6734 153.9968,8.1541 153.9968,8.6348 153.9968,9.1155 153.9968,9.5962 153.9968,10.0769 153.9968,10.5576 153.9968,11.0383 153.9968,11.5190 153.9968,11.9997 154.4358,11.9997 154.8747,11.9998 155.3136,11.9998 155.7525,11.9999 156.1915,11.9999 156.6304,11.9999 157.0693,12.0000 157.5082,12.0000 157.5082,12.4545 157.5082,12.9091 157.5082,13.3636 157.5082,13.8182 157.5082,14.2727 157.5082,14.7273 157.5082,15.1818 157.5082,15.6364 157.5082,16.0909 157.5082,16.5455 157.5082,17.0000 157.5082,17.4482 157.5082,17.8964 157.5082,18.3446 157.5082,18.7928 157.5082,19.2473 157.5082,19.7019 157.5082,20.1564 157.5082,20.6109 157.5082,21.0655 157.5082,21.5200 157.5082,21.9746 157.5082,22.4291 157.5082,22.8837 157.5082,23.3382 157.5082,23.7928 157.5082,24.2473 157.5082,24.7019 157.5082,25.1564 157.5082,25.6109 157.5082,26.0655 157.5082,26.5200 157.5082,26.9746 157.5082,27.4291 157.5082,27.8837 157.5082,28.3382 157.5082,28.7928 157.5082,29.2473 157.5082,29.7019 157.5082,30.1564 157.5082,30.6109 157.5082,31.0655 157.5082,31.5200 157.5082,31.9746 157.5082,32.4291 157.5082,32.8837 157.5082,33.3382 157.5082,33.7928 157.5082,34.2473 157.5082,34.7019 157.5082,35.1564 157.5082,35.6109 157.5082,36.0655 157.5082,36.5200 157.5082,36.9746 157.5082,37.4291 157.5082,37.8837 157.5082,38.3382 157.5082,38.7928 157.5082,39.2473 157.5082,39.7019 157.5082,40.1564 157.5082,40.6109 157.5082,41.0655 157.5082,41.5200 157.5082,41.9746 157.5082,42.4291 157.5082,42.8837 157.5082,43.3382 157.5082,43.7928 157.5082,44.2473 157.5082,44.7019 157.5082,45.1564 157.5082,45.6109 157.5082,46.0655 157.5082,46.5200 157.5082,46.9746 157.5082,47.4291 157.5082,47.8837 157.5082,48.3382 157.5082,48.7928 157.5082,49.1893 157.5082,49.5858 157.5082,49.9824 158.0019,49.9871 158.4956,49.9919 158.9892,49.9966 159.4829,50.0014 159.9765,50.0062 160.4702,50.0109 160.9638,50.0157 161.4575,50.0204 161.9511,50.0252 162.4448,50.0300 162.8935,50.0300 163.3422,50.0300 163.7909,50.0300 164.2396,50.0300 164.6883,50.0300 165.1370,50.0300 165.5857,50.0300 165.9393,50.2668 166.2928,50.5037 166.6464,50.7406 167.0000,50.9775 167.3571,51.2363 167.7310,51.5074 167.9976,51.7007 168.3860,51.9527 168.7737,52.2043 169.3873,52.6026 169.6938,52.8015 169.9997,52.9999 170.4874,52.7657 170.7999,52.6151 171.3394,52.3537 171.7345,52.1613 172.0628,52.0007 172.5213,51.7762 1719,6.0,Asia/Dhaka 88.5068,26.4876 88.5268,26.4754 88.5498,26.4667 88.5580,26.4657 88.5792,26.4660 88.5912,26.4612 88.5979,26.4515 88.6036,26.4402 88.6115,26.4308 88.6224,26.4245 88.6330,26.4201 88.6563,26.4151 88.6519,26.4071 88.6499,26.3984 88.6522,26.3915 88.6611,26.3889 88.6685,26.3857 88.6674,26.3682 88.6734,26.3607 88.6963,26.3503 88.7097,26.3406 88.7122,26.3283 88.7030,26.3097 88.6901,26.2998 88.6533,26.2831 88.6458,26.2760 88.6634,26.2644 88.7479,26.2925 88.7840,26.2799 88.7920,26.2646 88.7985,26.2476 88.8080,26.2334 88.8248,26.2266 88.8407,26.2320 88.8556,26.2651 88.8758,26.2774 88.9027,26.2729 88.9468,26.2329 88.9753,26.2243 89.0195,26.2345 89.0397,26.2472 89.0343,26.2658 89.0235,26.2688 89.0116,26.2692 89.0044,26.2757 89.0080,26.2972 88.9986,26.2915 88.9897,26.2894 88.9817,26.2918 88.9753,26.2999 88.9660,26.3285 88.9412,26.3401 88.9124,26.3489 88.8919,26.3688 88.8912,26.3858 88.8995,26.4045 88.9120,26.4212 88.9246,26.4321 88.9410,26.4394 88.9502,26.4369 88.9593,26.4286 88.9753,26.4179 88.9865,26.4127 89.0018,26.3971 89.0109,26.3902 89.0218,26.3862 89.0437,26.3811 89.0526,26.3746 89.0573,26.3626 89.0541,26.3539 89.0552,26.3470 89.0719,26.3406 89.0957,26.3345 89.1029,26.3273 89.1035,26.3137 89.0948,26.3095 89.0803,26.3156 89.0689,26.3143 89.0694,26.2874 89.0759,26.2711 89.0959,26.2410 89.1034,26.2252 89.1117,26.1645 89.1192,26.1466 89.1316,26.1338 89.1978,26.1077 89.2126,26.0990 89.2231,26.0866 89.2293,26.0672 89.2376,26.0581 89.2730,26.0435 89.2969,26.0182 89.3151,26.0068 89.3353,25.9986 89.3515,25.9969 89.3678,26.0054 89.3797,26.0153 89.3914,26.0155 89.4066,25.9951 89.4113,25.9932 89.4161,25.9926 89.4212,25.9932 89.4264,25.9949 89.4264,25.9950 89.4264,25.9950 89.4264,25.9951 89.4806,25.9992 89.4856,25.9987 89.4906,25.9973 89.4953,25.9951 89.5095,25.9726 89.5182,25.9621 89.5284,25.9571 89.5417,25.9597 89.5491,25.9689 89.5518,25.9815 89.5507,25.9951 89.5592,26.0222 89.6029,26.0553 89.6114,26.0722 89.6039,26.0847 89.5908,26.0850 89.5769,26.0826 89.5670,26.0871 89.5669,26.0990 89.5779,26.1072 89.5925,26.1140 89.6042,26.1207 89.5858,26.1229 89.5694,26.1301 89.5628,26.1426 89.5734,26.1607 89.5799,26.1661 89.5868,26.1692 89.5940,26.1697 89.6144,26.1642 89.6153,26.1691 89.6085,26.1807 89.6064,26.2110 89.6133,26.2194 89.6349,26.2258 89.6530,26.2227 89.6584,26.2079 89.6572,26.1654 89.6558,26.1613 89.6582,26.1592 89.6704,26.1541 89.6777,26.1531 89.6977,26.1548 89.7065,26.1542 89.7185,26.1455 89.7243,26.1307 89.7288,26.1142 89.7367,26.1006 89.7498,26.0839 89.7511,26.0715 89.7487,26.0590 89.7502,26.0416 89.7558,26.0324 89.7764,26.0082 89.7840,25.9951 89.7894,25.9880 89.7955,25.9860 89.8020,25.9886 89.8089,25.9951 89.8092,25.9951 89.8093,25.9952 89.8110,25.9960 89.8127,25.9963 89.8141,25.9961 89.8153,25.9951 89.8287,25.9794 89.8256,25.9657 89.8116,25.9552 89.7920,25.9491 89.8107,25.9388 89.8264,25.9375 89.8344,25.9318 89.8301,25.9080 89.7870,25.8391 89.7831,25.8144 89.8015,25.7247 89.8242,25.6741 89.8344,25.6348 89.8251,25.5645 89.8232,25.4891 89.8007,25.4129 89.7950,25.3742 89.7985,25.3401 89.8074,25.3045 89.8190,25.2850 89.8346,25.2824 89.8702,25.2956 89.9081,25.2969 90.1301,25.2116 90.2869,25.1801 90.3646,25.1500 90.3998,25.1490 90.5014,25.1688 90.5833,25.1620 90.6234,25.1714 90.6376,25.1711 90.6490,25.1678 90.6706,25.1588 90.7077,25.1530 90.7164,25.1536 90.7220,25.1566 90.7327,25.1669 90.7380,25.1694 90.7540,25.1676 90.7669,25.1605 90.7794,25.1520 90.7940,25.1454 90.8220,25.1423 90.9434,25.1574 90.9751,25.1678 91.1353,25.1912 91.1908,25.1895 91.2031,25.1913 91.2250,25.2016 91.2357,25.2019 91.2840,25.1790 91.4319,25.1379 91.4710,25.1339 91.4808,25.1353 91.5009,25.1412 91.5117,25.1425 91.5234,25.1452 91.5402,25.1576 91.5488,25.1611 91.5661,25.1600 91.5735,25.1523 91.5802,25.1409 91.5962,25.1289 91.6131,25.1251 91.6387,25.1240 91.6620,25.1272 91.6723,25.1365 91.6774,25.1526 91.6889,25.1530 91.7018,25.1471 91.7107,25.1447 91.7177,25.1498 91.7237,25.1619 91.7301,25.1675 91.7453,25.1694 91.7937,25.1653 91.9006,25.1776 91.9563,25.1698 91.9751,25.1754 92.0018,25.1830 92.0340,25.1817 92.0660,25.1745 92.0929,25.1647 92.1005,25.1591 92.1104,25.1449 92.1162,25.1394 92.1241,25.1370 92.1386,25.1364 92.1455,25.1317 92.1510,25.1297 92.1647,25.1336 92.1727,25.1320 92.1792,25.1267 92.1941,25.1092 92.2080,25.0981 92.2201,25.0904 92.2337,25.0850 92.2516,25.0808 92.3035,25.0743 92.3121,25.0686 92.3281,25.0480 92.3563,25.0370 92.3811,25.0234 92.3869,24.9951 92.3947,24.9932 92.4123,24.9874 92.4125,24.9841 92.4445,24.9624 92.4540,24.9581 92.4581,24.9533 92.4498,24.9464 92.4744,24.9367 92.4838,24.9282 92.4913,24.9123 92.4945,24.8949 92.4915,24.8837 92.4777,24.8639 92.4420,24.8554 92.3807,24.8367 92.3709,24.8379 92.3636,24.8410 92.3594,24.8462 92.3583,24.8537 92.2904,24.8913 92.2522,24.9030 92.2230,24.8914 92.2177,24.8746 92.2218,24.8569 92.2350,24.8248 92.2369,24.8086 92.2365,24.7930 92.2338,24.7775 92.1829,24.6473 92.1734,24.6084 92.1689,24.5743 92.1636,24.5592 92.1532,24.5445 92.1386,24.5337 92.1232,24.5254 92.1109,24.5143 92.1059,24.4953 92.1112,24.4343 92.1076,24.4060 92.0883,24.3816 92.0627,24.3710 92.0334,24.3688 91.9500,24.3754 91.9488,24.3635 91.9714,24.3297 91.9722,24.3161 91.9531,24.3230 91.9310,24.3370 91.9219,24.3445 91.8998,24.3381 91.8964,24.3201 91.9069,24.2804 91.9059,24.2606 91.8843,24.1756 91.8771,24.1580 91.8645,24.1506 91.8442,24.1553 91.8138,24.1831 91.8114,24.1920 91.8097,24.2145 91.8070,24.2211 91.7966,24.2216 91.7329,24.2343 91.7230,24.2210 91.7258,24.2021 91.7320,24.1817 91.7326,24.1643 91.7212,24.1490 91.7037,24.1429 91.6842,24.1455 91.6662,24.1559 91.6572,24.1714 91.6395,24.2117 91.6291,24.2153 91.6245,24.2035 91.6138,24.1401 91.6060,24.1189 91.5965,24.1050 91.5818,24.0961 91.5587,24.0897 91.5175,24.0852 91.4804,24.0880 91.4046,24.1031 91.3630,24.0998 91.3508,24.0742 91.3493,24.0361 91.3391,23.9952 91.3271,23.9879 91.3162,23.9895 91.3049,23.9939 91.2916,23.9948 91.2741,23.9882 91.2609,23.9773 91.2504,23.9640 91.2163,23.9084 91.2119,23.8945 91.2128,23.8807 91.2240,23.8575 91.2282,23.8450 91.2253,23.8261 91.2052,23.7716 91.1950,23.7552 91.1766,23.7465 91.1576,23.7450 91.1418,23.7399 91.1323,23.7206 91.1366,23.6989 91.1524,23.6910 91.1689,23.6854 91.1752,23.6703 91.1665,23.6541 91.1523,23.6551 91.1397,23.6536 91.1363,23.6295 91.1408,23.6121 91.1699,23.5620 91.1775,23.5443 91.1859,23.5116 91.1951,23.4952 91.2034,23.4879 91.2208,23.4779 91.2273,23.4688 91.2297,23.4612 91.2345,23.4363 91.2479,23.3938 91.2581,23.3736 91.2709,23.3646 91.2840,23.3614 91.2873,23.3556 91.2829,23.3476 91.2729,23.3385 91.2658,23.3294 91.2675,23.3215 91.2729,23.3135 91.2772,23.3033 91.3005,23.1423 91.3135,23.1010 91.3374,23.0711 91.3709,23.0628 91.3746,23.0957 91.3559,23.1796 91.3557,23.2241 91.3610,23.2475 91.3721,23.2619 91.3943,23.2627 91.4136,23.2486 91.4281,23.2295 91.4365,23.2149 91.4362,23.2157 91.4396,23.2226 91.4399,23.2235 91.4464,23.2155 91.4467,23.2088 91.4454,23.2030 91.4464,23.1979 91.4612,23.1844 91.4636,23.1841 91.4704,23.1533 91.4751,23.1431 91.4981,23.0700 91.5033,23.0444 91.5061,23.0412 91.5156,23.0388 91.5182,23.0351 91.5194,23.0056 91.5236,22.9952 91.5366,22.9819 91.5498,22.9772 91.5631,22.9750 91.5768,22.9688 91.5831,22.9578 91.5830,22.9479 91.5861,22.9445 91.6024,22.9530 91.6083,22.9603 91.6120,22.9698 91.6167,22.9781 91.6258,22.9815 91.6328,22.9803 91.6399,22.9780 91.6469,22.9766 91.6541,22.9781 91.6676,22.9826 91.6947,22.9881 91.7070,22.9954 91.7144,23.0031 91.7313,23.0173 91.7383,23.0247 91.7551,23.0482 91.7563,23.0522 91.7556,23.0568 91.7560,23.0615 91.7609,23.0655 91.7642,23.0656 91.7738,23.0649 91.7762,23.0653 91.7913,23.0804 91.7956,23.0895 91.7919,23.1011 91.7790,23.1318 91.7639,23.2006 91.7492,23.2324 91.7437,23.2723 91.7626,23.3215 91.7916,23.3683 91.8177,23.4009 91.8338,23.4139 91.8891,23.4359 91.9051,23.4466 91.9181,23.4599 91.9408,23.4952 91.9423,23.5344 91.9160,23.6502 91.9144,23.6883 91.9165,23.7099 91.9227,23.7230 91.9366,23.7235 91.9491,23.7098 91.9617,23.6911 92.0035,23.6474 92.0190,23.6401 92.0424,23.6456 92.0596,23.6595 92.0922,23.7013 92.1084,23.7182 92.1508,23.7317 92.1706,23.7036 92.1808,23.6654 92.1943,23.6481 92.2094,23.6616 92.2221,23.7078 92.2387,23.7168 92.2593,23.7065 92.2617,23.6851 92.2500,23.6426 92.2528,23.6093 92.2910,23.4953 92.2968,23.4466 92.3015,23.4318 92.3067,23.4239 92.3198,23.4122 92.3254,23.4035 92.3269,23.3960 92.3254,23.3822 92.3267,23.3753 92.3317,23.3687 92.3449,23.3591 92.3486,23.3541 92.3495,23.3450 92.3467,23.3253 92.3471,23.3154 92.3522,23.2988 92.3569,23.2891 92.3575,23.2789 92.3507,23.2610 92.3327,23.2263 92.3286,23.2112 92.3276,23.1714 92.3530,23.0299 92.3522,22.9603 92.3599,22.9266 92.3787,22.9004 92.4119,22.8879 92.4263,22.8711 92.4350,22.7933 92.4420,22.7629 92.4537,22.7480 92.4807,22.7262 92.4915,22.7111 92.4959,22.6956 92.5029,22.6186 92.5008,22.5605 92.5046,22.5438 92.5174,22.5126 92.5189,22.4954 92.5275,22.4470 92.5770,22.1687 92.5756,22.1433 92.5642,22.1383 92.5493,22.1385 92.5373,22.1286 92.5600,22.0613 92.5731,21.9954 92.5752,21.9866 92.5759,21.9776 92.5902,21.9172 92.5930,21.8869 92.5756,21.7340 92.5862,21.5614 92.5902,21.4955 92.5927,21.4702 92.6033,21.4201 92.6392,21.3187 92.6429,21.2984 92.6338,21.2822 92.6143,21.2631 92.5909,21.2489 92.5706,21.2473 92.5587,21.2598 92.5516,21.2805 92.5439,21.3209 92.5245,21.3611 92.4987,21.3666 92.4654,21.3598 92.4231,21.3637 92.4003,21.3710 92.3896,21.3765 92.3812,21.3848 92.3742,21.4023 92.3722,21.4191 92.3679,21.4354 92.3547,21.4518 92.3227,21.4619 92.2845,21.4191 92.2529,21.4195 92.2363,21.4171 92.2251,21.3975 92.2116,21.3549 92.1837,21.3172 92.1783,21.2997 92.1781,21.2801 92.1852,21.2404 92.1840,21.2209 92.1784,21.1913 92.1750,21.1756 92.1808,21.1579 92.1883,21.1441 92.2118,21.1235 92.2184,21.1086 92.2243,21.0932 92.2654,21.0609 92.2659,21.0186 92.2690,20.9611 92.2988,20.8892 92.3327,20.8060 92.3450,20.7577 92.3510,20.7263 92.3141,20.7238 92.2763,20.6827 92.1557,20.6170 92.1805,20.5874 92.3556,20.4297 92.5784,20.1010 92.7192,19.9544 92.7848,19.8074 92.8140,19.7419 92.8661,19.6728 92.9204,19.6378 92.9819,19.6201 93.1819,19.5999 93.3131,19.6091 93.3456,19.5962 93.2771,19.4744 93.2598,19.3821 93.2800,19.2541 93.3837,19.0943 93.3689,19.0568 93.2851,18.9688 93.2644,18.9094 93.2700,18.8163 93.3191,18.7129 93.3961,18.6155 93.4971,18.5217 93.5530,18.4848 93.6243,18.4642 93.7152,18.4630 93.8073,18.4863 93.8484,18.5095 93.9455,18.6063 93.9772,18.6083 94.0050,18.5666 94.0408,18.4555 94.1084,18.3433 94.1211,18.1813 94.2257,18.0527 94.2395,17.9034 94.3249,17.6458 94.3371,17.4493 94.3194,17.3800 94.2409,17.2366 94.2391,17.0903 94.1667,16.9490 94.1537,16.7619 94.0686,16.6164 94.0256,16.4590 93.9885,16.0290 94.0110,15.9342 94.0663,15.8552 94.2664,15.6724 94.3501,15.6314 94.4027,15.6281 94.5478,15.6653 94.7059,15.5967 94.8786,15.5579 94.9403,15.5541 95.0966,15.5770 95.2946,15.5096 95.4404,15.5180 95.5796,15.5734 95.7162,15.6734 95.8081,15.7742 95.9104,15.9412 95.9577,15.9871 96.0883,16.0409 96.2179,16.1324 96.5355,16.3079 96.7663,16.4057 97.0044,16.6272 97.0685,16.6318 97.1148,16.5695 97.1752,16.3974 97.2496,16.2970 97.2799,16.2138 97.3494,16.1104 97.3811,15.9189 97.4852,15.7819 97.4854,15.7433 97.4380,15.6166 97.4345,15.5470 97.5022,15.3253 97.5198,15.2678 97.5197,14.8091 97.5197,14.3504 97.5197,13.8918 97.5197,13.4331 97.5196,12.9744 97.5196,12.5157 97.5196,12.0571 97.4706,12.0176 97.3740,12.0012 97.3022,11.9603 97.2480,11.8885 97.2290,11.8031 97.2397,11.7366 97.2743,11.6703 97.3287,11.6163 97.3925,11.5828 97.4883,11.5773 97.5196,11.5856 97.5195,11.1028 97.5195,10.6200 97.5195,10.1372 97.5194,9.6544 97.5194,9.6239 97.5194,9.3082 97.5194,8.8328 97.4676,8.7944 97.4259,8.7223 97.4152,8.6399 97.4409,8.5449 97.4966,8.4640 97.5194,8.4499 97.5194,7.9812 97.5193,7.5125 97.5193,7.0438 97.5193,6.5751 97.5193,6.2017 97.5192,5.8284 97.5192,5.4550 97.4891,5.4627 97.2479,5.4266 97.0587,5.4789 96.8807,5.4948 96.7716,5.4835 96.6335,5.4323 96.5702,5.4227 96.1826,5.4886 96.1360,5.5176 96.0261,5.6428 95.9376,5.7153 95.6403,5.8494 95.4864,6.0446 95.3378,6.1091 95.2103,6.1231 95.1059,6.0899 94.9982,5.9697 94.8695,5.8976 94.8173,5.8192 94.8057,5.7364 94.8237,5.6594 94.8694,5.5713 95.0101,5.4185 94.9890,5.3019 95.0031,5.2178 95.0645,5.1240 95.1038,5.0102 95.3104,4.6303 95.4091,4.5046 95.6061,4.3442 95.8701,4.0712 96.1052,3.8884 96.3323,3.6301 96.4649,3.5601 96.7024,3.5178 96.7872,3.4607 96.8585,3.3743 97.0310,3.1143 97.2035,2.8544 97.2768,2.7792 97.4149,2.6987 97.4458,2.6214 97.4561,2.5152 97.4335,2.4627 97.3847,2.4376 97.1780,2.4426 97.0362,2.4156 96.9755,2.3761 96.8812,2.2664 96.8475,2.2509 96.8384,2.2782 96.7845,2.3401 96.7057,2.3853 96.6826,2.3899 96.6614,2.5021 96.5672,2.6614 96.3806,2.7700 96.2447,2.9077 96.1306,2.9742 95.9947,3.0907 95.8138,3.1488 95.7406,3.1446 95.6756,3.1152 95.5264,2.9470 95.4838,2.8205 95.5088,2.6967 95.5906,2.5655 95.6856,2.4748 95.8675,2.3973 95.9878,2.3756 96.2092,2.1917 96.3751,2.1243 96.4444,1.9564 96.4895,1.9101 96.5570,1.8732 96.6233,1.8638 96.8786,1.5041 96.8578,1.3938 96.8722,1.3269 96.9016,1.2728 97.0273,1.1809 97.1296,1.0519 97.1643,0.9725 97.1516,0.9614 97.1153,0.8879 97.1099,0.7946 97.1358,0.7168 97.1892,0.6548 97.2719,0.6080 97.3663,0.5982 97.4436,0.6242 97.4551,0.6342 97.4865,0.5240 97.5189,0.4702 97.5189,0.1235 97.5189,-0.2231 97.5189,-0.5698 97.5164,-0.9146 97.5138,-1.2595 97.5138,-1.4029 97.5138,-1.8886 97.5138,-2.3742 97.5138,-2.8599 97.5138,-3.3455 97.5138,-3.8312 97.5138,-4.3169 97.5138,-4.8025 97.5138,-5.2882 97.5138,-5.7738 97.5138,-6.2595 97.5138,-6.7140 97.5138,-7.1686 97.5138,-7.6231 97.5138,-8.0777 97.5138,-8.5322 97.5138,-8.9868 97.5138,-9.4413 97.5138,-9.8959 97.5138,-10.3504 97.5138,-10.8050 97.5138,-11.2595 97.0807,-11.2595 96.6475,-11.2595 96.2144,-11.2595 96.2144,-11.6494 96.2144,-12.0392 96.2144,-12.4291 96.2144,-12.8190 96.6475,-12.8201 97.0807,-12.8213 97.5138,-12.8224 97.5138,-13.1934 97.5138,-13.5644 97.5138,-13.9353 97.5138,-14.3353 97.5138,-14.7353 97.5138,-15.1899 97.5138,-15.6444 97.5138,-16.0990 97.5138,-16.5535 97.5138,-17.0081 97.5138,-17.4626 97.5138,-17.9172 97.5138,-18.3717 97.5138,-18.8262 97.5138,-19.2808 97.5138,-19.7353 97.5138,-20.1899 97.5138,-20.6444 97.5138,-21.0990 97.5138,-21.5535 97.5138,-22.0081 97.5138,-22.4626 97.5138,-22.9172 97.5138,-23.3717 97.5138,-23.8262 97.5138,-24.2808 97.5138,-24.7353 97.5138,-25.1899 97.5138,-25.6444 97.5138,-26.0990 97.5138,-26.5535 97.5138,-27.0081 97.5138,-27.4626 97.5138,-27.9172 97.5138,-28.3717 97.5138,-28.8262 97.5138,-29.2808 97.5138,-29.7353 97.5138,-30.1899 97.5138,-30.6444 97.5138,-31.0990 97.5138,-31.5535 97.5138,-32.0081 97.5138,-32.4626 97.5138,-32.9172 97.5138,-33.3717 97.5138,-33.8262 97.5138,-34.2808 97.5138,-34.7353 97.5138,-35.1899 97.5138,-35.6444 97.5138,-36.0990 97.5138,-36.5535 97.5138,-37.0081 97.5138,-37.4626 97.5138,-37.9172 97.5138,-38.3717 97.5138,-38.8262 97.5138,-39.2808 97.5138,-39.7353 97.5138,-40.1899 97.5138,-40.6444 97.5138,-41.0990 97.5138,-41.5535 97.5138,-42.0081 97.5138,-42.4626 97.5138,-42.9172 97.5138,-43.3717 97.5138,-43.8262 97.5138,-44.2808 97.5138,-44.7353 97.5138,-45.1798 97.5138,-45.6242 97.5138,-46.0687 97.5138,-46.5131 97.5138,-46.9576 97.5138,-47.4020 97.5138,-47.8464 97.5138,-48.2909 97.5138,-48.7353 97.5138,-49.1899 97.5138,-49.6444 97.5138,-50.0990 97.5138,-50.5535 97.5138,-51.0081 97.5138,-51.4626 97.5138,-51.9172 97.5138,-52.3717 97.5138,-52.8262 97.5138,-53.2808 97.5138,-53.7353 97.5138,-54.1899 97.5138,-54.6444 97.5138,-55.0990 97.5138,-55.5535 97.5138,-56.0081 97.5138,-56.4626 97.5138,-56.9172 97.5138,-57.3717 97.5138,-57.8262 97.5138,-58.2808 97.5138,-58.7353 97.5138,-59.1899 97.5138,-59.6444 97.5138,-60.0990 97.5138,-60.5535 97.5138,-61.0081 97.5138,-61.4626 97.5138,-61.9172 97.5138,-62.3717 97.5138,-62.8262 97.5138,-63.2808 97.5138,-63.7353 97.5138,-64.1236 97.5138,-64.5118 97.5138,-64.9000 97.5138,-65.3338 97.5138,-65.7675 97.5138,-66.2013 97.4439,-66.1809 97.4357,-66.1141 97.3912,-66.0379 97.3292,-65.9850 97.2356,-65.9390 97.1334,-65.9084 97.0489,-65.8935 96.5713,-65.8668 96.4492,-65.8727 96.3240,-65.8898 96.2111,-65.9162 96.1127,-65.9509 96.0310,-65.9931 95.9584,-66.0496 95.9051,-66.1101 95.8834,-66.1642 95.8905,-66.2126 95.9213,-66.2557 95.9672,-66.2906 95.9372,-66.4158 95.8809,-66.4252 95.7212,-66.4812 95.5943,-66.4099 95.4567,-66.3658 95.3441,-66.3458 94.9603,-66.3037 94.8626,-66.3044 94.7673,-66.3134 94.3608,-66.3874 94.2182,-66.4288 94.1074,-66.4897 94.0808,-66.4972 94.0743,-66.4952 93.9255,-66.4491 93.7939,-66.4245 93.6766,-66.4107 93.2502,-66.4070 93.1030,-66.3912 92.9880,-66.3888 92.9217,-66.3936 92.7390,-66.4308 92.6776,-66.4369 92.5945,-66.4217 92.4726,-66.3795 92.3669,-66.3563 92.0394,-66.3267 91.9343,-66.3243 91.8240,-66.3329 91.5423,-66.3742 91.3690,-66.4124 91.1399,-66.3986 91.0297,-66.4030 90.9280,-66.4147 90.8122,-66.4408 90.5250,-66.5357 90.2341,-66.5946 90.0257,-66.5962 89.7595,-66.6126 89.6657,-66.6220 89.5256,-66.6456 89.0863,-66.6131 88.8895,-66.6157 88.7512,-66.6080 88.4368,-66.6336 88.2092,-66.5973 88.0931,-66.5906 87.9608,-66.5913 87.7824,-66.6082 87.6226,-66.6467 87.2314,-66.7117 87.1875,-66.7068 87.1460,-66.6923 87.0581,-66.6261 86.9883,-66.5916 86.8076,-66.5290 86.6818,-66.5008 86.5933,-66.4918 86.4829,-66.4890 86.2290,-66.5043 86.0965,-66.5260 86.0263,-66.5443 85.9334,-66.5797 85.8781,-66.5843 85.7957,-66.5670 85.6910,-66.4917 85.4744,-66.3923 85.3771,-66.3618 85.2608,-66.3434 85.1364,-66.3379 85.0118,-66.3447 84.8952,-66.3634 84.7846,-66.3975 84.7104,-66.4393 84.6436,-66.5036 84.6079,-66.5735 84.6072,-66.6286 84.6345,-66.6728 84.6871,-66.7109 84.8036,-66.7679 84.8335,-66.8630 84.8091,-66.8897 84.7617,-66.9090 84.6143,-66.9284 84.3506,-66.9376 84.1763,-66.9676 84.0746,-67.0028 83.9381,-67.0732 83.8774,-67.0959 83.5293,-67.1518 83.3744,-67.1902 83.3022,-67.2202 83.2406,-67.2588 83.1418,-67.2811 83.1110,-67.2918 83.0665,-67.3072 82.9341,-67.3869 82.8620,-67.4094 82.7937,-67.4175 82.5079,-67.4285 82.5079,-66.9610 82.5079,-66.4935 82.5079,-66.0261 82.5078,-65.5586 82.5078,-65.0912 82.5078,-64.6237 82.5078,-64.1563 82.5078,-63.6888 82.5078,-63.2343 82.5078,-62.7797 82.5078,-62.3252 82.5077,-61.8706 82.5077,-61.4161 82.5077,-60.9616 82.5077,-60.5070 82.5077,-60.0525 82.5077,-59.5979 82.5077,-59.1434 82.5077,-58.6888 82.5076,-58.2343 82.5076,-57.7797 82.5076,-57.3252 82.5076,-56.8706 82.5076,-56.4161 82.5076,-55.9616 82.5076,-55.5070 82.5076,-55.0525 82.5076,-54.5979 82.5075,-54.1434 82.5075,-53.6888 82.5075,-53.2343 82.5075,-52.7797 82.5075,-52.3252 82.5075,-51.8706 82.5075,-51.4161 82.5075,-50.9616 82.5074,-50.5070 82.5074,-50.0525 82.5074,-49.5979 82.5074,-49.1434 82.5074,-48.6888 82.5074,-48.2343 82.5074,-47.7797 82.5074,-47.3252 82.5074,-46.8706 82.5073,-46.4161 82.5073,-45.9616 82.5073,-45.5070 82.5073,-45.0525 82.5073,-44.5979 82.5073,-44.1434 82.5073,-43.6888 82.5073,-43.2343 82.5072,-42.7797 82.5072,-42.3252 82.5072,-41.8706 82.5072,-41.4161 82.5072,-40.9616 82.5072,-40.5070 82.5072,-40.0525 82.5072,-39.5979 82.5071,-39.1434 82.5071,-38.6888 82.5071,-38.2343 82.5071,-37.7797 82.5071,-37.3252 82.5071,-36.8706 82.5071,-36.4161 82.5071,-35.9616 82.5071,-35.5070 82.5070,-35.0525 82.5070,-34.5979 82.5070,-34.1434 82.5070,-33.6888 82.5070,-33.2888 82.5070,-32.8888 82.5070,-32.4888 82.5070,-32.0343 82.5069,-31.5797 82.5069,-31.1252 82.5069,-30.6706 82.5069,-30.2161 82.5069,-29.7616 82.5069,-29.3070 82.5069,-28.8525 82.5069,-28.3979 82.5069,-27.9434 82.5068,-27.4888 82.5068,-27.0343 82.5068,-26.5797 82.5068,-26.1252 82.5068,-25.6706 82.5068,-25.2161 82.5068,-24.7616 82.5068,-24.3070 82.5067,-23.8525 82.5067,-23.3979 82.5067,-22.9434 82.5067,-22.4888 82.5067,-22.0343 82.5067,-21.5797 82.5067,-21.1252 82.5067,-20.6706 82.5067,-20.2161 82.5066,-19.7616 82.5066,-19.3070 82.5066,-18.8525 82.5066,-18.3979 82.5066,-17.9434 82.5066,-17.4888 82.5066,-17.0555 82.5066,-16.6222 82.5065,-16.1888 82.5065,-15.7343 82.5065,-15.2797 82.5065,-14.8252 82.5065,-14.3706 82.5065,-13.9161 82.5065,-13.4616 82.5065,-13.0070 82.5064,-12.5525 82.5064,-12.0979 82.5064,-11.6434 82.5064,-11.1888 82.5064,-10.7343 82.5064,-10.2797 82.5064,-9.8252 82.5063,-9.3706 82.5063,-8.9161 82.5063,-8.4616 82.5063,-8.0070 82.5063,-7.5525 82.5063,-7.0979 82.5063,-6.6434 82.5062,-6.1888 82.5062,-5.7343 82.5062,-5.2797 82.5062,-4.8252 82.5062,-4.3706 82.5062,-3.9161 82.5062,-3.4616 82.5062,-3.0070 82.5061,-2.5525 82.5061,-2.0979 82.5061,-1.6434 82.5061,-1.1888 82.5061,-0.7343 82.5061,-0.2797 82.5061,0.1748 82.5060,0.6294 82.5060,1.0839 82.5060,1.5384 82.5060,1.9930 82.5060,2.4475 82.5060,2.9021 82.5060,3.3566 82.5060,3.8112 82.5059,4.2657 82.5059,4.7203 82.5059,5.1748 82.5059,5.6294 82.5059,6.0839 82.5059,6.5384 82.5059,6.9930 82.5058,7.4475 82.5058,7.9021 82.5058,8.3566 82.5058,8.8112 82.5058,9.2657 82.5058,9.7203 82.5058,10.1748 82.5058,10.6294 82.5057,11.0839 82.5057,11.5384 82.5057,11.9930 82.5057,12.4475 82.5057,12.9021 82.5057,13.3566 82.5057,13.8112 82.5056,14.2641 82.5056,14.7170 82.5056,15.1699 82.5056,15.6227 82.5056,16.0756 82.5056,16.5285 82.5369,16.5736 82.5828,16.7691 82.5783,16.9855 82.6009,17.0237 82.7581,17.1205 83.0383,17.2431 83.3614,17.4330 83.5004,17.5539 83.6617,17.7840 83.7364,17.8586 83.8674,17.9431 84.1401,18.0720 84.2405,18.1414 84.4255,18.3305 84.6105,18.5196 84.8099,18.7802 85.0092,19.0408 85.1142,19.1450 85.3612,19.3406 85.4726,19.4037 85.7885,19.5429 86.0536,19.6212 86.3187,19.6994 86.4337,19.7527 86.5344,19.8222 86.6075,19.8970 86.6995,20.0314 86.9427,20.2021 86.9913,20.2768 87.0443,20.4240 87.1520,20.4974 87.1928,20.5430 87.2014,20.8394 87.0928,21.0566 87.0733,21.1390 87.0825,21.1756 87.1193,21.2259 87.2232,21.3225 87.4062,21.3597 87.6321,21.4338 87.7751,21.4583 87.8744,21.5091 87.9507,21.4519 88.0742,21.4187 88.2275,21.3456 88.3663,21.3422 88.4891,21.3225 88.6890,21.3422 88.8356,21.3214 88.9164,21.3270 89.1548,21.4145 89.2742,21.4394 89.1741,21.5734 89.1338,21.6458 89.1191,21.6737 89.1072,21.6962 89.0728,21.7394 89.0402,21.7896 89.0265,21.8839 89.0265,21.9162 89.0564,21.9274 89.0700,21.9361 89.0750,21.9572 89.0765,21.9925 89.0725,22.0168 89.0638,22.0329 89.0564,22.0541 89.0489,22.0789 89.0514,22.1012 89.0551,22.1173 89.0604,22.1299 89.0607,22.1305 89.0782,22.1508 89.0762,22.1750 89.0707,22.1948 89.0623,22.2116 89.0186,22.2647 89.0091,22.2856 89.0235,22.2948 89.0069,22.3214 89.0015,22.3337 88.9896,22.3869 88.9895,22.3967 88.9922,22.4070 89.0007,22.4201 89.0025,22.4280 88.9984,22.4512 88.9800,22.4909 88.9710,22.5279 88.9590,22.5368 88.9280,22.5481 88.9503,22.5620 88.9564,22.5850 88.9520,22.6119 88.9424,22.6375 88.9300,22.6586 88.9259,22.6808 88.9225,22.6937 88.9106,22.7226 88.9081,22.7408 88.9150,22.7544 88.9262,22.7670 88.9369,22.7823 88.9412,22.7957 88.9451,22.8151 88.9468,22.8345 88.9445,22.8480 88.9331,22.8581 88.9051,22.8664 88.8935,22.8796 88.8722,22.9268 88.8617,22.9424 88.8428,22.9646 88.8388,22.9758 88.8394,22.9954 88.8487,23.0238 88.8513,23.0751 88.8648,23.1003 88.9191,23.1539 88.9459,23.1743 88.9547,23.1838 88.9598,23.1945 88.9600,23.2027 88.9542,23.2074 88.9270,23.2065 88.9181,23.2086 88.9096,23.2124 88.8396,23.2348 88.8227,23.2380 88.8095,23.2361 88.8010,23.2308 88.7942,23.2250 88.7862,23.2215 88.7757,23.2216 88.7100,23.2412 88.6966,23.2524 88.6866,23.2716 88.6859,23.2933 88.6950,23.3126 88.7193,23.3483 88.7540,23.4332 88.7679,23.4673 88.7702,23.4888 88.7568,23.4988 88.7437,23.4893 88.7319,23.4726 88.7194,23.4681 88.7046,23.4952 88.6938,23.4998 88.6645,23.5183 88.6476,23.5351 88.6242,23.5739 88.6092,23.5888 88.6013,23.5903 88.5815,23.5883 88.5714,23.5923 88.5617,23.6020 88.5611,23.6086 88.5644,23.6162 88.5664,23.6287 88.5612,23.6325 88.5510,23.6344 88.5416,23.6388 88.5401,23.6500 88.5612,23.7410 88.5597,23.7503 88.5525,23.7654 88.5527,23.7750 88.5577,23.7857 88.5724,23.8069 88.5775,23.8185 88.5776,23.8276 88.5755,23.8366 88.5744,23.8456 88.5776,23.8552 88.5936,23.8669 88.6132,23.8678 88.6339,23.8661 88.6531,23.8698 88.6665,23.8795 88.7044,23.9137 88.7142,23.9252 88.7171,23.9431 88.7144,23.9644 88.7084,23.9836 88.7016,23.9953 88.7138,24.0147 88.7255,24.0289 88.7250,24.0384 88.7009,24.0436 88.6978,24.0563 88.6790,24.0712 88.6741,24.0826 88.6754,24.0918 88.6818,24.1127 88.6830,24.1243 88.6783,24.1447 88.6781,24.1543 88.6838,24.1665 88.6938,24.1753 88.7159,24.1829 88.7316,24.1898 88.7348,24.1984 88.7464,24.2141 88.7498,24.2233 88.7475,24.2270 88.7449,24.2434 88.7430,24.2475 88.7375,24.2871 88.7146,24.3154 88.6818,24.3339 88.6601,24.3383 88.6495,24.3154 88.6345,24.2941 88.6125,24.2929 88.5631,24.3082 88.4983,24.3110 88.4754,24.3155 88.4013,24.3694 88.1388,24.4953 88.1099,24.5010 88.1079,24.5080 88.0988,24.5225 88.0900,24.5330 88.0860,24.5367 88.0850,24.5417 88.0850,24.5939 88.0818,24.5999 88.0673,24.6137 88.0572,24.6341 88.0409,24.6404 88.0218,24.6456 88.0272,24.6757 88.0354,24.6938 88.0485,24.7112 88.0532,24.7550 88.0643,24.7592 88.0770,24.7612 88.0840,24.7705 88.0854,24.7840 88.0882,24.7961 88.0948,24.8031 88.1078,24.8011 88.1174,24.8193 88.1312,24.8318 88.1410,24.8446 88.1381,24.8635 88.1249,24.8981 88.1203,24.9068 88.1149,24.9120 88.1149,24.9164 88.1645,24.9411 88.1830,24.9470 88.2025,24.9453 88.2188,24.9351 88.2328,24.9183 88.2419,24.8988 88.2428,24.8806 88.2549,24.8800 88.2968,24.8697 88.3136,24.8683 88.3228,24.8747 88.3409,24.9041 88.3757,24.9456 88.3879,24.9688 88.3910,24.9951 88.4141,25.0215 88.4258,25.0511 88.4342,25.1167 88.4315,25.1730 88.4413,25.1897 88.4754,25.1951 88.4918,25.1911 88.5232,25.1798 88.5500,25.1731 88.5547,25.1711 88.5594,25.1708 88.5707,25.1732 88.5777,25.1775 88.5901,25.1901 88.5991,25.1931 88.6343,25.1923 88.6646,25.1869 88.7245,25.1665 88.7842,25.1609 88.7923,25.1666 88.8025,25.1881 88.8091,25.1953 88.8171,25.1968 88.8236,25.1948 88.8302,25.1913 88.8986,25.1693 88.9242,25.1679 88.9096,25.1892 88.9279,25.1927 88.9308,25.2026 88.9280,25.2159 88.9291,25.2294 88.9378,25.2402 88.9753,25.2652 88.9824,25.2749 88.9849,25.2850 88.9827,25.2945 88.9753,25.3026 88.9265,25.3005 88.9029,25.3034 88.8861,25.3191 88.8802,25.3235 88.8593,25.3247 88.8490,25.3272 88.8420,25.3328 88.8183,25.3596 88.8140,25.3704 88.8133,25.3801 88.8104,25.3884 88.7996,25.3956 88.7993,25.4017 88.8163,25.4372 88.8149,25.4586 88.8058,25.4717 88.7931,25.4820 88.7810,25.4952 88.7723,25.5020 88.7420,25.5128 88.7426,25.4952 88.7327,25.4910 88.7231,25.4914 88.7142,25.4928 88.7062,25.4917 88.6957,25.4836 88.6871,25.4739 88.6781,25.4659 88.6663,25.4629 88.6454,25.4673 88.6132,25.4864 88.5936,25.4951 88.5510,25.4965 88.5303,25.5002 88.5205,25.5093 88.5128,25.5237 88.4856,25.5426 88.4754,25.5626 88.4378,25.5798 88.4238,25.5922 88.4194,25.6538 88.3930,25.6808 88.3203,25.7253 88.2599,25.7890 88.2275,25.8043 88.1827,25.7924 88.1662,25.7836 88.1464,25.7757 88.1277,25.7749 88.1149,25.7873 88.1080,25.8063 88.1033,25.8148 88.0876,25.8310 88.0876,25.8400 88.0890,25.8487 88.0820,25.8638 88.0744,25.9081 88.0774,25.9128 88.0827,25.9159 88.0880,25.9232 88.1065,25.9800 88.1259,26.0134 88.1510,26.0313 88.1579,26.0505 88.1564,26.0614 88.1510,26.0670 88.1448,26.0705 88.1412,26.0755 88.1399,26.0853 88.1414,26.0905 88.1445,26.0959 88.1556,26.1285 88.1638,26.1405 88.1969,26.1596 88.2057,26.1664 88.2120,26.1738 88.2189,26.1802 88.2298,26.1840 88.2503,26.1880 88.3087,26.2061 88.3263,26.2159 88.3345,26.2308 88.3329,26.2672 88.3366,26.2818 88.3517,26.3010 88.3668,26.3134 88.4138,26.3402 88.4212,26.3487 88.4260,26.3579 88.4317,26.3622 88.4420,26.3561 88.4486,26.3534 88.4580,26.3530 88.4679,26.3541 88.4754,26.3558 88.4976,26.3527 88.4955,26.3781 88.4754,26.4320 88.4611,26.4539 88.4346,26.4652 88.3769,26.4753 88.3536,26.4846 88.3465,26.4840 88.3430,26.4772 88.3402,26.4541 88.3356,26.4482 88.3225,26.4518 88.3151,26.4651 88.3139,26.4815 88.3193,26.4949 88.3193,26.4949 88.3324,26.5147 88.3528,26.5787 88.3603,26.5931 88.3725,26.6116 88.3853,26.6235 88.3944,26.6180 88.3959,26.5996 88.3950,26.5784 88.3979,26.5587 88.4110,26.5451 88.4465,26.5355 88.4624,26.5288 88.4754,26.5150 88.4879,26.5058 88.4987,26.4949 88.5068,26.4876 657,-4.0,Antarctica/Palmer -58.0182,-61.6957 -57.8097,-61.7080 -57.6113,-61.7074 -57.5228,-61.7175 -57.4299,-61.7382 -57.3306,-61.7766 -57.2555,-61.8275 -57.1533,-61.9872 -57.1520,-62.0643 -57.2122,-62.1371 -57.2870,-62.1794 -57.3890,-62.2123 -57.4778,-62.2280 -57.6278,-62.2379 -57.6923,-62.2500 -57.8628,-62.3227 -57.9721,-62.3560 -58.0941,-62.3793 -58.2319,-62.3949 -58.6775,-62.5059 -58.9210,-62.5469 -59.0035,-62.5669 -59.2111,-62.6498 -59.3200,-62.7022 -59.5507,-62.7875 -60.0248,-62.9377 -60.0742,-63.0363 -60.1507,-63.1104 -60.2661,-63.1722 -60.4085,-63.2117 -60.5876,-63.2282 -60.7753,-63.2149 -60.8950,-63.1900 -61.1405,-63.1106 -61.3396,-63.0618 -61.8290,-62.9909 -61.9035,-62.9907 -61.9183,-63.0067 -61.9005,-63.0273 -61.6398,-63.1409 -61.5615,-63.1943 -61.5062,-63.2496 -61.4878,-63.2917 -61.4893,-63.3373 -61.5670,-63.4770 -61.5588,-63.5008 -61.5319,-63.5172 -61.4101,-63.5399 -61.2789,-63.5402 -61.1743,-63.5233 -60.9827,-63.4719 -60.8235,-63.4558 -60.7369,-63.4588 -60.4183,-63.4929 -60.3487,-63.4736 -60.0989,-63.3698 -60.0050,-63.3477 -59.9000,-63.3358 -59.8012,-63.3349 -59.7002,-63.3430 -59.4218,-63.3975 -59.3521,-63.3996 -59.2731,-63.3928 -59.0139,-63.3384 -58.5999,-63.2808 -58.5019,-63.2291 -58.4242,-63.2007 -58.3350,-63.1803 -58.1980,-63.1624 -58.0125,-63.1084 -57.7723,-63.0765 -57.5385,-63.0212 -57.2943,-63.0004 -57.1795,-62.9810 -57.0435,-62.9392 -56.8746,-62.8539 -56.7573,-62.8096 -56.6303,-62.7792 -56.4920,-62.7669 -56.3807,-62.7706 -56.2227,-62.7950 -56.0410,-62.7966 -55.9299,-62.8096 -55.7638,-62.8520 -55.6310,-62.9178 -55.5047,-62.9221 -55.4178,-62.9321 -55.1860,-62.9853 -54.9469,-63.0168 -54.8206,-63.0496 -54.6788,-63.1135 -54.6340,-63.1479 -54.5945,-63.1968 -54.5774,-63.2867 -54.6210,-63.3755 -54.7188,-63.4556 -54.8408,-63.5116 -54.9395,-63.5400 -55.0507,-63.5596 -55.2776,-63.5715 -55.3861,-63.6474 -55.5311,-63.6920 -55.6408,-63.7438 -55.7169,-63.7662 -55.8461,-63.7863 -55.9823,-63.7914 -56.0804,-63.7841 -56.2311,-63.7568 -56.3806,-63.8020 -56.4083,-63.8062 -56.4068,-63.4764 -56.4054,-63.1465 -56.8841,-63.1465 -57.3628,-63.1465 -57.3646,-63.5702 -57.3664,-63.9940 -57.3683,-64.4177 -56.8896,-64.4177 -56.4109,-64.4177 -56.4093,-64.0374 -56.3377,-64.0541 -56.2427,-64.0870 -56.1708,-64.1258 -56.1250,-64.1688 -56.1037,-64.2147 -56.1080,-64.2676 -56.1507,-64.3317 -56.2367,-64.3958 -56.3306,-64.4401 -56.4816,-64.4917 -56.5561,-64.5685 -56.6701,-64.6365 -56.7728,-64.6801 -56.9000,-64.7214 -57.0327,-64.7535 -57.1710,-64.7747 -57.3135,-64.7830 -57.4404,-64.7779 -57.5685,-64.7598 -57.6894,-64.7293 -57.7776,-64.6956 -57.9027,-64.6321 -58.1195,-64.6059 -58.2263,-64.5995 -58.2729,-64.6102 -58.4271,-64.6766 -58.5351,-64.7140 -58.6378,-64.7385 -58.7565,-64.7553 -58.8657,-64.7617 -58.9689,-64.7592 -59.2078,-64.7238 -59.3252,-64.7604 -59.2808,-64.9804 -59.2415,-64.9950 -59.1155,-65.0560 -58.9967,-65.1319 -58.9506,-65.1783 -58.9330,-65.2243 -58.9456,-65.2774 -58.9811,-65.3188 -59.0497,-65.3636 -59.1421,-65.4015 -59.2539,-65.4307 -59.3802,-65.4496 -59.4933,-65.4562 -59.6107,-65.4529 -59.7294,-65.4402 -59.8462,-65.4190 -59.9845,-65.3823 -60.1085,-65.3361 -60.1931,-65.2938 -60.2753,-65.2360 -60.3183,-65.1870 -60.3377,-65.1369 -60.3347,-65.0991 -60.2958,-65.0487 -60.4954,-65.0265 -60.5925,-65.1045 -60.6963,-65.1588 -60.7796,-65.1870 -60.8651,-65.2061 -61.0816,-65.2257 -61.1810,-65.3388 -61.3007,-65.4050 -61.2103,-65.4948 -61.1938,-65.5303 -61.1985,-65.5771 -61.2513,-65.6584 -61.2515,-65.6883 -61.2029,-65.7020 -60.8435,-65.7019 -60.5319,-65.7290 -60.3038,-65.7676 -60.2135,-65.7937 -60.1472,-65.8215 -60.0933,-65.8554 -60.0534,-65.8959 -60.0327,-65.9365 -60.0313,-65.9785 -60.0677,-66.0454 -60.2298,-66.2147 -60.2849,-66.2540 -60.3874,-66.3027 -60.4595,-66.3864 -60.5456,-66.4517 -60.6250,-66.4909 -60.7291,-66.5244 -60.8540,-66.5486 -61.0947,-66.5626 -61.4154,-66.6461 -61.7068,-66.7054 -61.9148,-66.7670 -62.1671,-66.8732 -62.2635,-66.8991 -62.3734,-66.9190 -62.5336,-66.9348 -62.6924,-66.9342 -62.8285,-66.9194 -63.0466,-66.8761 -63.1299,-66.8756 -63.1782,-66.8989 -63.2866,-67.0025 -63.3527,-67.0378 -63.4267,-67.0652 -63.6192,-67.1111 -64.0362,-67.1675 -64.1158,-67.1832 -64.1637,-67.1997 -64.2066,-67.2546 -64.2028,-67.3172 -64.2210,-67.3780 -64.1959,-67.4133 -64.0448,-67.5507 -64.0240,-67.5894 -64.0231,-67.6338 -64.0442,-67.6782 -64.0857,-67.7212 -64.2777,-67.8310 -64.3331,-67.8837 -64.3422,-67.9168 -64.3307,-67.9505 -64.2397,-68.0312 -64.2057,-68.0768 -64.1984,-68.1567 -64.2204,-68.2051 -64.2607,-68.2440 -64.3293,-68.2838 -64.4356,-68.3306 -64.4088,-68.3308 -64.1469,-68.2896 -63.8565,-68.2589 -63.5513,-68.2183 -63.3364,-68.2033 -62.9043,-68.2095 -62.7091,-68.2205 -62.5444,-68.2474 -62.4147,-68.2938 -62.3515,-68.3321 -62.3106,-68.3725 -62.2898,-68.4192 -62.2930,-68.4673 -62.3200,-68.5186 -62.3693,-68.5710 -62.5419,-68.6765 -62.6034,-68.7344 -62.6314,-68.8139 -62.6239,-68.8555 -62.6021,-68.8839 -62.5627,-68.9046 -62.4944,-68.9205 -62.1875,-68.9485 -61.9701,-68.9860 -61.7759,-69.0395 -61.6152,-69.1032 -61.3262,-69.2565 -61.2362,-69.3268 -61.1543,-69.4378 -61.1340,-69.4903 -61.1448,-69.5369 -61.2118,-69.5974 -61.2091,-69.6093 -61.1445,-69.6304 -60.8518,-69.6917 -60.7221,-69.7311 -60.5864,-69.7975 -60.5124,-69.8690 -60.4948,-69.9294 -60.5006,-69.9891 -60.5311,-70.0371 -60.5884,-70.0787 -60.6836,-70.1188 -60.8142,-70.1541 -60.9215,-70.1738 -61.2366,-70.2184 -61.2732,-70.2843 -61.0910,-70.3189 -60.9296,-70.3034 -60.6466,-70.2956 -60.4427,-70.3025 -60.2654,-70.3217 -60.2602,-70.3222 -60.1141,-70.3516 -59.9820,-70.3963 -59.8855,-70.4502 -59.8245,-70.5103 -59.7977,-70.5919 -59.8287,-70.6725 -59.9013,-70.7363 -60.0394,-70.8060 -59.9348,-70.8851 -59.8833,-70.9471 -59.8627,-71.0158 -59.8808,-71.0813 -59.9305,-71.1343 -60.0090,-71.1777 -60.1078,-71.2117 -60.2622,-71.2441 -60.2831,-71.2533 -60.2907,-71.2792 -60.2643,-71.3369 -60.2768,-71.3791 -60.3252,-71.4277 -60.4254,-71.4843 -60.2179,-71.5611 -60.1727,-71.5886 -60.1402,-71.6214 -60.0968,-71.7636 -60.1079,-71.7990 -60.1631,-71.8506 -60.1513,-71.8723 -60.0425,-71.9273 -59.9863,-71.9692 -59.7744,-72.0075 -59.5969,-72.0619 -59.5061,-72.1064 -59.4495,-72.1534 -59.4249,-72.1975 -59.4244,-72.2468 -59.4517,-72.3004 -59.4965,-72.3415 -59.5696,-72.3789 -59.6680,-72.4113 -59.7714,-72.4342 -59.9426,-72.4610 -59.9802,-72.4871 -60.0046,-72.5185 -59.8841,-72.5863 -59.8088,-72.6672 -59.6508,-72.6895 -59.5169,-72.7189 -59.3988,-72.7551 -59.3144,-72.7939 -59.2546,-72.8471 -59.1825,-72.9955 -59.2111,-73.0707 -59.2964,-73.1483 -59.2479,-73.2169 -59.2529,-73.2716 -59.2858,-73.3155 -59.3482,-73.3618 -59.4617,-73.4139 -59.6320,-73.4633 -59.7567,-73.4870 -60.0463,-73.5218 -60.0709,-73.5286 -60.0541,-73.5724 -60.0592,-73.6170 -59.9920,-73.6829 -59.9879,-73.7422 -60.0166,-73.7803 -60.1276,-73.8759 -60.1823,-73.9611 -60.2720,-74.0245 -60.2892,-74.0509 -60.2672,-74.0649 -60.1295,-74.0941 -60.0241,-74.1300 -59.9440,-74.1669 -59.8935,-74.2053 -59.8629,-74.2510 -59.8601,-74.3019 -59.8856,-74.3456 -59.9473,-74.3961 -60.0025,-74.4287 -60.1212,-74.4813 -60.2602,-74.5835 -60.4016,-74.6418 -60.5156,-74.6731 -60.6467,-74.6988 -60.7878,-74.7167 -60.9562,-74.7288 -60.9812,-74.7346 -60.9939,-74.7482 -60.9900,-74.7851 -61.0058,-74.8257 -61.0875,-74.9086 -61.2253,-74.9807 -61.3512,-75.0286 -61.1288,-75.0219 -60.6575,-75.1313 -60.1796,-75.2424 -59.7016,-75.3534 -59.2237,-75.4644 -58.7458,-75.5754 -58.2678,-75.6864 -57.7899,-75.7974 -57.3120,-75.9084 -56.8341,-76.0195 -56.3561,-76.1305 -55.8782,-76.2415 -55.4003,-76.3525 -54.9223,-76.4635 -54.4444,-76.5745 -53.9665,-76.6856 -53.4886,-76.7966 -53.0106,-76.9076 -52.5327,-77.0186 -52.5327,-77.4227 -52.5327,-77.8267 -52.5327,-78.2308 -52.5326,-78.6348 -52.5326,-79.0389 -52.5326,-79.4764 -52.5326,-79.9139 -52.5326,-80.3514 -52.5326,-80.7889 -52.5326,-81.2264 -52.5325,-81.6639 -52.5325,-82.1014 -52.5325,-82.5389 -52.5325,-82.9934 -52.5325,-83.4480 -52.5325,-83.9025 -52.5324,-84.3571 -52.5324,-84.8116 -52.5324,-85.2662 -52.5324,-85.7207 -52.5324,-86.1752 -52.5324,-86.6298 -52.5323,-87.0843 -52.5323,-87.5389 -52.5323,-88.0311 -52.5323,-88.5233 -52.5323,-89.0156 -52.5323,-89.5078 -52.5322,-90.0000 -52.9723,-90.0000 -53.4123,-90.0000 -53.8523,-90.0000 -54.2923,-90.0000 -54.7323,-90.0000 -55.1723,-90.0000 -55.6124,-90.0000 -56.0524,-90.0000 -56.4924,-90.0000 -56.9324,-90.0000 -57.3724,-90.0000 -57.8124,-90.0000 -58.2524,-90.0000 -58.6925,-90.0000 -59.1325,-90.0000 -59.5725,-90.0000 -60.0125,-90.0000 -60.4525,-90.0000 -60.8925,-90.0000 -61.3326,-90.0000 -61.7726,-90.0000 -62.2126,-90.0000 -62.6526,-90.0000 -63.0926,-90.0000 -63.5326,-90.0000 -63.9726,-90.0000 -64.4127,-90.0000 -64.8527,-90.0000 -65.2927,-90.0000 -65.7327,-90.0000 -66.1727,-90.0000 -66.6127,-90.0000 -67.0528,-90.0000 -67.4928,-90.0000 -67.4928,-89.5364 -67.4928,-89.0727 -67.4928,-88.6091 -67.4928,-88.1455 -67.4928,-87.6818 -67.4928,-87.2182 -67.4928,-86.7545 -67.4928,-86.2909 -67.4928,-85.8273 -67.4928,-85.3636 -67.4928,-84.9000 -67.4928,-84.4455 -67.4928,-83.9909 -67.4928,-83.5364 -67.4928,-83.0818 -67.4928,-82.6273 -67.4928,-82.1727 -67.4928,-81.7182 -67.4928,-81.2636 -67.4928,-80.8091 -67.4928,-80.3545 -67.4928,-79.9000 -67.4928,-79.4455 -67.4928,-78.9909 -67.4928,-78.5364 -67.4928,-78.0818 -67.4928,-77.6273 -67.4928,-77.1727 -67.4928,-76.7182 -67.4928,-76.2636 -67.4928,-75.8091 -67.4928,-75.3545 -67.4928,-74.9000 -67.4928,-74.4455 -67.4928,-73.9909 -67.4928,-73.5364 -67.4928,-73.0818 -67.4928,-72.6273 -67.4928,-72.1727 -67.4928,-71.7182 -67.4928,-71.2636 -67.4928,-70.8091 -67.4928,-70.3545 -67.4928,-69.9000 -67.4928,-69.4754 -67.4928,-69.0508 -67.4928,-68.6261 -67.0596,-68.6261 -66.6264,-68.6261 -66.1933,-68.6261 -66.1933,-68.2016 -66.1933,-67.7770 -66.1933,-67.3525 -66.1933,-66.9280 -66.1933,-66.5034 -66.6264,-66.5034 -67.0596,-66.5034 -67.4928,-66.5034 -67.4928,-66.0994 -67.4167,-66.0702 -67.2643,-66.0342 -67.1745,-65.9732 -67.0539,-65.9251 -66.8920,-65.8840 -66.7014,-65.8585 -66.7099,-65.7999 -66.6826,-65.7401 -66.4218,-65.4638 -66.3168,-65.4033 -66.1551,-65.3576 -66.0268,-65.3024 -65.9394,-65.2804 -65.8431,-65.2657 -65.7218,-65.2564 -65.5952,-65.2549 -65.4828,-65.2637 -65.3667,-65.2727 -65.2744,-65.2902 -65.1852,-65.3174 -65.1209,-65.3472 -65.0725,-65.3810 -65.0401,-65.4175 -65.0230,-65.4623 -65.0287,-65.5079 -65.0521,-65.5463 -65.1574,-65.6243 -65.1562,-65.6337 -65.1388,-65.6398 -65.1005,-65.6310 -64.9764,-65.5688 -64.9068,-65.5171 -64.8450,-65.4848 -64.7877,-65.4647 -64.6540,-65.4334 -64.6162,-65.4175 -64.5818,-65.3578 -64.6095,-65.2935 -64.6107,-65.2527 -64.5565,-65.1052 -64.4988,-65.0489 -64.3197,-64.9479 -64.3655,-64.9266 -64.5731,-64.8803 -64.6357,-64.8584 -64.7192,-64.8134 -64.7734,-64.7602 -64.7938,-64.7027 -64.7806,-64.6476 -64.6237,-64.4870 -64.5600,-64.4524 -64.4107,-64.3961 -64.3000,-64.3226 -64.1302,-64.2595 -63.9755,-64.1484 -63.8857,-64.1070 -63.7911,-64.0824 -63.6538,-64.0614 -63.4321,-64.0365 -63.2112,-64.0277 -63.1040,-64.0088 -63.0299,-63.9822 -62.8984,-63.9032 -62.7711,-63.8485 -62.6712,-63.8228 -62.4706,-63.7953 -62.3877,-63.7730 -62.3181,-63.7344 -62.2702,-63.6823 -62.2385,-63.6159 -62.2566,-63.5803 -62.3119,-63.5628 -62.5017,-63.5364 -62.6183,-63.4967 -62.6881,-63.4534 -62.7926,-63.3517 -62.8781,-63.3058 -63.0736,-63.2206 -63.1568,-63.1496 -63.1750,-63.0864 -63.1441,-63.0191 -62.9452,-62.8369 -62.8573,-62.7789 -62.6889,-62.7178 -62.5449,-62.6852 -62.4488,-62.6711 -62.2927,-62.6653 -62.0190,-62.6875 -61.9461,-62.6839 -61.8376,-62.6124 -61.6474,-62.5416 -61.5750,-62.4794 -61.5001,-62.4394 -61.3795,-62.4021 -61.2159,-62.3770 -61.1054,-62.3136 -60.9764,-62.2757 -60.8491,-62.2605 -60.7143,-62.2628 -60.6172,-62.2766 -60.4707,-62.3200 -60.3109,-62.2677 -60.0707,-62.2415 -59.9506,-62.1905 -59.8459,-62.1628 -59.7215,-62.1442 -59.5324,-62.1314 -59.3500,-62.0688 -59.2765,-62.0177 -59.1346,-61.9549 -59.0317,-61.8781 -58.9725,-61.8468 -58.5740,-61.7378 -58.4414,-61.7246 -58.2773,-61.7282 -58.1226,-61.7024 -58.0182,-61.6957 1348,2.0,Europe/Helsinki 27.8973,70.0707 27.9272,70.0533 27.9810,70.0096 28.1674,69.8943 28.1893,69.8860 28.3812,69.8562 28.3797,69.8224 28.4046,69.8023 28.4427,69.7915 28.4809,69.7857 28.8061,69.7300 29.1312,69.6742 29.1471,69.6639 29.2032,69.5860 29.3445,69.4644 29.2293,69.3769 28.8648,69.2166 28.8522,69.2035 28.8441,69.1813 28.8270,69.1068 28.8276,69.0908 28.8396,69.0803 28.9541,69.0273 28.8335,68.9845 28.7133,68.9680 28.4562,68.9001 28.4102,68.8985 28.4131,68.8801 28.4268,68.8706 28.4442,68.8658 28.6457,68.8717 28.7283,68.8650 28.8015,68.8355 28.7473,68.7601 28.7164,68.7280 28.4599,68.5424 28.4479,68.5297 28.4474,68.5149 28.4610,68.4911 28.4809,68.4626 28.6638,68.2040 28.6903,68.1832 28.7272,68.1727 29.0129,68.1272 29.2987,68.0818 29.3309,68.0727 29.3602,68.0567 29.4426,67.9911 29.4426,67.9911 29.4809,67.9605 29.6512,67.8236 29.7138,67.7925 30.0094,67.6858 29.9879,67.6725 29.9777,67.6622 29.9734,67.6493 29.9647,67.5847 29.9599,67.5716 29.9334,67.5264 29.9162,67.5081 29.5198,67.2982 29.5085,67.2881 29.4970,67.2703 29.4907,67.2630 29.4809,67.2568 29.4294,67.2328 29.1001,66.9913 29.1001,66.9912 29.0999,66.9912 29.0999,66.9911 29.0515,66.9078 29.0892,66.8375 29.3222,66.6801 29.3640,66.6246 29.3924,66.6053 29.3954,66.5965 29.3964,66.5866 29.4013,66.5762 29.4094,66.5685 29.5245,66.4912 29.5342,66.4740 29.5517,66.4128 29.5697,66.3782 29.5932,66.3459 29.6509,66.2879 29.7924,66.1809 29.8754,66.1336 29.9002,66.1081 29.9205,66.0686 29.9488,65.9913 29.9585,65.9739 29.9979,65.9315 30.0097,65.9157 30.0393,65.8654 30.0751,65.8228 30.0835,65.8046 30.1117,65.7120 30.1163,65.6872 30.1139,65.6655 30.0985,65.6564 30.0647,65.6617 30.0030,65.6781 29.7643,65.6481 29.7029,65.6294 29.7323,65.6087 29.8067,65.5849 29.8386,65.5649 29.8258,65.5520 29.7455,65.5114 29.7263,65.4915 29.7263,65.4912 29.7182,65.4542 29.7306,65.3654 29.7201,65.3291 29.6151,65.2694 29.5801,65.2354 29.6267,65.2152 29.7668,65.2174 29.8332,65.2050 29.8393,65.1669 29.8297,65.1586 29.8180,65.1522 29.8091,65.1452 29.8082,65.1353 29.8203,65.1265 29.8381,65.1248 29.8502,65.1215 29.8456,65.1080 29.8205,65.0937 29.6678,65.0779 29.6273,65.0622 29.5984,65.0344 29.5881,64.9914 29.6336,64.9072 29.6983,64.8391 29.7803,64.7956 29.8778,64.7848 30.0625,64.7842 30.1019,64.7755 30.1189,64.7679 30.1204,64.7616 30.1149,64.7543 30.1111,64.7444 30.1090,64.7317 30.1068,64.7256 30.1091,64.7201 30.1205,64.7089 30.1314,64.7012 30.1705,64.6817 30.1878,64.6624 30.1808,64.6428 30.1604,64.6261 30.1364,64.6154 29.9658,64.5786 29.9588,64.5749 29.9548,64.5690 29.9589,64.5660 29.9652,64.5644 29.9685,64.5628 29.9700,64.5454 29.9736,64.5362 29.9808,64.5268 29.9789,64.5240 29.9782,64.5211 29.9790,64.5183 29.9808,64.5155 29.9915,64.5132 29.9934,64.5107 29.9905,64.5042 30.0358,64.4915 30.0704,64.4719 30.0628,64.4484 30.0410,64.4229 30.0325,64.3969 30.0530,64.3781 30.0931,64.3612 30.1644,64.3419 30.3211,64.3177 30.3705,64.3008 30.3993,64.2831 30.4216,64.2647 30.4460,64.2508 30.5034,64.2438 30.5362,64.2347 30.5585,64.2197 30.5503,64.1989 30.5325,64.1792 30.5328,64.1625 30.5448,64.1464 30.5621,64.1274 30.5864,64.0847 30.5805,64.0511 30.5523,64.0217 30.5093,63.9915 30.5093,63.9914 30.5093,63.9914 30.3286,63.8960 30.2656,63.8307 30.2015,63.7926 30.0513,63.7638 29.9808,63.7415 30.0011,63.7153 30.2425,63.5818 30.3805,63.5325 30.4414,63.4916 30.4611,63.4729 30.4887,63.4621 30.8209,63.3757 30.9749,63.2892 31.1778,63.2252 31.2040,63.2127 31.2257,63.1960 31.2331,63.1757 31.2342,63.1572 31.2408,63.1357 31.2508,63.1155 31.2628,63.1006 31.2885,63.0847 31.3516,63.0622 31.3803,63.0479 31.4445,63.0019 31.4680,62.9916 31.4806,62.9863 31.5054,62.9682 31.5193,62.9432 31.5358,62.9195 31.5695,62.9059 31.4806,62.8261 31.4413,62.7887 31.4106,62.7465 31.3633,62.6516 31.3470,62.6293 31.3028,62.5960 31.2841,62.5730 31.2601,62.5248 31.2438,62.5033 31.2222,62.4917 31.2219,62.4917 31.2216,62.4916 31.1686,62.4760 31.1530,62.4674 31.1416,62.4565 31.1234,62.4348 30.9806,62.3588 30.9671,62.3482 30.9419,62.3146 30.9256,62.3021 30.9075,62.2929 30.7938,62.2530 30.7038,62.2104 30.6655,62.1998 30.6477,62.1928 30.6350,62.1840 30.6072,62.1513 30.4807,62.0677 30.3399,61.9918 30.3397,61.9917 30.3396,61.9917 29.9777,61.7282 29.8422,61.6602 29.8219,61.6446 29.7981,61.6097 29.7791,61.5931 29.7649,61.5850 29.6351,61.5111 29.6043,61.4992 29.5397,61.4850 29.5170,61.4751 29.4991,61.4592 29.4809,61.4348 29.4634,61.4138 29.3184,61.3384 29.2893,61.3162 29.2623,61.2905 29.2032,61.2459 29.1301,61.2134 28.9808,61.1681 28.9264,61.1479 28.8555,61.1127 28.7976,61.0968 28.7813,61.0870 28.7502,61.0614 28.6890,61.0274 28.6707,61.0125 28.6538,60.9919 28.6538,60.9919 28.6537,60.9918 28.6537,60.9917 28.6146,60.9619 28.5264,60.9502 28.4809,60.9335 28.3359,60.8594 28.2439,60.7916 28.1481,60.7577 27.9810,60.6495 27.9572,60.6373 27.8930,60.6043 27.8083,60.5527 27.7816,60.5436 27.7831,60.5400 27.7821,60.5415 27.7827,60.5387 27.7926,60.4947 27.5119,60.2597 27.4639,60.2283 27.3003,60.2053 27.1883,60.1767 26.9150,60.1733 26.6400,60.1133 26.5433,60.1067 26.3358,59.9946 26.6289,59.8222 26.8167,59.6624 27.0534,59.6185 27.3853,59.6524 27.8117,59.5456 27.9610,59.4858 28.0154,59.4782 28.0280,59.4732 28.0386,59.4630 28.0834,59.4509 28.1048,59.4392 28.1284,59.4094 28.1378,59.4004 28.1496,59.3932 28.1754,59.3819 28.1865,59.3749 28.1818,59.3561 28.1575,59.3640 28.1136,59.3454 28.0324,59.3420 28.0006,59.3337 28.0732,59.3190 28.0969,59.3194 28.0766,59.3053 27.9597,59.3065 27.9039,59.2904 27.8909,59.2815 27.8823,59.2757 27.8908,59.2580 27.8735,59.2365 27.8424,59.1612 27.7843,59.0772 27.7672,59.0559 27.7244,59.0144 27.7133,58.9919 27.6944,58.9759 27.6053,58.9347 27.4778,58.8754 27.4106,58.7549 27.4493,58.6585 27.4989,58.5346 27.5549,58.3952 27.4941,58.3195 27.4828,58.2686 27.4954,58.2215 27.5400,58.1718 27.5797,58.1259 27.6304,58.0883 27.6366,58.0592 27.6301,58.0330 27.6316,58.0042 27.6506,58.0001 27.6691,57.9920 27.6752,57.9678 27.6704,57.9550 27.6632,57.9440 27.6594,57.9325 27.6650,57.9184 27.6731,57.9128 27.7744,57.8907 27.7908,57.8809 27.7993,57.8611 27.7868,57.8476 27.7635,57.8387 27.7007,57.8248 27.5376,57.8116 27.5246,57.8073 27.5326,57.8051 27.5539,57.7948 27.5262,57.7873 27.5124,57.7813 27.5024,57.7725 27.4978,57.7557 27.5089,57.7275 27.5078,57.7148 27.4904,57.7046 27.4077,57.6890 27.3914,57.6802 27.3847,57.6744 27.3797,57.6665 27.3770,57.6567 27.3779,57.6517 27.3802,57.6477 27.3828,57.6345 27.3851,57.6312 27.3870,57.6276 27.3849,57.6070 27.3821,57.6027 27.3748,57.5979 27.3625,57.5945 27.3489,57.5941 27.3366,57.5917 27.3280,57.5832 27.3285,57.5706 27.3356,57.5539 27.3450,57.5381 27.3529,57.5276 27.5282,57.5285 27.5228,57.4920 27.5256,57.4684 27.5148,57.4479 27.5113,57.4304 27.5363,57.4157 27.6408,57.3890 27.7080,57.3481 27.8091,57.3139 27.8277,57.3050 27.8403,57.2906 27.8461,57.2673 27.8412,57.2112 27.8339,57.1805 27.8243,57.1591 27.7940,57.1434 27.7010,57.1188 27.6822,57.1037 27.6961,57.0855 27.7221,57.0780 27.7455,57.0680 27.7507,57.0424 27.7458,57.0315 27.7296,57.0099 27.7234,56.9988 27.7208,56.9887 27.7185,56.9687 27.7151,56.9574 27.6487,56.8793 27.6284,56.8442 27.6612,56.8393 27.7441,56.8648 27.7864,56.8713 27.8308,56.8643 27.8522,56.8543 27.8915,56.8297 27.9135,56.8202 27.9189,56.8059 27.9001,56.7830 27.8761,56.7594 27.8655,56.7427 27.8826,56.7255 27.9810,56.6870 27.9913,56.6700 27.9922,56.6250 27.9974,56.6038 28.0110,56.5876 28.0287,56.5768 28.1087,56.5552 28.1261,56.5478 28.1322,56.5360 28.1252,56.5271 28.0992,56.5134 28.0933,56.5016 28.0965,56.4920 28.1045,56.4831 28.1565,56.4462 28.1643,56.4380 28.1679,56.4271 28.1643,56.3928 28.1671,56.3699 28.1744,56.3496 28.2148,56.2814 28.2173,56.2707 28.2153,56.2560 28.2094,56.2481 28.2014,56.2417 28.1931,56.2310 28.1844,56.2075 28.1786,56.1839 28.1691,56.1617 28.1489,56.1424 28.1110,56.1568 28.0682,56.1476 28.0238,56.1296 27.9810,56.1180 27.9397,56.1131 27.9271,56.1094 27.9115,56.1002 27.9015,56.0893 27.8927,56.0771 27.8807,56.0639 27.8125,56.0345 27.7812,56.0164 27.7770,55.9924 27.7444,55.9597 27.6450,55.9228 27.6172,55.8786 27.6101,55.8310 27.6015,55.8096 27.5927,55.7942 27.5646,55.7922 27.4388,55.7987 27.4059,55.8043 27.3746,55.8148 27.3496,55.8312 27.3292,55.8176 27.2824,55.7919 27.2630,55.7872 27.2355,55.7958 27.1732,55.8257 27.1514,55.8325 27.1108,55.8363 26.9811,55.8269 26.9578,55.8186 26.9001,55.7787 26.8428,55.7193 26.8228,55.7061 26.7430,55.6829 26.7201,55.6819 26.6669,55.6940 26.6401,55.6956 26.6156,55.6880 26.5945,55.6670 26.6038,55.6433 26.6077,55.6165 26.6052,55.5901 26.5956,55.5680 26.5761,55.5506 26.5516,55.5345 26.5321,55.5163 26.5277,55.4922 26.5465,55.4712 26.5433,55.4596 26.5078,55.4391 26.4992,55.4281 26.4860,55.3908 26.4791,55.3814 26.4552,55.3561 26.4455,55.3375 26.4500,55.3271 26.4658,55.3209 26.5254,55.3081 26.5423,55.3076 26.6027,55.3169 26.7686,55.3002 26.7916,55.2902 26.8007,55.2733 26.7897,55.2572 26.7656,55.2467 26.7011,55.2368 26.6857,55.2316 26.6570,55.2153 26.6411,55.2028 26.6339,55.1922 26.6275,55.1644 26.6163,55.1354 26.6009,55.1208 26.5789,55.1185 26.4734,55.1457 26.4591,55.1447 26.4507,55.1398 26.4448,55.1339 26.4386,55.1300 26.4288,55.1282 26.4203,55.1281 26.3095,55.1446 26.2644,55.1401 26.2330,55.1116 26.2303,55.1003 26.2312,55.0755 26.2294,55.0634 26.2246,55.0549 26.1878,55.0087 26.1536,54.9785 26.1386,54.9689 26.1026,54.9570 25.9811,54.9427 25.9625,54.9429 25.9261,54.9478 25.9079,54.9481 25.8702,54.9388 25.8585,54.9330 25.8548,54.9255 25.8531,54.9164 25.8467,54.9062 25.8258,54.8920 25.8025,54.8816 25.7827,54.8697 25.7723,54.8509 25.7737,54.8419 25.7823,54.8220 25.7829,54.8137 25.7785,54.8053 25.7734,54.8034 25.7666,54.8033 25.7568,54.8004 25.7349,54.7891 25.7243,54.7801 25.7212,54.7667 25.7246,54.7157 25.7231,54.7053 25.7191,54.6948 25.7139,54.6856 25.7095,54.6756 25.7084,54.6630 25.7151,54.6432 25.7399,54.6077 25.7456,54.5884 25.7404,54.5685 25.7265,54.5530 25.7074,54.5415 25.6462,54.5204 25.6309,54.5084 25.6199,54.4881 25.6156,54.4619 25.6163,54.4411 25.6126,54.4218 25.5947,54.4001 25.5488,54.3677 25.5300,54.3461 25.5287,54.3210 25.5423,54.3081 25.5640,54.3031 25.6074,54.3049 25.6674,54.3233 25.6823,54.3256 25.6960,54.3210 25.7018,54.3128 25.7048,54.3030 25.7154,54.2852 25.7192,54.2815 25.7233,54.2810 25.7347,54.2832 25.7393,54.2826 25.7489,54.2763 25.7578,54.2690 25.7656,54.2600 25.7723,54.2489 25.7763,54.2456 25.7818,54.2444 25.7866,54.2423 25.7892,54.2362 25.7868,54.2318 25.7750,54.2225 25.7719,54.2179 25.7710,54.1721 25.7631,54.1564 25.7400,54.1463 25.7281,54.1452 25.6906,54.1482 25.6798,54.1453 25.6639,54.1324 25.6535,54.1287 25.6316,54.1283 25.5430,54.1370 25.5160,54.1448 25.4933,54.1575 25.4858,54.1754 25.4932,54.1824 25.5217,54.1882 25.5290,54.1957 25.5234,54.2042 25.4993,54.2118 25.5017,54.2218 25.5221,54.2286 25.5455,54.2275 25.5540,54.2313 25.4835,54.2877 25.4787,54.2933 25.4721,54.2972 25.4594,54.2989 25.4341,54.2918 25.3940,54.2572 25.3697,54.2479 25.2876,54.2452 25.2241,54.2585 25.2062,54.2568 25.1935,54.2437 25.1731,54.1966 25.1565,54.1757 25.1156,54.1488 25.0720,54.1322 25.0271,54.1279 24.9483,54.1459 24.9023,54.1498 24.8560,54.1467 24.8216,54.1345 24.8175,54.1282 24.8174,54.1206 24.8187,54.1140 24.8182,54.1101 24.7994,54.1032 24.7906,54.0966 24.7843,54.0962 24.7825,54.0929 24.7871,54.0776 24.7990,54.0560 24.8125,54.0389 24.8214,54.0199 24.8194,53.9926 24.8193,53.9925 24.8192,53.9924 24.8191,53.9923 24.8064,53.9753 24.7887,53.9697 24.7239,53.9634 24.7056,53.9642 24.6908,53.9728 24.6779,53.9923 24.6743,53.9937 24.6706,53.9943 24.6668,53.9939 24.6430,53.9830 24.5791,53.9756 24.5287,53.9584 24.4140,53.8977 24.3779,53.8868 24.3419,53.8870 24.3102,53.8927 24.2764,53.8918 24.2571,53.8940 24.2464,53.9036 24.2291,53.9324 24.2011,53.9525 24.1696,53.9589 24.1367,53.9554 24.0749,53.9357 24.0454,53.9309 23.9198,53.9478 23.9047,53.9461 23.8283,53.9201 23.8206,53.9193 23.8121,53.9208 23.7941,53.9271 23.7872,53.9279 23.7718,53.9243 23.7544,53.9168 23.6919,53.9115 23.6426,53.8990 23.6271,53.8982 23.6100,53.9018 23.5201,53.9340 23.4856,53.9393 23.4898,53.9451 23.4904,53.9506 23.4875,53.9556 23.4816,53.9601 23.4709,53.9653 23.4629,53.9725 23.4587,53.9816 23.4593,53.9923 23.4641,53.9968 23.4695,54.0007 23.4816,54.0066 23.4965,54.0220 23.4962,54.0446 23.4816,54.0912 23.4739,54.1126 23.4630,54.1349 23.4490,54.1549 23.4325,54.1693 23.4233,54.1725 23.4018,54.1760 23.3915,54.1801 23.3823,54.1879 23.3641,54.2083 23.3545,54.2171 23.3160,54.2363 23.2354,54.2542 23.1973,54.2679 23.1353,54.2983 23.1171,54.3035 23.0969,54.3008 23.0730,54.2949 23.0501,54.2948 23.0321,54.3096 23.0322,54.3201 23.0380,54.3315 23.0416,54.3410 23.0353,54.3465 23.0010,54.3489 22.9897,54.3534 22.9834,54.3598 22.9790,54.3676 22.9733,54.3754 22.9627,54.3817 22.9524,54.3831 22.9297,54.3803 22.9188,54.3811 22.8589,54.3992 22.8376,54.4009 22.8127,54.3941 22.7860,54.3652 22.7672,54.3563 22.7070,54.4187 22.6804,54.4532 22.6746,54.4923 22.6817,54.5699 22.7037,54.6175 22.7081,54.6356 22.7070,54.6465 22.7008,54.6693 22.7009,54.6796 22.7051,54.6865 22.7270,54.7053 22.7275,54.7093 22.7248,54.7138 22.7228,54.7186 22.7248,54.7234 22.7283,54.7251 22.7367,54.7263 22.7473,54.7316 22.7648,54.7371 22.7730,54.7425 22.7867,54.7560 22.8178,54.7692 22.8328,54.7787 22.8458,54.7961 22.8484,54.8138 22.8443,54.8323 22.8293,54.8727 22.8213,54.8855 22.8089,54.8938 22.7492,54.9099 22.7410,54.9176 22.7521,54.9311 22.7388,54.9341 22.7292,54.9404 22.7221,54.9472 22.7155,54.9514 22.7061,54.9531 22.6499,54.9529 22.6335,54.9579 22.6217,54.9700 22.6084,54.9924 22.5916,55.0376 22.5807,55.0576 22.5655,55.0678 22.5411,55.0758 22.4363,55.0578 22.2513,55.0709 22.1427,55.0546 22.1298,55.0470 22.1185,55.0378 22.0999,55.0299 22.0768,55.0286 22.0500,55.0335 22.0277,55.0444 22.0186,55.0609 22.0186,55.0773 22.0154,55.0884 22.0034,55.0935 21.9775,55.0920 21.9514,55.0805 21.9428,55.0783 21.9330,55.0805 21.9086,55.0899 21.8732,55.0949 21.8539,55.1022 21.8199,55.1193 21.7506,55.1280 21.7334,55.1363 21.7162,55.1495 21.6458,55.1810 21.6328,55.1847 21.6051,55.1925 21.5039,55.1944 21.4677,55.2112 21.4055,55.2724 21.3748,55.2900 21.3498,55.2878 21.2681,55.2484 21.2679,55.2484 21.2458,55.2448 21.2087,55.2409 20.9894,55.2731 20.9254,55.2826 20.6508,55.4270 20.5755,55.3503 20.4163,55.2261 20.3374,55.1784 20.2820,55.1671 20.0615,55.1703 20.0382,55.1706 19.9994,55.1712 19.8855,55.1642 19.7782,55.1390 19.6877,55.0931 19.6159,55.0276 19.5710,54.9470 19.5641,54.9004 19.5786,54.8062 19.5643,54.7545 19.5097,54.6933 19.4155,54.6354 19.3853,54.6242 19.3150,54.6700 19.3450,54.8150 19.2042,55.0808 19.0633,55.3467 19.0040,55.6188 18.9447,55.8910 19.0467,55.9237 19.0966,56.0444 19.3512,56.4506 19.4178,56.5839 19.5044,56.7149 19.6712,56.9672 19.8928,57.2371 20.0360,57.4458 20.0661,57.5639 20.4153,57.9121 20.3713,58.1997 20.4432,58.4839 20.4817,58.8446 20.3192,59.1448 20.1567,59.4450 19.7502,59.7268 19.3437,60.0085 19.3429,60.0090 19.0822,60.1908 19.1555,60.3672 19.2348,60.6779 19.2928,61.0823 19.3509,61.4868 19.4089,61.8912 19.4670,62.2956 19.5250,62.7000 19.8164,62.9109 20.1078,63.1218 20.3992,63.3327 20.6967,63.4850 21.0290,63.5445 21.4993,63.6659 21.8464,63.9093 22.1934,64.1527 22.5405,64.3961 22.9111,64.6559 23.2817,64.9156 23.6522,65.1754 24.0228,65.4352 24.1170,65.5047 24.1735,65.5756 24.1976,65.6162 24.1980,65.6467 24.1821,65.6691 24.1841,65.6772 24.1940,65.6911 24.1938,65.6960 24.1146,65.7529 24.1553,65.7919 24.1660,65.7996 24.1655,65.8003 24.1660,65.8007 24.1609,65.8074 24.1735,65.8039 24.1637,65.8156 24.1637,65.8224 24.1634,65.8408 24.1244,65.8689 24.1023,65.9086 24.0760,65.9280 24.0548,65.9479 24.0570,65.9701 24.0553,65.9852 24.0298,66.0350 24.0196,66.0489 24.0094,66.0556 23.9851,66.0664 23.9746,66.0728 23.9656,66.0816 23.9114,66.1486 23.8893,66.1611 23.7856,66.1767 23.7500,66.1897 23.7242,66.2066 23.6894,66.2570 23.6807,66.2830 23.6660,66.3055 23.6628,66.3165 23.6644,66.3264 23.6730,66.3395 23.6764,66.3500 23.6770,66.3636 23.6717,66.3818 23.6702,66.3953 23.6659,66.4056 23.6466,66.4241 23.6423,66.4363 23.6524,66.4588 23.6768,66.4740 23.7061,66.4830 23.7311,66.4872 23.7311,66.5031 23.7551,66.5119 23.7859,66.5184 23.8061,66.5281 23.8077,66.5392 23.8612,66.5546 23.8819,66.5635 23.8915,66.5789 23.8932,66.5960 23.8891,66.6141 23.8819,66.6318 23.8916,66.6479 23.8990,66.6664 23.9032,66.6863 23.9030,66.7069 23.8917,66.7436 23.8924,66.7509 23.9248,66.7730 23.9392,66.7911 23.9610,66.7935 23.9844,66.7930 23.9992,66.7963 24.0040,66.8052 24.0013,66.8124 23.9608,66.8619 23.9334,66.8888 23.9124,66.9034 23.8736,66.9246 23.8167,66.9755 23.7921,66.9889 23.7617,66.9943 23.7438,67.0010 23.7203,67.0169 23.6839,67.0495 23.6767,67.0585 23.6726,67.0657 23.6706,67.0742 23.6702,67.0871 23.6666,67.0979 23.6580,67.1040 23.6478,67.1086 23.6205,67.1293 23.5989,67.1403 23.5813,67.1531 23.5740,67.1730 23.5865,67.1809 23.5976,67.1903 23.6071,67.2012 23.6149,67.2140 23.5967,67.2180 23.5915,67.2250 23.5946,67.2444 23.6027,67.2603 23.6223,67.2690 23.7354,67.2897 23.7632,67.3065 23.7857,67.3375 23.7514,67.3462 23.7513,67.3695 23.7632,67.3975 23.7652,67.4201 23.7526,67.4273 23.7308,67.4314 23.6627,67.4362 23.5946,67.4536 23.5538,67.4520 23.5143,67.4448 23.4772,67.4438 23.4437,67.4610 23.4313,67.4855 23.4435,67.5047 23.4660,67.5224 23.4847,67.5430 23.4734,67.5550 23.4995,67.5663 23.5354,67.5770 23.5535,67.5870 23.5503,67.6109 23.5426,67.6267 23.5188,67.6528 23.5107,67.6693 23.4995,67.7090 23.4884,67.7248 23.4846,67.7372 23.4847,67.7962 23.4797,67.8170 23.4767,67.8413 23.4813,67.8646 23.4989,67.8822 23.5325,67.8932 23.6033,67.9030 23.6361,67.9135 23.6612,67.9329 23.6622,67.9504 23.6431,67.9632 23.5737,67.9733 23.4847,68.0159 23.4573,68.0243 23.3830,68.0512 23.3748,68.0600 23.3712,68.0685 23.3309,68.1278 23.3198,68.1383 23.3065,68.1456 23.2721,68.1450 23.1872,68.1223 23.1656,68.1220 23.1588,68.1276 23.1546,68.1283 23.1517,68.1303 23.1494,68.1394 23.1498,68.1448 23.1545,68.1538 23.1598,68.1787 23.1585,68.1867 23.1494,68.1940 23.1552,68.2174 23.1400,68.2342 23.0948,68.2555 23.0816,68.2653 23.0765,68.2738 23.0736,68.2819 23.0669,68.2903 23.0522,68.2982 22.9037,68.3366 22.8751,68.3511 22.8334,68.3848 22.8083,68.3949 22.7486,68.3855 22.7191,68.3988 22.6902,68.4168 22.6622,68.4274 22.6434,68.4273 22.6258,68.4251 22.6076,68.4249 22.5652,68.4363 22.5213,68.4382 22.4569,68.4518 22.3780,68.4541 22.3740,68.4563 22.3746,68.4662 22.3711,68.4684 22.3031,68.4761 22.0722,68.4770 22.0384,68.4883 22.0367,68.4929 22.0374,68.5001 22.0361,68.5065 22.0288,68.5094 22.0242,68.5104 22.0121,68.5164 21.9985,68.5258 21.9699,68.5408 21.9640,68.5469 21.9192,68.5682 21.7371,68.5879 21.7168,68.6192 21.6616,68.6335 21.5725,68.6674 21.4957,68.6755 21.4636,68.6869 21.4515,68.6965 21.4213,68.7275 21.4153,68.7388 21.4064,68.7489 21.3859,68.7538 21.3147,68.7540 21.3054,68.7558 21.3010,68.7592 21.2937,68.7682 21.2883,68.7700 21.2757,68.7764 21.2166,68.8172 21.1528,68.8417 21.0721,68.8694 20.9057,68.8946 20.8845,68.9067 20.8876,68.9271 20.9178,68.9330 20.9343,68.9490 20.9346,68.9670 20.9112,68.9807 20.8640,68.9863 20.7954,69.0112 20.6755,69.0182 20.6232,69.0364 20.7166,69.0988 20.7444,69.1044 21.0325,69.0410 21.0715,69.0367 21.0990,69.0438 21.1564,69.0876 21.0336,69.1812 21.0630,69.2149 21.0797,69.2301 21.0984,69.2395 21.3136,69.2914 21.6388,69.2714 21.6629,69.2632 22.0231,69.0120 22.1607,68.9561 22.1744,68.9437 22.1887,68.9186 22.2002,68.9085 22.2772,68.8575 22.3568,68.8328 22.3714,68.8226 22.3967,68.7318 22.4092,68.7129 22.4287,68.7101 22.5429,68.7260 22.5701,68.7268 22.5965,68.7246 22.8517,68.6757 23.0193,68.6867 23.0715,68.6809 23.0979,68.6701 23.1754,68.6217 23.1976,68.6180 23.4816,68.6856 23.6416,68.6950 23.7348,68.7154 23.7680,68.7560 23.7872,68.7998 23.8526,68.8167 23.9290,68.8162 24.1312,68.7762 24.1637,68.7548 24.1869,68.7445 24.3325,68.7086 24.4813,68.6892 24.6634,68.6661 24.7542,68.6379 24.8296,68.5941 24.8609,68.5634 24.8792,68.5548 24.9052,68.5570 24.9271,68.5704 24.9381,68.5883 24.9518,68.6051 24.9812,68.6151 25.0069,68.6146 25.0710,68.6314 25.0978,68.6337 25.1176,68.6377 25.1324,68.6476 25.1442,68.6680 25.1321,68.6766 25.1328,68.6827 25.1388,68.6883 25.1431,68.6960 25.1449,68.7426 25.1496,68.7646 25.1627,68.7846 25.2013,68.8126 25.3872,68.8746 25.4339,68.8839 25.4811,68.8877 25.6024,68.8721 25.6278,68.8741 25.6516,68.8835 25.6662,68.8974 25.6784,68.9125 25.6948,68.9256 25.7264,68.9425 25.7374,68.9525 25.7427,68.9659 25.7539,68.9784 25.7958,68.9933 25.8047,69.0061 25.8011,69.0132 25.7929,69.0182 25.7738,69.0254 25.7658,69.0307 25.7646,69.0352 25.7657,69.0392 25.7651,69.0434 25.7502,69.0592 25.7494,69.0656 25.7572,69.0751 25.7590,69.0820 25.7605,69.1152 25.7624,69.1192 25.7664,69.1227 25.7700,69.1274 25.7712,69.1351 25.7683,69.1421 25.7553,69.1596 25.7499,69.1652 25.7341,69.1913 25.7372,69.2182 25.7745,69.2988 25.7866,69.3128 25.8774,69.3708 25.8726,69.3791 25.8414,69.4178 25.8658,69.4410 25.8775,69.4470 25.8867,69.4552 25.8857,69.4791 25.8921,69.4909 25.9064,69.5019 25.9014,69.5091 25.8906,69.5148 25.8867,69.5209 25.9002,69.5320 25.9603,69.5487 25.9862,69.5654 26.0040,69.5872 26.0051,69.6108 25.9811,69.6335 25.9644,69.6427 25.9617,69.6525 25.9688,69.6632 25.9813,69.6749 26.0051,69.6893 26.0320,69.6967 26.1814,69.7112 26.1983,69.7154 26.2110,69.7229 26.2230,69.7319 26.2682,69.7583 26.3168,69.7949 26.4187,69.8356 26.4479,69.8560 26.4359,69.8742 26.4459,69.8818 26.4810,69.8994 26.5007,69.9183 26.5339,69.9252 26.7070,69.9351 26.7719,69.9284 26.8646,69.9381 26.8957,69.9343 26.9511,69.9202 26.9811,69.9233 27.0075,69.9225 27.0812,69.9029 27.1003,69.9018 27.3118,69.9295 27.3524,69.9487 27.3451,69.9507 27.3305,69.9575 27.3232,69.9597 27.3345,69.9686 27.3491,69.9713 27.3650,69.9718 27.3809,69.9743 27.4452,70.0032 27.5633,70.0236 27.5709,70.0409 27.6126,70.0621 27.6651,70.0683 27.7922,70.0589 27.8669,70.0753 27.8973,70.0707 4605,3.0,Europe/Moscow 67.5368,82.8898 67.5369,82.4439 67.5370,81.9980 67.9559,81.9981 68.3748,81.9981 68.7937,81.9982 69.2126,81.9983 69.6315,81.9983 70.0504,81.9984 70.0489,81.5050 70.0474,81.0116 70.0459,80.5182 70.0444,80.0248 70.0429,79.5314 70.0414,79.0380 70.0399,78.5446 70.0384,78.0512 70.0369,77.5578 70.0354,77.0644 70.0340,76.5710 70.0325,76.0776 70.0310,75.5842 70.0295,75.0909 69.6723,74.8063 69.3152,74.5217 68.9580,74.2371 68.6009,73.9525 68.3058,73.7173 68.0107,73.4822 67.7156,73.2470 67.5368,73.1045 67.1800,72.8057 66.8233,72.5068 66.4666,72.2079 66.1099,71.9091 65.7532,71.6102 65.3965,71.3113 65.0397,71.0125 65.0393,70.5771 65.0388,70.1417 65.0384,69.7064 65.0379,69.2710 65.0379,69.2708 65.0350,69.2599 65.0310,69.2494 65.0027,69.2174 65.0002,69.2132 64.9968,69.2098 64.9900,69.2047 64.9596,69.1944 64.9101,69.1890 64.9076,69.1884 64.8324,69.1521 64.8116,69.1399 64.7956,69.1359 64.7742,69.1375 64.7599,69.1349 64.7485,69.1310 64.7399,69.1252 64.6866,69.0808 64.6050,69.0446 64.5451,69.0322 64.5352,69.0283 64.5273,69.0232 64.5207,69.0178 64.5161,69.0124 64.5130,69.0074 64.5121,69.0034 64.5119,69.0013 64.5124,68.9988 64.5140,68.9920 64.5206,68.9861 64.5309,68.9794 64.5716,68.9619 64.5802,68.9525 64.5811,68.9464 64.5804,68.9405 64.5768,68.9355 64.5690,68.9306 64.5303,68.9127 64.5260,68.9065 64.5276,68.8994 64.5423,68.8812 64.5541,68.8714 64.5788,68.8648 64.6071,68.8616 64.6600,68.8629 64.7315,68.8562 64.7436,68.8571 64.7525,68.8607 64.7557,68.8654 64.7557,68.8702 64.7541,68.8750 64.7537,68.8800 64.7575,68.8850 64.7658,68.8895 64.7770,68.8919 64.7898,68.8923 64.8035,68.8908 64.8466,68.8774 64.8618,68.8740 64.8761,68.8726 64.8891,68.8730 64.9043,68.8714 64.9215,68.8663 64.9479,68.8533 64.9818,68.8427 65.0023,68.8391 65.0150,68.8354 65.0645,68.8140 65.0803,68.8097 65.0946,68.8077 65.1218,68.8069 65.1920,68.8207 65.2037,68.8208 65.2471,68.8089 65.2613,68.8070 65.2871,68.8075 65.3011,68.8061 65.3149,68.8033 65.3415,68.7917 65.3437,68.7863 65.3443,68.7815 65.3301,68.7453 65.3266,68.7399 65.3257,68.7350 65.3264,68.7300 65.3300,68.7258 65.3384,68.7230 65.3492,68.7229 65.3948,68.7303 65.4028,68.7303 65.4075,68.7274 65.4112,68.7233 65.4234,68.7047 65.4247,68.7007 65.4198,68.6977 65.3895,68.6889 65.3826,68.6850 65.3830,68.6807 65.3900,68.6755 65.3997,68.6697 65.4083,68.6610 65.4167,68.6557 65.4278,68.6521 65.4520,68.6467 65.4594,68.6427 65.4854,68.6204 65.5052,68.5973 65.5102,68.5928 65.5167,68.5884 65.5247,68.5842 65.5352,68.5806 65.5470,68.5781 65.6011,68.5744 65.6150,68.5719 65.6396,68.5648 65.6482,68.5606 65.6543,68.5562 65.6544,68.5504 65.6497,68.5437 65.6309,68.5330 65.6197,68.5252 65.6132,68.5167 65.6135,68.5006 65.6119,68.4955 65.6042,68.4888 65.5900,68.4813 65.5384,68.4600 65.5124,68.4423 65.4805,68.4304 65.4702,68.4242 65.4600,68.4146 65.4219,68.3868 65.4183,68.3807 65.4164,68.3740 65.4152,68.3632 65.4121,68.3544 65.4028,68.3429 65.3520,68.3057 65.3455,68.2991 65.3362,68.2820 65.3307,68.2752 65.3229,68.2700 65.3025,68.2657 65.2960,68.2618 65.2913,68.2570 65.2766,68.2356 65.2738,68.2305 65.2725,68.2239 65.2727,68.2164 65.2789,68.2049 65.2890,68.1919 65.2908,68.1871 65.2920,68.1822 65.2935,68.1670 65.2938,68.1480 65.2948,68.1427 65.2964,68.1379 65.3288,68.0959 65.3306,68.0907 65.3301,68.0847 65.2905,68.0225 65.2886,68.0173 65.2898,68.0123 65.2970,68.0081 65.3195,67.9999 65.3437,67.9875 65.3693,67.9695 65.3786,67.9604 65.3823,67.9559 65.3919,67.9467 65.4131,67.9338 65.4294,67.9215 65.4366,67.9200 65.5668,67.9339 65.7289,67.9227 65.7801,67.9238 65.8488,67.9379 65.8999,67.9592 65.9113,67.9608 65.9230,67.9588 65.9865,67.9356 65.9995,67.9330 66.0124,67.9323 66.0608,67.9372 66.0729,67.9363 66.0831,67.9336 66.0895,67.9297 66.0935,67.9251 66.0963,67.9136 66.0928,67.9047 66.0859,67.8955 66.0593,67.8794 66.0543,67.8718 66.0534,67.8663 66.0534,67.8559 66.0520,67.8507 66.0500,67.8455 66.0462,67.8393 66.0222,67.8081 66.0200,67.8030 66.0196,67.7981 66.0224,67.7942 66.0311,67.7919 66.0540,67.7883 66.0629,67.7848 66.0685,67.7808 66.0757,67.7770 66.0865,67.7746 66.1251,67.7713 66.1367,67.7685 66.1470,67.7649 66.1982,67.7396 66.2031,67.7350 66.2062,67.7304 66.2075,67.7255 66.2095,67.7053 66.2086,67.6998 66.2059,67.6930 66.1957,67.6819 66.1842,67.6731 66.1517,67.6572 66.1280,67.6500 66.1047,67.6466 66.0926,67.6471 66.0810,67.6496 66.0090,67.6764 66.0000,67.6777 65.9911,67.6779 65.9791,67.6750 65.9435,67.6627 65.8747,67.6588 65.8516,67.6545 65.8407,67.6496 65.8312,67.6427 65.8242,67.6305 65.8261,67.6232 65.8352,67.6176 65.8478,67.6139 65.8572,67.6099 65.8588,67.6058 65.8481,67.6008 65.8146,67.5900 65.8051,67.5844 65.7981,67.5775 65.7961,67.5678 65.8005,67.5619 65.8106,67.5578 65.8231,67.5557 65.8360,67.5552 66.0259,67.5761 66.0360,67.5751 66.0415,67.5717 66.0453,67.5675 66.0489,67.5628 66.0884,67.5315 66.0972,67.5224 66.1004,67.5177 66.1057,67.5082 66.1090,67.4986 66.1097,67.4937 66.1100,67.4888 66.1031,67.4798 66.0887,67.4676 66.0078,67.4159 65.9738,67.4021 65.9372,67.3932 65.8049,67.3825 65.7386,67.3908 65.7132,67.3903 65.7017,67.3887 65.6909,67.3847 65.6828,67.3788 65.6780,67.3692 65.6811,67.3629 65.6867,67.3575 65.7098,67.3448 65.7126,67.3402 65.7080,67.3350 65.6619,67.3107 65.6476,67.3070 65.5995,67.2995 65.5888,67.2965 65.5786,67.2914 65.5697,67.2846 65.5541,67.2676 65.5411,67.2619 65.5075,67.2521 65.4222,67.2151 65.4097,67.2121 65.3734,67.2082 65.3276,67.1987 65.3160,67.1937 65.2443,67.1525 65.2342,67.1488 65.2224,67.1474 65.1979,67.1474 65.1902,67.1450 65.1930,67.1361 65.2077,67.1247 65.2088,67.1187 65.2038,67.1102 65.2046,67.1021 65.2080,67.0960 65.2137,67.0912 65.2183,67.0867 65.2187,67.0813 65.2158,67.0756 65.2056,67.0687 65.1948,67.0646 65.1716,67.0608 65.1346,67.0610 65.1107,67.0590 65.0898,67.0541 65.0827,67.0485 65.0781,67.0415 65.0793,67.0307 65.0815,67.0256 65.0876,67.0207 65.0939,67.0168 65.0995,67.0123 65.1038,67.0080 65.1054,67.0040 65.1062,67.0014 65.1081,66.9622 65.1127,66.9438 65.1162,66.9153 65.1162,66.9083 65.1104,66.8997 65.1047,66.8946 65.0637,66.8809 64.9992,66.8654 64.9906,66.8650 64.9535,66.8707 64.9367,66.8687 64.9178,66.8626 64.8670,66.8405 64.8504,66.8374 64.8145,66.8352 64.7639,66.8221 64.5870,66.8009 64.5765,66.7980 64.5669,66.7936 64.5601,66.7865 64.5572,66.7805 64.5560,66.7749 64.5542,66.7699 64.5492,66.7642 64.5427,66.7585 64.5377,66.7517 64.5389,66.7464 64.5418,66.7414 64.5440,66.7367 64.5412,66.7319 64.5341,66.7279 64.5066,66.7229 64.4821,66.7212 64.4700,66.7222 64.4468,66.7271 64.4351,66.7276 64.4129,66.7235 64.3858,66.7121 64.3518,66.6915 64.3372,66.6788 64.3282,66.6731 64.3156,66.6677 64.2948,66.6631 64.2793,66.6615 64.1997,66.6636 64.0853,66.6487 64.0089,66.6547 63.9924,66.6543 63.9813,66.6515 63.9693,66.6463 63.9320,66.6219 63.9179,66.6105 63.9023,66.5949 63.8954,66.5919 63.8735,66.5899 63.8616,66.5873 63.8504,66.5821 63.8392,66.5722 63.8328,66.5650 63.8282,66.5586 63.8203,66.5528 63.8085,66.5472 63.7198,66.5234 63.7080,66.5226 63.6830,66.5238 63.6693,66.5232 63.6549,66.5192 63.6245,66.4996 63.6069,66.4909 63.5410,66.4708 63.5171,66.4683 63.4972,66.4690 63.4397,66.4851 63.4274,66.4848 63.4149,66.4801 63.4088,66.4737 63.4080,66.4681 63.4085,66.4629 63.4084,66.4579 63.4040,66.4519 63.3614,66.4216 63.3499,66.4160 63.3057,66.4002 63.2974,66.3950 63.2917,66.3875 63.2901,66.3816 63.2895,66.3711 63.2865,66.3657 63.2820,66.3602 63.2415,66.3280 63.2384,66.3196 63.2406,66.3131 63.2804,66.2924 63.2939,66.2836 63.3025,66.2744 63.3044,66.2696 63.3057,66.2647 63.3063,66.2598 63.3066,66.2548 63.3048,66.2496 63.3014,66.2442 63.2955,66.2392 63.2880,66.2353 63.2767,66.2349 63.2642,66.2356 63.2117,66.2474 63.1704,66.2622 63.1608,66.2645 63.1504,66.2645 63.1054,66.2499 63.0658,66.2319 63.0215,66.2034 63.0125,66.1954 63.0036,66.1852 62.9996,66.1813 62.9894,66.1731 62.9839,66.1678 62.9798,66.1624 62.9767,66.1570 62.9754,66.1518 62.9748,66.1417 62.9715,66.1313 62.9670,66.1207 62.9627,66.1151 62.9528,66.1082 62.9364,66.1005 62.8702,66.0791 62.8622,66.0747 62.8557,66.0675 62.8544,66.0617 62.8545,66.0561 62.8559,66.0512 62.8551,66.0460 62.8528,66.0407 62.8470,66.0348 62.8248,66.0179 62.8214,66.0125 62.8241,66.0079 62.8306,66.0041 62.8721,65.9881 62.8795,65.9841 62.8842,65.9798 62.8795,65.9740 62.8075,65.9366 62.8028,65.9315 62.8053,65.9269 62.8111,65.9226 62.8332,65.9101 62.8449,65.9014 62.8544,65.8925 62.8567,65.8877 62.8576,65.8827 62.8576,65.8778 62.8507,65.8730 62.8386,65.8693 62.7241,65.8608 62.6821,65.8623 62.5232,65.8388 62.5041,65.8309 62.1508,65.7356 62.1318,65.7281 62.1005,65.7215 62.0185,65.7171 61.8819,65.7018 61.8710,65.6990 61.8616,65.6925 61.8560,65.6866 61.8470,65.6750 61.8402,65.6692 61.7923,65.6375 61.7833,65.6333 61.7675,65.6302 61.7537,65.6257 61.7375,65.6164 61.7007,65.5848 61.6918,65.5793 61.6799,65.5742 61.6026,65.5569 61.5830,65.5489 61.5613,65.5288 61.5106,65.5005 61.4954,65.4895 61.4896,65.4838 61.4853,65.4782 61.4834,65.4729 61.4823,65.4678 61.4798,65.4626 61.4378,65.4295 61.4326,65.4239 61.4181,65.4018 61.4135,65.3965 61.4066,65.3913 61.3877,65.3805 61.2840,65.3383 61.2538,65.3194 61.2514,65.3147 61.2550,65.3105 61.2631,65.3074 61.3158,65.2951 61.3250,65.2920 61.3304,65.2877 61.3314,65.2820 61.3293,65.2764 61.3253,65.2711 61.3194,65.2668 61.2685,65.2402 61.2557,65.2306 61.2500,65.2241 61.2466,65.2179 61.2443,65.2115 61.2405,65.1919 61.2275,65.1859 61.2037,65.1805 61.1476,65.1742 61.1211,65.1674 61.1067,65.1608 61.1036,65.1545 61.1020,65.1482 61.0994,65.1423 61.0958,65.1369 61.0858,65.1272 61.0028,65.0603 60.9790,65.0483 60.9619,65.0461 60.8309,65.0514 60.8167,65.0481 60.8081,65.0438 60.8017,65.0389 60.7932,65.0287 60.7873,65.0173 60.7836,65.0058 60.7808,65.0006 60.7797,64.9994 60.7737,64.9945 60.7291,64.9660 60.7133,64.9520 60.6765,64.9123 60.6661,64.9030 60.6452,64.8912 60.6367,64.8894 60.6274,64.8900 60.6146,64.8986 60.6085,64.9054 60.6054,64.9126 60.6047,64.9188 60.6044,64.9253 60.6036,64.9316 60.6007,64.9370 60.4708,64.9920 60.4433,65.0072 60.4296,65.0185 60.4346,65.0302 60.4361,65.0362 60.4358,65.0421 60.4301,65.0476 60.4203,65.0526 60.3875,65.0611 60.3738,65.0628 60.3050,65.0714 60.2201,65.0706 60.1474,65.0648 60.1279,65.0594 60.0941,65.0466 60.0276,65.0064 59.9008,64.9084 59.8890,64.9013 59.7499,64.8589 59.7253,64.8432 59.6741,64.8021 59.6546,64.7831 59.6509,64.7779 59.6476,64.7724 59.6453,64.7665 59.6378,64.7416 59.6370,64.7345 59.6385,64.7256 59.6409,64.7190 59.6443,64.7130 59.6633,64.6978 59.6848,64.6855 59.7041,64.6677 59.6851,64.6481 59.6651,64.6411 59.6345,64.6340 59.6269,64.6305 59.6201,64.6266 59.6141,64.6224 59.6091,64.6177 59.6051,64.6126 59.5844,64.5732 59.5798,64.5682 59.5743,64.5636 59.5237,64.5370 59.5123,64.5283 59.4972,64.5141 59.4896,64.5050 59.4842,64.4973 59.4825,64.4925 59.4823,64.4869 59.4876,64.4799 59.4959,64.4760 59.5073,64.4733 59.5893,64.4671 59.5977,64.4640 59.6032,64.4596 59.6061,64.4542 59.6083,64.4484 59.6100,64.4424 59.6120,64.4299 59.6100,64.3898 59.6110,64.3806 59.6134,64.3733 59.6256,64.3577 59.6331,64.3437 59.6337,64.3364 59.6317,64.3283 59.6246,64.3182 59.6176,64.3121 59.6104,64.3070 59.6035,64.3032 59.5917,64.2947 59.5869,64.2898 59.5831,64.2821 59.5801,64.2723 59.5787,64.2545 59.5803,64.2447 59.5838,64.2373 59.5884,64.2326 59.7345,64.1534 59.7537,64.1480 59.7784,64.1460 59.8375,64.1525 59.8484,64.1520 59.8556,64.1490 59.8577,64.1415 59.8564,64.1313 59.8457,64.0949 59.8426,64.0877 59.8381,64.0801 59.8062,64.0528 59.8007,64.0464 59.7943,64.0370 59.7865,64.0211 59.7729,64.0020 59.7701,63.9996 59.7614,63.9958 59.5844,63.9383 59.5782,63.9342 59.5729,63.9272 59.5693,63.9176 59.5667,63.9000 59.5683,63.8816 59.5726,63.8567 59.5727,63.8501 59.5714,63.8426 59.5684,63.8346 59.5606,63.8246 59.5546,63.8181 59.5357,63.8046 59.5209,63.7905 59.5172,63.7832 59.5138,63.7744 59.5108,63.7588 59.5052,63.6457 59.4938,63.6105 59.4408,63.5153 59.4213,63.4896 59.3222,63.4034 59.3189,63.3982 59.3185,63.3925 59.3245,63.3860 59.3316,63.3815 59.3400,63.3777 59.3464,63.3739 59.3496,63.3694 59.3490,63.3641 59.3434,63.3601 59.3359,63.3565 59.2922,63.3422 59.2873,63.3372 59.2854,63.3311 59.2880,63.3233 59.2932,63.3179 59.3000,63.3136 59.3285,63.2992 59.3334,63.2946 59.3340,63.2859 59.3296,63.2739 59.3151,63.2512 59.2993,63.2316 59.2880,63.2224 59.2691,63.2103 59.2647,63.2053 59.2623,63.1994 59.2644,63.1915 59.2671,63.1852 59.2861,63.1527 59.2980,63.1377 59.2916,63.1235 59.2412,63.0960 59.2317,63.0891 59.2281,63.0850 59.2247,63.0789 59.2232,63.0719 59.2233,63.0625 59.2250,63.0463 59.2272,63.0373 59.2376,63.0159 59.2781,62.9702 59.2851,62.9648 59.2936,62.9612 59.3036,62.9583 59.3254,62.9544 59.4052,62.9489 59.4240,62.9439 59.4386,62.9369 59.4767,62.9068 59.4811,62.9005 59.4831,62.8924 59.4801,62.8782 59.4770,62.8696 59.4677,62.8511 59.4664,62.8448 59.4619,62.8329 59.4585,62.8275 59.4566,62.8202 59.4557,62.8113 59.4579,62.7963 59.4579,62.7864 59.4544,62.7768 59.4480,62.7718 59.4046,62.7499 59.3987,62.7457 59.3950,62.7394 59.3941,62.7314 59.3987,62.7180 59.4031,62.7102 59.4201,62.6888 59.4262,62.6779 59.4287,62.6704 59.4336,62.6464 59.4368,62.6377 59.4412,62.6311 59.4584,62.6185 59.4629,62.6138 59.5014,62.5571 59.5058,62.5523 59.5108,62.5478 59.5178,62.5442 59.5265,62.5414 59.6352,62.5225 59.6416,62.5175 59.6437,62.5103 59.6375,62.4950 59.6209,62.4682 59.5933,62.4321 59.5906,62.4256 59.5896,62.4184 59.5925,62.4080 59.6008,62.3954 59.6036,62.3900 59.6048,62.3833 59.6029,62.3756 59.5962,62.3655 59.5649,62.3350 59.5585,62.3311 59.5501,62.3281 59.5309,62.3234 59.5227,62.3205 59.5163,62.3166 59.5074,62.3068 59.4977,62.2858 59.4906,62.2612 59.4854,62.2490 59.4806,62.2402 59.4078,62.1468 59.4046,62.1403 59.4018,62.1315 59.4003,62.1244 59.4009,62.1177 59.4041,62.1080 59.4331,62.0629 59.4542,62.0381 59.4854,61.9933 59.4766,61.9728 59.4585,61.9539 59.4452,61.9445 59.4303,61.9364 59.3920,61.9087 59.3451,61.8566 59.3380,61.8446 59.3335,61.8259 59.3334,61.8196 59.3344,61.8135 59.3368,61.8079 59.3397,61.8024 59.3442,61.7976 59.3499,61.7934 59.3761,61.7786 59.3827,61.7736 59.3879,61.7675 59.3919,61.7576 59.3912,61.7505 59.3889,61.7442 59.3487,61.6822 59.2977,61.6705 59.2241,61.6454 59.1603,61.6359 59.1459,61.6313 59.1139,61.6152 59.0233,61.5524 59.0152,61.5491 59.0048,61.5471 58.9876,61.5485 58.9769,61.5513 58.9596,61.5576 58.9471,61.5579 58.9302,61.5549 58.9020,61.5460 58.8769,61.5353 58.8464,61.5153 58.8107,61.5090 58.6915,61.5027 58.1958,61.5054 57.7001,61.5082 57.2044,61.5109 57.1867,61.5094 57.1067,61.4895 57.0860,61.4880 56.7024,61.5248 56.6889,61.5245 56.6757,61.5223 56.6634,61.5138 56.6520,61.5026 56.6484,61.5010 56.6433,61.5005 56.6183,61.5009 56.6101,61.4996 56.5989,61.4958 56.5852,61.4843 56.5449,61.4351 56.5382,61.4312 56.5217,61.4304 56.4594,61.4339 56.3908,61.4202 56.3215,61.3334 56.3254,61.3168 56.3373,61.2989 56.3365,61.2842 56.3310,61.2676 56.3107,61.2355 56.2995,61.2209 56.2873,61.2094 56.2716,61.2063 56.2574,61.2063 55.8411,61.2496 55.8302,61.2489 55.8213,61.2451 55.8161,61.2357 55.8031,61.2074 55.7433,61.1140 55.7313,61.0995 55.7157,61.0883 55.6902,61.0862 55.3156,61.1230 55.2875,61.1212 55.2716,61.1094 55.2639,61.1015 55.2522,61.0716 55.2488,61.0652 55.2137,61.0190 55.2073,61.0137 55.1990,61.0095 55.1850,61.0069 55.1587,61.0068 55.0829,61.0165 55.0721,61.0150 55.0621,61.0090 55.0383,60.9533 54.9984,60.8827 54.9795,60.8638 54.6042,60.9026 54.2288,60.9414 53.8535,60.9802 53.8517,60.9624 53.8493,60.9509 53.8146,60.8609 53.8114,60.8547 53.8040,60.8499 53.7911,60.8478 53.3540,60.8934 53.3439,60.8966 53.3399,60.9032 53.3393,60.9096 53.3421,60.9223 53.3806,61.0151 53.3822,61.0215 53.3721,61.0290 53.3487,61.0373 52.8765,61.0938 52.8684,61.0826 52.8664,61.0775 52.8190,61.0026 52.8000,60.9603 52.7958,60.9542 52.7898,60.9489 52.4423,60.9796 52.4306,60.9779 52.4215,60.9718 52.4157,60.9657 52.4117,60.9591 52.3627,60.8555 52.3548,60.8439 52.3095,60.8439 51.9146,60.8833 51.9013,60.8823 51.8955,60.8799 51.8898,60.8758 51.8873,60.8703 51.8807,60.8451 51.8779,60.8388 51.8446,60.7768 51.7742,60.6056 51.7766,60.6007 51.7855,60.5968 52.1338,60.5468 52.1461,60.5404 52.1465,60.5278 52.1331,60.4912 52.1322,60.4808 52.1385,60.4728 52.1625,60.4677 52.2598,60.4584 52.2873,60.4491 52.3239,60.4321 52.3362,60.3989 52.3463,60.3848 52.3393,60.3517 52.2978,60.2416 52.4538,60.2005 52.9059,60.1835 53.3581,60.1665 53.3795,60.1713 53.4178,60.1963 53.4572,60.2048 53.4843,60.1961 53.5369,60.1705 53.5932,60.1537 53.6076,60.1427 53.7029,60.0111 53.7065,60.0012 53.7060,60.0000 53.6979,59.9810 53.6807,59.9352 53.6611,59.8368 53.6576,59.8244 53.6231,59.7544 53.5921,59.7085 53.5355,59.6966 53.4340,59.6887 53.4231,59.6842 53.4184,59.6785 53.3919,59.5776 53.3656,59.5186 53.3543,59.5008 53.3110,59.4506 53.3027,59.4432 53.2322,59.3946 53.2146,59.3787 53.2058,59.3640 53.2169,59.3186 53.2269,59.2980 53.3346,59.1852 53.3457,59.1768 53.3739,59.1616 53.4027,59.1496 53.4227,59.1450 53.4337,59.1438 53.4896,59.1482 53.4977,59.1477 53.7161,59.0938 53.7200,59.0939 53.7186,59.0968 53.6914,59.1197 53.6930,59.1221 53.6995,59.1229 53.7161,59.1266 53.7455,59.1371 53.7540,59.1410 53.8028,59.1159 53.8261,59.1142 53.8348,59.1159 53.8446,59.1165 53.8512,59.1141 53.8572,59.1105 53.8693,59.1004 53.8765,59.0928 53.8749,59.0879 53.8702,59.0837 53.8569,59.0766 53.8449,59.0682 53.8412,59.0614 53.8393,59.0532 53.8419,59.0395 53.8403,59.0332 53.8337,59.0298 53.7833,59.0260 53.7744,59.0242 53.7666,59.0215 53.7608,59.0171 53.7564,59.0119 53.7532,59.0065 53.7495,58.9993 53.7411,58.9879 53.7364,58.9780 53.7319,58.9646 53.7257,58.9385 53.7249,58.9259 53.7265,58.9168 53.7348,58.9023 53.7421,58.8931 53.7504,58.8786 53.7539,58.8740 53.7718,58.8566 53.7758,58.8536 53.7860,58.8460 53.8004,58.8354 53.8069,58.8292 53.8139,58.8248 53.8213,58.8211 53.8823,58.8067 53.8907,58.8037 53.8978,58.8003 53.9166,58.7882 53.9220,58.7828 53.9195,58.7786 53.9145,58.7747 53.8792,58.7595 53.8690,58.7527 53.8046,58.7335 53.7768,58.7201 53.7709,58.7158 53.7501,58.6968 53.7465,58.6901 53.7461,58.6813 53.7527,58.6582 53.7508,58.6491 53.7462,58.6438 53.7056,58.6133 53.7032,58.6056 53.7047,58.5950 53.7585,58.5066 53.7651,58.4979 53.7718,58.4834 53.7846,58.4399 53.7847,58.4080 53.7856,58.4024 53.7957,58.3919 53.8752,58.3336 53.8860,58.3191 53.8450,58.2810 53.8208,58.2500 53.8102,58.2281 53.8347,58.2109 53.8527,58.2029 53.8790,58.1945 53.8867,58.1902 53.8926,58.1845 53.8998,58.1671 53.9044,58.1599 53.9226,58.1461 53.9290,58.1394 53.9321,58.1293 53.9347,58.1099 53.9366,58.1048 53.9414,58.0985 53.9903,58.0540 54.0180,58.0345 54.0872,57.9942 54.0924,57.9900 54.0994,57.9717 54.0869,57.9253 54.0893,57.9089 54.0994,57.8881 54.1365,57.8294 54.1336,57.8038 54.1334,57.7910 54.1385,57.7709 54.1467,57.7529 54.1523,57.7258 54.1554,57.7139 54.1563,57.7062 54.1553,57.7039 54.1522,57.7011 54.1432,57.6973 54.1121,57.6947 54.1033,57.6930 54.0955,57.6902 54.0887,57.6865 54.0828,57.6822 54.0786,57.6750 54.0762,57.6660 54.0800,57.6488 54.0848,57.6402 54.0910,57.6339 54.0978,57.6305 54.1176,57.6228 54.1185,57.6200 54.1166,57.6157 54.1062,57.6099 54.0960,57.6074 54.0563,57.6032 54.0479,57.6011 54.0415,57.5975 54.0359,57.5932 54.0293,57.5898 54.0203,57.5884 53.9978,57.5871 53.9917,57.5848 53.9891,57.5802 53.9900,57.5732 53.9951,57.5686 54.0049,57.5661 54.0263,57.5649 54.0356,57.5628 54.0420,57.5588 54.0426,57.5477 54.0396,57.5408 54.0386,57.5348 54.0395,57.5308 54.0626,57.5255 54.0753,57.5246 54.0915,57.5215 54.0990,57.5213 54.1030,57.5254 54.1056,57.5309 54.1114,57.5495 54.1146,57.5544 54.1203,57.5581 54.1287,57.5599 54.1382,57.5610 54.1587,57.5607 54.1684,57.5589 54.1764,57.5559 54.1823,57.5523 54.1918,57.5441 54.1956,57.5397 54.1989,57.5351 54.1993,57.5301 54.1946,57.5247 54.1879,57.5208 54.1802,57.5180 54.1736,57.5140 54.1689,57.5085 54.1686,57.4986 54.1693,57.4917 54.1721,57.4801 54.1740,57.4749 54.1770,57.4702 54.1810,57.4658 54.1885,57.4627 54.1987,57.4609 54.2092,57.4605 54.2188,57.4615 54.2260,57.4646 54.2325,57.4680 54.2402,57.4700 54.2494,57.4699 54.2577,57.4677 54.2636,57.4640 54.2673,57.4591 54.2701,57.4533 54.2729,57.4392 54.2732,57.4330 54.2708,57.4273 54.2652,57.4217 54.2423,57.4123 54.1574,57.3922 54.1424,57.3748 54.1192,57.3093 54.1582,57.3143 54.1686,57.3144 54.1899,57.3112 54.2079,57.3061 54.2178,57.3045 54.2584,57.3049 54.2813,57.3021 54.3003,57.2971 54.3079,57.2941 54.3143,57.2905 54.3193,57.2864 54.3228,57.2820 54.3250,57.2761 54.3250,57.2691 54.3206,57.2584 54.3162,57.2512 54.3135,57.2438 54.3138,57.2355 54.3228,57.2239 54.3272,57.2102 54.3225,57.1966 54.3224,57.1854 54.3261,57.1605 54.3250,57.1481 54.3231,57.1384 54.3177,57.1272 54.3126,57.1231 54.3053,57.1208 54.2882,57.1172 54.2810,57.1147 54.2766,57.1101 54.2767,57.1036 54.2811,57.0943 54.2868,57.0882 54.2947,57.0836 54.3086,57.0808 54.3538,57.0779 54.3639,57.0760 54.3729,57.0734 54.3801,57.0701 54.3862,57.0664 54.3906,57.0624 54.3939,57.0578 54.3998,57.0429 54.3962,57.0380 54.3728,57.0189 54.3411,57.0119 54.2066,57.0090 54.1752,57.0032 54.1306,56.9774 54.1136,56.9730 54.0986,56.9659 54.0884,56.9487 54.0875,56.9360 54.0952,56.8971 54.0924,56.8690 54.0880,56.8470 54.0871,56.8252 54.0952,56.7978 54.0903,56.7853 54.0884,56.7712 54.0457,56.7530 53.9959,56.7361 53.9495,56.7397 53.9171,56.7774 53.9083,56.7790 53.9038,56.7821 53.8923,56.7934 53.8826,56.8014 53.8719,56.8068 53.8582,56.8090 53.8468,56.8095 53.8217,56.7995 53.8198,56.7831 53.8453,56.7533 53.8601,56.7314 53.8691,56.7132 53.8716,56.7054 53.8728,56.6981 53.8733,56.6900 53.8724,56.6797 53.8693,56.6714 53.8632,56.6635 53.8548,56.6560 53.8477,56.6473 53.8446,56.6381 53.8494,56.6284 53.8609,56.6205 53.8818,56.6185 53.9132,56.6257 53.9269,56.6262 53.9375,56.6249 53.9470,56.6252 53.9538,56.6279 53.9591,56.6316 53.9982,56.6737 54.0046,56.6785 54.0155,56.6843 54.0260,56.6853 54.0377,56.6825 54.0463,56.6742 54.0557,56.6709 54.0758,56.6688 54.0838,56.6637 54.0881,56.6501 54.0901,56.6356 54.0844,56.6248 54.0752,56.6171 54.0442,56.6005 54.0406,56.5957 54.0411,56.5925 54.0483,56.5908 54.0660,56.5897 54.0747,56.5869 54.0826,56.5808 54.0888,56.5616 54.0935,56.5554 54.1024,56.5484 54.1211,56.5392 54.1343,56.5356 54.1478,56.5343 54.1683,56.5345 54.1793,56.5274 54.1906,56.5131 54.2204,56.4583 54.2450,56.4319 54.2664,56.4376 54.3050,56.4580 54.3179,56.4513 54.3286,56.4429 54.3525,56.3585 54.3419,56.3534 54.3255,56.3487 54.3206,56.3448 54.3197,56.3390 54.3286,56.3245 54.3326,56.3200 54.3365,56.3178 54.3426,56.3157 54.3614,56.3116 54.3686,56.3068 54.3714,56.2993 54.3676,56.2836 54.3639,56.2748 54.3458,56.2526 54.3203,56.2435 54.2667,56.2315 54.2531,56.2260 54.1933,56.1934 54.1845,56.1883 54.1172,56.1582 54.0986,56.1437 54.0829,56.1230 54.0468,56.0580 54.0058,56.0289 53.9489,56.0222 53.8879,56.0317 53.8572,56.0429 53.8474,56.0404 53.8378,56.0386 53.8218,56.0245 53.8004,56.0003 53.7994,55.9989 53.7982,55.9964 53.7917,55.9793 53.7859,55.9739 53.7774,55.9702 53.6967,55.9651 53.6791,55.9615 53.6707,55.9584 53.6614,55.9534 53.6548,55.9486 53.6455,55.9366 53.6317,55.9067 53.6518,55.9029 53.6950,55.8841 53.7261,55.8771 53.7460,55.8665 53.7594,55.8662 53.7627,55.8693 53.7670,55.8757 53.7729,55.8824 53.7805,55.8867 53.8015,55.8867 53.8242,55.8818 53.8470,55.8794 53.8687,55.8867 53.8823,55.8798 53.8812,55.8728 53.8917,55.8651 53.9123,55.8503 53.9197,55.8477 53.9309,55.8470 53.9764,55.8527 53.9858,55.8511 53.9938,55.8478 53.9973,55.8407 53.9965,55.8370 53.9916,55.8333 53.9851,55.8308 53.9790,55.8272 53.9752,55.8217 53.9647,55.7975 53.9620,55.7910 53.9655,55.7824 53.9833,55.7854 54.0201,55.8047 54.0399,55.8021 54.0476,55.7915 54.0429,55.7774 54.0263,55.7638 54.0492,55.7580 54.0769,55.7656 54.0952,55.7729 54.1033,55.7674 54.1037,55.7671 54.1096,55.7575 54.1183,55.7493 54.1535,55.7275 54.1582,55.7233 54.1658,55.7146 54.1705,55.7106 54.1768,55.7070 54.1931,55.7014 54.2249,55.6964 54.2309,55.6925 54.2296,55.6861 54.1943,55.6605 54.1897,55.6549 54.1870,55.6466 54.1847,55.6336 54.1808,55.6281 54.1745,55.6236 54.1631,55.6203 54.1436,55.6172 54.1361,55.6150 54.1291,55.6120 54.1167,55.6049 54.0898,55.5929 54.0536,55.5707 54.0467,55.5679 54.0087,55.5571 54.0031,55.5544 53.9997,55.5503 53.9969,55.5443 53.9956,55.5322 53.9973,55.5121 53.9956,55.5053 53.9911,55.4978 53.9795,55.4876 53.9708,55.4818 53.9430,55.4672 53.9387,55.4611 53.9356,55.4526 53.9338,55.4287 53.9238,55.4127 53.9071,55.3932 53.8910,55.3812 53.8458,55.3670 53.7227,55.3377 53.7140,55.3335 53.7038,55.3251 53.6979,55.3182 53.6859,55.3003 53.6813,55.2954 53.6759,55.2912 53.6432,55.2764 53.6030,55.2598 53.5977,55.2547 53.5952,55.2490 53.5951,55.2434 53.5977,55.2273 53.5974,55.2217 53.5954,55.2166 53.5914,55.2119 53.5802,55.2080 53.5636,55.2051 53.5120,55.2018 53.5004,55.2026 53.4950,55.2043 53.4887,55.2069 53.4651,55.2197 53.4575,55.2213 53.4184,55.2220 53.4033,55.2187 53.3856,55.2122 53.3534,55.1956 53.3430,55.1866 53.3395,55.1792 53.3418,55.1745 53.3383,55.1702 53.3269,55.1665 53.2668,55.1647 53.1607,55.1514 53.1468,55.1466 53.1439,55.1318 53.1443,55.1221 53.1439,55.1172 53.1405,55.1043 53.1411,55.0989 53.1473,55.0947 53.2124,55.0800 53.2185,55.0774 53.2435,55.0596 53.2517,55.0549 53.2618,55.0509 53.2646,55.0442 53.2637,55.0391 53.2609,55.0349 53.2593,55.0321 53.2579,55.0278 53.2587,55.0231 53.2602,55.0182 53.2638,55.0141 53.2692,55.0120 53.2777,55.0122 53.2839,55.0134 53.2903,55.0151 53.2937,55.0172 53.2956,55.0173 53.2968,55.0158 53.2990,55.0101 53.3040,55.0056 53.3117,55.0024 53.3247,55.0017 53.3527,55.0055 53.3717,55.0058 53.3831,55.0033 53.3959,54.9988 53.4135,54.9887 53.4219,54.9822 53.4275,54.9763 53.4303,54.9716 53.4643,54.9317 53.4801,54.9203 53.4841,54.9160 53.4860,54.9109 53.4872,54.9055 53.4893,54.9005 53.4933,54.8957 53.4993,54.8913 53.5150,54.8884 53.5335,54.8886 53.5958,54.9006 53.6428,54.8999 53.5787,54.8222 53.5818,54.8151 53.5898,54.8127 53.5970,54.8092 53.6032,54.8071 53.6011,54.7832 53.5930,54.7819 53.5875,54.7787 53.5825,54.7723 53.5808,54.7594 53.5815,54.7514 53.5859,54.7459 53.5970,54.7402 53.6010,54.7369 53.6042,54.7328 53.6069,54.7281 53.6075,54.7216 53.6056,54.7137 53.5976,54.7010 53.5911,54.6936 53.5849,54.6877 53.5624,54.6712 53.5528,54.6619 53.5150,54.6155 53.5054,54.6074 53.4618,54.5828 53.4512,54.5745 53.4451,54.5711 53.4380,54.5686 53.4225,54.5646 53.4168,54.5595 53.4141,54.5515 53.4163,54.5366 53.4215,54.5210 53.4236,54.5161 53.4261,54.5061 53.4265,54.5020 53.4259,54.4988 53.4187,54.4844 53.4132,54.4782 53.4070,54.4731 53.3955,54.4657 53.3909,54.4616 53.3876,54.4569 53.3791,54.4263 53.3736,54.4183 53.3676,54.4124 53.3569,54.4040 53.3524,54.3989 53.3493,54.3913 53.3478,54.3816 53.3528,54.3488 53.3556,54.3413 53.3611,54.3325 53.3736,54.3178 53.4075,54.2879 53.4247,54.2770 53.4283,54.2708 53.4303,54.2657 53.4197,54.2393 53.4159,54.2264 53.4174,54.2195 53.4311,54.1930 53.4323,54.1856 53.4315,54.1740 53.4299,54.1656 53.4305,54.1565 53.4329,54.1477 53.4472,54.1266 53.4526,54.1206 53.4560,54.1145 53.4581,54.1064 53.4572,54.0919 53.4548,54.0758 53.4571,54.0662 53.4705,54.0457 53.4097,54.0148 53.3947,54.0019 53.3943,54.0003 53.3907,53.9854 53.3884,53.9792 53.3845,53.9738 53.3791,53.9702 53.3717,53.9692 53.3631,53.9731 53.3571,53.9771 53.3411,54.0022 53.2915,54.0241 53.2860,54.0286 53.2826,54.0344 53.2817,54.0427 53.2821,54.0497 53.2792,54.0567 53.2731,54.0631 53.2585,54.0714 53.2463,54.0749 53.2346,54.0766 53.2138,54.0779 53.2049,54.0801 53.1978,54.0840 53.1937,54.0908 53.1859,54.0940 53.1794,54.0936 53.1414,54.0762 53.1179,54.0702 53.1004,54.0682 53.0811,54.0680 53.0733,54.0699 53.0672,54.0735 53.0697,54.0814 53.0736,54.0872 53.0832,54.0976 53.0869,54.1030 53.0889,54.1089 53.0879,54.1149 53.0811,54.1204 53.0720,54.1225 53.0521,54.1238 53.0427,54.1253 53.0352,54.1281 53.0304,54.1319 53.0259,54.1362 53.0220,54.1406 53.0044,54.1568 52.9512,54.1958 52.9424,54.2041 52.9396,54.2087 52.9384,54.2138 52.9416,54.2192 52.9478,54.2241 52.9616,54.2278 52.9703,54.2287 52.9783,54.2284 52.9868,54.2272 53.0152,54.2203 53.0229,54.2199 53.0295,54.2226 53.0325,54.2313 53.0360,54.2375 53.0446,54.2424 53.0546,54.2427 53.0861,54.2405 53.0948,54.2413 53.1024,54.2435 53.1075,54.2470 53.1096,54.2517 53.1052,54.2594 53.1028,54.2659 53.1050,54.2735 53.1068,54.2864 53.0920,54.3085 53.0863,54.3142 53.0591,54.3343 53.0527,54.3371 53.0456,54.3387 53.0366,54.3363 53.0295,54.3334 53.0171,54.3258 53.0117,54.3217 53.0071,54.3173 53.0037,54.3131 53.0038,54.3096 53.0053,54.3074 53.0197,54.2973 53.0238,54.2933 53.0263,54.2890 53.0244,54.2840 53.0213,54.2789 53.0130,54.2743 53.0009,54.2710 52.9360,54.2685 52.9210,54.2704 52.8979,54.2755 52.8890,54.2827 52.8881,54.2882 52.8942,54.2915 52.9270,54.2911 52.9317,54.2952 52.9339,54.3004 52.9331,54.3060 52.9254,54.3105 52.8570,54.3204 52.7711,54.3470 52.7528,54.3498 52.6772,54.3532 52.6561,54.3508 52.6426,54.3474 52.6366,54.3442 52.6290,54.3430 52.6203,54.3448 52.5940,54.3580 52.5385,54.3772 52.5289,54.3575 52.5240,54.3434 52.5225,54.3370 52.5196,54.3310 52.5150,54.3258 52.5057,54.3225 52.4989,54.3215 52.4906,54.3219 52.4617,54.3272 52.4182,54.3308 52.3805,54.3286 52.3478,54.3218 52.3389,54.3210 52.3288,54.3214 52.2898,54.3280 52.2801,54.3277 52.2715,54.3266 52.2570,54.3216 52.2375,54.3122 52.2077,54.3029 52.2037,54.2986 52.2043,54.2929 52.2174,54.2825 52.2296,54.2778 52.3142,54.2559 52.3208,54.2520 52.3269,54.2475 52.3374,54.2358 52.3455,54.2249 52.3486,54.2174 52.3534,54.2005 52.3540,54.1950 52.3528,54.1886 52.3393,54.1742 52.3027,54.1638 52.2924,54.1620 52.2716,54.1560 52.2653,54.1529 52.2606,54.1491 52.2595,54.1440 52.2598,54.1387 52.2632,54.1282 52.2663,54.1230 52.2712,54.1184 52.2811,54.1146 52.2901,54.1140 52.2993,54.1147 52.3664,54.1312 52.3869,54.1300 52.3965,54.1280 52.4042,54.1251 52.4095,54.1214 52.4141,54.1173 52.4315,54.0954 52.4371,54.0911 52.4448,54.0875 52.4764,54.0771 52.4810,54.0725 52.4841,54.0667 52.4847,54.0585 52.4819,54.0515 52.4748,54.0450 52.4339,54.0257 52.4102,54.0115 52.3796,53.9855 52.3755,53.9805 52.3745,53.9740 52.3779,53.9659 52.3879,53.9586 52.3937,53.9551 52.4008,53.9521 52.4094,53.9446 52.4125,53.9274 52.3793,53.8822 52.3519,53.8276 52.3433,53.7947 52.3393,53.7872 52.3332,53.7794 52.2932,53.7428 52.2881,53.7368 52.2828,53.7292 52.2609,53.6853 52.2592,53.6811 52.2589,53.6775 52.2598,53.6734 52.2601,53.6680 52.2579,53.6614 52.2535,53.6543 52.2436,53.6466 52.2364,53.6424 52.2284,53.6385 52.2254,53.6366 52.2195,53.6302 52.2114,53.6193 52.2019,53.6012 52.1938,53.5812 52.1923,53.5746 52.1888,53.5677 52.1832,53.5611 52.1717,53.5543 52.1620,53.5510 52.1514,53.5501 52.1113,53.5503 52.1016,53.5471 52.0927,53.5409 52.0852,53.5237 52.0800,53.5141 52.0777,53.5061 52.0792,53.5012 52.0861,53.4947 52.0923,53.4913 52.0941,53.4648 52.1270,53.4517 52.1335,53.4445 52.1385,53.4336 52.1456,53.4111 52.1529,53.4012 52.1613,53.3947 52.1842,53.3863 52.1898,53.3817 52.1926,53.3752 52.1901,53.3632 52.1737,53.3230 52.1653,53.3103 52.1431,53.2969 52.1421,53.2894 52.1430,53.2861 52.1605,53.2709 52.1628,53.2607 52.1625,53.2555 52.1605,53.2486 52.1561,53.2420 52.1458,53.2348 52.1300,53.2267 52.1259,53.2217 52.1251,53.2139 52.1254,53.2075 52.1281,53.1961 52.1313,53.1856 52.1313,53.1799 52.1284,53.1739 52.1183,53.1668 52.1096,53.1631 52.0690,53.1539 52.0623,53.1508 52.0585,53.1463 52.0586,53.1391 52.0622,53.1343 52.0687,53.1304 52.0777,53.1283 52.1300,53.1245 52.1484,53.1214 52.1543,53.1180 52.1574,53.1136 52.1592,53.1083 52.1579,53.1026 52.1532,53.0968 52.1408,53.0915 52.1304,53.0892 52.0755,53.0838 52.0687,53.0807 52.0635,53.0755 52.0606,53.0669 52.0595,53.0598 52.0638,53.0136 52.0632,53.0080 52.0609,52.9997 52.0525,52.9934 52.0319,52.9843 52.0233,52.9820 51.9819,52.9753 51.9726,52.9713 51.9431,52.9518 51.9313,52.9460 51.9211,52.9427 51.9073,52.9412 51.8804,52.9346 51.8676,52.9292 51.8621,52.9261 51.8222,52.8851 51.8085,52.8767 51.7961,52.8724 51.7522,52.8765 51.7425,52.8764 51.7342,52.8742 51.7280,52.8695 51.7228,52.8615 51.7196,52.8542 51.7151,52.8403 51.7150,52.8331 51.7175,52.8262 51.7255,52.8181 51.7336,52.8135 51.7679,52.8030 51.7721,52.7963 51.7717,52.7832 51.7631,52.7607 51.7535,52.7222 51.7535,52.7149 51.7507,52.7037 51.7428,52.6851 51.7361,52.6736 51.7323,52.6684 51.7270,52.6644 51.7197,52.6615 51.7105,52.6594 51.6616,52.6532 51.6512,52.6544 51.6392,52.6583 51.6005,52.6833 51.5766,52.6883 51.5522,52.6837 51.5452,52.6814 51.5398,52.6769 51.5359,52.6707 51.5339,52.6602 51.5308,52.6525 51.5238,52.6457 51.5120,52.6367 51.5098,52.6313 51.5113,52.6242 51.5182,52.6140 51.5330,52.5964 51.5457,52.5839 51.5476,52.5791 51.5458,52.5743 51.5380,52.5700 51.5290,52.5686 51.5195,52.5696 51.5116,52.5718 51.4964,52.5786 51.4898,52.5802 51.4821,52.5802 51.4754,52.5765 51.4714,52.5691 51.4702,52.5553 51.4712,52.5274 51.4742,52.5167 51.4770,52.5121 51.4804,52.5076 51.4845,52.5039 51.4920,52.4994 51.5209,52.4890 51.5274,52.4859 51.5389,52.4788 51.5437,52.4748 51.5515,52.4663 51.5581,52.4572 51.5627,52.4473 51.5609,52.4413 51.5553,52.4353 51.5399,52.4288 51.4770,52.4176 51.4705,52.4149 51.4661,52.4111 51.4653,52.4042 51.4668,52.3987 51.4721,52.3886 51.4740,52.3835 51.4749,52.3781 51.4699,52.3713 51.4599,52.3646 51.4129,52.3500 51.4107,52.3388 51.4149,52.3233 51.4146,52.3045 51.4068,52.2571 51.4170,52.2472 51.4262,52.2428 51.4407,52.2384 51.4476,52.2355 51.4516,52.2268 51.4526,52.2193 51.4375,52.1682 51.4152,52.1027 51.3991,52.0899 51.3699,52.0720 51.1440,51.9610 51.1223,51.9412 51.1125,51.9352 51.0423,51.9204 51.0344,51.9173 51.0268,51.9127 51.0035,51.8881 50.9964,51.8843 50.8977,51.8514 50.7933,51.7783 50.7669,51.7593 50.7442,51.7424 50.7474,51.7090 50.7945,51.6260 50.7907,51.5973 50.7643,51.5787 50.7200,51.5674 50.6965,51.5656 50.6709,51.5675 50.6587,51.5762 50.6750,51.5944 50.6942,51.6112 50.6858,51.6156 50.6393,51.6162 50.5998,51.6347 50.5817,51.6353 50.5776,51.6134 50.5757,51.5884 50.5619,51.5807 50.5428,51.5774 50.5254,51.5656 50.5222,51.5508 50.5314,51.4927 50.5272,51.4701 50.5183,51.4598 50.5027,51.4561 50.4790,51.4537 50.4711,51.4361 50.4575,51.4269 50.4392,51.4230 50.3796,51.4212 50.3674,51.4190 50.3596,51.4133 50.3644,51.4069 50.3729,51.4010 50.3762,51.3970 50.3619,51.3874 50.3467,51.3812 50.3376,51.3720 50.3404,51.3529 50.3474,51.3352 50.3489,51.3226 50.3423,51.3127 50.3254,51.3035 50.2075,51.2659 50.0288,51.2430 49.9869,51.2298 49.8428,51.1507 49.7959,51.1096 49.7791,51.1022 49.5397,51.1008 49.4601,51.1162 49.4365,51.1123 49.4231,51.1020 49.4106,51.0855 49.4010,51.0671 49.3927,51.0342 49.3833,51.0194 49.3591,50.9927 49.3474,50.9643 49.3715,50.9394 49.4055,50.9135 49.4237,50.8821 49.4084,50.8483 49.3694,50.8268 49.2837,50.8037 49.1441,50.7817 49.1024,50.7580 49.0127,50.6834 48.8304,50.5960 48.7863,50.5906 48.7396,50.5975 48.6088,50.6479 48.5840,50.6496 48.5683,50.6365 48.5729,50.6169 48.5974,50.6080 48.6485,50.6016 48.6734,50.5795 48.6787,50.5485 48.6744,50.4785 48.7013,50.3346 48.7289,50.2654 48.7710,50.2110 48.7890,50.1730 48.7810,50.1376 48.7828,50.1115 48.8518,50.0973 48.8655,50.0862 48.8741,50.0698 48.8859,50.0304 48.8857,50.0199 48.8782,50.0100 48.8620,49.9929 48.7846,49.9334 48.6835,49.8955 48.4791,49.8432 48.4659,49.8358 48.4428,49.8150 48.4299,49.8097 48.4176,49.8117 48.3595,49.8340 48.3122,49.8636 48.3029,49.8667 48.2740,49.8631 48.2393,49.8648 48.2271,49.8795 48.2199,49.9015 48.2004,49.9250 48.1609,49.9465 48.1493,49.9549 48.1424,49.9638 48.1322,49.9837 48.1253,49.9930 48.1125,50.0220 48.1060,50.0506 48.0964,50.0785 48.0746,50.1053 48.0247,50.1313 48.0122,50.1421 48.0051,50.1560 48.0004,50.1697 47.9932,50.1818 47.9536,50.2049 47.9134,50.2439 47.8741,50.2664 47.8545,50.2850 47.8082,50.3199 47.7960,50.3248 47.7765,50.3298 47.7669,50.3372 47.7603,50.3472 47.7491,50.3602 47.7349,50.3701 47.6900,50.3863 47.6247,50.4408 47.5993,50.4527 47.5569,50.4526 47.5115,50.4369 47.4698,50.4118 47.4389,50.3832 47.4063,50.3342 47.3922,50.3232 47.3229,50.3045 47.3057,50.2949 47.2948,50.2754 47.3032,50.2635 47.3170,50.2529 47.3223,50.2374 47.3126,50.2224 47.2763,50.1999 47.2651,50.1863 47.2731,50.1584 47.3276,50.1093 47.3286,50.0730 47.3087,50.0448 47.2456,49.9924 47.1774,49.9472 46.9586,49.8841 46.9226,49.8614 46.8999,49.8203 46.8375,49.5764 46.7751,49.3325 46.8307,49.3183 46.9792,49.2443 47.0286,49.2015 47.0400,49.1503 47.0209,49.0968 46.9792,49.0473 46.9300,49.0040 46.9110,48.9928 46.8881,48.9805 46.8129,48.9538 46.7780,48.9360 46.7538,48.9141 46.6166,48.6630 46.4793,48.4119 46.4786,48.4112 46.4783,48.4106 46.4786,48.4102 46.4793,48.4102 46.7293,48.3521 46.9792,48.2940 47.0783,48.2753 47.0989,48.2654 47.1118,48.2510 47.1121,48.2422 47.1121,48.2416 47.0986,48.2226 47.0920,48.2173 47.0815,48.2118 47.0752,48.2051 47.0803,48.1960 47.1026,48.1803 47.1088,48.1740 47.1165,48.1539 47.1116,48.1362 47.1041,48.1192 47.1036,48.1012 47.1195,48.0883 47.1739,48.0842 47.1920,48.0718 47.1782,48.0518 47.1371,48.0273 47.0584,47.9945 47.0442,47.9862 47.0512,47.9746 47.1217,47.9154 47.1553,47.8774 47.1587,47.8715 47.1567,47.8632 47.1517,47.8591 47.1452,47.8558 47.1383,47.8496 47.1252,47.8321 47.1195,47.8198 47.1238,47.8080 47.1406,47.7927 47.1745,47.7705 47.3597,47.6833 47.3742,47.6858 47.3829,47.7054 47.3894,47.7516 47.3888,47.8119 47.3942,47.8268 47.4122,47.8359 47.4353,47.8344 47.6497,47.7656 48.0445,47.7697 48.1125,47.7485 48.1744,47.7129 48.3606,47.4931 48.3610,47.4929 48.4111,47.4458 48.4375,47.4292 48.4732,47.4204 48.5103,47.4174 48.5251,47.4102 48.5358,47.3935 48.5462,47.3694 48.6973,47.1010 49.0032,46.7725 49.0063,46.7691 48.9481,46.7199 48.9169,46.7026 48.7640,46.6828 48.7395,46.6906 48.7127,46.7288 48.6973,46.7451 48.6766,46.7580 48.6182,46.7704 48.5567,46.7617 48.5058,46.7326 48.4791,46.6835 48.4551,46.6608 48.4740,46.6592 48.4935,46.6535 48.5300,46.6382 48.5392,46.6280 48.5419,46.6133 48.5469,46.5993 48.5630,46.5913 48.5394,46.5680 48.5732,46.5583 48.6652,46.5572 48.7050,46.5504 48.7329,46.5340 48.7586,46.5131 48.8196,46.4793 48.8441,46.4785 48.8687,46.4824 48.8970,46.4822 48.9180,46.4743 48.9599,46.4453 49.0332,46.4049 49.2271,46.3279 49.2638,46.2933 49.2959,46.2747 49.3060,46.2631 49.3060,46.2630 49.3065,46.2629 49.3637,46.2477 49.3929,46.2399 49.4263,46.2281 49.5048,46.1922 49.5450,46.1800 49.6000,46.1767 49.6217,46.1783 49.7017,46.1867 49.7100,46.1767 49.7267,46.1617 49.7317,46.1567 49.7783,46.1183 49.8283,46.0850 49.8500,46.0700 49.9517,46.0017 50.0167,45.9850 49.7852,45.7398 49.6051,45.5491 49.4250,45.3583 49.4167,45.3550 49.3533,45.2883 49.2967,45.2250 49.2783,45.2050 49.1750,45.0983 49.1733,45.0400 49.1650,44.9183 49.1633,44.8333 49.1550,44.6767 49.1333,44.4233 49.0883,44.3333 49.3442,44.3333 49.6000,44.3333 49.6000,44.0667 49.3000,44.0667 49.0000,44.0667 49.0000,43.6933 49.0000,43.3200 49.3350,43.2833 49.3433,43.2750 49.3567,43.2633 49.4500,43.1933 49.4650,43.1717 49.4917,43.1367 49.4983,43.1300 49.7492,42.9400 50.0000,42.7500 49.8883,42.5600 50.0050,42.4300 50.0283,42.4083 50.0633,42.3717 50.0900,42.3483 50.1067,42.3367 50.1150,42.3283 50.1683,42.2833 50.1800,42.2733 50.2917,42.1850 50.3083,42.1733 50.3933,42.1083 50.4233,42.0867 50.6000,41.9650 50.6133,41.9567 50.6333,41.9433 50.6450,41.9300 50.6867,41.8867 50.6983,41.8550 50.7033,41.8433 50.7183,41.7967 50.8400,41.6517 50.9433,41.5400 51.0453,41.1335 51.1473,40.7271 51.2493,40.3206 51.3513,39.9142 51.4532,39.5077 51.5552,39.1012 51.1496,38.9886 50.7440,38.8760 50.3384,38.7634 49.9327,38.6508 49.5271,38.5382 49.1215,38.4256 48.9683,38.4148 48.9605,38.4245 48.9581,38.4275 48.8752,38.4194 48.8748,38.4198 48.8581,38.4367 48.8388,38.4399 48.8097,38.4446 48.7777,38.4448 48.7553,38.4352 48.7356,38.4196 48.7103,38.4071 48.6832,38.3980 48.6591,38.3926 48.6130,38.3956 48.6079,38.3960 48.5759,38.4204 48.5486,38.4563 48.5356,38.4692 48.5108,38.4938 48.4959,38.5103 48.4791,38.5248 48.4627,38.5449 48.4466,38.5564 48.4337,38.5700 48.4267,38.5965 48.4153,38.6181 48.3918,38.6181 48.3411,38.5996 48.3103,38.6002 48.2922,38.6136 48.2765,38.6318 48.2280,38.6622 48.2262,38.6791 48.2303,38.6986 48.2256,38.7132 48.2230,38.7215 48.2104,38.7298 48.0780,38.7809 48.0130,38.8216 47.9931,38.8501 47.9907,38.8912 48.0000,38.9026 48.0524,38.9279 48.0553,38.9344 48.0551,38.9419 48.0585,38.9484 48.2432,38.9739 48.2844,38.9938 48.2844,38.9938 48.2845,38.9940 48.2845,38.9940 48.2846,38.9940 48.2937,39.0046 48.3014,39.0175 48.3016,39.0179 48.3063,39.0315 48.3068,39.0454 48.3015,39.0580 48.2713,39.1083 48.2563,39.1198 48.1991,39.1382 48.1422,39.1812 48.1178,39.2080 48.1043,39.2348 48.1062,39.2692 48.1246,39.2976 48.1535,39.3190 48.1872,39.3326 48.2499,39.3424 48.3025,39.3699 48.3284,39.3763 48.3389,39.3789 48.3167,39.4152 48.2886,39.4450 48.2201,39.4940 48.0520,39.6501 47.9907,39.6943 47.9714,39.7046 47.9573,39.7073 47.9457,39.6940 47.9352,39.6865 47.9229,39.6841 47.8469,39.6853 47.8231,39.6803 47.8038,39.6699 47.7453,39.6238 47.6070,39.5636 47.5541,39.5220 47.5412,39.5152 47.5187,39.5132 47.5155,39.5123 47.4488,39.4947 47.4069,39.4768 47.3742,39.4556 47.3245,39.4060 47.2914,39.3796 47.2497,39.3613 47.2278,39.3547 47.1501,39.3311 47.1022,39.3084 47.0925,39.2998 47.0891,39.2899 47.0529,39.2449 47.0361,39.2070 47.0309,39.1996 47.0205,39.1900 47.0136,39.1870 46.9538,39.1607 46.9416,39.1589 46.9266,39.1621 46.8987,39.1717 46.8830,39.1714 46.8662,39.1654 46.8510,39.1555 46.8374,39.1432 46.8117,39.1085 46.8060,39.1024 46.7981,39.0974 46.7815,39.0904 46.7738,39.0854 46.7616,39.0706 46.7448,39.0403 46.7284,39.0280 46.6704,39.0049 46.6522,38.9929 46.6388,38.9795 46.6107,38.9340 46.5992,38.9197 46.5854,38.9077 46.5698,38.8977 46.5537,38.8898 46.5321,38.8830 46.5140,38.8822 46.4961,38.8861 46.3919,38.9224 46.3782,38.9247 46.3676,38.9236 46.3434,38.9175 46.3045,38.9163 46.2913,38.9139 46.2719,38.9066 46.2199,38.8772 46.2025,38.8705 46.1359,38.8637 46.1261,38.8627 46.0680,38.8741 46.0018,38.8975 45.7911,38.9321 45.7169,38.9548 45.6278,38.9555 45.5708,38.9664 45.5431,38.9671 45.5308,38.9693 45.5103,38.9787 45.4945,38.9819 45.4826,38.9844 45.4598,38.9931 45.4386,39.0042 45.4271,39.0149 45.4253,39.0256 45.4282,39.0341 45.4323,39.0425 45.4345,39.0528 45.4297,39.0595 45.4058,39.0679 45.3964,39.0733 45.3913,39.0817 45.3835,39.1032 45.3793,39.1112 45.3699,39.1190 45.3606,39.1232 45.3519,39.1283 45.3453,39.1384 45.3539,39.1532 45.3482,39.1639 45.3349,39.1704 45.3209,39.1726 45.3111,39.1763 45.3113,39.1848 45.3139,39.1942 45.3111,39.2005 45.3017,39.2014 45.2926,39.1986 45.2857,39.1949 45.2831,39.1931 45.1789,39.2198 45.1527,39.2135 45.1463,39.2287 45.1358,39.2785 45.1289,39.2893 45.1204,39.2989 45.1143,39.3093 45.0960,39.3411 45.0880,39.3507 45.0787,39.3548 45.0686,39.3642 45.0605,39.3746 45.0572,39.3817 45.0517,39.3868 45.0156,39.4060 45.0121,39.4095 45.0099,39.4140 45.0064,39.4180 44.9986,39.4196 44.9877,39.4194 44.9825,39.4202 44.9570,39.4345 44.9533,39.4416 44.9616,39.4538 44.9407,39.4681 44.9284,39.4882 44.8984,39.5844 44.8864,39.6060 44.8654,39.6176 44.8693,39.6205 44.8723,39.6251 44.8492,39.6256 44.8278,39.6288 44.8096,39.6370 44.8070,39.6399 44.7957,39.6524 44.7843,39.6902 44.7746,39.7028 44.7591,39.7231 44.6978,39.7853 44.6920,39.7930 44.6872,39.7964 44.6824,39.7972 44.6713,39.7959 44.6662,39.7964 44.6477,39.8051 44.6115,39.8373 44.5982,39.8310 44.5945,39.8368 44.5942,39.8481 44.5911,39.8578 44.5760,39.8664 44.5675,39.8730 44.5638,39.8817 44.5591,39.8969 44.5479,39.9115 44.5222,39.9335 44.4643,39.9723 44.3256,40.0347 44.2891,40.0434 44.2553,40.0434 44.2156,40.0351 44.1950,40.0308 44.1664,40.0280 44.1459,40.0234 44.1355,40.0223 44.1270,40.0245 44.1143,40.0339 44.1045,40.0360 44.0831,40.0316 44.0483,40.0129 44.0324,40.0086 43.9121,40.0243 43.8028,40.0707 43.7943,40.0726 43.7112,40.0907 43.6654,40.1102 43.6525,40.1390 43.6664,40.1489 43.7116,40.1565 43.7214,40.1694 43.7149,40.1806 43.6837,40.2101 43.6731,40.2277 43.6914,40.2386 43.6903,40.2404 43.6760,40.2660 43.6315,40.3103 43.6044,40.3298 43.5942,40.3454 43.6010,40.3618 43.6096,40.3730 43.6245,40.4111 43.6253,40.4133 43.6253,40.4202 43.5849,40.4466 43.5636,40.4647 43.5595,40.4779 43.5937,40.5090 43.6153,40.5204 43.6390,40.5226 43.6363,40.5298 43.6346,40.5328 43.6315,40.5369 43.6376,40.5351 43.6420,40.5344 43.6465,40.5330 43.6525,40.5294 43.6515,40.5534 43.6648,40.5741 43.7072,40.6119 43.6995,40.6346 43.7056,40.6408 43.7264,40.6690 43.7294,40.6771 43.7241,40.7464 43.7206,40.7629 43.7113,40.7816 43.6914,40.8058 43.6698,40.8321 43.6595,40.8520 43.6542,40.8747 43.6519,40.8948 43.6477,40.9139 43.6362,40.9335 43.6049,40.9633 43.5654,40.9881 43.5224,41.0045 43.4796,41.0091 43.4605,41.0229 43.4446,41.0514 43.4446,41.0515 43.4363,41.0832 43.4404,41.1066 43.4518,41.1326 43.4376,41.1562 43.4106,41.1752 43.3833,41.1872 43.3518,41.1936 43.3226,41.1921 43.2306,41.1726 43.2162,41.1805 43.1922,41.2250 43.1720,41.2423 43.1523,41.2442 43.1303,41.2423 43.1031,41.2488 43.1572,41.2697 43.1719,41.2793 43.1854,41.2938 43.1840,41.2990 43.1548,41.3019 43.1239,41.3129 43.0756,41.3449 43.0021,41.3827 42.9876,41.3947 42.9577,41.4370 42.9500,41.4437 42.9411,41.4463 42.9362,41.4502 42.9322,41.4548 42.9261,41.4591 42.8966,41.4666 42.8890,41.4700 42.8807,41.4812 42.8751,41.4937 42.8680,41.5002 42.8546,41.4938 42.8300,41.4725 42.8112,41.4772 42.7921,41.4929 42.7665,41.5043 42.7749,41.5143 42.7946,41.5268 42.8027,41.5341 42.8068,41.5430 42.8089,41.5529 42.8122,41.5630 42.8199,41.5723 42.8009,41.5792 42.6610,41.5883 42.6106,41.5851 42.5852,41.5788 42.5652,41.5671 42.5550,41.5503 42.5455,41.5096 42.5355,41.4935 42.5138,41.4762 42.4838,41.4422 42.4631,41.4318 42.4510,41.4314 42.4379,41.4309 42.2625,41.4823 42.2133,41.4802 42.1893,41.4817 42.1727,41.4935 42.1584,41.4999 42.1432,41.5003 42.1118,41.4935 42.0975,41.4983 42.0835,41.5001 42.0694,41.4986 42.0549,41.4935 42.0196,41.4851 41.9480,41.5056 41.9078,41.4935 41.8940,41.4855 41.8627,41.4518 41.8226,41.4260 41.8130,41.4218 41.8008,41.4257 41.7610,41.4535 41.7478,41.4569 41.7185,41.4596 41.7068,41.4632 41.7026,41.4695 41.7028,41.4776 41.7039,41.4851 41.7026,41.4890 41.6950,41.4891 41.6698,41.4805 41.6400,41.4787 41.6273,41.4805 41.5347,41.5098 41.5226,41.5166 41.4498,41.5578 41.3193,41.6511 41.4762,41.8057 41.5042,41.8505 41.5124,41.8934 41.4952,41.9541 41.4145,42.0693 41.3793,42.1912 41.3015,42.3454 41.2433,42.5819 41.0581,42.6148 41.0006,42.6387 40.9145,42.7079 40.8514,42.8006 40.7681,42.8345 40.6904,42.8888 40.5340,42.8987 40.4057,42.9443 40.2525,42.9595 40.1793,42.9868 40.1180,43.0353 39.9958,43.1757 39.7646,43.2591 39.6483,43.3600 39.5432,43.4265 39.3292,43.5966 39.1152,43.7667 38.8307,43.9568 38.6892,44.0318 38.5458,44.1253 38.4777,44.1473 38.2283,44.1815 38.0969,44.2150 38.0124,44.2617 37.8655,44.3830 37.7738,44.4277 37.4493,44.4752 37.3229,44.5161 37.1713,44.6154 37.1131,44.6800 37.0304,44.8110 36.9466,44.8596 36.7904,44.8998 36.6641,44.9132 36.6197,44.9082 36.6155,44.9326 36.6062,44.9861 36.5477,45.1175 36.5437,45.1229 36.5166,45.1592 36.5047,45.1985 36.5340,45.2072 36.5615,45.2109 36.5665,45.2115 36.6206,45.2253 36.6448,45.2608 36.5986,45.2796 36.5973,45.2801 36.5875,45.2900 36.5751,45.3094 36.5930,45.3193 36.6152,45.3184 36.6215,45.3218 36.6367,45.3302 36.6660,45.3672 36.6856,45.4005 36.6915,45.4337 36.6915,45.4428 36.6914,45.5068 36.6901,45.6231 36.7885,45.6323 36.8360,45.6367 36.8977,45.6341 37.1859,45.5333 37.3112,45.5238 37.3114,45.6451 37.3550,45.7453 37.4320,45.8143 37.5351,45.8576 37.5928,45.8818 37.6682,46.0824 37.7262,46.1467 37.8074,46.2005 37.6717,46.2898 37.5701,46.3960 37.5351,46.4605 37.4917,46.5404 37.4856,46.5517 37.6396,46.7315 37.6414,46.7336 37.9300,46.9161 38.2187,47.0986 38.2169,47.1028 38.2169,47.1028 38.2204,47.1008 38.2225,47.0996 38.2247,47.1080 38.2014,47.1307 38.1970,47.1624 38.2035,47.1923 38.2225,47.2152 38.2413,47.2239 38.2639,47.2315 38.2847,47.2411 38.2982,47.2560 38.3009,47.2760 38.2919,47.2870 38.2757,47.2918 38.2576,47.2927 38.2203,47.2888 38.2010,47.2906 38.1887,47.3010 38.1906,47.3169 38.2034,47.3346 38.2334,47.3624 38.2580,47.3932 38.2636,47.4217 38.2603,47.4929 38.2744,47.5278 38.2934,47.5628 38.3190,47.5913 38.3529,47.6071 38.5622,47.6266 38.5876,47.6343 38.6064,47.6451 38.6434,47.6735 38.6622,47.6833 38.6779,47.6852 38.7130,47.6757 38.7345,47.6771 38.7452,47.6931 38.7533,47.7351 38.7710,47.7808 38.7962,47.8199 38.8309,47.8482 38.8772,47.8612 39.0391,47.8569 39.0929,47.8321 39.1135,47.8286 39.1332,47.8295 39.1736,47.8371 39.3197,47.8460 39.3401,47.8436 39.3735,47.8283 39.3916,47.8226 39.4140,47.8232 39.4571,47.8313 39.4799,47.8261 39.5094,47.8228 39.5700,47.8309 39.6006,47.8295 39.7008,47.8115 39.7338,47.8160 39.7591,47.8329 39.7756,47.8580 39.7829,47.8866 39.7821,47.8929 39.7776,47.9066 39.7770,47.9137 39.7798,47.9225 39.7905,47.9377 39.7940,47.9457 39.7962,47.9614 39.7944,47.9713 39.7802,47.9931 39.7701,48.0041 39.7619,48.0098 39.7599,48.0150 39.7681,48.0243 39.7788,48.0292 39.8336,48.0362 39.8403,48.0350 39.8430,48.0364 39.8443,48.0457 39.8290,48.0768 39.8312,48.1000 39.8431,48.1198 39.8937,48.1830 39.9126,48.1977 39.9605,48.2221 39.9776,48.2355 39.9907,48.2537 39.9932,48.2732 39.9789,48.2901 39.9574,48.2934 39.9052,48.2806 39.8848,48.2790 39.8159,48.3082 39.8841,48.3464 39.9015,48.3612 39.9241,48.3761 39.9145,48.3847 39.9068,48.3983 39.8962,48.4239 39.8648,48.4698 39.8543,48.4754 39.8447,48.4835 39.8421,48.4991 39.8467,48.4998 39.8560,48.4994 39.8654,48.5015 39.8695,48.5099 39.8685,48.5129 39.8661,48.5170 39.8639,48.5227 39.8627,48.5301 39.8551,48.5561 39.8353,48.5735 39.8092,48.5838 39.6901,48.5937 39.6703,48.5884 39.6317,48.5869 39.6418,48.6117 39.7029,48.7466 39.7114,48.7548 39.7363,48.7615 39.7445,48.7705 39.7512,48.7819 39.7594,48.7928 39.7794,48.8077 39.8012,48.8149 39.8242,48.8156 39.9350,48.7867 39.9753,48.7897 40.0196,48.8131 40.0387,48.8300 40.0528,48.8497 40.0538,48.8692 40.0343,48.8856 40.0089,48.8878 39.9899,48.8757 39.9723,48.8603 39.9504,48.8528 39.9376,48.8562 39.9186,48.8725 39.9082,48.8784 39.8965,48.8799 39.8619,48.8764 39.7823,48.8884 39.7587,48.8954 39.7474,48.9053 39.7394,48.9190 39.7260,48.9370 39.7078,48.9488 39.6875,48.9576 39.6740,48.9701 39.6811,49.0203 39.6983,49.0284 39.7489,49.0262 39.8315,49.0453 39.8620,49.0451 39.8913,49.0418 39.9073,49.0426 39.9187,49.0478 39.9234,49.0580 39.9261,49.0865 39.9309,49.1006 39.9521,49.1245 39.9796,49.1419 40.0384,49.1685 40.0577,49.1828 40.0909,49.2173 40.1102,49.2276 40.1340,49.2363 40.1417,49.2458 40.1427,49.2819 40.1572,49.3159 40.1595,49.3336 40.1481,49.3496 40.1014,49.3855 40.0620,49.4258 40.0409,49.4555 40.0349,49.4871 40.0543,49.5198 40.0720,49.5307 40.1107,49.5453 40.1261,49.5591 40.1307,49.5798 40.1155,49.5906 40.0177,49.6079 39.9981,49.6082 39.9740,49.6026 39.9147,49.5630 39.8894,49.5533 39.8594,49.5456 39.8287,49.5415 39.8015,49.5422 39.7811,49.5484 39.7292,49.5808 39.6887,49.5935 39.6533,49.5998 39.6229,49.6135 39.5974,49.6480 39.5816,49.6907 39.5704,49.7133 39.5575,49.7240 39.4991,49.7281 39.4799,49.7336 39.4436,49.7495 39.4060,49.7443 39.3672,49.7318 39.3277,49.7263 39.2899,49.7321 39.2609,49.7445 39.2380,49.7651 39.1828,49.8585 39.1558,49.8736 39.1171,49.8644 39.0999,49.8516 39.0683,49.8211 39.0491,49.8106 39.0323,49.8073 38.9374,49.8035 38.9105,49.8206 38.8863,49.8452 38.8522,49.8658 38.7478,49.8854 38.6873,49.9138 38.6810,49.9183 38.6756,49.9270 38.6728,49.9430 38.6643,49.9627 38.6646,49.9652 38.6622,49.9626 38.6378,49.9572 38.6289,49.9533 38.6195,49.9508 38.5702,49.9566 38.4975,49.9482 38.4611,49.9569 38.4378,49.9673 38.4201,49.9718 38.3763,49.9749 38.3560,49.9806 38.3442,49.9921 38.3141,50.0495 38.2999,50.0605 38.2812,50.0624 38.2538,50.0591 38.1898,50.0628 38.1739,50.0601 38.1641,50.0304 38.1713,49.9841 38.1662,49.9406 38.1190,49.9192 38.1084,49.9207 38.0903,49.9284 38.0792,49.9299 38.0665,49.9272 38.0004,49.8998 37.9959,49.9059 37.9953,49.9213 37.9800,49.9396 37.9790,49.9414 37.9466,49.9782 37.9159,50.0033 37.8817,50.0230 37.8428,50.0391 37.7634,50.0626 37.7277,50.0787 37.6318,50.1741 37.5971,50.1969 37.5903,50.2038 37.5886,50.2146 37.5915,50.2253 37.6016,50.2490 37.5992,50.2909 37.5682,50.3125 37.4800,50.3400 37.4638,50.3665 37.4503,50.3990 37.4353,50.4249 37.4152,50.4319 37.3148,50.4230 37.2852,50.4153 37.2267,50.3771 37.1970,50.3624 37.0517,50.3353 36.9801,50.3421 36.9141,50.3391 36.8486,50.3237 36.6826,50.2607 36.6698,50.2530 36.6604,50.2439 36.6444,50.2223 36.6358,50.2140 36.6169,50.2064 36.5944,50.2044 36.5710,50.2069 36.5495,50.2122 36.5346,50.2199 36.5317,50.2288 36.5339,50.2387 36.5361,50.2609 36.5389,50.2650 36.5364,50.2675 36.5211,50.2741 36.5121,50.2764 36.4802,50.2809 36.4527,50.2936 36.4306,50.2969 36.4100,50.3046 36.4002,50.3066 36.3880,50.3064 36.3810,50.3041 36.3614,50.2917 36.3395,50.2815 36.3159,50.2749 36.2920,50.2740 36.2690,50.2814 36.1693,50.3837 36.1408,50.3929 36.1332,50.4116 36.1058,50.4211 35.9319,50.4302 35.8374,50.4232 35.8193,50.4190 35.8054,50.4122 35.7855,50.3945 35.7744,50.3869 35.7654,50.3845 35.7462,50.3840 35.7377,50.3816 35.7213,50.3687 35.7103,50.3556 35.6969,50.3451 35.6732,50.3402 35.6521,50.3411 35.6316,50.3450 35.6114,50.3517 35.5922,50.3605 35.5702,50.3765 35.5639,50.3918 35.5623,50.4096 35.5547,50.4333 35.5408,50.4500 35.5227,50.4595 35.5019,50.4643 35.4801,50.4669 35.4464,50.4760 35.4253,50.5005 35.3777,50.6218 35.3762,50.6346 35.3916,50.6464 35.4689,50.6685 35.4454,50.6875 35.4438,50.7095 35.4471,50.7343 35.4385,50.7624 35.4294,50.7721 35.4182,50.7789 35.3931,50.7884 35.3791,50.7972 35.3774,50.8075 35.3797,50.8196 35.3777,50.8337 35.3690,50.8460 35.3486,50.8638 35.3414,50.8765 35.3404,50.8918 35.3430,50.9041 35.3417,50.9159 35.3291,50.9291 35.3172,50.9342 35.2936,50.9376 35.2848,50.9443 35.2822,50.9543 35.2822,50.9815 35.2781,50.9927 35.3326,50.9999 35.3467,51.0083 35.3551,51.0256 35.3464,51.0366 35.3284,51.0432 35.3087,51.0473 35.2743,51.0488 35.2065,51.0389 35.1726,51.0406 35.1436,51.0585 35.1238,51.0913 35.0992,51.1832 35.0913,51.1977 35.0787,51.2076 35.0594,51.2123 35.0387,51.2102 35.0188,51.2046 34.9994,51.2021 34.9803,51.2095 34.9618,51.2153 34.9461,51.2143 34.8996,51.1965 34.8175,51.1747 34.7481,51.1647 34.6749,51.1677 34.6574,51.1717 34.6428,51.1806 34.6332,51.1956 34.6285,51.2111 34.6224,51.2248 34.6084,51.2340 34.5782,51.2367 34.5135,51.2296 34.4804,51.2370 34.4090,51.2531 34.3718,51.2568 34.3370,51.2511 34.2995,51.2316 34.2818,51.2264 34.2579,51.2296 34.1860,51.2489 34.2439,51.2741 34.2836,51.3012 34.3087,51.3346 34.3002,51.3684 34.2803,51.3613 34.2644,51.3612 34.2473,51.3634 34.2305,51.3677 34.2157,51.3738 34.1960,51.3856 34.1859,51.3942 34.1819,51.4023 34.1870,51.4083 34.2088,51.4115 34.2171,51.4171 34.2196,51.4273 34.2171,51.4361 34.2132,51.4448 34.2121,51.4550 34.2150,51.4647 34.2238,51.4824 34.2260,51.4929 34.2237,51.5148 34.2154,51.5320 34.2024,51.5462 34.1603,51.5761 34.1530,51.5840 34.1489,51.5932 34.1445,51.6138 34.1401,51.6212 34.1260,51.6270 34.0907,51.6332 34.0795,51.6431 34.0891,51.6666 34.1280,51.6807 34.2982,51.7061 34.3569,51.7056 34.3763,51.7086 34.4142,51.7365 34.4127,51.7777 34.3857,51.8177 34.3473,51.8417 34.3278,51.8505 34.2946,51.8739 34.2767,51.8812 34.2649,51.8812 34.2460,51.8755 34.2342,51.8783 34.2346,51.8807 34.2310,51.8945 34.2284,51.8993 34.2226,51.9032 34.2094,51.9088 34.2034,51.9123 34.1664,51.9423 34.1462,51.9516 34.0962,51.9518 34.0967,51.9606 34.1044,51.9753 34.1011,51.9925 34.0803,52.0136 34.0682,52.0310 34.0626,52.0502 34.0601,52.0832 34.0567,52.1004 34.0567,52.1058 34.0739,52.1283 34.0736,52.1396 34.0710,52.1490 34.0653,52.1586 34.0557,52.1703 34.0389,52.1865 34.0219,52.1979 33.9578,52.2247 33.9444,52.2358 33.9195,52.2698 33.9007,52.2859 33.8587,52.3022 33.8391,52.3139 33.8234,52.3315 33.8152,52.3451 33.8041,52.3546 33.7790,52.3601 33.7336,52.3610 33.6879,52.3558 33.6002,52.3308 33.5317,52.2888 33.5101,52.2875 33.4930,52.3031 33.4994,52.3410 33.4805,52.3578 33.4653,52.3527 33.4518,52.3453 33.4373,52.3392 33.4193,52.3383 33.4037,52.3430 33.3762,52.3553 33.3590,52.3576 33.2943,52.3573 33.1965,52.3689 33.1829,52.3673 33.1666,52.3601 33.1409,52.3404 33.1280,52.3327 33.1089,52.3283 33.0990,52.3248 33.0874,52.3108 33.0796,52.3056 33.0704,52.3042 33.0573,52.3086 33.0482,52.3091 33.0301,52.3036 32.9269,52.2469 32.9090,52.2411 32.8908,52.2423 32.8610,52.2572 32.8442,52.2623 32.8148,52.2620 32.7556,52.2524 32.7254,52.2521 32.5284,52.3162 32.4806,52.3071 32.3943,52.3268 32.3536,52.3216 32.3395,52.2872 32.3445,52.2765 32.3633,52.2557 32.3670,52.2472 32.3613,52.2359 32.3501,52.2299 32.3378,52.2255 32.3282,52.2192 32.3188,52.2014 32.3067,52.1412 32.2777,52.1027 32.2333,52.0809 32.0956,52.0407 32.0771,52.0400 32.0169,52.0498 31.9806,52.0476 31.9272,52.0311 31.9104,52.0291 31.8920,52.0362 31.8877,52.0516 31.8875,52.0700 31.8821,52.0864 31.8587,52.0999 31.8258,52.1041 31.7643,52.1006 31.7666,52.1301 31.7626,52.1498 31.7490,52.1639 31.6987,52.1854 31.6895,52.1916 31.6824,52.2019 31.6795,52.2159 31.6819,52.2305 31.6889,52.2432 31.6994,52.2515 31.6834,52.2572 31.6487,52.2610 31.6314,52.2648 31.6137,52.2730 31.5971,52.2843 31.5674,52.3114 31.5796,52.3185 31.5923,52.3286 31.6028,52.3409 31.6086,52.3544 31.6081,52.3725 31.6005,52.3834 31.5904,52.3918 31.5829,52.4028 31.5833,52.4283 31.5894,52.4580 31.5879,52.4826 31.5655,52.4926 31.5530,52.5022 31.5506,52.5119 31.5582,52.5200 31.5759,52.5247 31.5636,52.5371 31.5593,52.5405 31.5744,52.5413 31.6108,52.5360 31.6243,52.5381 31.6286,52.5481 31.6152,52.5586 31.5790,52.5778 31.5659,52.5902 31.5361,52.6305 31.4917,52.6671 31.4806,52.6825 31.4806,52.6825 31.5479,52.7057 31.5702,52.7253 31.5695,52.7675 31.5608,52.7871 31.5506,52.7947 31.5384,52.7999 31.5239,52.8117 31.5152,52.8284 31.5128,52.8410 31.5051,52.8489 31.4806,52.8509 31.4510,52.8572 31.4181,52.8702 31.3879,52.8880 31.3662,52.9086 31.3392,52.9581 31.3226,52.9771 31.2471,53.0144 31.2693,53.0284 31.3192,53.0764 31.3294,53.0793 31.3541,53.0821 31.3637,53.0888 31.3671,53.0989 31.3649,53.1097 31.3612,53.1213 31.3599,53.1338 31.3785,53.1820 31.4164,53.2000 31.4640,53.2000 31.5121,53.1941 31.5359,53.1949 31.5737,53.2071 31.5936,53.2107 31.6140,53.2098 31.6749,53.1952 31.6945,53.1929 31.7386,53.1925 31.7563,53.1866 31.7697,53.1693 31.7805,53.1279 31.7963,53.1124 31.8068,53.1100 31.8426,53.1122 31.8555,53.1102 31.9072,53.0919 31.9307,53.0883 31.9547,53.0900 31.9806,53.0980 32.0099,53.1000 32.0828,53.0820 32.1173,53.0811 32.1265,53.0842 32.1523,53.0963 32.1886,53.0992 32.1974,53.0977 32.2011,53.0976 32.2059,53.1004 32.2070,53.1052 32.2065,53.1099 32.2067,53.1124 32.2091,53.1163 32.2105,53.1218 32.2157,53.1255 32.2680,53.1248 32.2952,53.1409 32.3203,53.1628 32.3528,53.1805 32.3891,53.1876 32.4055,53.1927 32.4236,53.2044 32.4557,53.2367 32.4692,53.2555 32.4791,53.2749 32.4560,53.2778 32.4472,53.2888 32.4548,53.3004 32.4806,53.3052 32.5056,53.2972 32.5373,53.2951 32.5692,53.2988 32.5959,53.3083 32.5919,53.3118 32.5835,53.3212 32.5800,53.3244 32.6499,53.3337 32.6667,53.3313 32.6818,53.3268 32.6979,53.3259 32.7175,53.3349 32.7044,53.3664 32.7195,53.4395 32.7012,53.4621 32.6885,53.4622 32.6582,53.4557 32.6468,53.4580 32.6417,53.4690 32.6476,53.4793 32.6503,53.4876 32.6357,53.4927 32.6181,53.4943 32.6006,53.4924 32.5925,53.4865 32.5843,53.4842 32.5768,53.4860 32.5699,53.4924 32.5699,53.4926 32.5543,53.5108 32.5308,53.5214 32.4806,53.5356 32.4529,53.5464 32.4294,53.5616 32.4115,53.5824 32.4011,53.6099 32.3980,53.6274 32.3991,53.6354 32.4061,53.6394 32.4806,53.6624 32.4878,53.6696 32.4902,53.6771 32.4878,53.6847 32.4806,53.6921 32.4616,53.7068 32.4421,53.7139 32.4216,53.7158 32.3718,53.7144 32.3574,53.7197 32.3258,53.7455 32.2904,53.7609 32.1648,53.7817 32.1060,53.8069 32.0836,53.8096 31.8732,53.7771 31.7873,53.7944 31.7447,53.7949 31.7538,53.8196 31.7926,53.8574 31.8101,53.8826 31.8265,53.9402 31.8379,53.9621 31.8393,53.9698 31.8397,53.9772 31.8414,53.9846 31.8465,53.9923 31.8236,54.0455 31.8239,54.0501 31.8226,54.0534 31.8139,54.0571 31.8085,54.0560 31.7835,54.0458 31.7713,54.0485 31.7626,54.0603 31.7558,54.0749 31.7481,54.0863 31.7367,54.0942 31.7258,54.0975 31.6978,54.0979 31.6669,54.1019 31.5831,54.1295 31.5309,54.1374 31.5064,54.1439 31.4806,54.1566 31.3247,54.2292 31.3098,54.2443 31.2992,54.2726 31.2920,54.3313 31.2848,54.3474 31.2741,54.3566 31.2617,54.3645 31.2487,54.3768 31.2254,54.4280 31.2090,54.4480 31.1792,54.4531 31.1679,54.4671 31.0936,54.4794 31.0646,54.4923 31.0896,54.5359 31.1395,54.5829 31.1679,54.6216 31.1286,54.6404 31.1052,54.6683 31.0209,54.6737 30.9990,54.6713 30.9955,54.6898 30.9806,54.7057 30.8273,54.7710 30.7861,54.7793 30.7706,54.7860 30.7626,54.8020 30.7681,54.8299 30.7879,54.8477 30.8107,54.8615 30.8261,54.8775 30.8275,54.9025 30.8174,54.9176 30.8148,54.9280 30.8386,54.9392 30.8995,54.9464 30.9174,54.9540 30.9361,54.9732 30.9314,54.9852 30.9170,54.9960 30.9066,55.0126 30.9132,55.0246 30.9335,55.0256 30.9806,55.0187 31.0056,55.0230 31.0064,55.0424 30.9942,55.0670 30.9806,55.0863 30.9731,55.0940 30.9703,55.1014 30.9727,55.1086 30.9806,55.1153 30.9855,55.1258 30.9840,55.1309 30.9795,55.1343 30.9750,55.1395 30.9725,55.1409 30.9622,55.1429 30.9588,55.1444 30.9568,55.1495 30.9612,55.1585 30.9598,55.1626 30.9472,55.1714 30.9007,55.1921 30.8865,55.2045 30.8698,55.2415 30.8568,55.2535 30.8214,55.2644 30.8041,55.2730 30.7943,55.2855 30.7972,55.3043 30.8112,55.3231 30.8456,55.3511 30.9059,55.3760 30.9183,55.3878 30.9186,55.4076 30.9053,55.4209 30.8891,55.4334 30.8813,55.4514 30.8872,55.4681 30.9132,55.4797 30.9194,55.4923 30.9144,55.4933 30.8994,55.4991 30.9197,55.5345 30.9128,55.5716 30.8862,55.6005 30.8477,55.6110 30.8041,55.6023 30.7707,55.5915 30.7422,55.5944 30.7130,55.6267 30.7033,55.6423 30.6937,55.6522 30.6800,55.6563 30.6391,55.6545 30.6166,55.6574 30.5964,55.6653 30.5837,55.6791 30.5837,55.6885 30.5884,55.6966 30.5916,55.7057 30.5875,55.7183 30.5801,55.7248 30.5696,55.7295 30.4807,55.7540 30.4693,55.7626 30.4718,55.7710 30.4778,55.7791 30.4774,55.7877 30.4688,55.7935 30.2708,55.8307 30.2515,55.8376 30.2178,55.8551 30.2003,55.8580 30.1773,55.8514 30.1324,55.8269 30.1063,55.8219 29.9882,55.8468 29.9477,55.8482 29.9078,55.8432 29.8695,55.8305 29.8448,55.8126 29.8057,55.7715 29.7799,55.7638 29.7108,55.7738 29.6842,55.7706 29.5854,55.7380 29.5081,55.6855 29.4809,55.6811 29.4610,55.6873 29.4131,55.7278 29.3634,55.7515 29.3507,55.7661 29.3436,55.7870 29.3482,55.8028 29.3719,55.8364 29.3757,55.8468 29.3807,55.8712 29.3841,55.8799 29.3920,55.8884 29.3996,55.8919 29.4078,55.8939 29.4174,55.8980 29.4256,55.9000 29.4337,55.8995 29.4406,55.9005 29.4444,55.9069 29.4411,55.9149 29.4316,55.9242 29.4131,55.9380 29.3956,55.9477 29.3774,55.9540 29.2240,55.9782 29.1929,55.9921 29.1454,56.0120 29.0886,56.0232 29.0308,56.0242 28.9808,56.0135 28.9225,55.9922 28.9223,55.9922 28.9222,55.9922 28.9221,55.9921 28.8597,55.9765 28.8331,55.9610 28.8309,55.9377 28.8090,55.9346 28.7319,55.9468 28.7064,55.9598 28.6955,55.9802 28.6900,56.0039 28.6806,56.0274 28.6719,56.0376 28.6371,56.0657 28.6207,56.0830 28.6115,56.0885 28.5947,56.0924 28.5378,56.0977 28.3898,56.0886 28.3665,56.0791 28.3334,56.0502 28.3109,56.0427 28.2898,56.0466 28.2694,56.0582 28.2385,56.0826 28.1691,56.1253 28.1489,56.1424 28.1691,56.1617 28.1786,56.1839 28.1844,56.2075 28.1931,56.2310 28.2014,56.2417 28.2094,56.2481 28.2153,56.2560 28.2173,56.2707 28.2148,56.2814 28.1744,56.3496 28.1671,56.3699 28.1643,56.3928 28.1679,56.4271 28.1643,56.4380 28.1565,56.4462 28.1045,56.4831 28.0965,56.4920 28.0933,56.5016 28.0992,56.5134 28.1252,56.5271 28.1322,56.5360 28.1261,56.5478 28.1087,56.5552 28.0287,56.5768 28.0110,56.5876 27.9974,56.6038 27.9922,56.6250 27.9913,56.6700 27.9810,56.6870 27.8826,56.7255 27.8655,56.7427 27.8761,56.7594 27.9001,56.7830 27.9189,56.8059 27.9135,56.8202 27.8915,56.8297 27.8522,56.8543 27.8308,56.8643 27.7864,56.8713 27.7441,56.8648 27.6612,56.8393 27.6284,56.8442 27.6487,56.8793 27.7151,56.9574 27.7185,56.9687 27.7208,56.9887 27.7234,56.9988 27.7296,57.0099 27.7458,57.0315 27.7507,57.0424 27.7455,57.0680 27.7221,57.0780 27.6961,57.0855 27.6822,57.1037 27.7010,57.1188 27.7940,57.1434 27.8243,57.1591 27.8339,57.1805 27.8412,57.2112 27.8461,57.2673 27.8403,57.2906 27.8277,57.3050 27.8091,57.3139 27.7080,57.3481 27.6408,57.3890 27.5363,57.4157 27.5113,57.4304 27.5148,57.4479 27.5256,57.4684 27.5228,57.4920 27.5282,57.5285 27.3529,57.5276 27.3450,57.5381 27.3356,57.5539 27.3285,57.5706 27.3280,57.5832 27.3366,57.5917 27.3489,57.5941 27.3625,57.5945 27.3748,57.5979 27.3821,57.6027 27.3849,57.6070 27.3870,57.6276 27.3851,57.6312 27.3828,57.6345 27.3802,57.6477 27.3779,57.6517 27.3770,57.6567 27.3797,57.6665 27.3847,57.6744 27.3914,57.6802 27.4077,57.6890 27.4904,57.7046 27.5078,57.7148 27.5089,57.7275 27.4978,57.7557 27.5024,57.7725 27.5124,57.7813 27.5262,57.7873 27.5539,57.7948 27.5326,57.8051 27.5246,57.8073 27.5376,57.8116 27.7007,57.8248 27.7635,57.8387 27.7868,57.8476 27.7993,57.8611 27.7908,57.8809 27.7744,57.8907 27.6731,57.9128 27.6650,57.9184 27.6594,57.9325 27.6632,57.9440 27.6704,57.9550 27.6752,57.9678 27.6691,57.9920 27.6506,58.0001 27.6316,58.0042 27.6301,58.0330 27.6366,58.0592 27.6304,58.0883 27.5797,58.1259 27.5400,58.1718 27.4954,58.2215 27.4828,58.2686 27.4941,58.3195 27.5549,58.3952 27.4989,58.5346 27.4493,58.6585 27.4106,58.7549 27.4778,58.8754 27.6053,58.9347 27.6944,58.9759 27.7133,58.9919 27.7244,59.0144 27.7672,59.0559 27.7843,59.0772 27.8424,59.1612 27.8735,59.2365 27.8908,59.2580 27.8823,59.2757 27.8909,59.2815 27.9039,59.2904 27.9597,59.3065 28.0766,59.3053 28.0969,59.3194 28.0732,59.3190 28.0006,59.3337 28.0324,59.3420 28.1136,59.3454 28.1575,59.3640 28.1818,59.3561 28.1865,59.3749 28.1754,59.3819 28.1496,59.3932 28.1378,59.4004 28.1284,59.4094 28.1048,59.4392 28.0834,59.4509 28.0280,59.4732 28.0154,59.4782 27.9610,59.4858 27.8117,59.5456 27.3853,59.6524 27.0534,59.6185 26.8167,59.6624 26.6289,59.8222 26.3358,59.9946 26.5433,60.1067 26.6400,60.1133 26.9150,60.1733 27.1883,60.1767 27.3003,60.2053 27.4639,60.2283 27.5119,60.2597 27.7926,60.4947 27.7827,60.5387 27.7831,60.5400 27.7816,60.5436 27.8083,60.5527 27.8930,60.6043 27.9572,60.6373 27.9810,60.6495 28.1481,60.7577 28.2439,60.7916 28.3359,60.8594 28.4809,60.9335 28.5264,60.9502 28.6146,60.9619 28.6537,60.9917 28.6537,60.9918 28.6538,60.9919 28.6538,60.9919 28.6707,61.0125 28.6890,61.0274 28.7502,61.0614 28.7813,61.0870 28.7976,61.0968 28.8555,61.1127 28.9264,61.1479 28.9808,61.1681 29.1301,61.2134 29.2032,61.2459 29.2623,61.2905 29.2893,61.3162 29.3184,61.3384 29.4634,61.4138 29.4809,61.4348 29.4991,61.4592 29.5170,61.4751 29.5397,61.4850 29.6043,61.4992 29.6351,61.5111 29.7649,61.5850 29.7791,61.5931 29.7981,61.6097 29.8219,61.6446 29.8422,61.6602 29.9777,61.7282 30.3396,61.9917 30.3397,61.9917 30.3399,61.9918 30.4807,62.0677 30.6072,62.1513 30.6350,62.1840 30.6477,62.1928 30.6655,62.1998 30.7038,62.2104 30.7938,62.2530 30.9075,62.2929 30.9256,62.3021 30.9419,62.3146 30.9671,62.3482 30.9806,62.3588 31.1234,62.4348 31.1416,62.4565 31.1530,62.4674 31.1686,62.4760 31.2216,62.4916 31.2219,62.4917 31.2222,62.4917 31.2438,62.5033 31.2601,62.5248 31.2841,62.5730 31.3028,62.5960 31.3470,62.6293 31.3633,62.6516 31.4106,62.7465 31.4413,62.7887 31.4806,62.8261 31.5695,62.9059 31.5358,62.9195 31.5193,62.9432 31.5054,62.9682 31.4806,62.9863 31.4680,62.9916 31.4445,63.0019 31.3803,63.0479 31.3516,63.0622 31.2885,63.0847 31.2628,63.1006 31.2508,63.1155 31.2408,63.1357 31.2342,63.1572 31.2331,63.1757 31.2257,63.1960 31.2040,63.2127 31.1778,63.2252 30.9749,63.2892 30.8209,63.3757 30.4887,63.4621 30.4611,63.4729 30.4414,63.4916 30.3805,63.5325 30.2425,63.5818 30.0011,63.7153 29.9808,63.7415 30.0513,63.7638 30.2015,63.7926 30.2656,63.8307 30.3286,63.8960 30.5093,63.9914 30.5093,63.9914 30.5093,63.9915 30.5523,64.0217 30.5805,64.0511 30.5864,64.0847 30.5621,64.1274 30.5448,64.1464 30.5328,64.1625 30.5325,64.1792 30.5503,64.1989 30.5585,64.2197 30.5362,64.2347 30.5034,64.2438 30.4460,64.2508 30.4216,64.2647 30.3993,64.2831 30.3705,64.3008 30.3211,64.3177 30.1644,64.3419 30.0931,64.3612 30.0530,64.3781 30.0325,64.3969 30.0410,64.4229 30.0628,64.4484 30.0704,64.4719 30.0358,64.4915 29.9905,64.5042 29.9934,64.5107 29.9915,64.5132 29.9808,64.5155 29.9790,64.5183 29.9782,64.5211 29.9789,64.5240 29.9808,64.5268 29.9736,64.5362 29.9700,64.5454 29.9685,64.5628 29.9652,64.5644 29.9589,64.5660 29.9548,64.5690 29.9588,64.5749 29.9658,64.5786 30.1364,64.6154 30.1604,64.6261 30.1808,64.6428 30.1878,64.6624 30.1705,64.6817 30.1314,64.7012 30.1205,64.7089 30.1091,64.7201 30.1068,64.7256 30.1090,64.7317 30.1111,64.7444 30.1149,64.7543 30.1204,64.7616 30.1189,64.7679 30.1019,64.7755 30.0625,64.7842 29.8778,64.7848 29.7803,64.7956 29.6983,64.8391 29.6336,64.9072 29.5881,64.9914 29.5984,65.0344 29.6273,65.0622 29.6678,65.0779 29.8205,65.0937 29.8456,65.1080 29.8502,65.1215 29.8381,65.1248 29.8203,65.1265 29.8082,65.1353 29.8091,65.1452 29.8180,65.1522 29.8297,65.1586 29.8393,65.1669 29.8332,65.2050 29.7668,65.2174 29.6267,65.2152 29.5801,65.2354 29.6151,65.2694 29.7201,65.3291 29.7306,65.3654 29.7182,65.4542 29.7263,65.4912 29.7263,65.4915 29.7455,65.5114 29.8258,65.5520 29.8386,65.5649 29.8067,65.5849 29.7323,65.6087 29.7029,65.6294 29.7643,65.6481 30.0030,65.6781 30.0647,65.6617 30.0985,65.6564 30.1139,65.6655 30.1163,65.6872 30.1117,65.7120 30.0835,65.8046 30.0751,65.8228 30.0393,65.8654 30.0097,65.9157 29.9979,65.9315 29.9585,65.9739 29.9488,65.9913 29.9205,66.0686 29.9002,66.1081 29.8754,66.1336 29.7924,66.1809 29.6509,66.2879 29.5932,66.3459 29.5697,66.3782 29.5517,66.4128 29.5342,66.4740 29.5245,66.4912 29.4094,66.5685 29.4013,66.5762 29.3964,66.5866 29.3954,66.5965 29.3924,66.6053 29.3640,66.6246 29.3222,66.6801 29.0892,66.8375 29.0515,66.9078 29.0999,66.9911 29.0999,66.9912 29.1001,66.9912 29.1001,66.9913 29.4294,67.2328 29.4809,67.2568 29.4907,67.2630 29.4970,67.2703 29.5085,67.2881 29.5198,67.2982 29.9162,67.5081 29.9334,67.5264 29.9599,67.5716 29.9647,67.5847 29.9734,67.6493 29.9777,67.6622 29.9879,67.6725 30.0094,67.6858 29.7138,67.7925 29.6512,67.8236 29.4809,67.9605 29.4426,67.9911 29.4426,67.9911 29.3602,68.0567 29.3309,68.0727 29.2987,68.0818 29.0129,68.1272 28.7272,68.1727 28.6903,68.1832 28.6638,68.2040 28.4809,68.4626 28.4610,68.4911 28.4474,68.5149 28.4479,68.5297 28.4599,68.5424 28.7164,68.7280 28.7473,68.7601 28.8015,68.8355 28.7283,68.8650 28.6457,68.8717 28.4442,68.8658 28.4268,68.8706 28.4131,68.8801 28.4102,68.8985 28.4562,68.9001 28.7133,68.9680 28.8335,68.9845 28.9541,69.0273 28.9652,69.0312 28.9737,69.0342 29.0081,69.0369 29.0648,69.0347 29.1203,69.0468 29.1730,69.0694 29.2210,69.0984 29.2405,69.1151 29.2510,69.1308 29.2688,69.1667 29.2764,69.1759 29.2944,69.1917 29.3023,69.2008 29.3054,69.2097 29.3055,69.2181 29.3074,69.2263 29.3159,69.2349 29.3266,69.2626 29.3345,69.2774 29.3768,69.3016 29.4346,69.3118 29.6043,69.3152 29.6618,69.3250 29.7284,69.3515 29.7514,69.3572 29.9007,69.3582 29.9481,69.3656 29.9671,69.3735 30.0018,69.3946 30.1234,69.4419 30.1374,69.4530 30.1408,69.4644 30.1411,69.4768 30.1450,69.4911 30.1548,69.5061 30.1640,69.5118 30.1923,69.5192 30.2106,69.5282 30.2247,69.5408 30.2316,69.5583 30.2287,69.5821 30.2201,69.6002 30.2088,69.6087 30.1486,69.6185 30.1267,69.6264 30.1191,69.6346 30.1412,69.6399 30.1861,69.6413 30.2307,69.6373 30.2944,69.6202 30.4807,69.5441 30.5117,69.5363 30.6096,69.5304 30.7553,69.5215 30.8530,69.5274 30.8982,69.5442 30.9270,69.5784 30.9308,69.5949 30.9277,69.6721 30.9012,69.6890 30.8843,69.7024 30.8813,69.7105 30.8823,69.7201 30.8771,69.7376 30.8679,69.7490 30.8440,69.7662 30.8414,69.8055 30.8976,70.0346 30.9502,70.0346 31.2338,70.0316 31.2452,70.0346 31.2897,70.0462 31.3458,70.0608 31.4385,70.0850 31.5453,70.1247 31.6552,70.1534 31.7455,70.1659 31.8108,70.1749 31.9413,70.1814 31.9980,70.1804 32.0907,70.1789 32.2380,70.1668 32.3620,70.1475 32.4789,70.1175 32.5781,70.0784 32.7343,70.0515 32.9323,69.9997 32.9434,69.9985 32.9980,69.9924 33.1481,69.9756 33.3779,69.9374 33.4801,69.9157 33.5652,69.8896 33.6602,69.8423 33.7220,69.7844 33.7402,69.7427 33.7252,69.6576 33.7334,69.6379 33.7518,69.6300 33.8811,69.6039 33.9980,69.6096 34.1918,69.6191 34.3858,69.6100 34.5163,69.5905 34.6375,69.5631 34.7797,69.5203 34.9065,69.4721 34.9980,69.4791 35.1568,69.4913 35.3002,69.4902 35.4628,69.4823 35.5888,69.4677 35.9980,69.4033 36.2103,69.3700 36.4278,69.3137 36.6314,69.2721 36.8145,69.2124 36.9980,69.1664 37.1153,69.1370 37.3758,69.0605 37.5398,69.0194 37.5396,69.5187 37.5395,70.0180 37.5393,70.5172 37.5391,71.0165 37.5390,71.5158 37.5388,72.0151 37.5386,72.5143 37.5385,73.0136 37.5383,73.5129 37.5381,74.0122 37.5380,74.5114 37.5378,75.0107 37.5376,75.5100 37.5375,76.0093 37.5373,76.5085 37.5371,77.0078 37.5369,77.5071 37.5368,78.0063 37.5366,78.5056 37.5364,79.0049 37.0442,79.0057 36.5520,79.0064 36.0597,79.0072 35.5675,79.0080 35.5677,79.4166 35.5679,79.8251 35.5681,80.2337 35.5683,80.6423 35.5685,81.0508 36.0606,81.0501 36.5528,81.0493 37.0449,81.0485 37.5370,81.0477 37.5370,81.5354 37.5370,82.0231 37.5369,82.5108 37.5369,82.9985 38.0326,82.9985 38.5282,82.9985 39.0239,82.9985 39.5196,82.9985 40.0153,82.9985 40.5109,82.9985 41.0066,82.9985 41.5023,82.9985 41.9979,82.9985 42.4753,82.9985 42.9527,82.9985 43.4300,82.9985 43.9074,82.9985 44.3848,82.9985 44.8621,82.9985 45.3395,82.9985 45.8169,82.9985 46.2942,82.9985 46.7716,82.9985 47.2490,82.9985 47.7263,82.9985 48.2037,82.9985 48.6811,82.9985 49.1584,82.9985 49.6358,82.9985 50.1132,82.9985 50.5905,82.9985 51.0679,82.9985 51.5452,82.9985 52.0226,82.9985 52.5000,82.9985 52.5002,83.4653 52.5004,83.9320 52.5006,84.3988 52.5007,84.8656 52.5009,85.3323 52.5011,85.7991 52.5013,86.2659 52.5015,86.7326 52.5017,87.1994 52.5019,87.6662 52.5021,88.1329 52.5023,88.5997 52.5025,89.0665 52.5027,89.5332 52.5028,90.0000 52.9389,90.0000 53.3813,90.0000 53.8236,90.0000 54.2660,90.0000 54.7084,90.0000 55.1507,90.0000 55.5931,90.0000 56.0354,90.0000 56.4778,90.0000 56.9201,90.0000 57.3625,90.0000 57.8049,90.0000 58.2472,90.0000 58.6896,90.0000 59.1319,90.0000 59.5743,90.0000 60.0167,90.0000 60.4590,90.0000 60.9014,90.0000 61.3437,90.0000 61.7861,90.0000 62.2284,90.0000 62.6708,90.0000 63.1132,90.0000 63.5555,90.0000 63.9979,90.0000 64.4402,90.0000 64.8826,90.0000 65.3250,90.0000 65.7673,90.0000 66.2097,90.0000 66.6520,90.0000 67.0944,90.0000 67.5368,90.0000 67.5368,89.5364 67.5368,89.0727 67.5368,88.6091 67.5368,88.1455 67.5368,87.6818 67.5368,87.2182 67.5368,86.7545 67.5368,86.2909 67.5368,85.8273 67.5368,85.3636 67.5368,84.9000 67.5368,84.4981 67.5368,84.0961 67.5368,83.6942 67.5368,83.2922 67.5368,82.8903 67.5368,82.8898 7461,6.0,Asia/Almaty 78.5000,81.3000 78.5000,80.9000 78.5000,80.5000 78.5010,80.5000 78.9980,80.5000 79.4951,80.5000 79.9922,80.5000 80.4893,80.5000 80.9863,80.5000 81.4834,80.5000 81.9805,80.5000 82.4776,80.5000 82.9747,80.5000 83.4717,80.5000 83.9688,80.5000 84.4659,80.5000 84.9630,80.5000 85.4601,80.5000 85.9571,80.5000 86.4542,80.5000 86.9513,80.5000 87.4484,80.5000 87.9455,80.5000 88.4425,80.5000 88.9396,80.5000 88.9427,80.0632 88.9458,79.6265 88.9489,79.1897 88.9520,78.7529 88.9551,78.3162 88.9582,77.8794 88.5169,77.6919 88.0756,77.5044 87.6343,77.3169 87.1930,77.1294 86.7516,76.9419 86.3103,76.7544 85.8690,76.5669 85.4277,76.3794 84.9864,76.1920 84.5451,76.0045 84.1038,75.8170 83.6625,75.6295 83.4262,75.5291 83.0014,75.3486 82.5766,75.1682 82.1519,74.9877 81.7271,74.8072 81.3023,74.6268 80.8776,74.4463 80.4528,74.2658 80.0280,74.0854 79.6409,74.0725 79.2537,74.0595 78.8666,74.0466 78.4794,74.0337 78.4817,73.9314 78.5085,73.6182 78.5353,73.3050 78.4964,73.2717 78.4970,72.8399 78.4976,72.4082 78.5005,72.4015 78.5028,72.3878 78.5047,72.3815 78.5036,72.3817 78.5035,72.3815 78.5027,72.3817 78.5007,72.3771 78.4670,72.3680 78.4580,72.3644 78.4486,72.3591 78.4450,72.3538 78.4474,72.3476 78.4543,72.3412 78.5171,72.3111 78.5280,72.3078 78.5978,72.3002 78.6093,72.2959 78.6155,72.2885 78.6222,72.2818 78.6304,72.2751 78.6459,72.2658 78.6558,72.2583 78.6619,72.2476 78.6597,72.2410 78.6563,72.2360 78.6579,72.2324 78.6647,72.2290 78.6695,72.2249 78.6647,72.2195 78.6539,72.2161 78.6146,72.2102 78.6099,72.2082 78.6222,72.2045 78.6672,72.1965 78.6767,72.1923 78.6801,72.1862 78.6842,72.1818 78.6968,72.1803 78.6975,72.1804 78.6978,72.1803 78.7763,72.1850 78.7901,72.1844 78.7980,72.1820 78.7928,72.1781 78.7845,72.1753 78.7792,72.1727 78.7894,72.1691 78.8986,72.1472 78.9085,72.1438 78.9133,72.1395 78.9108,72.1346 78.9063,72.1293 78.9029,72.1240 78.9048,72.1192 78.9142,72.1162 78.9288,72.1156 78.9290,72.1156 78.9297,72.1156 78.9857,72.1217 78.9970,72.1218 79.0190,72.1195 79.0708,72.1085 79.0807,72.1046 79.0874,72.0997 79.0884,72.0926 79.0872,72.0866 79.0887,72.0806 79.0940,72.0759 79.1079,72.0730 79.1087,72.0730 79.1088,72.0730 79.1221,72.0735 79.1502,72.0772 79.2239,72.0760 79.3394,72.0576 79.3401,72.0576 79.3403,72.0576 79.3823,72.0602 79.3940,72.0572 79.4071,72.0523 79.4189,72.0434 79.4363,72.0396 79.4372,72.0396 79.4373,72.0396 79.4506,72.0398 79.4756,72.0451 79.4899,72.0467 79.5811,72.0415 79.5817,72.0415 79.5821,72.0415 79.6143,72.0426 79.6811,72.0578 79.6949,72.0577 79.8540,72.0252 79.8646,72.0207 79.8716,72.0148 79.8752,72.0054 79.8760,72.0018 79.8761,71.9994 79.8772,71.9980 79.8814,71.9949 79.8994,71.9883 79.9103,71.9863 79.9110,71.9863 79.9112,71.9863 79.9338,71.9875 80.0158,71.9834 80.0426,71.9769 80.0564,71.9714 80.0707,71.9678 80.0911,71.9599 80.0943,71.9544 80.1090,71.9499 80.1490,71.9438 80.1840,71.9386 80.1847,71.9386 80.1849,71.9386 80.1969,71.9392 80.2076,71.9413 80.2182,71.9424 80.2289,71.9397 80.2372,71.9342 80.2446,71.9239 80.2521,71.9165 80.2687,71.9106 80.3013,71.9047 80.3121,71.9013 80.3391,71.8898 80.3440,71.8854 80.3419,71.8803 80.3354,71.8757 80.3251,71.8725 80.3123,71.8716 80.2856,71.8745 80.2847,71.8745 80.2846,71.8745 80.2763,71.8744 80.2734,71.8696 80.2738,71.8607 80.2685,71.8551 80.2568,71.8542 80.1804,71.8666 80.1798,71.8666 80.1794,71.8666 80.1692,71.8655 80.1580,71.8571 80.1481,71.8538 80.0740,71.8464 80.0521,71.8399 80.0435,71.8356 80.0364,71.8308 80.0323,71.8252 80.0323,71.8198 80.0367,71.8153 80.0493,71.8125 80.0760,71.8098 80.0839,71.8062 80.0905,71.8018 80.0957,71.7970 80.1144,71.7837 80.1194,71.7787 80.1209,71.7741 80.1137,71.7688 80.0864,71.7681 80.0762,71.7647 80.0769,71.7563 80.1132,71.6987 80.1175,71.6872 80.1188,71.6749 80.1119,71.6690 80.1023,71.6646 80.0911,71.6617 80.0780,71.6599 80.0299,71.6598 80.0209,71.6569 80.0178,71.6521 80.0164,71.6470 80.0118,71.6420 79.9992,71.6329 79.9918,71.6259 79.9858,71.6212 79.9762,71.6174 79.8683,71.6017 79.5526,71.6069 79.5525,71.6069 79.5517,71.6069 79.5123,71.6002 79.4966,71.6001 79.4638,71.6032 79.4121,71.6142 79.3979,71.6156 79.3972,71.6155 79.3969,71.6156 79.3827,71.6150 79.3710,71.6124 79.3428,71.6016 79.3384,71.5979 79.3588,71.5849 79.3666,71.5787 79.3740,71.5714 79.3830,71.5590 79.3870,71.5509 79.3890,71.5435 79.3873,71.5371 79.3845,71.5305 79.3638,71.4997 79.3580,71.4943 79.3514,71.4893 79.3431,71.4848 79.3335,71.4811 79.1796,71.4450 79.1550,71.4319 79.1431,71.4217 79.1432,71.4152 79.1466,71.4073 79.1677,71.3766 79.1706,71.3634 79.1753,71.3550 79.1842,71.3449 79.2098,71.3284 79.2270,71.3208 79.2447,71.3167 79.3351,71.3152 79.4665,71.3006 79.5652,71.2774 79.9544,71.1341 80.4032,71.0912 80.5265,71.0635 80.5376,71.0594 80.5463,71.0540 80.5501,71.0444 80.5463,71.0076 80.5469,71.0032 80.5474,70.9945 80.5538,70.9669 80.5541,70.9490 80.5510,70.9120 80.5519,70.9002 80.5544,70.8886 80.5582,70.8766 80.5609,70.8712 80.5647,70.8604 80.5690,70.8543 80.5764,70.8481 80.5916,70.8403 80.6408,70.8235 80.6447,70.8198 80.6799,70.8054 80.6859,70.8012 80.6856,70.7961 80.6819,70.7907 80.6758,70.7856 80.6522,70.7722 80.6142,70.7571 80.6061,70.7528 80.6002,70.7474 80.5958,70.7414 80.5930,70.7349 80.5918,70.7287 80.5928,70.7222 80.5972,70.7163 80.6080,70.7102 80.6587,70.6924 80.6689,70.6911 80.6948,70.6908 80.7069,70.6889 80.7167,70.6856 80.7416,70.6740 80.7490,70.6693 80.7546,70.6637 80.7575,70.6556 80.7578,70.6485 80.7562,70.6414 80.7528,70.6352 80.7475,70.6297 80.7407,70.6247 80.7349,70.6193 80.7305,70.6135 80.7278,70.6072 80.7244,70.6008 80.7198,70.5949 80.7132,70.5899 80.7046,70.5858 80.6701,70.5776 80.6630,70.5736 80.6618,70.5669 80.6647,70.5588 80.6714,70.5453 80.6680,70.5385 80.6636,70.5322 80.6609,70.5267 80.6582,70.5182 80.6469,70.5150 80.6186,70.5115 80.6114,70.5071 80.6096,70.5011 80.6138,70.4952 80.6257,70.4894 80.6489,70.4818 80.6566,70.4779 80.6619,70.4735 80.6613,70.4679 80.6602,70.4617 80.6618,70.4556 80.6687,70.4504 80.6847,70.4459 80.7014,70.4438 80.7478,70.4435 80.7792,70.4388 80.7798,70.4388 80.7801,70.4388 80.7879,70.4393 80.7946,70.4383 80.7964,70.4340 80.7959,70.4284 80.7928,70.4226 80.7884,70.4183 80.7803,70.4182 80.7701,70.4199 80.7568,70.4208 80.7565,70.4207 80.7558,70.4208 80.7441,70.4192 80.7376,70.4155 80.7368,70.4108 80.7475,70.4061 80.7546,70.4019 80.7569,70.3978 80.7471,70.3940 80.7352,70.3917 80.7229,70.3906 80.7114,70.3935 80.7040,70.3991 80.6989,70.4094 80.6944,70.4163 80.6877,70.4211 80.6754,70.4218 80.6751,70.4218 80.6745,70.4218 80.6498,70.4195 80.6380,70.4203 80.6270,70.4241 80.6167,70.4317 80.5984,70.4483 80.5909,70.4540 80.5823,70.4583 80.5700,70.4608 80.5691,70.4608 80.5691,70.4608 80.3499,70.4599 80.3257,70.4544 80.3159,70.4508 80.3074,70.4468 80.2945,70.4365 80.2871,70.4320 80.2765,70.4288 80.2637,70.4273 80.2483,70.4277 80.1921,70.4351 80.1915,70.4350 80.1911,70.4351 80.1809,70.4343 80.1769,70.4296 80.1788,70.4231 80.1846,70.4130 80.1874,70.4055 80.1871,70.3988 80.1827,70.3933 80.1737,70.3900 80.1618,70.3893 80.1239,70.3956 80.1092,70.3967 80.1088,70.3966 80.1082,70.3967 80.0954,70.3954 80.0884,70.3918 80.0893,70.3847 80.1016,70.3752 80.1064,70.3646 80.1032,70.3582 80.0951,70.3534 79.9601,70.3137 79.9541,70.3088 79.8804,70.2781 79.8314,70.2683 79.8186,70.2678 79.8057,70.2694 79.7946,70.2721 79.7845,70.2756 79.7610,70.2813 79.7293,70.2824 79.7292,70.2823 79.7284,70.2824 79.7172,70.2796 79.7102,70.2750 79.7093,70.2678 79.7141,70.2586 79.7219,70.2479 79.7173,70.2424 79.7074,70.2393 79.6644,70.2365 79.6544,70.2332 79.6302,70.2207 79.6238,70.2156 79.6185,70.2102 79.6152,70.2044 79.6140,70.1987 79.6118,70.1931 79.6069,70.1880 79.5845,70.1744 79.5053,70.1154 79.4964,70.1117 79.4846,70.1099 79.4560,70.1119 79.4288,70.1168 79.4063,70.1230 79.3982,70.1272 79.3936,70.1321 79.3969,70.1381 79.4121,70.1441 79.4084,70.1467 79.3927,70.1500 79.3582,70.1514 79.3580,70.1513 79.3573,70.1514 79.3436,70.1498 79.3335,70.1476 79.3307,70.1436 79.3316,70.1388 79.3397,70.1168 79.3393,70.1110 79.3363,70.1051 79.3323,70.0991 79.3317,70.0913 79.3358,70.0817 79.3524,70.0662 79.3567,70.0569 79.3555,70.0500 79.3481,70.0462 79.3397,70.0452 79.3286,70.0473 79.3187,70.0530 79.3085,70.0568 79.2964,70.0586 79.2957,70.0586 79.2954,70.0586 79.2084,70.0528 79.1966,70.0504 79.1883,70.0463 79.1830,70.0414 79.1831,70.0339 79.1871,70.0261 79.1963,70.0146 79.1926,70.0104 79.1862,70.0104 79.1636,70.0153 79.1500,70.0158 79.1497,70.0158 79.1490,70.0158 79.1364,70.0145 79.1338,70.0084 79.1406,69.9981 79.1712,69.9783 79.1765,69.9686 79.1718,69.9633 79.1456,69.9593 79.1364,69.9553 79.1288,69.9507 79.1158,69.9409 79.1076,69.9368 79.0964,69.9340 79.0551,69.9301 79.0485,69.9264 79.0454,69.9216 79.0408,69.9165 79.0346,69.9117 78.9992,69.8928 78.9648,69.8806 78.9537,69.8782 78.9406,69.8768 78.8870,69.8806 78.8867,69.8806 78.8861,69.8806 78.8799,69.8797 78.8802,69.8761 78.8924,69.8695 78.9129,69.8609 79.0054,69.8365 79.0123,69.8331 79.0109,69.8278 79.0054,69.8241 78.9913,69.8195 78.9838,69.8164 78.9798,69.8117 78.9859,69.8064 78.9996,69.8011 79.0500,69.7877 79.0648,69.7783 79.0677,69.7713 79.0664,69.7644 79.0642,69.7585 79.0667,69.7530 79.0751,69.7489 79.1251,69.7438 79.1304,69.7388 79.1258,69.7349 79.1164,69.7316 79.0140,69.7080 79.0120,69.7034 79.0166,69.6988 79.0679,69.6935 79.0801,69.6885 79.0930,69.6848 79.1122,69.6826 79.1438,69.6821 79.4167,69.6498 79.4176,69.6498 79.4328,69.6498 79.4338,69.6498 79.4465,69.6518 79.4566,69.6550 79.4681,69.6572 79.4799,69.6571 79.4911,69.6545 79.4964,69.6484 79.4988,69.6428 79.5035,69.6375 79.5203,69.6337 79.5296,69.6300 79.5315,69.6256 79.5254,69.6216 79.5090,69.6139 79.5080,69.6094 79.5173,69.6040 79.5684,69.5936 79.5854,69.5883 79.5948,69.5791 79.6021,69.5657 79.6215,69.5467 79.6404,69.5215 79.6427,69.5161 79.6442,69.5104 79.6446,69.5045 79.6430,69.4982 79.6445,69.4914 79.6498,69.4839 79.6674,69.4743 79.6817,69.4609 79.6924,69.4559 79.7166,69.4508 79.7294,69.4465 79.7303,69.4405 79.7247,69.4363 79.7225,69.4324 79.7309,69.4291 79.8014,69.4256 79.8141,69.4233 79.8191,69.4171 79.8187,69.4051 79.8201,69.3997 79.8238,69.3947 79.8297,69.3902 79.8695,69.3729 79.8707,69.3680 79.8665,69.3633 79.8593,69.3590 79.8543,69.3545 79.8553,69.3507 79.8646,69.3486 79.8653,69.3486 79.8656,69.3486 79.9111,69.3524 79.9258,69.3507 79.9413,69.3475 79.9598,69.3419 79.9775,69.3413 79.9777,69.3414 79.9784,69.3413 79.9905,69.3426 80.0134,69.3497 80.0363,69.3541 80.0995,69.3540 80.0995,69.3540 80.1005,69.3540 80.1200,69.3602 80.1297,69.3617 80.1384,69.3609 80.1391,69.3568 80.1406,69.3545 80.1480,69.3528 80.1488,69.3529 80.1490,69.3528 80.2291,69.3577 80.2598,69.3557 80.4696,69.3197 80.7342,69.3081 80.7630,69.3023 80.7713,69.2956 80.7764,69.2900 80.7792,69.2842 80.7857,69.2739 80.7928,69.2686 80.8082,69.2619 80.9018,69.2358 80.9267,69.2261 80.9332,69.2190 80.9401,69.2139 80.9496,69.2100 80.9669,69.2091 80.9671,69.2091 80.9678,69.2091 81.1684,69.2399 81.2325,69.2660 81.3248,69.2856 81.3394,69.2857 81.3576,69.2836 81.4432,69.2567 81.4442,69.2567 81.4442,69.2567 81.4726,69.2568 81.5269,69.2629 81.5720,69.2733 81.6116,69.2864 81.6198,69.2905 81.6272,69.2950 81.6331,69.3002 81.6370,69.3056 81.6386,69.3104 81.6362,69.3144 81.6339,69.3169 81.6231,69.3243 81.6179,69.3287 81.6173,69.3335 81.6200,69.3392 81.6281,69.3513 81.6342,69.3642 81.6355,69.3706 81.6361,69.3767 81.6343,69.3882 81.6311,69.3992 81.6285,69.4044 81.6266,69.4095 81.6271,69.4148 81.6319,69.4196 81.6583,69.4392 81.6659,69.4433 81.6748,69.4463 81.6851,69.4465 81.7576,69.4363 81.7832,69.4287 81.9171,69.3596 81.9242,69.3548 81.9294,69.3493 81.9300,69.3412 81.9270,69.3347 81.9216,69.3287 81.9087,69.3186 81.9008,69.3143 81.8537,69.2961 81.8193,69.2886 81.8100,69.2851 81.7664,69.2574 81.7614,69.2524 81.7595,69.2472 81.7608,69.2422 81.7722,69.2329 81.8410,69.1964 81.8695,69.1873 81.8932,69.1827 82.2569,69.1567 82.2575,69.1567 82.2579,69.1567 82.2715,69.1574 82.3723,69.1719 82.4008,69.1727 82.4306,69.1696 82.4432,69.1669 82.4531,69.1619 82.4603,69.1550 82.4644,69.1322 82.4678,69.1244 82.4788,69.1186 82.4896,69.1145 82.4968,69.1105 82.4937,69.1054 82.4872,69.1010 82.4699,69.0930 82.4633,69.0890 82.4605,69.0842 82.4572,69.0797 82.4487,69.0766 82.3665,69.0696 82.3429,69.0652 82.3327,69.0620 82.3275,69.0557 82.3290,69.0465 82.3464,69.0290 82.3604,69.0208 82.3769,69.0157 82.4253,69.0105 82.4376,69.0077 82.4501,69.0032 82.4565,69.0009 82.4807,68.9951 82.4928,68.9868 82.5048,68.9739 82.5339,68.9267 82.5400,68.9085 82.5481,68.8720 82.5488,68.8653 82.5459,68.8403 82.5471,68.8336 82.5516,68.8269 82.5639,68.8186 82.5909,68.8106 82.7292,68.7892 82.7299,68.7893 82.7302,68.7892 82.7422,68.7901 82.7746,68.7962 82.7817,68.7968 82.7874,68.7950 82.7927,68.7913 82.7976,68.7868 82.8059,68.7772 82.8075,68.7720 82.8062,68.7666 82.7985,68.7598 82.7939,68.7538 82.7963,68.7465 82.8035,68.7418 83.0154,68.6839 83.0310,68.6764 83.0363,68.6719 83.0388,68.6673 83.0281,68.6614 82.9384,68.6439 82.9229,68.6390 82.9153,68.6345 82.8667,68.6278 82.6834,68.6299 82.6833,68.6299 82.6824,68.6299 82.6435,68.6161 82.6005,68.6059 82.5904,68.6046 82.5806,68.6056 82.5499,68.6134 82.5406,68.6140 82.5406,68.6139 82.5397,68.6140 82.5359,68.6107 82.5318,68.5984 82.5284,68.5907 82.5196,68.5867 82.4804,68.5819 82.4718,68.5795 82.4689,68.5766 82.4824,68.5717 82.5359,68.5604 82.6174,68.5344 82.6661,68.5040 82.6737,68.4975 82.6793,68.4918 82.6892,68.4718 82.7096,68.4141 82.7039,68.3871 82.6967,68.3718 82.6925,68.3656 82.6890,68.3592 82.6869,68.3523 82.6866,68.3453 82.6917,68.3310 82.6970,68.3201 82.7026,68.3039 82.7027,68.2980 82.7011,68.2923 82.6923,68.2858 82.6806,68.2828 82.6413,68.2781 82.5995,68.2668 82.5817,68.2596 82.5741,68.2554 82.5417,68.2307 82.5306,68.2198 82.5281,68.2127 82.5284,68.2050 82.5356,68.1952 82.5484,68.1836 82.5496,68.1791 82.5426,68.1740 82.5333,68.1703 82.5227,68.1678 82.5132,68.1668 82.5040,68.1684 82.4638,68.1809 82.4388,68.1854 82.4245,68.1857 82.4243,68.1856 82.4235,68.1857 82.4111,68.1844 82.4015,68.1811 82.3946,68.1766 82.3907,68.1707 82.3888,68.1625 82.3865,68.1353 82.3829,68.1255 82.3782,68.1179 82.3672,68.1069 82.3635,68.1006 82.3625,68.0936 82.3688,68.0843 82.3747,68.0781 82.3869,68.0684 82.3910,68.0632 82.3922,68.0572 82.3888,68.0491 82.3848,68.0422 82.3817,68.0347 82.3809,68.0270 82.3860,68.0014 82.3863,67.9985 82.3860,67.9950 82.3848,67.9896 82.3763,67.9694 82.3754,67.9585 82.3716,67.9511 82.3646,67.9459 82.3536,67.9435 82.0602,67.9485 82.0212,67.9607 82.0090,67.9622 81.9892,67.9623 81.9891,67.9623 81.9882,67.9623 81.9780,67.9602 81.9689,67.9570 81.9371,67.9409 81.9029,67.9343 81.8778,67.9329 81.8521,67.9363 81.8049,67.9472 81.7787,67.9509 81.7779,67.9509 81.7778,67.9509 81.7651,67.9507 81.7562,67.9483 81.7420,67.9396 81.7299,67.9295 81.7256,67.9238 81.7264,67.9163 81.7305,67.9075 81.7579,67.8880 81.7682,67.8826 81.7852,67.8755 81.7999,67.8676 81.8468,67.8339 81.8818,67.7993 81.8951,67.7888 81.9124,67.7825 81.9404,67.7800 81.9531,67.7760 81.9645,67.7693 81.9815,67.7572 81.9923,67.7510 82.0001,67.7476 82.0065,67.7472 82.0067,67.7472 82.0075,67.7472 82.0243,67.7514 82.0341,67.7525 82.0433,67.7512 82.0517,67.7483 82.1003,67.7244 82.1033,67.7150 82.1012,67.7081 82.0954,67.7022 82.0895,67.6973 82.0856,67.6932 82.0871,67.6900 82.1068,67.6880 82.1123,67.6864 82.1086,67.6837 82.1010,67.6805 82.0617,67.6685 82.0538,67.6647 82.0489,67.6601 82.0492,67.6546 82.0598,67.6468 82.0769,67.6367 82.0950,67.6230 82.1096,67.6090 82.1261,67.6007 82.1422,67.5960 82.1733,67.5904 82.1864,67.5851 82.2021,67.5751 82.2520,67.5545 82.2627,67.5522 82.2746,67.5515 82.2749,67.5515 82.2755,67.5515 82.2870,67.5527 82.3285,67.5623 82.3382,67.5631 82.3479,67.5609 82.3563,67.5571 82.3563,67.5491 82.3517,67.5366 82.3520,67.5333 82.3530,67.5333 82.3597,67.5333 82.3606,67.5333 82.3808,67.5352 82.3890,67.5342 82.3902,67.5289 82.3868,67.5236 82.3738,67.5139 82.3660,67.5097 82.3591,67.5053 82.3548,67.5003 82.3557,67.4945 82.3637,67.4883 82.3707,67.4840 82.3744,67.4806 82.3693,67.4792 82.3367,67.4810 82.3365,67.4810 82.3358,67.4810 82.3299,67.4801 82.2965,67.4615 82.2835,67.4520 82.2779,67.4466 82.2687,67.4349 82.2628,67.4298 82.2541,67.4262 82.2513,67.4192 82.2561,67.4091 82.2881,67.3859 82.3284,67.3643 82.3318,67.3600 82.3266,67.3553 82.3159,67.3531 82.3021,67.3522 82.2929,67.3507 82.2912,67.3480 82.3031,67.3442 82.3452,67.3369 82.3544,67.3341 82.3579,67.3309 82.3525,67.3280 82.2813,67.3096 82.2693,67.3085 82.2570,67.3086 82.2334,67.3109 82.2331,67.3109 82.2324,67.3109 82.2259,67.3096 82.2288,67.3061 82.2552,67.2954 82.2624,67.2906 82.2618,67.2856 82.2563,67.2815 82.2466,67.2795 82.2359,67.2799 82.2036,67.2874 82.1939,67.2885 82.1937,67.2884 82.1929,67.2885 82.1874,67.2852 82.1879,67.2788 82.1947,67.2681 82.1923,67.2617 82.1842,67.2580 82.1307,67.2544 82.1214,67.2521 82.1168,67.2484 82.1173,67.2438 82.4565,67.1102 82.7957,66.9766 83.0418,66.8910 83.0519,66.8856 83.0554,66.8804 83.0504,66.8745 83.0344,66.8665 83.0300,66.8626 83.0348,66.8568 83.0412,66.8523 83.0576,66.8448 83.0669,66.8422 83.0778,66.8418 83.0781,66.8418 83.0787,66.8418 83.1123,66.8440 83.1222,66.8419 83.1304,66.8387 83.1619,66.8180 83.1675,66.8119 83.1720,66.8042 83.1755,66.7912 83.1777,66.7637 83.1788,66.7580 83.1819,66.7525 83.1869,66.7469 83.1963,66.7410 83.2461,66.7203 83.2598,66.7123 83.2837,66.6938 83.2900,66.6869 83.2946,66.6803 83.2965,66.6732 83.2928,66.6630 83.2848,66.6577 83.2742,66.6542 83.2225,66.6418 83.2058,66.6345 83.1985,66.6302 83.1814,66.6233 83.1049,66.6169 83.0954,66.6140 83.0889,66.6097 83.0858,66.6042 83.0781,66.5789 83.0780,66.5730 83.0787,66.5673 83.0798,66.5617 83.0815,66.5564 83.0835,66.5452 83.0838,66.5394 83.0807,66.5150 83.0804,66.5032 83.0829,66.4863 83.0910,66.4592 83.0953,66.4523 83.1018,66.4442 83.1242,66.4236 83.1338,66.4182 83.1424,66.4148 83.2420,66.3955 83.2624,66.3894 83.2696,66.3855 83.2869,66.3728 83.3436,66.3416 83.3554,66.3312 83.3942,66.2853 83.4151,66.2665 83.4209,66.2623 83.4530,66.2433 83.5301,66.1978 83.5354,66.1926 83.5351,66.1844 83.5314,66.1781 83.5246,66.1730 83.5084,66.1656 83.4702,66.1541 83.3806,66.1395 83.3724,66.1358 83.3665,66.1308 83.3628,66.1247 83.3600,66.1185 83.3566,66.1123 83.3519,66.1067 83.3454,66.1020 83.2992,66.0782 83.2940,66.0731 83.2928,66.0660 83.2961,66.0583 83.3385,66.0112 83.3525,65.9988 83.3730,65.9838 83.5212,65.9083 83.5246,65.9035 83.5240,65.8975 83.5199,65.8846 83.5190,65.8768 83.5196,65.8684 83.5258,65.8566 83.5242,65.8492 83.5203,65.8431 83.5141,65.8386 83.5098,65.8341 83.5109,65.8286 83.5181,65.8225 83.5791,65.7798 83.5853,65.7767 83.5923,65.7754 83.5928,65.7755 83.5933,65.7754 83.6510,65.7891 83.7446,65.8008 83.9651,65.8026 84.0120,65.7979 84.0310,65.7930 84.0381,65.7889 84.0442,65.7833 84.0624,65.7617 84.0742,65.7530 84.1284,65.7272 84.1455,65.7145 84.1522,65.7105 84.1683,65.7034 84.1871,65.6970 84.2105,65.6920 84.2961,65.6894 84.3089,65.6879 84.3194,65.6844 84.3207,65.6769 84.3187,65.6701 84.3057,65.6523 84.3035,65.6464 84.3021,65.6288 84.3005,65.6228 84.2974,65.6175 84.2909,65.6132 84.2606,65.6060 84.2108,65.6039 84.2003,65.6023 84.1946,65.5993 84.1958,65.5954 84.2046,65.5925 84.4299,65.5514 84.4420,65.5462 84.4534,65.5386 84.4678,65.5232 84.4787,65.5154 84.4983,65.5038 84.5060,65.4952 84.5236,65.4677 84.5468,65.4416 84.5502,65.4334 84.5472,65.4238 84.5407,65.4178 84.5144,65.4062 84.5088,65.4010 84.5068,65.3945 84.5150,65.3791 84.5192,65.3735 84.5239,65.3692 84.5378,65.3612 84.5454,65.3554 84.5513,65.3477 84.5592,65.3341 84.5669,65.3268 84.5824,65.3166 84.5856,65.3111 84.5849,65.2972 84.5839,65.2912 84.5811,65.2855 84.5659,65.2627 84.5631,65.2544 84.5596,65.2493 84.5547,65.2434 84.5233,65.2134 84.5156,65.2089 84.5063,65.2057 84.4961,65.2037 84.4383,65.1992 84.4188,65.1940 84.4103,65.1903 84.4025,65.1858 84.3882,65.1752 84.3575,65.1461 84.3367,65.1210 84.3128,65.0985 84.3098,65.0929 84.3079,65.0874 84.3091,65.0794 84.3148,65.0698 84.3311,65.0528 84.3451,65.0449 84.3589,65.0391 84.3692,65.0358 84.3779,65.0322 84.3826,65.0279 84.3859,65.0232 84.3881,65.0165 84.3890,65.0082 84.3868,64.9939 84.3807,64.9861 84.3729,64.9804 84.3163,64.9631 84.2995,64.9556 84.2918,64.9510 84.2850,64.9459 84.2789,64.9403 84.2745,64.9346 84.2727,64.9275 84.2743,64.9199 84.2834,64.9089 84.2921,64.9027 84.3038,64.8982 84.3168,64.8957 84.4701,64.8902 84.4703,64.8902 84.4711,64.8902 84.8205,64.9307 84.9201,64.9279 84.9427,64.9221 84.9511,64.9179 84.9572,64.9129 84.9633,64.9062 84.9667,64.8992 84.9677,64.8914 84.9621,64.8789 84.9541,64.8722 84.9380,64.8622 84.9318,64.8570 84.9276,64.8514 84.9260,64.8450 84.9266,64.8382 84.9324,64.8291 84.9392,64.8233 84.9482,64.8187 84.9708,64.8126 84.9944,64.8090 85.0364,64.8077 85.0366,64.8077 85.0373,64.8077 85.0819,64.8117 85.0927,64.8109 85.1015,64.8056 85.1082,64.7973 85.1161,64.7716 85.1201,64.7647 85.1252,64.7603 85.1317,64.7565 85.1404,64.7536 85.1490,64.7518 85.1608,64.7506 85.1617,64.7506 85.1618,64.7506 85.1853,64.7508 85.3491,64.7831 85.4382,64.7920 85.4472,64.7953 85.4793,64.8124 85.5159,64.8251 85.5368,64.8288 85.5595,64.8300 85.6100,64.8278 85.8185,64.7843 85.8380,64.7773 85.8451,64.7734 85.8513,64.7688 85.8557,64.7634 85.8590,64.7564 85.8597,64.7505 85.8577,64.7393 85.8502,64.7224 85.8120,64.6563 85.8102,64.6477 85.8132,64.6431 85.8179,64.6387 85.8238,64.6346 85.8313,64.6306 85.9018,64.6016 85.9083,64.5976 85.9129,64.5932 85.9160,64.5885 85.9128,64.5800 85.9043,64.5686 85.8591,64.5239 85.8523,64.5148 85.8445,64.5010 85.8411,64.4926 85.8396,64.4857 85.8400,64.4644 85.8415,64.4592 85.8448,64.4544 85.8508,64.4502 85.9222,64.4169 85.9269,64.4128 85.9302,64.4081 85.9309,64.4030 85.9253,64.3760 85.9259,64.3710 85.9289,64.3663 85.9417,64.3529 85.9441,64.3481 85.9454,64.3433 85.9461,64.3381 85.9480,64.3333 85.9508,64.3285 85.9556,64.3242 85.9627,64.3203 86.0009,64.3048 86.0173,64.2934 86.0218,64.2890 86.0281,64.2798 86.0299,64.2750 86.0305,64.2699 86.0302,64.2646 86.0267,64.2536 86.0240,64.2480 86.0206,64.2369 86.0150,64.2288 85.9865,64.2000 85.9788,64.1899 85.9754,64.1821 85.9761,64.1771 85.9727,64.1692 85.9657,64.1593 85.9460,64.1408 85.9376,64.1306 85.9342,64.1228 85.9371,64.1181 85.9418,64.1137 85.9483,64.1097 85.9560,64.1060 85.9627,64.1019 85.9664,64.0974 85.9674,64.0924 85.9671,64.0819 85.9652,64.0712 85.9635,64.0657 85.9579,64.0596 85.9482,64.0534 85.6724,63.9910 85.6572,63.9850 85.5997,63.9563 85.5633,63.9429 85.5335,63.9367 85.5236,63.9316 85.5138,63.9246 85.4920,63.9021 85.4800,63.8935 85.4366,63.8727 85.4280,63.8667 85.4186,63.8563 85.4091,63.8422 85.3731,63.8084 85.3678,63.7994 85.3667,63.7922 85.3666,63.7854 85.3620,63.7762 85.3462,63.7598 85.3420,63.7507 85.3410,63.7436 85.3438,63.7390 85.3459,63.7341 85.3467,63.7290 85.3462,63.7237 85.3447,63.7182 85.3383,63.7067 85.3330,63.7008 85.2695,63.6515 85.2568,63.6439 85.2196,63.6266 85.2098,63.6197 85.1912,63.6018 85.1812,63.5970 85.1673,63.5948 85.1423,63.5967 85.1031,63.6059 85.0901,63.6074 85.0893,63.6074 85.0891,63.6074 85.0761,63.6071 85.0601,63.6038 85.0507,63.6006 85.0318,63.5864 85.0361,63.5830 85.0370,63.5831 85.0370,63.5830 85.0395,63.5831 85.0470,63.5720 85.0610,63.5561 85.0775,63.5432 85.0967,63.5342 85.0977,63.5342 85.0977,63.5342 85.1560,63.5351 85.1861,63.5304 85.1992,63.5106 85.2001,63.5106 85.2001,63.5106 85.2134,63.5109 85.2768,63.5223 85.2991,63.5174 85.3193,63.4986 85.3356,63.4868 85.3779,63.4665 85.3734,63.4540 85.3768,63.4439 85.3915,63.4243 85.3615,63.4149 85.3648,63.4048 85.3816,63.3932 85.3915,63.3796 85.3943,63.3708 85.4013,63.3611 85.4102,63.3532 85.4189,63.3492 85.4198,63.3492 85.4199,63.3492 85.4347,63.3497 85.4413,63.3558 85.4457,63.3636 85.4540,63.3697 85.4964,63.3748 85.6406,63.3742 85.6721,63.3598 85.6678,63.3445 85.6560,63.3346 85.6174,63.3151 85.5605,63.2732 85.5390,63.2673 85.5309,63.2628 85.5315,63.2525 85.5349,63.2408 85.5356,63.2325 85.5288,63.2251 85.5097,63.2172 85.5014,63.2120 85.4915,63.1982 85.4694,63.1492 85.4696,63.1431 85.4696,63.1383 85.4740,63.1341 85.4955,63.1225 85.5013,63.1183 85.5171,63.1004 85.5224,63.0961 85.5313,63.0927 85.5790,63.0833 85.5843,63.0795 85.5863,63.0742 85.5863,63.0682 85.5840,63.0539 85.5777,63.0449 85.5658,63.0343 85.5121,63.0014 85.5078,62.9995 85.4994,62.9931 85.4961,62.9862 85.4964,62.9807 85.4982,62.9754 85.5013,62.9708 85.5085,62.9565 85.5180,62.9426 85.5199,62.9379 85.5183,62.9326 85.5004,62.9161 85.4645,62.8913 85.4443,62.8843 85.3419,62.8753 85.3329,62.8727 85.3243,62.8693 85.2252,62.8012 85.1667,62.7475 85.1581,62.7361 85.1571,62.7307 85.1571,62.7254 85.1559,62.7200 85.1518,62.7143 85.1444,62.7082 85.1349,62.7019 85.0993,62.6849 85.0916,62.6798 85.0854,62.6735 85.0819,62.6638 85.0837,62.6575 85.0882,62.6522 85.0931,62.6480 85.0941,62.6432 85.0900,62.6380 85.0754,62.6322 85.0430,62.6243 85.0322,62.6205 84.9968,62.6011 84.9866,62.5980 84.9577,62.5929 84.9485,62.5892 84.9406,62.5829 84.9330,62.5723 84.9257,62.5640 84.9166,62.5564 84.9023,62.5479 84.8941,62.5411 84.8900,62.5329 84.8917,62.5272 84.8951,62.5221 84.9085,62.5089 84.9113,62.5042 84.9113,62.4990 84.9076,62.4931 84.8969,62.4808 84.8718,62.4586 84.8609,62.4512 84.8158,62.4277 84.7852,62.4164 84.7456,62.4104 84.4508,62.1983 84.4357,62.1780 84.5513,62.0015 84.5527,61.9991 84.5533,61.9965 84.5528,61.9931 84.5509,61.9881 84.5201,61.9451 84.5187,61.9395 84.5208,61.9347 84.5233,61.9300 84.5345,61.9164 84.5376,61.9118 84.5460,61.9028 84.5568,61.8980 84.6272,61.8788 84.6413,61.8720 84.6474,61.8670 84.6554,61.8576 84.6678,61.8390 84.6753,61.8247 84.6784,61.8201 84.6811,61.8153 84.6897,61.8100 84.7046,61.8045 84.8275,61.7867 84.8281,61.7868 84.8285,61.7867 84.9199,61.7965 84.9415,61.7961 85.0005,61.7854 85.0868,61.7542 85.1203,61.7377 85.1583,61.7085 85.1718,61.7035 85.2727,61.6826 85.2735,61.6826 85.2736,61.6826 85.2952,61.6833 85.3147,61.6864 85.3576,61.6995 85.3666,61.7013 85.3759,61.7011 85.3861,61.6981 85.4030,61.6850 85.4314,61.6580 85.4580,61.6370 85.4672,61.6325 85.4796,61.6279 85.7219,61.5747 85.7319,61.5742 85.7321,61.5743 85.7328,61.5742 85.8008,61.5838 85.8356,61.5942 85.8449,61.5956 85.8540,61.5951 85.9562,61.5500 85.9634,61.5449 85.9686,61.5385 85.9730,61.5269 85.9739,61.5083 85.9724,61.4995 85.9682,61.4746 85.9504,61.4647 85.7711,61.4435 85.7535,61.4378 85.6439,61.3876 85.6384,61.3824 85.6352,61.3768 85.6347,61.3716 85.6363,61.3667 85.6420,61.3573 85.6535,61.3439 85.7021,61.3062 85.6935,61.2990 85.6712,61.2892 85.3720,61.2049 85.0101,61.1028 84.6481,61.0007 84.6227,61.0001 84.2596,60.8555 83.9972,60.8261 83.9888,60.8269 83.9486,60.8416 83.8919,60.8717 83.6162,60.9818 83.5212,61.0410 83.5141,61.0445 83.5036,61.0472 83.1442,61.0282 82.7758,60.8756 82.4074,60.7230 82.3912,60.7115 82.3862,60.6984 82.3851,60.6843 82.3882,60.6399 82.3868,60.6256 82.3807,60.6120 82.3624,60.6006 82.1905,60.5308 82.1654,60.5263 82.1390,60.5320 81.9057,60.6296 81.8728,60.6385 81.8304,60.6447 81.5451,60.6313 81.4977,60.6155 81.1405,60.6367 81.1149,60.6418 81.0941,60.6526 81.0757,60.6659 81.0608,60.6803 81.0528,60.6944 81.0406,60.7378 81.0356,60.7494 81.0275,60.7547 81.0172,60.7572 80.8585,60.7785 80.7235,60.7966 80.7072,60.7965 80.6893,60.7939 80.6351,60.7719 80.6235,60.7687 80.4415,60.7671 80.4284,60.7648 80.4139,60.7606 80.2087,60.6701 80.1857,60.6647 80.1654,60.6636 79.8533,60.6919 79.5026,60.6866 79.3951,60.6639 79.3737,60.6623 79.3595,60.6636 79.3077,60.7051 79.2888,60.7160 79.2854,60.7205 79.2846,60.7256 79.2888,60.7703 79.2907,60.7756 79.2953,60.7804 79.3136,60.7923 79.3150,60.7965 79.3118,60.8007 79.3053,60.8043 79.2976,60.8073 79.2879,60.8088 79.2573,60.8087 79.2475,60.8107 79.2387,60.8135 79.2044,60.8324 79.1957,60.8355 79.1852,60.8376 79.1685,60.8366 79.1095,60.8255 79.0896,60.8242 79.0615,60.8251 79.0218,60.8199 79.0095,60.8205 79.0008,60.8222 78.9962,60.8242 78.9888,60.8265 78.9758,60.8252 78.9599,60.8195 78.9069,60.7880 78.8937,60.7849 78.8065,60.7798 78.7950,60.7815 78.7854,60.7842 78.6994,60.8276 78.6878,60.8289 78.6749,60.8280 78.4943,60.7802 78.4744,60.7775 78.1641,60.8031 78.1205,60.8018 78.0794,60.7952 77.9411,60.7492 77.9312,60.7479 77.9204,60.7475 77.9090,60.7484 77.8978,60.7505 77.8881,60.7533 77.8800,60.7566 77.8460,60.7809 77.8249,60.7918 77.7492,60.8158 77.7023,60.8252 77.5620,60.8291 77.4075,60.8111 77.3961,60.8121 77.3357,60.8285 77.3117,60.8323 77.2519,60.8342 77.1361,60.8561 77.1176,60.8553 77.1048,60.8525 77.0980,60.8493 77.0913,60.8428 77.0866,60.8332 77.0693,60.7621 77.0687,60.7564 77.0706,60.7458 77.0733,60.7407 77.0676,60.7263 77.0368,60.7264 77.0161,60.7293 76.9942,60.7357 76.9856,60.7217 76.9780,60.7204 76.9733,60.7163 76.9709,60.7104 76.9703,60.6491 76.9773,60.6415 76.9867,60.6376 77.0222,60.6342 77.0296,60.6318 77.0344,60.6278 77.0377,60.6234 77.0404,60.6186 77.0482,60.5984 77.0535,60.5775 77.0513,60.5692 77.0466,60.5590 77.0327,60.5406 77.0225,60.5325 77.0127,60.5272 76.8810,60.4887 76.8344,60.4828 76.8059,60.4711 76.7796,60.4518 76.7527,60.3775 76.7489,60.3573 76.7494,60.3469 76.7561,60.3424 76.7666,60.3402 76.8019,60.3363 76.8106,60.3335 76.8176,60.3300 76.8225,60.3258 76.8262,60.3213 76.8322,60.3117 76.8471,60.2778 76.8486,60.2723 76.8480,60.2661 76.7811,60.1729 76.7644,60.1579 76.6986,60.1173 76.6940,60.1126 76.6927,60.1072 76.6988,60.1012 76.7066,60.0969 76.7348,60.0877 76.7422,60.0842 76.7486,60.0804 76.7530,60.0760 76.7554,60.0712 76.7570,60.0660 76.7575,60.0567 76.7385,59.9360 76.7415,59.7578 76.7378,59.7435 76.7280,59.7295 76.6563,59.6927 76.6462,59.6660 76.6480,59.6079 76.6455,59.5851 76.6320,59.5766 76.4401,59.5446 76.1717,59.5428 76.1538,59.5351 76.0072,59.4284 76.0012,59.4248 75.9962,59.4225 75.9894,59.4201 75.9712,59.4177 75.9607,59.4184 75.9505,59.4205 75.9146,59.4321 75.9059,59.4317 75.8951,59.4264 75.8737,59.3926 75.8434,59.3233 75.8331,59.3087 75.8187,59.2945 75.7877,59.2787 75.7653,59.2706 75.6493,59.2456 75.6284,59.2378 75.6249,59.2255 75.6270,59.2116 75.6819,59.0642 75.6869,59.0401 75.6719,59.0156 75.6416,58.9824 75.3732,58.7859 75.1965,58.7005 75.1607,58.6777 75.1595,58.6502 75.1589,58.6280 75.1575,58.6182 75.1052,58.5810 74.9487,58.5073 74.9300,58.4901 74.9218,58.4839 74.8954,58.4752 74.8887,58.4687 74.8878,58.4632 74.8887,58.4575 74.8902,58.4523 74.8911,58.4470 74.8902,58.4415 74.8870,58.4361 74.8806,58.4317 74.8718,58.4283 74.8579,58.4266 74.8220,58.4269 74.7952,58.4179 74.6708,58.3544 74.6398,58.3339 74.6233,58.3197 74.6237,58.3141 74.6248,58.3088 74.6255,58.3035 74.6219,58.2985 74.6136,58.2943 74.5447,58.2840 74.4839,58.2691 74.2063,58.1336 73.8333,58.1378 73.4603,58.1421 73.0874,58.1463 73.0664,58.1406 72.9852,58.1074 72.9683,58.0964 72.9546,58.0836 72.9577,58.0656 72.9484,58.0534 72.9337,58.0409 72.9137,58.0296 72.8892,58.0190 72.8612,58.0105 72.6478,58.0135 72.5235,58.0152 72.4755,58.0284 72.1491,58.0262 72.1252,58.0314 72.1065,58.0472 72.0764,58.0795 72.0576,58.0950 72.0243,58.1107 71.9889,58.1227 71.9627,58.1224 71.5849,58.0953 71.5130,58.0826 71.4817,58.0801 71.4594,58.0815 71.4184,58.0921 71.4013,58.0921 71.2692,58.0764 71.2494,58.0765 71.2441,58.0833 71.2428,58.0897 71.2479,58.1098 71.2469,58.1165 71.2434,58.1232 71.2332,58.1321 71.2268,58.1398 71.2220,58.1506 71.2211,58.1581 71.2209,58.1658 71.2450,58.3409 71.2479,58.3515 71.2521,58.3563 71.2591,58.3594 71.2750,58.3640 71.2898,58.3698 71.2952,58.3741 71.2996,58.3792 71.3016,58.3851 71.2927,58.3949 71.2738,58.4071 71.1918,58.4397 71.1636,58.4448 71.1382,58.4459 71.1281,58.4480 71.1203,58.4534 71.1162,58.4588 71.1138,58.4643 71.1112,58.4752 71.1088,58.4803 71.0979,58.4935 71.0835,58.5185 71.0773,58.5224 71.0679,58.5247 71.0175,58.5187 71.0018,58.5204 70.9758,58.5271 70.9638,58.5326 70.9559,58.5379 70.9517,58.5421 70.9435,58.5456 70.9303,58.5473 70.8910,58.5450 70.8646,58.5346 70.6664,58.2581 70.4682,57.9815 70.4415,57.9588 70.4375,57.9536 70.4328,57.9405 70.4361,57.9338 70.3840,57.9223 70.3862,57.9071 70.4047,57.8890 70.4255,57.8741 70.4201,57.8658 70.4183,57.8584 70.4200,57.8520 70.4255,57.8468 70.4294,57.8381 70.4375,57.8304 70.4382,57.8156 70.4376,57.8063 70.4353,57.7977 70.4298,57.7848 70.4329,57.7788 70.4412,57.7729 70.4690,57.7673 70.4805,57.7607 70.4886,57.7493 70.4954,57.7230 70.5000,57.7126 70.5075,57.7090 70.5459,57.7084 70.5650,57.7053 70.5726,57.6973 70.5753,57.6796 70.5799,57.5836 70.5855,57.5797 70.5900,57.5785 70.5982,57.5791 70.6060,57.5805 70.6292,57.5879 70.6451,57.5910 70.6585,57.5921 70.6671,57.5918 70.6759,57.5900 70.6821,57.5866 70.6864,57.5817 70.6886,57.5758 70.6902,57.5678 70.6904,57.5487 70.6911,57.5429 70.6924,57.5375 70.6931,57.5318 70.6913,57.5256 70.6865,57.5188 70.6752,57.5113 70.4362,57.4093 70.4307,57.4048 70.4269,57.3990 70.4320,57.3838 70.4373,57.3730 70.4908,57.3038 70.4982,57.2983 70.5529,57.2706 70.5622,57.2682 70.5726,57.2665 70.6338,57.2646 70.6485,57.2623 70.6547,57.2580 70.6560,57.2529 70.6550,57.2482 70.6536,57.2455 70.6502,57.2425 70.6269,57.2338 70.6139,57.2268 70.6094,57.2216 70.6066,57.2157 70.6052,57.2094 70.6071,57.2043 70.6124,57.2006 70.7285,57.1936 70.7455,57.1957 70.7597,57.1995 70.7768,57.2094 70.7829,57.2170 70.7855,57.2240 70.7857,57.2300 70.7839,57.2353 70.7804,57.2400 70.7634,57.2455 70.7584,57.2495 70.7556,57.2544 70.7542,57.2598 70.7541,57.2713 70.7559,57.2769 70.7599,57.2818 70.8001,57.3191 70.8510,57.3280 70.9600,57.3369 70.9832,57.3426 70.9961,57.3502 71.0037,57.3512 71.0151,57.3512 71.0798,57.3444 71.0983,57.3391 71.1030,57.3264 71.0958,57.3030 71.0954,57.2966 71.0985,57.2913 71.1091,57.2880 71.1196,57.2864 71.1296,57.2834 71.1362,57.2774 71.1419,57.2655 71.1443,57.2581 71.1440,57.2523 71.1383,57.2494 71.1302,57.2478 71.1101,57.2462 71.1011,57.2447 71.0939,57.2420 71.0895,57.2371 71.0889,57.2306 71.0924,57.2242 71.1033,57.2167 71.1137,57.2126 71.1246,57.2096 71.2143,57.2045 71.2242,57.2016 71.2313,57.1961 71.2361,57.1850 71.3712,57.0638 71.3905,57.0532 71.5691,56.9826 71.6177,56.9529 71.6523,56.9226 71.6566,56.9156 71.6607,56.9038 71.6706,56.8604 71.6733,56.8378 71.6717,56.8320 71.6678,56.8264 71.6121,56.8077 71.6043,56.8036 71.5971,56.7978 71.5898,56.7865 71.5774,56.7592 71.5567,56.7322 71.5390,56.7235 71.4886,56.7169 71.4573,56.7217 71.4403,56.7279 71.4343,56.7316 71.4256,56.7333 71.4153,56.7327 71.3997,56.7253 71.3945,56.7189 71.3926,56.7126 71.3955,56.7019 71.3960,56.6962 71.3948,56.6905 71.3923,56.6853 71.3874,56.6811 71.3809,56.6779 71.3735,56.6752 71.3570,56.6711 71.3466,56.6703 71.3329,56.6712 71.2591,56.6847 71.1689,56.6757 71.1466,56.6798 71.0785,56.6998 71.0596,56.7016 71.0448,56.6947 71.0509,56.6822 71.0949,56.6575 71.1069,56.6390 71.1026,56.6159 71.0782,56.5687 71.0531,56.5444 71.0290,56.5265 70.9714,56.4991 70.9506,56.4945 70.8606,56.5016 70.8442,56.5004 70.8114,56.4918 70.7948,56.4838 70.7804,56.4717 70.7743,56.4597 70.7876,56.4471 70.8074,56.4479 70.8554,56.4559 70.8704,56.4495 70.8829,56.4388 70.8937,56.4276 70.9040,56.4223 70.9146,56.4191 70.9246,56.4171 70.9331,56.4121 70.9386,56.4043 70.9407,56.3879 70.9408,56.3698 70.9392,56.3630 70.9358,56.3557 70.9275,56.3470 70.9190,56.3428 70.9095,56.3403 70.8443,56.3325 70.8361,56.3304 70.8287,56.3273 70.7703,56.2959 70.7684,56.2888 70.7714,56.2796 70.7855,56.2628 70.7960,56.2579 70.8067,56.2561 70.8153,56.2577 70.8241,56.2586 70.8322,56.2585 70.8387,56.2560 70.8433,56.2521 70.8470,56.2476 70.8495,56.2423 70.8499,56.2363 70.8470,56.2284 70.8421,56.2228 70.8365,56.2180 70.8175,56.2076 70.8132,56.2016 70.8123,56.1924 70.8184,56.1757 70.8231,56.1665 70.8279,56.1596 70.8340,56.1559 70.8433,56.1536 70.8656,56.1503 70.8845,56.1457 70.8924,56.1428 70.8993,56.1395 70.9053,56.1359 70.9099,56.1318 70.9112,56.1234 70.9090,56.1118 70.8738,56.0403 70.8668,56.0212 70.8630,55.9916 70.8609,55.9840 70.8550,55.9737 70.8467,55.9634 70.8088,55.9250 70.8034,55.9209 70.7622,55.9035 70.7217,55.8987 70.5127,55.8944 70.4814,55.8895 70.4755,55.8765 70.4876,55.8541 70.5053,55.8473 70.5858,55.8379 70.6127,55.8399 70.7062,55.8552 70.7328,55.8562 70.7539,55.8531 70.7656,55.8380 70.7520,55.8278 70.7315,55.8191 70.6792,55.8067 70.6709,55.8073 70.6623,55.8093 70.6464,55.8144 70.6372,55.8156 70.6297,55.8154 70.6236,55.8139 70.5941,55.8017 70.5889,55.7986 70.5863,55.7940 70.5889,55.7811 70.5894,55.7747 70.5882,55.7682 70.5787,55.7545 70.5490,55.7262 70.5455,55.7193 70.5436,55.7103 70.5440,55.6963 70.5468,55.6811 70.5493,55.6755 70.5560,55.6702 70.6121,55.6406 70.6325,55.6326 70.6514,55.6309 70.6924,55.6317 70.7052,55.6288 70.7233,55.6201 70.7377,55.6067 70.7471,55.5903 70.7365,55.5653 70.7080,55.5226 70.7019,55.5163 70.6916,55.5088 70.6755,55.5050 70.5588,55.4921 70.5499,55.4901 70.5436,55.4865 70.4870,55.4369 70.4750,55.4241 70.4710,55.4180 70.4693,55.4103 70.4688,55.4014 70.4722,55.3884 70.4750,55.3805 70.4786,55.3744 70.4859,55.3653 70.5001,55.3505 70.5025,55.3471 70.4997,55.3328 70.4699,55.2966 70.4686,55.2856 70.4601,55.2874 70.4412,55.2833 70.5613,55.2696 70.6934,55.3111 70.7212,55.3131 70.7776,55.3070 70.8204,55.2941 70.8045,55.2815 70.7889,55.2655 70.7821,55.2485 70.7932,55.2332 70.8619,55.1806 70.9601,55.1056 70.9771,55.0780 70.9779,55.0657 70.9771,55.0534 70.9775,55.0516 70.9775,55.0479 70.9771,55.0461 70.9733,55.0185 70.9692,55.0051 70.9634,54.9923 70.9570,54.9735 70.9745,54.9469 70.9664,54.9349 70.9551,54.9233 70.9475,54.9061 70.9459,54.8879 70.9533,54.8735 70.9900,54.8486 70.9972,54.8348 70.9941,54.8075 71.0060,54.7742 71.0470,54.7491 71.0972,54.7330 71.1369,54.7270 71.1803,54.7274 71.2007,54.7240 71.2188,54.7142 71.2528,54.6824 71.2647,54.6617 71.2649,54.6392 71.2523,54.6253 71.2302,54.6175 71.1790,54.6087 71.1476,54.5914 71.1412,54.5638 71.1482,54.4925 71.1459,54.4862 71.1452,54.4806 71.1469,54.4762 71.1669,54.4627 71.1710,54.4510 71.1659,54.4170 71.1687,54.4109 71.1761,54.4076 71.1935,54.4040 71.1980,54.3995 71.1981,54.3917 71.1957,54.3745 71.1958,54.3608 71.1906,54.3182 71.1344,54.3116 71.1163,54.3117 71.0969,54.3157 71.0598,54.3280 71.0395,54.3321 71.0034,54.3331 70.9800,54.3251 70.9708,54.3050 70.9771,54.2701 71.0388,54.2676 71.0521,54.2632 71.0572,54.2471 71.0564,54.2234 71.0516,54.2003 71.0440,54.1859 71.0824,54.1743 71.0974,54.1651 71.1130,54.1502 71.1437,54.1137 71.1613,54.1020 71.1823,54.1016 71.2181,54.1163 71.2458,54.1358 71.2963,54.1890 71.3206,54.2010 71.3497,54.1977 71.3816,54.1888 71.4130,54.1844 71.4435,54.1851 71.4531,54.1813 71.4624,54.1715 71.4683,54.1584 71.4771,54.1097 71.4991,54.1116 71.5494,54.1270 71.5735,54.1292 71.5842,54.1259 71.6047,54.1137 71.6150,54.1095 71.6324,54.1071 71.6472,54.1086 71.6806,54.1191 71.7087,54.1322 71.7173,54.1465 71.7122,54.1907 71.7154,54.2107 71.7254,54.2291 71.7414,54.2424 71.7625,54.2476 71.9580,54.2360 71.9836,54.2316 72.0025,54.2256 72.0187,54.2150 72.0770,54.1483 72.0995,54.1319 72.1289,54.1261 72.1551,54.1284 72.1776,54.1360 72.1905,54.1520 72.1874,54.1794 72.1700,54.1968 72.1423,54.2033 72.1115,54.2062 72.0851,54.2131 72.0667,54.2224 72.0654,54.2280 72.0657,54.2410 72.0676,54.2511 72.0721,54.2627 72.0780,54.2739 72.0987,54.3005 72.1030,54.3116 72.0948,54.3208 72.0713,54.3332 72.0384,54.3460 72.0271,54.3553 72.0247,54.3709 72.0432,54.3780 72.1518,54.3683 72.1848,54.3568 72.2219,54.3332 72.2528,54.3035 72.2675,54.2735 72.2787,54.2627 72.3244,54.2535 72.3371,54.2365 72.3330,54.2238 72.2986,54.1784 72.3881,54.1576 72.4829,54.1356 72.4844,54.1325 72.4820,54.1283 72.4767,54.1237 72.4667,54.1099 72.4542,54.1071 72.4397,54.1089 72.4232,54.1087 72.4193,54.1053 72.4119,54.0928 72.4079,54.0896 72.3985,54.0897 72.3682,54.0963 72.3584,54.0930 72.3569,54.0818 72.3600,54.0686 72.3636,54.0595 72.3819,54.0430 72.4051,54.0307 72.4187,54.0160 72.4078,53.9925 72.4078,53.9923 72.3831,53.9564 72.3728,53.9362 72.3730,53.9201 72.3922,53.9082 72.4234,53.9035 72.4556,53.9053 72.4767,53.9134 72.5181,53.9432 72.5439,53.9708 72.5568,53.9772 72.5721,53.9764 72.6737,53.9505 72.7002,53.9576 72.6948,53.9926 72.6756,54.0217 72.6562,54.0425 72.6318,54.0539 72.5971,54.0546 72.5094,54.0436 72.5031,54.0509 72.5088,54.0687 72.5192,54.0882 72.5274,54.1001 72.5731,54.1287 72.6242,54.1350 72.7573,54.1260 72.8855,54.1173 72.9420,54.1218 72.9568,54.1175 72.9684,54.1041 72.9736,54.0865 72.9768,54.0477 73.0237,54.0340 73.0353,54.0206 73.0444,53.9923 73.0628,53.9791 73.1907,53.9616 73.3603,53.9384 73.3739,53.9409 73.3793,53.9487 73.3813,53.9602 73.3843,53.9703 73.3928,53.9740 73.4241,53.9726 73.4335,53.9707 73.4460,53.9639 73.4690,53.9473 73.4816,53.9454 73.5059,53.9497 73.5180,53.9560 73.5215,53.9687 73.5199,53.9923 73.5199,53.9924 73.5283,54.0107 73.5869,54.0194 73.6044,54.0347 73.6009,54.0469 73.5919,54.0577 73.5885,54.0662 73.6015,54.0712 73.6543,54.0785 73.6705,54.0759 73.6717,54.0724 73.6749,54.0516 73.6849,54.0484 73.7406,54.0579 73.6971,53.9008 73.6829,53.8741 73.6617,53.8608 73.6343,53.8574 73.4853,53.8749 73.4559,53.8737 73.4318,53.8654 73.4110,53.8503 73.3912,53.8282 73.4378,53.8085 73.3474,53.7876 73.3312,53.7752 73.3066,53.6857 73.2638,53.6810 73.2448,53.6748 73.2297,53.6624 73.2204,53.6431 73.2249,53.6299 73.2588,53.6063 73.2306,53.5723 73.3912,53.5202 73.3472,53.4594 73.4110,53.4300 73.4241,53.4326 73.5236,53.4924 73.5237,53.4924 73.5237,53.4925 73.5465,53.5069 73.5552,53.5148 73.5635,53.5255 73.5726,53.5432 73.5760,53.5532 73.5825,53.5586 73.6004,53.5629 73.6079,53.5633 73.6319,53.5609 73.6407,53.5632 73.6432,53.5702 73.6441,53.5792 73.6510,53.5948 73.6512,53.6028 73.6529,53.6092 73.6598,53.6116 73.7365,53.6098 73.7533,53.6070 73.7878,53.5951 73.8033,53.5984 73.8727,53.6321 73.9042,53.6392 73.9367,53.6395 73.9767,53.6352 74.0436,53.6300 74.0580,53.6246 74.0630,53.6087 74.0615,53.5895 74.0628,53.5732 74.0769,53.5662 74.1077,53.5651 74.1187,53.5695 74.1372,53.5939 74.1480,53.5980 74.2139,53.5970 74.2233,53.5946 74.2353,53.5819 74.2416,53.5678 74.2505,53.5568 74.2703,53.5532 74.2631,53.5302 74.2696,53.5152 74.3060,53.4926 74.3061,53.4924 74.3062,53.4924 74.3589,53.4661 74.3884,53.4622 74.4091,53.4776 74.4569,53.5698 74.4554,53.5774 74.4446,53.5858 74.4266,53.5964 74.4208,53.6031 74.4297,53.6536 74.4385,53.6734 74.4535,53.6850 74.6165,53.6807 74.6268,53.6873 74.6445,53.7346 74.6545,53.7484 74.6630,53.7550 74.6746,53.7571 74.7253,53.7591 74.7349,53.7652 74.7434,53.7795 74.7543,53.8085 74.7622,53.8226 74.7720,53.8309 74.8062,53.8377 74.8885,53.8364 74.9239,53.8310 75.0008,53.8065 75.0279,53.8079 75.1577,53.8651 75.2775,53.9177 75.4340,53.9865 75.3607,54.0595 75.4292,54.0901 75.4644,54.1006 75.4998,54.1023 75.6032,54.0945 75.6404,54.0989 75.7520,54.1302 75.8653,54.1621 76.0419,54.2117 76.1838,54.2516 76.1719,54.2747 76.1697,54.2914 76.1771,54.3068 76.1939,54.3256 76.2148,54.3422 76.2342,54.3474 76.4331,54.3166 76.4765,54.3231 76.5401,54.3511 76.5619,54.3563 76.5772,54.3568 76.6078,54.3546 76.6231,54.3559 76.6409,54.3665 76.6453,54.3838 76.6457,54.4037 76.6518,54.4223 76.6728,54.4365 76.7013,54.4402 76.7572,54.4371 76.7821,54.4395 76.8524,54.4612 76.8723,54.4647 76.8959,54.4639 76.9105,54.4546 76.9036,54.4326 76.8857,54.4228 76.8047,54.4101 76.7868,54.4028 76.7646,54.3905 76.7530,54.3767 76.7661,54.3646 76.8158,54.3556 76.8342,54.3457 76.8432,54.3223 76.8377,54.2969 76.8209,54.2776 76.8001,54.2607 76.7823,54.2424 76.7702,54.2131 76.7625,54.2026 76.7512,54.1940 76.7262,54.1802 76.7163,54.1709 76.6646,54.1341 76.6038,54.1354 76.4765,54.1640 76.4126,54.1657 76.3936,54.1618 76.3767,54.1543 76.3744,54.1478 76.4765,54.0420 76.4826,54.0301 76.4952,53.9923 76.5257,53.9613 76.6110,53.9206 76.7338,53.8620 76.9193,53.7736 77.1047,53.6851 77.2901,53.5967 77.4755,53.5083 77.6128,53.4428 77.7339,53.3615 77.8668,53.2723 77.9764,53.1685 78.0438,53.0969 78.1520,52.9822 78.2601,52.8674 78.3683,52.7526 78.4765,52.6379 78.6180,52.4766 78.7596,52.3153 78.9013,52.1539 79.0428,51.9926 79.0428,51.9925 79.0429,51.9925 79.0430,51.9925 79.1497,51.8676 79.2564,51.7426 79.3630,51.6176 79.4698,51.4926 79.5592,51.3725 79.6485,51.2524 79.7380,51.1324 79.8273,51.0124 79.8736,50.9502 79.9269,50.8785 79.9553,50.8260 79.9665,50.8102 79.9901,50.7881 80.0213,50.7669 80.0550,50.7529 80.0860,50.7521 80.0311,50.8088 80.0154,50.8395 80.0493,50.8523 80.0670,50.8466 80.1016,50.8216 80.1192,50.8149 80.1427,50.8171 80.1545,50.8272 80.1682,50.8598 80.1813,50.8757 80.1954,50.8823 80.2348,50.8932 80.2437,50.8987 80.2582,50.9113 80.2673,50.9157 80.2796,50.9172 80.3204,50.9141 80.3602,50.9192 80.4029,50.9337 80.4390,50.9581 80.4594,50.9927 80.4631,51.0078 80.4650,51.0258 80.4645,51.0437 80.4611,51.0590 80.4517,51.0735 80.4241,51.0921 80.4105,51.1048 80.4071,51.1172 80.4076,51.1357 80.4134,51.1684 80.4220,51.1876 80.4344,51.2006 80.4521,51.2079 80.4762,51.2096 80.5613,51.2021 80.5992,51.2086 80.6125,51.2339 80.6141,51.2497 80.6215,51.2645 80.6324,51.2780 80.6450,51.2892 80.6646,51.3002 80.6828,51.3020 80.8166,51.2610 80.8425,51.2575 80.8545,51.2646 80.8641,51.2758 80.8825,51.2849 80.9057,51.2836 80.9142,51.2702 80.9163,51.2354 80.9242,51.2161 80.9361,51.2057 80.9760,51.1911 81.0221,51.1774 81.0449,51.1735 81.0701,51.1720 81.0983,51.1909 81.1129,51.1959 81.1328,51.1945 81.1520,51.1865 81.1586,51.1743 81.1560,51.1574 81.1472,51.1359 81.0805,51.0309 81.0540,50.9699 81.0515,50.9557 81.0583,50.9471 81.0779,50.9407 81.1044,50.9367 81.1588,50.9382 81.2774,50.9627 81.4008,50.9591 81.4012,50.9230 81.4161,50.8897 81.4395,50.8597 81.4661,50.8337 81.4447,50.8134 81.4261,50.7882 81.4188,50.7625 81.4311,50.7407 81.4602,50.7303 81.6741,50.7360 81.6972,50.7450 81.7257,50.7746 81.7441,50.7849 81.7635,50.7843 81.8009,50.7679 81.8224,50.7657 81.8950,50.7742 81.9454,50.7692 81.9903,50.7596 82.0125,50.7501 82.0731,50.7157 82.0955,50.7081 82.1473,50.7016 82.1737,50.7031 82.1988,50.7088 82.2166,50.7194 82.2363,50.7345 82.2557,50.7452 82.2731,50.7431 82.2884,50.7374 82.3012,50.7409 82.3137,50.7478 82.3284,50.7521 82.3412,50.7503 82.3513,50.7455 82.3625,50.7421 82.4083,50.7484 82.4303,50.7411 82.4758,50.7140 82.6042,50.7690 82.6728,50.7898 82.6980,50.8110 82.7000,50.8810 82.7265,50.9007 82.7645,50.9067 82.8441,50.8917 82.9759,50.8819 83.0215,50.8918 83.0579,50.9172 83.0861,50.9525 83.1076,50.9927 83.1174,50.9946 83.1274,50.9952 83.1375,50.9947 83.1633,50.9885 83.1796,50.9873 83.1959,50.9888 83.2121,50.9927 83.3238,51.0024 83.4340,50.9927 83.4620,50.9643 83.4770,50.9534 83.4983,50.9454 83.6098,50.9320 83.6327,50.9248 83.6906,50.8918 83.7128,50.8822 83.7326,50.8796 83.7782,50.8794 83.8004,50.8757 83.8205,50.8680 83.8383,50.8563 83.8697,50.8214 83.8828,50.8120 83.9220,50.8007 83.9506,50.7804 83.9497,50.7179 83.9758,50.6864 84.1017,50.6286 84.1330,50.6008 84.1423,50.5815 84.1450,50.5661 84.1512,50.5526 84.1860,50.5280 84.1956,50.5114 84.1979,50.4931 84.1768,50.4391 84.1918,50.4077 84.2184,50.3777 84.2394,50.3446 84.2419,50.3219 84.2395,50.2993 84.2396,50.2782 84.2500,50.2599 84.2618,50.2536 84.2916,50.2480 84.3044,50.2432 84.3121,50.2364 84.3243,50.2196 84.3314,50.2135 84.3688,50.2118 84.4053,50.2308 84.4408,50.2446 84.4758,50.2271 84.5046,50.2046 84.5357,50.1909 84.5693,50.1855 84.6060,50.1874 84.6420,50.1849 84.6667,50.1700 84.6894,50.1510 84.7203,50.1366 84.7381,50.1354 84.7732,50.1383 84.7907,50.1328 84.8015,50.1238 84.8261,50.0867 84.8387,50.0808 84.8559,50.0849 84.8738,50.0924 84.8880,50.0967 84.9102,50.0951 84.9758,50.0752 84.9867,50.0670 85.0201,50.0331 85.0283,50.0205 85.0254,50.0041 85.0094,49.9978 84.9647,49.9928 84.9646,49.9928 84.9622,49.9919 84.9548,49.9905 84.9507,49.9333 84.9546,49.9069 84.9758,49.8940 85.0326,49.8850 85.0563,49.8733 85.0708,49.8502 85.0759,49.8139 85.0817,49.8000 85.0981,49.7822 85.1633,49.7340 85.1851,49.7050 85.1950,49.6257 85.2236,49.5957 85.2631,49.5815 85.3028,49.5901 85.3204,49.5995 85.3421,49.6082 85.3642,49.6141 85.3840,49.6157 85.4073,49.6096 85.4510,49.5884 85.4757,49.5831 85.5132,49.5853 85.5313,49.5891 85.5493,49.5953 85.5808,49.6134 85.5972,49.6193 85.6149,49.6171 85.6284,49.6065 85.6423,49.5775 85.6562,49.5649 85.6733,49.5604 85.6900,49.5629 85.7258,49.5730 85.7474,49.5730 85.7647,49.5668 85.7795,49.5560 85.7944,49.5418 85.8092,49.5365 85.8275,49.5410 85.8608,49.5575 85.8807,49.5633 85.8999,49.5641 85.9406,49.5596 85.9421,49.5511 85.9319,49.5101 85.9314,49.4928 85.9463,49.4814 85.9630,49.4786 85.9801,49.4829 85.9958,49.4928 85.9960,49.4928 86.0275,49.5156 86.0705,49.5263 86.1115,49.5202 86.1367,49.4930 86.1773,49.4633 86.2143,49.4962 86.2464,49.5501 86.2721,49.5836 86.3295,49.6103 86.3918,49.6250 86.4583,49.6657 86.4755,49.6708 86.4818,49.6769 86.4830,49.6863 86.4797,49.6973 86.4727,49.7083 86.5197,49.7268 86.5244,49.7295 86.5374,49.7394 86.5456,49.7426 86.5522,49.7423 86.5582,49.7415 86.5651,49.7427 86.5849,49.7601 86.5954,49.7809 86.6102,49.7955 86.6424,49.7939 86.6849,49.7782 86.7002,49.7777 86.7308,49.7825 86.7484,49.7830 86.7589,49.7786 86.7596,49.7677 86.7526,49.7560 86.7434,49.7447 86.7376,49.7350 86.7405,49.7228 86.7515,49.7117 86.7759,49.6950 86.7556,49.6815 86.7365,49.6719 86.7161,49.6668 86.6677,49.6643 86.6471,49.6537 86.6111,49.6202 86.5960,49.6019 86.5918,49.5872 86.5993,49.5735 86.6186,49.5580 86.6425,49.5475 86.6641,49.5474 86.7095,49.5545 86.7326,49.5507 86.8024,49.5222 86.8243,49.5092 86.8229,49.4928 86.8143,49.4730 86.8140,49.4500 86.8290,49.4333 86.8544,49.4213 86.9055,49.4047 86.9331,49.3901 86.9308,49.3806 86.9157,49.3700 86.9051,49.3519 86.9130,49.3387 86.9333,49.3243 87.0001,49.2891 87.0125,49.2807 87.0169,49.2728 87.0171,49.2586 87.0245,49.2489 87.0366,49.2427 87.0504,49.2389 87.0760,49.2369 87.1604,49.2420 87.1903,49.2378 87.2180,49.2298 87.2718,49.2051 87.2877,49.1843 87.3082,49.1139 87.3237,49.0855 87.2016,49.1087 87.1629,49.1228 87.1173,49.1298 87.1169,49.1297 87.1163,49.1298 86.9756,49.0925 86.9475,49.0945 86.8883,49.1068 86.8875,49.1068 86.8873,49.1068 86.8595,49.1053 86.8382,49.0939 86.8162,49.0585 86.7989,49.0422 86.7601,49.0201 86.7435,49.0077 86.7275,48.9903 86.7139,48.9699 86.7094,48.9542 86.7116,48.9371 86.7180,48.9125 86.7419,48.8787 86.7737,48.8585 86.7895,48.8391 86.7647,48.8076 86.7461,48.7928 86.7392,48.7835 86.7405,48.7717 86.7519,48.7292 86.7520,48.7154 86.7445,48.7035 86.6690,48.6342 86.6211,48.6032 86.6055,48.5901 86.5936,48.5741 86.5752,48.5398 86.5651,48.5273 86.5464,48.5172 86.4308,48.4859 86.3348,48.4904 86.3346,48.4904 86.3338,48.4904 86.3074,48.4831 86.2863,48.4697 86.2467,48.4374 86.1922,48.4183 86.0069,48.4296 86.0066,48.4295 86.0060,48.4296 85.7837,48.4076 85.7474,48.3901 85.7187,48.3588 85.5864,48.1412 85.5618,48.0307 85.5471,47.9930 85.5287,47.9666 85.5178,47.9446 85.5154,47.9203 85.5954,47.6241 85.5958,47.5909 85.5800,47.5238 85.5846,47.4931 85.5846,47.4929 85.6002,47.4632 85.6704,47.3843 85.6789,47.3638 85.6740,47.3443 85.6672,47.3261 85.6702,47.3091 85.6790,47.2907 85.6790,47.2749 85.6684,47.2419 85.6644,47.2213 85.6597,47.2065 85.6473,47.1979 85.6016,47.1944 85.5775,47.1892 85.5568,47.1787 85.5471,47.1620 85.5443,47.1432 85.5386,47.1279 85.5297,47.1143 85.5169,47.1003 85.5081,47.0825 85.5058,47.0639 85.4986,47.0519 85.4331,47.0531 85.4329,47.0531 85.4321,47.0531 85.3041,47.0394 85.2471,47.0444 85.2467,47.0444 85.2461,47.0444 85.2258,47.0416 85.2051,47.0337 85.1915,47.0233 85.1674,46.9930 85.1460,46.9781 85.0772,46.9433 85.0482,46.9207 85.0354,46.9150 84.9904,46.9077 84.9758,46.9020 84.9594,46.8909 84.9368,46.8610 84.9160,46.8506 84.8402,46.8391 84.7671,46.8181 84.7403,46.8149 84.7207,46.8213 84.7165,46.8352 84.7254,46.8503 84.7395,46.8662 84.7505,46.8825 84.7526,46.9180 84.7326,46.9478 84.7002,46.9702 84.6645,46.9839 84.6170,46.9863 84.6167,46.9862 84.6160,46.9863 84.5214,46.9699 84.4767,46.9752 84.4228,46.9931 84.4068,46.9942 84.4063,46.9942 84.4059,46.9942 84.3893,46.9932 84.3888,46.9930 84.2668,47.0001 84.2663,47.0001 84.2658,47.0001 84.1591,46.9933 84.1587,46.9932 84.1581,46.9931 84.1578,46.9930 84.0940,46.9674 84.0701,46.9645 84.0001,46.9743 83.9992,46.9743 83.9992,46.9743 83.9063,46.9740 83.5254,47.0671 83.3543,47.1450 83.3151,47.1579 83.2229,47.1719 83.2029,47.1804 83.1513,47.2115 83.1273,47.2176 83.1000,47.2197 83.0994,47.2197 83.0991,47.2197 83.0716,47.2185 83.0469,47.2147 83.0215,47.2059 83.0135,47.1946 83.0152,47.1544 83.0122,47.1427 83.0013,47.1214 82.9982,47.1103 82.9995,47.1000 83.0063,47.0806 83.0055,47.0698 82.9902,47.0322 82.9855,47.0125 82.9884,46.9930 82.9934,46.9756 82.9918,46.9587 82.9855,46.9425 82.8390,46.7324 82.7474,46.4933 82.7239,46.4582 82.7079,46.4342 82.7013,46.4169 82.6893,46.3625 82.6744,46.3311 82.6079,46.2552 82.5683,46.1965 82.5419,46.1315 82.5159,45.9932 82.5159,45.9931 82.4889,45.9017 82.4758,45.8732 82.4475,45.8254 82.3722,45.7342 82.3360,45.6351 82.3046,45.5829 82.2915,45.5332 82.3275,45.4933 82.3276,45.4933 82.3278,45.4933 82.3627,45.4812 82.5130,45.4658 82.6157,45.4354 82.6320,45.4158 82.6364,45.3789 82.6338,45.3394 82.6146,45.2486 82.5852,45.1768 82.5397,45.1237 82.4766,45.1158 82.4284,45.1372 82.3428,45.2049 82.2955,45.2282 82.2462,45.2318 82.2460,45.2318 82.2453,45.2318 82.1918,45.2222 82.0005,45.1535 81.9507,45.1446 81.9111,45.1580 81.8920,45.1737 81.8763,45.1811 81.8082,45.1887 81.7946,45.1956 81.7894,45.2091 81.7883,45.2323 81.7824,45.2666 81.7661,45.3077 81.7402,45.3381 81.7057,45.3399 81.6662,45.3480 81.6658,45.3479 81.6652,45.3480 81.6226,45.3343 81.5420,45.2933 81.1442,45.2047 81.0625,45.1722 81.0219,45.1616 80.9760,45.1611 80.8539,45.1265 80.8284,45.1258 80.7466,45.1443 80.7457,45.1443 80.7457,45.1443 80.6971,45.1437 80.5370,45.1011 80.4685,45.1063 80.4681,45.1063 80.4676,45.1063 80.4454,45.1042 80.4251,45.0921 80.4064,45.0566 80.3901,45.0458 80.3653,45.0432 80.2915,45.0462 80.2914,45.0462 80.2905,45.0462 80.2193,45.0261 80.1485,45.0345 80.1479,45.0344 80.1476,45.0345 80.1034,45.0322 80.0617,45.0190 80.0238,44.9933 80.0238,44.9932 79.9247,44.9317 79.8782,44.9147 79.8582,44.9037 79.8430,44.8735 79.8686,44.8494 79.9917,44.7936 80.0394,44.7905 80.0397,44.7905 80.0403,44.7905 80.2189,44.8180 80.2447,44.8160 80.2632,44.8094 80.3145,44.7803 80.4762,44.7354 80.4923,44.7280 80.4974,44.7149 80.4920,44.7017 80.4762,44.6937 80.4111,44.6828 80.3763,44.6713 80.3558,44.6529 80.3545,44.6418 80.3592,44.6326 80.3772,44.6153 80.3838,44.6028 80.3799,44.5913 80.3645,44.5697 80.3379,44.4940 80.3304,44.4531 80.3329,44.4174 80.3730,44.2702 80.3732,44.2310 80.3460,44.1589 80.3389,44.1215 80.3451,44.1031 80.3598,44.0893 80.3923,44.0655 80.4038,44.0489 80.4100,44.0319 80.4124,44.0136 80.4127,43.9933 80.4127,43.9932 80.4231,43.9721 80.4399,43.9490 80.4762,43.9102 80.5944,43.6846 80.7127,43.4589 80.7101,43.4259 80.6942,43.3947 80.6429,43.3262 80.6585,43.3106 80.6960,43.3033 80.7355,43.2889 80.7485,43.2752 80.7505,43.2703 80.7558,43.2576 80.7591,43.2382 80.7600,43.2188 80.7652,43.1999 80.7882,43.1682 80.7934,43.1495 80.7879,43.1280 80.7734,43.1129 80.7534,43.1040 80.7321,43.1012 80.7117,43.1048 80.6610,43.1328 80.6194,43.1343 80.6193,43.1342 80.6185,43.1343 80.5759,43.1194 80.4979,43.0762 80.4102,43.0487 80.3681,43.0285 80.3551,43.0006 80.3738,42.9752 80.4077,42.9547 80.4762,42.9303 80.5219,42.9254 80.5429,42.9167 80.5545,42.8989 80.5486,42.8785 80.5267,42.8684 80.4762,42.8639 80.4005,42.8430 80.3817,42.8314 80.3339,42.8171 80.3175,42.8157 80.2827,42.8227 80.2659,42.8237 80.2657,42.8236 80.2649,42.8237 80.2483,42.8162 80.2275,42.7910 80.2054,42.7311 80.1889,42.7016 80.1525,42.6604 80.1438,42.6448 80.1400,42.6230 80.1454,42.6071 80.1535,42.5915 80.1624,42.5524 80.1737,42.5369 80.2001,42.5084 80.2105,42.4908 80.2121,42.4788 80.2063,42.4660 80.1947,42.4463 80.1962,42.4346 80.2187,42.3549 80.2255,42.3390 80.2355,42.3246 80.2495,42.3100 80.2684,42.2380 80.2605,42.2165 80.2491,42.2049 80.2103,42.1895 80.2165,42.1744 80.2198,42.1419 80.2246,42.1256 80.2351,42.1109 80.2474,42.0984 80.2565,42.0844 80.2576,42.0653 80.2312,42.0337 80.1819,42.0210 79.9318,42.0233 79.9318,42.0233 79.9309,42.0233 79.8795,42.0132 79.8429,42.0018 79.8268,41.9922 79.8128,41.9776 79.8038,41.9600 79.7926,41.9228 79.7833,41.9051 79.7475,41.8797 79.7031,41.8750 79.6567,41.8758 79.6566,41.8758 79.6557,41.8758 79.6110,41.8676 79.5547,41.8376 79.4899,41.8193 79.4110,41.7786 79.3908,41.7727 79.3683,41.7724 79.3051,41.7876 79.3045,41.7875 79.3041,41.7876 79.2823,41.7835 79.2649,41.7745 79.2175,41.7412 79.1959,41.7295 79.1745,41.7226 79.1279,41.7143 79.0887,41.7025 78.9762,41.6418 78.9158,41.6332 78.8974,41.6263 78.8073,41.5784 78.6721,41.5384 78.6583,41.5325 78.6450,41.5237 78.6374,41.5129 78.6291,41.4880 78.6192,41.4781 78.5840,41.4660 78.5104,41.4544 78.4176,41.4005 78.3777,41.3866 78.3599,41.3775 78.3458,41.3642 78.3435,41.3620 78.3393,41.3440 78.3569,41.3055 78.3597,41.2875 78.3495,41.2704 78.3315,41.2587 78.2916,41.2408 78.2754,41.2289 78.2503,41.2005 78.2045,41.1337 78.1905,41.1177 78.1760,41.1055 78.0750,41.0395 78.0574,41.0344 78.0375,41.0361 77.9986,41.0498 77.8677,41.0641 77.8669,41.0640 77.8667,41.0641 77.8310,41.0630 77.7976,41.0547 77.6656,41.0013 77.6503,40.9971 77.6321,40.9958 77.5817,40.9977 77.5815,40.9977 77.5807,40.9977 77.5036,40.9811 77.4758,40.9820 77.4462,40.9937 77.3897,41.0117 77.3339,41.0206 77.3332,41.0206 77.3330,41.0206 77.3012,41.0193 77.2433,41.0057 77.1198,41.0117 77.0895,41.0196 77.0360,41.0403 77.0087,41.0442 77.0083,41.0441 77.0077,41.0442 76.9001,41.0258 76.8610,41.0132 76.8349,40.9935 76.8209,40.9778 76.7840,40.9571 76.7668,40.9447 76.7574,40.9258 76.7609,40.9066 76.7684,40.8870 76.7708,40.8671 76.7625,40.8470 76.7469,40.8345 76.7073,40.8176 76.6742,40.7954 76.6479,40.7649 76.6308,40.7289 76.6242,40.6275 76.6208,40.6113 76.6094,40.5971 76.5564,40.5657 76.5312,40.5350 76.4989,40.4646 76.4765,40.4361 76.4491,40.4155 76.3620,40.3719 76.3302,40.3481 76.3142,40.3435 76.3003,40.3557 76.2843,40.4173 76.2744,40.4341 76.2451,40.4412 76.2449,40.4410 76.2442,40.4412 76.2154,40.4166 76.1850,40.3842 76.1516,40.3683 76.1335,40.3715 76.0962,40.3874 76.0771,40.3920 76.0763,40.3919 76.0761,40.3920 76.0516,40.3902 75.9624,40.3573 75.9493,40.3431 75.9380,40.3262 75.9215,40.3091 75.9019,40.2989 75.8807,40.2953 75.8595,40.2964 75.7947,40.3089 75.7730,40.3102 75.7726,40.3101 75.7720,40.3102 75.7505,40.3083 75.7045,40.2931 75.6827,40.2918 75.6658,40.3057 75.6572,40.3231 75.6411,40.3673 75.6393,40.3861 75.6473,40.4053 75.6606,40.4191 75.6703,40.4324 75.6679,40.4502 75.6582,40.4611 75.6300,40.4813 75.6189,40.4940 75.6118,40.5129 75.6066,40.5694 75.5886,40.6119 75.5608,40.6329 75.5247,40.6332 75.5247,40.6332 75.5238,40.6332 75.4818,40.6141 75.2632,40.4802 75.2533,40.4760 75.2415,40.4741 75.2292,40.4703 75.2240,40.4624 75.2201,40.4530 75.2125,40.4447 75.1945,40.4414 75.1762,40.4481 75.1575,40.4582 75.1390,40.4639 75.1384,40.4638 75.1381,40.4639 75.1132,40.4608 75.0644,40.4438 75.0396,40.4412 75.0033,40.4473 74.9671,40.4593 74.8801,40.5051 74.8574,40.5132 74.8566,40.5131 74.8564,40.5132 74.8354,40.5116 74.8201,40.4940 74.8160,40.4837 74.8151,40.4801 74.8070,40.4618 74.7946,40.4407 74.7874,40.4207 74.7946,40.4055 74.8417,40.3721 74.8539,40.3588 74.8621,40.3262 74.8314,40.3200 74.7476,40.3365 74.7256,40.3375 74.7255,40.3375 74.7247,40.3375 74.7058,40.3313 74.6544,40.2915 74.6376,40.2820 74.5987,40.2662 74.5654,40.2470 74.4766,40.1724 74.3699,40.1058 74.3338,40.0937 74.3034,40.0901 74.2732,40.0938 74.2388,40.1039 74.2041,40.1099 74.2035,40.1098 74.2031,40.1099 74.1676,40.1064 74.1329,40.0953 74.1012,40.0788 74.0695,40.0678 74.0040,40.0608 73.9767,40.0436 73.9664,40.0333 73.9579,40.0214 73.9521,40.0083 73.9497,39.9937 73.9440,39.9701 73.9273,39.9533 73.9076,39.9379 73.8932,39.9181 73.8854,39.8765 73.8807,39.8650 73.8729,39.8568 73.8441,39.8381 73.8320,39.8237 73.8230,39.8057 73.8186,39.7860 73.8198,39.7667 73.8295,39.7470 73.8431,39.7404 73.8599,39.7372 73.8793,39.7279 73.8935,39.7104 73.8996,39.6895 73.9043,39.6465 73.9268,39.5929 73.9216,39.5821 73.8993,39.5715 73.8831,39.5612 73.8705,39.5468 73.8592,39.5243 73.8480,39.4897 73.8383,39.4757 73.8207,39.4682 73.6326,39.4483 73.6043,39.4596 73.5122,39.4674 73.4769,39.4648 73.3676,39.4438 73.3432,39.4307 73.3355,39.4152 73.3333,39.4011 73.3264,39.3909 73.2694,39.3826 73.1679,39.3554 73.1360,39.3535 73.1010,39.3612 73.0834,39.3678 73.0711,39.3707 73.0584,39.3688 73.0093,39.3486 72.9943,39.3478 72.9768,39.3522 72.9143,39.3627 72.8937,39.3639 72.8505,39.3567 72.8353,39.3562 72.6505,39.3938 72.6337,39.3945 72.6164,39.3904 72.6061,39.3835 72.5870,39.3649 72.5758,39.3593 72.5594,39.3596 72.5341,39.3723 72.5190,39.3757 72.5081,39.3720 72.4767,39.3461 72.4604,39.3441 72.4436,39.3448 72.4107,39.3513 72.3932,39.3508 72.3559,39.3361 72.3341,39.3338 72.3163,39.3288 72.3042,39.3136 72.2814,39.2597 72.2403,39.1899 72.2289,39.1892 72.2186,39.2009 72.2092,39.2173 72.2065,39.2269 72.2064,39.2346 72.2033,39.2408 72.1824,39.2493 72.1671,39.2587 72.1586,39.2626 72.1155,39.2681 72.0948,39.2751 72.0858,39.2901 72.0841,39.3112 72.0781,39.3366 72.0669,39.3585 72.0498,39.3689 72.0315,39.3667 71.9965,39.3519 71.9592,39.3459 71.9423,39.3390 71.8435,39.2850 71.8070,39.2728 71.7704,39.2695 71.7512,39.2742 71.7329,39.2851 71.7183,39.3011 71.7109,39.3210 71.7130,39.3415 71.7232,39.3540 71.7366,39.3646 71.7481,39.3796 71.7518,39.3997 71.7492,39.4255 71.7403,39.4483 71.7244,39.4594 71.7046,39.4590 71.6028,39.4423 71.5543,39.4442 71.5129,39.4588 71.4921,39.4937 71.5006,39.5092 71.5260,39.5382 71.5314,39.5531 71.5254,39.5692 71.5109,39.5841 71.4930,39.5962 71.4595,39.6121 71.4413,39.6107 71.4067,39.5982 71.3783,39.5942 71.3685,39.5915 71.3616,39.5876 71.3479,39.5762 71.3406,39.5717 71.3059,39.5572 71.2920,39.5490 71.2601,39.5206 71.2493,39.5144 71.2369,39.5145 71.1800,39.5230 71.1374,39.5212 71.0959,39.5124 71.0629,39.4956 71.0423,39.4679 71.0276,39.4352 71.0093,39.4076 70.9771,39.3949 70.9498,39.4007 70.9252,39.4129 70.9034,39.4209 70.8845,39.4139 70.8722,39.4030 70.8642,39.4006 70.8553,39.4017 70.8401,39.4014 70.8281,39.3986 70.7976,39.3853 70.7701,39.3821 70.7397,39.3862 70.7133,39.3984 70.6981,39.4190 70.6986,39.4314 70.7031,39.4447 70.7054,39.4585 70.6997,39.4722 70.6901,39.4792 70.6667,39.4869 70.6560,39.4937 70.6560,39.4937 70.6559,39.4939 70.6360,39.5425 70.6221,39.5635 70.5978,39.5778 70.5803,39.5795 70.5436,39.5743 70.5261,39.5756 70.5135,39.5815 70.4910,39.5969 70.4772,39.6012 70.4600,39.5995 70.4276,39.5901 70.4111,39.5875 70.4015,39.5848 70.3954,39.5795 70.3904,39.5740 70.3843,39.5709 70.3743,39.5710 70.3535,39.5759 70.3432,39.5769 70.3303,39.5731 70.2411,39.5224 70.2233,39.5191 70.2060,39.5241 70.2044,39.5382 70.2150,39.5741 70.2148,39.5911 70.2103,39.6097 70.2007,39.6195 70.1852,39.6103 70.1574,39.5639 70.1490,39.5543 70.1324,39.5500 70.1163,39.5546 70.0827,39.5698 70.0623,39.5735 70.0404,39.5736 70.0197,39.5686 70.0027,39.5569 69.9871,39.5396 69.9788,39.5344 69.9486,39.5451 69.9078,39.5485 69.8304,39.5362 69.7916,39.5454 69.7498,39.5638 69.7103,39.5741 69.6694,39.5778 69.5823,39.5736 69.5649,39.5681 69.5314,39.5456 69.5144,39.5376 69.4961,39.5326 69.4773,39.5304 69.4553,39.5305 69.4122,39.5250 69.3915,39.5305 69.3672,39.5499 69.3616,39.5529 69.3520,39.5496 69.3484,39.5432 69.3459,39.5354 69.3397,39.5281 69.3003,39.5156 69.2862,39.5397 69.2911,39.6589 69.2875,39.6778 69.2801,39.6943 69.2659,39.7078 69.2484,39.7194 69.2333,39.7327 69.2263,39.7510 69.2296,39.7905 69.2407,39.8289 69.2864,39.9358 69.3057,39.9686 69.3101,39.9786 69.3103,39.9848 69.3140,39.9869 69.3278,39.9847 69.3573,39.9595 69.4054,39.8961 69.5016,39.9225 69.5004,39.9357 69.4773,39.9682 69.4781,39.9750 69.4773,39.9816 69.4751,39.9877 69.4712,39.9937 69.4631,40.0254 69.4696,40.0510 69.4857,40.0737 69.5063,40.0969 69.5092,40.1034 69.5135,40.1207 69.5180,40.1251 69.5261,40.1232 69.5366,40.1079 69.5430,40.1031 69.5588,40.1017 69.5755,40.1036 69.9696,40.2116 70.0046,40.2088 70.1472,40.1370 70.1688,40.1317 70.2185,40.1341 70.2415,40.1327 70.2635,40.1243 70.2778,40.1121 70.2903,40.0982 70.3063,40.0848 70.3243,40.0775 70.3595,40.0740 70.3976,40.0612 70.4772,40.0520 70.5021,40.0460 70.5255,40.0337 70.5356,40.0160 70.5209,39.9937 70.5050,39.9851 70.4885,39.9785 70.4732,39.9701 70.4602,39.9561 70.4509,39.9374 70.4480,39.9200 70.4556,39.9068 70.4772,39.9009 70.4860,39.9096 70.4942,39.9317 70.5009,39.9406 70.5126,39.9452 70.5551,39.9462 70.5766,39.9522 70.5966,39.9620 70.6140,39.9758 70.6274,39.9939 70.6360,40.0285 70.6347,40.0593 70.6394,40.0849 70.6659,40.1042 70.7298,40.1207 70.7435,40.1271 70.7825,40.1526 70.7887,40.1590 70.7921,40.1614 70.7977,40.1619 70.8027,40.1601 70.8060,40.1577 70.8067,40.1562 70.8249,40.1635 70.8318,40.1682 70.8452,40.1718 70.8985,40.1626 70.9293,40.1706 70.9629,40.1897 70.9795,40.2141 70.9590,40.2384 70.9951,40.2666 71.0532,40.2742 71.1694,40.2614 71.2010,40.2638 71.2151,40.2807 71.2240,40.3029 71.2396,40.3211 71.2538,40.3244 71.2639,40.3182 71.2728,40.3077 71.2832,40.2984 71.2971,40.2938 71.3136,40.2927 71.3449,40.2952 71.3651,40.2941 71.3966,40.2715 71.4414,40.2609 71.4510,40.2489 71.4589,40.2341 71.4771,40.2208 71.4984,40.2105 71.5212,40.2037 71.5683,40.1966 71.5930,40.1984 71.6017,40.2099 71.6040,40.2273 71.6101,40.2464 71.6283,40.2589 71.6460,40.2471 71.6602,40.2245 71.6672,40.2042 71.6669,40.1631 71.6731,40.1479 71.6933,40.1411 71.7072,40.1443 71.7598,40.1681 71.7759,40.1799 71.7868,40.1935 71.8055,40.2253 71.8365,40.2492 71.8730,40.2508 71.9123,40.2434 71.9518,40.2409 71.9634,40.2437 71.9692,40.2444 71.9770,40.2431 71.9890,40.2393 72.0048,40.2373 72.0189,40.2400 72.0254,40.2509 72.0198,40.2587 72.0060,40.2658 71.9770,40.2761 71.9582,40.2865 71.9511,40.3015 71.9567,40.3157 72.0432,40.3493 72.0696,40.3694 72.0841,40.3974 72.0901,40.4160 72.0993,40.4264 72.1659,40.4544 72.1827,40.4578 72.2359,40.4599 72.2542,40.4583 72.2636,40.4525 72.2596,40.4424 72.2451,40.4387 72.2281,40.4375 72.2165,40.4349 72.2116,40.4256 72.2244,40.4224 72.2696,40.4240 72.2843,40.4199 72.3434,40.3934 72.3705,40.3856 72.3941,40.3894 72.4144,40.4107 72.4252,40.4360 72.4262,40.4593 72.4157,40.4793 72.3723,40.5033 72.3635,40.5123 72.3633,40.5236 72.3700,40.5399 72.3701,40.5577 72.3485,40.5854 72.3519,40.6020 72.3816,40.6121 72.4148,40.5899 72.4479,40.5605 72.4767,40.5496 72.5153,40.5456 72.5858,40.5087 72.6255,40.5105 72.6409,40.5199 72.6505,40.5322 72.6551,40.5464 72.6565,40.5611 72.6642,40.5778 72.6824,40.5777 72.7192,40.5649 72.7484,40.5751 72.7600,40.6418 72.7839,40.6697 72.8189,40.6811 72.8910,40.6951 72.9768,40.7361 73.0706,40.7625 73.1180,40.7829 73.1486,40.8137 73.1434,40.8338 73.1125,40.8392 73.0536,40.8363 73.0333,40.8472 73.0194,40.8619 73.0034,40.8702 72.9294,40.8442 72.8831,40.8196 72.8703,40.8182 72.8730,40.8348 72.8687,40.8641 72.8301,40.8721 72.7012,40.8632 72.6582,40.8672 72.6195,40.8801 72.5885,40.9058 72.5456,40.9565 72.5262,40.9622 72.5014,40.9635 72.4834,40.9706 72.4836,40.9935 72.4852,40.9996 72.4847,41.0047 72.4819,41.0088 72.4767,41.0118 72.4235,41.0157 72.3952,41.0220 72.3743,41.0320 72.3457,41.0660 72.3324,41.0728 72.3141,41.0617 72.3088,41.0544 72.2973,41.0281 72.2898,41.0235 72.2530,41.0196 72.1651,40.9994 72.1788,41.0232 72.1856,41.0411 72.1856,41.0606 72.1764,41.1129 72.1746,41.1414 72.1699,41.1687 72.1584,41.1879 72.1329,41.1993 72.1085,41.1964 72.0852,41.1849 72.0636,41.1702 72.0338,41.1566 72.0165,41.1635 72.0012,41.1800 71.9770,41.1952 71.8977,41.1849 71.8716,41.1945 71.8663,41.2366 71.8688,41.2792 71.8630,41.3122 71.8470,41.3418 71.7532,41.4473 71.7452,41.4528 71.7368,41.4554 71.7304,41.4512 71.7297,41.4301 71.7216,41.4248 71.7122,41.4280 71.7069,41.4441 71.6961,41.4474 71.6915,41.4419 71.6873,41.4310 71.6814,41.4228 71.6719,41.4255 71.6711,41.4376 71.6895,41.4938 71.6894,41.5146 71.6841,41.5341 71.6714,41.5474 71.6495,41.5499 71.6274,41.5432 71.6153,41.5321 71.6050,41.5122 71.6207,41.4622 71.6337,41.4496 71.6374,41.4313 71.6331,41.4113 71.6188,41.3778 71.5855,41.3235 71.5579,41.3017 71.5238,41.2967 71.4806,41.3108 71.4325,41.3448 71.4188,41.3474 71.4126,41.3347 71.4215,41.1621 71.4161,41.1274 71.3937,41.1127 71.3252,41.1573 71.3002,41.1330 71.2895,41.1139 71.2761,41.1132 71.2634,41.1235 71.2538,41.1375 71.2415,41.1752 71.2302,41.1873 71.2064,41.1888 71.1857,41.1802 71.1830,41.1664 71.1879,41.1484 71.1899,41.1275 71.1801,41.1081 71.1644,41.1162 71.1391,41.1484 71.1231,41.1582 71.0858,41.1620 71.0676,41.1697 71.0470,41.1820 71.0247,41.1898 70.9771,41.1963 70.9342,41.1914 70.9142,41.1930 70.8960,41.2061 70.8822,41.2205 70.8657,41.2332 70.8477,41.2431 70.8285,41.2491 70.8060,41.2475 70.7866,41.2404 70.7704,41.2385 70.7580,41.2522 70.7563,41.2696 70.7711,41.3310 70.7692,41.3521 70.7597,41.3725 70.7036,41.4455 70.6867,41.4625 70.6678,41.4714 70.6338,41.4675 70.5113,41.4145 70.4772,41.4047 70.4532,41.4055 70.4381,41.4161 70.4136,41.4507 70.3990,41.4650 70.3822,41.4764 70.3449,41.4935 70.3447,41.4936 70.3445,41.4937 70.3444,41.4938 70.2034,41.5056 70.1665,41.5202 70.1483,41.5525 70.1693,41.5783 70.3312,41.6496 70.3908,41.6851 70.4235,41.6969 70.4537,41.7121 70.4772,41.7384 70.5065,41.7856 70.5501,41.8241 70.6489,41.8874 70.6797,41.9011 70.7793,41.9097 70.8140,41.9195 70.8251,41.9363 70.8281,41.9937 70.8455,42.0304 70.8867,42.0385 70.9359,42.0369 70.9771,42.0442 71.1184,42.1229 71.2010,42.1408 71.2382,42.1602 71.2532,42.1976 71.2179,42.2064 71.0776,42.2812 71.0458,42.2910 71.0140,42.2877 71.0032,42.2818 70.9478,42.2481 70.9139,42.2276 70.8800,42.2069 70.8612,42.1997 70.8424,42.1925 70.8235,42.1905 70.8045,42.1884 70.7814,42.1932 70.7581,42.1980 70.7463,42.1977 70.7343,42.1973 70.7271,42.1901 70.7199,42.1829 70.7159,42.1737 70.7118,42.1643 70.7064,42.1576 70.7011,42.1509 70.6872,42.1385 70.6732,42.1260 70.6615,42.1097 70.6498,42.0934 70.6407,42.0751 70.6315,42.0569 70.6208,42.0422 70.6102,42.0274 70.5945,42.0219 70.5790,42.0162 70.5671,42.0175 70.5553,42.0187 70.5448,42.0219 70.5342,42.0250 70.5266,42.0308 70.5189,42.0367 70.5154,42.0460 70.5119,42.0554 70.5082,42.0620 70.5045,42.0685 70.4965,42.0751 70.4885,42.0819 70.4794,42.0867 70.4702,42.0916 70.4628,42.0927 70.4554,42.0937 70.4067,42.0780 70.3579,42.0622 70.3364,42.0484 70.3151,42.0346 70.3027,42.0141 70.2903,41.9938 70.2867,41.9850 70.2830,41.9763 70.2767,41.9709 70.2703,41.9656 70.2622,41.9623 70.2539,41.9591 70.2449,41.9567 70.2358,41.9543 70.2271,41.9506 70.2186,41.9469 70.2114,41.9414 70.2042,41.9358 70.1704,41.8920 70.1364,41.8481 70.1237,41.8371 70.1111,41.8260 70.0694,41.8029 70.0280,41.7800 70.0000,41.7723 69.9720,41.7646 69.9643,41.7599 69.9565,41.7552 69.9497,41.7475 69.9429,41.7397 69.9276,41.7263 69.9124,41.7129 69.8917,41.7062 69.8709,41.6996 69.8151,41.6981 69.7594,41.6964 69.6920,41.6824 69.6246,41.6683 69.6160,41.6633 69.6076,41.6583 69.5932,41.6458 69.5790,41.6334 69.5282,41.6032 69.4773,41.5731 69.4488,41.5664 69.4203,41.5595 69.4071,41.5522 69.3938,41.5450 69.3874,41.5319 69.3808,41.5188 69.3827,41.5135 69.3845,41.5082 69.3927,41.4967 69.4011,41.4852 69.4017,41.4800 69.4024,41.4748 69.3965,41.4724 69.3907,41.4697 69.3608,41.4738 69.3311,41.4779 69.3236,41.4764 69.3162,41.4748 69.2968,41.4655 69.2776,41.4562 69.2703,41.4554 69.2629,41.4546 69.2482,41.4586 69.2333,41.4626 69.2253,41.4614 69.2171,41.4601 69.1899,41.4471 69.1627,41.4341 69.1504,41.4250 69.1382,41.4159 69.1331,41.4055 69.1281,41.3951 69.1188,41.3979 69.1095,41.4007 69.1001,41.3985 69.0906,41.3963 69.0675,41.3878 69.0444,41.3792 69.0403,41.3766 69.0362,41.3740 69.0339,41.3705 69.0316,41.3670 69.0330,41.3629 69.0343,41.3587 69.0389,41.3543 69.0435,41.3499 69.0460,41.3485 69.0483,41.3472 69.0497,41.3454 69.0512,41.3436 69.0525,41.3378 69.0540,41.3319 69.0544,41.3236 69.0548,41.3154 69.0469,41.2679 69.0392,41.2203 69.0351,41.2145 69.0312,41.2088 69.0226,41.2024 69.0141,41.1960 68.9970,41.1871 68.9797,41.1782 68.9617,41.1716 68.9438,41.1649 68.9222,41.1628 68.9008,41.1606 68.8905,41.1581 68.8802,41.1555 68.8737,41.1491 68.8674,41.1426 68.8549,41.1264 68.8424,41.1101 68.8082,41.0987 68.7738,41.0873 68.7599,41.0755 68.7463,41.0638 68.7279,41.0238 68.7095,40.9838 68.6996,40.9744 68.6894,40.9649 68.6586,40.9547 68.6495,40.9517 68.6279,40.9445 68.6140,40.9373 68.6001,40.9301 68.5947,40.9184 68.5892,40.9066 68.5869,40.9077 68.5847,40.9088 68.5800,40.9102 68.5753,40.9116 68.5730,40.9125 68.5709,40.9135 68.5707,40.9080 68.5706,40.9025 68.5718,40.8914 68.5732,40.8801 68.5725,40.8753 68.5719,40.8705 68.5687,40.8648 68.5654,40.8592 68.5621,40.8574 68.5590,40.8555 68.5562,40.8529 68.5534,40.8504 68.5515,40.8427 68.5497,40.8350 68.5547,40.7932 68.5598,40.7513 68.5630,40.7418 68.5663,40.7325 68.5705,40.7285 68.5746,40.7245 68.5794,40.7224 68.5842,40.7204 68.5969,40.7181 68.6094,40.7158 68.6090,40.7096 68.6085,40.7034 68.6104,40.6969 68.6121,40.6905 68.6154,40.6844 68.6188,40.6782 68.6231,40.6727 68.6274,40.6671 68.6264,40.6638 68.6255,40.6604 68.6133,40.6452 68.6011,40.6300 68.6107,40.6261 68.6204,40.6222 68.6174,40.6157 68.6142,40.6091 68.6035,40.6043 68.5930,40.5995 68.5797,40.6009 68.5662,40.6025 68.5463,40.6100 68.5263,40.6176 68.5206,40.6183 68.5148,40.6191 68.5101,40.6167 68.5055,40.6143 68.5027,40.6100 68.4999,40.6056 68.4963,40.6021 68.4924,40.5986 68.4849,40.5989 68.4773,40.5992 68.4711,40.5945 68.4651,40.5897 68.4634,40.5872 68.4617,40.5847 68.3439,40.6317 68.2665,40.6627 68.2261,40.6789 68.1924,40.6990 68.1589,40.7191 68.1132,40.7535 68.0675,40.7880 68.0523,40.7945 68.0371,40.8011 68.0173,40.8043 67.9975,40.8075 67.9942,40.8093 67.9909,40.8111 67.9925,40.8150 67.9941,40.8190 67.9986,40.8221 68.0031,40.8252 68.0206,40.8312 68.0382,40.8372 68.0465,40.8423 68.0547,40.8472 68.0621,40.8535 68.0695,40.8598 68.0752,40.8664 68.0806,40.8730 68.0882,40.8859 68.0960,40.8990 68.1033,40.9153 68.1108,40.9317 68.1157,40.9485 68.1206,40.9653 68.1208,40.9795 68.1209,40.9938 68.1168,40.9997 68.1127,41.0055 68.1103,41.0079 68.1079,41.0103 68.1038,41.0119 68.0997,41.0136 68.1040,41.0152 68.1082,41.0168 68.1199,41.0232 68.1313,41.0296 68.1300,41.0306 68.1285,41.0317 68.1237,41.0328 68.1189,41.0340 68.1202,41.0387 68.1215,41.0433 68.1213,41.0444 68.1212,41.0455 68.1193,41.0561 68.1174,41.0667 68.1066,41.0659 68.0960,41.0651 68.0891,41.0539 68.0821,41.0427 68.0769,41.0480 68.0714,41.0533 68.0652,41.0541 68.0591,41.0548 68.0528,41.0525 68.0464,41.0502 68.0403,41.0464 68.0344,41.0427 68.0277,41.0509 68.0211,41.0591 68.0171,41.0785 68.0132,41.0979 68.0081,41.1067 68.0031,41.1156 67.9809,41.1375 67.9589,41.1595 67.9554,41.1650 67.9519,41.1706 67.9508,41.1712 67.9495,41.1719 67.9435,41.1861 67.9374,41.2004 67.9247,41.1942 67.9120,41.1880 67.8831,41.1735 67.8541,41.1590 67.8445,41.1579 67.8349,41.1569 67.8240,41.1598 67.8130,41.1627 67.7920,41.1710 67.7709,41.1793 67.7596,41.1817 67.7481,41.1841 67.6202,41.1784 67.4905,41.1724 67.4093,41.1687 67.2817,41.1630 67.1748,41.1581 67.0290,41.1515 66.9314,41.1472 66.8153,41.1419 66.7741,41.1499 66.7579,41.1531 66.7330,41.1581 66.7107,41.1786 66.6882,41.1992 66.6455,41.3465 66.6026,41.4938 66.5707,41.6173 66.5389,41.7408 66.5214,41.8671 66.5041,41.9935 66.5017,41.9945 66.4992,41.9956 66.4958,41.9962 66.4924,41.9968 66.4886,41.9969 66.4848,41.9970 66.4812,41.9966 66.4774,41.9962 66.3566,41.9966 66.3503,41.9967 66.3503,41.9967 66.2474,41.9969 66.1376,41.9972 66.0172,41.9976 66.0129,42.0001 66.0087,42.0027 66.0075,42.0081 66.0065,42.0134 66.0101,42.2082 66.0132,42.3729 66.0137,42.4030 66.0167,42.4099 66.0196,42.4168 66.0314,42.4203 66.0432,42.4237 66.0481,42.4323 66.0532,42.4409 66.0557,42.4673 66.0582,42.4936 66.0797,42.7419 66.1013,42.9903 65.9569,42.9330 65.8126,42.8758 65.8040,42.8765 65.7952,42.8772 65.7311,42.9742 65.6561,43.0872 65.6019,43.1690 65.5169,43.2972 65.4972,43.3100 65.4774,43.3228 65.3745,43.3699 65.2714,43.4170 65.2217,43.4553 65.1719,43.4937 65.0642,43.5956 64.9565,43.6974 64.9396,43.7083 64.9229,43.7191 64.9070,43.7210 64.8910,43.7228 64.8731,43.7178 64.8550,43.7129 64.7576,43.6736 64.6584,43.6336 64.5621,43.5948 64.4616,43.5543 64.4442,43.5507 64.4267,43.5470 64.3717,43.5506 64.2332,43.5597 64.0947,43.5689 63.9559,43.5781 63.8174,43.5872 63.6651,43.5973 63.5127,43.6073 63.3603,43.6174 63.2080,43.6275 63.1166,43.6166 63.0254,43.6058 62.9341,43.5951 62.8429,43.5843 62.7515,43.5735 62.6602,43.5627 62.5690,43.5519 62.4777,43.5411 62.4213,43.5336 62.3649,43.5260 62.3084,43.5184 62.2519,43.5109 62.2167,43.5062 62.1814,43.5014 62.1461,43.4967 62.1109,43.4919 62.0283,43.4809 62.0261,43.4806 62.0060,43.4870 61.9857,43.4933 61.9107,43.5558 61.8545,43.6027 61.7983,43.6496 61.7421,43.6965 61.6860,43.7434 61.6285,43.7914 61.5711,43.8393 61.5135,43.8872 61.4561,43.9352 61.3861,43.9934 61.3312,44.0362 61.2764,44.0789 61.1681,44.1631 61.1617,44.1681 61.1029,44.2361 61.0931,44.2594 61.0866,44.3112 61.0802,44.3355 61.0621,44.3620 61.0363,44.3828 60.9740,44.4124 60.8862,44.4541 60.7669,44.5108 60.6211,44.5801 60.4540,44.6594 60.2709,44.7465 60.0767,44.8387 59.8766,44.9338 59.6758,45.0291 59.4794,45.1225 59.2924,45.2112 59.1203,45.2931 59.0552,45.3240 59.0551,45.3240 59.0551,45.3240 59.0551,45.3243 59.0272,45.8181 59.1126,46.0660 59.3905,46.3231 59.6684,46.5802 59.9209,46.7598 60.1691,46.8846 60.4114,46.9238 60.4406,47.0463 60.5378,47.1120 60.7647,47.0999 61.0166,47.3612 61.1084,47.5282 61.3271,47.7335 61.5738,47.7760 61.8590,47.7765 62.0484,47.5707 62.1703,47.5440 62.3195,47.4455 62.4672,47.2918 62.4499,47.2482 62.5430,47.2293 62.6374,47.2192 62.7526,47.1809 62.8421,47.1839 63.2635,47.3911 63.6849,47.5983 64.1063,47.8056 64.2036,47.8785 64.1621,47.9375 63.9705,48.1512 63.6615,48.4697 63.3456,48.5808 63.0297,48.6919 63.0556,48.7893 63.0309,48.8630 62.9060,48.8834 62.8607,48.8671 62.8166,48.8513 62.6645,48.8783 62.4471,49.0506 62.3733,49.1670 62.2776,49.1861 62.3839,49.2195 62.4850,49.2281 62.2936,49.4438 62.2791,49.4884 62.3217,49.5245 62.4529,49.5205 62.4129,49.6009 62.4595,49.6868 62.5580,49.7509 62.6106,49.8551 62.7140,49.9083 62.8196,49.8743 62.9131,49.8972 62.8897,50.0242 62.6928,50.2224 62.5342,50.4390 62.4457,50.6748 62.3488,50.6729 62.3137,50.6960 62.3039,50.7543 62.3752,50.8506 62.2391,50.9457 62.2604,51.0115 62.2939,51.0396 62.1544,51.1104 62.0301,51.0652 62.0031,51.0896 61.9596,51.1289 61.9353,51.1856 61.9245,51.2395 61.8733,51.2959 61.8138,51.2692 61.6710,51.2637 61.6630,51.2635 61.6467,51.2631 61.6637,51.2584 61.6111,51.2493 61.5673,51.2339 61.5342,51.2061 61.5132,51.1595 61.4654,50.9927 61.4567,50.9650 61.4418,50.8750 61.4269,50.8331 61.4040,50.8026 61.3721,50.7825 61.0952,50.7227 60.8183,50.6629 60.7185,50.6527 60.3004,50.6847 60.2454,50.7020 60.2095,50.7197 60.1767,50.7422 60.1548,50.7709 60.1521,50.8077 60.1362,50.8445 60.0833,50.8572 60.0213,50.8541 59.9781,50.8438 59.9691,50.8374 59.9622,50.8295 59.9202,50.7631 59.9146,50.7459 59.9139,50.7260 59.9196,50.6909 59.9151,50.6738 59.9040,50.6603 59.8720,50.6360 59.8592,50.6225 59.8157,50.5629 59.7747,50.5337 59.7255,50.5277 59.6731,50.5295 59.6222,50.5241 59.5877,50.5062 59.5551,50.4844 59.5228,50.4746 59.4663,50.5074 59.4508,50.5223 59.4517,50.5373 59.4782,50.5524 59.5353,50.5466 59.5604,50.5538 59.5634,50.5799 59.5510,50.5860 59.4981,50.5997 59.4782,50.6144 59.4376,50.6311 59.3865,50.6303 59.2908,50.6155 59.2733,50.6160 59.2590,50.6204 59.2470,50.6296 59.2357,50.6446 59.2194,50.6584 59.1975,50.6627 58.9259,50.6781 58.8868,50.6889 58.8115,50.7255 58.7940,50.7377 58.7851,50.7497 58.7684,50.7827 58.7478,50.7951 58.7195,50.7935 58.6898,50.7884 58.6644,50.7899 58.6467,50.8013 58.6439,50.8147 58.6512,50.8533 58.6410,50.8634 58.5905,50.8611 58.5714,50.8635 58.5600,50.8752 58.5502,50.8933 58.5465,50.9119 58.5544,50.9254 58.5708,50.9360 58.5853,50.9478 58.5964,50.9625 58.6027,50.9812 58.5950,51.0234 58.5635,51.0493 58.5205,51.0619 58.3980,51.0637 58.3780,51.0707 58.3708,51.0819 58.3693,51.0951 58.3660,51.1089 58.3536,51.1220 58.3234,51.1419 58.3084,51.1500 58.2681,51.1346 58.2453,51.1307 58.2238,51.1231 58.2115,51.1049 58.2024,51.0834 58.1906,51.0655 58.1676,51.0552 58.1406,51.0567 58.1137,51.0652 58.0910,51.0761 58.0896,51.0796 58.0897,51.0856 58.0888,51.0919 58.0841,51.0966 58.0773,51.0979 58.0017,51.0898 57.9884,51.0874 57.9602,51.0775 57.9501,51.0792 57.9341,51.0940 57.9251,51.0996 57.9123,51.1034 57.8577,51.1034 57.8418,51.1058 57.7962,51.1233 57.7688,51.1197 57.7529,51.0975 57.7344,51.0739 57.7282,51.0371 57.7379,50.9709 57.7373,50.9382 57.7224,50.9087 57.6892,50.8967 57.5962,50.9157 57.5559,50.9188 57.5328,50.9100 57.5199,50.8966 57.5089,50.8813 57.4914,50.8669 57.4676,50.8585 57.4430,50.8578 57.4181,50.8624 57.3527,50.8860 57.3343,50.8974 57.3189,50.9132 57.3101,50.9293 57.2976,50.9650 57.2885,50.9812 57.2729,50.9975 57.2563,51.0060 57.2372,51.0095 57.2136,51.0101 57.1975,51.0174 57.1899,51.0348 57.1812,51.0735 57.1682,51.0938 57.1545,51.1000 57.1379,51.0959 57.0724,51.0697 57.0252,51.0627 56.9411,51.0683 56.9158,51.0642 56.8912,51.0566 56.8651,51.0518 56.8386,51.0514 56.8136,51.0570 56.7763,51.0760 56.7601,51.0802 56.7356,51.0776 56.7161,51.0725 56.6946,51.0635 56.6803,51.0498 56.6825,51.0305 56.7027,50.9982 56.7096,50.9816 56.7075,50.9704 56.6884,50.9691 56.6166,50.9783 56.5966,50.9840 56.5080,51.0663 56.4783,51.0730 56.4465,51.0566 56.4307,51.0454 56.4212,51.0335 56.4204,51.0186 56.4319,50.9898 56.4320,50.9762 56.4158,50.9627 56.3650,50.9579 56.3505,50.9480 56.3439,50.9114 56.3357,50.8959 56.3155,50.8838 56.2886,50.8803 56.2582,50.8845 56.1749,50.9087 56.1584,50.9055 56.1475,50.8923 56.1374,50.8688 56.1001,50.7479 56.0789,50.7248 55.9323,50.6465 55.7649,50.5868 55.6943,50.5388 55.6600,50.5300 55.6168,50.5499 55.5862,50.5784 55.5704,50.5883 55.5243,50.6007 55.5137,50.6140 55.5057,50.6302 55.4911,50.6459 55.4678,50.6570 55.4423,50.6617 55.4160,50.6614 55.3661,50.6525 55.3478,50.6514 55.3294,50.6552 55.3054,50.6650 55.0840,50.7969 55.0614,50.8227 55.0632,50.8622 55.0477,50.8842 54.8943,50.9124 54.8613,50.9339 54.8312,50.9593 54.8117,50.9724 54.7462,50.9930 54.7069,51.0163 54.6858,51.0236 54.6622,51.0279 54.6382,51.0277 54.5527,51.0102 54.5338,51.0032 54.5253,50.9911 54.5460,50.9533 54.5347,50.9436 54.5159,50.9373 54.5030,50.9283 54.5260,50.9164 54.5837,50.9057 54.6382,50.8857 54.6518,50.8463 54.6460,50.8377 54.6299,50.8203 54.6269,50.8116 54.6302,50.8037 54.6454,50.7927 54.6502,50.7863 54.6510,50.7656 54.6387,50.7280 54.6391,50.7070 54.6736,50.6343 54.6763,50.6025 54.6475,50.5732 54.5914,50.5423 54.5507,50.5313 54.4994,50.5233 54.4786,50.5260 54.4557,50.5355 54.4358,50.5475 54.3995,50.5787 54.3836,50.5999 54.3798,50.6194 54.3853,50.6394 54.4071,50.6848 54.4124,50.7040 54.4144,50.7485 54.4219,50.7687 54.4786,50.8157 54.4853,50.8254 54.4879,50.8356 54.4859,50.8451 54.4786,50.8535 54.4643,50.8580 54.4197,50.8645 54.4099,50.8687 54.3916,50.8805 54.3810,50.8854 54.3001,50.8947 54.2758,50.9043 54.2603,50.9174 54.2477,50.9310 54.2335,50.9431 54.1940,50.9582 54.1766,50.9679 54.1454,50.9927 54.1491,51.0097 54.1457,51.0197 54.1383,51.0286 54.1300,51.0423 54.1201,51.0812 54.1116,51.0960 54.0919,51.1052 54.0398,51.1104 54.0176,51.1191 53.9940,51.1534 53.9747,51.1665 53.9359,51.1856 53.9090,51.1904 53.8577,51.1846 53.6739,51.2199 53.6494,51.2373 53.6425,51.2554 53.6280,51.2678 53.5941,51.2894 53.5886,51.3053 53.5931,51.3226 53.5932,51.3391 53.5744,51.3532 53.6094,51.3641 53.6179,51.3721 53.6103,51.3884 53.5975,51.3972 53.5554,51.4155 53.4534,51.4419 53.4397,51.4512 53.4192,51.4749 53.4073,51.4842 53.3695,51.4939 53.3669,51.4936 53.3463,51.5030 53.3224,51.4953 53.3074,51.4938 53.2322,51.5007 53.2260,51.4995 53.2206,51.4965 53.2141,51.4948 53.2049,51.4972 53.1986,51.5024 53.1951,51.5080 53.1905,51.5125 53.1811,51.5143 53.1658,51.5146 53.1533,51.5127 53.1486,51.5048 53.1572,51.4870 53.0371,51.4897 52.9989,51.4802 52.9858,51.4727 52.9732,51.4636 52.9598,51.4559 52.9443,51.4529 52.9292,51.4554 52.9034,51.4650 52.8828,51.4671 52.8965,51.4853 52.8763,51.4901 52.8207,51.4870 52.8110,51.4907 52.7897,51.5048 52.7798,51.5081 52.7647,51.5053 52.7573,51.4979 52.7526,51.4905 52.7455,51.4870 52.7215,51.4852 52.7095,51.4821 52.7009,51.4768 52.6923,51.4684 52.6798,51.4590 52.6685,51.4551 52.6637,51.4634 52.5751,51.4671 52.5537,51.4580 52.5458,51.4595 52.5250,51.4675 52.5058,51.4789 52.4902,51.4926 52.4788,51.5049 52.4724,51.5150 52.4445,51.5802 52.3777,51.6601 52.3646,51.6903 52.3521,51.7302 52.3349,51.7637 52.3078,51.7745 52.2922,51.7656 52.2796,51.7353 52.2582,51.7242 52.2302,51.7225 52.1741,51.7252 52.1480,51.7161 52.1333,51.7020 52.1110,51.6703 52.0918,51.6587 52.0659,51.6534 52.0353,51.6524 52.0046,51.6549 51.9786,51.6604 51.9525,51.6710 51.9248,51.6783 51.8968,51.6797 51.8692,51.6731 51.8509,51.6617 51.8202,51.6330 51.7647,51.5933 51.7678,51.5630 51.7830,51.5298 51.7823,51.4929 51.7443,51.4734 51.6933,51.4541 51.6474,51.4512 51.6244,51.4810 51.6230,51.5042 51.6205,51.5187 51.6100,51.5277 51.5843,51.5349 51.5598,51.5346 51.5447,51.5241 51.5321,51.5084 51.5150,51.4927 51.4619,51.4753 51.3795,51.4671 51.3042,51.4716 51.2730,51.4926 51.2730,51.4929 51.2638,51.5049 51.2478,51.5211 51.2365,51.5359 51.2417,51.5437 51.3392,51.5550 51.3590,51.5615 51.3732,51.5716 51.3811,51.5871 51.3820,51.6098 51.3719,51.6296 51.3525,51.6362 51.3085,51.6371 51.2884,51.6429 51.2762,51.6516 51.2518,51.6785 51.2339,51.6855 51.2126,51.6818 51.1902,51.6741 51.1698,51.6695 50.9254,51.6797 50.9007,51.6871 50.8843,51.7056 50.8737,51.7219 50.8578,51.7353 50.8393,51.7455 50.7442,51.7424 50.7669,51.7593 50.7933,51.7783 50.8977,51.8514 50.9964,51.8843 51.0035,51.8881 51.0268,51.9127 51.0344,51.9173 51.0423,51.9204 51.1125,51.9352 51.1223,51.9412 51.1440,51.9610 51.3699,52.0720 51.3991,52.0899 51.4152,52.1027 51.4375,52.1682 51.4526,52.2193 51.4516,52.2268 51.4476,52.2355 51.4407,52.2384 51.4262,52.2428 51.4170,52.2472 51.4068,52.2571 51.4146,52.3045 51.4149,52.3233 51.4107,52.3388 51.4129,52.3500 51.4599,52.3646 51.4699,52.3713 51.4749,52.3781 51.4740,52.3835 51.4721,52.3886 51.4668,52.3987 51.4653,52.4042 51.4661,52.4111 51.4705,52.4149 51.4770,52.4176 51.5399,52.4288 51.5553,52.4353 51.5609,52.4413 51.5627,52.4473 51.5581,52.4572 51.5515,52.4663 51.5437,52.4748 51.5389,52.4788 51.5274,52.4859 51.5209,52.4890 51.4920,52.4994 51.4845,52.5039 51.4804,52.5076 51.4770,52.5121 51.4742,52.5167 51.4712,52.5274 51.4702,52.5553 51.4714,52.5691 51.4754,52.5765 51.4821,52.5802 51.4898,52.5802 51.4964,52.5786 51.5116,52.5718 51.5195,52.5696 51.5290,52.5686 51.5380,52.5700 51.5458,52.5743 51.5476,52.5791 51.5457,52.5839 51.5330,52.5964 51.5182,52.6140 51.5113,52.6242 51.5098,52.6313 51.5120,52.6367 51.5238,52.6457 51.5308,52.6525 51.5339,52.6602 51.5359,52.6707 51.5398,52.6769 51.5452,52.6814 51.5522,52.6837 51.5766,52.6883 51.6005,52.6833 51.6392,52.6583 51.6512,52.6544 51.6616,52.6532 51.7105,52.6594 51.7197,52.6615 51.7270,52.6644 51.7323,52.6684 51.7361,52.6736 51.7428,52.6851 51.7507,52.7037 51.7535,52.7149 51.7535,52.7222 51.7631,52.7607 51.7717,52.7832 51.7721,52.7963 51.7679,52.8030 51.7336,52.8135 51.7255,52.8181 51.7175,52.8262 51.7150,52.8331 51.7151,52.8403 51.7196,52.8542 51.7228,52.8615 51.7280,52.8695 51.7342,52.8742 51.7425,52.8764 51.7522,52.8765 51.7961,52.8724 51.8085,52.8767 51.8222,52.8851 51.8621,52.9261 51.8676,52.9292 51.8804,52.9346 51.9073,52.9412 51.9211,52.9427 51.9313,52.9460 51.9431,52.9518 51.9726,52.9713 51.9819,52.9753 52.0233,52.9820 52.0319,52.9843 52.0525,52.9934 52.0609,52.9997 52.0632,53.0080 52.0638,53.0136 52.0595,53.0598 52.0606,53.0669 52.0635,53.0755 52.0687,53.0807 52.0755,53.0838 52.1304,53.0892 52.1408,53.0915 52.1532,53.0968 52.1579,53.1026 52.1592,53.1083 52.1574,53.1136 52.1543,53.1180 52.1484,53.1214 52.1300,53.1245 52.0777,53.1283 52.0687,53.1304 52.0622,53.1343 52.0586,53.1391 52.0585,53.1463 52.0623,53.1508 52.0690,53.1539 52.1096,53.1631 52.1183,53.1668 52.1284,53.1739 52.1313,53.1799 52.1313,53.1856 52.1281,53.1961 52.1254,53.2075 52.1251,53.2139 52.1259,53.2217 52.1300,53.2267 52.1458,53.2348 52.1561,53.2420 52.1605,53.2486 52.1625,53.2555 52.1628,53.2607 52.1605,53.2709 52.1430,53.2861 52.1421,53.2894 52.1431,53.2969 52.1653,53.3103 52.1737,53.3230 52.1901,53.3632 52.1926,53.3752 52.1898,53.3817 52.1842,53.3863 52.1613,53.3947 52.1529,53.4012 52.1456,53.4111 52.1385,53.4336 52.1335,53.4445 52.1270,53.4517 52.0941,53.4648 52.0923,53.4913 52.0861,53.4947 52.0792,53.5012 52.0777,53.5061 52.0800,53.5141 52.0852,53.5237 52.0927,53.5409 52.1016,53.5471 52.1113,53.5503 52.1514,53.5501 52.1620,53.5510 52.1717,53.5543 52.1832,53.5611 52.1888,53.5677 52.1923,53.5746 52.1938,53.5812 52.2019,53.6012 52.2114,53.6193 52.2195,53.6302 52.2254,53.6366 52.2284,53.6385 52.2364,53.6424 52.2436,53.6466 52.2535,53.6543 52.2579,53.6614 52.2601,53.6680 52.2598,53.6734 52.2589,53.6775 52.2592,53.6811 52.2609,53.6853 52.2828,53.7292 52.2881,53.7368 52.2932,53.7428 52.3332,53.7794 52.3393,53.7872 52.3433,53.7947 52.3519,53.8276 52.3793,53.8822 52.4125,53.9274 52.4094,53.9446 52.4008,53.9521 52.3937,53.9551 52.3879,53.9586 52.3779,53.9659 52.3745,53.9740 52.3755,53.9805 52.3796,53.9855 52.4102,54.0115 52.4339,54.0257 52.4748,54.0450 52.4819,54.0515 52.4847,54.0585 52.4841,54.0667 52.4810,54.0725 52.4764,54.0771 52.4448,54.0875 52.4371,54.0911 52.4315,54.0954 52.4141,54.1173 52.4095,54.1214 52.4042,54.1251 52.3965,54.1280 52.3869,54.1300 52.3664,54.1312 52.2993,54.1147 52.2901,54.1140 52.2811,54.1146 52.2712,54.1184 52.2663,54.1230 52.2632,54.1282 52.2598,54.1387 52.2595,54.1440 52.2606,54.1491 52.2653,54.1529 52.2716,54.1560 52.2924,54.1620 52.3027,54.1638 52.3393,54.1742 52.3528,54.1886 52.3540,54.1950 52.3534,54.2005 52.3486,54.2174 52.3455,54.2249 52.3374,54.2358 52.3269,54.2475 52.3208,54.2520 52.3142,54.2559 52.2296,54.2778 52.2174,54.2825 52.2043,54.2929 52.2037,54.2986 52.2077,54.3029 52.2375,54.3122 52.2570,54.3216 52.2715,54.3266 52.2801,54.3277 52.2898,54.3280 52.3288,54.3214 52.3389,54.3210 52.3478,54.3218 52.3805,54.3286 52.4182,54.3308 52.4617,54.3272 52.4906,54.3219 52.4989,54.3215 52.5057,54.3225 52.5150,54.3258 52.5196,54.3310 52.5225,54.3370 52.5240,54.3434 52.5289,54.3575 52.5385,54.3772 52.5940,54.3580 52.6203,54.3448 52.6290,54.3430 52.6366,54.3442 52.6426,54.3474 52.6561,54.3508 52.6772,54.3532 52.7528,54.3498 52.7711,54.3470 52.8570,54.3204 52.9254,54.3105 52.9331,54.3060 52.9339,54.3004 52.9317,54.2952 52.9270,54.2911 52.8942,54.2915 52.8881,54.2882 52.8890,54.2827 52.8979,54.2755 52.9210,54.2704 52.9360,54.2685 53.0009,54.2710 53.0130,54.2743 53.0213,54.2789 53.0244,54.2840 53.0263,54.2890 53.0238,54.2933 53.0197,54.2973 53.0053,54.3074 53.0038,54.3096 53.0037,54.3131 53.0071,54.3173 53.0117,54.3217 53.0171,54.3258 53.0295,54.3334 53.0366,54.3363 53.0456,54.3387 53.0527,54.3371 53.0591,54.3343 53.0863,54.3142 53.0920,54.3085 53.1068,54.2864 53.1050,54.2735 53.1028,54.2659 53.1052,54.2594 53.1096,54.2517 53.1075,54.2470 53.1024,54.2435 53.0948,54.2413 53.0861,54.2405 53.0546,54.2427 53.0446,54.2424 53.0360,54.2375 53.0325,54.2313 53.0295,54.2226 53.0229,54.2199 53.0152,54.2203 52.9868,54.2272 52.9783,54.2284 52.9703,54.2287 52.9616,54.2278 52.9478,54.2241 52.9416,54.2192 52.9384,54.2138 52.9396,54.2087 52.9424,54.2041 52.9512,54.1958 53.0044,54.1568 53.0220,54.1406 53.0259,54.1362 53.0304,54.1319 53.0352,54.1281 53.0427,54.1253 53.0521,54.1238 53.0720,54.1225 53.0811,54.1204 53.0879,54.1149 53.0889,54.1089 53.0869,54.1030 53.0832,54.0976 53.0736,54.0872 53.0697,54.0814 53.0672,54.0735 53.0733,54.0699 53.0811,54.0680 53.1004,54.0682 53.1179,54.0702 53.1414,54.0762 53.1794,54.0936 53.1859,54.0940 53.1937,54.0908 53.1978,54.0840 53.2049,54.0801 53.2138,54.0779 53.2346,54.0766 53.2463,54.0749 53.2585,54.0714 53.2731,54.0631 53.2792,54.0567 53.2821,54.0497 53.2817,54.0427 53.2826,54.0344 53.2860,54.0286 53.2915,54.0241 53.3411,54.0022 53.3571,53.9771 53.3631,53.9731 53.3717,53.9692 53.3791,53.9702 53.3845,53.9738 53.3884,53.9792 53.3907,53.9854 53.3943,54.0003 53.3947,54.0019 53.4097,54.0148 53.4705,54.0457 53.4571,54.0662 53.4548,54.0758 53.4572,54.0919 53.4581,54.1064 53.4560,54.1145 53.4526,54.1206 53.4472,54.1266 53.4329,54.1477 53.4305,54.1565 53.4299,54.1656 53.4315,54.1740 53.4323,54.1856 53.4311,54.1930 53.4174,54.2195 53.4159,54.2264 53.4197,54.2393 53.4303,54.2657 53.4283,54.2708 53.4247,54.2770 53.4075,54.2879 53.3736,54.3178 53.3611,54.3325 53.3556,54.3413 53.3528,54.3488 53.3478,54.3816 53.3493,54.3913 53.3524,54.3989 53.3569,54.4040 53.3676,54.4124 53.3736,54.4183 53.3791,54.4263 53.3876,54.4569 53.3909,54.4616 53.3955,54.4657 53.4070,54.4731 53.4132,54.4782 53.4187,54.4844 53.4259,54.4988 53.4265,54.5020 53.4261,54.5061 53.4236,54.5161 53.4215,54.5210 53.4163,54.5366 53.4141,54.5515 53.4168,54.5595 53.4225,54.5646 53.4380,54.5686 53.4451,54.5711 53.4512,54.5745 53.4618,54.5828 53.5054,54.6074 53.5150,54.6155 53.5528,54.6619 53.5624,54.6712 53.5849,54.6877 53.5911,54.6936 53.5976,54.7010 53.6056,54.7137 53.6075,54.7216 53.6069,54.7281 53.6042,54.7328 53.6010,54.7369 53.5970,54.7402 53.5859,54.7459 53.5815,54.7514 53.5808,54.7594 53.5825,54.7723 53.5875,54.7787 53.5930,54.7819 53.6011,54.7832 53.6032,54.8071 53.5970,54.8092 53.5898,54.8127 53.5818,54.8151 53.5787,54.8222 53.6428,54.8999 53.5958,54.9006 53.5335,54.8886 53.5150,54.8884 53.4993,54.8913 53.4933,54.8957 53.4893,54.9005 53.4872,54.9055 53.4860,54.9109 53.4841,54.9160 53.4801,54.9203 53.4643,54.9317 53.4303,54.9716 53.4275,54.9763 53.4219,54.9822 53.4135,54.9887 53.3959,54.9988 53.3831,55.0033 53.3717,55.0058 53.3527,55.0055 53.3247,55.0017 53.3117,55.0024 53.3040,55.0056 53.2990,55.0101 53.2968,55.0158 53.2956,55.0173 53.2937,55.0172 53.2903,55.0151 53.2839,55.0134 53.2777,55.0122 53.2692,55.0120 53.2638,55.0141 53.2602,55.0182 53.2587,55.0231 53.2579,55.0278 53.2593,55.0321 53.2609,55.0349 53.2637,55.0391 53.2646,55.0442 53.2618,55.0509 53.2517,55.0549 53.2435,55.0596 53.2185,55.0774 53.2124,55.0800 53.1473,55.0947 53.1411,55.0989 53.1405,55.1043 53.1439,55.1172 53.1443,55.1221 53.1439,55.1318 53.1468,55.1466 53.1607,55.1514 53.2668,55.1647 53.3269,55.1665 53.3383,55.1702 53.3418,55.1745 53.3395,55.1792 53.3430,55.1866 53.3534,55.1956 53.3856,55.2122 53.4033,55.2187 53.4184,55.2220 53.4575,55.2213 53.4651,55.2197 53.4887,55.2069 53.4950,55.2043 53.5004,55.2026 53.5120,55.2018 53.5636,55.2051 53.5802,55.2080 53.5914,55.2119 53.5954,55.2166 53.5974,55.2217 53.5977,55.2273 53.5951,55.2434 53.5952,55.2490 53.5977,55.2547 53.6030,55.2598 53.6432,55.2764 53.6759,55.2912 53.6813,55.2954 53.6859,55.3003 53.6979,55.3182 53.7038,55.3251 53.7140,55.3335 53.7227,55.3377 53.8458,55.3670 53.8910,55.3812 53.9071,55.3932 53.9238,55.4127 53.9338,55.4287 53.9356,55.4526 53.9387,55.4611 53.9430,55.4672 53.9708,55.4818 53.9795,55.4876 53.9911,55.4978 53.9956,55.5053 53.9973,55.5121 53.9956,55.5322 53.9969,55.5443 53.9997,55.5503 54.0031,55.5544 54.0087,55.5571 54.0467,55.5679 54.0536,55.5707 54.0898,55.5929 54.1167,55.6049 54.1291,55.6120 54.1361,55.6150 54.1436,55.6172 54.1631,55.6203 54.1745,55.6236 54.1808,55.6281 54.1847,55.6336 54.1870,55.6466 54.1897,55.6549 54.1943,55.6605 54.2296,55.6861 54.2309,55.6925 54.2249,55.6964 54.1931,55.7014 54.1768,55.7070 54.1705,55.7106 54.1658,55.7146 54.1582,55.7233 54.1535,55.7275 54.1183,55.7493 54.1096,55.7575 54.1037,55.7671 54.1033,55.7674 54.0952,55.7729 54.0769,55.7656 54.0492,55.7580 54.0263,55.7638 54.0429,55.7774 54.0476,55.7915 54.0399,55.8021 54.0201,55.8047 53.9833,55.7854 53.9655,55.7824 53.9620,55.7910 53.9647,55.7975 53.9752,55.8217 53.9790,55.8272 53.9851,55.8308 53.9916,55.8333 53.9965,55.8370 53.9973,55.8407 53.9938,55.8478 53.9858,55.8511 53.9764,55.8527 53.9309,55.8470 53.9197,55.8477 53.9123,55.8503 53.8917,55.8651 53.8812,55.8728 53.8823,55.8798 53.8687,55.8867 53.8470,55.8794 53.8242,55.8818 53.8015,55.8867 53.7805,55.8867 53.7729,55.8824 53.7670,55.8757 53.7627,55.8693 53.7594,55.8662 53.7460,55.8665 53.7261,55.8771 53.6950,55.8841 53.6518,55.9029 53.6317,55.9067 53.6455,55.9366 53.6548,55.9486 53.6614,55.9534 53.6707,55.9584 53.6791,55.9615 53.6967,55.9651 53.7774,55.9702 53.7859,55.9739 53.7917,55.9793 53.7982,55.9964 53.7994,55.9989 53.8004,56.0003 53.8218,56.0245 53.8378,56.0386 53.8474,56.0404 53.8572,56.0429 53.8879,56.0317 53.9489,56.0222 54.0058,56.0289 54.0468,56.0580 54.0829,56.1230 54.0986,56.1437 54.1172,56.1582 54.1845,56.1883 54.1933,56.1934 54.2531,56.2260 54.2667,56.2315 54.3203,56.2435 54.3458,56.2526 54.3639,56.2748 54.3676,56.2836 54.3714,56.2993 54.3686,56.3068 54.3614,56.3116 54.3426,56.3157 54.3365,56.3178 54.3326,56.3200 54.3286,56.3245 54.3197,56.3390 54.3206,56.3448 54.3255,56.3487 54.3419,56.3534 54.3525,56.3585 54.3286,56.4429 54.3179,56.4513 54.3050,56.4580 54.2664,56.4376 54.2450,56.4319 54.2204,56.4583 54.1906,56.5131 54.1793,56.5274 54.1683,56.5345 54.1478,56.5343 54.1343,56.5356 54.1211,56.5392 54.1024,56.5484 54.0935,56.5554 54.0888,56.5616 54.0826,56.5808 54.0747,56.5869 54.0660,56.5897 54.0483,56.5908 54.0411,56.5925 54.0406,56.5957 54.0442,56.6005 54.0752,56.6171 54.0844,56.6248 54.0901,56.6356 54.0881,56.6501 54.0838,56.6637 54.0758,56.6688 54.0557,56.6709 54.0463,56.6742 54.0377,56.6825 54.0260,56.6853 54.0155,56.6843 54.0046,56.6785 53.9982,56.6737 53.9591,56.6316 53.9538,56.6279 53.9470,56.6252 53.9375,56.6249 53.9269,56.6262 53.9132,56.6257 53.8818,56.6185 53.8609,56.6205 53.8494,56.6284 53.8446,56.6381 53.8477,56.6473 53.8548,56.6560 53.8632,56.6635 53.8693,56.6714 53.8724,56.6797 53.8733,56.6900 53.8728,56.6981 53.8716,56.7054 53.8691,56.7132 53.8601,56.7314 53.8453,56.7533 53.8198,56.7831 53.8217,56.7995 53.8468,56.8095 53.8582,56.8090 53.8719,56.8068 53.8826,56.8014 53.8923,56.7934 53.9038,56.7821 53.9083,56.7790 53.9171,56.7774 53.9495,56.7397 53.9959,56.7361 54.0457,56.7530 54.0884,56.7712 54.0903,56.7853 54.0952,56.7978 54.0871,56.8252 54.0880,56.8470 54.0924,56.8690 54.0952,56.8971 54.0875,56.9360 54.0884,56.9487 54.0986,56.9659 54.1136,56.9730 54.1306,56.9774 54.1752,57.0032 54.2066,57.0090 54.3411,57.0119 54.3728,57.0189 54.3962,57.0380 54.3998,57.0429 54.3939,57.0578 54.3906,57.0624 54.3862,57.0664 54.3801,57.0701 54.3729,57.0734 54.3639,57.0760 54.3538,57.0779 54.3086,57.0808 54.2947,57.0836 54.2868,57.0882 54.2811,57.0943 54.2767,57.1036 54.2766,57.1101 54.2810,57.1147 54.2882,57.1172 54.3053,57.1208 54.3126,57.1231 54.3177,57.1272 54.3231,57.1384 54.3250,57.1481 54.3261,57.1605 54.3224,57.1854 54.3225,57.1966 54.3272,57.2102 54.3228,57.2239 54.3138,57.2355 54.3135,57.2438 54.3162,57.2512 54.3206,57.2584 54.3250,57.2691 54.3250,57.2761 54.3228,57.2820 54.3193,57.2864 54.3143,57.2905 54.3079,57.2941 54.3003,57.2971 54.2813,57.3021 54.2584,57.3049 54.2178,57.3045 54.2079,57.3061 54.1899,57.3112 54.1686,57.3144 54.1582,57.3143 54.1192,57.3093 54.1424,57.3748 54.1574,57.3922 54.2423,57.4123 54.2652,57.4217 54.2708,57.4273 54.2732,57.4330 54.2729,57.4392 54.2701,57.4533 54.2673,57.4591 54.2636,57.4640 54.2577,57.4677 54.2494,57.4699 54.2402,57.4700 54.2325,57.4680 54.2260,57.4646 54.2188,57.4615 54.2092,57.4605 54.1987,57.4609 54.1885,57.4627 54.1810,57.4658 54.1770,57.4702 54.1740,57.4749 54.1721,57.4801 54.1693,57.4917 54.1686,57.4986 54.1689,57.5085 54.1736,57.5140 54.1802,57.5180 54.1879,57.5208 54.1946,57.5247 54.1993,57.5301 54.1989,57.5351 54.1956,57.5397 54.1918,57.5441 54.1823,57.5523 54.1764,57.5559 54.1684,57.5589 54.1587,57.5607 54.1382,57.5610 54.1287,57.5599 54.1203,57.5581 54.1146,57.5544 54.1114,57.5495 54.1056,57.5309 54.1030,57.5254 54.0990,57.5213 54.0915,57.5215 54.0753,57.5246 54.0626,57.5255 54.0395,57.5308 54.0386,57.5348 54.0396,57.5408 54.0426,57.5477 54.0420,57.5588 54.0356,57.5628 54.0263,57.5649 54.0049,57.5661 53.9951,57.5686 53.9900,57.5732 53.9891,57.5802 53.9917,57.5848 53.9978,57.5871 54.0203,57.5884 54.0293,57.5898 54.0359,57.5932 54.0415,57.5975 54.0479,57.6011 54.0563,57.6032 54.0960,57.6074 54.1062,57.6099 54.1166,57.6157 54.1185,57.6200 54.1176,57.6228 54.0978,57.6305 54.0910,57.6339 54.0848,57.6402 54.0800,57.6488 54.0762,57.6660 54.0786,57.6750 54.0828,57.6822 54.0887,57.6865 54.0955,57.6902 54.1033,57.6930 54.1121,57.6947 54.1432,57.6973 54.1522,57.7011 54.1553,57.7039 54.1563,57.7062 54.1554,57.7139 54.1523,57.7258 54.1467,57.7529 54.1385,57.7709 54.1334,57.7910 54.1336,57.8038 54.1365,57.8294 54.0994,57.8881 54.0893,57.9089 54.0869,57.9253 54.0994,57.9717 54.0924,57.9900 54.0872,57.9942 54.0180,58.0345 53.9903,58.0540 53.9414,58.0985 53.9366,58.1048 53.9347,58.1099 53.9321,58.1293 53.9290,58.1394 53.9226,58.1461 53.9044,58.1599 53.8998,58.1671 53.8926,58.1845 53.8867,58.1902 53.8790,58.1945 53.8527,58.2029 53.8347,58.2109 53.8102,58.2281 53.8208,58.2500 53.8450,58.2810 53.8860,58.3191 53.8752,58.3336 53.7957,58.3919 53.7856,58.4024 53.7847,58.4080 53.7846,58.4399 53.7718,58.4834 53.7651,58.4979 53.7585,58.5066 53.7047,58.5950 53.7032,58.6056 53.7056,58.6133 53.7462,58.6438 53.7508,58.6491 53.7527,58.6582 53.7461,58.6813 53.7465,58.6901 53.7501,58.6968 53.7709,58.7158 53.7768,58.7201 53.8046,58.7335 53.8690,58.7527 53.8792,58.7595 53.9145,58.7747 53.9195,58.7786 53.9220,58.7828 53.9166,58.7882 53.8978,58.8003 53.8907,58.8037 53.8823,58.8067 53.8213,58.8211 53.8139,58.8248 53.8069,58.8292 53.8004,58.8354 53.7860,58.8460 53.7758,58.8536 53.7718,58.8566 53.7539,58.8740 53.7504,58.8786 53.7421,58.8931 53.7348,58.9023 53.7265,58.9168 53.7249,58.9259 53.7257,58.9385 53.7319,58.9646 53.7364,58.9780 53.7411,58.9879 53.7495,58.9993 53.7532,59.0065 53.7564,59.0119 53.7608,59.0171 53.7666,59.0215 53.7744,59.0242 53.7833,59.0260 53.8337,59.0298 53.8403,59.0332 53.8419,59.0395 53.8393,59.0532 53.8412,59.0614 53.8449,59.0682 53.8569,59.0766 53.8702,59.0837 53.8749,59.0879 53.8765,59.0928 53.8693,59.1004 53.8572,59.1105 53.8512,59.1141 53.8446,59.1165 53.8348,59.1159 53.8261,59.1142 53.8028,59.1159 53.7540,59.1410 53.7455,59.1371 53.7161,59.1266 53.6995,59.1229 53.6930,59.1221 53.6914,59.1197 53.7186,59.0968 53.7200,59.0939 53.7161,59.0938 53.4977,59.1477 53.4896,59.1482 53.4337,59.1438 53.4227,59.1450 53.4027,59.1496 53.3739,59.1616 53.3457,59.1768 53.3346,59.1852 53.2269,59.2980 53.2169,59.3186 53.2058,59.3640 53.2146,59.3787 53.2322,59.3946 53.3027,59.4432 53.3110,59.4506 53.3543,59.5008 53.3656,59.5186 53.3919,59.5776 53.4184,59.6785 53.4231,59.6842 53.4340,59.6887 53.5355,59.6966 53.5921,59.7085 53.6231,59.7544 53.6576,59.8244 53.6611,59.8368 53.6807,59.9352 53.6979,59.9810 53.7060,60.0000 53.7065,60.0012 53.7029,60.0111 53.6076,60.1427 53.5932,60.1537 53.5369,60.1705 53.4843,60.1961 53.4572,60.2048 53.4178,60.1963 53.3795,60.1713 53.3581,60.1665 52.9059,60.1835 52.4538,60.2005 52.2978,60.2416 52.3393,60.3517 52.3463,60.3848 52.3362,60.3989 52.3239,60.4321 52.2873,60.4491 52.2598,60.4584 52.1625,60.4677 52.1385,60.4728 52.1322,60.4808 52.1331,60.4912 52.1465,60.5278 52.1461,60.5404 52.1338,60.5468 51.7855,60.5968 51.7766,60.6007 51.7742,60.6056 51.8446,60.7768 51.8779,60.8388 51.8807,60.8451 51.8873,60.8703 51.8898,60.8758 51.8955,60.8799 51.9013,60.8823 51.9146,60.8833 52.3095,60.8439 52.3548,60.8439 52.3627,60.8555 52.4117,60.9591 52.4157,60.9657 52.4215,60.9718 52.4306,60.9779 52.4423,60.9796 52.7898,60.9489 52.7958,60.9542 52.8000,60.9603 52.8190,61.0026 52.8664,61.0775 52.8684,61.0826 52.8765,61.0938 53.3487,61.0373 53.3721,61.0290 53.3822,61.0215 53.3806,61.0151 53.3421,60.9223 53.3393,60.9096 53.3399,60.9032 53.3439,60.8966 53.3540,60.8934 53.7911,60.8478 53.8040,60.8499 53.8114,60.8547 53.8146,60.8609 53.8493,60.9509 53.8517,60.9624 53.8535,60.9802 54.2288,60.9414 54.6042,60.9026 54.9795,60.8638 54.9984,60.8827 55.0383,60.9533 55.0621,61.0090 55.0721,61.0150 55.0829,61.0165 55.1587,61.0068 55.1850,61.0069 55.1990,61.0095 55.2073,61.0137 55.2137,61.0190 55.2488,61.0652 55.2522,61.0716 55.2639,61.1015 55.2716,61.1094 55.2875,61.1212 55.3156,61.1230 55.6902,61.0862 55.7157,61.0883 55.7313,61.0995 55.7433,61.1140 55.8031,61.2074 55.8161,61.2357 55.8213,61.2451 55.8302,61.2489 55.8411,61.2496 56.2574,61.2063 56.2716,61.2063 56.2873,61.2094 56.2995,61.2209 56.3107,61.2355 56.3310,61.2676 56.3365,61.2842 56.3373,61.2989 56.3254,61.3168 56.3215,61.3334 56.3908,61.4202 56.4594,61.4339 56.5217,61.4304 56.5382,61.4312 56.5449,61.4351 56.5852,61.4843 56.5989,61.4958 56.6101,61.4996 56.6183,61.5009 56.6433,61.5005 56.6484,61.5010 56.6520,61.5026 56.6634,61.5138 56.6757,61.5223 56.6889,61.5245 56.7024,61.5248 57.0860,61.4880 57.1067,61.4895 57.1867,61.5094 57.2044,61.5109 57.7001,61.5082 58.1958,61.5054 58.6915,61.5027 58.8107,61.5090 58.8464,61.5153 58.8769,61.5353 58.9020,61.5460 58.9302,61.5549 58.9471,61.5579 58.9596,61.5576 58.9769,61.5513 58.9876,61.5485 59.0048,61.5471 59.0152,61.5491 59.0233,61.5524 59.1139,61.6152 59.1459,61.6313 59.1603,61.6359 59.2241,61.6454 59.2977,61.6705 59.3487,61.6822 59.3889,61.7442 59.3912,61.7505 59.3919,61.7576 59.3879,61.7675 59.3827,61.7736 59.3761,61.7786 59.3499,61.7934 59.3442,61.7976 59.3397,61.8024 59.3368,61.8079 59.3344,61.8135 59.3334,61.8196 59.3335,61.8259 59.3380,61.8446 59.3451,61.8566 59.3920,61.9087 59.4303,61.9364 59.4452,61.9445 59.4585,61.9539 59.4766,61.9728 59.4854,61.9933 59.4542,62.0381 59.4331,62.0629 59.4041,62.1080 59.4009,62.1177 59.4003,62.1244 59.4018,62.1315 59.4046,62.1403 59.4078,62.1468 59.4806,62.2402 59.4854,62.2490 59.4906,62.2612 59.4977,62.2858 59.5074,62.3068 59.5163,62.3166 59.5227,62.3205 59.5309,62.3234 59.5501,62.3281 59.5585,62.3311 59.5649,62.3350 59.5962,62.3655 59.6029,62.3756 59.6048,62.3833 59.6036,62.3900 59.6008,62.3954 59.5925,62.4080 59.5896,62.4184 59.5906,62.4256 59.5933,62.4321 59.6209,62.4682 59.6375,62.4950 59.6437,62.5103 59.6416,62.5175 59.6352,62.5225 59.5265,62.5414 59.5178,62.5442 59.5108,62.5478 59.5058,62.5523 59.5014,62.5571 59.4629,62.6138 59.4584,62.6185 59.4412,62.6311 59.4368,62.6377 59.4336,62.6464 59.4287,62.6704 59.4262,62.6779 59.4201,62.6888 59.4031,62.7102 59.3987,62.7180 59.3941,62.7314 59.3950,62.7394 59.3987,62.7457 59.4046,62.7499 59.4480,62.7718 59.4544,62.7768 59.4579,62.7864 59.4579,62.7963 59.4557,62.8113 59.4566,62.8202 59.4585,62.8275 59.4619,62.8329 59.4664,62.8448 59.4677,62.8511 59.4770,62.8696 59.4801,62.8782 59.4831,62.8924 59.4811,62.9005 59.4767,62.9068 59.4386,62.9369 59.4240,62.9439 59.4052,62.9489 59.3254,62.9544 59.3036,62.9583 59.2936,62.9612 59.2851,62.9648 59.2781,62.9702 59.2376,63.0159 59.2272,63.0373 59.2250,63.0463 59.2233,63.0625 59.2232,63.0719 59.2247,63.0789 59.2281,63.0850 59.2317,63.0891 59.2412,63.0960 59.2916,63.1235 59.2980,63.1377 59.2861,63.1527 59.2671,63.1852 59.2644,63.1915 59.2623,63.1994 59.2647,63.2053 59.2691,63.2103 59.2880,63.2224 59.2993,63.2316 59.3151,63.2512 59.3296,63.2739 59.3340,63.2859 59.3334,63.2946 59.3285,63.2992 59.3000,63.3136 59.2932,63.3179 59.2880,63.3233 59.2854,63.3311 59.2873,63.3372 59.2922,63.3422 59.3359,63.3565 59.3434,63.3601 59.3490,63.3641 59.3496,63.3694 59.3464,63.3739 59.3400,63.3777 59.3316,63.3815 59.3245,63.3860 59.3185,63.3925 59.3189,63.3982 59.3222,63.4034 59.4213,63.4896 59.4408,63.5153 59.4938,63.6105 59.5052,63.6457 59.5108,63.7588 59.5138,63.7744 59.5172,63.7832 59.5209,63.7905 59.5357,63.8046 59.5546,63.8181 59.5606,63.8246 59.5684,63.8346 59.5714,63.8426 59.5727,63.8501 59.5726,63.8567 59.5683,63.8816 59.5667,63.9000 59.5693,63.9176 59.5729,63.9272 59.5782,63.9342 59.5844,63.9383 59.7614,63.9958 59.7701,63.9996 59.7729,64.0020 59.7865,64.0211 59.7943,64.0370 59.8007,64.0464 59.8062,64.0528 59.8381,64.0801 59.8426,64.0877 59.8457,64.0949 59.8564,64.1313 59.8577,64.1415 59.8556,64.1490 59.8484,64.1520 59.8375,64.1525 59.7784,64.1460 59.7537,64.1480 59.7345,64.1534 59.5884,64.2326 59.5838,64.2373 59.5803,64.2447 59.5787,64.2545 59.5801,64.2723 59.5831,64.2821 59.5869,64.2898 59.5917,64.2947 59.6035,64.3032 59.6104,64.3070 59.6176,64.3121 59.6246,64.3182 59.6317,64.3283 59.6337,64.3364 59.6331,64.3437 59.6256,64.3577 59.6134,64.3733 59.6110,64.3806 59.6100,64.3898 59.6120,64.4299 59.6100,64.4424 59.6083,64.4484 59.6061,64.4542 59.6032,64.4596 59.5977,64.4640 59.5893,64.4671 59.5073,64.4733 59.4959,64.4760 59.4876,64.4799 59.4823,64.4869 59.4825,64.4925 59.4842,64.4973 59.4896,64.5050 59.4972,64.5141 59.5123,64.5283 59.5237,64.5370 59.5743,64.5636 59.5798,64.5682 59.5844,64.5732 59.6051,64.6126 59.6091,64.6177 59.6141,64.6224 59.6201,64.6266 59.6269,64.6305 59.6345,64.6340 59.6651,64.6411 59.6851,64.6481 59.7041,64.6677 59.6848,64.6855 59.6633,64.6978 59.6443,64.7130 59.6409,64.7190 59.6385,64.7256 59.6370,64.7345 59.6378,64.7416 59.6453,64.7665 59.6476,64.7724 59.6509,64.7779 59.6546,64.7831 59.6741,64.8021 59.7253,64.8432 59.7499,64.8589 59.8890,64.9013 59.9008,64.9084 60.0276,65.0064 60.0941,65.0466 60.1279,65.0594 60.1474,65.0648 60.2201,65.0706 60.3050,65.0714 60.3738,65.0628 60.3875,65.0611 60.4203,65.0526 60.4301,65.0476 60.4358,65.0421 60.4361,65.0362 60.4346,65.0302 60.4296,65.0185 60.4433,65.0072 60.4708,64.9920 60.6007,64.9370 60.6036,64.9316 60.6044,64.9253 60.6047,64.9188 60.6054,64.9126 60.6085,64.9054 60.6146,64.8986 60.6274,64.8900 60.6367,64.8894 60.6452,64.8912 60.6661,64.9030 60.6765,64.9123 60.7133,64.9520 60.7291,64.9660 60.7737,64.9945 60.7797,64.9994 60.7808,65.0006 60.7836,65.0058 60.7873,65.0173 60.7932,65.0287 60.8017,65.0389 60.8081,65.0438 60.8167,65.0481 60.8309,65.0514 60.9619,65.0461 60.9790,65.0483 61.0028,65.0603 61.0858,65.1272 61.0958,65.1369 61.0994,65.1423 61.1020,65.1482 61.1036,65.1545 61.1067,65.1608 61.1211,65.1674 61.1476,65.1742 61.2037,65.1805 61.2275,65.1859 61.2405,65.1919 61.2443,65.2115 61.2466,65.2179 61.2500,65.2241 61.2557,65.2306 61.2685,65.2402 61.3194,65.2668 61.3253,65.2711 61.3293,65.2764 61.3314,65.2820 61.3304,65.2877 61.3250,65.2920 61.3158,65.2951 61.2631,65.3074 61.2550,65.3105 61.2514,65.3147 61.2538,65.3194 61.2840,65.3383 61.3877,65.3805 61.4066,65.3913 61.4135,65.3965 61.4181,65.4018 61.4326,65.4239 61.4378,65.4295 61.4798,65.4626 61.4823,65.4678 61.4834,65.4729 61.4853,65.4782 61.4896,65.4838 61.4954,65.4895 61.5106,65.5005 61.5613,65.5288 61.5830,65.5489 61.6026,65.5569 61.6799,65.5742 61.6918,65.5793 61.7007,65.5848 61.7375,65.6164 61.7537,65.6257 61.7675,65.6302 61.7833,65.6333 61.7923,65.6375 61.8402,65.6692 61.8470,65.6750 61.8560,65.6866 61.8616,65.6925 61.8710,65.6990 61.8819,65.7018 62.0185,65.7171 62.1005,65.7215 62.1318,65.7281 62.1508,65.7356 62.5041,65.8309 62.5232,65.8388 62.6821,65.8623 62.7241,65.8608 62.8386,65.8693 62.8507,65.8730 62.8576,65.8778 62.8576,65.8827 62.8567,65.8877 62.8544,65.8925 62.8449,65.9014 62.8332,65.9101 62.8111,65.9226 62.8053,65.9269 62.8028,65.9315 62.8075,65.9366 62.8795,65.9740 62.8842,65.9798 62.8795,65.9841 62.8721,65.9881 62.8306,66.0041 62.8241,66.0079 62.8214,66.0125 62.8248,66.0179 62.8470,66.0348 62.8528,66.0407 62.8551,66.0460 62.8559,66.0512 62.8545,66.0561 62.8544,66.0617 62.8557,66.0675 62.8622,66.0747 62.8702,66.0791 62.9364,66.1005 62.9528,66.1082 62.9627,66.1151 62.9670,66.1207 62.9715,66.1313 62.9748,66.1417 62.9754,66.1518 62.9767,66.1570 62.9798,66.1624 62.9839,66.1678 62.9894,66.1731 62.9996,66.1813 63.0036,66.1852 63.0125,66.1954 63.0215,66.2034 63.0658,66.2319 63.1054,66.2499 63.1504,66.2645 63.1608,66.2645 63.1704,66.2622 63.2117,66.2474 63.2642,66.2356 63.2767,66.2349 63.2880,66.2353 63.2955,66.2392 63.3014,66.2442 63.3048,66.2496 63.3066,66.2548 63.3063,66.2598 63.3057,66.2647 63.3044,66.2696 63.3025,66.2744 63.2939,66.2836 63.2804,66.2924 63.2406,66.3131 63.2384,66.3196 63.2415,66.3280 63.2820,66.3602 63.2865,66.3657 63.2895,66.3711 63.2901,66.3816 63.2917,66.3875 63.2974,66.3950 63.3057,66.4002 63.3499,66.4160 63.3614,66.4216 63.4040,66.4519 63.4084,66.4579 63.4085,66.4629 63.4080,66.4681 63.4088,66.4737 63.4149,66.4801 63.4274,66.4848 63.4397,66.4851 63.4972,66.4690 63.5171,66.4683 63.5410,66.4708 63.6069,66.4909 63.6245,66.4996 63.6549,66.5192 63.6693,66.5232 63.6830,66.5238 63.7080,66.5226 63.7198,66.5234 63.8085,66.5472 63.8203,66.5528 63.8282,66.5586 63.8328,66.5650 63.8392,66.5722 63.8504,66.5821 63.8616,66.5873 63.8735,66.5899 63.8954,66.5919 63.9023,66.5949 63.9179,66.6105 63.9320,66.6219 63.9693,66.6463 63.9813,66.6515 63.9924,66.6543 64.0089,66.6547 64.0853,66.6487 64.1997,66.6636 64.2793,66.6615 64.2948,66.6631 64.3156,66.6677 64.3282,66.6731 64.3372,66.6788 64.3518,66.6915 64.3858,66.7121 64.4129,66.7235 64.4351,66.7276 64.4468,66.7271 64.4700,66.7222 64.4821,66.7212 64.5066,66.7229 64.5341,66.7279 64.5412,66.7319 64.5440,66.7367 64.5418,66.7414 64.5389,66.7464 64.5377,66.7517 64.5427,66.7585 64.5492,66.7642 64.5542,66.7699 64.5560,66.7749 64.5572,66.7805 64.5601,66.7865 64.5669,66.7936 64.5765,66.7980 64.5870,66.8009 64.7639,66.8221 64.8145,66.8352 64.8504,66.8374 64.8670,66.8405 64.9178,66.8626 64.9367,66.8687 64.9535,66.8707 64.9906,66.8650 64.9992,66.8654 65.0637,66.8809 65.1047,66.8946 65.1104,66.8997 65.1162,66.9083 65.1162,66.9153 65.1127,66.9438 65.1081,66.9622 65.1062,67.0014 65.1054,67.0040 65.1038,67.0080 65.0995,67.0123 65.0939,67.0168 65.0876,67.0207 65.0815,67.0256 65.0793,67.0307 65.0781,67.0415 65.0827,67.0485 65.0898,67.0541 65.1107,67.0590 65.1346,67.0610 65.1716,67.0608 65.1948,67.0646 65.2056,67.0687 65.2158,67.0756 65.2187,67.0813 65.2183,67.0867 65.2137,67.0912 65.2080,67.0960 65.2046,67.1021 65.2038,67.1102 65.2088,67.1187 65.2077,67.1247 65.1930,67.1361 65.1902,67.1450 65.1979,67.1474 65.2224,67.1474 65.2342,67.1488 65.2443,67.1525 65.3160,67.1937 65.3276,67.1987 65.3734,67.2082 65.4097,67.2121 65.4222,67.2151 65.5075,67.2521 65.5411,67.2619 65.5541,67.2676 65.5697,67.2846 65.5786,67.2914 65.5888,67.2965 65.5995,67.2995 65.6476,67.3070 65.6619,67.3107 65.7080,67.3350 65.7126,67.3402 65.7098,67.3448 65.6867,67.3575 65.6811,67.3629 65.6780,67.3692 65.6828,67.3788 65.6909,67.3847 65.7017,67.3887 65.7132,67.3903 65.7386,67.3908 65.8049,67.3825 65.9372,67.3932 65.9738,67.4021 66.0078,67.4159 66.0887,67.4676 66.1031,67.4798 66.1100,67.4888 66.1097,67.4937 66.1090,67.4986 66.1057,67.5082 66.1004,67.5177 66.0972,67.5224 66.0884,67.5315 66.0489,67.5628 66.0453,67.5675 66.0415,67.5717 66.0360,67.5751 66.0259,67.5761 65.8360,67.5552 65.8231,67.5557 65.8106,67.5578 65.8005,67.5619 65.7961,67.5678 65.7981,67.5775 65.8051,67.5844 65.8146,67.5900 65.8481,67.6008 65.8588,67.6058 65.8572,67.6099 65.8478,67.6139 65.8352,67.6176 65.8261,67.6232 65.8242,67.6305 65.8312,67.6427 65.8407,67.6496 65.8516,67.6545 65.8747,67.6588 65.9435,67.6627 65.9791,67.6750 65.9911,67.6779 66.0000,67.6777 66.0090,67.6764 66.0810,67.6496 66.0926,67.6471 66.1047,67.6466 66.1280,67.6500 66.1517,67.6572 66.1842,67.6731 66.1957,67.6819 66.2059,67.6930 66.2086,67.6998 66.2095,67.7053 66.2075,67.7255 66.2062,67.7304 66.2031,67.7350 66.1982,67.7396 66.1470,67.7649 66.1367,67.7685 66.1251,67.7713 66.0865,67.7746 66.0757,67.7770 66.0685,67.7808 66.0629,67.7848 66.0540,67.7883 66.0311,67.7919 66.0224,67.7942 66.0196,67.7981 66.0200,67.8030 66.0222,67.8081 66.0462,67.8393 66.0500,67.8455 66.0520,67.8507 66.0534,67.8559 66.0534,67.8663 66.0543,67.8718 66.0593,67.8794 66.0859,67.8955 66.0928,67.9047 66.0963,67.9136 66.0935,67.9251 66.0895,67.9297 66.0831,67.9336 66.0729,67.9363 66.0608,67.9372 66.0124,67.9323 65.9995,67.9330 65.9865,67.9356 65.9230,67.9588 65.9113,67.9608 65.8999,67.9592 65.8488,67.9379 65.7801,67.9238 65.7289,67.9227 65.5668,67.9339 65.4366,67.9200 65.4294,67.9215 65.4131,67.9338 65.3919,67.9467 65.3823,67.9559 65.3786,67.9604 65.3693,67.9695 65.3437,67.9875 65.3195,67.9999 65.2970,68.0081 65.2898,68.0123 65.2886,68.0173 65.2905,68.0225 65.3301,68.0847 65.3306,68.0907 65.3288,68.0959 65.2964,68.1379 65.2948,68.1427 65.2938,68.1480 65.2935,68.1670 65.2920,68.1822 65.2908,68.1871 65.2890,68.1919 65.2789,68.2049 65.2727,68.2164 65.2725,68.2239 65.2738,68.2305 65.2766,68.2356 65.2913,68.2570 65.2960,68.2618 65.3025,68.2657 65.3229,68.2700 65.3307,68.2752 65.3362,68.2820 65.3455,68.2991 65.3520,68.3057 65.4028,68.3429 65.4121,68.3544 65.4152,68.3632 65.4164,68.3740 65.4183,68.3807 65.4219,68.3868 65.4600,68.4146 65.4702,68.4242 65.4805,68.4304 65.5124,68.4423 65.5384,68.4600 65.5900,68.4813 65.6042,68.4888 65.6119,68.4955 65.6135,68.5006 65.6132,68.5167 65.6197,68.5252 65.6309,68.5330 65.6497,68.5437 65.6544,68.5504 65.6543,68.5562 65.6482,68.5606 65.6396,68.5648 65.6150,68.5719 65.6011,68.5744 65.5470,68.5781 65.5352,68.5806 65.5247,68.5842 65.5167,68.5884 65.5102,68.5928 65.5052,68.5973 65.4854,68.6204 65.4594,68.6427 65.4520,68.6467 65.4278,68.6521 65.4167,68.6557 65.4083,68.6610 65.3997,68.6697 65.3900,68.6755 65.3830,68.6807 65.3826,68.6850 65.3895,68.6889 65.4198,68.6977 65.4247,68.7007 65.4234,68.7047 65.4112,68.7233 65.4075,68.7274 65.4028,68.7303 65.3948,68.7303 65.3492,68.7229 65.3384,68.7230 65.3300,68.7258 65.3264,68.7300 65.3257,68.7350 65.3266,68.7399 65.3301,68.7453 65.3443,68.7815 65.3437,68.7863 65.3415,68.7917 65.3149,68.8033 65.3011,68.8061 65.2871,68.8075 65.2613,68.8070 65.2471,68.8089 65.2037,68.8208 65.1920,68.8207 65.1218,68.8069 65.0946,68.8077 65.0803,68.8097 65.0645,68.8140 65.0150,68.8354 65.0023,68.8391 64.9818,68.8427 64.9479,68.8533 64.9215,68.8663 64.9043,68.8714 64.8891,68.8730 64.8761,68.8726 64.8618,68.8740 64.8466,68.8774 64.8035,68.8908 64.7898,68.8923 64.7770,68.8919 64.7658,68.8895 64.7575,68.8850 64.7537,68.8800 64.7541,68.8750 64.7557,68.8702 64.7557,68.8654 64.7525,68.8607 64.7436,68.8571 64.7315,68.8562 64.6600,68.8629 64.6071,68.8616 64.5788,68.8648 64.5541,68.8714 64.5423,68.8812 64.5276,68.8994 64.5260,68.9065 64.5303,68.9127 64.5690,68.9306 64.5768,68.9355 64.5804,68.9405 64.5811,68.9464 64.5802,68.9525 64.5716,68.9619 64.5309,68.9794 64.5206,68.9861 64.5140,68.9920 64.5124,68.9988 64.5119,69.0013 64.5121,69.0034 64.5130,69.0074 64.5161,69.0124 64.5207,69.0178 64.5273,69.0232 64.5352,69.0283 64.5451,69.0322 64.6050,69.0446 64.6866,69.0808 64.7399,69.1252 64.7485,69.1310 64.7599,69.1349 64.7742,69.1375 64.7956,69.1359 64.8116,69.1399 64.8324,69.1521 64.9076,69.1884 64.9101,69.1890 64.9596,69.1944 64.9900,69.2047 64.9968,69.2098 65.0002,69.2132 65.0027,69.2174 65.0310,69.2494 65.0350,69.2599 65.0379,69.2708 65.0379,69.2710 65.0384,69.7064 65.0388,70.1417 65.0393,70.5771 65.0397,71.0125 65.3965,71.3113 65.7532,71.6102 66.1099,71.9091 66.4666,72.2079 66.8233,72.5068 67.1800,72.8057 67.5368,73.1045 67.7156,73.2470 68.0107,73.4822 68.3058,73.7173 68.6009,73.9525 68.9580,74.2371 69.3152,74.5217 69.6723,74.8063 70.0295,75.0909 70.0310,75.5842 70.0325,76.0776 70.0340,76.5710 70.0354,77.0644 70.0369,77.5578 70.0384,78.0512 70.0399,78.5446 70.0414,79.0380 70.0429,79.5314 70.0444,80.0248 70.0459,80.5182 70.0474,81.0116 70.0489,81.5050 70.0504,81.9984 70.5451,81.9984 71.0398,81.9984 71.5346,81.9984 72.0293,81.9984 72.5240,81.9984 73.0187,81.9984 73.5135,81.9984 74.0082,81.9984 74.5029,81.9984 74.9976,81.9984 74.9999,81.9984 75.0509,81.9984 75.5197,81.9984 75.9884,81.9984 76.4572,81.9984 76.9260,81.9984 77.3947,81.9984 77.8635,81.9984 78.3322,81.9984 78.8010,81.9984 79.2697,81.9984 79.7385,81.9984 80.2072,81.9984 80.6760,81.9984 81.1447,81.9984 81.6135,81.9984 82.0822,81.9984 82.5510,81.9984 82.5490,82.4940 82.5470,82.9895 82.5450,83.4851 82.5431,83.9807 82.5411,84.4762 82.5391,84.9718 82.5371,85.4674 82.5351,85.9629 82.5331,86.4585 82.5311,86.9541 82.5291,87.4496 82.5272,87.9452 82.5272,88.3562 82.5272,88.7671 82.5272,89.1781 82.5272,89.5890 82.5272,90.0000 82.9682,90.0000 83.4093,90.0000 83.8504,90.0000 84.2915,90.0000 84.7326,90.0000 85.1737,90.0000 85.6147,90.0000 86.0558,90.0000 86.4969,90.0000 86.9380,90.0000 87.3791,90.0000 87.8201,90.0000 88.2612,90.0000 88.7023,90.0000 89.1434,90.0000 89.5845,90.0000 90.0256,90.0000 90.4666,90.0000 90.9077,90.0000 91.3488,90.0000 91.7899,90.0000 92.2310,90.0000 92.6721,90.0000 93.1131,90.0000 93.5542,90.0000 93.9953,90.0000 94.4364,90.0000 94.8775,90.0000 95.3186,90.0000 95.7596,90.0000 96.2007,90.0000 96.6418,90.0000 97.0829,90.0000 97.5240,90.0000 97.5226,89.5026 97.5213,89.0052 97.5200,88.5078 97.5186,88.0104 97.5173,87.5131 97.5159,87.0157 97.5146,86.5183 97.5133,86.0209 97.5119,85.5235 97.5106,85.0261 97.5093,84.5287 97.5079,84.0313 97.5066,83.5339 97.5052,83.0366 97.5039,82.5392 97.5026,82.0418 97.5012,81.5444 97.0252,81.5430 96.5491,81.5415 96.0731,81.5401 95.5970,81.5386 95.1210,81.5372 94.6450,81.5358 94.1689,81.5343 93.6929,81.5329 93.2168,81.5315 92.7408,81.5300 92.2647,81.5286 91.7887,81.5272 91.3126,81.5257 90.8366,81.5243 90.3605,81.5229 89.8845,81.5214 89.4084,81.5200 88.9324,81.5186 88.9339,81.3000 88.4371,81.3000 87.9403,81.3000 87.4435,81.3000 86.9467,81.3000 86.4499,81.3000 85.9531,81.3000 85.4563,81.3000 84.9595,81.3000 84.4627,81.3000 83.9658,81.3000 83.4690,81.3000 82.9722,81.3000 82.4754,81.3000 81.9786,81.3000 81.4818,81.3000 80.9850,81.3000 80.4882,81.3000 79.9914,81.3000 79.4946,81.3000 78.9978,81.3000 78.5010,81.3000 78.5000,81.3000 285,7.0,Antarctica/ 103.4065,-65.6326 103.4091,-65.7683 103.4809,-65.7791 103.6333,-65.8144 103.8815,-65.8126 104.0665,-65.8273 104.3194,-65.8673 104.5724,-65.9072 104.6570,-65.9272 104.7300,-65.9522 104.7856,-65.9714 105.0005,-65.9863 105.3218,-66.0416 105.5322,-66.0607 105.7618,-66.1229 106.1163,-66.1764 106.4708,-66.2299 106.6893,-66.2547 106.8844,-66.2914 107.1278,-66.2973 107.2531,-66.3072 107.6198,-66.3727 107.9431,-66.4008 108.0259,-66.4195 108.1299,-66.4571 108.2794,-66.4634 108.3687,-66.4755 108.4661,-66.4988 108.5452,-66.5316 108.5824,-66.5591 108.6265,-66.6171 108.6622,-66.6383 108.8680,-66.6862 108.9924,-66.7275 109.1331,-66.7198 109.3682,-66.7349 109.4540,-66.7284 109.6886,-66.6561 109.8603,-66.6227 110.0038,-66.5669 110.1144,-66.5380 110.1196,-66.9371 110.1248,-67.3361 110.5999,-67.3368 111.0750,-67.3374 111.5502,-67.3380 112.0253,-67.3387 112.5004,-67.3393 112.5004,-67.7587 112.5004,-68.1782 112.5004,-68.5976 112.5004,-69.0170 112.5004,-69.4365 112.5004,-69.8910 112.5004,-70.3456 112.5004,-70.8001 112.5004,-71.2547 112.5004,-71.7092 112.5004,-72.1638 112.5004,-72.6183 112.5004,-73.0728 112.5004,-73.5274 112.5004,-73.9819 112.5004,-74.4365 112.5004,-74.8910 112.5004,-75.3456 112.5004,-75.8001 112.5004,-76.2547 112.5004,-76.7092 112.5004,-77.1638 112.5004,-77.6183 112.5004,-78.0728 112.5004,-78.5274 112.5004,-78.9819 112.5004,-79.4365 112.5004,-79.8910 112.5004,-80.3456 112.5004,-80.8001 112.5004,-81.2547 112.5004,-81.7092 112.5004,-82.1638 112.5004,-82.6183 112.5004,-83.0728 112.5004,-83.5274 112.5004,-83.9819 112.5004,-84.4365 112.5004,-84.8910 112.5004,-85.3456 112.5004,-85.8001 112.5004,-86.2547 112.5004,-86.7092 112.5004,-87.1638 112.5004,-87.6183 112.5004,-88.0728 112.5004,-88.5274 112.5004,-88.9819 112.5004,-89.4365 112.5004,-89.7182 112.5004,-90.0000 112.0071,-90.0000 111.5138,-90.0000 111.1805,-90.0000 110.8472,-90.0000 110.5138,-90.0000 110.1805,-90.0000 109.8472,-90.0000 109.5138,-90.0000 109.1805,-90.0000 108.8472,-90.0000 108.5138,-90.0000 108.1805,-90.0000 107.8472,-90.0000 107.5138,-90.0000 107.1805,-90.0000 106.8472,-90.0000 106.5138,-90.0000 106.1805,-90.0000 105.8472,-90.0000 105.5138,-90.0000 105.1805,-90.0000 104.8472,-90.0000 104.5138,-90.0000 104.1805,-90.0000 103.8472,-90.0000 103.5138,-90.0000 103.1805,-90.0000 102.8472,-90.0000 102.5138,-90.0000 102.1805,-90.0000 101.8472,-90.0000 101.5138,-90.0000 101.1805,-90.0000 100.8472,-90.0000 100.5138,-90.0000 100.1805,-90.0000 99.8472,-90.0000 99.5138,-90.0000 99.1805,-90.0000 98.8472,-90.0000 98.5138,-90.0000 98.1805,-90.0000 97.8472,-90.0000 97.5138,-90.0000 97.5138,-89.5364 97.5138,-89.0727 97.5138,-88.6091 97.5138,-88.1455 97.5138,-87.6818 97.5138,-87.2182 97.5138,-86.7545 97.5138,-86.2909 97.5138,-85.8273 97.5138,-85.3636 97.5138,-84.9000 97.5138,-84.4455 97.5138,-83.9909 97.5138,-83.5364 97.5138,-83.0818 97.5138,-82.6273 97.5138,-82.1727 97.5138,-81.7182 97.5138,-81.2636 97.5138,-80.8091 97.5138,-80.3545 97.5138,-79.9000 97.5138,-79.4455 97.5138,-78.9909 97.5138,-78.5364 97.5138,-78.0818 97.5138,-77.6273 97.5138,-77.1727 97.5138,-76.7182 97.5138,-76.2636 97.5138,-75.8091 97.5138,-75.3545 97.5138,-74.9000 97.5138,-74.4455 97.5138,-73.9909 97.5138,-73.5364 97.5138,-73.0818 97.5138,-72.6273 97.5138,-72.1727 97.5138,-71.7182 97.5138,-71.2636 97.5138,-70.8091 97.5138,-70.3545 97.5138,-69.9000 97.5138,-69.4377 97.5138,-68.9753 97.5138,-68.5130 97.5138,-68.0506 97.5138,-67.5883 97.5138,-67.1259 97.5138,-66.6636 97.5138,-66.2013 97.6464,-66.2399 97.7133,-66.2724 97.7891,-66.3236 97.8442,-66.3420 97.9020,-66.3425 98.0435,-66.2989 98.2607,-66.2718 98.4916,-66.2076 98.5924,-66.1958 98.7060,-66.1930 98.9152,-66.2118 99.1255,-66.2547 99.2629,-66.3020 99.3664,-66.3699 99.4044,-66.3836 99.4455,-66.3867 99.6020,-66.3770 99.6609,-66.3678 99.7209,-66.3497 99.6531,-66.2283 99.6572,-66.1786 99.6867,-66.1292 99.7549,-66.0702 99.9636,-65.9429 99.9996,-65.9060 99.9893,-65.8476 100.0119,-65.7881 99.9118,-65.7126 99.8672,-65.6261 99.8713,-65.5556 99.9131,-65.4875 100.0816,-65.3702 100.2624,-65.2883 100.4430,-65.2438 100.7233,-65.2130 100.8625,-65.2092 100.9996,-65.2149 101.3019,-65.2627 101.4253,-65.3012 101.5931,-65.4027 101.6353,-65.4441 101.6581,-65.4848 101.6546,-65.5757 101.6235,-65.6221 101.5785,-65.6597 101.4096,-65.7407 101.4053,-65.7508 101.4286,-65.7781 101.6241,-65.7831 101.7856,-65.7971 102.1710,-65.7881 102.3065,-65.7469 102.4287,-65.7220 102.5955,-65.7012 102.7278,-65.6951 102.9027,-65.7080 102.9524,-65.5966 102.8928,-65.5790 102.7911,-65.5255 102.7202,-65.4115 102.6183,-65.3911 102.5297,-65.3640 102.4607,-65.3326 102.4087,-65.2953 102.3761,-65.2540 102.3609,-65.2046 102.3670,-65.1545 102.3927,-65.1061 102.4311,-65.0659 102.4824,-65.0333 102.5463,-65.0075 102.6318,-64.9859 102.8021,-64.9669 102.9901,-64.9699 103.1542,-64.9939 103.3209,-65.0384 103.4255,-65.0788 103.5012,-65.1210 103.5694,-65.1881 103.5960,-65.2708 103.7095,-65.3162 103.7729,-65.3571 103.8069,-65.4005 103.8122,-65.4534 103.7895,-65.4963 103.7332,-65.5438 103.6488,-65.5844 103.5598,-65.6110 103.4561,-65.6291 103.4065,-65.6326 4,12.0,Pacific/Auckland 179.9885,-90.0000 179.9885,-90.0000 179.9885,-90.0000 179.9885,-90.0000 30,12.0,Pacific/Auckland 179.9885,-90.0000 179.9885,-89.5230 179.9885,-89.0460 179.9885,-88.5690 179.9885,-88.0920 179.9885,-87.6150 179.9885,-87.1380 179.9885,-86.6609 179.9885,-86.1839 179.9885,-85.7069 179.9885,-85.2299 179.9885,-84.7529 179.9885,-84.9000 179.9885,-85.0000 179.9885,-85.3333 179.9885,-85.6667 179.9885,-86.0000 179.9885,-86.3333 179.9885,-86.6667 179.9885,-87.0000 179.9885,-87.3333 179.9885,-87.6667 179.9885,-88.0000 179.9885,-88.3333 179.9885,-88.6667 179.9885,-89.0000 179.9885,-89.5000 179.9885,-90.0000 179.9885,-90.0000 179.9885,-90.0000 699,12.0,Pacific/Auckland 179.9885,-84.7529 179.9879,-84.2608 179.9873,-83.7686 179.9866,-83.2765 179.9860,-82.7843 179.9854,-82.2922 179.9848,-81.8001 179.9842,-81.3079 179.9835,-80.8158 179.9829,-80.3236 179.9823,-79.8315 179.9817,-79.3393 179.9810,-78.8472 179.9804,-78.3550 179.9798,-77.8629 179.4816,-77.8444 178.9835,-77.8260 178.4853,-77.8075 177.9871,-77.7891 177.4890,-77.7706 176.9908,-77.7522 176.4926,-77.7337 175.9945,-77.7153 175.4963,-77.6968 174.9981,-77.6784 174.5000,-77.6599 174.0018,-77.6415 173.5036,-77.6230 173.0055,-77.6046 172.5073,-77.5861 172.5075,-77.1482 172.5077,-76.7102 172.5079,-76.2723 172.5082,-75.8343 172.5084,-75.3963 172.5086,-74.9584 172.5088,-74.5204 172.5090,-74.0659 172.5093,-73.6113 172.5095,-73.1568 172.5097,-72.7022 172.5100,-72.2477 172.5102,-71.7932 172.5104,-71.3386 172.5106,-70.8841 172.5109,-70.4295 172.5111,-69.9750 172.5113,-69.5204 172.5115,-69.0659 172.5118,-68.6113 172.5120,-68.1568 172.5122,-67.7022 172.5125,-67.2477 172.5127,-66.7932 172.5129,-66.3386 172.5131,-65.8841 172.5134,-65.4295 172.5136,-64.9750 172.5138,-64.5204 172.5141,-64.0204 172.5143,-63.5204 172.5146,-63.0204 172.5148,-62.5204 172.5151,-62.0204 172.5153,-61.5204 172.5156,-61.0204 172.5158,-60.5204 172.5161,-60.0204 172.5163,-59.5204 172.5165,-59.0659 172.5168,-58.6113 172.5170,-58.1568 172.5172,-57.7022 172.5174,-57.2477 172.5177,-56.7932 172.5179,-56.3386 172.5181,-55.8841 172.5184,-55.4295 172.5186,-54.9750 172.5188,-54.5204 172.5073,-54.5204 172.0155,-54.5204 171.5236,-54.5204 171.0318,-54.5204 170.5399,-54.5204 170.0480,-54.5204 170.0365,-54.5204 169.5377,-54.5204 169.0388,-54.5204 168.5400,-54.5204 168.0411,-54.5204 167.5423,-54.5204 167.0434,-54.5204 166.5446,-54.5204 166.0457,-54.5204 165.5469,-54.5204 165.0480,-54.5204 165.0485,-54.2169 165.0490,-53.9133 165.0499,-53.4133 165.0507,-52.9133 165.0515,-52.4133 165.0524,-51.9133 165.0532,-51.4133 165.0540,-50.9133 165.0549,-50.4133 165.0557,-49.9133 165.0565,-49.4133 165.0573,-48.9133 165.0582,-48.4133 165.0590,-47.9133 165.0598,-47.4133 165.0607,-46.9133 165.0615,-46.4133 165.0623,-45.9133 165.0632,-45.4133 165.0640,-44.9133 165.0648,-44.4133 165.0656,-43.9133 165.3232,-43.5093 165.5807,-43.1053 165.8382,-42.7014 166.0957,-42.2974 166.3533,-41.8934 166.6108,-41.4894 166.8683,-41.0854 167.1259,-40.6814 167.3946,-40.2598 167.6634,-39.8382 167.9322,-39.4166 168.2009,-38.9949 168.4697,-38.5733 168.7385,-38.1517 169.0072,-37.7301 169.2760,-37.3085 169.5448,-36.8868 169.8135,-36.4652 170.0579,-36.0819 170.3022,-35.6986 170.5465,-35.3154 170.7909,-34.9321 171.0352,-34.5488 171.2795,-34.1655 171.5239,-33.7822 171.7682,-33.3989 172.0125,-33.0156 172.2569,-32.6323 172.5012,-32.2490 172.5012,-31.7602 172.5012,-31.2714 172.5012,-30.7826 172.5012,-30.3138 172.5012,-29.8450 172.5012,-29.3762 172.5012,-28.9074 172.5012,-28.4386 172.5013,-27.9698 172.5013,-27.6628 172.5013,-27.3557 172.5013,-26.9012 172.5013,-26.4466 172.5013,-25.9921 172.5013,-25.5375 172.5013,-25.0830 172.5013,-24.6284 172.5013,-24.1739 172.5013,-23.7193 172.5013,-23.2648 172.5013,-22.8103 172.5013,-22.3557 172.5013,-21.9012 172.5013,-21.4466 172.5013,-20.9921 172.5013,-20.5375 172.5013,-20.0830 172.5013,-19.6284 172.5013,-19.1739 172.5013,-18.7193 172.5013,-18.2648 172.5013,-17.8103 172.5013,-17.3557 172.5013,-16.9012 172.5014,-16.4466 172.5014,-15.9921 172.5014,-15.5375 172.5014,-15.0830 172.5014,-14.6284 172.5014,-14.1739 172.5014,-13.7193 172.5014,-13.2648 172.5014,-12.8103 172.5014,-12.3557 172.5014,-11.9012 172.5014,-11.4466 172.5014,-10.9921 172.5014,-10.5375 172.5014,-10.0830 172.5014,-9.6284 172.5014,-9.1739 172.5014,-8.7193 172.5014,-8.2648 172.5014,-7.8103 172.5014,-7.3557 172.5014,-6.9012 172.5014,-6.4466 172.5014,-5.9921 172.5015,-5.5375 172.5015,-5.0830 172.5015,-4.6284 172.5015,-4.1739 172.5015,-3.7193 172.5015,-3.2648 172.5015,-2.8103 172.5015,-2.3557 172.0122,-2.3556 171.5229,-2.3555 171.0337,-2.3554 170.5444,-2.3553 170.0899,-2.3552 169.6353,-2.3551 169.1808,-2.3550 168.7262,-2.3549 168.2717,-2.3548 167.8171,-2.3548 167.3626,-2.3547 166.9080,-2.3546 166.4535,-2.3545 165.9989,-2.3544 165.5444,-2.3543 165.1576,-2.3542 164.7708,-2.3541 164.3840,-2.3540 163.9972,-2.3540 163.9968,-1.8585 163.9963,-1.3631 163.9959,-0.8676 163.9955,-0.3722 163.9951,0.1233 163.9947,0.6187 163.9943,1.1141 163.9939,1.6096 163.9934,2.1050 163.9930,2.6005 163.9926,3.0959 163.9922,3.5914 163.9918,4.0868 163.9914,4.5822 163.9910,5.0777 163.9905,5.5731 163.9901,6.0686 163.9897,6.5640 163.9893,7.0595 163.9889,7.5549 163.9885,8.0504 163.4985,8.0504 163.0085,8.0504 162.5185,8.0504 162.0285,8.0504 161.5385,8.0504 161.0486,8.0504 160.5586,8.0504 160.5590,8.5186 160.5593,8.9868 160.5597,9.4550 160.5601,9.9233 160.5605,10.3915 160.5609,10.8597 160.5614,11.3143 160.5620,11.7688 160.5626,12.2234 160.5631,12.6779 160.5637,13.1325 160.5643,13.5870 160.5648,14.0416 160.5654,14.4961 160.5660,14.9506 160.5665,15.4052 160.5671,15.8597 160.5677,16.3597 160.5684,16.8597 160.5690,17.3597 160.5696,17.8597 160.5702,18.3597 160.5709,18.8597 160.5715,19.3597 160.5721,19.8597 160.5727,20.3597 160.5733,20.8597 161.0551,20.8597 161.5368,20.8598 162.0185,20.8598 162.5002,20.8598 162.9547,20.8598 163.4092,20.8598 163.8638,20.8598 164.3183,20.8598 164.7729,20.8598 165.2274,20.8599 165.6820,20.8599 166.1365,20.8599 166.5911,20.8599 167.0456,20.8599 167.5002,20.8599 167.9547,20.8599 168.4092,20.8599 168.8638,20.8600 169.3183,20.8600 169.7729,20.8600 170.2274,20.8600 170.6820,20.8600 171.1365,20.8600 171.5911,20.8600 172.0456,20.8600 172.5002,20.8601 172.5004,21.3412 172.5006,21.8224 172.5008,22.3036 172.5010,22.7848 172.5012,23.2660 172.5014,23.7472 172.5016,24.2284 172.5018,24.7096 172.5020,25.1907 172.5022,25.6719 172.5024,26.1265 172.5026,26.5810 172.5028,27.0356 172.5029,27.4901 172.5031,27.9447 172.5033,28.3992 172.5035,28.8537 172.5037,29.3083 172.5039,29.7628 172.5041,30.2174 172.5043,30.6719 172.5045,31.1719 172.5047,31.6719 172.5049,32.1719 172.5051,32.6719 172.5053,33.1719 172.5055,33.6719 172.5058,34.1719 172.5060,34.6719 172.5062,35.1719 172.5064,35.6719 172.5066,36.1265 172.5068,36.5810 172.5070,37.0356 172.5071,37.4901 172.5073,37.9447 172.5075,38.3992 172.5077,38.8537 172.5079,39.3083 172.5081,39.7628 172.5083,40.2174 172.5085,40.6719 172.5087,41.1265 172.5089,41.5810 172.5091,42.0356 172.5092,42.4901 172.5094,42.9447 172.5096,43.3992 172.5098,43.8537 172.5100,44.3083 172.5102,44.7628 172.5104,45.2174 172.5106,45.6719 172.5108,46.1265 172.5110,46.5810 172.5112,47.0356 172.5114,47.4901 172.5115,47.9447 172.5117,48.3992 172.5119,48.8537 172.5121,49.3083 172.5123,49.7628 172.5125,50.2174 172.5127,50.6719 172.5082,50.6719 172.5073,51.0284 172.5064,51.3850 172.5213,51.7762 172.9671,51.5572 173.3544,51.3658 173.8138,51.1386 174.2611,50.9165 174.6937,50.7011 175.1479,50.4742 175.5871,50.2540 175.9968,50.0479 176.4794,49.8044 176.9104,49.5862 177.3339,49.3710 177.7714,49.1480 178.2162,48.9205 178.6532,48.6961 179.1101,48.4438 179.5550,48.2219 180.0000,48.0000 180.0000,47.5050 180.0000,47.0101 180.0000,46.5151 180.0000,46.0202 180.0000,45.5252 180.0000,45.0303 180.0000,44.5353 180.0000,44.0403 180.0000,43.5454 180.0000,43.0504 180.0000,42.5555 180.0000,42.0605 180.0000,41.5655 180.0000,41.0706 180.0000,40.5756 180.0000,40.0807 180.0000,39.5857 180.0000,39.0908 180.0000,38.5958 180.0000,38.1008 180.0000,37.6059 180.0000,37.1109 180.0000,36.6160 180.0000,36.1210 180.0000,35.6261 180.0000,35.1311 180.0000,34.6361 180.0000,34.1412 180.0000,33.6462 180.0000,33.1513 180.0000,32.6563 180.0000,32.1614 180.0000,31.6664 180.0000,31.1714 180.0000,30.6765 180.0000,30.1815 180.0000,29.6866 180.0000,29.1916 180.0000,28.6966 180.0000,28.2017 180.0000,27.7067 180.0000,27.2118 180.0000,26.7168 180.0000,26.2219 180.0000,25.7269 180.0000,25.2319 180.0000,24.7370 180.0000,24.2420 180.0000,23.7471 180.0000,23.2521 180.0000,22.7572 180.0000,22.2622 180.0000,21.7672 180.0000,21.2723 180.0000,20.7773 180.0000,20.2824 180.0000,19.7874 180.0000,19.2925 180.0000,18.7975 180.0000,18.3025 180.0000,17.8076 180.0000,17.3126 180.0000,16.8177 180.0000,16.3227 180.0000,15.8277 180.0000,15.3328 180.0000,14.8378 180.0000,14.3429 180.0000,13.8479 180.0000,13.3530 180.0000,12.8580 180.0000,12.3630 180.0000,11.8681 180.0000,11.3731 180.0000,10.8782 180.0000,10.3832 180.0000,9.8883 180.0000,9.3933 180.0000,8.8983 180.0000,8.4034 180.0000,7.9084 180.0000,7.4135 180.0000,6.9185 180.0000,6.4235 180.0000,5.9286 180.0000,5.4336 180.0000,4.9387 180.0000,4.4437 180.0000,3.9488 180.0000,3.4538 180.0000,2.9588 180.0000,2.4639 180.0000,1.9689 180.0000,1.4740 180.0000,0.9790 180.0000,0.4841 180.0000,-0.0109 180.0000,-0.5059 180.0000,-1.0008 180.0000,-1.5007 180.0000,-2.0006 180.0000,-2.5005 180.0000,-3.0004 180.0000,-3.5003 180.0000,-4.0002 180.0000,-4.5001 180.0000,-5.0000 180.0000,-5.4999 180.0000,-5.9998 180.0000,-6.4996 180.0000,-6.9995 180.0000,-7.4994 180.0000,-7.9993 180.0000,-8.4992 180.0000,-8.9991 180.0000,-9.4990 180.0000,-9.9989 180.0000,-10.4988 180.0000,-10.9987 180.0000,-11.4986 180.0000,-11.9985 180.0000,-12.4984 180.0000,-12.9983 180.0000,-13.4982 180.0000,-13.9980 180.0000,-14.4979 180.0000,-14.9978 180.0000,-15.4977 180.0000,-15.9976 180.0000,-16.4975 180.0000,-16.9974 180.0000,-17.4973 180.0000,-17.9972 180.0000,-18.4971 180.0000,-18.9970 180.0000,-19.4969 180.0000,-19.9968 180.0000,-20.4967 180.0000,-20.9966 180.0000,-21.4964 180.0000,-21.9963 180.0000,-22.4962 180.0000,-22.9961 180.0000,-23.4960 180.0000,-23.9959 180.0000,-24.4958 180.0000,-24.9957 180.0000,-25.4956 180.0000,-25.9955 180.0000,-26.4954 180.0000,-26.9953 180.0000,-27.4952 180.0000,-27.9951 180.0000,-28.4950 180.0000,-28.9948 180.0000,-29.4947 180.0000,-29.9946 180.0000,-30.4945 180.0000,-30.9944 180.0000,-31.4943 180.0000,-31.9942 180.0000,-32.4941 180.0000,-32.9940 180.0000,-33.4939 180.0000,-33.9938 180.0000,-34.4937 180.0000,-34.9936 180.0000,-35.4935 180.0000,-35.9934 180.0000,-36.4932 180.0000,-36.9931 180.0000,-37.4930 180.0000,-37.9929 180.0000,-38.4928 180.0000,-38.9927 180.0000,-39.4926 180.0000,-39.9925 180.0000,-40.4924 180.0000,-40.9923 180.0000,-41.4922 180.0000,-41.9921 180.0000,-42.4920 180.0000,-42.9919 180.0000,-43.4918 180.0000,-43.9916 180.0000,-44.4915 180.0000,-44.9914 180.0000,-45.4913 180.0000,-45.9912 180.0000,-46.4911 180.0000,-46.9910 180.0000,-47.4909 180.0000,-47.9908 180.0000,-48.4907 180.0000,-48.9906 180.0000,-49.4905 180.0000,-49.9904 180.0000,-50.4903 180.0000,-50.9902 180.0000,-51.4900 179.9885,-51.5000 179.9885,-51.9000 179.9885,-52.2333 179.9885,-52.5667 179.9885,-52.9000 179.9885,-53.2333 179.9885,-53.5667 179.9885,-53.9000 179.9885,-54.2333 179.9885,-54.5667 179.9885,-54.9000 179.9885,-55.2333 179.9885,-55.5667 179.9885,-55.9000 179.9885,-56.2333 179.9885,-56.5667 179.9885,-56.9000 179.9885,-57.2333 179.9885,-57.5667 179.9885,-57.9000 179.9885,-58.2333 179.9885,-58.5667 179.9885,-58.9000 179.9885,-59.2333 179.9885,-59.5667 179.9885,-59.9000 179.9885,-60.2333 179.9885,-60.5667 179.9885,-60.9000 179.9885,-61.2333 179.9885,-61.5667 179.9885,-61.9000 179.9885,-62.2333 179.9885,-62.5667 179.9885,-62.9000 179.9885,-63.2333 179.9885,-63.5667 179.9885,-63.9000 179.9885,-64.2333 179.9885,-64.5667 179.9885,-64.9000 179.9885,-65.2333 179.9885,-65.5667 179.9885,-65.9000 179.9885,-66.2333 179.9885,-66.5667 179.9885,-66.9000 179.9885,-67.2333 179.9885,-67.5667 179.9885,-67.9000 179.9885,-68.2333 179.9885,-68.5667 179.9885,-68.9000 179.9885,-69.2333 179.9885,-69.5667 179.9885,-69.9000 179.9885,-70.2333 179.9885,-70.5667 179.9885,-70.9000 179.9885,-71.2333 179.9885,-71.5667 179.9885,-71.9000 179.9885,-72.2333 179.9885,-72.5667 179.9885,-72.9000 179.9885,-73.2333 179.9885,-73.5667 179.9885,-73.9000 179.9885,-74.2333 179.9885,-74.5667 179.9885,-74.9000 179.9885,-75.2333 179.9885,-75.5667 179.9885,-75.9000 179.9885,-76.2333 179.9885,-76.5667 179.9885,-76.9000 179.9885,-77.2333 179.9885,-77.5667 179.9885,-77.9000 179.9885,-78.2333 179.9885,-78.5667 179.9885,-78.9000 179.9885,-79.2333 179.9885,-79.5667 179.9885,-79.9000 179.9885,-80.2333 179.9885,-80.5667 179.9885,-80.9000 179.9885,-81.2333 179.9885,-81.5667 179.9885,-81.9000 179.9885,-82.2333 179.9885,-82.5667 179.9885,-82.9000 179.9885,-83.2333 179.9885,-83.5667 179.9885,-83.9000 179.9885,-84.3265 179.9885,-84.7529 2326,5.0,Asia/Karachi 74.6922,37.0359 74.7192,37.0164 74.7926,37.0152 74.8243,36.9941 74.8245,36.9941 74.8532,36.9590 74.8609,36.9469 74.8668,36.9166 74.8724,36.9071 74.8732,36.9074 74.8733,36.9071 74.8867,36.9114 74.8929,36.9210 74.9017,36.9499 74.9114,36.9626 74.9259,36.9709 74.9433,36.9770 74.9778,36.9843 75.0154,36.9845 75.1005,36.9941 75.1185,36.9912 75.1328,36.9847 75.1612,36.9642 75.1951,36.9489 75.3135,36.9288 75.3513,36.9158 75.3780,36.8943 75.3945,36.8643 75.4014,36.8259 75.4034,36.7848 75.4105,36.7473 75.4319,36.7229 75.4926,36.7207 75.4926,36.7207 75.4935,36.7207 75.4998,36.7276 75.5028,36.7380 75.5089,36.7476 75.5711,36.7666 75.6498,36.7540 75.7287,36.7232 75.7905,36.6878 75.8498,36.6447 75.8748,36.6195 75.9766,36.4626 75.9874,36.4212 75.9686,36.3418 75.9688,36.3020 75.9766,36.2870 76.0017,36.2615 76.0119,36.2481 76.0144,36.2304 76.0016,36.2221 75.9834,36.2154 75.9701,36.2023 75.9691,36.1917 75.9774,36.1738 75.9766,36.1628 75.9715,36.1550 75.9642,36.1498 75.9146,36.1239 75.9014,36.1136 75.8943,36.0974 75.9000,36.0635 75.9223,36.0317 75.9530,36.0073 75.9843,35.9956 76.0614,35.9916 76.0900,35.9781 76.1147,35.9418 76.1238,35.9035 76.1278,35.8621 76.1381,35.8267 76.1660,35.8062 76.1898,35.8050 76.1900,35.8050 76.1908,35.8050 76.2381,35.8155 76.2607,35.8178 76.2805,35.8142 76.2966,35.8095 76.2975,35.8095 76.2975,35.8095 76.3129,35.8096 76.3498,35.8310 76.3664,35.8309 76.3841,35.8282 76.3846,35.8283 76.3851,35.8282 76.4041,35.8310 76.4113,35.8368 76.4234,35.8543 76.4330,35.8605 76.4439,35.8633 76.4549,35.8648 76.4775,35.8653 76.5011,35.8715 76.5379,35.9023 76.5555,35.8979 76.5653,35.8655 76.5511,35.7840 76.5708,35.7513 76.6042,35.7357 76.6090,35.7343 76.6767,35.7138 76.7090,35.6940 76.7329,35.6666 76.7454,35.6550 76.7634,35.6471 76.7774,35.6461 76.7776,35.6461 76.7828,35.6457 76.8246,35.6478 76.8430,35.6413 76.8569,35.6286 76.8805,35.6007 76.8964,35.5896 76.9150,35.5832 76.9358,35.5796 76.9764,35.5787 77.0176,35.5846 77.0390,35.5850 77.0582,35.5801 77.0711,35.5710 77.0923,35.5478 77.1053,35.5380 77.1413,35.5254 77.1775,35.5232 77.2508,35.5307 77.2811,35.5280 77.3054,35.5178 77.3520,35.4861 77.3837,35.4720 77.4128,35.4694 77.4764,35.4772 77.5122,35.4785 77.6606,35.4581 77.6897,35.4627 77.6902,35.4630 77.6905,35.4630 77.7177,35.4754 77.7484,35.4943 77.7613,35.4981 77.7739,35.4989 77.8003,35.4954 77.8153,35.4733 77.8004,35.4953 77.4247,35.3029 77.0490,35.1104 77.0426,35.1072 77.0231,35.0863 77.0271,35.0621 77.0318,35.0462 77.0352,35.0345 77.0286,35.0034 77.0131,34.9864 76.9530,34.9466 76.9338,34.9289 76.9211,34.9207 76.9059,34.9231 76.8796,34.9371 76.8526,34.9433 76.8170,34.9408 76.7820,34.9309 76.7576,34.9151 76.7496,34.8921 76.7533,34.8383 76.7439,34.8193 76.6526,34.7470 76.6396,34.7411 76.5532,34.7258 76.5358,34.7262 76.5199,34.7311 76.4765,34.7578 76.4382,34.7629 76.3999,34.7507 76.2620,34.6847 76.1550,34.6617 76.1218,34.6609 76.0583,34.6834 76.0234,34.6772 76.0075,34.6651 75.9867,34.6360 75.9734,34.6223 75.9662,34.6191 75.9393,34.6120 75.8740,34.5714 75.8162,34.5217 75.7958,34.5079 75.7771,34.5038 75.7348,34.5086 75.7137,34.5085 75.6556,34.4970 75.6116,34.4984 75.3481,34.5572 75.3070,34.5740 75.2675,34.5983 75.2514,34.6131 75.2369,34.6319 75.2129,34.6450 75.1763,34.6454 75.1110,34.6336 75.0178,34.6297 74.6649,34.6883 74.4121,34.7645 74.3489,34.7734 74.2858,34.7689 74.2218,34.7478 74.1468,34.7019 74.1209,34.6909 73.9622,34.6682 73.9486,34.6627 73.9193,34.6425 73.9175,34.6193 73.9254,34.5934 73.9260,34.5650 73.9110,34.5450 73.8631,34.5171 73.8470,34.4943 73.8470,34.4942 73.8455,34.4565 73.8404,34.4444 73.8316,34.4364 73.8068,34.4252 73.7962,34.4185 73.7798,34.3961 73.7749,34.3710 73.7827,34.3468 73.8042,34.3275 73.8291,34.3153 73.8533,34.3074 73.8790,34.3043 73.9075,34.3068 73.9377,34.3042 73.9544,34.2872 73.9767,34.2375 73.9906,34.2185 73.9983,34.1968 73.9954,34.1764 73.9767,34.1616 73.9169,34.1353 73.8933,34.1147 73.8844,34.0842 73.8937,34.0543 73.9162,34.0279 73.9458,34.0098 73.9767,34.0046 74.0450,34.0194 74.0653,34.0183 74.1184,34.0025 74.1543,34.0041 74.1921,34.0119 74.2284,34.0129 74.2597,33.9944 74.2723,33.9621 74.2625,33.9299 74.2395,33.9010 74.2126,33.8784 74.1775,33.8575 74.1423,33.8442 74.0346,33.8286 74.0113,33.8105 73.9767,33.7589 73.9707,33.7471 73.9662,33.7345 73.9631,33.7216 73.9608,33.6923 73.9631,33.6768 73.9683,33.6621 73.9767,33.6484 74.0242,33.6143 74.0881,33.5853 74.1416,33.5494 74.1578,33.4942 74.1363,33.4180 74.1055,33.3452 74.0960,33.3285 74.0851,33.3143 74.0720,33.3023 74.0554,33.2920 74.0178,33.2795 74.0017,33.2702 73.9918,33.2526 73.9885,33.2086 74.0023,33.1777 74.0294,33.1542 74.0658,33.1326 74.0985,33.1048 74.1539,33.0402 74.1909,33.0221 74.2840,33.0088 74.3113,32.9943 74.3220,32.9720 74.3245,32.9214 74.3367,32.8701 74.3338,32.8493 74.3229,32.8305 74.3065,32.8099 74.3163,32.7911 74.3293,32.7764 74.3462,32.7669 74.3677,32.7635 74.3864,32.7678 74.4190,32.7846 74.4387,32.7860 74.4553,32.7786 74.4845,32.7535 74.5009,32.7460 74.5210,32.7453 74.5738,32.7525 74.5934,32.7579 74.6141,32.7704 74.6220,32.7854 74.6263,32.8027 74.6359,32.8221 74.6536,32.8374 74.6718,32.8406 74.6853,32.8312 74.6891,32.8088 74.6823,32.7873 74.6570,32.7453 74.6497,32.7231 74.6502,32.7012 74.6573,32.6606 74.6560,32.6407 74.6480,32.6236 74.6369,32.6063 74.6296,32.5881 74.6326,32.5682 74.6626,32.4984 74.6893,32.4714 74.7250,32.4608 74.7635,32.4627 74.7994,32.4727 74.8381,32.4749 74.9070,32.4452 74.9484,32.4488 74.9907,32.4634 75.0237,32.4663 75.0549,32.4555 75.0922,32.4293 75.1260,32.4117 75.1962,32.3973 75.2302,32.3802 75.3269,32.3125 75.3530,32.2844 75.3590,32.2617 75.3486,32.2420 75.3166,32.2107 75.3084,32.1939 75.2981,32.1598 75.2947,32.1489 75.2633,32.1509 75.2499,32.1489 75.2264,32.1421 75.1958,32.1286 75.1731,32.1097 75.1742,32.0868 75.1613,32.0880 75.1384,32.0935 75.1298,32.0902 75.1190,32.0810 75.1103,32.0776 75.1021,32.0781 75.0408,32.0980 75.0226,32.0947 75.0302,32.0664 75.0202,32.0658 74.9956,32.0674 74.9862,32.0632 74.9785,32.0534 74.9741,32.0450 74.9679,32.0379 74.9557,32.0322 74.9314,32.0298 74.9088,32.0319 74.8891,32.0289 74.8732,32.0117 74.8286,32.0254 74.8113,32.0037 74.8025,31.9689 74.7837,31.9429 74.7630,31.9390 74.6984,31.9502 74.6700,31.9042 74.6572,31.8957 74.6411,31.8906 74.5656,31.8405 74.5504,31.8270 74.5408,31.8109 74.5374,31.7889 74.5370,31.7757 74.5351,31.7711 74.5308,31.7678 74.5230,31.7585 74.5212,31.7538 74.5183,31.7418 74.5162,31.7374 74.5133,31.7351 74.5055,31.7320 74.5033,31.7306 74.4926,31.7146 74.4894,31.7112 74.4995,31.6999 74.5556,31.6122 74.5845,31.5175 74.6146,31.4778 74.6172,31.4589 74.6119,31.4402 74.6000,31.4241 74.5837,31.4066 74.5716,31.3892 74.5322,31.3032 74.5253,31.2802 74.5251,31.2354 74.5091,31.1957 74.5064,31.1754 74.5096,31.1561 74.5149,31.1418 74.5235,31.1293 74.5368,31.1152 74.5531,31.1090 74.5969,31.1158 74.6170,31.1153 74.6320,31.1075 74.6503,31.0931 74.6588,31.0838 74.6010,31.0566 74.5795,31.0427 74.5643,31.0250 74.5641,31.0044 74.5488,30.9922 74.5348,30.9762 74.5193,30.9625 74.4995,30.9565 74.4772,30.9561 74.4585,30.9534 74.4416,30.9462 74.4243,30.9323 74.4134,30.9151 74.4091,30.9010 74.4013,30.8931 74.3797,30.8945 74.3536,30.9011 74.3425,30.9019 74.3298,30.8996 74.3192,30.8934 74.3107,30.8845 74.3040,30.8740 74.3114,30.8559 74.3002,30.8382 74.2799,30.8247 74.2602,30.8194 74.2567,30.8153 74.2658,30.7954 74.2667,30.7884 74.2592,30.7810 74.2441,30.7712 74.2357,30.7641 74.2151,30.7375 74.1988,30.7250 74.1912,30.7170 74.1846,30.6968 74.1701,30.6872 74.1668,30.6791 74.1637,30.6649 74.1557,30.6596 74.1327,30.6555 74.1115,30.6462 74.0959,30.6371 74.0822,30.6259 74.0674,30.6105 74.0571,30.5916 74.0582,30.5745 74.0615,30.5556 74.0575,30.5314 74.0441,30.5187 74.0044,30.5089 73.9960,30.5010 73.9898,30.4878 73.9391,30.4261 73.9293,30.4191 73.9167,30.4172 73.8999,30.4221 73.9021,30.4156 73.9043,30.4015 73.9061,30.3948 73.8876,30.3965 73.8677,30.3874 73.8518,30.3727 73.8452,30.3570 73.8423,30.3530 73.8916,30.3298 73.9119,30.3038 73.9346,30.2610 73.9489,30.2173 73.9444,30.1883 73.7783,30.0673 73.7397,30.0485 73.5578,30.0125 73.3852,29.9423 73.3703,29.9273 73.3274,29.8052 73.2848,29.6837 73.2329,29.5366 73.1780,29.4434 73.1289,29.3603 73.0509,29.2282 72.9887,29.1546 72.9629,29.1168 72.9304,29.0477 72.9182,29.0329 72.9015,29.0226 72.7725,28.9633 72.6585,28.9110 72.5256,28.8499 72.3822,28.7840 72.3546,28.7672 72.2803,28.6872 72.2565,28.6456 72.1978,28.4449 72.1776,28.3971 72.1499,28.3538 72.1110,28.3176 71.9882,28.2281 71.9083,28.1356 71.8969,28.1155 71.8916,28.0971 71.8800,27.9749 71.8744,27.9597 71.8609,27.9502 71.7014,27.9068 71.5607,27.8685 71.4771,27.8624 71.3978,27.8684 71.3114,27.8617 71.2263,27.8454 71.1507,27.8224 71.0276,27.7680 70.9138,27.7178 70.8316,27.7015 70.7618,27.7098 70.7104,27.7412 70.6717,27.7911 70.6407,27.8548 70.6376,27.8742 70.6416,27.9113 70.6332,27.9316 70.6212,27.9441 70.5929,27.9645 70.5598,27.9984 70.5349,28.0160 70.5068,28.0290 70.4772,28.0373 70.4562,28.0398 70.4369,28.0353 70.3983,28.0216 70.3595,28.0163 70.3419,28.0115 70.3239,28.0004 70.2677,27.9453 70.1990,27.9010 70.1020,27.8117 70.0907,27.7936 70.0169,27.6006 69.9935,27.5711 69.9081,27.4973 69.8480,27.4104 69.7306,27.3103 69.6661,27.2700 69.5756,27.1884 69.5344,27.1256 69.5076,27.0501 69.4860,26.9268 69.4651,26.8078 69.4728,26.7666 69.5042,26.7352 69.6594,26.6777 69.7002,26.6530 69.7723,26.5951 69.8156,26.5803 70.0561,26.5891 70.0937,26.5804 70.1296,26.5625 70.1581,26.5301 70.1629,26.4933 70.1570,26.4109 70.1605,26.3713 70.1571,26.3540 70.1479,26.3332 70.1425,26.3137 70.1440,26.2943 70.1516,26.2541 70.1469,26.2174 70.1320,26.1805 70.0783,26.0996 70.0739,26.0831 70.0729,26.0475 70.0643,25.9955 70.0646,25.9803 70.0832,25.9299 70.1150,25.8817 70.1542,25.8394 70.1956,25.8070 70.2140,25.7863 70.2345,25.7310 70.2492,25.7077 70.2646,25.6973 70.3037,25.6846 70.3601,25.6735 70.4772,25.6763 70.5167,25.6839 70.5544,25.6988 70.5923,25.7088 70.6323,25.7014 70.6539,25.6745 70.6575,25.6336 70.6528,25.5459 70.6466,25.4314 70.6545,25.3966 70.6704,25.3756 70.7105,25.3359 70.7186,25.3108 70.7231,25.2873 70.7349,25.2673 70.7684,25.2331 70.8314,25.1833 70.8486,25.1633 70.8599,25.1394 70.8933,25.0019 70.9152,24.9466 70.9430,24.8941 71.0032,24.8082 71.0369,24.7207 71.0639,24.6826 71.0433,24.6691 70.9771,24.6397 70.9628,24.6158 70.9548,24.5845 70.9578,24.5560 70.9771,24.5404 70.9809,24.5347 70.9819,24.5285 70.9805,24.5219 70.9771,24.5151 70.9748,24.4950 70.9732,24.4872 70.9731,24.4796 70.9744,24.4722 70.9771,24.4649 71.0001,24.4529 71.0401,24.4468 71.0750,24.4364 71.0828,24.4115 71.0731,24.4021 71.0251,24.3863 71.0144,24.3752 71.0071,24.3640 70.9967,24.3566 70.9771,24.3572 70.9553,24.3659 70.9363,24.3672 70.9177,24.3617 70.8565,24.3238 70.8409,24.3058 70.8445,24.2883 70.8576,24.2717 70.8515,24.2649 70.8341,24.2613 70.8136,24.2545 70.7760,24.2367 70.7555,24.2314 70.6215,24.2412 70.5847,24.2579 70.5677,24.2728 70.5602,24.2873 70.5554,24.3270 70.5456,24.3622 70.5465,24.3731 70.5520,24.3794 70.5692,24.3899 70.5752,24.4000 70.5629,24.4241 70.5209,24.4249 70.4164,24.4019 70.3708,24.3724 70.3532,24.3663 70.2985,24.3634 70.2791,24.3551 70.2426,24.3306 70.2228,24.3267 70.2022,24.3256 70.1446,24.3079 70.1097,24.3049 70.0979,24.2988 70.0872,24.2825 70.0630,24.2203 70.0521,24.2021 70.0160,24.1741 69.9720,24.1652 69.7691,24.1626 69.7146,24.1686 69.6706,24.1887 69.5923,24.2646 69.5631,24.2768 69.2808,24.2837 69.2062,24.2586 69.1667,24.2532 69.1482,24.2567 69.0919,24.2819 69.0677,24.2884 69.0485,24.2852 69.0078,24.2646 68.9808,24.2554 68.9626,24.2572 68.9487,24.2703 68.9294,24.3024 68.9220,24.3105 68.9132,24.3173 68.9042,24.3206 68.8903,24.3195 68.8851,24.3136 68.8833,24.3054 68.8801,24.2974 68.8489,24.2440 68.8388,24.2365 68.8197,24.2503 68.8138,24.3084 68.7992,24.3291 68.7473,24.3312 68.7259,24.2892 68.7256,24.2089 68.7251,24.1041 68.7245,23.9652 68.6464,23.9657 68.5478,23.9663 68.4316,23.9671 68.3855,23.9604 68.3536,23.9393 68.3538,23.9472 68.3524,23.9565 68.3489,23.9646 68.3426,23.9686 68.3304,23.9666 68.3299,23.9582 68.3337,23.9480 68.3350,23.9410 68.3260,23.9278 68.3141,23.9159 68.3004,23.9105 68.2862,23.9164 68.2800,23.9257 68.2777,23.9335 68.2740,23.9377 68.2639,23.9359 68.2549,23.9291 68.2527,23.9201 68.2531,23.9112 68.2519,23.9048 68.2537,23.9028 68.2579,23.8995 68.2604,23.8955 68.2568,23.8919 68.2529,23.8917 68.2430,23.8934 68.2399,23.8931 68.2329,23.8891 68.2150,23.8817 68.2073,23.8770 68.1916,23.8548 68.1833,23.8403 68.1728,23.8154 68.1637,23.7939 68.1576,23.7774 68.1548,23.7537 68.1699,23.7036 68.1664,23.6835 68.1470,23.6619 68.1127,23.6434 68.0609,23.5941 67.9620,23.4999 68.0255,23.4280 68.2176,23.3588 68.3111,23.2468 68.3973,23.1080 68.5317,22.9849 68.6918,22.8768 68.9260,22.7675 69.0095,22.7119 69.0135,22.6825 68.8699,22.6116 68.8253,22.5739 68.7446,22.4387 68.7216,22.3505 68.7208,22.2740 68.7389,22.2042 68.7867,22.1160 68.8940,21.9754 69.1054,21.7681 69.2607,21.6513 69.4150,21.4985 69.5603,21.3896 69.7286,21.1888 69.9192,20.9924 70.2401,20.7403 70.4705,20.6220 70.7009,20.5036 70.8452,20.4845 71.0305,20.5095 71.1954,20.5615 71.5984,20.7262 71.7509,20.8066 71.8680,20.8454 71.9990,20.9133 72.1477,20.9695 72.2637,21.0658 72.3539,21.2411 72.3718,21.2511 72.4122,21.0125 72.4860,20.9244 72.6097,20.8605 72.6205,20.7747 72.6635,20.6867 72.6571,20.5795 72.5588,20.4013 72.5146,20.2011 72.4468,19.9993 72.4271,19.8976 72.4269,19.8059 72.4823,19.5531 72.5376,19.3003 72.5668,19.0785 72.5505,18.9142 72.5722,18.8488 72.6309,18.7656 72.6324,18.6755 72.6760,18.5294 72.6720,18.3993 72.7117,18.1674 72.7974,17.9229 72.8831,17.6784 72.9689,17.2658 73.0263,17.1029 73.0639,16.7670 73.1015,16.4311 73.1870,16.1858 73.2724,15.9405 73.4156,15.7419 73.4548,15.6355 73.5155,15.5354 73.5873,15.3116 73.6958,15.1781 73.7012,15.0362 73.7170,14.9836 73.8213,14.8644 73.9172,14.6719 74.0517,14.5472 74.1104,14.4224 74.1873,14.3092 74.2241,14.1706 74.3101,13.9421 74.4298,13.6850 74.4845,13.3534 74.5502,13.0662 74.6159,12.7790 74.7365,12.5025 74.8572,12.2261 74.9447,12.0726 75.0077,11.9150 75.3193,11.6005 75.4232,11.3774 75.5315,11.2476 75.5816,11.1439 75.6475,10.9631 75.7271,10.6631 75.8410,10.4014 75.9549,10.1396 76.0731,9.7434 76.1013,9.4595 76.1512,9.2752 76.2557,9.0441 76.3601,8.8130 76.5610,8.5656 76.7618,8.3182 76.9228,8.1596 77.2202,7.9388 77.3884,7.8791 77.5288,7.8577 77.6138,7.8740 77.9793,8.0672 78.1147,8.1542 78.2084,8.2378 78.2743,8.3251 78.3125,8.4066 78.4264,8.7899 78.4207,8.8365 78.5117,8.9012 78.6952,8.9439 78.9248,9.0363 79.1000,9.0545 79.2151,9.0362 79.3597,8.9547 79.5235,8.9324 79.6950,8.8574 79.7134,8.8300 79.7258,8.6979 79.6878,8.6360 79.6471,8.5144 79.5196,8.3257 79.4896,8.2379 79.4794,8.1525 79.4929,8.0323 79.5700,7.7361 79.6118,7.2758 79.6034,7.1512 79.6543,6.7942 79.7462,6.4837 79.8380,6.1731 79.9061,6.0379 80.0036,5.9206 80.1039,5.8373 80.2285,5.7763 80.3703,5.7359 80.5712,5.7178 80.7275,5.7442 81.0255,5.8781 81.4013,6.0066 81.6275,6.1495 81.8275,6.3132 81.9444,6.4680 82.0884,6.9184 82.1049,7.0482 82.0856,7.3928 82.0247,7.6157 81.9619,7.7595 81.8139,7.9622 81.6497,8.2473 81.5785,8.5052 81.5406,8.5935 81.4120,8.7462 81.2768,8.9577 81.1274,9.1517 80.9391,9.4614 80.8626,9.5373 80.5898,9.7416 80.3919,9.9744 80.3189,10.0205 80.2353,10.0402 80.1537,10.0398 80.0318,10.1933 80.0715,10.2712 80.0668,10.5524 80.0621,10.8335 80.0729,11.1455 80.0420,11.3887 79.9764,11.6032 80.0085,11.7473 80.0635,11.8910 80.3130,12.3056 80.3990,12.5084 80.4392,12.6440 80.5005,12.9727 80.5618,13.3013 80.5486,13.4548 80.4589,13.6846 80.4609,13.8509 80.3638,14.1016 80.3629,14.1833 80.3964,14.3777 80.3949,14.6197 80.3729,14.7201 80.3033,14.8522 80.2805,15.0299 80.3138,15.2380 80.3863,15.3711 80.4532,15.5511 80.5071,15.6058 80.5862,15.6457 80.6902,15.5368 80.7583,15.5114 80.8887,15.5139 81.0568,15.5595 81.1585,15.6335 81.3186,15.8523 81.4018,16.0632 81.4555,16.1263 81.5146,16.1386 81.6760,16.1024 81.7765,16.1098 82.1078,16.2272 82.3064,16.3334 82.4730,16.4817 82.5056,16.5285 82.5056,16.0756 82.5056,15.6227 82.5056,15.1699 82.5056,14.7170 82.5056,14.2641 82.5057,13.8112 82.5057,13.3566 82.5057,12.9021 82.5057,12.4475 82.5057,11.9930 82.5057,11.5384 82.5057,11.0839 82.5058,10.6294 82.5058,10.1748 82.5058,9.7203 82.5058,9.2657 82.5058,8.8112 82.5058,8.3566 82.5058,7.9021 82.5058,7.4475 82.5059,6.9930 82.5059,6.5384 82.5059,6.0839 82.5059,5.6294 82.5059,5.1748 82.5059,4.7203 82.5059,4.2657 82.5060,3.8112 82.5060,3.3566 82.5060,2.9021 82.5060,2.4475 82.5060,1.9930 82.5060,1.5384 82.5060,1.0839 82.5060,0.6294 82.5061,0.1748 82.5061,-0.2797 82.5061,-0.7343 82.5061,-1.1888 82.5061,-1.6434 82.5061,-2.0979 82.5061,-2.5525 82.5062,-3.0070 82.5062,-3.4616 82.5062,-3.9161 82.5062,-4.3706 82.5062,-4.8252 82.5062,-5.2797 82.5062,-5.7343 82.5062,-6.1888 82.5063,-6.6434 82.5063,-7.0979 82.5063,-7.5525 82.5063,-8.0070 82.5063,-8.4616 82.5063,-8.9161 82.5063,-9.3706 82.5064,-9.8252 82.5064,-10.2797 82.5064,-10.7343 82.5064,-11.1888 82.5064,-11.6434 82.5064,-12.0979 82.5064,-12.5525 82.5065,-13.0070 82.5065,-13.4616 82.5065,-13.9161 82.5065,-14.3706 82.5065,-14.8252 82.5065,-15.2797 82.5065,-15.7343 82.5065,-16.1888 82.5066,-16.6222 82.5066,-17.0555 82.5066,-17.4888 82.5066,-17.9434 82.5066,-18.3979 82.5066,-18.8525 82.5066,-19.3070 82.5066,-19.7616 82.5067,-20.2161 82.5067,-20.6706 82.5067,-21.1252 82.5067,-21.5797 82.5067,-22.0343 82.5067,-22.4888 82.5067,-22.9434 82.5067,-23.3979 82.5067,-23.8525 82.5068,-24.3070 82.5068,-24.7616 82.5068,-25.2161 82.5068,-25.6706 82.5068,-26.1252 82.5068,-26.5797 82.5068,-27.0343 82.5068,-27.4888 82.5069,-27.9434 82.5069,-28.3979 82.5069,-28.8525 82.5069,-29.3070 82.5069,-29.7616 82.5069,-30.2161 82.5069,-30.6706 82.5069,-31.1252 82.5069,-31.5797 82.5070,-32.0343 82.5070,-32.4888 82.5070,-32.8888 82.5070,-33.2888 82.5070,-33.6888 82.5070,-34.1434 82.5070,-34.5979 82.5070,-35.0525 82.5071,-35.5070 82.5071,-35.9616 82.5071,-36.4161 82.5071,-36.8706 82.5071,-37.3252 82.5071,-37.7797 82.5071,-38.2343 82.5071,-38.6888 82.5071,-39.1434 82.5072,-39.5979 82.5072,-40.0525 82.5072,-40.5070 82.5072,-40.9616 82.5072,-41.4161 82.5072,-41.8706 82.5072,-42.3252 82.5072,-42.7797 82.5073,-43.2343 82.5073,-43.6888 82.5073,-44.1434 82.5073,-44.5979 82.5073,-45.0525 82.5073,-45.5070 82.5073,-45.9616 82.5073,-46.4161 82.5074,-46.8706 82.5074,-47.3252 82.5074,-47.7797 82.5074,-48.2343 82.5074,-48.6888 82.5074,-49.1434 82.5074,-49.5979 82.5074,-50.0525 82.5074,-50.5070 82.5075,-50.9616 82.5075,-51.4161 82.5075,-51.8706 82.5075,-52.3252 82.5075,-52.7797 82.5075,-53.2343 82.5075,-53.6888 82.5075,-54.1434 82.5076,-54.5979 82.5076,-55.0525 82.5076,-55.5070 82.5076,-55.9616 82.5076,-56.4161 82.5076,-56.8706 82.5076,-57.3252 82.5076,-57.7797 82.5076,-58.2343 82.5077,-58.6888 82.5077,-59.1434 82.5077,-59.5979 82.5077,-60.0525 82.5077,-60.5070 82.5077,-60.9616 82.5077,-61.4161 82.5077,-61.8706 82.5078,-62.3252 82.5078,-62.7797 82.5078,-63.2343 82.5078,-63.6888 82.5078,-64.1563 82.5078,-64.6237 82.5078,-65.0912 82.5078,-65.5586 82.5079,-66.0261 82.5079,-66.4935 82.5079,-66.9610 82.5079,-67.4285 82.4480,-67.4307 82.3249,-67.4515 82.2035,-67.4897 82.0182,-67.4911 81.7133,-67.5288 81.3988,-67.5978 81.1738,-67.6328 80.9060,-67.6849 80.8114,-67.6966 80.5567,-67.7148 80.2484,-67.7690 79.9400,-67.8231 79.5184,-67.8754 79.2456,-67.9242 78.9729,-67.9729 78.8678,-67.9917 78.4523,-68.1145 78.3134,-68.1723 78.1414,-68.2658 78.0814,-68.3088 77.9624,-68.4597 77.9578,-68.5088 77.9838,-68.5637 77.9750,-68.5777 77.9299,-68.5944 77.7823,-68.6250 77.7074,-68.6511 77.5809,-68.7070 77.5067,-68.7542 77.4907,-68.7643 77.4336,-68.8320 77.4240,-68.9453 77.3846,-68.9868 77.3475,-68.9957 77.2385,-68.9991 77.0994,-69.0148 76.8675,-69.0313 76.7358,-69.0509 76.6359,-69.0802 76.3177,-69.2124 76.2623,-69.2227 76.0421,-69.2445 75.9414,-69.2610 75.4853,-69.3815 75.3869,-69.4179 75.3148,-69.4637 75.2637,-69.5222 75.2385,-69.5675 75.2079,-69.6225 75.0874,-69.6332 75.0578,-69.6388 75.0382,-69.6424 75.0217,-69.6455 74.9943,-69.6506 74.9452,-69.6598 74.9082,-69.6603 74.8837,-69.6606 74.8289,-69.6557 74.7135,-69.6456 74.6450,-69.6160 74.6195,-69.6050 74.5461,-69.5835 74.4341,-69.5613 74.3495,-69.5489 74.2077,-69.3648 73.8613,-69.1393 73.5148,-68.9138 73.0914,-68.7818 72.6679,-68.6499 72.2692,-68.6609 71.8705,-68.6719 71.4718,-68.6829 71.0731,-68.6939 70.6946,-68.5054 70.6966,-68.5010 70.6858,-68.4560 70.6468,-68.4151 70.2365,-68.1742 70.1324,-68.0787 70.1068,-68.0179 70.1775,-67.9004 70.1798,-67.8524 70.1270,-67.7192 70.0840,-67.6775 70.0189,-67.6397 69.8872,-67.5938 69.7077,-67.5589 69.5093,-67.5415 69.3058,-67.5406 69.1557,-67.5537 69.0181,-67.5802 68.8758,-67.6242 68.7421,-67.6818 68.4107,-67.6981 68.1735,-67.6619 67.8948,-67.6469 67.6160,-67.6319 67.5117,-67.6144 67.5117,-67.2509 67.5117,-66.8875 67.5117,-66.4329 67.5117,-65.9784 67.5117,-65.5239 67.5117,-65.0693 67.5117,-64.6148 67.5117,-64.1602 67.5117,-63.7057 67.5117,-63.2511 67.5117,-62.7966 67.5117,-62.3420 67.5117,-61.8875 67.5117,-61.4329 67.5117,-60.9784 67.5117,-60.5239 67.5117,-60.0693 67.5117,-59.6148 67.5117,-59.1602 67.5117,-58.7057 67.5117,-58.2511 67.5117,-57.7966 67.5117,-57.3420 67.5117,-56.8875 67.5117,-56.4329 67.5117,-55.9784 67.5117,-55.5239 67.5117,-55.0693 67.5117,-54.6148 67.5117,-54.1602 67.5117,-53.7057 67.5117,-53.2511 67.5117,-52.7966 67.5117,-52.3420 67.5117,-51.8875 67.5117,-51.4329 67.5117,-50.9784 67.5117,-50.5239 67.5117,-50.0693 67.5117,-49.6148 67.5117,-49.1602 67.5117,-48.7057 67.5117,-48.2511 67.5117,-47.7966 67.5117,-47.3420 67.5117,-46.8875 67.5117,-46.4329 67.5117,-45.9784 67.5117,-45.5239 67.5117,-45.0693 67.5117,-44.6148 67.5117,-44.1602 67.5117,-43.7057 67.5117,-43.2511 67.5117,-42.7966 67.5117,-42.3420 67.5117,-41.8875 67.5117,-41.4275 67.5117,-40.9675 67.5117,-40.5075 67.5117,-40.0475 67.5117,-39.5875 67.5117,-39.1329 67.5117,-38.6784 67.5117,-38.2239 67.5117,-37.7693 67.5117,-37.3148 67.5117,-36.8602 67.5117,-36.4057 67.5117,-35.9511 67.5117,-35.4966 67.5117,-35.0420 67.5117,-34.5875 67.5117,-34.1329 67.5117,-33.6784 67.5117,-33.2239 67.5117,-32.7693 67.5117,-32.3148 67.5117,-31.8602 67.5117,-31.4057 67.5117,-30.9511 67.5117,-30.4966 67.5117,-30.0420 67.5117,-29.5875 67.5117,-29.1329 67.5117,-28.6784 67.5117,-28.2239 67.5117,-27.7693 67.5117,-27.3148 67.5117,-26.8602 67.5117,-26.4057 67.5117,-25.9511 67.5117,-25.4966 67.5117,-25.0420 67.5117,-24.5875 67.5117,-24.1050 67.5117,-23.6225 67.5117,-23.1401 67.5117,-22.6576 67.5117,-22.1751 67.5117,-21.7205 67.5117,-21.2660 67.5117,-20.8115 67.5117,-20.3569 67.5117,-19.9024 67.5117,-19.4478 67.5117,-18.9933 67.5117,-18.5387 67.5117,-18.0842 67.5117,-17.6296 67.5117,-17.1751 67.5117,-16.7205 67.5117,-16.2660 67.5117,-15.8115 67.5117,-15.3569 67.5117,-14.9024 67.5117,-14.4478 67.5117,-13.9933 67.5117,-13.5387 67.5117,-13.0842 67.5117,-12.6296 67.5117,-12.1751 67.5117,-11.7205 67.5117,-11.2660 67.5117,-10.8115 67.5117,-10.3569 67.5117,-9.9024 67.5117,-9.4478 67.5117,-8.9933 67.5117,-8.5387 67.5117,-8.0842 67.5117,-7.6296 67.5117,-7.1751 67.5117,-6.7205 67.5117,-6.2660 67.5117,-5.8115 67.5117,-5.3569 67.5117,-4.9024 67.5117,-4.4478 67.5117,-3.9933 67.5117,-3.5387 67.5117,-3.0842 67.5117,-2.6296 67.5117,-2.1751 67.5117,-1.7205 67.5117,-1.2660 67.5117,-0.8115 67.5117,-0.3569 67.5117,0.0976 67.5117,0.5522 67.5117,1.0067 67.5117,1.4613 67.5117,1.9158 67.5117,2.3704 67.5117,2.8249 67.5117,3.2795 67.5117,3.7340 67.5117,4.1885 67.5117,4.6431 67.5117,5.0976 67.5117,5.5522 67.5117,6.0067 67.5117,6.4613 67.5117,6.9158 67.5117,7.3704 67.5117,7.8249 67.5117,8.3057 67.5117,8.7865 67.5117,9.2673 67.5117,9.7482 67.5117,10.2290 67.5117,10.7098 67.5117,11.1906 67.5117,11.6714 67.5117,12.1522 67.5117,12.5834 67.5117,13.0146 67.5117,13.4458 67.5117,13.8769 67.5117,14.3315 67.5117,14.7860 67.5117,15.2406 67.5117,15.6951 67.5117,16.1497 67.5117,16.6042 67.5117,17.0588 67.5117,17.5133 67.5117,17.9679 67.5117,18.4224 67.5117,18.8769 67.5118,19.3517 67.5120,19.8264 67.5121,20.3011 67.5123,20.7758 67.5124,21.2505 67.5126,21.7253 67.5127,22.2000 67.5129,22.6747 67.5130,23.1494 67.5131,23.6242 67.4379,23.6565 67.3192,23.7394 67.1308,24.0080 67.0845,24.1297 67.0339,24.3643 66.9282,24.5602 66.8817,24.6008 66.8235,24.6251 66.6301,24.6328 66.5589,24.6474 66.5046,24.6782 66.4570,24.7304 66.4320,24.7875 66.4262,24.8467 66.4707,25.0721 66.4693,25.1299 66.4369,25.1718 66.2979,25.2541 66.2170,25.2530 65.8941,25.2019 65.6666,25.1395 65.3623,25.1586 65.1908,25.0883 64.9451,25.0937 64.8860,25.0725 64.7345,24.9823 64.6450,24.9579 64.5350,24.9709 64.1824,25.1026 63.8961,25.1296 63.7823,25.1585 63.6599,25.0451 63.5462,25.0001 63.4642,24.9987 63.2040,25.0320 62.9941,25.0151 62.7736,25.0483 62.6738,25.0509 62.6165,25.0310 62.5131,24.9340 62.4297,24.9027 62.3111,24.8810 62.0770,24.9122 61.8897,24.8459 61.7580,24.8272 61.6688,24.8400 61.5674,24.8884 61.5914,25.0682 61.5899,25.2018 61.5899,25.2020 61.5899,25.2046 61.6200,25.2855 61.6260,25.3698 61.6331,25.4693 61.6391,25.5549 61.6432,25.6133 61.6466,25.6277 61.6525,25.6373 61.6672,25.6505 61.6735,25.6583 61.6764,25.6928 61.6653,25.7324 61.6603,25.7692 61.6814,25.7955 61.7026,25.8001 61.7219,25.7997 61.7393,25.8033 61.7444,25.8089 61.7545,25.8200 61.7601,25.8376 61.7706,25.9074 61.7832,25.9906 61.7927,26.0528 61.8007,26.1066 61.8099,26.1674 61.8184,26.1985 61.8329,26.2254 61.8571,26.2424 61.9777,26.2732 62.0137,26.2946 62.0323,26.3029 62.0528,26.3086 62.0942,26.3148 62.1033,26.3251 62.1069,26.3497 62.1238,26.3740 62.1615,26.3695 62.2059,26.3553 62.2434,26.3506 62.2651,26.3610 62.2642,26.3752 62.2545,26.3936 62.2490,26.4165 62.2561,26.4289 62.2875,26.4566 62.2979,26.4740 62.2970,26.4802 62.2931,26.4859 62.2901,26.4924 62.2920,26.5012 62.2983,26.5088 62.3070,26.5137 62.3265,26.5207 62.3347,26.5248 62.3476,26.5333 62.3559,26.5366 62.3653,26.5375 62.3864,26.5366 62.3967,26.5391 62.4025,26.5438 62.4106,26.5568 62.4185,26.5623 62.4280,26.5648 62.5953,26.5807 62.6158,26.5871 62.6241,26.5930 62.6320,26.6004 62.6406,26.6051 62.6513,26.6032 62.6625,26.5983 62.6710,26.5977 62.7019,26.6040 62.7106,26.6069 62.7180,26.6105 62.7247,26.6151 62.7351,26.6322 62.7427,26.6413 62.7536,26.6442 62.8217,26.6426 62.9000,26.6409 62.9904,26.6389 63.0294,26.6335 63.0689,26.6325 63.0980,26.6384 63.1076,26.6376 63.1162,26.6340 63.1235,26.6294 63.1313,26.6258 63.1413,26.6254 63.1638,26.6451 63.1743,26.6850 63.1823,26.8302 63.1896,26.8460 63.2060,26.8537 63.2467,26.8596 63.2616,26.8717 63.2649,26.8900 63.2565,26.9062 63.2440,26.9224 63.2350,26.9411 63.2299,27.0541 63.2314,27.0658 63.2356,27.0759 63.2462,27.0895 63.2500,27.0995 63.2609,27.1156 63.2806,27.1232 63.3024,27.1234 63.3196,27.1173 63.2856,27.1846 63.2713,27.2034 63.2606,27.2138 63.2515,27.2190 63.2268,27.2270 63.2154,27.2332 63.1896,27.2545 63.1771,27.2584 63.1670,27.2587 63.1123,27.2432 63.0994,27.2428 63.0827,27.2444 63.0562,27.2432 63.0038,27.2288 62.9778,27.2252 62.9196,27.2149 62.8924,27.2135 62.8608,27.2196 62.8374,27.2313 62.8293,27.2336 62.8223,27.2325 62.8085,27.2254 62.8006,27.2252 62.7856,27.2325 62.7424,27.2668 62.7582,27.2677 62.7681,27.2744 62.7741,27.2855 62.7788,27.2998 62.7806,27.3161 62.7757,27.3269 62.7560,27.3481 62.8086,27.4534 62.8147,27.4950 62.8093,27.5471 62.7997,27.6393 62.7947,27.6895 62.7864,27.7703 62.7803,27.8297 62.7542,27.9258 62.7357,27.9950 62.7517,28.1087 62.7664,28.2115 62.7615,28.2464 62.7393,28.2583 62.5756,28.2290 62.5554,28.2403 62.4923,28.3007 62.4777,28.3223 62.4712,28.3397 62.4643,28.3498 62.4538,28.3557 62.4372,28.3604 62.4210,28.3686 62.4107,28.3807 62.4022,28.3941 62.3905,28.4061 62.3628,28.4189 62.2307,28.4425 62.1475,28.4753 62.1156,28.4814 62.0491,28.4863 62.0188,28.4947 61.9711,28.5190 61.9113,28.5337 61.8928,28.5426 61.8612,28.5748 61.7977,28.6266 61.7562,28.6740 61.6530,28.7563 61.6240,28.7876 61.5953,28.8427 61.5665,28.8710 61.5613,28.8859 61.5590,28.9027 61.5532,28.9221 61.5109,29.0074 61.5021,29.0177 61.4910,29.0255 61.4780,29.0307 61.4703,29.0359 61.4680,29.0417 61.4708,29.0479 61.4780,29.0543 61.4872,29.0629 61.4906,29.0720 61.4878,29.0807 61.4780,29.0875 61.4609,29.0939 61.4532,29.1084 61.4480,29.1254 61.4377,29.1396 61.4269,29.1446 61.4177,29.1457 61.4086,29.1486 61.3979,29.1591 61.3928,29.1705 61.3901,29.1954 61.3870,29.2066 61.3742,29.2239 61.3423,29.2545 61.3328,29.2749 61.3328,29.2945 61.3447,29.3295 61.3466,29.3491 61.3374,29.3744 61.3198,29.3854 61.2987,29.3927 61.2792,29.4066 61.1969,29.4923 61.1187,29.5740 61.0433,29.6524 60.9780,29.7206 60.9251,29.7750 60.8444,29.8582 60.8760,29.8455 60.9474,29.8255 61.0306,29.8022 61.1140,29.7787 61.1972,29.7553 61.2804,29.7320 61.3637,29.7086 61.4469,29.6853 61.5302,29.6619 61.6134,29.6385 61.6966,29.6152 61.7799,29.5918 61.8632,29.5684 61.9465,29.5450 62.0296,29.5216 62.1130,29.4982 62.1963,29.4749 62.2794,29.4515 62.3745,29.4249 62.4775,29.4078 62.6313,29.4204 62.6804,29.4245 62.7294,29.4285 62.7784,29.4325 62.8275,29.4366 62.8765,29.4406 62.9255,29.4446 62.9745,29.4486 63.0236,29.4527 63.0726,29.4568 63.1216,29.4608 63.1707,29.4648 63.2197,29.4688 63.2687,29.4729 63.3178,29.4769 63.3668,29.4809 63.4160,29.4850 63.5686,29.4975 63.7879,29.4606 63.9720,29.4296 64.0861,29.3866 64.1134,29.3963 64.1498,29.4585 64.1726,29.4843 64.2077,29.5000 64.4777,29.5704 64.6839,29.5688 64.8203,29.5679 64.9866,29.5416 65.0364,29.5402 65.1814,29.5771 65.2395,29.5918 65.2976,29.6066 65.3558,29.6214 65.4137,29.6362 65.4717,29.6510 65.5297,29.6657 65.5878,29.6806 65.6458,29.6953 65.7040,29.7102 65.7621,29.7249 65.8201,29.7397 65.8782,29.7545 65.9361,29.7693 65.9943,29.7840 66.0524,29.7989 66.1105,29.8136 66.1956,29.8353 66.2752,29.8852 66.3018,29.9157 66.3224,29.9465 66.3284,29.9495 66.3368,29.9520 66.3405,29.9566 66.3324,29.9661 66.3016,29.9867 66.2604,30.0231 66.2252,30.0444 66.2193,30.0579 66.2217,30.0737 66.2363,30.1116 66.3009,30.2256 66.3053,30.2448 66.3030,30.3053 66.3218,30.4374 66.3194,30.4578 66.3138,30.4783 66.3061,30.4911 66.2819,30.5181 66.2649,30.5578 66.2680,30.6014 66.3663,30.9229 66.3754,30.9367 66.3923,30.9446 66.5275,30.9683 66.5500,30.9770 66.6440,31.0602 66.6631,31.0831 66.6970,31.1958 66.7213,31.2103 66.7595,31.2148 66.7853,31.2318 66.8086,31.2547 66.8385,31.2770 66.9059,31.3055 66.9433,31.3147 67.0021,31.3159 67.0168,31.3091 67.0239,31.2953 67.0260,31.2730 67.0234,31.2649 67.0179,31.2587 67.0139,31.2527 67.0153,31.2447 67.0229,31.2394 67.0353,31.2359 67.0582,31.2324 67.0785,31.2320 67.1169,31.2403 67.1368,31.2411 67.1567,31.2359 67.1932,31.2185 67.2138,31.2123 67.2303,31.2106 67.2822,31.2128 67.3462,31.2078 67.3646,31.2107 67.4339,31.2361 67.4933,31.2430 67.5302,31.2566 67.5837,31.2652 67.6022,31.2711 67.6659,31.3063 67.6789,31.3166 67.6928,31.3252 67.7090,31.3293 67.7494,31.3280 67.7647,31.3341 67.7751,31.3528 67.7704,31.3947 67.7343,31.4048 67.6511,31.3953 67.6314,31.4001 67.6115,31.4108 67.5970,31.4257 67.5911,31.4648 67.5781,31.4821 67.5634,31.4973 67.5561,31.5122 67.5690,31.5299 67.6005,31.5305 67.6655,31.5181 67.6963,31.5208 67.7267,31.5314 67.7812,31.5642 67.8427,31.6235 67.8707,31.6352 67.8843,31.6356 67.9147,31.6314 67.9552,31.6332 67.9661,31.6382 67.9773,31.6519 67.9941,31.6634 68.0466,31.6884 68.0523,31.6954 68.0556,31.7166 68.0605,31.7256 68.0935,31.7516 68.1045,31.7688 68.1257,31.8115 68.1386,31.8247 68.1591,31.8259 68.1848,31.8182 68.2068,31.8079 68.2323,31.7902 68.2426,31.7769 68.2550,31.7664 68.2769,31.7636 68.3165,31.7652 68.3561,31.7625 68.4610,31.7305 68.4980,31.7252 68.5152,31.7300 68.5368,31.7410 68.5498,31.7535 68.5406,31.7625 68.5213,31.7648 68.4614,31.7636 68.4396,31.7666 68.4222,31.7732 68.4187,31.7830 68.4382,31.7960 68.4815,31.8157 68.5051,31.8227 68.5275,31.8230 68.5611,31.8118 68.6195,31.7835 68.6758,31.7747 68.6883,31.7686 68.6949,31.7564 68.6979,31.7159 68.7054,31.7013 68.7312,31.6755 68.7773,31.6186 68.8038,31.6026 68.8435,31.6065 68.9070,31.6343 68.9410,31.6437 68.9773,31.6415 69.0040,31.6511 69.0401,31.6731 69.0716,31.6979 69.0848,31.7158 69.1001,31.7240 69.1143,31.7378 69.2238,31.8819 69.2509,31.9070 69.2988,31.9377 69.3048,31.9469 69.3022,31.9599 69.2706,32.0360 69.2510,32.1306 69.2519,32.1523 69.2595,32.1945 69.2600,32.2368 69.2670,32.2796 69.2681,32.3013 69.2644,32.3224 69.2385,32.3783 69.2280,32.4213 69.2329,32.4627 69.2516,32.5005 69.2820,32.5328 69.3021,32.5438 69.3435,32.5561 69.3612,32.5685 69.4139,32.6355 69.4260,32.6551 69.4291,32.6674 69.4191,32.7005 69.4172,32.7180 69.4147,32.7256 69.4077,32.7299 69.3992,32.7330 69.3904,32.7379 69.3832,32.7445 69.3781,32.7523 69.3763,32.7719 69.3872,32.7853 69.4211,32.8068 69.4456,32.8357 69.4714,32.8522 69.4773,32.8568 69.4872,32.8859 69.4685,32.9943 69.4877,33.0284 69.5142,33.0567 69.5475,33.0750 69.5878,33.0795 69.6083,33.0791 69.6407,33.0842 69.6502,33.0819 69.6588,33.0784 69.6678,33.0770 69.6860,33.0808 69.7330,33.1093 69.7718,33.1148 69.8387,33.0867 69.8809,33.0892 69.9558,33.1277 69.9657,33.1294 69.9947,33.1273 70.0069,33.1318 70.0145,33.1408 70.0480,33.1941 70.0598,33.1981 70.0837,33.1913 70.1054,33.1898 70.1248,33.1990 70.2944,33.3189 70.3016,33.3518 70.2857,33.3829 70.2330,33.4326 70.2278,33.4399 70.2204,33.4560 70.2134,33.4613 70.1855,33.4690 70.1776,33.4734 70.1638,33.4887 70.1550,33.5066 70.1514,33.5259 70.1530,33.5447 70.1735,33.6079 70.1741,33.6321 70.1702,33.6387 70.1625,33.6432 70.1460,33.6499 70.1369,33.6563 70.1325,33.6614 70.1266,33.6770 70.1181,33.7165 70.1082,33.7273 70.0656,33.7210 70.0118,33.7403 69.9727,33.7448 69.9575,33.7527 69.9472,33.7720 69.9401,33.7915 69.9313,33.8064 69.9075,33.8356 69.8988,33.8515 69.8854,33.8895 69.8765,33.9026 69.8472,33.9269 69.8411,33.9418 69.8542,33.9564 69.8720,33.9715 69.8739,33.9863 69.8704,34.0013 69.8726,34.0172 69.8893,34.0312 69.9160,34.0389 69.9691,34.0457 70.0028,34.0438 70.2188,33.9807 70.2756,33.9762 70.3099,33.9617 70.3282,33.9573 70.4090,33.9544 70.4915,33.9396 70.5220,33.9387 70.6562,33.9548 70.7913,33.9536 70.8622,33.9648 70.8800,33.9943 70.8843,34.0070 70.8943,34.0094 70.9212,34.0022 70.9397,34.0009 70.9540,34.0048 70.9657,34.0138 70.9771,34.0274 70.9977,34.0333 71.0467,34.0419 71.0626,34.0543 71.0673,34.0730 71.0639,34.0889 71.0628,34.1053 71.0739,34.1253 71.1018,34.1518 71.1081,34.1652 71.1095,34.1892 71.1065,34.2094 71.0969,34.2443 71.0971,34.2625 71.1264,34.3322 71.1220,34.3568 71.0509,34.3898 71.0198,34.4144 70.9915,34.4431 70.9708,34.4689 70.9612,34.4876 70.9556,34.5100 70.9570,34.5320 70.9687,34.5497 70.9858,34.5562 71.0070,34.5563 71.0475,34.5511 71.0658,34.5585 71.0766,34.5785 71.0799,34.6029 71.0763,34.6236 71.0688,34.6459 71.0702,34.6612 71.0806,34.6729 71.1509,34.7203 71.1895,34.7371 71.2031,34.7482 71.2556,34.8102 71.2708,34.8443 71.2895,34.8750 71.3249,34.8976 71.4600,34.9427 71.4696,34.9497 71.4767,34.9603 71.4854,34.9835 71.4933,34.9940 71.4933,34.9941 71.4934,34.9941 71.4934,34.9942 71.5043,35.0006 71.5113,35.0087 71.5130,35.0181 71.5075,35.0282 71.5089,35.0720 71.5350,35.0986 71.6041,35.1382 71.6293,35.1701 71.6379,35.1897 71.6337,35.2031 71.6032,35.2234 71.5478,35.2756 71.5298,35.3009 71.5316,35.3279 71.5623,35.3606 71.6111,35.3955 71.6209,35.4101 71.6224,35.4296 71.6140,35.4432 71.6007,35.4555 71.5878,35.4709 71.5817,35.4931 71.5860,35.5121 71.5929,35.5302 71.5935,35.5494 71.5842,35.5642 71.5679,35.5742 71.5128,35.5963 71.4927,35.6096 71.4833,35.6266 71.4959,35.6466 71.5140,35.6656 71.5198,35.6838 71.5154,35.7015 71.5027,35.7191 71.4961,35.7246 71.4814,35.7341 71.4756,35.7410 71.4711,35.7523 71.4710,35.7613 71.4721,35.7700 71.4709,35.7799 71.4644,35.7947 71.4310,35.8437 71.4167,35.8588 71.3713,35.8851 71.3607,35.9003 71.3564,35.9331 71.3416,35.9473 71.3125,35.9574 71.2843,35.9625 71.2574,35.9716 71.2319,35.9940 71.2179,36.0027 71.1819,36.0188 71.1709,36.0270 71.1659,36.0457 71.1754,36.0612 71.2076,36.0876 71.2126,36.0968 71.2177,36.1181 71.2231,36.1254 71.2623,36.1461 71.2927,36.1579 71.3021,36.1633 71.3090,36.1727 71.3140,36.1940 71.3191,36.2006 71.3824,36.2186 71.4028,36.2314 71.4791,36.3005 71.4958,36.3096 71.5146,36.3152 71.5389,36.3193 71.5584,36.3279 71.5527,36.3410 71.5422,36.3564 71.5472,36.3716 71.5723,36.3917 71.5804,36.4023 71.5887,36.4185 71.6007,36.4493 71.6104,36.4579 71.6291,36.4595 71.6493,36.4528 71.7069,36.4214 71.7363,36.3959 71.7510,36.3911 71.7669,36.3918 71.7826,36.3965 71.7944,36.4076 71.7915,36.4213 71.7746,36.4484 71.7732,36.4800 71.7938,36.4907 71.8586,36.4942 71.8747,36.4991 71.8876,36.5080 71.8997,36.5183 71.9135,36.5276 71.9609,36.5496 71.9770,36.5630 71.9978,36.5724 72.0388,36.5805 72.0550,36.5929 72.0563,36.6019 72.0522,36.6104 72.0504,36.6186 72.0591,36.6271 72.0709,36.6323 72.0961,36.6389 72.1542,36.6455 72.1716,36.6536 72.1646,36.6701 72.1496,36.6893 72.1535,36.7021 72.1697,36.7114 72.2136,36.7264 72.3020,36.7427 72.3462,36.7449 72.3873,36.7558 72.4331,36.7534 72.4541,36.7580 72.5167,36.8006 72.5652,36.8206 72.6296,36.8329 72.6959,36.8367 72.7794,36.8268 72.8677,36.8304 72.8969,36.8370 72.9211,36.8474 72.9459,36.8522 72.9768,36.8421 72.9905,36.8416 73.0023,36.8461 73.0263,36.8595 73.0425,36.8643 73.1918,36.8770 73.2235,36.8743 73.2527,36.8680 73.2675,36.8665 73.2819,36.8680 73.3318,36.8821 73.3797,36.8792 73.4459,36.8865 73.4769,36.8829 73.5093,36.8787 73.6401,36.8966 73.7729,36.8920 73.8341,36.8829 73.8651,36.8726 73.9469,36.8309 73.9767,36.8248 74.0064,36.8157 74.0353,36.8156 74.0943,36.8312 74.1039,36.8413 74.1088,36.8756 74.1153,36.8895 74.1297,36.8984 74.1460,36.9017 74.2117,36.8951 74.2357,36.9022 74.2846,36.9342 74.3681,36.9768 74.3940,36.9940 74.4356,37.0032 74.4570,37.0044 74.4766,36.9993 74.4803,36.9969 74.4836,36.9940 74.5017,36.9724 74.5214,36.9585 74.5374,36.9622 74.5442,36.9940 74.5481,37.0016 74.5493,37.0089 74.5474,37.0157 74.5424,37.0217 74.5428,37.0219 74.5433,37.0217 74.5627,37.0297 74.6270,37.0428 74.6631,37.0544 74.6780,37.0517 74.6922,37.0359 240,12.0,Pacific/Auckland -177.0115,-20.0229 -177.2249,-20.4498 -177.4384,-20.8768 -177.6519,-21.3038 -177.8653,-21.7308 -178.0788,-22.1578 -178.2923,-22.5847 -178.5057,-23.0117 -178.7192,-23.4387 -178.9327,-23.8657 -179.1461,-24.2926 -179.3596,-24.7196 -179.5730,-25.1466 -179.7865,-25.5736 -180.0000,-26.0006 -179.5018,-26.0006 -179.0037,-26.0006 -178.5056,-26.0006 -178.0074,-26.0006 -177.5093,-26.0006 -177.0111,-26.0006 -176.5130,-26.0006 -176.0149,-26.0006 -175.5167,-26.0006 -175.0186,-26.0006 -174.5204,-26.0006 -174.0223,-26.0006 -173.5242,-26.0006 -173.0260,-26.0006 -172.5000,-26.0002 -172.5000,-26.3736 -172.5000,-27.0001 -172.5000,-27.3891 -172.5000,-27.9999 -172.5000,-28.4253 -172.5000,-28.8191 -172.5000,-29.2363 -172.5000,-29.8347 -172.5000,-30.3528 -172.5000,-30.9375 -172.5000,-31.3165 -172.5000,-31.8750 -172.5000,-32.2906 -172.5000,-32.8125 -172.5000,-33.2854 -172.5000,-33.7232 -172.5000,-34.2180 -172.5000,-34.6876 -172.5000,-35.1921 -172.5000,-35.6249 -172.5000,-36.2076 -172.5000,-36.5625 -172.5000,-37.1817 -172.5000,-37.6895 -172.5000,-38.1662 -172.5000,-38.6221 -172.5000,-39.1403 -172.5000,-39.6791 -172.5000,-40.1143 -172.5000,-40.6325 -172.5000,-41.2500 -172.5000,-41.6273 -172.5000,-42.1875 -172.5000,-42.6014 -172.5000,-43.1251 -172.5000,-43.5754 -172.5000,-44.0624 -172.5000,-44.5472 -172.5000,-45.0000 -172.9687,-45.3753 -173.2828,-45.6269 -173.6804,-45.9452 -174.0221,-46.2187 -174.3750,-46.5013 -174.8438,-46.8766 -175.1757,-47.1424 -175.5247,-47.4219 -175.8980,-47.7209 -176.2500,-48.0026 -176.7187,-48.3780 -177.1874,-48.7533 -177.4940,-48.9988 -177.8804,-49.3082 -178.2370,-49.5936 -178.5937,-49.8792 -178.9239,-50.1437 -179.3010,-50.4456 -179.7322,-50.7908 -180.0000,-50.9902 -180.0000,-50.4903 -180.0000,-49.9904 -180.0000,-49.4905 -180.0000,-48.9906 -180.0000,-48.4907 -180.0000,-47.9908 -180.0000,-47.4909 -180.0000,-46.9910 -180.0000,-46.4911 -180.0000,-45.9912 -180.0000,-45.4913 -180.0000,-44.9914 -180.0000,-44.4915 -180.0000,-43.9916 -180.0000,-43.4918 -180.0000,-42.9919 -180.0000,-42.4920 -180.0000,-41.9921 -180.0000,-41.4922 -180.0000,-40.9923 -180.0000,-40.4924 -180.0000,-39.9925 -180.0000,-39.4926 -180.0000,-38.9927 -180.0000,-38.4928 -180.0000,-37.9929 -180.0000,-37.4930 -180.0000,-36.9931 -180.0000,-36.4932 -180.0000,-35.9934 -180.0000,-35.4935 -180.0000,-34.9936 -180.0000,-34.4937 -180.0000,-33.9938 -180.0000,-33.4939 -180.0000,-32.9940 -180.0000,-32.4941 -180.0000,-31.9942 -180.0000,-31.4943 -180.0000,-30.9944 -180.0000,-30.4945 -180.0000,-29.9946 -180.0000,-29.4947 -180.0000,-28.9948 -180.0000,-28.4950 -180.0000,-27.9951 -180.0000,-27.4952 -180.0000,-26.9953 -180.0000,-26.4954 -180.0000,-25.9955 -180.0000,-25.4956 -180.0000,-24.9957 -180.0000,-24.4958 -180.0000,-23.9959 -180.0000,-23.4960 -180.0000,-22.9961 -180.0000,-22.4962 -180.0000,-21.9963 -180.0000,-21.4964 -180.0000,-20.9966 -180.0000,-20.4967 -180.0000,-19.9968 -180.0000,-19.4969 -180.0000,-18.9970 -180.0000,-18.4971 -180.0000,-17.9972 -180.0000,-17.4973 -180.0000,-16.9974 -180.0000,-16.4975 -180.0000,-15.9976 -180.0000,-15.4977 -180.0000,-14.9978 -180.0000,-14.4979 -180.0000,-13.9980 -180.0000,-13.4982 -180.0000,-12.9983 -180.0000,-12.4984 -180.0000,-11.9985 -180.0000,-11.4986 -180.0000,-10.9987 -180.0000,-10.4988 -180.0000,-9.9989 -180.0000,-9.4990 -180.0000,-8.9991 -180.0000,-8.4992 -180.0000,-7.9993 -180.0000,-7.4994 -180.0000,-6.9995 -180.0000,-6.4996 -180.0000,-5.9998 -180.0000,-5.4999 -180.0000,-5.0000 -180.0000,-4.5001 -180.0000,-4.0002 -180.0000,-3.5003 -180.0000,-3.0004 -180.0000,-2.5094 -179.5198,-2.5094 -179.0177,-2.5094 -178.5421,-2.5094 -178.0530,-2.5094 -178.0514,-2.8902 -178.0514,-3.3625 -178.0514,-3.8348 -178.0514,-4.3072 -178.0514,-4.7795 -178.0514,-5.2518 -178.0514,-5.7242 -178.0514,-6.1965 -178.0514,-6.6688 -178.0514,-7.1412 -178.0514,-7.6135 -178.0514,-7.6160 -178.0514,-7.6667 -177.8014,-8.0000 -177.5514,-8.3333 -177.3014,-8.6667 -177.0514,-9.0000 -176.7580,-9.3861 -176.4646,-9.7722 -176.1712,-10.1583 -175.8777,-10.5443 -175.5843,-10.9304 -175.2909,-11.3165 -174.9975,-11.7026 -174.7041,-12.0887 -174.4107,-12.4748 -174.4117,-12.8957 -174.4127,-13.3165 -174.4138,-13.7374 -174.4148,-14.1583 -174.4158,-14.5791 -174.4169,-15.0000 -174.8474,-15.0000 -175.2779,-15.0000 -175.7084,-15.0000 -176.1390,-15.0000 -176.5695,-15.0000 -177.0000,-15.0000 -177.0115,-15.0000 -177.0115,-15.4957 -177.0115,-15.9914 -177.0115,-16.4393 -177.0115,-16.8873 -177.0115,-17.3352 -177.0115,-17.7832 -177.0115,-18.2311 -177.0115,-18.6790 -177.0115,-19.1270 -177.0115,-19.5749 -177.0115,-20.0229 ================================================ FILE: POST/hr2day/inputs/tz_legacy.csv ================================================ # This tz.csv file has an unknown source and has been used # for decades. 20,-2.0,Greenland -50.4764,69.3971 -50.4639,69.4027 -50.4282,69.4131 -50.4025,69.4208 -50.3918,69.4256 -50.3685,69.4387 -50.12,69.4393 -50.1046,69.4381 -50.0964,69.4321 -50.1068,69.4244 -50.1234,69.4166 -50.1787,69.3995 -50.193,69.402 -50.2115,69.4109 -50.2263,69.4134 -50.2965,69.4192 -50.3155,69.4198 -50.4072,69.3985 -50.4776,69.3966 -50.4764,69.3971 10056,-2.0,Greenland -67.8212,78.9501 -64.1358,76.2447 -64.0369,76.2245 -64.0187,76.2206 -63.991,76.2086 -64.0267,76.195 -64.0386,76.1883 -64.039,76.1423 -64.0098,76.0831 -63.9559,76.0479 -63.9404,76.0403 -63.8591,76.0283 -63.8328,76.027 -63.7906,76.0302 -63.621,76.0479 -63.6099,76.0492 -63.5461,76.0683 -63.3253,76.203 -63.3088,76.214 -63.3038,76.2253 -63.3078,76.248 -63.3162,76.258 -63.3005,76.2616 -63.2616,76.2651 -63.2063,76.2646 -63.1802,76.2627 -63.0108,76.2499 -62.967,76.2453 -62.8587,76.2287 -62.7062,76.1993 -62.6885,76.1938 -62.6619,76.1842 -62.6499,76.1761 -62.6434,76.1646 -62.6487,76.1562 -62.6784,76.1388 -62.6764,76.1289 -62.6142,76.0896 -62.6025,76.086 -62.5849,76.0877 -62.5668,76.0934 -62.5551,76.1032 -62.5691,76.1145 -62.5809,76.1189 -62.599,76.127 -62.5681,76.1471 -62.5536,76.1505 -62.4501,76.1547 -62.3838,76.1513 -62.3635,76.1481 -62.3171,76.1429 -62.2393,76.137 -62.1912,76.1365 -62.1893,76.1469 -62.1708,76.1611 -62.145,76.1689 -62.125,76.1726 -62.0845,76.1771 -62.0644,76.1785 -62.0439,76.1747 -61.9764,76.1511 -61.982,76.1424 -61.9977,76.1358 -62.0095,76.1303 -62.0175,76.1221 -62.0061,76.1144 -61.9948,76.1131 -61.9516,76.114 -61.903,76.1184 -61.8572,76.1241 -61.8307,76.1264 -61.802,76.1275 -61.7734,76.1272 -61.7476,76.1255 -61.7248,76.122 -61.5288,76.0817 -61.5191,76.0733 -61.5018,76.0706 -61.3731,76.0629 -61.253,76.0669 -61.2359,76.0695 -61.2127,76.0708 -61.1755,76.0701 -61.0986,76.0662 -60.7618,76.0486 -60.7366,76.0471 -60.7078,76.0448 -60.6741,76.0402 -60.6602,76.0352 -60.662,76.0002 -60.6828,75.9732 -60.6548,75.9206 -60.569,75.8863 -60.5519,75.8861 -60.5376,75.8897 -60.4347,75.9226 -60.3635,75.9547 -60.3419,75.9581 -60.315,75.9561 -60.2974,75.9492 -60.2858,75.939 -60.1,75.9257 -60.0688,75.9251 -59.9621,75.918 -59.9401,75.9149 -59.9214,75.9066 -59.9512,75.8918 -59.9666,75.8811 -59.9466,75.8671 -59.8374,75.822 -59.8237,75.8191 -59.8043,75.8165 -59.7473,75.8141 -59.6952,75.8322 -59.6412,75.8512 -59.624,75.8551 -59.5992,75.8585 -59.5668,75.8573 -59.5445,75.8542 -59.5257,75.8504 -59.427,75.8011 -59.4451,75.7949 -59.4877,75.7919 -59.5108,75.7896 -59.5254,75.7847 -59.5827,75.7607 -59.5921,75.7553 -59.5984,75.7513 -59.6493,75.7129 -59.6454,75.7014 -59.6193,75.6899 -59.5949,75.687 -59.5752,75.6869 -59.5612,75.6872 -59.4493,75.7036 -59.4375,75.7087 -59.4296,75.7221 -59.4159,75.7357 -59.4013,75.7404 -59.3803,75.7467 -59.3458,75.7529 -59.3028,75.7575 -59.1048,75.7661 -59.052,75.7656 -59.0299,75.7624 -59.0165,75.7589 -58.9868,75.7469 -58.9764,75.7363 -59.0091,75.7267 -59.0672,75.7013 -59.0627,75.669 -58.9121,75.6017 -58.899,75.598 -58.8549,75.5958 -58.6818,75.6008 -58.6538,75.6023 -58.6354,75.6112 -58.6236,75.6136 -58.5395,75.6275 -58.5145,75.6293 -58.409,75.6282 -58.3756,75.6273 -58.3566,75.6257 -58.2785,75.6161 -58.2626,75.6133 -58.2477,75.6056 -58.2585,75.5958 -58.2704,75.5934 -58.2846,75.5914 -58.3125,75.5909 -58.3647,75.5919 -58.3821,75.5898 -58.3999,75.5857 -58.4143,75.5814 -58.437,75.5654 -58.4186,75.5544 -58.3585,75.5394 -58.3395,75.5369 -58.32,75.5387 -58.2999,75.5421 -58.2746,75.5435 -58.1879,75.5471 -58.1719,75.5452 -58.1525,75.5395 -58.1654,75.5262 -58.1781,75.5209 -58.1931,75.5162 -58.2177,75.5058 -58.2276,75.4998 -58.251,75.483 -58.2649,75.471 -58.2711,75.4571 -58.2507,75.4506 -58.2285,75.4516 -58.2117,75.4541 -58.1841,75.4541 -58.1657,75.4515 -58.0327,75.424 -58.0128,75.4162 -58.0003,75.403 -58.052,75.3347 -58.1304,75.3228 -58.1423,75.3208 -58.2337,75.3146 -58.4097,75.2909 -58.4639,75.2813 -58.519,75.2595 -58.5373,75.2448 -58.5285,75.2371 -58.5103,75.2332 -58.4942,75.2328 -58.3828,75.2335 -58.364,75.2338 -58.343,75.2425 -58.3338,75.2472 -58.3066,75.2692 -58.2956,75.2801 -58.2703,75.2895 -58.2435,75.2929 -58.1971,75.2814 -58.1641,75.2824 -58.1412,75.282 -58.131,75.2782 -58.1445,75.2243 -58.1744,75.2124 -58.1912,75.2101 -58.1765,75.1603 -58.0766,75.1087 -57.8024,75.0807 -57.7758,75.0709 -57.7617,75.0578 -57.7713,75.048 -57.7832,75.0426 -57.7949,75.0388 -57.8239,75.0314 -57.9177,75.0096 -57.9946,74.9734 -57.9996,74.9565 -57.9851,74.9435 -57.962,74.9404 -57.9513,74.9399 -57.9406,74.9413 -57.9231,74.9451 -57.8819,74.9591 -57.773,74.9492 -57.7528,74.9461 -57.7371,74.9334 -57.7249,74.9248 -57.7042,74.9143 -57.6871,74.9107 -57.6633,74.9096 -57.6368,74.9095 -57.463,74.8976 -57.2515,74.8528 -57.1762,74.8316 -57.1777,74.8108 -57.1434,74.8017 -57.1252,74.8008 -57.1072,74.7998 -57.0589,74.8022 -57.0153,74.806 -56.9932,74.8091 -56.9309,74.8147 -56.8993,74.8152 -56.8767,74.8112 -56.8453,74.795 -56.763,74.7499 -56.7124,74.7047 -56.8186,74.6609 -56.8301,74.6572 -56.8568,74.6562 -56.908,74.6678 -56.9222,74.6723 -56.9363,74.6807 -56.9484,74.6918 -56.9728,74.6939 -56.9896,74.6903 -57.0379,74.6699 -56.9288,74.6023 -56.8667,74.5693 -56.8525,74.5661 -56.8286,74.5686 -56.8127,74.5794 -56.8001,74.5913 -56.7818,74.599 -56.7543,74.6039 -56.716,74.6046 -56.6979,74.6007 -56.4871,74.542 -56.451,74.4932 -56.4227,74.4813 -56.2885,74.453 -56.228,74.4407 -56.2094,74.4429 -56.1288,74.4517 -56.0766,74.4542 -56.0611,74.4536 -56.0474,74.4487 -56.1041,74.3789 -56.1797,74.37 -56.38,74.3468 -56.4503,74.344 -56.5368,74.3458 -56.5947,74.3481 -56.6482,74.3444 -56.6224,74.3358 -56.4421,74.3012 -56.4199,74.3001 -56.2889,74.3013 -56.2708,74.3018 -56.1696,74.3127 -56.1362,74.3139 -56.0674,74.3127 -56.0479,74.3108 -56.0174,74.3033 -55.9984,74.2924 -55.9855,74.2793 -55.9945,74.2682 -56.0084,74.2649 -56.2169,74.2534 -56.2621,74.2546 -56.329,74.2596 -56.503,74.2511 -56.5447,74.2477 -56.5666,74.2414 -56.4275,74.1865 -56.4086,74.1847 -56.3984,74.1852 -56.3747,74.1879 -56.3023,74.1993 -56.2859,74.2031 -56.2436,74.2073 -56.2107,74.2071 -56.1783,74.2051 -56.1558,74.1954 -56.1651,74.1861 -56.1896,74.1806 -56.2693,74.1703 -56.3955,74.1569 -56.4147,74.1535 -56.4426,74.1449 -56.4533,74.1362 -56.4393,74.1263 -56.5332,74.1026 -56.5493,74.0998 -56.5701,74.0975 -56.6287,74.0955 -56.679,74.0952 -56.7342,74.0964 -56.7598,74.0959 -56.7782,74.0937 -56.9087,74.0629 -57.0726,74.0454 -57.0976,74.0446 -57.1185,74.0424 -57.1376,74.0386 -57.1511,74.0349 -57.1603,74.0287 -57.1777,74.0039 -57.166,73.997 -57.1497,73.9969 -57.0204,74.0023 -56.9389,74.0086 -56.9009,74.0155 -56.7906,74.0313 -56.7698,74.0336 -56.668,74.0382 -56.6173,74.0394 -56.5298,74.0455 -56.4636,74.0552 -56.4288,74.061 -56.3993,74.0672 -56.1528,74.1219 -56.0707,74.1604 -56.0521,74.1712 -56.0283,74.1785 -56.0153,74.1784 -55.9853,74.1773 -55.9759,74.1687 -56.0221,74.093 -56.1434,74.0083 -56.1979,73.9821 -56.2227,73.9816 -56.2469,73.9776 -56.2665,73.9685 -56.2097,73.9451 -56.1015,73.9438 -56.0519,73.9424 -55.8892,73.9367 -55.8621,73.9351 -55.8312,73.931 -55.8182,73.9224 -55.8291,73.9105 -55.8431,73.9061 -55.8538,73.905 -55.8831,73.9123 -55.8964,73.9169 -55.9213,73.9177 -55.9363,73.9169 -55.9704,73.9121 -55.9804,73.9061 -55.9597,73.8641 -55.7978,73.8282 -55.6991,73.8138 -55.5531,73.7875 -55.5283,73.7805 -55.5009,73.769 -55.4919,73.7557 -55.5038,73.7433 -55.5149,73.7395 -55.5313,73.7359 -55.5544,73.7345 -55.5787,73.7344 -55.6026,73.7366 -55.6596,73.7486 -55.7855,73.7563 -55.8041,73.754 -55.7396,73.6876 -55.6071,73.6225 -55.5866,73.6187 -55.5702,73.6172 -55.5524,73.6187 -55.5283,73.6235 -55.5169,73.6266 -55.4988,73.6296 -55.4866,73.6301 -55.4717,73.6239 -55.491,73.5992 -55.5002,73.5946 -55.6345,73.6153 -55.7114,73.6313 -55.7541,73.6488 -55.7802,73.6585 -55.8055,73.6626 -55.8209,73.6612 -55.8984,73.5907 -55.8932,73.582 -55.8791,73.5777 -55.8569,73.5761 -55.8112,73.5816 -55.7875,73.5866 -55.7613,73.5907 -55.7468,73.5876 -55.7233,73.5826 -55.734,73.572 -55.8304,73.5561 -55.8457,73.5553 -55.8808,73.559 -55.9097,73.5607 -55.93,73.5577 -55.9318,73.5462 -55.9149,73.5391 -55.9015,73.5356 -55.8113,73.5159 -55.5577,73.4817 -55.5415,73.4822 -55.5235,73.4787 -55.5019,73.4715 -55.3881,73.4045 -55.3807,73.3964 -55.3866,73.3881 -55.3919,73.3775 -55.3552,73.3632 -55.2912,73.3479 -55.2779,73.3453 -55.1717,73.3269 -55.0917,73.3161 -55.0486,73.3152 -55.033,73.3126 -55.0232,73.3075 -54.9639,73.2752 -54.9532,73.2553 -54.967,73.2504 -55.0019,73.253 -55.0156,73.2554 -55.0408,73.2632 -55.0536,73.268 -55.0677,73.2747 -55.0926,73.2837 -55.1058,73.2876 -55.1171,73.2894 -55.1337,73.2875 -55.3198,73.1562 -55.3024,73.1494 -55.2157,73.1397 -55.1782,73.1373 -55.1551,73.1364 -55.1376,73.1372 -55.1076,73.1411 -55.0047,73.1092 -55.0075,73.0859 -55.0206,73.0796 -55.2015,73.0733 -55.3215,73.0293 -55.341,73.0232 -55.3543,73.0221 -55.373,73.0229 -55.3902,73.0246 -55.4737,73.0201 -55.4916,73.022 -55.5152,73.0229 -55.5256,73.0201 -55.5714,72.9927 -55.5588,72.9658 -55.5397,72.9577 -55.5285,72.9551 -55.517,72.9539 -55.5028,72.9552 -55.4851,72.958 -55.4251,72.9645 -55.4045,72.9663 -55.3785,72.9681 -55.3461,72.9689 -55.2996,72.9677 -55.2793,72.9588 -55.2525,72.9492 -55.2245,72.9427 -55.1951,72.9388 -55.058,72.9335 -54.9672,72.9435 -54.9131,72.919 -54.7662,72.9136 -54.7438,72.9186 -54.7322,72.9181 -54.7165,72.9162 -54.6852,72.9015 -54.5548,72.7998 -54.4729,72.7287 -54.5448,72.708 -54.5617,72.7059 -54.6108,72.7055 -54.6697,72.7107 -54.6858,72.7108 -54.7457,72.6949 -54.7913,72.6779 -54.7785,72.6727 -54.6926,72.6613 -54.6205,72.661 -54.5225,72.6676 -54.5103,72.6138 -54.5867,72.6039 -54.6026,72.6039 -54.7472,72.5721 -54.7383,72.5453 -54.7288,72.5398 -54.7013,72.534 -54.599,72.5256 -54.5736,72.5248 -54.5633,72.5273 -54.5447,72.5337 -54.5305,72.5347 -54.5106,72.5318 -54.4987,72.5223 -54.5112,72.5146 -54.5584,72.5062 -54.6103,72.5041 -54.654,72.5082 -54.7742,72.5079 -54.8641,72.4734 -54.8751,72.4572 -54.8819,72.4401 -54.8854,72.4263 -54.8722,72.4136 -54.8506,72.4103 -54.6716,72.4229 -54.6547,72.4134 -54.6307,72.4042 -54.6007,72.4001 -54.4865,72.3885 -54.4728,72.3885 -54.4495,72.3891 -54.4304,72.3911 -54.3871,72.4018 -54.3722,72.4049 -54.3407,72.4087 -54.3017,72.4093 -54.2787,72.408 -54.2588,72.4068 -54.1818,72.3939 -54.1693,72.3842 -54.185,72.3747 -54.2038,72.3758 -54.2173,72.3808 -54.226,72.3903 -54.2596,72.3949 -54.2796,72.3966 -54.2957,72.3965 -54.3073,72.3961 -54.4043,72.3833 -54.4155,72.3786 -54.8621,72.3871 -55.1475,72.3994 -55.2405,72.4081 -55.2829,72.4169 -55.2946,72.4216 -55.3097,72.424 -55.3404,72.4241 -55.3655,72.4158 -55.4414,72.383 -55.4931,72.3606 -55.514,72.3453 -55.4956,72.3262 -55.4687,72.3153 -55.4395,72.3073 -55.3746,72.293 -55.3564,72.293 -55.286,72.299 -55.1729,72.3276 -55.1512,72.2745 -55.1399,72.2707 -55.1149,72.2646 -55.0999,72.2624 -55.0887,72.2624 -55.0754,72.2644 -55.0339,72.2805 -54.9864,72.2981 -54.8886,72.3264 -54.757,72.3261 -54.7695,72.3166 -54.7799,72.314 -54.7918,72.3125 -54.8293,72.3142 -54.8394,72.3073 -54.8184,72.2914 -54.8093,72.2862 -54.7952,72.2815 -54.7826,72.2792 -54.6674,72.2658 -54.6521,72.2645 -54.6383,72.2656 -54.6109,72.2706 -54.5939,72.2728 -54.576,72.273 -54.5564,72.2704 -54.6167,72.2569 -54.6336,72.2542 -54.6627,72.2549 -54.7854,72.2661 -54.8082,72.266 -54.8173,72.2603 -54.81,72.2043 -54.8009,72.142 -55.0764,72.0477 -55.1019,72.0394 -55.282,71.9888 -55.4194,71.9358 -55.4309,71.9286 -55.4488,71.9033 -55.4377,71.8911 -55.3376,71.8668 -55.1682,71.833 -55.1368,71.8281 -55.1132,71.8267 -55.0888,71.8265 -55.0479,71.8295 -54.9487,71.8338 -54.8818,71.8341 -54.8558,71.8333 -54.811,71.8345 -54.7903,71.8356 -54.7573,71.8414 -54.733,71.8471 -54.7099,71.8546 -54.5494,71.9159 -54.522,71.9446 -54.5156,71.9688 -54.4033,72.0803 -54.3931,72.0882 -54.3012,72.1236 -54.288,72.128 -54.2781,72.1304 -54.2601,72.1267 -54.3034,72.1042 -54.3227,72.0926 -54.3961,72.0058 -54.3911,71.9917 -54.3842,71.9757 -54.391,71.9642 -54.4078,71.9454 -54.417,71.9397 -54.4452,71.9257 -54.4805,71.9096 -54.5131,71.896 -54.6976,71.8214 -54.7138,71.8169 -54.7522,71.8088 -54.7666,71.8067 -54.8823,71.7932 -54.9048,71.7924 -54.9547,71.7951 -54.9897,71.7961 -55.1213,71.7928 -55.1619,71.7906 -55.1899,71.7862 -55.2202,71.7767 -55.2513,71.7457 -55.3139,71.7076 -55.4287,71.6749 -55.6105,71.6503 -55.6447,71.6461 -55.657,71.642 -55.7218,71.6186 -55.7378,71.6106 -55.7618,71.5975 -55.7749,71.5849 -55.7534,71.5781 -55.6575,71.57 -55.5288,71.5574 -55.4451,71.5457 -55.4615,71.5327 -55.4933,71.5282 -55.5493,71.5322 -55.5388,71.5102 -55.5143,71.4781 -55.4266,71.3844 -55.4149,71.3736 -55.3865,71.357 -55.368,71.3474 -55.3151,71.3261 -55.256,71.3043 -55.2143,71.2951 -55.1959,71.2924 -55.1706,71.2911 -55.0633,71.2842 -55.0379,71.2833 -55.003,71.2846 -54.9901,71.2941 -54.9985,71.3086 -55.0192,71.3215 -55.0766,71.3423 -55.0948,71.3517 -55.1395,71.3919 -55.1304,71.3961 -55.0986,71.3938 -55.0781,71.3851 -55.0625,71.3748 -55.0487,71.3645 -55.0176,71.3437 -54.9934,71.3339 -54.7512,71.2676 -54.7172,71.2614 -54.6991,71.2585 -54.6732,71.2578 -54.5175,71.255 -54.4816,71.258 -54.4658,71.2603 -54.4497,71.2636 -54.3973,71.2698 -54.3799,71.2706 -54.2923,71.2691 -54.2704,71.2696 -54.2205,71.2755 -54.0788,71.2958 -54.0487,71.3008 -53.7906,71.3474 -53.7739,71.354 -53.7607,71.3642 -53.7503,71.38 -53.7427,71.3928 -53.7312,71.4139 -53.7221,71.4347 -53.7224,71.4488 -53.7301,71.4611 -53.7402,71.4679 -53.7598,71.4772 -53.8401,71.5026 -53.8902,71.5133 -53.9204,71.5183 -53.9323,71.5218 -53.9747,71.5402 -53.9739,71.6124 -53.9646,71.6189 -53.9508,71.6204 -53.9352,71.6206 -53.9253,71.6192 -53.9066,71.6164 -53.8848,71.6107 -53.8627,71.5944 -53.8592,71.5794 -53.8465,71.5676 -53.8291,71.5571 -53.8188,71.5518 -53.8075,71.5476 -53.794,71.5433 -53.7777,71.5405 -53.7277,71.5349 -53.676,71.5335 -53.6497,71.5386 -53.622,71.546 -53.6055,71.5543 -53.5966,71.5635 -53.5954,71.5808 -53.5996,71.5908 -53.61,71.6024 -53.6392,71.6203 -53.6525,71.6241 -53.6666,71.6266 -53.6856,71.629 -53.7518,71.6332 -53.7707,71.6354 -53.7806,71.6373 -53.7902,71.6431 -53.7781,71.6491 -53.7501,71.6517 -53.6694,71.6508 -53.6193,71.6487 -53.5283,71.6413 -53.5104,71.6419 -53.4975,71.6454 -53.4058,71.6776 -53.3872,71.6849 -53.3564,71.6984 -53.2834,71.7408 -53.2721,71.7529 -53.2764,71.7647 -53.3974,71.8991 -53.4283,71.9282 -53.4547,71.9485 -53.4744,71.9583 -53.5105,71.9724 -53.5382,71.9805 -53.5637,71.9885 -53.5887,71.9969 -53.6225,72.0109 -53.6742,72.0354 -53.6831,72.0405 -53.7005,72.0545 -53.7059,72.0691 -53.7082,72.0989 -53.7789,72.1908 -53.8058,72.2057 -53.823,72.2184 -53.8254,72.2283 -53.8141,72.2384 -53.787,72.2472 -53.7451,72.2547 -53.7261,72.2563 -53.494,72.2657 -53.4827,72.266 -53.4299,72.2565 -53.4497,72.2491 -53.5495,72.2446 -53.6548,72.2434 -53.6951,72.2404 -53.7098,72.2367 -53.7212,72.2316 -53.7283,72.2225 -53.721,72.2131 -53.6228,72.1077 -53.5939,72.0482 -53.5873,72.0382 -53.5746,72.027 -53.5633,72.0222 -53.5497,72.0182 -53.4788,72.006 -53.4129,71.9933 -53.3967,71.99 -53.3403,71.9766 -53.3155,71.9677 -53.3064,71.9639 -53.2798,71.9489 -53.2653,71.935 -53.2622,71.9249 -53.2717,71.9141 -53.2797,71.9074 -53.2912,71.8906 -53.2848,71.8683 -53.2477,71.8062 -53.1969,71.7269 -53.1145,71.7101 -52.8821,71.7418 -52.8588,71.7503 -52.8864,71.7869 -52.8961,71.7987 -52.8281,71.8451 -52.6562,71.9154 -52.6306,71.921 -52.6119,71.9232 -52.5845,71.9196 -52.5715,71.9149 -52.5628,71.9043 -52.5764,71.8965 -52.6106,71.8866 -52.655,71.8744 -52.666,71.8704 -52.6749,71.8659 -52.7863,71.8108 -52.7899,71.7976 -52.7773,71.7766 -52.7381,71.7718 -52.7333,71.7624 -52.7435,71.7531 -52.7969,71.7213 -52.8104,71.7163 -52.8233,71.7129 -52.8738,71.7051 -52.9358,71.6912 -52.9914,71.6771 -53.0438,71.6604 -53.0791,71.6462 -53.1221,71.6254 -53.1392,71.6148 -53.1263,71.6075 -53.0895,71.6019 -53.0473,71.5987 -52.9578,71.5928 -52.8227,71.5899 -52.7182,71.5882 -52.6293,71.5898 -52.5169,71.5862 -52.4508,71.5526 -52.2761,71.5296 -52.053,71.5154 -52.0371,71.5167 -52.0019,71.5211 -51.8664,71.54 -51.7921,71.5513 -51.743,71.5603 -51.723,71.5687 -51.7069,71.5837 -51.698,71.5991 -51.6935,71.6139 -51.6852,71.6206 -51.672,71.6245 -51.6622,71.6265 -51.647,71.6293 -51.6126,71.6316 -51.5573,71.6321 -51.5226,71.6137 -51.5377,71.5929 -51.5513,71.5804 -51.5882,71.5463 -51.5961,71.5397 -51.6115,71.5281 -51.6311,71.5168 -51.6541,71.5072 -51.6822,71.4995 -51.699,71.497 -51.7193,71.4961 -51.9293,71.4848 -52.1127,71.4776 -52.1913,71.4742 -52.3083,71.4681 -52.364,71.4617 -52.5446,71.4331 -52.5759,71.4271 -52.628,71.4104 -52.7783,71.3618 -52.8199,71.347 -52.8496,71.3356 -52.8635,71.3235 -52.8405,71.3143 -52.8205,71.3106 -52.7879,71.307 -52.5854,71.2872 -52.5484,71.2841 -52.4659,71.2794 -52.364,71.2797 -52.3223,71.2812 -52.2779,71.2832 -52.2596,71.2846 -52.2439,71.2866 -52.1821,71.2967 -52.1404,71.306 -52.0259,71.3333 -51.8456,71.3697 -51.6224,71.4067 -51.5918,71.4107 -51.4958,71.4141 -51.4366,71.4147 -51.4054,71.4121 -51.2508,71.3952 -51.2268,71.3897 -51.2654,71.3478 -51.2875,71.3435 -51.3042,71.3443 -51.3245,71.347 -51.3578,71.3537 -51.3919,71.3591 -51.4859,71.3625 -51.5262,71.3603 -51.7499,71.3412 -51.8787,71.3253 -52.035,71.2921 -52.065,71.2847 -52.1481,71.2622 -52.1644,71.2558 -52.1714,71.2468 -52.1646,71.2353 -52.1484,71.2249 -52.1367,71.2139 -52.1255,71.1988 -52.1286,71.1868 -52.1531,71.1666 -52.1625,71.1608 -52.1935,71.1466 -52.2192,71.1381 -52.2357,71.1355 -52.2697,71.1325 -52.3159,71.1339 -52.338,71.1335 -52.3683,71.1286 -52.3914,71.121 -52.4288,71.102 -52.4345,71.0822 -52.4248,71.0633 -52.4138,71.0552 -52.4025,71.0517 -52.3895,71.0491 -52.3637,71.0469 -52.3453,71.0473 -52.3275,71.0484 -52.2933,71.0527 -52.2784,71.0563 -52.1399,71.0885 -51.9669,71.14 -51.8091,71.1968 -51.7639,71.2165 -51.7124,71.2357 -51.687,71.2426 -51.6273,71.2559 -51.5944,71.2617 -51.5438,71.2665 -51.5263,71.2671 -51.4068,71.205 -51.4074,71.1839 -51.4181,71.1707 -51.4451,71.161 -51.4613,71.1587 -51.5037,71.1559 -51.5585,71.1589 -51.6159,71.16 -51.7264,71.1584 -51.7442,71.158 -51.7606,71.1552 -51.8951,71.1254 -51.9077,71.122 -51.9187,71.1171 -51.928,71.1113 -51.9468,71.0942 -51.9684,71.0761 -51.9976,71.0655 -52.0103,71.062 -52.025,71.0585 -52.0723,71.0499 -52.1159,71.04 -52.1263,71.028 -52.0986,71.0153 -52.0468,71.0085 -52.0043,71.0041 -51.9423,71.0008 -51.9138,71.0017 -51.8979,71.0037 -51.8684,71.0105 -51.8451,71.0182 -51.7719,71.0348 -51.7467,71.0386 -51.7269,71.0392 -51.6611,71.0419 -51.6168,71.0391 -51.5983,71.03 -51.5908,71.0216 -51.5801,71.0177 -51.5354,71.0137 -51.4907,71.0133 -51.4376,71.0159 -51.3706,71.025 -51.3442,71.0303 -51.311,71.0353 -51.1562,71.0515 -51.1393,71.0516 -51.1222,71.0505 -51.1068,71.046 -51.1252,71.0348 -51.1432,71.0333 -51.1819,71.0327 -51.2017,71.0317 -51.2508,71.0242 -51.2608,71.0221 -51.2716,71.0186 -51.3559,70.9828 -51.3662,70.9733 -51.3624,70.9634 -51.3512,70.9602 -51.3114,70.9551 -51.1729,70.9392 -51.0095,70.9241 -50.9721,70.9258 -50.8391,70.9299 -50.8201,70.9305 -50.8017,70.9268 -50.8126,70.895 -50.8241,70.8835 -50.8337,70.8775 -50.8664,70.8727 -51.0562,70.8607 -51.0734,70.8606 -51.0978,70.8618 -51.1291,70.8664 -51.1419,70.8709 -51.1989,70.8859 -51.2141,70.8895 -51.262,70.8989 -51.319,70.9072 -51.4042,70.915 -51.4244,70.9174 -51.4787,70.9266 -51.5946,70.9488 -51.6682,70.9661 -51.6832,70.9695 -51.7115,70.9726 -51.7331,70.9723 -51.7509,70.9707 -51.7633,70.9681 -51.7793,70.962 -51.8339,70.9274 -51.732,70.9033 -51.6141,70.8811 -51.5493,70.8676 -51.5366,70.8637 -51.5263,70.8589 -51.5067,70.8446 -51.4907,70.8354 -51.4774,70.8323 -51.3261,70.8102 -51.2147,70.805 -51.1967,70.804 -51.1745,70.8019 -51.1084,70.7913 -51.0894,70.7746 -51.0781,70.7664 -51.0663,70.7617 -51.04,70.7553 -51.0301,70.7538 -50.9854,70.7511 -50.943,70.7511 -50.9054,70.7536 -50.8912,70.7573 -50.8579,70.7668 -50.7857,70.778 -50.7578,70.7822 -50.7425,70.7831 -50.7289,70.7775 -50.742,70.7697 -50.7523,70.7656 -50.7863,70.7556 -50.8007,70.7467 -50.807,70.7379 -50.8019,70.7243 -50.7833,70.7094 -50.767,70.7014 -50.6974,70.6941 -50.652,70.6921 -50.6329,70.6895 -50.517,70.644 -50.521,70.6288 -50.5382,70.6174 -50.5524,70.6149 -50.6031,70.6147 -50.6462,70.6164 -50.6679,70.619 -50.6849,70.622 -50.8393,70.6677 -51.1223,70.7186 -51.1415,70.7173 -51.1545,70.7099 -51.1548,70.7 -51.1544,70.682 -51.1603,70.6737 -51.1734,70.6648 -51.186,70.6613 -51.2186,70.6592 -51.313,70.6595 -51.3231,70.6527 -51.3245,70.6327 -51.31,70.6104 -51.3011,70.6052 -51.2863,70.6014 -51.091,70.5953 -51.0711,70.596 -51.0601,70.5975 -50.9708,70.563 -50.951,70.5643 -50.8932,70.574 -50.84,70.5858 -50.8216,70.589 -50.8038,70.5907 -50.7848,70.5909 -50.7358,70.5884 -50.718,70.5865 -50.6718,70.5796 -50.5385,70.553 -50.5267,70.5488 -50.5042,70.5335 -50.5119,70.5239 -50.5221,70.5213 -50.5444,70.5221 -50.5642,70.5247 -50.5786,70.5275 -50.5912,70.5312 -50.6131,70.5403 -50.6255,70.5445 -50.6546,70.5519 -50.7083,70.5602 -50.7522,70.5645 -50.7748,70.565 -50.7995,70.5627 -50.8113,70.5592 -50.864,70.5337 -50.8738,70.521 -50.8453,70.511 -50.83,70.5078 -50.8053,70.5045 -50.7519,70.492 -50.6527,70.4657 -50.6422,70.4621 -50.6271,70.4526 -50.7632,70.4152 -50.7745,70.4133 -50.7873,70.4166 -50.8817,70.4471 -51.0634,70.4984 -51.1142,70.5122 -51.2055,70.487 -51.2161,70.4832 -51.2296,70.4717 -51.2186,70.4616 -51.0948,70.4242 -51.0097,70.4169 -50.9936,70.4194 -50.9734,70.418 -50.9428,70.4133 -50.8576,70.3892 -50.8276,70.373 -50.8406,70.3703 -50.9148,70.3706 -50.9791,70.37 -50.9721,70.361 -50.9449,70.3474 -50.9226,70.3385 -50.8911,70.3325 -50.8334,70.3279 -50.7286,70.3232 -50.664,70.3243 -50.6487,70.3259 -50.6346,70.3288 -50.6187,70.3345 -50.5364,70.3742 -50.5352,70.3902 -50.5042,70.4105 -50.4687,70.4277 -50.4476,70.4345 -50.4248,70.4386 -50.3963,70.4338 -50.3868,70.4283 -50.3779,70.419 -50.3902,70.4051 -50.4178,70.3976 -50.4432,70.3897 -50.4542,70.3849 -50.4738,70.3736 -50.5578,70.3144 -50.5644,70.303 -50.5537,70.2951 -50.5369,70.2938 -50.5226,70.3008 -50.5015,70.3044 -50.4823,70.3017 -50.4592,70.2954 -50.4434,70.2893 -50.4331,70.2833 -50.4221,70.2602 -50.4334,70.248 -50.446,70.2411 -50.4587,70.2373 -50.4839,70.2324 -50.5009,70.2306 -50.5205,70.2299 -50.563,70.2306 -50.5865,70.2329 -50.6034,70.2354 -50.6376,70.2484 -50.6628,70.2548 -50.6796,70.2578 -50.6973,70.2596 -50.8186,70.2667 -50.9848,70.2835 -51.0096,70.2906 -51.0824,70.3083 -51.2344,70.3253 -51.3608,70.3324 -51.472,70.3486 -51.639,70.3881 -51.7548,70.4207 -51.9001,70.4641 -52.1102,70.5294 -52.2579,70.5788 -52.279,70.5875 -52.3164,70.6 -52.3437,70.6084 -52.6029,70.6517 -52.8508,70.6715 -52.983,70.6802 -53.0685,70.6716 -53.213,70.6622 -53.2913,70.6602 -53.3487,70.6624 -53.3908,70.6664 -53.4443,70.6737 -53.4725,70.6805 -53.4981,70.6887 -53.5808,70.7017 -53.8955,70.7337 -53.9407,70.7366 -53.9635,70.7367 -54.0058,70.736 -54.0252,70.7348 -54.0578,70.7315 -54.1057,70.7226 -54.1332,70.716 -54.1842,70.7039 -54.2122,70.6967 -54.4207,70.6382 -54.4491,70.6242 -54.5039,70.5605 -54.493,70.5581 -54.4477,70.5636 -54.4305,70.5644 -54.4173,70.561 -54.4062,70.5574 -54.2308,70.4927 -54.1889,70.4734 -54.1698,70.4643 -54.0737,70.4121 -54.0729,70.3924 -54.0637,70.3847 -54.043,70.3743 -54.0327,70.3699 -53.8962,70.3212 -53.8819,70.3168 -53.801,70.2939 -53.7725,70.2885 -53.7263,70.2856 -53.4024,70.2673 -53.1931,70.2587 -53.1052,70.254 -53.0758,70.2503 -52.9892,70.2338 -52.759,70.1879 -52.7294,70.1808 -52.5752,70.1404 -52.5349,70.1297 -52.476,70.109 -52.4551,70.0971 -52.4467,70.085 -52.4321,70.0706 -52.2241,69.963 -52.2143,69.9582 -52.1976,69.9556 -52.0993,69.9465 -52.0587,69.943 -52.0265,69.9457 -51.9076,69.9301 -51.8875,69.9209 -51.8752,69.918 -51.8589,69.9147 -51.8376,69.913 -51.8171,69.9127 -51.7832,69.9165 -51.7396,69.9263 -51.7224,69.928 -51.7082,69.9279 -51.4907,69.9188 -51.4569,69.8881 -51.4422,69.8805 -51.3586,69.8703 -51.343,69.8692 -51.3246,69.8736 -51.2669,69.8984 -51.2306,69.9167 -51.2134,69.926 -51.1951,69.9372 -51.1741,69.9527 -51.1572,69.9714 -51.1429,69.9758 -51.1297,69.9775 -50.9729,69.981 -50.9526,69.9815 -50.9341,69.9781 -50.7806,69.9447 -50.7621,69.9389 -50.7495,69.9323 -50.7607,69.9265 -50.7869,69.9201 -50.8632,69.904 -50.8738,69.9033 -50.8864,69.9114 -50.8983,69.924 -50.9127,69.9348 -50.9224,69.9387 -50.947,69.9449 -50.9674,69.9449 -50.9798,69.941 -51.1481,69.8729 -51.0564,69.8692 -50.8504,69.8684 -50.8297,69.8692 -50.5677,69.9069 -50.4597,69.9281 -50.3766,69.9477 -50.3321,69.9504 -50.2592,69.9504 -50.1642,69.9493 -50.1446,69.9482 -50.1322,69.945 -50.1206,69.9411 -50.1076,69.9335 -50.1019,69.9244 -50.1098,69.9182 -50.1214,69.9126 -50.1745,69.8916 -50.1964,69.8857 -50.229,69.8817 -50.3204,69.881 -50.4429,69.8833 -50.4556,69.8825 -50.4672,69.8799 -50.4751,69.8664 -50.4792,69.8331 -50.4587,69.8244 -50.4113,69.8157 -50.3469,69.8086 -50.3064,69.8087 -50.2895,69.8095 -50.2705,69.8076 -50.2005,69.7801 -50.0828,69.6674 -50.098,69.665 -50.1182,69.6651 -50.2208,69.6678 -50.3917,69.6846 -50.4481,69.6921 -50.4711,69.6931 -50.4873,69.6929 -50.5014,69.6898 -50.5114,69.676 -50.5203,69.6635 -50.5375,69.6522 -50.5778,69.6395 -50.6055,69.6332 -50.6377,69.6289 -50.6565,69.6275 -50.6875,69.6225 -50.7054,69.6175 -50.7147,69.6078 -50.7035,69.5863 -50.6895,69.5825 -50.6645,69.5775 -50.6305,69.5738 -50.6107,69.574 -50.5923,69.5746 -50.5415,69.5795 -50.4641,69.5756 -50.3372,69.5532 -50.3072,69.5228 -50.2981,69.506 -50.3086,69.5019 -50.3194,69.5034 -50.3748,69.5182 -50.4091,69.5246 -50.5338,69.5436 -50.6377,69.5533 -50.6575,69.5543 -50.6906,69.552 -50.7151,69.5439 -50.7325,69.529 -50.6862,69.492 -50.6848,69.4614 -50.7173,69.4458 -50.7277,69.4417 -50.7563,69.4312 -50.7652,69.4241 -50.7729,69.4056 -50.7647,69.3938 -50.7547,69.3885 -50.5847,69.4062 -50.4776,69.3966 -50.6119,69.3926 -50.7326,69.3746 -50.7462,69.3713 -50.7563,69.368 -50.7864,69.3089 -50.8611,69.2101 -50.9014,69.1771 -50.9846,69.1436 -51.0106,69.1113 -50.9955,69.1049 -50.9032,69.0874 -50.8383,69.0855 -50.7768,69.0839 -50.6055,69.1271 -50.5482,69.1312 -50.4509,69.1723 -50.4546,69.1908 -50.4073,69.2262 -50.3636,69.2411 -50.3519,69.244 -50.3239,69.2488 -50.289,69.2513 -50.2656,69.244 -50.2712,69.2346 -50.2834,69.2299 -50.2953,69.2267 -50.3468,69.2151 -50.3612,69.2069 -50.3592,69.1089 -50.3433,69.1031 -50.3086,69.102 -50.1928,69.1029 -50.1656,69.103 -50.1491,69.1046 -50.1235,69.1083 -50.1033,69.1181 -50.0931,69.1269 -50.0647,69.1325 -50.0496,69.1348 -50.0374,69.1355 -50.0232,69.1296 -50.0218,69.1148 -50.0268,69.1001 -50.0342,69.0849 -50.0516,69.0698 -50.0725,69.0611 -50.0834,69.0589 -50.1705,69.0466 -50.2481,69.0394 -50.3559,69.038 -50.444,69.0405 -50.5516,69.0394 -50.5657,69.0391 -50.5784,69.0318 -50.5716,69.0136 -50.4715,68.9906 -50.3722,68.9707 -50.3266,68.9625 -50.3068,68.9625 -50.297,68.9634 -50.216,68.976 -50.162,68.9855 -50.1474,68.9871 -50.1363,68.9864 -50.1251,68.9824 -50.1071,68.9723 -50.0949,68.9634 -50.0771,68.9468 -50.07,68.9314 -50.1003,68.8737 -50.1104,68.8679 -50.1297,68.8681 -50.1438,68.8724 -50.1763,68.8881 -50.1863,68.8969 -50.1728,68.9051 -50.1591,68.9189 -50.1523,68.9306 -50.1468,68.9504 -50.1543,68.9656 -50.1783,68.9672 -50.226,68.9615 -50.3549,68.9355 -50.3684,68.9324 -50.3849,68.9218 -50.378,68.9046 -50.3701,68.8939 -50.3586,68.8838 -50.3496,68.8789 -50.3383,68.8753 -50.3268,68.8751 -50.2725,68.8824 -50.2573,68.8786 -50.2035,68.8331 -50.2147,68.8213 -50.2332,68.8145 -50.2541,68.8115 -50.2725,68.8121 -50.4135,68.8579 -50.4381,68.9075 -50.4185,68.9313 -50.4246,68.9395 -50.4728,68.9613 -50.5508,68.9881 -50.5839,68.9882 -50.5941,68.9868 -50.6646,68.9759 -50.7846,68.9532 -50.7969,68.9466 -50.7945,68.9366 -50.8096,68.936 -50.8603,68.9418 -50.8771,68.9491 -50.7945,68.9821 -50.781,68.9853 -50.7551,68.991 -50.7269,68.996 -50.6928,68.9978 -50.6908,69.0378 -50.9649,69.0412 -51.0095,68.9563 -51.0053,68.8382 -50.9507,68.8223 -50.9254,68.8293 -50.8918,68.8387 -50.8573,68.8439 -50.8644,68.836 -50.9728,68.7835 -50.995,68.7774 -51.0351,68.7698 -51.0957,68.7564 -51.1058,68.7524 -51.1797,68.6586 -51.1326,68.6511 -51.0154,68.6454 -50.9269,68.658 -50.9125,68.6621 -50.8911,68.6757 -50.8813,68.6796 -50.8217,68.7021 -50.7233,68.7369 -50.7094,68.7411 -50.6691,68.7494 -50.5959,68.7451 -50.5597,68.7412 -50.5475,68.7348 -50.5572,68.7279 -50.6594,68.688 -50.7273,68.6809 -50.7935,68.6688 -50.8788,68.6442 -50.8678,68.6195 -50.8188,68.5842 -50.8084,68.5786 -50.7901,68.5775 -50.7557,68.5851 -50.7264,68.5896 -50.7023,68.585 -50.7479,68.5315 -50.758,68.5265 -50.7684,68.5252 -50.7864,68.5264 -50.7974,68.5309 -50.8242,68.5451 -50.8954,68.5575 -50.9249,68.4915 -50.9372,68.4877 -51.0358,68.4722 -51.238,68.4612 -51.3627,68.4723 -51.4249,68.4462 -51.4362,68.4385 -51.4937,68.4334 -51.509,68.4321 -51.5471,68.4353 -51.5648,68.4379 -51.5919,68.4437 -51.6095,68.4464 -51.6335,68.4476 -51.6676,68.4473 -51.682,68.4445 -51.7014,68.4396 -51.7216,68.431 -51.7381,68.4257 -51.754,68.4279 -51.8274,68.4404 -51.8462,68.446 -51.8513,68.4692 -51.8333,68.4717 -51.7933,68.4722 -51.7298,68.4788 -51.707,68.4863 -51.7177,68.4919 -51.754,68.4952 -51.7709,68.4961 -51.8385,68.4945 -51.8739,68.4933 -52.0048,68.4608 -52.0891,68.4765 -52.2856,68.4636 -52.3504,68.4571 -52.398,68.4514 -52.5123,68.4317 -52.5306,68.426 -52.5075,68.4166 -52.4863,68.4126 -52.4743,68.4112 -52.4927,68.3655 -52.7404,68.2894 -52.9677,68.2354 -53.0288,68.2389 -53.0991,68.2599 -53.1147,68.2631 -53.1293,68.2637 -53.1465,68.2628 -53.2629,68.2466 -53.2761,68.2414 -53.2603,68.2038 -53.2544,68.1928 -53.2413,68.1814 -53.2292,68.1819 -53.2177,68.1877 -53.205,68.191 -53.1235,68.2051 -53.0651,68.2068 -53.0554,68.2033 -53.0049,68.1969 -52.9772,68.1947 -52.847,68.2088 -52.7971,68.2089 -52.7663,68.2158 -52.6564,68.2325 -52.633,68.2351 -52.6205,68.2292 -52.6531,68.2118 -52.6772,68.2105 -52.6922,68.214 -52.7025,68.2141 -52.7491,68.2089 -52.7679,68.2054 -52.8072,68.1932 -52.8155,68.1819 -52.8257,68.1715 -52.7889,68.1397 -52.6945,68.1272 -52.6219,68.1234 -52.6089,68.1235 -52.5948,68.1251 -52.5214,68.1511 -52.5394,68.1646 -52.5501,68.1684 -52.5589,68.1688 -52.5884,68.1729 -52.6188,68.1778 -52.602,68.1809 -52.5853,68.1832 -52.5629,68.1805 -52.5236,68.1763 -52.4473,68.1659 -52.3841,68.1498 -52.3584,68.1244 -52.3758,68.1146 -52.387,68.1055 -52.3747,68.099 -52.3593,68.0941 -52.3362,68.0918 -52.3089,68.0932 -52.2721,68.0974 -52.1135,68.1242 -51.9713,68.1432 -51.8855,68.1517 -51.8093,68.1515 -51.7095,68.1548 -51.6559,68.1605 -51.5666,68.1783 -51.5046,68.1864 -51.4394,68.1924 -51.4088,68.1928 -51.3822,68.1923 -51.3521,68.19 -51.3245,68.1894 -51.2991,68.1896 -51.2341,68.1931 -51.2201,68.1941 -51.1475,68.2011 -51.1329,68.2025 -51.1151,68.2077 -51.1144,68.2299 -51.1181,68.2396 -51.131,68.2477 -51.1659,68.2625 -51.1873,68.2707 -51.2188,68.2776 -51.2367,68.2768 -51.2597,68.2659 -51.2742,68.264 -51.3579,68.2648 -51.3743,68.2652 -51.3904,68.2684 -51.5361,68.3203 -51.527,68.3257 -51.4929,68.3372 -51.4787,68.3397 -51.4424,68.34 -51.4181,68.3369 -51.398,68.3307 -51.2946,68.3172 -51.1682,68.3233 -51.0741,68.3366 -51.0191,68.3509 -50.7536,68.4112 -50.7333,68.4147 -50.7123,68.416 -50.6634,68.399 -50.678,68.391 -50.7376,68.3754 -50.7491,68.3731 -50.9153,68.3501 -50.9885,68.3447 -51.007,68.3406 -51.0436,68.3275 -51.0676,68.3175 -51.0745,68.3068 -51.0703,68.2966 -51.0577,68.2908 -51.0375,68.2792 -51.0168,68.2602 -51.0375,68.2029 -51.113,68.1863 -51.0779,68.1564 -50.9355,68.1343 -50.9226,68.1318 -50.8988,68.124 -50.8697,68.1129 -50.8495,68.0993 -50.864,68.0905 -50.8818,68.0891 -50.9907,68.0938 -51.0196,68.0968 -51.0789,68.1055 -51.0957,68.1127 -51.1171,68.118 -51.1464,68.1208 -51.1872,68.1229 -51.24,68.1219 -51.2794,68.1204 -51.3158,68.117 -51.3265,68.1129 -51.2851,68.0878 -51.2742,68.084 -51.2604,68.0806 -51.1856,68.0638 -50.9698,68.012 -50.8937,67.9933 -50.8361,67.9646 -50.8254,67.9609 -50.6951,67.9429 -50.5661,67.9278 -50.5581,67.9081 -50.4055,67.8759 -50.2062,67.8456 -50.1897,67.8446 -50.1659,67.8465 -50.1172,67.8542 -50.0493,67.8572 -50.0391,67.8528 -50.0523,67.8445 -50.1107,67.8208 -50.2111,67.8277 -50.2509,67.8311 -50.2789,67.8384 -50.3356,67.8435 -50.3811,67.842 -50.446,67.8318 -50.4663,67.8237 -50.4637,67.8142 -50.5326,67.8374 -50.9337,67.9347 -50.944,67.9403 -51.0507,67.9705 -51.0656,67.9743 -51.0813,67.9768 -51.109,67.9786 -51.1498,67.9788 -51.2219,67.9735 -51.3314,67.9669 -51.3689,67.9651 -51.3955,67.9654 -51.4102,67.9666 -51.4247,67.9695 -51.4517,67.972 -51.4796,67.9712 -51.5674,67.9673 -51.6347,67.9607 -51.6585,67.9577 -51.7353,67.9544 -51.7489,67.9552 -51.8472,67.9623 -51.8626,67.9643 -52.0187,68.0005 -52.2008,68.0359 -52.3901,68.0821 -52.4392,68.0954 -52.469,68.1021 -52.4839,68.1029 -52.622,68.1085 -52.636,68.1086 -52.6481,68.1074 -52.6644,68.1036 -52.6863,68.0909 -52.6885,68.0802 -52.6783,68.076 -52.5327,68.0469 -52.4733,68.0397 -52.2831,67.9836 -52.3,67.9767 -52.3175,67.9768 -52.6161,68.0237 -52.646,68.03 -52.7536,68.0588 -52.7867,68.0656 -52.9653,68.1008 -53.0364,68.112 -53.0581,68.1109 -53.2089,68.0971 -53.2792,68.0846 -53.3375,68.0642 -53.179,68.0437 -53.1678,68.0432 -53.1563,68.044 -53.0226,68.0508 -52.9648,68.0066 -52.7795,67.9383 -52.7083,67.9117 -52.6809,67.905 -52.6198,67.8944 -52.5802,67.8878 -52.5278,67.8815 -52.4715,67.8781 -52.3892,67.8747 -52.1313,67.8642 -52.092,67.8632 -52.0661,67.8644 -52.0277,67.8713 -52.0168,67.8748 -51.986,67.8868 -51.9721,67.8909 -51.9534,67.8898 -51.9755,67.8637 -51.9945,67.8544 -52.0351,67.8446 -52.0586,67.839 -52.0788,67.8363 -52.1029,67.8365 -52.114,67.8387 -52.1254,67.8422 -52.1363,67.8521 -52.3971,67.8631 -52.4107,67.8636 -52.4446,67.8626 -52.5809,67.8727 -52.6378,67.8816 -52.6725,67.8886 -52.6983,67.895 -52.8063,67.9325 -52.8839,67.9602 -52.9086,67.9672 -52.9703,67.9759 -52.983,67.9751 -53.08,67.9548 -53.0929,67.9483 -53.1329,67.9216 -53.1477,67.8989 -53.1287,67.8958 -53.1173,67.8965 -53.0537,67.9019 -52.9857,67.9058 -52.8964,67.9018 -52.8793,67.8999 -52.8482,67.8911 -52.8624,67.8879 -52.8981,67.8763 -52.9129,67.8766 -53.0075,67.8792 -53.1216,67.8738 -53.1457,67.859 -53.1661,67.8268 -53.1593,67.8158 -53.1493,67.8033 -53.1018,67.8132 -53.0569,67.8232 -53.0302,67.8246 -53.005,67.821 -52.9675,67.8129 -52.9495,67.7921 -52.9693,67.7964 -52.9828,67.8013 -52.9973,67.8026 -53.0182,67.8032 -53.0293,67.8027 -53.0531,67.7985 -53.141,67.775 -53.1626,67.7693 -53.1772,67.7606 -53.1708,67.7533 -53.1876,67.7564 -53.1949,67.7644 -53.1807,67.7732 -53.1814,67.7876 -53.1944,67.7935 -53.271,67.8118 -53.2986,67.8125 -53.312,67.8111 -53.3234,67.8087 -53.3426,67.8035 -53.353,67.8001 -53.3706,67.7896 -53.3137,67.7448 -53.3006,67.7423 -53.2283,67.7319 -53.2374,67.7257 -53.2153,67.728 -53.191,67.7238 -53.2142,67.7172 -53.2302,67.7147 -53.323,67.7059 -53.3777,67.7142 -53.3916,67.724 -53.3791,67.7282 -53.3553,67.7269 -53.3451,67.7319 -53.3482,67.7461 -53.358,67.7626 -53.3723,67.7688 -53.4414,67.7574 -53.5158,67.7282 -53.5276,67.7006 -53.4656,67.6752 -53.4326,67.6371 -53.4277,67.6245 -53.4525,67.5653 -53.5068,67.5471 -53.5728,67.5329 -53.6094,67.528 -53.6394,67.5186 -53.6178,67.4507 -53.5717,67.4148 -53.561,67.4136 -53.4886,67.4211 -53.478,67.423 -53.4561,67.4295 -53.217,67.5013 -53.1221,67.5432 -53.0958,67.5587 -53.0821,67.5705 -53.0687,67.5837 -53.0377,67.6019 -52.9248,67.653 -52.8949,67.6658 -52.8596,67.6776 -52.7296,67.7021 -52.6963,67.7029 -52.6575,67.7016 -52.5207,67.7001 -52.3658,67.7282 -52.3515,67.7325 -52.3347,67.7435 -52.3262,67.7496 -52.3149,67.7624 -52.3024,67.7712 -52.2299,67.7872 -52.0904,67.8119 -52.0158,67.8186 -52.0047,67.8196 -51.9657,67.8127 -51.9391,67.8093 -51.8795,67.8133 -51.803,67.8209 -51.7816,67.8258 -51.7595,67.8329 -51.7276,67.8472 -51.7132,67.8515 -51.6889,67.8557 -51.5054,67.8874 -51.4942,67.8878 -51.4823,67.8861 -51.4659,67.8785 -51.4957,67.8495 -51.506,67.8477 -51.5933,67.838 -51.7699,67.8051 -51.7891,67.799 -51.8113,67.7946 -51.8344,67.7924 -51.9224,67.7877 -51.9476,67.7874 -52.0293,67.7886 -52.044,67.79 -52.0893,67.7892 -52.194,67.7603 -52.2239,67.7478 -52.2308,67.7357 -52.1583,67.6854 -52.1469,67.6832 -52.1339,67.6821 -52.0397,67.6786 -51.8817,67.6748 -51.7235,67.6827 -51.7113,67.6891 -51.6039,67.7022 -51.5498,67.6989 -51.5395,67.696 -51.5213,67.6822 -51.5298,67.674 -51.541,67.6718 -51.5543,67.6714 -51.5674,67.6717 -51.6075,67.6755 -51.6178,67.6751 -51.6919,67.6702 -51.7025,67.6668 -51.7218,67.6575 -51.7329,67.6487 -51.7135,67.6225 -51.7021,67.6191 -51.6875,67.6153 -51.6405,67.6097 -51.6054,67.6087 -51.5868,67.6116 -51.5769,67.6147 -51.5671,67.6188 -51.5489,67.6272 -51.514,67.6479 -51.4944,67.6611 -51.4809,67.6641 -51.413,67.6707 -51.3968,67.6718 -51.3735,67.671 -51.3582,67.6634 -51.383,67.6527 -51.396,67.651 -51.421,67.641 -51.4048,67.6379 -51.3761,67.6422 -51.3548,67.6474 -51.3178,67.6591 -51.2878,67.6758 -51.2131,67.7274 -51.2155,67.737 -51.2257,67.7454 -51.3632,67.7858 -51.4629,67.8371 -51.4565,67.8468 -51.4096,67.8551 -51.3808,67.8537 -51.352,67.8513 -51.3366,67.8473 -51.3031,67.8365 -51.2909,67.8336 -51.2807,67.8323 -51.2672,67.8316 -51.2526,67.8319 -51.241,67.8328 -51.2199,67.8393 -51.182,67.857 -51.1654,67.8645 -51.1452,67.8725 -51.1345,67.8759 -51.1022,67.8824 -51.0768,67.8858 -51.0519,67.8873 -51.0014,67.888 -50.9531,67.8873 -50.9307,67.8742 -50.867,67.8301 -50.867,67.7967 -50.8818,67.791 -50.8931,67.7886 -50.9093,67.7888 -50.9225,67.7941 -50.9335,67.8033 -50.9505,67.8113 -50.9613,67.8152 -50.9772,67.8183 -50.9909,67.819 -51.0985,67.8202 -51.2094,67.7993 -51.2238,67.7825 -51.1276,67.6941 -51.093,67.6771 -51.0769,67.6737 -51.067,67.6721 -51.0551,67.6724 -50.9279,67.6839 -50.8693,67.7064 -50.7434,67.724 -50.7159,67.7246 -50.6577,67.7275 -50.645,67.7282 -50.6085,67.7322 -50.579,67.7539 -50.572,67.7641 -50.5989,67.7767 -50.6213,67.7836 -50.6521,67.7891 -50.6639,67.7871 -50.6739,67.7829 -50.692,67.7825 -50.7014,67.7761 -50.711,67.7735 -50.7297,67.7738 -50.7464,67.7783 -50.7232,67.8058 -50.7137,67.8104 -50.692,67.817 -50.673,67.82 -50.6595,67.8193 -50.6332,67.8163 -50.3451,67.7661 -50.3122,67.7578 -50.3234,67.7307 -50.3891,67.7336 -50.4933,67.7369 -50.5205,67.7362 -50.5432,67.7332 -50.5541,67.7301 -50.6403,67.7045 -50.6529,67.6979 -50.6682,67.6876 -50.6858,67.6818 -50.8811,67.6357 -50.8925,67.6336 -50.9168,67.6307 -50.9787,67.6286 -51.1243,67.6262 -51.124,67.6111 -51.0153,67.5692 -50.9049,67.5387 -50.8635,67.536 -50.8388,67.5365 -50.7787,67.5404 -50.6951,67.5489 -50.5448,67.5656 -50.5222,67.57 -50.489,67.577 -50.3835,67.6077 -50.2838,67.6378 -50.2623,67.6444 -50.1838,67.6587 -50.1723,67.6592 -50.1586,67.6587 -49.9887,67.6477 -49.9594,67.641 -49.837,67.606 -49.8486,67.5997 -49.8732,67.5973 -49.8987,67.5978 -49.9807,67.602 -49.9931,67.6112 -49.977,67.6244 -50.0015,67.6322 -50.0154,67.6336 -50.1495,67.6444 -50.1695,67.6449 -50.1923,67.6416 -50.2421,67.6272 -50.3361,67.6007 -50.5009,67.5593 -50.547,67.5513 -50.5808,67.5491 -50.5986,67.5485 -50.6437,67.5424 -50.669,67.5376 -50.7441,67.5176 -50.7463,67.5047 -50.6798,67.4723 -50.669,67.4684 -50.6194,67.4552 -50.561,67.442 -50.4659,67.4209 -50.4358,67.4223 -50.3469,67.4263 -50.3099,67.4252 -50.2832,67.4241 -50.2566,67.4218 -50.2162,67.4145 -50.0256,67.4211 -50.0055,67.4235 -49.9671,67.4256 -50.0105,67.409 -50.0918,67.3816 -50.1489,67.3853 -50.1787,67.39 -50.2936,67.3974 -50.3834,67.4027 -50.4412,67.3932 -50.4662,67.3932 -50.4795,67.3938 -50.5952,67.4058 -50.6107,67.4092 -50.6631,67.4245 -50.6737,67.4286 -50.7421,67.4543 -50.7806,67.4726 -50.824,67.4917 -50.8443,67.4988 -50.968,67.5255 -51.0226,67.5384 -51.1839,67.5761 -51.2235,67.5896 -51.2689,67.5931 -51.283,67.592 -51.3073,67.586 -51.3609,67.5684 -51.6026,67.5446 -51.6896,67.5396 -51.7018,67.5398 -51.7744,67.5485 -51.7779,67.5611 -51.7726,67.572 -51.7796,67.5808 -51.7939,67.5852 -51.9235,67.6194 -51.9793,67.6133 -51.9918,67.6097 -52.0055,67.6098 -52.0182,67.6124 -52.1562,67.6427 -52.2647,67.6695 -52.2928,67.6796 -52.3069,67.6826 -52.3487,67.6846 -52.3864,67.6832 -52.6601,67.6612 -52.6964,67.6566 -52.7103,67.6511 -52.6607,67.6397 -52.6361,67.6373 -52.6083,67.6373 -52.5831,67.6392 -52.5592,67.6422 -52.5478,67.6449 -52.5133,67.6494 -52.4763,67.6513 -52.4534,67.6523 -52.426,67.6497 -52.4799,67.6324 -52.514,67.6252 -52.5385,67.622 -52.6152,67.6143 -52.6279,67.615 -52.6416,67.6171 -52.6533,67.6215 -52.6682,67.6285 -52.6777,67.6318 -52.7091,67.6369 -52.7231,67.6383 -52.7366,67.6387 -52.7499,67.638 -52.785,67.6343 -52.8665,67.6212 -52.9228,67.6078 -52.9331,67.6045 -52.9609,67.5922 -52.9792,67.582 -52.9939,67.5701 -52.9808,67.564 -52.9464,67.5687 -52.9126,67.5762 -52.8706,67.5867 -52.8365,67.594 -52.816,67.5978 -52.8025,67.5942 -52.8122,67.5871 -52.8322,67.5792 -52.873,67.5671 -52.9642,67.5508 -53.0012,67.5441 -53.0335,67.5361 -53.2155,67.4677 -53.3551,67.423 -53.4661,67.4033 -53.4908,67.398 -53.6019,67.3662 -53.6922,67.3289 -53.7094,67.32 -53.7496,67.2684 -53.7693,67.1752 -53.7423,67.1386 -53.6976,67.1184 -53.6873,67.1177 -53.6661,67.1204 -53.5897,67.1343 -53.555,67.1413 -53.3285,67.1867 -53.142,67.2352 -53.1155,67.2125 -53.0841,67.1997 -53.0314,67.1929 -53.0181,67.1926 -52.9929,67.1938 -52.9582,67.1976 -52.9236,67.2031 -52.8711,67.2136 -52.8467,67.2172 -52.7322,67.2334 -52.5189,67.2582 -52.1182,67.3037 -51.9434,67.2871 -51.8099,67.2686 -51.5054,67.2724 -51.484,67.2735 -51.4591,67.2769 -51.2487,67.3056 -51.0696,67.335 -51.0456,67.3375 -51.0318,67.3372 -51.0105,67.3322 -51.0257,67.322 -51.048,67.3172 -51.1603,67.2989 -51.1974,67.2937 -51.2216,67.2924 -51.284,67.2877 -51.3763,67.2804 -51.3984,67.276 -51.4092,67.2728 -51.4174,67.2641 -51.2779,67.1678 -51.265,67.1596 -51.1449,67.0845 -51.1192,67.0728 -51.0676,67.0543 -51.0424,67.0511 -51.0285,67.0524 -51.0076,67.0548 -50.9855,67.0579 -50.9536,67.0635 -50.9065,67.0728 -50.8737,67.0806 -50.8074,67.0936 -50.7167,67.1099 -50.6933,67.1134 -50.6323,67.1199 -50.5134,67.1317 -50.4284,67.1368 -50.4025,67.1365 -50.3885,67.1351 -50.2587,67.1096 -50.2466,67.0991 -50.2602,67.0889 -50.2756,67.0855 -50.3127,67.0833 -50.3511,67.0846 -50.3784,67.0863 -50.4074,67.0912 -50.4551,67.1012 -50.4969,67.1057 -50.5333,67.1049 -50.6463,67.1018 -50.6808,67.0999 -50.7283,67.0944 -50.7497,67.0906 -50.7842,67.0834 -50.8269,67.0729 -50.8583,67.0635 -50.9134,67.051 -50.9698,67.0406 -51.0189,67.0378 -51.0443,67.0372 -51.0839,67.0385 -51.1095,67.043 -51.1293,67.0487 -51.1834,67.0671 -51.2026,67.0771 -51.3021,67.1573 -51.3116,67.1663 -51.3197,67.1776 -51.3317,67.1935 -51.3462,67.2075 -51.3603,67.2158 -51.4057,67.2335 -51.4181,67.2374 -51.4335,67.2407 -51.4653,67.245 -51.5809,67.2524 -51.7831,67.2518 -51.8836,67.2467 -51.9238,67.2476 -51.9386,67.2502 -51.9602,67.2545 -51.9717,67.2576 -51.9845,67.2616 -51.9999,67.2693 -52.0193,67.2772 -52.0435,67.2844 -52.0811,67.2828 -52.1098,67.2793 -52.2248,67.2635 -52.5046,67.2318 -52.68,67.2102 -52.7676,67.1903 -52.8334,67.1789 -52.9821,67.1614 -53.0232,67.1615 -53.155,67.166 -53.3667,67.1537 -53.4039,67.1496 -53.4747,67.1327 -53.4159,67.1203 -53.4037,67.1208 -53.3689,67.1245 -53.3442,67.1262 -53.3205,67.1261 -53.2698,67.1168 -53.286,67.1132 -53.3459,67.1062 -53.3704,67.1054 -53.4601,67.1028 -53.4857,67.1027 -53.5366,67.1038 -53.5999,67.1016 -53.6955,67.0954 -53.7054,67.0938 -53.716,67.0903 -53.808,67.0579 -53.8454,67.0122 -53.85,66.9891 -53.5432,66.9979 -53.3499,67.0164 -53.3282,67.0212 -53.3063,67.0246 -53.2823,67.0217 -53.3206,67.0061 -53.4091,66.9868 -53.4323,66.9839 -53.4695,66.9824 -53.5463,66.9832 -53.6274,66.9863 -53.6798,66.9866 -53.7164,66.9821 -53.725,66.9761 -53.7107,66.9466 -53.7027,66.9374 -53.6887,66.9299 -53.6702,66.9266 -53.6436,66.9247 -53.5512,66.921 -53.4793,66.9194 -53.4486,66.9238 -53.3748,66.927 -53.3102,66.9274 -53.122,66.9148 -53.1125,66.906 -53.1359,66.8981 -53.1458,66.8961 -53.157,66.8953 -53.1952,66.8945 -53.2434,66.8947 -53.4761,66.8972 -53.6226,66.9108 -53.6372,66.9111 -53.6916,66.9096 -53.7051,66.9055 -53.715,66.8931 -53.7059,66.8797 -53.6888,66.8719 -53.5759,66.8326 -53.5645,66.8289 -53.5391,66.8249 -53.5183,66.823 -53.4093,66.8237 -53.371,66.826 -53.2914,66.8309 -53.0936,66.8403 -53.0054,66.8362 -52.7628,66.8226 -52.7517,66.8104 -52.7393,66.808 -52.7,66.804 -52.662,66.8033 -52.6497,66.8035 -52.5053,66.8219 -52.4848,66.8269 -52.3904,66.8278 -52.3582,66.8213 -52.3458,66.7935 -52.3547,66.7884 -52.2353,66.7533 -52.2229,66.7523 -52.21,66.7519 -52.1751,66.7536 -52.1252,66.7528 -52.1472,66.7347 -52.1677,66.7295 -52.1892,66.7279 -52.2288,66.7259 -52.2422,66.7273 -52.2693,66.7334 -52.2868,66.7424 -52.3142,66.7528 -52.3508,66.7617 -52.4384,66.7765 -52.4514,66.7785 -52.4777,66.7791 -52.643,66.7761 -52.862,66.7698 -52.8738,66.7683 -52.885,66.766 -52.9446,66.7511 -52.9539,66.7473 -52.9717,66.7291 -52.9472,66.7205 -52.9874,66.6969 -52.9919,66.6787 -52.9685,66.6849 -52.9424,66.6952 -52.9334,66.7001 -52.9214,66.7039 -52.9024,66.7082 -52.8879,66.7103 -52.7633,66.7147 -52.7474,66.7092 -52.7441,66.6951 -52.7537,66.6861 -52.833,66.6709 -52.8489,66.6685 -52.8633,66.6672 -52.968,66.6625 -53.0203,66.6607 -53.0394,66.6617 -53.0581,66.6661 -53.0857,66.6649 -53.0957,66.6601 -52.9393,66.6445 -52.9164,66.6397 -52.8511,66.6345 -52.8366,66.6353 -52.7808,66.6422 -52.7671,66.6442 -52.7359,66.6523 -52.713,66.6567 -52.49,66.6541 -52.4775,66.6485 -52.4789,66.6188 -52.5673,66.6093 -52.7691,66.5948 -52.8643,66.5884 -53.0101,66.5958 -53.1181,66.6093 -53.15,66.612 -53.1663,66.6096 -53.3328,66.5565 -53.3428,66.5534 -53.3688,66.5194 -53.2086,66.4805 -53.1415,66.4672 -53.1153,66.4632 -53.0643,66.4615 -53.0154,66.4624 -52.9741,66.4644 -52.946,66.4688 -52.8849,66.4863 -52.8745,66.4889 -52.8524,66.4912 -52.8416,66.4919 -52.7399,66.4906 -52.726,66.4892 -52.713,66.4861 -52.6347,66.4752 -52.5202,66.4658 -52.4824,66.4627 -52.4026,66.4584 -52.3655,66.4607 -52.3311,66.4653 -52.3194,66.465 -52.3103,66.4603 -52.3346,66.4379 -52.3761,66.4347 -52.4251,66.4353 -52.5615,66.4383 -52.6172,66.4395 -52.647,66.4436 -52.6582,66.4464 -52.6785,66.4546 -52.6899,66.4577 -52.703,66.4597 -52.8135,66.4658 -52.8389,66.4626 -52.8496,66.4603 -52.8618,66.4536 -52.8791,66.4455 -52.9516,66.4264 -52.9621,66.4242 -53.0496,66.4084 -53.0619,66.4076 -53.1347,66.4098 -53.1623,66.4124 -53.2279,66.4256 -53.241,66.4323 -53.1747,66.4332 -53.1368,66.4298 -53.1242,66.4295 -53.104,66.4325 -53.25,66.4522 -53.2622,66.4516 -53.4039,66.4445 -53.5194,66.4222 -53.5858,66.2676 -53.5881,66.2458 -53.547,66.1911 -53.507,66.1585 -53.4804,66.1581 -53.3903,66.1705 -53.2523,66.1841 -53.1315,66.1933 -53.0143,66.201 -53.0626,66.1922 -53.2268,66.1651 -53.2381,66.1636 -53.273,66.1616 -53.3212,66.1592 -53.3574,66.1574 -53.3821,66.1554 -53.402,66.1518 -53.4707,66.1273 -53.5161,66.0712 -53.5121,66.0605 -53.4659,66.0324 -53.4201,66.0191 -53.406,66.0172 -53.3683,66.0156 -53.3232,66.0186 -53.2336,66.0304 -53.1994,66.0358 -53.1787,66.0398 -52.9383,66.0983 -52.8991,66.1099 -52.8892,66.1132 -52.8232,66.1404 -52.7637,66.1667 -52.7371,66.18 -52.6935,66.2052 -52.6787,66.2168 -52.6586,66.2328 -52.6348,66.25 -52.617,66.2626 -52.6034,66.2688 -52.4001,66.338 -52.3531,66.3533 -52.2492,66.3788 -52.0917,66.4154 -52.0723,66.4171 -52.0506,66.4216 -52.0196,66.4317 -51.9943,66.4498 -51.9738,66.4716 -51.946,66.5028 -51.936,66.5191 -51.9269,66.5315 -51.9011,66.5554 -51.8887,66.5652 -51.8753,66.5723 -51.805,66.5886 -51.7515,66.5996 -51.6641,66.6183 -51.6416,66.6239 -51.6208,66.6299 -51.5576,66.653 -51.4896,66.6853 -51.4695,66.6992 -51.3403,66.7496 -51.1998,66.7977 -51.1171,66.8237 -51.0797,66.834 -51.0649,66.836 -51.0242,66.8379 -50.9888,66.8395 -50.9022,66.8646 -50.8727,66.8808 -50.8611,66.8885 -50.8438,66.8936 -50.8118,66.901 -50.4574,66.9597 -50.4351,66.9629 -50.291,66.9813 -50.2553,66.9852 -50.2308,66.9868 -50.187,66.9825 -50.3102,66.9597 -50.383,66.956 -50.4064,66.9566 -50.4431,66.9546 -50.467,66.95 -50.5069,66.9386 -50.5175,66.9353 -50.5258,66.9291 -50.3933,66.911 -50.3796,66.9097 -50.3691,66.9095 -50.3212,66.9153 -50.298,66.9189 -50.2885,66.9216 -50.2518,66.9251 -50.2264,66.9259 -50.2132,66.9253 -50.1753,66.9201 -50.1333,66.9063 -50.1079,66.9017 -50.0831,66.9009 -50.0575,66.9019 -49.9927,66.9076 -49.9771,66.9095 -49.8984,66.8916 -49.9229,66.8833 -49.9782,66.8839 -50.0617,66.8852 -50.1382,66.892 -50.2727,66.9102 -50.3378,66.8982 -50.3889,66.9001 -50.4248,66.9054 -50.4848,66.9147 -50.5746,66.9203 -50.588,66.9181 -50.8518,66.8501 -50.8614,66.8456 -50.8969,66.8258 -50.9025,66.8175 -50.7331,66.7696 -50.6669,66.7602 -50.6498,66.7598 -50.6289,66.7661 -50.5968,66.779 -50.5685,66.7825 -50.558,66.7828 -50.312,66.7724 -50.3008,66.7711 -50.244,66.7577 -50.2279,66.7486 -50.251,66.743 -50.3106,66.743 -50.4252,66.7429 -50.438,66.7434 -50.4625,66.7472 -50.6407,66.7494 -50.7067,66.7406 -50.8216,66.7494 -50.8328,66.7515 -50.8791,66.7605 -50.9403,66.7774 -50.9508,66.7813 -50.9786,66.7881 -51.0079,66.7942 -51.0193,66.7943 -51.0306,66.7924 -51.1661,66.7591 -51.3925,66.6668 -51.4098,66.6596 -51.5036,66.6163 -51.7732,66.5526 -51.7849,66.5496 -51.7943,66.5455 -51.8117,66.5356 -51.8469,66.5091 -51.9207,66.4447 -51.9236,66.433 -51.9149,66.424 -51.9612,66.3976 -52.0666,66.3746 -52.1846,66.3529 -52.2079,66.3499 -52.2323,66.3506 -52.257,66.3503 -52.267,66.3487 -52.298,66.338 -52.4953,66.2678 -52.5249,66.2555 -52.6047,66.214 -52.6176,66.1911 -52.6359,66.1775 -52.6511,66.1685 -52.6922,66.1508 -52.7371,66.135 -52.8354,66.1048 -52.8855,66.0904 -52.9483,66.0735 -53.0133,66.0597 -53.0666,66.0466 -53.0978,66.0387 -53.2,66.0121 -53.2202,66.0063 -53.2684,65.99 -53.3101,65.9743 -53.3289,65.9653 -53.3532,65.9458 -53.3312,65.9377 -53.3073,65.9357 -53.2907,65.937 -53.2377,65.9482 -53.2175,65.9509 -53.2031,65.9502 -53.1848,65.9437 -53.2002,65.9252 -53.0653,65.9418 -53.0315,65.9421 -53.0215,65.9342 -53.0381,65.9281 -53.0668,65.9193 -53.0903,65.9172 -53.1943,65.9119 -53.2075,65.9116 -53.2219,65.9141 -53.2325,65.9188 -53.2471,65.923 -53.2743,65.9215 -53.3588,65.8894 -53.3529,65.8743 -53.3369,65.8686 -53.2772,65.8503 -53.2658,65.8492 -53.2461,65.8472 -53.1474,65.8543 -53.1213,65.8573 -53.0771,65.8689 -53.0119,65.8905 -52.9966,65.8961 -52.9839,65.9003 -52.9299,65.9168 -52.918,65.9197 -52.8624,65.936 -52.8294,65.9416 -52.7941,65.9457 -52.7835,65.9452 -52.7716,65.9364 -52.7815,65.9288 -52.8125,65.9235 -52.8796,65.9107 -52.9198,65.9005 -53.1257,65.8401 -53.1353,65.8259 -53.1194,65.7848 -53.1093,65.7794 -53.0977,65.7782 -53.0554,65.7733 -53.0444,65.7733 -53.0315,65.7742 -53.0126,65.7777 -52.8509,65.8148 -52.7474,65.839 -52.6176,65.874 -52.5116,65.8969 -52.4925,65.8699 -52.4594,65.8415 -52.4357,65.8304 -52.419,65.8232 -52.3994,65.819 -52.2117,65.8163 -52.1964,65.8195 -52.1839,65.8268 -52.1704,65.8458 -52.1641,65.8539 -52.1517,65.8667 -52.1295,65.8839 -52.1037,65.9024 -52.0887,65.9096 -52.0741,65.9145 -51.9658,65.9257 -51.817,65.9518 -51.7269,65.9726 -51.7108,65.9051 -51.7092,65.8818 -51.7734,65.9078 -51.7837,65.9119 -51.8079,65.9192 -51.8229,65.9222 -51.8363,65.9238 -51.8695,65.9213 -51.9301,65.9084 -52.0599,65.8744 -52.0904,65.8658 -52.1063,65.8592 -52.1246,65.8508 -52.1514,65.8358 -52.1632,65.8252 -52.1637,65.8128 -52.2144,65.7861 -52.3344,65.7937 -52.3742,65.7977 -52.4027,65.8019 -52.4589,65.8126 -52.4862,65.819 -52.5319,65.8393 -52.5429,65.8453 -52.5558,65.8503 -52.5672,65.8526 -52.5805,65.854 -52.592,65.8526 -52.6259,65.8451 -52.902,65.7813 -52.9229,65.7746 -52.9505,65.7628 -52.9785,65.7313 -52.9624,65.7232 -52.9749,65.7098 -53.081,65.68 -53.1304,65.668 -53.1578,65.6603 -53.1143,65.6461 -53.0087,65.6596 -52.9925,65.664 -52.89,65.6931 -52.8697,65.6986 -52.8513,65.7051 -52.8311,65.7123 -52.8134,65.72 -52.799,65.7235 -52.7683,65.7204 -52.7527,65.7143 -52.8989,65.6608 -52.9366,65.6553 -52.969,65.6532 -53.0026,65.6483 -53.0539,65.6382 -53.073,65.6304 -53.1262,65.6005 -53.1153,65.5956 -53.055,65.5859 -53.0437,65.5844 -52.9675,65.5817 -52.8923,65.5841 -52.7952,65.6014 -52.7726,65.6041 -52.7623,65.6038 -52.7515,65.6007 -52.7334,65.5915 -52.7212,65.5891 -52.7042,65.5894 -52.6803,65.598 -52.6478,65.6295 -52.6368,65.6421 -52.6204,65.6672 -52.6166,65.6779 -52.6113,65.6993 -52.6007,65.7203 -52.582,65.7219 -52.5701,65.7086 -52.5803,65.6366 -52.6126,65.6084 -52.6387,65.5886 -52.6569,65.5723 -52.6627,65.5533 -52.6534,65.5512 -52.5791,65.5674 -52.535,65.5723 -52.5721,65.557 -52.6776,65.5209 -52.6955,65.5123 -52.6987,65.4663 -52.6929,65.4547 -52.6141,65.4168 -52.5806,65.4197 -52.5702,65.4256 -52.5131,65.4619 -52.5069,65.4764 -52.4995,65.4868 -52.3927,65.5593 -52.3636,65.5585 -52.3943,65.5223 -52.4085,65.5067 -52.4225,65.4951 -52.4423,65.4839 -52.4567,65.4793 -52.4758,65.4695 -52.4887,65.459 -52.4985,65.4447 -52.5066,65.3988 -52.3906,65.3062 -52.3705,65.3099 -52.3534,65.3176 -52.2218,65.3551 -52.118,65.3823 -51.9944,65.4138 -51.9717,65.4172 -51.9512,65.4217 -51.8821,65.4423 -51.8302,65.4644 -51.8129,65.48 -51.8304,65.5134 -51.8505,65.5551 -51.8434,65.5764 -51.6018,65.628 -51.3808,65.6806 -51.2091,65.7054 -51.1519,65.7131 -51.1287,65.7147 -51.1059,65.7135 -50.8792,65.6981 -50.6204,65.672 -50.5921,65.6363 -50.445,65.6252 -50.4435,65.6095 -50.4586,65.6024 -50.5892,65.5937 -50.6144,65.5945 -50.6277,65.5959 -50.6415,65.5983 -50.6616,65.603 -50.6953,65.6132 -50.7144,65.6215 -50.7223,65.6282 -50.7405,65.6379 -50.8071,65.6638 -50.8195,65.6674 -50.8441,65.6732 -50.8793,65.6778 -50.8941,65.6781 -51.1406,65.6771 -51.1646,65.676 -51.2542,65.6696 -51.2887,65.6663 -51.3858,65.6522 -51.4294,65.6449 -51.5905,65.6162 -51.6093,65.6104 -51.7741,65.5578 -51.7838,65.5545 -51.7948,65.5396 -51.7748,65.5189 -51.7489,65.5204 -51.7386,65.5229 -51.7045,65.526 -51.6821,65.5275 -51.6677,65.5259 -51.6154,65.5011 -51.627,65.4978 -51.6597,65.4941 -51.7436,65.4823 -51.8199,65.4388 -51.9593,65.3975 -52.0489,65.3825 -52.284,65.3143 -52.3025,65.3082 -52.4301,65.2592 -52.4567,65.2385 -52.426,65.1096 -52.4141,65.1036 -52.4049,65.1053 -52.3527,65.1181 -52.3373,65.1275 -52.2817,65.1739 -52.2272,65.2106 -52.1182,65.2461 -52.0992,65.2481 -52.0899,65.2437 -52.0827,65.2322 -52.0841,65.1963 -52.1181,65.17 -52.1344,65.1597 -52.1611,65.147 -52.1806,65.1386 -52.1957,65.1333 -52.2057,65.1204 -52.1912,65.1167 -52.1506,65.117 -52.1263,65.12 -52.0919,65.1287 -52.0698,65.1401 -52.0263,65.1666 -51.9956,65.1575 -52.1685,65.014 -52.1793,65.0056 -52.1761,64.9949 -52.0568,64.9185 -52.0445,64.9216 -52.0182,64.9356 -51.9947,64.9381 -51.9819,64.9368 -51.9718,64.9333 -51.9078,64.8984 -51.9122,64.8815 -51.9714,64.8645 -52.0444,64.847 -52.1117,64.8305 -52.1212,64.8205 -52.121,64.7494 -52.1169,64.7326 -52.1075,64.7262 -52.0817,64.7238 -52.0717,64.7229 -52.0223,64.738 -52.0087,64.7433 -51.9499,64.7741 -51.9401,64.7844 -51.9402,64.7992 -51.9249,64.8244 -51.8422,64.797 -51.8532,64.7781 -51.8837,64.7565 -51.8934,64.7536 -51.9144,64.7496 -51.9339,64.7485 -51.9656,64.7419 -51.9821,64.7339 -51.999,64.7174 -51.9871,64.7097 -51.9742,64.7084 -51.9526,64.7094 -51.8755,64.7194 -51.8386,64.7301 -51.7703,64.757 -51.7627,64.7681 -51.7701,64.7807 -51.7668,64.7951 -51.7206,64.847 -51.6114,64.9319 -51.5996,64.9375 -51.5757,64.9406 -51.5514,64.9383 -51.5334,64.935 -51.4601,64.9096 -51.4692,64.8948 -51.487,64.8879 -51.5156,64.8854 -51.5256,64.8875 -51.5387,64.889 -51.5473,64.8834 -51.6008,64.8058 -51.5781,64.8052 -51.5459,64.8104 -51.5358,64.8126 -51.4811,64.8289 -51.4627,64.8345 -51.3452,64.8888 -51.3221,64.9099 -51.1726,64.9522 -51.1569,64.948 -51.1477,64.9347 -51.1565,64.9232 -51.2025,64.9055 -51.2177,64.9005 -51.2534,64.8916 -51.2924,64.8798 -51.3113,64.8706 -51.385,64.8195 -51.4124,64.7977 -51.4333,64.777 -51.4464,64.7754 -51.5427,64.7824 -51.7256,64.7513 -51.7569,64.7452 -51.7838,64.7335 -51.8343,64.7017 -51.9503,64.6628 -52.0127,64.6425 -52.0337,64.6129 -52.0181,64.5624 -51.954,64.5189 -51.9993,64.4719 -52.0133,64.3734 -51.9974,64.3027 -51.9822,64.3007 -51.9624,64.3139 -51.942,64.3222 -51.9222,64.2826 -51.9022,64.1873 -51.903,64.1763 -51.9237,64.1665 -51.9303,64.1557 -51.9017,64.1223 -51.8822,64.1206 -51.7435,64.1367 -51.7329,64.1381 -51.7215,64.1416 -51.6905,64.1571 -51.5625,64.2267 -51.5737,64.2684 -51.5641,64.2908 -51.5281,64.3049 -51.5169,64.3086 -51.501,64.3159 -51.3912,64.396 -51.3406,64.4374 -51.3329,64.4607 -51.3277,64.487 -51.3295,64.5087 -51.3241,64.5192 -51.3139,64.5333 -51.1932,64.6501 -51.1845,64.6557 -51.1751,64.66 -51.1225,64.6817 -51.0945,64.6925 -51.0651,64.6997 -51.0445,64.7026 -51.0224,64.7045 -50.963,64.7053 -50.9361,64.6992 -50.9225,64.6742 -50.9357,64.6698 -50.9562,64.6665 -50.9725,64.6716 -50.9914,64.6752 -51.0536,64.6357 -51.0715,64.6141 -51.117,64.5455 -51.1089,64.539 -51.0587,64.5343 -51.0416,64.5334 -50.9319,64.5417 -50.9101,64.5525 -50.9056,64.5634 -50.852,64.5925 -50.7225,64.6356 -50.6007,64.6621 -50.5873,64.6615 -50.5335,64.6779 -50.5443,64.751 -50.5877,64.7728 -50.6086,64.8305 -50.628,64.9157 -50.6418,64.9222 -50.6547,64.9234 -50.6771,64.9215 -50.6959,64.9173 -50.7053,64.9127 -50.7206,64.9039 -50.7505,64.8888 -50.7655,64.8876 -50.7793,64.8939 -50.7851,64.9022 -50.8323,65.0075 -50.8586,65.068 -50.8802,65.1354 -50.8651,65.1355 -50.7455,65.077 -50.7184,65.0296 -50.685,64.959 -50.5921,64.9133 -50.5907,64.8747 -50.586,64.8248 -50.4633,64.6902 -50.4427,64.6827 -50.2165,64.661 -50.2016,64.6626 -50.1815,64.6701 -50.1591,64.6827 -50.1419,64.6972 -50.1252,64.7138 -50.108,64.728 -50.0926,64.7402 -50.0757,64.7489 -50.0488,64.7565 -49.92,64.7879 -49.9095,64.7904 -49.8993,64.7843 -49.9119,64.7736 -49.9224,64.7684 -49.9495,64.7551 -49.9599,64.7516 -49.9877,64.7443 -50.0167,64.7363 -50.0263,64.733 -50.036,64.7272 -50.1101,64.6615 -50.1115,64.6419 -50.1023,64.6335 -50.0696,64.6163 -50.0537,64.6135 -50.0296,64.6179 -50.0122,64.6255 -49.9931,64.6303 -49.971,64.6304 -49.9457,64.6275 -49.8922,64.6193 -49.8896,64.6096 -49.8984,64.6034 -49.9405,64.5911 -49.9848,64.585 -49.9951,64.5829 -50.0043,64.5786 -50.0228,64.555 -50.0209,64.5388 -49.9645,64.4478 -49.9314,64.4325 -49.8508,64.4108 -49.7287,64.3706 -49.6655,64.3458 -49.649,64.3471 -49.5933,64.3487 -49.5797,64.3457 -49.4894,64.2739 -49.4858,64.2601 -49.5152,64.2503 -49.5443,64.2491 -49.5678,64.2531 -49.5998,64.2603 -49.6203,64.2672 -49.6601,64.2821 -49.7552,64.3175 -49.9503,64.3777 -49.978,64.3845 -50.0349,64.3967 -50.0647,64.415 -50.0731,64.4219 -50.0969,64.444 -50.1173,64.4641 -50.151,64.5212 -50.1487,64.5311 -50.149,64.5462 -50.155,64.5558 -50.1811,64.5798 -50.1912,64.5854 -50.2011,64.5893 -50.223,64.5962 -50.3545,64.6229 -50.4248,64.6246 -50.5511,64.6116 -50.5615,64.6051 -50.5014,64.5783 -50.4899,64.5784 -50.4699,64.583 -50.453,64.5899 -50.4339,64.5966 -50.4186,64.5972 -50.4041,64.5971 -50.3923,64.5963 -50.3802,64.5945 -50.3664,64.5913 -50.3541,64.585 -50.3602,64.5752 -50.4656,64.5536 -50.4844,64.5504 -50.5185,64.5494 -50.5295,64.5496 -50.5802,64.5554 -50.6348,64.5653 -50.6475,64.5681 -50.6728,64.5709 -50.6946,64.572 -50.7556,64.5529 -50.7791,64.5433 -50.807,64.515 -50.7912,64.5053 -50.778,64.5029 -50.7431,64.5021 -50.6414,64.5005 -50.587,64.4603 -50.5752,64.4488 -50.5618,64.4408 -50.5501,64.4377 -50.5377,64.4363 -50.5255,64.437 -50.4875,64.4483 -50.3534,64.4676 -50.3417,64.4667 -50.3609,64.4532 -50.38,64.447 -50.4204,64.4369 -50.4507,64.4302 -50.4828,64.4237 -50.5119,64.4149 -50.5336,64.4078 -50.5487,64.3991 -50.5404,64.3898 -50.4735,64.3684 -50.4256,64.3593 -50.3017,64.3398 -50.271,64.347 -50.2442,64.3588 -50.1643,64.3866 -50.1436,64.3926 -50.1251,64.3973 -50.1113,64.3994 -50.0941,64.3944 -50.0767,64.3669 -50.1494,64.3293 -50.1831,64.3191 -50.2418,64.304 -50.2526,64.303 -50.2631,64.3032 -50.356,64.3139 -50.4847,64.2975 -50.4994,64.2936 -50.5219,64.2941 -50.5616,64.3014 -50.6361,64.3214 -50.6496,64.3357 -50.6606,64.3412 -50.6723,64.3451 -50.6939,64.346 -50.7406,64.3393 -50.7555,64.3359 -50.7816,64.3281 -50.805,64.3191 -50.8636,64.2773 -50.9361,64.1915 -50.9227,64.1847 -50.9091,64.1813 -50.8836,64.1776 -50.861,64.1754 -50.8492,64.1749 -50.8377,64.1754 -50.8154,64.1776 -50.7855,64.1857 -50.7722,64.1862 -50.7606,64.1829 -50.7459,64.1727 -50.8363,64.1425 -50.8502,64.1387 -51.1299,64.0977 -51.1596,64.0936 -51.1709,64.093 -51.2023,64.0951 -51.2483,64.1077 -51.2598,64.1111 -51.2712,64.1167 -51.2895,64.1277 -51.3221,64.1379 -51.3419,64.1396 -51.3667,64.1396 -51.5039,64.1379 -51.5153,64.1373 -51.6462,64.1227 -51.6595,64.1092 -51.5925,64.0655 -51.5828,64.0617 -51.5574,64.0696 -51.5283,64.0801 -51.4958,64.0939 -51.4806,64.1006 -51.4445,64.1139 -51.4167,64.1161 -51.3186,64.0901 -51.294,64.0724 -51.281,64.0602 -51.2956,64.066 -51.3086,64.0749 -51.3232,64.078 -51.374,64.086 -51.4168,64.0879 -51.4327,64.0882 -51.4695,64.0832 -51.4904,64.075 -51.544,64.0393 -51.5289,64.0318 -51.4593,64.012 -51.344,63.999 -51.2442,64.0137 -51.1675,64.024 -51.1355,64.0281 -51.1137,64.0301 -51.0282,64.0363 -51.0048,64.0376 -50.9592,64.0384 -50.8594,64.06 -50.7281,64.0892 -50.5009,64.1501 -50.4858,64.1573 -50.3756,64.2115 -50.3826,64.1781 -50.4435,64.1288 -50.4521,64.1003 -50.4404,64.0989 -50.2918,64.1153 -50.2754,64.1185 -50.2525,64.1239 -50.1516,64.1437 -50.1285,64.1476 -50.0597,64.1573 -50.044,64.1581 -50.0215,64.1535 -49.9583,64.1274 -49.949,64.1164 -49.9805,64.0848 -50.0028,64.1054 -50.0126,64.1092 -50.0404,64.1154 -50.0742,64.1199 -50.1055,64.1219 -50.1515,64.1154 -50.2822,64.0833 -50.2971,64.0784 -50.372,64.0582 -50.5256,64.0868 -50.619,64.0709 -50.6426,64.0596 -50.6667,64.0488 -50.6829,64.0425 -50.7602,64.0168 -50.7726,64.0144 -50.7926,64.0122 -50.8283,64.0137 -50.883,64.0142 -51.1633,63.9945 -51.1755,63.9934 -51.4594,63.9641 -51.4816,63.9605 -51.4999,63.9558 -51.5362,63.9431 -51.5558,63.9316 -51.5214,63.9202 -51.4905,63.911 -51.4782,63.9078 -51.4082,63.8916 -51.3977,63.89 -51.3824,63.8912 -51.3692,63.8947 -51.3547,63.9021 -51.3439,63.9051 -51.3215,63.906 -51.2847,63.8991 -51.2729,63.8954 -51.261,63.8879 -51.2755,63.8083 -51.2967,63.7653 -51.3273,63.7687 -51.3366,63.7738 -51.3516,63.7761 -51.3625,63.7733 -51.3738,63.7618 -51.3547,63.7311 -51.3418,63.7261 -51.3293,63.7248 -51.2283,63.7386 -51.2171,63.7408 -51.1979,63.7467 -51.1804,63.7549 -51.1582,63.7686 -51.14,63.7775 -51.0803,63.8048 -51.0534,63.8139 -50.8956,63.8498 -50.8816,63.8527 -50.8238,63.8521 -50.8348,63.8436 -50.856,63.8364 -50.928,63.8194 -51.0083,63.7975 -51.0524,63.7816 -51.12,63.7569 -51.4017,63.6917 -51.4257,63.6832 -51.4386,63.6735 -51.4464,63.6621 -51.4565,63.6286 -51.4328,63.6021 -51.4018,63.587 -51.3788,63.5814 -51.362,63.5802 -51.3483,63.5795 -51.3277,63.5734 -51.2529,63.5384 -51.1086,63.4461 -51.068,63.4246 -51.0401,63.4266 -51.0205,63.438 -51.0261,63.4495 -51.0427,63.4613 -51.0637,63.4888 -51.0812,63.5134 -51.085,63.5226 -51.0838,63.5441 -50.9813,63.5871 -50.9542,63.5854 -50.8971,63.5676 -50.8712,63.5616 -50.8574,63.5589 -50.8201,63.5521 -50.7861,63.5493 -50.764,63.5501 -50.6618,63.5653 -50.6419,63.5695 -50.5598,63.5806 -50.4531,63.5912 -50.4339,63.5929 -50.4082,63.5906 -50.4089,63.5789 -50.4329,63.5439 -50.4496,63.5313 -50.4695,63.5346 -50.4978,63.5639 -50.6142,63.5528 -50.8135,63.5367 -50.8262,63.5415 -50.8372,63.5437 -50.9343,63.5603 -51.0313,63.5419 -51.0471,63.5196 -51.0462,63.506 -51.0412,63.4959 -51.0113,63.4545 -50.9991,63.4478 -50.9534,63.4392 -50.9155,63.45 -50.8323,63.4624 -50.7066,63.4763 -50.6848,63.4768 -50.6469,63.4722 -50.6486,63.4601 -50.6732,63.4493 -50.7235,63.443 -50.8769,63.4243 -51.0197,63.41 -51.0401,63.408 -51.0614,63.4007 -51.1194,63.3631 -51.0696,63.306 -51.058,63.3002 -51.0458,63.2974 -51.0266,63.2956 -50.9538,63.2911 -50.6766,63.298 -50.4793,63.3094 -50.4576,63.3118 -50.4286,63.3178 -50.3919,63.3282 -50.3325,63.3392 -50.3137,63.3418 -50.2809,63.344 -50.2613,63.3426 -50.181,63.3224 -50.4227,63.2891 -50.4833,63.2838 -50.7358,63.2735 -50.7559,63.2727 -50.8666,63.2745 -50.8895,63.2754 -50.9112,63.2767 -50.9424,63.2749 -51.0072,63.2626 -51.0026,63.227 -50.9593,63.1065 -50.9451,63.0962 -50.9323,63.0906 -50.9086,63.083 -50.8959,63.0806 -50.8844,63.0803 -50.8675,63.0867 -50.8489,63.1008 -50.8378,63.1108 -50.8133,63.1259 -50.7625,63.1507 -50.7363,63.1622 -50.7038,63.1719 -50.6806,63.1724 -50.7104,63.1527 -50.7342,63.1405 -50.7491,63.1389 -50.8125,63.1054 -50.8288,63.0912 -50.8321,63.0804 -50.821,63.0643 -50.8029,63.0612 -50.7422,63.0924 -50.6948,63.1191 -50.6382,63.1213 -50.4711,63.1494 -50.4557,63.1472 -50.4188,63.114 -50.4026,63.1066 -50.3637,63.104 -50.3437,63.108 -50.3018,63.1236 -50.2728,63.139 -50.2636,63.1477 -50.086,63.1521 -49.9966,63.1541 -49.9619,63.1511 -49.9812,63.1397 -49.9943,63.1374 -50.017,63.1379 -50.0384,63.1368 -50.122,63.1314 -50.2474,63.12 -50.2689,63.1168 -50.2874,63.113 -50.3157,63.1043 -50.3418,63.0928 -50.3527,63.0828 -50.3288,63.0801 -50.3232,63.0688 -50.3368,63.0587 -50.3672,63.0483 -50.4324,63.0356 -50.5072,63.0169 -50.5138,62.9624 -50.4949,62.8928 -50.3096,62.863 -50.2036,62.8904 -50.1858,62.896 -50.1609,62.9413 -50.1308,62.9611 -50.0643,62.9416 -50.0521,62.9378 -50.0723,62.9241 -50.1425,62.8984 -50.2211,62.8573 -50.2909,62.787 -50.3017,62.7744 -50.285,62.7107 -50.2715,62.7047 -50.2566,62.7063 -50.2451,62.7136 -50.2352,62.7262 -50.2306,62.7381 -50.2245,62.7514 -50.0956,62.8555 -50.0795,62.858 -50.015,62.8855 -49.9626,62.8917 -49.9331,62.8974 -49.8759,62.9127 -49.8402,62.9244 -49.8139,62.9358 -49.7174,62.9757 -49.6946,62.983 -49.6718,62.984 -49.6167,62.9826 -49.6026,62.9778 -49.6163,62.9677 -49.7097,62.9281 -49.7363,62.919 -49.7581,62.915 -49.7784,62.9117 -49.8259,62.907 -49.8669,62.9003 -49.9674,62.8778 -50.0445,62.8594 -50.0527,62.8534 -50.1453,62.7532 -50.2185,62.664 -50.18,62.6266 -50.1579,62.627 -49.9858,62.7185 -49.8488,62.793 -49.8501,62.7502 -49.9678,62.6966 -50.1148,62.6004 -50.1259,62.5929 -50.2179,62.4176 -50.114,62.3449 -49.9289,62.257 -49.8355,62.2558 -49.8116,62.2434 -49.7739,62.209 -49.7519,62.1879 -49.7406,62.1614 -49.7113,62.1742 -49.6159,62.1875 -49.5943,62.1855 -49.4212,62.1787 -49.3065,62.1798 -49.2992,62.1709 -49.3433,62.1589 -49.4606,62.1526 -49.4754,62.1505 -49.5045,62.1277 -49.5421,62.0747 -49.3759,62.0689 -49.3605,62.0723 -49.3488,62.0773 -49.342,62.088 -49.3023,62.1027 -49.2911,62.1128 -49.2784,62.1165 -49.2627,62.1151 -49.1986,62.0962 -49.2011,62.0582 -49.2962,62.0212 -49.3253,62.0141 -49.3493,62.0191 -49.4011,62.0293 -49.4287,62.0341 -49.4666,62.0407 -49.4989,62.0445 -49.5098,62.0449 -49.5502,62.044 -49.5924,62.0412 -49.6018,62.0364 -49.5992,61.9335 -49.583,61.9232 -49.5733,61.92 -49.5295,61.9105 -49.5064,61.9074 -49.3093,61.9079 -49.2897,61.9092 -49.2689,61.9106 -49.0773,61.9404 -49.0631,61.9448 -49.0521,61.958 -49.0521,61.9719 -49.0559,61.9843 -49.0597,62.0007 -49.0596,62.0159 -49.0537,62.0318 -49.006,62.0934 -48.9887,62.1081 -48.9371,62.1371 -48.9263,62.1377 -48.913,62.1299 -48.9185,62.1193 -48.9321,62.1083 -48.946,62.0972 -48.979,62.0602 -48.9908,62.0437 -49.001,62.0276 -49.005,62.0122 -48.997,62.001 -48.9755,62.0013 -48.8854,62.006 -48.7481,62.0003 -48.7701,61.9829 -48.8023,61.9718 -48.8318,61.9694 -48.9038,61.9698 -48.9759,61.9351 -49.0422,61.8988 -49.0591,61.8911 -49.0704,61.8903 -49.0892,61.8915 -49.1318,61.8977 -49.1431,61.8982 -49.1546,61.8983 -49.173,61.8968 -49.1897,61.8945 -49.2787,61.8709 -49.3434,61.766 -49.3174,61.7371 -49.287,61.7297 -49.2629,61.7306 -49.2434,61.7353 -49.232,61.7412 -49.2206,61.7513 -49.1945,61.7879 -49.1199,61.8081 -49.1742,61.7613 -49.2592,61.6902 -49.1658,61.641 -49.1433,61.6363 -49.1323,61.6395 -49.0899,61.6674 -49.0905,61.7119 -49.099,61.7298 -49.101,61.7445 -49.0981,61.7545 -49.0938,61.7638 -49.0702,61.7821 -48.9063,61.8785 -48.87,61.8924 -48.8492,61.8994 -48.825,61.9046 -48.7948,61.9082 -48.7348,61.9133 -48.7034,61.9139 -48.6924,61.9134 -48.6812,61.9117 -48.6649,61.9058 -48.6585,61.8984 -48.6528,61.8821 -48.6618,61.8767 -48.6722,61.8767 -48.6824,61.8779 -48.7046,61.8793 -48.7255,61.8788 -48.7956,61.8705 -48.8077,61.8659 -49.0093,61.7522 -49.0219,61.7415 -49.0292,61.7314 -49.0545,61.6445 -48.9933,61.6537 -48.9523,61.6477 -48.9556,61.6255 -48.9752,61.6089 -48.9725,61.5798 -48.9587,61.544 -48.8874,61.5284 -48.8622,61.527 -48.8518,61.5271 -48.8349,61.5286 -48.6488,61.5497 -48.6208,61.5548 -48.6109,61.5575 -48.5936,61.5657 -48.5666,61.5745 -48.5531,61.5738 -48.5414,61.5713 -48.5183,61.5655 -48.5058,61.5614 -48.5727,61.5381 -48.5885,61.5337 -48.6089,61.5304 -48.8305,61.5035 -48.8527,61.5052 -48.9309,61.5135 -48.9597,61.5222 -48.9963,61.5276 -49.1316,61.5287 -49.1553,61.527 -49.1704,61.5188 -49.2028,61.4826 -49.0071,61.4148 -48.855,61.3908 -48.7406,61.4093 -48.4378,61.4681 -48.4196,61.4731 -48.3764,61.4864 -48.3476,61.496 -48.3003,61.5149 -48.2912,61.5197 -48.2669,61.5291 -48.2512,61.53 -48.14,61.4609 -48.1522,61.4542 -48.186,61.451 -48.3163,61.4419 -48.585,61.4029 -48.7084,61.3885 -48.7191,61.3892 -48.7378,61.387 -48.7644,61.3803 -48.8926,61.348 -48.9514,61.332 -48.971,61.3246 -48.8872,61.2813 -48.7454,61.3042 -48.6524,61.3218 -48.5802,61.3199 -48.556,61.3152 -48.3914,61.298 -48.2859,61.2893 -48.2879,61.227 -48.3033,61.2219 -48.3389,61.22 -48.3945,61.2068 -48.4189,61.2059 -48.4631,61.2091 -48.4743,61.2109 -48.4891,61.209 -48.5218,61.1862 -48.5416,61.1674 -48.5462,61.1361 -48.3832,61.0985 -48.3372,61.1057 -48.2702,61.1324 -48.2293,61.1321 -48.2367,61.1104 -48.246,61.1057 -48.2652,61.0977 -48.2846,61.0955 -48.3467,61.0826 -48.3397,61.0638 -48.3179,61.0581 -48.2952,61.0548 -48.2616,61.0512 -48.2283,61.0499 -48.2089,61.0515 -48.1851,61.0542 -48.1255,61.0617 -48.1429,61.0739 -48.174,61.1079 -48.1692,61.1214 -48.1592,61.1395 -48.152,61.1675 -48.0299,61.2408 -47.9011,61.2572 -47.8628,61.2574 -47.8413,61.257 -47.8289,61.2479 -47.8403,61.2417 -47.8594,61.2425 -47.88,61.2422 -47.923,61.2372 -47.9853,61.2218 -48.0154,61.2046 -48.1149,61.1305 -48.127,61.1168 -48.1241,61.106 -48.1153,61.097 -48.002,61.0148 -47.9879,61.0116 -47.8909,61.0212 -47.8581,61.0299 -47.8018,61.0476 -47.742,60.9753 -47.7454,60.9662 -47.7568,60.9619 -47.7671,60.96 -47.7879,60.9583 -47.8668,60.961 -47.9991,60.9545 -48.1379,60.9461 -48.2169,60.9396 -48.3067,60.9259 -48.3145,60.9179 -48.3057,60.9089 -48.2816,60.9031 -48.2241,60.905 -48.212,60.9134 -48.1997,60.9182 -48.1733,60.9214 -48.1628,60.9207 -48.1516,60.919 -48.1012,60.9065 -48.0663,60.8949 -48.0403,60.8906 -47.997,60.8977 -47.9133,60.9173 -47.805,60.9389 -47.614,60.9381 -47.5987,60.9328 -47.6388,60.8988 -47.8257,60.8513 -47.9142,60.8335 -47.9578,60.8247 -48.052,60.8004 -48.0856,60.7891 -48.1022,60.7824 -48.1431,60.7639 -48.1505,60.7506 -48.135,60.7424 -48.1159,60.7382 -48.1006,60.7369 -48.0013,60.7446 -47.9825,60.7461 -47.9641,60.7494 -47.9379,60.7564 -47.9226,60.7674 -47.8642,60.7672 -47.8068,60.7665 -47.6986,60.7505 -47.563,60.7348 -47.5193,60.7386 -47.3576,60.7467 -47.2615,60.7752 -47.2308,60.7909 -47.2724,60.8093 -47.3858,60.8152 -47.5191,60.8037 -47.7138,60.7935 -47.7182,60.8054 -47.6737,60.8321 -47.6511,60.8262 -47.4996,60.8182 -47.4876,60.8174 -47.4645,60.8204 -47.4042,60.8254 -47.3832,60.8326 -47.4006,60.8399 -47.3837,60.8481 -47.2279,60.8783 -47.2043,60.8748 -47.0736,60.8653 -46.9483,60.9007 -46.9334,60.902 -46.9218,60.8992 -46.8586,60.8787 -46.8428,60.8729 -46.826,60.8587 -46.8548,60.8338 -46.8693,60.7897 -46.8209,60.7287 -46.7732,60.7237 -46.66,60.7659 -46.6265,60.7809 -46.6208,60.8123 -46.7245,60.8409 -46.7464,60.846 -46.7458,60.8563 -46.5426,60.8358 -46.493,60.8318 -46.4947,60.8494 -46.4793,60.8778 -46.4345,60.9414 -46.3756,60.9243 -46.358,60.9244 -46.3316,60.9311 -46.2903,60.9744 -46.2959,60.9851 -46.3154,60.9947 -46.3172,61.0083 -46.3036,61.009 -46.2677,61.0018 -46.2572,60.9994 -46.1794,60.9734 -46.1673,60.9522 -46.1601,60.9269 -46.1656,60.912 -46.1548,60.9037 -46.1411,60.9009 -46.05,60.9252 -46.0402,60.9279 -45.8274,61.0162 -45.7507,61.0621 -45.7518,61.0886 -45.7594,61.0967 -45.7687,61.1022 -45.7893,61.1094 -45.9216,61.1486 -45.9049,61.1621 -45.7203,61.2582 -45.7023,61.2604 -45.6865,61.2595 -45.6321,61.2447 -45.6618,61.2315 -45.676,61.2261 -45.7027,61.2139 -45.7271,61.2017 -45.7438,61.1898 -45.7822,61.1514 -45.779,61.1409 -45.768,61.1356 -45.6113,61.0945 -45.5663,61.0678 -45.6903,61.0163 -45.8652,60.9515 -45.9918,60.907 -46.0148,60.8936 -45.9776,60.8472 -45.966,60.8418 -45.9394,60.8358 -45.9189,60.8382 -45.9019,60.8434 -45.8869,60.8495 -45.8706,60.8556 -45.8525,60.8617 -45.7447,60.8956 -45.7306,60.8829 -45.7136,60.8789 -45.5671,60.9225 -45.5444,60.9333 -45.5292,60.9415 -45.5153,60.9494 -45.3946,61.0332 -45.41,61.0545 -45.4312,61.0894 -45.4341,61.1014 -45.4283,61.1481 -45.4134,61.159 -45.3585,61.0935 -45.3005,61.0223 -45.2841,61.0158 -45.268,61.019 -45.2587,61.0236 -45.2502,61.0296 -45.2385,61.0406 -45.2202,61.0603 -45.2064,61.0764 -45.1972,61.0843 -45.1583,61.1162 -45.1483,61.1237 -45.1293,61.1295 -45.1141,61.1154 -45.1656,61.0331 -45.1781,61.0261 -45.2194,61.015 -45.2578,61.0018 -45.3547,60.968 -45.3686,60.9579 -45.3766,60.9471 -45.3804,60.9342 -45.387,60.9231 -45.403,60.9153 -45.429,60.9069 -45.4837,60.892 -45.5259,60.8808 -45.5677,60.8717 -45.6263,60.8609 -45.6426,60.8589 -45.6537,60.8583 -45.6918,60.8601 -45.708,60.8617 -45.7232,60.8618 -45.7774,60.8574 -45.7943,60.8545 -45.8799,60.8287 -45.9169,60.8171 -45.9951,60.7872 -46.0115,60.78 -46.0703,60.7582 -46.1052,60.7362 -46.0945,60.7288 -46.084,60.7264 -46.0473,60.7326 -45.9598,60.7622 -45.9409,60.7756 -45.8886,60.7836 -45.9101,60.7668 -45.9766,60.7403 -46.0967,60.707 -46.1233,60.7005 -46.1338,60.6945 -46.1346,60.6846 -46.1209,60.6697 -46.0889,60.6569 -46.0682,60.6516 -45.9933,60.645 -45.9717,60.644 -45.9562,60.6466 -45.9354,60.6544 -45.9225,60.6637 -45.9165,60.6728 -45.9147,60.6853 -45.9153,60.6951 -45.8811,60.7253 -45.8558,60.7516 -45.8063,60.7596 -45.744,60.7755 -45.6932,60.7662 -45.6786,60.7625 -45.6671,60.7543 -45.6775,60.7479 -45.7095,60.7426 -45.8053,60.6948 -45.7962,60.6802 -45.7791,60.6765 -45.7324,60.6711 -45.7197,60.6725 -45.6236,60.6941 -45.5996,60.7012 -45.3984,60.8092 -45.3471,60.8582 -45.3163,60.9007 -45.3227,60.9083 -45.3272,60.9233 -45.3106,60.9333 -45.2976,60.9332 -45.2468,60.9083 -45.1718,60.8443 -45.1666,60.832 -45.1827,60.8263 -45.2352,60.8261 -45.2897,60.8185 -45.3064,60.8148 -45.3226,60.8094 -45.5053,60.7187 -45.5023,60.6945 -45.5675,60.6751 -45.6434,60.6595 -45.765,60.622 -45.7485,60.612 -45.6596,60.5922 -45.6471,60.5929 -45.6043,60.605 -45.5913,60.5996 -45.6147,60.5883 -45.7221,60.5589 -45.8386,60.5265 -45.8907,60.5047 -45.8037,60.4825 -45.7402,60.4843 -45.7028,60.5192 -45.6953,60.5295 -45.6845,60.536 -45.6739,60.5404 -45.6349,60.5526 -45.5947,60.5636 -45.5941,60.5445 -45.6159,60.5385 -45.6455,60.5147 -45.5071,60.3994 -45.4884,60.3959 -45.4769,60.4208 -45.4702,60.4309 -45.3772,60.5437 -45.3666,60.5517 -45.2823,60.6007 -45.2273,60.6265 -45.1933,60.5931 -45.1836,60.5744 -45.2744,60.5381 -45.2876,60.5319 -45.401,60.4188 -45.357,60.4271 -45.3398,60.4313 -45.308,60.4399 -45.1903,60.4779 -45.1324,60.5036 -45.1204,60.5152 -45.1238,60.5269 -45.0872,60.5481 -45.0136,60.5722 -45.0262,60.5517 -45.0623,60.529 -45.1362,60.4757 -45.1494,60.4612 -45.1787,60.4245 -45.1938,60.3862 -45.1733,60.3731 -45.1484,60.3642 -45.1322,60.3611 -45.1179,60.3623 -45.0899,60.3678 -44.9309,60.4014 -44.9179,60.4085 -44.8261,60.4685 -44.7801,60.5073 -44.7643,60.5223 -44.7545,60.5317 -44.7466,60.5512 -44.7454,60.5691 -44.7376,60.5894 -44.7285,60.5975 -44.7162,60.6041 -44.6335,60.6421 -44.6214,60.6471 -44.5647,60.6623 -44.5447,60.6604 -44.5471,60.6485 -44.5594,60.6382 -44.5759,60.6348 -44.5935,60.633 -44.6105,60.6277 -44.6593,60.6027 -44.6737,60.5936 -44.684,60.5861 -44.6911,60.5734 -44.81,60.3431 -44.8623,60.2713 -44.9559,60.2228 -44.9983,60.2075 -45.0183,60.1964 -45.0607,60.1671 -45.084,60.15 -45.0946,60.1397 -45.1172,60.1144 -45.1176,60.0956 -45.0857,60.093 -45.1059,60.0843 -45.1148,60.079 -45.1177,60.0624 -45.1012,60.0565 -45.0876,60.0586 -45.0743,60.0621 -45.0616,60.0722 -45.0472,60.092 -45.0177,60.1138 -45.0,60.1226 -44.9845,60.1253 -44.9576,60.1256 -44.9432,60.1235 -44.9167,60.1192 -44.897,60.118 -44.8737,60.119 -44.8025,60.1426 -44.7932,60.1492 -44.7874,60.1571 -44.7871,60.1779 -44.7807,60.189 -44.763,60.2045 -44.4003,60.4773 -44.3865,60.484 -44.3832,60.4463 -44.4177,60.4021 -44.4527,60.385 -44.4895,60.3666 -44.5118,60.3542 -44.5911,60.2732 -44.6436,60.214 -44.7211,60.1357 -44.74,60.1172 -44.8507,60.0965 -44.915,60.0891 -44.972,60.0888 -44.982,60.0891 -44.9953,60.0852 -45.0838,60.0195 -45.0794,60.008 -45.0679,60.0016 -45.0491,59.9944 -45.0328,59.9907 -45.0199,59.9937 -45.0086,60.0037 -45.0302,60.0198 -45.0229,60.0305 -44.9452,60.0333 -44.9142,60.0219 -44.8867,59.9624 -44.8773,59.9581 -44.8464,59.9554 -44.7219,59.9457 -44.5579,59.9169 -44.5264,59.9092 -44.52,59.9102 -44.5024,59.9163 -44.4863,59.9231 -44.4677,59.9344 -44.4381,59.961 -44.425,59.9755 -44.4166,59.9901 -44.4124,60.0002 -44.4104,60.0129 -44.4036,60.0314 -44.3821,60.0676 -44.3703,60.0768 -44.3598,60.08 -44.345,60.0826 -44.3339,60.0825 -44.2947,60.0792 -44.2742,60.077 -44.2546,60.0742 -44.2293,60.0767 -44.2166,60.0812 -44.2013,60.0924 -44.1849,60.1071 -44.1475,60.1508 -44.14,60.1622 -44.0569,60.1923 -44.0215,60.2019 -43.999,60.2147 -44.0009,60.2611 -44.0054,60.2705 -44.0231,60.3008 -44.0195,60.3107 -44.007,60.3089 -43.9953,60.3052 -43.9841,60.2964 -43.9107,60.2345 -43.9254,60.2229 -43.9896,60.1874 -44.0308,60.1108 -43.7489,60.0863 -43.5774,60.0742 -43.5675,60.0767 -43.3726,60.0516 -43.3197,60.038 -43.0562,60.0069 -43.0431,60.0098 -43.0132,60.0203 -43.0061,60.0278 -43.0054,60.0375 -43.0277,60.1015 -43.04,60.1256 -43.0481,60.1329 -43.0627,60.1368 -43.0735,60.1374 -43.1526,60.1367 -43.2403,60.1411 -43.1471,60.1794 -43.0703,60.171 -43.0424,60.1652 -43.0112,60.1844 -43.0236,60.2349 -43.0844,60.3233 -43.102,60.328 -43.1306,60.3297 -43.1491,60.3293 -43.1676,60.3283 -43.2138,60.3236 -43.2578,60.3182 -43.2839,60.3136 -43.3175,60.3007 -43.3516,60.2828 -43.5054,60.2324 -43.5154,60.2347 -43.51,60.2452 -43.4986,60.2511 -43.4802,60.2588 -43.3826,60.2995 -43.2477,60.3545 -43.2328,60.3678 -43.2446,60.3779 -43.2597,60.3831 -43.3713,60.4094 -43.4111,60.418 -43.5273,60.4357 -43.9757,60.4938 -44.0082,60.4958 -44.0707,60.5022 -44.0926,60.5061 -44.1155,60.5177 -44.11,60.5604 -44.1003,60.5641 -44.0771,60.5641 -44.052,60.5608 -44.043,60.5477 -44.039,60.5381 -44.0281,60.5292 -44.0163,60.5252 -43.9759,60.5165 -43.964,60.5143 -43.943,60.5109 -43.9221,60.509 -43.8957,60.5111 -43.7395,60.497 -43.5717,60.4762 -43.5614,60.475 -43.5468,60.4757 -43.5395,60.4803 -43.5397,60.494 -43.5653,60.5216 -43.575,60.5299 -43.5908,60.5477 -43.5995,60.5618 -43.605,60.5713 -43.6132,60.5857 -43.6243,60.6087 -43.6268,60.6332 -43.6147,60.6421 -43.6005,60.6394 -43.5863,60.6265 -43.5848,60.6155 -43.5852,60.5922 -43.5755,60.5676 -43.559,60.5478 -43.538,60.5272 -43.4861,60.4768 -43.4721,60.466 -43.4529,60.4585 -43.4427,60.4557 -43.162,60.3945 -43.1266,60.3911 -43.1005,60.3931 -43.0859,60.3963 -43.0662,60.4101 -43.0801,60.418 -43.0998,60.4232 -43.121,60.4275 -43.141,60.4299 -43.1635,60.4344 -43.1857,60.4414 -43.2101,60.4511 -43.2279,60.4621 -43.2328,60.4775 -43.2197,60.4808 -43.0924,60.453 -43.0619,60.441 -43.0281,60.4289 -43.0074,60.4242 -42.9868,60.4256 -42.7534,60.4979 -42.7629,60.5063 -42.8237,60.5154 -42.8553,60.5201 -42.7738,60.5237 -42.7565,60.5301 -42.7445,60.5333 -42.6707,60.6109 -42.6872,60.6159 -42.697,60.615 -42.732,60.6089 -42.7414,60.6046 -42.8039,60.5779 -42.8104,60.564 -42.8266,60.5626 -42.8512,60.5653 -43.0004,60.5813 -43.0116,60.5836 -43.0265,60.5931 -43.0047,60.5955 -42.969,60.5933 -42.8888,60.5863 -42.851,60.5797 -42.8323,60.5793 -42.7941,60.5913 -42.7682,60.6015 -42.6991,60.6405 -42.6892,60.6519 -42.6964,60.6652 -42.706,60.6713 -42.8669,60.7037 -42.8777,60.7054 -43.0258,60.7212 -43.0414,60.7214 -43.1907,60.7293 -43.4279,60.7531 -43.4416,60.7633 -43.4239,60.7712 -43.2976,60.7637 -43.1044,60.7472 -42.9687,60.733 -42.9472,60.7288 -42.9281,60.7266 -42.8356,60.7167 -42.8163,60.7168 -42.7197,60.7253 -42.7094,60.7272 -42.6996,60.7358 -42.7086,60.7465 -42.8026,60.7651 -43.026,60.7941 -43.1167,60.8119 -43.1821,60.8243 -43.1998,60.8274 -43.3275,60.8357 -43.3838,60.8351 -43.3985,60.8348 -43.4007,60.8616 -43.3927,60.8693 -43.3763,60.871 -43.3552,60.8688 -43.1785,60.8444 -43.087,60.8304 -43.0368,60.8222 -43.0163,60.8184 -42.9955,60.8136 -42.9845,60.8117 -42.9553,60.8092 -42.9267,60.8101 -42.7188,60.8456 -42.5906,60.9097 -42.5757,60.9196 -42.5843,60.9428 -42.5834,60.9486 -42.6261,60.985 -42.6391,60.9881 -42.922,61.009 -43.0697,61.0279 -43.1325,61.0276 -43.1907,61.0254 -43.2706,61.0232 -43.5155,61.0462 -43.5291,61.0523 -43.5183,61.0595 -43.497,61.0626 -43.4779,61.0637 -43.4474,61.0635 -43.0879,61.0542 -42.9032,61.0342 -42.8221,61.028 -42.5524,61.0269 -42.615,61.0666 -42.6259,61.0695 -42.636,61.0698 -42.7625,61.0835 -43.0073,61.1232 -43.005,61.134 -42.8703,61.1273 -42.7404,61.1147 -42.6133,61.1142 -42.4965,61.119 -42.5066,61.1399 -42.5824,61.1822 -42.6275,61.1937 -42.6415,61.1919 -42.6971,61.1752 -42.7928,61.1721 -42.8199,61.1769 -42.8101,61.1833 -42.7861,61.1887 -42.7667,61.1909 -42.7365,61.19 -42.7147,61.1883 -42.6956,61.1961 -42.7076,61.2067 -42.7597,61.2203 -42.825,61.2331 -42.9468,61.2428 -42.9779,61.2443 -43.0089,61.2447 -43.0611,61.2475 -43.1315,61.2522 -43.1464,61.2542 -43.1614,61.2628 -43.1431,61.2687 -43.0854,61.2709 -42.803,61.2678 -42.7846,61.2646 -42.7663,61.2592 -42.7518,61.2525 -42.737,61.245 -42.7274,61.2407 -42.7067,61.2333 -42.6735,61.224 -42.6518,61.2196 -42.5903,61.2102 -42.5802,61.21 -42.5629,61.2122 -42.551,61.2166 -42.4259,61.2805 -42.3458,61.3289 -42.3734,61.3562 -42.3912,61.3523 -42.411,61.3524 -42.4322,61.3584 -42.4459,61.3685 -42.4537,61.4023 -42.4498,61.4293 -42.4466,61.452 -42.5258,61.4482 -42.6758,61.4532 -42.699,61.4543 -42.7915,61.4611 -42.8648,61.4767 -42.9402,61.496 -42.9726,61.5052 -42.9868,61.5119 -42.9964,61.5186 -42.9836,61.5242 -42.9615,61.5232 -42.9052,61.5149 -42.8431,61.5021 -42.8328,61.4991 -42.7767,61.4894 -42.7234,61.484 -42.6928,61.4818 -42.5522,61.4718 -42.3682,61.4774 -42.3531,61.4824 -42.2376,61.5544 -42.2361,61.5674 -42.2509,61.5736 -42.3157,61.5812 -42.3379,61.6158 -42.5029,61.621 -42.5421,61.6302 -42.6067,61.6658 -42.6807,61.703 -42.691,61.7079 -42.7002,61.7112 -42.7215,61.709 -42.7374,61.7007 -42.7487,61.6918 -42.7842,61.6925 -42.7817,61.704 -42.7717,61.7109 -42.705,61.7393 -42.6864,61.7425 -42.668,61.7352 -42.6601,61.7237 -42.636,61.7115 -42.5258,61.6652 -42.5086,61.6592 -42.4984,61.6575 -42.4768,61.6566 -42.428,61.6594 -42.3967,61.6623 -42.2696,61.6785 -42.2439,61.686 -42.2107,61.7007 -42.1404,61.7517 -42.1102,61.7865 -42.1454,61.8086 -42.2527,61.8129 -42.2828,61.8188 -42.3253,61.8308 -42.3344,61.8398 -42.2479,61.8457 -42.2188,61.845 -42.1978,61.8415 -42.1644,61.8371 -42.1374,61.8374 -42.1227,61.8408 -42.1091,61.8504 -42.0363,61.9196 -42.0344,61.9311 -42.042,61.938 -42.0553,61.9432 -42.0745,61.9447 -42.1635,61.9489 -42.2489,61.9419 -42.2587,61.94 -42.2846,61.9304 -42.3087,61.9183 -42.3509,61.8953 -42.3987,61.8692 -42.4263,61.8642 -42.4366,61.8638 -42.4616,61.8701 -42.4554,61.8803 -42.4032,61.9049 -42.3365,61.9352 -42.2239,62.0288 -42.1766,62.1207 -42.1716,62.1384 -42.18,62.1663 -42.2389,62.2323 -42.3007,62.2593 -42.3183,62.2645 -42.3566,62.2658 -42.4178,62.2625 -42.5525,62.2817 -42.5551,62.2951 -42.5647,62.3025 -42.6195,62.3326 -42.6468,62.3446 -42.6984,62.3615 -42.8287,62.397 -42.8438,62.3964 -42.8622,62.3901 -42.8826,62.3898 -42.8919,62.3955 -42.8967,62.4344 -42.891,62.4439 -42.8812,62.4455 -42.6576,62.4253 -42.6339,62.4217 -42.6222,62.4188 -42.5285,62.3759 -42.4899,62.3553 -42.468,62.3469 -42.456,62.3432 -42.236,62.2864 -42.1619,62.2828 -42.0833,62.3064 -42.1727,62.3557 -42.2397,62.3609 -42.2581,62.362 -42.2736,62.3598 -42.3151,62.3512 -42.4673,62.4013 -42.4003,62.3962 -42.2975,62.3905 -42.255,62.3987 -42.2439,62.4041 -42.2418,62.4273 -42.2821,62.483 -42.2916,62.4893 -42.4886,62.5425 -42.5194,62.5499 -42.5344,62.5498 -42.551,62.5459 -42.5946,62.5341 -42.5907,62.5113 -42.6008,62.5119 -42.6177,62.5187 -42.6301,62.5259 -42.6488,62.5393 -42.6434,62.5538 -42.6669,62.5644 -42.7047,62.5742 -42.7939,62.5914 -42.8712,62.6038 -42.8936,62.6072 -42.916,62.6094 -42.9372,62.6113 -42.9782,62.6128 -43.0203,62.6114 -43.0457,62.6209 -43.0604,62.6817 -43.041,62.6856 -43.025,62.682 -42.9726,62.6526 -42.962,62.648 -42.9504,62.645 -42.7712,62.623 -42.6427,62.6102 -42.6331,62.6671 -42.6072,62.6939 -42.5337,62.6646 -42.4447,62.6463 -42.3279,62.7373 -42.3349,62.7543 -42.357,62.7597 -42.3726,62.7836 -42.3519,62.8297 -42.3434,62.8354 -42.2524,62.8588 -42.231,62.8628 -42.2209,62.8642 -42.204,62.8599 -42.2334,62.838 -42.2463,62.8314 -42.2609,62.8269 -42.2812,62.8124 -42.274,62.7653 -42.2524,62.7369 -42.2415,62.7321 -42.23,62.7302 -42.1763,62.7322 -42.1466,62.7381 -42.1264,62.7372 -42.0865,62.7341 -42.0651,62.7309 -42.0196,62.7216 -41.9575,62.7065 -42.0609,62.7212 -42.1803,62.7253 -42.2437,62.7226 -42.2918,62.717 -42.3506,62.6858 -42.3618,62.6778 -42.3357,62.6334 -42.3219,62.618 -42.3046,62.6044 -42.2931,62.6025 -42.2326,62.6183 -42.2228,62.621 -42.1464,62.6342 -42.1043,62.6341 -42.0922,62.6332 -42.0809,62.6313 -42.0697,62.6239 -42.0601,62.6154 -42.0489,62.6085 -42.0387,62.6068 -41.9841,62.6059 -41.9616,62.6122 -41.9384,62.6358 -41.9473,62.6487 -41.962,62.6522 -41.9722,62.6504 -41.982,62.6479 -42.0024,62.6455 -42.0225,62.6443 -42.0652,62.6445 -42.088,62.6454 -42.1098,62.6474 -42.1212,62.6523 -42.1109,62.6566 -41.9668,62.6723 -41.9458,62.6739 -41.9227,62.6686 -41.9067,62.6606 -41.8954,62.654 -41.8812,62.6469 -41.8697,62.6441 -41.8477,62.6416 -41.8271,62.644 -41.817,62.6464 -41.7813,62.66 -41.812,62.6632 -41.8365,62.6588 -41.8638,62.6584 -41.914,62.6981 -41.9402,62.7067 -41.9298,62.716 -41.926,62.7264 -41.923,62.7504 -41.8816,62.7677 -41.8282,62.7657 -41.7845,62.7493 -41.7719,62.742 -41.759,62.7408 -41.6702,62.7634 -41.5554,62.8443 -41.5352,62.8597 -41.5309,62.874 -41.5299,62.9031 -41.5367,62.9119 -41.6618,62.9372 -41.6848,62.9405 -41.7042,62.9423 -41.7716,62.9426 -41.9176,62.9538 -42.0333,63.014 -42.0501,63.0433 -42.0906,63.1255 -42.0681,63.1282 -42.0578,63.1274 -42.045,63.1251 -42.0028,63.0992 -41.9897,63.0895 -41.9677,63.0717 -41.9606,63.0526 -41.9571,63.0403 -41.944,63.0253 -41.8996,62.9975 -41.8796,62.9882 -41.7305,62.9629 -41.6487,62.9525 -41.6274,62.9567 -41.6041,62.9647 -41.5204,62.957 -41.4712,62.9505 -41.4574,62.9546 -41.4622,62.9663 -41.54,63.0205 -41.5521,63.0282 -41.5647,63.0343 -41.5834,63.0409 -41.7014,63.0794 -41.8479,63.1281 -41.9141,63.1507 -41.9252,63.1554 -41.9408,63.1693 -41.7051,63.1221 -41.5366,63.0628 -41.5283,63.0573 -41.5178,63.0488 -41.5124,63.0386 -41.5049,63.0293 -41.4913,63.0195 -41.4775,63.014 -41.4662,63.0127 -41.4418,63.0157 -41.3515,63.0434 -41.4062,63.0918 -41.3895,63.14 -41.5956,63.2626 -41.7556,63.3126 -41.7736,63.3193 -41.7881,63.3311 -41.827,63.3791 -41.8139,63.3922 -41.773,63.4068 -41.6647,63.4434 -41.6054,63.4466 -41.599,63.4378 -41.5874,63.426 -41.4996,63.3695 -41.4752,63.3589 -41.451,63.3517 -41.4296,63.3462 -41.3039,63.3257 -41.2105,63.2877 -41.0519,63.2301 -41.0327,63.2295 -41.0467,63.247 -41.0665,63.2612 -41.0949,63.2741 -41.3751,63.3673 -41.446,63.3877 -41.4645,63.3936 -41.5004,63.4103 -41.4898,63.4119 -41.4116,63.4139 -41.3659,63.4071 -41.3499,63.39 -41.3367,63.3837 -41.2313,63.3439 -41.217,63.3399 -41.1999,63.3359 -41.1589,63.3283 -41.1679,63.3427 -41.2223,63.3775 -41.333,63.4713 -41.3127,63.4739 -41.2101,63.4084 -41.16,63.3788 -41.1507,63.3636 -41.1086,63.3282 -41.0968,63.3109 -41.0375,63.3072 -40.9207,63.3279 -40.9366,63.3456 -40.9782,63.3488 -40.9987,63.3526 -41.0354,63.3766 -41.0753,63.4056 -41.093,63.434 -41.059,63.4251 -41.047,63.42 -41.0373,63.4146 -41.0146,63.3963 -40.9989,63.3768 -40.9861,63.3674 -40.9686,63.3628 -40.9549,63.3618 -40.9319,63.3644 -40.9195,63.3803 -40.9695,63.4192 -40.9674,63.4295 -40.9189,63.4511 -40.8932,63.4548 -40.7848,63.4223 -40.7105,63.4183 -40.6894,63.4201 -40.678,63.4228 -40.6683,63.431 -40.6652,63.4424 -40.6649,63.4529 -40.6647,63.4924 -40.6725,63.5036 -40.763,63.5151 -40.7971,63.5729 -40.8118,63.578 -40.8429,63.5858 -40.9682,63.6033 -41.045,63.6101 -41.2156,63.6379 -41.3448,63.6818 -41.3571,63.6845 -41.3687,63.6854 -41.434,63.6867 -41.4534,63.6821 -41.4705,63.6724 -41.4849,63.6693 -41.5015,63.6732 -41.512,63.6775 -41.5273,63.6842 -41.5435,63.6934 -41.5491,63.7053 -41.5359,63.7137 -41.4036,63.7562 -41.3366,63.7544 -41.3233,63.7372 -41.3066,63.7196 -41.2896,63.7071 -41.2689,63.6985 -40.9223,63.6252 -40.8757,63.6174 -40.7844,63.606 -40.7628,63.6041 -40.5238,63.602 -40.4936,63.6039 -40.4717,63.6058 -40.4614,63.6084 -40.4516,63.6122 -40.4361,63.621 -40.4314,63.6303 -40.4341,63.6424 -40.5397,63.8437 -40.5516,63.8481 -40.5908,63.8597 -40.6149,63.8555 -40.6791,63.8557 -40.7115,63.8559 -40.7354,63.8582 -40.7569,63.8654 -40.7483,63.8709 -40.5691,63.9288 -40.4606,63.9837 -40.4628,63.9979 -40.4687,64.0069 -40.4794,64.0204 -40.4874,64.0301 -40.6182,64.072 -40.6834,64.0803 -40.6938,64.0808 -40.8051,64.0825 -40.8308,64.0794 -40.8705,64.0695 -40.9762,64.0571 -41.1777,64.0775 -41.2958,64.0921 -41.3185,64.1005 -41.4735,64.1734 -41.4857,64.1844 -41.4814,64.1962 -41.4722,64.2094 -41.4399,64.2423 -41.4248,64.2461 -41.2441,64.2617 -41.0284,64.2245 -41.0103,64.2228 -40.9881,64.2248 -40.8713,64.2419 -40.8502,64.2463 -40.8263,64.2566 -40.8098,64.2729 -40.7966,64.2807 -40.7683,64.2915 -40.729,64.3027 -40.7071,64.3047 -40.5716,64.2966 -40.4612,64.2774 -40.4209,64.2652 -40.3398,64.257 -40.2906,64.2643 -40.2772,64.2745 -40.2818,64.3118 -40.3039,64.3261 -40.3403,64.3393 -40.3523,64.3427 -40.4117,64.3575 -40.4455,64.3643 -40.5016,64.3708 -40.5312,64.3754 -40.5562,64.3858 -40.5403,64.4018 -40.5252,64.4114 -40.5121,64.4163 -40.4858,64.4254 -40.4857,64.4423 -40.489,64.4521 -40.495,64.466 -40.5012,64.4783 -40.505,64.4829 -40.5122,64.5919 -40.5203,64.6008 -40.5313,64.6038 -40.6062,64.6227 -40.7458,64.6828 -40.7859,64.7009 -40.8415,64.7364 -40.9088,64.7788 -40.9814,64.7951 -40.9917,64.801 -41.0683,64.8679 -41.0733,64.8818 -41.0633,64.8942 -41.0526,64.8975 -41.0412,64.8986 -41.0268,64.8963 -40.9747,64.8869 -40.9262,64.9299 -40.9035,64.9983 -40.6196,64.9773 -40.5148,65.0535 -40.4258,64.9998 -40.3475,64.9539 -40.3285,64.9482 -40.1761,64.9355 -40.1116,64.9591 -40.0642,65.0023 -40.0389,65.0495 -39.9463,65.0658 -39.8564,65.086 -39.8386,65.1292 -39.6935,65.1563 -39.6759,65.1611 -39.7024,65.1856 -39.7256,65.2039 -39.7468,65.2107 -39.7845,65.229 -39.8318,65.2604 -39.8617,65.283 -39.7998,65.3319 -39.7842,65.3307 -39.7588,65.3191 -39.7456,65.3145 -39.7218,65.3109 -39.7018,65.3155 -39.7135,65.3335 -39.8217,65.3618 -39.8462,65.3604 -39.8584,65.3587 -39.8884,65.3515 -39.9053,65.3503 -39.9285,65.3537 -40.0112,65.3696 -40.0374,65.3754 -40.0865,65.3869 -40.1245,65.3988 -40.1342,65.4115 -40.1366,65.4213 -40.0157,65.4849 -39.9993,65.4916 -39.9778,65.4954 -39.9499,65.4965 -39.9361,65.4842 -39.9244,65.4735 -39.9084,65.4666 -39.8067,65.4266 -39.7834,65.4178 -39.7731,65.4159 -39.7615,65.4145 -39.7493,65.4138 -39.6853,65.4573 -39.7171,65.4902 -39.747,65.4995 -39.7073,65.5345 -39.6942,65.5429 -39.6196,65.5869 -39.5988,65.5957 -39.5805,65.5977 -39.5662,65.5942 -39.4594,65.5542 -39.4664,65.542 -39.4652,65.5316 -39.3841,65.4675 -39.3731,65.4624 -39.3312,65.4512 -39.2554,65.457 -39.1399,65.4931 -39.1222,65.5015 -39.1163,65.5101 -39.1231,65.5228 -39.2118,65.6011 -39.2453,65.633 -39.1572,65.6127 -39.0652,65.581 -39.044,65.5667 -39.0346,65.5571 -39.0252,65.5384 -39.02,65.5242 -39.0131,65.5148 -38.9899,65.4888 -38.9789,65.4772 -38.858,65.485 -38.8121,65.4899 -38.7734,65.5294 -38.6967,65.5057 -38.5345,65.4844 -38.5218,65.4956 -38.5515,65.5449 -38.5784,65.5491 -38.5954,65.5428 -38.608,65.5441 -38.6367,65.5488 -38.6655,65.5545 -38.6757,65.5581 -38.6871,65.5656 -38.7013,65.577 -38.7083,65.5934 -38.6739,65.6085 -38.6593,65.6063 -38.6465,65.5922 -38.6344,65.5841 -38.5051,65.5515 -38.4806,65.5502 -38.4689,65.5581 -38.4697,65.5916 -38.4623,65.623 -38.4521,65.6254 -38.3587,65.5947 -38.3661,65.5849 -38.3798,65.5796 -38.3496,65.5396 -38.1696,65.5462 -38.1536,65.5528 -38.1321,65.5725 -38.1022,65.602 -38.0337,65.6887 -38.0259,65.7196 -38.1029,65.745 -38.1288,65.7402 -38.1382,65.7409 -38.1951,65.7508 -38.3752,65.8298 -38.3834,65.8407 -38.4027,65.9305 -38.3784,65.9374 -38.3545,65.9377 -38.3294,65.9323 -38.2645,65.8735 -38.2701,65.8496 -38.246,65.833 -38.2251,65.8249 -38.206,65.8204 -38.1905,65.8186 -38.1461,65.8169 -38.1188,65.8168 -38.0892,65.8182 -38.0737,65.8262 -38.066,65.8423 -38.0794,65.8529 -38.1018,65.8569 -38.1147,65.8638 -38.1174,65.8768 -38.099,65.886 -37.9996,65.877 -37.9915,65.8638 -37.9975,65.8464 -37.9988,65.8313 -37.9889,65.8271 -37.9749,65.8297 -37.9329,65.8482 -37.918,65.8553 -37.9086,65.8628 -37.8985,65.8766 -37.9381,65.9972 -37.9394,66.0171 -37.9187,66.0218 -37.902,66.0267 -37.804,66.075 -37.7863,66.0868 -37.7785,66.1147 -37.8026,66.1181 -37.8439,66.1276 -37.9097,66.1475 -37.9155,66.158 -37.8919,66.1664 -37.8813,66.1669 -37.7765,66.1645 -37.7322,66.1581 -37.7329,66.1454 -37.7354,66.1317 -37.7181,66.1262 -37.7062,66.1276 -37.687,66.1332 -37.6765,66.1376 -37.6227,66.1686 -37.6178,66.1808 -37.6607,66.201 -37.6802,66.2063 -37.7003,66.2105 -37.795,66.2255 -37.8501,66.2326 -37.9587,66.2446 -37.9797,66.2462 -38.0037,66.246 -38.0356,66.2477 -38.0613,66.2509 -38.0712,66.2655 -38.0636,66.2823 -38.0436,66.2996 -38.0284,66.3032 -38.0073,66.3039 -37.8824,66.3012 -37.7134,66.2835 -37.5404,66.2392 -37.4992,66.2346 -37.305,66.2339 -37.2704,66.2347 -37.2405,66.2414 -37.2058,66.249 -37.1852,66.2539 -37.1493,66.2607 -37.1217,66.2616 -37.1082,66.2571 -37.0919,66.2315 -37.1018,66.2261 -37.1587,66.2107 -37.1993,66.2134 -37.2145,66.213 -37.2328,66.2084 -37.2505,66.2007 -37.2669,66.1933 -37.4139,66.1195 -37.4773,66.0835 -37.4856,66.0722 -37.4822,66.0553 -37.5832,65.9912 -37.6445,65.9871 -37.6564,65.9876 -37.6703,65.9852 -37.7005,65.9759 -37.7104,65.9723 -37.7239,65.9646 -37.7342,65.9461 -37.6823,65.8281 -37.6158,65.8551 -37.5793,65.8463 -37.4788,65.817 -37.4671,65.8108 -37.4583,65.8043 -37.4397,65.7944 -37.4296,65.7899 -37.3302,65.7477 -37.314,65.7427 -37.3039,65.74 -37.2559,65.7297 -37.232,65.7232 -37.2095,65.7152 -37.1996,65.7117 -37.18,65.703 -37.16,65.6962 -37.1387,65.6894 -37.1182,65.6867 -37.1057,65.6878 -37.0931,65.6904 -37.0321,65.7324 -37.0138,65.7727 -37.0619,65.8709 -37.0929,65.9217 -37.0053,65.9782 -36.9906,65.9804 -36.9634,65.973 -36.9589,65.9562 -36.9633,65.9415 -36.9699,65.9321 -37.0173,65.8542 -36.9724,65.7675 -36.9624,65.7595 -36.9104,65.7551 -36.8964,65.7561 -36.7813,65.7938 -36.7702,65.8037 -36.6805,65.8465 -36.5501,65.8776 -36.4405,65.9066 -36.4044,65.9636 -36.4451,65.9657 -36.4702,65.9679 -36.4915,65.9731 -36.5013,65.9833 -36.495,65.9918 -36.463,65.9975 -36.3119,66.0038 -36.3002,66.0041 -36.2733,65.9998 -36.2692,65.9899 -36.3006,65.97 -36.3202,65.9405 -36.3202,65.9135 -36.3155,65.8555 -36.312,65.8399 -36.301,65.8317 -36.28,65.8247 -36.2585,65.8243 -36.1948,65.8737 -36.1483,65.8545 -36.023,65.8437 -36.0099,65.8456 -35.9905,65.8512 -35.8236,65.9319 -35.7132,65.9925 -35.6506,66.0344 -35.6256,66.0374 -35.5684,66.0353 -35.5316,66.0214 -35.5262,66.0227 -35.5151,66.0269 -35.5001,66.0494 -35.5498,66.121 -35.4792,66.1599 -35.6058,66.2187 -35.8065,66.3312 -35.7995,66.3383 -35.7828,66.3487 -35.7619,66.3513 -35.698,66.3509 -35.6894,66.3412 -35.6542,66.3042 -35.5505,66.2364 -35.4264,66.2109 -35.3212,66.2035 -35.1613,66.1585 -35.1321,66.1542 -35.0315,66.1509 -34.9915,66.1554 -34.9709,66.1674 -34.9713,66.1778 -34.9824,66.1851 -35.0935,66.2154 -35.1293,66.2213 -35.161,66.2284 -35.1538,66.2783 -35.0734,66.3255 -35.0533,66.333 -35.0378,66.3319 -35.0345,66.3097 -35.0399,66.2826 -35.0453,66.2734 -35.0568,66.2626 -35.0553,66.2517 -35.0393,66.2414 -34.923,66.2035 -34.913,66.2006 -34.8995,66.1994 -34.8747,66.2027 -34.7394,66.2271 -34.7064,66.2359 -34.6491,66.2548 -34.5695,66.2884 -34.5484,66.3236 -34.3392,66.4549 -34.3484,66.4684 -34.3741,66.4811 -34.3875,66.4875 -34.4137,66.5479 -34.409,66.5653 -34.3671,66.6498 -34.3559,66.6579 -34.3366,66.6523 -34.3189,66.5925 -34.3298,66.5657 -34.3287,66.5454 -34.324,66.5319 -34.2943,66.5113 -34.2742,66.5193 -34.2388,66.5548 -34.2,66.5478 -34.2131,66.4883 -34.2003,66.4905 -34.1837,66.5003 -34.0227,66.6152 -33.9767,66.656 -33.9311,66.7954 -33.9268,66.8545 -33.9032,66.9058 -33.8824,66.9081 -33.8577,66.9063 -33.8201,66.9011 -33.7974,66.8986 -33.7638,66.8972 -33.6632,66.9048 -33.6649,66.9194 -33.6039,67.002 -33.5934,67.0063 -33.5793,67.0078 -33.567,67.0085 -33.4828,67.0274 -33.4479,67.1046 -33.2973,67.162 -33.3552,67.2489 -33.3732,67.257 -33.3913,67.2596 -33.4235,67.2625 -33.4541,67.2616 -33.4804,67.2587 -33.5263,67.2858 -33.5062,67.2879 -33.4307,67.2877 -33.3484,67.2754 -33.3366,67.2678 -33.3217,67.2655 -33.309,67.2662 -33.2706,67.2723 -33.2563,67.2798 -33.204,67.3179 -33.2011,67.3952 -33.1682,67.4508 -33.1475,67.4559 -33.1341,67.4608 -33.1097,67.4727 -33.0357,67.5086 -32.9891,67.5489 -33.0037,67.5541 -33.0409,67.5612 -33.056,67.5634 -33.0688,67.5643 -33.0789,67.5625 -33.1016,67.561 -33.1192,67.5629 -33.1283,67.5679 -33.1359,67.5802 -33.1386,67.5939 -33.1292,67.602 -33.1169,67.6063 -33.0954,67.6088 -33.0719,67.6096 -33.0465,67.6075 -33.0274,67.6033 -32.9827,67.592 -32.9546,67.5906 -32.855,67.6042 -32.7979,67.6155 -32.772,67.621 -32.7111,67.6362 -32.4796,67.7298 -32.4641,67.7532 -32.4715,67.7575 -32.4784,67.7707 -32.4698,67.7789 -32.4528,67.7827 -32.2866,67.7975 -32.2538,67.7947 -32.241,67.792 -32.2258,67.7829 -32.2028,67.7734 -32.1735,67.7667 -32.1281,67.7586 -32.1023,67.7561 -32.0879,67.7566 -32.0646,67.7623 -32.0575,67.7741 -32.0439,67.8449 -32.0048,67.909 -31.9679,67.9604 -31.9389,67.9592 -31.9294,67.9624 -31.9293,67.9973 -31.9321,68.0084 -31.9654,68.0536 -31.976,68.061 -31.988,68.0658 -32.1251,68.0814 -32.2269,68.11 -32.256,68.117 -32.2844,68.1202 -32.3017,68.1212 -32.3222,68.1171 -32.3321,68.1124 -32.3234,68.1393 -32.1641,68.1354 -32.1383,68.1316 -32.0657,68.109 -32.0698,68.1577 -32.1225,68.2375 -32.2339,68.2641 -32.2501,68.2659 -32.3624,68.292 -32.3848,68.3009 -32.398,68.3084 -32.4582,68.3626 -32.4885,68.3998 -32.4955,68.4165 -32.4515,68.4049 -32.4371,68.4046 -32.364,68.4114 -32.3525,68.4196 -32.356,68.4531 -32.389,68.4638 -32.423,68.4891 -32.4338,68.501 -32.4363,68.523 -32.4204,68.5303 -32.4069,68.5337 -32.3768,68.5354 -32.36,68.5338 -32.3402,68.5262 -32.2964,68.4819 -32.2875,68.4707 -32.2628,68.4184 -32.2587,68.3581 -32.2429,68.348 -32.1959,68.3317 -32.176,68.3308 -32.152,68.3376 -32.0108,68.2475 -32.0079,68.2312 -31.9511,68.1822 -31.9396,68.1746 -31.9271,68.172 -31.9061,68.169 -31.8891,68.1678 -31.8706,68.1687 -31.8465,68.1724 -31.7562,68.1794 -31.5702,68.1684 -31.5533,68.1674 -31.5355,68.1652 -31.4639,68.1471 -31.4711,68.1398 -31.4877,68.137 -31.5247,68.1364 -31.561,68.1379 -31.6003,68.1407 -31.6344,68.136 -31.6788,68.12 -31.6232,68.1005 -31.6121,68.0913 -31.6262,68.0853 -31.6338,68.0098 -31.5174,67.9819 -31.5054,67.9801 -31.4769,67.9821 -31.4064,67.9874 -31.394,67.9887 -31.3523,68.0003 -31.3564,68.0101 -31.3793,68.0176 -31.3953,68.0192 -31.425,68.0271 -31.434,68.0336 -31.434,68.0503 -31.4153,68.0621 -31.3899,68.0666 -31.3627,68.0678 -31.3228,68.0677 -31.3089,68.0675 -31.2762,68.0582 -31.2966,68.0547 -31.3213,68.0551 -31.3494,68.0535 -31.3721,68.051 -31.3851,68.0431 -31.3721,68.0347 -31.3372,68.0257 -31.2668,68.0099 -31.0528,67.9637 -30.9569,67.9526 -30.9327,67.9617 -30.8506,67.9846 -30.829,67.9876 -30.803,67.9883 -30.6545,67.981 -30.6346,67.9759 -30.618,67.9747 -30.5975,67.974 -30.4467,67.9708 -30.4183,67.9701 -30.3896,67.9709 -30.3698,67.9728 -30.3588,67.9783 -30.4019,68.078 -30.4102,68.0859 -30.4207,68.0916 -30.5007,68.109 -30.6241,68.1327 -30.7487,68.1573 -30.7383,68.1654 -30.6887,68.1711 -30.6449,68.1734 -30.6288,68.1732 -30.3507,68.1352 -30.3361,68.1313 -30.328,68.1188 -30.329,68.1076 -30.3325,68.0892 -30.3398,68.0786 -30.3464,68.0673 -30.3447,68.0552 -30.3199,68.0283 -30.2999,68.0127 -30.2885,68.0055 -30.2772,68.0043 -30.2061,68.0052 -29.9821,68.0231 -29.9627,68.026 -29.9488,68.0332 -29.9505,68.0446 -30.0472,68.1304 -30.056,68.1355 -30.0785,68.1454 -30.0946,68.1487 -30.1332,68.1551 -29.9336,68.2873 -29.8028,68.3254 -29.7885,68.326 -29.779,68.3222 -29.7162,68.2809 -29.7215,68.2618 -29.7276,68.2411 -29.7246,68.2314 -29.7102,68.2219 -29.5496,68.1545 -29.4425,68.1283 -29.4274,68.1259 -29.4028,68.124 -29.3893,68.1244 -29.3721,68.1263 -29.3151,68.1123 -29.2826,68.1676 -29.2796,68.1942 -29.2808,68.2108 -29.2718,68.2181 -29.2419,68.2274 -29.2214,68.229 -29.1696,68.208 -29.1539,68.1985 -29.1452,68.1855 -29.134,68.1741 -29.12,68.1712 -29.0679,68.1887 -29.0573,68.1948 -29.0385,68.2188 -29.0411,68.2371 -29.0534,68.244 -29.103,68.2543 -29.1133,68.2588 -29.1246,68.2676 -29.1464,68.2951 -29.1255,68.3031 -29.096,68.3074 -29.0858,68.3083 -28.8709,68.2682 -28.8432,68.2579 -28.7867,68.2313 -28.7878,68.2763 -28.7786,68.2852 -28.5776,68.3037 -28.5432,68.3206 -28.4353,68.3587 -28.3778,68.3589 -28.3592,68.3566 -28.2005,68.3416 -27.9495,68.3639 -27.9461,68.3753 -27.9528,68.3874 -27.9636,68.4013 -27.9775,68.4663 -27.9565,68.475 -27.8981,68.4816 -27.8862,68.4806 -27.8759,68.4736 -27.8746,68.4512 -27.8731,68.4397 -27.864,68.4255 -27.845,68.4143 -27.826,68.4065 -27.7329,68.3818 -27.7225,68.3801 -27.5615,68.3885 -27.546,68.3972 -27.5572,68.4068 -27.6475,68.4244 -27.6245,68.4483 -27.5332,68.4841 -27.5189,68.4895 -27.5005,68.4932 -27.4581,68.4911 -27.4317,68.4842 -27.4515,68.4714 -27.4658,68.4633 -27.4439,68.4532 -27.3988,68.4489 -27.3189,68.4453 -27.2569,68.4451 -27.1658,68.4507 -27.1579,68.4573 -27.1671,68.4636 -27.1948,68.4753 -27.2081,68.48 -27.2336,68.4875 -27.2738,68.4973 -27.2822,68.5056 -27.2717,68.5127 -27.2476,68.516 -27.219,68.5174 -27.1161,68.5132 -27.0445,68.4977 -27.0132,68.4888 -27.0006,68.4884 -26.9777,68.491 -26.9559,68.4998 -26.9511,68.5115 -26.837,68.5589 -26.6629,68.581 -26.647,68.5685 -26.6361,68.5656 -26.5958,68.5634 -26.4011,68.5657 -26.3743,68.568 -26.3461,68.571 -26.3074,68.5793 -26.2344,68.5997 -26.2133,68.6117 -26.1948,68.6465 -26.0964,68.6935 -25.9674,68.695 -25.9024,68.6965 -25.8816,68.7013 -25.844,68.7148 -25.8166,68.7256 -25.7291,68.7598 -25.5722,68.7797 -25.5552,68.7873 -25.5267,68.8122 -25.5247,68.8222 -25.5329,68.8279 -25.5672,68.8236 -25.5789,68.8246 -25.6587,68.8428 -25.6492,68.8645 -25.6327,68.87 -25.6073,68.8738 -25.5406,68.876 -25.5021,68.8754 -25.4471,68.8681 -25.425,68.8675 -25.4088,68.869 -25.3892,68.8761 -25.3826,68.8856 -25.3904,68.8951 -25.4025,68.9009 -25.4825,68.9405 -25.5869,68.9935 -25.5808,69.0037 -25.5545,69.0146 -25.5439,69.0152 -25.5297,69.0066 -25.5134,68.9942 -25.4929,68.9879 -25.2903,68.9372 -25.2513,68.9298 -25.2371,68.9311 -25.1774,68.9469 -24.9865,69.0292 -24.9389,69.0742 -24.9324,69.1084 -24.9399,69.1208 -24.9509,69.1254 -24.976,69.1325 -25.0024,69.1356 -25.0164,69.1368 -25.0398,69.1373 -25.0681,69.1359 -25.0828,69.1346 -25.1046,69.1342 -25.1938,69.137 -25.2213,69.1481 -25.1644,69.1805 -25.1555,69.185 -25.0766,69.2053 -25.0475,69.2078 -25.0339,69.2075 -24.9965,69.205 -24.9704,69.2014 -24.9338,69.1942 -24.8382,69.1709 -24.7625,69.1524 -24.7518,69.1497 -24.7298,69.1495 -24.6407,69.1539 -24.6112,69.1576 -24.5923,69.1622 -24.5718,69.1689 -24.5601,69.1764 -24.5555,69.1857 -24.5608,69.2325 -24.5889,69.2717 -24.6019,69.2792 -24.6164,69.284 -24.5992,69.305 -24.4262,69.2717 -24.4023,69.2682 -24.3802,69.2687 -24.367,69.2724 -24.3008,69.3156 -24.2898,69.3229 -24.1161,69.333 -24.0216,69.39 -24.0241,69.4092 -24.0345,69.4251 -24.0513,69.4387 -24.0681,69.4489 -24.0812,69.4531 -24.0988,69.4562 -24.1131,69.4575 -24.153,69.4628 -24.1784,69.4669 -24.2128,69.4767 -24.2647,69.4924 -24.2877,69.5012 -24.2943,69.5119 -24.2791,69.5142 -24.2655,69.508 -24.2245,69.4966 -24.2076,69.4928 -24.1807,69.4885 -24.0233,69.4655 -23.8063,69.4236 -23.7869,69.4201 -23.7679,69.4176 -23.7539,69.4181 -23.7414,69.4212 -23.7214,69.4269 -23.6092,69.4638 -23.5975,69.4691 -23.581,69.4819 -23.5294,69.5357 -23.6372,69.6198 -23.6503,69.6252 -23.6777,69.6307 -23.6952,69.6327 -23.7705,69.6379 -23.8619,69.6522 -23.8774,69.6621 -23.8488,69.6651 -23.6582,69.6442 -23.6056,69.6365 -23.4257,69.6608 -23.345,69.665 -23.2869,69.6667 -23.2385,69.6615 -23.2114,69.6571 -23.1943,69.662 -23.1987,69.6763 -23.2062,69.6851 -23.2191,69.6982 -23.2536,69.7285 -23.266,69.7387 -23.2744,69.7459 -23.2932,69.75 -23.3334,69.7531 -23.3439,69.7584 -23.3343,69.7629 -23.3142,69.7649 -23.2781,69.7634 -23.2508,69.7589 -23.2352,69.7544 -23.2064,69.7451 -23.1942,69.7386 -23.1617,69.7079 -23.1491,69.7006 -23.0426,69.6747 -22.9952,69.668 -22.9665,69.6655 -22.9504,69.6664 -22.9351,69.6718 -22.8791,69.6964 -22.8608,69.7079 -22.8591,69.7198 -22.8766,69.7283 -22.8987,69.7355 -22.9268,69.7431 -23.0132,69.7567 -23.0316,69.7569 -23.0543,69.7529 -23.1772,69.7572 -23.2069,69.7619 -23.2231,69.7694 -23.2119,69.775 -23.1932,69.7811 -23.1456,69.7925 -23.1105,69.7825 -23.0822,69.7794 -23.0564,69.7775 -23.031,69.7775 -23.0129,69.778 -22.988,69.7859 -22.9929,69.7965 -23.0044,69.8051 -23.0329,69.8168 -23.0428,69.8247 -23.0183,69.8483 -22.9956,69.8509 -22.974,69.8496 -22.9547,69.8468 -22.9363,69.8428 -22.9184,69.8321 -22.9095,69.8226 -22.8965,69.8104 -22.8865,69.8063 -22.8584,69.7998 -22.8166,69.7937 -22.7989,69.7913 -22.7575,69.7889 -22.7463,69.7894 -22.7314,69.7913 -22.7194,69.7978 -22.7277,69.804 -22.7426,69.8076 -22.7605,69.8096 -22.792,69.8112 -22.8064,69.8123 -22.8584,69.8338 -22.8642,69.8592 -22.8512,69.8627 -22.8302,69.8655 -22.8094,69.8678 -22.7964,69.8679 -22.7637,69.8633 -22.6992,69.8522 -22.6187,69.8442 -22.5927,69.8434 -22.5646,69.8434 -22.5261,69.8467 -22.4496,69.8801 -22.4304,69.8906 -22.3468,69.8764 -22.3334,69.8786 -22.3124,69.8836 -22.2755,69.8972 -22.2458,69.9097 -22.2163,69.9234 -22.116,69.9791 -22.0626,70.0123 -22.0522,70.019 -22.0319,70.0456 -22.0534,70.0577 -22.0683,70.06 -22.1209,70.0594 -22.1508,70.059 -22.1684,70.0569 -22.1872,70.0526 -22.2022,70.046 -22.2188,70.0405 -22.3287,70.0201 -22.452,70.0068 -22.5031,70.0042 -22.5408,69.9978 -22.5963,69.9937 -22.7351,69.9879 -22.8113,69.9889 -23.11,69.9992 -23.5081,70.0146 -23.5385,70.0183 -23.5576,70.0232 -23.7486,70.0511 -23.8715,70.0603 -24.4781,70.1631 -24.7121,70.2176 -24.9155,70.2625 -24.9444,70.2681 -24.9748,70.2711 -24.9905,70.2674 -25.0503,70.2506 -25.1392,70.2084 -25.1543,70.1914 -25.1623,70.1847 -25.1781,70.1801 -25.2472,70.181 -25.2728,70.1821 -25.2898,70.1903 -25.297,70.2086 -25.2921,70.2207 -25.2842,70.2291 -25.2712,70.2381 -25.2046,70.2802 -25.1803,70.2873 -25.1618,70.2936 -25.1425,70.3138 -25.1559,70.3208 -25.1727,70.3223 -25.2045,70.3213 -25.2213,70.3205 -25.235,70.3189 -25.58,70.2633 -25.6479,70.2486 -25.936,70.1851 -26.0243,70.1605 -26.2184,70.112 -26.2488,70.106 -26.2831,70.1048 -26.3177,70.1054 -26.4103,70.1105 -26.4629,70.117 -26.5075,70.1242 -26.5213,70.1298 -26.531,70.1388 -26.551,70.1456 -26.5679,70.1496 -26.5996,70.1543 -26.6371,70.1591 -26.6732,70.1614 -26.737,70.1613 -26.8074,70.1601 -26.8215,70.1594 -26.8388,70.1569 -27.0091,70.114 -27.0453,70.104 -27.0868,70.0884 -27.1097,70.0779 -27.1219,70.0691 -27.1342,70.0269 -27.1214,70.0138 -27.1194,70.0038 -27.1252,69.9951 -27.224,69.8931 -27.2356,69.8848 -27.2492,69.879 -27.2627,69.8744 -27.2824,69.8718 -27.3556,69.8645 -27.3749,69.8636 -27.436,69.8698 -27.4462,69.872 -27.4572,69.8763 -27.4671,69.8833 -27.4623,69.8946 -27.4598,69.9436 -27.4696,69.9557 -27.4819,69.9597 -27.5076,69.9619 -27.547,69.9602 -27.5786,69.9573 -27.736,69.9407 -27.7637,69.937 -27.7908,69.932 -27.8803,69.9177 -27.9112,69.9169 -27.9498,69.9305 -27.988,69.9453 -28.0261,69.9676 -28.0365,69.9748 -28.0631,69.9806 -28.1086,69.9817 -28.1361,69.9787 -28.2837,69.9612 -28.3115,69.9565 -28.3283,69.9561 -28.4532,69.9529 -28.4676,69.9525 -28.48,69.9536 -28.492,69.9618 -28.5105,69.9815 -29.2408,69.9329 -29.2532,70.2555 -29.216,70.7023 -29.1788,71.087 -29.0299,71.6454 -28.8685,72.1542 -28.6824,72.5016 -28.2481,72.9856 -27.7765,73.4448 -27.1312,73.755 -25.8655,74.0652 -25.1706,74.2265 -23.4705,74.2638 -22.4204,73.9815 -22.4057,73.9875 -22.3927,73.9907 -22.3721,73.9933 -22.3338,73.9944 -22.2938,73.9926 -22.2332,73.9919 -22.1946,73.9931 -22.1541,73.998 -22.1392,74.0011 -22.1218,74.0061 -22.1067,74.0121 -22.0976,74.0172 -22.1498,74.062 -22.1426,74.084 -22.0438,74.1134 -22.0109,74.1247 -21.9877,74.1405 -21.9814,74.1549 -21.9989,74.1845 -22.0176,74.1912 -22.0412,74.1954 -22.0854,74.1989 -22.1034,74.1991 -22.1455,74.1962 -22.1624,74.1934 -22.1936,74.186 -22.2285,74.1796 -22.2606,74.1796 -22.2881,74.1839 -22.4095,74.2038 -22.4215,74.2087 -22.4097,74.2126 -22.3812,74.2135 -22.3682,74.2125 -22.1944,74.2099 -22.0329,74.211 -22.0113,74.2117 -21.9426,74.2198 -21.9074,74.2261 -21.8744,74.2338 -21.7709,74.2679 -21.7211,74.3075 -21.7082,74.321 -21.7234,74.337 -21.8684,74.4195 -21.9649,74.4554 -22.0449,74.4812 -22.0536,74.4888 -22.043,74.4949 -22.0255,74.4963 -21.9954,74.4941 -21.9676,74.4892 -21.8407,74.4503 -21.8251,74.4437 -21.7818,74.413 -21.7723,74.3953 -21.7611,74.3824 -21.7272,74.3707 -21.6715,74.3584 -21.6053,74.3456 -21.5603,74.3422 -21.5366,74.3423 -21.4783,74.3464 -21.368,74.3564 -21.2853,74.3641 -21.2043,74.37 -20.9642,74.3638 -20.8772,74.3577 -20.6983,74.3544 -20.5642,74.3533 -20.4508,74.3501 -20.418,74.3492 -20.3256,74.3436 -20.3106,74.3415 -20.2967,74.3375 -20.1866,74.2638 -20.1586,74.205 -20.08,74.1713 -19.7799,74.1452 -19.6344,74.1366 -19.5465,74.1339 -19.5254,74.135 -19.3281,74.1599 -19.3182,74.164 -19.126,74.2456 -19.1178,74.2527 -19.1141,74.2695 -19.1265,74.2935 -19.1107,74.3013 -19.0387,74.3203 -18.9291,74.3817 -18.9563,74.3921 -18.9757,74.3963 -19.0814,74.3991 -19.2003,74.4113 -19.2153,74.4152 -19.2326,74.423 -19.2654,74.4969 -19.2587,74.5076 -19.2463,74.5174 -19.2368,74.5234 -19.2266,74.5335 -19.2215,74.5443 -19.2344,74.5529 -19.245,74.5584 -19.3024,74.5769 -19.3234,74.5808 -19.3423,74.5825 -19.3607,74.5832 -19.3825,74.5821 -19.3997,74.5789 -19.5771,74.5254 -19.6351,74.5023 -19.649,74.4914 -19.6634,74.4833 -19.746,74.4788 -19.7648,74.4814 -19.9567,74.5248 -19.9732,74.5409 -19.9977,74.5513 -20.0835,74.569 -20.1399,74.5726 -20.4736,74.5715 -20.4957,74.5708 -20.5376,74.5642 -20.6066,74.5518 -20.7935,74.5335 -20.8443,74.5377 -20.8592,74.5381 -20.8777,74.5389 -20.9281,74.5365 -20.9627,74.5396 -21.0474,74.5534 -21.0622,74.5584 -21.0625,74.5719 -21.0396,74.5728 -21.0156,74.5667 -20.9872,74.5584 -20.9236,74.5552 -20.8575,74.555 -20.8011,74.5566 -20.7429,74.5636 -20.6979,74.5719 -20.6295,74.5991 -20.5616,74.6287 -20.5525,74.6424 -20.5851,74.6618 -20.6107,74.6726 -20.6493,74.6893 -20.6678,74.6997 -20.6997,74.7239 -20.7063,74.7332 -20.7076,74.7475 -20.6945,74.7593 -20.6291,74.8145 -20.5793,74.9322 -20.5745,74.9536 -20.5835,74.958 -20.6076,74.9624 -20.6311,74.9648 -20.6541,74.9659 -20.6748,74.966 -20.801,74.9602 -20.846,74.9597 -20.8885,74.9623 -20.9366,74.9707 -20.9896,74.9819 -21.0127,74.9845 -21.036,74.9856 -21.0728,74.9829 -21.0911,74.9807 -21.1188,74.9741 -21.1666,74.9606 -21.1816,74.955 -21.2208,74.9389 -21.2625,74.9235 -21.3575,74.891 -21.398,74.8795 -21.419,74.8745 -21.4642,74.8648 -21.4926,74.861 -21.6105,74.851 -21.6305,74.8498 -21.6851,74.8509 -21.7083,74.8521 -21.7557,74.8586 -21.7922,74.8654 -21.8089,74.8696 -21.8393,74.8796 -21.8827,74.903 -21.9016,74.9257 -21.8871,74.9347 -21.8852,74.9464 -21.8994,74.9531 -21.9122,74.9568 -22.0947,75.0045 -22.1119,75.009 -22.1564,75.0157 -22.2277,75.0228 -22.3341,75.0448 -22.3653,75.0547 -22.3742,75.0615 -22.3578,75.0634 -22.3304,75.0616 -22.2859,75.056 -22.1164,75.0326 -22.0675,75.0252 -21.8701,74.9742 -21.8274,74.9602 -21.8099,74.9416 -21.8061,74.9275 -21.8105,74.9153 -21.801,74.9049 -21.7011,74.8773 -21.683,74.8738 -21.5809,74.8904 -21.5039,74.9052 -21.4163,74.9227 -21.3794,74.9342 -21.3553,74.946 -21.3423,74.951 -21.3174,74.9608 -21.2352,74.9884 -21.1722,75.0076 -21.1341,75.012 -20.919,75.0345 -20.8782,75.0375 -20.8558,75.0378 -20.8331,75.0375 -20.7979,75.0343 -20.7582,75.0293 -20.7179,75.0223 -20.6524,75.0127 -20.6331,75.0113 -20.6143,75.0118 -20.4983,75.0276 -20.477,75.0313 -20.4595,75.0363 -20.465,75.0473 -20.4741,75.0585 -20.4913,75.0757 -20.5063,75.087 -20.5324,75.0969 -20.553,75.1022 -20.5979,75.1112 -20.6705,75.1239 -20.7611,75.1379 -20.8005,75.1472 -20.8198,75.1583 -20.841,75.1782 -20.9084,75.1988 -20.9505,75.2094 -20.9772,75.2142 -21.1553,75.2454 -21.18,75.2485 -21.2427,75.2519 -21.2672,75.2561 -21.281,75.2619 -21.2928,75.2679 -21.3099,75.2875 -21.3134,75.2992 -21.3392,75.3128 -21.3564,75.3182 -21.3813,75.3228 -21.4079,75.3262 -21.4886,75.3348 -21.5525,75.3393 -21.7692,75.3532 -21.838,75.356 -21.9045,75.3568 -21.993,75.3558 -22.0153,75.3577 -22.321,75.3906 -22.367,75.3973 -22.4139,75.4065 -22.4367,75.4156 -22.4496,75.425 -22.4489,75.435 -22.4408,75.4453 -22.4292,75.4482 -22.412,75.4492 -22.4034,75.4427 -22.405,75.4292 -22.393,75.4205 -22.3533,75.41 -22.2595,75.3958 -22.2366,75.3931 -22.0523,75.372 -22.0281,75.3698 -21.9349,75.3696 -21.7959,75.366 -21.6385,75.3604 -21.5669,75.3561 -21.4384,75.345 -21.3918,75.3444 -21.3688,75.345 -21.3481,75.3487 -21.4714,75.3986 -21.4847,75.4028 -21.5497,75.4189 -21.7784,75.4681 -21.8809,75.4886 -21.9742,75.5056 -22.0492,75.5162 -22.0999,75.5233 -22.1649,75.5284 -22.1944,75.5335 -22.2148,75.5399 -22.2221,75.5514 -22.201,75.5567 -22.1899,75.5579 -22.0961,75.5554 -22.0513,75.5515 -22.0285,75.5491 -21.9819,75.5413 -21.8485,75.5136 -21.7977,75.5055 -21.7483,75.4988 -21.6488,75.4893 -21.6276,75.4859 -21.5847,75.4763 -21.4427,75.4441 -21.4036,75.4332 -21.2166,75.3813 -21.175,75.3652 -21.1654,75.3593 -21.158,75.3499 -21.1499,75.3239 -21.1276,75.3046 -21.1113,75.2976 -21.0987,75.2937 -20.9081,75.2523 -20.6494,75.1907 -20.6288,75.1873 -20.6052,75.185 -20.5859,75.1846 -20.5635,75.185 -20.4802,75.1887 -20.4244,75.1926 -20.3841,75.1986 -20.3523,75.2068 -20.3312,75.2134 -20.2964,75.2238 -20.2522,75.2306 -20.1258,75.2308 -20.1045,75.23 -20.0808,75.2265 -20.0561,75.2212 -19.9116,75.1848 -19.9011,75.1723 -19.9205,75.1624 -19.9522,75.1564 -19.9686,75.1443 -19.9603,75.1029 -19.9492,75.0802 -19.9406,75.0739 -19.861,75.0461 -19.8446,75.0426 -19.829,75.0412 -19.595,75.029 -19.5703,75.0281 -19.5569,75.0285 -19.5357,75.0334 -19.4107,75.092 -19.4007,75.0971 -19.3574,75.1313 -19.3321,75.1579 -19.3257,75.1786 -19.3171,75.2125 -19.3156,75.223 -19.3134,75.2598 -19.2922,75.2825 -19.2841,75.2966 -19.3219,75.4179 -19.425,75.4179 -19.5987,75.4551 -19.7476,75.4799 -19.9834,75.5296 -20.2068,75.5668 -20.4922,75.6164 -20.7528,75.6289 -21.1127,75.6537 -21.5346,75.7033 -21.8324,75.7281 -22.1054,75.7902 -22.3164,75.8274 -22.5149,76.026 -22.7135,76.2245 -22.8003,76.4479 -22.8003,76.6836 -22.7507,76.8946 -22.6266,77.0807 -22.5273,77.2545 -22.3784,77.4282 -21.9689,77.5647 -21.958,77.5692 -21.9717,77.5731 -21.966,77.5868 -21.8318,77.6937 -21.7173,77.7366 -21.7019,77.743 -21.6577,77.7654 -21.6266,77.783 -21.5218,77.8488 -21.5143,77.8604 -21.53,77.8662 -21.5616,77.8643 -21.5826,77.8592 -21.6057,77.8501 -21.6249,77.8409 -21.6488,77.8279 -21.6579,77.8226 -21.6888,77.81 -21.7186,77.8047 -21.7504,77.8028 -21.771,77.8068 -21.6716,77.888 -21.6419,77.899 -21.5484,77.9186 -21.5228,77.9231 -21.4804,77.9328 -21.388,77.9614 -21.3449,77.9936 -21.3666,78.0002 -21.3853,77.9998 -21.4036,77.9982 -21.4592,77.9961 -21.5015,77.9966 -21.6923,78.0185 -21.6726,78.0266 -21.6499,78.0292 -21.6268,78.0296 -21.6029,78.0292 -21.5784,78.0277 -21.5076,78.0232 -21.4479,78.0162 -21.4239,78.016 -21.3525,78.0345 -21.3342,78.0405 -21.2237,78.098 -21.2124,78.1066 -21.2116,78.1182 -21.2248,78.1266 -21.2679,78.1365 -21.2993,78.1418 -21.3122,78.1495 -21.3127,78.1801 -21.3081,78.1911 -21.2972,78.2026 -21.2331,78.2502 -21.0658,78.3989 -20.9027,78.4751 -20.8742,78.4883 -20.8456,78.5056 -20.8408,78.5168 -20.8492,78.5248 -20.862,78.5309 -20.8728,78.5337 -20.9037,78.5358 -20.9306,78.5359 -21.0774,78.5288 -21.1066,78.5271 -21.1887,78.5185 -21.2459,78.5099 -21.2722,78.508 -21.2823,78.5089 -21.2935,78.5116 -21.3585,78.5336 -21.3369,78.5398 -21.3183,78.542 -21.199,78.5503 -21.145,78.5506 -21.063,78.5448 -21.0436,78.5453 -20.8639,78.5758 -20.9265,78.5913 -20.9481,78.5949 -21.0124,78.6582 -21.0339,78.6821 -21.0635,78.6818 -21.094,78.6824 -21.1183,78.691 -20.9426,78.7217 -20.9138,78.7244 -20.8911,78.7239 -20.8576,78.7225 -20.8336,78.7194 -20.8102,78.7174 -20.7599,78.7169 -20.7311,78.7194 -20.7087,78.725 -20.6984,78.7356 -20.6846,78.7451 -20.6186,78.7717 -20.6006,78.7752 -20.5557,78.7769 -20.5325,78.7756 -20.4151,78.7655 -20.2608,78.751 -20.2017,78.7474 -20.1459,78.7464 -20.0961,78.747 -20.0375,78.751 -19.9773,78.7571 -19.9562,78.761 -19.9372,78.7648 -19.9147,78.7709 -19.8968,78.7773 -19.8711,78.7889 -19.8555,78.8009 -19.8445,78.8125 -19.8442,78.8242 -19.8529,78.8475 -19.8618,78.858 -19.9324,78.9091 -19.9671,78.9201 -20.0144,78.9371 -20.0283,78.9464 -19.8679,79.0005 -19.7906,79.0071 -19.6652,79.0084 -19.6009,79.0073 -19.5787,79.0018 -19.558,79.0014 -19.5375,79.0027 -19.514,79.0077 -19.4924,79.0198 -19.4707,79.0315 -19.4624,79.0404 -19.4661,79.0511 -19.4754,79.0595 -19.5038,79.0737 -19.5054,79.0854 -19.3317,79.1533 -19.3174,79.1572 -19.2977,79.1594 -19.2542,79.1622 -19.178,79.1671 -19.1608,79.1597 -19.1776,79.1561 -19.2114,79.1506 -19.2254,79.1456 -19.234,79.1397 -19.2432,79.0881 -19.2496,79.0535 -19.2305,79.0507 -19.0441,79.0686 -19.0198,79.0851 -19.0456,79.106 -19.0641,79.1037 -19.078,79.0985 -19.0883,79.0897 -19.1045,79.0826 -19.1268,79.0816 -19.1426,79.0899 -19.1461,79.1005 -19.1191,79.1296 -19.1,79.1374 -19.0444,79.1559 -19.0316,79.1823 -19.1309,79.1992 -19.1636,79.2029 -19.4754,79.2131 -19.4964,79.2134 -19.5122,79.213 -19.5364,79.2093 -19.5504,79.2033 -19.5584,79.1971 -19.5873,79.1621 -19.6157,79.1155 -19.7402,79.0441 -19.7765,79.031 -19.8023,79.0348 -19.8118,79.0491 -19.8125,79.0646 -19.8089,79.0822 -19.7336,79.1371 -19.7172,79.1485 -19.6671,79.1669 -19.6291,79.1917 -19.6171,79.2011 -19.606,79.2131 -19.5946,79.2321 -19.5853,79.2858 -19.6197,79.314 -19.6739,79.311 -19.7374,79.3398 -19.6713,79.4021 -19.6627,79.408 -19.651,79.4122 -19.6221,79.4204 -19.5834,79.4306 -19.5634,79.4337 -19.5357,79.4427 -19.5296,79.451 -19.5237,79.4647 -19.5153,79.4997 -19.5179,79.5136 -19.5717,79.5288 -19.569,79.5422 -19.5595,79.5464 -19.4546,79.5909 -19.3835,79.6196 -19.3643,79.6258 -19.2543,79.6527 -19.2289,79.6587 -19.1984,79.6652 -19.167,79.6694 -19.1379,79.6712 -19.105,79.6704 -18.8786,79.6623 -18.8015,79.6592 -18.7036,79.6509 -18.6056,79.6397 -18.5377,79.6305 -18.4377,79.6216 -18.3719,79.6194 -18.3071,79.6208 -18.2404,79.6258 -18.217,79.6285 -18.1645,79.6356 -18.133,79.6417 -17.9638,79.6864 -17.9335,79.697 -17.8159,79.7466 -17.7968,79.7599 -17.7749,79.7745 -17.6558,79.8262 -17.5574,79.8611 -17.542,79.867 -17.3948,79.9331 -17.4602,79.9584 -17.5115,79.9747 -17.5905,79.9904 -17.6371,79.9984 -17.6716,80.0017 -17.7429,80.007 -17.877,80.0133 -17.9108,80.014 -17.9791,80.0153 -18.0802,80.0147 -18.3443,80.0003 -18.4047,79.9967 -18.6675,79.9727 -18.8518,79.9545 -18.9742,79.9594 -19.1365,79.9731 -19.1715,79.9757 -19.2281,79.9771 -19.3008,79.9692 -19.3301,79.965 -19.3716,79.957 -19.4009,79.9471 -19.4099,79.9412 -19.4216,79.9352 -19.439,79.93 -19.4648,79.9243 -19.5288,79.9171 -19.6455,79.9089 -19.8041,79.8957 -19.8364,79.8929 -19.8681,79.8888 -19.8989,79.8828 -19.9538,79.8685 -19.989,79.8596 -20.0029,79.8536 -20.1923,79.7616 -20.1462,79.7 -20.12,79.6959 -20.093,79.6969 -20.0826,79.6983 -20.0573,79.7036 -19.911,79.7207 -19.8444,79.7261 -19.8139,79.7245 -19.8226,79.7193 -19.8639,79.7118 -19.9073,79.705 -19.9785,79.6986 -20.0052,79.6974 -20.0677,79.6888 -20.0979,79.6828 -20.1216,79.675 -20.13,79.6684 -20.1502,79.6527 -20.17,79.6478 -20.2039,79.6448 -20.2619,79.6411 -20.2888,79.6448 -20.2837,79.6533 -20.3071,79.6992 -20.3468,79.7256 -20.4304,79.7344 -20.5151,79.7392 -20.6438,79.7378 -20.6595,79.7363 -20.6858,79.7426 -20.675,79.7566 -20.6644,79.763 -20.6398,79.7744 -20.5039,79.8259 -20.4184,79.8564 -20.402,79.8663 -20.4106,79.8747 -20.429,79.8792 -20.5329,79.9042 -20.5139,79.9128 -20.4866,79.9149 -20.4594,79.9163 -20.3987,79.9181 -20.3675,79.9229 -20.3014,79.9606 -20.3286,79.9673 -20.4308,79.9695 -20.4657,79.9721 -20.4897,79.9769 -20.4552,79.9838 -20.3951,79.9873 -20.3089,79.9949 -20.2129,80.0077 -20.1606,80.0157 -20.1347,80.0218 -20.0854,80.0384 -20.0714,80.044 -20.0624,80.0503 -20.0509,80.0615 -20.0391,80.0732 -20.0186,80.0857 -19.9983,80.097 -19.9796,80.107 -19.9325,80.1225 -19.9032,80.1283 -19.783,80.1475 -19.7557,80.1504 -19.6382,80.157 -19.6011,80.1577 -19.5352,80.1573 -19.3926,80.1514 -19.2899,80.1443 -19.1882,80.1319 -19.1274,80.1217 -19.0568,80.1148 -19.0214,80.1125 -18.8871,80.1103 -18.782,80.1118 -18.7161,80.1112 -18.6816,80.1095 -18.6467,80.1068 -18.5286,80.0936 -18.4563,80.0876 -18.39,80.084 -18.3215,80.0823 -18.253,80.0829 -18.1025,80.0927 -18.0442,80.0996 -17.983,80.1048 -17.9125,80.1078 -17.8814,80.1082 -17.7789,80.1079 -17.6389,80.1057 -17.5107,80.1018 -17.3732,80.0977 -17.2254,80.0982 -17.0906,80.1058 -17.0596,80.1083 -16.9219,80.1236 -16.8548,80.1317 -16.7936,80.1437 -16.7543,80.152 -16.5649,80.1972 -16.5369,80.2068 -16.5286,80.214 -16.5438,80.2174 -16.5955,80.2213 -16.6539,80.2276 -16.6749,80.2342 -16.7027,80.2502 -16.7155,80.2633 -16.7079,80.273 -16.6827,80.2774 -16.6014,80.2786 -16.5725,80.2775 -16.5577,80.2724 -16.5884,80.2624 -16.6054,80.2586 -16.6325,80.2424 -16.6007,80.2397 -16.569,80.2401 -16.546,80.2424 -16.4891,80.2511 -16.4667,80.2572 -16.448,80.2672 -16.4242,80.2814 -16.4002,80.2925 -16.3545,80.3041 -16.3093,80.3138 -16.2572,80.3207 -16.211,80.3285 -16.1828,80.3344 -16.0733,80.3669 -16.0676,80.3765 -16.089,80.3849 -16.1607,80.408 -16.1724,80.41 -16.4496,80.4283 -16.4847,80.429 -16.7263,80.4323 -16.9208,80.4355 -17.0166,80.4467 -17.1832,80.4743 -17.2435,80.4844 -17.3162,80.4941 -17.3824,80.4983 -17.4206,80.4978 -17.4763,80.495 -17.5021,80.4915 -17.6392,80.4669 -17.8037,80.4388 -17.8742,80.4387 -17.9093,80.4376 -17.9466,80.4338 -18.0723,80.4185 -18.107,80.4162 -18.1714,80.4158 -18.4528,80.4146 -18.5674,80.424 -18.6419,80.4362 -18.8302,80.4539 -18.8636,80.4558 -18.9791,80.4582 -19.0463,80.455 -19.1106,80.4534 -19.1462,80.4541 -19.1823,80.4556 -19.4091,80.4692 -19.427,80.4719 -19.4483,80.4795 -19.4546,80.4875 -19.4687,80.4931 -19.4944,80.4978 -19.5923,80.5043 -19.7384,80.5134 -19.8716,80.5184 -20.0039,80.5155 -20.062,80.5127 -20.0755,80.5101 -20.0915,80.5053 -20.1015,80.5011 -20.1076,80.4897 -20.1764,80.4596 -20.1969,80.4536 -20.2329,80.4481 -20.2635,80.4443 -20.2978,80.4419 -20.4009,80.4358 -20.5762,80.4217 -20.5865,80.4185 -20.6011,80.4095 -20.6388,80.3832 -20.6533,80.3774 -20.6766,80.3716 -20.7102,80.3683 -20.7448,80.3678 -20.7713,80.373 -20.7771,80.3837 -20.7688,80.3904 -20.7594,80.3946 -20.7437,80.418 -20.7756,80.4253 -20.8058,80.4267 -20.8639,80.4252 -20.893,80.4235 -20.957,80.4225 -21.0226,80.4235 -21.1221,80.4271 -21.153,80.4298 -21.1807,80.4406 -21.1463,80.4491 -21.1118,80.4508 -21.0762,80.4512 -21.0052,80.4504 -20.9658,80.4485 -20.8993,80.4465 -20.7891,80.4448 -20.7218,80.4451 -20.614,80.4483 -20.5133,80.454 -20.446,80.4605 -20.4131,80.4658 -20.3924,80.4717 -20.3762,80.4809 -20.3629,80.4901 -20.3449,80.4955 -20.3186,80.5016 -20.1813,80.5322 -20.1241,80.5437 -20.0574,80.5532 -20.0226,80.5554 -19.9869,80.5559 -19.7206,80.5478 -19.5618,80.5387 -19.528,80.5359 -19.4157,80.5234 -19.3402,80.5129 -19.3033,80.5102 -19.0532,80.508 -18.9065,80.5037 -18.8354,80.4958 -18.7991,80.492 -18.7626,80.4896 -18.6907,80.4869 -18.617,80.4883 -18.518,80.4938 -18.4837,80.497 -18.4094,80.5073 -18.3872,80.5113 -18.3544,80.522 -18.3221,80.5341 -18.3,80.5398 -18.2498,80.5508 -18.1638,80.5649 -18.1114,80.569 -18.0585,80.5711 -18.017,80.5747 -17.9791,80.5779 -17.9595,80.5823 -17.9413,80.5957 -17.9548,80.6104 -17.9751,80.6207 -17.964,80.6596 -17.901,80.6728 -17.7565,80.6497 -17.6917,80.6278 -17.6475,80.6164 -17.6369,80.614 -17.6073,80.6106 -17.5827,80.6098 -17.5469,80.6098 -17.4094,80.6113 -17.1702,80.6128 -17.0768,80.6107 -17.0106,80.608 -16.8081,80.5949 -16.7358,80.5873 -16.6993,80.5818 -16.6624,80.5772 -16.6206,80.5744 -16.5846,80.5744 -16.4429,80.5872 -16.3569,80.5936 -16.3241,80.5952 -16.2644,80.5971 -16.1658,80.5981 -16.0999,80.5972 -16.0309,80.5939 -16.0009,80.5938 -15.9772,80.5946 -15.9531,80.5965 -15.8699,80.6663 -15.7784,80.6974 -15.6247,80.7142 -15.5881,80.7179 -15.5156,80.7227 -15.2365,80.7321 -15.0389,80.7343 -15.0055,80.7347 -14.9081,80.7422 -14.8221,80.7516 -14.7607,80.7603 -14.7328,80.7653 -14.6302,80.7865 -14.6028,80.8133 -14.6142,80.8172 -14.7285,80.8432 -14.7617,80.849 -14.8316,80.8554 -14.862,80.8593 -14.8923,80.8668 -14.9045,80.8707 -15.0891,80.95 -14.9259,80.9934 -14.8255,80.9999 -14.5791,80.9991 -14.327,80.9911 -14.2211,80.9905 -14.1143,80.9938 -14.0576,80.9976 -13.9812,81.0071 -13.9288,81.0163 -13.722,81.0777 -13.6537,81.1245 -13.6238,81.138 -13.6072,81.1423 -13.5536,81.1535 -13.5005,81.1639 -13.4672,81.1693 -13.4347,81.1719 -13.3647,81.1705 -13.3265,81.1706 -13.2973,81.1717 -13.2029,81.1811 -13.1758,81.186 -13.1579,81.194 -13.1781,81.2011 -13.1959,81.2121 -13.177,81.2293 -13.1624,81.2346 -13.0905,81.2611 -13.0699,81.2667 -13.022,81.275 -12.9409,81.2883 -12.8048,81.3081 -12.7115,81.3184 -12.5618,81.3381 -12.5409,81.3415 -12.4668,81.358 -12.3244,81.3894 -12.2812,81.4006 -12.1288,81.454 -12.117,81.4624 -12.1251,81.4708 -12.1752,81.4779 -12.2445,81.486 -12.3018,81.4924 -12.3565,81.4961 -12.4091,81.4967 -12.451,81.4993 -12.4931,81.5028 -12.5181,81.5071 -12.542,81.523 -12.5532,81.5286 -12.5677,81.5341 -12.7368,81.5853 -12.7897,81.5966 -12.853,81.6078 -13.1249,81.6409 -13.1965,81.6481 -13.2365,81.6513 -13.3156,81.6566 -13.5911,81.6744 -13.7956,81.6818 -13.8227,81.6809 -13.8633,81.682 -14.009,81.6958 -14.0387,81.6994 -14.055,81.704 -14.0802,81.7153 -14.1131,81.7203 -14.1532,81.7235 -14.1869,81.7243 -14.2687,81.7243 -14.3359,81.7266 -14.3962,81.7343 -14.4488,81.7463 -14.5157,81.757 -14.5559,81.7618 -14.7181,81.7774 -14.7931,81.7817 -14.9324,81.7852 -15.0486,81.7869 -15.1242,81.7852 -15.1997,81.7815 -15.4324,81.7704 -15.5074,81.7663 -15.569,81.7615 -15.6099,81.7604 -15.6849,81.7624 -15.9379,81.7717 -16.1126,81.7799 -16.2386,81.7763 -16.399,81.7738 -16.43,81.7742 -16.4643,81.7761 -16.4915,81.7779 -16.6096,81.7902 -16.644,81.7908 -16.6847,81.789 -16.8259,81.7721 -16.8568,81.7609 -16.7905,81.7396 -16.7839,81.7298 -16.8049,81.7213 -16.8181,81.7188 -16.8382,81.7167 -16.8585,81.7157 -16.9395,81.7141 -16.9936,81.7152 -17.0693,81.7187 -17.1971,81.7047 -17.2076,81.6973 -17.2209,81.6962 -17.2615,81.6959 -17.3032,81.7006 -17.3313,81.7064 -17.3743,81.7177 -17.3889,81.7223 -17.4032,81.7243 -17.4238,81.7238 -17.4433,81.722 -17.4628,81.7173 -17.4756,81.713 -17.4805,81.608 -17.4706,81.6011 -17.4559,81.5966 -17.3831,81.584 -17.3143,81.5749 -17.2955,81.5628 -17.373,81.5521 -17.3928,81.5507 -17.4198,81.5528 -17.443,81.5599 -17.4706,81.5714 -17.4923,81.5772 -17.5338,81.586 -17.6024,81.5923 -17.7243,81.5981 -17.7575,81.5978 -17.7708,81.5968 -17.7995,81.5922 -17.8675,81.5334 -17.8325,81.5014 -17.786,81.4872 -17.7481,81.4821 -17.7116,81.4802 -17.6314,81.4776 -17.5647,81.4733 -17.5499,81.467 -17.7246,81.4142 -17.7439,81.4121 -17.8,81.4133 -17.89,81.42 -17.9786,81.4019 -17.9493,81.3488 -17.9571,81.3308 -18.1889,81.3015 -18.2151,81.3029 -18.3608,81.3137 -18.3881,81.3171 -18.4155,81.3217 -18.4366,81.3266 -18.4446,81.332 -18.4521,81.3489 -18.6333,81.3894 -18.6605,81.3917 -18.6735,81.3918 -18.6864,81.3906 -18.7011,81.3864 -18.7122,81.3812 -18.7086,81.3709 -18.7141,81.359 -18.7314,81.3445 -18.7433,81.3408 -18.7736,81.3352 -18.8132,81.3363 -18.8316,81.3424 -18.8808,81.3756 -18.9015,81.398 -18.9104,81.4039 -18.9312,81.4075 -19.0317,81.4123 -19.1645,81.4167 -19.4912,81.414 -19.8579,81.3581 -19.8746,81.3532 -19.897,81.339 -19.9327,81.3258 -20.0147,81.3014 -20.041,81.2958 -20.1679,81.2853 -20.1849,81.2863 -20.2287,81.3078 -20.2382,81.3137 -20.1838,81.3834 -20.1495,81.4239 -20.1638,81.4628 -20.073,81.4793 -20.0589,81.4775 -20.0331,81.4787 -20.0093,81.484 -19.9891,81.4895 -19.9749,81.4936 -19.8416,81.5384 -19.874,81.5439 -19.9021,81.5399 -20.1528,81.5041 -20.4395,81.4712 -20.5105,81.4685 -20.6636,81.4481 -20.6997,81.4423 -20.8928,81.3916 -21.0317,81.347 -21.1017,81.328 -21.1617,81.3153 -21.2086,81.3079 -21.3041,81.2949 -21.3579,81.2832 -21.3754,81.2712 -21.3677,81.2589 -21.3786,81.2212 -21.3918,81.2064 -21.4095,81.1945 -21.4467,81.1835 -21.4767,81.1805 -21.5143,81.1787 -21.5523,81.1783 -21.6201,81.1743 -21.6542,81.168 -21.6754,81.1618 -21.6906,81.1556 -21.6992,81.1498 -21.7038,81.1383 -21.6897,81.1267 -21.6795,81.1215 -21.6878,81.1099 -21.7128,81.1043 -21.7351,81.0999 -21.7729,81.0951 -21.949,81.0795 -21.9836,81.0752 -22.0178,81.0696 -22.2905,81.0022 -22.3358,80.9866 -22.3441,80.9811 -22.389,80.9701 -22.5955,80.9209 -22.6495,80.9102 -22.6704,80.9049 -22.6856,80.8964 -22.6769,80.885 -22.6698,80.8685 -22.6872,80.8588 -22.7109,80.853 -22.9577,80.8057 -22.9902,80.8002 -23.0264,80.7953 -23.1895,80.7729 -23.2517,80.7658 -23.2805,80.7641 -23.4187,80.7639 -23.4589,80.7612 -23.4826,80.7564 -23.5003,80.7504 -23.5057,80.7335 -23.4705,80.7128 -23.4533,80.7074 -23.4293,80.6935 -23.4292,80.6822 -23.4403,80.67 -23.4541,80.665 -23.4689,80.6607 -23.4995,80.6542 -23.5522,80.6443 -23.5838,80.6079 -23.5956,80.5847 -23.6115,80.579 -23.7059,80.5523 -23.7821,80.5328 -23.8487,80.5164 -23.966,80.4931 -24.0868,80.468 -24.1509,80.4527 -24.2146,80.4375 -24.3037,80.418 -24.3292,80.4136 -24.3961,80.4091 -24.4328,80.41 -24.4631,80.4219 -24.4385,80.4385 -24.238,80.4997 -24.1022,80.5349 -24.0771,80.5404 -23.9871,80.5562 -24.0215,80.5595 -24.0611,80.5598 -24.0941,80.5593 -24.158,80.5571 -24.2263,80.5524 -24.2588,80.5488 -24.2907,80.5442 -24.3251,80.5424 -24.3529,80.5462 -24.3404,80.5529 -24.3089,80.5573 -24.0774,80.581 -23.9438,80.5873 -23.9128,80.5926 -23.8981,80.5968 -23.7302,80.6717 -23.7668,80.706 -23.7826,80.7175 -23.7925,80.7216 -23.8019,80.7558 -23.5968,80.8314 -23.5792,80.8361 -23.527,80.8478 -23.4598,80.8627 -23.3809,80.8798 -23.3554,80.8863 -23.3002,80.902 -23.2866,80.9079 -23.2716,80.9196 -23.2662,80.9339 -23.2681,80.9452 -23.2252,80.9616 -23.1171,80.982 -23.0005,81.0082 -22.9303,81.0265 -22.9035,81.0361 -22.8791,81.0454 -22.69,81.128 -22.7724,81.1488 -22.8118,81.15 -22.8813,81.1487 -22.892,81.1543 -22.8771,81.1593 -22.8463,81.1609 -22.6674,81.1614 -22.6373,81.1639 -22.5692,81.1713 -22.51,81.1813 -22.4887,81.1866 -22.4525,81.1981 -22.4223,81.2094 -22.4078,81.215 -22.1959,81.3106 -22.157,81.3282 -22.1249,81.3463 -22.0469,81.4168 -21.8997,81.5937 -21.8857,81.6281 -21.9359,81.7751 -21.9423,81.7921 -21.9563,81.8104 -21.9712,81.8205 -22.024,81.8525 -22.1745,81.9314 -22.1932,81.9371 -22.2255,81.942 -22.2686,81.9434 -22.3097,81.9421 -22.463,81.9327 -22.7189,81.9208 -22.7598,81.9192 -22.8011,81.9185 -23.0394,81.9148 -23.4349,81.9072 -23.5334,81.9037 -23.6081,81.8982 -23.9207,81.8681 -23.945,81.8645 -23.9554,81.8613 -24.036,81.8095 -24.0708,81.7247 -24.0331,81.6575 -24.0233,81.6261 -24.088,81.5813 -24.1022,81.5754 -24.1294,81.5692 -24.1676,81.5671 -24.2188,81.5672 -24.2906,81.5718 -24.4187,81.5777 -24.4635,81.5791 -24.4968,81.5784 -24.5464,81.5747 -24.5691,81.5702 -24.5845,81.5661 -24.5962,81.5614 -24.6298,81.5548 -24.6661,81.5508 -24.7131,81.5508 -24.839,81.5545 -24.863,81.5524 -24.9131,81.5458 -24.9709,81.5342 -24.9856,81.529 -25.0021,81.5184 -25.0517,81.5042 -25.2681,81.4771 -25.4408,81.4556 -25.9761,81.3965 -26.2181,81.3748 -26.2556,81.3731 -26.3649,81.365 -26.4593,81.3556 -26.5158,81.3482 -26.5493,81.3437 -26.5972,81.3345 -26.6247,81.3248 -26.6496,81.3135 -26.6651,81.3075 -26.6791,81.3031 -26.733,81.2941 -26.7928,81.2846 -26.8211,81.2806 -26.8997,81.2703 -26.9465,81.2665 -27.1825,81.2469 -27.2379,81.2441 -27.3918,81.2462 -27.4621,81.2499 -27.4797,81.2528 -27.4625,81.2599 -27.4248,81.261 -27.3642,81.2599 -27.3201,81.2562 -27.2848,81.2544 -27.2127,81.2528 -27.121,81.2616 -27.0961,81.269 -27.1446,81.3138 -27.162,81.3172 -27.1826,81.3177 -27.2155,81.3175 -27.269,81.3128 -27.3002,81.3121 -27.3611,81.3133 -27.3892,81.3142 -27.426,81.3172 -27.4857,81.3271 -27.5302,81.3399 -27.5367,81.3514 -27.5229,81.3608 -27.5051,81.367 -27.4837,81.3706 -27.4238,81.3778 -27.3649,81.3836 -27.0635,81.4044 -26.8401,81.4167 -26.7759,81.421 -26.7522,81.4235 -26.6034,81.4423 -26.5461,81.4495 -26.3841,81.4723 -26.2694,81.4904 -26.129,81.5069 -26.0554,81.5124 -25.8173,81.5439 -25.78,81.549 -25.7153,81.5601 -25.6807,81.5648 -25.5762,81.5789 -25.4712,81.5908 -25.4374,81.5941 -25.3732,81.6025 -25.3429,81.6085 -25.2718,81.6261 -25.2321,81.6364 -25.2219,81.642 -25.1839,81.6621 -25.1585,81.6836 -25.1171,81.8449 -25.1373,81.8533 -25.153,81.855 -25.2393,81.8567 -25.3152,81.8561 -25.4003,81.8567 -25.5705,81.8586 -25.9433,81.8655 -26.2282,81.8737 -26.3138,81.8743 -26.383,81.8734 -26.5186,81.8701 -26.856,81.8796 -27.0233,81.8782 -27.2771,81.883 -27.3596,81.8814 -27.4516,81.877 -27.7029,81.8745 -27.9574,81.8725 -28.2452,81.8671 -28.328,81.8653 -28.4961,81.8555 -28.5658,81.8527 -28.776,81.8558 -28.8222,81.8558 -28.8988,81.8531 -29.3182,81.8145 -29.3469,81.8103 -29.3761,81.8048 -29.3872,81.7978 -29.3782,81.7916 -29.367,81.7891 -29.3369,81.7796 -29.4107,81.7571 -29.5181,81.7301 -29.5389,81.7278 -29.6059,81.7278 -29.6419,81.7285 -29.6584,81.7299 -29.6721,81.7521 -29.6345,81.7665 -29.5891,81.7934 -29.6011,81.8001 -29.6226,81.8007 -29.6668,81.7999 -29.7725,81.7938 -30.2649,81.7613 -30.4297,81.7478 -30.4847,81.7411 -30.5028,81.7396 -30.6076,81.7319 -30.6783,81.7285 -30.9056,81.7258 -30.9761,81.7221 -31.056,81.7163 -31.1228,81.7105 -31.2685,81.7006 -31.4468,81.6929 -31.4811,81.6929 -31.5207,81.6913 -31.6087,81.6844 -31.7289,81.6704 -31.9,81.6492 -32.1854,81.6119 -32.2427,81.6045 -32.3025,81.5943 -32.3817,81.5734 -32.3923,81.565 -32.4024,81.5595 -32.4287,81.5471 -32.4552,81.5416 -32.5089,81.5375 -32.5429,81.5369 -32.7754,81.5302 -32.8228,81.5233 -32.8572,81.5195 -32.9077,81.5176 -32.9217,81.5206 -32.9355,81.5274 -32.9869,81.634 -32.95,81.6725 -32.938,81.6788 -32.8913,81.6883 -32.8273,81.6982 -32.7918,81.7031 -32.6616,81.7201 -32.5587,81.7282 -32.3186,81.7491 -32.1516,81.7682 -32.0736,81.7751 -32.0053,81.78 -31.8445,81.7813 -31.7456,81.7919 -31.5885,81.8134 -31.3616,81.8263 -31.2564,81.8266 -31.1267,81.8266 -31.095,81.8287 -31.065,81.8352 -31.0323,81.8477 -30.9995,81.8531 -30.8883,81.8619 -30.6384,81.8809 -30.3691,81.9014 -30.2901,81.9052 -30.2093,81.9082 -30.1039,81.9152 -29.831,81.9446 -29.8165,81.9466 -29.8062,81.953 -29.9233,81.9958 -29.9484,81.9992 -30.0197,82.0067 -30.0623,82.0104 -30.3513,82.033 -30.4815,82.0363 -30.9163,82.0399 -31.321,82.045 -31.4417,82.0503 -31.4636,82.052 -31.512,82.0618 -31.4832,82.0652 -31.4453,82.0647 -31.343,82.0577 -31.2945,82.0556 -31.2564,82.0548 -31.2137,82.0555 -31.0969,82.0614 -31.0515,82.0624 -30.9713,82.0625 -30.84,82.059 -30.6128,82.0474 -30.5638,82.0466 -30.3886,82.0467 -30.2552,82.0454 -30.2165,82.0426 -30.1965,82.0374 -29.9854,82.0275 -29.8962,82.0267 -29.8527,82.0247 -29.8156,82.0201 -29.7986,82.0145 -29.7876,82.0065 -29.7811,81.9988 -29.7521,81.9913 -29.7118,81.9884 -29.6856,81.9879 -29.6074,81.9886 -29.5057,82.001 -29.4622,82.0029 -29.4248,82.0021 -29.3579,81.9986 -29.2731,81.9957 -29.1832,81.9936 -29.1404,81.994 -29.0237,82.0017 -28.8481,82.0129 -28.5788,82.0294 -28.4622,82.0351 -28.3765,82.0354 -28.2863,82.0335 -28.1707,82.0289 -28.1361,82.0302 -28.0318,82.0371 -28.0002,82.04 -27.915,82.0429 -27.8718,82.0433 -27.7848,82.0428 -27.6225,82.0406 -27.355,82.0354 -27.3065,82.0343 -27.0922,82.0275 -26.8701,82.0228 -26.7002,82.0197 -26.6105,82.017 -26.429,82.0098 -26.0746,82.0013 -26.032,82.0016 -25.8217,82.0045 -25.6101,82.0065 -25.3202,82.0085 -25.0686,82.0098 -24.9834,82.0096 -24.9426,82.0117 -24.8635,82.0171 -24.6369,82.034 -24.521,82.0452 -24.4459,82.0546 -24.3414,82.0699 -24.2346,82.0872 -24.1718,82.0985 -24.0933,82.1095 -24.0582,82.1135 -23.6835,82.1476 -23.6152,82.1516 -23.5739,82.15 -23.5581,82.1452 -23.5259,82.1415 -23.4824,82.1416 -23.0562,82.1447 -22.9708,82.1461 -22.8845,82.1498 -22.5581,82.1725 -22.4404,82.1828 -22.4227,82.1846 -22.4042,82.1866 -22.3685,82.1915 -22.2989,82.203 -22.1485,82.2312 -22.1318,82.2372 -22.1215,82.2465 -22.1393,82.2546 -22.1922,82.2655 -22.2154,82.2713 -22.2308,82.2762 -22.1394,82.3022 -22.0834,82.3145 -22.0413,82.3168 -21.9518,82.3198 -21.9131,82.3215 -21.8719,82.3252 -21.7733,82.3399 -21.3568,82.4039 -21.3244,82.4099 -21.3063,82.416 -21.2461,82.4499 -21.2419,82.4643 -21.2635,82.4728 -21.2901,82.4782 -21.3235,82.4824 -21.483,82.5047 -21.702,82.5418 -21.9412,82.5644 -21.9901,82.5687 -22.0297,82.5745 -22.2097,82.6011 -22.3265,82.6206 -22.442,82.6371 -22.5201,82.6466 -22.5602,82.6423 -22.5771,82.6239 -22.7537,82.6107 -22.7838,82.6132 -22.7994,82.6217 -22.8316,82.6353 -22.8636,82.6402 -22.8922,82.6418 -23.0026,82.6404 -23.0349,82.6423 -23.079,82.6473 -23.0918,82.6528 -23.0858,82.669 -23.0968,82.6761 -23.1136,82.6815 -23.1778,82.6905 -23.2292,82.6958 -23.2965,82.7003 -23.3402,82.701 -23.3826,82.7007 -23.6044,82.6837 -23.6146,82.6823 -23.6673,82.6575 -23.6548,82.6418 -23.664,82.636 -23.6847,82.6303 -23.7645,82.6193 -23.8626,82.6109 -23.9066,82.6093 -23.938,82.6094 -23.9418,82.7141 -23.9168,82.7229 -23.8764,82.7285 -23.7934,82.7377 -23.7583,82.7462 -23.7779,82.7514 -23.8741,82.7602 -23.908,82.7625 -23.9443,82.76 -24.0493,82.7498 -24.0768,82.7463 -24.0931,82.7404 -24.1018,82.7341 -24.1215,82.7309 -24.1609,82.7312 -24.2101,82.733 -24.2602,82.7362 -24.3101,82.7416 -24.3429,82.7463 -24.3948,82.7503 -24.4508,82.7511 -24.5001,82.7497 -24.5315,82.7464 -24.5596,82.7406 -24.6336,82.725 -24.7031,82.7119 -24.7769,82.6994 -24.9109,82.6787 -24.9931,82.6704 -25.143,82.6605 -25.1711,82.6582 -25.1848,82.6568 -25.2717,82.6464 -25.3245,82.6396 -25.3983,82.6312 -25.4838,82.6253 -25.5422,82.6232 -25.6476,82.621 -25.7101,82.6215 -25.7621,82.6231 -25.7877,82.6301 -25.7011,82.6289 -25.6516,82.63 -25.5172,82.636 -25.4782,82.6415 -25.4335,82.6542 -25.246,82.6858 -25.1544,82.6957 -25.0479,82.7337 -25.0451,82.7431 -25.0359,82.7481 -25.0024,82.7585 -24.9375,82.7752 -24.8866,82.7878 -24.8057,82.8043 -24.6958,82.8332 -24.6796,82.8391 -24.663,82.854 -24.67,82.8627 -24.6852,82.868 -24.7078,82.8734 -24.7738,82.8805 -24.8042,82.8858 -24.8423,82.8971 -24.8578,82.9025 -24.8902,82.921 -24.8987,82.9317 -24.8829,82.9394 -24.8561,82.9436 -24.786,82.952 -24.7549,82.959 -24.8515,82.989 -24.8717,82.9951 -24.8954,83.0004 -24.9288,83.0043 -24.9748,83.0081 -25.0526,83.0116 -25.0985,83.0121 -25.2339,83.0069 -25.5349,82.9894 -25.7335,82.9781 -25.9824,82.9653 -26.1658,82.9527 -26.2862,82.9436 -26.3904,82.9348 -26.4249,82.9314 -26.4551,82.9271 -26.4713,82.922 -26.4984,82.916 -26.5174,82.9127 -26.5702,82.9106 -27.0772,82.9067 -27.1763,82.9086 -27.5188,82.9149 -27.622,82.918 -27.72,82.9235 -27.7666,82.9269 -27.8264,82.9287 -27.8652,82.9277 -27.9071,82.9234 -27.9378,82.918 -27.9602,82.9125 -28.0024,82.8997 -28.0313,82.8931 -28.0777,82.8917 -28.1168,82.8957 -28.1526,82.9067 -28.1665,82.9194 -28.4037,82.9508 -28.4516,82.9541 -28.6622,82.9597 -28.8172,82.9658 -29.0865,82.9778 -29.1908,82.9809 -29.3314,82.9835 -29.4355,82.9835 -29.5298,82.9833 -29.771,82.9805 -29.9525,82.9744 -30.035,82.9688 -30.0766,82.9629 -30.1082,82.9568 -30.1718,82.94 -30.2082,82.9342 -30.2489,82.9297 -30.2949,82.9285 -30.3962,82.9279 -30.4434,82.9288 -30.5917,82.9291 -30.6678,82.928 -30.7361,82.9236 -30.7729,82.9197 -30.8466,82.9089 -30.9181,82.8965 -31.0312,82.8808 -31.1152,82.8731 -31.2603,82.8536 -31.3124,82.8506 -31.3358,82.8479 -31.3582,82.8448 -31.3781,82.8406 -31.392,82.8358 -31.4033,82.8238 -31.4707,82.7972 -31.4813,82.7882 -31.5185,82.7817 -31.532,82.78 -31.5544,82.7792 -31.5973,82.782 -31.6103,82.7942 -31.6029,82.808 -31.6072,82.8186 -31.6179,82.8233 -31.6629,82.834 -31.7301,82.8398 -31.8204,82.8438 -31.8626,82.8443 -31.95,82.8433 -32.062,82.8405 -32.0912,82.839 -32.2342,82.8326 -32.4286,82.8301 -32.6934,82.8229 -32.8368,82.823 -32.8841,82.8224 -33.0639,82.8158 -33.2387,82.8073 -33.3532,82.8009 -33.4186,82.7959 -33.4532,82.7921 -33.5491,82.7782 -33.5716,82.7745 -33.592,82.7698 -33.6158,82.7583 -33.6129,82.7395 -33.5959,82.7236 -33.5826,82.7122 -33.5673,82.6973 -33.5688,82.6854 -33.5803,82.6759 -33.6399,82.6619 -33.7193,82.6456 -33.7632,82.6409 -33.795,82.6407 -33.8067,82.6428 -33.7932,82.6543 -33.7193,82.6675 -33.6862,82.6798 -33.6866,82.6989 -33.6924,82.7109 -33.7124,82.728 -33.7362,82.7369 -33.7666,82.7475 -33.7786,82.7504 -33.8049,82.7542 -33.827,82.7567 -33.8999,82.7613 -33.9469,82.7619 -34.1995,82.7587 -34.2954,82.7591 -34.5041,82.7638 -34.5849,82.7638 -34.6785,82.7616 -34.7641,82.7573 -34.8446,82.7494 -34.908,82.7411 -35.1473,82.7039 -35.164,82.7013 -35.1835,82.6963 -35.2539,82.6472 -35.2739,82.6095 -35.3108,82.5936 -35.3639,82.5952 -35.4008,82.6002 -35.4156,82.6055 -35.4266,82.6135 -35.4203,82.6228 -35.2948,82.7171 -35.2708,82.7232 -35.1916,82.7354 -35.1719,82.7375 -35.1898,82.7439 -35.2292,82.7462 -35.3077,82.748 -35.3939,82.7495 -35.438,82.7489 -35.4723,82.7531 -35.4198,82.761 -35.3803,82.7622 -35.2821,82.7621 -35.1788,82.7603 -35.0442,82.7619 -34.8333,82.769 -34.6391,82.7819 -34.5873,82.7828 -34.4175,82.7819 -34.2849,82.7814 -34.1961,82.7817 -34.0557,82.7844 -34.0112,82.7862 -33.8875,82.7919 -33.8106,82.7988 -33.715,82.8094 -33.6548,82.8177 -33.5998,82.8246 -33.4867,82.8352 -33.4414,82.8381 -33.1832,82.8516 -32.8388,82.8671 -32.6363,82.8698 -32.5686,82.8707 -32.4077,82.8825 -32.3795,82.886 -32.3569,82.8935 -32.3825,82.9075 -32.4038,82.9129 -32.4787,82.9298 -32.5321,82.9381 -32.6401,82.9481 -32.7659,82.9601 -32.8499,82.967 -32.8974,82.9692 -33.0006,82.9703 -33.0924,82.9672 -33.1354,82.9675 -33.3594,82.9933 -33.2687,82.9994 -33.2152,82.9983 -33.1095,82.9951 -32.9564,82.9875 -32.677,82.9698 -32.3994,82.9518 -32.3475,82.9476 -32.2774,82.9391 -32.2225,82.9301 -32.1863,82.9255 -32.0236,82.909 -31.9081,82.9022 -31.8158,82.9014 -31.5477,82.9065 -31.5296,82.9091 -31.5016,82.915 -31.4718,82.9198 -31.3927,82.9285 -31.1991,82.945 -31.0216,82.9557 -30.9468,82.959 -30.8627,82.9607 -30.8201,82.9597 -30.731,82.9605 -30.6962,82.9637 -30.66,82.9696 -30.6255,82.9766 -30.5865,82.9835 -30.5125,82.9929 -30.435,82.9994 -30.3526,83.0052 -30.2657,83.0094 -30.0811,83.0159 -29.9404,83.0199 -29.8426,83.021 -29.6871,83.0199 -29.5386,83.0206 -29.4477,83.0224 -29.2397,83.0242 -28.7071,83.0182 -28.4977,83.0122 -28.3867,83.0076 -28.1756,82.998 -28.1203,82.9943 -28.0616,82.9915 -27.9604,82.988 -27.6582,82.9837 -27.5106,82.9836 -27.2783,82.9888 -27.1304,82.991 -26.9907,82.9899 -26.8602,82.9925 -26.7732,82.9971 -26.616,83.0114 -26.2104,83.0455 -26.0288,83.0503 -25.9459,83.055 -25.6118,83.1187 -25.58,83.1251 -25.5615,83.1379 -25.5778,83.1462 -25.5927,83.1509 -25.683,83.1722 -25.7075,83.1777 -26.006,83.2166 -26.1052,83.2258 -26.1633,83.2306 -26.2457,83.2347 -26.6551,83.2675 -27.0785,83.2962 -27.3335,83.3125 -27.6507,83.3238 -27.76,83.3268 -27.8129,83.3276 -27.8607,83.3257 -27.9032,83.3206 -27.9491,83.3177 -27.9935,83.316 -28.0954,83.3129 -28.2894,83.3087 -28.3376,83.3026 -28.3131,83.2943 -28.2646,83.2892 -28.0989,83.2742 -28.2154,83.2659 -28.4568,83.2625 -28.4993,83.2625 -28.5614,83.2701 -28.6154,83.278 -28.7918,83.3083 -28.8,83.3171 -28.7654,83.323 -28.6013,83.3208 -28.5503,83.3211 -28.4568,83.3239 -28.4261,83.3281 -28.4102,83.3368 -28.4208,83.3456 -28.44,83.3508 -28.464,83.3539 -28.5092,83.3571 -28.6689,83.3591 -28.7226,83.3598 -28.7719,83.3582 -28.9167,83.3529 -28.9524,83.3489 -28.922,83.334 -28.9516,83.3274 -28.9947,83.3232 -29.0516,83.3257 -29.0739,83.328 -29.1299,83.3384 -29.1514,83.3468 -29.1397,83.3554 -29.1086,83.3639 -29.1273,83.3707 -29.1485,83.3747 -29.3089,83.3864 -29.5916,83.4122 -29.6885,83.42 -29.7485,83.4235 -30.1051,83.441 -30.2217,83.4454 -30.2779,83.447 -30.3321,83.4472 -30.4861,83.4449 -30.5251,83.4428 -30.5662,83.4375 -30.5803,83.4325 -30.5968,83.4281 -30.6395,83.4237 -30.7322,83.4181 -30.8345,83.4144 -31.0408,83.4124 -31.148,83.4144 -31.3209,83.4201 -31.3735,83.4237 -31.5382,83.4363 -31.5851,83.4407 -31.7562,83.4411 -31.8447,83.4361 -32.0476,83.4231 -32.0704,83.42 -32.1125,83.4155 -32.1598,83.4132 -32.1829,83.4154 -32.1838,83.4344 -32.1575,83.4415 -32.1124,83.4447 -32.0898,83.4514 -32.1162,83.4566 -32.1779,83.4595 -32.4039,83.467 -32.4604,83.4681 -32.7883,83.4649 -33.0255,83.4613 -33.3151,83.4554 -33.566,83.4488 -33.6617,83.4446 -33.7764,83.4373 -33.8201,83.4336 -33.905,83.4245 -33.9462,83.4154 -33.9576,83.4092 -33.9536,83.3962 -33.9117,83.3801 -33.8907,83.3744 -33.8177,83.3596 -33.693,83.347 -33.6617,83.3421 -33.6385,83.337 -33.6248,83.329 -33.6382,83.3211 -33.663,83.3144 -33.7148,83.3028 -33.7366,83.2997 -33.7605,83.2985 -33.7945,83.3014 -34.0712,83.3675 -34.1581,83.3941 -34.1737,83.3998 -34.1814,83.4114 -34.1825,83.4288 -34.2014,83.4381 -34.2176,83.4403 -34.2394,83.4417 -34.2856,83.4388 -34.3154,83.4323 -34.3307,83.4254 -34.3322,83.4122 -34.3367,83.3965 -34.3586,83.387 -34.3872,83.3853 -34.4163,83.3876 -34.4474,83.3949 -34.4581,83.4103 -34.5102,83.4345 -34.524,83.4386 -34.5564,83.4436 -34.5999,83.4463 -34.643,83.4455 -34.6866,83.4419 -34.7245,83.4363 -34.7594,83.4301 -34.7753,83.4248 -34.7858,83.4196 -34.8077,83.4149 -34.8448,83.4094 -35.072,83.3802 -35.1065,83.3799 -35.2308,83.3853 -35.3446,83.3931 -35.404,83.3932 -35.5485,83.389 -35.656,83.389 -35.7155,83.3905 -35.8382,83.3976 -35.9514,83.3992 -36.1578,83.3961 -36.3986,83.3892 -36.5388,83.3821 -36.5962,83.3763 -36.632,83.3709 -36.6647,83.3644 -36.7674,83.3383 -36.7559,83.3321 -36.5919,83.3098 -36.479,83.2969 -36.4428,83.272 -36.5232,83.2665 -36.5487,83.2635 -36.5605,83.259 -36.4531,83.2342 -36.4199,83.2294 -36.3131,83.2209 -36.2858,83.2181 -36.2688,83.2126 -36.2913,83.2086 -36.3069,83.2079 -36.3544,83.2093 -36.397,83.2115 -36.5155,83.2234 -36.5787,83.2335 -36.6133,83.2461 -36.6186,83.256 -36.6419,83.2664 -36.6925,83.2763 -36.7091,83.2787 -36.739,83.281 -36.7819,83.2831 -36.9057,83.2878 -37.0755,83.2958 -37.1171,83.3002 -37.1534,83.3058 -37.2768,83.3274 -37.3534,83.3375 -37.393,83.3428 -37.4316,83.3462 -37.4895,83.3498 -37.5461,83.3502 -37.7727,83.337 -37.8132,83.3335 -37.9214,83.2778 -37.9103,83.2723 -37.8637,83.2624 -37.7382,83.2497 -37.7046,83.2454 -37.6528,83.2353 -37.6067,83.2157 -37.6351,83.2096 -37.6602,83.2061 -37.7065,83.2042 -37.76,83.2068 -37.7939,83.2115 -37.9211,83.2301 -37.9349,83.2365 -37.9847,83.2422 -38.4563,83.2686 -38.6592,83.2796 -38.7037,83.2798 -38.7163,83.278 -38.7264,83.2732 -38.6829,83.1896 -38.7118,83.1088 -38.7162,83.0975 -38.5711,83.0587 -38.54,83.0537 -38.5019,83.0504 -38.4569,83.0475 -38.4072,83.0456 -38.3788,83.0449 -38.0051,83.0453 -37.8566,83.0503 -37.8086,83.0463 -37.6641,83.0267 -37.492,83.0192 -37.4796,83.0009 -37.459,82.9997 -37.3963,82.9967 -37.2375,82.9925 -37.0926,82.9932 -36.9997,82.9948 -36.7788,83.0038 -36.7534,82.9964 -36.7778,82.9925 -36.8124,82.99 -36.8949,82.9861 -37.0223,82.9802 -37.0723,82.9787 -37.2007,82.9761 -37.5025,82.9711 -37.6927,82.9715 -37.8678,82.9676 -38.0075,82.9628 -38.2295,82.9522 -38.2928,82.9479 -38.5167,82.9277 -38.6317,82.9137 -38.6598,82.9059 -38.6406,82.8989 -38.6214,82.896 -38.5816,82.8919 -38.5372,82.8888 -38.4077,82.8855 -38.2056,82.883 -38.1534,82.8825 -37.9745,82.8849 -37.6712,82.8946 -37.6262,82.8953 -37.5882,82.8939 -37.1636,82.8634 -37.1385,82.8552 -37.1603,82.8544 -37.1849,82.8541 -37.336,82.8643 -37.4415,82.8724 -37.4852,82.8756 -37.5817,82.8789 -37.6753,82.8764 -37.954,82.8634 -38.1437,82.864 -38.3749,82.8624 -38.5142,82.8566 -38.5537,82.856 -38.7237,82.8607 -38.7764,82.8612 -38.8693,82.8587 -38.9352,82.8514 -38.9601,82.8478 -38.9799,82.8437 -39.0089,82.8297 -38.9987,82.8219 -38.8868,82.7966 -38.8672,82.7938 -38.8166,82.7911 -38.7771,82.7868 -38.6723,82.7635 -38.6463,82.7481 -38.6433,82.7263 -38.6481,82.7123 -38.6405,82.7025 -38.6262,82.691 -38.6156,82.6851 -38.5983,82.6799 -38.5609,82.6734 -38.515,82.6696 -38.4804,82.6695 -38.4543,82.6705 -38.4004,82.6743 -38.4007,82.6513 -38.4152,82.6052 -38.4394,82.5966 -38.475,82.5961 -38.5052,82.6002 -38.5158,82.6065 -38.5199,82.6298 -38.5344,82.6342 -38.551,82.638 -38.6134,82.6458 -38.6975,82.6536 -38.7265,82.6573 -38.7689,82.6674 -38.8156,82.6817 -38.8624,82.703 -38.8847,82.7174 -38.8969,82.7318 -39.3075,82.8083 -39.3412,82.8104 -39.5341,82.8135 -39.7027,82.8093 -39.9283,82.8056 -40.3341,82.8138 -40.4101,82.8179 -40.4575,82.8217 -40.5099,82.8275 -40.5382,82.8319 -40.5597,82.8362 -40.576,82.8408 -40.5966,82.8472 -40.6089,82.8532 -40.6281,82.8583 -40.6608,82.8669 -40.6871,82.872 -40.7749,82.886 -40.8959,82.9029 -40.9316,82.9066 -41.0776,82.9252 -41.1027,82.9306 -41.1177,82.9357 -41.1317,82.9436 -41.1702,82.9537 -41.3062,82.9684 -41.388,82.9766 -41.4214,82.9794 -41.4783,82.9825 -41.539,82.9825 -41.5759,82.9782 -41.6023,82.9717 -41.6551,82.9537 -41.6703,82.9511 -41.7704,82.9386 -41.7121,82.9767 -41.6671,82.988 -41.6356,82.9945 -41.6088,83.0012 -41.5733,83.0114 -41.5598,83.0208 -41.5716,83.0297 -41.5831,83.0337 -41.6042,83.0388 -41.8271,83.0697 -41.9271,83.0766 -42.1043,83.0824 -42.2026,83.0824 -42.2499,83.0807 -42.2935,83.0802 -42.3224,83.0829 -42.3332,83.0852 -42.3903,83.1009 -42.4158,83.1094 -42.46,83.1166 -42.4982,83.1201 -42.5421,83.1222 -42.5947,83.1229 -42.7996,83.1218 -42.9018,83.1199 -43.0005,83.1171 -43.059,83.1138 -43.0881,83.11 -43.1692,83.0834 -43.138,83.0793 -43.0818,83.0777 -42.9308,83.0797 -42.7371,83.0565 -42.7773,83.0513 -42.8191,83.0491 -42.8729,83.0492 -42.9346,83.051 -43.1679,83.0577 -43.4239,83.0633 -43.5269,83.063 -43.6135,83.0599 -43.8117,83.0508 -43.7835,83.0413 -43.6194,83.0289 -43.4218,83.0135 -43.3337,83.0108 -43.2399,83.0124 -43.1788,83.0108 -43.1391,83.0077 -42.8446,82.9744 -42.7025,82.9456 -42.7203,82.9422 -42.7454,82.9418 -42.7842,82.9449 -42.8201,82.949 -42.8641,82.9565 -42.8879,82.961 -43.0146,82.9775 -43.072,82.9822 -43.1079,82.9845 -43.2515,82.9866 -43.4268,82.9836 -43.4553,82.9818 -43.495,82.9737 -43.5073,82.9648 -43.5323,82.964 -43.5989,82.9679 -43.6354,82.9723 -43.697,82.9803 -43.7383,82.9847 -43.8202,82.9918 -43.9886,83.0045 -44.107,83.0117 -44.4979,83.0146 -44.5513,83.0125 -44.5855,82.9986 -44.549,82.9879 -44.5206,82.9579 -44.5467,82.9535 -44.604,82.9565 -44.6573,82.9613 -44.8182,82.9819 -44.8671,82.9907 -44.9169,83.0013 -45.0566,82.983 -45.0874,82.978 -45.1189,82.9747 -45.1706,82.9763 -45.1812,82.9764 -45.203,82.9774 -45.216,82.9822 -45.2347,82.9899 -45.2235,82.9998 -45.2493,83.0009 -45.3197,82.9915 -45.3378,82.9864 -45.359,82.97 -45.3207,82.9522 -45.0384,82.9045 -44.9719,82.884 -44.944,82.8787 -44.9239,82.8752 -44.711,82.8505 -44.5871,82.8399 -44.4943,82.8329 -44.323,82.818 -44.2002,82.8073 -44.0563,82.7911 -43.9553,82.7812 -43.8288,82.7719 -43.7695,82.7701 -43.7242,82.7698 -43.533,82.7704 -43.5017,82.7709 -43.4258,82.7757 -43.3807,82.7776 -43.2725,82.7768 -43.2412,82.7759 -43.2237,82.7737 -43.2335,82.7654 -43.2787,82.7638 -43.4387,82.7622 -43.6033,82.7609 -43.695,82.7608 -43.8342,82.7629 -43.9571,82.7687 -44.3644,82.7901 -44.425,82.7957 -44.4976,82.8084 -44.5547,82.8134 -44.5969,82.8148 -44.6282,82.8141 -44.7459,82.7963 -44.8451,82.7817 -44.8725,82.7801 -44.923,82.7806 -44.9511,82.7872 -44.9402,82.7971 -44.92,82.8137 -44.9278,82.8213 -44.9615,82.8287 -45.0166,82.8372 -45.0527,82.8411 -45.2299,82.8564 -45.3131,82.8632 -45.486,82.883 -45.5458,82.8919 -45.6672,82.9125 -45.7446,82.9288 -45.7752,82.9331 -45.7936,82.9355 -45.8191,82.9368 -45.8694,82.9379 -45.9199,82.9299 -45.9115,82.9173 -45.9722,82.9111 -46.1444,82.9121 -46.2305,82.9099 -46.265,82.9078 -46.3023,82.904 -46.3316,82.8984 -46.521,82.8627 -46.536,82.8531 -46.5159,82.8467 -46.4733,82.8423 -46.4211,82.8398 -46.3121,82.8398 -46.1879,82.8366 -46.0999,82.8294 -46.0632,82.8258 -46.0374,82.8219 -46.0177,82.8176 -45.9058,82.7935 -45.8871,82.7897 -45.8728,82.7855 -45.824,82.7683 -45.8471,82.7644 -45.8975,82.7649 -45.9513,82.7685 -46.0033,82.7762 -46.0262,82.7812 -46.0547,82.786 -46.1704,82.8033 -46.2509,82.8108 -46.3013,82.8138 -46.6433,82.8173 -46.6885,82.8175 -46.7234,82.8131 -46.681,82.8023 -46.5481,82.7823 -46.3915,82.7458 -46.3731,82.7373 -46.2572,82.723 -46.221,82.7191 -45.9336,82.701 -45.8838,82.6978 -45.8315,82.6961 -45.772,82.6946 -45.6721,82.6941 -45.525,82.6966 -45.2198,82.7013 -44.9557,82.7002 -44.853,82.7004 -44.8047,82.7016 -44.7642,82.7043 -44.7306,82.7085 -44.7102,82.7184 -44.8414,82.7407 -44.8537,82.7427 -44.8987,82.7572 -44.8414,82.7574 -44.8299,82.7574 -44.7804,82.7542 -44.7502,82.7503 -44.6977,82.7412 -44.6829,82.7378 -44.641,82.722 -44.6077,82.7124 -44.5806,82.7072 -44.5154,82.7014 -44.4762,82.7001 -44.3373,82.6973 -44.1945,82.6974 -43.9842,82.6951 -43.6464,82.6889 -43.4234,82.6937 -43.2308,82.6975 -42.8226,82.702 -42.518,82.7061 -42.3201,82.7007 -42.2323,82.701 -42.0996,82.7034 -42.0429,82.7032 -41.9313,82.6999 -41.6037,82.6831 -41.4576,82.6739 -41.1312,82.6474 -41.0493,82.6403 -40.9762,82.6317 -40.8756,82.6248 -40.5809,82.593 -40.5277,82.584 -40.5153,82.5804 -40.5033,82.5751 -40.4937,82.5686 -40.4593,82.5648 -40.3817,82.5644 -40.2865,82.5713 -40.2021,82.5742 -40.0981,82.5728 -39.995,82.5671 -39.9661,82.5634 -39.8769,82.5495 -39.82,82.5403 -39.7949,82.5352 -39.7656,82.5246 -39.7292,82.4801 -39.7338,82.465 -39.7466,82.459 -39.7696,82.455 -39.817,82.4451 -39.8284,82.4414 -39.8524,82.4316 -39.8678,82.4229 -39.8729,82.4138 -39.7363,82.3242 -39.6339,82.2644 -39.6162,82.2566 -39.6195,82.2455 -39.6277,82.2335 -39.637,82.2268 -39.6575,82.2201 -39.6766,82.2174 -39.7153,82.2172 -39.7751,82.221 -39.7934,82.2241 -39.9398,82.2767 -39.9493,82.2868 -39.9512,82.299 -39.9411,82.3077 -39.921,82.3185 -40.0635,82.4142 -40.0953,82.4185 -40.1341,82.4206 -40.2367,82.4218 -40.3466,82.4207 -40.4326,82.4222 -40.4649,82.4244 -40.5017,82.4291 -40.5189,82.4329 -40.542,82.4442 -40.5532,82.4497 -40.5901,82.4602 -40.6916,82.4796 -40.8152,82.5026 -41.0982,82.5531 -41.1827,82.5673 -41.235,82.5746 -41.3112,82.5819 -41.4049,82.5889 -41.5558,82.5977 -41.6084,82.5997 -41.6421,82.5996 -41.6732,82.5989 -41.7037,82.5958 -41.7315,82.592 -41.7525,82.5827 -41.7413,82.5748 -41.7265,82.5697 -41.6006,82.5362 -41.5046,82.5104 -41.4731,82.4995 -41.4639,82.495 -41.4119,82.3942 -41.413,82.382 -41.4284,82.3523 -41.4422,82.3394 -41.4659,82.335 -41.4994,82.333 -41.5384,82.3327 -41.5742,82.3357 -41.6025,82.3433 -41.7062,82.3939 -41.6606,82.4581 -41.6629,82.4759 -41.6841,82.4985 -41.7009,82.5084 -41.7205,82.5137 -41.7463,82.5182 -41.8063,82.5254 -41.9191,82.5354 -41.9488,82.5391 -41.9753,82.5435 -41.9952,82.5488 -42.0202,82.5631 -42.0124,82.5707 -41.9893,82.5794 -41.9734,82.5848 -41.9455,82.5911 -41.9125,82.5968 -41.9033,82.6021 -41.9231,82.6068 -41.942,82.6101 -41.995,82.614 -42.0565,82.6168 -42.3821,82.6305 -42.4227,82.6324 -42.5389,82.6336 -42.7642,82.6282 -42.8203,82.6285 -42.9173,82.6304 -43.0062,82.6335 -43.1973,82.6342 -43.4837,82.633 -43.5758,82.6303 -43.6962,82.6253 -43.8757,82.6187 -44.0096,82.6149 -44.0611,82.6145 -44.29,82.6203 -44.4536,82.6222 -44.6703,82.6234 -44.7666,82.6254 -44.844,82.6286 -45.0635,82.633 -45.448,82.6341 -45.5289,82.6308 -45.5649,82.6271 -45.588,82.6243 -45.6031,82.6143 -45.5254,82.5832 -45.5099,82.5776 -45.4258,82.5631 -45.2799,82.5418 -45.2452,82.5377 -45.1938,82.5357 -45.142,82.5317 -44.9763,82.5102 -44.9485,82.5057 -44.9265,82.5008 -44.9117,82.4952 -44.8951,82.4831 -44.8544,82.4677 -44.8261,82.463 -44.6746,82.4409 -44.6075,82.4322 -44.5654,82.429 -44.4697,82.4161 -44.4425,82.4116 -44.4214,82.4066 -44.2969,82.3597 -44.1526,82.3317 -43.9729,82.3113 -43.6384,82.2707 -43.6058,82.2665 -43.5777,82.2594 -43.5947,82.2509 -43.6142,82.2479 -43.6362,82.2451 -43.6748,82.2425 -43.7085,82.2377 -43.7321,82.2301 -43.7163,82.2043 -43.6994,82.1966 -43.6795,82.1917 -43.5658,82.177 -43.4429,82.1661 -43.2914,82.1516 -43.1534,82.1365 -43.0544,82.1358 -42.9712,82.1391 -42.8815,82.1408 -42.8337,82.1408 -42.792,82.1401 -42.6802,82.1362 -42.6039,82.1302 -42.5658,82.1265 -42.2477,82.0928 -42.1929,82.083 -42.1728,82.0785 -42.156,82.0716 -42.1847,82.0699 -42.2368,82.0724 -42.3269,82.0743 -42.419,82.0735 -42.4794,82.0707 -42.5354,82.0901 -42.5666,82.0988 -42.5924,82.1016 -42.7005,82.107 -42.7511,82.1079 -42.8433,82.1068 -42.885,82.1055 -42.9327,82.1055 -43.1237,82.1073 -43.1653,82.1078 -43.2095,82.109 -43.2768,82.1119 -43.3934,82.1185 -43.7248,82.1437 -43.7831,82.1525 -43.8545,82.1606 -43.9288,82.1654 -43.9771,82.1675 -44.0387,82.1684 -44.1152,82.1675 -44.1981,82.1639 -44.2742,82.1585 -44.3374,82.1519 -44.4307,82.1388 -44.465,82.1329 -44.5139,82.1228 -44.5552,82.1091 -44.6402,82.0455 -44.4676,81.9922 -44.4124,81.9776 -44.3653,81.9685 -44.3511,81.9473 -44.4662,81.921 -44.5172,81.912 -44.584,81.9047 -44.6209,81.902 -44.7016,81.9027 -44.7448,81.9013 -44.7814,81.8916 -44.7696,81.8466 -44.7344,81.8402 -44.6048,81.8323 -44.4271,81.8294 -44.3868,81.8294 -44.3439,81.8281 -44.3151,81.8216 -44.3334,81.8052 -44.3477,81.7988 -44.3721,81.797 -44.4596,81.7987 -44.5153,81.8007 -44.546,81.801 -44.5722,81.794 -44.4572,81.7533 -44.438,81.7481 -44.3949,81.745 -44.2622,81.7453 -44.2363,81.7436 -44.0811,81.702 -44.0513,81.6969 -44.0857,81.691 -44.1124,81.6877 -44.3003,81.6522 -44.4902,81.6146 -44.5324,81.6157 -44.5444,81.6168 -44.5818,81.6227 -44.629,81.6333 -44.6719,81.6365 -44.7112,81.6367 -44.8331,81.6328 -44.8486,81.633 -44.8816,81.6333 -44.9394,81.6364 -44.9825,81.6418 -45.1869,81.6897 -45.203,81.7037 -45.2112,81.7118 -45.2215,81.7164 -45.2515,81.7261 -45.3868,81.7556 -45.4396,81.764 -45.5922,81.7878 -45.6303,81.7916 -45.7089,81.7972 -45.8888,81.8113 -45.8272,81.8189 -45.7953,81.8256 -45.8172,81.8751 -45.8442,81.8831 -45.9731,81.91 -46.0206,81.9194 -46.1481,81.9424 -46.2347,81.9554 -46.2996,81.9614 -46.3448,81.9644 -46.4501,81.9685 -46.64,81.9784 -46.7185,81.9859 -46.7756,81.9935 -46.8508,82.0051 -46.884,82.0093 -46.9634,82.016 -47.032,82.0203 -47.1814,82.0285 -47.2298,82.0301 -47.3083,82.0291 -47.3981,82.057 -47.4001,82.0685 -47.4234,82.0758 -47.4667,82.0855 -47.5173,82.0947 -47.6985,82.126 -47.7775,82.1396 -47.8699,82.1487 -47.9748,82.1572 -48.0179,82.159 -48.1253,82.1606 -48.1624,82.1631 -48.2241,82.1688 -48.4502,82.1912 -48.5436,82.2071 -48.5959,82.2166 -48.6548,82.2371 -48.6813,82.2552 -48.697,82.2674 -48.7077,82.2732 -48.7251,82.2788 -48.7705,82.2889 -48.8196,82.2974 -48.9508,82.3165 -49.0217,82.3247 -49.1368,82.3349 -49.4384,82.3575 -49.5796,82.366 -49.6346,82.368 -49.6918,82.3691 -49.8286,82.3663 -50.0267,82.3689 -50.0817,82.3709 -50.1433,82.3727 -50.1964,82.3724 -50.3229,82.3663 -50.4125,82.3631 -50.6247,82.3629 -50.8633,82.3592 -50.907,82.3579 -50.932,82.3558 -50.9404,82.3457 -50.8768,82.2879 -50.839,82.2706 -50.8253,82.2653 -50.8069,82.2603 -50.7435,82.246 -50.7066,82.2358 -50.6891,82.2296 -50.6695,82.2184 -50.6466,82.1983 -50.6261,82.1694 -50.6163,82.155 -50.6161,82.1445 -50.6133,82.1322 -50.6002,82.1056 -50.5845,82.088 -50.5599,82.061 -50.5384,82.0454 -50.5218,82.0394 -50.5037,82.0342 -50.2698,81.9828 -50.1543,81.9583 -50.0436,81.9341 -50.0092,81.9238 -49.9842,81.9131 -49.9616,81.9018 -49.944,81.8963 -49.7775,81.8709 -49.644,81.8505 -49.5247,81.8339 -49.3946,81.8181 -49.3669,81.8136 -49.3443,81.8091 -49.2678,81.7879 -49.4033,81.7548 -49.5289,81.74 -49.5861,81.7347 -49.6524,81.7296 -49.6993,81.7309 -49.7388,81.7346 -49.8286,81.7467 -49.8672,81.7506 -49.9756,81.7607 -50.0256,81.7633 -50.2783,81.7692 -50.5114,81.7745 -50.5914,81.7811 -50.6486,81.7897 -50.6719,81.7943 -50.7159,81.8016 -50.7898,81.8093 -50.8323,81.8104 -50.8589,81.8088 -50.8835,81.8052 -50.8936,81.7942 -50.8738,81.7797 -50.8623,81.7737 -50.7461,81.7329 -50.7231,81.7279 -50.6492,81.7211 -50.5114,81.7149 -50.4764,81.7118 -50.4528,81.7062 -50.4649,81.6955 -50.4699,81.6867 -50.4454,81.6745 -50.4105,81.661 -50.3854,81.6516 -50.3674,81.6466 -50.3224,81.6371 -50.2944,81.633 -50.1383,81.6202 -49.9582,81.6041 -49.8916,81.5966 -49.843,81.5902 -49.8091,81.5836 -49.7511,81.5701 -49.7348,81.565 -49.7244,81.5574 -49.7319,81.5421 -49.7294,81.532 -49.7134,81.5236 -49.6862,81.5193 -49.6335,81.5127 -49.5894,81.5101 -49.5401,81.5077 -49.498,81.5072 -49.4537,81.5013 -49.6565,81.4739 -49.6983,81.4713 -49.7371,81.4709 -49.7859,81.4731 -50.0086,81.4975 -50.0305,81.5024 -50.0457,81.5154 -50.0455,81.5258 -50.0459,81.5387 -50.0548,81.5529 -50.0749,81.5661 -50.1119,81.5808 -50.1563,81.5904 -50.1893,81.5942 -50.2283,81.5973 -50.3233,81.6021 -50.3535,81.6045 -50.387,81.6077 -50.5434,81.6348 -50.5906,81.6431 -50.6306,81.6636 -50.6475,81.6686 -50.8464,81.702 -50.9884,81.7159 -51.0503,81.7245 -51.0738,81.7293 -51.1499,81.7454 -51.2918,81.7642 -51.4059,81.7671 -51.5088,81.7712 -51.7348,81.7831 -51.8254,81.7925 -52.1521,81.8316 -52.2419,81.8434 -52.2889,81.8536 -52.3682,81.8661 -52.5833,81.89 -52.6252,81.8924 -52.6736,81.8935 -52.7194,81.8925 -52.7565,81.8902 -52.7841,81.8876 -52.8098,81.8826 -52.831,81.877 -52.8479,81.8702 -52.8365,81.8541 -52.8212,81.8461 -52.781,81.8288 -52.7735,81.8224 -52.7607,81.7988 -52.7504,81.7595 -52.7523,81.7225 -52.7602,81.716 -52.7862,81.7009 -52.8127,81.6899 -52.8871,81.6612 -52.9263,81.6474 -52.9479,81.6403 -53.016,81.631 -53.0426,81.6281 -53.072,81.6233 -53.1162,81.6136 -53.1286,81.6103 -53.1633,81.6001 -53.3614,81.5369 -53.3685,81.5295 -53.3677,81.5071 -53.3407,81.3793 -53.2952,81.3641 -53.3534,81.3666 -53.4274,81.3717 -53.4562,81.3755 -53.4796,81.3803 -53.5669,81.4002 -53.6203,81.4176 -53.6287,81.4283 -53.6412,81.5564 -53.5916,81.5971 -53.5791,81.6053 -53.5569,81.6174 -53.541,81.6243 -53.4864,81.6401 -53.4617,81.6457 -53.4484,81.6495 -53.4184,81.6601 -53.4017,81.6671 -53.3838,81.6845 -53.3652,81.7073 -53.3276,81.7531 -53.32,81.7653 -53.317,81.7772 -53.319,81.8036 -53.3704,81.9658 -53.3772,81.9737 -53.3859,81.9797 -53.6212,82.0716 -53.6612,82.0867 -53.8897,82.1713 -53.9341,82.1785 -54.1929,82.2122 -54.2247,82.2162 -54.2626,82.2198 -54.3177,82.221 -54.3955,82.2151 -54.544,82.2051 -54.7353,82.1925 -54.9406,82.1803 -55.3546,82.1443 -55.3872,82.1416 -55.4068,82.138 -55.3657,82.1311 -55.1653,82.1395 -55.1105,82.138 -55.0971,82.1355 -55.0807,82.1314 -55.012,82.1105 -55.0014,82.1057 -54.9748,82.0895 -54.9097,82.043 -54.8998,82.0313 -54.9084,82.0156 -54.9252,82.0137 -54.9494,82.0149 -55.1147,82.0502 -55.1333,82.058 -55.147,82.0774 -55.1353,82.0852 -55.0665,82.083 -55.0457,82.084 -55.0473,82.0934 -55.0683,82.0986 -55.0816,82.1007 -55.1602,82.1034 -55.2561,82.0977 -55.303,82.0966 -55.3634,82.0962 -55.4371,82.0991 -55.5038,82.1041 -55.5799,82.1101 -55.6422,82.1183 -55.6564,82.1225 -55.671,82.1237 -55.7109,82.1243 -55.8583,82.1174 -55.8959,82.1146 -55.9201,82.1096 -55.9374,82.0796 -55.9922,82.0436 -56.0708,82.021 -56.0944,82.0162 -56.1171,82.0198 -56.1331,82.0254 -56.1461,82.035 -56.1693,82.0585 -56.2312,82.0773 -56.2486,82.0818 -56.2666,82.0846 -56.3155,82.087 -56.3927,82.0843 -56.4947,82.0752 -56.628,82.0638 -56.8083,82.0494 -56.8819,82.0437 -57.0635,82.0332 -57.1463,82.0286 -57.3129,82.0257 -57.5219,82.0188 -57.6706,82.011 -58.1041,81.9796 -58.1349,81.977 -58.1469,81.9729 -58.2376,81.9581 -58.4388,81.9514 -58.7627,81.9192 -59.0237,81.8903 -59.0899,81.8828 -59.1724,81.8715 -59.2443,81.86 -59.2643,81.8511 -59.241,81.8404 -59.2088,81.8353 -59.0725,81.8211 -58.9681,81.8125 -58.8438,81.8068 -58.806,81.8035 -58.736,81.7963 -58.5783,81.7787 -58.3457,81.7445 -58.3014,81.7362 -58.2842,81.7312 -58.2718,81.7262 -58.2544,81.7114 -58.259,81.7007 -58.1638,81.6235 -58.1408,81.6111 -58.0468,81.5769 -57.9327,81.5383 -57.8558,81.5218 -57.805,81.5204 -57.6204,81.5134 -57.5573,81.5077 -57.536,81.5034 -57.5155,81.4981 -57.4087,81.4688 -57.1687,81.4206 -57.0215,81.394 -56.9962,81.3889 -56.983,81.3799 -56.9957,81.3659 -56.896,81.3055 -56.8763,81.3002 -56.8313,81.2907 -56.7924,81.2869 -56.6599,81.2785 -56.4968,81.269 -56.4662,81.2664 -56.4363,81.2629 -56.3873,81.2541 -56.3677,81.2487 -56.2651,81.2026 -56.2916,81.1962 -56.3333,81.1945 -56.3724,81.1972 -56.4018,81.2016 -56.421,81.2067 -56.5095,81.2405 -56.5249,81.2457 -56.5492,81.2498 -56.6974,81.2622 -56.9209,81.2784 -56.9555,81.2816 -57.0155,81.2892 -57.0555,81.2991 -57.0712,81.3047 -57.087,81.3171 -57.0736,81.3244 -57.0283,81.3241 -56.9954,81.325 -56.9871,81.3318 -57.0278,81.3416 -57.1549,81.3704 -57.2059,81.3786 -57.2935,81.3875 -57.3108,81.3899 -57.3317,81.3939 -57.3478,81.399 -57.3425,81.4171 -57.4317,81.4427 -57.4525,81.4479 -57.4882,81.4508 -57.5343,81.4515 -57.5771,81.4497 -57.6242,81.4489 -57.6754,81.4485 -57.7251,81.4517 -58.2351,81.5028 -58.3765,81.5228 -58.4461,81.5363 -58.4679,81.5416 -58.5113,81.5515 -58.5275,81.5568 -58.5397,81.5631 -58.5513,81.5694 -58.5621,81.5834 -58.5646,81.5942 -58.551,81.6053 -58.5449,81.6453 -58.5716,81.686 -58.5785,81.6927 -58.6024,81.705 -58.6194,81.7107 -58.6414,81.7155 -58.7009,81.7242 -58.7605,81.7314 -58.8402,81.7375 -58.9253,81.7414 -59.1111,81.7478 -59.3075,81.7521 -59.3551,81.7536 -59.4029,81.7558 -59.4407,81.759 -59.6279,81.7793 -59.7778,81.7993 -59.8161,81.8019 -59.8591,81.8037 -59.8885,81.8025 -59.9628,81.7968 -60.1261,81.7804 -60.2684,81.7697 -60.4003,81.7617 -60.4935,81.7526 -60.6016,81.7392 -60.6606,81.7315 -60.7145,81.722 -60.9053,81.6916 -61.0121,81.6781 -61.0604,81.6699 -61.1528,81.6491 -61.1964,81.6389 -61.2362,81.6205 -61.2459,81.6133 -61.2472,81.5973 -61.1657,81.5499 -61.1522,81.5438 -60.9885,81.4887 -60.8279,81.4267 -60.7113,81.3985 -60.6524,81.3901 -60.6299,81.386 -60.6074,81.3815 -60.5902,81.3758 -60.577,81.3696 -60.5669,81.3592 -60.5766,81.3404 -60.5918,81.3316 -60.6204,81.3223 -60.6492,81.3148 -60.6915,81.3056 -60.762,81.2918 -60.7899,81.2874 -60.8643,81.2741 -61.018,81.2425 -61.1086,81.2167 -60.894,81.0886 -60.8812,81.0826 -60.8389,81.0633 -60.8262,81.0584 -60.7522,81.0457 -60.709,81.0358 -60.692,81.0304 -60.7658,81.0076 -60.8565,80.9847 -60.875,80.9808 -60.9015,80.9795 -61.0198,80.9866 -61.0506,80.9861 -61.294,80.9686 -61.3163,80.9654 -61.3237,80.9574 -61.3065,80.9438 -61.3008,80.9354 -61.3139,80.9337 -61.3494,80.9334 -61.4103,80.94 -61.6414,80.9831 -61.7827,81.0137 -61.933,81.0464 -62.0086,81.0599 -62.0665,81.0666 -62.1113,81.0678 -62.1555,81.0665 -62.2311,81.0614 -62.2578,81.0614 -62.4939,81.0661 -62.5298,81.0674 -62.5523,81.0725 -62.566,81.0781 -62.5776,81.0835 -62.5983,81.0883 -62.6254,81.0917 -62.7675,81.0878 -62.8298,81.0837 -62.8559,81.0808 -63.0002,81.0578 -63.087,81.0414 -63.1472,81.0285 -63.1632,81.0172 -63.1551,80.9924 -63.1244,80.9312 -63.0282,80.8434 -62.9927,80.8217 -62.9701,80.8106 -62.767,80.7277 -62.652,80.6836 -62.5725,80.6544 -62.5471,80.6499 -62.5359,80.6431 -62.5459,80.6337 -62.5623,80.6235 -62.5783,80.619 -62.5917,80.619 -62.753,80.6676 -62.78,80.682 -62.7982,80.6935 -63.0096,80.7846 -63.0868,80.8109 -63.1007,80.8171 -63.1931,80.8879 -63.2168,80.9154 -63.2172,80.9352 -63.2336,80.9575 -63.2638,80.9811 -63.2779,80.9872 -63.3102,80.9958 -63.3655,81.0099 -63.4059,81.0115 -63.4364,81.011 -63.4719,81.0089 -63.4976,81.0043 -63.6031,80.9806 -63.6197,80.9748 -63.6486,80.963 -63.6717,80.9475 -63.6827,80.9371 -63.6986,80.9285 -63.7187,80.92 -63.7399,80.9166 -63.7657,80.9135 -64.0317,80.8912 -64.0662,80.8896 -64.2191,80.8895 -64.2488,80.886 -64.2667,80.8784 -64.2928,80.8693 -64.3087,80.8658 -64.3382,80.862 -64.3682,80.859 -64.4071,80.8574 -64.5064,80.8565 -64.5496,80.8545 -64.5741,80.8498 -64.5912,80.841 -64.5906,80.8313 -64.574,80.8193 -64.528,80.8101 -64.5137,80.8052 -64.4987,80.7991 -64.5238,80.7795 -64.5393,80.7739 -64.5645,80.7718 -64.5943,80.7706 -64.6801,80.7693 -64.7228,80.7679 -64.7815,80.7618 -64.8242,80.7483 -64.81,80.7294 -64.7774,80.7146 -64.7762,80.7043 -64.8527,80.662 -64.864,80.6578 -64.8992,80.6488 -64.9391,80.64 -64.9637,80.636 -64.9878,80.6328 -65.0211,80.6301 -65.1139,80.6276 -65.1914,80.6195 -65.4341,80.5874 -65.4625,80.5836 -65.486,80.5794 -65.4996,80.5702 -65.4727,80.5557 -65.4411,80.5498 -65.3631,80.5437 -65.2962,80.533 -65.345,80.5297 -65.4209,80.5304 -65.4983,80.5337 -65.6558,80.5379 -65.6981,80.5394 -65.7276,80.5394 -65.7736,80.5385 -65.8138,80.534 -65.8489,80.5272 -65.8668,80.519 -65.8689,80.5044 -65.8684,80.4933 -65.8976,80.482 -65.9362,80.4752 -66.025,80.4679 -66.0887,80.4612 -66.1512,80.4509 -66.185,80.4417 -66.2079,80.4374 -66.2316,80.4345 -66.4159,80.4272 -66.4656,80.4267 -66.5019,80.4242 -66.5399,80.4168 -66.5755,80.4048 -66.579,80.3943 -66.5643,80.3898 -66.5345,80.3883 -66.5121,80.3761 -66.5091,80.3623 -66.5614,80.3327 -66.575,80.327 -66.8269,80.2785 -66.9881,80.2498 -67.148,80.2269 -67.205,80.2194 -67.2194,80.2155 -67.2528,80.2027 -67.2671,80.1948 -67.2842,80.0716 -67.27,80.0625 -67.2178,80.0478 -67.1521,80.0372 -67.1051,80.0317 -67.0348,80.0282 -67.0121,80.0296 -67.0021,80.0342 -66.9819,80.0343 -66.9689,80.0325 -66.9554,80.0285 -66.9167,80.0157 -66.8868,79.9823 -66.8657,79.9453 -66.8531,79.9363 -66.836,79.9338 -66.8122,79.9342 -66.5182,79.9403 -66.3745,79.9465 -66.3141,79.9523 -66.2743,79.9601 -66.2611,79.9653 -66.2441,79.979 -66.1969,79.9802 -65.9546,79.9477 -65.934,79.9412 -65.9114,79.9183 -65.9044,79.9068 -65.894,79.9019 -65.8768,79.8984 -65.8553,79.8947 -65.8303,79.8918 -65.7978,79.8895 -65.6866,79.8869 -65.5927,79.8891 -65.5583,79.8911 -65.5282,79.8946 -65.3399,79.9175 -65.3177,79.9203 -65.2543,79.9303 -65.2181,79.9395 -65.1533,79.9559 -65.0816,79.9761 -65.0614,79.9758 -65.0475,79.9699 -65.0202,79.961 -64.9989,79.9568 -64.9701,79.9536 -64.7589,79.9387 -64.727,79.9376 -64.6956,79.9394 -64.6695,79.9427 -64.628,79.9499 -64.4068,79.964 -64.3586,79.9645 -64.3238,79.9658 -64.3048,79.9688 -64.2673,79.9768 -64.1444,80.0074 -64.1227,80.018 -64.1121,80.0403 -64.0654,80.101 -64.0478,80.1144 -64.0289,80.1198 -64.0012,80.1218 -63.9655,80.1149 -63.9629,80.1029 -63.9877,80.0784 -64.0004,80.0607 -63.9579,80.0319 -63.9413,80.0277 -63.7559,80.0169 -63.7356,80.0162 -63.6961,80.0161 -63.6286,80.0199 -63.583,80.0167 -63.6033,80.0107 -63.6855,80.0036 -63.7211,80.0013 -63.7646,80.0 -63.829,80.0044 -63.8496,80.0074 -63.8819,80.0097 -63.9176,80.0103 -63.9492,80.0089 -63.9728,80.0058 -63.9917,80.0008 -64.0062,79.9957 -64.0812,79.9648 -64.1103,79.9545 -64.1289,79.9497 -64.1703,79.9427 -64.5229,79.9182 -64.8165,79.8992 -64.8429,79.8959 -64.861,79.8847 -64.8443,79.8759 -64.8055,79.8095 -64.8346,79.7752 -64.8688,79.7181 -64.8215,79.6331 -64.7753,79.5504 -64.7224,79.5242 -64.6989,79.5207 -64.6744,79.5148 -64.649,79.5037 -64.6126,79.4805 -64.6081,79.4629 -64.6171,79.4173 -64.6306,79.4033 -64.6462,79.3914 -64.6618,79.38 -64.675,79.3743 -64.7101,79.3642 -64.7529,79.3565 -64.8248,79.3464 -64.8425,79.3412 -64.8558,79.3355 -64.8758,79.3266 -64.9423,79.2787 -64.9305,79.2634 -64.9515,79.2529 -65.0451,79.2305 -65.1466,79.2236 -65.1753,79.2202 -65.1995,79.2158 -65.2171,79.2119 -65.2304,79.2069 -65.3158,79.1492 -65.4367,79.138 -65.4649,79.1345 -65.4785,79.1314 -65.6898,79.0419 -65.6975,79.033 -65.6864,79.0225 -65.7714,78.9844 -65.7877,78.9805 -65.8092,78.9789 -65.8379,78.9786 -65.9078,78.9913 -65.93,78.9925 -65.9696,78.9927 -66.0333,78.9884 -66.1218,79.0112 -66.1366,79.0214 -66.1595,79.0244 -66.3965,79.0265 -66.5222,79.0054 -66.6074,78.9916 -66.768,79.011 -66.8967,79.0143 -67.0063,79.0156 -67.0379,78.9971 -67.123,79.0005 -67.2344,79.0131 -67.2897,79.0156 -67.5044,78.9718 -67.5202,78.967 -67.5288,78.9563 -67.531,78.9459 -67.5109,78.9415 -67.4588,78.9353 -67.4721,78.9293 -67.5117,78.9224 -67.5399,78.9201 -67.6858,78.9373 -67.7803,78.9523 -67.8033,78.9548 -67.8295,78.9562 -67.8212,78.9501 18,-2.0,Greenland -39.4397,83.1942 -39.3295,83.2311 -39.2783,83.244 -39.2559,83.2465 -39.2255,83.2479 -39.0824,83.2436 -39.0326,83.2398 -38.9461,83.2285 -38.9304,83.224 -38.7659,83.14 -38.8905,83.1341 -39.0336,83.1341 -39.0981,83.1372 -39.1749,83.1439 -39.4235,83.1713 -39.4657,83.1833 -39.4397,83.1942 -39.4397,83.1942 62,-2.0,Greenland -38.8099,82.9628 -38.9189,82.9753 -38.9617,82.9788 -39.0728,82.9821 -39.3524,82.9968 -39.4419,83.0048 -39.6836,83.0425 -39.7437,83.0609 -39.782,83.0807 -39.8739,83.0994 -39.9087,83.1039 -39.9407,83.1052 -39.9685,83.1045 -40.0079,83.1022 -40.0558,83.1005 -40.1102,83.1008 -40.3247,83.1033 -40.3895,83.1064 -40.4814,83.1141 -40.5195,83.1201 -40.5276,83.1278 -40.5232,83.1485 -40.5022,83.17 -40.4888,83.1763 -40.4599,83.1848 -40.3631,83.2063 -40.1528,83.1966 -40.1303,83.192 -40.1199,83.1857 -40.1075,83.1798 -40.0873,83.1747 -40.0599,83.1702 -39.9502,83.1562 -39.9078,83.1523 -39.8609,83.1495 -39.7423,83.1441 -39.6227,83.141 -39.5841,83.1376 -39.5515,83.1325 -39.5376,83.1275 -39.5139,83.1162 -39.501,83.1071 -39.486,83.0989 -39.4472,83.0884 -39.4015,83.0782 -39.3482,83.0685 -39.2879,83.0593 -39.2538,83.0547 -39.2125,83.0505 -39.0403,83.0345 -38.939,83.0281 -38.8232,83.0222 -38.7251,83.0205 -38.6936,83.0189 -38.6611,83.0158 -38.5061,82.9671 -38.5254,82.962 -38.702,82.9566 -38.761,82.9577 -38.7983,82.9605 -38.8099,82.9628 -38.8099,82.9628 12,-2.0,Greenland -41.5248,83.1604 -41.348,83.1732 -41.3076,83.1744 -41.2566,83.1708 -41.0835,83.1515 -41.0942,83.1371 -41.1046,83.1329 -41.2418,83.1402 -41.3579,83.1446 -41.4656,83.1495 -41.5248,83.1604 -41.5248,83.1604 15,-2.0,Greenland -42.2645,83.1004 -42.258,83.115 -42.2278,83.1209 -42.1984,83.1226 -42.0129,83.1171 -41.9473,83.1144 -41.8971,83.1109 -41.8097,83.1014 -41.8297,83.097 -41.9472,83.0901 -41.9983,83.0893 -42.2302,83.0931 -42.2556,83.0948 -42.2645,83.1004 -42.2645,83.1004 16,-2.0,Greenland -41.4487,83.064 -41.4543,83.0713 -41.4191,83.0835 -41.3675,83.0882 -41.2758,83.0902 -41.0553,83.0842 -40.991,83.0814 -40.943,83.0772 -40.8708,83.0692 -40.8565,83.062 -40.8906,83.0568 -41.0124,83.055 -41.1679,83.0559 -41.3884,83.0597 -41.4487,83.064 -41.4487,83.064 24,-2.0,Greenland -38.4328,82.9886 -38.4705,82.9948 -38.4914,82.9992 -38.5133,83.0073 -38.5219,83.0135 -38.5,83.0197 -38.4701,83.0212 -38.3685,83.022 -38.1217,83.0232 -38.0785,83.0235 -38.0217,83.0219 -37.9479,83.0184 -37.9003,83.0146 -37.8827,83.0091 -37.8738,83.0013 -37.8935,82.9943 -37.9173,82.991 -38.0243,82.9871 -38.1822,82.9824 -38.2222,82.9819 -38.3241,82.9823 -38.3575,82.9835 -38.4328,82.9886 -38.4328,82.9886 40,-2.0,Greenland -39.7343,82.8291 -39.7474,82.8301 -39.7931,82.8309 -40.041,82.8333 -40.0784,82.8328 -40.3148,82.848 -40.4519,82.8593 -40.4851,82.864 -40.6527,82.8925 -40.9061,82.9285 -40.9334,82.9331 -40.9508,82.9409 -40.9916,82.9607 -41.0317,82.9714 -41.0607,82.9753 -41.1379,82.9838 -41.2637,82.9959 -41.2987,83.0001 -41.3349,83.0109 -41.2685,83.0194 -41.2289,83.0209 -41.1785,83.0213 -40.8547,83.0203 -40.733,83.0163 -40.6912,83.0123 -40.6749,83.0078 -40.6327,82.9924 -40.6241,82.982 -40.6,82.9722 -40.5803,82.967 -40.3876,82.931 -40.3253,82.9222 -40.2786,82.9178 -40.1727,82.9114 -39.9847,82.9031 -39.9437,82.899 -39.7637,82.849 -39.7198,82.8295 -39.7343,82.8291 -39.7343,82.8291 42,-2.0,Greenland -39.4738,82.8446 -39.5625,82.8467 -39.6983,82.862 -39.7245,82.8668 -39.7588,82.8765 -39.7864,82.8863 -39.801,82.8927 -39.8299,82.908 -39.8562,82.9131 -39.8974,82.9166 -39.9526,82.9201 -39.9943,82.9224 -40.1661,82.9287 -40.22,82.9323 -40.2413,82.9373 -40.3823,82.9854 -40.3991,82.9984 -40.3884,83.011 -40.3676,83.0164 -40.3344,83.019 -40.2865,83.0209 -40.1861,83.0197 -40.022,83.0158 -39.9691,83.0134 -39.8863,83.0055 -39.8108,82.997 -39.7841,82.9918 -39.765,82.9869 -39.7226,82.9772 -39.64,82.9692 -39.5057,82.9586 -39.3876,82.9522 -39.2055,82.9448 -39.1651,82.9407 -39.1421,82.933 -39.1894,82.9013 -39.2691,82.8737 -39.3636,82.8545 -39.3904,82.8497 -39.4304,82.8467 -39.4738,82.8446 -39.4738,82.8446 354,-6.0,Canada -91.6483,81.4483 -91.5575,81.417 -91.5318,81.4132 -91.4957,81.4106 -91.4561,81.4099 -91.4129,81.4111 -91.3683,81.4145 -91.3382,81.4192 -91.3149,81.4245 -91.283,81.4371 -91.4186,81.4576 -91.4832,81.4647 -91.5229,81.4719 -91.4411,81.4707 -91.3484,81.4672 -91.1695,81.4505 -91.1392,81.4451 -91.1043,81.4069 -91.1241,81.3986 -91.1534,81.3894 -91.0974,81.3885 -91.0099,81.3962 -90.9332,81.4051 -90.7975,81.3974 -90.7684,81.3993 -90.6853,81.4195 -90.6979,81.4541 -90.6875,81.4777 -90.663,81.4825 -90.6201,81.4868 -90.5746,81.4889 -90.5313,81.4925 -90.5005,81.4975 -90.4683,81.5045 -90.4349,81.5192 -90.4154,81.5277 -90.3754,81.53 -90.3355,81.529 -90.3018,81.5258 -90.2085,81.5187 -90.0528,81.5127 -90.035,81.5235 -90.0532,81.5459 -90.0278,81.557 -89.9944,81.5593 -89.9692,81.5581 -89.9029,81.5471 -89.8103,81.5179 -89.7685,81.4948 -89.6616,81.487 -89.614,81.4897 -89.568,81.4914 -89.499,81.4912 -89.2932,81.4832 -89.3333,81.4662 -89.3751,81.4633 -89.4978,81.4642 -89.575,81.4607 -89.8302,81.4264 -90.0117,81.3933 -90.2395,81.3638 -90.282,81.3598 -90.4692,81.3322 -90.4994,81.3277 -90.5461,81.3043 -90.5105,81.293 -90.4792,81.2884 -90.4459,81.2852 -90.3779,81.2803 -90.3434,81.2793 -90.2171,81.2657 -90.1823,81.259 -90.2216,81.2521 -90.245,81.2443 -90.2013,81.2347 -90.1682,81.2311 -90.1438,81.2298 -90.0719,81.2386 -89.713,81.2798 -89.4125,81.3178 -89.2883,81.3354 -89.251,81.3395 -88.9858,81.3675 -88.8492,81.3852 -88.7765,81.3944 -88.7017,81.4025 -88.6042,81.4101 -88.5539,81.4124 -88.4737,81.4132 -88.3743,81.4125 -88.347,81.4136 -88.2571,81.4207 -88.1522,81.4338 -88.0975,81.4396 -88.0575,81.4415 -88.0121,81.4432 -87.9851,81.4411 -87.6222,81.4145 -87.4597,81.3974 -87.4299,81.3944 -87.3543,81.3897 -87.1982,81.3854 -87.0881,81.3793 -87.0251,81.3755 -86.9973,81.3681 -86.9583,81.3511 -86.9868,81.3484 -87.0211,81.3512 -87.0527,81.3551 -87.1084,81.363 -87.1408,81.3669 -87.1993,81.3711 -87.3878,81.376 -87.5095,81.3778 -87.6011,81.3869 -87.6468,81.3936 -87.667,81.3969 -87.6914,81.3978 -87.737,81.3979 -87.8681,81.3922 -88.077,81.3889 -88.1121,81.3903 -88.2004,81.3895 -88.2506,81.3875 -88.4209,81.3754 -88.5518,81.362 -88.6233,81.3505 -88.7638,81.3184 -88.9469,81.2858 -89.3308,81.2201 -89.406,81.2139 -89.5855,81.2039 -89.6194,81.2003 -89.6514,81.1914 -89.6113,81.1762 -89.5717,81.1698 -89.4789,81.1602 -89.3919,81.1539 -89.1491,81.1248 -89.0413,81.1069 -89.0132,81.1047 -88.9713,81.1087 -88.9048,81.1173 -88.8686,81.1201 -88.6863,81.1224 -88.6533,81.1111 -88.6894,81.1062 -88.7514,81.1071 -88.795,81.1067 -88.8435,81.1032 -88.9876,81.086 -89.0633,81.0789 -89.1531,81.0728 -89.1969,81.0709 -89.2409,81.0707 -89.2786,81.0714 -89.3404,81.0765 -89.3742,81.0826 -89.4508,81.101 -89.5748,81.1066 -89.6767,81.1068 -89.7149,81.106 -89.7469,81.1037 -89.806,81.0945 -89.9805,81.0619 -90.0291,81.0467 -90.0555,81.0322 -90.0416,81.0166 -89.9089,80.9379 -89.8544,80.9204 -89.8011,80.9104 -89.7694,80.9054 -89.718,80.899 -89.5806,80.8822 -89.528,80.8766 -89.4948,80.8756 -89.454,80.8749 -89.3367,80.8752 -89.05,80.886 -88.9642,80.8898 -88.9195,80.8925 -88.7509,80.907 -88.6741,80.9152 -88.5994,80.9175 -88.4507,80.9155 -88.3687,80.9169 -88.2824,80.9205 -88.1461,80.9299 -88.051,80.9354 -87.9292,80.9369 -87.7747,80.9355 -87.5541,80.9285 -87.4334,80.9251 -87.3923,80.9242 -87.3509,80.9251 -87.0117,80.9424 -86.8265,80.9531 -86.6716,80.9649 -86.3672,80.981 -86.2379,80.9847 -86.1894,80.9879 -86.1549,80.9913 -86.1218,80.9948 -86.0555,81.0036 -86.0166,81.0137 -85.9659,81.0306 -85.9421,81.0388 -85.871,81.0581 -85.7944,81.072 -85.7356,81.0802 -85.668,81.0889 -85.4861,81.109 -85.0802,81.1466 -85.0,81.1535 -85.0,81.8559 -85.2692,81.8599 -85.3603,81.8568 -85.4032,81.8534 -85.4398,81.8447 -85.3649,81.8098 -85.277,81.784 -85.1807,81.7589 -85.1534,81.7532 -85.1038,81.7376 -85.085,81.7212 -85.0915,81.7166 -85.1347,81.7171 -85.1791,81.7268 -85.3394,81.7751 -85.4412,81.8088 -85.4771,81.8207 -85.5243,81.8327 -85.6231,81.856 -85.669,81.8657 -85.7242,81.875 -85.8763,81.8998 -85.9099,81.9036 -85.9463,81.9067 -85.9849,81.9089 -86.063,81.9115 -86.2894,81.9117 -86.497,81.9162 -86.5483,81.9153 -86.5974,81.912 -86.6362,81.9073 -86.6989,81.8962 -86.8336,81.8248 -86.8031,81.8171 -86.7715,81.8138 -86.6254,81.8018 -86.5697,81.7925 -86.5412,81.7866 -86.4405,81.7587 -86.4755,81.7494 -86.511,81.7524 -86.5355,81.7568 -86.5839,81.7686 -86.6457,81.778 -86.769,81.7934 -86.807,81.7965 -86.8742,81.8042 -86.9705,81.8178 -87.0102,81.8334 -86.9625,81.8478 -86.9369,81.8518 -86.8896,81.8748 -86.9345,81.8951 -86.975,81.906 -87.0463,81.923 -87.105,81.9318 -87.2037,81.942 -87.3018,81.947 -87.3437,81.9478 -87.3679,81.9473 -87.412,81.943 -87.6129,81.9484 -87.7384,81.9614 -87.7892,81.9564 -87.8137,81.9481 -87.8449,81.9447 -87.9496,81.9385 -87.9964,81.9382 -88.1424,81.9328 -88.2418,81.9286 -88.2885,81.9245 -88.3243,81.9206 -88.4716,81.8977 -88.6623,81.8663 -88.7195,81.8563 -88.7462,81.8429 -88.7105,81.8175 -88.6883,81.8071 -88.6977,81.7775 -88.7324,81.7714 -88.7736,81.7709 -88.8485,81.7826 -88.9478,81.7999 -88.9868,81.8019 -89.0369,81.7993 -89.0696,81.7947 -89.1111,81.781 -89.0956,81.7684 -89.0653,81.7649 -89.0263,81.7613 -88.9025,81.7425 -88.9353,81.7089 -89.0558,81.6709 -89.1239,81.6752 -89.1601,81.678 -89.3278,81.7159 -89.3471,81.723 -89.377,81.7599 -89.3977,81.7746 -89.4325,81.7766 -89.4799,81.7763 -89.6869,81.7647 -89.8499,81.7559 -89.9406,81.7552 -90.0331,81.7522 -90.1313,81.747 -90.2597,81.7376 -90.3044,81.7333 -90.3292,81.7285 -90.3842,81.7106 -90.4217,81.7008 -90.5462,81.702 -90.6946,81.6926 -90.7451,81.6886 -90.7944,81.6786 -90.8381,81.6606 -90.8116,81.6447 -90.7843,81.6374 -90.7446,81.6285 -90.9063,81.6197 -90.9487,81.6194 -90.9808,81.6224 -91.0446,81.6304 -91.079,81.634 -91.1781,81.6302 -91.4173,81.575 -91.4301,81.5477 -91.464,81.5242 -91.4939,81.5197 -91.5319,81.5196 -91.5604,81.5245 -91.5946,81.5281 -91.6194,81.5262 -91.6454,81.5214 -91.6365,81.4897 -91.584,81.4729 -91.5972,81.4698 -91.6256,81.4674 -91.6516,81.4594 -91.6483,81.4483 229,-6.0,Canada -89.4125,76.4571 -89.2867,76.4328 -89.253,76.4354 -89.2358,76.4485 -89.1533,76.407 -89.1001,76.3712 -88.97,76.3232 -88.914,76.3161 -88.7424,76.3007 -88.6958,76.2969 -88.6598,76.2985 -88.5397,76.3625 -88.5391,76.4044 -88.4845,76.482 -88.4574,76.4861 -88.4365,76.4822 -88.3969,76.4594 -88.4017,76.3754 -88.4305,76.3284 -88.4377,76.3032 -88.4059,76.29 -88.3813,76.2888 -88.353,76.2994 -88.3521,76.338 -88.3207,76.3651 -88.2417,76.3916 -88.2441,76.4432 -88.3354,76.5302 -88.3966,76.575 -88.4392,76.5955 -88.2949,76.7002 -88.2649,76.7064 -88.2291,76.6991 -88.2262,76.6692 -88.2563,76.5882 -88.2629,76.527 -88.1908,76.4825 -88.102,76.4091 -88.1015,76.3756 -88.1213,76.3673 -88.1415,76.3457 -88.182,76.2916 -88.14,76.2814 -88.1016,76.2768 -87.7492,76.2501 -87.7001,76.2496 -87.6607,76.2533 -87.6157,76.2815 -87.569,76.2823 -87.5407,76.2582 -87.5041,76.2411 -87.4723,76.2349 -87.4018,76.2299 -87.3441,76.2331 -87.1626,76.2422 -87.1826,76.3094 -87.2077,76.3156 -87.2609,76.3223 -87.2996,76.3377 -87.3483,76.4285 -87.323,76.5032 -87.2791,76.506 -87.2169,76.4804 -87.1787,76.3602 -86.9783,76.3394 -86.9009,76.2839 -86.8374,76.2712 -86.5257,76.2427 -86.4691,76.2387 -86.4196,76.3113 -86.4035,76.3504 -86.2627,76.3792 -86.097,76.4036 -86.1166,76.433 -86.2664,76.4779 -86.3543,76.511 -86.3811,76.523 -86.3473,76.5257 -86.2862,76.5141 -85.9736,76.4132 -86.0114,76.395 -86.033,76.3913 -86.0628,76.3867 -86.125,76.377 -86.159,76.3682 -86.1749,76.3545 -86.169,76.3018 -86.1282,76.278 -86.0867,76.2724 -86.038,76.2686 -85.8914,76.2612 -85.8671,76.2599 -85.7614,76.2627 -85.7352,76.2623 -85.7096,76.2604 -85.4564,76.2408 -85.3031,76.2219 -85.2729,76.2161 -85.1216,76.1954 -85.0,76.1878 -85.0,77.2753 -85.0201,77.2751 -85.0495,77.2761 -85.1264,77.2809 -85.1496,77.2845 -85.186,77.2925 -85.2426,77.3186 -85.2792,77.3503 -85.3001,77.3465 -85.5389,77.3105 -85.5206,77.33 -85.4967,77.3351 -85.4677,77.3519 -85.6304,77.5203 -85.7262,77.5962 -85.9428,77.6735 -85.9663,77.6816 -86.1206,77.7099 -86.1649,77.7181 -86.2042,77.7232 -86.3936,77.7471 -86.5653,77.7664 -86.6168,77.7705 -86.9146,77.7842 -86.9711,77.7859 -87.0342,77.785 -87.3794,77.7493 -87.5743,77.7274 -87.8058,77.7075 -87.9008,77.6456 -87.9596,77.5507 -87.94,77.5303 -87.9108,77.5172 -87.803,77.5065 -87.6098,77.4665 -87.4443,77.4276 -87.3865,77.3716 -87.403,77.3605 -87.4817,77.3422 -87.5214,77.3155 -87.4481,77.247 -87.1607,77.2197 -87.1354,77.2191 -87.1034,77.2199 -87.0706,77.2226 -87.0319,77.2328 -87.0077,77.2404 -86.9859,77.2449 -86.8361,77.2549 -86.8091,77.2556 -86.7087,77.2549 -86.5875,77.2436 -86.6462,77.2307 -86.6802,77.2277 -86.7084,77.2279 -86.7831,77.2307 -86.8137,77.231 -86.8475,77.228 -86.9922,77.1895 -86.9743,77.1745 -86.9361,77.1632 -86.8822,77.1612 -86.8517,77.1609 -86.8241,77.1623 -86.7582,77.1638 -86.7307,77.1637 -86.6937,77.1606 -86.6682,77.1482 -86.6954,77.1446 -86.7231,77.1465 -86.7535,77.1448 -86.8875,77.1272 -86.9166,77.1208 -86.9493,77.0918 -86.9289,77.0861 -86.898,77.086 -86.7071,77.0851 -86.5213,77.0749 -86.4876,77.0633 -86.5461,77.0185 -86.5772,77.0172 -86.6232,77.0214 -86.699,77.0433 -86.7914,77.0696 -86.8157,77.072 -87.0587,77.0699 -87.0825,77.0682 -87.1025,77.0646 -87.1561,77.0478 -87.1781,77.039 -87.2013,77.0183 -87.1093,77.0052 -87.0899,76.9974 -87.2022,76.9913 -87.3151,76.9887 -87.3689,77.0035 -87.3951,77.017 -87.4157,77.0231 -87.436,77.0244 -87.7118,77.0168 -87.8985,77.0054 -87.9167,77.0174 -88.022,77.0191 -88.051,77.018 -88.1698,77.0103 -88.2886,76.9884 -88.2166,76.9862 -88.2448,76.9613 -88.4547,76.8996 -88.4838,76.8925 -88.5125,76.8886 -88.6421,76.8752 -88.7246,76.8472 -88.8911,76.8156 -88.9818,76.8061 -89.0224,76.7971 -89.1605,76.7769 -89.2672,76.7391 -89.2398,76.7105 -89.2158,76.6751 -89.1785,76.6149 -89.1584,76.5683 -89.1822,76.5518 -89.2251,76.5402 -89.2729,76.5317 -89.3167,76.5224 -89.3535,76.5099 -89.4177,76.4581 -89.4125,76.4571 85,-6.0,Canada -89.1605,80.7745 -89.1003,80.7399 -89.0451,80.7247 -89.0008,80.7167 -88.837,80.6931 -88.7457,80.6839 -88.6795,80.6759 -88.4194,80.6404 -88.2808,80.6165 -88.203,80.6 -88.1214,80.5849 -88.0638,80.5767 -87.9376,80.5594 -87.9024,80.5562 -87.8555,80.5534 -87.6715,80.5402 -87.5813,80.5278 -87.4946,80.5174 -87.3463,80.501 -87.3128,80.4973 -87.2776,80.496 -87.2081,80.4962 -87.1767,80.4964 -87.0343,80.498 -86.9922,80.4996 -86.9599,80.5029 -86.9342,80.5071 -86.9,80.5175 -86.8407,80.546 -86.7989,80.5797 -86.7809,80.5954 -86.0711,80.7971 -86.0289,80.8074 -85.8628,80.8444 -85.7081,80.8725 -85.5374,80.8986 -85.4755,80.9071 -85.4016,80.915 -85.2927,80.9221 -85.2033,80.924 -85.1254,80.9233 -85.0126,80.9203 -85.0,80.9205 -85.0,81.0848 -85.017,81.0831 -85.1446,81.0664 -85.2024,81.0573 -85.282,81.044 -85.606,80.984 -85.6327,80.9737 -85.7796,80.948 -86.1374,80.9018 -86.2594,80.8861 -86.3531,80.8754 -86.3892,80.8713 -86.4289,80.8686 -86.4719,80.867 -86.6624,80.8702 -86.6993,80.8698 -86.7468,80.8681 -86.781,80.865 -86.8054,80.8601 -86.8356,80.8558 -86.8753,80.853 -86.995,80.8481 -87.1613,80.843 -87.239,80.8434 -87.312,80.847 -87.3423,80.8508 -87.4034,80.8568 -87.4688,80.8609 -87.5401,80.864 -87.7242,80.8692 -87.8026,80.8694 -87.9954,80.8681 -88.2252,80.8642 -88.3016,80.8626 -88.4775,80.8529 -88.5689,80.8477 -88.6158,80.8439 -88.8962,80.8196 -88.9449,80.8149 -89.0902,80.7994 -89.1639,80.7765 -89.1605,80.7745 93,-6.0,Canada -87.2609,78.0229 -87.2425,78.0143 -87.1766,78.0077 -86.9344,77.9922 -86.8476,77.9892 -86.818,77.9888 -86.5023,78.0011 -86.4673,78.0061 -86.3086,78.0581 -86.282,78.0749 -86.2454,78.0995 -86.2155,78.1016 -86.1926,78.0977 -86.051,78.0793 -86.0249,78.0794 -85.9989,78.0823 -85.8092,78.1416 -85.7961,78.1774 -85.6173,78.2624 -85.5926,78.2644 -85.5725,78.2652 -85.5661,78.2316 -85.5774,78.2146 -85.6716,78.1222 -85.6905,78.114 -85.8462,78.059 -85.876,78.0514 -85.9831,78.0447 -86.0289,77.9651 -86.0083,77.9526 -85.9646,77.9437 -85.9195,77.9413 -85.8898,77.9409 -85.8614,77.9427 -85.7521,77.9524 -85.6276,77.9662 -85.5468,77.9751 -85.4832,77.9791 -85.3515,77.987 -85.2598,77.986 -85.2293,77.9887 -85.1851,77.9982 -85.1614,78.005 -85.0,78.0813 -85.0,78.7926 -85.0337,78.7858 -85.066,78.7759 -85.0865,78.7709 -85.3133,78.7397 -85.3433,78.7354 -85.3824,78.7324 -85.7719,78.7051 -85.802,78.7037 -85.8726,78.7004 -86.1112,78.6937 -86.3491,78.687 -86.3722,78.6833 -86.5898,78.619 -86.6697,78.5928 -86.8541,78.4641 -86.8292,78.4533 -86.8002,78.4521 -86.7659,78.4539 -86.692,78.4595 -86.6329,78.4604 -86.5981,78.4406 -86.6259,78.4302 -86.7475,78.439 -86.8833,78.433 -87.0355,78.3965 -87.2106,78.3329 -87.2442,78.3168 -87.2592,78.2985 -87.2438,78.1979 -87.2296,78.1841 -87.2521,78.1216 -87.2335,78.1057 -87.2117,78.1022 -87.1593,78.1019 -87.1322,78.1029 -87.104,78.1062 -87.03,78.1118 -86.9986,78.1125 -86.8342,78.0902 -86.904,78.0814 -87.0267,78.0806 -87.0509,78.0796 -87.0889,78.0768 -87.1441,78.069 -87.1671,78.0642 -87.2202,78.0505 -87.269,78.0267 -87.2609,78.0229 60,-6.0,Canada -86.5697,82.0533 -86.4564,81.9986 -86.4357,81.9937 -86.4106,81.9893 -86.3421,81.9817 -86.2705,81.9763 -86.1903,81.9716 -85.9851,81.9649 -85.7979,81.962 -85.7693,81.9616 -85.7072,81.9518 -85.6235,81.9353 -85.5598,81.9252 -85.4642,81.9167 -85.3872,81.9125 -85.1158,81.9002 -85.0,81.8965 -85.0,82.3327 -85.0035,82.3326 -85.207,82.3258 -85.4122,82.3183 -85.4508,82.316 -85.4982,82.3134 -85.5231,82.309 -85.6142,82.2839 -85.5708,82.2768 -85.3741,82.2646 -85.2297,82.2605 -85.207,82.2516 -85.2373,82.2253 -85.2208,82.199 -85.1921,82.1727 -85.1638,82.1633 -85.1032,82.1531 -85.0715,82.1404 -85.1211,82.1323 -85.2152,82.1294 -85.2643,82.1257 -85.2874,82.1208 -85.308,82.1082 -85.3268,82.1 -85.369,82.0961 -85.4127,82.0947 -85.4603,82.0941 -85.5052,82.0941 -85.5474,82.0957 -85.6401,82.0956 -85.69,82.094 -85.8428,82.0837 -85.8864,82.082 -85.934,82.0815 -86.0212,82.0813 -86.2238,82.0863 -86.2754,82.0868 -86.323,82.0863 -86.3727,82.0849 -86.4672,82.0783 -86.5465,82.0694 -86.5716,82.0542 -86.5697,82.0533 51,-6.0,Canada -86.4564,80.4702 -86.4396,80.4618 -86.3616,80.4522 -86.151,80.4294 -85.9013,80.4033 -85.8723,80.4012 -85.8051,80.3978 -85.7616,80.4001 -85.7361,80.4026 -85.707,80.4067 -85.6778,80.42 -85.6494,80.4316 -85.614,80.442 -85.579,80.4512 -85.5175,80.4657 -85.4693,80.4752 -85.419,80.4824 -85.361,80.4878 -85.3193,80.4888 -85.2932,80.4859 -85.3378,80.4752 -85.3899,80.4675 -85.422,80.4606 -85.5376,80.4281 -85.5896,80.4076 -85.5342,80.4013 -85.3205,80.3987 -85.1882,80.3944 -85.1521,80.3925 -85.0933,80.3868 -85.0613,80.3832 -85.0,80.3804 -85.0,80.8714 -85.2771,80.8482 -85.3268,80.8422 -85.4196,80.8291 -85.495,80.8153 -85.558,80.7978 -85.6849,80.7538 -85.7711,80.7238 -85.8953,80.6819 -85.9562,80.6642 -86.0592,80.6432 -86.1307,80.6286 -86.1869,80.6135 -86.2269,80.6001 -86.3588,80.5449 -86.3808,80.5346 -86.4013,80.5235 -86.4602,80.4721 -86.4564,80.4702 31,-6.0,Canada -86.3811,79.9927 -86.3678,79.9721 -86.2957,79.917 -86.1972,79.8857 -86.1652,79.8794 -86.1359,79.8779 -86.064,79.8768 -86.0247,79.8783 -85.9138,79.8797 -85.3663,79.8427 -85.167,79.8183 -85.0,79.7981 -85.0,80.1389 -85.0199,80.1399 -85.0829,80.1443 -85.2077,80.154 -85.2374,80.157 -85.3445,80.17 -85.3996,80.1777 -85.4447,80.1872 -85.4723,80.1911 -85.6239,80.2038 -85.8023,80.2044 -85.842,80.2042 -86.0702,80.19 -86.1595,80.1834 -86.1933,80.1796 -86.2179,80.1754 -86.2396,80.1702 -86.384,79.9972 -86.3811,79.9927 37,-6.0,Canada -86.2179,79.65 -86.2037,79.6423 -86.1707,79.6346 -86.1409,79.631 -86.1124,79.6281 -85.9292,79.6166 -85.6755,79.5891 -85.4906,79.5862 -85.4119,79.5901 -85.3435,79.5893 -85.2795,79.5865 -85.2216,79.5815 -85.1013,79.5654 -85.0,79.5504 -85.0,79.7941 -85.0257,79.783 -85.0928,79.7764 -85.1166,79.7775 -85.1432,79.7815 -85.1865,79.7911 -85.2457,79.8052 -85.3823,79.8181 -85.4366,79.8173 -85.5103,79.8181 -85.5447,79.8185 -85.6105,79.821 -85.808,79.8375 -85.9536,79.8478 -85.9866,79.8492 -86.0233,79.8484 -86.0901,79.8425 -86.1125,79.838 -86.1532,79.8254 -86.1783,79.8055 -86.1953,79.7706 -86.2224,79.6525 -86.2179,79.65 14,-6.0,Canada -85.4127,77.8238 -85.2602,77.7707 -85.22,77.7557 -85.1682,77.7615 -85.1235,77.7691 -85.0772,77.7779 -85.0491,77.7816 -85.0131,77.7848 -85.0,77.7856 -85.0,77.9131 -85.0311,77.9083 -85.1947,77.8775 -85.4173,77.8254 -85.4127,77.8238 12,-6.0,Canada -85.1446,77.7025 -85.128,77.695 -85.0742,77.6857 -85.044,77.6845 -85.0,77.6903 -85.0,77.7653 -85.0271,77.7614 -85.0705,77.753 -85.0988,77.7424 -85.1408,77.7262 -85.1472,77.7037 -85.1446,77.7025 6,-6.0,Canada -85.0915,77.6177 -85.0524,77.5501 -85.0,77.5427 -85.0,77.648 -85.0926,77.6196 -85.0915,77.6177 17,-5.0,Canada -78.1434,82.7501 -78.1392,82.7893 -78.129,82.7982 -78.1132,82.804 -78.0849,82.8093 -78.0469,82.8123 -77.9973,82.8136 -77.9475,82.8116 -77.8693,82.8053 -77.8447,82.7918 -77.8753,82.7777 -77.9372,82.7624 -78.0608,82.739 -78.09,82.7348 -78.1076,82.7347 -78.1434,82.7501 -78.1434,82.7501 23,-2.0,Greenland -46.2839,82.6895 -46.3695,82.6822 -46.4691,82.6826 -46.5111,82.684 -46.5623,82.6863 -46.5928,82.6881 -46.6356,82.6917 -46.6999,82.706 -46.8233,82.7305 -46.96,82.7543 -47.022,82.7622 -47.088,82.7791 -47.0544,82.7848 -47.022,82.7839 -46.8677,82.7763 -46.7366,82.7685 -46.7032,82.7656 -46.6537,82.7569 -46.5917,82.741 -46.5161,82.7208 -46.4054,82.7068 -46.2839,82.6895 -46.2839,82.6895 36,-2.0,Greenland -48.1338,82.6382 -48.1761,82.6447 -48.2232,82.6552 -48.2414,82.6705 -48.2453,82.6994 -48.2426,82.7124 -48.2341,82.7198 -48.2218,82.7264 -48.1986,82.733 -48.1674,82.7375 -48.1318,82.7412 -48.0882,82.7431 -48.0282,82.742 -47.9712,82.7401 -47.6809,82.7217 -47.6066,82.7138 -47.5601,82.7035 -47.5348,82.6991 -47.4677,82.6905 -47.3922,82.6834 -47.2963,82.6729 -47.2801,82.6538 -47.3075,82.6454 -47.3744,82.6369 -47.4019,82.6345 -47.4881,82.6299 -47.6227,82.6297 -47.7353,82.6316 -47.7986,82.6334 -47.8586,82.634 -47.9081,82.6339 -48.0022,82.6313 -48.0466,82.6313 -48.1217,82.6356 -48.1338,82.6382 -48.1338,82.6382 97,-2.0,Greenland -44.887,81.9118 -44.9235,81.9138 -44.958,81.9216 -44.9747,81.9257 -45.1131,81.9666 -45.129,81.9712 -45.157,81.9823 -45.1698,81.9893 -45.1679,82.0001 -45.1771,82.0118 -45.1947,82.0204 -45.2303,82.0302 -45.2835,82.0395 -45.3962,82.057 -45.4624,82.0653 -45.5397,82.073 -45.8004,82.1057 -45.9785,82.1282 -46.0117,82.1325 -46.1511,82.1484 -46.2759,82.1619 -46.3378,82.1679 -46.4055,82.1758 -46.7247,82.2165 -46.7796,82.2258 -46.8199,82.2349 -46.8357,82.2406 -46.8441,82.2572 -46.8487,82.2713 -46.8702,82.2928 -46.88,82.2983 -46.9676,82.3407 -47.0157,82.357 -47.0671,82.3633 -47.1133,82.3698 -47.1813,82.3845 -47.2025,82.3903 -47.2191,82.3958 -47.3516,82.4437 -47.58,82.4815 -47.5142,82.4912 -47.3934,82.4973 -47.0027,82.5041 -46.9538,82.504 -46.9025,82.5024 -46.6927,82.4923 -46.687,82.5118 -46.6728,82.5233 -46.6055,82.5264 -46.5121,82.5289 -46.4528,82.5285 -46.2012,82.5227 -46.0883,82.5185 -45.9966,82.5129 -45.9496,82.5091 -45.9131,82.5056 -45.8428,82.4978 -45.7723,82.4892 -45.6779,82.4773 -45.5914,82.4646 -45.1635,82.4019 -45.0113,82.3896 -44.8072,82.3603 -44.7588,82.3505 -44.6979,82.337 -44.6741,82.3249 -44.606,82.3063 -44.5682,82.2974 -44.4058,82.2698 -44.3396,82.2613 -44.3079,82.2567 -44.2856,82.2522 -44.2709,82.2404 -44.2655,82.225 -44.2758,82.2128 -44.2874,82.2077 -44.3088,82.2007 -44.3479,82.1932 -44.4851,82.1702 -44.6165,82.1545 -44.7111,82.1407 -44.7756,82.1236 -44.7965,82.1168 -44.8959,82.0809 -44.912,82.0701 -44.9033,82.0608 -44.8691,82.0506 -44.7811,82.0244 -44.7081,82.003 -44.6929,81.9982 -44.6059,81.965 -44.5852,81.9509 -44.601,81.9412 -44.6232,81.9363 -44.705,81.9267 -44.887,81.9118 -44.887,81.9118 35,-2.0,Greenland -48.1286,82.2668 -48.1276,82.273 -48.1345,82.2853 -48.1549,82.293 -48.2601,82.3228 -48.299,82.3311 -48.4105,82.3488 -48.5303,82.3657 -48.5662,82.3696 -48.6305,82.3783 -48.6554,82.3823 -48.6777,82.3879 -48.694,82.3953 -48.6858,82.4046 -48.6523,82.4086 -48.6208,82.4111 -48.5889,82.4111 -48.428,82.4046 -48.3805,82.4013 -48.1517,82.3855 -48.12,82.3825 -47.9704,82.3589 -47.9516,82.3549 -47.9382,82.3502 -47.8815,82.3293 -47.8699,82.3211 -47.9586,82.2589 -47.9744,82.2559 -48.0113,82.2528 -48.0461,82.2512 -48.0722,82.2511 -48.1175,82.2552 -48.1266,82.2589 -48.1286,82.2668 -48.1286,82.2668 66,-2.0,Greenland -51.0675,81.8409 -51.0967,81.8341 -51.1382,81.8326 -51.2946,81.8271 -51.4007,81.8248 -51.4639,81.8255 -51.5677,81.8293 -51.7585,81.8389 -51.9005,81.8519 -52.0712,81.8704 -52.1313,81.8781 -52.24,81.8946 -52.3654,81.9103 -52.401,81.9141 -52.4368,81.9175 -52.4833,81.9208 -52.6698,81.9313 -52.8863,81.952 -52.9835,81.9636 -53.0321,81.9733 -53.0465,81.9784 -53.1545,82.0498 -53.1625,82.056 -53.1737,82.0782 -53.1686,82.0966 -53.1429,82.1239 -53.1317,82.1297 -53.0887,82.1451 -53.055,82.1569 -52.9852,82.1732 -52.9596,82.1776 -52.9293,82.182 -52.8944,82.1851 -52.8476,82.1855 -52.7217,82.179 -52.6369,82.1725 -52.6051,82.1688 -52.5689,82.1647 -52.4138,82.1401 -52.3781,82.1285 -52.4186,82.1174 -52.3628,82.0771 -52.3352,82.0661 -52.3204,82.0617 -52.3009,82.0571 -52.252,82.0472 -52.1918,82.038 -52.1352,82.0309 -52.0991,82.0274 -52.0355,82.0216 -51.9722,82.0198 -51.9177,82.0192 -51.8312,82.0156 -51.7592,82.0083 -51.7293,82.0042 -51.6701,81.9954 -51.646,81.9909 -51.181,81.8944 -51.1196,81.88 -51.0823,81.8713 -51.049,81.8627 -51.0312,81.8575 -51.0214,81.85 -51.0453,81.8432 -51.0675,81.8409 -51.0675,81.8409 22,-2.0,Greenland -52.0135,82.0721 -52.0445,82.0754 -52.0655,82.0791 -52.0842,82.0842 -52.0982,82.0895 -52.1146,82.1335 -52.0879,82.1387 -52.0088,82.1486 -51.9573,82.149 -51.9091,82.1465 -51.8173,82.1339 -51.7623,82.1252 -51.7059,82.1095 -51.6247,82.0729 -51.6545,82.0664 -51.7109,82.0655 -51.83,82.0643 -51.9096,82.0653 -51.9578,82.0678 -51.9854,82.0698 -52.0135,82.0721 -52.0135,82.0721 31,-2.0,Greenland -18.9405,81.8624 -18.9268,81.8711 -18.9291,81.8852 -18.9476,81.8966 -18.9638,81.9023 -19.0043,81.9162 -19.1007,81.9452 -19.1474,81.9555 -19.1771,81.9597 -19.2002,81.9647 -19.256,81.9946 -19.3462,82.0601 -19.3316,82.0667 -19.3184,82.0685 -19.2759,82.0693 -19.2461,82.0666 -19.2231,82.0621 -19.1728,82.0448 -19.1569,82.0369 -19.1047,82.0027 -18.9771,81.9428 -18.8578,81.9148 -18.8189,81.9042 -18.7308,81.8479 -18.7944,81.833 -18.8076,81.8319 -18.8356,81.8329 -18.8936,81.8401 -18.9398,81.8515 -18.9405,81.8624 -18.9405,81.8624 41,-2.0,Greenland -20.1459,81.7519 -20.1769,81.7594 -20.4232,81.8351 -20.654,81.9126 -20.675,81.9234 -20.6988,81.9555 -20.7076,81.9751 -20.7111,81.9914 -20.6974,82.0032 -20.68,82.0088 -20.6555,82.015 -20.6241,82.0209 -20.5917,82.0263 -20.5593,82.0305 -20.526,82.0337 -20.4844,82.0349 -20.4468,82.0317 -20.4082,82.0266 -20.3836,82.0211 -20.2618,81.9935 -20.2371,81.9879 -20.2202,81.9824 -20.124,81.9498 -20.1104,81.9374 -20.1119,81.9237 -20.1053,81.9154 -20.0951,81.9098 -20.0163,81.8935 -19.9451,81.8769 -19.8184,81.8335 -19.7947,81.8216 -19.6832,81.7594 -19.6778,81.7345 -19.7109,81.7296 -19.7819,81.7286 -19.8991,81.7309 -19.9826,81.734 -20.0674,81.7401 -20.1192,81.7469 -20.1459,81.7519 -20.1459,81.7519 36,3.0,Russia 57.8673,81.5487 57.7866,81.5495 57.7458,81.5532 57.7195,81.5574 57.6961,81.5706 57.7437,81.6567 57.7531,81.6631 57.7817,81.6677 57.8485,81.6733 57.9204,81.677 58.4303,81.7007 58.5026,81.7039 58.8886,81.7104 58.9658,81.7116 59.0092,81.7101 59.0573,81.7065 59.222,81.6869 59.2356,81.6791 59.1734,81.6187 59.1466,81.6127 59.0886,81.6031 59.0264,81.5956 58.9615,81.5894 58.9255,81.5877 58.6896,81.5887 58.5087,81.5931 58.4683,81.597 58.4253,81.5985 58.3897,81.5964 58.2894,81.5888 58.128,81.573 58.0356,81.5616 58.0071,81.5565 57.9409,81.5511 57.8673,81.5487 57.8673,81.5487 30,-2.0,Greenland -18.5233,81.508 -18.5432,81.5078 -18.5976,81.5112 -18.6179,81.514 -18.6966,81.5295 -18.8995,81.5719 -19.0799,81.6044 -19.1085,81.6098 -19.1313,81.6155 -19.1506,81.6215 -19.1626,81.6263 -19.1788,81.641 -19.1522,81.6494 -19.114,81.6548 -18.9701,81.6657 -18.9268,81.6675 -18.8466,81.6687 -18.7721,81.6684 -18.734,81.6664 -18.6919,81.662 -18.5699,81.6237 -18.4612,81.5893 -18.3212,81.55 -18.2598,81.5336 -18.2463,81.5231 -18.2937,81.5152 -18.4116,81.5106 -18.4901,81.5082 -18.5233,81.508 -18.5233,81.508 29,-2.0,Greenland -20.8605,81.4678 -20.7476,81.4887 -20.7234,81.4982 -20.698,81.5391 -20.7095,81.5414 -20.7447,81.5447 -20.8288,81.5562 -20.8983,81.5745 -20.8708,81.5862 -20.8333,81.5907 -20.7873,81.5923 -20.7325,81.5904 -20.7031,81.5866 -20.5412,81.5619 -20.5589,81.5401 -20.528,81.5333 -20.4511,81.5269 -20.4081,81.5278 -20.2052,81.5391 -20.1611,81.5446 -20.1287,81.546 -20.0971,81.5401 -20.1389,81.5277 -20.3845,81.4857 -20.4399,81.4838 -20.5123,81.4829 -20.6485,81.4782 -20.8605,81.4678 -20.8605,81.4678 49,3.0,Russia 62.5785,81.5643 62.7546,81.5692 62.8944,81.5778 63.0055,81.5809 63.0842,81.5806 63.1242,81.5798 63.2505,81.5745 63.3878,81.5627 63.4266,81.5587 63.4887,81.5498 63.5363,81.5403 63.5693,81.5304 63.5786,81.5253 63.5898,81.5145 63.5789,81.5027 63.5537,81.4907 63.5339,81.4845 63.4803,81.4711 63.3276,81.4489 63.2953,81.4456 63.2593,81.4441 63.218,81.4458 63.1743,81.4486 62.976,81.4526 62.8603,81.4524 62.8189,81.4542 62.5173,81.4717 62.4716,81.4754 62.4017,81.484 62.322,81.4977 62.2964,81.5049 62.2359,81.5145 62.0579,81.5265 62.0139,81.5292 61.9336,81.5304 61.8986,81.5362 61.929,81.545 61.9542,81.5479 61.9768,81.5526 62.0073,81.5568 62.0393,81.5606 62.18,81.5682 62.4707,81.5795 62.5068,81.5807 62.5451,81.5816 62.5784,81.5804 62.5952,81.5752 62.5785,81.5643 62.5785,81.5643 18,3.0,Russia 58.1054,81.4527 58.1015,81.4608 58.112,81.4697 58.1449,81.4727 58.1827,81.4733 58.3734,81.476 58.4534,81.4752 58.4934,81.471 58.5217,81.4596 58.505,81.4492 58.4793,81.4433 58.2961,81.4207 58.261,81.4187 58.226,81.4208 58.0778,81.4339 58.0352,81.4403 58.1054,81.4527 58.1054,81.4527 21,3.0,Russia 61.5709,81.4699 61.6426,81.4664 61.7906,81.4579 61.9138,81.4461 61.9454,81.4416 61.9695,81.437 61.9865,81.432 61.9942,81.4238 61.9714,81.4156 61.9081,81.4087 61.8745,81.4062 61.8009,81.4043 61.7616,81.4051 61.7178,81.4076 61.6862,81.4118 61.638,81.4211 61.4589,81.4594 61.4491,81.4644 61.4786,81.4691 61.5709,81.4699 61.5709,81.4699 15,-5.0,Canada -66.1119,81.4476 -66.1728,81.4366 -66.2089,81.4339 -66.2899,81.4292 -66.3861,81.426 -66.4225,81.4239 -66.593,81.4302 -66.6666,81.4361 -66.6961,81.4393 -66.6734,81.4492 -66.5166,81.4521 -66.3068,81.4529 -66.2087,81.4516 -66.1119,81.4476 -66.1119,81.4476 53,3.0,Russia 57.8888,81.2295 57.8476,81.2309 57.6421,81.2398 57.6022,81.2439 57.4906,81.2549 57.3833,81.2696 57.3687,81.2775 57.3494,81.2822 57.2978,81.2911 57.251,81.2946 57.2117,81.2948 57.1748,81.2938 57.1379,81.2914 56.9179,81.2925 56.6614,81.3019 56.6172,81.3043 56.5793,81.3067 56.5534,81.3114 56.5859,81.3236 56.6397,81.3333 56.7186,81.3653 56.7551,81.384 56.7802,81.3862 56.8572,81.3868 57.0586,81.3847 57.2329,81.3939 57.2801,81.4098 57.3077,81.4148 57.4849,81.4228 57.5222,81.4233 57.5623,81.4234 57.6001,81.4204 57.619,81.4153 57.6314,81.4104 57.6044,81.3922 57.6543,81.3542 57.6802,81.3498 57.7243,81.3476 57.8432,81.3466 57.9271,81.3442 58.137,81.337 58.1832,81.3341 58.2162,81.3299 58.2416,81.3253 58.2602,81.3205 58.3557,81.2853 58.3777,81.2719 58.3537,81.2623 58.1348,81.2396 58.0707,81.2342 58.0358,81.2324 57.8888,81.2295 57.8888,81.2295 24,3.0,Russia 58.269,81.2022 58.278,81.2084 58.5036,81.2449 58.5657,81.2515 58.6605,81.2604 58.76,81.2678 58.8014,81.2663 58.8911,81.2601 58.9325,81.2556 59.0719,81.2335 59.0968,81.229 59.1441,81.2142 59.1775,81.1989 59.1846,81.185 59.1736,81.1757 59.1548,81.17 59.125,81.1666 58.8591,81.1488 58.7837,81.1487 58.4478,81.1666 58.2968,81.1832 58.2785,81.1877 58.269,81.2022 58.269,81.2022 81,3.0,Russia 55.3738,81.0834 55.4006,81.102 55.4274,81.1358 55.3969,81.1386 55.3607,81.1375 55.2908,81.1345 55.2497,81.1389 55.2831,81.1833 55.3074,81.1859 55.6751,81.1843 55.7095,81.183 55.9298,81.1536 56.0452,81.1378 56.2702,81.1213 56.3456,81.1187 56.3845,81.1184 56.4165,81.1242 56.3932,81.1322 56.2893,81.1498 56.2701,81.1546 56.2577,81.1595 56.2019,81.1855 56.1472,81.2425 56.1795,81.248 56.253,81.25 56.444,81.251 56.5224,81.2505 56.5645,81.2496 56.8359,81.2398 56.922,81.2329 56.9547,81.2288 56.9807,81.2243 57.0839,81.2068 57.2685,81.1773 57.3081,81.1733 57.3446,81.1742 57.3738,81.1782 57.3984,81.1839 57.4255,81.1887 57.4598,81.191 57.5038,81.1884 57.7006,81.1594 57.7122,81.1542 57.6968,81.1478 57.6674,81.1438 57.5993,81.1388 57.5261,81.1372 57.4441,81.1398 57.3273,81.1408 57.2229,81.1362 57.189,81.1342 56.922,81.1178 56.8906,81.1146 56.6833,81.0895 56.5705,81.073 56.4387,81.0484 56.3912,81.0364 56.365,81.0316 56.334,81.0287 56.298,81.0276 56.2569,81.0288 56.2244,81.0327 56.2028,81.0401 56.2046,81.0522 56.2095,81.0613 56.1986,81.072 56.186,81.0773 56.1599,81.0816 56.1275,81.0854 56.0839,81.0877 56.0452,81.088 56.0115,81.0862 55.9804,81.0831 55.8352,81.0646 55.7419,81.0556 55.6727,81.0527 55.4332,81.0583 55.4028,81.0612 55.387,81.069 55.3738,81.0834 55.3738,81.0834 1051,-6.0,Canada -96.4737,79.9521 -96.4291,79.9342 -96.3902,79.9241 -96.3673,79.9191 -96.3188,79.9169 -96.2824,79.9234 -96.2408,79.9298 -96.2042,79.9315 -96.1713,79.9303 -96.121,79.9274 -96.0888,79.9226 -96.1113,79.9194 -96.1747,79.9184 -96.3189,79.9028 -96.3629,79.8919 -96.2916,79.8395 -96.271,79.8327 -96.247,79.8289 -96.2147,79.8254 -96.1836,79.8232 -96.0902,79.8209 -96.017,79.8215 -95.954,79.8171 -95.925,79.8132 -95.8482,79.7948 -95.8305,79.7865 -95.8513,79.7831 -95.8868,79.7814 -96.078,79.7894 -96.1142,79.7962 -96.15,79.7946 -96.2647,79.7802 -96.3025,79.762 -96.274,79.7317 -96.1823,79.7166 -96.0764,79.7067 -96.0533,79.7028 -96.028,79.6961 -95.9753,79.6792 -95.7269,79.5879 -95.676,79.5635 -95.6501,79.553 -95.6285,79.5452 -95.5966,79.5355 -95.5493,79.5271 -95.4956,79.5235 -95.4371,79.5223 -95.1824,79.5189 -95.1172,79.5184 -95.0531,79.5194 -94.889,79.5253 -94.8519,79.5284 -94.79,79.5379 -94.6835,79.5461 -94.6448,79.5479 -94.5771,79.5489 -94.5134,79.5512 -94.4758,79.5545 -94.4475,79.5594 -94.3043,79.592 -94.2851,79.6129 -94.0834,79.6587 -94.0608,79.6625 -94.0261,79.6603 -93.9876,79.6422 -94.0299,79.5691 -94.0605,79.5588 -94.1074,79.5486 -94.3994,79.4932 -94.5024,79.4816 -94.5395,79.4785 -94.7509,79.4633 -94.8692,79.4564 -95.0081,79.4506 -95.2634,79.4405 -95.3337,79.4389 -95.3549,79.4346 -95.4338,79.419 -95.4774,79.3012 -95.4612,79.2889 -95.3546,79.2737 -95.1772,79.2626 -95.0942,79.2695 -94.9962,79.2612 -94.9905,79.227 -95.0132,79.2118 -94.8635,79.1634 -94.7898,79.153 -94.7211,79.1491 -94.679,79.1564 -94.6549,79.1722 -94.4678,79.1939 -94.4229,79.2036 -94.4005,79.2087 -94.3729,79.2134 -94.3419,79.2145 -94.2769,79.2132 -94.2413,79.2155 -94.2102,79.2194 -94.0975,79.2542 -94.1358,79.2673 -94.162,79.2641 -94.1947,79.2598 -94.2046,79.3005 -94.0793,79.3023 -93.9493,79.2859 -93.7608,79.2615 -93.7931,79.2357 -93.8242,79.2268 -93.86,79.2102 -93.9146,79.1567 -93.7528,79.14 -93.7032,79.1394 -93.6755,79.1398 -93.6127,79.143 -93.5762,79.1461 -93.5083,79.1568 -93.4638,79.1658 -93.3478,79.1938 -93.1917,79.236 -93.1351,79.2784 -93.0521,79.3259 -93.026,79.3302 -92.9907,79.3291 -92.9436,79.3151 -92.9504,79.292 -93.0191,79.2547 -92.9714,79.2357 -92.8325,79.2416 -92.7203,79.2742 -92.7409,79.2864 -92.7684,79.2978 -92.7884,79.308 -92.8124,79.3211 -92.8315,79.3327 -92.8467,79.354 -92.8054,79.3638 -92.7603,79.3599 -92.7381,79.3461 -92.6806,79.3053 -92.6582,79.2983 -92.6372,79.2943 -92.6094,79.2905 -92.5838,79.2895 -92.5621,79.2897 -92.5111,79.2947 -92.482,79.2997 -92.388,79.3189 -92.3422,79.3276 -92.3133,79.3321 -92.2891,79.3339 -92.1283,79.3387 -92.047,79.3348 -91.9926,79.331 -91.9482,79.3181 -92.0229,79.3005 -92.1211,79.2935 -92.1802,79.2876 -92.2787,79.2569 -92.2194,79.2463 -92.1217,79.2465 -92.0619,79.2448 -92.001,79.2399 -91.9203,79.2304 -91.8918,79.2277 -91.8616,79.2264 -91.6093,79.2214 -91.5764,79.2214 -91.5469,79.223 -91.5003,79.2283 -91.4785,79.2353 -91.4416,79.2414 -91.4142,79.2432 -91.2929,79.2511 -91.221,79.2552 -91.1351,79.2559 -90.9436,79.2715 -90.9044,79.2751 -90.8698,79.2762 -90.8379,79.2705 -90.8719,79.238 -90.9453,79.23 -90.9813,79.2279 -91.1806,79.2158 -91.2067,79.2145 -91.2415,79.2152 -91.3022,79.2141 -91.3714,79.2121 -91.4398,79.2082 -91.5077,79.2014 -91.5415,79.1969 -91.5773,79.1878 -91.606,79.1832 -91.6444,79.1793 -91.6737,79.1777 -91.7067,79.1776 -91.8426,79.182 -91.9656,79.1868 -92.0138,79.1887 -92.1052,79.1909 -92.1647,79.1906 -92.2332,79.1899 -92.2818,79.1862 -92.3137,79.1832 -92.3354,79.1774 -92.3953,79.1377 -92.3323,79.1268 -92.2209,79.1152 -91.9506,79.0882 -91.9259,79.0865 -91.893,79.0855 -91.8,79.0867 -91.7661,79.0879 -91.7387,79.0898 -91.5742,79.0979 -91.1849,79.1111 -90.9134,79.1237 -90.8549,79.1267 -90.6015,79.1264 -90.4485,79.1209 -90.2192,79.1316 -90.1896,79.1333 -90.1226,79.1344 -90.088,79.1281 -90.108,79.1189 -90.2099,79.1032 -90.2455,79.1 -90.2811,79.0981 -90.3187,79.0966 -90.5283,79.0907 -90.7249,79.0854 -90.9204,79.0746 -91.1538,79.0662 -91.4059,79.0558 -91.6112,79.0442 -91.9553,79.0295 -92.0217,79.0281 -92.1194,79.0287 -92.19,79.0386 -92.2183,79.041 -92.4576,79.0467 -92.4976,79.0412 -92.5194,79.0308 -92.5517,79.0237 -92.5801,79.0225 -92.6058,79.0265 -92.7131,79.0373 -92.937,79.0494 -92.9681,79.05 -93.0039,79.0494 -93.0386,79.0472 -93.075,79.0442 -93.1637,79.0139 -93.1817,78.9917 -93.3111,78.9515 -93.4927,78.9212 -93.5225,78.9187 -93.5633,78.9238 -93.5863,78.9257 -93.6184,78.9251 -93.7132,78.9129 -93.9492,78.8799 -93.9959,78.8669 -93.984,78.8489 -93.9612,78.8401 -93.805,78.7946 -93.7618,78.7862 -93.6694,78.762 -93.6492,78.7552 -93.6222,78.7387 -93.6079,78.7242 -93.585,78.7172 -93.5534,78.7162 -93.4904,78.7174 -93.4577,78.7186 -93.3616,78.7193 -93.3009,78.7184 -93.2719,78.717 -93.1282,78.7086 -93.1036,78.7047 -93.0813,78.6998 -93.0587,78.694 -92.9846,78.6801 -92.8833,78.6639 -92.8325,78.6563 -92.7573,78.6338 -92.8134,78.6212 -92.877,78.6198 -92.9041,78.6204 -92.9605,78.6259 -93.013,78.6326 -93.0641,78.6402 -93.0893,78.6447 -93.1418,78.6513 -93.2466,78.6629 -93.3016,78.6677 -93.362,78.6687 -93.3959,78.6664 -93.5196,78.6521 -93.4831,78.6347 -93.1481,78.5182 -92.9927,78.4704 -92.9574,78.4672 -92.9254,78.4686 -92.8921,78.471 -92.7074,78.4841 -92.6577,78.4961 -92.6228,78.5077 -92.5448,78.5162 -92.5218,78.5182 -92.4737,78.5125 -92.4491,78.508 -92.414,78.4985 -92.3119,78.4818 -92.2742,78.4793 -92.0695,78.4715 -91.8695,78.4639 -91.6644,78.457 -91.384,78.4496 -91.358,78.4296 -91.3737,78.4131 -91.4026,78.4107 -91.4465,78.4155 -91.638,78.419 -91.6694,78.4149 -91.7303,78.4115 -91.7898,78.4102 -91.9353,78.4129 -91.9657,78.4124 -92.247,78.4063 -92.2809,78.4054 -92.2096,78.3934 -92.2382,78.3834 -92.2944,78.3753 -92.3185,78.373 -92.3397,78.3723 -92.364,78.3726 -92.4081,78.3806 -92.5731,78.3901 -92.6894,78.3707 -92.6978,78.3411 -92.6669,78.3172 -92.3088,78.2092 -92.2668,78.198 -92.0292,78.1642 -91.8277,78.1036 -91.8056,78.0984 -91.7804,78.0946 -91.7536,78.0933 -91.7168,78.0979 -91.6912,78.1112 -91.6687,78.1184 -91.6426,78.1228 -91.6098,78.1251 -91.5802,78.1254 -91.5542,78.1225 -91.5306,78.1186 -91.4393,78.098 -91.3854,78.0855 -91.3378,78.078 -91.2641,78.0674 -91.214,78.063 -91.0517,78.0547 -90.9637,78.0524 -90.7563,78.0341 -90.6935,78.0289 -90.4381,78.022 -90.3519,78.0207 -90.2254,78.021 -90.1928,78.0215 -90.1619,78.0225 -90.0818,78.0295 -90.0582,78.0323 -90.0255,78.0436 -89.9988,78.0705 -90.0903,78.1425 -90.137,78.1623 -90.188,78.1643 -90.2711,78.1688 -90.3244,78.1729 -90.3485,78.1767 -90.441,78.1948 -90.4651,78.2064 -90.393,78.2128 -90.3458,78.2112 -90.3198,78.2082 -90.2338,78.2062 -90.2048,78.2066 -90.1375,78.21 -90.0668,78.2166 -90.0005,78.2206 -89.9689,78.2217 -89.9403,78.2207 -89.9059,78.2176 -89.7877,78.1937 -89.7508,78.1834 -89.7081,78.1635 -89.6855,78.1271 -89.6486,78.1067 -89.6157,78.1011 -89.5765,78.099 -89.5124,78.1001 -89.478,78.103 -89.4301,78.1049 -89.3879,78.0962 -89.3736,78.0697 -89.3551,78.052 -89.3261,78.0431 -89.2867,78.0354 -89.2609,78.0345 -89.2381,78.0362 -89.1923,78.0545 -89.3396,78.1825 -89.4758,78.2654 -89.5072,78.281 -89.5369,78.29 -89.5968,78.3028 -89.6366,78.3114 -89.6626,78.3154 -89.6868,78.3177 -89.7112,78.3211 -89.79,78.398 -89.8253,78.4371 -89.8151,78.4773 -89.7757,78.4903 -89.7394,78.494 -89.7054,78.4941 -89.6764,78.4869 -89.6468,78.4627 -89.6166,78.4374 -89.5379,78.3822 -89.4037,78.3324 -89.2466,78.2774 -89.0923,78.2284 -88.9947,78.1544 -88.9578,78.1309 -88.847,78.0868 -88.8037,78.0726 -88.7345,78.0555 -88.711,78.0517 -88.5801,78.0373 -88.5505,78.0404 -88.5151,78.0575 -88.4836,78.0828 -88.4517,78.1227 -88.4402,78.15 -88.3992,78.2043 -88.3459,78.2339 -88.2971,78.2618 -88.2734,78.283 -88.2706,78.3047 -88.2878,78.3262 -88.3255,78.3449 -88.389,78.3758 -88.4542,78.4088 -88.4753,78.4204 -88.5247,78.4956 -88.4516,78.5003 -88.296,78.4902 -88.1199,78.4063 -87.9729,78.3401 -87.9369,78.3375 -87.7876,78.3578 -87.7439,78.3665 -87.7164,78.377 -87.6399,78.4332 -87.6254,78.4571 -87.6329,78.4755 -87.7183,78.5269 -87.7477,78.5391 -87.7743,78.5428 -87.8617,78.5653 -87.9298,78.6412 -87.9522,78.6718 -87.9384,78.8462 -87.8891,78.8736 -87.8207,78.8876 -87.788,78.889 -87.7597,78.887 -87.7277,78.8868 -87.6568,78.89 -87.6191,78.9084 -87.5999,78.9282 -87.5761,78.9382 -87.5333,78.953 -87.4999,78.9639 -87.4763,78.9689 -87.4563,78.9571 -87.5221,78.89 -87.5411,78.8802 -87.5612,78.8755 -87.6218,78.8629 -87.7076,78.8436 -87.7313,78.6994 -87.723,78.6791 -87.6808,78.6323 -87.6029,78.5793 -87.4157,78.5292 -87.3944,78.5269 -87.3473,78.5298 -87.3139,78.5363 -87.2696,78.5516 -87.2616,78.5713 -87.085,78.6679 -87.059,78.6788 -87.0137,78.6943 -86.9106,78.7145 -86.7836,78.7465 -86.7528,78.7568 -86.7287,78.766 -86.7021,78.7795 -86.6771,78.8025 -86.7109,78.8281 -86.7336,78.8676 -86.7163,78.9351 -86.687,78.9404 -86.6607,78.9263 -86.6401,78.8964 -86.5395,78.8506 -86.5162,78.8407 -86.4962,78.8371 -86.4727,78.8353 -86.4336,78.8385 -86.4085,78.8431 -86.3383,78.8591 -86.3193,78.8668 -86.2861,78.9212 -86.2165,78.9463 -86.1538,78.9585 -86.0729,78.9713 -86.0028,78.9784 -85.8906,78.9861 -85.7362,78.9942 -85.6096,79.0046 -85.5128,79.0139 -85.3244,79.0367 -85.0227,79.0722 -85.0,79.085 -85.0,79.2947 -85.0096,79.2972 -85.0382,79.3101 -85.1328,79.3552 -85.2152,79.4001 -85.2607,79.4406 -85.3206,79.4665 -85.3604,79.4828 -85.4103,79.4944 -85.4718,79.498 -85.5094,79.4966 -85.569,79.4819 -85.6228,79.4315 -85.6204,79.3897 -85.699,79.3335 -85.7195,79.3266 -85.741,79.322 -85.7642,79.3182 -85.7996,79.316 -85.8278,79.3175 -85.8571,79.3241 -85.8923,79.3425 -85.7833,79.3522 -85.7568,79.3563 -85.772,79.4483 -85.8365,79.4766 -85.9855,79.5159 -86.0058,79.5214 -86.0292,79.5239 -86.0602,79.5267 -86.2731,79.5375 -86.3004,79.5383 -86.3383,79.537 -86.3658,79.5344 -86.4124,79.5264 -86.4944,79.5105 -86.5292,79.4956 -86.4718,79.481 -86.4427,79.4721 -86.4197,79.452 -86.5093,79.422 -86.5424,79.421 -86.5622,79.4352 -86.5467,79.4633 -86.5664,79.4741 -86.657,79.4827 -86.6912,79.4827 -86.7255,79.48 -86.7501,79.4766 -86.8011,79.4685 -86.8894,79.4502 -86.9102,79.4288 -86.98,79.3957 -87.0048,79.3885 -87.0342,79.3839 -87.0695,79.3844 -87.0907,79.3877 -87.1228,79.395 -87.1658,79.408 -87.1862,79.4162 -87.168,79.4525 -87.1487,79.4604 -87.068,79.4776 -86.9822,79.4915 -86.8878,79.5124 -86.8626,79.5227 -86.7787,79.6127 -86.6852,79.7853 -86.7157,79.7979 -86.7461,79.796 -86.7728,79.7866 -86.8009,79.7762 -86.8775,79.7536 -86.9123,79.7464 -87.0595,79.7212 -87.1336,79.7138 -87.16,79.7125 -87.1845,79.7119 -87.2029,79.7243 -87.1673,79.7364 -87.0891,79.7375 -87.0569,79.7416 -87.0352,79.7464 -86.8145,79.8094 -86.7642,79.8448 -86.9461,79.9305 -86.9889,79.9414 -87.0221,79.9453 -87.0868,79.9484 -87.363,79.9516 -87.4018,79.9515 -87.4408,79.9501 -87.4838,79.9466 -87.5498,79.9365 -87.5797,79.9301 -87.6109,79.9319 -87.6671,79.9429 -87.7775,79.9951 -87.6887,80.0113 -87.6611,80.0157 -87.4438,80.0249 -87.4005,80.0283 -87.2875,80.0523 -87.2862,80.1046 -87.3286,80.1948 -87.3569,80.2376 -87.3953,80.2771 -87.4386,80.2815 -87.6383,80.2911 -87.829,80.3029 -88.0262,80.3126 -88.1014,80.3136 -88.1379,80.3121 -88.1807,80.3082 -88.2051,80.3038 -88.2278,80.2989 -88.3323,80.2741 -88.366,80.2641 -88.401,80.2367 -88.3797,80.1436 -88.343,80.1174 -88.3143,80.1082 -88.2263,80.09 -88.1997,80.0852 -88.1426,80.0821 -88.0707,80.0804 -88.0143,80.0729 -87.9876,80.0633 -87.8746,79.9679 -87.9556,79.9763 -88.0836,79.9969 -88.1345,79.9798 -88.1613,79.9742 -88.2181,79.9728 -88.2537,79.9729 -88.4696,79.999 -88.496,80.0033 -88.7906,80.067 -88.8101,80.0724 -88.8314,80.0798 -88.8974,80.1094 -88.9748,80.1604 -88.9582,80.175 -88.9367,80.1802 -88.8856,80.189 -88.8509,80.1963 -88.8261,80.207 -88.7954,80.2659 -88.8156,80.2726 -88.8516,80.2729 -88.8832,80.2696 -88.9051,80.2643 -88.9323,80.2602 -88.9577,80.272 -88.9192,80.2898 -88.8915,80.2968 -88.8307,80.3038 -88.803,80.3087 -88.7742,80.3313 -88.9589,80.3866 -88.9868,80.3927 -89.04,80.4014 -89.0678,80.4043 -89.1603,80.4116 -89.1957,80.4143 -89.2587,80.4166 -89.2997,80.4146 -89.4608,80.4022 -89.4967,80.3704 -89.464,80.3342 -89.4754,80.335 -89.5031,80.3394 -89.5291,80.3447 -89.5529,80.3509 -89.6661,80.3854 -89.7063,80.4027 -89.7279,80.4075 -89.7575,80.4108 -89.888,80.418 -89.9139,80.419 -89.9495,80.4197 -90.1282,80.4215 -90.2923,80.4305 -90.3164,80.4307 -90.4149,80.4305 -90.4503,80.4314 -90.4771,80.4435 -90.451,80.4638 -90.4243,80.4743 -90.3866,80.4844 -90.3107,80.5135 -90.3665,80.5498 -90.4201,80.5735 -90.4615,80.5829 -90.4843,80.5858 -90.612,80.5924 -90.6792,80.5983 -90.7409,80.6053 -90.805,80.616 -90.8272,80.6224 -90.8543,80.643 -91.0171,80.7462 -91.1842,80.7859 -91.2249,80.8026 -91.2292,80.8232 -91.234,80.8443 -91.4228,80.908 -91.4676,80.9148 -91.5655,80.9241 -91.6071,80.9378 -91.5875,80.9474 -91.5321,80.9459 -91.486,80.9518 -91.5565,81.0326 -91.6536,81.0609 -91.7499,81.0832 -91.8215,81.0969 -91.8449,81.1007 -91.9096,81.1098 -92.2251,81.1488 -92.422,81.1692 -92.5255,81.1813 -92.6212,81.1944 -92.7084,81.2047 -92.8694,81.2219 -93.0314,81.2354 -93.2081,81.248 -93.2498,81.2366 -93.2242,81.212 -93.1787,81.1863 -93.2066,81.1741 -93.2446,81.1692 -93.2941,81.1772 -93.3215,81.188 -93.3565,81.1965 -93.385,81.201 -93.4452,81.2083 -93.4796,81.2114 -93.7242,81.2267 -93.757,81.2268 -93.8427,81.223 -93.8893,81.219 -93.9295,81.2142 -93.9623,81.2074 -94.0673,81.1428 -94.0749,81.1186 -93.9921,81.0991 -93.9719,81.0955 -93.8908,81.0856 -93.8566,81.0825 -93.7224,81.0734 -93.6202,81.0683 -93.5439,81.0675 -93.4205,81.0719 -93.3797,81.0748 -93.2073,81.0822 -93.1122,81.0843 -92.9533,81.0767 -92.8155,81.0474 -92.7894,81.0234 -92.8183,80.9805 -92.8529,80.9586 -92.9506,80.948 -92.9947,80.945 -93.2114,80.95 -93.3827,80.9585 -93.4882,80.9646 -93.559,80.9684 -93.5998,80.9668 -93.6279,80.9637 -93.6535,80.9593 -93.6822,80.9578 -93.8222,80.9579 -93.8465,80.9592 -93.8969,80.9687 -93.9224,80.9757 -93.9465,80.9808 -93.9694,80.9824 -94.004,80.9807 -94.0459,80.9682 -94.0201,80.9549 -93.8744,80.9336 -93.7351,80.9211 -93.706,80.9193 -93.6004,80.9056 -93.7647,80.891 -93.8365,80.8818 -94.03,80.843 -94.0582,80.8352 -94.1011,80.832 -94.1265,80.8317 -94.165,80.8353 -94.1915,80.8549 -94.1856,80.8832 -94.2374,80.8992 -94.2641,80.9045 -94.3539,80.9143 -94.5042,80.9197 -94.6333,80.9144 -94.8724,80.8854 -94.9104,80.8774 -94.9373,80.8672 -94.9507,80.8409 -94.9735,80.8165 -95.0017,80.8056 -95.0241,80.801 -95.1124,80.7876 -95.162,80.7631 -95.1037,80.752 -94.9913,80.7522 -94.8678,80.7465 -94.9037,80.7352 -95.062,80.7205 -95.1309,80.7134 -95.1913,80.7057 -95.2177,80.6865 -95.1921,80.6745 -95.1665,80.6705 -95.1339,80.6672 -95.0258,80.6564 -94.9743,80.6537 -94.935,80.6554 -94.7178,80.6691 -94.7286,80.6412 -94.589,80.6155 -94.4169,80.5967 -94.3889,80.5947 -94.354,80.5934 -94.2444,80.5929 -94.1862,80.5948 -94.1444,80.5982 -94.1182,80.6031 -94.0001,80.6018 -93.8365,80.5899 -93.8047,80.5868 -93.7782,80.5758 -93.8138,80.5669 -93.8961,80.5611 -93.9277,80.5604 -94.0271,80.5619 -94.1347,80.5657 -94.2099,80.5646 -94.2488,80.563 -94.2921,80.5589 -94.3235,80.5539 -94.3593,80.5319 -94.2489,80.4718 -94.2205,80.4673 -94.1812,80.4674 -94.1538,80.4693 -94.1341,80.4745 -94.0052,80.4752 -93.7915,80.4622 -93.7032,80.4544 -93.6717,80.4508 -93.6476,80.4471 -93.5935,80.4351 -93.5099,80.4105 -93.486,80.398 -93.5387,80.3879 -93.5662,80.3879 -93.5983,80.3884 -93.6643,80.4029 -93.7092,80.4186 -93.9285,80.4254 -94.0721,80.4265 -94.2517,80.4236 -94.355,80.4249 -94.3928,80.4261 -94.4583,80.43 -94.5193,80.4387 -94.5426,80.4439 -94.5978,80.4557 -94.6575,80.4685 -94.6896,80.4719 -94.7255,80.4723 -94.7616,80.4701 -94.8266,80.4629 -94.8666,80.4605 -94.9407,80.4591 -95.012,80.4596 -95.1172,80.4626 -95.1912,80.4614 -95.2295,80.4598 -95.3646,80.4537 -95.6336,80.4555 -95.6716,80.4539 -95.7114,80.4446 -95.65,80.3744 -95.5459,80.3239 -95.4161,80.283 -95.3897,80.2762 -95.3487,80.267 -95.3202,80.262 -95.2594,80.2561 -95.1941,80.2542 -95.1542,80.2474 -95.1352,80.2105 -95.1563,80.2078 -95.1843,80.2089 -95.2097,80.2116 -95.2386,80.2163 -95.2624,80.2229 -95.3077,80.2307 -95.3323,80.2347 -95.3927,80.2404 -95.4273,80.2431 -95.6726,80.259 -95.7416,80.2603 -95.7743,80.2576 -95.9337,80.2433 -95.969,80.2329 -95.9483,80.2247 -95.9193,80.2085 -95.9483,80.2064 -96.0572,80.2128 -96.1019,80.2241 -96.1335,80.2272 -96.2907,80.233 -96.3262,80.2277 -96.3637,80.2153 -96.3383,80.2038 -96.3066,80.2006 -96.1576,80.1839 -96.1289,80.1408 -95.9115,80.1073 -95.6803,80.072 -95.6243,80.0661 -95.5806,80.0708 -95.4072,80.0992 -95.3867,80.104 -95.3422,80.1109 -95.2837,80.1083 -95.2545,80.0938 -95.1941,80.0909 -95.1587,80.0913 -95.096,80.0951 -95.0234,80.1035 -94.9803,80.1139 -94.9364,80.1084 -94.9593,80.0917 -94.9937,80.0842 -95.0255,80.0801 -95.0684,80.0765 -95.1017,80.0753 -95.1687,80.0753 -95.2402,80.0739 -95.278,80.0713 -95.3186,80.0669 -95.3835,80.0516 -95.356,80.0403 -95.1187,79.9951 -95.0661,79.991 -95.032,79.9908 -94.9621,79.9912 -94.8043,80.001 -94.7329,80.007 -94.517,80.0316 -94.4486,80.0414 -94.4047,80.05 -94.3462,80.0688 -94.1854,80.0816 -94.0553,80.0624 -93.9193,80.0596 -93.886,80.0585 -93.822,80.0546 -93.7931,80.0466 -93.8234,80.0422 -93.9873,80.037 -94.0884,80.0353 -94.1175,80.0354 -94.1815,80.0311 -94.2117,80.0262 -94.3127,80.0075 -94.3335,80.0032 -94.4285,79.9792 -94.4477,79.9549 -94.3694,79.9332 -94.3187,79.9201 -94.223,79.9011 -94.1487,79.889 -94.1109,79.8774 -94.0826,79.8648 -94.1138,79.8586 -94.2659,79.8772 -94.304,79.8822 -94.4142,79.8993 -94.523,79.9178 -94.5498,79.9212 -94.5847,79.9231 -94.6185,79.9233 -94.648,79.9227 -94.6856,79.9202 -94.708,79.9163 -94.7339,79.91 -94.7594,79.9081 -94.8892,79.9094 -95.0201,79.9115 -95.1137,79.9144 -95.2406,79.918 -95.5422,79.9301 -95.7121,79.9464 -95.7722,79.9531 -95.8579,79.9675 -96.0184,79.9997 -96.0468,80.0046 -96.0765,80.0086 -96.1053,80.0109 -96.3703,80.0175 -96.4053,80.0168 -96.4357,80.0094 -96.4948,79.9633 -96.4737,79.9521 16,3.0,Russia 54.0809,81.1557 54.0517,81.1649 53.9374,81.2133 53.975,81.2169 54.0199,81.2147 54.06,81.2111 54.101,81.2019 54.1144,81.1967 54.2428,81.1372 54.2148,81.1301 54.1757,81.1303 54.1385,81.1325 54.1184,81.137 54.0913,81.1473 54.0809,81.1557 54.0809,81.1557 30,3.0,Russia 59.6646,81.1641 59.6901,81.1663 59.7632,81.1676 59.9124,81.1689 59.9902,81.1678 60.2269,81.1628 60.311,81.1587 60.356,81.1553 60.3939,81.1512 60.4252,81.1469 60.4366,81.1346 60.4118,81.1237 60.3814,81.12 60.2844,81.1118 60.2521,81.1096 60.179,81.1084 60.1363,81.111 60.0102,81.121 59.9476,81.1296 59.9094,81.1333 59.8687,81.1347 59.7957,81.1337 59.677,81.1362 59.6366,81.1376 59.5502,81.1427 59.5255,81.1471 59.5514,81.153 59.5816,81.1568 59.6646,81.1641 59.6646,81.1641 259,7.0,Russia 95.1749,81.0827 94.9703,81.0972 94.828,81.0984 94.7832,81.1004 94.75,81.1033 94.7226,81.1071 94.7526,81.1234 94.7802,81.1317 94.8093,81.135 94.8795,81.1387 95.1379,81.1504 95.2129,81.1533 95.3378,81.1546 95.3843,81.154 95.4174,81.1513 95.4724,81.1441 95.5155,81.1352 95.6329,81.1076 95.6434,81.0818 95.8361,81.0586 95.9611,81.0198 96.2118,80.915 96.222,80.8922 96.3412,80.8435 96.429,80.816 96.47,80.8071 96.6395,80.7721 97.1038,80.7113 97.1716,80.7045 97.2076,80.7061 97.2506,80.704 97.3917,80.6875 97.5688,80.632 97.6502,80.578 97.4389,80.5448 97.1724,80.5339 96.9599,80.5368 96.8523,80.5325 96.8166,80.5313 96.7376,80.4534 96.7064,80.3991 96.7681,80.3774 96.8017,80.3676 96.8344,80.3547 96.8987,80.292 96.8917,80.268 96.8769,80.2535 96.8909,80.2243 96.9203,80.211 96.9723,80.2082 97.0071,80.2094 97.0477,80.2078 97.1115,80.1846 97.0937,80.168 97.0552,80.1581 96.8509,80.1052 96.6883,80.0976 96.5368,80.0971 96.4985,80.0966 96.4681,80.0938 96.3459,80.0944 96.0536,80.0885 95.7867,80.0845 95.6604,80.085 95.6264,80.0837 95.2623,80.064 95.2047,80.0541 95.1852,80.0446 95.1366,80.0371 95.0766,80.032 94.773,80.0085 94.7312,80.0083 94.5479,80.0128 94.5033,80.0088 94.483,79.9953 94.4162,79.988 94.382,79.9864 94.3417,79.9878 94.3066,79.9903 94.1818,79.9773 94.1629,79.9685 94.0911,79.9487 93.9624,79.9328 93.881,79.9239 93.8218,79.9188 93.7034,79.9094 93.525,79.8867 93.4818,79.878 93.4522,79.8755 93.4191,79.874 93.3779,79.874 93.1016,79.8991 92.9942,79.9094 92.8434,79.9434 92.696,79.9771 92.6707,79.9803 92.6399,79.9831 92.5791,79.9886 92.5183,79.9943 92.4671,80.0009 92.3846,80.0111 92.3284,80.0179 92.2249,80.0237 92.0193,80.0295 91.814,80.0365 91.785,80.0415 91.8083,80.0519 91.8925,80.0619 91.961,80.0665 92.2978,80.0532 92.3341,80.0509 92.3649,80.0477 92.4423,80.037 92.4728,80.0344 92.5089,80.0322 92.5506,80.0322 92.5873,80.0424 92.5673,80.0513 92.4798,80.0613 92.4487,80.064 92.4076,80.0655 92.3667,80.0668 92.3306,80.0691 92.1556,80.0809 92.1247,80.0838 92.0418,80.0936 91.9634,80.1045 91.8146,80.1521 91.8437,80.1587 91.9733,80.1549 92.0662,80.1532 92.1085,80.1537 92.1764,80.1572 92.2358,80.1624 92.2997,80.1668 92.4356,80.1741 92.5243,80.1731 92.6384,80.167 92.7108,80.1627 92.8092,80.1545 92.8402,80.1517 92.9593,80.1392 92.9796,80.1348 93.0169,80.1452 92.9762,80.1728 92.9506,80.1764 92.852,80.1849 92.5546,80.1915 92.5165,80.1909 92.4234,80.1854 92.3635,80.1798 92.2619,80.1745 92.1555,80.17 92.1172,80.1689 91.9143,80.1667 91.7847,80.1703 91.7421,80.1704 91.6659,80.1683 91.522,80.1627 91.2778,80.154 91.2502,80.1542 91.1345,80.1812 91.1839,80.2096 91.2345,80.2253 91.3654,80.251 91.4121,80.2589 91.4548,80.259 91.4916,80.257 91.5342,80.257 91.5725,80.2581 91.7136,80.2645 91.7847,80.2738 91.8334,80.2751 91.8803,80.2746 91.9167,80.2724 92.0731,80.2635 92.1463,80.2593 92.2193,80.2549 92.2613,80.2534 92.3089,80.2607 92.2494,80.2734 92.2182,80.2759 92.1393,80.2801 92.0457,80.2812 91.831,80.288 91.7941,80.29 91.7676,80.2936 91.6714,80.309 91.6097,80.3286 92.0051,80.3761 92.0399,80.3782 92.0784,80.3791 92.1165,80.3783 92.2104,80.3752 92.3651,80.3774 92.4428,80.3791 92.4776,80.3854 92.4962,80.4035 92.5165,80.4511 92.4809,80.4678 92.5111,80.5039 92.5295,80.5178 92.6149,80.5599 92.7735,80.5934 92.948,80.6385 92.9713,80.6469 93.0236,80.6733 92.9935,80.6723 92.9311,80.667 92.877,80.6602 92.8514,80.6481 92.8193,80.64 92.6111,80.6287 92.3599,80.619 92.2278,80.6191 92.195,80.6353 92.2522,80.6617 92.3373,80.6842 92.3864,80.7076 92.3865,80.738 92.4475,80.7569 92.6124,80.7732 92.6437,80.7762 92.7197,80.7786 92.756,80.7805 92.8579,80.8004 92.8255,80.8244 92.7734,80.8353 92.7564,80.8578 92.8474,80.8707 93.1635,80.906 93.3791,80.9184 93.4151,80.9201 93.5144,80.9183 93.5556,80.919 93.5922,80.9205 93.7594,80.9283 93.7914,80.9309 93.821,80.943 93.8593,80.9528 93.8873,80.9564 94.0446,80.9698 94.0814,80.9713 94.126,80.9696 94.2267,80.9692 94.3329,80.975 94.4346,80.9811 94.4911,80.9879 94.5147,80.9924 94.6062,81.0095 94.6652,81.0247 94.74,81.046 94.8261,81.0735 94.8546,81.077 94.8876,81.0793 94.9841,81.0781 95.1175,81.0783 95.1749,81.0827 95.1749,81.0827 23,3.0,Russia 56.8959,81.0462 56.9994,81.0522 57.272,81.0823 57.5432,81.0965 57.6839,81.1015 57.7202,81.1025 57.7589,81.1021 57.7909,81.0981 57.8783,81.0794 57.89,81.0742 57.8676,81.0674 57.586,81.0142 57.5328,81.0049 57.5038,81.001 57.3768,80.9904 57.3427,80.9889 57.1899,80.9897 56.9664,81.0115 56.8079,81.0303 56.8228,81.0368 56.8803,81.0448 56.8959,81.0462 56.8959,81.0462 38,7.0,Russia 90.7324,80.9211 90.5931,80.9227 90.5485,80.9242 90.3812,80.9309 89.7748,80.958 89.7069,80.9635 89.6831,80.9677 89.6654,80.9725 89.6524,80.9779 89.6189,80.9953 89.599,81.0333 89.7781,81.0752 89.8368,81.0815 89.8729,81.0834 90.2022,81.0907 90.2481,81.091 90.6053,81.0914 90.7314,81.0893 90.8162,81.0859 90.9748,81.0778 91.0435,81.0724 91.072,81.069 91.1001,81.0647 91.1698,81.0522 91.2771,81.0079 91.2765,80.9981 91.2569,80.9898 91.1483,80.9758 91.0764,80.9634 91.0536,80.9591 91.0402,80.9529 91.0332,80.939 91.0063,80.9355 90.9523,80.9285 90.8845,80.924 90.8049,80.925 90.7324,80.9211 90.7324,80.9211 21,3.0,Russia 58.8218,81.0765 58.9017,81.0848 58.9811,81.0834 59.2167,81.0785 59.4477,81.0762 59.4885,81.0748 59.5313,81.0722 59.5674,81.0691 59.5919,81.0648 59.6466,81.0475 59.6368,81.0394 59.6046,81.0368 59.5706,81.0351 59.534,81.0346 59.3808,81.0362 59.3017,81.038 58.8915,81.058 58.8461,81.0619 58.8193,81.0691 58.8218,81.0765 58.8218,81.0765 85,3.0,Russia 62.3549,80.7114 62.3731,80.7133 62.7091,80.7694 62.7621,80.7806 62.7806,80.7872 62.8032,80.7995 62.8324,80.8124 62.8823,80.8254 62.9108,80.8302 63.0999,80.8471 63.1342,80.8482 63.1698,80.8486 63.4594,80.8487 63.6152,80.8443 63.6936,80.8405 63.7311,80.8397 63.765,80.8408 63.8569,80.8515 63.8861,80.8558 63.9135,80.8616 63.9389,80.8681 63.9577,80.8744 63.9846,80.8894 64.0064,80.9215 63.9895,80.9324 63.9184,80.947 63.9091,80.9552 64.0232,81.0183 64.0351,81.0246 64.0545,81.0308 64.0826,81.0366 64.2077,81.0501 64.2722,81.0559 64.3383,81.0606 64.4505,81.0617 64.4889,81.0611 64.6083,81.0551 64.6513,81.0509 64.8227,81.0303 64.8588,81.0258 64.9742,81.0077 65.0032,81.003 65.0251,80.998 65.0558,80.9852 65.0652,80.9715 65.0811,80.961 65.1357,80.9293 65.2392,80.8936 65.2545,80.7918 65.2323,80.7824 65.1798,80.7694 65.024,80.7346 64.8357,80.6879 64.8233,80.6816 64.7975,80.6753 64.7686,80.6709 64.708,80.6638 64.5774,80.6539 64.4861,80.6437 64.4574,80.6393 64.4068,80.6261 64.3782,80.6214 64.0958,80.5979 64.0307,80.5945 63.9953,80.594 63.9588,80.5949 63.7166,80.5892 63.5521,80.5814 63.3827,80.5814 63.2619,80.5686 63.1694,80.5602 63.0091,80.5501 62.9378,80.5503 62.8996,80.5523 62.8845,80.559 62.8752,80.567 62.807,80.5871 62.7297,80.6012 62.5257,80.6384 62.3363,80.6698 62.3071,80.6742 62.304,80.6887 62.3173,80.6979 62.3549,80.7114 62.3549,80.7114 33,3.0,Russia 50.2507,80.905 50.2935,80.9165 50.3126,80.9257 50.3031,80.9338 50.2818,80.9384 50.2538,80.9423 50.2197,80.9461 50.1917,80.9502 50.1828,80.9555 50.2,80.983 50.3274,81.0214 50.351,81.0267 50.383,81.0291 50.572,81.0317 50.6162,81.03 50.6508,81.0262 50.758,81.0038 50.7728,80.9989 50.7812,80.9935 50.8064,80.977 50.8158,80.9688 50.8118,80.9595 50.7889,80.9542 50.7186,80.9518 50.5837,80.9443 50.4323,80.9116 50.2711,80.875 50.246,80.8752 50.2245,80.8802 50.2116,80.8881 50.2244,80.8979 50.2507,80.905 50.2507,80.905 24,3.0,Russia 58.0251,81.0013 58.13,81.0052 58.1543,81.0109 58.1813,81.0162 58.2153,81.0176 58.2917,81.0171 58.3753,81.0131 58.4207,81.0096 58.4452,81.0051 58.4566,81.0001 58.4477,80.9938 58.4206,80.989 58.389,80.9864 58.2858,80.9822 58.2539,80.9795 58.2205,80.9777 58.1798,80.9789 58.1372,80.9815 58.0156,80.9855 57.9705,80.9891 57.959,80.9939 57.9767,80.9998 58.0251,81.0013 58.0251,81.0013 37,3.0,Russia 59.9054,80.8733 59.9638,80.8777 60.0225,80.8851 60.0498,80.8898 60.1983,80.9232 60.432,80.9545 60.4618,80.9579 60.5578,80.966 60.8666,80.9806 60.969,80.9852 61.0393,80.9874 61.184,80.9894 61.2962,80.9884 61.3361,80.9869 61.4525,80.9762 61.4547,80.9594 61.4302,80.9164 61.4072,80.9011 61.383,80.8944 61.1809,80.8453 60.9448,80.796 60.8857,80.7884 60.8543,80.7859 60.7873,80.7826 60.7165,80.7821 60.6417,80.7829 60.2864,80.7971 60.2028,80.8021 60.136,80.8107 59.8701,80.8449 59.8463,80.8494 59.8294,80.8577 59.8393,80.8639 59.8556,80.8708 59.8874,80.873 59.9054,80.8733 59.9054,80.8733 105,3.0,Russia 54.2521,80.8901 54.2632,80.9017 54.2761,80.9086 54.4307,80.9757 54.4557,80.9806 54.5114,80.9886 54.5705,80.9751 54.7603,80.945 54.7983,80.9451 54.936,80.9356 55.0053,80.9296 55.1224,80.913 55.2453,80.8908 55.2833,80.8813 55.3028,80.8769 55.3418,80.8731 55.3846,80.8708 55.4174,80.873 55.6377,80.8906 55.7953,80.9034 55.8285,80.9051 55.8663,80.9052 55.9069,80.9042 55.9457,80.9002 56.227,80.8672 56.2588,80.8635 56.4157,80.8443 56.4403,80.8371 56.4339,80.8205 56.4603,80.8062 56.4909,80.7962 56.565,80.7768 56.5899,80.7724 56.6715,80.7594 56.7477,80.7523 56.8363,80.7458 56.9185,80.7423 56.998,80.7397 57.0401,80.7373 57.1158,80.7297 57.3222,80.7065 57.4157,80.6942 57.44,80.6894 57.5323,80.6584 57.5176,80.6475 57.3559,80.6079 57.3279,80.6041 57.1844,80.5867 57.069,80.5733 56.9791,80.5626 56.9469,80.5607 56.9125,80.56 56.8758,80.5602 56.8343,80.5628 56.8047,80.5726 56.7468,80.5983 56.6507,80.628 56.498,80.666 56.4485,80.6747 56.3625,80.6805 56.2854,80.6818 56.1147,80.6921 56.0388,80.699 55.9968,80.7015 55.9196,80.7027 55.8521,80.6998 55.8127,80.7009 55.6281,80.7191 55.5964,80.7235 55.584,80.7284 55.5833,80.749 55.5445,80.7542 55.5069,80.7546 55.4743,80.7522 55.3969,80.7537 55.3763,80.7561 55.351,80.7603 55.243,80.7832 55.2241,80.7879 55.196,80.801 55.2201,80.8201 55.2081,80.8283 55.182,80.8325 55.1392,80.8344 55.1116,80.8306 55.0597,80.8197 55.0292,80.817 54.9918,80.8168 54.9162,80.8169 54.8055,80.8162 54.7762,80.8191 54.7373,80.8283 54.7051,80.8412 54.6929,80.8611 54.6669,80.8653 54.6341,80.8692 54.5466,80.8593 54.4811,80.855 54.4409,80.8562 54.3169,80.8601 54.2806,80.8627 54.2542,80.867 54.241,80.8719 54.2521,80.8901 54.2521,80.8901 70,3.0,Russia 55.9209,80.9684 55.9406,80.9806 55.9716,80.9835 56.0014,80.9808 56.0587,80.9664 56.104,80.9629 56.1423,80.9632 56.1759,80.9649 56.2039,80.9687 56.237,80.9708 56.4484,80.971 56.4868,80.9708 56.5298,80.9686 56.6008,80.9608 56.6649,80.9527 56.6902,80.9484 56.7087,80.9435 56.7345,80.9391 56.7663,80.9351 56.8047,80.9314 56.9431,80.9203 57.0293,80.9254 57.0602,80.9282 57.0943,80.9265 57.2991,80.9122 57.3244,80.9076 57.4724,80.8706 57.4982,80.8567 57.5096,80.8518 57.5395,80.8415 57.5822,80.8323 57.6761,80.8198 57.7143,80.8161 57.8008,80.8104 57.8808,80.8079 57.965,80.803 58.0468,80.7955 58.078,80.7917 58.0894,80.7862 58.0632,80.7812 57.8897,80.7594 57.6785,80.7213 57.5871,80.7131 57.5495,80.7133 57.4235,80.7238 57.3484,80.7313 57.204,80.7462 57.0407,80.7664 57.0166,80.774 57.032,80.7837 57.0478,80.7961 57.0379,80.8068 57.0194,80.8121 56.9947,80.8162 56.9564,80.82 56.8764,80.8226 56.7912,80.827 56.7533,80.8309 56.7244,80.8467 56.7075,80.8603 56.684,80.877 56.6015,80.89 56.4804,80.9061 56.2207,80.9298 56.016,80.9467 55.975,80.9477 55.9389,80.95 55.9134,80.9573 55.9209,80.9684 55.9209,80.9684 20,3.0,Russia 57.6591,80.9051 57.6463,80.914 57.8231,80.9725 57.8612,80.972 57.8952,80.9706 58.1491,80.9573 58.1785,80.9543 58.4675,80.9068 58.492,80.902 58.5051,80.89 58.4004,80.8272 58.374,80.8221 58.3431,80.8195 58.2102,80.8124 58.0884,80.8174 58.0573,80.8216 58.008,80.8306 57.6772,80.8999 57.6591,80.9051 57.6591,80.9051 43,6.0,Russia 78.9603,80.8209 79.1313,80.8176 79.176,80.817 79.2148,80.8191 79.2812,80.8245 79.3091,80.8282 79.3266,80.833 79.3715,80.8415 79.3995,80.845 79.4492,80.8455 79.4853,80.8438 79.6011,80.8312 79.6546,80.824 79.7171,80.8189 79.8198,80.8122 79.8558,80.8103 79.8957,80.8093 79.9851,80.8086 80.1108,80.8066 80.1461,80.8044 80.1747,80.7968 80.1488,80.746 80.0566,80.7222 80.0339,80.718 80.0062,80.7149 79.8121,80.6992 79.6315,80.6877 79.555,80.6835 79.094,80.6731 78.9169,80.6742 78.8773,80.675 78.8371,80.6761 78.8019,80.6781 78.775,80.6811 78.7306,80.69 78.7193,80.701 78.7184,80.7187 78.7307,80.7314 78.7536,80.7428 78.8394,80.7815 78.8708,80.7947 78.9603,80.8209 78.9603,80.8209 298,3.0,Russia 49.1538,80.6024 49.0973,80.6035 49.0356,80.5987 49.0049,80.5964 48.9802,80.5917 48.9369,80.5811 48.9029,80.5797 48.8632,80.5801 48.8037,80.5982 48.9583,80.6565 49.1449,80.6833 49.1731,80.6864 49.2633,80.6947 49.3256,80.6996 49.3599,80.701 49.4003,80.7001 49.4316,80.7028 49.4593,80.7062 49.5069,80.7159 49.6031,80.7475 49.627,80.7534 49.6526,80.7578 49.8667,80.7763 50.0216,80.7891 50.0532,80.7915 50.0878,80.793 50.1338,80.7902 50.2481,80.7804 50.2765,80.7734 50.2493,80.7672 50.1799,80.7644 50.1053,80.764 50.0706,80.7627 49.9793,80.7548 49.9535,80.7501 49.8496,80.7276 49.9705,80.7139 50.0044,80.7125 50.5006,80.7534 50.5578,80.7603 50.5836,80.7646 50.6436,80.7834 50.6811,80.7834 50.7158,80.7772 50.8732,80.7144 50.8537,80.7004 50.5581,80.6766 50.5268,80.6743 50.4865,80.675 50.4005,80.6781 50.3663,80.677 50.335,80.6747 50.3061,80.6687 50.3739,80.6546 50.3448,80.6428 50.2602,80.6328 50.2291,80.6302 50.1608,80.6276 50.1328,80.6244 50.1075,80.6201 50.0862,80.6116 50.1543,80.5832 50.1809,80.5791 50.2117,80.5792 50.2401,80.5826 50.3071,80.5985 50.4532,80.6263 50.4783,80.6309 50.764,80.6395 50.8658,80.6408 51.0084,80.644 51.1014,80.6529 51.1483,80.6446 51.2836,80.6086 51.31,80.6042 51.3426,80.6005 51.4139,80.6021 51.5193,80.5942 51.5587,80.5907 51.5795,80.583 51.5648,80.5519 51.5394,80.5436 51.3351,80.5093 51.2505,80.4993 51.1913,80.494 51.1545,80.4937 51.0761,80.4953 51.0417,80.4938 51.0166,80.49 50.9944,80.4842 50.9438,80.4625 50.9103,80.448 50.8613,80.4231 50.8366,80.413 50.7864,80.4046 50.7586,80.4011 50.7278,80.3987 50.6469,80.4014 50.6109,80.401 50.4293,80.3993 50.1809,80.3951 50.0376,80.3921 49.9706,80.3892 49.9401,80.3868 49.9164,80.3794 49.8928,80.3695 49.6934,80.3617 49.5937,80.3573 49.5635,80.3551 49.5295,80.3467 49.5644,80.3314 49.6368,80.3221 49.6712,80.2756 49.648,80.2671 49.6235,80.2626 49.4722,80.2382 49.4456,80.2346 49.4125,80.2333 49.3052,80.232 49.2638,80.2335 49.2224,80.2351 49.1249,80.2459 49.0864,80.2486 49.0443,80.2502 48.7467,80.253 48.7112,80.253 48.6811,80.2502 48.6453,80.2435 48.4734,80.1731 48.4875,80.1575 48.5156,80.1503 48.5601,80.1476 48.6928,80.1529 48.7284,80.1532 48.7637,80.1511 48.7932,80.141 48.8397,80.1205 48.9518,80.0571 48.8337,80.0194 48.8045,80.0168 48.7664,80.0171 48.6438,80.0219 48.6117,80.0254 48.5856,80.0294 48.5446,80.0387 48.5074,80.0523 48.4508,80.0677 48.4127,80.0706 48.3749,80.0712 48.341,80.0664 48.3661,80.0468 48.3853,80.0392 48.3927,80.018 48.3579,79.994 48.3283,79.9859 48.244,79.9661 48.2206,79.9618 48.1944,79.9635 48.1744,79.9676 48.0933,79.995 48.0514,80.005 48.0107,80.0064 47.9554,80.0006 47.909,79.9919 47.8886,79.9867 47.8435,79.9752 47.7498,79.9588 47.5691,79.9454 47.5374,79.9437 47.5025,79.9434 47.4646,79.9463 47.4443,79.9546 47.4908,79.9909 47.604,80.0406 47.6238,80.0458 47.6501,80.0497 47.7906,80.0517 47.8487,80.0568 47.9042,80.0626 47.9303,80.0688 47.8979,80.0745 47.7572,80.0724 47.7054,80.0786 47.7882,80.094 47.8105,80.1029 47.7724,80.1137 47.7278,80.1162 47.6896,80.1167 47.547,80.1136 47.3356,80.1079 47.3034,80.106 47.0083,80.0468 46.9651,80.036 46.7845,80.0511 46.7635,80.0555 46.7433,80.0631 46.7527,80.0892 46.7328,80.1031 46.5779,80.1333 46.5509,80.1374 46.5005,80.1484 46.4782,80.1661 46.5352,80.1855 46.806,80.2316 46.8614,80.2378 46.8909,80.2406 46.9264,80.2408 46.9655,80.2384 46.9928,80.2345 47.0237,80.2246 47.043,80.2139 47.0815,80.1999 47.161,80.1796 47.3263,80.1865 47.4957,80.1822 47.6975,80.1723 47.7244,80.171 47.8248,80.172 47.8513,80.1755 48.0323,80.2042 48.0007,80.2094 47.7766,80.2337 47.7377,80.2369 47.6664,80.2359 47.5536,80.2362 47.5178,80.238 47.4718,80.269 47.4994,80.2776 47.5647,80.2807 47.6006,80.2814 47.8902,80.2846 48.0395,80.2848 48.075,80.2902 47.9761,80.3349 47.9351,80.3385 47.5572,80.3361 47.468,80.3284 47.3162,80.3168 47.2837,80.3152 47.2402,80.3199 47.2665,80.3326 47.6557,80.3896 47.6824,80.3929 47.8567,80.4098 47.8863,80.4125 47.9262,80.4094 47.9686,80.4006 47.996,80.397 48.0291,80.3956 48.0683,80.4015 48.0947,80.4149 48.1247,80.4238 48.1487,80.4281 48.1758,80.4315 48.2394,80.4354 48.2791,80.4324 48.3878,80.402 48.5926,80.3644 48.6318,80.3614 48.6679,80.3619 48.6923,80.3662 48.7377,80.3758 48.7497,80.3918 48.7954,80.3944 48.8825,80.3904 48.9609,80.3893 49.0349,80.3909 49.0631,80.3997 49.0193,80.4187 49.1008,80.4466 49.1224,80.4496 49.1771,80.4515 49.2339,80.4637 49.2503,80.4773 49.1946,80.4885 49.1613,80.492 49.1352,80.5005 49.158,80.5117 49.2806,80.5214 49.3197,80.5187 49.347,80.5145 49.3801,80.5112 49.4255,80.5084 49.4681,80.5068 49.5036,80.5112 49.5214,80.5855 49.5001,80.5898 49.4665,80.5909 49.4354,80.5887 49.4104,80.5844 49.3505,80.5778 49.2607,80.5697 49.0766,80.5552 49.0493,80.5615 49.0697,80.5786 49.0997,80.5878 49.1538,80.6024 49.1538,80.6024 52,3.0,Russia 57.7568,80.6972 57.8375,80.7091 57.9157,80.7237 57.9394,80.7294 57.9962,80.7372 58.0598,80.7419 58.3256,80.755 58.4602,80.7605 58.5285,80.7633 58.5659,80.7627 58.6036,80.7591 58.6342,80.755 58.7195,80.7418 58.768,80.7328 58.7854,80.7277 58.8343,80.6897 58.7958,80.6592 58.7519,80.6449 58.7257,80.6403 58.6951,80.6372 58.6556,80.6392 58.5816,80.6468 58.545,80.6472 58.4753,80.6457 58.449,80.6408 58.4314,80.6352 58.4227,80.6293 58.4076,80.6225 58.3792,80.6187 58.349,80.616 58.3162,80.6138 58.2813,80.6135 58.2446,80.6135 58.2053,80.6149 58.164,80.6174 58.1356,80.6207 58.0874,80.6295 58.0571,80.6339 58.0198,80.6375 57.9761,80.6409 57.9345,80.6435 57.8953,80.6449 57.8581,80.6452 57.7379,80.6499 57.6763,80.6583 57.652,80.6627 57.6317,80.6703 57.6377,80.6796 57.655,80.685 57.681,80.6901 57.7568,80.6972 57.7568,80.6972 55,3.0,Russia 53.8299,80.6938 53.8638,80.7085 53.8853,80.7146 53.9148,80.7175 54.0857,80.724 54.1582,80.7251 54.2485,80.7131 54.2882,80.7118 54.5965,80.7289 54.7827,80.7515 54.8101,80.7559 54.8401,80.7586 54.8771,80.7604 54.9521,80.7605 54.992,80.7591 55.0756,80.7525 55.1075,80.7487 55.1269,80.7437 55.2705,80.7186 55.4204,80.6992 55.4523,80.6953 55.6309,80.6826 55.799,80.666 55.7745,80.6595 55.7447,80.6566 55.6476,80.6507 55.3504,80.636 55.1926,80.6312 55.1283,80.6271 54.9659,80.6164 54.937,80.6117 54.888,80.602 54.8289,80.5958 54.7016,80.5874 54.6642,80.5876 54.625,80.5885 54.4888,80.6089 54.5064,80.6231 54.5161,80.6358 54.4973,80.6435 54.4651,80.6472 54.4205,80.6505 54.3861,80.6491 54.2554,80.6425 54.0852,80.636 54.0481,80.636 54.006,80.6384 53.9287,80.645 53.9032,80.6494 53.832,80.6626 53.8016,80.673 53.8011,80.6847 53.816,80.6908 53.8299,80.6938 53.8299,80.6938 114,3.0,Russia 59.1234,80.4108 59.1668,80.4208 59.1798,80.4303 59.085,80.4513 59.0661,80.4594 59.0316,80.5145 59.0894,80.5644 59.1784,80.6024 59.3554,80.6658 59.4205,80.6839 59.4449,80.6898 59.4718,80.6946 59.5008,80.6982 59.5314,80.7012 59.6813,80.7098 59.7148,80.7112 59.8842,80.7173 59.9218,80.7169 59.9628,80.7144 60.0063,80.7109 60.0364,80.7065 60.0613,80.699 60.0342,80.6924 59.9663,80.6902 59.9289,80.6908 59.8631,80.6877 59.8319,80.6848 59.8027,80.6814 59.7737,80.6738 59.8083,80.671 59.9073,80.6758 59.9424,80.6765 60.0867,80.6766 60.1237,80.6762 60.1556,80.6691 60.3651,80.6787 60.6963,80.6945 60.9229,80.7084 61.1622,80.7177 61.2135,80.7214 61.2789,80.727 61.3347,80.7438 61.3622,80.7528 61.3956,80.7541 61.6513,80.7528 61.7277,80.7509 61.8451,80.7454 61.8878,80.7417 61.9201,80.7316 61.9986,80.689 62.017,80.6783 62.0829,80.6385 62.0759,80.6238 62.0505,80.6058 62.0183,80.5868 62.0009,80.5807 61.9494,80.5691 61.9069,80.557 61.8385,80.5308 61.8476,80.5258 61.87,80.5208 61.8985,80.5165 61.9211,80.5117 61.9368,80.5068 61.9438,80.4982 61.8874,80.4862 61.8583,80.4826 61.7404,80.4692 61.6752,80.4663 61.6061,80.4653 61.57,80.466 61.537,80.4643 61.5063,80.4621 61.3826,80.4237 61.1904,80.35 61.1724,80.3402 61.1495,80.3336 61.1247,80.3278 61.0506,80.3101 60.8995,80.2775 60.8715,80.2738 60.8393,80.2722 60.8055,80.2718 60.7642,80.2754 60.4189,80.3083 60.3034,80.3257 60.2355,80.3395 60.219,80.3445 60.1969,80.349 60.1384,80.3581 60.0567,80.364 60.024,80.3625 59.9959,80.3492 59.9785,80.3381 59.9524,80.3335 59.8963,80.326 59.7542,80.3079 59.6946,80.3027 59.6624,80.3012 59.469,80.2922 59.4355,80.2952 59.3746,80.3267 59.3482,80.3371 59.3316,80.3419 59.3086,80.3465 59.2559,80.3554 59.1673,80.3681 59.1214,80.3774 59.0814,80.3868 59.0647,80.3921 59.0555,80.4001 59.1124,80.4108 59.1234,80.4108 59.1234,80.4108 167,3.0,Russia 45.9371,80.3069 45.909,80.3109 45.893,80.3158 45.8802,80.3334 45.873,80.3515 45.8702,80.3642 45.879,80.3776 45.8865,80.3845 45.9075,80.3992 45.9333,80.4216 45.9052,80.4364 45.8886,80.4411 45.8523,80.4433 45.6299,80.4219 45.4799,80.3957 45.4274,80.3882 45.3913,80.3879 45.3487,80.3889 45.3264,80.393 45.3054,80.4038 45.296,80.4156 45.2854,80.4212 45.2583,80.4315 45.2417,80.4362 45.1745,80.449 45.1461,80.4525 45.1058,80.4553 45.0136,80.4594 44.9278,80.4615 44.8388,80.4652 44.758,80.4702 44.7353,80.4748 44.7158,80.4823 44.7363,80.49 44.8553,80.5015 45.0158,80.516 45.0819,80.5196 45.3185,80.5314 45.388,80.5339 45.5869,80.5329 45.8064,80.5346 45.8396,80.5364 46.1494,80.5598 46.2096,80.5651 46.2363,80.5687 46.3672,80.5899 46.2799,80.5974 46.2528,80.6022 46.2872,80.6072 46.3878,80.6119 46.5348,80.6146 46.6125,80.6096 46.6494,80.6103 46.6827,80.6118 46.8479,80.6213 46.875,80.6247 47.0422,80.6635 47.0504,80.6705 47.0409,80.6761 47.0182,80.68 46.9778,80.6831 46.9493,80.6872 46.9393,80.6921 46.9602,80.6976 47.0457,80.7075 47.3109,80.7216 47.3481,80.7227 47.495,80.711 47.6175,80.6899 47.7429,80.6709 47.7832,80.6677 47.8201,80.6683 47.8543,80.6698 47.9462,80.6774 48.0051,80.683 48.0295,80.688 48.0573,80.6912 48.0879,80.6937 48.1285,80.693 48.1844,80.6855 48.3735,80.6576 48.4601,80.6394 48.4968,80.6182 48.4816,80.6132 48.4476,80.6119 48.4015,80.6144 48.3644,80.6136 48.34,80.6091 48.3216,80.6028 48.3066,80.5956 48.2973,80.5884 48.3064,80.5829 48.3372,80.5805 48.3743,80.581 48.4049,80.5785 48.4261,80.5743 48.4784,80.5597 48.5972,80.5263 48.6082,80.5181 48.6032,80.4898 48.5939,80.4829 48.5667,80.4794 48.5269,80.4822 48.442,80.4929 48.3414,80.5055 48.1842,80.5159 48.1114,80.5147 47.9828,80.5214 47.9431,80.5243 47.9092,80.5279 47.8815,80.5319 47.8599,80.5362 47.7519,80.5785 47.6253,80.6302 47.5975,80.6341 47.5055,80.6262 47.4783,80.6232 47.4509,80.6195 47.4266,80.615 47.4059,80.6096 47.3599,80.5757 47.2582,80.5524 47.2247,80.5509 47.2009,80.5465 47.1802,80.541 47.1502,80.5227 47.1589,80.5141 47.2061,80.4996 47.234,80.4956 47.2812,80.4811 47.2923,80.468 47.2713,80.4579 47.2323,80.4581 47.2043,80.4619 47.1547,80.4703 47.1331,80.4748 47.1171,80.4793 47.0398,80.4914 47.015,80.4946 46.9101,80.4606 46.893,80.454 46.8847,80.4472 46.8807,80.4343 46.8725,80.4273 46.8553,80.421 46.6948,80.4232 46.5792,80.4256 46.499,80.4257 46.4849,80.4206 46.534,80.3902 46.5153,80.3832 46.3786,80.3896 46.3585,80.384 46.3448,80.3769 46.3529,80.3647 46.363,80.3598 46.3717,80.3531 46.38,80.3417 46.3689,80.3358 46.3428,80.332 46.2832,80.3294 46.1723,80.3281 46.1399,80.3264 46.0806,80.3214 46.0022,80.3104 45.9371,80.3069 45.9371,80.3069 42,3.0,Russia 55.3215,80.5912 55.3738,80.5987 55.6039,80.6254 55.7443,80.6301 56.1554,80.6428 56.2946,80.6461 56.3314,80.6458 56.3712,80.6448 56.5956,80.6037 56.7473,80.5656 56.7653,80.561 56.7525,80.5309 56.7273,80.5259 56.5557,80.5052 56.5261,80.5026 56.2588,80.4927 56.1699,80.506 56.1584,80.5115 56.1273,80.515 56.0883,80.5163 56.0196,80.5146 55.9555,80.5109 55.926,80.5079 55.8352,80.5001 55.7255,80.5002 55.6073,80.5073 55.4643,80.5187 55.4331,80.5225 55.4245,80.5311 55.4524,80.5391 55.4795,80.5429 55.5017,80.5493 55.5249,80.5593 55.5165,80.568 55.4915,80.5723 55.4521,80.5732 55.3415,80.5736 55.27,80.5728 55.254,80.5765 55.2673,80.5835 55.3215,80.5912 55.3215,80.5912 31,-6.0,Canada -94.7591,80.5489 -94.7397,80.5452 -94.7247,80.5387 -94.6643,80.5063 -94.6757,80.5007 -94.7014,80.4954 -94.8841,80.4776 -94.92,80.4781 -95.1467,80.4979 -95.3035,80.5166 -95.369,80.522 -95.4038,80.5228 -95.441,80.5225 -95.4796,80.5207 -95.5152,80.517 -95.5548,80.5145 -95.7526,80.5251 -95.8086,80.5288 -95.8396,80.5332 -95.8296,80.5382 -95.7669,80.5513 -95.7188,80.5555 -95.6968,80.5563 -95.1836,80.5682 -95.1166,80.5677 -94.8934,80.5658 -94.8599,80.5635 -94.8221,80.5603 -94.7902,80.557 -94.7591,80.5489 -94.7591,80.5489 17,-2.0,Greenland -66.6638,80.5065 -66.6796,80.5414 -66.6686,80.5501 -66.6456,80.5542 -66.6124,80.5562 -66.5505,80.5494 -66.5316,80.5465 -66.3185,80.4873 -66.3323,80.4809 -66.3811,80.4774 -66.4682,80.4753 -66.5522,80.4756 -66.5744,80.4792 -66.6367,80.4947 -66.6469,80.4984 -66.6638,80.5065 -66.6638,80.5065 28,3.0,Russia 53.044,80.3852 53.0318,80.3927 53.0273,80.4075 53.0438,80.4267 53.0557,80.4337 53.0918,80.4481 53.1127,80.4541 53.1302,80.4643 53.1044,80.4715 52.9799,80.48 52.9479,80.4836 52.9346,80.4888 52.9705,80.5173 52.9875,80.5223 53.0164,80.5253 53.0459,80.5225 53.2271,80.4953 53.3726,80.3959 53.3626,80.3852 53.2714,80.3546 53.2583,80.3514 53.2194,80.3523 53.1815,80.3559 53.1307,80.3642 53.086,80.373 53.0665,80.378 53.044,80.3852 53.044,80.3852 11,3.0,Russia 58.3606,80.4867 58.412,80.4963 58.6168,80.5153 58.6556,80.5142 58.6662,80.509 58.6177,80.4518 58.5813,80.4519 58.3776,80.4646 58.3508,80.4775 58.3606,80.4867 58.3606,80.4867 26,3.0,Russia 57.0989,80.4834 57.1307,80.487 57.1858,80.4947 57.2,80.5018 57.2079,80.5076 57.2316,80.5106 57.4172,80.508 57.6579,80.5099 57.7896,80.5124 57.824,80.5095 57.8348,80.5044 57.8485,80.4879 57.845,80.4762 57.7383,80.4312 57.715,80.4254 57.6854,80.4226 57.6171,80.4212 57.3439,80.4167 57.3051,80.4183 57.0811,80.4519 57.0568,80.4566 57.032,80.4698 57.0455,80.478 57.0732,80.482 57.0989,80.4834 57.0989,80.4834 48,3.0,Russia 53.6222,80.3376 53.6588,80.3451 53.6847,80.3522 53.6593,80.3697 53.7716,80.3874 53.7949,80.3956 53.7822,80.4039 53.7568,80.4079 53.7253,80.4119 53.6998,80.416 53.6806,80.4208 53.6678,80.432 53.6666,80.4496 53.6719,80.468 53.6983,80.4722 53.7299,80.4742 53.7951,80.4775 53.8342,80.4763 54.0312,80.4618 54.1007,80.4544 54.1385,80.445 54.1124,80.4412 54.0471,80.4379 54.0158,80.4357 53.9867,80.4326 53.9628,80.4236 53.9784,80.4152 54.016,80.412 54.1277,80.4108 54.2054,80.409 54.237,80.4051 54.2849,80.3676 54.2878,80.3411 54.157,80.2925 54.1285,80.2891 54.0949,80.2886 54.0566,80.2892 54.0194,80.2929 53.9944,80.2971 53.9696,80.3016 53.9567,80.3066 53.9377,80.3115 53.8816,80.3195 53.8003,80.326 53.6771,80.3321 53.6396,80.3352 53.6222,80.3376 53.6222,80.3376 23,3.0,Russia 54.4907,80.3888 54.4788,80.3925 54.4692,80.4006 54.4813,80.4089 54.5005,80.4164 54.529,80.4196 54.6748,80.4191 54.7087,80.4205 54.7401,80.4222 54.7931,80.4305 54.8208,80.431 54.8396,80.4262 54.9503,80.3857 54.9868,80.3675 54.9738,80.3578 54.8782,80.3372 54.8444,80.3361 54.7721,80.3364 54.6962,80.3408 54.6715,80.3453 54.5121,80.3815 54.4907,80.3888 54.4907,80.3888 82,3.0,Russia 57.4528,79.9839 57.3964,79.9937 57.355,79.9972 57.2521,79.9971 57.2209,79.9985 57.091,80.0379 57.0568,80.2069 57.0748,80.2513 57.0887,80.2599 57.0211,80.2947 57.0038,80.2993 56.8969,80.3228 56.8123,80.3352 56.7644,80.3443 56.7829,80.3489 57.0812,80.3592 57.1831,80.3618 57.2215,80.3605 57.4282,80.3572 57.5298,80.3614 57.5979,80.3625 57.6338,80.3623 57.7445,80.3604 57.783,80.3591 57.8617,80.3554 58.2085,80.3382 58.2937,80.3314 58.34,80.3225 58.4905,80.3073 58.6133,80.299 58.9641,80.2511 59.0101,80.2416 59.0575,80.2207 59.0866,80.2019 59.0579,80.1952 59.0284,80.1925 58.6053,80.2023 58.5213,80.2089 58.4503,80.2098 58.4208,80.2072 58.4126,80.1949 58.396,80.1847 58.3621,80.1837 58.247,80.1892 58.2156,80.1877 58.1862,80.1849 57.9987,80.1562 57.9492,80.1463 57.9079,80.1322 57.8928,80.1227 57.9085,80.115 57.9441,80.1112 57.9797,80.1106 58.0464,80.1122 58.1587,80.1079 58.2772,80.1006 58.2932,80.0929 58.2593,80.0466 58.2511,80.0404 58.2224,80.0375 58.1851,80.0392 57.9856,80.0558 57.8796,80.067 57.8691,80.0727 57.8357,80.0719 57.8071,80.0687 57.758,80.0592 57.7356,80.0533 57.7205,80.0433 57.7302,80.0351 57.7806,80.0202 57.7912,80.0149 57.8316,79.9803 57.8114,79.9718 57.7825,79.9692 57.7165,79.9677 57.5725,79.971 57.5357,79.9723 57.4942,79.9753 57.4654,79.9795 57.4528,79.9839 57.4528,79.9839 21,3.0,Russia 54.2781,80.2858 54.3222,80.3164 54.3345,80.3233 54.4458,80.3521 54.4982,80.36 54.5394,80.3583 54.5583,80.3534 54.6881,80.32 54.6874,80.3083 54.6749,80.2957 54.6559,80.2884 54.6324,80.2834 54.4943,80.2657 54.4631,80.264 54.3915,80.264 54.2813,80.2651 54.2407,80.2671 54.2002,80.2733 54.2231,80.2801 54.2781,80.2858 54.2781,80.2858 20,3.0,Russia 54.9275,80.2935 54.9463,80.293 54.9777,80.2949 55.004,80.2988 55.031,80.3072 55.0497,80.3164 55.0763,80.3201 55.1097,80.3211 55.1482,80.32 55.1667,80.3153 55.1872,80.3017 55.1367,80.2638 55.1278,80.2583 55.0252,80.2411 54.9918,80.2399 54.8051,80.2844 54.8136,80.2915 54.8422,80.2945 54.9275,80.2935 54.9275,80.2935 18,3.0,Russia 55.625,80.2871 55.6417,80.2971 55.6946,80.3051 55.7354,80.3032 55.8512,80.2962 56.0276,80.281 56.1077,80.274 56.1315,80.2698 56.1457,80.2617 56.1286,80.2516 56.0803,80.2415 56.0445,80.2417 55.8016,80.2551 55.6443,80.2678 55.6112,80.2745 55.615,80.2838 55.625,80.2871 55.625,80.2871 73,3.0,Russia 52.1534,80.0899 52.0974,80.1004 52.0846,80.1055 52.0157,80.1431 52.0323,80.1477 52.1455,80.1598 52.1757,80.1623 52.2086,80.1632 52.2467,80.1623 52.3466,80.1599 52.421,80.1703 52.5,80.1845 52.5146,80.2094 52.5126,80.2216 52.53,80.2288 52.5501,80.2349 52.6158,80.2516 52.7069,80.2726 52.7322,80.277 52.763,80.2791 52.9883,80.2815 53.0604,80.2819 53.1013,80.2798 53.133,80.2759 53.1681,80.2636 53.1473,80.2532 53.1485,80.241 53.1682,80.2306 53.1812,80.2251 53.2128,80.2157 53.2635,80.2009 53.2823,80.1962 53.4258,80.1705 53.451,80.1658 53.5128,80.1582 53.632,80.1534 53.663,80.1495 53.6818,80.1447 53.6992,80.1322 53.6891,80.1213 53.6303,80.1015 53.6095,80.0955 53.5847,80.0913 53.5539,80.0891 53.5139,80.0952 53.5071,80.1065 53.479,80.1139 53.4462,80.1128 53.4206,80.1086 53.3827,80.0949 53.3567,80.078 53.3489,80.0594 53.3438,80.0502 53.3235,80.0442 53.2629,80.0397 53.2279,80.0397 53.197,80.0436 53.1785,80.048 53.1479,80.0521 52.9587,80.0563 52.9285,80.0544 52.7675,80.0478 52.5449,80.0401 52.4703,80.0442 52.4566,80.0523 52.4496,80.0608 52.4263,80.066 52.3828,80.0684 52.3124,80.0683 52.1666,80.0722 52.1529,80.0804 52.1534,80.0899 52.1534,80.0899 50,3.0,Russia 55.6269,79.9993 55.6481,80.0037 55.6719,80.0088 55.783,80.0375 55.8477,80.0558 55.8669,80.0658 55.8144,80.0832 55.7774,80.1285 55.7917,80.1945 55.8051,80.2015 55.8293,80.2065 55.8575,80.2097 56.0111,80.2202 56.0846,80.2189 56.2676,80.2064 56.3598,80.1967 56.5059,80.2202 56.5203,80.23 56.5446,80.2354 56.5759,80.237 56.7189,80.2364 56.7955,80.2304 56.8679,80.2227 56.8978,80.2188 56.9154,80.2139 56.9488,80.1833 56.9482,80.1684 56.9236,80.0844 56.9099,80.0445 56.9373,79.9888 56.9567,79.9819 56.9512,79.9729 56.8911,79.9564 56.8691,79.9504 56.843,79.9465 56.8145,79.9438 56.782,79.9434 56.5809,79.9404 56.4823,79.9412 56.3627,79.9489 56.3253,79.95 56.0298,79.9491 55.9274,79.9486 55.8293,79.9458 55.7878,79.9473 55.7522,79.9509 55.5406,79.9778 55.5809,79.9919 55.6269,79.9993 55.6269,79.9993 24,3.0,Russia 54.72,80.134 54.7398,80.1437 54.7682,80.1467 54.8348,80.1484 54.8983,80.1516 54.9298,80.1599 54.9227,80.1765 55.1217,80.2132 55.1527,80.2151 55.1953,80.2122 55.3288,80.1928 55.3448,80.1873 55.3675,80.165 55.3664,80.1527 55.3476,80.1455 55.1934,80.1203 55.1133,80.1092 54.9766,80.0918 54.9461,80.09 54.8451,80.0998 54.6954,80.1184 54.6837,80.1238 54.72,80.134 54.72,80.134 22,3.0,Russia 54.0055,80.0899 54.0449,80.1242 53.9766,80.1554 53.9765,80.1674 53.9912,80.1774 54.0279,80.1916 54.0487,80.1981 54.0769,80.201 54.1126,80.2012 54.1497,80.1977 54.2235,80.1847 54.2636,80.1723 54.2732,80.1519 54.273,80.134 54.2638,80.1067 54.2488,80.0966 54.2232,80.0925 54.0504,80.0759 54.0148,80.0758 53.9966,80.0836 54.0055,80.0899 54.0055,80.0899 27,-2.0,Greenland -19.0249,80.0229 -19.2846,79.9998 -19.3087,79.997 -19.4553,79.9765 -19.7209,79.9471 -19.8446,79.9354 -19.8769,79.9335 -19.9118,79.9355 -19.9497,79.969 -19.8575,80.054 -19.8486,80.0596 -19.8074,80.0834 -19.7727,80.0956 -19.7264,80.1078 -19.6939,80.1127 -19.6614,80.1162 -19.5942,80.1195 -19.5319,80.1206 -19.486,80.1192 -19.4152,80.1143 -19.38,80.1105 -19.0075,80.0467 -18.971,80.0392 -18.9586,80.0355 -18.9736,80.0295 -19.0249,80.0229 -19.0249,80.0229 42,3.0,Russia 49.7156,79.9397 49.6528,79.9688 49.5384,79.9828 49.4267,80.0037 49.3824,80.0156 49.3759,80.0242 49.3853,80.0311 49.4029,80.0374 49.4452,80.0485 49.4691,80.053 49.7373,80.0991 49.7642,80.1027 49.7939,80.105 49.8617,80.1068 49.9412,80.1046 49.9848,80.102 50.0226,80.0985 50.0744,80.0907 50.1144,80.0815 50.1479,80.0721 50.1663,80.0642 50.1727,80.0464 50.1547,80.0354 50.118,80.0228 50.0941,80.0185 50.0615,80.0168 50.0239,80.0177 49.9916,80.0163 49.962,80.0138 49.9439,80.0078 49.934,80.0004 49.9204,79.9878 49.8896,79.9563 49.9268,79.9448 49.9067,79.9353 49.8801,79.9322 49.8478,79.9309 49.8134,79.9309 49.7728,79.9325 49.7356,79.9353 49.7156,79.9397 49.7156,79.9397 22,3.0,Russia 59.7196,80.0532 59.7095,80.0662 59.7383,80.0729 59.7697,80.0748 59.8031,80.0754 59.8737,80.0761 59.9085,80.0755 59.9498,80.072 59.9844,80.0676 60.0413,80.0594 60.0856,80.0497 60.097,80.0417 60.0711,80.0352 60.0398,80.0335 60.0031,80.0349 59.9619,80.0386 59.9338,80.0429 59.8948,80.0455 59.7541,80.0476 59.7276,80.0509 59.7196,80.0532 59.7196,80.0532 309,7.0,Russia 95.9952,78.8745 96.0576,78.8989 96.0119,78.9052 95.9735,78.9052 95.9077,78.9035 95.8837,78.9 95.8628,78.8956 95.787,78.8857 95.7043,78.8781 95.6732,78.877 95.6388,78.876 95.3988,78.8804 95.3585,78.8895 95.3483,78.9322 95.3703,78.9501 95.2722,78.9789 95.2359,78.9883 95.1986,78.9902 95.1671,78.9885 95.112,78.9835 95.0881,78.9799 95.0594,78.973 95.0377,78.9643 94.9878,78.9484 94.8555,78.9253 94.8279,78.9226 94.7934,78.9221 94.713,78.9234 94.6898,78.9272 94.4826,78.9673 94.4054,78.992 94.3518,79.0592 94.3284,79.0775 94.2728,79.0877 94.2115,79.0932 94.1554,79.099 94.1317,79.103 94.0712,79.1157 94.0297,79.133 94.0155,79.2267 94.0238,79.2783 94.0422,79.2919 94.0593,79.3113 94.0543,79.3392 94.0356,79.3471 93.9973,79.3562 93.9736,79.3598 93.9386,79.3606 93.7991,79.3566 93.7602,79.3461 93.7821,79.3204 93.7571,79.3123 93.6932,79.309 93.6537,79.3091 93.6203,79.3113 93.5914,79.3146 93.4187,79.3385 93.5123,79.3493 93.6403,79.3562 93.6646,79.3595 93.6893,79.3738 93.6122,79.3807 93.5303,79.3906 93.3924,79.4205 93.4234,79.4241 93.4517,79.427 93.4844,79.4328 93.557,79.4662 93.5819,79.4808 93.5032,79.4858 93.4747,79.4832 93.4503,79.4796 93.4213,79.4729 93.2329,79.4169 93.1543,79.3863 93.1694,79.3574 93.0633,79.3347 93.0393,79.3312 92.959,79.3223 92.931,79.3196 92.9003,79.3196 92.8643,79.325 92.8337,79.3478 92.9197,79.3672 92.9519,79.369 93.0163,79.3769 92.983,79.3987 92.9418,79.4037 92.8622,79.4037 92.7511,79.4101 92.5618,79.4388 92.6303,79.4461 92.6694,79.4444 92.7278,79.4387 92.7861,79.4289 92.8204,79.4231 92.8543,79.421 92.8942,79.421 92.9624,79.4233 92.9867,79.4268 93.3416,79.4947 93.4873,79.5576 93.5015,79.5724 93.5521,79.5884 93.7798,79.6458 93.8046,79.6492 93.9816,79.6638 94.0473,79.667 94.1129,79.6703 94.2116,79.6754 94.3144,79.6925 94.3298,79.7071 94.2366,79.7229 94.1233,79.7359 94.0444,79.7464 93.9228,79.7801 94.058,79.8291 94.1296,79.8461 94.1707,79.8457 94.31,79.8603 94.3354,79.8638 94.4477,79.884 94.4696,79.8883 94.6332,79.9387 94.6096,79.9676 94.6357,79.9731 94.6696,79.9748 94.7058,79.974 94.7999,79.9413 94.9283,79.8961 94.9644,79.8951 94.9945,79.8976 95.0295,79.903 95.0491,79.9122 95.0542,79.942 95.0909,79.9632 95.1355,79.9713 95.188,79.9773 95.2778,79.9845 95.6644,79.9797 95.7954,79.9657 95.8334,79.962 95.8714,79.9626 96.0646,79.9697 96.1326,79.9727 96.4224,79.9867 96.6081,79.9992 96.754,80.0267 96.7783,80.0352 96.8049,80.0386 96.8353,80.0409 96.877,80.0404 97.0089,80.0356 97.1841,80.0418 97.2259,80.0416 97.3063,80.0373 97.395,80.0276 97.5178,79.9971 97.7225,79.9434 97.657,79.886 97.5155,79.8062 97.3371,79.7141 97.3164,79.6647 97.228,79.6396 97.1391,79.6228 97.0879,79.6167 96.981,79.6042 96.9518,79.6022 96.9262,79.5988 96.8933,79.5863 96.9306,79.5793 97.2392,79.6182 97.3388,79.6322 97.4073,79.6543 97.4213,79.6863 97.5092,79.7082 97.5541,79.7166 97.569,79.7569 97.5837,79.7733 97.6286,79.7818 97.6588,79.784 97.7296,79.7859 97.7636,79.7833 97.8628,79.7679 97.9191,79.7574 97.9752,79.7474 98.0034,79.744 98.0408,79.7443 98.0786,79.7495 98.125,79.7722 98.2636,79.8549 98.2263,79.8673 98.2028,79.8716 98.1273,79.8842 98.162,79.9185 98.1914,79.9255 98.2145,79.929 98.2562,79.9285 98.2903,79.9261 98.3189,79.923 98.355,79.9143 98.3784,79.9105 98.4129,79.9079 98.4541,79.9075 98.4879,79.9084 98.5903,79.9161 98.7071,79.9235 98.7458,79.9248 98.8321,79.9229 98.8714,79.9209 98.9002,79.9177 98.9234,79.9139 99.055,79.8773 99.1267,79.8544 99.1818,79.824 99.2317,79.813 99.2709,79.811 99.3421,79.8122 99.365,79.8079 99.4821,79.7814 99.6963,79.7046 99.7497,79.6533 99.7253,79.6432 99.6474,79.6237 99.5809,79.6213 99.4599,79.5161 99.4104,79.4562 99.3708,79.3486 99.3912,79.2594 99.4271,79.2468 99.3712,79.1918 99.3472,79.1781 99.2895,79.1736 99.2751,79.1562 99.1449,79.1295 99.0777,79.1439 99.0097,79.1629 98.9705,79.1716 98.9043,79.1839 98.877,79.1875 98.8434,79.1885 98.8075,79.1883 98.779,79.1862 98.7537,79.183 98.7348,79.1698 99.1069,79.0768 99.1285,79.0726 99.1772,79.065 99.2042,79.0616 99.2865,79.0419 99.2642,79.0282 99.2006,79.0259 99.1848,79.0139 99.2193,79.006 99.2506,79.0033 99.3927,78.9939 99.4243,78.991 99.5043,78.9802 99.5432,78.9682 99.6331,78.8439 99.6135,78.8257 99.5878,78.818 99.5661,78.8137 99.5418,78.8107 99.4768,78.7983 99.4159,78.7851 99.3798,78.7751 99.3363,78.7532 99.2116,78.7201 99.1687,78.7119 99.1197,78.7057 99.0891,78.7044 99.0546,78.7042 98.9826,78.7085 98.9042,78.7107 98.8733,78.7095 98.8452,78.707 98.7137,78.6943 98.5517,78.6977 98.3493,78.6944 98.2876,78.692 98.2585,78.6861 98.2897,78.6676 98.2569,78.6602 98.0402,78.6631 97.9865,78.6699 97.9551,78.6851 97.9192,78.6872 97.8815,78.6878 97.7149,78.6903 97.5694,78.6928 97.4422,78.7022 97.3459,78.714 97.292,78.7254 97.2553,78.7297 97.1112,78.7297 97.0049,78.7288 96.9733,78.7316 96.9467,78.7352 96.8198,78.7652 96.7338,78.7885 96.6567,78.813 96.5675,78.8485 96.3934,78.875 96.2295,78.8734 96.0493,78.8723 96.0079,78.8736 95.9952,78.8745 95.9952,78.8745 59,-6.0,Canada -99.8574,79.7929 -99.8382,79.7787 -99.8234,79.7734 -99.801,79.7667 -99.7778,79.7614 -99.7505,79.757 -99.7158,79.7551 -99.686,79.7547 -99.4816,79.7568 -99.4135,79.7592 -99.3819,79.763 -99.3608,79.7681 -99.3289,79.7734 -99.2955,79.7735 -99.2659,79.772 -99.2383,79.769 -99.0513,79.7381 -98.9984,79.7288 -98.9851,79.7254 -98.979,79.7166 -98.9807,79.693 -98.9872,79.6655 -98.9965,79.6567 -99.0059,79.6454 -98.9853,79.6352 -98.9576,79.6319 -98.9273,79.6291 -98.8244,79.6215 -98.6529,79.605 -98.6215,79.6006 -98.554,79.5818 -98.5162,79.5453 -98.4653,79.5829 -98.3587,79.6526 -98.3342,79.6641 -98.3295,79.6777 -98.3891,79.8459 -98.458,79.8941 -98.5422,79.948 -98.5545,79.9529 -98.7684,79.9971 -98.7972,80.0028 -98.8235,80.005 -98.984,79.9916 -99.0897,79.9812 -99.1215,79.9805 -99.1568,79.9831 -99.2565,80.0049 -99.282,80.0142 -99.3104,80.0207 -99.4114,80.0225 -99.4438,80.0216 -99.4797,80.0199 -99.5116,80.0155 -99.7063,79.9736 -99.7479,79.9646 -99.7637,79.9594 -99.873,79.9115 -99.8574,79.7929 37,3.0,Russia 58.6111,79.886 58.5733,79.9027 58.5883,79.9132 58.6127,79.9178 58.7184,79.9337 58.7447,79.9374 58.8277,79.9471 59.1368,79.9827 59.1657,79.9854 59.263,79.9878 59.3655,79.9845 59.5976,79.9631 59.6195,79.959 59.6354,79.9538 59.6544,79.944 59.6686,79.8677 59.5519,79.839 59.5272,79.834 59.5004,79.8302 59.4431,79.825 59.3531,79.8184 59.2407,79.8064 59.2322,79.8004 59.1749,79.7947 59.0237,79.8041 58.9954,79.8082 58.9854,79.8135 59.007,79.8236 58.9923,79.8313 58.9701,79.8362 58.8911,79.8492 58.8628,79.8538 58.8305,79.8567 58.7206,79.8609 58.6924,79.8652 58.6111,79.886 58.6111,79.886 52,3.0,Russia 49.9059,79.8592 49.9467,79.8624 50.0954,79.8734 50.1269,79.8746 50.1645,79.8741 50.2015,79.8708 50.2449,79.8611 50.282,79.8582 50.3513,79.8587 50.383,79.86 50.4097,79.8637 50.4279,79.8701 50.4437,79.8865 50.4857,79.9155 50.5041,79.9217 50.5281,79.9259 50.5549,79.9293 50.5845,79.9314 50.6809,79.9348 50.708,79.9383 50.7455,79.9503 50.7655,79.9634 50.7819,79.9705 50.8089,79.9734 50.8463,79.9729 50.8658,79.9686 51.0415,79.9157 51.2211,79.8457 51.3371,79.8118 51.3268,79.8046 51.3031,79.8004 51.2737,79.798 51.21,79.7956 51.1759,79.7955 50.9077,79.8035 50.791,79.8077 50.7512,79.8096 50.6774,79.816 50.5924,79.8217 50.555,79.822 50.4863,79.8218 50.4545,79.8203 50.3855,79.8196 50.3481,79.8204 50.1286,79.8307 50.0058,79.8393 49.926,79.8451 49.8946,79.8486 49.8837,79.853 49.896,79.8588 49.9059,79.8592 49.9059,79.8592 17,3.0,Russia 49.1982,79.9248 49.1744,79.9351 49.2745,79.967 49.3039,79.967 49.3353,79.9638 49.4188,79.9527 49.4386,79.9483 49.5162,79.9192 49.5226,79.9111 49.4915,79.9057 49.3084,79.8947 49.2736,79.8943 49.2568,79.8975 49.2426,79.9026 49.2205,79.9124 49.1982,79.9248 49.1982,79.9248 105,7.0,Russia 90.7963,79.9254 90.7607,79.9275 90.6325,79.9291 90.591,79.9289 90.5748,79.9337 90.5871,79.9397 90.6203,79.9415 90.7576,79.9395 90.8341,79.9363 90.8858,79.9298 90.9474,79.9244 91.0341,79.9239 91.1837,79.9278 91.2465,79.933 91.3172,79.9358 91.4003,79.9361 91.5651,79.9351 91.6283,79.9327 91.6587,79.9298 91.7152,79.9238 91.9271,79.9167 92.094,79.9121 92.1343,79.9105 92.17,79.9084 92.2003,79.9057 92.2461,79.8917 92.3249,79.8922 92.5286,79.9016 92.57,79.9017 92.6105,79.9003 92.7313,79.8891 92.9533,79.8633 93.2399,79.8314 93.4347,79.8013 93.4745,79.7921 93.4895,79.7869 93.5089,79.7718 93.4772,79.7482 93.4245,79.7236 93.4079,79.7187 93.3659,79.7099 93.3194,79.7013 93.2409,79.6917 93.1834,79.6864 93.1204,79.6733 93.1036,79.6679 93.0947,79.661 93.0818,79.6548 93.0613,79.6502 93.0364,79.647 92.8471,79.6169 92.7521,79.5932 92.711,79.5843 92.6257,79.5763 92.5609,79.5732 92.476,79.5649 92.3421,79.5498 92.2934,79.5427 92.2614,79.541 92.1045,79.54 91.9839,79.5397 91.9445,79.5409 91.6301,79.5544 91.6236,79.5854 91.6394,79.5909 91.6594,79.5951 91.6876,79.5978 91.8619,79.6136 91.9013,79.612 91.9214,79.6077 91.9368,79.6028 91.9472,79.597 91.9722,79.5932 92.0036,79.5935 92.0358,79.5952 92.0483,79.6014 92.0567,79.6085 92.0454,79.6213 91.9943,79.643 91.9482,79.6582 91.8721,79.6763 91.8268,79.6843 91.8018,79.6878 91.7568,79.6887 91.7241,79.6867 91.7,79.6832 91.6633,79.6821 91.542,79.6833 91.2075,79.6911 90.9968,79.7039 90.8286,79.721 90.8034,79.7247 90.7825,79.729 90.7666,79.7387 90.7757,79.7547 90.8317,79.7688 90.8764,79.777 90.905,79.78 90.9479,79.8141 90.8897,79.8855 90.8481,79.9108 90.8371,79.9161 90.8214,79.9209 90.7963,79.9254 90.7963,79.9254 21,7.0,Russia 93.687,79.889 93.7325,79.8875 93.7618,79.8899 93.8466,79.8982 93.9019,79.904 93.9278,79.9071 93.9456,79.9121 93.9699,79.9138 94.005,79.9116 94.0216,79.9035 94.006,79.8959 93.8697,79.8612 93.8481,79.8568 93.745,79.847 93.716,79.8448 93.6826,79.8428 93.6414,79.843 93.6264,79.8481 93.6619,79.8854 93.687,79.889 93.687,79.889 32,3.0,Russia 58.1757,79.8182 58.2122,79.8185 58.2386,79.8224 58.263,79.8276 58.3072,79.8393 58.4436,79.8569 58.4762,79.8558 58.463,79.8431 58.4822,79.8293 58.4986,79.8247 58.5691,79.805 58.5913,79.8005 58.6262,79.7964 58.6623,79.7949 58.7393,79.7902 58.7739,79.7858 58.7975,79.7786 58.706,79.7537 58.6777,79.751 58.6434,79.7512 58.607,79.7528 58.5728,79.7568 58.5506,79.7612 58.5187,79.7711 58.4516,79.7851 58.3385,79.8023 58.2977,79.8057 58.2612,79.8071 58.1293,79.8052 58.0935,79.8097 58.1757,79.8182 58.1757,79.8182 28,7.0,Russia 91.3285,79.5304 91.2893,79.5317 91.1997,79.5401 91.1444,79.5466 90.9433,79.5752 90.8616,79.5926 90.8456,79.5973 90.835,79.6033 90.8424,79.6102 90.8709,79.6131 90.907,79.6141 90.9516,79.6136 90.9958,79.6119 91.0124,79.6094 91.0732,79.605 91.2222,79.5981 91.3413,79.5942 91.4259,79.5935 91.4964,79.5907 91.5459,79.5643 91.5673,79.5493 91.5475,79.5414 91.5237,79.5376 91.4953,79.5349 91.4551,79.5345 91.3607,79.5321 91.3285,79.5304 91.3285,79.5304 15,7.0,Russia 99.6268,79.4602 99.5909,79.4781 99.6139,79.5437 99.6251,79.5653 99.6799,79.5771 99.7061,79.5799 99.7359,79.5823 99.9872,79.5481 99.8696,79.5372 99.8433,79.5341 99.7523,79.5181 99.71,79.5091 99.6942,79.5031 99.6268,79.4602 99.6268,79.4602 57,6.0,Russia 76.376,79.4248 76.3343,79.4204 76.2908,79.4196 76.1293,79.4281 76.0117,79.4372 75.9546,79.4422 75.93,79.4456 75.9125,79.4506 75.8683,79.4682 75.8143,79.4928 75.8021,79.5084 75.8033,79.5188 75.8139,79.528 75.8331,79.5325 75.857,79.5362 75.8962,79.538 75.9726,79.5375 76.0361,79.5247 75.9679,79.5198 75.9292,79.5178 75.9027,79.5116 75.9319,79.4963 75.9912,79.4824 76.0201,79.4802 76.0637,79.4807 76.1556,79.5043 76.1648,79.5142 76.1836,79.5187 76.2174,79.5209 76.2539,79.52 76.2864,79.5183 76.3149,79.5159 76.6278,79.4774 76.755,79.4608 76.8776,79.4432 76.923,79.4353 76.9471,79.432 77.004,79.4266 77.0647,79.4223 77.2249,79.4137 77.3286,79.4103 77.3495,79.4059 77.3659,79.4005 77.3727,79.3905 77.3604,79.3813 77.3461,79.376 77.2736,79.3719 77.2337,79.3719 77.2021,79.374 77.1659,79.375 76.9319,79.3755 76.6546,79.3676 76.5387,79.3628 76.4534,79.3896 76.3923,79.4204 76.376,79.4248 76.376,79.4248 20,7.0,Russia 91.5396,79.292 91.6019,79.301 91.6326,79.3014 91.6668,79.2988 91.7251,79.2933 91.7682,79.2922 91.8156,79.2994 91.8356,79.3039 91.8632,79.3157 91.9621,79.3291 91.994,79.3312 92.0327,79.3296 92.1766,79.3118 92.0089,79.2673 91.9852,79.2635 91.9541,79.262 91.9105,79.2623 91.6616,79.2795 91.5396,79.292 91.5396,79.292 18,7.0,Russia 92.3065,79.284 92.2926,79.2911 92.3138,79.298 92.4525,79.3185 92.4801,79.321 92.6178,79.3162 92.642,79.3124 92.6933,79.2952 92.6631,79.2806 92.6432,79.2765 92.6154,79.2737 92.514,79.2642 92.4155,79.2595 92.3855,79.2609 92.3661,79.2657 92.3174,79.2801 92.3065,79.284 92.3065,79.284 255,7.0,Russia 101.0667,78.8901 100.9196,78.9198 100.8935,78.9235 100.8626,78.9262 100.7434,78.9321 100.7125,78.9353 100.6777,78.946 100.7092,79.0027 100.8815,79.0884 100.9262,79.1073 100.9706,79.1148 101.0296,79.1198 101.0617,79.1208 101.1326,79.1211 101.1648,79.1222 101.1938,79.1243 101.2279,79.1304 101.2377,79.1668 101.2094,79.187 101.2257,79.2267 101.2519,79.2354 101.3074,79.2405 101.4571,79.2494 101.4892,79.2502 101.5216,79.2409 101.6336,79.1805 101.6475,79.1652 101.6386,79.1477 101.6653,79.1373 101.8882,79.1214 101.9239,79.1217 101.9433,79.13 101.9007,79.148 101.8527,79.1627 101.8359,79.1876 101.8241,79.2126 101.8196,79.2419 101.8564,79.2751 101.8833,79.2888 101.9112,79.2966 101.9575,79.3045 101.9838,79.3073 102.0427,79.3115 102.077,79.3098 102.1033,79.306 102.2117,79.2931 102.3554,79.2798 102.4869,79.2679 102.5191,79.2648 102.5793,79.2553 102.6054,79.2284 102.6499,79.2136 102.6816,79.2101 102.7853,79.2112 102.8168,79.2079 102.8316,79.1934 102.7678,79.1657 102.7217,79.158 102.6859,79.1582 102.6392,79.1627 102.5826,79.1475 102.5554,79.1338 102.5043,79.1053 102.4253,79.0444 102.3718,78.9689 102.3795,78.9246 102.3106,78.8714 102.2583,78.8438 102.2256,78.8323 102.1602,78.7917 102.0846,78.7364 102.0842,78.7103 102.1464,78.7123 102.2131,78.7244 102.2512,78.7338 102.2703,78.7388 102.3438,78.7662 102.4856,78.8387 102.5419,78.8884 102.5632,78.9203 102.5952,78.9355 102.621,78.9386 102.6498,78.9406 102.7197,78.9403 102.7986,78.9373 102.85,78.9433 102.9271,78.961 102.9729,78.9822 103.1298,78.9876 103.1527,78.9914 103.1796,78.9996 103.1972,79.014 103.3166,79.0396 103.6235,79.0162 103.6766,79.0052 103.6951,78.9778 103.6974,78.9284 103.7486,78.8805 103.773,78.8795 103.805,78.8803 103.8335,78.8822 103.8682,78.882 103.9091,78.8799 103.9801,78.8745 104.0106,78.8712 104.0608,78.8636 104.1081,78.8522 104.1633,78.8221 104.1762,78.8039 104.2013,78.761 104.3334,78.7077 104.3151,78.6745 104.2843,78.6598 104.3599,78.663 104.3824,78.6663 104.4092,78.6749 104.4315,78.6962 104.4144,78.7224 104.445,78.7311 104.5939,78.738 104.6483,78.7305 104.6978,78.7231 104.7473,78.715 104.8345,78.6952 104.8717,78.6765 104.9046,78.6473 105.0914,78.4558 105.0442,78.3898 104.9965,78.3773 104.9324,78.3648 104.9101,78.3612 104.8669,78.3518 104.7723,78.321 104.6811,78.289 104.6342,78.2709 104.5849,78.2533 104.5377,78.2376 104.5019,78.2266 104.4632,78.2173 104.4417,78.2137 104.401,78.2172 104.3688,78.232 104.3304,78.2391 104.1083,78.2266 104.0536,78.2228 103.9517,78.2124 103.8531,78.2009 103.7881,78.1893 103.7035,78.1732 103.6821,78.1692 103.617,78.1575 103.568,78.1517 103.5163,78.1472 103.4258,78.1441 103.3542,78.1466 103.263,78.1464 103.0034,78.1341 102.884,78.1211 102.8536,78.1203 102.7475,78.134 102.7165,78.1357 102.6837,78.1358 102.6619,78.1318 102.6251,78.1222 102.5738,78.092 102.5093,78.0675 102.409,78.0459 102.3811,78.0464 102.352,78.0531 102.3672,78.0903 102.337,78.1015 102.3079,78.1045 102.2334,78.1077 102.1731,78.1057 102.1492,78.1027 101.8228,78.0873 101.6891,78.0919 101.6639,78.0918 101.5146,78.0864 101.4546,78.0841 101.4069,78.0782 101.3473,78.0759 101.1895,78.0735 101.1531,78.0742 101.0757,78.078 101.0038,78.0798 100.9714,78.0795 100.87,78.0691 100.8214,78.0581 100.7907,78.0412 100.764,78.0282 100.7288,78.0183 100.6908,78.009 100.6079,77.993 100.2425,77.9303 100.0443,77.8986 99.8238,77.8628 99.7171,77.8443 99.668,77.8392 99.6416,77.837 99.612,77.8357 99.58,77.8352 99.4826,77.8402 99.4637,77.8468 99.4389,77.8506 99.3498,77.8496 99.3203,77.8482 99.3006,77.8438 99.2645,77.8295 99.2238,77.8265 99.1945,77.8293 99.1338,77.8413 99.0438,77.9066 99.0557,77.9398 99.1014,77.9516 99.1379,77.9664 99.1627,77.9794 99.2306,78.025 99.2218,78.049 99.4829,78.1522 99.6042,78.1951 99.6918,78.2207 99.7007,78.2535 99.7768,78.319 99.8478,78.359 99.8463,78.3657 99.8282,78.3839 99.9467,78.5427 100.0642,78.6259 100.094,78.6376 100.2421,78.6696 100.285,78.678 100.3226,78.6771 100.5958,78.6502 100.6257,78.6434 100.7158,78.6247 100.8286,78.6338 100.8535,78.6395 100.8256,78.652 100.7843,78.6606 100.6852,78.6801 100.6638,78.6815 100.5843,78.6859 100.5611,78.6914 100.4701,78.7477 100.4709,78.7747 100.5756,78.8565 100.6835,78.8992 100.7244,78.9082 100.7588,78.912 100.8502,78.9086 100.8868,78.9063 100.975,78.8969 101.0667,78.8901 101.0667,78.8901 9,7.0,Russia 101.1399,78.8768 101.2038,78.8635 101.2349,78.8606 101.2727,78.8596 101.3052,78.8636 101.2838,78.869 101.222,78.875 101.1399,78.8768 101.1399,78.8768 224,-7.0,Canada -105.2751,78.9292 -105.2582,78.9154 -105.2254,78.9055 -105.186,78.8991 -105.1565,78.8962 -105.0991,78.8941 -105.0684,78.895 -104.8301,78.9026 -104.799,78.9044 -104.773,78.9071 -104.6872,78.9212 -104.6604,78.9262 -104.5767,78.9326 -104.4121,78.9151 -104.3761,78.9084 -104.3562,78.8869 -104.5097,78.8102 -104.6883,78.7286 -104.7035,78.7038 -104.6883,78.6873 -104.6552,78.6818 -104.5859,78.6804 -104.5557,78.6821 -104.4945,78.6859 -104.4629,78.6904 -104.2489,78.7453 -104.2154,78.7657 -104.188,78.7939 -104.1401,78.8368 -103.9424,78.8718 -103.9108,78.8751 -103.8806,78.875 -103.8554,78.8734 -103.8068,78.8689 -103.7587,78.8629 -103.7264,78.8422 -103.6765,78.8175 -103.6413,78.8133 -103.5464,78.7997 -103.5047,78.7788 -103.5397,78.7602 -103.6658,78.734 -103.7274,78.7228 -103.812,78.7112 -103.8462,78.7003 -103.8905,78.6643 -103.8499,78.6497 -103.7537,78.6416 -103.7295,78.6406 -103.7018,78.6416 -103.6712,78.6428 -103.6407,78.6453 -103.6093,78.6491 -103.577,78.661 -103.5871,78.6806 -103.5496,78.6895 -103.4075,78.6862 -103.3801,78.6763 -103.4773,78.6198 -103.3915,78.6341 -103.3503,78.6446 -103.3207,78.6491 -103.1497,78.6715 -103.1206,78.6691 -103.0982,78.6627 -103.0044,78.6155 -103.0404,78.6026 -103.071,78.601 -103.0946,78.6045 -103.1216,78.6043 -103.1707,78.5999 -103.2032,78.5849 -103.1729,78.558 -103.1919,78.5509 -103.222,78.5494 -103.311,78.5487 -103.3406,78.5492 -103.4542,78.5556 -103.5078,78.5563 -103.5335,78.5539 -103.6704,78.5304 -103.7215,78.5112 -103.6917,78.5017 -103.6673,78.5016 -103.4235,78.5043 -103.1891,78.506 -103.1301,78.5059 -103.0834,78.5002 -103.0619,78.4706 -103.1501,78.4025 -103.2118,78.3815 -103.2727,78.3887 -103.3496,78.3974 -103.4062,78.402 -103.4658,78.4045 -103.5545,78.4028 -103.6135,78.4011 -103.7165,78.4046 -103.7709,78.4088 -103.8252,78.4143 -103.8481,78.4174 -103.8942,78.4249 -103.9443,78.4341 -103.9691,78.4398 -104.0362,78.4511 -104.0787,78.4546 -104.3469,78.4643 -104.3762,78.4634 -104.4858,78.457 -104.5112,78.4548 -104.5483,78.4454 -104.6332,78.4224 -104.6918,78.4063 -104.7289,78.3791 -104.6768,78.3257 -104.5026,78.2412 -104.1787,78.1561 -104.1515,78.151 -104.0969,78.1433 -104.0484,78.14 -103.9897,78.1379 -103.8754,78.1373 -103.7962,78.1322 -103.762,78.1289 -103.7284,78.1227 -103.7083,78.1199 -103.6778,78.1187 -103.6492,78.1194 -103.6194,78.1231 -103.5856,78.1335 -103.5632,78.1578 -103.5154,78.1706 -103.4939,78.1762 -103.4677,78.1815 -103.4371,78.187 -103.3659,78.1975 -103.2708,78.2073 -103.2137,78.2119 -103.1846,78.2131 -103.0978,78.2147 -103.0679,78.217 -102.9516,78.2307 -102.9254,78.2358 -102.9013,78.2419 -102.8508,78.2521 -102.8211,78.2543 -102.712,78.2506 -102.6544,78.2496 -102.6169,78.2507 -102.5778,78.2545 -102.5238,78.2618 -102.4942,78.2631 -102.466,78.2615 -102.4109,78.2566 -102.3836,78.2531 -102.357,78.2462 -102.3752,78.236 -102.4316,78.226 -102.503,78.191 -102.4927,78.1709 -102.4704,78.1618 -102.4217,78.1494 -102.3352,78.1312 -102.3087,78.1269 -102.2806,78.1253 -102.2518,78.1267 -102.1921,78.1316 -102.1617,78.1346 -102.0795,78.1464 -102.0377,78.1534 -101.9896,78.1588 -101.9303,78.1628 -101.9303,78.9055 -101.962,78.901 -102.0454,78.8981 -102.0807,78.8703 -102.0613,78.8378 -102.0752,78.8151 -102.2121,78.7568 -102.2393,78.7531 -102.2705,78.7583 -102.4028,78.8219 -102.3802,78.8551 -102.3523,78.8635 -102.3362,78.8775 -102.2903,78.9453 -102.2951,78.9733 -102.4482,79.0215 -102.5715,79.0517 -102.6023,79.0915 -102.753,79.1589 -102.7748,79.1647 -102.8167,79.17 -102.939,79.1822 -103.0115,79.1821 -103.0743,79.1821 -103.2689,79.208 -103.2954,79.2128 -103.3696,79.2343 -103.3967,79.239 -103.5088,79.2464 -103.6226,79.25 -103.6511,79.2508 -103.6803,79.2499 -103.8546,79.241 -104.1331,79.2242 -104.1629,79.2211 -104.2204,79.2134 -104.2554,79.2116 -104.4143,79.2045 -104.5301,79.2011 -104.6256,79.1976 -104.6867,79.1928 -104.7885,79.1803 -104.8315,79.1798 -104.8677,79.1818 -105.0026,79.2015 -105.0524,79.2091 -105.0778,79.2109 -105.1092,79.2112 -105.1288,79.2064 -105.1519,79.1886 -105.295,79.0497 -105.2751,78.9292 19,-2.0,Greenland -19.2432,79.0881 -19.2753,79.0391 -19.3054,79.014 -19.3145,79.0092 -19.3344,79.008 -19.3561,79.0115 -19.3786,79.0173 -19.4048,79.0332 -19.4186,79.0447 -19.4394,79.0671 -19.4355,79.0784 -19.4227,79.0864 -19.3456,79.1099 -19.3116,79.1171 -19.2917,79.1181 -19.2757,79.1173 -19.2537,79.1139 -19.2432,79.0881 -19.2432,79.0881 31,-2.0,Greenland -17.666,79.1021 -17.5486,79.0694 -17.5162,79.0586 -17.5046,79.0496 -17.5019,79.0357 -17.5287,78.9981 -17.5434,78.9784 -17.5521,78.9706 -17.6457,78.9516 -17.6809,78.9495 -17.8151,78.9321 -17.9104,78.8866 -17.9245,78.8828 -17.9541,78.8783 -17.9813,78.8761 -18.0113,78.8746 -18.0418,78.8754 -18.0635,78.8811 -18.0573,78.9451 -18.0525,78.9594 -18.0289,78.979 -17.8277,79.0842 -17.8083,79.0921 -17.7942,79.0979 -17.7695,79.1061 -17.76,79.1087 -17.7305,79.1151 -17.6993,79.1161 -17.6819,79.1128 -17.666,79.1021 -17.666,79.1021 32,-6.0,Canada -86.2019,78.7732 -86.1775,78.7706 -86.1479,78.7679 -86.1211,78.7668 -86.0528,78.7673 -86.0174,78.7688 -85.9786,78.772 -85.9474,78.7752 -85.761,78.7937 -85.5001,78.8174 -85.2818,78.836 -85.2015,78.8415 -85.037,78.8587 -85.0,78.8645 -85.0,78.932 -85.0563,78.9368 -85.3797,78.9474 -85.4462,78.947 -85.5532,78.9442 -85.629,78.9399 -85.6572,78.9367 -85.7236,78.9298 -85.7797,78.9217 -86.017,78.8788 -86.0253,78.8664 -86.0614,78.8342 -86.0788,78.8232 -86.0989,78.8132 -86.1192,78.8083 -86.1689,78.7946 -86.2132,78.778 -86.2019,78.7732 49,-2.0,Greenland -19.3561,78.6086 -19.4155,78.6087 -19.4464,78.6114 -19.4697,78.6143 -19.4963,78.6199 -19.6583,78.6584 -19.6753,78.6638 -19.6873,78.6693 -19.695,78.6769 -19.6888,78.688 -19.6541,78.7029 -19.6277,78.713 -19.3469,78.8088 -19.3028,78.8205 -19.2748,78.8268 -19.2412,78.8318 -19.1818,78.8368 -19.1492,78.8375 -19.1289,78.8333 -19.1457,78.7612 -19.2288,78.7471 -19.2656,78.7369 -19.2879,78.6976 -19.2768,78.6944 -19.2573,78.6945 -19.2325,78.6959 -19.1608,78.7056 -19.1454,78.7048 -19.135,78.7017 -19.1228,78.6876 -19.1312,78.6818 -19.1527,78.6795 -19.1818,78.6782 -19.2122,78.6787 -19.2372,78.6792 -19.2682,78.6827 -19.2979,78.6825 -19.3512,78.6768 -19.3588,78.6702 -19.3418,78.6634 -19.296,78.661 -19.2666,78.6613 -19.1954,78.6659 -19.1262,78.6582 -19.1021,78.6527 -19.2155,78.6255 -19.2839,78.6142 -19.3561,78.6086 -19.3561,78.6086 23,-2.0,Greenland -18.2365,78.6237 -18.2699,78.6841 -18.2686,78.6986 -18.264,78.7107 -18.2527,78.7283 -18.2406,78.7398 -18.2313,78.744 -18.2149,78.749 -18.1884,78.7527 -18.1737,78.7529 -18.1538,78.753 -18.128,78.7514 -18.1123,78.7487 -18.0956,78.7412 -18.0196,78.7015 -18.0279,78.6868 -18.0401,78.6784 -18.0562,78.6718 -18.0742,78.6659 -18.1373,78.6464 -18.1867,78.6349 -18.2365,78.6237 -18.2365,78.6237 189,-6.0,Canada -98.0887,78.3523 -98.058,78.3314 -97.9,78.2938 -97.8739,78.2903 -97.8502,78.2892 -97.746,78.2746 -97.7651,78.1917 -97.7161,78.1823 -97.6342,78.1764 -97.608,78.1735 -97.5785,78.1674 -97.4766,78.1287 -97.5221,78.1187 -97.5541,78.1204 -97.5343,78.1051 -97.341,78.0924 -97.1139,78.0938 -97.0553,78.0944 -97.0276,78.0932 -97.0061,78.0905 -96.9135,78.0726 -96.8971,78.0607 -96.8719,78.0549 -96.8453,78.0518 -96.7668,78.0437 -96.6918,78.0369 -96.5864,78.0219 -96.565,77.9922 -96.5963,77.9694 -96.6193,77.9654 -96.7063,77.9614 -96.7329,77.961 -97.0054,77.9625 -97.0315,77.9631 -97.14,77.9667 -97.2203,77.9727 -97.2744,77.9758 -97.3251,77.978 -97.3641,77.9757 -97.4705,77.915 -97.381,77.908 -97.3102,77.9021 -97.2798,77.8989 -97.211,77.889 -97.163,77.8793 -97.1402,77.8734 -97.089,77.8566 -97.0633,77.8489 -97.0189,77.8376 -96.9909,77.8351 -96.8527,77.8218 -96.7057,77.8023 -96.7261,77.791 -96.7916,77.7734 -96.8272,77.7563 -96.8107,77.6926 -96.7765,77.6921 -96.7257,77.6912 -96.6456,77.6846 -96.6196,77.6779 -96.6023,77.6748 -96.5622,77.6746 -96.5416,77.6764 -96.4535,77.7198 -96.4236,77.7266 -96.3994,77.7277 -96.3406,77.7274 -96.2554,77.7289 -96.228,77.7324 -96.2042,77.7572 -96.2283,77.7563 -96.2614,77.749 -96.2974,77.7434 -96.3792,77.7363 -96.4153,77.74 -96.4463,77.7568 -96.2531,77.7842 -96.1689,77.7885 -96.1385,77.783 -96.122,77.77 -96.1078,77.7525 -96.0683,77.7464 -96.0303,77.7452 -95.9985,77.7464 -95.9026,77.7532 -95.6524,77.7728 -95.5448,77.7857 -95.4722,77.7987 -95.2641,77.8208 -95.1645,77.8302 -95.134,77.8404 -95.115,77.8495 -95.0948,77.8532 -95.0361,77.8542 -94.981,77.8529 -94.9522,77.8507 -94.9269,77.8476 -94.9016,77.8443 -94.878,77.8401 -94.8531,77.8371 -94.822,77.8393 -94.8008,77.8455 -94.7662,77.8587 -94.727,77.8779 -94.6269,77.9414 -94.6033,77.992 -94.6214,78.0033 -94.6975,78.0191 -94.7818,78.0341 -94.8185,78.0506 -94.8281,78.0726 -94.9403,78.1023 -94.9678,78.1037 -95.0579,78.1035 -95.0811,78.1046 -95.1057,78.1149 -95.0757,78.1272 -94.8088,78.176 -94.6794,78.1968 -94.6542,78.202 -94.5472,78.2427 -94.5812,78.2733 -94.6068,78.281 -94.7977,78.323 -94.9166,78.3465 -95.1168,78.382 -95.1906,78.3939 -95.2457,78.3995 -95.3104,78.4045 -95.3606,78.4061 -95.3927,78.406 -95.4249,78.4046 -95.4545,78.3998 -95.5281,78.3871 -95.5655,78.3798 -95.7167,78.3773 -95.8846,78.4035 -95.9226,78.4453 -95.8613,78.4987 -95.8814,78.5104 -95.9079,78.5146 -95.9407,78.5123 -95.9704,78.5035 -95.999,78.4999 -96.0212,78.5027 -96.061,78.5123 -96.092,78.5218 -96.1708,78.5463 -96.2147,78.5567 -96.2374,78.5611 -96.2886,78.5674 -96.3166,78.5696 -96.3486,78.5703 -96.4124,78.567 -96.471,78.5683 -96.5979,78.5833 -96.6206,78.5945 -96.6567,78.6106 -96.7016,78.621 -96.727,78.626 -96.7794,78.6337 -96.8614,78.6431 -96.9743,78.6485 -97.0597,78.657 -97.0857,78.6607 -97.1369,78.671 -97.1618,78.6768 -97.1882,78.6805 -97.2989,78.6914 -97.356,78.6952 -97.4765,78.6992 -97.7592,78.7027 -97.8419,78.7004 -97.8706,78.6967 -98.0626,78.6498 -98.0693,78.6042 -98.0201,78.5319 -97.9342,78.5035 -97.8689,78.4874 -97.8399,78.4841 -97.8151,78.4785 -97.7803,78.4673 -97.7355,78.451 -97.7214,78.4244 -97.7554,78.4183 -97.872,78.4144 -98.0087,78.4186 -98.1106,78.381 -98.0887,78.3523 21,-5.0,Canada -74.1061,78.5594 -74.1392,78.5604 -74.1912,78.5658 -74.3852,78.5868 -74.4785,78.6137 -74.4151,78.6566 -74.4025,78.6611 -74.3861,78.6625 -74.3614,78.6628 -74.3261,78.6602 -74.1284,78.6399 -74.0835,78.634 -74.0534,78.6303 -73.9643,78.6138 -73.9414,78.5987 -74.0084,78.5714 -74.0287,78.5671 -74.0566,78.563 -74.079,78.5608 -74.1061,78.5594 -74.1061,78.5594 106,-7.0,Canada -111.1682,78.1526 -111.2381,78.1563 -111.3149,78.1584 -111.4004,78.1582 -111.4286,78.1572 -111.4574,78.1569 -111.4821,78.1593 -111.5261,78.182 -111.5501,78.2006 -111.5796,78.2183 -111.6003,78.2238 -111.793,78.251 -111.8747,78.2504 -112.097,78.2399 -112.242,78.2291 -112.343,78.2168 -112.3976,78.2085 -112.4458,78.1962 -112.5494,78.1782 -112.6034,78.1694 -112.685,78.1583 -112.7131,78.1569 -112.8001,78.1539 -112.8363,78.155 -112.8755,78.1633 -112.9364,78.1842 -112.9899,78.2162 -112.8723,78.2704 -112.776,78.3071 -112.6945,78.3222 -112.3682,78.3698 -112.2645,78.3844 -112.0201,78.418 -111.9689,78.4246 -111.8952,78.4319 -111.7874,78.4365 -111.6461,78.4374 -111.562,78.4335 -111.5314,78.4293 -111.5117,78.4275 -111.4685,78.4298 -111.4112,78.4354 -111.3368,78.4477 -111.3009,78.4589 -111.2596,78.4699 -111.2313,78.4732 -111.1149,78.4772 -111.0449,78.5006 -111.0219,78.5271 -110.8193,78.5759 -110.6152,78.6024 -110.4505,78.6193 -110.2975,78.6328 -110.1207,78.6415 -110.0908,78.6426 -110.0708,78.6417 -110.0502,78.6376 -109.9323,78.612 -109.8261,78.5935 -109.7399,78.5791 -109.6598,78.5681 -109.5224,78.5392 -109.3354,78.4759 -109.3128,78.4728 -109.2247,78.4712 -109.1657,78.4673 -109.0713,78.4418 -109.0007,78.4088 -108.9251,78.3686 -108.9279,78.341 -108.9912,78.2405 -109.0737,78.1918 -109.0974,78.1887 -109.2643,78.1881 -109.4349,78.1798 -109.4921,78.1796 -109.5208,78.1823 -109.5567,78.191 -109.5843,78.2058 -109.6223,78.2111 -109.6507,78.2112 -109.6792,78.209 -109.8628,78.1894 -109.8908,78.1856 -109.919,78.1812 -109.955,78.1686 -110.0207,78.1624 -110.078,78.1628 -110.1507,78.1699 -110.2372,78.1753 -110.3235,78.1788 -110.3805,78.1779 -110.4524,78.1925 -110.5217,78.218 -110.6384,78.2491 -110.6659,78.2533 -110.804,78.2713 -110.8324,78.2695 -110.9402,78.2577 -110.934,78.2314 -110.969,78.2066 -111.073,78.1629 -111.094,78.1562 -111.1254,78.1531 -111.1682,78.1526 -111.1682,78.1526 20,-2.0,Greenland -18.2668,78.552 -18.279,78.5403 -18.3065,78.5314 -18.5151,78.4625 -18.5386,78.4585 -18.5654,78.4587 -18.5931,78.462 -18.6709,78.4785 -18.6778,78.4915 -18.6593,78.5014 -18.5366,78.5476 -18.5184,78.5538 -18.4717,78.565 -18.421,78.5696 -18.4041,78.5702 -18.384,78.5695 -18.2792,78.5627 -18.2611,78.5593 -18.2668,78.552 -18.2668,78.552 21,-6.0,Canada -87.7848,78.3306 -87.7754,78.3217 -87.7782,78.3061 -87.7897,78.2925 -87.8996,78.1936 -87.9207,78.1774 -87.979,78.1385 -87.9885,78.1328 -88.0207,78.129 -88.0932,78.1236 -88.1151,78.1283 -88.1264,78.1345 -88.1387,78.1479 -88.1437,78.1595 -88.1394,78.1806 -87.9669,78.312 -87.8448,78.3404 -87.8264,78.3418 -87.798,78.3386 -87.7848,78.3306 -87.7848,78.3306 20,-2.0,Greenland -19.1537,78.2959 -19.1329,78.2914 -19.1164,78.2859 -19.0235,78.2468 -19.0947,78.227 -19.1819,78.2064 -19.2063,78.2017 -19.2297,78.1992 -19.2515,78.1995 -19.2789,78.2027 -19.2947,78.2072 -19.3138,78.2151 -19.3412,78.2783 -19.3277,78.2916 -19.3129,78.2971 -19.2671,78.3053 -19.2479,78.3057 -19.1939,78.3024 -19.1537,78.2959 -19.1537,78.2959 21,-2.0,Greenland -19.5239,78.2642 -19.4739,78.2445 -19.4511,78.2332 -19.4333,78.2186 -19.4308,78.2073 -19.4529,78.1871 -19.4752,78.1737 -19.495,78.169 -19.5203,78.1665 -19.5736,78.1624 -19.5996,78.1607 -19.6288,78.1622 -19.6377,78.1683 -19.6504,78.184 -19.6582,78.2071 -19.6572,78.2186 -19.6216,78.2698 -19.5989,78.2731 -19.5695,78.2724 -19.5239,78.2642 -19.5239,78.2642 41,7.0,Russia 105.871,78.0759 105.8355,78.0771 105.6892,78.0937 105.6734,78.0998 105.6994,78.1421 105.7251,78.1496 105.7498,78.1525 105.8791,78.1522 105.9408,78.1456 105.9738,78.1453 106.0177,78.1555 106.0435,78.1634 106.061,78.1754 106.0641,78.1887 106.0711,78.1962 106.0825,78.2037 106.0967,78.2106 106.1139,78.2161 106.1361,78.2201 106.1865,78.2255 106.2171,78.2261 106.2527,78.2247 106.3246,78.2192 106.4368,78.1922 106.4245,78.155 106.4126,78.1475 106.3926,78.1426 106.3702,78.1416 106.3472,78.1456 106.3295,78.1536 106.3194,78.1647 106.2008,78.1625 106.1536,78.1494 106.1433,78.1419 106.1757,78.1376 106.2053,78.135 106.1875,78.126 106.168,78.1214 105.9209,78.0814 105.871,78.0759 105.871,78.0759 17,-2.0,Greenland -19.1564,78.1205 -19.1777,78.1209 -19.2023,78.1239 -19.2183,78.1288 -19.2502,78.1403 -19.2923,78.1658 -19.2796,78.1746 -19.2568,78.1788 -19.0557,78.2095 -18.9881,78.2153 -18.9708,78.2132 -18.8394,78.1865 -18.8288,78.1788 -18.8447,78.1709 -19.1007,78.1259 -19.1564,78.1205 -19.1564,78.1205 22,-6.0,Canada -94.2293,78.1637 -94.1962,78.1539 -94.0763,78.1075 -94.0601,78.1004 -94.0288,78.0801 -94.0237,78.0681 -94.0824,78.0451 -94.0938,78.0437 -94.1202,78.046 -94.2214,78.0588 -94.2352,78.0636 -94.385,78.1267 -94.3971,78.1329 -94.4068,78.1475 -94.3947,78.1598 -94.3747,78.1646 -94.3494,78.1693 -94.3159,78.1728 -94.2861,78.1734 -94.2603,78.1701 -94.2293,78.1637 -94.2293,78.1637 32,-7.0,Canada -102.963,78.0301 -102.948,78.0209 -102.9199,78.0101 -102.9023,78.0068 -102.8842,78.0053 -102.8043,78.0039 -102.7472,78.0057 -102.7319,78.0085 -102.7078,78.0198 -102.6671,78.0363 -102.6218,78.053 -102.5879,78.0641 -102.5453,78.0747 -102.4833,78.0854 -102.4687,78.0946 -102.47,78.1186 -102.4751,78.1273 -102.488,78.136 -102.502,78.1414 -102.5146,78.1445 -102.5864,78.1548 -102.6228,78.1582 -102.6756,78.1584 -102.73,78.1493 -102.7512,78.1437 -102.8133,78.1224 -102.8588,78.1057 -102.916,78.0838 -102.9278,78.078 -102.9598,78.0587 -102.9701,78.0468 -102.963,78.0301 16,-6.0,Canada -101.5526,78.0411 -101.3692,78.0304 -101.3453,78.0307 -101.32,78.034 -101.3071,78.0397 -101.2966,78.0478 -101.2942,78.0657 -101.3129,78.0878 -101.3271,78.0966 -101.3747,78.1131 -101.4003,78.1185 -101.4241,78.1183 -101.4463,78.113 -101.4688,78.1022 -101.5738,78.0464 -101.5526,78.0411 21,-2.0,Greenland -20.2933,78.0875 -20.3365,78.0824 -20.3623,78.0762 -20.4119,78.0578 -20.4377,78.052 -20.4647,78.0472 -20.4894,78.0456 -20.5183,78.0458 -20.5379,78.0477 -20.563,78.0511 -20.7068,78.0721 -20.7181,78.0796 -20.5818,78.1037 -20.5008,78.114 -20.4731,78.1154 -20.4421,78.1153 -20.2567,78.1026 -20.2444,78.0962 -20.2703,78.0901 -20.2933,78.0875 -20.2933,78.0875 15,7.0,Russia 93.4581,78.0373 93.3837,78.0397 93.3346,78.0451 93.2905,78.0526 93.2556,78.0616 93.2404,78.0702 93.2425,78.0893 93.2542,78.0953 93.2727,78.1001 93.295,78.1036 93.346,78.1087 93.3579,78.1084 93.4341,78.073 93.4581,78.0373 93.4581,78.0373 35,7.0,Russia 107.1168,77.9356 107.1022,77.9721 106.9425,77.9679 106.7095,77.9757 106.4939,77.9836 106.4559,77.9863 106.1729,78.0079 106.1745,78.0448 106.2426,78.0432 106.3828,78.0504 106.5752,78.0622 106.8311,78.0524 106.9322,78.0475 106.9573,78.0501 106.9642,78.0573 106.9761,78.0651 107.0487,78.074 107.0736,78.0763 107.1063,78.0761 107.1823,78.0711 107.215,78.0679 107.2706,78.0609 107.2935,78.0568 107.3115,78.0519 107.36,78.0327 107.3752,78.0213 107.3759,78.0084 107.3638,78.001 107.2781,77.9593 107.2607,77.9538 107.241,77.9492 107.1967,77.9416 107.1717,77.9392 107.1168,77.9356 107.1168,77.9356 23,-2.0,Greenland -18.8111,78.0454 -18.8375,78.0393 -18.8552,78.0334 -18.8672,78.0275 -18.8846,78.013 -18.8943,78.005 -18.9395,77.9813 -18.9519,77.9752 -18.9861,77.9631 -19.0038,77.96 -19.0183,77.9608 -19.0477,77.9655 -19.079,77.9767 -19.1168,77.9926 -19.1309,78.0057 -19.1135,78.0151 -18.8663,78.0658 -18.8229,78.0727 -18.799,78.0719 -18.7835,78.0672 -18.7744,78.0587 -18.8111,78.0454 -18.8111,78.0454 135,-7.0,Canada -111.756,77.2117 -111.8091,77.2122 -111.8384,77.214 -112.0842,77.2446 -112.1098,77.2495 -112.1616,77.2631 -112.1903,77.28 -112.2153,77.3041 -112.2636,77.3405 -112.296,77.3477 -112.3228,77.3471 -112.3586,77.3445 -112.408,77.334 -112.4331,77.3299 -112.4655,77.3301 -112.597,77.3523 -112.6289,77.3601 -112.6389,77.383 -112.6707,77.3989 -112.7049,77.404 -112.7323,77.4055 -112.8132,77.406 -112.8407,77.4076 -112.8681,77.4147 -112.905,77.4721 -112.8283,77.4968 -112.8608,77.6293 -112.9263,77.6429 -112.9522,77.6513 -112.9754,77.6701 -112.9817,77.6971 -112.9692,77.7243 -112.8949,77.7896 -112.8718,77.7959 -112.7893,77.799 -112.762,77.7997 -112.7342,77.7989 -112.7058,77.7916 -112.6064,77.7988 -112.468,77.8199 -112.438,77.8265 -112.4048,77.8382 -112.2375,77.8662 -112.1302,77.8791 -111.9587,77.8969 -111.7895,77.8925 -111.6439,77.9051 -111.4467,77.9171 -111.4215,77.9108 -111.3958,77.9108 -111.3706,77.9134 -111.2976,77.9272 -111.0116,77.9631 -110.9842,77.9666 -110.9541,77.9682 -110.7595,77.9786 -110.7148,77.9799 -110.6939,77.9795 -110.6647,77.9688 -110.5703,77.9485 -110.5283,77.9479 -110.5004,77.9495 -110.4731,77.9514 -110.4418,77.9663 -110.4038,77.9826 -110.3381,77.9871 -110.2175,77.9922 -110.1337,77.9948 -109.9065,77.9971 -109.7697,77.9949 -109.6285,77.9907 -109.4594,77.9859 -109.3483,77.978 -109.3245,77.9744 -109.2763,77.9575 -109.2553,77.9479 -109.2544,77.9247 -109.3485,77.8554 -109.3773,77.8466 -109.4321,77.8377 -109.4872,77.8295 -109.5142,77.8257 -109.5692,77.8195 -109.6787,77.8081 -109.816,77.7986 -109.8359,77.7909 -109.8675,77.7836 -109.8924,77.7809 -109.9201,77.7808 -110.1605,77.7709 -110.2968,77.76 -110.3242,77.7587 -110.4623,77.7577 -110.5165,77.7532 -110.5436,77.7492 -110.569,77.7386 -110.5659,77.7167 -110.4147,77.6607 -110.3866,77.656 -110.3303,77.647 -110.3025,77.6452 -110.2729,77.646 -110.1917,77.6505 -110.0879,77.658 -110.0651,77.6601 -110.0408,77.6638 -109.9616,77.6698 -109.8339,77.6713 -109.8059,77.6677 -109.778,77.6622 -109.7585,77.6537 -109.7152,77.5252 -109.7598,77.4471 -109.7931,77.4278 -109.879,77.3993 -109.9007,77.3932 -109.9463,77.384 -109.9726,77.3799 -110.1776,77.3485 -110.496,77.3105 -110.5256,77.303 -110.5521,77.2998 -110.631,77.2961 -110.6842,77.2944 -110.7395,77.2944 -110.7915,77.2972 -110.846,77.3047 -110.9737,77.3075 -111.1366,77.2815 -111.2913,77.2624 -111.4979,77.2375 -111.7038,77.2134 -111.7297,77.2122 -111.756,77.2117 -111.756,77.2117 46,-7.0,Canada -113.8548,77.5856 -113.8845,77.5864 -113.9385,77.5898 -113.9923,77.5973 -114.0758,77.6189 -114.1741,77.6526 -114.3214,77.691 -114.3678,77.7007 -114.3888,77.7061 -114.5063,77.7419 -114.7335,77.8255 -114.7684,77.8442 -114.7466,77.8504 -114.7164,77.8504 -114.6898,77.8487 -114.5864,77.8472 -114.4762,77.8597 -114.4542,77.8623 -114.4342,77.8682 -114.3966,77.8867 -114.2622,77.917 -114.0575,77.9539 -114.0118,77.9567 -113.9838,77.9572 -113.9601,77.9568 -113.9439,77.9524 -113.7318,77.8683 -113.6377,77.8196 -113.632,77.8095 -113.618,77.8016 -113.5837,77.7976 -113.555,77.795 -113.5005,77.7928 -113.3873,77.7831 -113.3671,77.7787 -113.2442,77.7099 -113.2382,77.7014 -113.2496,77.6951 -113.2815,77.683 -113.3221,77.6707 -113.4506,77.6328 -113.5707,77.6137 -113.5968,77.6113 -113.7761,77.5942 -113.8548,77.5856 -113.8548,77.5856 26,-2.0,Greenland -21.0562,77.8857 -21.1176,77.8673 -21.1297,77.858 -21.1225,77.8466 -21.1943,77.7899 -21.206,77.785 -21.2465,77.7724 -21.2729,77.7689 -21.3013,77.7702 -21.3264,77.7754 -21.343,77.7809 -21.3651,77.7983 -21.3616,77.8131 -21.3458,77.8268 -21.3354,77.8335 -21.3262,77.8391 -21.3128,77.846 -21.2717,77.8627 -21.183,77.8881 -21.1642,77.8927 -21.1469,77.8963 -21.0783,77.904 -21.0636,77.9033 -21.0466,77.8961 -21.0562,77.8857 -21.0562,77.8857 44,-2.0,Greenland -19.6979,77.7795 -19.6834,77.7769 -19.64,77.7716 -19.6166,77.7701 -19.5512,77.7692 -19.5008,77.7705 -19.4286,77.7756 -19.3615,77.782 -19.3293,77.7827 -19.2917,77.7795 -19.2768,77.7764 -19.2541,77.7691 -19.2112,77.7498 -19.1724,77.7269 -19.1718,77.7166 -19.1814,77.7023 -19.2016,77.6934 -19.2237,77.689 -19.2941,77.6887 -19.4042,77.6943 -19.7169,77.7175 -19.8029,77.728 -20.0038,77.7544 -20.2967,77.8033 -20.3424,77.8142 -20.4045,77.8309 -20.4181,77.8359 -20.4257,77.8439 -20.4015,77.8527 -20.3707,77.8576 -20.3262,77.8628 -20.3032,77.864 -20.2804,77.8642 -19.9431,77.8583 -19.9053,77.8569 -19.8777,77.8509 -19.8874,77.8464 -19.9584,77.849 -19.9883,77.8491 -20.0092,77.8455 -19.964,77.8322 -19.7725,77.7949 -19.6979,77.7795 -19.6979,77.7795 30,-2.0,Greenland -17.622,77.7865 -17.5528,77.7421 -17.5323,77.7223 -17.551,77.7015 -17.6801,77.596 -17.7184,77.5822 -17.7647,77.5709 -17.8044,77.5655 -17.8491,77.5614 -17.9838,77.5536 -18.0376,77.5521 -18.067,77.5523 -18.1857,77.5688 -18.0642,77.6428 -18.0495,77.6494 -18.018,77.6604 -17.9855,77.6711 -17.8888,77.7314 -17.8903,77.751 -17.883,77.7631 -17.8745,77.769 -17.8574,77.7746 -17.8062,77.7843 -17.7521,77.7925 -17.6978,77.7969 -17.6518,77.7999 -17.6289,77.7992 -17.6132,77.7887 -17.622,77.7865 -17.622,77.7865 13,-7.0,Canada -102.2128,77.6906 -102.2063,77.6734 -102.1366,77.6182 -101.9303,77.5907 -101.9303,77.7785 -102.0823,77.771 -102.1111,77.769 -102.1372,77.7637 -102.1536,77.758 -102.1936,77.7427 -102.2128,77.7311 -102.2243,77.7211 -102.2128,77.6906 22,-5.0,Canada -77.4444,77.7517 -77.3912,77.7499 -77.365,77.7477 -77.3478,77.7435 -77.3376,77.7369 -77.3465,77.7084 -77.3619,77.7003 -77.3972,77.6913 -77.4279,77.6842 -77.4496,77.6801 -77.6207,77.6615 -77.6439,77.6615 -77.6566,77.6688 -77.6986,77.696 -77.7217,77.7187 -77.7042,77.7263 -77.6744,77.7315 -77.6481,77.7351 -77.5893,77.7413 -77.486,77.7501 -77.4444,77.7517 -77.4444,77.7517 104,-6.0,Canada -92.8986,77.5917 -92.8289,77.549 -92.8728,77.5331 -92.8887,77.5281 -92.9208,77.525 -92.9468,77.5264 -92.9735,77.5294 -93.0014,77.5314 -93.0271,77.5311 -93.0836,77.5235 -93.1036,77.5184 -93.1178,77.5104 -93.2109,77.4335 -93.2274,77.391 -93.2013,77.378 -93.203,77.3586 -93.2631,77.3342 -93.2782,77.329 -93.2957,77.3262 -93.631,77.3218 -93.6581,77.322 -93.9747,77.3436 -94.0421,77.3568 -94.0679,77.3608 -94.1911,77.3651 -94.5223,77.3685 -94.7531,77.3583 -94.8439,77.3521 -94.9249,77.3492 -94.9729,77.349 -95.0148,77.3548 -95.0661,77.3584 -95.1968,77.3622 -95.2518,77.3617 -95.4449,77.3585 -95.5421,77.3548 -95.5571,77.3506 -95.5824,77.3503 -95.6075,77.3528 -95.7177,77.3682 -95.779,77.38 -95.8006,77.3858 -95.8168,77.3926 -95.9752,77.4598 -96.0341,77.4869 -96.0444,77.4928 -95.9704,77.5774 -95.9559,77.5824 -95.9095,77.5923 -95.7924,77.6145 -95.6495,77.6402 -95.6332,77.6428 -95.6126,77.6449 -95.5849,77.6446 -95.5633,77.6426 -95.4585,77.6497 -95.3466,77.6585 -95.2998,77.6669 -95.2828,77.6764 -95.2686,77.6834 -95.2449,77.6884 -95.2122,77.6929 -95.1812,77.6952 -95.144,77.6906 -95.1309,77.683 -95.1234,77.6746 -95.1209,77.6635 -95.1226,77.6511 -95.1243,77.6365 -95.1067,77.627 -95.081,77.6245 -95.0608,77.6253 -94.8361,77.6372 -94.8053,77.6396 -94.777,77.6438 -94.747,77.6543 -94.7286,77.6652 -94.6994,77.6679 -94.6696,77.6698 -94.4707,77.6758 -94.4471,77.6757 -94.3419,77.6707 -94.2919,77.6677 -94.2614,77.661 -94.2402,77.6551 -94.1969,77.652 -94.1681,77.6524 -94.0763,77.6548 -93.9726,77.6594 -93.8107,77.6531 -93.7509,77.6479 -93.6724,77.6231 -93.6549,77.6198 -93.5448,77.6297 -93.5391,77.6382 -93.5283,77.6436 -93.5082,77.6484 -93.4079,77.6613 -93.3786,77.664 -93.3511,77.6633 -93.2683,77.658 -92.9613,77.6205 -92.8986,77.5917 -92.8986,77.5917 76,-7.0,Canada -105.7732,77.6002 -105.7006,77.5761 -105.6662,77.5669 -105.6344,77.5565 -105.6172,77.5508 -105.5759,77.5329 -105.5654,77.5273 -105.5455,77.5147 -105.5217,77.4982 -105.3803,77.3852 -105.3688,77.3358 -105.2635,77.2121 -105.2417,77.2004 -105.2235,77.1939 -105.1986,77.1879 -105.1732,77.1838 -105.1475,77.1808 -105.1052,77.1721 -104.9407,77.0831 -104.8458,77.0607 -104.8318,77.0651 -104.8141,77.066 -104.7903,77.0652 -104.739,77.0606 -104.6885,77.0543 -104.6402,77.0465 -104.6178,77.0417 -104.6018,77.0368 -104.5877,77.0311 -104.5787,77.0248 -104.5647,77.0128 -104.549,77.0067 -104.5282,77.0025 -104.4863,76.9981 -104.4363,76.9981 -104.219,77.0197 -104.1965,77.0223 -104.1691,77.027 -104.1347,77.0397 -104.1133,77.051 -104.1013,77.0617 -104.0624,77.1164 -104.0762,77.1519 -104.0873,77.1628 -104.1833,77.2074 -104.2327,77.227 -104.4299,77.3013 -104.4642,77.3049 -104.5183,77.302 -104.6005,77.2955 -104.6542,77.2927 -104.6787,77.2928 -104.7063,77.2984 -104.7025,77.344 -104.6589,77.3571 -104.6387,77.3689 -104.64,77.3841 -104.6504,77.3963 -104.6595,77.4024 -104.7181,77.4344 -104.7302,77.4403 -104.8463,77.4939 -104.8631,77.4999 -105.0778,77.5715 -105.1575,77.5967 -105.1937,77.6073 -105.2396,77.6168 -105.3354,77.636 -105.3868,77.641 -105.5995,77.6496 -105.6271,77.6471 -105.6976,77.6377 -105.7258,77.6323 -105.7646,77.6201 -105.7774,77.6141 -105.7732,77.6002 33,-2.0,Greenland -20.0595,77.5574 -20.0538,77.5411 -20.0215,77.5143 -20.0001,77.5176 -19.9864,77.5177 -19.9675,77.514 -19.9517,77.4941 -19.962,77.4852 -19.9984,77.4741 -20.0193,77.4697 -20.0374,77.4686 -20.0622,77.4684 -20.0863,77.4739 -20.1166,77.4896 -20.1678,77.506 -20.1882,77.5117 -20.2173,77.5169 -20.2452,77.5203 -20.2726,77.5201 -20.3159,77.5142 -20.3354,77.5123 -20.356,77.5125 -20.3766,77.5195 -20.355,77.5284 -20.3053,77.5402 -20.2294,77.556 -20.1823,77.5645 -20.1084,77.5735 -20.0819,77.576 -20.059,77.5754 -20.0484,77.5714 -20.0595,77.5574 -20.0595,77.5574 20,7.0,Russia 91.6606,77.4875 91.631,77.4898 91.5655,77.4993 91.5089,77.5117 91.4919,77.5165 91.4783,77.5216 91.4688,77.5313 91.4757,77.5424 91.4891,77.5479 91.5061,77.5515 91.5262,77.5536 91.5461,77.5547 91.5758,77.5525 91.6275,77.5466 91.7658,77.5139 91.7577,77.4988 91.7402,77.494 91.6951,77.488 91.6606,77.4875 91.6606,77.4875 54,-6.0,Canada -90.1041,77.0869 -90.1534,77.1023 -90.4188,77.1609 -90.4399,77.1651 -90.4625,77.1689 -90.5776,77.1817 -90.644,77.1917 -90.6807,77.1982 -90.8799,77.2506 -90.9176,77.277 -90.9415,77.3036 -90.9379,77.4564 -90.9149,77.4965 -90.9041,77.5007 -90.889,77.505 -90.84,77.5127 -90.6374,77.5407 -90.6119,77.5419 -90.5577,77.5422 -90.533,77.5394 -90.4592,77.5297 -90.4155,77.5212 -90.3353,77.516 -90.2537,77.514 -90.2251,77.5137 -90.1711,77.5184 -90.1473,77.5187 -90.1208,77.5172 -90.072,77.5116 -89.9758,77.5004 -89.9525,77.4966 -89.9422,77.4868 -89.9304,77.475 -89.9118,77.4704 -89.7941,77.4544 -89.6721,77.4208 -89.6524,77.4153 -89.5766,77.3924 -89.5425,77.3808 -89.4898,77.3611 -89.4557,77.3467 -89.3762,77.225 -89.4125,77.1992 -89.4456,77.1831 -89.5876,77.1389 -89.6209,77.129 -89.6578,77.1191 -89.7423,77.1019 -89.8268,77.0889 -89.8556,77.0876 -89.8669,77.0898 -89.9964,77.0902 -90.1041,77.0869 -90.1041,77.0869 12,-6.0,Canada -85.1476,77.422 -85.0929,77.4202 -85.0685,77.4203 -85.0195,77.4179 -85.0,77.4157 -85.0,77.4746 -85.0079,77.4746 -85.0334,77.4755 -85.0597,77.4745 -85.1005,77.4705 -85.2847,77.4298 -85.1476,77.422 21,-2.0,Greenland -19.7885,77.4323 -19.7619,77.4131 -19.7606,77.4017 -19.7758,77.3936 -19.8013,77.3902 -19.8301,77.3947 -19.854,77.4002 -19.8766,77.4061 -19.9504,77.4324 -19.9659,77.4381 -19.9814,77.4515 -19.972,77.4617 -19.954,77.4684 -19.9384,77.4699 -19.9184,77.4709 -19.8977,77.4689 -19.8834,77.4671 -19.7864,77.4464 -19.7733,77.4405 -19.7885,77.4323 -19.7885,77.4323 409,-7.0,Canada -122.3453,76.0089 -122.2439,76.0265 -122.1532,76.0313 -122.2305,76.0584 -122.252,76.063 -122.2765,76.0666 -122.3027,76.068 -122.3265,76.0669 -122.3498,76.0627 -122.3897,76.0549 -122.499,76.0236 -122.55,75.9939 -122.5778,75.9852 -122.6678,75.9761 -122.6939,75.9772 -122.635,76.0183 -122.5038,76.101 -122.3762,76.1234 -122.2889,76.1597 -122.2962,76.1858 -122.2838,76.2251 -122.2626,76.2371 -122.2329,76.2455 -122.0531,76.2887 -121.9635,76.3006 -121.6694,76.3242 -121.4819,76.3142 -121.4374,76.312 -121.3936,76.3128 -121.206,76.3264 -121.1797,76.332 -121.0777,76.3851 -120.9671,76.4637 -120.9617,76.4693 -120.9661,76.4829 -120.8666,76.5406 -120.7639,76.5615 -120.734,76.5592 -120.711,76.5622 -120.5777,76.5808 -120.5468,76.5869 -120.5162,76.6025 -120.4943,76.6185 -120.4664,76.6276 -120.4204,76.6341 -120.3235,76.6417 -120.288,76.6382 -120.2589,76.6368 -120.2358,76.64 -120.0562,76.6876 -120.0292,76.6985 -120.0195,76.7263 -119.7443,76.8929 -119.7221,76.8976 -119.6839,76.9038 -119.6504,76.9062 -119.6301,76.9031 -119.609,76.9008 -119.5734,76.9131 -119.4882,76.9582 -119.4716,76.9832 -119.4289,76.9957 -119.2532,77.0351 -119.086,77.0626 -119.0636,77.0676 -119.0418,77.0734 -119.0083,77.0983 -118.9921,77.1228 -118.9677,77.147 -118.9477,77.1656 -118.9123,77.1809 -118.874,77.1951 -118.853,77.2017 -118.8051,77.2147 -118.766,77.2162 -118.7387,77.2154 -118.6531,77.2099 -118.5939,77.2085 -118.5694,77.2113 -118.5463,77.216 -118.5225,77.2226 -118.4097,77.2411 -118.3852,77.244 -118.3037,77.2493 -118.1032,77.2473 -117.8786,77.2448 -117.8513,77.2434 -117.8201,77.2437 -117.7843,77.2546 -117.7515,77.2673 -117.5656,77.2754 -117.5134,77.2749 -117.4299,77.249 -117.4095,77.2377 -117.3872,77.2287 -117.268,77.2166 -117.1077,77.2009 -116.934,77.1779 -116.6788,77.1882 -116.7186,77.2154 -116.7755,77.2269 -116.8114,77.221 -116.8348,77.2325 -116.8078,77.2488 -116.7765,77.2484 -116.7183,77.2421 -116.6654,77.2316 -116.6047,77.2183 -116.5348,77.2069 -116.5069,77.2045 -116.4461,77.2071 -116.3117,77.2738 -116.3991,77.2839 -116.5284,77.2892 -116.5566,77.2879 -116.6329,77.282 -116.6602,77.2852 -116.8048,77.3435 -116.7295,77.3636 -116.6945,77.3591 -116.648,77.3548 -116.5763,77.3586 -116.551,77.3615 -116.4417,77.3871 -116.4196,77.4023 -116.5073,77.4046 -116.5351,77.4057 -116.5632,77.4157 -116.5307,77.4231 -116.4888,77.4216 -116.4101,77.4223 -116.3038,77.4258 -116.2422,77.4285 -116.1926,77.4324 -116.1445,77.4383 -116.0082,77.4271 -115.8614,77.4082 -115.7409,77.3764 -115.5401,77.3218 -115.1823,77.2531 -115.1573,77.248 -115.1144,77.2345 -115.0524,77.1981 -115.2064,77.1545 -115.2539,77.1489 -115.2798,77.1473 -115.332,77.1457 -115.3575,77.1442 -115.4351,77.1369 -115.4879,77.1245 -115.531,77.1071 -115.6093,77.098 -115.7748,77.0831 -115.8003,77.0815 -115.8524,77.0808 -115.8798,77.0819 -115.9368,77.076 -115.9765,77.0339 -115.9824,77.0072 -115.9381,76.9509 -115.9062,76.9339 -115.8378,76.917 -115.7284,76.8971 -115.6708,76.8874 -115.6152,76.8813 -115.5263,76.8691 -115.4211,76.8506 -115.4007,76.8336 -115.4735,76.7966 -115.4958,76.7909 -115.5199,76.7873 -115.5697,76.7841 -115.5949,76.7833 -115.6483,76.7857 -115.7297,76.7929 -115.7807,76.7991 -115.919,76.8225 -115.9708,76.826 -115.9918,76.8255 -116.0163,76.8229 -116.0278,76.8035 -116.0029,76.7858 -115.8497,76.7362 -115.8303,76.732 -115.7742,76.7239 -115.698,76.7105 -115.6674,76.7016 -115.5632,76.5897 -115.7407,76.5169 -115.7621,76.5102 -115.7852,76.5052 -115.8298,76.502 -115.9011,76.494 -115.9236,76.4898 -115.9914,76.4721 -116.0425,76.473 -116.4008,76.4635 -116.4268,76.4609 -116.6385,76.4396 -116.6621,76.4369 -116.685,76.4334 -116.7075,76.4286 -116.7287,76.4208 -116.7433,76.4031 -116.7184,76.3806 -116.6788,76.3715 -116.6522,76.3465 -116.6097,76.2755 -116.6072,76.2408 -116.7658,76.1873 -116.8101,76.1787 -116.9897,76.1499 -117.0154,76.1483 -117.0389,76.149 -117.1934,76.1555 -117.2443,76.1608 -117.2721,76.1659 -117.3002,76.1735 -117.3263,76.1852 -117.325,76.206 -117.3674,76.216 -117.3924,76.2163 -117.5509,76.2408 -117.5713,76.2614 -117.6638,76.2887 -117.6879,76.2936 -117.7186,76.2986 -117.7131,76.3332 -117.6928,76.3759 -117.6373,76.4872 -117.5915,76.5676 -117.5761,76.582 -117.5465,76.5913 -117.5193,76.597 -117.4765,76.61 -117.4554,76.6196 -117.4004,76.667 -117.4697,76.71 -117.5038,76.7143 -117.5283,76.7125 -117.5581,76.7059 -117.5838,76.6845 -117.6225,76.6606 -117.668,76.652 -117.6918,76.6492 -117.7439,76.6474 -117.7679,76.6481 -117.8185,76.6529 -117.875,76.6597 -117.9547,76.6637 -117.9894,76.6613 -118.1562,76.6029 -118.1288,76.5674 -118.0908,76.5548 -118.065,76.5485 -118.0204,76.5396 -118.0007,76.5314 -117.9795,76.4659 -118.1663,76.401 -118.1875,76.3952 -118.2098,76.3914 -118.2346,76.3904 -118.2603,76.3915 -118.2869,76.3933 -118.3149,76.3969 -118.3411,76.4012 -118.3778,76.4183 -118.4239,76.4381 -118.477,76.4442 -118.5038,76.4461 -118.6064,76.4095 -118.6323,76.3873 -118.5938,76.3704 -118.485,76.3626 -118.3459,76.3368 -118.3129,76.3205 -118.2772,76.2918 -118.259,76.2754 -118.2359,76.2285 -118.2917,76.1862 -118.3126,76.1782 -118.3452,76.174 -118.3714,76.1736 -118.4465,76.1744 -118.4939,76.1741 -118.542,76.1695 -118.5691,76.1608 -118.5873,76.148 -118.606,76.1 -118.5846,76.0834 -118.5713,76.0616 -118.6274,76.022 -118.7431,75.9759 -118.7684,75.9767 -118.7919,75.9808 -118.8965,75.9996 -118.9191,76.0069 -118.9485,76.0201 -118.9717,76.0452 -118.9636,76.0755 -119.0337,76.1218 -119.2121,76.2161 -119.2493,76.2103 -119.318,76.195 -119.3387,76.1471 -119.3095,76.1225 -119.2513,76.0897 -119.2333,76.0642 -119.3087,76.0048 -119.4101,76.0091 -119.4351,76.0089 -119.4619,76.0029 -119.4378,75.9921 -119.4096,75.9901 -119.3128,75.9744 -119.2927,75.9694 -119.1642,75.931 -119.1429,75.914 -119.1413,75.8844 -119.1527,75.8613 -119.1775,75.8536 -119.203,75.8556 -119.2212,75.8664 -119.2459,75.8803 -119.2796,75.8852 -119.31,75.8825 -119.3648,75.8377 -119.2806,75.8033 -119.4788,75.7628 -119.5378,75.7509 -119.6035,75.7416 -119.6476,75.7365 -119.6935,75.7332 -119.7168,75.7321 -119.7477,75.7633 -119.7878,75.7837 -119.8159,75.7895 -119.84,75.7795 -119.8573,75.7607 -119.8876,75.7387 -119.9369,75.7155 -119.956,75.7094 -119.9763,75.7044 -119.9996,75.7008 -120.0227,75.6997 -120.045,75.7002 -120.0709,75.7017 -120.0972,75.7046 -120.1297,75.7132 -120.1542,75.7403 -120.1243,75.8159 -120.0711,75.856 -120.0995,75.8959 -120.1275,75.9048 -120.1974,75.8959 -120.2262,75.8814 -120.2483,75.8714 -120.2777,75.875 -120.3073,75.8852 -120.3679,75.9107 -120.3925,75.932 -120.4102,75.9996 -120.3739,76.0217 -120.3892,76.0511 -120.518,76.0887 -120.554,76.0895 -120.6231,76.0675 -120.673,76.0294 -120.6862,75.9587 -120.6559,75.9197 -120.6376,75.9092 -120.5994,75.8495 -120.654,75.8338 -120.6795,75.8384 -120.6746,75.8639 -120.6565,75.8736 -120.6784,75.8835 -120.7556,75.8862 -120.7768,75.8844 -120.9252,75.8542 -120.9381,75.8299 -121.0117,75.8211 -121.0868,75.8345 -121.1412,75.8695 -121.2504,75.8973 -121.4949,75.927 -121.7988,75.9265 -121.8045,75.89 -121.8296,75.8711 -121.9959,75.8356 -122.0367,75.8269 -122.0763,75.8215 -122.1021,75.8205 -122.1489,75.8202 -122.1762,75.8215 -122.2232,75.8249 -122.3352,75.8445 -122.3552,75.8484 -122.3842,75.8639 -122.3277,75.8699 -122.3079,75.8753 -122.2497,75.8946 -122.2281,75.9036 -122.1309,76.0009 -122.1491,76.0129 -122.2583,76.0076 -122.2792,76.0039 -122.3453,76.0089 -122.3453,76.0089 20,6.0,Russia 81.9261,77.404 81.9636,77.4076 81.9935,77.4093 82.0316,77.4102 82.1745,77.4006 82.2013,77.3982 82.2251,77.3953 82.261,77.3869 82.3329,77.3693 82.3352,77.3587 82.3179,77.35 82.2957,77.3466 82.2614,77.3473 81.964,77.3717 81.9171,77.3778 81.8968,77.3815 81.8815,77.3909 81.8929,77.3996 81.9261,77.404 81.9261,77.404 17,-2.0,Greenland -66.0653,77.3753 -66.2135,77.3822 -66.437,77.3789 -66.4646,77.3769 -66.484,77.377 -66.503,77.3783 -66.5179,77.3836 -66.5264,77.3888 -66.5351,77.3955 -66.5239,77.3996 -66.1293,77.4052 -66.0974,77.4054 -66.0717,77.4032 -66.0002,77.3935 -66.0379,77.3775 -66.0653,77.3753 -66.0653,77.3753 17,7.0,Russia 106.2118,77.2753 106.1925,77.2783 106.2474,77.3206 106.2609,77.3274 106.4187,77.3546 106.4422,77.357 106.4685,77.3589 106.4995,77.3583 106.5869,77.3476 106.5907,77.3334 106.5737,77.3105 106.5575,77.3045 106.3344,77.2648 106.3112,77.2619 106.2821,77.264 106.2118,77.2753 106.2118,77.2753 33,-2.0,Greenland -71.0292,77.3442 -71.0054,77.3465 -70.8827,77.3534 -70.651,77.3549 -70.5192,77.3529 -70.499,77.3514 -70.4818,77.3493 -70.4602,77.3461 -70.4052,77.3353 -70.3626,77.3292 -70.2216,77.312 -70.1269,77.3024 -70.1,77.3005 -70.0717,77.301 -69.9695,77.3047 -69.9375,77.3041 -69.8881,77.3008 -69.8695,77.2964 -69.8509,77.2877 -69.8637,77.2823 -69.9311,77.2789 -70.0959,77.2746 -70.4296,77.2673 -70.7348,77.2604 -70.7722,77.2591 -70.8381,77.2589 -70.8674,77.2601 -70.8879,77.2619 -70.9095,77.2654 -71.0859,77.3399 -71.0494,77.3459 -71.0292,77.3442 -71.0292,77.3442 32,-2.0,Greenland -72.0234,77.3423 -71.9942,77.3379 -71.8354,77.3309 -71.7071,77.326 -71.4919,77.3074 -71.3844,77.2819 -71.2237,77.2794 -71.1659,77.2789 -71.1393,77.2686 -71.1401,77.2515 -71.1493,77.2467 -71.1651,77.2426 -71.353,77.2139 -71.4828,77.2017 -71.5607,77.1961 -71.7321,77.1931 -71.7981,77.1925 -71.8866,77.2014 -71.9041,77.2036 -71.9194,77.2068 -72.1218,77.2463 -72.255,77.2662 -72.2959,77.2729 -72.3149,77.2767 -72.3319,77.2817 -72.3457,77.2878 -72.3606,77.2999 -72.3496,77.3076 -72.1363,77.3435 -72.0471,77.3443 -72.0234,77.3423 -72.0234,77.3423 14,7.0,Russia 107.042,77.1177 106.9802,77.124 106.9495,77.1246 106.9074,77.1199 106.8909,77.1234 107.0144,77.2211 107.0394,77.2357 107.0819,77.2431 107.1008,77.2452 107.3522,77.2197 107.3758,77.1532 107.2484,77.144 107.042,77.1177 107.042,77.1177 45,7.0,Russia 88.9091,77.0538 88.884,77.0756 88.8767,77.094 88.8841,77.127 88.8949,77.1416 88.9166,77.1539 88.9544,77.1706 89.0025,77.185 89.0221,77.1891 89.0456,77.1919 89.1186,77.2001 89.1796,77.2025 89.2135,77.2032 89.3021,77.197 89.3497,77.1907 89.3928,77.1835 89.4103,77.1792 89.423,77.1701 89.4095,77.1621 89.3793,77.1604 89.3498,77.1627 89.3282,77.1659 89.3147,77.1712 89.2779,77.1681 89.2892,77.1601 89.3204,77.1504 89.3382,77.1462 89.3636,77.1435 89.3928,77.1415 89.4107,77.1369 89.3834,77.1177 89.3613,77.1053 89.3362,77.0945 89.3039,77.0847 89.2252,77.0693 89.2025,77.0661 89.1561,77.0602 89.1295,77.058 89.0959,77.0574 89.0624,77.0591 89.0497,77.0679 89.0038,77.0785 88.8979,77.0871 88.9091,77.0538 88.9091,77.0538 32,-6.0,Canada -90.8067,77.1424 -90.7917,77.1435 -90.7221,77.1438 -90.668,77.1434 -90.644,77.1407 -90.5501,77.1294 -90.5078,77.1204 -90.4719,77.11 -90.4519,77.0933 -90.4642,77.0698 -90.5153,77.0457 -90.5477,77.036 -90.5716,77.0314 -90.6043,77.0277 -90.6359,77.0263 -90.7143,77.027 -90.7853,77.0348 -90.9197,77.053 -90.9564,77.0595 -90.9735,77.0636 -90.9969,77.0734 -91.0208,77.0856 -91.0307,77.0944 -91.0334,77.1067 -91.0114,77.1167 -90.9817,77.1249 -90.9238,77.137 -90.8964,77.1402 -90.8417,77.1436 -90.8192,77.1435 -90.8067,77.1424 -90.8067,77.1424 22,-6.0,Canada -95.0943,77.1269 -95.078,77.1253 -95.0359,77.1181 -94.9669,77.1029 -94.9391,77.0908 -94.9298,77.0781 -94.9337,77.0643 -94.9475,77.0563 -94.9683,77.0535 -95.0145,77.0543 -95.0375,77.0557 -95.0854,77.061 -95.1423,77.0712 -95.2942,77.1021 -95.3347,77.1109 -95.3555,77.1258 -95.3295,77.1298 -95.2325,77.1322 -95.1598,77.1334 -95.1096,77.1296 -95.0943,77.1269 -95.0943,77.1269 53,7.0,Russia 96.2404,77.0906 96.2608,77.0796 96.3043,77.0269 96.2956,77.0195 96.1763,76.9567 96.1554,76.9535 95.9873,76.9101 95.8885,76.8791 95.6607,76.8659 95.4366,76.8357 95.4106,76.8378 95.5089,76.8787 95.5296,76.8819 95.611,76.887 95.6346,76.8894 95.6559,76.8928 95.6703,76.8984 95.6638,76.908 95.6281,76.913 95.5977,76.9124 95.5706,76.9109 95.5258,76.9047 95.4841,76.8976 95.4391,76.8916 95.3912,76.8868 95.3642,76.8849 95.334,76.8843 95.2209,76.8813 94.9881,76.8768 94.966,76.8779 94.9565,76.8864 94.9696,76.8959 94.9842,76.9014 95.037,76.9146 95.1284,76.936 95.191,76.9465 95.2535,76.9571 95.3162,76.9677 95.3486,76.9656 95.4919,76.9675 95.8027,77.0017 95.8868,77.0155 95.9652,77.031 96.005,77.0398 96.0378,77.0494 96.0681,77.0602 96.0798,77.0665 96.1396,77.0873 96.158,77.0917 96.1791,77.0956 96.2119,77.0935 96.2404,77.0906 96.2404,77.0906 26,-7.0,Canada -104.1202,76.9776 -104.1194,76.9766 -104.0995,76.9705 -104.0747,76.9661 -104.0519,76.9632 -104.0005,76.9619 -103.9506,76.9622 -103.8947,76.9669 -103.8484,76.976 -103.746,76.9963 -103.7223,77.002 -103.7075,77.0075 -103.6972,77.0134 -103.699,77.0252 -103.7176,77.0354 -103.7288,77.0403 -103.7688,77.0508 -103.8111,77.0554 -103.8808,77.0566 -103.9703,77.0491 -103.9976,77.0447 -104.0165,77.0411 -104.1026,77.017 -104.1202,77.0086 -104.1289,76.9885 -104.1202,76.9776 23,-7.0,Canada -113.4486,76.9935 -113.4767,76.9936 -113.523,76.9948 -113.5504,76.9973 -113.5786,77.0025 -113.5972,77.0108 -113.5984,77.0218 -113.59,77.0305 -113.5701,77.0355 -113.55,77.0389 -113.5287,77.0407 -113.4678,77.0418 -113.4437,77.0409 -113.3921,77.0375 -113.3691,77.034 -113.3456,77.0294 -113.3328,77.017 -113.3495,77.0061 -113.3733,77.0009 -113.3978,76.9975 -113.423,76.995 -113.4486,76.9935 -113.4486,76.9935 37,7.0,Russia 88.6762,77.0305 88.6981,77.0188 88.6834,77.0104 88.6574,77.0082 88.5936,77.0063 88.4895,77.0056 88.4261,77.0041 88.3998,77.0015 88.3886,76.9923 88.408,76.9857 88.4332,76.9833 88.4593,76.9838 88.505,76.99 88.5308,76.9889 88.5713,76.9704 88.5352,76.9009 88.5266,76.8949 88.5052,76.8979 88.4488,76.9104 88.4211,76.9205 88.4113,76.9261 88.3753,76.9508 88.3708,76.9654 88.3732,76.9787 88.38,76.9944 88.3937,77.0084 88.4061,77.014 88.4374,77.0239 88.4531,77.0284 88.4727,77.0322 88.4954,77.0352 88.5221,77.0375 88.5855,77.0397 88.6187,77.0385 88.6444,77.0355 88.6762,77.0305 88.6762,77.0305 21,11.0,Russia 156.0428,77.0365 156.1011,77.0374 156.1487,77.0363 156.1985,77.0325 156.223,77.0297 156.2461,77.0263 156.2683,77.0216 156.2771,77.0121 156.2661,77.0038 156.2497,76.9984 156.22,76.9954 156.1638,76.9934 156.1364,76.9926 156.1108,76.9937 156.062,76.9987 156.0154,77.0057 155.9944,77.0117 155.9824,77.0213 155.9962,77.0297 156.0428,77.0365 156.0428,77.0365 737,-6.0,Canada -96.6388,76.605 -96.603,76.5965 -96.5808,76.5928 -96.5398,76.5881 -96.5131,76.5867 -96.4877,76.5863 -96.4603,76.588 -96.3854,76.5952 -96.36,76.595 -96.3357,76.593 -96.252,76.5838 -96.1889,76.5676 -96.1749,76.5507 -96.1375,76.5338 -96.1066,76.5268 -96.0729,76.5237 -95.9959,76.5236 -95.951,76.5168 -95.9046,76.485 -95.8849,76.4742 -95.7439,76.4403 -95.7197,76.4391 -95.5083,76.4401 -95.4868,76.4449 -95.4279,76.4678 -95.3879,76.4903 -95.3568,76.496 -95.319,76.491 -95.3858,76.4525 -95.4155,76.4391 -95.5066,76.4102 -95.5343,76.4077 -95.6727,76.4097 -95.7247,76.4105 -95.7864,76.414 -95.8275,76.394 -95.8092,76.3694 -95.724,76.3283 -95.5803,76.2926 -95.4667,76.2857 -95.4455,76.2838 -95.3979,76.2777 -95.3751,76.276 -95.1777,76.2575 -95.1253,76.2444 -95.0624,76.2583 -95.0302,76.264 -95.0056,76.264 -94.8641,76.2532 -94.6972,76.2393 -94.6272,76.2336 -94.567,76.2263 -94.5394,76.2114 -94.5775,76.2006 -94.5907,76.2161 -94.6475,76.2216 -94.691,76.2239 -94.7161,76.2245 -94.7426,76.223 -94.7999,76.2082 -94.825,76.1946 -94.8506,76.1898 -94.9906,76.1746 -95.011,76.1733 -95.0498,76.1829 -95.0815,76.1935 -95.1021,76.1916 -95.1195,76.1755 -95.1135,76.1273 -95.0871,76.1264 -94.7623,76.1284 -94.5716,76.1605 -94.5216,76.1768 -94.3751,76.1853 -94.2048,76.1731 -93.9474,76.1728 -93.8951,76.1681 -93.8636,76.1564 -93.8328,76.1516 -93.6914,76.1499 -93.5206,76.1451 -93.4337,76.1561 -93.4569,76.1598 -93.4957,76.1738 -93.4611,76.2016 -93.4146,76.214 -93.3812,76.2179 -93.3602,76.2003 -93.3952,76.1894 -93.363,76.1835 -93.3244,76.1849 -93.2986,76.1891 -93.1865,76.2183 -93.1178,76.2381 -93.0817,76.2477 -93.052,76.252 -92.9765,76.2583 -92.9494,76.2597 -92.9239,76.26 -92.8751,76.2583 -92.8525,76.2556 -92.8151,76.2475 -92.7946,76.2271 -92.8145,76.209 -92.805,76.1912 -92.6855,76.1378 -92.5412,76.1021 -92.3772,76.001 -92.3257,75.9016 -92.1817,75.8317 -92.1519,75.8215 -92.0708,75.8 -91.9826,75.7847 -91.959,75.7814 -91.9172,75.7788 -91.8815,75.7723 -91.8526,75.7463 -91.848,75.7076 -91.8615,75.6855 -91.8851,75.6719 -91.9206,75.641 -91.9026,75.6249 -91.8835,75.6149 -91.8363,75.5941 -91.7969,75.5822 -91.7553,75.5554 -91.7571,75.4863 -91.8107,75.4651 -91.8407,75.4581 -91.9033,75.4507 -91.9601,75.4437 -92.0758,75.3836 -92.1362,75.3365 -92.1768,75.2891 -92.2181,75.1799 -92.2405,75.109 -92.0765,75.0472 -91.9445,75.0388 -91.8567,75.0472 -91.8285,75.0487 -91.8053,75.0441 -91.7636,74.9938 -91.7911,74.9814 -91.8649,74.9779 -91.9053,74.9799 -91.9393,74.9773 -91.9779,74.969 -91.965,74.9351 -91.9217,74.8953 -91.8566,74.8715 -91.8076,74.8538 -91.7728,74.8084 -91.7655,74.7853 -91.7742,74.7496 -91.8068,74.7312 -91.8225,74.71 -91.8114,74.691 -91.7673,74.6734 -91.722,74.6617 -91.6526,74.6485 -91.62,74.6189 -91.6361,74.6099 -91.6326,74.6026 -91.6031,74.5953 -91.5672,74.6095 -91.5405,74.6235 -91.5154,74.6254 -91.4698,74.6254 -91.4053,74.6155 -91.3867,74.6006 -91.4295,74.5894 -91.4425,74.5729 -91.309,74.5455 -91.2187,74.5377 -91.0197,74.5267 -90.8967,74.5226 -90.8722,74.5368 -90.9181,74.5636 -90.9444,74.5792 -90.9869,74.6283 -90.9426,74.6529 -90.9046,74.6473 -90.8647,74.6488 -90.8379,74.659 -90.7624,74.6873 -90.7375,74.6972 -90.6376,74.7521 -90.612,74.7733 -90.5789,74.7812 -90.5271,74.7802 -90.5084,74.7468 -90.5206,74.7287 -90.6142,74.6738 -90.6529,74.6575 -90.6955,74.6488 -90.7184,74.6472 -90.7415,74.6375 -90.7818,74.6044 -90.6544,74.5801 -90.6352,74.5949 -90.5135,74.6076 -90.4993,74.566 -90.4726,74.5462 -90.3786,74.5161 -90.355,74.5114 -90.2953,74.5034 -90.2619,74.4998 -90.2224,74.4991 -90.129,74.4928 -90.0207,74.4668 -89.9904,74.4617 -89.8735,74.4475 -89.7049,74.4298 -89.3491,74.4386 -89.2585,74.4438 -89.2158,74.4481 -88.96,74.4841 -88.9194,74.4977 -88.8975,74.5121 -88.8641,74.5828 -88.8821,74.5924 -88.9093,74.5961 -88.964,74.6089 -88.9843,74.6191 -89.0352,74.6533 -89.0105,74.6531 -88.9905,74.6502 -88.9501,74.6358 -88.8701,74.6173 -88.8459,74.6152 -88.8146,74.6234 -88.7792,74.6746 -88.8214,74.6922 -88.8563,74.7334 -88.68,74.6728 -88.6804,74.647 -88.6859,74.6174 -88.6555,74.566 -88.6372,74.5575 -88.6111,74.5581 -88.5859,74.5671 -88.5205,74.618 -88.5196,74.6517 -88.5151,74.6787 -88.4385,74.7384 -88.3303,74.8012 -88.3033,74.802 -88.2532,74.7551 -88.1168,74.6825 -88.176,74.6338 -88.3125,74.514 -88.3316,74.4913 -88.342,74.4513 -88.3021,74.4012 -88.2686,74.396 -88.1281,74.3874 -88.0359,74.3821 -87.8091,74.3754 -87.677,74.3708 -87.6215,74.3747 -87.5286,74.3777 -87.5062,74.365 -87.4848,74.3593 -87.4442,74.3585 -87.3491,74.3605 -87.2922,74.365 -87.2488,74.3744 -87.1274,74.3938 -87.0875,74.3727 -87.0453,74.3666 -87.001,74.3654 -86.682,74.359 -86.47,74.3663 -86.4819,74.3985 -86.5736,74.4452 -86.5753,74.5116 -86.5513,74.5146 -86.532,74.4958 -86.4906,74.4531 -86.4668,74.4424 -86.44,74.4328 -86.4093,74.4244 -86.2301,74.3818 -86.2006,74.3771 -86.1763,74.3777 -86.1099,74.3886 -86.0563,74.407 -86.0133,74.4331 -86.0023,74.4671 -86.0147,74.491 -85.9968,74.5072 -85.9642,74.5135 -85.9304,74.5071 -85.8589,74.4407 -85.8789,74.4097 -85.8998,74.383 -85.8604,74.3776 -85.8376,74.3768 -85.7917,74.3779 -85.3831,74.3941 -85.3598,74.3966 -85.3307,74.4018 -85.3065,74.4085 -85.2831,74.419 -85.2624,74.4515 -85.298,74.4907 -85.3242,74.5822 -85.3015,74.5865 -85.2776,74.5792 -85.2515,74.5613 -85.1451,74.4412 -85.1395,74.4006 -85.0394,74.389 -85.0,74.3902 -85.0,75.4892 -85.0696,75.4629 -85.0953,75.4551 -85.2098,75.4546 -85.5281,75.4403 -85.6302,75.4391 -85.6735,75.4381 -85.7686,75.4255 -85.8695,75.4109 -85.9106,75.3933 -85.882,75.3781 -85.7715,75.3665 -85.6739,75.3548 -85.444,75.3079 -85.5997,75.3106 -85.7968,75.3171 -85.8478,75.3161 -85.9351,75.3131 -85.9638,75.3108 -86.0105,75.2966 -86.132,75.2728 -86.2567,75.2575 -86.2851,75.255 -86.3092,75.2541 -86.3728,75.2606 -86.3411,75.2721 -86.3182,75.2763 -86.271,75.2829 -86.1629,75.2987 -86.1357,75.3188 -86.2381,75.3493 -86.3392,75.3679 -86.3653,75.3707 -86.4004,75.3724 -86.4855,75.3695 -86.5341,75.3701 -86.5704,75.3738 -86.6253,75.3861 -86.6852,75.4002 -86.7294,75.4126 -86.7736,75.4258 -86.817,75.4411 -86.8373,75.4577 -86.8491,75.4742 -87.0031,75.5138 -87.0237,75.5152 -87.046,75.5141 -87.1149,75.5072 -87.1472,75.501 -87.2231,75.4573 -87.2272,75.4156 -87.1964,75.4005 -87.1785,75.3768 -87.2013,75.3617 -87.221,75.3559 -87.2611,75.3467 -87.3022,75.3397 -87.3367,75.3385 -87.3589,75.3461 -87.3249,75.3537 -87.2911,75.3597 -87.2595,75.375 -87.4145,75.4586 -87.4663,75.4684 -87.5106,75.4707 -87.7172,75.4385 -87.8269,75.4162 -87.8816,75.3953 -87.9072,75.3833 -87.9662,75.3658 -87.9878,75.3657 -88.0219,75.3704 -88.057,75.3851 -87.9995,75.4035 -87.9611,75.4169 -87.9874,75.4337 -88.074,75.4507 -88.1218,75.463 -88.1569,75.4732 -88.2063,75.4895 -88.2648,75.5136 -88.2995,75.5298 -88.3307,75.5427 -88.3571,75.5535 -88.3876,75.5612 -88.4343,75.5693 -88.4864,75.5733 -88.5109,75.5705 -88.6219,75.4801 -88.5581,75.4258 -88.5066,75.3675 -88.5321,75.3283 -88.5547,75.3295 -88.5764,75.3317 -88.5995,75.331 -88.6288,75.3286 -88.679,75.3218 -88.7146,75.3255 -88.8562,75.3785 -88.902,75.4225 -88.9113,75.4413 -88.9326,75.4677 -88.9819,75.48 -89.0574,75.4833 -89.1066,75.4831 -89.158,75.4815 -89.1914,75.4782 -89.2209,75.4711 -89.251,75.4562 -89.2755,75.4473 -89.3057,75.443 -89.3314,75.4419 -89.4,75.4424 -89.4583,75.4493 -89.4386,75.4559 -89.3828,75.4554 -89.3069,75.4638 -89.3513,75.4832 -89.404,75.4812 -89.436,75.474 -89.485,75.468 -89.5181,75.4706 -89.4031,75.5094 -89.2972,75.5046 -89.0913,75.5218 -89.0162,75.5236 -88.9177,75.6441 -88.921,75.6694 -88.9549,75.6804 -89.0305,75.692 -89.0731,75.6972 -89.1378,75.7124 -89.169,75.729 -89.1914,75.7387 -89.3103,75.7507 -89.3393,75.7524 -89.3672,75.7486 -89.4419,75.6953 -89.4908,75.6801 -89.5252,75.6832 -89.528,75.7259 -89.5015,75.7399 -89.4682,75.7618 -89.4429,75.7868 -89.5751,75.836 -89.659,75.8578 -89.6767,75.8965 -89.7064,75.9009 -89.7642,75.903 -89.7942,75.9011 -89.8153,75.893 -89.8626,75.8413 -90.0059,75.8599 -90.0903,75.8514 -90.2495,75.7895 -90.2773,75.7958 -90.2716,75.825 -90.2408,75.8388 -90.1883,75.8626 -90.2219,75.8723 -90.3174,75.873 -90.4644,75.8821 -90.503,75.8877 -90.5328,75.8883 -90.5528,75.8786 -90.5779,75.8564 -90.5952,75.8452 -90.6445,75.8203 -90.6876,75.8083 -90.8009,75.7745 -90.8333,75.7389 -90.8551,75.7337 -90.8806,75.7383 -90.8731,75.7508 -90.8834,75.796 -90.8565,75.8092 -90.8174,75.8156 -90.7642,75.8187 -90.7151,75.8241 -90.6936,75.8481 -90.816,75.8831 -90.8974,75.9113 -90.7517,75.9176 -90.6756,75.9082 -90.6507,75.9085 -90.4655,75.9156 -90.3831,75.9209 -90.1524,75.9237 -90.0768,75.9241 -90.0497,75.9253 -90.0225,75.9272 -89.9725,75.9361 -89.9434,75.9502 -90.1559,75.9788 -90.1766,75.9808 -90.2212,75.9821 -90.2952,75.9841 -90.3219,75.9828 -90.3523,75.9789 -90.4092,75.9678 -90.4562,75.9569 -90.5496,75.9597 -90.5316,75.9656 -90.5041,75.9691 -90.4187,76.0074 -90.4464,76.0121 -90.6281,76.0295 -90.8612,76.0488 -90.9078,76.0519 -90.9561,76.0538 -91.0164,76.0484 -91.0804,76.0709 -91.0762,76.1064 -91.1598,76.1175 -91.322,76.1437 -91.3441,76.1543 -91.3136,76.1572 -91.1888,76.1487 -91.1667,76.146 -91.0093,76.1207 -90.9561,76.1078 -90.8566,76.0841 -90.682,76.0732 -90.5316,76.0639 -90.4122,76.0593 -90.1952,76.0472 -90.056,76.0307 -89.8585,76.0168 -89.833,76.017 -89.8081,76.0259 -89.8991,76.034 -89.9694,76.0368 -90.0041,76.0394 -90.1612,76.0525 -90.1913,76.0632 -90.1539,76.0721 -90.1197,76.0735 -89.724,76.0661 -89.6443,76.0599 -89.5803,76.0531 -89.3372,76.0581 -89.1274,76.0727 -89.0991,76.076 -89.0756,76.0816 -89.045,76.0899 -88.9476,76.1232 -88.9541,76.1496 -88.973,76.1617 -89.0475,76.1894 -89.1159,76.196 -89.2913,76.2087 -89.5779,76.2322 -89.8093,76.2532 -90.0262,76.281 -90.062,76.2865 -90.113,76.2916 -90.1587,76.2946 -90.3858,76.3022 -90.5409,76.3183 -90.7248,76.3385 -90.7993,76.3419 -90.8894,76.3423 -91.0124,76.3453 -91.1503,76.3504 -91.3057,76.3913 -91.1815,76.4039 -91.1552,76.4041 -91.1143,76.4025 -91.0906,76.4009 -91.0449,76.3956 -90.8323,76.3695 -90.5691,76.3544 -90.5219,76.3525 -90.3816,76.3472 -90.3595,76.3478 -90.2813,76.3528 -90.2543,76.3555 -90.2157,76.3663 -90.2436,76.4195 -90.3154,76.4535 -90.3684,76.4611 -90.4165,76.4644 -90.4829,76.4715 -90.5216,76.4769 -90.559,76.4845 -90.5876,76.4978 -90.6185,76.5157 -90.7267,76.5402 -90.7493,76.5425 -90.8726,76.5552 -91.1242,76.579 -91.1495,76.58 -91.2742,76.5795 -91.4069,76.5753 -91.5133,76.5703 -91.6474,76.5615 -91.6762,76.5592 -91.7073,76.5551 -91.7356,76.5501 -91.7809,76.5376 -91.8149,76.5279 -91.9205,76.5056 -92.068,76.4881 -92.1147,76.4851 -92.1375,76.4862 -92.1578,76.4889 -92.1776,76.4943 -92.2049,76.5041 -92.2426,76.5084 -92.2772,76.5086 -92.3008,76.5072 -92.3479,76.5001 -92.3823,76.4886 -92.4197,76.4837 -92.4412,76.4855 -92.5254,76.5001 -92.5927,76.5093 -92.6155,76.5119 -92.6381,76.5127 -92.6808,76.5134 -92.7814,76.507 -92.8357,76.4835 -92.8585,76.4641 -93.0991,76.36 -93.1281,76.3529 -93.1576,76.3498 -93.1893,76.3478 -93.2118,76.3461 -93.2452,76.3416 -93.268,76.3345 -93.3061,76.311 -93.2645,76.2982 -93.2406,76.3002 -93.2029,76.297 -93.2396,76.2794 -93.2645,76.2763 -93.2838,76.2779 -93.384,76.3322 -93.3648,76.3432 -93.3302,76.354 -93.1962,76.3896 -93.0382,76.4406 -92.9144,76.5588 -92.9035,76.5778 -92.9326,76.6367 -93.0342,76.6589 -93.2202,76.73 -93.3767,76.7954 -93.4768,76.8118 -93.6292,76.8233 -93.6726,76.824 -93.6939,76.8226 -93.7229,76.8163 -93.7543,76.7988 -93.7843,76.7849 -93.8182,76.7798 -93.8888,76.7775 -93.9361,76.778 -93.981,76.7833 -94.1301,76.8084 -94.2193,76.8479 -94.2452,76.8577 -94.3198,76.8654 -94.3629,76.8669 -94.4151,76.865 -94.4481,76.8632 -94.5403,76.8611 -94.6325,76.866 -94.7256,76.8804 -94.8411,76.8856 -94.9003,76.885 -94.9496,76.896 -95.0125,76.9123 -95.0613,76.9295 -95.1013,76.9402 -95.1415,76.9465 -95.1887,76.948 -95.284,76.9431 -95.309,76.9428 -95.3829,76.9483 -95.4302,76.9565 -95.4664,76.958 -95.6103,76.9506 -95.6889,76.9427 -95.8248,76.9344 -95.9571,76.9321 -96.0002,76.9296 -96.107,76.9186 -96.0757,76.8827 -96.2051,76.8611 -96.3436,76.8697 -96.3942,76.8719 -96.4628,76.8721 -96.4926,76.8707 -96.5359,76.8593 -96.4862,76.855 -96.4397,76.8529 -96.4085,76.849 -96.3834,76.8393 -96.4247,76.8238 -96.4451,76.8253 -96.4875,76.8276 -96.5172,76.8273 -96.5545,76.8229 -96.5862,76.8055 -96.5784,76.7827 -96.5272,76.7549 -96.27,76.7131 -96.2241,76.7084 -96.1769,76.7056 -96.0902,76.703 -96.0418,76.6948 -96.0331,76.6433 -96.0543,76.641 -96.1502,76.6352 -96.3158,76.6493 -96.4025,76.6606 -96.4474,76.6737 -96.5694,76.7019 -96.6027,76.6985 -96.6224,76.6857 -96.6769,76.6181 -96.6388,76.605 17,-6.0,Canada -96.9617,76.9273 -96.9178,76.9275 -96.8737,76.9199 -96.8558,76.9153 -96.8118,76.8977 -96.9505,76.8612 -96.9758,76.8572 -97.0034,76.8555 -97.0542,76.8579 -97.1283,76.8629 -97.1771,76.8671 -97.1917,76.8702 -97.1423,76.8954 -97.0931,76.9123 -97.0048,76.923 -96.9617,76.9273 -96.9617,76.9273 908,3.0,Russia 55.181,74.3201 55.2223,74.3332 55.2729,74.3396 55.2944,74.3378 55.7492,74.3541 55.9059,74.3619 56.0173,74.3683 56.1049,74.3742 56.1364,74.3859 56.1129,74.3996 56.0885,74.3993 56.0579,74.3959 55.9905,74.3872 55.8808,74.393 55.931,74.4127 55.8924,74.4332 55.8636,74.4401 55.7602,74.4453 55.5621,74.4502 55.3834,74.4604 55.3546,74.4673 55.3841,74.5454 55.4276,74.5575 55.5044,74.5718 55.5338,74.5766 55.6285,74.5866 55.6531,74.5863 55.7032,74.5786 55.7201,74.562 55.7452,74.5561 55.7699,74.5557 55.8107,74.5611 55.8395,74.5667 55.8878,74.5754 56.0287,74.5958 56.1567,74.6082 56.2419,74.6164 56.2756,74.604 56.3505,74.5874 56.4381,74.5764 56.4642,74.5751 56.6137,74.5715 56.6385,74.5717 56.8366,74.5852 56.798,74.601 56.7747,74.6042 56.752,74.6033 56.683,74.6006 56.663,74.5972 56.6166,74.587 56.5823,74.5858 56.4795,74.59 56.4537,74.5914 56.4296,74.6017 56.4274,74.6207 56.4034,74.6313 56.337,74.6906 56.1772,74.6952 56.1529,74.6952 56.0791,74.6958 56.0558,74.6948 56.0268,74.6895 55.9587,74.6777 55.9138,74.6747 55.8423,74.6723 55.7927,74.6724 55.7681,74.6762 55.6722,74.702 55.6894,74.7223 55.7743,74.7398 56.1739,74.8028 56.1939,74.8061 56.2352,74.8111 56.2872,74.8058 56.3316,74.809 56.3737,74.8142 56.5275,74.846 56.5122,74.8636 56.4828,74.8656 56.4274,74.8526 56.3872,74.8461 56.364,74.8452 56.3395,74.8457 56.2865,74.848 56.1486,74.8552 56.2163,74.8837 56.2532,74.8922 56.2749,74.8945 56.3042,74.8998 56.324,74.9097 56.2931,74.9289 56.2694,74.9318 56.0681,74.9176 55.9633,74.9033 55.9269,74.8946 55.9068,74.8914 55.8633,74.8872 55.8403,74.8865 55.7424,74.8858 55.7147,74.8928 55.7505,74.9235 55.7908,74.9608 55.7676,74.9776 55.731,74.9823 55.7061,74.9825 55.6593,74.9807 55.6392,74.9772 55.6027,74.9689 55.5798,74.9721 55.5966,75.0024 55.6529,75.045 55.7748,75.0892 55.8825,75.1093 55.9046,75.111 55.9271,75.1094 55.9482,75.105 55.9682,75.0813 55.9888,75.0485 56.01,75.0442 56.0371,75.0426 56.0587,75.045 56.088,75.05 56.133,75.0641 56.1727,75.0793 56.2027,75.0843 56.232,75.0744 56.3156,74.9993 56.3086,74.9645 56.33,74.9574 56.3587,74.9632 56.4879,75.0101 56.5142,75.0247 56.6083,75.0771 56.644,75.0958 56.6692,75.1045 56.7102,75.1108 56.7544,75.1319 56.7517,75.1604 56.7211,75.1765 56.6971,75.1793 56.6748,75.1772 56.6513,75.1766 56.6261,75.1767 56.5979,75.1793 56.5785,75.1931 56.6016,75.2114 56.6873,75.2476 56.7149,75.2546 56.8732,75.2841 56.8969,75.285 56.9243,75.2837 57.1065,75.2684 57.2724,75.2495 57.3745,75.2264 57.3985,75.2236 57.4253,75.2222 57.5553,75.2182 57.5806,75.2178 57.5765,75.2429 57.4981,75.3213 57.4657,75.3372 57.388,75.3461 57.3552,75.3887 57.4139,75.4103 57.4722,75.4227 57.4929,75.4259 57.802,75.4578 57.9651,75.4641 57.995,75.4642 58.0222,75.472 58.034,75.4965 57.9936,75.5168 57.9665,75.5181 57.9421,75.5175 57.8865,75.5117 57.8258,75.51 57.7969,75.5128 57.7672,75.5194 57.7755,75.5388 57.8,75.5525 57.833,75.5653 57.8842,75.5742 57.9265,75.5762 57.9506,75.577 58.0723,75.583 58.3547,75.6177 58.3818,75.6519 58.4063,75.6619 58.6068,75.7282 58.6268,75.7321 58.7296,75.7504 58.7742,75.7553 58.825,75.7558 58.8529,75.7542 58.9107,75.7489 58.96,75.7501 58.9815,75.7534 59.0019,75.7571 59.1008,75.7786 59.1895,75.8101 59.21,75.8197 59.23,75.8236 59.252,75.8265 59.2752,75.8284 59.2999,75.8293 59.4539,75.8287 59.4913,75.8233 59.5305,75.8169 59.5785,75.8194 59.6003,75.8224 59.7977,75.8572 59.8228,75.8697 59.8746,75.8793 59.8981,75.881 59.9942,75.8858 60.019,75.8863 60.076,75.8817 60.1021,75.8813 60.1271,75.8818 60.1598,75.8862 60.1753,75.903 60.1409,75.9113 60.0887,75.9198 60.029,75.9265 59.9543,75.9248 59.9283,75.9251 59.9021,75.9293 59.8771,75.937 59.8989,75.9499 60.0851,75.995 60.1058,75.9991 60.1278,76.0021 60.2913,76.0154 60.3385,76.0184 60.3887,76.0196 60.6388,76.0132 60.6653,76.0065 60.5571,75.9838 60.4772,75.9657 60.3003,75.9068 60.464,75.8902 60.4897,75.89 60.515,75.8902 60.5383,75.8923 60.5602,75.8951 60.5897,75.9023 60.6125,75.9185 60.6256,75.9411 60.6494,75.9508 60.6999,75.9538 60.7746,75.9553 60.8935,75.9628 60.9131,75.9675 60.9852,76.0239 60.9481,76.0356 60.8977,76.0342 60.8267,76.0293 60.8016,76.0289 60.775,76.0293 60.7346,76.0407 60.8242,76.1395 60.8738,76.1621 60.8946,76.1657 60.9187,76.1677 61.0009,76.1702 61.1306,76.174 61.4371,76.1954 61.4564,76.2002 61.4805,76.2019 61.5059,76.2023 61.534,76.2006 61.5551,76.1956 61.5904,76.1798 61.6111,76.175 61.8247,76.1477 61.8542,76.1444 62.0069,76.1461 62.1321,76.1497 62.1968,76.1068 62.2176,76.082 62.2523,76.0764 62.3045,76.0713 62.3276,76.0688 62.3702,76.0987 62.5172,76.1413 62.5588,76.1501 62.5813,76.1527 62.6295,76.1555 62.6667,76.1502 62.6866,76.1391 62.6715,76.1231 62.7282,76.0999 62.803,76.1021 62.8481,76.1073 62.9771,76.1298 63.1882,76.171 63.343,76.2036 63.5152,76.2348 63.5384,76.2372 63.7006,76.2297 63.8342,76.2131 63.8555,76.2049 63.8798,76.2015 63.9051,76.2019 63.9293,76.2033 63.976,76.2101 63.9967,76.2151 64.0157,76.2211 64.128,76.2516 64.2901,76.284 64.4835,76.3089 64.5376,76.3394 64.6145,76.3657 64.7536,76.3818 64.7769,76.3841 64.8014,76.3854 64.8829,76.3816 64.8929,76.3613 64.9266,76.3584 64.9771,76.3596 65.1491,76.3946 65.1728,76.405 65.2027,76.4424 65.2288,76.4507 65.3397,76.4698 65.3623,76.4731 65.3891,76.4721 65.4384,76.4591 65.7357,76.4191 65.7625,76.4181 65.7874,76.4191 65.8319,76.4326 65.7203,76.5171 65.6992,76.5281 65.645,76.5462 65.6169,76.5538 65.5699,76.5725 65.6966,76.6232 65.7374,76.6348 65.7593,76.6392 65.81,76.644 65.8361,76.6438 65.8634,76.6426 65.9626,76.649 66.1946,76.7253 66.2154,76.7367 66.2363,76.7427 66.2603,76.7451 66.3106,76.7473 66.4063,76.7581 66.4406,76.7723 66.4685,76.7871 66.4906,76.7921 66.7544,76.833 66.8008,76.8401 66.8254,76.8425 66.8525,76.8409 66.9098,76.8365 67.0947,76.8604 67.1376,76.8722 67.1606,76.8754 67.3506,76.9006 67.3751,76.9027 67.4018,76.9029 67.4813,76.9029 67.5079,76.9026 67.72,76.8964 67.7473,76.8951 67.8046,76.8902 67.834,76.8869 67.8644,76.8824 67.8893,76.8744 67.9044,76.8599 67.9296,76.8553 68.0695,76.8486 68.1709,76.8469 68.2203,76.8512 68.3108,76.8436 68.4889,76.7659 68.5584,76.7245 68.7338,76.673 68.6914,76.5607 68.6602,76.5476 68.594,76.476 68.6182,76.4683 68.6714,76.4655 68.6655,76.433 68.2053,76.2557 68.0211,76.219 68.0988,76.1912 68.1265,76.1801 68.0987,76.1719 68.0741,76.171 67.9982,76.1713 67.9004,76.1667 67.8063,76.158 67.7385,76.1478 67.5187,76.1074 67.3366,76.0834 67.2903,76.0787 67.2678,76.0752 67.2253,76.0659 67.2045,76.0603 67.0626,76.0197 66.9142,75.9874 66.8478,75.9766 66.7304,75.9672 66.6842,75.9627 66.6623,75.959 66.5171,75.9502 66.4938,75.9477 66.4718,75.9441 66.39,75.9232 66.2879,75.8974 66.2668,75.8925 66.2232,75.8857 66.0224,75.8581 65.8393,75.8398 65.7892,75.8398 65.5611,75.8166 65.2277,75.7731 65.0327,75.7393 65.0122,75.7347 64.9863,75.7204 64.9566,75.7016 64.8442,75.689 64.8207,75.6878 64.7963,75.6878 64.7423,75.6917 64.6663,75.6936 64.5564,75.6785 64.3622,75.6488 64.1959,75.6267 64.011,75.613 63.9622,75.6126 63.9385,75.6112 63.6883,75.5651 63.6577,75.5584 63.6359,75.5485 63.5386,75.5656 63.501,75.5943 63.4805,75.6055 63.4549,75.6062 63.4068,75.6044 63.3814,75.6003 63.4058,75.5959 63.4415,75.5843 63.3629,75.5302 63.314,75.5175 63.1513,75.4839 63.1311,75.4802 63.109,75.4775 63.086,75.4762 63.0127,75.475 62.9351,75.4785 62.9084,75.4805 62.85,75.4795 62.8215,75.4668 62.795,75.4571 62.6343,75.423 62.6136,75.4189 62.5716,75.4126 62.4109,75.4019 62.3673,75.3962 62.3471,75.3923 62.2187,75.3632 62.1122,75.3351 62.0716,75.3272 62.0476,75.3266 62.0012,75.3422 61.9745,75.3439 61.8488,75.3353 61.6859,75.2765 61.531,75.2619 61.5199,75.2327 61.5102,75.2109 61.4832,75.1744 61.348,75.1192 61.3163,75.1148 61.2924,75.1142 61.2555,75.121 61.2314,75.1314 61.2172,75.146 61.2228,75.1777 61.2147,75.2255 61.1171,75.2132 61.1361,75.1898 61.0748,75.145 61.0076,75.1117 60.9826,75.1018 60.9455,75.0917 60.8047,75.0644 60.7216,75.0519 60.7005,75.0492 60.6719,75.0423 60.647,75.0323 60.5863,74.9971 60.6098,74.9895 60.6426,74.9768 60.5995,74.9301 60.5761,74.9218 60.5555,74.9189 60.5335,74.9171 60.5085,74.9178 60.4548,74.9257 60.4269,74.9331 60.4071,74.9533 60.439,74.9958 60.353,75.0095 60.3262,75.0058 60.2814,74.9591 60.2793,74.9371 60.2984,74.9202 60.266,74.9082 60.1393,74.8934 59.9968,74.8832 59.9733,74.8829 59.9456,74.8856 59.8588,74.8971 59.8325,74.8991 59.7727,74.8945 59.918,74.8681 59.947,74.8642 59.9961,74.8632 60.1189,74.8618 60.2605,74.8603 60.4244,74.8646 60.4503,74.8629 60.4704,74.858 60.5037,74.8416 60.5236,74.8245 60.4244,74.7675 60.3974,74.7597 60.3768,74.757 60.3545,74.7551 60.3313,74.7543 60.2344,74.7555 60.0892,74.7566 60.0466,74.7438 60.1045,74.7149 60.1835,74.7005 60.21,74.6839 60.1615,74.6583 60.1162,74.6455 60.0865,74.6409 59.8944,74.6213 59.8509,74.618 59.8294,74.6163 59.7819,74.6159 59.567,74.6398 59.4621,74.6711 59.4308,74.6812 59.3821,74.69 59.355,74.6925 59.4501,74.6377 59.4726,74.6269 59.4971,74.6226 59.5471,74.6205 59.5707,74.6213 59.5965,74.6196 59.6206,74.6155 59.7141,74.5786 59.7164,74.523 59.6093,74.4873 59.5541,74.4835 59.528,74.4853 59.5011,74.4883 59.4444,74.4958 59.4201,74.5003 59.3805,74.5093 59.3342,74.5243 59.2453,74.5551 59.2183,74.5652 59.0716,74.6033 59.0157,74.6177 59.0339,74.5913 59.082,74.573 59.1341,74.5392 59.036,74.4746 58.987,74.4507 58.9693,74.4395 58.9408,74.3816 58.9951,74.337 58.9001,74.3372 58.876,74.338 58.7342,74.3458 58.6324,74.3597 58.5974,74.3725 58.5849,74.3904 58.5657,74.3979 58.5116,74.4036 58.4049,74.4129 58.2636,74.4345 58.2377,74.4419 58.1919,74.4535 58.0986,74.4705 58.0741,74.4748 58.0414,74.4733 58.0313,74.455 58.1125,74.428 58.1726,74.4145 58.2737,74.3981 58.4633,74.3263 58.4619,74.3045 58.4747,74.2618 58.5114,74.2208 58.572,74.2019 58.5928,74.1657 58.5742,74.1349 58.4273,74.0739 58.3577,74.0646 58.335,74.0676 58.233,74.0899 58.2086,74.1011 58.1817,74.1156 58.1623,74.1206 58.1311,74.1171 58.1045,74.0916 58.1169,74.0724 58.1711,74.0544 58.2102,74.0502 58.2363,74.0305 58.1811,73.9902 58.1502,74.0029 58.1038,74.0323 58.084,74.0368 58.0599,74.0407 58.0126,74.0415 57.9892,74.0365 57.9919,73.9759 58.0262,73.9505 58.0497,73.944 58.0694,73.907 57.9889,73.8848 57.9682,73.8831 57.7984,73.9004 57.7709,73.9038 57.5791,73.9492 57.5603,73.957 57.4866,74.0075 57.4583,74.0367 57.413,74.074 57.3874,74.0811 57.3621,74.0825 57.3144,74.0832 57.2685,74.0785 57.3239,74.0432 57.3737,74.0193 57.3831,74.0009 57.3723,73.9818 57.3448,73.9759 57.3228,73.9751 57.2976,73.9764 57.2693,73.9803 57.2163,73.9853 57.1908,73.9868 57.1671,73.9873 57.1369,73.9837 57.1124,73.9754 57.1332,73.9735 57.2044,73.9725 57.379,73.964 57.4083,73.9571 57.4285,73.943 57.4814,73.9161 57.5271,73.8948 57.5847,73.8749 57.6157,73.865 57.6624,73.8535 57.7432,73.8262 57.7657,73.8155 57.794,73.6997 57.7685,73.685 57.6127,73.6259 57.5798,73.6153 57.5531,73.613 57.4772,73.6408 57.4682,73.659 57.4543,73.6741 57.3644,73.7165 57.3449,73.7212 57.2821,73.7339 57.2585,73.7381 57.1298,73.7487 57.0274,73.7567 56.9031,73.7636 56.8092,73.7644 56.7874,73.7635 56.6689,73.7641 56.6188,73.7664 56.5926,73.7692 56.5251,73.7818 56.4256,73.7798 56.5319,73.7553 56.5557,73.7514 56.6026,73.7506 56.7197,73.7496 56.8402,73.7403 56.9151,73.7326 56.9414,73.73 57.0948,73.7182 57.1438,73.725 57.1866,73.7241 57.2172,73.7142 57.3376,73.6555 57.4397,73.6012 57.4699,73.5627 57.4613,73.5196 57.4425,73.5109 57.2084,73.4502 57.1855,73.4507 57.0226,73.4734 56.9511,73.4816 56.9112,73.4869 56.8108,73.5186 56.7011,73.5488 56.6753,73.5686 56.6482,73.5757 56.6218,73.5782 56.5854,73.572 56.6137,73.4994 56.6475,73.4944 56.7678,73.4741 56.8627,73.4578 56.9787,73.4307 57.0051,73.4238 57.1105,73.3921 57.0859,73.3512 56.8956,73.2645 56.8373,73.2393 56.7662,73.2101 56.7153,73.2398 56.6472,73.2649 56.618,73.2614 56.6081,73.2344 56.61,73.1465 56.5796,73.1442 56.4317,73.1548 56.406,73.1571 56.3792,73.1606 56.3328,73.1687 56.2543,73.1772 56.1572,73.1827 56.1089,73.185 56.0862,73.1853 56.0647,73.1842 56.0178,73.1861 55.9905,73.1891 55.9519,73.1985 55.9252,73.2085 55.9029,73.2255 55.8966,73.2488 55.8946,73.2995 55.8705,73.3194 55.834,73.3319 55.7692,73.3411 55.7397,73.3348 55.7876,73.3172 55.837,73.293 55.8449,73.2684 55.8423,73.228 55.7887,73.2052 55.7674,73.208 55.7328,73.2244 55.7019,73.2337 55.6592,73.2423 55.6117,73.2476 55.5216,73.2465 55.4789,73.2448 55.4393,73.2402 55.4182,73.2392 55.3045,73.2379 55.2812,73.2382 55.2557,73.2402 55.2072,73.2516 55.1711,73.2642 55.1479,73.2746 55.0934,73.2947 55.0621,73.3042 55.0426,73.3089 54.8853,73.3368 54.8615,73.3407 54.8354,73.3429 54.7683,73.342 54.7252,73.34 54.6659,73.3334 54.4004,73.3018 54.3724,73.2975 54.3409,73.2875 54.2945,73.2714 54.2329,73.2499 54.2016,73.2401 54.1654,73.233 54.0808,73.2252 53.9131,73.266 53.9035,73.284 53.9265,73.2921 53.9643,73.2978 54.0612,73.3102 54.1039,73.3124 54.1399,73.3116 54.1644,73.3183 54.1984,73.3593 54.1585,73.3649 54.1108,73.3788 54.1119,73.4104 54.2154,73.4596 54.2393,73.4666 54.3411,73.4926 54.4325,73.5114 54.4941,73.5172 54.5309,73.5238 54.5779,73.5424 54.6153,73.5591 54.685,73.5593 55.0358,73.6112 54.852,73.6132 54.7179,73.6278 54.4059,73.6023 54.3574,73.5956 54.322,73.577 54.2953,73.5561 54.2616,73.5394 54.1304,73.5061 54.0529,73.5052 53.9263,73.5062 53.822,73.5271 53.802,73.5441 53.6623,73.6045 53.626,73.6166 53.5369,73.6359 53.4984,73.6589 53.5153,73.7032 53.5496,73.7047 53.5825,73.6857 53.6109,73.6791 53.666,73.6736 53.6911,73.6727 53.714,73.6726 53.7636,73.679 53.8063,73.6897 53.9022,73.7202 53.9291,73.7458 53.9485,73.762 54.0793,73.8013 54.1131,73.8106 54.206,73.8275 54.2435,73.8343 54.3229,73.8443 54.3432,73.8468 54.3651,73.8478 54.4122,73.8479 54.6619,73.8769 54.6378,73.8904 54.6173,73.8947 54.5619,73.9004 54.5183,73.8982 54.4942,73.8981 54.4526,73.9076 54.5549,73.9692 54.6111,73.9875 54.8812,74.0716 55.0033,74.0839 55.0261,74.0851 55.0628,74.0794 55.0826,74.0715 55.107,74.0549 55.1271,74.0504 55.2268,74.0404 55.2793,74.0366 55.5273,74.0147 55.6583,73.9986 55.6834,73.9972 55.7204,74.0075 55.6697,74.0381 55.6345,74.0427 55.611,74.0428 55.5854,74.0443 55.5317,74.0488 55.4872,74.0603 55.4751,74.0835 55.4479,74.0919 55.3828,74.1047 55.1541,74.1387 55.1252,74.1424 55.1012,74.1421 55.0788,74.1412 55.0375,74.1367 55.0151,74.1358 54.9898,74.1371 54.9345,74.1603 55.0755,74.2034 55.1113,74.2001 55.1273,74.1859 55.1656,74.1757 55.2565,74.1785 55.4165,74.1837 55.5269,74.1713 55.5611,74.1668 55.5993,74.1915 55.5224,74.2249 55.402,74.2356 55.2778,74.2458 55.1748,74.2507 55.1173,74.2575 55.0925,74.2649 55.181,74.3201 55.181,74.3201 16,7.0,Russia 96.0659,76.8067 96.0363,76.7951 96.0008,76.7864 95.9454,76.7759 95.7853,76.7739 95.753,76.7758 95.7141,76.784 95.6669,76.7964 95.6776,76.8068 95.7668,76.8187 95.91,76.8283 95.9359,76.8279 96.0237,76.8206 96.0714,76.8141 96.0659,76.8067 96.0659,76.8067 37,-7.0,Canada -113.7286,76.5942 -113.8353,76.6077 -113.8878,76.6112 -114.1736,76.6248 -114.4057,76.6373 -114.4582,76.6407 -114.4963,76.6441 -114.5299,76.6486 -114.5459,76.6574 -114.5259,76.685 -114.5078,76.6919 -114.4751,76.7036 -114.437,76.714 -114.2946,76.7523 -114.2769,76.756 -114.2563,76.7575 -114.0081,76.7672 -113.8098,76.7744 -113.6342,76.78 -113.5578,76.7816 -113.4801,76.7796 -113.4351,76.7746 -113.4073,76.7691 -113.1721,76.7238 -113.1618,76.7182 -113.1264,76.6653 -113.141,76.6568 -113.2888,76.6038 -113.3039,76.5988 -113.3276,76.5953 -113.3552,76.5953 -113.3791,76.597 -113.4592,76.608 -113.5112,76.6106 -113.5634,76.6092 -113.7286,76.5942 -113.7286,76.5942 798,-7.0,Canada -117.3488,75.1389 -117.1491,75.0859 -117.1018,75.0777 -117.0671,75.0739 -116.8523,75.0528 -116.4027,75.0123 -116.3723,75.0123 -116.349,75.0181 -116.3038,75.048 -116.2746,75.0662 -116.2457,75.0744 -116.2124,75.0802 -115.9636,75.101 -115.9266,75.0956 -115.9296,75.0613 -115.9661,75.0302 -115.9662,74.9951 -115.8545,74.9367 -115.5431,74.8827 -115.4529,74.8672 -115.4309,74.8644 -115.3771,74.8618 -115.3541,74.8646 -115.3066,74.8794 -115.2708,74.8953 -115.2437,74.9096 -115.2339,74.9383 -115.2935,75.0041 -115.3122,75.0168 -115.2083,75.0133 -115.1726,75.0015 -115.1411,74.9945 -115.1161,74.9938 -115.0852,74.9962 -115.0623,75.0014 -115.0341,75.0095 -114.9744,75.0331 -114.9447,75.0658 -114.9153,75.0665 -114.8643,75.0001 -114.8824,74.9817 -114.9161,74.9548 -114.8874,74.8849 -114.8576,74.8766 -114.7562,74.8587 -114.7301,74.8587 -114.6472,74.8671 -114.5866,74.8747 -114.5232,74.8852 -114.4613,74.8994 -114.4214,74.9089 -114.2968,74.9349 -114.2141,74.9467 -114.1699,74.9545 -114.1236,74.9692 -114.0878,74.9862 -114.0595,75.0025 -114.034,75.0207 -114.0063,75.0444 -113.9893,75.0709 -114.0953,75.1387 -114.1331,75.1525 -114.1578,75.1573 -114.1863,75.1606 -114.2364,75.162 -114.2658,75.159 -114.298,75.1655 -114.2245,75.2086 -114.1956,75.2084 -114.0427,75.1687 -114.0367,75.1498 -114.0098,75.1399 -113.9756,75.1301 -113.9546,75.1248 -113.9039,75.1172 -113.87,75.1205 -113.8489,75.1287 -113.8285,75.1401 -113.7333,75.2582 -113.7509,75.281 -113.7765,75.2971 -113.77,75.3575 -113.7213,75.3571 -113.6741,75.3316 -113.6482,75.3057 -113.5991,75.2726 -113.5617,75.269 -113.5241,75.2716 -113.4348,75.2806 -113.3508,75.2931 -113.2685,75.3065 -113.1618,75.3222 -113.0719,75.3131 -113.0319,75.3081 -113.2647,75.2617 -113.3423,75.2474 -113.4188,75.2406 -113.4737,75.2325 -113.5043,75.2155 -113.6237,75.0845 -113.6654,74.9791 -113.6421,74.955 -113.6141,74.95 -113.5909,74.9484 -113.3874,74.948 -113.3075,74.9589 -113.0409,74.9682 -112.9959,74.9691 -112.9515,74.9723 -112.6529,74.9927 -112.5901,74.9988 -112.5029,75.0113 -112.3959,75.0336 -112.3889,75.0704 -112.424,75.0905 -112.4108,75.1485 -112.3671,75.1734 -112.3464,75.1702 -112.3078,75.1545 -112.2879,75.1325 -112.3263,75.1091 -112.3257,75.0887 -112.2964,75.0787 -112.2571,75.0735 -112.1628,75.0752 -112.1328,75.0859 -112.1559,75.1064 -112.1325,75.1258 -112.0989,75.1362 -112.0357,75.1187 -111.9916,75.0958 -112.0599,75.0663 -112.1087,75.0546 -112.1601,75.0475 -112.1409,75.0265 -112.1166,75.0198 -112.0878,75.0185 -111.9259,75.0201 -111.6563,75.0304 -111.4854,75.0622 -111.3992,75.0438 -111.2855,75.039 -111.26,75.0416 -111.1742,75.0571 -111.0908,75.0764 -111.0331,75.0928 -110.9767,75.1157 -110.9514,75.1436 -110.9294,75.1593 -110.7592,75.166 -110.6158,75.1265 -110.7293,75.0665 -110.9914,74.9821 -111.2489,74.9103 -111.2958,74.9036 -111.3326,74.901 -111.4246,74.8837 -111.4651,74.8789 -111.5464,74.8836 -111.5709,74.8853 -111.6043,74.8922 -111.6406,74.8961 -111.6677,74.8985 -111.7201,74.8995 -112.0788,74.8955 -112.157,74.8939 -112.2039,74.893 -112.2281,74.8928 -112.276,74.89 -112.5484,74.8742 -112.5708,74.8728 -112.6143,74.8681 -112.7106,74.8514 -112.8235,74.8298 -112.8551,74.8222 -112.9259,74.7938 -112.9569,74.771 -112.9866,74.7463 -113.1218,74.7402 -113.2602,74.7365 -113.4128,74.7272 -113.4343,74.7247 -113.7126,74.688 -113.8039,74.6744 -113.9169,74.6534 -114.1034,74.6043 -114.1267,74.5928 -114.1446,74.5625 -114.1002,74.5372 -114.0779,74.5271 -114.0523,74.517 -114.0024,74.5007 -113.8261,74.4484 -113.7592,74.4292 -113.6477,74.402 -113.5486,74.378 -113.4035,74.3445 -113.3484,74.3359 -113.1799,74.3175 -113.1364,74.3134 -113.1144,74.312 -112.9662,74.3039 -112.7183,74.2967 -112.6298,74.2959 -112.5668,74.297 -112.4633,74.2998 -112.2527,74.3081 -112.149,74.313 -112.0815,74.3172 -112.0042,74.3263 -111.7985,74.3506 -111.6956,74.3672 -111.657,74.3728 -111.5355,74.3817 -111.4123,74.3896 -111.3893,74.3915 -111.3543,74.3996 -111.2708,74.4258 -111.1425,74.4586 -111.1211,74.4609 -111.0992,74.4614 -110.9925,74.466 -110.6935,74.5196 -110.5463,74.5501 -110.5142,74.561 -110.4914,74.5755 -110.4689,74.583 -110.3033,74.6219 -110.3016,74.6756 -110.1483,74.6908 -110.1082,74.704 -110.1155,74.7244 -110.0766,74.7393 -110.0571,74.7443 -110.0363,74.7452 -110.0158,74.7437 -109.8519,74.7305 -109.7288,74.7396 -109.7071,74.7459 -109.6671,74.7547 -109.6469,74.7584 -109.5847,74.7665 -109.5461,74.7671 -109.5169,74.7634 -109.4821,74.7568 -109.3745,74.754 -109.291,74.7545 -109.2286,74.7622 -109.1338,74.7904 -109.1166,74.8119 -109.068,74.8396 -108.8328,74.8767 -108.714,74.902 -108.6603,74.9369 -108.6379,74.9482 -108.5415,74.9659 -108.5041,74.9652 -108.3622,74.9502 -108.3399,74.9426 -108.2444,74.9016 -108.2357,74.8715 -108.2744,74.8735 -108.329,74.8769 -108.3532,74.8781 -108.4597,74.8816 -108.502,74.8815 -108.3939,74.8673 -108.2667,74.8511 -108.2503,74.8359 -108.1613,74.8143 -108.0982,74.8083 -107.9269,74.8208 -107.8504,74.825 -107.7407,74.8263 -107.6941,74.8247 -107.6655,74.8269 -107.611,74.9005 -107.4925,74.9263 -107.4555,74.9421 -107.4842,74.9639 -107.4885,74.9907 -107.4591,74.9922 -107.4224,74.9843 -107.407,74.9713 -107.3944,74.9432 -107.433,74.92 -107.4086,74.8764 -107.3795,74.864 -107.3479,74.8584 -107.2249,74.8371 -107.1821,74.8316 -106.9253,74.8089 -106.879,74.8077 -106.7926,74.8172 -106.7703,74.8188 -106.7294,74.82 -106.6917,74.8236 -106.6498,74.8311 -106.5114,74.8752 -106.497,74.891 -106.4444,74.8992 -106.3823,74.9011 -106.2747,74.8982 -106.1746,74.9027 -105.979,74.9161 -105.9542,74.9183 -105.7182,74.9554 -105.7349,74.9703 -105.7881,74.9949 -105.7255,75.0302 -105.6401,75.0306 -105.6196,75.032 -105.5957,75.0384 -105.5865,75.0672 -105.6062,75.0862 -105.6492,75.1013 -105.5841,75.1685 -105.5303,75.1925 -105.5065,75.1973 -105.4756,75.1998 -105.4456,75.206 -105.3636,75.2548 -105.314,75.363 -105.3906,75.3767 -105.4555,75.3826 -105.3966,75.4138 -105.3474,75.428 -105.3153,75.4342 -105.2519,75.441 -105.2277,75.4446 -105.2031,75.4524 -105.1004,75.5415 -105.1101,75.5883 -105.1576,75.7296 -105.18,75.7506 -105.3167,75.8289 -105.3745,75.8484 -105.4409,75.8681 -105.5426,75.8899 -105.605,75.8983 -105.6421,75.903 -105.7205,75.9126 -106.0042,75.944 -106.0398,75.9474 -106.0715,75.9486 -106.2881,75.9512 -106.3084,75.9505 -106.3414,75.9459 -106.5724,75.8573 -106.5986,75.8329 -106.5963,75.7329 -106.5648,75.716 -106.5339,75.7101 -106.4907,75.7067 -106.4315,75.7074 -106.3843,75.7059 -106.3278,75.6946 -106.3512,75.6876 -106.3846,75.6871 -106.4276,75.6893 -106.4496,75.6891 -106.4992,75.6853 -106.5354,75.6793 -106.5852,75.6595 -106.6021,75.6139 -106.6686,75.6321 -106.7361,75.6645 -106.805,75.7224 -106.7913,75.7633 -106.7831,75.7859 -106.8892,75.7972 -107.0395,75.8047 -107.0712,75.8047 -107.2171,75.7931 -107.4407,75.7724 -107.4609,75.7655 -107.4796,75.7479 -107.5224,75.7227 -107.5755,75.6916 -107.6149,75.6829 -107.6585,75.6783 -107.7079,75.673 -107.7239,75.676 -107.7449,75.6956 -107.7323,75.7157 -107.6246,75.7818 -107.6025,75.7892 -107.5429,75.7932 -107.4864,75.8131 -107.3389,75.8808 -107.4302,75.9302 -107.5111,75.9486 -107.5373,75.954 -107.6155,75.9556 -107.6998,75.9559 -107.7241,75.9548 -108.0497,75.9417 -108.0935,75.9387 -108.1048,76.04 -108.0825,76.0548 -108.0277,76.0741 -107.9483,76.0892 -107.8105,76.1533 -107.7731,76.1725 -107.9633,76.2667 -107.9838,76.2762 -108.0176,76.2872 -108.0575,76.2918 -108.1686,76.2987 -108.2512,76.3003 -108.2736,76.3307 -108.2761,76.3688 -108.3098,76.4637 -108.3851,76.494 -108.4096,76.5311 -108.3711,76.5386 -108.3438,76.5382 -108.3189,76.5363 -108.2978,76.5332 -108.2768,76.5325 -108.2559,76.5327 -108.2349,76.5371 -108.149,76.5753 -108.1319,76.6019 -108.1488,76.627 -108.1855,76.6442 -108.2164,76.6508 -108.2415,76.6519 -108.2859,76.6514 -108.3704,76.6637 -108.3414,76.7012 -108.4354,76.7462 -108.4685,76.7478 -108.5055,76.7255 -108.5324,76.714 -108.5769,76.7044 -108.6146,76.6999 -108.6383,76.702 -108.6615,76.7064 -108.7129,76.713 -108.8147,76.7097 -108.9093,76.6984 -108.9892,76.6875 -109.1965,76.5988 -109.2483,76.5315 -109.3345,76.4844 -109.3942,76.4784 -109.4432,76.4637 -109.5251,76.4236 -109.4994,76.4184 -109.4375,76.4227 -109.4037,76.4125 -109.435,76.3967 -109.4956,76.382 -109.7839,76.3455 -109.9773,76.3247 -110.0722,76.3168 -110.081,76.2836 -110.0674,76.1879 -110.0471,76.1842 -110.0209,76.1828 -109.9553,76.1834 -109.9305,76.1825 -109.8916,76.1777 -109.8433,76.1659 -109.8137,76.1583 -109.7673,76.1451 -109.7057,76.122 -109.6321,76.0947 -109.611,76.089 -109.579,76.0889 -109.587,76.1198 -109.5501,76.1278 -109.5255,76.1284 -109.5007,76.1267 -109.4142,76.1142 -109.3918,76.1112 -109.0899,76.0255 -109.0028,75.9967 -109.1161,75.9284 -109.3597,75.8388 -109.393,75.8334 -109.5215,75.8235 -109.6209,75.8208 -109.7465,75.7867 -109.6316,75.7498 -109.6035,75.7432 -109.5794,75.7432 -109.547,75.7552 -109.4295,75.7699 -109.3563,75.762 -109.3288,75.72 -109.3265,75.6934 -109.1497,75.6764 -109.0034,75.6647 -108.9637,75.6637 -108.9086,75.6563 -108.8253,75.6431 -108.7589,75.6254 -108.6448,75.5889 -108.6136,75.5849 -108.582,75.5861 -108.5351,75.5827 -108.5374,75.507 -108.6225,75.4131 -108.5992,75.3721 -108.6389,75.371 -108.7764,75.3929 -108.8851,75.4031 -108.9549,75.4086 -109.0053,75.4093 -109.2532,75.4161 -109.4495,75.4241 -109.6729,75.4317 -109.7666,75.4347 -109.8941,75.434 -110.0317,75.4336 -110.1248,75.4451 -110.1633,75.461 -110.1928,75.4632 -110.2393,75.4629 -110.4681,75.4607 -110.4914,75.4596 -110.5955,75.4443 -110.6685,75.4267 -110.6912,75.4234 -110.9175,75.4111 -110.9427,75.4122 -110.967,75.4167 -111.0138,75.4394 -111.0482,75.4668 -111.1019,75.512 -111.0835,75.5568 -111.0478,75.6142 -111.1401,75.728 -111.1677,75.7327 -111.1878,75.7332 -111.2309,75.7315 -111.2957,75.7201 -111.3359,75.715 -111.3818,75.7163 -111.5492,75.7205 -111.7183,75.7086 -111.8824,75.6991 -111.909,75.7028 -111.8635,75.7426 -111.7644,75.767 -111.7326,75.7723 -111.6988,75.7748 -111.6338,75.7781 -111.5609,75.7806 -111.4674,75.7878 -111.4197,75.8064 -111.4476,75.8378 -111.4737,75.8428 -111.6669,75.8743 -111.7311,75.8917 -111.7566,75.896 -111.8416,75.9078 -111.9856,75.9223 -112.0723,75.9293 -112.1044,75.9375 -112.2109,75.9986 -112.1839,76.0352 -112.1621,76.0438 -112.1149,76.0565 -112.1429,76.0696 -112.1665,76.0737 -112.2742,76.0889 -112.3055,76.0904 -112.4011,76.0907 -112.4342,76.0926 -112.5451,76.1332 -112.5837,76.1477 -112.6391,76.1555 -112.6814,76.1597 -112.9421,76.1566 -113.0045,76.1548 -113.0463,76.1506 -113.2056,76.1278 -113.2969,76.1107 -113.32,76.1048 -113.366,76.0983 -113.3898,76.0958 -113.6339,76.0816 -113.6702,76.0836 -113.7394,76.11 -113.808,76.204 -113.7896,76.2462 -113.7715,76.2878 -113.7899,76.3214 -113.8184,76.3405 -113.8511,76.3515 -113.8837,76.3596 -113.928,76.3663 -113.9696,76.3717 -114.1268,76.3881 -114.2853,76.3796 -114.3882,76.3866 -114.3763,76.4042 -114.4149,76.4085 -114.5834,76.407 -114.6056,76.3989 -114.6252,76.3812 -114.653,76.3729 -114.6857,76.3673 -114.9428,76.3524 -115.1394,76.3472 -115.18,76.3447 -115.2992,76.3175 -115.321,76.3119 -115.5333,76.2542 -115.5785,76.2396 -115.5928,76.1715 -115.5484,76.1423 -115.5223,76.1353 -115.5019,76.1317 -115.4566,76.1273 -115.4315,76.1262 -115.2249,76.1227 -115.0488,76.123 -114.9486,76.1224 -114.8363,76.1107 -114.7664,76.101 -114.7226,76.0943 -114.6873,76.082 -114.6226,76.0683 -114.5766,76.0647 -114.5287,76.0627 -114.4789,76.061 -114.385,76.0597 -114.3558,76.0512 -114.4068,76.0455 -114.4692,76.0435 -114.5295,76.042 -114.5539,76.0422 -114.6996,76.0486 -114.8076,76.058 -114.8316,76.0616 -114.9498,76.0744 -115.004,76.0772 -115.1234,76.0793 -115.2707,76.0802 -115.3189,76.0785 -115.4909,76.0791 -115.5407,76.0805 -115.5835,76.0843 -115.6335,76.0862 -115.7338,76.0901 -115.7586,76.0904 -115.8378,76.0895 -115.8875,76.0874 -115.97,76.081 -116.0161,76.0754 -116.1985,76.0481 -116.3153,76.0059 -116.3771,75.9497 -116.3745,75.9296 -116.344,75.9187 -116.3202,75.916 -116.2771,75.9151 -116.2036,75.9202 -116.1473,75.8671 -116.1919,75.8639 -116.2129,75.8656 -116.2369,75.8656 -116.2609,75.8648 -116.3079,75.8619 -116.3531,75.8568 -116.3823,75.8512 -116.4044,75.8412 -116.4095,75.8188 -116.3956,75.7966 -116.376,75.788 -116.353,75.7828 -116.3263,75.7781 -116.3003,75.7753 -116.1597,75.767 -115.821,75.7577 -115.7847,75.7575 -115.7315,75.7587 -115.6831,75.7619 -115.5476,75.7777 -115.509,75.781 -115.4259,75.7825 -115.3615,75.7816 -115.2203,75.7745 -115.0748,75.7709 -114.973,75.7715 -114.9023,75.7733 -114.7861,75.7819 -114.745,75.7878 -114.6989,75.792 -114.5883,75.7996 -114.5626,75.8007 -114.5116,75.7983 -114.489,75.7832 -114.5202,75.7676 -114.5934,75.7529 -114.6142,75.7499 -114.6623,75.7464 -114.6822,75.7468 -114.7313,75.7491 -114.7541,75.7512 -114.8205,75.7526 -114.994,75.7485 -115.0387,75.7416 -115.0625,75.7332 -115.0856,75.7315 -115.1875,75.7282 -115.2745,75.7267 -115.3028,75.7279 -115.3463,75.7352 -115.3714,75.7417 -115.4109,75.7473 -115.4366,75.7479 -115.4613,75.742 -115.4788,75.7253 -115.5025,75.7205 -115.7164,75.7033 -115.7846,75.7003 -116.0027,75.6983 -116.2082,75.6963 -116.2662,75.6968 -116.3971,75.695 -116.44,75.6935 -116.4936,75.6898 -116.5366,75.6852 -116.5637,75.6803 -116.6004,75.6681 -116.6326,75.6557 -116.6938,75.631 -116.7009,75.626 -116.717,75.6195 -116.7488,75.6045 -116.8917,75.5273 -116.915,75.5117 -116.9265,75.4861 -116.9026,75.4701 -116.8737,75.4676 -116.5233,75.4592 -116.1668,75.4521 -116.1411,75.4515 -116.071,75.452 -116.0286,75.4534 -115.7952,75.4675 -115.7732,75.4745 -115.5708,75.5083 -115.3963,75.5366 -115.3496,75.5411 -115.2885,75.5452 -115.2013,75.544 -115.1545,75.5442 -115.0751,75.547 -115.0075,75.5539 -114.962,75.5615 -114.9,75.573 -114.8286,75.5878 -114.786,75.5945 -114.759,75.5962 -114.736,75.5969 -114.7113,75.5954 -114.684,75.5879 -114.7259,75.5834 -114.7592,75.5835 -114.7797,75.5809 -114.878,75.554 -114.9634,75.5219 -115.0495,75.4969 -115.1463,75.4859 -115.1895,75.4814 -115.2137,75.479 -115.2483,75.4781 -115.3026,75.4729 -115.3293,75.4678 -115.3717,75.4588 -115.5014,75.4241 -115.6054,75.3981 -115.6562,75.3871 -115.705,75.3795 -115.8079,75.371 -116.4344,75.374 -116.5583,75.3759 -116.5786,75.3768 -116.7218,75.3779 -116.7832,75.3766 -116.8265,75.3748 -116.8988,75.3708 -116.9205,75.3679 -116.9412,75.3632 -117.001,75.3432 -117.0335,75.3319 -117.1006,75.3081 -117.1355,75.2949 -117.2169,75.2564 -117.3488,75.1873 -117.3588,75.1416 -117.3488,75.1389 17,-2.0,Greenland -19.6165,76.7373 -19.5437,76.7074 -19.5338,76.702 -19.5435,76.6921 -19.555,76.687 -19.595,76.6795 -19.6354,76.6723 -19.6604,76.6719 -19.712,76.6729 -19.7293,76.6745 -19.751,76.6821 -19.6996,76.7296 -19.6851,76.7382 -19.6691,76.7426 -19.6442,76.745 -19.6165,76.7373 -19.6165,76.7373 15,7.0,Russia 97.5714,76.6565 97.4598,76.7031 97.449,76.7085 97.4553,76.7167 97.4639,76.7232 97.4839,76.7301 97.5134,76.7347 97.6151,76.7323 97.6385,76.7286 97.6458,76.719 97.6234,76.6802 97.6167,76.6722 97.5897,76.6607 97.5714,76.6565 97.5714,76.6565 50,-6.0,Canada -89.7238,76.3612 -89.7446,76.3615 -89.7857,76.3683 -89.8263,76.3762 -89.8952,76.3959 -89.9284,76.4065 -89.9581,76.4199 -89.9701,76.4266 -90.1544,76.527 -90.2196,76.553 -90.2461,76.5661 -90.3045,76.6005 -90.3144,76.6063 -90.3381,76.6231 -90.3397,76.6374 -90.3232,76.6548 -90.3107,76.6622 -90.2849,76.6735 -90.2505,76.6838 -90.215,76.6899 -89.9714,76.7184 -89.8441,76.7263 -89.7668,76.7295 -89.7246,76.7271 -89.6694,76.7192 -89.6074,76.7064 -89.568,76.6966 -89.5221,76.6756 -89.4171,76.6252 -89.4315,76.5996 -89.446,76.5805 -89.4731,76.5641 -89.4878,76.5601 -89.5118,76.5589 -89.5632,76.558 -89.5824,76.5508 -89.6065,76.4916 -89.6025,76.482 -89.5622,76.4383 -89.5392,76.4244 -89.501,76.4161 -89.4669,76.411 -89.4446,76.4083 -89.4298,76.4029 -89.418,76.3943 -89.5029,76.3773 -89.5291,76.3743 -89.6795,76.3681 -89.7238,76.3612 -89.7238,76.3612 17,7.0,Russia 97.1613,76.624 97.1043,76.6365 97.0809,76.6401 97.0541,76.6383 96.9617,76.6379 96.8987,76.6421 96.8273,76.6548 96.8533,76.6605 97.2266,76.6676 97.2893,76.6679 97.3363,76.6667 97.3212,76.6373 97.2686,76.6399 97.239,76.6394 97.215,76.6371 97.1613,76.624 97.1613,76.624 26,11.0,Russia 147.9782,76.5251 147.9704,76.5315 147.9927,76.5517 148.0185,76.5628 148.0493,76.5738 148.0672,76.5789 148.2413,76.6206 148.3211,76.6365 148.5564,76.6428 148.6871,76.6462 148.8744,76.6589 148.8873,76.644 148.7931,76.5576 148.7852,76.5518 148.7438,76.5415 148.7231,76.5406 148.7002,76.5462 148.6529,76.5543 148.6292,76.5576 148.6042,76.5592 148.5538,76.5607 148.3281,76.5505 148.2206,76.5401 148.061,76.5282 147.9782,76.5251 147.9782,76.5251 84,-2.0,Greenland -18.5962,76.056 -18.5762,76.0367 -18.5208,75.9741 -18.5125,75.9631 -18.5057,75.9517 -18.5015,75.9398 -18.497,75.9162 -18.5016,75.8813 -18.5091,75.8376 -18.5363,75.7958 -18.5471,75.7898 -18.57,75.7847 -18.5833,75.7833 -18.5938,75.7844 -18.6034,75.7922 -18.5976,75.8107 -18.5813,75.8408 -18.5792,75.8587 -18.5846,75.8743 -18.6146,75.9042 -18.627,75.9152 -18.6455,75.9266 -18.6691,75.9437 -18.7228,75.9867 -18.7407,76.0044 -18.7779,76.0434 -18.8259,76.0951 -18.8402,76.113 -18.8504,76.13 -18.855,76.1418 -18.8514,76.1564 -18.8326,76.1728 -18.8384,76.1854 -18.8489,76.1945 -18.9233,76.2509 -18.9832,76.302 -19.0468,76.3583 -19.0744,76.3868 -19.0815,76.3985 -19.0874,76.4207 -19.0815,76.4313 -19.0621,76.454 -19.0467,76.4663 -19.0241,76.4763 -19.0088,76.4812 -18.9909,76.485 -18.9446,76.4845 -18.8929,76.4774 -18.8672,76.4749 -18.7743,76.4715 -18.7351,76.4721 -18.7252,76.4739 -18.7094,76.4787 -18.7289,76.5012 -18.7509,76.5051 -18.7764,76.5074 -18.9267,76.5141 -19.0157,76.6018 -19.0264,76.6175 -19.0148,76.6321 -19.0017,76.6384 -18.9763,76.6467 -18.9647,76.6498 -18.9309,76.6524 -18.9183,76.6518 -18.8875,76.6473 -18.8762,76.6438 -18.7118,76.5905 -18.6814,76.5791 -18.67,76.5736 -18.6336,76.5512 -18.6059,76.5218 -18.5967,76.5078 -18.5985,76.4955 -18.6354,76.4524 -18.6655,76.4128 -18.6696,76.3983 -18.6426,76.2247 -18.6063,76.1787 -18.5955,76.1676 -18.5584,76.1272 -18.5526,76.1112 -18.5962,76.056 -18.5962,76.056 15,-2.0,Greenland -19.6435,76.6432 -19.6186,76.637 -19.5502,76.6095 -19.5714,76.5913 -19.5919,76.5891 -19.663,76.588 -19.6891,76.5916 -19.7803,76.6132 -19.7991,76.6255 -19.7807,76.6421 -19.7696,76.6463 -19.7384,76.6483 -19.7042,76.6479 -19.6435,76.6432 -19.6435,76.6432 36,-6.0,Canada -101.3341,76.4639 -101.2757,76.4547 -101.2522,76.452 -101.1653,76.4452 -101.116,76.4441 -101.0924,76.4447 -101.0387,76.4475 -100.9859,76.4521 -100.9048,76.4624 -100.6356,76.5013 -100.4737,76.5269 -100.2002,76.5753 -100.0303,76.6072 -100.0104,76.6127 -99.976,76.6179 -99.9619,76.6252 -99.982,76.6276 -100.197,76.6452 -100.2213,76.6467 -100.2463,76.6477 -100.4034,76.6454 -100.4554,76.644 -100.6137,76.6268 -100.6687,76.6196 -100.6947,76.6155 -100.7169,76.6097 -100.7479,76.5959 -100.7524,76.5842 -100.7711,76.5766 -100.9248,76.5426 -101.029,76.5338 -101.0966,76.5333 -101.2325,76.5149 -101.2862,76.5053 -101.3989,76.4776 -101.3341,76.4639 34,-6.0,Canada -99.8152,76.6085 -99.8113,76.6078 -99.7652,76.6062 -99.7441,76.6064 -99.7251,76.6096 -99.6298,76.6106 -99.6145,76.6109 -99.6027,76.6094 -99.4481,76.5931 -99.3733,76.5684 -99.3424,76.5638 -99.2975,76.561 -99.2717,76.5612 -99.244,76.5652 -99.1481,76.5878 -99.1635,76.5966 -99.244,76.6163 -99.3371,76.6356 -99.361,76.6384 -99.4084,76.6383 -99.4352,76.6363 -99.4627,76.6334 -99.5338,76.6287 -99.584,76.6269 -99.6902,76.6242 -99.7112,76.6276 -99.6872,76.6352 -99.7129,76.6418 -99.7512,76.6419 -99.7686,76.6413 -99.7961,76.6384 -99.8152,76.6351 -99.8403,76.6127 -99.8152,76.6085 14,7.0,Russia 97.2428,76.4718 97.0404,76.4943 97.0803,76.5834 97.0928,76.6057 97.1165,76.6082 97.1412,76.6071 97.1623,76.6058 97.1728,76.6002 97.3166,76.4884 97.3105,76.4799 97.293,76.4759 97.2692,76.4731 97.2428,76.4718 97.2428,76.4718 25,7.0,Russia 95.3755,76.5643 95.4114,76.5806 95.429,76.5849 95.4616,76.5844 95.5431,76.5809 95.5578,76.5727 95.4388,76.5365 95.4094,76.5362 95.2607,76.537 95.2251,76.5382 95.2013,76.5414 95.1786,76.5485 95.1661,76.5611 95.1404,76.5902 95.1537,76.5939 95.2104,76.6039 95.24,76.6044 95.2709,76.595 95.2797,76.5855 95.2999,76.5707 95.3109,76.5655 95.3264,76.5607 95.3538,76.558 95.3755,76.5643 95.3755,76.5643 31,7.0,Russia 94.8525,76.6031 94.8615,76.5934 94.9531,76.5638 94.9682,76.5592 95.0526,76.5481 95.0332,76.5396 95.013,76.5357 94.9892,76.533 94.9601,76.5325 94.9274,76.5327 94.8203,76.5361 94.7555,76.5362 94.6763,76.5316 94.6527,76.5288 94.6123,76.5218 94.5829,76.521 94.5689,76.5221 94.5535,76.5269 94.5447,76.5366 94.5504,76.547 94.5646,76.5524 94.6049,76.5597 94.689,76.5731 94.7044,76.5739 94.7318,76.5714 94.7554,76.5681 94.7804,76.5666 94.8005,76.5703 94.8115,76.5766 94.8525,76.6031 94.8525,76.6031 28,7.0,Russia 96.1887,76.5965 96.1955,76.5848 96.084,76.5218 95.9683,76.5007 95.941,76.5036 95.9178,76.5067 95.8902,76.5094 95.7319,76.5119 95.7083,76.509 95.6796,76.4983 95.6269,76.501 95.6176,76.5089 95.6185,76.5387 95.627,76.5462 95.6412,76.5515 95.6588,76.5561 95.6995,76.563 95.7261,76.5646 95.7535,76.562 95.7985,76.5611 95.8202,76.559 95.8305,76.5618 95.8979,76.5762 95.9125,76.5817 96.0342,76.595 96.1367,76.5946 96.1887,76.5965 96.1887,76.5965 20,-7.0,Canada -102.5204,75.4719 -102.3921,75.409 -102.2537,75.4057 -102.2189,75.4154 -102.168,75.4247 -102.1189,75.4314 -102.0715,75.4366 -101.9303,75.4472 -101.9303,75.6084 -101.9818,75.6156 -102.0293,75.6203 -102.0698,75.6229 -102.095,75.6228 -102.2564,75.6149 -102.29,75.6093 -102.4068,75.5643 -102.4193,75.5229 -102.5204,75.5247 -102.592,75.507 -102.5204,75.4719 12,-7.0,Canada -102.0715,75.6842 -102.0526,75.6743 -101.9995,75.6753 -101.9504,75.6801 -101.9303,75.6801 -101.9303,75.7639 -101.9829,75.7554 -102.0067,75.7504 -102.0334,75.74 -102.0562,75.7284 -102.085,75.6912 -102.0715,75.6842 73,-7.0,Canada -104.3392,76.4225 -104.2674,76.3737 -104.2264,76.3719 -104.2011,76.3726 -104.1845,76.3803 -104.1526,76.3826 -104.1377,76.3762 -104.0953,76.3525 -104.0345,76.2528 -104.0487,76.246 -104.0676,76.2439 -104.0813,76.2401 -104.0953,76.2346 -104.1101,76.2261 -104.1018,76.2196 -104.0846,76.2152 -104.0411,76.2103 -103.8181,76.2083 -103.7686,76.2092 -103.5559,76.2022 -103.4595,76.1955 -103.4085,76.1962 -103.2626,76.2021 -103.0866,76.2173 -102.9902,76.2288 -102.9134,76.2464 -102.8813,76.2545 -102.8069,76.2764 -102.7513,76.2978 -102.7384,76.3039 -102.7236,76.3121 -102.7131,76.3242 -102.7195,76.3361 -102.7449,76.3455 -102.766,76.3492 -102.9521,76.377 -103.0281,76.3864 -103.0912,76.3834 -103.1112,76.3861 -103.2762,76.4125 -103.2958,76.4204 -103.2906,76.4362 -103.4918,76.5114 -103.5082,76.5128 -103.5307,76.5092 -103.5636,76.498 -103.5735,76.491 -103.5722,76.4733 -103.5835,76.4646 -103.7379,76.4507 -103.7571,76.457 -103.7317,76.4703 -103.6627,76.49 -103.6424,76.5017 -103.6301,76.5127 -103.6283,76.5269 -103.6432,76.5355 -103.6668,76.5407 -103.734,76.5526 -103.7563,76.5556 -103.837,76.5604 -103.919,76.5593 -103.97,76.5579 -104.0172,76.5546 -104.0542,76.5511 -104.0762,76.5467 -104.1089,76.5364 -104.1473,76.5266 -104.2388,76.5082 -104.2652,76.5036 -104.3392,76.4944 -104.3648,76.4399 -104.3392,76.4225 39,7.0,Russia 112.2566,76.3333 112.1634,76.3395 112.1306,76.3426 112.1067,76.3467 112.0514,76.3795 112.0254,76.4089 112.0151,76.4142 111.9856,76.4244 111.962,76.4283 111.9,76.4349 111.8729,76.4347 111.8142,76.4368 111.786,76.44 111.7615,76.4442 111.638,76.4897 111.6491,76.5163 111.6701,76.5195 111.7715,76.5245 111.7989,76.5249 111.8285,76.5238 111.8526,76.5199 111.9099,76.5126 111.9433,76.5095 111.9727,76.5088 111.9895,76.5116 111.997,76.5283 112.0044,76.545 112.0279,76.5474 112.0546,76.5451 112.1867,76.5184 112.2043,76.5105 112.2463,76.441 112.3645,76.4182 112.3839,76.4138 112.3941,76.4051 112.2901,76.3417 112.2749,76.3351 112.2566,76.3333 112.2566,76.3333 24,-2.0,Greenland -21.1139,76.4468 -21.1766,76.4524 -21.2497,76.4578 -21.3218,76.4599 -21.3425,76.4595 -21.3693,76.4627 -21.3926,76.4682 -21.4595,76.4887 -21.4857,76.5031 -21.4659,76.5119 -21.39,76.5322 -21.3747,76.5356 -21.3342,76.5391 -20.9938,76.5349 -20.9046,76.517 -20.9128,76.511 -20.9826,76.5011 -21.0644,76.4779 -21.0357,76.4664 -21.0255,76.4591 -21.0358,76.4564 -21.0873,76.4487 -21.1139,76.4468 -21.1139,76.4468 27,-2.0,Greenland -69.424,76.4978 -69.3933,76.5006 -69.3608,76.501 -69.3343,76.4959 -69.3202,76.4925 -69.2681,76.4672 -69.2811,76.4584 -69.2963,76.454 -69.3829,76.4334 -69.4238,76.4264 -69.4714,76.4216 -69.5353,76.4198 -69.565,76.4199 -69.7527,76.4369 -69.7752,76.4397 -69.808,76.4456 -69.8367,76.4585 -69.8263,76.4672 -69.7736,76.4779 -69.7481,76.4808 -69.6791,76.4848 -69.6296,76.4866 -69.5092,76.4892 -69.4689,76.4919 -69.4352,76.4958 -69.424,76.4978 -69.424,76.4978 15,7.0,Russia 93.6845,76.5007 93.7931,76.4939 94.0261,76.4765 94.0537,76.4741 94.0775,76.4707 94.0889,76.4655 94.0718,76.4612 93.8754,76.4642 93.6154,76.4726 93.6051,76.4803 93.6178,76.4909 93.6313,76.4961 93.6546,76.4987 93.6845,76.5007 93.6845,76.5007 22,-2.0,Greenland -20.6637,76.4053 -20.6527,76.3985 -20.6377,76.3801 -20.6367,76.3052 -20.6467,76.2964 -20.6864,76.2866 -20.7346,76.2818 -20.783,76.2798 -20.8332,76.281 -20.8869,76.287 -21.0206,76.3174 -21.0414,76.3222 -21.0622,76.3282 -21.0776,76.3359 -21.0723,76.3462 -20.7763,76.4159 -20.7542,76.4187 -20.7354,76.4187 -20.6959,76.4136 -20.6736,76.4094 -20.6637,76.4053 -20.6637,76.4053 15,-5.0,Canada -83.8586,76.3981 -83.7754,76.3893 -83.7542,76.3864 -83.7387,76.3823 -83.6806,76.3609 -83.6704,76.3563 -83.7252,76.3178 -83.7486,76.3148 -83.7713,76.3175 -83.8714,76.336 -83.8855,76.3424 -83.9008,76.3987 -83.8893,76.4011 -83.8586,76.3981 -83.8586,76.3981 18,-2.0,Greenland -69.7857,76.3504 -69.7637,76.3478 -69.7094,76.3351 -69.6973,76.3273 -69.7216,76.305 -69.7384,76.2933 -69.7533,76.289 -69.7783,76.2858 -69.8106,76.2857 -69.9137,76.2965 -69.9533,76.3036 -69.9711,76.3096 -69.9882,76.3289 -69.9654,76.3396 -69.9456,76.3412 -69.8065,76.3505 -69.7857,76.3504 -69.7857,76.3504 18,-2.0,Greenland -20.1201,76.3083 -20.0621,76.2945 -20.0462,76.2871 -20.0592,76.2799 -20.0855,76.2789 -20.1273,76.2799 -20.1742,76.284 -20.201,76.2849 -20.2692,76.2841 -20.5279,76.2701 -20.5045,76.2909 -20.4702,76.293 -20.3121,76.3078 -20.2741,76.3121 -20.2237,76.3217 -20.145,76.3413 -20.1201,76.3083 -20.1201,76.3083 22,7.0,Russia 112.7995,76.2617 112.803,76.2724 112.8209,76.287 112.8477,76.3023 112.8939,76.3224 112.9134,76.3265 112.9386,76.3278 112.9669,76.324 112.9837,76.3161 112.9771,76.3061 112.9441,76.2893 112.9514,76.2806 113.0119,76.2737 113.0681,76.2729 113.0959,76.2689 113.1151,76.2646 113.1221,76.2558 113.0967,76.2501 112.9874,76.2507 112.841,76.257 112.7995,76.2617 112.7995,76.2617 31,-2.0,Greenland -20.9002,76.263 -20.8858,76.2522 -20.8703,76.248 -20.8527,76.2454 -20.8271,76.2429 -20.7765,76.2402 -20.6602,76.2196 -20.4511,76.1806 -20.4243,76.1735 -20.4102,76.1671 -20.373,76.1423 -20.3903,76.1333 -20.4321,76.1367 -20.4601,76.1411 -20.4725,76.1463 -20.5179,76.1602 -20.6843,76.2015 -20.7228,76.2107 -20.7657,76.2166 -20.8288,76.221 -20.8474,76.2211 -20.9042,76.2243 -20.9257,76.2268 -20.9525,76.2321 -20.9763,76.2401 -20.9865,76.2459 -20.9945,76.2558 -20.9585,76.269 -20.9241,76.2705 -20.9002,76.263 -20.9002,76.263 26,-2.0,Greenland -20.1256,76.2302 -20.1652,76.2255 -20.2222,76.181 -20.2858,76.1561 -20.3187,76.1514 -20.3354,76.153 -20.349,76.1557 -20.3584,76.1591 -20.3783,76.1696 -20.3945,76.1821 -20.4076,76.1908 -20.4178,76.1964 -20.4361,76.2017 -20.4766,76.212 -20.5631,76.2236 -20.6022,76.2306 -20.5873,76.2348 -20.5336,76.2456 -20.427,76.2571 -20.3983,76.2589 -20.1447,76.2448 -20.1155,76.2422 -20.1015,76.2386 -20.1123,76.2325 -20.1256,76.2302 -20.1256,76.2302 34,7.0,Russia 96.4879,76.0661 96.4632,76.066 96.4525,76.0713 96.4449,76.0918 96.4398,76.1057 96.4663,76.1453 96.5528,76.2315 96.5613,76.2388 96.5846,76.2411 96.6096,76.2411 96.7481,76.2342 96.7652,76.2326 96.7999,76.1949 96.7594,76.1779 96.7247,76.1694 96.6989,76.1676 96.6671,76.1678 96.6092,76.1669 96.5862,76.1643 96.5746,76.1582 96.5663,76.1506 96.5558,76.1195 96.5702,76.1218 96.5958,76.1318 96.6097,76.1392 96.6182,76.1454 96.6505,76.1493 96.6731,76.1457 96.7554,76.1307 96.7659,76.1252 96.7457,76.1218 96.6012,76.093 96.4879,76.0661 96.4879,76.0661 56,-7.0,Canada -104.1711,76.0181 -104.1166,75.9748 -104.0995,75.9709 -103.84,75.9491 -103.7966,75.9522 -103.77,75.9547 -103.693,75.95 -103.5908,75.9379 -103.6341,75.9334 -103.6803,75.9323 -103.6248,75.9244 -103.5768,75.9237 -103.5306,75.9242 -103.391,75.927 -103.0764,75.9286 -103.054,75.9295 -102.646,75.9636 -102.5704,75.9716 -102.5189,75.9781 -102.4935,75.9822 -102.4495,75.991 -102.3843,76.0068 -102.3635,76.0126 -102.3487,76.0179 -102.2932,76.0449 -102.2424,76.1081 -102.2523,76.1217 -102.2701,76.128 -102.3152,76.1376 -102.3411,76.1467 -102.3539,76.1619 -102.3631,76.1796 -102.3782,76.1871 -102.4375,76.1978 -102.4759,76.2034 -102.5272,76.2042 -102.5749,76.203 -102.7697,76.1983 -102.8195,76.1966 -102.841,76.1948 -103.046,76.1719 -103.3032,76.1575 -103.5596,76.142 -103.6259,76.132 -103.6649,76.1252 -103.7824,76.1144 -103.8557,76.1148 -103.8797,76.1165 -103.9544,76.1109 -103.9797,76.1082 -104.0052,76.1048 -104.0229,76.1002 -104.1616,76.0568 -104.1711,76.0511 -104.1879,76.0314 -104.1711,76.0181 66,7.0,Russia 96.0815,75.9901 96.0649,75.9916 96.0501,75.9965 95.9812,76.0208 95.9305,76.0413 95.9078,76.0446 95.8762,76.0449 95.7415,76.0389 95.7099,76.039 95.57,76.0469 95.5432,76.0493 95.4482,76.0621 95.4327,76.0652 95.3996,76.0777 95.3658,76.0869 95.2969,76.0924 95.2635,76.093 95.2118,76.0919 95.1346,76.0871 95.1031,76.0874 95.0683,76.0885 95.0453,76.0918 95.0263,76.0957 94.9965,76.1051 95.0438,76.1684 95.0517,76.1758 95.0776,76.1777 95.1095,76.1773 95.2103,76.1732 95.2252,76.1683 95.265,76.1458 95.3002,76.146 95.4308,76.1679 95.4481,76.1726 95.5159,76.1901 95.5406,76.1904 95.7734,76.1696 95.9534,76.1829 95.9901,76.1912 96.0366,76.1961 96.0682,76.1957 96.0952,76.193 96.3737,76.1529 96.3779,76.1408 96.3241,76.0485 96.299,76.0428 96.2765,76.0458 96.2657,76.0516 96.2522,76.082 96.2638,76.1023 96.2805,76.117 96.2691,76.1266 96.193,76.1575 96.1783,76.162 96.1546,76.1641 96.1285,76.1622 96.1056,76.1597 96.0916,76.1541 96.0801,76.148 96.0398,76.0854 96.1143,76.0689 96.1358,76.0582 96.1248,76.0357 96.0985,75.9943 96.0815,75.9901 96.0815,75.9901 27,7.0,Russia 94.4848,76.1461 94.5416,76.147 94.5814,76.1542 94.6116,76.1638 94.6252,76.1696 94.6328,76.177 94.6486,76.1796 94.6676,76.1758 94.7304,76.1613 94.5971,76.0744 94.5747,76.0717 94.4267,76.079 94.2356,76.0782 94.2156,76.0804 94.1464,76.1001 94.1767,76.1137 94.2097,76.1227 94.2287,76.1248 94.2517,76.1215 94.271,76.1177 94.3714,76.1078 94.4949,76.1004 94.5235,76.1012 94.5362,76.105 94.522,76.1175 94.4848,76.1461 94.4848,76.1461 481,10.0,Russia 136.691,75.5262 136.7688,75.5474 136.7865,75.5708 136.7707,75.5883 136.7421,75.5971 136.7173,75.6015 136.694,75.6144 136.7963,75.6707 136.8263,75.6775 136.8504,75.6792 136.9226,75.6809 137.1323,75.6726 137.1819,75.6647 137.2342,75.6575 137.2571,75.6507 137.3078,75.639 137.3323,75.6357 137.3605,75.6393 137.3415,75.6727 137.3093,75.682 137.2144,75.7041 137.0492,75.7717 137.0314,75.831 137.0682,75.8477 137.1143,75.86 137.1848,75.875 137.3031,75.8975 137.3267,75.9016 137.3508,75.904 137.3993,75.9066 137.5216,75.9091 137.5704,75.9083 137.5947,75.9098 137.6188,75.9122 137.6837,75.9367 137.7155,75.9515 137.7275,75.9697 137.6969,75.9759 137.6497,75.9612 137.6078,75.9492 137.584,75.9442 137.7509,76.0051 137.7839,76.0145 137.8319,76.0243 137.953,76.0379 137.9569,76.0123 138.0023,75.9636 138.0297,75.9534 138.0594,75.9521 138.0874,75.9953 138.0723,76.0161 138.1086,76.0575 138.1359,76.0726 138.1739,76.0849 138.2465,76.0969 138.3197,76.106 138.3443,76.1083 138.3932,76.1111 138.4425,76.1123 138.4805,76.112 138.567,76.0907 138.5698,76.0643 138.5922,76.0407 138.6345,76.0173 138.7064,75.9882 138.8025,75.9647 138.9022,75.95 138.9518,75.9428 138.9766,75.9406 139.0014,75.9376 139.076,75.9247 139.1213,75.9126 139.1616,75.9013 139.1914,75.8897 139.2565,75.872 139.2815,75.8686 139.3059,75.8664 139.3792,75.8665 139.4035,75.8653 139.4284,75.863 139.4481,75.8573 139.4781,75.8454 139.5173,75.8228 139.4944,75.8143 139.4697,75.8182 139.4457,75.819 139.407,75.7772 139.5483,75.7296 139.6458,75.7118 139.7725,75.6944 139.8323,75.7124 139.8565,75.7174 139.8804,75.7175 140.0021,75.7093 140.0506,75.7047 140.1091,75.6869 140.1431,75.672 140.1546,75.6452 140.0939,75.6124 140.0724,75.5979 140.0449,75.5444 140.0694,75.5337 140.0934,75.5302 140.2613,75.5158 140.4766,75.5039 140.5008,75.5025 140.5246,75.5028 140.5486,75.5058 140.5965,75.5158 140.6444,75.5275 140.6687,75.5361 140.5922,75.5738 140.4814,75.6326 140.5056,75.6784 140.5199,75.7347 140.4874,75.7911 140.5104,75.874 140.5298,75.8974 140.557,75.9201 140.5792,75.9319 140.5988,75.9378 140.6233,75.9424 140.6479,75.9446 140.7955,75.9503 140.8198,75.9489 140.9909,75.9284 141.1131,75.9117 141.1372,75.9079 141.1639,75.9002 141.1855,75.8924 141.2182,75.9099 141.0927,75.9608 140.9894,76.0441 140.911,76.0679 140.9358,76.0727 140.9606,76.0728 141.0097,76.0636 141.186,76.0201 141.3669,75.9922 141.6136,75.9262 141.734,75.8926 141.9681,75.8262 142.006,75.8138 142.0372,75.7945 142.0635,75.7752 142.1183,75.7612 142.1656,75.751 142.2617,75.7399 142.3582,75.7345 142.4783,75.7251 142.5019,75.7226 142.5973,75.7077 142.6931,75.6996 142.7415,75.6993 142.7658,75.7 142.8398,75.7079 142.9681,75.7261 142.989,75.7346 143.0139,75.7404 143.1625,75.759 143.1868,75.7602 143.2351,75.7596 143.2596,75.7584 143.5026,75.7304 143.5259,75.7266 143.6194,75.7068 143.8276,75.6542 144.0778,75.6034 144.1246,75.5953 144.2195,75.5894 144.2438,75.59 144.2915,75.5883 144.3239,75.5833 144.3665,75.5562 144.4054,75.5378 144.428,75.5317 144.4982,75.5236 144.6156,75.512 144.7093,75.5044 144.756,75.499 144.8024,75.4912 144.8248,75.4861 144.8958,75.4642 144.9846,75.4098 144.9525,75.4053 144.8822,75.409 144.8341,75.4085 144.8099,75.4066 144.6868,75.3892 144.6618,75.3854 144.5912,75.3685 144.5307,75.3527 144.4823,75.3488 144.4093,75.34 144.3843,75.3356 144.3518,75.3273 144.3171,75.3101 144.295,75.2954 144.2807,75.2229 144.3106,75.214 144.3964,75.1956 144.419,75.1931 144.4658,75.1912 144.4887,75.1887 144.5176,75.1793 144.5438,75.1615 144.4424,75.1488 144.3344,75.1276 144.3283,75.0976 144.3188,75.065 144.298,75.0532 144.2416,75.0416 144.2175,75.0387 144.1975,75.0326 144.1233,75.01 144.0728,74.9856 144.0203,74.9548 143.9649,74.941 143.942,74.9402 143.9184,74.9402 143.8956,74.942 143.8729,74.9446 143.8498,74.9462 143.8035,74.9465 143.7329,74.9405 143.6854,74.9295 143.6383,74.923 143.6151,74.9221 143.5917,74.9224 143.569,74.9238 143.5234,74.9303 143.4778,74.9424 143.442,74.9548 143.3966,74.967 143.3738,74.9711 143.2121,74.9846 143.1892,74.9862 143.1659,74.9864 143.1191,74.9821 143.0954,74.9765 143.0759,74.9693 143.053,74.966 143.0062,74.9618 142.983,74.9634 142.9597,74.9658 142.9371,74.9696 142.9138,74.9746 142.8682,74.9869 142.822,74.9945 142.6566,75.0149 142.5874,75.0214 142.5641,75.0218 142.5411,75.0243 142.5121,75.0326 142.4861,75.0506 142.4813,75.0717 142.4484,75.1135 142.4255,75.1175 142.4021,75.1188 142.3787,75.1176 142.3553,75.1189 142.3256,75.126 142.2935,75.1588 142.2745,75.2003 142.2519,75.2094 142.2285,75.2154 142.1825,75.2254 142.1459,75.2376 142.1098,75.2571 142.1207,75.3527 142.2425,75.4072 142.2869,75.4248 142.3414,75.4412 142.4143,75.4537 142.5015,75.4672 142.5697,75.4762 142.6237,75.4891 142.6462,75.5157 142.649,75.5576 142.6298,75.5782 142.6114,75.5877 142.5563,75.6058 142.5325,75.6106 142.5087,75.6119 142.2736,75.6212 142.201,75.6181 142.1526,75.6136 142.0553,75.6047 142.0357,75.567 142.0077,75.5563 141.9833,75.554 141.8391,75.5491 141.7508,75.4851 141.7256,75.3957 141.7667,75.2734 141.8269,75.2284 141.9005,75.2039 141.9324,75.1918 142.0052,75.1639 142.0327,75.1519 142.203,75.0432 142.2258,75.0027 142.2523,74.9894 142.2984,74.9816 142.368,74.9728 142.4373,74.9653 142.4628,74.9633 142.5092,74.9632 142.579,74.966 142.6486,74.9618 142.718,74.9542 142.7863,74.9391 142.9697,74.9055 143.0157,74.8995 143.0388,74.8978 143.062,74.8987 143.1321,74.9088 143.1555,74.9108 143.1785,74.9115 143.2016,74.909 143.2241,74.9027 143.2595,74.8904 143.29,74.8753 143.3216,74.8343 143.268,74.8211 143.0787,74.7873 143.0554,74.7849 142.9414,74.7922 142.8954,74.7926 142.8033,74.7912 142.7573,74.7903 142.5813,74.7815 142.4023,74.7854 142.371,74.7912 142.3155,74.7899 142.2829,74.7823 142.2494,74.7438 142.2739,74.7396 142.3306,74.7408 142.2074,74.7145 142.1845,74.7112 142.1157,74.7092 142.07,74.7108 142.0246,74.7149 142.0018,74.7173 141.9793,74.7211 141.6994,74.7873 141.6452,74.8056 141.601,74.8359 141.6249,74.8541 141.6482,74.8571 141.6714,74.8594 141.6947,74.8606 141.7407,74.8579 141.7634,74.8555 141.8453,74.8358 141.8858,74.8248 141.9084,74.8186 141.9312,74.8136 141.9542,74.815 141.983,74.8269 141.8541,74.8948 141.8197,74.9011 141.7964,74.9013 141.6114,74.8942 141.4258,74.8829 141.3185,74.862 141.2119,74.8442 141.1655,74.8382 141.1423,74.8363 141.0729,74.8305 140.8654,74.8142 140.7507,74.8085 140.6812,74.8075 140.6124,74.8051 140.5477,74.803 140.4559,74.7887 140.3873,74.7814 140.3181,74.7756 140.2725,74.7719 140.2263,74.7694 140.089,74.7551 139.9292,74.7343 139.6927,74.7289 139.6124,74.7927 139.4908,74.8289 139.3924,74.855 139.3265,74.8715 139.3032,74.8764 139.2803,74.8764 139.1669,74.8468 139.0968,74.8261 139.1083,74.7689 139.1322,74.7583 139.1556,74.7535 139.2017,74.7504 139.1715,74.6953 139.1353,74.6594 139.024,74.5985 138.9819,74.5836 138.9596,74.5777 138.8705,74.5579 138.8482,74.554 138.8033,74.5492 138.7354,74.5452 138.713,74.5451 138.6902,74.5462 138.6672,74.5482 138.6442,74.5519 138.574,74.5692 138.5321,74.5813 138.4942,74.5929 138.4521,74.6046 138.4051,74.6164 138.382,74.6208 138.3127,74.6276 138.1049,74.6478 137.8969,74.665 137.8485,74.6689 137.8256,74.67 137.8023,74.6721 137.779,74.6756 137.7557,74.6803 137.7083,74.6904 137.665,74.7019 137.514,74.7502 137.4721,74.789 137.4563,74.8128 137.445,74.8547 137.4279,74.8725 137.4053,74.8831 137.3812,74.8888 137.3134,74.9033 137.2601,74.9125 137.2367,74.9147 137.165,74.923 137.1407,74.9265 137.1168,74.931 136.9573,74.9703 136.7714,75.0277 136.7506,75.0392 136.6051,75.1274 136.5402,75.1668 136.489,75.2468 136.505,75.2593 136.5362,75.2684 136.5584,75.2737 136.6042,75.2812 136.6276,75.2827 136.6511,75.2831 136.675,75.281 136.6965,75.2694 136.7259,75.2429 136.7513,75.2344 136.7761,75.23 136.8001,75.2265 136.8475,75.2248 136.8943,75.2275 137.0095,75.241 137.0319,75.2472 137.0524,75.2741 137.0453,75.2983 137.0206,75.3054 136.9713,75.3143 136.9231,75.3175 136.8994,75.317 136.8761,75.3156 136.8536,75.3109 136.8246,75.3014 136.8008,75.2921 136.7765,75.2942 136.7582,75.3119 136.765,75.348 136.8138,75.365 136.8325,75.4234 136.9113,75.4859 136.8334,75.5302 136.7878,75.5417 136.7543,75.5392 136.691,75.5262 136.691,75.5262 18,11.0,Russia 152.1332,76.0124 152.09,76.0228 152.0392,76.043 152.0307,76.0521 152.0585,76.0779 152.0859,76.0889 152.1131,76.0912 152.3282,76.1043 152.3432,76.0971 152.3754,76.0507 152.358,76.0122 152.3421,76.0043 152.3145,76.0004 152.2374,75.9976 152.2132,75.9985 152.1903,76.0019 152.1332,76.0124 152.1332,76.0124 22,3.0,Russia 59.7651,76.0273 59.8732,76.0494 60.2717,76.0811 60.297,76.0818 60.3251,76.0755 60.323,76.0632 60.3033,76.0522 60.2826,76.0483 60.2295,76.0497 60.1337,76.0438 60.1142,76.0388 60.0969,76.0282 60.1008,76.0129 60.0802,76.009 59.989,75.9998 59.7128,75.994 59.7,75.9997 59.7125,76.0104 59.7253,76.0159 59.7431,76.0223 59.7651,76.0273 59.7651,76.0273 17,10.0,Russia 140.5026,75.952 140.4574,75.9868 140.4685,75.9999 140.5227,76.0226 140.5424,76.0281 140.5673,76.0329 140.5918,76.0367 140.6164,76.0362 140.6413,76.0315 140.6828,76.005 140.685,75.9785 140.6604,75.9747 140.562,75.9705 140.5374,75.9656 140.5175,75.9594 140.5026,75.952 140.5026,75.952 23,-6.0,Canada -94.5888,76.029 -94.5782,76.0148 -94.5661,75.9894 -94.6054,75.9615 -94.6244,75.9509 -94.6408,75.9466 -94.6637,75.9437 -94.7416,75.9403 -94.7621,75.9405 -94.7838,75.9435 -94.797,75.9488 -94.8208,75.9608 -94.8364,75.9703 -94.8778,76.0066 -94.855,76.0111 -94.8286,76.006 -94.811,76.0008 -94.7947,75.9984 -94.7647,75.9971 -94.7473,75.9984 -94.7269,76.0018 -94.5888,76.029 -94.5888,76.029 60,-5.0,Canada -78.6724,76.0082 -78.6011,75.9907 -78.5854,75.9858 -78.5783,75.9758 -78.6097,75.9479 -78.6254,75.9402 -78.6413,75.9362 -78.7016,75.9245 -78.7783,75.9078 -78.8494,75.8911 -78.8647,75.8868 -78.9243,75.8683 -78.9357,75.8629 -78.9492,75.8543 -78.9563,75.8424 -78.9515,75.8288 -78.9205,75.8118 -78.8924,75.8033 -78.81,75.7814 -78.7912,75.778 -78.7703,75.775 -78.7246,75.7712 -78.7074,75.7689 -78.6955,75.7664 -78.6853,75.7604 -78.6607,75.7411 -78.6792,75.7331 -78.7024,75.7308 -78.8301,75.7304 -78.8506,75.7386 -78.8386,75.7467 -78.8233,75.7512 -78.8124,75.7639 -78.8356,75.7659 -79.0491,75.7687 -79.0994,75.7667 -79.1231,75.7645 -79.1415,75.7601 -79.1883,75.746 -79.2042,75.7387 -79.2389,75.7043 -79.3775,75.7546 -79.3997,75.756 -79.485,75.7539 -79.5061,75.7543 -79.5189,75.7576 -79.5312,75.7718 -79.3589,75.8381 -79.3462,75.8421 -79.1759,75.8947 -79.1539,75.8983 -79.0518,75.9208 -78.9125,75.9727 -78.9006,75.981 -78.8919,75.9929 -78.8654,76.0079 -78.703,76.0135 -78.6832,76.0121 -78.6724,76.0082 -78.6724,76.0082 78,-7.0,Canada -117.2942,76.0071 -117.1909,75.9923 -117.1632,75.9876 -117.1396,75.9786 -117.1614,75.9396 -117.246,75.8749 -117.3543,75.8143 -117.3775,75.8099 -117.42,75.8038 -117.4486,75.7921 -117.512,75.7531 -117.6151,75.6756 -117.6298,75.6581 -117.646,75.6227 -117.6908,75.5931 -117.7372,75.5795 -117.772,75.5726 -117.789,75.5677 -117.8177,75.5579 -117.8973,75.528 -117.9416,75.5064 -117.9439,75.4856 -117.9921,75.4668 -118.0304,75.453 -118.2588,75.3939 -118.2805,75.3908 -118.3792,75.3974 -118.3979,75.3987 -118.5021,75.4271 -118.55,75.4448 -118.6023,75.4571 -118.627,75.4589 -118.7557,75.462 -118.8043,75.461 -118.8702,75.4568 -118.8958,75.4593 -119.0131,75.4736 -119.04,75.4784 -119.0558,75.4832 -119.0679,75.4887 -119.0791,75.4971 -119.0733,75.509 -119.0476,75.5252 -118.9469,75.5684 -118.86,75.5963 -118.7855,75.6141 -118.6262,75.6722 -118.4598,75.7363 -118.4278,75.7561 -118.3879,75.7759 -118.2898,75.8088 -118.2522,75.818 -118.2347,75.8218 -118.0752,75.8539 -118.0386,75.8592 -118.0111,75.8604 -117.8653,75.8606 -117.8396,75.8613 -117.8236,75.8645 -117.8058,75.8754 -117.8005,75.8874 -117.7756,75.9167 -117.7593,75.9224 -117.742,75.927 -117.7084,75.9312 -117.6688,75.9327 -117.6283,75.9359 -117.6047,75.9403 -117.5708,75.9501 -117.5581,75.956 -117.5596,75.9698 -117.4495,76.001 -117.3967,76.008 -117.3777,76.0099 -117.3332,76.0101 -117.3121,76.009 -117.2942,76.0071 -117.2942,76.0071 20,7.0,Russia 97.0656,75.9948 97.0552,75.9849 97.0407,75.9795 96.844,75.9138 96.8127,75.9043 96.7957,75.8996 96.7559,75.8929 96.6451,75.8794 96.6226,75.8769 96.498,75.8683 96.4694,75.8678 96.451,75.8718 96.4333,75.8797 96.4259,75.9005 96.4408,75.9093 96.4574,75.9137 96.4973,75.9208 96.931,75.9788 97.0656,75.9948 97.0656,75.9948 90,-7.0,Canada -103.6534,75.8196 -103.6475,75.8174 -103.6369,75.8121 -103.6277,75.8025 -103.6138,75.7918 -103.5997,75.7912 -103.5236,75.7926 -103.4831,75.7895 -103.4354,75.7825 -103.4119,75.7808 -103.3681,75.782 -103.3473,75.7843 -103.3258,75.7886 -103.3054,75.7904 -103.2371,75.7919 -103.1664,75.795 -103.1459,75.7965 -103.1092,75.7974 -103.0932,75.7994 -103.0525,75.8012 -103.0025,75.8061 -102.9782,75.8077 -102.9323,75.8132 -102.8705,75.819 -102.7988,75.8289 -102.7239,75.8362 -102.6498,75.841 -102.5256,75.8531 -102.5048,75.8542 -102.454,75.8612 -102.429,75.8633 -102.4095,75.8662 -102.2824,75.8784 -102.2317,75.884 -102.1315,75.8932 -102.0805,75.8987 -102.0585,75.9029 -102.0443,75.9086 -102.0332,75.9223 -102.0362,75.9464 -102.0501,75.9603 -102.0673,75.9665 -102.0846,75.971 -102.1142,75.9797 -102.1416,75.9821 -102.1816,75.9827 -102.2447,75.982 -102.3209,75.9786 -102.3712,75.9747 -102.3946,75.9717 -102.4216,75.97 -102.4696,75.9657 -102.5728,75.9599 -102.6023,75.9569 -102.6281,75.9528 -102.6683,75.9428 -102.6938,75.9398 -102.7188,75.9374 -102.7636,75.9364 -102.8323,75.9359 -102.8489,75.9343 -102.869,75.9296 -102.8911,75.9179 -102.9091,75.9133 -102.9335,75.9119 -102.9757,75.9122 -103.0024,75.9115 -103.0271,75.91 -103.0524,75.9067 -103.0777,75.9024 -103.1034,75.8989 -103.1249,75.8947 -103.1689,75.8838 -103.1868,75.8783 -103.2087,75.8731 -103.2342,75.8685 -103.2664,75.8683 -103.2861,75.8696 -103.31,75.87 -103.3992,75.8668 -103.4196,75.8656 -103.4698,75.8598 -103.4827,75.8561 -103.4965,75.8504 -103.514,75.8467 -103.537,75.8438 -103.613,75.8368 -103.6534,75.8356 -103.6794,75.8295 -103.6534,75.8196 21,-2.0,Greenland -64.8501,75.9706 -64.832,75.9662 -64.7865,75.9529 -64.775,75.9447 -64.8327,75.9148 -64.846,75.9097 -64.8679,75.9069 -64.8989,75.9059 -64.9249,75.9076 -64.9427,75.9115 -65.0115,75.9279 -65.0268,75.9328 -65.039,75.9381 -65.0199,75.9412 -64.9667,75.945 -64.9345,75.954 -64.9106,75.9686 -64.8938,75.9764 -64.8742,75.9788 -64.8501,75.9706 -64.8501,75.9706 24,-2.0,Greenland -19.9127,75.8675 -19.9695,75.8562 -19.9912,75.8541 -20.0133,75.855 -20.0582,75.8593 -20.0927,75.8601 -20.2239,75.845 -20.2433,75.8428 -20.2771,75.8371 -20.2881,75.8332 -20.2994,75.8319 -20.3127,75.8397 -20.2981,75.8512 -20.287,75.8554 -20.2724,75.8588 -20.2496,75.8628 -20.0496,75.8888 -20.0174,75.8897 -19.9795,75.89 -19.9533,75.8888 -19.9365,75.8862 -19.8999,75.8728 -19.9127,75.8675 -19.9127,75.8675 44,6.0,Russia 82.6624,75.8024 82.6164,75.829 82.5425,75.8373 82.242,75.8395 82.2253,75.8354 82.1944,75.8342 82.1386,75.8365 82.0828,75.8393 82.058,75.8419 82.0401,75.8456 82.0296,75.8555 82.0509,75.8628 82.0744,75.8639 82.124,75.8593 82.2633,75.8717 82.3091,75.8855 82.3332,75.8883 82.3958,75.8872 82.4237,75.886 82.5427,75.8792 82.5949,75.8756 82.6165,75.8727 82.6655,75.8679 82.7424,75.8622 82.8473,75.8542 82.9,75.8509 82.9587,75.8489 83.018,75.8467 83.0422,75.8442 83.0635,75.841 83.0684,75.8311 83.0559,75.8218 83.0227,75.813 83.0023,75.8098 82.9785,75.8072 82.9478,75.8074 82.8918,75.8104 82.8282,75.8201 82.7972,75.8207 82.7699,75.8188 82.7262,75.8124 82.6822,75.806 82.6624,75.8024 82.6624,75.8024 39,-7.0,Canada -103.0835,75.6474 -103.0386,75.6409 -103.016,75.6385 -102.9219,75.6365 -102.8531,75.6365 -102.7309,75.641 -102.5826,75.6471 -102.3527,75.6583 -102.3282,75.6607 -102.3071,75.6641 -102.2621,75.6731 -102.226,75.6828 -102.2136,75.6892 -102.1995,75.6999 -102.1881,75.7116 -102.1761,75.7406 -102.1688,75.7486 -102.1569,75.7575 -102.1467,75.7632 -102.1101,75.7742 -102.0626,75.7825 -102.0353,75.7862 -102.0124,75.7881 -101.9303,75.792 -101.9303,75.8788 -101.9329,75.8784 -102.0067,75.8702 -102.1487,75.857 -102.2377,75.8509 -102.3135,75.8465 -102.4106,75.8397 -102.7012,75.8026 -102.7261,75.7993 -102.7517,75.7947 -102.7736,75.7895 -102.7914,75.7841 -103.0258,75.6988 -103.0965,75.6561 -103.0835,75.6474 19,3.0,Russia 58.6306,75.8146 58.6877,75.8268 58.7079,75.8311 59.0331,75.8755 59.0798,75.8791 59.0963,75.8744 59.099,75.8591 59.08,75.848 59.0629,75.8419 59.0442,75.8367 59.0223,75.8337 58.7074,75.7993 58.6627,75.7944 58.5917,75.7902 58.5427,75.7888 58.5321,75.7927 58.5504,75.7977 58.6306,75.8146 58.6306,75.8146 36,-6.0,Canada -94.2189,75.8673 -94.2042,75.8615 -94.1888,75.8514 -94.1809,75.8313 -94.1587,75.7617 -94.1487,75.7552 -94.1096,75.7356 -94.0612,75.7084 -94.0448,75.6966 -94.0273,75.6743 -94.0337,75.6629 -94.0498,75.6549 -94.0659,75.6507 -94.0936,75.6475 -94.145,75.6444 -94.3216,75.6396 -94.3679,75.6399 -94.4149,75.6415 -94.4592,75.6474 -94.4777,75.6511 -94.5156,75.6621 -94.5335,75.6692 -94.547,75.6762 -94.5601,75.6877 -94.6354,75.8057 -94.6404,75.8154 -94.6415,75.827 -94.6314,75.8351 -94.6162,75.8386 -94.602,75.8406 -94.55,75.8435 -94.4745,75.8451 -94.4362,75.8487 -94.275,75.8792 -94.2189,75.8673 -94.2189,75.8673 31,-7.0,Canada -120.5324,75.8064 -120.5352,75.7717 -120.55,75.7385 -120.564,75.7194 -120.5866,75.6967 -120.6037,75.684 -120.6598,75.6513 -120.6846,75.638 -120.6988,75.6313 -120.7187,75.6266 -120.7592,75.6196 -120.7763,75.6185 -120.809,75.6197 -120.9409,75.6412 -120.9522,75.6495 -120.9326,75.666 -120.7821,75.6892 -120.7084,75.7025 -120.6946,75.7047 -120.6822,75.7149 -120.6655,75.7498 -120.6631,75.761 -120.6748,75.7756 -120.709,75.7901 -120.7047,75.8001 -120.6615,75.8195 -120.6441,75.8225 -120.542,75.8293 -120.5321,75.8177 -120.5324,75.8064 -120.5324,75.8064 17,6.0,Russia 81.4098,75.821 81.5127,75.8093 81.5588,75.8038 81.7554,75.7863 81.9261,75.7791 82.0243,75.7701 82.0262,75.7594 82.0033,75.752 81.9726,75.7529 81.7781,75.762 81.6242,75.7738 81.3609,75.8091 81.3394,75.8119 81.3259,75.8162 81.3739,75.8283 81.4098,75.821 81.4098,75.821 15,-7.0,Canada -122.2926,75.8128 -122.2418,75.8149 -122.197,75.8155 -122.0394,75.8088 -122.0132,75.8077 -121.9981,75.8046 -121.9869,75.796 -121.9989,75.7591 -122.0239,75.7513 -122.0594,75.7528 -122.3243,75.7871 -122.3535,75.7978 -122.3421,75.8048 -122.2926,75.8128 -122.2926,75.8128 22,-7.0,Canada -103.5539,75.7486 -103.5398,75.7434 -103.5066,75.736 -103.4218,75.7274 -103.3298,75.7245 -103.3042,75.7245 -103.28,75.726 -103.2529,75.7287 -103.0817,75.7526 -103.0623,75.7576 -103.0456,75.7653 -103.0443,75.7738 -103.0731,75.7775 -103.14,75.7788 -103.2769,75.7748 -103.3257,75.7717 -103.3506,75.7693 -103.4113,75.7648 -103.457,75.7653 -103.5471,75.77 -103.5746,75.7673 -103.5539,75.7486 55,10.0,Russia 135.0793,75.269 135.0763,75.3386 135.098,75.3541 135.1177,75.3663 135.159,75.3877 135.2186,75.4574 135.223,75.4757 135.2195,75.4872 135.2046,75.5049 135.1846,75.5224 135.1763,75.5344 135.1658,75.5608 135.2263,75.654 135.303,75.7275 135.3325,75.7434 135.3931,75.7029 135.4356,75.6738 135.4438,75.6623 135.449,75.6441 135.4806,75.603 135.4938,75.5917 135.5163,75.58 135.5482,75.5687 135.5739,75.5631 135.6454,75.5488 135.6963,75.5387 135.788,75.5185 135.805,75.5102 135.7995,75.4952 135.7737,75.4827 135.7517,75.4767 135.7168,75.4642 135.5985,75.4083 135.5909,75.4023 135.5814,75.3845 135.5881,75.3696 135.6023,75.3607 135.6293,75.3493 135.6453,75.3435 135.6565,75.338 135.6598,75.3259 135.6425,75.3195 135.5603,75.2909 135.5381,75.2859 135.5153,75.2816 135.4482,75.2697 135.4251,75.2671 135.402,75.2657 135.3089,75.2603 135.2854,75.2598 135.1391,75.2574 135.1153,75.258 135.0948,75.2637 135.0793,75.269 135.0793,75.269 17,-6.0,Canada -96.1889,75.7111 -96.1908,75.6947 -96.1926,75.683 -96.2735,75.637 -96.2871,75.6323 -96.3126,75.6306 -96.4298,75.6245 -96.4472,75.6302 -96.4116,75.6711 -96.3968,75.6815 -96.2741,75.7157 -96.2582,75.7196 -96.2405,75.7217 -96.2175,75.7208 -96.2013,75.716 -96.1889,75.7111 -96.1889,75.7111 13,10.0,Russia 140.3594,75.5456 140.2588,75.5426 140.2106,75.5462 140.1912,75.5521 140.1767,75.558 140.1325,75.5967 140.1471,75.6052 140.1709,75.6078 140.195,75.6043 140.3828,75.5709 140.3833,75.559 140.3594,75.5456 140.3594,75.5456 54,-6.0,Canada -95.7619,75.497 -95.6945,75.4777 -95.676,75.4718 -95.6573,75.4631 -95.6476,75.4516 -95.6722,75.4348 -95.9085,75.3526 -95.9575,75.3502 -95.9762,75.3511 -95.9923,75.3559 -96.1356,75.4106 -96.1569,75.4203 -96.1868,75.4241 -96.1771,75.4302 -96.1504,75.4421 -96.1668,75.4496 -96.1823,75.4485 -96.2417,75.4282 -96.2576,75.417 -96.2888,75.4006 -96.2836,75.3893 -96.2733,75.38 -96.2539,75.3723 -96.2385,75.3626 -96.2445,75.3525 -96.3953,75.2833 -96.5704,75.2473 -96.5877,75.2452 -96.5989,75.2457 -96.6127,75.2483 -96.6689,75.2708 -96.7659,75.3489 -96.7877,75.389 -96.7416,75.4026 -96.6757,75.4161 -96.6482,75.4208 -96.6265,75.4235 -96.4023,75.4469 -96.2033,75.4843 -96.2041,75.4949 -96.1576,75.5177 -96.1594,75.5297 -96.1501,75.5407 -96.1312,75.5439 -96.1147,75.5449 -96.0822,75.5455 -96.0707,75.5446 -96.0495,75.5416 -95.9766,75.5239 -95.8695,75.5006 -95.8521,75.4979 -95.8383,75.4978 -95.7619,75.497 -95.7619,75.497 129,-6.0,Canada -93.1618,74.781 -93.2182,74.6084 -93.2472,74.5826 -93.2876,74.5659 -93.3204,74.5573 -93.4487,74.538 -93.4741,74.535 -93.4983,74.5337 -93.7963,74.5389 -94.0055,74.5444 -94.143,74.5331 -94.226,74.5248 -94.2667,74.5212 -94.3025,74.5194 -94.3981,74.5216 -94.4421,74.5264 -94.7778,74.5711 -94.8316,74.5898 -94.8565,74.6421 -95.0177,74.6908 -95.0421,74.6968 -95.1542,74.7016 -95.1851,74.6991 -95.2083,74.6959 -95.232,74.6825 -95.2198,74.661 -95.2983,74.6587 -95.3759,74.7052 -95.4555,74.7274 -95.4906,74.7213 -95.5211,74.721 -95.6136,74.7235 -95.7082,74.7538 -95.751,74.7704 -95.8252,74.8003 -95.882,74.8591 -95.8419,74.8884 -95.8074,74.909 -95.8246,74.9208 -95.8909,74.9126 -95.9503,74.8481 -95.9576,74.8179 -95.9954,74.8029 -96.0158,74.8012 -96.0626,74.7999 -96.0846,74.801 -96.1047,74.804 -96.1275,74.8098 -96.1468,74.8202 -96.1328,74.871 -96.1043,74.8687 -96.0737,74.8744 -96.0728,74.9003 -96.2226,74.9014 -96.2467,74.9 -96.2746,74.8939 -96.3058,74.8831 -96.3362,74.8811 -96.3613,74.8854 -96.3469,74.9597 -96.3114,74.9967 -96.1989,75.0904 -96.1177,75.1118 -95.8173,75.1675 -95.6879,75.1782 -95.6547,75.1845 -95.674,75.1921 -95.7178,75.1938 -95.7661,75.194 -95.7895,75.1921 -95.8011,75.2103 -95.7426,75.2381 -95.6698,75.2442 -95.6283,75.2497 -95.5736,75.2677 -95.6457,75.2823 -95.6666,75.2928 -95.7717,75.2959 -95.7937,75.2957 -95.8238,75.2828 -95.8643,75.2715 -95.8895,75.2698 -95.9151,75.2766 -95.9,75.2903 -95.8805,75.2984 -95.8339,75.3123 -95.8007,75.3196 -95.7046,75.3308 -95.6747,75.3289 -95.6128,75.3185 -95.568,75.3046 -95.5088,75.2952 -95.4239,75.3099 -95.464,75.3223 -95.4976,75.32 -95.53,75.3245 -95.5676,75.3386 -95.5706,75.3623 -95.5386,75.3859 -95.4939,75.4049 -95.2084,75.4613 -95.0084,75.4906 -94.9734,75.479 -94.9515,75.4766 -94.9175,75.4786 -94.8636,75.4893 -94.8433,75.4945 -94.8237,75.5026 -94.793,75.5142 -94.649,75.5312 -94.481,75.518 -94.3002,75.5067 -94.2516,75.505 -94.2061,75.5024 -94.145,75.4933 -94.105,75.4851 -94.0682,75.4738 -93.9858,75.444 -93.9474,75.4241 -93.7537,75.3367 -93.7333,75.3294 -93.5843,75.2827 -93.4875,75.2593 -93.2416,75.1533 -93.2765,75.0718 -93.2389,74.9684 -93.1885,74.8637 -93.1618,74.781 -93.1618,74.781 9,10.0,Russia 136.691,75.5262 136.6538,75.5186 136.6321,75.5118 136.5992,75.4887 136.5928,75.5001 136.6259,75.5155 136.6714,75.5259 136.691,75.5262 136.691,75.5262 40,-6.0,Canada -100.749,75.4552 -100.7464,75.4542 -100.7178,75.449 -100.6737,75.444 -100.6321,75.4406 -100.6094,75.4399 -100.5891,75.4416 -100.4738,75.4523 -100.2522,75.4715 -100.0878,75.4845 -100.0639,75.4854 -100.0446,75.4849 -100.0186,75.4784 -100.0283,75.4718 -100.0427,75.4671 -100.0862,75.4598 -100.1316,75.4554 -100.1568,75.4525 -100.1775,75.4452 -100.1085,75.4478 -99.9585,75.4635 -99.9017,75.4741 -99.8829,75.4814 -99.8974,75.4955 -99.9294,75.5117 -99.9425,75.5158 -99.9597,75.5172 -100.0008,75.517 -100.1187,75.5171 -100.2349,75.5131 -100.3225,75.5043 -100.344,75.5002 -100.3655,75.4901 -100.3797,75.4858 -100.4044,75.4834 -100.4263,75.4832 -100.566,75.4809 -100.749,75.4646 -100.7595,75.4594 -100.749,75.4552 6,10.0,Russia 136.5992,75.4887 136.6541,75.4745 136.6937,75.4578 136.6061,75.4758 136.5992,75.4887 136.5992,75.4887 157,10.0,Russia 146.1059,75.4812 146.2236,75.4549 146.2547,75.4464 146.3713,75.3954 146.3485,75.3841 146.3235,75.3812 146.2993,75.379 146.2783,75.3736 146.2356,75.3191 146.3707,75.2654 146.4376,75.2518 146.5733,75.2333 146.6191,75.2298 146.712,75.2251 146.7361,75.2256 146.7846,75.2295 146.9388,75.2434 146.9254,75.2596 146.897,75.2649 146.8734,75.2657 146.8402,75.2599 146.8068,75.253 146.7712,75.2578 146.812,75.2788 146.93,75.3234 146.9551,75.3276 147.0044,75.3324 147.0524,75.3336 147.1912,75.3348 147.2622,75.3331 147.3302,75.3255 147.4413,75.3043 147.4648,75.304 147.7013,75.3012 147.7418,75.3007 147.7897,75.3019 147.8985,75.3071 147.9363,75.3107 147.96,75.3112 147.9836,75.3109 148.0067,75.3086 148.0287,75.3045 148.1668,75.269 148.1304,75.2284 148.0942,75.2129 148.0644,75.2048 148.0442,75.1767 148.0618,75.1598 148.1543,75.1116 148.1767,75.1085 148.1993,75.1067 148.3643,75.1066 148.3878,75.1073 148.485,75.114 148.5102,75.1166 148.5459,75.1336 148.5716,75.1374 148.6526,75.1495 148.8727,75.1762 148.8979,75.179 148.9215,75.1793 149.0582,75.1678 149.1944,75.1562 149.2386,75.1503 149.4891,75.1265 149.5344,75.1228 149.5577,75.1219 149.6066,75.1248 149.653,75.1233 149.6987,75.1206 149.7504,75.1108 149.8061,75.0816 150.0698,74.9864 150.093,74.9868 150.1179,74.9893 150.1433,74.9932 150.2296,75.0109 150.257,75.0371 150.2781,75.0519 150.4205,75.0542 150.4669,75.0525 150.4883,75.0489 150.5465,75.035 150.495,75.0273 150.46,75.0193 150.4142,74.9999 150.2479,74.8883 150.2891,74.8698 150.2937,74.8393 150.2393,74.7899 150.2095,74.782 150.1822,74.7788 150.1148,74.7824 150.0665,74.7792 149.9695,74.7712 149.7484,74.7464 149.6504,74.7353 149.4403,74.7024 149.3795,74.6915 149.3518,74.6774 149.3356,74.6626 149.3058,74.6586 149.2593,74.6575 149.1452,74.659 148.8452,74.657 148.8213,74.6554 148.7752,74.6543 148.6376,74.655 148.5917,74.6554 148.317,74.6578 148.2944,74.6584 148.2494,74.6611 147.9138,74.6831 147.8696,74.6869 147.8475,74.6897 147.7409,74.7109 147.6387,74.732 147.4477,74.7876 147.3388,74.8236 147.3226,74.8361 147.2715,74.848 147.2052,74.8565 147.16,74.8604 147.0681,74.8628 147.022,74.8627 146.9982,74.8618 146.9525,74.8635 146.9299,74.8648 146.8856,74.871 146.7536,74.8909 146.7314,74.8953 146.7099,74.9003 146.6668,74.9134 146.5852,74.9376 146.4987,74.9633 146.3448,74.9991 146.2788,75.011 146.0772,75.0392 145.9856,75.0461 145.963,75.0491 145.9185,75.0561 145.7856,75.0805 145.7415,75.0907 145.6795,75.1189 145.6992,75.1394 145.7309,75.1506 145.7595,75.1681 145.7742,75.186 145.7898,75.2392 145.8464,75.3172 145.9572,75.4527 145.9827,75.4726 146.0139,75.4803 146.0631,75.4851 146.0876,75.4857 146.1059,75.4812 146.1059,75.4812 75,6.0,Russia 81.926,75.3921 81.9007,75.3493 81.8022,75.3377 81.7863,75.3335 81.7942,75.3269 81.8056,75.3211 81.8586,75.309 81.8824,75.3069 81.9094,75.3055 81.9729,75.3056 81.9906,75.3012 81.9984,75.2948 82.0663,75.2294 82.0563,75.2202 82.0298,75.2184 82.0029,75.2196 81.9855,75.2239 81.9743,75.2297 81.9568,75.2335 81.9365,75.2367 81.8326,75.2378 81.8164,75.2351 81.8217,75.2099 81.8262,75.1882 81.8234,75.1535 81.7908,75.0676 81.7744,75.0666 81.7538,75.0696 81.7366,75.0737 81.7225,75.0785 81.7115,75.084 81.689,75.0958 81.6689,75.1127 81.6724,75.1279 81.6744,75.1656 81.6497,75.2044 81.6354,75.2091 81.6179,75.2133 81.5941,75.2156 81.5792,75.2066 81.5891,75.1916 81.4971,75.1704 81.4702,75.1716 81.429,75.178 81.4151,75.1808 81.4005,75.1858 81.3348,75.2118 81.2742,75.2493 81.2801,75.2591 81.3168,75.2752 81.4266,75.3219 81.4386,75.327 81.4789,75.3422 81.4946,75.3464 81.5139,75.3499 81.5565,75.3565 81.57,75.3557 81.5596,75.3423 81.5506,75.3361 81.5298,75.325 81.5172,75.3199 81.5062,75.3103 81.5171,75.2766 81.5283,75.271 81.5522,75.2688 81.6555,75.2854 81.7085,75.3198 81.6753,75.3819 81.6843,75.3878 81.7232,75.395 81.8223,75.4045 81.9151,75.4117 81.9445,75.4074 81.926,75.3921 81.926,75.3921 33,-7.0,Canada -104.5646,75.0049 -104.3831,74.9586 -104.1828,74.9255 -103.9858,74.9153 -103.9537,74.9148 -103.6408,74.9512 -103.6132,74.9544 -103.54,74.9684 -103.5215,74.9736 -103.4855,74.9848 -103.4511,74.9958 -103.3293,75.0447 -103.3073,75.0615 -103.4605,75.1811 -103.5282,75.2435 -103.5657,75.2596 -103.6521,75.2898 -103.6879,75.2992 -103.8303,75.325 -103.8677,75.3292 -103.898,75.3301 -104.0454,75.3278 -104.093,75.3227 -104.1434,75.3155 -104.2127,75.301 -104.3935,75.2345 -104.4266,75.2172 -104.4846,75.177 -104.461,75.1411 -104.5135,75.0873 -104.5371,75.0731 -104.5742,75.0601 -104.5646,75.0049 100,-2.0,Greenland -17.9211,75.2951 -17.8959,75.2817 -17.8114,75.2533 -17.7991,75.2476 -17.7573,75.2033 -17.8029,75.1834 -17.8214,75.1773 -17.8981,75.1583 -17.9202,75.1532 -17.9427,75.15 -17.9844,75.1485 -18.0075,75.1503 -18.0543,75.1563 -18.0799,75.1578 -18.0974,75.1539 -18.1564,75.1311 -18.1653,75.1223 -17.9384,75.0351 -17.8267,74.9959 -17.782,74.9851 -17.7132,74.9775 -17.6906,74.9755 -17.6681,74.975 -17.6453,74.9761 -17.55,74.9941 -17.5357,75.0026 -17.5453,75.0171 -17.4879,75.04 -17.4027,75.0541 -17.3858,75.0569 -17.3673,75.0569 -17.348,75.0541 -17.2973,75.0439 -17.2799,75.0376 -17.2734,75.0293 -17.3544,74.9079 -17.493,74.8462 -17.5596,74.8305 -17.5746,74.8283 -17.5953,74.8329 -17.5596,74.8582 -17.556,74.8886 -17.5772,74.8938 -17.8004,74.9247 -17.8248,74.926 -17.9899,74.9283 -18.0105,74.9287 -18.0609,74.9265 -18.0831,74.9243 -18.1796,74.9085 -18.2764,74.8924 -18.3057,74.8892 -18.3607,74.8834 -18.4158,74.8791 -18.4606,74.8776 -18.5012,74.8851 -18.5307,74.8911 -18.5535,74.8951 -18.5992,74.8983 -18.6633,74.9002 -18.6952,74.9002 -18.7752,74.8977 -18.8194,74.8952 -18.8574,74.898 -18.8734,74.9386 -18.8755,74.968 -18.8742,74.9789 -18.863,74.9937 -18.7904,75.0382 -18.7829,75.0469 -18.7807,75.0983 -18.7841,75.1423 -18.7928,75.1735 -18.8076,75.1909 -18.7878,75.2234 -18.6798,75.2474 -18.6597,75.2499 -18.5149,75.2671 -18.5019,75.2684 -18.4786,75.2659 -18.4084,75.2517 -18.3923,75.2464 -18.3563,75.2258 -18.346,75.2125 -18.3355,75.2024 -18.3124,75.1962 -18.2664,75.1947 -18.2072,75.1962 -18.1945,75.1975 -18.1007,75.2195 -18.083,75.2284 -18.0809,75.2384 -18.0862,75.2578 -18.0861,75.273 -18.0524,75.3115 -18.034,75.3164 -18.0147,75.3156 -17.9394,75.3011 -17.9211,75.2951 -17.9211,75.2951 67,-2.0,Greenland -20.1771,74.9381 -20.1672,74.938 -20.1287,74.9337 -19.9641,74.9093 -19.9402,74.906 -19.9201,74.9004 -19.9097,74.8921 -19.9116,74.8805 -19.9253,74.8729 -19.9832,74.8514 -19.997,74.848 -20.0256,74.8438 -20.0476,74.8423 -20.0654,74.8389 -20.1287,74.8252 -20.145,74.818 -20.1304,74.8005 -20.114,74.7947 -20.098,74.7914 -20.0797,74.7959 -20.0791,74.8116 -20.0582,74.8202 -20.0005,74.8211 -19.9777,74.8203 -19.9319,74.8155 -19.7293,74.7823 -19.6935,74.7742 -19.6808,74.7651 -19.6794,74.7536 -19.6914,74.7449 -19.8104,74.6847 -19.975,74.6141 -20.0022,74.6057 -20.016,74.6025 -20.0319,74.6005 -20.1365,74.5996 -20.1793,74.6015 -20.3976,74.6287 -20.4176,74.634 -20.6312,74.708 -20.6145,74.7255 -20.5954,74.7348 -20.565,74.7442 -20.5406,74.7549 -20.5294,74.7607 -20.5175,74.7696 -20.4998,74.796 -20.4927,74.808 -20.4867,74.8255 -20.4977,74.837 -20.509,74.8483 -20.5354,74.8659 -20.5581,74.8784 -20.5425,74.8889 -20.5219,74.8995 -20.5086,74.9056 -20.4595,74.9222 -20.4384,74.9277 -20.4068,74.935 -20.3609,74.9435 -20.3258,74.9468 -20.3016,74.9477 -20.2657,74.947 -20.2411,74.9463 -20.1888,74.9411 -20.1771,74.9381 -20.1771,74.9381 51,7.0,Russia 86.7864,74.8854 86.8212,74.8763 86.9077,74.8362 86.8744,74.808 86.8539,74.7964 86.8271,74.7864 86.7252,74.7711 86.6682,74.7898 86.6427,74.8002 86.578,74.8092 86.5489,74.8099 86.5164,74.8103 86.477,74.8034 86.4635,74.7985 86.4596,74.7876 86.4723,74.7778 86.5809,74.7473 86.5969,74.7429 86.6191,74.74 86.6086,74.7239 86.3404,74.7364 86.162,74.7393 86.1101,74.7429 86.0909,74.7463 86.0651,74.7568 85.9949,74.7899 85.9854,74.7958 86.0021,74.8083 86.0119,74.8146 86.0313,74.8128 86.1058,74.7982 86.2288,74.7872 86.3396,74.792 86.3593,74.7954 86.3696,74.8038 86.3506,74.8117 86.3053,74.8169 86.2891,74.8211 86.2762,74.8263 86.2686,74.8738 86.2983,74.877 86.3955,74.868 86.4116,74.8638 86.4224,74.857 86.4472,74.8496 86.5255,74.8522 86.5519,74.8541 86.5715,74.8573 86.743,74.8798 86.7864,74.8854 86.7864,74.8854 15,7.0,Russia 86.242,74.7164 86.2712,74.7161 86.3163,74.7124 86.5225,74.6949 86.5418,74.6913 86.5571,74.6785 86.5472,74.6727 86.5173,74.6636 86.472,74.6586 86.3747,74.6489 86.3302,74.6624 86.2855,74.6761 86.2449,74.7008 86.242,74.7164 86.242,74.7164 32,7.0,Russia 85.2478,74.7099 85.2899,74.7012 85.4,74.6978 85.4196,74.6943 85.4322,74.6893 85.479,74.6234 85.4615,74.6152 85.4388,74.6128 85.4197,74.6163 85.41,74.6221 85.3968,74.6274 85.3776,74.6309 85.3517,74.6326 85.1485,74.6432 85.1162,74.6434 85.0291,74.6408 85.0032,74.6392 84.9808,74.6365 84.9551,74.6362 84.9001,74.6388 84.8841,74.6412 84.8756,74.6493 84.8932,74.6576 84.9771,74.6696 85.0382,74.6687 85.0608,74.6662 85.0899,74.6656 85.1123,74.668 85.209,74.6935 85.2349,74.7038 85.2478,74.7099 85.2478,74.7099 22,-2.0,Greenland -18.2918,74.5967 -18.2906,74.5883 -18.3069,74.5819 -18.2893,74.5681 -18.2709,74.5517 -18.2683,74.539 -18.3207,74.5196 -18.3354,74.5183 -18.425,74.5215 -18.4491,74.5275 -18.5426,74.6167 -18.511,74.6198 -18.4993,74.617 -18.4815,74.6099 -18.4103,74.6032 -18.3694,74.6034 -18.3562,74.6033 -18.33,74.6048 -18.2718,74.6085 -18.2567,74.6042 -18.2918,74.5967 -18.2918,74.5967 25,-2.0,Greenland -18.6908,74.5071 -18.6791,74.4846 -18.6771,74.4742 -18.6846,74.465 -18.7163,74.4511 -18.7756,74.4387 -18.7897,74.4365 -18.8111,74.4355 -18.9617,74.4412 -19.1085,74.4486 -19.1614,74.4732 -19.1688,74.4825 -19.1548,74.4921 -19.1379,74.4982 -19.0195,74.5324 -18.9678,74.546 -18.9468,74.5512 -18.8175,74.5728 -18.7729,74.5708 -18.7583,74.569 -18.7016,74.5523 -18.6742,74.5247 -18.6806,74.512 -18.6908,74.5071 -18.6908,74.5071 47,6.0,Russia 78.9595,74.5032 79.0232,74.4954 79.0469,74.484 79.0554,74.4772 79.0698,74.4725 79.0981,74.4742 79.0847,74.4933 79.0688,74.5068 79.0585,74.5094 79.0462,74.5109 79.0287,74.5112 78.9919,74.5209 78.9803,74.5297 79.012,74.5465 79.0482,74.5542 79.0738,74.5546 79.097,74.5525 79.1117,74.5476 79.1236,74.5357 79.1128,74.53 79.1267,74.5259 79.1389,74.5243 79.1806,74.5154 79.2064,74.514 79.2358,74.5143 79.3139,74.511 79.3633,74.5075 79.3804,74.5036 79.395,74.4988 79.4062,74.4931 79.3912,74.4808 79.3473,74.467 79.3123,74.4476 79.316,74.4318 79.3247,74.4188 79.2937,74.4162 79.2743,74.4178 79.2309,74.4229 79.1902,74.4286 79.1183,74.443 79.0487,74.4585 79.0172,74.4669 78.9882,74.4768 78.9531,74.4937 78.9445,74.5012 78.9595,74.5032 78.9595,74.5032 32,-6.0,Canada -95.3805,74.5387 -95.2699,74.5285 -95.2497,74.5253 -95.1935,74.512 -95.1566,74.5013 -95.0877,74.4791 -95.0712,74.472 -95.0455,74.4586 -95.0141,74.4388 -95.0021,74.4292 -95.0028,74.4172 -95.0134,74.4089 -95.025,74.404 -95.0434,74.3999 -95.0651,74.3962 -95.0853,74.3943 -95.1072,74.3946 -95.2126,74.397 -95.2343,74.3984 -95.2764,74.4033 -95.3563,74.4139 -95.4145,74.4221 -95.4507,74.428 -95.4694,74.432 -95.5618,74.4525 -95.5969,74.4621 -95.6136,74.4743 -95.4344,74.5329 -95.4055,74.5402 -95.3897,74.5414 -95.3805,74.5387 -95.3805,74.5387 28,-6.0,Canada -97.1155,74.5209 -97.1054,74.5196 -97.0392,74.5032 -97.0124,74.4942 -97.0076,74.4854 -97.0485,74.4496 -97.1247,74.41 -97.1363,74.4049 -97.3547,74.3604 -97.4011,74.3542 -97.4241,74.3536 -97.4404,74.3536 -97.4572,74.3556 -97.5251,74.3747 -97.5389,74.3813 -97.5292,74.3955 -97.5128,74.4085 -97.5014,74.4138 -97.3656,74.4503 -97.2796,74.5043 -97.2607,74.5094 -97.2171,74.519 -97.1933,74.5241 -97.1701,74.5275 -97.1544,74.5264 -97.1372,74.5245 -97.1155,74.5209 -97.1155,74.5209 21,-2.0,Greenland -56.8128,74.5057 -56.7908,74.5088 -56.7578,74.507 -56.7357,74.5046 -56.7207,74.5014 -56.6943,74.4867 -56.7071,74.4727 -56.7315,74.4628 -56.748,74.4587 -56.7673,74.4558 -56.7884,74.4534 -56.8353,74.4517 -56.8819,74.4516 -56.9333,74.4525 -56.9474,74.4569 -56.939,74.4672 -56.9228,74.4775 -56.9112,74.4811 -56.8462,74.4983 -56.8128,74.5057 -56.8128,74.5057 22,7.0,Russia 85.4192,74.4393 85.429,74.4244 85.4037,74.4015 85.264,74.3571 85.2197,74.352 85.1656,74.3497 85.137,74.3505 85.1148,74.353 84.9998,74.3733 84.987,74.3784 84.9775,74.3842 84.9253,74.4257 84.9267,74.4423 85.0231,74.4716 85.0613,74.4786 85.0901,74.4797 85.1479,74.4779 85.2822,74.4714 85.3076,74.4696 85.3304,74.4666 85.4192,74.4393 85.4192,74.4393 26,7.0,Russia 85.6354,74.338 85.6037,74.3381 85.5466,74.3403 85.5245,74.3426 85.4403,74.3722 85.5504,74.4479 85.5697,74.4599 85.5827,74.465 85.6016,74.4685 85.6273,74.4702 85.6849,74.4719 85.7166,74.4714 85.7426,74.47 85.7648,74.4674 85.9842,74.4318 85.9902,74.4209 85.9834,74.4048 85.9127,74.3843 85.8749,74.3963 85.8499,74.4067 85.8243,74.4086 85.7703,74.4111 85.7444,74.4061 85.6677,74.3552 85.6354,74.338 85.6354,74.338 30,-2.0,Greenland -57.1984,74.4109 -57.1596,74.4107 -57.1058,74.4106 -57.08,74.4114 -56.7097,74.4346 -56.6669,74.4392 -56.648,74.4428 -56.6046,74.4555 -56.5835,74.4576 -56.5578,74.4572 -56.4014,74.4329 -56.3847,74.4287 -56.3187,74.401 -56.3329,74.3939 -56.4663,74.3788 -56.4819,74.3782 -56.5047,74.3794 -56.5492,74.3848 -56.7505,74.382 -56.7997,74.3804 -57.0783,74.3757 -57.3214,74.3769 -57.3842,74.3805 -57.4061,74.3892 -57.3906,74.3946 -57.2575,74.411 -57.2335,74.4126 -57.2158,74.4126 -57.1984,74.4109 -57.1984,74.4109 363,-7.0,Canada -123.1648,71.1636 -123.1822,71.1913 -123.2289,71.2548 -123.2815,71.3116 -123.3478,71.3781 -123.3863,71.4062 -123.556,71.4884 -123.6049,71.5336 -123.6601,71.5633 -123.6871,71.5753 -123.7295,71.5923 -123.7811,71.607 -123.8219,71.6149 -123.8473,71.6195 -124.0942,71.6594 -124.1672,71.6711 -124.3183,71.6928 -124.361,71.6999 -124.3869,71.7055 -124.4083,71.7111 -124.5392,71.7454 -124.5738,71.7551 -124.7831,71.8136 -124.866,71.8292 -124.9507,71.8524 -124.754,71.86 -124.681,71.8463 -124.6492,71.8559 -124.6934,71.8739 -124.7283,71.8766 -124.9381,71.8799 -125.0571,71.8788 -125.1212,71.8784 -125.1828,71.8769 -125.2953,71.8706 -125.3309,71.8681 -125.3905,71.8594 -125.4257,71.8566 -125.4654,71.8552 -125.5056,71.8567 -125.6396,71.8629 -125.6852,71.8765 -125.6044,71.8668 -125.5841,71.8677 -125.5537,71.8717 -125.5137,71.8799 -125.487,71.8885 -125.4633,71.9053 -125.4406,71.9327 -125.4242,71.9654 -125.4204,71.9972 -125.4366,72.0126 -125.4166,72.0612 -125.2756,72.1512 -125.2156,72.1947 -125.1687,72.2544 -125.1346,72.3097 -124.9876,72.3909 -124.9528,72.3983 -124.8717,72.4166 -124.8392,72.4272 -124.7278,72.4688 -124.6992,72.508 -124.6391,72.6052 -124.6695,72.6583 -124.7231,72.7236 -124.6559,72.7586 -124.5828,72.7774 -124.4987,72.7897 -124.4638,72.7928 -124.4243,72.7906 -124.3757,72.7903 -124.3336,72.7949 -124.2961,72.8008 -124.1801,72.828 -124.1917,72.8762 -124.3173,72.9033 -124.4241,72.9098 -124.4652,72.9234 -124.5235,72.95 -124.5572,72.9802 -124.4837,73.0384 -124.4076,73.051 -124.2861,73.1343 -124.262,73.1549 -124.2006,73.2276 -124.1298,73.3187 -124.0974,73.3352 -123.9909,73.381 -123.9437,73.3843 -123.9105,73.3832 -123.8732,73.3835 -123.8522,73.3875 -123.7611,73.4468 -123.7313,73.4851 -123.7653,73.5209 -123.758,73.5517 -123.6356,73.5818 -123.5515,73.596 -123.5239,73.6004 -123.4643,73.6646 -123.4935,73.6968 -123.5317,73.7232 -123.6247,73.7404 -123.6463,73.7413 -123.6685,73.7409 -123.708,73.7384 -123.764,73.7403 -123.8216,73.7484 -123.8505,73.7541 -123.886,73.7644 -123.9044,73.7727 -124.0537,73.9141 -124.0959,73.9556 -124.1103,74.0089 -124.1177,74.0338 -124.2907,74.1661 -124.3419,74.1638 -124.368,74.1668 -124.4581,74.2302 -124.4358,74.2416 -124.3774,74.2461 -124.0853,74.2678 -123.7895,74.2912 -123.5767,74.295 -123.5385,74.2981 -123.3589,74.3167 -123.3203,74.32 -123.2565,74.3227 -123.1014,74.3269 -122.8888,74.3416 -122.7058,74.3431 -122.374,74.3524 -122.1224,74.3636 -122.0221,74.3695 -121.8037,74.3901 -121.7513,74.3964 -121.6238,74.4167 -121.4521,74.4379 -121.4154,74.4415 -121.3373,74.4468 -121.296,74.4489 -121.2499,74.4494 -121.2043,74.447 -120.9973,74.4301 -120.9404,74.424 -120.8234,74.4054 -120.7717,74.392 -120.7454,74.3849 -120.695,74.3686 -120.6694,74.3426 -120.5954,74.3137 -120.396,74.2724 -120.1727,74.2286 -119.9097,74.1813 -119.8427,74.1713 -119.5489,74.1356 -119.4893,74.1334 -119.4191,74.1327 -119.3036,74.1325 -119.3407,74.0866 -119.3676,74.0648 -119.3919,74.0543 -119.4182,74.0441 -119.4941,74.0122 -119.5272,73.9786 -119.5233,73.9584 -119.4702,73.9315 -119.4278,73.9327 -119.4339,73.9573 -119.3459,74.018 -119.1925,74.1135 -119.1527,74.1207 -118.9529,74.1175 -118.8707,74.1149 -118.8391,74.1093 -118.8144,74.0963 -118.7918,74.0646 -118.7654,74.0084 -118.7736,73.9831 -118.7924,73.9705 -118.8172,73.9674 -118.8474,73.9585 -118.8857,73.8907 -118.866,73.8866 -118.6711,73.9018 -118.5023,73.9925 -118.4901,74.0189 -118.513,74.0344 -118.54,74.0405 -118.5645,74.0505 -118.5798,74.0729 -118.5408,74.0873 -118.4172,74.112 -118.3711,74.1189 -118.3045,74.1272 -118.2031,74.1391 -117.8776,74.1713 -117.8202,74.1749 -117.7999,74.1751 -117.7293,74.174 -117.6719,74.1679 -117.6173,74.1611 -117.3277,74.1441 -117.2123,74.1376 -117.1305,74.127 -117.0763,74.1174 -116.9904,74.0989 -116.8589,74.067 -116.5317,73.972 -116.4888,73.9591 -116.4397,73.939 -116.3275,73.8903 -116.2336,73.8494 -116.1472,73.8134 -116.05,73.7735 -116.0284,73.766 -116.0058,73.7614 -115.9155,73.7382 -115.7644,73.6928 -115.7144,73.6734 -115.6853,73.6555 -115.6239,73.6265 -115.6041,73.6188 -115.5275,73.5985 -115.3151,73.5525 -115.1149,73.469 -115.0798,73.4466 -115.062,73.4328 -115.0453,73.4123 -115.0329,73.378 -115.1693,73.3257 -115.4135,73.2699 -115.5485,73.2411 -115.576,73.2354 -115.9808,73.1742 -116.049,73.1685 -116.0857,73.1667 -116.1384,73.1629 -116.176,73.1573 -116.4061,73.1055 -116.5226,73.0696 -116.6615,73.0266 -116.7397,73.0087 -116.8823,72.9837 -117.1071,72.9503 -117.1393,72.9466 -117.1792,72.9383 -117.4212,72.8799 -117.5496,72.8408 -117.6051,72.8221 -117.6383,72.811 -117.6881,72.7984 -117.7291,72.7904 -117.8285,72.7731 -117.9312,72.7569 -117.9865,72.7469 -118.0275,72.7384 -118.0791,72.7269 -118.103,72.72 -118.1687,72.6938 -118.2038,72.6679 -118.2554,72.6561 -118.2986,72.6527 -118.371,72.6507 -118.4215,72.6463 -118.466,72.6396 -118.4917,72.6338 -118.8274,72.542 -118.8505,72.5354 -118.8762,72.5254 -119.0275,72.3357 -119.0443,72.2882 -119.0219,72.2635 -119.1199,72.229 -119.1445,72.2233 -119.2308,72.2095 -119.342,72.1819 -119.3729,72.1709 -119.3937,72.163 -119.4762,72.1325 -119.5168,72.125 -119.5532,72.1236 -119.6875,72.125 -119.8472,72.1466 -119.8493,72.1695 -119.8808,72.1731 -119.9604,72.1643 -119.9738,72.1423 -119.943,72.1175 -119.9104,72.1058 -119.8608,72.0505 -119.8918,71.9985 -119.9103,71.9824 -120.0218,71.9173 -120.055,71.8993 -120.1001,71.8859 -120.1348,71.8738 -120.1632,71.8527 -120.1681,71.8292 -120.1528,71.8147 -120.1016,71.7907 -120.1374,71.6752 -120.1406,71.647 -120.1234,71.6267 -120.098,71.5959 -120.156,71.517 -120.1934,71.4707 -120.2172,71.4494 -120.2638,71.4218 -120.3223,71.3988 -120.3568,71.391 -120.5006,71.3628 -120.5279,71.3579 -120.5975,71.3467 -120.6424,71.3409 -120.8533,71.3152 -121.0525,71.2926 -121.1142,71.2858 -121.1585,71.2847 -121.3094,71.3065 -121.2561,71.3212 -121.2609,71.3434 -121.2883,71.3571 -121.315,71.3626 -121.3489,71.3662 -121.387,71.3684 -121.4219,71.3663 -121.4679,71.3574 -121.4949,71.3487 -121.5392,71.328 -121.5644,71.3154 -121.6204,71.2844 -121.6839,71.2485 -121.794,71.1928 -121.8408,71.173 -121.8632,71.1667 -121.9298,71.1541 -121.9736,71.1484 -122.0175,71.1424 -122.0741,71.1338 -122.1491,71.1202 -122.2244,71.1039 -122.3268,71.0801 -122.3728,71.0623 -122.3974,71.0497 -122.426,71.0306 -122.4617,71.0074 -122.4948,70.9941 -122.5153,70.9905 -122.5684,70.9879 -122.8041,70.986 -122.8445,70.9901 -122.881,70.9991 -122.9414,71.0204 -122.9774,71.0359 -123.0105,71.0522 -123.0345,71.0647 -123.0872,71.0951 -123.1121,71.1138 -123.1464,71.1428 -123.1648,71.1636 -123.1648,71.1636 94,9.0,Russia 112.5016,73.9913 112.4526,73.9919 112.4254,73.9942 112.3461,74.0025 112.2319,74.0141 112.2109,74.017 112.1217,74.0262 112.0096,74.0369 111.9821,74.0388 111.9212,74.0318 111.8994,74.0303 111.8744,74.0338 111.8317,74.0486 111.7929,74.0638 111.7845,74.0695 111.7625,74.0801 111.741,74.0906 111.728,74.0959 111.677,74.1097 111.6561,74.1136 111.6059,74.1209 111.5198,74.1291 111.4374,74.1352 111.4078,74.138 111.3285,74.1485 111.3073,74.1525 111.29,74.1571 111.1983,74.1926 111.1804,74.2036 111.1706,74.2202 111.1928,74.2431 111.2078,74.2488 111.2248,74.2533 111.2619,74.2605 111.2821,74.2627 111.3251,74.2669 111.3899,74.2718 111.4142,74.2719 111.4417,74.2701 111.4632,74.2659 111.4802,74.2612 111.5065,74.2512 111.5235,74.2468 111.545,74.2427 111.5705,74.2419 111.5909,74.2438 111.6817,74.2784 111.6949,74.2898 111.6879,74.2986 111.6781,74.3107 111.6826,74.377 111.6869,74.3939 111.7115,74.4196 111.7232,74.4274 111.7363,74.4344 111.7517,74.44 111.7893,74.4469 111.8381,74.4473 111.8642,74.4461 111.8918,74.4444 111.9215,74.441 111.943,74.4368 112.0837,74.4226 112.4228,74.3974 112.4936,74.394 112.5406,74.3951 112.7067,74.3981 112.7584,74.3963 112.8107,74.3937 112.9215,74.3853 112.9972,74.3741 113.06,74.3614 113.0773,74.3568 113.1024,74.3466 113.1196,74.3355 113.1284,74.3235 113.1421,74.2926 113.134,74.2852 113.0693,74.2452 113.0328,74.2218 112.9271,74.1372 112.8858,74.1169 112.8658,74.1145 112.821,74.1119 112.7974,74.1117 112.736,74.1053 112.7171,74.1014 112.6832,74.0924 112.671,74.0845 112.6552,74.0649 112.5416,73.9981 112.5286,73.993 112.5016,73.9913 112.5016,73.9913 35,7.0,Russia 84.4739,74.4011 84.4867,74.4028 84.5123,74.4044 84.5435,74.4048 84.6746,74.4025 84.7032,74.3954 84.7197,74.3833 84.7233,74.3726 84.7012,74.3658 84.6791,74.3631 84.6541,74.3614 84.5935,74.3622 84.4947,74.3694 84.4662,74.3686 84.3426,74.3591 84.3271,74.3519 84.3816,74.3455 84.4007,74.3421 84.5194,74.3142 84.5357,74.3102 84.5457,74.3018 84.5267,74.2938 84.4445,74.2973 84.3934,74.3004 84.282,74.3127 84.2371,74.3176 84.2211,74.322 84.1889,74.3301 84.1628,74.3403 84.1575,74.351 84.2153,74.3652 84.275,74.3749 84.3159,74.3809 84.4739,74.4011 84.4739,74.4011 63,-2.0,Greenland -20.9042,74.3415 -20.8774,74.3202 -20.8581,74.3179 -20.841,74.3202 -20.8106,74.3268 -20.775,74.3276 -20.753,74.3271 -20.4816,74.3007 -20.4105,74.2657 -20.3954,74.2569 -20.3812,74.2454 -20.3859,74.2343 -20.4094,74.2169 -20.4109,74.2067 -20.3754,74.1724 -20.2742,74.1326 -20.2073,74.1235 -20.1725,74.1199 -20.0891,74.1092 -20.0737,74.1009 -20.091,74.0773 -20.1095,74.067 -20.1261,74.0622 -20.141,74.0593 -20.1621,74.0568 -20.1773,74.0561 -20.3119,74.054 -20.4566,74.0437 -20.6457,74.0185 -20.7104,74.0102 -20.7278,74.0088 -21.0157,73.9892 -21.058,73.9879 -21.1561,73.9855 -21.2402,73.9907 -21.2616,74.003 -21.2739,74.0088 -21.3018,74.0176 -21.3417,74.0282 -21.3757,74.0343 -21.5843,74.0607 -21.6151,74.0619 -21.6603,74.0687 -21.7225,74.0778 -21.9119,74.1097 -21.9335,74.1235 -21.9316,74.1354 -21.9058,74.1719 -21.8983,74.18 -21.8099,74.2392 -21.7851,74.2491 -21.6244,74.2865 -21.5405,74.3043 -21.5017,74.3115 -21.3329,74.3392 -21.3122,74.3423 -21.2913,74.345 -21.2074,74.3509 -21.1197,74.3522 -21.0032,74.3513 -20.9179,74.3446 -20.9042,74.3415 -20.9042,74.3415 15,7.0,Russia 84.9823,74.3198 85.0012,74.3283 85.0454,74.3334 85.1056,74.3342 85.2867,74.3332 85.312,74.3315 85.3343,74.329 85.35,74.3251 85.3659,74.3163 85.3595,74.307 85.3405,74.3035 85.1855,74.2874 85.1634,74.2898 84.9823,74.3198 84.9823,74.3198 24,9.0,Russia 115.6207,74.1949 115.5873,74.1997 115.5892,74.2191 115.6037,74.2399 115.6125,74.247 115.6254,74.2548 115.642,74.2604 115.6955,74.2734 115.7197,74.2729 115.7452,74.2716 115.7699,74.2679 115.786,74.2629 115.8165,74.2402 115.8271,74.222 115.8302,74.2097 115.821,74.202 115.8065,74.1956 115.7899,74.1901 115.7721,74.1858 115.7515,74.1837 115.7016,74.1852 115.675,74.1878 115.6207,74.1949 115.6207,74.1949 17,-6.0,Canada -98.5784,74.1979 -98.5571,74.1971 -98.4941,74.1969 -98.4046,74.1982 -98.3161,74.2036 -98.2726,74.2092 -98.2607,74.2149 -98.2693,74.2234 -98.2827,74.2278 -98.321,74.2337 -98.3329,74.2374 -98.3636,74.2406 -98.3779,74.2412 -98.4653,74.2354 -98.4993,74.2329 -98.6066,74.2067 -98.5784,74.1979 44,10.0,Russia 140.0948,73.8014 140.0175,73.8177 139.9953,73.8221 139.9514,73.8344 139.8985,73.8585 139.7641,73.9248 139.7553,73.9309 139.7271,73.967 139.7179,73.9851 139.7171,73.997 139.7316,74.0756 139.7396,74.0876 139.7572,74.0999 139.8534,74.1362 139.8711,74.1422 139.9148,74.1546 139.9592,74.1615 140.0256,74.1676 140.1362,74.1774 140.2032,74.181 140.3367,74.181 140.3812,74.1798 140.448,74.1762 140.5143,74.17 140.559,74.1641 140.6034,74.1567 140.6256,74.1516 140.6965,74.1277 140.7187,74.1156 140.7277,74.1094 140.7579,74.0641 140.7263,73.9648 140.6928,73.9134 140.6639,73.8924 140.6114,73.874 140.5896,73.8739 140.5674,73.8754 140.502,73.8754 140.458,73.8706 140.2661,73.8384 140.2227,73.8261 140.2054,73.8201 140.0948,73.8014 140.0948,73.8014 44,10.0,Russia 135.0719,74.1467 135.158,74.1336 135.3044,74.1028 135.5446,74.0334 135.5636,74.0275 135.689,73.9876 135.7183,73.9762 135.876,73.9073 135.9114,73.8899 135.9244,73.8809 135.927,73.8326 135.8982,73.7985 135.8207,73.7753 135.808,73.774 135.7846,73.7794 135.7281,73.7969 135.7149,73.8055 135.7102,73.824 135.6972,73.8328 135.5488,73.8913 135.5337,73.897 135.4764,73.9141 135.4534,73.9182 135.4067,73.9296 135.3875,73.9352 135.3564,73.9529 135.3441,73.9649 135.3366,73.9769 135.3333,73.9888 135.3256,74.0006 135.2259,74.0411 135.2109,74.0469 135.1882,74.049 135.1668,74.0472 135.1445,74.0468 135.1222,74.0478 135.099,74.0519 135.0885,74.0578 135.0717,74.0697 135.0078,74.1519 135.0244,74.156 135.0477,74.1527 135.0719,74.1467 135.0719,74.1467 251,-6.0,Canada -90.9612,73.2413 -91.0137,73.1811 -91.0329,73.168 -91.1433,73.1023 -91.3454,72.9651 -91.4207,72.9159 -91.5475,72.8151 -91.5808,72.7968 -91.5909,72.7762 -91.6267,72.7485 -91.8435,72.655 -91.873,72.6455 -91.9047,72.6369 -91.9437,72.6279 -92.0095,72.6157 -92.052,72.6102 -92.0916,72.6075 -92.1123,72.607 -92.1701,72.6098 -92.2077,72.6132 -92.301,72.6231 -92.5211,72.6424 -92.6735,72.6529 -92.8523,72.6718 -93.0229,72.6921 -93.1116,72.7102 -93.1318,72.7025 -93.1657,72.6965 -93.186,72.6946 -93.3533,72.6805 -93.4533,72.682 -93.4991,72.6837 -93.5374,72.6839 -93.7055,72.6766 -93.811,72.6689 -93.8715,72.6668 -93.9046,72.6671 -93.9487,72.671 -94.0261,72.6765 -94.0784,72.6692 -94.0966,72.6593 -94.1055,72.6377 -94.0864,72.6196 -94.0363,72.629 -94.0085,72.6376 -93.9326,72.632 -93.871,72.6192 -93.7663,72.6065 -93.6599,72.6073 -93.6128,72.6198 -93.5717,72.6047 -93.5942,72.5503 -93.5678,72.5346 -93.5379,72.5268 -93.4549,72.5232 -93.3647,72.4843 -93.3436,72.4739 -93.2745,72.4249 -93.242,72.3572 -93.4132,72.2432 -93.4431,72.2369 -93.4649,72.2347 -93.5345,72.2319 -93.5707,72.2237 -93.6,72.2082 -93.6962,72.1412 -93.7914,72.0677 -93.8157,72.0439 -93.8213,72.0243 -93.831,71.9917 -93.8641,71.9682 -93.9134,71.961 -93.9571,71.9607 -93.97,71.9427 -93.9138,71.9367 -93.8695,71.9418 -93.839,71.9393 -93.808,71.9037 -93.8509,71.8814 -93.9697,71.8984 -94.1405,71.923 -94.1955,71.927 -94.227,71.9276 -94.5206,71.9156 -94.5569,71.9104 -94.6022,71.9018 -94.6788,71.8935 -94.898,71.8705 -94.9372,71.8689 -94.9517,71.8713 -94.9863,71.8958 -94.9785,72.0052 -94.8146,72.0351 -94.7566,72.0435 -94.705,72.0477 -94.6751,72.0483 -94.6433,72.0494 -94.532,72.058 -94.5814,72.0629 -94.6145,72.0625 -94.7364,72.0592 -94.8024,72.0489 -94.9054,72.0401 -94.9398,72.0415 -94.9832,72.0877 -94.9857,72.109 -94.9653,72.1489 -94.9446,72.1869 -94.9055,72.3634 -94.9718,72.4274 -94.998,72.4348 -95.0543,72.4385 -95.0899,72.446 -95.1126,72.4928 -95.0854,72.5066 -95.1301,72.5434 -95.2365,72.5871 -95.2686,72.5897 -95.3033,72.5845 -95.3455,72.5926 -95.3654,72.6015 -95.4385,72.7127 -95.4415,72.749 -95.4214,72.779 -95.413,72.8147 -95.422,72.9218 -95.4493,72.9775 -95.3481,73.0292 -95.3402,73.0664 -95.3648,73.1852 -95.4127,73.229 -95.3775,73.2439 -95.3873,73.2621 -95.4166,73.3136 -95.4454,73.3482 -95.4618,73.4544 -95.4298,73.4822 -95.3738,73.5113 -95.4172,73.5323 -95.4368,73.5653 -95.4377,73.6177 -95.4127,73.6342 -95.2112,73.6712 -95.1888,73.6728 -95.0605,73.6711 -95.036,73.6666 -94.9981,73.6523 -94.9151,73.6089 -94.8688,73.5921 -94.8384,73.5835 -94.7865,73.572 -94.7191,73.5595 -94.6534,73.5494 -94.6084,73.5447 -94.5837,73.5437 -94.4066,73.5494 -94.382,73.5531 -94.4071,73.5686 -94.4396,73.5771 -94.4958,73.5816 -94.536,73.5804 -94.5775,73.5812 -94.6371,73.5901 -94.8436,73.6784 -94.873,73.7051 -94.8318,73.7229 -94.7977,73.7294 -94.7665,73.7326 -94.7364,73.7391 -94.7753,73.7539 -94.8061,73.7553 -94.8372,73.7524 -94.8761,73.738 -94.9058,73.7235 -95.023,73.7628 -95.0703,73.7856 -95.0883,73.8143 -95.0832,73.851 -95.0572,73.8804 -95.0039,73.9099 -94.9827,73.914 -94.9425,73.9086 -94.7998,73.9257 -94.6662,73.9468 -94.6094,73.9584 -94.5562,73.9699 -94.5065,73.9898 -94.3779,73.9898 -94.2204,73.9937 -94.1846,74.0039 -94.1589,74.0196 -93.9776,74.0307 -93.9383,74.0329 -93.8537,74.0358 -93.7531,74.038 -93.713,74.0382 -93.6689,74.0338 -93.5202,73.9962 -93.5207,74.0346 -93.492,74.0535 -93.452,74.0613 -93.4025,74.0668 -93.345,74.07 -93.2767,74.0721 -93.1936,74.0712 -93.0895,74.0692 -93.0062,74.0641 -92.7921,74.049 -92.7429,74.0452 -92.5604,74.0244 -92.4026,74.0023 -92.1287,73.9391 -92.1002,73.931 -92.0704,73.9174 -92.0524,73.9058 -92.0395,73.887 -92.0531,73.872 -92.0837,73.8451 -91.8864,73.8545 -91.8743,73.8824 -91.6925,73.9122 -91.6443,73.9166 -91.6056,73.9182 -91.3389,73.9254 -91.2964,73.924 -90.9092,73.9097 -90.8668,73.908 -90.8255,73.9046 -90.506,73.8678 -90.4309,73.8535 -90.4041,73.8481 -90.2132,73.8194 -90.1783,73.8145 -90.1235,73.8137 -90.1056,73.8235 -89.9975,73.8085 -89.9702,73.7979 -90.009,73.757 -90.0308,73.7439 -90.052,73.7385 -90.133,73.7008 -90.2482,73.6219 -90.3549,73.5581 -90.4987,73.4837 -90.6235,73.4409 -90.7003,73.39 -90.8639,73.2851 -90.9267,73.262 -90.9507,73.2495 -90.9612,73.2413 -90.9612,73.2413 24,7.0,Russia 82.3547,74.0585 82.4134,74.0447 82.4295,74.0407 82.4562,74.0307 82.4927,74.0149 82.5165,74.0042 82.5238,73.9948 82.498,73.9808 82.4151,73.9524 82.4003,73.9479 82.3878,73.9482 82.378,73.952 82.3291,73.9645 82.291,73.9708 82.15,73.9732 82.1341,73.9776 82.1206,73.9824 82.111,73.993 82.1082,74.0173 82.1274,74.0329 82.1422,74.0371 82.1784,74.0446 82.3547,74.0585 82.3547,74.0585 38,7.0,Russia 82.6193,73.9828 82.6084,73.994 82.6226,74.0028 82.6528,74.0115 82.707,74.0222 82.9317,74.0477 82.9912,74.0489 83.0385,74.0449 83.1272,74.0356 83.2601,74.021 83.3264,74.0138 83.3907,73.9972 83.4035,73.9922 83.4062,73.9809 83.3934,73.972 83.378,73.9675 83.3566,73.9645 83.332,73.963 83.3134,73.9643 83.3277,73.973 83.3207,73.9826 83.2891,73.982 83.1871,73.977 83.1777,73.9679 83.1893,73.9581 83.2024,73.9531 83.2346,73.9451 83.2537,73.9416 83.2384,73.9373 83.1514,73.9384 83.0883,73.9462 82.9647,73.9633 82.9263,73.9698 82.8633,73.9776 82.7655,73.9845 82.7404,73.9861 82.6193,73.9828 82.6193,73.9828 50,-6.0,Canada -99.1792,73.7916 -99.1315,73.7691 -99.1132,73.7643 -98.8914,73.7179 -98.8549,73.7146 -98.7129,73.7052 -98.67,73.7061 -98.5289,73.7135 -98.231,73.7373 -98.1452,73.7453 -97.9208,73.7705 -97.8978,73.7734 -97.8767,73.7785 -97.5755,73.8682 -97.5164,73.8877 -97.4806,73.9038 -97.4699,73.9092 -97.4255,73.9352 -97.4053,73.9491 -97.3904,73.9631 -97.39,73.9748 -97.3941,73.9866 -97.4054,73.9994 -97.4423,74.0106 -97.4553,74.0132 -97.4887,74.0167 -97.5096,74.0177 -97.5574,74.0189 -97.7454,74.0087 -97.7906,74.005 -97.9213,73.992 -97.9809,73.9826 -98.0055,73.978 -98.0263,73.9732 -98.1062,73.957 -98.1757,73.9435 -98.2422,73.9338 -98.2828,73.9317 -98.326,73.9307 -98.412,73.9308 -98.5513,73.9174 -98.6875,73.898 -98.7699,73.8792 -98.8422,73.8517 -98.9731,73.84 -99.0318,73.8367 -99.1552,73.815 -99.1752,73.8094 -99.1861,73.7992 -99.1792,73.7916 20,-6.0,Canada -89.78,73.8845 -89.8301,73.8919 -89.9305,73.9008 -89.9894,73.9038 -90.0216,73.9097 -90.0362,73.9143 -90.0553,73.9262 -90.0448,73.9404 -90.0115,73.9532 -89.9772,73.9573 -89.7635,73.9661 -89.7436,73.9639 -89.7131,73.957 -89.6863,73.9468 -89.6748,73.934 -89.6909,73.9101 -89.7005,73.9052 -89.7612,73.888 -89.78,73.8845 -89.78,73.8845 28,7.0,Russia 83.7604,73.9271 83.8634,73.922 83.9179,73.9167 83.9328,73.9156 83.9494,73.915 84.0176,73.9125 84.0389,73.9153 84.1151,73.9368 84.155,73.943 84.1829,73.9426 84.2037,73.9352 84.2036,73.8645 84.1914,73.8595 84.1762,73.8551 84.1206,73.8533 84.09,73.8531 84.0652,73.8545 84.0432,73.8571 83.8028,73.884 83.7467,73.8854 83.7219,73.8872 83.7027,73.8904 83.6866,73.8945 83.6741,73.8996 83.6701,73.9097 83.7093,73.9204 83.7604,73.9271 83.7604,73.9271 41,9.0,Russia 124.1964,73.7377 124.1878,73.7448 124.1385,73.7503 124.1163,73.75 124.099,73.744 124.0789,73.7413 124.0577,73.7451 124.0405,73.75 124.0215,73.7614 124.0057,73.7641 123.9793,73.7687 123.9764,73.7873 123.9963,73.7958 124.0163,73.7982 124.0386,73.7984 124.0577,73.8077 124.0104,73.8207 124.0312,73.8277 124.1121,73.838 124.1333,73.8393 124.1537,73.8417 124.2385,73.8474 124.2556,73.8475 124.2302,73.8418 124.1914,73.8343 124.1731,73.8294 124.154,73.8259 124.1612,73.8176 124.2078,73.8156 124.305,73.8071 124.3299,73.8037 124.3464,73.7947 124.3392,73.7848 124.3229,73.7778 124.3046,73.7725 124.2701,73.7605 124.2524,73.7558 124.2322,73.7533 124.2206,73.7458 124.1964,73.7377 124.1964,73.7377 24,-7.0,Canada -102.5072,72.664 -102.4907,72.6248 -102.3745,72.5676 -102.2191,72.5075 -102.1312,72.4805 -102.0129,72.4522 -101.9769,72.445 -101.9303,72.4365 -101.9303,72.9874 -101.9968,72.9855 -102.0257,72.9842 -102.1178,72.9691 -102.1375,72.9647 -102.2565,72.93 -102.3197,72.8875 -102.3432,72.8466 -102.3453,72.8203 -102.3631,72.7987 -102.3975,72.7668 -102.4143,72.7557 -102.4496,72.7389 -102.4961,72.7214 -102.5151,72.6902 -102.5072,72.664 121,10.0,Russia 140.8056,73.777 140.8203,73.7721 140.8702,73.7629 140.9573,73.7603 141.0006,73.76 141.0222,73.7611 141.0442,73.7639 141.0749,73.7716 141.1187,73.784 141.1625,73.7933 141.2068,73.7982 141.3401,73.8093 141.646,73.8198 141.6678,73.8193 141.6898,73.8171 141.7328,73.8072 141.7542,73.802 141.797,73.7897 141.9823,73.7571 142.047,73.7542 142.0903,73.7502 142.1118,73.7475 142.1546,73.7389 142.2183,73.7202 142.2562,73.7078 142.3089,73.6876 142.3442,73.6721 142.3776,73.6596 142.6576,73.5613 142.6999,73.5534 142.7638,73.5458 142.7847,73.5419 142.8222,73.5293 142.855,73.5169 143.0757,73.4233 143.1141,73.3923 143.1735,73.3399 143.1525,73.3249 143.1302,73.3164 143.0814,73.304 143.0958,73.2642 143.1219,73.2183 143.1547,73.1784 143.1531,73.1315 142.8758,73.1054 142.8333,73.1048 142.7919,73.1088 142.7294,73.1156 142.6667,73.1235 142.5457,73.1357 142.2922,73.1592 142.2717,73.1609 142.229,73.1585 142.101,73.1437 142.0588,73.1419 142.0358,73.1424 142.0144,73.1454 141.9733,73.1526 141.9317,73.1652 141.9108,73.1701 141.8687,73.1739 141.7849,73.1808 141.7426,73.1834 141.7003,73.185 141.6791,73.1839 141.6582,73.1841 141.616,73.1852 141.4935,73.1909 141.451,73.1938 141.2825,73.2063 141.2403,73.2115 141.198,73.218 141.1562,73.2263 140.8859,73.2749 140.6312,73.319 140.4607,73.3473 140.4392,73.3499 140.3969,73.3521 140.3542,73.3524 140.2901,73.3507 140.226,73.3471 140.0771,73.3339 139.938,73.3136 139.9059,73.3063 139.7473,73.2716 139.7055,73.2628 139.6636,73.2557 139.6213,73.2506 139.5368,73.2468 139.494,73.2465 139.4301,73.2488 139.4092,73.2499 139.3879,73.2522 139.3662,73.2557 139.3269,73.2726 139.3081,73.3032 139.3131,73.3244 139.3406,73.3338 139.3615,73.3385 139.3826,73.3411 139.425,73.3437 139.7228,73.3565 139.8079,73.3591 139.8291,73.3581 139.9156,73.359 139.9398,73.3579 139.9654,73.3623 140.0677,73.384 140.1353,73.4079 140.2546,73.4507 140.2949,73.4678 140.3291,73.4925 140.3928,73.5651 140.4701,73.6438 140.5393,73.6923 140.5698,73.7101 140.5958,73.7224 140.722,73.7675 140.7742,73.7778 140.8056,73.777 140.8056,73.777 49,-2.0,Greenland -56.1819,73.6835 -56.2034,73.6846 -56.2166,73.6892 -56.2129,73.6994 -56.1891,73.7188 -56.1752,73.7309 -56.1862,73.734 -56.2038,73.7337 -56.2713,73.7306 -56.357,73.7248 -56.3981,73.7204 -56.4632,73.7101 -56.4849,73.7114 -56.5097,73.7179 -56.5364,73.7262 -56.6324,73.7728 -56.6165,73.7834 -56.5571,73.806 -56.5431,73.8104 -56.517,73.8155 -56.4748,73.8155 -56.3425,73.7964 -56.2814,73.7872 -56.1009,73.7797 -56.0223,73.778 -56.0005,73.7754 -55.886,73.7581 -55.8512,73.7521 -55.8248,73.7435 -55.8147,73.7313 -55.8148,73.7202 -55.8263,73.7121 -55.8429,73.7076 -55.861,73.7054 -55.8875,73.707 -55.9245,73.7134 -55.9567,73.7213 -55.9727,73.7239 -55.992,73.7249 -56.0123,73.7234 -56.0309,73.72 -56.0559,73.7126 -56.0696,73.7071 -56.079,73.7018 -56.0996,73.6924 -56.1135,73.6878 -56.1319,73.685 -56.1819,73.6835 -56.1819,73.6835 391,-6.0,Canada -89.8152,71.7971 -89.7465,71.727 -89.6832,71.6941 -89.6228,71.6665 -89.5985,71.6526 -89.6078,71.6297 -89.6809,71.5872 -89.723,71.5729 -89.7549,71.561 -89.7929,71.5397 -89.8038,71.5056 -89.8014,71.4831 -89.775,71.3526 -89.7587,71.3198 -89.696,71.2586 -89.6164,71.2329 -89.497,71.2218 -89.2228,71.2004 -89.0936,71.1932 -89.0012,71.189 -88.853,71.1821 -88.6458,71.1658 -88.5029,71.1539 -88.3801,71.1409 -88.1187,71.1344 -87.9286,71.1251 -87.8266,71.139 -87.7698,71.1563 -87.7037,71.1737 -87.6259,71.1656 -87.6224,71.1265 -87.6489,71.1001 -87.559,71.0491 -87.5062,71.0309 -87.3725,71.0016 -87.2727,70.9805 -87.1992,70.9528 -87.0799,70.9334 -86.9766,70.9212 -86.9363,70.9178 -86.841,70.9074 -86.8066,70.8994 -86.827,70.8932 -86.8528,70.8941 -86.9176,70.9014 -86.9476,70.9054 -87.0134,70.9139 -87.048,70.9155 -87.0776,70.9121 -87.1048,70.9041 -87.1343,70.8818 -87.1476,70.8588 -87.1724,70.8512 -87.2368,70.8518 -87.36,70.854 -87.4193,70.8571 -87.4649,70.8614 -87.5004,70.862 -87.5528,70.8604 -87.598,70.8564 -87.6577,70.8482 -87.7214,70.837 -87.7686,70.8353 -87.7998,70.8358 -87.825,70.8372 -88.0599,70.8545 -88.0886,70.8567 -88.1244,70.862 -88.1546,70.8806 -88.171,70.912 -88.2308,70.9283 -88.2824,70.9367 -88.4152,70.9509 -88.4867,70.9535 -88.7015,70.9516 -88.7768,70.9474 -88.8362,70.9418 -88.8727,70.9366 -88.9059,70.9337 -88.9309,70.9335 -88.9841,70.9397 -89.0083,70.9543 -89.0165,70.976 -89.2651,70.9982 -89.2865,70.9985 -89.3448,70.995 -89.2904,70.964 -89.1439,70.9061 -89.1115,70.898 -89.0669,70.8902 -88.9913,70.8726 -89.0123,70.8448 -89.0955,70.8397 -89.1681,70.8323 -89.2209,70.8235 -89.2435,70.8123 -89.1694,70.7239 -89.1283,70.6991 -89.0832,70.6767 -89.0592,70.6666 -89.0021,70.6443 -88.9423,70.6245 -88.9109,70.6166 -88.8753,70.6042 -88.8027,70.555 -88.8034,70.5323 -88.7855,70.5157 -88.7146,70.4537 -88.6975,70.4405 -88.5984,70.3972 -88.4795,70.3619 -88.3807,70.3579 -88.2419,70.3462 -88.1764,70.3398 -87.9694,70.3022 -87.9148,70.2919 -87.8867,70.286 -87.7183,70.2397 -87.689,70.2225 -87.7128,70.2112 -87.7981,70.2201 -87.8394,70.2249 -87.8617,70.2365 -88.0134,70.2599 -88.0615,70.2353 -87.9418,70.2042 -87.8918,70.1932 -87.8167,70.1855 -87.726,70.1515 -87.6707,70.147 -87.638,70.1464 -87.6014,70.1486 -87.5812,70.1515 -87.5087,70.1653 -87.4206,70.1918 -87.4407,70.2026 -87.4742,70.2067 -87.4779,70.2272 -87.3668,70.2306 -87.06,70.2147 -86.9897,70.2038 -86.9132,70.1962 -86.8104,70.1888 -86.7871,70.1911 -86.7897,70.2677 -86.8159,70.2797 -86.853,70.2881 -86.9886,70.3019 -86.9413,70.345 -86.8858,70.3632 -86.8391,70.372 -86.8013,70.375 -86.7655,70.3752 -86.7304,70.3603 -86.7503,70.3507 -86.7933,70.3422 -86.6761,70.233 -86.6458,70.2282 -86.4515,70.2299 -86.4621,70.2749 -86.4337,70.3033 -86.3805,70.3304 -86.3216,70.3414 -86.2136,70.3676 -86.1748,70.3797 -86.1488,70.3976 -86.1869,70.4253 -86.1638,70.4285 -86.1405,70.4194 -86.112,70.406 -86.0975,70.3862 -86.1196,70.3703 -86.1792,70.3537 -86.2544,70.3396 -86.2873,70.3325 -86.3246,70.3218 -86.348,70.3094 -86.3648,70.2948 -86.3854,70.269 -86.3611,70.1481 -86.1347,70.0406 -86.1103,70.0303 -86.0634,70.014 -86.0396,70.0071 -85.9033,69.9714 -85.6646,69.9149 -85.6289,69.9088 -85.5399,69.9 -85.5002,69.9024 -85.4564,69.9149 -85.427,69.919 -85.3906,69.9193 -85.2598,69.9106 -85.2271,69.9065 -85.0601,69.9008 -85.1632,69.9356 -85.1897,69.9411 -85.2808,69.9583 -85.3967,69.9764 -85.4379,69.9799 -85.5024,69.9794 -85.5436,69.9757 -85.6044,69.9651 -85.644,69.953 -85.6646,69.9484 -85.6847,69.9881 -85.6569,69.9973 -85.5622,70.0104 -85.5294,70.0122 -85.4762,70.0131 -85.1719,70.0121 -85.1461,70.0108 -85.0,70.0021 -85.0,71.0655 -85.0859,71.0634 -85.2057,71.0807 -85.309,71.0643 -85.4639,71.0553 -85.5828,71.0452 -85.6056,71.0422 -85.6358,71.0333 -85.8301,70.9777 -86.0273,70.9209 -86.0733,70.9091 -86.0952,70.9069 -86.233,70.8955 -86.3504,70.8855 -86.4046,70.8782 -86.5156,70.8806 -86.5602,70.8833 -86.6184,70.8943 -86.594,70.9048 -86.5722,70.9105 -86.552,70.9141 -86.4463,70.9261 -86.3202,70.938 -86.2533,70.9379 -86.2109,70.9417 -86.0913,70.9585 -86.0518,70.9649 -86.0132,70.9939 -85.9737,71.0132 -85.7694,71.0772 -85.7357,71.0849 -85.6415,71.0937 -85.5647,71.0981 -85.4665,71.1003 -85.3276,71.0827 -85.304,71.0833 -85.199,71.1012 -85.0,71.169 -85.0,71.3658 -85.0313,71.3709 -85.1854,71.3856 -85.3024,71.4165 -85.6719,71.582 -85.705,71.6047 -85.7465,71.6319 -85.8232,71.6704 -85.8504,71.6766 -85.8774,71.6804 -85.909,71.6878 -85.9313,71.7004 -85.9643,71.7295 -86.1334,71.8561 -86.2193,71.9229 -86.2294,71.9507 -86.2502,72.111 -86.2264,72.1797 -86.1902,72.2128 -86.1718,72.227 -86.1448,72.2428 -86.1021,72.2624 -86.0695,72.2772 -86.0459,72.2932 -86.0348,72.3166 -86.0547,72.353 -86.0729,72.3689 -86.1383,72.4103 -86.1982,72.4415 -86.2435,72.4559 -86.2585,72.4595 -86.272,72.4633 -86.2963,72.4716 -86.4028,72.5118 -86.4296,72.5235 -86.4534,72.5343 -86.4888,72.5564 -86.5232,72.6187 -86.4858,72.7204 -86.4412,72.7718 -86.4167,72.7856 -86.3607,72.8112 -86.2899,72.843 -86.2642,72.8552 -86.2437,72.8655 -86.1174,72.9385 -86.0751,72.9816 -86.0826,73.0005 -85.926,73.1301 -85.8345,73.1884 -85.718,73.2562 -85.6384,73.2919 -85.5538,73.3261 -85.3836,73.3873 -85.1281,73.4568 -85.0,73.4926 -85.0,73.7159 -85.093,73.7209 -85.207,73.7242 -85.2475,73.7208 -85.305,73.7201 -85.3377,73.7209 -85.4909,73.7321 -85.5318,73.7365 -85.8924,73.7498 -85.9916,73.75 -86.0223,73.7491 -86.1839,73.7457 -86.2753,73.7444 -86.3787,73.745 -86.4984,73.7407 -86.8307,73.7084 -86.9647,73.6929 -87.2373,73.6603 -87.32,73.6469 -87.5204,73.6115 -87.5606,73.6034 -87.5972,73.5946 -87.7035,73.5681 -87.7545,73.5551 -87.8549,73.5283 -88.0431,73.4746 -88.0663,73.4674 -88.1894,73.4242 -88.2136,73.4147 -88.2481,73.3926 -88.4699,73.3158 -88.6376,73.2372 -88.7761,73.1822 -88.8204,73.1562 -89.0094,73.0273 -89.0907,72.9503 -89.1432,72.8935 -89.1406,72.8673 -89.1156,72.8525 -89.0778,72.6998 -89.1146,72.6583 -89.1486,72.6647 -89.2298,72.6781 -89.2626,72.6822 -89.3552,72.6886 -89.3641,72.6171 -89.3549,72.5987 -89.3331,72.5939 -89.3024,72.594 -89.2561,72.5719 -89.3509,72.5221 -89.3902,72.5181 -89.4343,72.5313 -89.4625,72.532 -89.4839,72.5279 -89.5209,72.5193 -89.5377,72.5084 -89.5709,72.4631 -89.5572,72.426 -89.5609,72.3992 -89.5899,72.3622 -89.6511,72.3532 -89.6756,72.3483 -89.6954,72.3303 -89.7412,72.2153 -89.7255,72.1654 -89.6827,72.0929 -89.5895,72.0657 -89.5549,72.0626 -89.5192,72.0745 -89.4932,72.0787 -89.4641,72.0809 -89.3958,72.0822 -89.3665,72.0707 -89.3852,72.0524 -89.4614,72.0161 -89.4861,72.0156 -89.5125,72.0264 -89.5385,72.0271 -89.5997,72.0158 -89.7502,71.9816 -89.7846,71.9708 -89.8366,71.8584 -89.8152,71.7971 31,-6.0,Canada -85.8386,71.8965 -85.8222,71.8854 -85.8001,71.8825 -85.761,71.8787 -85.7378,71.8772 -85.6987,71.8735 -85.6437,71.8667 -85.5432,71.8459 -85.3549,71.803 -85.234,71.7145 -85.2541,71.7 -85.3504,71.6999 -85.3736,71.6887 -85.0868,71.5755 -85.0651,71.5704 -85.0321,71.5648 -85.0,71.5622 -85.0,72.1606 -85.069,72.1632 -85.0893,72.1636 -85.2941,72.1584 -85.2987,72.088 -85.2791,72.0772 -85.2466,72.062 -85.2381,72.0365 -85.3003,71.9775 -85.3364,71.9634 -85.5765,71.9312 -85.7781,71.9328 -85.8462,71.9168 -85.8386,71.8965 23,-6.0,Canada -85.5002,72.5901 -85.4981,72.5409 -85.4533,72.5048 -85.4269,72.4926 -85.3542,72.4853 -85.2766,72.4742 -85.3027,72.4642 -85.4054,72.4427 -85.3302,72.3729 -85.3104,72.3622 -85.1661,72.3179 -85.135,72.3096 -85.0,72.2769 -85.0,72.8549 -85.0498,72.8627 -85.0751,72.8663 -85.1709,72.8731 -85.2823,72.8763 -85.3404,72.8715 -85.3756,72.8644 -85.4767,72.7993 -85.5023,72.6393 -85.5002,72.5901 15,-6.0,Canada -85.3104,72.9224 -85.3051,72.921 -85.0154,72.9168 -85.0,72.9151 -85.0,72.9648 -85.0422,72.9715 -85.0914,72.9799 -85.1247,72.9942 -85.1605,73.0268 -85.1919,73.0374 -85.2133,73.0347 -85.2347,73.0244 -85.2624,72.9996 -85.3274,72.9268 -85.3104,72.9224 5,-6.0,Canada -85.0154,73.0247 -85.0,73.0139 -85.0,73.034 -85.0161,73.0252 -85.0154,73.0247 26,7.0,Russia 86.6618,73.5236 86.6503,73.5289 86.6461,73.5395 86.667,73.555 86.7046,73.5703 86.7582,73.5879 86.7752,73.5934 86.8512,73.6148 86.9048,73.6383 86.9317,73.6702 86.9462,73.7009 86.9595,73.7144 86.9783,73.7177 86.9995,73.7148 87.0081,73.7062 87.0357,73.666 86.967,73.6143 86.9575,73.6084 86.8939,73.5743 86.8718,73.5633 86.8474,73.5618 86.8002,73.5563 86.7778,73.5524 86.6936,73.5372 86.6618,73.5236 86.6618,73.5236 222,9.0,Russia 123.2516,73.1098 123.2298,73.1146 123.0759,73.1983 122.9169,73.3028 122.9344,73.4518 123.0053,73.486 123.0643,73.5186 123.0653,73.5594 123.0961,73.5697 123.2379,73.5971 123.2803,73.5502 123.2939,73.51 123.3137,73.5073 123.3773,73.5008 123.6566,73.5204 123.6821,73.5407 123.635,73.5578 123.5992,73.568 123.5742,73.6662 123.6008,73.6726 123.624,73.6717 123.6549,73.6645 123.7448,73.6149 123.7245,73.6026 123.6892,73.5925 123.7253,73.5815 123.7473,73.5817 123.7759,73.5867 123.8561,73.62 123.9117,73.6481 123.9296,73.6583 124.0264,73.7012 124.0465,73.7035 124.0784,73.7002 124.1933,73.6623 124.2157,73.6511 124.2924,73.6286 124.388,73.6053 124.4096,73.6054 124.43,73.608 124.5248,73.6002 124.6103,73.5661 124.6777,73.5242 124.717,73.5328 124.7466,73.555 124.7403,73.5805 124.7888,73.5862 124.8231,73.5846 124.8449,73.5714 124.8741,73.5242 124.8615,73.462 124.9188,73.4413 124.9402,73.4365 124.9776,73.4339 124.9991,73.4341 125.1042,73.4537 125.2716,73.4413 125.3166,73.4232 125.3095,73.394 125.2734,73.3804 125.2254,73.3713 125.2072,73.3517 125.2556,73.3033 125.2892,73.3088 125.3181,73.331 125.3734,73.3598 125.5581,73.3994 125.6599,73.4029 125.7043,73.4084 125.9289,73.4526 125.9503,73.4537 125.9737,73.4515 126.0031,73.4437 126.0883,73.4086 126.0326,73.3614 126.0043,73.3487 125.8861,73.355 125.8454,73.2782 125.9317,73.2758 125.962,73.2788 126.0087,73.2893 126.0539,73.3029 126.1107,73.3071 126.2177,73.258 126.2347,73.2464 126.277,73.1934 126.2524,73.1709 126.2517,73.1314 126.292,73.1099 126.3087,73.1047 126.3293,73.0938 126.3692,73.0554 126.401,72.9826 126.3727,72.9591 126.2656,72.891 126.1822,72.8732 126.1279,72.8601 126.0567,72.841 126.0167,72.8255 125.9873,72.802 125.9717,72.7758 125.9804,72.7579 125.997,72.7465 126.022,72.7355 126.0507,72.7184 126.076,72.6981 126.0726,72.6762 126.0565,72.6629 126.037,72.6489 125.9889,72.5684 125.9435,72.4281 125.9465,72.4036 125.9714,72.3798 126.0321,72.3398 126.0472,72.2833 125.9111,72.2236 125.8659,72.2053 125.8189,72.205 125.7519,72.2206 125.7155,72.2342 125.6792,72.2476 125.6314,72.257 125.6081,72.2606 125.5638,72.2652 125.5427,72.2652 125.505,72.2602 125.4844,72.2599 125.4488,72.2641 125.4244,72.2688 125.2728,72.3177 125.2478,72.335 125.1827,72.3495 125.136,72.3567 125.1144,72.3574 125.0679,72.3642 125.0437,72.3689 125.0151,72.3765 124.9881,72.3906 124.9593,72.4259 124.942,72.4377 124.8926,72.4533 124.8559,72.4631 124.8119,72.4714 124.6714,72.4911 124.6494,72.4921 124.6003,72.5013 124.5633,72.5112 124.5343,72.5216 124.5003,72.5383 124.4783,72.5648 124.4177,72.5791 124.3952,72.5814 124.373,72.5824 124.3521,72.5821 124.2122,72.5723 124.1733,72.5685 124.1517,72.5692 124.0829,72.576 124.0622,72.5809 124.0248,72.5908 123.9865,72.6071 123.9513,72.6294 123.8668,72.655 123.8212,72.6645 123.6554,72.6901 123.6315,72.6935 123.6093,72.6947 123.5442,72.6963 123.5013,72.6968 123.459,72.6962 123.4371,72.6973 123.3711,72.7 123.3473,72.7031 123.2327,72.7227 123.1573,72.736 123.1363,72.7408 123.0598,72.7603 123.0293,72.7704 122.8881,72.7901 122.8038,72.7893 122.7381,72.7903 122.6718,72.7931 122.6253,72.7972 122.2867,72.8392 122.237,72.8467 122.2154,72.8515 122.1806,72.8616 122.1342,72.8793 122.1665,72.9148 122.2229,72.924 122.2855,72.9262 122.3076,72.9256 122.3311,72.9237 122.4024,72.9162 122.5235,72.9015 122.5565,72.8957 122.5674,72.8714 122.5929,72.8577 122.7888,72.8157 122.8111,72.8147 122.8321,72.8151 122.8819,72.8193 122.9179,72.8271 122.9564,72.8446 123.0154,72.8752 123.0261,72.9049 123.0088,72.9228 123.0745,73.0646 123.0964,73.0716 123.1898,73.0884 123.228,73.0863 123.2123,73.0674 123.2336,73.0609 123.2773,73.0601 123.2976,73.0616 123.3558,73.0697 123.3625,73.1046 123.3364,73.1121 123.314,73.1129 123.2721,73.1115 123.2516,73.1098 123.2516,73.1098 138,-5.0,Canada -76.8976,72.7419 -76.9147,72.7425 -76.9567,72.7442 -77.0396,72.7485 -77.0783,72.7517 -77.1268,72.7577 -77.178,72.7665 -77.2201,72.7748 -77.259,72.7823 -77.3344,72.7884 -77.5246,72.7993 -77.6706,72.7953 -77.7149,72.794 -77.8082,72.7906 -77.9173,72.7884 -78.0461,72.795 -78.0828,72.7926 -78.1068,72.79 -78.2954,72.7678 -78.433,72.7505 -78.6745,72.7067 -78.8562,72.6737 -78.9706,72.653 -79.0177,72.6473 -79.1043,72.6401 -79.1673,72.636 -79.1994,72.6357 -79.2371,72.6384 -79.351,72.6509 -79.431,72.6656 -79.7338,72.7448 -79.7785,72.7569 -79.8095,72.7701 -79.9255,72.8808 -79.9559,72.914 -79.985,72.949 -79.9681,72.9635 -79.9395,72.9866 -79.9264,73.0161 -79.9154,73.0847 -79.9439,73.116 -80.0195,73.1445 -80.0405,73.1455 -80.2174,73.1454 -80.4214,73.1656 -80.5609,73.176 -80.5983,73.1782 -80.6763,73.2345 -80.6721,73.3258 -80.6195,73.3898 -80.6081,73.545 -80.6551,73.6419 -80.5689,73.65 -80.481,73.656 -80.3582,73.6679 -80.2331,73.6664 -80.1716,73.6617 -80.1514,73.6597 -80.1107,73.6512 -80.0639,73.6303 -80.0223,73.6161 -79.9921,73.6074 -79.9495,73.5984 -79.9082,73.594 -79.8739,73.5979 -79.7015,73.5985 -79.4263,73.5713 -79.387,73.563 -79.3245,73.5472 -79.2861,73.5362 -79.2536,73.5311 -79.1755,73.5313 -78.7645,73.5332 -78.743,73.5371 -78.7269,73.5488 -78.6904,73.5569 -78.6642,73.5586 -78.4477,73.557 -78.2124,73.5621 -78.011,73.5683 -77.971,73.5682 -77.9253,73.5643 -77.8693,73.5525 -77.8147,73.5378 -77.7706,73.5286 -77.6288,73.5042 -77.5448,73.4925 -77.4145,73.4749 -77.3419,73.4661 -77.2608,73.4605 -77.2316,73.4552 -77.2029,73.4466 -77.1756,73.4278 -77.1524,73.4191 -77.1024,73.4136 -77.045,73.4109 -77.0056,73.4043 -76.9606,73.3707 -76.8615,73.2653 -76.8093,73.2469 -76.7795,73.2383 -76.7237,73.2255 -76.6976,73.2232 -76.6688,73.2275 -76.6473,73.2285 -76.5469,73.226 -76.5255,73.2211 -76.3923,73.1114 -76.4226,73.0811 -76.4171,73.0606 -76.3965,73.0467 -76.3137,73.0201 -76.1946,73.0077 -76.1267,73.0022 -76.1288,72.9656 -76.1385,72.8612 -76.0975,72.8499 -76.0262,72.8477 -75.9766,72.8483 -75.9257,72.8404 -75.8891,72.8253 -75.8757,72.8062 -75.9052,72.7632 -75.9249,72.7535 -75.9557,72.7463 -76.0664,72.7286 -76.1303,72.7194 -76.1548,72.7175 -76.3863,72.7149 -76.4161,72.7164 -76.4407,72.7211 -76.4859,72.7326 -76.5453,72.7362 -76.5813,72.7362 -76.7052,72.7333 -76.7504,72.7331 -76.8976,72.7419 -76.8976,72.7419 72,-7.0,Canada -106.748,73.3753 -106.743,73.3721 -106.6721,73.3635 -106.6417,73.3623 -106.616,73.3642 -106.4556,73.351 -106.1908,73.2972 -106.0595,73.2399 -105.8207,73.1426 -105.8318,73.1013 -105.6863,73.0618 -105.654,73.047 -105.4742,72.9496 -105.3173,72.8863 -105.2025,72.8359 -105.1866,72.8044 -105.127,72.7687 -105.0274,72.7489 -105.0066,72.7509 -104.9524,72.7685 -104.99,72.7792 -105.0235,72.7877 -105.0715,72.8105 -105.0908,72.8551 -105.0547,72.8546 -104.9697,72.8352 -104.8855,72.8784 -104.8252,72.8975 -104.7753,72.906 -104.7265,72.9253 -104.7223,72.9785 -104.6107,73.0384 -104.5368,73.0695 -104.5047,73.1008 -104.4372,73.1534 -104.3912,73.182 -104.344,73.2075 -104.314,73.2272 -104.2971,73.3042 -104.2532,73.3938 -104.2282,73.4491 -104.2615,73.4778 -104.32,73.5006 -104.4218,73.527 -104.4498,73.5312 -104.5812,73.5512 -104.6978,73.589 -104.8349,73.6397 -104.885,73.6544 -104.9061,73.6557 -105.0298,73.662 -105.2612,73.663 -105.3122,73.6591 -105.3477,73.6524 -105.3728,73.6447 -105.4085,73.6367 -105.4616,73.6288 -105.5355,73.627 -105.7734,73.6315 -105.9195,73.6338 -106.0608,73.6268 -106.3055,73.6123 -106.3514,73.6057 -106.3848,73.5976 -106.4334,73.5764 -106.4786,73.5485 -106.627,73.4632 -106.6633,73.451 -106.7049,73.4325 -106.748,73.4084 -106.7651,73.3862 -106.748,73.3753 28,-2.0,Greenland -56.3486,73.5836 -56.3172,73.6047 -56.3019,73.6057 -56.2898,73.6047 -56.2661,73.6029 -56.2479,73.5995 -56.2164,73.5917 -56.2012,73.5825 -56.2033,73.573 -56.2227,73.5651 -56.4428,73.5277 -56.4984,73.5222 -56.6916,73.512 -56.7141,73.5135 -56.8215,73.5601 -56.7934,73.5683 -56.7577,73.5762 -56.7363,73.5785 -56.7039,73.5804 -56.6842,73.5812 -56.6552,73.5803 -56.6312,73.5785 -56.576,73.5688 -56.5568,73.567 -56.5366,73.5677 -56.3712,73.5815 -56.3486,73.5836 -56.3486,73.5836 21,7.0,Russia 86.6792,73.5933 86.5766,73.5142 86.5636,73.5095 86.5363,73.5002 86.5208,73.4959 86.4717,73.4928 86.2041,73.4885 86.1797,73.4889 86.27,73.5337 86.2853,73.5382 86.3192,73.5456 86.3563,73.5522 86.4781,73.5604 86.4997,73.5627 86.5367,73.5695 86.599,73.5865 86.6082,73.5922 86.6211,73.5973 86.667,73.6015 86.6792,73.5933 86.6792,73.5933 16,-2.0,Greenland -56.2697,73.4425 -56.2894,73.4424 -56.3296,73.4451 -56.4159,73.4548 -56.3997,73.4893 -56.3733,73.5039 -56.1893,73.5563 -56.1748,73.556 -56.0974,73.5473 -56.0583,73.5331 -56.05,73.5264 -56.187,73.457 -56.201,73.4526 -56.214,73.4494 -56.2697,73.4425 -56.2697,73.4425 9,9.0,Russia 125.4797,73.4075 125.3973,73.4432 125.3953,73.4913 125.4898,73.5394 125.5246,73.426 125.517,73.413 125.4997,73.4072 125.4797,73.4075 125.4797,73.4075 21,-7.0,Canada -123.9973,73.5327 -123.9932,73.5271 -123.972,73.5194 -123.958,73.5166 -123.9003,73.5118 -123.8837,73.5095 -123.8698,73.507 -123.8581,73.5034 -123.8398,73.4954 -123.814,73.4788 -123.8056,73.4679 -123.8174,73.4613 -123.998,73.4569 -124.0223,73.4569 -124.0338,73.4605 -124.0422,73.4716 -124.0481,73.5305 -124.0358,73.5341 -124.0208,73.5367 -123.9973,73.5327 -123.9973,73.5327 27,-7.0,Canada -107.8105,73.4818 -107.7541,73.452 -107.7404,73.4485 -107.7032,73.4434 -107.6835,73.4411 -107.6619,73.4402 -107.6271,73.4421 -107.481,73.4564 -107.3891,73.4691 -107.377,73.471 -107.3339,73.4759 -107.3201,73.4839 -107.3163,73.5021 -107.332,73.5119 -107.346,73.5151 -107.4125,73.522 -107.5354,73.5244 -107.5551,73.5249 -107.5936,73.5245 -107.63,73.5232 -107.7381,73.5191 -107.7712,73.516 -107.7849,73.5128 -107.7966,73.5091 -107.8105,73.5008 -107.8123,73.4827 -107.8105,73.4818 27,-2.0,Greenland -55.8036,73.4708 -55.7637,73.4373 -55.7367,73.4288 -55.7025,73.4232 -55.6098,73.4081 -55.5734,73.4044 -55.4663,73.3817 -55.3963,73.3631 -55.3857,73.3593 -55.3524,73.3458 -55.3359,73.3297 -55.4522,73.282 -55.4652,73.2789 -55.4887,73.2798 -55.5902,73.2847 -55.6057,73.2891 -55.6142,73.2969 -55.6054,73.3058 -55.5747,73.3127 -55.5482,73.3766 -55.6915,73.3855 -55.9761,73.4573 -55.965,73.4643 -55.9107,73.4768 -55.8965,73.4763 -55.8036,73.4708 -55.8036,73.4708 18,7.0,Russia 80.1369,73.4006 80.1152,73.4025 80.0118,73.4152 79.9364,73.4255 79.8577,73.4563 79.8782,73.4594 79.9698,73.4696 79.9967,73.4709 80.0241,73.4707 80.1171,73.4639 80.1388,73.4618 80.177,73.4556 80.1902,73.4527 80.2038,73.4469 80.1878,73.4023 80.1611,73.4012 80.1369,73.4006 80.1369,73.4006 35,5.0,Russia 75.1199,73.3193 75.121,73.3289 75.1338,73.3447 75.1699,73.367 75.185,73.3732 75.2351,73.3927 75.3331,73.4255 75.3923,73.4424 75.433,73.4508 75.4746,73.4553 75.5166,73.4588 75.6866,73.4661 75.8168,73.4696 75.8605,73.468 75.8855,73.4617 75.7076,73.3648 75.6923,73.3583 75.6087,73.3515 75.4395,73.344 75.3536,73.346 75.3317,73.3466 75.3101,73.3487 75.3255,73.3538 75.3487,73.3624 75.3564,73.3962 75.3463,73.394 75.2521,73.3638 75.1938,73.3443 75.1706,73.3284 75.1606,73.3205 75.1666,73.3086 75.1525,73.305 75.1329,73.3104 75.1199,73.3193 75.1199,73.3193 36,5.0,Russia 75.8925,73.4281 75.9352,73.453 75.9557,73.4568 75.9771,73.4572 75.9987,73.4565 76.0209,73.4543 76.0436,73.4489 76.0886,73.4399 76.2005,73.4217 76.2449,73.4151 76.2894,73.4089 76.3557,73.4 76.3776,73.3967 76.4226,73.3894 76.4675,73.3802 76.5126,73.3703 76.5351,73.3645 76.5636,73.3527 76.5743,73.3333 76.5612,73.3249 76.539,73.3293 76.5248,73.335 76.5148,73.341 76.4863,73.3529 76.4638,73.3585 76.4185,73.3687 76.3289,73.3864 76.1498,73.4115 76.1273,73.4147 76.1056,73.4153 75.9768,73.4155 75.913,73.4139 75.8952,73.4163 75.8854,73.422 75.8925,73.4281 75.8925,73.4281 16,9.0,Russia 127.7241,73.3882 127.6717,73.3852 127.3585,73.3985 127.1084,73.4149 127.0837,73.4183 127.0717,73.421 127.0894,73.4266 127.15,73.4339 127.1913,73.4375 127.2543,73.4406 127.3448,73.4386 127.3905,73.4361 127.4363,73.4325 127.5074,73.4239 127.7241,73.3882 127.7241,73.3882 126,9.0,Russia 126.4622,72.9783 126.4658,72.9974 126.4539,73.0722 126.4267,73.0922 126.2931,73.1546 126.3002,73.228 126.3132,73.2786 126.3458,73.318 126.3834,73.3413 126.4129,73.3452 126.4551,73.3203 126.4774,73.2857 126.5153,73.2828 126.5912,73.3518 126.6077,73.3929 126.5909,73.4046 126.5571,73.4118 126.516,73.4204 126.5377,73.4266 126.5982,73.4339 126.6401,73.4362 126.7259,73.4383 126.7478,73.4384 126.8762,73.4356 126.9215,73.4333 126.9803,73.4179 127.1488,73.381 127.2778,73.3833 127.4102,73.3804 127.4677,73.3782 127.6595,73.3712 127.7505,73.2989 127.7666,73.2592 127.8755,73.2575 128.0357,73.2541 128.0203,73.2362 127.9901,73.2225 127.9421,73.1693 128.0745,73.1498 128.2005,73.157 128.2515,73.161 128.3161,73.1606 128.3387,73.1591 128.4102,73.1467 128.5761,73.1124 128.6506,73.0685 128.6319,73.0475 128.5496,73.0212 128.4663,72.9745 128.5491,72.9793 128.5934,72.9942 128.6232,73.0082 128.65,73.0174 128.6973,73.0272 128.7267,73.031 128.7818,73.0301 128.8029,72.9994 128.766,72.9422 128.7381,72.9251 128.6992,72.9077 128.6729,72.8984 128.6359,72.8894 128.3194,72.8359 128.189,72.8249 128.1066,72.822 128.064,72.8222 128.0247,72.8177 127.9874,72.8098 127.9376,72.7883 127.9016,72.7665 127.9264,72.7281 127.8638,72.71 127.8249,72.7055 127.7655,72.6999 127.6646,72.6934 127.6254,72.6887 127.5875,72.6828 127.512,72.669 127.4679,72.6558 127.4391,72.6425 127.3756,72.6266 127.3383,72.6195 127.2553,72.6187 127.2117,72.6213 127.1884,72.6248 127.145,72.6271 127.1239,72.6277 127.0845,72.624 127.0198,72.6108 126.7879,72.5348 126.6533,72.4866 126.6194,72.4749 126.5642,72.4642 126.4624,72.4543 126.4424,72.4532 126.3496,72.4518 126.286,72.4389 126.2257,72.4176 126.1917,72.3705 126.218,72.3502 126.2564,72.3369 126.2811,72.3231 126.2533,72.3079 126.2249,72.3038 126.1883,72.3072 126.1256,72.3307 126.0654,72.3583 126.0287,72.3812 126.0007,72.4058 126.0379,72.5938 126.1397,72.6923 126.1145,72.7236 126.0982,72.7351 126.0612,72.7513 126.0343,72.7687 126.0253,72.7928 126.0488,72.8162 126.0904,72.8293 126.1454,72.8414 126.2017,72.8523 126.3089,72.8809 126.35,72.8945 126.3729,72.9139 126.4256,72.9572 126.4622,72.9783 126.4622,72.9783 104,5.0,Russia 69.7028,72.9522 69.7151,72.9837 69.7451,73.0281 69.7543,73.035 69.7808,73.0487 69.8153,73.0624 69.842,73.0761 69.8601,73.0892 69.8803,73.1147 69.8909,73.1337 69.8925,73.1614 69.848,73.2183 69.8371,73.2298 69.807,73.2529 69.7959,73.2649 69.7849,73.277 69.7826,73.292 69.7883,73.3014 69.8015,73.3082 69.8163,73.3127 70.0275,73.3592 70.0669,73.366 70.229,73.3852 70.3105,73.3938 70.332,73.39 70.5451,73.4032 70.6896,73.4165 70.7108,73.4173 70.7545,73.4169 70.7999,73.4125 70.8708,73.4006 71.0711,73.3551 71.0884,73.342 70.9663,73.2895 70.8244,73.1901 70.8636,73.1707 71.0355,73.1695 71.1008,73.1843 71.2065,73.2118 71.2252,73.2174 71.2416,73.2274 71.2467,73.2428 71.2563,73.2496 71.2786,73.2476 71.2984,73.2424 71.3097,73.2368 71.4257,73.1738 71.444,73.162 71.4866,73.127 71.5016,73.1122 71.5008,73.0783 71.4816,73.0738 71.4382,73.0717 71.3755,73.0704 71.3313,73.0738 71.2244,73.0754 71.1825,73.0736 71.1631,73.0705 71.1494,73.0638 71.1304,73.0506 71.1166,73.044 71.0984,73.0384 71.0785,73.0353 71.0183,73.0288 70.9161,73.021 70.8955,73.0201 70.8319,73.0198 70.7642,73.0284 70.7421,73.0296 70.7209,73.0299 70.5618,73.0095 70.4062,72.983 70.3675,72.9764 70.3313,72.965 70.2784,72.944 70.2599,72.9396 70.2399,72.9374 70.1775,72.9361 70.1136,72.9367 70.0697,72.9395 70.0464,72.9434 70.0268,72.9488 69.9921,72.9656 69.9816,72.9805 69.9706,72.9895 69.959,72.9951 69.9351,73.0 69.9156,72.9965 69.8311,72.9657 69.8298,72.9536 69.8452,72.9479 69.8664,72.9475 69.8892,72.9448 69.9091,72.9394 69.9247,72.9343 69.9396,72.9225 69.9295,72.9171 69.7564,72.9251 69.7345,72.9266 69.7116,72.9294 69.6958,72.9345 69.6977,72.947 69.7028,72.9522 69.7028,72.9522 15,-2.0,Greenland -55.8249,73.3799 -55.7029,73.3756 -55.673,73.3723 -55.6459,73.3356 -55.6568,73.3256 -55.6684,73.3202 -55.6886,73.3182 -55.8952,73.3452 -55.9149,73.3518 -55.9087,73.362 -55.8996,73.3676 -55.8858,73.372 -55.8702,73.3759 -55.8249,73.3799 -55.8249,73.3799 11,9.0,Russia 126.1796,73.293 126.1687,73.2959 126.1546,73.3448 126.2929,73.364 126.3134,73.3664 126.3317,73.3651 126.3445,73.3596 126.2997,73.3005 126.2611,73.2936 126.1796,73.293 126.1796,73.293 130,-2.0,Greenland -24.3369,73.3155 -24.2993,73.3127 -24.1356,73.3003 -23.7909,73.2631 -23.6528,73.2418 -23.5802,73.2284 -23.4518,73.2045 -23.2108,73.159 -23.1866,73.1504 -23.1553,73.1312 -23.1736,73.1215 -23.1928,73.1187 -23.2127,73.1181 -23.56,73.1207 -23.5995,73.1218 -23.6827,73.1261 -23.7628,73.134 -23.9507,73.1556 -24.0087,73.1625 -24.0663,73.1761 -24.1441,73.1892 -24.1658,73.1923 -24.1874,73.1941 -24.229,73.1958 -24.3085,73.1922 -24.3498,73.1924 -24.4339,73.1976 -24.5821,73.2075 -24.7456,73.22 -24.7883,73.224 -24.8458,73.2255 -24.8646,73.2253 -24.8987,73.2233 -24.9355,73.218 -24.9449,73.2134 -24.9238,73.2031 -24.9013,73.2061 -24.8898,73.2094 -24.8624,73.2158 -24.8498,73.2172 -24.8263,73.218 -24.8108,73.215 -24.7332,73.1969 -24.6158,73.1814 -24.5021,73.172 -24.3595,73.1653 -24.2271,73.1592 -24.1853,73.1573 -24.1306,73.1523 -24.102,73.1498 -24.0874,73.1474 -24.0059,73.1329 -23.8887,73.1155 -23.7768,73.1041 -23.6985,73.0963 -23.5725,73.0855 -23.5517,73.0847 -23.4966,73.0862 -23.44,73.0907 -23.3435,73.0938 -23.2369,73.0899 -23.074,73.0829 -23.0347,73.0775 -22.8879,73.0487 -22.8822,73.0363 -22.9112,73.0095 -22.9227,73.0046 -22.94,72.9992 -22.9528,72.9967 -23.0021,72.9948 -23.0505,72.9982 -23.0705,72.998 -23.1506,72.9974 -23.2845,72.9926 -23.3135,72.9907 -23.3261,72.9889 -23.433,72.9774 -23.5361,72.9674 -23.7288,72.9538 -23.8333,72.9486 -23.8644,72.9478 -23.8834,72.948 -23.9058,72.9498 -23.9254,72.9524 -24.1144,72.945 -24.1887,72.9362 -24.3272,72.9253 -24.3442,72.9258 -24.6254,72.9581 -24.7245,72.9711 -24.9077,72.9985 -24.9495,73.01 -24.967,73.0145 -24.985,73.0167 -25.0061,73.0179 -25.0411,73.0175 -25.0914,73.0136 -25.1258,73.0088 -25.1626,73.0092 -25.3683,73.0208 -25.3899,73.0229 -25.4302,73.0285 -25.551,73.056 -25.615,73.0725 -25.6468,73.0847 -25.6479,73.0969 -25.383,73.1961 -25.2916,73.2143 -25.257,73.2199 -25.2392,73.2244 -25.2255,73.2314 -25.2223,73.2413 -25.2288,73.2508 -25.2386,73.2646 -25.2365,73.2797 -25.2221,73.2922 -25.2099,73.2986 -25.1939,73.3036 -25.1805,73.3066 -25.1403,73.3119 -25.1063,73.3125 -25.0053,73.3094 -24.9873,73.3107 -24.8721,73.3198 -24.8153,73.3258 -24.6662,73.3296 -24.5953,73.3247 -24.4063,73.3177 -24.3369,73.3155 -24.3369,73.3155 533,3.0,Russia 56.0373,70.4977 55.9967,70.5019 55.8983,70.5364 55.8427,70.5623 55.8018,70.574 55.7278,70.5793 55.7446,70.5596 55.7651,70.5425 55.8197,70.5294 55.8403,70.5255 55.8809,70.5106 55.9066,70.4884 55.7497,70.4876 55.5831,70.5264 55.5844,70.5469 55.6058,70.5453 55.6527,70.5394 55.6602,70.5596 55.6371,70.5887 55.6256,70.605 55.5089,70.6367 55.4775,70.6306 55.5399,70.5889 55.4677,70.6063 55.3287,70.6467 55.2819,70.6551 55.125,70.5828 55.1085,70.5652 55.1293,70.5382 55.1479,70.5302 55.1675,70.5136 55.1439,70.4906 55.0824,70.4611 55.0626,70.4597 55.0411,70.4607 55.0182,70.4632 54.9909,70.4727 54.8708,70.5207 54.7741,70.5582 54.7229,70.5675 54.7015,70.5686 54.6783,70.5711 54.6577,70.575 54.6248,70.5874 54.5769,70.6231 54.5863,70.6482 54.564,70.6648 54.4501,70.6884 54.3762,70.6909 54.356,70.6411 54.3754,70.6334 54.4226,70.6229 54.4937,70.6092 54.6098,70.5761 54.6329,70.5596 54.5491,70.5561 54.4353,70.5838 54.4125,70.5911 54.3347,70.6202 54.1595,70.6777 54.1397,70.6674 54.1638,70.6485 54.1296,70.6356 54.092,70.6336 53.9286,70.6476 53.8899,70.6594 53.8442,70.6768 53.7094,70.7162 53.6885,70.7068 53.6077,70.6997 53.5496,70.7156 53.5221,70.7274 53.4353,70.7393 53.4084,70.7411 53.3859,70.7268 53.3424,70.7208 53.2586,70.7656 53.4511,70.7933 53.4724,70.7891 53.5239,70.7842 53.5547,70.772 53.6175,70.8559 53.5775,70.8906 53.5238,70.9169 53.3818,70.9681 53.386,70.9923 53.5524,71.0011 53.6924,71.037 53.8156,71.046 53.8594,71.0438 53.8844,71.0408 53.9058,71.0366 53.9334,71.024 53.8992,71.0224 53.8314,71.0336 53.8056,71.0306 53.7924,71.0059 53.8141,71.0047 53.9654,70.9992 53.995,71.0002 54.0865,71.0176 54.112,71.0309 54.0787,71.0421 54.0254,71.0272 54.0047,71.0269 53.8726,71.0581 53.8296,71.0808 53.6871,71.0592 53.6337,71.0738 53.5977,71.0933 53.5177,71.1091 53.4971,71.1089 53.459,71.1066 53.4367,71.1075 53.3823,71.127 53.3348,71.1658 53.392,71.1805 53.4859,71.2303 53.5572,71.2933 53.6122,71.3154 53.7078,71.3144 53.7689,71.3238 53.8167,71.364 53.7827,71.3761 53.7568,71.3721 53.5918,71.3168 53.4726,71.2955 53.4332,71.2858 53.4186,71.2517 53.4236,71.2254 53.4,71.2053 53.3575,71.1975 53.3235,71.2029 53.2415,71.232 53.1329,71.3514 53.2323,71.4195 53.2771,71.4335 53.3112,71.4479 53.2412,71.4702 53.1206,71.4324 53.088,71.4171 53.0597,71.3988 52.9285,71.4054 52.9063,71.4061 52.8866,71.3894 52.8605,71.349 52.7972,71.3111 52.6719,71.3544 52.5003,71.4017 52.4655,71.4709 52.4305,71.4997 52.3901,71.4983 52.3106,71.4535 52.2599,71.3957 52.2129,71.395 52.1677,71.4121 52.1424,71.4341 52.0952,71.4682 52.0202,71.4424 52.0438,71.4221 52.101,71.3963 52.0455,71.3875 51.8425,71.3806 51.6776,71.3805 51.5196,71.4349 51.4324,71.4997 51.2987,71.6361 51.2817,71.6946 51.2747,71.7533 51.2852,71.7817 51.2971,71.8038 51.3213,71.8407 51.3367,71.8629 51.3681,71.901 51.4526,71.9748 51.4792,71.9865 51.5393,72.0058 51.7192,72.0626 51.7418,72.0633 51.7999,72.0278 51.8943,72.011 51.9291,72.005 51.9962,72.0098 52.1279,71.994 52.1801,71.9711 52.207,71.9659 52.2286,71.9659 52.2796,71.9836 52.2951,72.108 52.2855,72.129 52.3554,72.155 52.4026,72.1652 52.427,72.163 52.4555,72.1634 52.6205,72.2404 52.5867,72.2657 52.5653,72.2732 52.5394,72.3357 52.6655,72.4123 52.747,72.4174 52.7453,72.4402 52.7836,72.4728 52.8539,72.4852 52.9104,72.4924 52.9565,72.497 52.8862,72.5001 52.8457,72.4975 52.7875,72.4918 52.7415,72.485 52.6983,72.4763 52.6433,72.4606 52.6079,72.4586 52.6096,72.5242 52.6284,72.5391 52.796,72.5697 52.837,72.5723 52.8607,72.5714 52.8875,72.5682 52.9434,72.5586 53.0031,72.5494 53.0489,72.5486 53.0862,72.552 52.901,72.5806 52.8743,72.5838 52.8489,72.5857 52.762,72.5839 52.7416,72.5828 52.6871,72.5727 52.6057,72.5703 52.4415,72.5756 52.4176,72.5769 52.2542,72.6243 52.2597,72.6453 52.4687,72.7558 52.5011,72.7646 52.6022,72.7801 52.7318,72.8006 52.7683,72.8067 52.848,72.8218 52.8802,72.8233 52.9038,72.8225 52.9294,72.82 53.0081,72.8036 53.1952,72.776 53.2445,72.7808 53.2624,72.83 53.2351,72.8367 53.211,72.8375 53.1598,72.834 53.104,72.8336 53.0705,72.8397 53.0151,72.8594 53.0115,72.9058 53.1025,72.9195 53.152,72.9167 53.2308,72.9088 53.2514,72.9103 53.1323,72.9619 53.1048,72.9635 53.0743,72.961 53.0483,72.9631 52.9957,72.9931 53.023,73.055 53.1277,73.0955 53.1981,73.1183 53.3106,73.1424 53.3346,73.1412 53.3743,73.1328 53.3984,73.1293 53.4289,73.1316 53.4833,73.1572 53.5094,73.1706 53.5655,73.1872 53.627,73.2002 53.6571,73.2033 53.8113,73.1912 53.8374,73.1889 53.8592,73.1816 53.8968,73.1696 53.9224,73.1674 54.0138,73.1676 54.0347,73.1686 54.0933,73.1757 54.1922,73.2027 54.3133,73.2404 54.3925,73.2716 54.435,73.2823 54.6762,73.3141 54.7787,73.3233 54.8012,73.3229 54.8273,73.3206 54.8511,73.3168 54.9847,73.2925 55.024,73.2837 55.0594,73.2747 55.1097,73.2607 55.1477,73.2468 55.1854,73.2332 55.3196,73.216 55.3411,73.2172 55.3807,73.2213 55.4235,73.2237 55.5785,73.2261 55.6013,73.2262 55.6256,73.2249 55.6527,73.2181 55.6702,73.2002 55.9721,73.1569 56.0656,73.1542 56.248,73.1344 56.2984,73.1271 56.329,73.117 56.4474,73.0338 56.415,73.0193 56.282,73.0078 56.0134,72.9906 55.8885,72.9835 55.7291,72.9686 55.676,72.9596 55.7465,72.9586 55.7884,72.9606 55.8711,72.966 56.1086,72.9723 56.155,72.9706 56.2971,72.9574 56.3224,72.9488 56.2425,72.9085 56.203,72.8956 56.1718,72.8945 56.1197,72.9004 56.0703,72.9044 56.003,72.9046 55.972,72.9029 55.9263,72.8952 55.8678,72.8887 55.7299,72.8749 55.6881,72.8727 55.6194,72.8746 55.5116,72.8699 55.4863,72.8656 55.5292,72.8494 55.5532,72.8483 55.8024,72.8444 55.8474,72.8441 55.8695,72.8439 55.9102,72.8472 55.9339,72.8542 55.9626,72.8669 56.0514,72.8756 56.0932,72.8774 56.1192,72.8703 56.1039,72.7953 56.0801,72.734 56.0284,72.6946 56.0057,72.6863 55.9387,72.6781 55.8975,72.6764 55.875,72.6765 55.8466,72.6835 55.8049,72.6936 55.7269,72.703 55.7048,72.703 55.6515,72.6841 55.605,72.6757 55.5548,72.6803 55.5172,72.6892 55.4674,72.697 55.3511,72.7117 55.3029,72.6839 55.3324,72.6816 55.4872,72.6784 55.7024,72.6458 55.7311,72.6324 55.8091,72.5671 55.7855,72.5652 55.6675,72.5714 55.5886,72.5423 55.5368,72.4647 55.4751,72.4391 55.4559,72.4368 55.3513,72.473 55.3195,72.4789 55.2663,72.486 55.2209,72.4872 55.1341,72.485 55.2333,72.4742 55.2805,72.4716 55.3154,72.4669 55.419,72.4215 55.4091,72.3778 55.3881,72.369 55.2591,72.3593 55.2385,72.3581 55.2151,72.3594 55.1888,72.3628 55.1657,72.3642 55.1437,72.3641 55.037,72.3622 55.0014,72.3538 55.224,72.3356 55.3102,72.3397 55.3313,72.3316 55.3515,72.2814 55.3319,72.2509 55.347,72.1737 55.3984,72.1537 55.4441,72.0932 55.4178,72.0729 55.3925,72.0675 55.3559,72.054 55.314,72.0359 55.2527,72.006 55.2138,71.9687 55.2385,71.9661 55.2726,71.9322 55.1924,71.8528 55.1672,71.8566 55.1425,71.8588 55.118,71.8563 55.0913,71.8301 55.1364,71.8262 55.1578,71.8265 55.2247,71.8237 55.2717,71.8202 55.2971,71.8166 55.3517,71.8032 55.3752,71.7962 55.3977,71.761 55.3884,71.7222 55.394,71.6896 55.4078,71.6651 55.4315,71.6282 55.5455,71.5103 55.5803,71.4814 55.6509,71.4466 55.6756,71.4335 55.7031,71.4099 55.7231,71.3861 55.7848,71.3342 55.905,71.2498 55.9123,71.2294 55.9279,71.1985 55.9482,71.1807 56.0684,71.1164 56.0992,71.1003 56.1464,71.0785 56.1674,71.0714 56.209,71.0597 56.2646,71.0432 56.2956,71.0304 56.4013,70.9839 56.4252,70.9734 56.4452,70.9626 56.5094,70.9239 56.798,70.8129 56.8249,70.8031 56.9354,70.7665 56.9849,70.7559 57.1127,70.734 57.3361,70.7128 57.5029,70.6353 57.4815,70.63 57.421,70.6309 57.3539,70.5727 57.3212,70.5359 57.3224,70.5125 57.2574,70.5102 57.1283,70.5344 57.0336,70.5564 56.8732,70.5795 56.6621,70.6087 56.6407,70.6099 56.6165,70.6065 56.7384,70.5462 56.8572,70.5352 56.9004,70.5326 56.967,70.5333 57.1136,70.5017 57.204,70.4768 57.1855,70.4681 57.1402,70.4734 57.035,70.4796 56.9514,70.4906 56.7866,70.5146 56.6022,70.5411 56.5637,70.5348 56.5149,70.5375 56.4689,70.5484 56.3775,70.577 56.3684,70.5996 56.3871,70.6289 56.4236,70.6328 56.4469,70.6434 56.4181,70.6558 56.3871,70.6567 56.3333,70.6508 56.1943,70.6089 56.0928,70.5672 56.1125,70.5572 56.1416,70.5543 56.2049,70.5512 56.2485,70.5601 56.2098,70.5818 56.2383,70.586 56.2979,70.5823 56.3274,70.5775 56.5255,70.4864 56.414,70.4483 56.366,70.4474 56.3431,70.4496 56.2752,70.4613 56.245,70.4704 56.297,70.4668 56.3664,70.4643 56.4274,70.4799 56.4133,70.4961 56.3824,70.5009 56.3527,70.5005 56.3081,70.4956 56.2709,70.4938 56.249,70.4952 56.1527,70.5138 56.1302,70.5195 56.0935,70.5383 56.0322,70.5572 56.0114,70.5614 55.9325,70.5694 55.9213,70.5497 55.9587,70.5461 55.9977,70.5417 56.053,70.5137 56.0373,70.4977 56.0373,70.4977 14,-2.0,Greenland -55.4125,73.2161 -55.4296,73.2191 -55.4542,73.2487 -55.2958,73.3062 -55.2379,73.3178 -55.223,73.3198 -55.2102,73.3157 -55.1926,73.2934 -55.232,73.2728 -55.2552,73.2629 -55.3789,73.2228 -55.3944,73.2192 -55.4125,73.2161 -55.4125,73.2161 19,5.0,Russia 70.968,73.2395 70.9729,73.2509 70.9908,73.2668 70.9999,73.2737 71.0573,73.3052 71.071,73.3119 71.0864,73.3149 71.109,73.3135 71.156,73.3055 71.1712,73.3003 71.1826,73.2942 71.1754,73.2359 71.1652,73.2262 71.0454,73.183 70.9791,73.1878 70.9649,73.191 70.9661,73.2218 70.968,73.2395 70.968,73.2395 17,-2.0,Greenland -55.8259,73.3046 -55.7685,73.2906 -55.7086,73.2834 -55.696,73.2725 -55.7743,73.2149 -55.7976,73.2046 -55.8159,73.2003 -55.9719,73.1905 -55.9866,73.1908 -56.0081,73.1972 -56.0139,73.2081 -55.954,73.2759 -55.8788,73.3109 -55.8494,73.3126 -55.8341,73.3087 -55.8259,73.3046 -55.8259,73.3046 1228,-7.0,Canada -118.8465,71.6355 -118.8279,71.5909 -118.8021,71.5541 -118.7733,71.5316 -118.6275,71.4846 -118.5977,71.4903 -118.6238,71.5143 -118.5737,71.5676 -118.3288,71.569 -118.2903,71.5676 -118.21,71.5604 -118.179,71.556 -118.1109,71.5218 -118.0901,71.4944 -118.0513,71.4889 -118.025,71.4887 -117.909,71.5003 -117.8904,71.5086 -117.9,71.53 -117.8465,71.5558 -117.7437,71.5769 -117.4621,71.5799 -117.4374,71.5691 -117.5893,71.5445 -117.6344,71.5201 -117.6061,71.5179 -117.3855,71.4741 -117.4079,71.4566 -117.4338,71.4547 -117.5622,71.4598 -117.7804,71.4483 -117.8121,71.4454 -117.8521,71.4385 -117.9102,71.4266 -117.9334,71.4203 -117.9893,71.3994 -118.0121,71.3892 -118.0382,71.3643 -118.0395,71.3395 -118.0171,71.3146 -117.9768,71.2972 -117.9126,71.2856 -117.8395,71.2793 -117.8182,71.2786 -117.7515,71.2785 -117.676,71.2833 -117.5557,71.2777 -117.5228,71.2737 -117.4848,71.2817 -117.4097,71.2853 -117.3226,71.2775 -117.254,71.2825 -117.2101,71.3339 -117.2347,71.3448 -117.2743,71.3501 -117.3326,71.353 -117.3574,71.3648 -117.2819,71.4045 -117.2454,71.3986 -117.2221,71.3922 -117.1759,71.3792 -117.1137,71.3484 -117.1355,71.2952 -117.0974,71.2887 -117.0571,71.2919 -116.9375,71.303 -116.9058,71.3102 -116.7156,71.3329 -116.536,71.3417 -116.174,71.3889 -116.1441,71.392 -116.0642,71.3989 -116.0129,71.401 -115.9387,71.4011 -115.8909,71.4049 -115.6961,71.4276 -115.6075,71.4381 -115.5233,71.4489 -115.4377,71.4611 -115.3866,71.4633 -115.3503,71.4607 -115.2464,71.435 -115.2761,71.4177 -115.1836,71.3941 -115.0551,71.3979 -114.9856,71.4042 -114.8963,71.4233 -114.8467,71.4299 -114.8001,71.4293 -114.9085,71.3904 -114.9333,71.385 -115.1115,71.3552 -115.1486,71.3553 -115.2682,71.3757 -115.3166,71.3926 -115.3447,71.4027 -115.4949,71.3958 -115.5598,71.3886 -115.7961,71.344 -115.7496,71.3165 -115.6587,71.2935 -115.618,71.2947 -115.5812,71.299 -115.523,71.302 -115.4836,71.2963 -115.4631,71.2842 -115.4867,71.2727 -115.5094,71.2703 -115.543,71.2683 -115.7849,71.2616 -115.8139,71.2724 -115.8741,71.2733 -115.9092,71.2724 -115.9409,71.2699 -116.1376,71.2486 -116.2494,71.2321 -116.333,71.2195 -116.401,71.2085 -116.4445,71.2032 -116.5318,71.1921 -116.5641,71.1797 -116.7166,71.1422 -117.0193,71.1127 -117.1179,71.0985 -117.1474,71.095 -117.225,71.0882 -117.2733,71.0845 -117.3706,71.0781 -117.4207,71.0756 -117.459,71.0759 -117.5265,71.0724 -117.5795,71.0631 -117.7104,71.0308 -118.0025,70.9551 -118.0692,70.936 -118.1007,70.9257 -118.1407,70.9068 -118.1438,70.8833 -118.0475,70.8085 -118.0039,70.7826 -117.9288,70.7468 -117.8995,70.7353 -117.8678,70.7248 -117.8252,70.7116 -117.7802,70.6985 -117.7418,70.6902 -117.6785,70.6756 -117.6314,70.663 -117.4753,70.6205 -117.4474,70.6036 -117.4688,70.5785 -117.4666,70.5542 -117.4392,70.5416 -117.406,70.5319 -117.3481,70.5159 -117.287,70.5037 -117.2478,70.5178 -117.1031,70.532 -117.0835,70.525 -116.837,70.5108 -116.7959,70.5089 -116.6471,70.5047 -116.452,70.5105 -116.3996,70.5156 -116.3693,70.5223 -116.2671,70.5397 -116.1101,70.5465 -116.0014,70.5422 -115.9048,70.5324 -115.8241,70.4952 -115.7946,70.4798 -115.715,70.4927 -115.6609,70.5009 -115.6286,70.5026 -115.1302,70.5122 -114.9928,70.5087 -114.8776,70.5053 -114.7301,70.5112 -114.3829,70.5297 -114.3129,70.5389 -114.2869,70.5436 -114.2367,70.5541 -114.1954,70.5644 -114.1585,70.5784 -114.1194,70.5832 -114.0648,70.5823 -114.0041,70.5788 -113.9507,70.5729 -113.9133,70.5719 -113.8861,70.5757 -113.8633,70.5819 -113.8319,70.5926 -113.8105,70.5997 -113.758,70.6171 -113.7245,70.6222 -113.6807,70.6224 -113.6247,70.6173 -113.5051,70.6034 -113.4718,70.5988 -113.4273,70.5854 -113.4007,70.574 -113.3742,70.5621 -113.3431,70.5547 -113.3068,70.5522 -113.2715,70.5622 -113.2591,70.583 -113.2362,70.5846 -113.0475,70.5493 -112.8875,70.5136 -112.7542,70.4854 -112.6836,70.4746 -112.5986,70.4729 -112.5609,70.4755 -112.4651,70.4754 -112.4214,70.4624 -112.3993,70.4527 -112.3689,70.4419 -112.3331,70.4325 -112.2662,70.4215 -112.245,70.4226 -112.1746,70.4339 -111.9473,70.41 -111.9027,70.4006 -111.8636,70.3817 -111.8312,70.3515 -111.8184,70.3258 -111.8032,70.3089 -111.7502,70.2859 -111.7301,70.2788 -111.5538,70.2589 -111.4933,70.2578 -111.4442,70.2634 -111.4149,70.2661 -111.3816,70.2664 -111.2877,70.2575 -111.245,70.2476 -111.204,70.1911 -111.2987,70.1781 -111.4943,70.1774 -111.6074,70.1794 -111.6406,70.1758 -111.6698,70.1633 -111.859,70.1856 -111.9894,70.2066 -112.0245,70.2083 -112.0484,70.2004 -111.9922,70.1919 -111.9051,70.1787 -111.9543,70.174 -112.0451,70.1749 -112.2987,70.1444 -112.3184,70.1272 -112.2741,70.1132 -112.3059,70.1068 -112.4161,70.1122 -112.8388,70.1556 -112.9162,70.1672 -113.0435,70.182 -113.0807,70.1853 -113.1385,70.1885 -113.1752,70.1898 -113.2069,70.1885 -113.2523,70.1855 -113.2963,70.1815 -113.3385,70.1768 -113.3971,70.1718 -113.4304,70.1713 -113.5877,70.1776 -113.8032,70.1906 -113.8358,70.1949 -113.8564,70.2021 -113.8806,70.2138 -113.9148,70.2207 -113.9632,70.2243 -113.9997,70.2254 -114.0684,70.2248 -114.2555,70.2228 -114.2872,70.2214 -114.3324,70.2179 -114.3613,70.2145 -114.4029,70.2096 -114.4572,70.2021 -114.4853,70.1989 -114.5458,70.1942 -114.6108,70.1918 -114.7738,70.188 -114.8272,70.1879 -114.9105,70.186 -114.9724,70.1821 -115.0509,70.1735 -115.191,70.1605 -115.2393,70.1586 -115.3894,70.1548 -115.4357,70.1519 -115.5441,70.1447 -115.6501,70.1369 -115.8134,70.1217 -115.8417,70.1185 -115.9078,70.1081 -115.9775,70.0995 -116.3242,70.0654 -116.6178,70.0377 -116.7513,70.0253 -116.822,70.0175 -116.8612,70.0108 -116.9101,70.001 -116.9347,69.9962 -116.9864,69.9831 -117.0251,69.9722 -117.0679,69.9588 -117.0987,69.9486 -117.1281,69.9377 -117.1589,69.9191 -117.1769,69.8927 -117.1118,69.8293 -117.0528,69.7542 -117.0164,69.6967 -116.989,69.6647 -116.8642,69.6214 -116.8225,69.6084 -116.7891,69.6019 -116.7644,69.5993 -116.7344,69.5949 -116.7087,69.5893 -116.5966,69.5567 -116.5993,69.5297 -116.6279,69.5191 -116.6449,69.4976 -116.5217,69.4712 -116.5026,69.4832 -116.4817,69.4855 -116.3847,69.4804 -116.3466,69.4753 -116.3268,69.4682 -116.3135,69.3982 -116.3742,69.3757 -116.3061,69.328 -116.2813,69.3192 -115.9694,69.2588 -115.9255,69.2524 -115.8068,69.2407 -115.7725,69.2343 -115.7539,69.2236 -115.7335,69.211 -115.713,69.2041 -115.6726,69.2011 -115.5466,69.1933 -115.3964,69.1841 -115.1531,69.1676 -115.0063,69.156 -114.8421,69.1554 -114.5178,69.1631 -114.4235,69.1665 -114.2724,69.1742 -114.2467,69.1779 -114.2017,69.1887 -114.1757,69.1926 -114.1472,69.1949 -114.0745,69.1959 -114.0302,69.1925 -113.6647,69.1527 -113.3797,69.1105 -113.3366,69.1034 -113.3101,69.098 -113.2725,69.0833 -113.2955,69.0796 -113.3785,69.089 -113.4172,69.1003 -113.443,69.1015 -113.4525,69.0658 -113.4096,68.9976 -113.3806,68.9811 -113.3054,68.9575 -113.3359,68.8626 -113.3731,68.8494 -113.4346,68.8107 -113.43,68.7182 -113.2834,68.6367 -113.2065,68.5602 -113.126,68.5072 -113.0942,68.4975 -113.0293,68.4842 -112.9658,68.4732 -112.9021,68.4626 -112.8787,68.4566 -112.8334,68.4327 -112.8028,68.4061 -112.9545,68.4086 -113.0239,68.4075 -113.0627,68.3841 -113.0211,68.3652 -112.9816,68.3651 -112.853,68.3726 -112.813,68.3765 -112.5694,68.379 -112.5356,68.3777 -112.4893,68.3779 -112.4322,68.3813 -112.4002,68.3912 -112.2714,68.4102 -112.1636,68.4113 -112.1216,68.4143 -111.9995,68.4229 -111.9728,68.4257 -111.8233,68.4353 -111.6147,68.4463 -111.3645,68.4556 -111.2869,68.4537 -111.2322,68.449 -111.146,68.4373 -111.1231,68.4338 -111.0105,68.4265 -110.9789,68.4374 -110.9805,68.4627 -111.0147,68.4693 -111.0626,68.4697 -111.1699,68.4822 -111.1499,68.4954 -111.0927,68.4984 -111.0401,68.4939 -110.9972,68.4901 -110.9309,68.4878 -110.9,68.4879 -110.8513,68.4912 -110.8286,68.4962 -110.7889,68.5096 -110.6151,68.5149 -110.6287,68.4995 -110.6625,68.4939 -110.6907,68.4924 -110.7393,68.4911 -110.7949,68.4694 -110.7156,68.4642 -110.6876,68.466 -110.6618,68.4693 -110.4472,68.4982 -110.4227,68.5022 -110.3831,68.5159 -110.3489,68.528 -110.3267,68.5285 -110.2159,68.5241 -110.1899,68.5183 -110.1609,68.4908 -110.137,68.4867 -110.1033,68.4921 -110.0539,68.5161 -110.0338,68.5276 -110.0107,68.5373 -109.9864,68.5413 -109.9582,68.5426 -109.9271,68.5424 -109.8907,68.5391 -109.7372,68.5393 -109.5243,68.5406 -109.451,68.5425 -109.4175,68.5454 -109.365,68.5559 -109.3215,68.5673 -109.2908,68.5768 -109.259,68.5853 -109.2027,68.5978 -109.1677,68.6051 -109.142,68.608 -109.1135,68.6097 -109.08,68.6075 -109.032,68.6063 -109.0023,68.6068 -108.9597,68.6089 -108.8732,68.6223 -108.741,68.6457 -108.7008,68.6543 -108.4432,68.7412 -108.3659,68.7708 -108.3055,68.8028 -108.3088,68.8247 -108.3321,68.8421 -108.2991,68.8563 -108.2608,68.859 -108.197,68.8573 -108.0675,68.8528 -108.0337,68.8507 -107.9787,68.8447 -107.9448,68.8424 -107.7468,68.842 -107.7164,68.8445 -107.5162,68.872 -107.4441,68.8748 -107.4166,68.877 -107.3245,68.8868 -107.2739,68.8939 -107.2023,68.9075 -107.1451,68.9207 -107.1129,68.9301 -107.0796,68.9416 -107.0424,68.9635 -107.0197,68.9792 -106.9972,68.9954 -106.9623,69.0235 -106.933,69.0454 -106.9036,69.0634 -106.8105,69.0918 -106.7342,69.1092 -106.7108,69.1197 -106.696,69.1419 -106.7317,69.2088 -106.7609,69.2497 -106.7304,69.2664 -106.7007,69.2722 -106.6328,69.2797 -106.5157,69.318 -106.5077,69.3476 -106.3812,69.4072 -106.3334,69.4077 -106.3117,69.4034 -106.2919,69.3962 -106.2656,69.3846 -106.0875,69.2971 -106.0402,69.2055 -106.0527,69.1862 -106.0795,69.1731 -106.1529,69.1545 -106.1773,69.1348 -106.1799,69.0954 -106.0613,69.0712 -106.0292,69.0659 -105.9583,69.0552 -105.812,69.0646 -105.6843,69.0784 -105.6474,69.0818 -105.6037,69.0833 -105.5415,69.0823 -105.3907,69.0719 -105.3545,69.0673 -105.3279,69.0635 -105.2854,69.0465 -105.2542,69.0249 -104.9354,68.9831 -104.898,69.0023 -104.8651,69.0168 -104.8403,69.0152 -104.6965,68.9834 -104.7052,68.9477 -104.815,68.9015 -104.8403,68.898 -104.9134,68.9024 -104.9537,68.9014 -105.0245,68.8568 -104.969,68.8289 -104.9419,68.8176 -104.9128,68.8091 -104.6266,68.7819 -104.3609,68.7713 -104.3211,68.775 -104.2939,68.7827 -104.2724,68.7947 -104.2518,68.8131 -104.2383,68.8395 -104.2152,68.8494 -104.1801,68.8426 -104.0655,68.8133 -103.9165,68.7772 -103.8809,68.7697 -103.6149,68.7478 -103.289,68.713 -103.1831,68.6888 -103.1442,68.7229 -103.1214,68.7337 -103.1011,68.7412 -102.9821,68.7555 -102.9356,68.7535 -102.8282,68.7214 -102.7792,68.7066 -102.6761,68.7117 -102.6003,68.7456 -102.5442,68.7892 -102.4214,68.7772 -102.3934,68.7723 -102.3711,68.772 -102.3176,68.7758 -102.2672,68.7828 -102.172,68.8285 -102.1053,68.8484 -101.9451,68.8566 -101.9303,68.8617 -101.9303,69.1075 -101.998,69.136 -102.0113,69.1734 -101.9778,69.1896 -101.935,69.1826 -101.9303,69.1832 -101.9303,69.401 -102.085,69.4089 -102.2452,69.3913 -102.2688,69.3798 -102.289,69.3529 -102.5016,69.2908 -102.5328,69.2856 -102.5791,69.2891 -102.6108,69.2947 -102.6513,69.2712 -102.7259,69.2041 -102.7541,69.1759 -102.7814,69.1424 -102.8082,69.1221 -102.8531,69.0985 -102.884,69.0871 -102.9145,69.0727 -102.9613,69.0221 -102.9853,69.0343 -102.9848,69.1082 -102.9452,69.123 -102.8979,69.1332 -102.8508,69.1494 -102.8235,69.1631 -102.8,69.188 -102.7863,69.2374 -102.7694,69.3324 -102.7918,69.3844 -102.8128,69.4184 -102.8437,69.4321 -102.8666,69.4321 -103.1122,69.4851 -103.282,69.5253 -103.2576,69.5991 -103.1993,69.6156 -103.0983,69.6022 -103.0427,69.58 -103.0053,69.5566 -102.9823,69.5469 -102.9635,69.5393 -102.8626,69.5074 -102.7215,69.4697 -102.5988,69.4416 -102.3817,69.4485 -102.2925,69.4713 -102.2761,69.5054 -102.259,69.5971 -102.2785,69.6071 -102.3041,69.6031 -102.3457,69.6002 -102.374,69.6058 -102.4357,69.6468 -102.4493,69.6704 -102.4263,69.6715 -102.3886,69.6532 -102.3619,69.6476 -102.288,69.6679 -102.1536,69.7191 -102.013,69.8245 -101.9896,69.8244 -101.9303,69.7982 -101.9303,70.2586 -102.0524,70.292 -102.1043,70.3058 -102.1793,70.3252 -102.228,70.3342 -102.2906,70.3461 -102.3779,70.3664 -102.5139,70.4022 -102.6045,70.4555 -102.6157,70.4962 -102.77,70.56 -102.7927,70.5674 -102.8434,70.5784 -102.8797,70.5815 -102.9194,70.5687 -102.9077,70.517 -102.8942,70.4814 -102.8723,70.4661 -102.8234,70.4494 -102.7986,70.4426 -102.735,70.4338 -102.6919,70.4106 -102.7376,70.3971 -102.7806,70.3999 -102.8642,70.4055 -102.8956,70.4117 -102.918,70.4214 -102.9726,70.4555 -103.007,70.477 -103.0326,70.4891 -103.0856,70.5034 -103.1102,70.5039 -103.1656,70.4981 -103.209,70.4948 -103.2488,70.4945 -103.2822,70.499 -103.3231,70.5084 -103.3655,70.5232 -103.4014,70.5468 -103.4967,70.5987 -103.5714,70.6302 -103.6972,70.6488 -103.728,70.6514 -103.7597,70.6609 -103.7869,70.6848 -103.8071,70.7109 -103.8134,70.7368 -103.8402,70.7698 -103.8633,70.7983 -103.8828,70.8191 -103.9937,70.8701 -104.0999,70.8862 -104.2183,70.9201 -104.2506,70.9312 -104.2978,70.9504 -104.3391,70.9688 -104.3657,70.9861 -104.4091,71.0254 -104.384,71.0399 -104.3447,71.0527 -104.3165,71.0615 -104.2858,71.0749 -104.2564,71.089 -104.2309,71.1057 -104.2066,71.128 -104.2002,71.1476 -104.2042,71.1709 -104.2222,71.1871 -104.2535,71.2252 -104.2475,71.2457 -104.2256,71.259 -104.2035,71.267 -104.1576,71.27 -104.1237,71.2649 -104.0977,71.309 -104.1601,71.4144 -104.1372,71.4466 -104.1192,71.4655 -104.1181,71.4868 -104.1335,71.5031 -104.2907,71.6245 -104.4216,71.7237 -104.4479,71.7329 -104.538,71.743 -104.5748,71.7761 -104.5769,71.8027 -104.5804,71.8366 -104.6249,71.8944 -104.6819,71.9383 -104.7705,71.9709 -104.785,72.024 -104.7451,72.0447 -104.718,72.0602 -104.7075,72.0799 -104.7425,72.1071 -104.7752,72.1236 -104.7898,72.1461 -104.8892,72.2481 -104.9096,72.261 -104.9389,72.2732 -104.972,72.2894 -104.99,72.3032 -105.0404,72.3602 -105.0098,72.3622 -104.9731,72.3494 -104.9498,72.3593 -104.9438,72.3857 -104.9785,72.4463 -105.041,72.5346 -105.1027,72.5771 -105.1281,72.5842 -105.1978,72.6036 -105.2488,72.6814 -105.216,72.6801 -105.1761,72.6645 -105.1608,72.6506 -105.143,72.6396 -105.123,72.6318 -105.092,72.6294 -105.0687,72.6415 -105.1902,72.7405 -105.3053,72.815 -105.3718,72.8421 -105.4307,72.8596 -105.4799,72.8716 -105.5029,72.8787 -105.5415,72.8941 -105.5684,72.9158 -105.5717,72.9477 -105.5966,72.9588 -105.6175,72.9601 -105.6512,72.9607 -105.69,72.9551 -105.7786,72.9464 -105.8048,72.9495 -105.9804,72.9876 -106.1377,73.0506 -106.3201,73.1167 -106.3409,73.1179 -106.3808,73.1223 -106.4025,73.1273 -106.4339,73.1387 -106.4713,73.1631 -106.4917,73.1913 -106.5975,73.2119 -106.6187,73.2132 -106.7605,73.1985 -106.8544,73.1396 -106.8268,73.1246 -106.7891,73.1139 -106.7554,73.0911 -106.7808,73.0766 -106.807,73.0755 -106.8426,73.0811 -106.9171,73.0939 -106.9468,73.1031 -106.9862,73.1188 -107.0717,73.1492 -107.1387,73.172 -107.3571,73.2197 -107.4091,73.2245 -107.5052,73.225 -107.6805,73.2493 -107.7241,73.2526 -107.7952,73.2547 -107.8172,73.2509 -107.8869,73.2037 -107.8502,73.1659 -107.8184,73.1488 -107.7857,73.1375 -107.7445,73.1276 -107.6805,73.1154 -107.6394,73.1054 -107.6111,73.0885 -107.6593,73.0877 -107.7584,73.1026 -107.8082,73.1068 -107.8591,73.1085 -107.908,73.1044 -107.9642,73.0888 -108.0029,73.0729 -108.0274,73.0509 -108.0281,73.0219 -107.9985,72.9936 -107.9013,72.9128 -107.8882,72.8732 -107.8491,72.7931 -107.7929,72.6886 -107.7658,72.6224 -107.7653,72.5741 -107.7393,72.5181 -107.6627,72.5019 -107.6205,72.4777 -107.6215,72.4265 -107.6194,72.3278 -107.5868,72.2576 -107.5223,72.1119 -107.5314,72.0884 -107.5248,72.0434 -107.4966,72.0388 -107.4743,72.0413 -107.4358,72.0414 -107.3806,72.0258 -107.3613,71.9904 -107.3943,71.9732 -107.374,71.9283 -107.3513,71.9125 -107.1653,71.8584 -107.0095,71.7941 -107.0385,71.7798 -107.1028,71.7763 -107.1995,71.7621 -107.2434,71.6912 -107.3788,71.6369 -107.4926,71.6298 -107.5452,71.6321 -107.5676,71.6248 -107.5789,71.5836 -107.5247,71.5531 -107.4947,71.5446 -107.4802,71.5262 -107.5025,71.5153 -107.5863,71.5093 -107.6648,71.5302 -107.7157,71.5593 -107.7305,71.5759 -107.7772,71.6065 -107.8138,71.6225 -107.8427,71.6242 -107.8834,71.6174 -107.9325,71.6052 -107.9618,71.6089 -107.986,71.6199 -108.0286,71.6944 -108.0324,71.7652 -107.9795,71.804 -107.9385,71.8345 -107.9368,71.8609 -108.0614,71.8886 -108.1393,71.9427 -108.1423,72.0174 -108.1466,72.0483 -108.1663,72.0601 -108.1926,72.0632 -108.2667,72.1035 -108.4015,72.2445 -108.4042,72.2661 -108.391,72.3067 -108.3811,72.3388 -108.3577,72.3671 -108.3394,72.382 -108.3284,72.4032 -108.358,72.4505 -108.3838,72.4655 -108.4155,72.4767 -108.4519,72.4844 -108.5575,72.4938 -108.5849,72.4731 -108.6123,72.4676 -108.7785,72.4726 -108.7866,72.5071 -108.7674,72.55 -108.788,72.583 -108.9636,72.664 -109.1149,72.673 -109.3926,72.747 -109.4808,72.7836 -109.4581,72.7929 -109.4282,72.7967 -109.3947,72.7989 -109.3584,72.81 -109.3926,72.8269 -109.6509,72.8702 -109.7828,72.8867 -109.8975,72.8982 -110.1214,72.9144 -110.163,72.9164 -110.2414,72.9171 -110.3486,72.9134 -110.4162,72.9076 -110.4383,72.9044 -110.4736,72.8889 -110.4791,72.8649 -110.2868,72.7572 -110.2673,72.7493 -110.217,72.7388 -110.0987,72.7295 -110.059,72.7288 -109.9781,72.7259 -109.9443,72.7208 -109.9084,72.6785 -109.7652,72.6502 -109.5448,72.6305 -109.5082,72.6227 -109.5601,72.5667 -109.5874,72.5686 -109.7268,72.6027 -109.7702,72.6232 -109.8121,72.6298 -109.9135,72.629 -109.9387,72.6227 -110.0162,72.5655 -109.9828,72.5506 -109.9555,72.5479 -109.9133,72.5504 -109.8479,72.5601 -109.8278,72.5592 -109.6861,72.5114 -109.5204,72.4038 -109.5393,72.3959 -109.6336,72.389 -109.7073,72.4113 -109.7396,72.4225 -109.7668,72.4342 -109.8044,72.4501 -109.8329,72.4591 -109.8564,72.463 -109.9568,72.469 -109.9849,72.4628 -109.965,72.4503 -109.7788,72.4079 -109.5676,72.3553 -109.5431,72.3486 -109.5231,72.3357 -109.5512,72.3314 -109.6566,72.3579 -109.6984,72.3634 -109.7356,72.3586 -109.7586,72.3511 -109.79,72.3399 -109.8914,72.3834 -109.9371,72.4087 -109.9561,72.4169 -110.0536,72.4528 -110.0784,72.457 -110.1095,72.4585 -110.1311,72.4552 -110.2612,72.4034 -110.244,72.39 -110.1461,72.3654 -110.0499,72.3327 -110.0868,72.3314 -110.2663,72.37 -110.2875,72.3769 -110.3327,72.3998 -110.3098,72.4168 -110.2611,72.4301 -110.2699,72.4496 -110.4074,72.4769 -110.4424,72.4773 -110.4668,72.4705 -110.562,72.4163 -110.5375,72.3883 -110.5588,72.3823 -110.6037,72.3766 -110.7386,72.3683 -110.8261,72.3054 -110.83,72.283 -110.8479,72.2386 -111.0121,72.2734 -111.0354,72.3075 -111.0061,72.3319 -110.9727,72.3385 -110.9419,72.3568 -110.9622,72.3689 -110.9908,72.3691 -111.0351,72.3651 -111.0837,72.3566 -111.1079,72.3499 -111.3221,72.2796 -111.3444,72.2676 -111.3314,72.2504 -111.3038,72.2415 -111.2538,72.2375 -111.2214,72.2402 -111.1763,72.2504 -111.156,72.2438 -111.1795,72.2324 -111.2389,72.2156 -111.3984,72.18 -111.5905,72.2324 -111.6321,72.2562 -111.5928,72.2767 -111.5451,72.2899 -111.5107,72.2961 -111.4692,72.2984 -111.4081,72.3054 -111.3844,72.3121 -111.2608,72.3531 -111.1853,72.381 -111.0024,72.4764 -110.9357,72.5703 -110.9613,72.626 -111.2634,72.7002 -111.3239,72.7091 -111.3967,72.7158 -111.5122,72.737 -111.676,72.7727 -111.7893,72.7915 -111.8259,72.7962 -111.8694,72.7986 -111.9649,72.7978 -112.0063,72.7992 -112.0802,72.8058 -112.1088,72.8115 -112.1403,72.8263 -112.1722,72.8372 -112.1976,72.844 -112.2335,72.8515 -112.2893,72.8612 -112.3264,72.8655 -112.369,72.8689 -112.434,72.8718 -112.4878,72.876 -112.5151,72.8824 -112.5419,72.8991 -112.7312,72.9107 -112.7523,72.9113 -112.787,72.9092 -112.8725,72.8968 -112.9926,72.8622 -113.0267,72.851 -113.0556,72.8374 -113.111,72.8097 -113.3156,72.6902 -113.3323,72.6664 -113.3143,72.6556 -113.2608,72.6513 -113.1658,72.6465 -113.1393,72.6359 -113.1647,72.5794 -113.1927,72.5679 -113.3839,72.5142 -113.4187,72.5079 -113.4542,72.5145 -113.4355,72.5269 -113.4139,72.5348 -113.3691,72.5495 -113.3457,72.5565 -113.2986,72.5701 -113.2768,72.578 -113.2409,72.6003 -113.2727,72.6005 -113.3135,72.5928 -113.3388,72.5864 -113.3972,72.5693 -113.4342,72.5595 -113.488,72.549 -113.5323,72.5421 -113.5838,72.5384 -113.6124,72.5485 -113.627,72.5624 -113.7157,72.554 -113.788,72.5429 -113.8282,72.5349 -113.8531,72.529 -114.0621,72.4666 -114.1104,72.4583 -114.152,72.4592 -114.2833,72.4638 -114.3216,72.5069 -114.3011,72.5118 -114.2559,72.5179 -114.2201,72.519 -114.1829,72.5246 -114.0901,72.5655 -114.0551,72.5937 -114.0776,72.6456 -113.9534,72.6959 -113.9319,72.6994 -113.8751,72.7006 -113.7919,72.6982 -113.7283,72.7003 -113.6988,72.7225 -113.7662,72.7663 -113.7779,72.7859 -113.7695,72.857 -113.7573,72.907 -113.7214,72.9728 -113.6765,73.021 -113.6797,73.0494 -113.7363,73.1079 -113.7756,73.1349 -113.8294,73.165 -113.8815,73.1908 -113.916,73.2074 -113.9441,73.2194 -113.9927,73.2335 -114.0225,73.2393 -114.0552,73.2443 -114.2221,73.2698 -114.2574,73.2746 -114.2783,73.2764 -114.3829,73.2736 -114.4234,73.2689 -114.527,73.2439 -114.5471,73.2351 -114.5829,73.2246 -114.6105,73.2192 -114.6673,73.2088 -114.7303,73.2012 -114.8183,73.1955 -114.8654,73.1896 -115.0321,73.1628 -115.0623,73.1547 -115.157,73.1252 -115.3258,73.0957 -115.6161,73.0557 -115.8708,73.0263 -115.9174,73.0203 -115.9575,73.012 -116.0343,72.9934 -116.2479,72.9599 -116.2958,72.9545 -116.3747,72.933 -116.4223,72.9191 -116.4903,72.897 -116.5531,72.8807 -116.5775,72.874 -116.6148,72.8661 -116.664,72.8574 -116.842,72.8344 -116.9638,72.8259 -117.0295,72.8235 -117.0682,72.8186 -117.0945,72.8128 -117.1166,72.8054 -117.1352,72.7966 -117.151,72.7785 -117.1965,72.7482 -117.2344,72.7312 -117.3172,72.6993 -117.3481,72.6876 -117.5843,72.6028 -117.6128,72.5939 -117.7984,72.5524 -117.841,72.5451 -117.9228,72.5214 -118.2441,72.4016 -118.2663,72.3864 -118.2867,72.3671 -118.303,72.3418 -118.3053,72.3198 -118.2927,72.2976 -118.2718,72.284 -118.2403,72.2674 -118.2085,72.2563 -118.1644,72.2487 -118.1245,72.2458 -118.0819,72.2447 -118.0431,72.2452 -117.9981,72.2474 -117.9695,72.248 -117.9187,72.2451 -117.8891,72.2397 -117.8565,72.226 -117.84,72.2117 -117.8269,72.1483 -117.8434,72.1283 -117.8769,72.1216 -118.1168,72.0877 -118.1615,72.0853 -118.2728,72.086 -118.3015,72.0813 -118.4111,72.0345 -118.4372,72.0124 -118.4261,71.9866 -118.4468,71.9648 -118.4845,71.9505 -118.5213,71.9414 -118.5621,71.9338 -118.5868,71.9279 -118.6574,71.9001 -118.8099,71.8097 -118.8249,71.7845 -118.8559,71.6793 -118.8465,71.6355 17,-2.0,Greenland -55.5801,73.2613 -55.5299,73.2598 -55.5124,73.2551 -55.5012,73.2478 -55.4907,73.2001 -55.5001,73.1944 -55.5313,73.1872 -55.5492,73.1839 -55.6093,73.1761 -55.6258,73.1774 -55.6694,73.1819 -55.7317,73.2312 -55.6604,73.2583 -55.6474,73.2612 -55.618,73.2619 -55.5801,73.2613 -55.5801,73.2613 27,-2.0,Greenland -55.7069,73.1515 -55.6778,73.1244 -55.6825,73.1146 -55.7063,73.1069 -55.758,73.0999 -55.8108,73.0753 -55.842,73.0471 -55.8386,73.0261 -55.9605,72.9881 -55.9946,72.9838 -55.9797,72.9936 -55.9585,73.0007 -55.9303,73.0126 -55.916,73.0192 -55.9017,73.0372 -55.8888,73.0656 -55.8893,73.0825 -55.9158,73.0872 -55.9226,73.0981 -55.8794,73.13 -55.8684,73.134 -55.8195,73.1502 -55.7934,73.1573 -55.7531,73.1624 -55.7238,73.1606 -55.7069,73.1515 -55.7069,73.1515 30,5.0,Russia 75.9976,73.0726 75.9814,73.0788 75.9368,73.1055 75.9472,73.1149 75.9632,73.1176 76.006,73.116 76.1572,73.1022 76.2652,73.0919 76.3288,73.0895 76.3521,73.0896 76.3941,73.0902 76.4146,73.0916 76.4352,73.0944 76.4565,73.0937 76.4784,73.0907 76.5009,73.085 76.5284,73.073 76.5384,73.0675 76.5479,73.052 76.5312,73.0426 76.5109,73.0387 76.449,73.0338 76.2818,73.0306 76.2177,73.0332 76.1748,73.037 76.1531,73.0403 76.0648,73.057 76.0428,73.0617 75.9976,73.0726 75.9976,73.0726 39,-6.0,Canada -96.5341,73.0832 -96.5176,73.0775 -96.416,73.0379 -96.3658,73.0009 -96.3416,72.9798 -96.3312,72.961 -96.329,72.9496 -96.3377,72.9353 -96.4046,72.8655 -96.4229,72.856 -96.4619,72.8437 -96.5076,72.8356 -96.5296,72.833 -96.5728,72.8285 -96.6793,72.82 -96.7195,72.8228 -96.7323,72.8259 -96.7546,72.8332 -96.7814,72.8427 -96.7959,72.8486 -96.8249,72.8652 -96.853,72.8836 -96.8717,72.9036 -96.901,72.9507 -96.9045,72.9658 -96.9049,72.9771 -96.9033,72.9873 -96.8898,72.9974 -96.8316,73.0385 -96.8215,73.0436 -96.8073,73.0492 -96.7653,73.0611 -96.7088,73.074 -96.6665,73.0813 -96.6101,73.0891 -96.5715,73.0907 -96.5484,73.0895 -96.5341,73.0832 -96.5341,73.0832 23,9.0,Russia 119.707,72.9399 119.6722,72.9334 119.6089,72.9317 119.5165,72.9358 119.3397,73.0196 119.4406,73.0548 119.4581,73.059 119.5385,73.0661 119.6023,73.068 119.646,73.068 119.7056,73.0635 119.7927,73.0539 119.8189,73.0501 119.8412,73.0455 119.8775,73.0362 119.9317,73.0217 119.9498,73.0168 119.9641,73.0115 119.9811,72.9969 119.9203,72.9444 119.8432,72.9369 119.707,72.9399 119.707,72.9399 42,5.0,Russia 73.915,72.9288 73.9921,72.997 74.0027,73.0033 74.041,73.0143 74.0812,73.0192 74.1018,73.0209 74.2244,73.032 74.2449,73.0334 74.3089,73.0314 74.6797,72.9915 74.7019,72.9884 74.7243,72.984 74.7429,72.9784 74.7744,72.964 74.7796,72.9548 74.7613,72.9593 74.7325,72.9707 74.7099,72.9765 74.6443,72.9845 74.6011,72.9881 74.5796,72.9891 74.5593,72.9868 74.5397,72.9827 74.5203,72.976 74.5069,72.9665 74.4604,72.8644 74.4546,72.8429 74.4678,72.8279 74.4881,72.8161 74.5168,72.8047 74.5274,72.7989 74.5039,72.7676 74.4932,72.761 74.4735,72.758 74.4521,72.7601 74.43,72.764 74.2227,72.8123 74.0274,72.8583 73.9236,72.9045 73.9101,72.9193 73.915,72.9288 73.915,72.9288 41,7.0,Russia 78.4848,72.804 78.632,72.8565 78.6798,72.8752 78.7236,72.8937 78.7513,72.9064 78.8266,72.9439 78.9024,72.9808 78.9182,72.9874 78.9389,72.9922 78.9592,72.996 78.98,72.9988 79.001,72.9977 79.0225,72.9942 79.0397,72.9879 79.1793,72.9284 79.1968,72.916 79.348,72.8072 79.3202,72.7915 79.3439,72.7058 79.3887,72.6497 79.3787,72.6329 79.3631,72.6267 79.3428,72.6228 79.2253,72.6025 79.2046,72.6023 79.1838,72.6034 79.1214,72.6129 78.9962,72.6278 78.9551,72.6297 78.8932,72.6294 78.8521,72.6314 78.7396,72.6427 78.6555,72.6562 78.4146,72.7055 78.393,72.7265 78.39,72.751 78.4065,72.7663 78.4183,72.7726 78.4692,72.7975 78.4848,72.804 78.4848,72.804 84,-2.0,Greenland -21.8629,72.5783 -21.9114,72.5814 -21.9559,72.5876 -21.9937,72.5932 -22.2128,72.6061 -22.4429,72.6106 -22.4748,72.608 -22.6176,72.6444 -22.7341,72.7091 -22.8499,72.7386 -22.8927,72.7456 -23.0583,72.7704 -23.0757,72.7729 -23.0978,72.7736 -23.342,72.7721 -23.4092,72.7708 -23.6236,72.7839 -23.6851,72.7948 -23.7558,72.8037 -23.8177,72.8089 -23.971,72.8163 -24.0131,72.817 -24.1107,72.8161 -24.1661,72.8138 -24.2613,72.8048 -24.3126,72.8014 -24.4304,72.7976 -24.4485,72.7972 -24.4689,72.798 -24.4816,72.8001 -24.5077,72.8147 -24.5279,72.8564 -24.5197,72.874 -24.5047,72.8807 -24.4675,72.8862 -24.1151,72.9035 -23.9612,72.9087 -23.8857,72.9084 -23.7344,72.9131 -23.5418,72.9267 -23.3996,72.9442 -23.3286,72.9544 -23.2703,72.9608 -23.2164,72.9647 -23.1471,72.9662 -23.1066,72.9655 -23.0652,72.9632 -23.026,72.9578 -23.0081,72.9544 -22.8862,72.9348 -22.6745,72.9192 -22.494,72.9091 -22.4733,72.9082 -22.4449,72.9058 -22.4135,72.9036 -22.3924,72.9012 -22.251,72.8834 -22.188,72.8747 -22.1272,72.8552 -22.0919,72.8408 -22.0656,72.832 -22.0476,72.828 -22.0337,72.8273 -21.9775,72.8261 -21.925,72.8363 -21.9148,72.8359 -21.8508,72.82 -21.838,72.7957 -21.9554,72.7437 -22.0023,72.7332 -22.0206,72.7297 -22.0799,72.7285 -22.0982,72.726 -22.1356,72.7113 -22.0809,72.6967 -22.0298,72.6911 -21.9958,72.6885 -21.9556,72.6859 -21.9376,72.6826 -21.9076,72.6719 -21.8176,72.6147 -21.8479,72.5822 -21.8629,72.5783 -21.8629,72.5783 28,-2.0,Greenland -55.1711,72.8203 -55.1882,72.8377 -55.2529,72.8644 -55.2726,72.8619 -55.3466,72.8522 -55.3658,72.8509 -55.384,72.8527 -55.4911,72.8728 -55.5484,72.8937 -55.5381,72.9051 -55.5019,72.9199 -55.4631,72.9344 -55.4345,72.9418 -55.4194,72.9448 -55.383,72.9477 -55.3691,72.9466 -55.1022,72.907 -55.0587,72.8976 -55.0005,72.8843 -54.9534,72.8729 -54.9411,72.8677 -54.9395,72.8557 -55.0,72.833 -55.0176,72.8305 -55.0641,72.8257 -55.0854,72.8242 -55.1711,72.8203 -55.1711,72.8203 16,9.0,Russia 121.7193,72.834 121.7074,72.8402 121.73,72.8549 121.7455,72.8614 121.7878,72.8621 121.857,72.8576 121.8802,72.8556 121.9058,72.8513 122.077,72.7965 122.0549,72.7921 122.0315,72.7943 121.9596,72.8023 121.7948,72.8224 121.7705,72.8256 121.7193,72.834 121.7193,72.834 19,9.0,Russia 128.643,72.8089 128.6009,72.8092 128.4944,72.8112 128.469,72.8145 128.4767,72.8267 128.4939,72.8333 128.5304,72.8427 128.5877,72.853 128.6272,72.8572 128.6478,72.8582 128.756,72.8536 128.8127,72.8427 128.8812,72.8265 128.8689,72.8183 128.8492,72.8163 128.7881,72.8133 128.685,72.8097 128.643,72.8089 128.643,72.8089 43,9.0,Russia 122.0196,72.8469 122.0703,72.8434 122.209,72.8255 122.2598,72.817 122.2812,72.8125 122.2985,72.8074 122.4254,72.7856 122.4738,72.7791 122.5205,72.7754 122.6576,72.7654 122.7019,72.7635 122.7653,72.7647 122.8453,72.7709 122.8664,72.771 122.8888,72.7701 122.9311,72.7607 122.9733,72.7516 123.0248,72.7361 123.1536,72.7104 123.303,72.6774 123.2811,72.6707 123.2412,72.6678 123.1581,72.6655 123.0742,72.6642 123.0281,72.6683 123.0028,72.6729 122.9859,72.6779 122.9728,72.6831 122.9386,72.6932 122.8752,72.7073 122.8027,72.7169 122.7366,72.7196 122.6934,72.7201 122.6103,72.7176 122.5701,72.7144 122.503,72.718 122.4555,72.7236 122.4313,72.7267 122.3847,72.7355 122.0267,72.828 122.0068,72.8362 122.0196,72.8469 122.0196,72.8469 20,-2.0,Greenland -24.7178,72.7975 -24.8055,72.7529 -24.8056,72.741 -24.8141,72.6879 -24.8242,72.6828 -24.8364,72.6803 -24.8523,72.6794 -24.9738,72.6869 -24.9938,72.6901 -25.1535,72.7251 -25.1494,72.7541 -25.0953,72.7792 -25.0844,72.7838 -25.0719,72.7855 -24.9225,72.8045 -24.884,72.8073 -24.725,72.8144 -24.7102,72.8057 -24.7178,72.7975 -24.7178,72.7975 22,9.0,Russia 128.8286,72.684 128.7436,72.6859 128.4848,72.6992 128.2467,72.7122 128.0162,72.7113 128.0025,72.713 127.9808,72.7719 128.0658,72.7957 128.1043,72.8012 128.1248,72.8025 128.2096,72.8017 128.2306,72.8014 128.4458,72.794 128.4675,72.7923 128.6007,72.7805 128.8041,72.7559 128.9173,72.7344 128.9851,72.7028 128.9293,72.6902 128.9095,72.6881 128.8286,72.684 128.8286,72.684 23,-6.0,Canada -96.5128,72.6192 -96.5366,72.6221 -96.7207,72.6368 -96.7349,72.6403 -96.7433,72.6477 -96.7753,72.679 -96.6863,72.7381 -96.6758,72.7432 -96.5632,72.7836 -96.5219,72.795 -96.5019,72.7974 -96.4905,72.797 -96.4782,72.7954 -96.4534,72.7856 -96.4573,72.7649 -96.4327,72.7136 -96.4175,72.7066 -96.4073,72.6972 -96.4067,72.687 -96.4942,72.6331 -96.5075,72.628 -96.5128,72.6192 -96.5128,72.6192 17,-2.0,Greenland -55.4241,72.7901 -55.402,72.7917 -55.3793,72.7909 -55.2398,72.7643 -55.2227,72.752 -55.2341,72.7434 -55.2498,72.7396 -55.2668,72.737 -55.334,72.7264 -55.3791,72.7244 -55.4017,72.7248 -55.4192,72.7282 -55.431,72.7349 -55.4721,72.7865 -55.4511,72.7925 -55.4241,72.7901 -55.4241,72.7901 86,-2.0,Greenland -22.2583,72.0168 -22.2776,72.0169 -22.3149,72.0192 -22.4308,72.0324 -22.4889,72.0398 -22.5169,72.0442 -22.6605,72.0733 -22.9184,72.1455 -22.9425,72.1576 -22.9707,72.1832 -22.9898,72.1984 -23.0252,72.2134 -23.107,72.2332 -23.2153,72.2576 -23.4696,72.2986 -23.8175,72.3544 -23.945,72.3773 -23.9453,72.3999 -24.0034,72.439 -24.0363,72.4504 -24.0845,72.4556 -24.1115,72.4538 -24.2887,72.4865 -24.3126,72.5018 -24.4169,72.7358 -24.3373,72.758 -24.2416,72.7689 -24.2038,72.7727 -24.1194,72.7737 -23.9485,72.776 -23.9285,72.7759 -23.8913,72.7748 -23.8709,72.7735 -23.7288,72.7601 -23.5988,72.7444 -23.5513,72.7374 -23.5102,72.7341 -23.4549,72.7364 -23.2936,72.7457 -23.0928,72.7391 -23.0676,72.7305 -23.0213,72.6999 -23.0052,72.6811 -22.9974,72.662 -22.9758,72.6504 -22.904,72.6202 -22.8823,72.6152 -22.7894,72.5958 -22.6739,72.5692 -22.6482,72.5578 -22.6328,72.5368 -22.5558,72.5101 -22.532,72.5059 -22.4105,72.5007 -22.2661,72.472 -22.1289,72.4436 -21.9321,72.3949 -21.8943,72.3843 -21.8757,72.3679 -21.8808,72.3042 -21.9086,72.2929 -21.9375,72.2885 -21.9603,72.2885 -22.0077,72.2915 -22.0405,72.2978 -22.1676,72.3285 -22.2048,72.342 -22.2643,72.3331 -22.3033,72.33 -22.4946,72.3492 -22.5559,72.358 -22.5751,72.3641 -22.6024,72.3698 -22.685,72.35 -22.7063,72.3408 -22.6816,72.2869 -22.6214,72.2631 -22.5149,72.2443 -22.4144,72.2368 -22.0813,72.1752 -22.0749,72.0634 -22.1037,72.0391 -22.1366,72.0297 -22.2245,72.0179 -22.2583,72.0168 -22.2583,72.0168 50,-2.0,Greenland -55.0636,72.7474 -55.0384,72.7484 -55.018,72.7478 -54.9276,72.7342 -54.8562,72.7214 -54.841,72.7182 -54.8316,72.7104 -54.9649,72.6335 -55.0065,72.6195 -55.0236,72.6166 -55.0812,72.6119 -55.0987,72.6082 -55.1116,72.6046 -55.1361,72.595 -55.1519,72.5837 -55.2379,72.529 -55.3459,72.4741 -55.3865,72.4576 -55.3993,72.4548 -55.4169,72.4565 -55.4335,72.4673 -55.4497,72.4878 -55.4078,72.4991 -55.3869,72.5004 -55.3718,72.503 -55.3513,72.5121 -55.366,72.519 -55.4905,72.5299 -55.5349,72.5269 -55.5515,72.5212 -55.5627,72.5163 -55.5796,72.5134 -55.6029,72.513 -55.7011,72.5138 -55.7138,72.5168 -55.689,72.5511 -55.6771,72.5586 -55.5745,72.5717 -55.5473,72.5774 -55.5079,72.5892 -55.4887,72.5978 -55.4691,72.61 -55.4651,72.6246 -55.4753,72.6374 -55.4826,72.6548 -55.4702,72.6595 -55.2671,72.6944 -55.0945,72.7226 -55.0636,72.7474 -55.0636,72.7474 47,9.0,Russia 127.0118,72.5536 127.0141,72.559 127.0535,72.5748 127.0872,72.5879 127.1129,72.5963 127.1607,72.6033 127.1809,72.6047 127.2226,72.6043 127.2442,72.6031 127.267,72.6008 127.2888,72.5994 127.3305,72.5989 127.3786,72.6025 127.4676,72.6235 127.5092,72.6402 127.6108,72.6657 127.8307,72.6821 127.9688,72.6898 127.9914,72.6901 128.2018,72.6885 128.2236,72.6872 128.3794,72.6718 128.5349,72.6559 128.6539,72.6383 128.9166,72.6163 129.0314,72.6067 128.9016,72.5587 128.8759,72.5564 128.8549,72.5562 128.8125,72.5581 128.615,72.5754 128.4385,72.5925 128.3722,72.5993 128.3242,72.6032 128.2008,72.6003 128.0763,72.5779 128.0181,72.5709 127.939,72.5645 127.8581,72.5602 127.698,72.5565 127.677,72.5565 127.6101,72.5629 127.3966,72.5709 127.1145,72.5554 127.0741,72.5532 127.0118,72.5536 127.0118,72.5536 25,-2.0,Greenland -55.5219,72.6712 -55.5729,72.6145 -55.5851,72.6064 -55.6369,72.584 -55.6522,72.5865 -55.7062,72.603 -55.8012,72.5903 -55.827,72.5755 -55.9015,72.5529 -55.9264,72.5537 -56.0349,72.5611 -56.0466,72.5662 -56.0894,72.6069 -56.0776,72.6125 -56.0288,72.6122 -56.0056,72.6133 -55.9669,72.6174 -55.935,72.6234 -55.8388,72.6463 -55.758,72.6662 -55.6179,72.6812 -55.5282,72.6859 -55.5087,72.6762 -55.5219,72.6712 -55.5219,72.6712 16,-2.0,Greenland -54.8136,72.6655 -54.7397,72.6595 -54.7139,72.6546 -54.6899,72.6451 -54.6736,72.6346 -54.6685,72.6209 -54.6745,72.6097 -54.7,72.5981 -54.7249,72.5944 -54.8991,72.5978 -54.917,72.6049 -54.9269,72.6241 -54.8483,72.6659 -54.8339,72.6671 -54.8136,72.6655 -54.8136,72.6655 16,-2.0,Greenland -54.8683,72.5885 -54.8165,72.5774 -54.8201,72.5598 -54.9185,72.5213 -54.9292,72.5177 -54.9423,72.5135 -54.9754,72.5058 -54.9994,72.5037 -55.1251,72.4994 -55.0801,72.5741 -55.0635,72.5803 -54.9884,72.5891 -54.9494,72.5935 -54.9015,72.5924 -54.8683,72.5885 -54.8683,72.5885 41,9.0,Russia 127.7925,72.5349 127.918,72.5402 128.135,72.5603 128.1931,72.5672 128.2289,72.57 128.316,72.574 128.3783,72.5749 128.4229,72.5696 128.4908,72.5609 128.5593,72.5491 128.5832,72.5443 128.5988,72.5387 128.6518,72.5042 128.6625,72.4938 128.6227,72.4902 128.5824,72.4884 128.5436,72.4838 128.5296,72.4794 128.4681,72.4491 128.4537,72.4433 128.4219,72.4365 128.3836,72.4311 128.3449,72.4266 128.3232,72.4279 128.3012,72.4304 128.2665,72.4476 128.2213,72.4539 128.1783,72.4562 128.1582,72.4555 128.1386,72.4531 128.0764,72.4537 128.0542,72.4561 128.0302,72.4608 127.9597,72.4824 127.9279,72.493 127.9123,72.4985 127.8772,72.5151 127.8614,72.5205 127.8416,72.5257 127.7925,72.5349 127.7925,72.5349 101,9.0,Russia 126.3732,72.3322 126.3492,72.3369 126.3469,72.3833 126.3625,72.3966 126.3887,72.4045 126.4174,72.4072 126.4593,72.4073 126.4809,72.4061 126.5222,72.4063 126.5624,72.4085 126.6006,72.4135 126.6532,72.4273 126.7395,72.4539 126.782,72.4683 126.8239,72.4836 126.8592,72.4932 126.8958,72.5004 126.934,72.5063 126.9722,72.5113 127.0124,72.5135 127.1154,72.5154 127.1771,72.5166 127.4212,72.5419 127.4712,72.5454 127.4931,72.5441 127.5378,72.5387 127.6506,72.5251 127.7698,72.5005 127.8353,72.4816 128.263,72.3901 128.4002,72.3672 128.4216,72.366 128.4423,72.3655 128.5624,72.3718 128.6988,72.3787 128.7188,72.3798 128.7787,72.3829 128.7995,72.3827 128.8209,72.381 128.9082,72.3727 128.9298,72.3702 128.9529,72.3663 128.9648,72.3487 128.952,72.3153 129.0135,72.3009 129.0367,72.2959 129.082,72.2884 129.1396,72.2725 129.1775,72.2555 129.1912,72.231 129.1743,72.2194 129.1453,72.2168 129.1234,72.2194 129.1023,72.2211 129.0729,72.2183 129.0169,72.196 129.0482,72.1587 129.0846,72.1557 129.1256,72.1551 129.2174,72.1475 129.2513,72.1257 129.2295,72.1172 129.1787,72.1166 129.15,72.1139 128.9429,72.0385 128.9882,72.0299 129.026,72.0351 129.0816,72.0449 129.1336,72.0422 129.1553,72.0399 129.1786,72.0332 129.082,72.0023 129.054,71.9979 128.9283,71.9872 128.7051,71.9737 128.665,71.9728 128.6041,71.9733 128.4599,71.9784 128.3885,71.9892 128.1743,72.0448 128.199,72.0611 128.2387,72.0737 128.0981,72.1048 127.8945,72.1386 127.7371,72.1901 127.6409,72.2226 127.5745,72.2441 127.3742,72.3078 127.3352,72.3178 127.2917,72.3281 127.2448,72.3364 127.1997,72.3427 127.1566,72.3453 127.1153,72.3453 127.0126,72.3443 126.8881,72.3414 126.7673,72.3367 126.7074,72.3335 126.5014,72.3322 126.3732,72.3322 126.3732,72.3322 62,5.0,Russia 76.6852,72.2473 76.7051,72.2581 76.7619,72.2776 76.8002,72.2893 76.916,72.3207 76.9542,72.3323 77.0115,72.3506 77.0496,72.3633 77.0718,72.376 77.0834,72.3916 77.0856,72.4014 77.0977,72.4232 77.108,72.4324 77.1193,72.4387 77.1303,72.445 77.1452,72.4517 77.1647,72.4581 77.3739,72.5227 77.3937,72.5277 77.4335,72.5332 77.4537,72.5347 77.4951,72.5329 77.6201,72.5226 77.6825,72.5159 77.9744,72.4818 77.9972,72.479 78.0395,72.4699 78.061,72.464 78.1385,72.4344 78.1685,72.4225 78.1955,72.4041 78.2036,72.3889 78.1951,72.3796 78.0071,72.326 77.873,72.3012 77.8141,72.2892 77.7555,72.2737 77.7364,72.2674 77.6759,72.2417 77.6534,72.2292 77.6391,72.217 77.6171,72.2041 77.5976,72.2001 77.5778,72.1988 77.3577,72.187 77.2555,72.1928 77.1947,72.1951 77.0313,72.1931 77.0115,72.1915 76.992,72.189 76.9532,72.1809 76.933,72.1792 76.9132,72.1789 76.8926,72.1796 76.7907,72.1854 76.7498,72.1893 76.7287,72.1926 76.7079,72.1973 76.6796,72.2153 76.6725,72.2305 76.6852,72.2473 76.6852,72.2473 16,-2.0,Greenland -54.9,72.4811 -54.9283,72.4302 -54.9475,72.4261 -55.054,72.4284 -55.0808,72.4298 -55.2119,72.4399 -55.2341,72.4423 -55.2474,72.4465 -55.2322,72.4539 -55.1178,72.4768 -55.1003,72.4803 -55.0521,72.4862 -54.9441,72.4919 -54.9008,72.491 -54.9,72.4811 -54.9,72.4811 15,-5.0,Canada -79.845,72.4195 -79.7277,72.3637 -79.7355,72.351 -79.7478,72.3398 -79.7657,72.3295 -79.7877,72.3211 -79.8025,72.3167 -79.8183,72.314 -79.8309,72.317 -79.9351,72.4125 -79.9395,72.4242 -79.9238,72.4298 -79.8713,72.427 -79.845,72.4195 -79.845,72.4195 21,-5.0,Canada -79.362,72.3541 -79.3511,72.348 -79.3387,72.3429 -79.3124,72.3333 -79.2793,72.3264 -79.2433,72.3183 -79.2541,72.271 -79.2659,72.2634 -79.2806,72.2588 -79.3183,72.2521 -79.3441,72.2496 -79.366,72.2502 -79.3823,72.2526 -79.3919,72.255 -79.4045,72.2603 -79.4196,72.2705 -79.4342,72.2828 -79.4928,72.3336 -79.3908,72.3582 -79.362,72.3541 -79.362,72.3541 23,-5.0,Canada -78.7511,72.3391 -78.6583,72.319 -78.6454,72.3154 -78.5529,72.2776 -78.5453,72.2707 -78.5658,72.2666 -78.6239,72.2685 -78.6427,72.2682 -78.6659,72.2656 -78.6864,72.2623 -78.7011,72.2582 -78.729,72.247 -78.7466,72.24 -78.7619,72.2386 -78.8642,72.2644 -78.8861,72.3095 -78.8798,72.321 -78.8552,72.3297 -78.8124,72.3417 -78.7818,72.3486 -78.761,72.3448 -78.7511,72.3391 -78.7511,72.3391 30,-2.0,Greenland -54.8839,72.2804 -54.878,72.2668 -54.9,72.1973 -54.9902,72.1779 -55.0613,72.1579 -55.0735,72.1539 -55.0848,72.1488 -55.0962,72.1394 -55.1128,72.1225 -55.1491,72.0988 -55.1793,72.084 -55.2134,72.0707 -55.2429,72.0636 -55.3552,72.0454 -55.3748,72.0471 -55.5348,72.082 -55.5463,72.0864 -55.5566,72.0997 -55.5529,72.1102 -55.5182,72.1294 -55.3911,72.1737 -55.3052,72.193 -55.1747,72.2271 -55.0071,72.2735 -54.9673,72.2832 -54.9525,72.2851 -54.9179,72.2876 -54.9005,72.2857 -54.8839,72.2804 -54.8839,72.2804 33,9.0,Russia 126.3732,72.0912 126.3528,72.0913 126.3252,72.1015 126.3345,72.1238 126.3209,72.1442 126.2788,72.1705 126.2549,72.1818 126.2427,72.1872 126.2268,72.1987 126.2225,72.2109 126.2223,72.2236 126.2276,72.2458 126.2372,72.2556 126.2498,72.2615 126.2681,72.2649 126.287,72.2675 126.3075,72.2676 126.3297,72.2651 126.3497,72.2602 126.3617,72.2512 126.3463,72.2409 126.3344,72.234 126.3246,72.2241 126.3439,72.1922 126.3584,72.1819 126.3791,72.1679 126.391,72.1626 126.4108,72.1386 126.4171,72.1234 126.3987,72.1017 126.3911,72.0948 126.3732,72.0912 126.3732,72.0912 18,-6.0,Canada -85.8625,72.1974 -85.8003,72.2004 -85.6594,72.2006 -85.6428,72.1977 -85.6328,72.1926 -85.633,72.1664 -85.6477,72.145 -85.6735,72.1252 -85.6853,72.1218 -85.7042,72.1213 -85.7768,72.14 -85.8013,72.1474 -85.8566,72.1653 -85.8917,72.1801 -85.9037,72.1902 -85.8925,72.1979 -85.8625,72.1974 -85.8625,72.1974 19,-5.0,Canada -74.5304,72.1108 -74.567,72.0883 -74.5858,72.0792 -74.6009,72.0754 -74.6193,72.0717 -74.664,72.0704 -74.7559,72.0746 -74.7694,72.0791 -74.7546,72.0917 -74.7382,72.101 -74.7283,72.1058 -74.7045,72.1146 -74.673,72.1214 -74.6358,72.1268 -74.5974,72.1309 -74.5264,72.1342 -74.4968,72.1283 -74.5304,72.1108 -74.5304,72.1108 15,9.0,Russia 126.7056,71.9042 126.7332,71.8966 126.8423,71.8655 126.8576,71.86 126.8752,71.844 126.8458,71.8086 126.6649,71.8586 126.6491,71.8637 126.6334,71.8722 126.604,71.9274 126.6249,71.9263 126.6434,71.9224 126.6631,71.9172 126.7056,71.9042 126.7056,71.9042 4623,-7.0,Canada -136.369,68.4922 -136.3689,68.4765 -136.3619,68.0464 -136.3599,67.9955 -136.3473,67.6456 -136.3429,67.6441 -136.3455,67.6373 -136.3516,67.6294 -136.3555,67.6191 -136.3595,67.6089 -136.3462,67.6035 -136.3257,67.6012 -136.3021,67.5987 -136.2871,67.5978 -136.2756,67.596 -136.2703,67.594 -136.2617,67.5923 -136.2399,67.5894 -136.232,67.5901 -136.2186,67.5928 -136.2096,67.5923 -136.1979,67.5911 -136.1813,67.5825 -136.1715,67.5802 -136.1553,67.5746 -136.1509,67.5703 -136.145,67.5618 -136.1396,67.5522 -136.1244,67.5443 -136.1141,67.5355 -136.1124,67.5319 -136.1173,67.5194 -136.1023,67.4917 -136.096,67.4843 -136.0987,67.4775 -136.1035,67.4731 -136.1024,67.4718 -136.0878,67.4663 -136.0857,67.4639 -136.0837,67.4614 -136.0904,67.4519 -136.1016,67.4467 -136.1039,67.441 -136.1006,67.4338 -136.0982,67.4243 -136.0922,67.4164 -136.0949,67.4096 -136.1039,67.4019 -136.1105,67.393 -136.1123,67.3884 -136.1178,67.3741 -136.1282,67.3631 -136.1296,67.3596 -136.1203,67.3562 -136.1086,67.3549 -136.0928,67.3528 -136.0895,67.3456 -136.086,67.3431 -136.0683,67.338 -136.0577,67.3339 -136.0462,67.3285 -136.0441,67.3261 -136.0489,67.3217 -136.0616,67.3201 -136.0718,67.3172 -136.0736,67.3126 -136.0665,67.3076 -136.0544,67.2998 -136.0487,67.2913 -136.0374,67.2813 -136.0208,67.2699 -136.0112,67.2635 -136.0105,67.2576 -136.0104,67.2541 -136.0299,67.2389 -136.0411,67.2296 -136.0442,67.2216 -136.0482,67.2114 -136.0502,67.1986 -136.0486,67.191 -136.059,67.1799 -136.0705,67.1736 -136.0853,67.1663 -136.0918,67.1573 -136.0992,67.1461 -136.1268,67.1407 -136.1421,67.1322 -136.1511,67.1246 -136.1417,67.1176 -136.1351,67.1114 -136.1242,67.1084 -136.114,67.1038 -136.111,67.1001 -136.1124,67.0885 -136.1176,67.083 -136.1269,67.0742 -136.1392,67.0656 -136.1394,67.0574 -136.1343,67.0472 -136.13,67.0428 -136.1246,67.0373 -136.1265,67.0246 -136.1293,67.0095 -136.1135,67.004 -136.0928,66.9957 -136.0891,66.9897 -136.0841,66.9795 -136.0773,66.9662 -136.0749,66.9568 -136.055,66.9544 -136.0062,66.9533 -134.93,66.9572 -134.6377,66.9583 -134.5937,66.9571 -134.0954,66.9555 -133.9553,66.9536 -133.8825,66.9554 -133.8524,66.9555 -133.82,66.9543 -133.7853,66.9547 -133.7444,66.9522 -133.7406,66.9508 -133.7532,66.9464 -133.7757,66.9434 -133.8059,66.9368 -133.8388,66.9369 -133.8741,66.9383 -133.9037,66.9393 -133.9366,66.9394 -133.9614,66.9376 -133.9815,66.9332 -134.0026,66.9265 -134.0229,66.9186 -134.0306,66.9086 -134.0256,66.9 -134.0168,66.8965 -133.9875,66.892 -133.9624,66.8819 -133.9421,66.8711 -133.9362,66.8677 -133.9281,66.866 -133.9107,66.8647 -133.8876,66.863 -133.8602,66.861 -133.8458,66.8599 -133.8321,66.8571 -133.8112,66.8509 -133.8018,66.8426 -133.805,66.8358 -133.8031,66.8274 -133.7969,66.8246 -133.7758,66.8189 -133.7649,66.8105 -133.768,66.8072 -133.7621,66.8009 -133.7491,66.7905 -133.7441,66.7825 -133.7083,66.7763 -133.688,66.7689 -133.6782,66.7646 -133.6768,66.7551 -133.6805,66.7413 -133.684,66.731 -133.6884,66.7219 -133.6965,66.7143 -133.7089,66.707 -133.7265,66.7013 -133.7412,66.6954 -133.756,66.6894 -133.759,66.6832 -133.7603,66.6804 -133.7542,66.6776 -133.7439,66.6744 -133.7357,66.6697 -133.7081,66.6623 -133.6951,66.6555 -133.6821,66.6516 -133.6734,66.645 -133.6653,66.6374 -133.6631,66.6296 -133.6794,66.6202 -133.6936,66.6154 -133.7015,66.6113 -133.7034,66.6074 -133.6982,66.6058 -133.6819,66.6028 -133.6681,66.6006 -133.6458,66.5948 -133.6308,66.589 -133.6236,66.5855 -133.615,66.5789 -133.6148,66.5731 -133.6175,66.5644 -133.6111,66.5563 -133.601,66.5497 -133.5907,66.5465 -133.583,66.5442 -133.5504,66.5382 -133.5365,66.5365 -133.518,66.5351 -133.495,66.5216 -133.4887,66.5164 -133.4925,66.5084 -133.5016,66.505 -133.5279,66.4994 -133.5839,66.4902 -133.5913,66.4872 -133.6,66.4844 -133.6053,66.4795 -133.6068,66.4702 -133.6027,66.4634 -133.5952,66.4546 -133.5836,66.442 -133.549,66.4223 -133.5339,66.417 -133.5287,66.4096 -133.5249,66.4022 -133.5276,66.3966 -133.5352,66.393 -133.5453,66.3903 -133.5645,66.3871 -133.5899,66.389 -133.6138,66.3944 -133.6331,66.397 -133.6489,66.3947 -133.6612,66.3904 -133.6758,66.3845 -133.6798,66.3759 -133.6834,66.3621 -133.6833,66.3562 -133.6838,66.3551 -133.6832,66.338 -133.6836,66.331 -133.6902,66.3233 -133.697,66.315 -133.7225,66.2982 -133.727,66.295 -133.7399,66.2924 -133.7473,66.2766 -133.7454,66.2682 -133.7368,66.2617 -133.7154,66.2577 -133.6962,66.255 -133.6703,66.2542 -133.6518,66.2563 -133.6294,66.2605 -133.6024,66.2619 -133.5839,66.2611 -133.5641,66.2596 -133.5407,66.2566 -133.5264,66.2531 -133.5136,66.2492 -133.4958,66.2407 -133.4811,66.232 -133.4765,66.2234 -133.4752,66.2168 -133.4885,66.162 -133.4793,66.1478 -133.4702,66.1424 -133.4662,66.1356 -133.4688,66.1182 -133.4762,66.1117 -133.4939,66.099 -133.5092,66.0914 -133.5381,66.0854 -133.5643,66.0792 -133.5787,66.0733 -133.5907,66.0601 -133.6019,66.0487 -133.6079,66.0268 -133.6089,66.0216 -133.599,66.015 -133.5851,66.0139 -133.5562,66.014 -133.5325,66.0121 -133.5255,66.0116 -133.5204,66.0041 -133.5203,65.9982 -133.5207,65.9912 -133.5306,65.9826 -133.541,65.9728 -133.5425,65.9665 -133.5428,65.963 -133.543,65.9289 -133.5362,65.919 -133.5309,65.9151 -133.518,65.9117 -133.5011,65.908 -133.4853,65.9079 -133.4576,65.9116 -133.4421,65.9139 -133.4202,65.9145 -133.4085,65.9118 -133.399,65.9076 -133.3893,65.9038 -133.3748,65.898 -133.3687,65.8928 -133.3587,65.8896 -133.3446,65.892 -133.3205,65.8942 -133.3089,65.8974 -133.3003,65.9003 -133.282,65.9082 -133.2796,65.9133 -133.2735,65.9199 -133.2736,65.9257 -133.2747,65.9352 -133.2648,65.938 -133.2481,65.9366 -133.2237,65.9364 -133.2112,65.9354 -133.2001,65.9404 -133.1879,65.9476 -133.1801,65.9517 -133.174,65.9553 -133.1557,65.9574 -133.1379,65.9612 -133.1157,65.9653 -133.0996,65.9687 -133.0712,65.9734 -133.064,65.9764 -133.0484,65.9816 -133.0434,65.9829 -133.0331,65.9862 -133.0198,65.9839 -132.9831,65.9792 -132.9634,65.9781 -132.9442,65.9759 -132.9275,65.9746 -132.9042,65.975 -132.8947,65.9766 -132.8783,65.9805 -132.8685,65.9797 -132.8574,65.9788 -132.8391,65.9719 -132.8289,65.9664 -132.8231,65.9635 -132.829,65.9576 -132.8294,65.9511 -132.8333,65.9432 -132.8404,65.935 -132.8461,65.9237 -132.8561,65.9151 -132.8673,65.9101 -132.8817,65.9043 -132.8924,65.8945 -132.9041,65.8884 -132.9102,65.8819 -132.9097,65.8772 -132.9036,65.8719 -132.8984,65.868 -132.8771,65.8644 -132.8536,65.8625 -132.8301,65.8634 -132.8066,65.8644 -132.7899,65.8689 -132.7536,65.8694 -132.7395,65.8717 -132.7267,65.8742 -132.7216,65.8844 -132.7153,65.8968 -132.7095,65.9081 -132.7099,65.9187 -132.6982,65.9248 -132.6825,65.9329 -132.673,65.9344 -132.648,65.9382 -132.6382,65.9403 -132.6231,65.9473 -132.6112,65.9593 -132.5994,65.9653 -132.5826,65.9698 -132.5686,65.9745 -132.5524,65.9778 -132.5368,65.98 -132.5129,65.9815 -132.4961,65.983 -132.4796,65.9787 -132.4619,65.9736 -132.4556,65.969 -132.4445,65.9597 -132.4435,65.9561 -132.4321,65.9445 -132.4212,65.9377 -132.4122,65.9328 -132.4062,65.9276 -132.3976,65.9274 -132.3846,65.9357 -132.374,65.9395 -132.3633,65.9433 -132.3477,65.9455 -132.3383,65.9441 -132.3245,65.9429 -132.3099,65.9457 -132.2955,65.9457 -132.2827,65.9451 -132.2705,65.9464 -132.2574,65.9465 -132.2533,65.9461 -132.2455,65.9443 -132.2453,65.9419 -132.2511,65.9365 -132.2602,65.9302 -132.2626,65.9257 -132.2481,65.9173 -132.2389,65.913 -132.2382,65.9088 -132.2403,65.9049 -132.2445,65.9023 -132.2617,65.9026 -132.2874,65.9031 -132.3206,65.8895 -132.3364,65.8814 -132.3418,65.8766 -132.3573,65.8744 -132.3812,65.8729 -132.3915,65.8726 -132.4302,65.8618 -132.432,65.8584 -132.4403,65.8562 -132.4538,65.8497 -132.46,65.8432 -132.4719,65.8342 -132.4832,65.8234 -132.4896,65.811 -132.4915,65.8017 -132.4889,65.7956 -132.4821,65.792 -132.4708,65.7887 -132.45,65.7845 -132.436,65.781 -132.4151,65.7768 -132.4018,65.7721 -132.3966,65.7681 -132.3883,65.7621 -132.3758,65.7557 -132.3605,65.752 -132.3208,65.7426 -132.2979,65.7341 -132.2877,65.7262 -132.2726,65.7166 -132.2563,65.7039 -132.2314,65.6911 -132.2221,65.6814 -132.2082,65.6725 -132.1979,65.6675 -132.1944,65.666 -132.1968,65.6615 -132.1999,65.6582 -132.2071,65.6553 -132.2131,65.6494 -132.2094,65.6455 -132.2106,65.6432 -132.1536,65.6264 -132.1442,65.6226 -132.1412,65.62 -132.138,65.6179 -132.1374,65.6137 -132.1324,65.6015 -132.1287,65.5893 -132.1138,65.5851 -132.1052,65.5743 -132.0932,65.5673 -132.0833,65.5617 -132.0838,65.5552 -132.0851,65.55 -132.092,65.5424 -132.1043,65.5352 -132.1249,65.5176 -132.1412,65.5138 -132.1546,65.5126 -132.1702,65.5046 -132.1798,65.4971 -132.1844,65.4881 -132.2002,65.4742 -132.2095,65.4591 -132.2217,65.4519 -132.2309,65.4451 -132.23,65.4415 -132.2287,65.4384 -132.2311,65.4339 -132.2285,65.4278 -132.2291,65.4266 -132.2358,65.4219 -132.2405,65.4129 -132.2402,65.4052 -132.2385,65.4003 -132.2351,65.3959 -132.2404,65.3911 -132.2524,65.3898 -132.2638,65.3896 -132.275,65.3871 -132.2801,65.3828 -132.2847,65.3738 -132.3011,65.3694 -132.317,65.3661 -132.3292,65.3589 -132.3424,65.3524 -132.3479,65.3499 -132.3729,65.3457 -132.3867,65.3404 -132.3976,65.3355 -132.4108,65.3319 -132.4314,65.3302 -132.4381,65.3226 -132.4438,65.3113 -132.453,65.3015 -132.4625,65.2882 -132.4708,65.283 -132.4655,65.2767 -132.4651,65.2719 -132.4653,65.266 -132.4627,65.2599 -132.4664,65.2526 -132.4703,65.2476 -132.4723,65.2437 -132.4821,65.241 -132.4908,65.2406 -132.5051,65.2401 -132.5148,65.2403 -132.5348,65.2397 -132.5405,65.2397 -132.5551,65.2386 -132.5665,65.2355 -132.5703,65.2334 -132.5756,65.2257 -132.5811,65.2232 -132.5893,65.218 -132.598,65.2147 -132.607,65.2107 -132.6094,65.2086 -132.6106,65.2063 -132.61,65.2045 -132.6064,65.1977 -132.6081,65.1943 -132.6152,65.1914 -132.6203,65.1895 -132.6249,65.1887 -132.6349,65.1884 -132.6467,65.19 -132.6626,65.192 -132.6736,65.1924 -132.6799,65.1912 -132.6847,65.1898 -132.6929,65.1876 -132.6932,65.1841 -132.6897,65.1826 -132.6843,65.1821 -132.6773,65.1821 -132.6663,65.1817 -132.6625,65.1808 -132.6551,65.1761 -132.6438,65.1704 -132.6318,65.1664 -132.6265,65.16 -132.6255,65.1564 -132.629,65.1549 -132.649,65.1543 -132.6522,65.1534 -132.6662,65.1535 -132.6851,65.1492 -132.6911,65.1486 -132.7059,65.1469 -132.7006,65.1435 -132.7004,65.1411 -132.691,65.1374 -132.6814,65.1342 -132.6723,65.1299 -132.6665,65.1246 -132.659,65.1199 -132.6469,65.1188 -132.6416,65.1183 -132.6308,65.1174 -132.6207,65.1153 -132.6107,65.1156 -132.6066,65.1182 -132.599,65.1223 -132.5957,65.129 -132.5902,65.1315 -132.5741,65.1301 -132.5548,65.1296 -132.5397,65.1318 -132.5234,65.1362 -132.5114,65.1434 -132.501,65.1502 -132.4945,65.1519 -132.4902,65.1522 -132.4808,65.1513 -132.4682,65.1484 -132.4672,65.1478 -132.4635,65.1439 -132.4574,65.1392 -132.4508,65.1357 -132.4436,65.1333 -132.4335,65.1283 -132.4322,65.1252 -132.4297,65.1191 -132.4352,65.1137 -132.4421,65.1084 -132.4439,65.0991 -132.4505,65.0944 -132.4665,65.0876 -132.4741,65.0836 -132.4801,65.08 -132.4827,65.0749 -132.4793,65.0705 -132.4738,65.0647 -132.4723,65.0622 -132.4651,65.0598 -132.4632,65.0578 -132.459,65.0551 -132.4596,65.054 -132.455,65.0465 -132.4478,65.0441 -132.4379,65.0414 -132.4305,65.0396 -132.4179,65.0397 -132.406,65.041 -132.3972,65.0419 -132.3798,65.0404 -132.3589,65.0403 -132.3396,65.0397 -132.3201,65.0368 -132.3094,65.0388 -132.3045,65.0401 -132.2964,65.0423 -132.2872,65.0438 -132.2744,65.0415 -132.2718,65.0383 -132.2672,65.0338 -132.2534,65.0278 -132.2476,65.0255 -132.2488,65.0233 -132.2556,65.018 -132.2574,65.0146 -132.2549,65.0085 -132.2529,65.0042 -132.2569,64.9963 -132.2602,64.9925 -132.2638,64.9881 -132.3118,64.9759 -132.3254,64.9712 -132.33,64.9675 -132.3345,64.9614 -132.3429,64.9557 -132.3428,64.95 -132.3427,64.9451 -132.3476,64.9408 -132.3475,64.9355 -132.3545,64.9326 -132.365,64.9312 -132.3778,64.9306 -132.3896,64.9293 -132.3974,64.9276 -132.4084,64.9251 -132.4143,64.9244 -132.426,64.9149 -132.4313,64.9071 -132.4333,64.9002 -132.4292,64.8945 -132.4227,64.8881 -132.399,64.88 -132.398,64.8682 -132.3797,64.863 -132.3804,64.8589 -132.394,64.8484 -132.3975,64.8357 -132.4024,64.8314 -132.4553,64.8226 -132.463,64.821 -132.4909,64.8011 -132.5218,64.7944 -132.5336,64.7931 -132.5443,64.7853 -132.5468,64.7831 -132.5296,64.7704 -132.5177,64.7664 -132.5096,64.7633 -132.4877,64.7572 -132.4837,64.7569 -132.4848,64.7546 -132.486,64.7524 -132.4908,64.7481 -132.4915,64.7411 -132.4862,64.7324 -132.4767,64.7291 -132.4736,64.7271 -132.4657,64.7264 -132.4611,64.7272 -132.4521,64.7287 -132.4458,64.7358 -132.4409,64.7401 -132.4361,64.7414 -132.4284,64.7431 -132.4114,64.7439 -132.3875,64.7447 -132.3623,64.7371 -132.3447,64.7337 -132.3319,64.7343 -132.3101,64.7394 -132.2965,64.7417 -132.2783,64.7394 -132.2693,64.738 -132.2675,64.7361 -132.2537,64.7278 -132.2104,64.7096 -132.1883,64.707 -132.1743,64.7046 -132.1461,64.6949 -132.139,64.6924 -132.1339,64.689 -132.1324,64.6865 -132.1315,64.6829 -132.1287,64.6803 -132.1253,64.6788 -132.1172,64.6757 -132.1112,64.6739 -132.1021,64.6702 -132.0953,64.6672 -132.0884,64.6618 -132.0742,64.6599 -132.0603,64.6574 -132.0477,64.6551 -132.0353,64.6551 -132.0087,64.6585 -131.999,64.6588 -131.995,64.6584 -131.9864,64.6564 -131.9751,64.6542 -131.9688,64.653 -131.9608,64.6499 -131.9543,64.6463 -131.9506,64.6347 -131.9443,64.6283 -131.9421,64.6245 -131.9365,64.6193 -131.9333,64.6148 -131.93,64.6049 -131.9259,64.6025 -131.9054,64.5756 -131.9056,64.562 -131.8822,64.5506 -131.8603,64.542 -131.8425,64.5346 -131.8372,64.5169 -131.781,64.51 -131.7699,64.5019 -131.7865,64.4928 -131.7796,64.4859 -131.6835,64.4977 -131.6217,64.4792 -131.6343,64.469 -131.6215,64.443 -131.6642,64.43 -131.6866,64.4113 -131.7306,64.4012 -131.7656,64.3799 -131.7635,64.3544 -131.7959,64.3423 -131.7869,64.331 -131.7499,64.3269 -131.7146,64.3332 -131.665,64.3317 -131.643,64.3367 -131.5987,64.3317 -131.5702,64.3162 -131.5428,64.3172 -131.5063,64.3356 -131.4681,64.336 -131.4536,64.3494 -131.3906,64.349 -131.3805,64.3862 -131.3539,64.4036 -131.3378,64.4066 -131.3088,64.3971 -131.2484,64.4024 -131.2054,64.4002 -131.1582,64.3742 -131.0851,64.367 -131.0628,64.3418 -131.0159,64.3157 -131.0339,64.3097 -131.0486,64.3038 -130.9777,64.2784 -130.985,64.2717 -131.0198,64.2566 -131.0277,64.2288 -131.0144,64.2299 -131.001,64.2311 -130.987,64.2157 -130.9783,64.2195 -130.9817,64.2268 -130.921,64.2079 -130.8805,64.1647 -130.9058,64.152 -130.8938,64.1409 -130.8466,64.1511 -130.8054,64.129 -130.8667,64.1041 -130.9059,64.0992 -130.9212,64.0798 -130.8913,64.0749 -130.902,64.0604 -130.8722,64.0554 -130.8443,64.0548 -130.8411,64.04 -130.8239,64.0325 -130.824,64.0099 -130.8314,63.9957 -130.8195,63.9922 -130.7917,63.9916 -130.7612,64.0002 -130.6792,63.9937 -130.682,63.9845 -130.7079,63.9732 -130.7179,63.9648 -130.7255,63.95 -130.7246,63.9456 -130.7193,63.9401 -130.7081,63.9332 -130.7029,63.9292 -130.6959,63.9241 -130.6882,63.9194 -130.6763,63.9165 -130.6644,63.9141 -130.6589,63.9119 -130.6537,63.9092 -130.6443,63.9041 -130.6354,63.9012 -130.6295,63.9005 -130.6202,63.9002 -130.606,63.9005 -130.5926,63.9008 -130.5854,63.8998 -130.5752,63.898 -130.5697,63.896 -130.5552,63.8895 -130.5467,63.8855 -130.5407,63.8822 -130.5322,63.8786 -130.5237,63.8757 -130.5198,63.8743 -130.5148,63.8732 -130.5122,63.8732 -130.5047,63.8744 -130.496,63.877 -130.4886,63.8799 -130.4798,63.8812 -130.4736,63.8814 -130.4668,63.8811 -130.4592,63.8791 -130.4549,63.8764 -130.4489,63.872 -130.4425,63.868 -130.4366,63.8666 -130.4244,63.8643 -130.4155,63.8617 -130.4045,63.8581 -130.3934,63.8534 -130.3866,63.8498 -130.3747,63.8449 -130.3687,63.8412 -130.3636,63.8374 -130.3593,63.8341 -130.3541,63.8297 -130.349,63.8253 -130.3378,63.816 -130.328,63.8105 -130.3183,63.8072 -130.3128,63.8051 -130.3068,63.802 -130.3042,63.799 -130.3003,63.7935 -130.2977,63.7887 -130.2963,63.7836 -130.2928,63.7796 -130.2894,63.7777 -130.2831,63.7756 -130.2789,63.7747 -130.2759,63.7743 -130.2709,63.7751 -130.2647,63.7766 -130.259,63.7805 -130.2532,63.7826 -130.2474,63.7844 -130.2382,63.7859 -130.2266,63.7871 -130.2158,63.789 -130.2054,63.7907 -130.1971,63.7926 -130.1913,63.7949 -130.1868,63.798 -130.1831,63.8016 -130.1836,63.8052 -130.1845,63.8084 -130.1863,63.8117 -130.1859,63.8146 -130.1843,63.8178 -130.1823,63.82 -130.179,63.8213 -130.1757,63.8228 -130.1698,63.8232 -130.1652,63.8228 -130.1573,63.8214 -130.1417,63.8167 -130.1336,63.813 -130.1269,63.8116 -130.1202,63.8113 -130.1127,63.812 -130.1019,63.8147 -130.0952,63.8156 -130.0881,63.816 -130.0869,63.8157 -130.0789,63.8155 -130.0743,63.8131 -130.0696,63.8113 -130.0671,63.8091 -130.0645,63.8069 -130.0645,63.8047 -130.064,63.803 -130.0656,63.799 -130.0713,63.7949 -130.0763,63.7903 -130.0786,63.7855 -130.0802,63.7814 -130.0826,63.7759 -130.0816,63.7696 -130.079,63.7652 -130.0752,63.76 -130.0684,63.7549 -130.065,63.7523 -130.057,63.7502 -130.0519,63.748 -130.0465,63.7454 -130.043,63.7421 -130.0416,63.7351 -130.0403,63.7298 -130.0402,63.725 -130.0426,63.7209 -130.045,63.717 -130.0474,63.7139 -130.0527,63.7085 -130.0589,63.7052 -130.0672,63.7025 -130.0788,63.701 -130.1034,63.7016 -130.1172,63.7031 -130.1297,63.7047 -130.1377,63.7053 -130.1435,63.7046 -130.1489,63.7034 -130.1513,63.7001 -130.1516,63.6953 -130.1531,63.6887 -130.1513,63.6843 -130.152,63.6796 -130.1536,63.6771 -130.1552,63.675 -130.1577,63.6735 -130.1614,63.6724 -130.171,63.6716 -130.1951,63.67 -130.2204,63.6695 -130.2366,63.6687 -130.2499,63.6679 -130.2557,63.6671 -130.2599,63.6662 -130.2656,63.6639 -130.2697,63.6606 -130.2704,63.6561 -130.2686,63.6508 -130.2667,63.6449 -130.2603,63.6381 -130.2523,63.633 -130.2403,63.6233 -130.2344,63.6196 -130.2222,63.6129 -130.2151,63.61 -130.2071,63.608 -130.2009,63.6069 -130.1938,63.607 -130.1813,63.6067 -130.1726,63.6071 -130.1652,63.6093 -130.1545,63.6123 -130.1356,63.622 -130.1258,63.6268 -130.1151,63.6326 -130.1039,63.6356 -130.0945,63.6382 -130.0837,63.6412 -130.0692,63.6439 -130.0593,63.6449 -130.0489,63.6442 -130.0314,63.6428 -130.028,63.6422 -130.0255,63.64 -130.0246,63.6371 -130.0253,63.6334 -130.0286,63.6301 -130.0344,63.6267 -130.0409,63.6239 -130.0467,63.6211 -130.0516,63.6185 -130.0557,63.617 -130.0595,63.6154 -130.0611,63.6141 -130.0619,63.6115 -130.0626,63.6096 -130.0617,63.6063 -130.055,63.6015 -130.0508,63.5986 -130.0449,63.5948 -130.0411,63.5909 -130.0372,63.5852 -130.0296,63.5775 -130.0237,63.5722 -130.0177,63.5659 -130.0135,63.5623 -130.0044,63.5597 -130.0002,63.5594 -129.9919,63.559 -129.9828,63.5602 -129.9712,63.5624 -129.963,63.5639 -129.9547,63.5654 -129.9464,63.5662 -129.9423,63.5664 -129.9357,63.5664 -129.9315,63.5652 -129.93,63.5626 -129.9285,63.5602 -129.9276,63.5572 -129.9271,63.5524 -129.9294,63.5421 -129.93,63.5386 -129.9302,63.5334 -129.9303,63.5318 -129.93,63.5294 -129.9275,63.5257 -129.9233,63.5231 -129.9092,63.5202 -129.8905,63.5175 -129.8776,63.515 -129.8681,63.5132 -129.8606,63.5113 -129.8514,63.5081 -129.8464,63.5051 -129.8402,63.5011 -129.836,63.4968 -129.8314,63.493 -129.8292,63.4884 -129.8292,63.4854 -129.83,63.4819 -129.8308,63.479 -129.8286,63.4746 -129.8216,63.4724 -129.8149,63.47 -129.8099,63.4674 -129.8066,63.465 -129.8028,63.4599 -129.8011,63.4532 -129.7927,63.4466 -129.7819,63.4393 -129.7761,63.4347 -129.7727,63.4303 -129.7656,63.4244 -129.7594,63.4207 -129.7495,63.417 -129.7437,63.4146 -129.7374,63.4121 -129.7341,63.4101 -129.7316,63.4075 -129.7299,63.4049 -129.7307,63.4031 -129.7328,63.4018 -129.7369,63.4005 -129.7439,63.3999 -129.7596,63.4041 -129.7745,63.4092 -129.7878,63.4125 -129.8026,63.415 -129.8113,63.4167 -129.8208,63.4174 -129.8278,63.4174 -129.8365,63.4162 -129.8406,63.4133 -129.845,63.4087 -129.8475,63.4053 -129.8482,63.3994 -129.8498,63.3946 -129.8514,63.3913 -129.8526,63.3874 -129.8595,63.3835 -129.8656,63.3804 -129.8689,63.3774 -129.8697,63.3735 -129.8638,63.368 -129.8551,63.3621 -129.8492,63.3574 -129.8426,63.3515 -129.8355,63.346 -129.8313,63.3427 -129.8288,63.3393 -129.8255,63.3355 -129.8246,63.3307 -129.8246,63.3287 -129.8262,63.325 -129.8302,63.3227 -129.836,63.3209 -129.8425,63.319 -129.8536,63.3179 -129.8639,63.3162 -129.8679,63.3143 -129.8703,63.311 -129.8732,63.3075 -129.8752,63.3053 -129.8793,63.3034 -129.8842,63.3019 -129.894,63.3008 -129.9158,63.2998 -129.924,63.299 -129.93,63.2979 -129.9359,63.2968 -129.9465,63.2939 -129.9547,63.291 -129.9604,63.288 -129.9706,63.288 -129.9817,63.2886 -129.9887,63.2892 -129.9941,63.2884 -129.9994,63.2869 -130.0067,63.2812 -130.0078,63.2777 -130.0094,63.274 -130.0114,63.2716 -130.0146,63.269 -130.017,63.2658 -130.0223,63.2638 -130.0342,63.2617 -130.0481,63.262 -130.0563,63.262 -130.0654,63.2615 -130.0739,63.2598 -130.0796,63.258 -130.0837,63.2541 -130.0869,63.2498 -130.0863,63.2421 -130.0878,63.2373 -130.0869,63.2328 -130.0851,63.2268 -130.0842,63.2223 -130.0849,63.2181 -130.0865,63.2155 -130.0909,63.2112 -130.0949,63.2086 -130.1027,63.2064 -130.1075,63.2042 -130.1116,63.2019 -130.1124,63.2003 -130.1123,63.1984 -130.1106,63.1969 -130.1073,63.1962 -130.1,63.1955 -130.0844,63.1956 -130.0701,63.1977 -130.0554,63.2 -130.044,63.2015 -130.0342,63.203 -130.0248,63.2042 -130.0166,63.2049 -130.0072,63.2052 -129.9957,63.2046 -129.9854,63.2032 -129.9789,63.2014 -129.971,63.1974 -129.9627,63.1926 -129.9557,63.1862 -129.951,63.1794 -129.9493,63.1731 -129.9463,63.1666 -129.943,63.1626 -129.9384,63.1604 -129.9351,63.1573 -129.9317,63.1495 -129.93,63.1464 -129.9307,63.1409 -129.9307,63.1368 -129.9306,63.1346 -129.93,63.1318 -129.93,63.1309 -129.9264,63.1289 -129.9231,63.1282 -129.9182,63.1282 -129.9142,63.1286 -129.9085,63.1319 -129.9004,63.1378 -129.898,63.1395 -129.8907,63.1412 -129.885,63.1434 -129.8777,63.1479 -129.8712,63.151 -129.8675,63.151 -129.8601,63.15 -129.8552,63.1487 -129.8519,63.1457 -129.8469,63.141 -129.8436,63.1376 -129.8362,63.1364 -129.8289,63.1349 -129.8244,63.1336 -129.8219,63.1329 -129.8194,63.1311 -129.8194,63.1292 -129.8218,63.1259 -129.8234,63.1226 -129.8242,63.1196 -129.8217,63.1163 -129.8167,63.1137 -129.8113,63.1079 -129.8064,63.1031 -129.8039,63.0986 -129.8038,63.0935 -129.8038,63.0889 -129.8021,63.0841 -129.8008,63.0811 -129.7979,63.078 -129.795,63.0762 -129.7897,63.0738 -129.7831,63.0716 -129.779,63.0701 -129.7737,63.0686 -129.7688,63.0657 -129.768,63.064 -129.7687,63.0596 -129.776,63.0517 -129.7796,63.045 -129.7831,63.0384 -129.7823,63.0358 -129.775,63.0351 -129.7607,63.0344 -129.7419,63.0337 -129.7269,63.0322 -129.7208,63.0308 -129.7166,63.0278 -129.715,63.0241 -129.7121,63.0212 -129.7096,63.0193 -129.7015,63.0186 -129.6925,63.0186 -129.686,63.0192 -129.6787,63.0196 -129.6596,63.0193 -129.6445,63.0189 -129.6307,63.0189 -129.6213,63.0199 -129.6164,63.0206 -129.6022,63.0236 -129.5908,63.0254 -129.5855,63.0275 -129.579,63.029 -129.5709,63.0305 -129.5636,63.0301 -129.557,63.0288 -129.5542,63.027 -129.5509,63.024 -129.5493,63.0198 -129.5476,63.0142 -129.5451,63.0082 -129.5402,63.0022 -129.5349,62.9967 -129.5333,62.993 -129.5341,62.9897 -129.5365,62.986 -129.5438,62.9812 -129.558,62.976 -129.5694,62.9716 -129.5783,62.966 -129.5872,62.9616 -129.5961,62.9537 -129.5993,62.9488 -129.6017,62.9437 -129.6037,62.937 -129.6029,62.9326 -129.6016,62.9276 -129.6,62.9236 -129.5987,62.9201 -129.5979,62.918 -129.5979,62.9156 -129.6003,62.9138 -129.6056,62.9114 -129.6197,62.9066 -129.623,62.9053 -129.6262,62.9032 -129.6274,62.9016 -129.6282,62.8975 -129.6298,62.8931 -129.633,62.8883 -129.6386,62.8818 -129.6495,62.8761 -129.656,62.872 -129.6624,62.8683 -129.6681,62.8655 -129.6684,62.8611 -129.6635,62.8563 -129.6586,62.8526 -129.6517,62.8478 -129.6444,62.8441 -129.6395,62.8412 -129.6363,62.839 -129.6355,62.8364 -129.6338,62.8347 -129.637,62.8325 -129.6403,62.8308 -129.6475,62.8308 -129.6597,62.8319 -129.6718,62.8343 -129.68,62.8361 -129.6848,62.8369 -129.6885,62.8372 -129.6966,62.8372 -129.7006,62.8365 -129.703,62.8342 -129.7054,62.83 -129.7069,62.8224 -129.7069,62.8173 -129.7044,62.8114 -129.6995,62.808 -129.6926,62.8007 -129.6885,62.7955 -129.6836,62.7907 -129.6755,62.7859 -129.665,62.7819 -129.6568,62.7793 -129.6492,62.7768 -129.6435,62.7755 -129.6382,62.7734 -129.6301,62.7724 -129.6253,62.769 -129.622,62.7657 -129.6212,62.7624 -129.6212,62.7583 -129.6203,62.7535 -129.6171,62.751 -129.609,62.748 -129.6009,62.7443 -129.5968,62.7395 -129.596,62.7362 -129.5944,62.7318 -129.5911,62.7277 -129.5855,62.7233 -129.5806,62.7193 -129.5754,62.7159 -129.5697,62.7126 -129.5648,62.7108 -129.5608,62.7082 -129.5584,62.7056 -129.5584,62.7029 -129.5624,62.7014 -129.5676,62.6999 -129.5724,62.699 -129.5797,62.6975 -129.5805,62.6949 -129.5752,62.6918 -129.5696,62.6888 -129.5635,62.6851 -129.5587,62.6814 -129.5562,62.6778 -129.5526,62.6698 -129.5493,62.6632 -129.5469,62.6595 -129.5408,62.6543 -129.5344,62.6488 -129.5304,62.646 -129.5235,62.6453 -129.5147,62.646 -129.5058,62.6468 -129.497,62.6459 -129.4914,62.6448 -129.4869,62.6424 -129.4841,62.6366 -129.4817,62.6322 -129.4785,62.6282 -129.4688,62.6271 -129.4592,62.6256 -129.4519,62.6243 -129.4491,62.623 -129.4463,62.621 -129.4431,62.6188 -129.4423,62.6156 -129.4423,62.6125 -129.4451,62.6106 -129.4499,62.6086 -129.4563,62.6064 -129.4619,62.6045 -129.4684,62.6021 -129.4668,62.599 -129.4619,62.5953 -129.4507,62.5918 -129.4406,62.5883 -129.4338,62.5857 -129.4298,62.5839 -129.4254,62.5822 -129.4218,62.5794 -129.4194,62.5768 -129.4186,62.5743 -129.4214,62.5682 -129.4238,62.5623 -129.4262,62.5586 -129.433,62.5549 -129.439,62.5517 -129.4454,62.549 -129.4522,62.5477 -129.4611,62.5458 -129.4643,62.5451 -129.4711,62.5429 -129.4759,62.5406 -129.4815,62.5369 -129.4839,62.5336 -129.4855,62.5299 -129.4855,62.5255 -129.4838,62.5222 -129.4814,62.5189 -129.479,62.5166 -129.475,62.5152 -129.4702,62.5137 -129.4638,62.5122 -129.4526,62.5126 -129.4342,62.518 -129.4286,62.5209 -129.4238,62.5231 -129.4198,62.5261 -129.4158,62.5301 -129.413,62.5333 -129.4098,62.5355 -129.4034,62.5381 -129.3969,62.5388 -129.3897,62.5388 -129.3769,62.5384 -129.3629,62.536 -129.3517,62.5327 -129.3397,62.5268 -129.3277,62.5205 -129.3181,62.5142 -129.3081,62.5063 -129.2993,62.5004 -129.2902,62.4937 -129.285,62.4908 -129.273,62.4867 -129.2642,62.4834 -129.2538,62.4808 -129.247,62.4789 -129.2394,62.4778 -129.2295,62.4763 -129.2207,62.4748 -129.2107,62.4733 -129.1911,62.4716 -129.1783,62.4694 -129.1724,62.4659 -129.1624,62.4611 -129.1545,62.4559 -129.1489,62.4522 -129.1409,62.4485 -129.1286,62.4457 -129.1242,62.4436 -129.1211,62.4407 -129.1175,62.4362 -129.1151,62.4318 -129.1136,62.4288 -129.1112,62.4261 -129.1093,62.4222 -129.1093,62.42 -129.1125,62.4179 -129.1185,62.4159 -129.1265,62.413 -129.1361,62.4108 -129.1425,62.4095 -129.1505,62.4069 -129.1581,62.4062 -129.174,62.4068 -129.1892,62.4072 -129.1956,62.4068 -129.2036,62.4057 -129.2084,62.4046 -129.2144,62.4024 -129.2156,62.4 -129.2172,62.3958 -129.2164,62.3921 -129.2156,62.3891 -129.2117,62.3873 -129.2085,62.3858 -129.2057,62.3841 -129.2073,62.3825 -129.2221,62.3773 -129.2277,62.3747 -129.2341,62.3725 -129.2353,62.3716 -129.2393,62.3687 -129.2409,62.3661 -129.2417,62.3628 -129.2405,62.36 -129.237,62.3576 -129.2354,62.3535 -129.233,62.3495 -129.2283,62.345 -129.2215,62.3411 -129.2116,62.3385 -129.1949,62.3367 -129.1786,62.334 -129.1726,62.3322 -129.1619,62.3285 -129.152,62.3255 -129.1508,62.324 -129.1548,62.3226 -129.1652,62.3218 -129.1739,62.3215 -129.1787,62.3204 -129.1819,62.3174 -129.1863,62.3123 -129.1879,62.3097 -129.1947,62.3064 -129.2047,62.3023 -129.2151,62.2972 -129.2186,62.2942 -129.2219,62.2905 -129.2259,62.2857 -129.2327,62.2798 -129.2351,62.2754 -129.2359,62.2708 -129.2359,62.2671 -129.2312,62.2627 -129.224,62.2582 -129.2209,62.2562 -129.2181,62.2521 -129.2158,62.2488 -129.2158,62.2464 -129.2178,62.242 -129.2214,62.2375 -129.2266,62.2333 -129.229,62.2274 -129.2294,62.222 -129.2247,62.2168 -129.2172,62.2131 -129.2097,62.2081 -129.2026,62.2048 -129.1971,62.2011 -129.1947,62.197 -129.1916,62.1921 -129.1892,62.1869 -129.1877,62.1832 -129.1853,62.1799 -129.1806,62.1769 -129.1751,62.175 -129.1688,62.1739 -129.1581,62.1719 -129.1466,62.1711 -129.1363,62.1707 -129.1292,62.1703 -129.1221,62.1701 -129.1201,62.1688 -129.1225,62.1648 -129.1281,62.1607 -129.1364,62.1554 -129.1428,62.1502 -129.1512,62.1454 -129.1587,62.1419 -129.1687,62.1368 -129.1861,62.1291 -129.1956,62.1256 -129.2083,62.1193 -129.2115,62.1125 -129.2108,62.108 -129.21,62.1051 -129.2069,62.1018 -129.2013,62.101 -129.1946,62.1008 -129.1875,62.1015 -129.1808,62.1019 -129.1713,62.1028 -129.163,62.1019 -129.1532,62.0995 -129.1461,62.0946 -129.1379,62.0883 -129.1324,62.083 -129.1277,62.0789 -129.1206,62.0748 -129.1159,62.0706 -129.1104,62.0676 -129.1041,62.065 -129.0931,62.0628 -129.0837,62.0618 -129.0738,62.0603 -129.0592,62.0595 -129.047,62.0595 -129.0359,62.0602 -129.0209,62.0617 -129.011,62.0653 -129.0039,62.0688 -128.9999,62.0721 -128.9975,62.0751 -128.9896,62.0773 -128.9844,62.0773 -128.977,62.075 -128.9675,62.0726 -128.958,62.0729 -128.9501,62.0748 -128.9417,62.0803 -128.937,62.0836 -128.9314,62.0858 -128.9278,62.0867 -128.9207,62.0854 -128.9098,62.0805 -128.9004,62.072 -128.8926,62.0664 -128.8841,62.0607 -128.8786,62.0584 -128.8743,62.0569 -128.8703,62.0567 -128.8605,62.0574 -128.8474,62.0596 -128.8367,62.0603 -128.8265,62.0603 -128.8178,62.0591 -128.8057,62.0561 -128.7963,62.0498 -128.7905,62.0424 -128.7883,62.0342 -128.7861,62.0278 -128.7815,62.0226 -128.7792,62.0189 -128.7765,62.0153 -128.7711,62.0131 -128.764,62.0127 -128.7553,62.0121 -128.7447,62.0106 -128.7373,62.0087 -128.7295,62.0061 -128.7236,62.0042 -128.7154,62.0031 -128.7075,62.0019 -128.698,62.0019 -128.6941,62.003 -128.6909,62.0063 -128.6892,62.0112 -128.6883,62.0164 -128.6857,62.0234 -128.6845,62.0278 -128.6816,62.033 -128.6735,62.04 -128.6406,62.0634 -128.6257,62.0752 -128.6225,62.0774 -128.6189,62.0785 -128.6138,62.0794 -128.6094,62.0793 -128.6007,62.0789 -128.5913,62.0783 -128.5815,62.0764 -128.5721,62.0738 -128.5634,62.0713 -128.5607,62.0709 -128.5544,62.0702 -128.5453,62.0727 -128.5381,62.0745 -128.5329,62.0756 -128.5274,62.0765 -128.5215,62.0768 -128.5132,62.0767 -128.5022,62.0756 -128.4951,62.074 -128.4888,62.072 -128.4763,62.068 -128.4631,62.0624 -128.4545,62.0581 -128.4488,62.053 -128.4466,62.0486 -128.4404,62.0434 -128.4355,62.0369 -128.4279,62.0287 -128.4162,62.0231 -128.4046,62.016 -128.393,62.0115 -128.3786,62.0051 -128.3709,61.9998 -128.3601,61.9942 -128.3505,61.9879 -128.3396,61.983 -128.3326,61.9798 -128.3257,61.9764 -128.3167,61.9741 -128.3113,61.9719 -128.3098,61.9689 -128.3107,61.966 -128.3124,61.9626 -128.3141,61.9593 -128.3183,61.9525 -128.3192,61.9474 -128.3162,61.9444 -128.3127,61.9421 -128.3073,61.9386 -128.2992,61.9348 -128.2876,61.9318 -128.2767,61.9286 -128.2705,61.9267 -128.2607,61.9236 -128.2555,61.9184 -128.2486,61.9111 -128.2429,61.9076 -128.234,61.9042 -128.2239,61.901 -128.2154,61.8979 -128.2088,61.8953 -128.2035,61.8908 -128.1982,61.8854 -128.1922,61.8787 -128.1854,61.8716 -128.1802,61.864 -128.1758,61.8573 -128.1721,61.851 -128.17,61.8452 -128.1687,61.8393 -128.1673,61.8349 -128.1667,61.8312 -128.166,61.829 -128.1654,61.8245 -128.1648,61.818 -128.1627,61.8121 -128.1595,61.8049 -128.1574,61.7997 -128.1544,61.7956 -128.1514,61.7926 -128.1476,61.7904 -128.1406,61.7896 -128.1334,61.7913 -128.118,61.7966 -128.1045,61.8005 -128.093,61.8033 -128.0836,61.8047 -128.075,61.8054 -128.0624,61.8053 -128.0507,61.8055 -128.0429,61.8058 -128.0323,61.8052 -128.0207,61.8021 -128.0154,61.7991 -128.005,61.7938 -127.9993,61.7902 -127.9933,61.7857 -127.9881,61.7787 -127.9845,61.7724 -127.98,61.7675 -127.974,61.7634 -127.9675,61.7589 -127.9631,61.7544 -127.958,61.7466 -127.9558,61.7425 -127.9529,61.7388 -127.9507,61.7345 -127.9433,61.7259 -127.9388,61.7214 -127.9351,61.7173 -127.9345,61.7142 -127.9324,61.7088 -127.9315,61.7034 -127.9349,61.6964 -127.9359,61.6843 -127.937,61.6787 -127.9365,61.6724 -127.9344,61.6672 -127.9298,61.6568 -127.9169,61.6488 -127.9102,61.6431 -127.9034,61.639 -127.8946,61.6359 -127.8873,61.6331 -127.8755,61.6291 -127.8678,61.6275 -127.855,61.6261 -127.8457,61.6245 -127.8392,61.6226 -127.8343,61.619 -127.8257,61.6125 -127.8138,61.6014 -127.8056,61.5947 -127.794,61.5868 -127.7815,61.5803 -127.7698,61.5734 -127.7498,61.5626 -127.7391,61.5584 -127.7323,61.555 -127.7278,61.5527 -127.7178,61.5504 -127.7067,61.5477 -127.6875,61.5448 -127.6733,61.5421 -127.6624,61.5417 -127.6474,61.5404 -127.6381,61.5392 -127.6297,61.5365 -127.6215,61.5312 -127.6179,61.526 -127.6148,61.5195 -127.6134,61.5158 -127.6131,61.5149 -127.6099,61.51 -127.6063,61.5055 -127.6042,61.5011 -127.6002,61.4973 -127.5949,61.4947 -127.5873,61.4924 -127.5763,61.4885 -127.5613,61.4854 -127.5521,61.4838 -127.5441,61.4816 -127.5325,61.4809 -127.5248,61.4804 -127.5183,61.4787 -127.514,61.4745 -127.5066,61.4672 -127.5007,61.4631 -127.4931,61.4604 -127.4824,61.4577 -127.4683,61.4543 -127.4591,61.4527 -127.4514,61.4526 -127.4367,61.4524 -127.4296,61.4541 -127.418,61.4547 -127.4054,61.4575 -127.3934,61.4586 -127.3833,61.4581 -127.3734,61.4565 -127.3588,61.4544 -127.3484,61.4535 -127.338,61.4534 -127.3251,61.4539 -127.3188,61.4558 -127.309,61.4579 -127.2996,61.4596 -127.2902,61.4606 -127.277,61.4615 -127.2654,61.4613 -127.2476,61.4614 -127.2341,61.4605 -127.2188,61.4584 -127.1958,61.4543 -127.1845,61.4501 -127.1795,61.4444 -127.1726,61.4384 -127.169,61.4335 -127.1639,61.4294 -127.1574,61.4228 -127.1538,61.4194 -127.1479,61.416 -127.1352,61.4152 -127.1213,61.415 -127.1111,61.4163 -127.1036,61.4184 -127.0962,61.4187 -127.087,61.4178 -127.0817,61.4162 -127.077,61.4065 -127.0703,61.3879 -127.0685,61.3812 -127.0672,61.3727 -127.0649,61.3664 -127.0642,61.3614 -127.0642,61.3562 -127.0647,61.3484 -127.0652,61.3421 -127.064,61.3373 -127.059,61.3326 -127.0492,61.3287 -127.0355,61.3267 -127.0238,61.3233 -127.0143,61.3209 -127.0055,61.3156 -126.9971,61.3095 -126.9935,61.3058 -126.993,61.3021 -126.9949,61.2984 -126.999,61.294 -127.0017,61.29 -127.003,61.2828 -127.0008,61.2763 -126.9997,61.2704 -126.9912,61.261 -126.9873,61.2511 -126.9817,61.244 -126.9789,61.2399 -126.9781,61.236 -126.9774,61.2343 -126.9755,61.2293 -126.9738,61.2211 -126.9707,61.2124 -126.9698,61.2035 -126.9695,61.1972 -126.9692,61.1916 -126.9664,61.1875 -126.9601,61.1796 -126.9527,61.1721 -126.9463,61.1653 -126.9412,61.1615 -126.9389,61.1563 -126.938,61.1485 -126.9402,61.1393 -126.9414,61.1343 -126.9442,61.1281 -126.9551,61.1213 -126.967,61.1148 -126.9783,61.1073 -126.9829,61.1033 -126.9812,61.0999 -126.9761,61.0967 -126.9703,61.0921 -126.9607,61.0875 -126.9568,61.0832 -126.9539,61.0767 -126.9596,61.0668 -126.9632,61.0606 -126.9673,61.0569 -126.9729,61.0533 -126.9831,61.0502 -127.0001,61.0475 -127.023,61.0428 -127.0316,61.0399 -127.038,61.0371 -127.0412,61.0338 -127.0452,61.0267 -127.0456,61.0215 -127.0437,61.0163 -127.037,61.0136 -127.0335,61.0098 -127.0251,61.0045 -127.0202,60.9992 -127.0183,60.9938 -127.0163,60.9901 -127.0126,60.9875 -127.0074,60.9855 -127.0014,60.985 -126.9936,60.9871 -126.9842,60.9899 -126.9729,60.9986 -126.9575,61.0053 -126.9487,61.0096 -126.9358,61.0135 -126.9258,61.0148 -126.9189,61.0157 -126.9124,61.0158 -126.9013,61.0154 -126.8922,61.0145 -126.8855,61.0125 -126.8773,61.0098 -126.8712,61.0058 -126.87,61.0013 -126.8719,60.9966 -126.8754,60.9903 -126.8789,60.9849 -126.88,60.9808 -126.8828,60.9744 -126.8817,60.9692 -126.8728,60.9564 -126.8629,60.9463 -126.8553,60.9373 -126.8476,60.9282 -126.8424,60.9176 -126.8384,60.9105 -126.8331,60.8997 -126.8329,60.8937 -126.8327,60.8867 -126.8338,60.8819 -126.8357,60.8768 -126.8375,60.8737 -126.8417,60.8693 -126.8409,60.8597 -126.8371,60.8507 -126.8348,60.8418 -126.833,60.8347 -126.8343,60.8281 -126.8424,60.8216 -126.849,60.8158 -126.8508,60.8118 -126.8512,60.8066 -126.8455,60.802 -126.833,60.7977 -126.8203,60.7953 -126.8128,60.7936 -126.8062,60.7909 -126.8035,60.7864 -126.8057,60.7791 -126.8138,60.7718 -126.8216,60.7605 -126.8239,60.7502 -126.823,60.7428 -126.8205,60.7357 -126.8129,60.7271 -126.7975,60.7208 -126.7814,60.7146 -126.7719,60.7096 -126.7652,60.708 -126.7562,60.7071 -126.7463,60.7084 -126.7407,60.7123 -126.7387,60.7175 -126.7362,60.7204 -126.7298,60.7251 -126.7159,60.7277 -126.6921,60.7317 -126.6815,60.7322 -126.6711,60.7294 -126.6582,60.7218 -126.6412,60.7159 -126.6311,60.7105 -126.6264,60.7041 -126.6201,60.6984 -126.6135,60.6953 -126.6091,60.6938 -126.6024,60.6929 -126.5916,60.6956 -126.585,60.7014 -126.5738,60.7086 -126.555,60.7237 -126.5393,60.73 -126.5164,60.7407 -126.4952,60.7487 -126.4873,60.7522 -126.4756,60.7564 -126.4678,60.7588 -126.4622,60.7617 -126.4546,60.7623 -126.4456,60.7613 -126.4376,60.7575 -126.4261,60.7509 -126.4144,60.7466 -126.4033,60.7434 -126.3891,60.7416 -126.3795,60.7388 -126.3692,60.7352 -126.3605,60.7317 -126.3524,60.7285 -126.3404,60.7275 -126.3307,60.7258 -126.3174,60.7226 -126.3055,60.7208 -126.2843,60.7203 -126.2368,60.7263 -126.2097,60.7323 -126.1926,60.7363 -126.1784,60.7426 -126.1685,60.7505 -126.1585,60.7592 -126.156,60.7695 -126.1597,60.7777 -126.1649,60.786 -126.1703,60.7928 -126.1768,60.7959 -126.1772,60.7992 -126.1716,60.8028 -126.1501,60.8053 -126.1317,60.8063 -126.112,60.8066 -126.0774,60.8102 -126.0568,60.8111 -126.0453,60.8127 -126.0401,60.8115 -126.0359,60.8076 -126.0394,60.8033 -126.0432,60.7967 -126.0513,60.7917 -126.052,60.7851 -126.0512,60.7777 -126.0473,60.7717 -126.0401,60.7678 -126.0301,60.762 -126.0159,60.7598 -126.003,60.7606 -125.9901,60.7602 -125.9798,60.7577 -125.971,60.7546 -125.9622,60.7514 -125.9541,60.7493 -125.9443,60.7494 -125.9336,60.7503 -125.9279,60.7538 -125.9293,60.762 -125.9228,60.7729 -125.9184,60.7851 -125.9167,60.7943 -125.9096,60.8037 -125.8989,60.8108 -125.8815,60.817 -125.8629,60.8277 -125.8479,60.8325 -125.8322,60.8372 -125.8117,60.8434 -125.7996,60.843 -125.7848,60.8397 -125.7705,60.8319 -125.751,60.8228 -125.7457,60.816 -125.7242,60.8114 -125.6923,60.7983 -125.678,60.7905 -125.6681,60.7843 -125.6515,60.7764 -125.6405,60.7732 -125.621,60.7719 -125.6086,60.7738 -125.5867,60.7731 -125.5686,60.7719 -125.5574,60.7705 -125.5407,60.7707 -125.5299,60.7723 -125.5206,60.7735 -125.5129,60.7744 -125.5091,60.775 -125.5008,60.774 -125.4792,60.7712 -125.4447,60.7613 -125.4301,60.7571 -125.4126,60.7514 -125.392,60.7464 -125.3766,60.7419 -125.3619,60.7385 -125.3411,60.7349 -125.3276,60.7334 -125.3142,60.7322 -125.2916,60.7308 -125.2764,60.7307 -125.2642,60.7318 -125.2474,60.7328 -125.238,60.7347 -125.2231,60.7391 -125.2156,60.7436 -125.2014,60.7543 -125.193,60.76 -125.1865,60.7635 -125.1713,60.7693 -125.1561,60.7755 -125.1501,60.7809 -125.1449,60.7851 -125.1396,60.7909 -125.1337,60.7952 -125.1273,60.7976 -125.1171,60.8002 -125.0958,60.8003 -125.0721,60.8017 -125.0553,60.8019 -125.034,60.802 -125.0136,60.8017 -124.9975,60.8027 -124.9724,60.8081 -124.96,60.81 -124.9492,60.8111 -124.9357,60.8099 -124.93,60.8098 -124.9092,60.8094 -124.889,60.8065 -124.8689,60.8036 -124.8425,60.8023 -124.822,60.802 -124.8097,60.8031 -124.8018,60.805 -124.7982,60.8094 -124.7955,60.8174 -124.7955,60.8278 -124.7994,60.8383 -124.8049,60.8526 -124.8083,60.8605 -124.8069,60.8656 -124.8019,60.8736 -124.7927,60.8792 -124.7858,60.8849 -124.7744,60.8949 -124.7658,60.902 -124.7613,60.9067 -124.7562,60.9154 -124.754,60.9201 -124.7467,60.9232 -124.7436,60.9235 -124.7383,60.9233 -124.7304,60.9201 -124.7192,60.9134 -124.7106,60.9094 -124.7057,60.9062 -124.6896,60.902 -124.6729,60.901 -124.6548,60.9 -124.6432,60.9007 -124.6283,60.8987 -124.6135,60.8956 -124.5983,60.8951 -124.5875,60.8962 -124.5809,60.8993 -124.5741,60.9042 -124.5681,60.9088 -124.5652,60.9124 -124.5613,60.9134 -124.5522,60.9131 -124.5425,60.9116 -124.5324,60.9076 -124.5271,60.9022 -124.5146,60.8895 -124.5061,60.8699 -124.4986,60.8544 -124.4929,60.8372 -124.4856,60.8199 -124.4811,60.8049 -124.4776,60.7977 -124.4768,60.7929 -124.4778,60.7866 -124.4759,60.7791 -124.472,60.7745 -124.4682,60.7647 -124.465,60.7609 -124.4567,60.7558 -124.4451,60.7524 -124.4311,60.7493 -124.4228,60.7442 -124.4201,60.737 -124.4218,60.7308 -124.4339,60.7216 -124.4441,60.7145 -124.4528,60.7071 -124.4787,60.6962 -124.4952,60.6879 -124.5141,60.683 -124.5301,60.6769 -124.5355,60.6712 -124.5378,60.6661 -124.5475,60.662 -124.5576,60.6556 -124.5649,60.6474 -124.5645,60.6396 -124.5598,60.6305 -124.5401,60.6061 -124.5239,60.5929 -124.5017,60.5754 -124.4823,60.5688 -124.4641,60.5592 -124.4402,60.5427 -124.4284,60.5312 -124.4165,60.5204 -124.403,60.5102 -124.3992,60.5056 -124.3888,60.5 -124.3812,60.4953 -124.3691,60.4863 -124.3633,60.4794 -124.3571,60.471 -124.3552,60.4591 -124.3577,60.4525 -124.3596,60.4452 -124.3611,60.436 -124.361,60.4267 -124.3603,60.4218 -124.3602,60.417 -124.3516,60.4145 -124.3393,60.4162 -124.3144,60.4171 -124.2932,60.4182 -124.2683,60.4187 -124.2301,60.418 -124.2054,60.417 -124.1855,60.4148 -124.1754,60.4121 -124.1654,60.4092 -124.1554,60.4058 -124.1515,60.4019 -124.148,60.3959 -124.1478,60.3877 -124.1505,60.3759 -124.1495,60.3681 -124.1531,60.3549 -124.1563,60.3446 -124.1592,60.3407 -124.1619,60.333 -124.1609,60.3207 -124.1532,60.3126 -124.1477,60.2998 -124.1417,60.291 -124.1384,60.2835 -124.1284,60.2712 -124.1234,60.2606 -124.1145,60.2506 -124.103,60.239 -124.0927,60.2238 -124.0792,60.2151 -124.072,60.2044 -124.0633,60.1937 -124.0594,60.1809 -124.0551,60.1703 -124.0479,60.1597 -124.0347,60.1495 -124.0186,60.1384 -124.009,60.1332 -123.9962,60.1249 -123.9805,60.1117 -123.9666,60.1059 -123.9578,60.1007 -123.9504,60.0959 -123.947,60.0806 -123.9477,60.0765 -123.9395,60.0677 -123.9327,60.0592 -123.9313,60.0406 -123.9326,60.0332 -123.9348,60.0289 -123.947,60.0179 -123.9577,60.0027 -123.9683,59.992 -123.9726,59.9841 -123.9735,59.9789 -123.9717,59.9718 -123.9663,59.9682 -123.9554,59.9626 -123.9476,59.9563 -123.94,59.95 -122.6809,59.95 -122.5976,59.9504 -122.5142,59.9503 -122.4309,59.9503 -122.3477,59.9502 -122.2643,59.9502 -122.181,59.9501 -122.0978,59.9501 -122.0145,59.95 -121.9311,59.95 -121.8479,59.9499 -121.7646,59.9499 -121.6812,59.9498 -121.5979,59.9497 -121.5147,59.9497 -121.4314,59.9496 -121.348,59.9496 -121.2648,59.9495 -121.1815,59.9495 -121.0981,59.95 -120.1819,59.95 -120.0986,59.9497 -120.0152,59.95 -119.9319,59.9503 -119.93,59.9503 -119.93,53.7544 -119.9109,53.7507 -119.9062,53.7404 -119.8947,53.7308 -119.8477,53.729 -119.8339,53.7276 -119.8165,53.7257 -119.8114,53.7211 -119.8106,53.7069 -119.8177,53.695 -119.8274,53.6847 -119.8253,53.6774 -119.8305,53.6719 -119.8382,53.6692 -119.8415,53.6633 -119.8324,53.6577 -119.8161,53.6565 -119.7975,53.6588 -119.787,53.6617 -119.7781,53.6618 -119.7753,53.6574 -119.7709,53.6503 -119.7645,53.6452 -119.7515,53.6457 -119.7441,53.6519 -119.7264,53.6522 -119.7154,53.6454 -119.7101,53.6355 -119.6994,53.6247 -119.6852,53.6153 -119.6678,53.6108 -119.6615,53.6057 -119.6635,53.5896 -119.6593,53.5829 -119.6533,53.5735 -119.6444,53.5667 -119.6454,53.5627 -119.6744,53.5425 -119.6768,53.5378 -119.7047,53.5382 -119.7228,53.5501 -119.7672,53.5559 -119.7868,53.5561 -119.789,53.5561 -119.8106,53.5664 -119.8282,53.5678 -119.8531,53.5628 -119.8543,53.5568 -119.8367,53.5466 -119.8275,53.5341 -119.8096,53.5207 -119.7972,53.5146 -119.7924,53.5072 -119.7925,53.4975 -119.7965,53.4895 -119.8238,53.4806 -119.8283,53.4695 -119.8263,53.4654 -119.8164,53.4594 -119.8053,53.4582 -119.7994,53.453 -119.7905,53.4499 -119.7824,53.4511 -119.7699,53.4671 -119.7613,53.4659 -119.7555,53.4581 -119.7339,53.4458 -119.7271,53.4444 -119.7151,53.4419 -119.7093,53.4346 -119.7167,53.4268 -119.7149,53.4201 -119.7019,53.4092 -119.6849,53.3752 -119.6791,53.3684 -119.6549,53.3496 -119.652,53.3374 -119.6494,53.3373 -119.6412,53.3371 -119.6329,53.3394 -119.6244,53.3385 -119.6135,53.3327 -119.6057,53.3169 -119.5735,53.3159 -119.5366,53.3119 -119.5227,53.3163 -119.5329,53.3292 -119.5316,53.3323 -119.524,53.3321 -119.5085,53.3249 -119.4836,53.3134 -119.4719,53.3124 -119.4599,53.3136 -119.4563,53.3174 -119.4487,53.3184 -119.4313,53.3133 -119.4078,53.3113 -119.3783,53.3042 -119.3625,53.3056 -119.3487,53.3093 -119.3402,53.3136 -119.3327,53.3133 -119.32,53.3103 -119.3191,53.3098 -119.2842,53.2891 -119.2769,53.2808 -119.2766,53.2727 -119.2865,53.2595 -119.2766,53.2505 -119.2651,53.2469 -119.262,53.2393 -119.2657,53.2343 -119.2632,53.2271 -119.2545,53.222 -119.2409,53.2176 -119.2331,53.2105 -119.2236,53.2019 -119.2106,53.1805 -119.2018,53.1711 -119.183,53.1431 -119.1822,53.1285 -119.1772,53.1251 -119.1706,53.1265 -119.1612,53.141 -119.1546,53.1427 -119.1423,53.1388 -119.1332,53.1359 -119.1172,53.1343 -119.0979,53.1343 -119.0886,53.1393 -119.0799,53.1399 -119.0526,53.1126 -119.0168,53.1118 -119.0007,53.1086 -118.9763,53.0944 -118.9754,53.0931 -118.9669,53.0816 -118.9569,53.0743 -118.9498,53.081 -118.9271,53.093 -118.9322,53.0992 -118.9478,53.1076 -118.9466,53.1196 -118.9372,53.1347 -118.9262,53.1442 -118.9211,53.1522 -118.9267,53.1601 -118.9279,53.1609 -118.9415,53.1693 -118.9412,53.18 -118.9283,53.186 -118.9128,53.1906 -118.8853,53.1861 -118.8738,53.1866 -118.8619,53.1835 -118.8426,53.1622 -118.8336,53.1588 -118.8018,53.155 -118.8009,53.154 -118.794,53.1466 -118.7788,53.1352 -118.7596,53.1336 -118.754,53.1253 -118.7442,53.1232 -118.737,53.1169 -118.7162,53.1109 -118.708,53.1067 -118.7069,53.0972 -118.7089,53.0921 -118.7053,53.0851 -118.6952,53.0791 -118.669,53.0728 -118.6673,53.0724 -118.6579,53.0669 -118.6812,53.0359 -118.6984,53.0297 -118.7034,53.0028 -118.6983,52.9966 -118.6883,52.9966 -118.6756,53.0022 -118.6692,53.0084 -118.653,53.006 -118.6473,53.0045 -118.6349,53.0014 -118.6251,52.9873 -118.6204,52.9841 -118.6103,52.985 -118.6047,52.9903 -118.5947,52.9908 -118.5832,52.9843 -118.57,52.9549 -118.5694,52.948 -118.5967,52.9332 -118.5925,52.9231 -118.5882,52.9126 -118.5745,52.9013 -118.5425,52.888 -118.5466,52.8728 -118.5456,52.868 -118.5342,52.8571 -118.5433,52.8385 -118.5347,52.8315 -118.5224,52.8291 -118.5107,52.8333 -118.506,52.8351 -118.4874,52.8542 -118.4802,52.8554 -118.4693,52.8545 -118.4549,52.8496 -118.4419,52.8533 -118.4244,52.8488 -118.4083,52.8515 -118.3966,52.8515 -118.3864,52.8444 -118.3774,52.8331 -118.3884,52.8193 -118.3879,52.815 -118.3872,52.8098 -118.377,52.8022 -118.36,52.8005 -118.333,52.8027 -118.3269,52.8015 -118.3227,52.7971 -118.3208,52.7865 -118.3263,52.7721 -118.3445,52.75 -118.3481,52.7326 -118.3449,52.7259 -118.3431,52.7219 -118.3201,52.71 -118.2996,52.7049 -118.2873,52.6958 -118.2657,52.6868 -118.2639,52.6815 -118.2686,52.6746 -118.2662,52.6617 -118.2513,52.6487 -118.2241,52.6368 -118.2223,52.636 -118.2163,52.6268 -118.2226,52.6071 -118.2294,52.6021 -118.2563,52.599 -118.2636,52.5903 -118.2718,52.5869 -118.277,52.5823 -118.2773,52.5728 -118.2817,52.5621 -118.2622,52.5551 -118.261,52.5396 -118.2609,52.5389 -118.2549,52.5306 -118.2345,52.5249 -118.2078,52.5211 -118.1952,52.5112 -118.1958,52.506 -118.209,52.4955 -118.2097,52.4847 -118.189,52.4525 -118.1785,52.4461 -118.1757,52.4443 -118.1647,52.441 -118.1454,52.4405 -118.1337,52.4379 -118.1261,52.4352 -118.1222,52.4291 -118.1234,52.4239 -118.1494,52.4112 -118.155,52.4024 -118.1699,52.4013 -118.176,52.3977 -118.1664,52.383 -118.1653,52.3638 -118.1649,52.3566 -118.1478,52.3381 -118.1502,52.3274 -118.1463,52.322 -118.1365,52.3181 -118.1199,52.3188 -118.1121,52.3222 -118.1051,52.3341 -118.0813,52.3518 -118.068,52.3543 -118.0474,52.3505 -118.0435,52.3498 -117.9859,52.3465 -117.9796,52.351 -117.977,52.3631 -117.966,52.3744 -117.9618,52.3805 -117.9611,52.386 -117.9653,52.3897 -117.9808,52.3928 -117.985,52.3958 -117.9826,52.4058 -117.9781,52.4104 -117.9691,52.4097 -117.9632,52.4064 -117.9536,52.401 -117.9508,52.4054 -117.9524,52.4159 -117.9447,52.4322 -117.9372,52.442 -117.9255,52.4487 -117.9165,52.448 -117.9074,52.4343 -117.8964,52.4307 -117.892,52.4162 -117.8864,52.4108 -117.8655,52.4015 -117.8502,52.399 -117.8417,52.3944 -117.8382,52.3859 -117.8165,52.3773 -117.7705,52.3674 -117.7542,52.366 -117.7381,52.3582 -117.7265,52.356 -117.7146,52.3599 -117.7065,52.3609 -117.6935,52.3599 -117.6898,52.3576 -117.6756,52.3487 -117.6582,52.3429 -117.6497,52.338 -117.6519,52.3301 -117.65,52.3227 -117.6394,52.3166 -117.6375,52.3047 -117.6542,52.3034 -117.6661,52.2946 -117.6753,52.2801 -117.6781,52.2678 -117.6883,52.2698 -117.6905,52.2696 -117.6995,52.2689 -117.7214,52.2553 -117.7246,52.2442 -117.7386,52.24 -117.7693,52.2253 -117.7692,52.2163 -117.7625,52.2058 -117.7523,52.1993 -117.7463,52.1844 -117.7364,52.1757 -117.7349,52.1751 -117.671,52.1519 -117.6642,52.1381 -117.6445,52.1394 -117.6148,52.1473 -117.5979,52.1499 -117.5902,52.148 -117.585,52.141 -117.5744,52.1333 -117.5499,52.1156 -117.5447,52.1037 -117.5307,52.0895 -117.5081,52.085 -117.4906,52.0789 -117.4843,52.0804 -117.4694,52.0913 -117.4511,52.0964 -117.4477,52.1037 -117.443,52.1065 -117.4372,52.1046 -117.4272,52.1012 -117.4209,52.0938 -117.3833,52.0964 -117.3577,52.1007 -117.3424,52.1014 -117.3002,52.097 -117.2762,52.0987 -117.2654,52.1016 -117.2611,52.1066 -117.2591,52.1136 -117.2515,52.1406 -117.2458,52.1381 -117.2408,52.0856 -117.2308,52.0448 -117.2255,52.0227 -117.2187,52.0157 -117.2033,52.0086 -117.1971,52.0025 -117.1942,51.9957 -117.1759,51.9933 -117.1497,51.9856 -117.146,51.9787 -117.1467,51.9735 -117.1586,51.9607 -117.1527,51.9527 -117.1478,51.9508 -117.1343,51.9455 -117.1247,51.9311 -117.099,51.9259 -117.0882,51.9253 -117.0747,51.927 -117.0572,51.914 -117.039,51.9054 -117.0222,51.892 -116.9967,51.8791 -116.9744,51.8678 -116.9538,51.8494 -116.947,51.8428 -116.9589,51.819 -116.9563,51.7997 -116.9392,51.7892 -116.923,51.7887 -116.9149,51.7854 -116.9147,51.7831 -116.9135,51.7738 -116.8998,51.7563 -116.8956,51.7479 -116.896,51.7234 -116.9024,51.7113 -116.8897,51.7016 -116.8591,51.6827 -116.8475,51.6625 -116.8306,51.658 -116.8102,51.6553 -116.7912,51.6558 -116.7795,51.6591 -116.7638,51.6586 -116.7465,51.656 -116.7345,51.6608 -116.7322,51.6642 -116.7273,51.6714 -116.7338,51.6788 -116.7395,51.6822 -116.7425,51.6879 -116.7292,51.7098 -116.7038,51.7239 -116.6736,51.7574 -116.6628,51.7579 -116.6505,51.7534 -116.6385,51.7515 -116.6172,51.7588 -116.6055,51.7613 -116.5891,51.7572 -116.5782,51.7499 -116.5797,51.7148 -116.5752,51.7072 -116.5644,51.7034 -116.5538,51.6946 -116.5544,51.6868 -116.5517,51.6826 -116.5508,51.6811 -116.53,51.6732 -116.5213,51.668 -116.5148,51.6571 -116.5111,51.6362 -116.5154,51.6329 -116.5142,51.6277 -116.5223,51.6204 -116.524,51.6135 -116.5024,51.602 -116.467,51.5885 -116.4443,51.5798 -116.4298,51.5758 -116.4051,51.5611 -116.397,51.552 -116.3938,51.5444 -116.3962,51.5249 -116.3936,51.5184 -116.3772,51.5111 -116.3461,51.5035 -116.3177,51.4966 -116.3083,51.4857 -116.3205,51.4784 -116.3222,51.456 -116.2849,51.4233 -116.2735,51.4197 -116.2527,51.4169 -116.2257,51.4133 -116.2163,51.4087 -116.2184,51.3893 -116.2227,51.3798 -116.2135,51.3683 -116.2127,51.3619 -116.2287,51.3416 -116.2327,51.3338 -116.2291,51.3221 -116.2148,51.3187 -116.2131,51.3183 -116.2078,51.3053 -116.2136,51.2918 -116.1952,51.2631 -116.1731,51.2519 -116.1447,51.2461 -116.1335,51.2472 -116.1152,51.2523 -116.1,51.2492 -116.0913,51.2474 -116.0787,51.2345 -116.0829,51.2193 -116.0762,51.2154 -116.0612,51.2121 -116.0476,51.2055 -116.0326,51.2017 -116.0163,51.2001 -116.0044,51.2005 -115.9938,51.1975 -115.9833,51.1836 -115.9664,51.1776 -115.9573,51.1744 -115.9411,51.1728 -115.9342,51.1701 -115.9344,51.1465 -115.9627,51.1242 -115.964,51.1162 -115.9405,51.1089 -115.9449,51.082 -115.8809,51.0671 -115.8664,51.053 -115.8445,51.0389 -115.8305,51.0321 -115.8241,51.0324 -115.8215,51.041 -115.8171,51.0433 -115.7956,51.0404 -115.7914,51.0367 -115.7855,51.0313 -115.7719,51.0297 -115.7628,51.0255 -115.7479,51.0314 -115.7385,51.0322 -115.7336,51.0272 -115.724,51.0222 -115.7,51.0169 -115.6874,51.023 -115.6818,51.0219 -115.6803,51.017 -115.6895,51.0137 -115.6929,50.9971 -115.6783,50.9861 -115.6755,50.9839 -115.6487,50.9679 -115.6401,50.9673 -115.6291,50.9775 -115.6224,50.9763 -115.6074,50.9593 -115.5908,50.9549 -115.5562,50.9307 -115.5454,50.9185 -115.5407,50.9132 -115.5322,50.8988 -115.5319,50.8854 -115.5283,50.8797 -115.5285,50.8743 -115.5007,50.8637 -115.4916,50.8555 -115.4897,50.8508 -115.4925,50.846 -115.5054,50.8403 -115.525,50.8412 -115.5419,50.8348 -115.5478,50.8334 -115.5714,50.8277 -115.5705,50.8176 -115.5611,50.792 -115.547,50.7898 -115.5382,50.7913 -115.532,50.7967 -115.526,50.7971 -115.4899,50.7888 -115.4852,50.7851 -115.4845,50.7664 -115.4844,50.7634 -115.4661,50.7513 -115.4543,50.7392 -115.4439,50.7385 -115.4263,50.7414 -115.4082,50.7285 -115.4064,50.7159 -115.4002,50.7104 -115.3921,50.7078 -115.3901,50.7118 -115.3795,50.7119 -115.3748,50.7091 -115.3654,50.7101 -115.3611,50.7123 -115.3552,50.7085 -115.3542,50.7075 -115.3354,50.6863 -115.3392,50.672 -115.3122,50.6651 -115.3003,50.6692 -115.2907,50.6752 -115.277,50.6784 -115.2559,50.679 -115.2401,50.6754 -115.2217,50.657 -115.2168,50.6329 -115.2042,50.6149 -115.2032,50.6056 -115.2123,50.5988 -115.2271,50.6003 -115.2349,50.5933 -115.2321,50.5873 -115.2216,50.5799 -115.2174,50.57 -115.2052,50.5595 -115.2029,50.5585 -115.1852,50.5506 -115.1664,50.5457 -115.161,50.5414 -115.1644,50.526 -115.1553,50.5113 -115.1542,50.5006 -115.1503,50.4944 -115.1377,50.4861 -115.1298,50.4855 -115.1247,50.4898 -115.1106,50.4896 -115.1061,50.4944 -115.1092,50.5009 -115.1086,50.5022 -115.1062,50.5077 -115.092,50.5215 -115.0822,50.5247 -115.0714,50.5263 -115.0519,50.5257 -115.0319,50.5269 -115.0216,50.5297 -114.9988,50.5402 -114.9923,50.5385 -114.9793,50.5289 -114.9751,50.5282 -114.9697,50.531 -114.956,50.5319 -114.9504,50.5368 -114.9479,50.5391 -114.9419,50.5383 -114.93,50.5137 -114.9271,50.5078 -114.907,50.4903 -114.8799,50.4538 -114.8585,50.4333 -114.8423,50.4047 -114.8313,50.3976 -114.8028,50.3923 -114.7985,50.3826 -114.7858,50.3718 -114.789,50.3509 -114.7817,50.3441 -114.7609,50.3407 -114.7508,50.339 -114.7385,50.3326 -114.739,50.3263 -114.7328,50.3204 -114.7191,50.3119 -114.7068,50.3117 -114.6994,50.3088 -114.6966,50.3011 -114.7057,50.2917 -114.7135,50.2891 -114.717,50.2804 -114.7089,50.2682 -114.7133,50.2592 -114.707,50.254 -114.6964,50.2549 -114.6922,50.2552 -114.6793,50.2507 -114.6764,50.2324 -114.6774,50.2272 -114.6829,50.2171 -114.694,50.2063 -114.6938,50.1981 -114.662,50.1635 -114.6529,50.1466 -114.6505,50.1422 -114.6509,50.1352 -114.6561,50.1269 -114.6561,50.1222 -114.6509,50.1113 -114.656,50.0842 -114.6607,50.0735 -114.6578,50.0645 -114.632,50.052 -114.6191,50.0332 -114.6121,50.023 -114.5896,50.0171 -114.5893,50.0089 -114.5959,50.003 -114.5829,49.9804 -114.5882,49.9621 -114.5795,49.95 -114.5746,49.943 -114.578,49.9245 -114.5795,49.9242 -114.6055,49.9179 -114.6159,49.9012 -114.6162,49.8855 -114.6115,49.8717 -114.6163,49.8499 -114.613,49.8432 -114.5917,49.8156 -114.5859,49.8081 -114.5807,49.7971 -114.5641,49.7834 -114.5669,49.7689 -114.5587,49.7588 -114.5622,49.7503 -114.5615,49.7343 -114.5665,49.7271 -114.5774,49.7226 -114.583,49.7172 -114.5806,49.7105 -114.5714,49.7053 -114.5699,49.7044 -114.5696,49.6961 -114.5632,49.6915 -114.5607,49.6807 -114.5728,49.6699 -114.5954,49.6605 -114.5989,49.6513 -114.593,49.6203 -114.584,49.6049 -114.5835,49.5983 -114.5881,49.5952 -114.5897,49.5941 -114.6332,49.5893 -114.644,49.5801 -114.6608,49.5773 -114.6702,49.5704 -114.6713,49.5599 -114.6532,49.5315 -114.6351,49.5127 -114.6277,49.505 -114.6194,49.5035 -114.6042,49.5071 -114.5733,49.4967 -114.5586,49.4972 -114.5406,49.5021 -114.524,49.5126 -114.5137,49.5158 -114.5036,49.511 -114.4924,49.4998 -114.4945,49.4883 -114.4949,49.4865 -114.5066,49.4693 -114.5169,49.4598 -114.5235,49.4508 -114.5232,49.4199 -114.5301,49.3896 -114.5232,49.3685 -114.5105,49.3453 -114.4981,49.334 -114.4841,49.3313 -114.4678,49.334 -114.457,49.3331 -114.4509,49.3144 -114.4165,49.3037 -114.4053,49.2925 -114.405,49.2901 -114.4043,49.2853 -114.4141,49.2719 -114.4104,49.266 -114.3966,49.2617 -114.3865,49.2514 -114.3758,49.2442 -114.3729,49.2337 -114.376,49.2236 -114.3707,49.22 -114.3102,49.2084 -114.3065,49.2077 -114.3035,49.2043 -114.3236,49.194 -114.3198,49.17 -114.3235,49.1631 -114.2946,49.156 -114.2725,49.1455 -114.2631,49.1503 -114.2395,49.1475 -114.2274,49.1425 -114.2182,49.1386 -114.1834,49.131 -114.1721,49.1332 -114.1611,49.1402 -114.1538,49.1404 -114.14,49.1369 -114.1326,49.1251 -114.0944,49.1108 -114.083,49.1012 -114.0794,49.0945 -114.0803,49.0934 -114.0862,49.0848 -114.0843,49.0759 -114.0686,49.039 -114.0498,49.0303 -114.0286,49.0158 -113.9981,49.0053 -113.9907,48.9999 -113.9893,48.9962 -113.982,48.977 -113.9948,48.9606 -113.998,48.9508 -113.9971,48.9489 -113.9971,48.944 -113.8931,48.9444 -113.8676,48.9433 -113.4013,48.9431 -113.2024,48.9432 -113.0686,48.9433 -112.869,48.9439 -112.7693,48.9437 -112.4367,48.9437 -112.3703,48.9439 -112.2703,48.944 -112.1707,48.9438 -112.0706,48.944 -112.004,48.9434 -111.8709,48.9433 -111.6374,48.9432 -111.2052,48.9433 -110.6065,48.9431 -110.5057,48.9439 -110.3393,48.944 -110.1401,48.944 -110.04,48.9433 -109.9403,48.9434 -109.9305,48.9435 -109.93,48.9497 -109.93,55.533 -109.9297,55.6164 -109.93,55.7829 -109.93,59.95 -109.0137,59.95 -108.9303,59.9501 -108.885,59.95 -108.264,59.95 -108.1807,59.9501 -107.7641,59.9501 -107.6809,59.95 -107.5978,59.9499 -107.5145,59.9498 -107.4309,59.9497 -107.3477,59.9496 -107.2643,59.9496 -107.181,59.9495 -106.4394,59.9486 -106.0149,59.9495 -105.9317,59.9497 -105.8482,59.9499 -105.7649,59.9501 -105.6817,59.95 -101.9303,59.95 -101.9303,67.6808 -101.9335,67.6809 -102.007,67.6498 -102.038,67.6389 -102.1265,67.6583 -102.1797,67.6762 -102.2329,67.6938 -102.2571,67.7004 -102.2906,67.7057 -102.3221,67.7087 -102.4641,67.7176 -102.5857,67.7342 -102.6149,67.7454 -102.7061,67.8098 -102.733,67.8344 -102.7619,67.8375 -102.7899,67.8279 -102.8905,67.8409 -102.9192,67.8692 -102.9623,67.8753 -102.9902,67.8747 -103.0047,67.8755 -103.0381,67.8795 -103.1511,67.9214 -103.1557,67.9816 -103.125,68.0236 -103.1582,68.0661 -103.1797,68.0757 -103.2044,68.0795 -103.2447,68.0715 -103.2822,68.0553 -103.3039,68.0439 -103.3354,68.0142 -103.3179,67.9868 -103.3329,67.9718 -103.5495,67.9416 -103.5741,67.9383 -103.6255,67.9339 -103.6595,67.9339 -103.6803,67.9373 -103.7167,67.9498 -103.7602,67.9572 -103.7873,67.9563 -103.8468,67.9407 -103.9004,67.9319 -103.9485,67.9305 -103.9891,67.936 -104.1482,67.9471 -104.2383,67.9429 -104.2817,67.9465 -104.3729,67.9968 -104.4489,68.0572 -104.4348,68.0755 -104.3993,68.1044 -104.3838,68.1472 -104.42,68.1595 -104.4677,68.1628 -104.5106,68.1629 -104.5772,68.157 -104.6594,68.1389 -104.6868,68.1388 -104.7121,68.1472 -104.728,68.1668 -104.6473,68.1839 -104.6225,68.1997 -104.6166,68.2258 -104.635,68.2411 -104.6639,68.2524 -104.8051,68.2222 -104.7922,68.1811 -104.8431,68.1719 -104.8798,68.1789 -105.0692,68.2498 -105.1252,68.288 -105.1679,68.3218 -105.1938,68.3195 -105.3028,68.3199 -105.3238,68.3361 -105.3123,68.3587 -105.216,68.3996 -105.1931,68.4043 -105.158,68.3989 -105.1915,68.4408 -105.2761,68.5335 -105.2633,68.6022 -105.2564,68.6354 -105.4929,68.7566 -105.5513,68.784 -105.5806,68.792 -105.8546,68.8304 -105.9231,68.8449 -105.9815,68.8524 -106.0129,68.8456 -106.0331,68.8231 -106.0892,68.8041 -106.4083,68.73 -106.5386,68.7265 -106.5671,68.7255 -106.5935,68.7231 -106.7113,68.6999 -106.734,68.6948 -106.8807,68.6603 -107.0038,68.6308 -107.2039,68.6024 -107.41,68.5775 -107.5763,68.5575 -107.7044,68.5521 -107.9412,68.5386 -108.0224,68.5326 -108.0496,68.5304 -108.0848,68.5234 -108.1156,68.5139 -108.1468,68.494 -108.1747,68.4723 -108.2022,68.4506 -108.301,68.3627 -108.3448,68.3242 -108.3872,68.2973 -108.4109,68.2879 -108.4419,68.2783 -108.4775,68.2695 -108.5158,68.2526 -108.587,68.1788 -108.5324,68.1499 -108.5091,68.1443 -108.4869,68.1443 -108.3379,68.1808 -108.2766,68.2114 -108.256,68.2179 -108.2232,68.221 -108.1708,68.2046 -108.0992,68.1134 -108.105,68.0696 -108.1186,68.0538 -108.1469,68.051 -108.1379,68.0702 -108.1755,68.0753 -108.205,68.0564 -108.1905,68.0334 -108.1669,68.027 -108.1427,68.0257 -108.105,68.03 -108.0734,68.0389 -108.0223,68.0545 -107.9929,68.065 -107.9648,68.0812 -107.9343,68.0858 -107.807,68.0813 -107.6453,68.0843 -107.5992,68.0935 -107.5668,68.0963 -107.4637,68.0872 -107.3981,68.0772 -107.3784,68.0854 -107.5154,68.1299 -107.6036,68.1538 -107.6274,68.1602 -107.6565,68.1779 -107.625,68.2356 -107.595,68.2536 -107.327,68.2608 -107.1064,68.2266 -107.0729,68.2112 -107.0545,68.1929 -107.0285,68.1744 -106.9068,68.196 -106.794,68.2712 -106.5622,68.3231 -106.4165,68.2578 -106.382,68.2209 -106.3654,68.2077 -106.3401,68.2032 -106.3088,68.2096 -106.2668,68.3179 -106.2972,68.3275 -106.338,68.3301 -106.3649,68.3359 -106.3937,68.3522 -106.4021,68.3742 -106.3187,68.424 -106.2856,68.4306 -106.1451,68.4574 -106.0114,68.4786 -105.983,68.4798 -105.8289,68.5127 -105.8106,68.5304 -105.7037,68.5444 -105.6776,68.5472 -105.428,68.5481 -105.5011,68.4862 -105.5193,68.4769 -105.4851,68.4184 -105.4761,68.3919 -105.5034,68.3344 -105.5224,68.3266 -105.5508,68.3257 -105.5702,68.3324 -105.9367,68.2906 -105.9559,68.3009 -105.9865,68.3046 -106.0261,68.3014 -106.2022,68.2632 -106.2349,68.2504 -106.2675,68.1367 -106.2449,68.1272 -106.197,68.12 -106.169,68.1143 -106.1279,68.0984 -106.2032,68.0673 -106.2283,68.0739 -106.245,68.1032 -106.3699,68.1586 -106.3968,68.1601 -106.5773,68.1191 -106.6245,68.0295 -106.7347,68.0268 -106.8944,67.9976 -106.8838,68.0377 -106.9233,68.0407 -107.0014,68.0073 -107.0265,67.9939 -107.0628,67.9781 -107.1016,67.9662 -107.1309,67.9609 -107.1639,67.9584 -107.2253,67.9602 -107.3127,67.9705 -107.353,67.9729 -107.3846,67.9716 -107.4593,67.9571 -107.5033,67.9365 -107.538,67.9135 -107.57,67.9143 -107.6061,67.9223 -107.5789,67.967 -107.5542,67.9703 -107.507,67.968 -107.4734,67.9821 -107.4952,67.9957 -107.6184,68.0183 -107.6447,68.0119 -107.6617,67.9979 -107.6883,67.9052 -107.5857,67.8849 -107.5451,67.8786 -107.4332,67.8539 -107.4497,67.8293 -107.4845,67.8075 -107.5315,67.7942 -107.6301,67.7712 -107.6586,67.7659 -107.7116,67.7618 -107.7671,67.7017 -107.786,67.6758 -107.7892,67.6476 -107.7718,67.6096 -107.7443,67.5903 -107.6662,67.5565 -107.6203,67.5383 -107.5891,67.5284 -107.5495,67.5144 -107.5165,67.4994 -107.4945,67.4872 -107.3553,67.4006 -107.4259,67.2743 -107.3106,67.129 -107.2811,67.1076 -107.2558,67.0936 -107.2183,67.0768 -107.1666,67.0594 -107.0901,67.0422 -107.0808,66.9191 -107.013,66.881 -106.9838,66.86 -106.9354,66.8152 -106.8698,66.7348 -106.9122,66.7377 -106.9339,66.7562 -106.9675,66.7889 -106.9941,66.808 -107.0138,66.8176 -107.1387,66.8746 -107.1589,66.8811 -107.1933,66.8871 -107.2198,66.8806 -107.2053,66.8597 -107.1731,66.8116 -107.2003,66.722 -107.2927,66.7375 -107.3469,66.7511 -107.4142,66.8074 -107.4466,66.8538 -107.4136,66.8602 -107.3751,66.8363 -107.2665,66.8363 -107.2993,66.9306 -107.3621,66.9666 -107.3862,66.9783 -107.4219,66.9901 -107.4442,66.982 -107.4167,66.9395 -107.4674,66.8924 -107.5255,66.8379 -107.4733,66.6715 -107.4293,66.6095 -107.4041,66.5767 -107.3506,66.5357 -107.3451,66.5122 -107.2197,66.4292 -107.1234,66.3776 -107.0174,66.3237 -106.9843,66.2774 -107.0105,66.2651 -107.0359,66.268 -107.0727,66.2847 -107.2142,66.3697 -107.3438,66.445 -107.3815,66.4621 -107.4083,66.478 -107.4277,66.4905 -107.5041,66.5457 -107.5447,66.6026 -107.6031,66.6561 -107.6398,66.6731 -107.664,66.6698 -107.6471,66.6272 -107.6499,66.5827 -107.6737,66.5874 -107.726,66.6436 -107.7197,66.6739 -107.7188,66.6986 -107.764,66.7439 -107.8928,66.8443 -107.936,66.8736 -107.9747,66.8874 -108.0061,66.892 -108.036,66.8929 -108.067,66.8952 -108.1015,66.9006 -108.1288,66.9139 -108.1694,66.9438 -108.2259,66.9816 -108.2592,66.9827 -108.2641,66.9588 -108.2949,66.9519 -108.3974,67.0669 -108.3654,67.067 -108.3247,67.0496 -108.2937,67.0287 -108.2714,67.0173 -108.2319,66.9999 -108.0163,66.9358 -107.979,66.9368 -107.9688,66.9594 -107.9301,66.9895 -107.8062,66.9959 -107.786,66.9923 -107.7279,66.977 -107.6772,66.9636 -107.6559,66.9657 -107.6525,67.0555 -107.7198,67.1488 -107.7625,67.1865 -107.7974,67.2092 -107.8403,67.2197 -107.9105,67.2438 -108.0727,67.3102 -108.0899,67.3344 -108.1149,67.3509 -108.1596,67.3588 -108.2126,67.3438 -108.2124,67.3023 -108.204,67.2756 -108.2335,67.2618 -108.2471,67.2612 -108.2681,67.2715 -108.2957,67.3695 -108.2887,67.404 -108.3564,67.5216 -108.3895,67.537 -108.4369,67.5424 -108.4751,67.5389 -108.4965,67.5278 -108.5117,67.5141 -108.511,67.4753 -108.5105,67.3982 -108.5173,67.3655 -108.5363,67.3187 -108.576,67.2701 -108.603,67.2661 -108.6245,67.3031 -108.768,67.3542 -108.7922,67.3768 -108.791,67.405 -108.7726,67.415 -108.7325,67.4243 -108.6943,67.4469 -108.7819,67.5834 -108.8356,67.6259 -108.9318,67.641 -108.9829,67.6458 -109.0262,67.6457 -109.1424,67.643 -109.2674,67.6127 -109.289,67.6025 -109.3154,67.6005 -109.5029,67.6323 -109.517,67.6497 -109.5003,67.6813 -109.5021,67.7057 -109.538,67.7411 -109.5875,67.7767 -109.6325,67.7883 -109.6606,67.7933 -109.7184,67.7936 -109.6851,67.7617 -109.7014,67.7472 -109.7262,67.7437 -109.7559,67.7542 -109.7728,67.7816 -109.7617,67.8049 -109.744,67.8338 -109.7415,67.8684 -109.7707,67.8928 -109.8183,67.9108 -109.847,67.9186 -109.8931,67.9215 -109.9266,67.9172 -109.9455,67.91 -109.9686,67.8856 -110.1093,67.8787 -110.1836,67.8609 -110.5061,67.7762 -110.5275,67.7661 -110.5546,67.7501 -110.5787,67.7323 -110.6052,67.7159 -110.7808,67.6778 -110.803,67.6778 -110.889,67.6946 -110.9175,67.7441 -110.9439,67.751 -110.9681,67.7475 -111.0588,67.729 -111.0853,67.7223 -111.1387,67.6948 -111.2263,67.6767 -111.3402,67.6583 -111.4274,67.6472 -111.5668,67.6645 -111.6499,67.6681 -111.6796,67.6679 -111.9496,67.6414 -112.109,67.6043 -112.1361,67.5959 -112.1619,67.5931 -112.505,67.5833 -112.7299,67.5837 -112.8146,67.58 -112.8325,67.5812 -112.8779,67.5904 -112.9201,67.606 -112.9425,67.6116 -112.9713,67.6164 -113.0125,67.6181 -113.3145,67.6116 -113.472,67.6056 -113.5318,67.605 -113.6087,67.6053 -113.6554,67.6107 -113.7122,67.6252 -113.7527,67.6354 -113.8768,67.6476 -113.9104,67.6508 -113.9503,67.6514 -113.9821,67.6476 -114.0077,67.6401 -114.0396,67.6321 -114.0597,67.6325 -114.4094,67.697 -114.4426,67.7162 -114.4739,67.7254 -114.5059,67.7284 -114.5435,67.7281 -114.5703,67.7259 -114.6094,67.7215 -114.6469,67.7165 -114.6964,67.7091 -114.766,67.7005 -114.7888,67.7004 -114.8687,67.7111 -114.9551,67.7337 -115.0382,67.7773 -115.2812,67.8074 -115.2942,67.8344 -115.2618,67.8479 -115.1008,67.8714 -114.9696,67.8903 -114.8797,67.9282 -114.9227,67.9346 -114.9711,67.936 -114.9994,67.951 -114.9901,68.0946 -114.9286,68.0935 -114.8351,68.0817 -114.7661,68.0702 -114.736,68.0661 -114.6885,68.0606 -114.6551,68.0599 -114.6255,68.0652 -114.519,68.1006 -114.4614,68.1628 -114.2326,68.1764 -114.193,68.1755 -114.171,68.172 -114.1399,68.1596 -114.1045,68.1448 -114.0797,68.1417 -114.0478,68.1418 -113.7814,68.1568 -113.8257,68.3818 -113.8476,68.4086 -113.8727,68.4257 -113.9918,68.4816 -114.0623,68.499 -114.1575,68.525 -114.2185,68.5742 -114.2016,68.5997 -114.2994,68.6314 -114.3352,68.6399 -114.4222,68.6535 -114.4624,68.6533 -114.4857,68.656 -114.5054,68.6632 -114.531,68.6859 -114.5478,68.711 -114.5775,68.7212 -114.7391,68.7724 -114.7808,68.7799 -114.8127,68.7797 -115.2001,68.8491 -115.3464,68.8829 -115.5859,68.9037 -115.5626,68.8634 -115.5275,68.85 -115.6287,68.8351 -115.7209,68.8499 -115.7602,68.8577 -115.8212,68.8717 -115.9495,68.8952 -115.9915,68.8966 -116.0134,68.8911 -116.0715,68.8678 -115.8746,68.7841 -115.7005,68.7258 -115.7135,68.7163 -115.7471,68.7182 -115.8676,68.7292 -115.9752,68.7474 -116.0381,68.7714 -116.0927,68.7866 -116.1254,68.7931 -116.1585,68.7851 -116.1803,68.7703 -116.2596,68.7692 -116.4959,68.7919 -116.6376,68.8204 -116.69,68.8223 -116.7218,68.8139 -116.8959,68.797 -116.9414,68.8053 -117.0191,68.8267 -117.1654,68.8651 -117.3118,68.8799 -117.3454,68.8831 -117.3828,68.885 -117.491,68.8895 -117.5856,68.8939 -117.6189,68.8969 -117.7584,68.9256 -117.7833,68.9311 -117.8296,68.9427 -117.9335,68.9748 -118.1791,69.0232 -118.2044,69.0286 -118.2403,69.0418 -118.2924,69.0701 -118.3275,69.0911 -118.3937,69.1239 -118.439,69.1345 -118.5452,69.1541 -118.5932,69.1623 -118.6857,69.1701 -118.9738,69.205 -119.0691,69.2122 -119.2049,69.214 -119.3782,69.2264 -119.6685,69.2494 -119.7241,69.2553 -119.9731,69.3022 -120.0162,69.3146 -120.1342,69.3502 -120.356,69.4305 -120.4181,69.4564 -120.4405,69.4689 -120.4752,69.4918 -120.4996,69.5083 -120.5353,69.5232 -120.5645,69.5335 -120.6197,69.549 -120.6725,69.5585 -120.7471,69.5684 -120.7738,69.5733 -120.8244,69.5837 -120.8579,69.5926 -120.9206,69.6122 -121.0231,69.639 -121.0703,69.6504 -121.1176,69.6621 -121.1533,69.6704 -121.1795,69.6754 -121.4199,69.7033 -121.4552,69.7055 -121.6318,69.715 -121.7882,69.7232 -121.8627,69.712 -121.9779,69.7119 -122.2021,69.7123 -122.3222,69.7171 -122.3494,69.722 -122.3981,69.7276 -122.4843,69.7115 -122.5068,69.7053 -122.5341,69.7031 -122.5592,69.7062 -122.5872,69.7128 -122.6101,69.7199 -122.6381,69.7317 -122.6942,69.7417 -122.7487,69.728 -122.8383,69.6889 -122.8427,69.6562 -122.8299,69.5885 -122.8632,69.4757 -122.9002,69.4085 -122.9206,69.4018 -122.9978,69.4127 -123.0352,69.4168 -123.0738,69.4125 -123.0991,69.4084 -123.1338,69.4006 -123.1731,69.3773 -123.1847,69.3601 -123.1706,69.3357 -123.1475,69.3207 -123.2062,69.2928 -123.2372,69.2876 -123.4074,69.2643 -123.4317,69.2745 -123.4642,69.2881 -123.5576,69.2992 -123.6956,69.2937 -123.7497,69.2896 -123.8284,69.2655 -123.8533,69.262 -123.895,69.2599 -123.952,69.2582 -123.9964,69.2591 -124.0585,69.2624 -124.1791,69.2776 -124.2085,69.2866 -124.2483,69.3124 -124.1269,69.397 -124.1096,69.4072 -124.0661,69.4272 -124.012,69.4438 -123.9769,69.458 -123.9436,69.4963 -123.7866,69.5803 -123.7724,69.6112 -123.8011,69.6335 -123.9348,69.6382 -123.9695,69.6268 -124.0058,69.6068 -124.026,69.6052 -124.0922,69.611 -124.1897,69.6208 -124.2268,69.6337 -124.2316,69.6943 -124.2096,69.7132 -124.1797,69.736 -124.1593,69.7591 -124.1885,69.8656 -124.1509,69.896 -124.101,69.9382 -124.0841,69.9773 -124.1151,70.0427 -124.1598,70.0593 -124.4189,70.0555 -124.4687,70.0328 -124.452,69.9988 -124.405,70.003 -124.3498,70.0137 -124.3159,70.0232 -124.2726,70.0186 -124.2374,70.0104 -124.17,69.9867 -124.1496,69.9653 -124.1804,69.9468 -124.29,69.9213 -124.3249,69.9258 -124.3648,69.9763 -124.3998,69.9808 -124.4389,69.9779 -124.5388,69.9704 -124.6595,69.9533 -124.6737,69.938 -124.5893,69.9383 -124.6281,69.9303 -124.7616,69.928 -124.7206,69.9471 -124.7031,69.9705 -124.7184,69.9878 -124.7405,69.9848 -124.9246,69.9118 -124.9357,69.8458 -124.8402,69.8551 -124.8139,69.8777 -124.7743,69.8994 -124.7529,69.9074 -124.7176,69.9152 -124.6143,69.9209 -124.5541,69.9216 -124.5228,69.9182 -124.4929,69.88 -124.6215,69.8498 -124.672,69.8231 -124.7379,69.755 -124.7609,69.727 -124.7855,69.705 -124.8926,69.7083 -124.8854,69.7306 -124.8929,69.7613 -124.9263,69.7614 -124.9534,69.7494 -125.0044,69.7177 -124.987,69.6938 -124.963,69.6695 -124.7431,69.6603 -124.6209,69.6589 -124.5911,69.6455 -124.5555,69.6268 -124.6113,69.5804 -124.6362,69.564 -124.6546,69.5546 -124.6653,69.5883 -124.7032,69.6395 -124.7374,69.6493 -124.7787,69.6528 -124.8012,69.6529 -125.0922,69.599 -125.1408,69.5458 -124.9901,69.4352 -124.9461,69.4232 -124.9156,69.4175 -124.8625,69.3985 -125.0369,69.4104 -125.1868,69.4227 -125.212,69.419 -125.3073,69.3819 -125.3464,69.3312 -125.2602,69.3455 -125.1925,69.3629 -124.8484,69.3764 -124.8201,69.3601 -124.8425,69.3262 -124.862,69.3034 -124.8962,69.2921 -124.9408,69.2924 -125.1078,69.3064 -125.1261,69.283 -125.0994,69.2497 -125.1513,69.2233 -125.2814,69.2478 -125.5689,69.2995 -125.614,69.3097 -125.6395,69.3161 -125.6916,69.3315 -125.7177,69.3409 -125.7652,69.3599 -125.7782,69.3631 -125.8169,69.3728 -125.8406,69.3797 -125.9891,69.4426 -126.0178,69.4687 -126.1861,69.554 -126.3276,69.6224 -126.3464,69.6299 -126.402,69.6558 -126.4303,69.6757 -126.4687,69.7236 -126.5332,69.8112 -126.6092,69.914 -126.7521,70.0574 -126.7725,70.0864 -126.7936,70.1046 -126.8419,70.1454 -126.8973,70.1845 -126.965,70.2222 -126.9904,70.234 -127.1434,70.3012 -127.2302,70.3337 -127.3938,70.3936 -127.5482,70.4484 -127.6161,70.4698 -127.6834,70.4913 -127.7135,70.4972 -127.8479,70.4307 -127.8687,70.405 -127.89,70.3685 -127.9035,70.3445 -127.9108,70.3049 -127.8657,70.2898 -127.7785,70.2853 -127.7354,70.2827 -127.6959,70.2939 -127.6679,70.3019 -127.6458,70.3048 -127.6226,70.303 -127.6618,70.2606 -127.6949,70.2536 -127.7409,70.2487 -127.7639,70.2531 -127.7856,70.2546 -127.781,70.2153 -127.7469,70.1965 -127.5822,70.172 -127.5071,70.168 -127.4396,70.1686 -127.3288,70.1558 -127.2937,70.1511 -127.2667,70.1445 -127.2324,70.132 -127.266,70.1349 -127.3011,70.1376 -127.3307,70.137 -127.564,70.1171 -127.6838,70.0911 -127.7181,70.0873 -127.7721,70.0863 -127.8169,70.0907 -127.9592,70.0546 -128.0259,70.0355 -128.0582,70.0255 -128.0784,70.0133 -128.0748,69.9603 -128.0301,69.9194 -128.0378,69.8628 -128.1626,69.8314 -128.2654,69.7947 -128.3605,69.7525 -128.5067,69.6704 -128.6461,69.5908 -128.691,69.585 -128.8506,69.598 -128.8717,69.6105 -128.8842,69.7391 -128.8591,69.7514 -128.8294,69.7572 -128.8022,69.7601 -128.7579,69.7616 -128.6839,69.7528 -128.6606,69.7526 -128.5769,69.8665 -128.6133,69.8796 -128.6601,69.8792 -128.6887,69.8694 -128.7138,69.8489 -128.7404,69.8114 -128.77,69.7883 -128.819,69.7685 -128.8682,69.7596 -128.8995,69.7586 -128.9621,69.7595 -129.0346,69.7561 -129.1322,69.7478 -129.3207,69.7283 -129.3427,69.722 -129.3717,69.7102 -129.3913,69.7022 -129.4105,69.6941 -129.7512,69.6419 -129.999,69.6101 -130.0821,69.5899 -130.107,69.5587 -130.1967,69.4847 -130.2344,69.4582 -130.4334,69.3724 -130.4661,69.3595 -130.3766,69.3669 -130.3763,69.3432 -130.4138,69.3148 -130.4419,69.3132 -130.4847,69.3108 -130.5357,69.2878 -130.6626,69.1781 -130.658,69.143 -130.6482,69.0563 -130.6568,69.0455 -130.7269,69.0479 -130.7439,69.1206 -130.7196,69.1675 -130.6824,69.196 -130.6548,69.2131 -130.6292,69.2343 -130.6195,69.2573 -130.6211,69.2917 -130.6407,69.2958 -130.6753,69.2824 -130.7252,69.2393 -130.7424,69.2201 -130.7486,69.2532 -130.7041,69.2935 -130.6625,69.3265 -130.6422,69.3591 -130.6638,69.4451 -130.7027,69.4518 -130.7092,69.413 -130.7079,69.3595 -130.7447,69.2944 -130.769,69.2651 -130.8241,69.237 -130.7884,69.2781 -130.7533,69.3366 -130.7456,69.3742 -130.7476,69.3961 -130.7632,69.4346 -130.8094,69.5171 -130.8474,69.5246 -130.8975,69.5132 -130.9105,69.492 -130.8735,69.4747 -130.8446,69.4645 -130.8261,69.4538 -130.8065,69.4421 -130.7811,69.4228 -130.7836,69.4013 -130.7784,69.3811 -130.8029,69.351 -130.819,69.3044 -130.8527,69.2753 -130.8661,69.3141 -130.8479,69.3398 -130.8279,69.3957 -130.8472,69.4266 -130.8674,69.4289 -130.9237,69.4673 -130.9422,69.491 -130.9703,69.4821 -130.9478,69.4539 -130.8804,69.4034 -130.884,69.3155 -130.909,69.2775 -131.0479,69.2288 -131.1326,69.2097 -131.1169,69.227 -131.0356,69.2693 -130.9842,69.2862 -130.9547,69.294 -130.9293,69.3072 -130.9292,69.3277 -130.9366,69.3611 -130.9565,69.4016 -130.9813,69.4116 -131.0386,69.4037 -131.0945,69.3379 -131.1073,69.3147 -131.1295,69.2794 -131.217,69.2429 -131.2476,69.2421 -131.1977,69.3168 -131.1742,69.3292 -131.1497,69.3434 -131.1689,69.358 -131.3157,69.3822 -131.3621,69.3829 -131.6805,69.3102 -131.5232,69.302 -131.4435,69.3106 -131.5132,69.2336 -131.5869,69.1919 -131.6808,69.1675 -131.713,69.1625 -131.7746,69.153 -131.8337,69.1528 -131.8847,69.1246 -131.9395,69.0528 -131.9403,69.1244 -132.0297,69.145 -132.0551,69.1312 -132.0816,69.0759 -132.0985,69.0532 -132.1245,69.0356 -132.1451,69.0287 -132.1798,69.0257 -132.257,69.0464 -132.3891,68.9955 -132.4788,68.9962 -132.5263,68.9991 -132.584,68.9751 -132.5845,68.9327 -132.5763,68.9004 -132.5505,68.8293 -132.4902,68.7712 -132.4112,68.7522 -132.3894,68.7528 -132.2732,68.7899 -132.2582,68.8077 -132.2855,68.8183 -132.2159,68.8195 -132.1161,68.7693 -132.1964,68.7163 -132.4714,68.7143 -132.5036,68.73 -132.5789,68.7558 -132.6537,68.7666 -132.6757,68.7587 -132.7225,68.7267 -132.7792,68.7144 -132.8087,68.7139 -132.8319,68.716 -132.8745,68.7389 -132.9047,68.7606 -132.9462,68.7713 -132.988,68.7696 -133.049,68.7554 -133.0703,68.7439 -133.0713,68.7136 -133.047,68.7003 -133.01,68.7032 -132.9595,68.7084 -132.9284,68.7024 -132.8641,68.6732 -132.92,68.6759 -132.9378,68.6863 -132.959,68.6986 -132.9806,68.6938 -132.9741,68.6726 -132.865,68.6315 -132.8301,68.6267 -132.7583,68.6265 -132.7324,68.6316 -132.6665,68.6259 -132.645,68.6144 -132.6365,68.6023 -132.6688,68.6093 -132.706,68.6095 -132.7349,68.6042 -132.7635,68.6029 -132.8078,68.6069 -132.8816,68.6189 -133.0384,68.658 -133.122,68.6839 -133.1756,68.7032 -133.1937,68.716 -133.208,68.7357 -133.2008,68.7616 -133.1794,68.8021 -133.1048,68.8217 -133.0804,68.8136 -133.1113,68.7942 -133.0863,68.7794 -133.0579,68.7772 -133.0346,68.7816 -132.9461,68.8226 -132.9291,68.8493 -132.9159,68.8925 -132.9298,68.9104 -132.9169,68.9414 -132.8933,68.9531 -132.8218,68.9617 -132.7666,68.9658 -132.6623,68.9487 -132.6213,68.954 -132.623,69.0328 -132.4794,69.1625 -132.4547,69.1715 -132.4273,69.1782 -132.3015,69.1981 -132.2689,69.1951 -132.2436,69.1898 -132.0447,69.2251 -131.8325,69.2679 -131.8029,69.289 -131.845,69.3146 -131.7954,69.3913 -131.758,69.4162 -131.7171,69.4394 -131.464,69.4775 -131.4366,69.4754 -131.4141,69.466 -131.3029,69.4777 -131.1238,69.4967 -131.0448,69.4901 -130.9049,69.534 -130.8799,69.5377 -130.7695,69.5472 -130.7539,69.5137 -130.6618,69.4755 -130.6411,69.4752 -130.5579,69.5128 -130.554,69.5212 -130.5564,69.5333 -130.502,69.5846 -130.4744,69.5925 -130.421,69.598 -130.3643,69.6013 -130.3386,69.6053 -130.2955,69.618 -130.2812,69.6336 -130.2128,69.6912 -129.9454,69.75 -129.7104,69.8021 -129.6071,69.8265 -129.313,69.9007 -129.2914,69.9069 -129.2142,69.9295 -129.1483,69.9768 -129.1206,70.0118 -129.1716,70.056 -129.3209,70.1214 -129.3584,70.1599 -129.3934,70.1735 -129.4422,70.1612 -129.5011,70.1282 -129.5437,70.104 -129.5578,70.0633 -129.5761,70.0352 -129.603,70.0013 -129.6389,69.9872 -129.6822,69.9794 -129.8899,69.9623 -130.0376,70.0147 -130.0644,70.0407 -130.1175,70.0489 -130.1429,70.0342 -130.204,70.0114 -130.2404,70.014 -130.2563,70.0277 -130.2269,70.0688 -130.1895,70.0764 -130.2583,70.0753 -130.3663,70.0171 -130.4591,69.9907 -130.6018,70.0076 -130.6405,69.9916 -130.7293,69.9347 -130.7247,69.8963 -130.7463,69.8587 -130.7927,69.798 -130.906,69.7346 -130.9299,69.7482 -130.9286,69.7722 -130.9186,69.7972 -130.9504,69.8353 -130.9835,69.8472 -131.0629,69.8619 -131.1309,69.8635 -131.1617,69.8282 -131.3377,69.7808 -131.3589,69.7747 -131.4746,69.734 -131.475,69.713 -131.5542,69.6768 -131.5808,69.6734 -131.6683,69.6644 -131.7971,69.6383 -131.8272,69.63 -131.8609,69.5951 -131.877,69.5952 -131.9196,69.5992 -132.0026,69.6347 -132.1128,69.6616 -132.1861,69.6574 -132.2486,69.65 -132.2955,69.5974 -132.2647,69.5943 -132.231,69.5934 -132.1717,69.6123 -132.0483,69.5826 -132.0865,69.5571 -132.1075,69.5504 -132.1312,69.5457 -132.2573,69.5407 -132.3308,69.5543 -132.3753,69.5613 -132.5006,69.5698 -132.5337,69.5704 -132.5771,69.5683 -132.6063,69.5638 -132.6258,69.5563 -132.6967,69.5089 -132.6695,69.4812 -132.6795,69.422 -132.7127,69.3923 -132.7866,69.3454 -132.9191,69.3093 -132.9393,69.3072 -133.032,69.3141 -133.077,69.3214 -133.1207,69.3253 -133.2633,69.3163 -133.3767,69.2982 -133.5844,69.2338 -133.604,69.204 -133.6412,69.193 -133.7415,69.1777 -133.7742,69.174 -133.8475,69.1726 -133.8705,69.1674 -133.9313,69.1305 -133.9353,69.0939 -134.06,69.0154 -134.1681,69.017 -134.2041,69.0153 -134.2496,69.0048 -134.2707,68.9962 -134.3395,68.9218 -134.3318,68.8994 -134.2712,68.8446 -134.255,68.8313 -134.137,68.7432 -134.032,68.6814 -134.0051,68.6634 -134.0655,68.6765 -134.0904,68.6825 -134.1224,68.6925 -134.15,68.7091 -134.1663,68.731 -134.1832,68.7607 -134.2022,68.7818 -134.2241,68.7966 -134.3104,68.843 -134.3783,68.8704 -134.3826,68.884 -134.3871,68.9242 -134.2889,69.0133 -134.2432,69.0236 -134.1894,69.029 -134.1613,69.0309 -134.103,69.0289 -133.9915,69.0956 -133.9902,69.1292 -133.9268,69.1841 -133.7974,69.2512 -133.6763,69.3106 -133.6531,69.3155 -133.6326,69.3228 -133.5885,69.3433 -133.5621,69.356 -133.5296,69.3743 -133.5101,69.3914 -133.4609,69.4549 -133.4962,69.4866 -133.528,69.4737 -133.5828,69.4262 -133.6295,69.4185 -133.6653,69.418 -133.6885,69.4388 -133.7155,69.4642 -133.7395,69.4699 -133.7724,69.4659 -133.8006,69.4545 -133.8237,69.449 -133.9529,69.4868 -133.9101,69.5287 -133.8872,69.5502 -133.9133,69.5789 -134.0188,69.6255 -134.1954,69.6217 -134.1516,69.5906 -134.1125,69.5552 -134.1786,69.4529 -134.1526,69.4198 -134.1202,69.3969 -134.1276,69.376 -134.1486,69.365 -134.1855,69.3541 -134.2063,69.3522 -134.2412,69.356 -134.2752,69.3626 -134.3186,69.379 -134.3452,69.386 -134.3958,69.3914 -134.6245,69.3955 -134.7055,69.3944 -134.8614,69.3859 -134.9922,69.3308 -134.9492,69.2424 -134.8737,69.1868 -134.886,69.1702 -134.9467,69.1779 -134.9675,69.182 -135.0328,69.1959 -135.0914,69.2139 -135.1222,69.2336 -135.1576,69.2428 -135.1946,69.2458 -135.2726,69.2493 -135.5066,69.2285 -135.5527,69.2095 -135.559,69.1821 -135.5194,69.1537 -135.3448,69.0643 -135.3169,69.0561 -135.2014,69.0297 -135.2702,69.0283 -135.3711,69.0564 -135.4557,69.0887 -135.5304,69.1262 -135.6035,69.1643 -135.629,69.1669 -135.6616,69.1446 -135.675,69.1171 -135.6604,69.0537 -135.6326,69.0019 -135.4308,68.9574 -135.2353,68.9343 -135.2892,68.9173 -135.3452,68.9042 -135.3595,68.903 -135.4804,68.9004 -135.5128,68.9005 -135.5415,68.907 -135.56,68.9187 -135.5984,68.9373 -135.6712,68.9561 -135.695,68.9451 -135.7098,68.8571 -135.6582,68.8361 -135.6161,68.8228 -135.5931,68.8168 -135.554,68.8088 -135.5189,68.8068 -135.4799,68.8079 -135.1621,68.8493 -135.1326,68.8401 -135.1032,68.8382 -135.0725,68.8382 -134.9743,68.845 -134.945,68.8461 -134.9133,68.8442 -134.8863,68.8276 -134.8462,68.8117 -134.7162,68.8036 -134.6805,68.8035 -134.6428,68.818 -134.6308,68.8568 -134.6132,68.8814 -134.5652,68.8876 -134.538,68.89 -134.4957,68.8765 -134.4736,68.8603 -134.4543,68.8467 -134.3827,68.8058 -134.2505,68.6986 -134.1742,68.6334 -134.1509,68.6255 -134.1034,68.6191 -134.072,68.6147 -133.9831,68.6078 -133.9402,68.6094 -133.998,68.5934 -134.023,68.5899 -134.0551,68.5909 -134.089,68.5943 -134.1159,68.5997 -134.1612,68.612 -134.184,68.6211 -134.203,68.647 -134.3551,68.768 -134.3828,68.7849 -134.4219,68.8042 -134.4588,68.8191 -134.523,68.8358 -134.5644,68.8401 -134.5988,68.8282 -134.6299,68.8095 -134.6638,68.7927 -134.69,68.7896 -134.8341,68.8049 -134.9027,68.8152 -134.9238,68.8316 -134.9464,68.8376 -135.0475,68.829 -135.3286,68.798 -135.311,68.7828 -135.272,68.7718 -135.2397,68.7677 -135.2063,68.7663 -135.1335,68.7603 -135.057,68.7473 -135.117,68.7436 -135.1579,68.7482 -135.2069,68.749 -135.1939,68.721 -135.0563,68.6494 -134.9668,68.6187 -134.9276,68.6049 -134.8603,68.5732 -134.8735,68.569 -134.9239,68.5733 -135.0783,68.5877 -135.1197,68.592 -135.1663,68.6211 -135.2007,68.645 -135.2319,68.6577 -135.2528,68.6642 -135.5429,68.7435 -135.5699,68.7505 -135.6971,68.7763 -135.7381,68.7847 -135.8073,68.7936 -135.8549,68.7973 -135.9658,68.8007 -136.0683,68.8053 -136.1026,68.8088 -136.13,68.8129 -136.1866,68.8221 -136.2246,68.8211 -136.3291,68.8033 -136.3517,68.793 -136.3714,68.7883 -136.369,68.4922 24,-2.0,Greenland -55.3901,71.8324 -55.3499,71.8212 -55.2881,71.803 -55.2831,71.7914 -55.2953,71.7822 -55.315,71.7714 -55.3856,71.734 -55.3964,71.7289 -55.4106,71.7262 -55.429,71.724 -55.4731,71.7223 -55.538,71.7275 -55.5565,71.7303 -55.5806,71.7367 -55.6022,71.7447 -55.6654,71.7785 -55.67,71.7906 -55.6251,71.8057 -55.5919,71.8118 -55.557,71.8174 -55.4355,71.8348 -55.4177,71.8354 -55.3901,71.8324 -55.3901,71.8324 20,-6.0,Canada -95.074,71.6685 -95.0877,71.6422 -95.1019,71.6376 -95.1173,71.6362 -95.1752,71.6344 -95.2128,71.6349 -95.2481,71.6383 -95.2636,71.6472 -95.2267,71.7234 -95.2168,71.7288 -95.1972,71.7335 -95.1607,71.7409 -95.1254,71.7451 -95.1051,71.7469 -95.0784,71.7486 -95.0633,71.7478 -95.0523,71.7448 -95.0383,71.7358 -95.074,71.6685 -95.074,71.6685 17,10.0,Russia 138.1465,71.5585 138.1269,71.5607 138.1106,71.5651 138.0511,71.5879 138.1881,71.6129 138.2072,71.6143 138.3056,71.6112 138.3453,71.6068 138.3855,71.5975 138.3981,71.5912 138.3793,71.5851 138.3598,71.5812 138.3403,71.5782 138.3017,71.5734 138.2048,71.5635 138.1465,71.5585 138.1465,71.5585 28,-5.0,Canada -73.0425,71.6037 -73.0197,71.6022 -72.9968,71.5972 -72.9805,71.5839 -73.0,71.5733 -73.0506,71.5651 -73.0787,71.5576 -73.0917,71.5529 -73.112,71.543 -73.1331,71.5269 -73.1521,71.5075 -73.1613,71.4934 -73.1687,71.4734 -73.182,71.4629 -73.2,71.4598 -73.2238,71.4597 -73.2361,71.4615 -73.2478,71.4662 -73.2581,71.4721 -73.2663,71.4784 -73.2792,71.4921 -73.2743,71.5015 -73.2176,71.5393 -73.1773,71.5634 -73.1051,71.5968 -73.0725,71.6015 -73.0425,71.6037 -73.0425,71.6037 28,-2.0,Greenland -53.0943,71.4316 -53.1177,71.4329 -53.2816,71.4508 -53.311,71.4576 -53.3261,71.4702 -53.3419,71.5088 -53.347,71.5619 -53.3082,71.5715 -53.2672,71.5744 -53.2235,71.5748 -53.1615,71.5751 -53.1245,71.574 -53.0099,71.5668 -52.7658,71.5585 -52.7438,71.559 -52.7031,71.5613 -52.65,71.5668 -52.6343,71.5625 -52.6764,71.5399 -52.7107,71.525 -52.7523,71.5152 -52.8255,71.5007 -52.9765,71.4526 -52.9907,71.4438 -53.0053,71.4406 -53.0527,71.433 -53.0943,71.4316 -53.0943,71.4316 30,-5.0,Canada -72.7547,71.5544 -72.6369,71.564 -72.6116,71.5658 -72.5757,71.5648 -72.5572,71.5635 -72.5396,71.5601 -72.5264,71.556 -72.515,71.548 -72.4924,71.5064 -72.5022,71.4908 -72.5135,71.4801 -72.5324,71.4627 -72.5469,71.4501 -72.5585,71.4437 -72.5738,71.4396 -72.592,71.4374 -72.6174,71.4357 -72.6617,71.4366 -72.6798,71.4375 -72.6983,71.4393 -72.7806,71.4523 -72.8131,71.4589 -72.8394,71.4662 -72.851,71.4711 -72.8632,71.479 -72.8666,71.4932 -72.7983,71.5419 -72.7785,71.5499 -72.7547,71.5544 -72.7547,71.5544 68,12.0,Russia -179.5889,70.9036 -179.582,71.4413 -179.5098,71.4407 -179.4831,71.4541 -179.2112,71.4822 -179.0855,71.4714 -178.8892,71.4568 -178.8062,71.47 -178.7794,71.4864 -178.6278,71.5025 -178.3331,71.4854 -178.1541,71.4695 -178.0154,71.4463 -177.981,71.4404 -177.9254,71.4282 -177.9097,71.4155 -177.8253,71.3827 -177.7949,71.3807 -177.7702,71.3813 -177.7493,71.3843 -177.7199,71.3841 -177.6497,71.3678 -177.5997,71.3526 -177.5813,71.3314 -177.551,71.3016 -177.4234,71.2519 -177.3409,71.225 -177.2855,71.2071 -177.2205,71.1884 -177.1926,71.1854 -177.169,71.1876 -177.1483,71.1905 -177.0947,71.1833 -177.0528,71.1548 -177.034,71.1353 -177.0815,71.0803 -177.1069,71.067 -177.2206,71.0205 -177.3044,70.9994 -177.5243,70.9457 -177.5823,70.9399 -177.6309,70.9388 -177.6709,70.9413 -177.7152,70.9421 -177.7639,70.9406 -177.8165,70.9371 -177.837,70.9342 -177.8907,70.9232 -177.9508,70.9141 -178.0561,70.9072 -178.1071,70.9044 -178.2039,70.9018 -178.3356,70.8928 -178.4113,70.8867 -178.4574,70.8817 -178.4774,70.8783 -178.5445,70.8633 -178.6244,70.8505 -178.8437,70.8174 -178.8669,70.8146 -178.9172,70.8119 -179.0871,70.8204 -179.1696,70.8415 -179.3355,70.8713 -179.5196,70.9036 -179.5618,70.9051 -179.5889,70.9036 -179.5889,70.9036 44,10.0,Russia 137.6452,71.4132 137.6416,71.4084 137.6019,71.3918 137.4869,71.3449 137.4723,71.3395 137.3779,71.3201 137.3592,71.3171 137.2786,71.3348 137.2497,71.3466 137.2217,71.3678 137.2104,71.377 137.1941,71.3818 137.0009,71.3997 136.9619,71.3991 136.9519,71.3906 137.0175,71.3693 137.0375,71.3645 137.0571,71.3637 137.0765,71.3641 137.0886,71.3592 137.0729,71.3382 137.0542,71.3327 137.0345,71.3325 137.0152,71.3334 136.9954,71.3355 136.8098,71.3796 136.7892,71.3858 136.6756,71.4238 136.6912,71.4335 136.7104,71.4374 136.9138,71.4789 136.9523,71.4843 136.9711,71.486 137.1074,71.4906 137.4109,71.4995 137.4303,71.4995 137.5099,71.4881 137.5299,71.485 137.5701,71.4756 137.583,71.4692 137.5913,71.4633 137.6266,71.433 137.6452,71.4132 137.6452,71.4132 48,-5.0,Canada -72.8924,71.2007 -72.921,71.2196 -72.9946,71.2381 -73.0299,71.2423 -73.0762,71.2546 -73.1029,71.2683 -73.1072,71.2849 -73.0959,71.3019 -73.0857,71.3178 -73.1277,71.3626 -73.1508,71.375 -73.1777,71.3832 -73.1925,71.3864 -73.2041,71.3913 -73.2085,71.4266 -73.1967,71.4327 -73.0199,71.4706 -73.007,71.4715 -72.9775,71.4695 -72.9622,71.4667 -72.9204,71.4517 -72.9066,71.4409 -72.9474,71.3881 -72.9603,71.3563 -72.9084,71.3717 -72.8702,71.387 -72.847,71.4054 -72.8325,71.4197 -72.8161,71.4267 -72.7979,71.4259 -72.7651,71.4144 -72.6552,71.3579 -72.6519,71.348 -72.6633,71.3414 -72.6813,71.3384 -72.704,71.3362 -72.753,71.3339 -72.8241,71.325 -72.841,71.321 -72.859,71.3096 -72.8392,71.258 -72.8084,71.2332 -72.8044,71.2213 -72.8156,71.2146 -72.8286,71.2099 -72.8571,71.2034 -72.8924,71.2007 -72.8924,71.2007 67,12.0,Russia 179.5823,71.4412 179.5892,70.9036 179.5672,70.9022 179.5475,70.8988 179.4949,70.8875 179.3963,70.8639 179.383,70.8596 179.3727,70.8435 179.3394,70.8249 179.316,70.8149 179.3032,70.8104 179.2705,70.8024 179.1108,70.7839 179.0349,70.7789 178.9988,70.7831 178.9844,70.7875 178.9724,70.7927 178.9562,70.7963 178.9381,70.7984 178.8918,70.7977 178.8657,70.7952 178.6893,70.7741 178.6502,70.7678 178.5789,70.7529 178.5142,70.7369 178.4851,70.7283 178.4459,70.714 178.4299,70.7104 178.4103,70.7066 178.3865,70.7032 178.3787,70.7123 178.3786,70.7415 178.343,70.7991 178.2967,70.8412 178.2408,70.8955 178.2121,70.9381 178.2117,70.9597 178.2232,70.9757 178.2428,70.9932 178.2654,71.0104 178.4482,71.1162 178.4618,71.1235 178.5478,71.1502 178.5971,71.162 178.683,71.1815 178.7854,71.209 178.7984,71.2137 178.8118,71.2183 178.9685,71.2816 179.048,71.3136 179.0552,71.323 179.1155,71.3438 179.1492,71.3514 179.1891,71.3582 179.2384,71.3603 179.2838,71.3598 179.3052,71.3614 179.3486,71.371 179.4478,71.3969 179.4415,71.4092 179.433,71.4167 179.4434,71.422 179.4772,71.4297 179.5144,71.4368 179.5643,71.4415 179.5823,71.4412 179.5823,71.4412 93,3.0,Russia 52.8805,70.8839 52.8968,70.9027 52.8926,70.9123 52.8401,70.9557 52.6848,71.012 52.6582,71.0588 52.6487,71.0676 52.5244,71.1251 52.5097,71.1297 52.4653,71.1441 52.4507,71.1489 52.4271,71.1508 52.4113,71.1497 52.3941,71.1475 52.3794,71.143 52.3411,71.14 52.273,71.1442 52.249,71.1461 52.2275,71.15 52.2091,71.1539 52.176,71.1628 52.1614,71.1675 52.1353,71.1777 52.1128,71.188 52.0973,71.1993 52.0885,71.2147 52.0908,71.2253 52.0972,71.2331 52.109,71.2398 52.1509,71.2551 52.2922,71.2768 52.3099,71.2792 52.5886,71.3068 52.6315,71.3034 52.6565,71.3002 52.7003,71.2926 52.7367,71.2838 52.7696,71.2751 52.8028,71.2631 52.8749,71.2089 52.8899,71.1977 52.8918,71.1841 52.8811,71.1788 52.8628,71.1831 52.8481,71.1877 52.7857,71.2163 52.773,71.2411 52.696,71.2678 52.6593,71.2762 52.6373,71.2798 52.6212,71.2764 52.662,71.2207 52.677,71.2129 52.6915,71.208 52.8413,71.1683 52.9427,71.1415 52.9645,71.1378 52.9869,71.137 53.006,71.138 53.0221,71.1414 53.0339,71.1485 53.0228,71.1539 53.005,71.1516 52.9842,71.1512 52.9595,71.1561 53.0026,71.1726 53.0215,71.1736 53.0453,71.1716 53.0636,71.1672 53.0818,71.1597 53.0957,71.1048 53.0961,71.0657 53.0279,70.9975 53.0149,70.9917 52.9986,70.9881 52.9848,70.9859 52.9625,70.9964 52.9434,70.9953 52.9335,70.9872 52.9274,70.9729 52.9215,70.9285 52.9451,70.9147 52.981,70.9064 53.0025,70.9028 53.0204,70.8948 53.021,70.885 53.008,70.8792 52.9381,70.8693 52.9203,70.8672 52.9001,70.8668 52.8783,70.8742 52.8805,70.8839 52.8805,70.8839 40,-2.0,Greenland -53.0321,71.2486 -53.0077,71.2584 -52.9523,71.2716 -52.8786,71.285 -52.8437,71.2903 -52.8045,71.2905 -52.7818,71.2885 -52.6086,71.2719 -52.5515,71.2646 -52.5338,71.2611 -52.4501,71.2519 -52.4009,71.25 -52.3412,71.2533 -52.3107,71.2577 -52.2974,71.2584 -52.277,71.2543 -52.2079,71.1955 -52.2156,71.1868 -52.2271,71.1809 -52.2402,71.1766 -52.2732,71.1713 -52.2913,71.1699 -52.333,71.1684 -52.3691,71.1648 -52.4714,71.1408 -52.4819,71.1374 -52.4994,71.1278 -52.5173,71.112 -52.5181,71.0945 -52.5189,71.0777 -52.8146,71.0534 -52.8421,71.0558 -52.9556,71.0934 -52.9789,71.1031 -52.9938,71.1121 -53.029,71.1584 -53.0607,71.2266 -53.0467,71.241 -53.0321,71.2486 -53.0321,71.2486 3108,-9.0,United States -164.326,62.3512 -164.3581,62.3886 -164.4568,62.4136 -164.5274,62.4928 -164.4715,62.5125 -164.4263,62.5217 -164.369,62.5374 -164.3295,62.5545 -164.3087,62.5657 -164.1733,62.6696 -164.3382,62.5977 -164.426,62.5813 -164.4657,62.5757 -164.5576,62.6587 -164.5666,62.7044 -164.5556,62.7609 -164.4904,62.8503 -164.4328,62.905 -164.3768,62.9419 -164.3406,62.9502 -164.2413,62.9555 -164.131,62.9533 -164.0567,62.9433 -164.0228,62.931 -163.9972,62.9322 -164.006,62.966 -164.0436,62.9904 -164.1287,63.0008 -164.207,63.0073 -164.263,63.0566 -164.0796,63.1374 -163.984,63.1614 -163.9581,63.1654 -163.8311,63.1817 -163.6733,63.175 -163.4252,63.1407 -163.4051,63.1368 -163.3562,63.0881 -163.2594,63.0624 -163.2202,63.0508 -163.0539,62.9794 -163.0097,62.9563 -162.7931,62.9745 -162.7488,62.9815 -162.5881,63.0515 -162.5572,63.0651 -162.3231,63.17 -162.3031,63.1815 -162.1775,63.2628 -162.0442,63.3687 -161.9874,63.4625 -161.9522,63.4643 -161.9215,63.4623 -161.7628,63.4286 -161.7162,63.4044 -161.7654,63.3734 -161.8244,63.3473 -161.7879,63.354 -161.6434,63.3723 -161.4123,63.3841 -161.2738,63.3748 -161.2511,63.3726 -161.1248,63.3796 -160.9848,63.3989 -160.9467,63.4044 -160.9006,63.4133 -160.8792,63.4185 -160.8597,63.4244 -160.8356,63.4341 -160.502,63.6377 -160.4743,63.6581 -160.4559,63.6872 -160.4481,63.7143 -160.4542,63.7699 -160.4647,63.7957 -160.4987,63.8407 -160.5292,63.8718 -160.557,63.9045 -160.6118,63.9707 -160.6244,63.9921 -160.6305,64.0207 -160.6394,64.0666 -160.6363,64.0983 -160.6302,64.1199 -160.7336,64.2031 -160.7724,64.2208 -160.8492,64.2672 -160.86,64.2955 -160.8698,64.3346 -161.0768,64.3487 -161.1013,64.3498 -161.138,64.3477 -161.177,64.3299 -161.203,64.3092 -161.2093,64.339 -161.1435,64.4294 -161.124,64.4386 -161.0655,64.4566 -161.019,64.4454 -160.9878,64.4394 -160.9005,64.426 -160.8768,64.4234 -160.7987,64.4205 -160.7702,64.4216 -160.7388,64.4239 -160.6981,64.4305 -160.4888,64.5465 -160.4684,64.5784 -160.4637,64.6388 -160.5521,64.7135 -160.639,64.7536 -160.7379,64.7863 -160.7696,64.8005 -160.7909,64.8128 -160.8273,64.8384 -160.8034,64.8404 -160.7741,64.8327 -160.7444,64.8313 -160.6774,64.8579 -160.7184,64.8607 -160.8542,64.8572 -160.8772,64.8525 -160.9907,64.7831 -161.0499,64.7254 -161.0587,64.7058 -161.1051,64.6905 -161.1956,64.6794 -161.2317,64.6841 -161.3163,64.6999 -161.3454,64.7075 -161.369,64.718 -161.4233,64.7153 -161.5193,64.6887 -161.5896,64.6625 -161.6116,64.6409 -161.5753,64.6458 -161.5489,64.6586 -161.5103,64.6707 -161.4761,64.6746 -161.5705,64.6309 -161.6082,64.6257 -161.6651,64.6226 -161.7084,64.6233 -161.7507,64.6333 -161.786,64.636 -161.8655,64.602 -161.8866,64.5905 -161.911,64.5714 -162.0827,64.5021 -162.1719,64.4752 -162.1991,64.4654 -162.2318,64.4516 -162.2608,64.4368 -162.2844,64.4175 -162.2973,64.3922 -162.291,64.3669 -162.3098,64.3078 -162.438,64.2639 -162.4682,64.2565 -162.4941,64.3318 -162.5525,64.4284 -162.6344,64.471 -162.8465,64.5751 -162.9005,64.5747 -162.9415,64.5594 -162.9902,64.5384 -163.0288,64.5108 -162.986,64.4816 -162.9593,64.4729 -162.8355,64.4352 -162.7983,64.4333 -162.7661,64.4402 -162.7174,64.4382 -162.7205,64.4114 -162.8159,64.3329 -162.8684,64.3309 -162.8887,64.3391 -162.926,64.3673 -162.9418,64.3873 -162.9556,64.4045 -163.1008,64.4543 -163.1667,64.4726 -163.2395,64.4865 -163.2845,64.4924 -163.3438,64.4973 -163.4971,64.5092 -163.5268,64.5071 -163.57,64.5019 -163.6105,64.4927 -163.6489,64.4842 -163.6762,64.4819 -163.79,64.4909 -163.9532,64.504 -163.987,64.5045 -164.0249,64.5005 -164.0671,64.4921 -164.2159,64.4527 -164.257,64.4411 -164.3174,64.439 -164.3392,64.4432 -164.3593,64.4472 -164.6057,64.4526 -164.6342,64.4188 -164.5792,64.3764 -164.5183,64.3807 -164.4901,64.387 -164.452,64.3886 -164.4813,64.3797 -164.5334,64.3711 -164.5787,64.3672 -164.7018,64.3641 -164.7137,64.365 -164.7457,64.37 -164.8192,64.3833 -164.8903,64.3979 -164.9328,64.4049 -164.9544,64.408 -165.0093,64.416 -165.0529,64.422 -165.1529,64.435 -165.1873,64.4386 -165.3277,64.4506 -165.5028,64.4661 -165.7922,64.4946 -165.8261,64.4996 -165.858,64.5045 -165.8786,64.5086 -165.9074,64.5159 -166.0184,64.5492 -166.0437,64.5592 -166.0728,64.576 -166.1282,64.621 -166.1592,64.6562 -166.1354,64.7235 -166.0882,64.7358 -166.0746,64.7546 -166.0565,64.8078 -166.0914,64.8385 -166.1843,64.8685 -166.2082,64.8647 -166.365,64.9151 -166.3716,64.9378 -166.3737,64.9577 -166.3906,64.9741 -166.413,64.9844 -166.4329,64.9892 -166.4869,64.9981 -166.5146,65.0068 -166.5596,65.0316 -166.5869,65.0502 -166.6048,65.0654 -166.6265,65.0985 -166.6196,65.14 -166.6025,65.1623 -166.578,65.1817 -166.5389,65.2002 -166.5154,65.1954 -166.5312,65.1749 -166.5704,65.1567 -166.5865,65.1452 -166.6028,65.1211 -166.6034,65.0988 -166.5914,65.0678 -166.4775,65.0408 -166.4556,65.0377 -166.4191,65.0351 -166.3521,65.0352 -166.2793,65.0397 -166.2322,65.0449 -166.2074,65.0527 -166.1364,65.1096 -166.1496,65.1512 -166.0355,65.1889 -165.8797,65.1752 -165.8529,65.1702 -165.8203,65.1604 -165.7878,65.155 -165.7223,65.1685 -165.8225,65.2118 -165.8423,65.2167 -165.8741,65.2223 -165.9073,65.2273 -166.2936,65.2823 -166.4646,65.2944 -166.489,65.296 -166.5888,65.2945 -166.497,65.2731 -166.4656,65.2716 -166.4304,65.2731 -166.4,65.2621 -166.4648,65.2648 -166.4894,65.2661 -166.5229,65.2712 -166.5861,65.2836 -166.6381,65.2938 -166.7138,65.3069 -166.7373,65.3094 -166.8831,65.3208 -166.9566,65.3218 -167.0773,65.3307 -167.1268,65.3382 -167.2546,65.3716 -167.2827,65.3952 -167.399,65.4343 -167.5263,65.468 -167.5786,65.4796 -167.6225,65.4866 -167.6459,65.4888 -167.7016,65.4924 -167.7357,65.5016 -167.7553,65.5165 -167.7921,65.5664 -167.7939,65.5808 -167.7884,65.5876 -167.7641,65.6042 -167.735,65.6195 -167.7097,65.6305 -167.6015,65.6661 -167.5706,65.6729 -167.512,65.6792 -167.5338,65.6525 -167.5929,65.6331 -167.615,65.6271 -167.6547,65.6198 -167.6859,65.6106 -167.7112,65.5941 -167.7251,65.5672 -167.7088,65.5537 -167.6823,65.5536 -167.6508,65.5598 -167.5224,65.5966 -167.2227,65.6413 -167.1643,65.655 -167.1699,65.6865 -167.2137,65.6926 -167.2333,65.7112 -167.1744,65.7467 -167.1529,65.7528 -167.0931,65.7719 -166.9436,65.8071 -166.8854,65.7833 -166.8603,65.7771 -166.8235,65.7742 -166.7837,65.7779 -166.7091,65.7933 -166.6009,65.8292 -166.5438,65.8551 -166.5942,65.8756 -166.6256,65.8872 -166.5715,65.9108 -166.3595,65.9857 -166.272,66.0098 -166.2495,66.0159 -165.9548,66.0904 -165.9229,66.0967 -165.9004,66.0986 -165.8742,66.0976 -165.8285,66.0911 -165.7999,66.0842 -165.7639,66.0693 -165.8069,66.0652 -165.7443,66.0413 -165.7217,66.0378 -165.471,66.02 -165.4448,66.0192 -165.3914,66.0222 -165.176,66.074 -165.321,66.113 -165.378,66.1261 -165.4122,66.1315 -165.4375,66.1328 -165.4944,66.1321 -165.5345,66.1382 -165.5508,66.1531 -165.5325,66.1745 -165.5166,66.1878 -165.498,66.2 -165.4618,66.2196 -165.4204,66.2378 -165.3053,66.2773 -165.1298,66.3167 -164.9877,66.3419 -164.8165,66.3603 -164.7816,66.36 -164.7473,66.3548 -164.6796,66.34 -164.4061,66.4402 -164.3764,66.4567 -164.0808,66.5038 -164.0264,66.5096 -163.9551,66.5138 -163.8245,66.5185 -163.5991,66.5244 -163.504,66.5207 -163.4403,66.5156 -163.3705,66.5055 -163.3491,66.501 -163.3278,66.496 -163.3084,66.4828 -163.3681,66.4838 -163.4935,66.5038 -163.5194,66.5058 -163.5974,66.494 -163.5774,66.4864 -163.5439,66.4846 -163.4956,66.4838 -163.4641,66.4805 -163.4444,66.4723 -163.4224,66.4317 -163.4328,66.3994 -163.4563,66.3768 -163.4875,66.3647 -163.5209,66.3519 -163.5609,66.3087 -163.5569,66.2485 -163.5364,66.225 -163.5247,66.1926 -163.6119,66.148 -163.6474,66.1398 -163.6931,66.1381 -163.7583,66.1309 -163.8413,66.1075 -163.7296,66.106 -163.6584,66.1084 -163.6158,66.112 -163.5565,66.0772 -163.5041,66.0325 -163.4731,66.0189 -163.4035,66.0002 -163.3826,65.9958 -163.3251,65.9876 -163.2962,65.9876 -163.2051,65.9968 -163.1123,66.0034 -163.0117,66.0041 -162.9724,65.9934 -162.9327,65.9872 -162.8335,65.9824 -162.7964,65.9834 -162.6872,65.9971 -162.4624,66.0172 -162.4329,66.0161 -162.3745,66.0012 -162.2329,65.9646 -162.0502,65.9492 -162.0271,65.9504 -162.0004,65.9526 -161.9738,65.9566 -161.9128,65.9687 -161.8808,65.9774 -161.8082,65.9866 -161.7279,65.9857 -161.6551,65.9676 -161.6076,65.9529 -161.57,65.9244 -161.5279,65.8948 -161.4893,65.8921 -161.5133,65.9256 -161.4411,66.0034 -161.3999,66.0272 -161.3524,66.0549 -161.3316,66.0696 -161.2927,66.1145 -161.269,66.1437 -161.2474,66.168 -161.1956,66.1851 -161.1577,66.1866 -161.07,66.1866 -161.0361,66.1777 -161.0087,66.1508 -160.9784,66.1431 -160.9284,66.1383 -160.8674,66.1397 -160.8247,66.1483 -160.8036,66.1569 -160.7783,66.1605 -160.7518,66.1505 -160.7655,66.0871 -160.7915,66.0469 -160.8506,66.0402 -160.8231,66.0327 -160.7902,66.035 -160.7649,66.0392 -160.7303,66.0546 -160.689,66.1005 -160.6761,66.1238 -160.674,66.1631 -160.6924,66.1837 -160.7956,66.2537 -160.831,66.2631 -160.9581,66.2834 -161.1676,66.315 -161.1913,66.3185 -161.2192,66.319 -161.3996,66.3197 -161.543,66.2874 -161.5614,66.2278 -161.5312,66.2012 -161.5477,66.1891 -161.5846,66.1932 -161.6324,66.2519 -161.6222,66.2695 -161.5998,66.2927 -161.5744,66.315 -161.5474,66.3462 -161.5399,66.3702 -161.5398,66.4027 -161.5488,66.4245 -161.5704,66.4463 -161.5996,66.4673 -161.849,66.6085 -161.8922,66.6263 -161.9121,66.6319 -161.9463,66.6376 -161.9701,66.6407 -162.0468,66.6472 -162.1523,66.6502 -162.1723,66.6559 -162.3003,66.781 -162.3,66.8127 -162.2722,66.8257 -162.1785,66.8338 -161.996,66.8709 -161.9693,66.8606 -161.7853,66.7157 -161.7434,66.6185 -161.7468,66.5792 -161.5906,66.4758 -161.5549,66.454 -161.5036,66.433 -161.4759,66.424 -161.3013,66.3721 -161.2654,66.3632 -161.2435,66.3633 -161.1298,66.3753 -161.0139,66.3989 -160.9709,66.4181 -160.949,66.4298 -160.91,66.4481 -160.879,66.4545 -160.8574,66.4547 -160.7262,66.3969 -160.692,66.3789 -160.6095,66.3383 -160.4904,66.2932 -160.4564,66.2873 -160.4202,66.2872 -160.3868,66.2893 -160.3504,66.289 -160.3118,66.2817 -160.207,66.2899 -159.9346,66.3098 -159.9091,66.3145 -159.8891,66.3434 -159.8825,66.4374 -159.9128,66.5599 -159.9367,66.5634 -159.9845,66.5658 -160.0065,66.5644 -160.1791,66.533 -160.1934,66.5117 -160.2214,66.5029 -160.3435,66.5138 -160.3705,66.5192 -160.3908,66.5287 -160.4158,66.5479 -160.4566,66.567 -160.4875,66.5742 -160.51,66.5784 -160.5422,66.5813 -160.6198,66.5797 -160.8112,66.5634 -160.844,66.5549 -160.8667,66.5437 -160.9038,66.4978 -160.9119,66.4696 -160.9515,66.456 -160.9844,66.4503 -161.0522,66.4486 -161.1681,66.4493 -161.3863,66.5443 -161.4822,66.5906 -161.5413,66.6202 -161.5666,66.6439 -161.5569,66.7156 -161.4684,66.8152 -161.3888,66.8657 -161.312,66.8791 -161.2848,66.8731 -161.2619,66.869 -161.2363,66.8667 -161.2002,66.8663 -161.1669,66.8758 -161.1788,66.8993 -161.2051,66.908 -161.3353,66.9355 -161.3584,66.9396 -161.4832,66.9624 -161.5274,66.9665 -161.5659,66.9662 -161.9245,66.9344 -162.1269,66.9132 -162.1083,66.9459 -162.0888,66.9654 -162.0698,66.9833 -162.0181,67.0357 -162.0072,67.0715 -162.049,67.0786 -162.0779,67.074 -162.0425,67.0606 -162.0675,67.0275 -162.1361,66.9774 -162.2252,66.9254 -162.318,66.9259 -162.352,66.9454 -162.3853,66.9669 -162.4178,66.9696 -162.4429,66.9681 -162.4818,66.9608 -162.6176,66.9452 -162.6777,66.9456 -162.7038,66.9477 -162.8078,66.9647 -162.8956,66.9739 -162.9218,66.9758 -163.1269,66.9951 -163.3279,67.0156 -163.3627,67.0214 -163.3899,67.0272 -163.4193,67.0404 -163.4323,67.0647 -163.4402,67.0898 -163.4379,67.1213 -163.4369,67.1439 -163.4434,67.1839 -163.4549,67.2154 -163.4878,67.2754 -163.6177,67.4088 -163.6476,67.4356 -163.6797,67.4608 -163.708,67.48 -163.7597,67.5113 -163.7832,67.5241 -163.8199,67.5379 -163.9097,67.5647 -163.9706,67.5822 -164.1553,67.6413 -164.2098,67.6693 -164.3664,67.7424 -164.4155,67.735 -164.4524,67.7403 -164.7534,67.8564 -164.8641,67.8997 -164.8973,67.9144 -164.9256,67.9244 -164.9947,67.9465 -165.0152,67.9523 -165.0464,67.961 -165.133,67.9812 -165.2038,67.9934 -165.2392,67.9992 -165.2634,68.0027 -165.3411,68.0104 -165.3787,68.0139 -165.4466,68.0186 -165.4729,68.021 -165.5136,68.0279 -165.5408,68.0346 -165.5709,68.0439 -165.6282,68.0642 -165.651,68.078 -165.6675,68.092 -165.6878,68.1124 -165.7247,68.1314 -165.7522,68.142 -165.7814,68.1523 -165.8683,68.1823 -165.9072,68.1955 -165.9435,68.2061 -165.9943,68.2166 -166.029,68.2232 -166.0771,68.2307 -166.2578,68.2498 -166.2961,68.2535 -166.3235,68.2551 -166.3991,68.2551 -166.4417,68.2566 -166.4722,68.2613 -166.3986,68.275 -166.3646,68.2685 -166.3123,68.2636 -166.2383,68.2627 -166.1975,68.2655 -166.0215,68.3292 -166.0374,68.3463 -165.9508,68.411 -165.8921,68.4658 -165.874,68.4845 -165.8457,68.6085 -165.8359,68.6662 -165.84,68.7014 -165.8512,68.7237 -165.8735,68.7571 -165.8784,68.7837 -165.8535,68.7949 -165.8144,68.7955 -165.7399,68.7938 -165.5284,68.7814 -165.4625,68.7746 -165.3779,68.7687 -165.0939,68.7719 -164.958,68.7786 -164.5991,68.7994 -164.4492,68.812 -164.3947,68.8166 -164.3626,68.821 -164.2106,68.8325 -164.0617,68.837 -164.0093,68.8395 -163.9746,68.8421 -163.9219,68.8469 -163.8896,68.8506 -163.8086,68.8666 -163.7575,68.8775 -163.6435,68.9028 -163.5543,68.928 -163.3527,68.9967 -163.2954,69.0181 -163.2497,69.0362 -163.2108,69.056 -163.1762,69.0771 -163.1561,69.0898 -163.1384,69.103 -163.0912,69.1323 -163.0143,69.1794 -162.9921,69.1916 -162.9581,69.2067 -162.9312,69.218 -162.8897,69.2517 -162.8659,69.2902 -162.8489,69.3155 -162.8279,69.3312 -162.8069,69.3313 -162.9067,69.2117 -162.8062,69.2626 -162.7692,69.2952 -162.7134,69.4194 -162.7119,69.4719 -162.6498,69.5852 -162.6205,69.5838 -162.5878,69.604 -162.5872,69.6272 -162.6091,69.633 -162.6297,69.6349 -162.6698,69.6403 -162.6504,69.6624 -162.6053,69.6901 -162.4881,69.7416 -162.414,69.7693 -162.3183,69.8056 -162.2214,69.8473 -162.1603,69.8802 -162.1437,69.8939 -162.1256,69.9226 -161.9908,70.0189 -161.9258,70.0419 -161.8851,70.0559 -161.8358,70.0739 -161.7261,70.1245 -161.702,70.1367 -161.6808,70.1526 -161.656,70.1765 -161.6325,70.1917 -161.6001,70.2079 -161.5808,70.2154 -161.5214,70.2269 -161.4976,70.2261 -161.4065,70.1655 -161.4919,70.1179 -161.5075,70.0857 -161.544,70.0829 -161.5813,70.0855 -161.624,70.0981 -161.6537,70.0993 -161.6747,70.0957 -161.7108,70.0834 -161.754,70.0626 -161.5053,70.0696 -161.4503,70.0886 -161.4256,70.104 -161.3317,70.1387 -161.2807,70.1588 -161.2444,70.1639 -161.1144,70.1596 -160.9815,70.163 -160.9471,70.1661 -160.8574,70.1799 -160.8147,70.1875 -160.5414,70.2439 -160.5157,70.2492 -160.4923,70.2556 -160.4143,70.2783 -160.3909,70.2853 -160.116,70.3824 -159.9933,70.4305 -159.9746,70.438 -159.9554,70.4455 -159.8033,70.4972 -159.5693,70.4944 -159.5648,70.4373 -159.5852,70.4228 -159.7114,70.39 -159.752,70.3872 -159.8347,70.378 -159.8012,70.37 -159.7373,70.3713 -159.6599,70.3798 -159.6478,70.3278 -159.624,70.2761 -159.4798,70.1763 -159.5283,70.3026 -159.505,70.3455 -159.4609,70.392 -159.4025,70.3815 -159.3345,70.374 -159.2964,70.3794 -159.1991,70.3994 -159.0429,70.4126 -158.9478,70.4382 -159.2061,70.432 -159.299,70.4111 -159.3717,70.4011 -159.3888,70.4055 -159.487,70.4685 -159.4987,70.4988 -159.5587,70.5325 -159.5845,70.5411 -159.616,70.5438 -159.636,70.5425 -159.6755,70.5372 -159.7609,70.5197 -159.7491,70.5387 -159.6619,70.5701 -159.5863,70.5936 -159.5629,70.5998 -159.4579,70.6273 -159.3105,70.7029 -159.267,70.7134 -159.1611,70.7349 -158.98,70.7648 -159.0062,70.7529 -158.9867,70.7478 -158.873,70.7523 -158.8296,70.7598 -158.8036,70.756 -158.7861,70.73 -158.8338,70.7206 -158.9088,70.7191 -158.9466,70.7165 -158.9753,70.7118 -159.0844,70.685 -159.0557,70.6726 -158.9357,70.6328 -158.8642,70.6118 -158.7491,70.667 -158.6311,70.6943 -158.5608,70.7032 -158.4795,70.6993 -158.3309,70.6925 -158.2841,70.6947 -158.2527,70.6989 -158.1797,70.7176 -158.1429,70.7392 -158.0537,70.7416 -157.9944,70.7357 -157.8761,70.7317 -157.8026,70.7319 -157.695,70.736 -157.6211,70.7445 -157.5222,70.763 -157.4283,70.7854 -157.4058,70.7917 -157.1853,70.8579 -157.1131,70.8826 -156.916,70.9551 -156.8714,70.9748 -156.8317,70.9955 -156.7654,71.0358 -156.7218,71.0628 -156.6872,71.0882 -156.6637,71.1039 -156.6409,71.1167 -156.481,71.1941 -156.4255,71.2173 -156.3954,71.2281 -156.337,71.2441 -156.2358,71.257 -156.1861,71.2109 -156.0805,71.1681 -155.9793,71.1704 -155.9156,71.1738 -155.8906,71.1721 -155.8346,71.1644 -155.7804,71.1556 -155.7485,71.1491 -155.6888,71.1139 -155.6287,71.0986 -155.564,71.1047 -155.4886,71.1092 -155.4494,71.1111 -155.4085,71.1084 -155.281,71.0907 -155.236,71.0743 -155.1874,71.0178 -155.1945,70.992 -155.3807,70.9066 -155.4754,70.8866 -155.5391,70.8789 -155.6021,70.8796 -155.6407,70.8789 -155.7307,70.8744 -155.8223,70.8243 -155.7854,70.8206 -155.7288,70.8271 -155.7032,70.8265 -155.6327,70.8071 -155.5924,70.7545 -155.6292,70.733 -155.6207,70.6629 -155.6006,70.6638 -155.5499,70.6777 -155.5597,70.6955 -155.5715,70.7145 -155.5573,70.7294 -155.5343,70.7358 -155.3009,70.7515 -155.264,70.7513 -155.1826,70.838 -155.0375,70.9083 -154.9387,70.9242 -154.8941,70.9034 -154.8612,70.894 -154.8328,70.9008 -154.8246,70.9241 -154.8439,70.9466 -154.9017,70.9731 -154.9191,70.9928 -154.8427,71.0247 -154.739,71.0563 -154.719,71.0549 -154.6936,71.0278 -154.6873,70.9537 -154.7298,70.9283 -154.7086,70.9168 -154.6615,70.9287 -154.6473,71.0074 -154.6199,71.0234 -154.569,71.0168 -154.4671,71.0012 -154.2613,70.928 -154.2432,70.9085 -154.3065,70.8218 -154.3291,70.7908 -154.2621,70.7344 -154.2175,70.7314 -154.1972,70.732 -154.0708,70.7397 -154.0341,70.739 -154.0009,70.7372 -153.9531,70.7297 -153.9038,70.7017 -153.8543,70.6836 -153.8157,70.6873 -153.781,70.6964 -153.6519,70.7461 -153.6171,70.7621 -153.5883,70.7862 -153.5655,70.7961 -153.5335,70.7991 -153.5131,70.7997 -153.3789,70.8008 -153.2741,70.7969 -153.2414,70.7947 -153.1533,70.7941 -153.0357,70.8019 -153.0087,70.807 -152.9738,70.8194 -152.9383,70.8285 -152.9023,70.8339 -152.8741,70.8351 -152.8535,70.8357 -152.8187,70.834 -152.5974,70.8088 -152.3902,70.7409 -152.3877,70.7888 -152.3003,70.793 -152.2636,70.7922 -152.1978,70.7875 -152.1649,70.785 -152.1341,70.7819 -152.0891,70.7769 -152.0334,70.7686 -151.9316,70.7476 -151.902,70.7406 -151.8723,70.7199 -152.0291,70.655 -152.1645,70.5947 -152.1488,70.5533 -152.0917,70.5296 -152.0608,70.5195 -152.0288,70.5133 -151.8871,70.5025 -151.8422,70.504 -151.8217,70.5045 -151.7878,70.5026 -151.7513,70.4981 -151.7353,70.4858 -151.7623,70.4762 -151.9729,70.4831 -152.0738,70.4889 -152.1506,70.4945 -152.1789,70.495 -152.2004,70.4912 -152.2762,70.4657 -152.1826,70.4511 -152.1524,70.4522 -152.0087,70.4602 -151.8843,70.4565 -151.7578,70.4599 -151.7174,70.4636 -151.6912,70.4752 -151.6582,70.4773 -151.3953,70.4662 -151.4297,70.4056 -151.4633,70.4009 -151.5657,70.3906 -151.6252,70.3731 -151.6297,70.3534 -151.5418,70.348 -151.4879,70.349 -151.458,70.353 -151.3982,70.3534 -151.2734,70.3532 -151.1823,70.347 -151.1364,70.3423 -151.0481,70.3318 -151.0196,70.328 -150.9957,70.323 -150.9347,70.3022 -150.8915,70.2809 -150.8415,70.2824 -150.859,70.3027 -150.8683,70.3302 -150.8378,70.3506 -150.6765,70.3687 -150.4414,70.4098 -150.2776,70.4138 -150.1876,70.4127 -150.0303,70.3832 -150.06,70.3386 -149.9754,70.3341 -149.7879,70.3447 -149.6225,70.395 -149.5695,70.415 -149.5435,70.4226 -149.2071,70.4191 -149.1337,70.4073 -149.048,70.3882 -149.0239,70.3973 -148.9855,70.4069 -148.8399,70.3985 -148.7114,70.372 -148.6586,70.3507 -148.489,70.3191 -148.469,70.3185 -148.4351,70.3206 -148.4047,70.3239 -148.3612,70.3214 -148.3395,70.3185 -148.2627,70.3034 -148.1872,70.2744 -148.1665,70.2512 -148.1678,70.2296 -148.0417,70.2186 -148.0102,70.2251 -147.9714,70.2394 -147.939,70.2576 -147.8916,70.2671 -147.8084,70.2627 -147.7814,70.2551 -147.7508,70.2381 -147.4856,70.1761 -147.4345,70.1337 -147.3864,70.1225 -147.3609,70.1173 -147.3061,70.1156 -147.162,70.1131 -147.0083,70.1082 -146.9421,70.1015 -146.8596,70.0758 -146.8292,70.072 -146.6971,70.0715 -146.6535,70.0727 -146.4361,70.09 -146.2127,70.1029 -146.132,70.1 -145.9365,70.0879 -145.8449,70.0815 -145.8011,70.0725 -145.779,70.0629 -145.7559,70.0606 -145.6677,70.0573 -145.6398,70.0572 -145.5804,70.0588 -145.4798,70.0588 -145.4245,70.0366 -145.3636,70.0164 -145.2787,69.9903 -145.1058,69.9499 -144.8801,69.9113 -144.7091,69.8962 -144.6882,69.893 -144.6658,69.8869 -144.6366,69.8775 -144.5623,69.8922 -144.3924,69.8815 -144.3572,69.8819 -144.3251,69.8836 -144.2971,69.887 -144.2721,69.8919 -144.251,69.8981 -144.2029,69.9203 -144.0696,69.9482 -144.0227,69.9478 -143.8843,69.9489 -143.8461,69.952 -143.8205,69.9643 -143.7465,69.9879 -143.7231,69.9933 -143.4123,70.0052 -143.3863,69.997 -143.3485,69.9921 -143.2848,69.9956 -143.2022,70.0058 -143.0934,70.0056 -142.9849,69.9813 -142.976,70.0209 -142.8979,70.0189 -142.7079,69.9937 -142.5725,69.984 -142.3306,69.9253 -142.2127,69.8729 -142.1134,69.8285 -142.0601,69.7998 -141.9528,69.757 -141.9122,69.759 -141.8547,69.7628 -141.8103,69.7608 -141.7899,69.7571 -141.758,69.7473 -141.7269,69.7298 -141.6399,69.7048 -141.5714,69.705 -141.4745,69.696 -141.4237,69.6854 -141.4005,69.6793 -141.2591,69.6383 -141.2274,69.6285 -141.187,69.6088 -141.1511,69.5815 -141.1287,69.5659 -141.0765,69.5497 -141.0551,69.5464 -141.0214,69.5435 -140.9846,69.5421 -140.955,69.5444 -140.9142,69.5803 -140.9407,69.5875 -141.0049,69.5983 -140.9586,69.5994 -140.9355,69.5965 -140.8489,69.5831 -140.6981,69.5522 -140.6968,69.4425 -140.6971,69.343 -140.7,68.8768 -140.7035,68.4449 -140.7054,68.1453 -140.7064,67.979 -140.7076,67.7791 -140.7064,67.6464 -140.7079,67.4467 -140.7109,67.2137 -140.7116,66.9814 -140.7115,66.7815 -140.7126,66.5821 -140.7144,66.4156 -140.7165,66.0164 -140.7181,65.617 -140.7187,65.1513 -140.7191,65.0848 -140.7208,65.0515 -140.7217,64.1202 -140.7224,63.8874 -140.7242,63.7541 -140.7259,63.0223 -140.7259,62.6562 -140.733,60.8925 -140.7317,60.8592 -140.7347,60.3264 -140.7344,60.2937 -140.7296,60.2343 -140.6803,60.2248 -140.2564,60.1493 -140.2326,60.1786 -140.2071,60.211 -140.1856,60.2369 -139.7416,60.1212 -139.7157,60.1152 -139.6494,60.1482 -139.6026,60.1717 -139.5081,60.2198 -139.4129,60.2676 -139.256,60.2718 -138.8043,60.2716 -138.8196,60.2148 -138.8672,60.1285 -138.8932,60.0824 -138.9244,60.0228 -138.8997,59.9977 -138.8546,59.9689 -138.7857,59.9254 -138.71,59.9065 -138.4291,59.8351 -138.4142,59.7948 -138.4064,59.7665 -138.3904,59.7382 -138.3555,59.7025 -138.2788,59.6603 -138.2311,59.6368 -138.0446,59.5414 -137.8595,59.4453 -137.6529,59.3367 -137.335,59.1675 -137.3104,59.1161 -137.29,59.0722 -137.2441,58.9708 -137.2292,58.9197 -137.2425,58.8934 -137.2517,58.8674 -137.2434,58.844 -137.2175,58.8361 -137.1907,58.8369 -137.1698,58.8422 -137.1386,58.8579 -137.0846,58.8951 -137.0597,58.9106 -137.0418,58.9194 -136.9974,58.9353 -136.8159,58.9947 -136.7967,58.9646 -136.7236,58.9184 -136.7529,58.8607 -136.7872,58.8356 -136.8608,58.7764 -136.8655,58.7524 -136.7928,58.7905 -136.7755,58.8033 -136.7332,58.8174 -136.6551,58.8185 -136.4824,58.7977 -136.3259,58.7692 -136.3064,58.7618 -136.2861,58.7528 -136.2532,58.7186 -136.2964,58.7016 -136.3154,58.7236 -136.3321,58.738 -136.3834,58.7439 -136.3304,58.6988 -136.2382,58.677 -136.1271,58.6488 -136.0919,58.6101 -136.2133,58.5446 -136.2371,58.5396 -136.2681,58.5401 -136.234,58.5229 -136.2096,58.5245 -136.1258,58.5501 -136.0778,58.572 -136.0363,58.5916 -136.0047,58.5797 -135.9388,58.5447 -135.8724,58.4944 -135.831,58.4419 -135.7951,58.3578 -135.7791,58.3155 -135.8018,58.2915 -135.8339,58.2706 -136.0053,58.2382 -136.0288,58.2576 -136.0223,58.2877 -136.0526,58.3118 -136.2295,58.3462 -136.2866,58.2893 -136.2307,58.2685 -136.2304,58.2898 -136.1959,58.2988 -136.1624,58.295 -136.1349,58.2808 -136.1049,58.2679 -136.118,58.229 -136.2462,58.2392 -136.282,58.264 -136.3326,58.2814 -136.3976,58.2649 -136.3793,58.2462 -136.351,58.2345 -136.3107,58.1923 -136.3234,58.1704 -136.3491,58.1516 -136.3708,58.1474 -136.4095,58.1472 -136.4378,58.1575 -136.4553,58.1684 -136.5843,58.2868 -136.6108,58.3103 -136.6991,58.3265 -136.7394,58.3327 -136.7672,58.3326 -136.8057,58.3259 -136.8966,58.3462 -137.0131,58.3862 -137.1341,58.4365 -137.2739,58.4979 -137.3325,58.5237 -137.3216,58.5425 -137.2819,58.5551 -137.1896,58.5831 -137.2078,58.6003 -137.238,58.6092 -137.3499,58.5787 -137.4222,58.5874 -137.441,58.607 -137.4952,58.6378 -137.5191,58.6496 -137.5797,58.6776 -137.617,58.6936 -137.656,58.7148 -137.6729,58.7356 -137.6632,58.7634 -137.6716,58.7908 -137.6907,58.8166 -137.7098,58.8341 -137.7662,58.8645 -137.7871,58.8746 -137.9236,58.9489 -137.9442,58.9592 -138.1325,59.0333 -138.2137,59.04 -138.2582,59.0345 -138.2879,59.0351 -138.3174,59.0392 -138.3421,59.0525 -138.2964,59.0539 -138.2411,59.0489 -138.182,59.1137 -138.203,59.1217 -138.2657,59.1147 -138.3668,59.0962 -138.3937,59.0901 -138.5021,59.125 -138.5346,59.1368 -138.6923,59.1919 -138.7197,59.1982 -138.7403,59.203 -138.8219,59.2148 -138.9029,59.2324 -138.9368,59.2473 -138.9011,59.2539 -138.9707,59.3079 -138.9954,59.3067 -139.0311,59.2882 -139.0751,59.2874 -139.1448,59.3071 -139.1797,59.3203 -139.1499,59.3148 -139.1156,59.305 -139.0736,59.3221 -139.1754,59.3535 -139.2534,59.3636 -139.4495,59.4243 -139.4693,59.4748 -139.3738,59.5092 -139.3289,59.5424 -139.2694,59.6043 -139.2621,59.6687 -139.3137,59.718 -139.3474,59.7833 -139.3525,59.8216 -139.2182,59.9129 -139.1948,59.9115 -139.1732,59.9013 -139.0984,59.8414 -139.055,59.7979 -139.0512,59.6437 -139.0687,59.5288 -139.0294,59.5011 -139.0021,59.5014 -138.9638,59.5444 -138.9987,59.6134 -139.0163,59.6712 -139.0091,59.729 -138.9564,59.7602 -138.9214,59.7654 -138.886,59.7679 -138.7871,59.7732 -138.7435,59.7654 -138.7219,59.7494 -138.7045,59.7377 -138.6765,59.7333 -138.6386,59.7334 -138.7255,59.7712 -138.7799,59.7858 -138.865,59.7956 -138.9123,59.7969 -138.9405,59.8007 -139.0106,59.8229 -139.0977,59.8833 -139.1165,59.9094 -139.1352,59.923 -139.2372,59.9608 -139.2789,59.9582 -139.3228,59.9311 -139.4187,59.8595 -139.515,59.7863 -139.6561,59.7277 -139.7363,59.7091 -139.8239,59.6874 -139.8827,59.6704 -139.9681,59.6394 -139.9963,59.6342 -140.0475,59.6285 -140.1163,59.6265 -140.14,59.6263 -140.1922,59.6296 -140.3488,59.642 -140.5746,59.6675 -140.6133,59.6741 -140.6681,59.6911 -140.7478,59.7151 -140.7775,59.722 -140.9455,59.7608 -141.1106,59.7943 -141.1296,59.837 -141.0885,59.8417 -141.0073,59.8724 -140.9938,59.9013 -140.9908,59.9238 -140.9944,59.9466 -141.0164,60.0012 -141.1186,60.0652 -141.1476,60.0648 -141.2077,60.0401 -141.1896,60.0066 -141.1529,59.992 -141.1147,59.96 -141.1341,59.9461 -141.1593,59.9391 -141.3438,59.8916 -141.3739,59.8874 -141.4641,59.8813 -141.5782,59.9265 -141.6121,59.9377 -141.6313,59.9424 -141.6632,59.9484 -141.7114,59.9542 -141.8872,59.9697 -142.2685,60.0162 -142.3865,60.031 -142.4485,60.0375 -142.4995,60.0379 -142.553,60.0327 -142.6155,60.0253 -142.6469,60.0213 -142.7369,60.0073 -142.7769,60.0014 -142.8627,59.9926 -142.8948,59.9899 -142.9171,59.9879 -142.9463,59.9881 -143.0037,59.9891 -143.051,59.9876 -143.143,59.9824 -143.4013,59.9633 -143.4688,59.9546 -143.5159,59.9451 -143.5641,59.9289 -143.5972,59.9203 -143.6293,59.9191 -143.6611,59.9247 -143.6941,59.9359 -143.7357,59.9706 -143.7599,59.9896 -143.8837,60.0498 -143.9819,60.1182 -144.0687,60.1269 -144.1064,60.113 -144.1737,60.1 -144.3016,60.1131 -144.3482,60.1251 -144.3696,60.1409 -144.3826,60.1675 -144.4305,60.206 -144.5178,60.2269 -144.5578,60.2275 -144.5992,60.2272 -144.6296,60.2123 -144.6469,60.2164 -144.6581,60.2245 -144.6409,60.3058 -144.5588,60.4441 -144.4793,60.554 -144.3395,60.6068 -144.3368,60.6421 -144.3887,60.6346 -144.4134,60.63 -144.4341,60.6236 -144.4793,60.6045 -144.5827,60.5451 -144.6857,60.4705 -144.8225,60.3638 -144.9557,60.2926 -144.9743,60.2844 -145.0143,60.2777 -145.0748,60.2793 -145.1014,60.284 -145.2053,60.3223 -145.2211,60.3477 -145.2694,60.3669 -145.3783,60.3942 -145.3996,60.3977 -145.4475,60.399 -145.4864,60.3948 -145.5835,60.4183 -145.4914,60.4658 -145.4636,60.4835 -145.3492,60.5935 -145.3821,60.596 -145.4118,60.5803 -145.4415,60.5714 -145.5542,60.55 -145.5896,60.5515 -145.6111,60.6021 -145.7225,60.5614 -145.9379,60.5588 -145.967,60.5625 -145.9844,60.581 -145.8779,60.6254 -145.8577,60.6319 -145.8264,60.641 -145.7397,60.6717 -145.7607,60.722 -145.7833,60.7121 -145.8637,60.6866 -145.8982,60.6685 -146.1485,60.6231 -146.1797,60.6185 -146.2153,60.6147 -146.3658,60.6204 -146.4107,60.6697 -146.3249,60.6878 -146.2494,60.6987 -146.228,60.7015 -146.1876,60.7006 -146.1508,60.7012 -145.9766,60.7367 -145.8474,60.7715 -145.8701,60.7867 -145.9566,60.8168 -145.9836,60.7965 -145.9996,60.78 -146.0322,60.7616 -146.0853,60.747 -146.1153,60.7416 -146.115,60.7659 -146.1543,60.7555 -146.1765,60.7458 -146.1993,60.7438 -146.2404,60.7433 -146.2706,60.7478 -146.4115,60.8045 -146.4508,60.8443 -146.4759,60.8786 -146.3602,60.9963 -146.3316,61.0061 -146.1462,61.0107 -146.0428,61.0098 -146.0161,61.01 -145.9652,61.0146 -145.9938,61.0427 -146.0177,61.0551 -146.1335,61.0616 -146.2996,61.0576 -146.3215,61.0512 -146.5059,60.9683 -146.5665,60.9304 -146.5777,60.912 -146.6004,60.8972 -146.6644,60.8709 -146.6892,60.8661 -146.7429,60.8822 -146.7083,60.905 -146.7003,60.9266 -146.768,60.9358 -146.8115,60.9378 -146.9283,60.9131 -146.9737,60.8604 -147.0867,60.814 -147.2563,60.8433 -147.2605,60.9038 -147.245,60.9593 -147.229,61.019 -147.2377,61.0772 -147.2692,61.0787 -147.2917,61.0657 -147.3355,60.8861 -147.3235,60.8219 -147.3874,60.7792 -147.4686,60.7639 -147.5065,60.748 -147.5793,60.7577 -147.6114,60.7724 -147.6331,60.8159 -147.6782,60.8414 -147.7684,60.8734 -147.6419,60.9969 -147.4755,61.1102 -147.4332,61.2009 -147.4551,61.1999 -147.477,61.1865 -147.6767,61.0422 -147.7132,61.0023 -147.7325,60.978 -147.7579,60.9627 -147.7895,60.9438 -147.8377,60.9801 -147.857,61.0049 -147.9055,61.0207 -147.9648,61.0185 -147.9928,61.015 -148.0997,60.9901 -148.1212,60.9805 -148.1595,60.9145 -148.1352,60.909 -148.1137,60.912 -148.092,60.922 -148.0718,60.9327 -148.0426,60.9515 -147.9815,60.9814 -147.9598,60.988 -147.9168,60.9942 -147.8816,60.9827 -147.8903,60.9431 -148.0221,60.7741 -148.0628,60.7388 -148.0914,60.7348 -148.1195,60.7484 -148.1525,60.763 -148.1859,60.7659 -148.3189,60.7532 -148.41,60.7143 -148.3895,60.7104 -148.3577,60.7151 -148.3148,60.7283 -148.2847,60.7338 -148.1774,60.7238 -148.2471,60.7085 -148.3037,60.6958 -148.3488,60.6768 -148.3665,60.6644 -148.3884,60.6408 -148.418,60.6002 -148.3785,60.5977 -148.3021,60.6367 -148.2943,60.6598 -148.2138,60.6897 -148.1601,60.6961 -148.1122,60.7042 -147.9481,60.6921 -147.971,60.6681 -147.9705,60.6294 -147.9235,60.5439 -148.0476,60.4636 -148.1183,60.4815 -148.1496,60.5051 -148.2,60.5046 -148.2278,60.4929 -148.3277,60.4465 -148.3659,60.4244 -148.3992,60.3996 -148.406,60.3783 -148.3919,60.3739 -148.2967,60.4233 -148.2684,60.4369 -148.2159,60.456 -148.1672,60.4672 -148.0569,60.4331 -148.0053,60.4171 -147.9808,60.4098 -147.9546,60.439 -147.9069,60.4813 -147.8551,60.5074 -147.8048,60.5268 -147.6789,60.4372 -147.6581,60.3783 -147.6703,60.3585 -147.7243,60.3383 -147.7632,60.3266 -147.8329,60.3273 -147.8623,60.306 -147.8875,60.276 -147.9569,60.2277 -148.0307,60.19 -148.0862,60.1743 -148.1468,60.1083 -148.0572,60.1284 -148.019,60.1459 -147.9937,60.1625 -147.9669,60.1706 -147.9206,60.1812 -147.8341,60.1554 -147.8197,60.1332 -147.8543,60.0938 -147.8739,60.0719 -147.7776,60.1212 -147.7569,60.1143 -147.7581,60.1113 -147.7986,60.0554 -147.8081,60.0359 -147.8103,60.019 -147.8258,60.001 -147.8758,59.9678 -147.9295,59.9508 -147.9499,59.9473 -147.9719,59.9454 -148.0077,59.9484 -148.0279,59.9555 -148.0213,59.9831 -147.9455,60.0359 -147.8944,60.0616 -147.932,60.0534 -147.9754,60.0445 -148.0089,60.0519 -148.0106,60.0828 -148.0449,60.0906 -148.0858,60.0515 -148.0962,59.9886 -148.1214,59.9147 -148.1588,59.8765 -148.3768,59.8808 -148.4811,59.89 -148.6123,59.8781 -148.7391,59.8856 -148.7898,59.8896 -148.8315,59.9115 -148.7891,59.9495 -148.7629,59.9736 -148.7971,59.984 -148.8272,59.9785 -148.8667,59.9678 -148.9203,59.9178 -148.9293,59.8805 -148.9519,59.8309 -148.9833,59.8003 -148.9944,59.7956 -149.0099,59.8031 -149.0147,59.9008 -149.0141,59.9323 -149.0905,60.0435 -149.1385,60.0435 -149.1526,60.0198 -149.1575,59.979 -149.2485,59.8541 -149.2818,59.8324 -149.3468,59.7501 -149.3119,59.7175 -149.2704,59.6837 -149.2432,59.6549 -149.2697,59.6484 -149.3058,59.6677 -149.3855,59.7408 -149.382,59.761 -149.3637,59.7997 -149.364,59.8205 -149.3739,59.8448 -149.41,59.8827 -149.4521,59.8824 -149.4772,59.7641 -149.4833,59.7082 -149.4651,59.6441 -149.4701,59.5874 -149.5057,59.5945 -149.5255,59.6132 -149.6072,59.6805 -149.6382,59.7024 -149.746,59.7244 -149.753,59.7015 -149.6928,59.6747 -149.637,59.6414 -149.6537,59.6184 -149.6784,59.5934 -149.7326,59.5559 -149.969,59.4237 -150.0161,59.4087 -150.0638,59.395 -150.1009,59.3979 -150.0985,59.4241 -150.0786,59.4617 -150.0099,59.5345 -149.9427,59.6436 -149.9711,59.6353 -149.9972,59.6146 -150.0183,59.591 -150.052,59.5469 -150.076,59.5178 -150.2058,59.3926 -150.257,59.4469 -150.2583,59.4759 -150.219,59.5196 -150.2599,59.5203 -150.3351,59.4831 -150.347,59.4633 -150.3251,59.4468 -150.304,59.4136 -150.3221,59.3611 -150.3964,59.348 -150.441,59.3501 -150.4553,59.3239 -150.471,59.3109 -150.5921,59.2563 -150.6114,59.2223 -150.6052,59.1837 -150.6266,59.1722 -150.6705,59.1672 -150.7155,59.2033 -150.7597,59.2248 -150.861,59.2193 -150.8995,59.2104 -150.8167,59.1595 -150.8395,59.141 -150.873,59.1371 -150.896,59.139 -150.9858,59.1491 -151.0758,59.1707 -151.1159,59.1873 -151.1376,59.1866 -151.2014,59.1608 -151.2724,59.1306 -151.2944,59.1023 -151.3254,59.0962 -151.4413,59.0898 -151.464,59.0917 -151.618,59.1489 -151.6935,59.2047 -151.7,59.2313 -151.6156,59.3367 -151.5789,59.3525 -151.555,59.3606 -151.3996,59.4054 -151.3795,59.4093 -151.3541,59.4091 -151.3078,59.4068 -151.2026,59.3999 -151.17,59.3961 -151.1653,59.4373 -151.152,59.4639 -151.0682,59.4871 -150.9894,59.5075 -150.9329,59.5231 -150.7142,59.7091 -150.7342,59.7207 -150.7698,59.7205 -150.8273,59.7029 -150.9163,59.6723 -151.1511,59.5853 -151.1855,59.565 -151.2912,59.5746 -151.344,59.5834 -151.445,59.603 -151.4725,59.6122 -151.4964,59.6208 -151.5512,59.6479 -151.5792,59.6678 -151.5932,59.6881 -151.5942,59.7105 -151.4387,59.9425 -151.3834,59.9923 -151.3611,60.0084 -151.2836,60.0523 -151.2232,60.0832 -151.2042,60.0944 -151.1679,60.1172 -151.1418,60.1382 -151.1192,60.1675 -151.0168,60.3153 -151.0029,60.3757 -150.9914,60.4369 -150.9918,60.4697 -151.0212,60.4949 -151.0463,60.5137 -151.085,60.5849 -151.0954,60.5933 -151.1291,60.6353 -151.1192,60.6544 -150.9631,60.7017 -150.8547,60.7095 -150.8014,60.7109 -150.7608,60.7153 -150.5708,60.804 -150.3825,60.8898 -150.152,60.956 -150.1176,60.9625 -150.0843,60.963 -150.0506,60.9558 -150.0362,60.925 -150.0141,60.902 -149.9913,60.8856 -149.9335,60.8598 -149.8695,60.8509 -149.7596,60.8371 -149.6188,60.8712 -149.5933,60.8793 -149.5694,60.8916 -149.551,60.8995 -149.5298,60.9004 -149.4819,60.8963 -149.4467,60.8925 -149.2767,60.8645 -149.1436,60.842 -149.0803,60.8348 -148.9442,60.818 -148.8866,60.8119 -148.8659,60.8082 -148.8363,60.8017 -148.8081,60.7952 -148.769,60.7781 -148.7465,60.7779 -148.7624,60.8075 -148.8128,60.841 -148.8695,60.868 -148.8989,60.8745 -148.9257,60.8739 -149.1167,60.8827 -149.3309,60.9163 -149.4067,60.9377 -149.4345,60.9479 -149.5178,60.9804 -149.5437,60.9986 -149.5641,61.0092 -149.6572,61.0359 -149.7756,61.0834 -149.7087,61.1421 -149.5337,61.2459 -149.5077,61.2608 -149.4203,61.309 -149.3312,61.3319 -149.2433,61.3478 -149.1992,61.3571 -148.966,61.4178 -149.1362,61.4333 -149.3201,61.416 -149.3478,61.4127 -149.4006,61.3999 -149.4826,61.364 -149.5951,61.3053 -149.6245,61.2682 -149.6618,61.2245 -149.6768,61.195 -149.7077,61.1846 -149.7846,61.1706 -149.8173,61.1754 -149.8498,61.18 -149.8753,61.1812 -149.9923,61.1811 -150.0425,61.1765 -150.0702,61.1728 -150.1115,61.1719 -150.1656,61.1732 -150.1899,61.1749 -150.2185,61.1817 -150.2573,61.2106 -150.3382,61.212 -150.4399,61.1714 -150.4612,61.1643 -150.5839,61.1346 -150.6041,61.1305 -150.6407,61.1303 -150.7126,61.1111 -150.7379,61.1027 -150.7798,61.0786 -150.7934,61.0616 -150.8494,60.9952 -150.873,60.9793 -150.9096,60.9679 -151.0189,60.9563 -151.1571,60.943 -151.1963,60.9374 -151.2395,60.924 -151.2948,60.9028 -151.452,60.8309 -151.5113,60.781 -151.5161,60.7603 -151.4998,60.7333 -151.4826,60.7143 -151.4423,60.6856 -151.4219,60.6584 -151.4419,60.6438 -151.485,60.647 -151.5262,60.6605 -151.56,60.6671 -151.639,60.6448 -151.7505,60.5964 -151.7664,60.5796 -151.7688,60.574 -151.8165,60.529 -151.8786,60.5001 -151.9368,60.4842 -152.0396,60.4183 -152.0511,60.3941 -152.0458,60.3632 -152.0133,60.3379 -152.0484,60.291 -152.1344,60.2203 -152.2614,60.1798 -152.3424,60.1565 -152.4403,60.171 -152.5302,60.1922 -152.5949,60.2234 -152.6235,60.235 -152.6541,60.2372 -152.679,60.238 -152.7178,60.2384 -152.74,60.2355 -152.7899,60.2253 -152.8136,60.2057 -152.7923,60.2064 -152.7636,60.2167 -152.7169,60.2214 -152.6775,60.2178 -152.6482,60.2083 -152.6399,60.1695 -152.6069,60.1491 -152.5768,60.1368 -152.5416,60.1276 -152.5194,60.1249 -152.4809,60.1167 -152.3982,60.072 -152.3091,60.0218 -152.2905,60.0007 -152.3003,59.974 -152.3271,59.9453 -152.4289,59.8446 -152.5384,59.8093 -152.5847,59.8042 -152.6571,59.8059 -152.7028,59.8145 -152.7411,59.8156 -152.9378,59.793 -152.9894,59.747 -152.9667,59.7444 -152.9473,59.7519 -152.9222,59.7568 -152.7658,59.7616 -152.7142,59.7475 -152.7131,59.7194 -152.7554,59.6376 -152.8706,59.593 -152.9178,59.5756 -152.939,59.5723 -153.0354,59.5584 -153.0609,59.5569 -153.1156,59.5806 -153.0805,59.6315 -153.0422,59.6533 -153.0589,59.6645 -153.1325,59.6944 -153.1528,59.6476 -153.1822,59.5863 -153.3055,59.4832 -153.3251,59.48 -153.4776,59.4492 -153.4337,59.4013 -153.4565,59.366 -153.5106,59.3548 -153.6542,59.3283 -153.7953,59.3031 -153.8235,59.3023 -153.8562,59.3049 -153.832,59.2887 -153.8128,59.2782 -153.7923,59.2745 -153.78,59.2744 -153.7098,59.2826 -153.7799,59.2514 -153.8219,59.2345 -153.8444,59.2158 -153.9705,59.0619 -153.8946,58.9589 -153.8612,58.9551 -153.831,58.97 -153.802,58.9923 -153.7775,59.0036 -153.7547,59.0087 -153.7322,59.0074 -153.636,58.9972 -153.4267,59.0 -153.3883,58.9829 -153.348,58.9447 -153.3141,58.9279 -153.2808,58.9182 -153.2536,58.9155 -153.2321,58.9185 -153.2039,58.9284 -153.1392,58.9101 -153.0476,58.8588 -152.9779,58.7891 -153.1651,58.6442 -153.3261,58.5647 -153.4071,58.5476 -153.4811,58.5398 -153.6224,58.5129 -153.6434,58.4416 -153.6772,58.42 -153.7167,58.421 -153.7861,58.4222 -153.8198,58.4101 -153.7872,58.3506 -153.7529,58.3345 -153.7229,58.3122 -153.7777,58.2872 -153.8368,58.2808 -153.8666,58.2838 -153.8978,58.2869 -153.9238,58.2827 -154.0407,58.2369 -154.0719,58.2088 -154.0556,58.1901 -154.0035,58.1981 -153.9279,58.2268 -153.9035,58.2477 -153.8724,58.2424 -153.833,58.2108 -153.9544,58.0615 -154.0456,58.0367 -154.1028,58.0412 -154.1615,58.0753 -154.2162,58.0234 -154.2894,57.9555 -154.3166,57.954 -154.3559,57.9634 -154.4542,57.9502 -154.5012,57.9331 -154.5435,57.951 -154.6129,57.9599 -154.6837,57.9601 -154.7515,57.9453 -154.7668,57.8885 -154.7849,57.8227 -154.8024,57.8122 -154.9755,57.7603 -155.014,57.6804 -155.0301,57.6657 -155.1085,57.6486 -155.1829,57.6811 -155.2754,57.7236 -155.3014,57.7256 -155.3251,57.7206 -155.3419,57.7094 -155.4255,57.573 -155.4536,57.483 -155.4736,57.4774 -155.5185,57.4722 -155.5349,57.4907 -155.5594,57.496 -155.6838,57.468 -155.7574,57.4407 -155.7501,57.3733 -155.7857,57.3638 -155.8175,57.366 -155.843,57.3823 -155.9019,57.4079 -155.9252,57.4081 -156.2091,57.2628 -156.2203,57.2193 -156.1421,57.2349 -156.1223,57.2389 -156.0751,57.2409 -156.0547,57.2163 -156.0618,57.1029 -156.0864,57.0765 -156.1735,57.0154 -156.2731,56.9111 -156.401,56.9284 -156.4799,56.9236 -156.5726,56.8544 -156.6116,56.8891 -156.6613,56.895 -156.7049,56.841 -156.8084,56.7561 -156.9064,56.7064 -156.9278,56.7033 -156.9416,56.7054 -157.013,56.7314 -157.0318,56.7511 -157.0612,56.7707 -157.0833,56.7828 -157.1242,56.7934 -157.148,56.7899 -157.1749,56.7773 -157.3039,56.64 -157.2757,56.6119 -157.223,56.6038 -157.2007,56.6024 -157.1761,56.5708 -157.1915,56.5531 -157.2228,56.5461 -157.401,56.5415 -157.4317,56.5627 -157.4732,56.6079 -157.5079,56.611 -157.5367,56.605 -157.636,56.5785 -157.6636,56.561 -157.6913,56.5402 -157.7715,56.5098 -157.8361,56.4935 -157.843,56.462 -157.7852,56.4692 -157.7407,56.4806 -157.6959,56.4952 -157.6664,56.504 -157.6462,56.507 -157.6106,56.5012 -157.5648,56.4843 -157.5582,56.4433 -157.6042,56.4006 -157.7024,56.4213 -157.8358,56.4443 -157.8625,56.4454 -157.8818,56.43 -157.8518,56.4206 -157.8572,56.3953 -157.9202,56.385 -157.9788,56.3891 -158.004,56.3988 -158.0294,56.4058 -158.0572,56.4096 -158.1492,56.3734 -158.1665,56.3534 -158.24,56.285 -158.2634,56.2768 -158.2897,56.2663 -158.3309,56.2403 -158.372,56.2123 -158.3588,56.1924 -158.2639,56.1856 -158.2813,56.2036 -158.2584,56.2305 -158.2356,56.2473 -158.2075,56.2582 -158.169,56.2736 -158.0539,56.2536 -157.9375,56.2108 -157.9755,56.1835 -158.0019,56.1745 -158.0561,56.1614 -158.0561,56.1078 -157.9995,56.1186 -157.9673,56.1291 -157.9273,56.1485 -157.9055,56.1635 -157.8489,56.1687 -157.9302,56.1162 -158.0797,56.0792 -158.1218,56.1088 -158.2221,56.0307 -158.2124,55.9769 -158.2233,55.9379 -158.2285,55.9228 -158.3079,55.9763 -158.3226,56.0346 -158.26,56.0843 -158.2063,56.1135 -158.2217,56.1274 -158.2612,56.1267 -158.323,56.1215 -158.3779,56.0434 -158.3801,56.0214 -158.3683,55.9554 -158.3673,55.9287 -158.3985,55.8881 -158.4757,55.8916 -158.4535,55.9084 -158.4654,55.9365 -158.4967,55.943 -158.5724,55.9451 -158.5913,55.9326 -158.628,55.8935 -158.6627,55.8631 -158.7442,55.8541 -158.7969,55.855 -158.8608,55.8482 -159.0838,55.8084 -159.193,55.7567 -159.2334,55.7256 -159.2267,55.6966 -159.2713,55.594 -159.2844,55.5754 -159.3538,55.524 -159.3907,55.5118 -159.4236,55.5016 -159.4437,55.4979 -159.4545,55.4976 -159.4647,55.5429 -159.4,55.6192 -159.3463,55.7463 -159.3668,55.7593 -159.4341,55.7774 -159.47,55.7825 -159.5645,55.7843 -159.6971,55.7497 -159.7577,55.7237 -159.7785,55.6968 -159.753,55.6758 -159.7495,55.6557 -159.7874,55.6311 -159.8665,55.5945 -160.0029,55.5714 -160.0317,55.5709 -160.1426,55.5644 -160.1622,55.5052 -160.2002,55.4271 -160.2305,55.4127 -160.2635,55.4148 -160.3148,55.4935 -160.3551,55.5012 -160.4812,55.4684 -160.3982,55.4517 -160.3797,55.4352 -160.3917,55.4013 -160.4216,55.39 -160.4852,55.3826 -160.5123,55.3817 -160.5327,55.3864 -160.5581,55.3992 -160.562,55.425 -160.5562,55.4455 -160.5777,55.4548 -160.5977,55.4556 -160.6214,55.4534 -160.6502,55.4474 -160.6693,55.4375 -160.6962,55.4095 -160.7195,55.3802 -160.7479,55.362 -160.8015,55.3423 -160.971,55.2828 -161.2318,55.3032 -161.2048,55.4179 -161.1235,55.4892 -161.083,55.5057 -161.0552,55.4853 -161.0347,55.4724 -161.0072,55.465 -160.8944,55.4512 -160.8668,55.4649 -161.1252,55.5645 -161.1612,55.5695 -161.2044,55.5678 -161.2284,55.5657 -161.2825,55.5572 -161.3318,55.5445 -161.4354,55.4415 -161.4246,55.3375 -161.5435,55.23 -161.6491,55.1596 -161.6761,55.167 -161.7224,55.1712 -161.743,55.171 -161.7648,55.1653 -161.7345,55.1206 -161.6906,55.0666 -161.6818,55.0609 -161.6814,55.047 -161.6977,55.0344 -161.7831,55.0079 -161.8103,55.0143 -161.8439,55.0327 -161.8576,55.0492 -161.8378,55.0642 -161.8201,55.0941 -161.8884,55.0858 -161.9392,55.0363 -161.9185,54.9842 -161.9393,54.9632 -161.9705,54.954 -161.9928,54.9512 -162.1667,54.972 -162.1893,54.9797 -162.2192,54.9973 -162.2447,55.027 -162.2376,55.048 -162.2103,55.0536 -162.1998,55.1025 -162.2258,55.1474 -162.2889,55.2293 -162.3566,55.2321 -162.3905,55.2219 -162.4344,55.1762 -162.4352,55.145 -162.4117,55.1284 -162.3169,55.0589 -162.2885,54.8936 -162.3718,54.9361 -162.4508,54.887 -162.4749,54.8759 -162.5042,54.8701 -162.5816,54.8655 -162.5952,54.8665 -162.6381,54.886 -162.681,54.9168 -162.6959,54.938 -162.6948,54.9672 -162.7393,55.0168 -162.8371,55.0608 -162.8998,55.0746 -162.9589,55.0312 -162.9393,54.9686 -162.9265,54.9487 -162.9005,54.9388 -162.8622,54.9301 -162.7953,54.9097 -162.7767,54.8998 -162.774,54.8685 -162.9585,54.7726 -163.052,54.7441 -163.0745,54.7455 -163.1044,54.7943 -163.0555,54.8107 -162.9987,54.8786 -162.9787,54.9091 -163.0021,54.9279 -163.0465,55.0521 -163.027,55.0653 -162.9581,55.0888 -162.9016,55.108 -162.8394,55.1191 -162.7968,55.123 -162.7138,55.1151 -162.6864,55.0991 -162.6609,55.1125 -162.6068,55.1789 -162.6063,55.2024 -162.511,55.2364 -162.3467,55.2891 -162.2976,55.275 -162.2688,55.2773 -162.2112,55.3077 -162.2272,55.3787 -162.2651,55.39 -162.1997,55.4406 -162.1441,55.4835 -161.9792,55.6075 -161.9542,55.6209 -161.8077,55.6938 -161.7374,55.7172 -161.5588,55.8014 -161.5259,55.8179 -161.4948,55.8273 -161.1099,55.8935 -161.0839,55.8846 -160.963,55.8766 -160.7875,55.869 -160.7334,55.8468 -160.7415,55.8214 -160.6612,55.7537 -160.5913,55.7025 -160.5684,55.6877 -160.5276,55.6616 -160.4006,55.6302 -160.3833,55.6688 -160.4247,55.6959 -160.4523,55.7074 -160.4763,55.7091 -160.5099,55.8117 -160.4885,55.8124 -160.4655,55.8054 -160.421,55.7905 -160.3828,55.7873 -160.3588,55.7895 -160.2773,55.7976 -160.226,55.802 -160.1929,55.7731 -160.1978,55.7499 -160.1885,55.7295 -160.0088,55.7045 -159.9716,55.7057 -159.9606,55.7782 -160.0572,55.8037 -160.1783,55.8411 -160.1995,55.8494 -160.2479,55.8694 -160.2938,55.9275 -160.172,56.0977 -160.1506,56.1191 -160.1413,56.139 -160.1108,56.1779 -160.0903,56.1993 -160.0653,56.2191 -159.9125,56.3068 -159.8263,56.344 -159.7695,56.357 -159.6944,56.388 -159.6623,56.405 -159.6396,56.4225 -159.6063,56.448 -159.5806,56.4615 -159.5548,56.4737 -159.4329,56.515 -159.295,56.5486 -159.2673,56.5525 -159.2299,56.5539 -159.1976,56.5552 -159.1407,56.5678 -159.1164,56.5759 -159.0114,56.6174 -158.9815,56.6333 -158.9533,56.6608 -158.8844,56.6931 -158.7524,56.7378 -158.6938,56.7156 -158.5294,56.7132 -158.3574,56.6957 -158.3653,56.7642 -158.3846,56.7784 -158.407,56.8039 -158.4164,56.9123 -158.3998,56.9448 -158.3676,56.9833 -158.3524,56.9988 -158.3322,57.0166 -158.1662,57.1472 -158.14,57.1672 -158.1182,57.1821 -158.1015,57.1938 -158.0726,57.212 -158.0011,57.2562 -157.9753,57.2661 -157.914,57.2833 -157.8749,57.2911 -157.8498,57.2931 -157.8312,57.2897 -157.8095,57.3113 -157.7817,57.3365 -157.6607,57.4205 -157.5008,57.4814 -157.4573,57.4939 -157.398,57.4951 -157.3836,57.4598 -157.3576,57.4157 -157.2979,57.4062 -157.2713,57.4049 -157.2247,57.4049 -157.1144,57.4244 -157.1093,57.491 -157.1605,57.477 -157.1531,57.4519 -157.1863,57.4289 -157.291,57.4587 -157.3454,57.5413 -157.4016,57.5457 -157.4196,57.5689 -157.4222,57.5965 -157.4044,57.689 -157.3888,57.7155 -157.3606,57.7835 -157.3534,57.8052 -157.3437,57.8442 -157.337,57.9092 -157.3244,58.0147 -157.2997,58.0586 -157.2792,58.0799 -157.2565,58.0978 -157.11,58.1314 -157.0321,58.1391 -156.8987,58.1202 -156.877,58.1015 -156.8523,58.0952 -156.872,58.1248 -156.9213,58.1406 -157.062,58.1657 -157.1422,58.1549 -157.2555,58.1968 -157.2776,58.2374 -157.2714,58.2938 -157.2627,58.3182 -157.1992,58.412 -157.1796,58.4287 -156.9356,58.5711 -156.7829,58.6694 -156.7818,58.6937 -156.6852,58.847 -156.6557,58.8563 -156.6065,58.901 -156.5649,58.9293 -156.4908,59.0803 -156.514,59.0701 -156.5456,59.0521 -156.5741,59.0317 -156.5916,58.9877 -156.585,58.9629 -156.5896,58.9423 -156.7848,58.8197 -156.8216,58.804 -156.903,58.7796 -156.9325,58.7734 -156.966,58.7685 -156.9893,58.7656 -157.0826,58.7483 -157.3872,58.6713 -157.5111,58.6361 -157.702,58.5782 -157.7638,58.5604 -157.8017,58.5513 -157.8318,58.5451 -157.8639,58.5397 -157.9001,58.5367 -157.9388,58.544 -158.0051,58.5671 -158.0271,58.5756 -158.0541,58.6556 -158.0803,58.6816 -158.108,58.6942 -158.15,58.7057 -158.2071,58.7147 -158.2372,58.7221 -158.2667,58.7377 -158.2705,58.7692 -158.234,58.7788 -158.2164,58.7993 -158.1993,58.841 -158.1947,58.9301 -158.0732,58.9535 -157.8822,58.9377 -157.8384,58.9236 -157.8012,58.8933 -157.7815,58.848 -157.7629,58.8265 -157.7282,58.8028 -157.7007,58.8344 -157.7817,58.9233 -157.799,58.9356 -157.8177,58.9466 -157.8365,58.9577 -157.8604,58.9636 -157.9511,58.977 -157.972,58.9773 -157.9926,58.98 -158.0713,58.9966 -158.1548,59.028 -158.1723,59.043 -158.2024,59.0676 -158.2442,59.1028 -158.2537,59.0716 -158.2251,59.0408 -158.238,58.9979 -158.2035,58.9734 -158.3228,58.8507 -158.343,58.8405 -158.4028,58.8125 -158.4402,58.8156 -158.4355,58.8494 -158.4507,58.9213 -158.5272,58.8978 -158.4989,58.8812 -158.479,58.8277 -158.4862,58.7034 -158.504,58.6805 -158.5361,58.6597 -158.562,58.6553 -158.5897,58.6666 -158.5884,58.6929 -158.5534,58.7018 -158.5289,58.7071 -158.5157,58.7315 -158.5465,58.7453 -158.5724,58.741 -158.5944,58.7313 -158.6181,58.6967 -158.6145,58.6543 -158.4654,58.4344 -158.4461,58.4279 -158.4197,58.4231 -158.5049,58.3461 -158.5272,58.337 -158.5474,58.3327 -158.6063,58.3258 -158.6966,58.3388 -158.74,58.349 -158.7714,58.3587 -158.8313,58.4163 -158.8755,58.4737 -159.0519,58.6494 -159.0673,58.6627 -159.1356,58.7125 -159.1733,58.7342 -159.3078,58.8281 -159.3256,58.8734 -159.4381,58.8635 -159.457,58.8553 -159.4982,58.7786 -159.5175,58.7355 -159.5604,58.7145 -159.6192,58.7 -159.664,58.7377 -159.6924,58.7705 -159.8586,58.8214 -159.9305,58.8394 -159.9589,58.8487 -160.0219,58.8825 -160.0017,58.9036 -159.9622,58.9177 -159.9724,58.9375 -160.0254,58.9877 -160.0976,58.9893 -160.1877,58.9577 -160.3853,58.8703 -160.4809,58.8221 -160.5417,58.7988 -160.5736,58.813 -160.5994,58.8149 -160.6832,58.7996 -160.7039,58.7862 -160.7316,58.7728 -160.7558,58.7637 -160.8289,58.7376 -160.8997,58.7243 -160.9532,58.7201 -160.9896,58.7005 -161.0592,58.6582 -161.077,58.6411 -161.0839,58.5991 -161.0632,58.5929 -161.1296,58.5773 -161.335,58.5291 -161.4132,58.5434 -161.5216,58.5567 -161.7801,58.5499 -161.827,58.5631 -161.8675,58.585 -161.7448,58.6066 -161.6965,58.6103 -161.6543,58.5985 -161.6397,58.5774 -161.6133,58.578 -161.5849,58.5853 -161.556,58.5985 -161.4009,58.693 -161.3577,58.7327 -161.3868,58.7511 -161.4169,58.7526 -161.4543,58.7478 -161.493,58.796 -161.4954,58.8305 -161.4932,58.9465 -161.4587,58.9519 -161.4174,58.9635 -161.316,59.0014 -161.2687,59.0357 -161.3238,59.0664 -161.3562,59.0532 -161.3998,59.0427 -161.4318,59.0393 -161.4614,59.0385 -161.5214,59.0449 -161.5524,59.0433 -161.5867,59.0208 -161.554,58.9899 -161.5701,58.991 -161.5916,58.9964 -161.6168,59.0109 -161.6545,59.0414 -161.6933,59.0763 -161.7247,59.1602 -161.6538,59.3095 -161.5208,59.3771 -161.4514,59.3979 -161.4075,59.4254 -161.4776,59.4891 -161.5844,59.6128 -161.6266,59.6612 -161.6725,59.7125 -161.7487,59.7822 -161.7904,59.82 -161.8941,59.938 -161.9314,59.9913 -161.9307,60.0202 -161.8944,60.0786 -161.8531,60.1472 -161.8504,60.1722 -161.8952,60.1668 -161.9285,60.1388 -161.9639,60.0913 -162.0242,60.0624 -162.0493,60.0733 -162.0637,60.0966 -162.0775,60.2595 -162.0051,60.3692 -161.9207,60.4599 -161.9146,60.5082 -161.8032,60.5585 -161.7767,60.5676 -161.7461,60.5713 -161.7196,60.5699 -161.6708,60.5688 -161.6462,60.5752 -161.5721,60.6287 -161.5999,60.6345 -161.8139,60.6176 -161.954,60.543 -161.9723,60.5258 -162.0628,60.3984 -162.1119,60.3205 -162.1569,60.295 -162.2447,60.2619 -162.2628,60.2436 -162.2573,60.1812 -162.2483,60.1583 -162.1897,60.1409 -162.148,60.1181 -162.1422,60.0972 -162.1699,59.9777 -162.1854,59.9512 -162.2042,59.9285 -162.236,59.9159 -162.2728,59.9111 -162.4522,59.8856 -162.664,59.8287 -162.7937,59.7907 -162.8331,59.781 -162.8666,59.7747 -163.0321,59.7509 -163.0572,59.7478 -163.1228,59.7418 -163.352,59.723 -163.4478,59.7245 -163.5353,59.728 -163.6383,59.7377 -163.6982,59.7447 -163.7568,59.7523 -163.7912,59.761 -163.8296,59.7758 -163.8488,59.7878 -163.8656,59.8057 -163.891,59.8437 -163.9048,59.8779 -163.8883,59.8897 -163.8583,59.8945 -163.8145,59.8963 -163.7849,59.9056 -163.8799,59.9506 -163.9045,59.959 -163.9454,59.9717 -164.0379,59.9898 -164.1083,60.0155 -164.1815,60.082 -164.3359,60.1721 -164.3504,60.1942 -164.3363,60.2112 -164.3673,60.223 -164.4334,60.2181 -164.4641,60.2186 -164.5106,60.2275 -164.6368,60.2549 -164.6954,60.2731 -164.724,60.287 -164.826,60.3678 -164.7836,60.382 -164.717,60.3926 -164.6591,60.4413 -164.6672,60.4671 -164.6972,60.4741 -164.7279,60.473 -164.7534,60.4692 -164.7837,60.4619 -164.8367,60.4436 -164.8728,60.429 -164.8943,60.425 -164.9359,60.4241 -164.9567,60.4261 -165.0532,60.4365 -165.0725,60.4441 -165.1093,60.4789 -165.0565,60.5076 -164.9523,60.5217 -164.6984,60.624 -164.6728,60.6504 -164.5917,60.7459 -164.535,60.7948 -164.4483,60.8251 -164.4276,60.8301 -164.3968,60.8353 -164.3461,60.8376 -164.3302,60.8227 -164.3707,60.7896 -164.3792,60.7645 -164.3428,60.7462 -164.3219,60.7444 -164.1177,60.728 -163.9588,60.7092 -163.9374,60.6256 -163.9709,60.6176 -164.0091,60.5843 -164.0742,60.5384 -164.126,60.4859 -164.101,60.4794 -164.0811,60.4839 -164.0154,60.5338 -163.9411,60.5693 -163.9022,60.5715 -163.8408,60.5827 -163.8131,60.5941 -163.7975,60.6283 -163.7269,60.6846 -163.669,60.7023 -163.6401,60.707 -163.5541,60.7006 -163.4951,60.6634 -163.5083,60.6353 -163.5233,60.6173 -163.5219,60.5494 -163.4766,60.5042 -163.4352,60.5047 -163.3652,60.5129 -163.3404,60.519 -163.2843,60.5416 -163.2298,60.5642 -163.1485,60.6016 -163.117,60.6291 -163.1021,60.6835 -163.2064,60.7266 -163.3273,60.751 -163.4447,60.7716 -163.5346,60.7733 -163.5772,60.7806 -163.549,60.7962 -163.499,60.8101 -163.4578,60.8095 -163.4331,60.7974 -163.4057,60.7913 -163.3838,60.7897 -163.3575,60.7917 -163.3333,60.7955 -163.244,60.8231 -163.3611,60.9167 -163.4296,60.9182 -163.5807,60.8443 -163.6189,60.8209 -163.6513,60.7943 -163.734,60.7833 -163.7677,60.7845 -163.7893,60.7894 -163.8471,60.7942 -163.8699,60.7946 -164.0859,60.7921 -164.1252,60.7894 -164.2332,60.7766 -164.2487,60.7784 -164.284,60.8023 -164.2724,60.8285 -164.3004,60.8501 -164.3236,60.8551 -164.5807,60.8785 -164.6278,60.8789 -164.6586,60.8706 -164.6788,60.8568 -164.7145,60.8393 -164.7596,60.834 -164.8125,60.8449 -164.8358,60.8542 -164.8721,60.8974 -164.8416,60.9206 -164.8119,60.9318 -164.7826,60.937 -164.7363,60.9405 -164.6329,60.945 -164.5449,60.998 -164.5077,61.0289 -164.6506,61.0417 -164.6914,61.0242 -164.6816,60.9992 -164.7126,60.9882 -164.7582,60.992 -164.7983,61.0064 -164.839,61.0523 -164.8054,61.073 -164.7804,61.1241 -164.7782,61.1531 -164.823,61.1821 -164.8087,61.1532 -164.849,61.0968 -164.8848,61.0915 -164.9294,61.0814 -165.051,61.1276 -164.9767,61.177 -164.8397,61.3382 -164.7888,61.3389 -164.7435,61.342 -164.676,61.3963 -164.6423,61.4035 -164.5369,61.4185 -164.4473,61.4611 -164.4312,61.473 -164.3762,61.5253 -164.403,61.5503 -164.446,61.5517 -164.4909,61.5095 -164.619,61.4501 -164.6556,61.4443 -164.7008,61.4251 -164.7591,61.3576 -164.8377,61.3584 -164.8811,61.3319 -164.9713,61.2514 -164.9548,61.2375 -164.9914,61.1837 -165.0878,61.1279 -165.0707,61.1052 -165.0503,61.0982 -165.0296,61.0879 -165.0511,60.9985 -165.0714,60.9944 -165.1042,60.9963 -165.1781,61.0011 -165.2162,61.0091 -165.2845,61.0402 -165.3187,61.0922 -165.3277,61.1694 -165.299,61.2022 -165.3854,61.2259 -165.4237,61.2324 -165.4452,61.234 -165.4997,61.233 -165.5209,61.2349 -165.5395,61.2435 -165.556,61.258 -165.58,61.2856 -165.6029,61.3266 -165.5665,61.3552 -165.5127,61.3679 -165.4752,61.3707 -165.4468,61.4107 -165.4752,61.4448 -165.4979,61.4595 -165.5754,61.4798 -165.6189,61.4804 -165.6437,61.4796 -165.6677,61.4757 -165.7705,61.4453 -165.75,61.4221 -165.7982,61.4171 -165.8521,61.4707 -165.8782,61.5154 -165.8281,61.6385 -165.8322,61.5811 -165.818,61.5597 -165.7684,61.5611 -165.7417,61.5638 -165.5082,61.606 -165.5332,61.6137 -165.615,61.6286 -165.6893,61.6565 -165.7197,61.6818 -165.773,61.7405 -165.4368,61.7659 -165.3142,61.7717 -165.3614,61.8315 -165.3852,61.846 -165.3995,61.8623 -165.4331,61.9103 -165.4362,61.9395 -165.4244,61.9705 -165.3813,62.0401 -165.357,62.0615 -165.3039,62.0886 -165.2463,62.1231 -165.1093,62.2311 -164.9888,62.3272 -164.9469,62.3584 -164.9265,62.3695 -164.7989,62.4356 -164.7512,62.4561 -164.7229,62.4616 -164.6807,62.461 -164.5774,62.4546 -164.326,62.3512 -164.326,62.3512 5,-9.0,United States -164.326,62.3512 -164.367,62.3041 -164.3173,62.3411 -164.326,62.3512 -164.326,62.3512 37,-2.0,Greenland -53.4607,71.2067 -53.4379,71.1855 -53.4237,71.1744 -53.3951,71.1524 -53.3681,71.1364 -53.3453,71.1214 -53.331,71.1102 -53.2964,71.0824 -53.289,71.076 -53.2732,71.0592 -53.2595,71.0414 -53.255,71.0209 -53.2896,70.9863 -53.3038,70.9729 -53.3307,70.9559 -53.3507,70.9486 -53.3795,70.9418 -53.3953,70.939 -53.4286,70.936 -53.5266,70.9307 -53.5458,70.9299 -53.5622,70.931 -53.5932,70.9377 -53.7516,70.9784 -53.7932,70.9903 -53.8328,71.0025 -53.8559,71.0149 -53.8669,71.034 -53.8497,71.0577 -53.8236,71.0737 -53.702,71.1328 -53.5331,71.2127 -53.5124,71.2207 -53.4902,71.2226 -53.4745,71.2191 -53.4607,71.2067 -53.4607,71.2067 14,-6.0,Canada -96.3882,71.1964 -96.3586,71.1993 -96.3409,71.1981 -96.3247,71.1952 -96.3134,71.1888 -96.2496,71.135 -96.2625,71.1123 -96.3394,71.1144 -96.3561,71.1165 -96.4067,71.1264 -96.4192,71.1377 -96.4283,71.196 -96.3882,71.1964 -96.3882,71.1964 19,-5.0,Canada -70.8815,71.0489 -70.8977,71.0247 -70.9135,71.0111 -70.9499,70.9956 -70.9804,70.9888 -71.0765,70.9691 -71.0899,70.9765 -71.0922,70.9865 -71.0844,71.0005 -71.0668,71.0167 -71.0552,71.0243 -71.0376,71.0321 -70.986,71.0485 -70.9552,71.0556 -70.9193,71.0613 -70.9005,71.0632 -70.8735,71.0588 -70.8815,71.0489 -70.8815,71.0489 74,2.0,Norway 25.5273,70.8288 25.4939,70.8305 25.4808,70.8327 25.4647,70.8384 25.3587,70.8889 25.37,70.8923 25.3832,70.8944 25.4636,70.9067 25.4915,70.91 25.5023,70.9163 25.4903,70.9221 25.4731,70.9249 25.4047,70.9318 25.3767,70.9288 25.3368,70.9224 25.3124,70.9167 25.2855,70.9125 25.2501,70.9145 25.2319,70.924 25.2368,70.9485 25.2598,70.9783 25.2764,70.9824 25.3325,70.9888 25.453,70.9962 25.5251,70.9987 25.5574,71.0134 25.6151,71.0444 25.7259,71.0609 25.7445,71.0568 25.7376,71.0293 25.7691,71.0047 25.8274,70.9972 25.8444,71.0 25.8869,71.012 25.92,71.021 25.9295,71.0252 25.9444,71.0265 25.9646,71.0225 25.9786,71.0116 25.9836,70.9949 25.9729,70.9851 25.963,70.9806 25.952,70.9768 25.9031,70.9657 25.865,70.9576 25.8695,70.9108 25.8809,70.9072 25.8978,70.9046 25.9651,70.9027 25.9967,70.9032 26.009,70.9064 26.0186,70.9108 26.032,70.9222 26.0407,70.9279 26.0502,70.9324 26.0835,70.9438 26.108,70.949 26.1213,70.951 26.1376,70.9513 26.1572,70.9435 26.1514,70.9202 26.1408,70.9116 26.1175,70.905 26.0247,70.8811 26.0123,70.8782 25.8608,70.8682 25.845,70.868 25.7845,70.8698 25.6623,70.8618 25.5672,70.8349 25.5551,70.8321 25.5418,70.8302 25.5273,70.8288 25.5273,70.8288 3081,2.0,Norway 6.2412,59.2138 6.1159,59.1882 5.9854,59.2617 6.02,59.3019 6.0617,59.3234 6.0913,59.3358 6.2033,59.4019 6.2208,59.4301 6.3792,59.4694 6.4071,59.4755 6.4347,59.4816 6.4568,59.4838 6.4155,59.4919 6.2416,59.5024 6.216,59.4634 6.1579,59.4 6.1392,59.3813 6.1177,59.368 6.0975,59.3578 6.0707,59.344 5.9293,59.2822 5.8698,59.3361 5.8724,59.365 5.8922,59.3739 5.9313,59.3705 5.976,59.3741 6.1342,59.4078 6.1125,59.4153 5.8843,59.4055 5.7972,59.398 5.7024,59.3654 5.6573,59.3379 5.6902,59.3473 5.7218,59.3548 5.7607,59.3584 5.7828,59.3561 5.8483,59.3079 5.8416,59.273 5.677,59.2377 5.6163,59.2576 5.602,59.2813 5.5916,59.2995 5.5719,59.305 5.5627,59.2504 5.5261,59.2117 5.5063,59.2046 5.4754,59.2053 5.4543,59.2084 5.3791,59.2199 5.2722,59.2797 5.1943,59.3597 5.177,59.4205 5.1692,59.4354 5.2944,59.5521 5.4207,59.628 5.4709,59.656 5.5016,59.632 5.4965,59.5963 5.4724,59.5355 5.4436,59.4773 5.4498,59.4479 5.4893,59.459 5.5077,59.4712 5.5155,59.4818 5.5286,59.511 5.5153,59.5448 5.5311,59.5865 5.5583,59.604 5.6671,59.5963 5.7328,59.6085 5.8014,59.6517 5.8795,59.6688 5.9298,59.6646 6.0505,59.671 6.2919,59.7726 6.1951,59.7601 6.1534,59.7473 6.1184,59.7304 6.0952,59.716 6.0372,59.6901 5.969,59.681 5.8296,59.695 5.7874,59.7085 5.6877,59.7608 5.6946,59.7943 5.7243,59.8371 5.7599,59.8537 5.8135,59.8674 5.865,59.8751 5.8872,59.8777 5.9458,59.8795 5.9683,59.8985 5.9426,59.9306 5.9713,59.9581 5.9923,59.9752 6.0194,59.9927 6.0968,60.0337 6.0622,60.1081 6.1932,60.2225 6.3201,60.2829 6.4623,60.3436 6.4918,60.3529 6.5118,60.3562 6.5523,60.3559 6.5962,60.349 6.6226,60.333 6.5952,60.3043 6.5726,60.2768 6.5193,60.1861 6.4967,60.0807 6.4939,60.035 6.5096,60.0109 6.5113,60.0478 6.5132,60.0683 6.5218,60.0933 6.5662,60.1821 6.603,60.2509 6.64,60.2999 6.7292,60.3637 6.7594,60.3836 6.7807,60.3939 6.8211,60.4005 6.9209,60.4118 6.9662,60.4092 7.0039,60.4028 7.0365,60.3982 7.0642,60.4052 7.0886,60.4228 6.9663,60.4324 6.9602,60.4729 6.9966,60.5103 6.9631,60.507 6.9393,60.4973 6.8953,60.4705 6.877,60.4588 6.8631,60.4445 6.7993,60.4154 6.6765,60.367 6.6517,60.3584 6.6097,60.357 6.5802,60.3729 6.5556,60.3864 6.455,60.3689 6.3631,60.3463 6.3324,60.3341 6.296,60.3179 6.2733,60.3131 6.2415,60.3193 6.2096,60.3344 6.176,60.2747 6.1437,60.2 6.1138,60.1685 5.9711,60.1635 5.8888,60.0787 5.8687,59.9724 5.8484,59.9511 5.7962,59.9293 5.7458,59.9136 5.7365,59.9146 5.6973,59.9329 5.6744,59.9724 5.6313,60.0731 5.5937,60.0686 5.5625,60.0682 5.5386,60.0763 5.623,60.2391 5.6666,60.2867 5.7005,60.2935 5.7173,60.3108 5.6147,60.2849 5.5341,60.1853 5.4407,60.1066 5.4012,60.057 5.3916,60.0595 5.3513,60.0737 5.2962,60.1167 5.2129,60.1339 5.302,60.1885 5.1545,60.2091 5.1354,60.2881 5.194,60.3193 5.2428,60.3548 5.2215,60.405 5.2496,60.4336 5.2755,60.4485 5.3023,60.4486 5.3373,60.4316 5.3545,60.4195 5.3799,60.4046 5.4493,60.3635 5.4767,60.3494 5.5161,60.3425 5.5968,60.3418 5.6265,60.3437 5.6957,60.3865 5.705,60.4175 5.7093,60.601 5.6903,60.6205 5.6503,60.6358 5.6173,60.6394 5.5522,60.6168 5.5241,60.5659 5.3502,60.4917 5.3092,60.4849 5.2584,60.4798 5.2317,60.484 5.189,60.5043 5.0864,60.5811 5.1256,60.5851 5.1672,60.5577 5.2071,60.5437 5.1266,60.6374 5.1007,60.6501 5.0773,60.656 5.0177,60.6701 4.9219,60.727 4.9954,60.7279 5.0925,60.6949 5.2081,60.6615 5.274,60.6449 5.2981,60.6189 5.3251,60.5714 5.3496,60.5592 5.4178,60.5538 5.4267,60.5865 5.3985,60.6265 5.3539,60.6549 5.3164,60.6652 5.245,60.6811 5.2275,60.6971 5.3405,60.7744 5.3601,60.782 5.4284,60.791 5.4678,60.7857 5.4946,60.7878 5.5218,60.7972 5.4504,60.8243 5.334,60.7996 5.3135,60.7818 5.3008,60.7563 5.2442,60.7367 5.1357,60.7339 5.1083,60.7416 5.1102,60.7606 5.0946,60.7563 5.0605,60.7558 5.0364,60.7674 4.9741,60.8767 4.9946,60.9259 5.003,60.9662 5.0457,60.9882 5.0947,60.999 5.1185,60.9979 5.1594,60.9942 5.2329,60.9804 5.2572,60.9602 5.2865,60.9532 5.4091,60.9516 5.4489,60.9664 5.4683,60.9813 5.6145,61.0148 5.7151,61.0232 5.7811,61.0287 5.8184,61.0337 5.9095,61.049 6.105,61.0417 6.237,61.0206 6.2554,61.0121 6.3093,60.992 6.3603,60.9877 6.3947,60.9925 6.5007,61.0229 6.578,61.0771 6.6423,61.0774 6.8054,61.0675 6.8246,61.0626 6.9457,61.0047 6.9961,60.9417 7.1151,60.8412 7.1057,60.8075 7.0905,60.7862 7.1004,60.7865 7.1229,60.7959 7.1438,60.8172 7.1543,60.8414 7.1472,60.8707 7.0914,60.8822 7.0587,60.9006 7.0057,60.9621 6.9848,61.0137 7.0125,61.0269 7.0453,61.0256 7.0695,61.027 7.1589,61.0337 7.299,61.0495 7.4145,61.1071 7.3889,61.1196 7.3569,61.1254 7.3394,61.1374 7.2904,61.2166 7.35,61.2905 7.4409,61.3513 7.4615,61.3623 7.5125,61.3768 7.5481,61.3957 7.4415,61.3701 7.4105,61.358 7.3146,61.301 7.2954,61.2878 7.2658,61.251 7.2592,61.2044 7.2838,61.1759 7.3399,61.1157 7.2644,61.0845 7.135,61.0686 6.9481,61.0357 6.9174,61.0414 6.9054,61.0601 6.8933,61.0873 6.8323,61.1003 6.8017,61.1068 6.7615,61.1065 6.7173,61.1033 6.5666,61.1372 6.553,61.1529 6.5713,61.1713 6.6081,61.1876 6.627,61.1996 6.6824,61.2685 6.6997,61.32 6.5788,61.1942 6.5082,61.1718 6.5263,61.13 6.4892,61.058 6.4165,61.0388 6.3342,61.0361 6.3069,61.0405 6.2258,61.0608 5.9539,61.0821 5.7382,61.0785 5.5479,61.0571 5.5131,61.0431 5.4952,61.0311 5.4581,61.0146 5.3969,60.9965 5.3872,60.9944 5.3154,61.0221 5.2679,61.0365 5.1499,61.0586 5.1063,61.0674 5.0396,61.0908 5.0816,61.115 5.1138,61.1136 5.1564,61.1028 5.1877,61.0901 5.209,61.0875 5.2332,61.1079 5.1965,61.1283 5.1263,61.1499 5.1034,61.15 5.0789,61.1483 5.0099,61.1403 4.982,61.1433 4.9431,61.1815 5.161,61.2589 5.4046,61.2961 5.4368,61.3011 5.3964,61.3019 5.248,61.2905 5.1565,61.2769 5.1362,61.2731 5.1103,61.265 5.0684,61.2477 5.0375,61.2426 4.9943,61.2733 4.9401,61.3358 4.9587,61.3462 5.0611,61.3703 5.1739,61.3786 5.3264,61.3776 5.5228,61.3545 5.6108,61.3767 5.7571,61.3758 5.7853,61.3731 5.7569,61.4047 5.7283,61.4153 5.7006,61.4197 5.6694,61.4199 5.633,61.4169 5.611,61.409 5.5733,61.3907 5.5522,61.3839 5.4477,61.3757 5.1786,61.4239 5.13,61.4441 5.1329,61.4771 5.2402,61.4763 5.2638,61.4829 5.2386,61.4938 5.2028,61.5025 5.1437,61.5139 5.1971,61.5243 5.2635,61.5232 5.3099,61.518 5.2863,61.5288 5.265,61.5312 5.2252,61.5334 5.1849,61.5326 5.1085,61.535 5.2237,61.5495 5.1819,61.552 5.108,61.5521 4.9881,61.5528 4.9625,61.5572 4.9301,61.6 4.956,61.644 4.9734,61.6648 5.0581,61.6926 5.2709,61.78 5.3493,61.829 5.4069,61.8357 5.5853,61.8197 5.6655,61.8051 5.6906,61.7931 5.7339,61.7668 5.9761,61.7547 6.0503,61.7553 6.2203,61.7616 6.2411,61.7607 6.2871,61.7542 6.3159,61.7434 6.3362,61.7356 6.3885,61.7285 6.4569,61.7255 6.5013,61.7319 6.5308,61.7505 6.5402,61.7742 6.576,61.792 6.6117,61.7953 6.6456,61.7944 6.6704,61.7915 6.7048,61.7865 6.7262,61.7824 6.7505,61.7924 6.6751,61.8064 6.639,61.8095 6.5919,61.8067 6.5548,61.8042 6.5331,61.7975 6.5139,61.782 6.4919,61.7554 6.4105,61.7536 6.3715,61.7565 6.337,61.7616 6.2075,61.7786 5.9317,61.794 5.8947,61.7873 5.7915,61.7808 5.7464,61.7935 5.7177,61.8129 5.7502,61.8201 5.7915,61.8255 5.8255,61.8281 5.8682,61.8307 5.8232,61.8363 5.7712,61.8397 5.5235,61.8512 5.4234,61.8593 5.3829,61.855 5.3107,61.8381 5.2796,61.8322 5.1449,61.8168 5.0938,61.8386 5.1359,61.8936 5.1778,61.8809 5.2103,61.8859 5.3889,61.9431 5.2688,61.9989 5.1968,62.0207 5.1764,62.0254 5.1059,62.0278 5.0861,62.0343 5.0637,62.077 5.0706,62.1008 5.1486,62.1366 5.1838,62.1257 5.2377,62.0958 5.4364,61.9818 5.4567,61.9625 5.4521,61.9335 5.4585,61.9311 5.4859,61.9494 5.5376,62.0025 5.5005,62.0141 5.4525,62.0201 5.4123,62.0288 5.3771,62.0449 5.4105,62.102 5.445,62.108 5.4733,62.1083 5.6725,62.0963 5.8408,62.122 5.8751,62.1174 5.9031,62.1032 5.9123,62.0842 5.9087,62.0378 5.939,62.0309 6.0308,62.0228 6.2563,61.9974 6.2803,61.9832 6.3481,61.9851 6.2549,62.0106 6.164,62.0184 6.1113,62.021 6.0808,62.0281 5.9089,62.1307 5.9376,62.1781 5.9653,62.1964 6.0047,62.2195 6.04,62.2306 6.2802,62.2937 6.3083,62.2913 6.4582,62.1644 6.5373,62.0897 6.5493,62.0658 6.5209,62.0347 6.574,62.0586 6.5595,62.0911 6.4678,62.1884 6.4336,62.2134 6.4061,62.229 6.3741,62.2779 6.3828,62.301 6.4081,62.3135 6.6903,62.3685 6.8647,62.3362 6.8617,62.3055 6.8621,62.2759 6.9196,62.2281 6.9539,62.2161 6.9718,62.2041 6.985,62.1834 6.9942,62.1138 6.9678,62.0883 6.9281,62.0594 6.9313,62.033 6.9607,62.0139 6.9898,62.0098 7.0045,62.0092 7.0296,62.0107 7.0553,62.0155 7.0741,62.0284 7.051,62.0273 7.0254,62.0225 6.9972,62.0225 6.9688,62.0304 6.9566,62.047 6.9853,62.0687 7.0135,62.0868 7.0239,62.1109 7.0207,62.142 7.0141,62.1902 7.0907,62.1979 7.1642,62.1993 6.9544,62.2383 6.9092,62.2865 6.9543,62.2966 6.8949,62.3426 6.8419,62.3731 6.7735,62.4006 6.6647,62.3925 6.6433,62.3841 6.5352,62.359 6.5034,62.3534 6.3718,62.3431 6.2438,62.3796 6.3576,62.4078 6.4243,62.417 6.4928,62.4204 6.5762,62.4159 6.6059,62.4178 6.6339,62.4191 6.6191,62.4362 6.537,62.4537 6.487,62.4544 6.4463,62.4538 6.3026,62.4476 6.2553,62.453 6.241,62.5012 6.2854,62.5232 6.3202,62.5311 6.5397,62.5343 6.5889,62.5071 6.6912,62.5595 6.7227,62.5727 6.7441,62.576 6.9509,62.5732 7.0762,62.571 7.349,62.5093 7.5023,62.4606 7.5245,62.4227 7.5662,62.471 7.6664,62.4804 7.7575,62.4983 7.7159,62.5028 7.5919,62.4918 7.5691,62.4894 7.537,62.4841 7.51,62.4837 7.4832,62.4858 7.4601,62.4895 7.4392,62.4974 7.4045,62.5188 7.3975,62.5402 7.5083,62.59 7.5871,62.6152 7.6156,62.6223 7.7707,62.6477 7.81,62.653 7.8477,62.6552 7.9814,62.6592 8.0601,62.6372 8.0992,62.6206 8.1222,62.6168 8.1063,62.6423 8.0307,62.6768 7.9841,62.6868 7.6777,62.6549 7.6545,62.6519 7.5417,62.6225 7.5173,62.6134 7.4704,62.6029 7.3756,62.6063 7.3537,62.6493 7.4394,62.6782 7.4768,62.6884 7.5267,62.699 7.5752,62.703 7.631,62.707 7.6664,62.7142 7.6262,62.7178 7.6051,62.7177 7.4438,62.699 7.4148,62.6882 7.3909,62.6787 7.3125,62.6679 7.1896,62.6587 6.9657,62.6446 6.9412,62.647 6.9609,62.7219 6.9786,62.7796 6.925,62.8291 6.936,62.854 7.0228,62.89 7.0766,62.9066 7.0969,62.9108 7.2509,62.934 7.2839,62.9245 7.367,62.8801 7.4307,62.8376 7.4531,62.8342 7.5063,62.8401 7.5608,62.8562 7.5912,62.8772 7.6342,62.8917 7.6669,62.8972 7.7036,62.9001 7.7326,62.8998 7.7629,62.8879 7.7253,62.8616 7.6896,62.8507 7.6587,62.836 7.7149,62.8402 7.88,62.8762 7.9281,62.8915 7.9487,62.8958 7.969,62.8954 7.9953,62.8896 8.0408,62.8742 8.0683,62.8636 8.0935,62.8268 8.1342,62.7441 8.1642,62.7236 8.1984,62.7148 8.2706,62.7045 8.291,62.6997 8.4764,62.6383 8.5098,62.6164 8.5245,62.6028 8.5319,62.5771 8.5532,62.5987 8.5435,62.6322 8.311,62.7263 8.2847,62.7323 8.2296,62.7393 8.1677,62.7668 8.1571,62.8195 8.1378,62.8669 7.9906,62.9183 7.9523,62.9269 7.9307,62.9194 7.8855,62.9174 7.8656,62.9252 7.9593,63.0029 8.0226,63.0257 8.0549,63.0309 8.0822,63.0263 8.1141,63.0004 8.1134,62.9706 8.2916,62.8607 8.3171,62.8193 8.3417,62.8034 8.4805,62.769 8.5153,62.7701 8.4941,62.7934 8.4011,62.874 8.4291,62.8822 8.4549,62.8832 8.5002,62.8815 8.5551,62.8823 8.5807,62.8831 8.64,62.8945 8.4989,62.9056 8.4143,62.9012 8.3655,62.8937 8.2105,62.9502 8.1453,63.0406 8.2297,63.0687 8.2924,63.0731 8.5152,63.0583 8.5524,63.0639 8.5599,63.0872 8.6148,63.105 8.7057,63.1086 8.7508,63.1153 8.7869,63.1178 8.9229,63.1302 8.8541,63.1317 8.8076,63.1297 8.6015,63.1222 8.4631,63.2138 8.5232,63.2315 8.5676,63.2344 8.6093,63.2347 8.6344,63.2366 8.655,63.2403 8.7413,63.2648 8.6918,63.2727 8.6242,63.3177 8.6552,63.3358 8.7202,63.338 8.7288,63.3412 8.9504,63.3665 8.9833,63.3864 9.0511,63.3625 9.0964,63.3349 9.1282,63.296 9.2136,63.2759 9.3552,63.2903 9.3996,63.2966 9.4502,63.318 9.3765,63.3048 9.1987,63.2905 9.1472,63.3113 9.1348,63.4075 9.2294,63.457 9.3097,63.4612 9.3981,63.4557 9.4507,63.4888 9.4765,63.5098 9.516,63.5263 9.6286,63.5455 9.6985,63.5519 9.9388,63.3558 9.9239,63.3152 9.9566,63.2783 10.0211,63.2702 10.1328,63.2419 10.2347,63.2124 10.2431,63.1872 10.2583,63.2388 10.2407,63.2572 10.2087,63.2647 10.145,63.2658 10.1027,63.2696 10.0553,63.2835 10.0263,63.3057 10.0448,63.3415 10.0677,63.3523 10.1056,63.3621 10.1266,63.3659 10.2531,63.3849 10.2803,63.3853 10.423,63.3745 10.505,63.3561 10.5301,63.3529 10.5567,63.3535 10.7168,63.3609 10.8343,63.3657 10.868,63.3693 10.8904,63.38 10.8552,63.3927 10.7908,63.3972 10.7571,63.4042 10.7406,63.4277 10.7588,63.454 10.7874,63.4633 10.8687,63.4682 10.8959,63.4741 10.8916,63.5215 10.8577,63.5229 10.7058,63.4868 10.6669,63.4696 10.6455,63.467 10.6996,63.5266 10.7216,63.538 10.9031,63.6086 10.9444,63.6222 11.025,63.6336 11.056,63.621 11.1338,63.6272 11.1612,63.6356 11.2007,63.6657 11.2315,63.6892 11.2574,63.6944 11.3152,63.6967 11.3994,63.7042 11.4376,63.7195 11.405,63.7623 11.273,63.7867 11.253,63.7891 11.2115,63.7848 11.1709,63.7722 11.1153,63.7643 11.0827,63.7707 11.0739,63.8073 11.2425,63.8819 11.3251,63.8937 11.3985,63.8979 11.4655,63.9265 11.4012,63.9478 11.2968,63.953 11.3354,64.0292 11.2908,64.0372 11.1906,63.9648 11.1821,63.9431 11.1584,63.9288 11.1086,63.9097 11.0709,63.8994 11.0301,63.8904 10.9852,63.8764 10.9237,63.8557 10.8916,63.8359 10.7854,63.7994 10.744,63.7909 10.7112,63.7872 10.6746,63.7781 10.5591,63.726 10.6186,63.7353 10.7309,63.7669 10.8386,63.8009 10.8808,63.8148 11.0005,63.7968 11.0529,63.761 10.9205,63.6594 10.8985,63.6521 10.8592,63.6471 10.8264,63.6419 10.7865,63.633 10.6128,63.5838 10.595,63.5613 10.5264,63.5371 10.3723,63.4904 10.2947,63.4794 10.2327,63.4789 10.1969,63.4717 10.1491,63.4489 10.073,63.424 10.0282,63.4178 9.9805,63.417 9.9029,63.4284 9.789,63.5437 9.77,63.5841 9.7889,63.6101 9.8382,63.6109 9.8959,63.6214 9.9856,63.6419 10.0441,63.6647 10.075,63.6809 9.9858,63.694 9.8862,63.6712 9.7139,63.6225 9.5515,63.583 9.5279,63.5838 9.5267,63.6873 9.5601,63.7069 9.612,63.7289 9.6817,63.7448 9.806,63.7857 9.8428,63.8073 10.117,63.8605 10.1444,63.8558 10.1727,63.8541 10.1535,63.8732 10.1001,63.9062 10.0348,63.9028 9.9628,63.9117 10.0008,63.9871 10.146,64.1105 10.2342,64.1494 10.3288,64.1945 10.4266,64.2447 10.4414,64.2633 10.4576,64.2762 10.4919,64.288 10.5376,64.2823 10.5692,64.2655 10.6312,64.2759 10.5455,64.3101 10.469,64.3213 10.44,64.3232 10.4745,64.3439 10.499,64.349 10.5677,64.3515 10.6305,64.3457 10.6513,64.334 10.7412,64.3003 10.7869,64.2862 10.8282,64.2907 10.7858,64.3449 10.7648,64.3597 10.7264,64.3594 10.6942,64.3538 10.6677,64.3538 10.6416,64.3635 10.6743,64.389 10.7873,64.4269 10.8135,64.4254 10.8796,64.4103 10.9148,64.4934 10.944,64.5209 11.0135,64.4992 11.0412,64.4837 11.0392,64.4628 11.0436,64.4396 11.2512,64.3718 11.2634,64.2949 11.1997,64.2367 11.2367,64.254 11.3225,64.3093 11.4161,64.385 11.4238,64.4111 11.4852,64.4641 11.5085,64.4709 11.536,64.4715 11.5576,64.4695 11.5978,64.472 11.7049,64.4998 11.6646,64.5098 11.5676,64.4984 11.5154,64.4837 11.4861,64.4917 11.4552,64.5121 11.4381,64.5251 11.3746,64.5896 11.3953,64.6174 11.4158,64.6308 11.529,64.6814 11.5753,64.6915 11.6194,64.6948 11.6459,64.6912 11.7155,64.689 11.7717,64.6977 11.8161,64.7146 11.77,64.7227 11.7192,64.7225 11.6682,64.7283 11.6202,64.7375 11.632,64.7622 11.7102,64.7951 11.9291,64.8495 12.0421,64.8753 12.0639,64.8778 12.1223,64.8712 12.1516,64.8576 12.1928,64.8599 12.1624,64.8747 12.1324,64.8838 12.1042,64.8894 12.0647,64.8921 12.0175,64.8903 11.8896,64.8645 11.8701,64.8589 11.7238,64.8124 11.4223,64.6991 11.3639,64.6696 11.3312,64.6619 11.2793,64.6547 11.2195,64.6534 11.2703,64.6703 11.3522,64.7252 11.3075,64.7278 11.2155,64.7391 11.2504,64.7599 11.3519,64.7716 11.4123,64.7766 11.4543,64.7757 11.5267,64.7834 11.673,64.8182 11.6515,64.8226 11.6039,64.8158 11.2878,64.7753 11.2309,64.7751 11.2794,64.8045 11.3296,64.8208 11.405,64.8431 11.5244,64.8689 11.6089,64.8806 11.6596,64.8752 11.6907,64.878 11.7567,64.8927 11.7796,64.9187 11.855,64.9578 11.9194,64.9781 11.9436,64.9829 11.9514,64.9846 11.9804,64.9785 11.9858,64.9707 11.9873,64.9564 11.9993,64.9458 12.021,64.9716 12.1248,64.9583 12.2303,64.9718 12.3959,65.0033 12.5996,65.0521 12.9134,65.239 12.7952,65.1892 12.6776,65.1323 12.6496,65.119 12.455,65.0529 12.366,65.0592 12.3436,65.0765 12.3977,65.1492 12.4853,65.1587 12.5926,65.161 12.6501,65.1703 12.6233,65.183 12.4065,65.1903 12.343,65.1879 12.3149,65.1808 12.2351,65.1446 12.2248,65.1502 12.3111,65.2106 12.4533,65.2782 12.4844,65.2849 12.513,65.296 12.4557,65.3593 12.5266,65.3643 12.5833,65.3427 12.6092,65.3341 12.5825,65.377 12.5369,65.4223 12.506,65.4348 12.4806,65.4286 12.4517,65.4308 12.3964,65.4464 12.368,65.462 12.331,65.5079 12.3303,65.5583 12.4098,65.618 12.4693,65.6442 12.5064,65.6443 12.547,65.6315 12.586,65.5787 12.6219,65.5545 12.7284,65.5446 12.7582,65.5526 12.6412,65.5979 12.5569,65.6452 12.5281,65.6653 12.5838,65.7602 12.6221,65.8165 12.6454,65.8364 12.6696,65.8482 12.7189,65.8663 12.7572,65.8776 12.7831,65.8839 12.8091,65.8841 12.8719,65.8698 12.8914,65.8637 13.0295,65.8186 13.1431,65.7671 13.1217,65.8263 13.0908,65.8586 13.0444,65.8572 12.9615,65.8724 12.9148,65.8887 12.8998,65.9027 12.9313,65.956 12.8796,65.9709 12.8595,65.9672 12.7166,65.9561 12.6953,65.9563 12.6483,65.9812 12.8135,66.0443 12.869,66.0508 12.8969,66.0519 12.929,66.0502 12.9579,66.0516 13.0424,66.0633 13.1361,66.0836 13.2007,66.0976 13.2386,66.1159 13.2774,66.1356 13.3245,66.1401 13.5322,66.1505 13.5492,66.1308 13.4999,66.1099 13.5044,66.0274 13.5225,66.0172 13.5854,66.1082 13.6354,66.1425 13.6773,66.1506 13.718,66.1529 13.7396,66.1531 13.7786,66.1473 13.8271,66.1376 13.8496,66.142 13.9705,66.1653 14.1096,66.2368 14.0848,66.2531 13.939,66.2171 13.7193,66.1931 13.6923,66.1703 13.612,66.1553 13.5916,66.1543 13.5621,66.16 13.4549,66.1683 13.3402,66.1578 13.1684,66.1162 13.1473,66.1113 13.1156,66.1044 13.04,66.0923 13.0022,66.1055 13.1845,66.19 13.3152,66.2169 13.3864,66.2128 13.464,66.2117 13.5001,66.2215 13.4468,66.2298 13.2998,66.2344 13.2274,66.2171 13.1921,66.2113 13.1655,66.2097 13.1223,66.2139 13.0172,66.2326 12.9944,66.2408 12.9802,66.2693 13.0157,66.2777 13.0497,66.2838 13.1345,66.3135 13.1284,66.3494 13.0517,66.4112 13.0008,66.412 12.9495,66.4335 13.0591,66.4531 13.0816,66.4529 13.1037,66.4475 13.184,66.4254 13.2569,66.4372 13.4295,66.475 13.4613,66.4948 13.5175,66.5093 13.5387,66.5143 13.6011,66.5171 13.6322,66.5166 13.6856,66.5173 13.6186,66.5276 13.4941,66.5214 13.4446,66.5074 13.4208,66.4913 13.39,66.4719 13.2422,66.4565 13.2074,66.4617 13.1811,66.4703 13.1463,66.5637 13.1648,66.577 13.3635,66.5691 13.4557,66.5593 13.5081,66.5507 13.4879,66.5634 13.4633,66.5767 13.3744,66.5978 13.2946,66.6027 13.2703,66.6051 13.2022,66.6259 13.2601,66.6368 13.375,66.6323 13.4663,66.6252 13.5167,66.6137 13.5428,66.6064 13.6721,66.6061 13.8361,66.635 13.8588,66.6437 13.7114,66.6421 13.6619,66.6371 13.5954,66.6281 13.5582,66.6237 13.5292,66.6262 13.5162,66.6568 13.5432,66.6721 13.5747,66.6756 13.6016,66.6763 13.6522,66.6747 13.6157,66.6824 13.5707,66.6873 13.5407,66.6868 13.512,66.6843 13.4849,66.6968 13.5418,66.7148 13.589,66.7219 13.7182,66.7105 13.9624,66.7009 13.9308,66.7117 13.8979,66.7174 13.8164,66.7164 13.7961,66.7185 13.6644,66.7455 13.4981,66.8151 13.5237,66.8437 13.5437,66.8494 13.5698,66.8517 13.7278,66.8529 13.8998,66.835 13.922,66.8349 14.0936,66.8956 14.1696,66.8879 14.1932,66.8912 14.2425,66.9405 14.2748,66.9688 14.3741,66.9748 14.5027,66.9591 14.5252,66.9375 14.5644,66.9481 14.5482,66.9665 14.3953,66.986 14.3418,66.9855 14.2686,66.9857 14.2396,66.9918 14.2963,67.0586 14.3212,67.0661 14.4186,67.0791 14.5685,67.0772 14.6462,67.0713 14.6792,67.0659 14.6955,67.0482 14.7124,67.0327 14.7211,67.056 14.6948,67.0727 14.6745,67.079 14.5757,67.0901 14.4977,67.0923 14.5222,67.1048 14.5507,67.11 14.7656,67.1259 14.9023,67.1192 14.8991,67.0896 14.8625,67.0636 14.9438,67.008 14.9756,67.0138 14.9562,67.0402 14.9299,67.051 14.9028,67.0587 14.9337,67.0885 14.9899,67.1177 15.0281,67.1237 15.2205,67.1006 15.3231,67.079 15.3475,67.0738 15.3637,67.0574 15.3574,67.0296 15.422,66.987 15.4637,66.9801 15.4406,67.0546 15.3533,67.1088 15.385,67.1219 15.4514,67.1222 15.5018,67.1157 15.5599,67.1052 15.5866,67.0962 15.681,67.0849 15.7034,67.0904 15.664,67.1213 15.3822,67.1501 15.2445,67.1559 15.2242,67.1548 15.1984,67.1471 15.1649,67.1446 15.0402,67.1657 15.0663,67.1722 15.1094,67.1842 15.1226,67.22 15.0074,67.21 14.8284,67.1881 14.7999,67.1662 14.6827,67.1315 14.6622,67.1262 14.6384,67.1223 14.5994,67.1236 14.5099,67.1609 14.3327,67.1551 14.4345,67.2099 14.5303,67.2634 14.5455,67.3072 14.593,67.3304 14.6261,67.3394 14.7306,67.334 14.7685,67.329 14.7817,67.3138 14.8523,67.3192 14.8901,67.3415 14.854,67.3443 14.7985,67.3561 14.7012,67.4048 14.7887,67.4422 14.8864,67.4691 14.9408,67.4773 15.0049,67.4847 15.0425,67.4833 15.1151,67.4553 14.9759,67.4009 14.9551,67.3954 14.9279,67.3904 14.9034,67.3874 14.964,67.383 15.0047,67.3879 15.0775,67.4071 15.295,67.3969 15.3638,67.3925 15.4035,67.3878 15.4335,67.375 15.4984,67.3102 15.5561,67.2316 15.5933,67.1805 15.6124,67.1827 15.6593,67.2102 15.5827,67.266 15.4846,67.3398 15.4993,67.3791 15.5155,67.3964 15.5561,67.4148 15.587,67.4253 15.6722,67.4503 15.7287,67.462 15.7615,67.4647 15.8203,67.466 15.8546,67.4704 15.8064,67.4804 15.6901,67.4725 15.6677,67.4678 15.6258,67.4572 15.6056,67.451 15.5784,67.4406 15.5139,67.4219 15.3284,67.4263 15.2474,67.4326 15.2072,67.4427 15.1508,67.5333 15.2752,67.6304 15.3254,67.6216 15.4228,67.5996 15.4766,67.59 15.6195,67.589 15.5717,67.6024 15.5393,67.6128 15.5084,67.6166 15.4789,67.6152 15.4535,67.6178 15.3699,67.6493 15.4488,67.6433 15.5063,67.6473 15.5446,67.649 15.5755,67.6452 15.6135,67.6304 15.7309,67.6016 15.756,67.5933 15.794,67.5903 15.7484,67.6415 15.6512,67.6635 15.5996,67.6735 15.5566,67.6801 15.3403,67.7061 15.1462,67.6235 15.0415,67.5951 14.9701,67.5769 14.8878,67.5629 14.8132,67.5526 14.782,67.5527 14.7312,67.557 14.7028,67.5656 14.7524,67.6349 14.8684,67.6422 14.9526,67.6416 15.0047,67.6538 15.0022,67.6896 14.9549,67.6903 14.8387,67.6826 14.8115,67.6804 14.7383,67.6976 14.7263,67.7162 14.7623,67.7338 14.9712,67.7527 15.0228,67.7522 15.0449,67.7487 15.0702,67.7657 15.026,67.7698 14.9778,67.7661 14.9119,67.7595 14.8755,67.7538 14.8412,67.7513 14.8194,67.7559 14.8582,67.7822 14.9368,67.8027 14.9611,67.8063 15.0,67.8065 15.1508,67.7929 15.1985,67.7846 15.23,67.7743 15.2991,67.7999 15.4928,67.8339 15.676,67.8603 15.703,67.862 15.741,67.8619 15.7717,67.8549 15.7896,67.8433 15.8381,67.8368 15.8736,67.8605 15.9225,67.9062 15.9277,67.9261 15.8147,67.9517 15.7714,67.9479 15.7298,67.9399 15.6014,67.9438 15.567,67.9458 15.4873,67.9596 15.4099,67.9421 15.4068,67.9178 15.3755,67.9015 15.2908,67.9121 15.2563,67.9436 15.3189,67.9893 15.4006,68.0309 15.4623,68.0386 15.4945,68.0134 15.5598,68.0269 15.5855,68.0374 15.6329,68.0595 15.6883,68.0536 15.702,68.0041 15.6663,68.0009 15.6059,67.9983 15.5898,67.9676 15.6164,67.9582 15.8261,68.009 15.8432,68.0213 15.8645,68.0403 15.9007,68.0952 15.9184,68.1464 15.9802,68.156 16.0068,68.148 16.0707,68.0705 16.0589,67.9813 16.1592,67.8915 16.176,67.8753 16.1877,67.8379 16.1781,67.8142 16.3599,67.735 16.3895,67.725 16.4345,67.7126 16.4617,67.7078 16.4676,67.7185 16.419,67.7609 16.3923,67.7658 16.338,67.776 16.2867,67.7862 16.2252,67.8045 16.1735,67.913 16.2115,67.9241 16.3148,67.9198 16.374,67.9053 16.3937,67.8871 16.4167,67.8752 16.4449,67.868 16.4921,67.8687 16.4551,67.926 16.3885,67.9341 16.354,67.9366 16.3332,67.9458 16.3611,67.975 16.4324,68.0067 16.4757,67.9855 16.5076,67.976 16.6366,67.96 16.6805,67.9798 16.5042,68.0028 16.4791,68.0278 16.4112,68.0242 16.3755,68.0029 16.3085,67.9846 16.2659,68.0128 16.2735,68.0328 16.375,68.0658 16.4492,68.094 16.4236,68.1213 16.3868,68.1227 16.3152,68.1188 16.2839,68.1154 16.2582,68.1087 16.2004,68.102 16.156,68.1052 16.1318,68.1149 16.1448,68.1337 16.1768,68.1315 16.2155,68.1301 16.2792,68.1452 16.2543,68.1567 16.2276,68.1602 16.0719,68.1837 16.1039,68.2185 16.1496,68.2281 16.4823,68.1661 16.5091,68.1523 16.5316,68.1273 16.5981,68.0872 16.6869,68.0534 16.7332,68.0445 16.7649,68.0433 16.6983,68.0849 16.6074,68.1096 16.5579,68.1468 16.4311,68.2066 16.3794,68.2096 16.2107,68.2378 16.1886,68.2599 16.2581,68.2757 16.2829,68.2795 16.5128,68.3086 16.5544,68.3118 16.6712,68.3132 16.6964,68.3103 16.8211,68.2836 16.8406,68.2661 16.8164,68.2513 16.7951,68.2362 16.8579,68.2373 16.9511,68.2552 16.9824,68.2686 17.0176,68.2754 17.0965,68.2801 17.1224,68.2722 17.2907,68.1657 17.2939,68.1008 17.2873,68.0788 17.3219,68.0891 17.3789,68.1499 17.3593,68.1736 17.3071,68.1983 17.2845,68.2062 17.2439,68.216 17.1814,68.2458 17.1665,68.282 17.2161,68.3135 17.2962,68.3124 17.3503,68.3054 17.3825,68.2951 17.4465,68.276 17.5069,68.265 17.5346,68.2726 17.4864,68.2852 17.4455,68.2929 17.3374,68.3213 17.3659,68.3308 17.4523,68.3345 17.534,68.3368 17.535,68.3627 17.5111,68.438 17.4885,68.4381 17.3167,68.4084 17.2868,68.3985 17.2598,68.3782 17.2255,68.3636 17.1894,68.3575 17.1475,68.3541 17.0777,68.3495 17.0207,68.3463 16.9805,68.3517 17.0125,68.365 17.0518,68.375 17.0274,68.3986 16.9627,68.4153 16.9322,68.4121 16.9071,68.4017 16.8769,68.3851 16.833,68.3645 16.8081,68.3611 16.6242,68.3497 16.4924,68.3464 16.4701,68.3483 16.4322,68.424 16.5048,68.4505 16.5418,68.4429 16.5726,68.4405 16.5968,68.4518 16.5507,68.4718 16.5323,68.4831 16.5315,68.5148 16.5894,68.5505 16.7357,68.5798 16.8073,68.5931 16.9372,68.6134 17.1336,68.6194 17.2209,68.6323 17.3198,68.6225 17.3458,68.6112 17.3652,68.5927 17.3932,68.5819 17.4357,68.5747 17.6317,68.5696 17.5914,68.5918 17.5597,68.5955 17.5079,68.5937 17.4503,68.5964 17.2594,68.6431 17.2024,68.665 17.3932,68.7193 17.4134,68.7214 17.4458,68.7193 17.4853,68.708 17.5387,68.6973 17.73,68.6663 17.7547,68.6688 17.7424,68.6913 17.7062,68.6981 17.662,68.6959 17.6234,68.6994 17.5957,68.7046 17.4344,68.7392 17.4544,68.7479 17.6094,68.786 17.6776,68.8016 17.6972,68.7938 17.717,68.7814 17.782,68.7749 17.8065,68.7839 17.6811,68.84 17.6482,68.8407 17.5912,68.837 17.5354,68.8326 17.4815,68.8271 17.4571,68.8226 17.4306,68.813 17.395,68.81 17.4505,68.9014 17.5988,69.0149 17.6499,69.0244 17.6785,69.0264 17.8657,69.0381 18.079,69.0557 18.1092,69.0609 17.9819,69.1379 17.957,69.1409 17.9579,69.191 17.9717,69.2087 17.9915,69.2205 18.0424,69.228 18.0931,69.2497 18.1332,69.297 18.1375,69.3177 18.1348,69.3426 18.1653,69.373 18.2176,69.3966 18.2376,69.399 18.2623,69.3944 18.3097,69.3735 18.4574,69.2837 18.4718,69.2585 18.4997,69.2098 18.6535,69.1723 18.6612,69.1932 18.6351,69.2158 18.7309,69.2354 18.8289,69.2299 18.8527,69.221 18.9063,69.2013 18.934,69.1961 18.9663,69.1979 18.918,69.2319 18.8757,69.2401 18.794,69.2508 18.7521,69.2528 18.7159,69.2593 18.6349,69.2746 18.5973,69.2838 18.5768,69.2912 18.4177,69.3601 18.4253,69.4181 18.4557,69.4298 18.6278,69.4513 18.8095,69.4606 18.8728,69.3749 18.9697,69.3065 19.055,69.2724 19.0761,69.2658 19.1046,69.2602 19.1295,69.2577 19.2058,69.2596 19.2516,69.2561 19.2843,69.2515 19.3075,69.2453 19.3345,69.2287 19.3163,69.1985 19.2738,69.1886 19.2366,69.1869 19.162,69.1864 19.1326,69.17 19.2703,69.1321 19.3026,69.1299 19.3991,69.1368 19.4099,69.1625 19.4103,69.2274 19.376,69.2595 19.317,69.2838 19.2513,69.2925 19.2182,69.2944 19.1712,69.2888 19.1203,69.2862 19.0833,69.2919 18.9571,69.3695 18.9638,69.4156 19.05,69.4445 19.1268,69.4557 19.1485,69.4551 19.1746,69.4466 19.2099,69.4331 19.1851,69.4747 19.1648,69.4761 19.047,69.4651 19.014,69.456 18.9808,69.4424 18.9548,69.4464 18.9149,69.4692 18.9044,69.4894 18.9041,69.5225 18.9541,69.5595 19.0672,69.6221 19.1362,69.6554 19.2051,69.6817 19.2307,69.6856 19.6641,69.7219 19.697,69.7214 19.7301,69.7144 19.7301,69.6901 19.665,69.6137 19.637,69.5813 19.6803,69.5611 19.6744,69.5194 19.657,69.498 19.5852,69.421 19.4916,69.307 19.6409,69.3423 19.6723,69.3856 19.6743,69.4249 19.7854,69.6243 19.8967,69.6968 19.9296,69.6945 20.0027,69.7094 20.0347,69.7522 20.1109,69.8448 20.2446,69.8824 20.267,69.8734 20.343,69.8216 20.3763,69.785 20.3474,69.7349 20.3075,69.6627 20.2894,69.623 20.2735,69.5836 20.2501,69.4847 20.2382,69.3893 20.2204,69.3671 20.1474,69.3128 20.1285,69.3046 20.0564,69.281 20.0143,69.2682 19.9613,69.2569 19.943,69.2487 19.8769,69.181 19.9043,69.167 19.989,69.2215 20.135,69.279 20.1608,69.2874 20.263,69.3267 20.2798,69.3461 20.3124,69.3818 20.4223,69.4832 20.446,69.4852 20.4775,69.472 20.5115,69.4564 20.5669,69.4398 20.6531,69.4205 20.8042,69.4025 20.7793,69.4159 20.6267,69.4639 20.4665,69.5268 20.4409,69.5413 20.5214,69.6712 20.5757,69.6774 20.6649,69.691 20.7257,69.7028 20.76,69.7149 20.7789,69.7474 20.7521,69.7735 20.8565,69.8136 21.0136,69.8555 21.0388,69.8516 21.0129,69.8351 20.9828,69.829 20.9611,69.8225 20.9427,69.814 20.8494,69.7612 20.9001,69.7222 20.9547,69.6955 21.0027,69.6988 21.0911,69.7786 21.1814,69.8824 21.2021,69.9071 21.2668,69.9302 21.3005,69.9341 21.3308,69.9355 21.3677,69.9323 21.3959,69.9265 21.5082,69.8928 21.5532,69.8545 21.5362,69.8315 21.5772,69.8144 21.6329,69.7973 21.6559,69.794 21.6972,69.7927 21.7369,69.7838 21.8437,69.7376 21.8755,69.7161 21.9168,69.68 21.9322,69.6508 21.9872,69.6426 22.0211,69.6413 22.052,69.6536 21.9676,69.7519 21.8571,69.8495 21.7608,69.9494 21.8014,69.9584 21.8425,69.9627 21.9333,69.9642 21.9696,69.9689 22.0444,70.0166 22.004,70.0088 21.9377,69.9948 21.913,69.9902 21.7025,69.9648 21.6777,69.9653 21.4226,70.0102 21.3857,70.0501 21.2821,70.068 21.2554,70.0712 21.2297,70.0801 21.1655,70.1165 21.198,70.1262 21.2528,70.1553 21.4686,70.212 21.5384,70.2018 21.5732,70.1708 21.6818,70.1458 21.7607,70.1533 21.7924,70.1798 21.9377,70.2269 22.1048,70.1911 22.1784,70.1956 22.2116,70.195 22.2608,70.1857 22.2293,70.0897 22.2946,70.0528 22.4923,70.0312 22.4689,70.0458 22.4443,70.0503 22.338,70.066 22.287,70.0726 22.3311,70.1597 22.3575,70.1628 22.4597,70.1591 22.5422,70.143 22.6171,70.1309 22.805,70.1181 22.8803,70.1161 22.9064,70.1126 22.9202,70.0976 22.8394,70.0483 22.7766,70.0212 22.7456,70.0156 22.6707,70.0072 22.5195,69.9933 22.4798,69.9927 22.4306,69.9938 22.3952,69.9909 22.3704,69.9865 22.2795,69.9628 22.2477,69.95 22.2694,69.9456 22.3089,69.9562 22.3338,69.9605 22.3994,69.97 22.4458,69.974 22.5166,69.9765 22.5454,69.9786 22.6008,69.9838 22.7633,70.0027 22.8224,70.011 22.9409,69.997 22.9952,69.9317 23.1165,69.8671 23.2671,69.8518 23.4189,69.8933 23.4832,69.9283 23.4585,69.9343 23.4155,69.9368 23.3825,69.9377 23.3387,69.9356 23.3134,69.9365 23.2811,69.941 23.2093,69.9585 23.1888,69.9655 23.1273,69.9998 23.2206,70.0161 23.292,70.0229 23.3062,70.0548 23.2723,70.099 23.2794,70.128 23.3265,70.1284 23.4658,70.1478 23.4033,70.1585 23.3727,70.1577 23.357,70.1821 23.4127,70.2195 23.5328,70.2915 23.593,70.3155 23.6034,70.3249 23.7607,70.3919 23.8008,70.403 23.8406,70.4083 23.925,70.4169 23.9674,70.4154 24.1979,70.3887 24.2258,70.3827 24.2488,70.3758 24.2663,70.3651 24.2989,70.3655 24.2023,70.4184 24.165,70.4285 24.101,70.4754 24.2411,70.5754 24.2726,70.5868 24.308,70.5958 24.421,70.5848 24.4531,70.5743 24.5683,70.5285 24.5913,70.5217 24.6319,70.5186 24.6583,70.5231 24.6796,70.5395 24.6687,70.5636 24.6436,70.5813 24.5068,70.6459 24.4836,70.6496 24.4248,70.6509 24.3439,70.6573 24.2016,70.678 24.2089,70.7415 24.338,70.7726 24.3563,70.7603 24.4175,70.722 24.5362,70.6902 24.5708,70.683 24.5876,70.7031 24.5524,70.7634 24.5191,70.8414 24.5325,70.8674 24.6117,70.8792 24.6514,70.8803 24.7276,70.8731 24.7992,70.835 24.823,70.8141 24.9215,70.8171 24.9332,70.854 24.9188,70.8711 24.9374,70.8803 24.9684,70.8735 25.0064,70.8607 25.1041,70.8224 25.1626,70.7865 25.1858,70.7636 25.2,70.7444 25.2081,70.7194 25.2884,70.721 25.3347,70.7864 25.3211,70.8188 25.296,70.8362 25.2836,70.8632 25.3083,70.8761 25.3431,70.8725 25.385,70.8601 25.4055,70.8529 25.4616,70.8295 25.4798,70.8163 25.5798,70.7987 25.8036,70.8003 25.8447,70.7956 25.8634,70.7672 25.7984,70.7359 25.7156,70.7087 25.6293,70.6807 25.5954,70.6379 25.5772,70.6227 25.4698,70.5792 25.2993,70.5135 25.1561,70.4619 25.0338,70.414 25.0964,70.4128 25.132,70.4212 25.2026,70.3962 25.2122,70.3169 25.2113,70.3038 25.1797,70.2947 25.1378,70.3011 25.0854,70.2891 25.0307,70.2663 25.0505,70.2254 25.0747,70.225 25.0779,70.1876 24.964,70.1483 24.9287,70.1344 24.9089,70.102 24.8897,70.0552 24.888,70.0002 24.9367,69.9729 24.9571,69.968 24.985,69.9705 24.9985,69.9974 24.9781,70.02 25.0096,70.0498 25.0368,70.0557 25.0289,70.0344 25.0404,70.0012 25.0566,69.9854 25.0954,69.9854 25.1788,69.9981 25.2042,70.0084 25.3395,70.1068 25.4627,70.1784 25.4736,70.2047 25.4325,70.2154 25.3973,70.2201 25.3732,70.2311 25.4017,70.2605 25.4551,70.2819 25.5252,70.3161 25.7403,70.4247 25.8973,70.4928 25.9463,70.5146 25.967,70.5529 26.1833,70.6963 26.2918,70.7578 26.3099,70.7679 26.4633,70.8327 26.4854,70.8397 26.5101,70.8456 26.6261,70.8598 26.6642,70.8304 26.6737,70.8028 26.6277,70.6398 26.6078,70.6261 26.5898,70.6157 26.5679,70.6086 26.5432,70.6027 26.5058,70.5951 26.4792,70.5913 26.4225,70.5863 26.3969,70.5812 26.3113,70.5621 26.2938,70.5471 26.3487,70.5489 26.3859,70.5565 26.4466,70.5646 26.485,70.5657 26.5907,70.5438 26.5424,70.4436 26.4959,70.4058 26.4538,70.337 26.4487,70.2713 26.478,70.2572 26.5074,70.2589 26.5677,70.2807 26.6982,70.3294 26.7388,70.3544 26.741,70.3807 26.7817,70.3884 26.8662,70.3837 26.9134,70.3642 26.9689,70.382 26.93,70.4272 26.9145,70.4728 26.9513,70.4955 27.0041,70.5177 27.0332,70.508 27.1737,70.4896 27.2048,70.4893 27.1711,70.5064 27.149,70.5134 27.0854,70.5306 27.0296,70.6128 27.0784,70.6477 27.1933,70.6563 27.2201,70.6782 27.2474,70.725 27.2814,70.7313 27.3623,70.722 27.4526,70.7139 27.5031,70.7116 27.4481,70.7688 27.3979,70.7828 27.3209,70.7853 27.2474,70.7876 27.2057,70.7891 27.1435,70.796 27.1072,70.8042 27.067,70.8231 27.0745,70.865 27.1663,70.9277 27.2034,70.936 27.4048,70.9118 27.4606,70.9813 27.5022,70.999 27.5886,71.0193 27.6676,70.9934 27.7041,70.9582 27.8144,70.9385 27.9085,70.953 27.944,70.9687 27.9668,70.976 28.1436,70.9863 28.1658,70.9813 28.1853,70.9711 28.1968,70.9542 28.279,70.9099 28.3134,70.908 28.4125,70.8992 28.4525,70.8911 28.4793,70.8804 28.4692,70.8478 28.4558,70.8302 28.3792,70.7672 28.3003,70.7313 28.1942,70.6964 28.1687,70.691 28.0741,70.6871 27.9474,70.6997 27.7375,70.6985 27.7087,70.6927 27.7655,70.6744 27.8235,70.671 27.8586,70.6683 28.056,70.6398 28.0172,70.612 27.9744,70.6019 27.7799,70.5579 27.5951,70.5137 27.6484,70.5102 27.6785,70.5113 27.7343,70.5168 27.7742,70.5226 28.0646,70.5741 28.1073,70.5844 28.1276,70.5934 28.1445,70.605 28.2242,70.6206 28.2374,70.5975 28.2205,70.5574 28.1828,70.5292 28.1595,70.5161 28.1293,70.5029 28.088,70.4857 28.0669,70.4773 27.9343,70.4331 27.9125,70.4261 27.8794,70.4172 27.8551,70.4113 27.813,70.4006 27.7918,70.3898 27.8167,70.3561 27.8392,70.3497 27.9115,70.384 28.0023,70.3988 28.0426,70.4044 28.0848,70.4083 28.1139,70.4064 28.0715,70.3938 28.047,70.3883 28.0247,70.3812 27.986,70.3563 28.0644,70.3457 28.089,70.3637 28.1152,70.3812 28.1685,70.4136 28.2478,70.4186 28.2668,70.4098 28.2426,70.3889 28.191,70.3548 28.1295,70.3143 28.1061,70.295 28.0913,70.2721 28.0965,70.1371 28.1007,70.1116 28.1212,70.0728 28.0994,70.0357 28.0705,70.0155 28.0445,69.9993 28.0264,69.9899 27.9771,69.9706 28.012,69.9732 28.0401,69.9794 28.0667,69.9887 28.0973,70.0075 28.1357,70.0389 28.1672,70.0724 28.1533,70.0923 28.1361,70.1214 28.1283,70.1906 28.1651,70.303 28.2684,70.382 28.4162,70.537 28.4451,70.5824 28.4608,70.6245 28.4793,70.6462 28.6834,70.7641 28.7381,70.7783 28.7631,70.7836 28.7886,70.7872 28.8257,70.7891 28.8836,70.7874 28.9703,70.7811 29.1842,70.7498 29.2526,70.7002 29.2815,70.5974 29.2808,70.5715 29.5121,70.6137 29.558,70.6278 29.5939,70.6439 29.6185,70.6496 29.7063,70.6403 29.7185,70.6081 29.7124,70.5871 29.6943,70.5664 29.6734,70.5542 29.6257,70.5303 29.7298,70.5358 29.7741,70.5448 29.7968,70.5613 29.8818,70.6088 29.9132,70.6156 29.9413,70.6178 30.0111,70.6187 30.0408,70.6147 30.1272,70.5867 30.2735,70.5071 30.2296,70.4834 30.1673,70.4621 29.9989,70.4437 29.9407,70.4439 29.9788,70.4303 30.0752,70.4204 30.0979,70.4208 30.1459,70.4263 30.2052,70.4351 30.2395,70.446 30.2685,70.4543 30.2948,70.4582 30.3373,70.4616 30.3666,70.4633 30.4056,70.4631 30.5292,70.4429 30.5692,70.3979 30.7568,70.3401 30.8692,70.3575 30.9392,70.3037 30.9717,70.2543 31.0045,70.1935 30.8423,70.1672 30.8203,70.1662 30.6646,70.1656 30.4612,70.15 30.2891,70.0773 30.3137,70.0516 30.2816,70.0324 30.2527,70.0241 30.0487,69.9794 30.028,69.9772 29.8676,69.972 29.841,69.9716 29.8107,69.9716 29.7315,69.9746 29.7058,69.9769 29.4496,70.0055 29.1987,70.0247 28.9712,70.0366 28.7527,70.0767 28.6764,70.0853 28.6365,70.0865 28.593,70.0847 28.5531,70.0794 28.5357,70.0691 28.5925,70.067 28.6406,70.0716 28.6844,70.0672 28.6053,70.0334 28.5809,70.0279 28.5532,70.0185 28.7693,69.9831 28.9381,69.9617 29.1374,69.9229 29.1993,69.9219 29.3308,69.9108 29.4606,69.8964 29.5759,69.8828 29.6016,69.8736 29.523,69.8419 29.4971,69.8365 29.4381,69.8225 29.3686,69.8041 29.3078,69.7667 29.3448,69.7612 29.3651,69.7635 29.4129,69.7942 29.4703,69.8172 29.649,69.8237 29.6703,69.8168 29.707,69.7442 29.677,69.7148 29.6187,69.6878 29.5784,69.6784 29.4281,69.5703 29.4687,69.578 29.4876,69.5877 29.5037,69.6015 29.5952,69.6396 29.6256,69.6457 29.6523,69.6484 29.8836,69.6638 29.961,69.6418 30.0763,69.6025 30.1189,69.6005 30.0777,69.6333 30.0638,69.6716 30.125,69.6742 30.0948,69.7125 30.0928,69.7615 30.1069,69.7849 30.2357,69.7892 30.2595,69.7827 30.3359,69.7348 30.3518,69.6776 30.3541,69.6312 30.3483,69.6033 30.3258,69.5875 30.285,69.5775 30.3518,69.5767 30.3788,69.5905 30.4024,69.6542 30.3865,69.6757 30.3875,69.7194 30.4906,69.725 30.521,69.7251 30.5681,69.7226 30.65,69.7143 30.7215,69.7004 30.7881,69.7018 30.8358,69.6417 30.8763,69.6005 30.8805,69.5643 30.8841,69.5187 30.8746,69.484 30.8459,69.4604 30.7975,69.4469 30.7584,69.4418 30.7308,69.4403 30.7011,69.4406 30.4802,69.4544 30.4545,69.4576 30.3876,69.4775 30.3274,69.5006 30.3051,69.5132 30.2753,69.5273 30.2397,69.5407 30.1307,69.5753 30.0998,69.5781 30.0645,69.5765 30.0447,69.5736 30.0119,69.5564 30.0302,69.5382 30.0723,69.5383 30.1163,69.4881 30.0329,69.4136 29.9979,69.3982 29.8342,69.3432 29.6012,69.2843 29.5399,69.2706 29.5085,69.2646 29.4749,69.2576 29.4202,69.2512 29.3454,69.2438 29.2511,69.2269 29.2329,69.2059 29.2451,69.1752 29.2556,69.1542 29.233,69.099 29.1918,69.0308 29.1726,69.0157 29.1381,68.9943 29.1155,68.9818 29.0677,68.9592 29.0371,68.9475 28.9946,68.9398 28.9583,68.9427 28.9381,68.9482 28.8957,68.9627 28.8289,68.9824 28.7961,68.9931 28.7658,69.0048 28.7406,69.0167 28.7235,69.0349 28.7213,69.0659 28.7351,69.099 28.7638,69.147 28.841,69.1856 28.8648,69.1969 28.9351,69.2263 28.971,69.2411 29.002,69.2545 29.0597,69.2815 29.2062,69.3623 29.2226,69.3741 29.2355,69.3957 29.1171,69.5407 29.0645,69.5957 29.0398,69.616 28.9382,69.6314 28.8836,69.6383 28.8474,69.6437 28.682,69.6695 28.6327,69.6782 28.3433,69.7312 28.3184,69.737 28.3023,69.7507 28.2803,69.7868 28.2554,69.7988 28.2149,69.806 28.1655,69.8116 28.1361,69.816 28.098,69.8232 28.0411,69.8441 27.9305,69.907 27.9151,69.9207 27.9097,69.9545 27.8762,69.9918 27.8491,69.9971 27.8113,69.9966 27.5387,69.9812 27.5098,69.9751 27.3617,69.9257 27.2391,69.8954 27.2469,69.8742 27.227,69.8579 27.1471,69.8428 27.0161,69.8189 26.9872,69.8173 26.836,69.8349 26.807,69.8489 26.7482,69.8613 26.5514,69.8604 26.4193,69.8458 26.3854,69.8303 26.3628,69.8056 26.3412,69.7784 26.3166,69.7619 26.1177,69.6614 26.0993,69.6521 26.0781,69.6448 26.044,69.6361 25.9483,69.6218 25.9272,69.614 25.9031,69.5954 25.8887,69.5751 25.9136,69.5525 25.9145,69.529 25.8976,69.4941 25.8185,69.3965 25.7783,69.2959 25.7562,69.279 25.7151,69.2643 25.6971,69.2498 25.6843,69.229 25.6582,69.1659 25.6531,69.1197 25.6772,69.0203 25.7135,68.9565 25.7064,68.9006 25.6374,68.8453 25.607,68.823 25.5983,68.8179 25.5854,68.8056 25.5635,68.7942 25.5313,68.7902 25.5085,68.7911 25.4537,68.7996 25.4276,68.8029 25.3836,68.8025 25.353,68.7977 25.3308,68.7922 25.31,68.7852 25.1806,68.737 25.1611,68.7289 25.135,68.7151 25.1164,68.7006 25.1016,68.6795 25.052,68.5815 25.0518,68.55 25.0234,68.5335 24.8822,68.493 24.8018,68.5053 24.7791,68.529 24.7524,68.5487 24.7211,68.5646 24.7021,68.5723 24.6379,68.5884 24.5769,68.5992 24.5267,68.6034 24.4613,68.6077 24.3984,68.6107 24.3654,68.6136 24.3027,68.6222 24.155,68.6608 24.0696,68.6954 24.0393,68.7139 24.0098,68.7302 23.986,68.7367 23.9256,68.7439 23.8489,68.7456 23.8058,68.744 23.7741,68.738 23.7457,68.7009 23.712,68.6713 23.6905,68.6541 23.6548,68.6287 23.6217,68.6228 23.5332,68.617 23.4678,68.6104 23.4174,68.6036 23.3583,68.5925 23.2839,68.5714 23.2374,68.5562 23.2113,68.5483 23.1473,68.542 23.1156,68.5494 23.0904,68.5611 23.0505,68.5864 23.0193,68.6053 22.8152,68.6049 22.7544,68.6032 22.5024,68.6496 22.4522,68.6408 22.3511,68.6231 22.3194,68.7072 22.3001,68.7553 22.2317,68.7933 22.1516,68.8492 21.9945,68.9635 21.9479,68.9895 21.6357,69.1953 21.2753,69.2368 21.0022,69.1347 20.9853,69.1214 20.9972,69.0717 21.0086,69.0517 21.0275,69.0329 21.064,69.0084 21.0346,68.9628 21.0186,68.948 20.9882,68.9444 20.9359,68.9563 20.8908,68.9696 20.7846,68.9961 20.7294,69.0045 20.6871,69.0071 20.6535,69.0037 20.631,68.9981 20.5655,68.9806 20.537,68.9715 20.4915,68.9674 20.054,68.9533 20.196,68.8798 20.2717,68.8399 20.3073,68.6982 20.2707,68.6663 20.1954,68.6032 20.1599,68.5743 20.1346,68.5589 20.0206,68.4952 19.9142,68.4559 20.0458,68.414 20.1618,68.3832 20.1292,68.3582 20.0337,68.3269 19.9969,68.3116 19.9647,68.2934 19.9286,68.2681 19.9106,68.2552 19.8889,68.2498 19.8567,68.2539 19.8188,68.2626 19.6759,68.2852 19.5028,68.3123 19.3724,68.3319 18.9121,68.4 18.5728,68.3876 18.3194,68.4511 18.1111,68.4276 18.0615,68.4213 18.0481,68.4117 18.02,68.3525 18.0116,68.3126 18.0314,68.2669 18.0478,68.2305 18.0658,68.1936 18.1173,68.0789 18.0978,68.0631 17.9023,67.9109 17.847,67.8587 17.8208,67.862 17.7884,67.8686 17.7649,67.8776 17.7064,67.8979 17.6434,67.9175 17.612,67.9272 17.5558,67.943 17.2373,68.0036 17.2164,67.9875 17.1986,67.9752 17.1524,67.9433 16.6923,67.8126 16.6499,67.7457 16.5858,67.6458 16.5535,67.5961 16.5393,67.5751 16.4741,67.5232 16.3693,67.444 16.3485,67.4297 16.1657,67.4148 16.0549,67.3196 16.0745,67.3001 16.1052,67.282 16.1284,67.2702 16.1791,67.2482 16.2285,67.22 16.3039,67.1753 16.3279,67.1523 16.3686,67.0852 16.3205,66.933 15.9773,66.806 15.6989,66.6007 15.5942,66.5217 15.4962,66.4741 15.3314,66.396 15.3403,66.3779 15.3693,66.3231 15.4154,66.2376 15.4367,66.2002 14.995,66.0668 14.9511,66.066 14.6881,66.0573 14.4779,66.0404 14.49,65.9957 14.5085,65.9335 14.5401,65.8666 14.5508,65.8483 14.5794,65.7936 14.6038,65.739 14.5921,65.7146 14.5745,65.6907 14.5587,65.6744 14.5362,65.6537 14.5055,65.6186 14.4716,65.5037 14.4681,65.4339 14.4665,65.3646 14.4651,65.2858 14.4643,65.2321 14.3404,65.1651 14.3275,65.1271 14.3005,65.0682 14.291,65.0485 14.2806,65.034 14.2679,65.0207 14.2071,64.9679 14.0633,64.8683 13.9282,64.755 13.8519,64.6909 13.8054,64.6532 13.6986,64.5723 13.6751,64.5545 13.6499,64.5275 13.6411,64.5002 13.7931,64.4496 13.8736,64.4275 14.0049,64.4083 14.0884,64.3909 14.1225,64.2595 14.1227,64.1004 13.9574,63.9364 13.2652,64.0074 13.204,64.0138 13.1677,64.0108 13.1099,64.0045 13.0068,63.9919 12.963,63.9853 12.9125,63.9742 12.8216,63.9463 12.7694,63.9281 12.6572,63.8882 12.609,63.864 12.5063,63.7939 12.4487,63.7546 12.3225,63.6504 12.1231,63.5111 12.1547,63.4338 12.1713,63.4072 12.1134,63.3585 12.0546,63.3102 11.9754,63.2459 11.9133,63.1946 12.0039,63.1047 12.0135,63.0964 12.1204,62.9677 12.1451,62.9385 12.1275,62.922 12.0898,62.8898 12.0348,62.8414 12.0055,62.8153 12.0271,62.7616 12.0431,62.7259 12.0661,62.6724 12.0493,62.639 12.0232,62.5883 12.0244,62.5134 12.0613,62.4526 12.1259,62.3838 12.1547,62.3544 12.1813,62.321 12.2217,62.2618 12.2329,62.251 12.2478,62.2317 12.2701,62.1909 12.2709,62.1822 12.2351,62.0665 12.1914,61.9303 12.1767,61.8877 12.1581,61.837 12.1467,61.8033 12.1363,61.7691 12.1012,61.6535 12.1212,61.6421 12.376,61.5018 12.4136,61.494 12.4511,61.4945 12.5027,61.4916 12.7497,61.3402 12.8315,61.2879 12.8065,61.2375 12.7724,61.1707 12.7478,61.1263 12.6462,61.0136 12.6139,60.9833 12.5981,60.9789 12.5784,60.9758 12.5435,60.9739 12.4764,60.9769 12.4343,60.9797 12.4089,60.9804 12.3841,60.9798 12.3647,60.9763 12.2708,60.9555 12.2246,60.9447 12.1929,60.9248 12.2164,60.9031 12.2485,60.8723 12.2855,60.8135 12.3128,60.7619 12.3291,60.7284 12.3415,60.7058 12.3591,60.6818 12.4015,60.6366 12.4824,60.5566 12.5672,60.4485 12.5835,60.3951 12.5763,60.3609 12.566,60.3261 12.5482,60.305 12.5091,60.2659 12.4827,60.1293 12.4842,60.1013 12.4794,60.0721 12.4713,60.0405 12.4463,59.9976 12.2938,59.9004 12.1693,59.8382 12.1402,59.8248 12.1121,59.8156 12.0847,59.8137 12.0116,59.8142 11.9806,59.8176 11.9432,59.8249 11.8536,59.7982 11.8305,59.7895 11.7939,59.774 11.8599,59.7306 11.8743,59.7129 11.8768,59.7006 11.8809,59.6576 11.877,59.6281 11.7961,59.5771 11.7427,59.5664 11.6454,59.522 11.7174,59.3583 11.7613,59.2535 11.7688,59.2322 11.7762,59.1954 11.771,59.167 11.7477,59.1466 11.7401,59.1355 11.7311,59.1103 11.7203,59.0492 11.7302,59.0243 11.6027,58.8363 11.5785,58.8287 11.5647,58.8262 11.4755,58.8142 11.436,58.8133 11.4102,58.8205 11.4025,58.8488 11.4082,58.917 11.4118,58.9245 11.3647,59.0055 11.334,59.036 11.2775,59.0431 11.1828,59.0363 11.0439,59.0458 11.0137,59.0546 10.9206,59.094 10.88,59.0717 10.7774,59.1153 10.745,59.1494 10.6394,59.2926 10.6423,59.3643 10.6716,59.393 10.6718,59.4081 10.6542,59.4238 10.6379,59.4424 10.6224,59.4849 10.6197,59.5392 10.6002,59.5693 10.5399,59.6529 10.5647,59.7183 10.5806,59.7395 10.6195,59.7826 10.6446,59.7742 10.6763,59.7245 10.7187,59.7321 10.7407,59.7646 10.7211,59.8184 10.6686,59.8312 10.6506,59.8153 10.6405,59.8107 10.5633,59.8056 10.5399,59.8059 10.5126,59.8041 10.4792,59.7939 10.4536,59.7722 10.4625,59.728 10.473,59.7084 10.4719,59.6913 10.473,59.6606 10.5032,59.6061 10.5361,59.5952 10.5625,59.5834 10.5819,59.5631 10.5901,59.5202 10.5698,59.4906 10.5384,59.4714 10.4934,59.4534 10.4593,59.4444 10.4321,59.4422 10.4026,59.4551 10.4066,59.5017 10.3938,59.5954 10.3581,59.6293 10.2591,59.6633 10.2117,59.6573 10.2468,59.6231 10.2864,59.6137 10.3046,59.6099 10.3615,59.5824 10.3781,59.5241 10.3599,59.4597 10.3149,59.4561 10.2784,59.47 10.2261,59.4818 10.2442,59.4543 10.3284,59.4045 10.4043,59.373 10.4597,59.3484 10.4963,59.2353 10.4406,59.1741 10.4177,59.1799 10.3506,59.1946 10.3082,59.1343 10.2121,58.968 10.1356,58.9516 10.1488,58.9688 10.1239,58.9748 10.0084,58.936 10.0065,58.9073 9.9366,58.8812 9.8595,58.8845 9.8206,58.8961 9.8287,58.9208 9.8075,58.9439 9.7691,58.9656 9.5965,59.0471 9.5339,59.0432 9.6087,58.9872 9.6663,58.9611 9.6752,58.9126 9.5881,58.8546 9.4899,58.8215 9.3921,58.7709 9.3315,58.6886 9.323,58.6807 9.1672,58.5853 9.0475,58.5462 9.0142,58.5372 8.983,58.5297 8.9354,58.5032 8.815,58.4108 8.7811,58.3948 8.7232,58.3789 8.6968,58.3723 8.6975,58.3481 8.676,58.3076 8.4949,58.2008 8.3875,58.1849 8.2314,58.1305 8.2288,58.0978 8.1987,58.0512 8.1404,58.0707 8.113,58.0298 7.9203,58.0102 7.7954,57.9983 7.6467,57.9749 7.6079,57.9502 7.5459,57.9416 7.5148,57.9388 7.4705,57.9366 7.3496,57.9435 7.2381,57.9655 7.2107,57.9746 7.1384,57.9785 7.0653,57.95 7.0365,57.927 6.9952,57.919 6.9235,57.9699 6.8902,57.9871 6.7694,58.0422 6.7193,58.0471 6.716,57.9949 6.5911,58.0001 6.5471,58.0281 6.5447,58.0516 6.5754,58.0844 6.6008,58.1056 6.6721,58.1377 6.7476,58.1747 6.6045,58.1892 6.3489,58.2012 6.336,58.2012 6.2726,58.2371 6.2128,58.2543 6.132,58.2683 6.0012,58.31 5.9823,58.3204 5.9674,58.3367 5.959,58.3587 5.9515,58.3963 5.9204,58.4057 5.8849,58.4048 5.8425,58.4035 5.7675,58.4135 5.743,58.4181 5.6346,58.4749 5.6129,58.4876 5.4983,58.5974 5.4505,58.6798 5.5084,58.7556 5.5333,58.8041 5.5436,58.8385 5.5417,58.8971 5.5298,58.9196 5.5483,58.9595 5.702,58.9021 5.6952,58.8715 5.7337,58.8578 5.7832,58.8535 5.806,58.8674 5.8323,58.8922 5.8719,58.8835 5.9277,58.8609 5.9977,58.8182 6.0503,58.7868 6.0994,58.7674 6.1189,58.7635 6.1575,58.7617 6.216,58.7669 6.1888,58.7722 6.159,58.7717 6.1275,58.7767 6.0911,58.7892 6.0595,58.8072 6.0471,58.8237 6.0792,58.8646 6.108,58.8863 6.1806,58.9083 6.2066,58.9151 6.2445,58.9226 6.3925,58.9466 6.4737,58.9582 6.5767,58.972 6.6048,58.9827 6.4921,58.9782 6.3875,58.9656 6.366,58.9623 6.199,58.9345 6.1522,58.9251 6.1131,58.9115 6.0889,58.8961 6.0254,58.834 5.9638,58.8914 5.9531,58.9422 5.9253,58.9418 5.8589,58.995 5.8647,59.016 5.8846,59.0281 5.9449,59.0447 5.9961,59.0787 6.0537,59.1334 6.1352,59.1739 6.1566,59.1836 6.2412,59.2138 6.2412,59.2138 13,2.0,Norway 6.2412,59.2138 6.2985,59.2345 6.3247,59.2411 6.3559,59.2454 6.3928,59.2463 6.4181,59.2451 6.4477,59.2493 6.395,59.2552 6.364,59.2553 6.3105,59.2491 6.2774,59.2389 6.2412,59.2138 6.2412,59.2138 7,2.0,Norway 5.3099,61.518 5.2754,61.5144 5.3305,61.5114 5.3285,61.5175 5.3229,61.5194 5.3099,61.518 5.3099,61.518 14,2.0,Norway 7.1977,62.1999 7.2855,62.2018 7.3185,62.1938 7.3484,62.1784 7.3783,62.1553 7.4008,62.1537 7.3825,62.1776 7.3485,62.2 7.3246,62.2081 7.303,62.2125 7.2689,62.2135 7.2205,62.206 7.1977,62.1999 7.1977,62.1999 7,2.0,Norway 5.4796,61.2997 5.5122,61.2911 5.5516,61.286 5.6165,61.2866 5.5854,61.2955 5.4796,61.2997 5.4796,61.2997 15,-2.0,Greenland -25.402,71.0103 -25.363,70.9813 -25.319,70.9659 -25.2496,70.926 -25.2676,70.9182 -25.2863,70.9198 -25.3421,70.9261 -25.3563,70.9302 -25.5018,70.9899 -25.5108,70.9952 -25.5206,71.0084 -25.5078,71.0131 -25.4305,71.0158 -25.402,71.0103 -25.402,71.0103 16,2.0,Norway 24.7126,70.9288 24.6811,70.9345 24.6116,70.9502 24.5955,70.956 24.584,70.9646 24.5883,70.9762 24.6698,71.0062 24.6823,71.0092 24.6969,71.0108 24.7141,71.0101 24.7946,70.9981 24.7909,70.9804 24.7546,70.9369 24.743,70.9303 24.7126,70.9288 24.7126,70.9288 118,-2.0,Greenland -26.0853,70.4537 -26.0928,70.4693 -26.0986,70.48 -26.1108,70.4859 -26.1214,70.4892 -26.1406,70.4921 -26.1543,70.4926 -26.1837,70.4905 -26.1975,70.4885 -26.4044,70.4576 -26.4523,70.446 -26.4734,70.4372 -26.6613,70.4299 -26.7581,70.4299 -26.8799,70.4268 -26.9294,70.4206 -26.9426,70.4129 -26.9543,70.4081 -26.9646,70.4056 -27.2021,70.3817 -27.5498,70.3605 -27.7481,70.3414 -27.8155,70.3366 -27.973,70.334 -28.0035,70.3362 -28.0367,70.3415 -28.0474,70.3448 -28.0687,70.3576 -28.071,70.3729 -28.0035,70.4839 -27.9938,70.4919 -27.964,70.5078 -27.8727,70.5371 -27.8505,70.5422 -27.8181,70.5473 -27.7526,70.5466 -27.6901,70.5485 -27.6577,70.5498 -27.6329,70.5526 -27.6073,70.5592 -27.5904,70.5654 -27.562,70.5821 -27.5543,70.5887 -27.5429,70.5968 -27.4995,70.6181 -27.458,70.6378 -27.3544,70.6735 -27.3077,70.6854 -27.2918,70.6883 -27.2745,70.6894 -27.2362,70.6949 -27.2054,70.7029 -27.1893,70.7108 -27.1779,70.7176 -27.1632,70.7283 -27.1528,70.7379 -27.1407,70.7478 -27.0878,70.7813 -27.0024,70.7944 -26.9666,70.7974 -26.9328,70.7983 -26.826,70.7927 -26.784,70.7924 -26.5797,70.7969 -26.5289,70.8022 -26.3689,70.8218 -26.2715,70.8356 -26.2383,70.8407 -26.2144,70.8491 -26.0887,70.8906 -25.9813,70.9085 -25.8849,70.9255 -25.8468,70.9352 -25.7433,70.9618 -25.6793,70.9805 -25.6678,70.9847 -25.6527,70.9867 -25.623,70.9855 -25.6254,70.9697 -25.6278,70.9085 -25.5239,70.8796 -25.4591,70.8756 -25.4411,70.8704 -25.4295,70.8652 -25.3396,70.8211 -25.2764,70.7231 -25.2254,70.5968 -25.224,70.5846 -25.2288,70.573 -25.2398,70.566 -25.2574,70.5597 -25.4056,70.538 -25.6019,70.5125 -25.7403,70.51 -25.9585,70.4321 -25.971,70.4288 -25.9813,70.4286 -25.9953,70.4305 -26.0055,70.4326 -26.0752,70.4502 -26.0215,70.4274 -26.0303,70.4186 -26.0481,70.4109 -26.1109,70.3631 -26.1369,70.3578 -26.1545,70.3574 -26.1855,70.358 -26.2004,70.3592 -26.2381,70.3684 -26.3254,70.3947 -26.3221,70.4233 -26.2536,70.446 -26.1999,70.4611 -26.1858,70.4643 -26.1428,70.4693 -26.1278,70.4683 -26.0853,70.4537 -26.0853,70.4537 52,-5.0,Canada -71.6305,70.9594 -71.5668,70.9521 -71.4809,70.9414 -71.3838,70.9249 -71.3085,70.9194 -71.2659,70.9187 -71.2262,70.9204 -71.2083,70.9186 -71.1946,70.9164 -71.1792,70.9084 -71.1786,70.8949 -71.2268,70.8261 -71.2399,70.8186 -71.2532,70.8144 -71.2706,70.8115 -71.2885,70.8096 -71.3118,70.8091 -71.3331,70.8094 -71.4917,70.7975 -71.5702,70.7819 -71.7724,70.7358 -71.7879,70.7264 -71.8284,70.7216 -71.8754,70.7183 -71.9185,70.7166 -71.9333,70.7167 -71.9486,70.7185 -72.0344,70.7894 -72.0599,70.8273 -72.0619,70.8374 -72.0493,70.8414 -72.038,70.8431 -72.0025,70.8447 -71.9846,70.8432 -71.9708,70.8394 -71.983,70.8302 -71.9719,70.8236 -71.9532,70.8238 -71.9335,70.8263 -71.9144,70.8302 -71.8939,70.8396 -71.8781,70.8539 -71.869,70.8697 -71.8626,70.8892 -71.856,70.9446 -71.8442,70.9561 -71.7515,70.9709 -71.7199,70.9753 -71.6873,70.9785 -71.6673,70.9775 -71.6305,70.9594 -71.6305,70.9594 17,2.0,Norway 23.9917,70.8149 23.9718,70.8171 23.8551,70.8575 23.8259,70.8975 23.869,70.922 23.8796,70.926 23.9195,70.9322 23.934,70.9335 24.0078,70.9302 24.0236,70.9288 24.1673,70.9012 24.1889,70.8584 24.1129,70.8325 24.0374,70.8191 24.0075,70.8156 23.9917,70.8149 23.9917,70.8149 21,7.0,Russia 82.1678,70.8091 82.1576,70.8155 82.1207,70.8437 82.1195,70.8562 82.1531,70.8889 82.1611,70.8949 82.1765,70.8984 82.1953,70.897 82.2898,70.8845 82.3081,70.8747 82.3152,70.8654 82.3148,70.8529 82.3101,70.8409 82.302,70.8282 82.2704,70.8036 82.2588,70.7976 82.2277,70.7853 82.2088,70.7831 82.1862,70.7877 82.1678,70.8091 82.1678,70.8091 16,7.0,Russia 82.9743,70.7985 82.8974,70.8334 82.8832,70.843 82.8635,70.8835 82.8714,70.8897 82.8902,70.8871 82.9991,70.8674 83.0177,70.8637 83.0359,70.854 83.0681,70.8105 83.0662,70.7917 83.0397,70.7703 83.025,70.7716 82.9888,70.7905 82.9743,70.7985 82.9743,70.7985 34,-2.0,Greenland -51.8566,70.8806 -51.7771,70.8601 -51.7463,70.853 -51.6075,70.8214 -51.4691,70.7909 -51.455,70.7872 -51.4412,70.7801 -51.4488,70.7714 -51.4888,70.7506 -51.5018,70.746 -51.5171,70.743 -51.5334,70.742 -51.6951,70.7527 -51.8307,70.7692 -51.8535,70.7711 -51.958,70.7694 -51.9812,70.7701 -52.0015,70.7722 -52.0159,70.7761 -52.026,70.7797 -52.0358,70.7842 -52.0436,70.7933 -52.0422,70.8069 -52.0366,70.8226 -52.0167,70.8551 -52.003,70.865 -51.9788,70.8728 -51.9556,70.8792 -51.9405,70.8825 -51.9235,70.8845 -51.9045,70.8857 -51.8812,70.8847 -51.8566,70.8806 -51.8566,70.8806 18,12.0,Russia 160.3558,70.7255 160.328,70.7234 160.2552,70.7216 160.176,70.7202 160.1395,70.724 160.1223,70.7266 160.1063,70.7306 160.091,70.7362 160.0753,70.7471 160.0427,70.8228 160.0525,70.8315 160.1376,70.8386 160.1535,70.8387 160.1858,70.8301 160.28,70.8031 160.3522,70.7422 160.3558,70.7255 160.3558,70.7255 21,-2.0,Greenland -27.2122,70.7815 -27.2435,70.7661 -27.2535,70.7602 -27.3296,70.7126 -27.5126,70.6613 -27.6227,70.6408 -27.6333,70.6393 -27.6488,70.64 -27.6659,70.6436 -27.6776,70.6478 -27.6883,70.6562 -27.6989,70.7528 -27.6969,70.7699 -27.6858,70.7841 -27.6736,70.7891 -27.657,70.7913 -27.5394,70.7999 -27.5228,70.8008 -27.2498,70.7935 -27.2122,70.7815 -27.2122,70.7815 90,2.0,Norway 22.1144,70.3715 22.0952,70.374 22.0891,70.3831 22.1055,70.4201 22.1151,70.4291 22.1761,70.4474 22.2025,70.4621 22.2136,70.5004 22.1765,70.5066 22.0927,70.5002 22.0463,70.5067 22.035,70.5036 21.9653,70.512 21.9013,70.5508 21.9076,70.5623 21.9282,70.5648 22.0981,70.5601 22.1136,70.553 22.1247,70.5522 22.1603,70.5535 22.2223,70.5602 22.3276,70.5826 22.3227,70.5982 22.3337,70.6128 22.3488,70.6189 22.47,70.6189 22.483,70.6191 22.5001,70.6165 22.567,70.6006 22.6089,70.5854 22.5609,70.5668 22.5426,70.5547 22.5506,70.5449 22.5737,70.542 22.6569,70.5431 22.7539,70.548 22.768,70.5494 22.7769,70.5538 22.7448,70.6002 22.7108,70.6133 22.6782,70.632 22.6671,70.6468 22.7321,70.6625 22.8128,70.6359 22.8449,70.5989 22.8933,70.5738 22.9119,70.5662 22.929,70.5658 22.9405,70.5689 23.0543,70.6411 23.1075,70.6956 23.23,70.6789 23.2458,70.6774 23.2914,70.6932 23.2867,70.7027 23.2694,70.7216 23.2635,70.7638 23.2772,70.7697 23.2902,70.7699 23.3036,70.7678 23.3152,70.7645 23.3244,70.7606 23.3882,70.7193 23.3987,70.6907 23.3474,70.6436 23.334,70.6411 23.3209,70.6431 23.2485,70.616 23.1287,70.5581 23.037,70.4884 22.8477,70.4438 22.7332,70.4274 22.714,70.4314 22.7188,70.4512 22.6955,70.4643 22.6809,70.4674 22.5899,70.473 22.5781,70.4672 22.5796,70.4482 22.5824,70.43 22.5703,70.4228 22.4154,70.4034 22.4011,70.402 22.2905,70.3978 22.2751,70.3976 22.2595,70.3992 22.2443,70.4045 22.2003,70.4136 22.1144,70.3715 22.1144,70.3715 38,7.0,Russia 82.882,70.324 82.8945,70.3426 82.9072,70.4109 82.9158,70.473 82.9389,70.5723 82.9575,70.6155 83.0068,70.6925 83.0258,70.7143 83.0703,70.7506 83.0784,70.7567 83.0975,70.7606 83.1741,70.7273 83.1883,70.721 83.2518,70.6706 83.2688,70.6521 83.2749,70.6364 83.2702,70.6273 83.2621,70.6209 83.2499,70.6148 83.2227,70.6027 83.2032,70.597 83.1843,70.5935 83.1463,70.5885 83.1275,70.5888 83.1085,70.5868 83.1006,70.5807 83.0426,70.429 83.0609,70.4221 83.0792,70.4207 83.0972,70.4139 83.1237,70.3735 83.1152,70.3642 83.0844,70.3522 82.9096,70.2992 82.8874,70.3024 82.8809,70.3116 82.882,70.324 82.882,70.324 12,12.0,Russia 161.3262,70.6523 161.3014,70.6535 161.2833,70.6553 161.1271,70.6999 161.0977,70.7107 161.1175,70.7409 161.1401,70.744 161.1604,70.7444 161.2916,70.7157 161.3029,70.7105 161.3262,70.6523 161.3262,70.6523 26,2.0,Norway 23.7865,70.4191 23.7518,70.4205 23.718,70.4236 23.7003,70.4284 23.6742,70.4421 23.6544,70.4564 23.5803,70.6005 23.6353,70.6467 23.6491,70.6529 23.6863,70.6542 23.7543,70.6522 23.7726,70.6512 23.783,70.6484 23.9197,70.6096 23.9765,70.5934 23.986,70.589 24.0698,70.5251 24.068,70.5087 24.061,70.4996 24.0515,70.4947 23.8991,70.4299 23.8861,70.4279 23.8461,70.4222 23.8176,70.4199 23.7865,70.4191 23.7865,70.4191 18,-2.0,Greenland -51.4074,70.5547 -51.4239,70.5558 -51.5777,70.5849 -51.7244,70.6214 -51.7442,70.6293 -51.7364,70.6434 -51.7024,70.6503 -51.6613,70.6482 -51.5754,70.635 -51.5595,70.6313 -51.5073,70.6168 -51.4793,70.6083 -51.4317,70.5934 -51.4059,70.5829 -51.3905,70.575 -51.3964,70.5613 -51.4074,70.5547 -51.4074,70.5547 26,-6.0,Canada -100.4546,70.48 -100.4499,70.4708 -100.4405,70.4643 -100.4041,70.4508 -100.2733,70.4111 -100.247,70.4041 -100.0512,70.3609 -100.0352,70.3578 -100.0187,70.3567 -100.003,70.362 -99.9927,70.4718 -100.0933,70.5108 -100.1103,70.512 -100.1213,70.5155 -100.221,70.5572 -100.2346,70.5672 -100.2422,70.5765 -100.2532,70.5806 -100.2682,70.5824 -100.2849,70.5837 -100.4247,70.5768 -100.4376,70.545 -100.4514,70.5014 -100.4546,70.4912 -100.4549,70.4806 -100.4546,70.48 15,-7.0,Canada -127.8318,70.5046 -127.8262,70.4993 -127.8321,70.4848 -127.8445,70.4767 -128.0525,70.4483 -127.9599,70.5571 -127.9449,70.5632 -127.9271,70.5619 -127.8992,70.5558 -127.8263,70.5354 -127.8103,70.53 -127.7979,70.517 -127.8158,70.5033 -127.8318,70.5046 -127.8318,70.5046 30,2.0,Norway 23.1048,70.1827 23.069,70.1872 23.036,70.1952 22.8,70.3138 22.8448,70.3561 22.8551,70.3599 23.1267,70.4522 23.1378,70.4552 23.1525,70.4566 23.1717,70.4548 23.1833,70.4513 23.2052,70.4414 23.354,70.4627 23.3483,70.5092 23.3354,70.5238 23.3509,70.5289 23.4155,70.5289 23.4351,70.5272 23.4857,70.5193 23.5408,70.488 23.6,70.4089 23.6067,70.3701 23.6039,70.3588 23.591,70.3459 23.4872,70.2974 23.2932,70.217 23.179,70.1863 23.1663,70.1843 23.1048,70.1827 23.1048,70.1827 20,3.0,Russia 56.929,70.4082 56.8893,70.4141 56.8379,70.4249 56.7881,70.4452 56.7783,70.451 56.7262,70.488 56.7153,70.5035 56.727,70.5094 56.7461,70.5062 57.0125,70.4579 57.0699,70.4449 57.0867,70.4401 57.0963,70.431 57.0914,70.4208 57.0764,70.4166 56.9976,70.398 56.9777,70.3982 56.9536,70.4019 56.929,70.4082 56.929,70.4082 19,-7.0,Canada -116.92,70.445 -116.9386,70.4453 -116.9564,70.4465 -117.0119,70.4578 -117.0296,70.4626 -117.038,70.4696 -117.0337,70.479 -116.9921,70.4935 -116.9742,70.4965 -116.9523,70.4985 -116.9356,70.499 -116.8995,70.496 -116.6316,70.4636 -116.6186,70.4577 -116.6266,70.4513 -116.6604,70.4501 -116.773,70.454 -116.92,70.445 -116.92,70.445 18,-2.0,Greenland -51.1312,70.4033 -51.1623,70.4036 -51.2045,70.4051 -51.2654,70.4125 -51.5009,70.4526 -51.5159,70.4563 -51.5464,70.4684 -51.5369,70.4785 -51.5257,70.4835 -51.514,70.4862 -51.5005,70.4882 -51.4756,70.4879 -51.4515,70.4866 -51.4167,70.482 -51.3532,70.4684 -51.2357,70.4357 -51.1312,70.4033 -51.1312,70.4033 15,7.0,Russia 83.2167,70.4188 83.1746,70.4659 83.1811,70.4754 83.2192,70.4849 83.3651,70.4856 83.3851,70.48 83.3853,70.4643 83.3087,70.4031 83.2966,70.3969 83.2779,70.3948 83.2597,70.3964 83.2411,70.4002 83.2234,70.4064 83.2167,70.4188 83.2167,70.4188 16,-7.0,Canada -115.999,70.4576 -115.9818,70.4576 -115.928,70.4531 -115.8795,70.4463 -115.8681,70.4419 -116.03,70.4233 -116.0619,70.4214 -116.1847,70.4163 -116.2031,70.4166 -116.2161,70.4195 -116.2337,70.4291 -116.2082,70.4457 -116.0416,70.4596 -116.0264,70.4607 -115.999,70.4576 -115.999,70.4576 26,7.0,Russia 83.4192,70.3621 83.4269,70.3534 83.4062,70.3261 83.3841,70.3073 83.3569,70.2905 83.3468,70.2851 83.3318,70.2814 83.2929,70.2767 83.2302,70.2708 83.2043,70.2706 83.1937,70.273 83.2169,70.334 83.2257,70.348 83.3707,70.4303 83.3942,70.4384 83.4122,70.441 83.4283,70.4378 83.4385,70.4278 83.4359,70.408 83.4268,70.3941 83.4066,70.3833 83.3937,70.3787 83.3631,70.3715 83.3645,70.3537 83.4192,70.3621 83.4192,70.3621 24,-2.0,Greenland -54.8473,70.3886 -54.8112,70.3863 -54.7784,70.3809 -54.7459,70.375 -54.7326,70.3721 -54.6143,70.3412 -54.5523,70.3158 -54.5394,70.3072 -54.5307,70.2975 -54.5262,70.2845 -54.539,70.2805 -54.7329,70.2762 -54.7791,70.2779 -54.7988,70.2802 -54.8119,70.2833 -54.8354,70.2911 -54.8551,70.2996 -54.8695,70.3102 -54.8835,70.329 -54.8966,70.3496 -54.9042,70.3908 -54.8893,70.3919 -54.8473,70.3886 -54.8473,70.3886 83,3.0,Russia 59.7824,69.5764 59.7517,69.5957 59.7195,69.602 59.6368,69.5997 59.6163,69.6013 59.4727,69.6224 59.4495,69.6356 59.4095,69.6606 59.4284,69.6882 59.4727,69.6866 59.4942,69.6959 59.4845,69.7212 59.302,69.7928 59.2649,69.8 59.2036,69.7943 59.1568,69.7934 58.9955,69.8213 58.8753,69.8432 58.8219,69.8467 58.8798,69.818 58.949,69.7996 58.9901,69.7801 58.9106,69.7619 58.8896,69.7633 58.5433,69.9194 58.5211,69.9298 58.4928,69.9464 58.4475,69.9824 58.4642,70.0219 58.4777,70.0489 58.4518,70.0865 58.3872,70.0881 58.365,70.0987 58.2791,70.1619 58.2988,70.1749 58.36,70.178 58.4721,70.1648 58.5081,70.1461 58.5334,70.1398 58.6523,70.1214 58.6925,70.1239 58.6573,70.1619 58.5503,70.1961 58.5173,70.2054 58.5011,70.2337 58.6252,70.3015 58.736,70.3399 58.8713,70.3809 58.9024,70.3819 58.9074,70.3582 58.974,70.336 59.1169,70.2922 59.1765,70.2791 59.2018,70.2691 59.2202,70.2579 59.2719,70.2241 59.2907,70.2067 59.3286,70.1849 59.5084,70.1045 59.6375,70.0717 59.6828,70.0333 59.7375,70.0195 59.7958,70.0059 59.9473,69.9713 60.1252,69.8986 60.1901,69.8729 60.2342,69.8639 60.2876,69.8616 60.3463,69.8257 60.4157,69.7121 60.3091,69.6533 60.1312,69.6007 60.0755,69.5893 60.0464,69.5921 60.0206,69.6025 59.9652,69.6162 59.9105,69.6267 59.8809,69.6281 59.8417,69.6193 59.8139,69.6085 59.796,69.5988 59.7824,69.5764 59.7824,69.5764 28,2.0,Norway 22.9252,70.1542 22.8711,70.1579 22.8189,70.1607 22.7909,70.158 22.7448,70.1564 22.7281,70.1569 22.5885,70.1705 22.523,70.1775 22.4186,70.1949 22.3879,70.2002 22.3693,70.2077 22.3207,70.2402 22.3297,70.2542 22.422,70.2828 22.4361,70.2841 22.6138,70.2992 22.6337,70.2968 22.6429,70.2845 22.6475,70.269 22.7837,70.2403 22.8404,70.2304 22.8561,70.2311 22.8968,70.2271 22.9625,70.1824 22.9694,70.1659 22.9581,70.1578 22.9252,70.1542 22.9252,70.1542 18,2.0,Norway 21.7021,70.1683 21.684,70.1696 21.6659,70.1779 21.6491,70.1968 21.6429,70.2066 21.6359,70.2271 21.6379,70.2438 21.6537,70.292 21.6717,70.2961 21.6872,70.2945 21.6993,70.2911 21.7832,70.2622 21.7929,70.2581 21.7945,70.2448 21.7812,70.2289 21.728,70.1777 21.7021,70.1683 21.7021,70.1683 21,-7.0,Canada -111.9864,70.2706 -111.9537,70.2692 -111.8957,70.2658 -111.861,70.2617 -111.7544,70.2442 -111.5471,70.2185 -111.4262,70.2168 -111.6034,70.2031 -111.695,70.1975 -111.765,70.198 -111.8031,70.2003 -111.8402,70.204 -111.8896,70.2105 -111.9195,70.2154 -111.9465,70.2219 -112.0564,70.2499 -112.069,70.2606 -112.0532,70.27 -112.0382,70.271 -111.9864,70.2706 -111.9864,70.2706 185,-2.0,Greenland -51.7681,69.5596 -51.7523,69.5568 -51.7245,69.5445 -51.8401,69.4646 -51.869,69.4492 -51.8981,69.4347 -51.966,69.4081 -52.0689,69.3792 -52.1413,69.3585 -52.1671,69.3541 -52.4026,69.3166 -52.4395,69.3134 -52.4996,69.2981 -52.5314,69.2903 -52.6394,69.2692 -52.6855,69.2629 -52.7593,69.2594 -52.8021,69.2557 -52.8327,69.2521 -53.0211,69.2271 -53.2971,69.1766 -53.4389,69.1434 -53.4635,69.1403 -53.7323,69.1734 -53.7573,69.2045 -53.7858,69.2227 -53.8185,69.2281 -53.8825,69.2291 -53.9643,69.2341 -54.0099,69.2408 -54.0432,69.248 -54.1018,69.2708 -54.1474,69.2993 -54.1526,69.3064 -54.1488,69.3206 -54.1196,69.3568 -53.7968,69.3482 -53.749,69.3405 -53.7092,69.3319 -53.6717,69.3283 -53.6369,69.3322 -53.5588,69.3499 -53.4751,69.3541 -53.3753,69.3464 -53.3518,69.3447 -53.3228,69.3443 -53.2841,69.348 -53.2644,69.3525 -53.2836,69.3591 -53.3394,69.361 -53.3705,69.3612 -53.4205,69.3635 -53.454,69.3726 -53.4497,69.4073 -53.4305,69.4251 -53.3914,69.4566 -53.3748,69.4684 -53.3447,69.475 -53.2658,69.4797 -53.2429,69.4862 -53.3267,69.4945 -53.3891,69.4868 -53.4429,69.4757 -53.4812,69.4594 -53.4785,69.4386 -53.5061,69.4055 -53.5346,69.3914 -53.5877,69.3762 -53.6682,69.3617 -53.736,69.3745 -53.6761,69.4001 -53.622,69.4224 -53.6407,69.4317 -53.7037,69.419 -53.7556,69.4072 -53.8323,69.3958 -53.8763,69.4118 -53.8406,69.4356 -53.8175,69.444 -53.7645,69.4651 -53.7574,69.4844 -53.8294,69.5141 -53.8659,69.509 -53.8669,69.4757 -53.9093,69.4606 -53.9545,69.4559 -53.9957,69.4558 -54.3429,69.4682 -54.366,69.4693 -54.5406,69.4807 -54.5742,69.4862 -54.603,69.493 -54.6958,69.5193 -54.8687,69.6002 -54.8534,69.633 -54.8073,69.6519 -54.7856,69.657 -54.745,69.6602 -54.5582,69.6611 -54.5272,69.6553 -54.5,69.6381 -54.4842,69.6254 -54.3068,69.5809 -54.2847,69.5906 -54.3522,69.624 -54.5224,69.686 -54.5502,69.6888 -54.6092,69.6898 -54.6484,69.6915 -54.7001,69.6972 -54.7296,69.7029 -54.7654,69.714 -54.7847,69.7214 -54.8026,69.7331 -54.8138,69.7539 -54.742,69.8465 -54.6983,69.8634 -54.6639,69.8702 -54.6418,69.8731 -54.5874,69.8764 -54.5637,69.8753 -54.4942,69.8686 -54.4529,69.8618 -54.3941,69.8523 -54.3013,69.8386 -54.2611,69.8332 -54.2073,69.8275 -54.1226,69.8235 -54.1397,69.8426 -54.1818,69.852 -54.2958,69.8688 -54.3717,69.8724 -54.4829,69.8941 -54.6084,69.929 -54.6654,69.9509 -54.7009,69.975 -54.712,70.0013 -54.7212,70.0842 -54.7052,70.1059 -54.6725,70.1288 -54.6339,70.1511 -54.5535,70.1658 -54.4162,70.19 -54.3077,70.2177 -54.1804,70.2246 -53.8511,70.1916 -53.718,70.1779 -53.6791,70.1695 -53.5585,70.1559 -53.5127,70.1529 -53.4641,70.1519 -53.4003,70.149 -53.3407,70.1413 -53.1476,70.1033 -53.1224,70.0957 -52.9497,70.0383 -52.9215,70.0241 -52.8782,69.9949 -52.8528,69.9763 -52.8255,69.9532 -52.807,69.9411 -52.7736,69.9222 -52.6607,69.8613 -52.6095,69.8378 -52.5782,69.8268 -52.5263,69.8138 -52.4231,69.7893 -52.3776,69.7805 -52.2579,69.7629 -52.1825,69.7522 -52.0781,69.741 -51.962,69.7248 -51.9287,69.7185 -51.891,69.7102 -51.8394,69.6915 -51.8,69.6639 -51.794,69.6433 -51.8525,69.5951 -51.8778,69.59 -51.9076,69.5846 -51.8625,69.5667 -51.7745,69.5447 -51.7476,69.5465 -51.7681,69.5596 -51.7681,69.5596 33,2.0,Norway 19.8884,69.9615 19.8714,69.9637 19.7905,69.9711 19.7588,69.9706 19.7408,69.9712 19.7263,69.974 19.7078,69.9883 19.7032,70.0031 19.7044,70.0225 19.7062,70.0383 19.6634,70.0843 19.6371,70.1013 19.6155,70.1137 19.5963,70.1209 19.5842,70.1244 19.526,70.135 19.502,70.1414 19.4925,70.1538 19.5363,70.175 19.5474,70.1784 19.6299,70.1958 19.6394,70.1921 19.7464,70.1153 19.7527,70.1028 19.8025,70.0816 19.9401,70.0503 20.0244,70.0335 20.0753,70.0264 20.0681,70.0132 19.9703,69.9707 19.9444,69.9668 19.8884,69.9615 19.8884,69.9615 14,2.0,Norway 19.0992,70.0279 18.9963,70.0712 19.0928,70.1544 19.1597,70.1655 19.1762,70.1654 19.191,70.1625 19.2052,70.1542 19.2168,70.0833 19.1928,70.045 19.1809,70.0378 19.1698,70.0343 19.143,70.031 19.0992,70.0279 19.0992,70.0279 22,7.0,Russia 82.5985,70.1061 82.588,70.1138 82.5926,70.1296 82.6006,70.1356 82.6793,70.1598 82.6977,70.1599 82.7708,70.1544 82.8982,70.1267 82.9121,70.1204 82.9227,70.1142 82.9291,70.1015 82.9287,70.0486 82.9128,70.0334 82.8977,70.0272 82.861,70.0301 82.807,70.0366 82.7885,70.0397 82.7708,70.0446 82.7093,70.0624 82.6918,70.0691 82.5985,70.1061 82.5985,70.1061 31,2.0,Norway 20.5643,69.9512 20.5175,69.9852 20.4818,69.9693 20.4706,69.9663 20.4544,69.9664 20.4225,69.968 20.4055,69.97 20.391,69.9728 20.3795,69.9762 20.3535,69.9878 20.3442,69.997 20.3406,70.01 20.3559,70.0546 20.3618,70.0671 20.3814,70.0896 20.5087,70.1337 20.5321,70.1394 20.6389,70.1441 20.6702,70.1444 20.7065,70.1423 20.7208,70.1396 20.7329,70.1365 20.7612,70.1252 20.7741,70.1194 20.7859,70.1048 20.7491,69.9686 20.7382,69.9651 20.6926,69.9632 20.6051,69.9557 20.5643,69.9512 20.5643,69.9512 17,2.0,Norway 19.5382,70.0066 19.4889,70.007 19.459,70.0109 19.3212,70.0317 19.3094,70.0374 19.3129,70.0487 19.3225,70.0576 19.3539,70.0822 19.3704,70.087 19.3883,70.086 19.4002,70.0831 19.5515,70.0391 19.5644,70.0333 19.5738,70.0242 19.5682,70.0128 19.5382,70.0066 19.5382,70.0066 90,-6.0,Canada -87.0719,70.0219 -87.0612,70.0205 -87.029,70.02 -86.9943,70.0167 -86.9833,70.0192 -86.9666,70.0265 -86.9373,70.0287 -86.9248,70.0275 -86.9082,70.031 -86.9498,70.0505 -86.9349,70.058 -86.9203,70.0571 -86.8977,70.0585 -86.8702,70.056 -86.8582,70.0503 -86.8299,70.0374 -86.8162,70.025 -86.8011,70.0219 -86.7295,70.0127 -86.7126,70.0115 -86.6811,70.0074 -86.6641,70.0062 -86.6334,70.0014 -86.6067,69.9956 -86.5855,69.9983 -86.5685,70.0021 -86.496,70.0236 -86.4779,70.0265 -86.4474,70.025 -86.4196,70.0206 -86.4063,70.0169 -86.3947,70.013 -86.354,69.9898 -86.3591,69.9783 -86.3458,69.9711 -86.3175,69.9594 -86.3148,69.9417 -86.3145,69.9311 -86.2985,69.9269 -86.2829,69.925 -86.2707,69.9183 -86.2804,69.909 -86.3012,69.8933 -86.3144,69.89 -86.3352,69.8875 -86.3538,69.8869 -86.4735,69.8768 -86.5256,69.8762 -86.5587,69.8789 -86.5766,69.8789 -86.6437,69.8837 -86.6752,69.8878 -86.692,69.8891 -86.7085,69.8917 -86.7368,69.8985 -86.749,69.9025 -86.7724,69.914 -86.7953,69.9231 -86.8121,69.924 -86.8291,69.9173 -86.8437,69.9081 -86.8605,69.9008 -86.8769,69.8986 -86.8965,69.8971 -86.9143,69.897 -86.9452,69.9019 -86.958,69.9067 -86.9784,69.9178 -86.9922,69.9232 -87.005,69.9262 -87.023,69.9265 -87.0386,69.9285 -87.0498,69.9304 -87.064,69.9342 -87.0842,69.9474 -87.0809,69.9615 -87.083,69.9726 -87.0992,69.984 -87.1142,69.9895 -87.1262,69.9918 -87.1421,69.994 -87.1562,69.9947 -87.1703,69.9971 -87.182,70.0065 -87.1618,70.0156 -87.1481,70.0172 -87.1136,70.0158 -87.0842,70.023 -87.0719,70.0219 -87.0719,70.0219 26,2.0,Norway 18.668,69.8996 18.6476,69.9038 18.6402,69.9125 18.6179,69.9526 18.6708,70.0368 18.6866,70.0411 18.7023,70.0396 18.712,70.0358 18.7436,70.0198 18.7558,70.0112 18.8986,70.0275 18.9586,69.9952 18.9552,69.9839 18.9288,69.9661 18.9167,69.9638 18.9017,69.9631 18.8673,69.9639 18.8387,69.9612 18.7979,69.9562 18.7873,69.9532 18.748,69.9332 18.7276,69.9169 18.7058,69.9062 18.695,69.9029 18.668,69.8996 18.668,69.8996 55,2.0,Norway 19.0936,69.6991 19.0774,69.6993 19.0582,69.701 19.0487,69.7046 19.023,69.732 19.0003,69.7468 18.991,69.7507 18.9143,69.7797 18.8905,69.7863 18.8472,69.7943 18.8082,69.8026 18.7288,69.8197 18.7169,69.8229 18.6939,69.8322 18.6824,69.8504 18.7947,69.9153 18.8145,69.9228 18.8358,69.9293 18.9049,69.9368 18.9685,69.9364 19.0129,69.9292 19.0693,69.9687 19.1154,69.9932 19.1768,70.0048 19.1888,70.0017 19.2593,69.9688 19.2477,69.9529 19.2549,69.9373 19.2919,69.9196 19.3208,69.9088 19.3521,69.898 19.3663,69.8954 19.3804,69.8989 19.3699,69.9136 19.3763,69.9249 19.4069,69.9403 19.4442,69.9566 19.4564,69.9592 19.4698,69.9608 19.485,69.9612 19.5044,69.9595 19.5189,69.9569 19.609,69.9295 19.6187,69.9257 19.6351,69.9177 19.6481,69.9066 19.6411,69.8883 19.4672,69.8115 19.3691,69.7453 19.3532,69.7373 19.3075,69.7261 19.2459,69.7146 19.1381,69.7018 19.0936,69.6991 19.0936,69.6991 873,3.0,Finland 20.537,68.9715 20.5655,68.9806 20.631,68.9981 20.6535,69.0037 20.6871,69.0071 20.7294,69.0045 20.7846,68.9961 20.8908,68.9696 20.9359,68.9563 20.9882,68.9444 21.0186,68.948 21.0346,68.9628 21.064,69.0084 21.0275,69.0329 21.0086,69.0517 20.9972,69.0717 20.9853,69.1214 21.0022,69.1347 21.2753,69.2368 21.6357,69.1953 21.9479,68.9895 21.9945,68.9635 22.1516,68.8492 22.2317,68.7933 22.3001,68.7553 22.3194,68.7072 22.3511,68.6231 22.4522,68.6408 22.5024,68.6496 22.7544,68.6032 22.8152,68.6049 23.0193,68.6053 23.0505,68.5864 23.0904,68.5611 23.1156,68.5494 23.1473,68.542 23.2113,68.5483 23.2374,68.5562 23.2839,68.5714 23.3583,68.5925 23.4174,68.6036 23.4678,68.6104 23.5332,68.617 23.6217,68.6228 23.6548,68.6287 23.6905,68.6541 23.712,68.6713 23.7457,68.7009 23.7741,68.738 23.8058,68.744 23.8489,68.7456 23.9256,68.7439 23.986,68.7367 24.0098,68.7302 24.0393,68.7139 24.0696,68.6954 24.155,68.6608 24.3027,68.6222 24.3654,68.6136 24.3984,68.6107 24.4613,68.6077 24.5267,68.6034 24.5769,68.5992 24.6379,68.5884 24.7021,68.5723 24.7211,68.5646 24.7524,68.5487 24.7791,68.529 24.8018,68.5053 24.8822,68.493 25.0234,68.5335 25.0518,68.55 25.052,68.5815 25.1016,68.6795 25.1164,68.7006 25.135,68.7151 25.1611,68.7289 25.1806,68.737 25.31,68.7852 25.3308,68.7922 25.353,68.7977 25.3836,68.8025 25.4276,68.8029 25.4537,68.7996 25.5085,68.7911 25.5313,68.7902 25.5635,68.7942 25.5854,68.8056 25.5983,68.8179 25.607,68.823 25.6374,68.8453 25.7064,68.9006 25.7135,68.9565 25.6772,69.0203 25.6531,69.1197 25.6582,69.1659 25.6843,69.229 25.6971,69.2498 25.7151,69.2643 25.7562,69.279 25.7783,69.2959 25.8185,69.3965 25.8976,69.4941 25.9145,69.529 25.9136,69.5525 25.8887,69.5751 25.9031,69.5954 25.9272,69.614 25.9483,69.6218 26.044,69.6361 26.0781,69.6448 26.0993,69.6521 26.1177,69.6614 26.3166,69.7619 26.3412,69.7784 26.3628,69.8056 26.3854,69.8303 26.4193,69.8458 26.5514,69.8604 26.7482,69.8613 26.807,69.8489 26.836,69.8349 26.9872,69.8173 27.0161,69.8189 27.1471,69.8428 27.227,69.8579 27.2469,69.8742 27.2391,69.8954 27.3617,69.9257 27.5098,69.9751 27.5387,69.9812 27.8113,69.9966 27.8491,69.9971 27.8762,69.9918 27.9097,69.9545 27.9151,69.9207 27.9305,69.907 28.0411,69.8441 28.098,69.8232 28.1361,69.816 28.1655,69.8116 28.2149,69.806 28.2554,69.7988 28.2803,69.7868 28.3023,69.7507 28.3184,69.737 28.3433,69.7312 28.6327,69.6782 28.682,69.6695 28.8474,69.6437 28.8836,69.6383 28.9382,69.6314 29.0398,69.616 29.0645,69.5957 29.1171,69.5407 29.2355,69.3957 29.2226,69.3741 29.2062,69.3623 29.0597,69.2815 29.002,69.2545 28.971,69.2411 28.9351,69.2263 28.8648,69.1969 28.841,69.1856 28.7638,69.147 28.7351,69.099 28.7213,69.0659 28.7235,69.0349 28.7406,69.0167 28.7658,69.0048 28.7961,68.9931 28.8289,68.9824 28.8957,68.9627 28.8516,68.9543 28.8162,68.9472 28.7941,68.9408 28.685,68.9084 28.3912,68.828 28.375,68.814 28.3796,68.794 28.4104,68.7859 28.4487,68.7843 28.5042,68.786 28.6447,68.7896 28.6769,68.7873 28.7318,68.7692 28.7561,68.7585 28.7385,68.7217 28.7009,68.6666 28.6776,68.6458 28.5944,68.5919 28.4577,68.4959 28.4,68.447 28.5,68.2983 28.6031,68.152 28.635,68.1084 28.7631,68.0852 29.0988,68.0296 29.2954,67.9957 29.3221,67.9754 29.4779,67.8521 29.6297,67.7287 29.6658,67.7169 29.8404,67.6544 29.9664,67.6085 29.9157,67.4867 29.8976,67.4527 29.8709,67.4279 29.838,67.4066 29.82,67.3976 29.6841,67.3308 29.4643,67.2085 29.097,66.9459 29.0744,66.9288 29.0306,66.8882 29.0219,66.8665 29.0157,66.8188 29.0168,66.793 29.0342,66.7668 29.0691,66.7359 29.1522,66.6862 29.1931,66.6665 29.2135,66.6538 29.2647,66.6201 29.2949,66.5936 29.3257,66.5443 29.3541,66.5159 29.4944,66.3865 29.508,66.3447 29.5169,66.3194 29.5304,66.2991 29.5718,66.246 29.7164,66.1265 29.7387,66.1093 29.7659,66.0924 29.7896,66.0803 29.8161,66.0688 29.8433,66.0508 29.8583,66.0294 29.888,65.9667 29.9719,65.8395 30.0335,65.7555 30.0421,65.736 30.0745,65.6265 30.0597,65.5859 30.0165,65.5932 29.97,65.6083 29.9322,65.6028 29.7589,65.5711 29.7745,65.5061 29.7382,65.4555 29.7107,65.4444 29.6867,65.4325 29.6787,65.3992 29.6801,65.3734 29.6863,65.333 29.6892,65.2644 29.647,65.2379 29.6119,65.2214 29.5539,65.1896 29.543,65.1627 29.574,65.1445 29.5997,65.1418 29.6781,65.1452 29.7282,65.1447 29.7612,65.1421 29.7888,65.1367 29.8109,65.1206 29.8101,65.0386 29.7772,65.0258 29.7477,65.0179 29.7147,65.0134 29.6672,65.0114 29.615,65.0006 29.5872,64.9906 29.5624,64.9712 29.5493,64.9251 29.582,64.8402 29.5941,64.824 29.6129,64.8065 29.6555,64.7718 29.6746,64.7569 29.6961,64.7422 29.7155,64.7292 29.7497,64.7138 29.7839,64.7121 29.8324,64.7127 29.8669,64.7144 29.8909,64.7151 29.9885,64.7151 30.0215,64.7123 30.0615,64.7037 30.0832,64.6917 30.1469,64.5831 30.1169,64.5512 30.082,64.5393 30.013,64.5245 29.9677,64.5177 29.9173,64.4988 29.9278,64.4729 29.9512,64.4322 29.9894,64.4227 30.0093,64.4148 30.0285,64.4008 30.0263,64.3801 30.0023,64.3256 30.0698,64.2844 30.1038,64.2731 30.1372,64.2693 30.2617,64.2498 30.2994,64.24 30.3297,64.2297 30.5032,64.1613 30.5169,64.1443 30.5523,64.015 30.5501,63.9914 30.5349,63.9678 30.4912,63.9361 30.4686,63.921 30.4205,63.8943 30.3381,63.8518 30.2039,63.7439 30.1511,63.7223 30.0759,63.7013 30.0555,63.6966 30.0039,63.688 29.9742,63.6822 29.9499,63.6759 29.938,63.6693 29.9402,63.6569 30.147,63.5342 30.1863,63.515 30.2497,63.4941 30.2979,63.4818 30.336,63.4698 30.3977,63.4252 30.4189,63.4029 30.5891,63.3615 30.6547,63.3465 30.8518,63.2756 31.1256,63.1604 31.1586,63.1455 31.1815,63.1269 31.3217,62.9918 31.4582,62.9053 31.5204,62.8308 31.4602,62.7764 31.44,62.7584 31.4127,62.7355 31.3689,62.682 31.2613,62.5385 31.25,62.5213 31.2337,62.4877 31.2195,62.4594 31.1978,62.4319 31.0228,62.3366 30.9043,62.2631 30.7748,62.1951 30.7332,62.1777 30.645,62.1344 30.5733,62.0903 30.3377,61.9408 30.2421,61.8805 30.1459,61.8149 30.097,61.7808 30.0844,61.7714 29.9411,61.6592 29.7448,61.5286 29.6267,61.4589 29.5956,61.4427 29.441,61.3621 29.2992,61.285 29.2781,61.2707 29.2461,61.2436 29.229,61.2285 29.2183,61.2177 29.1938,61.2015 29.1578,61.1789 29.1101,61.1577 29.0166,61.1249 28.9158,61.0883 28.7618,61.0309 28.6654,60.9712 28.6195,60.9276 28.591,60.8971 28.5653,60.886 28.5234,60.8876 28.4753,60.8807 28.4122,60.8512 28.3349,60.8127 28.2882,60.7846 28.2756,60.7676 28.2448,60.7468 28.2158,60.7304 28.1927,60.7197 28.0406,60.6388 27.8319,60.5159 27.7552,60.4731 27.7256,60.4981 27.6903,60.4932 27.6818,60.4623 27.6857,60.438 27.619,60.4314 27.5547,60.4329 27.4224,60.4311 27.4213,60.4032 27.2442,60.4308 27.2198,60.4603 27.1677,60.5102 26.9734,60.4584 26.9075,60.3716 26.8546,60.4029 26.7605,60.3996 26.689,60.3756 26.6167,60.3535 26.5134,60.355 26.4502,60.3719 26.4283,60.4048 26.5196,60.5067 26.5447,60.5246 26.5726,60.5336 26.6081,60.5348 26.6451,60.5184 26.6991,60.5021 26.6714,60.5443 26.6416,60.569 26.6018,60.5728 26.5612,60.5652 26.4959,60.5086 26.4767,60.4919 26.4064,60.4237 26.4193,60.3849 26.4234,60.3547 26.3667,60.3186 26.0967,60.3209 26.0058,60.3497 26.0561,60.247 26.0295,60.2212 25.9927,60.2329 25.9473,60.2719 25.8401,60.3165 25.7895,60.3253 25.8221,60.3099 25.8642,60.284 25.8728,60.1709 25.8387,60.172 25.8233,60.1989 25.6976,60.2313 25.7455,60.1951 25.7879,60.1963 25.7264,60.161 25.6722,60.1753 25.6257,60.2026 25.603,60.2224 25.6069,60.2634 25.6412,60.2758 25.6093,60.2882 25.5279,60.256 25.4971,60.238 25.4363,60.1742 25.3201,60.1829 25.149,60.1681 25.1026,60.1479 25.1474,60.136 25.1442,60.1117 25.0187,60.0836 24.9072,60.0636 24.8041,60.0641 24.7045,60.0645 24.557,60.0495 24.5624,60.0201 24.5431,59.9823 24.4264,59.9184 24.3752,59.9151 24.3757,59.9548 24.3151,59.9969 24.2876,59.9996 24.2425,59.9928 24.1715,59.967 24.0288,59.9429 23.7527,59.8897 23.6575,59.8823 23.5768,59.8761 23.517,59.8984 23.4658,59.8964 23.3874,59.8816 23.4355,59.9246 23.4778,59.9471 23.4956,59.9561 23.4933,59.9949 23.4497,59.986 23.3221,59.87 23.2058,59.7661 23.1505,59.7557 22.8575,59.735 22.8917,59.7687 23.0435,59.8071 23.0717,59.8124 23.1175,59.8129 23.2134,59.8475 23.2528,59.8866 23.2818,59.9277 23.292,59.9517 23.2704,59.9456 23.2531,59.9277 23.2364,59.9072 23.2069,59.8731 23.1839,59.8568 23.0657,59.8538 23.0678,59.8982 23.1232,59.9133 23.1587,59.9211 23.1779,59.9295 23.2111,59.9649 23.1486,59.9754 23.1031,59.9738 23.083,59.9716 23.062,59.9655 23.0357,59.9595 23.0062,59.9639 22.948,59.9851 22.955,60.0138 22.9743,60.0285 22.9995,60.0463 22.9819,60.0559 22.9244,60.0392 22.8631,60.0537 22.8316,60.0729 22.8269,60.1066 22.8611,60.1432 22.8837,60.158 22.9245,60.1775 22.9739,60.2094 23.041,60.2723 23.0181,60.2804 22.876,60.2312 22.7582,60.1858 22.7176,60.1714 22.6918,60.1646 22.6563,60.1563 22.6201,60.1495 22.523,60.1392 22.4072,60.1697 22.4206,60.1912 22.4418,60.2105 22.4938,60.2395 22.5839,60.3073 22.4412,60.3188 22.2351,60.3126 22.2172,60.3251 22.1949,60.3352 22.1342,60.3581 22.0729,60.3757 22.0418,60.3707 21.9728,60.3923 21.9295,60.4149 21.9043,60.4433 21.8285,60.4508 21.8015,60.4455 21.8217,60.3987 21.7619,60.4093 21.7608,60.4918 21.7886,60.5149 21.7832,60.5459 21.7294,60.5279 21.6231,60.479 21.5474,60.4364 21.536,60.4893 21.511,60.4961 21.4697,60.501 21.4412,60.4942 21.4121,60.4893 21.3836,60.506 21.3181,60.5802 21.3168,60.6057 21.3455,60.6127 21.3521,60.6818 21.3149,60.7411 21.288,60.7914 21.3473,60.8667 21.3647,60.9565 21.4038,61.0929 21.4529,61.1612 21.5034,61.2017 21.5135,61.2348 21.4893,61.3726 21.4707,61.4378 21.4278,61.4816 21.4572,61.4985 21.5622,61.4696 21.6226,61.4653 21.5602,61.5266 21.4942,61.5782 21.4311,61.6856 21.4474,61.7251 21.3694,61.8152 21.3224,61.854 21.2586,61.8663 21.2435,61.8707 21.2126,61.9299 21.2447,61.9935 21.2649,62.0329 21.2929,62.0779 21.339,62.1063 21.348,62.1302 21.3303,62.1839 21.2912,62.2743 21.2179,62.2996 21.1146,62.3365 21.0707,62.3754 21.0743,62.4148 21.0845,62.4709 21.025,62.5214 21.0648,62.6905 21.093,62.7128 21.2567,62.7837 21.3043,62.7773 21.3317,62.7851 21.3548,62.8093 21.3917,62.8661 21.4043,62.89 21.4089,62.9289 21.394,62.9574 21.4591,62.989 21.4865,62.9855 21.5093,62.9675 21.5778,62.9413 21.6343,62.9427 21.6405,62.9524 21.6357,62.9564 21.613,62.9703 21.5691,62.9905 21.5276,63.0012 21.4767,63.0479 21.4599,63.0821 21.4548,63.126 21.4966,63.1527 21.5254,63.1436 21.5983,63.1147 21.6479,63.1313 21.8352,63.1781 21.8499,63.1285 21.924,63.1054 22.0432,63.1451 22.1363,63.1531 22.1734,63.1587 22.2963,63.1987 22.326,63.2354 22.3119,63.2617 22.2803,63.29 22.2551,63.2979 22.2284,63.3081 22.1573,63.3411 22.1445,63.367 22.2446,63.4476 22.2896,63.4417 22.3322,63.4114 22.3526,63.3944 22.3854,63.4206 22.4455,63.4876 22.4613,63.5051 22.4609,63.5337 22.545,63.6172 22.6213,63.6202 22.6568,63.605 22.6625,63.581 22.6956,63.5414 22.7361,63.5474 22.7797,63.563 22.8549,63.6202 22.8813,63.6841 22.8785,63.7226 23.021,63.772 23.1025,63.7992 23.1552,63.8072 23.273,63.8177 23.3245,63.8625 23.3255,63.9079 23.3391,63.9666 23.3816,63.9701 23.4653,63.9571 23.5558,63.9852 23.5618,64.0193 23.6056,64.0617 23.6476,64.0794 23.6648,64.0836 23.6753,64.1048 23.8084,64.1645 23.8796,64.1898 23.8798,64.2115 23.9485,64.3037 24.0723,64.3568 24.162,64.3928 24.2302,64.4171 24.2914,64.4416 24.311,64.4629 24.3258,64.5058 24.3228,64.5391 24.3766,64.5952 24.4867,64.6663 24.491,64.7186 24.6819,64.7738 24.7543,64.7885 24.9505,64.8116 25.0348,64.8312 25.0664,64.8268 25.1303,64.7863 25.1438,64.765 25.1803,64.7389 25.2035,64.7337 25.2473,64.7342 25.2693,64.7374 25.2898,64.7415 25.3117,64.7488 25.3149,64.8174 25.2928,64.8272 25.2599,64.8223 25.1801,64.8492 25.1394,64.8833 25.1631,64.9075 25.2714,64.8998 25.3176,64.8779 25.3636,64.8637 25.3936,64.8727 25.3626,64.9533 25.3201,64.9982 25.3035,65.0112 25.241,65.028 25.2172,65.0885 25.2428,65.1847 25.2508,65.212 25.2745,65.2642 25.3048,65.3288 25.3066,65.3662 25.3004,65.3968 25.2533,65.4329 25.1647,65.4723 25.1392,65.4773 25.1112,65.4735 25.0817,65.4721 25.0516,65.4873 25.0425,65.5098 25.0304,65.5238 24.8415,65.5659 24.7463,65.576 24.7218,65.5742 24.6988,65.5659 24.6197,65.5723 24.5103,65.6444 24.5043,65.6793 24.5099,65.7077 24.5804,65.7719 24.6393,65.8135 24.5771,65.8048 24.5128,65.7421 24.4893,65.7128 24.3997,65.7118 24.3655,65.6848 24.1716,65.6908 24.1266,65.7088 24.1185,65.7312 24.1154,65.7499 23.9828,65.9371 23.9193,65.9894 23.9003,66.0182 23.887,66.0454 23.8706,66.061 23.8381,66.0735 23.8079,66.0769 23.7663,66.0847 23.7068,66.1017 23.6782,66.1148 23.6368,66.18 23.6144,66.2288 23.5918,66.3495 23.6079,66.3734 23.6769,66.4167 23.7589,66.4536 23.7784,66.4598 23.8255,66.4714 23.8409,66.4916 23.8542,66.596 23.8521,66.628 23.8435,66.6603 23.8935,66.7034 23.9519,66.7177 23.8918,66.7951 23.8182,66.8464 23.7391,66.8966 23.7023,66.911 23.6826,66.9236 23.6326,66.9625 23.5249,67.0718 23.5419,67.1553 23.5612,67.1758 23.5816,67.182 23.6342,67.1902 23.6591,67.1926 23.6941,67.201 23.7312,67.2409 23.716,67.3312 23.686,67.3403 23.5334,67.3644 23.4942,67.3668 23.4712,67.3575 23.4454,67.3516 23.4207,67.3572 23.3997,67.3666 23.3823,67.3938 23.4235,67.4703 23.459,67.5794 23.4426,67.6264 23.4217,67.7332 23.4399,67.7843 23.4622,67.7972 23.4966,67.8035 23.5528,67.8097 23.6063,67.8346 23.6105,67.8593 23.5892,67.8712 23.4824,67.9058 23.3456,67.9555 23.3232,67.9731 23.3045,67.9966 23.007,68.2037 22.921,68.2304 22.8884,68.2349 22.857,68.2425 22.8157,68.2699 22.7786,68.2985 22.6192,68.3339 22.5341,68.3397 22.4528,68.3524 22.3834,68.3639 22.3249,68.3759 22.1124,68.3773 22.0021,68.3937 21.9825,68.4147 21.9543,68.4336 21.9131,68.4562 21.8877,68.4675 21.8431,68.4833 21.8184,68.4857 21.7708,68.4824 21.7194,68.4877 21.681,68.4995 21.6606,68.5269 21.5969,68.5543 21.5773,68.5615 21.5477,68.5694 21.5049,68.5737 21.4486,68.5819 21.4083,68.5987 21.3752,68.6359 21.1671,68.7295 21.0368,68.7782 21.014,68.7849 20.9799,68.7891 20.9463,68.7911 20.9077,68.7921 20.8564,68.8036 20.8417,68.8295 20.8864,68.8606 20.8862,68.882 20.8642,68.8969 20.831,68.9125 20.802,68.9233 20.7474,68.9347 20.7001,68.9421 20.6059,68.9551 20.5601,68.9642 20.537,68.9715 20.537,68.9715 21,2.0,Norway 20.8271,69.845 20.794,69.8454 20.7788,69.8469 20.7549,69.8553 20.7276,69.8803 20.7135,69.8968 20.7145,69.908 20.7322,69.9306 20.7487,69.9454 20.762,69.9518 20.7759,69.9532 20.7925,69.9531 20.847,69.9399 20.9018,69.9109 20.9976,69.9146 21.0542,69.9164 20.9073,69.8551 20.8829,69.8502 20.8419,69.8456 20.8271,69.845 20.8271,69.845 67,12.0,Russia 169.0456,69.6736 168.9489,69.6777 168.9293,69.6777 168.9156,69.6729 168.9082,69.6642 168.9067,69.6142 168.9301,69.59 168.9387,69.5684 168.931,69.5526 168.9164,69.5375 168.8845,69.5118 168.8602,69.4949 168.8505,69.4889 168.8405,69.4839 168.8203,69.4802 168.8029,69.4789 168.5615,69.4772 168.5039,69.4778 168.4683,69.4802 168.3193,69.5024 168.2866,69.5073 167.9706,69.5681 167.7842,69.6081 167.7692,69.617 167.7298,69.6498 167.7076,69.6636 167.695,69.6693 167.6811,69.6742 167.5501,69.6956 167.4315,69.7106 167.4162,69.7142 167.4046,69.7212 167.3948,69.7292 167.3879,69.737 167.3948,69.7464 167.4356,69.771 167.5305,69.825 167.5508,69.8356 167.5846,69.8509 167.6196,69.8634 167.7773,69.9097 167.8831,69.9297 167.9025,69.9298 167.9528,69.9252 167.9882,69.9217 168.163,69.902 168.1963,69.8972 168.2465,69.89 168.3642,69.873 168.4255,69.8586 168.4536,69.8489 168.4838,69.8422 168.5008,69.8397 168.5358,69.8359 168.6753,69.8209 168.731,69.8181 168.7699,69.8177 168.8423,69.8122 168.9921,69.7901 169.0393,69.7805 169.0532,69.7757 169.064,69.7685 169.0735,69.76 169.0879,69.7308 169.0801,69.7187 169.0456,69.6736 169.0456,69.6736 16,2.0,Norway 19.4319,69.7494 19.4195,69.7564 19.4799,69.7936 19.4986,69.8021 19.7552,69.9097 19.7715,69.91 19.7904,69.9079 19.8023,69.9047 19.8216,69.8975 19.8522,69.8747 19.7444,69.7801 19.7295,69.7743 19.6847,69.7719 19.5249,69.7614 19.4319,69.7494 19.4319,69.7494 32,-6.0,Canada -97.1155,69.8411 -97.1362,69.8239 -97.1375,69.8086 -97.126,69.8024 -97.1087,69.798 -97.0899,69.799 -97.0785,69.8026 -97.0609,69.8039 -97.0383,69.8007 -97.0226,69.7951 -97.0172,69.7803 -97.0289,69.7695 -97.0578,69.7619 -97.0724,69.7625 -97.0878,69.7655 -97.0973,69.7699 -97.1063,69.7788 -97.2064,69.803 -97.2368,69.8038 -97.2537,69.8057 -97.2683,69.8083 -97.2766,69.8175 -97.2806,69.8271 -97.2746,69.856 -97.2638,69.8647 -97.2543,69.8703 -97.2415,69.8723 -97.2254,69.8711 -97.1387,69.8589 -97.1201,69.8531 -97.1155,69.8411 -97.1155,69.8411 72,-2.0,Greenland -50.891,69.8279 -50.855,69.8124 -50.8287,69.8051 -50.8126,69.8022 -50.7893,69.8006 -50.7691,69.8004 -50.6692,69.7946 -50.56,69.77 -50.5512,69.7616 -50.5476,69.7432 -50.5836,69.7149 -50.5928,69.7091 -50.6863,69.6711 -50.6974,69.6697 -50.7302,69.6678 -50.7428,69.6721 -50.7654,69.6806 -50.7793,69.6771 -50.8377,69.647 -50.847,69.6414 -50.8549,69.6341 -50.8767,69.5436 -50.8689,69.5207 -50.8545,69.5032 -50.8392,69.4802 -50.8378,69.47 -50.8482,69.4607 -50.8578,69.4572 -50.9992,69.4159 -51.0115,69.4147 -51.025,69.4146 -51.0604,69.419 -51.1007,69.4293 -51.1344,69.4415 -51.139,69.4524 -51.223,69.5952 -51.2334,69.5984 -51.2505,69.6 -51.2667,69.6033 -51.2754,69.6118 -51.2642,69.6272 -51.2351,69.6461 -51.1435,69.6889 -51.1114,69.7037 -51.0687,69.7196 -51.0465,69.728 -51.0245,69.735 -50.9679,69.7575 -50.9137,69.7793 -50.9004,69.7878 -50.9163,69.7921 -50.9382,69.7896 -50.967,69.7844 -51.0066,69.7752 -51.0308,69.7669 -51.0417,69.7622 -51.0508,69.7567 -51.0708,69.7458 -51.0861,69.7428 -51.1062,69.7435 -51.1234,69.7452 -51.2393,69.7574 -51.2512,69.7615 -51.1096,69.8226 -51.0957,69.8258 -51.0803,69.8284 -51.043,69.8301 -50.9483,69.8339 -50.9086,69.8323 -50.8977,69.8305 -50.891,69.8279 -50.891,69.8279 20,2.0,Norway 29.7289,69.664 29.6662,69.6691 29.6521,69.6743 29.7055,69.7109 29.744,69.7316 29.7454,69.7748 29.7568,69.8109 29.7662,69.8161 29.7771,69.8196 29.8105,69.8168 29.8283,69.814 29.9129,69.8003 29.9375,69.7944 29.9829,69.7373 29.9776,69.7181 29.8951,69.6979 29.7741,69.669 29.762,69.6667 29.7289,69.664 29.7289,69.664 14,2.0,Norway 20.5598,69.7057 20.5287,69.7079 20.5189,69.7202 20.5134,69.7625 20.5455,69.8003 20.5567,69.8079 20.5665,69.8121 20.5787,69.8143 20.6927,69.813 20.6874,69.7297 20.6723,69.7253 20.6356,69.7184 20.5598,69.7057 20.5598,69.7057 208,-6.0,Canada -99.35,68.9102 -99.3109,68.895 -99.2768,68.8789 -99.2399,68.8501 -99.2379,68.8165 -99.2209,68.8005 -99.2015,68.7958 -99.0999,68.7802 -99.0557,68.7705 -99.0347,68.7642 -99.0255,68.7603 -98.9995,68.7434 -98.9712,68.7365 -98.8331,68.7737 -98.8581,68.799 -98.8847,68.8109 -98.8664,68.8298 -98.776,68.8604 -98.7549,68.8607 -98.6386,68.845 -98.6094,68.8224 -98.6489,68.7947 -98.6647,68.7581 -98.6428,68.739 -98.5148,68.7029 -98.3101,68.6591 -98.274,68.6581 -98.2421,68.6616 -98.1963,68.68 -98.1884,68.7062 -98.2061,68.727 -98.2054,68.7629 -98.1669,68.7702 -98.06,68.7434 -98.0345,68.7285 -98.0536,68.7012 -98.0773,68.6666 -98.0524,68.6452 -98.0316,68.6328 -97.9167,68.5846 -97.891,68.5829 -97.8732,68.5923 -97.8482,68.6061 -97.8199,68.6061 -97.7107,68.5873 -97.5199,68.544 -97.4604,68.5157 -97.3724,68.4782 -97.3467,68.4689 -97.2997,68.4541 -97.2612,68.4469 -96.9757,68.4236 -96.943,68.4261 -96.9202,68.4314 -96.8905,68.4475 -96.7161,68.4317 -96.5639,68.3975 -96.5131,68.3874 -96.3268,68.3572 -96.2999,68.3583 -96.0963,68.3829 -96.0602,68.4045 -95.9462,68.4693 -95.7915,68.5327 -95.6564,68.5652 -95.6452,68.5819 -95.5926,68.6472 -95.4118,68.6649 -95.3908,68.6643 -95.361,68.6551 -95.3395,68.6228 -95.2738,68.6236 -95.0654,68.7116 -95.0071,68.7628 -95.0318,68.7766 -95.1252,68.807 -95.1549,68.8107 -95.1808,68.8078 -95.2214,68.7983 -95.2433,68.7908 -95.2868,68.7732 -95.3069,68.7638 -95.325,68.7517 -95.3469,68.7447 -95.3724,68.742 -95.4225,68.7382 -95.4605,68.7472 -95.4664,68.7746 -95.5568,68.8021 -95.6161,68.7818 -95.6394,68.8343 -95.7274,68.9106 -95.7696,68.9567 -95.7486,68.9785 -95.722,68.9964 -95.7483,69.0508 -95.8385,69.137 -95.8607,69.1428 -95.9489,69.0783 -95.9464,69.0142 -95.9247,68.9657 -95.9146,68.9406 -95.9611,68.9425 -95.9897,68.9495 -96.0252,68.9693 -96.0175,69.0527 -96.0049,69.1298 -95.9921,69.1459 -95.9662,69.1684 -95.9959,69.2119 -96.0942,69.2571 -96.1133,69.2651 -96.2948,69.32 -96.4296,69.3477 -96.6643,69.3998 -96.7465,69.4336 -96.8546,69.4829 -96.8887,69.5079 -96.8994,69.5289 -96.9967,69.5775 -97.0161,69.5855 -97.0708,69.6062 -97.0994,69.6023 -97.1189,69.5795 -97.1399,69.5455 -97.175,69.5055 -97.2729,69.5791 -97.2511,69.5933 -97.2308,69.5953 -97.194,69.5951 -97.154,69.5997 -97.1314,69.612 -97.2377,69.6701 -97.3682,69.6918 -97.3981,69.6983 -97.448,69.7129 -97.4763,69.7263 -97.5425,69.7609 -97.6675,69.7945 -97.7089,69.8015 -97.7324,69.8031 -97.761,69.8015 -97.7927,69.7966 -97.8253,69.7843 -97.8448,69.7639 -97.8713,69.7379 -97.8999,69.7221 -97.931,69.7162 -97.9893,69.7115 -98.0173,69.6984 -98.0689,69.6614 -98.1048,69.6277 -98.1516,69.5091 -98.1177,69.5002 -98.0834,69.4953 -98.0473,69.4868 -97.9994,69.4492 -97.9767,69.4262 -97.9502,69.4115 -97.8598,69.3791 -97.7904,69.3543 -97.8289,69.335 -97.8742,69.3344 -98.0368,69.3951 -98.0724,69.4167 -98.1044,69.4383 -98.1241,69.4538 -98.1419,69.467 -98.1729,69.4764 -98.2206,69.4858 -98.2807,69.4941 -98.3185,69.4949 -98.3559,69.4846 -98.3886,69.4502 -98.3815,69.4267 -98.3585,69.4168 -98.3367,69.4117 -98.244,69.3948 -98.2099,69.38 -98.2356,69.3718 -98.2654,69.3724 -98.296,69.3738 -98.3346,69.3819 -98.3669,69.3845 -98.3981,69.3574 -98.3855,69.3408 -98.3467,69.3127 -98.3173,69.3006 -98.2712,69.2923 -98.2371,69.2786 -98.1778,69.2359 -98.1955,69.2142 -98.23,69.2086 -98.3222,69.2019 -98.4036,69.2054 -98.4907,69.1277 -98.5114,69.1038 -98.5628,69.0866 -98.5865,69.0816 -98.7949,69.0472 -98.8233,69.0468 -98.9562,69.0492 -99.0256,69.0607 -99.0913,69.0696 -99.2676,69.0387 -99.3006,69.013 -99.3791,68.9331 -99.35,68.9102 79,2.0,Norway 18.275,69.6132 18.3562,69.6098 18.549,69.602 18.5867,69.6027 18.5706,69.6116 18.4822,69.6216 18.4441,69.625 18.3967,69.6241 18.3241,69.63 18.3084,69.6353 18.2836,69.6754 18.2886,69.6864 18.3134,69.6956 18.3476,69.7041 18.3596,69.7008 18.4418,69.6704 18.5941,69.673 18.6075,69.6336 18.616,69.6213 18.6303,69.613 18.6693,69.5941 18.6813,69.5909 18.6989,69.59 18.7155,69.5949 18.726,69.6754 18.7127,69.7109 18.6937,69.7181 18.6457,69.7391 18.6201,69.7732 18.6276,69.7847 18.6527,69.7939 18.7635,69.7921 18.7806,69.7902 18.7929,69.7869 18.9549,69.7347 18.974,69.7273 19.0023,69.7107 19.0166,69.697 19.0235,69.6786 19.0187,69.669 19.0031,69.6596 18.9769,69.6463 18.8927,69.6142 18.8717,69.6074 18.8493,69.602 18.7538,69.5818 18.734,69.5603 18.7305,69.544 18.7491,69.5393 18.7656,69.5396 18.7834,69.5344 18.8057,69.5112 18.7428,69.4791 18.722,69.473 18.698,69.468 18.6834,69.4672 18.6642,69.4689 18.5707,69.4705 18.4975,69.4663 18.3696,69.456 18.3575,69.4534 18.3049,69.4469 18.2021,69.4408 18.1873,69.4398 18.1514,69.44 18.1206,69.4448 18.0063,69.4749 17.987,69.4822 17.9611,69.5006 17.9932,69.5324 18.1073,69.5487 18.1235,69.5485 18.2292,69.5291 18.2406,69.5457 18.1471,69.6137 18.1581,69.6188 18.2589,69.615 18.275,69.6132 18.275,69.6132 16,-6.0,Canada -91.3369,69.6366 -91.351,69.6371 -91.3619,69.6382 -91.5261,69.6939 -91.5354,69.7002 -91.277,69.7849 -91.2505,69.7886 -91.2351,69.7902 -91.2206,69.7894 -91.2106,69.7845 -91.2582,69.6846 -91.265,69.6733 -91.272,69.6652 -91.3215,69.641 -91.3369,69.6366 -91.3369,69.6366 18,-5.0,Canada -82.4567,69.7808 -82.3765,69.7705 -82.3378,69.7639 -82.2669,69.7319 -82.2538,69.7244 -82.2472,69.7063 -82.2489,69.6942 -82.2653,69.6881 -82.2917,69.6911 -82.3344,69.6978 -82.3469,69.7004 -82.372,69.7065 -82.385,69.7105 -82.5088,69.7602 -82.4933,69.7853 -82.4809,69.7856 -82.4567,69.7808 -82.4567,69.7808 25,-5.0,Canada -83.3953,69.6907 -83.4205,69.6898 -83.5143,69.6738 -83.5268,69.6632 -83.5119,69.6554 -83.4772,69.6395 -83.493,69.6296 -83.5074,69.6294 -83.5365,69.6333 -83.5953,69.6425 -83.6253,69.6494 -83.7168,69.6741 -83.7264,69.6788 -83.7351,69.6883 -83.7308,69.7028 -83.7186,69.7178 -83.7049,69.7284 -83.6916,69.7328 -83.6781,69.7339 -83.6506,69.7347 -83.3962,69.7076 -83.3501,69.6985 -83.3608,69.693 -83.3953,69.6907 -83.3953,69.6907 69,-5.0,Canada -79.5951,69.6627 -79.5834,69.6885 -79.5756,69.6959 -79.5096,69.724 -79.3401,69.7164 -79.3042,69.7134 -79.2812,69.7086 -79.2701,69.7048 -79.2549,69.697 -79.1581,69.62 -79.16,69.6091 -79.1829,69.598 -79.3101,69.5561 -79.3729,69.5365 -79.3996,69.5293 -79.4283,69.5228 -79.4595,69.5191 -79.7876,69.5332 -79.801,69.5416 -79.8219,69.5485 -79.8489,69.5536 -79.8648,69.5554 -79.8891,69.5527 -79.908,69.5374 -79.8599,69.4973 -79.8185,69.4788 -79.765,69.4357 -79.8017,69.4125 -79.8215,69.4046 -79.8438,69.4023 -79.8735,69.4082 -80.0274,69.4411 -80.0415,69.4969 -80.1797,69.5246 -80.2879,69.5662 -80.3187,69.5748 -80.4034,69.5773 -80.569,69.576 -80.5864,69.5769 -80.6184,69.58 -80.6294,69.5855 -80.6346,69.5961 -80.6263,69.6108 -80.5515,69.6579 -80.4749,69.6583 -80.3456,69.6307 -80.3252,69.6708 -80.3291,69.6804 -80.3268,69.6914 -80.316,69.6982 -80.2919,69.7018 -80.2145,69.7095 -80.197,69.7088 -80.1651,69.7022 -80.1693,69.6903 -80.1555,69.6837 -80.1404,69.6878 -80.1151,69.6964 -80.0899,69.7051 -80.0725,69.7081 -80.0584,69.7092 -80.0327,69.7077 -80.0133,69.7036 -79.9553,69.6754 -79.8993,69.6594 -79.7994,69.6333 -79.6898,69.651 -79.5951,69.6627 -79.5951,69.6627 19,-5.0,Canada -82.6162,69.7148 -82.5965,69.714 -82.4983,69.7045 -82.4505,69.6987 -82.3849,69.6883 -82.2815,69.6714 -82.2753,69.6274 -82.2884,69.6199 -82.329,69.6149 -82.3639,69.6142 -82.4998,69.636 -82.5407,69.643 -82.6854,69.6804 -82.6987,69.6866 -82.6765,69.7099 -82.6631,69.713 -82.6277,69.7157 -82.6162,69.7148 -82.6162,69.7148 62,-5.0,Canada -77.9727,69.6523 -77.9107,69.6394 -77.8492,69.6181 -77.8239,69.6091 -77.8138,69.6045 -77.8049,69.5986 -77.7971,69.5916 -77.7868,69.5783 -77.7779,69.5565 -77.7768,69.5464 -77.797,69.5349 -77.9014,69.5027 -78.0012,69.4806 -78.1427,69.4533 -78.2285,69.431 -78.3355,69.3992 -78.4069,69.4121 -78.4184,69.4163 -78.4417,69.4196 -78.4566,69.4202 -78.4763,69.4201 -78.4947,69.4176 -78.5154,69.4086 -78.5282,69.3995 -78.549,69.3904 -78.5872,69.3779 -78.6322,69.3661 -78.6476,69.3633 -78.6687,69.3618 -78.6876,69.366 -78.7009,69.3731 -78.7084,69.3905 -78.6947,69.4053 -78.6713,69.4182 -78.6562,69.422 -78.6398,69.4242 -78.6131,69.4314 -78.5941,69.4374 -78.5476,69.455 -78.5252,69.4669 -78.5046,69.4786 -78.4828,69.4921 -78.458,69.5188 -78.4455,69.5274 -78.4164,69.5421 -78.4059,69.5464 -78.3527,69.5582 -78.33,69.5603 -78.3129,69.5594 -78.2305,69.5534 -78.0916,69.5701 -78.076,69.5737 -78.0594,69.5843 -78.0713,69.6009 -78.0872,69.6156 -78.0942,69.6236 -78.0985,69.6403 -78.0108,69.6618 -77.9946,69.6621 -77.9847,69.6605 -77.9727,69.6523 -77.9727,69.6523 23,-2.0,Greenland -23.2062,69.6357 -23.1789,69.5966 -23.1731,69.5761 -23.1823,69.5678 -23.1956,69.5629 -23.2363,69.5512 -23.2522,69.5495 -23.2858,69.5496 -23.3361,69.5538 -23.4396,69.5651 -23.4559,69.5679 -23.4685,69.5712 -23.4889,69.5807 -23.4982,69.5865 -23.542,69.6204 -23.513,69.6283 -23.4226,69.6443 -23.4105,69.6456 -23.3938,69.6466 -23.2611,69.6514 -23.2388,69.6482 -23.2062,69.6357 -23.2062,69.6357 17,-4.0,Canada -67.7227,69.6106 -67.6742,69.5861 -67.6849,69.512 -67.7636,69.4369 -67.7737,69.432 -67.7887,69.429 -67.8554,69.437 -67.9025,69.4441 -68.0913,69.4805 -68.1012,69.5068 -67.9309,69.5752 -67.8236,69.6116 -67.8123,69.6147 -67.7992,69.6164 -67.7455,69.6184 -67.7227,69.6106 -67.7227,69.6106 20,11.0,Russia 161.3818,69.4669 161.3611,69.4749 161.3016,69.5263 161.3049,69.5392 161.3385,69.552 161.3578,69.5563 161.3789,69.5591 161.3994,69.561 161.4371,69.5606 161.4846,69.5598 161.4973,69.557 161.5077,69.5133 161.5051,69.494 161.4939,69.4854 161.4697,69.4747 161.4544,69.4703 161.4318,69.466 161.4115,69.4641 161.3818,69.4669 161.3818,69.4669 26,11.0,Russia 161.0255,69.3164 161.07,69.3543 161.0809,69.3701 161.0853,69.425 161.0799,69.4418 161.0685,69.4528 161.0585,69.4672 161.0475,69.4975 161.1282,69.5468 161.1471,69.5474 161.1827,69.5449 161.2126,69.5367 161.2395,69.5245 161.2648,69.5062 161.2733,69.4986 161.2845,69.4814 161.2786,69.3938 161.2715,69.3597 161.2485,69.3459 161.2361,69.3405 161.2176,69.3363 161.1819,69.3296 161.1422,69.3219 161.0908,69.3186 161.0255,69.3164 161.0255,69.3164 49,-6.0,Canada -95.2827,69.4755 -95.2462,69.4603 -95.1699,69.428 -95.157,69.4218 -95.1565,69.409 -95.1973,69.2939 -95.3106,69.2414 -95.3217,69.2381 -95.3345,69.2358 -95.401,69.2299 -95.4149,69.2291 -95.4285,69.2291 -95.4869,69.2296 -95.5012,69.2302 -95.5169,69.2316 -95.5346,69.2413 -95.5239,69.2864 -95.5111,69.2933 -95.4881,69.2998 -95.4633,69.3046 -95.4518,69.3078 -95.4425,69.3137 -95.4602,69.4079 -95.4627,69.4176 -95.4877,69.4506 -95.5013,69.4589 -95.5134,69.463 -95.5299,69.4652 -95.6088,69.473 -95.6228,69.467 -95.6159,69.4248 -95.6108,69.4151 -95.6029,69.4058 -95.5908,69.3918 -95.6561,69.2585 -95.6659,69.2532 -95.6933,69.2515 -95.7552,69.2569 -95.7723,69.2599 -95.7843,69.2637 -95.8035,69.3907 -95.7126,69.5053 -95.702,69.5094 -95.5823,69.5442 -95.5668,69.5429 -95.4186,69.5261 -95.4054,69.5245 -95.2827,69.4755 -95.2827,69.4755 150,2.0,Norway 16.8396,69.1323 16.8496,69.1359 16.8756,69.1391 16.9045,69.1415 16.965,69.1437 17.0028,69.1404 17.0357,69.1364 17.0717,69.1342 17.0853,69.1403 17.106,69.16 17.0337,69.1865 17.0029,69.1793 16.8773,69.203 16.8643,69.2084 16.8629,69.219 16.8771,69.2247 16.892,69.2257 16.9779,69.2244 17.0472,69.2255 17.0622,69.2255 17.0525,69.2534 17.041,69.2559 17.0076,69.2598 16.9938,69.2592 16.9816,69.2554 16.9415,69.261 16.927,69.2597 16.8732,69.2625 16.8544,69.264 16.8392,69.2687 16.899,69.305 17.0073,69.3093 17.1661,69.3147 17.2539,69.3181 17.3528,69.3231 17.4432,69.3302 17.4531,69.3349 17.4443,69.3408 17.4154,69.3457 17.3691,69.3463 17.3483,69.3444 17.283,69.3473 17.2242,69.3546 17.2009,69.3639 17.1496,69.404 17.1598,69.4101 17.1756,69.4106 17.1875,69.4076 17.217,69.3937 17.2467,69.3747 17.2587,69.3719 17.2762,69.3707 17.3239,69.3883 17.3065,69.4115 17.268,69.4346 17.2864,69.4421 17.3024,69.4423 17.3768,69.4303 17.4197,69.4226 17.5076,69.395 17.5343,69.3731 17.5524,69.3656 17.5683,69.3844 17.5236,69.4214 17.515,69.4262 17.4823,69.445 17.465,69.4455 17.4482,69.4477 17.4361,69.4507 17.4217,69.4777 17.4316,69.5077 17.4477,69.5077 17.4912,69.4946 17.501,69.491 17.5154,69.4829 17.5301,69.4746 17.5565,69.4609 17.5791,69.4385 17.5986,69.4264 17.6479,69.4195 17.6575,69.4269 17.6307,69.4564 17.6139,69.5015 17.6245,69.5077 17.8059,69.4994 17.8213,69.494 17.9258,69.4333 18.0352,69.3412 18.0463,69.3292 18.0613,69.27 18.0481,69.2598 18.0175,69.2588 17.9304,69.2536 17.9188,69.251 17.8791,69.236 17.8686,69.2294 17.8377,69.1505 17.9137,69.1101 17.9298,69.1104 17.9425,69.1122 17.9635,69.1094 17.9607,69.0989 17.863,69.0788 17.8244,69.0735 17.5464,69.068 17.4847,69.101 17.3696,69.0725 17.1752,69.0012 17.1579,68.993 17.1368,68.9779 17.1292,68.9688 17.1276,68.9567 17.1457,68.9548 17.1651,68.9556 17.1776,68.9477 17.1689,68.9373 17.1305,68.9273 17.0565,68.9147 17.0091,68.9145 17.0058,68.9181 17.0024,68.932 17.0458,68.9605 17.0926,68.9759 17.0993,68.9837 17.0896,68.99 17.0734,68.992 16.9201,68.979 16.8647,68.9654 16.8531,68.9625 16.7757,68.9607 16.7383,68.9781 16.7317,69.0013 16.7392,69.0105 16.7612,69.0254 16.7783,69.0295 16.7943,69.0296 16.883,69.0339 16.9682,69.0409 17.1045,69.0845 17.128,69.0984 17.1328,69.1075 17.1171,69.1055 17.0867,69.0953 17.0753,69.0927 17.0492,69.0893 17.0337,69.0889 16.9962,69.092 16.9042,69.1054 16.8396,69.1323 16.8396,69.1323 24,5.0,Russia 66.8884,69.4076 66.8948,69.4153 66.9192,69.4334 66.961,69.4616 66.989,69.4761 67.0039,69.4812 67.1394,69.503 67.1566,69.5054 67.1757,69.5038 67.193,69.4988 67.2051,69.4836 67.2211,69.4497 67.2208,69.4372 67.2106,69.4203 67.1545,69.3688 67.1406,69.3615 67.1243,69.3575 67.108,69.355 67.0715,69.3549 67.0519,69.3576 66.8945,69.3783 66.8778,69.3918 66.8884,69.4076 66.8884,69.4076 35,-4.0,Canada -67.362,69.4054 -67.4277,69.4168 -67.4398,69.4178 -67.4531,69.4168 -67.4809,69.4107 -67.4964,69.4105 -67.5857,69.4238 -67.6009,69.4285 -67.5888,69.4526 -67.5766,69.4553 -67.5611,69.4547 -67.5404,69.4513 -67.5287,69.4505 -67.5173,69.4523 -67.4321,69.47 -67.4,69.4774 -67.3834,69.4893 -67.3385,69.5002 -67.2793,69.4989 -67.2489,69.4949 -67.2217,69.4883 -67.1723,69.4687 -67.1645,69.4612 -67.1827,69.4429 -67.2056,69.4409 -67.2431,69.4433 -67.3275,69.444 -67.3469,69.4431 -67.3852,69.4395 -67.4033,69.4324 -67.3534,69.4224 -67.3359,69.4103 -67.3469,69.4057 -67.362,69.4054 -67.362,69.4054 47,-6.0,Canada -95.929,69.4561 -95.8954,69.4058 -95.8907,69.3936 -95.8889,69.3782 -95.8915,69.3681 -95.9383,69.2591 -95.9567,69.2584 -96.0269,69.2701 -96.0417,69.2735 -96.0627,69.2815 -96.0814,69.2892 -96.0978,69.2979 -96.1178,69.3106 -96.126,69.32 -96.1408,69.3334 -96.1746,69.3549 -96.1932,69.3635 -96.2227,69.3699 -96.2542,69.3727 -96.2993,69.3748 -96.3165,69.3779 -96.3406,69.3854 -96.4225,69.4223 -96.4455,69.4353 -96.5272,69.4895 -96.5126,69.4926 -96.4826,69.4919 -96.4679,69.4883 -96.4541,69.4797 -96.3547,69.4744 -96.2528,69.4741 -96.1933,69.4729 -96.1653,69.471 -96.1473,69.4651 -96.1366,69.4561 -96.1243,69.4423 -96.1087,69.4364 -96.084,69.4411 -96.0104,69.4567 -95.9993,69.4607 -95.9885,69.4695 -95.9767,69.4774 -95.9618,69.477 -95.9446,69.4737 -95.9278,69.4642 -95.929,69.4561 -95.929,69.4561 26,-6.0,Canada -101.1396,69.4359 -101.0989,69.4215 -101.0485,69.4086 -101.0355,69.4104 -101.0197,69.4092 -101.0093,69.4058 -100.9695,69.3826 -101.0137,69.3111 -101.0233,69.3026 -101.0389,69.2973 -101.0543,69.2918 -101.0254,69.2825 -101.0126,69.279 -101.0009,69.2818 -100.9076,69.3119 -100.7911,69.3608 -100.7885,69.3972 -100.8349,69.4145 -100.8434,69.439 -100.855,69.445 -101.0427,69.4919 -101.0568,69.491 -101.1264,69.4838 -101.1396,69.477 -101.1671,69.4456 -101.1396,69.4359 64,11.0,Russia 161.0791,68.7982 161.0646,68.803 161.0738,68.8162 161.095,68.8368 161.1227,68.8568 161.1285,68.8856 161.1254,68.8989 161.1136,68.9066 161.0552,68.9368 161.0116,68.9507 160.9437,68.9699 160.8764,68.9771 160.8132,68.989 160.7984,68.9936 160.7903,69.0006 160.7869,69.0143 160.7746,69.0746 160.7742,69.0877 160.7825,69.1453 160.7909,69.1774 160.7974,69.1894 160.8124,69.2074 160.8208,69.2304 160.8164,69.2535 160.808,69.2611 160.796,69.2689 160.7589,69.2911 160.7452,69.2965 160.733,69.3045 160.7221,69.3153 160.7156,69.3323 160.7192,69.3452 160.7293,69.3568 160.7495,69.381 160.7613,69.3861 160.9236,69.4406 160.9416,69.4441 160.9992,69.4548 161.0155,69.4559 161.0274,69.446 161.0401,69.4152 161.0416,69.3693 160.9423,69.3262 161.0147,69.2691 160.9794,69.1577 160.9748,69.1487 161.0411,69.0134 161.0623,68.9865 161.0757,68.972 161.0875,68.9642 161.1,68.9575 161.1243,68.9433 161.136,68.9349 161.1526,68.9199 161.171,68.8984 161.1758,68.8783 161.1771,68.8587 161.1739,68.8457 161.1655,68.8269 161.1567,68.8214 161.1366,68.8106 161.0999,68.8014 161.0791,68.7982 161.0791,68.7982 64,3.0,Russia 48.129,68.9951 48.1621,69.0392 48.1624,69.0971 48.1689,69.1336 48.1857,69.1646 48.2141,69.1935 48.2675,69.2327 48.2879,69.2457 48.3099,69.2582 48.3336,69.2692 48.4779,69.3352 48.5031,69.3456 48.5304,69.3543 48.5594,69.3622 48.7276,69.3995 48.8044,69.4126 48.8378,69.4173 48.9036,69.42 49.0135,69.4193 49.138,69.4156 49.1859,69.4099 49.2067,69.4066 49.2412,69.3987 49.2732,69.3898 49.3724,69.3582 49.4639,69.3319 49.5866,69.2975 49.618,69.2887 49.7998,69.2417 49.9967,69.1917 50.0355,69.1775 50.0677,69.1621 50.0862,69.1515 50.2054,69.067 50.2218,69.0355 50.2046,69.0117 50.1549,68.9758 50.0703,68.9224 50.0284,68.9031 50.0064,68.9063 50.0162,68.954 50.0406,68.9745 50.0588,68.9898 50.0752,69.0067 50.117,69.0573 50.0909,69.0639 50.0229,69.0491 49.853,68.9872 49.7613,68.9158 49.6995,68.8634 49.6494,68.8287 49.5911,68.7927 49.5728,68.7847 49.3832,68.7314 49.3389,68.7217 49.0429,68.6791 48.8089,68.6477 48.7168,68.6377 48.6822,68.6347 48.4801,68.6424 48.1165,68.8018 48.1117,68.9713 48.129,68.9951 48.129,68.9951 18,5.0,Russia 66.8565,69.3039 66.847,69.3064 66.8226,69.3178 66.8087,69.3265 66.7976,69.3413 66.7959,69.3572 66.8122,69.3668 66.8277,69.3654 67.0659,69.3362 67.0732,69.3176 67.0148,69.2802 67.0035,69.2743 66.987,69.272 66.9689,69.2718 66.9477,69.277 66.8752,69.296 66.8565,69.3039 66.8565,69.3039 47,-5.0,Canada -76.9474,69.3519 -76.9094,69.3386 -76.8775,69.3278 -76.8412,69.317 -76.8125,69.3104 -76.7851,69.3058 -76.7579,69.3039 -76.7368,69.3051 -76.6388,69.3108 -76.6182,69.3137 -76.5955,69.3197 -76.5827,69.3253 -76.5629,69.3334 -76.5513,69.3325 -76.5408,69.3291 -76.4834,69.2943 -76.4791,69.2848 -76.4831,69.2449 -76.5118,69.2167 -76.5416,69.2143 -76.5541,69.2121 -76.572,69.2071 -76.6346,69.1832 -76.765,69.1264 -76.7779,69.1172 -76.7851,69.1061 -76.7939,69.0536 -76.9531,69.0303 -76.9725,69.0275 -77.0063,69.0284 -77.0481,69.0367 -77.0731,69.0437 -77.0924,69.0511 -77.1204,69.0646 -77.1357,69.075 -77.1546,69.0923 -77.2158,69.1583 -77.2175,69.1777 -77.1915,69.3053 -77.1818,69.312 -77.1217,69.328 -77.0927,69.3352 -77.023,69.3485 -76.9872,69.3547 -76.9636,69.3557 -76.9474,69.3519 -76.9474,69.3519 17,-6.0,Canada -90.0009,69.3273 -89.9846,69.3204 -89.955,69.2834 -89.9632,69.2587 -90.0779,69.1662 -90.0949,69.1602 -90.1357,69.1465 -90.1535,69.1456 -90.1674,69.1492 -90.3136,69.2427 -90.3198,69.2745 -90.3063,69.2831 -90.2969,69.2873 -90.1074,69.3449 -90.0071,69.3526 -90.0009,69.3273 -90.0009,69.3273 20,3.0,Russia 34.1399,69.3133 34.173,69.3065 34.2998,69.2698 34.3312,69.2544 34.3125,69.2479 34.1464,69.2496 34.1215,69.2504 33.9998,69.2566 33.9774,69.2584 33.9194,69.2659 33.9029,69.2733 33.9147,69.2903 33.9266,69.2953 33.954,69.3029 33.9701,69.3059 34.0049,69.3106 34.0437,69.3135 34.0643,69.3145 34.1399,69.3133 34.1399,69.3133 62,-5.0,Canada -78.2897,69.3004 -78.2433,69.29 -78.2275,69.2881 -78.1699,69.2914 -78.1373,69.2883 -78.1228,69.2854 -78.1114,69.2808 -78.1026,69.2746 -78.0439,69.2062 -78.1504,69.149 -78.228,69.1214 -78.3042,69.1021 -78.3859,68.9973 -78.404,68.9845 -78.4339,68.9772 -78.4595,68.9697 -78.5428,68.9233 -78.5493,68.9115 -78.5465,68.8934 -78.5572,68.8802 -78.5671,68.875 -78.6622,68.8246 -78.6723,68.8202 -78.6994,68.812 -78.7662,68.8002 -78.8106,68.7938 -78.8652,68.7888 -78.9267,68.7843 -79.0209,68.7627 -79.0322,68.748 -79.0483,68.7416 -79.0703,68.7391 -79.1183,68.7429 -79.1844,68.7555 -79.1973,68.7591 -79.2208,68.7697 -79.2292,68.7799 -79.2329,68.8349 -79.2102,68.8429 -79.1844,68.8551 -79.1614,68.8695 -79.1373,68.8872 -79.1233,68.9072 -79.1139,68.9241 -79.0694,68.9774 -79.0576,68.9873 -79.0474,68.9923 -78.9769,69.0046 -78.8802,69.0131 -78.8168,69.0109 -78.8054,69.0113 -78.7914,69.0136 -78.6909,69.0542 -78.5801,69.1717 -78.5549,69.2253 -78.5528,69.2452 -78.4378,69.282 -78.4038,69.2886 -78.3211,69.3016 -78.3019,69.3025 -78.2897,69.3004 -78.2897,69.3004 22,-6.0,Canada -90.3813,69.1095 -90.4192,69.1184 -90.5825,69.1831 -90.5836,69.2278 -90.5808,69.2405 -90.5647,69.2582 -90.5457,69.2679 -90.4972,69.282 -90.4784,69.2843 -90.4604,69.2853 -90.4434,69.2845 -90.4131,69.2803 -90.4,69.2756 -90.3876,69.2701 -90.3645,69.2576 -90.3539,69.2504 -90.2775,69.1919 -90.2668,69.1781 -90.2623,69.1373 -90.3184,69.1134 -90.3813,69.1095 -90.3813,69.1095 20,3.0,Russia 59.1224,69.0481 59.0491,69.0771 59.0366,69.0827 58.9942,69.106 58.9747,69.1221 58.9578,69.1368 58.9488,69.1426 58.9188,69.1586 58.8568,69.1778 58.8221,69.1871 58.7374,69.21 58.6432,69.2385 58.6373,69.2471 58.6604,69.2487 58.7474,69.235 58.9083,69.1924 59.07,69.1417 59.1117,69.09 59.1224,69.0481 59.1224,69.0481 42,2.0,Norway 15.4351,68.7856 15.4204,68.7868 15.4072,68.7921 15.3841,68.8104 15.3893,68.8875 15.5314,69.008 15.5799,69.0297 15.5895,69.0333 15.6118,69.0388 15.6571,69.0494 15.703,69.0509 15.7177,69.0519 15.7302,69.0541 15.7442,69.0596 15.755,69.0666 15.7763,69.0904 15.8143,69.133 15.8296,69.1494 15.9405,69.1915 15.9601,69.1984 16.0775,69.2232 16.0918,69.2208 16.1136,69.1972 16.1195,69.1866 16.1206,69.1757 16.051,69.0663 16.0239,69.0502 15.9945,69.0397 15.9829,69.0369 15.9633,69.03 15.9352,69.0188 15.9104,69.0061 15.8381,68.9616 15.8398,68.9505 15.8341,68.9393 15.8205,68.9337 15.7019,68.91 15.6778,68.9056 15.6048,68.8929 15.4895,68.8175 15.4351,68.7856 15.4351,68.7856 18,-6.0,Canada -101.4955,69.0709 -101.4781,69.0029 -101.4599,68.9938 -101.4467,68.9945 -101.4339,68.9965 -101.3423,69.0136 -101.2802,69.0684 -101.2789,69.0789 -101.3025,69.1085 -101.3175,69.1202 -101.3408,69.1273 -101.3839,69.1265 -101.4402,69.1244 -101.4666,69.1216 -101.4816,69.1151 -101.4955,69.1031 -101.5002,69.0893 -101.4955,69.0709 19,-6.0,Canada -100.0438,68.9404 -100.0228,68.92 -99.9885,68.8904 -99.9677,68.8801 -99.948,68.8726 -99.9065,68.8622 -99.8246,68.8526 -99.8079,68.8511 -99.7898,68.8529 -99.7634,68.915 -99.7655,68.925 -99.8169,69.0034 -99.8391,69.0134 -99.8813,69.0284 -99.9154,69.0413 -99.9989,69.0082 -100.0202,68.9955 -100.0442,68.953 -100.0438,68.9404 29,5.0,Russia 65.8133,69.007 65.824,69.0135 65.8408,69.0149 65.8767,69.0151 65.9337,69.0105 65.9714,69.007 66.0105,69.0026 66.0305,68.999 66.0923,68.9855 66.1619,68.9654 66.1902,68.9548 66.2597,68.928 66.3745,68.879 66.3886,68.8702 66.3961,68.8581 66.3839,68.8515 66.3663,68.8566 66.2597,68.8921 66.2493,68.8975 66.1274,68.9458 66.0153,68.9821 65.9946,68.9873 65.9199,68.9918 65.9024,68.9914 65.8639,68.995 65.8447,68.9973 65.8252,68.9997 65.8133,69.007 65.8133,69.007 12,2.0,Norway 17.336,68.8959 17.3195,68.9049 17.3159,68.9355 17.3235,68.9471 17.352,68.9674 17.3773,68.9845 17.5251,69.0036 17.4889,68.961 17.4058,68.9197 17.3797,68.9072 17.336,68.8959 17.336,68.8959 1199,2.0,Norway 24.1185,65.7312 24.1002,65.7209 24.0652,65.7171 24.0326,65.7236 23.9979,65.7248 23.9381,65.71 23.9051,65.6976 23.8833,65.6779 23.7256,65.7127 23.6063,65.7237 23.4709,65.7182 23.3875,65.6779 23.3474,65.6849 23.2032,65.7182 23.1877,65.681 23.0901,65.6309 23.0309,65.6184 22.9542,65.6702 22.7808,65.739 22.7446,65.7736 22.6775,65.8035 22.63,65.8193 22.5969,65.8159 22.6306,65.7928 22.659,65.7247 22.6338,65.6779 22.6087,65.6765 22.5631,65.7142 22.4341,65.7685 22.4062,65.7735 22.3734,65.7769 22.3231,65.7763 22.2843,65.747 22.2132,65.6088 22.2045,65.5502 22.2413,65.5451 22.2704,65.5474 22.2462,65.5825 22.2785,65.5768 22.3407,65.5465 22.3776,65.4645 22.3552,65.4545 22.328,65.4679 22.1972,65.4949 22.162,65.4964 22.0355,65.525 21.8075,65.5897 21.7804,65.617 21.7221,65.6298 21.7844,65.5829 21.8043,65.5739 21.9785,65.5159 22.0136,65.5068 22.0767,65.499 22.1501,65.4601 22.1197,65.451 22.0099,65.4354 21.95,65.4324 21.8653,65.4445 21.8457,65.4525 21.8133,65.448 21.8572,65.4146 21.8763,65.405 21.8958,65.4034 21.883,65.4262 21.9353,65.4076 21.9868,65.3778 21.9702,65.3444 21.8855,65.316 21.6326,65.3094 21.6116,65.3102 21.5887,65.3153 21.5599,65.3322 21.5016,65.3262 21.4285,65.3021 21.4589,65.2682 21.4958,65.2451 21.5411,65.2388 21.5739,65.243 21.6558,65.202 21.6163,65.1641 21.5451,65.1533 21.5153,65.1526 21.4967,65.172 21.4509,65.205 21.4239,65.2304 21.2862,65.2884 21.2224,65.2567 21.2866,65.2411 21.3746,65.2244 21.4625,65.1669 21.5107,65.1335 21.5764,65.0699 21.535,64.9788 21.491,64.9775 21.4433,64.9785 21.4291,64.9591 21.424,64.9263 21.3311,64.8949 21.2584,64.8736 21.2073,64.868 21.1641,64.8085 21.1668,64.7819 21.141,64.7495 21.0854,64.7382 21.054,64.7466 21.0337,64.7727 21.0007,64.7644 20.9979,64.7435 21.0523,64.7028 21.0881,64.6953 21.1176,64.6951 21.1803,64.702 21.2162,64.6973 21.2614,64.6815 21.2552,64.5829 21.2312,64.5883 21.197,64.6051 21.111,64.6433 21.0871,64.6449 21.0628,64.6396 21.0773,64.6042 21.2292,64.5353 21.3224,64.5189 21.4228,64.4955 21.5115,64.4525 21.5424,64.3598 21.4156,64.2813 21.3484,64.2557 21.2759,64.2289 21.2305,64.2174 21.2057,64.2276 20.9223,64.0636 20.864,63.9705 20.8545,63.9236 20.7532,63.8074 20.7332,63.7883 20.6881,63.7691 20.598,63.7345 20.4946,63.7204 20.4621,63.742 20.4077,63.6798 20.3757,63.6159 20.341,63.5954 20.2767,63.5815 20.259,63.568 20.224,63.5873 20.0607,63.5775 19.9727,63.5572 19.8574,63.5293 19.7364,63.4551 19.7146,63.4276 19.7373,63.3817 19.6666,63.3538 19.6372,63.3526 19.6002,63.3664 19.6031,63.3889 19.5781,63.4166 19.4634,63.4713 19.4289,63.4817 19.3878,63.468 19.4355,63.3749 19.4092,63.3623 19.3211,63.3569 19.2779,63.3731 19.2715,63.3856 19.2512,63.3793 19.2388,63.3362 19.1931,63.2494 19.1118,63.2347 19.0102,63.1636 19.0174,63.1396 19.0482,63.1366 19.0723,63.1332 19.0253,63.0994 19.005,63.0977 18.9291,63.1436 18.8597,63.1955 18.7699,63.1695 18.8106,63.1563 18.8472,63.1494 18.8747,63.1307 18.8608,63.1141 18.7435,63.0848 18.7196,63.109 18.7484,63.1207 18.6932,63.1285 18.7008,63.0924 18.611,63.0629 18.5309,63.0399 18.3466,62.9744 18.2534,62.9199 18.311,62.9109 18.3315,62.9142 18.3606,62.9158 18.4964,62.9078 18.521,62.9031 18.5389,62.8844 18.4344,62.7832 18.1685,62.7003 18.0908,62.689 18.0476,62.7043 18.0691,62.7271 18.1,62.7319 18.0381,62.7597 18.0023,62.762 17.9457,62.7413 17.8927,62.7653 17.8326,62.8486 17.8086,62.885 17.7896,62.9174 17.6663,62.9154 17.6962,62.8954 17.7277,62.8813 17.7592,62.8731 17.8001,62.856 17.8473,62.8064 17.9597,62.6537 17.9696,62.6222 17.9591,62.5782 17.937,62.5797 17.917,62.5931 17.8444,62.5858 17.9315,62.5575 18.005,62.5483 18.0115,62.5184 17.9434,62.4786 17.8048,62.409 17.7842,62.4061 17.7475,62.4246 17.6892,62.4222 17.6551,62.4156 17.6243,62.3916 17.6397,62.3677 17.5785,62.3583 17.5211,62.3669 17.4997,62.3778 17.4754,62.405 17.4409,62.43 17.3961,62.4571 17.3716,62.4596 17.2973,62.4111 17.3262,62.284 17.3405,62.2504 17.4317,62.1896 17.4687,62.1824 17.5182,62.174 17.5432,62.1711 17.5897,62.1632 17.6147,62.1555 17.5659,62.1336 17.5127,62.1265 17.5286,62.1547 17.5038,62.1548 17.4809,62.1539 17.4752,62.1265 17.4497,62.0493 17.4301,61.9307 17.4068,61.9161 17.3716,61.9142 17.3175,61.8678 17.3033,61.7428 17.3524,61.6814 17.407,61.6519 17.4432,61.6562 17.4637,61.6509 17.4901,61.6236 17.4615,61.5594 17.4117,61.5537 17.3888,61.5671 17.3549,61.6144 17.3279,61.6282 17.2998,61.6381 17.1942,61.6474 17.1158,61.642 17.1564,61.6303 17.181,61.6292 17.2314,61.6102 17.1527,61.5597 17.1319,61.5568 17.1044,61.5621 17.066,61.5277 17.0849,61.4807 17.1326,61.4447 17.1869,61.36 17.1211,61.3534 17.0725,61.3251 17.1121,61.283 17.1762,61.2525 17.1708,61.2045 17.1486,61.1158 17.1301,60.9727 17.12,60.8687 17.1692,60.8429 17.2102,60.8198 17.2433,60.7692 17.2509,60.698 17.2527,60.6583 17.2427,60.6025 17.3269,60.5671 17.3441,60.5455 17.3691,60.5568 17.4876,60.5694 17.5223,60.57 17.5453,60.5664 17.5761,60.5587 17.6027,60.5451 17.6174,60.5275 17.5726,60.5076 17.5755,60.4803 17.5989,60.447 17.6248,60.4323 17.6544,60.4243 17.7,60.4253 17.6949,60.4633 17.7394,60.4979 17.8089,60.5165 17.8521,60.5239 17.9032,60.5246 17.9272,60.5187 17.9593,60.4855 18.066,60.38 18.18,60.2701 18.2052,60.2561 18.2357,60.2725 18.2795,60.2811 18.4032,60.2671 18.4313,60.2266 18.5392,60.177 18.5646,60.1627 18.5219,60.1518 18.4963,60.1542 18.4361,60.1624 18.4061,60.1702 18.3468,60.1979 18.3198,60.2178 18.2828,60.2351 18.3614,60.1354 18.3872,60.1145 18.4727,60.0801 18.4968,60.0804 18.5977,60.0725 18.6764,60.0555 18.7415,60.0384 18.7811,60.024 18.782,60.0028 18.8544,59.8859 18.8719,59.8659 18.8942,59.8526 18.9215,59.8484 18.9715,59.8408 19.0098,59.827 19.0346,59.8177 19.0296,59.7604 18.9974,59.7567 18.9338,59.7937 18.9005,59.7981 18.8293,59.7261 18.8994,59.7119 18.9333,59.7117 19.0439,59.6955 19.037,59.6665 18.9965,59.6483 18.9501,59.6449 18.918,59.6481 18.8061,59.6407 18.7106,59.6175 18.6824,59.5998 18.6648,59.5723 18.7018,59.5703 18.6315,59.5198 18.6107,59.5091 18.3393,59.3955 18.2832,59.4022 18.2411,59.4043 18.2254,59.375 18.2524,59.3412 18.2943,59.3269 18.1317,59.3396 18.158,59.3534 18.1614,59.379 18.0864,59.3824 18.0534,59.3634 18.0237,59.3202 18.0552,59.296 18.0576,59.2635 17.974,59.2739 17.8988,59.2653 17.8644,59.2728 17.8261,59.2851 17.7997,59.294 17.7758,59.3033 17.7499,59.3179 17.7267,59.3437 17.7514,59.422 17.7758,59.4467 17.8104,59.4593 17.7843,59.5151 17.7188,59.567 17.6898,59.5888 17.685,59.5511 17.6095,59.5659 17.5709,59.5791 17.5646,59.5868 17.5952,59.5904 17.6122,59.5944 17.6203,59.6106 17.6212,59.6463 17.5966,59.7145 17.5583,59.7311 17.5481,59.7061 17.5055,59.6766 17.4811,59.6732 17.4155,59.664 17.412,59.6043 17.4911,59.507 17.5105,59.5015 17.4888,59.5398 17.4817,59.5749 17.4776,59.6251 17.5048,59.6605 17.5558,59.6651 17.5797,59.6605 17.5832,59.6238 17.5284,59.5968 17.5568,59.5678 17.6612,59.5359 17.7092,59.5189 17.7291,59.5051 17.7528,59.4613 17.6984,59.3735 17.5151,59.4188 17.4899,59.4359 17.5132,59.4654 17.4625,59.4697 17.4101,59.4871 17.3406,59.5402 17.3502,59.5806 17.3164,59.5428 17.3386,59.5117 17.3731,59.478 17.3866,59.4169 17.3722,59.3978 17.2931,59.4165 17.2264,59.435 17.1531,59.467 17.0853,59.4764 17.0332,59.4702 16.9935,59.4654 16.9133,59.4733 16.8336,59.5134 16.7952,59.5137 16.7556,59.4875 16.6287,59.4788 16.5886,59.5118 16.5277,59.5384 16.5071,59.5367 16.4682,59.5213 16.4908,59.5001 16.512,59.4828 16.4503,59.4284 16.2996,59.3965 16.1434,59.3937 16.0667,59.401 16.0364,59.4111 16.0028,59.4187 16.0417,59.3842 16.0773,59.3743 16.145,59.3683 16.246,59.3726 16.2788,59.3796 16.3048,59.3819 16.6337,59.4022 16.6582,59.3923 16.719,59.353 16.7809,59.3167 16.8465,59.3108 16.8599,59.3267 16.8232,59.3358 16.7693,59.3541 16.6955,59.3824 16.6643,59.399 16.8052,59.4183 16.8662,59.3963 16.901,59.3767 16.9262,59.3539 17.0799,59.3032 17.1427,59.302 17.2486,59.2856 17.2765,59.2755 17.2688,59.2517 17.2317,59.2196 17.221,59.1932 17.255,59.1882 17.2599,59.1862 17.3383,59.1771 17.3596,59.1812 17.3395,59.1999 17.3246,59.221 17.3209,59.2505 17.3809,59.2411 17.4103,59.2336 17.4386,59.2252 17.5534,59.2113 17.7073,59.1984 17.8142,59.1935 17.8747,59.2262 17.9107,59.2474 17.9499,59.2611 17.9882,59.2499 18.0191,59.2454 18.0413,59.2456 18.1,59.2468 18.1733,59.2582 18.2127,59.2797 18.2446,59.2951 18.3146,59.3023 18.3639,59.2966 18.4051,59.2761 18.4203,59.2599 18.4402,59.2664 18.4341,59.2943 18.4161,59.3229 18.3961,59.3567 18.443,59.3638 18.4638,59.3593 18.492,59.348 18.5756,59.2987 18.6084,59.2506 18.5586,59.2306 18.4877,59.2248 18.3489,59.2312 18.3126,59.2362 18.2965,59.2518 18.2431,59.2399 18.2355,59.1974 18.2761,59.1486 18.2777,59.0615 18.1922,59.0468 18.1068,59.0202 17.9883,58.9714 17.8608,58.8344 17.8588,58.8037 17.8616,58.7886 17.7566,58.8725 17.724,58.9478 17.7359,59.0258 17.7317,59.0499 17.6335,59.0963 17.5915,59.0037 17.5836,58.9583 17.581,58.9041 17.546,58.88 17.5588,58.873 17.5967,58.8398 17.5489,58.777 17.3181,58.6821 17.2395,58.6669 17.1921,58.6604 17.125,58.6624 17.057,58.6927 17.0007,58.6775 17.0508,58.6527 17.1087,58.6267 17.0031,58.5673 16.8762,58.5467 16.7589,58.5537 16.7056,58.5588 16.6471,58.5668 16.4314,58.5853 16.4063,58.5875 16.3828,58.5888 16.2683,58.593 16.2083,58.5936 16.164,58.5573 16.2634,58.5436 16.3405,58.5354 16.3817,58.5431 16.4045,58.5694 16.619,58.5504 16.6883,58.5336 16.7468,58.5115 16.9027,58.4185 16.7958,58.3728 16.7157,58.3594 16.5701,58.3772 16.5431,58.3824 16.5105,58.3917 16.4754,58.4028 16.4456,58.4099 16.3929,58.4081 16.5429,58.3661 16.6625,58.3392 16.7395,58.2974 16.7584,58.2527 16.7943,58.1302 16.7954,58.1071 16.7723,58.0692 16.7339,58.056 16.7123,58.0169 16.7013,57.9802 16.7168,57.942 16.6092,57.9184 16.5903,57.9181 16.6254,57.9087 16.6418,57.9111 16.7053,57.8961 16.7122,57.8811 16.7459,57.8512 16.7334,57.8124 16.7068,57.8037 16.6292,57.8142 16.5879,57.8224 16.5736,57.8588 16.4763,57.9227 16.4925,57.8088 16.5344,57.7852 16.6553,57.691 16.6652,57.6728 16.5864,57.7077 16.5667,57.7299 16.528,57.7542 16.3896,57.82 16.4384,57.7771 16.5698,57.7012 16.6305,57.6723 16.6671,57.6491 16.6812,57.6339 16.5958,57.5512 16.6026,57.4836 16.6613,57.4106 16.6358,57.3404 16.6071,57.3348 16.6001,57.3103 16.571,57.3093 16.5228,57.3132 16.4427,57.2222 16.4364,57.2024 16.4261,57.135 16.4314,57.103 16.4843,57.0496 16.5054,57.0505 16.5338,57.0261 16.5551,56.9789 16.4677,56.9702 16.4254,56.8879 16.4115,56.8266 16.3974,56.7761 16.3787,56.7281 16.346,56.6535 16.2756,56.5895 16.2527,56.5908 16.225,56.579 16.1877,56.54 16.0924,56.3888 16.0759,56.3587 16.0622,56.3284 16.0268,56.2469 16.0154,56.2024 15.9757,56.1465 15.8378,56.0258 15.761,56.0458 15.7484,56.0816 15.6314,56.1123 15.571,56.1281 15.3486,56.0719 15.1994,56.0847 15.0625,56.0935 14.8221,56.095 14.6915,56.0952 14.6672,56.0919 14.6569,56.0568 14.6869,56.0347 14.7253,55.9934 14.7416,55.9672 14.7127,55.9445 14.6943,55.9343 14.6099,55.9415 14.5952,55.9632 14.5781,55.9857 14.5297,55.9901 14.5162,55.9848 14.4864,55.9715 14.3443,55.8929 14.3053,55.8709 14.2387,55.8202 14.2141,55.7935 14.1925,55.7644 14.1802,55.7386 14.1703,55.7073 14.1681,55.6629 14.1859,55.6353 14.2524,55.5817 14.3168,55.5132 14.3411,55.4772 14.3122,55.4356 14.288,55.4213 14.169,55.3209 14.1386,55.315 14.0983,55.3141 14.0349,55.3208 14.0135,55.3241 13.9807,55.3406 13.9453,55.3558 13.9118,55.3659 13.8879,55.3687 13.8675,55.3685 13.7069,55.3602 13.6867,55.3588 13.6134,55.3513 13.4745,55.3168 13.4427,55.3084 13.4012,55.2894 13.3525,55.2747 13.3219,55.274 13.2725,55.2762 12.96,55.3353 12.8944,55.4805 12.8989,55.5069 12.9378,55.5255 12.9596,55.5336 13.0162,55.5612 13.0385,55.6149 12.9055,55.7573 12.8904,55.772 12.6593,55.9958 12.6415,56.0123 12.5986,56.0418 12.5593,56.0753 12.4382,56.23 12.6151,56.1895 12.6966,56.1564 12.7769,56.1595 12.808,56.1868 12.7119,56.2901 12.6478,56.3134 12.6105,56.3254 12.602,56.3517 12.6122,56.3722 12.6541,56.3981 12.7092,56.4001 12.772,56.3811 12.8101,56.3731 12.8301,56.3733 12.8499,56.3755 12.8609,56.3794 12.8784,56.3906 12.8918,56.4059 12.9077,56.4343 12.9122,56.4693 12.8945,56.5118 12.8577,56.576 12.795,56.5902 12.7624,56.5765 12.7355,56.5731 12.6994,56.5745 12.6485,56.6091 12.5915,56.6795 12.5772,56.7164 12.5758,56.7429 12.5544,56.7646 12.4543,56.8174 12.3959,56.8297 12.3269,56.8494 12.3281,56.9025 12.2642,56.9648 12.2238,56.9862 12.1264,57.1181 12.0885,57.1821 12.1208,57.2119 12.1242,57.241 12.0732,57.3588 12.0262,57.389 11.9882,57.3574 11.9647,57.277 11.9213,57.3081 11.8966,57.3341 11.8816,57.3559 11.8852,57.4466 11.8896,57.4582 11.8933,57.4633 11.9009,57.4955 11.8863,57.5489 11.8411,57.5394 11.8086,57.5929 11.8471,57.6119 11.8665,57.6254 11.7249,57.6202 11.6807,57.6312 11.7021,57.7385 11.647,57.7768 11.6781,57.8167 11.728,57.8256 11.7744,57.9371 11.7772,57.9699 11.7555,57.9839 11.7555,57.9904 11.7749,58.0262 11.8159,58.0854 11.8588,58.1328 11.7766,58.2488 11.7079,58.2591 11.6016,58.2067 11.5799,58.1897 11.5078,58.1612 11.4745,58.1665 11.3848,58.1916 11.3635,58.2423 11.2178,58.2773 11.1809,58.3297 11.215,58.4352 11.2351,58.4842 11.2458,58.5093 11.2395,58.5649 11.2292,58.585 11.1897,58.6095 11.1591,58.6415 11.1589,58.6692 11.1803,58.6998 11.2085,58.724 11.2114,58.7687 11.1737,58.8469 11.146,58.854 11.0991,58.8707 11.0928,58.9331 11.1028,58.9505 11.1489,58.9958 11.1748,59.0064 11.2448,59.023 11.2991,59.0293 11.3234,59.0176 11.3525,58.98 11.3805,58.9421 11.4021,58.9172 11.4082,58.917 11.4025,58.8488 11.4102,58.8205 11.436,58.8133 11.4755,58.8142 11.5647,58.8262 11.5785,58.8287 11.6027,58.8363 11.7302,59.0243 11.7203,59.0492 11.7311,59.1103 11.7401,59.1355 11.7477,59.1466 11.771,59.167 11.7762,59.1954 11.7688,59.2322 11.7613,59.2535 11.7174,59.3583 11.6454,59.522 11.7427,59.5664 11.7961,59.5771 11.877,59.6281 11.8809,59.6576 11.8768,59.7006 11.8743,59.7129 11.8599,59.7306 11.7939,59.774 11.8305,59.7895 11.8536,59.7982 11.9432,59.8249 11.9806,59.8176 12.0116,59.8142 12.0847,59.8137 12.1121,59.8156 12.1402,59.8248 12.1693,59.8382 12.2938,59.9004 12.4463,59.9976 12.4713,60.0405 12.4794,60.0721 12.4842,60.1013 12.4827,60.1293 12.5091,60.2659 12.5482,60.305 12.566,60.3261 12.5763,60.3609 12.5835,60.3951 12.5672,60.4485 12.4824,60.5566 12.4015,60.6366 12.3591,60.6818 12.3415,60.7058 12.3291,60.7284 12.3128,60.7619 12.2855,60.8135 12.2485,60.8723 12.2164,60.9031 12.1929,60.9248 12.2246,60.9447 12.2708,60.9555 12.3647,60.9763 12.3841,60.9798 12.4089,60.9804 12.4343,60.9797 12.4764,60.9769 12.5435,60.9739 12.5784,60.9758 12.5981,60.9789 12.6139,60.9833 12.6462,61.0136 12.7478,61.1263 12.7724,61.1707 12.8065,61.2375 12.8315,61.2879 12.7497,61.3402 12.5027,61.4916 12.4511,61.4945 12.4136,61.494 12.376,61.5018 12.1212,61.6421 12.1012,61.6535 12.1363,61.7691 12.1467,61.8033 12.1581,61.837 12.1767,61.8877 12.1914,61.9303 12.2351,62.0665 12.2709,62.1822 12.2701,62.1909 12.2478,62.2317 12.2329,62.251 12.2217,62.2618 12.1813,62.321 12.1547,62.3544 12.1259,62.3838 12.0613,62.4526 12.0244,62.5134 12.0232,62.5883 12.0493,62.639 12.0661,62.6724 12.0431,62.7259 12.0271,62.7616 12.0055,62.8153 12.0348,62.8414 12.0898,62.8898 12.1275,62.922 12.1451,62.9385 12.1204,62.9677 12.0135,63.0964 12.0039,63.1047 11.9133,63.1946 11.9754,63.2459 12.0546,63.3102 12.1134,63.3585 12.1713,63.4072 12.1547,63.4338 12.1231,63.5111 12.3225,63.6504 12.4487,63.7546 12.5063,63.7939 12.609,63.864 12.6572,63.8882 12.7694,63.9281 12.8216,63.9463 12.9125,63.9742 12.963,63.9853 13.0068,63.9919 13.1099,64.0045 13.1677,64.0108 13.204,64.0138 13.2652,64.0074 13.9574,63.9364 14.1227,64.1004 14.1225,64.2595 14.0884,64.3909 14.0049,64.4083 13.8736,64.4275 13.7931,64.4496 13.6411,64.5002 13.6499,64.5275 13.6751,64.5545 13.6986,64.5723 13.8054,64.6532 13.8519,64.6909 13.9282,64.755 14.0633,64.8683 14.2071,64.9679 14.2679,65.0207 14.2806,65.034 14.291,65.0485 14.3005,65.0682 14.3275,65.1271 14.3404,65.1651 14.4643,65.2321 14.4651,65.2858 14.4665,65.3646 14.4681,65.4339 14.4716,65.5037 14.5055,65.6186 14.5362,65.6537 14.5587,65.6744 14.5745,65.6907 14.5921,65.7146 14.6038,65.739 14.5794,65.7936 14.5508,65.8483 14.5401,65.8666 14.5085,65.9335 14.49,65.9957 14.4779,66.0404 14.6881,66.0573 14.9511,66.066 14.995,66.0668 15.4367,66.2002 15.4154,66.2376 15.3693,66.3231 15.3403,66.3779 15.3314,66.396 15.4962,66.4741 15.5942,66.5217 15.6989,66.6007 15.9773,66.806 16.3205,66.933 16.3686,67.0852 16.3279,67.1523 16.3039,67.1753 16.2285,67.22 16.1791,67.2482 16.1284,67.2702 16.1052,67.282 16.0745,67.3001 16.0549,67.3196 16.1657,67.4148 16.3485,67.4297 16.3693,67.444 16.4741,67.5232 16.5393,67.5751 16.5535,67.5961 16.5858,67.6458 16.6499,67.7457 16.6923,67.8126 17.1524,67.9433 17.1986,67.9752 17.2164,67.9875 17.2373,68.0036 17.5558,67.943 17.612,67.9272 17.6434,67.9175 17.7064,67.8979 17.7649,67.8776 17.7884,67.8686 17.8208,67.862 17.847,67.8587 17.9023,67.9109 18.0978,68.0631 18.1173,68.0789 18.0658,68.1936 18.0478,68.2305 18.0314,68.2669 18.0116,68.3126 18.02,68.3525 18.0481,68.4117 18.0615,68.4213 18.1111,68.4276 18.3194,68.4511 18.5728,68.3876 18.9121,68.4 19.3724,68.3319 19.5028,68.3123 19.6759,68.2852 19.8188,68.2626 19.8567,68.2539 19.8889,68.2498 19.9106,68.2552 19.9286,68.2681 19.9647,68.2934 19.9969,68.3116 20.0337,68.3269 20.1292,68.3582 20.1618,68.3832 20.0458,68.414 19.9142,68.4559 20.0206,68.4952 20.1346,68.5589 20.1599,68.5743 20.1954,68.6032 20.2707,68.6663 20.3073,68.6982 20.2717,68.8399 20.196,68.8798 20.054,68.9533 20.4915,68.9674 20.537,68.9715 20.5601,68.9642 20.6059,68.9551 20.7001,68.9421 20.7474,68.9347 20.802,68.9233 20.831,68.9125 20.8642,68.8969 20.8862,68.882 20.8864,68.8606 20.8417,68.8295 20.8564,68.8036 20.9077,68.7921 20.9463,68.7911 20.9799,68.7891 21.014,68.7849 21.0368,68.7782 21.1671,68.7295 21.3752,68.6359 21.4083,68.5987 21.4486,68.5819 21.5049,68.5737 21.5477,68.5694 21.5773,68.5615 21.5969,68.5543 21.6606,68.5269 21.681,68.4995 21.7194,68.4877 21.7708,68.4824 21.8184,68.4857 21.8431,68.4833 21.8877,68.4675 21.9131,68.4562 21.9543,68.4336 21.9825,68.4147 22.0021,68.3937 22.1124,68.3773 22.3249,68.3759 22.3834,68.3639 22.4528,68.3524 22.5341,68.3397 22.6192,68.3339 22.7786,68.2985 22.8157,68.2699 22.857,68.2425 22.8884,68.2349 22.921,68.2304 23.007,68.2037 23.3045,67.9966 23.3232,67.9731 23.3456,67.9555 23.4824,67.9058 23.5892,67.8712 23.6105,67.8593 23.6063,67.8346 23.5528,67.8097 23.4966,67.8035 23.4622,67.7972 23.4399,67.7843 23.4217,67.7332 23.4426,67.6264 23.459,67.5794 23.4235,67.4703 23.3823,67.3938 23.3997,67.3666 23.4207,67.3572 23.4454,67.3516 23.4712,67.3575 23.4942,67.3668 23.5334,67.3644 23.686,67.3403 23.716,67.3312 23.7312,67.2409 23.6941,67.201 23.6591,67.1926 23.6342,67.1902 23.5816,67.182 23.5612,67.1758 23.5419,67.1553 23.5249,67.0718 23.6326,66.9625 23.6826,66.9236 23.7023,66.911 23.7391,66.8966 23.8182,66.8464 23.8918,66.7951 23.9519,66.7177 23.8935,66.7034 23.8435,66.6603 23.8521,66.628 23.8542,66.596 23.8409,66.4916 23.8255,66.4714 23.7784,66.4598 23.7589,66.4536 23.6769,66.4167 23.6079,66.3734 23.5918,66.3495 23.6144,66.2288 23.6368,66.18 23.6782,66.1148 23.7068,66.1017 23.7663,66.0847 23.8079,66.0769 23.8381,66.0735 23.8706,66.061 23.887,66.0454 23.9003,66.0182 23.9193,65.9894 23.9828,65.9371 24.1154,65.7499 24.1185,65.7312 24.1185,65.7312 38,-6.0,Canada -100.4118,68.676 -100.3994,68.6698 -100.2103,68.6219 -100.194,68.6198 -100.1539,68.6222 -100.1444,68.627 -100.1034,68.674 -100.0955,68.6804 -100.0858,68.685 -100.0725,68.686 -100.0562,68.6839 -100.0414,68.6808 -100.0079,68.6763 -99.9608,68.7088 -99.9152,68.8191 -99.9301,68.8249 -99.9466,68.8268 -99.9899,68.8269 -100.0032,68.8284 -100.0154,68.8317 -100.0251,68.8356 -100.0987,68.8773 -100.1151,68.8882 -100.116,68.8984 -100.1096,68.9073 -100.1142,68.9135 -100.1231,68.9198 -100.1367,68.9258 -100.1666,68.9321 -100.2016,68.9377 -100.2831,68.946 -100.3142,68.9478 -100.3288,68.948 -100.3463,68.9369 -100.3852,68.9118 -100.4113,68.8239 -100.419,68.6876 -100.4118,68.676 13,-6.0,Canada -89.7234,68.8247 -89.7608,68.8378 -89.7866,68.8454 -89.808,68.849 -89.84,68.8543 -89.8834,68.8595 -89.8783,68.8933 -89.7541,68.9215 -89.7416,68.923 -89.7219,68.9171 -89.7159,68.8316 -89.7234,68.8247 -89.7234,68.8247 87,2.0,Norway 14.4704,68.514 14.4182,68.516 14.4025,68.5212 14.3878,68.5321 14.3525,68.5692 14.3431,68.5987 14.412,68.6774 14.4531,68.698 14.4891,68.7129 14.4986,68.7167 14.6019,68.7378 14.6143,68.7398 14.6316,68.7391 14.6484,68.7346 14.6585,68.7167 14.8552,68.666 14.8746,68.6682 14.9074,68.6997 14.9152,68.7112 14.9185,68.7208 14.9121,68.7308 14.8763,68.7513 14.9106,68.7685 14.9198,68.7722 15.0191,68.7618 15.0351,68.7599 15.0569,68.7533 15.0743,68.7459 15.0875,68.7336 15.1014,68.7245 15.1196,68.7265 15.1227,68.7376 15.1104,68.7521 15.0468,68.8036 14.9991,68.8364 14.9823,68.8499 14.9731,68.8656 14.9798,68.8823 14.9898,68.8936 15.0032,68.9044 15.0128,68.9077 15.0557,68.9192 15.1,68.9225 15.1122,68.9196 15.1337,68.9017 15.138,68.8879 15.1743,68.8109 15.2603,68.7909 15.3466,68.7587 15.3705,68.6196 15.3698,68.6078 15.365,68.592 15.353,68.5815 15.3296,68.5722 15.2901,68.559 15.0383,68.4873 15.0274,68.4845 15.0122,68.4841 14.87,68.4935 14.8329,68.4958 14.819,68.4984 14.7728,68.5274 14.7869,68.5479 14.8246,68.5577 14.8856,68.5684 15.0264,68.5927 15.1116,68.6059 15.1291,68.6094 15.1178,68.661 15.1039,68.6634 15.0274,68.6713 14.9774,68.6756 14.9648,68.6735 14.9746,68.6702 15.0148,68.6627 15.0333,68.6516 15.0075,68.6301 14.9647,68.6103 14.8753,68.5892 14.8625,68.5871 14.7913,68.5789 14.7128,68.571 14.7009,68.5737 14.6325,68.5785 14.5189,68.531 14.4704,68.514 14.4704,68.514 21,2.0,Norway 16.4864,68.7911 16.473,68.7913 16.4568,68.7935 16.3839,68.805 16.3415,68.818 16.233,68.8707 16.2285,68.8814 16.2497,68.8959 16.2638,68.9014 16.2781,68.9025 16.2954,68.9022 16.5134,68.8789 16.5277,68.8764 16.5374,68.8728 16.5628,68.8591 16.572,68.8467 16.554,68.8015 16.5277,68.7947 16.5021,68.791 16.4864,68.7911 16.4864,68.7911 662,12.0,Russia -179.0049,65.5658 -178.9665,65.5437 -178.961,65.4481 -179.0543,65.4048 -179.1781,65.3467 -179.1889,65.3269 -179.192,65.2819 -179.2098,65.1838 -179.2308,65.1665 -179.2798,65.138 -179.3019,65.1208 -179.3244,65.097 -179.3422,65.0825 -179.3771,65.0693 -179.411,65.0691 -179.4488,65.0655 -179.4701,65.06 -179.5607,65.027 -179.641,64.9879 -179.6354,65.9856 -179.6289,66.9838 -179.6223,67.9818 -179.6156,68.8913 -179.5744,68.8747 -179.3759,68.8281 -179.2436,68.8177 -179.2232,68.8174 -179.2011,68.8185 -179.1464,68.8264 -179.157,68.8622 -179.1244,68.8672 -179.0808,68.8449 -179.0391,68.8046 -179.0292,68.7563 -179.0095,68.7346 -178.9429,68.7199 -178.7982,68.7174 -178.6724,68.7 -178.5433,68.68 -178.4928,68.6619 -178.4087,68.6287 -178.1545,68.5182 -178.1125,68.4966 -178.1513,68.4992 -178.1882,68.5073 -178.2135,68.5217 -178.2472,68.5375 -178.3367,68.5678 -178.3631,68.5578 -178.3802,68.4865 -178.3624,68.4551 -178.2164,68.4292 -178.1838,68.4242 -178.0307,68.4066 -177.8314,68.3718 -177.6795,68.3416 -177.6599,68.3358 -177.6431,68.3222 -177.5887,68.2405 -177.5762,68.2024 -177.3609,68.2372 -177.3319,68.2493 -177.3531,68.2647 -177.4582,68.2919 -177.4986,68.3033 -177.7371,68.3759 -177.9678,68.4415 -177.9992,68.4626 -177.9135,68.4414 -177.8301,68.4197 -177.7749,68.4047 -177.4655,68.3149 -177.3781,68.2837 -177.2579,68.2372 -177.256,68.2093 -177.3795,68.1698 -177.3067,68.1365 -177.2432,68.1267 -177.1747,68.134 -177.0801,68.1574 -176.9888,68.1625 -176.8769,68.1222 -176.8686,68.0638 -176.7906,68.0407 -176.7337,68.0661 -176.5988,68.0465 -176.3968,67.9895 -176.2921,67.9576 -176.2666,67.9494 -176.1484,67.9137 -175.866,67.8345 -175.7138,67.8007 -175.6651,67.7885 -175.5855,67.7657 -175.2566,67.6686 -175.0985,67.6214 -175.0094,67.5624 -174.9126,67.4706 -174.8907,67.4603 -174.8378,67.45 -174.8278,67.425 -174.8548,67.3628 -174.9183,67.3336 -174.9969,67.2851 -175.0131,67.2573 -174.9689,67.2552 -174.9486,67.2576 -174.8535,67.264 -174.8246,67.265 -174.7746,67.2742 -174.7364,67.2852 -174.6804,67.358 -174.4722,67.3006 -174.4209,67.2226 -174.439,67.2058 -174.4593,67.2158 -174.4753,67.2275 -174.5035,67.2246 -174.5314,67.2046 -174.5945,67.019 -174.5557,66.9071 -174.5328,66.8948 -174.4549,66.8612 -174.406,66.769 -174.3868,66.6811 -174.4041,66.6476 -174.453,66.6674 -174.4753,66.6662 -174.4999,66.6611 -174.6373,66.5878 -174.5741,66.5395 -174.5485,66.5315 -174.4801,66.5259 -174.3947,66.5185 -174.2863,66.502 -174.2566,66.4966 -174.1759,66.4758 -174.1504,66.468 -174.1254,66.4496 -174.0813,66.3781 -174.1123,66.3879 -174.1408,66.3886 -174.1608,66.3707 -174.1395,66.2557 -174.1291,66.2332 -174.1128,66.2197 -174.0712,66.2135 -173.9994,66.2496 -174.0228,66.2777 -173.9665,66.3132 -173.8415,66.3799 -173.7812,66.3961 -173.7306,66.4008 -173.7101,66.4011 -173.6699,66.3959 -173.6366,66.3788 -173.681,66.2542 -173.7196,66.2337 -173.73,66.2093 -173.7341,66.1789 -173.7249,66.152 -173.684,66.1301 -173.6032,66.1946 -173.5858,66.25 -173.4595,66.2704 -173.4286,66.2891 -173.4081,66.3655 -173.5639,66.4317 -173.6499,66.4443 -173.7787,66.4606 -173.8259,66.4652 -173.8713,66.4655 -173.9466,66.4979 -173.9096,66.5146 -173.8092,66.5468 -173.7795,66.5541 -173.7451,66.5597 -173.7178,66.5675 -173.6531,66.5908 -173.6403,66.607 -173.6397,66.6515 -173.6429,66.6885 -173.6662,66.7542 -173.72,66.8552 -173.7461,66.8839 -173.7676,66.9043 -173.9358,66.9739 -173.9654,66.9719 -174.0183,66.9636 -174.1285,66.9484 -174.1487,66.946 -174.179,66.9463 -174.2053,66.9485 -174.2916,66.9753 -174.2642,66.9978 -174.2219,67.0053 -174.1813,67.0095 -174.0726,67.0175 -174.0312,67.0183 -173.8913,67.0167 -173.6968,67.0121 -173.6401,67.0098 -173.5703,67.0026 -173.5137,67.0006 -173.4704,67.0018 -173.4499,67.0039 -173.4073,67.0109 -173.3699,67.0237 -173.3509,67.0464 -173.3187,67.0471 -173.2677,67.0413 -173.0622,67.0026 -172.9089,66.9915 -172.8669,66.9871 -172.8165,66.974 -172.8636,66.9609 -172.8839,66.9609 -172.9178,66.9644 -172.9392,66.9453 -172.9981,66.8846 -173.009,66.827 -173.0018,66.7551 -172.8457,66.7549 -172.8001,66.7759 -172.854,66.7989 -172.8673,66.8577 -172.8657,66.8935 -172.8435,66.9029 -172.7805,66.9116 -172.753,66.9048 -172.7411,66.8861 -172.73,66.8619 -172.7042,66.8536 -172.6589,66.845 -172.4648,66.8242 -172.4256,66.8233 -172.2269,66.828 -172.082,66.8529 -172.1887,66.887 -172.2129,66.89 -172.3676,66.9056 -172.4822,66.915 -172.6613,66.9438 -172.656,66.9712 -172.4403,66.9553 -172.321,66.943 -172.2373,66.9333 -172.1443,66.917 -172.1815,66.9159 -172.2109,66.9217 -172.2426,66.9269 -172.3694,66.9352 -172.4216,66.936 -172.3213,66.9203 -172.0076,66.8815 -171.9741,66.8778 -171.7562,66.8731 -171.6831,66.8742 -171.574,66.8882 -171.4067,66.8742 -171.3733,66.8703 -171.3394,66.8524 -171.355,66.8179 -171.3665,66.8014 -171.3629,66.7791 -171.348,66.7659 -171.3294,66.7551 -171.2891,66.7332 -171.2664,66.7245 -171.241,66.7165 -171.2122,66.7102 -171.136,66.6988 -171.0657,66.688 -171.0447,66.6681 -171.0658,66.6466 -171.0727,66.6196 -171.0122,66.5784 -170.9933,66.5665 -170.9517,66.5468 -170.9027,66.5307 -170.7772,66.491 -170.7118,66.473 -170.5685,66.4424 -170.5317,66.4305 -170.3923,66.3732 -170.3759,66.3613 -170.3565,66.3455 -170.2374,66.2743 -170.2253,66.2704 -170.1929,66.266 -170.1623,66.261 -170.138,66.2367 -170.1663,66.2251 -170.2079,66.2016 -170.2914,66.1558 -170.2195,66.1562 -170.1994,66.1617 -170.1734,66.1825 -170.1046,66.1922 -170.0727,66.2015 -170.0428,66.2063 -170.0037,66.2082 -169.9001,66.1887 -169.8565,66.1653 -169.8366,66.1191 -169.8657,66.1054 -169.9194,66.1069 -169.9607,66.1087 -169.9859,66.0955 -169.8782,66.0602 -169.8536,66.0595 -169.8013,66.0703 -169.6837,66.0696 -169.6558,66.0633 -169.5714,66.0758 -169.6616,66.0991 -169.6954,66.1063 -169.6683,66.1045 -169.6063,66.0946 -169.4473,66.0675 -169.4192,66.0613 -169.3635,66.0436 -169.3481,65.9977 -169.3515,65.985 -169.3564,65.9754 -169.4189,65.9176 -169.4418,65.9088 -169.4703,65.9079 -169.5258,65.9229 -169.5691,65.9391 -169.6115,65.9484 -169.652,65.9531 -169.6933,65.9525 -169.7798,65.9405 -169.8144,65.9315 -169.852,65.9194 -170.107,65.8334 -170.2344,65.7699 -170.1944,65.7663 -170.172,65.7386 -170.1883,65.5877 -170.2331,65.5449 -170.293,65.5282 -170.3338,65.5256 -170.4424,65.5318 -170.5507,65.5515 -170.7264,65.6028 -170.8912,65.6584 -170.9268,65.6782 -171.0389,65.7225 -171.0747,65.7347 -171.103,65.7402 -171.1964,65.7527 -170.9992,65.6116 -170.9439,65.584 -170.9173,65.5728 -170.8863,65.5628 -170.8515,65.5603 -170.801,65.5556 -170.6801,65.4969 -170.7108,65.4104 -170.7315,65.401 -170.7824,65.3945 -170.8257,65.3978 -170.8916,65.4095 -170.9126,65.4191 -170.9426,65.434 -171.0067,65.4519 -171.0492,65.4558 -171.1119,65.4519 -171.1912,65.4461 -171.3645,65.43 -171.4388,65.4222 -171.4751,65.418 -171.5111,65.4137 -171.6021,65.4032 -171.6238,65.4023 -171.6963,65.4038 -171.6313,65.4098 -171.5768,65.4145 -171.4877,65.4295 -171.4695,65.4392 -171.4913,65.4473 -171.5985,65.4478 -171.6667,65.4482 -171.6983,65.4523 -171.718,65.4727 -171.7577,65.4818 -171.7846,65.4802 -171.8135,65.4734 -171.8687,65.4548 -171.9005,65.4556 -171.9421,65.4801 -171.9819,65.5361 -172.0045,65.5803 -172.1955,65.6082 -172.3067,65.6202 -172.4551,65.5923 -172.3442,65.55 -172.2401,65.5329 -172.2007,65.5328 -172.1178,65.5196 -172.0883,65.5091 -172.0729,65.493 -172.0796,65.3973 -172.1163,65.3903 -172.0761,65.3454 -172.0554,65.341 -171.9764,65.3477 -171.945,65.3536 -171.8663,65.3848 -171.8455,65.3646 -171.9101,65.2717 -171.9119,65.2384 -171.8947,65.2071 -171.8938,65.186 -171.9007,65.164 -171.9454,65.1771 -171.9731,65.1829 -172.0046,65.1873 -172.0417,65.1879 -172.3346,65.187 -172.3539,65.1628 -172.3381,65.1463 -172.2594,65.1314 -172.1078,65.1367 -171.99,65.1415 -171.9625,65.1355 -171.9081,65.1183 -171.786,65.002 -171.8069,64.9801 -171.8257,64.9704 -171.9858,64.8929 -172.0882,64.8497 -172.1217,64.8398 -172.1558,64.8349 -172.1774,64.8438 -172.198,64.844 -172.361,64.805 -172.3947,64.7876 -172.4166,64.7746 -172.4389,64.7702 -172.4914,64.7758 -172.5405,64.7834 -172.5675,64.7904 -172.6294,64.7951 -172.6549,64.7915 -172.7018,64.7825 -172.7343,64.7729 -172.8512,64.6976 -172.8177,64.6961 -172.7644,64.7106 -172.7062,64.7321 -172.6751,64.7501 -172.6566,64.7605 -172.6247,64.765 -172.5551,64.7501 -172.4308,64.6994 -172.4499,64.681 -172.5265,64.6496 -172.6209,64.6293 -172.6998,64.6108 -172.7299,64.6006 -172.7415,64.5825 -172.715,64.5792 -172.6593,64.585 -172.6123,64.5922 -172.4823,64.547 -172.4115,64.5184 -172.3924,64.5134 -172.2377,64.4842 -172.2002,64.4789 -172.1533,64.4783 -172.1167,64.4725 -172.0147,64.3786 -172.0181,64.3437 -172.1644,64.3235 -172.2684,64.3098 -172.2893,64.3087 -172.3196,64.313 -172.3582,64.3228 -172.4182,64.3416 -172.4222,64.385 -172.4864,64.4452 -172.5493,64.4397 -172.6829,64.4169 -172.7184,64.397 -172.7019,64.3832 -172.6732,64.3834 -172.6284,64.3887 -172.5921,64.392 -172.5625,64.3876 -172.5402,64.3688 -172.5559,64.2577 -172.6511,64.2021 -172.701,64.2004 -172.7461,64.1971 -172.7804,64.1925 -172.808,64.1856 -172.849,64.1748 -172.8707,64.1839 -172.9283,64.2015 -172.9989,64.2196 -173.0583,64.2279 -173.0913,64.2478 -173.0547,64.2965 -172.9924,64.3398 -172.9562,64.3809 -172.9412,64.4405 -173.0015,64.5084 -173.0719,64.5365 -173.0664,64.508 -173.0382,64.4709 -173.0076,64.4154 -173.0197,64.3852 -173.1245,64.3148 -173.2561,64.2686 -173.3296,64.2672 -173.4248,64.2816 -173.6645,64.3315 -173.7067,64.3443 -173.7266,64.3598 -173.7604,64.4191 -173.7558,64.4469 -173.7822,64.4766 -173.8132,64.4911 -174.0981,64.584 -174.2268,64.6169 -174.342,64.6471 -174.4094,64.6729 -174.4992,64.6974 -174.658,64.7328 -174.6692,64.707 -174.7054,64.6984 -174.7843,64.6959 -175.1006,64.7042 -175.106,64.7533 -175.1233,64.776 -175.2906,64.8443 -175.3527,64.8571 -175.4104,64.867 -175.4569,64.8749 -175.5635,64.9356 -175.5365,64.9458 -175.4808,64.9643 -175.4605,64.9815 -175.4301,65.0793 -175.511,65.1533 -175.5271,65.1994 -175.5304,65.2252 -175.5761,65.3158 -175.6069,65.3391 -175.725,65.3881 -175.8254,65.3958 -175.8611,65.3969 -175.8929,65.4003 -175.9739,65.4088 -176.0168,65.4168 -176.0976,65.4355 -176.1244,65.4421 -176.183,65.4575 -176.2343,65.4771 -176.5953,65.5187 -176.6603,65.5251 -176.7125,65.5275 -176.7337,65.5258 -176.8538,65.5109 -176.944,65.4746 -176.9643,65.461 -176.9957,65.4468 -177.0518,65.4239 -177.1092,65.4094 -177.1446,65.4038 -177.3434,65.3935 -177.6461,65.393 -177.7573,65.3982 -177.9164,65.3978 -178.0119,65.3935 -178.0603,65.3975 -178.1185,65.4075 -178.1504,65.4165 -178.1993,65.4321 -178.2131,65.4581 -178.1593,65.5045 -178.0948,65.6141 -178.0969,65.6449 -178.1106,65.6596 -178.1569,65.6713 -178.1906,65.6733 -178.2299,65.6697 -178.2564,65.6683 -178.2951,65.6789 -178.3366,65.7038 -178.4489,65.7842 -178.5068,65.8439 -178.5478,65.9108 -178.5239,65.9307 -178.4295,65.9071 -178.3634,65.926 -178.3468,65.9444 -178.3488,65.9773 -178.3123,66.0305 -178.2923,66.0404 -178.2569,66.0416 -178.2182,66.0461 -178.1806,66.0799 -178.1563,66.1443 -178.1466,66.2011 -178.1415,66.3092 -178.1628,66.3193 -178.1864,66.3156 -178.2422,66.2816 -178.2769,66.2463 -178.4206,66.1222 -178.547,66.0872 -178.5984,66.0835 -178.6318,66.086 -178.6581,66.0927 -178.6993,66.1112 -178.7473,66.1643 -178.7413,66.1974 -178.7195,66.2144 -178.7451,66.2868 -178.7657,66.3061 -178.8062,66.3312 -178.8245,66.3197 -178.8115,66.2802 -178.8037,66.252 -178.8114,66.2074 -178.9148,66.2184 -178.9611,66.2386 -179.0593,66.2572 -179.02,66.2074 -178.9968,66.1986 -178.9538,66.1788 -178.8818,66.111 -178.9205,66.0835 -178.9636,66.0644 -178.9829,66.0583 -179.0326,66.048 -179.0734,66.0437 -179.234,66.0338 -179.2706,66.0343 -179.3084,66.0519 -179.2812,66.058 -179.2351,66.0569 -179.2163,66.0647 -179.29,66.0953 -179.3251,66.1004 -179.3981,66.0339 -179.4135,66.0002 -179.4518,65.9046 -179.4596,65.8607 -179.4537,65.8285 -179.4378,65.7913 -179.3786,65.7098 -179.122,65.5966 -179.099,65.5877 -179.053,65.5763 -179.0273,65.5749 -179.0049,65.5658 -179.0049,65.5658 146,2.0,Norway 16.4662,68.4645 16.3302,68.4679 16.3148,68.4678 16.1987,68.462 16.1878,68.4594 16.0998,68.429 16.0488,68.4096 16.0383,68.3979 16.0162,68.3754 15.9229,68.2912 15.8994,68.2818 15.8777,68.2766 15.8499,68.2746 15.8362,68.2768 15.8363,68.3119 15.8223,68.3442 15.7553,68.3028 15.6642,68.2537 15.5561,68.2175 15.4997,68.2432 15.4881,68.246 15.3936,68.246 15.332,68.2369 15.3168,68.2363 15.2993,68.2408 15.2894,68.2556 15.3556,68.2915 15.407,68.3065 15.4687,68.3258 15.4842,68.3345 15.5376,68.3732 15.5563,68.3906 15.535,68.4146 15.5255,68.4179 15.5087,68.4158 15.5184,68.4029 15.526,68.3859 15.4784,68.3583 15.4086,68.3274 15.3992,68.3239 15.3882,68.3211 15.3112,68.3075 15.2249,68.2773 15.1956,68.2547 15.1653,68.2317 15.0795,68.194 15.0702,68.1905 14.9959,68.1622 14.9836,68.1604 14.9698,68.1592 14.9551,68.1604 14.9536,68.1756 14.9661,68.2126 15.0523,68.2768 15.2116,68.3853 15.3,68.3963 15.2303,68.432 15.2163,68.4344 15.1856,68.4339 15.1556,68.4341 15.1814,68.4692 15.1905,68.4728 15.3167,68.4979 15.3293,68.4997 15.4255,68.5687 15.4134,68.589 15.4047,68.6044 15.4031,68.6158 15.4163,68.639 15.4293,68.6432 15.5569,68.6408 15.5741,68.6405 15.5902,68.6389 15.6019,68.6356 15.6192,68.6282 15.6413,68.616 15.6634,68.6109 15.6804,68.6104 15.6258,68.6455 15.6123,68.651 15.5805,68.6527 15.5323,68.6527 15.5168,68.6523 15.5045,68.6504 15.4931,68.6475 15.4764,68.6481 15.4646,68.651 15.4293,68.6646 15.4203,68.6714 15.4243,68.7177 15.5996,68.8554 15.6253,68.8634 15.6507,68.8671 15.8361,68.8755 15.8531,68.875 15.8651,68.8717 15.8748,68.8681 15.8946,68.8005 15.8396,68.701 15.9058,68.6974 15.9227,68.6967 15.948,68.6882 15.9541,68.6666 15.9319,68.6206 15.9198,68.6058 15.9027,68.5935 15.8304,68.5588 15.8207,68.5556 15.7787,68.5522 15.7676,68.5496 15.7443,68.5405 15.7309,68.5303 15.7093,68.4415 15.7686,68.4616 15.7781,68.4695 15.785,68.4824 15.7796,68.4957 15.7757,68.5091 15.7824,68.5212 15.8036,68.5316 15.8132,68.5351 15.9425,68.5779 16.0568,68.6441 16.0785,68.6937 16.0623,68.7046 16.0546,68.7143 16.0533,68.7256 16.0653,68.7364 16.0847,68.7431 16.1447,68.7631 16.1699,68.7667 16.3199,68.7686 16.4015,68.759 16.4112,68.7554 16.4552,68.7221 16.5096,68.6757 16.5331,68.6083 16.529,68.5606 16.5214,68.5478 16.5023,68.5363 16.4927,68.533 16.4747,68.5255 16.4583,68.5169 16.4523,68.508 16.4662,68.4645 16.4662,68.4645 18,2.0,Norway 17.2053,68.7004 17.1897,68.7003 17.1733,68.702 17.1579,68.7069 17.0446,68.8127 17.0509,68.8242 17.0641,68.8302 17.2601,68.8313 17.2946,68.8278 17.3183,68.8213 17.3276,68.8182 17.3945,68.784 17.3992,68.7742 17.3803,68.7588 17.2717,68.7168 17.2177,68.702 17.2053,68.7004 17.2053,68.7004 17,2.0,Norway 16.7898,68.6316 16.7777,68.6373 16.8037,68.6772 16.935,68.7556 16.9519,68.7642 16.9643,68.766 16.977,68.7641 17.1085,68.6803 17.0801,68.6644 17.059,68.658 17.0465,68.6566 16.9938,68.6591 16.9785,68.6592 16.9234,68.6546 16.8982,68.6508 16.7898,68.6316 16.7898,68.6316 19,-6.0,Canada -89.7656,68.5735 -89.7832,68.6175 -89.8081,68.6425 -89.8285,68.6551 -89.8364,68.6673 -89.8343,68.6836 -89.8117,68.7183 -89.7672,68.7494 -89.7528,68.7589 -89.7404,68.7637 -89.7268,68.765 -89.5923,68.6755 -89.6005,68.6643 -89.6181,68.6449 -89.6668,68.6123 -89.6867,68.6025 -89.7536,68.5742 -89.7656,68.5735 -89.7656,68.5735 10,-7.0,Canada -102.0953,68.5824 -102.0383,68.559 -102.0131,68.5523 -101.9303,68.5405 -101.9303,68.647 -101.9318,68.6468 -101.9996,68.63 -102.0953,68.6005 -102.0993,68.584 -102.0953,68.5824 31,3.0,Russia 57.1655,68.6666 57.2092,68.6743 57.2582,68.6804 57.3584,68.6904 57.3923,68.6935 57.4451,68.6961 57.5197,68.6948 57.5547,68.6966 57.6048,68.7015 57.6378,68.7057 57.6868,68.7119 57.7021,68.7151 57.7678,68.7232 57.7891,68.7206 57.7978,68.7151 57.7559,68.6778 57.742,68.6735 57.5776,68.6691 57.5118,68.6763 57.4718,68.6794 57.4359,68.6791 57.366,68.6755 57.3341,68.6702 57.3201,68.6656 57.3064,68.6613 57.1999,68.6383 57.0789,68.6328 57.1301,68.6574 57.1441,68.6618 57.1655,68.6666 57.1655,68.6666 33,-5.0,Canada -74.8407,68.5843 -74.7841,68.4882 -74.7762,68.4811 -74.6788,68.4239 -74.6439,68.4135 -74.6246,68.4047 -74.6121,68.389 -74.6187,68.3231 -74.6569,68.2322 -74.8446,68.2468 -74.8496,68.2626 -74.8438,68.2752 -74.8566,68.2921 -74.8748,68.3051 -74.9231,68.3175 -74.9507,68.3195 -74.9796,68.3225 -74.9944,68.3256 -75.0826,68.3486 -75.1048,68.3573 -75.1357,68.3702 -75.2107,68.402 -75.2365,68.4157 -75.2569,68.4333 -75.237,68.5232 -75.2294,68.5349 -75.144,68.6096 -75.1207,68.6216 -75.0948,68.6292 -75.0798,68.6299 -74.8554,68.589 -74.8407,68.5843 -74.8407,68.5843 41,-2.0,Greenland -52.418,68.6246 -52.4281,68.6149 -52.4166,68.6092 -52.3996,68.6088 -52.2213,68.6132 -52.1245,68.6255 -52.1126,68.6266 -52.027,68.6136 -52.0612,68.607 -52.1567,68.563 -52.178,68.5546 -52.1892,68.5504 -52.2022,68.5473 -52.2164,68.5447 -52.233,68.5487 -52.594,68.5326 -52.8082,68.5126 -52.8728,68.4985 -52.9245,68.4872 -52.9852,68.4778 -53.0045,68.4759 -53.0008,68.498 -52.9811,68.5277 -52.9614,68.5383 -52.9366,68.5481 -52.9259,68.5508 -52.8969,68.5532 -52.8422,68.5515 -52.8234,68.5519 -52.8062,68.553 -52.7238,68.5595 -52.6894,68.5654 -52.6583,68.5784 -52.6869,68.5798 -52.7052,68.577 -52.7246,68.5806 -52.5368,68.6195 -52.5222,68.6222 -52.5108,68.6226 -52.418,68.6246 -52.418,68.6246 21,-5.0,Canada -74.6134,68.5849 -74.598,68.5847 -74.4939,68.5656 -74.3623,68.4741 -74.3741,68.4648 -74.3937,68.4628 -74.4292,68.4608 -74.5685,68.4682 -74.5845,68.4697 -74.6488,68.4756 -74.6636,68.478 -74.6755,68.4817 -74.6848,68.4878 -74.712,68.5109 -74.7245,68.5249 -74.7316,68.5371 -74.647,68.5807 -74.633,68.5841 -74.6213,68.5857 -74.6134,68.5849 -74.6134,68.5849 56,-5.0,Canada -78.629,68.3509 -78.6465,68.3513 -78.6616,68.353 -78.6949,68.3587 -78.7096,68.363 -78.793,68.3871 -78.7776,68.422 -78.7699,68.4287 -78.656,68.4597 -78.6426,68.4627 -78.6249,68.4623 -78.5926,68.4602 -78.5774,68.4581 -78.5572,68.4596 -78.535,68.4686 -78.5224,68.4768 -78.5032,68.4933 -78.5098,68.5029 -78.5262,68.5088 -78.539,68.5124 -78.6173,68.5307 -78.6842,68.5462 -78.7257,68.562 -78.6967,68.5717 -78.6706,68.573 -78.5532,68.5691 -78.5225,68.5651 -78.3294,68.5399 -78.3157,68.5369 -78.2988,68.5313 -78.3021,68.4786 -78.3123,68.4678 -78.337,68.4577 -78.3645,68.4533 -78.3798,68.4531 -78.3959,68.4541 -78.4329,68.4629 -78.448,68.4659 -78.4723,68.4702 -78.4881,68.4707 -78.5025,68.4663 -78.558,68.4342 -78.5492,68.4281 -78.5248,68.4215 -78.5081,68.4221 -78.4868,68.4245 -78.4698,68.4254 -78.4537,68.4205 -78.4444,68.4122 -78.4519,68.4046 -78.5392,68.3639 -78.5498,68.3602 -78.5769,68.3549 -78.6104,68.3513 -78.629,68.3509 -78.629,68.3509 33,-2.0,Greenland -51.7275,68.5468 -51.718,68.5465 -51.6958,68.5379 -51.832,68.5066 -51.9393,68.4871 -52.0322,68.4861 -52.0432,68.49 -52.0553,68.493 -52.0969,68.4926 -52.1986,68.4851 -52.298,68.4754 -52.3096,68.4813 -52.3077,68.5087 -52.3003,68.5185 -52.289,68.5227 -52.2745,68.5256 -52.1066,68.554 -52.0894,68.5542 -52.0337,68.5524 -51.9406,68.5409 -51.923,68.5344 -51.9339,68.5263 -51.9486,68.5229 -51.991,68.5173 -52.0038,68.5117 -51.9819,68.4958 -51.9665,68.4929 -51.8437,68.5472 -51.8269,68.5532 -51.8128,68.5544 -51.7655,68.5546 -51.7275,68.5468 -51.7275,68.5468 36,-7.0,Canada -104.8218,68.4378 -104.7158,68.3797 -104.6976,68.3722 -104.6615,68.3625 -104.5385,68.3303 -104.4877,68.3176 -104.4723,68.3148 -104.4258,68.3082 -104.3659,68.3069 -104.3249,68.3086 -104.2986,68.3107 -104.2627,68.3172 -104.2308,68.3257 -104.2211,68.3296 -104.2124,68.3389 -104.2055,68.3508 -104.2073,68.3692 -104.22,68.3885 -104.2286,68.3975 -104.2457,68.4133 -104.2619,68.4237 -104.2882,68.4354 -104.3089,68.4429 -104.3323,68.4492 -104.4608,68.4858 -104.4901,68.4905 -104.5242,68.4943 -104.5397,68.4949 -104.6879,68.4958 -104.7163,68.4953 -104.7678,68.4895 -104.7916,68.4855 -104.8024,68.4827 -104.8218,68.4748 -104.8593,68.4584 -104.8218,68.4378 18,-7.0,Canada -110.4943,68.3965 -110.561,68.3924 -110.6284,68.3865 -110.6919,68.3779 -110.82,68.3821 -110.8593,68.3925 -110.8504,68.4045 -110.8405,68.4079 -110.75,68.4277 -110.5872,68.4603 -110.5687,68.4585 -110.5578,68.4555 -110.5295,68.4459 -110.5117,68.4387 -110.4631,68.4012 -110.4749,68.3971 -110.4943,68.3965 -110.4943,68.3965 25,2.0,Norway 16.0873,68.2889 16.0794,68.2915 16.0615,68.312 16.1102,68.3932 16.1461,68.413 16.1814,68.4281 16.2006,68.4354 16.2926,68.4458 16.3082,68.4461 16.3378,68.4416 16.3498,68.4385 16.3654,68.4332 16.3797,68.425 16.4301,68.3775 16.3712,68.3235 16.3601,68.3208 16.3462,68.3197 16.3153,68.3193 16.2806,68.3217 16.2652,68.3214 16.2373,68.3194 16.1692,68.3133 16.157,68.3111 16.0873,68.2889 16.0873,68.2889 27,3.0,Russia 50.7298,68.3215 50.742,68.327 50.7801,68.3421 50.8069,68.3508 50.8479,68.3633 50.8763,68.3705 50.9499,68.3869 51.0092,68.3999 51.0561,68.4074 51.073,68.4091 51.1101,68.4097 51.1695,68.4073 51.3357,68.3948 51.3483,68.3893 51.325,68.3768 51.3111,68.3735 51.202,68.3705 51.0783,68.3636 51.0629,68.361 50.9454,68.3344 50.8142,68.304 50.7227,68.2872 50.707,68.2847 50.69,68.2877 50.7042,68.3075 50.7298,68.3215 50.7298,68.3215 22,-2.0,Greenland -52.8753,68.4038 -52.8631,68.401 -52.7721,68.3641 -52.7566,68.3563 -52.7412,68.342 -52.7448,68.3274 -52.7655,68.3135 -52.8266,68.2838 -52.8445,68.2768 -52.8769,68.2701 -52.9997,68.2704 -53.0773,68.2995 -53.0915,68.3064 -53.098,68.3173 -53.0839,68.3433 -52.9362,68.4012 -52.9195,68.4053 -52.9077,68.4068 -52.8945,68.4067 -52.8835,68.4062 -52.8753,68.4038 -52.8753,68.4038 23,-5.0,Canada -74.1839,68.3746 -74.1506,68.3738 -74.1367,68.3728 -74.1225,68.3706 -74.113,68.3671 -74.0606,68.3385 -74.0412,68.3273 -73.9213,68.2425 -73.991,68.1648 -74.006,68.1587 -74.0345,68.1551 -74.0515,68.156 -74.0688,68.1619 -74.0877,68.1741 -74.1041,68.1858 -74.2316,68.3109 -74.244,68.3362 -74.243,68.3465 -74.2358,68.3575 -74.2199,68.372 -74.2032,68.3763 -74.1839,68.3746 -74.1839,68.3746 48,2.0,Norway 14.1763,68.0622 14.1699,68.0651 14.1746,68.1158 14.2747,68.2174 14.2916,68.2296 14.3115,68.2316 14.3253,68.2297 14.3407,68.2202 14.3834,68.2054 14.4528,68.2084 14.4703,68.2173 14.442,68.2518 14.401,68.2682 14.455,68.2938 14.5116,68.3134 14.575,68.3304 14.5969,68.3359 14.6091,68.3378 14.7277,68.3411 14.744,68.3391 14.7542,68.3371 14.7738,68.33 14.7763,68.3036 14.7676,68.2942 14.7449,68.2856 14.7356,68.2802 14.722,68.2614 14.7635,68.2759 14.8293,68.2945 14.8239,68.3107 14.8644,68.3412 14.887,68.3445 15.1128,68.3637 15.1266,68.3649 15.137,68.3628 15.1244,68.3525 15.0824,68.3236 14.9989,68.2697 14.8113,68.1919 14.782,68.1817 14.7509,68.1729 14.7406,68.1702 14.502,68.1135 14.4776,68.1093 14.3626,68.0961 14.2111,68.0686 14.1763,68.0622 14.1763,68.0622 15,-5.0,Canada -81.8371,68.2453 -81.8872,68.2188 -81.8995,68.2155 -82.0975,68.2512 -82.1394,68.2617 -82.153,68.2662 -82.1696,68.2766 -82.1597,68.2843 -82.0571,68.2981 -82.0436,68.2967 -81.9623,68.2851 -81.8395,68.2634 -81.8263,68.2565 -81.8371,68.2453 -81.8371,68.2453 21,-5.0,Canada -78.9327,68.2612 -78.8784,68.256 -78.7636,68.2515 -78.66,68.2082 -78.6413,68.198 -78.6377,68.1839 -78.6537,68.1656 -78.6759,68.1533 -78.8547,68.0821 -78.8665,68.0782 -78.9087,68.0813 -78.9234,68.0831 -78.9356,68.088 -79.0076,68.12 -79.0134,68.1283 -79.0218,68.16 -79.0241,68.2319 -78.9801,68.2603 -78.9588,68.2627 -78.9327,68.2612 -78.9327,68.2612 77,-5.0,Canada -76.5055,67.1348 -76.5345,67.1358 -76.8191,67.16 -76.8675,67.1696 -76.8917,67.1785 -76.9152,67.1952 -76.942,67.2205 -77.087,67.3688 -77.0765,67.4094 -77.0648,67.4538 -77.0758,67.476 -77.1144,67.5287 -77.1555,67.5977 -77.1599,67.6184 -77.0937,67.7348 -77.077,67.7565 -77.0632,67.7714 -77.0426,67.7897 -76.7008,68.0724 -76.5645,68.1515 -76.541,68.1612 -76.5126,68.1719 -76.4736,68.1845 -76.4455,68.1919 -76.1115,68.245 -76.0903,68.2308 -76.068,68.2148 -75.9558,68.2093 -75.9231,68.2077 -75.8966,68.2103 -75.8722,68.2174 -75.8325,68.2331 -75.8,68.2451 -75.7643,68.25 -75.7277,68.2524 -75.6583,68.2493 -75.597,68.245 -75.5664,68.243 -75.5361,68.2396 -75.5081,68.2355 -75.463,68.2257 -75.4434,68.2199 -75.4236,68.213 -75.4032,68.207 -75.2952,68.1792 -75.2708,68.1748 -75.228,68.1707 -75.1046,68.1598 -75.0706,68.1584 -75.033,68.1574 -75.0003,68.1525 -74.9703,68.1445 -74.873,68.0801 -74.8501,68.0527 -74.8438,68.0299 -74.8961,67.9498 -74.9343,67.9231 -74.9909,67.8878 -75.0039,67.8673 -74.9521,67.7682 -74.9074,67.6962 -74.8691,67.5363 -74.9145,67.4547 -74.9779,67.3958 -75.0054,67.3781 -75.0429,67.3574 -75.2359,67.2685 -75.3972,67.2479 -75.506,67.2197 -75.6879,67.1787 -75.7892,67.1666 -75.9595,67.1703 -76.0696,67.1753 -76.1511,67.1684 -76.3327,67.1512 -76.5055,67.1348 -76.5055,67.1348 16,2.0,Norway 14.1585,68.1514 14.1409,68.1541 14.1314,68.1573 14.0228,68.2021 14.0197,68.213 14.0394,68.2327 14.0852,68.2342 14.1032,68.2327 14.1844,68.2137 14.1994,68.2055 14.2096,68.1937 14.2129,68.1786 14.1882,68.1567 14.1737,68.1518 14.1585,68.1514 14.1585,68.1514 24,-7.0,Canada -111.294,68.2032 -111.3228,68.2019 -111.348,68.1986 -111.3745,68.1916 -111.3958,68.1766 -111.3968,68.1598 -111.4012,68.1485 -111.4146,68.1426 -111.437,68.1376 -111.4618,68.1343 -111.4753,68.1333 -111.4905,68.1331 -111.5074,68.1338 -111.5253,68.1381 -111.5391,68.1464 -111.5439,68.1569 -111.5392,68.1686 -111.4797,68.2097 -111.4687,68.212 -111.2939,68.2235 -111.2787,68.2237 -111.2671,68.2072 -111.294,68.2032 -111.294,68.2032 54,-6.0,Canada -86.2533,68.0752 -86.2519,68.0067 -86.245,67.9823 -86.2164,67.9346 -86.1966,67.9041 -86.1879,67.868 -86.1902,67.8531 -86.2158,67.7733 -86.223,67.7625 -86.2874,67.6976 -86.3098,67.6843 -86.3917,67.6424 -86.4034,67.6388 -86.4161,67.6393 -86.4959,67.6452 -86.5097,67.6477 -86.6773,67.7107 -86.7004,67.7263 -86.7286,67.7611 -86.7371,67.7755 -86.7452,67.79 -86.764,67.8228 -86.7686,67.8398 -86.7587,67.8477 -86.7444,67.8446 -86.7315,67.8452 -86.6726,67.8675 -86.6616,67.872 -86.6571,67.8996 -86.6552,67.9141 -86.6588,67.9239 -86.6678,67.9358 -86.6818,67.9424 -86.6964,67.9455 -86.7219,67.9437 -86.7505,67.9489 -86.7599,67.9535 -86.8086,67.9809 -86.8058,67.9946 -86.7964,68.0101 -86.7197,68.0957 -86.5597,68.1954 -86.5292,68.2118 -86.5178,68.216 -86.4926,68.2187 -86.4642,68.2142 -86.4205,68.204 -86.3566,68.1831 -86.3054,68.1615 -86.2767,68.1484 -86.2273,68.1194 -86.2211,68.1071 -86.2533,68.0752 -86.2533,68.0752 44,2.0,Norway 13.4931,67.9526 13.4749,67.9538 13.4614,67.9569 13.4455,67.963 13.4246,67.9768 13.4382,68.001 13.501,68.0389 13.5076,68.1162 13.5059,68.1419 13.4888,68.1453 13.5399,68.1755 13.6309,68.1989 13.6476,68.1983 13.7749,68.1815 13.8597,68.1656 13.8813,68.1596 13.9229,68.1529 13.939,68.1509 13.974,68.1492 13.9971,68.1577 14.0046,68.171 14.019,68.1745 14.0345,68.1747 14.0648,68.1707 14.1005,68.1595 14.1057,68.1489 14.0992,68.1409 14.0098,68.0899 13.9992,68.0873 13.9811,68.0885 13.9084,68.0846 13.8314,68.0717 13.8077,68.0492 13.819,68.037 13.8173,68.0246 13.8065,68.0178 13.6796,67.98 13.669,67.9774 13.6568,67.9749 13.6163,67.9797 13.5963,67.997 13.5337,67.9862 13.4931,67.9526 13.4931,67.9526 32,-2.0,Greenland -52.1794,68.0905 -52.072,68.0941 -52.058,68.0949 -52.0097,68.1005 -51.9726,68.1044 -51.7147,68.1339 -51.4978,68.1654 -51.4729,68.1698 -51.3574,68.1752 -51.3454,68.1656 -51.3474,68.1509 -51.3557,68.1448 -51.4167,68.1199 -51.4383,68.1137 -51.4836,68.1051 -51.59,68.1014 -51.6391,68.0943 -51.6614,68.0904 -51.6724,68.0871 -51.6924,68.0788 -51.7301,68.0594 -51.7518,68.0529 -51.8108,68.043 -51.8985,68.0334 -51.9614,68.0283 -52.0005,68.0266 -52.042,68.0292 -52.0733,68.0346 -52.2031,68.0782 -52.1958,68.0859 -52.1794,68.0905 -52.1794,68.0905 18,-4.0,Canada -66.1878,68.0605 -66.2154,68.0663 -66.2418,68.0714 -66.2567,68.0739 -66.3288,68.084 -66.3878,68.0906 -66.4311,68.0943 -66.4621,68.0955 -66.4672,68.13 -66.36,68.1525 -66.1599,68.1672 -66.0825,68.1538 -66.1173,68.0766 -66.1303,68.0714 -66.1621,68.0621 -66.1741,68.0608 -66.1878,68.0605 -66.1878,68.0605 19,-7.0,Canada -109.3465,68.1454 -109.3516,68.1386 -109.3636,68.1271 -109.4435,68.0861 -109.5322,68.0562 -109.5419,68.0527 -109.5534,68.0504 -109.5812,68.0492 -109.5977,68.0497 -109.615,68.0545 -109.6246,68.0637 -109.6148,68.0711 -109.5412,68.1012 -109.4465,68.1369 -109.4135,68.1449 -109.3585,68.1581 -109.3412,68.157 -109.3465,68.1454 -109.3465,68.1454 23,-2.0,Greenland -29.6627,68.1355 -29.6437,68.1302 -29.6316,68.1196 -29.6393,68.1017 -29.6501,68.0874 -29.6652,68.0802 -29.7752,68.0537 -29.8041,68.0528 -29.8351,68.0538 -29.876,68.0611 -29.9259,68.0765 -29.9383,68.0808 -29.9524,68.0984 -29.9472,68.1224 -29.9366,68.1312 -29.912,68.1401 -29.8895,68.1461 -29.8674,68.1489 -29.8318,68.1512 -29.8149,68.1501 -29.7179,68.1359 -29.6627,68.1355 -29.6627,68.1355 20,-2.0,Greenland -31.6262,68.0853 -31.65,68.0722 -31.6872,68.0667 -31.7415,68.0655 -31.7595,68.0686 -31.8629,68.0865 -31.8815,68.0963 -31.8906,68.1105 -31.8893,68.1209 -31.8709,68.1299 -31.8596,68.1316 -31.7677,68.1414 -31.7523,68.142 -31.6825,68.1391 -31.6699,68.1362 -31.6816,68.1287 -31.6951,68.1188 -31.6989,68.1049 -31.6262,68.0853 -31.6262,68.0853 14,-7.0,Canada -104.3308,68.0529 -104.2814,67.9955 -104.2635,67.9928 -104.2341,68.0153 -104.1859,68.0522 -104.155,68.0916 -104.15,68.1006 -104.1578,68.1126 -104.1726,68.1198 -104.1962,68.1157 -104.2069,68.1126 -104.3308,68.0763 -104.3364,68.0594 -104.3308,68.0529 17,-4.0,Canada -65.5105,68.0816 -65.5064,68.0744 -65.4285,68.0651 -65.3753,68.0658 -65.3598,68.0589 -65.3608,68.0381 -65.3835,68.0244 -65.5377,68.0091 -65.5536,68.0104 -65.5739,68.0223 -65.5839,68.0772 -65.5762,68.0909 -65.5632,68.0943 -65.5378,68.0928 -65.5187,68.0882 -65.5105,68.0816 -65.5105,68.0816 65,-5.0,Canada -73.5011,67.9209 -73.4891,67.9255 -73.4657,67.9281 -73.4546,67.9287 -73.4238,67.9274 -73.4132,67.9261 -73.3898,67.9214 -73.286,67.8987 -73.2745,67.8956 -73.2651,67.8919 -73.2569,67.8861 -73.1954,67.7417 -73.2084,67.7239 -73.2273,67.7052 -73.2511,67.6885 -73.2618,67.6819 -73.2763,67.6765 -73.2964,67.6763 -73.5106,67.6882 -73.7778,67.7 -73.8387,67.7018 -73.8839,67.702 -73.9292,67.7021 -73.9587,67.7006 -74.0135,67.6965 -74.074,67.689 -74.0971,67.686 -74.1082,67.6852 -74.1508,67.6824 -74.1651,67.6825 -74.2333,67.6889 -74.2455,67.6903 -74.3258,67.703 -74.3799,67.7184 -74.4087,67.7281 -74.4259,67.7349 -74.4415,67.742 -74.485,67.7657 -74.5036,67.7783 -74.5282,67.7954 -74.6024,67.8634 -74.6179,67.8807 -74.6213,67.9194 -74.6207,67.9309 -74.6164,67.9431 -74.6032,67.9677 -74.5945,67.9761 -74.5754,67.9839 -74.5617,67.9851 -74.4734,67.9917 -74.4586,67.9912 -74.2806,68.0103 -74.2076,68.0793 -74.1995,68.0858 -74.187,68.0896 -74.1663,68.086 -74.1128,68.068 -74.0795,68.0563 -74.0587,68.0453 -74.0572,68.0344 -74.0092,67.9785 -73.8197,67.9544 -73.5819,67.9267 -73.5011,67.9209 -73.5011,67.9209 22,2.0,Norway 13.2116,67.8984 13.1975,67.9305 13.186,67.9471 13.1666,67.947 13.1629,67.9316 13.1532,67.9171 13.1364,67.9261 13.1347,67.9573 13.2676,68.0604 13.2818,68.0655 13.2953,68.0666 13.3296,68.0641 13.3575,68.0594 13.3695,68.0568 13.3924,68.0448 13.4092,68.0288 13.3544,67.9419 13.3129,67.927 13.234,67.9033 13.2233,67.9005 13.2116,67.8984 13.2116,67.8984 32,-2.0,Greenland -51.8414,68.0068 -51.7985,68.0056 -51.759,68.006 -51.7309,68.0141 -51.7196,68.0221 -51.6947,68.0263 -51.3511,68.0611 -51.3245,68.0636 -51.3109,68.063 -51.2084,68.054 -51.1089,68.0385 -51.1007,68.032 -51.1856,68.0138 -51.2571,68.003 -51.3065,67.9976 -51.3317,67.9954 -51.3574,67.9959 -51.3723,67.9975 -51.4043,68.0023 -51.4179,68.0027 -51.4832,68.0007 -51.6191,67.9859 -51.7313,67.9761 -51.7828,67.9729 -51.824,67.9728 -51.8514,67.9753 -51.8676,67.9782 -51.8966,67.991 -51.8792,68.0035 -51.8677,68.0059 -51.8414,68.0068 -51.8414,68.0068 19,-7.0,Canada -109.6523,68.0273 -109.6573,68.0177 -109.669,68.0062 -109.6907,67.9947 -109.7016,67.992 -109.8563,67.9664 -109.9825,67.951 -110.0089,67.949 -110.0265,67.9524 -110.019,67.9592 -109.9907,67.9699 -109.9509,67.9826 -109.7021,68.0448 -109.6908,68.0472 -109.6658,68.0504 -109.655,68.0493 -109.6468,68.0372 -109.6523,68.0273 -109.6523,68.0273 17,-2.0,Greenland -53.3608,67.9822 -53.3568,67.9882 -53.3122,68.0187 -53.3021,68.0206 -53.2764,68.0226 -53.2378,68.0245 -53.2094,68.0214 -53.1716,68.0115 -53.1508,68.0014 -53.1149,67.9694 -53.1826,67.9413 -53.2356,67.9233 -53.2451,67.9207 -53.2639,67.9239 -53.3487,67.9672 -53.3608,67.9822 -53.3608,67.9822 13,2.0,Norway 12.7708,67.7206 12.7589,67.725 12.8688,67.8652 12.9138,67.9165 13.0273,68.0151 13.0412,68.0162 13.0764,68.0079 13.1244,67.9955 13.1085,67.8689 12.9831,67.7902 12.8154,67.7221 12.7708,67.7206 12.7708,67.7206 16,-7.0,Canada -109.2175,68.0052 -109.181,67.9848 -109.0894,67.951 -109.0825,67.9386 -109.0824,67.908 -109.0892,67.8965 -109.1068,67.8934 -109.1231,67.8944 -109.149,67.9001 -109.2032,67.9163 -109.273,67.9376 -109.3115,67.963 -109.2713,68.0043 -109.255,68.0084 -109.2175,68.0052 -109.2175,68.0052 20,2.0,Norway 15.5815,67.8889 15.4833,67.8932 15.4703,67.9026 15.4859,67.9163 15.4964,67.919 15.5227,67.9218 15.5756,67.9269 15.589,67.928 15.6193,67.9288 15.6788,67.9283 15.7104,67.9283 15.8181,67.9268 15.8317,67.9247 15.866,67.9158 15.8885,67.9023 15.87,67.8923 15.8293,67.8892 15.6387,67.8916 15.5815,67.8889 15.5815,67.8889 20,-7.0,Canada -108.7233,67.8864 -108.6694,67.8704 -108.6567,67.8618 -108.6381,67.8165 -108.6563,67.7868 -108.6729,67.7831 -108.6893,67.7841 -108.8211,67.8172 -108.8749,67.8334 -108.9075,67.8435 -108.9415,67.8584 -108.9635,67.8734 -108.9702,67.8858 -108.9679,67.9002 -108.8217,67.8714 -108.8021,67.8801 -108.7626,67.8897 -108.7487,67.8902 -108.7233,67.8864 -108.7233,67.8864 21,-7.0,Canada -108.0114,67.7952 -107.9258,67.7854 -107.9121,67.7859 -107.887,67.7891 -107.8657,67.7942 -107.853,67.8007 -107.8401,67.8123 -107.8256,67.8398 -107.8224,67.8626 -107.828,67.8752 -107.8454,67.8844 -107.8578,67.8873 -107.8742,67.8884 -107.8883,67.8877 -107.8996,67.8853 -107.9208,67.8799 -107.9716,67.8641 -108.0014,67.8492 -108.0114,67.8368 -108.0267,67.797 -108.0114,67.7952 13,-7.0,Canada -110.5853,67.8536 -110.6342,67.806 -110.6488,67.8009 -110.8277,67.7626 -110.8398,67.7609 -110.8559,67.7677 -110.8382,67.7806 -110.6169,67.8678 -110.6073,67.8714 -110.5947,67.873 -110.5781,67.8661 -110.5853,67.8536 -110.5853,67.8536 14,2.0,Norway 15.112,67.8119 14.9799,67.8176 14.9454,67.8192 14.9297,67.8213 14.9037,67.8389 14.9323,67.8653 15.0069,67.8714 15.0585,67.8668 15.2694,67.8324 15.2346,67.8231 15.1961,67.8166 15.1705,67.8137 15.112,67.8119 15.112,67.8119 14,-7.0,Canada -108.1331,67.8135 -108.1859,67.7992 -108.42,67.7828 -108.438,67.7842 -108.4195,67.8007 -108.3582,67.8289 -108.3392,67.8359 -108.3176,67.8418 -108.304,67.8423 -108.149,67.8346 -108.1379,67.8289 -108.1347,67.8188 -108.1331,67.8135 -108.1331,67.8135 22,-2.0,Greenland -53.559,67.5878 -53.565,67.6034 -53.5865,67.6342 -53.6173,67.6383 -53.6328,67.6441 -53.6417,67.6503 -53.6524,67.6881 -53.6407,67.6954 -53.6292,67.6981 -53.6167,67.6985 -53.5757,67.6976 -53.5605,67.6959 -53.5363,67.6835 -53.5209,67.6754 -53.475,67.645 -53.4712,67.6248 -53.4788,67.6161 -53.4873,67.611 -53.5248,67.5948 -53.547,67.5898 -53.559,67.5878 -53.559,67.5878 19,-6.0,Canada -97.1351,67.6349 -97.13,67.6201 -97.1276,67.5927 -97.1392,67.5842 -97.168,67.5715 -97.2308,67.5515 -97.2762,67.5415 -97.2999,67.5383 -97.3129,67.5376 -97.3274,67.5388 -97.3385,67.5429 -97.349,67.5578 -97.3573,67.6066 -97.1977,67.6453 -97.185,67.6459 -97.1571,67.6453 -97.1391,67.6398 -97.1351,67.6349 -97.1351,67.6349 18,-7.0,Canada -107.9182,67.4427 -107.8855,67.387 -107.8658,67.3797 -107.836,67.3893 -107.7008,67.4519 -107.698,67.4631 -107.7041,67.4757 -107.7618,67.5617 -107.7748,67.5709 -107.7895,67.5762 -107.8623,67.5889 -107.876,67.5903 -107.8907,67.5865 -107.9072,67.5533 -107.9089,67.542 -107.9182,67.4559 -107.9193,67.4446 -107.9182,67.4427 29,-4.0,Canada -63.7934,67.5472 -63.7892,67.539 -63.7827,67.5313 -63.7714,67.5218 -63.7429,67.5072 -63.7212,67.4994 -63.6828,67.4807 -63.6547,67.4644 -63.6376,67.452 -63.6312,67.4438 -63.6272,67.432 -63.6372,67.4274 -63.6858,67.4227 -63.7095,67.4206 -63.7493,67.4173 -63.8029,67.416 -63.8463,67.4171 -63.8623,67.4182 -63.8723,67.4194 -63.8967,67.4296 -63.9016,67.443 -63.905,67.457 -63.9012,67.4726 -63.8459,67.5608 -63.8332,67.5683 -63.8161,67.5666 -63.804,67.559 -63.7934,67.5472 -63.7934,67.5472 13,-7.0,Canada -108.044,67.382 -108.0272,67.3733 -108.0122,67.371 -107.9451,67.3638 -107.9125,67.3662 -107.905,67.3771 -107.9063,67.3933 -107.9417,67.4572 -107.9491,67.4665 -107.9776,67.4827 -107.9976,67.4823 -108.0506,67.3958 -108.044,67.382 17,-7.0,Canada -108.266,67.436 -108.2338,67.4024 -108.2238,67.3963 -108.2092,67.391 -108.1735,67.3819 -108.1574,67.3809 -108.1437,67.3813 -108.1324,67.3838 -108.0737,67.408 -108.0605,67.4545 -108.0726,67.4711 -108.1109,67.4798 -108.2326,67.4819 -108.256,67.4806 -108.266,67.4771 -108.27,67.4402 -108.266,67.436 14,-7.0,Canada -107.8512,67.2905 -107.7249,67.2227 -107.7111,67.2213 -107.6879,67.2251 -107.6763,67.231 -107.6591,67.3767 -107.6634,67.3904 -107.675,67.4015 -107.6939,67.4037 -107.7235,67.3941 -107.841,67.354 -107.8512,67.3422 -107.8608,67.2957 -107.8512,67.2905 24,-4.0,Canada -63.3249,67.1789 -63.3764,67.1842 -63.4107,67.1869 -63.4282,67.1877 -63.4468,67.188 -63.4886,67.1838 -63.6318,67.1872 -63.6817,67.1939 -63.6976,67.1987 -63.6874,67.2044 -63.6648,67.2147 -63.5566,67.2561 -63.535,67.26 -63.5144,67.2625 -63.4739,67.2666 -63.4543,67.2678 -63.3534,67.2557 -63.2381,67.2169 -63.2269,67.2083 -63.2352,67.2024 -63.2649,67.1845 -63.2865,67.1811 -63.3249,67.1789 -63.3249,67.1789 16,-6.0,Canada -95.118,67.1531 -95.1431,67.1247 -95.165,67.1123 -95.1768,67.1109 -95.2036,67.1118 -95.2182,67.1143 -95.2338,67.1176 -95.3301,67.1376 -95.3528,67.1465 -95.3449,67.1533 -95.194,67.1778 -95.1806,67.1774 -95.1205,67.1702 -95.1112,67.1609 -95.118,67.1531 -95.118,67.1531 25,-7.0,Canada -107.4062,67.0983 -107.3692,67.0456 -107.3624,67.0363 -107.353,67.0269 -107.3433,67.0182 -107.3282,67.005 -107.3062,66.993 -107.296,66.9898 -107.2849,66.9875 -107.2694,66.9863 -107.1868,66.998 -107.1792,67.0279 -107.1914,67.0306 -107.2223,67.041 -107.2404,67.0483 -107.2562,67.0556 -107.2882,67.0712 -107.34,67.0985 -107.3596,67.1109 -107.3757,67.1189 -107.3863,67.1223 -107.3986,67.1207 -107.4062,67.112 -107.408,67.1009 -107.4062,67.0983 29,-4.0,Canada -62.7652,66.9742 -62.7355,66.9726 -62.691,66.971 -62.6792,66.9731 -62.5737,67.0434 -62.5229,67.081 -62.5126,67.0891 -62.5027,67.0918 -62.4186,67.1007 -62.4048,67.1021 -62.2926,67.1056 -62.2477,67.0808 -62.2592,67.0722 -62.3188,67.0492 -62.3436,67.0411 -62.3754,67.0344 -62.4095,67.0286 -62.4406,67.0207 -62.451,67.017 -62.4672,67.0073 -62.5062,66.9819 -62.5197,66.9654 -62.6233,66.9257 -62.6351,66.9244 -62.6536,66.9247 -62.6836,66.9321 -62.7028,66.9393 -62.7652,66.9742 -62.7652,66.9742 18,2.0,Norway 14.1355,66.9129 14.1205,66.9415 14.097,66.9644 14.0607,66.9814 14.0516,66.9848 14.0341,66.9858 14.0069,66.9841 13.9906,66.9845 13.9708,66.9872 13.9655,66.9959 14.0296,67.0323 14.179,67.0528 14.2287,67.0478 14.1753,66.9201 14.1628,66.9145 14.1497,66.913 14.1355,66.9129 14.1355,66.9129 20,-4.0,Canada -62.8313,66.9696 -62.8115,66.9588 -62.793,66.9461 -62.7849,66.9382 -62.7858,66.9275 -62.8084,66.9209 -62.8481,66.9216 -62.8802,66.9249 -62.9081,66.9308 -62.9384,66.9407 -62.9628,66.9507 -62.9939,66.9641 -63.0071,66.9734 -63.0031,66.9869 -62.9837,66.9947 -62.9702,66.9947 -62.8724,66.9845 -62.8488,66.9779 -62.8313,66.9696 -62.8313,66.9696 12,-7.0,Canada -107.7135,66.7647 -107.7018,66.7661 -107.6781,66.7741 -107.6057,66.8136 -107.5685,66.8975 -107.5697,66.9035 -107.5732,66.9124 -107.5851,66.9209 -107.5951,66.9244 -107.6121,66.9214 -107.7245,66.7694 -107.7135,66.7647 21,-2.0,Greenland -52.7517,66.8104 -52.8626,66.8044 -52.8873,66.8016 -52.9101,66.7978 -52.9511,66.7855 -52.9619,66.7816 -53.0967,66.7381 -53.1956,66.7406 -53.3545,66.7143 -53.3362,66.7491 -53.3059,66.7648 -53.2774,66.7769 -53.247,66.7868 -53.2361,66.7892 -53.1458,66.804 -53.1119,66.8095 -53.0862,66.8115 -52.8355,66.8177 -52.7679,66.8143 -52.7517,66.8104 -52.7517,66.8104 72,5.0,Russia 69.6811,66.4047 69.6191,66.436 69.4315,66.5216 69.4289,66.5507 69.3787,66.6081 69.3669,66.6205 69.2989,66.6735 69.2897,66.6797 69.2774,66.6852 69.26,66.6881 69.1809,66.6828 69.1657,66.6804 69.1492,66.6727 69.1518,66.6588 69.1413,66.653 69.1264,66.6505 69.1095,66.6518 69.0248,66.6813 69.0129,66.6867 68.9855,66.7076 68.9968,66.7154 69.0114,66.7189 69.0428,66.7222 69.0606,66.7226 69.0769,66.7228 69.0922,66.7173 69.1107,66.7056 69.1254,66.7013 69.1411,66.7024 69.2639,66.721 69.2802,66.7209 69.3158,66.7141 69.325,66.7082 69.3427,66.6966 69.3516,66.6908 69.3537,66.6695 69.3825,66.6416 69.3916,66.6356 69.4036,66.63 69.4851,66.6066 69.5029,66.6029 69.5153,66.608 69.4788,66.6216 69.4511,66.633 69.4146,66.6499 69.403,66.6589 69.3998,66.6713 69.4124,66.6796 69.427,66.6827 69.4427,66.684 69.5587,66.6788 69.5928,66.6757 69.61,66.6727 69.6325,66.6612 69.7129,66.6371 69.8131,66.6228 69.8286,66.624 69.845,66.6237 69.8953,66.6204 69.9121,66.6192 69.9276,66.6135 69.9422,66.6047 69.9476,66.5956 69.9599,66.4439 69.9064,66.4167 69.892,66.4118 69.7342,66.3879 69.7172,66.3903 69.6988,66.3943 69.6869,66.3998 69.6811,66.4047 69.6811,66.4047 27,3.0,Russia 42.4537,66.7058 42.4745,66.7055 42.5188,66.7012 42.5355,66.6978 42.5633,66.6897 42.5743,66.6846 42.5996,66.6688 42.6278,66.6381 42.6336,66.621 42.6285,66.6086 42.6196,66.602 42.5838,66.6008 42.5429,66.6031 42.5239,66.6057 42.5072,66.609 42.4932,66.613 42.4075,66.6443 42.3627,66.6634 42.3472,66.6781 42.3555,66.6898 42.3792,66.6984 42.393,66.7019 42.4082,66.7042 42.4254,66.7055 42.4423,66.7067 42.4537,66.7058 42.4537,66.7058 1083,0.0,Iceland -21.6618,65.3662 -21.7659,65.3515 -21.8272,65.3638 -21.8959,65.3826 -21.9486,65.4189 -21.9933,65.4175 -22.0722,65.4001 -22.1365,65.3577 -22.1505,65.35 -22.1735,65.3429 -22.1852,65.343 -22.2428,65.3593 -22.29,65.4011 -22.283,65.4099 -22.2683,65.4148 -22.2467,65.416 -22.2228,65.4183 -22.1854,65.4378 -22.1612,65.4422 -22.1146,65.4594 -22.105,65.469 -22.0652,65.5113 -22.0777,65.5118 -22.1182,65.4943 -22.1301,65.4819 -22.1443,65.4702 -22.1585,65.4624 -22.1871,65.4511 -22.2147,65.4437 -22.2728,65.437 -22.4285,65.4226 -22.4546,65.4266 -22.5284,65.4488 -22.6324,65.4446 -22.677,65.418 -22.6958,65.4177 -22.7371,65.4219 -22.8078,65.4728 -22.8665,65.4826 -22.9708,65.4573 -23.009,65.4569 -23.0389,65.4586 -23.1037,65.4658 -23.1534,65.416 -23.1647,65.4075 -23.1788,65.4019 -23.2023,65.3998 -23.248,65.4015 -23.3283,65.4095 -23.5759,65.3823 -23.6107,65.3715 -23.665,65.3402 -23.6752,65.3355 -23.6931,65.333 -23.8315,65.3208 -23.859,65.3213 -23.9146,65.3278 -23.9305,65.3326 -23.9455,65.356 -23.9491,65.3682 -23.9674,65.3878 -24.1346,65.4142 -24.2169,65.4167 -24.3591,65.4066 -24.4095,65.4011 -24.4594,65.4074 -24.4889,65.4183 -24.4161,65.4486 -24.3516,65.4685 -24.3214,65.4834 -24.321,65.5078 -24.327,65.5187 -24.3181,65.5262 -24.2728,65.5544 -24.2603,65.5544 -24.105,65.5251 -24.0948,65.5223 -24.087,65.5162 -24.0749,65.5097 -24.0023,65.4827 -23.9898,65.4785 -23.8443,65.436 -23.8279,65.434 -23.7978,65.4368 -23.7593,65.449 -23.8646,65.4711 -23.9643,65.5125 -24.0103,65.5406 -24.0211,65.5484 -24.0337,65.5629 -24.0219,65.5664 -23.9124,65.5601 -23.8991,65.5564 -23.8627,65.5448 -23.7579,65.5266 -23.7661,65.5337 -23.7813,65.5413 -23.8214,65.557 -23.8685,65.5736 -23.8858,65.5776 -23.9063,65.5797 -23.949,65.5857 -23.966,65.5895 -23.9905,65.5977 -24.0109,65.6077 -24.0243,65.6169 -24.0618,65.6497 -24.0741,65.6643 -24.0836,65.7021 -24.0766,65.7097 -24.0566,65.7231 -23.9749,65.7135 -23.8983,65.6912 -23.7759,65.6565 -23.6824,65.6379 -23.6351,65.6312 -23.5857,65.6207 -23.5725,65.6174 -23.5608,65.6132 -23.5223,65.5864 -23.5063,65.5634 -23.4798,65.5453 -23.3644,65.5687 -23.2964,65.5838 -23.3186,65.5875 -23.3391,65.5861 -23.4055,65.5903 -23.4675,65.6147 -23.4909,65.6355 -23.448,65.6421 -23.4335,65.6448 -23.4139,65.6486 -23.3942,65.6463 -23.319,65.6496 -23.2071,65.6555 -23.1826,65.6581 -23.1454,65.6931 -23.1631,65.6962 -23.1865,65.6899 -23.2081,65.6845 -23.2605,65.6765 -23.3535,65.672 -23.4841,65.6684 -23.5011,65.6687 -23.5347,65.6716 -23.6804,65.6914 -23.6957,65.6937 -23.7081,65.6974 -23.7243,65.7046 -23.7889,65.7444 -23.7994,65.7549 -23.8251,65.7858 -23.823,65.7974 -23.8188,65.8079 -23.797,65.8275 -23.7845,65.8337 -23.7633,65.837 -23.745,65.8366 -23.627,65.8182 -23.5902,65.8113 -23.3991,65.7821 -23.2081,65.7545 -23.1783,65.7525 -23.1691,65.7576 -23.2555,65.7725 -23.3313,65.7844 -23.391,65.7947 -23.5158,65.818 -23.5376,65.8223 -23.5557,65.8284 -23.6984,65.8836 -23.755,65.9145 -23.77,65.9315 -23.7682,65.95 -23.7526,65.9736 -23.7379,65.9833 -23.7191,65.9876 -23.6851,65.9848 -23.5881,65.9665 -23.5716,65.9642 -23.4825,65.9467 -23.3639,65.9145 -23.3486,65.9067 -23.3271,65.9034 -23.369,65.9432 -23.3779,65.9493 -23.4624,65.9741 -23.4725,65.9749 -23.4869,65.9749 -23.5453,65.9965 -23.5551,66.0005 -23.5653,66.0079 -23.6182,66.0298 -23.5313,66.078 -23.49,66.0954 -23.4209,66.1163 -23.3988,66.1155 -23.3048,66.1078 -23.2257,66.0916 -23.1131,66.0615 -22.9819,66.0207 -22.937,65.997 -22.931,65.987 -22.9324,65.9513 -22.7634,65.911 -22.7126,65.9721 -22.7025,65.9751 -22.6317,65.9621 -22.5703,65.9288 -22.5591,65.9194 -22.5451,65.9002 -22.531,65.8804 -22.5413,65.8473 -22.5519,65.8291 -22.567,65.8159 -22.5754,65.8062 -22.599,65.7733 -22.6103,65.7523 -22.6036,65.7439 -22.5924,65.7483 -22.5211,65.8296 -22.4865,65.8756 -22.454,65.883 -22.3764,65.8398 -22.3741,65.8299 -22.3874,65.791 -22.3955,65.7837 -22.4041,65.7783 -22.4159,65.7677 -22.4175,65.7514 -22.3995,65.7509 -22.3901,65.7562 -22.3793,65.7647 -22.3564,65.7942 -22.3495,65.804 -22.3406,65.8212 -22.3428,65.8442 -22.3519,65.8729 -22.3656,65.9054 -22.4543,65.9939 -22.5492,66.0244 -22.5629,66.0279 -22.616,66.0373 -22.6692,66.046 -22.7053,66.0479 -22.7216,66.0499 -22.7842,66.062 -22.7954,66.0643 -22.8655,66.0903 -22.8971,66.1104 -22.9057,66.1167 -22.9161,66.1267 -22.9256,66.138 -22.9192,66.1459 -22.8752,66.1565 -22.8097,66.1719 -22.7869,66.177 -22.7549,66.1779 -22.6924,66.1765 -22.6118,66.1586 -22.5442,66.1475 -22.502,66.1466 -22.413,66.1724 -22.3966,66.1804 -22.4473,66.1816 -22.4763,66.1823 -22.5011,66.185 -22.625,66.2031 -22.6615,66.2104 -22.7861,66.24 -22.8949,66.2148 -22.9277,66.2149 -22.9801,66.2188 -23.0044,66.2222 -23.0263,66.2263 -23.0866,66.2423 -23.0988,66.246 -23.1306,66.2586 -23.1418,66.2677 -23.085,66.2748 -23.0104,66.3087 -23.0313,66.3528 -22.8949,66.382 -22.8403,66.3826 -22.8142,66.3804 -22.6915,66.3546 -22.5656,66.3584 -22.3759,66.3497 -22.213,66.2567 -22.1571,66.1883 -22.0413,66.1847 -21.9296,66.1893 -21.7221,66.1023 -21.7108,66.0956 -21.686,66.0766 -21.6001,65.9835 -21.5938,65.9669 -21.6076,65.9358 -21.5748,65.9774 -21.467,65.9781 -21.3561,65.9441 -21.3491,65.8999 -21.4736,65.8878 -21.4908,65.885 -21.5556,65.8703 -21.5458,65.8595 -21.5317,65.8599 -21.5083,65.8645 -21.4931,65.8701 -21.425,65.8767 -21.3669,65.8787 -21.3495,65.8773 -21.3359,65.874 -21.2564,65.8497 -21.2421,65.8379 -21.2345,65.8079 -21.2351,65.7732 -21.2964,65.6505 -21.3553,65.6216 -21.3943,65.6055 -21.4307,65.604 -21.5479,65.6068 -21.596,65.6415 -21.6202,65.6658 -21.6237,65.6764 -21.6377,65.6826 -21.6802,65.6904 -21.7308,65.6823 -21.6069,65.5702 -21.5804,65.5606 -21.5593,65.5564 -21.5431,65.5544 -21.4916,65.5542 -21.4608,65.5562 -21.4499,65.5576 -21.4395,65.5567 -21.3781,65.5524 -21.3602,65.5491 -21.2658,65.5147 -21.2535,65.4913 -21.2526,65.4709 -21.2598,65.4488 -21.2376,65.3962 -21.1581,65.3495 -21.1479,65.3127 -21.1453,65.2587 -21.0793,65.1422 -21.0423,65.0777 -21.034,65.0831 -21.0249,65.1049 -21.0438,65.1501 -21.0543,65.359 -21.0497,65.3719 -21.0339,65.3741 -21.0219,65.3727 -21.0098,65.3684 -21.0015,65.3627 -20.9353,65.3491 -20.936,65.3606 -20.9455,65.3841 -20.946,65.3944 -20.941,65.4341 -20.8996,65.4961 -20.8852,65.5067 -20.8753,65.5115 -20.8106,65.5438 -20.6871,65.5916 -20.6404,65.6094 -20.6225,65.6086 -20.5822,65.5887 -20.5949,65.5403 -20.6032,65.4854 -20.6004,65.4609 -20.4557,65.406 -20.4331,65.4056 -20.4092,65.411 -20.2844,65.5462 -20.2283,65.6266 -20.2221,65.6412 -20.2225,65.6581 -20.2309,65.6873 -20.2686,65.7754 -20.3335,65.8419 -20.3574,65.8707 -20.3735,65.9266 -20.3781,65.961 -20.381,66.0011 -20.1332,66.0461 -20.0518,66.04 -19.9526,65.9411 -19.9,65.8747 -19.8835,65.8553 -19.8342,65.8276 -19.8071,65.816 -19.7492,65.8015 -19.7311,65.8004 -19.7071,65.8017 -19.6971,65.7993 -19.6594,65.7772 -19.6218,65.7069 -19.6146,65.6851 -19.6077,65.6737 -19.5959,65.6643 -19.568,65.6581 -19.4169,65.6433 -19.3854,65.6522 -19.3573,65.7066 -19.3514,65.7507 -19.3784,65.8004 -19.411,65.8394 -19.4306,65.8524 -19.4453,65.8576 -19.4363,65.8982 -19.415,65.9717 -19.3969,65.9801 -19.3443,65.9982 -19.221,66.0065 -19.192,66.0084 -19.112,66.0009 -19.0408,65.9944 -19.052,66.0416 -19.05,66.0537 -19.0401,66.0693 -19.0284,66.078 -18.9526,66.1 -18.9299,66.1051 -18.8144,66.1175 -18.7496,66.1084 -18.6451,66.0813 -18.6152,66.0663 -18.5921,66.0521 -18.5144,66.0017 -18.4958,65.9808 -18.482,65.9371 -18.4947,65.9205 -18.5015,65.8929 -18.4925,65.8849 -18.405,65.8721 -18.3404,65.8653 -18.3213,65.8647 -18.2982,65.86 -18.2882,65.8551 -18.2462,65.8257 -18.1688,65.734 -18.1446,65.6554 -18.055,65.5751 -18.033,65.5611 -18.027,65.5623 -18.012,65.5761 -18.0258,65.7418 -18.0336,65.7558 -18.0644,65.8105 -18.1117,65.8406 -18.1244,65.8361 -18.1343,65.829 -18.1466,65.8276 -18.1842,65.8463 -18.2545,65.9275 -18.2793,65.9755 -18.294,66.0692 -18.2577,66.0919 -18.2134,66.0961 -18.1819,66.0888 -18.126,66.0837 -18.0461,66.0766 -17.9793,66.0732 -17.9318,66.0713 -17.9141,66.069 -17.8732,66.0611 -17.7168,65.997 -17.6989,65.9859 -17.6866,65.9769 -17.5735,65.9045 -17.3824,65.9032 -17.3297,65.9721 -17.3063,66.0182 -17.2304,66.0838 -17.1977,66.1065 -17.1833,66.1119 -17.0961,66.127 -17.0685,66.1292 -17.0064,66.125 -16.9884,66.1212 -16.9578,66.1106 -16.9343,66.1024 -16.8755,66.0414 -16.7029,66.0317 -16.561,66.0079 -16.6241,66.0443 -16.6531,66.0776 -16.5244,66.1067 -16.4925,66.1129 -16.4752,66.115 -16.4145,66.1447 -16.4027,66.1526 -16.3941,66.1636 -16.384,66.1925 -16.3923,66.206 -16.4754,66.3086 -16.5442,66.3931 -16.5314,66.4096 -16.5216,66.4167 -16.4938,66.424 -16.4357,66.4306 -16.397,66.4332 -16.3229,66.4276 -16.2081,66.4277 -16.1422,66.4506 -15.9926,66.4522 -15.9243,66.4275 -15.8617,66.4034 -15.8216,66.3332 -15.8003,66.3312 -15.6775,66.3134 -15.6663,66.2998 -15.6508,66.2619 -15.6553,66.2487 -15.6884,66.2241 -15.7069,66.2134 -15.7175,66.2086 -15.6966,66.1818 -15.6626,66.1441 -15.527,66.1328 -15.343,66.0621 -15.3267,66.0727 -15.3084,66.0939 -15.3,66.1148 -15.2967,66.1315 -15.1815,66.1806 -15.1151,66.1865 -15.0975,66.1883 -15.0821,66.1916 -15.0685,66.1953 -14.979,66.2543 -14.9703,66.2655 -14.9394,66.2831 -14.9295,66.2883 -14.9129,66.2953 -14.8998,66.2992 -14.8761,66.3031 -14.8585,66.3054 -14.8255,66.3058 -14.8062,66.305 -14.6806,66.2837 -14.6808,66.264 -14.7742,66.2426 -14.933,66.2058 -14.9464,66.2022 -14.9765,66.1894 -14.9593,66.1743 -14.9429,66.1694 -14.918,66.1499 -14.9082,66.1376 -14.9056,66.1215 -14.9129,66.109 -14.9321,66.0946 -14.9463,66.0862 -14.9924,66.0722 -15.0401,66.0605 -15.1145,66.0538 -15.1309,66.0445 -15.1453,66.0305 -15.1186,66.0131 -14.9807,65.9671 -14.9033,65.9591 -14.7941,65.964 -14.7528,65.9768 -14.7218,65.9823 -14.7007,65.9828 -14.6849,65.9804 -14.6586,65.9731 -14.6469,65.9687 -14.6331,65.9604 -14.5893,65.9113 -14.5816,65.8916 -14.5758,65.8706 -14.5943,65.8267 -14.6232,65.8003 -14.6971,65.7664 -14.7274,65.7561 -14.746,65.7545 -14.769,65.7482 -14.7891,65.7314 -14.8252,65.6889 -14.8355,65.6733 -14.8181,65.6489 -14.8024,65.6419 -14.7876,65.6391 -14.7673,65.6439 -14.7159,65.6549 -14.6431,65.6689 -14.6075,65.6747 -14.389,65.7047 -14.3525,65.7082 -14.3202,65.7087 -14.3095,65.7019 -14.3028,65.693 -14.284,65.5874 -14.3796,65.5318 -14.4789,65.4724 -14.5013,65.4587 -14.5118,65.4516 -14.5182,65.4431 -14.5288,65.4173 -14.4973,65.4436 -14.3037,65.5587 -14.2766,65.5701 -14.2593,65.5738 -14.1636,65.5482 -13.9718,65.5168 -13.9598,65.5178 -13.9384,65.525 -13.9114,65.5295 -13.885,65.5301 -13.839,65.5294 -13.6528,65.4658 -13.5823,65.424 -13.5817,65.405 -13.6095,65.3428 -13.648,65.2913 -13.7081,65.2358 -13.633,65.2195 -13.5674,65.197 -13.5564,65.1921 -13.5428,65.1799 -13.5871,65.1504 -13.601,65.1427 -13.6116,65.1379 -13.6325,65.1331 -13.6733,65.1273 -13.725,65.1235 -13.7604,65.1224 -13.8351,65.1225 -14.0022,65.1121 -13.9849,65.1043 -13.9507,65.1058 -13.9193,65.1109 -13.8928,65.114 -13.8438,65.116 -13.823,65.1159 -13.623,65.1131 -13.5916,65.1076 -13.6095,65.0765 -13.5642,65.0413 -13.4905,65.031 -13.4722,64.9878 -13.5577,64.9263 -13.5664,64.9205 -13.577,64.9159 -13.5888,64.9118 -13.6093,64.9066 -13.6318,64.9026 -13.6512,64.9014 -13.744,64.9116 -13.7558,64.9162 -13.7927,64.9353 -13.8254,64.9533 -13.8445,64.9589 -13.8589,64.9619 -13.9602,64.9826 -13.9787,64.9368 -13.8426,64.8927 -13.735,64.8646 -13.7168,64.8612 -13.6785,64.8506 -13.6728,64.8396 -13.6821,64.8342 -13.7336,64.8312 -13.7864,64.8301 -13.9136,64.8405 -14.0232,64.8515 -14.0134,64.8404 -13.9972,64.8334 -13.9806,64.8289 -13.9327,64.8244 -13.9048,64.8226 -13.8744,64.8222 -13.8386,64.8224 -13.8194,64.8193 -13.7748,64.8017 -13.7637,64.7972 -13.7421,64.7858 -13.7417,64.7737 -13.7928,64.745 -13.8435,64.7189 -13.8809,64.7169 -13.9836,64.7157 -14.0144,64.6991 -13.9891,64.6757 -13.9765,64.6722 -13.9636,64.658 -13.9902,64.6433 -14.0366,64.6314 -14.0517,64.6282 -14.2101,64.6092 -14.2217,64.6091 -14.2979,64.6347 -14.3038,64.6454 -14.3387,64.669 -14.3935,64.7034 -14.4035,64.7078 -14.4157,64.7123 -14.4445,64.7176 -14.4642,64.7184 -14.4831,64.7162 -14.4254,64.6955 -14.3591,64.6423 -14.3371,64.594 -14.3393,64.5796 -14.3991,64.5282 -14.4122,64.5254 -14.4359,64.5252 -14.478,64.5132 -14.5265,64.5126 -14.5459,64.5118 -14.5556,64.5051 -14.5508,64.4961 -14.5415,64.4859 -14.497,64.4703 -14.4728,64.4668 -14.4513,64.4597 -14.4338,64.4623 -14.444,64.4261 -14.5121,64.3248 -14.5384,64.3204 -14.5669,64.3185 -14.6805,64.3282 -14.8419,64.2603 -14.8618,64.2222 -14.8505,64.1999 -14.8955,64.1848 -14.9309,64.174 -14.9448,64.1807 -15.051,64.2123 -15.0678,64.2163 -15.1898,64.2189 -15.261,64.2524 -15.3562,64.2904 -15.348,64.2749 -15.341,64.264 -15.3359,64.2523 -15.3385,64.2294 -15.3554,64.1967 -15.406,64.1764 -15.4163,64.1725 -15.4719,64.1616 -15.6049,64.1468 -15.6474,64.1409 -15.6766,64.1349 -15.7727,64.1033 -15.9839,64.0542 -15.9956,64.0479 -16.0094,64.0217 -16.1458,63.9591 -16.1689,63.9506 -16.1808,63.9467 -16.2013,63.9416 -16.2283,63.9386 -16.3067,63.9069 -16.4019,63.8391 -16.4107,63.8338 -16.4203,63.8293 -16.4558,63.8168 -16.5813,63.7833 -16.7721,63.7476 -16.8515,63.786 -16.9139,63.8285 -16.9347,63.8371 -16.9762,63.7811 -16.9768,63.737 -16.9898,63.7153 -17.0842,63.7124 -17.1026,63.7129 -17.1666,63.7156 -17.2098,63.7202 -17.2171,63.7181 -17.272,63.7051 -17.2861,63.7019 -17.6876,63.6346 -17.8014,63.6546 -17.8215,63.6546 -17.8367,63.6519 -17.9377,63.59 -17.93,63.544 -17.9092,63.5297 -17.8886,63.5254 -17.8294,63.5209 -17.8387,63.5052 -17.8786,63.4645 -17.8953,63.4514 -17.9154,63.4439 -18.0775,63.4028 -18.1124,63.3947 -18.1283,63.3926 -18.2654,63.3753 -18.5297,63.3395 -18.673,63.3132 -18.6924,63.3118 -18.7379,63.3132 -19.0487,63.3349 -19.238,63.3553 -19.3558,63.3832 -19.5604,63.4262 -19.5885,63.4315 -19.688,63.4492 -19.7419,63.4583 -19.8024,63.4662 -19.8288,63.4674 -20.01,63.4591 -20.0319,63.4583 -20.0486,63.456 -20.0703,63.4551 -20.0972,63.4561 -20.1308,63.4583 -20.1571,63.4642 -20.1815,63.4716 -20.4608,63.5889 -20.4806,63.6106 -20.4898,63.6178 -20.5007,63.6286 -20.5007,63.6449 -20.5003,63.6681 -20.4413,63.6889 -20.4171,63.6895 -20.4,63.6887 -20.3718,63.6835 -20.3532,63.6783 -20.3299,63.6651 -20.2969,63.6521 -20.2763,63.6515 -20.3121,63.6777 -20.3218,63.683 -20.3398,63.6886 -20.4028,63.7047 -20.4724,63.6884 -20.5208,63.6715 -20.5432,63.6602 -20.5431,63.6427 -20.6099,63.6504 -20.6884,63.6819 -20.6702,63.6836 -20.6477,63.6825 -20.6143,63.6774 -20.5641,63.6845 -20.6373,63.7683 -20.648,63.7626 -20.713,63.7273 -20.7618,63.7156 -20.805,63.712 -20.8319,63.723 -20.8609,63.7332 -20.9064,63.7445 -20.9726,63.7547 -21.02,63.7599 -21.0333,63.7633 -21.0754,63.7763 -21.1213,63.7924 -21.1392,63.801 -21.1517,63.8459 -21.1427,63.8509 -21.109,63.8555 -21.0892,63.8514 -21.0733,63.8501 -21.0106,63.8609 -21.128,63.8753 -21.1488,63.8759 -21.1613,63.8745 -21.2187,63.8635 -21.258,63.8392 -21.2774,63.8085 -21.3271,63.7886 -21.3889,63.7705 -21.5761,63.7453 -21.5967,63.7442 -21.6121,63.746 -21.6396,63.7566 -21.6614,63.7657 -21.8109,63.7741 -21.8866,63.7622 -21.9037,63.7609 -22.003,63.756 -22.0983,63.7559 -22.2053,63.7712 -22.2821,63.7817 -22.3758,63.7685 -22.6281,63.726 -22.6415,63.7258 -22.6742,63.7467 -22.695,63.9039 -22.6806,63.9849 -22.6704,63.9938 -22.6553,64.0028 -22.6432,64.0051 -22.6291,64.0024 -22.6162,63.999 -22.5988,63.9931 -22.5889,63.9882 -22.5451,63.9652 -22.5212,63.9468 -22.5106,63.9317 -22.5006,63.9146 -22.4784,63.8992 -22.4102,63.8964 -22.3552,63.8959 -22.3411,63.9007 -22.3467,63.9138 -22.326,63.9319 -22.2083,63.9501 -22.1966,63.9487 -22.1706,63.9422 -22.1547,63.9381 -22.1424,63.9388 -22.0017,63.9675 -21.9258,63.9892 -21.8718,64.0289 -21.8958,64.044 -21.9307,64.0665 -21.9296,64.0777 -21.8271,64.0783 -21.7787,64.075 -21.7076,64.0842 -21.659,64.1035 -21.7647,64.1529 -21.7799,64.1549 -21.798,64.1552 -21.8324,64.1535 -21.7925,64.2044 -21.716,64.2606 -21.7054,64.2653 -21.6103,64.2871 -21.5812,64.294 -21.5398,64.3013 -21.5263,64.2867 -21.5068,64.2849 -21.4461,64.2822 -21.3925,64.2888 -21.3205,64.3054 -21.3275,64.3089 -21.4349,64.3161 -21.5849,64.3228 -21.6032,64.3231 -21.6346,64.3213 -21.6928,64.3061 -21.7068,64.3005 -21.7461,64.2788 -21.7503,64.2681 -21.7666,64.2591 -21.8951,64.2247 -21.9382,64.2165 -21.9787,64.2163 -22.0554,64.2327 -21.9811,64.3391 -21.9808,64.3637 -21.9351,64.4211 -21.7393,64.4975 -21.6623,64.5272 -21.648,64.5284 -21.6085,64.5269 -21.6014,64.5074 -21.5654,64.5085 -21.5407,64.491 -21.454,64.4861 -21.5247,64.497 -21.5362,64.5267 -21.563,64.5298 -21.6091,64.5339 -21.6214,64.5338 -21.6347,64.5359 -21.5622,64.5639 -21.5167,64.5604 -21.4704,64.5641 -21.5707,64.57 -21.6579,64.5478 -21.9087,64.4718 -21.9848,64.4413 -22.0434,64.3887 -22.1226,64.3741 -22.1337,64.3759 -22.1607,64.3903 -22.3079,64.4786 -22.3654,64.5705 -22.2823,64.6094 -22.2696,64.6135 -22.2553,64.6241 -22.2806,64.6771 -22.3626,64.7321 -22.4908,64.7239 -22.6322,64.7196 -22.6454,64.7232 -22.8219,64.7208 -22.8325,64.7203 -22.9058,64.7153 -23.0018,64.7143 -23.0945,64.7181 -23.1192,64.7204 -23.1541,64.7273 -23.2064,64.7411 -23.2203,64.7439 -23.2406,64.7459 -23.3456,64.7427 -23.4802,64.7305 -23.5838,64.6914 -23.5852,64.6759 -23.5979,64.6638 -23.6166,64.6576 -23.7884,64.6455 -23.8,64.6472 -23.8575,64.6603 -23.8706,64.6665 -23.8971,64.6845 -23.971,64.7452 -24.0011,64.7747 -24.0117,64.8102 -23.8958,64.8362 -23.8246,64.8441 -23.7863,64.8467 -23.7684,64.8417 -23.7299,64.8315 -23.7036,64.8242 -23.6694,64.8165 -23.6483,64.8124 -23.6227,64.8109 -23.6021,64.8117 -23.5871,64.8151 -23.5006,64.8378 -23.4902,64.8486 -23.4754,64.8602 -23.4568,64.8662 -23.3117,64.8855 -23.1914,64.9114 -23.1738,64.9239 -23.1587,64.9317 -23.1436,64.9351 -22.93,64.9303 -22.9137,64.9234 -22.5698,64.9417 -22.5514,64.95 -22.52,64.9611 -22.4803,64.9699 -22.3107,64.9784 -22.2781,64.9752 -22.2326,64.9683 -22.1817,64.9564 -22.128,64.9474 -22.1025,64.9456 -21.9051,64.945 -21.792,64.9493 -21.7564,64.9793 -21.6849,65.0777 -21.6853,65.0926 -21.6929,65.1157 -21.7155,65.122 -21.7433,65.1228 -21.7646,65.1217 -21.7831,65.1155 -21.7931,65.1044 -21.7922,65.0926 -21.8351,65.0743 -21.8696,65.0609 -21.9501,65.0341 -21.9928,65.028 -22.0302,65.0236 -22.2352,65.0457 -22.4992,65.0765 -22.5148,65.0871 -22.4599,65.1474 -22.3544,65.1923 -22.3088,65.2074 -22.2658,65.2183 -22.2326,65.2234 -22.1886,65.2287 -22.173,65.2306 -22.1158,65.2451 -22.0122,65.2807 -21.98,65.2945 -21.938,65.3126 -21.8717,65.3324 -21.8134,65.339 -21.7744,65.3407 -21.7428,65.342 -21.719,65.3471 -21.6618,65.3662 -21.6618,65.3662 15,-9.0,United States -164.4409,66.4503 -164.4437,66.4418 -164.528,66.4215 -164.5407,66.4187 -164.7116,66.3933 -165.0277,66.3424 -165.1319,66.3293 -165.1173,66.3376 -165.0965,66.3437 -165.084,66.3463 -164.8083,66.3974 -164.7811,66.4022 -164.6836,66.4179 -164.4409,66.4503 -164.4409,66.4503 31,-4.0,Canada -66.6847,66.3045 -66.6653,66.292 -66.6464,66.2855 -66.5913,66.2715 -66.5699,66.266 -66.5427,66.2618 -66.5267,66.2601 -66.5146,66.2596 -66.5041,66.257 -66.4882,66.2515 -66.4491,66.2368 -66.4391,66.2289 -66.4563,66.2101 -66.47,66.203 -66.488,66.1971 -66.5065,66.1959 -66.5213,66.1966 -66.532,66.1994 -66.5435,66.2032 -66.5657,66.2142 -66.6062,66.2328 -66.7069,66.279 -66.7696,66.2931 -66.7797,66.2964 -66.8085,66.3114 -66.8206,66.3245 -66.8082,66.3301 -66.7159,66.3183 -66.6902,66.3117 -66.6847,66.3045 -66.6847,66.3045 31,-5.0,Canada -82.767,66.1678 -82.8251,66.1176 -82.8394,66.1118 -82.8512,66.1117 -82.9116,66.1132 -82.9246,66.1156 -83.0942,66.1638 -83.1213,66.1747 -83.1281,66.1844 -83.1289,66.2302 -83.1156,66.2454 -83.0991,66.2579 -83.0829,66.2615 -83.0576,66.2563 -83.0468,66.2518 -83.0356,66.2332 -83.0019,66.2026 -82.8986,66.172 -82.8864,66.1716 -82.8745,66.1719 -82.8623,66.1732 -82.851,66.1757 -82.8282,66.1825 -82.7924,66.189 -82.7686,66.1918 -82.7447,66.1927 -82.735,66.1855 -82.7462,66.1762 -82.7614,66.1686 -82.767,66.1678 -82.767,66.1678 14,-4.0,Canada -62.1049,66.1858 -62.0577,66.1536 -62.073,66.1335 -62.2784,66.1351 -62.2918,66.1374 -62.3015,66.1476 -62.2923,66.1544 -62.1929,66.1859 -62.1755,66.1915 -62.156,66.1952 -62.1353,66.1969 -62.1196,66.1944 -62.1049,66.1858 -62.1049,66.1858 15,-9.0,United States -165.8736,66.1256 -165.9507,66.1068 -166.2299,66.0396 -166.2504,66.0333 -166.3258,66.0222 -166.261,66.0505 -166.1287,66.0915 -166.106,66.0976 -166.045,66.1108 -165.9837,66.1242 -165.9185,66.1365 -165.8857,66.1398 -165.8441,66.1395 -165.8736,66.1256 -165.8736,66.1256 18,2.0,Norway 12.2756,65.9271 12.2679,65.9297 12.3184,65.9948 12.4561,66.0486 12.4068,66.0802 12.4605,66.1072 12.5283,66.1314 12.5379,66.1345 12.5509,66.1322 12.5786,66.1074 12.6303,66.0182 12.618,66.0031 12.5067,65.9715 12.4323,65.9553 12.3825,65.9499 12.3277,65.9395 12.2756,65.9271 12.2756,65.9271 85,-5.0,Canada -83.7515,65.9269 -83.5616,65.865 -83.5367,65.8512 -83.5249,65.8418 -83.5129,65.8231 -83.5204,65.784 -83.5307,65.7688 -83.5451,65.7586 -83.5558,65.7542 -83.5669,65.751 -83.5585,65.717 -83.3568,65.6551 -83.1923,65.6452 -83.1804,65.6446 -83.0836,65.6346 -83.0592,65.6319 -83.0453,65.6259 -83.0877,65.5697 -83.1213,65.5506 -83.1321,65.547 -83.1437,65.5448 -83.1774,65.5387 -83.2115,65.5333 -83.2277,65.5368 -83.2413,65.5503 -83.2521,65.5571 -83.2629,65.5617 -83.2755,65.5658 -83.3009,65.5725 -83.325,65.5756 -83.3371,65.5759 -83.3606,65.576 -83.4306,65.574 -83.4921,65.565 -83.6613,65.5626 -83.6758,65.5693 -83.6794,65.5885 -83.672,65.5963 -83.6211,65.6395 -83.6063,65.6454 -83.5721,65.6507 -83.5268,65.6584 -83.5175,65.6682 -83.6165,65.7062 -83.6287,65.707 -83.64,65.7053 -83.6809,65.6979 -83.7366,65.6849 -83.7585,65.677 -83.769,65.6619 -83.7797,65.6576 -83.7908,65.6551 -83.8026,65.6549 -83.8148,65.6559 -83.9017,65.6673 -83.9509,65.6758 -83.964,65.6782 -83.9735,65.688 -83.9446,65.7099 -83.9326,65.7322 -83.9537,65.8176 -84.0234,65.8879 -84.0384,65.8944 -84.116,65.9163 -84.1289,65.9195 -84.1408,65.9202 -84.1529,65.9193 -84.1873,65.9148 -84.1994,65.9142 -84.2122,65.9177 -84.2533,65.9452 -84.2653,65.9542 -84.2966,65.9832 -84.2991,66.0063 -84.2995,66.0474 -84.2889,66.0569 -84.2621,66.0556 -84.2102,66.0458 -84.1969,66.0425 -84.0695,66.015 -83.976,65.9981 -83.8694,65.9938 -83.8317,65.9504 -83.7515,65.9269 -83.7515,65.9269 12,-2.0,Greenland -53.5248,65.9627 -53.5695,65.9965 -53.5638,66.0065 -53.55,66.0126 -53.4907,66.0169 -53.3341,66.0066 -53.3189,65.9994 -53.4168,65.9595 -53.501,65.9549 -53.5132,65.9551 -53.5248,65.9627 -53.5248,65.9627 42,-5.0,Canada -84.7386,65.9169 -84.7136,65.8602 -84.6365,65.8129 -84.5841,65.7705 -84.5451,65.7347 -84.5428,65.722 -84.5371,65.7101 -84.4669,65.6298 -84.4274,65.6141 -84.4166,65.6097 -84.4043,65.5567 -84.4061,65.5469 -84.415,65.5367 -84.4285,65.5262 -84.4979,65.4783 -84.5525,65.4639 -84.5639,65.4625 -84.576,65.4638 -84.6145,65.4746 -84.6333,65.4833 -84.6584,65.4966 -84.6705,65.5059 -84.6774,65.5153 -84.6823,65.527 -84.6876,65.5659 -84.6956,65.5775 -84.7077,65.5868 -84.7294,65.5956 -84.8575,65.6294 -84.8916,65.6409 -84.9066,65.6476 -84.9357,65.6679 -84.9464,65.6821 -85.0099,65.8625 -85.0009,65.9117 -84.9683,65.9391 -84.9095,65.9435 -84.8856,65.9429 -84.7658,65.9274 -84.753,65.925 -84.7386,65.9169 -84.7386,65.9169 32,2.0,Norway 12.4135,65.7814 12.4546,65.8066 12.4285,65.8139 12.4151,65.8132 12.3902,65.811 12.3996,65.8413 12.4369,65.8885 12.4479,65.8944 12.4815,65.9074 12.5091,65.9166 12.528,65.9226 12.5484,65.9275 12.5707,65.9317 12.5959,65.9343 12.6097,65.9349 12.8414,65.938 12.8565,65.9377 12.8726,65.9281 12.8531,65.9154 12.8092,65.9072 12.7843,65.9046 12.7622,65.9003 12.6591,65.8749 12.6494,65.8719 12.5635,65.8378 12.539,65.8267 12.5206,65.8165 12.5065,65.8035 12.4616,65.7874 12.4397,65.7834 12.4135,65.7814 12.4135,65.7814 18,-2.0,Greenland -36.6265,65.7078 -36.6385,65.7097 -36.6641,65.7214 -36.6746,65.8246 -36.6517,65.836 -36.6068,65.849 -36.5625,65.8605 -36.5272,65.8676 -36.4927,65.8744 -36.4693,65.877 -36.4457,65.8767 -36.4287,65.8683 -36.4317,65.8499 -36.4379,65.8306 -36.5167,65.7303 -36.5461,65.7126 -36.6265,65.7078 -36.6265,65.7078 347,-5.0,Canada -85.3185,65.8482 -85.3049,65.8368 -85.3164,65.7957 -85.3387,65.7749 -85.3494,65.7504 -85.3462,65.7284 -85.3297,65.717 -85.3022,65.7088 -85.2786,65.7102 -85.2468,65.7221 -85.2306,65.7385 -85.2037,65.7525 -85.1513,65.7484 -85.1165,65.744 -85.091,65.7385 -85.042,65.7254 -85.0225,65.7167 -84.9879,65.6965 -84.8807,65.5324 -84.9169,65.5032 -84.9491,65.4927 -84.9713,65.4877 -85.0046,65.4811 -85.0666,65.472 -85.1056,65.4744 -85.1345,65.46 -85.1001,65.4296 -85.0696,65.4161 -85.0331,65.4038 -84.9949,65.3931 -84.9572,65.384 -84.9179,65.3717 -84.8647,65.3502 -84.8428,65.3341 -84.8318,65.3172 -84.8349,65.2952 -84.8413,65.2703 -84.7581,65.1303 -84.7365,65.1247 -84.6546,65.1324 -84.6268,65.1426 -84.5804,65.2217 -84.5893,65.2519 -84.5734,65.272 -84.4182,65.3965 -84.3861,65.3979 -84.2644,65.3696 -84.1456,65.3 -84.1232,65.2953 -83.9848,65.2542 -84.0295,65.2132 -84.059,65.1931 -83.9731,65.1386 -83.9204,65.1223 -83.7326,65.084 -83.7086,65.0812 -83.6853,65.0801 -83.4998,65.0793 -83.4537,65.0792 -83.3673,65.0818 -83.2421,65.0542 -83.2172,65.0406 -83.171,64.9863 -83.1758,64.9593 -83.1592,64.9359 -83.0358,64.8624 -82.9911,64.8592 -82.8336,64.8308 -82.6885,64.7862 -82.6604,64.752 -82.6359,64.7283 -82.5995,64.7131 -82.5387,64.6947 -82.4056,64.6834 -82.1917,64.6814 -82.0435,64.6307 -82.0544,64.6182 -82.0406,64.6043 -81.9015,64.5683 -81.77,64.5042 -81.6009,64.4211 -81.5905,64.4 -81.5914,64.276 -81.6053,64.2588 -81.6151,64.2368 -81.5873,64.1939 -81.5657,64.1787 -81.5463,64.1683 -81.5081,64.1535 -81.4846,64.1461 -81.4563,64.1351 -81.4327,64.1102 -81.4454,64.0487 -81.5564,64.0204 -81.6026,64.0097 -81.6627,64.0073 -81.7173,64.0018 -81.804,63.976 -81.8278,63.9177 -81.7966,63.9094 -81.7688,63.9091 -81.7359,63.9111 -81.7142,63.9125 -81.3997,63.9505 -81.2796,63.9887 -81.2228,64.0115 -81.1214,63.9997 -81.0986,63.9835 -80.805,63.9131 -80.7829,63.9116 -80.7576,63.9186 -80.7535,63.9455 -80.7887,63.9596 -80.8125,63.9762 -80.7759,64.0327 -80.7309,64.0365 -80.6528,64.0118 -80.6178,64.0002 -80.5755,63.9749 -80.4071,63.915 -80.37,63.9019 -80.3344,63.8285 -80.4086,63.8104 -80.2944,63.7805 -80.2046,63.7625 -80.0594,63.7313 -80.0364,63.7257 -80.0165,63.6926 -80.0326,63.6716 -80.1941,63.6499 -80.2166,63.6555 -80.2384,63.6562 -80.276,63.6524 -80.2958,63.649 -80.3312,63.6342 -80.3526,63.6038 -80.4292,63.5572 -80.4503,63.5498 -80.6158,63.495 -80.7586,63.4455 -80.7766,63.4306 -80.7743,63.4027 -80.8045,63.3785 -80.8304,63.3729 -80.8521,63.371 -80.8738,63.3705 -80.8953,63.371 -80.9174,63.3732 -80.9509,63.3801 -81.2263,63.4481 -81.5335,63.529 -81.5734,63.547 -81.6052,63.5584 -81.6411,63.5628 -81.6626,63.5612 -81.6945,63.5542 -81.7211,63.5514 -81.7485,63.5537 -81.8342,63.5825 -81.8578,63.5932 -81.8749,63.6049 -81.8968,63.6116 -81.9461,63.6138 -81.968,63.6133 -82.0579,63.6086 -82.1331,63.5935 -82.1525,63.5756 -82.1839,63.5737 -82.3175,63.6051 -82.3728,63.6479 -82.3859,63.6704 -82.3753,63.6963 -82.3469,63.7141 -82.3164,63.7279 -82.2613,63.7415 -82.2213,63.7388 -82.1903,63.7783 -82.2042,63.8286 -82.2513,63.8479 -82.3631,63.887 -82.3859,63.8901 -82.6652,63.9006 -82.809,63.8852 -82.9003,63.8729 -82.9292,63.8782 -82.9624,63.8961 -82.9785,63.9246 -82.9317,63.9494 -82.8588,64.0006 -82.8331,64.0212 -82.8116,64.0413 -82.7983,64.0636 -82.85,64.1087 -82.9084,64.1072 -82.941,64.1024 -82.9623,64.0963 -82.9929,64.0836 -83.175,64.0553 -83.3234,64.0432 -83.3602,64.0335 -83.3835,64.0231 -83.513,63.9319 -83.5062,63.9092 -83.4776,63.8909 -83.461,63.877 -83.4418,63.8549 -83.4317,63.7445 -83.4701,63.6922 -83.4996,63.6868 -83.5298,63.6972 -83.5538,63.7015 -83.581,63.6997 -83.6593,63.6688 -83.8447,63.5868 -83.8591,63.5693 -83.8851,63.5485 -83.9093,63.5358 -83.9292,63.5282 -83.9504,63.5255 -83.9732,63.5303 -84.0026,63.543 -84.0308,63.5464 -84.0954,63.5424 -84.1203,63.5373 -84.2271,63.4771 -84.2828,63.4047 -84.2823,63.3704 -84.3117,63.3058 -84.3976,63.2596 -84.5884,63.1865 -84.6082,63.1794 -84.6278,63.1725 -84.6569,63.1595 -84.6757,63.1493 -84.7046,63.1365 -84.7246,63.1295 -84.977,63.0625 -85.0577,63.0432 -85.0782,63.0409 -85.0995,63.0401 -85.1212,63.0406 -85.1765,63.0452 -85.209,63.0464 -85.2298,63.0454 -85.282,63.0392 -85.3236,63.0425 -85.3728,63.0591 -85.4167,63.0938 -85.4711,63.1697 -85.4803,63.2575 -85.4844,63.3405 -85.472,63.373 -85.454,63.396 -85.438,63.4235 -85.4246,63.5485 -85.4419,63.5892 -85.5488,63.6377 -85.7106,63.6263 -85.8168,63.6147 -85.8481,63.6098 -86.0141,63.5745 -86.0548,63.5643 -86.0755,63.5611 -86.0975,63.5596 -86.1307,63.5612 -86.1765,63.5671 -86.2115,63.5737 -86.2802,63.5822 -86.3881,63.5921 -86.4258,63.59 -86.4565,63.5833 -86.4959,63.5697 -86.5241,63.5552 -86.5635,63.5284 -86.5888,63.512 -86.6076,63.5027 -86.6368,63.4932 -86.6723,63.4839 -86.7086,63.4774 -86.7515,63.4746 -86.8797,63.4713 -86.9184,63.4726 -86.9473,63.4774 -86.9745,63.4877 -87.0167,63.5116 -87.0485,63.5487 -87.0545,63.5678 -87.0487,63.5924 -87.0341,63.6205 -87.0151,63.6435 -86.9894,63.6649 -86.7676,63.8243 -86.7441,63.8354 -86.7047,63.8496 -86.613,63.8778 -86.5926,63.8833 -86.5292,63.8931 -86.4978,63.8994 -86.3331,63.9392 -86.2432,63.9696 -86.0849,63.9971 -86.0556,64.0024 -86.0263,64.0173 -86.0092,64.0498 -86.0418,64.0991 -86.0827,64.1212 -86.1033,64.1295 -86.1348,64.1459 -86.1838,64.2103 -86.2131,64.2848 -86.2303,64.3592 -86.2123,64.485 -86.1974,64.5493 -86.144,64.6208 -86.1011,64.6876 -86.0707,64.7201 -86.0442,64.7336 -86.0124,64.7373 -85.9825,64.8448 -86.0127,64.8773 -86.0453,64.8879 -86.0545,64.9109 -86.0357,64.9604 -86.0157,64.986 -85.9934,64.9994 -85.9695,65.0116 -85.9636,65.1013 -85.972,65.1318 -85.9921,65.1686 -85.9987,65.1923 -85.9791,65.3078 -85.9392,65.4121 -85.9249,65.4472 -85.839,65.6296 -85.8133,65.6546 -85.7153,65.7175 -85.6594,65.7499 -85.6182,65.7705 -85.5975,65.7795 -85.5554,65.7966 -85.5236,65.8091 -85.448,65.8348 -85.3924,65.8475 -85.3696,65.8506 -85.3277,65.8505 -85.3185,65.8482 -85.3185,65.8482 17,-2.0,Greenland -36.2828,65.7379 -36.2945,65.7391 -36.3099,65.7531 -36.3053,65.7824 -36.2932,65.7973 -36.278,65.8039 -36.2098,65.8295 -36.1995,65.8331 -36.1879,65.8351 -36.1764,65.8354 -36.1623,65.8315 -36.1146,65.7944 -36.1301,65.781 -36.1392,65.776 -36.2464,65.7391 -36.2828,65.7379 -36.2828,65.7379 59,-2.0,Greenland -37.667,65.4865 -37.7034,65.492 -37.7747,65.4928 -37.7897,65.4909 -37.8347,65.5038 -37.8588,65.5129 -37.8679,65.5267 -37.9116,65.6197 -37.8777,65.7143 -37.752,65.7836 -37.7422,65.7876 -37.7198,65.7939 -37.6106,65.8214 -37.5992,65.8221 -37.5765,65.8201 -37.5276,65.8134 -37.5028,65.8073 -37.4899,65.8031 -37.4682,65.788 -37.453,65.7727 -37.4347,65.7613 -37.4094,65.7536 -37.3186,65.731 -37.195,65.6755 -37.2055,65.6698 -37.2995,65.6713 -37.3169,65.6763 -37.353,65.6838 -37.3634,65.6957 -37.3984,65.7166 -37.4225,65.7194 -37.3993,65.6676 -37.3644,65.629 -37.3267,65.6265 -37.3116,65.6264 -37.2976,65.6249 -37.2789,65.6212 -37.2395,65.6093 -37.2393,65.5891 -37.3074,65.5483 -37.3186,65.5436 -37.4096,65.5251 -37.4964,65.5206 -37.5142,65.5286 -37.5302,65.5541 -37.5702,65.5657 -37.6372,65.5667 -37.632,65.5537 -37.6208,65.544 -37.6107,65.5395 -37.5979,65.5363 -37.5862,65.5345 -37.5742,65.5343 -37.5708,65.5198 -37.596,65.5006 -37.6098,65.4902 -37.6555,65.4869 -37.667,65.4865 -37.667,65.4865 28,-5.0,Canada -83.1798,65.7498 -83.2272,65.749 -83.2383,65.7476 -83.2499,65.7452 -83.2609,65.7419 -83.2719,65.7367 -83.288,65.7263 -83.3051,65.7177 -83.317,65.7183 -83.3298,65.7217 -83.3611,65.7349 -83.3906,65.7484 -83.4101,65.7597 -83.4169,65.7691 -83.4072,65.7784 -83.3915,65.7824 -83.3568,65.7854 -83.3096,65.7874 -83.2741,65.7879 -83.2018,65.784 -83.1773,65.7811 -83.165,65.7774 -83.1202,65.7538 -83.1354,65.7439 -83.1474,65.7434 -83.1593,65.7449 -83.1798,65.7498 -83.1798,65.7498 14,-2.0,Greenland -36.768,65.6513 -36.8633,65.703 -36.8683,65.7369 -36.7484,65.7857 -36.7371,65.7878 -36.7249,65.7881 -36.7128,65.7855 -36.7026,65.7813 -36.6926,65.7736 -36.6877,65.7562 -36.7132,65.6731 -36.7239,65.6681 -36.768,65.6513 -36.768,65.6513 25,-4.0,Canada -62.1333,65.6463 -62.145,65.6406 -62.172,65.6261 -62.1387,65.6181 -62.1128,65.6201 -62.0959,65.6256 -62.0788,65.6294 -62.0612,65.6296 -62.0425,65.6204 -62.0049,65.5942 -62.0087,65.5721 -62.0173,65.5626 -62.0735,65.5291 -62.0946,65.5281 -62.1717,65.5429 -62.3292,65.5778 -62.3403,65.5814 -62.3581,65.6416 -62.3563,65.6524 -62.3407,65.6618 -62.1585,65.6621 -62.1464,65.6616 -62.1283,65.6582 -62.1333,65.6463 -62.1333,65.6463 17,-2.0,Greenland -36.9493,65.5035 -37.018,65.5215 -37.0304,65.5248 -37.0393,65.5298 -37.1324,65.5876 -37.1381,65.5995 -37.1263,65.6062 -37.016,65.6438 -37.0051,65.6469 -36.9928,65.6445 -36.9178,65.6188 -36.8633,65.5914 -36.8356,65.5617 -36.9211,65.5024 -36.9329,65.5015 -36.9493,65.5035 -36.9493,65.5035 20,2.0,Norway 11.8769,65.5009 11.8759,65.5157 11.8392,65.5293 11.7807,65.5269 11.768,65.5215 11.7548,65.5225 11.7375,65.531 11.746,65.5528 11.7551,65.5639 11.769,65.5808 11.7793,65.5911 11.7909,65.6008 11.807,65.6083 11.8707,65.622 11.8842,65.6226 11.9733,65.6142 11.9827,65.5951 11.9502,65.5445 11.8769,65.5009 11.8769,65.5009 20,-2.0,Greenland -53.0815,65.4916 -53.0917,65.4952 -53.1207,65.5092 -53.1241,65.5189 -53.0973,65.536 -53.0589,65.5495 -52.9081,65.5747 -52.8841,65.5755 -52.8324,65.5742 -52.7691,65.5717 -52.7556,65.5703 -52.742,65.5608 -52.742,65.5467 -52.7557,65.5252 -52.7932,65.4934 -52.8885,65.4667 -52.9453,65.4641 -53.0639,65.4757 -53.0815,65.4916 -53.0815,65.4916 24,2.0,Norway 12.0389,65.1283 12.0562,65.1494 12.0719,65.1718 12.0886,65.1951 12.0985,65.2153 12.15,65.3211 12.1754,65.3898 12.1981,65.46 12.223,65.4876 12.2336,65.4941 12.2471,65.4946 12.2622,65.49 12.3715,65.4236 12.4171,65.3875 12.478,65.3101 12.4637,65.2978 12.3491,65.2563 12.2184,65.1943 12.164,65.164 12.1249,65.1493 12.0617,65.132 12.0512,65.13 12.0389,65.1283 12.0389,65.1283 17,-2.0,Greenland -52.8223,65.3435 -52.8334,65.3432 -52.8478,65.3463 -52.8966,65.3634 -52.9067,65.3675 -52.9451,65.3845 -52.974,65.3983 -52.9801,65.413 -52.9677,65.4182 -52.8635,65.4437 -52.8522,65.4452 -52.8381,65.4432 -52.766,65.429 -52.7921,65.3574 -52.8059,65.3478 -52.8223,65.3435 -52.8223,65.3435 23,-2.0,Greenland -39.5227,65.193 -39.6108,65.2268 -39.623,65.23 -39.671,65.2351 -39.6946,65.2359 -39.7063,65.2356 -39.72,65.24 -39.724,65.2534 -39.7023,65.2784 -39.6912,65.2862 -39.6582,65.2892 -39.6468,65.2892 -39.4451,65.2544 -39.433,65.2522 -39.417,65.2417 -39.416,65.2063 -39.4303,65.1912 -39.4408,65.1866 -39.4635,65.1836 -39.4854,65.1842 -39.4976,65.1866 -39.5227,65.193 -39.5227,65.193 20,2.0,Norway 12.1055,64.9693 11.9885,64.9879 11.9605,64.9935 12.0713,65.099 12.1336,65.1212 12.1473,65.1254 12.1594,65.1269 12.1719,65.1245 12.1858,65.1169 12.2257,65.0929 12.2376,65.0848 12.2891,65.0215 12.2766,65.0107 12.2607,65.0031 12.2421,64.9975 12.1946,64.984 12.1748,64.9787 12.1321,64.9703 12.1055,64.9693 12.1055,64.9693 27,3.0,Russia 35.7407,65.0992 35.7663,65.0839 35.7718,65.0737 35.7922,64.9923 35.7978,64.951 35.7952,64.9301 35.7886,64.9178 35.7802,64.9121 35.77,64.9069 35.746,64.8996 35.7196,64.8925 35.6783,64.8845 35.6684,64.8875 35.5128,64.992 35.4973,65.0028 35.4707,65.0225 35.4543,65.0454 35.4507,65.0645 35.4541,65.0773 35.4622,65.0833 35.4827,65.0931 35.4948,65.0972 35.6254,65.1112 35.7034,65.1106 35.72,65.1075 35.7407,65.0992 35.7407,65.0992 24,3.0,Finland 24.9502,64.9448 24.9115,64.9437 24.7972,64.9228 24.771,64.8832 24.6859,64.8637 24.6736,64.8634 24.6584,64.8658 24.5509,64.8831 24.5369,64.8919 24.5194,64.9099 24.503,64.944 24.5097,64.9527 24.5712,64.9767 24.5968,64.9824 24.629,64.9875 24.6518,64.99 24.7593,64.9969 24.7842,64.9975 24.7985,64.9958 24.9691,64.9625 24.9828,64.9575 24.9754,64.9479 24.9502,64.9448 24.9502,64.9448 20,2.0,Norway 10.7185,64.7691 10.7098,64.7833 10.7242,64.8201 10.7321,64.8277 10.7563,64.8383 10.7727,64.8388 10.8456,64.8468 10.9485,64.87 10.9786,64.8772 10.9988,64.8844 11.0058,64.901 11.02,64.9071 11.0333,64.9062 11.0709,64.9015 11.0852,64.8966 11.0913,64.8878 10.794,64.7832 10.7424,64.7721 10.7185,64.7691 10.7185,64.7691 16,2.0,Norway 11.1068,64.7489 11.0409,64.7677 10.9297,64.789 10.8845,64.7744 10.8743,64.7719 10.8181,64.763 10.8035,64.7671 10.8199,64.7763 10.888,64.8025 11.0889,64.8695 11.241,64.8073 11.195,64.7767 11.1639,64.7654 11.1187,64.7506 11.1068,64.7489 11.1068,64.7489 43,-2.0,Greenland -40.1113,64.3508 -40.127,64.3598 -40.1379,64.3641 -40.1617,64.3684 -40.1975,64.3712 -40.3001,64.3806 -40.3477,64.3908 -40.3925,64.4028 -40.4063,64.4091 -40.4174,64.4179 -40.4487,64.4763 -40.4634,64.5151 -40.4718,64.5507 -40.4911,64.6021 -40.5211,64.6299 -40.5954,64.6689 -40.6818,64.7114 -40.707,64.7272 -40.7233,64.7436 -40.7498,64.7757 -40.7843,64.8204 -40.7801,64.8303 -40.7665,64.8362 -40.7129,64.849 -40.69,64.8525 -40.679,64.8534 -40.6673,64.8534 -40.6292,64.8417 -40.5209,64.8018 -40.4619,64.7637 -40.364,64.6693 -40.431,64.6414 -40.2873,64.4747 -40.2637,64.4719 -40.2295,64.4666 -40.1934,64.4597 -40.169,64.4533 -40.1575,64.4485 -40.0735,64.4119 -40.0664,64.4023 -40.1002,64.3515 -40.1113,64.3508 -40.1113,64.3508 25,12.0,Russia -172.3334,64.651 -172.2894,64.672 -172.2418,64.7153 -172.2351,64.7292 -172.2302,64.7401 -172.214,64.7551 -172.1884,64.7625 -172.1135,64.7783 -172.0973,64.7807 -172.0819,64.7809 -171.9741,64.7707 -171.9606,64.7677 -171.8293,64.7148 -171.8254,64.6923 -172.0499,64.6456 -172.0664,64.6431 -172.0988,64.6376 -172.2479,64.6229 -172.2648,64.6224 -172.2823,64.6232 -172.2961,64.6261 -172.3059,64.6311 -172.3236,64.642 -172.3334,64.651 -172.3334,64.651 55,3.0,Russia 40.2684,64.6778 40.3324,64.5735 40.375,64.532 40.3972,64.496 40.3912,64.4861 40.3754,64.4848 40.3549,64.4867 40.339,64.4897 40.3073,64.5037 40.2944,64.5077 40.263,64.5141 40.2455,64.5139 40.2298,64.5125 40.2157,64.5098 40.1683,64.5057 40.1508,64.5056 40.1198,64.5123 40.1032,64.5225 40.0743,64.5382 39.9725,64.5786 39.9592,64.5824 39.9436,64.5858 39.9093,64.5916 39.8969,64.5992 39.8988,64.6097 39.9082,64.6152 39.9223,64.618 39.9792,64.6156 39.9976,64.6133 40.0639,64.5938 40.0745,64.5888 40.0811,64.5752 40.0975,64.5647 40.1109,64.561 40.1291,64.5586 40.1478,64.5577 40.1652,64.5578 40.181,64.5593 40.1953,64.5619 40.2045,64.5672 40.2127,64.5781 40.2114,64.5932 40.1952,64.6154 40.1809,64.6267 40.1649,64.6375 40.1326,64.6513 40.1192,64.6552 40.0686,64.6682 40.1787,64.6842 40.2133,64.6851 40.2309,64.685 40.2502,64.6844 40.2635,64.6805 40.2684,64.6778 40.2684,64.6778 28,-4.0,Canada -65.1366,64.6129 -65.1203,64.5836 -65.0788,64.5554 -65.0843,64.5458 -65.0984,64.5401 -65.18,64.5205 -65.2904,64.4746 -65.3245,64.4466 -65.339,64.4391 -65.3627,64.4377 -65.528,64.4297 -65.5394,64.4302 -65.5528,64.434 -65.5597,64.4422 -65.5582,64.4545 -65.5423,64.4806 -65.5299,64.4938 -65.5207,64.5006 -65.4855,64.5189 -65.4287,64.537 -65.417,64.5423 -65.3166,64.6015 -65.3059,64.6161 -65.2521,64.6368 -65.1626,64.6551 -65.1269,64.6242 -65.1366,64.6129 -65.1366,64.6129 18,12.0,Russia -172.4075,64.5913 -172.3556,64.5948 -172.3187,64.5941 -172.1902,64.5811 -172.1765,64.5786 -172.1665,64.5735 -172.1489,64.5513 -172.1883,64.5367 -172.2022,64.5334 -172.2209,64.5314 -172.2551,64.5331 -172.2861,64.537 -172.3305,64.5442 -172.3579,64.5497 -172.4085,64.5638 -172.4141,64.5761 -172.4075,64.5913 -172.4075,64.5913 19,2.0,Norway 11.3954,64.3922 11.3847,64.398 11.2605,64.4297 11.2482,64.4314 11.2337,64.4317 11.2105,64.4285 11.1895,64.4244 11.1766,64.4238 11.1639,64.4244 11.1536,64.4272 11.018,64.5201 11.0163,64.5363 11.0191,64.5515 11.0522,64.569 11.065,64.5699 11.2278,64.5193 11.4301,64.4386 11.3954,64.3922 11.3954,64.3922 20,-5.0,Canada -73.3633,64.4724 -73.3582,64.4584 -73.343,64.3788 -73.3435,64.3619 -73.4107,64.2343 -73.4323,64.2303 -73.4561,64.2308 -73.4805,64.2333 -73.507,64.2392 -73.5125,64.2552 -73.5235,64.347 -73.4645,64.3906 -73.5366,64.43 -73.5329,64.4494 -73.5207,64.4554 -73.4314,64.4801 -73.3915,64.4876 -73.3788,64.4849 -73.3633,64.4724 -73.3633,64.4724 29,-2.0,Greenland -51.0081,64.4697 -51.0367,64.4515 -51.0554,64.4365 -51.0664,64.4252 -51.0739,64.4091 -51.0764,64.3987 -51.1097,64.356 -51.1198,64.3453 -51.133,64.3334 -51.1561,64.3163 -51.1766,64.3044 -51.1906,64.2988 -51.2113,64.295 -51.2218,64.2938 -51.246,64.2932 -51.2571,64.2943 -51.2703,64.2968 -51.2803,64.3001 -51.3152,64.314 -51.3193,64.3337 -51.2347,64.4133 -51.2189,64.4242 -51.1537,64.4617 -51.1251,64.4762 -51.0381,64.4862 -51.0261,64.4872 -50.9911,64.4842 -51.0081,64.4697 -51.0081,64.4697 39,-2.0,Greenland -50.7066,64.4426 -50.7066,64.437 -50.7082,64.4192 -50.7152,64.4033 -50.7232,64.3951 -50.7412,64.3854 -50.7603,64.3803 -50.7925,64.3748 -50.8111,64.369 -50.8331,64.3605 -50.8699,64.3378 -50.9249,64.2973 -51.0258,64.22 -51.0325,64.2091 -51.0332,64.1961 -51.037,64.1808 -51.0499,64.1734 -51.1338,64.1362 -51.1497,64.1346 -51.1629,64.1356 -51.1878,64.1402 -51.2375,64.1618 -51.2409,64.1712 -51.233,64.1817 -51.156,64.2115 -51.1046,64.2513 -51.0382,64.3076 -50.9801,64.3658 -50.9266,64.4344 -50.9309,64.4563 -50.9239,64.4696 -50.9054,64.4771 -50.8953,64.4793 -50.8839,64.4795 -50.8716,64.479 -50.7613,64.472 -50.721,64.4638 -50.7066,64.4426 -50.7066,64.4426 15,-5.0,Canada -74.1632,64.419 -74.1381,64.4017 -74.0816,64.3711 -74.059,64.3677 -74.0359,64.3631 -74.0279,64.357 -74.1249,64.3337 -74.138,64.3334 -74.2102,64.3413 -74.23,64.3447 -74.2757,64.3641 -74.2907,64.3718 -74.1878,64.4161 -74.1632,64.419 -74.1632,64.419 16,-4.0,Canada -64.7691,64.3289 -64.6917,64.2997 -64.6437,64.2651 -64.7213,64.2278 -64.7332,64.228 -64.7489,64.2337 -64.7595,64.2415 -64.8092,64.2819 -64.8162,64.2908 -64.8271,64.3042 -64.8304,64.3219 -64.8205,64.3326 -64.8003,64.3381 -64.7777,64.3351 -64.7691,64.3289 -64.7691,64.3289 15,-5.0,Canada -73.585,64.3067 -73.5804,64.3016 -73.5551,64.239 -73.548,64.1935 -73.5588,64.1892 -73.5751,64.1933 -73.6081,64.2031 -73.6308,64.2153 -73.6771,64.2451 -73.6873,64.252 -73.6325,64.3268 -73.6194,64.3298 -73.6007,64.3284 -73.585,64.3067 -73.585,64.3067 14,-2.0,Greenland -51.2265,64.2353 -51.2908,64.2067 -51.4651,64.1765 -51.4762,64.1764 -51.4946,64.1845 -51.4992,64.2006 -51.4908,64.2081 -51.3422,64.2813 -51.3268,64.2842 -51.3149,64.2838 -51.3022,64.2816 -51.2214,64.2442 -51.2265,64.2353 -51.2265,64.2353 20,-4.0,Canada -64.8703,64.2748 -64.8536,64.2535 -64.7582,64.2043 -64.7985,64.1629 -64.8101,64.1562 -64.8606,64.1299 -64.8746,64.131 -64.9222,64.1393 -64.9342,64.1458 -64.9444,64.161 -64.9738,64.2168 -64.9804,64.2314 -64.9856,64.2471 -64.9844,64.2578 -64.977,64.2655 -64.9605,64.2701 -64.8965,64.2822 -64.8786,64.2804 -64.8703,64.2748 -64.8703,64.2748 19,-2.0,Greenland -41.1038,64.178 -41.1821,64.1842 -41.1932,64.1844 -41.2276,64.1829 -41.2613,64.1837 -41.273,64.1848 -41.287,64.1932 -41.2919,64.2028 -41.2663,64.2225 -41.2469,64.2318 -41.2367,64.2352 -41.2152,64.2376 -41.1924,64.2369 -41.0534,64.2139 -41.0439,64.2086 -41.0816,64.1827 -41.0917,64.1784 -41.1038,64.178 -41.1038,64.178 24,-2.0,Greenland -40.9386,64.1132 -40.9523,64.1204 -40.964,64.1371 -40.9714,64.1532 -40.9661,64.172 -40.8897,64.2068 -40.8791,64.2093 -40.8052,64.221 -40.7941,64.2225 -40.7489,64.2247 -40.7057,64.2259 -40.683,64.2264 -40.6719,64.226 -40.6376,64.2236 -40.6029,64.2165 -40.5937,64.2117 -40.599,64.1292 -40.6903,64.129 -40.8113,64.1287 -40.8454,64.1295 -40.8802,64.1301 -40.902,64.1288 -40.9386,64.1132 -40.9386,64.1132 22,-5.0,Canada -77.4718,63.9189 -77.4728,63.9143 -77.4862,63.903 -77.5331,63.8756 -77.5795,63.8514 -77.5952,63.8472 -77.7992,63.8734 -77.8132,63.8802 -77.8269,63.8935 -77.8256,63.9075 -77.7999,63.9279 -77.7896,63.932 -77.7702,63.9358 -77.7362,63.9409 -77.621,63.9526 -77.6003,63.9538 -77.4954,63.9535 -77.4378,63.951 -77.4003,63.9475 -77.392,63.9412 -77.4718,63.9189 -77.4718,63.9189 34,-4.0,Canada -64.4222,63.8166 -64.4438,63.7921 -64.4583,63.7661 -64.4489,63.7022 -64.3989,63.6926 -64.3409,63.6929 -64.3303,63.6973 -64.3026,63.6999 -64.2681,63.6673 -64.2602,63.6573 -64.2615,63.6203 -64.2774,63.6089 -64.2924,63.6013 -64.3097,63.5947 -64.3281,63.5937 -64.3474,63.6005 -64.3699,63.6123 -64.5342,63.6762 -64.6745,63.6859 -64.6855,63.6884 -64.7626,63.7109 -64.7757,63.7169 -64.7886,63.7277 -64.7915,63.7412 -64.786,63.7553 -64.7684,63.7665 -64.6837,63.7985 -64.5828,63.8299 -64.5551,63.8357 -64.5326,63.8376 -64.5198,63.8372 -64.4277,63.8294 -64.4222,63.8166 -64.4222,63.8166 19,3.0,Finland 22.8234,63.6917 22.8085,63.6984 22.7721,63.7017 22.7257,63.7053 22.7062,63.701 22.6623,63.6967 22.6292,63.713 22.6356,63.7282 22.6585,63.7418 22.7613,63.7979 22.8219,63.7955 22.8355,63.7941 22.8497,63.7901 22.8726,63.7515 22.8695,63.7405 22.8389,63.7346 22.8302,63.7245 22.8234,63.6917 22.8234,63.6917 18,-4.0,Canada -64.2074,63.7733 -64.1989,63.7715 -64.184,63.7696 -64.1416,63.7673 -64.0853,63.7728 -64.0737,63.7808 -64.0569,63.7874 -64.0466,63.7803 -64.0543,63.7067 -64.0727,63.6988 -64.1081,63.6926 -64.1193,63.6928 -64.1306,63.6954 -64.1987,63.7272 -64.2714,63.7706 -64.2271,63.7824 -64.2074,63.7733 -64.2074,63.7733 32,2.0,Norway 8.3034,63.5819 8.2907,63.5824 8.2571,63.602 8.2676,63.608 8.3096,63.6162 8.3321,63.6197 8.3446,63.6202 8.3837,63.6223 8.4381,63.6271 8.5122,63.6408 8.5221,63.6434 8.657,63.6785 8.6639,63.6909 8.7167,63.723 8.7694,63.7322 8.7806,63.7341 8.7911,63.7315 8.8104,63.6471 8.8076,63.6361 8.7996,63.6297 8.7814,63.6203 8.7576,63.6142 8.735,63.6108 8.6398,63.6011 8.4576,63.5837 8.4429,63.5877 8.4371,63.5991 8.3535,63.5933 8.3423,63.5914 8.3227,63.5867 8.3034,63.5819 8.3034,63.5819 126,-9.0,United States -170.6241,63.3506 -170.6832,63.3532 -170.7661,63.3534 -170.9059,63.321 -170.9291,63.3143 -170.9479,63.3019 -170.9688,63.2803 -170.9904,63.2622 -171.0912,63.2398 -171.1194,63.2366 -171.2131,63.25 -171.3465,63.2859 -171.3731,63.2933 -171.4022,63.3025 -171.4658,63.3384 -171.488,63.365 -171.5136,63.4304 -171.5036,63.4958 -171.4682,63.5596 -171.4268,63.5684 -171.4042,63.588 -171.3867,63.6715 -171.3913,63.7107 -171.3255,63.7114 -171.2927,63.6957 -171.2962,63.6734 -171.3063,63.6312 -171.2029,63.5354 -171.1288,63.5282 -171.0382,63.5264 -171.0146,63.5293 -170.9811,63.5418 -171.0141,63.5531 -170.9887,63.5555 -170.9358,63.5504 -170.8739,63.5424 -170.8499,63.539 -170.7712,63.5243 -170.7276,63.5069 -170.6388,63.4949 -170.5944,63.4927 -170.5735,63.494 -170.4456,63.5366 -170.4007,63.5578 -170.3756,63.5746 -170.1505,63.6248 -170.1227,63.6252 -169.9943,63.6176 -169.9654,63.6156 -169.9476,63.6032 -169.8581,63.557 -169.8355,63.5494 -169.805,63.5452 -169.7689,63.5425 -169.732,63.517 -169.7176,63.4975 -169.6985,63.4556 -169.59,63.4006 -169.5113,63.3732 -169.3838,63.36 -169.3212,63.3584 -169.2649,63.3429 -169.2403,63.3303 -169.2277,63.2945 -169.1922,63.276 -169.1567,63.2708 -169.1221,63.2678 -169.0848,63.2703 -168.922,63.2597 -168.8725,63.2268 -168.8386,63.2204 -168.8034,63.219 -168.7789,63.2205 -168.7428,63.2364 -168.769,63.2482 -168.8,63.2522 -168.8277,63.2525 -168.8806,63.2621 -168.8579,63.2661 -168.7146,63.2633 -168.632,63.2583 -168.5657,63.2525 -168.387,63.228 -168.3706,63.2126 -168.3865,63.1527 -168.4673,63.0939 -168.4851,63.085 -168.5198,63.0776 -168.5432,63.0752 -168.8185,63.1217 -168.8761,63.1261 -168.9471,63.1177 -168.9902,63.1071 -169.1811,63.017 -169.2318,62.9804 -169.2441,62.9644 -169.2516,62.9382 -169.2637,62.9025 -169.3121,62.8703 -169.3393,62.8669 -169.4183,62.8852 -169.4269,62.9314 -169.4042,62.9798 -169.458,63.0345 -169.4734,63.0478 -169.5613,63.0741 -169.6349,63.0757 -169.5899,63.0506 -169.641,63.0744 -169.7496,63.115 -169.8187,63.1049 -169.9249,63.1217 -169.8915,63.1287 -169.8786,63.1733 -169.9006,63.2012 -170.1752,63.2971 -170.2342,63.3128 -170.2733,63.3196 -170.3061,63.3169 -170.451,63.3441 -170.4721,63.3521 -170.4985,63.3752 -170.5277,63.3833 -170.671,63.3577 -170.6241,63.3506 -170.6241,63.3506 15,-4.0,Canada -63.9286,63.6581 -63.9173,63.6555 -63.9041,63.6511 -63.9015,63.6175 -64.0349,63.596 -64.0547,63.5972 -64.0739,63.607 -64.0818,63.6191 -64.0856,63.6308 -64.0824,63.6434 -64.0541,63.6638 -64.0445,63.6678 -63.9513,63.679 -63.9286,63.6581 -63.9286,63.6581 35,-5.0,Canada -76.531,63.403 -76.4631,63.3954 -76.4153,63.3895 -76.3941,63.3852 -76.5282,63.2946 -76.5417,63.2896 -76.5578,63.2877 -76.5758,63.2889 -76.6972,63.3074 -76.833,63.3284 -76.8877,63.3478 -76.9014,63.3574 -76.9073,63.3685 -76.9573,63.3999 -77.1757,63.4941 -77.2151,63.5049 -77.2393,63.5072 -77.2597,63.5068 -77.2737,63.5101 -77.2899,63.5301 -77.3033,63.5693 -77.2881,63.5866 -77.2533,63.6093 -77.226,63.6138 -77.191,63.6176 -76.9654,63.6027 -76.9516,63.6012 -76.9098,63.5944 -76.87,63.5856 -76.6596,63.5229 -76.5599,63.4876 -76.5217,63.4508 -76.5249,63.4183 -76.531,63.403 -76.531,63.403 27,-4.0,Canada -64.1991,63.5592 -64.1992,63.5198 -64.1979,63.5095 -64.1954,63.4992 -64.1898,63.484 -64.1364,63.3429 -64.103,63.3085 -64.0808,63.3063 -64.0412,63.2913 -64.019,63.2775 -63.9744,63.2448 -63.9318,63.1981 -63.9404,63.1918 -63.9528,63.1911 -64.0562,63.219 -64.1256,63.243 -64.141,63.2485 -64.2254,63.316 -64.2953,63.3935 -64.3692,63.5315 -64.3639,63.5421 -64.3494,63.5605 -64.2553,63.5978 -64.2383,63.5952 -64.2024,63.5659 -64.1991,63.5592 -64.1991,63.5592 40,2.0,Norway 8.4387,63.3482 8.4095,63.3489 8.3959,63.3499 8.2793,63.3607 8.2655,63.3715 8.2638,63.3864 8.27,63.4082 8.2783,63.419 8.3184,63.4393 8.349,63.4531 8.4153,63.4782 8.4353,63.4831 8.4462,63.4846 8.473,63.4857 8.5975,63.4902 8.5978,63.5307 8.7979,63.5608 8.9272,63.5756 8.9398,63.5762 8.9536,63.5753 9.1569,63.4832 9.1472,63.4772 9.0713,63.4501 9.0336,63.44 8.944,63.4194 8.9138,63.4128 8.8575,63.4051 8.77,63.3986 8.7574,63.3979 8.7016,63.3973 8.6891,63.3966 8.6431,63.3909 8.5872,63.3827 8.5569,63.3765 8.5286,63.3649 8.5082,63.3565 8.4888,63.3521 8.4775,63.3501 8.4387,63.3482 8.4387,63.3482 15,-4.0,Canada -64.0456,63.5551 -63.9674,63.4901 -63.9517,63.4656 -63.9611,63.4118 -63.9714,63.4024 -63.9832,63.4049 -64.0433,63.4455 -64.0563,63.457 -64.0831,63.4965 -64.0901,63.5197 -64.0879,63.5422 -64.0697,63.557 -64.0562,63.561 -64.0456,63.5551 -64.0456,63.5551 19,-9.0,United States -162.0305,63.5103 -162.0588,63.4663 -162.2433,63.4602 -162.2881,63.4658 -162.3615,63.4785 -162.3736,63.4832 -162.384,63.4934 -162.3823,63.5035 -162.3571,63.5249 -162.3437,63.5355 -162.3327,63.5409 -162.3212,63.5434 -162.2427,63.557 -162.1013,63.559 -162.0784,63.5569 -162.0579,63.5529 -162.0221,63.5177 -162.0305,63.5103 -162.0305,63.5103 20,-4.0,Canada -64.8271,63.4754 -64.8059,63.4664 -64.783,63.4528 -64.7403,63.3836 -64.7335,63.3691 -64.7203,63.3293 -64.7189,63.314 -64.7273,63.3077 -64.7548,63.3177 -64.7768,63.3282 -64.7909,63.3357 -64.8147,63.3527 -64.8234,63.3612 -64.8989,63.4373 -64.9077,63.4461 -64.9245,63.4721 -64.8445,63.4901 -64.8269,63.4804 -64.8271,63.4754 -64.8271,63.4754 46,-2.0,Greenland -41.0346,63.132 -41.0673,63.1364 -41.1373,63.1389 -41.1497,63.1336 -41.173,63.1357 -41.3496,63.1538 -41.3597,63.1578 -41.4097,63.1858 -41.4341,63.2045 -41.4438,63.2134 -41.4576,63.2224 -41.5354,63.2612 -41.6291,63.3066 -41.6457,63.3126 -41.669,63.3181 -41.6816,63.3195 -41.7164,63.3261 -41.7275,63.3299 -41.7668,63.3491 -41.7774,63.3604 -41.7859,63.3746 -41.7901,63.386 -41.7826,63.3939 -41.7726,63.3991 -41.7628,63.4028 -41.7433,63.4074 -41.7021,63.414 -41.6486,63.4185 -41.6267,63.4178 -41.6153,63.4167 -41.5918,63.4116 -41.5813,63.4075 -41.5301,63.3822 -41.4753,63.3415 -41.361,63.3232 -41.203,63.271 -41.1806,63.2652 -41.156,63.2567 -41.1462,63.2523 -41.1304,63.2436 -41.0633,63.1992 -41.0451,63.181 -41.0237,63.1577 -41.0138,63.1387 -41.0346,63.132 -41.0346,63.132 37,-5.0,Canada -78.0594,63.4179 -78.0053,63.404 -77.9382,63.3924 -77.9266,63.3911 -77.7888,63.3913 -77.7744,63.3978 -77.7591,63.3983 -77.6923,63.3942 -77.5282,63.3565 -77.4843,63.3247 -77.3433,63.1938 -77.3522,63.1748 -77.4214,63.1228 -77.4899,63.0943 -77.633,63.0442 -77.7506,63.0146 -77.779,63.0132 -77.7941,63.0136 -77.8058,63.0157 -77.8725,63.0396 -77.9719,63.088 -78.0737,63.1438 -78.142,63.1823 -78.1581,63.1945 -78.1686,63.2034 -78.1902,63.219 -78.2009,63.2256 -78.2927,63.2723 -78.3332,63.2869 -78.3679,63.2933 -78.4085,63.3177 -78.4184,63.3594 -78.3976,63.3667 -78.2263,63.3983 -78.1254,63.4114 -78.0594,63.4179 -78.0594,63.4179 21,2.0,Norway 7.9698,63.2312 7.9776,63.264 7.9674,63.2694 7.9086,63.2794 7.8624,63.2775 7.7881,63.2849 7.779,63.2938 7.7689,63.3062 7.7642,63.3301 7.9723,63.3886 8.0001,63.3894 8.0605,63.3889 8.0792,63.3868 8.1607,63.3216 8.1675,63.3081 8.1439,63.2809 8.1154,63.2638 8.0775,63.2494 8.0676,63.2469 7.9698,63.2312 7.9698,63.2312 17,2.0,Norway 8.546,63.2414 8.4952,63.2414 8.4817,63.2411 8.4545,63.2435 8.4189,63.256 8.472,63.2953 8.4919,63.3036 8.5127,63.3077 8.5252,63.3084 8.5752,63.3043 8.6036,63.299 8.656,63.2724 8.6516,63.2569 8.6294,63.2498 8.618,63.248 8.546,63.2414 8.546,63.2414 18,2.0,Norway 8.3747,63.0816 8.3611,63.0815 8.3429,63.0842 8.3318,63.0895 8.253,63.1516 8.253,63.1855 8.409,63.2066 8.4209,63.2062 8.4348,63.199 8.541,63.1368 8.5557,63.1228 8.5589,63.1084 8.5508,63.099 8.5357,63.0935 8.5072,63.0862 8.4714,63.0825 8.3747,63.0816 8.3747,63.0816 19,3.0,Finland 21.2054,63.0673 21.2088,63.0768 21.1494,63.1116 21.141,63.1051 21.1345,63.0975 21.124,63.0961 21.1068,63.0988 21.0917,63.1146 21.0577,63.1582 21.0395,63.1993 21.2546,63.1636 21.3068,63.1762 21.3289,63.1787 21.3742,63.1714 21.3824,63.1169 21.2636,63.0747 21.2378,63.0708 21.2054,63.0673 21.2054,63.0673 20,2.0,Norway 7.9896,63.0634 7.9638,63.0637 7.9121,63.0914 7.9198,63.1008 8.032,63.15 8.047,63.1557 8.0578,63.1577 8.0705,63.1584 8.0826,63.1579 8.0962,63.1568 8.1066,63.1546 8.1261,63.144 8.1554,63.1151 8.1702,63.0779 8.1606,63.073 8.1204,63.0691 8.071,63.065 8.0446,63.064 7.9896,63.0634 7.9896,63.0634 22,-2.0,Greenland -41.1358,63.0408 -41.1999,63.0479 -41.2223,63.0506 -41.2548,63.0514 -41.2656,63.0503 -41.297,63.0512 -41.321,63.055 -41.3769,63.0869 -41.385,63.0938 -41.3834,63.1086 -41.365,63.1296 -41.3545,63.1313 -41.3105,63.1283 -41.2206,63.1183 -41.1979,63.1151 -41.1858,63.111 -41.15,63.0933 -41.1318,63.0826 -41.1039,63.0452 -41.1242,63.041 -41.1358,63.0408 -41.1358,63.0408 16,-2.0,Greenland -50.441,63.1176 -50.3807,63.0864 -50.3721,63.0742 -50.3857,63.0627 -50.4091,63.0548 -50.5239,63.0367 -50.5406,63.0377 -50.5672,63.0444 -50.5785,63.0554 -50.5817,63.0675 -50.5706,63.0796 -50.513,63.124 -50.4823,63.1277 -50.4544,63.1265 -50.441,63.1176 -50.441,63.1176 18,-2.0,Greenland -50.6544,63.1047 -50.6311,63.0922 -50.5842,63.0366 -50.5973,63.0283 -50.6509,63.0138 -50.6716,63.0097 -50.7003,63.0041 -50.7108,63.0031 -50.7222,63.0034 -50.7333,63.0069 -50.7762,63.0317 -50.7867,63.0424 -50.7743,63.0634 -50.6928,63.1068 -50.6782,63.1105 -50.6655,63.1081 -50.6544,63.1047 -50.6544,63.1047 20,-2.0,Greenland -41.401,62.9769 -41.4109,62.981 -41.4433,63.0005 -41.4358,63.0082 -41.4258,63.0119 -41.3867,63.0233 -41.3665,63.0285 -41.3457,63.0319 -41.2922,63.0326 -41.281,63.0298 -41.2649,63.0212 -41.2241,62.9943 -41.2345,62.9817 -41.2432,62.9764 -41.2529,62.9729 -41.273,62.9675 -41.2948,62.9683 -41.3832,62.9717 -41.401,62.9769 -41.401,62.9769 17,2.0,Norway 7.7633,62.9403 7.7444,62.9458 7.6926,62.9638 7.6717,62.9717 7.6645,62.9785 7.6968,63.0086 7.7111,63.0122 7.8047,63.0165 7.8307,63.0179 7.8867,63.0108 7.8995,62.999 7.8869,62.9791 7.8732,62.9716 7.8233,62.9533 7.7944,62.9459 7.7633,62.9403 7.7633,62.9403 17,2.0,Norway 7.4959,62.8614 7.4659,62.8785 7.4534,62.8834 7.4433,62.8856 7.4316,62.8874 7.4047,62.8897 7.3899,62.8937 7.3579,62.9067 7.3509,62.9161 7.3849,62.9802 7.5898,63.0155 7.635,63.0035 7.6953,62.923 7.6851,62.9178 7.5336,62.8711 7.4959,62.8614 7.4959,62.8614 14,-2.0,Greenland -41.489,62.7921 -41.5016,62.7958 -41.5298,62.8324 -41.5055,62.9272 -41.4938,62.9333 -41.4206,62.9409 -41.4102,62.9416 -41.3998,62.9412 -41.3743,62.9368 -41.3912,62.894 -41.413,62.8645 -41.4802,62.7963 -41.489,62.7921 -41.489,62.7921 98,-5.0,Canada -82.0254,62.9027 -81.9616,62.8894 -81.8478,62.8776 -81.7802,62.8764 -81.7489,62.8739 -81.7082,62.8478 -81.7471,62.7893 -81.7658,62.6634 -81.7701,62.6436 -81.8066,62.6167 -81.9427,62.5526 -82.0276,62.5226 -82.1226,62.5062 -82.1554,62.4952 -82.217,62.4657 -82.2452,62.4353 -82.2601,62.3977 -82.2858,62.3804 -82.3394,62.3622 -82.3828,62.3498 -82.4232,62.3362 -82.4612,62.3188 -82.4839,62.3067 -82.51,62.283 -82.5284,62.2649 -82.5527,62.2451 -82.577,62.2301 -82.6086,62.2142 -82.8333,62.1311 -82.9271,62.1028 -82.9703,62.0979 -82.9941,62.1145 -83.0114,62.1343 -83.0376,62.1462 -83.0884,62.1646 -83.1144,62.1726 -83.1467,62.1768 -83.1691,62.1764 -83.1982,62.1738 -83.2439,62.1628 -83.3149,62.1455 -83.3443,62.1338 -83.3782,62.1159 -83.4124,62.1003 -83.4848,62.0724 -83.5161,62.0646 -83.5457,62.0679 -83.5587,62.0887 -83.5496,62.1506 -83.5632,62.2156 -83.5854,62.2335 -83.6208,62.2428 -83.6441,62.2501 -83.6618,62.2608 -83.7398,62.3113 -83.7632,62.3294 -83.7811,62.3481 -83.7815,62.3685 -83.7483,62.4042 -83.6984,62.428 -83.6515,62.4473 -83.5787,62.4751 -83.5386,62.4948 -83.4019,62.6028 -83.3854,62.6292 -83.3901,62.653 -83.3625,62.7445 -83.2376,62.8205 -83.2115,62.8296 -83.1421,62.8478 -83.0396,62.8308 -83.018,62.8019 -82.9871,62.7805 -82.9545,62.7684 -82.9255,62.7632 -82.8999,62.7605 -82.8692,62.761 -82.8397,62.7654 -82.8203,62.7706 -82.6958,62.8127 -82.6639,62.8256 -82.6316,62.8384 -82.5945,62.8505 -82.5329,62.8623 -82.491,62.8668 -82.4546,62.8682 -82.4125,62.8667 -82.3796,62.8622 -82.3469,62.8564 -82.3004,62.8504 -82.2675,62.848 -82.2226,62.8573 -82.2181,62.8766 -82.1322,62.9061 -82.1061,62.9118 -82.0788,62.9129 -82.0254,62.9027 -82.0254,62.9027 40,-5.0,Canada -70.4502,62.6971 -70.4102,62.6883 -70.2786,62.6523 -70.2597,62.6462 -70.0897,62.5263 -70.0811,62.5179 -70.0751,62.503 -70.1283,62.4826 -70.1468,62.478 -70.2368,62.4567 -70.2561,62.4536 -70.2777,62.453 -70.3297,62.4551 -70.3641,62.4572 -70.549,62.4695 -70.5864,62.4738 -70.6088,62.4781 -70.6305,62.4858 -70.6818,62.5282 -70.6871,62.5377 -70.7164,62.6366 -70.7087,62.6891 -70.8071,62.721 -70.8807,62.7347 -70.894,62.7355 -70.9088,62.7342 -70.9679,62.7239 -71.0062,62.718 -71.0196,62.72 -71.0373,62.7321 -71.1018,62.8019 -71.0941,62.8103 -71.0522,62.8075 -70.9353,62.7946 -70.6502,62.7592 -70.6224,62.7531 -70.5738,62.7381 -70.5219,62.7215 -70.4502,62.6971 -70.4502,62.6971 30,-5.0,Canada -74.3357,62.6634 -74.2475,62.6102 -74.2324,62.6053 -74.203,62.6026 -74.1653,62.6025 -74.1408,62.6031 -74.1056,62.6057 -74.0715,62.6083 -74.0374,62.6121 -74.0145,62.6119 -74.0017,62.6111 -73.8686,62.5868 -73.8159,62.5378 -73.8259,62.5274 -73.8447,62.5256 -73.9849,62.5243 -74.0102,62.5243 -74.025,62.5255 -74.0394,62.5272 -74.1889,62.5527 -74.3962,62.5917 -74.406,62.5939 -74.4413,62.6061 -74.4721,62.6192 -74.4943,62.6296 -74.5041,62.6403 -74.3921,62.672 -74.3778,62.6714 -74.3357,62.6634 -74.3357,62.6634 18,2.0,Norway 6.6648,62.5768 6.6546,62.5795 6.637,62.6013 6.6644,62.6452 6.6766,62.6535 6.6928,62.6557 6.8627,62.6668 6.8795,62.6639 6.8883,62.6575 6.9063,62.6293 6.8979,62.6174 6.8793,62.6122 6.8472,62.6071 6.7772,62.5991 6.7343,62.5925 6.7235,62.5905 6.6648,62.5768 6.6648,62.5768 17,-4.0,Canada -64.7585,62.5175 -64.7157,62.5035 -64.7372,62.4829 -64.7482,62.4782 -64.8426,62.4538 -64.8566,62.4513 -64.8809,62.4499 -64.9697,62.4584 -64.993,62.4611 -65.0108,62.4682 -64.8961,62.5182 -64.8767,62.522 -64.846,62.5257 -64.7829,62.5278 -64.7661,62.5222 -64.7585,62.5175 -64.7585,62.5175 18,-5.0,Canada -77.8676,62.5152 -77.8565,62.517 -77.7159,62.5124 -77.6993,62.5063 -77.6904,62.4913 -77.6879,62.4768 -77.6975,62.4666 -77.7109,62.4627 -77.7218,62.4613 -77.7336,62.4608 -77.7618,62.4629 -77.9514,62.4826 -77.962,62.4896 -77.956,62.5054 -77.8959,62.5152 -77.8791,62.5165 -77.8676,62.5152 -77.8676,62.5152 18,-2.0,Greenland -42.1024,62.4061 -42.1233,62.408 -42.1346,62.4098 -42.1751,62.4296 -42.1967,62.4453 -42.2131,62.4967 -42.1951,62.5005 -42.1832,62.4988 -42.091,62.4988 -42.0802,62.4985 -42.0689,62.4966 -42.053,62.49 -42.0436,62.4833 -42.0434,62.4225 -42.0813,62.4089 -42.0911,62.4064 -42.1024,62.4061 -42.1024,62.4061 25,-4.0,Canada -64.2575,62.4494 -64.2575,62.4347 -64.2693,62.3849 -64.3522,62.3316 -64.4034,62.3105 -64.4695,62.2907 -64.5283,62.2962 -64.6471,62.31 -64.7451,62.33 -64.8008,62.3421 -64.8156,62.3462 -64.827,62.3536 -64.8398,62.3894 -64.7202,62.4785 -64.6895,62.483 -64.6717,62.4847 -64.6412,62.4862 -64.6272,62.4859 -64.6158,62.484 -64.5283,62.4642 -64.4552,62.4621 -64.4309,62.4822 -64.2643,62.4565 -64.2575,62.4494 -64.2575,62.4494 11,2.0,Sweden 17.4509,62.2866 17.4231,62.289 17.4106,62.2911 17.3823,62.3015 17.3372,62.3953 17.4337,62.3834 17.4805,62.3382 17.5087,62.2899 17.4753,62.2869 17.4509,62.2866 17.4509,62.2866 17,2.0,Norway 6.2162,62.3141 6.2015,62.3144 6.1363,62.3144 6.1081,62.3141 6.0848,62.3175 6.0657,62.3229 6.0487,62.3286 6.0137,62.3567 6.1656,62.3661 6.1774,62.3659 6.3061,62.3435 6.3181,62.3343 6.2964,62.3238 6.2747,62.3201 6.242,62.3155 6.2162,62.3141 6.2162,62.3141 23,2.0,Norway 5.8161,62.1637 5.8402,62.2005 5.8246,62.2544 5.7914,62.2636 5.7929,62.2874 5.8167,62.315 5.8346,62.331 5.8533,62.3398 5.8809,62.3475 5.9021,62.3509 5.9157,62.3518 5.9258,62.3507 5.9464,62.3461 5.9633,62.3369 6.015,62.2765 6.0122,62.2511 5.931,62.2061 5.9169,62.1985 5.889,62.1841 5.8548,62.1689 5.8294,62.1641 5.8161,62.1637 5.8161,62.1637 47,-5.0,Canada -79.3883,61.7244 -79.4074,61.7178 -79.437,61.7035 -79.457,61.675 -79.4537,61.6468 -79.4776,61.592 -79.4964,61.574 -79.5943,61.5093 -79.6172,61.4994 -79.6526,61.4932 -79.6835,61.4932 -79.7176,61.5348 -79.8003,61.6085 -79.9289,61.6722 -79.9845,61.6733 -80.0135,61.6743 -80.0442,61.6839 -80.1232,61.737 -80.1363,61.8545 -80.1402,61.9081 -80.1125,62.0333 -80.0435,62.1228 -80.0251,62.1413 -79.8582,62.2844 -79.8264,62.2978 -79.7874,62.3111 -79.7549,62.3181 -79.6834,62.3277 -79.5762,62.3229 -79.4511,62.3365 -79.4299,62.3409 -79.4074,62.3409 -79.3861,62.3346 -79.2921,62.3052 -79.2748,62.282 -79.2666,62.2637 -79.1995,62.2163 -79.175,62.2072 -79.1062,62.1711 -79.1086,62.0852 -79.1764,61.9396 -79.2005,61.924 -79.2431,61.8933 -79.3092,61.8064 -79.3712,61.7358 -79.3883,61.7244 -79.3883,61.7244 19,2.0,Norway 5.5984,62.1094 5.5411,62.1099 5.5252,62.1127 5.4952,62.1457 5.5063,62.1702 5.5351,62.204 5.5542,62.2123 5.5661,62.2133 5.6761,62.2178 5.6909,62.2178 5.7973,62.1946 5.7811,62.1373 5.7622,62.1267 5.7441,62.1218 5.7336,62.1197 5.6874,62.1147 5.6371,62.1114 5.5984,62.1094 5.5984,62.1094 24,-4.0,Canada -64.9424,61.8485 -64.9138,61.8243 -64.8554,61.8105 -64.7651,61.7522 -64.7022,61.6844 -64.7109,61.6738 -64.733,61.6638 -64.7646,61.6507 -64.7813,61.646 -64.791,61.6442 -64.8021,61.6438 -64.8268,61.6473 -65.0268,61.7068 -65.0868,61.744 -65.1262,61.7943 -65.13,61.8099 -65.1291,61.8262 -65.1216,61.8368 -65.0638,61.8701 -65.0443,61.8722 -65.0313,61.8714 -64.9516,61.8543 -64.9424,61.8485 -64.9424,61.8485 14,-2.0,Greenland -49.317,61.8402 -49.3226,61.8207 -49.345,61.7992 -49.3622,61.799 -49.4275,61.8017 -49.4395,61.8026 -49.4749,61.8082 -49.539,61.8526 -49.5242,61.8598 -49.5093,61.8609 -49.4559,61.86 -49.3239,61.855 -49.317,61.8402 -49.317,61.8402 16,2.0,Norway 4.9133,61.6978 4.876,61.7099 4.7983,61.7664 4.8589,61.8098 4.8741,61.8163 4.9046,61.8222 4.9168,61.8232 4.9283,61.8219 4.9398,61.8205 5.1922,61.7786 5.2111,61.7638 5.1652,61.747 4.9867,61.7101 4.9249,61.699 4.9133,61.6978 4.9133,61.6978 19,-2.0,Greenland -42.1668,61.6933 -42.1577,61.6976 -42.134,61.7131 -42.098,61.7396 -42.0898,61.7557 -42.0908,61.7682 -42.0838,61.7786 -42.0627,61.7895 -42.0416,61.7958 -42.0139,61.8007 -42.0034,61.7995 -42.0084,61.7481 -42.0375,61.7001 -42.0488,61.6939 -42.0588,61.6923 -42.1877,61.675 -42.1981,61.6801 -42.1668,61.6933 -42.1668,61.6933 16,-4.0,Canada -65.5869,61.7489 -65.5687,61.7015 -65.5927,61.6787 -65.6763,61.6803 -65.7003,61.6827 -65.7646,61.6909 -65.7769,61.693 -65.8081,61.7051 -65.8191,61.7175 -65.6868,61.7865 -65.6632,61.7901 -65.6512,61.7899 -65.6407,61.7872 -65.5899,61.7636 -65.5869,61.7489 -65.5869,61.7489 41,-4.0,Canada -64.5356,61.513 -64.593,61.4788 -64.6007,61.4655 -64.5876,61.4612 -64.5618,61.4586 -64.5505,61.431 -64.5628,61.3911 -64.5812,61.3693 -64.591,61.3585 -64.6965,61.2807 -64.7456,61.2486 -64.7628,61.25 -64.8505,61.2715 -64.8603,61.2928 -65.0542,61.3921 -65.0616,61.4029 -65.0679,61.4221 -65.1698,61.454 -65.2039,61.4569 -65.228,61.4598 -65.2514,61.4641 -65.3518,61.5139 -65.362,61.5244 -65.3611,61.5358 -65.3579,61.5502 -65.3463,61.5651 -65.3372,61.5719 -65.3254,61.5777 -65.3126,61.5822 -65.214,61.5953 -65.122,61.6056 -65.0492,61.6117 -64.9431,61.618 -64.9112,61.6183 -64.8923,61.6172 -64.8701,61.6148 -64.6087,61.5849 -64.5946,61.583 -64.5233,61.5253 -64.5356,61.513 -64.5356,61.513 18,-2.0,Greenland -48.4277,61.2819 -48.4214,61.2696 -48.4298,61.2488 -48.4463,61.243 -48.4902,61.2382 -48.5602,61.2352 -48.735,61.2584 -48.7148,61.2724 -48.6879,61.2811 -48.6685,61.2861 -48.6494,61.2894 -48.6204,61.2928 -48.5997,61.2936 -48.5786,61.2929 -48.4422,61.2891 -48.4305,61.2865 -48.4277,61.2819 -48.4277,61.2819 18,2.0,Norway 4.7956,60.9704 4.7868,60.9813 4.7805,61.0748 4.8409,61.1056 4.9183,61.1157 4.9331,61.1122 4.9516,61.0994 4.977,61.0353 4.9706,61.0196 4.9586,61.0114 4.9444,61.0049 4.9006,60.9915 4.866,61.0136 4.8582,61.0202 4.8433,61.0188 4.807,60.9948 4.7956,60.9704 4.7956,60.9704 16,-2.0,Greenland -48.1085,61.0175 -48.0215,61.0068 -47.9878,61.0016 -47.9594,60.9886 -47.972,60.98 -47.9819,60.9797 -48.0627,60.9787 -48.2154,60.9793 -48.2432,60.9799 -48.2619,60.9855 -48.2769,61.0075 -48.267,61.0185 -48.1727,61.0245 -48.1512,61.0245 -48.1085,61.0175 -48.1085,61.0175 26,-2.0,Greenland -46.1187,60.8113 -46.1476,60.8076 -46.1659,60.8025 -46.2636,60.7739 -46.4138,60.7306 -46.4789,60.7163 -46.6697,60.676 -46.6848,60.6762 -46.7441,60.6832 -46.7552,60.6893 -46.7487,60.6979 -46.7139,60.7104 -46.6606,60.7298 -46.5913,60.7512 -46.3675,60.8165 -46.3404,60.8243 -46.2582,60.8453 -46.1669,60.8663 -46.1379,60.8728 -46.1189,60.8756 -46.109,60.8718 -46.0764,60.8487 -46.0829,60.8271 -46.1027,60.8161 -46.1187,60.8113 -46.1187,60.8113 17,-9.0,United States -147.7481,60.8537 -147.6825,60.8288 -147.6581,60.8105 -147.65,60.8006 -147.6311,60.7434 -147.6477,60.7332 -147.7371,60.7162 -147.8252,60.7179 -147.8408,60.7212 -147.8521,60.7292 -147.8526,60.7538 -147.8437,60.7874 -147.8226,60.841 -147.7832,60.8522 -147.7604,60.8547 -147.7481,60.8537 -147.7481,60.8537 16,-2.0,Greenland -42.8446,60.8094 -42.7841,60.8246 -42.7491,60.8273 -42.6697,60.8292 -42.6598,60.8287 -42.5982,60.8237 -42.5661,60.8208 -42.5447,60.8114 -42.6589,60.7813 -42.6689,60.7807 -42.7488,60.7824 -42.7801,60.7858 -42.8332,60.7936 -42.8595,60.8009 -42.8446,60.8094 -42.8446,60.8094 13,1.0,United Kingdom -0.8332,60.5999 -0.9336,60.6011 -0.9602,60.6116 -0.9577,60.6378 -0.9368,60.7209 -0.8787,60.7694 -0.8042,60.7666 -0.7686,60.7561 -0.7558,60.7421 -0.762,60.7198 -0.8181,60.6153 -0.8332,60.5999 -0.8332,60.5999 29,-2.0,Greenland -47.8642,60.7672 -47.6656,60.7332 -47.6676,60.7264 -47.7374,60.683 -47.7324,60.6735 -47.7165,60.6675 -47.6797,60.6629 -47.6513,60.6734 -47.6248,60.6815 -47.567,60.6816 -47.6016,60.661 -47.618,60.6542 -47.8073,60.6034 -47.941,60.6149 -47.9643,60.6183 -47.9852,60.6255 -48.0758,60.6657 -48.147,60.7217 -48.1387,60.7275 -48.1207,60.7302 -48.1109,60.7306 -48.0683,60.7277 -48.0477,60.7271 -48.0286,60.7294 -47.919,60.7458 -47.8971,60.7533 -47.8762,60.7623 -47.8642,60.7672 -47.8642,60.7672 15,-5.0,Canada -78.0778,60.735 -78.1324,60.6941 -78.2484,60.6704 -78.4741,60.6319 -78.5069,60.6292 -78.52,60.6299 -78.5428,60.641 -78.5487,60.6493 -78.4669,60.6983 -78.4243,60.7106 -78.2509,60.7363 -78.0729,60.7534 -78.0714,60.7422 -78.0778,60.735 -78.0778,60.735 11,-2.0,Greenland -46.1893,60.6984 -46.1702,60.6712 -46.2622,60.594 -46.3623,60.6028 -46.4112,60.6258 -46.4002,60.6441 -46.3527,60.6691 -46.3352,60.6749 -46.2173,60.7062 -46.1893,60.6984 -46.1893,60.6984 17,-9.0,United States -147.8569,60.6823 -147.8419,60.6761 -147.8272,60.6614 -147.8138,60.6038 -147.8171,60.5923 -147.8384,60.5787 -147.864,60.5676 -147.8766,60.569 -147.9416,60.6249 -147.9492,60.6379 -147.9506,60.6501 -147.9329,60.681 -147.913,60.6846 -147.8878,60.6857 -147.8737,60.6852 -147.8569,60.6823 -147.8569,60.6823 33,2.0,Norway 5.1496,60.5036 5.1385,60.5037 5.1007,60.5131 5.1122,60.5048 5.1538,60.4841 5.1768,60.4716 5.1883,60.4568 5.1864,60.4382 5.1755,60.4327 5.1627,60.4326 5.0923,60.4597 5.0679,60.4684 5.0203,60.4735 4.9777,60.4876 4.9181,60.5296 5.0016,60.527 5.0126,60.5257 5.0617,60.5188 5.0529,60.525 4.9985,60.5465 4.9847,60.5536 4.9076,60.598 4.8968,60.6063 4.8677,60.6331 4.8482,60.6608 4.8626,60.6615 4.942,60.6477 4.9742,60.6394 5.12,60.5426 5.1308,60.5336 5.1475,60.5111 5.1496,60.5036 5.1496,60.5036 17,1.0,United Kingdom -1.1024,60.4122 -1.1253,60.4132 -1.1391,60.4176 -1.168,60.4538 -1.1805,60.5257 -1.1788,60.5503 -1.176,60.5613 -1.1076,60.6521 -1.0964,60.6563 -1.0865,60.6579 -1.0546,60.6573 -0.9919,60.6489 -0.9804,60.58 -1.0165,60.4441 -1.0233,60.4268 -1.1024,60.4122 -1.1024,60.4122 14,-2.0,Greenland -45.8419,60.6297 -45.8069,60.6209 -45.8663,60.6187 -45.8979,60.6188 -45.9247,60.5981 -45.9945,60.5647 -46.0088,60.5618 -46.0827,60.568 -46.1129,60.6015 -46.09,60.6071 -45.9194,60.6329 -45.8882,60.6335 -45.8419,60.6297 -45.8419,60.6297 25,2.0,Norway 5.517,60.356 5.4997,60.358 5.4734,60.3689 5.4549,60.3806 5.4427,60.3882 5.35,60.4506 5.3859,60.4791 5.4435,60.5024 5.5201,60.5319 5.5493,60.5415 5.5723,60.5577 5.5778,60.5727 5.5802,60.5857 5.5805,60.6059 5.5979,60.6151 5.6083,60.6166 5.6195,60.6154 5.6686,60.6079 5.6783,60.6008 5.6828,60.5699 5.6687,60.3971 5.5958,60.3641 5.5398,60.3584 5.517,60.356 5.517,60.356 14,-2.0,Greenland -45.6962,60.5874 -45.6987,60.5795 -45.7078,60.5712 -45.7242,60.5637 -45.8676,60.5423 -45.8775,60.5412 -45.9017,60.5465 -45.9098,60.5557 -45.8934,60.6021 -45.8786,60.6095 -45.7294,60.5962 -45.7079,60.5925 -45.6962,60.5874 -45.6962,60.5874 65,1.0,United Kingdom -1.1781,60.1523 -1.155,60.1218 -1.1249,60.0742 -1.1473,60.0597 -1.1645,60.0647 -1.1849,60.0546 -1.2099,60.0303 -1.218,59.9501 -1.2587,59.7882 -1.2662,59.779 -1.3042,59.7854 -1.3692,59.8198 -1.3751,59.8322 -1.325,59.9301 -1.3077,59.9373 -1.2657,60.021 -1.2594,60.0388 -1.2585,60.0548 -1.2825,60.1471 -1.2887,60.1684 -1.4068,60.1804 -1.3847,60.1645 -1.3609,60.157 -1.3501,60.1362 -1.3556,60.1198 -1.4482,60.0791 -1.4874,60.0949 -1.5225,60.1155 -1.5168,60.1283 -1.5855,60.1429 -1.6444,60.1518 -1.6518,60.1533 -1.6615,60.1579 -1.6727,60.17 -1.6889,60.2121 -1.6637,60.2269 -1.6519,60.23 -1.625,60.2345 -1.59,60.2344 -1.4717,60.2422 -1.4427,60.2455 -1.4242,60.2486 -1.3432,60.267 -1.3177,60.2832 -1.4427,60.3872 -1.4992,60.3965 -1.5575,60.4004 -1.6072,60.4053 -1.5899,60.4345 -1.5439,60.4627 -1.4106,60.5324 -1.2938,60.5599 -1.2849,60.5401 -1.2936,60.418 -1.2842,60.398 -1.1615,60.3812 -1.0364,60.3698 -1.0638,60.285 -1.0988,60.2028 -1.1626,60.1874 -1.193,60.195 -1.1957,60.1831 -1.1831,60.1578 -1.1781,60.1523 -1.1781,60.1523 21,-9.0,United States -145.5044,60.5006 -145.6412,60.4544 -145.7801,60.415 -145.8531,60.3971 -145.9702,60.382 -145.9828,60.3814 -146.0429,60.3844 -146.0512,60.3904 -146.042,60.4236 -146.0278,60.4375 -146.0175,60.4425 -146.0019,60.4455 -145.9204,60.4515 -145.8279,60.4658 -145.6871,60.5095 -145.6654,60.5156 -145.4916,60.5431 -145.475,60.5197 -145.4893,60.5074 -145.5044,60.5006 -145.5044,60.5006 52,-9.0,United States -171.9551,60.23 -171.9879,60.2541 -172.0052,60.2626 -172.0187,60.2663 -172.0308,60.2674 -172.0571,60.2685 -172.1612,60.2683 -172.1919,60.2635 -172.2178,60.256 -172.2363,60.2516 -172.2614,60.2511 -172.2733,60.2519 -172.4004,60.296 -172.4111,60.301 -172.4216,60.3155 -172.4418,60.3265 -172.5076,60.355 -172.6096,60.3943 -172.6542,60.4056 -172.6732,60.4098 -172.7235,60.4227 -172.7062,60.4762 -172.6838,60.4899 -172.6209,60.5241 -172.6003,60.5307 -172.5873,60.528 -172.5866,60.512 -172.5977,60.5001 -172.6008,60.4882 -172.5931,60.4754 -172.5732,60.452 -172.5577,60.4394 -172.5475,60.4308 -172.5372,60.4226 -172.5176,60.4116 -172.4226,60.3762 -172.4066,60.3703 -172.2681,60.3279 -172.2506,60.3229 -172.2288,60.3196 -172.1943,60.3153 -172.156,60.3131 -172.1298,60.3167 -172.1089,60.3234 -172.0977,60.3246 -172.067,60.3219 -172.0539,60.3178 -171.8832,60.2421 -171.9101,60.2341 -171.9313,60.2314 -171.9551,60.23 -171.9551,60.23 39,-5.0,Canada -67.8198,60.4879 -67.7339,60.4147 -67.7072,60.4033 -67.6928,60.3994 -67.677,60.392 -67.6702,60.3842 -67.6668,60.3726 -67.6702,60.3592 -67.6779,60.3445 -67.687,60.3349 -67.7105,60.3134 -67.7252,60.3023 -67.7571,60.2807 -67.7699,60.2723 -67.8062,60.2489 -67.8404,60.2343 -68.0388,60.1728 -68.0487,60.1703 -68.0766,60.1653 -68.1225,60.1582 -68.1818,60.1501 -68.2113,60.1505 -68.2329,60.153 -68.248,60.1596 -68.2582,60.1682 -68.2652,60.1829 -68.264,60.2034 -68.2551,60.227 -68.2485,60.2372 -68.1852,60.3171 -68.046,60.4611 -68.0003,60.4972 -67.99,60.504 -67.9633,60.5082 -67.9527,60.5093 -67.9064,60.5077 -67.8706,60.5043 -67.8198,60.4879 -67.8198,60.4879 13,2.0,Norway 5.1289,60.3232 5.1024,60.3429 5.0116,60.4189 4.9915,60.4579 5.0767,60.4401 5.1468,60.4189 5.1663,60.4112 5.1803,60.4013 5.1907,60.3892 5.1981,60.3469 5.1855,60.3359 5.1289,60.3232 5.1289,60.3232 27,-9.0,United States -147.3544,60.3496 -147.411,60.3379 -147.4509,60.3178 -147.4329,60.3032 -147.4177,60.3041 -147.4063,60.3088 -147.3721,60.3189 -147.344,60.3154 -147.3505,60.2949 -147.3568,60.2841 -147.4452,60.1372 -147.4794,60.0952 -147.4925,60.0917 -147.5112,60.0928 -147.5477,60.1095 -147.6309,60.1618 -147.6192,60.2107 -147.5968,60.2591 -147.5774,60.2988 -147.5384,60.3586 -147.5004,60.4056 -147.4193,60.4373 -147.3474,60.4 -147.3366,60.3569 -147.3461,60.3509 -147.3544,60.3496 -147.3544,60.3496 16,2.0,Sweden 18.5268,60.2325 18.5142,60.2332 18.4821,60.2446 18.3664,60.2921 18.3587,60.3043 18.3474,60.3432 18.3381,60.4237 18.3505,60.4314 18.3741,60.4265 18.3877,60.4135 18.4214,60.3542 18.4723,60.2752 18.5022,60.2695 18.5365,60.2376 18.5268,60.2325 18.5268,60.2325 50,-9.0,United States -145.8207,60.3199 -145.8921,60.3082 -146.034,60.2786 -146.071,60.2705 -146.1396,60.2506 -146.1809,60.237 -146.1971,60.2314 -146.2409,60.2121 -146.3002,60.1726 -146.3211,60.1661 -146.3407,60.1683 -146.3513,60.1734 -146.3904,60.1949 -146.4013,60.2105 -146.3528,60.2359 -146.3223,60.2469 -146.2788,60.2627 -146.2585,60.2693 -146.209,60.2925 -146.3109,60.2947 -146.325,60.2915 -146.3428,60.2819 -146.3304,60.2786 -146.3401,60.2723 -146.353,60.2725 -146.4217,60.2774 -146.4386,60.286 -146.4458,60.3032 -146.4384,60.3187 -146.4282,60.3349 -146.419,60.3438 -146.3407,60.3986 -146.3263,60.4052 -146.3035,60.4092 -146.2583,60.4084 -146.1623,60.3898 -146.089,60.3707 -146.0865,60.3387 -146.0773,60.3343 -146.0633,60.3341 -146.0339,60.3394 -146.0137,60.343 -145.9245,60.3587 -145.891,60.362 -145.8784,60.3623 -145.8644,60.3618 -145.8487,60.3593 -145.8045,60.3305 -145.8207,60.3199 -145.8207,60.3199 18,3.0,Finland 21.9309,60.2505 21.9184,60.2516 21.9051,60.2541 21.8581,60.2622 21.7777,60.2849 21.7521,60.2975 21.7443,60.3038 21.7437,60.3149 21.765,60.3895 21.7751,60.3947 21.7857,60.3934 21.8553,60.3713 21.8922,60.3434 21.9552,60.286 21.957,60.2616 21.9416,60.2512 21.9309,60.2505 21.9309,60.2505 16,2.0,Norway 5.0941,60.1105 4.9857,60.1453 4.9521,60.1631 4.9398,60.1737 4.9234,60.211 4.9331,60.3545 4.9606,60.368 5.0631,60.2719 5.078,60.2554 5.089,60.2339 5.0915,60.2186 5.1017,60.1434 5.1032,60.1257 5.1026,60.1131 5.0941,60.1105 5.0941,60.1105 74,-9.0,United States -165.7954,60.3371 -165.7963,60.329 -165.7519,60.2563 -165.7163,60.2501 -165.6661,60.2457 -165.6098,60.2463 -165.5963,60.262 -165.559,60.2712 -165.4825,60.2644 -165.4629,60.2592 -165.398,60.2351 -165.3718,60.2236 -165.3621,60.2027 -165.3677,60.1389 -165.3765,60.0812 -165.3579,59.9868 -165.3274,59.9241 -165.2951,59.8969 -165.2735,59.901 -165.2313,59.9083 -165.2437,59.8568 -165.2626,59.8413 -165.3004,59.8301 -165.3497,59.8329 -165.417,59.838 -165.4746,59.8301 -165.5745,59.802 -165.8058,59.7795 -165.8642,59.7911 -165.8967,59.7854 -165.9194,59.7675 -165.8818,59.7536 -165.8337,59.7483 -165.7968,59.7335 -165.7761,59.699 -165.8108,59.6835 -165.8554,59.6815 -165.8815,59.6855 -165.941,59.7235 -165.9837,59.7452 -166.0994,59.7799 -166.1271,59.7835 -166.1627,59.7789 -166.285,59.7784 -166.6441,59.903 -166.683,59.9267 -166.7647,59.9203 -166.8154,59.9268 -166.8462,59.941 -166.9488,59.9938 -167.0016,60.023 -167.1026,60.1167 -167.0884,60.1332 -167.0409,60.1498 -167.0015,60.1571 -166.9605,60.1593 -166.8867,60.1605 -166.8595,60.1584 -166.7572,60.1512 -166.6173,60.1349 -166.5802,60.1329 -166.5186,60.134 -166.4799,60.1672 -166.4901,60.1967 -166.374,60.2492 -166.1814,60.306 -166.1456,60.3114 -166.1113,60.3071 -166.002,60.3019 -165.8865,60.3193 -165.8367,60.3575 -165.8041,60.3482 -165.7954,60.3371 -165.7954,60.3371 13,-9.0,United States -144.8139,60.3262 -144.8417,60.2412 -144.8528,60.2327 -144.8676,60.2315 -144.9424,60.2377 -144.9707,60.2448 -145.0066,60.2594 -144.9846,60.2721 -144.8388,60.3363 -144.8241,60.3426 -144.8103,60.3415 -144.8139,60.3262 -144.8139,60.3262 60,3.0,Finland 19.9065,59.9706 19.9014,59.9867 19.8888,60.0139 19.8807,60.0201 19.8707,60.0226 19.8575,60.0246 19.8346,60.0155 19.8265,60.0039 19.8104,60.0035 19.7345,60.0082 19.7139,60.0224 19.6845,60.0534 19.6605,60.0885 19.6116,60.1869 19.7118,60.2318 19.7456,60.2196 19.7396,60.1883 19.7256,60.1697 19.7569,60.1163 19.7758,60.114 19.8954,60.2069 19.8998,60.2189 19.8935,60.2308 19.8579,60.2686 19.8429,60.266 19.8359,60.2533 19.8275,60.2421 19.7991,60.2479 19.7441,60.279 19.771,60.3046 19.7878,60.3192 19.82,60.3305 19.8313,60.3305 19.8683,60.3269 20.0469,60.2772 20.2395,60.2015 20.1797,60.1354 20.1291,60.0902 20.0481,60.1028 20.0658,60.1456 20.0851,60.1535 20.0824,60.1671 20.0263,60.2259 20.0092,60.2349 19.9993,60.2377 19.9876,60.2377 19.8765,60.1418 19.8913,60.1176 19.9044,60.1096 19.9501,60.0976 19.9881,60.0817 20.0145,60.0258 20.0101,60.015 19.984,60.0133 19.9619,60.0169 19.9309,60.0177 19.9171,60.0148 19.9103,60.0059 19.9065,59.9706 19.9065,59.9706 15,-2.0,Greenland -45.0667,60.3034 -45.0553,60.2898 -45.0497,60.2732 -45.0534,60.2602 -45.1019,60.1903 -45.1131,60.1828 -45.262,60.1185 -45.2796,60.1127 -45.3232,60.1105 -45.2641,60.3117 -45.2416,60.318 -45.1074,60.3141 -45.0958,60.3128 -45.0667,60.3034 -45.0667,60.3034 18,-9.0,United States -147.6991,60.299 -147.7045,60.2811 -147.7313,60.2287 -147.7411,60.2163 -147.7544,60.2128 -147.8002,60.2101 -147.8127,60.2095 -147.8252,60.2104 -147.8607,60.2321 -147.8632,60.2443 -147.8541,60.257 -147.8049,60.2877 -147.792,60.295 -147.7469,60.3067 -147.7203,60.3121 -147.7064,60.3122 -147.6991,60.299 -147.6991,60.299 41,-9.0,United States -146.6605,60.2137 -146.6868,60.186 -146.7077,60.1689 -146.8158,60.1202 -146.853,60.1049 -146.9039,60.0859 -146.937,60.072 -146.95,60.0646 -146.9618,60.0566 -147.2048,59.8719 -147.2097,59.8611 -147.2028,59.8511 -147.2537,59.7802 -147.4364,59.7426 -147.5723,59.7051 -147.583,59.7039 -147.5942,59.7044 -147.6095,59.7066 -147.6326,59.7206 -147.6155,59.7709 -147.5141,59.8588 -147.3935,59.9341 -147.3265,59.9548 -147.1982,60.0062 -147.1684,60.0184 -147.154,60.0249 -147.1267,60.0389 -147.1042,60.057 -147.0976,60.0731 -147.0596,60.106 -146.9247,60.1959 -146.9315,60.2196 -146.9232,60.2738 -146.9155,60.2804 -146.8794,60.2968 -146.8541,60.3041 -146.8343,60.3076 -146.817,60.3073 -146.6454,60.2337 -146.6605,60.2137 -146.6605,60.2137 24,3.0,Finland 22.1714,60.169 22.177,60.197 22.1673,60.1995 22.1015,60.2067 22.1383,60.1981 22.1316,60.1886 22.1094,60.1834 22.0877,60.1832 22.0307,60.1927 22.0311,60.2192 22.0547,60.2347 22.1641,60.2362 22.1754,60.2359 22.2002,60.2336 22.276,60.2204 22.2997,60.2129 22.2915,60.1925 22.2785,60.1891 22.2686,60.192 22.2553,60.1943 22.2395,60.1932 22.1889,60.1783 22.1714,60.169 22.1714,60.169 17,3.0,Finland 19.5386,60.0493 19.526,60.0503 19.5104,60.0539 19.4868,60.0781 19.4747,60.1058 19.5016,60.155 19.5315,60.1778 19.5479,60.1829 19.565,60.1832 19.5752,60.1804 19.5905,60.1712 19.6306,60.1184 19.6371,60.1005 19.638,60.0808 19.5678,60.0805 19.5386,60.0493 19.5386,60.0493 25,3.0,Finland 22.5585,59.9112 22.5585,59.9303 22.53,59.9554 22.4825,59.9326 22.4695,59.9297 22.4288,59.9264 22.4288,59.9995 22.3822,60.0357 22.3731,60.0797 22.388,60.1219 22.4045,60.1432 22.4154,60.1485 22.4307,60.1435 22.5454,60.1299 22.6027,60.1381 22.6898,60.1471 22.7815,60.1546 22.7922,60.1213 22.8046,60.0493 22.7946,60.021 22.6886,59.9301 22.6365,59.9274 22.5909,59.9326 22.5585,59.9112 22.5585,59.9112 15,3.0,Finland 21.6982,60.0373 21.687,60.0378 21.6586,60.0415 21.6638,60.0942 21.6716,60.1083 21.6826,60.1136 21.7864,60.1182 21.8153,60.1188 21.8317,60.1122 21.844,60.1018 21.8236,60.0825 21.7443,60.0462 21.7081,60.0387 21.6982,60.0373 21.6982,60.0373 43,-2.0,Greenland -43.4905,59.8428 -43.5212,59.8495 -43.6423,59.8753 -43.6832,59.8801 -43.7148,59.8854 -43.7255,59.8881 -43.8313,59.9242 -43.8276,59.9344 -43.8517,59.9726 -43.862,59.9738 -44.0337,60.0303 -44.0486,60.071 -44.0346,60.0862 -44.0097,60.1 -43.9033,60.0944 -43.6793,60.0711 -43.6575,60.0686 -43.6466,60.0669 -43.5481,60.0449 -43.2723,60.0119 -43.1831,60.0062 -43.0805,59.9971 -43.0524,59.9862 -43.0591,59.9467 -43.0777,59.9303 -43.1118,59.9174 -43.1466,59.9184 -43.1572,59.9202 -43.2495,59.9515 -43.3554,59.9817 -43.3772,59.9878 -43.4427,60.0057 -43.4742,60.0082 -43.4921,60.003 -43.4805,59.9979 -43.4054,59.9842 -43.396,59.9744 -43.4002,59.9609 -43.407,59.9456 -43.4346,59.8902 -43.4673,59.8496 -43.4905,59.8428 -43.4905,59.8428 24,-2.0,Greenland -44.1098,60.0899 -44.085,60.0379 -44.0784,60.0283 -44.0645,60.017 -44.0083,59.991 -43.9969,59.9869 -43.9763,59.9814 -43.9315,59.9708 -43.952,59.9642 -43.9709,59.9624 -44.0006,59.9615 -44.0187,59.9614 -44.0588,59.9615 -44.073,59.966 -44.0821,59.9725 -44.1616,60.0502 -44.1638,60.0599 -44.1552,60.0776 -44.147,60.0885 -44.1305,60.0968 -44.1205,60.0969 -44.1098,60.0947 -44.1098,60.0899 -44.1098,60.0899 10,-9.0,United States -147.5983,60.0313 -147.6661,60.0037 -147.8412,59.9233 -147.8595,59.9261 -147.8621,59.9439 -147.8207,59.9888 -147.685,60.0806 -147.6101,60.0426 -147.5983,60.0313 -147.5983,60.0313 33,-2.0,Greenland -44.1635,59.9417 -44.1384,59.946 -44.114,59.9492 -44.0153,59.9461 -43.9295,59.9428 -43.9115,59.9335 -43.9217,59.9161 -43.9706,59.889 -44.0094,59.8714 -44.059,59.832 -44.0624,59.8275 -44.1202,59.8178 -44.2352,59.7997 -44.2645,59.8015 -44.2886,59.8215 -44.2965,59.8376 -44.1792,59.932 -44.2239,59.9055 -44.3218,59.8769 -44.3388,59.8771 -44.4134,59.9391 -44.4108,59.952 -44.3813,60.0269 -44.3604,60.0605 -44.3464,60.07 -44.3219,60.0717 -44.291,60.0683 -44.1958,60.0495 -44.1811,60.0419 -44.1232,59.9808 -44.1199,59.9673 -44.1635,59.9417 -44.1635,59.9417 14,3.0,Finland 20.0724,60.0157 20.0853,60.0081 20.126,59.9962 20.1551,59.9923 20.1706,59.9893 20.1888,59.9293 20.169,59.9064 20.0954,59.921 19.9641,59.9809 19.9679,59.992 20.0566,60.0204 20.0683,60.0212 20.0724,60.0157 20.0724,60.0157 18,-9.0,United States -147.5457,59.9766 -147.5516,59.9674 -147.5691,59.9479 -147.6019,59.9237 -147.615,59.9162 -147.6361,59.9065 -147.6517,59.9005 -147.7443,59.8756 -147.7633,59.8751 -147.7649,59.8865 -147.7501,59.9035 -147.7212,59.9232 -147.6051,59.9946 -147.5722,60.0091 -147.5417,59.9986 -147.5389,59.9874 -147.5457,59.9766 -147.5457,59.9766 16,2.0,Norway 5.5026,59.8211 5.4932,59.8234 5.3504,59.9162 5.4393,59.9703 5.4957,59.9833 5.5156,59.987 5.6349,60.002 5.6474,60.0028 5.6501,59.9858 5.6532,59.9541 5.6533,59.9407 5.6505,59.9247 5.5845,59.855 5.5188,59.8229 5.5026,59.8211 5.5026,59.8211 11,-2.0,Greenland -43.42,59.8313 -43.4273,59.8405 -43.4026,59.9196 -43.3872,59.9534 -43.3754,59.9634 -43.3605,59.9651 -43.2599,59.9368 -43.277,59.9005 -43.3138,59.8561 -43.42,59.8313 -43.42,59.8313 23,-2.0,Greenland -43.8197,59.7183 -43.8481,59.7327 -43.924,59.7397 -43.9789,59.7288 -43.9943,59.7287 -44.0095,59.7321 -44.0265,59.7416 -44.0324,59.7573 -44.0268,59.7956 -44.0067,59.8151 -43.8974,59.9009 -43.8799,59.9073 -43.8649,59.9068 -43.8328,59.8989 -43.6663,59.8495 -43.6443,59.8413 -43.5716,59.8053 -43.5549,59.7939 -43.558,59.7836 -43.5657,59.7756 -43.767,59.7326 -43.8197,59.7183 -43.8197,59.7183 20,3.0,Finland 22.9973,59.8253 22.9747,59.8279 22.9028,59.8302 22.8847,59.8267 22.8744,59.8264 22.8384,59.8315 22.8046,59.8474 22.7612,59.8792 22.7689,59.8977 22.784,59.9013 22.7875,59.8919 22.7953,59.8828 22.8973,59.8847 22.9386,59.8864 22.9589,59.8886 23.011,59.8864 23.0276,59.8772 23.0097,59.8288 22.9973,59.8253 22.9973,59.8253 23,2.0,Norway 5.3905,59.6798 5.3615,59.6809 5.3487,59.6851 5.2984,59.7175 5.2539,59.8093 5.2417,59.8367 5.265,59.892 5.2779,59.8995 5.3255,59.8992 5.4018,59.8682 5.4153,59.8613 5.4293,59.8514 5.4565,59.817 5.474,59.7885 5.482,59.7707 5.4844,59.7472 5.4847,59.7338 5.4805,59.7201 5.4591,59.6997 5.4178,59.6825 5.4031,59.6798 5.3905,59.6798 5.3905,59.6798 17,3.0,Finland 23.5768,59.8761 23.682,59.8594 23.6615,59.8551 23.605,59.8487 23.572,59.8536 23.5525,59.8517 23.4631,59.8435 23.3584,59.829 23.3474,59.8294 23.3326,59.8326 23.3266,59.8421 23.3398,59.8536 23.4789,59.8872 23.494,59.888 23.5052,59.8876 23.5768,59.8761 23.5768,59.8761 15,-5.0,Canada -79.7795,59.8017 -79.7321,59.7812 -79.7564,59.7563 -79.7749,59.7418 -79.875,59.6927 -79.9393,59.68 -80.0163,59.6707 -80.0324,59.6774 -79.9782,59.7522 -79.9642,59.7657 -79.9522,59.7731 -79.8606,59.8134 -79.7918,59.807 -79.7795,59.8017 -79.7795,59.8017 29,2.0,Norway 5.1394,59.5095 5.1022,59.5649 5.0607,59.7097 5.0994,59.7953 5.1092,59.8004 5.1218,59.8009 5.138,59.7983 5.2508,59.7288 5.3046,59.6778 5.3119,59.668 5.3331,59.6302 5.3015,59.6153 5.2799,59.6092 5.264,59.6124 5.2772,59.6196 5.2994,59.6287 5.2821,59.6753 5.21,59.6799 5.1775,59.6636 5.1625,59.6165 5.1723,59.5986 5.1858,59.5926 5.191,59.5624 5.1877,59.5357 5.173,59.5241 5.1603,59.5168 5.146,59.5103 5.1394,59.5095 5.1394,59.5095 21,-4.0,Canada -64.057,59.711 -63.9981,59.7792 -63.9867,59.7831 -63.9438,59.7921 -63.9306,59.7857 -63.9273,59.7775 -63.9342,59.7603 -63.9224,59.712 -63.8999,59.7091 -63.8825,59.7028 -63.8395,59.6824 -63.8769,59.6519 -63.8953,59.6439 -64.0038,59.6235 -64.0136,59.624 -64.0256,59.6248 -64.0397,59.6299 -64.0839,59.6627 -64.0717,59.6938 -64.057,59.711 -64.057,59.711 502,-9.0,United States -129.7884,55.8431 -129.8003,55.829 -129.8773,55.7555 -129.909,55.7427 -129.9484,55.6914 -129.9189,55.4761 -129.8234,55.3146 -129.7702,55.2159 -129.8542,55.1607 -129.8785,55.1406 -129.9124,55.1064 -129.9416,55.0616 -129.997,54.9893 -130.0189,54.9616 -130.0539,54.9191 -130.1429,54.8402 -130.2753,54.7673 -130.3569,54.732 -130.4865,54.7038 -130.4954,54.7343 -130.4831,54.7804 -130.5185,54.8909 -130.5265,54.8082 -130.5152,54.788 -130.5277,54.7569 -130.5855,54.7075 -130.6149,54.7031 -130.6459,54.7079 -130.6707,54.7164 -130.6874,54.7279 -130.7077,54.7577 -130.7134,54.7914 -130.7089,54.8075 -130.7046,54.8684 -130.7103,54.8938 -130.7603,54.925 -130.7828,54.9359 -130.7578,54.9865 -130.7404,54.9984 -130.6113,55.0392 -130.5765,55.0419 -130.4787,55.0521 -130.3289,55.1583 -130.2495,55.2609 -130.2799,55.2508 -130.3251,55.2173 -130.3403,55.2025 -130.3606,55.1646 -130.375,55.1492 -130.5037,55.0615 -130.5885,55.0768 -130.649,55.0509 -130.67,55.0321 -130.6962,55.0242 -130.7404,55.0202 -130.7855,55.023 -130.8341,55.0626 -130.8416,55.1215 -130.8249,55.1399 -130.7064,55.2196 -130.6552,55.224 -130.569,55.2216 -130.4175,55.2221 -130.3913,55.2293 -130.434,55.2795 -130.4604,55.2731 -130.4922,55.2427 -130.6361,55.2449 -130.6465,55.2716 -130.649,55.3478 -130.6461,55.4445 -130.6425,55.4816 -130.6401,55.5124 -130.644,55.5388 -130.659,55.6422 -130.6849,55.6752 -130.7979,55.769 -130.8853,55.8352 -130.9407,55.8755 -130.935,55.9191 -130.9122,55.9366 -130.8659,55.9558 -130.8268,55.9901 -130.7834,56.0404 -130.8452,56.0279 -130.9131,55.9848 -130.9422,55.9658 -130.9781,55.9453 -131.0973,55.8981 -131.1408,55.8955 -131.1746,55.9283 -131.2491,55.9093 -131.317,55.886 -131.5031,55.82 -131.5267,55.8139 -131.5729,55.816 -131.6518,55.7977 -131.671,55.7895 -131.6452,55.7726 -131.6231,55.7682 -131.5913,55.7648 -131.5299,55.7483 -131.5887,55.5977 -131.6083,55.5701 -131.6954,55.4689 -131.7268,55.4358 -131.7343,55.4331 -131.7964,55.4623 -131.8343,55.4779 -131.8841,55.4895 -131.9142,55.502 -131.9392,55.5191 -131.9579,55.5407 -132.0155,55.6583 -131.9417,55.7338 -131.8749,55.7396 -131.8185,55.7564 -131.8413,55.7968 -131.8241,55.8769 -131.7908,55.8904 -131.7457,55.8898 -131.7171,55.8984 -131.7102,55.9444 -131.7308,55.9888 -131.7358,56.015 -131.7256,56.0984 -131.5388,56.1306 -131.5941,56.147 -131.6692,56.1605 -131.6877,56.1734 -131.7016,56.1911 -131.7278,56.2301 -131.7363,56.259 -131.7606,56.2913 -131.8047,56.3066 -131.8334,56.3118 -131.953,56.3559 -132.1078,56.4565 -132.1171,56.4764 -132.1039,56.5311 -132.0814,56.5661 -132.1291,56.5583 -132.1749,56.5417 -132.2043,56.5371 -132.2596,56.5442 -132.2896,56.5516 -132.3164,56.5706 -132.2893,56.6475 -132.2707,56.6588 -132.2304,56.6785 -132.1808,56.7048 -132.1298,56.7496 -132.1505,56.7551 -132.1872,56.7438 -132.2239,56.7151 -132.2639,56.6835 -132.2998,56.6887 -132.3389,56.6987 -132.4075,56.7215 -132.4523,56.7406 -132.5329,56.7764 -132.6196,56.8639 -132.606,56.8984 -132.5432,56.8912 -132.5285,56.914 -132.567,57.0162 -132.6105,56.9926 -132.6682,56.9654 -132.8893,57.0122 -132.9043,57.049 -132.8856,57.0836 -132.9299,57.095 -133.0175,57.0483 -133.0455,57.0313 -133.0764,57.0341 -133.1024,57.0427 -133.1491,57.0614 -133.1629,57.0681 -133.1992,57.0725 -133.2498,57.0984 -133.2692,57.1256 -133.2586,57.1873 -133.2287,57.2127 -133.2048,57.2146 -133.0791,57.2129 -133.0502,57.2088 -133.0036,57.2073 -132.8452,57.254 -132.827,57.2785 -132.8746,57.2604 -132.9906,57.2457 -133.1116,57.2605 -133.1679,57.27 -133.2018,57.2871 -133.2664,57.4161 -133.2204,57.4726 -133.1949,57.4863 -133.1717,57.4879 -133.092,57.5074 -133.0775,57.5215 -133.1168,57.5233 -133.2071,57.514 -133.2409,57.5073 -133.2638,57.5025 -133.3082,57.4974 -133.3584,57.5061 -133.418,57.559 -133.3989,57.6278 -133.3194,57.6401 -132.9269,57.5048 -132.8818,57.4758 -132.8461,57.4499 -132.8021,57.4349 -132.767,57.4455 -132.8931,57.5177 -132.9403,57.5485 -132.9605,57.5517 -133.0796,57.5928 -133.1179,57.6084 -133.2761,57.677 -133.3028,57.7003 -133.3124,57.756 -133.3021,57.839 -133.1867,57.8382 -133.0223,57.8066 -132.8895,57.7845 -132.9417,57.8223 -133.2034,57.8496 -133.2834,57.8545 -133.315,57.8545 -133.3487,57.842 -133.3982,57.8017 -133.3784,57.7563 -133.3906,57.7278 -133.4168,57.7157 -133.4585,57.7229 -133.5613,57.8284 -133.5699,57.9037 -133.5173,57.9608 -133.4536,58.0339 -133.4363,58.0766 -133.5052,58.0637 -133.5643,57.9785 -133.5859,57.9397 -133.6365,57.9224 -133.6699,57.9109 -133.7319,57.9449 -133.7685,57.9714 -133.8156,58.0095 -133.8252,58.0318 -133.8415,58.1198 -133.8072,58.1837 -133.7502,58.2706 -133.7635,58.3201 -133.6828,58.4214 -133.6569,58.4358 -133.634,58.4396 -133.6127,58.4394 -133.5717,58.4335 -133.548,58.4364 -133.5283,58.4453 -133.6137,58.4519 -133.6353,58.4513 -133.6787,58.4422 -133.7267,58.428 -133.7985,58.3235 -133.8541,58.1709 -133.9043,58.1311 -133.9358,58.1276 -133.9947,58.1393 -134.1378,58.2174 -134.243,58.2769 -134.2721,58.2859 -134.2934,58.2896 -134.3287,58.2825 -134.3942,58.2864 -134.5107,58.3121 -134.5241,58.3659 -134.5261,58.3906 -134.6992,58.5619 -134.7264,58.5757 -134.6728,58.6175 -134.6817,58.707 -134.7018,58.7448 -134.7512,58.7352 -134.7694,58.7075 -134.7786,58.6718 -134.8107,58.6825 -134.8957,58.7728 -134.8814,58.8111 -134.9821,59.0574 -135.032,59.1325 -135.0635,59.1505 -135.1078,59.1903 -135.1039,59.2592 -135.0951,59.2955 -135.0825,59.3235 -135.0725,59.3816 -135.0949,59.3927 -135.1464,59.2967 -135.2075,59.2198 -135.1767,59.1859 -135.1084,59.1383 -135.0924,59.118 -135.0523,59.022 -135.1147,59.0559 -135.133,59.0869 -135.1429,59.1091 -135.164,59.1281 -135.2167,59.1478 -135.2363,59.1528 -135.2946,59.1544 -135.194,59.0576 -135.1452,58.9998 -135.1397,58.891 -135.0762,58.7962 -135.0625,58.7781 -134.9953,58.6511 -134.9391,58.5923 -134.9209,58.5757 -134.9366,58.5523 -134.9321,58.4908 -134.9163,58.4737 -134.8439,58.3667 -134.8254,58.3275 -134.8022,58.271 -134.8039,58.2352 -134.8388,58.1634 -134.9101,58.1377 -135.0276,58.1643 -135.0739,58.1801 -135.0966,58.1956 -135.1207,58.2227 -135.1547,58.2769 -135.1598,58.3125 -135.2224,58.4017 -135.2611,58.4052 -135.3612,58.3505 -135.5065,58.3257 -135.6616,58.3116 -135.6385,58.3813 -135.5983,58.3979 -135.587,58.4683 -135.6219,58.5321 -135.6388,58.5425 -135.6797,58.5858 -135.8145,58.7481 -135.6939,58.7905 -135.6001,58.8064 -135.5149,58.8255 -135.5527,58.8384 -135.5819,58.8399 -135.6761,58.8312 -135.7047,58.8189 -135.7945,58.8207 -135.8173,58.8743 -135.8355,58.9142 -135.8485,58.9406 -135.8907,58.9611 -135.9116,58.9567 -135.8915,58.945 -135.8566,58.8587 -135.843,58.792 -135.8524,58.7602 -135.8787,58.708 -135.9161,58.6846 -135.9851,58.6813 -136.2169,58.7592 -136.3283,58.8453 -136.4025,58.8957 -136.431,58.8417 -136.5138,58.8712 -136.6304,58.9207 -136.7844,58.997 -136.8159,58.9947 -136.779,59.0067 -136.7154,59.0274 -136.6877,59.0386 -136.6343,59.061 -136.5549,59.0942 -136.4658,59.0944 -136.3577,59.0937 -136.3302,59.0923 -136.3045,59.1154 -136.2327,59.1847 -136.2086,59.225 -136.208,59.3011 -136.2094,59.343 -136.2086,59.3982 -136.1169,59.3811 -136.0417,59.4022 -135.9793,59.4545 -135.9843,59.49 -136.0433,59.5121 -136.0898,59.53 -136.0554,59.5411 -135.9525,59.5677 -135.9049,59.5749 -135.8659,59.5799 -135.8163,59.5857 -135.6943,59.5975 -135.5684,59.634 -135.2517,59.7222 -135.2191,59.7301 -135.0823,59.6548 -134.9243,59.5654 -134.901,59.5556 -134.8733,59.5507 -134.8442,59.5499 -134.7619,59.4962 -134.7624,59.4689 -134.7656,59.4276 -134.7759,59.3981 -134.8111,59.3867 -134.8274,59.3734 -134.8393,59.3555 -134.7005,59.2091 -134.4881,59.1793 -134.4376,59.1724 -134.4232,59.1366 -134.4005,59.1146 -134.3164,59.0596 -134.2824,59.0613 -134.2172,59.0582 -134.1337,58.9827 -134.0769,58.9006 -134.0791,58.8549 -133.9902,58.7841 -133.84,58.7378 -133.5801,58.656 -133.5619,58.6398 -133.4897,58.5745 -133.3135,58.458 -133.1853,58.3892 -133.1434,58.3422 -133.1645,58.3305 -133.1861,58.2905 -133.1172,58.2109 -133.0624,58.1877 -132.9904,58.1418 -132.9682,58.127 -132.9469,58.1107 -132.8944,58.0666 -132.866,58.0166 -132.8491,57.9714 -132.8286,57.9431 -132.8136,57.9278 -132.7968,57.9137 -132.7534,57.8825 -132.7234,57.8643 -132.6919,57.8404 -132.6363,57.7906 -132.5755,57.7291 -132.5556,57.7026 -132.5465,57.6832 -132.5227,57.6516 -132.3801,57.515 -132.2597,57.4021 -132.2336,57.3828 -132.2127,57.3669 -132.1366,57.307 -132.1165,57.2863 -131.99,57.1368 -132.0246,57.1009 -132.0878,57.0214 -131.9852,57.0003 -131.7917,56.9686 -131.801,56.9453 -131.8267,56.8921 -131.8569,56.8262 -131.8683,56.7991 -131.6276,56.7286 -131.6242,56.6515 -131.5911,56.5315 -131.3784,56.5352 -131.3463,56.5363 -131.3161,56.5323 -131.0826,56.4433 -131.0583,56.4336 -130.9819,56.4022 -130.9334,56.3783 -130.9134,56.3678 -130.8947,56.3575 -130.8318,56.334 -130.6894,56.3157 -130.6169,56.3077 -130.5443,56.2995 -130.5258,56.2863 -130.4908,56.2588 -130.3979,56.1922 -130.3314,56.1835 -130.3037,56.1798 -130.2555,56.1731 -130.233,56.1688 -130.2186,56.1399 -130.137,56.0574 -130.0013,56.0242 -129.8608,56.0518 -129.8262,56.0094 -129.7873,55.9585 -129.7884,55.8431 -129.7884,55.8431 18,-5.0,Canada -80.0201,59.6024 -80.0556,59.5938 -80.0723,59.5887 -80.0808,59.5821 -80.09,59.564 -80.1105,59.5522 -80.127,59.5471 -80.1685,59.5408 -80.1793,59.541 -80.191,59.5467 -80.1445,59.6067 -80.0823,59.6534 -80.0715,59.6519 -80.0208,59.6436 -79.9993,59.6361 -80.0055,59.6089 -80.0201,59.6024 -80.0201,59.6024 259,3.0,Estonia 24.271,57.8027 24.2979,57.8627 24.3143,57.8926 24.3458,57.9337 24.3622,57.9536 24.3857,57.9742 24.4122,58.007 24.4264,58.0582 24.4256,58.083 24.4079,58.1135 24.4248,58.1695 24.4396,58.1855 24.4897,58.2097 24.5129,58.2308 24.5099,58.255 24.4731,58.2832 24.4143,58.3086 24.3752,58.3168 24.3459,58.321 24.311,58.3216 24.2862,58.3171 24.2532,58.2827 24.244,58.2465 24.1978,58.2044 24.0597,58.1661 24.0097,58.2011 23.9672,58.2292 23.9494,58.238 23.9295,58.2462 23.8999,58.2546 23.783,58.2849 23.7328,58.2789 23.6853,58.3012 23.6359,58.3559 23.5808,58.4551 23.4816,58.4883 23.4582,58.5071 23.4523,58.6239 23.4922,58.6715 23.5261,58.6654 23.5486,58.6624 23.6821,58.6745 23.8203,58.7028 23.7832,58.7207 23.7544,58.7294 23.5483,58.7177 23.4398,58.7397 23.3747,58.8388 23.3949,58.8695 23.4338,58.8669 23.4642,58.8665 23.5392,58.8784 23.5932,58.9035 23.5805,58.9389 23.5471,58.9646 23.5234,58.9714 23.5634,58.943 23.513,58.917 23.4709,58.9105 23.4229,58.9134 23.4012,58.9211 23.3673,58.9451 23.3893,58.9863 23.4392,59.0185 23.4224,59.1314 23.4618,59.1557 23.5697,59.1687 23.6754,59.1593 23.6976,59.1651 23.6985,59.1753 23.6922,59.1812 23.6856,59.2018 23.7865,59.2186 23.8125,59.2132 23.8537,59.2011 23.8916,59.2013 23.9828,59.2168 23.9787,59.2941 23.9991,59.3206 24.0283,59.3219 24.0605,59.3143 24.0786,59.3056 24.1033,59.2905 24.1366,59.2752 24.1607,59.2729 24.277,59.3577 24.2838,59.3904 24.3118,59.4011 24.3572,59.4028 24.491,59.3857 24.6767,59.3816 24.7387,59.4455 24.7281,59.4893 24.7495,59.4936 24.8182,59.4715 24.8409,59.4518 24.8721,59.4352 25.0039,59.4405 25.0607,59.458 25.1074,59.4604 25.2114,59.4427 25.2358,59.4377 25.2716,59.4276 25.3118,59.4193 25.3518,59.4168 25.4413,59.4933 25.4299,59.5863 25.5502,59.5263 25.5895,59.4954 25.617,59.4912 25.6576,59.4991 25.665,59.5206 25.6424,59.5458 25.6324,59.5899 25.6667,59.5932 25.7244,59.5648 25.8248,59.5273 25.9316,59.5612 25.9884,59.5499 26.0292,59.5292 26.2141,59.5142 26.3405,59.4903 26.4091,59.4697 26.4385,59.4617 26.4823,59.4663 26.5256,59.4809 26.572,59.4857 26.601,59.482 26.6259,59.4759 26.6871,59.4512 26.7228,59.4326 26.7674,59.4095 26.805,59.3963 26.8336,59.3878 26.8712,59.3794 26.9226,59.3733 26.9829,59.3713 27.0369,59.3709 27.1345,59.3756 27.3402,59.3771 27.3763,59.3769 27.3999,59.3749 27.432,59.3683 27.4589,59.3631 27.5016,59.3574 27.7961,59.3355 27.8361,59.3374 27.8814,59.346 27.902,59.3539 27.9258,59.3693 27.9437,59.3831 27.9637,59.4074 27.9742,59.4036 28.0239,59.3821 28.0572,59.3647 28.123,59.3225 28.1415,59.2969 28.127,59.2573 28.1118,59.2327 28.0918,59.2198 28.0435,59.213 28.0034,59.2082 27.9684,59.2072 27.9439,59.2135 27.9095,59.2152 27.8647,59.2028 27.8283,59.1571 27.7857,59.0801 27.7555,59.0231 27.7389,58.9904 27.6539,58.9154 27.6381,58.9089 27.5459,58.8608 27.491,58.8346 27.4431,58.8113 27.4067,58.7822 27.389,58.7637 27.3779,58.7455 27.3713,58.7147 27.4006,58.6168 27.4391,58.5036 27.4481,58.4846 27.469,58.434 27.4848,58.3812 27.4921,58.3443 27.4931,58.3242 27.4897,58.2951 27.47,58.2742 27.4411,58.2551 27.4159,58.2274 27.4258,58.1438 27.5016,58.0657 27.5229,58.0531 27.5596,58.0381 27.5955,58.0257 27.6235,58.0063 27.6363,57.8963 27.7289,57.8315 27.7631,57.8173 27.7699,57.7987 27.7352,57.7795 27.6939,57.7684 27.6521,57.7627 27.6236,57.7613 27.5799,57.7597 27.5273,57.7541 27.4988,57.7498 27.3539,57.6127 27.2992,57.5203 27.3135,57.4772 27.3228,57.4672 27.261,57.463 27.0285,57.4967 26.9967,57.5257 26.9765,57.5394 26.9474,57.5497 26.9216,57.5547 26.8536,57.5649 26.8301,57.5634 26.6496,57.5071 26.5765,57.4779 26.5591,57.4585 26.4837,57.4544 26.4639,57.4577 26.2588,57.5396 26.2336,57.5558 26.1572,57.6265 25.988,57.7543 25.8999,57.7851 25.8362,57.7869 25.7896,57.7915 25.7546,57.7971 25.5742,57.8485 25.4059,57.9361 25.3838,57.9628 25.2519,58.0142 25.2215,58.0029 25.2495,57.9691 25.2493,57.9416 25.1942,57.9237 25.1738,57.9325 25.1634,57.9513 25.1562,57.9752 25.1402,57.9956 25.1207,58.0058 25.0863,58.0073 25.0461,58.0023 25.02,57.994 24.9928,57.9811 24.9703,57.9704 24.679,57.8959 24.5056,57.8844 24.3996,57.8337 24.3866,57.8135 24.3673,57.8035 24.3289,57.8 24.2804,57.8014 24.271,57.8027 24.271,57.8027 15,2.0,Sweden 17.2242,59.3023 17.1992,59.3042 17.1197,59.3139 17.0384,59.3854 17.058,59.3887 17.1186,59.3853 17.2041,59.3785 17.2247,59.3755 17.235,59.373 17.2481,59.3656 17.2848,59.3343 17.2814,59.3247 17.2342,59.3034 17.2242,59.3023 17.2242,59.3023 16,2.0,Sweden 17.7448,59.2377 17.7214,59.2384 17.6887,59.2451 17.6543,59.2568 17.6391,59.2637 17.6292,59.2717 17.5849,59.3266 17.5755,59.3478 17.5903,59.3541 17.6059,59.355 17.6179,59.3529 17.7078,59.3201 17.7427,59.2994 17.7549,59.2435 17.7448,59.2377 17.7448,59.2377 19,2.0,Norway 5.151,59.0721 5.1456,59.0761 5.1229,59.1335 5.1224,59.1499 5.1289,59.1955 5.1713,59.3385 5.1848,59.3417 5.1989,59.3364 5.2124,59.3263 5.2769,59.2475 5.2832,59.1861 5.2835,59.1697 5.2782,59.148 5.2465,59.0762 5.2238,59.0802 5.2132,59.0804 5.1807,59.077 5.151,59.0721 5.151,59.0721 17,-9.0,United States -153.1068,59.3312 -153.0686,59.3096 -153.06,59.2906 -153.0865,59.2739 -153.1009,59.2671 -153.1208,59.2604 -153.2176,59.2549 -153.2298,59.255 -153.248,59.2594 -153.2658,59.267 -153.2661,59.2934 -153.2326,59.3138 -153.1563,59.3392 -153.1458,59.3409 -153.1169,59.3358 -153.1068,59.3312 -153.1068,59.3312 17,-9.0,United States -150.329,59.3095 -150.3314,59.2974 -150.3419,59.2821 -150.3513,59.2734 -150.3617,59.2654 -150.3737,59.2577 -150.4076,59.2374 -150.4337,59.2349 -150.4836,59.2468 -150.4951,59.2548 -150.4098,59.3329 -150.3963,59.335 -150.3856,59.3336 -150.3574,59.3279 -150.3382,59.3206 -150.329,59.3095 -150.329,59.3095 16,1.0,United Kingdom -2.6808,59.1132 -2.6868,59.122 -2.6864,59.1413 -2.6794,59.1498 -2.5877,59.2195 -2.5506,59.232 -2.5294,59.2341 -2.4014,59.2416 -2.3925,59.2324 -2.3855,59.2102 -2.4906,59.174 -2.5691,59.1712 -2.6178,59.1639 -2.6763,59.1249 -2.6808,59.1132 -2.6808,59.1132 75,12.0,Russia 163.3663,58.9272 163.3741,58.9339 163.3963,58.9439 163.4428,58.9533 163.4716,58.9564 163.5402,58.9599 163.5604,58.96 163.5885,58.9603 163.6504,58.9646 163.7111,58.9756 163.7272,58.9798 163.9267,59.0349 164.0511,59.0876 164.1225,59.1298 164.1339,59.1345 164.2167,59.1611 164.233,59.165 164.2474,59.1661 164.2598,59.1652 164.2718,59.157 164.3518,59.0138 164.3994,58.9542 164.3756,58.8345 164.3683,58.8257 164.3475,58.8122 164.3334,58.808 164.3175,58.804 164.3025,58.8012 164.2882,58.8 164.166,58.7963 163.9911,58.7703 163.8817,58.7531 163.8026,58.726 163.6767,58.6759 163.6217,58.6444 163.4418,58.5713 163.2918,58.5143 163.2786,58.5097 163.2609,58.499 163.2177,58.4704 163.1791,58.4327 163.1712,58.4203 163.166,58.4045 163.1578,58.3955 163.146,58.3976 163.1374,58.4047 163.1297,58.4125 163.1074,58.4439 163.0958,58.4666 163.0858,58.4895 163.1697,58.5085 163.1832,58.5128 163.194,58.5179 163.2724,58.5656 163.2849,58.577 163.3904,58.6749 163.4384,58.7486 163.4422,58.7617 163.443,58.7752 163.4406,58.7964 163.4414,58.8097 163.4474,58.8222 163.4681,58.8462 163.5129,58.8859 163.5308,58.8968 163.5388,58.9244 163.5151,58.9379 163.4672,58.9463 163.4548,58.9473 163.4413,58.947 163.4267,58.9451 163.3947,58.9372 163.3812,58.9327 163.3663,58.9272 163.3663,58.9272 29,1.0,United Kingdom -2.819,58.8084 -2.8637,58.8229 -2.9645,58.8689 -3.0027,58.8696 -3.0513,58.8652 -3.1045,58.8577 -3.1137,58.8508 -3.1662,58.8405 -3.1854,58.8401 -3.297,58.8751 -3.307,58.8796 -3.339,58.8951 -3.3556,58.9234 -3.3615,58.9413 -3.3445,59.0375 -3.3111,59.0588 -3.2687,59.0697 -3.2326,59.0753 -3.2126,59.0779 -3.1931,59.077 -3.0692,59.0498 -2.9909,58.9973 -2.9902,58.985 -2.9417,58.9276 -2.8469,58.905 -2.7878,58.8808 -2.7507,58.8471 -2.819,58.8084 -2.819,58.8084 72,3.0,Estonia 22.5238,58.6165 22.5059,58.6172 22.4902,58.6183 22.4763,58.621 22.4386,58.6296 22.427,58.6412 22.4305,58.6935 22.4066,58.7643 22.3849,58.7847 22.3637,58.8011 22.3447,58.814 22.3285,58.8199 22.2951,58.8219 22.2358,58.8191 22.2046,58.8083 22.1884,58.8078 22.1362,58.8183 22.1242,58.8215 22.0228,58.8531 22.0086,58.8595 22.0036,58.872 22.0117,58.8792 22.0242,58.8815 22.1502,58.8769 22.3343,58.881 22.3931,58.8959 22.4264,58.9076 22.4462,58.9216 22.4818,58.9517 22.5339,58.998 22.6548,58.9771 22.6587,58.9462 22.6776,58.9329 22.6917,58.9308 22.7077,58.9295 22.7592,58.9265 22.8007,58.9317 22.8185,58.931 22.8874,58.9119 22.9103,58.8964 23.0033,58.7774 23.0029,58.766 22.9792,58.75 22.9628,58.7602 22.9184,58.7746 22.9059,58.7742 22.8424,58.7626 22.8248,58.7515 22.8432,58.7435 22.8436,58.7133 22.8059,58.7034 22.774,58.7024 22.7565,58.7032 22.7393,58.7084 22.7384,58.7226 22.751,58.7298 22.7619,58.7333 22.7842,58.7493 22.7703,58.7559 22.7562,58.7545 22.7339,58.7482 22.7014,58.7327 22.6792,58.7112 22.6596,58.6835 22.6496,58.6651 22.636,58.6434 22.6252,58.635 22.6046,58.6274 22.5825,58.6209 22.554,58.618 22.5238,58.6165 22.5238,58.6165 23,3.0,Estonia 23.1494,58.9714 23.2826,58.9667 23.2967,58.9647 23.3086,58.9613 23.3229,58.9548 23.3464,58.9308 23.3465,58.9156 23.3378,58.9056 23.3268,58.9024 23.2491,58.8937 23.2342,58.8926 23.1376,58.8904 23.1218,58.8921 23.1056,58.8979 23.0952,58.9061 23.0693,58.9504 23.0746,58.9602 23.0838,58.9642 23.0949,58.9677 23.1081,58.9697 23.1387,58.9717 23.1494,58.9714 23.1494,58.9714 15,1.0,United Kingdom -3.2252,58.7054 -3.2905,58.7066 -3.4262,58.8054 -3.4086,58.8368 -3.3914,58.8469 -3.3428,58.8565 -3.3291,58.8568 -3.2247,58.8155 -3.2085,58.8036 -3.1294,58.7322 -3.1332,58.7155 -3.1541,58.7109 -3.1746,58.7088 -3.2252,58.7054 -3.2252,58.7054 15,1.0,United Kingdom -2.9337,58.6599 -2.9423,58.6603 -2.952,58.6645 -2.9647,58.6719 -2.9742,58.6799 -3.0263,58.7507 -3.0013,58.7621 -2.9691,58.7647 -2.9106,58.7685 -2.8913,58.7674 -2.8808,58.7616 -2.8716,58.7517 -2.9107,58.6627 -2.9337,58.6599 -2.9337,58.6599 21,-9.0,United States -160.8165,58.5852 -160.7634,58.6318 -160.7457,58.6399 -160.6509,58.67 -160.6393,58.6715 -160.5875,58.676 -160.5674,58.6805 -160.5507,58.6862 -160.4788,58.713 -160.463,58.7217 -160.4496,58.7319 -160.3931,58.7442 -160.6067,58.5082 -160.6159,58.4998 -160.6299,58.4932 -160.6483,58.4881 -160.6612,58.487 -160.7919,58.4868 -160.7898,58.516 -160.8165,58.5852 -160.8165,58.5852 22,3.0,Estonia 23.2049,58.6008 23.2288,58.5943 23.2745,58.5807 23.3002,58.571 23.3543,58.4922 23.3534,58.4809 23.3333,58.4633 23.3222,58.4599 23.1848,58.4599 23.1728,58.4633 23.0486,58.5102 23.0258,58.5213 23.0166,58.5345 23.0223,58.5489 23.0979,58.5957 23.1071,58.6003 23.1309,58.6056 23.144,58.6081 23.1584,58.6089 23.1737,58.6075 23.2049,58.6008 23.2049,58.6008 1561,1.0,United Kingdom -3.0475,53.7047 -3.0537,53.7221 -3.0545,53.7348 -3.0472,53.8446 -3.0382,53.8556 -3.0197,53.863 -2.9276,53.8876 -2.892,53.936 -2.8286,54.022 -2.8125,54.0795 -2.8086,54.1593 -2.926,54.09 -3.1467,54.0186 -3.2092,54.0322 -3.2243,54.0378 -3.3745,54.1809 -3.4048,54.2165 -3.4064,54.2278 -3.4279,54.2845 -3.4599,54.315 -3.487,54.3398 -3.5186,54.3626 -3.5508,54.3847 -3.6069,54.4247 -3.6263,54.4484 -3.5628,54.5785 -3.4232,54.7515 -3.3856,54.8123 -3.3752,54.82 -3.2833,54.8737 -3.2644,54.8771 -3.203,54.8852 -3.1825,54.8822 -3.1734,54.876 -3.1273,54.8671 -3.0979,54.8694 -3.0204,54.8832 -3.0218,54.9084 -3.036,54.9144 -3.0454,54.9153 -3.0609,54.9105 -3.1415,54.9006 -3.3547,54.907 -3.3704,54.9082 -3.3847,54.9098 -3.4393,54.9219 -3.5649,54.9264 -3.5742,54.9051 -3.6095,54.811 -3.6225,54.8132 -3.6859,54.8169 -3.8056,54.7848 -3.8629,54.741 -3.9467,54.7035 -3.958,54.7012 -3.9724,54.7012 -4.0885,54.7035 -4.1284,54.7105 -4.3428,54.7948 -4.3709,54.8175 -4.3731,54.8288 -4.3771,54.8411 -4.3904,54.8421 -4.4167,54.8174 -4.4209,54.7998 -4.4035,54.7617 -4.352,54.7068 -4.3383,54.6453 -4.3406,54.6353 -4.3482,54.6239 -4.3574,54.6163 -4.3683,54.6125 -4.3795,54.6115 -4.3944,54.6129 -4.4885,54.635 -4.4983,54.6388 -4.5499,54.675 -4.553,54.6859 -4.5907,54.7162 -4.6728,54.7357 -4.7322,54.7573 -4.7927,54.7915 -4.8058,54.7974 -4.8172,54.8 -4.8436,54.8042 -4.8852,54.7879 -4.9157,54.7727 -4.927,54.7655 -4.9521,54.7327 -4.9362,54.7033 -4.9035,54.6525 -4.8915,54.6369 -4.8796,54.632 -4.8623,54.6212 -4.8489,54.5655 -4.8556,54.5633 -4.9139,54.5765 -4.9283,54.5826 -4.9416,54.5909 -4.9537,54.6174 -4.944,54.6327 -4.9497,54.6601 -4.9964,54.6992 -5.0264,54.718 -5.0659,54.7416 -5.0937,54.7574 -5.1076,54.7676 -5.1229,54.7809 -5.1331,54.7929 -5.1609,54.8268 -5.1687,54.8399 -5.1753,54.8573 -5.1765,54.8719 -5.1691,54.9244 -5.1652,54.9363 -5.1531,54.9445 -5.1431,54.9472 -5.096,54.9592 -5.0448,54.9842 -5.0037,55.0685 -4.9903,55.0769 -4.9653,55.0901 -4.9264,55.1135 -4.8568,55.1584 -4.8392,55.2044 -4.8285,55.2536 -4.7399,55.3452 -4.7205,55.355 -4.7054,55.3597 -4.6741,55.3686 -4.6454,55.372 -4.6313,55.3775 -4.6053,55.4255 -4.6149,55.4484 -4.651,55.4965 -4.6788,55.532 -4.6883,55.5403 -4.6995,55.5455 -4.7209,55.5524 -4.7609,55.5632 -4.8049,55.58 -4.8524,55.6066 -4.8672,55.6164 -4.8951,55.6242 -4.9077,55.6352 -4.8697,55.8706 -4.8154,55.8835 -4.7819,55.8847 -4.7432,55.8801 -4.7013,55.8679 -4.562,55.8551 -4.5151,55.8527 -4.4773,55.8576 -4.4932,55.8631 -4.6191,55.8795 -4.7681,55.9137 -4.8017,55.9104 -4.846,55.9204 -4.8577,55.9655 -4.8509,56.0042 -4.8377,56.0199 -4.8199,56.0467 -4.8586,56.0395 -4.8728,56.0051 -4.8896,55.9155 -4.9044,55.8953 -4.9197,55.8675 -4.9531,55.8142 -4.9779,55.7988 -5.0034,55.8011 -5.0168,55.8038 -5.1008,55.8371 -5.1641,55.8631 -5.197,55.856 -5.2151,55.8359 -5.2202,55.8081 -5.1986,55.7785 -5.1982,55.7629 -5.2829,55.7814 -5.296,55.7864 -5.3303,55.836 -5.3312,55.8601 -5.2997,55.9397 -5.2715,55.9684 -5.2642,55.9755 -5.1914,56.0523 -5.063,56.1206 -4.9654,56.1667 -4.9384,56.1833 -4.9133,56.2047 -5.0231,56.166 -5.1967,56.071 -5.2297,56.0525 -5.2493,56.0408 -5.278,56.0178 -5.2965,56.0031 -5.3074,55.989 -5.3293,55.9682 -5.3465,55.9589 -5.3897,55.9334 -5.4195,55.9409 -5.4094,55.8407 -5.3706,55.6847 -5.3947,55.6707 -5.4364,55.6412 -5.4436,55.6212 -5.4594,55.6029 -5.4767,55.5773 -5.5456,55.3491 -5.5243,55.3316 -5.5054,55.2981 -5.5134,55.287 -5.5256,55.2754 -5.5572,55.2517 -5.5861,55.2408 -5.7279,55.2272 -5.7423,55.2267 -5.7559,55.2287 -5.7716,55.2339 -5.7787,55.2436 -5.7851,55.295 -5.7855,55.3081 -5.784,55.3228 -5.7774,55.3313 -5.7489,55.3522 -5.7143,55.3688 -5.7076,55.3794 -5.7078,55.4494 -5.6914,55.5229 -5.6593,55.596 -5.5999,55.6937 -5.6373,55.7156 -5.6632,55.7393 -5.6669,55.8226 -5.6678,55.8336 -5.6637,55.8476 -5.6542,55.8532 -5.645,55.859 -5.6237,55.9001 -5.5703,55.9471 -5.5682,55.9712 -5.5875,55.9659 -5.6155,55.9544 -5.6502,55.9164 -5.6658,55.908 -5.6678,55.9278 -5.6322,55.977 -5.6224,55.9857 -5.5914,56.01 -5.5535,56.0469 -5.51,56.0985 -5.506,56.119 -5.5224,56.1162 -5.5491,56.1031 -5.5638,56.0937 -5.5876,56.0932 -5.5865,56.1906 -5.5615,56.2617 -5.5163,56.307 -5.5131,56.3199 -5.4275,56.3557 -5.4146,56.3643 -5.318,56.3689 -5.2991,56.3627 -5.2295,56.369 -5.2116,56.369 -5.1966,56.3741 -5.184,56.3816 -5.1264,56.4183 -5.1115,56.4285 -5.0984,56.4408 -5.061,56.4937 -5.075,56.4901 -5.0868,56.4779 -5.0947,56.4627 -5.1063,56.446 -5.1818,56.3952 -5.1936,56.3875 -5.2052,56.3852 -5.2227,56.3841 -5.3586,56.4076 -5.389,56.4119 -5.3673,56.4542 -5.354,56.448 -5.3271,56.4495 -5.2412,56.4904 -5.3086,56.4894 -5.3272,56.4812 -5.344,56.4795 -5.3644,56.4922 -5.3733,56.5159 -5.3051,56.5896 -5.2326,56.6452 -5.167,56.6927 -5.1231,56.7268 -5.1117,56.7474 -5.145,56.7319 -5.1796,56.7091 -5.2245,56.676 -5.3537,56.5949 -5.554,56.4738 -5.5828,56.4573 -5.5918,56.4526 -5.6666,56.427 -5.6835,56.4443 -5.78,56.4713 -5.816,56.4753 -5.8734,56.4864 -5.885,56.49 -5.9199,56.5027 -5.9319,56.5095 -5.9851,56.5444 -5.9984,56.5553 -5.999,56.5665 -5.9858,56.5782 -5.9768,56.5822 -5.964,56.5844 -5.8719,56.5897 -5.689,56.6155 -5.6384,56.6133 -5.6025,56.6147 -5.5422,56.6216 -5.7292,56.6443 -5.7554,56.6443 -5.7689,56.6406 -5.7822,56.6344 -5.8156,56.6242 -5.8349,56.6137 -5.9086,56.6068 -6.1803,56.6124 -6.1978,56.6169 -6.2165,56.6301 -6.2234,56.6495 -6.1807,56.6816 -6.1291,56.6905 -5.9561,56.7128 -5.9402,56.7136 -5.9294,56.7084 -5.8944,56.6896 -5.8569,56.6756 -5.8389,56.6774 -5.7917,56.7243 -5.829,56.7361 -5.8453,56.747 -5.8426,56.7606 -5.7752,56.7721 -5.7387,56.7749 -5.7225,56.7718 -5.7075,56.772 -5.6525,56.8018 -5.6622,56.8086 -5.7323,56.8261 -5.7572,56.8251 -5.8075,56.8181 -5.8547,56.812 -5.8722,56.8115 -5.9087,56.8198 -5.8153,56.9359 -5.7957,56.9437 -5.7835,56.9461 -5.753,56.9424 -5.7405,56.9441 -5.7233,56.9414 -5.7119,56.9292 -5.6868,56.9216 -5.6613,56.9123 -5.6509,56.9087 -5.6357,56.9045 -5.6195,56.9055 -5.5691,56.9125 -5.556,56.9147 -5.5281,56.9218 -5.514,56.9296 -5.5419,56.9256 -5.5591,56.9222 -5.6059,56.9173 -5.6213,56.9172 -5.6438,56.9245 -5.7632,56.9777 -5.7767,56.9863 -5.7752,57.0003 -5.7648,57.0128 -5.7142,57.0454 -5.6811,57.0432 -5.641,57.0483 -5.6102,57.0428 -5.6014,57.0358 -5.5674,57.0299 -5.5492,57.0248 -5.5271,57.0204 -5.5081,57.0202 -5.3931,57.0429 -5.411,57.0498 -5.4335,57.0505 -5.4474,57.0487 -5.4717,57.0443 -5.5403,57.0485 -5.6371,57.0938 -5.6358,57.1671 -5.6003,57.1731 -5.5506,57.1866 -5.5385,57.1886 -5.5296,57.1794 -5.4848,57.1709 -5.4668,57.1617 -5.4396,57.1534 -5.4152,57.151 -5.3953,57.1629 -5.5025,57.2093 -5.5609,57.2161 -5.5885,57.2622 -5.5653,57.2639 -5.5103,57.291 -5.4826,57.3028 -5.4508,57.3201 -5.4427,57.3277 -5.4412,57.3498 -5.4521,57.3518 -5.4933,57.3328 -5.6222,57.3023 -5.7406,57.2753 -5.7632,57.2719 -5.7782,57.2758 -5.8073,57.2943 -5.8493,57.3827 -5.856,57.3996 -5.8607,57.4108 -5.859,57.4255 -5.8396,57.4813 -5.829,57.5042 -5.8051,57.5106 -5.7662,57.5014 -5.7394,57.4797 -5.6428,57.4402 -5.6326,57.4404 -5.6096,57.4564 -5.5206,57.46 -5.5,57.4646 -5.5096,57.48 -5.5251,57.4838 -5.6331,57.4838 -5.6446,57.4786 -5.6594,57.4783 -5.6851,57.4911 -5.8001,57.5711 -5.8064,57.7506 -5.7906,57.7851 -5.7563,57.7959 -5.7445,57.7985 -5.7063,57.8006 -5.683,57.7831 -5.6731,57.777 -5.6525,57.7202 -5.6306,57.7053 -5.5965,57.6975 -5.5713,57.7505 -5.5712,57.7626 -5.5893,57.776 -5.6152,57.7832 -5.6243,57.7956 -5.6336,57.8116 -5.6342,57.8307 -5.6215,57.8425 -5.6006,57.8545 -5.4475,57.79 -5.4187,57.832 -5.3287,57.8519 -5.2079,57.8319 -5.1181,57.8005 -5.1023,57.7904 -5.0935,57.7819 -5.0889,57.7993 -5.1836,57.8817 -5.1934,57.8855 -5.2529,57.9022 -5.3882,57.9621 -5.407,57.9735 -5.4426,58.005 -5.4324,58.0243 -5.4128,58.0289 -5.3983,58.0251 -5.3741,58.0145 -5.362,58.0068 -5.3051,57.995 -5.2836,57.9992 -5.2716,58.0081 -5.264,58.0478 -5.2648,58.0792 -5.2844,58.0807 -5.3876,58.181 -5.3795,58.1908 -5.3587,58.1895 -5.1939,58.1814 -5.0622,58.195 -5.0727,58.1995 -5.1169,58.2179 -5.1552,58.2558 -5.1652,58.2804 -5.1594,58.2954 -5.0999,58.4386 -4.9923,58.5541 -4.7613,58.5325 -4.6928,58.4885 -4.668,58.4545 -4.6931,58.44 -4.7091,58.4247 -4.7524,58.3763 -4.7326,58.3787 -4.6593,58.4185 -4.5904,58.4603 -4.591,58.4799 -4.5889,58.4914 -4.5799,58.501 -4.5696,58.5044 -4.5519,58.506 -4.4983,58.4977 -4.4678,58.4911 -4.4281,58.4791 -4.4204,58.4696 -4.2692,58.4635 -4.0728,58.4853 -3.896,58.4882 -3.8412,58.4901 -3.7754,58.4976 -3.7233,58.5228 -3.7046,58.5336 -3.6535,58.5495 -3.5692,58.5519 -3.5466,58.5392 -3.3631,58.5257 -3.3533,58.5294 -3.3466,58.5463 -3.3669,58.5575 -3.3474,58.5906 -3.1702,58.5794 -3.0169,58.5766 -3.009,58.5681 -3.0523,58.3811 -3.1039,58.3121 -3.116,58.2999 -3.1994,58.2365 -3.3311,58.2074 -3.3539,58.2056 -3.3754,58.1953 -3.4139,58.1741 -3.4378,58.1536 -3.4525,58.1338 -3.4767,58.1132 -3.5067,58.0942 -3.5596,58.07 -3.6777,58.0205 -3.8378,57.9508 -3.9893,57.8814 -4.004,57.8578 -3.9842,57.837 -4.0077,57.7988 -4.0992,57.7829 -4.1124,57.7818 -4.2353,57.8015 -4.3542,57.8287 -4.3698,57.8345 -4.3835,57.8324 -4.3418,57.7915 -4.2896,57.7774 -4.2752,57.7754 -4.1421,57.7563 -4.0356,57.7455 -3.9192,57.7386 -3.8674,57.7463 -3.8435,57.7512 -3.8309,57.7588 -3.8164,57.7796 -3.7997,57.7893 -3.7814,57.7922 -3.7668,57.786 -3.7709,57.7749 -3.8125,57.7358 -3.8584,57.6997 -3.9406,57.646 -3.9613,57.6337 -3.9703,57.6295 -3.9813,57.6268 -3.9938,57.6245 -4.0117,57.6335 -4.0088,57.6478 -4.0119,57.6592 -4.0238,57.6626 -4.0778,57.6575 -4.0902,57.6551 -4.2887,57.6058 -4.4084,57.533 -4.4234,57.5042 -4.4067,57.5044 -4.3701,57.5214 -4.3357,57.5391 -4.3224,57.5505 -4.3044,57.5596 -4.2516,57.5865 -4.2414,57.591 -4.2198,57.5962 -4.1837,57.6027 -4.0732,57.5968 -4.0393,57.574 -4.1038,57.5297 -4.1718,57.494 -4.2029,57.4677 -4.2209,57.4471 -4.2299,57.4284 -4.2174,57.4207 -4.2052,57.4178 -4.1889,57.4174 -4.1714,57.4212 -4.1514,57.4285 -4.0322,57.4874 -3.7473,57.5565 -3.6339,57.5703 -3.6177,57.5641 -3.5886,57.5679 -3.5157,57.5946 -3.4985,57.6063 -3.4891,57.6223 -3.4914,57.634 -3.4814,57.6406 -3.3333,57.6548 -3.2799,57.6562 -3.2718,57.6493 -3.2549,57.6361 -3.2401,57.6296 -3.2172,57.623 -3.1176,57.603 -3.075,57.5971 -3.0329,57.594 -3.0169,57.5965 -2.9839,57.6056 -2.962,57.6115 -2.9369,57.6207 -2.9183,57.6284 -2.8925,57.6384 -2.8474,57.6371 -2.7812,57.6336 -2.6407,57.6194 -2.5652,57.6109 -2.5054,57.6032 -2.4397,57.5999 -2.3917,57.5977 -2.1821,57.5998 -2.1658,57.6025 -2.1361,57.622 -2.1275,57.6266 -2.1161,57.6287 -2.0717,57.6307 -2.0183,57.6252 -1.926,57.609 -1.9146,57.602 -1.8564,57.5529 -1.8183,57.5101 -1.7779,57.4371 -1.7709,57.4226 -1.77,57.3897 -1.8524,57.3308 -1.9551,57.2643 -1.9713,57.249 -2.0504,57.1507 -2.0577,57.1363 -2.062,57.1227 -2.0704,57.0799 -2.0635,57.0667 -2.0894,57.0026 -2.1629,56.9331 -2.1863,56.907 -2.1924,56.8945 -2.193,56.8764 -2.1858,56.8648 -2.1819,56.8528 -2.1901,56.8349 -2.2155,56.8005 -2.3155,56.7289 -2.3435,56.7171 -2.3857,56.7045 -2.4108,56.6912 -2.4735,56.6481 -2.4581,56.6292 -2.4441,56.6241 -2.484,56.547 -2.5266,56.5093 -2.5466,56.4971 -2.6358,56.4556 -2.716,56.4222 -2.89,56.3972 -2.9531,56.3893 -3.0349,56.3881 -3.0462,56.3881 -3.0648,56.385 -3.0753,56.382 -3.272,56.2909 -3.2588,56.2794 -3.2467,56.2815 -3.1845,56.2931 -2.9899,56.3475 -2.9269,56.3761 -2.9111,56.3833 -2.8954,56.3854 -2.8792,56.3846 -2.8647,56.3828 -2.8071,56.3728 -2.7991,56.3661 -2.7948,56.3462 -2.8041,56.3298 -2.8101,56.307 -2.808,56.2963 -2.7973,56.2789 -2.7636,56.2651 -2.722,56.2576 -2.6991,56.2581 -2.6671,56.2561 -2.6325,56.2479 -2.5794,56.2159 -2.5786,56.202 -2.6746,56.148 -2.7829,56.1211 -2.8148,56.1176 -2.8293,56.1172 -2.8417,56.1201 -2.8527,56.1237 -2.8724,56.1331 -2.8827,56.1354 -2.9112,56.1385 -2.9264,56.1388 -2.9515,56.1356 -2.9707,56.1281 -3.1334,56.0445 -3.1473,56.0222 -3.3379,55.9571 -3.3896,55.9447 -3.4033,55.9463 -3.4349,55.9532 -3.491,55.9682 -3.5648,55.9873 -3.576,55.9886 -3.7132,55.9903 -3.7305,55.9894 -3.7172,55.961 -3.6575,55.9402 -3.6395,55.939 -3.4484,55.9259 -3.249,55.9057 -3.0826,55.8819 -3.0621,55.8785 -3.0475,55.8774 -3.0126,55.8834 -2.9298,55.9032 -2.9192,55.9063 -2.9029,55.9131 -2.8902,55.9223 -2.861,55.9622 -2.8287,55.9849 -2.8151,55.9906 -2.7892,55.9941 -2.777,55.9952 -2.6522,55.9934 -2.6265,55.9883 -2.5959,55.9771 -2.4975,55.9367 -2.3711,55.891 -2.2561,55.8524 -2.1265,55.8197 -2.0759,55.8014 -2.0668,55.7845 -2.0574,55.7742 -2.0179,55.7401 -2.01,55.7293 -1.997,55.7144 -1.973,55.6882 -1.8478,55.5916 -1.8143,55.5676 -1.8018,55.5655 -1.7915,55.5714 -1.7436,55.5593 -1.6869,55.5401 -1.6328,55.5166 -1.5779,55.4182 -1.5716,55.3499 -1.5797,55.3349 -1.5944,55.3203 -1.5628,55.222 -1.5179,55.0991 -1.5123,55.0849 -1.4801,55.0214 -1.4101,54.935 -1.3789,54.9118 -1.3624,54.8635 -1.343,54.8071 -1.3021,54.7074 -1.295,54.6996 -1.1629,54.5857 -1.0595,54.5533 -1.042,54.5491 -0.8741,54.5065 -0.5637,54.4163 -0.5172,54.3839 -0.4564,54.3132 -0.435,54.2869 -0.4206,54.2687 -0.3923,54.2094 -0.3927,54.2039 -0.3811,54.192 -0.262,54.1113 -0.2001,54.0886 -0.1511,54.0783 -0.1164,54.069 -0.079,54.0503 -0.112,54.0353 -0.1382,54.0316 -0.1606,54.0249 -0.1733,54.0183 -0.2053,53.9885 -0.214,53.9683 -0.2148,53.9558 -0.2116,53.9452 -0.1686,53.8555 -0.1271,53.801 -0.1122,53.7878 -0.0992,53.777 -0.0535,53.7402 -0.0129,53.7057 0.0625,53.6412 0.1264,53.5828 0.1409,53.5648 0.1494,53.552 0.1538,53.5401 0.1493,53.5259 0.1419,53.5182 0.126,53.5098 0.1374,53.5313 0.1304,53.5458 0.1089,53.5565 0.0892,53.5643 0.0676,53.5708 0.0442,53.5766 0.0297,53.5775 0.0141,53.5766 0.0,53.5728 -0.0345,53.5631 -0.0514,53.5604 -0.0747,53.5602 -0.0854,53.5618 -0.1056,53.569 -0.1292,53.5789 -0.1416,53.5854 -0.171,53.6128 -0.2309,53.659 -0.249,53.6669 -0.2717,53.673 -0.2931,53.6739 -0.3564,53.668 -0.3803,53.6638 -0.4219,53.655 -0.5482,53.6436 -0.5638,53.6488 -0.5806,53.6615 -0.6048,53.667 -0.6184,53.6675 -0.6311,53.6664 -0.6532,53.6625 -0.6776,53.655 -0.715,53.6339 -0.6917,53.6236 -0.5186,53.6227 -0.5038,53.6237 -0.457,53.6334 -0.3895,53.6454 -0.3008,53.6504 -0.287,53.646 -0.2638,53.6282 -0.2411,53.6056 -0.2298,53.5907 -0.2222,53.5817 -0.2068,53.5684 -0.1168,53.5194 -0.1003,53.5106 0.027,53.4472 0.0852,53.4242 0.1254,53.4121 0.1435,53.4128 0.1684,53.3978 0.2168,53.3548 0.2354,53.3372 0.2473,53.3184 0.2547,53.3054 0.2696,53.2842 0.3391,53.1726 0.3535,53.1252 0.3558,53.1144 0.3572,53.099 0.3549,53.082 0.3388,53.0306 0.3264,53.0214 0.2762,53.0053 0.2037,52.9662 0.1732,52.9476 0.0322,52.8558 0.0022,52.8182 0.028,52.8194 0.0578,52.8278 0.0721,52.8295 0.0864,52.828 0.1222,52.816 0.1475,52.8071 0.1609,52.8011 0.1736,52.7906 0.1868,52.7763 0.2175,52.7456 0.2399,52.7348 0.3627,52.7187 0.3782,52.7202 0.4286,52.7624 0.4344,52.7714 0.4377,52.7841 0.4438,52.8041 0.4908,52.8729 0.5468,52.9044 0.6664,52.9146 0.8834,52.9046 0.8974,52.896 0.9081,52.8912 0.9407,52.8892 0.9682,52.8883 0.9931,52.8894 1.0044,52.8913 1.182,52.8771 1.2803,52.866 1.304,52.8601 1.3506,52.8481 1.3706,52.8411 1.391,52.8322 1.4302,52.8133 1.4663,52.7929 1.5013,52.7762 1.515,52.7701 1.5284,52.764 1.6427,52.7096 1.6544,52.7028 1.6727,52.6869 1.6836,52.6754 1.7,52.6547 1.7044,52.6447 1.7186,52.6155 1.7432,52.5589 1.7463,52.4681 1.7467,52.3948 1.7278,52.3504 1.7303,52.3321 1.724,52.3208 1.6833,52.2656 1.6277,52.1347 1.6239,52.1176 1.5851,52.0236 1.5772,52.0158 1.388,51.9096 1.3291,51.8687 1.3157,51.8834 1.2754,51.9252 1.2627,51.9323 1.1617,51.9631 1.2065,51.8904 1.2792,51.8209 1.2915,51.8141 1.2814,51.7923 1.2641,51.7791 1.2216,51.7488 1.2024,51.7381 1.1798,51.7295 1.1306,51.7171 1.1101,51.7133 1.0866,51.7107 1.0483,51.7107 1.0343,51.7141 0.996,51.7507 0.9813,51.765 0.9309,51.7457 0.8608,51.7134 0.7231,51.6667 0.7001,51.6585 0.7604,51.6318 0.8619,51.6518 0.8753,51.657 0.9014,51.6748 0.921,51.6806 0.9343,51.6765 0.9456,51.6658 0.9513,51.5494 0.9086,51.5217 0.874,51.5012 0.8195,51.4759 0.8069,51.4704 0.7883,51.4646 0.7781,51.4623 0.7659,51.4618 0.6795,51.4725 0.6509,51.4772 0.4644,51.4434 0.4509,51.4383 0.3886,51.3885 0.4118,51.3874 0.4515,51.396 0.4654,51.4115 0.4745,51.4206 0.4885,51.425 0.5354,51.4285 0.548,51.4285 0.5913,51.4281 0.6964,51.4113 0.7108,51.4059 0.7238,51.3944 0.7207,51.3807 0.7079,51.3764 0.6865,51.3757 0.6648,51.3795 0.6416,51.3809 0.5585,51.3465 0.5834,51.3282 0.6188,51.3237 0.703,51.318 0.9069,51.2811 0.9799,51.286 0.9977,51.2885 1.0109,51.2924 1.0318,51.3025 1.0513,51.3078 1.0648,51.3097 1.1903,51.3191 1.3834,51.3283 1.4255,51.2717 1.4089,51.1417 1.4056,51.1245 1.3961,51.1046 1.3882,51.0948 1.3667,51.0765 1.3537,51.0686 1.2605,51.0424 1.23,51.0417 1.2186,51.0405 1.0985,51.0147 1.0853,51.0097 1.0441,50.9904 1.0286,50.9817 0.9963,50.96 0.9848,50.9483 0.9773,50.9377 0.9697,50.922 0.9666,50.9096 0.9687,50.8865 0.9737,50.873 0.8555,50.8668 0.813,50.8757 0.7923,50.8771 0.7802,50.8767 0.7152,50.846 0.7047,50.8391 0.6781,50.818 0.6614,50.8106 0.5663,50.789 0.4978,50.7792 0.4522,50.7752 0.4301,50.7724 0.4001,50.7659 0.3713,50.7577 0.3491,50.75 0.307,50.7219 0.2962,50.7145 0.2866,50.7063 0.2736,50.6902 0.2633,50.6828 0.2536,50.68 0.2418,50.6793 0.2274,50.6807 0.2152,50.6831 0.1233,50.7007 0.0982,50.7091 0.0569,50.722 -0.094,50.7517 -0.1377,50.7598 -0.1563,50.7627 -0.1904,50.7673 -0.2054,50.768 -0.2543,50.7678 -0.5761,50.7367 -0.6363,50.7287 -0.6742,50.7225 -0.71,50.7153 -0.7449,50.7071 -0.7659,50.691 -0.7666,50.6805 -0.7803,50.6687 -0.7982,50.6675 -0.9067,50.7153 -0.8908,50.7316 -0.8644,50.7411 -0.8704,50.7503 -0.9268,50.7809 -0.9377,50.7822 -1.0924,50.787 -1.157,50.7822 -1.1448,50.7725 -1.1151,50.7483 -1.1295,50.7246 -1.1422,50.7194 -1.329,50.7327 -1.4056,50.7122 -1.5903,50.6655 -1.6116,50.6713 -1.6653,50.6794 -1.6815,50.6801 -1.6984,50.6785 -1.8136,50.6643 -1.9311,50.6544 -2.0061,50.6564 -2.0207,50.6613 -2.0317,50.6729 -2.0636,50.6559 -2.0766,50.638 -1.9717,50.6116 -1.9511,50.6069 -1.9323,50.5808 -1.961,50.5383 -2.051,50.5273 -2.1184,50.5489 -2.1305,50.555 -2.1412,50.5584 -2.1937,50.5678 -2.387,50.5831 -2.4272,50.5767 -2.4428,50.5679 -2.4621,50.5357 -2.462,50.5255 -2.4548,50.5166 -2.4209,50.5015 -2.4304,50.4834 -2.4513,50.4905 -2.4544,50.5035 -2.4905,50.5371 -2.5589,50.5738 -2.6578,50.615 -2.6963,50.6285 -2.7169,50.6346 -2.7669,50.6502 -2.8186,50.6615 -2.8593,50.6696 -2.8782,50.6727 -2.9023,50.6747 -2.923,50.6727 -2.9396,50.6648 -2.9546,50.6543 -2.9732,50.648 -3.0896,50.6335 -3.1685,50.6296 -3.2392,50.616 -3.2491,50.6136 -3.406,50.5576 -3.4318,50.5464 -3.4565,50.5297 -3.4885,50.4879 -3.4946,50.4775 -3.546,50.3802 -3.5478,50.3674 -3.6461,50.1732 -3.6692,50.1622 -3.7007,50.152 -3.711,50.1486 -3.7232,50.1484 -3.7837,50.1542 -3.797,50.1562 -3.8073,50.1593 -3.8305,50.172 -3.839,50.1801 -3.8458,50.1937 -3.8717,50.2233 -3.9377,50.2553 -3.9493,50.2576 -3.9697,50.2558 -3.9792,50.2535 -4.0022,50.2456 -4.0122,50.2383 -4.0247,50.2351 -4.0509,50.2399 -4.1049,50.2722 -4.159,50.3121 -4.1683,50.3195 -4.3732,50.3057 -4.4227,50.2932 -4.4342,50.2862 -4.4452,50.2774 -4.4594,50.271 -4.4758,50.2676 -4.5035,50.2645 -4.5364,50.2642 -4.6381,50.2655 -4.6712,50.2679 -4.7553,50.2532 -4.8501,50.1737 -4.9451,50.1355 -5.0402,50.1133 -5.0517,50.0814 -5.063,50.0238 -5.0465,50.0026 -5.0499,49.9883 -5.0576,49.98 -5.0782,49.9651 -5.1527,49.9457 -5.1708,49.9221 -5.185,49.898 -5.193,49.8994 -5.2208,49.9159 -5.2295,49.9239 -5.2486,49.9477 -5.2442,49.968 -5.2687,50.0021 -5.2814,50.0116 -5.3253,50.0335 -5.4623,50.0671 -5.4777,50.0694 -5.4925,50.0683 -5.503,50.0662 -5.5257,50.058 -5.5331,50.0463 -5.5294,50.0268 -5.5333,50.013 -5.5472,49.9993 -5.5585,49.9935 -5.5744,49.99 -5.6531,49.9788 -5.669,49.9809 -5.6789,49.9845 -5.7081,50.0031 -5.7013,50.0714 -5.683,50.0974 -5.5379,50.1472 -5.5031,50.1562 -5.4875,50.159 -5.4727,50.1561 -5.4609,50.1428 -5.4235,50.1354 -5.26,50.2159 -5.1441,50.2855 -5.0396,50.3693 -5.0178,50.4143 -5.0315,50.4397 -5.0098,50.4841 -4.908,50.5189 -4.8899,50.5206 -4.8661,50.5204 -4.794,50.531 -4.776,50.5354 -4.7644,50.5437 -4.7543,50.5563 -4.7442,50.5828 -4.7362,50.6088 -4.6933,50.6298 -4.6441,50.6568 -4.5542,50.7175 -4.5465,50.7267 -4.5422,50.7439 -4.5403,50.7621 -4.5402,50.8008 -4.5362,50.868 -4.5141,50.9551 -4.4675,50.955 -4.4204,50.9506 -4.4049,50.944 -4.3694,50.9323 -4.3511,50.9305 -4.3326,50.9315 -4.3177,50.9362 -4.2968,50.9453 -4.2302,50.9876 -4.2038,51.0134 -4.2134,51.0513 -4.2212,51.1286 -4.2021,51.1368 -4.1921,51.1389 -4.1102,51.1528 -4.0653,51.1547 -3.9783,51.1575 -3.8779,51.1649 -3.7864,51.1798 -3.6942,51.1707 -3.6265,51.1586 -3.613,51.1575 -3.5864,51.1627 -3.5644,51.1712 -3.5015,51.164 -3.4319,51.1471 -3.4145,51.1312 -3.403,51.1251 -3.3883,51.1222 -3.3648,51.1219 -3.2962,51.122 -3.0236,51.1467 -3.0078,51.197 -3.0085,51.2133 -3.0021,51.2477 -2.9551,51.3155 -2.848,51.3851 -2.7662,51.4294 -2.6489,51.5042 -2.635,51.519 -2.5487,51.5973 -2.4678,51.6643 -2.4508,51.6717 -2.4249,51.6768 -2.3998,51.6806 -2.3844,51.6867 -2.3759,51.7016 -2.3889,51.7152 -2.4567,51.6867 -2.5748,51.618 -2.6247,51.5843 -2.6605,51.5554 -2.6705,51.5471 -2.6946,51.5295 -2.7104,51.521 -2.8432,51.4853 -2.8879,51.4789 -2.9142,51.478 -2.9499,51.4799 -2.9617,51.482 -3.0161,51.4658 -3.1139,51.4278 -3.1229,51.4193 -3.1464,51.3936 -3.1538,51.3709 -3.1595,51.3497 -3.176,51.3377 -3.2658,51.3208 -3.3407,51.3193 -3.3542,51.319 -3.3977,51.3204 -3.411,51.3211 -3.4454,51.3253 -3.4831,51.3307 -3.537,51.3381 -3.5546,51.3461 -3.6661,51.4142 -3.7457,51.4698 -3.7552,51.4849 -3.7755,51.5077 -3.8317,51.5602 -3.9434,51.5528 -3.9593,51.5498 -4.198,51.4755 -4.2104,51.4732 -4.236,51.4813 -4.2709,51.4969 -4.2851,51.5478 -4.2436,51.5686 -4.225,51.5732 -4.2046,51.5669 -4.1708,51.5624 -4.1559,51.5636 -4.1099,51.5742 -4.0699,51.5877 -4.0595,51.6083 -4.068,51.6173 -4.1906,51.6194 -4.2552,51.6171 -4.429,51.6772 -4.567,51.6743 -4.621,51.6689 -4.6382,51.6668 -4.6641,51.6606 -4.6767,51.65 -4.679,51.6295 -4.6828,51.6067 -4.7034,51.5897 -4.7828,51.5735 -4.7997,51.5807 -4.8281,51.5857 -4.8564,51.5803 -4.8823,51.567 -4.9334,51.5344 -4.9974,51.5466 -5.0344,51.5567 -5.0432,51.5603 -5.0131,51.6087 -4.9625,51.616 -4.8972,51.637 -4.8863,51.6394 -4.8534,51.6535 -4.8595,51.6629 -4.8767,51.6868 -4.8824,51.6686 -4.8883,51.6584 -4.901,51.6527 -4.9994,51.6434 -5.0568,51.6449 -5.1828,51.6491 -5.2203,51.6632 -5.2385,51.6702 -5.153,51.7022 -5.1401,51.7052 -5.116,51.7051 -5.1018,51.7075 -5.0944,51.7188 -5.107,51.7731 -5.1127,51.7871 -5.1236,51.7964 -5.1765,51.8093 -5.205,51.8105 -5.2503,51.8105 -5.2307,51.8562 -5.0911,51.9002 -5.0724,51.9165 -5.0683,51.9356 -4.8367,51.9536 -4.8226,51.9561 -4.76,52.0039 -4.7513,52.0125 -4.7386,52.03 -4.7294,52.0433 -4.7152,52.0527 -4.6617,52.0697 -4.6365,52.074 -4.6191,52.0738 -4.5831,52.071 -4.5199,52.0703 -4.4905,52.0764 -4.2848,52.1619 -4.2247,52.1884 -4.1867,52.2155 -4.1364,52.2597 -4.1241,52.2739 -4.0901,52.325 -4.0851,52.3371 -4.0532,52.4248 -4.0544,52.4449 -4.0737,52.4924 -4.1192,52.5428 -4.0995,52.5897 -4.0465,52.6553 -4.0565,52.6628 -4.1237,52.7165 -4.1413,52.739 -4.1287,52.8175 -4.1232,52.8257 -4.1115,52.833 -4.1267,52.8528 -4.2262,52.8534 -4.3056,52.8433 -4.4068,52.8232 -4.4333,52.811 -4.4699,52.7935 -4.4927,52.7678 -4.5321,52.7317 -4.7201,52.72 -4.7363,52.7198 -4.7508,52.7257 -4.7444,52.7455 -4.7334,52.758 -4.7141,52.7746 -4.6436,52.8256 -4.6112,52.8476 -4.5784,52.8623 -4.5454,52.8674 -4.5328,52.8688 -4.5193,52.8742 -4.4985,52.8846 -4.4549,52.9087 -4.3538,52.9673 -4.3455,52.9765 -4.3375,53.0034 -4.3229,53.0502 -4.1909,53.1466 -4.2112,53.1385 -4.3183,53.0833 -4.3442,53.0624 -4.3948,53.0639 -4.4713,53.1147 -4.4871,53.1274 -4.5597,53.2112 -4.5604,53.3277 -4.5524,53.3346 -4.4671,53.3563 -4.4187,53.3623 -4.4087,53.3628 -4.3067,53.3496 -4.2807,53.343 -4.2698,53.3362 -4.2629,53.3263 -4.2152,53.2594 -4.1177,53.2491 -4.1062,53.2504 -4.053,53.2436 -4.0397,53.2393 -4.083,53.193 -4.0944,53.1856 -4.1302,53.1712 -4.0986,53.1654 -4.0597,53.1644 -4.0117,53.1756 -3.9965,53.18 -3.8479,53.2223 -3.7238,53.2273 -3.6863,53.2235 -3.6036,53.2174 -3.5834,53.2201 -3.4558,53.2583 -3.3822,53.2816 -3.357,53.2841 -3.3309,53.2852 -3.3131,53.2846 -3.2063,53.2356 -3.1208,53.1937 -3.0968,53.1859 -3.0832,53.1978 -3.0774,53.2065 -3.1209,53.2627 -3.1489,53.2863 -3.1617,53.2948 -3.1709,53.3004 -3.1834,53.3156 -3.1842,53.3261 -3.175,53.334 -3.1654,53.3379 -3.0671,53.347 -3.0531,53.3479 -3.0385,53.3413 -3.0238,53.3199 -2.9845,53.3052 -2.9377,53.2483 -2.9233,53.24 -2.8947,53.2271 -2.8778,53.2232 -2.8575,53.2207 -2.7717,53.2304 -2.7484,53.2421 -2.7004,53.2883 -2.7129,53.2902 -2.7646,53.2771 -2.7732,53.2706 -2.8525,53.2588 -2.8735,53.2634 -2.9487,53.2979 -2.9587,53.3057 -3.0018,53.3553 -3.0083,53.3626 -3.1002,53.4976 -3.0885,53.514 -3.0678,53.5356 -2.9723,53.6313 -2.9372,53.6452 -2.8949,53.6623 -2.9023,53.6698 -2.9195,53.6716 -2.9345,53.6719 -2.9609,53.671 -2.9878,53.67 -3.0012,53.6722 -3.0166,53.677 -3.0318,53.6867 -3.0475,53.7047 -3.0475,53.7047 21,-9.0,United States -152.0622,58.5233 -152.0968,58.4932 -152.1732,58.4254 -152.1847,58.4147 -152.1974,58.4077 -152.2142,58.4023 -152.2259,58.4015 -152.247,58.4042 -152.2655,58.4075 -152.3424,58.4318 -152.3536,58.4397 -152.3777,58.4753 -152.2805,58.5108 -152.1983,58.5372 -152.1196,58.5609 -152.1014,58.5654 -152.0882,58.5659 -152.0685,58.5591 -152.0599,58.5323 -152.0622,58.5233 -152.0622,58.5233 58,3.0,Estonia 21.9979,57.8392 21.9763,57.8422 21.9576,57.8508 21.9432,57.898 22.0458,58.0099 22.0663,58.0152 22.111,58.0171 22.1537,58.0759 22.0984,58.0905 22.0336,58.1034 21.8374,58.1879 21.8046,58.2196 21.8436,58.2717 21.9156,58.2733 21.9667,58.2872 21.9563,58.3116 21.8715,58.3918 21.838,58.4044 21.8195,58.4132 21.7975,58.4367 21.8847,58.4475 21.9523,58.4459 22.0719,58.4225 22.1531,58.4772 22.2863,58.5075 22.4603,58.5321 22.5828,58.5235 22.7301,58.5331 22.774,58.5467 22.8296,58.5479 22.8691,58.5468 22.9426,58.5296 23.0484,58.4944 23.2203,58.4263 23.2384,58.4172 23.2854,58.377 23.2162,58.36 23.1837,58.3668 23.1598,58.3775 23.1003,58.3737 23.0348,58.3442 23.0222,58.316 22.9864,58.2881 22.7155,58.1708 22.6077,58.1609 22.5409,58.1717 22.4796,58.1726 22.4405,58.1725 22.332,58.1518 22.2361,58.1112 22.2307,58.0837 22.2229,58.0288 22.1621,57.9171 22.0593,57.8617 22.0334,57.8477 22.0118,57.8409 21.9979,57.8392 21.9979,57.8392 112,1.0,United Kingdom -6.4621,57.8794 -6.4615,57.873 -6.5291,57.8467 -6.562,57.8421 -6.6122,57.8458 -6.6408,57.8509 -6.6519,57.8566 -6.6797,57.8891 -6.6863,57.8986 -6.6924,57.9175 -6.6942,57.9342 -6.6835,57.9537 -6.6472,57.9767 -6.6173,57.9793 -6.6061,57.9778 -6.5821,57.9794 -6.5919,57.9852 -6.662,57.989 -6.6743,57.9869 -6.749,57.9293 -6.711,57.8833 -6.6883,57.8756 -6.6693,57.8615 -6.6524,57.8315 -6.6492,57.8135 -6.7228,57.7568 -6.9521,57.6578 -6.9682,57.6584 -7.1086,57.7479 -7.1111,57.7669 -7.0907,57.7679 -7.0793,57.7639 -7.0705,57.7558 -7.0528,57.7518 -7.0159,57.7635 -6.8197,57.8333 -6.8668,57.8635 -6.9222,57.8806 -6.9333,57.8837 -6.9759,57.8904 -7.009,57.8827 -7.0195,57.8836 -7.0623,57.8933 -7.1003,57.9165 -7.0709,57.9391 -7.0427,57.9511 -7.0447,57.9673 -7.0809,58.0012 -7.1141,58.0587 -7.0813,58.1124 -7.0442,58.1522 -7.0233,58.1664 -6.9914,58.1653 -6.9069,58.1465 -6.8946,58.1409 -6.9073,58.1341 -6.9234,58.1187 -6.8584,58.0393 -6.8484,58.0368 -6.8604,58.1094 -6.7926,58.1264 -6.7378,58.116 -6.7324,58.1278 -6.7741,58.1601 -6.7953,58.1903 -6.8041,58.2127 -6.785,58.2327 -6.6608,58.2797 -6.6414,58.2778 -6.5482,58.2901 -6.5379,58.2936 -6.3435,58.3875 -6.2989,58.4092 -6.281,58.4186 -6.263,58.4397 -6.2517,58.4429 -6.2372,58.4404 -6.2231,58.4344 -6.2119,58.4265 -6.1544,58.3533 -6.1928,58.2864 -6.2209,58.2482 -6.2682,58.2183 -6.3121,58.194 -6.3153,58.1659 -6.2706,58.1534 -6.2579,58.156 -6.2094,58.1642 -6.1969,58.1714 -6.1568,58.1898 -6.1361,58.1849 -6.1468,58.1488 -6.1568,58.1402 -6.2133,58.1144 -6.252,58.1074 -6.3174,58.1134 -6.355,58.0892 -6.3654,58.0638 -6.485,58.0281 -6.5361,58.0225 -6.589,58.0159 -6.6076,58.0107 -6.5824,58.0089 -6.485,58.0181 -6.4083,58.0329 -6.3945,58.0366 -6.3813,58.0322 -6.3435,57.9622 -6.3743,57.94 -6.4457,57.899 -6.4621,57.8794 -6.4621,57.8794 68,-9.0,United States -152.4179,57.9841 -152.494,57.9293 -152.5049,57.9244 -152.5743,57.9237 -152.6358,57.9418 -152.7285,57.9702 -152.7539,57.9804 -152.791,58.0214 -152.8592,58.032 -152.8695,58.0331 -152.8898,58.0426 -152.9414,58.0841 -152.951,58.0967 -152.9417,58.1242 -152.9303,58.1351 -152.9177,58.1421 -152.8967,58.1472 -152.8102,58.1297 -152.7335,58.1098 -152.6363,58.0971 -152.6233,58.098 -152.669,58.126 -152.7368,58.1535 -152.792,58.168 -152.8244,58.1922 -152.7711,58.2305 -152.7578,58.234 -152.7331,58.2341 -152.5186,58.2131 -152.5117,58.3045 -152.5081,58.3424 -152.4393,58.3857 -152.3741,58.4081 -152.3585,58.4098 -152.2667,58.3909 -152.1281,58.2937 -152.0721,58.3508 -152.0229,58.3543 -152.0028,58.3513 -151.7049,58.2741 -151.6877,58.2539 -151.6851,58.2084 -151.6951,58.1636 -151.714,58.1464 -151.7842,58.0974 -151.8029,58.0869 -151.8226,58.0804 -151.8386,58.0781 -151.9141,58.105 -151.945,58.1331 -151.9408,58.1426 -151.9399,58.1545 -151.9629,58.1928 -151.9958,58.1926 -152.0255,58.1832 -152.0355,58.1786 -152.0892,58.1248 -152.0433,58.0826 -152.016,58.0838 -151.9995,58.0602 -152.1262,58.0507 -152.2108,58.055 -152.316,58.063 -152.3203,58.0522 -152.3484,58.0093 -152.3784,57.9909 -152.4179,57.9841 -152.4179,57.9841 94,-9.0,United States -133.6331,57.4207 -133.624,57.3901 -133.7616,57.419 -133.8078,57.4228 -133.815,57.3971 -133.7477,57.3843 -133.6489,57.3562 -133.6223,57.2974 -133.7028,57.2349 -133.7323,57.2329 -133.8023,57.2613 -133.8234,57.2854 -133.9302,57.3129 -133.8596,57.2281 -133.8362,57.2009 -133.9237,57.1211 -134.2378,56.9616 -134.3363,56.9594 -134.3537,56.9697 -134.3795,57.0431 -134.372,57.1571 -134.2544,57.303 -134.1049,57.2609 -134.0755,57.2633 -134.1016,57.319 -134.1409,57.3121 -134.2176,57.3229 -134.2847,57.3743 -134.3143,57.4038 -134.3286,57.4192 -134.3075,57.42 -134.2667,57.4189 -134.111,57.473 -134.1404,57.4797 -134.2233,57.4648 -134.2617,57.4517 -134.3117,57.4394 -134.3309,57.4376 -134.3468,57.4692 -134.3675,57.4933 -134.3894,57.5116 -134.4147,57.5344 -134.4623,57.6486 -134.469,57.6719 -134.4535,57.7115 -134.4566,57.7571 -134.5403,58.0368 -134.6664,58.1357 -134.7061,58.2299 -134.7249,58.2972 -134.7028,58.3357 -134.5506,58.2389 -134.4594,58.145 -134.4467,58.0982 -134.4226,58.0906 -134.3917,58.0915 -134.3561,58.1026 -134.3098,58.1166 -134.2067,58.1073 -134.1536,58.0877 -134.112,58.0756 -134.0901,58.0745 -134.0511,58.0826 -133.957,58.0944 -133.9284,58.0903 -133.9175,58.0558 -133.8924,57.9824 -133.8341,57.9393 -133.7603,57.8671 -133.6711,57.7438 -133.6527,57.688 -133.6339,57.6041 -133.6514,57.5867 -133.718,57.6157 -133.7398,57.6651 -133.7538,57.7 -133.8254,57.7617 -133.8488,57.7797 -133.8664,57.8077 -133.8961,57.8852 -133.9108,57.9229 -133.932,57.9445 -133.9943,57.9976 -134.044,58.008 -134.075,57.9618 -134.0275,57.8047 -134.0033,57.7883 -133.9387,57.7454 -133.764,57.5798 -133.6901,57.4936 -133.6812,57.4643 -133.6532,57.4368 -133.6331,57.4207 -133.6331,57.4207 28,-9.0,United States -134.2695,58.2685 -134.2611,58.2665 -134.2292,58.2543 -134.2085,58.2436 -134.0306,58.1432 -134.0164,58.1292 -134.0314,58.1214 -134.1204,58.1366 -134.182,58.1507 -134.1931,58.1529 -134.2057,58.1546 -134.2316,58.1541 -134.2494,58.1505 -134.2633,58.1482 -134.3097,58.1513 -134.3373,58.1565 -134.3621,58.1682 -134.3811,58.1793 -134.3924,58.187 -134.4092,58.201 -134.4365,58.23 -134.4249,58.242 -134.4093,58.2471 -134.3376,58.2689 -134.3205,58.2711 -134.3098,58.2711 -134.2695,58.2685 -134.2695,58.2685 23,2.0,Sweden 11.44,57.9999 11.432,58.0056 11.3813,58.0642 11.3897,58.0781 11.652,58.2162 11.6877,58.2163 11.7005,58.2152 11.7154,58.2122 11.7654,58.1759 11.7908,58.1481 11.7944,58.1025 11.7933,58.0778 11.7897,58.0644 11.782,58.0493 11.6935,58.0317 11.6553,58.0296 11.6031,58.0411 11.5856,58.0494 11.5621,58.0494 11.5325,58.0461 11.4459,58.0295 11.44,57.9999 11.44,57.9999 133,-9.0,United States -134.8788,57.7055 -134.9543,57.707 -134.9863,57.7109 -135.0225,57.7227 -135.0925,57.7564 -135.31,57.8336 -135.4716,57.875 -135.5753,57.9115 -135.5975,57.9206 -135.6331,57.9234 -135.5496,57.8616 -135.4818,57.8475 -135.4012,57.8326 -135.3115,57.8015 -135.1373,57.7382 -135.1149,57.7282 -135.0729,57.6884 -135.0521,57.6628 -134.9885,57.6524 -134.9229,57.6583 -134.8543,57.6745 -134.8009,57.6822 -134.713,57.692 -134.6868,57.6905 -134.6687,57.6813 -134.6009,57.5281 -134.6117,57.3906 -134.7453,57.3822 -134.8164,57.3911 -134.8436,57.4089 -134.8764,57.4292 -135.03,57.4914 -135.2106,57.561 -135.3198,57.6038 -135.3771,57.6359 -135.3993,57.6453 -135.4217,57.6548 -135.4517,57.6676 -135.4848,57.679 -135.5051,57.6844 -135.5552,57.691 -135.4424,57.5731 -135.3263,57.5171 -135.3082,57.4657 -135.3019,57.3973 -135.358,57.346 -135.4442,57.2948 -135.4858,57.2981 -135.5915,57.3187 -135.7072,57.4007 -135.7566,57.4498 -135.7245,57.4498 -135.6617,57.4286 -135.6413,57.4127 -135.6207,57.3998 -135.5604,57.3691 -135.5379,57.3663 -135.5504,57.3908 -135.5932,57.4159 -135.6515,57.4416 -135.707,57.4625 -135.7845,57.4989 -135.8173,57.5323 -135.7495,57.5318 -135.706,57.5432 -135.746,57.5629 -135.8295,57.5787 -135.8796,57.6302 -135.9556,57.6785 -136.1061,57.764 -136.1256,57.7676 -136.1564,57.7538 -136.1082,57.869 -136.1136,57.8972 -136.0893,57.9196 -136.0579,57.9174 -135.9682,57.8625 -135.8072,57.7769 -135.7868,57.778 -135.8139,57.7982 -135.8525,57.8192 -135.9566,57.8814 -136.1247,57.984 -136.1465,57.9998 -136.17,58.0206 -136.1831,58.0417 -136.0989,58.1511 -136.0208,58.147 -135.9795,58.0796 -135.9191,58.0289 -135.9317,58.1068 -135.8859,58.1511 -135.711,58.1325 -135.6748,58.1591 -135.5647,58.2045 -135.5312,58.2056 -135.4949,58.1867 -135.3376,58.1273 -135.261,58.1062 -135.2364,58.0886 -135.2668,58.0345 -135.3633,57.9732 -135.4099,57.9754 -135.4534,57.9862 -135.5317,57.9735 -135.461,57.9091 -135.4009,57.893 -135.3719,57.8926 -135.3121,57.9312 -135.2948,57.9435 -135.2423,57.9993 -135.2054,58.0508 -135.1595,58.068 -134.8534,58.025 -134.6904,57.9627 -134.675,57.948 -134.6599,57.9131 -134.6662,57.8509 -134.725,57.8162 -134.7736,57.8204 -134.9219,57.8674 -134.9533,57.8677 -134.8994,57.8248 -134.8757,57.8127 -134.838,57.8056 -134.8037,57.8001 -134.775,57.7841 -134.7201,57.7407 -134.761,57.7109 -134.8002,57.7113 -134.8447,57.713 -134.8788,57.7055 -134.8788,57.7055 25,-9.0,United States -152.9788,58.0672 -152.9606,58.0523 -152.9333,58.0359 -152.9063,58.0233 -152.7772,57.9665 -152.6904,57.9468 -152.6285,57.9324 -152.6136,57.9214 -152.626,57.9168 -152.6838,57.9121 -152.6968,57.9118 -152.7083,57.912 -152.7671,57.921 -152.7856,57.9243 -152.9318,57.9612 -153.0646,57.97 -153.0764,57.9687 -153.0907,57.9713 -153.1364,57.9915 -153.0407,58.0653 -153.0256,58.0712 -153.0051,58.0746 -152.9898,58.0726 -152.9788,58.0672 -152.9788,58.0672 19,-9.0,United States -136.206,58.0195 -136.1433,57.9779 -136.0924,57.9492 -136.0823,57.9384 -136.1066,57.9318 -136.128,57.915 -136.1376,57.8878 -136.1325,57.8456 -136.1686,57.7954 -136.1775,57.7851 -136.1944,57.7771 -136.2848,57.8492 -136.2986,57.8917 -136.3072,57.9478 -136.2934,57.9956 -136.2394,58.0228 -136.2251,58.0242 -136.206,58.0195 -136.206,58.0195 294,3.0,Latvia 27.3228,57.4672 27.3756,57.4637 27.4001,57.4626 27.4221,57.4631 27.4976,57.4678 27.4934,57.4254 27.4782,57.3759 27.5218,57.3501 27.5569,57.3425 27.6375,57.3117 27.7756,57.2556 27.8057,57.2378 27.8142,57.1945 27.7995,57.112 27.7253,56.9894 27.6523,56.8471 27.682,56.8019 27.7132,56.8061 27.753,56.8107 27.7882,56.8083 27.8112,56.8013 27.8895,56.7552 27.8774,56.7267 27.8942,56.6557 27.9598,56.5811 28.0646,56.4505 28.0984,56.4044 28.1334,56.3395 28.1865,56.21 28.1477,56.1149 28.1343,56.0955 28.1188,56.084 28.1004,56.0944 28.0727,56.1012 27.8738,56.039 27.8492,56.0039 27.7478,55.9351 27.6643,55.8899 27.5984,55.8534 27.5841,55.7802 27.572,55.7526 27.5525,55.7265 27.5119,55.7233 27.4834,55.7232 27.2633,55.7416 27.1643,55.7601 27.1055,55.7807 26.9388,55.7664 26.8583,55.7096 26.8365,55.6748 26.81,55.648 26.7195,55.622 26.6922,55.6221 26.6458,55.6362 26.6192,55.6402 26.5962,55.6332 26.5787,55.6223 26.567,55.6091 26.5373,55.61 26.4854,55.6151 26.4589,55.6196 26.3211,55.6507 26.293,55.6607 26.2676,55.6739 26.2204,55.7075 26.1943,55.7511 26.171,55.7799 26.1509,55.798 26.0129,55.8721 25.9602,55.8913 25.892,55.9128 25.846,55.9333 25.6637,56.0307 25.5382,56.0851 25.3851,56.1001 25.2834,56.1026 25.2182,56.1146 25.1392,56.1171 25.1164,56.1181 25.0959,56.1209 25.0576,56.1329 25.0331,56.1484 24.9527,56.2335 24.9383,56.2627 24.9269,56.2871 24.9128,56.3156 24.8984,56.3403 24.875,56.376 24.8505,56.3832 24.6101,56.2993 24.5598,56.2626 24.5396,56.2458 24.5175,56.2227 24.4338,56.2029 24.4066,56.203 24.3776,56.2094 24.3291,56.2321 24.2917,56.2432 24.2226,56.2229 24.1269,56.1957 24.0994,56.1963 24.0277,56.2171 23.9579,56.2538 23.9068,56.2657 23.8316,56.2761 23.6922,56.2939 23.5584,56.2949 23.5321,56.2787 23.5122,56.2695 23.4842,56.2674 23.4069,56.2774 23.3222,56.3005 23.2851,56.3123 23.2554,56.3143 23.1341,56.2882 23.098,56.2515 23.0647,56.2397 23.0206,56.2499 22.9942,56.2648 22.9751,56.286 22.9635,56.3081 22.9494,56.3292 22.9108,56.3535 22.8898,56.3562 22.8461,56.3434 22.8129,56.3255 22.7924,56.3143 22.6514,56.2901 22.6266,56.294 22.6087,56.3047 22.5851,56.3189 22.5471,56.3279 22.5142,56.3329 22.4797,56.3379 22.4498,56.3396 22.2702,56.3371 22.1081,56.3573 22.0285,56.3528 22.0052,56.3475 21.8668,56.3024 21.6974,56.2568 21.5288,56.2287 21.4103,56.1823 21.3839,56.1745 21.3506,56.1737 21.3221,56.173 21.2219,56.1123 21.2046,56.0989 21.1973,56.0657 21.189,56.0354 21.1703,56.0196 21.1098,56.0219 21.0872,56.0211 21.0624,56.019 21.0213,56.0132 21.015,56.011 21.006,56.052 20.989,56.0899 20.9758,56.1049 20.9587,56.1181 20.9368,56.1715 20.9317,56.2968 20.9605,56.4427 20.9878,56.4412 21.0075,56.3917 21.0317,56.3686 21.0208,56.4438 20.9894,56.547 21.0027,56.5769 21.0122,56.6048 21.0191,56.6241 21.0278,56.6803 21.0262,56.7147 21.0151,56.7503 21.0251,56.7747 21.1076,56.8054 21.1869,56.8393 21.2235,56.8551 21.3199,56.9197 21.3577,56.9588 21.3714,56.9818 21.3774,57.0016 21.3772,57.0259 21.3732,57.0565 21.3743,57.1709 21.379,57.2137 21.3958,57.235 21.4204,57.2489 21.4439,57.2657 21.5573,57.375 21.601,57.4205 21.6266,57.4483 21.6379,57.4656 21.6668,57.4912 21.69,57.5064 21.7159,57.5147 21.8168,57.5274 21.8618,57.5251 21.8834,57.5223 21.9521,57.5272 21.98,57.5347 22.0095,57.5481 22.0587,57.5654 22.2411,57.6161 22.4397,57.6709 22.5422,57.6864 22.5663,57.6803 22.5432,57.6204 22.5538,57.5692 22.6025,57.5167 22.6316,57.5027 22.7102,57.4668 22.8642,57.3863 22.9001,57.3625 22.9729,57.3302 23.0078,57.317 23.0422,57.3076 23.0621,57.3045 23.0941,57.2963 23.1261,57.2448 23.1997,57.101 23.2076,57.047 23.2145,57.0333 23.2645,57.0054 23.2861,56.9946 23.3053,56.9865 23.5444,56.909 23.6132,56.8982 23.723,56.9006 23.7435,56.9025 23.8078,56.9164 23.831,56.9213 23.9125,56.9436 23.9425,56.9545 24.1122,57.0299 24.1803,57.061 24.3297,57.1512 24.3604,57.1833 24.3696,57.209 24.3656,57.2862 24.3184,57.5124 24.2869,57.6309 24.2604,57.6629 24.2457,57.7238 24.2449,57.7645 24.271,57.8027 24.2804,57.8014 24.3289,57.8 24.3673,57.8035 24.3866,57.8135 24.3996,57.8337 24.5056,57.8844 24.679,57.8959 24.9703,57.9704 24.9928,57.9811 25.02,57.994 25.0461,58.0023 25.0863,58.0073 25.1207,58.0058 25.1402,57.9956 25.1562,57.9752 25.1634,57.9513 25.1738,57.9325 25.1942,57.9237 25.2493,57.9416 25.2495,57.9691 25.2215,58.0029 25.2519,58.0142 25.3838,57.9628 25.4059,57.9361 25.5742,57.8485 25.7546,57.7971 25.7896,57.7915 25.8362,57.7869 25.8999,57.7851 25.988,57.7543 26.1572,57.6265 26.2336,57.5558 26.2588,57.5396 26.4639,57.4577 26.4837,57.4544 26.5591,57.4585 26.5765,57.4779 26.6496,57.5071 26.8301,57.5634 26.8536,57.5649 26.9216,57.5547 26.9474,57.5497 26.9765,57.5394 26.9967,57.5257 27.0285,57.4967 27.261,57.463 27.3228,57.4672 27.3228,57.4672 17,2.0,Sweden 11.4971,57.9114 11.4888,57.9205 11.4771,57.9408 11.4792,57.9649 11.5043,57.9793 11.7147,57.9724 11.7205,57.9585 11.7142,57.9322 11.7049,57.9228 11.6385,57.8886 11.6252,57.8818 11.5734,57.8633 11.5642,57.8617 11.554,57.8626 11.5044,57.8808 11.4971,57.9114 11.4971,57.9114 230,-9.0,United States -152.9277,57.7387 -152.9153,57.7687 -152.873,57.7948 -152.8191,57.7688 -152.7737,57.7616 -152.8956,57.8561 -152.9177,57.8721 -152.9524,57.8808 -152.9842,57.8872 -153.0161,57.9253 -152.98,57.9332 -152.9519,57.9226 -152.9092,57.9047 -152.8387,57.8809 -152.7547,57.8646 -152.7219,57.8774 -152.6721,57.878 -152.5635,57.8555 -152.536,57.8406 -152.5534,57.8252 -152.6023,57.8111 -152.6324,57.766 -152.644,57.6889 -152.6008,57.6602 -152.5808,57.6806 -152.5838,57.7254 -152.5729,57.7658 -152.5245,57.7898 -152.4145,57.8115 -152.3466,57.8585 -152.315,57.8614 -152.2208,57.841 -152.2005,57.8343 -152.0775,57.7693 -152.0539,57.7502 -152.108,57.721 -152.1496,57.7086 -152.1719,57.7 -152.203,57.6828 -152.2759,57.6354 -152.1604,57.536 -152.1499,57.5352 -152.1302,57.5482 -152.0636,57.5646 -151.889,57.5576 -151.8776,57.5398 -151.9419,57.4891 -152.0617,57.3591 -152.088,57.3548 -152.2502,57.3677 -152.3779,57.3973 -152.456,57.4357 -152.6513,57.4485 -152.7491,57.403 -152.7618,57.3651 -152.7265,57.3755 -152.7015,57.3908 -152.5653,57.404 -152.5294,57.4004 -152.4981,57.3899 -152.3571,57.3339 -152.3265,57.3053 -152.36,57.2495 -152.4081,57.2147 -152.4302,57.206 -152.5518,57.2013 -152.5737,57.2022 -152.6231,57.2352 -152.6327,57.2588 -152.892,57.2777 -152.9002,57.2345 -152.8049,57.2194 -152.7842,57.2223 -152.7602,57.2303 -152.7298,57.2247 -152.7028,57.2118 -152.6823,57.1879 -152.7102,57.1736 -152.7934,57.1486 -152.8238,57.1444 -152.8662,57.1478 -152.8951,57.1521 -152.9816,57.1609 -153.0271,57.1425 -153.0962,57.1108 -153.0995,57.1022 -153.1516,57.0625 -153.2305,56.9957 -153.2774,57.0057 -153.3062,57.0132 -153.3276,57.0141 -153.453,56.9934 -153.4753,56.9767 -153.422,56.9815 -153.3207,56.979 -153.2804,56.9127 -153.3328,56.8685 -153.3596,56.8653 -153.4517,56.8105 -153.5005,56.7708 -153.6408,56.6983 -153.6888,56.6758 -153.7129,56.6714 -153.8655,56.6743 -153.8468,56.7228 -153.7994,56.7739 -153.6756,56.8397 -153.6273,56.8554 -153.5856,56.8659 -153.5314,56.9059 -153.5528,56.9425 -153.5757,56.9527 -153.5941,56.9267 -153.6026,56.9081 -153.6242,56.8951 -153.6719,56.8891 -153.6927,56.8907 -153.6855,56.9263 -153.6295,56.9958 -153.5416,57.0313 -153.4639,57.0608 -153.517,57.0852 -153.6794,57.0001 -153.7327,56.9676 -153.7504,56.9503 -153.7782,56.9122 -153.8033,56.8983 -153.825,56.8971 -153.8594,56.9275 -153.8198,56.9825 -153.8028,57.0002 -153.7765,57.0132 -153.7454,57.04 -153.849,57.0752 -153.8695,57.0773 -153.9702,57.0789 -154.0447,57.0801 -154.0691,57.0798 -154.1969,57.0544 -154.2058,57.0251 -154.183,56.994 -154.1638,56.985 -154.1043,56.9785 -154.0802,56.9855 -154.0587,57.0044 -154.0397,57.0288 -153.9997,57.0467 -153.9672,57.0507 -153.8305,57.0475 -153.831,57.0154 -153.8847,56.8919 -153.9688,56.8068 -154.0081,56.7869 -154.0237,56.7815 -154.027,56.8355 -154.0587,56.8633 -154.0834,56.8773 -154.1089,56.8906 -154.1288,56.9 -154.1827,56.9104 -154.2525,56.9284 -154.2479,56.9633 -154.2419,56.9863 -154.2395,57.0073 -154.2515,57.0796 -154.2627,57.1166 -154.3324,57.1929 -154.4151,57.2111 -154.4521,57.2076 -154.4939,57.2036 -154.5218,57.2154 -154.4494,57.3541 -154.3606,57.4366 -154.3381,57.4502 -154.2381,57.5103 -154.0697,57.5766 -153.9708,57.5959 -153.9288,57.598 -153.7518,57.5829 -153.7241,57.5722 -153.6533,57.4554 -153.6453,57.4309 -153.6419,57.4038 -153.6358,57.3788 -153.6261,57.3596 -153.6137,57.3415 -153.5252,57.2677 -153.5086,57.256 -153.4846,57.2418 -153.4555,57.2303 -153.3596,57.208 -153.3765,57.2196 -153.3962,57.222 -153.4665,57.2505 -153.5327,57.3353 -153.5578,57.4797 -153.5915,57.5748 -153.4765,57.5813 -153.3924,57.5701 -153.3713,57.5644 -153.3207,57.5305 -153.3084,57.5371 -153.3342,57.5694 -153.4009,57.6015 -153.4327,57.6116 -153.4689,57.6187 -153.5115,57.6258 -153.5802,57.6318 -153.6167,57.6353 -153.6491,57.6593 -153.6587,57.711 -153.6503,57.7394 -153.6247,57.7628 -153.4731,57.8283 -153.4529,57.8337 -153.3645,57.7973 -153.2928,57.7605 -153.2801,57.7429 -153.2772,57.6848 -153.2675,57.6178 -153.2541,57.5896 -153.2291,57.5599 -153.0433,57.6586 -153.1282,57.72 -153.1722,57.7231 -153.1956,57.7414 -153.1924,57.7721 -152.9355,57.7197 -152.9277,57.7387 -152.9277,57.7387 20,2.0,Sweden 19.0915,57.7708 19.059,57.783 19.0409,57.7914 19.0017,57.8298 19.001,57.8466 19.0577,57.903 19.0701,57.906 19.2507,57.9077 19.2613,57.9074 19.2727,57.9052 19.2992,57.8905 19.2472,57.8698 19.2365,57.8777 19.2217,57.8803 19.2032,57.8777 19.132,57.859 19.1135,57.847 19.1062,57.8359 19.0915,57.7708 19.0915,57.7708 19,-9.0,United States -152.9277,57.7387 -152.9461,57.7393 -152.9711,57.7462 -153.0017,57.7552 -153.0174,57.7606 -153.1754,57.8148 -153.2563,57.8618 -153.2467,57.8873 -153.2029,57.902 -153.1916,57.903 -153.1784,57.9002 -153.0749,57.8673 -152.9942,57.832 -152.983,57.8207 -152.9543,57.7873 -152.9428,57.7728 -152.9369,57.762 -152.9277,57.7387 -152.9277,57.7387 52,2.0,Sweden 18.9695,57.8299 18.9989,57.7579 18.8952,57.6708 18.8149,57.6526 18.7753,57.6351 18.7596,57.5906 18.7261,57.4397 18.7349,57.4015 18.7548,57.3801 18.6797,57.1764 18.6249,57.1529 18.5188,57.1148 18.4735,57.0993 18.4147,57.0872 18.3846,57.0762 18.3603,57.063 18.3104,57.0076 18.3078,56.9459 18.2661,56.8685 18.1784,56.8451 18.1367,56.8425 18.1123,56.8472 18.1262,56.8741 18.1769,56.9215 18.2241,56.9645 18.2218,57.0114 18.141,57.0741 18.1161,57.1672 18.1256,57.2478 18.1102,57.3412 18.0829,57.4125 18.0778,57.4361 18.0826,57.4567 18.106,57.4826 18.1525,57.5236 18.1873,57.5402 18.2128,57.5506 18.2433,57.5654 18.2617,57.5771 18.3058,57.6132 18.3226,57.627 18.3488,57.65 18.3685,57.6699 18.3864,57.6915 18.4331,57.7416 18.652,57.846 18.6866,57.8531 18.8478,57.8509 18.8742,57.8488 18.9711,57.8372 18.9695,57.8299 18.9695,57.8299 19,-4.0,Canada -61.772,57.7979 -61.7556,57.772 -61.7719,57.7423 -61.832,57.7193 -61.8451,57.7181 -61.9765,57.7392 -61.9877,57.7474 -61.9963,57.7581 -61.9952,57.7687 -61.9844,57.7795 -61.9526,57.8017 -61.9162,57.824 -61.8965,57.8353 -61.8779,57.8408 -61.8589,57.8423 -61.8285,57.8412 -61.81,57.836 -61.772,57.7979 -61.772,57.7979 18,-4.0,Canada -61.5424,57.7022 -61.5571,57.6701 -61.5624,57.6584 -61.5798,57.6446 -61.6459,57.647 -61.6571,57.6481 -61.7833,57.6876 -61.784,57.7011 -61.7796,57.7104 -61.7538,57.7311 -61.7413,57.7396 -61.6924,57.7701 -61.664,57.7766 -61.5993,57.7654 -61.5868,57.7614 -61.5406,57.7118 -61.5424,57.7022 -61.5424,57.7022 112,2.0,Denmark 8.4011,56.6108 8.4285,56.607 8.4734,56.6034 8.5021,56.6009 8.5282,56.611 8.5639,56.6204 8.5922,56.5636 8.5832,56.5401 8.531,56.5182 8.463,56.5645 8.4392,56.5797 8.3835,56.6048 8.3538,56.61 8.2296,56.6371 8.2206,56.679 8.2217,56.705 8.2313,56.7393 8.2456,56.7606 8.2758,56.7929 8.3218,56.838 8.3639,56.8779 8.4354,56.9374 8.562,57.0282 8.6032,57.0539 8.6316,57.0555 8.6985,57.0384 8.7219,57.0346 8.7507,57.0335 8.7892,57.036 8.8309,57.0404 8.8785,57.0522 9.0014,57.0857 9.0635,57.0774 9.1452,57.0696 9.1796,57.0681 9.2273,57.0691 9.2489,57.0711 9.3745,57.0842 9.4495,57.111 9.479,57.1222 9.5269,57.1479 9.5634,57.1733 9.6323,57.2354 9.6903,57.2969 9.7086,57.3193 9.7508,57.372 9.7757,57.3941 9.9398,57.5177 9.9822,57.5213 10.0255,57.52 10.0859,57.5212 10.1106,57.5216 10.1429,57.5237 10.163,57.5265 10.2,57.5337 10.2487,57.5445 10.2767,57.5545 10.3898,57.6051 10.4345,57.629 10.4912,57.6565 10.5217,57.6703 10.5502,57.6774 10.5864,57.6755 10.626,57.6688 10.6028,57.6591 10.5503,57.638 10.5073,57.615 10.4866,57.5979 10.4624,57.5774 10.4395,57.5568 10.424,57.5407 10.413,57.5171 10.4171,57.4828 10.4274,57.4638 10.5091,57.3457 10.5115,57.1548 10.4294,57.1128 10.4006,57.0826 10.3182,56.9241 10.2269,56.9222 10.2052,56.9242 10.1749,56.9353 10.1338,56.957 10.1017,56.9741 10.0084,57.0173 9.9869,57.0218 9.4832,56.9788 9.2728,56.9371 9.2531,56.9308 9.2334,56.9284 9.2111,56.9315 9.1874,56.9439 9.1652,56.9563 9.143,56.9674 9.1243,56.9752 9.0994,56.9851 9.0994,56.9711 9.0142,56.9481 8.87,56.93 8.8115,56.9034 8.7521,56.8833 8.7144,56.8895 8.6611,56.8806 8.6031,56.8118 8.5984,56.7858 8.5522,56.7489 8.5179,56.7365 8.4928,56.7315 8.4713,56.7184 8.4482,56.6306 8.4011,56.6108 8.4011,56.6108 21,1.0,United Kingdom -7.2202,57.4352 -7.3086,57.4378 -7.3141,57.459 -7.3119,57.4756 -7.3343,57.4823 -7.398,57.4997 -7.4421,57.4956 -7.4585,57.4938 -7.4725,57.4976 -7.5269,57.5215 -7.474,57.5807 -7.4589,57.5862 -7.419,57.5847 -7.2599,57.5894 -7.2314,57.6083 -7.1798,57.6186 -7.0555,57.5679 -7.1378,57.4438 -7.1554,57.4396 -7.2202,57.4352 -7.2202,57.4352 74,1.0,United Kingdom -5.8367,57.0373 -5.8484,57.025 -5.8805,56.9946 -5.9172,56.9709 -5.9287,56.968 -5.969,56.9592 -5.9876,56.956 -6.0032,56.956 -6.0221,56.9844 -5.9801,57.0437 -5.9632,57.0625 -6.0194,57.1096 -6.0666,57.0577 -6.0855,57.0604 -6.1653,57.1027 -6.3048,57.0908 -6.4381,57.1985 -6.4684,57.2344 -6.4102,57.2656 -6.3866,57.2603 -6.3621,57.2463 -6.3344,57.2343 -6.3208,57.2297 -6.3007,57.2317 -6.5182,57.3391 -6.5617,57.3119 -6.5519,57.2828 -6.5566,57.2681 -6.567,57.2654 -6.6128,57.276 -6.6769,57.2926 -6.6879,57.2959 -6.6974,57.2998 -6.7099,57.3114 -6.7121,57.3354 -6.7629,57.3616 -6.7729,57.3799 -6.7353,57.4245 -6.6255,57.5371 -6.6108,57.5374 -6.5994,57.5342 -6.5743,57.5203 -6.5633,57.512 -6.5535,57.4997 -6.5503,57.484 -6.4513,57.4407 -6.4182,57.4367 -6.3639,57.4557 -6.384,57.5342 -6.4085,57.5686 -6.3956,57.5803 -6.334,57.6161 -6.2924,57.6175 -6.2655,57.6035 -6.1667,57.5429 -6.1491,57.5255 -6.1338,57.5031 -6.1256,57.4162 -6.1353,57.3509 -6.1367,57.3358 -6.1236,57.2449 -6.1162,57.2381 -5.8883,57.1738 -5.8726,57.1717 -5.8228,57.1855 -5.7585,57.2042 -5.7365,57.208 -5.6372,57.1903 -5.6539,57.1379 -5.7931,57.0489 -5.8059,57.0423 -5.8193,57.0382 -5.8367,57.0373 -5.8367,57.0373 17,-5.0,Canada -79.5628,57.5123 -79.5549,57.4949 -79.5523,57.4634 -79.5548,57.4514 -79.5615,57.4403 -79.569,57.4322 -79.6591,57.3496 -79.6922,57.3918 -79.6831,57.4696 -79.6648,57.4932 -79.6486,57.5103 -79.6053,57.541 -79.5934,57.5487 -79.5813,57.5463 -79.5623,57.5171 -79.5628,57.5123 -79.5628,57.5123 21,-4.0,Canada -61.8156,57.3842 -61.8306,57.3859 -61.8475,57.3918 -61.9005,57.4399 -61.9099,57.4526 -61.9097,57.4689 -61.9024,57.4808 -61.8804,57.5006 -61.8599,57.5143 -61.8368,57.522 -61.7663,57.5164 -61.7434,57.5119 -61.7216,57.5061 -61.7061,57.4988 -61.6694,57.4783 -61.6658,57.4527 -61.6699,57.4427 -61.7529,57.3982 -61.7668,57.3948 -61.8156,57.3842 -61.8156,57.3842 63,-9.0,United States -134.8503,56.527 -134.867,56.5283 -134.9627,56.6185 -134.9346,56.6517 -134.9146,56.6743 -134.8842,56.7605 -134.9153,56.7567 -134.9607,56.7417 -134.9828,56.7339 -135.0233,56.7166 -135.0582,56.7192 -135.1266,56.765 -135.1157,56.8905 -135.1148,57.004 -135.136,57.0308 -135.1632,57.0974 -135.119,57.1237 -135.0956,57.1772 -135.2147,57.1797 -135.262,57.1748 -135.3089,57.1893 -135.3919,57.2454 -135.4239,57.2775 -135.402,57.2965 -135.3749,57.2962 -135.2759,57.2818 -135.2349,57.2957 -135.3031,57.3441 -135.2717,57.4365 -135.1955,57.476 -135.1721,57.4832 -135.1482,57.4855 -135.1079,57.4796 -134.9143,57.4072 -134.7332,57.318 -134.7032,57.2967 -134.5943,57.1823 -134.5565,57.0994 -134.5436,57.0529 -134.486,56.9211 -134.4446,56.8292 -134.4049,56.7296 -134.3801,56.6614 -134.3738,56.6154 -134.3694,56.5351 -134.3721,56.5084 -134.387,56.4706 -134.3846,56.4056 -134.3841,56.3189 -134.3861,56.1834 -134.4185,56.0998 -134.525,56.1548 -134.6456,56.2788 -134.7564,56.3996 -134.8089,56.464 -134.7912,56.5084 -134.7614,56.5186 -134.7013,56.5334 -134.6077,56.6166 -134.6379,56.6186 -134.813,56.5399 -134.8503,56.527 -134.8503,56.527 18,-4.0,Canada -61.5329,57.4543 -61.5237,57.441 -61.5035,57.3444 -61.5231,57.3306 -61.5407,57.3243 -61.5639,57.3218 -61.7285,57.34 -61.7485,57.3443 -61.7661,57.3503 -61.7809,57.3597 -61.7868,57.3715 -61.7018,57.4052 -61.6613,57.4269 -61.6285,57.4676 -61.6087,57.4679 -61.537,57.4617 -61.5329,57.4543 -61.5329,57.4543 14,1.0,United Kingdom -6.04,57.2565 -6.0546,57.2593 -6.0684,57.283 -6.0671,57.3259 -6.0618,57.3623 -6.0535,57.3848 -6.0186,57.4249 -5.992,57.4402 -5.9667,57.4228 -5.9838,57.2749 -5.9953,57.2669 -6.0158,57.2604 -6.04,57.2565 -6.04,57.2565 16,1.0,United Kingdom -7.2702,57.3294 -7.3034,57.3324 -7.3647,57.3522 -7.3744,57.3555 -7.3949,57.3802 -7.3891,57.3998 -7.3409,57.4207 -7.2872,57.4151 -7.2629,57.4123 -7.231,57.4079 -7.1906,57.391 -7.1901,57.3486 -7.2287,57.3345 -7.2555,57.3308 -7.2702,57.3294 -7.2702,57.3294 15,-9.0,United States -134.5766,57.3336 -134.5808,57.3222 -134.5673,57.2931 -134.5455,57.2764 -134.5533,57.2316 -134.5676,57.2286 -134.5802,57.236 -134.6224,57.2615 -134.7303,57.3408 -134.6981,57.3541 -134.6453,57.3602 -134.634,57.3596 -134.57,57.3468 -134.5766,57.3336 -134.5766,57.3336 25,1.0,United Kingdom -7.217,57.0271 -7.2525,57.0358 -7.2739,57.0385 -7.2899,57.0384 -7.3204,57.0321 -7.3461,57.0319 -7.3705,57.0437 -7.3807,57.0605 -7.4046,57.1166 -7.4075,57.1502 -7.4101,57.3154 -7.3989,57.3214 -7.3547,57.3331 -7.322,57.3275 -7.2724,57.3129 -7.2565,57.3054 -7.2106,57.2715 -7.2181,57.2645 -7.2409,57.2592 -7.2721,57.2678 -7.2749,57.2545 -7.246,57.0846 -7.2015,57.0467 -7.217,57.0271 -7.217,57.0271 17,-4.0,Canada -61.5825,57.2998 -61.5668,57.2892 -61.5213,57.2697 -61.5109,57.2676 -61.4977,57.2671 -61.4809,57.2598 -61.4977,57.2401 -61.5446,57.2222 -61.6265,57.2229 -61.6426,57.2346 -61.6559,57.2498 -61.6566,57.2604 -61.6366,57.2979 -61.6159,57.3062 -61.5917,57.3045 -61.5825,57.2998 -61.5825,57.2998 53,2.0,Sweden 16.4011,56.1423 16.3896,56.1468 16.3822,56.1585 16.3746,56.2078 16.3629,56.398 16.3659,56.4655 16.3915,56.5192 16.5134,56.709 16.5847,56.8037 16.5998,56.8117 16.6157,56.8162 16.7199,56.872 16.8182,56.9966 16.8699,57.0672 16.9311,57.1587 16.9351,57.1736 16.93,57.1891 16.9296,57.2091 16.9357,57.2255 16.9431,57.2372 16.9523,57.2474 16.9625,57.2565 16.9794,57.2693 16.9919,57.2769 17.0049,57.2839 17.026,57.2911 17.0716,57.2813 17.0936,57.2527 17.0202,57.1188 16.9784,57.0642 16.9311,57.0075 16.8966,56.9703 16.8502,56.8622 16.8186,56.7763 16.8089,56.7624 16.7981,56.7581 16.783,56.7578 16.7527,56.7406 16.7405,56.7285 16.697,56.6352 16.6062,56.4518 16.5474,56.3403 16.5408,56.3247 16.5419,56.3075 16.5465,56.2978 16.5425,56.2883 16.524,56.2598 16.4671,56.1743 16.4577,56.165 16.4448,56.1579 16.4083,56.1451 16.4011,56.1423 16.4011,56.1423 30,-9.0,United States -135.4568,57.249 -135.4021,57.2277 -135.3832,57.22 -135.3686,57.2105 -135.3465,57.1952 -135.3341,57.1825 -135.3119,57.1587 -135.3039,57.0644 -135.3246,57.0144 -135.3839,56.9385 -135.4776,56.926 -135.5537,56.9189 -135.5848,56.9182 -135.5957,56.9234 -135.5828,57.0124 -135.5734,57.0213 -135.5411,57.0332 -135.5202,57.0381 -135.51,57.0426 -135.4719,57.0732 -135.4698,57.095 -135.5059,57.097 -135.5647,57.1003 -135.5767,57.1074 -135.6021,57.2511 -135.5895,57.2577 -135.5167,57.2637 -135.4669,57.2557 -135.4568,57.249 -135.4568,57.249 21,2.0,Denmark 10.9627,57.1537 10.9423,57.1699 10.9304,57.1779 10.9143,57.1823 10.9029,57.183 10.8885,57.1805 10.8768,57.1769 10.8604,57.1785 10.8455,57.1843 10.8384,57.1965 10.9004,57.2339 11.006,57.2521 11.1274,57.2635 11.1698,57.2573 11.1766,57.2446 11.0594,57.1824 11.0386,57.1728 11.0044,57.1617 10.9781,57.1554 10.9627,57.1537 10.9627,57.1537 18,-9.0,United States -169.9763,57.0373 -169.9648,57.0649 -169.9661,57.0763 -170.0004,57.0826 -170.0131,57.0833 -170.0492,57.077 -170.1024,57.0935 -170.1084,57.1036 -170.1066,57.1158 -170.093,57.1295 -170.0819,57.1337 -170.0118,57.1457 -169.8457,57.1605 -169.8352,57.1489 -169.8586,57.0989 -169.9444,57.0618 -169.9763,57.0373 -169.9763,57.0373 21,-9.0,United States -152.6213,57.0679 -152.6439,57.0559 -152.8287,57.0163 -152.936,56.9744 -152.9452,56.9558 -152.9561,56.9447 -152.9758,56.9317 -153.0379,56.9213 -153.0642,56.9306 -153.1259,56.9882 -153.1329,57.002 -153.0015,57.1287 -152.9597,57.1379 -152.9486,57.139 -152.901,57.1163 -152.6924,57.1079 -152.6821,57.107 -152.618,57.0918 -152.6095,57.0791 -152.6213,57.0679 -152.6213,57.0679 61,-9.0,United States -132.8145,56.91 -132.7359,56.8571 -132.69,56.7841 -132.7099,56.6754 -132.6892,56.5927 -132.6983,56.5627 -132.7349,56.5416 -132.7742,56.5338 -132.8904,56.5992 -132.9512,56.6493 -132.9673,56.6835 -132.9803,56.7146 -133.006,56.7385 -133.1104,56.7701 -133.0959,56.6946 -133.0693,56.6643 -132.9506,56.5706 -132.8785,56.5545 -132.8597,56.5467 -132.8528,56.4874 -132.8478,56.4658 -132.8966,56.4043 -132.9215,56.3894 -132.952,56.3851 -133.0697,56.4048 -133.1916,56.4065 -133.2319,56.3855 -133.2698,56.3687 -133.3403,56.3667 -133.4032,56.3726 -133.4222,56.3959 -133.4261,56.4562 -133.3985,56.5298 -133.4307,56.5711 -133.4571,56.5834 -133.4701,56.6164 -133.4543,56.6831 -133.4446,56.7267 -133.4618,56.7624 -133.5022,56.7397 -133.6328,56.8015 -133.6435,56.8304 -133.5944,56.8148 -133.5682,56.8087 -133.5107,56.8067 -133.5034,56.8276 -133.6472,56.883 -133.7791,56.9469 -133.7691,56.987 -133.6687,57.0125 -133.6037,57.0133 -133.5221,57.0019 -133.3913,56.9827 -133.2619,56.9605 -133.2004,56.9456 -133.0799,56.9261 -133.0583,56.9302 -132.9297,56.934 -132.8437,56.9262 -132.8145,56.91 -132.8145,56.91 261,2.0,Denmark 8.6497,54.8489 8.6399,54.9177 8.6612,55.0495 8.5456,55.0268 8.4778,54.9978 8.4553,55.0144 8.4434,55.0623 8.4607,55.1148 8.4828,55.1314 8.5483,55.1287 8.5755,55.1176 8.5446,55.0943 8.5624,55.0775 8.6234,55.0667 8.6741,55.0752 8.6746,55.0955 8.6466,55.1383 8.6433,55.1937 8.6469,55.252 8.6231,55.3374 8.6035,55.366 8.5799,55.3766 8.5215,55.3838 8.4594,55.3886 8.4305,55.3867 8.2933,55.488 8.2426,55.4256 8.0791,55.4908 8.1092,55.5326 8.1253,55.559 8.1663,55.6512 8.1716,55.6774 8.1695,55.6896 8.1524,55.7826 8.1393,55.8333 8.1288,55.872 8.1205,55.8933 8.1135,55.9179 8.1342,55.9072 8.146,55.8822 8.1539,55.8544 8.1592,55.8317 8.1682,55.7734 8.1771,55.7449 8.2624,55.7693 8.3096,55.79 8.3812,55.8289 8.3707,55.8572 8.3027,55.9479 8.2969,55.9849 8.2484,56.0126 8.2095,56.0265 8.1274,56.0427 8.132,56.0054 8.1122,55.9315 8.0941,55.9518 8.0874,55.9954 8.0913,56.0516 8.1087,56.2826 8.1056,56.3833 8.1071,56.4814 8.1465,56.5785 8.1611,56.6007 8.1803,56.6242 8.2064,56.6402 8.2233,56.6208 8.2031,56.5922 8.1909,56.572 8.2353,56.5378 8.3126,56.513 8.3812,56.5146 8.4012,56.5113 8.4561,56.4941 8.5042,56.4762 8.5773,56.4369 8.6283,56.4073 8.7248,56.4234 8.7416,56.4819 8.7472,56.4936 8.6987,56.5178 8.6657,56.5507 8.8262,56.6556 8.8524,56.6895 8.9443,56.7381 9.0567,56.7402 9.0946,56.725 9.1257,56.6308 9.0382,56.5624 9.0287,56.5287 9.0469,56.4987 9.0758,56.5049 9.086,56.5362 9.1617,56.5596 9.2022,56.5666 9.2328,56.5661 9.262,56.5461 9.2351,56.5148 9.2567,56.4862 9.3018,56.4583 9.3571,56.4901 9.3364,56.5014 9.3068,56.6092 9.3037,56.6141 9.2812,56.636 9.251,56.6291 9.1558,56.6076 9.1488,56.825 9.1621,56.8486 9.2859,56.9321 9.3491,56.9444 9.401,56.9516 9.4557,56.9517 9.5027,56.9482 9.5382,56.9383 9.6689,56.9709 9.7523,56.9861 9.79,56.983 9.8362,56.978 9.9333,56.9907 9.9566,57.0042 10.1057,56.9507 10.1343,56.9378 10.1614,56.9265 10.1932,56.9181 10.2188,56.9146 10.2938,56.9139 10.2669,56.8899 10.2514,56.8453 10.2631,56.758 10.2685,56.7328 10.2873,56.681 10.2227,56.6504 10.1392,56.6529 9.8491,56.5831 9.869,56.5749 9.9157,56.5745 9.9862,56.592 10.0593,56.6189 10.1592,56.6294 10.298,56.6289 10.3249,56.6253 10.3386,56.6093 10.3438,56.5779 10.3105,56.5492 10.2899,56.5435 10.2611,56.5296 10.2276,56.5064 10.1969,56.4772 10.1699,56.4019 10.2106,56.4142 10.2064,56.4401 10.2139,56.4819 10.2907,56.511 10.3118,56.501 10.3458,56.4902 10.4021,56.4593 10.4904,56.444 10.5117,56.4415 10.5665,56.4445 10.6273,56.4548 10.7464,56.4654 10.768,56.4671 10.8286,56.4556 10.8477,56.4455 10.9426,56.3754 10.9023,56.2768 10.8886,56.262 10.7261,56.0975 10.6654,56.1278 10.6654,56.1529 10.6234,56.1631 10.598,56.1592 10.5714,56.1408 10.5342,56.0909 10.5557,56.0548 10.5305,56.0343 10.5014,56.0336 10.372,56.0956 10.3378,56.1311 10.4191,56.1536 10.4611,56.1541 10.4867,56.2047 10.4304,56.2253 10.3823,56.2244 10.2217,56.1061 10.1998,56.0755 10.2204,56.0524 10.2411,56.0214 10.2619,55.9527 10.233,55.8513 10.167,55.7625 10.1254,55.7752 10.1107,55.8001 10.0823,55.8119 10.038,55.8126 9.9951,55.8086 9.9651,55.8057 9.8524,55.7777 9.87,55.7683 9.9058,55.7627 9.9393,55.7591 9.9829,55.7557 10.0272,55.7498 10.0284,55.6846 9.9757,55.6394 9.8149,55.6059 9.7901,55.6043 9.7132,55.6214 9.6632,55.6404 9.6275,55.6457 9.5382,55.6371 9.5612,55.628 9.6,55.6295 9.6294,55.624 9.7049,55.5875 9.8024,55.539 9.6876,55.4658 9.5732,55.3528 9.5845,55.3345 9.594,55.3292 9.5812,55.3065 9.6549,55.2144 9.6896,55.1984 9.6941,55.1762 9.6606,55.1262 9.62,55.1165 9.597,55.1277 9.5582,55.1244 9.4731,55.0872 9.4456,55.0573 9.4912,54.9854 9.5325,54.9679 9.62,54.9518 9.709,54.9255 9.7302,54.8835 9.7495,54.832 9.7191,54.7665 9.6077,54.7892 9.598,54.8261 9.6266,54.8417 9.6156,54.8593 9.5811,54.8634 9.4866,54.8039 9.4358,54.7693 9.4293,54.7613 9.3987,54.7693 9.3615,54.7635 9.3349,54.7462 9.2326,54.7483 9.2153,54.7652 9.2131,54.7854 9.1533,54.8006 8.9259,54.8413 8.905,54.8439 8.8199,54.8495 8.7711,54.8418 8.744,54.8336 8.7047,54.8267 8.6781,54.8316 8.6497,54.8489 8.6497,54.8489 13,1.0,United Kingdom -7.4535,56.8731 -7.4616,56.8734 -7.5016,56.8755 -7.5171,56.8768 -7.5413,56.882 -7.5468,56.8905 -7.5398,56.8989 -7.429,56.9871 -7.4033,56.9749 -7.3638,56.9129 -7.4234,56.8764 -7.4535,56.8731 -7.4535,56.8731 20,1.0,United Kingdom -6.3059,56.8665 -6.3167,56.8672 -6.3503,56.879 -6.4393,56.9355 -6.4038,56.9652 -6.3816,56.9761 -6.3724,56.9805 -6.3359,56.9854 -6.3148,56.9866 -6.2625,56.9748 -6.2464,56.9673 -6.2381,56.9564 -6.2361,56.9278 -6.2448,56.8946 -6.2552,56.884 -6.2669,56.8771 -6.2872,56.8696 -6.2991,56.8669 -6.3059,56.8665 -6.3059,56.8665 53,-4.0,Canada -61.246,56.8434 -61.2916,56.8116 -61.2687,56.8041 -61.2511,56.7988 -61.2449,56.7879 -61.2525,56.7807 -61.2665,56.773 -61.3337,56.7502 -61.3803,56.7401 -61.4572,56.7159 -61.4676,56.7108 -61.4757,56.6966 -61.4696,56.6875 -61.4509,56.6851 -61.4314,56.6906 -61.4173,56.6982 -61.4058,56.7074 -61.3841,56.7207 -61.3671,56.723 -61.3248,56.7162 -61.277,56.7073 -61.2651,56.6766 -61.26,56.629 -61.2596,56.6188 -61.262,56.6081 -61.2699,56.5625 -61.2848,56.5506 -61.3004,56.5487 -61.3354,56.5525 -61.3749,56.5747 -61.4127,56.6029 -61.4517,56.6152 -61.479,56.6367 -61.4959,56.6465 -61.5326,56.6685 -61.5253,56.7038 -61.5151,56.7587 -61.5222,56.7923 -61.4791,56.8262 -61.425,56.8343 -61.4127,56.8474 -61.4154,56.8691 -61.3895,56.8852 -61.364,56.8913 -61.3512,56.8876 -61.3369,56.8677 -61.3197,56.8623 -61.2878,56.8602 -61.2633,56.8636 -61.2454,56.8687 -61.2327,56.8648 -61.246,56.8434 -61.246,56.8434 27,2.0,Denmark 8.6402,56.6069 8.6218,56.63 8.5881,56.6585 8.5441,56.6708 8.5277,56.6712 8.5023,56.6646 8.4944,56.6712 8.531,56.7262 8.6018,56.7633 8.6381,56.8225 8.6534,56.8255 8.6817,56.8249 8.7206,56.8268 8.7999,56.8382 8.8107,56.8473 8.8237,56.868 8.8429,56.8867 8.8841,56.8878 8.8952,56.8806 8.909,56.8529 8.8631,56.7314 8.816,56.6762 8.7532,56.6257 8.7295,56.6201 8.7197,56.6183 8.6402,56.6069 8.6402,56.6069 18,-5.0,Canada -79.642,56.8733 -79.6101,56.8407 -79.5764,56.7431 -79.5855,56.73 -79.6118,56.7155 -79.643,56.7179 -79.6517,56.7286 -79.6526,56.7654 -79.6511,56.7924 -79.6818,56.8277 -79.7105,56.8178 -79.7537,56.8161 -79.7527,56.8309 -79.7131,56.8721 -79.6618,56.8812 -79.6487,56.8801 -79.642,56.8733 -79.642,56.8733 131,-9.0,United States -133.627,56.2108 -133.6598,56.2335 -133.6811,56.253 -133.7121,56.2843 -133.7354,56.2918 -133.7378,56.2774 -133.7299,56.2506 -133.7332,56.2366 -133.7411,56.2224 -133.749,56.2026 -133.7381,56.1999 -133.7195,56.2094 -133.7082,56.2138 -133.687,56.2129 -133.6767,56.2081 -133.6679,56.1997 -133.662,56.1875 -133.6559,56.1672 -133.6529,56.1542 -133.6796,56.0826 -133.7118,56.0227 -133.7247,56.0162 -133.7434,56.0167 -133.7819,56.0289 -133.7991,56.037 -133.8022,56.0477 -133.7775,56.1238 -133.7904,56.2072 -133.8011,56.2387 -133.821,56.2452 -133.8305,56.2363 -133.861,56.0653 -133.8526,56.0178 -133.8677,55.9456 -133.8751,55.9309 -133.892,55.9314 -133.9275,55.9562 -133.9861,56.0006 -134.0296,56.1864 -134.0233,56.1964 -133.9844,56.2105 -133.9687,56.2316 -133.9912,56.2409 -134.0158,56.2485 -134.0461,56.282 -133.9953,56.3522 -133.9384,56.369 -133.8488,56.3305 -133.8284,56.3174 -133.8201,56.3063 -133.8139,56.2955 -133.7986,56.3107 -133.7965,56.3509 -133.816,56.437 -133.8276,56.4809 -133.8342,56.4891 -133.8526,56.4711 -133.9373,56.4691 -134.0666,56.4912 -134.1519,56.644 -134.155,56.6541 -134.17,56.7622 -134.1656,56.7802 -134.1574,56.7871 -134.0789,56.8279 -134.0589,56.833 -134.0373,56.8327 -134.025,56.8307 -134.0053,56.826 -133.9822,56.8168 -133.9397,56.7914 -133.917,56.782 -133.8818,56.7745 -133.8685,56.7784 -133.8976,56.8167 -133.908,56.8217 -133.9339,56.8274 -133.9563,56.829 -133.9746,56.8339 -134.0224,56.8714 -134.009,56.8722 -133.9529,56.8626 -133.8882,56.8457 -133.7976,56.8213 -133.7707,56.8132 -133.7522,56.8054 -133.688,56.7345 -133.6662,56.6829 -133.6849,56.648 -133.7279,56.5905 -133.7419,56.5845 -133.7771,56.5837 -133.7867,56.5813 -133.7695,56.575 -133.738,56.5686 -133.7218,56.5727 -133.7087,56.5794 -133.6799,56.6001 -133.635,56.6422 -133.625,56.6563 -133.6188,56.6696 -133.6155,56.6819 -133.6156,56.6931 -133.6179,56.7065 -133.6275,56.7228 -133.5928,56.7286 -133.4954,56.7084 -133.482,56.7016 -133.4893,56.5859 -133.4561,56.5299 -133.5023,56.4937 -133.5128,56.4889 -133.5265,56.4879 -133.5371,56.4895 -133.5464,56.4979 -133.5508,56.5137 -133.5575,56.5266 -133.5807,56.54 -133.5971,56.543 -133.6538,56.5478 -133.6754,56.5486 -133.6843,56.5442 -133.6774,56.5351 -133.6404,56.4568 -133.6466,56.3703 -133.6148,56.286 -133.6065,56.278 -133.6109,56.2241 -133.6163,56.2151 -133.627,56.2108 -133.627,56.2108 17,-5.0,Canada -79.7017,56.7908 -79.6924,56.7852 -79.6745,56.7662 -79.6717,56.7495 -79.694,56.7239 -79.7328,56.6827 -79.7433,56.675 -79.7627,56.6746 -79.7854,56.686 -79.8032,56.7021 -79.8163,56.7396 -79.8127,56.7562 -79.8035,56.7664 -79.7747,56.7923 -79.7198,56.7985 -79.7017,56.7908 -79.7017,56.7908 13,-5.0,Canada -79.3554,56.6997 -79.3358,56.6546 -79.3337,56.622 -79.3466,56.5895 -79.4248,56.5503 -79.4426,56.5834 -79.4486,56.7011 -79.446,56.7215 -79.4387,56.7424 -79.4294,56.7493 -79.3754,56.7183 -79.3554,56.6997 -79.3554,56.6997 28,-9.0,United States -132.5661,56.7191 -132.4973,56.6575 -132.4321,56.6113 -132.379,56.5781 -132.3152,56.5382 -132.3017,56.5342 -132.294,56.5257 -132.295,56.514 -132.3044,56.504 -132.3278,56.4921 -132.343,56.4872 -132.4494,56.4533 -132.5387,56.4278 -132.558,56.4272 -132.6602,56.4306 -132.6713,56.4316 -132.6958,56.4376 -132.7084,56.449 -132.7213,56.5272 -132.6877,56.552 -132.6615,56.555 -132.6482,56.5677 -132.663,56.5895 -132.6876,56.6351 -132.6825,56.6816 -132.6375,56.7287 -132.5661,56.7191 -132.5661,56.7191 13,-4.0,Canada -61.1034,56.5145 -61.1117,56.5188 -61.1235,56.5488 -61.1178,56.5595 -61.0541,56.6192 -61.042,56.6221 -61.0235,56.6201 -60.9714,56.6097 -60.9529,56.5588 -60.9957,56.5398 -61.0792,56.5192 -61.1034,56.5145 -61.1034,56.5145 16,1.0,United Kingdom -6.6663,56.4887 -6.6738,56.4899 -6.6825,56.5023 -6.6856,56.5145 -6.602,56.5675 -6.5622,56.5862 -6.534,56.5991 -6.4955,56.6161 -6.4815,56.6201 -6.4443,56.6155 -6.4734,56.5714 -6.4855,56.5604 -6.5648,56.5173 -6.5775,56.5129 -6.6663,56.4887 -6.6663,56.4887 67,1.0,United Kingdom -6.1055,56.583 -6.0578,56.5718 -6.0459,56.5688 -6.0287,56.5559 -5.9838,56.5146 -5.9619,56.4808 -5.8457,56.4522 -5.7868,56.4463 -5.7734,56.4421 -5.7044,56.412 -5.6408,56.3843 -5.6384,56.3731 -5.6506,56.3324 -5.6917,56.2924 -5.7045,56.2854 -5.7983,56.2509 -5.8331,56.242 -5.8496,56.2439 -5.8629,56.2514 -5.8522,56.2633 -5.843,56.2783 -5.8537,56.2856 -5.872,56.2854 -5.8824,56.2825 -5.9727,56.2521 -6.0053,56.2381 -6.2535,56.1925 -6.3119,56.199 -6.3282,56.21 -6.3358,56.2164 -6.355,56.2444 -6.3523,56.2632 -6.3389,56.2702 -6.3281,56.2727 -6.2865,56.274 -6.275,56.2716 -6.2638,56.2638 -6.2207,56.2517 -6.0548,56.2884 -6.0139,56.2997 -6.0085,56.3092 -6.0201,56.3159 -6.0679,56.3046 -6.0938,56.2963 -6.1048,56.2934 -6.1583,56.2894 -6.1738,56.2902 -6.1849,56.298 -6.1904,56.3157 -6.1321,56.3614 -6.072,56.376 -6.0606,56.3792 -6.0212,56.3927 -6.0063,56.3984 -5.9955,56.4091 -5.9927,56.4256 -6.0068,56.4296 -6.088,56.4141 -6.1069,56.4065 -6.118,56.4079 -6.3138,56.4725 -6.3262,56.4797 -6.3101,56.5346 -6.1754,56.5758 -6.1262,56.586 -6.1055,56.583 -6.1055,56.583 19,-9.0,United States -169.2806,56.4689 -169.3119,56.4729 -169.345,56.48 -169.4441,56.5218 -169.4689,56.5356 -169.4825,56.5473 -169.4601,56.5511 -169.4257,56.5463 -169.3731,56.5416 -169.2944,56.5359 -169.2843,56.5368 -169.2575,56.5403 -169.2214,56.5465 -169.1885,56.5365 -169.1731,56.5276 -169.2022,56.5079 -169.2659,56.4742 -169.2806,56.4689 -169.2806,56.4689 21,-9.0,United States -153.8108,56.537 -153.8029,56.5215 -153.8051,56.5067 -153.8346,56.4698 -153.9049,56.4407 -153.9351,56.4329 -153.9645,56.4311 -153.9746,56.4321 -154.0247,56.4377 -154.0563,56.4436 -154.0675,56.4547 -154.08,56.4747 -154.0425,56.5084 -154.0321,56.5162 -154.0149,56.5272 -153.9994,56.5323 -153.9618,56.54 -153.9421,56.5418 -153.8145,56.5433 -153.8108,56.537 -153.8108,56.537 29,-9.0,United States -154.2081,56.5346 -154.2235,56.5302 -154.2417,56.523 -154.2519,56.5117 -154.2537,56.4843 -154.2311,56.469 -154.2177,56.4416 -154.2523,56.4348 -154.2967,56.4237 -154.336,56.4103 -154.3647,56.3971 -154.4029,56.3715 -154.4317,56.3415 -154.4473,56.3334 -154.4639,56.3294 -154.4905,56.3313 -154.5146,56.3481 -154.5193,56.3631 -154.5061,56.3853 -154.4867,56.4079 -154.4676,56.4284 -154.4419,56.4507 -154.3752,56.4804 -154.3326,56.4998 -154.2899,56.5202 -154.2581,56.5322 -154.2321,56.536 -154.2081,56.5346 -154.2081,56.5346 13,-9.0,United States -154.2081,56.5346 -154.1793,56.5286 -154.1485,56.5209 -154.1393,56.5158 -154.1307,56.5065 -154.1268,56.4943 -154.1323,56.4778 -154.1484,56.4723 -154.1454,56.483 -154.1733,56.5198 -154.1826,56.5251 -154.2081,56.5346 -154.2081,56.5346 22,-9.0,United States -156.9624,56.5148 -156.8818,56.516 -156.7951,56.514 -156.7784,56.51 -156.7229,56.49 -156.6984,56.4702 -156.725,56.4624 -156.7468,56.4783 -156.759,56.4815 -156.7917,56.4822 -156.834,56.4826 -156.8453,56.4826 -156.8631,56.4781 -156.9177,56.4638 -157.0495,56.4553 -157.0517,56.4688 -157.0204,56.492 -157.0094,56.4998 -156.9914,56.5104 -156.9735,56.5147 -156.9624,56.5148 -156.9624,56.5148 139,-5.0,Canada -79.0372,55.8572 -79.0615,55.8269 -79.0278,55.9077 -78.9835,55.9806 -78.9235,56.0822 -78.884,56.1362 -78.8701,56.155 -78.8522,56.1952 -78.8468,56.2071 -78.8338,56.2399 -78.8299,56.2521 -78.8272,56.2696 -78.8313,56.3142 -78.8412,56.3226 -78.8596,56.3175 -78.904,56.294 -78.916,56.2777 -78.9232,56.2632 -78.9515,56.1975 -78.9541,56.1654 -78.9541,56.1474 -78.9444,56.1076 -79.0745,55.8879 -79.0978,55.8514 -79.1211,55.8202 -79.1448,55.8019 -79.1399,55.8194 -79.1289,55.8369 -79.0885,55.8965 -79.0452,55.9715 -79.0013,56.0489 -78.9953,56.0605 -78.994,56.1094 -79.001,56.1408 -79.0114,56.1664 -79.0214,56.165 -79.0312,56.1591 -79.0667,56.1244 -79.1049,56.0846 -79.1175,56.0647 -79.1318,56.0386 -79.1387,56.0244 -79.1454,56.0118 -79.1608,55.9855 -79.1704,55.97 -79.1851,55.9508 -79.2201,55.9082 -79.3138,55.8139 -79.3416,55.7978 -79.3581,55.7919 -79.377,55.7892 -79.394,55.7891 -79.429,55.7988 -79.4551,55.8083 -79.4661,55.8159 -79.6432,55.7221 -79.624,55.7481 -79.4591,55.9157 -79.3478,56.021 -79.3354,56.0322 -79.3311,56.0422 -79.3365,56.0537 -79.358,56.0673 -79.3735,56.0685 -79.3837,56.0677 -79.3977,56.0633 -79.4108,56.057 -79.4282,56.0464 -79.458,56.0251 -79.5058,55.9845 -79.6802,55.8352 -79.6923,55.8239 -79.7073,55.8082 -79.7189,55.7939 -79.7257,55.7833 -79.7699,55.7747 -79.8465,55.8319 -79.8222,55.8941 -79.6348,56.0458 -79.5284,56.1235 -79.5056,56.1335 -79.4481,56.1637 -79.3966,56.2285 -79.387,56.2377 -79.3764,56.2533 -79.3546,56.3004 -79.3474,56.3359 -79.3185,56.3993 -79.3183,56.4116 -79.3258,56.432 -79.3342,56.4542 -79.3284,56.4796 -79.316,56.4863 -79.3034,56.4848 -79.278,56.4239 -79.2792,56.3769 -79.3029,56.3267 -79.3353,56.2539 -79.3916,56.1404 -79.3751,56.1199 -79.3222,56.1269 -79.2995,56.1307 -79.2878,56.1368 -79.2752,56.1478 -79.1702,56.3576 -79.161,56.3803 -79.158,56.3927 -79.1533,56.4212 -79.1517,56.432 -79.1461,56.5031 -79.0002,56.4795 -78.9915,56.4734 -78.9857,56.4472 -78.9812,56.4258 -78.9724,56.4083 -78.9602,56.3963 -78.9519,56.3875 -78.9362,56.3772 -78.9163,56.3669 -78.8993,56.3623 -78.8825,56.3602 -78.87,56.3595 -78.849,56.36 -78.8067,56.3641 -78.7933,56.3604 -78.7847,56.3507 -78.7819,56.3399 -78.7841,56.3204 -78.7974,56.2509 -78.8078,56.2173 -78.8196,56.2088 -78.8907,56.1061 -78.9228,56.0582 -78.933,56.0389 -78.9464,56.0113 -78.9557,55.9889 -78.9916,55.9234 -79.0372,55.8572 -79.0372,55.8572 17,-9.0,United States -153.6042,56.484 -153.6076,56.4713 -153.617,56.4627 -153.6705,56.4404 -153.6871,56.436 -153.7911,56.4324 -153.8345,56.4341 -153.8577,56.4417 -153.8357,56.4565 -153.7989,56.4711 -153.767,56.4807 -153.7407,56.4838 -153.6936,56.4869 -153.6274,56.4911 -153.604,56.4889 -153.6042,56.484 -153.6042,56.484 29,-4.0,Canada -61.4491,56.485 -61.4171,56.4833 -61.3506,56.4787 -61.327,56.4743 -61.0602,56.4078 -61.0416,56.3764 -61.0513,56.3709 -61.0738,56.3684 -61.0923,56.3684 -61.1128,56.3687 -61.409,56.3801 -61.5003,56.3949 -61.5217,56.3986 -61.5289,56.4213 -61.4339,56.4202 -61.4173,56.4122 -61.4043,56.408 -61.3295,56.4095 -61.3119,56.4185 -61.3466,56.4297 -61.3882,56.433 -61.4187,56.4349 -61.52,56.4382 -61.5244,56.4476 -61.4933,56.486 -61.4831,56.4904 -61.4679,56.4907 -61.4491,56.485 -61.4491,56.485 17,1.0,United Kingdom -6.8804,56.372 -6.9127,56.3731 -6.9596,56.3823 -6.977,56.4295 -6.9607,56.4413 -6.9454,56.4461 -6.7487,56.4818 -6.7365,56.478 -6.718,56.4569 -6.7269,56.4489 -6.7463,56.4472 -6.7622,56.4488 -6.7804,56.4482 -6.7918,56.4454 -6.8667,56.4053 -6.8804,56.372 -6.8804,56.372 36,-5.0,Canada -79.9201,56.1179 -79.9469,56.1212 -79.9665,56.1303 -79.9586,56.175 -79.9146,56.2371 -79.9015,56.2453 -79.8817,56.2533 -79.7267,56.2909 -79.6551,56.2998 -79.6161,56.2951 -79.5839,56.296 -79.5583,56.3023 -79.5387,56.3117 -79.516,56.326 -79.502,56.3378 -79.4761,56.3627 -79.4637,56.3773 -79.4575,56.3875 -79.4507,56.4023 -79.4457,56.4303 -79.4059,56.4582 -79.4091,56.441 -79.4734,56.3286 -79.4798,56.3184 -79.4979,56.294 -79.5094,56.2797 -79.5232,56.2674 -79.5421,56.251 -79.5608,56.2396 -79.5741,56.2335 -79.7663,56.1608 -79.7879,56.1532 -79.8456,56.1331 -79.8788,56.1251 -79.9201,56.1179 -79.9201,56.1179 42,-9.0,United States -131.8248,56.0451 -131.8675,56.0945 -131.878,56.0993 -131.9392,56.1187 -131.96,56.1233 -131.9717,56.1254 -131.9828,56.1259 -131.9932,56.1282 -132.0194,56.1365 -132.0408,56.1473 -132.0699,56.1657 -132.0803,56.1737 -132.0989,56.1899 -132.1137,56.2046 -132.1154,56.2148 -132.0998,56.2388 -132.0952,56.2486 -132.0943,56.2602 -132.0935,56.3351 -132.1151,56.3697 -132.1348,56.3873 -132.1422,56.4087 -132.1383,56.4204 -132.1216,56.4218 -132.0229,56.3869 -131.9983,56.3724 -131.9897,56.3543 -131.9851,56.332 -131.9794,56.3227 -131.9283,56.2865 -131.8952,56.2778 -131.8761,56.2776 -131.8594,56.2859 -131.8419,56.2931 -131.8105,56.2882 -131.7745,56.2719 -131.7627,56.2618 -131.7573,56.2521 -131.7155,56.1658 -131.779,56.0679 -131.8248,56.0451 -131.8248,56.0451 27,-9.0,United States -132.601,56.1643 -132.6119,56.1653 -132.6281,56.1712 -132.6768,56.1946 -132.8108,56.2654 -132.8212,56.2823 -132.7549,56.3545 -132.7058,56.381 -132.6864,56.3867 -132.6533,56.3887 -132.4985,56.3915 -132.4883,56.3915 -132.4691,56.3894 -132.4491,56.3858 -132.4224,56.3775 -132.4047,56.3693 -132.3961,56.3579 -132.3807,56.3267 -132.4015,56.2319 -132.4073,56.2168 -132.4149,56.2094 -132.4441,56.1991 -132.4676,56.1928 -132.5264,56.1794 -132.5841,56.1673 -132.601,56.1643 -132.601,56.1643 256,3.0,Lithuania 26.567,55.6091 26.5766,55.5868 26.582,55.5329 26.4812,55.3817 26.4194,55.2735 26.4605,55.2588 26.4835,55.2527 26.5153,55.2489 26.5797,55.265 26.5999,55.265 26.7294,55.2462 26.7669,55.2251 26.7608,55.2048 26.7377,55.1897 26.596,55.1259 26.4669,55.0852 26.4364,55.0903 26.2351,55.081 26.2083,55.054 26.2045,55.014 26.17,54.9613 26.1163,54.9129 26.0318,54.8977 25.8925,54.8911 25.8675,54.8893 25.831,54.8769 25.7483,54.8088 25.6932,54.724 25.6837,54.6109 25.6884,54.59 25.714,54.5511 25.719,54.5185 25.7054,54.5007 25.6815,54.4847 25.6127,54.4594 25.5124,54.2992 25.509,54.2633 25.5326,54.249 25.5684,54.2478 25.6075,54.2523 25.6486,54.2639 25.6695,54.268 25.764,54.1831 25.7422,54.1011 25.723,54.0907 25.6261,54.0732 25.4975,54.0821 25.4628,54.1219 25.502,54.1372 25.5304,54.1796 25.4585,54.2396 25.4245,54.241 25.3959,54.2254 25.3782,54.2076 25.3563,54.195 25.3303,54.1909 25.3036,54.1892 25.1624,54.1527 25.1371,54.1229 25.1202,54.1092 25.0595,54.0813 25.0356,54.073 24.9853,54.0685 24.9623,54.0791 24.9298,54.0941 24.8065,54.0802 24.757,54.0383 24.7811,54.0015 24.7984,53.975 24.7992,53.9481 24.7856,53.9214 24.6831,53.9073 24.6547,53.9335 24.5714,53.9292 24.4738,53.8873 24.4269,53.8595 24.3515,53.8273 24.2274,53.8443 24.2161,53.8664 24.2016,53.8826 24.1667,53.8999 24.1356,53.9046 24.1095,53.9024 24.0829,53.8884 24.0449,53.8745 23.9764,53.8743 23.9465,53.8759 23.8592,53.8775 23.7446,53.8725 23.6701,53.8609 23.5553,53.8679 23.5297,53.8761 23.5048,53.8803 23.4776,53.8838 23.4653,53.8842 23.469,53.8974 23.4786,53.9758 23.4551,54.054 23.4452,54.075 23.4188,54.1109 23.3173,54.1721 23.2941,54.1837 23.1658,54.2237 23.0771,54.2409 22.9563,54.322 22.8247,54.3448 22.7969,54.3417 22.774,54.3325 22.7475,54.3001 22.738,54.3132 22.6979,54.36 22.6722,54.3803 22.6603,54.4007 22.6532,54.4298 22.6567,54.4658 22.6815,54.6293 22.7069,54.6533 22.775,54.7077 22.8017,54.7136 22.8281,54.7481 22.8259,54.7743 22.8126,54.8173 22.7998,54.8351 22.6812,54.8982 22.6434,54.894 22.6068,54.9001 22.5643,54.9802 22.4745,54.9986 22.2417,55.0026 22.2202,55.0018 22.153,54.9962 22.101,54.9879 22.085,54.9743 22.0654,54.965 22.0222,54.9641 21.6856,55.0737 21.6104,55.1167 21.5274,55.1322 21.3947,55.1868 21.3341,55.2218 21.2911,55.2056 21.2638,55.1939 21.2384,55.1854 21.2274,55.1839 21.2524,55.2213 21.2092,55.4014 21.1611,55.5094 21.1077,55.6119 21.0736,55.6482 21.0406,55.6669 21.0217,55.7157 21.0082,55.8169 21.0078,55.8472 21.0232,55.885 21.0304,55.9186 21.0223,55.9898 21.015,56.011 21.0213,56.0132 21.0624,56.019 21.0872,56.0211 21.1098,56.0219 21.1703,56.0196 21.189,56.0354 21.1973,56.0657 21.2046,56.0989 21.2219,56.1123 21.3221,56.173 21.3506,56.1737 21.3839,56.1745 21.4103,56.1823 21.5288,56.2287 21.6974,56.2568 21.8668,56.3024 22.0052,56.3475 22.0285,56.3528 22.1081,56.3573 22.2702,56.3371 22.4498,56.3396 22.4797,56.3379 22.5142,56.3329 22.5471,56.3279 22.5851,56.3189 22.6087,56.3047 22.6266,56.294 22.6514,56.2901 22.7924,56.3143 22.8129,56.3255 22.8461,56.3434 22.8898,56.3562 22.9108,56.3535 22.9494,56.3292 22.9635,56.3081 22.9751,56.286 22.9942,56.2648 23.0206,56.2499 23.0647,56.2397 23.098,56.2515 23.1341,56.2882 23.2554,56.3143 23.2851,56.3123 23.3222,56.3005 23.4069,56.2774 23.4842,56.2674 23.5122,56.2695 23.5321,56.2787 23.5584,56.2949 23.6922,56.2939 23.8316,56.2761 23.9068,56.2657 23.9579,56.2538 24.0277,56.2171 24.0994,56.1963 24.1269,56.1957 24.2226,56.2229 24.2917,56.2432 24.3291,56.2321 24.3776,56.2094 24.4066,56.203 24.4338,56.2029 24.5175,56.2227 24.5396,56.2458 24.5598,56.2626 24.6101,56.2993 24.8505,56.3832 24.875,56.376 24.8984,56.3403 24.9128,56.3156 24.9269,56.2871 24.9383,56.2627 24.9527,56.2335 25.0331,56.1484 25.0576,56.1329 25.0959,56.1209 25.1164,56.1181 25.1392,56.1171 25.2182,56.1146 25.2834,56.1026 25.3851,56.1001 25.5382,56.0851 25.6637,56.0307 25.846,55.9333 25.892,55.9128 25.9602,55.8913 26.0129,55.8721 26.1509,55.798 26.171,55.7799 26.1943,55.7511 26.2204,55.7075 26.2676,55.6739 26.293,55.6607 26.3211,55.6507 26.4589,55.6196 26.4854,55.6151 26.5373,55.61 26.567,55.6091 26.567,55.6091 24,-5.0,Canada -78.7893,56.0476 -78.7923,56.0623 -78.7784,56.1061 -78.7678,56.1184 -78.7448,56.1354 -78.7078,56.1681 -78.6917,56.1869 -78.6866,56.1963 -78.6747,56.2383 -78.6728,56.2745 -78.6949,56.2816 -78.6238,56.358 -78.6125,56.3659 -78.5929,56.3739 -78.5518,56.3769 -78.5235,56.3673 -78.5126,56.2226 -78.5146,56.1756 -78.5175,56.157 -78.5382,56.1149 -78.5506,56.1062 -78.702,56.0638 -78.7893,56.0476 -78.7893,56.0476 18,-4.0,Canada -61.438,56.3242 -61.3846,56.3384 -61.3705,56.3401 -61.3599,56.3377 -61.3039,56.3042 -61.306,56.2578 -61.316,56.2537 -61.3746,56.2432 -61.4612,56.2539 -61.4712,56.2559 -61.4913,56.2613 -61.5778,56.2862 -61.6114,56.2993 -61.679,56.3465 -61.569,56.3389 -61.5149,56.3332 -61.438,56.3242 -61.438,56.3242 41,-9.0,United States -132.0883,55.8463 -132.1944,55.89 -132.1907,55.9021 -132.1801,55.9297 -132.1883,55.962 -132.2163,55.9873 -132.3664,56.0142 -132.3753,56.0087 -132.379,55.9964 -132.3898,55.9827 -132.4031,55.9829 -132.4548,56.0332 -132.4634,56.0414 -132.4804,56.0695 -132.4844,56.0851 -132.4637,56.1529 -132.4506,56.1597 -132.3403,56.2113 -132.3323,56.2227 -132.2962,56.2654 -132.2829,56.2721 -132.2626,56.2765 -132.2042,56.2835 -132.1849,56.2841 -132.1693,56.2807 -132.1516,56.2655 -132.146,56.2466 -132.1379,56.2018 -132.1628,56.1553 -131.9799,56.1118 -131.9476,56.1022 -131.8757,56.0496 -131.8626,56.0349 -131.9067,56.0014 -131.8836,55.8815 -131.8893,55.8689 -131.9012,55.8609 -131.9133,55.8584 -132.0432,55.8508 -132.0883,55.8463 -132.0883,55.8463 153,-9.0,United States -131.931,55.3793 -131.9893,55.4103 -132.1489,55.4648 -132.1792,55.4715 -132.2054,55.4797 -132.2235,55.4938 -132.2464,55.5255 -132.2834,55.5494 -132.3132,55.5553 -132.3331,55.5023 -132.2711,55.4456 -132.054,55.3919 -131.8611,55.2027 -131.9081,55.1743 -131.9433,55.1776 -131.9743,55.1829 -132.0061,55.1842 -132.0227,55.1465 -132.0085,55.1283 -131.8735,55.133 -131.8435,55.1485 -131.8307,55.1709 -131.7877,55.2048 -131.7591,55.1945 -131.7413,55.1558 -131.7436,55.1138 -131.7694,55.0407 -131.8172,55.0144 -131.8578,55.0029 -131.8484,54.9765 -131.9164,54.9492 -131.9462,54.9401 -131.9866,54.9294 -131.9107,54.9007 -131.8593,54.912 -131.8312,54.9338 -131.8016,54.9575 -131.7463,54.9653 -131.7246,54.7241 -131.7829,54.6261 -131.902,54.6241 -132.0615,54.6492 -132.0721,54.6798 -132.0642,54.704 -132.0319,54.7201 -131.994,54.7204 -131.989,54.7272 -131.9965,54.7469 -132.0582,54.7905 -132.1004,54.8176 -132.2624,54.913 -132.2755,54.8889 -132.2901,54.8744 -132.3172,54.8699 -132.3464,54.8843 -132.3687,54.9045 -132.3473,54.9704 -132.3205,54.9803 -132.2886,54.9867 -132.2848,55.0415 -132.4228,55.1789 -132.4193,55.141 -132.4049,55.1232 -132.3823,55.1056 -132.3955,55.083 -132.4278,55.0738 -132.4664,55.0782 -132.5491,55.1166 -132.5742,55.1447 -132.5792,55.1832 -132.7165,55.1428 -132.7746,55.1382 -132.7991,55.1506 -132.7593,55.1638 -132.6824,55.2108 -132.7418,55.2061 -132.7965,55.2023 -132.9836,55.2126 -133.0319,55.2707 -132.9803,55.3157 -132.887,55.3124 -132.8125,55.2965 -132.7394,55.2849 -132.6716,55.2804 -132.6384,55.2887 -132.6595,55.295 -132.7152,55.3051 -132.7365,55.307 -132.7574,55.3077 -132.7724,55.3141 -132.8016,55.3328 -132.8847,55.4004 -132.8968,55.4255 -132.8879,55.4502 -132.8217,55.5116 -132.7756,55.5439 -132.7517,55.5539 -132.7307,55.5582 -132.6909,55.559 -132.7362,55.5731 -132.8287,55.558 -132.8895,55.5383 -132.9679,55.5123 -133.0289,55.509 -133.1348,55.55 -133.1518,55.5752 -133.1397,55.656 -133.0324,55.6755 -133.0118,55.6786 -132.9102,55.7506 -132.9119,55.814 -132.9458,55.7952 -132.9946,55.8208 -133.0076,55.836 -133.0246,55.8807 -133.0316,56.0884 -133.0879,56.1031 -133.131,56.1055 -133.1835,56.0984 -133.3302,56.1126 -133.3773,56.1388 -133.398,56.2073 -133.3753,56.2816 -133.3503,56.2831 -133.2537,56.2702 -133.112,56.2638 -133.0145,56.2643 -132.9458,56.2607 -132.8233,56.1712 -132.7903,56.1062 -132.8298,56.0519 -132.855,56.0392 -132.8922,56.0522 -132.8402,55.9852 -132.8104,55.9814 -132.7153,55.992 -132.6698,55.983 -132.5907,55.9624 -132.3906,55.8537 -132.282,55.7695 -132.2678,55.7547 -132.2336,55.7097 -132.2127,55.6225 -132.1747,55.5925 -132.0181,55.4765 -131.9979,55.4717 -131.978,55.4616 -131.9539,55.4469 -131.9369,55.4361 -131.9136,55.4103 -131.9151,55.3873 -131.931,55.3793 -131.931,55.3793 17,-4.0,Canada -60.9818,56.1038 -60.9522,56.0933 -60.9386,56.0876 -60.8373,56.0263 -60.8303,55.9461 -60.9338,55.9391 -60.975,55.9454 -61.0344,55.9543 -61.0639,55.9623 -61.08,55.9678 -61.1113,55.9825 -61.1211,55.997 -61.1255,56.0064 -61.1243,56.0236 -61.1072,56.0346 -60.9818,56.1038 -60.9818,56.1038 484,2.0,Byelarus 26.567,55.6091 26.5787,55.6223 26.5962,55.6332 26.6192,55.6402 26.6458,55.6362 26.6922,55.6221 26.7195,55.622 26.81,55.648 26.8365,55.6748 26.8583,55.7096 26.9388,55.7664 27.1055,55.7807 27.1643,55.7601 27.2633,55.7416 27.4834,55.7232 27.5119,55.7233 27.5525,55.7265 27.572,55.7526 27.5841,55.7802 27.5984,55.8534 27.6643,55.8899 27.7478,55.9351 27.8492,56.0039 27.8738,56.039 28.0727,56.1012 28.1004,56.0944 28.1188,56.084 28.1377,56.0676 28.2605,55.9851 28.2988,55.9895 28.3295,56.024 28.4785,56.039 28.5711,56.0332 28.5999,56.025 28.6505,55.9676 28.6569,55.9375 28.6755,55.9026 28.6962,55.89 28.7936,55.8851 28.8147,55.9121 28.9557,55.9576 28.9769,55.9631 29.0089,55.9666 29.0882,55.9557 29.1212,55.9495 29.359,55.8919 29.4046,55.8534 29.359,55.8314 29.3088,55.7311 29.3314,55.6944 29.4338,55.6266 29.4734,55.6273 29.605,55.6996 29.855,55.7801 29.8854,55.7872 29.9205,55.7904 30.1934,55.7885 30.4139,55.7396 30.4386,55.7333 30.5579,55.6522 30.6023,55.5951 30.7042,55.5316 30.7356,55.5291 30.7923,55.5491 30.8317,55.553 30.8612,55.5453 30.873,55.5369 30.8768,55.5124 30.8866,55.4304 30.8832,55.3341 30.8603,55.3133 30.8361,55.3103 30.8046,55.2885 30.7785,55.265 30.7629,55.2368 30.8649,55.1359 30.8909,55.1267 30.925,55.0874 30.9747,54.9838 30.8875,54.8995 30.8553,54.8895 30.8118,54.8829 30.7864,54.8581 30.7424,54.7794 30.7305,54.7349 30.7857,54.717 30.824,54.7049 30.8669,54.6873 30.9562,54.6453 31.0504,54.5815 31.0857,54.5127 31.059,54.4838 31.0348,54.4524 31.0402,54.4289 31.0782,54.4149 31.1462,54.3971 31.1734,54.3955 31.2596,54.2778 31.258,54.2369 31.2763,54.1797 31.4716,54.0877 31.4917,54.0799 31.6229,54.0434 31.6736,54.0432 31.7029,54.0416 31.7928,53.998 31.8124,53.943 31.8044,53.9067 31.7763,53.8236 31.7528,53.7935 31.7266,53.7744 31.7119,53.7416 31.8377,53.7152 31.883,53.7263 31.9187,53.7354 31.9404,53.7397 32.0668,53.7573 32.2762,53.6994 32.4031,53.6619 32.4307,53.6495 32.4521,53.6202 32.3675,53.5849 32.3712,53.5389 32.3905,53.5105 32.4206,53.4905 32.5671,53.4376 32.5877,53.4394 32.6118,53.4361 32.6865,53.3964 32.6831,53.3762 32.6713,53.2981 32.559,53.2508 32.3937,53.1531 32.3693,53.134 32.2465,53.07 32.1712,53.0438 32.09,53.0276 32.0604,53.0255 31.9063,53.0325 31.8667,53.0366 31.7482,53.0702 31.7378,53.1082 31.7251,53.1309 31.572,53.1557 31.3747,53.1468 31.3493,53.1266 31.3323,53.0917 31.3242,53.06 31.3362,53.0422 31.2643,52.9896 31.2164,52.9616 31.3404,52.8489 31.365,52.8315 31.3884,52.8181 31.4342,52.7999 31.4583,52.7959 31.488,52.7933 31.5292,52.7432 31.5368,52.7207 31.5433,52.6759 31.5047,52.6402 31.4547,52.6266 31.5367,52.5312 31.5586,52.4303 31.5787,52.3062 31.5559,52.2712 31.5437,52.2523 31.6515,52.1603 31.7152,52.116 31.7361,52.0972 31.736,52.0637 31.7338,52.0474 31.6849,52.0457 31.5724,52.0485 31.4741,52.056 31.4531,52.0569 31.3731,52.0597 31.3214,52.057 31.2966,52.0533 31.2745,52.0445 31.2471,52.0263 31.0835,52.0261 31.0574,52.0258 30.9111,52.0191 30.8865,52.0012 30.8822,51.9718 30.9105,51.9405 30.8485,51.9176 30.7769,51.8874 30.6989,51.8352 30.6142,51.7617 30.6193,51.7411 30.5782,51.6479 30.5175,51.5836 30.5067,51.4822 30.5391,51.4294 30.5965,51.3094 30.5954,51.2717 30.5687,51.2646 30.5208,51.2386 30.5043,51.1927 30.4177,51.2358 30.3034,51.2987 30.3006,51.3406 30.1603,51.4243 30.1334,51.432 30.1054,51.4338 29.9966,51.4308 29.9659,51.4297 29.9369,51.4266 29.8656,51.4131 29.8353,51.4001 29.7883,51.3823 29.7168,51.3812 29.6921,51.3976 29.6729,51.4316 29.6301,51.4397 29.5781,51.431 29.3643,51.3434 29.3084,51.316 29.2971,51.3136 29.2667,51.3281 29.2045,51.4427 29.1964,51.4814 29.136,51.5582 29.1178,51.568 29.0729,51.5772 29.0389,51.578 29.0075,51.5713 28.7921,51.4904 28.766,51.4749 28.7485,51.4565 28.7217,51.4217 28.7249,51.3886 28.7129,51.356 28.6221,51.3871 28.6087,51.405 28.5928,51.4504 28.5885,51.4839 28.584,51.505 28.4464,51.5212 28.4239,51.5183 28.3894,51.5063 28.2754,51.5293 28.2128,51.5995 28.172,51.5958 28.1382,51.5778 28.114,51.5502 28.0945,51.5232 28.0656,51.5099 28.0354,51.5048 27.9628,51.5025 27.9402,51.506 27.912,51.5153 27.8824,51.5319 27.8526,51.5534 27.8227,51.562 27.7891,51.5494 27.7708,51.5323 27.771,51.5086 27.7738,51.4734 27.705,51.4069 27.6387,51.4337 27.6669,51.4909 27.6813,51.5218 27.6443,51.5417 27.5542,51.5559 27.4691,51.5692 27.4107,51.5429 27.3741,51.5376 27.2403,51.5385 27.157,51.6154 27.1623,51.6574 27.1604,51.6913 27.1278,51.704 27.0387,51.7111 26.9773,51.7083 26.929,51.6921 26.9063,51.689 26.8844,51.6904 26.853,51.6954 26.7791,51.7126 26.7307,51.7256 26.681,51.7425 26.631,51.7551 26.601,51.7606 26.5667,51.761 26.5295,51.7582 26.4893,51.7534 26.4572,51.7517 26.4161,51.7527 26.3987,51.7631 26.3943,51.796 26.3231,51.7987 26.2975,51.7972 26.2556,51.7936 26.1669,51.7984 26.1346,51.8026 26.1035,51.8183 25.9864,51.8502 25.7781,51.8757 25.7302,51.8778 25.6935,51.867 25.6457,51.862 25.5585,51.8586 25.5227,51.8597 25.5067,51.8618 25.4001,51.862 25.3124,51.8683 25.2725,51.8793 25.2301,51.8933 25.2014,51.8994 25.1336,51.8992 25.0544,51.8819 25.0129,51.8721 24.9527,51.8518 24.8587,51.8405 24.7021,51.8296 24.6615,51.8337 24.3562,51.8246 24.2765,51.7638 24.2684,51.7429 24.2595,51.7047 24.2455,51.6812 24.0334,51.5653 24.0057,51.5505 23.961,51.5331 23.9262,51.5257 23.9012,51.5364 23.8857,51.5602 23.8644,51.5744 23.7144,51.5919 23.6133,51.5763 23.5766,51.547 23.5912,51.52 23.6046,51.464 23.5682,51.4682 23.5306,51.4801 23.5025,51.5329 23.4984,51.5939 23.5188,51.6055 23.511,51.6266 23.5215,51.6924 23.5755,51.8557 23.59,51.8919 23.6236,51.9457 23.6016,52.0191 23.5578,52.0516 23.3114,52.1463 23.2611,52.151 23.1783,52.1628 23.1564,52.1724 23.1288,52.2216 23.2118,52.3135 23.3403,52.4373 23.3602,52.4535 23.38,52.4642 23.4661,52.5064 23.4855,52.5126 23.5596,52.5352 23.596,52.5445 23.6175,52.5491 23.6504,52.5562 23.6782,52.5548 23.7089,52.5536 23.8456,52.617 23.8736,52.6318 23.897,52.6561 23.9029,52.6882 23.9015,52.709 23.9002,52.7132 23.893,52.7973 23.889,52.8867 23.8948,52.9502 23.8199,53.134 23.7471,53.2522 23.6619,53.3908 23.6349,53.4312 23.6017,53.4967 23.5787,53.5515 23.5699,53.5749 23.5539,53.6228 23.5518,53.6318 23.5419,53.6684 23.5007,53.7781 23.4713,53.8365 23.4651,53.8583 23.4638,53.8795 23.4653,53.8842 23.4776,53.8838 23.5048,53.8803 23.5297,53.8761 23.5553,53.8679 23.6701,53.8609 23.7446,53.8725 23.8592,53.8775 23.9465,53.8759 23.9764,53.8743 24.0449,53.8745 24.0829,53.8884 24.1095,53.9024 24.1356,53.9046 24.1667,53.8999 24.2016,53.8826 24.2161,53.8664 24.2274,53.8443 24.3515,53.8273 24.4269,53.8595 24.4738,53.8873 24.5714,53.9292 24.6547,53.9335 24.6831,53.9073 24.7856,53.9214 24.7992,53.9481 24.7984,53.975 24.7811,54.0015 24.757,54.0383 24.8065,54.0802 24.9298,54.0941 24.9623,54.0791 24.9853,54.0685 25.0356,54.073 25.0595,54.0813 25.1202,54.1092 25.1371,54.1229 25.1624,54.1527 25.3036,54.1892 25.3303,54.1909 25.3563,54.195 25.3782,54.2076 25.3959,54.2254 25.4245,54.241 25.4585,54.2396 25.5304,54.1796 25.502,54.1372 25.4628,54.1219 25.4975,54.0821 25.6261,54.0732 25.723,54.0907 25.7422,54.1011 25.764,54.1831 25.6695,54.268 25.6486,54.2639 25.6075,54.2523 25.5684,54.2478 25.5326,54.249 25.509,54.2633 25.5124,54.2992 25.6127,54.4594 25.6815,54.4847 25.7054,54.5007 25.719,54.5185 25.714,54.5511 25.6884,54.59 25.6837,54.6109 25.6932,54.724 25.7483,54.8088 25.831,54.8769 25.8675,54.8893 25.8925,54.8911 26.0318,54.8977 26.1163,54.9129 26.17,54.9613 26.2045,55.014 26.2083,55.054 26.2351,55.081 26.4364,55.0903 26.4669,55.0852 26.596,55.1259 26.7377,55.1897 26.7608,55.2048 26.7669,55.2251 26.7294,55.2462 26.5999,55.265 26.5797,55.265 26.5153,55.2489 26.4835,55.2527 26.4605,55.2588 26.4194,55.2735 26.4812,55.3817 26.582,55.5329 26.5766,55.5868 26.567,55.6091 26.567,55.6091 22,-9.0,United States -133.0521,56.0627 -133.0805,56.015 -133.13,55.944 -133.2251,55.937 -133.3753,55.8929 -133.4042,55.8672 -133.4669,55.8298 -133.5546,55.853 -133.5596,55.8653 -133.5595,55.8822 -133.5523,55.897 -133.5407,55.9097 -133.4486,55.9981 -133.3775,56.0398 -133.3374,56.0607 -133.1668,56.088 -133.1567,56.0882 -133.081,56.083 -133.0699,56.0821 -133.046,56.0716 -133.0521,56.0627 -133.0521,56.0627 28,1.0,United Kingdom -5.9613,55.7226 -6.0193,55.7265 -6.0424,55.7344 -6.0561,55.7401 -6.0638,55.7479 -6.0683,55.7609 -6.0772,55.8137 -6.0736,55.828 -6.0679,55.8395 -5.9574,55.9574 -5.9454,55.9644 -5.8935,55.9935 -5.7987,56.0435 -5.7449,56.0669 -5.7347,56.0711 -5.6982,56.084 -5.6841,56.0809 -5.6748,56.0534 -5.6805,56.0404 -5.6952,56.0313 -5.7069,56.0233 -5.7202,56.0118 -5.7389,55.994 -5.8356,55.8835 -5.8937,55.8164 -5.9366,55.7642 -5.9613,55.7226 -5.9613,55.7226 201,2.0,Denmark 11.8725,54.9211 11.8393,54.9494 11.8202,54.9588 11.7106,54.9958 11.7628,55.0678 11.7775,55.091 11.7209,55.134 11.7107,55.1386 11.6976,55.1417 11.6747,55.1425 11.6634,55.1393 11.6386,55.1222 11.5923,55.1224 11.5333,55.1259 11.5232,55.128 11.4992,55.1352 11.4345,55.1475 11.4083,55.1509 11.3973,55.1507 11.3808,55.1474 11.3316,55.1366 11.3037,55.1258 11.287,55.124 11.2536,55.128 11.2387,55.1303 11.2264,55.1371 11.1685,55.2738 11.1983,55.3312 11.1842,55.3834 11.1298,55.5019 11.1252,55.5121 11.0673,55.6007 11.056,55.6072 10.9753,55.6268 10.8608,55.6685 10.8785,55.6733 10.922,55.6733 10.9341,55.6722 11.1104,55.656 11.1192,55.648 11.1334,55.642 11.1492,55.6372 11.1697,55.6334 11.1819,55.6323 11.1916,55.633 11.3238,55.6817 11.4671,55.7758 11.4783,55.7877 11.4863,55.8011 11.4918,55.8133 11.4963,55.8293 11.489,55.8504 11.4717,55.8642 11.4544,55.872 11.4292,55.8766 11.36,55.8809 11.3399,55.8832 11.2579,55.9103 11.2536,55.9255 11.293,55.9152 11.3892,55.8955 11.5861,55.8704 11.6442,55.8756 11.6862,55.8848 11.7209,55.895 11.7325,55.8984 11.748,55.8972 11.7589,55.8865 11.7193,55.8555 11.6501,55.8244 11.6505,55.7485 11.6974,55.7275 11.713,55.7279 11.7248,55.7185 11.7451,55.6927 11.7796,55.6197 11.774,55.596 11.8031,55.6136 11.8117,55.6413 11.8233,55.6987 11.8834,55.8606 11.8934,55.8635 11.9042,55.8629 11.9203,55.8586 11.9387,55.8511 11.9691,55.8368 11.9795,55.826 12.0143,55.7407 12.0198,55.7274 12.0356,55.6811 12.0346,55.6673 12.0275,55.6569 12.0079,55.6494 11.989,55.6497 11.9497,55.6516 11.9159,55.6113 11.9151,55.5877 12.0386,55.59 12.0713,55.6328 12.073,55.6456 12.0706,55.6597 12.0668,55.6733 12.0512,55.6986 12.0201,55.8555 11.9902,55.8917 11.9585,55.8906 11.913,55.8841 11.866,55.8708 11.8508,55.8708 11.8304,55.8799 11.8267,55.8893 11.8422,55.9022 11.8984,55.9285 12.1531,56.0375 12.179,56.046 12.2538,56.0608 12.2692,56.0626 12.2804,56.0622 12.2912,56.0607 12.3099,56.0579 12.4924,56.0217 12.5116,56.0144 12.5953,55.9738 12.5721,55.9385 12.5622,55.9334 12.5483,55.9281 12.5062,55.8799 12.4947,55.8563 12.4973,55.8455 12.537,55.8013 12.5451,55.7917 12.5535,55.7808 12.5758,55.7301 12.5781,55.7013 12.5786,55.6886 12.5626,55.6694 12.5762,55.6369 12.5398,55.6014 12.5284,55.5917 12.5194,55.5851 12.5027,55.5738 12.4814,55.5658 12.4712,55.5382 12.4213,55.542 12.411,55.5501 12.4002,55.551 12.3824,55.5511 12.37,55.5479 12.3593,55.5444 12.3233,55.5275 12.3181,55.5247 12.2482,55.4947 12.2323,55.4871 12.2233,55.478 12.1849,55.4367 12.1716,55.417 12.1707,55.3964 12.1769,55.383 12.1859,55.3731 12.207,55.3607 12.2766,55.3377 12.3226,55.3365 12.3428,55.3338 12.3553,55.3301 12.3781,55.3158 12.4121,55.2945 12.423,55.2832 12.4313,55.2685 12.4409,55.2246 12.4248,55.2094 12.4045,55.1968 12.3912,55.1907 12.3084,55.1693 12.2946,55.1678 12.2727,55.1681 12.2515,55.1689 12.2231,55.1721 12.1824,55.1631 12.1553,55.1556 12.0156,55.1085 12.0052,55.1044 11.9947,55.0882 12.0414,55.0671 12.0543,55.0642 12.0708,55.0643 12.0942,55.068 12.11,55.0686 12.1286,55.0656 12.1581,55.0537 12.1505,54.9356 12.1378,54.9284 12.0513,54.9043 12.0207,54.9021 11.9928,54.9038 11.9746,54.9071 11.9579,54.9147 11.9312,54.9352 11.9209,54.938 11.8916,54.9394 11.8725,54.9211 11.8725,54.9211 17,-5.0,Canada -78.8712,55.9972 -78.8206,56.017 -78.8128,56.0098 -78.8017,55.9592 -78.9167,55.7995 -78.9522,55.751 -78.9669,55.7349 -78.9823,55.7255 -78.9971,55.7249 -78.9876,55.7393 -78.9712,55.7582 -78.965,55.7672 -78.9011,55.8865 -78.8911,55.9065 -78.8841,55.9301 -78.8712,55.9972 -78.8712,55.9972 18,2.0,Denmark 10.6415,55.7975 10.5925,55.6957 10.5818,55.6917 10.571,55.6919 10.5266,55.6952 10.5094,55.7016 10.4935,55.7393 10.4981,55.9048 10.5052,55.9153 10.5259,55.9282 10.5407,55.9309 10.541,55.9205 10.5384,55.9038 10.5422,55.8868 10.6036,55.8049 10.6167,55.7985 10.6415,55.7975 10.6415,55.7975 80,-9.0,United States -131.163,55.19 -131.172,55.1915 -131.1922,55.1961 -131.2289,55.2134 -131.2317,55.2345 -131.2019,55.2483 -131.142,55.2725 -131.0644,55.3459 -131.047,55.3679 -131.0546,55.4239 -131.12,55.5774 -131.1399,55.5596 -131.1335,55.5095 -131.1261,55.4897 -131.1,55.4428 -131.09,55.3924 -131.1019,55.3607 -131.1736,55.2832 -131.2326,55.2615 -131.1951,55.3 -131.1961,55.3202 -131.2188,55.3419 -131.2433,55.3832 -131.2389,55.4064 -131.202,55.4551 -131.2665,55.4401 -131.2893,55.4155 -131.2684,55.3567 -131.2454,55.3277 -131.2393,55.3036 -131.2924,55.2295 -131.3186,55.2267 -131.439,55.2794 -131.4603,55.2894 -131.4842,55.3024 -131.5916,55.3884 -131.473,55.4605 -131.4629,55.5445 -131.4759,55.5597 -131.4676,55.6053 -131.4009,55.6651 -131.394,55.7157 -131.4548,55.7277 -131.4555,55.7642 -131.3102,55.7862 -131.3012,55.8357 -131.2492,55.8533 -131.2105,55.8638 -131.0626,55.8918 -131.0306,55.894 -131.0026,55.8877 -130.9802,55.8722 -130.9141,55.8212 -130.8413,55.7554 -130.8278,55.7402 -130.708,55.571 -130.7114,55.4968 -130.7421,55.323 -130.8311,55.1932 -130.8485,55.1809 -130.875,55.1684 -130.9097,55.164 -130.9171,55.1338 -130.98,55.1218 -131.0223,55.1361 -131.0558,55.1612 -131.0592,55.1814 -131.0286,55.1999 -131.0067,55.2174 -130.9937,55.2342 -130.9661,55.2964 -130.9698,55.3282 -130.9918,55.3379 -131.0425,55.3178 -131.0469,55.2865 -131.0303,55.2533 -131.0646,55.2112 -131.1183,55.1918 -131.163,55.19 -131.163,55.19 15,-4.0,Canada -60.7689,55.7954 -60.7923,55.8041 -60.762,55.8837 -60.7457,55.889 -60.6375,55.8751 -60.6415,55.8656 -60.5837,55.8532 -60.5989,55.8372 -60.6128,55.8303 -60.6504,55.8144 -60.6728,55.8101 -60.7348,55.8003 -60.7524,55.7987 -60.7689,55.7954 -60.7689,55.7954 45,1.0,United Kingdom -6.2634,55.5073 -6.2893,55.5116 -6.3132,55.5213 -6.3104,55.5514 -6.2748,55.6416 -6.2415,55.7033 -6.2512,55.7114 -6.3173,55.7156 -6.3306,55.7117 -6.3391,55.7022 -6.3471,55.6884 -6.3561,55.675 -6.3686,55.6623 -6.3818,55.6517 -6.3995,55.6383 -6.4379,55.6147 -6.451,55.6084 -6.4619,55.6044 -6.4768,55.6033 -6.4916,55.6094 -6.498,55.6206 -6.4885,55.6555 -6.4838,55.6679 -6.4341,55.7853 -6.3585,55.8035 -6.2985,55.7975 -6.1812,55.8502 -6.1522,55.8614 -6.1284,55.8681 -6.1149,55.8651 -6.1078,55.8555 -6.112,55.8292 -6.1109,55.813 -6.0917,55.7432 -6.0848,55.7276 -6.0776,55.7181 -6.0646,55.7115 -6.0421,55.701 -6.0198,55.6547 -6.0155,55.6137 -6.0278,55.6045 -6.0661,55.5844 -6.218,55.5265 -6.2634,55.5073 -6.2634,55.5073 16,-9.0,United States -133.8811,55.8336 -133.888,55.8325 -133.9025,55.8276 -133.9432,55.8089 -133.9754,55.7923 -133.9872,55.7849 -134.0015,55.7701 -134.019,55.7516 -134.0603,55.7646 -134.082,55.7864 -134.1066,55.8476 -134.0876,55.8575 -133.8824,55.8555 -133.8673,55.8491 -133.8811,55.8336 -133.8811,55.8336 14,-9.0,United States -155.2855,55.8452 -155.2837,55.747 -155.287,55.7358 -155.2928,55.7227 -155.3065,55.7101 -155.3325,55.7069 -155.4452,55.7188 -155.4688,55.7627 -155.3488,55.8483 -155.3344,55.8539 -155.3093,55.8566 -155.2925,55.8527 -155.2855,55.8452 -155.2855,55.8452 15,1.0,United Kingdom -5.014,55.6558 -5.0236,55.6576 -5.1114,55.7128 -5.1903,55.8098 -5.1972,55.8306 -5.1658,55.8529 -5.1515,55.8492 -5.0712,55.8108 -5.0275,55.7718 -4.9984,55.7137 -4.9962,55.7019 -4.9992,55.6632 -5.0075,55.6563 -5.014,55.6558 -5.014,55.6558 13,-9.0,United States -132.9835,55.796 -132.9803,55.7889 -132.9795,55.7749 -132.9804,55.7606 -132.9987,55.7237 -133.0137,55.7092 -133.0294,55.7123 -133.0779,55.7554 -133.0992,55.8078 -133.0547,55.835 -133.036,55.8336 -132.9835,55.796 -132.9835,55.796 15,-9.0,United States -158.5323,55.8262 -158.507,55.8227 -158.4921,55.8176 -158.441,55.7796 -158.4345,55.7688 -158.4429,55.7611 -158.5772,55.7394 -158.588,55.7381 -158.6141,55.7383 -158.6294,55.749 -158.6352,55.7687 -158.6179,55.804 -158.5561,55.828 -158.5323,55.8262 -158.5323,55.8262 22,-9.0,United States -133.0714,55.7313 -133.069,55.7251 -133.0869,55.6999 -133.2508,55.6342 -133.2738,55.6278 -133.2915,55.625 -133.3022,55.6259 -133.3375,55.6368 -133.3592,55.6464 -133.3723,55.653 -133.3854,55.6599 -133.4032,55.6707 -133.4135,55.6782 -133.4454,55.7099 -133.4437,55.7204 -133.4017,55.7546 -133.3843,55.7617 -133.321,55.7631 -133.3101,55.7624 -133.0939,55.7365 -133.0714,55.7313 -133.0714,55.7313 27,1.0,United Kingdom -5.1629,55.364 -5.2232,55.3657 -5.274,55.3817 -5.2835,55.3857 -5.3317,55.4107 -5.3476,55.4388 -5.3911,55.5391 -5.3907,55.5524 -5.3868,55.5634 -5.3701,55.6046 -5.3613,55.6111 -5.3182,55.6352 -5.286,55.651 -5.2562,55.6516 -5.2427,55.6504 -5.2298,55.6479 -5.2192,55.6445 -5.189,55.6335 -5.176,55.6272 -5.155,55.6161 -5.1457,55.6076 -5.0756,55.4893 -5.0671,55.392 -5.0843,55.3762 -5.0947,55.3732 -5.1629,55.364 -5.1629,55.364 19,3.0,Lithuania 20.907,55.2222 20.9468,55.2656 20.9665,55.2874 21.0074,55.3435 21.0283,55.3865 21.0496,55.442 21.057,55.4747 21.0595,55.5287 21.0595,55.6063 21.0554,55.6484 21.0756,55.635 21.0886,55.6175 21.0982,55.5636 21.0916,55.5094 21.0666,55.3555 21.0106,55.2646 20.949,55.2113 20.907,55.2222 20.907,55.2222 51,2.0,Denmark 9.983,55.476 10.0566,55.4913 10.1072,55.5024 10.131,55.5087 10.1539,55.516 10.1949,55.5332 10.2764,55.5504 10.3009,55.5488 10.3843,55.5217 10.4669,55.4672 10.4556,55.4497 10.431,55.4147 10.4055,55.3979 10.4074,55.3762 10.4556,55.3722 10.5858,55.4206 10.5959,55.4542 10.5993,55.4986 10.5977,55.545 10.6421,55.522 10.7267,55.4263 10.772,55.2975 10.8128,55.2341 10.7953,55.1307 10.7651,55.0594 10.7167,55.0004 10.6473,54.9959 10.6038,54.9961 10.5734,54.9907 10.5116,54.9648 10.5014,54.9641 10.48,54.9642 10.1357,55.0198 10.1182,55.0522 10.1346,55.0651 10.0937,55.118 9.9887,55.1284 9.88,55.2176 9.8708,55.2742 9.794,55.3715 9.7514,55.4015 9.712,55.409 9.6633,55.4317 9.732,55.4747 9.8093,55.4795 9.8262,55.4548 9.857,55.4424 9.8833,55.4401 9.9116,55.4469 9.983,55.476 9.983,55.476 14,-9.0,United States -133.0393,55.4618 -133.0376,55.4315 -133.0424,55.4228 -133.0591,55.4104 -133.1187,55.382 -133.2035,55.4587 -133.1889,55.479 -133.1629,55.4874 -133.1467,55.4911 -133.1076,55.4914 -133.0746,55.4876 -133.0485,55.4709 -133.0393,55.4618 -133.0393,55.4618 16,-9.0,United States -133.4148,55.3759 -133.4366,55.3854 -133.4831,55.4002 -133.4986,55.4026 -133.5158,55.4 -133.5268,55.4219 -133.4955,55.4758 -133.4876,55.4827 -133.4712,55.4859 -133.4602,55.4852 -133.3524,55.4718 -133.3471,55.462 -133.3452,55.4365 -133.404,55.3795 -133.4148,55.3759 -133.4148,55.3759 17,-9.0,United States -133.2474,55.4495 -133.1932,55.4203 -133.1876,55.411 -133.1868,55.3971 -133.1912,55.3818 -133.1987,55.3743 -133.2132,55.3696 -133.2295,55.3659 -133.2748,55.3618 -133.2848,55.3618 -133.3072,55.3643 -133.348,55.3732 -133.3684,55.3832 -133.2818,55.454 -133.2686,55.4553 -133.2474,55.4495 -133.2474,55.4495 12,-9.0,United States -159.8785,55.372 -159.9027,55.3308 -160.0415,55.3268 -160.052,55.3307 -160.0642,55.3472 -160.0633,55.3627 -160.0529,55.3736 -160.0137,55.3925 -159.9877,55.3978 -159.9693,55.3969 -159.8785,55.372 -159.8785,55.372 1336,7.0,Kazakhstan 59.9145,51.8875 59.9579,51.8231 59.9935,51.8068 60.0201,51.8022 60.0436,51.8048 60.1299,51.8118 60.3684,51.7556 60.3914,51.7489 60.405,51.7342 60.3651,51.6757 60.3069,51.6533 60.2831,51.6305 60.4419,51.5675 60.7609,51.5624 60.8277,51.5608 60.8478,51.5567 60.8371,51.5381 60.8434,51.493 60.8809,51.4407 60.9296,51.4207 61.0459,51.4 61.0819,51.4067 61.1155,51.4089 61.2539,51.3984 61.3957,51.3655 61.4805,51.2501 61.5089,51.2298 61.553,51.2155 61.5767,51.2089 61.5879,51.2069 61.5911,51.2067 61.7549,51.2668 61.8322,51.1784 61.7991,51.1011 61.9096,51.0458 62.009,51.09 62.1195,51.0679 62.0753,50.9575 62.3183,50.8138 62.1416,50.7697 62.0974,50.6371 62.2741,50.6702 62.3404,50.5045 62.4951,50.3499 62.6497,50.1621 62.8375,49.9632 62.8044,49.8307 62.6276,49.8749 62.473,49.7975 62.5061,49.7092 62.3514,49.6318 62.3846,49.5103 62.2852,49.5214 62.2078,49.4551 62.4288,49.212 62.252,49.2231 62.2299,49.1568 62.3625,49.1237 62.484,48.9469 62.7602,48.7923 62.8817,48.8585 63.0032,48.7923 62.959,48.6376 63.2794,48.5382 63.434,48.4719 63.655,48.3946 63.7765,48.2731 63.9201,48.1074 64.0195,47.9306 64.2073,47.8422 63.6992,47.555 63.0584,47.2899 62.727,47.091 62.5945,46.9916 62.9811,47.0248 63.2131,46.9032 63.6992,46.7817 64.2957,46.6381 64.8812,46.4061 65.069,46.4394 65.2126,46.2847 65.533,46.13 66.3283,46.0859 67.0022,46.119 67.0685,45.9643 67.0795,45.8649 67.2563,45.7324 67.1348,45.5114 67.1237,45.3568 67.0574,45.3015 67.0574,45.2242 67.2563,45.1248 67.3999,45.1137 67.3999,44.3405 67.6871,44.2189 67.6761,44.1306 67.8307,44.0532 67.9854,43.9428 67.8638,43.9096 67.8307,43.8323 67.8749,43.7881 67.8638,43.6335 67.7423,43.7108 67.7423,43.5561 67.6429,43.4567 67.5656,43.302 67.7313,43.2026 66.1184,42.3852 65.9527,42.3741 65.9452,42.3745 65.943,42.2887 65.9417,42.2161 65.9381,41.9987 65.9382,41.9557 66.4344,41.9555 66.4473,41.8495 66.454,41.7892 66.4661,41.6918 66.4708,41.6698 66.5445,41.4137 66.6284,41.1285 66.668,41.1185 66.686,41.1155 66.7841,41.1038 66.9801,41.097 67.0669,41.0988 67.2581,41.1029 67.3468,41.1079 67.3972,41.1127 67.4433,41.1212 67.5471,41.1359 67.6622,41.1458 67.8423,41.1368 67.8963,41.0841 68.0139,41.0186 68.0469,41.0056 68.0609,40.99 68.0513,40.9367 68.0229,40.8615 68.0101,40.8335 67.9881,40.8113 67.9609,40.7947 67.9549,40.7644 68.1197,40.658 68.1402,40.6456 68.1636,40.6349 68.1722,40.6319 68.2172,40.6106 68.3616,40.5519 68.386,40.5489 68.5142,40.5541 68.5471,40.5685 68.5581,40.6258 68.5348,40.6724 68.4953,40.693 68.474,40.8155 68.4998,40.8741 68.5225,40.8908 68.5546,40.9006 68.5705,40.9059 68.6276,40.9315 68.6446,40.9551 68.6563,40.9932 68.6749,41.0241 68.6916,41.0393 68.781,41.0724 68.9369,41.1532 68.9699,41.1759 68.9784,41.2254 68.9759,41.3108 68.9646,41.3301 69.1314,41.4129 69.1598,41.424 69.2586,41.4376 69.3944,41.5288 69.5415,41.6232 69.6627,41.652 69.6902,41.6561 69.7495,41.6598 69.832,41.6648 69.9613,41.7331 70.0435,41.7813 70.0599,41.7972 70.0858,41.829 70.1473,41.9078 70.2407,41.9953 70.266,42.0106 70.2906,42.0218 70.3649,42.0491 70.3876,42.0531 70.4082,42.0435 70.4339,42.0199 70.441,41.993 70.5309,41.977 70.5479,42.0013 70.5569,42.0264 70.568,42.0493 70.6528,42.1513 70.6948,42.1565 70.7431,42.1475 70.7864,42.1575 70.8098,42.1701 70.8645,42.2068 70.8162,42.2168 70.775,42.2614 70.786,42.2757 70.8296,42.3095 70.8633,42.3513 70.8576,42.3795 70.9371,42.5294 70.9585,42.5402 71.0705,42.5835 71.071,42.6404 71.1765,42.7109 71.3257,42.7558 71.3888,42.7452 71.411,42.7411 71.4787,42.7159 71.504,42.7172 71.5401,42.7334 71.5585,42.7438 71.617,42.7699 71.6475,42.7751 71.7222,42.7778 71.7983,42.7791 71.8577,42.7691 71.8894,42.7609 72.0717,42.7253 72.1723,42.7268 72.1967,42.7253 72.253,42.7054 72.3575,42.6685 72.5208,42.6372 72.648,42.61 72.6853,42.5943 72.7144,42.5548 72.7362,42.5266 72.7635,42.5133 72.7829,42.5059 72.8076,42.5001 72.859,42.4911 72.919,42.5026 73.0512,42.5125 73.2343,42.4551 73.2339,42.4056 73.2452,42.3815 73.4189,42.3613 73.4309,42.3823 73.4206,42.3968 73.4117,42.4061 73.3717,42.4559 73.3494,42.4854 73.3409,42.5039 73.3318,42.5367 73.3323,42.5793 73.3619,42.6657 73.3931,42.7004 73.4225,42.7488 73.428,42.783 73.4379,42.8818 73.484,42.9917 73.5483,43.0191 73.6105,43.0363 73.6872,43.0559 73.8123,43.0763 73.8357,43.0995 73.9563,43.1394 74.1311,43.1612 74.1904,43.1682 74.2426,43.1568 74.2884,43.1465 74.4718,43.0777 74.5105,43.0398 74.5649,42.9954 74.6418,42.948 74.677,42.9419 74.7239,42.9443 74.7608,42.9381 74.7893,42.9307 74.9627,42.8671 75.0795,42.8206 75.1388,42.8067 75.2132,42.805 75.4575,42.7862 75.4869,42.7799 75.5173,42.7694 75.5663,42.7587 75.6442,42.8046 75.6647,42.8366 75.6803,42.8705 75.6853,42.8871 75.6911,42.8902 75.7395,42.8969 75.798,42.8984 76.0097,42.8935 76.1343,42.8882 76.2189,42.8754 76.2716,42.8618 76.3179,42.8511 76.5105,42.8519 76.6272,42.8704 76.7124,42.9039 76.7419,42.93 76.874,42.9471 77.0314,42.919 77.051,42.9104 77.1011,42.8695 77.1611,42.868 77.2999,42.8723 77.4279,42.873 77.5612,42.8668 77.6142,42.8664 77.8365,42.8468 77.8574,42.8377 77.8848,42.8214 77.9895,42.809 78.012,42.8137 78.0441,42.8206 78.0722,42.8223 78.3432,42.8392 78.4075,42.8362 78.4278,42.831 78.561,42.7787 78.9218,42.7115 78.9473,42.717 79.0001,42.7385 79.0287,42.7445 79.0654,42.7492 79.096,42.7353 79.0925,42.7098 79.0881,42.6869 79.0899,42.6633 79.1053,42.6309 79.1232,42.6105 79.1548,42.5846 79.1869,42.5692 79.2146,42.5664 79.2504,42.5547 79.2779,42.5183 79.2966,42.4781 79.3137,42.4426 79.3339,42.4241 79.3597,42.4174 79.4001,42.4108 79.4317,42.407 79.4686,42.4055 79.5019,42.41 79.5732,42.4222 79.6027,42.4263 79.8089,42.3935 79.8459,42.3848 80.0048,42.2539 80.0448,42.2007 80.0618,42.176 80.0812,42.1614 80.1034,42.1531 80.123,42.1486 80.174,42.1683 80.1827,42.2046 80.1594,42.2701 80.1426,42.2868 80.1273,42.3156 80.0469,42.5844 80.061,42.6125 80.1313,42.7408 80.1465,42.7674 80.1704,42.7815 80.201,42.7793 80.2292,42.774 80.2577,42.7767 80.4604,42.8371 80.4627,42.8637 80.4388,42.8814 80.4097,42.8864 80.3784,42.8909 80.3305,42.9082 80.2765,42.9463 80.2724,42.9806 80.5034,43.0836 80.5428,43.0935 80.5661,43.0932 80.6003,43.0731 80.6312,43.0592 80.6623,43.0604 80.6913,43.076 80.7036,43.0994 80.703,43.1194 80.6656,43.2223 80.6271,43.4165 80.5692,43.504 80.5068,43.6165 80.4716,43.6868 80.4412,43.7637 80.4308,43.771 80.4172,43.7917 80.4056,43.8152 80.3964,43.8451 80.3883,43.8662 80.3234,43.9842 80.2567,44.064 80.2543,44.1052 80.2749,44.1486 80.2837,44.1814 80.2877,44.2111 80.2661,44.3075 80.2444,44.3739 80.2371,44.397 80.2726,44.5854 80.3998,44.6555 80.4032,44.6835 80.3237,44.7148 80.1695,44.7687 80.1497,44.7736 80.1172,44.773 80.0387,44.7583 79.9412,44.7448 79.9064,44.7431 79.8865,44.7483 79.762,44.8174 79.7593,44.8518 79.9648,44.9738 80.0014,44.9864 80.0276,44.9906 80.051,44.99 80.0809,44.9873 80.1491,44.9848 80.2886,44.9993 80.3136,45.0088 80.4125,45.0572 80.6308,45.0983 80.6532,45.1007 80.8041,45.099 80.8908,45.1171 81.0342,45.1546 81.1256,45.1831 81.283,45.2189 81.3377,45.2267 81.3724,45.2296 81.4173,45.2381 81.4425,45.2445 81.4688,45.2558 81.4915,45.2684 81.532,45.2903 81.5648,45.2981 81.5995,45.3005 81.6374,45.2937 81.6687,45.2698 81.6832,45.2544 81.6971,45.2214 81.6931,45.1681 81.7098,45.1448 81.8335,45.1062 81.8626,45.1027 81.8985,45.108 81.9288,45.1174 81.9572,45.1299 82.0081,45.1471 82.0534,45.1612 82.1097,45.1763 82.1559,45.1845 82.1819,45.1865 82.207,45.1826 82.233,45.1683 82.344,45.0875 82.3666,45.0762 82.3999,45.068 82.4301,45.0712 82.451,45.0817 82.4712,45.1014 82.4883,45.1279 82.5167,45.1818 82.5268,45.2148 82.5367,45.2565 82.5429,45.2938 82.5442,45.334 82.5399,45.3585 82.5305,45.3843 82.495,45.4044 82.4733,45.4122 82.4462,45.4182 82.41,45.4242 82.3702,45.4256 82.2944,45.433 82.2381,45.4476 82.2198,45.4588 82.2044,45.4777 82.1995,45.4931 82.2065,45.5313 82.2714,45.6631 82.298,45.71 82.33,45.7456 82.3485,45.7675 82.3647,45.7885 82.378,45.8114 82.3948,45.8498 82.4042,45.8803 82.4178,45.9316 82.4427,46.0227 82.4437,46.0561 82.4461,46.0846 82.4549,46.1152 82.4905,46.1776 82.5171,46.2114 82.5389,46.2332 82.555,46.2491 82.5759,46.2739 82.5922,46.3012 82.6405,46.4213 82.6804,46.5339 82.6901,46.5698 82.6986,46.5887 82.7249,46.6455 82.7564,46.7101 82.7809,46.7519 82.8115,46.7894 82.8348,46.8147 82.8536,46.84 82.8797,46.8767 82.8931,46.8998 82.9008,46.9218 82.9134,47.0306 82.9202,47.1109 82.9159,47.1468 82.9434,47.1659 83.0029,47.1707 83.0363,47.1708 83.0671,47.1628 83.0662,47.1579 83.1116,47.1303 83.1377,47.1227 83.1804,47.1185 83.2095,47.114 83.2361,47.1063 83.306,47.0818 83.3244,47.0702 83.3413,47.0568 83.4396,47.0098 83.4929,46.9949 83.5746,46.9833 83.6195,46.9759 83.6411,46.972 83.6618,46.967 83.6868,46.9584 83.7345,46.9375 83.7807,46.9235 83.811,46.9196 83.9661,46.9181 83.9914,46.9181 84.0236,46.9269 84.0599,46.9452 84.1036,46.9502 84.1748,46.954 84.1994,46.953 84.4739,46.9374 84.5319,46.9407 84.5577,46.94 84.5976,46.9251 84.6538,46.8822 84.6615,46.861 84.6534,46.8361 84.64,46.8133 84.6241,46.7799 84.6829,46.7743 84.842,46.8112 84.8559,46.8219 84.8638,46.8428 84.9026,46.8642 84.9431,46.8692 84.9615,46.8782 84.9766,46.8913 85.0475,46.9282 85.0707,46.9467 85.0841,46.9635 85.0976,46.9852 85.1456,46.9989 85.1771,46.997 85.2589,46.9976 85.4006,47.0053 85.4436,47.0831 85.5671,47.164 85.5791,47.2084 85.5806,47.3218 85.5597,47.3551 85.5171,47.3986 85.4993,47.419 85.4867,47.4453 85.4815,47.4679 85.4899,47.5075 85.5006,47.5432 85.4995,47.5667 85.4627,47.7094 85.4333,47.8066 85.4241,47.8356 85.414,47.8826 85.4218,47.915 85.4465,47.9414 85.4565,47.9616 85.4779,48.016 85.4825,48.037 85.4801,48.0697 85.4945,48.11 85.615,48.3009 85.6417,48.3381 85.6587,48.3506 85.6791,48.3585 85.7147,48.3654 85.7346,48.3681 85.7907,48.3735 85.906,48.3815 85.9734,48.3791 86.0139,48.3765 86.0367,48.373 86.0612,48.3714 86.1098,48.371 86.1721,48.4004 86.1824,48.4188 86.1972,48.4322 86.219,48.4399 86.2572,48.4442 86.2897,48.442 86.3125,48.4382 86.3427,48.4391 86.4724,48.4872 86.4794,48.5145 86.5123,48.5523 86.5287,48.5684 86.584,48.613 86.6327,48.6456 86.6526,48.6652 86.6812,48.768 86.6422,48.8295 86.6197,48.8547 86.608,48.8852 86.6045,48.9157 86.6441,48.9674 86.749,49.0541 86.9935,49.0748 87.048,49.076 87.0738,49.0669 87.1888,49.0414 87.2204,49.0364 87.2123,49.0449 87.197,49.0721 87.1861,49.1107 87.1773,49.1451 87.1377,49.1717 87.1153,49.1818 87.0824,49.1907 87.0406,49.1934 86.9843,49.194 86.9126,49.2156 86.7988,49.2965 86.7113,49.3979 86.7131,49.4259 86.7222,49.4563 86.6157,49.5072 86.5866,49.4967 86.5556,49.4952 86.5218,49.5033 86.4933,49.5262 86.4879,49.5492 86.5125,49.5762 86.5666,49.6159 86.6198,49.617 86.6663,49.641 86.6538,49.7268 86.5339,49.7453 86.4952,49.7417 86.4052,49.6706 86.3793,49.6316 86.3177,49.5889 86.2859,49.5742 86.2464,49.5635 86.2107,49.5597 86.1602,49.5288 86.1494,49.5077 86.123,49.4511 86.1026,49.432 86.0573,49.4201 85.8327,49.4815 85.6801,49.5073 85.6199,49.5229 85.5313,49.5516 85.4278,49.5383 85.4022,49.5341 85.3781,49.5335 85.3393,49.5408 85.2942,49.564 85.2297,49.5534 85.1985,49.5385 85.1698,49.526 85.1335,49.5359 85.0864,49.5931 85.0894,49.6427 85.0717,49.6763 84.9546,49.826 84.926,49.835 84.8633,49.8481 84.8483,49.8706 84.8532,49.9402 84.8734,49.9456 84.9292,49.9551 84.884,50.02 84.8554,50.0305 84.6834,50.0864 84.5685,50.1193 84.3939,50.159 84.2505,50.1547 84.1387,50.2148 84.0712,50.3912 84.0796,50.416 84.0969,50.4488 84.0413,50.5398 84.0195,50.5573 83.9986,50.5731 83.9786,50.5844 83.9136,50.613 83.8738,50.634 83.8469,50.6528 83.8385,50.6719 83.8503,50.7126 83.8498,50.7362 83.7116,50.8204 83.6789,50.8276 83.3406,50.9304 83.1227,50.9437 83.0111,50.9407 82.9763,50.8936 82.9663,50.873 82.9299,50.8484 82.8881,50.8326 82.7961,50.8335 82.7383,50.8382 82.7119,50.8463 82.6635,50.8593 82.6348,50.8519 82.5989,50.8312 82.597,50.7878 82.5955,50.7553 82.5768,50.7417 82.5464,50.7272 82.4212,50.6788 82.3945,50.6687 82.3735,50.6626 82.3555,50.6732 82.3221,50.6965 82.2312,50.7012 82.1551,50.6948 82.1217,50.668 82.0909,50.6555 82.0682,50.6518 82.0343,50.6516 81.9986,50.6559 81.9767,50.6616 81.947,50.6771 81.8899,50.7113 81.7907,50.7283 81.6913,50.7131 81.6069,50.6931 81.5545,50.6823 81.5143,50.6789 81.4711,50.6772 81.4582,50.6774 81.4142,50.6792 81.3399,50.6844 81.3154,50.7102 81.344,50.7575 81.3291,50.8191 81.2958,50.9078 81.2032,50.9105 81.1729,50.9108 81.1464,50.906 81.1258,50.8997 81.1037,50.8933 81.0643,50.8861 80.9508,50.8924 80.9578,50.9284 80.9712,50.9655 80.9845,50.9914 81.0127,51.0357 81.0287,51.0538 81.0407,51.0717 81.0531,51.1052 81.0548,51.1337 81.0095,51.1438 80.9702,51.1227 80.9161,51.1222 80.818,51.1602 80.7478,51.1998 80.6953,51.2167 80.6346,51.2361 80.581,51.2508 80.5606,51.2531 80.534,51.2289 80.5113,51.1925 80.514,51.1617 80.4851,51.1534 80.4592,51.1532 80.3648,51.1577 80.3202,51.1401 80.313,51.0522 80.3529,51.0246 80.3641,50.992 80.3647,50.9622 80.359,50.9367 80.3417,50.9075 80.3051,50.8857 80.2815,50.8737 80.2552,50.864 80.2212,50.8625 80.1616,50.8641 79.9696,50.7908 79.9452,50.7407 79.9675,50.726 79.9809,50.7057 79.96,50.6989 79.9373,50.7099 79.9137,50.7246 79.8948,50.7377 79.8669,50.7609 79.8515,50.786 79.8387,50.8149 79.6287,51.0843 79.6142,51.1015 79.5581,51.1736 79.4185,51.3822 79.3711,51.4397 79.2425,51.5861 79.2136,51.6092 79.1234,51.7228 78.7985,52.1158 78.6262,52.3117 78.5045,52.448 78.3426,52.6255 78.2851,52.6854 78.1705,52.7912 77.947,53.0135 77.9356,53.0326 77.9202,53.0642 77.8565,53.1328 77.8084,53.183 77.7881,53.2029 77.7638,53.2245 77.7384,53.244 77.6732,53.2836 77.6274,53.3111 77.4199,53.4317 77.3972,53.4441 77.2784,53.4993 77.1432,53.5633 76.909,53.6853 76.7875,53.7368 76.6549,53.7891 76.4158,53.9102 76.3955,53.9326 76.3787,53.9748 76.3443,54.021 76.3209,54.0469 76.2985,54.0673 76.2749,54.0934 76.3161,54.1085 76.3531,54.1093 76.3937,54.1076 76.4146,54.1057 76.4361,54.1016 76.4862,54.0791 76.5092,54.0742 76.5315,54.075 76.5716,54.0827 76.596,54.0919 76.6552,54.1444 76.6742,54.1643 76.7302,54.2377 76.7366,54.2766 76.6822,54.3842 76.5707,54.3805 76.5445,54.3601 76.5409,54.3338 76.5307,54.3066 76.3595,54.2621 76.2256,54.2772 76.1107,54.2954 76.0579,54.2322 76.0795,54.1958 75.7604,54.1118 75.5652,54.0471 75.4921,54.0354 75.4478,54.0341 75.3754,54.0521 75.2586,54.0042 75.3161,53.9476 75.332,53.931 75.2444,53.9079 75.0662,53.8206 74.91,53.744 74.8233,53.7758 74.6884,53.7816 74.6657,53.7735 74.5512,53.6973 74.5243,53.6256 74.4857,53.6261 74.3439,53.6308 74.3169,53.5475 74.3615,53.522 74.3074,53.4161 74.255,53.4093 74.1624,53.4649 74.1451,53.5035 74.1248,53.5397 73.9598,53.5695 73.796,53.5916 73.6543,53.5548 73.5558,53.5569 73.4783,53.5042 73.4614,53.4574 73.3172,53.3737 73.2505,53.4045 73.2901,53.4588 73.2613,53.4766 73.1556,53.5113 73.1338,53.5175 73.1184,53.5818 73.1397,53.6206 73.2081,53.6317 73.2353,53.7269 73.3216,53.8129 73.3868,53.8195 73.5316,53.8011 73.5896,53.8122 73.6155,53.9071 73.641,54.0025 73.5583,54.0232 73.4893,54.0143 73.4196,53.952 73.4225,53.9249 73.4238,53.8966 73.3727,53.8882 73.2694,53.8855 73.1694,53.8909 72.9483,53.9259 72.8783,53.9931 72.8719,54.053 72.8537,54.065 72.7443,54.0598 72.6083,54.0703 72.4867,54.0804 72.4455,54.057 72.4254,54.0394 72.4117,53.9962 72.444,53.9909 72.4775,53.9967 72.5439,53.9996 72.5816,53.961 72.5969,53.9377 72.607,53.9014 72.5688,53.8962 72.4302,53.8971 72.415,53.8842 72.3996,53.8716 72.3625,53.8491 72.3287,53.8499 72.2938,53.8597 72.2745,53.8663 72.2828,53.8942 72.3161,53.9714 72.3654,54.0504 72.3879,54.0794 72.2457,54.1131 72.2009,54.1226 72.223,54.1544 72.2391,54.1806 72.2234,54.2003 72.0757,54.3102 72.0475,54.3129 71.928,54.3165 71.9748,54.187 72.0282,54.1496 72.0488,54.1457 72.083,54.1327 72.0917,54.0929 72.0736,54.0752 72.0018,54.0699 71.9153,54.1542 71.8381,54.1844 71.7691,54.1946 71.6476,54.1917 71.6159,54.1559 71.6294,54.091 71.5967,54.0674 71.5344,54.0469 71.3818,54.0501 71.3761,54.0726 71.365,54.1231 71.217,54.1518 71.1607,54.0887 71.1389,54.063 71.0668,54.04 70.9958,54.1182 70.9484,54.1302 70.9605,54.1465 70.9561,54.2072 70.8785,54.2171 70.8775,54.2687 70.9431,54.2762 70.9672,54.2755 71.0058,54.2542 71.0942,54.2624 71.1019,54.3466 71.0758,54.4076 71.0527,54.4481 71.0453,54.5358 71.0777,54.5518 71.1096,54.5591 71.1436,54.5645 71.1688,54.5718 71.1645,54.5976 71.1581,54.6262 71.1064,54.6697 70.9844,54.6719 70.8921,54.7334 70.8481,54.8276 70.8544,54.9163 70.8674,54.9401 70.875,54.9597 70.8791,54.9909 70.8796,55.0146 70.8722,55.034 70.7087,55.1667 70.6867,55.1818 70.6877,55.2027 70.7186,55.2387 70.6804,55.2528 70.5531,55.2478 70.5285,55.2361 70.4982,55.2201 70.4661,55.2126 70.4298,55.2128 70.3963,55.2201 70.3491,55.2317 70.301,55.1962 70.1675,55.1222 70.1435,55.0997 70.1188,55.0742 70.0493,55.0956 69.9281,55.1421 69.8294,55.1391 69.761,55.1982 69.726,55.23 69.5528,55.2893 69.3465,55.2997 69.2321,55.3292 69.1136,55.2675 69.0667,55.2786 69.0509,55.3283 68.9503,55.3564 68.8287,55.3773 68.8074,55.361 68.8242,55.3033 68.8497,55.2989 68.8786,55.2866 68.8887,55.2486 68.885,55.226 68.8558,55.2187 68.8211,55.2207 68.7897,55.2527 68.768,55.2743 68.7366,55.2852 68.6527,55.3004 68.6184,55.3044 68.6052,55.303 68.5227,55.1533 68.5041,55.1361 68.3827,55.1257 68.3592,55.1274 68.1874,55.1404 68.1509,55.1351 68.1034,55.1222 68.0828,55.1136 68.0998,55.0676 68.1309,55.0384 68.1762,55.0303 68.208,55.0223 68.2116,55.002 68.0893,54.9033 67.9387,54.8863 67.9099,54.8872 67.8277,54.9139 67.7817,54.9139 67.7187,54.899 67.6927,54.8765 67.6756,54.8533 67.6427,54.8254 67.5677,54.8099 67.466,54.7904 67.4455,54.7897 67.2772,54.7884 67.2465,54.7994 67.2129,54.8036 67.1888,54.7977 67.173,54.7855 67.15,54.7586 67.1347,54.744 66.9181,54.7118 66.8365,54.709 66.7627,54.7082 66.7045,54.7038 66.6677,54.6935 66.637,54.6702 66.6094,54.6627 66.5794,54.6616 66.5123,54.6637 66.4699,54.6632 66.4105,54.6611 66.3823,54.6588 66.3563,54.6547 66.3243,54.6463 66.2927,54.6381 66.2096,54.6203 66.1595,54.6096 66.1082,54.5998 65.9963,54.581 65.9799,54.5753 65.8741,54.5638 65.869,54.6012 65.8593,54.6447 65.7355,54.6208 65.7043,54.5838 65.6836,54.5573 65.6657,54.5431 65.6414,54.5371 65.6142,54.5389 65.5732,54.5512 65.5454,54.5571 65.4454,54.5734 65.4124,54.5767 65.3911,54.5765 65.3611,54.5666 65.2367,54.5041 65.1106,54.4665 65.091,54.401 65.106,54.3418 65.1216,54.313 65.1305,54.281 65.1156,54.2606 65.0107,54.2492 64.9905,54.2553 64.9512,54.2838 64.9265,54.3069 64.9056,54.322 64.8849,54.3342 64.8578,54.3434 64.8067,54.3445 64.7755,54.3359 64.7149,54.3085 64.6547,54.2823 64.623,54.278 64.4304,54.3002 64.3033,54.2781 64.2746,54.2755 64.2543,54.2759 64.2332,54.2784 64.2114,54.2835 64.1864,54.2836 64.1332,54.2676 63.978,54.2549 63.8881,54.2477 63.8707,54.2293 63.8835,54.2079 63.9111,54.1807 63.8706,54.151 63.7868,54.1378 63.7262,54.1683 63.6992,54.1807 63.6528,54.1942 63.6111,54.1947 63.5802,54.1856 63.436,54.1434 63.3036,54.1104 63.2704,54.1059 63.244,54.1088 63.22,54.1193 63.1094,54.124 63.0868,54.1243 63.0581,54.1213 63.0327,54.1046 63.0444,54.0725 63.0397,54.0499 63.0049,54.0324 62.8144,54.0229 62.7927,54.0242 62.6252,54.0232 62.574,54.0206 62.5369,54.012 62.4733,53.9806 62.4645,53.8898 62.4682,53.8307 62.4297,53.8189 62.322,53.8737 62.3006,53.8983 62.2545,53.9598 61.9929,53.9662 61.9504,53.9649 61.9218,53.9617 61.923,53.9249 61.9232,53.8767 61.7492,53.8978 61.6873,53.9412 61.5399,53.9389 61.4863,53.9352 61.3846,53.9523 61.3533,53.9943 61.3182,54.0036 61.2242,54.0059 61.1139,53.9628 61.0119,53.9005 60.9892,53.9008 60.9342,53.8926 60.9079,53.8806 60.8924,53.8564 60.8989,53.8299 60.9353,53.8235 60.9976,53.8228 61.0208,53.8189 61.1257,53.7678 61.1221,53.7441 60.9501,53.5796 60.9069,53.578 60.8807,53.5951 60.8466,53.6015 60.8113,53.5974 60.806,53.5597 60.8507,53.5556 60.9263,53.5575 60.9731,53.5563 61.0028,53.5511 61.0824,53.5069 61.1281,53.5007 61.1825,53.4987 61.2241,53.4932 61.2645,53.5135 61.287,53.5281 61.3186,53.5325 61.369,53.5323 61.438,53.531 61.474,53.4579 61.3383,53.3838 61.3046,53.3823 61.2769,53.3939 61.2486,53.4181 61.2109,53.4405 61.1867,53.4428 61.1456,53.4456 61.0537,53.3062 61.068,53.2615 61.0852,53.2444 61.1128,53.2265 61.1362,53.2189 61.175,53.2169 61.2217,53.218 61.2527,53.2177 61.2817,53.2135 61.3119,53.2038 61.3361,53.1897 61.3595,53.1767 61.3795,53.1676 61.4098,53.1579 61.4383,53.1537 61.46,53.1537 61.4824,53.1569 61.5066,53.1666 61.6312,53.1446 61.6532,53.1302 61.6808,53.1188 61.7211,53.1078 61.7567,53.1005 61.8973,53.078 61.9461,53.0716 61.977,53.0684 62.0076,53.0599 62.0436,53.0143 62.0318,52.9772 62.0137,52.9341 61.9985,52.9153 61.8551,52.8778 61.8026,52.9051 61.7654,52.9235 61.5963,52.9212 61.3962,52.9605 61.3731,52.9666 61.349,52.9667 61.3279,52.959 61.304,52.942 61.2851,52.9327 61.256,52.9304 61.2013,52.9332 61.1733,52.9416 61.1555,52.9518 61.1361,52.9576 61.1046,52.9602 61.0719,52.9526 61.0005,52.9198 60.9824,52.8683 60.915,52.8224 60.7862,52.7614 60.6345,52.6885 60.6094,52.6649 60.6002,52.6465 60.5985,52.6154 60.6428,52.5752 60.6682,52.5729 60.7282,52.5751 60.7387,52.5381 60.7385,52.4758 60.8738,52.4339 60.882,52.352 60.9493,52.296 60.9633,52.2801 60.8386,52.2092 60.8061,52.1939 60.7531,52.1789 60.7149,52.1695 60.6819,52.1555 60.6514,52.1187 60.6261,52.0995 60.5884,52.0886 60.5463,52.0877 60.5069,52.0924 60.4432,52.0989 60.3954,52.095 60.3652,52.0842 60.3012,52.0458 60.1287,51.939 59.9313,51.9404 59.9145,51.9187 59.9093,51.8952 59.9145,51.8875 17,-9.0,United States -133.2176,55.3348 -133.2156,55.3067 -133.273,55.2834 -133.3298,55.2491 -133.3656,55.1704 -133.377,55.1674 -133.4143,55.1939 -133.4233,55.2021 -133.4542,55.2434 -133.4211,55.3067 -133.4075,55.3175 -133.3564,55.3518 -133.3421,55.3557 -133.3316,55.3547 -133.2169,55.3452 -133.2176,55.3348 -133.2176,55.3348 21,-9.0,United States -131.5919,55.3473 -131.5204,55.3044 -131.4512,55.2655 -131.4217,55.2471 -131.4052,55.2358 -131.3953,55.2276 -131.3902,55.2116 -131.4963,55.0717 -131.5118,55.0707 -131.5822,55.1178 -131.5889,55.1271 -131.5927,55.1368 -131.5962,55.1465 -131.6134,55.2018 -131.6218,55.2308 -131.6312,55.2943 -131.6244,55.3456 -131.6143,55.3553 -131.6002,55.354 -131.5919,55.3473 -131.5919,55.3473 32,-9.0,United States -160.4186,55.3347 -160.3843,55.3218 -160.277,55.3251 -160.2671,55.3205 -160.2594,55.31 -160.2558,55.2965 -160.2574,55.2852 -160.2647,55.2763 -160.2912,55.2662 -160.3052,55.2544 -160.3085,55.2405 -160.2978,55.1656 -160.2845,55.1608 -160.2468,55.1578 -160.236,55.1536 -160.1888,55.1218 -160.2312,55.1003 -160.2722,55.0878 -160.3533,55.0851 -160.4037,55.099 -160.5258,55.0604 -160.5384,55.0531 -160.5486,55.072 -160.5747,55.139 -160.5809,55.2005 -160.5695,55.2673 -160.5237,55.311 -160.5136,55.3191 -160.4983,55.3246 -160.4494,55.3414 -160.4186,55.3347 -160.4186,55.3347 653,0.0,Ireland -7.2398,55.0059 -7.3136,54.9805 -7.3934,54.889 -7.4309,54.8181 -7.445,54.7935 -7.4697,54.7656 -7.5402,54.6986 -7.7258,54.6466 -7.8124,54.6702 -7.8296,54.6696 -7.9127,54.6364 -7.9004,54.6072 -7.8927,54.6003 -7.839,54.5701 -7.7642,54.5629 -7.7389,54.5305 -7.82,54.4902 -7.9372,54.4686 -8.0333,54.4433 -8.1576,54.4003 -8.1441,54.3767 -8.0519,54.3091 -8.0419,54.303 -8.0316,54.2978 -8.0167,54.2936 -7.9279,54.236 -7.8867,54.2308 -7.8623,54.2214 -7.8561,54.1898 -7.8548,54.1643 -7.8485,54.1548 -7.838,54.1488 -7.8048,54.1358 -7.7348,54.1371 -7.6865,54.1393 -7.6121,54.1005 -7.609,54.0841 -7.5972,54.0791 -7.5468,54.0637 -7.3177,54.0497 -7.3008,54.0494 -7.2716,54.0604 -7.1336,54.1618 -7.1314,54.193 -7.1635,54.2259 -7.1488,54.2733 -7.0463,54.3463 -7.0173,54.3534 -6.9626,54.3381 -6.9149,54.3157 -6.9055,54.3102 -6.8613,54.2785 -6.8395,54.2262 -6.7233,54.1203 -6.6443,54.0021 -6.6174,53.9792 -6.6087,53.9742 -6.5969,53.9791 -6.5562,53.9875 -6.4367,53.9952 -6.3543,54.0409 -6.3427,54.0512 -6.328,54.0524 -6.2779,54.0455 -6.2608,54.041 -6.2564,54.0365 -6.2598,54.0323 -6.2303,54.0114 -6.16,53.974 -6.1477,53.9675 -6.1347,53.9655 -6.1207,53.9673 -6.0958,53.9302 -6.1106,53.9199 -6.1275,53.9119 -6.1414,53.9092 -6.1519,53.9098 -6.2174,53.9248 -6.2779,53.9415 -6.3014,53.9464 -6.3197,53.9499 -6.3365,53.9511 -6.3464,53.9478 -6.3706,53.8885 -6.3693,53.8502 -6.363,53.8368 -6.3515,53.825 -6.3377,53.8158 -6.3263,53.8091 -6.315,53.8063 -6.2791,53.8011 -6.2444,53.7707 -6.2293,53.72 -6.2364,53.6916 -6.2406,53.6612 -6.2308,53.6184 -6.2261,53.6088 -6.2037,53.5728 -6.1364,53.5269 -6.1136,53.5235 -6.0912,53.5207 -6.0709,53.5012 -6.0669,53.4818 -6.0681,53.4619 -6.1396,53.3238 -6.1488,53.3205 -6.2142,53.2906 -6.2106,53.2799 -6.1699,53.2454 -6.1004,53.1906 -6.0248,53.048 -6.0033,52.8834 -6.0595,52.8042 -6.0976,52.7786 -6.1088,52.7691 -6.1273,52.7404 -6.1369,52.7221 -6.1404,52.7048 -6.1377,52.6771 -6.1837,52.6312 -6.206,52.6028 -6.2121,52.5821 -6.2127,52.5688 -6.2082,52.5543 -6.1999,52.5435 -6.1912,52.5194 -6.1902,52.4986 -6.1932,52.4866 -6.2009,52.4772 -6.2202,52.4561 -6.2345,52.4419 -6.3517,52.3319 -6.4528,52.3162 -6.4647,52.3136 -6.4878,52.2933 -6.3997,52.2241 -6.3715,52.2166 -6.3216,52.1893 -6.3103,52.1782 -6.3172,52.1618 -6.3493,52.1185 -6.3593,52.1159 -6.3765,52.1164 -6.3892,52.1204 -6.4561,52.1326 -6.612,52.1316 -6.7785,52.1564 -6.8074,52.1265 -6.8197,52.1104 -6.8597,52.1026 -6.8916,52.1058 -6.9034,52.1457 -6.9681,52.2159 -6.9859,52.2176 -6.9841,52.209 -6.9775,52.2033 -6.9625,52.1728 -6.9593,52.1613 -6.9631,52.1075 -6.9907,52.0779 -7.0252,52.0721 -7.0939,52.0714 -7.1486,52.0897 -7.3572,52.0736 -7.4229,52.0657 -7.5667,52.0398 -7.6079,52.0045 -7.5896,52.0028 -7.5552,51.9989 -7.5343,51.9913 -7.5747,51.933 -7.7005,51.8785 -7.7131,51.8775 -7.8025,51.8821 -7.8152,51.886 -7.8388,51.9165 -7.8388,51.9009 -7.8402,51.8841 -7.8765,51.8302 -8.0056,51.7748 -8.0737,51.7509 -8.1564,51.7318 -8.2201,51.7356 -8.229,51.7468 -8.2115,51.7725 -8.1938,51.7766 -8.1655,51.7916 -8.1973,51.8243 -8.2735,51.8291 -8.3524,51.8319 -8.371,51.8323 -8.4087,51.8213 -8.386,51.8152 -8.3585,51.8161 -8.3444,51.8152 -8.3302,51.8128 -8.3214,51.8069 -8.2911,51.7602 -8.2838,51.7424 -8.2839,51.7007 -8.2977,51.6818 -8.3311,51.6611 -8.4044,51.6463 -8.5106,51.6055 -8.528,51.5885 -8.5439,51.5742 -8.6828,51.5134 -8.7236,51.5162 -8.8686,51.5075 -8.9696,51.5 -9.0978,51.4884 -9.1492,51.458 -9.2157,51.4229 -9.3381,51.4108 -9.3518,51.41 -9.3637,51.4113 -9.44,51.471 -9.623,51.4496 -9.6882,51.4092 -9.6969,51.404 -9.7529,51.3923 -9.7873,51.387 -9.8021,51.386 -9.8014,51.4136 -9.7855,51.4305 -9.7595,51.4421 -9.7014,51.4659 -9.6874,51.4699 -9.6599,51.48 -9.6364,51.4903 -9.5789,51.53 -9.5769,51.5501 -9.6658,51.5204 -9.77,51.4888 -9.7898,51.4831 -9.8173,51.4805 -9.8283,51.4858 -9.7638,51.5241 -9.7298,51.5396 -9.5948,51.5831 -9.5356,51.5985 -9.5103,51.6011 -9.4999,51.6036 -9.4557,51.6167 -9.4463,51.6208 -9.436,51.6296 -9.4271,51.653 -9.4366,51.6647 -9.5205,51.6901 -9.5349,51.6585 -9.6132,51.6276 -9.6488,51.6197 -9.7622,51.5979 -9.7909,51.5942 -9.9166,51.5645 -9.9308,51.5542 -10.0101,51.5354 -10.0245,51.5333 -10.1165,51.5335 -10.1141,51.5524 -10.0446,51.5839 -9.9723,51.6178 -9.9649,51.6483 -9.9799,51.6546 -9.9585,51.6703 -9.8897,51.6977 -9.761,51.7406 -9.5772,51.8044 -9.5658,51.8124 -9.6271,51.8092 -9.6728,51.8008 -9.6945,51.7962 -9.9233,51.7394 -10.0355,51.7113 -10.0861,51.6921 -10.1665,51.7257 -10.1577,51.7563 -10.1617,51.7656 -10.1913,51.7872 -10.2144,51.7855 -10.2307,51.7797 -10.3224,51.723 -10.3375,51.7827 -10.3555,51.8189 -10.2473,51.9278 -10.2332,51.9327 -10.1077,51.965 -10.0856,51.9705 -10.0749,51.9728 -10.041,51.9781 -9.9709,51.9895 -9.7855,52.0623 -9.7447,52.0889 -9.7959,52.0921 -9.8284,52.0915 -9.8569,52.0908 -9.8708,52.0902 -9.9267,52.0842 -10.009,52.0756 -10.0379,52.0707 -10.077,52.063 -10.1683,52.0469 -10.2587,52.048 -10.3135,52.0529 -10.3495,52.0513 -10.3652,52.0434 -10.4282,52.0326 -10.4511,52.0442 -10.457,52.0687 -10.458,52.0851 -10.4467,52.1198 -10.3432,52.169 -10.2484,52.207 -10.2342,52.2108 -10.188,52.2204 -10.1456,52.2252 -10.141,52.2115 -9.9329,52.1699 -9.9044,52.1693 -9.868,52.1694 -9.7292,52.1865 -9.7537,52.2036 -9.7688,52.2043 -9.8201,52.2259 -9.8239,52.3188 -9.7471,52.382 -9.6645,52.4516 -9.659,52.4854 -9.6381,52.4998 -9.6133,52.5081 -9.6012,52.5096 -9.3488,52.5163 -9.3424,52.508 -9.3167,52.5099 -9.2076,52.5239 -8.9694,52.5694 -8.8041,52.6045 -8.8344,52.6288 -8.9324,52.6623 -9.0134,52.6694 -9.0185,52.658 -9.0507,52.6275 -9.076,52.6058 -9.1144,52.5741 -9.1366,52.5597 -9.152,52.5555 -9.165,52.5548 -9.2268,52.552 -9.4654,52.5556 -9.5385,52.5769 -9.6823,52.5389 -9.689,52.5278 -9.6897,52.5162 -9.7793,52.4997 -9.8703,52.4893 -9.8841,52.4891 -9.9165,52.4943 -9.8973,52.5105 -9.8322,52.5279 -9.8056,52.5296 -9.796,52.5327 -9.7155,52.58 -9.5494,52.6845 -9.4706,52.7393 -9.3903,52.8249 -9.3794,52.8652 -9.453,52.8678 -9.4586,52.877 -9.2657,53.0777 -9.2483,53.0878 -9.2383,53.0877 -9.2165,53.0813 -9.182,53.0655 -9.1587,53.0521 -9.1392,53.045 -9.0547,53.0554 -8.9866,53.0836 -9.0247,53.103 -8.965,53.0968 -8.9234,53.0797 -8.9264,53.2022 -8.9456,53.2052 -9.0216,53.2095 -9.0358,53.2068 -9.0854,53.1962 -9.1528,53.1862 -9.1871,53.1844 -9.2146,53.1836 -9.2846,53.1826 -9.4268,53.1715 -9.462,53.1627 -9.482,53.1612 -9.5923,53.1701 -9.6051,53.1768 -9.609,53.1874 -9.5945,53.2371 -9.5648,53.2578 -9.5412,53.2751 -9.5432,53.319 -9.6356,53.3237 -9.6478,53.3194 -9.6855,53.2962 -9.6927,53.2775 -9.7262,53.2488 -9.7672,53.2324 -9.8874,53.2567 -9.8689,53.29 -9.8272,53.3063 -9.8027,53.309 -9.7884,53.315 -9.7706,53.3309 -9.7853,53.3531 -9.7972,53.3548 -9.8652,53.3468 -9.9068,53.3259 -9.9463,53.3098 -9.9966,53.3163 -10.1598,53.3475 -10.1833,53.48 -10.1692,53.4877 -10.0194,53.5381 -9.9808,53.5434 -9.8597,53.5482 -9.7833,53.5337 -9.7687,53.5318 -9.683,53.5354 -9.6812,53.5399 -9.7477,53.5393 -9.763,53.54 -9.7833,53.5424 -9.8033,53.5484 -9.8463,53.5648 -9.8952,53.5856 -9.9081,53.6286 -9.8899,53.6957 -9.8806,53.6999 -9.8326,53.707 -9.6679,53.7213 -9.6122,53.7181 -9.5941,53.716 -9.5718,53.7218 -9.5522,53.7323 -9.5536,53.7366 -9.5691,53.7386 -9.6025,53.7507 -9.5961,53.7735 -9.5857,53.7784 -9.5733,53.7801 -9.5621,53.783 -9.5453,53.797 -9.5511,53.8299 -9.6812,53.8336 -9.7091,53.8328 -9.7513,53.8312 -9.7607,53.8278 -9.7725,53.8186 -9.8013,53.8084 -9.8247,53.8039 -9.8802,53.7956 -9.8936,53.7948 -9.9242,53.8049 -9.8939,53.8874 -9.8797,53.8907 -9.8463,53.8884 -9.7951,53.8736 -9.7952,53.8618 -9.783,53.8481 -9.7684,53.8542 -9.7731,53.8825 -9.8125,53.9168 -9.8367,53.9352 -9.9191,53.9977 -9.9217,54.0478 -9.9097,54.0605 -9.9329,54.1177 -9.9965,54.1548 -10.0667,54.0852 -10.0548,54.0625 -10.0488,54.0281 -10.0654,54.0231 -10.0887,54.0255 -10.107,54.0333 -10.1117,54.0489 -10.095,54.1667 -10.0646,54.194 -10.0472,54.206 -9.9847,54.2376 -9.8682,54.1961 -9.8774,54.1823 -9.8889,54.1702 -9.9101,54.1576 -9.9296,54.1551 -9.9438,54.1603 -9.9524,54.1688 -9.9648,54.1679 -9.96,54.1526 -9.9455,54.1471 -9.9033,54.1435 -9.8756,54.1456 -9.8542,54.162 -9.8351,54.206 -9.8306,54.2539 -9.8243,54.2631 -9.7833,54.2709 -9.7364,54.265 -9.724,54.2622 -9.5711,54.2491 -9.4814,54.2496 -9.3205,54.2536 -9.25,54.2339 -9.195,54.2097 -9.1823,54.1736 -9.1351,54.1145 -9.1165,54.0965 -9.1196,54.1085 -9.116,54.1376 -9.0431,54.2173 -9.0292,54.2229 -9.0109,54.2234 -8.9183,54.2197 -8.9011,54.216 -8.7339,54.1998 -8.6054,54.194 -8.4606,54.21 -8.5009,54.2607 -8.515,54.2657 -8.5731,54.2762 -8.5899,54.2744 -8.6121,54.2695 -8.6326,54.2677 -8.6535,54.2802 -8.6468,54.2919 -8.6364,54.2985 -8.4199,54.3838 -8.3812,54.3984 -8.3667,54.4034 -8.334,54.4064 -8.2702,54.4098 -8.2531,54.4581 -8.1872,54.5092 -8.156,54.5276 -8.1742,54.5698 -8.3761,54.5604 -8.5449,54.5495 -8.5699,54.5457 -8.6118,54.5538 -8.6651,54.5641 -8.6877,54.5782 -8.7336,54.5839 -8.7749,54.5947 -8.7832,54.6319 -8.7248,54.6634 -8.6542,54.6955 -8.6061,54.7059 -8.5153,54.7206 -8.4762,54.7296 -8.3541,54.7676 -8.3395,54.7754 -8.3011,54.8094 -8.323,54.8379 -8.3345,54.841 -8.3573,54.8389 -8.3682,54.8322 -8.3684,54.8171 -8.3824,54.8187 -8.4227,54.8327 -8.443,54.8531 -8.4449,54.8741 -8.3856,54.869 -8.3705,54.8777 -8.3883,54.8884 -8.4125,54.9024 -8.4425,54.9323 -8.303,55.044 -8.1673,55.0772 -8.0081,55.1167 -7.9676,55.1516 -7.9319,55.1316 -7.8859,55.1129 -7.859,55.1342 -7.8454,55.157 -7.7801,55.178 -7.7827,55.1552 -7.8008,55.1383 -7.7971,55.1114 -7.7572,55.1187 -7.6986,55.094 -7.6895,55.0808 -7.6833,55.0642 -7.6888,55.0459 -7.6862,55.0304 -7.6541,55.0793 -7.6633,55.1029 -7.6885,55.1516 -7.7004,55.1552 -7.7075,55.1473 -7.7077,55.1298 -7.7001,55.1075 -7.7243,55.1141 -7.7401,55.125 -7.7745,55.1364 -7.7782,55.1472 -7.7514,55.1658 -7.7233,55.1809 -7.6853,55.1967 -7.6567,55.2068 -7.6442,55.2095 -7.6192,55.2006 -7.5137,55.0594 -7.5132,55.0472 -7.5175,55.0312 -7.5285,55.0212 -7.5504,55.0184 -7.5617,55.0107 -7.5853,54.9962 -7.6036,54.9892 -7.6233,54.9737 -7.6689,54.8864 -7.6501,54.8894 -7.631,54.8969 -7.595,54.918 -7.5628,54.9406 -7.5504,54.9479 -7.5064,54.9646 -7.4936,54.9684 -7.4649,54.9749 -7.4583,54.9751 -7.4434,54.9802 -7.4334,54.9909 -7.4421,55.067 -7.5018,55.1148 -7.5121,55.1213 -7.5357,55.1371 -7.5343,55.152 -7.4988,55.2094 -7.3785,55.2251 -7.3414,55.2686 -7.3836,55.3133 -7.3639,55.3149 -7.228,55.2867 -7.1741,55.2664 -7.0395,55.2068 -6.944,55.1844 -6.9231,55.1736 -6.9236,55.1548 -6.9415,55.1468 -7.0549,55.1094 -7.1316,55.086 -7.1466,55.081 -7.171,55.0669 -7.185,55.0565 -7.2398,55.0059 -7.2398,55.0059 13,-9.0,United States -160.0521,55.2849 -160.0422,55.2244 -160.0452,55.2138 -160.053,55.193 -160.06,55.1809 -160.2072,55.2248 -160.2323,55.2376 -160.249,55.2512 -160.222,55.2841 -160.0706,55.3034 -160.0516,55.2915 -160.0521,55.2849 -160.0521,55.2849 49,12.0,Russia 165.9604,55.2644 165.979,55.2431 165.9679,55.2101 165.9574,55.2054 165.9463,55.1974 165.9372,55.1819 165.9377,55.1679 165.9545,55.1016 165.9637,55.0823 165.9799,55.0628 166.1033,54.9379 166.1688,54.8902 166.1777,54.8855 166.1962,54.8772 166.2533,54.8532 166.2632,54.8494 166.2995,54.8276 166.3308,54.8054 166.3544,54.7859 166.3615,54.779 166.3855,54.6726 166.3812,54.6137 166.2865,54.66 166.2007,54.726 166.0922,54.7557 166.0739,54.7649 166.0579,54.7767 165.8914,54.904 165.7893,54.9949 165.7883,55.0079 165.7985,55.0193 165.7984,55.0402 165.7642,55.0858 165.7042,55.1504 165.6761,55.1632 165.6172,55.186 165.5532,55.1992 165.5468,55.2384 165.6355,55.2916 165.6459,55.2961 165.6592,55.2977 165.6704,55.2966 165.7901,55.2739 165.8334,55.2635 165.8877,55.2532 165.9126,55.2534 165.9254,55.2546 165.9604,55.2644 165.9604,55.2644 18,-9.0,United States -133.067,55.2656 -133.0019,55.2001 -132.9946,55.1857 -133.0127,55.1504 -133.0211,55.144 -133.0942,55.1299 -133.1878,55.1337 -133.1985,55.1387 -133.2071,55.147 -133.2131,55.1561 -133.2177,55.1685 -133.2213,55.1873 -133.2077,55.2398 -133.1995,55.246 -133.0976,55.2701 -133.0825,55.2698 -133.067,55.2656 -133.067,55.2656 26,2.0,Denmark 15.0167,54.9301 14.917,54.9487 14.8565,54.9645 14.7219,55.0006 14.7042,55.008 14.6536,55.0362 14.6736,55.1499 14.7199,55.2288 14.7407,55.2402 14.7766,55.2141 14.7873,55.2041 14.7971,55.194 14.8133,55.1856 14.8619,55.1643 14.9717,55.1222 15.0434,55.0963 15.0652,55.0902 15.0972,55.0839 15.1119,55.0766 15.1228,55.0645 15.1235,55.0212 15.0794,54.9585 15.0511,54.9366 15.0307,54.9314 15.0167,54.9301 15.0167,54.9301 36,-9.0,United States -159.5966,55.2128 -159.5876,55.1956 -159.5821,55.1838 -159.5528,55.1119 -159.5669,55.0713 -159.6064,55.034 -159.6169,55.0328 -159.7338,54.9782 -159.8479,54.9069 -159.8993,54.8669 -159.9063,54.8578 -159.924,54.8292 -159.9287,54.8103 -159.9427,54.806 -159.9517,54.8111 -159.9708,54.8369 -159.9719,54.8558 -159.9605,54.8674 -159.8967,54.9044 -159.8492,54.9509 -159.8639,54.9831 -159.8877,55.0025 -159.9191,55.0483 -159.843,55.0903 -159.8272,55.09 -159.7997,55.0781 -159.7924,55.0675 -159.786,55.0529 -159.7354,55.0409 -159.675,55.104 -159.6623,55.1432 -159.6615,55.1693 -159.6451,55.1934 -159.6072,55.2259 -159.5966,55.2128 -159.5966,55.2128 132,2.0,Russia 20.949,55.2113 20.8725,55.1632 20.8477,55.1319 20.8074,55.0846 20.6729,54.9993 20.6371,54.9786 20.5957,54.9566 20.5486,54.9358 20.4968,54.9001 20.5256,54.8748 20.5512,54.8755 20.6197,54.8783 20.7199,54.8788 20.7579,54.8755 20.8295,54.8381 20.9485,54.8283 21.0572,54.8313 21.1863,54.8677 21.2088,54.8905 21.1918,54.9236 21.1805,54.954 21.1546,55.0841 21.1912,55.1346 21.226,55.1374 21.2379,55.1623 21.2274,55.1839 21.2384,55.1854 21.2638,55.1939 21.2911,55.2056 21.3341,55.2218 21.3947,55.1868 21.5274,55.1322 21.6104,55.1167 21.6856,55.0737 22.0222,54.9641 22.0654,54.965 22.085,54.9743 22.101,54.9879 22.153,54.9962 22.2202,55.0018 22.2417,55.0026 22.4745,54.9986 22.5643,54.9802 22.6068,54.9001 22.6434,54.894 22.6812,54.8982 22.7998,54.8351 22.8126,54.8173 22.8259,54.7743 22.8281,54.7481 22.8017,54.7136 22.775,54.7077 22.7069,54.6533 22.6815,54.6293 22.6567,54.4658 22.6532,54.4298 22.6603,54.4007 22.6722,54.3803 22.6979,54.36 22.738,54.3132 22.7475,54.3001 22.7285,54.296 22.6262,54.2874 22.5919,54.2852 22.4179,54.2819 22.3921,54.2822 22.259,54.2762 22.2281,54.2747 22.128,54.2715 21.9451,54.2693 21.8188,54.268 21.6949,54.2673 21.5895,54.2661 21.5414,54.2648 21.5342,54.2649 21.488,54.2635 21.4068,54.2622 21.376,54.2624 21.3314,54.2637 21.248,54.2663 21.1963,54.2694 21.1463,54.2727 21.0909,54.2782 20.8631,54.2926 20.7041,54.2945 20.3987,54.3179 20.3374,54.324 20.295,54.3302 20.2673,54.3341 20.1246,54.3485 20.0567,54.3549 19.9706,54.3556 19.8242,54.3663 19.7636,54.3739 19.7889,54.4027 20.0023,54.5 20.0684,54.5104 20.183,54.5395 20.2112,54.548 20.3628,54.6112 20.1595,54.6329 19.9756,54.6558 19.9476,54.6414 19.9274,54.6287 19.9105,54.5952 19.9206,54.5767 19.8959,54.566 19.8673,54.5646 19.8391,54.5765 19.8654,54.625 19.8893,54.6484 19.9253,54.7005 19.9258,54.7346 19.9057,54.7727 19.8898,54.7969 19.8929,54.835 19.907,54.8636 19.9561,54.893 19.9962,54.882 20.3272,54.8777 20.3878,54.8831 20.5135,54.9319 20.5695,54.9591 20.5899,54.97 20.6373,54.9977 20.6616,55.0136 20.792,55.1197 20.8586,55.178 20.8996,55.2143 20.907,55.2222 20.949,55.2113 20.949,55.2113 26,-9.0,United States -131.2414,55.1709 -131.2392,55.1671 -131.2262,55.1573 -131.1957,55.1447 -131.1827,55.1438 -131.1618,55.1463 -131.1477,55.1318 -131.1234,55.0543 -131.119,54.9949 -131.1297,54.971 -131.1498,54.9472 -131.1609,54.9435 -131.3533,54.9271 -131.3683,54.9296 -131.3937,54.9487 -131.3965,54.9619 -131.3523,55.0188 -131.3411,55.106 -131.3576,55.1509 -131.359,55.1644 -131.3556,55.1895 -131.3199,55.2022 -131.2944,55.1986 -131.244,55.1833 -131.2414,55.1709 -131.2414,55.1709 29,-9.0,United States -132.8736,55.1804 -132.8425,55.1346 -132.7644,55.0581 -132.7636,55.0306 -132.7758,55.023 -132.7705,54.9946 -132.6713,54.8461 -132.644,54.8328 -132.6257,54.8283 -132.6117,54.8259 -132.5285,54.7582 -132.497,54.7205 -132.4606,54.6547 -132.4426,54.6153 -132.4546,54.6021 -132.6148,54.6266 -132.6378,54.6621 -132.709,54.7407 -132.746,54.7612 -132.7579,54.7646 -132.7776,54.7804 -132.8944,54.8751 -132.969,54.9818 -132.9854,55.0274 -132.9676,55.1624 -132.9594,55.1685 -132.8847,55.1867 -132.8736,55.1804 -132.8736,55.1804 11,-9.0,United States -159.2422,55.1732 -159.2311,55.1072 -159.2335,55.0842 -159.2463,54.9993 -159.3751,54.9752 -159.382,54.9917 -159.3793,55.0608 -159.2637,55.1807 -159.2479,55.1806 -159.2422,55.1732 -159.2422,55.1732 173,1.0,United Kingdom -7.2398,55.0059 -7.2404,54.9823 -7.0826,54.9722 -7.0564,54.9744 -7.0391,54.9823 -7.017,54.9974 -7.0077,55.0057 -6.982,55.0455 -6.9546,55.0912 -6.8778,55.103 -6.8128,55.103 -6.7187,55.1152 -6.6017,55.1424 -6.5042,55.1682 -6.3652,55.1742 -6.3423,55.1726 -6.2441,55.1471 -6.1577,55.1536 -6.1349,55.1558 -6.0906,55.1444 -6.0532,55.1266 -6.0239,55.0895 -6.0318,55.0379 -6.0388,55.0225 -6.0254,54.993 -5.8343,54.8318 -5.7814,54.7871 -5.7688,54.791 -5.7368,54.7892 -5.7241,54.7851 -5.6995,54.7673 -5.6806,54.7448 -5.678,54.6993 -5.685,54.6864 -5.7012,54.6752 -5.7367,54.6606 -5.7569,54.6601 -5.7759,54.6557 -5.8089,54.6456 -5.8568,54.6256 -5.868,54.6184 -5.8797,54.6089 -5.9143,54.5679 -5.8921,54.5384 -5.8723,54.5427 -5.8644,54.5559 -5.8457,54.5734 -5.8062,54.5917 -5.7929,54.5973 -5.7268,54.61 -5.6195,54.6154 -5.5894,54.6151 -5.5645,54.6134 -5.5255,54.5871 -5.5184,54.5662 -5.4701,54.4725 -5.4221,54.4221 -5.4263,54.3947 -5.4518,54.3221 -5.4971,54.301 -5.5084,54.3054 -5.5369,54.3415 -5.5344,54.3539 -5.5226,54.3633 -5.5325,54.3853 -5.5339,54.4131 -5.5414,54.4372 -5.5509,54.4534 -5.5585,54.4607 -5.5899,54.478 -5.6297,54.4955 -5.6493,54.5024 -5.6708,54.5091 -5.6884,54.5089 -5.695,54.4697 -5.6637,54.4585 -5.6353,54.4288 -5.5639,54.3133 -5.5585,54.3035 -5.5525,54.2804 -5.5495,54.2274 -5.5527,54.2195 -5.5772,54.2015 -5.5986,54.1862 -5.6459,54.1636 -5.6571,54.1715 -5.6823,54.1814 -5.7208,54.1841 -5.7362,54.1847 -5.8152,54.176 -5.8499,54.1625 -5.8634,54.1457 -5.8618,54.1341 -5.8556,54.1225 -5.8545,54.1036 -5.8751,54.0531 -5.8901,54.0336 -5.9103,54.0228 -5.958,54.0009 -6.0335,53.9684 -6.0612,53.9645 -6.0718,53.9651 -6.0979,53.9733 -6.1634,54.0091 -6.1787,54.0273 -6.1891,54.0326 -6.2564,54.0365 -6.2608,54.041 -6.2779,54.0455 -6.328,54.0524 -6.3427,54.0512 -6.3543,54.0409 -6.4367,53.9952 -6.5562,53.9875 -6.5969,53.9791 -6.6087,53.9742 -6.6174,53.9792 -6.6443,54.0021 -6.7233,54.1203 -6.8395,54.2262 -6.8613,54.2785 -6.9055,54.3102 -6.9149,54.3157 -6.9626,54.3381 -7.0173,54.3534 -7.0463,54.3463 -7.1488,54.2733 -7.1635,54.2259 -7.1314,54.193 -7.1336,54.1618 -7.2716,54.0604 -7.3008,54.0494 -7.3177,54.0497 -7.5468,54.0637 -7.5972,54.0791 -7.609,54.0841 -7.6121,54.1005 -7.6865,54.1393 -7.7348,54.1371 -7.8048,54.1358 -7.838,54.1488 -7.8485,54.1548 -7.8548,54.1643 -7.8561,54.1898 -7.8623,54.2214 -7.8867,54.2308 -7.9279,54.236 -8.0167,54.2936 -8.0316,54.2978 -8.0419,54.303 -8.0519,54.3091 -8.1441,54.3767 -8.1576,54.4003 -8.0333,54.4433 -7.9372,54.4686 -7.82,54.4902 -7.7389,54.5305 -7.7642,54.5629 -7.839,54.5701 -7.8927,54.6003 -7.9004,54.6072 -7.9127,54.6364 -7.8296,54.6696 -7.8124,54.6702 -7.7258,54.6466 -7.5402,54.6986 -7.4697,54.7656 -7.445,54.7935 -7.4309,54.8181 -7.3934,54.889 -7.3136,54.9805 -7.2398,55.0059 -7.2398,55.0059 63,10.0,Russia 136.9878,54.7096 137.0143,54.7352 137.02,54.7712 137.0157,54.7888 137.0441,54.8301 137.1339,54.9173 137.1927,54.9437 137.2038,54.9468 137.215,54.9508 137.2278,54.9639 137.2625,55.0157 137.2857,55.067 137.2988,55.0997 137.3061,55.1098 137.3201,55.1197 137.331,55.1238 137.3426,55.1258 137.3988,55.1324 137.4228,55.1212 137.4652,55.0997 137.4633,55.0834 137.6025,55.0626 137.8596,54.9977 137.9628,54.9856 137.969,54.9759 137.9687,54.963 137.9576,54.9532 137.9466,54.9479 137.9239,54.9421 137.9132,54.9406 137.8787,54.9387 137.8676,54.9343 137.8508,54.9211 137.8271,54.9013 137.7719,54.8479 137.7556,54.8212 137.7485,54.8032 137.6854,54.704 137.5538,54.628 137.543,54.6211 137.5112,54.5958 137.5024,54.5794 137.4988,54.566 137.4848,54.5573 137.4741,54.5546 137.4133,54.5812 137.3744,54.6419 137.2726,54.7829 137.2622,54.7955 137.2519,54.8081 137.2294,54.8092 137.2073,54.806 137.196,54.8017 137.1414,54.7795 137.1306,54.7738 137.0831,54.7492 137.0726,54.7424 137.0621,54.7322 137.0279,54.7101 137.0167,54.7071 136.9942,54.7074 136.9878,54.7096 136.9878,54.7096 12,-9.0,United States -132.5859,55.1208 -132.5047,55.0754 -132.4645,55.0275 -132.4445,54.9726 -132.5041,54.9384 -132.5737,54.942 -132.6389,54.9674 -132.6364,55.0761 -132.6255,55.0946 -132.5967,55.1267 -132.5859,55.1208 -132.5859,55.1208 16,-9.0,United States -161.4549,55.0839 -161.3827,55.0631 -161.3663,55.051 -161.3662,55.0403 -161.4672,54.99 -161.4864,54.9906 -161.5013,54.9957 -161.626,55.0675 -161.6259,55.0866 -161.5803,55.1014 -161.5701,55.103 -161.55,55.1059 -161.5398,55.106 -161.4506,55.0909 -161.4549,55.0839 -161.4549,55.0839 30,2.0,Denmark 10.6968,54.6611 10.6822,54.6634 10.6703,54.6733 10.6568,54.6897 10.6374,54.7385 10.6338,54.7731 10.6637,54.8443 10.6753,54.858 10.7183,54.8954 10.7514,54.914 10.7791,54.9239 10.8322,54.9804 10.8701,55.0441 10.8909,55.0762 10.9104,55.092 10.9215,55.0962 10.9336,55.0946 10.9406,55.0832 10.9184,55.0252 10.9124,55.0109 10.8921,54.9639 10.8784,54.9351 10.8674,54.9245 10.8586,54.919 10.8394,54.9032 10.8206,54.8788 10.7685,54.7798 10.7387,54.7129 10.6968,54.6611 10.6968,54.6611 34,10.0,Russia 136.4337,54.8407 136.4546,54.8783 136.563,54.9479 136.5739,54.9536 136.8052,55.0397 136.8903,55.0552 136.9016,55.0568 136.9361,55.0539 136.9477,55.0503 136.9531,55.0408 136.8503,54.8791 136.842,54.8722 136.8231,54.8587 136.812,54.853 136.7894,54.8522 136.7666,54.8531 136.7213,54.8556 136.7095,54.8565 136.6966,54.8631 136.6931,54.8863 136.6834,54.891 136.672,54.8931 136.6605,54.8942 136.6494,54.8939 136.6379,54.8921 136.6267,54.8892 136.5413,54.8618 136.5213,54.8241 136.5073,54.8175 136.4955,54.8197 136.484,54.8234 136.4488,54.8356 136.4337,54.8407 136.4337,54.8407 37,2.0,Denmark 9.9828,54.9193 9.9875,54.9152 10.0261,54.8746 10.0521,54.831 10.0555,54.8212 10.0521,54.8098 9.9721,54.7956 9.9617,54.7942 9.9396,54.7939 9.9149,54.797 9.879,54.8075 9.7875,54.8353 9.7661,54.8452 9.7557,54.8646 9.7416,54.897 9.744,54.9154 9.7648,54.9048 9.8023,54.8823 9.8123,54.8777 9.825,54.8776 9.8208,54.909 9.7794,54.9485 9.7662,54.9512 9.7252,54.9479 9.7014,54.9448 9.6823,54.9455 9.6616,54.9522 9.615,54.9844 9.6231,54.994 9.6482,55.0029 9.6959,55.0167 9.7374,55.0198 9.7555,55.0159 9.7759,55.0104 9.952,54.9464 9.9828,54.9193 9.9828,54.9193 798,2.0,Germany 9.4293,54.7613 9.4234,54.7439 9.5623,54.7613 9.644,54.748 9.7688,54.7219 9.8855,54.727 9.9192,54.718 9.955,54.6966 10.0205,54.6041 10.023,54.5693 10.0156,54.4915 9.9877,54.4598 9.9539,54.4436 9.8764,54.4182 9.8547,54.4138 9.8292,54.413 9.8494,54.3934 9.8769,54.3904 9.9899,54.4105 10.0891,54.4256 10.1099,54.4261 10.3508,54.3718 10.5919,54.297 10.6284,54.2737 10.6728,54.2458 10.7544,54.2438 10.777,54.249 10.8136,54.2667 10.867,54.2984 10.9283,54.321 10.9409,54.3192 10.9685,54.3083 10.9987,54.3066 11.0262,54.3062 11.0555,54.313 11.0755,54.1422 11.0415,54.1139 10.8626,54.0277 10.8143,54.0277 10.7833,54.0264 10.7446,53.9932 10.7397,53.9726 10.7591,53.9434 10.7778,53.9326 10.8045,53.9311 10.8435,53.9308 10.8618,53.923 10.8723,53.8914 10.848,53.8511 10.881,53.868 10.8865,53.8945 10.9468,53.9171 10.995,53.9323 11.0371,53.9444 11.0762,53.9506 11.1651,53.949 11.2329,53.8757 11.3938,53.8569 11.4618,53.8973 11.4736,53.9315 11.5029,53.9703 11.5258,53.9634 11.5355,53.964 11.5577,53.971 11.6069,54.0193 11.607,54.0481 11.6681,54.09 11.7278,54.093 11.966,54.1102 12.1095,54.1278 12.3063,54.2234 12.3292,54.2397 12.4162,54.3276 12.4597,54.3803 12.5061,54.4103 12.5197,54.3952 12.6173,54.3851 12.6392,54.3824 12.6595,54.3814 12.7817,54.379 12.879,54.3786 12.8999,54.3637 12.8589,54.3482 12.737,54.3496 12.7078,54.3599 12.6826,54.366 12.6495,54.3508 12.6222,54.3504 12.443,54.3315 12.4051,54.3088 12.3449,54.2416 12.3538,54.1991 12.3876,54.1853 12.4308,54.1865 12.4032,54.1954 12.3983,54.2182 12.4591,54.2686 12.5287,54.2968 12.5608,54.3046 12.6034,54.3092 12.6617,54.3127 12.7434,54.3088 13.0022,54.3362 13.0966,54.2132 13.1904,54.1886 13.263,54.1714 13.357,54.1112 13.4322,54.0338 13.4646,54.0242 13.4773,54.0229 13.4616,54.0562 13.6882,54.1074 13.7661,54.0465 13.776,54.0209 13.7634,53.987 13.8069,53.9232 13.8424,53.8413 13.7985,53.8136 13.7859,53.7919 13.9363,53.7124 14.2006,53.6381 14.233,53.6347 14.2522,53.6366 14.2862,53.4932 14.3897,53.2769 14.3896,53.2425 14.3683,53.0824 14.3569,53.0483 14.3244,52.9872 14.2707,52.957 14.2027,52.9271 14.1774,52.9229 14.1461,52.9116 14.1248,52.8978 14.1264,52.8011 14.1828,52.7571 14.3322,52.6869 14.3605,52.6696 14.4255,52.6142 14.4556,52.5911 14.4915,52.5779 14.5316,52.5661 14.5727,52.5457 14.6165,52.5118 14.6102,52.4297 14.5621,52.3791 14.54,52.3721 14.5211,52.3608 14.5114,52.3352 14.557,52.2277 14.5757,52.2119 14.6329,52.1995 14.6694,52.1939 14.6846,52.185 14.7378,52.0094 14.6944,51.8827 14.6668,51.8367 14.6227,51.805 14.5875,51.788 14.5781,51.76 14.6453,51.6641 14.6753,51.6424 14.6994,51.6311 14.7334,51.607 14.7365,51.5478 14.6921,51.4951 14.7165,51.4667 14.8144,51.4388 14.898,51.4224 14.9299,51.4102 14.9523,51.3812 14.9586,51.3084 14.9486,51.2976 14.9602,51.2743 14.9796,51.2573 15.0106,51.2275 15.009,51.1797 14.9716,51.0593 14.9559,51.0194 14.9427,50.9931 14.9082,50.9437 14.8742,50.9005 14.8035,50.8242 14.8056,50.8069 14.8024,50.7977 14.7805,50.7608 14.7492,50.7596 14.7173,50.7652 14.6953,50.7705 14.6293,50.7884 14.5969,50.7993 14.6092,50.8223 14.6059,50.8648 14.5749,50.9234 14.5468,50.9467 14.4696,50.9776 14.2842,50.9933 14.2636,50.9784 14.2362,50.9363 14.2995,50.8873 14.3465,50.8761 14.2896,50.8235 14.1339,50.7844 13.9695,50.7556 13.8826,50.7294 13.87,50.7101 13.7135,50.6722 13.6488,50.6672 13.6139,50.6638 13.5618,50.6509 13.5205,50.6311 13.4905,50.592 13.4981,50.5833 13.443,50.5431 13.4165,50.5468 13.3947,50.5529 13.3583,50.5709 13.2294,50.5308 13.2033,50.4932 13.1864,50.462 13.1675,50.4444 13.0599,50.4399 12.9956,50.3811 12.9724,50.3629 12.966,50.36 12.9252,50.3519 12.898,50.3566 12.8791,50.367 12.8363,50.3841 12.8059,50.3947 12.7531,50.3869 12.7212,50.3733 12.6523,50.3538 12.602,50.3539 12.4968,50.3344 12.4673,50.3148 12.3802,50.2513 12.3073,50.1782 12.3045,50.1486 12.2628,50.1607 12.1644,50.2567 12.0755,50.2643 12.1041,50.2504 12.1908,50.1059 12.1754,50.0785 12.1879,50.0483 12.2473,50.0085 12.2893,49.99 12.411,49.9364 12.4525,49.9283 12.4729,49.9186 12.5276,49.8523 12.4502,49.7265 12.4374,49.6384 12.4578,49.634 12.497,49.6202 12.5362,49.5596 12.5602,49.5036 12.5794,49.4708 12.6558,49.3682 12.7787,49.2832 12.8683,49.2837 12.94,49.2784 13.0121,49.2312 13.1538,49.1109 13.2989,49.0446 13.3766,48.9931 13.383,48.9499 13.4902,48.9165 13.545,48.9177 13.5757,48.9014 13.6064,48.8915 13.632,48.8486 13.6523,48.8335 13.6796,48.8235 13.7082,48.8252 13.7256,48.8146 13.7418,48.7899 13.7603,48.7781 13.7918,48.7442 13.7982,48.7238 13.8135,48.7178 13.7948,48.6823 13.8053,48.5754 13.7836,48.5272 13.706,48.4601 13.6571,48.4767 13.6351,48.4961 13.5831,48.5125 13.4989,48.529 13.4236,48.5047 13.4379,48.4602 13.4185,48.3741 13.4026,48.3355 13.3757,48.3109 13.3156,48.2732 13.294,48.2604 13.266,48.2499 13.2391,48.2438 13.1356,48.2369 12.9992,48.2043 12.8527,48.1477 12.7415,48.0667 12.7479,48.0271 12.7808,47.9995 12.8191,47.9749 12.8388,47.9572 12.8469,47.9398 12.9003,47.9028 12.9481,47.852 12.9901,47.7993 12.952,47.756 12.9256,47.7341 12.8956,47.6703 12.9751,47.6598 13.0045,47.6698 13.0396,47.6515 13.0589,47.6327 13.0813,47.5885 13.0347,47.4435 12.9941,47.4157 12.9396,47.4227 12.7884,47.5006 12.7698,47.5293 12.7878,47.5605 12.8097,47.5667 12.7188,47.6283 12.6479,47.6304 12.5853,47.6177 12.5584,47.5899 12.5486,47.5875 12.4966,47.5788 12.4372,47.6132 12.1837,47.6032 12.1898,47.5791 12.184,47.5587 12.1241,47.5566 12.0937,47.5605 12.0426,47.5662 11.9894,47.5702 11.9028,47.5599 11.6664,47.5302 11.5632,47.4698 11.538,47.4611 11.4888,47.4548 11.4412,47.4581 11.2803,47.3748 11.0882,47.3425 11.0129,47.3412 10.9927,47.3419 10.9611,47.3461 10.8939,47.4636 10.6756,47.4996 10.5542,47.4858 10.4668,47.5323 10.4189,47.5263 10.4214,47.4747 10.4513,47.4285 10.4589,47.3833 10.415,47.3418 10.3219,47.2587 10.26,47.235 10.2142,47.2221 10.1589,47.2208 10.1973,47.2686 10.217,47.3197 10.0289,47.4412 9.9408,47.4855 9.797,47.5397 9.7616,47.5369 9.7322,47.5116 9.7189,47.4869 9.6789,47.4752 9.6376,47.4751 9.5949,47.4751 9.5644,47.4832 9.5533,47.4861 9.465,47.5216 9.2478,47.6082 9.0697,47.631 9.0203,47.6338 8.9882,47.6263 8.9668,47.6157 8.9352,47.603 8.9134,47.5975 8.8863,47.5965 8.8706,47.5997 8.8432,47.6445 8.8225,47.6635 8.793,47.6814 8.7618,47.6613 8.7875,47.6271 8.7409,47.6392 8.7078,47.6421 8.7197,47.6536 8.7241,47.7024 8.673,47.732 8.6492,47.7434 8.5995,47.7493 8.5508,47.752 8.4649,47.7161 8.3948,47.6472 8.4072,47.6195 8.4733,47.5925 8.5099,47.5971 8.5284,47.6098 8.5685,47.6141 8.5979,47.6131 8.6126,47.6017 8.5808,47.5462 8.5641,47.5372 8.5571,47.5441 8.5509,47.5641 8.5113,47.5781 8.459,47.553 8.4238,47.5193 8.379,47.5257 8.2773,47.5548 8.229,47.5651 8.184,47.5658 8.0902,47.5169 8.0218,47.5018 7.9063,47.5 7.7585,47.499 7.6862,47.489 7.6454,47.4961 7.6104,47.5067 7.6579,47.5216 7.6646,47.5506 7.6295,47.5494 7.5773,47.5302 7.578,47.5445 7.5536,47.5846 7.517,47.6079 7.5014,47.6408 7.516,47.7336 7.5465,47.8081 7.5734,47.8486 7.6123,47.9181 7.6088,47.9418 7.5731,47.9725 7.5595,47.9891 7.5586,48.0322 7.5677,48.0621 7.5968,48.1091 7.6821,48.2213 7.7377,48.2806 7.7319,48.3156 7.7257,48.3385 7.7343,48.3696 7.791,48.5201 7.8687,48.6084 7.9505,48.6682 8.0806,48.7479 8.0934,48.7636 8.0995,48.7877 8.1098,48.8091 8.1256,48.837 8.1864,48.8992 8.2141,48.9085 8.1436,48.9201 8.0342,48.9522 7.9246,48.9926 7.8101,48.9901 7.7261,48.9865 7.6577,48.986 7.6408,48.9889 7.6168,49.011 7.4761,49.1079 7.4146,49.1199 7.3679,49.1159 7.3583,49.1125 7.3534,49.0958 7.279,49.0553 7.1411,49.0649 7.0804,49.0711 7.0093,49.1312 6.9197,49.1638 6.8362,49.1558 6.8465,49.1254 6.8242,49.0989 6.7196,49.1113 6.7055,49.1309 6.6772,49.1886 6.585,49.3066 6.5318,49.367 6.4989,49.386 6.4589,49.4048 6.4045,49.419 6.3531,49.4025 6.3535,49.4324 6.3473,49.469 6.4116,49.6087 6.463,49.636 6.4964,49.6496 6.5143,49.7505 6.4724,49.7538 6.4202,49.7517 6.3861,49.7605 6.312,49.7911 6.3067,49.7979 6.2437,49.825 6.2251,49.8402 6.1652,49.8937 6.1316,49.9365 6.1216,49.9564 6.1039,49.9995 6.1092,50.033 6.1201,50.0614 6.1255,50.0701 6.1305,50.0967 6.1573,50.1667 6.2714,50.2256 6.3403,50.2548 6.3885,50.265 6.3638,50.3851 6.3297,50.4285 6.3042,50.439 6.2554,50.4395 6.2382,50.5306 6.2611,50.5616 6.1578,50.5977 6.0457,50.665 6.0026,50.6985 5.9989,50.7437 6.0075,50.783 6.0492,50.7918 6.0754,50.8132 6.0716,50.8558 6.016,50.919 5.9347,50.9253 5.8932,50.914 5.8604,50.9597 5.8562,50.9865 5.8966,51.0042 5.994,51.0249 6.0881,51.072 6.0751,51.115 6.0624,51.1548 6.0682,51.182 6.1337,51.2358 6.213,51.3038 6.2126,51.4078 6.1952,51.454 6.1492,51.4987 6.1247,51.5111 6.0841,51.546 6.0196,51.6466 5.9429,51.6874 5.9736,51.7071 5.9543,51.7466 5.9939,51.77 6.1143,51.828 6.1726,51.835 6.3413,51.7881 6.4526,51.7935 6.5174,51.8141 6.5846,51.836 6.6742,51.8516 6.7122,51.8378 6.7358,51.8458 6.7726,51.8645 6.8182,51.9153 6.7869,51.9483 6.7183,51.9751 6.726,52.0162 6.7488,52.0542 6.8455,52.0598 6.8644,52.0818 6.8918,52.1117 6.9538,52.1295 7.031,52.1711 7.042,52.177 7.0181,52.2176 7.0242,52.245 7.0469,52.2768 7.0595,52.2949 7.0517,52.3303 6.9732,52.3964 6.9432,52.3764 6.7483,52.4001 6.6934,52.4273 6.6789,52.4895 6.7118,52.4985 6.7476,52.5035 6.717,52.5574 6.7082,52.5658 6.7549,52.5899 6.8954,52.5868 7.0227,52.5721 7.0422,52.5885 7.0522,52.6601 7.0539,52.6991 7.0551,52.7311 7.0622,52.7581 7.0796,52.7753 7.1215,52.8272 7.1682,52.8727 7.1848,52.9008 7.1994,52.947 7.1955,53.1143 7.1968,53.1809 7.2443,53.2539 7.313,53.255 7.3392,53.2453 7.3254,53.261 7.2154,53.2743 7.1723,53.2785 7.115,53.2778 7.0716,53.2748 7.0385,53.279 7.0075,53.313 7.0036,53.3477 7.0106,53.3801 7.021,53.42 7.0821,53.5256 7.1731,53.5797 7.2201,53.6047 7.2841,53.6226 7.3292,53.6258 7.4566,53.6233 7.5012,53.6096 7.5692,53.6187 7.6859,53.6375 7.8304,53.6516 7.8698,53.655 7.8945,53.6569 7.9361,53.6547 7.9686,53.6528 8.0011,53.6457 8.0117,53.627 8.0391,53.5687 8.1105,53.5223 8.1479,53.4961 8.1533,53.4663 8.1161,53.4472 8.0804,53.4408 8.0494,53.4387 8.0599,53.4058 8.0847,53.382 8.197,53.3407 8.2212,53.3383 8.233,53.3396 8.2725,53.3587 8.2985,53.3939 8.3062,53.4433 8.2916,53.4626 8.2548,53.4577 8.2201,53.4606 8.2235,53.4955 8.2296,53.5237 8.2561,53.5451 8.2925,53.5544 8.3185,53.5529 8.4808,53.4926 8.4996,53.4471 8.4811,53.4267 8.4703,53.3996 8.4711,53.3498 8.476,53.315 8.49,53.3 8.4916,53.3673 8.4835,53.3942 8.4904,53.4207 8.5468,53.4529 8.5515,53.4666 8.4979,53.5547 8.4768,53.5864 8.4702,53.6237 8.5341,53.7554 8.5632,53.7923 8.5905,53.8163 8.6447,53.8297 8.6678,53.831 8.6971,53.8074 8.7421,53.7838 8.7611,53.7776 8.7826,53.7731 8.8387,53.767 8.893,53.7653 9.0057,53.7838 9.0902,53.8004 9.1138,53.8032 9.2009,53.8021 9.268,53.7928 9.3071,53.7652 9.3361,53.7351 9.3639,53.6981 9.3969,53.6647 9.5394,53.542 9.5624,53.526 9.657,53.493 9.6799,53.4877 9.749,53.4815 9.7933,53.4714 9.813,53.4792 9.7632,53.4995 9.7252,53.5027 9.7084,53.5031 9.6836,53.506 9.6569,53.5126 9.5595,53.551 9.5383,53.5651 9.4186,53.6815 9.4019,53.7083 9.3924,53.7293 9.3782,53.7598 9.3176,53.792 9.267,53.8128 9.2191,53.8234 9.198,53.8269 9.0481,53.8351 8.9694,53.8288 8.9326,53.8443 8.9127,53.8568 8.892,53.8719 8.8684,53.8979 8.8354,53.9458 8.8298,53.9716 8.8711,53.9814 8.9119,53.9743 8.9384,53.9631 8.9603,53.9551 8.9869,53.964 8.9971,53.9839 9.0024,54.022 8.9561,54.0685 8.8375,54.0648 8.8127,54.0884 8.798,54.1115 8.8053,54.1351 8.8311,54.1907 8.8687,54.2309 8.8153,54.2299 8.6759,54.204 8.6482,54.2049 8.6231,54.2127 8.5953,54.2416 8.586,54.2627 8.6077,54.3152 8.6279,54.3333 8.754,54.3471 8.8118,54.3511 8.8301,54.3416 8.8721,54.3505 8.9796,54.3881 8.9988,54.4112 8.9963,54.4399 8.949,54.4786 8.9287,54.4843 8.9038,54.4971 8.836,54.557 8.7946,54.6128 8.7396,54.6477 8.7197,54.657 8.6823,54.683 8.6365,54.7426 8.6269,54.7681 8.5618,54.7933 8.531,54.8065 8.376,54.8027 8.2867,54.7923 8.2803,54.761 8.2827,54.7146 8.277,54.6787 8.2666,54.7107 8.2679,54.7624 8.2794,54.8364 8.293,54.8688 8.3592,54.9686 8.374,54.9844 8.3937,54.9919 8.4398,54.9861 8.4239,54.9595 8.3932,54.9448 8.3576,54.9299 8.3389,54.9017 8.4063,54.8555 8.447,54.8358 8.4762,54.8364 8.5859,54.8466 8.6497,54.8489 8.6781,54.8316 8.7047,54.8267 8.744,54.8336 8.7711,54.8418 8.8199,54.8495 8.905,54.8439 8.9259,54.8413 9.1533,54.8006 9.2131,54.7854 9.2153,54.7652 9.2326,54.7483 9.3349,54.7462 9.3615,54.7635 9.3987,54.7693 9.4293,54.7613 9.4293,54.7613 15,-9.0,United States -159.1093,54.9913 -159.0853,54.9896 -159.0744,54.9818 -159.0654,54.9077 -159.1068,54.8888 -159.151,54.8777 -159.1612,54.876 -159.1766,54.8766 -159.1853,54.8818 -159.2058,54.9498 -159.1874,54.972 -159.1737,54.9839 -159.1657,54.9902 -159.1093,54.9913 -159.1093,54.9913 70,-9.0,United States -163.8978,54.5401 -163.9153,54.5353 -163.9387,54.5266 -163.9774,54.5094 -164.0019,54.4958 -164.0197,54.4849 -164.0487,54.4655 -164.047,54.4399 -164.066,54.4059 -164.1028,54.3824 -164.1601,54.3577 -164.191,54.3491 -164.3868,54.3284 -164.4992,54.3329 -164.5501,54.349 -164.5792,54.3649 -164.6547,54.4665 -164.6732,54.5162 -164.649,54.5375 -164.5805,54.5573 -164.5261,54.5693 -164.4917,54.5718 -164.4671,54.5795 -164.4246,54.6044 -164.4021,54.6253 -164.3513,54.6823 -164.2733,54.7771 -164.267,54.8065 -164.2097,54.8502 -164.1434,54.8651 -164.0926,54.8538 -164.0664,54.837 -164.0237,54.8264 -163.9544,54.8268 -163.7419,54.9127 -163.7049,54.9274 -163.6735,54.9445 -163.6451,54.967 -163.497,54.9906 -163.2564,54.9826 -163.1585,54.879 -163.1425,54.8558 -163.1348,54.8211 -163.1204,54.7723 -163.0966,54.7276 -163.0591,54.7068 -163.0333,54.6979 -162.9861,54.6907 -162.944,54.6977 -162.9193,54.7133 -162.863,54.6989 -162.778,54.6041 -162.878,54.5949 -163.0182,54.6355 -163.0582,54.6438 -163.1548,54.6044 -163.2426,54.5683 -163.3177,54.5477 -163.3526,54.5469 -163.4052,54.5534 -163.437,54.5603 -163.479,54.5669 -163.5365,54.5696 -163.7302,54.5661 -163.7736,54.5626 -163.8069,54.5582 -163.8385,54.5523 -163.8891,54.5428 -163.8978,54.5401 -163.8978,54.5401 10,2.0,Denmark 10.5471,54.8819 10.5347,54.8841 10.497,54.9165 10.4838,54.9421 10.6092,54.979 10.6578,54.9275 10.6517,54.9129 10.597,54.8859 10.5471,54.8819 10.5471,54.8819 25,2.0,Denmark 12.1629,54.8162 12.143,54.8189 12.1302,54.8218 12.0952,54.84 12.1134,54.8896 12.1572,54.9181 12.291,54.9708 12.3741,54.968 12.4311,54.9625 12.4853,54.9513 12.5121,54.9408 12.5352,54.8992 12.5252,54.884 12.5152,54.8807 12.4993,54.8797 12.4803,54.883 12.447,54.8922 12.3829,54.8987 12.3561,54.8988 12.3407,54.8978 12.317,54.8945 12.2895,54.8855 12.2432,54.8549 12.1629,54.8162 12.1629,54.8162 24,-8.0,Canada -129.9417,54.9495 -129.937,54.9398 -129.9239,54.9115 -129.9223,54.8981 -129.9248,54.8866 -129.9405,54.8669 -130.048,54.7666 -130.1631,54.706 -130.177,54.7006 -130.1898,54.705 -130.2351,54.7514 -130.2383,54.7611 -130.1958,54.7891 -130.1625,54.8045 -130.1203,54.8309 -130.047,54.8859 -130.0269,54.9054 -130.0042,54.9328 -129.9898,54.9479 -129.9775,54.9552 -129.9568,54.9588 -129.9451,54.9553 -129.9417,54.9495 -129.9417,54.9495 19,-9.0,United States -131.0131,54.9218 -131.0177,54.9122 -131.0168,54.8669 -131.0013,54.8606 -130.9774,54.8545 -130.9678,54.8439 -131.0096,54.8128 -131.1057,54.792 -131.12,54.7925 -131.1537,54.7995 -131.2491,54.8472 -131.2584,54.8579 -131.2555,54.8691 -131.2456,54.8789 -131.226,54.8887 -131.0283,54.9343 -131.0123,54.9291 -131.0131,54.9218 -131.0131,54.9218 31,-9.0,United States -161.9548,54.9009 -161.9516,54.8876 -161.9563,54.8657 -161.9502,54.8471 -161.9515,54.8326 -161.9582,54.8234 -161.9792,54.8112 -161.987,54.8025 -162.0007,54.7845 -162.0161,54.7699 -162.0327,54.7647 -162.0519,54.7654 -162.0782,54.7816 -162.0902,54.789 -162.109,54.7984 -162.1183,54.8037 -162.1284,54.8122 -162.1424,54.8216 -162.146,54.8415 -162.1524,54.8575 -162.1535,54.8683 -162.1435,54.8708 -162.1077,54.8805 -162.0854,54.8922 -162.0623,54.9066 -162.0415,54.916 -162.0256,54.9183 -162.0015,54.9173 -161.97,54.9095 -161.9548,54.9009 -161.9548,54.9009 11,2.0,Denmark 10.3897,54.7572 10.3819,54.76 10.2284,54.8418 10.1733,54.8938 10.1694,54.9102 10.2679,54.8717 10.2893,54.8625 10.423,54.7997 10.4152,54.7774 10.3897,54.7572 10.3897,54.7572 46,2.0,Denmark 11.8304,54.8903 11.845,54.8832 11.9767,54.8397 11.9997,54.8319 12.0177,54.8282 12.0404,54.8267 12.0619,54.8293 12.0789,54.8272 12.09,54.8231 12.0989,54.818 12.1161,54.8044 12.1475,54.7735 12.1378,54.7645 12.0992,54.7423 12.0865,54.7354 12.0681,54.7293 12.0545,54.7235 12.035,54.7106 11.9613,54.6461 11.9493,54.6355 11.9416,54.6165 11.9383,54.5992 11.9399,54.5838 11.9428,54.5657 11.9475,54.5457 11.9543,54.5229 11.9589,54.5064 11.9467,54.4981 11.9246,54.5035 11.906,54.5105 11.852,54.5874 11.8511,54.6032 11.8579,54.6237 11.8717,54.6369 11.879,54.6544 11.8361,54.7102 11.782,54.775 11.7726,54.7803 11.762,54.7845 11.7337,54.7929 11.6912,54.8749 11.7123,54.89 11.7265,54.8955 11.7467,54.8974 11.8304,54.8903 11.8304,54.8903 55,2.0,Denmark 10.9714,54.7267 11.0064,54.7502 10.9952,54.8289 11.011,54.848 11.0234,54.8588 11.0389,54.8707 11.0527,54.8763 11.0999,54.8864 11.1176,54.8894 11.1455,54.8923 11.1739,54.8929 11.2204,54.8929 11.2562,54.8854 11.2692,54.8786 11.3177,54.8503 11.33,54.8298 11.3418,54.8195 11.3741,54.8039 11.3897,54.7983 11.4944,54.7655 11.5447,54.7577 11.6228,54.8137 11.6244,54.8402 11.6372,54.8397 11.6889,54.8111 11.7155,54.7907 11.8272,54.7037 11.8419,54.6806 11.8373,54.6224 11.8242,54.6053 11.8138,54.5971 11.7603,54.5764 11.7167,54.5812 11.7026,54.5871 11.6743,54.5914 11.6209,54.5984 11.564,54.5995 11.5032,54.578 11.4503,54.5575 11.4355,54.5559 11.3579,54.5826 11.3312,54.5948 11.2961,54.6114 11.2588,54.6357 11.243,54.643 11.227,54.6477 11.1715,54.6616 11.1256,54.6727 11.1066,54.676 11.0805,54.6783 11.0104,54.6933 11.0009,54.6986 10.9746,54.7209 10.9714,54.7267 10.9714,54.7267 24,-5.0,Canada -78.9222,54.8534 -78.9674,54.8394 -78.9949,54.8324 -79.0995,54.8325 -79.3793,54.7763 -79.5244,54.7412 -79.6277,54.7077 -79.6394,54.7113 -79.6352,54.7213 -79.5894,54.7545 -79.5787,54.7623 -79.5508,54.774 -79.5207,54.7823 -79.327,54.825 -79.2947,54.8284 -79.2837,54.8284 -79.2035,54.8328 -79.0285,54.8613 -78.9184,54.8822 -78.9065,54.8816 -78.8795,54.8711 -78.8918,54.861 -78.9222,54.8534 -78.9222,54.8534 16,-9.0,United States -132.3897,54.8267 -132.3846,54.8139 -132.3834,54.7057 -132.3938,54.6902 -132.4073,54.6848 -132.422,54.687 -132.4365,54.6936 -132.5475,54.7926 -132.5567,54.8037 -132.5627,54.8408 -132.5502,54.862 -132.4817,54.8763 -132.4016,54.8378 -132.3921,54.832 -132.3897,54.8267 -132.3897,54.8267 27,-4.0,Canada -57.8417,54.8477 -57.8882,54.8048 -57.8929,54.7695 -57.8831,54.7362 -57.8695,54.7344 -57.8584,54.7401 -57.8248,54.7591 -57.7652,54.767 -57.7449,54.7499 -57.7796,54.7276 -57.928,54.6906 -57.9459,54.6889 -58.021,54.6913 -58.0402,54.693 -58.0602,54.6973 -58.0764,54.705 -58.0731,54.7332 -58.0848,54.7444 -58.1237,54.7676 -58.126,54.786 -58.1257,54.8007 -58.1138,54.8126 -57.95,54.829 -57.8685,54.8547 -57.8407,54.857 -57.8417,54.8477 -57.8417,54.8477 33,12.0,Russia 167.1473,54.7988 167.1579,54.8012 167.1708,54.8021 167.2132,54.7967 167.2239,54.794 167.2433,54.7867 167.2793,54.7685 167.2807,54.758 167.3608,54.7245 167.4484,54.6928 167.5709,54.6172 167.6664,54.5484 167.8288,54.4454 167.8004,54.435 167.79,54.4378 167.7762,54.4437 167.6865,54.4977 167.6539,54.5207 167.6128,54.5486 167.5485,54.5779 167.5389,54.5815 167.5275,54.583 167.5155,54.5831 167.4927,54.5854 167.4618,54.5927 167.4518,54.5965 167.2613,54.695 167.1723,54.7423 167.1563,54.7546 167.1497,54.7632 167.146,54.7744 167.1473,54.7988 167.1473,54.7988 522,2.0,Poland 19.5943,54.3996 19.6179,54.3923 19.5972,54.3792 19.4917,54.3331 19.3959,54.3018 19.3754,54.2953 19.3436,54.2889 19.2455,54.2825 19.1987,54.27 19.2213,54.2146 19.3387,54.2052 19.4461,54.2506 19.5382,54.2833 19.5957,54.287 19.6807,54.3199 19.7636,54.3739 19.8242,54.3663 19.9706,54.3556 20.0567,54.3549 20.1246,54.3485 20.2673,54.3341 20.295,54.3302 20.3374,54.324 20.3987,54.3179 20.7041,54.2945 20.8631,54.2926 21.0909,54.2782 21.1463,54.2727 21.1963,54.2694 21.248,54.2663 21.3314,54.2637 21.376,54.2624 21.4068,54.2622 21.488,54.2635 21.5342,54.2649 21.5414,54.2648 21.5895,54.2661 21.6949,54.2673 21.8188,54.268 21.9451,54.2693 22.128,54.2715 22.2281,54.2747 22.259,54.2762 22.3921,54.2822 22.4179,54.2819 22.5919,54.2852 22.6262,54.2874 22.7285,54.296 22.7475,54.3001 22.774,54.3325 22.7969,54.3417 22.8247,54.3448 22.9563,54.322 23.0771,54.2409 23.1658,54.2237 23.2941,54.1837 23.3173,54.1721 23.4188,54.1109 23.4452,54.075 23.4551,54.054 23.4786,53.9758 23.469,53.8974 23.4653,53.8842 23.4638,53.8795 23.4651,53.8583 23.4713,53.8365 23.5007,53.7781 23.5419,53.6684 23.5518,53.6318 23.5539,53.6228 23.5699,53.5749 23.5787,53.5515 23.6017,53.4967 23.6349,53.4312 23.6619,53.3908 23.7471,53.2522 23.8199,53.134 23.8948,52.9502 23.889,52.8867 23.893,52.7973 23.9002,52.7132 23.9015,52.709 23.9029,52.6882 23.897,52.6561 23.8736,52.6318 23.8456,52.617 23.7089,52.5536 23.6782,52.5548 23.6504,52.5562 23.6175,52.5491 23.596,52.5445 23.5596,52.5352 23.4855,52.5126 23.4661,52.5064 23.38,52.4642 23.3602,52.4535 23.3403,52.4373 23.2118,52.3135 23.1288,52.2216 23.1564,52.1724 23.1783,52.1628 23.2611,52.151 23.3114,52.1463 23.5578,52.0516 23.6016,52.0191 23.6236,51.9457 23.59,51.8919 23.5755,51.8557 23.5215,51.6924 23.511,51.6266 23.5188,51.6055 23.4984,51.5939 23.5025,51.5329 23.5306,51.4801 23.5682,51.4682 23.5776,51.439 23.607,51.4253 23.6563,51.3428 23.6447,51.3097 23.6475,51.2291 23.6956,51.1556 23.7202,51.14 23.7745,51.1098 23.8686,51.009 23.895,50.9351 23.9284,50.8917 23.9517,50.8723 23.9975,50.8396 24.0247,50.8289 24.0536,50.8233 24.1066,50.8009 24.0944,50.7795 24.0404,50.7707 24.0159,50.7725 23.9854,50.7731 23.9446,50.7707 23.9218,50.7565 23.918,50.7332 23.9784,50.6813 24.0358,50.6371 24.0706,50.5752 24.0721,50.5673 24.0749,50.5084 23.9661,50.3561 23.9469,50.3478 23.8935,50.3454 23.8455,50.3473 23.8111,50.3487 23.7786,50.3477 23.7561,50.3443 23.7201,50.3363 23.6819,50.3256 23.6613,50.3119 23.6486,50.2756 23.5557,50.211 23.5333,50.1977 23.505,50.1847 23.4609,50.1631 23.3432,50.0918 23.3078,50.0696 23.2897,50.0576 23.2689,50.0431 23.1934,49.989 23.1119,49.9256 23.0765,49.8975 22.7465,49.6181 22.6838,49.5477 22.6529,49.5202 22.6451,49.5126 22.6234,49.4732 22.6613,49.3943 22.6996,49.3405 22.7256,49.2292 22.6935,49.1615 22.6707,49.1135 22.7447,49.0943 22.8193,49.0496 22.8432,49.0313 22.83,48.9936 22.8527,48.9469 22.8297,48.9471 22.7045,48.9912 22.5611,49.0354 22.5356,49.0317 22.5253,49.0232 22.5048,49.0316 22.3162,49.0821 22.2912,49.0823 22.1925,49.0982 21.9978,49.1638 21.9932,49.1907 21.9878,49.2174 21.9263,49.2836 21.8062,49.328 21.581,49.3798 21.502,49.373 21.4691,49.3657 21.4279,49.3552 21.4051,49.3572 21.3695,49.3723 21.2506,49.3997 21.0406,49.3655 21.0195,49.3537 21.0046,49.303 20.9517,49.2529 20.9251,49.245 20.8828,49.2397 20.7819,49.2743 20.7104,49.3324 20.5727,49.3391 20.3307,49.3364 20.2978,49.3265 20.177,49.2835 20.1141,49.2583 20.0738,49.1921 20.0631,49.1485 20.0441,49.1214 20.01,49.1327 19.9912,49.1432 19.9697,49.1614 19.9503,49.1699 19.9074,49.1746 19.882,49.1696 19.839,49.1406 19.814,49.1353 19.7546,49.1439 19.737,49.1579 19.7448,49.1765 19.7689,49.1964 19.7966,49.2209 19.7759,49.3083 19.7489,49.3509 19.6816,49.3409 19.6297,49.3501 19.5485,49.4023 19.5067,49.4787 19.4924,49.5171 19.4471,49.5432 19.419,49.544 19.2409,49.4697 19.2143,49.4499 19.171,49.381 19.1637,49.3572 19.1314,49.3435 19.0038,49.3352 18.9472,49.3453 18.9405,49.3995 18.9408,49.4249 18.8237,49.4607 18.8245,49.4711 18.8201,49.4973 18.8117,49.538 18.7833,49.6163 18.7594,49.6251 18.6069,49.6807 18.5519,49.758 18.5512,49.8551 18.5252,49.865 18.3231,49.8814 18.2431,49.9004 18.0673,49.9804 18.0264,49.9983 17.9827,49.9537 17.8942,49.92 17.8499,49.9217 17.8136,49.9322 17.6314,50.0502 17.5801,50.1048 17.6163,50.1143 17.6686,50.121 17.737,50.1513 17.7361,50.1753 17.7265,50.2398 17.6977,50.261 17.6705,50.2621 17.667,50.242 17.6346,50.2145 17.6004,50.2077 17.407,50.2124 17.3521,50.2215 17.2576,50.2623 17.2011,50.2872 17.1793,50.303 17.0921,50.3386 17.0321,50.3524 16.9159,50.377 16.8854,50.3818 16.8656,50.3803 16.8434,50.3532 16.9122,50.2823 16.9474,50.2518 16.9766,50.1589 16.9431,50.1648 16.886,50.1645 16.8217,50.1438 16.7862,50.1214 16.7777,50.1117 16.7617,50.0829 16.6905,50.0406 16.6151,50.0513 16.5894,50.062 16.5629,50.0821 16.5413,50.1127 16.5374,50.1505 16.5231,50.169 16.4338,50.2455 16.4167,50.2586 16.3474,50.3032 16.2784,50.3199 16.2416,50.3316 16.1948,50.3521 16.1832,50.3808 16.2903,50.4464 16.3343,50.4396 16.3818,50.4647 16.4226,50.5204 16.4055,50.5433 16.3451,50.5857 16.3074,50.6057 16.213,50.6119 16.1132,50.5978 16.0935,50.5993 16.0471,50.577 16.0001,50.5716 15.9228,50.6308 15.7636,50.6854 15.5828,50.7143 15.465,50.7279 15.3563,50.7207 15.3395,50.782 15.2884,50.8014 15.2597,50.8334 15.2492,50.8656 15.267,50.8901 15.252,50.9161 15.2162,50.9328 15.1538,50.9558 14.9935,50.9152 14.9964,50.8916 14.9811,50.8087 14.9439,50.8005 14.8056,50.8069 14.8035,50.8242 14.8742,50.9005 14.9082,50.9437 14.9427,50.9931 14.9559,51.0194 14.9716,51.0593 15.009,51.1797 15.0106,51.2275 14.9796,51.2573 14.9602,51.2743 14.9486,51.2976 14.9586,51.3084 14.9523,51.3812 14.9299,51.4102 14.898,51.4224 14.8144,51.4388 14.7165,51.4667 14.6921,51.4951 14.7365,51.5478 14.7334,51.607 14.6994,51.6311 14.6753,51.6424 14.6453,51.6641 14.5781,51.76 14.5875,51.788 14.6227,51.805 14.6668,51.8367 14.6944,51.8827 14.7378,52.0094 14.6846,52.185 14.6694,52.1939 14.6329,52.1995 14.5757,52.2119 14.557,52.2277 14.5114,52.3352 14.5211,52.3608 14.54,52.3721 14.5621,52.3791 14.6102,52.4297 14.6165,52.5118 14.5727,52.5457 14.5316,52.5661 14.4915,52.5779 14.4556,52.5911 14.4255,52.6142 14.3605,52.6696 14.3322,52.6869 14.1828,52.7571 14.1264,52.8011 14.1248,52.8978 14.1461,52.9116 14.1774,52.9229 14.2027,52.9271 14.2707,52.957 14.3244,52.9872 14.3569,53.0483 14.3683,53.0824 14.3896,53.2425 14.3897,53.2769 14.2862,53.4932 14.2522,53.6366 14.3424,53.6366 14.3869,53.6178 14.501,53.5981 14.5308,53.6158 14.5963,53.705 14.5901,53.7534 14.557,53.7847 14.5296,53.7948 14.4527,53.8019 14.3888,53.7971 14.3159,53.7421 14.2665,53.7601 14.2425,53.7739 14.1955,53.8062 14.1925,53.8371 14.2022,53.8657 14.2264,53.8594 14.3043,53.8497 14.3267,53.8478 14.3527,53.8493 14.4017,53.8595 14.4594,53.8844 14.4805,53.8961 14.5355,53.9135 14.721,53.9656 14.79,53.976 14.9547,54.0084 15.2028,54.0661 15.2772,54.0845 15.3284,54.0932 15.3702,54.0974 15.4039,54.0989 15.4676,54.1031 15.628,54.1307 15.7263,54.1509 15.768,54.1629 15.8127,54.1779 15.8501,54.1831 16.0208,54.1983 16.0545,54.1909 16.1171,54.1896 16.1476,54.1958 16.1906,54.2102 16.3022,54.2931 16.2778,54.3086 16.2911,54.3276 16.3807,54.3977 16.4329,54.436 16.4618,54.4547 16.4879,54.4704 16.5158,54.4808 16.5437,54.4874 16.6106,54.4997 16.6372,54.5031 16.6736,54.5049 16.7651,54.5118 16.8556,54.5257 16.8867,54.5338 16.911,54.5414 16.9906,54.5837 17.0077,54.5967 17.037,54.6096 17.222,54.6663 17.3329,54.6835 17.4047,54.6886 17.5008,54.6983 17.5631,54.7057 17.6566,54.7251 17.7443,54.7421 17.8666,54.7597 17.8886,54.7626 18.0126,54.77 18.305,54.7717 18.3414,54.7519 18.4182,54.7241 18.4953,54.6966 18.5467,54.68 18.5743,54.6714 18.6724,54.6361 18.7083,54.6214 18.7428,54.6024 18.8008,54.5572 18.7891,54.53 18.7542,54.5546 18.7403,54.5698 18.7237,54.5921 18.6993,54.6143 18.6746,54.6294 18.5406,54.6655 18.4724,54.6893 18.452,54.6949 18.4356,54.6728 18.375,54.6743 18.4372,54.6017 18.48,54.5673 18.5163,54.524 18.5355,54.4869 18.5385,54.4131 18.5433,54.3828 18.5641,54.3643 18.6771,54.3192 18.7264,54.3072 18.8122,54.2884 18.8616,54.282 18.8956,54.2827 18.9222,54.2881 18.9386,54.2817 18.991,54.2787 19.0143,54.2785 19.1069,54.2831 19.1802,54.2905 19.3421,54.3099 19.385,54.3168 19.407,54.3223 19.484,54.3434 19.5299,54.3654 19.5802,54.3909 19.5943,54.3996 19.5943,54.3996 16,-8.0,Canada -130.236,54.7361 -130.2243,54.7231 -130.2169,54.7117 -130.2138,54.6991 -130.2178,54.6869 -130.2338,54.652 -130.2417,54.6445 -130.301,54.6381 -130.3167,54.6399 -130.3491,54.6547 -130.3632,54.6638 -130.3868,54.6914 -130.2613,54.7442 -130.2471,54.7437 -130.236,54.7361 -130.236,54.7361 16,2.0,Germany 8.549,54.6203 8.4739,54.6215 8.4639,54.6229 8.3841,54.6461 8.3955,54.6687 8.4118,54.6782 8.4304,54.6842 8.4473,54.6878 8.5242,54.6913 8.5366,54.6898 8.5554,54.6863 8.5705,54.6806 8.5804,54.6558 8.5557,54.6234 8.549,54.6203 8.549,54.6203 95,2.0,Germany 13.2458,54.1916 13.2312,54.1937 13.1343,54.2421 13.0969,54.2734 13.1121,54.3078 13.1322,54.3116 13.1786,54.309 13.1982,54.3061 13.2137,54.308 13.2417,54.3165 13.2167,54.3477 13.1855,54.3645 13.1426,54.3705 13.2063,54.4012 13.21,54.422 13.145,54.4496 13.1249,54.4819 13.209,54.4885 13.2335,54.4877 13.2817,54.4866 13.3155,54.5024 13.3449,54.5166 13.3551,54.4943 13.3724,54.4782 13.3978,54.458 13.4248,54.4253 13.4614,54.4199 13.4805,54.4293 13.4938,54.4495 13.48,54.486 13.4368,54.4871 13.4034,54.5062 13.361,54.5146 13.3521,54.5462 13.3331,54.5403 13.3071,54.5188 13.2881,54.5093 13.2617,54.5006 13.2266,54.4939 13.2043,54.5771 13.2222,54.5926 13.241,54.6026 13.2562,54.6072 13.2698,54.6092 13.342,54.6155 13.3614,54.6168 13.4043,54.6185 13.419,54.6106 13.4029,54.5948 13.3711,54.5869 13.3619,54.5778 13.3688,54.5429 13.3847,54.5248 13.4109,54.5139 13.4336,54.5093 13.4591,54.5107 13.4935,54.513 13.57,54.5209 13.5949,54.5223 13.6154,54.5212 13.6514,54.5029 13.6562,54.4785 13.6537,54.4655 13.6458,54.4576 13.6212,54.4505 13.5644,54.4195 13.5544,54.4038 13.5543,54.3934 13.5607,54.3779 13.5962,54.3399 13.6082,54.3375 13.6235,54.3378 13.6483,54.338 13.6794,54.3244 13.6878,54.3172 13.7083,54.2911 13.7209,54.2674 13.7062,54.2118 13.6903,54.2085 13.6723,54.2185 13.6881,54.2333 13.6896,54.259 13.6639,54.2852 13.4838,54.2787 13.4469,54.2648 13.3355,54.2098 13.3354,54.1962 13.3846,54.2017 13.3985,54.197 13.4053,54.1847 13.4046,54.1723 13.3729,54.1584 13.2965,54.1852 13.2458,54.1916 13.2458,54.1916 18,-8.0,Canada -130.5255,54.5515 -130.5227,54.5379 -130.5241,54.5207 -130.5296,54.5054 -130.5372,54.4931 -130.5454,54.4868 -130.6317,54.4316 -130.7162,54.3957 -130.7347,54.3903 -130.7452,54.3958 -130.7447,54.4471 -130.7433,54.4641 -130.7396,54.476 -130.7061,54.553 -130.6633,54.5649 -130.5273,54.5604 -130.5255,54.5515 -130.5255,54.5515 12,10.0,Russia 137.4113,54.3238 137.3407,54.3702 137.3177,54.4462 137.358,54.4877 137.3663,54.4943 137.3814,54.5009 137.4003,54.4792 137.4135,54.4437 137.412,54.4142 137.4006,54.3494 137.4113,54.3238 137.4113,54.3238 18,2.0,Germany 11.255,54.395 11.2831,54.3604 11.2936,54.3447 11.1204,54.343 11.1052,54.3433 11.0027,54.375 10.9905,54.3836 10.9875,54.3939 10.9931,54.4131 11.0,54.4269 11.0101,54.4407 11.0252,54.4545 11.0484,54.4706 11.1652,54.4563 11.2133,54.4393 11.225,54.4309 11.255,54.395 11.255,54.395 20,10.0,Russia 137.4866,54.3173 137.499,54.3231 137.5098,54.3288 137.531,54.3408 137.5525,54.3543 137.5778,54.3747 137.5847,54.3846 137.5841,54.4072 137.6078,54.4352 137.6328,54.4435 137.6813,54.4441 137.6901,54.4278 137.6959,54.3961 137.6,54.3289 137.5487,54.303 137.4933,54.2936 137.4843,54.2988 137.4778,54.3085 137.4866,54.3173 137.4866,54.3173 18,-9.0,United States -162.479,54.421 -162.3215,54.3896 -162.2867,54.3655 -162.2709,54.3493 -162.2696,54.3206 -162.3478,54.3035 -162.3664,54.3051 -162.4626,54.3337 -162.4919,54.3431 -162.5124,54.351 -162.5249,54.3574 -162.5358,54.3652 -162.5614,54.3903 -162.5537,54.4323 -162.541,54.4363 -162.5084,54.4305 -162.479,54.421 -162.479,54.421 449,11.0,Russia 143.4261,49.2632 143.4492,49.251 143.3946,49.2473 143.3317,49.2475 143.2821,49.2504 143.2156,49.2432 143.1289,49.2305 143.08,49.2207 143.0558,49.2152 142.9835,49.1897 142.9273,49.1663 142.8665,49.1329 142.8242,49.1009 142.8061,49.0805 142.7772,49.0393 142.7605,48.9957 142.7563,48.9633 142.7651,48.9323 142.7757,48.9118 142.7822,48.8853 142.7825,48.8592 142.7676,48.8332 142.7199,48.7637 142.6553,48.6541 142.5737,48.4987 142.5569,48.4652 142.5417,48.4269 142.4657,48.2493 142.4137,48.15 142.4086,48.1324 142.3933,48.0906 142.363,48.0201 142.3298,47.9506 142.324,47.8421 142.325,47.8213 142.3309,47.7422 142.3524,47.6621 142.3658,47.6241 142.3995,47.5662 142.4153,47.5397 142.4266,47.522 142.5095,47.4307 142.584,47.3692 142.6327,47.3522 142.6624,47.3397 142.6961,47.3183 142.7161,47.3006 142.8134,47.1945 142.9022,46.8665 142.9083,46.8369 142.8965,46.7854 142.8821,46.7633 142.9709,46.653 143.1478,46.6273 143.1709,46.6331 143.1856,46.653 143.1652,46.6797 143.1735,46.7331 143.2358,46.783 143.2728,46.7766 143.288,46.7554 143.3192,46.6532 143.3091,46.6227 143.3117,46.5896 143.321,46.529 143.3452,46.4466 143.3513,46.4276 143.3754,46.3561 143.3987,46.3308 143.3844,46.2987 143.3146,46.1703 143.2928,46.1535 143.2758,46.1381 143.265,46.1091 143.2664,46.086 143.2721,46.0495 143.2293,45.967 143.2233,45.9672 143.2056,46.0274 143.2224,46.0762 143.2255,46.1292 143.2229,46.1574 143.2123,46.1856 143.1854,46.2434 143.1561,46.3029 143.1427,46.3254 143.137,46.3498 143.1423,46.4094 143.1662,46.4366 143.1818,46.48 143.1532,46.5066 142.9661,46.5369 142.9332,46.5409 142.9122,46.535 142.8799,46.5289 142.8566,46.5296 142.8071,46.5358 142.6767,46.5442 142.6025,46.5406 142.5781,46.545 142.5445,46.5958 142.5309,46.6314 142.5252,46.6663 142.517,46.6887 142.3978,46.6582 142.3729,46.6495 142.3243,46.6292 142.29,46.611 142.266,46.5884 142.2197,46.5293 142.0941,46.2879 142.0491,46.1437 142.0268,46.0601 141.9977,45.9706 141.8876,45.8395 141.8508,45.8625 141.8344,45.8785 141.7269,45.9932 141.737,46.0309 141.6996,46.217 141.693,46.2362 141.6844,46.2569 141.6517,46.3289 141.6305,46.3695 141.6186,46.433 141.6146,46.4866 141.6128,46.5375 141.7733,46.8411 141.7854,46.8581 141.8205,46.9229 141.8286,46.9413 141.8473,46.9874 141.8548,47.0252 141.857,47.0708 141.8556,47.0916 141.8508,47.1112 141.8386,47.149 141.827,47.1785 141.8134,47.198 141.7907,47.2147 141.7717,47.23 141.7497,47.4035 141.7477,47.4342 141.7594,47.5456 141.7993,47.6421 141.8792,47.785 141.8984,47.8093 141.9231,47.8308 141.9461,47.8491 141.9697,47.8724 141.9829,47.8991 141.9817,47.9273 141.973,47.9642 141.9682,47.9891 141.9636,48.029 141.9568,48.1113 141.951,48.1883 141.9438,48.2209 141.9276,48.2647 141.8982,48.3217 141.8748,48.3567 141.8094,48.4344 141.7295,48.5261 141.7066,48.5585 141.6824,48.6006 141.6684,48.6283 141.6539,48.6704 141.6473,48.7012 141.6629,48.7276 141.7109,48.7741 141.7431,48.7911 141.7579,48.8079 141.792,48.9016 141.8203,48.9854 141.86,49.1903 141.8562,49.2127 141.8561,49.249 141.8589,49.2784 141.8697,49.3152 141.8919,49.3547 141.9121,49.4019 141.9261,49.4683 141.931,49.4955 141.9413,49.5764 141.9502,49.7291 141.946,49.7642 141.9287,49.8014 141.9163,49.829 141.9278,49.8914 141.9418,49.9479 141.9607,50.0366 141.9366,50.2736 141.9327,50.2935 141.9195,50.3268 141.8965,50.3532 141.8417,50.4387 141.8308,50.4614 141.828,50.4836 141.836,50.5427 141.8783,50.7543 141.9127,50.833 141.9323,50.8512 141.9599,50.8702 141.9839,50.8938 142.0016,50.9153 142.0164,50.9452 142.0339,50.9885 142.0451,51.0199 142.0493,51.0455 142.0454,51.0707 142.035,51.0933 142.0154,51.1187 141.8656,51.3388 141.8627,51.3594 141.8748,51.3847 141.8538,51.4139 141.7851,51.4566 141.7031,51.511 141.5764,51.6175 141.5867,51.659 141.6018,51.6721 141.5978,51.7251 141.5556,51.7647 141.538,51.7751 141.4264,51.8265 141.4204,52.0266 141.4592,52.0702 141.4706,52.0931 141.4701,52.1186 141.4447,52.1986 141.4146,52.2529 141.4273,52.3047 141.4404,52.325 141.4781,52.3457 141.5235,52.3755 141.543,52.3945 141.5655,52.4208 141.6121,52.5199 141.6226,52.6517 141.6307,52.7901 141.6627,52.8741 141.6945,52.9513 141.6854,52.9987 141.6638,53.0309 141.6374,53.0597 141.6217,53.0757 141.6128,53.0835 141.6033,53.0924 141.5788,53.1944 141.5798,53.2331 141.539,53.3057 141.7493,53.3925 141.8596,53.429 141.9872,53.4562 142.0195,53.4181 142.0072,53.3909 142.0038,53.3518 142.0169,53.3217 142.0428,53.3074 142.1198,53.294 142.24,53.324 142.2664,53.3392 142.2825,53.3552 142.3223,53.4034 142.4475,53.4544 142.4406,53.4841 142.3744,53.5075 142.3252,53.5074 142.3051,53.4914 142.2758,53.4863 142.2602,53.556 142.2673,53.6007 142.3032,53.6108 142.4075,53.6156 142.4281,53.6039 142.4476,53.5778 142.4756,53.5668 142.4971,53.5742 142.5403,53.6092 142.564,53.6412 142.5592,53.687 142.5502,53.7327 142.5337,53.7756 142.4918,53.7534 142.4733,53.72 142.4539,53.6763 142.4387,53.654 142.4208,53.6433 142.3757,53.6299 142.3763,53.6543 142.4323,53.7423 142.4573,53.7832 142.4841,53.8645 142.4716,53.8845 142.4255,53.9213 142.3591,53.9731 142.2624,54.0487 142.2471,54.0619 142.225,54.0849 142.1557,54.1743 142.1635,54.2026 142.2417,54.2105 142.2959,54.1713 142.3358,54.1681 142.4007,54.1994 142.4103,54.2186 142.3878,54.2621 142.4458,54.3543 142.4731,54.361 142.4955,54.3567 142.5103,54.3408 142.5207,54.3176 142.5343,54.2948 142.577,54.2321 142.6748,54.1513 142.7705,54.0676 142.7703,54.0219 142.7603,53.9959 142.7486,53.977 142.718,53.9481 142.6939,53.9258 142.6418,53.833 142.6452,53.7451 142.6658,53.7124 142.7194,53.6558 142.7764,53.6028 142.8694,53.4925 142.8905,53.44 142.8979,53.4137 142.8764,53.339 142.8595,53.3226 142.8792,53.3149 142.9019,53.3208 142.9221,53.332 142.943,53.3366 142.9678,53.3069 142.9933,53.2589 143.0558,53.0798 143.0984,52.8528 143.1073,52.7678 143.1077,52.671 143.1056,52.6312 143.0973,52.5376 143.0932,52.4961 143.0887,52.4696 143.0782,52.4174 143.0612,52.3759 143.0268,52.3317 143.0084,52.311 142.9726,52.2848 142.9676,52.356 142.992,52.3854 143.063,52.5252 143.0273,52.5319 142.9259,52.3208 142.9381,52.2664 142.9539,52.2527 142.9241,52.0705 142.9065,52.0161 142.9004,51.9001 142.9103,51.8632 142.946,51.801 142.9709,51.7928 142.9913,51.7931 143.0042,51.8192 143.0756,51.7066 143.0915,51.6694 143.0904,51.6448 143.0688,51.6497 143.0385,51.6183 143.0117,51.5505 142.9973,51.4663 143.0092,51.4491 143.0883,51.453 143.1096,51.5007 143.1019,51.5242 143.1087,51.5585 143.144,51.579 143.2276,51.4388 143.2354,51.4178 143.2441,51.3359 143.2353,51.2974 143.2,51.3034 143.1598,51.2861 143.2489,51.2085 143.2803,51.241 143.302,51.2084 143.3133,51.1801 143.3456,51.048 143.3503,51.0186 143.3511,51.0032 143.3687,50.9365 143.4299,50.7752 143.441,50.742 143.4686,50.6368 143.4755,50.5979 143.5045,50.4668 143.5551,50.302 143.5783,50.2359 143.5931,50.2091 143.6153,50.1814 143.6364,50.1591 143.6584,50.1369 143.6745,50.1156 143.7254,50.0465 143.779,49.9737 143.7891,49.9557 143.8509,49.7875 144.0018,49.4142 144.0132,49.3506 144.064,49.2048 144.182,48.9961 144.1971,48.9739 144.2881,48.9159 144.3071,48.9059 144.355,48.8829 144.4258,48.8455 144.454,48.8273 144.4804,48.8062 144.4902,48.7144 144.4788,48.6882 144.4802,48.6574 144.4901,48.6315 144.5032,48.6121 144.5304,48.5898 144.4714,48.5909 144.4427,48.6669 144.4398,48.6878 144.4243,48.7341 144.4049,48.765 144.347,48.8367 144.3266,48.8572 144.2367,48.932 144.1486,48.9633 144.0713,49.0155 144.0557,49.0372 144.0433,49.061 143.9359,49.1441 143.8911,49.1681 143.8497,49.1877 143.8089,49.2021 143.7706,49.2123 143.7342,49.2197 143.7095,49.2212 143.659,49.2256 143.6252,49.2298 143.4961,49.246 143.4261,49.2632 143.4261,49.2632 16,11.0,Russia 143.4261,49.2632 143.2506,49.3071 143.2184,49.329 143.1903,49.3408 143.1487,49.3439 143.0792,49.3409 143.0432,49.3231 143.1057,49.2586 143.1332,49.2572 143.1563,49.2588 143.1937,49.2622 143.224,49.264 143.2869,49.2648 143.3901,49.2636 143.4261,49.2632 143.4261,49.2632 6,2.0,Germany 10.9609,54.3168 10.9765,54.3182 10.9979,54.3157 10.9761,54.314 10.9609,54.3168 10.9609,54.3168 14,-9.0,United States -165.293,54.0457 -165.3291,54.0511 -165.3448,54.0623 -165.4033,54.172 -165.3898,54.1985 -165.3475,54.2276 -165.243,54.2289 -165.209,54.2229 -165.2014,54.1386 -165.2091,54.1101 -165.2747,54.0515 -165.2845,54.0471 -165.293,54.0457 -165.293,54.0457 21,-9.0,United States -165.6213,53.9659 -165.6357,53.9909 -165.6584,53.9977 -165.6909,53.9992 -165.713,53.9864 -165.7663,53.9745 -165.7905,53.9907 -165.8443,54.0511 -165.8132,54.1049 -165.7928,54.1154 -165.7001,54.1519 -165.6651,54.1568 -165.3826,54.0592 -165.396,54.0344 -165.4074,54.0275 -165.4206,54.0215 -165.4913,54.0009 -165.5064,54.0003 -165.5726,54.0072 -165.6213,53.9659 -165.6213,53.9659 130,-8.0,Canada -131.6933,53.2955 -131.7488,53.2095 -131.7749,53.1879 -131.8313,53.1895 -131.8685,53.1911 -131.9565,53.1762 -131.9895,53.1695 -132.0557,53.1448 -132.0319,53.1294 -132.0083,53.1311 -131.984,53.1397 -131.9167,53.1326 -131.9442,53.1081 -131.9764,53.0979 -132.1847,53.0806 -132.2373,53.0827 -132.2919,53.0993 -132.3213,53.1171 -132.3499,53.1509 -132.3656,53.1743 -132.3898,53.1881 -132.4296,53.1937 -132.4584,53.1943 -132.4598,53.2194 -132.4034,53.2383 -132.3301,53.251 -132.3388,53.2724 -132.4537,53.2649 -132.5035,53.2589 -132.5175,53.2751 -132.489,53.3108 -132.3028,53.2769 -132.195,53.2393 -132.1894,53.2752 -132.3042,53.3498 -132.3248,53.354 -132.5185,53.3912 -132.6465,53.4009 -132.7541,53.4933 -132.7729,53.5241 -132.7367,53.5387 -132.7079,53.5316 -132.6775,53.5238 -132.664,53.5401 -132.7016,53.5745 -132.7242,53.5891 -132.7885,53.6136 -132.7344,53.62 -132.7354,53.6401 -132.7649,53.68 -132.8096,53.6893 -132.8826,53.718 -132.9174,53.8146 -132.917,53.8493 -132.8955,53.8712 -132.8721,53.8887 -132.8191,53.9729 -132.8368,54.0129 -132.8586,54.0371 -132.847,54.108 -132.8134,54.1126 -132.7105,54.0953 -132.6812,54.0727 -132.596,54.058 -132.5627,54.0573 -132.5357,54.0633 -132.5142,54.0705 -132.4816,54.0758 -132.4294,54.0778 -132.3512,54.0507 -132.3368,54.0247 -132.3389,53.9821 -132.3504,53.9609 -132.3669,53.9489 -132.4086,53.9381 -132.4436,53.9204 -132.4599,53.8914 -132.4387,53.8764 -132.3518,53.9137 -132.3301,53.9335 -132.3261,53.9638 -132.1903,54.0347 -132.0737,54.0471 -132.0322,54.0222 -132.008,54.0027 -131.9266,53.9227 -131.8952,53.8088 -131.9109,53.7855 -132.0131,53.7146 -132.2559,53.645 -132.2867,53.6375 -132.3109,53.6337 -132.3442,53.634 -132.3704,53.637 -132.3971,53.6356 -132.4399,53.6198 -132.2458,53.5503 -132.2003,53.5435 -132.1006,53.6026 -132.0764,53.6065 -132.0277,53.5999 -131.9385,53.6537 -131.9341,53.7496 -131.8655,53.8097 -131.8871,53.8551 -131.9066,53.9163 -131.8528,53.9596 -131.7953,53.9587 -131.76,53.9612 -131.648,53.9919 -131.5979,54.0088 -131.5351,54.0319 -131.5079,54.0428 -131.4894,54.0532 -131.4439,54.0769 -131.4471,54.0162 -131.4533,53.9811 -131.4607,53.9568 -131.4862,53.9039 -131.502,53.8807 -131.5202,53.8605 -131.5732,53.807 -131.6114,53.7781 -131.6352,53.7534 -131.6527,53.7273 -131.7173,53.5496 -131.7232,53.4521 -131.7024,53.3371 -131.6933,53.2955 -131.6933,53.2955 44,2.0,Germany 14.2022,53.8657 14.1925,53.8371 14.1955,53.8062 14.1699,53.812 14.0593,53.8106 14.0162,53.8069 13.9772,53.7889 13.9262,53.7807 13.8623,53.7773 13.8066,53.7966 13.849,53.8152 13.9063,53.8345 13.9168,53.8518 13.9345,53.8781 13.9588,53.8996 13.9894,53.8866 14.0164,53.8796 14.0326,53.9217 14.0246,53.9422 13.9909,53.9511 13.9799,53.97 13.9569,53.9934 13.9309,53.9973 13.9009,53.9957 13.8961,53.9685 13.8773,53.9489 13.8361,53.9363 13.7997,53.9734 13.7857,54.0083 13.788,54.0412 13.7353,54.0842 13.7456,54.1025 13.79,54.1034 13.8043,54.0794 13.8429,54.0435 13.8694,54.027 13.9067,54.0165 13.9423,54.0102 13.978,54.0023 14.0815,53.9357 14.1605,53.8833 14.1906,53.8697 14.2022,53.8657 14.2022,53.8657 21,-9.0,United States -164.7011,54.0632 -164.6773,54.0656 -164.6617,54.0629 -164.6539,54.0552 -164.6541,54.0446 -164.6747,54.0201 -164.6868,54.0132 -164.7439,54.0076 -164.8012,54.0036 -164.8118,54.004 -164.9382,54.0217 -164.946,54.0297 -164.9292,54.0508 -164.8577,54.0642 -164.8127,54.0616 -164.7978,54.0562 -164.7757,54.0477 -164.7636,54.0411 -164.703,54.0587 -164.7011,54.0632 -164.7011,54.0632 55,-8.0,Canada -130.1187,54.0043 -130.0881,53.9823 -130.0423,53.9418 -130.0165,53.9157 -130.0125,53.9016 -130.0155,53.8873 -130.0261,53.8736 -130.1259,53.7743 -130.1364,53.7709 -130.1673,53.769 -130.2361,53.8025 -130.2421,53.8194 -130.1935,53.8981 -130.1842,53.9027 -130.1649,53.9023 -130.1293,53.8986 -130.1137,53.9018 -130.1271,53.922 -130.1381,53.9304 -130.2165,53.9194 -130.2272,53.9157 -130.2359,53.9049 -130.2589,53.8795 -130.2628,53.8635 -130.2714,53.8492 -130.2844,53.848 -130.3077,53.8519 -130.3365,53.846 -130.3484,53.8629 -130.3606,53.8744 -130.3778,53.888 -130.39,53.8952 -130.4048,53.8988 -130.4453,53.901 -130.4574,53.8942 -130.4792,53.8502 -130.4683,53.8389 -130.4465,53.8295 -130.43,53.8239 -130.4102,53.8121 -130.4015,53.7972 -130.4072,53.7846 -130.4142,53.777 -130.4306,53.7708 -130.4796,53.7815 -130.4939,53.7949 -130.506,53.8571 -130.5021,53.8743 -130.4473,53.9257 -130.3777,53.9631 -130.306,53.997 -130.1892,54.0381 -130.1533,54.0239 -130.1187,54.0043 -130.1187,54.0043 79,-9.0,United States -166.0108,53.6138 -166.0318,53.6142 -166.1369,53.6075 -166.2691,53.5626 -166.3588,53.4685 -166.377,53.4297 -166.4839,53.383 -166.5524,53.3756 -166.6866,53.3693 -166.7062,53.3784 -166.8645,53.355 -167.1105,53.2777 -167.2227,53.2169 -167.2795,53.2089 -167.3906,53.1934 -167.4918,53.2087 -167.569,53.2441 -167.4444,53.3113 -167.4176,53.3227 -167.3136,53.3258 -167.2818,53.3246 -167.2307,53.3373 -167.2186,53.354 -167.2051,53.3711 -167.0987,53.3656 -167.0282,53.3754 -166.8906,53.4023 -166.8098,53.4661 -166.8685,53.4888 -166.8869,53.5375 -166.8711,53.5581 -166.8471,53.567 -166.819,53.5679 -166.7922,53.5557 -166.7718,53.5314 -166.7885,53.6157 -166.7503,53.6401 -166.6305,53.6459 -166.5292,53.5862 -166.4916,53.6233 -166.4938,53.667 -166.683,53.7083 -166.7055,53.7068 -166.7283,53.6968 -166.7588,53.6899 -166.8757,53.761 -166.8835,53.7879 -166.8142,53.8545 -166.7429,53.8935 -166.4775,53.9452 -166.3912,53.9465 -166.3544,53.9366 -166.3335,53.9247 -166.316,53.9013 -166.3402,53.886 -166.3612,53.8526 -166.3602,53.8119 -166.328,53.7661 -166.193,53.8278 -166.1615,53.8604 -166.1369,53.9062 -166.0984,53.938 -165.9851,53.9094 -165.9393,53.858 -165.9724,53.8136 -165.998,53.8006 -166.1631,53.734 -166.1943,53.7267 -166.2579,53.7179 -166.2963,53.6478 -166.2756,53.623 -166.2573,53.631 -166.2245,53.6599 -166.1644,53.6884 -166.0622,53.7154 -165.9969,53.6482 -166.0016,53.6188 -166.0108,53.6138 -166.0108,53.6138 65,-8.0,Canada -130.0138,53.721 -130.0695,53.7722 -130.0636,53.7937 -130.0523,53.8157 -130.0387,53.8261 -129.9855,53.8496 -129.9743,53.8524 -129.8935,53.8226 -129.7495,53.7432 -129.6146,53.6634 -129.3846,53.488 -129.3039,53.4257 -129.2133,53.3491 -129.2232,53.3395 -129.2421,53.3138 -129.2633,53.2272 -129.2631,53.1781 -129.2961,53.1546 -129.3535,53.1456 -129.5144,53.2782 -129.5919,53.3203 -129.6103,53.3393 -129.6457,53.3939 -129.6645,53.4427 -129.6574,53.4558 -129.6571,53.4723 -129.657,53.4833 -129.6705,53.5172 -129.7042,53.5402 -129.7138,53.543 -129.73,53.5369 -129.7501,53.5296 -129.786,53.5121 -129.7982,53.5107 -129.8132,53.5124 -129.8266,53.519 -129.8379,53.5319 -129.8411,53.5457 -129.8169,53.5603 -129.7666,53.5796 -129.7438,53.5803 -129.7185,53.5751 -129.7358,53.5842 -129.7495,53.5874 -129.7731,53.596 -129.8048,53.5906 -129.8777,53.6145 -129.9462,53.6586 -129.904,53.6216 -129.8811,53.5056 -129.8943,53.5049 -129.935,53.5093 -130.0095,53.5257 -130.115,53.5555 -130.1281,53.5622 -130.1756,53.6075 -130.1883,53.62 -130.1762,53.6369 -130.0833,53.734 -130.0683,53.7355 -130.0564,53.7349 -130.0462,53.7336 -130.0315,53.7274 -130.0138,53.721 -130.0138,53.721 15,-9.0,United States -165.9454,53.6421 -165.9714,53.6549 -166.0129,53.6816 -166.0198,53.6907 -166.0228,53.7042 -166.0219,53.7166 -166.0168,53.7316 -165.9201,53.7722 -165.8965,53.7784 -165.8351,53.7862 -165.815,53.7765 -165.8432,53.7121 -165.9362,53.6426 -165.9454,53.6421 -165.9454,53.6421 25,-8.0,Canada -128.6112,53.6379 -128.6601,53.5986 -128.771,53.5199 -128.7804,53.5143 -128.864,53.4525 -128.8764,53.4399 -128.8822,53.4237 -128.8759,53.408 -128.8714,53.3985 -128.8732,53.3869 -128.9464,53.3305 -128.9555,53.5315 -128.9534,53.5485 -128.9495,53.5631 -128.9377,53.5779 -128.9284,53.583 -128.8397,53.6184 -128.826,53.6238 -128.7953,53.6305 -128.7706,53.6342 -128.6631,53.6466 -128.6157,53.6501 -128.6076,53.6435 -128.6112,53.6379 -128.6112,53.6379 36,-8.0,Canada -130.1768,53.5546 -130.1613,53.5497 -130.0614,53.5179 -129.9887,53.4916 -129.9273,53.4665 -129.7643,53.3931 -129.7314,53.3764 -129.7196,53.3693 -129.7083,53.3619 -129.6698,53.3329 -129.5182,53.1531 -129.5203,53.139 -129.532,53.1162 -129.5427,53.1027 -129.5516,53.0969 -129.6533,53.091 -129.7013,53.0945 -129.7234,53.098 -129.8762,53.2275 -129.899,53.2658 -129.9526,53.296 -129.9907,53.3165 -130.0298,53.3219 -130.0485,53.3226 -130.0789,53.3194 -130.0931,53.322 -130.1034,53.3297 -130.1882,53.4175 -130.3131,53.4898 -130.3155,53.5082 -130.3068,53.5592 -130.2938,53.5694 -130.2454,53.5751 -130.2356,53.5726 -130.1768,53.5546 -130.1768,53.5546 54,-9.0,United States -167.5203,53.4332 -167.5735,53.3409 -167.575,53.3187 -167.594,53.3093 -167.8441,53.2104 -167.8921,53.1999 -167.9198,53.1979 -167.9451,53.1934 -167.97,53.1889 -167.9993,53.1801 -168.0119,53.1742 -168.0535,53.1467 -168.0691,53.1221 -168.1008,53.0648 -168.1951,52.9871 -168.2163,52.9765 -168.3606,52.9301 -168.5987,52.8416 -168.7704,52.7712 -168.7853,52.7674 -168.8151,52.7665 -168.7818,52.7992 -168.6972,52.8481 -168.6255,52.8706 -168.6081,52.8768 -168.5997,52.8857 -168.5019,52.9956 -168.4942,53.0091 -168.4918,53.022 -168.5001,53.0307 -168.5206,53.0391 -168.5254,53.0522 -168.5182,53.0881 -168.483,53.1198 -168.4619,53.1349 -168.3469,53.2101 -168.3332,53.2106 -168.3147,53.2046 -168.2836,53.1886 -168.2673,53.184 -168.2559,53.1834 -168.148,53.1862 -168.0936,53.1927 -168.0831,53.2005 -168.071,53.2328 -168.1299,53.2835 -168.1345,53.3458 -168.0785,53.4108 -167.964,53.4663 -167.8095,53.4946 -167.7296,53.5012 -167.5797,53.457 -167.5203,53.4332 -167.5203,53.4332 4234,8.0,China 121.1908,28.6817 121.253,28.6582 121.3087,28.6502 121.3277,28.6379 121.3408,28.6103 121.3499,28.5825 121.3657,28.5172 121.3669,28.4684 121.4358,28.3611 121.4848,28.3157 121.423,28.2438 121.417,28.2714 121.3687,28.2996 121.3414,28.3066 121.2984,28.3065 121.2518,28.2721 121.2304,28.2058 121.2177,28.1568 121.1853,28.1074 121.127,28.1456 121.104,28.1735 121.0938,28.2183 121.0916,28.2439 121.0532,28.3259 121.0293,28.348 121.0088,28.3512 120.9461,28.2592 120.9586,28.2098 120.9478,28.1745 120.9258,28.1426 120.7981,27.9613 120.7794,27.9511 120.6764,27.9631 120.5229,28.0086 120.4354,28.048 120.4577,27.9875 120.5635,27.957 120.6841,27.9173 120.6843,27.8411 120.6397,27.8153 120.5391,27.6912 120.519,27.6143 120.5,27.586 120.4658,27.5662 120.4258,27.5625 120.4252,27.527 120.4311,27.5065 120.4536,27.4739 120.4846,27.4651 120.5105,27.4201 120.477,27.3411 120.4281,27.3588 120.3945,27.2937 120.389,27.253 120.3705,27.1989 120.3527,27.1775 120.3164,27.1488 120.3076,27.1727 120.2964,27.1914 120.265,27.1836 120.2618,27.1785 120.2675,27.1443 120.1836,27.2109 120.163,27.2569 120.1554,27.2805 120.1147,27.2881 120.0563,27.267 120.0351,27.2523 120.0215,27.1926 120.048,27.19 120.0685,27.215 120.1,27.2214 120.1744,27.1992 120.2662,27.1173 120.2305,27.0646 120.176,27.069 120.123,27.0802 120.0987,27.0987 120.082,27.0308 120.0809,27.0023 120.0813,26.9517 120.0498,26.886 119.9828,26.8957 119.8791,26.8682 119.8653,26.8102 119.8795,26.789 119.9044,26.7892 119.9501,26.7639 119.9738,26.6149 119.943,26.5922 119.8397,26.5697 119.7834,26.5274 119.733,26.4909 119.7068,26.4883 119.6821,26.4977 119.6793,26.5303 119.7004,26.5633 119.7492,26.5919 119.7943,26.5963 119.8222,26.6226 119.9194,26.7583 119.811,26.7649 119.7693,26.76 119.7384,26.6673 119.7388,26.6398 119.7132,26.6193 119.6379,26.6623 119.6343,26.7661 119.5344,26.7827 119.5228,26.7422 119.5341,26.7103 119.555,26.697 119.5751,26.6816 119.5502,26.6646 119.5319,26.676 119.4776,26.7212 119.4734,26.7447 119.4651,26.764 119.4233,26.7555 119.3969,26.7263 119.3806,26.6181 119.3993,26.5877 119.4463,26.5441 119.4677,26.5602 119.5125,26.5804 119.5838,26.5782 119.6267,26.5431 119.6669,26.4126 119.6354,26.3796 119.6127,26.3781 119.581,26.4057 119.5,26.4633 119.4242,26.4444 119.4126,26.4139 119.5048,26.3091 119.5364,26.2887 119.5841,26.3026 119.603,26.3363 119.6349,26.3687 119.6653,26.3893 119.7954,26.3384 119.7802,26.3193 119.7306,26.2812 119.6967,26.2934 119.6637,26.2931 119.6398,26.2741 119.6394,26.2513 119.6148,26.2602 119.5159,26.2523 119.4825,26.2272 119.44,26.1445 119.355,26.0267 119.2728,25.9679 119.2528,25.9816 119.189,26.015 119.0462,26.0793 118.9451,26.1114 119.1044,25.934 119.2018,25.909 119.295,25.9314 119.3121,25.9431 119.339,25.9657 119.3483,25.9934 119.3642,26.011 119.4193,26.0139 119.5298,25.9843 119.5531,25.9618 119.5439,25.941 119.5195,25.9006 119.4583,25.8467 119.4386,25.8348 119.4476,25.7802 119.4687,25.728 119.4281,25.6512 119.3609,25.6581 119.2998,25.6537 119.3009,25.6238 119.3052,25.5882 119.3281,25.5442 119.3534,25.529 119.4004,25.5352 119.4922,25.3881 119.4931,25.3251 119.467,25.3118 119.4619,25.3099 119.4494,25.312 119.4397,25.3323 119.4305,25.3698 119.4283,25.39 119.3526,25.4463 119.2712,25.4824 119.2269,25.5571 119.199,25.5745 119.1629,25.5778 119.1501,25.5363 119.1041,25.4725 119.0702,25.4443 119.0175,25.4266 118.9537,25.3925 118.9548,25.3687 119.0183,25.3157 119.0907,25.2964 119.1294,25.2962 119.2008,25.2249 119.1212,25.1442 118.9946,25.0905 118.9407,25.0775 118.8838,25.099 118.8806,25.1362 118.9037,25.1468 118.9174,25.1779 118.9099,25.2449 118.8417,25.2534 118.7939,25.2419 118.7237,25.2145 118.7313,25.1912 118.7613,25.1906 118.8165,25.1491 118.7882,25.0783 118.7409,25.0744 118.7094,25.0733 118.6963,25.0551 118.7177,25.0158 118.8363,24.9442 118.8611,24.9198 118.8351,24.8993 118.5677,24.8155 118.5443,24.8242 118.5559,24.8457 118.5759,24.8596 118.5567,24.9034 118.5169,24.9193 118.4233,24.8551 118.4773,24.7437 118.5018,24.7528 118.5584,24.7745 118.6136,24.7293 118.6008,24.6972 118.5085,24.5476 118.4738,24.5165 118.4463,24.5014 118.4044,24.4851 118.4041,24.5178 118.4105,24.5486 118.3713,24.5707 118.3256,24.5881 118.291,24.6008 118.2679,24.5932 118.1783,24.5564 118.0913,24.5091 118.0464,24.5831 118.0444,24.6221 118.0202,24.6545 117.8951,24.5883 117.8342,24.5367 117.8298,24.514 117.8778,24.5017 117.9032,24.49 117.8717,24.4129 117.8126,24.423 117.774,24.439 117.7449,24.4524 117.7011,24.4578 117.6755,24.4519 117.6469,24.4327 117.6867,24.3909 117.7487,24.3564 117.7865,24.3596 117.8889,24.3762 117.9468,24.3157 117.9713,24.2653 117.9758,24.2315 117.8752,24.1779 117.8122,24.1265 117.7174,24.0103 117.6162,23.8905 117.588,23.8735 117.581,23.915 117.6233,23.9615 117.6476,23.9769 117.6152,24.0331 117.5626,24.015 117.5046,23.9067 117.4677,23.8368 117.3304,23.8137 117.2193,23.7644 117.1584,23.7319 117.1207,23.7032 117.1093,23.638 117.0498,23.5981 117.0284,23.5904 116.9786,23.5651 116.911,23.6082 116.8882,23.6305 116.7722,23.6328 116.7292,23.5713 116.7342,23.5254 116.7139,23.4382 116.6795,23.3922 116.6617,23.3738 116.6153,23.3289 116.4875,23.3357 116.4597,23.3442 116.4138,23.369 116.3871,23.3941 116.3773,23.3606 116.3843,23.3379 116.4062,23.3106 116.4465,23.2853 116.478,23.2944 116.5964,23.2922 116.6421,23.2108 116.6353,23.1836 116.6038,23.198 116.3694,23.185 116.3915,23.0064 116.3925,22.981 116.3375,22.9134 116.235,22.901 116.2068,22.9037 116.1813,22.9128 116.083,22.9054 116.0341,22.8608 115.9889,22.8219 115.9343,22.8072 115.9065,22.827 115.7187,22.7639 115.7003,22.754 115.6547,22.7139 115.6406,22.7716 115.5262,22.8521 115.497,22.8588 115.4221,22.8294 115.3927,22.8074 115.4197,22.6568 115.3939,22.6338 115.2335,22.6567 115.0807,22.761 115.0979,22.8019 115.0189,22.7828 114.9058,22.7531 114.801,22.7185 114.7469,22.6775 114.7948,22.6246 114.7591,22.5211 114.7361,22.5093 114.7303,22.5081 114.7374,22.5447 114.707,22.5621 114.6297,22.5601 114.5972,22.5615 114.5764,22.615 114.5769,22.6782 114.5822,22.6997 114.6026,22.7203 114.6417,22.7315 114.6705,22.7587 114.6361,22.7884 114.548,22.7592 114.4179,22.7089 114.3794,22.6743 114.3594,22.6282 114.3843,22.5597 114.4565,22.5136 114.4723,22.479 114.3771,22.4495 114.3335,22.4998 114.3259,22.5258 114.275,22.5683 114.2504,22.5849 114.2248,22.584 114.1605,22.5684 114.1251,22.555 114.0987,22.5409 114.0814,22.5248 114.0785,22.4493 114.0984,22.406 114.1716,22.4496 114.2473,22.4051 114.2414,22.3464 114.1888,22.3519 114.1516,22.3568 114.1211,22.3348 114.1333,22.2992 114.1657,22.2607 114.1552,22.2359 114.0574,22.2931 113.8852,22.3272 113.7917,22.3296 113.7653,22.3423 113.7565,22.3804 113.8087,22.4213 113.893,22.4835 113.8898,22.4873 113.8605,22.4959 113.8084,22.4967 113.7844,22.4878 113.7204,22.4495 113.6969,22.5359 113.6581,22.6321 113.6137,22.7266 113.4655,22.8091 113.4502,22.8549 113.4619,22.9657 113.4057,22.9576 113.3825,22.9908 113.3847,23.0247 113.4063,23.0494 113.4715,23.0774 113.5652,23.1053 113.6613,23.0981 113.571,23.1294 113.5424,23.1267 113.3386,23.025 113.3531,22.9985 113.3551,22.9785 113.3397,22.8917 113.2808,22.9031 113.2376,22.885 113.2227,22.8545 113.3128,22.7664 113.3513,22.7453 113.2977,22.7126 113.3307,22.6835 113.3596,22.6533 113.4015,22.5919 113.4247,22.5242 113.4181,22.4532 113.3933,22.3973 113.3983,22.3662 113.4318,22.3451 113.4499,22.3334 113.4395,22.2249 113.4146,22.1878 113.3967,22.1836 113.392,22.1701 113.3748,22.1543 113.3172,22.1432 113.2939,22.1539 113.149,22.3301 113.1278,22.3577 113.108,22.3992 113.0738,22.4719 113.0289,22.5419 113.0152,22.4814 113.0205,22.4538 113.0472,22.4352 113.0951,22.3922 113.1556,22.3067 113.2203,22.2054 113.2474,22.1551 113.2167,22.1417 113.1956,22.1547 113.1633,22.1524 113.1167,22.0995 113.1098,22.0727 113.1133,22.038 113.0834,22.0163 112.9767,22.0653 112.9866,22.1276 112.9677,22.1874 112.9457,22.18 112.9074,22.1426 112.8737,22.1049 112.8578,22.0844 112.8482,22.0645 112.8552,21.9845 112.8634,21.9467 112.8657,21.9146 112.8397,21.8719 112.8012,21.8449 112.7532,21.8352 112.7272,21.8726 112.7075,21.9264 112.6854,21.9401 112.6148,21.9139 112.5548,21.8607 112.5328,21.8255 112.4929,21.7669 112.4728,21.7555 112.4545,21.7457 112.4287,21.7396 112.3399,21.7781 112.2479,21.7229 112.2248,21.7092 112.1978,21.6937 112.1444,21.677 112.1097,21.6819 111.9334,21.7646 111.8146,21.8286 111.7764,21.8869 111.7549,21.8918 111.7547,21.8267 111.7617,21.8018 111.7718,21.7843 111.7923,21.7686 111.8372,21.747 111.8295,21.7273 111.75,21.658 111.7215,21.649 111.6967,21.6588 111.6869,21.6959 111.6587,21.7128 111.5394,21.7538 111.5645,21.7278 111.6139,21.7029 111.6334,21.6834 111.6461,21.5885 111.6123,21.5896 111.5624,21.5873 111.5382,21.5597 111.5074,21.503 111.337,21.4886 111.2427,21.5053 111.1605,21.4743 111.0107,21.4414 110.9594,21.4432 110.9387,21.48 110.8926,21.5011 110.8566,21.4901 110.8423,21.4219 110.8642,21.4203 110.8825,21.4434 110.9235,21.4557 110.8643,21.4016 110.7414,21.3598 110.7074,21.3602 110.6867,21.3653 110.6625,21.3756 110.6008,21.3485 110.5835,21.3366 110.5575,21.309 110.5313,21.2651 110.5159,21.2308 110.4972,21.3347 110.553,21.3669 110.5774,21.3736 110.609,21.3795 110.6264,21.4021 110.5253,21.3649 110.4924,21.3458 110.4767,21.3035 110.481,21.2705 110.4872,21.2482 110.5004,21.2153 110.3979,21.1878 110.3487,21.197 110.3188,21.1849 110.298,21.1937 110.2854,21.2394 110.2855,21.2909 110.2859,21.3178 110.2895,21.3484 110.2594,21.3493 110.2375,21.2941 110.2407,21.2541 110.2738,21.2041 110.2557,21.1395 110.1954,21.0883 110.1739,21.0802 110.0658,21.0244 110.0193,20.962 110.0147,20.9088 110.0251,20.8205 110.0622,20.8116 110.1064,20.8089 110.1526,20.819 110.1833,20.8306 110.241,20.8175 110.259,20.7865 110.2668,20.76 110.2663,20.711 110.2444,20.6873 110.2191,20.7123 110.2134,20.7414 110.2079,20.7743 110.175,20.7203 110.1898,20.6168 110.2594,20.5906 110.2533,20.5815 110.2761,20.5575 110.3091,20.5435 110.3392,20.5479 110.3727,20.5049 110.3929,20.4632 110.3802,20.4069 110.3067,20.3172 110.2713,20.2806 110.175,20.2348 110.145,20.2235 110.0359,20.2182 110.0153,20.2173 109.9814,20.2179 109.9266,20.2593 109.9083,20.2751 109.8464,20.2695 109.8265,20.2537 109.791,20.2109 109.7493,20.3372 109.8176,20.3597 109.8445,20.3349 109.8755,20.3838 109.8732,20.409 109.8505,20.4254 109.8169,20.4254 109.7174,20.4816 109.6174,20.6181 109.6087,20.6368 109.5668,20.794 109.5325,20.8426 109.5291,20.9007 109.5415,20.9577 109.5578,20.9949 109.54,21.1052 109.6351,21.3108 109.6932,21.3276 109.7222,21.3355 109.7704,21.3644 109.8067,21.4232 109.7897,21.4504 109.7282,21.4559 109.6884,21.4368 109.6618,21.4896 109.6527,21.5155 109.6289,21.5557 109.6094,21.5555 109.6078,21.5487 109.6149,21.5082 109.6223,21.4872 109.6358,21.4628 109.598,21.4459 109.5262,21.4818 109.4761,21.5509 109.4269,21.6492 109.4221,21.6784 109.439,21.6991 109.3695,21.6521 109.4406,21.5534 109.4204,21.4965 109.4004,21.471 109.38,21.4584 109.2929,21.4269 109.2652,21.4249 109.2284,21.4251 109.2051,21.4247 109.1097,21.4061 109.0313,21.3877 109.0092,21.3729 108.9346,21.4084 108.9595,21.4579 108.9804,21.4635 109.0078,21.4829 109.0163,21.5093 109.0037,21.559 108.9691,21.5727 108.9076,21.5916 108.8403,21.5796 108.7776,21.5919 108.7232,21.6575 108.7327,21.6978 108.7522,21.7179 108.7871,21.7323 108.7367,21.7746 108.6805,21.7913 108.6589,21.7905 108.6769,21.7789 108.7149,21.7373 108.6984,21.6772 108.7086,21.6433 108.7194,21.6058 108.692,21.6011 108.6608,21.6158 108.6074,21.5894 108.607,21.5746 108.5754,21.6289 108.5169,21.6989 108.4731,21.8137 108.4976,21.8597 108.4715,21.8862 108.3359,21.9112 108.3195,21.8834 108.3097,21.8415 108.36,21.7434 108.4259,21.6594 108.3796,21.5662 108.3335,21.5347 108.2724,21.528 108.2618,21.5317 108.2527,21.567 108.2833,21.6 108.3054,21.6328 108.2006,21.666 108.181,21.6543 108.1873,21.5996 108.1787,21.5583 108.1513,21.5159 108.112,21.4905 108.0755,21.475 108.1034,21.5304 108.0718,21.5705 108.0022,21.536 107.9453,21.5104 107.8842,21.5296 107.8641,21.525 107.8579,21.5185 107.8367,21.5118 107.8152,21.5206 107.7843,21.5648 107.7288,21.6237 107.6509,21.6428 107.624,21.6321 107.6064,21.6206 107.5782,21.6031 107.5284,21.5858 107.4,21.5623 107.2531,21.5744 107.2312,21.581 107.2166,21.6379 107.2088,21.6574 107.1669,21.7051 107.1372,21.7 107.122,21.686 107.0822,21.6872 106.8927,21.7963 106.8843,21.8253 106.911,21.865 106.9127,21.8969 106.8897,21.9148 106.7705,21.946 106.7319,21.9545 106.6065,21.9752 106.562,22.0063 106.5373,22.1499 106.5387,22.1794 106.5608,22.1914 106.5173,22.3039 106.4871,22.3038 106.4552,22.3107 106.4335,22.3245 106.4256,22.3898 106.422,22.4063 106.4202,22.4316 106.4756,22.5796 106.4998,22.59 106.5856,22.6054 106.6553,22.7383 106.6463,22.7775 106.6256,22.7966 106.5708,22.8413 106.4606,22.8882 106.3902,22.9069 106.3685,22.88 106.3417,22.865 106.2097,22.8277 106.1629,22.8317 106.1247,22.8466 106.1207,22.8785 106.1059,22.9129 106.0921,22.9301 106.0642,22.9481 106.0033,22.9628 105.9462,22.965 105.8837,22.9568 105.8744,22.9272 105.86,22.9127 105.7461,22.8868 105.7047,22.9306 105.6578,22.9792 105.6374,22.9945 105.5085,23.0372 105.4431,23.0376 105.4348,23.0709 105.4343,23.0848 105.4304,23.1091 105.4202,23.1366 105.3965,23.1571 105.2684,23.2547 105.228,23.2982 105.1274,23.2785 104.7774,23.1545 104.6944,23.0736 104.7223,22.937 104.6023,22.7928 104.544,22.7878 104.522,22.8009 104.4443,22.8046 104.4103,22.7837 104.3651,22.7455 104.3319,22.7167 104.2458,22.6621 104.23,22.6618 104.1363,22.7095 104.1258,22.7482 104.1303,22.8024 103.9825,22.7727 103.933,22.7151 103.9054,22.661 103.8831,22.5481 103.888,22.5275 103.8804,22.4983 103.8405,22.4787 103.7813,22.5127 103.7327,22.5521 103.6987,22.5824 103.6661,22.6262 103.5258,22.7575 103.4899,22.7541 103.4385,22.6729 103.4556,22.6235 103.4093,22.5622 103.3945,22.5592 103.38,22.5664 103.3591,22.5851 103.332,22.6141 103.2988,22.6794 103.2672,22.7465 103.2319,22.7668 103.206,22.7689 103.0397,22.5173 102.9375,22.4158 102.9034,22.4114 102.8019,22.4573 102.7538,22.5294 102.743,22.5677 102.5754,22.6589 102.3945,22.7397 102.3744,22.7464 102.3478,22.7464 102.3276,22.7284 102.2994,22.6629 102.2626,22.5841 102.1436,22.4666 102.0416,22.3984 102.0148,22.3714 101.9889,22.4079 101.9052,22.4297 101.7994,22.4122 101.6746,22.4643 101.6478,22.4747 101.6159,22.4728 101.5658,22.4473 101.5456,22.4181 101.5367,22.3865 101.55,22.3635 101.5008,22.2558 101.4496,22.1845 101.5024,21.9458 101.5477,21.9089 101.6403,21.8101 101.6275,21.7079 101.6568,21.6295 101.6431,21.4726 101.6362,21.4296 101.6188,21.3341 101.6164,21.29 101.6444,21.269 101.6819,21.262 101.7241,21.2299 101.7249,21.2159 101.7209,21.1924 101.6618,21.121 101.6084,21.116 101.5791,21.1513 101.553,21.1728 101.4846,21.211 101.4463,21.2236 101.3845,21.2232 101.2638,21.1994 101.2143,21.165 101.1684,21.1531 101.1301,21.1866 101.1109,21.2283 101.1233,21.3094 101.1409,21.3505 101.0608,21.5349 101.0245,21.5486 101.0455,21.5796 101.0431,21.6106 100.9967,21.7463 100.9751,21.7448 100.7123,21.6226 100.6847,21.5838 100.6768,21.5641 100.5981,21.4871 100.5167,21.4528 100.4492,21.4284 100.3543,21.4381 100.3334,21.4708 100.3037,21.5055 100.2503,21.5141 100.2226,21.5008 100.1602,21.4529 100.0832,21.4114 100.0448,21.4371 99.9978,21.4907 99.9848,21.5611 100.0186,21.6102 99.9613,21.6621 99.8757,21.6756 99.8551,21.7012 99.8194,21.797 99.8232,21.8321 99.8364,21.8677 99.852,21.8929 99.8677,21.9398 99.8346,22.0257 99.7693,22.0359 99.6215,22.0493 99.5866,22.0151 99.563,22.0506 99.5372,22.0628 99.4657,22.0843 99.3433,22.1111 99.3124,22.0969 99.2875,22.0817 99.2444,22.0689 99.1191,22.088 99.0457,22.1314 99.1707,22.3799 99.2083,22.4118 99.2259,22.4293 99.2401,22.4443 99.2536,22.4618 99.262,22.4819 99.2635,22.5649 99.2218,22.6848 99.3196,22.8445 99.3914,22.8871 99.4281,22.8924 99.4415,22.9109 99.388,23.0565 99.2346,23.1084 99.1349,23.092 99.1106,23.0807 99.0788,23.0744 98.9811,23.0781 98.8047,23.1635 98.7984,23.2583 98.8017,23.3013 98.7923,23.3862 98.781,23.417 98.7646,23.4468 98.7395,23.4596 98.7049,23.4543 98.6838,23.5155 98.7298,23.6115 98.6941,23.7343 98.5645,23.79 98.5564,23.944 98.6039,23.959 98.6316,23.9713 98.7251,24.0358 98.7459,24.0517 98.7738,24.0747 98.7815,24.0982 98.767,24.1333 98.7511,24.1192 98.7282,24.1036 98.4633,24.0683 98.4235,24.0976 98.3907,24.1041 98.3232,24.108 98.0977,24.0985 98.065,24.0926 97.9416,24.0623 97.9208,24.0559 97.7902,24.0 97.7743,23.9864 97.743,23.9536 97.6426,23.8962 97.57,23.8572 97.5282,23.8251 97.5237,23.8425 97.512,23.8619 97.4594,23.8945 97.4256,23.9035 97.4154,23.9218 97.5221,24.0262 97.5725,24.0665 97.5991,24.0874 97.6141,24.1083 97.626,24.1344 97.6369,24.2333 97.59,24.348 97.5425,24.4149 97.4205,24.4495 97.434,24.5097 97.439,24.5376 97.4455,24.6393 97.4377,24.6886 97.4298,24.7125 97.4557,24.7345 97.5482,24.795 97.5662,24.8068 97.6133,24.891 97.5995,24.9537 97.6018,25.0369 97.6336,25.0633 97.6654,25.1094 97.6818,25.1422 97.6905,25.1809 97.7032,25.2226 97.7279,25.2389 97.7613,25.2191 97.7847,25.1838 97.8205,25.1879 97.9412,25.2824 97.9997,25.3615 98.0106,25.382 98.0432,25.5217 98.0423,25.5426 98.0658,25.5866 98.1022,25.5646 98.1825,25.5238 98.2362,25.5409 98.2579,25.5632 98.313,25.6624 98.3524,25.7355 98.3571,25.7678 98.4151,25.8161 98.4576,25.795 98.5026,25.7745 98.5843,25.8271 98.5882,25.8635 98.5294,25.9248 98.4798,25.9601 98.4493,26.0542 98.4435,26.0961 98.4651,26.1084 98.5225,26.1186 98.5213,26.0914 98.5294,26.071 98.5531,26.0771 98.5823,26.1033 98.6048,26.1557 98.5778,26.2185 98.6005,26.3335 98.6196,26.3967 98.649,26.5762 98.6518,26.6098 98.6511,26.7618 98.6338,26.864 98.6119,26.9755 98.5842,27.1026 98.5646,27.1775 98.5668,27.1981 98.5852,27.2229 98.6087,27.2913 98.6051,27.3327 98.5754,27.3492 98.559,27.4388 98.5701,27.4991 98.5192,27.5746 98.4065,27.6199 98.3322,27.6417 98.2993,27.6019 98.2978,27.56 98.2805,27.5262 98.2502,27.5022 98.221,27.4982 98.1935,27.5093 98.1766,27.5426 98.1655,27.6017 98.1369,27.666 98.1038,27.7206 98.0695,27.8089 98.0199,27.977 98.0298,28.0897 98.0186,28.1174 98.0096,28.1247 97.8899,28.1841 97.8938,28.2378 97.7759,28.3471 97.7269,28.3405 97.7109,28.3236 97.6785,28.3141 97.6174,28.3888 97.6107,28.4248 97.5958,28.4696 97.5799,28.4872 97.4328,28.5145 97.3707,28.3854 97.3571,28.3058 97.3433,28.2661 97.3199,28.2606 97.2901,28.2634 97.2347,28.2133 97.2233,28.1914 97.1815,28.2026 97.1227,28.2549 97.1126,28.2774 97.0238,28.3413 97.0028,28.3501 96.9735,28.3488 96.9281,28.3265 96.8888,28.3021 96.8595,28.3008 96.6899,28.3352 96.6536,28.3452 96.6327,28.3746 96.6199,28.3912 96.5505,28.4266 96.5293,28.4359 96.4742,28.4365 96.3266,28.3842 96.2774,28.3194 96.2372,28.3609 96.2161,28.4933 96.2709,28.5364 96.3057,28.5588 96.4908,28.7285 96.4889,28.7636 96.4772,28.7819 96.409,28.8643 96.3598,28.9358 96.3711,29.0039 96.346,29.0241 96.2226,29.0009 96.1943,28.9833 96.1729,28.9604 96.1576,28.9426 96.1438,28.9272 96.1259,28.9084 96.0989,28.8898 96.0512,28.8692 96.0254,28.9045 96.0248,29.0272 96.0943,29.1145 96.1344,29.1319 96.1629,29.1345 96.1929,29.1381 96.2245,29.1489 96.2669,29.2248 96.2338,29.2534 96.217,29.2414 96.1678,29.2097 96.1376,29.2113 96.1088,29.2233 96.0891,29.2446 96.0625,29.2801 96.0565,29.3188 96.0233,29.3628 95.9589,29.4315 95.9281,29.4284 95.8903,29.3999 95.8248,29.3631 95.8042,29.3586 95.6658,29.3101 95.5011,29.2225 95.4179,29.1586 95.4018,29.1034 95.3382,29.0217 95.316,29.0089 95.2646,29.0028 95.2308,29.0098 95.0071,29.0849 94.8596,29.1077 94.7413,29.1425 94.6699,29.2281 94.5751,29.3036 94.5253,29.3009 94.4709,29.2398 94.4589,29.1989 94.4166,29.182 94.3592,29.1859 94.3055,29.1831 94.1863,29.1087 94.1129,29.0409 94.07,28.9764 94.0656,28.9425 94.0309,28.8985 93.9729,28.8612 93.8995,28.8038 93.8878,28.7767 93.8641,28.695 93.8405,28.6373 93.7715,28.6549 93.7373,28.6584 93.611,28.6456 93.5686,28.6322 93.5265,28.6155 93.4743,28.6218 93.4232,28.6333 93.4041,28.6435 93.3813,28.6473 93.3198,28.6236 93.27,28.6036 93.2313,28.5867 93.2082,28.5631 93.1999,28.5085 93.1612,28.461 93.0954,28.3865 93.1177,28.3556 93.1174,28.3113 93.1016,28.2875 93.0061,28.2851 92.9257,28.2785 92.8102,28.2011 92.7676,28.1673 92.7332,28.1687 92.7102,28.1814 92.6332,28.1376 92.5908,28.1104 92.5677,28.0834 92.5557,28.0492 92.5671,28.0289 92.6011,28.01 92.6,27.9478 92.5801,27.9243 92.5243,27.8851 92.4259,27.8307 92.3336,27.7952 92.2226,27.7754 92.2121,27.7636 92.1959,27.765 92.1467,27.8374 92.1387,27.7888 92.0716,27.7816 92.0276,27.7874 91.9998,27.7816 91.9559,27.7557 91.9277,27.7194 91.8959,27.7037 91.8599,27.6976 91.7666,27.7002 91.7063,27.7355 91.5399,27.7338 91.5386,27.7468 91.535,27.8051 91.5388,27.8383 91.5558,27.8668 91.5591,27.8978 91.5446,27.9137 91.5207,27.9264 91.4889,27.9383 91.4025,27.9602 91.3831,27.9583 91.3673,27.9581 91.3321,27.9661 91.3017,27.9794 91.2392,28.0105 91.2085,28.0318 91.1838,28.0497 91.1014,28.0435 91.0476,27.9948 91.0281,27.9708 91.0144,27.9525 90.9949,27.9408 90.9694,27.9387 90.903,27.9458 90.8762,27.9613 90.8504,27.9879 90.8341,28.0012 90.8009,28.0152 90.7519,28.0192 90.723,28.0168 90.6397,28.0335 90.5336,28.0471 90.5098,28.0441 90.4396,28.0438 90.4157,28.0493 90.3938,28.0478 90.3496,28.0403 90.26,28.0484 90.2369,28.0673 90.24,28.1011 90.2499,28.1191 90.2629,28.1381 90.279,28.1692 90.2724,28.2111 90.2298,28.2278 90.2031,28.2326 90.17,28.2439 90.1325,28.2533 90.1093,28.2586 90.0624,28.269 89.9045,28.2933 89.8821,28.2922 89.747,28.24 89.7208,28.2201 89.6759,28.1633 89.6308,28.1442 89.6054,28.1429 89.5771,28.1422 89.5111,28.1282 89.4725,28.1104 89.372,28.0266 89.3523,28.003 89.3407,27.986 89.3351,27.9773 89.2943,27.919 89.283,27.9018 89.2719,27.884 89.2447,27.8404 89.1542,27.7964 89.1219,27.7762 89.1035,27.7471 89.0853,27.7072 89.0648,27.666 89.0516,27.6441 89.0133,27.5925 89.0141,27.541 88.9905,27.52 88.9718,27.5076 88.9431,27.493 88.9011,27.479 88.8705,27.4582 88.853,27.4358 88.842,27.4001 88.8321,27.3547 88.8213,27.3378 88.8091,27.3149 88.8033,27.2869 88.7817,27.3029 88.7091,27.3562 88.6855,27.3857 88.667,27.413 88.6505,27.5117 88.687,27.5852 88.699,27.6012 88.7162,27.6236 88.7405,27.6931 88.7667,27.8084 88.7629,27.8444 88.7585,27.8643 88.7212,27.9766 88.6591,28.0199 88.6261,28.0384 88.51,28.0854 88.4393,28.0371 88.395,28.0094 88.2769,27.9522 88.2177,27.9485 88.0246,27.918 88.0085,27.8759 88.0185,27.8475 88.0294,27.8349 87.9783,27.861 87.9411,27.8673 87.9142,27.8575 87.8895,27.8548 87.8636,27.859 87.7595,27.8861 87.736,27.8797 87.7122,27.8387 87.6914,27.8129 87.6673,27.7939 87.6383,27.782 87.6076,27.7738 87.5476,27.7978 87.5131,27.7825 87.4779,27.7838 87.4239,27.8094 87.2964,27.8119 87.2167,27.7912 87.1936,27.7853 87.0805,27.7921 87.0293,27.8128 86.9847,27.8602 86.9745,27.8931 86.9206,27.9322 86.8352,27.9166 86.7918,27.9385 86.648,27.9992 86.6441,28.0246 86.6442,28.0508 86.6169,28.0693 86.5837,28.0801 86.4771,28.0817 86.4579,28.0691 86.4295,27.9929 86.4261,27.9286 86.4062,27.909 86.3399,27.8777 86.2407,27.9138 86.1118,27.9803 86.0857,28.0407 86.1033,28.081 86.0866,28.1267 85.9853,28.0554 85.9931,27.9955 86.0129,27.9496 86.0251,27.9041 85.9787,27.8599 85.9588,27.8569 85.8947,27.855 85.8655,27.8791 85.841,27.9817 85.7771,28.1173 85.7587,28.1359 85.7367,28.142 85.7099,28.1538 85.6701,28.1745 85.6321,28.2112 85.6108,28.2475 85.4731,28.2509 85.3488,28.2701 85.3269,28.2687 85.3039,28.2483 85.287,28.2349 85.2666,28.232 85.1738,28.2405 85.1269,28.2471 85.0302,28.2637 85.0011,28.2752 84.9937,28.2846 85.0037,28.3642 85.0252,28.4337 85.0719,28.4983 85.0851,28.5593 84.997,28.6047 84.9623,28.6095 84.9425,28.6024 84.9217,28.5718 84.8375,28.5101 84.737,28.5125 84.7137,28.5201 84.5939,28.5751 84.5991,28.6196 84.527,28.6708 84.4616,28.6805 84.3771,28.702 84.3501,28.7269 84.3213,28.7803 84.2965,28.8171 84.2797,28.8311 84.2176,28.8397 84.1356,28.8814 84.1283,28.8867 84.1239,28.9437 84.1312,29.0213 84.0532,29.0973 84.0506,29.1243 84.0717,29.1507 84.0721,29.177 84.0077,29.2285 83.8674,29.2644 83.8039,29.2571 83.6426,29.2102 83.6122,29.1964 83.5869,29.1739 83.5801,29.1515 83.5643,29.1309 83.528,29.137 83.5204,29.1334 83.498,29.132 83.44,29.1564 83.3066,29.3329 83.2728,29.3834 83.2696,29.4046 83.2712,29.4334 83.2466,29.4577 83.1497,29.5471 83.0836,29.5986 83.0573,29.6001 83.0131,29.5891 82.9525,29.5901 82.9106,29.6254 82.8913,29.6367 82.8008,29.6575 82.7648,29.6337 82.6695,29.7008 82.5454,29.8049 82.4917,29.859 82.3143,29.9768 82.1183,30.0416 82.0689,30.0355 82.0447,30.0866 82.0048,30.3006 81.8452,30.33 81.747,30.3429 81.7021,30.3297 81.622,30.3585 81.5489,30.3852 81.5244,30.3909 81.4549,30.3504 81.4449,30.3245 81.4401,30.2981 81.3881,30.3075 81.3608,30.3256 81.3415,30.3433 81.3208,30.3509 81.3029,30.3417 81.2853,30.2816 81.2873,30.2319 81.2753,30.1387 81.1933,30.0446 81.1733,30.0337 81.142,30.023 81.148,29.9954 81.127,29.9786 81.0945,29.9841 81.0559,29.9967 81.0144,29.9859 80.9911,30.0513 80.9687,30.0949 80.9392,30.1423 80.9202,30.1707 80.9251,30.1798 80.8886,30.2301 80.843,30.2411 80.7971,30.252 80.7039,30.2905 80.6862,30.3032 80.669,30.3261 80.6537,30.3518 80.5073,30.438 80.4808,30.4422 80.4168,30.4434 80.2984,30.4923 80.2122,30.5319 80.1854,30.5367 80.1285,30.5399 80.1028,30.5412 80.1198,30.5635 80.1499,30.6994 80.0847,30.7606 79.857,30.8499 79.8462,30.8505 79.8261,30.8536 79.7945,30.8845 79.7823,30.9153 79.7592,30.9312 79.6418,30.9547 79.557,30.9391 79.529,30.9221 79.5066,30.9041 79.4512,30.9224 79.3162,31.0174 79.2901,31.0662 79.2369,31.086 79.2113,31.1 79.1388,31.2067 79.1151,31.2659 79.1179,31.2909 79.0613,31.3602 78.9782,31.402 78.9415,31.3917 78.916,31.3748 78.7752,31.2568 78.7151,31.2531 78.6661,31.274 78.6103,31.4675 78.6197,31.4899 78.6699,31.5176 78.74,31.5722 78.6622,31.6396 78.6135,31.691 78.5908,31.7441 78.6339,31.8543 78.6429,31.8746 78.6503,31.8856 78.6592,31.9042 78.6686,31.9328 78.6294,31.9706 78.5851,31.9951 78.5546,32.024 78.4956,32.089 78.4773,32.1261 78.4595,32.1539 78.4359,32.1785 78.3742,32.2072 78.3848,32.2156 78.3703,32.396 78.3147,32.474 78.3046,32.4828 78.2952,32.4983 78.304,32.5199 78.3976,32.5462 78.4343,32.5355 78.4702,32.5302 78.5365,32.5413 78.5617,32.5491 78.5806,32.5627 78.6032,32.5929 78.6438,32.6027 78.6669,32.5892 78.6729,32.562 78.6627,32.5098 78.6723,32.4536 78.6834,32.4357 78.7004,32.4165 78.8202,32.3289 78.8686,32.3147 78.9753,32.3453 79.0201,32.4216 79.0369,32.4436 79.0696,32.4588 79.1059,32.4695 79.1278,32.4756 79.1503,32.4798 79.1992,32.4595 79.3497,32.5628 79.3733,32.5853 79.3871,32.6012 79.3992,32.6183 79.4123,32.6381 79.427,32.6913 79.4254,32.7199 79.3451,32.8474 79.312,32.8734 79.2951,32.8851 79.2706,32.9004 79.2535,32.9316 79.2629,33.024 79.272,33.0626 79.1718,33.1525 79.1483,33.1574 79.1205,33.1666 79.0856,33.1853 79.0812,33.1889 79.0463,33.1985 78.9983,33.2164 78.8921,33.2806 78.8436,33.3475 78.8341,33.3708 78.7967,33.3904 78.7521,33.4231 78.7321,33.4449 78.7115,33.483 78.7045,33.5116 78.7035,33.5787 78.7081,33.6202 78.7126,33.666 78.7154,33.7121 78.7148,33.7322 78.7098,33.7796 78.7048,33.7993 78.6612,33.9208 78.6446,33.9584 78.6306,34.0006 78.6336,34.0303 78.649,34.056 78.6723,34.0717 78.6937,34.0781 78.7137,34.0821 78.7518,34.0925 78.7959,34.1078 78.8481,34.1376 78.8764,34.1594 78.899,34.1864 78.9096,34.2196 78.908,34.2511 78.8997,34.2721 78.8828,34.3117 78.849,34.3424 78.6079,34.4828 78.5518,34.5076 78.5236,34.5164 78.5033,34.521 78.4808,34.5232 78.3862,34.533 78.3543,34.5353 78.2985,34.5451 78.2642,34.5554 78.2355,34.5732 78.2028,34.6102 78.1899,34.6312 78.1772,34.6831 78.129,34.8251 78.1114,34.849 78.0944,34.8629 78.0798,34.8822 78.0714,34.9067 78.0673,34.9381 78.0176,35.0768 77.9888,35.1163 77.9523,35.1769 77.9222,35.2414 77.9232,35.2848 77.9335,35.3158 77.9698,35.399 77.9842,35.434 77.9708,35.4594 77.9405,35.4659 77.8881,35.4533 77.8485,35.4169 77.8113,35.3975 77.7816,35.4033 77.7547,35.4217 77.729,35.4511 77.7232,35.4618 77.6827,35.464 77.6521,35.4479 77.6127,35.424 77.584,35.4225 77.5183,35.4335 77.4609,35.4412 77.4352,35.4442 77.4067,35.4444 77.3835,35.4411 77.3526,35.433 77.3212,35.433 77.2928,35.4419 77.1514,35.4938 77.0094,35.5164 76.7955,35.5728 76.6732,35.618 76.657,35.6298 76.6373,35.6562 76.6195,35.6702 76.5937,35.6831 76.525,35.7094 76.4947,35.7174 76.4726,35.7488 76.4714,35.7813 76.4538,35.8665 76.3412,35.8191 76.2858,35.8013 76.1979,35.7826 76.1306,35.7734 76.0817,35.7744 76.0576,35.7907 76.0548,35.828 76.0559,35.8589 76.0284,35.9321 76.0101,35.9517 75.9866,35.9614 75.9599,35.9646 75.9303,35.9621 75.909,35.9612 75.8876,35.9658 75.8692,35.9745 75.8545,35.9884 75.83,36.0304 75.8201,36.0697 75.8428,36.0889 75.8922,36.119 75.9428,36.1971 75.9116,36.4013 75.9028,36.4238 75.805,36.5819 75.7606,36.6225 75.7396,36.6375 75.6906,36.6686 75.6553,36.6885 75.6134,36.7056 75.5657,36.7174 75.5403,36.7225 75.4531,36.7269 75.4254,36.6918 75.3743,36.6845 75.3533,36.6906 75.3367,36.7022 75.327,36.7229 75.3243,36.7604 75.3257,36.7922 75.3271,36.8169 75.3003,36.8702 75.2778,36.8834 75.2173,36.8988 75.1786,36.905 75.1406,36.9114 75.1137,36.9175 75.0832,36.9297 75.0494,36.9556 74.9158,36.9508 74.8843,36.9454 74.7195,36.9805 74.5987,37.0194 74.5777,37.0185 74.4676,36.9864 74.4314,37.0079 74.2976,37.1047 74.2935,37.1284 74.4301,37.199 74.5097,37.2093 74.5714,37.2241 74.6417,37.2595 74.6622,37.2573 74.6754,37.2315 74.7104,37.1824 74.8173,37.1958 74.8468,37.2057 74.9802,37.271 74.9979,37.2802 75.0885,37.3646 74.9707,37.4639 74.9395,37.4799 74.8555,37.5175 74.8367,37.5367 74.8225,37.5618 74.805,37.6102 74.8159,37.628 74.8405,37.644 74.8875,37.7443 74.8611,37.7644 74.8282,37.7783 74.8074,37.7994 74.8111,37.8728 74.8169,37.9654 74.8059,37.9833 74.7647,38.0014 74.7456,38.0089 74.7186,38.0313 74.6933,38.1523 74.6951,38.2578 74.7038,38.2821 74.7197,38.3004 74.7418,38.3188 74.7627,38.3424 74.7687,38.378 74.7548,38.4294 74.6938,38.4803 74.5785,38.5205 74.2957,38.6165 74.2558,38.6311 74.0465,38.6335 74.0241,38.6237 73.9636,38.5509 73.9772,38.5238 73.9801,38.5017 73.869,38.4908 73.8409,38.4967 73.7438,38.5477 73.7157,38.5695 73.7058,38.5908 73.7038,38.6066 73.6647,38.718 73.6252,38.7949 73.6101,38.8147 73.6097,38.8428 73.6248,38.8688 73.6512,38.8857 73.6826,38.8929 73.7207,38.8936 73.747,38.9037 73.7534,38.929 73.7429,38.9525 73.6773,39.0059 73.6295,39.0326 73.5214,39.1917 73.5294,39.217 73.5467,39.249 73.5698,39.2974 73.57,39.3212 73.5564,39.4105 73.6863,39.4237 73.7404,39.4294 73.7641,39.4409 73.855,39.5554 73.825,39.6483 73.8074,39.6836 73.7626,39.7005 73.7432,39.7242 73.748,39.7723 73.8905,39.9969 73.9239,40.0224 74.0884,40.0665 74.125,40.0723 74.1568,40.0663 74.1938,40.0478 74.2211,40.0476 74.2533,40.0528 74.2823,40.0626 74.3135,40.0774 74.3409,40.0943 74.4132,40.143 74.4508,40.1777 74.4986,40.2168 74.6323,40.2953 74.6585,40.2995 74.7188,40.2866 74.7468,40.2794 74.7789,40.2824 74.7885,40.3036 74.7749,40.3199 74.743,40.347 74.724,40.3624 74.7299,40.418 74.7427,40.4582 74.7566,40.4716 74.78,40.4736 74.8056,40.463 74.834,40.4462 74.8686,40.4281 74.8886,40.4204 74.9188,40.4112 74.9635,40.4021 75.1313,40.4048 75.1748,40.4368 75.2368,40.4809 75.3832,40.5631 75.4277,40.5841 75.4796,40.5987 75.5009,40.5827 75.521,40.5489 75.5265,40.5241 75.5255,40.4922 75.5625,40.3284 75.5758,40.2896 75.585,40.2665 75.6005,40.2526 75.7966,40.2558 75.8397,40.2696 75.8632,40.3 75.8799,40.3212 75.9414,40.3433 75.9644,40.3502 75.9955,40.3527 76.1196,40.3582 76.2108,40.3393 76.2302,40.3079 76.3459,40.3585 76.3891,40.3913 76.4097,40.4135 76.4218,40.4533 76.433,40.474 76.4464,40.4937 76.4653,40.5166 76.4819,40.5319 76.5254,40.557 76.5397,40.5732 76.5436,40.6587 76.5435,40.6953 76.6857,40.9049 76.7654,40.9665 76.7918,40.975 76.8158,40.9813 76.9159,41.0032 76.9676,41.0005 77.0033,40.981 77.0343,40.9698 77.1685,40.96 77.232,40.9812 77.276,40.9787 77.3302,40.9664 77.3686,40.9509 77.3996,40.94 77.4372,40.9404 77.5782,40.9559 77.6735,40.9944 77.721,41.0163 77.7538,41.0236 77.891,41.014 77.9217,41.01 77.9481,40.9976 77.9738,40.9946 78.0315,41.023 78.0818,41.055 78.0993,41.0696 78.1294,41.0993 78.1387,41.1189 78.1447,41.1291 78.1577,41.1515 78.1831,41.1831 78.1999,41.1957 78.219,41.2069 78.2622,41.2285 78.2756,41.2474 78.2689,41.2717 78.2559,41.3064 78.2628,41.3261 78.2877,41.3464 78.4231,41.4173 78.5625,41.485 78.5874,41.496 78.6186,41.5071 78.65,41.5162 78.8497,41.5947 78.9507,41.6354 79.0382,41.6728 79.2315,41.7449 79.417,41.7841 79.5493,41.836 79.5839,41.8374 79.6122,41.8345 79.6435,41.8352 79.6817,41.8476 79.7055,41.8775 79.716,41.9186 79.7343,41.9447 79.763,41.9661 79.786,41.9725 79.8134,41.9777 79.8668,41.9869 79.9149,41.9889 79.9515,41.9873 80.0289,41.9785 80.0692,41.9792 80.1033,41.9833 80.1345,41.9921 80.1585,42.007 80.1707,42.0356 80.1352,42.1276 80.123,42.1486 80.174,42.1683 80.1827,42.2046 80.1594,42.2701 80.1426,42.2868 80.1273,42.3156 80.0469,42.5844 80.061,42.6125 80.1313,42.7408 80.1465,42.7674 80.1704,42.7815 80.201,42.7793 80.2292,42.774 80.2577,42.7767 80.4604,42.8371 80.4627,42.8637 80.4388,42.8814 80.4097,42.8864 80.3784,42.8909 80.3305,42.9082 80.2765,42.9463 80.2724,42.9806 80.5034,43.0836 80.5428,43.0935 80.5661,43.0932 80.6003,43.0731 80.6312,43.0592 80.6623,43.0604 80.6913,43.076 80.7036,43.0994 80.703,43.1194 80.6656,43.2223 80.6271,43.4165 80.5692,43.504 80.5068,43.6165 80.4716,43.6868 80.4412,43.7637 80.4308,43.771 80.4172,43.7917 80.4056,43.8152 80.3964,43.8451 80.3883,43.8662 80.3234,43.9842 80.2567,44.064 80.2543,44.1052 80.2749,44.1486 80.2837,44.1814 80.2877,44.2111 80.2661,44.3075 80.2444,44.3739 80.2371,44.397 80.2726,44.5854 80.3998,44.6555 80.4032,44.6835 80.3237,44.7148 80.1695,44.7687 80.1497,44.7736 80.1172,44.773 80.0387,44.7583 79.9412,44.7448 79.9064,44.7431 79.8865,44.7483 79.762,44.8174 79.7593,44.8518 79.9648,44.9738 80.0014,44.9864 80.0276,44.9906 80.051,44.99 80.0809,44.9873 80.1491,44.9848 80.2886,44.9993 80.3136,45.0088 80.4125,45.0572 80.6308,45.0983 80.6532,45.1007 80.8041,45.099 80.8908,45.1171 81.0342,45.1546 81.1256,45.1831 81.283,45.2189 81.3377,45.2267 81.3724,45.2296 81.4173,45.2381 81.4425,45.2445 81.4688,45.2558 81.4915,45.2684 81.532,45.2903 81.5648,45.2981 81.5995,45.3005 81.6374,45.2937 81.6687,45.2698 81.6832,45.2544 81.6971,45.2214 81.6931,45.1681 81.7098,45.1448 81.8335,45.1062 81.8626,45.1027 81.8985,45.108 81.9288,45.1174 81.9572,45.1299 82.0081,45.1471 82.0534,45.1612 82.1097,45.1763 82.1559,45.1845 82.1819,45.1865 82.207,45.1826 82.233,45.1683 82.344,45.0875 82.3666,45.0762 82.3999,45.068 82.4301,45.0712 82.451,45.0817 82.4712,45.1014 82.4883,45.1279 82.5167,45.1818 82.5268,45.2148 82.5367,45.2565 82.5429,45.2938 82.5442,45.334 82.5399,45.3585 82.5305,45.3843 82.495,45.4044 82.4733,45.4122 82.4462,45.4182 82.41,45.4242 82.3702,45.4256 82.2944,45.433 82.2381,45.4476 82.2198,45.4588 82.2044,45.4777 82.1995,45.4931 82.2065,45.5313 82.2714,45.6631 82.298,45.71 82.33,45.7456 82.3485,45.7675 82.3647,45.7885 82.378,45.8114 82.3948,45.8498 82.4042,45.8803 82.4178,45.9316 82.4427,46.0227 82.4437,46.0561 82.4461,46.0846 82.4549,46.1152 82.4905,46.1776 82.5171,46.2114 82.5389,46.2332 82.555,46.2491 82.5759,46.2739 82.5922,46.3012 82.6405,46.4213 82.6804,46.5339 82.6901,46.5698 82.6986,46.5887 82.7249,46.6455 82.7564,46.7101 82.7809,46.7519 82.8115,46.7894 82.8348,46.8147 82.8536,46.84 82.8797,46.8767 82.8931,46.8998 82.9008,46.9218 82.9134,47.0306 82.9202,47.1109 82.9159,47.1468 82.9434,47.1659 83.0029,47.1707 83.0363,47.1708 83.0671,47.1628 83.0662,47.1579 83.1116,47.1303 83.1377,47.1227 83.1804,47.1185 83.2095,47.114 83.2361,47.1063 83.306,47.0818 83.3244,47.0702 83.3413,47.0568 83.4396,47.0098 83.4929,46.9949 83.5746,46.9833 83.6195,46.9759 83.6411,46.972 83.6618,46.967 83.6868,46.9584 83.7345,46.9375 83.7807,46.9235 83.811,46.9196 83.9661,46.9181 83.9914,46.9181 84.0236,46.9269 84.0599,46.9452 84.1036,46.9502 84.1748,46.954 84.1994,46.953 84.4739,46.9374 84.5319,46.9407 84.5577,46.94 84.5976,46.9251 84.6538,46.8822 84.6615,46.861 84.6534,46.8361 84.64,46.8133 84.6241,46.7799 84.6829,46.7743 84.842,46.8112 84.8559,46.8219 84.8638,46.8428 84.9026,46.8642 84.9431,46.8692 84.9615,46.8782 84.9766,46.8913 85.0475,46.9282 85.0707,46.9467 85.0841,46.9635 85.0976,46.9852 85.1456,46.9989 85.1771,46.997 85.2589,46.9976 85.4006,47.0053 85.4436,47.0831 85.5671,47.164 85.5791,47.2084 85.5806,47.3218 85.5597,47.3551 85.5171,47.3986 85.4993,47.419 85.4867,47.4453 85.4815,47.4679 85.4899,47.5075 85.5006,47.5432 85.4995,47.5667 85.4627,47.7094 85.4333,47.8066 85.4241,47.8356 85.414,47.8826 85.4218,47.915 85.4465,47.9414 85.4565,47.9616 85.4779,48.016 85.4825,48.037 85.4801,48.0697 85.4945,48.11 85.615,48.3009 85.6417,48.3381 85.6587,48.3506 85.6791,48.3585 85.7147,48.3654 85.7346,48.3681 85.7907,48.3735 85.906,48.3815 85.9734,48.3791 86.0139,48.3765 86.0367,48.373 86.0612,48.3714 86.1098,48.371 86.1721,48.4004 86.1824,48.4188 86.1972,48.4322 86.219,48.4399 86.2572,48.4442 86.2897,48.442 86.3125,48.4382 86.3427,48.4391 86.4724,48.4872 86.4794,48.5145 86.5123,48.5523 86.5287,48.5684 86.584,48.613 86.6327,48.6456 86.6526,48.6652 86.6812,48.768 86.6422,48.8295 86.6197,48.8547 86.608,48.8852 86.6045,48.9157 86.6441,48.9674 86.749,49.0541 86.9935,49.0748 87.048,49.076 87.0738,49.0669 87.1888,49.0414 87.2204,49.0364 87.2462,49.0289 87.2842,49.0222 87.3187,49.0213 87.3389,49.0235 87.3792,49.043 87.3913,49.0611 87.577,49.1065 87.679,49.1151 87.7076,49.1171 87.7393,49.0572 87.7705,48.9496 87.7646,48.927 87.7447,48.899 87.714,48.889 87.6842,48.8839 87.6466,48.8634 87.6331,48.8251 87.7145,48.7387 87.8059,48.7058 87.8293,48.7106 87.8634,48.7098 87.911,48.6913 87.9314,48.6791 87.9583,48.6407 87.9046,48.5912 87.8467,48.555 87.8397,48.5321 87.8642,48.51 87.886,48.5008 87.9195,48.4893 88.0633,48.4451 88.0848,48.4462 88.1139,48.4502 88.1921,48.4244 88.3886,48.3505 88.4627,48.2931 88.4639,48.2615 88.4551,48.2318 88.4703,48.1752 88.4839,48.1568 88.5317,48.1248 88.733,48.0614 88.8092,48.0591 88.828,48.0479 88.8908,47.9956 88.911,47.9756 88.9351,47.951 88.9567,47.939 89.0963,47.9259 89.1647,47.9462 89.2611,47.9917 89.4195,47.987 89.4637,47.9724 89.4735,47.9529 89.4725,47.9276 89.5412,47.8567 89.6564,47.7747 89.8021,47.7805 89.8334,47.7937 89.8395,47.8232 89.8622,47.8388 89.9412,47.8331 89.961,47.8083 89.9518,47.7761 89.9578,47.7351 89.9707,47.7142 90.0138,47.6778 90.1389,47.6427 90.2216,47.5735 90.2701,47.5025 90.2955,47.4734 90.3363,47.4462 90.3641,47.2629 90.4149,47.1907 90.4523,47.1423 90.5822,46.9881 90.64,46.944 90.6817,46.9405 90.7065,46.9413 90.728,46.9351 90.7609,46.917 90.7843,46.8987 90.821,46.8365 90.8999,46.6986 90.9143,46.6716 90.9074,46.6178 90.8915,46.5469 90.9414,46.5244 90.9323,46.4898 90.9247,46.4707 90.832,46.2984 90.8027,46.2726 90.793,46.2442 90.8335,46.145 90.8471,46.1207 90.8609,46.1031 90.8886,46.0817 90.8984,46.0556 90.8982,45.965 90.8754,45.9435 90.8369,45.9208 90.8175,45.9064 90.7465,45.8508 90.7291,45.8349 90.5922,45.6835 90.5549,45.5278 90.557,45.4402 90.5913,45.4183 90.6265,45.3986 90.6501,45.3848 90.6805,45.3194 90.7699,45.2016 90.884,45.1722 90.9116,45.1729 91.0107,45.1622 91.037,45.1496 91.0633,45.1195 91.103,45.0999 91.1231,45.0923 91.1584,45.0827 91.2514,45.0676 91.2741,45.075 91.3159,45.1017 91.3433,45.101 91.374,45.073 91.4024,45.0459 91.4332,45.0261 91.7395,45.0237 91.8846,45.0311 91.9101,45.0329 91.9388,45.032 91.9638,45.0284 92.1811,44.9753 92.363,44.9525 92.5236,44.9709 92.5911,44.9827 92.6272,44.9901 92.6587,44.9966 92.7531,44.9946 92.7985,44.9745 92.86,44.9587 92.9564,44.9591 93.0182,44.9597 93.0418,44.9628 93.0491,44.9655 93.1023,44.9469 93.1297,44.9389 93.1614,44.9326 93.1866,44.9339 93.2392,44.9397 93.3996,44.9113 93.4235,44.9063 93.4431,44.8998 93.5238,44.872 93.5437,44.8648 93.5848,44.8459 93.6039,44.8249 93.6242,44.8117 93.7042,44.7778 93.7291,44.7677 93.788,44.747 93.8387,44.7266 93.9538,44.6721 93.979,44.6593 94.1143,44.5818 94.1813,44.5398 94.1981,44.5245 94.211,44.5069 94.3096,44.4651 94.3976,44.4296 94.4707,44.4013 94.5238,44.3653 94.5521,44.3424 94.5705,44.3221 94.585,44.3048 94.8958,44.2069 95.046,44.2228 95.0697,44.2254 95.1526,44.2378 95.2771,44.2442 95.2867,44.2258 95.264,44.1982 95.2426,44.1762 95.2171,44.1276 95.213,44.1082 95.208,43.9694 95.2258,43.96 95.2508,43.9557 95.2933,43.949 95.3445,43.9439 95.4,43.9435 95.4936,43.8096 95.5054,43.7563 95.5123,43.7354 95.5229,43.7095 95.5318,43.689 95.5413,43.6701 95.5868,43.5827 95.6128,43.5356 95.6451,43.4846 95.6742,43.4394 95.7009,43.4048 95.7175,43.3861 95.7318,43.3617 95.7361,43.3059 95.7367,43.2705 95.7458,43.2351 95.784,43.1851 95.8068,43.1678 95.9894,43.0331 96.2232,42.8583 96.2485,42.6868 96.2646,42.6834 96.4348,42.6958 96.5918,42.7061 96.6268,42.7079 96.7121,42.7105 96.8252,42.7117 96.864,42.7132 97.0305,42.7476 97.251,42.7191 97.3146,42.7095 97.3563,42.7037 97.3979,42.698 97.4675,42.6883 97.6199,42.6664 97.691,42.6556 97.9383,42.6188 98.0631,42.6 98.0851,42.5976 98.1835,42.5926 98.2257,42.5906 98.3518,42.5837 98.6322,42.5676 98.9823,42.546 99.1029,42.5386 99.1648,42.5356 99.3724,42.5237 99.8478,42.6055 99.893,42.6008 99.9946,42.5962 100.1159,42.5929 100.1736,42.6415 100.5574,42.6334 100.7026,42.629 100.8329,42.6042 101.0793,42.5566 101.2707,42.5194 101.4547,42.4826 101.6736,42.4618 101.8513,42.2751 101.8944,42.2284 101.9361,42.1856 102.3008,42.1036 102.3296,42.1071 102.3736,42.1142 102.4085,42.1192 102.5704,42.114 102.7405,42.049 103.0014,41.9467 103.2097,41.8652 103.2736,41.84 103.7061,41.7553 103.9258,41.7572 104.3826,41.8301 104.3813,41.7143 104.3797,41.6238 104.5403,41.599 104.7034,41.6029 104.786,41.605 104.8619,41.5399 105.0774,41.6997 105.2055,41.738 105.3295,41.7873 105.4425,41.844 105.7092,41.94 105.9759,42.03 106.3493,42.1542 106.6344,42.2477 106.7069,42.2527 106.8381,42.2629 106.8698,42.2682 107.1139,42.3123 107.1288,42.3626 107.327,42.4185 107.3478,42.4152 107.3738,42.4017 107.3959,42.3828 107.414,42.3679 107.7584,42.3603 108.0744,42.4111 108.0994,42.4143 108.1567,42.3893 108.3776,42.3945 108.5295,42.3745 108.6966,42.352 108.8489,42.4104 108.9469,42.4015 109.1592,42.3823 109.1695,42.3999 109.2422,42.4027 109.3623,42.4085 109.3931,42.426 109.5379,42.5078 109.5917,42.5277 109.7828,42.5929 109.8475,42.5942 109.9536,42.5978 109.9806,42.6256 110.2081,42.7022 110.2874,42.7294 110.2958,42.7495 110.3187,42.7979 110.362,42.8221 110.4112,42.8483 110.4695,42.8914 110.4862,42.908 110.52,42.9548 110.536,43.0051 110.589,43.0454 110.7174,43.1532 110.8351,43.2678 110.9225,43.3102 111.0708,43.3561 111.1715,43.383 111.3473,43.4452 111.483,43.4942 111.6013,43.6005 111.6279,43.6232 111.7414,43.6247 111.8023,43.6429 111.8082,43.6627 111.8206,43.7199 111.8035,43.7858 111.7231,43.889 111.6521,43.9468 111.5615,43.9839 111.5208,44.0001 111.4011,44.1248 111.3692,44.1934 111.2736,44.2828 111.2654,44.3251 111.273,44.3686 111.283,44.3888 111.3027,44.4082 111.3194,44.4261 111.34,44.4487 111.3598,44.4708 111.3994,44.5199 111.4122,44.5466 111.4155,44.5699 111.4143,44.5981 111.4115,44.6264 111.4743,44.7234 111.6086,44.9223 111.6283,44.9497 111.7169,44.9984 111.8243,45.0406 111.8946,45.0493 111.9274,45.04 111.9409,45.024 112.0743,45.0201 112.2077,45.0166 112.2704,45.0293 112.343,44.9827 112.3988,44.9428 112.4345,44.9 112.4496,44.8754 112.695,44.7954 112.9843,44.7446 113.0839,44.7379 113.3519,44.7266 113.3927,44.702 113.4787,44.6946 113.5628,44.7424 113.5855,44.7594 113.6576,44.8108 113.7572,44.8717 113.81,44.8733 113.8308,44.874 113.8628,44.8787 113.9157,44.8881 113.9709,44.9295 113.9854,44.9453 114.0835,45.0198 114.1774,45.0782 114.1987,45.0919 114.294,45.1549 114.381,45.2712 114.383,45.2973 114.3847,45.3379 114.5823,45.3889 114.6842,45.3587 114.7771,45.3311 114.8083,45.3334 115.013,45.3522 115.1334,45.3489 115.2308,45.3472 115.3128,45.3626 115.54,45.407 115.6386,45.4937 115.7745,45.584 115.8685,45.6335 115.9256,45.6313 115.9492,45.6291 115.987,45.6415 116.0264,45.6567 116.0472,45.6698 116.1168,45.757 116.1051,45.7911 116.0759,45.8241 116.0727,45.8486 116.1013,45.8984 116.1304,45.9437 116.1952,46.0312 116.2201,46.0599 116.2551,46.0887 116.295,46.1156 116.3763,46.1725 116.4054,46.1997 116.4207,46.243 116.5071,46.2746 116.5937,46.2783 116.612,46.2984 116.6537,46.3302 116.6763,46.3407 116.7368,46.3311 116.9131,46.3091 117.2048,46.3116 117.2164,46.3461 117.2096,46.3661 117.2268,46.4044 117.2777,46.4749 117.2586,46.5176 117.4352,46.5527 117.466,46.4982 117.55,46.4609 117.6786,46.4836 117.696,46.5112 117.709,46.5284 117.7412,46.5519 117.7666,46.5663 117.9498,46.6248 118.1231,46.6778 118.1467,46.6832 118.2414,46.6665 118.2687,46.6459 118.2882,46.6412 118.6061,46.6336 118.6189,46.6634 118.673,46.7098 118.6979,46.7185 118.718,46.7164 118.8031,46.689 118.851,46.664 118.8698,46.64 118.9017,46.6196 118.9226,46.6135 119.1313,46.5679 119.1937,46.5614 119.2265,46.5645 119.2479,46.5736 119.2716,46.5833 119.2933,46.5861 119.3664,46.5814 119.483,46.5699 119.5098,46.5509 119.537,46.546 119.5815,46.5604 119.6847,46.6033 119.7279,46.6236 119.7612,46.6617 119.752,46.8488 119.7008,46.8681 119.6281,46.9443 119.6193,46.9653 119.6182,47.0295 119.6046,47.0562 119.5568,47.1127 119.4852,47.1655 119.4549,47.1873 119.3273,47.2675 119.2684,47.3029 119.236,47.3164 119.1678,47.3656 119.1702,47.408 119.0705,47.4551 118.9788,47.4796 118.9604,47.5799 118.954,47.6107 118.885,47.6312 118.8013,47.6562 118.6491,47.7017 118.5965,47.718 118.4965,47.8242 118.4373,47.8859 118.3684,47.9399 118.2237,47.949 118.0597,47.975 117.8855,47.958 117.7098,47.9635 117.6685,47.9603 117.6348,47.9564 117.4928,47.8391 117.4721,47.8196 117.4474,47.7954 117.2141,47.6029 117.1843,47.603 117.1595,47.6146 116.9452,47.7521 116.7065,47.8334 116.6247,47.8274 116.559,47.8212 116.4247,47.8025 116.3401,47.7906 116.2012,47.8042 116.0951,47.8234 115.9486,47.7671 115.9305,47.75 115.8733,47.6977 115.7996,47.6356 115.7566,47.6372 115.4279,47.8629 115.3823,48.0883 115.4542,48.1181 115.6682,48.1971 115.667,48.2186 115.6641,48.251 115.6613,48.2832 115.6545,48.3476 115.643,48.465 115.7735,48.6081 115.7993,48.6348 115.915,48.76 115.8899,48.8122 115.9602,48.9194 116.1094,49.1429 116.1783,49.2452 116.2597,49.3657 116.3291,49.4681 116.3982,49.5697 116.4744,49.6809 116.5387,49.7731 116.5482,49.767 116.5793,49.7523 116.7508,49.676 116.7888,49.6592 116.8103,49.6525 116.9972,49.5955 117.0371,49.5849 117.0616,49.5793 117.0865,49.5743 117.1146,49.5696 117.1454,49.5674 117.1814,49.5677 117.2611,49.5697 117.3212,49.566 117.3521,49.5573 117.4,49.5391 117.5653,49.4783 117.6215,49.4612 117.7012,49.4638 117.8753,49.5474 117.9979,49.6118 118.0313,49.6338 118.1906,49.7211 118.3052,49.7847 118.3169,49.8128 118.3508,49.8393 118.399,49.8652 118.4649,49.8914 118.4986,49.8978 118.5399,49.8921 118.6947,49.915 118.7449,49.9289 118.7796,49.9257 118.8236,49.9194 118.8903,49.9256 118.9228,49.933 118.9591,49.9377 118.9973,49.9441 119.039,49.9595 119.1422,50.0386 119.1675,50.0922 119.1668,50.1354 119.1497,50.1526 119.1506,50.2172 119.18,50.2721 119.1681,50.2881 119.11,50.2898 119.0733,50.2831 119.0185,50.2872 118.9971,50.2947 118.9588,50.3322 118.9867,50.3543 119.024,50.3527 119.058,50.3829 119.0752,50.4123 119.0827,50.4558 119.1134,50.5391 119.18,50.5748 119.2771,50.6378 119.3242,50.6902 119.3345,50.7349 119.3372,50.7875 119.3384,50.8436 119.4067,50.9138 119.4609,50.9391 119.4816,50.9445 119.5054,50.9594 119.5264,50.9775 119.5644,51.0175 119.596,51.1094 119.5819,51.1293 119.5916,51.1545 119.6307,51.2099 119.6797,51.2279 119.7712,51.3306 119.7859,51.3639 119.7895,51.4072 119.7972,51.4333 119.8777,51.5611 119.9206,51.6042 119.9745,51.6066 120.0101,51.6264 120.035,51.6526 120.1225,51.7132 120.3031,51.8183 120.3687,51.835 120.4324,51.8435 120.4629,51.8541 120.5216,51.9196 120.5864,52.0546 120.5915,52.0972 120.5612,52.1499 120.5313,52.191 120.4617,52.2379 120.4347,52.2834 120.4723,52.3446 120.4915,52.3674 120.5201,52.4817 120.2726,52.5696 120.2481,52.576 120.0975,52.5544 120.0625,52.5441 120.0188,52.5253 119.994,52.5189 119.9705,52.5176 119.8905,52.5269 119.8491,52.5457 119.8339,52.5801 119.839,52.7068 119.9241,52.7455 119.9563,52.7456 119.976,52.7482 120.0757,52.7957 120.137,52.8364 120.157,52.8637 120.2751,52.9582 120.3683,53.0155 120.4983,53.0972 120.6345,53.2018 120.67,53.2176 120.8691,53.2293 120.9101,53.2165 120.9331,53.2106 120.9837,53.2079 121.0149,53.2096 121.0746,53.2292 121.1162,53.2498 121.136,53.2572 121.2167,53.2535 121.2264,53.254 121.2761,53.2616 121.3252,53.2708 121.3547,53.2779 121.3839,53.2855 121.438,53.3041 121.5788,53.3387 121.631,53.3508 121.6565,53.3536 121.7542,53.3601 121.7839,53.359 121.8269,53.3517 121.862,53.3506 122.0462,53.3948 122.2817,53.3864 122.4123,53.3945 122.516,53.3931 122.565,53.3901 122.6142,53.3875 122.6399,53.3898 122.6759,53.3998 122.7224,53.4164 122.9182,53.4347 122.9518,53.4382 122.9736,53.4477 122.9923,53.4602 123.0239,53.4838 123.0527,53.4911 123.0811,53.491 123.1125,53.4871 123.1369,53.4803 123.1724,53.4669 123.2407,53.46 123.2847,53.4771 123.333,53.4798 123.4122,53.4813 123.6638,53.4184 123.6874,53.4106 123.7083,53.4022 123.7789,53.3689 123.8027,53.3462 123.8194,53.3238 123.9023,53.2786 123.9311,53.2739 123.9576,53.2877 123.9922,53.2987 124.0268,53.3009 124.0665,53.2847 124.0943,53.2577 124.1201,53.226 124.1368,53.1937 124.2004,53.1504 124.2914,53.1262 124.3134,53.1268 124.3439,53.1283 124.4122,53.1298 124.4418,53.1257 124.4896,53.1086 124.6161,53.0652 124.6766,53.0848 124.7164,53.1102 124.7609,53.1209 124.7857,53.1248 124.8591,53.1334 124.9313,53.1355 124.9621,53.1312 125.078,53.0878 125.1531,53.0563 125.1957,53.0398 125.2829,53.0073 125.3654,52.9952 125.417,52.9887 125.5248,52.9199 125.5197,52.8839 125.486,52.8703 125.4579,52.8619 125.443,52.8362 125.4555,52.8136 125.5202,52.8231 125.5423,52.8285 125.6534,52.8014 125.6735,52.7745 125.7709,52.7026 125.8089,52.7165 125.8626,52.7203 125.8947,52.6959 125.8356,52.6548 125.7717,52.5765 125.7758,52.5498 125.7933,52.515 125.8323,52.5033 125.8596,52.5196 125.8857,52.5279 125.9791,52.4829 126.0007,52.4666 126.0125,52.449 126.0088,52.4403 125.9956,52.4153 126.0084,52.3996 126.038,52.4023 126.0752,52.3925 126.1333,52.3351 126.1471,52.3085 126.1486,52.231 126.1282,52.1741 126.1082,52.1519 126.1195,52.1317 126.1525,52.1223 126.1922,52.1159 126.2703,52.1051 126.2913,52.0993 126.3556,52.0665 126.3354,52.0091 126.3108,51.9769 126.2781,51.9738 126.2559,51.9602 126.2428,51.9342 126.2729,51.8696 126.4115,51.727 126.5208,51.65 126.5294,51.5741 126.5982,51.3637 126.6728,51.3459 126.6973,51.3391 126.7176,51.3218 126.6946,51.2909 126.6598,51.2847 126.6242,51.2678 126.6118,51.2453 126.6223,51.2062 126.6556,51.1818 126.698,51.1819 126.7047,51.2015 126.6979,51.2436 126.7414,51.2547 126.7729,51.2598 126.7792,51.2402 126.7366,51.183 126.7107,51.1515 126.7036,51.1217 126.7177,51.0663 126.7387,50.9992 126.8518,50.8966 126.9117,50.8706 126.9391,50.8506 126.9563,50.8298 126.9993,50.766 127.0983,50.6826 127.086,50.6263 127.1166,50.5897 127.1654,50.5375 127.1739,50.5178 127.1688,50.493 127.1405,50.4661 127.0985,50.4011 127.1421,50.2565 127.16,50.2415 127.1836,50.2288 127.2042,50.2203 127.2427,50.208 127.2771,50.1993 127.3514,50.1732 127.3839,50.1584 127.3943,50.1508 127.3956,50.1399 127.3938,50.1099 127.3829,50.0792 127.3589,50.0504 127.3123,50.0094 127.299,49.9876 127.2961,49.9612 127.3177,49.7701 127.3263,49.7488 127.3471,49.7286 127.375,49.7203 127.403,49.7155 127.4396,49.7078 127.4831,49.6888 127.4897,49.651 127.5002,49.6136 127.5244,49.5965 127.6299,49.5356 127.6494,49.5298 127.914,49.48 127.998,49.4772 128.0256,49.4802 128.056,49.4916 128.2083,49.5202 128.324,49.5306 128.4634,49.5353 128.5223,49.5276 128.6003,49.5113 128.6137,49.4903 128.6855,49.4209 128.8127,49.3794 128.8344,49.3586 128.8497,49.3286 128.8627,49.3073 128.8872,49.2962 128.922,49.29 128.9465,49.2958 128.9756,49.3194 128.9949,49.3307 129.2004,49.3711 129.231,49.3748 129.3,49.3591 129.3213,49.3481 129.3332,49.3347 129.3406,49.2572 129.3623,49.2313 129.39,49.217 129.4149,49.212 129.4632,49.2207 129.4958,49.2224 129.5352,49.2055 129.5464,49.1712 129.5418,49.1461 129.5563,49.125 129.5833,49.114 129.7225,49.0154 129.7179,48.9854 129.9206,48.8762 130.0108,48.8228 130.0349,48.8085 130.0742,48.8045 130.1622,48.829 130.1901,48.8355 130.2278,48.8402 130.2611,48.8365 130.282,48.8225 130.2943,48.8051 130.3187,48.7954 130.3476,48.7959 130.374,48.8003 130.4372,48.8188 130.4521,48.8195 130.4833,48.8045 130.48,48.7838 130.4436,48.7547 130.3872,48.6574 130.3393,48.5704 130.3339,48.55 130.4199,48.4645 130.5479,48.3742 130.6348,48.2716 130.6421,48.2386 130.565,48.1373 130.4896,48.084 130.4711,48.0533 130.4913,47.9927 130.5696,47.933 130.6096,47.91 130.6653,47.8763 130.6954,47.8515 130.7251,47.8104 130.7418,47.7841 130.7515,47.7629 130.7579,47.743 130.7472,47.6861 130.7521,47.6657 130.7665,47.6516 130.804,47.6328 130.8429,47.6232 130.898,47.6177 130.9714,47.6386 131.009,47.6519 131.0363,47.6634 131.0796,47.6759 131.2278,47.6839 131.2575,47.6834 131.298,47.6775 131.3463,47.6648 131.3584,47.6429 131.4292,47.6096 131.626,47.6204 131.7258,47.6157 131.9319,47.6383 132.021,47.6588 132.0654,47.6734 132.0998,47.6818 132.1508,47.6879 132.1752,47.6874 132.1992,47.6817 132.228,47.6706 132.276,47.6623 132.3307,47.6559 132.352,47.6593 132.3873,47.6789 132.4714,47.8173 132.6725,47.9397 132.8909,48.0437 133.002,48.0546 133.08,48.0493 133.2363,48.0304 133.2566,48.0192 133.2918,48.0139 133.3224,48.0211 133.3481,48.0438 133.3629,48.0659 133.3808,48.0967 133.4032,48.1188 133.5579,48.1944 133.691,48.209 133.817,48.2506 133.8453,48.2679 133.8723,48.2741 134.0127,48.2872 134.2208,48.3356 134.2375,48.3233 134.2692,48.3045 134.288,48.2949 134.4492,48.2363 134.5228,48.2159 134.546,48.2121 134.5218,48.2054 134.486,48.1597 134.4915,48.1277 134.4867,48.1001 134.4666,48.0458 134.4426,48.0331 134.4075,48.0212 134.3875,48.0055 134.3723,47.9771 134.3638,47.9373 134.4001,47.8565 134.4906,47.7461 134.5213,47.7218 134.5751,47.6828 134.5675,47.6459 134.3623,47.4148 134.2935,47.3753 134.2667,47.3735 134.2252,47.3772 134.1954,47.3766 134.1507,47.3719 134.1224,47.3669 134.1036,47.3596 133.9907,47.2692 133.9578,47.1948 133.999,47.1272 134.0316,47.0762 134.0241,47.046 133.9958,47.03 133.9459,47.0231 133.9225,47.002 133.8749,46.9007 133.8489,46.8072 133.853,46.7137 133.8294,46.6133 133.8151,46.591 133.8076,46.5869 133.8076,46.5805 133.7809,46.5582 133.7193,46.525 133.6576,46.426 133.6613,46.3903 133.7136,46.3683 133.7402,46.3289 133.7125,46.2011 133.6414,46.1425 133.556,46.1031 133.5355,46.0167 133.4723,45.8827 133.3918,45.819 133.3627,45.8325 133.3333,45.8314 133.2883,45.7712 133.2872,45.7458 133.3002,45.6262 133.283,45.5728 133.2301,45.5379 133.1952,45.5182 133.0816,45.4736 133.0574,45.4644 133.03,45.4594 133.0057,45.4521 132.9627,45.3993 132.9438,45.3629 132.9157,45.243 132.9133,45.1776 132.9276,45.1459 132.9402,45.1133 132.9316,45.0735 132.889,45.0377 132.8395,45.0058 132.7666,44.9734 132.7454,44.9702 132.6856,44.9869 132.6141,45.0138 132.3828,45.065 132.1791,45.1096 132.1141,45.1238 132.0122,45.146 131.938,45.1623 131.808,45.1901 131.7769,45.2047 131.7393,45.2346 131.726,45.2571 131.7111,45.2861 131.6839,45.2942 131.6517,45.2827 131.5191,45.1649 131.4689,45.0826 131.4625,45.057 131.4443,45.0404 131.2848,44.923 131.157,44.92 131.1304,44.9042 131.1022,44.8808 131.0285,44.8596 130.9934,44.8611 130.9655,44.8773 130.9406,44.8764 130.9083,44.8678 130.8838,44.8587 130.7694,44.7859 130.8171,44.7314 130.8364,44.7225 130.872,44.7026 130.9119,44.6409 130.945,44.5355 131.0723,44.1346 131.1014,44.0439 131.1146,44.002 131.0795,43.9876 131.0613,43.9716 131.048,43.9242 131.0161,43.7693 131.0086,43.4871 131.0401,43.4626 131.0526,43.4565 131.0899,43.4329 131.1004,43.4241 131.1181,43.4081 131.1274,43.3407 131.0815,43.2212 131.0095,43.137 130.9242,42.9903 130.9211,42.9671 130.9217,42.9336 130.933,42.9102 130.9514,42.8911 130.9463,42.8681 130.8397,42.8085 130.7055,42.8036 130.6838,42.8092 130.6601,42.8217 130.6369,42.8278 130.6139,42.8237 130.4568,42.7834 130.3517,42.7418 130.2947,42.7171 130.2517,42.6964 130.2304,42.6547 130.2903,42.6308 130.3165,42.6368 130.3551,42.634 130.4041,42.5968 130.4243,42.5715 130.4379,42.5372 130.4267,42.5155 130.3996,42.4331 130.4236,42.3739 130.4059,42.3791 130.3869,42.3952 130.3417,42.4892 130.3335,42.5201 130.196,42.5693 130.1479,42.5938 130.0662,42.6659 130.0554,42.7381 130.0626,42.7634 130.0694,42.7834 130.0705,42.8395 130.0123,42.8581 129.8535,42.9096 129.7669,42.9468 129.7487,42.9574 129.7242,42.9559 129.6973,42.9434 129.6668,42.8939 129.6274,42.8053 129.5734,42.6657 129.5456,42.4996 129.553,42.4743 129.5487,42.4276 129.5369,42.4047 129.5158,42.388 129.3353,42.3391 129.2661,42.3847 129.1701,42.3983 129.0673,42.3279 129.0306,42.2181 129.0325,42.1738 128.9739,42.1203 128.9359,42.0918 128.8386,42.0475 128.78,42.031 128.7713,42.0046 128.7488,41.98 128.7175,41.9752 128.6672,41.9822 128.5054,41.9738 128.3927,41.9528 128.3197,41.948 128.2956,41.9501 128.2693,41.9655 128.2451,41.9812 128.184,41.9901 128.1589,41.9921 128.0983,41.9909 127.8798,41.9539 127.8732,41.9341 127.8842,41.8634 127.8923,41.8378 127.922,41.756 127.979,41.6674 128.0273,41.6295 128.05,41.6169 128.0775,41.6036 128.0928,41.5901 128.1236,41.5358 128.1058,41.4834 128.046,41.3942 128.0166,41.3609 127.9767,41.3348 127.9381,41.3252 127.868,41.3426 127.8358,41.369 127.7521,41.4005 127.6953,41.3773 127.6594,41.3633 127.5185,41.3665 127.4455,41.3713 127.0959,41.4258 126.9845,41.4831 126.96,41.5467 126.9259,41.5744 126.8819,41.5965 126.8856,41.644 126.8729,41.6611 126.7527,41.7489 126.7297,41.7451 126.6938,41.7141 126.6729,41.6886 126.6208,41.6611 126.5382,41.6442 126.4711,41.6135 126.3917,41.5649 126.3938,41.5428 126.4088,41.5241 126.3365,41.3434 126.31,41.32 126.2823,41.3107 126.264,41.2958 126.2373,41.2726 126.1935,41.229 126.1364,41.1681 126.1128,41.1262 126.1058,41.1064 125.9517,40.9887 125.8391,40.8508 125.76,40.8317 125.5308,40.814 125.5165,40.806 125.4779,40.7565 125.432,40.71 125.3814,40.6954 125.286,40.6576 125.2411,40.6079 125.1979,40.5944 125.1438,40.6042 125.1149,40.6018 124.9695,40.5395 124.872,40.492 124.8539,40.4484 124.8691,40.4153 124.7914,40.4135 124.7147,40.4247 124.6423,40.3511 124.5408,40.2615 124.5186,40.2515 124.4572,40.2382 124.385,40.1968 124.2412,40.0852 124.2121,40.0572 124.2043,40.0485 124.1987,40.0494 124.1875,40.0246 124.1956,39.9904 124.194,39.9646 124.1756,39.9369 124.123,39.8831 123.9601,39.7829 123.8457,39.7684 123.8176,39.7654 123.6077,39.7768 123.5721,39.7793 123.5306,39.7871 123.3841,39.7238 123.2401,39.6897 123.211,39.7328 123.0752,39.7696 123.0433,39.7042 123.082,39.6785 123.0974,39.6546 123.0501,39.6293 122.9792,39.6142 122.8298,39.5914 122.7995,39.5646 122.6489,39.5376 122.6087,39.5077 122.4217,39.4227 122.2938,39.3657 122.2595,39.3643 122.234,39.3673 122.1881,39.3407 122.1233,39.3016 122.117,39.2869 122.0696,39.2252 121.9676,39.0972 121.7834,38.9915 121.7503,39.0033 121.5612,38.9865 121.4852,38.9528 121.4807,38.9085 121.4923,38.8821 121.5143,38.8733 121.5476,38.8464 121.5356,38.8176 121.3129,38.7672 121.2856,38.7627 121.2499,38.7599 121.2253,38.7637 121.2016,38.7722 121.1741,38.769 121.1007,38.7408 121.0779,38.7279 121.0255,38.6757 120.9767,38.6886 120.9599,38.7195 120.9268,38.8686 120.9655,38.9002 121.0238,38.904 121.0565,38.8905 121.277,38.9688 121.3775,39.0035 121.4389,39.021 121.4528,39.0226 121.4884,39.0297 121.5165,39.0463 121.5246,39.0744 121.4807,39.114 121.433,39.1397 121.4363,39.1745 121.5873,39.3075 121.4989,39.3135 121.4763,39.3129 121.3705,39.3153 121.3459,39.3231 121.3204,39.3485 121.3119,39.3823 121.3003,39.42 121.268,39.4673 121.2156,39.4756 121.19,39.4779 121.169,39.4678 121.1464,39.4535 121.065,39.4842 121.1355,39.5374 121.2979,39.5821 121.369,39.5788 121.37,39.6414 121.3399,39.64 121.2911,39.699 121.3041,39.7666 121.3754,39.8167 121.5319,39.8808 121.552,39.8754 121.5921,39.8674 121.6164,39.8756 121.7155,39.958 121.8326,40.0853 121.9395,40.1985 122.0289,40.3091 122.1209,40.4262 122.1315,40.4599 122.1155,40.4881 121.9643,40.6343 121.885,40.6928 121.7727,40.7325 121.5845,40.7949 121.5623,40.7918 121.5069,40.788 121.4482,40.7876 121.3926,40.7952 121.3756,40.8202 121.3576,40.8421 121.1975,40.8853 121.0317,40.8785 121.0114,40.8758 120.943,40.8255 120.9157,40.7935 120.8358,40.7832 120.8044,40.7692 120.7709,40.7043 120.787,40.6818 120.8306,40.6843 120.867,40.6653 120.7631,40.6292 120.7303,40.6302 120.679,40.6254 120.6605,40.6154 120.5147,40.4669 120.3755,40.3471 120.3394,40.2133 120.3337,40.1933 120.2827,40.1509 120.2625,40.1427 120.1171,40.1033 119.9889,40.0625 119.8612,40.0216 119.7831,39.9956 119.7626,39.9838 119.6888,39.9373 119.6501,39.9283 119.4954,39.8853 119.4275,39.8605 119.3644,39.8277 119.1781,39.6675 119.0949,39.5067 119.0951,39.3624 119.0757,39.3407 119.016,39.3032 118.9728,39.2745 118.8955,39.1994 118.8494,39.144 118.8119,39.1131 118.7394,39.0801 118.7559,39.1045 118.7832,39.1177 118.808,39.1462 118.6812,39.1351 118.6254,39.1098 118.5959,39.1001 118.559,39.1056 118.5028,39.1328 118.4498,39.1452 118.3853,39.118 118.367,39.1034 118.3494,39.0791 118.2391,39.0218 118.211,39.0098 118.1689,38.9972 118.0834,39.0302 118.0766,39.0631 118.0582,39.0888 118.0194,39.1279 117.9916,39.147 117.9649,39.1578 117.8967,39.179 117.865,39.1769 117.8517,39.1728 117.7306,39.1546 117.6942,39.1384 117.6618,39.1215 117.6413,39.1096 117.5862,39.0611 117.5697,39.0262 117.5657,38.9806 117.4934,38.8547 117.4474,38.7922 117.4281,38.7592 117.4151,38.7316 117.3798,38.6323 117.3839,38.5976 117.3889,38.5732 117.3894,38.5696 117.3971,38.5491 117.4648,38.4228 117.4834,38.3929 117.4982,38.3705 117.5158,38.3436 117.5388,38.3205 117.5545,38.3054 117.5805,38.2838 117.647,38.2311 117.6703,38.2211 117.7274,38.2014 117.8715,38.1246 117.954,38.1037 118.0291,38.1025 118.2006,38.0863 118.2954,38.0706 118.3265,38.0577 118.442,38.0683 118.5551,38.0999 118.637,38.116 118.6803,38.1102 118.7941,37.9958 118.8691,37.8627 118.8781,37.836 118.892,37.7201 118.8809,37.6245 118.8491,37.5986 118.8267,37.5739 118.8138,37.5525 118.8067,37.5339 118.7972,37.4978 118.7816,37.3397 118.7847,37.3007 118.8005,37.2587 118.8148,37.2289 118.9707,37.1458 119.0027,37.1295 119.0764,37.1021 119.0971,37.0977 119.1411,37.0901 119.2391,37.081 119.2962,37.0821 119.3262,37.0858 119.3575,37.0948 119.3899,37.096 119.431,37.0947 119.4859,37.0908 119.5552,37.0965 119.5873,37.1013 119.6102,37.1098 119.7042,37.1754 119.7288,37.1983 119.7365,37.2214 119.7298,37.2449 119.7037,37.2814 119.6952,37.3105 119.8371,37.3746 119.8789,37.384 119.901,37.39 119.9834,37.4343 120.0358,37.4695 120.1494,37.5609 120.1636,37.6019 120.1508,37.6202 120.1903,37.6429 120.2464,37.6659 120.3475,37.7059 120.4211,37.7245 120.5018,37.7456 120.5257,37.7641 120.5515,37.7837 120.5775,37.7927 120.7186,37.786 120.7727,37.7692 120.7754,37.7385 120.8006,37.7145 120.9678,37.6112 120.9788,37.5545 121.0016,37.5372 121.2228,37.5115 121.3185,37.4245 121.4201,37.3828 121.4733,37.3879 121.5094,37.3977 121.5347,37.416 121.6614,37.4187 121.7801,37.4192 121.8152,37.4323 121.8583,37.4708 121.9072,37.4947 121.9673,37.5105 121.9891,37.4702 121.9661,37.4512 121.9746,37.4224 122.0012,37.3842 122.0208,37.3765 122.3974,37.3545 122.4365,37.1682 122.3738,37.1082 122.3372,37.1071 122.3167,37.0895 122.3067,37.0644 122.2917,37.1022 122.24,36.9844 122.2502,36.9583 122.2732,36.9637 122.3785,36.9783 122.3629,36.8686 122.3442,36.8522 122.1944,36.7865 122.1523,36.7822 122.0324,36.8019 122.0152,36.8323 122.0047,36.9028 121.8853,36.9434 121.7969,36.9587 121.7593,36.937 121.7785,36.8922 121.578,36.7975 121.4356,36.7176 121.3637,36.7087 121.3522,36.738 121.3857,36.7504 121.4473,36.7949 121.4261,36.8029 121.392,36.7962 121.3307,36.78 121.2898,36.7313 121.2142,36.6816 121.1826,36.6714 121.1282,36.6636 121.0462,36.6457 121.0174,36.6366 120.9763,36.6139 120.9528,36.5981 120.9319,36.5794 120.9119,36.5635 120.8577,36.54 120.7941,36.5554 120.7726,36.5783 120.7179,36.598 120.6851,36.6063 120.6629,36.6044 120.6186,36.5758 120.5949,36.5535 120.5808,36.5143 120.6157,36.4956 120.6375,36.5069 120.6494,36.532 120.6782,36.5592 120.7004,36.5593 120.7827,36.5099 120.802,36.4855 120.7405,36.3613 120.7178,36.3353 120.7072,36.3319 120.6861,36.3798 120.6608,36.4183 120.622,36.4217 120.5972,36.4157 120.5487,36.3818 120.5254,36.3402 120.514,36.2219 120.5387,36.1004 120.2615,36.0148 120.1872,36.0015 120.1354,36.0201 120.1594,36.0514 120.1981,36.1326 120.1964,36.1556 120.151,36.2229 120.1304,36.2211 120.116,36.1624 120.0055,36.1684 119.959,36.1665 119.9325,36.1594 119.9276,36.0942 119.9346,36.0676 120.024,35.9394 120.0815,35.919 119.9962,35.8788 119.9433,35.8601 119.8995,35.8298 119.7512,35.7026 119.7475,35.6097 119.6733,35.5818 119.5704,35.5779 119.4922,35.5393 119.4789,35.5001 119.4656,35.4687 119.4396,35.4196 119.3949,35.3376 119.3601,35.2937 119.2971,35.2705 119.2692,35.2437 119.2467,35.2096 119.2355,35.185 119.2263,35.1413 119.2214,35.0955 119.2158,35.0732 119.1948,35.0547 119.1261,35.0288 119.0807,35.027 119.0575,35.0148 119.0463,34.9905 119.0217,34.8461 119.043,34.7307 119.0687,34.7189 119.1065,34.712 119.1313,34.709 119.1539,34.7091 119.1742,34.7195 119.2135,34.7245 119.2831,34.7074 119.3027,34.6945 119.3224,34.6654 119.3077,34.6455 119.3802,34.5687 119.4969,34.4895 119.6397,34.4333 119.6771,34.423 119.7008,34.4203 119.7381,34.4222 119.7688,34.418 119.8312,34.392 120.0929,34.2733 120.159,34.1433 120.1847,34.0852 120.2119,34.004 120.2372,33.9217 120.3246,33.7242 120.3419,33.6196 120.3917,33.5203 120.4352,33.4617 120.4552,33.4496 120.4793,33.4186 120.4924,33.3834 120.4998,33.3329 120.5055,33.2922 120.5777,33.1944 120.6296,33.1287 120.6463,33.0993 120.7289,32.938 120.7378,32.8584 120.7223,32.7603 120.6791,32.6783 120.6695,32.6602 120.6708,32.6206 120.6805,32.6026 120.7738,32.5523 120.943,32.4799 121.0209,32.454 121.1032,32.4307 121.1372,32.4176 121.1772,32.3934 121.2495,32.3308 121.2616,32.208 121.2227,32.1973 121.2833,32.0775 121.316,32.0781 121.362,32.08 121.4025,32.0673 121.5029,32.0185 121.5202,32.0084 121.5485,31.9861 121.5806,31.9627 121.6709,31.8808 121.6818,31.8541 121.7318,31.7264 121.7381,31.706 121.7353,31.658 121.7156,31.643 121.6691,31.6428 121.5566,31.6609 121.4888,31.6775 121.4541,31.7018 121.4189,31.7226 121.3241,31.7773 121.2735,31.7983 121.134,31.8348 120.913,31.8242 120.7871,31.8309 120.7413,31.893 120.7265,31.9128 120.6984,31.9439 120.6789,31.9625 120.6559,31.9819 120.6324,31.9946 120.58,32.0203 120.5509,32.0299 120.4845,32.0501 120.4452,32.0577 120.3509,32.0661 120.3157,32.0568 120.2846,32.0401 120.1979,31.9813 120.1746,31.9624 120.1512,31.9354 120.1163,31.911 120.0831,31.9015 120.0614,31.898 120.0322,31.8984 119.9428,31.9097 119.9,31.9261 119.8623,31.9468 119.8081,32.0101 119.7624,32.0737 119.749,32.1114 119.7444,32.1595 119.7059,32.2386 119.671,32.2704 119.6407,32.2819 119.6063,32.2911 119.56,32.2795 119.5252,32.2671 119.4761,32.2269 119.4579,32.1548 119.4938,32.1569 119.5192,32.1898 119.5384,32.2001 119.5727,32.1747 119.6315,32.152 119.6089,32.1202 119.6126,32.084 119.6508,32.0699 119.7169,32.0312 119.7144,31.97 119.7293,31.9564 119.8399,31.9098 119.9463,31.8777 119.9804,31.8684 120.0258,31.8638 120.0695,31.8676 120.1166,31.882 120.2215,31.9191 120.277,31.98 120.3424,31.9853 120.5459,31.9526 120.5757,31.9345 120.6327,31.8386 120.6122,31.7812 120.5815,31.7968 120.5641,31.8173 120.5629,31.7839 120.5919,31.7637 120.6971,31.7189 120.7222,31.7138 120.7735,31.7165 120.8045,31.7189 120.9266,31.6719 121.0678,31.5855 121.1079,31.5431 121.1676,31.4572 121.2047,31.4389 121.2935,31.3834 121.4437,31.3129 121.4866,31.2905 121.51,31.2738 121.5365,31.254 121.5519,31.2387 121.5833,31.1973 121.5985,31.1766 121.6222,31.1365 121.6469,31.0913 121.7114,30.9738 121.7245,30.9454 121.7335,30.8932 121.7166,30.8362 121.6888,30.8188 121.6348,30.8171 121.6031,30.8249 121.5757,30.8282 121.5405,30.8286 121.4766,30.8204 121.4018,30.8091 121.3116,30.7821 121.2793,30.7656 121.2355,30.7336 121.1971,30.6825 121.1771,30.6687 121.1181,30.654 121.0988,30.6489 121.0627,30.6375 120.8346,30.5349 120.804,30.5037 120.7874,30.4693 120.7755,30.437 120.775,30.4151 120.7801,30.3849 120.7185,30.3298 120.6578,30.3018 120.6387,30.295 120.5944,30.3042 120.5583,30.3411 120.5348,30.3536 120.4927,30.3638 120.3022,30.3592 120.2356,30.3377 119.9943,30.1633 120.1492,30.1886 120.2501,30.251 120.2985,30.2727 120.322,30.2785 120.3517,30.2766 120.3694,30.266 120.3818,30.2436 120.4107,30.1702 120.4213,30.1316 120.4431,30.0934 120.4588,30.0768 120.5186,30.049 120.6348,30.0311 120.6195,30.0576 120.6822,30.096 120.9152,30.2255 120.983,30.2573 121.0133,30.2674 121.0422,30.2709 121.0633,30.2716 121.1237,30.2708 121.144,30.2661 121.1933,30.2449 121.2489,30.214 121.3262,30.1514 121.3478,30.1278 121.3717,30.0883 121.4549,29.9803 121.4776,29.9576 121.5201,29.9295 121.5704,29.9224 121.6432,29.9134 121.6969,29.8873 121.7812,29.848 121.8685,29.8481 121.9168,29.8568 121.9463,29.8673 121.9616,29.8488 121.8995,29.8139 121.8702,29.8041 121.8273,29.7908 121.799,29.7794 121.7093,29.7318 121.6361,29.6385 121.5342,29.5277 121.4946,29.517 121.3658,29.4841 121.3451,29.5124 121.3157,29.5027 121.2913,29.4788 121.2719,29.4288 121.2793,29.3879 121.2827,29.384 121.3102,29.4266 121.5542,29.5015 121.599,29.4909 121.5918,29.4666 121.5894,29.4383 121.6412,29.4446 121.691,29.496 121.6659,29.5107 121.6458,29.5117 121.5808,29.5171 121.6324,29.5713 121.7479,29.6021 121.7807,29.5907 121.8167,29.556 121.7543,29.3873 121.7318,29.354 121.7399,29.2593 121.7543,29.238 121.7865,29.2335 121.8102,29.2484 121.8292,29.2224 121.776,29.1627 121.69,29.1296 121.6546,29.1515 121.6451,29.1715 121.6529,29.238 121.6393,29.3395 121.6066,29.3308 121.6117,29.2402 121.5871,29.1648 121.5193,29.1507 121.4999,29.1559 121.439,29.2153 121.404,29.2584 121.3479,29.1729 121.3037,29.1539 121.2566,29.1308 121.2679,29.093 121.2821,29.0752 121.3115,29.0635 121.3392,29.0718 121.3804,29.0803 121.4068,29.0817 121.4704,29.0687 121.5342,28.9894 121.556,28.9163 121.5251,28.8841 121.431,28.9026 121.3825,28.9186 121.3458,28.9205 121.334,28.9035 121.355,28.8772 121.3771,28.8655 121.4312,28.8571 121.5022,28.7996 121.5022,28.7645 121.4544,28.6959 121.3719,28.6661 121.344,28.6621 121.217,28.6782 121.1908,28.6817 121.1908,28.6817 7,8.0,China 121.1908,28.6817 121.1442,28.7111 120.99,28.8098 121.0024,28.7742 121.134,28.7033 121.1908,28.6817 121.1908,28.6817 27,-8.0,Canada -128.7741,53.4608 -128.7746,53.4507 -128.7748,53.4399 -128.7731,53.4295 -128.7643,53.4105 -128.7425,53.3844 -128.7277,53.3699 -128.6908,53.323 -128.7099,53.2664 -128.7178,53.2594 -128.7325,53.2553 -128.9008,53.2537 -128.9137,53.258 -128.9282,53.278 -128.933,53.2901 -128.931,53.3068 -128.9236,53.3217 -128.8715,53.3669 -128.843,53.3912 -128.8475,53.4255 -128.8383,53.4452 -128.826,53.4577 -128.8071,53.4727 -128.7876,53.4771 -128.7737,53.4689 -128.7741,53.4608 -128.7741,53.4608 16,-4.0,Canada -55.7913,53.424 -55.7205,53.4217 -55.6659,53.4059 -55.6492,53.4 -55.6379,53.3903 -55.6989,53.3305 -55.7102,53.3301 -55.8623,53.3698 -55.8801,53.3835 -55.886,53.3975 -55.867,53.4101 -55.854,53.4164 -55.8362,53.4223 -55.8246,53.4234 -55.7913,53.424 -55.7913,53.424 390,2.0,Netherlands 5.2317,52.5936 5.249,52.6135 5.2909,52.6295 5.3217,52.6215 5.3718,52.606 5.4147,52.575 5.4445,52.5503 5.4749,52.5116 5.4558,52.4992 5.439,52.4772 5.4374,52.4463 5.4429,52.4486 5.4463,52.4617 5.4693,52.488 5.5647,52.5274 5.6348,52.5398 5.825,52.504 5.8514,52.4698 5.8425,52.4265 5.822,52.4025 5.7828,52.3656 5.7498,52.3531 5.7117,52.3522 5.685,52.347 5.6229,52.3235 5.603,52.3089 5.5614,52.3054 5.5369,52.2861 5.5509,52.2633 5.5213,52.2224 5.4138,52.2036 5.3926,52.2087 5.3555,52.2303 5.3223,52.2484 5.2974,52.2569 5.2705,52.2649 5.2402,52.2717 5.1941,52.2788 5.1649,52.2753 5.1407,52.2822 5.1286,52.3207 5.0469,52.3335 5.0752,52.3542 5.0386,52.3416 5.016,52.3148 4.9073,52.3265 4.8678,52.3546 4.8182,52.3646 4.7056,52.38 4.661,52.4049 4.5749,52.4163 4.5911,52.4529 4.6148,52.5354 4.6269,52.5818 4.6286,52.6194 4.6468,52.6902 4.7312,52.8949 4.7758,52.9035 4.7982,52.8883 4.8009,52.8648 4.8237,52.8485 4.8598,52.8371 4.8884,52.8356 4.9301,52.8422 5.0865,52.8975 5.1721,52.9412 5.2159,52.9707 5.2423,52.9873 5.2931,53.0111 5.3186,53.0176 5.3612,53.0263 5.3789,53.0366 5.3937,53.0595 5.4025,53.0783 5.4068,53.1086 5.4336,53.15 5.4534,53.1664 5.5709,53.2294 5.5903,53.2383 5.8813,53.32 5.9721,53.3365 6.0825,53.3486 6.1679,53.3516 6.1773,53.3503 6.1847,53.3478 6.2866,53.3399 6.4422,53.3629 6.6868,53.3996 6.7102,53.4022 6.7309,53.4035 6.7665,53.397 6.8566,53.3652 6.8905,53.2882 6.9314,53.2608 7.0809,53.1943 7.1889,53.1784 7.1968,53.1809 7.1955,53.1143 7.1994,52.947 7.1848,52.9008 7.1682,52.8727 7.1215,52.8272 7.0796,52.7753 7.0622,52.7581 7.0551,52.7311 7.0539,52.6991 7.0522,52.6601 7.0422,52.5885 7.0227,52.5721 6.8954,52.5868 6.7549,52.5899 6.7082,52.5658 6.717,52.5574 6.7476,52.5035 6.7118,52.4985 6.6789,52.4895 6.6934,52.4273 6.7483,52.4001 6.9432,52.3764 6.9732,52.3964 7.0517,52.3303 7.0595,52.2949 7.0469,52.2768 7.0242,52.245 7.0181,52.2176 7.042,52.177 7.031,52.1711 6.9538,52.1295 6.8918,52.1117 6.8644,52.0818 6.8455,52.0598 6.7488,52.0542 6.726,52.0162 6.7183,51.9751 6.7869,51.9483 6.8182,51.9153 6.7726,51.8645 6.7358,51.8458 6.7122,51.8378 6.6742,51.8516 6.5846,51.836 6.5174,51.8141 6.4526,51.7935 6.3413,51.7881 6.1726,51.835 6.1143,51.828 5.9939,51.77 5.9543,51.7466 5.9736,51.7071 5.9429,51.6874 6.0196,51.6466 6.0841,51.546 6.1247,51.5111 6.1492,51.4987 6.1952,51.454 6.2126,51.4078 6.213,51.3038 6.1337,51.2358 6.0682,51.182 6.0624,51.1548 6.0751,51.115 6.0881,51.072 5.994,51.0249 5.8966,51.0042 5.8562,50.9865 5.8604,50.9597 5.8932,50.914 5.9347,50.9253 6.016,50.919 6.0716,50.8558 6.0754,50.8132 6.0492,50.7918 6.0075,50.783 5.9989,50.7437 6.0026,50.6985 5.9175,50.6974 5.8901,50.6954 5.8617,50.702 5.7886,50.7107 5.7312,50.7014 5.6901,50.6992 5.6833,50.7018 5.6958,50.7234 5.6935,50.7471 5.6853,50.75 5.675,50.7528 5.6451,50.7648 5.6304,50.79 5.6428,50.8164 5.7493,50.9009 5.7556,50.9311 5.7682,50.9668 5.8092,51.056 5.8384,51.094 5.7456,51.1309 5.6361,51.1445 5.5599,51.1615 5.5446,51.2103 5.5,51.2349 5.466,51.2275 5.3963,51.2069 5.3214,51.203 5.2309,51.2028 5.2255,51.25 5.1855,51.2602 5.1536,51.2557 5.1341,51.2605 5.0732,51.3419 5.0933,51.3752 5.069,51.4098 5.0306,51.4273 5.0094,51.411 4.9893,51.3769 4.933,51.3427 4.8455,51.3551 4.8253,51.3703 4.8381,51.4156 4.8185,51.4327 4.7902,51.4418 4.7587,51.4402 4.6947,51.4074 4.664,51.3732 4.6405,51.3638 4.5333,51.3715 4.5333,51.3948 4.5373,51.4235 4.4775,51.4207 4.3888,51.3921 4.3923,51.3543 4.4111,51.3387 4.4268,51.3108 4.4061,51.299 4.3812,51.298 4.3464,51.3018 4.2733,51.3173 4.2457,51.3155 4.196,51.3453 4.0501,51.3664 3.9208,51.3702 3.8972,51.3378 3.8204,51.3303 3.5675,51.3849 3.533,51.3967 3.4388,51.4696 3.452,51.489 3.4804,51.5037 3.5121,51.5173 3.5658,51.5368 3.6864,51.5405 3.8292,51.5467 3.865,51.5405 3.8932,51.509 3.8592,51.4871 3.8376,51.4943 3.8147,51.4893 3.8599,51.479 3.8802,51.4833 3.9238,51.4881 4.0006,51.4655 4.042,51.4494 4.0622,51.4337 4.0757,51.4095 4.0974,51.3878 4.1193,51.3786 4.1427,51.376 4.2401,51.3774 4.2578,51.3845 4.2769,51.3883 4.2855,51.4101 4.278,51.4286 4.2584,51.4498 4.2232,51.4591 4.203,51.456 4.0766,51.471 3.9916,51.5305 4.0358,51.5453 4.0644,51.5516 4.1635,51.5458 4.1868,51.5403 4.2012,51.5297 4.1949,51.5455 4.1797,51.5571 4.1533,51.555 4.1307,51.5557 4.1057,51.5739 4.0997,51.5911 4.0847,51.5806 4.0601,51.57 4.0081,51.5591 3.9677,51.5548 3.8957,51.5746 3.7561,51.615 3.7071,51.6146 3.6882,51.6252 3.6833,51.6503 3.7105,51.6738 3.7751,51.6865 3.8066,51.6847 3.8191,51.6823 3.8758,51.684 3.9578,51.6735 3.9982,51.6502 4.0608,51.6194 4.0979,51.6019 4.1132,51.6147 4.1493,51.6238 4.1612,51.6255 4.121,51.6467 4.0518,51.6946 4.0149,51.732 3.9805,51.7419 3.9499,51.7417 3.8683,51.7264 3.8622,51.7521 3.9861,51.7865 4.0155,51.7792 4.0547,51.8 4.0119,51.9189 4.0455,51.9253 4.0834,51.9236 4.1121,51.9273 4.1373,51.9389 4.3587,52.114 4.3976,52.1497 4.4179,52.1706 4.4346,52.192 4.4874,52.2663 4.5107,52.3002 4.5338,52.3351 4.5439,52.3589 4.5671,52.3934 4.6508,52.3923 4.6996,52.3662 4.8376,52.3493 4.8785,52.3295 4.8991,52.3135 4.9446,52.3122 4.984,52.3004 5.1189,52.2695 5.2359,52.251 5.2869,52.2386 5.3222,52.2152 5.3295,52.2149 5.3634,52.2085 5.3992,52.1911 5.414,52.1884 5.5199,52.2049 5.54,52.2181 5.5574,52.2445 5.5725,52.2644 5.6181,52.2944 5.6615,52.3105 5.6863,52.3194 5.7231,52.3296 5.7614,52.3426 5.8046,52.3676 5.8422,52.402 5.8686,52.4486 5.8632,52.4624 5.8387,52.5165 5.8456,52.5457 5.7496,52.5455 5.6627,52.5465 5.5917,52.5969 5.5877,52.6868 5.6101,52.7179 5.6569,52.7618 5.7091,52.7765 5.6396,52.7939 5.5756,52.7782 5.4032,52.7924 5.3621,52.8186 5.3972,52.8496 5.4108,52.8953 5.401,52.9701 5.3611,53.0085 5.3307,53.0037 5.2878,52.9881 5.2547,52.9734 5.1899,52.9337 5.0921,52.8866 5.0835,52.8243 5.1179,52.7609 5.1882,52.6942 5.215,52.6955 5.2763,52.6834 5.295,52.6436 5.2469,52.6303 5.2317,52.5936 5.2317,52.5936 5,2.0,Netherlands 5.0425,52.5803 5.0216,52.5629 5.0241,52.5543 5.0425,52.5803 5.0425,52.5803 13,2.0,Netherlands 5.0425,52.5803 5.099,52.574 5.1231,52.5581 5.147,52.5575 5.1927,52.5719 5.2245,52.5859 5.2317,52.5936 5.1885,52.5767 5.1597,52.5678 5.1311,52.5628 5.0958,52.5819 5.0425,52.5803 5.0425,52.5803 6,2.0,Netherlands 5.4044,52.4338 5.3691,52.4277 5.2976,52.3943 5.3736,52.4234 5.4044,52.4338 5.4044,52.4338 10,2.0,Netherlands 5.0372,52.5081 5.0597,52.4804 5.0819,52.4499 5.0822,52.3724 5.1293,52.4006 5.0994,52.4275 5.0943,52.4403 5.0635,52.4858 5.0372,52.5081 5.0372,52.5081 17,2.0,Netherlands 5.192,53.2872 5.1783,53.2877 5.1612,53.297 5.1618,53.3134 5.1717,53.3187 5.2097,53.3317 5.2196,53.3343 5.5306,53.3871 5.5478,53.3897 5.5702,53.3861 5.564,53.3735 5.5523,53.3679 5.3445,53.3187 5.3027,53.3096 5.2047,53.2877 5.192,53.2872 5.192,53.2872 14,-5.0,Canada -79.8213,53.2862 -79.7823,53.2314 -79.7833,53.221 -79.7939,53.2096 -79.8125,53.205 -79.8834,53.2029 -79.8941,53.2067 -79.9535,53.2608 -79.9404,53.2891 -79.9306,53.2934 -79.8691,53.3026 -79.8142,53.3058 -79.8213,53.2862 -79.8213,53.2862 21,-8.0,Canada -129.0162,53.2641 -128.9981,53.2597 -128.9836,53.2533 -128.9682,53.2444 -128.9582,53.2339 -128.9355,53.1597 -128.9231,53.0543 -128.927,53.0431 -128.9483,53.0361 -129.0501,53.0364 -129.08,53.0402 -129.1019,53.0552 -129.1169,53.0666 -129.1237,53.0783 -129.1266,53.0907 -129.1275,53.1247 -129.1149,53.1541 -129.0601,53.2677 -129.0448,53.271 -129.0162,53.2641 -129.0162,53.2641 92,-8.0,Canada -128.7471,52.9139 -128.8479,52.8477 -128.8613,52.8425 -128.8871,52.8408 -128.8977,52.843 -128.9552,52.8611 -128.967,52.8749 -128.9773,52.8935 -128.9787,52.904 -128.9828,52.949 -128.9792,52.9624 -128.9577,53.0042 -128.9493,53.0103 -128.9225,53.0161 -128.909,53.0175 -128.9059,53.0068 -128.8734,53.028 -128.8653,53.0444 -128.8613,53.0697 -128.849,53.1692 -128.8502,53.1795 -128.8546,53.189 -128.8618,53.1981 -128.8722,53.2057 -128.8795,53.2251 -128.8725,53.2331 -128.8565,53.2386 -128.8327,53.2426 -128.8118,53.2434 -128.686,53.2271 -128.6698,53.2157 -128.6542,53.2015 -128.634,53.186 -128.6226,53.1787 -128.5659,53.1471 -128.4996,53.1102 -128.4804,53.1027 -128.4663,53.1015 -128.4434,53.1008 -128.4333,53.0995 -128.4159,53.0935 -128.3971,53.0833 -128.3679,53.0433 -128.3241,52.9592 -128.3213,52.9496 -128.3131,52.8977 -128.3112,52.8819 -128.3106,52.8658 -128.3113,52.8495 -128.3128,52.838 -128.3157,52.8267 -128.3663,52.6256 -128.3879,52.5978 -128.3756,52.5966 -128.3804,52.5711 -128.3869,52.5528 -128.3958,52.5472 -128.5447,52.5378 -128.5407,52.6916 -128.4853,52.7945 -128.4461,52.8311 -128.4393,52.8396 -128.4361,52.8539 -128.4345,52.8871 -128.4391,52.9004 -128.46,52.9057 -128.4709,52.8985 -128.5456,52.7717 -128.5563,52.7464 -128.5745,52.6759 -128.5725,52.6601 -128.5648,52.6435 -128.5592,52.6344 -128.573,52.603 -128.6401,52.592 -128.6823,52.5873 -128.7933,52.6361 -128.8261,52.6584 -128.8409,52.6699 -128.8729,52.7112 -128.9012,52.7514 -128.9034,52.7562 -128.9069,52.7605 -128.9113,52.7699 -128.9143,52.7909 -128.9132,52.8048 -128.9028,52.816 -128.8914,52.8184 -128.8725,52.8152 -128.8145,52.8441 -128.7471,52.9139 -128.7471,52.9139 17,-8.0,Canada -128.7471,52.9139 -128.6615,52.9604 -128.6466,52.9636 -128.6302,52.9708 -128.6354,52.9824 -128.6868,53.0209 -128.7583,53.0613 -128.7978,53.0766 -128.8063,53.0696 -128.7957,53.0481 -128.7816,53.0346 -128.7686,53.0382 -128.7515,53.0374 -128.7042,53.0111 -128.655,52.9746 -128.7471,52.9139 -128.7471,52.9139 113,-8.0,Canada -131.0579,52.0594 -131.0915,52.0897 -131.1562,52.1304 -131.1816,52.1454 -131.2038,52.1601 -131.3424,52.2731 -131.3643,52.3001 -131.3708,52.3249 -131.3254,52.3392 -131.3521,52.3707 -131.4606,52.4199 -131.4997,52.4302 -131.5588,52.4475 -131.6821,52.5218 -131.806,52.6163 -131.8714,52.6687 -131.8483,52.694 -131.792,52.7142 -131.7569,52.6993 -131.7329,52.6743 -131.7125,52.6638 -131.7297,52.7078 -131.7537,52.7289 -131.822,52.7515 -131.8471,52.7448 -131.9031,52.6878 -132.0066,52.7472 -132.1033,52.8405 -132.1313,52.8739 -132.1084,52.8855 -132.0352,52.8922 -131.9549,52.8664 -131.9433,52.8973 -131.9003,52.9333 -132.0477,52.968 -132.0813,52.9694 -132.1978,52.9704 -132.2736,52.9683 -132.2954,52.9809 -132.3393,53.0301 -132.343,53.0843 -132.3176,53.0835 -132.2768,53.0703 -132.2364,53.066 -132.1988,53.0658 -132.1638,53.0676 -131.9964,53.0798 -131.8514,53.0941 -131.8163,53.1181 -131.7931,53.1327 -131.7103,53.1699 -131.5852,53.1892 -131.548,53.1345 -131.4174,53.0223 -131.385,52.9789 -131.4213,52.9717 -131.5329,52.9945 -131.5685,53.0087 -131.6083,53.0109 -131.7298,52.9933 -131.7514,52.9847 -131.6972,52.9466 -131.6807,52.9615 -131.6478,52.9782 -131.6084,52.9797 -131.4412,52.9441 -131.4094,52.9332 -131.3915,52.9201 -131.3842,52.9002 -131.4033,52.8588 -131.4564,52.817 -131.484,52.8069 -131.5934,52.8039 -131.6213,52.8235 -131.6369,52.8405 -131.6579,52.8611 -131.6823,52.8771 -131.7288,52.8718 -131.7679,52.8162 -131.7481,52.8132 -131.7261,52.8178 -131.6442,52.7947 -131.5604,52.654 -131.5184,52.6345 -131.4719,52.5785 -131.4492,52.5207 -131.3503,52.4699 -131.2651,52.4434 -131.2146,52.3997 -131.2185,52.354 -131.187,52.3155 -131.1579,52.324 -131.1502,52.3474 -131.112,52.3716 -131.0551,52.3788 -131.0256,52.376 -131.0408,52.3017 -131.0525,52.2846 -131.0949,52.2713 -131.1167,52.2732 -131.1213,52.2277 -131.0572,52.2202 -131.0443,52.2358 -130.968,52.258 -130.9285,52.2506 -130.8874,52.2255 -130.8036,52.1583 -130.8066,52.13 -130.8266,52.1121 -130.9079,52.1077 -130.9666,52.0633 -131.0579,52.0594 -131.0579,52.0594 44,-5.0,Canada -80.956,53.1175 -80.9138,53.0868 -80.8448,53.0493 -80.6788,52.9151 -80.6388,52.8765 -80.5389,52.713 -80.5417,52.6853 -80.5803,52.6303 -80.6137,52.6344 -80.6365,52.6485 -80.6768,52.6597 -80.7316,52.6698 -80.769,52.676 -80.7891,52.6791 -80.8654,52.6847 -80.8901,52.6883 -81.0153,52.729 -81.0753,52.7557 -81.1213,52.7711 -81.1564,52.7785 -81.2381,52.7945 -81.2861,52.8014 -81.453,52.8277 -81.5177,52.8455 -81.6406,52.878 -81.6798,52.8838 -81.7019,52.8847 -81.7491,52.8927 -81.7926,52.9021 -81.8237,52.9125 -81.9252,52.9583 -81.9202,52.9799 -81.8293,53.0623 -81.7778,53.097 -81.7591,53.1064 -81.7234,53.1184 -81.6931,53.1196 -81.5818,53.1267 -81.4106,53.147 -81.2479,53.1629 -81.1633,53.1558 -80.9794,53.1382 -80.956,53.1175 -80.956,53.1175 22,-8.0,Canada -129.2525,53.118 -129.2226,53.0893 -129.1434,53.0103 -129.0812,52.9318 -129.0835,52.9104 -129.1035,52.9052 -129.1325,52.9117 -129.2099,52.9542 -129.2154,52.9785 -129.2198,52.988 -129.2657,53.04 -129.2988,53.0661 -129.3118,53.0692 -129.3343,53.0688 -129.3379,53.0874 -129.3366,53.0984 -129.3284,53.1097 -129.3078,53.1229 -129.284,53.1266 -129.265,53.1246 -129.2525,53.118 -129.2525,53.118 22,2.0,Netherlands 4.7462,52.927 4.7312,52.928 4.7167,52.9336 4.7083,52.9423 4.7009,52.9588 4.7,52.9785 4.7064,52.9944 4.7143,53.0045 4.7357,53.0241 4.8487,53.1218 4.8609,53.1262 4.8759,53.1217 4.9045,53.0802 4.9026,53.0329 4.8956,53.0225 4.8689,52.9951 4.851,52.9773 4.797,52.9451 4.78,52.9373 4.7572,52.9288 4.7462,52.927 4.7462,52.927 18,-5.0,Canada -79.7368,53.1075 -79.7293,53.1049 -79.7166,53.0987 -79.6664,53.0546 -79.659,53.0427 -79.6638,53.0329 -79.7103,53.0212 -79.7798,53.02 -79.7935,53.0215 -79.8015,53.0303 -79.8088,53.0607 -79.8088,53.0733 -79.8032,53.0881 -79.7721,53.1117 -79.7577,53.1127 -79.7478,53.111 -79.7368,53.1075 -79.7368,53.1075 31,-10.0,United States 172.6515,52.6826 172.6227,52.7259 172.5182,52.8064 172.4966,52.818 172.4296,52.8127 172.361,52.8019 172.2165,52.8528 172.2011,52.8607 172.2513,52.8916 172.2666,52.8982 172.308,52.9157 172.3684,52.9401 172.508,52.9503 172.6111,52.9379 172.7472,52.9337 172.8443,52.9309 172.8611,52.9285 173.0327,52.8579 173.0425,52.8452 173.019,52.8186 173.068,52.7954 173.1582,52.7905 173.1558,52.7705 173.1469,52.7656 173.0436,52.7597 172.9166,52.7579 172.8203,52.747 172.7334,52.7359 172.665,52.6854 172.6515,52.6826 172.6515,52.6826 23,-10.0,United States -169.7268,52.7771 -169.7166,52.7836 -169.7022,52.7885 -169.5912,52.8107 -169.5078,52.8238 -169.4875,52.8228 -169.4528,52.8199 -169.4411,52.8165 -169.4086,52.8007 -169.4045,52.7909 -169.4023,52.7563 -169.4361,52.7155 -169.4494,52.7099 -169.4626,52.7105 -169.4749,52.7165 -169.6069,52.7476 -169.6472,52.7282 -169.6875,52.7241 -169.7186,52.7394 -169.7397,52.7567 -169.7333,52.7731 -169.7268,52.7771 -169.7268,52.7771 15,-8.0,Canada -128.2922,52.8093 -128.2818,52.8055 -128.2635,52.7895 -128.2445,52.7439 -128.2476,52.7184 -128.298,52.5832 -128.3089,52.5819 -128.3147,52.5937 -128.3342,52.6419 -128.3288,52.6967 -128.3275,52.7078 -128.3051,52.8027 -128.2993,52.8114 -128.2922,52.8093 -128.2922,52.8093 22,-8.0,Canada -129.0235,52.7547 -129.0108,52.7476 -128.8972,52.6798 -128.8591,52.6534 -128.7407,52.5651 -128.7164,52.5443 -128.7129,52.4663 -128.717,52.4542 -128.7311,52.4194 -128.7411,52.4067 -128.7564,52.3986 -128.7734,52.3921 -128.9087,52.4956 -129.004,52.5878 -129.0562,52.6491 -129.0632,52.658 -129.0848,52.7031 -129.0717,52.7585 -129.0589,52.7649 -129.0443,52.7639 -129.0235,52.7547 -129.0235,52.7547 16,-8.0,Canada -127.9642,52.7562 -127.9702,52.7265 -127.9728,52.7146 -128.0037,52.6405 -128.0434,52.5575 -128.0563,52.5434 -128.0719,52.5356 -128.0836,52.5444 -128.0874,52.6002 -128.1171,52.6798 -128.1197,52.7122 -128.0574,52.7232 -128.0047,52.737 -127.9717,52.7633 -127.9642,52.7562 -127.9642,52.7562 20,-8.0,Canada -128.1672,52.7298 -128.1567,52.6789 -128.153,52.6679 -128.1163,52.5737 -128.0712,52.4322 -128.0822,52.3967 -128.1075,52.3628 -128.165,52.3196 -128.1824,52.3142 -128.1996,52.311 -128.2263,52.3071 -128.2378,52.3071 -128.2541,52.3142 -128.263,52.329 -128.233,52.4824 -128.245,52.5627 -128.2322,52.6918 -128.1805,52.736 -128.1672,52.7298 -128.1672,52.7298 16,-8.0,Canada -131.2581,52.6693 -131.2387,52.6537 -131.2293,52.643 -131.2309,52.6229 -131.246,52.5725 -131.2543,52.5665 -131.3793,52.5246 -131.3911,52.5276 -131.4017,52.5351 -131.4133,52.5477 -131.4985,52.6441 -131.4769,52.6652 -131.4483,52.6689 -131.269,52.6756 -131.2581,52.6693 -131.2581,52.6693 24,-10.0,United States -170.5227,52.4715 -170.5676,52.4907 -170.5696,52.5051 -170.5653,52.5256 -170.5473,52.5604 -170.4723,52.613 -170.3986,52.6333 -170.3582,52.6306 -170.3322,52.6254 -170.3191,52.6212 -170.2915,52.6087 -170.2908,52.5856 -170.3312,52.5319 -170.3426,52.5254 -170.3625,52.5209 -170.3824,52.5202 -170.3924,52.5217 -170.4163,52.5285 -170.4309,52.5288 -170.4637,52.5188 -170.4757,52.5127 -170.4978,52.4984 -170.5227,52.4715 -170.5227,52.4715 27,-8.0,Canada -128.3296,52.5861 -128.3263,52.5599 -128.3236,52.5499 -128.3165,52.5301 -128.296,52.4825 -128.2822,52.4571 -128.275,52.4456 -128.2672,52.4316 -128.2633,52.4219 -128.26,52.4097 -128.2617,52.3984 -128.2664,52.3886 -128.2794,52.378 -128.2896,52.3742 -128.3094,52.3712 -128.3908,52.3991 -128.4582,52.4308 -128.5499,52.4267 -128.5752,52.4338 -128.6074,52.4603 -128.6047,52.479 -128.5302,52.5279 -128.5189,52.5305 -128.3729,52.5324 -128.362,52.5613 -128.3296,52.5861 -128.3296,52.5861 19,-10.0,United States 173.385,52.2881 173.3887,52.3044 173.3534,52.3309 173.3164,52.3343 173.3016,52.3329 173.2849,52.3255 173.2492,52.3199 173.2219,52.3181 173.1,52.341 173.1195,52.3606 173.1788,52.3895 173.3547,52.4427 173.4223,52.4473 173.4901,52.4469 173.509,52.4422 173.4636,52.294 173.4492,52.2915 173.385,52.2881 173.385,52.2881 17,-8.0,Canada -128.4115,52.3875 -128.4093,52.3037 -128.4106,52.2925 -128.4151,52.2663 -128.4238,52.2478 -128.4682,52.2059 -128.5204,52.2517 -128.544,52.3084 -128.5575,52.3641 -128.5544,52.3884 -128.545,52.4086 -128.4732,52.4214 -128.4453,52.4135 -128.432,52.4075 -128.4139,52.3959 -128.4115,52.3875 -128.4115,52.3875 49,-8.0,Canada -127.3948,52.0914 -127.4527,52.0632 -127.4858,52.0139 -127.4907,52.0032 -127.5002,51.9807 -127.5031,51.9687 -127.4989,51.9543 -127.5001,51.9415 -127.5074,51.9279 -127.5202,51.9183 -127.6701,51.8844 -127.6823,51.8863 -127.6922,51.8936 -127.6985,51.9129 -127.7001,51.9257 -127.6996,51.939 -127.6797,52.0186 -127.672,52.0345 -127.6497,52.081 -127.6266,52.1152 -127.6154,52.1307 -127.5955,52.1533 -127.5869,52.1612 -127.5472,52.1861 -127.4979,52.1966 -127.4787,52.1983 -127.453,52.1989 -127.3844,52.2202 -127.3114,52.2449 -127.2567,52.2872 -127.2534,52.3056 -127.2153,52.3245 -127.1605,52.343 -127.0593,52.3749 -127.0325,52.3559 -127.0075,52.2792 -127.0173,52.2649 -127.0304,52.2523 -127.0458,52.2411 -127.0691,52.2277 -127.0877,52.2187 -127.1051,52.2121 -127.1242,52.2073 -127.1603,52.2041 -127.2241,52.1855 -127.2407,52.1791 -127.3815,52.1132 -127.3948,52.0914 -127.3948,52.0914 13,-8.0,Canada -127.8889,52.3476 -127.8817,52.3357 -127.8549,52.2885 -127.8556,52.2677 -127.9488,52.2214 -127.9814,52.2179 -128.0073,52.2183 -127.9857,52.2701 -127.9797,52.279 -127.9091,52.359 -127.8987,52.3591 -127.8889,52.3476 -127.8889,52.3476 65,-10.0,United States -174.1229,51.9947 -174.1696,51.9817 -174.3348,51.9647 -174.445,51.9418 -174.4552,51.9428 -174.4852,51.9541 -174.5128,51.9627 -174.5654,51.9717 -174.6152,51.978 -174.6945,51.9693 -174.726,51.9536 -174.7384,51.9422 -174.8044,51.9382 -174.8529,51.9413 -174.9079,51.947 -174.9841,51.9483 -175.0193,51.948 -175.0373,51.9385 -175.0585,51.956 -174.9126,51.9836 -174.736,52.0125 -174.7234,52.012 -174.7037,51.9943 -174.6424,52.0459 -174.6326,52.0501 -174.524,52.0344 -174.3912,52.0491 -174.3254,52.0585 -174.2293,52.0742 -174.2212,52.0832 -174.2309,52.0886 -174.2517,52.0852 -174.265,52.0868 -174.2752,52.0939 -174.2793,52.113 -174.1659,52.1518 -174.1234,52.1526 -174.1044,52.1501 -174.089,52.1459 -174.0802,52.1416 -174.0688,52.1315 -174.0533,52.1337 -174.0039,52.1493 -173.9536,52.1859 -173.9512,52.201 -173.961,52.2086 -174.0691,52.218 -174.0927,52.2167 -174.1428,52.2278 -174.1596,52.2343 -174.1698,52.2459 -174.1573,52.2585 -174.0607,52.304 -173.9032,52.3568 -173.8822,52.3577 -173.8038,52.3294 -173.7531,52.2949 -173.715,52.2615 -173.718,52.2327 -173.8675,52.0633 -173.9348,52.0385 -174.0076,52.0492 -174.1,52.0377 -174.1229,51.9947 -174.1229,51.9947 21,-10.0,United States -172.2484,52.1822 -172.3307,52.1884 -172.3548,52.1978 -172.347,52.2236 -172.3381,52.2356 -172.2934,52.2739 -172.2001,52.3221 -172.185,52.3264 -172.1644,52.3312 -172.1404,52.3289 -172.0458,52.2926 -172.0305,52.285 -172.0235,52.2641 -172.0407,52.2511 -172.0763,52.2394 -172.1152,52.229 -172.1648,52.2216 -172.2272,52.1968 -172.2389,52.1905 -172.2484,52.1822 -172.2484,52.1822 1286,3.0,Ukraine 31.7338,52.0474 31.7752,52.0508 31.8059,52.0475 31.85,52.0329 31.8588,52.0091 31.9457,51.9942 32.0735,51.9842 32.1744,52.0192 32.2473,52.0485 32.2806,52.1088 32.3132,52.2583 32.3381,52.2734 32.3622,52.2748 32.4758,52.2635 32.5011,52.2594 32.5329,52.2488 32.5572,52.24 32.5876,52.2287 32.6491,52.2075 32.6798,52.2008 32.7069,52.197 32.865,52.1871 32.8896,52.1931 32.9197,52.212 32.986,52.245 33.1532,52.3179 33.3258,52.304 33.3647,52.2946 33.4599,52.2661 33.5485,52.2712 33.5754,52.2812 33.6356,52.2989 33.7088,52.3079 33.7782,52.3025 34.0091,52.1357 34.046,52.0846 34.0239,52.0608 34.0203,51.9981 34.0302,51.977 34.0757,51.926 34.1871,51.8511 34.2839,51.7964 34.3302,51.7832 34.3684,51.7442 34.3876,51.6948 34.3725,51.6682 34.3355,51.6552 34.2021,51.6411 34.1446,51.6367 34.0526,51.6148 34.0488,51.588 34.1101,51.5548 34.1818,51.4843 34.1922,51.4415 34.187,51.3722 34.3292,51.2044 34.3539,51.2044 34.4976,51.1741 34.6192,51.1194 34.6554,51.1151 34.6818,51.1131 34.7134,51.1122 34.7477,51.1143 34.7736,51.1187 34.8668,51.1385 34.8905,51.1568 34.9213,51.1643 35.0226,51.1615 35.0651,51.1402 35.0709,51.1194 35.0657,51.0927 35.0971,51.0148 35.1118,50.9994 35.1412,50.9894 35.1682,50.9893 35.1903,50.9918 35.2397,51.0007 35.3147,50.983 35.3164,50.9624 35.291,50.9475 35.2559,50.9236 35.252,50.9016 35.3038,50.8697 35.4069,50.7045 35.4322,50.6203 35.3457,50.5833 35.3876,50.4537 35.4048,50.4298 35.5443,50.3153 35.591,50.2961 35.6276,50.2888 35.6394,50.2892 35.6894,50.3271 35.7737,50.3649 35.8041,50.3714 35.8398,50.3753 35.8731,50.3776 35.9242,50.3802 35.9533,50.381 36.005,50.3769 36.0376,50.3731 36.0938,50.364 36.134,50.3401 36.145,50.3154 36.1612,50.297 36.2244,50.2365 36.2456,50.2257 36.2726,50.2228 36.2991,50.2294 36.3204,50.2377 36.365,50.2558 36.4225,50.2432 36.5051,50.2115 36.4991,50.1732 36.5235,50.1594 36.5534,50.1551 36.5964,50.1614 36.6147,50.1856 36.6384,50.2047 36.6622,50.2166 36.7549,50.2563 36.8362,50.2792 36.9201,50.2909 36.9611,50.2889 37.0034,50.2798 37.0745,50.2903 37.1607,50.3117 37.1895,50.3219 37.2145,50.3356 37.2363,50.354 37.2664,50.3706 37.3622,50.38 37.4056,50.3779 37.5928,50.1264 37.6894,50.0226 37.7366,50.0113 37.7666,50.004 37.8684,49.9671 37.9254,49.9119 37.9572,49.877 37.9678,49.8459 38.047,49.8811 38.1298,50.0079 38.2475,50.0161 38.2723,50.0081 38.2866,49.9888 38.294,49.9652 38.3044,49.9434 38.3276,49.9277 38.4488,49.8949 38.4901,49.8973 38.5306,49.9074 38.5572,49.9064 38.595,49.9015 38.6318,49.878 38.7682,49.824 38.809,49.8173 38.8415,49.8042 38.8634,49.7784 38.8842,49.754 38.9139,49.75 39.0149,49.7627 39.0342,49.7741 39.0639,49.7987 39.1259,49.8231 39.145,49.8138 39.1811,49.7455 39.19,49.7171 39.2083,49.6994 39.2384,49.6868 39.2705,49.6799 39.3017,49.6757 39.325,49.6784 39.3537,49.6883 39.3847,49.6995 39.4118,49.7003 39.5292,49.6644 39.5547,49.6117 39.5715,49.5705 39.5958,49.5508 39.7537,49.4936 39.801,49.495 39.8398,49.5026 39.8717,49.5118 39.8953,49.524 39.9161,49.5429 39.9396,49.5556 39.9839,49.5598 40.0092,49.5563 40.0807,49.5443 40.0899,49.5207 40.077,49.4987 40.0445,49.4856 40.0202,49.4739 40.0003,49.449 39.9956,49.4172 40.03,49.3679 40.0508,49.3474 40.0899,49.314 40.1136,49.2961 40.1199,49.2763 40.1089,49.1952 40.0229,49.1274 39.9956,49.1176 39.9417,49.0932 39.9081,49.0675 39.8925,49.0516 39.8809,49.0334 39.8832,49.0083 39.8592,48.9942 39.7653,48.9962 39.6474,48.9798 39.6401,48.9605 39.6357,48.9203 39.7175,48.8452 39.8918,48.8115 39.9684,48.8376 40.0008,48.8349 40.0165,48.8202 40.0107,48.7937 39.9813,48.7643 39.9632,48.7527 39.7988,48.7653 39.7709,48.7688 39.7502,48.7638 39.7247,48.7469 39.6694,48.7063 39.6463,48.663 39.6025,48.5482 39.6748,48.5269 39.703,48.5268 39.7325,48.5281 39.7572,48.5222 39.7911,48.5015 39.8095,48.4485 39.8639,48.313 39.9411,48.2421 39.8833,48.162 39.8597,48.1433 39.846,48.1264 39.7189,47.9692 39.7426,47.9461 39.7604,47.9195 39.7461,47.8138 39.7239,47.7876 39.7073,47.7745 39.6743,47.7647 39.6267,47.7689 39.5863,47.7779 39.5481,47.7844 39.423,47.7848 39.3755,47.7769 39.3531,47.777 39.3278,47.7908 39.2974,47.7976 39.1985,47.7981 39.1327,47.7882 39.0855,47.7798 39.0623,47.7828 38.9821,47.8109 38.8687,47.8135 38.8414,47.8136 38.8113,47.8097 38.7903,47.802 38.7669,47.7836 38.7342,47.7241 38.715,47.6664 38.7026,47.635 38.5549,47.5849 38.5224,47.5779 38.4821,47.5736 38.4414,47.5728 38.3987,47.5743 38.2989,47.5541 38.2462,47.5007 38.2259,47.4518 38.1687,47.286 38.2466,47.2473 38.1992,47.1743 38.1726,47.1569 38.1604,47.1338 38.1713,47.0741 38.1812,47.0556 38.0796,47.0087 38.017,47.0414 37.8426,47.0433 37.8057,47.0431 37.7821,47.0392 37.7477,47.0276 37.6976,47.0164 37.5946,47.0211 37.5561,47.0319 37.5061,47.0328 37.4854,47.025 37.4068,46.9575 37.3404,46.8955 37.2679,46.8467 37.1944,46.8793 37.1443,46.8723 37.0257,46.8318 36.9869,46.8204 36.9405,46.8042 36.8642,46.7723 36.8155,46.7374 36.7117,46.6976 36.6895,46.7114 36.6482,46.7191 36.5617,46.7221 36.4634,46.6997 36.365,46.6711 36.344,46.6639 36.3242,46.6558 36.303,46.6419 36.1878,46.5809 36.1633,46.6064 36.1421,46.6136 36.0166,46.6172 35.8562,46.598 35.7613,46.5654 35.7098,46.5399 35.6783,46.5201 35.6486,46.4917 35.5994,46.4485 35.5778,46.4361 35.5325,46.4194 35.4982,46.408 35.4679,46.4023 35.434,46.3889 35.3022,46.279 35.2316,46.2018 35.1465,46.102 35.1112,46.0759 35.0749,46.06 34.9475,46.0216 34.931,46.0337 35.0052,46.0893 35.0599,46.1028 35.1022,46.1112 35.1358,46.1197 35.1546,46.1318 35.1982,46.1806 35.2177,46.207 35.2333,46.218 35.2845,46.269 35.2981,46.297 35.1482,46.3903 35.166,46.3575 35.1558,46.3344 35.0703,46.2465 35.0614,46.2414 35.0074,46.2074 34.9844,46.1975 34.7633,46.1288 34.6536,46.1232 34.5828,46.0297 34.5341,45.9458 34.5177,45.9336 34.4922,45.9314 34.4533,45.9344 34.357,45.9602 34.3929,46.0414 34.414,46.0459 34.4422,46.0594 34.4683,46.0512 34.4926,46.0354 34.5112,46.045 34.5216,46.0687 34.5253,46.1007 34.4883,46.1318 34.4286,46.1083 34.4079,46.1021 34.2809,46.1178 34.1915,46.1755 34.1578,46.2064 34.1352,46.2217 34.1075,46.2288 34.0798,46.1536 34.0758,46.1076 34.079,46.066 33.9845,46.0807 33.9451,46.117 33.927,46.1477 33.9093,46.161 33.7253,46.1956 33.6342,46.169 33.6236,46.1628 33.6582,46.1124 33.6819,46.0925 33.7423,46.0687 33.7543,46.0877 33.7594,46.118 33.7981,46.1076 33.8356,46.0155 33.8523,45.9863 33.9206,45.9648 33.9419,45.9744 33.9419,46.0192 33.8965,46.0355 33.9145,46.0482 33.9574,46.0447 34.0662,45.9653 34.0689,45.9158 34.0916,45.888 34.1134,45.8854 34.1526,45.9039 34.1497,45.9424 34.1733,45.9551 34.1334,45.9808 34.3101,45.9639 34.3334,45.9399 34.3665,45.8962 34.348,45.8732 34.3282,45.8665 34.3102,45.8315 34.4488,45.8226 34.5229,45.8756 34.4969,45.913 34.5652,45.8959 34.5878,45.8852 34.5826,45.8649 34.5545,45.8266 34.4974,45.7902 34.4152,45.7174 34.6006,45.7335 34.7366,45.6638 34.8651,45.6103 34.9375,45.5801 35.0214,45.4995 35.0356,45.4732 35.0444,45.4122 35.0272,45.3959 34.9968,45.3844 34.9647,45.3719 35.0098,45.3139 35.0715,45.2769 35.0841,45.2735 35.1178,45.2851 35.2892,45.2346 35.2937,45.2811 35.183,45.3913 35.0978,45.4756 35.0384,45.5332 35.0052,45.5582 34.953,45.6199 34.9319,45.6487 34.9115,45.6878 34.8972,45.7023 34.8554,45.7608 34.816,45.8111 34.7999,45.8459 34.706,45.9588 34.6682,45.9784 34.6516,45.9938 34.6173,46.0338 34.6846,46.0557 34.7506,46.0353 34.7745,46.02 34.804,45.9486 34.8161,45.9103 34.8531,45.8313 34.8906,45.7678 34.9302,45.7014 34.9421,45.6813 35.0048,45.6018 35.0217,45.5826 35.1999,45.3951 35.27,45.3254 35.3101,45.2996 35.3335,45.2871 35.4082,45.2469 35.4392,45.2368 35.4959,45.2417 35.6473,45.2769 35.8127,45.353 35.8366,45.3405 35.8824,45.3187 35.9047,45.3116 35.9426,45.3067 35.9647,45.3086 35.9903,45.326 36.0064,45.3513 36.0184,45.3734 36.0855,45.4066 36.2402,45.4135 36.4344,45.3899 36.5532,45.367 36.5857,45.3263 36.5858,45.298 36.5693,45.282 36.5234,45.28 36.4896,45.2898 36.443,45.2873 36.3802,45.2198 36.3597,45.1482 36.3544,45.1048 36.3643,45.0768 36.3907,45.0472 36.4026,45.026 36.1776,44.955 36.0838,44.969 35.9589,44.9605 35.9435,44.9475 35.8069,44.9354 35.7837,44.943 35.7619,44.9735 35.7357,45.0017 35.678,45.0293 35.6273,45.0492 35.5923,45.0603 35.5434,45.0679 35.5126,45.0692 35.4771,45.0673 35.3796,45.0231 35.3633,45.0115 35.3477,44.9896 35.2004,44.905 35.0995,44.8411 35.0845,44.8253 35.0734,44.8028 35.0639,44.7742 35.0542,44.7554 35.0338,44.7407 35.0003,44.7419 34.9493,44.7825 34.9151,44.7888 34.6756,44.7586 34.4704,44.6936 34.4137,44.6696 34.3929,44.6542 34.3503,44.6003 34.3288,44.5711 34.3118,44.543 34.2885,44.4985 34.0823,44.3853 33.964,44.3455 33.908,44.3307 33.883,44.3291 33.7913,44.3479 33.748,44.3371 33.6637,44.344 33.5769,44.4018 33.5547,44.4262 33.5315,44.4416 33.4912,44.4363 33.413,44.4622 33.3405,44.5093 33.3224,44.5338 33.4179,44.5525 33.5076,44.573 33.4918,44.6221 33.4727,44.7302 33.4821,44.7461 33.4937,44.7747 33.5091,44.7916 33.5545,44.8069 33.5743,44.8665 33.5653,44.9118 33.5198,45.0364 33.4994,45.0573 33.4664,45.0781 33.3794,45.1222 33.3497,45.1334 33.3157,45.1325 33.2923,45.1228 33.2299,45.1042 33.1291,45.1388 33.1001,45.1579 33.0769,45.1776 33.0269,45.2161 32.9655,45.2529 32.8886,45.2912 32.818,45.3061 32.7948,45.308 32.6817,45.3032 32.6405,45.2838 32.6111,45.261 32.5243,45.2682 32.4643,45.2881 32.4358,45.3423 32.4486,45.3702 32.4832,45.4057 32.5283,45.4306 32.5842,45.4581 32.7883,45.553 32.8524,45.5907 32.8852,45.6055 32.9761,45.6354 33.1375,45.6864 33.1863,45.6904 33.2119,45.6958 33.2636,45.7138 33.3125,45.7354 33.3343,45.7482 33.358,45.7679 33.377,45.7796 33.4336,45.7959 33.5188,45.8096 33.5758,45.8253 33.7218,45.8729 33.6973,45.8928 33.6209,45.9051 33.599,45.9185 33.579,45.9457 33.5811,46.0121 33.5756,46.0717 33.5668,46.09 33.5464,46.1038 33.478,46.0604 33.4638,46.0314 33.4481,46.014 33.4275,46.0007 33.3825,45.9936 33.3364,46.0348 33.2688,46.0718 33.2224,46.089 33.1418,46.1074 33.0784,46.0784 32.8573,46.0585 32.7999,46.0675 32.7655,46.0768 32.7282,46.0773 32.6985,46.0734 32.5886,46.0567 32.5396,46.0437 32.4923,46.0251 32.4545,46.0238 32.3645,46.0391 32.2921,46.0554 32.2189,46.0744 32.1979,46.1204 31.982,46.2037 31.8738,46.2312 31.8449,46.2287 31.7861,46.2242 31.7654,46.2262 31.7455,46.2316 31.721,46.257 31.7703,46.2868 31.8065,46.2894 31.8372,46.2876 31.8723,46.2875 31.8979,46.2902 31.9304,46.2973 32.0113,46.3389 31.9619,46.395 31.9215,46.4002 31.7713,46.43 31.7646,46.432 31.7276,46.4405 31.6612,46.4364 31.6135,46.4184 31.5582,46.4507 31.4823,46.5045 31.47,46.5262 31.4952,46.5086 31.5121,46.4972 31.5433,46.4888 31.5757,46.4871 31.628,46.4919 31.6509,46.4976 31.6986,46.5013 31.719,46.5003 31.7925,46.4766 31.8076,46.4696 31.8514,46.4656 32.0473,46.4568 32.1355,46.4385 32.2311,46.4155 32.274,46.4089 32.3025,46.4061 32.3704,46.4446 32.367,46.4728 32.4028,46.4994 32.4447,46.5225 32.5118,46.5434 32.5498,46.5507 32.5686,46.5606 32.5954,46.5892 32.4725,46.5552 32.41,46.5316 32.3755,46.5151 32.3541,46.5085 32.3296,46.5043 32.2826,46.5034 32.2534,46.5121 32.2356,46.5248 32.1973,46.5481 32.139,46.5277 32.0964,46.5074 31.9684,46.581 31.9479,46.6009 31.9257,46.6402 31.9212,46.6735 31.9034,46.6874 31.8906,46.7108 31.8898,46.7407 31.9013,46.767 31.9343,46.7918 31.9477,46.8154 31.9627,46.8513 31.9659,46.8724 31.9353,46.9538 31.7946,47.126 31.7061,47.1984 31.6816,47.1777 31.7096,47.1477 31.7535,47.1371 31.7714,47.1239 31.825,47.0262 31.7969,46.9878 31.7942,46.9593 31.8623,46.8706 31.8909,46.8675 31.9196,46.8719 31.9186,46.8364 31.8955,46.8013 31.8425,46.7787 31.8266,46.7636 31.8185,46.7422 31.8266,46.7167 31.8503,46.6986 31.8618,46.6806 31.863,46.6006 31.8146,46.5752 31.7671,46.5624 31.694,46.5739 31.667,46.585 31.6472,46.5909 31.6022,46.6003 31.5702,46.5949 31.5486,46.578 31.5308,46.5545 31.4332,46.5787 31.4434,46.6028 31.4678,46.6167 31.5057,46.6658 31.551,46.7438 31.4761,46.6867 31.46,46.6634 31.4254,46.6154 31.3754,46.5723 31.2928,46.5489 31.2238,46.5551 31.1933,46.5599 31.1448,46.5715 31.133,46.5726 31.1121,46.5703 31.0294,46.5613 31.009,46.5589 30.9715,46.5503 30.8974,46.5294 30.7893,46.4951 30.7364,46.4286 30.7501,46.3926 30.7216,46.3262 30.6126,46.2009 30.4662,46.044 30.2039,45.8216 30.1213,45.7774 30.102,45.7685 30.0211,45.7478 30.0052,45.7605 29.988,45.7791 29.9415,45.7911 29.888,45.7655 29.7603,45.6831 29.7556,45.6629 29.784,45.6347 29.8179,45.6235 29.7808,45.5965 29.7386,45.5771 29.701,45.5723 29.6382,45.6444 29.6356,45.6875 29.6479,45.7165 29.6396,45.7515 29.5945,45.7687 29.5546,45.6316 29.5516,45.5051 29.5779,45.4361 29.6326,45.4137 29.6913,45.4196 29.7118,45.3977 29.7189,45.2707 29.6905,45.175 29.6673,45.162 29.6229,45.1605 29.6306,45.2209 29.6274,45.2432 29.6136,45.2763 29.5995,45.2949 29.5618,45.3254 29.5395,45.3374 29.4695,45.3592 29.3704,45.3841 29.2806,45.3872 29.1807,45.374 28.9275,45.2697 28.8085,45.2501 28.7574,45.1865 28.6608,45.1688 28.5349,45.1912 28.3363,45.2492 28.3039,45.2641 28.2783,45.2855 28.2597,45.3111 28.2459,45.3438 28.2396,45.3775 28.1874,45.3976 28.1754,45.3968 28.1759,45.4116 28.193,45.4437 28.2076,45.4595 28.2271,45.4685 28.2494,45.474 28.2766,45.4757 28.3058,45.4714 28.3268,45.4662 28.3599,45.4602 28.4431,45.4546 28.4758,45.4631 28.4906,45.4799 28.4847,45.5952 28.4506,45.6137 28.4845,45.659 28.5567,45.7161 28.6398,45.7275 28.7264,45.8106 28.7102,45.874 28.7229,45.9094 28.7607,45.92 28.789,45.9259 28.8561,45.9381 28.9274,45.9536 28.9993,46.1428 28.9809,46.1651 28.9093,46.2367 28.8933,46.3771 28.9353,46.4151 28.9533,46.4254 28.998,46.4437 29.1328,46.4865 29.1622,46.4918 29.182,46.4666 29.1872,46.4317 29.1786,46.3538 29.1611,46.3301 29.1766,46.3146 29.197,46.3153 29.266,46.3515 29.264,46.3755 29.3092,46.4171 29.4578,46.4318 29.4529,46.3893 29.5603,46.3239 29.5919,46.3167 29.6205,46.3264 29.6925,46.3881 29.7832,46.3157 29.8243,46.2934 29.8812,46.3291 29.9242,46.3267 29.9541,46.326 30.0064,46.3259 30.056,46.3283 30.0861,46.3524 30.0742,46.3734 30.0541,46.3768 30.0234,46.3825 29.993,46.3903 29.9644,46.4039 29.8864,46.4524 29.857,46.4823 29.8739,46.5056 29.9226,46.517 29.9292,46.6888 29.902,46.7647 29.8246,46.8077 29.6953,46.8367 29.5322,46.8939 29.5505,46.9695 29.53,47.0889 29.557,47.225 29.5484,47.2564 29.5248,47.2836 29.4597,47.2905 29.4479,47.2734 29.4365,47.2434 29.3719,47.237 29.3385,47.2752 29.3389,47.3021 29.3168,47.3242 29.2575,47.3681 29.2039,47.4035 29.1812,47.3946 29.1486,47.3853 29.1011,47.4577 29.0937,47.4946 29.1185,47.5273 29.1536,47.5547 29.2155,47.7117 29.1337,47.9 29.1029,47.9286 29.0615,47.9318 29.0317,47.9221 29.0193,47.8969 29.0013,47.8809 28.9747,47.8776 28.9409,47.8823 28.92,47.8918 28.859,47.9337 28.8406,47.9506 28.8382,47.9556 28.7869,48.0545 28.7659,48.0703 28.696,48.0836 28.6012,48.0985 28.5165,48.1067 28.461,48.0792 28.3958,48.0909 28.3478,48.1086 28.3264,48.136 28.3296,48.1668 28.3062,48.1868 28.2499,48.1814 28.2194,48.1655 28.1952,48.1516 28.1724,48.1512 28.0454,48.1875 28.053,48.2361 28.0344,48.2559 27.9743,48.2613 27.9155,48.2722 27.8917,48.2822 27.8726,48.2926 27.8506,48.3088 27.84,48.3256 27.8261,48.3451 27.7232,48.3943 27.5074,48.4129 27.4796,48.4101 27.4143,48.3842 27.1999,48.313 26.942,48.3024 26.7696,48.2779 26.6636,48.2848 26.6131,48.2456 26.5994,48.2185 26.5967,48.2019 26.5294,48.1674 26.4924,48.153 26.4694,48.1584 26.4306,48.1622 26.2796,48.121 26.2344,48.0211 26.1559,47.9468 26.1211,47.9303 26.0773,47.9266 26.0653,47.9269 25.9997,47.9288 25.8848,47.9198 25.8013,47.9085 25.7803,47.9003 25.7436,47.8822 25.6091,47.8789 25.5518,47.8797 25.5316,47.8811 25.4883,47.8799 25.4652,47.8786 25.2974,47.8619 25.2101,47.8339 25.1884,47.8213 25.139,47.7687 25.1178,47.7357 25.0811,47.705 25.0496,47.6897 25.0136,47.6787 24.994,47.6745 24.9636,47.6701 24.9255,47.6664 24.8933,47.6587 24.8629,47.6634 24.8277,47.7053 24.7857,47.7536 24.7671,47.7631 24.7349,47.7659 24.6816,47.784 24.6583,47.7946 24.6353,47.8121 24.6345,47.8409 24.5799,47.8791 24.5532,47.8911 24.537,47.8946 24.5211,47.8984 24.4188,47.9037 24.3866,47.9028 24.2919,47.874 24.2122,47.8491 24.093,47.8573 24.0615,47.8777 23.9978,47.9011 23.9352,47.9065 23.7896,47.9122 23.5323,47.9452 23.4806,47.9345 23.4691,47.9278 23.3768,47.9455 23.3227,47.966 23.2654,47.99 23.2458,48.0203 23.2273,48.0351 23.1409,48.0532 23.1191,48.0508 23.0925,48.0342 23.0792,48.008 23.069,47.9795 23.0544,47.9586 23.0102,47.9383 22.8971,47.9056 22.8621,47.8997 22.8264,47.9389 22.8505,47.9857 22.8138,48.0281 22.7573,48.0615 22.705,48.0594 22.6472,48.0399 22.6145,48.0395 22.5933,48.0454 22.5725,48.0613 22.5653,48.0908 22.5421,48.132 22.462,48.1944 22.4223,48.1883 22.3486,48.1897 22.3156,48.2196 22.2382,48.3047 22.2381,48.3469 22.1821,48.3624 22.1395,48.3536 22.1193,48.3564 22.1275,48.5226 22.1414,48.5372 22.2029,48.5692 22.2962,48.6311 22.3564,48.7442 22.3922,48.8333 22.4286,48.8935 22.502,48.9387 22.5186,48.9834 22.5253,49.0232 22.5356,49.0317 22.5611,49.0354 22.7045,48.9912 22.8297,48.9471 22.8527,48.9469 22.83,48.9936 22.8432,49.0313 22.8193,49.0496 22.7447,49.0943 22.6707,49.1135 22.6935,49.1615 22.7256,49.2292 22.6996,49.3405 22.6613,49.3943 22.6234,49.4732 22.6451,49.5126 22.6529,49.5202 22.6838,49.5477 22.7465,49.6181 23.0765,49.8975 23.1119,49.9256 23.1934,49.989 23.2689,50.0431 23.2897,50.0576 23.3078,50.0696 23.3432,50.0918 23.4609,50.1631 23.505,50.1847 23.5333,50.1977 23.5557,50.211 23.6486,50.2756 23.6613,50.3119 23.6819,50.3256 23.7201,50.3363 23.7561,50.3443 23.7786,50.3477 23.8111,50.3487 23.8455,50.3473 23.8935,50.3454 23.9469,50.3478 23.9661,50.3561 24.0749,50.5084 24.0721,50.5673 24.0706,50.5752 24.0358,50.6371 23.9784,50.6813 23.918,50.7332 23.9218,50.7565 23.9446,50.7707 23.9854,50.7731 24.0159,50.7725 24.0404,50.7707 24.0944,50.7795 24.1066,50.8009 24.0536,50.8233 24.0247,50.8289 23.9975,50.8396 23.9517,50.8723 23.9284,50.8917 23.895,50.9351 23.8686,51.009 23.7745,51.1098 23.7202,51.14 23.6956,51.1556 23.6475,51.2291 23.6447,51.3097 23.6563,51.3428 23.607,51.4253 23.5776,51.439 23.5682,51.4682 23.6046,51.464 23.5912,51.52 23.5766,51.547 23.6133,51.5763 23.7144,51.5919 23.8644,51.5744 23.8857,51.5602 23.9012,51.5364 23.9262,51.5257 23.961,51.5331 24.0057,51.5505 24.0334,51.5653 24.2455,51.6812 24.2595,51.7047 24.2684,51.7429 24.2765,51.7638 24.3562,51.8246 24.6615,51.8337 24.7021,51.8296 24.8587,51.8405 24.9527,51.8518 25.0129,51.8721 25.0544,51.8819 25.1336,51.8992 25.2014,51.8994 25.2301,51.8933 25.2725,51.8793 25.3124,51.8683 25.4001,51.862 25.5067,51.8618 25.5227,51.8597 25.5585,51.8586 25.6457,51.862 25.6935,51.867 25.7302,51.8778 25.7781,51.8757 25.9864,51.8502 26.1035,51.8183 26.1346,51.8026 26.1669,51.7984 26.2556,51.7936 26.2975,51.7972 26.3231,51.7987 26.3943,51.796 26.3987,51.7631 26.4161,51.7527 26.4572,51.7517 26.4893,51.7534 26.5295,51.7582 26.5667,51.761 26.601,51.7606 26.631,51.7551 26.681,51.7425 26.7307,51.7256 26.7791,51.7126 26.853,51.6954 26.8844,51.6904 26.9063,51.689 26.929,51.6921 26.9773,51.7083 27.0387,51.7111 27.1278,51.704 27.1604,51.6913 27.1623,51.6574 27.157,51.6154 27.2403,51.5385 27.3741,51.5376 27.4107,51.5429 27.4691,51.5692 27.5542,51.5559 27.6443,51.5417 27.6813,51.5218 27.6669,51.4909 27.6387,51.4337 27.705,51.4069 27.7738,51.4734 27.771,51.5086 27.7708,51.5323 27.7891,51.5494 27.8227,51.562 27.8526,51.5534 27.8824,51.5319 27.912,51.5153 27.9402,51.506 27.9628,51.5025 28.0354,51.5048 28.0656,51.5099 28.0945,51.5232 28.114,51.5502 28.1382,51.5778 28.172,51.5958 28.2128,51.5995 28.2754,51.5293 28.3894,51.5063 28.4239,51.5183 28.4464,51.5212 28.584,51.505 28.5885,51.4839 28.5928,51.4504 28.6087,51.405 28.6221,51.3871 28.7129,51.356 28.7249,51.3886 28.7217,51.4217 28.7485,51.4565 28.766,51.4749 28.7921,51.4904 29.0075,51.5713 29.0389,51.578 29.0729,51.5772 29.1178,51.568 29.136,51.5582 29.1964,51.4814 29.2045,51.4427 29.2667,51.3281 29.2971,51.3136 29.3084,51.316 29.3643,51.3434 29.5781,51.431 29.6301,51.4397 29.6729,51.4316 29.6921,51.3976 29.7168,51.3812 29.7883,51.3823 29.8353,51.4001 29.8656,51.4131 29.9369,51.4266 29.9659,51.4297 29.9966,51.4308 30.1054,51.4338 30.1334,51.432 30.1603,51.4243 30.3006,51.3406 30.3034,51.2987 30.4177,51.2358 30.5043,51.1927 30.5208,51.2386 30.5687,51.2646 30.5954,51.2717 30.5965,51.3094 30.5391,51.4294 30.5067,51.4822 30.5175,51.5836 30.5782,51.6479 30.6193,51.7411 30.6142,51.7617 30.6989,51.8352 30.7769,51.8874 30.8485,51.9176 30.9105,51.9405 30.8822,51.9718 30.8865,52.0012 30.9111,52.0191 31.0574,52.0258 31.0835,52.0261 31.2471,52.0263 31.2745,52.0445 31.2966,52.0533 31.3214,52.057 31.3731,52.0597 31.4531,52.0569 31.4741,52.056 31.5724,52.0485 31.6849,52.0457 31.7338,52.0474 31.7338,52.0474 17,-8.0,Canada -127.7277,52.1091 -127.8342,52.117 -127.8518,52.1199 -127.8806,52.127 -127.8904,52.1316 -127.9656,52.1866 -127.9559,52.1956 -127.8666,52.2339 -127.8409,52.2403 -127.7733,52.2352 -127.7593,52.2289 -127.7484,52.2192 -127.7054,52.1424 -127.7086,52.1258 -127.7192,52.115 -127.7277,52.1091 -127.7277,52.1091 12,-8.0,Canada -128.1057,52.0685 -128.1624,52.102 -128.1704,52.1247 -128.1756,52.1565 -128.1707,52.1657 -128.1537,52.1753 -128.1422,52.1781 -128.0944,52.1765 -128.0267,52.1549 -128.0974,52.0732 -128.1057,52.0685 -128.1057,52.0685 20,-8.0,Canada -127.9458,52.1227 -127.953,52.0959 -127.9565,52.0592 -127.9509,52.0458 -127.9454,52.0325 -127.9491,52.0206 -128.0074,51.9568 -128.019,51.9542 -128.0407,51.9552 -128.0515,51.9592 -128.0887,52.0414 -128.0905,52.0557 -128.0501,52.1107 -128.0394,52.1216 -128.0292,52.127 -127.9854,52.1329 -127.9552,52.1352 -127.9442,52.1285 -127.9458,52.1227 -127.9458,52.1227 17,-8.0,Canada -127.7277,52.1091 -127.6892,52.1112 -127.6783,52.109 -127.6899,52.0685 -127.7437,52.0172 -127.7611,52.0144 -127.8493,52.0136 -127.8607,52.0145 -127.8746,52.0197 -127.8919,52.0303 -127.9056,52.0424 -127.9155,52.085 -127.9046,52.0919 -127.8294,52.1027 -127.8138,52.1043 -127.7277,52.1091 -127.7277,52.1091 19,-8.0,Canada -130.8704,52.0896 -130.803,52.0424 -130.7863,52.0006 -130.7988,51.9457 -130.8146,51.8834 -130.8272,51.8828 -130.8427,51.8912 -130.8681,51.9104 -130.889,51.9298 -130.8956,51.9424 -130.9142,51.995 -130.9207,52.0352 -130.9196,52.0465 -130.9156,52.0644 -130.9064,52.0891 -130.8951,52.0913 -130.8769,52.0909 -130.8704,52.0896 -130.8704,52.0896 39,-10.0,United States -173.2224,51.9545 -173.2316,51.9611 -173.2883,51.9886 -173.4005,51.997 -173.4329,51.9918 -173.4596,51.9848 -173.5541,51.9748 -173.5641,51.9759 -173.6492,51.9912 -173.7546,52.0441 -173.7822,52.0627 -173.7761,52.0721 -173.519,52.0457 -173.5078,52.056 -173.4983,52.0605 -173.4823,52.0644 -173.3624,52.0869 -173.3523,52.0875 -173.3181,52.089 -173.2751,52.086 -173.2689,52.0592 -173.2385,52.0452 -173.1674,52.0421 -173.0903,52.041 -173.0274,52.0435 -172.986,52.0466 -172.9105,52.0475 -172.8997,52.047 -172.8656,52.044 -172.7503,52.0333 -172.6865,52.0236 -172.7543,52.0098 -172.8848,51.9947 -172.9091,51.9949 -172.9412,52.0059 -172.9609,52.0106 -173.2011,51.9756 -173.2224,51.9545 -173.2224,51.9545 1148,8.0,Mongolia 114.8614,50.0874 114.8795,50.0722 114.9225,50.0234 115.0423,49.936 115.0895,49.9086 115.2192,49.8465 115.2437,49.841 115.3507,49.8381 115.3843,49.8471 115.4082,49.8498 115.4382,49.8473 115.4636,49.842 115.5026,49.8318 115.5584,49.8235 115.5904,49.8293 115.6166,49.8384 115.647,49.8515 115.7155,49.8798 115.8771,49.9388 115.8975,49.9452 115.925,49.9531 115.9775,49.9636 116.0433,49.9707 116.073,49.9701 116.1179,49.9566 116.1802,49.9336 116.2525,49.91 116.2795,49.9026 116.3265,49.8933 116.444,49.8717 116.5279,49.7871 116.5387,49.7731 116.4744,49.6809 116.3982,49.5697 116.3291,49.4681 116.2597,49.3657 116.1783,49.2452 116.1094,49.1429 115.9602,48.9194 115.8899,48.8122 115.915,48.76 115.7993,48.6348 115.7735,48.6081 115.643,48.465 115.6545,48.3476 115.6613,48.2832 115.6641,48.251 115.667,48.2186 115.6682,48.1971 115.4542,48.1181 115.3823,48.0883 115.4279,47.8629 115.7566,47.6372 115.7996,47.6356 115.8733,47.6977 115.9305,47.75 115.9486,47.7671 116.0951,47.8234 116.2012,47.8042 116.3401,47.7906 116.4247,47.8025 116.559,47.8212 116.6247,47.8274 116.7065,47.8334 116.9452,47.7521 117.1595,47.6146 117.1843,47.603 117.2141,47.6029 117.4474,47.7954 117.4721,47.8196 117.4928,47.8391 117.6348,47.9564 117.6685,47.9603 117.7098,47.9635 117.8855,47.958 118.0597,47.975 118.2237,47.949 118.3684,47.9399 118.4373,47.8859 118.4965,47.8242 118.5965,47.718 118.6491,47.7017 118.8013,47.6562 118.885,47.6312 118.954,47.6107 118.9604,47.5799 118.9788,47.4796 119.0705,47.4551 119.1702,47.408 119.1678,47.3656 119.236,47.3164 119.2684,47.3029 119.3273,47.2675 119.4549,47.1873 119.4852,47.1655 119.5568,47.1127 119.6046,47.0562 119.6182,47.0295 119.6193,46.9653 119.6281,46.9443 119.7008,46.8681 119.752,46.8488 119.7612,46.6617 119.7279,46.6236 119.6847,46.6033 119.5815,46.5604 119.537,46.546 119.5098,46.5509 119.483,46.5699 119.3664,46.5814 119.2933,46.5861 119.2716,46.5833 119.2479,46.5736 119.2265,46.5645 119.1937,46.5614 119.1313,46.5679 118.9226,46.6135 118.9017,46.6196 118.8698,46.64 118.851,46.664 118.8031,46.689 118.718,46.7164 118.6979,46.7185 118.673,46.7098 118.6189,46.6634 118.6061,46.6336 118.2882,46.6412 118.2687,46.6459 118.2414,46.6665 118.1467,46.6832 118.1231,46.6778 117.9498,46.6248 117.7666,46.5663 117.7412,46.5519 117.709,46.5284 117.696,46.5112 117.6786,46.4836 117.55,46.4609 117.466,46.4982 117.4352,46.5527 117.2586,46.5176 117.2777,46.4749 117.2268,46.4044 117.2096,46.3661 117.2164,46.3461 117.2048,46.3116 116.9131,46.3091 116.7368,46.3311 116.6763,46.3407 116.6537,46.3302 116.612,46.2984 116.5937,46.2783 116.5071,46.2746 116.4207,46.243 116.4054,46.1997 116.3763,46.1725 116.295,46.1156 116.2551,46.0887 116.2201,46.0599 116.1952,46.0312 116.1304,45.9437 116.1013,45.8984 116.0727,45.8486 116.0759,45.8241 116.1051,45.7911 116.1168,45.757 116.0472,45.6698 116.0264,45.6567 115.987,45.6415 115.9492,45.6291 115.9256,45.6313 115.8685,45.6335 115.7745,45.584 115.6386,45.4937 115.54,45.407 115.3128,45.3626 115.2308,45.3472 115.1334,45.3489 115.013,45.3522 114.8083,45.3334 114.7771,45.3311 114.6842,45.3587 114.5823,45.3889 114.3847,45.3379 114.383,45.2973 114.381,45.2712 114.294,45.1549 114.1987,45.0919 114.1774,45.0782 114.0835,45.0198 113.9854,44.9453 113.9709,44.9295 113.9157,44.8881 113.8628,44.8787 113.8308,44.874 113.81,44.8733 113.7572,44.8717 113.6576,44.8108 113.5855,44.7594 113.5628,44.7424 113.4787,44.6946 113.3927,44.702 113.3519,44.7266 113.0839,44.7379 112.9843,44.7446 112.695,44.7954 112.4496,44.8754 112.4345,44.9 112.3988,44.9428 112.343,44.9827 112.2704,45.0293 112.2077,45.0166 112.0743,45.0201 111.9409,45.024 111.9274,45.04 111.8946,45.0493 111.8243,45.0406 111.7169,44.9984 111.6283,44.9497 111.6086,44.9223 111.4743,44.7234 111.4115,44.6264 111.4143,44.5981 111.4155,44.5699 111.4122,44.5466 111.3994,44.5199 111.3598,44.4708 111.34,44.4487 111.3194,44.4261 111.3027,44.4082 111.283,44.3888 111.273,44.3686 111.2654,44.3251 111.2736,44.2828 111.3692,44.1934 111.4011,44.1248 111.5208,44.0001 111.5615,43.9839 111.6521,43.9468 111.7231,43.889 111.8035,43.7858 111.8206,43.7199 111.8082,43.6627 111.8023,43.6429 111.7414,43.6247 111.6279,43.6232 111.6013,43.6005 111.483,43.4942 111.3473,43.4452 111.1715,43.383 111.0708,43.3561 110.9225,43.3102 110.8351,43.2678 110.7174,43.1532 110.589,43.0454 110.536,43.0051 110.52,42.9548 110.4862,42.908 110.4695,42.8914 110.4112,42.8483 110.362,42.8221 110.3187,42.7979 110.2958,42.7495 110.2874,42.7294 110.2081,42.7022 109.9806,42.6256 109.9536,42.5978 109.8475,42.5942 109.7828,42.5929 109.5917,42.5277 109.5379,42.5078 109.3931,42.426 109.3623,42.4085 109.2422,42.4027 109.1695,42.3999 109.1592,42.3823 108.9469,42.4015 108.8489,42.4104 108.6966,42.352 108.5295,42.3745 108.3776,42.3945 108.1567,42.3893 108.0994,42.4143 108.0744,42.4111 107.7584,42.3603 107.414,42.3679 107.3959,42.3828 107.3738,42.4017 107.3478,42.4152 107.327,42.4185 107.1288,42.3626 107.1139,42.3123 106.8698,42.2682 106.8381,42.2629 106.7069,42.2527 106.6344,42.2477 106.3493,42.1542 105.9759,42.03 105.7092,41.94 105.4425,41.844 105.3295,41.7873 105.2055,41.738 105.0774,41.6997 104.8619,41.5399 104.786,41.605 104.7034,41.6029 104.5403,41.599 104.3797,41.6238 104.3813,41.7143 104.3826,41.8301 103.9258,41.7572 103.7061,41.7553 103.2736,41.84 103.2097,41.8652 103.0014,41.9467 102.7405,42.049 102.5704,42.114 102.4085,42.1192 102.3736,42.1142 102.3296,42.1071 102.3008,42.1036 101.9361,42.1856 101.8944,42.2284 101.8513,42.2751 101.6736,42.4618 101.4547,42.4826 101.2707,42.5194 101.0793,42.5566 100.8329,42.6042 100.7026,42.629 100.5574,42.6334 100.1736,42.6415 100.1159,42.5929 99.9946,42.5962 99.893,42.6008 99.8478,42.6055 99.3724,42.5237 99.1648,42.5356 99.1029,42.5386 98.9823,42.546 98.6322,42.5676 98.3518,42.5837 98.2257,42.5906 98.1835,42.5926 98.0851,42.5976 98.0631,42.6 97.9383,42.6188 97.691,42.6556 97.6199,42.6664 97.4675,42.6883 97.3979,42.698 97.3563,42.7037 97.3146,42.7095 97.251,42.7191 97.0305,42.7476 96.864,42.7132 96.8252,42.7117 96.7121,42.7105 96.6268,42.7079 96.5918,42.7061 96.4348,42.6958 96.2646,42.6834 96.2485,42.6868 96.2232,42.8583 95.9894,43.0331 95.8068,43.1678 95.784,43.1851 95.7458,43.2351 95.7367,43.2705 95.7361,43.3059 95.7318,43.3617 95.7175,43.3861 95.7009,43.4048 95.6742,43.4394 95.6451,43.4846 95.6128,43.5356 95.5868,43.5827 95.5413,43.6701 95.5318,43.689 95.5229,43.7095 95.5123,43.7354 95.5054,43.7563 95.4936,43.8096 95.4,43.9435 95.3445,43.9439 95.2933,43.949 95.2508,43.9557 95.2258,43.96 95.208,43.9694 95.213,44.1082 95.2171,44.1276 95.2426,44.1762 95.264,44.1982 95.2867,44.2258 95.2771,44.2442 95.1526,44.2378 95.0697,44.2254 95.046,44.2228 94.8958,44.2069 94.585,44.3048 94.5705,44.3221 94.5521,44.3424 94.5238,44.3653 94.4707,44.4013 94.3976,44.4296 94.3096,44.4651 94.211,44.5069 94.1981,44.5245 94.1813,44.5398 94.1143,44.5818 93.979,44.6593 93.9538,44.6721 93.8387,44.7266 93.788,44.747 93.7291,44.7677 93.7042,44.7778 93.6242,44.8117 93.6039,44.8249 93.5848,44.8459 93.5437,44.8648 93.5238,44.872 93.4431,44.8998 93.4235,44.9063 93.3996,44.9113 93.2392,44.9397 93.1866,44.9339 93.1614,44.9326 93.1297,44.9389 93.1023,44.9469 93.0491,44.9655 93.0418,44.9628 93.0182,44.9597 92.9564,44.9591 92.86,44.9587 92.7985,44.9745 92.7531,44.9946 92.6587,44.9966 92.6272,44.9901 92.5911,44.9827 92.5236,44.9709 92.363,44.9525 92.1811,44.9753 91.9638,45.0284 91.9388,45.032 91.9101,45.0329 91.8846,45.0311 91.7395,45.0237 91.4332,45.0261 91.4024,45.0459 91.374,45.073 91.3433,45.101 91.3159,45.1017 91.2741,45.075 91.2514,45.0676 91.1584,45.0827 91.1231,45.0923 91.103,45.0999 91.0633,45.1195 91.037,45.1496 91.0107,45.1622 90.9116,45.1729 90.884,45.1722 90.7699,45.2016 90.6805,45.3194 90.6501,45.3848 90.6265,45.3986 90.5913,45.4183 90.557,45.4402 90.5549,45.5278 90.5922,45.6835 90.7291,45.8349 90.7465,45.8508 90.8175,45.9064 90.8369,45.9208 90.8754,45.9435 90.8982,45.965 90.8984,46.0556 90.8886,46.0817 90.8609,46.1031 90.8471,46.1207 90.8335,46.145 90.793,46.2442 90.8027,46.2726 90.832,46.2984 90.9247,46.4707 90.9323,46.4898 90.9414,46.5244 90.8915,46.5469 90.9074,46.6178 90.9143,46.6716 90.8999,46.6986 90.821,46.8365 90.7843,46.8987 90.7609,46.917 90.728,46.9351 90.7065,46.9413 90.6817,46.9405 90.64,46.944 90.5822,46.9881 90.4523,47.1423 90.4149,47.1907 90.3641,47.2629 90.3363,47.4462 90.2955,47.4734 90.2701,47.5025 90.2216,47.5735 90.1389,47.6427 90.0138,47.6778 89.9707,47.7142 89.9578,47.7351 89.9518,47.7761 89.961,47.8083 89.9412,47.8331 89.8622,47.8388 89.8395,47.8232 89.8334,47.7937 89.8021,47.7805 89.6564,47.7747 89.5412,47.8567 89.4725,47.9276 89.4735,47.9529 89.4637,47.9724 89.4195,47.987 89.2611,47.9917 89.1647,47.9462 89.0963,47.9259 88.9567,47.939 88.9351,47.951 88.911,47.9756 88.8908,47.9956 88.828,48.0479 88.8092,48.0591 88.733,48.0614 88.5317,48.1248 88.4839,48.1568 88.4703,48.1752 88.4551,48.2318 88.4639,48.2615 88.4627,48.2931 88.3886,48.3505 88.1921,48.4244 88.1139,48.4502 88.0848,48.4462 88.0633,48.4451 87.9195,48.4893 87.886,48.5008 87.8642,48.51 87.8397,48.5321 87.8467,48.555 87.9046,48.5912 87.9583,48.6407 87.9314,48.6791 87.911,48.6913 87.8634,48.7098 87.8293,48.7106 87.8059,48.7058 87.7145,48.7387 87.6331,48.8251 87.6466,48.8634 87.6842,48.8839 87.714,48.889 87.7447,48.899 87.7646,48.927 87.7705,48.9496 87.7393,49.0572 87.7076,49.1171 87.7289,49.1108 87.7594,49.1061 87.8632,49.1233 88.0272,49.2124 88.044,49.2309 88.0293,49.2542 88.004,49.3128 88.0497,49.3773 88.0724,49.3961 88.0911,49.4051 88.2165,49.4253 88.2777,49.427 88.4386,49.4192 88.6005,49.3942 88.721,49.385 88.772,49.3932 88.7469,49.4216 88.7556,49.4829 88.7935,49.4897 88.8191,49.4616 88.8565,49.4123 88.8774,49.4065 89.0192,49.4415 89.0571,49.4528 89.0774,49.464 89.1051,49.4891 89.1017,49.5133 89.0697,49.5443 89.0726,49.5656 89.0918,49.58 89.1215,49.586 89.154,49.5755 89.1882,49.5526 89.2414,49.5253 89.2714,49.5347 89.3101,49.5705 89.3248,49.5917 89.4329,49.6212 89.4578,49.6238 89.4945,49.6273 89.5895,49.6653 89.603,49.6888 89.5891,49.7073 89.561,49.7183 89.5265,49.7309 89.5046,49.801 89.5098,49.8475 89.5181,49.8548 89.5403,49.8672 89.5684,49.8775 89.5935,49.8833 89.6298,49.8893 89.6743,49.8938 89.7048,49.8925 89.7377,49.8892 89.767,49.8908 89.8478,49.9136 89.8723,49.9235 89.8875,49.9389 89.888,49.9886 89.8972,50.0104 89.9135,50.0234 89.9369,50.0327 89.9687,50.0412 90.0441,50.0526 90.0837,50.057 90.1089,50.0626 90.1419,50.0763 90.1692,50.0928 90.2028,50.1122 90.2428,50.1278 90.3738,50.1666 90.3943,50.1683 90.4217,50.1681 90.4767,50.1579 90.5072,50.1541 90.5369,50.1559 90.5621,50.1617 90.587,50.173 90.7559,50.2811 90.7889,50.3094 90.822,50.3378 90.8424,50.3517 90.8652,50.3643 90.9021,50.3761 90.9636,50.3735 90.9909,50.3731 91.022,50.3757 91.213,50.4178 91.3198,50.4493 91.4765,50.5193 91.4954,50.5371 91.5142,50.5725 91.5297,50.5857 91.5585,50.6022 91.5845,50.6137 91.6403,50.6337 91.6802,50.6449 91.7451,50.6543 91.7659,50.6561 91.8123,50.656 91.8674,50.6469 91.8984,50.6392 91.9452,50.633 91.972,50.6322 92.0223,50.6345 92.0503,50.6387 92.0812,50.6471 92.1237,50.6685 92.1549,50.6965 92.1766,50.7319 92.1819,50.7561 92.3067,50.752 92.3294,50.7286 92.4998,50.6297 92.5291,50.623 92.5582,50.6245 92.5957,50.6388 92.6213,50.6558 92.6379,50.6819 92.648,50.722 92.6713,50.7359 92.7917,50.7407 92.826,50.7343 92.8528,50.714 92.8571,50.6901 92.8322,50.6336 92.8297,50.6124 92.8854,50.5523 92.9479,50.5414 92.9715,50.5377 93.0008,50.5386 93.2,50.5465 93.2427,50.5556 93.2675,50.5614 93.309,50.5636 93.3388,50.5588 93.4362,50.532 93.5938,50.521 93.7529,50.5258 93.8404,50.527 94.076,50.5193 94.1014,50.5173 94.1407,50.5064 94.1587,50.4904 94.2097,50.3567 94.2139,50.3242 94.2123,50.2884 94.2153,50.2532 94.2312,50.1884 94.2449,50.1617 94.2582,50.1456 94.2891,50.1287 94.3629,50.1091 94.3852,50.0898 94.4321,50.031 94.4881,49.9698 94.5237,49.9685 94.5751,49.9779 94.6391,49.9988 94.6778,50.0023 94.8383,49.9944 94.8578,49.9799 94.8708,49.9655 94.9236,49.9071 94.9564,49.899 95.0146,49.9 95.0635,49.9005 95.0845,49.9021 95.1228,49.9022 95.2077,49.9014 95.2727,49.8997 95.2971,49.8925 95.35,49.8504 95.3825,49.8382 95.6056,49.9033 95.6254,49.9203 95.6433,49.9448 95.662,49.9591 95.6833,49.9661 95.7212,49.9676 95.7449,49.9636 95.7689,49.9526 95.7824,49.9222 95.793,49.9044 95.8144,49.8878 95.8444,49.8944 95.8733,49.9197 95.8922,49.934 95.9254,49.9482 95.9641,49.9446 96.0689,49.9146 96.1318,49.8963 96.1542,49.8874 96.1673,49.872 96.1916,49.8537 96.216,49.8426 96.2406,49.836 96.2638,49.838 96.3022,49.8513 96.3445,49.869 96.3752,49.8731 96.4007,49.8695 96.4248,49.8548 96.4339,49.8326 96.4474,49.8094 96.4709,49.8065 96.511,49.8248 96.5539,49.8557 96.5744,49.8632 96.5982,49.8634 96.6581,49.8575 96.864,49.8319 97.005,49.7397 97.0256,49.7049 97.061,49.6946 97.1338,49.6767 97.164,49.674 97.2047,49.6795 97.3401,49.7304 97.421,49.7732 97.4523,49.7981 97.462,49.8193 97.5742,49.8944 97.5955,49.9014 97.6246,49.9097 97.6448,49.911 97.6671,49.9022 97.7456,49.8981 97.9299,49.9741 97.9551,49.9882 97.9726,50.003 97.9876,50.0201 98.0516,50.1038 98.145,50.2447 98.1796,50.4128 98.1771,50.4492 98.1694,50.4687 98.156,50.484 98.1341,50.4976 98.1021,50.5068 98.0746,50.5079 98.044,50.5077 98.0172,50.5115 97.9168,50.5701 97.9027,50.5849 97.818,50.7144 97.8188,50.7406 97.8601,50.7946 97.7986,50.8468 97.7492,50.8613 97.7192,50.8789 97.6809,50.9405 97.7007,50.9702 97.729,51.0033 97.7584,51.0602 97.8056,51.1589 97.8037,51.1933 97.8463,51.3141 97.9061,51.4032 97.9339,51.4148 97.9583,51.4199 97.9861,51.4198 98.0207,51.4079 98.0513,51.4014 98.0836,51.4061 98.1055,51.4481 98.1073,51.4685 98.0963,51.496 98.0948,51.5186 98.1594,51.6394 98.1852,51.6595 98.2161,51.671 98.2401,51.677 98.3556,51.7012 98.4454,51.7148 98.4773,51.7223 98.514,51.7399 98.5349,51.7534 98.5537,51.7679 98.5716,51.7831 98.6109,51.8243 98.6512,51.8813 98.7159,51.9836 98.7181,52.0045 98.7175,52.0299 98.724,52.0513 98.7439,52.0717 98.7701,52.0823 98.786,52.08 98.8646,52.0047 98.9852,51.9669 99.1375,51.9093 99.1615,51.8908 99.1894,51.8818 99.415,51.8404 99.4592,51.8359 99.5414,51.8371 99.5724,51.8304 99.6016,51.8154 99.6543,51.7738 99.6987,51.7405 99.732,51.7173 99.7639,51.7007 99.7909,51.6915 99.8222,51.6848 99.8661,51.6797 100.0965,51.6716 100.1771,51.6704 100.2698,51.6721 100.3369,51.6771 100.3693,51.6779 100.4009,51.6752 100.5374,51.6388 100.6272,51.6023 100.7355,51.5639 100.7564,51.5567 100.8812,51.5162 100.9668,51.491 101.0526,51.4746 101.0876,51.4693 101.1309,51.4536 101.1584,51.4306 101.1906,51.4041 101.2287,51.3924 101.2517,51.3925 101.291,51.4054 101.3512,51.4219 101.3764,51.4263 101.4181,51.4281 101.4437,51.4244 101.5834,51.3997 101.6192,51.389 101.7098,51.3599 101.8351,51.3361 101.8657,51.3321 101.891,51.3317 101.9244,51.3293 102.0657,51.2671 102.0672,51.2471 102.0383,51.219 102.0002,51.1883 102.0114,51.0613 102.0299,51.0178 102.0588,50.972 102.0714,50.9565 102.0982,50.9282 102.1061,50.8298 102.0761,50.7923 102.0797,50.7618 102.1207,50.7225 102.1838,50.6919 102.1995,50.6617 102.187,50.6363 102.1523,50.6053 102.1394,50.587 102.1412,50.5656 102.157,50.5353 102.1771,50.5076 102.1985,50.4943 102.2187,50.4872 102.2261,50.4855 102.2978,50.4784 102.3318,50.4733 102.3859,50.4506 102.4403,50.3947 102.4509,50.3661 102.4717,50.3509 102.5171,50.347 102.5937,50.3364 102.6248,50.329 102.6634,50.3133 102.6942,50.2929 102.7363,50.2664 102.7635,50.2573 102.7869,50.2519 102.8117,50.2483 102.8476,50.2447 102.8884,50.2455 102.9364,50.2485 103.0021,50.2549 103.0427,50.2543 103.0683,50.2507 103.0986,50.2352 103.1101,50.1999 103.1248,50.1642 103.1614,50.1417 103.182,50.1386 103.3758,50.1179 103.452,50.0897 103.4932,50.0794 103.5504,50.0799 103.5792,50.0891 103.5977,50.1085 103.6156,50.1269 103.6472,50.1406 103.6696,50.1432 103.6999,50.14 103.7544,50.1221 103.7797,50.1139 103.8745,50.0916 103.907,50.0892 103.9368,50.0908 103.9613,50.0956 104.0981,50.1308 104.1147,50.1503 104.1367,50.1801 104.2351,50.2407 104.261,50.2511 104.2929,50.2581 104.3391,50.2625 104.407,50.2595 104.4631,50.2598 104.4941,50.2705 104.5186,50.2885 104.5517,50.3009 104.8081,50.3468 104.8404,50.3498 104.8655,50.3384 104.9009,50.3341 104.9412,50.334 104.9735,50.34 104.9956,50.3461 105.0218,50.3564 105.0502,50.3717 105.0892,50.3938 105.1239,50.4148 105.1531,50.4232 105.1762,50.4252 105.2021,50.4248 105.3628,50.3964 105.5687,50.3728 105.6477,50.3776 105.8292,50.3524 105.8661,50.3425 105.8918,50.3288 105.9093,50.3171 105.9145,50.2879 106.085,50.242 106.1147,50.2409 106.1385,50.2483 106.1754,50.2581 106.2751,50.2736 106.3264,50.2803 106.3864,50.2881 106.4389,50.2874 106.4668,50.2851 106.5023,50.2804 106.5769,50.2676 106.5998,50.2619 106.6274,50.2524 106.665,50.2363 106.8466,50.1411 106.8913,50.0734 106.9031,50.0507 106.9202,50.0256 107.0164,49.9694 107.0956,49.9459 107.3033,49.9249 107.392,49.9255 107.578,49.923 107.5938,49.9223 107.6566,49.8915 107.7459,49.8874 107.8245,49.8716 107.8163,49.7317 107.7892,49.6253 107.8826,49.5538 107.9128,49.5331 107.9541,49.5124 107.9782,49.501 108.01,49.4945 108.1393,49.4365 108.2043,49.3849 108.3685,49.289 108.4042,49.2784 108.4418,49.275 108.4909,49.2753 108.5521,49.2814 108.7991,49.3 108.8242,49.2953 108.8666,49.2818 108.9147,49.2778 108.9933,49.2924 109.0372,49.3034 109.1528,49.2898 109.1842,49.2826 109.3357,49.2038 109.3566,49.1856 109.3927,49.1751 109.4207,49.1737 109.4504,49.1733 109.6408,49.1626 109.9271,49.1319 110.0089,49.1163 110.0467,49.113 110.0837,49.1142 110.107,49.1188 110.1325,49.1288 110.1628,49.1419 110.1903,49.157 110.3202,49.1437 110.4681,49.0962 110.5003,49.0894 110.5382,49.0858 110.5755,49.0871 110.6263,49.0933 110.7665,49.1258 110.793,49.1348 110.8186,49.1446 110.8462,49.158 110.8707,49.1757 110.9048,49.1967 110.9653,49.2309 111.0099,49.2482 111.1633,49.2859 111.2886,49.298 111.3138,49.2936 111.3426,49.2935 111.3802,49.3014 111.4067,49.311 111.4294,49.3227 111.4813,49.3417 111.5275,49.3501 111.5778,49.3485 111.6352,49.3435 111.6766,49.3414 111.704,49.3423 111.7573,49.3457 111.7994,49.3504 111.9664,49.3801 112.0057,49.3907 112.2506,49.4615 112.326,49.4845 112.371,49.4795 112.425,49.4719 112.4888,49.4612 112.5214,49.4482 112.5446,49.4421 112.5699,49.4412 112.6083,49.4455 112.637,49.4529 112.6654,49.4616 112.9293,49.5466 112.9311,49.6131 113.0193,49.7372 113.044,49.7587 113.0714,49.774 113.1895,49.8314 113.2919,49.8786 113.3161,49.9064 113.3885,49.9446 113.4172,49.9588 113.5395,50.0041 113.6144,50.0291 113.6588,50.0284 113.7013,50.0293 113.7254,50.042 113.7616,50.066 113.7942,50.0894 113.8181,50.1041 113.8407,50.1163 114.0048,50.1904 114.0234,50.198 114.0652,50.2102 114.1503,50.2263 114.1774,50.2231 114.2053,50.2134 114.224,50.2049 114.2494,50.1941 114.2717,50.1874 114.3272,50.1835 114.3828,50.188 114.4066,50.1921 114.4501,50.2028 114.4932,50.2064 114.576,50.1947 114.6816,50.1704 114.7081,50.1597 114.838,50.0996 114.8614,50.0874 114.8614,50.0874 26,-10.0,United States 177.0415,51.7612 177.0121,51.7924 176.9673,51.8157 176.9706,51.8421 177.0884,51.9097 177.1104,51.9176 177.1861,51.9275 177.2444,51.9858 177.2742,52.0402 177.2898,52.0525 177.3194,52.0658 177.3337,52.0668 177.3977,52.0455 177.4055,52.024 177.3296,51.8634 177.2873,51.8515 177.2164,51.8637 177.1881,51.876 177.1748,51.8764 177.1268,51.8666 177.1161,51.8626 177.0989,51.8523 177.0735,51.8344 177.0636,51.8236 177.0415,51.7612 177.0415,51.7612 28,-5.0,Canada -79.172,52.0314 -79.1486,52.0286 -79.1385,52.0233 -79.1279,52.011 -79.195,51.9098 -79.2427,51.8801 -79.2566,51.8756 -79.3036,51.8772 -79.3259,51.8821 -79.3762,51.8824 -79.4475,51.8746 -79.4668,51.8624 -79.4829,51.8554 -79.4945,51.8597 -79.5269,51.9275 -79.5065,51.9595 -79.4937,51.964 -79.4811,51.9577 -79.4707,51.9532 -79.4601,51.9524 -79.4427,51.9546 -79.4132,51.9631 -79.2836,52.0114 -79.2715,52.0169 -79.2587,52.0303 -79.2166,52.0491 -79.172,52.0314 -79.172,52.0314 16,-10.0,United States -175.7783,51.9012 -175.7938,51.9055 -175.8906,51.9342 -175.9125,51.9792 -175.9148,51.9908 -175.9118,52.0021 -175.8881,52.0307 -175.8748,52.043 -175.8559,52.0477 -175.773,52.0425 -175.7642,52.0377 -175.7184,51.9686 -175.7419,51.9115 -175.7609,51.9042 -175.7783,51.9012 -175.7783,51.9012 21,-8.0,Canada -127.7497,51.9864 -127.7501,51.9701 -127.7536,51.9208 -127.8083,51.7203 -127.8157,51.7121 -127.8357,51.7008 -127.8539,51.6938 -127.9198,51.6816 -127.9341,51.6853 -128.0528,51.809 -128.0209,51.8929 -128.0163,51.9025 -127.9763,51.9478 -127.9464,51.9764 -127.9059,51.9912 -127.8593,51.996 -127.7942,52.0025 -127.7819,52.0015 -127.756,51.9939 -127.7497,51.9864 -127.7497,51.9864 16,-10.0,United States 179.3688,51.8072 179.3587,51.8073 179.2796,51.8235 179.2499,51.8317 179.2189,51.8539 179.2082,51.8699 179.2051,51.914 179.3465,51.9678 179.3606,51.9679 179.3762,51.9642 179.487,51.9057 179.494,51.8926 179.4718,51.8601 179.4561,51.8427 179.3688,51.8072 179.3688,51.8072 15,-10.0,United States 178.2484,51.8332 178.2395,51.8338 178.2209,51.8387 178.1874,51.8603 178.1734,51.8817 178.1965,51.9261 178.2388,51.927 178.2963,51.9109 178.3075,51.9035 178.3265,51.8857 178.3236,51.872 178.2876,51.8401 178.2576,51.8333 178.2484,51.8332 178.2484,51.8332 36,-10.0,United States -176.6636,51.5247 -176.6868,51.5307 -176.7013,51.5385 -176.7057,51.5565 -176.6965,51.5981 -176.617,51.706 -176.5047,51.7701 -176.5061,51.8649 -176.4979,51.8819 -176.481,51.8905 -176.4655,51.8948 -176.3279,51.9251 -176.3075,51.9262 -176.2822,51.9245 -176.2706,51.918 -176.2632,51.8635 -176.2716,51.8477 -176.2811,51.8436 -176.3111,51.8456 -176.3288,51.8412 -176.3655,51.7969 -176.3179,51.7703 -176.3061,51.77 -176.2788,51.7789 -176.1888,51.7835 -176.1541,51.7772 -176.1475,51.7677 -176.1414,51.6899 -176.1523,51.6722 -176.1916,51.6591 -176.2551,51.667 -176.4322,51.6178 -176.4482,51.5991 -176.6379,51.5443 -176.6636,51.5247 -176.6636,51.5247 39,-10.0,United States -177.3657,51.5895 -177.3754,51.59 -177.3927,51.5967 -177.4256,51.6386 -177.362,51.6725 -177.3496,51.6724 -177.3333,51.6667 -177.2887,51.6577 -177.2593,51.6557 -177.2483,51.6562 -177.0176,51.7171 -176.9664,51.7332 -176.9357,51.7489 -176.9236,51.7639 -176.9223,51.7847 -176.92,51.8227 -176.9175,51.8605 -176.9001,51.8738 -176.8791,51.878 -176.864,51.8775 -176.8275,51.8695 -176.8152,51.8666 -176.8018,51.8609 -176.7704,51.8429 -176.7674,51.8319 -176.8455,51.7243 -176.8529,51.6616 -176.8775,51.6394 -176.9842,51.612 -176.9944,51.6128 -177.0095,51.6166 -177.0574,51.6428 -177.0972,51.6664 -177.1073,51.6668 -177.1488,51.6649 -177.3466,51.6345 -177.3631,51.6206 -177.3657,51.5895 -177.3657,51.5895 33,-10.0,United States -177.6312,51.5322 -177.6732,51.5464 -177.8102,51.5997 -177.8235,51.6049 -177.8142,51.6366 -177.8033,51.6387 -177.7886,51.6346 -177.7591,51.6359 -177.6941,51.6541 -177.6773,51.661 -177.6709,51.6708 -177.672,51.6868 -177.6759,51.7021 -177.6848,51.7105 -177.7913,51.7509 -177.8929,51.7864 -177.9376,51.8033 -177.9375,51.8142 -177.9077,51.8368 -177.8921,51.8444 -177.8724,51.8497 -177.83,51.8545 -177.6626,51.8584 -177.6516,51.855 -177.6073,51.8242 -177.5469,51.7709 -177.5195,51.7288 -177.5366,51.6597 -177.602,51.625 -177.6338,51.5994 -177.6362,51.5776 -177.6312,51.5322 -177.6312,51.5322 17,-10.0,United States -175.8639,51.7145 -175.8805,51.7206 -175.9405,51.7575 -175.9433,51.7744 -175.9318,51.8166 -175.9033,51.8214 -175.8932,51.8208 -175.7482,51.7879 -175.7384,51.7729 -175.731,51.7497 -175.7465,51.7567 -175.7571,51.7633 -175.8649,51.7599 -175.8747,51.7404 -175.874,51.7289 -175.8639,51.7145 -175.8639,51.7145 16,-10.0,United States -176.0614,51.6619 -176.0699,51.6619 -176.1068,51.6682 -176.117,51.6787 -176.1216,51.6898 -176.1286,51.7159 -176.1399,51.7923 -176.1164,51.8005 -176.0428,51.8069 -176.0329,51.8076 -176.0022,51.7991 -175.9889,51.7514 -175.9857,51.7201 -176.0518,51.666 -176.0614,51.6619 -176.0614,51.6619 24,-8.0,Canada -127.7983,51.6517 -127.7955,51.6453 -127.7845,51.6228 -127.7683,51.5922 -127.7523,51.5739 -127.7384,51.562 -127.7273,51.5493 -127.7209,51.5406 -127.7069,51.5 -127.6755,51.4048 -127.6765,51.387 -127.7063,51.3553 -127.7162,51.3514 -127.7264,51.3507 -127.8665,51.4046 -127.8798,51.4129 -127.9541,51.544 -127.9532,51.5803 -127.9482,51.5907 -127.9366,51.6018 -127.8095,51.6624 -127.7989,51.6575 -127.7983,51.6517 -127.7983,51.6517 37,-10.0,United States 178.9754,51.2879 178.7534,51.4275 178.7449,51.4359 178.6932,51.473 178.6824,51.4801 178.6146,51.5035 178.5654,51.5122 178.5493,51.5094 178.4967,51.5093 178.4386,51.5242 178.3831,51.5581 178.3723,51.5655 178.3605,51.5756 178.3917,51.5962 178.404,51.5968 178.4161,51.589 178.452,51.5742 178.605,51.5588 178.6226,51.5538 178.6362,51.5489 178.7035,51.5218 178.7172,51.513 178.7296,51.4921 178.756,51.4702 178.7975,51.441 178.9734,51.3476 179.0159,51.3503 179.1073,51.3428 179.1807,51.3213 179.1908,51.3081 179.1289,51.3047 179.1213,51.3154 179.1082,51.3152 179.0144,51.299 178.9974,51.2954 178.9754,51.2879 178.9754,51.2879 763,-3.5,Canada -55.72,50.95 -55.7737,50.8838 -55.9138,50.7299 -55.9834,50.666 -56.0124,50.6685 -56.0453,50.7074 -56.0358,50.8048 -56.028,50.8387 -56.063,50.8304 -56.0864,50.7969 -56.0716,50.6323 -56.053,50.6118 -56.0778,50.5594 -56.1731,50.4443 -56.2382,50.3883 -56.3393,50.28 -56.3773,50.2141 -56.4219,50.1512 -56.4707,50.1095 -56.5499,50.0486 -56.6582,49.9654 -56.6832,49.9047 -56.6932,49.8651 -56.6424,49.8587 -56.6757,49.78 -56.7438,49.7278 -56.7824,49.7204 -56.821,49.6906 -56.7369,49.6849 -56.6998,49.6743 -56.6986,49.6337 -56.7332,49.5352 -56.7617,49.4925 -56.7427,49.5061 -56.6989,49.5531 -56.6792,49.5746 -56.6653,49.5922 -56.6517,49.6098 -56.6285,49.6394 -56.5938,49.6766 -56.5148,49.7547 -56.4773,49.7849 -56.3869,49.8372 -56.3482,49.8332 -56.3282,49.8526 -56.3027,49.8886 -56.2432,49.9701 -56.1533,50.0426 -56.1301,50.0586 -56.0727,50.0915 -56.0383,50.0968 -55.9819,50.036 -55.9211,49.9739 -55.855,49.9788 -55.8172,49.9752 -55.7975,49.9673 -55.7644,49.9382 -55.7533,49.917 -55.6678,49.8662 -55.5044,49.9069 -55.4675,49.9263 -55.4444,49.9427 -55.4092,49.9499 -55.3787,49.9024 -55.3877,49.8784 -55.4098,49.8598 -55.4289,49.8517 -55.5765,49.7904 -55.7601,49.7312 -55.903,49.6897 -56.0323,49.5832 -56.041,49.5563 -55.9645,49.6113 -55.8778,49.6425 -55.811,49.6571 -55.7508,49.6296 -55.7976,49.5279 -55.8577,49.4833 -55.8886,49.4749 -55.9526,49.45 -55.9971,49.4303 -56.0426,49.3681 -55.9854,49.3808 -55.9403,49.4063 -55.92,49.4262 -55.8803,49.4394 -55.8346,49.4509 -55.7921,49.4604 -55.7455,49.4673 -55.6966,49.4534 -55.6411,49.4131 -55.5862,49.327 -55.5589,49.3397 -55.555,49.3599 -55.5073,49.4056 -55.466,49.4288 -55.4408,49.4275 -55.4846,49.3523 -55.4908,49.3199 -55.4794,49.3115 -55.4495,49.3416 -55.4458,49.3693 -55.4143,49.397 -55.3542,49.4381 -55.2917,49.4466 -55.2675,49.4116 -55.2514,49.3597 -55.2542,49.3316 -55.2546,49.2975 -55.2338,49.2579 -55.2273,49.2999 -55.19,49.349 -55.2289,49.4295 -55.2238,49.4777 -55.1796,49.4842 -55.0597,49.4863 -55.0421,49.4401 -55.0434,49.4085 -55.1506,49.1959 -55.2151,49.1699 -55.2335,49.1607 -55.2847,49.1014 -55.2464,49.0964 -55.2265,49.046 -55.239,49.0291 -55.3023,48.9846 -55.2644,49.0016 -55.1978,49.0525 -55.1989,49.1412 -55.0669,49.2036 -55.0002,49.2273 -54.9965,49.2959 -54.9293,49.2673 -54.9095,49.2278 -54.7404,49.2139 -54.704,49.2343 -54.599,49.3235 -54.5728,49.3476 -54.562,49.3668 -54.4993,49.438 -54.4474,49.4753 -54.3943,49.478 -54.3511,49.4117 -54.3703,49.3711 -54.403,49.3055 -54.4015,49.2085 -54.324,49.2735 -54.333,49.294 -54.3204,49.3285 -54.2879,49.363 -54.2451,49.3671 -54.1688,49.341 -54.1029,49.3143 -54.084,49.3243 -54.0748,49.3541 -54.0601,49.3889 -53.9653,49.4234 -53.8403,49.3909 -53.6956,49.3394 -53.5942,49.2866 -53.4325,49.2208 -53.4098,49.1643 -53.5127,48.9821 -53.5833,48.9759 -53.6361,48.9729 -53.7256,48.9659 -53.7065,48.9551 -53.6628,48.9441 -53.6915,48.9333 -53.7248,48.922 -53.7344,48.8828 -53.8956,48.7918 -53.9425,48.7773 -54.0172,48.7563 -53.8416,48.7789 -53.8205,48.7822 -53.7967,48.781 -53.7464,48.7746 -53.7228,48.7542 -53.7665,48.711 -53.7891,48.6941 -53.8151,48.6767 -53.8536,48.6581 -53.8719,48.6153 -53.8441,48.569 -53.8073,48.5769 -53.7848,48.586 -53.7174,48.6245 -53.7462,48.6162 -53.7743,48.6107 -53.8351,48.6102 -53.8073,48.6347 -53.7789,48.649 -53.6809,48.6583 -53.529,48.6252 -53.5741,48.5896 -53.5938,48.5829 -53.6506,48.5736 -53.7056,48.5673 -53.8523,48.5186 -53.8726,48.4875 -53.8402,48.4974 -53.8198,48.5069 -53.7178,48.5116 -53.6683,48.5029 -53.6711,48.4574 -53.6783,48.4477 -53.5963,48.4786 -53.5532,48.4846 -53.5084,48.4698 -53.4969,48.4515 -53.4803,48.4194 -53.5103,48.3726 -53.4842,48.3839 -53.456,48.3964 -53.4107,48.4516 -53.3867,48.5139 -53.353,48.5671 -53.2643,48.5584 -53.2286,48.531 -53.1438,48.5058 -53.0762,48.573 -52.9944,48.6424 -52.9436,48.6028 -52.8998,48.5424 -52.9102,48.4925 -52.9766,48.3875 -52.9982,48.3669 -53.0203,48.3499 -53.1311,48.2937 -53.1834,48.3157 -53.2674,48.3049 -53.3115,48.2485 -53.5486,48.1182 -53.5878,48.108 -53.6082,48.1113 -53.6328,48.1208 -53.8187,48.1728 -53.8592,48.1769 -53.8664,48.1163 -53.8318,48.0289 -53.7458,48.0193 -53.7153,48.0186 -53.6926,48.0182 -53.6484,48.0222 -53.614,48.0038 -53.6591,47.9779 -53.6855,47.9715 -53.7218,47.9668 -53.7667,47.9676 -53.8073,47.9729 -53.8319,47.9679 -53.7091,47.9417 -53.6159,47.9638 -53.5912,47.975 -53.5727,47.9829 -53.5292,47.994 -53.5435,47.941 -53.646,47.7891 -53.6603,47.7722 -53.7199,47.7169 -53.7478,47.7402 -53.7747,47.7306 -53.773,47.7058 -53.7598,47.6451 -53.683,47.5558 -53.554,47.4891 -53.4681,47.4867 -53.464,47.5309 -53.4199,47.6829 -53.3839,47.7519 -53.3581,47.783 -53.2289,47.9295 -53.214,47.9445 -53.1973,47.9584 -53.0938,47.9987 -53.0236,47.9843 -52.971,47.9978 -52.9202,48.0314 -52.8981,48.0613 -52.8814,48.0908 -52.8466,48.1154 -52.8254,48.1081 -52.8075,48.0942 -52.7581,48.0446 -52.7997,48.0277 -52.8314,48.0333 -52.8516,48.0207 -52.9826,47.865 -52.9828,47.8321 -52.9994,47.796 -53.082,47.6285 -53.1045,47.5943 -53.1252,47.5821 -53.1444,47.574 -53.1642,47.5681 -53.1881,47.5556 -53.185,47.492 -53.0993,47.3773 -53.0424,47.3636 -53.0068,47.404 -52.9898,47.4159 -52.9368,47.4471 -52.9187,47.4573 -52.8757,47.4767 -52.8371,47.4908 -52.821,47.5043 -52.7697,47.5727 -52.763,47.5917 -52.7645,47.6179 -52.7035,47.7432 -52.6266,47.6971 -52.5818,47.603 -52.5418,47.4541 -52.5501,47.4348 -52.5779,47.3837 -52.6426,47.3108 -52.7117,47.2539 -52.7431,47.1703 -52.7742,47.1077 -52.7695,47.0887 -52.7685,47.0076 -52.7772,46.969 -52.8086,46.9205 -52.8345,46.8581 -52.8542,46.7981 -52.8572,46.7723 -52.8612,46.7439 -53.0211,46.5869 -53.0897,46.5667 -53.1309,46.5772 -53.2396,46.6415 -53.2819,46.6838 -53.308,46.6683 -53.3347,46.6477 -53.3503,46.6341 -53.3814,46.6047 -53.451,46.5642 -53.4951,46.5625 -53.5381,46.5881 -53.5588,46.6277 -53.5672,46.6534 -53.5713,46.7458 -53.563,46.7743 -53.5182,46.8911 -53.561,46.9388 -53.5014,47.0316 -53.4684,47.0565 -53.5146,47.1024 -53.5696,47.0515 -53.6268,46.9994 -53.7463,46.9032 -53.8171,46.8466 -53.869,46.8053 -53.9764,46.7417 -54.0201,46.7462 -54.1098,46.7685 -54.1191,46.8089 -54.1178,46.835 -54.0835,46.9283 -54.0548,46.9589 -54.0378,46.9862 -54.015,47.0258 -53.9892,47.0773 -53.9166,47.2115 -53.8874,47.2457 -53.848,47.2495 -53.8006,47.297 -53.7903,47.3488 -53.8023,47.3768 -53.8227,47.4317 -53.8142,47.4706 -53.808,47.5227 -53.8183,47.5533 -53.9061,47.7032 -53.9253,47.7244 -53.9554,47.742 -54.1179,47.7864 -54.1417,47.7113 -54.1811,47.6608 -54.2598,47.5674 -54.3572,47.4513 -54.3905,47.3875 -54.3995,47.3441 -54.436,47.3171 -54.5315,47.3006 -54.5222,47.3263 -54.4818,47.3599 -54.4511,47.3879 -54.4117,47.4322 -54.3367,47.5411 -54.3575,47.538 -54.4302,47.4592 -54.4574,47.4197 -54.4852,47.386 -54.5005,47.3699 -54.5265,47.348 -54.543,47.3358 -54.6218,47.3036 -54.6451,47.2977 -54.7405,47.3122 -54.7199,47.332 -54.7131,47.3645 -54.7777,47.3366 -54.9019,47.2315 -54.9641,47.1641 -54.9748,47.0972 -54.9888,47.0341 -55.0214,47.0011 -55.0733,46.9566 -55.1145,46.9315 -55.1562,46.8722 -55.1799,46.8569 -55.2795,46.8208 -55.3132,46.8125 -55.3863,46.8267 -55.5514,46.8145 -55.6104,46.805 -55.7236,46.8071 -55.7661,46.8163 -55.8396,46.8352 -55.8593,46.8427 -55.8863,46.8564 -55.9016,46.8957 -55.8866,46.9279 -55.8727,46.9429 -55.8071,47.0026 -55.7886,47.0174 -55.6924,47.049 -55.6624,47.0505 -55.6398,47.05 -55.6026,47.0389 -55.5008,47.058 -55.4111,47.0816 -55.2501,47.1887 -55.2152,47.2188 -55.207,47.2576 -55.1848,47.3452 -55.1228,47.3919 -55.0965,47.4079 -55.025,47.4297 -55.0007,47.4268 -54.9611,47.4308 -54.8723,47.4509 -54.7894,47.4897 -54.765,47.5059 -54.7625,47.5291 -54.7665,47.5794 -54.883,47.5436 -54.9531,47.5725 -54.9316,47.6018 -54.8729,47.6931 -54.8621,47.7229 -54.9421,47.6538 -54.9527,47.6267 -55.0511,47.5594 -55.1833,47.596 -55.2689,47.6527 -55.2906,47.6709 -55.35,47.6546 -55.3835,47.5889 -55.3826,47.5592 -55.3543,47.5768 -55.3256,47.5661 -55.3101,47.532 -55.3206,47.4605 -55.3316,47.4313 -55.3535,47.4121 -55.4227,47.3995 -55.4464,47.4002 -55.4818,47.3801 -55.508,47.3444 -55.5451,47.4096 -55.5741,47.441 -55.7152,47.4385 -55.84,47.3908 -55.7516,47.4628 -55.7088,47.4966 -55.6657,47.5309 -55.6929,47.5253 -55.744,47.5119 -55.8119,47.4824 -55.9072,47.4463 -56.0325,47.4092 -56.086,47.4476 -56.0397,47.4648 -55.9639,47.4809 -55.8616,47.5073 -55.8095,47.5239 -55.5541,47.6184 -55.5749,47.6224 -55.624,47.6107 -55.673,47.5936 -55.6944,47.5838 -55.7246,47.57 -55.7512,47.5637 -55.7755,47.5659 -55.8329,47.6014 -55.8314,47.6276 -55.8149,47.6423 -55.7858,47.6592 -55.7522,47.688 -55.7346,47.7179 -55.7192,47.7447 -55.6639,47.8731 -55.6885,47.8968 -55.7371,47.8322 -55.7548,47.7933 -55.7737,47.7424 -55.8027,47.7212 -55.9691,47.645 -56.0035,47.6839 -55.9792,47.7218 -56.0373,47.7057 -56.1045,47.6258 -56.0817,47.5815 -56.1068,47.5729 -56.2773,47.5488 -56.3295,47.5473 -56.362,47.5516 -56.4655,47.5595 -56.5341,47.5589 -56.565,47.5295 -56.6932,47.4777 -56.7592,47.4671 -56.8205,47.4982 -56.8428,47.5077 -56.8789,47.5219 -56.9234,47.5299 -57.0147,47.5116 -57.0401,47.5096 -57.0603,47.5151 -57.0811,47.5255 -57.1223,47.5388 -57.4481,47.5766 -57.5749,47.5485 -57.6963,47.5731 -57.7992,47.5968 -57.9486,47.6405 -58.2756,47.5929 -58.6062,47.5445 -58.6866,47.5372 -58.7773,47.5346 -58.8049,47.5391 -58.8529,47.5358 -58.9916,47.5175 -59.0228,47.507 -59.0424,47.5014 -59.0769,47.5073 -59.2182,47.5572 -59.2239,47.6118 -59.2182,47.6762 -59.2423,47.757 -59.2834,47.798 -59.3177,47.8393 -59.2992,47.8649 -59.2798,47.8703 -59.2338,47.8784 -59.1807,47.9301 -59.177,47.9444 -59.153,47.9624 -59.1331,47.9742 -59.0059,48.0352 -58.962,48.0529 -58.935,48.0614 -58.8725,48.0949 -58.6649,48.2323 -58.6051,48.2757 -58.5884,48.3107 -58.5081,48.3715 -58.4772,48.3852 -58.4139,48.3944 -58.4376,48.3857 -58.4674,48.3768 -58.5104,48.3492 -58.3923,48.3746 -58.3721,48.3873 -58.3332,48.4311 -58.3351,48.4527 -58.4841,48.483 -58.6022,48.4982 -58.6469,48.4902 -58.6862,48.4785 -58.7268,48.4683 -58.7717,48.4631 -58.8456,48.4563 -58.869,48.4554 -58.898,48.458 -58.9233,48.4659 -59.0128,48.4509 -59.0329,48.4454 -59.0605,48.4376 -59.1068,48.4224 -59.1689,48.4173 -59.1446,48.4704 -59.1262,48.4923 -59.0515,48.5433 -58.9948,48.572 -58.9641,48.5798 -58.9413,48.5876 -58.8228,48.6462 -58.743,48.695 -58.7199,48.7089 -58.686,48.7177 -58.7291,48.6799 -58.764,48.6594 -58.7881,48.6457 -58.8054,48.6352 -58.8267,48.6191 -58.8572,48.5924 -58.8714,48.5636 -58.8618,48.5454 -58.807,48.4961 -58.6413,48.5083 -58.6157,48.5242 -58.5943,48.5563 -58.5864,48.5882 -58.5946,48.6212 -58.5725,48.6872 -58.5326,48.7237 -58.4544,48.8137 -58.4211,48.8932 -58.4172,48.94 -58.3129,49.0732 -58.2648,49.0917 -58.2573,49.0438 -58.2748,49.0076 -58.2163,49.0146 -58.155,49.014 -58.0931,49.0068 -58.0583,48.9855 -58.0065,48.9325 -57.9748,48.9199 -57.911,48.9053 -57.8766,48.9004 -57.8537,48.9023 -57.8111,48.9212 -57.8447,48.9227 -57.8818,48.92 -57.9334,48.9269 -57.958,48.936 -58.0183,48.9777 -58.0498,49.0265 -58.0591,49.0655 -58.0317,49.0716 -58.0016,49.0669 -57.9641,49.064 -57.8328,49.0701 -57.7957,49.1077 -57.8199,49.0995 -57.8549,49.0896 -57.972,49.0885 -58.0046,49.105 -57.9737,49.1309 -57.9448,49.1293 -57.9144,49.1344 -57.8479,49.1822 -57.9203,49.1765 -57.9479,49.1678 -57.9686,49.1663 -58.1187,49.1861 -58.1527,49.2257 -58.1563,49.2455 -58.1339,49.3398 -58.1067,49.3728 -58.0692,49.41 -57.9522,49.488 -57.9334,49.497 -57.9128,49.5021 -57.8853,49.498 -57.8225,49.4715 -57.7759,49.4492 -57.6619,49.3967 -57.6185,49.4074 -57.7034,49.4442 -57.7843,49.4795 -57.8577,49.5485 -57.8639,49.6077 -57.845,49.6606 -57.8143,49.705 -57.7434,49.7882 -57.5845,50.0263 -57.5451,50.087 -57.4564,50.2404 -57.4352,50.287 -57.4243,50.3242 -57.4075,50.3566 -57.3613,50.4277 -57.2806,50.5348 -57.2545,50.549 -57.2119,50.5504 -57.1892,50.5429 -57.1497,50.5369 -57.1174,50.5376 -57.0764,50.5481 -57.0645,50.5653 -57.085,50.5665 -57.1892,50.5821 -57.2912,50.6293 -57.2423,50.6534 -57.1497,50.6687 -57.0682,50.695 -57.0021,50.722 -56.9855,50.7354 -56.8958,50.8096 -56.8401,50.857 -56.8154,50.9673 -56.8399,50.9797 -56.8771,50.9842 -56.8341,50.9923 -56.7987,51.0038 -56.7006,51.0943 -56.7222,51.1245 -56.7062,51.1809 -56.6495,51.24 -56.5947,51.2802 -56.5326,51.3083 -56.425,51.3428 -56.3741,51.355 -56.184,51.4122 -56.0235,51.4642 -55.9176,51.5095 -55.8731,51.5342 -55.8561,51.5467 -55.8161,51.5668 -55.7507,51.5616 -55.7651,51.5377 -55.7994,51.496 -55.7952,51.4352 -55.6079,51.4213 -55.5579,51.4241 -55.597,51.4404 -55.6494,51.4951 -55.6374,51.5231 -55.5665,51.5309 -55.5416,51.5078 -55.4996,51.5014 -55.4608,51.5254 -55.4293,51.5426 -55.3721,51.5324 -55.3207,51.5046 -55.3684,51.3955 -55.4062,51.3181 -55.422,51.3039 -55.5278,51.2435 -55.6166,51.2685 -55.7343,51.2912 -55.9438,51.3192 -55.9952,51.3096 -56.0096,51.2591 -55.9389,51.1789 -55.9258,51.1529 -55.9062,51.1172 -55.8731,51.1384 -55.7585,51.1696 -55.6789,51.1562 -55.629,51.1198 -55.6334,51.064 -55.6483,51.0179 -55.6683,50.997 -55.7102,50.9803 -55.72,50.95 -55.72,50.95 204,2.0,Belgium 4.2325,51.2911 4.2495,51.2767 4.2572,51.2575 4.2742,51.2419 4.3053,51.227 4.2935,51.2084 4.2959,51.2038 4.3032,51.2027 4.3212,51.2308 4.2803,51.253 4.2736,51.2846 4.2546,51.2959 4.2457,51.3155 4.2733,51.3173 4.3464,51.3018 4.3812,51.298 4.4061,51.299 4.4268,51.3108 4.4111,51.3387 4.3923,51.3543 4.3888,51.3921 4.4775,51.4207 4.5373,51.4235 4.5333,51.3948 4.5333,51.3715 4.6405,51.3638 4.664,51.3732 4.6947,51.4074 4.7587,51.4402 4.7902,51.4418 4.8185,51.4327 4.8381,51.4156 4.8253,51.3703 4.8455,51.3551 4.933,51.3427 4.9893,51.3769 5.0094,51.411 5.0306,51.4273 5.069,51.4098 5.0933,51.3752 5.0732,51.3419 5.1341,51.2605 5.1536,51.2557 5.1855,51.2602 5.2255,51.25 5.2309,51.2028 5.3214,51.203 5.3963,51.2069 5.466,51.2275 5.5,51.2349 5.5446,51.2103 5.5599,51.1615 5.6361,51.1445 5.7456,51.1309 5.8384,51.094 5.8092,51.056 5.7682,50.9668 5.7556,50.9311 5.7493,50.9009 5.6428,50.8164 5.6304,50.79 5.6451,50.7648 5.675,50.7528 5.6853,50.75 5.6935,50.7471 5.6958,50.7234 5.6833,50.7018 5.6901,50.6992 5.7312,50.7014 5.7886,50.7107 5.8617,50.702 5.8901,50.6954 5.9175,50.6974 6.0026,50.6985 6.0457,50.665 6.1578,50.5977 6.2611,50.5616 6.2382,50.5306 6.2554,50.4395 6.3042,50.439 6.3297,50.4285 6.3638,50.3851 6.3885,50.265 6.3403,50.2548 6.2714,50.2256 6.1573,50.1667 6.1305,50.0967 6.1255,50.0701 6.1108,50.0741 6.0214,50.1053 6.0174,50.1235 6.0091,50.124 5.964,50.112 5.879,50.0398 5.8742,50.0197 5.8259,49.9295 5.7702,49.8998 5.7393,49.8501 5.7262,49.7779 5.7442,49.7353 5.7817,49.7238 5.8607,49.6628 5.8676,49.6528 5.8906,49.6059 5.8918,49.5834 5.8545,49.5147 5.8275,49.4927 5.7996,49.4883 5.7836,49.4888 5.6939,49.4863 5.6239,49.4789 5.5853,49.4696 5.5143,49.4532 5.4647,49.4521 5.4668,49.4792 5.4247,49.5464 5.3989,49.5606 5.3845,49.5655 5.3234,49.5997 4.9833,49.7465 4.952,49.7449 4.9299,49.7347 4.9024,49.732 4.8614,49.745 4.8138,49.9354 4.8317,50.0116 4.8462,50.0379 4.8786,50.0762 4.8176,50.1097 4.7559,50.0779 4.687,50.0262 4.6864,49.9991 4.67,49.9418 4.5039,49.89 4.4515,49.8819 4.4234,49.8875 4.4067,49.8917 4.3109,49.9124 4.2332,49.906 4.209,49.9023 4.1726,49.9209 4.1431,49.9211 4.1413,49.9527 4.1652,50.0794 4.1884,50.1794 4.1588,50.225 4.0298,50.2978 3.978,50.2871 3.884,50.2821 3.769,50.296 3.6715,50.3372 3.6655,50.379 3.6551,50.397 3.6085,50.4348 3.5128,50.4604 3.4496,50.4521 3.3648,50.437 3.2921,50.4661 3.2746,50.4818 3.2379,50.6058 3.193,50.6686 3.1825,50.688 3.1782,50.6984 3.154,50.7259 3.1116,50.7331 3.0416,50.72 3.0225,50.7111 3.0097,50.7113 2.9561,50.699 2.9387,50.6829 2.8938,50.6443 2.8631,50.6549 2.7777,50.6968 2.6467,50.7574 2.594,50.8671 2.5935,50.9368 2.5379,51.032 2.5518,51.0349 2.8589,51.1542 2.951,51.1903 3.0156,51.217 3.0992,51.2555 3.127,51.2646 3.175,51.2766 3.3659,51.3143 3.3687,51.2508 3.3749,51.216 3.383,51.2093 3.4346,51.1854 3.4696,51.1835 3.5178,51.1998 3.5162,51.2241 3.5947,51.2449 3.6635,51.2336 3.7829,51.2037 3.7881,51.1712 3.8895,51.1465 3.9464,51.1552 4.0559,51.193 4.1215,51.2194 4.1608,51.2378 4.2152,51.2759 4.2325,51.2911 4.2325,51.2911 18,1.0,United Kingdom 0.898,51.2978 0.8839,51.2989 0.783,51.3104 0.7615,51.3187 0.7441,51.335 0.7368,51.3446 0.7394,51.3701 0.7478,51.3841 0.7592,51.385 0.7898,51.3803 0.8908,51.3618 0.9051,51.3583 0.9322,51.3366 0.9426,51.3256 0.945,51.3141 0.9035,51.2987 0.898,51.2978 0.898,51.2978 30,2.0,Netherlands 3.3659,51.3143 3.4016,51.3262 3.5237,51.3521 3.5448,51.3503 3.6342,51.322 3.7288,51.2913 3.7586,51.2859 3.8586,51.2803 3.9552,51.3103 4.206,51.3112 4.2325,51.2911 4.2152,51.2759 4.1608,51.2378 4.1215,51.2194 4.0559,51.193 3.9464,51.1552 3.8895,51.1465 3.7881,51.1712 3.7829,51.2037 3.6635,51.2336 3.5947,51.2449 3.5162,51.2241 3.5178,51.1998 3.4696,51.1835 3.4346,51.1854 3.383,51.2093 3.3749,51.216 3.3687,51.2508 3.3659,51.3143 3.3659,51.3143 897,2.0,France 5.7996,49.4883 5.8024,49.481 5.8301,49.4575 5.8467,49.4442 5.9707,49.3918 6.0835,49.3968 6.1113,49.4194 6.1517,49.4475 6.2255,49.4513 6.2383,49.4493 6.2934,49.42 6.319,49.4125 6.3531,49.4025 6.4045,49.419 6.4589,49.4048 6.4989,49.386 6.5318,49.367 6.585,49.3066 6.6772,49.1886 6.7055,49.1309 6.7196,49.1113 6.8242,49.0989 6.8465,49.1254 6.8362,49.1558 6.9197,49.1638 7.0093,49.1312 7.0804,49.0711 7.1411,49.0649 7.279,49.0553 7.3534,49.0958 7.3583,49.1125 7.3679,49.1159 7.4146,49.1199 7.4761,49.1079 7.6168,49.011 7.6408,48.9889 7.6577,48.986 7.7261,48.9865 7.8101,48.9901 7.9246,48.9926 8.0342,48.9522 8.1436,48.9201 8.2141,48.9085 8.1864,48.8992 8.1256,48.837 8.1098,48.8091 8.0995,48.7877 8.0934,48.7636 8.0806,48.7479 7.9505,48.6682 7.8687,48.6084 7.791,48.5201 7.7343,48.3696 7.7257,48.3385 7.7319,48.3156 7.7377,48.2806 7.6821,48.2213 7.5968,48.1091 7.5677,48.0621 7.5586,48.0322 7.5595,47.9891 7.5731,47.9725 7.6088,47.9418 7.6123,47.9181 7.5734,47.8486 7.5465,47.8081 7.516,47.7336 7.5014,47.6408 7.517,47.6079 7.5536,47.5846 7.578,47.5445 7.5773,47.5302 7.5663,47.5301 7.5433,47.5244 7.5359,47.5113 7.5109,47.5054 7.492,47.4958 7.4917,47.4462 7.4865,47.4409 7.4422,47.4157 7.4227,47.4065 7.4052,47.3909 7.375,47.3793 7.3477,47.3795 7.3298,47.3849 7.2978,47.3862 7.2651,47.3783 7.2375,47.3674 7.1728,47.3898 7.1364,47.4449 7.015,47.4538 6.9806,47.4428 6.872,47.3097 6.9214,47.3047 6.9708,47.3076 6.9911,47.3109 6.9617,47.2381 6.8294,47.1175 6.8402,47.111 6.7838,47.0772 6.6901,47.01 6.6689,46.9807 6.6233,46.9464 6.557,46.9264 6.5192,46.9182 6.4511,46.8423 6.4378,46.7861 6.4479,46.7283 6.4258,46.7047 6.35,46.6634 6.2604,46.6294 6.12,46.5349 6.1265,46.4865 6.0784,46.3967 6.0625,46.3735 6.1024,46.3569 6.145,46.3266 6.109,46.2562 6.0977,46.2448 6.1072,46.2088 6.0659,46.1956 6.0215,46.1889 6.0007,46.1814 5.9732,46.1695 5.9588,46.1547 5.9881,46.0944 6.1248,46.0971 6.179,46.1197 6.237,46.1655 6.263,46.2093 6.235,46.2626 6.2211,46.2774 6.2362,46.3034 6.2867,46.3412 6.3108,46.3511 6.4829,46.4 6.506,46.4054 6.6243,46.4112 6.6933,46.4016 6.7283,46.3944 6.7889,46.3757 6.7974,46.3514 6.7903,46.3256 6.774,46.1021 6.8642,46.0357 6.9233,46.0028 6.9975,45.9458 7.0209,45.9097 7.0284,45.8797 6.9746,45.8235 6.9342,45.8061 6.9126,45.8001 6.8925,45.7975 6.8629,45.8039 6.8037,45.7821 6.7899,45.7367 6.8004,45.6776 6.9598,45.5451 6.9855,45.4734 7.0792,45.4252 7.137,45.379 7.1487,45.3259 7.1179,45.2078 7.0548,45.1718 6.9297,45.1283 6.8123,45.1017 6.7571,45.1168 6.6806,45.0966 6.6284,45.0747 6.615,45.0645 6.6523,44.9888 6.7396,44.8675 6.766,44.8548 6.8399,44.8197 6.892,44.8095 6.9329,44.8198 6.9593,44.8133 6.9966,44.7997 7.022,44.7806 7.0187,44.6941 6.9659,44.6374 6.9413,44.6141 6.8433,44.4906 6.8442,44.4672 6.8684,44.3251 6.9669,44.2339 7.0218,44.1967 7.3408,44.0816 7.4105,44.0763 7.4559,44.0888 7.5098,44.1062 7.6042,44.1301 7.6518,44.1209 7.6511,44.0842 7.6984,44.0415 7.6955,44.026 7.6481,43.9572 7.5877,43.9151 7.486,43.8247 7.5022,43.7717 7.5217,43.7326 7.5054,43.7416 7.4739,43.7334 7.4291,43.7082 7.4189,43.7186 7.3808,43.6998 7.3814,43.6783 7.3085,43.6603 7.2366,43.6521 7.146,43.6113 7.065,43.523 6.8785,43.3856 6.837,43.3749 6.7847,43.3738 6.6273,43.2623 6.6285,43.2389 6.6866,43.2271 6.6325,43.1362 6.5903,43.1435 6.5184,43.1404 6.3973,43.1143 6.1613,43.0666 6.1487,43.0187 6.1568,43.0021 6.1295,43.0071 6.1072,43.0159 6.0539,43.0525 5.9475,43.0696 5.9252,43.0377 5.8586,43.0098 5.826,43.0128 5.7745,43.0502 5.8084,43.0691 5.6706,43.1415 5.5126,43.161 5.3995,43.1683 5.3556,43.1759 5.3512,43.2 5.3661,43.2228 5.3555,43.283 5.3348,43.3077 5.3056,43.3173 5.2504,43.2999 5.211,43.2899 5.0892,43.288 5.0328,43.2988 5.0412,43.3422 5.0772,43.3545 5.1397,43.3674 5.1816,43.3849 5.2244,43.4167 5.222,43.4441 5.0174,43.5032 5.0034,43.4654 5.0211,43.435 5.0481,43.4251 5.0323,43.3941 5.0103,43.3792 4.9839,43.378 4.951,43.3758 4.918,43.3855 4.8694,43.3749 4.847,43.3641 4.8287,43.3514 4.8084,43.3501 4.7822,43.3628 4.7363,43.3925 4.7437,43.4421 4.74,43.4728 4.7012,43.5228 4.7279,43.3783 4.7304,43.3489 4.7523,43.3252 4.6465,43.3108 4.6066,43.3127 4.5865,43.3175 4.5674,43.3386 4.5899,43.3791 4.5684,43.3976 4.5293,43.4093 4.4998,43.4137 4.4679,43.4127 4.4402,43.4106 4.4157,43.4048 4.3128,43.4167 4.3111,43.4529 4.2804,43.4565 4.2433,43.4437 4.2358,43.4367 4.2841,43.409 4.1922,43.4121 4.1567,43.4221 4.1266,43.4595 4.1249,43.4906 4.0988,43.5064 4.0508,43.5137 3.9592,43.4917 3.9078,43.4722 3.8382,43.4264 3.7174,43.3626 3.542,43.2708 3.4095,43.2384 3.3306,43.2165 3.3086,43.2063 3.2535,43.1785 3.1368,43.0902 3.0772,43.0209 3.0734,42.9928 3.0412,42.9056 2.9994,42.8326 2.9575,42.7937 2.9687,42.7637 2.9751,42.7584 3.008,42.7498 3.0339,42.6799 3.0372,42.5646 3.0541,42.4962 3.106,42.4785 3.1371,42.4698 3.1559,42.4303 3.1701,42.3978 3.1732,42.389 3.1603,42.3864 3.1018,42.3814 3.0797,42.3868 3.044,42.4182 2.9461,42.4326 2.7209,42.3714 2.6746,42.3538 2.6534,42.3341 2.667,42.3016 2.5306,42.285 2.4737,42.3002 2.4377,42.3306 2.329,42.37 2.2701,42.3879 2.1417,42.3714 2.1203,42.348 2.091,42.3164 2.0596,42.309 2.0179,42.3049 1.9936,42.3148 1.97,42.3316 1.9564,42.3631 1.9039,42.3989 1.849,42.4219 1.7775,42.4403 1.7212,42.4616 1.7218,42.4735 1.7394,42.5126 1.7691,42.5229 1.7792,42.5218 1.7364,42.5684 1.696,42.578 1.5576,42.6077 1.4847,42.6023 1.4439,42.5538 1.4152,42.6027 1.3886,42.64 1.3575,42.667 1.3234,42.6693 1.1724,42.6616 1.1423,42.6851 1.1253,42.7166 1.0869,42.7367 0.8957,42.7645 0.8225,42.7847 0.7153,42.8104 0.6918,42.8051 0.6668,42.7908 0.6513,42.7367 0.661,42.7029 0.6817,42.6731 0.6806,42.6525 0.6746,42.6401 0.661,42.6438 0.5949,42.6467 0.5594,42.6477 0.5049,42.6433 0.4321,42.6383 0.2687,42.6593 0.1807,42.6862 0.1441,42.6741 0.1118,42.6611 0.0027,42.6378 -0.0578,42.6516 -0.1233,42.7092 -0.1517,42.7284 -0.1795,42.736 -0.205,42.7458 -0.2621,42.769 -0.3024,42.7935 -0.3082,42.8 -0.3173,42.784 -0.391,42.7481 -0.5547,42.7317 -0.7148,42.8361 -0.7296,42.8527 -0.7222,42.8706 -0.7223,42.8815 -0.7528,42.9158 -0.7874,42.9062 -0.8172,42.8975 -0.9386,42.9055 -0.9922,42.9277 -1.071,42.9578 -1.1988,42.9972 -1.2984,43.023 -1.3461,42.9877 -1.3958,42.9894 -1.4372,43.0007 -1.4645,43.0433 -1.4209,43.0746 -1.3816,43.1607 -1.383,43.2036 -1.4069,43.2241 -1.5015,43.2388 -1.6532,43.2606 -1.6997,43.257 -1.7278,43.2502 -1.7742,43.2934 -1.7782,43.3108 -1.7272,43.3299 -1.6646,43.3364 -1.5877,43.3884 -1.5275,43.4632 -1.4845,43.5212 -1.4417,43.5912 -1.4401,43.6161 -1.4381,43.642 -1.4226,43.7353 -1.3425,44.0119 -1.327,44.0411 -1.3031,44.1457 -1.2622,44.3431 -1.2566,44.402 -1.2477,44.46 -1.232,44.5075 -1.2069,44.5754 -1.1496,44.6064 -1.1244,44.6004 -1.0883,44.603 -1.0391,44.6243 -1.0583,44.6604 -1.1259,44.7087 -1.1682,44.7233 -1.228,44.6558 -1.2439,44.6247 -1.2454,44.7069 -1.2053,44.9622 -1.1664,45.1574 -1.1503,45.32 -1.1504,45.3408 -1.1468,45.376 -1.1381,45.4423 -1.0876,45.5068 -1.0624,45.5172 -1.0526,45.4989 -1.0548,45.4708 -0.994,45.4255 -0.9756,45.4169 -0.9404,45.4102 -0.9172,45.3983 -0.8,45.3092 -0.7699,45.2705 -0.758,45.2528 -0.7329,45.1738 -0.7294,45.1399 -0.7134,45.0792 -0.7016,45.0536 -0.5389,44.8446 -0.5396,44.9358 -0.5531,44.9724 -0.6115,45.0051 -0.6371,45.0238 -0.6504,45.0407 -0.6695,45.08 -0.7047,45.2707 -0.7164,45.3055 -0.7465,45.3716 -0.7802,45.4147 -0.8024,45.4355 -0.8609,45.4773 -0.9988,45.5624 -1.0841,45.6054 -1.1638,45.6357 -1.2371,45.6543 -1.227,45.736 -1.187,45.7478 -1.1441,45.751 -1.1461,45.8154 -1.0693,45.8517 -1.0515,45.9597 -1.0507,45.9862 -1.1183,46.0735 -1.1466,46.1009 -1.104,46.206 -1.1128,46.2638 -1.1672,46.2737 -1.2044,46.2618 -1.2157,46.2449 -1.2637,46.2521 -1.4676,46.3398 -1.6518,46.3923 -1.7838,46.4353 -1.822,46.522 -1.8576,46.5848 -1.914,46.6379 -2.0042,46.7085 -2.0304,46.7232 -2.0558,46.7335 -2.0797,46.7454 -2.1017,46.7579 -2.1223,46.7776 -2.1302,46.7963 -2.1249,46.846 -2.0846,46.8883 -2.0316,46.9282 -1.9829,46.9831 -2.0011,47.0094 -2.0212,47.0256 -2.0608,47.0484 -2.1094,47.064 -2.1675,47.0728 -2.1562,47.1834 -2.1309,47.2241 -2.0404,47.2332 -1.9958,47.2283 -1.9354,47.22 -1.9162,47.2142 -1.8947,47.1976 -1.7999,47.1582 -1.7703,47.1543 -1.7324,47.1546 -1.8877,47.2348 -1.9184,47.2436 -2.0098,47.2658 -2.0309,47.2663 -2.1262,47.2557 -2.1876,47.226 -2.2776,47.1863 -2.4298,47.2087 -2.4766,47.2231 -2.5359,47.2439 -2.5237,47.332 -2.4695,47.361 -2.4405,47.3521 -2.405,47.3612 -2.4557,47.3987 -2.4788,47.3964 -2.4798,47.4435 -2.419,47.4453 -2.3633,47.4473 -2.3848,47.4561 -2.5058,47.4748 -2.577,47.4834 -2.6597,47.4584 -2.789,47.4347 -2.8276,47.443 -2.8573,47.4921 -2.8067,47.4906 -2.7712,47.4929 -2.7354,47.4903 -2.6819,47.5415 -2.6768,47.5606 -2.6963,47.5825 -2.8846,47.5455 -2.921,47.5267 -3.089,47.5318 -3.1203,47.5411 -3.123,47.4711 -3.1155,47.4465 -3.0942,47.4215 -3.1281,47.4226 -3.1394,47.477 -3.1287,47.4967 -3.1298,47.5263 -3.1492,47.5575 -3.1859,47.5742 -3.2123,47.596 -3.5038,47.704 -3.628,47.723 -3.7872,47.7392 -3.8353,47.7485 -3.8808,47.7781 -3.8985,47.7981 -3.9763,47.835 -4.0953,47.8203 -4.1492,47.7822 -4.1612,47.7626 -4.1765,47.7494 -4.206,47.7443 -4.2495,47.7402 -4.2631,47.7405 -4.3607,47.754 -4.358,47.7755 -4.3377,47.7912 -4.3437,47.8172 -4.3575,47.8442 -4.3857,47.8796 -4.4127,47.9062 -4.4368,47.9219 -4.4835,47.9479 -4.5276,47.9647 -4.5842,47.9619 -4.6849,47.9756 -4.7154,47.9842 -4.6991,48.0132 -4.3473,48.0579 -4.3253,48.0493 -4.2917,48.0444 -4.2766,48.0615 -4.2697,48.0935 -4.3067,48.1475 -4.4349,48.1831 -4.4616,48.187 -4.4862,48.1748 -4.5043,48.1449 -4.5399,48.1194 -4.6147,48.2246 -4.5598,48.2767 -4.5304,48.2854 -4.5406,48.251 -4.5263,48.2354 -4.4019,48.2282 -4.2568,48.2294 -4.1859,48.2443 -4.2936,48.2653 -4.3957,48.2729 -4.4339,48.2909 -4.5983,48.2896 -4.7042,48.2795 -4.7536,48.2796 -4.7749,48.3092 -4.783,48.3683 -4.7696,48.4555 -4.7438,48.4837 -4.722,48.5032 -4.6925,48.5154 -4.622,48.5242 -4.5928,48.5138 -4.583,48.5045 -4.5802,48.5184 -4.5576,48.5665 -4.5325,48.5803 -4.3475,48.6184 -4.1656,48.6316 -3.9877,48.6671 -3.9657,48.656 -3.9581,48.6296 -3.9435,48.6002 -3.8517,48.5803 -3.8451,48.5998 -3.855,48.6262 -3.826,48.6596 -3.805,48.6703 -3.7174,48.6556 -3.6726,48.6388 -3.633,48.6263 -3.5772,48.6221 -3.5266,48.6832 -3.5669,48.71 -3.5735,48.7302 -3.5314,48.7698 -3.5071,48.7813 -3.4694,48.785 -3.368,48.7682 -3.2213,48.8134 -3.1197,48.8089 -3.0563,48.7705 -2.8749,48.6233 -2.8077,48.5584 -2.7163,48.4774 -2.6914,48.4575 -2.6812,48.446 -2.462,48.5751 -2.4147,48.598 -2.3038,48.6204 -2.2811,48.6163 -2.1249,48.5831 -2.0361,48.5424 -1.9732,48.4577 -1.9425,48.4731 -1.9573,48.5284 -1.9882,48.5416 -2.0109,48.5874 -1.9851,48.631 -1.9294,48.6414 -1.8448,48.6533 -1.8377,48.6283 -1.864,48.602 -1.8477,48.5692 -1.8301,48.5578 -1.8095,48.5548 -1.7845,48.5548 -1.7201,48.5554 -1.6384,48.5608 -1.6125,48.5683 -1.5862,48.584 -1.5187,48.5806 -1.4628,48.5815 -1.3667,48.5881 -1.4475,48.6198 -1.4918,48.6318 -1.5602,48.6931 -1.5761,48.7817 -1.5731,48.8067 -1.5618,48.8584 -1.5539,48.9598 -1.5803,48.9534 -1.595,48.9842 -1.6076,49.0332 -1.6072,49.1586 -1.6784,49.2378 -1.7031,49.2619 -1.7426,49.2991 -1.7811,49.3175 -1.8062,49.3198 -1.8428,49.4428 -1.838,49.526 -1.8389,49.5566 -1.8536,49.5916 -1.8889,49.6079 -1.91,49.6109 -1.9419,49.6199 -1.9391,49.6645 -1.9189,49.6692 -1.8417,49.657 -1.7124,49.6233 -1.6627,49.6039 -1.6178,49.5982 -1.5255,49.6007 -1.4986,49.6073 -1.4729,49.6277 -1.4086,49.6479 -1.3742,49.6497 -1.3207,49.6436 -1.2865,49.6376 -1.2621,49.6273 -1.2365,49.599 -1.2268,49.5619 -1.257,49.5414 -1.2965,49.5204 -1.3019,49.4988 -1.2889,49.4706 -1.2583,49.4354 -1.2425,49.4184 -1.1634,49.3499 -1.1079,49.3129 -1.0776,49.3331 -0.9755,49.3401 -0.9232,49.3378 -0.8951,49.3214 -0.8583,49.3101 -0.8258,49.3052 -0.7244,49.2949 -0.6208,49.2883 -0.5793,49.2888 -0.5022,49.2897 -0.4167,49.2848 -0.3672,49.2688 -0.2936,49.2456 -0.2279,49.2273 -0.0984,49.2438 -0.0729,49.2491 -0.039,49.2582 1.0E-4,49.2721 0.0708,49.2987 0.092,49.3149 0.1134,49.3348 0.1403,49.3495 0.1692,49.3575 0.2351,49.3707 0.2698,49.3737 0.2947,49.3749 0.3761,49.3842 0.424,49.3949 0.4653,49.4122 0.4874,49.4296 0.4407,49.4151 0.3794,49.4001 0.3532,49.3976 0.3156,49.3964 0.2559,49.4003 0.1608,49.4123 0.1131,49.4309 0.0758,49.4656 0.1694,49.6319 0.1856,49.6468 0.211,49.6618 0.2665,49.6767 0.3106,49.6881 0.4263,49.7313 0.5626,49.7874 0.5849,49.7954 0.6395,49.809 0.6883,49.8171 0.7122,49.8182 1.0698,49.8693 1.2092,49.9157 1.2306,49.9241 1.3706,50.0081 1.3997,50.0212 1.4367,50.0431 1.4591,50.0665 1.5034,50.144 1.5323,50.2324 1.5521,50.302 1.5893,50.3124 1.6016,50.3105 1.5574,50.3437 1.5749,50.4697 1.5617,50.6262 1.5621,50.6472 1.5963,50.7503 1.6225,50.8189 1.7369,50.8863 1.7664,50.8968 1.7903,50.9037 1.9404,50.9365 2.2318,50.9792 2.3558,50.9953 2.3812,50.993 2.4115,50.9974 2.4885,51.0169 2.5131,51.0237 2.5379,51.032 2.5935,50.9368 2.594,50.8671 2.6467,50.7574 2.7777,50.6968 2.8631,50.6549 2.8938,50.6443 2.9387,50.6829 2.9561,50.699 3.0097,50.7113 3.0225,50.7111 3.0416,50.72 3.1116,50.7331 3.154,50.7259 3.1782,50.6984 3.1825,50.688 3.193,50.6686 3.2379,50.6058 3.2746,50.4818 3.2921,50.4661 3.3648,50.437 3.4496,50.4521 3.5128,50.4604 3.6085,50.4348 3.6551,50.397 3.6655,50.379 3.6715,50.3372 3.769,50.296 3.884,50.2821 3.978,50.2871 4.0298,50.2978 4.1588,50.225 4.1884,50.1794 4.1652,50.0794 4.1413,49.9527 4.1431,49.9211 4.1726,49.9209 4.209,49.9023 4.2332,49.906 4.3109,49.9124 4.4067,49.8917 4.4234,49.8875 4.4515,49.8819 4.5039,49.89 4.67,49.9418 4.6864,49.9991 4.687,50.0262 4.7559,50.0779 4.8176,50.1097 4.8786,50.0762 4.8462,50.0379 4.8317,50.0116 4.8138,49.9354 4.8614,49.745 4.9024,49.732 4.9299,49.7347 4.952,49.7449 4.9833,49.7465 5.3234,49.5997 5.3845,49.5655 5.3989,49.5606 5.4247,49.5464 5.4668,49.4792 5.4647,49.4521 5.5143,49.4532 5.5853,49.4696 5.6239,49.4789 5.6939,49.4863 5.7836,49.4888 5.7996,49.4883 5.7996,49.4883 281,2.0,Czech Republic 14.8056,50.8069 14.9439,50.8005 14.9811,50.8087 14.9964,50.8916 14.9935,50.9152 15.1538,50.9558 15.2162,50.9328 15.252,50.9161 15.267,50.8901 15.2492,50.8656 15.2597,50.8334 15.2884,50.8014 15.3395,50.782 15.3563,50.7207 15.465,50.7279 15.5828,50.7143 15.7636,50.6854 15.9228,50.6308 16.0001,50.5716 16.0471,50.577 16.0935,50.5993 16.1132,50.5978 16.213,50.6119 16.3074,50.6057 16.3451,50.5857 16.4055,50.5433 16.4226,50.5204 16.3818,50.4647 16.3343,50.4396 16.2903,50.4464 16.1832,50.3808 16.1948,50.3521 16.2416,50.3316 16.2784,50.3199 16.3474,50.3032 16.4167,50.2586 16.4338,50.2455 16.5231,50.169 16.5374,50.1505 16.5413,50.1127 16.5629,50.0821 16.5894,50.062 16.6151,50.0513 16.6905,50.0406 16.7617,50.0829 16.7777,50.1117 16.7862,50.1214 16.8217,50.1438 16.886,50.1645 16.9431,50.1648 16.9766,50.1589 16.9474,50.2518 16.9122,50.2823 16.8434,50.3532 16.8656,50.3803 16.8854,50.3818 16.9159,50.377 17.0321,50.3524 17.0921,50.3386 17.1793,50.303 17.2011,50.2872 17.2576,50.2623 17.3521,50.2215 17.407,50.2124 17.6004,50.2077 17.6346,50.2145 17.667,50.242 17.6705,50.2621 17.6977,50.261 17.7265,50.2398 17.7361,50.1753 17.737,50.1513 17.6686,50.121 17.6163,50.1143 17.5801,50.1048 17.6314,50.0502 17.8136,49.9322 17.8499,49.9217 17.8942,49.92 17.9827,49.9537 18.0264,49.9983 18.0673,49.9804 18.2431,49.9004 18.3231,49.8814 18.5252,49.865 18.5512,49.8551 18.5519,49.758 18.6069,49.6807 18.7594,49.6251 18.7833,49.6163 18.8117,49.538 18.8201,49.4973 18.8245,49.4711 18.8237,49.4607 18.7653,49.4571 18.6283,49.4472 18.5388,49.4367 18.5172,49.4052 18.3562,49.2764 18.2855,49.2493 18.2491,49.2445 18.1845,49.2299 18.1498,49.188 18.1475,49.1538 18.1315,49.1082 18.1187,49.0885 18.1228,49.065 18.0956,49.0267 18.0491,48.9857 17.8851,48.9289 17.8161,48.8721 17.7346,48.822 17.6865,48.8 17.6519,48.7961 17.6248,48.7958 17.4772,48.7831 17.3858,48.7688 17.357,48.7692 17.3055,48.7945 17.2131,48.8164 17.1628,48.8133 17.0874,48.7759 17.0166,48.7126 16.998,48.6876 16.9639,48.626 16.9216,48.5636 16.8934,48.6476 16.868,48.67 16.8474,48.6696 16.8086,48.6605 16.7614,48.6641 16.6873,48.6906 16.6346,48.7294 16.5165,48.7565 16.4342,48.7555 16.4071,48.7263 16.3892,48.6959 16.3584,48.6804 16.3093,48.6774 16.0799,48.694 16.0578,48.6989 16.0373,48.7044 15.9984,48.7214 15.9411,48.749 15.8265,48.8039 15.7234,48.8027 15.663,48.8082 15.5623,48.8431 15.5417,48.8531 15.5241,48.856 15.4917,48.8641 15.429,48.8952 15.37,48.9176 15.3366,48.9285 15.279,48.9317 15.1347,48.9437 15.0438,48.9586 15.0067,48.9626 14.9822,48.9553 14.9578,48.9239 14.9634,48.8829 14.9372,48.7387 14.8641,48.727 14.828,48.7307 14.8023,48.729 14.7057,48.6378 14.6952,48.5984 14.6983,48.5483 14.6843,48.5297 14.6789,48.5257 14.6332,48.553 14.5907,48.5727 14.4844,48.5727 14.4254,48.5634 14.3696,48.5369 14.2578,48.5269 14.1637,48.5404 14.0309,48.614 13.9782,48.6581 13.8636,48.7079 13.838,48.7148 13.8135,48.7178 13.7982,48.7238 13.7918,48.7442 13.7603,48.7781 13.7418,48.7899 13.7256,48.8146 13.7082,48.8252 13.6796,48.8235 13.6523,48.8335 13.632,48.8486 13.6064,48.8915 13.5757,48.9014 13.545,48.9177 13.4902,48.9165 13.383,48.9499 13.3766,48.9931 13.2989,49.0446 13.1538,49.1109 13.0121,49.2312 12.94,49.2784 12.8683,49.2837 12.7787,49.2832 12.6558,49.3682 12.5794,49.4708 12.5602,49.5036 12.5362,49.5596 12.497,49.6202 12.4578,49.634 12.4374,49.6384 12.4502,49.7265 12.5276,49.8523 12.4729,49.9186 12.4525,49.9283 12.411,49.9364 12.2893,49.99 12.2473,50.0085 12.1879,50.0483 12.1754,50.0785 12.1908,50.1059 12.1041,50.2504 12.0755,50.2643 12.1644,50.2567 12.2628,50.1607 12.3045,50.1486 12.3073,50.1782 12.3802,50.2513 12.4673,50.3148 12.4968,50.3344 12.602,50.3539 12.6523,50.3538 12.7212,50.3733 12.7531,50.3869 12.8059,50.3947 12.8363,50.3841 12.8791,50.367 12.898,50.3566 12.9252,50.3519 12.966,50.36 12.9724,50.3629 12.9956,50.3811 13.0599,50.4399 13.1675,50.4444 13.1864,50.462 13.2033,50.4932 13.2294,50.5308 13.3583,50.5709 13.3947,50.5529 13.4165,50.5468 13.443,50.5431 13.4981,50.5833 13.4905,50.592 13.5205,50.6311 13.5618,50.6509 13.6139,50.6638 13.6488,50.6672 13.7135,50.6722 13.87,50.7101 13.8826,50.7294 13.9695,50.7556 14.1339,50.7844 14.2896,50.8235 14.3465,50.8761 14.2995,50.8873 14.2362,50.9363 14.2636,50.9784 14.2842,50.9933 14.4696,50.9776 14.5468,50.9467 14.5749,50.9234 14.6059,50.8648 14.6092,50.8223 14.5969,50.7993 14.6293,50.7884 14.6953,50.7705 14.7173,50.7652 14.7492,50.7596 14.7805,50.7608 14.8024,50.7977 14.8056,50.8069 14.8056,50.8069 27,11.0,Russia 155.2102,50.8212 155.2105,50.839 155.2368,50.8616 155.2451,50.8671 155.2568,50.871 155.2677,50.8724 155.332,50.8753 155.3426,50.8752 155.3627,50.8724 155.4013,50.8621 155.4112,50.8507 155.4284,50.8117 155.432,50.7977 155.4228,50.769 155.4071,50.755 155.3837,50.7473 155.3508,50.7442 155.32,50.7453 155.3098,50.7468 155.2903,50.7512 155.2614,50.7587 155.2437,50.7694 155.236,50.7769 155.2239,50.7916 155.212,50.8135 155.2102,50.8212 155.2102,50.8212 244,-8.0,Canada -123.38,48.727 -123.3846,48.6938 -123.3298,48.5318 -123.2971,48.5758 -123.2822,48.6254 -123.2276,48.6262 -123.1698,48.4862 -123.1143,48.4272 -123.0985,48.3969 -123.1139,48.3568 -123.1497,48.3427 -123.1814,48.342 -123.2406,48.3715 -123.2806,48.3565 -123.3342,48.3194 -123.358,48.2832 -123.3708,48.2519 -123.4042,48.2457 -123.4193,48.2562 -123.5352,48.2929 -123.5897,48.3059 -123.6317,48.2988 -123.7404,48.3098 -123.7962,48.3264 -124.0832,48.4135 -124.2426,48.4615 -124.4282,48.505 -124.5074,48.5226 -124.5392,48.5312 -124.5837,48.5528 -124.6134,48.5742 -124.6386,48.5949 -124.7407,48.6242 -124.8468,48.6531 -124.8801,48.6591 -124.9191,48.6689 -125.002,48.7424 -124.8346,48.8644 -124.7232,48.9143 -124.6605,48.9597 -124.5976,49.0832 -124.6137,49.1595 -124.6238,49.1792 -124.6395,49.1641 -124.6341,49.1269 -124.6341,49.099 -124.6456,49.0612 -124.6953,48.9691 -124.713,48.9528 -124.7541,48.932 -124.7736,48.926 -124.8863,48.9285 -124.944,48.9351 -125.0212,48.903 -125.0455,48.896 -125.1399,48.9091 -125.2822,48.8611 -125.3211,48.8631 -125.567,48.9992 -125.5837,49.0422 -125.5538,49.0493 -125.5089,49.0723 -125.4553,49.1087 -125.425,49.1507 -125.4799,49.1335 -125.5365,49.1014 -125.5665,49.0926 -125.5948,49.1854 -125.6116,49.2536 -125.6811,49.2181 -125.7836,49.171 -125.8369,49.2089 -125.83,49.2301 -125.7905,49.2378 -125.7628,49.2578 -125.7144,49.3663 -125.7617,49.3388 -125.7785,49.3189 -125.7789,49.2983 -125.8153,49.2666 -125.8574,49.2751 -125.8775,49.2895 -125.8893,49.3327 -125.9342,49.3664 -126.0397,49.3538 -126.0781,49.3327 -126.1792,49.345 -126.2731,49.3454 -126.2776,49.3248 -126.3495,49.3173 -126.392,49.3556 -126.3811,49.5234 -126.2789,49.5793 -126.2174,49.5807 -126.1889,49.5779 -126.1641,49.5731 -126.0981,49.5774 -126.0373,49.5835 -125.9478,49.5932 -125.9033,49.6035 -125.9205,49.6212 -126.0229,49.6169 -126.0538,49.6099 -126.104,49.5966 -126.1542,49.5918 -126.2478,49.6062 -126.4004,49.6457 -126.4427,49.738 -126.492,49.8215 -126.6162,49.8518 -126.6559,49.8256 -126.688,49.816 -126.751,49.8057 -126.8059,49.7981 -126.9381,49.7975 -126.9929,49.8361 -127.0355,49.883 -127.0501,49.9083 -126.9901,49.9637 -126.9929,49.9836 -126.9834,50.0054 -126.9392,50.0269 -126.9675,50.0385 -127.0795,50.0413 -127.0867,49.9993 -127.1471,49.9746 -127.1951,49.9699 -127.2326,49.9848 -127.2608,50.012 -127.2792,50.0326 -127.3564,50.0724 -127.4408,50.0721 -127.5896,50.0265 -127.7023,50.0511 -127.7102,50.0723 -127.6813,50.0901 -127.6405,50.1186 -127.5966,50.1645 -127.6091,50.2615 -127.6771,50.2793 -127.7088,50.2649 -127.7335,50.2584 -127.7573,50.2651 -127.7859,50.2867 -127.7298,50.4036 -127.5633,50.4281 -127.5108,50.4338 -127.3807,50.4238 -127.3397,50.3816 -127.3085,50.3442 -127.2738,50.3202 -127.2545,50.3147 -127.2568,50.3261 -127.2936,50.3794 -127.3201,50.4058 -127.3458,50.4235 -127.3728,50.4498 -127.3539,50.4816 -127.2978,50.5086 -127.2503,50.5134 -127.2235,50.5213 -127.3879,50.5355 -127.4975,50.5481 -127.6798,50.563 -127.6604,50.5498 -127.5994,50.5264 -127.5657,50.522 -127.5227,50.5263 -127.4688,50.5229 -127.4408,50.5198 -127.4166,50.5073 -127.4028,50.4868 -127.8574,50.3886 -127.9396,50.4165 -128.0295,50.4727 -128.1246,50.5501 -128.18,50.6201 -128.2113,50.6804 -128.2175,50.7123 -128.1566,50.7422 -127.9112,50.8019 -127.8574,50.8132 -127.7183,50.813 -127.6872,50.8066 -127.6381,50.7954 -127.4827,50.7586 -127.3167,50.7147 -127.2973,50.7028 -127.265,50.6597 -127.1608,50.6177 -127.0334,50.5777 -126.7824,50.5187 -126.6623,50.4961 -126.5798,50.487 -126.521,50.4714 -126.4397,50.4447 -126.372,50.4253 -126.3022,50.4236 -126.1995,50.4239 -126.1645,50.4252 -126.1364,50.4227 -126.0219,50.4095 -125.9636,50.4012 -125.8783,50.3802 -125.8553,50.3743 -125.8344,50.3668 -125.7788,50.334 -125.7478,50.3254 -125.6269,50.3201 -125.3901,50.3078 -125.3667,50.3036 -125.2671,50.2685 -125.2439,50.2514 -125.2382,50.2294 -125.2259,50.2037 -125.2049,50.1578 -125.189,50.1219 -125.1742,50.0803 -125.1424,50.0562 -125.0989,50.0237 -125.0376,49.9608 -125.026,49.914 -124.9827,49.8553 -124.9265,49.8109 -124.808,49.731 -124.7132,49.6744 -124.7069,49.6077 -124.7317,49.5748 -124.6725,49.4801 -124.6488,49.454 -124.6057,49.4073 -124.3962,49.3309 -124.3679,49.3213 -124.3441,49.3156 -124.078,49.2587 -123.9397,49.2137 -123.7612,49.1545 -123.6288,49.0595 -123.5695,48.9802 -123.5779,48.9268 -123.5065,48.8493 -123.4064,48.7801 -123.38,48.727 -123.38,48.727 27,11.0,Russia 156.1633,50.5672 156.1134,50.5786 156.0482,50.5881 155.961,50.6118 155.9518,50.6161 155.9433,50.6211 155.9325,50.6329 155.9262,50.65 155.9268,50.67 155.9314,50.6829 155.9375,50.6948 155.9511,50.7099 156.1026,50.7922 156.1147,50.7972 156.1259,50.7998 156.2039,50.8112 156.215,50.8119 156.2297,50.8089 156.2527,50.7874 156.2569,50.7735 156.2498,50.6946 156.214,50.6497 156.197,50.6324 156.1765,50.6155 156.1677,50.5969 156.1633,50.5672 156.1633,50.5672 13,-8.0,Canada -126.6046,50.7104 -126.6142,50.7114 -126.6599,50.7242 -126.6713,50.7309 -126.7099,50.7655 -126.6908,50.7708 -126.4524,50.7883 -126.439,50.7853 -126.3953,50.7628 -126.3739,50.7421 -126.538,50.7131 -126.6046,50.7104 -126.6046,50.7104 19,-8.0,Canada -126.0589,50.7601 -126.0456,50.7522 -126.0369,50.7448 -125.9848,50.6883 -126.0608,50.6411 -126.0665,50.6006 -126.0776,50.5954 -126.2711,50.5831 -126.3758,50.5899 -126.3915,50.5917 -126.41,50.5973 -126.4235,50.6067 -126.353,50.6674 -126.2443,50.7252 -126.1929,50.7484 -126.0876,50.7697 -126.0651,50.7653 -126.0589,50.7601 -126.0589,50.7601 13,-3.5,Canada -55.3821,50.7254 -55.428,50.664 -55.4402,50.6571 -55.4697,50.644 -55.4801,50.641 -55.4998,50.6404 -55.5658,50.6654 -55.5423,50.7252 -55.534,50.7326 -55.3739,50.7456 -55.3678,50.7331 -55.3821,50.7254 -55.3821,50.7254 58,11.0,Russia 154.9937,49.995 154.9795,50.0091 154.976,50.023 154.9883,50.1767 155.014,50.2435 155.1579,50.2954 155.1926,50.3064 155.2037,50.3089 155.2147,50.3099 155.3105,50.3169 155.3929,50.3198 155.4033,50.3199 155.4143,50.3225 155.4306,50.3301 155.5139,50.388 155.5279,50.4026 155.6152,50.5334 155.6195,50.5461 155.622,50.5591 155.6243,50.5786 155.6257,50.5951 155.6459,50.6288 155.6561,50.6371 155.7417,50.6883 155.7723,50.7038 155.7845,50.7089 155.7965,50.7123 155.8078,50.715 155.8297,50.7173 155.8392,50.7143 155.8665,50.7024 155.8766,50.6924 155.8839,50.6613 155.8872,50.6412 155.9145,50.4638 155.658,50.2057 155.5613,50.1309 155.5513,50.1273 155.5297,50.1236 155.5078,50.1213 155.4978,50.1216 155.468,50.1256 155.4577,50.1259 155.3848,50.1252 155.3627,50.1204 155.2919,50.089 155.2819,50.084 155.266,50.0728 155.2499,50.0618 155.2378,50.0501 155.1249,49.9954 155.1054,49.9994 155.086,50.0022 155.0652,50.0024 155.0232,50.0 155.0123,49.999 154.9937,49.995 154.9937,49.995 21,1.0,United Kingdom -1.2803,50.5204 -1.3651,50.56 -1.4708,50.6022 -1.4941,50.6093 -1.5098,50.6103 -1.5209,50.6091 -1.5355,50.6052 -1.5671,50.6005 -1.5482,50.6166 -1.5209,50.6366 -1.3068,50.7123 -1.292,50.713 -1.114,50.6779 -1.0919,50.662 -1.058,50.6289 -1.1664,50.5434 -1.1893,50.5353 -1.2134,50.5289 -1.2397,50.5241 -1.2803,50.5204 -1.2803,50.5204 16,-8.0,Canada -126.7196,50.5552 -126.8277,50.5806 -126.8495,50.5791 -126.8653,50.574 -126.9088,50.569 -126.9341,50.5695 -126.9498,50.577 -126.9362,50.5955 -126.9156,50.6068 -126.8969,50.611 -126.6973,50.6088 -126.6837,50.6062 -126.6413,50.5699 -126.7095,50.5553 -126.7196,50.5552 -126.7196,50.5552 18,-8.0,Canada -126.0945,50.54 -126.0336,50.5006 -126.1174,50.4701 -126.1447,50.4633 -126.1589,50.4619 -126.2944,50.4571 -126.3962,50.4631 -126.4121,50.4671 -126.432,50.4757 -126.4121,50.4815 -126.3825,50.488 -126.365,50.4901 -126.3501,50.4911 -126.3347,50.4906 -126.2965,50.4948 -126.1894,50.5162 -126.0945,50.54 -126.0945,50.54 14,-8.0,Canada -125.1812,50.3976 -125.1534,50.3833 -125.1416,50.3737 -125.1473,50.3584 -125.1963,50.3115 -125.2087,50.3059 -125.2368,50.2976 -125.273,50.2916 -125.3373,50.3221 -125.3288,50.332 -125.2875,50.3661 -125.2786,50.3707 -125.1812,50.3976 -125.1812,50.3976 27,-8.0,Canada -125.0837,50.373 -125.0473,50.3575 -125.0271,50.3465 -124.9763,50.3163 -124.8729,50.1826 -124.8626,50.1661 -124.8602,50.1498 -124.8624,50.1344 -124.9285,50.079 -124.9436,50.0666 -124.9546,50.0641 -124.9644,50.0715 -124.9514,50.1016 -124.9674,50.1811 -125.0249,50.2572 -125.0786,50.2655 -125.1307,50.2587 -125.1458,50.243 -125.167,50.2321 -125.1831,50.2313 -125.1994,50.2342 -125.2104,50.258 -125.2078,50.2762 -125.1024,50.3757 -125.09,50.3764 -125.0837,50.373 -125.0837,50.373 14,-8.0,Canada -124.5388,50.2412 -124.5073,50.2315 -124.4951,50.2252 -124.4827,50.2162 -124.4723,50.2029 -124.4698,50.1898 -124.4682,50.1734 -124.4733,50.1489 -124.516,50.1017 -124.6057,50.1693 -124.5911,50.2153 -124.5545,50.2425 -124.5388,50.2412 -124.5388,50.2412 15,-8.0,Canada -124.7104,50.236 -124.6874,50.2266 -124.6338,50.1816 -124.5691,50.1204 -124.566,50.1024 -124.6224,50.055 -124.6413,50.0553 -124.6736,50.0784 -124.7509,50.1497 -124.7746,50.1784 -124.7774,50.1914 -124.7324,50.2402 -124.7181,50.2413 -124.7104,50.236 -124.7104,50.236 20,-8.0,Canada -125.1565,50.2058 -125.1509,50.211 -125.1217,50.2234 -125.0699,50.2359 -125.0559,50.2313 -124.9787,50.1558 -124.9721,50.1374 -124.9983,50.0839 -124.9679,49.946 -124.9824,49.925 -124.9995,49.9469 -125.0197,49.9872 -125.0262,50.0124 -125.0934,50.0557 -125.1324,50.0821 -125.1515,50.1453 -125.1602,50.1845 -125.1602,50.2017 -125.1565,50.2058 -125.1565,50.2058 14,-8.0,Canada -124.7949,50.1678 -124.7422,50.1107 -124.7273,50.0837 -124.7101,50.0199 -124.7367,50.0008 -124.7816,49.9782 -124.8131,49.9988 -124.8773,50.0478 -124.8763,50.0585 -124.8516,50.0728 -124.8036,50.1104 -124.7935,50.1215 -124.7949,50.1678 -124.7949,50.1678 54,2.0,Luxembourg 6.1255,50.0701 6.1201,50.0614 6.1092,50.033 6.1039,49.9995 6.1216,49.9564 6.1316,49.9365 6.1652,49.8937 6.2251,49.8402 6.2437,49.825 6.3067,49.7979 6.312,49.7911 6.3861,49.7605 6.4202,49.7517 6.4724,49.7538 6.5143,49.7505 6.4964,49.6496 6.463,49.636 6.4116,49.6087 6.3473,49.469 6.3535,49.4324 6.3531,49.4025 6.319,49.4125 6.2934,49.42 6.2383,49.4493 6.2255,49.4513 6.1517,49.4475 6.1113,49.4194 6.0835,49.3968 5.9707,49.3918 5.8467,49.4442 5.8301,49.4575 5.8024,49.481 5.7996,49.4883 5.8275,49.4927 5.8545,49.5147 5.8918,49.5834 5.8906,49.6059 5.8676,49.6528 5.8607,49.6628 5.7817,49.7238 5.7442,49.7353 5.7262,49.7779 5.7393,49.8501 5.7702,49.8998 5.8259,49.9295 5.8742,50.0197 5.879,50.0398 5.964,50.112 6.0091,50.124 6.0174,50.1235 6.0214,50.1053 6.1108,50.0741 6.1255,50.0701 6.1255,50.0701 33,-5.0,Canada -64.4164,49.8037 -64.3229,49.7444 -64.2907,49.7323 -64.2116,49.7202 -63.9209,49.6454 -63.8237,49.6175 -63.7876,49.602 -63.7476,49.5821 -63.6205,49.5095 -63.5767,49.4821 -63.5217,49.4266 -63.525,49.401 -63.4794,49.3401 -63.4436,49.323 -63.4077,49.3137 -63.3235,49.2941 -63.294,49.2873 -63.2663,49.2798 -63.2575,49.7636 -63.381,49.7835 -63.3981,49.7838 -63.4508,49.786 -63.5216,49.7918 -63.864,49.8408 -63.934,49.8672 -64.0404,49.8899 -64.1083,49.893 -64.1315,49.8911 -64.3565,49.8454 -64.3769,49.8387 -64.4037,49.8219 -64.4168,49.804 -64.4164,49.8037 24,-8.0,Canada -126.5807,49.8214 -126.5616,49.7997 -126.5461,49.7909 -126.4902,49.7681 -126.4573,49.717 -126.4477,49.6995 -126.426,49.5913 -126.4291,49.5675 -126.4355,49.5468 -126.4459,49.5391 -126.4853,49.5276 -126.4979,49.5266 -126.5103,49.5286 -126.6023,49.5551 -126.6238,49.5642 -126.7178,49.6285 -126.7795,49.6719 -126.7869,49.6879 -126.7525,49.7743 -126.7025,49.7904 -126.6111,49.8189 -126.5894,49.8223 -126.5807,49.8214 -126.5807,49.8214 30,-8.0,Canada -123.9399,49.4368 -123.9443,49.4331 -123.9551,49.4298 -123.969,49.4307 -124.0981,49.4899 -124.2221,49.5488 -124.254,49.5719 -124.2582,49.5811 -124.2927,49.615 -124.3556,49.6359 -124.3727,49.6415 -124.4297,49.6566 -124.4428,49.6622 -124.4731,49.6823 -124.4694,49.7415 -124.4348,49.7399 -124.4175,49.7298 -124.4056,49.7146 -124.3763,49.6952 -124.3106,49.6764 -124.2618,49.6664 -124.249,49.6664 -124.2258,49.6659 -124.1973,49.6562 -124.1673,49.6409 -124.1489,49.6262 -123.9504,49.4659 -123.941,49.4424 -123.9399,49.4368 -123.9399,49.4368 21,-8.0,Canada -123.8421,49.7107 -123.8625,49.6993 -123.8771,49.6878 -123.891,49.6761 -123.9072,49.6583 -123.9174,49.6433 -123.922,49.6325 -123.9236,49.6202 -123.9287,49.6054 -123.9429,49.5943 -123.9558,49.5935 -123.9701,49.5985 -124.0032,49.6117 -124.013,49.6199 -124.0169,49.647 -123.9574,49.6931 -123.9079,49.7105 -123.8491,49.7207 -123.835,49.7169 -123.8421,49.7107 -123.8421,49.7107 16,-3.5,Canada -54.0009,49.6793 -53.9599,49.6328 -53.9233,49.6032 -53.9244,49.5905 -54.1816,49.51 -54.1945,49.5122 -54.2113,49.5214 -54.2184,49.5529 -54.2176,49.5941 -54.2049,49.6569 -54.1895,49.6654 -54.0615,49.6929 -54.0177,49.6925 -54.0058,49.6885 -54.0009,49.6793 -54.0009,49.6793 25,-3.5,Canada -54.4492,49.577 -54.4511,49.5652 -54.46,49.5282 -54.493,49.5034 -54.6921,49.4372 -54.7286,49.4313 -54.7581,49.4277 -54.7785,49.4282 -54.7915,49.4331 -54.8127,49.5259 -54.8074,49.5349 -54.7245,49.539 -54.7116,49.513 -54.7061,49.5004 -54.6833,49.4893 -54.6628,49.4882 -54.6489,49.4913 -54.6276,49.4976 -54.5339,49.549 -54.4939,49.5783 -54.4813,49.5968 -54.4682,49.603 -54.4555,49.607 -54.4492,49.577 -54.4492,49.577 31,11.0,Russia 154.3669,49.2344 154.3714,49.2909 154.3733,49.3104 154.3772,49.3201 154.4109,49.3663 154.4753,49.4239 154.52,49.5186 154.5182,49.5321 154.5861,49.5794 154.6279,49.5763 154.6667,49.5699 154.6759,49.5639 154.654,49.4908 154.6462,49.4826 154.6196,49.4716 154.606,49.4634 154.59,49.4489 154.5662,49.3994 154.5624,49.3865 154.5627,49.3732 154.5693,49.3626 154.5972,49.3321 154.6074,49.2894 154.5876,49.2524 154.5799,49.2433 154.5644,49.2356 154.489,49.2074 154.4752,49.2064 154.4049,49.2239 154.3669,49.2344 154.3669,49.2344 221,2.0,Slovakia 18.8237,49.4607 18.9408,49.4249 18.9405,49.3995 18.9472,49.3453 19.0038,49.3352 19.1314,49.3435 19.1637,49.3572 19.171,49.381 19.2143,49.4499 19.2409,49.4697 19.419,49.544 19.4471,49.5432 19.4924,49.5171 19.5067,49.4787 19.5485,49.4023 19.6297,49.3501 19.6816,49.3409 19.7489,49.3509 19.7759,49.3083 19.7966,49.2209 19.7689,49.1964 19.7448,49.1765 19.737,49.1579 19.7546,49.1439 19.814,49.1353 19.839,49.1406 19.882,49.1696 19.9074,49.1746 19.9503,49.1699 19.9697,49.1614 19.9912,49.1432 20.01,49.1327 20.0441,49.1214 20.0631,49.1485 20.0738,49.1921 20.1141,49.2583 20.177,49.2835 20.2978,49.3265 20.3307,49.3364 20.5727,49.3391 20.7104,49.3324 20.7819,49.2743 20.8828,49.2397 20.9251,49.245 20.9517,49.2529 21.0046,49.303 21.0195,49.3537 21.0406,49.3655 21.2506,49.3997 21.3695,49.3723 21.4051,49.3572 21.4279,49.3552 21.4691,49.3657 21.502,49.373 21.581,49.3798 21.8062,49.328 21.9263,49.2836 21.9878,49.2174 21.9932,49.1907 21.9978,49.1638 22.1925,49.0982 22.2912,49.0823 22.3162,49.0821 22.5048,49.0316 22.5253,49.0232 22.5186,48.9834 22.502,48.9387 22.4286,48.8935 22.3922,48.8333 22.3564,48.7442 22.2962,48.6311 22.2029,48.5692 22.1414,48.5372 22.1275,48.5226 22.1193,48.3564 22.0665,48.3226 22.0328,48.3298 21.9978,48.332 21.9332,48.3266 21.9042,48.3239 21.8208,48.3068 21.7966,48.2882 21.7497,48.2854 21.6908,48.3001 21.5941,48.4036 21.5861,48.4369 21.476,48.4933 21.4073,48.5198 21.278,48.4925 21.2233,48.4665 21.1229,48.4557 21.0539,48.4582 20.9161,48.4693 20.8397,48.4953 20.8133,48.5119 20.7879,48.5205 20.6833,48.5135 20.6232,48.506 20.5099,48.4812 20.471,48.4489 20.4699,48.4274 20.4214,48.3934 20.4062,48.3782 20.3845,48.3442 20.3729,48.3061 20.3337,48.2492 20.3115,48.2308 20.2881,48.2146 20.2536,48.2007 20.2063,48.2199 20.1117,48.171 20.0644,48.1433 20.0303,48.1212 19.9813,48.1186 19.9403,48.0985 19.9112,48.0812 19.8821,48.0753 19.7582,48.1416 19.7265,48.1542 19.6249,48.1777 19.6023,48.1786 19.502,48.1537 19.4806,48.1178 19.4693,48.0809 19.4444,48.0343 19.1809,48.0045 19.1119,48.0068 19.0142,48.0157 18.9738,48.0139 18.9625,48.012 18.9383,48.005 18.88,48.0029 18.8183,47.9941 18.8003,47.981 18.7448,47.9106 18.7328,47.86 18.7566,47.8174 18.7932,47.8009 18.8276,47.7771 18.8227,47.763 18.7611,47.7624 18.731,47.7599 18.7029,47.7408 18.6561,47.712 18.6363,47.7052 18.6101,47.7045 18.5706,47.7083 18.5144,47.7128 18.4228,47.7127 18.3869,47.6993 18.3524,47.6927 18.3111,47.6863 18.2787,47.6831 18.1697,47.6931 18.0995,47.7014 18.0602,47.7047 17.9503,47.7091 17.8831,47.6963 17.8712,47.6931 17.7617,47.6917 17.6867,47.716 17.4607,47.8233 17.437,47.8375 17.4202,47.8582 17.3867,47.8901 17.3171,47.9409 17.2869,47.9432 17.2382,47.9527 17.2268,47.9699 17.2146,47.9708 17.1565,47.9659 17.1418,47.9576 17.0919,47.9836 17.0564,48.0334 17.0447,48.0801 17.0092,48.0901 16.9734,48.1148 16.9509,48.1334 16.9281,48.1951 16.9254,48.2227 16.8994,48.2269 16.8204,48.3066 16.8315,48.394 16.8415,48.4133 16.883,48.4515 16.9088,48.4772 16.9187,48.5177 16.9216,48.5636 16.9639,48.626 16.998,48.6876 17.0166,48.7126 17.0874,48.7759 17.1628,48.8133 17.2131,48.8164 17.3055,48.7945 17.357,48.7692 17.3858,48.7688 17.4772,48.7831 17.6248,48.7958 17.6519,48.7961 17.6865,48.8 17.7346,48.822 17.8161,48.8721 17.8851,48.9289 18.0491,48.9857 18.0956,49.0267 18.1228,49.065 18.1187,49.0885 18.1315,49.1082 18.1475,49.1538 18.1498,49.188 18.1845,49.2299 18.2491,49.2445 18.2855,49.2493 18.3562,49.2764 18.5172,49.4052 18.5388,49.4367 18.6283,49.4472 18.7653,49.4571 18.8237,49.4607 18.8237,49.4607 19,-8.0,Canada -123.1566,49.4492 -123.148,49.442 -123.1421,49.432 -123.1376,49.4179 -123.1362,49.4075 -123.1392,49.3934 -123.148,49.3859 -123.1784,49.3764 -123.1934,49.3766 -123.2632,49.3833 -123.2776,49.4122 -123.2712,49.4387 -123.2632,49.4584 -123.2545,49.4653 -123.1986,49.4792 -123.1835,49.4787 -123.1729,49.475 -123.1566,49.4492 -123.1566,49.4492 17,-8.0,Canada -125.9411,49.3338 -125.9231,49.3239 -125.9106,49.3118 -125.9009,49.3021 -125.8875,49.2863 -125.8678,49.203 -125.8828,49.193 -125.8992,49.1901 -125.9111,49.1906 -126.0038,49.208 -126.0408,49.2248 -126.0537,49.2331 -126.0463,49.3197 -126.0357,49.3239 -125.9508,49.3371 -125.9411,49.3338 -125.9411,49.3338 14,-8.0,Canada -125.6826,49.1769 -125.6446,49.17 -125.6335,49.1643 -125.6146,49.1518 -125.6044,49.1164 -125.6124,49.0927 -125.6328,49.0698 -125.6758,49.0782 -125.7237,49.1067 -125.7411,49.1346 -125.7461,49.1615 -125.6942,49.1792 -125.6826,49.1769 -125.6826,49.1769 16,11.0,Russia 154.2384,49.1114 154.267,49.1105 154.3385,49.0958 154.3566,49.0896 154.3677,49.0794 154.3743,49.0654 154.3697,49.0527 154.3571,49.0444 154.2949,49.0195 154.2795,49.0177 154.2614,49.0247 154.2454,49.042 154.2152,49.1021 154.2241,49.1121 154.2384,49.1114 154.2384,49.1114 23,-8.0,Canada -123.4934,49.0366 -123.4782,49.0173 -123.4234,48.9585 -123.4057,48.9444 -123.3408,48.9042 -123.3187,48.8911 -123.307,48.885 -123.2793,48.8746 -123.256,48.8683 -123.2397,48.8645 -123.2018,48.8547 -123.1414,48.8355 -123.1323,48.8145 -123.1394,48.8062 -123.1946,48.8006 -123.2045,48.804 -123.36,48.8891 -123.4816,48.9791 -123.5231,49.0416 -123.5179,49.0506 -123.5022,49.0487 -123.4934,49.0366 -123.4934,49.0366 325,2.0,Austria 13.8135,48.7178 13.838,48.7148 13.8636,48.7079 13.9782,48.6581 14.0309,48.614 14.1637,48.5404 14.2578,48.5269 14.3696,48.5369 14.4254,48.5634 14.4844,48.5727 14.5907,48.5727 14.6332,48.553 14.6789,48.5257 14.6843,48.5297 14.6983,48.5483 14.6952,48.5984 14.7057,48.6378 14.8023,48.729 14.828,48.7307 14.8641,48.727 14.9372,48.7387 14.9634,48.8829 14.9578,48.9239 14.9822,48.9553 15.0067,48.9626 15.0438,48.9586 15.1347,48.9437 15.279,48.9317 15.3366,48.9285 15.37,48.9176 15.429,48.8952 15.4917,48.8641 15.5241,48.856 15.5417,48.8531 15.5623,48.8431 15.663,48.8082 15.7234,48.8027 15.8265,48.8039 15.9411,48.749 15.9984,48.7214 16.0373,48.7044 16.0578,48.6989 16.0799,48.694 16.3093,48.6774 16.3584,48.6804 16.3892,48.6959 16.4071,48.7263 16.4342,48.7555 16.5165,48.7565 16.6346,48.7294 16.6873,48.6906 16.7614,48.6641 16.8086,48.6605 16.8474,48.6696 16.868,48.67 16.8934,48.6476 16.9216,48.5636 16.9187,48.5177 16.9088,48.4772 16.883,48.4515 16.8415,48.4133 16.8315,48.394 16.8204,48.3066 16.8994,48.2269 16.9254,48.2227 16.9281,48.1951 16.9509,48.1334 16.9734,48.1148 17.0092,48.0901 17.0447,48.0801 17.0564,48.0334 17.0919,47.9836 17.1418,47.9576 17.1223,47.9451 17.0833,47.9167 17.0359,47.8223 17.0298,47.7925 17.0324,47.74 17.0442,47.7137 17.0472,47.6739 17.0293,47.6549 16.931,47.6404 16.8867,47.6363 16.8003,47.6293 16.7402,47.6309 16.7117,47.6476 16.6994,47.672 16.6116,47.7058 16.5884,47.7047 16.535,47.702 16.4271,47.6436 16.4092,47.6121 16.4696,47.5921 16.5729,47.5743 16.6087,47.5799 16.6424,47.5599 16.6901,47.4896 16.6815,47.4669 16.6316,47.4038 16.5689,47.3711 16.4503,47.3647 16.4286,47.3588 16.4331,47.315 16.4678,47.2278 16.4507,47.2062 16.4215,47.1906 16.3977,47.1567 16.4359,47.0936 16.4822,47.0612 16.4815,46.953 16.4216,46.9509 16.3894,46.9541 16.3239,46.9562 16.2798,46.9579 16.2537,46.9345 16.2305,46.9047 16.1152,46.8255 16.0888,46.8163 15.9868,46.7819 15.9656,46.7781 15.9653,46.7018 15.8367,46.67 15.8105,46.669 15.7843,46.6653 15.5805,46.6335 15.3844,46.5993 15.1181,46.6039 15.0815,46.6035 15.0533,46.5956 15.0338,46.5989 14.8466,46.5602 14.8129,46.5178 14.8041,46.4884 14.7923,46.4583 14.5244,46.3546 14.4578,46.3664 14.1336,46.3899 14.1089,46.4101 14.0961,46.4261 14.0622,46.4362 13.9173,46.4629 13.826,46.4669 13.7566,46.4652 13.6995,46.4734 13.5918,46.4951 13.5357,46.5031 13.4098,46.51 13.2387,46.5087 12.8074,46.5779 12.7602,46.5946 12.7398,46.5967 12.73,46.5915 12.7177,46.5882 12.6746,46.6064 12.5726,46.6058 12.5366,46.6084 12.4687,46.6291 12.423,46.6375 12.3867,46.6523 12.3662,46.6679 12.2841,46.7878 12.2148,46.8356 12.1684,46.8545 12.143,46.8744 12.1189,46.9134 12.1159,46.959 12.1774,46.9792 12.2065,47.0094 12.2135,47.0187 12.2103,47.0305 12.1687,47.0407 12.1231,47.0312 12.058,47.0059 11.7447,46.9248 11.7147,46.9252 11.6937,46.9427 11.6055,46.9591 11.4675,46.9606 11.1615,46.9139 11.1025,46.8765 11.0848,46.862 11.0815,46.838 11.0559,46.77 11.0011,46.7201 10.8723,46.7176 10.8187,46.7335 10.7765,46.7479 10.7482,46.7773 10.665,46.8202 10.6319,46.817 10.5847,46.8043 10.5486,46.7953 10.4831,46.8018 10.4613,46.8124 10.4566,46.818 10.4735,46.8826 10.4152,46.9306 10.3761,46.9489 10.336,46.9377 10.3089,46.9021 10.2987,46.8802 10.2132,46.8234 10.1466,46.8015 10.1273,46.798 10.1173,46.7968 10.095,46.7967 10.0446,46.8129 9.9211,46.8591 9.8638,46.8868 9.862,46.9146 9.8777,46.9466 9.8588,46.9695 9.7057,46.9965 9.6188,47.003 9.585,47.01 9.5933,47.0142 9.6198,47.0436 9.6204,47.0769 9.6093,47.0967 9.5527,47.1898 9.5199,47.2207 9.5264,47.2301 9.5975,47.3082 9.6235,47.3153 9.6567,47.3366 9.636,47.4044 9.583,47.4151 9.546,47.4477 9.5533,47.4861 9.5644,47.4832 9.5949,47.4751 9.6376,47.4751 9.6789,47.4752 9.7189,47.4869 9.7322,47.5116 9.7616,47.5369 9.797,47.5397 9.9408,47.4855 10.0289,47.4412 10.217,47.3197 10.1973,47.2686 10.1589,47.2208 10.2142,47.2221 10.26,47.235 10.3219,47.2587 10.415,47.3418 10.4589,47.3833 10.4513,47.4285 10.4214,47.4747 10.4189,47.5263 10.4668,47.5323 10.5542,47.4858 10.6756,47.4996 10.8939,47.4636 10.9611,47.3461 10.9927,47.3419 11.0129,47.3412 11.0882,47.3425 11.2803,47.3748 11.4412,47.4581 11.4888,47.4548 11.538,47.4611 11.5632,47.4698 11.6664,47.5302 11.9028,47.5599 11.9894,47.5702 12.0426,47.5662 12.0937,47.5605 12.1241,47.5566 12.184,47.5587 12.1898,47.5791 12.1837,47.6032 12.4372,47.6132 12.4966,47.5788 12.5486,47.5875 12.5584,47.5899 12.5853,47.6177 12.6479,47.6304 12.7188,47.6283 12.8097,47.5667 12.7878,47.5605 12.7698,47.5293 12.7884,47.5006 12.9396,47.4227 12.9941,47.4157 13.0347,47.4435 13.0813,47.5885 13.0589,47.6327 13.0396,47.6515 13.0045,47.6698 12.9751,47.6598 12.8956,47.6703 12.9256,47.7341 12.952,47.756 12.9901,47.7993 12.9481,47.852 12.9003,47.9028 12.8469,47.9398 12.8388,47.9572 12.8191,47.9749 12.7808,47.9995 12.7479,48.0271 12.7415,48.0667 12.8527,48.1477 12.9992,48.2043 13.1356,48.2369 13.2391,48.2438 13.266,48.2499 13.294,48.2604 13.3156,48.2732 13.3757,48.3109 13.4026,48.3355 13.4185,48.3741 13.4379,48.4602 13.4236,48.5047 13.4989,48.529 13.5831,48.5125 13.6351,48.4961 13.6571,48.4767 13.706,48.4601 13.7836,48.5272 13.8053,48.5754 13.7948,48.6823 13.8135,48.7178 13.8135,48.7178 6,-8.0,United States -122.8544,48.9431 -122.8657,48.9214 -122.9064,48.9161 -122.9134,48.9431 -122.8544,48.9431 -122.8544,48.9431 20,-8.0,Canada -123.38,48.727 -123.4121,48.8423 -123.4147,48.8537 -123.4155,48.8724 -123.4142,48.8911 -123.3997,48.8796 -123.3966,48.873 -123.3526,48.8575 -123.2772,48.8072 -123.2537,48.7885 -123.1897,48.7097 -123.1941,48.6996 -123.252,48.6654 -123.2988,48.653 -123.3101,48.6536 -123.3332,48.6607 -123.3446,48.6668 -123.3706,48.6937 -123.38,48.727 -123.38,48.727 22,11.0,Russia 153.7567,48.6787 153.7508,48.6797 153.7487,48.6896 153.7525,48.7059 153.7637,48.7243 153.8911,48.8419 153.9043,48.8496 153.9155,48.8538 153.9364,48.8566 153.9567,48.8574 153.9911,48.8538 154.0048,48.843 154.0021,48.8269 153.9945,48.8147 153.9641,48.7791 153.8388,48.6868 153.8295,48.6816 153.8068,48.671 153.7953,48.6677 153.78,48.6665 153.7567,48.6787 153.7567,48.6787 8,2.0,France -3.5712,48.7478 -3.5766,48.7481 -3.5744,48.7537 -3.57,48.7567 -3.5597,48.7557 -3.5609,48.7498 -3.5712,48.7478 -3.5712,48.7478 19,-8.0,United States -122.7166,48.6554 -122.7039,48.6555 -122.6795,48.6503 -122.6656,48.6454 -122.6018,48.6212 -122.5696,48.6043 -122.5724,48.5934 -122.6288,48.5496 -122.6996,48.5324 -122.7206,48.5303 -122.7412,48.5317 -122.8214,48.5441 -122.8335,48.55 -122.8443,48.5685 -122.841,48.5797 -122.7611,48.6486 -122.747,48.6549 -122.7166,48.6554 -122.7166,48.6554 17,-8.0,United States -122.9204,48.5484 -122.8595,48.5057 -122.8161,48.474 -122.7842,48.397 -122.8257,48.3904 -122.9163,48.4196 -122.9431,48.4292 -122.9607,48.4386 -122.9695,48.4462 -122.9766,48.4556 -122.9976,48.496 -122.9982,48.5362 -122.9733,48.5608 -122.9623,48.5634 -122.9266,48.5557 -122.9204,48.5484 -122.9204,48.5484 312,2.0,Hungary 22.1193,48.3564 22.1395,48.3536 22.1821,48.3624 22.2381,48.3469 22.2382,48.3047 22.3156,48.2196 22.3486,48.1897 22.4223,48.1883 22.462,48.1944 22.5421,48.132 22.5653,48.0908 22.5725,48.0613 22.5933,48.0454 22.6145,48.0395 22.6472,48.0399 22.705,48.0594 22.7573,48.0615 22.8138,48.0281 22.8505,47.9857 22.8264,47.9389 22.8621,47.8997 22.7473,47.7881 22.6212,47.7217 22.6017,47.7169 22.5711,47.7131 22.52,47.7126 22.4697,47.7356 22.4487,47.7411 22.4177,47.7404 22.2889,47.6921 22.242,47.6718 22.1933,47.625 22.1596,47.5745 22.1582,47.5497 22.1548,47.5442 22.1361,47.5341 22.0864,47.5239 22.0062,47.4793 21.9824,47.4563 21.9771,47.4243 21.989,47.3966 21.9891,47.371 21.9819,47.3362 21.9671,47.3194 21.9311,47.314 21.8982,47.3049 21.8406,47.2424 21.811,47.1755 21.8161,47.1444 21.7526,47.0611 21.7122,47.0445 21.679,47.0262 21.6219,46.9738 21.6247,46.9671 21.6616,46.9528 21.6399,46.9078 21.5827,46.8305 21.4998,46.7737 21.463,46.7014 21.4953,46.673 21.4592,46.6314 21.423,46.6313 21.2974,46.5673 21.278,46.5367 21.2636,46.4796 21.2589,46.4078 21.1892,46.3556 21.1727,46.3438 21.1585,46.3192 21.1488,46.274 21.1475,46.2448 21.0512,46.1944 21.0197,46.1882 20.9602,46.2022 20.8393,46.2236 20.8172,46.2263 20.7958,46.2231 20.7667,46.2129 20.7539,46.2068 20.7282,46.1902 20.6912,46.137 20.6976,46.1229 20.6906,46.1134 20.6584,46.0938 20.5929,46.0783 20.5538,46.1025 20.5344,46.1125 20.5063,46.1203 20.4581,46.1287 20.3116,46.107 20.2459,46.0878 20.2294,46.0657 20.1743,46.0981 20.087,46.1147 19.9329,46.1183 19.8215,46.0995 19.7171,46.1095 19.676,46.1239 19.6388,46.1285 19.5379,46.1201 19.4788,46.0865 19.4887,46.0656 19.4365,46.024 19.2571,45.9364 19.1272,45.9361 19.1007,45.9687 19.0662,45.97 18.9758,45.9072 18.8324,45.8588 18.8096,45.8588 18.7906,45.8607 18.781,45.8506 18.7535,45.8425 18.6931,45.8594 18.5922,45.7993 18.5725,45.7759 18.5297,45.7478 18.4078,45.699 18.3817,45.6961 18.3071,45.7024 18.2225,45.7154 18.2005,45.7278 18.1699,45.7317 18.1277,45.7352 17.981,45.7349 17.8556,45.7318 17.6362,45.7865 17.6279,45.8011 17.6202,45.8329 17.6012,45.8534 17.558,45.8854 17.4341,45.9022 17.403,45.8882 17.3649,45.8857 17.3304,45.8993 17.2869,45.923 17.2333,45.9686 17.2305,46.001 17.2105,46.0381 17.1585,46.1022 17.1285,46.1278 17.0164,46.1614 16.9491,46.1808 16.9138,46.1968 16.8958,46.2075 16.8676,46.2309 16.8567,46.2516 16.8551,46.2559 16.8507,46.2926 16.8169,46.3171 16.7778,46.3387 16.6378,46.4126 16.6053,46.4222 16.5843,46.4232 16.5078,46.456 16.3853,46.6055 16.3622,46.6485 16.3521,46.6694 16.3363,46.6668 16.3021,46.7027 16.2925,46.741 16.3141,46.7559 16.3257,46.789 16.2753,46.8159 16.2466,46.821 16.2063,46.8229 16.1583,46.811 16.1168,46.8059 16.0888,46.8163 16.1152,46.8255 16.2305,46.9047 16.2537,46.9345 16.2798,46.9579 16.3239,46.9562 16.3894,46.9541 16.4216,46.9509 16.4815,46.953 16.4822,47.0612 16.4359,47.0936 16.3977,47.1567 16.4215,47.1906 16.4507,47.2062 16.4678,47.2278 16.4331,47.315 16.4286,47.3588 16.4503,47.3647 16.5689,47.3711 16.6316,47.4038 16.6815,47.4669 16.6901,47.4896 16.6424,47.5599 16.6087,47.5799 16.5729,47.5743 16.4696,47.5921 16.4092,47.6121 16.4271,47.6436 16.535,47.702 16.5884,47.7047 16.6116,47.7058 16.6994,47.672 16.7117,47.6476 16.7402,47.6309 16.8003,47.6293 16.8867,47.6363 16.931,47.6404 17.0293,47.6549 17.0472,47.6739 17.0442,47.7137 17.0324,47.74 17.0298,47.7925 17.0359,47.8223 17.0833,47.9167 17.1223,47.9451 17.1418,47.9576 17.1565,47.9659 17.2146,47.9708 17.2268,47.9699 17.2382,47.9527 17.2869,47.9432 17.3171,47.9409 17.3867,47.8901 17.4202,47.8582 17.437,47.8375 17.4607,47.8233 17.6867,47.716 17.7617,47.6917 17.8712,47.6931 17.8831,47.6963 17.9503,47.7091 18.0602,47.7047 18.0995,47.7014 18.1697,47.6931 18.2787,47.6831 18.3111,47.6863 18.3524,47.6927 18.3869,47.6993 18.4228,47.7127 18.5144,47.7128 18.5706,47.7083 18.6101,47.7045 18.6363,47.7052 18.6561,47.712 18.7029,47.7408 18.731,47.7599 18.7611,47.7624 18.8227,47.763 18.8276,47.7771 18.7932,47.8009 18.7566,47.8174 18.7328,47.86 18.7448,47.9106 18.8003,47.981 18.8183,47.9941 18.88,48.0029 18.9383,48.005 18.9625,48.012 18.9738,48.0139 19.0142,48.0157 19.1119,48.0068 19.1809,48.0045 19.4444,48.0343 19.4693,48.0809 19.4806,48.1178 19.502,48.1537 19.6023,48.1786 19.6249,48.1777 19.7265,48.1542 19.7582,48.1416 19.8821,48.0753 19.9112,48.0812 19.9403,48.0985 19.9813,48.1186 20.0303,48.1212 20.0644,48.1433 20.1117,48.171 20.2063,48.2199 20.2536,48.2007 20.2881,48.2146 20.3115,48.2308 20.3337,48.2492 20.3729,48.3061 20.3845,48.3442 20.4062,48.3782 20.4214,48.3934 20.4699,48.4274 20.471,48.4489 20.5099,48.4812 20.6232,48.506 20.6833,48.5135 20.7879,48.5205 20.8133,48.5119 20.8397,48.4953 20.9161,48.4693 21.0539,48.4582 21.1229,48.4557 21.2233,48.4665 21.278,48.4925 21.4073,48.5198 21.476,48.4933 21.5861,48.4369 21.5941,48.4036 21.6908,48.3001 21.7497,48.2854 21.7966,48.2882 21.8208,48.3068 21.9042,48.3239 21.9332,48.3266 21.9978,48.332 22.0328,48.3298 22.0665,48.3226 22.1193,48.3564 22.1193,48.3564 17,-8.0,United States -122.6894,48.4968 -122.6771,48.4685 -122.6362,48.4119 -122.6304,48.3989 -122.6291,48.387 -122.6296,48.3721 -122.6362,48.3626 -122.649,48.3611 -122.661,48.3625 -122.6823,48.3661 -122.7564,48.4 -122.758,48.4197 -122.7576,48.4363 -122.7372,48.4812 -122.6919,48.5051 -122.6894,48.4968 -122.6894,48.4968 190,3.0,Moldova 26.5967,48.2019 26.5994,48.2185 26.6131,48.2456 26.6636,48.2848 26.7696,48.2779 26.942,48.3024 27.1999,48.313 27.4143,48.3842 27.4796,48.4101 27.5074,48.4129 27.7232,48.3943 27.8261,48.3451 27.84,48.3256 27.8506,48.3088 27.8726,48.2926 27.8917,48.2822 27.9155,48.2722 27.9743,48.2613 28.0344,48.2559 28.053,48.2361 28.0454,48.1875 28.1724,48.1512 28.1952,48.1516 28.2194,48.1655 28.2499,48.1814 28.3062,48.1868 28.3296,48.1668 28.3264,48.136 28.3478,48.1086 28.3958,48.0909 28.461,48.0792 28.5165,48.1067 28.6012,48.0985 28.696,48.0836 28.7659,48.0703 28.7869,48.0545 28.8382,47.9556 28.8406,47.9506 28.859,47.9337 28.92,47.8918 28.9409,47.8823 28.9747,47.8776 29.0013,47.8809 29.0193,47.8969 29.0317,47.9221 29.0615,47.9318 29.1029,47.9286 29.1337,47.9 29.2155,47.7117 29.1536,47.5547 29.1185,47.5273 29.0937,47.4946 29.1011,47.4577 29.1486,47.3853 29.1812,47.3946 29.2039,47.4035 29.2575,47.3681 29.3168,47.3242 29.3389,47.3021 29.3385,47.2752 29.3719,47.237 29.4365,47.2434 29.4479,47.2734 29.4597,47.2905 29.5248,47.2836 29.5484,47.2564 29.557,47.225 29.53,47.0889 29.5505,46.9695 29.5322,46.8939 29.6953,46.8367 29.8246,46.8077 29.902,46.7647 29.9292,46.6888 29.9226,46.517 29.8739,46.5056 29.857,46.4823 29.8864,46.4524 29.9644,46.4039 29.993,46.3903 30.0234,46.3825 30.0541,46.3768 30.0742,46.3734 30.0861,46.3524 30.056,46.3283 30.0064,46.3259 29.9541,46.326 29.9242,46.3267 29.8812,46.3291 29.8243,46.2934 29.7832,46.3157 29.6925,46.3881 29.6205,46.3264 29.5919,46.3167 29.5603,46.3239 29.4529,46.3893 29.4578,46.4318 29.3092,46.4171 29.264,46.3755 29.266,46.3515 29.197,46.3153 29.1766,46.3146 29.1611,46.3301 29.1786,46.3538 29.1872,46.4317 29.182,46.4666 29.1622,46.4918 29.1328,46.4865 28.998,46.4437 28.9533,46.4254 28.9353,46.4151 28.8933,46.3771 28.9093,46.2367 28.9809,46.1651 28.9993,46.1428 28.9274,45.9536 28.8561,45.9381 28.789,45.9259 28.7607,45.92 28.7229,45.9094 28.7102,45.874 28.7264,45.8106 28.6398,45.7275 28.5567,45.7161 28.4845,45.659 28.4506,45.6137 28.4847,45.5952 28.4906,45.4799 28.4758,45.4631 28.4431,45.4546 28.3599,45.4602 28.3268,45.4662 28.3058,45.4714 28.2766,45.4757 28.2494,45.474 28.2271,45.4685 28.2076,45.4595 28.193,45.4437 28.1759,45.4116 28.1754,45.3968 28.1352,45.4205 28.0299,45.5316 28.0977,45.5685 28.12,45.5752 28.1275,45.6161 28.1251,45.6689 28.0807,45.8696 28.0679,45.9139 28.0539,45.9395 28.052,46.0235 28.0689,46.0498 28.0994,46.1378 28.1537,46.2773 28.2086,46.3742 28.207,46.5548 28.1889,46.619 28.1641,46.6454 28.1344,46.6865 28.0759,46.7872 28.0798,46.8008 28.076,46.8343 28.0663,46.8666 28.0395,46.9287 27.9942,46.962 27.9591,46.9743 27.9057,46.9897 27.8219,47.0486 27.7586,47.0987 27.7459,47.1495 27.7028,47.2088 27.6796,47.2316 27.6401,47.2399 27.597,47.2518 27.5368,47.3119 27.4338,47.4316 27.394,47.5111 27.322,47.5626 27.2885,47.5824 27.2602,47.604 27.2413,47.6387 27.1994,47.7307 27.1721,47.791 27.1619,47.8474 27.1194,47.9311 26.9615,48.1004 26.9159,48.1304 26.7785,48.1916 26.6656,48.2087 26.5967,48.2019 26.5967,48.2019 34,-8.0,United States -122.4104,48.3367 -122.3427,48.2719 -122.3281,48.2522 -122.337,48.2408 -122.3496,48.2355 -122.3734,48.2281 -122.385,48.2299 -122.3948,48.2408 -122.4073,48.2462 -122.4371,48.2455 -122.4863,48.1897 -122.4717,48.172 -122.4466,48.1644 -122.4296,48.1561 -122.4146,48.1456 -122.4058,48.1376 -122.3095,48.0461 -122.1887,47.9825 -122.1615,47.9268 -122.1585,47.9125 -122.1656,47.8999 -122.1936,47.8668 -122.2466,47.871 -122.3549,47.9263 -122.3845,47.9674 -122.4295,48.0326 -122.5636,48.1553 -122.5725,48.1641 -122.5789,48.1758 -122.5759,48.1934 -122.4831,48.3222 -122.4186,48.3509 -122.4104,48.3367 -122.4104,48.3367 485,3.0,Romania 22.8621,47.8997 22.8971,47.9056 23.0102,47.9383 23.0544,47.9586 23.069,47.9795 23.0792,48.008 23.0925,48.0342 23.1191,48.0508 23.1409,48.0532 23.2273,48.0351 23.2458,48.0203 23.2654,47.99 23.3227,47.966 23.3768,47.9455 23.4691,47.9278 23.4806,47.9345 23.5323,47.9452 23.7896,47.9122 23.9352,47.9065 23.9978,47.9011 24.0615,47.8777 24.093,47.8573 24.2122,47.8491 24.2919,47.874 24.3866,47.9028 24.4188,47.9037 24.5211,47.8984 24.537,47.8946 24.5532,47.8911 24.5799,47.8791 24.6345,47.8409 24.6353,47.8121 24.6583,47.7946 24.6816,47.784 24.7349,47.7659 24.7671,47.7631 24.7857,47.7536 24.8277,47.7053 24.8629,47.6634 24.8933,47.6587 24.9255,47.6664 24.9636,47.6701 24.994,47.6745 25.0136,47.6787 25.0496,47.6897 25.0811,47.705 25.1178,47.7357 25.139,47.7687 25.1884,47.8213 25.2101,47.8339 25.2974,47.8619 25.4652,47.8786 25.4883,47.8799 25.5316,47.8811 25.5518,47.8797 25.6091,47.8789 25.7436,47.8822 25.7803,47.9003 25.8013,47.9085 25.8848,47.9198 25.9997,47.9288 26.0653,47.9269 26.0773,47.9266 26.1211,47.9303 26.1559,47.9468 26.2344,48.0211 26.2796,48.121 26.4306,48.1622 26.4694,48.1584 26.4924,48.153 26.5294,48.1674 26.5967,48.2019 26.6656,48.2087 26.7785,48.1916 26.9159,48.1304 26.9615,48.1004 27.1194,47.9311 27.1619,47.8474 27.1721,47.791 27.1994,47.7307 27.2413,47.6387 27.2602,47.604 27.2885,47.5824 27.322,47.5626 27.394,47.5111 27.4338,47.4316 27.5368,47.3119 27.597,47.2518 27.6401,47.2399 27.6796,47.2316 27.7028,47.2088 27.7459,47.1495 27.7586,47.0987 27.8219,47.0486 27.9057,46.9897 27.9591,46.9743 27.9942,46.962 28.0395,46.9287 28.0663,46.8666 28.076,46.8343 28.0798,46.8008 28.0759,46.7872 28.1344,46.6865 28.1641,46.6454 28.1889,46.619 28.207,46.5548 28.2086,46.3742 28.1537,46.2773 28.0994,46.1378 28.0689,46.0498 28.052,46.0235 28.0539,45.9395 28.0679,45.9139 28.0807,45.8696 28.1251,45.6689 28.1275,45.6161 28.12,45.5752 28.0977,45.5685 28.0299,45.5316 28.1352,45.4205 28.1754,45.3968 28.1874,45.3976 28.2396,45.3775 28.2459,45.3438 28.2597,45.3111 28.2783,45.2855 28.3039,45.2641 28.3363,45.2492 28.5349,45.1912 28.6608,45.1688 28.7574,45.1865 28.8085,45.2501 28.9275,45.2697 29.1807,45.374 29.2806,45.3872 29.3704,45.3841 29.4695,45.3592 29.5395,45.3374 29.5618,45.3254 29.5995,45.2949 29.6136,45.2763 29.6274,45.2432 29.6306,45.2209 29.6229,45.1605 29.5859,45.1631 29.5999,45.1224 29.6188,45.0615 29.6,44.931 29.5668,44.7948 29.5079,44.7695 29.4098,44.758 29.349,44.7514 29.3033,44.7489 29.21,44.7451 29.1734,44.7422 29.027,44.7718 29.009,44.7964 29.0021,44.8732 29.0269,44.8967 29.0626,44.9123 29.0037,44.9523 28.9433,44.9548 28.8594,44.9156 28.8289,44.8896 28.8244,44.8278 28.8534,44.8122 28.9068,44.7757 28.8863,44.7277 28.8614,44.7049 28.8256,44.6982 28.7555,44.6656 28.7418,44.6451 28.7406,44.6103 28.7495,44.5918 28.7596,44.5896 28.8089,44.5978 28.8661,44.6357 28.87,44.6419 28.8616,44.656 28.8895,44.6505 28.9162,44.648 28.9504,44.6349 28.9306,44.5935 28.9079,44.5803 28.9348,44.6217 28.917,44.6393 28.7795,44.5663 28.7562,44.5802 28.723,44.5751 28.7174,44.4695 28.7678,44.481 28.8872,44.5669 28.8727,44.5376 28.8365,44.4854 28.8049,44.4468 28.7879,44.4294 28.7611,44.4111 28.7115,44.3759 28.6044,44.2776 28.5895,44.2464 28.5891,44.2219 28.5927,44.1077 28.6205,43.926 28.6073,43.9048 28.5736,43.8319 28.5553,43.7821 28.5456,43.7513 28.5397,43.7119 28.5434,43.6982 28.4455,43.6947 28.3644,43.701 28.2184,43.715 28.1962,43.7204 28.1427,43.7356 28.0939,43.7523 27.9996,43.7859 27.9589,43.8097 27.9214,43.8953 27.9134,43.9247 27.8832,43.9539 27.8215,43.9312 27.7945,43.9194 27.7745,43.9152 27.703,43.9097 27.6782,43.9196 27.6599,43.9437 27.6402,43.9799 27.614,43.9918 27.5864,43.9782 27.4374,43.9698 27.3693,43.972 27.2573,44.0346 27.2414,44.0538 27.2345,44.0822 27.2125,44.0749 27.1925,44.071 27.1556,44.0735 27.1281,44.0801 27.0734,44.0909 26.9987,44.0975 26.8757,44.086 26.8526,44.0821 26.8033,44.0657 26.7574,44.0452 26.6338,44.022 26.4418,43.9994 26.4014,43.9915 26.3764,43.9934 26.35,43.9942 26.2653,43.9812 26.1,43.9331 26.0751,43.9184 26.0489,43.9001 25.9067,43.7987 25.8487,43.7433 25.7511,43.6637 25.7306,43.6541 25.6996,43.6452 25.6457,43.6411 25.5736,43.613 25.4964,43.5943 25.4284,43.5898 25.3967,43.5785 25.3433,43.5738 25.309,43.584 25.2792,43.6027 25.2334,43.6257 25.1897,43.6381 24.9879,43.6608 24.8466,43.6629 24.7591,43.6635 24.6797,43.6651 24.6527,43.6688 24.5714,43.7021 24.5284,43.7098 24.4943,43.7117 24.4678,43.7119 24.4239,43.6954 24.4046,43.6871 24.3713,43.6704 24.3214,43.6473 24.286,43.6471 24.2738,43.648 24.2525,43.6479 24.2234,43.6452 24.1903,43.6402 24.1557,43.6354 24.1219,43.6407 24.0827,43.6504 24.0345,43.671 23.9541,43.6948 23.7412,43.7388 23.597,43.7454 23.5741,43.748 23.5374,43.7572 23.5008,43.7727 23.4786,43.7871 23.4142,43.8017 23.39,43.806 23.2512,43.8013 23.2296,43.798 23.1923,43.7889 23.1664,43.782 23.13,43.7685 23.1109,43.7603 23.0353,43.7527 22.935,43.7674 22.8624,43.7865 22.8373,43.7957 22.8208,43.811 22.8101,43.8471 22.8505,43.935 22.8813,43.9509 22.9275,43.9624 22.9602,43.9639 23.0054,44.0008 23.0108,44.0228 22.9809,44.0463 22.9655,44.0509 22.9162,44.054 22.8826,44.0612 22.6601,44.1656 22.65,44.1746 22.6561,44.2238 22.6335,44.2385 22.6097,44.244 22.5853,44.2481 22.5442,44.2555 22.5119,44.2797 22.4986,44.2951 22.4284,44.4107 22.43,44.4331 22.5546,44.4971 22.584,44.5012 22.6076,44.4954 22.6408,44.4785 22.6696,44.4731 22.7071,44.4827 22.7308,44.5023 22.6809,44.5548 22.634,44.5691 22.6129,44.5679 22.5757,44.5718 22.5431,44.588 22.5115,44.608 22.4825,44.6293 22.4621,44.6484 22.4346,44.6632 22.3976,44.6616 22.2803,44.6085 22.2666,44.5852 22.2422,44.5536 22.2276,44.5349 22.1445,44.4329 22.1064,44.4299 22.0608,44.4485 22.0046,44.5092 22.0003,44.5388 21.9982,44.5435 21.9661,44.5827 21.8786,44.5989 21.7532,44.6114 21.7039,44.6054 21.6141,44.6094 21.5876,44.6324 21.5852,44.6603 21.5666,44.7052 21.5354,44.7211 21.5038,44.7265 21.4446,44.7272 21.4236,44.7261 21.3688,44.7324 21.3326,44.7772 21.3396,44.8157 21.3777,44.8253 21.4236,44.8247 21.4488,44.8244 21.4723,44.8287 21.5239,44.8416 21.5267,44.8632 21.5057,44.8894 21.4432,44.9114 21.4203,44.9113 21.3996,44.9109 21.3773,44.9214 21.3434,44.9624 21.4131,45.0023 21.4841,45.0915 21.4527,45.1322 21.4435,45.1363 21.3809,45.1641 21.3215,45.1664 21.2423,45.18 21.0194,45.2649 20.9572,45.2942 20.7793,45.4271 20.7653,45.4559 20.7386,45.5616 20.7476,45.5813 20.7684,45.6011 20.7726,45.7067 20.7438,45.7159 20.7235,45.6949 20.6887,45.6918 20.6333,45.7468 20.6272,45.7758 20.5564,45.8466 20.5251,45.859 20.4849,45.8618 20.3445,45.9292 20.3254,45.965 20.2853,46.0173 20.2294,46.0657 20.2459,46.0878 20.3116,46.107 20.4581,46.1287 20.5063,46.1203 20.5344,46.1125 20.5538,46.1025 20.5929,46.0783 20.6584,46.0938 20.6906,46.1134 20.6976,46.1229 20.6912,46.137 20.7282,46.1902 20.7539,46.2068 20.7667,46.2129 20.7958,46.2231 20.8172,46.2263 20.8393,46.2236 20.9602,46.2022 21.0197,46.1882 21.0512,46.1944 21.1475,46.2448 21.1488,46.274 21.1585,46.3192 21.1727,46.3438 21.1892,46.3556 21.2589,46.4078 21.2636,46.4796 21.278,46.5367 21.2974,46.5673 21.423,46.6313 21.4592,46.6314 21.4953,46.673 21.463,46.7014 21.4998,46.7737 21.5827,46.8305 21.6399,46.9078 21.6616,46.9528 21.6247,46.9671 21.6219,46.9738 21.679,47.0262 21.7122,47.0445 21.7526,47.0611 21.8161,47.1444 21.811,47.1755 21.8406,47.2424 21.8982,47.3049 21.9311,47.314 21.9671,47.3194 21.9819,47.3362 21.9891,47.371 21.989,47.3966 21.9771,47.4243 21.9824,47.4563 22.0062,47.4793 22.0864,47.5239 22.1361,47.5341 22.1548,47.5442 22.1582,47.5497 22.1596,47.5745 22.1933,47.625 22.242,47.6718 22.2889,47.6921 22.4177,47.7404 22.4487,47.7411 22.4697,47.7356 22.52,47.7126 22.5711,47.7131 22.6017,47.7169 22.6212,47.7217 22.7473,47.7881 22.8621,47.8997 22.8621,47.8997 29,-3.5,Canada -53.4865,48.1354 -53.4755,48.144 -53.4581,48.1474 -53.4337,48.1415 -53.4342,48.093 -53.4562,48.0407 -53.472,48.0336 -53.486,48.03 -53.5212,48.0245 -53.5566,48.0203 -53.7455,48.0376 -53.7616,48.0396 -53.7782,48.0432 -53.7962,48.0517 -53.8544,48.1177 -53.8575,48.1275 -53.8548,48.1433 -53.8475,48.156 -53.8245,48.1533 -53.7799,48.1173 -53.6349,48.0939 -53.6084,48.0924 -53.5898,48.0954 -53.57,48.1001 -53.5378,48.1124 -53.5055,48.1259 -53.4936,48.1311 -53.4865,48.1354 -53.4865,48.1354 19,-4.0,Canada -64.3896,47.8631 -64.4098,47.7985 -64.4218,47.7777 -64.4299,47.7677 -64.4482,47.7487 -64.5147,47.6922 -64.5428,47.6813 -64.5546,47.6794 -64.5988,47.7011 -64.6097,47.7691 -64.6043,47.7815 -64.5924,47.7975 -64.5715,47.8141 -64.5278,47.8309 -64.5159,47.8322 -64.4911,47.8304 -64.4148,47.8491 -64.3896,47.8631 -64.3896,47.8631 278,2.0,Switzerland 9.5533,47.4861 9.546,47.4477 9.583,47.4151 9.636,47.4044 9.6567,47.3366 9.6235,47.3153 9.5975,47.3082 9.5264,47.2301 9.5199,47.2207 9.4832,47.1693 9.4717,47.1424 9.4736,47.1189 9.4887,47.0929 9.4981,47.0521 9.4614,47.0037 9.4717,47.0073 9.4928,47.011 9.5277,47.0161 9.585,47.01 9.6188,47.003 9.7057,46.9965 9.8588,46.9695 9.8777,46.9466 9.862,46.9146 9.8638,46.8868 9.9211,46.8591 10.0446,46.8129 10.095,46.7967 10.1173,46.7968 10.1273,46.798 10.1466,46.8015 10.2132,46.8234 10.2987,46.8802 10.3089,46.9021 10.336,46.9377 10.3761,46.9489 10.4152,46.9306 10.4735,46.8826 10.4566,46.818 10.4326,46.7098 10.4561,46.5825 10.4716,46.5642 10.4708,46.5395 10.457,46.5026 10.4428,46.4894 10.4352,46.4861 10.3227,46.4965 10.2892,46.502 10.2318,46.5375 10.2391,46.563 10.2274,46.5811 10.1668,46.5791 10.1048,46.5581 10.0374,46.4884 10.0304,46.4498 10.0356,46.3926 10.0767,46.3709 10.1398,46.3374 10.1597,46.2105 10.122,46.1779 10.0577,46.1691 9.9811,46.2391 9.9683,46.2801 9.9763,46.3025 9.9328,46.3268 9.8942,46.3304 9.8391,46.3167 9.7992,46.3054 9.7568,46.2895 9.6951,46.2474 9.6113,46.2391 9.5683,46.2441 9.5315,46.2534 9.5082,46.2669 9.4443,46.3336 9.437,46.3738 9.4417,46.4196 9.3537,46.4549 9.2809,46.4477 9.2375,46.3896 9.2601,46.3728 9.2843,46.2981 9.2794,46.272 9.2636,46.2399 9.2282,46.1809 9.1637,46.1259 9.1318,46.1153 9.1195,46.1077 9.0705,46.0686 9.023,46.0047 9.0042,45.9701 8.9849,45.9227 9.0102,45.8866 9.0602,45.8678 9.0716,45.8501 9.0242,45.7855 8.9859,45.7771 8.9387,45.7931 8.9238,45.8197 8.914,45.8488 8.8853,45.9004 8.8077,45.9341 8.808,45.9816 8.839,46.0044 8.8318,46.0284 8.81,46.0461 8.7349,46.0684 8.7167,46.0559 8.707,46.0516 8.6843,46.0487 8.6036,46.0689 8.4488,46.1806 8.4332,46.1946 8.4229,46.2403 8.4363,46.2701 8.454,46.3197 8.4489,46.3956 8.4298,46.4093 8.3534,46.4005 8.3453,46.397 8.292,46.3699 8.1307,46.1702 8.1475,46.1314 8.1383,46.0986 7.9978,45.9568 7.962,45.9445 7.939,45.9419 7.8959,45.9402 7.8682,45.923 7.8554,45.8962 7.8449,45.8668 7.773,45.8714 7.7325,45.8801 7.6985,45.891 7.6396,45.9281 7.5263,45.9292 7.4475,45.8887 7.4193,45.8772 7.3757,45.8632 7.3288,45.8683 7.2868,45.8711 7.2202,45.8458 7.1812,45.8283 7.0932,45.8312 7.0605,45.8507 7.0284,45.8797 7.0209,45.9097 6.9975,45.9458 6.9233,46.0028 6.8642,46.0357 6.774,46.1021 6.7903,46.3256 6.7974,46.3514 6.7889,46.3757 6.7283,46.3944 6.6933,46.4016 6.6243,46.4112 6.506,46.4054 6.4829,46.4 6.3108,46.3511 6.2867,46.3412 6.2362,46.3034 6.2211,46.2774 6.235,46.2626 6.263,46.2093 6.237,46.1655 6.179,46.1197 6.1248,46.0971 5.9881,46.0944 5.9588,46.1547 5.9732,46.1695 6.0007,46.1814 6.0215,46.1889 6.0659,46.1956 6.1072,46.2088 6.0977,46.2448 6.109,46.2562 6.145,46.3266 6.1024,46.3569 6.0625,46.3735 6.0784,46.3967 6.1265,46.4865 6.12,46.5349 6.2604,46.6294 6.35,46.6634 6.4258,46.7047 6.4479,46.7283 6.4378,46.7861 6.4511,46.8423 6.5192,46.9182 6.557,46.9264 6.6233,46.9464 6.6689,46.9807 6.6901,47.01 6.7838,47.0772 6.8402,47.111 6.8294,47.1175 6.9617,47.2381 6.9911,47.3109 6.9708,47.3076 6.9214,47.3047 6.872,47.3097 6.9806,47.4428 7.015,47.4538 7.1364,47.4449 7.1728,47.3898 7.2375,47.3674 7.2651,47.3783 7.2978,47.3862 7.3298,47.3849 7.3477,47.3795 7.375,47.3793 7.4052,47.3909 7.4227,47.4065 7.4422,47.4157 7.4865,47.4409 7.4917,47.4462 7.492,47.4958 7.5109,47.5054 7.5359,47.5113 7.5433,47.5244 7.5663,47.5301 7.5773,47.5302 7.6295,47.5494 7.6646,47.5506 7.6579,47.5216 7.6104,47.5067 7.6454,47.4961 7.6862,47.489 7.7585,47.499 7.9063,47.5 8.0218,47.5018 8.0902,47.5169 8.184,47.5658 8.229,47.5651 8.2773,47.5548 8.379,47.5257 8.4238,47.5193 8.459,47.553 8.5113,47.5781 8.5509,47.5641 8.5571,47.5441 8.5641,47.5372 8.5808,47.5462 8.6126,47.6017 8.5979,47.6131 8.5685,47.6141 8.5284,47.6098 8.5099,47.5971 8.4733,47.5925 8.4072,47.6195 8.3948,47.6472 8.4649,47.7161 8.5508,47.752 8.5995,47.7493 8.6492,47.7434 8.673,47.732 8.7241,47.7024 8.7197,47.6536 8.7078,47.6421 8.7409,47.6392 8.7875,47.6271 8.7618,47.6613 8.793,47.6814 8.8225,47.6635 8.8432,47.6445 8.8706,47.5997 8.8863,47.5965 8.9134,47.5975 8.9352,47.603 8.9668,47.6157 8.9882,47.6263 9.0203,47.6338 9.0697,47.631 9.2478,47.6082 9.465,47.5216 9.5533,47.4861 9.5533,47.4861 6,2.0,Switzerland 8.6661,47.6389 8.6977,47.6423 8.6932,47.6565 8.6616,47.6482 8.6661,47.6389 8.6661,47.6389 6,2.0,Germany 8.6661,47.6389 8.6616,47.6482 8.6932,47.6565 8.6977,47.6423 8.6661,47.6389 8.6661,47.6389 17,-3.5,Canada -55.8471,47.6222 -55.8538,47.602 -55.8482,47.584 -55.8337,47.5738 -55.8089,47.5645 -55.799,47.5554 -55.8216,47.5481 -55.8427,47.5449 -55.8668,47.5474 -55.9327,47.5572 -56.0248,47.5777 -56.0322,47.5927 -56.0229,47.6016 -55.9254,47.6257 -55.8524,47.6321 -55.8471,47.6222 -55.8471,47.6222 20,-3.5,Canada -54.0473,47.5866 -54.0829,47.4807 -54.1632,47.3477 -54.1802,47.3375 -54.191,47.3355 -54.215,47.3376 -54.2633,47.3441 -54.284,47.3552 -54.2486,47.3826 -54.2175,47.3958 -54.2,47.4065 -54.1868,47.418 -54.18,47.4265 -54.1526,47.4693 -54.1522,47.4958 -54.1268,47.5394 -54.054,47.6147 -54.0445,47.6062 -54.0473,47.5866 -54.0473,47.5866 58,-4.0,Canada -61.3194,47.5867 -61.297,47.5817 -61.2905,47.5702 -61.4075,47.4972 -61.4506,47.4913 -61.4587,47.5011 -61.4288,47.5166 -61.3872,47.5488 -61.3867,47.562 -61.4496,47.5635 -61.4709,47.5547 -61.5651,47.4956 -61.7641,47.3612 -61.7489,47.3562 -61.7005,47.3717 -61.6886,47.3774 -61.6782,47.3848 -61.6257,47.4357 -61.6026,47.4612 -61.6127,47.4379 -61.6523,47.3909 -61.7548,47.3346 -61.8172,47.3008 -61.8364,47.2894 -61.8446,47.2793 -61.8752,47.2248 -61.8717,47.211 -61.85,47.2031 -61.7353,47.1799 -61.7194,47.1851 -61.7085,47.1985 -61.6945,47.2039 -61.7035,47.1857 -61.7111,47.179 -61.7253,47.1716 -61.7558,47.1654 -61.7709,47.1641 -61.8668,47.1578 -61.8912,47.1596 -61.9117,47.1626 -61.9226,47.1696 -61.925,47.1835 -61.8598,47.3255 -61.8506,47.3407 -61.8362,47.3543 -61.82,47.3597 -61.6476,47.453 -61.6173,47.4781 -61.5958,47.493 -61.5736,47.5072 -61.5282,47.5336 -61.4826,47.5592 -61.465,47.5685 -61.444,47.5783 -61.4326,47.58 -61.3368,47.5882 -61.3194,47.5867 -61.3194,47.5867 14,-8.0,United States -122.2057,47.3406 -122.2353,47.3333 -122.3084,47.2934 -122.319,47.2916 -122.3286,47.299 -122.3431,47.3175 -122.3356,47.3547 -122.3204,47.4069 -122.2737,47.4621 -122.2667,47.4367 -122.2465,47.3782 -122.2397,47.3688 -122.2057,47.3406 -122.2057,47.3406 13,2.0,France -3.0812,47.2339 -3.1037,47.2417 -3.1137,47.2442 -3.162,47.2496 -3.1843,47.2488 -3.2036,47.2467 -3.2148,47.2504 -3.2334,47.2631 -3.2547,47.3176 -3.2422,47.3375 -3.0592,47.2604 -3.0812,47.2339 -3.0812,47.2339 38,11.0,Russia 151.9895,47.0711 152.0197,47.0915 152.047,47.106 152.0719,47.0949 152.0567,47.0735 152.0367,47.0591 152.0151,47.0487 151.9573,47.0095 151.8709,46.9241 151.8162,46.8691 151.8098,46.8571 151.7994,46.8384 151.6165,46.7296 151.606,46.7251 151.5854,46.7196 151.566,46.7182 151.5522,46.7201 151.5218,46.7319 151.5049,46.7416 151.4969,46.7476 151.4894,46.791 151.4992,46.7997 151.5095,46.8036 151.5296,46.8082 151.5492,46.8089 151.6189,46.8017 151.6336,46.8033 151.6442,46.8075 151.653,46.8131 151.8039,46.935 151.8316,46.9633 151.8876,47.0194 151.9035,47.0369 151.9643,47.0893 151.9853,47.1065 152.0042,47.1192 151.9895,47.0711 151.9895,47.0711 749,2.0,Italy 13.6995,46.4734 13.7,46.4653 13.6918,46.4397 13.6728,46.3986 13.6384,46.3966 13.4922,46.3317 13.4218,46.2936 13.3647,46.2426 13.4002,46.1603 13.4402,46.1707 13.4697,46.1792 13.5314,46.1656 13.6469,46.1229 13.629,46.093 13.5746,46.0528 13.5382,46.0349 13.5197,46.0271 13.5031,46.0108 13.4609,45.96 13.4911,45.934 13.5213,45.916 13.5498,45.9269 13.5741,45.9405 13.616,45.9295 13.6158,45.8955 13.5949,45.853 13.5716,45.836 13.5595,45.7982 13.5846,45.7568 13.6783,45.732 13.7724,45.7006 13.8161,45.6658 13.8987,45.5846 13.8377,45.5354 13.8084,45.5327 13.7831,45.5344 13.6978,45.5444 13.7786,45.5556 13.7166,45.6422 13.6371,45.7014 13.611,45.7178 13.5606,45.73 13.5238,45.7311 13.506,45.709 13.5076,45.6832 13.4807,45.6575 13.4101,45.6252 13.3689,45.6262 13.4035,45.6436 13.3964,45.6687 13.3491,45.6854 13.1983,45.7247 13.1749,45.7261 13.1027,45.7156 13.0531,45.6575 13.0779,45.5999 13.0693,45.5848 13.0455,45.5821 12.9826,45.5782 12.9043,45.5666 12.846,45.5438 12.781,45.517 12.6893,45.4793 12.6205,45.4505 12.5996,45.4429 12.57,45.432 12.4011,45.3894 12.431,45.4314 12.4867,45.4394 12.5631,45.4921 12.4723,45.5157 12.3773,45.4812 12.2699,45.4217 12.1372,45.2506 12.1443,45.2124 12.2164,45.1461 12.3449,45.0051 12.4264,44.9574 12.4777,44.9362 12.5027,44.9317 12.5206,44.9096 12.4627,44.802 12.4315,44.7668 12.4096,44.8029 12.422,44.831 12.4055,44.8492 12.3726,44.8176 12.3795,44.7407 12.3387,44.7531 12.2731,44.7873 12.2444,44.7254 12.2307,44.6731 12.2282,44.6434 12.263,44.4258 12.2716,44.4012 12.3363,44.2283 12.3512,44.1967 12.405,44.1395 12.429,44.1177 12.5014,44.0599 12.5282,44.0386 12.6719,43.9379 12.703,43.9271 12.7229,43.9225 12.7359,43.9214 12.7471,43.9204 12.8009,43.9133 12.8852,43.8749 13.0379,43.7863 13.1074,43.737 13.1529,43.7047 13.1752,43.6863 13.2768,43.6259 13.3381,43.5997 13.4076,43.5735 13.4618,43.5615 13.5334,43.5524 13.5804,43.5208 13.6028,43.488 13.6105,43.4398 13.6928,43.3015 13.8288,43.0295 13.8432,42.9577 13.8546,42.9159 13.8633,42.8937 13.8782,42.8647 13.8863,42.8529 13.9042,42.7964 13.9205,42.7551 13.968,42.6629 13.9974,42.6217 14.0388,42.5715 14.0557,42.5521 14.1109,42.4929 14.1803,42.4347 14.4842,42.2135 14.5459,42.1713 14.5848,42.1573 14.6087,42.1512 14.6413,42.1417 14.6958,42.1206 14.6949,42.0943 14.7015,42.0565 14.7162,42.0406 14.7345,42.0302 14.7418,42.0275 14.8107,41.9954 14.8737,41.9732 14.9191,41.9686 14.9759,41.9569 15.0052,41.9376 15.0419,41.9054 15.0784,41.8901 15.1213,41.8807 15.1416,41.8773 15.3518,41.8584 15.3835,41.8567 15.4342,41.8591 15.476,41.8617 15.5787,41.8765 15.6575,41.8684 15.7435,41.8696 15.8351,41.8779 15.8917,41.8879 16.0009,41.8993 16.0318,41.8966 16.0603,41.889 16.1235,41.8639 16.1716,41.7824 16.1705,41.7429 16.1429,41.7106 16.1166,41.6936 16.0086,41.63 15.9583,41.6064 15.9161,41.5937 15.898,41.5845 15.876,41.5666 15.8691,41.5416 15.8688,41.5183 15.8765,41.4834 15.9044,41.4391 15.9631,41.3931 16.0109,41.3724 16.0633,41.358 16.1702,41.3191 16.4695,41.2059 16.6351,41.1448 16.766,41.1083 17.0263,41.0355 17.1602,40.9835 17.2314,40.9433 17.2714,40.9185 17.2984,40.8967 17.4499,40.7828 17.4725,40.7736 17.7367,40.685 17.9127,40.6327 17.9882,40.5971 18.0014,40.5665 18.0112,40.5323 18.0147,40.5098 18.0572,40.4795 18.1027,40.449 18.25,40.3655 18.4,40.243 18.4157,40.2196 18.4347,40.1858 18.4873,40.0895 18.4895,40.0576 18.4475,39.9943 18.419,39.983 18.3938,39.949 18.3745,39.8915 18.3746,39.8547 18.3664,39.7716 18.3504,39.7535 18.3248,39.7474 18.3048,39.7613 18.2802,39.7755 18.2326,39.7878 18.2025,39.7886 18.1747,39.7928 18.1525,39.8023 18.1312,39.8119 18.0576,39.8582 18.0162,39.893 17.9724,39.954 17.9949,39.9664 17.9878,40.0561 17.8822,40.2098 17.8331,40.2392 17.7608,40.2492 17.7385,40.2513 17.6496,40.2586 17.6123,40.2581 17.5263,40.2545 17.4829,40.252 17.3692,40.2853 17.1804,40.3671 17.2225,40.4093 17.2446,40.4279 17.2665,40.4241 17.2933,40.4426 17.0533,40.475 17.0236,40.4698 16.9947,40.4608 16.9751,40.4532 16.9191,40.4222 16.8961,40.4052 16.8514,40.3599 16.8407,40.3448 16.7689,40.266 16.7269,40.1994 16.7187,40.1714 16.6656,40.1018 16.6189,40.0732 16.6075,40.0646 16.5861,40.0412 16.5769,39.9986 16.5872,39.9513 16.5411,39.8534 16.5142,39.8271 16.4769,39.7775 16.4679,39.7552 16.4645,39.7291 16.4682,39.7047 16.5076,39.6185 16.5334,39.6 16.5748,39.5853 16.6039,39.5783 16.719,39.5727 16.801,39.5241 16.9401,39.4484 17.0115,39.4218 17.1225,39.3522 17.1132,39.3215 17.0932,39.2703 17.0859,39.2189 17.094,39.055 17.119,39.01 17.1354,38.9953 17.1463,38.9539 17.1464,38.9195 17.1041,38.8757 17.0751,38.8643 16.9531,38.8954 16.9302,38.895 16.9069,38.892 16.8125,38.8734 16.7085,38.8321 16.5929,38.774 16.5731,38.7574 16.5517,38.7361 16.5281,38.6991 16.5127,38.666 16.5268,38.6054 16.5398,38.5597 16.5481,38.5109 16.5531,38.4771 16.5546,38.4053 16.5473,38.3854 16.5107,38.3485 16.4935,38.3341 16.4689,38.3152 16.4488,38.3034 16.427,38.2939 16.3925,38.2813 16.3369,38.2664 16.3087,38.2548 16.1387,38.0857 16.1219,38.0265 16.1176,37.999 16.1142,37.9784 16.0924,37.9328 16.0665,37.9036 16.036,37.8818 15.9752,37.8763 15.9263,37.8798 15.9018,37.8854 15.8459,37.8837 15.7739,37.8765 15.7603,37.8746 15.7551,37.8744 15.7355,37.8782 15.6996,37.8888 15.6472,37.9153 15.6147,37.9618 15.6248,38.0204 15.6095,38.1502 15.609,38.1866 15.6336,38.1974 15.6947,38.2129 15.7164,38.2147 15.7393,38.2234 15.7737,38.2387 15.7942,38.2597 15.8747,38.409 15.8852,38.4297 15.9013,38.4821 15.9016,38.5029 15.8736,38.533 15.8557,38.5501 15.8244,38.5695 15.808,38.5845 15.8289,38.6141 15.9633,38.6781 16.0025,38.6805 16.0239,38.6802 16.0462,38.6776 16.0775,38.6694 16.1077,38.672 16.1567,38.7016 16.1733,38.7256 16.1865,38.7541 16.1971,38.793 16.1994,38.8251 16.1981,38.8776 16.1726,38.8881 16.1357,38.9046 16.0781,38.979 16.0428,39.0853 16.0359,39.1424 16.0347,39.1812 16.0318,39.2125 16.0123,39.3004 15.9595,39.4054 15.9051,39.472 15.8827,39.4894 15.8319,39.5657 15.7868,39.6348 15.7785,39.6629 15.7661,39.748 15.7605,39.8183 15.7339,39.874 15.7269,39.8823 15.7077,39.9121 15.6908,39.9348 15.6425,39.9882 15.6209,39.9977 15.5977,40.0195 15.5619,40.0295 15.5396,40.0311 15.4886,40.0251 15.4376,39.9837 15.3956,39.9464 15.3341,39.956 15.2922,39.9862 15.2437,40.0267 15.117,40.1154 15.0838,40.127 14.9922,40.1504 14.9216,40.1887 14.9069,40.226 14.9438,40.2959 14.9703,40.3186 14.9714,40.3501 14.9441,40.4004 14.878,40.513 14.8107,40.5857 14.7546,40.6271 14.7335,40.6301 14.6052,40.602 14.4851,40.5741 14.3825,40.5541 14.3434,40.5817 14.3712,40.5922 14.455,40.6643 14.433,40.7022 14.2924,40.7802 14.2495,40.7943 14.1965,40.7722 14.1477,40.7608 14.0546,40.776 14.0275,40.8163 14.0098,40.8551 13.9987,40.8736 13.9702,40.9172 13.881,41.0318 13.8184,41.1063 13.7793,41.1468 13.7568,41.1647 13.719,41.1884 13.6934,41.2045 13.6255,41.2131 13.596,41.2095 13.5481,41.1914 13.258,41.2485 13.1932,41.236 13.152,41.2225 13.129,41.2126 13.0988,41.197 13.0117,41.2136 12.9877,41.2514 12.9624,41.2797 12.9342,41.3063 12.9147,41.3235 12.8955,41.3371 12.8746,41.3488 12.8373,41.3632 12.6387,41.411 12.5587,41.4606 12.5005,41.5209 12.455,41.5602 12.4301,41.5806 12.3344,41.6476 12.1992,41.741 12.1903,41.7696 12.1609,41.8207 12.1419,41.8449 12.1067,41.8759 12.0048,41.9384 11.8962,41.9886 11.8688,41.9904 11.8461,41.9838 11.8146,41.9827 11.7887,42.0099 11.7231,42.1018 11.7094,42.1348 11.6877,42.1766 11.6116,42.2504 11.5182,42.2951 11.4815,42.3096 11.4356,42.3262 11.357,42.3568 11.2466,42.3707 11.2164,42.3697 11.1905,42.364 11.1862,42.3429 11.1643,42.3175 11.0821,42.3485 11.0694,42.3824 11.0947,42.3946 11.1179,42.3914 11.1494,42.3977 11.1685,42.4368 11.1716,42.4644 11.1427,42.5069 11.0652,42.5841 10.9506,42.6762 10.9106,42.6977 10.8746,42.7105 10.8475,42.7186 10.754,42.7906 10.7601,42.8506 10.718,42.8801 10.6659,42.8982 10.5744,42.909 10.5188,43.004 10.5261,43.0748 10.5281,43.1015 10.5239,43.1321 10.5158,43.1748 10.5039,43.2086 10.4085,43.3489 10.3634,43.3969 10.343,43.4096 10.3102,43.4261 10.2807,43.4935 10.2734,43.5422 10.2626,43.6445 10.2628,43.6649 10.2599,43.6937 10.2533,43.7465 10.2379,43.7937 10.222,43.8295 10.2017,43.8552 10.1652,43.8949 10.0979,43.9539 10.0769,43.969 10.0457,43.9833 10.0135,43.9944 9.9696,44.0041 9.7016,44.0647 9.6476,44.0909 9.3599,44.2352 9.3237,44.2595 9.2183,44.2967 8.8032,44.3754 8.7352,44.3779 8.628,44.338 8.4833,44.2724 8.4322,44.2179 8.3875,44.1299 8.3207,44.1086 8.2898,44.1035 8.2627,44.0908 8.223,44.0504 8.145,43.933 8.1533,43.9091 8.0567,43.8434 7.9378,43.7968 7.9031,43.7903 7.7622,43.7656 7.7282,43.7467 7.6549,43.7302 7.6035,43.7395 7.5698,43.7416 7.5217,43.7326 7.5022,43.7717 7.486,43.8247 7.5877,43.9151 7.6481,43.9572 7.6955,44.026 7.6984,44.0415 7.6511,44.0842 7.6518,44.1209 7.6042,44.1301 7.5098,44.1062 7.4559,44.0888 7.4105,44.0763 7.3408,44.0816 7.0218,44.1967 6.9669,44.2339 6.8684,44.3251 6.8442,44.4672 6.8433,44.4906 6.9413,44.6141 6.9659,44.6374 7.0187,44.6941 7.022,44.7806 6.9966,44.7997 6.9593,44.8133 6.9329,44.8198 6.892,44.8095 6.8399,44.8197 6.766,44.8548 6.7396,44.8675 6.6523,44.9888 6.615,45.0645 6.6284,45.0747 6.6806,45.0966 6.7571,45.1168 6.8123,45.1017 6.9297,45.1283 7.0548,45.1718 7.1179,45.2078 7.1487,45.3259 7.137,45.379 7.0792,45.4252 6.9855,45.4734 6.9598,45.5451 6.8004,45.6776 6.7899,45.7367 6.8037,45.7821 6.8629,45.8039 6.8925,45.7975 6.9126,45.8001 6.9342,45.8061 6.9746,45.8235 7.0284,45.8797 7.0605,45.8507 7.0932,45.8312 7.1812,45.8283 7.2202,45.8458 7.2868,45.8711 7.3288,45.8683 7.3757,45.8632 7.4193,45.8772 7.4475,45.8887 7.5263,45.9292 7.6396,45.9281 7.6985,45.891 7.7325,45.8801 7.773,45.8714 7.8449,45.8668 7.8554,45.8962 7.8682,45.923 7.8959,45.9402 7.939,45.9419 7.962,45.9445 7.9978,45.9568 8.1383,46.0986 8.1475,46.1314 8.1307,46.1702 8.292,46.3699 8.3453,46.397 8.3534,46.4005 8.4298,46.4093 8.4489,46.3956 8.454,46.3197 8.4363,46.2701 8.4229,46.2403 8.4332,46.1946 8.4488,46.1806 8.6036,46.0689 8.6843,46.0487 8.707,46.0516 8.7167,46.0559 8.7349,46.0684 8.81,46.0461 8.8318,46.0284 8.839,46.0044 8.808,45.9816 8.8077,45.9341 8.8853,45.9004 8.914,45.8488 8.9238,45.8197 8.9387,45.7931 8.9859,45.7771 9.0242,45.7855 9.0716,45.8501 9.0602,45.8678 9.0102,45.8866 8.9849,45.9227 9.0042,45.9701 9.023,46.0047 9.0705,46.0686 9.1195,46.1077 9.1318,46.1153 9.1637,46.1259 9.2282,46.1809 9.2636,46.2399 9.2794,46.272 9.2843,46.2981 9.2601,46.3728 9.2375,46.3896 9.2809,46.4477 9.3537,46.4549 9.4417,46.4196 9.437,46.3738 9.4443,46.3336 9.5082,46.2669 9.5315,46.2534 9.5683,46.2441 9.6113,46.2391 9.6951,46.2474 9.7568,46.2895 9.7992,46.3054 9.8391,46.3167 9.8942,46.3304 9.9328,46.3268 9.9763,46.3025 9.9683,46.2801 9.9811,46.2391 10.0577,46.1691 10.122,46.1779 10.1597,46.2105 10.1398,46.3374 10.0767,46.3709 10.0356,46.3926 10.0304,46.4498 10.0374,46.4884 10.1048,46.5581 10.1668,46.5791 10.2274,46.5811 10.2391,46.563 10.2318,46.5375 10.2892,46.502 10.3227,46.4965 10.4352,46.4861 10.4428,46.4894 10.457,46.5026 10.4708,46.5395 10.4716,46.5642 10.4561,46.5825 10.4326,46.7098 10.4566,46.818 10.4613,46.8124 10.4831,46.8018 10.5486,46.7953 10.5847,46.8043 10.6319,46.817 10.665,46.8202 10.7482,46.7773 10.7765,46.7479 10.8187,46.7335 10.8723,46.7176 11.0011,46.7201 11.0559,46.77 11.0815,46.838 11.0848,46.862 11.1025,46.8765 11.1615,46.9139 11.4675,46.9606 11.6055,46.9591 11.6937,46.9427 11.7147,46.9252 11.7447,46.9248 12.058,47.0059 12.1231,47.0312 12.1687,47.0407 12.2103,47.0305 12.2135,47.0187 12.2065,47.0094 12.1774,46.9792 12.1159,46.959 12.1189,46.9134 12.143,46.8744 12.1684,46.8545 12.2148,46.8356 12.2841,46.7878 12.3662,46.6679 12.3867,46.6523 12.423,46.6375 12.4687,46.6291 12.5366,46.6084 12.5726,46.6058 12.6746,46.6064 12.7177,46.5882 12.73,46.5915 12.7398,46.5967 12.7602,46.5946 12.8074,46.5779 13.2387,46.5087 13.4098,46.51 13.5357,46.5031 13.5918,46.4951 13.6995,46.4734 13.6995,46.4734 11,2.0,Italy 12.479,43.8735 12.4937,43.8916 12.4874,43.9371 12.4423,43.9336 12.3984,43.9083 12.3897,43.9019 12.3929,43.8632 12.4541,43.8492 12.4777,43.8649 12.479,43.8735 12.479,43.8735 122,-4.0,Canada -62.1914,46.2854 -62.221,46.2972 -62.2464,46.3026 -62.2686,46.3004 -62.2597,46.2795 -62.2465,46.2591 -62.2735,46.224 -62.3337,46.1652 -62.3656,46.1618 -62.419,46.1617 -62.5153,46.1271 -62.4539,46.07 -62.4153,46.0664 -62.3897,46.0725 -62.4107,46.0905 -62.3826,46.0958 -62.3598,46.0442 -62.3667,45.9666 -62.3781,45.9482 -62.4153,45.9291 -62.4569,45.9178 -62.5035,45.9127 -62.5254,45.9106 -62.562,45.9079 -62.6726,45.9019 -62.7492,45.9152 -62.7678,45.925 -62.7941,45.9433 -62.8415,45.9848 -62.8819,46.0218 -62.831,46.0418 -62.7848,46.0869 -62.7993,46.105 -62.9361,46.1365 -63.0246,46.1562 -62.9496,46.2275 -62.9318,46.2388 -62.9076,46.2415 -62.8774,46.2627 -62.9576,46.2439 -63.0015,46.2165 -63.0758,46.158 -63.051,46.1419 -63.142,46.0865 -63.1683,46.0853 -63.1995,46.0912 -63.3196,46.1242 -63.4297,46.1535 -63.502,46.1595 -63.5561,46.1737 -63.6121,46.2182 -63.6579,46.2549 -63.7206,46.2748 -63.6818,46.308 -63.639,46.3008 -63.6598,46.3418 -63.7506,46.3459 -63.8728,46.3484 -63.8949,46.341 -64.0365,46.3579 -64.0235,46.4757 -64.0115,46.4941 -64.0144,46.5651 -64.1824,46.5701 -64.2982,46.5697 -64.3232,46.6149 -64.324,46.6362 -64.3138,46.6661 -64.2907,46.6935 -64.2554,46.7204 -64.2322,46.733 -64.2048,46.7484 -64.1881,46.7632 -64.1557,46.8235 -64.1401,46.8482 -64.084,46.8974 -63.9294,46.985 -63.9038,46.9307 -63.8775,46.8432 -63.9502,46.7691 -63.98,46.7482 -64.0005,46.7253 -63.9829,46.7002 -63.9406,46.6901 -63.9104,46.6969 -63.8859,46.6911 -63.7413,46.5614 -63.7763,46.4817 -63.7442,46.4082 -63.6897,46.392 -63.6472,46.3863 -63.6192,46.3845 -63.61,46.4033 -63.6322,46.4276 -63.6485,46.4407 -63.6278,46.4961 -63.5858,46.511 -63.5644,46.5137 -63.5285,46.5082 -63.4078,46.4749 -63.2253,46.4355 -63.1823,46.374 -63.1508,46.3674 -63.1267,46.3592 -62.8533,46.3742 -62.7738,46.3818 -62.6052,46.4017 -62.5771,46.4081 -62.506,46.4177 -62.3885,46.4248 -62.3671,46.4258 -62.0863,46.4331 -62.045,46.4297 -61.9699,46.4198 -61.9268,46.4124 -61.8867,46.4017 -61.9252,46.3682 -62.013,46.3267 -62.0854,46.2968 -62.1275,46.291 -62.1914,46.2854 -62.1914,46.2854 153,-4.0,Canada -60.4279,45.5672 -60.4724,45.5662 -60.68,45.5432 -60.8752,45.5477 -61.0159,45.5126 -61.0624,45.5036 -61.0824,45.4994 -61.1108,45.5321 -61.1419,45.5294 -61.1868,45.5102 -61.2507,45.5217 -61.2893,45.5702 -61.3442,45.6135 -61.3695,45.6586 -61.3912,45.7517 -61.4079,45.7942 -61.4407,45.9372 -61.3686,46.0849 -61.3564,46.1018 -61.3257,46.1259 -61.2954,46.1434 -61.2566,46.1597 -61.2104,46.1773 -61.0067,46.3993 -60.9462,46.5139 -60.9104,46.5814 -60.8056,46.7205 -60.782,46.7439 -60.7505,46.7612 -60.713,46.7692 -60.6306,46.8276 -60.6046,46.8534 -60.5916,46.8771 -60.5839,46.8999 -60.5741,46.9187 -60.5538,46.9463 -60.5092,46.9766 -60.3746,46.9454 -60.3411,46.9123 -60.4098,46.846 -60.3605,46.8094 -60.2668,46.8084 -60.2457,46.8125 -60.22,46.7909 -60.2172,46.7704 -60.2392,46.6773 -60.3931,46.3371 -60.4495,46.2691 -60.5036,46.2023 -60.5235,46.1493 -60.5028,46.1561 -60.4857,46.176 -60.4666,46.1994 -60.4499,46.2201 -60.3883,46.2613 -60.3581,46.2742 -60.3353,46.2746 -60.3397,46.2254 -60.3771,46.204 -60.4501,46.1397 -60.5047,46.086 -60.5224,46.0729 -60.56,46.0537 -60.6087,46.0343 -60.7031,46.0144 -60.7773,46.0001 -60.9002,45.9302 -60.9376,45.9173 -60.9977,45.8993 -61.0215,45.9009 -61.0382,45.8736 -60.9687,45.8793 -60.9302,45.8899 -60.9015,45.9082 -60.8629,45.9373 -60.8066,45.9627 -60.7669,45.9791 -60.6785,46.0067 -60.651,46.0028 -60.7216,45.8787 -60.7843,45.8585 -60.8122,45.8544 -60.8708,45.8509 -60.9622,45.8372 -61.0044,45.8005 -60.9692,45.8034 -60.9402,45.8176 -60.9039,45.8298 -60.878,45.8297 -60.8324,45.8017 -60.8538,45.7711 -60.9336,45.758 -60.9871,45.7369 -61.0366,45.7072 -61.0604,45.6496 -60.9883,45.6376 -60.9561,45.652 -60.9185,45.6713 -60.8868,45.686 -60.8593,45.6964 -60.8326,45.7015 -60.7961,45.6974 -60.7584,45.6832 -60.7255,45.667 -60.639,45.7315 -60.4315,45.8685 -60.4066,45.877 -60.3817,45.8859 -60.3175,45.9365 -60.4696,45.8946 -60.526,45.8728 -60.5491,45.8617 -60.573,45.845 -60.6042,45.8343 -60.6304,45.838 -60.7014,45.8838 -60.5994,45.9521 -60.5156,45.9874 -60.4555,46.0133 -60.438,46.0232 -60.4055,46.0418 -60.2221,46.1562 -60.2132,46.1742 -60.2839,46.1715 -60.3177,46.1566 -60.3499,46.1333 -60.3857,46.1058 -60.4423,46.0691 -60.52,46.0221 -60.5593,46.019 -60.3704,46.1888 -60.3143,46.2312 -60.2681,46.255 -60.1999,46.2685 -60.1203,46.1877 -60.0478,46.195 -60.0106,46.1928 -59.8659,46.1489 -59.7884,46.1232 -59.7245,46.0566 -59.7422,46.0386 -59.7692,45.95 -59.7559,45.8859 -59.8741,45.8493 -60.0485,45.814 -60.0728,45.7904 -60.0897,45.7118 -60.1497,45.6497 -60.2949,45.593 -60.3168,45.5871 -60.4139,45.5685 -60.4279,45.5672 -60.4279,45.5672 149,2.0,Slovenia 16.5843,46.4232 16.5684,46.4211 16.5411,46.4243 16.4944,46.4386 16.4722,46.4525 16.4405,46.4678 16.3611,46.4827 16.3127,46.4809 16.2694,46.4779 16.2444,46.4616 16.2294,46.4426 16.243,46.3666 16.115,46.3532 16.0527,46.3256 16.0533,46.3052 16.0578,46.2833 15.9946,46.2452 15.7757,46.1807 15.6641,46.1733 15.637,46.1682 15.59,46.1142 15.5785,46.0916 15.5846,46.0634 15.6111,46.0323 15.6415,46.0155 15.6894,46.0008 15.7025,45.8865 15.6742,45.791 15.6309,45.7711 15.6079,45.7812 15.5899,45.7945 15.4777,45.7836 15.3124,45.7143 15.2946,45.7047 15.2726,45.6822 15.2672,45.6485 15.3351,45.6601 15.3312,45.6 15.2857,45.5779 15.2728,45.5428 15.2826,45.487 15.2559,45.4111 15.1534,45.3742 15.1355,45.3776 15.0708,45.4197 14.9581,45.4487 14.8919,45.4307 14.8428,45.4168 14.8053,45.4138 14.7029,45.4797 14.6005,45.5601 14.5891,45.5813 14.5895,45.6165 14.55,45.6146 14.5148,45.5605 14.476,45.4919 14.3935,45.4398 14.3725,45.4343 14.1173,45.4235 13.9689,45.4116 13.933,45.4049 13.8874,45.4017 13.6844,45.3926 13.6542,45.3941 13.6214,45.4021 13.5826,45.4216 13.5726,45.4298 13.5706,45.4652 13.6468,45.4914 13.7308,45.4973 13.6978,45.5444 13.7831,45.5344 13.8084,45.5327 13.8377,45.5354 13.8987,45.5846 13.8161,45.6658 13.7724,45.7006 13.6783,45.732 13.5846,45.7568 13.5595,45.7982 13.5716,45.836 13.5949,45.853 13.6158,45.8955 13.616,45.9295 13.5741,45.9405 13.5498,45.9269 13.5213,45.916 13.4911,45.934 13.4609,45.96 13.5031,46.0108 13.5197,46.0271 13.5382,46.0349 13.5746,46.0528 13.629,46.093 13.6469,46.1229 13.5314,46.1656 13.4697,46.1792 13.4402,46.1707 13.4002,46.1603 13.3647,46.2426 13.4218,46.2936 13.4922,46.3317 13.6384,46.3966 13.6728,46.3986 13.6918,46.4397 13.7,46.4653 13.6995,46.4734 13.7566,46.4652 13.826,46.4669 13.9173,46.4629 14.0622,46.4362 14.0961,46.4261 14.1089,46.4101 14.1336,46.3899 14.4578,46.3664 14.5244,46.3546 14.7923,46.4583 14.8041,46.4884 14.8129,46.5178 14.8466,46.5602 15.0338,46.5989 15.0533,46.5956 15.0815,46.6035 15.1181,46.6039 15.3844,46.5993 15.5805,46.6335 15.7843,46.6653 15.8105,46.669 15.8367,46.67 15.9653,46.7018 15.9656,46.7781 15.9868,46.7819 16.0888,46.8163 16.1168,46.8059 16.1583,46.811 16.2063,46.8229 16.2466,46.821 16.2753,46.8159 16.3257,46.789 16.3141,46.7559 16.2925,46.741 16.3021,46.7027 16.3363,46.6668 16.3521,46.6694 16.3622,46.6485 16.3853,46.6055 16.5078,46.456 16.5843,46.4232 16.5843,46.4232 370,2.0,Croatia 16.5843,46.4232 16.6053,46.4222 16.6378,46.4126 16.7778,46.3387 16.8169,46.3171 16.8507,46.2926 16.8551,46.2559 16.8567,46.2516 16.8676,46.2309 16.8958,46.2075 16.9138,46.1968 16.9491,46.1808 17.0164,46.1614 17.1285,46.1278 17.1585,46.1022 17.2105,46.0381 17.2305,46.001 17.2333,45.9686 17.2869,45.923 17.3304,45.8993 17.3649,45.8857 17.403,45.8882 17.4341,45.9022 17.558,45.8854 17.6012,45.8534 17.6202,45.8329 17.6279,45.8011 17.6362,45.7865 17.8556,45.7318 17.981,45.7349 18.1277,45.7352 18.1699,45.7317 18.2005,45.7278 18.2225,45.7154 18.3071,45.7024 18.3817,45.6961 18.4078,45.699 18.5297,45.7478 18.5725,45.7759 18.5922,45.7993 18.6931,45.8594 18.7535,45.8425 18.781,45.8506 18.7906,45.8607 18.8059,45.8232 18.8632,45.7735 18.8903,45.7634 18.9302,45.7303 18.9402,45.612 18.91,45.576 18.8841,45.5681 18.8759,45.5212 18.9029,45.4929 18.9221,45.4862 18.9432,45.4882 18.9807,45.5095 19.0712,45.4671 19.0695,45.4462 19.0297,45.4353 18.9988,45.4454 18.9746,45.4381 18.9547,45.3306 19.0859,45.2465 19.1118,45.2359 19.1633,45.2187 19.2336,45.1961 19.2581,45.1919 19.2936,45.1869 19.3237,45.1833 19.3618,45.1844 19.3821,45.1837 19.3978,45.1664 19.3915,45.1287 19.3256,45.1221 19.2218,45.1353 19.1861,45.1586 19.1606,45.1655 19.1407,45.163 19.0777,45.0454 19.0891,44.981 19.014,44.8798 18.9833,44.8545 19.002,44.8295 19.0133,44.8104 19.0031,44.8094 18.9362,44.8025 18.8205,44.8121 18.765,44.8464 18.742,44.8648 18.7437,44.8911 18.7711,44.8944 18.7689,44.9427 18.6081,45.0321 18.3934,45.0576 18.2353,45.0863 18.1926,45.0748 18.1898,45.0474 18.1761,45.0323 18.1477,45.027 18.0929,45.0332 18.0451,45.0533 17.9081,45.0292 17.8877,45.0168 17.8356,44.9982 17.8078,45.0045 17.7334,45.0356 17.6652,45.0716 17.5717,45.0576 17.4952,45.0581 17.4616,45.0665 17.2586,45.1252 17.213,45.0976 17.159,45.0969 17.0474,45.1368 17.0189,45.1606 16.8905,45.2144 16.8211,45.1449 16.7952,45.136 16.6597,45.1538 16.6394,45.1589 16.6064,45.1695 16.5729,45.179 16.5081,45.1743 16.4823,45.1608 16.4535,45.1344 16.3949,45.073 16.3436,44.9908 16.33,44.9564 16.2691,44.9482 16.2333,44.9606 16.1922,44.9802 16.1746,44.9932 16.0905,45.075 16.0,45.1628 15.9086,45.1768 15.8605,45.1712 15.8066,45.1572 15.7849,45.1403 15.7637,45.1177 15.7434,45.0267 15.7432,45.0052 15.7473,44.8719 15.7187,44.7616 15.7416,44.7293 15.8411,44.6615 15.9198,44.6571 15.9395,44.6433 15.9884,44.5663 16.0108,44.5239 16.0518,44.4803 16.0931,44.4587 16.1075,44.4421 16.1754,44.3034 16.1693,44.2638 16.123,44.1487 16.1436,44.1425 16.1844,44.1462 16.2211,44.1475 16.2499,44.1331 16.2831,44.103 16.3003,44.07 16.3239,44.0375 16.4073,43.9864 16.4405,43.9768 16.4876,43.9726 16.5103,43.9658 16.6234,43.8625 16.6757,43.8036 16.6863,43.7842 16.8064,43.6761 16.9141,43.5725 16.9324,43.554 16.9527,43.5368 17.0293,43.4869 17.0475,43.4772 17.0828,43.4611 17.1363,43.4484 17.1996,43.4288 17.2309,43.415 17.2466,43.3961 17.2337,43.3711 17.2544,43.2801 17.2636,43.2531 17.2799,43.2267 17.4104,43.1308 17.5409,43.0663 17.5649,43.0537 17.6121,43.0218 17.6301,42.9984 17.6431,42.9744 17.6508,42.9191 17.554,42.8954 17.4948,42.9042 17.4563,42.9327 17.4473,42.9418 17.4462,42.9691 17.431,42.9849 17.3025,43.0678 17.2279,43.1054 17.1987,43.1127 17.1539,43.1251 17.1077,43.1502 17.0447,43.1923 17.0213,43.2235 16.9166,43.3159 16.8582,43.3546 16.8374,43.3564 16.8148,43.3563 16.7902,43.3579 16.7411,43.3623 16.7132,43.3671 16.6148,43.3919 16.5957,43.3997 16.4761,43.4539 16.4462,43.4842 16.4076,43.4966 16.3315,43.5014 16.2876,43.4938 16.1681,43.4624 16.1478,43.4429 16.0804,43.4268 16.0146,43.4327 15.966,43.4554 15.8967,43.5177 15.9039,43.5786 15.9437,43.5824 15.9186,43.6343 15.7603,43.7068 15.6671,43.7294 15.5776,43.7955 15.5124,43.8325 15.5045,43.8452 15.4695,43.8634 15.4362,43.8729 15.3843,43.9155 15.2603,44.0232 15.2111,44.0694 15.1306,44.1463 15.097,44.2208 15.124,44.23 15.1827,44.205 15.2699,44.2034 15.2587,44.2555 15.3002,44.2503 15.3207,44.2374 15.3638,44.2201 15.3929,44.2099 15.5007,44.2131 15.4817,44.226 15.4572,44.2254 15.4269,44.2332 15.2493,44.3191 15.1605,44.3883 15.1198,44.4229 15.0748,44.4677 14.9929,44.5151 14.9698,44.5288 14.9504,44.551 14.9055,44.6046 14.8738,44.6447 14.867,44.6655 14.858,44.7607 14.8595,44.8014 14.8734,44.8386 14.8886,44.8607 14.8984,44.9152 14.8109,45.0642 14.7795,45.0719 14.7322,45.0844 14.7042,45.0972 14.654,45.1307 14.5646,45.2009 14.4625,45.2595 14.4286,45.2699 14.3031,45.2993 14.2666,45.2635 14.234,45.1805 14.2282,45.1458 14.22,45.1127 14.211,45.093 14.197,45.0722 14.1405,45.0256 14.136,44.9884 14.1476,44.938 14.1246,44.9111 14.0678,44.9103 13.9755,44.8399 13.9563,44.7963 13.9565,44.7731 13.9747,44.7674 13.9765,44.76 13.8849,44.7217 13.7978,44.8092 13.8197,44.8255 13.7376,44.9304 13.662,45.0002 13.5841,45.1063 13.576,45.1992 13.5568,45.2487 13.5147,45.3499 13.486,45.4503 13.5362,45.4426 13.5726,45.4298 13.5826,45.4216 13.6214,45.4021 13.6542,45.3941 13.6844,45.3926 13.8874,45.4017 13.933,45.4049 13.9689,45.4116 14.1173,45.4235 14.3725,45.4343 14.3935,45.4398 14.476,45.4919 14.5148,45.5605 14.55,45.6146 14.5895,45.6165 14.5891,45.5813 14.6005,45.5601 14.7029,45.4797 14.8053,45.4138 14.8428,45.4168 14.8919,45.4307 14.9581,45.4487 15.0708,45.4197 15.1355,45.3776 15.1534,45.3742 15.2559,45.4111 15.2826,45.487 15.2728,45.5428 15.2857,45.5779 15.3312,45.6 15.3351,45.6601 15.2672,45.6485 15.2726,45.6822 15.2946,45.7047 15.3124,45.7143 15.4777,45.7836 15.5899,45.7945 15.6079,45.7812 15.6309,45.7711 15.6742,45.791 15.7025,45.8865 15.6894,46.0008 15.6415,46.0155 15.6111,46.0323 15.5846,46.0634 15.5785,46.0916 15.59,46.1142 15.637,46.1682 15.6641,46.1733 15.7757,46.1807 15.9946,46.2452 16.0578,46.2833 16.0533,46.3052 16.0527,46.3256 16.115,46.3532 16.243,46.3666 16.2294,46.4426 16.2444,46.4616 16.2694,46.4779 16.3127,46.4809 16.3611,46.4827 16.4405,46.4678 16.4722,46.4525 16.4944,46.4386 16.5411,46.4243 16.5684,46.4211 16.5843,46.4232 16.5843,46.4232 14,7.0,Kazakhstan 52.939,46.1697 52.9314,46.1711 52.9212,46.1777 52.8965,46.1952 52.8865,46.2098 52.8918,46.2249 52.9597,46.3139 52.9714,46.3147 52.9833,46.3074 53.0225,46.2483 52.9912,46.2019 52.9503,46.176 52.939,46.1697 52.939,46.1697 14,2.0,France -1.2823,46.1028 -1.2975,46.1042 -1.3167,46.1083 -1.5047,46.1516 -1.5184,46.1566 -1.5306,46.1637 -1.549,46.1933 -1.5007,46.2029 -1.4898,46.2041 -1.475,46.2035 -1.2895,46.1455 -1.2559,46.1073 -1.2823,46.1028 -1.2823,46.1028 43,11.0,Russia 149.2639,45.5514 149.2712,45.5563 149.3381,45.649 149.4088,45.738 149.4523,45.7925 149.4616,45.8009 149.6462,45.8706 149.6797,45.9198 149.7181,45.9552 149.7473,45.9716 149.7576,45.9775 149.8259,46.0126 149.8614,46.0301 150.1356,46.1598 150.225,46.1615 150.2861,46.14 150.2627,46.1068 150.2133,46.0663 150.0986,45.9983 150.0393,45.9727 150.029,45.9672 150.0129,45.9526 150.0011,45.931 149.9911,45.9025 149.985,45.878 149.9477,45.8477 149.8555,45.7953 149.8113,45.775 149.7754,45.7817 149.6681,45.7267 149.6578,45.7211 149.6004,45.6825 149.5738,45.6587 149.4823,45.5869 149.474,45.5812 149.4637,45.5768 149.3339,45.5338 149.3196,45.531 149.2308,45.532 149.2411,45.5438 149.251,45.548 149.2639,45.5514 149.2639,45.5514 18,2.0,France -1.2099,45.7549 -1.2376,45.8068 -1.2489,45.8216 -1.282,45.8546 -1.3145,45.8712 -1.3369,45.8836 -1.3636,45.8978 -1.3728,45.9092 -1.397,45.9974 -1.3826,45.9972 -1.3591,45.9914 -1.2715,45.9435 -1.2312,45.9125 -1.1692,45.8392 -1.1799,45.7957 -1.1894,45.774 -1.2099,45.7549 -1.2099,45.7549 17,-4.0,Canada -60.8248,45.4942 -60.8504,45.4875 -60.8643,45.4801 -60.8759,45.4612 -60.8649,45.446 -60.9114,45.4051 -60.9221,45.4054 -60.9336,45.4121 -61.0178,45.4734 -61.0164,45.4948 -60.9345,45.5232 -60.8512,45.5249 -60.8186,45.5242 -60.7935,45.5065 -60.8009,45.4978 -60.8248,45.4942 -60.8248,45.4942 814,5.0,Uzbekistan 70.8645,42.2068 70.8825,42.2142 70.9351,42.2513 70.9661,42.2547 71.0244,42.2297 71.074,42.2019 71.1332,42.1707 71.1654,42.1579 71.1767,42.1566 71.1772,42.1506 71.1652,42.1269 71.1242,42.0944 70.8828,41.9952 70.8473,41.9922 70.8144,41.9982 70.7793,41.9943 70.7616,41.9797 70.7539,41.9233 70.749,41.884 70.6877,41.8664 70.6544,41.8652 70.6026,41.8629 70.4335,41.7529 70.4193,41.7384 70.4052,41.7034 70.3946,41.6851 70.3774,41.6693 70.2118,41.5863 70.1885,41.578 70.1552,41.568 70.108,41.5519 70.0878,41.5356 70.0843,41.4943 70.1098,41.4722 70.1699,41.4678 70.1959,41.4684 70.2266,41.4638 70.2511,41.4588 70.2734,41.4525 70.3168,41.431 70.3383,41.4125 70.3773,41.3656 70.3919,41.3642 70.4341,41.3724 70.5039,41.3972 70.5369,41.4122 70.5724,41.4291 70.6136,41.4236 70.6742,41.3482 70.696,41.3084 70.6954,41.2844 70.7161,41.2039 70.891,41.1571 71.0592,41.1145 71.1103,41.1401 71.1478,41.148 71.2993,41.0791 71.3256,41.0744 71.3425,41.0967 71.3443,41.1494 71.3441,41.1838 71.3409,41.211 71.3363,41.2861 71.3495,41.3039 71.4037,41.2717 71.4475,41.256 71.4776,41.2551 71.5003,41.2691 71.5198,41.2871 71.5529,41.3508 71.5613,41.382 71.5516,41.4161 71.5274,41.4373 71.5211,41.4575 71.5469,41.5079 71.5896,41.5096 71.768,41.3112 71.7894,41.2844 71.7955,41.2558 71.7975,41.2284 71.791,41.1996 71.7897,41.1544 71.8104,41.1431 72.0124,41.1499 72.051,41.1577 72.0822,41.1462 72.1165,41.0059 72.0967,40.9604 72.22,40.986 72.2962,40.9941 72.4041,40.9706 72.4804,40.9076 72.5064,40.8819 72.5219,40.8487 72.5605,40.8331 72.6026,40.8244 72.6259,40.823 72.7995,40.8218 72.9491,40.8224 73.0524,40.8011 73.0673,40.783 73.047,40.7538 73.0042,40.7291 72.844,40.667 72.7783,40.6476 72.7524,40.6431 72.7063,40.6292 72.6113,40.5393 72.5745,40.4901 72.5545,40.4739 72.53,40.4678 72.4921,40.4758 72.3057,40.5708 72.2748,40.5572 72.281,40.4805 72.301,40.4616 72.3352,40.4424 72.3542,40.4132 72.3475,40.3882 72.3338,40.359 72.3217,40.3426 72.295,40.3471 72.2464,40.3637 72.1843,40.4017 72.1594,40.4198 72.1286,40.4192 72.1084,40.4194 72.081,40.4163 72.0138,40.3869 71.9146,40.289 71.9456,40.2212 71.8055,40.2051 71.71,40.1484 71.6849,40.1293 71.6165,40.1028 71.4269,40.1704 71.4081,40.1786 71.3873,40.1934 71.3736,40.2236 71.2926,40.2564 71.202,40.2646 71.1497,40.2417 71.0422,40.2321 70.9973,40.2327 70.971,40.2324 70.899,40.2223 70.8855,40.1995 70.861,40.1998 70.7642,40.1958 70.7262,40.1831 70.6967,40.1738 70.6524,40.1638 70.6122,40.1587 70.5487,40.1605 70.5274,40.1667 70.5069,40.1877 70.4932,40.2099 70.365,40.305 70.2797,40.331 70.2471,40.4003 70.274,40.4258 70.319,40.4456 70.4388,40.5139 70.6373,40.6293 70.6809,40.6604 70.7001,40.6798 70.6875,40.7033 70.663,40.7156 70.6159,40.7245 70.5706,40.7814 70.5613,40.8241 70.4518,40.9311 70.3786,40.9883 70.3685,40.9927 70.3642,40.997 70.3424,41.003 70.321,41.0016 70.2946,40.9903 70.2794,40.9629 70.278,40.9156 70.2646,40.8889 70.227,40.853 70.1569,40.8121 69.9546,40.724 69.9041,40.7083 69.8769,40.7002 69.8444,40.6943 69.8046,40.688 69.7518,40.6768 69.7228,40.6665 69.6906,40.6341 69.6641,40.6062 69.6316,40.5929 69.5943,40.5969 69.5738,40.6097 69.4931,40.6792 69.4763,40.7053 69.4421,40.7348 69.3566,40.7653 69.3056,40.754 69.2704,40.7336 69.254,40.7181 69.1752,40.55 69.1652,40.4573 69.2336,40.3293 69.2443,40.2879 69.2251,40.1645 69.2079,40.1538 69.1549,40.1457 69.1328,40.1452 69.0999,40.1503 69.0399,40.1636 68.9848,40.1849 68.9674,40.1894 68.9418,40.1935 68.6746,40.1629 68.6342,40.1571 68.6018,40.1508 68.5487,40.139 68.5124,40.1205 68.5431,40.0948 68.5879,40.0767 68.6089,40.0724 68.6204,40.0712 68.6686,40.0772 68.7016,40.0835 68.7825,40.1023 68.8971,40.0955 68.915,40.0586 68.901,40.0254 68.8388,40.03 68.7295,40.0335 68.691,40.0229 68.7182,39.9559 68.7362,39.933 68.7631,39.9099 68.8115,39.8476 68.6646,39.7851 68.6424,39.8047 68.63,39.8239 68.5631,39.8178 68.5496,39.8134 68.5442,39.7948 68.5357,39.7265 68.5348,39.606 68.5191,39.5857 68.4479,39.5105 68.4281,39.5036 68.381,39.4933 68.2926,39.4911 68.2611,39.4923 68.0832,39.5094 68.0569,39.5121 67.9906,39.523 67.8163,39.5561 67.7713,39.5669 67.7464,39.5752 67.6679,39.5859 67.6385,39.5846 67.6182,39.5812 67.5908,39.5707 67.4134,39.4846 67.3513,39.4392 67.3516,39.4183 67.3491,39.393 67.3408,39.3238 67.3185,39.2528 67.2755,39.2449 67.2744,39.2277 67.2855,39.1727 67.4313,39.1237 67.4762,39.1279 67.5048,39.1294 67.5352,39.1247 67.606,39.0847 67.6048,38.9724 67.6093,38.9624 67.6268,38.9514 67.6603,38.9465 67.7699,38.9339 67.844,38.9532 67.8936,38.9642 68.0193,38.955 68.0352,38.9374 68.049,38.9066 68.0627,38.8876 68.0892,38.8611 68.0939,38.8547 68.1025,38.8082 68.0832,38.7772 68.0588,38.7627 68.0292,38.7546 67.9833,38.6213 67.9806,38.5007 68.0345,38.3846 68.1293,38.2872 68.187,38.2609 68.2463,38.2248 68.2737,38.1945 68.2922,38.1519 68.2893,38.1179 68.2645,38.0428 68.2475,38.0036 68.1784,37.9099 68.1483,37.8996 68.081,37.8914 68.0525,37.8737 68.04,37.8421 68.0331,37.8163 68.0054,37.7599 67.9832,37.723 67.962,37.6966 67.9123,37.6451 67.8915,37.6313 67.8477,37.5941 67.8276,37.575 67.8138,37.5575 67.7717,37.5011 67.7491,37.4637 67.737,37.44 67.7285,37.4042 67.7285,37.3745 67.7405,37.349 67.7519,37.3105 67.7548,37.2799 67.7522,37.2399 67.7479,37.2171 67.725,37.1772 67.6987,37.149 67.6911,37.144 67.6842,37.1637 67.6605,37.1811 67.6371,37.187 67.5605,37.2045 67.4376,37.2267 67.368,37.2088 67.3121,37.1775 67.2923,37.1707 67.2165,37.1616 67.2042,37.1527 67.1785,37.144 67.1578,37.1435 67.1376,37.1557 67.1279,37.1845 67.1122,37.2051 67.0038,37.3013 66.925,37.338 66.8824,37.3407 66.839,37.3369 66.7702,37.3239 66.7487,37.3218 66.6336,37.3136 66.536,37.3188 66.4926,37.3263 66.4505,37.3244 66.4316,37.3485 66.4295,37.4898 66.4522,37.7385 66.4665,37.7759 66.528,37.8424 66.5496,37.8623 66.5718,37.8844 66.5828,37.9221 66.578,37.939 66.5634,37.9539 66.5321,37.9728 66.512,37.9819 66.4823,37.9924 66.4532,37.9982 66.4326,38.0007 66.4041,37.9996 66.3636,37.9947 66.3361,38.0008 66.2383,38.0393 66.2187,38.053 66.1982,38.0794 66.1778,38.1047 65.9909,38.1905 65.9683,38.1983 65.7908,38.239 65.7531,38.2309 65.7178,38.2144 65.6897,38.1914 65.6521,38.183 65.6293,38.183 65.6083,38.1852 65.5707,38.1936 65.5406,38.2006 65.5104,38.2109 65.4774,38.2254 65.2415,38.3468 65.2055,38.3677 65.1701,38.3917 65.1122,38.4339 65.0652,38.4688 65.0371,38.4901 65.0199,38.5049 64.9088,38.5784 64.8898,38.5885 64.8486,38.6055 64.821,38.6136 64.7884,38.6228 64.7116,38.6466 64.6604,38.6648 64.5854,38.6954 64.5454,38.7179 64.3784,38.8302 64.3486,38.8532 64.3301,38.8703 64.3159,38.8857 64.3026,38.9019 64.297,38.9095 64.2807,38.928 64.2522,38.9471 64.2167,38.9418 64.1808,38.9291 64.1487,38.916 64.12,38.9083 64.092,38.9099 64.0469,38.9317 64.0006,38.957 63.9582,38.986 63.8977,39.0244 63.8073,39.0701 63.7284,39.1095 63.6249,39.1639 63.6085,39.1802 63.5717,39.2194 63.5583,39.235 63.5104,39.2858 63.4761,39.3204 63.4331,39.3545 63.3933,39.3792 63.2571,39.4539 63.1957,39.4841 63.1138,39.5221 63.0452,39.5547 63.0081,39.5727 62.9534,39.6001 62.9149,39.6225 62.8702,39.6533 62.8168,39.6912 62.7946,39.7043 62.7287,39.7428 62.7047,39.7552 62.6423,39.7848 62.4996,39.8649 62.4706,39.8856 62.3564,39.9872 62.3369,40.0373 62.3334,40.0624 62.3401,40.0832 62.3258,40.175 62.3139,40.2328 62.2674,40.3791 62.251,40.3939 62.1744,40.4279 62.1317,40.4348 62.1078,40.4481 62.1006,40.4588 62.0563,40.5188 62.0276,40.561 61.96,40.6734 61.9145,40.7939 61.9016,40.8315 61.9004,40.875 61.9026,40.8997 61.8993,40.9252 61.8857,40.9625 61.863,40.9979 61.8083,41.0654 61.7894,41.0793 61.6531,41.1564 61.5476,41.213 61.5269,41.2211 61.3622,41.2559 61.3304,41.2524 61.3106,41.2213 61.2956,41.1674 61.2777,41.1463 61.2452,41.1266 61.2061,41.1166 61.1611,41.1208 61.0777,41.1597 61.055,41.1856 61.002,41.1906 60.9386,41.1838 60.9204,41.1634 60.8982,41.1878 60.8792,41.1995 60.8562,41.2046 60.7283,41.2113 60.6218,41.2114 60.5965,41.2061 60.5733,41.1993 60.5108,41.1852 60.4351,41.171 60.3969,41.1748 60.3709,41.1824 60.3494,41.1957 60.3261,41.2167 60.2917,41.2412 60.2615,41.2588 60.2429,41.2677 60.1818,41.2922 60.14,41.3027 60.1116,41.313 60.0771,41.3262 60.0576,41.3346 60.0096,41.364 59.9953,41.3989 60.0145,41.4841 60.0388,41.5108 60.0779,41.5266 60.101,41.5438 60.0777,41.5847 60.0535,41.6126 59.993,41.6833 59.9884,41.7119 60.0115,41.7402 60.0339,41.7557 60.0604,41.7591 60.1105,41.7477 60.1429,41.7337 60.1763,41.7271 60.1911,41.7438 60.17,41.7769 60.0974,41.8134 60.0697,41.8365 60.0664,41.8441 60.0542,41.8639 59.9451,41.9849 59.9438,42.116 59.9314,42.1698 59.8315,42.2507 59.7746,42.2682 59.6532,42.2748 59.5396,42.2612 59.4764,42.2516 59.4475,42.2457 59.4048,42.2441 59.3668,42.246 59.3436,42.2521 59.1975,42.3032 59.1839,42.3195 59.177,42.3469 59.1776,42.3742 59.1779,42.3988 59.1575,42.4289 59.1343,42.4494 59.0616,42.4966 59.0116,42.4834 58.9863,42.4775 58.9655,42.4757 58.9423,42.4772 58.8964,42.4844 58.87,42.4928 58.7688,42.5561 58.723,42.5893 58.6945,42.6146 58.6493,42.6558 58.5322,42.748 58.5152,42.7326 58.5103,42.7115 58.505,42.6683 58.5012,42.6474 58.4922,42.625 58.4754,42.6129 58.4407,42.6098 58.3803,42.611 58.325,42.6151 58.2864,42.6262 58.2526,42.6402 58.2211,42.6483 58.1859,42.6459 58.0724,42.5944 58.0712,42.5631 58.1187,42.5403 58.1486,42.5305 58.1742,42.5246 58.2126,42.5132 58.2321,42.5023 58.262,42.4735 58.4257,42.2548 58.3607,42.2468 58.3282,42.2584 58.3353,42.3108 58.3236,42.351 58.2905,42.3771 58.2445,42.3991 58.2026,42.415 58.1707,42.4233 58.0211,42.456 57.996,42.4595 57.9732,42.46 57.9413,42.4534 57.8635,42.3976 57.868,42.3514 57.8813,42.3225 57.8739,42.2946 57.8283,42.2174 57.7928,42.1631 57.7589,42.1403 57.585,42.1062 57.5406,42.1065 57.5005,42.1153 57.4426,42.1227 57.4184,42.1256 57.3945,42.1275 57.3658,42.1264 57.3381,42.1235 57.299,42.1117 57.2729,42.1023 57.2445,42.0911 57.2084,42.0757 57.1851,42.0621 57.1669,42.0479 57.1322,42.0162 57.1116,41.9853 57.0892,41.9431 57.0635,41.9139 57.0433,41.8959 57.0185,41.8805 56.9887,41.8713 56.9505,41.8631 56.926,41.8567 56.9042,41.8416 56.8911,41.8128 56.899,41.6351 56.9626,41.4249 56.9788,41.3959 57.0108,41.3602 57.0374,41.3441 57.0555,41.2994 56.9786,41.2213 56.9598,41.2128 56.8778,41.2236 56.8441,41.2305 56.807,41.242 56.7577,41.2519 56.7203,41.2524 56.6701,41.246 56.6194,41.2405 56.589,41.2414 56.5665,41.2428 56.4651,41.2497 56.4563,41.2519 56.4459,41.2503 56.2827,41.26 56.1378,41.2689 55.9381,41.2789 55.9241,41.2819 55.9233,41.3073 55.9223,41.5294 55.922,41.8487 55.9218,42.0852 55.9228,42.1689 55.9222,42.433 55.9213,42.7118 55.921,42.9631 55.9216,43.0328 55.9212,43.2981 55.9204,43.5773 55.9198,43.8293 55.9209,43.899 55.9202,44.459 55.9191,44.6835 55.9204,44.951 56.1789,45.0123 56.3089,45.0427 56.5697,45.1025 56.635,45.1172 56.6709,45.1216 56.6783,45.1272 56.7002,45.1323 56.984,45.1963 57.3121,45.2691 57.5093,45.3122 57.6987,45.3529 57.927,45.402 58.1916,45.4576 58.4833,45.518 58.4886,45.5188 59.5692,44.9491 61.0638,44.1612 61.0805,44.1484 61.2262,44.0297 61.5285,43.7805 61.7286,43.6137 61.8705,43.4942 61.9387,43.4355 61.9584,43.4392 62.2956,43.4836 62.4009,43.497 62.5277,43.5131 62.7393,43.5398 63.1235,43.5872 63.3343,43.5702 63.4489,43.5607 63.6782,43.541 63.9081,43.5214 63.9322,43.5199 64.3681,43.4989 64.4954,43.551 64.7529,43.6541 64.841,43.6883 64.9362,43.6033 65.1253,43.4316 65.1773,43.3833 65.3877,43.2906 65.4277,43.2722 65.5467,43.1047 65.6567,42.9407 65.7307,42.8289 66.0321,42.9482 66.0187,42.7521 66.0095,42.6234 66.0042,42.5562 65.9792,42.376 65.9452,42.3756 65.943,42.2887 65.9417,42.2161 65.9381,41.9987 65.9382,41.9557 66.4344,41.9555 66.4473,41.8495 66.454,41.7892 66.4661,41.6918 66.4708,41.6698 66.5445,41.4137 66.6284,41.1285 66.668,41.1185 66.686,41.1155 66.7841,41.1038 66.9801,41.097 67.0669,41.0988 67.2581,41.1029 67.3468,41.1079 67.3972,41.1127 67.4433,41.1212 67.5471,41.1359 67.6622,41.1458 67.8423,41.1368 67.8963,41.0841 68.0139,41.0186 68.0469,41.0056 68.0609,40.99 68.0513,40.9367 68.0229,40.8615 68.0101,40.8335 67.9881,40.8113 67.9609,40.7947 67.9549,40.7644 68.1197,40.658 68.1402,40.6456 68.1636,40.6349 68.1722,40.6319 68.2172,40.6106 68.3616,40.5519 68.386,40.5489 68.5142,40.5541 68.5471,40.5685 68.5581,40.6258 68.5348,40.6724 68.4953,40.693 68.474,40.8155 68.4998,40.8741 68.5225,40.8908 68.5546,40.9006 68.5705,40.9059 68.6276,40.9315 68.6446,40.9551 68.6563,40.9932 68.6749,41.0241 68.6916,41.0393 68.781,41.0724 68.9369,41.1532 68.9699,41.1759 68.9784,41.2254 68.9759,41.3108 68.9646,41.3301 69.1314,41.4129 69.1598,41.424 69.2586,41.4376 69.3944,41.5288 69.5415,41.6232 69.6627,41.652 69.6902,41.6561 69.7495,41.6598 69.832,41.6648 69.9613,41.7331 70.0435,41.7813 70.0599,41.7972 70.0858,41.829 70.1473,41.9078 70.2407,41.9953 70.266,42.0106 70.2906,42.0218 70.3649,42.0491 70.3876,42.0531 70.4082,42.0435 70.4339,42.0199 70.441,41.993 70.5309,41.977 70.5479,42.0013 70.5569,42.0264 70.568,42.0493 70.6528,42.1513 70.6948,42.1565 70.7431,42.1475 70.7864,42.1575 70.8098,42.1701 70.8645,42.2068 70.8645,42.2068 107,11.0,Russia 146.6776,44.3466 146.6602,44.3493 146.639,44.3616 146.6267,44.3848 146.6335,44.4144 146.7349,44.5038 146.8006,44.5213 146.8964,44.5717 146.9382,44.6108 146.9538,44.637 146.9487,44.6701 146.9059,44.7431 147.0207,44.7852 147.1041,44.8254 147.1871,44.8694 147.2777,44.9298 147.2989,44.9929 147.3972,45.0078 147.4552,45.0286 147.4712,45.0547 147.4851,45.073 147.5012,45.091 147.5458,45.1315 147.5766,45.146 147.6335,45.1573 147.6619,45.1611 147.6854,45.1758 147.6665,45.2384 147.6506,45.2997 147.6669,45.3292 147.6972,45.3525 147.7395,45.3701 147.7924,45.2804 147.7949,45.2573 147.7942,45.2233 147.8359,45.2012 147.8673,45.197 148.1094,45.2172 148.1388,45.233 148.1627,45.2534 148.1832,45.2779 148.2526,45.3405 148.3323,45.3963 148.3506,45.4074 148.5021,45.471 148.5599,45.4697 148.5867,45.4634 148.6434,45.4259 148.6367,45.3138 148.6271,45.2923 148.5673,45.2623 148.5062,45.2566 148.4658,45.2626 148.4117,45.2689 148.3793,45.2665 148.3548,45.2582 148.3141,45.2358 148.2853,45.2188 148.264,45.2048 148.2301,45.1948 148.1637,45.1837 148.1299,45.1787 148.0778,45.1695 148.0583,45.162 148.0284,45.1474 148.0083,45.1376 147.834,45.0407 147.7921,45.0101 147.7785,44.9934 147.7569,44.9606 147.7364,44.9498 147.709,44.9387 147.6656,44.9219 147.6416,44.9145 147.5506,44.8879 147.5252,44.8966 147.5011,44.92 147.4602,44.9234 147.4276,44.919 147.4056,44.91 147.3836,44.8862 147.3852,44.8661 147.4118,44.8498 147.3347,44.7557 147.3153,44.7409 147.296,44.7322 147.2678,44.7244 147.1387,44.6496 147.0803,44.61 147.0453,44.5548 147.0343,44.5294 147.019,44.5115 146.9981,44.497 146.9695,44.4867 146.9373,44.4826 146.9004,44.4786 146.8778,44.4783 146.8345,44.4674 146.8152,44.4571 146.7967,44.4391 146.7831,44.4206 146.7741,44.3986 146.7634,44.3763 146.7483,44.3612 146.7148,44.3503 146.6776,44.3466 146.6776,44.3466 372,9.0,Japan 145.0102,43.5556 145.0309,43.4829 145.0776,43.3755 145.1012,43.3195 145.0792,43.2912 145.0589,43.2893 145.0539,43.2687 145.1095,43.2263 145.1554,43.2148 145.1798,43.2093 145.2118,43.2039 145.2701,43.2022 145.2947,43.22 145.4484,43.329 145.5683,43.3341 145.6093,43.3163 145.5351,43.2773 145.4782,43.2564 145.4493,43.2563 145.4208,43.2559 145.3693,43.2083 145.3552,43.1686 145.3185,43.1216 145.2891,43.1203 145.2562,43.1275 145.2241,43.1268 145.1686,43.1233 145.0873,43.1146 144.9351,43.077 144.9178,43.0503 144.9255,43.0316 144.9055,42.9971 144.8022,42.9358 144.7772,42.9282 144.704,42.9243 144.6733,42.9305 144.6408,42.959 144.6349,42.9862 144.6049,42.9955 144.581,42.987 144.5615,42.9705 144.5338,42.9318 144.5393,42.9124 144.4608,42.8889 144.2856,42.8808 144.2628,42.8824 144.2038,42.8983 144.1749,42.9108 144.1601,42.9407 144.1318,42.9498 144.0915,42.9446 143.979,42.919 143.9414,42.9097 143.8153,42.8699 143.7896,42.8582 143.6931,42.8007 143.6529,42.7651 143.6004,42.7184 143.582,42.7008 143.4507,42.6148 143.423,42.5943 143.392,42.5669 143.3636,42.5398 143.3412,42.5166 143.2653,42.4312 143.2365,42.3947 143.1878,42.3305 143.1754,42.3137 143.1463,42.2653 143.1337,42.2401 143.1274,42.1724 143.1406,42.1174 143.119,41.9955 143.0455,41.8775 143.005,41.8968 142.974,41.9227 142.9469,41.9526 142.9167,41.9792 142.753,42.0557 142.7256,42.0651 142.6699,42.0762 142.63,42.0846 142.5961,42.0942 142.5093,42.1245 142.4602,42.1431 142.2882,42.2102 142.1168,42.293 142.0896,42.3082 142.0571,42.3323 141.9069,42.4064 141.8597,42.4187 141.8199,42.4348 141.7668,42.4707 141.7315,42.5008 141.6441,42.5427 141.62,42.5509 141.5942,42.5582 141.5524,42.5646 141.4993,42.567 141.4624,42.5681 141.427,42.5664 141.3616,42.5551 141.3365,42.549 141.2406,42.5213 141.2062,42.5064 140.9593,42.3745 140.916,42.3506 140.8952,42.337 140.8608,42.3109 140.8295,42.2794 140.7951,42.2492 140.7499,42.2586 140.7345,42.2733 140.7091,42.3411 140.7044,42.3702 140.6848,42.3969 140.5574,42.5029 140.5207,42.5215 140.4922,42.5274 140.3257,42.5311 140.3046,42.5295 140.2762,42.5227 140.2326,42.493 140.2093,42.4724 140.191,42.4551 140.1607,42.4225 140.1431,42.398 140.1046,42.3318 140.0905,42.2972 140.0867,42.2689 140.0861,42.2225 140.1049,42.1934 140.1347,42.1793 140.1642,42.173 140.1881,42.165 140.2332,42.1425 140.2806,42.1073 140.2958,42.0911 140.3437,42.0603 140.3871,42.056 140.4939,42.0738 140.518,42.0788 140.5486,42.0678 140.5773,42.0476 140.5987,42.023 140.6158,42.002 140.6563,41.9621 140.7739,41.8622 140.7968,41.8486 140.8193,41.8401 140.8437,41.8355 140.8736,41.8336 140.8986,41.8285 140.9439,41.8031 140.9997,41.748 140.8475,41.6708 140.8172,41.6603 140.7865,41.6583 140.527,41.7625 140.5058,41.7741 140.4723,41.777 140.4371,41.7581 140.4231,41.7259 140.406,41.686 140.3303,41.6498 140.2623,41.6348 140.2413,41.6 140.239,41.5586 140.245,41.5175 140.25,41.4955 140.2215,41.4677 140.0914,41.4396 140.0772,41.4332 140.0559,41.4154 140.027,41.3721 140.0064,41.3505 139.8813,41.3713 139.8594,41.3826 139.8396,41.4024 139.7922,41.5015 139.7866,41.5412 139.8162,41.6279 139.8299,41.6517 139.88,41.7105 139.9341,41.77 139.9524,41.8674 139.944,41.9363 139.8616,42.0375 139.8455,42.0507 139.8226,42.0617 139.7949,42.0709 139.7464,42.0811 139.7232,42.0948 139.5929,42.1953 139.5764,42.2645 139.5947,42.3021 139.6117,42.3209 139.6316,42.3502 139.6479,42.3972 139.6511,42.4197 139.6545,42.4479 139.6537,42.4718 139.6461,42.4995 139.6372,42.5289 139.6423,42.566 139.6696,42.6051 139.7016,42.6243 139.7269,42.6303 139.7703,42.6306 139.7935,42.6291 139.8411,42.6315 139.9448,42.7022 140.0255,42.7503 140.1135,42.761 140.128,42.7796 140.1796,42.8407 140.2105,42.8686 140.2656,42.9088 140.3195,42.9396 140.3344,42.959 140.2834,43.0353 140.2265,43.1018 140.1942,43.1177 140.1692,43.1281 140.1516,43.1408 140.1274,43.1871 140.161,43.2676 140.2879,43.3167 140.3157,43.3058 140.4532,43.2299 140.5816,43.1552 140.6035,43.1384 140.8232,43.1251 140.9623,43.0896 141.0119,43.0936 141.0464,43.1106 141.0834,43.1326 141.1517,43.1837 141.1705,43.2003 141.1929,43.2236 141.2143,43.2479 141.2316,43.2816 141.242,43.3334 141.2354,43.3657 141.1856,43.5175 141.1413,43.662 141.1842,43.734 141.2246,43.7591 141.2645,43.7719 141.2901,43.7722 141.311,43.78 141.3688,43.8064 141.3999,43.8284 141.4238,43.8528 141.4481,43.8927 141.4512,43.9043 141.4676,43.951 141.4725,43.9792 141.4703,44.0156 141.4617,44.1672 141.4545,44.2131 141.4605,44.2529 141.48,44.2722 141.5275,44.3386 141.5524,44.3821 141.5898,44.5291 141.597,44.566 141.5989,44.5906 141.5966,44.6324 141.5954,44.6581 141.5913,44.6836 141.5717,44.7796 141.5631,44.8103 141.5227,44.8973 141.5097,44.9199 141.4925,44.9461 141.4783,44.963 141.4138,45.0589 141.4024,45.0763 141.3892,45.1038 141.3771,45.138 141.3755,45.1584 141.3836,45.1876 141.4953,45.3485 141.6151,45.365 141.6342,45.3717 141.671,45.3956 141.7722,45.4347 141.7909,45.4142 141.8495,45.3532 141.8751,45.3292 141.8932,45.3193 141.9534,45.2954 141.9798,45.2799 142.0464,45.2188 142.1031,45.1624 142.1206,45.1465 142.143,45.1272 142.1849,45.0919 142.214,45.0694 142.2537,45.0389 142.29,45.0131 142.3171,44.9926 142.3347,44.9692 142.3903,44.8862 142.412,44.8533 142.4274,44.8367 142.5404,44.7266 142.5616,44.7065 142.5789,44.6907 142.6121,44.6613 142.7798,44.5347 142.8279,44.5018 142.9215,44.4401 142.9393,44.4289 143.1694,44.2893 143.1843,44.2752 143.2034,44.2653 143.2634,44.2365 143.2941,44.2245 143.4582,44.169 143.4909,44.1579 143.4827,44.133 143.5258,44.066 143.5752,44.0441 143.6989,44.0528 143.7902,44.0801 143.832,44.0835 143.9701,44.0588 144.1291,43.9245 144.1511,43.9101 144.1663,43.9042 144.2096,43.8923 144.2984,43.8812 144.3384,43.8768 144.416,43.8679 144.4549,43.8641 144.4986,43.8613 144.521,43.8606 144.5428,43.8607 144.5897,43.8679 144.6811,43.9246 144.7068,43.9433 144.7308,43.9745 144.7762,44.0215 144.8171,44.0519 144.8802,44.0898 144.912,44.1043 144.9865,44.1473 145.015,44.181 145.0401,44.2106 145.1161,44.283 145.1354,44.294 145.1744,44.2176 145.1559,44.1792 145.1295,44.1353 145.0438,44.0008 145.0203,43.9843 145.0012,43.9731 144.9823,43.955 144.9649,43.9341 144.9291,43.8818 144.9072,43.846 144.8681,43.7278 144.869,43.7047 144.9027,43.6507 144.9152,43.6331 144.937,43.6049 144.9614,43.5836 144.9994,43.5578 145.0102,43.5556 145.0102,43.5556 13,9.0,Japan 140.7974,45.3972 140.8547,45.3951 140.8705,45.3818 140.8769,45.3627 140.8624,45.2597 140.8578,45.2448 140.844,45.2181 140.833,45.215 140.7944,45.3282 140.7706,45.408 140.7843,45.4118 140.7974,45.3972 140.7974,45.3972 23,9.0,Japan 140.9786,45.1908 140.9999,45.199 141.0138,45.1981 141.0743,45.1688 141.0848,45.1615 141.111,45.1376 141.123,45.1257 141.13,45.1173 141.1362,45.1061 141.1329,45.0948 141.1134,45.0728 141.0855,45.0514 141.062,45.0469 141.0433,45.0458 141.021,45.0511 140.9685,45.0767 140.9527,45.0877 140.9404,45.0995 140.9318,45.1128 140.9361,45.1595 140.9629,45.1815 140.9786,45.1908 140.9786,45.1908 20,2.0,Croatia 14.7129,44.8892 14.7009,44.8893 14.678,44.897 14.6202,44.9167 14.4633,44.9845 14.4436,44.9968 14.4165,45.0188 14.4089,45.0351 14.519,45.1881 14.5342,45.1963 14.5692,45.187 14.6373,45.0715 14.6836,45.017 14.7719,44.9582 14.786,44.9456 14.7939,44.9295 14.7842,44.9187 14.7377,44.8909 14.7129,44.8892 14.7129,44.8892 52,2.0,Croatia 14.4677,44.5553 14.431,44.576 14.3713,44.6388 14.3755,44.6265 14.374,44.6088 14.3753,44.576 14.387,44.5535 14.3962,44.5416 14.4062,44.5312 14.4564,44.4854 14.4697,44.4763 14.4839,44.4721 14.4956,44.4623 14.5132,44.4407 14.5059,44.4255 14.4966,44.4231 14.4908,44.424 14.3475,44.5398 14.3278,44.6049 14.3182,44.6561 14.3657,44.6473 14.3112,44.799 14.3214,44.8654 14.3419,44.8565 14.377,44.8606 14.3723,44.9052 14.3337,44.9938 14.3213,45.0056 14.2974,45.0148 14.288,45.0219 14.2554,45.0522 14.2551,45.0707 14.2889,45.1189 14.2977,45.1242 14.3332,45.1155 14.3437,45.1092 14.3463,45.0952 14.3379,45.0847 14.334,45.0678 14.339,45.0498 14.3569,45.0014 14.3897,44.9536 14.3988,44.942 14.4062,44.9339 14.4391,44.7769 14.4504,44.69 14.4861,44.6202 14.5098,44.5832 14.4966,44.5635 14.4732,44.5558 14.4677,44.5553 14.4677,44.5553 35,7.0,Kazakhstan 50.0649,44.7604 50.0522,44.7616 50.0339,44.7666 49.9938,44.785 49.9171,44.8862 49.9113,44.8951 49.9097,44.9097 49.9651,44.9973 49.9728,45.0058 49.9821,45.0129 49.9941,45.0181 50.0388,45.0262 50.0501,45.0139 50.0422,45.0028 50.0189,44.997 50.0042,44.9948 49.988,44.9863 49.979,44.9784 49.9672,44.9568 49.9461,44.9157 49.9472,44.9045 49.9583,44.8771 49.9892,44.8243 50.0059,44.8085 50.0337,44.7929 50.0503,44.7863 50.0643,44.7866 50.0806,44.7951 50.0943,44.8026 50.1082,44.805 50.1183,44.8011 50.1107,44.7899 50.0866,44.766 50.0649,44.7604 50.0649,44.7604 17,-4.0,Canada -66.6708,44.7502 -66.6638,44.7419 -66.6411,44.6784 -66.643,44.6665 -66.6467,44.657 -66.6693,44.6233 -66.7814,44.5689 -66.7921,44.5641 -66.8094,44.5686 -66.7907,44.6329 -66.7648,44.6925 -66.7418,44.7224 -66.7068,44.7498 -66.6892,44.7579 -66.6759,44.7565 -66.6708,44.7502 -66.6708,44.7502 32,2.0,Croatia 14.7248,44.644 14.8533,44.5574 14.8884,44.5573 14.9077,44.548 14.9395,44.5285 15.0218,44.4726 15.0523,44.4298 15.0376,44.4315 14.9901,44.4637 14.9553,44.4688 14.987,44.4397 15.0213,44.414 15.0158,44.4316 15.029,44.4256 15.0643,44.4084 15.0958,44.3892 15.2195,44.3001 15.2289,44.2854 15.1981,44.2555 15.1504,44.2456 15.1191,44.2538 15.1077,44.2597 15.0888,44.2736 15.0793,44.2846 15.0029,44.3721 14.9918,44.3914 14.8971,44.4544 14.724,44.6248 14.7162,44.6371 14.7146,44.647 14.7248,44.644 14.7248,44.644 79,11.0,Russia 145.9562,44.4562 145.9667,44.4582 145.9785,44.4565 145.9935,44.4508 146.0281,44.4264 146.0382,44.4188 146.0556,44.4032 146.0684,44.3959 146.0986,44.3838 146.1236,44.3754 146.1401,44.3718 146.155,44.3704 146.2638,44.3719 146.2838,44.3754 146.3154,44.3841 146.3331,44.3923 146.3629,44.3879 146.3451,44.3486 146.3325,44.3282 146.3035,44.3077 146.1252,44.2417 145.9999,44.2197 145.9727,44.2164 145.9531,44.2131 145.9338,44.2078 145.9158,44.2013 145.8984,44.1933 145.8876,44.1861 145.7363,44.078 145.7269,44.0692 145.6273,43.9671 145.6135,43.9529 145.6043,43.9429 145.5941,43.9288 145.5847,43.8946 145.5732,43.877 145.5592,43.87 145.5056,43.8494 145.4885,43.8464 145.4691,43.8492 145.4542,43.85 145.3906,43.8068 145.3757,43.7821 145.3721,43.768 145.3712,43.7361 145.3711,43.7255 145.3726,43.6894 145.3566,43.6081 145.3432,43.6007 145.2346,43.6673 145.2233,43.6907 145.2057,43.7828 145.2822,43.847 145.3492,43.8764 145.4416,43.9324 145.4581,43.9423 145.5433,44.0039 145.5511,44.0158 145.5517,44.0262 145.5495,44.0438 145.5581,44.0643 145.5861,44.0985 145.6738,44.187 145.686,44.1983 145.7055,44.209 145.7201,44.2154 145.7354,44.2204 145.7476,44.2249 145.7593,44.2303 145.7696,44.2376 145.8039,44.2889 145.8465,44.3618 145.8736,44.4131 145.8796,44.422 145.8959,44.4382 145.9263,44.4577 145.9434,44.4596 145.9562,44.4562 145.9562,44.4562 20,-5.0,United States -68.1456,44.3886 -68.0969,44.3409 -68.0899,44.3324 -68.079,44.3146 -68.0731,44.299 -68.087,44.2824 -68.0972,44.275 -68.2278,44.1864 -68.2396,44.1882 -68.3104,44.2211 -68.3186,44.2319 -68.3314,44.2714 -68.3101,44.3192 -68.2694,44.3785 -68.2544,44.3901 -68.2028,44.399 -68.1636,44.4016 -68.1499,44.3961 -68.1456,44.3886 -68.1456,44.3886 14,-5.0,United States -68.5365,44.2267 -68.5297,44.2232 -68.5197,44.216 -68.5081,44.2012 -68.5087,44.1749 -68.5191,44.138 -68.5515,44.1197 -68.5683,44.1177 -68.6143,44.1277 -68.6248,44.1815 -68.5748,44.234 -68.5634,44.2338 -68.5365,44.2267 -68.5365,44.2267 318,3.0,Bulgaria 22.65,44.1746 22.6601,44.1656 22.8826,44.0612 22.9162,44.054 22.9655,44.0509 22.9809,44.0463 23.0108,44.0228 23.0054,44.0008 22.9602,43.9639 22.9275,43.9624 22.8813,43.9509 22.8505,43.935 22.8101,43.8471 22.8208,43.811 22.8373,43.7957 22.8624,43.7865 22.935,43.7674 23.0353,43.7527 23.1109,43.7603 23.13,43.7685 23.1664,43.782 23.1923,43.7889 23.2296,43.798 23.2512,43.8013 23.39,43.806 23.4142,43.8017 23.4786,43.7871 23.5008,43.7727 23.5374,43.7572 23.5741,43.748 23.597,43.7454 23.7412,43.7388 23.9541,43.6948 24.0345,43.671 24.0827,43.6504 24.1219,43.6407 24.1557,43.6354 24.1903,43.6402 24.2234,43.6452 24.2525,43.6479 24.2738,43.648 24.286,43.6471 24.3214,43.6473 24.3713,43.6704 24.4046,43.6871 24.4239,43.6954 24.4678,43.7119 24.4943,43.7117 24.5284,43.7098 24.5714,43.7021 24.6527,43.6688 24.6797,43.6651 24.7591,43.6635 24.8466,43.6629 24.9879,43.6608 25.1897,43.6381 25.2334,43.6257 25.2792,43.6027 25.309,43.584 25.3433,43.5738 25.3967,43.5785 25.4284,43.5898 25.4964,43.5943 25.5736,43.613 25.6457,43.6411 25.6996,43.6452 25.7306,43.6541 25.7511,43.6637 25.8487,43.7433 25.9067,43.7987 26.0489,43.9001 26.0751,43.9184 26.1,43.9331 26.2653,43.9812 26.35,43.9942 26.3764,43.9934 26.4014,43.9915 26.4418,43.9994 26.6338,44.022 26.7574,44.0452 26.8033,44.0657 26.8526,44.0821 26.8757,44.086 26.9987,44.0975 27.0734,44.0909 27.1281,44.0801 27.1556,44.0735 27.1925,44.071 27.2125,44.0749 27.2345,44.0822 27.2414,44.0538 27.2573,44.0346 27.3693,43.972 27.4374,43.9698 27.5864,43.9782 27.614,43.9918 27.6402,43.9799 27.6599,43.9437 27.6782,43.9196 27.703,43.9097 27.7745,43.9152 27.7945,43.9194 27.8215,43.9312 27.8832,43.9539 27.9134,43.9247 27.9214,43.8953 27.9589,43.8097 27.9996,43.7859 28.0939,43.7523 28.1427,43.7356 28.1962,43.7204 28.2184,43.715 28.3644,43.701 28.4455,43.6947 28.5434,43.6982 28.5368,43.6837 28.5303,43.6405 28.5379,43.5424 28.5608,43.5127 28.5652,43.4849 28.5527,43.4543 28.518,43.4041 28.502,43.3885 28.486,43.3769 28.4397,43.3444 28.4138,43.3363 28.392,43.3404 28.3688,43.3494 28.343,43.3636 28.2965,43.3724 28.2603,43.3726 28.1114,43.3553 28.0882,43.3459 28.0458,43.3081 28.0325,43.274 28.0144,43.2321 27.9771,43.1769 27.9062,43.1186 27.8487,42.9883 27.8479,42.9657 27.8577,42.8764 27.8652,42.8428 27.8632,42.807 27.8404,42.7926 27.8595,42.7359 27.8555,42.6548 27.7669,42.6598 27.7337,42.6654 27.6947,42.663 27.5941,42.5836 27.4725,42.504 27.4579,42.488 27.4116,42.4249 27.4271,42.4014 27.4772,42.3874 27.5157,42.401 27.5784,42.3995 27.6409,42.3706 27.662,42.3474 27.6657,42.3212 27.7173,42.2067 27.7423,42.1797 27.8187,42.1164 27.8608,42.0859 27.9004,42.0556 27.9302,42.0249 27.9621,41.9895 27.983,41.9466 27.9745,41.9347 27.9326,41.9367 27.865,41.9474 27.8285,41.9582 27.7941,41.9542 27.6677,41.9302 27.5953,41.9085 27.5575,41.8883 27.5315,41.8619 27.4035,41.9297 27.3738,41.9474 27.3557,41.9619 27.3354,41.9925 27.3257,42.0154 27.2714,42.0437 27.2488,42.0533 27.1954,42.0623 27.0328,42.0424 27.0001,42.0363 26.9252,41.9559 26.8961,41.9596 26.5849,41.9256 26.5304,41.8876 26.5387,41.8514 26.5291,41.824 26.5219,41.8046 26.4991,41.7808 26.4365,41.7768 26.4102,41.7778 26.3452,41.775 26.3077,41.7351 26.2966,41.6982 26.3149,41.672 26.3247,41.6639 26.2658,41.6609 26.235,41.6659 26.1966,41.6924 26.1364,41.7007 26.1026,41.6922 26.0419,41.6672 26.03,41.6445 26.0328,41.6132 26.0653,41.5811 26.0937,41.5835 26.1468,41.4933 26.1622,41.3928 26.104,41.3083 25.9477,41.2737 25.8701,41.2646 25.8484,41.2628 25.7788,41.2896 25.6177,41.2711 25.5262,41.273 25.4686,41.243 25.3057,41.2035 25.2478,41.1965 25.2069,41.2071 25.1564,41.255 25.1514,41.2589 25.1285,41.2711 25.027,41.3161 25.0023,41.3238 24.8673,41.3653 24.7846,41.357 24.7786,41.3315 24.7756,41.3057 24.734,41.3238 24.5755,41.3858 24.5323,41.4498 24.4327,41.505 24.273,41.5008 24.2249,41.5226 24.1819,41.5082 24.1668,41.497 24.1241,41.4943 24.0601,41.5013 24.0311,41.4751 24.0332,41.4387 23.9438,41.394 23.8538,41.4053 23.7636,41.3901 23.7059,41.3619 23.601,41.3313 23.5657,41.334 23.5126,41.3478 23.4084,41.3626 23.2553,41.3575 23.1979,41.3295 23.1966,41.3076 23.1762,41.2865 23.1535,41.277 23.0882,41.2744 23.0627,41.2741 22.944,41.2888 22.9042,41.2955 22.9243,41.3092 22.935,41.3276 22.9275,41.4296 22.9203,41.5516 22.9227,41.589 22.9552,41.619 22.9835,41.6483 22.9992,41.6779 22.9777,41.7191 22.9345,41.7286 22.9111,41.7605 22.8661,41.835 22.8456,41.8907 22.7916,41.9798 22.6547,42.0177 22.5781,42.056 22.4885,42.1023 22.3768,42.2317 22.3345,42.2762 22.3798,42.2876 22.4285,42.3154 22.4897,42.3528 22.506,42.3777 22.5274,42.4353 22.5156,42.4649 22.4914,42.483 22.4373,42.5188 22.416,42.5515 22.412,42.7721 22.4901,42.8284 22.5637,42.8459 22.5838,42.8463 22.6271,42.8343 22.7102,42.8436 22.9347,43.053 22.96,43.0888 22.973,43.144 22.9089,43.1618 22.874,43.1809 22.8154,43.2377 22.7977,43.2828 22.7326,43.3377 22.6899,43.3518 22.6378,43.3668 22.5968,43.3817 22.5105,43.4266 22.3791,43.6679 22.3361,43.7775 22.3872,43.9585 22.5136,44.0109 22.5834,44.0695 22.5878,44.1199 22.6202,44.1631 22.65,44.1746 22.65,44.1746 28,2.0,Croatia 15.1729,43.8215 15.1634,43.8241 15.1272,43.8402 15.1164,43.8469 15.0871,43.8704 15.0787,43.8779 15.0509,43.9079 15.0363,43.9241 15.0262,43.9392 15.015,43.9539 15.0078,43.9623 14.9686,44.0056 14.9537,44.0179 14.8962,44.0591 14.8613,44.0802 14.8506,44.0928 14.8394,44.1068 14.8337,44.1227 14.9718,44.0337 15.0157,43.9772 15.0293,43.964 15.0629,43.9358 15.122,43.9021 15.1984,43.8599 15.2039,43.85 15.1959,43.841 15.1729,43.8215 15.1729,43.8215 16,11.0,Russia 146.67,43.811 146.6999,43.7906 146.6569,43.7471 146.5928,43.7104 146.5754,43.7024 146.4781,43.6584 146.4622,43.6545 146.4466,43.6563 146.3928,43.6848 146.3954,43.7464 146.4029,43.7556 146.58,43.8123 146.6415,43.825 146.6618,43.8183 146.67,43.811 146.67,43.811 691,2.0,Spain 1.4439,42.5538 1.4327,42.5285 1.4194,42.4977 1.4223,42.4455 1.4497,42.3983 1.5102,42.3886 1.5354,42.3886 1.6556,42.4217 1.7165,42.4552 1.7212,42.4616 1.7775,42.4403 1.849,42.4219 1.9039,42.3989 1.9564,42.3631 1.97,42.3316 1.9936,42.3148 2.0179,42.3049 2.0596,42.309 2.091,42.3164 2.1203,42.348 2.1417,42.3714 2.2701,42.3879 2.329,42.37 2.4377,42.3306 2.4737,42.3002 2.5306,42.285 2.667,42.3016 2.6534,42.3341 2.6746,42.3538 2.7209,42.3714 2.9461,42.4326 3.044,42.4182 3.0797,42.3868 3.1018,42.3814 3.1603,42.3864 3.1732,42.389 3.1648,42.3781 3.1548,42.333 3.1642,42.3119 3.1959,42.2972 3.2216,42.3018 3.2685,42.2942 3.3133,42.2729 3.2789,42.2151 3.26,42.1943 3.2094,42.1859 3.1813,42.2043 3.1504,42.2124 3.1137,42.1776 3.1073,42.1511 3.1129,42.097 3.1425,42.069 3.1748,42.0584 3.2066,42.0189 3.2162,41.8996 3.1973,41.8454 3.1711,41.8204 3.1192,41.8015 3.0078,41.7261 2.9334,41.6721 2.7137,41.5807 2.6732,41.566 2.6023,41.5438 2.5544,41.5305 2.5345,41.5235 2.2642,41.4133 2.2442,41.3956 2.162,41.2961 2.1484,41.2652 2.1144,41.2428 2.0756,41.2288 2.0513,41.2221 2.0023,41.2168 1.8876,41.2047 1.7592,41.1723 1.6993,41.1593 1.6736,41.1554 1.6493,41.1529 1.6144,41.1494 1.5299,41.1384 1.4964,41.1322 1.3208,41.0831 1.2035,41.055 1.0382,41.0163 0.9919,41.002 0.9631,40.9866 0.9386,40.9658 0.9234,40.9449 0.8982,40.9342 0.7027,40.751 0.7295,40.7254 0.847,40.6835 0.8691,40.6865 0.8955,40.6799 0.8841,40.6568 0.8568,40.6343 0.6889,40.526 0.6633,40.517 0.6356,40.5162 0.6206,40.5387 0.7084,40.5503 0.7338,40.5944 0.6957,40.5919 0.6096,40.5793 0.5884,40.5669 0.5412,40.5234 0.5186,40.4884 0.5185,40.483 0.4579,40.4018 0.356,40.2553 0.2803,40.1914 0.213,40.1384 0.0476,39.9889 0.0328,39.9628 -0.0369,39.8484 -0.0843,39.8067 -0.1111,39.7789 -0.1786,39.6916 -0.3171,39.4706 -0.3253,39.4506 -0.3369,39.3938 -0.2407,39.1001 -0.1947,39.0097 -0.1821,38.9852 -0.1431,38.9346 -0.0917,38.8859 -0.0647,38.8613 -0.0407,38.8458 0.0090,38.8187 0.0485,38.8163 0.077,38.814 0.1478,38.7848 0.1984,38.7601 0.215,38.7147 0.2071,38.6886 0.1639,38.6542 0.1439,38.6413 0.0419,38.5947 -0.0119,38.5821 -0.0524,38.5502 -0.1447,38.4937 -0.294,38.441 -0.3193,38.4286 -0.3786,38.3932 -0.5106,38.282 -0.5991,38.1423 -0.6556,38.0044 -0.7494,37.8471 -0.7588,37.8172 -0.7599,37.8035 -0.8001,37.7592 -0.8408,37.7067 -0.857,37.6731 -0.808,37.6189 -0.7857,37.6054 -0.7206,37.5971 -0.7015,37.5824 -0.7225,37.5602 -0.743,37.5519 -0.9171,37.5096 -0.9512,37.5139 -0.9766,37.5326 -1.0467,37.5369 -1.2369,37.5331 -1.3255,37.5158 -1.3489,37.5073 -1.4462,37.4489 -1.4652,37.4302 -1.4824,37.3967 -1.5071,37.3799 -1.5656,37.3578 -1.6311,37.3349 -1.6411,37.3309 -1.6818,37.304 -1.7919,37.1856 -1.8107,37.1486 -1.8211,37.1094 -1.8241,37.0833 -1.8442,37.0404 -1.8995,36.9307 -1.9293,36.898 -1.9898,36.8487 -2.0559,36.7668 -2.0587,36.7386 -2.1199,36.6922 -2.189,36.6792 -2.2142,36.7044 -2.2279,36.7234 -2.2882,36.7842 -2.3439,36.7994 -2.4785,36.7886 -2.5544,36.772 -2.5806,36.7455 -2.5949,36.7173 -2.6076,36.6886 -2.6413,36.6568 -2.6889,36.6441 -2.7189,36.6405 -2.7649,36.6374 -2.8695,36.6653 -2.8881,36.6879 -2.9193,36.7063 -3.1207,36.7092 -3.2263,36.7069 -3.2547,36.7057 -3.3323,36.6959 -3.3553,36.6784 -3.4208,36.6525 -3.4553,36.6509 -3.4785,36.6546 -3.5247,36.6746 -3.5967,36.7053 -3.6349,36.6994 -3.6673,36.6909 -3.6895,36.6874 -3.7205,36.6876 -3.7805,36.7015 -3.811,36.7089 -3.8437,36.7115 -4.0194,36.7004 -4.1647,36.6788 -4.2341,36.6723 -4.3188,36.6695 -4.354,36.6763 -4.3937,36.6802 -4.4295,36.656 -4.4558,36.6148 -4.4839,36.5743 -4.6333,36.4675 -4.7051,36.4475 -4.7513,36.4447 -4.7814,36.4479 -4.8163,36.4568 -4.8459,36.4599 -4.8716,36.4601 -4.9074,36.4582 -4.9335,36.4508 -5.0732,36.4057 -5.1657,36.371 -5.2122,36.33 -5.3054,36.1905 -5.319,36.1568 -5.3261,36.1313 -5.3275,36.1222 -5.3485,36.1227 -5.381,36.1384 -5.4182,36.1331 -5.4374,36.0984 -5.4186,36.0351 -5.4417,36.0117 -5.6061,35.9657 -5.7946,36.037 -5.8087,36.0511 -5.8248,36.0718 -5.8396,36.0873 -5.8738,36.1218 -5.9071,36.1396 -6.0176,36.144 -6.0245,36.1406 -6.0361,36.1455 -6.15,36.2648 -6.2188,36.3641 -6.2539,36.4351 -6.229,36.423 -6.2093,36.4279 -6.1665,36.4737 -6.2262,36.5372 -6.2892,36.573 -6.3289,36.5795 -6.3565,36.5756 -6.3866,36.5887 -6.424,36.6511 -6.4348,36.6776 -6.4309,36.7005 -6.347,36.8197 -6.57,36.9779 -6.717,37.0505 -6.8954,37.124 -6.9507,37.1803 -6.9692,37.1708 -6.9627,37.136 -6.9876,37.1494 -7.044,37.1714 -7.0709,37.1757 -7.1178,37.1789 -7.1638,37.1756 -7.249,37.1664 -7.2749,37.1635 -7.3275,37.1459 -7.3467,37.134 -7.3815,37.1336 -7.3994,37.1598 -7.422,37.2113 -7.4248,37.3251 -7.4372,37.3766 -7.4513,37.4152 -7.4612,37.4394 -7.4746,37.457 -7.493,37.4806 -7.5026,37.4865 -7.5144,37.5104 -7.4368,37.657 -7.4132,37.7015 -7.3769,37.7272 -7.3101,37.7728 -7.2717,37.8231 -7.2429,37.8886 -7.242,37.917 -7.2437,37.9412 -7.2012,37.9542 -7.1141,37.9673 -6.9947,37.9883 -6.9424,38.0971 -6.932,38.1275 -6.9245,38.1661 -6.938,38.1744 -6.9838,38.1666 -7.0072,38.1512 -7.0782,38.1341 -7.0925,38.1465 -7.1203,38.1828 -7.1354,38.2032 -7.1601,38.2415 -7.1826,38.2774 -7.2677,38.3764 -7.2867,38.3885 -7.3073,38.4018 -7.2575,38.66 -7.2473,38.6799 -7.1974,38.7058 -7.1545,38.7384 -7.0744,38.7921 -7.0505,38.817 -6.9463,38.9793 -6.9517,39.013 -6.9731,39.0475 -7.0034,39.0678 -7.0437,39.076 -7.0932,39.061 -7.1153,39.0626 -7.1361,39.0701 -7.2328,39.1689 -7.3037,39.3004 -7.3128,39.3442 -7.3654,39.4494 -7.4924,39.5583 -7.5147,39.5923 -7.5221,39.6249 -7.4009,39.6041 -7.3227,39.601 -7.297,39.6123 -7.2537,39.6276 -7.1955,39.6228 -7.148,39.6157 -7.0433,39.6192 -7.0077,39.6305 -6.98,39.68 -6.8613,39.9711 -6.8731,39.9992 -6.9194,40.0565 -6.9373,40.0679 -6.9728,40.074 -6.999,40.0878 -7.0176,40.1425 -6.9987,40.1817 -6.937,40.2138 -6.9007,40.2111 -6.8686,40.2165 -6.8529,40.2261 -6.8215,40.272 -6.806,40.3422 -6.7868,40.479 -6.8099,40.6875 -6.7921,40.811 -6.8532,40.9067 -6.8818,40.9287 -6.9207,40.9694 -6.9149,40.9847 -6.8319,40.9838 -6.7959,40.9994 -6.7649,41.0246 -6.7448,41.0611 -6.7438,41.0904 -6.6792,41.164 -6.6345,41.1981 -6.6087,41.1999 -6.5799,41.1955 -6.549,41.1957 -6.501,41.2186 -6.429,41.2722 -6.349,41.3339 -6.2871,41.3896 -6.2036,41.4899 -6.1816,41.5326 -6.2474,41.5935 -6.2947,41.6164 -6.3382,41.6251 -6.4204,41.6328 -6.4517,41.6237 -6.4925,41.6126 -6.5362,41.6399 -6.5382,41.7181 -6.5188,41.7921 -6.5392,41.8748 -6.5928,41.902 -6.6876,41.8895 -6.8963,41.8975 -6.9307,41.9037 -6.9731,41.9267 -6.9989,41.9074 -7.0461,41.9039 -7.066,41.9117 -7.089,41.9363 -7.1212,41.9464 -7.1747,41.93 -7.1683,41.8844 -7.1769,41.8512 -7.1906,41.8363 -7.1972,41.8367 -7.258,41.8164 -7.3208,41.7977 -7.4083,41.7758 -7.5984,41.7885 -7.5872,41.8181 -7.6818,41.8568 -7.7485,41.8502 -7.847,41.8126 -7.8655,41.8055 -7.9157,41.8306 -8.0239,41.7802 -8.0437,41.7722 -8.0561,41.7683 -8.0763,41.7622 -8.1247,41.7621 -8.1525,41.77 -8.1503,41.7803 -8.154,41.8116 -8.1821,41.8261 -8.2067,41.8602 -8.1974,41.8815 -8.1536,41.927 -8.1233,41.9517 -8.0907,41.9636 -8.0734,41.9755 -8.0722,42.0131 -8.1861,42.1033 -8.2405,42.091 -8.2988,42.0563 -8.4342,42.0372 -8.4617,42.0373 -8.5061,42.0354 -8.6019,42.0089 -8.628,41.998 -8.729,41.9204 -8.7328,41.905 -8.7526,41.8875 -8.7715,41.8755 -8.8039,41.8728 -8.8357,41.8522 -8.8626,41.8321 -8.876,41.8865 -8.885,42.063 -8.7984,42.1392 -8.7542,42.1687 -8.7106,42.1926 -8.6321,42.2407 -8.5677,42.3013 -8.5877,42.3058 -8.6138,42.2973 -8.6412,42.2551 -8.6715,42.232 -8.7485,42.2114 -8.7817,42.2059 -8.8524,42.2019 -8.8404,42.2483 -8.8097,42.2807 -8.7811,42.29 -8.68,42.3528 -8.6599,42.3665 -8.6441,42.38 -8.684,42.3896 -8.7346,42.3648 -8.768,42.3491 -8.8284,42.3436 -8.8681,42.3738 -8.8936,42.4271 -8.8762,42.4503 -8.8481,42.4394 -8.856,42.4119 -8.8237,42.4141 -8.802,42.4438 -8.7974,42.4713 -8.8195,42.5011 -8.7994,42.5278 -8.7667,42.5479 -8.7347,42.5901 -8.7073,42.6271 -8.7081,42.6502 -8.8389,42.6128 -8.9084,42.5785 -8.9247,42.5522 -8.9827,42.4845 -9.0165,42.4761 -9.0485,42.5314 -9.0438,42.5618 -9.0218,42.6227 -9.0099,42.6513 -8.9936,42.6725 -8.9033,42.7408 -8.996,42.7282 -9.074,42.692 -9.093,42.7042 -9.1103,42.7207 -9.1196,42.7513 -9.1117,42.7918 -9.1309,42.8449 -9.1497,42.8773 -9.1753,42.9026 -9.2507,42.8651 -9.2804,42.8742 -9.2462,42.9987 -9.1952,43.1064 -9.1569,43.1371 -9.119,43.1474 -9.0764,43.1416 -9.0224,43.1551 -8.9312,43.186 -8.9647,43.2297 -8.9375,43.2445 -8.8637,43.2709 -8.8118,43.2782 -8.7705,43.2541 -8.7118,43.2422 -8.6892,43.2384 -8.677,43.2432 -8.6451,43.2544 -8.3936,43.3358 -8.3179,43.3548 -8.2539,43.5034 -7.9954,43.6543 -7.887,43.7147 -7.8471,43.7147 -7.8394,43.6652 -7.7915,43.6774 -7.7136,43.6982 -7.6748,43.6991 -7.5061,43.6848 -7.453,43.6768 -7.3531,43.6246 -7.3232,43.5892 -7.2855,43.5467 -7.2372,43.5128 -7.1943,43.5158 -7.0285,43.5009 -7.0347,43.4413 -7.0092,43.4905 -6.9893,43.5116 -6.9336,43.5287 -6.7569,43.5184 -6.5914,43.5092 -6.4722,43.5057 -6.3339,43.5077 -6.2868,43.5203 -6.0929,43.5124 -6.0672,43.5164 -5.9364,43.5448 -5.875,43.5741 -5.8456,43.5985 -5.7704,43.568 -5.7452,43.5412 -5.7251,43.527 -5.6694,43.4957 -5.6379,43.4959 -5.6021,43.5012 -5.5411,43.5029 -5.452,43.5048 -5.3903,43.5033 -5.2722,43.4804 -5.2517,43.4692 -5.2271,43.4462 -5.195,43.4291 -5.0491,43.421 -4.9727,43.4119 -4.8751,43.3996 -4.7468,43.3765 -4.7267,43.3699 -4.6403,43.3586 -4.5882,43.3539 -4.5079,43.3473 -4.4947,43.352 -4.4184,43.3526 -4.3837,43.3489 -4.3092,43.3417 -4.2671,43.3414 -4.2123,43.3478 -4.1161,43.3673 -4.0455,43.3934 -3.9392,43.4186 -3.8049,43.4434 -3.782,43.4403 -3.7609,43.4208 -3.5802,43.461 -3.5448,43.4577 -3.4463,43.4164 -3.3205,43.3691 -3.2199,43.3478 -3.1461,43.3046 -3.0177,43.3083 -2.9982,43.3343 -2.9304,43.3864 -2.8521,43.3836 -2.8036,43.3813 -2.7317,43.3771 -2.5614,43.3412 -2.507,43.3287 -2.4839,43.3097 -2.4549,43.2889 -2.3474,43.2562 -2.2922,43.2473 -2.1602,43.2422 -2.1188,43.2476 -1.9718,43.2836 -1.8362,43.3316 -1.7832,43.3412 -1.7782,43.3108 -1.7742,43.2934 -1.7278,43.2502 -1.6997,43.257 -1.6532,43.2606 -1.5015,43.2388 -1.4069,43.2241 -1.383,43.2036 -1.3816,43.1607 -1.4209,43.0746 -1.4645,43.0433 -1.4372,43.0007 -1.3958,42.9894 -1.3461,42.9877 -1.2984,43.023 -1.1988,42.9972 -1.071,42.9578 -0.9922,42.9277 -0.9386,42.9055 -0.8172,42.8975 -0.7874,42.9062 -0.7528,42.9158 -0.7223,42.8815 -0.7222,42.8706 -0.7296,42.8527 -0.7148,42.8361 -0.5547,42.7317 -0.391,42.7481 -0.3173,42.784 -0.3082,42.8 -0.3024,42.7935 -0.2621,42.769 -0.205,42.7458 -0.1795,42.736 -0.1517,42.7284 -0.1233,42.7092 -0.0578,42.6516 0.0027,42.6378 0.1118,42.6611 0.1441,42.6741 0.1807,42.6862 0.2687,42.6593 0.4321,42.6383 0.5049,42.6433 0.5594,42.6477 0.5949,42.6467 0.661,42.6438 0.6746,42.6401 0.6806,42.6525 0.6817,42.6731 0.661,42.7029 0.6513,42.7367 0.6668,42.7908 0.6918,42.8051 0.7153,42.8104 0.8225,42.7847 0.8957,42.7645 1.0869,42.7367 1.1253,42.7166 1.1423,42.6851 1.1724,42.6616 1.3234,42.6693 1.3575,42.667 1.3886,42.64 1.4152,42.6027 1.4439,42.5538 1.4439,42.5538 9,9.0,Japan 145.0522,43.5456 145.0921,43.5469 145.1333,43.5274 145.1545,43.5039 145.0848,43.4969 145.0934,43.5211 145.0729,43.5322 145.0522,43.5456 145.0522,43.5456 297,4.0,Georgia 39.9472,43.3301 39.9535,43.3628 39.9654,43.3952 40.0253,43.5018 40.0428,43.5132 40.0708,43.523 40.1141,43.5318 40.1553,43.5354 40.1972,43.5334 40.2385,43.5267 40.2684,43.5204 40.2966,43.51 40.4324,43.4686 40.4622,43.4626 40.4866,43.4594 40.5207,43.463 40.5515,43.4795 40.5864,43.4946 40.6238,43.497 40.6393,43.4938 40.6622,43.4703 40.687,43.4576 40.7542,43.4379 40.7775,43.4343 40.8072,43.4279 40.8332,43.4164 40.904,43.3746 40.9571,43.3415 40.9841,43.3272 41.0117,43.324 41.0698,43.3353 41.111,43.3381 41.1358,43.3355 41.1565,43.3297 41.3781,43.247 41.5072,43.1835 41.5397,43.1726 41.9729,43.1388 42.0525,43.1484 42.1107,43.1823 42.1306,43.1877 42.2119,43.1893 42.3052,43.1887 42.321,43.1901 42.3652,43.1898 42.4013,43.1813 42.4247,43.1705 42.4739,43.133 42.5603,43.0968 42.5867,43.0958 42.6107,43.1105 42.6357,43.1315 42.7102,43.137 42.7957,43.129 42.8894,43.0728 42.9509,43.0152 43.0793,42.9182 43.1241,42.896 43.1473,42.8857 43.3175,42.8522 43.3329,42.8515 43.3868,42.8409 43.4723,42.8199 43.5001,42.8125 43.5372,42.7981 43.5612,42.785 43.5805,42.7615 43.6104,42.7427 43.644,42.7325 43.6958,42.7275 43.7684,42.701 43.7731,42.6809 43.7453,42.6539 43.7021,42.6249 43.6792,42.6014 43.7165,42.556 43.8511,42.5353 44.1339,42.5791 44.162,42.5904 44.1798,42.6079 44.3078,42.6599 44.4379,42.7027 44.4654,42.7082 44.4963,42.7115 44.532,42.7101 44.5677,42.7041 44.5764,42.7007 44.5869,42.7005 44.6163,42.6934 44.6435,42.6789 44.6888,42.6447 44.7037,42.6224 44.7464,42.617 44.7975,42.6986 44.8317,42.7134 44.8688,42.713 44.8926,42.7021 44.9119,42.6887 44.9476,42.6664 44.9834,42.6477 45.0038,42.6452 45.0291,42.6493 45.0577,42.6586 45.0805,42.6605 45.1025,42.6551 45.1494,42.628 45.1793,42.6027 45.2566,42.5301 45.2707,42.5108 45.2793,42.4927 45.305,42.4792 45.3693,42.4895 45.4251,42.4998 45.4638,42.5029 45.4898,42.5022 45.5129,42.4981 45.6374,42.4682 45.6644,42.4568 45.6877,42.4396 45.697,42.4301 45.6944,42.4174 45.6442,42.3083 45.6265,42.2713 45.5878,42.2042 45.575,42.1727 45.5919,42.1524 45.9234,41.9811 45.9906,41.9775 46.1754,41.9534 46.3363,41.8908 46.3617,41.8754 46.3824,41.8572 46.3878,41.8498 46.3717,41.8146 46.3506,41.7845 46.2869,41.7264 46.2609,41.7093 46.227,41.7105 46.1925,41.7174 46.1667,41.7153 46.1461,41.6997 46.1344,41.6781 46.1308,41.6511 46.1324,41.6304 46.1527,41.5782 46.1696,41.5518 46.2684,41.4366 46.4386,41.3494 46.4892,41.3404 46.5292,41.3329 46.5572,41.3184 46.6257,41.2709 46.6469,41.212 46.6331,41.1652 46.6026,41.1043 46.5585,41.0542 46.4511,41.002 46.429,41.0054 46.3146,41.058 46.2961,41.0707 46.2771,41.0837 46.2305,41.1165 46.2104,41.132 46.1765,41.1581 46.0723,41.156 46.0284,41.1326 45.9992,41.1257 45.9765,41.124 45.934,41.1273 45.9029,41.1326 45.8594,41.1428 45.8326,41.1512 45.8066,41.1595 45.7881,41.1662 45.7418,41.1841 45.6851,41.2137 45.6486,41.2407 45.6502,41.2653 45.654,41.302 45.5486,41.3353 45.2793,41.4141 45.2444,41.4143 45.2233,41.4106 45.1986,41.4026 45.1242,41.3582 45.0795,41.3302 44.9895,41.2699 44.9613,41.2506 44.9168,41.2236 44.8082,41.1704 44.7874,41.1667 44.7633,41.1662 44.6671,41.1657 44.5051,41.139 44.4231,41.1412 44.3691,41.1458 44.2799,41.1661 44.1882,41.1772 44.1123,41.1506 44.0841,41.1385 44.0622,41.1357 43.9325,41.1179 43.8322,41.1189 43.7964,41.1139 43.7734,41.0992 43.7315,41.0722 43.6962,41.0665 43.6746,41.0672 43.5776,41.0767 43.5399,41.0832 43.5104,41.0892 43.4867,41.0887 43.4011,41.0667 43.4147,41.0916 43.3957,41.1216 43.3703,41.1372 43.3189,41.1552 43.2902,41.1557 43.1745,41.1439 43.0671,41.2735 42.9808,41.3276 42.9571,41.3468 42.8338,41.46 42.7723,41.5356 42.6225,41.5478 42.5929,41.5458 42.5457,41.538 42.5325,41.5317 42.4996,41.4552 42.425,41.3918 42.4138,41.3867 42.397,41.388 42.3087,41.4134 42.2536,41.4301 42.2222,41.4429 42.1167,41.4608 42.0399,41.4606 41.9219,41.4712 41.9007,41.4699 41.8526,41.4416 41.8254,41.4114 41.7725,41.3836 41.7022,41.4219 41.6673,41.4456 41.5121,41.4714 41.4744,41.4772 41.559,41.5876 41.5892,41.5974 41.6267,41.6248 41.6713,41.6762 41.7164,41.7684 41.7186,41.7949 41.7173,41.8382 41.7033,41.9141 41.6017,42.0784 41.5956,42.1002 41.5986,42.1281 41.5893,42.1727 41.5754,42.2243 41.5356,42.3066 41.49,42.3579 41.479,42.4049 41.4713,42.4387 41.4682,42.473 41.4677,42.5021 41.4429,42.577 41.4271,42.6204 41.4124,42.6461 41.3985,42.6661 41.3835,42.6816 41.3623,42.6933 41.3142,42.7096 41.1584,42.7511 41.1337,42.7478 41.1019,42.7416 41.0413,42.7983 41.0281,42.8421 41.0183,42.8745 40.9692,42.9296 40.9457,42.939 40.905,42.9263 40.8797,42.925 40.8522,42.9534 40.8204,42.9959 40.8031,43.0106 40.7802,43.0213 40.7453,43.0301 40.6702,43.0407 40.6049,43.0431 40.3045,43.1144 40.2161,43.198 40.1985,43.2255 40.1626,43.2676 40.0532,43.3047 39.9955,43.3214 39.9472,43.3301 39.9472,43.3301 22,2.0,Croatia 16.664,43.2128 16.6058,43.2132 16.5547,43.2196 16.497,43.2275 16.4651,43.2365 16.3921,43.2656 16.383,43.277 16.4092,43.3414 16.5781,43.3303 16.6773,43.3195 16.73,43.3138 16.7528,43.3103 16.784,43.3023 16.8614,43.2684 16.8639,43.2488 16.824,43.2192 16.8026,43.2188 16.7701,43.2197 16.6934,43.2173 16.683,43.2164 16.664,43.2128 16.664,43.2128 19,2.0,Croatia 17.034,43.0637 16.8564,43.0717 16.643,43.0706 16.6312,43.0709 16.511,43.095 16.4418,43.1115 16.4076,43.1208 16.3549,43.1465 16.4343,43.1616 16.4531,43.1632 16.5424,43.1694 16.5904,43.1649 16.6393,43.1514 16.7879,43.1127 16.9377,43.1003 17.0926,43.0874 17.0862,43.0677 17.034,43.0637 17.034,43.0637 587,6.0,Kyrgyzstan 70.8645,42.2068 70.8162,42.2168 70.775,42.2614 70.786,42.2757 70.8296,42.3095 70.8633,42.3513 70.8576,42.3795 70.9371,42.5294 70.9585,42.5402 71.0705,42.5835 71.071,42.6404 71.1765,42.7109 71.3257,42.7558 71.3888,42.7452 71.411,42.7411 71.4787,42.7159 71.504,42.7172 71.5401,42.7334 71.5585,42.7438 71.617,42.7699 71.6475,42.7751 71.7222,42.7778 71.7983,42.7791 71.8577,42.7691 71.8894,42.7609 72.0717,42.7253 72.1723,42.7268 72.1967,42.7253 72.253,42.7054 72.3575,42.6685 72.5208,42.6372 72.648,42.61 72.6853,42.5943 72.7144,42.5548 72.7362,42.5266 72.7635,42.5133 72.7829,42.5059 72.8076,42.5001 72.859,42.4911 72.919,42.5026 73.0512,42.5125 73.2343,42.4551 73.2339,42.4056 73.2452,42.3815 73.4189,42.3613 73.4309,42.3823 73.4206,42.3968 73.4117,42.4061 73.3717,42.4559 73.3494,42.4854 73.3409,42.5039 73.3318,42.5367 73.3323,42.5793 73.3619,42.6657 73.3931,42.7004 73.4225,42.7488 73.428,42.783 73.4379,42.8818 73.484,42.9917 73.5483,43.0191 73.6105,43.0363 73.6872,43.0559 73.8123,43.0763 73.8357,43.0995 73.9563,43.1394 74.1311,43.1612 74.1904,43.1682 74.2426,43.1568 74.2884,43.1465 74.4718,43.0777 74.5105,43.0398 74.5649,42.9954 74.6418,42.948 74.677,42.9419 74.7239,42.9443 74.7608,42.9381 74.7893,42.9307 74.9627,42.8671 75.0795,42.8206 75.1388,42.8067 75.2132,42.805 75.4575,42.7862 75.4869,42.7799 75.5173,42.7694 75.5663,42.7587 75.6442,42.8046 75.6647,42.8366 75.6803,42.8705 75.6853,42.8871 75.6911,42.8902 75.7395,42.8969 75.798,42.8984 76.0097,42.8935 76.1343,42.8882 76.2189,42.8754 76.2716,42.8618 76.3179,42.8511 76.5105,42.8519 76.6272,42.8704 76.7124,42.9039 76.7419,42.93 76.874,42.9471 77.0314,42.919 77.051,42.9104 77.1011,42.8695 77.1611,42.868 77.2999,42.8723 77.4279,42.873 77.5612,42.8668 77.6142,42.8664 77.8365,42.8468 77.8574,42.8377 77.8848,42.8214 77.9895,42.809 78.012,42.8137 78.0441,42.8206 78.0722,42.8223 78.3432,42.8392 78.4075,42.8362 78.4278,42.831 78.561,42.7787 78.9218,42.7115 78.9473,42.717 79.0001,42.7385 79.0287,42.7445 79.0654,42.7492 79.096,42.7353 79.0925,42.7098 79.0881,42.6869 79.0899,42.6633 79.1053,42.6309 79.1232,42.6105 79.1548,42.5846 79.1869,42.5692 79.2146,42.5664 79.2504,42.5547 79.2779,42.5183 79.2966,42.4781 79.3137,42.4426 79.3339,42.4241 79.3597,42.4174 79.4001,42.4108 79.4317,42.407 79.4686,42.4055 79.5019,42.41 79.5732,42.4222 79.6027,42.4263 79.8089,42.3935 79.8459,42.3848 80.0048,42.2539 80.0448,42.2007 80.0618,42.176 80.0812,42.1614 80.1034,42.1531 80.123,42.1486 80.1352,42.1276 80.1707,42.0356 80.1585,42.007 80.1345,41.9921 80.1033,41.9833 80.0692,41.9792 80.0289,41.9785 79.9515,41.9873 79.9149,41.9889 79.8668,41.9869 79.8134,41.9777 79.786,41.9725 79.763,41.9661 79.7343,41.9447 79.716,41.9186 79.7055,41.8775 79.6817,41.8476 79.6435,41.8352 79.6122,41.8345 79.5839,41.8374 79.5493,41.836 79.417,41.7841 79.2315,41.7449 79.0382,41.6728 78.9507,41.6354 78.8497,41.5947 78.65,41.5162 78.6186,41.5071 78.5874,41.496 78.5625,41.485 78.4231,41.4173 78.2877,41.3464 78.2628,41.3261 78.2559,41.3064 78.2689,41.2717 78.2756,41.2474 78.2622,41.2285 78.219,41.2069 78.1999,41.1957 78.1831,41.1831 78.1577,41.1515 78.1447,41.1291 78.1387,41.1189 78.1294,41.0993 78.0993,41.0696 78.0818,41.055 78.0315,41.023 77.9738,40.9946 77.9481,40.9976 77.9217,41.01 77.891,41.014 77.7538,41.0236 77.721,41.0163 77.6735,40.9944 77.5782,40.9559 77.4372,40.9404 77.3996,40.94 77.3686,40.9509 77.3302,40.9664 77.276,40.9787 77.232,40.9812 77.1685,40.96 77.0343,40.9698 77.0033,40.981 76.9676,41.0005 76.9159,41.0032 76.8158,40.9813 76.7918,40.975 76.7654,40.9665 76.6857,40.9049 76.5435,40.6953 76.5436,40.6587 76.5397,40.5732 76.5254,40.557 76.4819,40.5319 76.4653,40.5166 76.4464,40.4937 76.433,40.474 76.4218,40.4533 76.4097,40.4135 76.3891,40.3913 76.3459,40.3585 76.2302,40.3079 76.2108,40.3393 76.1196,40.3582 75.9955,40.3527 75.9644,40.3502 75.9414,40.3433 75.8799,40.3212 75.8632,40.3 75.8397,40.2696 75.7966,40.2558 75.6005,40.2526 75.585,40.2665 75.5758,40.2896 75.5625,40.3284 75.5255,40.4922 75.5265,40.5241 75.521,40.5489 75.5009,40.5827 75.4796,40.5987 75.4277,40.5841 75.3832,40.5631 75.2368,40.4809 75.1748,40.4368 75.1313,40.4048 74.9635,40.4021 74.9188,40.4112 74.8886,40.4204 74.8686,40.4281 74.834,40.4462 74.8056,40.463 74.78,40.4736 74.7566,40.4716 74.7427,40.4582 74.7299,40.418 74.724,40.3624 74.743,40.347 74.7749,40.3199 74.7885,40.3036 74.7789,40.2824 74.7468,40.2794 74.7188,40.2866 74.6585,40.2995 74.6323,40.2953 74.4986,40.2168 74.4508,40.1777 74.4132,40.143 74.3409,40.0943 74.3135,40.0774 74.2823,40.0626 74.2533,40.0528 74.2211,40.0476 74.1938,40.0478 74.1568,40.0663 74.125,40.0723 74.0884,40.0665 73.9239,40.0224 73.8905,39.9969 73.748,39.7723 73.7432,39.7242 73.7626,39.7005 73.8074,39.6836 73.825,39.6483 73.855,39.5554 73.7641,39.4409 73.7404,39.4294 73.6863,39.4237 73.5564,39.4105 73.555,39.4164 73.4259,39.429 73.3923,39.4256 73.2692,39.3936 73.2588,39.3597 73.0873,39.3142 73.0652,39.3103 72.7645,39.3178 72.7069,39.3272 72.6798,39.3339 72.5911,39.3537 72.5598,39.3571 72.5354,39.3464 72.5011,39.3219 72.3868,39.3054 72.356,39.3086 72.327,39.3145 72.2504,39.2943 72.2277,39.2728 72.217,39.2425 72.2092,39.213 72.1618,39.1514 72.0428,39.2304 72.0013,39.3042 71.9808,39.3272 71.8745,39.3037 71.837,39.2828 71.8027,39.2625 71.7646,39.2443 71.6823,39.2336 71.6462,39.2647 71.6363,39.2897 71.6475,39.3167 71.6767,39.3473 71.6787,39.3729 71.6613,39.4116 71.6179,39.4173 71.5846,39.4089 71.558,39.4061 71.5005,39.4051 71.4677,39.4099 71.4414,39.42 71.421,39.4444 71.4222,39.4645 71.4524,39.5034 71.4523,39.5279 71.4181,39.5601 71.388,39.5735 71.3101,39.5618 71.2304,39.5254 71.1002,39.4888 71.0069,39.4682 70.9783,39.4454 70.9603,39.4091 70.9482,39.381 70.9325,39.3669 70.8986,39.3566 70.7531,39.3666 70.626,39.3813 70.5994,39.4449 70.5776,39.4626 70.5765,39.4739 70.566,39.5052 70.5377,39.5352 70.4122,39.5627 70.3868,39.5621 70.2612,39.5377 70.2073,39.5071 70.1427,39.533 70.0867,39.5399 69.8716,39.5099 69.7524,39.493 69.7302,39.5011 69.7068,39.5178 69.688,39.5282 69.6561,39.5377 69.6139,39.5435 69.5781,39.5418 69.5152,39.5378 69.4874,39.5292 69.4575,39.5058 69.4226,39.4943 69.2399,39.4743 69.2153,39.4906 69.2081,39.5162 69.2162,39.5549 69.2207,39.5857 69.2204,39.6153 69.2162,39.6424 69.205,39.6598 69.1689,39.6888 69.1558,39.7132 69.1634,39.7538 69.1739,39.7935 69.1911,39.8426 69.2408,39.9477 69.3135,39.8933 69.3308,39.8601 69.4041,39.8761 69.4298,39.8898 69.4113,39.9178 69.3911,39.9928 69.4046,40.0279 69.4462,40.0837 69.4751,40.0643 69.5109,40.067 69.5423,40.0737 69.5977,40.0875 69.7229,40.1252 69.9166,40.1729 69.9572,40.1624 70.1901,40.0876 70.2137,40.0707 70.2339,40.0458 70.2558,40.0371 70.3307,40.0253 70.4165,40.0118 70.4464,40.001 70.4624,39.9833 70.4507,39.9579 70.422,39.9436 70.3932,39.9244 70.3727,39.8833 70.3986,39.8635 70.5073,39.9136 70.5268,39.9256 70.5437,39.94 70.5583,39.9625 70.5642,39.9997 70.5674,40.0557 70.7896,40.126 70.8252,40.1237 70.8607,40.1297 70.8889,40.1448 70.8982,40.1832 70.8855,40.1995 70.899,40.2223 70.971,40.2324 70.9973,40.2327 71.0422,40.2321 71.1497,40.2417 71.202,40.2646 71.2926,40.2564 71.3736,40.2236 71.3873,40.1934 71.4081,40.1786 71.4269,40.1704 71.6165,40.1028 71.6849,40.1293 71.71,40.1484 71.8055,40.2051 71.9456,40.2212 71.9146,40.289 72.0138,40.3869 72.081,40.4163 72.1084,40.4194 72.1286,40.4192 72.1594,40.4198 72.1843,40.4017 72.2464,40.3637 72.295,40.3471 72.3217,40.3426 72.3338,40.359 72.3475,40.3882 72.3542,40.4132 72.3352,40.4424 72.301,40.4616 72.281,40.4805 72.2748,40.5572 72.3057,40.5708 72.4921,40.4758 72.53,40.4678 72.5545,40.4739 72.5745,40.4901 72.6113,40.5393 72.7063,40.6292 72.7524,40.6431 72.7783,40.6476 72.844,40.667 73.0042,40.7291 73.047,40.7538 73.0673,40.783 73.0524,40.8011 72.9491,40.8224 72.7995,40.8218 72.6259,40.823 72.6026,40.8244 72.5605,40.8331 72.5219,40.8487 72.5064,40.8819 72.4804,40.9076 72.4041,40.9706 72.2962,40.9941 72.22,40.986 72.0967,40.9604 72.1165,41.0059 72.0822,41.1462 72.051,41.1577 72.0124,41.1499 71.8104,41.1431 71.7897,41.1544 71.791,41.1996 71.7975,41.2284 71.7955,41.2558 71.7894,41.2844 71.768,41.3112 71.5896,41.5096 71.5469,41.5079 71.5211,41.4575 71.5274,41.4373 71.5516,41.4161 71.5613,41.382 71.5529,41.3508 71.5198,41.2871 71.5003,41.2691 71.4776,41.2551 71.4475,41.256 71.4037,41.2717 71.3495,41.3039 71.3363,41.2861 71.3409,41.211 71.3441,41.1838 71.3443,41.1494 71.3425,41.0967 71.3256,41.0744 71.2993,41.0791 71.1478,41.148 71.1103,41.1401 71.0592,41.1145 70.891,41.1571 70.7161,41.2039 70.6954,41.2844 70.696,41.3084 70.6742,41.3482 70.6136,41.4236 70.5724,41.4291 70.5369,41.4122 70.5039,41.3972 70.4341,41.3724 70.3919,41.3642 70.3773,41.3656 70.3383,41.4125 70.3168,41.431 70.2734,41.4525 70.2511,41.4588 70.2266,41.4638 70.1959,41.4684 70.1699,41.4678 70.1098,41.4722 70.0843,41.4943 70.0878,41.5356 70.108,41.5519 70.1552,41.568 70.1885,41.578 70.2118,41.5863 70.3774,41.6693 70.3946,41.6851 70.4052,41.7034 70.4193,41.7384 70.4335,41.7529 70.6026,41.8629 70.6544,41.8652 70.6877,41.8664 70.749,41.884 70.7539,41.9233 70.7616,41.9797 70.7793,41.9943 70.8144,41.9982 70.8473,41.9922 70.8828,41.9952 71.1242,42.0944 71.1652,42.1269 71.1772,42.1506 71.1767,42.1566 71.1654,42.1579 71.1332,42.1707 71.074,42.2019 71.0244,42.2297 70.9661,42.2547 70.9351,42.2513 70.8825,42.2142 70.8645,42.2068 70.8645,42.2068 14,2.0,Croatia 16.0711,42.9615 16.0422,42.962 16.0284,43.0142 16.0438,43.0216 16.0629,43.029 16.0815,43.0325 16.0917,43.0335 16.1174,43.034 16.1625,43.0329 16.2081,43.0296 16.2298,43.0161 16.1873,42.9749 16.0711,42.9615 16.0711,42.9615 14,10.0,Russia 131.7397,42.9464 131.7349,42.9374 131.7157,42.9122 131.69,42.9083 131.6411,42.905 131.5705,42.9387 131.5968,43.0007 131.6532,43.0141 131.6732,43.0088 131.6935,43.0004 131.734,42.9724 131.7399,42.9529 131.7397,42.9464 131.7397,42.9464 45,2.0,Croatia 18.43,42.5179 18.4279,42.4687 18.4321,42.4455 18.4475,42.4234 18.4724,42.4033 18.4776,42.4016 18.4972,42.3822 18.4915,42.3522 18.3319,42.4484 18.1895,42.5313 18.0327,42.6156 17.8526,42.7195 17.7181,42.7488 17.5284,42.7925 17.4149,42.8254 17.3409,42.8669 17.1798,42.9332 17.1565,42.927 17.1217,42.928 17.048,42.938 16.9887,42.9577 16.9871,42.9996 17.2448,42.9633 17.275,42.9585 17.4149,42.9054 17.4987,42.8717 17.633,42.8324 17.6254,42.8407 17.6615,42.8718 17.682,42.8787 17.7199,42.8716 17.7727,42.8554 17.8205,42.8123 17.8548,42.773 17.9353,42.731 17.9656,42.7165 18.1355,42.6469 18.2016,42.5974 18.2496,42.569 18.2817,42.5701 18.3155,42.5807 18.3372,42.5786 18.3794,42.5625 18.43,42.5179 18.43,42.5179 88,2.0,France 9.4854,42.5501 9.507,42.5244 9.5198,42.4974 9.5491,42.225 9.5469,42.1447 9.5396,42.0707 9.4351,41.9519 9.4125,41.9276 9.3954,41.8971 9.3841,41.8221 9.3876,41.7985 9.3915,41.7765 9.3861,41.6517 9.3651,41.6053 9.3078,41.5556 9.2589,41.4738 9.2295,41.4053 9.2383,41.3747 9.2072,41.3206 9.1701,41.3184 9.1199,41.3476 9.1033,41.3852 8.9636,41.4307 8.9289,41.4428 8.9052,41.4531 8.7786,41.5108 8.7734,41.5665 8.795,41.5868 8.8632,41.601 8.9049,41.6386 8.8666,41.651 8.8389,41.6519 8.7851,41.6631 8.714,41.6822 8.6932,41.7123 8.7357,41.7635 8.7769,41.8062 8.7905,41.8533 8.7685,41.8791 8.7299,41.8823 8.7003,41.8643 8.6568,41.861 8.6153,41.8593 8.5792,41.9164 8.6018,41.9235 8.6287,41.9213 8.6546,41.9371 8.6474,41.9608 8.7313,42.0021 8.6694,42.059 8.6272,42.0726 8.5966,42.0852 8.5755,42.1222 8.5588,42.174 8.6065,42.2055 8.6369,42.2106 8.6725,42.221 8.6199,42.2891 8.5999,42.302 8.5775,42.3028 8.564,42.3359 8.6532,42.463 8.7063,42.5224 8.8747,42.58 9.0448,42.6357 9.0731,42.6637 9.1049,42.6812 9.1384,42.6849 9.2403,42.6717 9.2613,42.648 9.2762,42.6268 9.3019,42.6452 9.3291,42.6899 9.3233,42.7495 9.2999,42.7811 9.3338,42.952 9.3704,42.9599 9.4083,42.9617 9.4464,42.9395 9.4755,42.7586 9.4545,42.7171 9.442,42.6704 9.4344,42.635 9.4372,42.5919 9.463,42.5311 9.4952,42.5225 9.4854,42.5501 9.4854,42.5501 415,9.0,North Korea 130.4236,42.3739 130.4519,42.3636 130.4782,42.3274 130.4721,42.2923 130.4744,42.2703 130.5168,42.2445 130.5015,42.2321 130.4191,42.2069 130.4156,42.2311 130.3989,42.2575 130.3196,42.2762 130.2922,42.2767 130.2403,42.2641 130.0283,42.12 129.908,42.0222 129.8048,41.9325 129.7706,41.8366 129.6681,41.7096 129.6301,41.714 129.6032,41.7088 129.5818,41.6836 129.5194,41.5989 129.5103,41.5786 129.4855,41.503 129.482,41.4815 129.4883,41.433 129.4981,41.4115 129.518,41.3891 129.5434,41.3751 129.5751,41.3606 129.6253,41.3306 129.6096,41.2794 129.5916,41.2537 129.5418,41.1342 129.5374,41.0965 129.5358,41.0659 129.5406,40.9578 129.5451,40.9338 129.5612,40.9128 129.5745,40.8959 129.5495,40.8139 129.5244,40.7847 129.4866,40.7878 129.4239,40.7813 129.3871,40.7751 129.0385,40.6337 128.994,40.5398 128.9946,40.5201 128.9939,40.5146 128.9795,40.4899 128.9317,40.4322 128.9016,40.4165 128.8794,40.4163 128.8016,40.4048 128.7661,40.3791 128.7386,40.352 128.7178,40.3309 128.6976,40.3188 128.6365,40.2961 128.6153,40.2894 128.4611,40.2275 128.4227,40.129 128.1577,40.0087 128.0101,39.9785 127.967,39.978 127.9376,39.9822 127.881,39.9889 127.8274,39.9922 127.7601,39.9267 127.7124,39.866 127.6957,39.8413 127.5544,39.8015 127.4395,39.7664 127.388,39.7374 127.3451,39.6951 127.3309,39.6682 127.3324,39.6004 127.359,39.4123 127.3642,39.383 127.3851,39.2833 127.3886,39.2669 127.3569,39.259 127.3527,39.2981 127.3647,39.3148 127.3599,39.3445 127.3263,39.3835 127.2859,39.3757 127.2671,39.3606 127.2395,39.3481 127.2035,39.3281 127.2054,39.1912 127.2287,39.1513 127.2766,39.1205 127.3699,39.0962 127.4744,39.0812 127.6117,39.0446 127.6386,39.0052 127.6845,38.9437 127.7093,38.919 127.8397,38.8148 127.867,38.8089 127.8937,38.803 127.9229,38.7908 127.9511,38.7757 127.9655,38.7592 128.0303,38.6919 128.0554,38.6898 128.0924,38.6946 128.1223,38.6842 128.166,38.6587 128.1915,38.6337 128.1927,38.5819 128.1377,38.5444 128.1358,38.5171 128.1427,38.4813 128.1369,38.4453 128.1268,38.4164 128.109,38.3874 128.0899,38.3685 128.0731,38.3523 128.0545,38.3388 128.0306,38.3224 128.0059,38.307 127.9882,38.2967 127.967,38.2862 127.91,38.2688 127.8848,38.2637 127.8408,38.2626 127.81,38.2643 127.7157,38.2707 127.4996,38.2768 127.3682,38.2644 127.2818,38.2697 127.1971,38.2804 127.0826,38.2761 127.0286,38.2691 126.9622,38.2554 126.9322,38.2413 126.8994,38.2171 126.8817,38.2073 126.8375,38.1864 126.8184,38.171 126.8015,38.1457 126.7867,38.1117 126.7671,38.0857 126.6568,37.9735 126.6395,37.958 126.6059,37.9311 126.5691,37.9127 126.521,37.7917 126.4574,37.7461 126.4154,37.7297 126.3121,37.7778 126.2545,37.8144 126.2326,37.8435 126.2214,37.8447 126.1863,37.838 126.0413,37.8032 125.977,37.7758 125.9924,37.7372 125.9946,37.7152 125.9831,37.6922 125.9385,37.699 125.9,37.7522 125.8763,37.821 125.8034,37.8631 125.7767,37.8477 125.8059,37.8267 125.8189,37.7869 125.754,37.7933 125.6579,37.8987 125.6372,37.9428 125.5821,37.9601 125.5062,37.9744 125.4391,37.9834 125.4109,37.9744 125.4265,37.9493 125.4469,37.936 125.4802,37.9239 125.5581,37.8684 125.4773,37.7765 125.3995,37.7399 125.3555,37.742 125.2153,37.6663 125.1777,37.629 125.1721,37.638 125.168,37.6737 125.2185,37.7501 125.2783,37.7766 125.3217,37.7949 125.3437,37.8429 125.2902,37.8701 125.2605,37.8643 125.222,37.8538 125.187,37.8193 125.143,37.8441 125.0745,37.8847 125.0537,37.8465 125.0107,37.8216 124.967,37.8258 124.9216,37.8346 124.8562,37.8529 124.8175,37.8906 124.9517,38.0 125.0194,38.0038 125.0404,38.0003 125.0532,37.9837 125.0758,37.9713 125.1079,38.021 125.0912,38.0346 124.9673,38.0486 124.9409,38.0441 124.9174,38.0369 124.8952,38.0275 124.8562,38.0202 124.6995,38.0601 124.6238,38.0526 124.6016,38.054 124.5048,38.0766 124.511,38.097 124.5566,38.0963 124.5789,38.101 124.6561,38.1462 124.6969,38.1864 124.7022,38.2179 124.6996,38.2895 124.7922,38.4204 124.8267,38.5431 124.8889,38.5374 124.9899,38.6013 125.1419,38.6085 125.1789,38.6271 125.2098,38.6486 125.2799,38.6573 125.3866,38.6309 125.4092,38.6055 125.425,38.5935 125.4582,38.5807 125.4816,38.5787 125.4845,38.586 125.4655,38.6114 125.4625,38.6134 125.3496,38.6744 125.3117,38.6782 125.2648,38.6788 125.2004,38.6638 125.1161,38.6537 125.0777,38.6731 124.9736,38.7546 124.982,38.826 125.0323,38.8781 125.0681,38.9553 125.0914,39.0083 125.1162,39.0716 125.1224,39.1115 125.1716,39.1592 125.1913,39.1717 125.2198,39.1935 125.2432,39.2355 125.2533,39.2638 125.2329,39.3149 125.1914,39.3492 125.1694,39.3903 125.1779,39.415 125.2342,39.4811 125.2812,39.5278 125.2729,39.5323 125.2037,39.508 125.1425,39.4816 125.1215,39.4751 124.9515,39.5145 124.8689,39.5612 124.7767,39.6182 124.6775,39.6769 124.5765,39.7286 124.5776,39.6695 124.5872,39.6332 124.5725,39.5849 124.4677,39.5537 124.4626,39.6052 124.4816,39.6323 124.3929,39.7552 124.3678,39.7649 124.3304,39.7764 124.2711,39.7843 124.2379,39.7869 124.1951,39.8201 124.1556,39.8711 124.2196,39.9774 124.2043,40.0485 124.2121,40.0572 124.2412,40.0852 124.385,40.1968 124.4572,40.2382 124.5186,40.2515 124.5408,40.2615 124.6423,40.3511 124.7147,40.4247 124.7914,40.4135 124.8691,40.4153 124.8539,40.4484 124.872,40.492 124.9695,40.5395 125.1149,40.6018 125.1438,40.6042 125.1979,40.5944 125.2411,40.6079 125.286,40.6576 125.3814,40.6954 125.432,40.71 125.4779,40.7565 125.5165,40.806 125.5308,40.814 125.76,40.8317 125.8391,40.8508 125.9517,40.9887 126.1058,41.1064 126.1128,41.1262 126.1364,41.1681 126.1935,41.229 126.2373,41.2726 126.264,41.2958 126.2823,41.3107 126.31,41.32 126.3365,41.3434 126.4088,41.5241 126.3938,41.5428 126.3917,41.5649 126.4711,41.6135 126.5382,41.6442 126.6208,41.6611 126.6729,41.6886 126.6938,41.7141 126.7297,41.7451 126.7527,41.7489 126.8729,41.6611 126.8856,41.644 126.8819,41.5965 126.9259,41.5744 126.96,41.5467 126.9845,41.4831 127.0959,41.4258 127.4455,41.3713 127.5185,41.3665 127.6594,41.3633 127.6953,41.3773 127.7521,41.4005 127.8358,41.369 127.868,41.3426 127.9381,41.3252 127.9767,41.3348 128.0166,41.3609 128.046,41.3942 128.1058,41.4834 128.1236,41.5358 128.0928,41.5901 128.0775,41.6036 128.05,41.6169 128.0273,41.6295 127.979,41.6674 127.922,41.756 127.8923,41.8378 127.8842,41.8634 127.8732,41.9341 127.8798,41.9539 128.0983,41.9909 128.1589,41.9921 128.184,41.9901 128.2451,41.9812 128.2693,41.9655 128.2956,41.9501 128.3197,41.948 128.3927,41.9528 128.5054,41.9738 128.6672,41.9822 128.7175,41.9752 128.7488,41.98 128.7713,42.0046 128.78,42.031 128.8386,42.0475 128.9359,42.0918 128.9739,42.1203 129.0325,42.1738 129.0306,42.2181 129.0673,42.3279 129.1701,42.3983 129.2661,42.3847 129.3353,42.3391 129.5158,42.388 129.5369,42.4047 129.5487,42.4276 129.553,42.4743 129.5456,42.4996 129.5734,42.6657 129.6274,42.8053 129.6668,42.8939 129.6973,42.9434 129.7242,42.9559 129.7487,42.9574 129.7669,42.9468 129.8535,42.9096 130.0123,42.8581 130.0705,42.8395 130.0694,42.7834 130.0626,42.7634 130.0554,42.7381 130.0662,42.6659 130.1479,42.5938 130.196,42.5693 130.3335,42.5201 130.3417,42.4892 130.3869,42.3952 130.4059,42.3791 130.4236,42.3739 130.4236,42.3739 27,2.0,Croatia 16.8426,42.8492 16.8085,42.8555 16.7005,42.871 16.649,42.8777 16.6107,42.9337 16.6201,42.9381 16.6632,42.9422 16.6979,42.9364 16.7103,42.9316 16.7338,42.9244 16.7489,42.9207 16.7971,42.9116 16.8398,42.9074 16.8504,42.9084 16.873,42.9135 16.8881,42.9204 16.9172,42.9247 16.9422,42.9278 16.9963,42.9281 17.021,42.9269 17.1122,42.9135 17.1597,42.8701 17.1106,42.863 17.1001,42.8628 16.9178,42.8628 16.8426,42.8492 16.8426,42.8492 28,2.0,Italy 10.4042,42.6603 10.3371,42.7131 10.3264,42.717 10.2857,42.7116 10.2205,42.698 10.1952,42.6869 10.1464,42.6813 10.1353,42.6814 10.1252,42.6836 10.1108,42.6914 10.1029,42.6992 10.089,42.7204 10.0872,42.7365 10.0975,42.751 10.1129,42.758 10.1312,42.7623 10.1689,42.7653 10.1945,42.7607 10.2067,42.7514 10.2194,42.7446 10.3416,42.7568 10.3638,42.7788 10.3788,42.8078 10.3986,42.8218 10.4248,42.8034 10.4132,42.6653 10.4042,42.6603 10.4042,42.6603 20,2.0,Croatia 17.7156,42.6435 17.7031,42.65 17.6751,42.6574 17.6648,42.6595 17.6103,42.6702 17.587,42.6725 17.5244,42.68 17.3483,42.7088 17.3347,42.7135 17.3077,42.7267 17.2994,42.7407 17.339,42.7538 17.354,42.7538 17.3753,42.7493 17.6405,42.6877 17.7061,42.6617 17.7159,42.6547 17.7209,42.645 17.7156,42.6435 17.7156,42.6435 860,5.0,Turkmenistan 55.9241,41.2819 55.9381,41.2789 56.1378,41.2689 56.2827,41.26 56.4459,41.2503 56.4563,41.2519 56.4651,41.2497 56.5665,41.2428 56.589,41.2414 56.6194,41.2405 56.6701,41.246 56.7203,41.2524 56.7577,41.2519 56.807,41.242 56.8441,41.2305 56.8778,41.2236 56.9598,41.2128 56.9786,41.2213 57.0555,41.2994 57.0374,41.3441 57.0108,41.3602 56.9788,41.3959 56.9626,41.4249 56.899,41.6351 56.8911,41.8128 56.9042,41.8416 56.926,41.8567 56.9505,41.8631 56.9887,41.8713 57.0185,41.8805 57.0433,41.8959 57.0635,41.9139 57.0892,41.9431 57.1116,41.9853 57.1322,42.0162 57.1669,42.0479 57.1851,42.0621 57.2084,42.0757 57.2445,42.0911 57.2729,42.1023 57.299,42.1117 57.3381,42.1235 57.3658,42.1264 57.3945,42.1275 57.4184,42.1256 57.4426,42.1227 57.5005,42.1153 57.5406,42.1065 57.585,42.1062 57.7589,42.1403 57.7928,42.1631 57.8283,42.2174 57.8739,42.2946 57.8813,42.3225 57.868,42.3514 57.8635,42.3976 57.9413,42.4534 57.9732,42.46 57.996,42.4595 58.0211,42.456 58.1707,42.4233 58.2026,42.415 58.2445,42.3991 58.2905,42.3771 58.3236,42.351 58.3353,42.3108 58.3282,42.2584 58.3607,42.2468 58.4257,42.2548 58.262,42.4735 58.2321,42.5023 58.2126,42.5132 58.1742,42.5246 58.1486,42.5305 58.1187,42.5403 58.0712,42.5631 58.0724,42.5944 58.1859,42.6459 58.2211,42.6483 58.2526,42.6402 58.2864,42.6262 58.325,42.6151 58.3803,42.611 58.4407,42.6098 58.4754,42.6129 58.4922,42.625 58.5012,42.6474 58.505,42.6683 58.5103,42.7115 58.5152,42.7326 58.5322,42.748 58.6493,42.6558 58.6945,42.6146 58.723,42.5893 58.7688,42.5561 58.87,42.4928 58.8964,42.4844 58.9423,42.4772 58.9655,42.4757 58.9863,42.4775 59.0116,42.4834 59.0616,42.4966 59.1343,42.4494 59.1575,42.4289 59.1779,42.3988 59.1776,42.3742 59.177,42.3469 59.1839,42.3195 59.1975,42.3032 59.3436,42.2521 59.3668,42.246 59.4048,42.2441 59.4475,42.2457 59.4764,42.2516 59.5396,42.2612 59.6532,42.2748 59.7746,42.2682 59.8315,42.2507 59.9314,42.1698 59.9438,42.116 59.9451,41.9849 60.0542,41.8639 60.0664,41.8441 60.0697,41.8365 60.0974,41.8134 60.17,41.7769 60.1911,41.7438 60.1763,41.7271 60.1429,41.7337 60.1105,41.7477 60.0604,41.7591 60.0339,41.7557 60.0115,41.7402 59.9884,41.7119 59.993,41.6833 60.0535,41.6126 60.0777,41.5847 60.101,41.5438 60.0779,41.5266 60.0388,41.5108 60.0145,41.4841 59.9953,41.3989 60.0096,41.364 60.0576,41.3346 60.0771,41.3262 60.1116,41.313 60.14,41.3027 60.1818,41.2922 60.2429,41.2677 60.2615,41.2588 60.2917,41.2412 60.3261,41.2167 60.3494,41.1957 60.3709,41.1824 60.3969,41.1748 60.4351,41.171 60.5108,41.1852 60.5733,41.1993 60.5965,41.2061 60.6218,41.2114 60.7283,41.2113 60.8562,41.2046 60.8792,41.1995 60.8982,41.1878 60.9204,41.1634 60.9386,41.1838 61.002,41.1906 61.055,41.1856 61.0777,41.1597 61.1611,41.1208 61.2061,41.1166 61.2452,41.1266 61.2777,41.1463 61.2956,41.1674 61.3106,41.2213 61.3304,41.2524 61.3622,41.2559 61.5269,41.2211 61.5476,41.213 61.6531,41.1564 61.7894,41.0793 61.8083,41.0654 61.863,40.9979 61.8857,40.9625 61.8993,40.9252 61.9026,40.8997 61.9004,40.875 61.9016,40.8315 61.9145,40.7939 61.96,40.6734 62.0276,40.561 62.0563,40.5188 62.1006,40.4588 62.1078,40.4481 62.1317,40.4348 62.1744,40.4279 62.251,40.3939 62.2674,40.3791 62.3139,40.2328 62.3258,40.175 62.3401,40.0832 62.3334,40.0624 62.3369,40.0373 62.3564,39.9872 62.4706,39.8856 62.4996,39.8649 62.6423,39.7848 62.7047,39.7552 62.7287,39.7428 62.7946,39.7043 62.8168,39.6912 62.8702,39.6533 62.9149,39.6225 62.9534,39.6001 63.0081,39.5727 63.0452,39.5547 63.1138,39.5221 63.1957,39.4841 63.2571,39.4539 63.3933,39.3792 63.4331,39.3545 63.4761,39.3204 63.5104,39.2858 63.5583,39.235 63.5717,39.2194 63.6085,39.1802 63.6249,39.1639 63.7284,39.1095 63.8073,39.0701 63.8977,39.0244 63.9582,38.986 64.0006,38.957 64.0469,38.9317 64.092,38.9099 64.12,38.9083 64.1487,38.916 64.1808,38.9291 64.2167,38.9418 64.2522,38.9471 64.2807,38.928 64.297,38.9095 64.3026,38.9019 64.3159,38.8857 64.3301,38.8703 64.3486,38.8532 64.3784,38.8302 64.5454,38.7179 64.5854,38.6954 64.6604,38.6648 64.7116,38.6466 64.7884,38.6228 64.821,38.6136 64.8486,38.6055 64.8898,38.5885 64.9088,38.5784 65.0199,38.5049 65.0371,38.4901 65.0652,38.4688 65.1122,38.4339 65.1701,38.3917 65.2055,38.3677 65.2415,38.3468 65.4774,38.2254 65.5104,38.2109 65.5406,38.2006 65.5707,38.1936 65.6083,38.1852 65.6293,38.183 65.6521,38.183 65.6897,38.1914 65.7178,38.2144 65.7531,38.2309 65.7908,38.239 65.9683,38.1983 65.9909,38.1905 66.1778,38.1047 66.1982,38.0794 66.2187,38.053 66.2383,38.0393 66.3361,38.0008 66.3636,37.9947 66.4041,37.9996 66.4326,38.0007 66.4532,37.9982 66.4823,37.9924 66.512,37.9819 66.5321,37.9728 66.5634,37.9539 66.578,37.939 66.5828,37.9221 66.5718,37.8844 66.5496,37.8623 66.528,37.8424 66.4665,37.7759 66.4522,37.7385 66.4295,37.4898 66.4316,37.3485 66.4505,37.3244 66.4252,37.3198 66.4027,37.3022 66.3673,37.2796 66.3535,37.2769 66.3266,37.3018 66.2652,37.2947 66.2306,37.2843 66.2006,37.2846 66.0996,37.3302 66.0184,37.3793 65.9214,37.4134 65.6854,37.4956 65.6112,37.4905 65.5947,37.4749 65.5801,37.453 65.5593,37.4118 65.558,37.3854 65.5638,37.3542 65.5625,37.3106 65.477,37.2194 65.4381,37.2062 65.3819,37.2034 65.3514,37.2025 65.3056,37.2069 65.2764,37.2069 65.0081,37.2042 64.9813,37.2013 64.9583,37.1938 64.7596,37.1066 64.738,37.097 64.7089,37.0801 64.6958,37.0608 64.6927,37.0211 64.7005,36.9867 64.7056,36.9656 64.7153,36.9141 64.7081,36.8779 64.6916,36.8526 64.6595,36.8095 64.6308,36.7614 64.609,36.7272 64.5677,36.6691 64.5528,36.648 64.5419,36.6229 64.5324,36.5953 64.5257,36.559 64.5302,36.5264 64.5463,36.4912 64.5489,36.4457 64.5417,36.4129 64.5311,36.383 64.5174,36.3563 64.4972,36.3286 64.44,36.2586 64.4198,36.24 64.3825,36.211 64.3431,36.2056 64.2694,36.1903 64.081,36.1244 64.0117,36.0828 63.8946,35.9988 63.8443,35.9978 63.806,35.9914 63.7183,35.9472 63.6859,35.9384 63.6151,35.9304 63.5727,35.9289 63.5507,35.9292 63.5304,35.9274 63.5072,35.9181 63.4675,35.8777 63.4404,35.8628 63.2602,35.8171 63.2349,35.8122 63.2138,35.8116 63.1908,35.8128 63.1582,35.8165 63.1224,35.8217 63.0411,35.8226 63.0229,35.7919 63.0765,35.7241 63.1029,35.6338 63.0554,35.6127 63.0237,35.5937 63.0176,35.5165 63.0428,35.4998 63.0257,35.4171 63.0051,35.3926 62.9688,35.3903 62.9414,35.3882 62.9046,35.3764 62.8411,35.3447 62.8217,35.3344 62.8016,35.3179 62.7555,35.2848 62.6459,35.2181 62.5488,35.1865 62.4688,35.1971 62.4472,35.2191 62.4322,35.2341 62.3889,35.2482 62.3465,35.2255 62.3298,35.2113 62.3066,35.1879 62.2804,35.1592 62.2585,35.1307 62.2317,35.1067 62.1934,35.1621 62.1896,35.2169 62.0831,35.2964 62.0521,35.3284 62.0473,35.3351 61.992,35.3802 61.9622,35.4016 61.9115,35.4191 61.8855,35.4196 61.7373,35.3794 61.7185,35.3721 61.516,35.4045 61.4968,35.4113 61.4487,35.4442 61.4236,35.4696 61.367,35.5117 61.3497,35.5151 61.2954,35.5964 61.2169,35.5886 61.1973,35.5676 61.1743,35.5928 61.1537,35.6229 61.151,35.6523 61.1827,35.7765 61.1574,35.8512 61.1464,35.8637 61.1323,35.8973 61.1217,36.0287 61.1373,36.0681 61.1419,36.0995 61.141,36.1385 61.1047,36.2462 61.0829,36.3791 61.1095,36.5282 61.087,36.5912 61.074,36.6093 60.993,36.6096 60.8549,36.6088 60.7169,36.6079 60.5878,36.6064 60.5615,36.6061 60.4236,36.605 60.286,36.6046 60.2525,36.6169 60.0788,36.83 60.0629,36.8503 60.0276,36.8954 60.013,36.9172 59.9979,36.9474 59.985,36.9703 59.9372,37.0024 59.7348,37.083 59.6372,37.1058 59.4678,37.1665 59.4021,37.191 59.3149,37.2814 59.3093,37.3016 59.294,37.3624 59.2924,37.3827 59.298,37.4292 59.2975,37.4539 59.265,37.4935 59.2375,37.4989 59.2156,37.4938 59.1821,37.4752 59.1603,37.4759 59.1243,37.4911 59.056,37.5346 59.0038,37.5697 58.975,37.5893 58.9033,37.6125 58.856,37.6264 58.7289,37.6287 58.642,37.6077 58.5973,37.6108 58.569,37.6196 58.4155,37.6033 58.3938,37.5982 58.3303,37.5991 58.1571,37.6365 58.1442,37.6566 58.1477,37.6789 58.1209,37.744 58.0976,37.7539 57.6233,37.8838 57.5382,37.8827 57.4525,37.8849 57.3783,37.8958 57.3029,37.9321 57.2757,37.9508 57.2948,38.0274 57.2963,38.048 57.1658,38.2293 57.1326,38.2398 57.1065,38.2387 57.0832,38.2274 57.0739,38.2171 57.0612,38.1969 56.987,38.1526 56.867,38.1687 56.7915,38.1829 56.7642,38.1912 56.7208,38.2101 56.6988,38.2239 56.6806,38.2435 56.6202,38.2241 56.4948,38.216 56.4677,38.2233 56.3964,38.2201 56.3681,38.2172 56.3447,38.2094 56.3107,38.1887 56.2925,38.1757 56.2485,38.14 56.2522,38.1198 56.2752,38.0932 56.2573,38.0443 56.1453,38.0287 56.0943,38.0519 56.0359,38.044 56.0027,38.0376 55.9692,38.0322 55.9132,38.0299 55.7943,38.0512 55.761,38.0639 55.7327,38.0798 55.6902,38.0813 55.6594,38.0781 55.6178,38.0685 55.5967,38.0663 55.4831,38.0558 55.3962,38.048 55.3642,38.0408 55.341,38.0251 55.321,38.006 55.3033,37.9958 55.1566,37.9392 55.1066,37.922 55.0674,37.9125 54.9975,37.8633 54.9815,37.8449 54.9652,37.8232 54.8821,37.7627 54.8474,37.7418 54.8178,37.7327 54.7908,37.7243 54.7606,37.704 54.7376,37.669 54.7096,37.601 54.7215,37.5817 54.7366,37.5359 54.7085,37.472 54.6842,37.4536 54.597,37.398 54.5587,37.3982 54.5328,37.4063 54.5084,37.4109 54.4742,37.4024 54.4411,37.3887 54.4108,37.3722 54.3531,37.3443 54.3343,37.336 54.2847,37.319 54.1304,37.2884 53.8349,37.309 53.8217,37.4285 53.7988,37.4886 53.7902,37.5211 53.7667,37.6376 53.7494,37.732 53.735,37.823 53.733,37.8503 53.7328,37.8851 53.7366,37.9695 53.739,37.9897 53.7526,38.0444 53.763,38.0832 53.781,38.1524 53.7865,38.1892 53.7976,38.3182 53.7818,38.3488 53.7693,38.3758 53.7607,38.4204 53.7571,38.4432 53.7569,38.4494 53.7534,38.4629 53.7552,38.4983 53.7641,38.5421 53.781,38.6171 53.7991,38.6452 53.8557,38.7275 53.9106,38.8643 53.8936,38.8956 53.7907,38.9883 53.7236,38.9983 53.6955,38.9844 53.6397,39.0174 53.5682,39.0805 53.5339,39.1814 53.5072,39.2747 53.4666,39.2888 53.3734,39.276 53.3494,39.2749 53.3254,39.2746 53.2502,39.2862 53.2278,39.2984 53.1715,39.3142 53.149,39.3155 53.088,39.3007 53.1026,39.2462 53.1096,39.1659 53.1019,39.1258 53.0925,39.1308 53.0793,39.1624 53.049,39.297 53.0511,39.3909 53.1367,39.5415 53.153,39.566 53.1903,39.6087 53.2285,39.617 53.2137,39.6011 53.1938,39.5859 53.1642,39.5476 53.1353,39.48 53.1631,39.4712 53.2285,39.4807 53.2731,39.4883 53.299,39.4925 53.3354,39.493 53.3697,39.4844 53.3902,39.4634 53.406,39.4381 53.4439,39.4257 53.4919,39.4177 53.6596,39.471 53.5664,39.5665 53.4424,39.6104 53.3728,39.5958 53.3374,39.6218 53.3416,39.7288 53.4164,39.8389 53.4394,39.842 53.4654,39.8505 53.5028,39.9181 53.3556,39.9596 53.3246,39.9566 53.3011,39.9493 53.2753,39.928 53.2195,39.8961 52.9892,39.9179 52.9186,39.9275 52.863,39.9455 52.8431,39.924 52.8533,39.8552 52.879,39.8231 52.9063,39.7999 52.9525,39.7412 52.9629,39.7238 52.9725,39.7003 52.9671,39.6953 52.9374,39.7141 52.8394,39.8176 52.8285,39.8404 52.7524,39.936 52.728,39.952 52.6947,39.9748 52.6673,40.0049 52.6647,40.1555 52.6184,40.2268 52.6501,40.4006 52.6678,40.4559 52.7078,40.5191 52.736,40.5467 52.7635,40.5711 52.7906,40.6133 52.7912,40.6428 52.7582,40.6624 52.7635,40.698 52.7933,40.7506 52.8256,40.8492 52.8437,40.9727 52.8401,40.9994 52.8488,41.035 52.888,41.0098 52.952,40.8869 52.9651,40.8422 52.9889,40.7879 53.0384,40.7231 53.0705,40.7172 53.1751,40.714 53.2449,40.7201 53.3143,40.7226 53.3317,40.7111 53.39,40.6836 53.4207,40.6902 53.4609,40.7085 53.4825,40.7224 53.4875,40.756 53.4814,40.7911 53.5153,40.8469 53.5535,40.8357 53.5839,40.8113 53.5848,40.7661 53.5799,40.7349 53.6335,40.5913 53.663,40.5711 53.786,40.5797 53.9573,40.608 53.991,40.6211 54.0155,40.6368 54.0211,40.6697 54.1146,40.6801 54.1561,40.6796 54.1447,40.647 54.2045,40.6235 54.2756,40.6272 54.3474,40.6639 54.2907,40.6761 54.234,40.7065 54.1724,40.8325 54.2377,40.8785 54.2611,40.8786 54.3968,40.816 54.4051,40.7531 54.4184,40.755 54.4881,40.7694 54.5335,40.7866 54.6318,40.8288 54.6693,40.8773 54.6851,40.919 54.6573,41.0581 54.4394,41.201 54.4173,41.2128 54.372,41.2371 54.3457,41.2469 54.3194,41.2569 54.2864,41.2694 54.2612,41.2742 54.2254,41.2883 53.9992,41.4292 53.9679,41.4762 53.958,41.5056 53.9451,41.5587 53.9489,41.6135 53.9512,41.6684 53.9169,41.7518 53.8816,41.8029 53.8621,41.8275 53.8422,41.9542 53.8374,41.9988 53.8234,42.022 53.7795,42.0547 53.737,42.0743 53.6953,42.0825 53.5856,42.0954 53.5569,42.0933 53.3991,42.0618 53.2298,42.0276 53.2086,42.0242 53.1538,42.0315 53.1169,42.0421 53.077,42.0479 53.0233,42.027 52.8921,41.9466 52.8756,41.928 52.7662,41.7316 52.7479,41.6502 52.803,41.6528 52.8444,41.622 52.8298,41.5308 52.8021,41.4626 52.7816,41.4205 52.76,41.38 52.7488,41.3543 52.7629,41.2767 52.7783,41.2005 52.7986,41.1556 52.8121,41.1402 52.8364,41.0601 52.8094,41.0035 52.778,41.0281 52.7768,41.0618 52.7642,41.1347 52.7584,41.1592 52.7247,41.2453 52.6884,41.3277 52.6416,41.3786 52.6215,41.3944 52.5622,41.4277 52.5161,41.4503 52.4868,41.4715 52.4965,41.4997 52.5143,41.5358 52.5195,41.5916 52.4928,41.6334 52.41,41.6775 52.368,41.694 52.4192,41.7338 52.7345,41.9688 52.85,42.0462 52.884,42.065 52.9331,42.0882 53.243,42.1881 53.2671,42.1955 53.3244,42.2097 53.3727,42.2203 53.4664,42.2316 53.524,42.2366 53.5679,42.2393 53.5889,42.2414 53.6977,42.2588 53.8028,42.2772 53.8289,42.2827 53.8606,42.2908 53.9209,42.3009 53.9488,42.3027 53.9809,42.3009 54.098,42.2894 54.1238,42.2847 54.1509,42.2748 54.1734,42.2628 54.2402,42.2207 54.4914,42.1056 54.6565,42.0259 54.6855,42.0115 54.8586,41.8827 54.8871,41.8535 54.8826,41.808 54.8872,41.7693 54.9048,41.7454 54.9261,41.7242 54.9723,41.6867 55.05,41.6049 55.0709,41.5779 55.1181,41.5159 55.1311,41.4966 55.152,41.4589 55.1639,41.4419 55.213,41.3932 55.2408,41.3772 55.2795,41.3617 55.3163,41.3422 55.3312,41.3241 55.3387,41.305 55.3598,41.2616 55.3787,41.2421 55.4525,41.2173 55.5759,41.2206 55.7293,41.2422 55.7574,41.2536 55.7885,41.2743 55.8178,41.2849 55.8567,41.2872 55.9241,41.2819 55.9241,41.2819 163,2.0,Albania 20.0436,42.5129 20.0742,42.4854 20.134,42.4634 20.1947,42.3803 20.2116,42.3126 20.2215,42.2794 20.3274,42.2641 20.3587,42.2564 20.4294,42.2264 20.4805,42.1826 20.497,42.1653 20.5668,41.996 20.5933,41.909 20.5749,41.8875 20.5549,41.8717 20.5612,41.8351 20.5405,41.8274 20.5055,41.7297 20.4896,41.6968 20.5058,41.5879 20.4381,41.5089 20.4309,41.4739 20.4426,41.4524 20.4803,41.4129 20.5335,41.3622 20.5217,41.3264 20.4959,41.3035 20.4708,41.2953 20.4746,41.2577 20.4909,41.1998 20.5501,41.1162 20.5726,41.0467 20.6341,41.0428 20.7124,40.8633 20.7786,40.8544 20.7928,40.8627 20.809,40.8813 20.9156,40.8731 20.9346,40.8655 20.952,40.8511 20.955,40.8099 20.9554,40.7472 20.9981,40.6637 21.0226,40.6288 21.0248,40.575 21.0134,40.5183 20.9209,40.4241 20.8917,40.418 20.8049,40.4166 20.7635,40.386 20.7588,40.3494 20.7304,40.2667 20.7088,40.2618 20.686,40.2248 20.6929,40.1798 20.6392,40.0511 20.5934,40.04 20.5767,40.0301 20.5553,40.0256 20.528,40.0214 20.4516,40.0205 20.434,40.0289 20.4222,40.0275 20.4026,40.018 20.2879,39.9469 20.3099,39.8786 20.3421,39.8468 20.3837,39.7998 20.3859,39.7756 20.3772,39.7572 20.3513,39.7436 20.2786,39.7673 20.267,39.7627 20.2706,39.7272 20.2906,39.6895 20.1929,39.603 20.1689,39.6005 20.1395,39.6058 20.1142,39.6118 20.0701,39.6315 19.9976,39.6522 19.9832,39.6467 19.9584,39.6502 19.9567,39.7205 19.9606,39.8223 19.9107,39.8925 19.8304,39.9983 19.8143,40.0062 19.7985,40.0095 19.728,40.0378 19.7037,40.0578 19.5899,40.104 19.4765,40.1523 19.4248,40.1816 19.3746,40.2348 19.2636,40.3761 19.2924,40.3935 19.3155,40.3859 19.3654,40.3423 19.3764,40.3245 19.3806,40.3046 19.4065,40.2819 19.4377,40.2919 19.4531,40.3093 19.4613,40.3931 19.4271,40.5184 19.3912,40.5315 19.3671,40.5351 19.3116,40.5729 19.2809,40.5997 19.3297,40.6504 19.3786,40.7736 19.3867,40.8203 19.426,40.8376 19.444,40.8371 19.4948,40.8636 19.4964,40.8905 19.482,40.9268 19.4347,40.9607 19.4096,40.9747 19.4239,41.0137 19.4869,41.2076 19.4833,41.2294 19.4719,41.2475 19.4483,41.2624 19.4256,41.2633 19.4159,41.3603 19.4934,41.5231 19.54,41.5383 19.5579,41.559 19.56,41.5918 19.5438,41.6382 19.5551,41.6488 19.5723,41.7328 19.5708,41.7589 19.4978,41.7879 19.4528,41.8052 19.4137,41.8137 19.3897,41.8139 19.3412,41.8017 19.3168,41.8653 19.3202,41.9084 19.3498,42.0255 19.3722,42.0566 19.3516,42.0758 19.3057,42.1048 19.262,42.1354 19.4929,42.4005 19.5816,42.495 19.584,42.5229 19.6061,42.5552 19.6245,42.5752 19.6904,42.6121 19.7272,42.593 19.7373,42.5399 19.7197,42.4968 19.7422,42.453 19.7665,42.4362 19.795,42.4238 19.8998,42.4677 20.0285,42.5148 20.0436,42.5129 20.0436,42.5129 102,2.0,Macedonia 20.5612,41.8351 20.5907,41.8145 20.6792,41.8091 20.7086,41.8208 20.749,41.8901 20.7313,41.9383 20.7423,41.9993 20.7667,42.0355 20.8862,42.0726 21.0817,42.1532 21.1074,42.1522 21.1891,42.1001 21.276,42.1022 21.3168,42.1465 21.4431,42.2181 21.5898,42.2063 21.6515,42.1919 21.6777,42.185 21.7,42.1875 21.759,42.2204 21.7731,42.2509 21.8204,42.2824 21.9931,42.2693 22.0447,42.2532 22.1655,42.2688 22.1864,42.2882 22.2946,42.3112 22.3345,42.2762 22.3768,42.2317 22.4885,42.1023 22.5781,42.056 22.6547,42.0177 22.7916,41.9798 22.8456,41.8907 22.8661,41.835 22.9111,41.7605 22.9345,41.7286 22.9777,41.7191 22.9992,41.6779 22.9835,41.6483 22.9552,41.619 22.9227,41.589 22.9203,41.5516 22.9275,41.4296 22.935,41.3276 22.9243,41.3092 22.9042,41.2955 22.8949,41.2963 22.7773,41.3012 22.7455,41.2814 22.7308,41.2599 22.7303,41.2053 22.727,41.1814 22.7065,41.1097 22.5558,41.0737 22.4541,41.075 22.4118,41.0751 22.3129,41.0881 22.274,41.1068 22.229,41.1245 22.1752,41.1213 21.9471,41.0855 21.8863,41.0489 21.881,41.0192 21.7566,40.8847 21.5704,40.8268 21.5464,40.8271 21.5188,40.8449 21.499,40.8618 21.3807,40.8679 21.3454,40.837 21.3206,40.8272 21.2856,40.8224 21.1218,40.8113 21.0926,40.8114 20.955,40.8099 20.952,40.8511 20.9346,40.8655 20.9156,40.8731 20.809,40.8813 20.7928,40.8627 20.7786,40.8544 20.7124,40.8633 20.6341,41.0428 20.5726,41.0467 20.5501,41.1162 20.4909,41.1998 20.4746,41.2577 20.4708,41.2953 20.4959,41.3035 20.5217,41.3264 20.5335,41.3622 20.4803,41.4129 20.4426,41.4524 20.4309,41.4739 20.4381,41.5089 20.5058,41.5879 20.4896,41.6968 20.5055,41.7297 20.5405,41.8274 20.5612,41.8351 20.5612,41.8351 17,9.0,Japan 139.2602,42.1659 139.2726,42.1647 139.3382,42.1814 139.3555,42.1891 139.3688,42.1844 139.3603,42.1561 139.3247,42.0662 139.3091,42.0335 139.262,42.0002 139.2345,42.0161 139.2151,42.1034 139.2192,42.1183 139.233,42.1441 139.2405,42.1543 139.2491,42.1637 139.2602,42.1659 139.2602,42.1659 314,2.0,Portugal -8.7715,41.8755 -8.74,41.8845 -8.7328,41.905 -8.729,41.9204 -8.628,41.998 -8.6019,42.0089 -8.5061,42.0354 -8.4617,42.0373 -8.4342,42.0372 -8.2988,42.0563 -8.2405,42.091 -8.1861,42.1033 -8.0722,42.0131 -8.0734,41.9755 -8.0907,41.9636 -8.1233,41.9517 -8.1536,41.927 -8.1974,41.8815 -8.2067,41.8602 -8.1821,41.8261 -8.154,41.8116 -8.1503,41.7803 -8.1525,41.77 -8.1247,41.7621 -8.0763,41.7622 -8.0561,41.7683 -8.0437,41.7722 -8.0239,41.7802 -7.9157,41.8306 -7.8655,41.8055 -7.847,41.8126 -7.7485,41.8502 -7.6818,41.8568 -7.5872,41.8181 -7.5984,41.7885 -7.4083,41.7758 -7.3208,41.7977 -7.258,41.8164 -7.1972,41.8367 -7.1906,41.8363 -7.1769,41.8512 -7.1683,41.8844 -7.1747,41.93 -7.1212,41.9464 -7.089,41.9363 -7.066,41.9117 -7.0461,41.9039 -6.9989,41.9074 -6.9731,41.9267 -6.9307,41.9037 -6.8963,41.8975 -6.6876,41.8895 -6.5928,41.902 -6.5392,41.8748 -6.5188,41.7921 -6.5382,41.7181 -6.5362,41.6399 -6.4925,41.6126 -6.4517,41.6237 -6.4204,41.6328 -6.3382,41.6251 -6.2947,41.6164 -6.2474,41.5935 -6.1816,41.5326 -6.2036,41.4899 -6.2871,41.3896 -6.349,41.3339 -6.429,41.2722 -6.501,41.2186 -6.549,41.1957 -6.5799,41.1955 -6.6087,41.1999 -6.6345,41.1981 -6.6792,41.164 -6.7438,41.0904 -6.7448,41.0611 -6.7649,41.0246 -6.7959,40.9994 -6.8319,40.9838 -6.9149,40.9847 -6.9207,40.9694 -6.8818,40.9287 -6.8532,40.9067 -6.7921,40.811 -6.8099,40.6875 -6.7868,40.479 -6.806,40.3422 -6.8215,40.272 -6.8529,40.2261 -6.8686,40.2165 -6.9007,40.2111 -6.937,40.2138 -6.9987,40.1817 -7.0176,40.1425 -6.999,40.0878 -6.9728,40.074 -6.9373,40.0679 -6.9194,40.0565 -6.8731,39.9992 -6.8613,39.9711 -6.98,39.68 -7.0077,39.6305 -7.0433,39.6192 -7.148,39.6157 -7.1955,39.6228 -7.2537,39.6276 -7.297,39.6123 -7.3227,39.601 -7.4009,39.6041 -7.5221,39.6249 -7.5147,39.5923 -7.4924,39.5583 -7.3654,39.4494 -7.3128,39.3442 -7.3037,39.3004 -7.2328,39.1689 -7.1361,39.0701 -7.1153,39.0626 -7.0932,39.061 -7.0437,39.076 -7.0034,39.0678 -6.9731,39.0475 -6.9517,39.013 -6.9463,38.9793 -7.0505,38.817 -7.0744,38.7921 -7.1545,38.7384 -7.1974,38.7058 -7.2473,38.6799 -7.2575,38.66 -7.3073,38.4018 -7.2867,38.3885 -7.2677,38.3764 -7.1826,38.2774 -7.1601,38.2415 -7.1354,38.2032 -7.1203,38.1828 -7.0925,38.1465 -7.0782,38.1341 -7.0072,38.1512 -6.9838,38.1666 -6.938,38.1744 -6.9245,38.1661 -6.932,38.1275 -6.9424,38.0971 -6.9947,37.9883 -7.1141,37.9673 -7.2012,37.9542 -7.2437,37.9412 -7.242,37.917 -7.2429,37.8886 -7.2717,37.8231 -7.3101,37.7728 -7.3769,37.7272 -7.4132,37.7015 -7.4368,37.657 -7.5144,37.5104 -7.5026,37.4865 -7.493,37.4806 -7.4746,37.457 -7.4612,37.4394 -7.4513,37.4152 -7.4372,37.3766 -7.4248,37.3251 -7.422,37.2113 -7.4092,37.1389 -7.4347,37.1373 -7.4621,37.136 -7.5496,37.1115 -7.5704,37.1028 -7.6085,37.0738 -7.748,36.9937 -7.8874,36.9675 -7.9625,36.9669 -8.0021,36.9807 -8.0337,37.0016 -8.0569,37.0131 -8.1001,37.0329 -8.1642,37.0505 -8.3625,37.0605 -8.3965,37.049 -8.4285,37.0445 -8.4996,37.0616 -8.6472,37.0672 -8.8029,37.0253 -8.9146,36.9747 -8.9771,36.9847 -8.9722,37.0107 -8.9371,37.0599 -8.9127,37.0887 -8.8947,37.1191 -8.8462,37.2311 -8.817,37.3387 -8.7842,37.4007 -8.7754,37.4821 -8.7758,37.6798 -8.7939,37.7241 -8.7801,37.7768 -8.7793,37.7866 -8.7876,37.8715 -8.7988,37.8896 -8.8275,37.9722 -8.7949,38.0464 -8.7842,38.0758 -8.7777,38.0968 -8.7674,38.1377 -8.7641,38.1689 -8.7652,38.2136 -8.7678,38.2581 -8.7747,38.2858 -8.7805,38.3061 -8.7905,38.3316 -8.7115,38.3738 -8.6617,38.3709 -8.7571,38.474 -8.8867,38.4747 -8.9069,38.4668 -8.9807,38.4203 -9.0507,38.3942 -9.0715,38.3898 -9.1716,38.3768 -9.1877,38.4086 -9.1713,38.4348 -9.1663,38.4658 -9.1713,38.4939 -9.1928,38.552 -9.2075,38.576 -9.2275,38.5975 -9.2617,38.6252 -9.2029,38.6351 -9.1473,38.6346 -9.0622,38.5878 -9.0158,38.6565 -9.0033,38.6862 -8.9359,38.7193 -8.9077,38.7223 -8.9075,38.727 -8.9172,38.7568 -8.9438,38.7974 -8.9675,38.8067 -8.9773,38.857 -8.9821,38.897 -9.0531,38.8114 -9.0665,38.7869 -9.0768,38.7613 -9.0805,38.7281 -9.0828,38.7039 -9.1062,38.674 -9.1999,38.6473 -9.3094,38.6333 -9.4171,38.6486 -9.463,38.662 -9.4781,38.7504 -9.4498,38.7961 -9.4317,38.8195 -9.4092,38.8746 -9.4,38.9058 -9.4045,38.9481 -9.4133,38.9677 -9.4063,39.0346 -9.3838,39.0738 -9.3521,39.119 -9.3271,39.181 -9.3248,39.2191 -9.3256,39.249 -9.3466,39.3125 -9.2806,39.3474 -9.2146,39.391 -9.1317,39.482 -9.073,39.5707 -9.0668,39.5959 -9.0349,39.6875 -9.0144,39.7308 -8.9722,39.8057 -8.9198,39.9192 -8.8841,40.0004 -8.8787,40.0098 -8.8626,40.051 -8.8502,40.0944 -8.8692,40.1977 -8.8384,40.2616 -8.8279,40.2912 -8.7876,40.4227 -8.7782,40.4586 -8.7738,40.4753 -8.7702,40.4921 -8.7654,40.5145 -8.7177,40.59 -8.6797,40.6155 -8.6479,40.6451 -8.6662,40.7299 -8.691,40.6726 -8.7187,40.6405 -8.7146,40.6819 -8.7058,40.7069 -8.6843,40.76 -8.6658,40.8233 -8.6559,40.858 -8.6334,40.9565 -8.6333,40.9724 -8.645,40.9957 -8.7171,41.1903 -8.7775,41.3746 -8.7664,41.4208 -8.7689,41.4375 -8.7873,41.5199 -8.8027,41.5702 -8.8607,41.6771 -8.8685,41.7046 -8.8674,41.7942 -8.8501,41.817 -8.8013,41.8554 -8.7715,41.8755 -8.7715,41.8755 169,3.0,Turkey 27.9745,41.9347 27.9896,41.8902 27.9937,41.8618 27.9493,41.8433 27.927,41.8163 27.929,41.7813 28.038,41.6008 28.052,41.5844 28.0935,41.5472 28.1586,41.4912 28.1782,41.4768 28.2039,41.4621 28.2219,41.4551 28.2542,41.4389 28.2929,41.4228 28.4188,41.3726 28.7529,41.2506 28.7955,41.2358 28.8983,41.2096 28.9889,41.1974 29.0086,41.2092 29.0492,41.1999 29.0674,41.1752 29.0313,41.1281 28.9993,41.1082 29.0286,41.0769 29.0156,41.0361 28.9964,41.0085 28.863,40.9318 28.7877,40.9099 28.5886,40.9143 28.5599,40.9321 28.5592,40.9606 28.5435,40.9983 28.5232,41.0253 28.4879,41.0335 28.5141,41.0125 28.5287,40.9749 28.5028,40.9446 28.4804,40.9441 28.4291,40.9739 28.4091,40.9874 28.3845,40.9972 28.3373,41.0082 28.2043,41.0328 28.1745,41.0341 28.1195,41.0312 28.0936,41.0255 28.0788,41.0192 28.0382,41.0133 27.9587,40.9814 27.9412,40.9549 27.9038,40.9226 27.8498,40.9217 27.817,40.9308 27.7898,40.9478 27.7387,40.9636 27.694,40.9661 27.6483,40.9612 27.4678,40.935 27.4474,40.918 27.423,40.8674 27.4151,40.8465 27.4081,40.8064 27.2542,40.6543 27.1397,40.5859 27.1004,40.5723 26.9834,40.5467 26.9337,40.5089 26.8415,40.487 26.6891,40.4324 26.6434,40.4028 26.6485,40.3817 26.5789,40.3105 26.5455,40.2812 26.5149,40.2609 26.4044,40.1922 26.3117,40.093 26.286,40.0636 26.1824,40.0078 26.1289,40.007 26.2078,40.1268 26.224,40.1519 26.232,40.1731 26.2313,40.2139 26.1961,40.2565 26.1758,40.2769 26.2061,40.2949 26.3821,40.3809 26.5069,40.4376 26.5684,40.4621 26.5888,40.4648 26.6105,40.4626 26.6467,40.4641 26.7409,40.51 26.7608,40.5221 26.7892,40.5458 26.7563,40.6048 26.7373,40.6142 26.7273,40.6144 26.6557,40.5933 26.6347,40.5912 26.6006,40.5903 26.5439,40.5861 26.402,40.5709 26.3167,40.5619 26.2788,40.5485 26.2532,40.5464 26.113,40.5466 26.0831,40.5493 26.0406,40.568 26.022,40.6078 26.0092,40.6899 26.0241,40.6884 26.0548,40.6903 26.0846,40.7018 26.1374,40.7726 26.1778,40.831 26.2152,40.8427 26.2517,40.8558 26.3245,40.9076 26.337,40.981 26.2879,41.0467 26.289,41.1881 26.3365,41.2078 26.3791,41.2131 26.5709,41.2845 26.5883,41.2973 26.5993,41.3181 26.5999,41.3667 26.5678,41.4991 26.5337,41.5644 26.483,41.5865 26.362,41.6439 26.3247,41.6639 26.3149,41.672 26.2966,41.6982 26.3077,41.7351 26.3452,41.775 26.4102,41.7778 26.4365,41.7768 26.4991,41.7808 26.5219,41.8046 26.5291,41.824 26.5387,41.8514 26.5304,41.8876 26.5849,41.9256 26.8961,41.9596 26.9252,41.9559 27.0001,42.0363 27.0328,42.0424 27.1954,42.0623 27.2488,42.0533 27.2714,42.0437 27.3257,42.0154 27.3354,41.9925 27.3557,41.9619 27.3738,41.9474 27.4035,41.9297 27.5315,41.8619 27.5575,41.8883 27.5953,41.9085 27.6677,41.9302 27.7941,41.9542 27.8285,41.9582 27.865,41.9474 27.9326,41.9367 27.9745,41.9347 27.9745,41.9347 964,3.0,Turkey 43.4011,41.0667 43.3947,41.0487 43.4245,40.9767 43.5065,40.9504 43.5353,40.9473 43.6129,40.8804 43.6828,40.7245 43.6908,40.699 43.6815,40.6209 43.6583,40.575 43.5933,40.4856 43.5331,40.4555 43.5237,40.4056 43.5473,40.3234 43.6021,40.229 43.6557,40.1122 43.6093,40.1012 43.5893,40.0796 43.6091,40.0581 43.8529,39.9738 43.8742,39.9685 43.9116,39.9657 43.9845,39.9653 44.2225,40.0012 44.2914,39.9771 44.339,39.9588 44.4275,39.918 44.4914,39.8538 44.5001,39.8345 44.5323,39.7873 44.5809,39.759 44.6857,39.6859 44.7184,39.6617 44.739,39.6421 44.7559,39.6013 44.7527,39.5863 44.6765,39.6573 44.548,39.7345 44.4111,39.6542 44.4178,39.5961 44.3659,39.3923 44.3415,39.3725 44.2805,39.3512 44.2451,39.343 44.1713,39.3641 44.1416,39.3726 44.0175,39.3674 43.9771,39.3414 43.9757,39.3332 44.0012,39.3083 44.0154,39.2919 44.1572,39.0926 44.1389,39.0129 44.1035,38.9616 44.1141,38.9244 44.1503,38.85 44.1916,38.8221 44.2245,38.8189 44.2412,38.7989 44.2439,38.7665 44.203,38.6808 44.2474,38.6041 44.2583,38.5696 44.2628,38.4663 44.253,38.4268 44.2454,38.4062 44.2466,38.3574 44.2594,38.3391 44.3778,38.3519 44.4236,38.2982 44.4141,38.274 44.3402,38.1686 44.2645,38.0544 44.1804,37.9179 44.1654,37.8568 44.2344,37.8307 44.5181,37.7244 44.5589,37.6756 44.5402,37.6485 44.5259,37.5717 44.5302,37.4011 44.5541,37.3923 44.5899,37.3859 44.7429,37.2797 44.7595,37.2557 44.7619,37.2272 44.734,37.1334 44.7286,37.1082 44.7153,37.1243 44.6871,37.1326 44.5836,37.1467 44.5243,37.1214 44.5093,37.108 44.4922,37.0912 44.4324,37.05 44.4121,37.0394 44.3781,37.0214 44.2917,36.9968 44.2829,36.9651 44.261,36.93 44.199,36.9444 44.138,37.0547 44.1723,37.1123 44.2046,37.1218 44.2104,37.1533 44.2039,37.1949 44.1726,37.2343 44.0609,37.2737 44.0383,37.2756 44.015,37.2744 43.9904,37.2806 43.9513,37.2758 43.898,37.238 43.8792,37.2101 43.8554,37.1849 43.7588,37.1804 43.5659,37.1882 43.4329,37.2097 43.1003,37.332 42.9465,37.2975 42.9041,37.2816 42.868,37.2858 42.8383,37.2938 42.7665,37.3254 42.7305,37.3419 42.7095,37.3295 42.6685,37.31 42.5323,37.1339 42.5239,37.1121 42.4761,37.106 42.3213,37.0759 42.3002,37.0653 42.3015,37.088 42.2959,37.1893 42.2389,37.2278 42.1603,37.2475 42.1254,37.2486 42.0933,37.2176 42.028,37.1665 42.0017,37.1511 41.9403,37.1311 41.7856,37.0883 41.4939,37.0439 41.4288,37.0389 41.4,37.0372 41.3082,37.0335 41.1624,37.0308 41.0646,37.0561 40.8763,37.0881 40.8474,37.0869 40.7533,37.081 40.7175,37.0766 40.635,37.0541 40.6171,37.0434 40.5817,37.0274 40.4602,36.9816 40.4296,36.9795 40.3948,36.974 40.3622,36.9599 40.2272,36.8872 40.2114,36.8781 40.1618,36.8545 39.9557,36.7733 39.8907,36.7516 39.8711,36.745 39.7661,36.7124 39.5363,36.6778 39.3877,36.6565 39.2574,36.6372 39.2066,36.627 39.1703,36.6242 39.1204,36.6286 39.0795,36.6424 39.0454,36.6544 39.0239,36.6616 38.9924,36.6672 38.9527,36.6646 38.9152,36.6557 38.8667,36.6539 38.7243,36.657 38.6749,36.6624 38.6335,36.6843 38.5779,36.7267 38.4908,36.8029 38.4634,36.8169 38.3827,36.8441 38.3362,36.857 38.1933,36.8727 38.1312,36.8645 38.0475,36.8323 38.006,36.8091 37.9737,36.7893 37.9438,36.7836 37.9065,36.7718 37.8683,36.7498 37.8421,36.7398 37.7276,36.7069 37.6868,36.7066 37.6609,36.7072 37.6204,36.696 37.5193,36.6557 37.4843,36.6368 37.3251,36.6142 37.2209,36.6234 37.2001,36.6237 37.0791,36.6181 36.9898,36.6786 36.9402,36.7164 36.8855,36.737 36.655,36.7882 36.619,36.7932 36.612,36.7925 36.6145,36.7739 36.5387,36.5787 36.5018,36.447 36.5202,36.3801 36.5351,36.3567 36.6133,36.2702 36.6424,36.2457 36.6355,36.1922 36.5689,36.1791 36.5279,36.1872 36.488,36.195 36.4591,36.1927 36.345,36.1729 36.3277,36.136 36.3343,36.0566 36.3363,35.9903 36.3276,35.9577 36.2528,35.9295 36.1766,35.9218 36.1399,35.8699 36.1356,35.8396 36.1355,35.8149 36.1215,35.7798 36.1088,35.7785 36.0973,35.7935 36.0813,35.8121 36.0633,35.8212 35.969,35.8597 35.876,35.8868 35.9318,35.9622 35.9081,36.0262 35.8951,36.055 35.8036,36.1783 35.7401,36.2497 35.739,36.2741 35.7723,36.3143 35.878,36.4101 35.9946,36.4915 36.1158,36.5474 36.1428,36.5563 36.1701,36.6138 36.1589,36.7262 36.1462,36.7508 36.1192,36.7875 36.0824,36.8219 36.0221,36.8674 35.964,36.8819 35.9105,36.8534 35.89,36.835 35.858,36.7997 35.777,36.7363 35.7471,36.7251 35.655,36.7201 35.5984,36.7119 35.5628,36.6926 35.529,36.6515 35.5648,36.6465 35.5897,36.641 35.5915,36.601 35.5872,36.5711 35.5648,36.5532 35.5123,36.539 35.4925,36.5496 35.4518,36.5691 35.3662,36.5395 35.3009,36.5042 35.1332,36.5811 34.9779,36.6593 34.9354,36.6785 34.8918,36.6837 34.8683,36.6812 34.8587,36.6759 34.845,36.705 34.8317,36.722 34.7902,36.7491 34.7317,36.7674 34.6897,36.7717 34.6604,36.77 34.6141,36.7641 34.5206,36.7309 34.4318,36.6645 34.3092,36.5925 34.2779,36.5744 34.2451,36.5508 34.2166,36.5282 34.1953,36.5053 34.1764,36.4758 34.108,36.4203 34.0843,36.4077 34.0323,36.3588 34.0297,36.3269 33.9872,36.2623 33.9444,36.2373 33.8855,36.2471 33.8227,36.2692 33.7722,36.2201 33.7016,36.166 33.6614,36.1389 33.6061,36.1482 33.5648,36.1411 33.4974,36.0993 33.3193,36.0975 33.2439,36.0841 33.0025,36.0506 32.8968,36.0565 32.8217,36.0279 32.7729,35.9911 32.729,35.9885 32.6274,35.9988 32.5371,36.0409 32.5242,36.0523 32.4822,36.0528 32.4587,36.059 32.3259,36.1348 32.2337,36.2277 32.1603,36.306 32.1467,36.3261 32.1335,36.3554 32.1072,36.3888 32.065,36.4321 32.023,36.4757 31.9613,36.5044 31.7815,36.5489 31.6987,36.5945 31.5415,36.6552 31.3376,36.7457 31.3103,36.7606 31.2489,36.7748 31.0062,36.8078 30.9524,36.813 30.9305,36.8142 30.8477,36.8125 30.7784,36.8043 30.7233,36.8028 30.6955,36.8143 30.6543,36.8401 30.6107,36.8286 30.5764,36.8025 30.5613,36.7839 30.5338,36.7461 30.521,36.685 30.5138,36.5748 30.4887,36.4535 30.4419,36.3861 30.4346,36.3485 30.4462,36.3226 30.4646,36.3024 30.4644,36.28 30.3891,36.1874 30.3654,36.1645 30.3512,36.1948 30.3265,36.2208 30.2417,36.2577 30.2205,36.2632 30.1692,36.2634 30.1396,36.2583 30.1055,36.245 30.1017,36.216 30.0532,36.1946 29.9367,36.1712 29.7345,36.1117 29.6865,36.1204 29.649,36.0977 29.6386,36.0779 29.5901,36.1302 29.532,36.1589 29.4662,36.165 29.3117,36.1905 29.277,36.2065 29.2455,36.2313 29.2209,36.2552 29.1457,36.2878 29.1101,36.3076 29.0793,36.3425 29.0598,36.4333 29.0866,36.4853 29.0869,36.497 29.0689,36.5128 29.0405,36.5179 29.0104,36.5041 28.9807,36.5011 28.986,36.5422 28.9963,36.5715 29.0492,36.5855 29.0148,36.6402 28.8937,36.7032 28.8281,36.6465 28.8133,36.6166 28.7554,36.6299 28.6197,36.6691 28.5822,36.7287 28.5712,36.7623 28.4191,36.8394 28.3571,36.8216 28.3485,36.7983 28.3831,36.7826 28.3504,36.7418 28.2737,36.7847 28.2474,36.8049 28.2249,36.8038 28.2094,36.7892 28.1988,36.7618 28.2105,36.7248 28.2357,36.6958 28.1939,36.6576 28.0298,36.5487 27.9476,36.5118 27.9307,36.5331 27.9233,36.5563 27.9459,36.5615 27.9807,36.5554 28.0141,36.5566 28.0339,36.578 28.0489,36.5983 28.0247,36.6327 27.997,36.6388 27.9769,36.6268 27.9527,36.6301 27.9333,36.6437 27.9661,36.658 28.0022,36.6661 28.0512,36.6626 28.0862,36.68 28.0833,36.7558 28.0555,36.7594 28.037,36.745 28.0003,36.7279 27.9714,36.717 27.9478,36.7111 27.8792,36.7039 27.7723,36.716 27.6963,36.7155 27.6723,36.7029 27.6524,36.6745 27.64,36.6506 27.4679,36.6291 27.4453,36.6137 27.4396,36.6089 27.3392,36.6429 27.3232,36.6634 27.4369,36.7084 27.4601,36.7045 27.7012,36.7364 27.8826,36.7528 27.9891,36.7814 28.0297,36.8936 28.1632,36.9344 28.2878,36.9968 28.236,37.002 28.1732,36.9978 27.9977,36.9831 27.8121,36.9759 27.6404,36.9604 27.4791,36.9513 27.388,36.9865 27.3002,36.963 27.2814,36.9348 27.2606,36.9222 27.2366,36.9143 27.2195,36.9236 27.1916,37.0022 27.1973,37.0286 27.2886,37.1116 27.3327,37.1091 27.3712,37.0857 27.4037,37.0631 27.514,37.09 27.559,37.1908 27.5279,37.2317 27.4854,37.2199 27.45,37.2258 27.3728,37.2639 27.3512,37.2943 27.3851,37.3662 27.3729,37.3688 27.338,37.3588 27.3229,37.3312 27.2968,37.3113 27.2779,37.3003 27.2057,37.2945 27.1591,37.3106 27.1828,37.3696 27.1884,37.4313 27.1759,37.5451 27.1581,37.5623 27.1896,37.6703 27.212,37.6983 27.2271,37.7608 27.2258,37.842 27.2301,37.8481 27.2381,37.8832 27.2322,37.911 27.2079,37.935 26.9437,38.0238 26.9076,38.0213 26.8873,38.0194 26.7825,38.1127 26.7279,38.17 26.6458,38.159 26.5907,38.1062 26.5737,38.0599 26.5534,38.0593 26.5105,38.0737 26.4886,38.0957 26.4537,38.1296 26.3947,38.1719 26.3236,38.1814 26.3003,38.1822 26.2814,38.1899 26.2412,38.2216 26.2401,38.2425 26.2492,38.3027 26.2543,38.3245 26.2812,38.331 26.2871,38.298 26.3165,38.2722 26.3347,38.263 26.3398,38.2627 26.4152,38.3026 26.4351,38.3189 26.4639,38.3572 26.4745,38.3826 26.4433,38.406 26.3856,38.4218 26.3531,38.404 26.3232,38.5231 26.3127,38.5804 26.3231,38.6114 26.3633,38.6236 26.3931,38.6276 26.4459,38.6239 26.4885,38.5899 26.5281,38.5552 26.577,38.4867 26.594,38.4148 26.5602,38.4098 26.6125,38.2903 26.6565,38.2679 26.7577,38.3108 26.7996,38.3224 26.8692,38.3309 27.0592,38.3569 27.0832,38.3673 27.1206,38.4096 27.0073,38.4178 26.9584,38.4101 26.9115,38.3986 26.845,38.4594 26.7176,38.5767 26.6982,38.5988 26.6921,38.6811 26.7897,38.7109 26.8645,38.7719 26.9864,38.8143 27.027,38.8295 27.0166,38.8829 26.9207,38.8935 26.8843,38.889 26.8515,38.8769 26.8255,38.8666 26.7659,38.912 26.7588,38.9396 26.7619,38.9802 26.845,39.0245 26.8337,39.0539 26.8105,39.0858 26.7772,39.1126 26.7235,39.1293 26.6931,39.1775 26.6089,39.219 26.6292,39.2571 26.7755,39.3548 26.859,39.4297 26.9009,39.4389 26.9154,39.5066 26.8987,39.531 26.8459,39.532 26.7812,39.5173 26.7255,39.5117 26.6585,39.5109 26.6338,39.5107 26.6237,39.5072 26.5457,39.4905 26.5031,39.4853 26.1698,39.4186 26.0957,39.4088 26.0749,39.4132 26.0354,39.4382 26.0691,39.542 26.098,39.5632 26.1198,39.5881 26.1252,39.6116 26.1277,39.642 26.1229,39.7769 26.1147,39.8641 26.1222,39.9018 26.1394,39.9347 26.1619,39.9579 26.19,39.9535 26.2135,39.9463 26.254,39.9604 26.2975,39.9796 26.3489,40.0572 26.3626,40.0947 26.4023,40.147 26.4779,40.1711 26.5737,40.239 26.6476,40.3022 26.6678,40.3333 26.7734,40.3504 26.8503,40.3502 26.9256,40.3373 26.9897,40.3455 27.0203,40.3805 27.0501,40.4023 27.0816,40.4071 27.2269,40.4131 27.2617,40.3601 27.2693,40.3396 27.3574,40.2942 27.3918,40.2788 27.4353,40.2681 27.4742,40.2601 27.5211,40.2595 27.5376,40.2679 27.6407,40.2642 27.7033,40.2647 27.7425,40.2698 27.8397,40.3303 27.7938,40.3519 27.7569,40.3465 27.6493,40.4473 27.6855,40.4766 27.7172,40.4841 27.8191,40.477 27.982,40.4423 27.9896,40.4177 27.9629,40.3969 27.8896,40.3663 27.8626,40.3431 27.8856,40.3192 27.9152,40.3116 27.9977,40.3239 28.037,40.3344 28.0714,40.344 28.1152,40.3508 28.1474,40.3523 28.1653,40.3488 28.2083,40.3581 28.4444,40.351 28.4704,40.35 28.6353,40.318 28.7159,40.3459 28.7521,40.3496 28.7906,40.3463 28.8446,40.334 28.8772,40.3171 28.8979,40.3142 28.9426,40.3118 29.016,40.3215 29.1019,40.3922 29.0403,40.432 28.987,40.4346 28.9358,40.4174 28.8755,40.4235 28.8525,40.4314 28.7376,40.4814 28.7665,40.5124 28.8131,40.5297 28.8549,40.5431 28.8704,40.5474 28.9156,40.5789 28.941,40.5937 28.9618,40.5983 29.1149,40.6118 29.2119,40.6169 29.3521,40.6565 29.3839,40.64 29.4391,40.6744 29.4702,40.6858 29.4954,40.6605 29.5135,40.6405 29.6609,40.6592 29.8606,40.667 29.8929,40.6762 29.8967,40.7065 29.8759,40.7159 29.6855,40.7263 29.5513,40.7295 29.5217,40.7251 29.4776,40.7234 29.3724,40.7238 29.2965,40.7612 29.2502,40.8022 29.2149,40.8222 29.1096,40.857 29.0896,40.8683 29.0034,40.927 28.9859,40.9882 29.0021,41.0049 29.0483,41.0721 29.0484,41.0934 29.0348,41.113 29.0475,41.1289 29.0935,41.1664 29.12,41.1783 29.1796,41.1905 29.2502,41.1817 29.4309,41.149 29.539,41.1265 29.5809,41.1295 29.714,41.1168 29.8213,41.101 29.8338,41.0989 29.9432,41.0934 30.1174,41.0944 30.1537,41.1052 30.2203,41.146 30.2431,41.1615 30.2851,41.1565 30.3136,41.1396 30.3354,41.1285 30.3834,41.1185 30.4517,41.101 30.4753,41.097 30.5642,41.0875 30.7152,41.04 30.8373,41.0305 30.8911,41.0285 30.9122,41.0284 30.9377,41.0286 31.0306,41.0322 31.1906,41.043 31.2561,41.0674 31.2942,41.091 31.2975,41.0964 31.3327,41.1242 31.3671,41.1635 31.3785,41.2325 31.5092,41.3163 31.5715,41.333 31.704,41.3865 31.9482,41.4955 32.1164,41.5621 32.1353,41.5864 32.233,41.6723 32.4855,41.7622 32.5578,41.7848 32.6396,41.7864 32.6475,41.7921 32.6765,41.8021 32.7278,41.811 32.7528,41.8115 32.7829,41.812 32.8667,41.8277 32.9056,41.8377 32.9416,41.859 33.0226,41.8906 33.1741,41.929 33.2925,41.9726 33.3526,41.9694 33.4973,41.9566 33.5269,41.9476 33.5527,41.9427 33.5857,41.939 33.6917,41.9322 33.7275,41.9303 33.7879,41.9275 33.877,41.9256 33.947,41.9338 34.0551,41.9288 34.1621,41.9123 34.2085,41.9002 34.2679,41.8936 34.3171,41.8962 34.507,41.9006 34.5672,41.8928 34.5935,41.8925 34.6679,41.895 34.6965,41.8993 34.7444,41.9093 34.7845,41.9209 34.8027,41.932 34.8415,41.9629 34.8689,41.9892 34.9009,42.0386 34.9306,42.0446 34.958,42.0385 34.9793,42.0305 34.999,42.018 35.0664,41.9535 35.0509,41.9198 35.0479,41.8713 35.0887,41.8109 35.1641,41.7236 35.2166,41.6788 35.2382,41.6662 35.4077,41.6066 35.4307,41.5998 35.4444,41.597 35.4574,41.591 35.5005,41.584 35.5276,41.5803 35.568,41.5839 35.5949,41.5896 35.7277,41.6245 35.8273,41.6537 35.8618,41.6659 35.882,41.6784 35.9036,41.6874 35.9237,41.685 36.0065,41.6418 36.0248,41.6277 36.0641,41.5852 36.0816,41.5481 36.0836,41.4975 36.0675,41.4625 36.0742,41.4289 36.123,41.3729 36.1904,41.3097 36.295,41.237 36.3501,41.2077 36.3817,41.1955 36.4171,41.1945 36.4423,41.2013 36.4852,41.2232 36.521,41.249 36.5622,41.3009 36.6073,41.3141 36.6613,41.3185 36.6839,41.3166 36.7593,41.3091 36.8133,41.2987 36.8802,41.2692 36.9534,41.2327 36.9782,41.211 36.9786,41.1778 36.9815,41.147 37.0015,41.1239 37.0784,41.1004 37.1012,41.0986 37.1869,41.0947 37.2457,41.0907 37.3665,41.0341 37.448,40.9959 37.4883,40.9828 37.5298,40.9913 37.5588,41.0044 37.5783,41.0333 37.6047,41.0713 37.631,41.0889 37.7018,41.0729 37.7335,41.0523 37.7311,41.0194 37.7419,40.9992 37.7631,40.9812 37.8431,40.9361 37.8824,40.9421 37.9361,40.9416 38.0449,40.9175 38.0639,40.9094 38.1079,40.9032 38.2752,40.8724 38.3032,40.8642 38.368,40.866 38.4657,40.8743 38.6572,40.904 38.6813,40.917 38.7111,40.9354 38.7306,40.9509 38.7631,40.9637 38.8757,40.9948 38.9523,40.9876 39.0011,40.9947 39.0447,41.0047 39.0701,41.011 39.0942,41.0192 39.1011,41.0271 39.112,41.0364 39.1571,41.0279 39.1795,41.0103 39.2093,41.003 39.2311,41.0054 39.2729,41.0198 39.2998,41.03 39.3314,41.0428 39.3601,41.0606 39.4334,41.0513 39.4971,41.0059 39.6363,40.9567 39.8577,40.9105 40.0265,40.8756 40.0517,40.8711 40.0736,40.8704 40.0949,40.874 40.2139,40.9109 40.2899,40.9376 40.3028,40.9479 40.3102,40.9562 40.3381,40.9726 40.4064,40.9969 40.4261,40.9964 40.5249,41.0084 40.5822,41.0322 40.6739,41.0905 40.7168,41.1201 40.7928,41.1492 40.8267,41.1421 40.8653,41.1403 40.9877,41.184 41.115,41.2387 41.1523,41.2612 41.1782,41.2781 41.2811,41.3242 41.3281,41.3271 41.3562,41.3476 41.4418,41.4347 41.4744,41.4772 41.5121,41.4714 41.6673,41.4456 41.7022,41.4219 41.7725,41.3836 41.8254,41.4114 41.8526,41.4416 41.9007,41.4699 41.9219,41.4712 42.0399,41.4606 42.1167,41.4608 42.2222,41.4429 42.2536,41.4301 42.3087,41.4134 42.397,41.388 42.4138,41.3867 42.425,41.3918 42.4996,41.4552 42.5325,41.5317 42.5457,41.538 42.5929,41.5458 42.6225,41.5478 42.7723,41.5356 42.8338,41.46 42.9571,41.3468 42.9808,41.3276 43.0671,41.2735 43.1745,41.1439 43.2902,41.1557 43.3189,41.1552 43.3703,41.1372 43.3957,41.1216 43.4147,41.0916 43.4011,41.0667 43.4011,41.0667 357,4.0,Azerbaijan 46.3878,41.8498 46.441,41.8463 46.5005,41.8345 46.5778,41.7705 46.6972,41.8131 46.7048,41.7837 46.7098,41.7485 46.7423,41.7219 46.7973,41.6878 46.8759,41.637 46.9568,41.5715 47.0276,41.5225 47.0646,41.5296 47.0937,41.5162 47.1943,41.3735 47.1961,41.3278 47.2098,41.2744 47.3062,41.2253 47.5108,41.1647 47.5342,41.1687 47.5654,41.1856 47.5863,41.1889 47.6559,41.164 47.6952,41.1501 47.7304,41.1523 47.7936,41.1615 47.8499,41.1786 47.8562,41.2051 47.8426,41.2315 47.8926,41.3093 48.0044,41.4172 48.0399,41.4335 48.0839,41.4414 48.12,41.4456 48.1623,41.4549 48.1824,41.4623 48.3116,41.5278 48.3331,41.5422 48.353,41.562 48.3703,41.5923 48.4645,41.7201 48.5172,41.7887 48.546,41.7772 48.6083,41.7372 48.6578,41.6907 48.7137,41.6326 48.7912,41.5501 48.8159,41.5135 48.8337,41.4785 48.9243,41.394 48.9492,41.3841 48.9689,41.3714 49.0724,41.2184 49.0733,41.1831 49.0875,41.1054 49.1254,41.0149 49.139,40.9929 49.1601,40.9661 49.1841,40.9412 49.3377,40.7987 49.364,40.7869 49.4032,40.7839 49.4283,40.7741 49.461,40.7455 49.4678,40.7214 49.4463,40.6754 49.4424,40.6423 49.4605,40.617 49.5061,40.5822 49.644,40.5333 49.7368,40.5191 49.7606,40.5167 49.7987,40.5214 49.8564,40.538 49.9049,40.5437 49.9318,40.5404 49.9643,40.5299 50.1653,40.4465 50.2654,40.3578 50.2833,40.3358 50.2926,40.3173 50.2987,40.2883 50.3064,40.217 50.2808,40.2285 50.2414,40.2614 50.1911,40.2843 50.1517,40.2933 50.0604,40.3123 49.8929,40.3036 49.7796,40.2767 49.5015,40.1663 49.4504,40.1288 49.4266,40.1105 49.3592,40.0063 49.3882,39.9702 49.3829,39.9202 49.3599,39.8551 49.33,39.7025 49.3206,39.6445 49.2526,39.58 49.2173,39.446 49.2332,39.4226 49.2793,39.3861 49.31,39.3695 49.344,39.3423 49.329,39.3063 49.28,39.2812 49.2528,39.295 49.2274,39.2987 49.2075,39.2904 49.1889,39.2706 49.1751,39.2436 49.1367,39.006 49.1376,38.9939 49.1348,38.9818 49.0934,38.9426 49.0687,38.9314 49.019,38.9205 48.995,38.9254 48.9942,38.9633 49.0398,38.9723 49.057,38.9826 49.0739,39.0036 49.0827,39.0251 49.0801,39.0495 48.978,39.1358 48.9373,39.1448 48.8985,39.1319 48.8671,39.0698 48.8673,39.0083 48.8869,38.9813 48.8688,38.9105 48.843,38.8577 48.8213,38.8336 48.8017,38.7022 48.807,38.526 48.815,38.4171 48.8233,38.3995 48.7763,38.4074 48.7189,38.4024 48.6775,38.3811 48.5982,38.3462 48.5588,38.3536 48.5347,38.3739 48.5008,38.4283 48.3682,38.5812 48.3342,38.5774 48.2974,38.5624 48.2672,38.5594 48.1793,38.6288 48.1828,38.6718 48.1205,38.7071 48.085,38.7178 48.0596,38.7287 48.0387,38.7401 47.9604,38.7897 47.9489,38.8193 47.948,38.8535 48.0125,38.9103 48.0796,38.9248 48.1208,38.9254 48.1603,38.9278 48.1993,38.9337 48.2192,38.9422 48.2441,38.9602 48.2607,38.9883 48.2623,39.0108 48.2291,39.0687 48.2078,39.0826 48.1645,39.0961 48.0689,39.1671 48.0573,39.2079 48.0591,39.2343 48.0841,39.2627 48.1337,39.292 48.1811,39.2985 48.2139,39.306 48.2929,39.3457 48.2754,39.3793 48.2568,39.3964 48.2187,39.4286 48.186,39.4503 48.1475,39.4819 48.0942,39.529 48.0177,39.6018 47.9983,39.6211 47.9733,39.6389 47.9494,39.6548 47.9201,39.6711 47.7485,39.6345 47.7292,39.6223 47.7056,39.5892 47.4783,39.4709 47.3966,39.454 47.328,39.4261 47.2736,39.3802 47.2549,39.3533 47.2233,39.3303 47.1362,39.296 47.1014,39.2911 47.0364,39.2604 46.9805,39.1941 46.9709,39.1526 46.8899,39.1126 46.8457,39.1241 46.812,39.1236 46.7861,39.1167 46.6965,39.0422 46.6828,39.0072 46.5898,38.9331 46.5103,38.8721 46.4781,38.8322 46.4333,38.9138 46.4399,38.9561 46.4537,38.9809 46.4615,39.0004 46.4553,39.0299 46.4326,39.0826 46.4152,39.0929 46.3962,39.0987 46.3621,39.1216 46.361,39.1647 46.3934,39.1735 46.4336,39.1596 46.4792,39.1454 46.5579,39.1775 46.5581,39.1856 46.5188,39.2097 46.4951,39.2253 46.3357,39.34 46.3216,39.3619 46.3235,39.3944 46.342,39.4071 46.3861,39.4136 46.4504,39.4314 46.483,39.5051 46.4636,39.5336 46.2945,39.582 46.2669,39.5807 46.242,39.5722 46.1818,39.5507 46.1452,39.5525 46.1274,39.5627 45.9954,39.6552 45.9812,39.6786 45.9683,39.7008 45.9463,39.7254 45.9216,39.7327 45.8983,39.7338 45.8554,39.747 45.8192,39.7639 45.7885,39.7842 45.7583,39.8156 45.7429,39.8475 45.735,39.8731 45.7172,39.8956 45.6892,39.9084 45.6678,39.9133 45.6433,39.9166 45.5461,39.927 45.5356,39.9524 45.5518,39.9694 45.5762,39.9769 45.6198,39.9807 45.6517,39.981 45.7015,39.9796 45.7624,39.9752 45.7856,39.9713 45.8181,39.9691 45.8457,39.9791 45.9149,40.0734 45.935,40.1857 45.8936,40.2269 45.8509,40.2193 45.8198,40.222 45.6004,40.3302 45.5757,40.3455 45.4742,40.4113 45.3516,40.5622 45.327,40.6178 45.3582,40.6743 45.3744,40.6878 45.3936,40.6964 45.4612,40.7172 45.5146,40.7314 45.5403,40.7544 45.5556,40.7899 45.557,40.8204 45.2888,40.9547 45.0345,41.0135 45.0181,41.0342 45.0202,41.0674 45.0662,41.072 45.1139,41.0685 45.1426,41.0746 45.159,41.0937 45.1492,41.1134 45.1312,41.1268 45.0816,41.155 44.9851,41.1769 44.9613,41.2506 44.9895,41.2699 45.0795,41.3302 45.1242,41.3582 45.1986,41.4026 45.2233,41.4106 45.2444,41.4143 45.2793,41.4141 45.5486,41.3353 45.654,41.302 45.6502,41.2653 45.6486,41.2407 45.6851,41.2137 45.7418,41.1841 45.7881,41.1662 45.8066,41.1595 45.8326,41.1512 45.8594,41.1428 45.9029,41.1326 45.934,41.1273 45.9765,41.124 45.9992,41.1257 46.0284,41.1326 46.0723,41.156 46.1765,41.1581 46.2104,41.132 46.2305,41.1165 46.2771,41.0837 46.2961,41.0707 46.3146,41.058 46.429,41.0054 46.4511,41.002 46.5585,41.0542 46.6026,41.1043 46.6331,41.1652 46.6469,41.212 46.6257,41.2709 46.5572,41.3184 46.5292,41.3329 46.4892,41.3404 46.4386,41.3494 46.2684,41.4366 46.1696,41.5518 46.1527,41.5782 46.1324,41.6304 46.1308,41.6511 46.1344,41.6781 46.1461,41.6997 46.1667,41.7153 46.1925,41.7174 46.227,41.7105 46.2609,41.7093 46.2869,41.7264 46.3506,41.7845 46.3717,41.8146 46.3878,41.8498 46.3878,41.8498 9,4.0,Azerbaijan 45.4666,40.5605 45.5109,40.5868 45.5258,40.6054 45.5015,40.6184 45.4474,40.6159 45.43,40.591 45.4438,40.5662 45.4666,40.5605 45.4666,40.5605 667,3.0,Greece 26.3247,41.6639 26.362,41.6439 26.483,41.5865 26.5337,41.5644 26.5678,41.4991 26.5999,41.3667 26.5993,41.3181 26.5883,41.2973 26.5709,41.2845 26.3791,41.2131 26.3365,41.2078 26.289,41.1881 26.2879,41.0467 26.337,40.981 26.3245,40.9076 26.2517,40.8558 26.2152,40.8427 26.1778,40.831 26.1374,40.7726 26.0846,40.7018 26.0548,40.6903 26.0241,40.6884 26.0092,40.6899 26.0011,40.7043 25.9927,40.7461 26.0062,40.7611 25.9872,40.7836 25.8761,40.8018 25.7702,40.8066 25.7358,40.8052 25.7133,40.8019 25.6849,40.7999 25.6472,40.8061 25.5457,40.8236 25.4665,40.8407 25.3846,40.8594 25.3172,40.8928 25.2716,40.8995 25.2009,40.8923 25.142,40.8958 25.0994,40.9221 25.1291,40.9455 25.1074,40.964 25.0401,40.9614 25.0036,40.9585 24.8535,40.8693 24.8246,40.8491 24.7673,40.8061 24.7464,40.8059 24.5929,40.8151 24.5656,40.8524 24.5311,40.9045 24.4741,40.909 24.3976,40.8979 24.3611,40.8893 24.304,40.8492 24.2842,40.8304 24.2805,40.7927 24.1199,40.695 24.0576,40.6719 24.0274,40.6712 23.9591,40.6831 23.9335,40.6918 23.8794,40.7109 23.8542,40.7292 23.8088,40.7407 23.6897,40.6989 23.6642,40.6669 23.6571,40.6338 23.7626,40.5373 23.7884,40.4543 23.7946,40.4158 23.8262,40.3764 23.8504,40.355 23.8901,40.3387 23.9286,40.3333 23.9713,40.3396 24.1426,40.3043 24.2066,40.2676 24.3483,40.137 24.3608,40.103 24.2766,40.0742 24.2599,40.0861 24.2517,40.1094 24.1297,40.2333 24.0861,40.2446 24.0629,40.2424 24.0167,40.2477 23.997,40.255 23.9648,40.27 23.9348,40.2876 23.9193,40.3035 23.8979,40.316 23.8754,40.3216 23.809,40.3267 23.6975,40.3058 23.667,40.2754 23.6588,40.2526 23.6698,40.223 23.6924,40.1954 23.7551,40.1469 23.8474,40.1286 23.8755,40.1184 23.9418,40.084 23.9583,40.0672 23.9817,39.9691 23.9559,39.9079 23.9097,39.8987 23.9,39.8981 23.8678,39.9234 23.7945,39.9804 23.7583,40.043 23.7304,40.0795 23.6935,40.123 23.671,40.1464 23.6391,40.1729 23.6138,40.1855 23.3694,40.2345 23.3447,40.2203 23.3217,40.1998 23.3004,40.1646 23.3363,40.0986 23.4478,40.0004 23.473,39.9841 23.5724,39.9524 23.6437,39.9265 23.7147,39.8803 23.6865,39.869 23.6117,39.8712 23.5721,39.8759 23.4052,39.9262 23.3478,39.948 23.2908,40.078 23.2923,40.1367 23.2812,40.1729 23.2631,40.1907 23.2315,40.2035 23.1461,40.2279 23.0793,40.254 22.8682,40.3511 22.8125,40.4295 22.8375,40.4579 22.8578,40.4584 22.8911,40.4667 22.9153,40.474 22.9456,40.5034 22.9137,40.5809 22.8704,40.5987 22.832,40.5832 22.8254,40.5493 22.7842,40.5232 22.6736,40.4728 22.622,40.4646 22.5544,40.4193 22.5852,40.355 22.5993,40.3377 22.5775,40.2391 22.5176,40.1042 22.5382,40.0123 22.5645,39.9672 22.5851,39.9506 22.5951,39.9443 22.6722,39.9131 22.8262,39.7368 22.8298,39.7067 22.8353,39.6819 22.8823,39.5744 22.896,39.5447 22.9111,39.5309 22.992,39.4841 23.0871,39.4126 23.1069,39.3958 23.232,39.2822 23.2452,39.266 23.2961,39.1816 23.3125,39.138 23.2894,39.1075 23.175,39.0616 23.1302,39.0496 23.0917,39.0438 23.0535,39.0419 23.0242,39.0542 23.0464,39.0984 23.083,39.0985 23.073,39.0634 23.1434,39.0865 23.1811,39.1085 23.1905,39.1382 23.1475,39.2115 23.1309,39.2285 23.0901,39.2612 22.9645,39.3086 22.9102,39.3153 22.7934,39.2222 22.7868,39.1982 22.7931,39.1681 22.8032,39.1441 22.8248,39.1131 22.8457,39.1314 22.8827,39.1123 22.939,39.069 22.9646,39.0242 22.9644,38.9991 23.0033,38.9923 23.042,38.993 23.0207,38.9728 22.9791,38.9341 22.9071,38.8851 22.8026,38.8475 22.7198,38.8271 22.6505,38.8357 22.6198,38.8541 22.5843,38.8653 22.494,38.8225 22.5256,38.7897 22.5517,38.7819 22.5827,38.7822 22.6382,38.7868 22.6829,38.7795 22.7339,38.7401 22.9231,38.7083 23.0356,38.6447 23.0615,38.6051 23.0805,38.5858 23.103,38.5896 23.1575,38.6121 23.2531,38.6105 23.2864,38.6005 23.3056,38.565 23.2747,38.5244 23.3058,38.4937 23.3684,38.4646 23.4348,38.4556 23.5035,38.4562 23.5615,38.4116 23.5708,38.3881 23.6256,38.3174 23.6441,38.3057 23.7676,38.281 23.8197,38.2702 23.895,38.252 23.9287,38.2386 24.0421,38.152 24.0329,38.1083 23.9739,38.0251 23.9793,37.929 23.9989,37.8302 24.0248,37.8027 24.0548,37.756 24.0582,37.7345 24.0343,37.6411 24.0025,37.6107 23.9161,37.6299 23.8931,37.678 23.8764,37.7187 23.8561,37.7405 23.8229,37.7657 23.7879,37.7813 23.7431,37.792 23.5319,37.9381 23.5591,37.9611 23.5635,37.986 23.5441,38.0003 23.4807,37.9968 23.4275,37.9778 23.3962,37.9601 23.3847,37.9435 23.3008,37.9354 23.2063,37.933 23.1462,37.9093 23.1185,37.8869 23.0997,37.8771 23.0786,37.8727 23.0335,37.8703 22.9884,37.8774 22.9617,37.8398 22.9798,37.8044 23.0328,37.7971 23.0533,37.7962 23.0733,37.7994 23.1183,37.7158 23.1356,37.5727 23.1652,37.5531 23.2469,37.5113 23.3005,37.4907 23.332,37.5095 23.3159,37.5442 23.2974,37.5633 23.3751,37.5463 23.3909,37.4853 23.4149,37.4629 23.4673,37.4348 23.4907,37.418 23.4862,37.3907 23.4682,37.3813 23.3869,37.3677 23.3561,37.3703 23.3238,37.374 23.2401,37.359 23.2003,37.3371 23.1705,37.2612 23.1493,37.2485 23.1216,37.2551 23.038,37.314 23.0417,37.3527 23.0659,37.3494 23.1061,37.3858 23.0984,37.4062 22.949,37.474 22.8996,37.4931 22.7476,37.5482 22.7231,37.5433 22.6958,37.5213 22.6984,37.4434 22.7288,37.366 22.7793,37.3037 22.8745,37.1366 22.8658,37.0946 22.8775,37.0721 22.8902,37.0692 22.9067,37.0778 22.927,37.0746 22.9764,36.9833 22.979,36.9493 22.9846,36.8946 23.0226,36.8273 23.0609,36.7813 23.0838,36.7295 23.057,36.7072 23.0288,36.6995 22.999,36.6824 22.9988,36.6157 23.0051,36.589 23.0489,36.5358 23.08,36.5216 23.1712,36.3993 23.1078,36.3853 23.0599,36.399 22.9396,36.4808 22.9247,36.5073 22.8583,36.606 22.7525,36.7582 22.7008,36.7647 22.6031,36.7623 22.5632,36.7493 22.5435,36.7328 22.4835,36.6269 22.4517,36.5585 22.4561,36.4795 22.4743,36.4484 22.4786,36.4131 22.4598,36.3452 22.4476,36.3621 22.3684,36.4329 22.3485,36.4946 22.3269,36.6583 22.268,36.7739 22.2144,36.8319 22.1565,36.8514 22.1173,36.9093 22.1234,36.9772 22.0918,36.9853 22.0301,36.9884 22.0004,36.9831 21.9506,36.9659 21.9169,36.9513 21.9011,36.9328 21.8955,36.8152 21.9093,36.7721 21.933,36.7568 21.9095,36.7209 21.8468,36.6824 21.8178,36.7182 21.7954,36.7558 21.7386,36.7559 21.7356,36.7492 21.6752,36.7756 21.6631,36.8021 21.659,36.8426 21.6787,36.8811 21.6818,36.9034 21.6094,36.968 21.584,36.9856 21.5529,37.0223 21.5371,37.1133 21.5547,37.1609 21.5767,37.1823 21.6018,37.1927 21.6439,37.2293 21.6676,37.2748 21.653,37.3344 21.6312,37.3818 21.6215,37.3999 21.5762,37.4629 21.5479,37.4925 21.5294,37.5076 21.5041,37.525 21.373,37.6094 21.2574,37.7414 21.19,37.7731 21.1461,37.7837 21.1189,37.7872 21.0831,37.8018 21.0832,37.8433 21.1032,37.8947 21.124,37.8889 21.1562,37.8867 21.1837,37.9001 21.2554,37.9517 21.2876,37.9862 21.3389,38.0715 21.3449,38.1117 21.356,38.1686 21.4165,38.1582 21.4498,38.1436 21.5064,38.1176 21.5752,38.1079 21.613,38.1162 21.6447,38.1292 21.6904,38.1789 21.7036,38.2061 21.7127,38.2321 21.748,38.2632 21.8245,38.2966 21.9297,38.2865 21.9959,38.2549 22.0129,38.2311 22.1437,38.16 22.1906,38.1407 22.3487,38.1036 22.4259,38.0905 22.507,38.0707 22.6222,38.0335 22.6916,38.0002 22.731,37.9639 22.7692,37.9288 22.8327,37.8969 22.8777,37.8957 22.9255,37.9065 22.9459,37.9375 22.9187,37.9592 22.8689,37.9834 22.83,37.9904 22.8511,38.0074 22.9252,38.0377 22.9718,38.0273 22.9911,38.0178 23.0218,38.0152 23.0696,38.0161 23.0836,38.0182 23.0941,38.0197 23.1381,38.0319 23.1849,38.0577 23.194,38.1107 23.0878,38.1676 22.995,38.1746 22.9364,38.1706 22.9129,38.1651 22.9142,38.1442 22.893,38.152 22.8049,38.1835 22.7435,38.1959 22.6597,38.2807 22.5578,38.2875 22.504,38.3022 22.4804,38.3321 22.4324,38.383 22.3788,38.4031 22.3482,38.3444 22.3642,38.3087 22.3447,38.2917 22.1645,38.2941 22.139,38.3041 22.0963,38.3282 22.0134,38.355 21.9465,38.3635 21.9187,38.3662 21.6841,38.31 21.6315,38.3119 21.608,38.3111 21.5674,38.3006 21.5114,38.2729 21.4355,38.3235 21.3297,38.3898 21.309,38.3488 21.2388,38.2962 21.2101,38.2788 21.1361,38.257 21.0808,38.3127 21.0908,38.3318 21.1105,38.3505 21.0819,38.3882 21.0747,38.3864 21.0824,38.3998 21.0586,38.4597 20.96,38.6278 20.8732,38.6884 20.7821,38.716 20.741,38.7166 20.7052,38.761 20.722,38.866 20.7533,38.8882 20.9425,38.8983 21.0029,38.8775 20.9981,38.8561 21.0196,38.8384 21.057,38.8205 21.1128,38.8881 21.1363,38.9385 21.1162,38.9651 21.0738,39.007 21.0547,39.013 21.0172,38.9695 20.9049,39.0142 20.793,39.0696 20.7469,39.0415 20.7297,38.9769 20.7598,38.9539 20.8,38.9212 20.7058,38.9096 20.6775,38.9476 20.6863,38.9684 20.6716,39.0104 20.6545,39.031 20.5069,39.1417 20.446,39.2306 20.3582,39.2404 20.3186,39.2439 20.2688,39.2777 20.1876,39.3947 20.2181,39.3973 20.2006,39.475 20.1466,39.5844 20.0308,39.6371 19.9832,39.6467 19.9976,39.6522 20.0701,39.6315 20.1142,39.6118 20.1395,39.6058 20.1689,39.6005 20.1929,39.603 20.2906,39.6895 20.2706,39.7272 20.267,39.7627 20.2786,39.7673 20.3513,39.7436 20.3772,39.7572 20.3859,39.7756 20.3837,39.7998 20.3421,39.8468 20.3099,39.8786 20.2879,39.9469 20.4026,40.018 20.4222,40.0275 20.434,40.0289 20.4516,40.0205 20.528,40.0214 20.5553,40.0256 20.5767,40.0301 20.5934,40.04 20.6392,40.0511 20.6929,40.1798 20.686,40.2248 20.7088,40.2618 20.7304,40.2667 20.7588,40.3494 20.7635,40.386 20.8049,40.4166 20.8917,40.418 20.9209,40.4241 21.0134,40.5183 21.0248,40.575 21.0226,40.6288 20.9981,40.6637 20.9554,40.7472 20.955,40.8099 21.0926,40.8114 21.1218,40.8113 21.2856,40.8224 21.3206,40.8272 21.3454,40.837 21.3807,40.8679 21.499,40.8618 21.5188,40.8449 21.5464,40.8271 21.5704,40.8268 21.7566,40.8847 21.881,41.0192 21.8863,41.0489 21.9471,41.0855 22.1752,41.1213 22.229,41.1245 22.274,41.1068 22.3129,41.0881 22.4118,41.0751 22.4541,41.075 22.5558,41.0737 22.7065,41.1097 22.727,41.1814 22.7303,41.2053 22.7308,41.2599 22.7455,41.2814 22.7773,41.3012 22.8949,41.2963 22.9042,41.2955 22.944,41.2888 23.0627,41.2741 23.0882,41.2744 23.1535,41.277 23.1762,41.2865 23.1966,41.3076 23.1979,41.3295 23.2553,41.3575 23.4084,41.3626 23.5126,41.3478 23.5657,41.334 23.601,41.3313 23.7059,41.3619 23.7636,41.3901 23.8538,41.4053 23.9438,41.394 24.0332,41.4387 24.0311,41.4751 24.0601,41.5013 24.1241,41.4943 24.1668,41.497 24.1819,41.5082 24.2249,41.5226 24.273,41.5008 24.4327,41.505 24.5323,41.4498 24.5755,41.3858 24.734,41.3238 24.7756,41.3057 24.7786,41.3315 24.7846,41.357 24.8673,41.3653 25.0023,41.3238 25.027,41.3161 25.1285,41.2711 25.1514,41.2589 25.1564,41.255 25.2069,41.2071 25.2478,41.1965 25.3057,41.2035 25.4686,41.243 25.5262,41.273 25.6177,41.2711 25.7788,41.2896 25.8484,41.2628 25.8701,41.2646 25.9477,41.2737 26.104,41.3083 26.1622,41.3928 26.1468,41.4933 26.0937,41.5835 26.0653,41.5811 26.0328,41.6132 26.03,41.6445 26.0419,41.6672 26.1026,41.6922 26.1364,41.7007 26.1966,41.6924 26.235,41.6659 26.2658,41.6609 26.3247,41.6639 26.3247,41.6639 10,-5.0,United States -71.1224,41.5864 -71.1293,41.4926 -71.1346,41.4478 -71.1992,41.4118 -71.2574,41.4109 -71.2113,41.5144 -71.1649,41.5837 -71.1227,41.6048 -71.1224,41.5864 -71.1224,41.5864 1162,9.0,Japan 131.5096,34.6237 131.5739,34.6356 131.6099,34.6431 131.6456,34.6508 131.6619,34.6573 131.6744,34.664 131.8808,34.8293 131.9058,34.8639 131.9279,34.8871 131.9596,34.9111 132.0447,34.9682 132.0765,34.9819 132.1178,34.9926 132.1288,34.9968 132.1457,35.0124 132.1883,35.0609 132.227,35.1111 132.2335,35.1221 132.2432,35.1326 132.3757,35.2079 132.4076,35.2215 132.4241,35.2279 132.4415,35.2325 132.4578,35.2407 132.4673,35.247 132.4802,35.2591 132.4872,35.269 132.493,35.2808 132.5027,35.307 132.5095,35.3296 132.5066,35.3422 132.4951,35.3484 132.4697,35.3592 132.4582,35.3681 132.4617,35.3813 132.5093,35.4008 132.6577,35.4491 132.681,35.4553 132.6939,35.4565 132.7146,35.457 132.7568,35.4559 132.7887,35.4543 132.882,35.5106 132.897,35.5252 132.9184,35.5425 132.9292,35.5423 133.076,35.489 133.0764,35.4751 133.0812,35.4631 133.0946,35.4439 133.1068,35.4354 133.1411,35.4166 133.1554,35.4119 133.1721,35.4083 133.1873,35.4058 133.2084,35.4053 133.2286,35.4057 133.2447,35.4077 133.2617,35.4182 133.2742,35.4304 133.2831,35.4374 133.2974,35.4473 133.3074,35.4529 133.3471,35.466 133.3703,35.4721 133.3889,35.4756 133.4017,35.4768 133.4262,35.4765 133.445,35.4739 133.4614,35.4698 133.4758,35.4649 133.525,35.4532 133.5631,35.4477 133.5782,35.4463 133.6059,35.4453 133.64,35.4457 133.9108,35.4703 133.9427,35.4741 134.0858,35.4993 134.0984,35.5091 134.1091,35.5238 134.1283,35.5367 134.1608,35.5495 134.1848,35.5556 134.1944,35.5578 134.2175,35.5678 134.3404,35.606 134.3633,35.6076 134.5973,35.613 134.6191,35.6111 134.6381,35.6067 134.6512,35.598 134.7219,35.5935 134.7414,35.5954 134.8589,35.6424 134.879,35.6543 134.893,35.6637 134.9106,35.6891 134.9924,35.7124 135.0163,35.7181 135.0347,35.7212 135.0467,35.7223 135.1024,35.6849 135.1091,35.6765 135.1307,35.644 135.1277,35.6286 135.114,35.6197 135.0987,35.6185 135.0907,35.6097 135.0303,35.5356 135.0228,35.5259 135.0168,35.5144 135.0126,35.4986 135.0182,35.4858 135.1647,35.4323 135.2116,35.4269 135.2259,35.4381 135.2161,35.4596 135.201,35.4543 135.1789,35.4623 135.1702,35.4848 135.1711,35.499 135.1786,35.5071 135.2731,35.5462 135.2853,35.5484 135.3006,35.4998 135.2996,35.4816 135.3354,35.4494 135.3461,35.4466 135.4515,35.437 135.5377,35.4366 135.5497,35.4398 135.5605,35.4441 135.6462,35.4821 135.6551,35.4891 135.7916,35.609 135.7872,35.6629 135.795,35.6765 135.8382,35.7009 135.8528,35.698 135.867,35.6718 135.8735,35.655 135.8666,35.6392 135.8609,35.6285 135.8854,35.6094 135.8962,35.6088 135.9048,35.6206 135.9219,35.7062 135.9218,35.7227 135.9152,35.7423 135.909,35.7559 135.9035,35.7651 135.8851,35.7849 135.8773,35.7931 135.8551,35.812 135.8442,35.8183 135.8301,35.8302 135.7838,35.9193 135.7842,35.9358 135.8925,36.0789 135.9511,36.1549 136.0047,36.2011 136.0655,36.2292 136.1807,36.3125 136.229,36.3566 136.3405,36.4721 136.3528,36.4853 136.4065,36.5417 136.4347,36.5729 136.4705,36.6148 136.4778,36.6244 136.5168,36.6826 136.5336,36.7103 136.5428,36.7287 136.5728,36.7902 136.5826,36.8163 136.5899,36.8415 136.5885,36.9239 136.5869,36.9395 136.5506,37.0508 136.504,37.0924 136.5005,37.1057 136.503,37.1343 136.5101,37.1539 136.558,37.2832 136.5726,37.2979 136.592,37.3112 136.6071,37.3202 136.6644,37.3407 136.6876,37.3469 136.7011,37.3479 136.7306,37.3452 136.7428,37.3477 136.8469,37.3816 136.8967,37.4015 136.9058,37.4091 136.9145,37.4171 136.9233,37.425 136.9452,37.4355 136.9624,37.4412 137.068,37.4751 137.0861,37.4789 137.0995,37.4799 137.1139,37.4789 137.1433,37.4761 137.1623,37.471 137.1754,37.4627 137.1791,37.4529 137.1792,37.3975 137.1721,37.3879 137.0684,37.3186 136.9652,37.2448 136.891,37.1602 136.8552,37.139 136.8428,37.1364 136.8286,37.1375 136.7768,37.1553 136.7415,37.1554 136.6962,37.0899 136.6859,37.058 136.684,37.0462 136.6903,37.0262 136.8031,36.9995 136.8244,37.007 136.8347,37.02 136.8649,37.0153 136.8743,36.95 136.8737,36.917 136.8314,36.8366 136.8113,36.8135 136.8184,36.7961 136.8263,36.7878 136.8931,36.7404 136.9133,36.7304 136.9988,36.7071 137.0175,36.7034 137.1228,36.7054 137.1355,36.7073 137.1522,36.7138 137.1673,36.7223 137.2058,36.7486 137.2165,36.7588 137.2248,36.7736 137.241,36.8159 137.2411,36.8322 137.2411,36.846 137.2494,36.8709 137.2635,36.8844 137.2821,36.8934 137.2932,36.8979 137.3045,36.9012 137.365,36.9144 137.4021,36.9221 137.4365,36.928 137.4457,36.9308 137.5846,36.9742 137.6254,36.9859 137.6495,36.991 137.7194,37.0119 137.731,37.0153 137.7593,37.0255 137.7751,37.033 137.8438,37.0663 138.0286,37.1191 138.0626,37.131 138.0898,37.1426 138.1192,37.1618 138.3982,37.3568 138.5468,37.5217 138.5576,37.5381 138.5643,37.5494 138.5737,37.5682 138.5853,37.5945 138.5905,37.6078 138.5979,37.6324 138.6013,37.6444 138.6038,37.6577 138.6058,37.6736 138.6081,37.6855 138.6156,37.7048 138.6327,37.7328 138.6434,37.7501 138.6553,37.7645 138.6731,37.78 138.6922,37.7949 138.7202,37.8165 138.7374,37.8281 138.788,37.8531 138.7987,37.8579 138.8433,37.8753 138.8555,37.8785 138.8992,37.8926 138.94,37.9066 138.9509,37.9107 139.0516,37.9513 139.0719,37.9637 139.0918,37.9763 139.1156,37.994 139.13,38.0047 139.1583,38.0261 139.1811,38.0455 139.2416,38.1118 139.2616,38.1759 139.2648,38.2369 139.2657,38.2538 139.2652,38.2755 139.2662,38.2922 139.2683,38.3091 139.2769,38.3383 139.2872,38.3631 139.3019,38.3959 139.3844,38.5394 139.4261,38.6082 139.4426,38.63 139.4602,38.6383 139.5154,38.6791 139.5551,38.7179 139.568,38.7316 139.5793,38.7476 139.6032,38.7999 139.6732,38.984 139.7163,39.1158 139.7861,39.2519 139.7987,39.2661 139.8058,39.2771 139.8232,39.3087 139.8345,39.3343 139.8451,39.3653 139.8579,39.4023 139.8636,39.4208 139.8735,39.4784 139.882,39.5411 139.8813,39.5585 139.8753,39.6434 139.8742,39.6537 139.8733,39.6643 139.8715,39.6747 139.8682,39.6897 139.8576,39.7347 139.8529,39.7491 139.8487,39.7582 139.8351,39.7805 139.8209,39.7971 139.8083,39.8088 139.7878,39.8234 139.7716,39.8337 139.7592,39.8404 139.7424,39.845 139.7226,39.8481 139.7055,39.847 139.6816,39.8407 139.6734,39.8295 139.671,39.8194 139.6336,39.8106 139.5641,39.8133 139.5245,39.8641 139.5189,39.8731 139.5139,39.8847 139.5065,39.9343 139.5089,39.9454 139.5202,39.9479 139.5319,39.937 139.552,39.9294 139.6178,39.9129 139.6402,39.9148 139.6531,39.917 139.6643,39.9209 139.6958,39.9389 139.7055,39.9464 139.7183,39.9598 139.7297,39.9757 139.7499,40.0115 139.7758,40.0617 139.8174,40.1476 139.8296,40.1856 139.8359,40.231 139.836,40.2418 139.8336,40.2734 139.8276,40.2906 139.8209,40.3015 139.7473,40.383 139.7539,40.4293 139.7551,40.4459 139.7537,40.4615 139.7442,40.4908 139.7339,40.506 139.7133,40.52 139.6745,40.5302 139.6626,40.5422 139.6612,40.5523 139.8077,40.6848 139.8174,40.6922 139.8405,40.7033 139.8625,40.7056 139.8749,40.7028 139.8934,40.6933 139.9114,40.6863 139.922,40.6861 139.9413,40.6914 139.9588,40.6973 140.027,40.7257 140.0382,40.7307 140.0542,40.7396 140.0684,40.7511 140.077,40.7606 140.0844,40.7718 140.0905,40.785 140.0944,40.7972 140.112,40.856 140.1474,40.9917 140.124,41.0482 140.1284,41.0883 140.1362,41.163 140.1443,41.1915 140.1527,41.2005 140.1631,41.2009 140.2105,41.1782 140.2224,41.1678 140.2303,41.1598 140.247,41.144 140.2639,41.1364 140.2863,41.1351 140.3005,41.141 140.3178,41.1536 140.3321,41.1653 140.3557,41.1737 140.3731,41.1747 140.4015,41.1667 140.4463,41.135 140.4552,41.1207 140.4566,41.1079 140.4518,41.0899 140.4455,41.077 140.4393,41.0585 140.438,41.0421 140.4392,41.0264 140.4648,40.8943 140.4682,40.8795 140.4788,40.8454 140.4912,40.8227 140.5047,40.8061 140.516,40.7936 140.5293,40.7849 140.5612,40.7746 140.586,40.775 140.6049,40.7781 140.6226,40.7842 140.6328,40.791 140.6425,40.7987 140.651,40.8082 140.6785,40.8445 140.6804,40.8558 140.6774,40.8657 140.6643,40.899 140.68,40.9379 140.6897,40.9455 140.739,40.9347 140.7569,40.925 140.7697,40.9104 140.7942,40.8865 140.8043,40.8795 140.8918,40.8286 140.9227,40.8144 140.9416,40.8108 140.9562,40.816 140.9659,40.823 140.9759,40.8308 140.9863,40.8428 141.0021,40.8696 141.0125,40.8884 141.0346,40.9323 141.0393,40.945 141.0456,40.9634 141.0847,41.1004 141.0793,41.1229 141.0676,41.1463 141.0582,41.159 141.0515,41.1677 141.0348,41.1837 141.0047,41.2055 140.9897,41.2139 140.9676,41.2158 140.951,41.1951 140.9627,41.1901 140.9285,41.1597 140.8689,41.131 140.8527,41.128 140.8378,41.1295 140.8074,41.1396 140.7775,41.1359 140.6926,41.1113 140.6424,41.0882 140.6262,41.0796 140.6094,41.0765 140.5985,41.077 140.5882,41.0841 140.5803,41.0923 140.5736,41.106 140.5694,41.1233 140.645,41.3538 140.7172,41.4786 140.7292,41.4826 140.8934,41.4238 140.9119,41.4139 140.9375,41.3959 140.9578,41.3774 140.9705,41.366 140.9774,41.3572 140.9827,41.3482 140.9919,41.3354 141.0007,41.3271 141.0144,41.3156 141.0306,41.3078 141.0601,41.2988 141.0765,41.2958 141.1065,41.2931 141.1208,41.2938 141.1411,41.2954 141.1608,41.2991 141.1787,41.3053 141.2009,41.3161 141.2234,41.3272 141.2612,41.2972 141.2248,41.1579 141.2179,41.1448 141.2089,41.1305 141.2025,41.1124 141.2015,41.0984 141.2062,40.8801 141.2083,40.8336 141.21,40.814 141.2223,40.6995 141.2247,40.6841 141.2277,40.669 141.2353,40.6447 141.2671,40.5483 141.2726,40.5342 141.2781,40.5248 141.2833,40.5158 141.2885,40.5072 141.378,40.486 141.3895,40.4845 141.4393,40.4421 141.4458,40.4334 141.4539,40.4202 141.4651,40.4131 141.4812,40.4023 141.4957,40.3915 141.5037,40.3832 141.5138,40.3705 141.627,40.2219 141.6479,40.1799 141.6691,40.1123 141.6613,40.073 141.6516,40.0653 141.6437,40.055 141.6406,40.0431 141.6409,40.0325 141.6473,40.0182 141.6549,40.0103 141.7049,39.9734 141.748,39.9525 141.7561,39.9444 141.7646,39.9181 141.7966,39.7437 141.7869,39.6083 141.8394,39.5621 141.8728,39.5111 141.878,39.5022 141.8633,39.4217 141.8426,39.3703 141.8231,39.37 141.7954,39.3722 141.7523,39.337 141.7156,39.286 141.708,39.222 141.7085,39.2044 141.6995,39.1101 141.6944,39.0736 141.6772,39.0193 141.6583,38.9761 141.5586,38.9753 141.4464,38.9512 141.4402,38.9414 141.4443,38.9258 141.4541,38.8788 141.4532,38.8412 141.443,38.8438 141.4033,38.842 141.3913,38.8299 141.3441,38.7369 141.3267,38.6379 141.3424,38.5769 141.3584,38.4705 141.3585,38.3432 141.3498,38.256 141.3315,38.2207 141.271,38.2579 141.2481,38.2888 141.2508,38.3185 141.2352,38.3378 141.1697,38.3551 141.1554,38.3568 141.1195,38.359 141.1062,38.3588 141.0685,38.3526 140.9082,38.3216 140.8939,38.3169 140.8687,38.295 140.8568,38.2749 140.7668,38.1052 140.7533,38.0627 140.7366,37.9911 140.7324,37.9626 140.7312,37.9403 140.7312,37.9295 140.732,37.895 140.7344,37.8768 140.7399,37.853 140.7722,37.742 140.7937,37.7284 140.8134,37.7138 140.8285,37.6975 140.8333,37.6885 140.8366,37.6784 140.8472,37.5366 140.8534,37.4144 140.8537,37.3333 140.8514,37.316 140.8189,37.1414 140.7898,36.9434 140.783,36.9272 140.7737,36.9177 140.7395,36.8922 140.6884,36.8779 140.6399,36.8604 140.6255,36.8446 140.6135,36.8258 140.6133,36.8066 140.5833,36.7719 140.5689,36.7492 140.562,36.7381 140.4532,36.4897 140.4223,36.381 140.3848,36.2215 140.3825,36.2069 140.3847,36.1701 140.3873,36.1492 140.3891,36.1388 140.4059,36.0694 140.4093,36.0565 140.4178,36.0406 140.4391,36.0042 140.4477,35.9915 140.5947,35.7793 140.6543,35.7035 140.6412,35.6552 140.4926,35.6339 140.481,35.6305 140.4591,35.6226 140.4437,35.6146 140.4057,35.5874 140.3868,35.5739 140.3631,35.5564 140.3548,35.5489 140.2968,35.4968 140.2883,35.4881 140.2689,35.4643 140.2548,35.4417 140.2312,35.3892 140.2237,35.3701 140.216,35.3455 140.2144,35.3345 140.2141,35.3234 140.2164,35.3078 140.2208,35.293 140.2316,35.2728 140.2353,35.2554 140.2345,35.1943 140.2329,35.1829 140.2255,35.1639 140.2167,35.1441 140.2093,35.1341 140.1505,35.0905 140.0539,35.0611 140.0417,35.058 139.9408,35.047 139.821,34.976 139.8118,34.9694 139.7909,34.9329 139.7845,34.8863 139.7734,34.872 139.7606,34.8656 139.7263,34.8561 139.7082,34.8526 139.6824,34.851 139.6571,34.8559 139.5909,34.9124 139.5905,34.9239 139.6146,34.9283 139.6277,34.9289 139.6454,34.9326 139.6779,34.9451 139.686,34.9573 139.6835,34.9704 139.6647,35.0245 139.6434,35.1147 139.6425,35.1254 139.6677,35.2393 139.7391,35.3356 139.7885,35.3907 139.8608,35.447 139.9225,35.4968 139.9315,35.5125 139.9272,35.5273 139.8935,35.5754 139.8826,35.5872 139.8598,35.6036 139.8141,35.6183 139.7868,35.6208 139.7559,35.6168 139.5958,35.5933 139.5872,35.5814 139.585,35.5669 139.586,35.5502 139.59,35.5248 139.6033,35.4721 139.5968,35.4623 139.5773,35.4495 139.5457,35.4382 139.5222,35.433 139.4966,35.4307 139.4652,35.4179 139.4537,35.3456 139.4691,35.2582 139.4764,35.2421 139.5067,35.2239 139.5262,35.2192 139.5441,35.2183 139.5641,35.2122 139.4981,35.098 139.4788,35.0907 139.4606,35.0864 139.4439,35.0866 139.4338,35.0929 139.4413,35.1205 139.4427,35.1407 139.4316,35.1774 139.4276,35.1866 139.3872,35.239 139.3771,35.2462 139.269,35.2646 139.2546,35.2658 139.2224,35.2643 139.1646,35.2606 139.1456,35.2584 139.1035,35.2499 139.0572,35.2326 139.036,35.2229 139.0099,35.2097 138.993,35.1985 138.9795,35.1827 138.9664,35.1586 138.9607,35.1456 138.933,35.0718 138.9201,35.0578 138.9137,35.0454 138.9085,35.0182 138.9109,34.9515 138.9162,34.9427 138.929,34.9287 138.9488,34.9221 138.967,34.9019 138.9712,34.8818 138.9629,34.8487 138.9584,34.8356 138.8879,34.7327 138.8806,34.7221 138.8017,34.6275 138.7321,34.5803 138.7057,34.568 138.6706,34.5547 138.6495,34.5563 138.6275,34.5655 138.5664,34.6421 138.569,34.6761 138.5838,34.6903 138.5859,34.7231 138.5867,34.7835 138.5857,34.8421 138.5883,34.9156 138.5941,34.9375 138.603,34.959 138.6201,34.9667 138.6442,34.9707 138.6644,34.9634 138.714,34.9696 138.7264,34.9957 138.6666,35.0415 138.6549,35.0477 138.637,35.0572 138.5816,35.0792 138.5616,35.0841 138.5437,35.0859 138.5312,35.085 138.5187,35.0827 138.3974,35.0566 138.3877,35.0504 138.1532,34.8191 138.0454,34.6625 138.026,34.6273 138.02,34.6151 138.0186,34.5923 138.0221,34.5776 138.0276,34.5686 138.0351,34.5607 137.9867,34.559 137.8587,34.5994 137.8036,34.6136 137.7825,34.6151 137.7502,34.6127 137.6856,34.5986 137.6671,34.5964 137.641,34.595 137.621,34.5951 137.4579,34.6162 137.4132,34.6303 137.3503,34.6233 137.2305,34.6095 137.1685,34.6017 137.15,34.5985 137.1208,34.5901 137.0653,34.5721 136.9982,34.5498 136.9655,34.5374 136.9479,34.5334 136.851,34.5294 136.8461,34.5396 136.8838,34.5935 136.8924,34.6012 136.9086,34.602 136.9641,34.6067 137.0058,34.6152 137.1642,34.6691 137.1705,34.6801 137.15,34.7233 137.1434,34.7319 137.1216,34.7505 137.1119,34.7577 137.0991,34.7631 137.0365,34.7591 136.9761,34.7294 136.9135,34.7164 136.8662,34.7177 136.8494,34.7206 136.8389,34.7296 136.8287,34.7424 136.8113,34.7679 136.803,34.7926 136.8035,34.8204 136.8061,34.8345 136.8087,34.8693 136.8005,34.8802 136.7812,34.853 136.7604,34.8182 136.7475,34.7892 136.7394,34.7444 136.7403,34.7339 136.7465,34.7226 136.773,34.695 136.779,34.6863 136.7899,34.6687 136.7962,34.6467 136.7858,34.6438 136.7551,34.6514 136.7458,34.6561 136.7005,34.6817 136.686,34.692 136.6773,34.6997 136.6701,34.7079 136.6476,34.8476 136.6457,34.8634 136.6467,34.8749 136.6495,34.8901 136.6546,34.9059 136.661,34.9173 136.6727,34.9312 136.6838,34.9404 136.7082,34.9642 136.7241,34.9918 136.725,35.0063 136.7161,35.0401 136.673,35.0397 136.6443,35.0254 136.5679,34.9818 136.5587,34.9786 136.5206,34.9639 136.4897,34.9479 136.4809,34.9408 136.4739,34.9302 136.4651,34.9074 136.4715,34.8947 136.4783,34.8752 136.4689,34.8313 136.4629,34.8153 136.439,34.7869 136.424,34.7735 136.4082,34.7607 136.3954,34.749 136.375,34.7269 136.3605,34.7074 136.3538,34.6964 136.3431,34.6581 136.3442,34.6378 136.3588,34.5628 136.3952,34.5503 136.4108,34.5518 136.4303,34.5532 136.4491,34.5499 136.4649,34.5426 136.5175,34.5047 136.5908,34.4608 136.6161,34.4576 136.6501,34.4524 136.6806,34.4378 136.6904,34.4311 136.738,34.3951 136.744,34.3671 136.7203,34.2283 136.6753,34.2061 136.6606,34.2032 136.6498,34.2038 136.6106,34.2131 136.5943,34.2246 136.6022,34.2316 136.5875,34.2561 136.4915,34.26 136.4127,34.2211 136.3034,34.1833 136.195,34.1535 136.1767,34.158 136.167,34.1515 136.1265,34.1221 136.1157,34.1046 136.0881,33.9905 136.1011,33.9439 136.098,33.9311 136.0889,33.9242 136.0526,33.8986 136.0264,33.8822 135.9986,33.8757 135.9732,33.8651 135.9422,33.8467 135.9192,33.8251 135.907,33.8123 135.8961,33.7973 135.8871,33.7802 135.8777,33.7564 135.8722,33.7371 135.8646,33.7175 135.8472,33.68 135.8403,33.6706 135.8195,33.6475 135.8073,33.6267 135.775,33.5391 135.7617,33.5257 135.7326,33.4999 135.7142,33.4864 135.596,33.4175 135.4137,33.459 135.356,33.476 135.2817,33.5026 135.2316,33.5362 135.2241,33.5437 135.1605,33.6193 135.1733,33.6446 135.1903,33.6388 135.2055,33.6417 135.2228,33.6638 135.2029,33.6816 135.1446,33.7137 135.1043,33.7284 135.0191,33.7704 134.8895,33.8378 134.8866,33.8503 134.9101,33.9305 134.9538,34.0187 135.0205,34.1023 134.9593,34.177 134.9373,34.2009 134.9227,34.2113 134.9573,34.279 134.9697,34.2816 135.052,34.3116 135.1203,34.3525 135.1913,34.4117 135.2039,34.4238 135.2607,34.4872 135.2769,34.5096 135.2822,34.5268 135.2792,34.5902 135.2439,34.6525 135.1583,34.6794 135.1397,34.6771 135.0479,34.6454 135.0175,34.625 135.0134,34.6134 134.9949,34.6026 134.9781,34.5972 134.8886,34.5784 134.8739,34.5801 134.7944,34.5952 134.7383,34.6246 134.7157,34.6428 134.702,34.6535 134.5877,34.718 134.5681,34.7241 134.534,34.7336 134.5002,34.7391 134.4893,34.7397 134.4768,34.7387 134.3256,34.7158 134.2391,34.6814 134.1716,34.6618 134.1492,34.6597 134.1253,34.6653 134.0763,34.6765 134.0682,34.6652 134.0755,34.6505 134.0157,34.5859 133.9632,34.5516 133.9456,34.5426 133.9253,34.5368 133.8993,34.5441 133.8858,34.554 133.8758,34.5608 133.8597,34.5673 133.8204,34.5676 133.7588,34.5447 133.753,34.5347 133.7535,34.5214 133.7636,34.5114 133.7773,34.518 133.7842,34.5281 133.7966,34.5403 133.8065,34.546 133.8304,34.5507 133.8489,34.5537 133.8683,34.546 133.8503,34.5085 133.7633,34.4122 133.7446,34.4072 133.7257,34.41 133.6529,34.4253 133.5959,34.4519 133.5489,34.4824 133.5296,34.4832 133.5057,34.4783 133.4949,34.4742 133.3032,34.3834 133.1697,34.3073 133.1273,34.3053 133.1408,34.3156 133.143,34.3267 133.0946,34.3821 133.079,34.3846 133.0679,34.378 133.0621,34.3658 133.0441,34.313 133.0369,34.2806 133.0175,34.2394 132.8987,34.2114 132.8926,34.263 132.8739,34.286 132.7295,34.2774 132.6478,34.2696 132.6374,34.2649 132.6081,34.2325 132.5966,34.2166 132.6026,34.2028 132.5927,34.1934 132.5184,34.169 132.4822,34.1599 132.46,34.1571 132.3984,34.1511 132.3784,34.1539 132.3285,34.255 132.3321,34.2842 132.2369,34.3261 132.2269,34.3259 132.1991,34.3209 132.1822,34.3153 132.1648,34.3057 132.1507,34.2957 132.0533,34.198 132.0611,34.1538 132.0659,34.1382 132.0697,34.1231 132.068,34.1107 132.0418,33.9525 132.0253,33.9269 132.0078,33.9129 131.958,33.9036 131.9609,33.8708 131.9824,33.8191 131.9829,33.797 131.9718,33.7886 131.8895,33.7395 131.8792,33.7346 131.8665,33.7334 131.8972,33.7682 131.8774,33.8573 131.6657,33.9596 131.6529,33.9787 131.6162,34.0054 131.5748,34.0155 131.4341,33.9917 131.2256,33.9383 131.1646,33.9139 131.154,33.9089 131.0878,33.8808 131.0024,33.8945 130.9945,33.9046 130.9935,33.9156 130.9779,33.9423 130.9384,33.9735 130.922,33.9828 130.8901,33.9958 130.8603,34.0016 130.8277,33.9693 130.8208,33.9506 130.8103,33.9382 130.747,33.8789 130.7354,33.8758 130.7236,33.8836 130.7146,33.8967 130.7173,34.087 130.725,34.0954 130.7539,34.1281 130.7579,34.1433 130.7548,34.1532 130.7423,34.187 130.7364,34.1957 130.7142,34.2221 130.7099,34.2549 130.7667,34.3627 130.775,34.3753 130.7951,34.3868 130.807,34.3902 130.9955,34.3786 131.0417,34.3598 131.0399,34.3321 131.0926,34.3386 131.1464,34.3503 131.2359,34.3837 131.2434,34.4131 131.3843,34.5648 131.4205,34.6033 131.4333,34.6151 131.4526,34.6173 131.5096,34.6237 131.5096,34.6237 26,-5.0,United States -70.4595,41.4187 -70.4517,41.4106 -70.4449,41.4023 -70.413,41.3614 -70.4122,41.3087 -70.4218,41.3061 -70.4507,41.3074 -70.4823,41.3098 -70.5037,41.3105 -70.5325,41.3091 -70.5788,41.3051 -70.5993,41.3022 -70.6306,41.2955 -70.6452,41.2892 -70.6557,41.279 -70.6567,41.2666 -70.668,41.262 -70.6837,41.2697 -70.7051,41.2838 -70.7144,41.2905 -70.7375,41.3144 -70.5589,41.4121 -70.5199,41.4271 -70.4659,41.4221 -70.4595,41.4187 -70.4595,41.4187 18,-5.0,United States -69.9229,41.3372 -69.8986,41.2813 -69.8634,41.2359 -69.8663,41.2196 -69.883,41.2087 -69.8975,41.2036 -69.9171,41.2012 -69.9382,41.2005 -69.9971,41.2015 -70.0114,41.2019 -70.0443,41.21 -70.1356,41.2353 -70.1009,41.2477 -70.0808,41.2491 -70.0132,41.2498 -69.9386,41.3127 -69.9229,41.3372 -69.9229,41.3372 187,5.0,Armenia 43.4011,41.0667 43.4867,41.0887 43.5104,41.0892 43.5399,41.0832 43.5776,41.0767 43.6746,41.0672 43.6962,41.0665 43.7315,41.0722 43.7734,41.0992 43.7964,41.1139 43.8322,41.1189 43.9325,41.1179 44.0622,41.1357 44.0841,41.1385 44.1123,41.1506 44.1882,41.1772 44.2799,41.1661 44.3691,41.1458 44.4231,41.1412 44.5051,41.139 44.6671,41.1657 44.7633,41.1662 44.7874,41.1667 44.8082,41.1704 44.9168,41.2236 44.9613,41.2506 44.9851,41.1769 45.0816,41.155 45.1312,41.1268 45.1492,41.1134 45.159,41.0937 45.1426,41.0746 45.1139,41.0685 45.0662,41.072 45.0202,41.0674 45.0181,41.0342 45.0345,41.0135 45.2888,40.9547 45.557,40.8204 45.5556,40.7899 45.5403,40.7544 45.5146,40.7314 45.4612,40.7172 45.3936,40.6964 45.3744,40.6878 45.3582,40.6743 45.327,40.6178 45.3516,40.5622 45.4742,40.4113 45.5757,40.3455 45.6004,40.3302 45.8198,40.222 45.8509,40.2193 45.8936,40.2269 45.935,40.1857 45.9149,40.0734 45.8457,39.9791 45.8181,39.9691 45.7856,39.9713 45.7624,39.9752 45.7015,39.9796 45.6517,39.981 45.6198,39.9807 45.5762,39.9769 45.5518,39.9694 45.5356,39.9524 45.5461,39.927 45.6433,39.9166 45.6678,39.9133 45.6892,39.9084 45.7172,39.8956 45.735,39.8731 45.7429,39.8475 45.7583,39.8156 45.7885,39.7842 45.8192,39.7639 45.8554,39.747 45.8983,39.7338 45.9216,39.7327 45.9463,39.7254 45.9683,39.7008 45.9812,39.6786 45.9954,39.6552 46.1274,39.5627 46.1452,39.5525 46.1818,39.5507 46.242,39.5722 46.2669,39.5807 46.2945,39.582 46.4636,39.5336 46.483,39.5051 46.4504,39.4314 46.3861,39.4136 46.342,39.4071 46.3235,39.3944 46.3216,39.3619 46.3357,39.34 46.4951,39.2253 46.5188,39.2097 46.5581,39.1856 46.5579,39.1775 46.4792,39.1454 46.4336,39.1596 46.3934,39.1735 46.361,39.1647 46.3621,39.1216 46.3962,39.0987 46.4152,39.0929 46.4326,39.0826 46.4553,39.0299 46.4615,39.0004 46.4537,38.9809 46.4399,38.9561 46.4333,38.9138 46.4781,38.8322 46.4542,38.8346 46.39,38.8462 46.3146,38.8633 46.2891,38.8664 46.2329,38.8522 46.207,38.8387 46.1834,38.8233 46.1337,38.8005 46.1168,38.7976 46.0618,38.8664 46.0455,38.8923 45.9073,39.1306 45.9078,39.1539 45.9244,39.179 45.9439,39.2051 45.9234,39.2313 45.794,39.3039 45.7674,39.402 45.7577,39.5048 45.7304,39.5213 45.6767,39.5349 45.565,39.5156 45.5379,39.5074 45.4968,39.4894 45.467,39.4729 45.4409,39.4603 45.4037,39.4497 45.2657,39.4948 45.2052,39.5665 45.0146,39.7276 44.9861,39.7345 44.9603,39.7253 44.9378,39.7075 44.8997,39.685 44.8663,39.6752 44.8288,39.6784 44.7976,39.6806 44.7339,39.6668 44.7184,39.6617 44.6857,39.6859 44.5809,39.759 44.5323,39.7873 44.5001,39.8345 44.4914,39.8538 44.4275,39.918 44.339,39.9588 44.2914,39.9771 44.2225,40.0012 43.9845,39.9653 43.9116,39.9657 43.8742,39.9685 43.8529,39.9738 43.6091,40.0581 43.5893,40.0796 43.6093,40.1012 43.6557,40.1122 43.6021,40.229 43.5473,40.3234 43.5237,40.4056 43.5331,40.4555 43.5933,40.4856 43.6583,40.575 43.6815,40.6209 43.6908,40.699 43.6828,40.7245 43.6129,40.8804 43.5353,40.9473 43.5065,40.9504 43.4245,40.9767 43.3947,41.0487 43.4011,41.0667 43.4011,41.0667 9,5.0,Armenia 44.9643,40.9844 44.9878,40.9926 44.9935,41.0136 44.962,41.0409 44.9309,41.0392 44.9225,41.0112 44.9484,40.9867 44.9643,40.9844 44.9643,40.9844 6,5.0,Armenia 45.1674,40.9232 45.1791,40.9391 45.1402,40.9534 45.1443,40.9331 45.1674,40.9232 45.1674,40.9232 133,2.0,Italy 8.3549,39.1821 8.4131,39.2249 8.4213,39.2466 8.4074,39.2953 8.387,39.2992 8.3602,39.3287 8.3808,39.4028 8.4019,39.4492 8.4367,39.5882 8.4322,39.6374 8.4409,39.7144 8.4859,39.6792 8.5123,39.7075 8.5304,39.7348 8.5401,39.7719 8.5457,39.8003 8.5425,39.8228 8.5089,39.8574 8.4454,39.8652 8.4185,39.8498 8.3848,39.8567 8.3873,39.9014 8.3977,39.9618 8.453,40.0981 8.4504,40.1816 8.4459,40.276 8.3559,40.4471 8.2906,40.542 8.1847,40.5701 8.1529,40.5417 8.1372,40.575 8.1674,40.5905 8.1612,40.6465 8.1387,40.6754 8.138,40.6984 8.1812,40.8674 8.217,40.8921 8.2211,40.8635 8.2733,40.814 8.2957,40.8014 8.3452,40.7902 8.4461,40.776 8.4685,40.7744 8.4938,40.7776 8.5313,40.7855 8.568,40.794 8.5927,40.8025 8.6089,40.8226 8.627,40.8446 8.6894,40.8661 8.7378,40.8683 8.7705,40.8722 8.7981,40.8883 8.8381,40.9203 8.8614,40.9533 9.0004,41.0758 9.0347,41.0839 9.1484,41.1451 9.1522,41.1927 9.2204,41.2083 9.5003,41.1004 9.5495,41.0716 9.6208,40.9432 9.4977,40.8742 9.5534,40.8668 9.5996,40.8751 9.6462,40.8065 9.7369,40.6205 9.7291,40.5927 9.7295,40.5844 9.7372,40.5519 9.7915,40.4948 9.8108,40.4816 9.7962,40.4229 9.7868,40.3969 9.7482,40.34 9.7215,40.3275 9.6926,40.3086 9.6443,40.263 9.6238,40.237 9.6104,40.2065 9.6136,40.1478 9.6437,40.0941 9.6853,40.0573 9.7004,39.9955 9.6821,39.8904 9.6619,39.7643 9.6574,39.7349 9.6581,39.7084 9.6625,39.6864 9.6389,39.505 9.6292,39.4419 9.6179,39.3862 9.5873,39.2886 9.5547,39.1843 9.5566,39.1469 9.5524,39.1018 9.509,39.0743 9.43,39.0804 9.3979,39.097 9.3785,39.1141 9.3537,39.1336 9.3302,39.1502 9.3092,39.162 9.2829,39.17 9.0017,39.219 9.0014,39.0826 9.0041,39.058 9.0103,39.0357 9.0314,39.0012 8.9948,38.9444 8.8902,38.8589 8.8394,38.8343 8.7002,38.878 8.635,38.8468 8.6044,38.875 8.5549,38.9661 8.54,39.0063 8.4939,39.0171 8.4634,38.9926 8.4385,38.9564 8.4253,38.9211 8.3972,38.915 8.3487,38.9864 8.3347,39.03 8.3455,39.0618 8.4147,39.0631 8.4427,39.0459 8.4478,39.0738 8.4207,39.1192 8.3859,39.1567 8.3549,39.1821 8.3549,39.1821 74,-5.0,United States -72.7677,40.7102 -72.7905,40.7278 -72.9109,40.7071 -72.9951,40.6847 -73.0398,40.6731 -73.3379,40.62 -73.4603,40.5995 -73.5518,40.5742 -73.4866,40.5579 -73.517,40.5486 -73.5526,40.5481 -73.696,40.5465 -73.676,40.5691 -73.6698,40.5898 -73.7116,40.6108 -73.7352,40.6136 -73.7584,40.6111 -73.7983,40.59 -73.7798,40.5636 -73.8421,40.5394 -73.9032,40.5349 -73.9312,40.5799 -73.9297,40.6032 -73.9037,40.6341 -73.901,40.6488 -73.8384,40.727 -73.8157,40.7465 -73.7341,40.759 -73.6303,40.8058 -73.5165,40.8631 -73.4885,40.8744 -73.3897,40.888 -73.2534,40.8796 -73.1261,40.8646 -73.0982,40.8714 -73.0498,40.8969 -72.9368,40.9224 -72.7934,40.924 -72.6814,40.9196 -72.6583,40.9178 -72.538,40.9355 -72.5139,40.944 -72.4776,40.9694 -72.4282,40.9989 -72.3535,41.0426 -72.2513,41.0946 -72.1858,41.1156 -72.1424,41.1109 -72.1584,41.0828 -72.1861,41.073 -72.2886,41.0388 -72.5175,40.8716 -72.485,40.8601 -72.3918,40.8587 -72.3368,40.8763 -72.3025,40.9186 -72.2464,40.9537 -72.1643,40.9731 -72.0358,40.989 -72.0107,40.9592 -71.9543,40.9698 -71.9222,40.987 -71.9017,41.0046 -71.8212,41.0357 -71.7679,41.0284 -71.9851,40.9356 -72.2533,40.8411 -72.3473,40.8097 -72.443,40.7794 -72.5662,40.7487 -72.5988,40.7437 -72.7196,40.7241 -72.7677,40.7102 -72.7677,40.7102 557,6.0,Tajikistan 73.5564,39.4105 73.57,39.3212 73.5698,39.2974 73.5467,39.249 73.5294,39.217 73.5214,39.1917 73.6295,39.0326 73.6773,39.0059 73.7429,38.9525 73.7534,38.929 73.747,38.9037 73.7207,38.8936 73.6826,38.8929 73.6512,38.8857 73.6248,38.8688 73.6097,38.8428 73.6101,38.8147 73.6252,38.7949 73.6647,38.718 73.7038,38.6066 73.7058,38.5908 73.7157,38.5695 73.7438,38.5477 73.8409,38.4967 73.869,38.4908 73.9801,38.5017 73.9772,38.5238 73.9636,38.5509 74.0241,38.6237 74.0465,38.6335 74.2558,38.6311 74.2957,38.6165 74.5785,38.5205 74.6938,38.4803 74.7548,38.4294 74.7687,38.378 74.7627,38.3424 74.7418,38.3188 74.7197,38.3004 74.7038,38.2821 74.6951,38.2578 74.6933,38.1523 74.7186,38.0313 74.7456,38.0089 74.7647,38.0014 74.8059,37.9833 74.8169,37.9654 74.8111,37.8728 74.8074,37.7994 74.8282,37.7783 74.8611,37.7644 74.8875,37.7443 74.8405,37.644 74.8159,37.628 74.805,37.6102 74.8225,37.5618 74.8367,37.5367 74.8555,37.5175 74.9395,37.4799 74.9707,37.4639 75.0885,37.3646 74.9979,37.2802 74.9802,37.271 74.8468,37.2057 74.8173,37.1958 74.7412,37.278 74.7248,37.2902 74.5715,37.3504 74.5412,37.3443 74.4488,37.34 74.3344,37.3522 74.2973,37.3595 74.2248,37.3649 74.1567,37.3674 74.1337,37.3548 74.0486,37.2942 73.9432,37.2698 73.7749,37.2255 73.7453,37.2086 73.7202,37.1865 73.6419,37.1799 73.5347,37.2013 73.524,37.2217 73.55,37.2582 73.6221,37.2672 73.6731,37.3017 73.6792,37.3908 73.6504,37.3969 73.6146,37.3957 73.573,37.3933 73.5164,37.3952 73.4746,37.4063 73.4445,37.4192 73.4084,37.4306 73.3599,37.4341 73.3388,37.434 73.2027,37.4183 73.1805,37.4111 73.0618,37.3611 73.0118,37.3207 72.9055,37.2623 72.7969,37.2082 72.7387,37.1934 72.7042,37.1874 72.6827,37.1689 72.6636,37.139 72.6386,37.0937 72.6269,37.0708 72.6127,37.0492 72.5672,36.9839 72.4229,36.9604 72.3365,36.9614 72.3155,36.9612 72.2521,36.9482 72.2117,36.9367 72.1854,36.9255 72.1294,36.9012 71.9537,36.789 71.8372,36.7093 71.749,36.6511 71.7265,36.6435 71.688,36.6371 71.6656,36.6339 71.6015,36.6308 71.5834,36.6349 71.5216,36.6566 71.483,36.6899 71.4593,36.7225 71.3728,36.8853 71.3634,36.9034 71.3374,37.0253 71.344,37.1245 71.3541,37.1679 71.3697,37.1891 71.3889,37.2173 71.3954,37.2368 71.3982,37.2677 71.3993,37.3285 71.3933,37.3762 71.402,37.5211 71.4103,37.5674 71.4477,37.6845 71.4815,37.7552 71.4941,37.7734 71.4965,37.7943 71.4991,37.8317 71.4903,37.8691 71.4456,37.9018 71.4125,37.905 71.3413,37.8829 71.2955,37.8646 71.2349,37.8477 71.1579,37.8853 71.1719,37.9397 71.221,38.0424 71.2448,38.0886 71.2615,38.1123 71.2711,38.1523 71.2674,38.205 71.2113,38.254 71.177,38.2596 71.1538,38.2614 71.118,38.2769 71.0832,38.3048 71.0567,38.3382 70.8937,38.4235 70.8656,38.429 70.6854,38.3986 70.6176,38.3668 70.5539,38.3114 70.5054,38.2682 70.4491,38.2101 70.397,38.1192 70.249,37.9761 70.2183,37.9577 70.2044,37.9562 70.1869,37.934 70.1518,37.9006 70.1165,37.8864 70.07,37.8866 70.0728,37.8294 70.0852,37.8094 70.1121,37.7915 70.1429,37.7799 70.1765,37.7289 70.1894,37.6868 70.1934,37.6575 70.161,37.5738 70.0635,37.4943 70.0357,37.4867 69.9949,37.4909 69.9704,37.4994 69.9434,37.4996 69.9217,37.5033 69.8591,37.5306 69.8409,37.5606 69.8197,37.5712 69.7996,37.572 69.7754,37.5662 69.754,37.5578 69.7012,37.5407 69.58,37.5325 69.4896,37.5365 69.4305,37.5403 69.2904,37.4114 69.2855,37.3778 69.2832,37.3463 69.2902,37.3023 69.2988,37.2828 69.3146,37.2351 69.3352,37.1654 69.3303,37.1549 69.319,37.1338 69.2977,37.117 69.2316,37.0778 69.196,37.0627 69.1637,37.054 69.1143,37.075 69.0605,37.1092 69.0336,37.1225 68.9411,37.2117 68.9151,37.2589 68.8786,37.2811 68.8007,37.2968 68.719,37.2808 68.572,37.2311 68.5494,37.2021 68.5374,37.1643 68.3255,37.0784 68.245,37.0674 68.1949,36.9889 68.093,36.976 67.9688,36.891 67.9123,36.8947 67.6981,37.0506 67.6855,37.074 67.6911,37.144 67.6987,37.149 67.725,37.1772 67.7479,37.2171 67.7522,37.2399 67.7548,37.2799 67.7519,37.3105 67.7405,37.349 67.7285,37.3745 67.7285,37.4042 67.737,37.44 67.7491,37.4637 67.7717,37.5011 67.8138,37.5575 67.8276,37.575 67.8477,37.5941 67.8915,37.6313 67.9123,37.6451 67.962,37.6966 67.9832,37.723 68.0054,37.7599 68.0331,37.8163 68.04,37.8421 68.0525,37.8737 68.081,37.8914 68.1483,37.8996 68.1784,37.9099 68.2475,38.0036 68.2645,38.0428 68.2893,38.1179 68.2922,38.1519 68.2737,38.1945 68.2463,38.2248 68.187,38.2609 68.1293,38.2872 68.0345,38.3846 67.9806,38.5007 67.9833,38.6213 68.0292,38.7546 68.0588,38.7627 68.0832,38.7772 68.1025,38.8082 68.0939,38.8547 68.0892,38.8611 68.0627,38.8876 68.049,38.9066 68.0352,38.9374 68.0193,38.955 67.8936,38.9642 67.844,38.9532 67.7699,38.9339 67.6603,38.9465 67.6268,38.9514 67.6093,38.9624 67.6048,38.9724 67.606,39.0847 67.5352,39.1247 67.5048,39.1294 67.4762,39.1279 67.4313,39.1237 67.2855,39.1727 67.2744,39.2277 67.2755,39.2449 67.3185,39.2528 67.3408,39.3238 67.3491,39.393 67.3516,39.4183 67.3513,39.4392 67.4134,39.4846 67.5908,39.5707 67.6182,39.5812 67.6385,39.5846 67.6679,39.5859 67.7464,39.5752 67.7713,39.5669 67.8163,39.5561 67.9906,39.523 68.0569,39.5121 68.0832,39.5094 68.2611,39.4923 68.2926,39.4911 68.381,39.4933 68.4281,39.5036 68.4479,39.5105 68.5191,39.5857 68.5348,39.606 68.5357,39.7265 68.5442,39.7948 68.5496,39.8134 68.5631,39.8178 68.63,39.8239 68.6424,39.8047 68.6646,39.7851 68.8115,39.8476 68.7631,39.9099 68.7362,39.933 68.7182,39.9559 68.691,40.0229 68.7295,40.0335 68.8388,40.03 68.901,40.0254 68.915,40.0586 68.8971,40.0955 68.7825,40.1023 68.7016,40.0835 68.6686,40.0772 68.6204,40.0712 68.6089,40.0724 68.5879,40.0767 68.5431,40.0948 68.5124,40.1205 68.5487,40.139 68.6018,40.1508 68.6342,40.1571 68.6746,40.1629 68.9418,40.1935 68.9674,40.1894 68.9848,40.1849 69.0399,40.1636 69.0999,40.1503 69.1328,40.1452 69.1549,40.1457 69.2079,40.1538 69.2251,40.1645 69.2443,40.2879 69.2336,40.3293 69.1652,40.4573 69.1752,40.55 69.254,40.7181 69.2704,40.7336 69.3056,40.754 69.3566,40.7653 69.4421,40.7348 69.4763,40.7053 69.4931,40.6792 69.5738,40.6097 69.5943,40.5969 69.6316,40.5929 69.6641,40.6062 69.6906,40.6341 69.7228,40.6665 69.7518,40.6768 69.8046,40.688 69.8444,40.6943 69.8769,40.7002 69.9041,40.7083 69.9546,40.724 70.1569,40.8121 70.227,40.853 70.2646,40.8889 70.278,40.9156 70.2794,40.9629 70.2946,40.9903 70.321,41.0016 70.3424,41.003 70.3642,40.997 70.3685,40.9927 70.3786,40.9883 70.4518,40.9311 70.5613,40.8241 70.5706,40.7814 70.6159,40.7245 70.663,40.7156 70.6875,40.7033 70.7001,40.6798 70.6809,40.6604 70.6373,40.6293 70.4388,40.5139 70.319,40.4456 70.274,40.4258 70.2471,40.4003 70.2797,40.331 70.365,40.305 70.4932,40.2099 70.5069,40.1877 70.5274,40.1667 70.5487,40.1605 70.6122,40.1587 70.6524,40.1638 70.6967,40.1738 70.7262,40.1831 70.7642,40.1958 70.861,40.1998 70.8855,40.1995 70.8982,40.1832 70.8889,40.1448 70.8607,40.1297 70.8252,40.1237 70.7896,40.126 70.5674,40.0557 70.5642,39.9997 70.5583,39.9625 70.5437,39.94 70.5268,39.9256 70.5073,39.9136 70.3986,39.8635 70.3727,39.8833 70.3932,39.9244 70.422,39.9436 70.4507,39.9579 70.4624,39.9833 70.4464,40.001 70.4165,40.0118 70.3307,40.0253 70.2558,40.0371 70.2339,40.0458 70.2137,40.0707 70.1901,40.0876 69.9572,40.1624 69.9166,40.1729 69.7229,40.1252 69.5977,40.0875 69.5423,40.0737 69.5109,40.067 69.4751,40.0643 69.4462,40.0837 69.4046,40.0279 69.3911,39.9928 69.4113,39.9178 69.4298,39.8898 69.4041,39.8761 69.3308,39.8601 69.3135,39.8933 69.2408,39.9477 69.1911,39.8426 69.1739,39.7935 69.1634,39.7538 69.1558,39.7132 69.1689,39.6888 69.205,39.6598 69.2162,39.6424 69.2204,39.6153 69.2207,39.5857 69.2162,39.5549 69.2081,39.5162 69.2153,39.4906 69.2399,39.4743 69.4226,39.4943 69.4575,39.5058 69.4874,39.5292 69.5152,39.5378 69.5781,39.5418 69.6139,39.5435 69.6561,39.5377 69.688,39.5282 69.7068,39.5178 69.7302,39.5011 69.7524,39.493 69.8716,39.5099 70.0867,39.5399 70.1427,39.533 70.2073,39.5071 70.2612,39.5377 70.3868,39.5621 70.4122,39.5627 70.5377,39.5352 70.566,39.5052 70.5765,39.4739 70.5776,39.4626 70.5994,39.4449 70.626,39.3813 70.7531,39.3666 70.8986,39.3566 70.9325,39.3669 70.9482,39.381 70.9603,39.4091 70.9783,39.4454 71.0069,39.4682 71.1002,39.4888 71.2304,39.5254 71.3101,39.5618 71.388,39.5735 71.4181,39.5601 71.4523,39.5279 71.4524,39.5034 71.4222,39.4645 71.421,39.4444 71.4414,39.42 71.4677,39.4099 71.5005,39.4051 71.558,39.4061 71.5846,39.4089 71.6179,39.4173 71.6613,39.4116 71.6787,39.3729 71.6767,39.3473 71.6475,39.3167 71.6363,39.2897 71.6462,39.2647 71.6823,39.2336 71.7646,39.2443 71.8027,39.2625 71.837,39.2828 71.8745,39.3037 71.9808,39.3272 72.0013,39.3042 72.0428,39.2304 72.1618,39.1514 72.2092,39.213 72.217,39.2425 72.2277,39.2728 72.2504,39.2943 72.327,39.3145 72.356,39.3086 72.3868,39.3054 72.5011,39.3219 72.5354,39.3464 72.5598,39.3571 72.5911,39.3537 72.6798,39.3339 72.7069,39.3272 72.7645,39.3178 73.0652,39.3103 73.0873,39.3142 73.2588,39.3597 73.2692,39.3936 73.3923,39.4256 73.4259,39.429 73.555,39.4164 73.5564,39.4105 73.5564,39.4105 25,3.0,Greece 24.6101,40.525 24.6071,40.5316 24.568,40.5647 24.5575,40.571 24.5389,40.5789 24.4983,40.5755 24.4792,40.5927 24.476,40.6121 24.4883,40.6468 24.5002,40.6683 24.5075,40.6779 24.5322,40.7047 24.5652,40.732 24.5878,40.7439 24.6094,40.7511 24.6212,40.7505 24.6628,40.7348 24.6994,40.7196 24.7277,40.7033 24.7301,40.6861 24.7394,40.5858 24.7327,40.5657 24.6376,40.5334 24.6101,40.525 24.6101,40.525 9,5.0,Armenia 45.4666,40.5605 45.4438,40.5662 45.43,40.591 45.4474,40.6159 45.5015,40.6184 45.5258,40.6054 45.5109,40.5868 45.4666,40.5605 45.4666,40.5605 18,3.0,Turkey 27.5639,40.5263 27.5159,40.5413 27.4918,40.556 27.4891,40.5942 27.495,40.6037 27.5083,40.6092 27.5608,40.6126 27.5774,40.613 27.6132,40.6114 27.6254,40.6104 27.6692,40.6041 27.6957,40.5897 27.6953,40.5766 27.6821,40.5683 27.5901,40.5333 27.5715,40.527 27.5639,40.5263 27.5639,40.5263 15,-5.0,United States -73.9614,40.5935 -73.954,40.574 -73.9542,40.5562 -74.0069,40.514 -74.0219,40.5042 -74.0435,40.4933 -74.1185,40.4661 -74.1336,40.469 -74.1309,40.4931 -74.0818,40.5887 -74.0722,40.5967 -73.9768,40.6046 -73.9675,40.6001 -73.9614,40.5935 -73.9614,40.5935 17,3.0,Greece 25.6223,40.4473 25.659,40.4199 25.6589,40.3789 25.6249,40.367 25.569,40.3528 25.5273,40.354 25.4811,40.3772 25.4557,40.3914 25.4279,40.4107 25.4094,40.4301 25.4594,40.4508 25.4908,40.4613 25.508,40.465 25.5211,40.466 25.5404,40.4652 25.6223,40.4473 25.6223,40.4473 13,3.0,Turkey 25.6967,40.0479 25.631,40.078 25.6375,40.1074 25.6538,40.1199 25.6802,40.1361 25.7418,40.167 25.9051,40.1949 25.9771,40.1088 25.9548,40.0836 25.9229,40.0758 25.7894,40.055 25.6967,40.0479 25.6967,40.0479 30,2.0,Spain 4.2705,39.7618 4.2543,39.7651 4.2328,39.7713 4.1108,39.8235 4.0954,39.8329 4.0843,39.8429 4.0769,39.8526 4.0357,39.8708 4.0234,39.8753 3.9793,39.8853 3.9602,39.8889 3.933,39.8878 3.9189,39.8845 3.9059,39.8809 3.8779,39.8754 3.8214,39.8778 3.7918,39.9722 3.8286,40.0095 3.8633,40.0129 3.9324,40.014 4.1168,40.0111 4.1687,40.0054 4.2357,39.9487 4.2676,39.9164 4.31,39.8342 4.3111,39.8015 4.3081,39.7873 4.2875,39.7654 4.2705,39.7618 4.2705,39.7618 33,3.0,Greece 25.407,39.9599 25.3577,39.9073 25.3198,39.8624 25.303,39.8334 25.3049,39.8046 25.3189,39.7893 25.331,39.7809 25.3386,39.7679 25.3216,39.7416 25.3045,39.7443 25.279,39.7508 25.2606,39.7607 25.2327,39.8235 25.2449,39.8489 25.2287,39.8675 25.1988,39.8667 25.1768,39.8483 25.1456,39.8023 25.1676,39.7828 25.1907,39.7594 25.1316,39.7557 25.03,39.8006 25.0207,39.8159 25.0092,39.9183 25.0136,39.9419 25.1023,39.9611 25.1953,39.9577 25.2377,39.9435 25.3342,39.9608 25.4169,39.9874 25.4111,39.9647 25.407,39.9599 25.407,39.9599 44,2.0,Spain 2.3861,39.4808 2.3611,39.5115 2.3828,39.5685 2.5353,39.6559 2.6804,39.7491 2.7741,39.8 2.984,39.8664 3.0675,39.8771 3.0877,39.8529 3.1204,39.7677 3.1357,39.7425 3.1768,39.7152 3.2401,39.6909 3.2637,39.6913 3.2889,39.7014 3.3267,39.7207 3.3782,39.7289 3.4351,39.7058 3.4752,39.672 3.4592,39.617 3.443,39.5959 3.3701,39.5067 3.3276,39.4821 3.3159,39.4762 3.3012,39.458 3.2839,39.4234 3.2628,39.3684 3.2375,39.3202 3.0779,39.229 3.0564,39.2191 3.0253,39.2389 2.9817,39.2745 2.826,39.3093 2.7882,39.3194 2.7463,39.3564 2.7242,39.4286 2.7441,39.455 2.7305,39.4814 2.6909,39.5075 2.6636,39.5172 2.5413,39.4781 2.4337,39.4772 2.3861,39.4808 2.3861,39.4808 39,3.0,Greece 19.8281,39.7738 19.8382,39.7721 19.8994,39.7498 19.9217,39.7342 19.9237,39.7178 19.9157,39.6997 19.901,39.6854 19.8873,39.6776 19.8489,39.6717 19.8157,39.6567 19.8129,39.6318 19.82,39.6045 19.903,39.4303 19.991,39.3903 20.0035,39.3877 20.0212,39.3927 20.0336,39.4006 20.045,39.4082 20.0927,39.3278 20.0845,39.3191 20.0526,39.3243 19.852,39.4041 19.8256,39.4455 19.8204,39.4753 19.8218,39.495 19.8174,39.5077 19.794,39.5343 19.7799,39.5461 19.7137,39.5801 19.6479,39.6313 19.6151,39.6997 19.6137,39.7122 19.6242,39.7277 19.6464,39.7486 19.6679,39.7499 19.7674,39.7456 19.7773,39.7494 19.8281,39.7738 19.8281,39.7738 1095,3.5,Iran 46.4781,38.8322 46.5103,38.8721 46.5898,38.9331 46.6828,39.0072 46.6965,39.0422 46.7861,39.1167 46.812,39.1236 46.8457,39.1241 46.8899,39.1126 46.9709,39.1526 46.9805,39.1941 47.0364,39.2604 47.1014,39.2911 47.1362,39.296 47.2233,39.3303 47.2549,39.3533 47.2736,39.3802 47.328,39.4261 47.3966,39.454 47.4783,39.4709 47.7056,39.5892 47.7292,39.6223 47.7485,39.6345 47.9201,39.6711 47.9494,39.6548 47.9733,39.6389 47.9983,39.6211 48.0177,39.6018 48.0942,39.529 48.1475,39.4819 48.186,39.4503 48.2187,39.4286 48.2568,39.3964 48.2754,39.3793 48.2929,39.3457 48.2139,39.306 48.1811,39.2985 48.1337,39.292 48.0841,39.2627 48.0591,39.2343 48.0573,39.2079 48.0689,39.1671 48.1645,39.0961 48.2078,39.0826 48.2291,39.0687 48.2623,39.0108 48.2607,38.9883 48.2441,38.9602 48.2192,38.9422 48.1993,38.9337 48.1603,38.9278 48.1208,38.9254 48.0796,38.9248 48.0125,38.9103 47.948,38.8535 47.9489,38.8193 47.9604,38.7897 48.0387,38.7401 48.0596,38.7287 48.085,38.7178 48.1205,38.7071 48.1828,38.6718 48.1793,38.6288 48.2672,38.5594 48.2974,38.5624 48.3342,38.5774 48.3682,38.5812 48.5008,38.4283 48.5347,38.3739 48.5588,38.3536 48.5982,38.3462 48.6775,38.3811 48.7189,38.4024 48.7763,38.4074 48.8233,38.3995 48.8197,38.3922 48.8056,38.3094 48.8044,38.2633 48.8446,38.0014 48.8786,37.8596 48.9234,37.7453 48.9377,37.7146 48.9823,37.6552 49.0014,37.6334 49.0378,37.601 49.0852,37.5664 49.21,37.5038 49.2453,37.4903 49.3552,37.4514 49.3751,37.4465 49.4215,37.4405 49.5577,37.4346 49.8176,37.4168 49.8706,37.4107 50.1103,37.3524 50.131,37.3446 50.1543,37.3256 50.1603,37.2847 50.1648,37.2589 50.1739,37.2392 50.2275,37.1478 50.2526,37.107 50.2676,37.0928 50.2856,37.0794 50.4174,36.9891 50.5215,36.937 50.5385,36.9294 50.5777,36.9155 50.8193,36.7942 50.8444,36.78 50.8945,36.749 50.9157,36.7348 50.9335,36.7251 50.9628,36.7134 51.0249,36.6905 51.1136,36.6729 51.1513,36.6675 51.1749,36.6651 51.2208,36.6587 51.3095,36.6438 51.3863,36.6276 51.4327,36.6149 51.5457,36.5913 51.8143,36.5422 51.9049,36.5389 51.928,36.5397 51.9489,36.5428 51.9965,36.5508 52.0166,36.5544 52.0365,36.5582 52.0747,36.5711 52.1067,36.5816 52.1458,36.5935 52.1855,36.6047 52.2238,36.6135 52.3652,36.6449 52.3859,36.6476 52.4155,36.6501 52.533,36.6663 52.7268,36.7004 52.747,36.7038 52.895,36.74 52.941,36.7563 52.9745,36.7657 53.1534,36.8071 53.3802,36.8394 53.4081,36.8433 53.4651,36.8488 53.6444,36.8586 53.7872,36.8624 53.8687,36.8713 53.9361,36.9001 53.9273,36.8639 53.7499,36.8336 53.6577,36.8285 53.6014,36.831 53.5737,36.8375 53.5431,36.8272 53.5665,36.8023 53.5961,36.7812 53.6199,36.7752 53.8157,36.7528 53.8729,36.7588 53.945,36.777 53.9622,36.8009 53.9631,36.8325 53.9611,36.9069 53.938,36.9962 53.8729,37.1783 53.8349,37.309 54.1304,37.2884 54.2847,37.319 54.3343,37.336 54.3531,37.3443 54.4108,37.3722 54.4411,37.3887 54.4742,37.4024 54.5084,37.4109 54.5328,37.4063 54.5587,37.3982 54.597,37.398 54.6842,37.4536 54.7085,37.472 54.7366,37.5359 54.7215,37.5817 54.7096,37.601 54.7376,37.669 54.7606,37.704 54.7908,37.7243 54.8178,37.7327 54.8474,37.7418 54.8821,37.7627 54.9652,37.8232 54.9815,37.8449 54.9975,37.8633 55.0674,37.9125 55.1066,37.922 55.1566,37.9392 55.3033,37.9958 55.321,38.006 55.341,38.0251 55.3642,38.0408 55.3962,38.048 55.4831,38.0558 55.5967,38.0663 55.6178,38.0685 55.6594,38.0781 55.6902,38.0813 55.7327,38.0798 55.761,38.0639 55.7943,38.0512 55.9132,38.0299 55.9692,38.0322 56.0027,38.0376 56.0359,38.044 56.0943,38.0519 56.1453,38.0287 56.2573,38.0443 56.2752,38.0932 56.2522,38.1198 56.2485,38.14 56.2925,38.1757 56.3107,38.1887 56.3447,38.2094 56.3681,38.2172 56.3964,38.2201 56.4677,38.2233 56.4948,38.216 56.6202,38.2241 56.6806,38.2435 56.6988,38.2239 56.7208,38.2101 56.7642,38.1912 56.7915,38.1829 56.867,38.1687 56.987,38.1526 57.0612,38.1969 57.0739,38.2171 57.0832,38.2274 57.1065,38.2387 57.1326,38.2398 57.1658,38.2293 57.2963,38.048 57.2948,38.0274 57.2757,37.9508 57.3029,37.9321 57.3783,37.8958 57.4525,37.8849 57.5382,37.8827 57.6233,37.8838 58.0976,37.7539 58.1209,37.744 58.1477,37.6789 58.1442,37.6566 58.1571,37.6365 58.3303,37.5991 58.3938,37.5982 58.4155,37.6033 58.569,37.6196 58.5973,37.6108 58.642,37.6077 58.7289,37.6287 58.856,37.6264 58.9033,37.6125 58.975,37.5893 59.0038,37.5697 59.056,37.5346 59.1243,37.4911 59.1603,37.4759 59.1821,37.4752 59.2156,37.4938 59.2375,37.4989 59.265,37.4935 59.2975,37.4539 59.298,37.4292 59.2924,37.3827 59.294,37.3624 59.3093,37.3016 59.3149,37.2814 59.4021,37.191 59.4678,37.1665 59.6372,37.1058 59.7348,37.083 59.9372,37.0024 59.985,36.9703 59.9979,36.9474 60.013,36.9172 60.0276,36.8954 60.0629,36.8503 60.0788,36.83 60.2525,36.6169 60.286,36.6046 60.4236,36.605 60.5615,36.6061 60.5878,36.6064 60.7169,36.6079 60.8549,36.6088 60.993,36.6096 61.074,36.6093 61.087,36.5912 61.1095,36.5282 61.0829,36.3791 61.1047,36.2462 61.141,36.1385 61.1419,36.0995 61.1373,36.0681 61.1217,36.0287 61.1323,35.8973 61.1464,35.8637 61.1574,35.8512 61.1827,35.7765 61.151,35.6523 61.1537,35.6229 61.1743,35.5928 61.1973,35.5676 61.2086,35.5158 61.197,35.4777 61.1043,35.3089 61.0267,35.2424 61.0171,35.1969 61.0206,35.1371 61.0372,35.1246 61.057,35.0928 61.0527,35.0467 61.0364,34.9778 60.9986,34.8405 60.9722,34.7504 60.8975,34.6122 60.7743,34.529 60.7543,34.5233 60.7004,34.5175 60.6615,34.506 60.6452,34.4893 60.6892,34.4395 60.7196,34.425 60.8046,34.3169 60.8,34.2812 60.7573,34.2845 60.688,34.284 60.6606,34.2816 60.5967,34.2758 60.4676,34.1582 60.4477,34.1311 60.4327,34.1074 60.4259,34.0843 60.4256,34.0535 60.4309,34.0221 60.4417,33.9726 60.4508,33.9234 60.4751,33.7843 60.4731,33.7596 60.462,33.7392 60.4302,33.7022 60.4349,33.652 60.4417,33.6231 60.4525,33.6023 60.4675,33.5879 60.492,33.5737 60.5186,33.5601 60.5874,33.5299 60.6303,33.523 60.7091,33.5241 60.7768,33.5214 60.8149,33.5184 60.8364,33.5103 60.86,33.4795 60.8507,33.4674 60.7985,33.4633 60.7736,33.447 60.7245,33.3535 60.6779,33.3079 60.6452,33.2718 60.5525,33.1705 60.5047,33.1124 60.5021,33.0518 60.5038,33.0293 60.5094,33.0062 60.5173,32.9769 60.581,32.782 60.6474,32.5874 60.7538,32.2859 60.7729,32.225 60.7794,32.1899 60.7759,32.1546 60.7575,32.0546 60.7356,31.9838 60.728,31.961 60.7443,31.9126 60.745,31.7389 60.7323,31.6244 60.7699,31.4611 61.0247,31.4281 61.1091,31.4172 61.3709,31.3832 61.6336,31.3482 61.6606,31.3184 61.6909,31.2832 61.6867,31.2212 61.7081,31.1824 61.7308,31.1426 61.77,30.9894 61.6782,30.756 61.2928,30.3479 61.1982,30.2505 61.1375,30.1892 61.1009,30.1522 60.963,30.0102 60.8322,29.8737 60.793,29.8338 60.7874,29.8305 60.9626,29.6504 61.2031,29.4014 61.235,29.3629 61.2743,29.2587 61.2809,29.2333 61.3485,29.1187 61.4323,29.0385 61.4683,28.9522 61.5034,28.8773 61.5575,28.7743 61.5719,28.753 61.7421,28.5943 61.8255,28.5233 61.845,28.5093 61.866,28.5 62.1284,28.4276 62.2363,28.4072 62.3192,28.3876 62.4087,28.3241 62.45,28.2636 62.5118,28.2019 62.5523,28.2089 62.6063,28.2188 62.7014,28.2322 62.7081,28.1809 62.7025,28.1407 62.6884,28.0446 62.6782,27.9642 62.6843,27.9417 62.6915,27.9142 62.7218,27.804 62.7346,27.7559 62.7409,27.7294 62.7426,27.7087 62.759,27.4438 62.7483,27.4166 62.7197,27.3538 62.6998,27.2364 62.7341,27.2047 62.8552,27.1843 62.9177,27.2 62.9583,27.211 63.1206,27.2374 63.2036,27.1919 63.2491,27.1187 63.2476,27.0977 63.1954,27.0904 63.1714,27.0505 63.1719,27.0212 63.1772,26.9103 63.1351,26.8241 63.1041,26.6093 63.0825,26.6009 62.9789,26.6058 62.9351,26.6139 62.8928,26.6181 62.7485,26.6213 62.6898,26.6189 62.6652,26.5891 62.6236,26.5725 62.5205,26.5508 62.4664,26.5474 62.4285,26.5447 62.3579,26.5369 62.2357,26.4793 62.1928,26.3911 62.209,26.3494 62.1953,26.3272 62.1495,26.3309 62.1031,26.3416 62.0596,26.35 62.0245,26.285 62.0018,26.2847 61.9814,26.2822 61.7919,26.2148 61.7758,26.2011 61.7653,26.1823 61.7537,26.1504 61.7379,26.0793 61.7154,25.9295 61.7033,25.8413 61.7012,25.8149 61.6832,25.7792 61.6394,25.7721 61.6088,25.7687 61.5872,25.562 61.5811,25.4781 61.5734,25.3619 61.5709,25.3198 61.5654,25.2703 61.5329,25.1696 61.5027,25.1717 61.4404,25.1359 61.4215,25.0902 61.3633,25.0478 61.3183,25.0528 61.1414,25.095 61.1214,25.1305 61.0988,25.1456 60.9151,25.1839 60.8888,25.1891 60.7014,25.2206 60.6402,25.2299 60.5717,25.235 60.5457,25.2416 60.5291,25.3014 60.5265,25.3271 60.5282,25.3496 60.5265,25.3693 60.5161,25.3869 60.4951,25.4057 60.4741,25.4127 60.4422,25.4148 60.4111,25.4121 60.3779,25.4031 60.351,25.3874 60.3333,25.3693 60.318,25.337 60.3315,25.3048 60.3603,25.3013 60.3901,25.2379 60.3671,25.239 60.2332,25.2999 60.2187,25.3174 60.1205,25.3369 60.0155,25.3468 59.8818,25.3443 59.7557,25.3831 59.7041,25.3839 59.6569,25.3798 59.5899,25.3712 59.5592,25.3648 59.5374,25.3645 59.5152,25.3708 59.4858,25.3871 59.4528,25.4223 59.4149,25.4453 59.3751,25.4492 59.3537,25.4463 59.2943,25.433 59.1718,25.3978 59.0679,25.3684 59.0449,25.3635 58.9767,25.3652 58.9478,25.3703 58.9252,25.3849 58.8766,25.4467 58.8615,25.4715 58.8371,25.4901 58.7433,25.5315 58.7152,25.5361 58.6873,25.5372 58.6455,25.528 58.4251,25.5586 58.321,25.5761 58.2941,25.5759 58.2657,25.5673 58.2497,25.5518 58.0891,25.5107 58.0541,25.5145 57.9975,25.5327 57.9777,25.5436 57.9532,25.5668 57.9353,25.5935 57.9259,25.6176 57.9022,25.6567 57.8775,25.6712 57.7946,25.6518 57.7602,25.6359 57.7052,25.6399 57.7126,25.672 57.6828,25.712 57.657,25.7191 57.5904,25.7177 57.5605,25.7035 57.451,25.7089 57.2461,25.7426 57.2279,25.7718 57.2264,25.7985 57.2182,25.8367 57.1983,25.8906 57.1578,25.9561 57.1291,25.9626 57.1226,25.9704 57.0934,26.0489 57.0963,26.075 57.0092,26.3832 57.0023,26.4256 57.0175,26.4642 57.0198,26.5107 57.0182,26.558 57.0151,26.6039 56.993,26.6783 56.9834,26.7079 56.9641,26.7715 56.9593,26.7925 56.9503,26.8174 56.9358,26.8414 56.7924,26.9764 56.7712,27.0005 56.7947,27.0293 56.7826,27.0457 56.736,27.0932 56.6177,27.118 56.5724,27.1245 56.5455,27.1253 56.4595,27.1307 56.2835,27.1699 56.2557,27.1698 56.0607,27.13 56.0409,27.12 55.9034,27.0315 55.8846,27.0019 55.7732,26.9768 55.7246,26.9774 55.6187,26.966 55.5886,26.9604 55.5702,26.9499 55.5359,26.9185 55.5077,26.8814 55.5158,26.8247 55.5233,26.794 55.5271,26.7686 55.4106,26.7305 55.3724,26.7267 55.3463,26.7249 55.3,26.733 55.2848,26.7469 55.2037,26.7572 55.169,26.7488 55.0919,26.6872 54.7825,26.4894 54.7183,26.4608 54.6202,26.4766 54.4028,26.5586 54.2909,26.626 54.2581,26.6714 54.2272,26.6864 54.2003,26.6878 54.168,26.6768 54.1423,26.6659 54.1135,26.6681 54.0848,26.6717 54.0565,26.6763 54.0194,26.6868 53.9967,26.695 53.8622,26.6803 53.767,26.6692 53.6791,26.6795 53.6181,26.703 53.5778,26.7234 53.4172,26.8253 53.4045,26.8432 53.4016,26.8694 53.4023,26.9035 53.3938,26.9232 53.3707,26.9444 53.3213,26.9709 53.2391,26.987 53.1685,27.0101 53.0981,27.0333 53.0417,27.054 52.9332,27.0991 52.7853,27.1791 52.7484,27.2147 52.6887,27.2588 52.6181,27.291 52.6025,27.2931 52.5408,27.3175 52.5062,27.3558 52.5475,27.3805 52.5587,27.431 52.4741,27.5332 52.4322,27.5777 52.3666,27.6116 52.2957,27.6203 52.1807,27.6474 52.1568,27.6554 52.126,27.6701 52.1066,27.6812 52.0909,27.6946 52.0728,27.7135 52.0613,27.7305 51.9815,27.7868 51.9592,27.7972 51.9116,27.8059 51.7558,27.8189 51.7255,27.8202 51.7005,27.8153 51.6507,27.8018 51.54,27.8108 51.5159,27.818 51.3641,27.9067 51.259,28.017 51.1988,28.1235 51.1681,28.2502 51.0729,28.3767 51.0276,28.4653 51.0097,28.5307 51.0106,28.5676 51.007,28.6491 51.0033,28.6724 50.989,28.7068 50.9589,28.7517 50.9429,28.7684 50.8822,28.7898 50.8582,28.794 50.8381,28.7911 50.8134,28.7987 50.787,28.827 50.7353,28.8977 50.7348,28.9385 50.76,28.9591 50.7951,28.9419 50.8259,28.9125 50.8602,28.973 50.8632,28.9973 50.8579,29.0321 50.8196,29.0709 50.7611,29.104 50.6511,29.0998 50.6216,29.0871 50.5733,29.1102 50.5646,29.1535 50.5909,29.2161 50.6031,29.3677 50.5933,29.4001 50.5738,29.4374 50.56,29.4593 50.4004,29.5912 50.3766,29.6054 50.3501,29.6108 50.3289,29.622 50.2154,29.7739 50.1728,29.8289 50.141,29.8504 50.1225,29.8615 50.0968,29.8842 50.0826,29.8993 50.0685,29.9191 50.0722,29.9524 50.0738,29.9933 50.0686,30.0353 50.0457,30.0909 50.0345,30.1148 50.0157,30.1457 49.9907,30.1689 49.9731,30.179 49.9614,30.1822 49.9385,30.185 49.8621,30.1742 49.8341,30.1644 49.8097,30.152 49.7691,30.1293 49.6591,30.0578 49.5149,29.9745 49.4909,29.9736 49.4346,30.0339 49.4359,30.0628 49.4309,30.0908 49.4218,30.1149 49.3979,30.1276 49.3591,30.1364 49.2892,30.1381 49.2519,30.1301 49.1744,30.1545 48.9412,30.2635 48.8653,30.3533 49.0004,30.3723 49.0513,30.3598 49.1267,30.3266 49.1587,30.3394 49.1998,30.3953 49.1601,30.4393 49.1292,30.4558 49.0368,30.4821 48.9755,30.4851 48.9154,30.4773 48.8856,30.4622 48.8032,30.3252 48.7986,30.2741 48.8252,30.2393 48.8503,30.2212 48.8715,30.1688 48.8797,30.1354 48.8712,30.0536 48.8542,30.0071 48.8047,29.9874 48.7078,29.992 48.6449,29.9937 48.5971,29.962 48.5794,29.9288 48.5551,29.9199 48.5329,29.9177 48.4828,29.9296 48.4107,29.9496 48.3875,29.972 48.3483,30.0699 48.3473,30.1363 48.3493,30.166 48.2268,30.296 48.0979,30.3931 48.079,30.4061 48.0453,30.4205 48.0054,30.4296 47.9701,30.4572 47.9708,30.554 47.972,30.6226 47.9744,30.9119 47.9742,30.9616 47.8618,30.965 47.7812,30.9651 47.6319,30.9667 47.6329,31.0768 47.6336,31.1594 47.6339,31.187 47.6346,31.2006 47.6345,31.2696 47.6353,31.3728 47.6547,31.4206 47.6866,31.4951 47.7392,31.6177 47.7714,31.6925 47.8022,31.7631 47.787,31.7843 47.7248,31.8537 47.6756,31.9009 47.5714,32.0175 47.5407,32.0647 47.4676,32.1611 47.3545,32.3133 47.3762,32.3494 47.2996,32.4377 47.2097,32.4522 47.1874,32.4372 47.1378,32.4261 47.09,32.4222 47.0715,32.4296 47.011,32.4681 46.9933,32.4794 46.8953,32.5484 46.8726,32.5642 46.8425,32.5868 46.8213,32.6068 46.7963,32.6306 46.7794,32.6439 46.6869,32.7163 46.657,32.733 46.6352,32.7423 46.5935,32.7621 46.4973,32.8213 46.4334,32.8658 46.3905,32.8884 46.3546,32.9038 46.3131,32.9144 46.2447,32.9267 46.2152,32.9301 46.1849,32.9283 46.1441,32.9224 46.1184,32.9166 46.0919,32.9158 46.0466,32.9341 46.0373,32.9661 46.0531,33.0461 46.0852,33.099 46.1285,33.1384 46.1392,33.1563 46.1174,33.2276 46.0673,33.2665 45.9895,33.3464 45.9891,33.3689 45.9844,33.4001 45.9693,33.4232 45.9468,33.4482 45.8922,33.4422 45.871,33.4454 45.8148,33.4624 45.8313,33.4841 45.8851,33.517 45.8394,33.5954 45.7555,33.5849 45.7266,33.5631 45.6925,33.5574 45.6929,33.5999 45.6375,33.6318 45.588,33.6972 45.582,33.7296 45.4914,33.8508 45.441,33.9081 45.4136,33.9028 45.3878,33.9044 45.365,33.9131 45.3449,33.9371 45.4081,34.0392 45.4882,34.096 45.5073,34.1132 45.5252,34.2631 45.5144,34.2857 45.4903,34.307 45.4608,34.3089 45.4336,34.2966 45.4017,34.3399 45.3796,34.4195 45.5041,34.5476 45.5895,34.5349 45.6555,34.519 45.6705,34.5468 45.6492,34.6203 45.6248,34.6606 45.6005,34.6766 45.5924,34.6964 45.6318,34.7776 45.6533,34.7907 45.679,34.7919 45.7057,34.8074 45.7384,34.8752 45.7894,34.8581 45.8086,34.8648 45.8331,34.9341 45.8211,34.9598 45.8184,34.9935 45.8904,35.054 45.9326,35.0361 45.9761,35.0201 46.1063,35.0691 46.1268,35.1823 46.1005,35.1948 46.0732,35.2331 46.0883,35.2581 46.0055,35.3437 45.9915,35.3597 45.9313,35.4453 45.9203,35.5449 45.9743,35.6489 46.0129,35.6569 46.0509,35.6527 46.0916,35.6551 46.1696,35.6721 46.2088,35.688 46.274,35.7373 46.2851,35.7742 46.2636,35.7925 46.2309,35.7913 46.1987,35.7728 46.1407,35.7629 46.1132,35.7671 46.088,35.7838 46.0756,35.8072 46.0294,35.8253 45.8287,35.7918 45.8083,35.7775 45.6979,35.7771 45.6805,35.792 45.6734,35.8133 45.6595,35.8395 45.6231,35.8818 45.6039,35.9002 45.5653,35.926 45.4611,35.971 45.4515,35.9776 45.4134,35.9763 45.355,35.9552 45.2954,36.0242 45.2846,36.0934 45.2608,36.1977 45.2204,36.3404 45.1849,36.3877 45.1573,36.3882 45.135,36.3785 45.1066,36.3706 45.0802,36.3682 45.0483,36.3776 45.0279,36.3946 45.0252,36.4169 44.9967,36.4654 44.9544,36.5018 44.957,36.5167 44.9801,36.5733 45.004,36.5987 45.0064,36.6419 44.9667,36.6951 44.8807,36.7407 44.8392,36.7413 44.812,36.7432 44.7943,36.7533 44.786,36.7806 44.824,36.8293 44.8467,36.8514 44.8505,36.8791 44.8443,36.9892 44.7977,37.011 44.7587,37.0145 44.7264,37.0431 44.7074,37.0706 44.7286,37.1082 44.734,37.1334 44.7619,37.2272 44.7595,37.2557 44.7429,37.2797 44.5899,37.3859 44.5541,37.3923 44.5302,37.4011 44.5259,37.5717 44.5402,37.6485 44.5589,37.6756 44.5181,37.7244 44.2344,37.8307 44.1654,37.8568 44.1804,37.9179 44.2645,38.0544 44.3402,38.1686 44.4141,38.274 44.4236,38.2982 44.3778,38.3519 44.2594,38.3391 44.2466,38.3574 44.2454,38.4062 44.253,38.4268 44.2628,38.4663 44.2583,38.5696 44.2474,38.6041 44.203,38.6808 44.2439,38.7665 44.2412,38.7989 44.2245,38.8189 44.1916,38.8221 44.1503,38.85 44.1141,38.9244 44.1035,38.9616 44.1389,39.0129 44.1572,39.0926 44.0154,39.2919 44.0012,39.3083 43.9757,39.3332 43.9771,39.3414 44.0175,39.3674 44.1416,39.3726 44.1713,39.3641 44.2451,39.343 44.2805,39.3512 44.3415,39.3725 44.3659,39.3923 44.4178,39.5961 44.4111,39.6542 44.548,39.7345 44.6765,39.6573 44.7527,39.5863 44.8079,39.5781 44.8281,39.5612 44.8425,39.5113 44.8474,39.4916 44.8673,39.4325 44.8943,39.3883 44.9144,39.3763 44.9417,39.3724 45.0026,39.329 45.0551,39.2683 45.07,39.2416 45.0812,39.203 45.083,39.1729 45.165,39.1512 45.2104,39.1432 45.2378,39.1537 45.2849,39.1206 45.3604,39.0172 45.3638,38.9791 45.3727,38.9595 45.4165,38.9412 45.4576,38.927 45.4778,38.9219 45.5464,38.9076 45.78,38.8598 45.8896,38.8438 46.0131,38.8284 46.1168,38.7976 46.1337,38.8005 46.1834,38.8233 46.207,38.8387 46.2329,38.8522 46.2891,38.8664 46.3146,38.8633 46.39,38.8462 46.4542,38.8346 46.4781,38.8322 46.4781,38.8322 63,4.0,Azerbaijan 44.7527,39.5863 44.7559,39.6013 44.739,39.6421 44.7184,39.6617 44.7339,39.6668 44.7976,39.6806 44.8288,39.6784 44.8663,39.6752 44.8997,39.685 44.9378,39.7075 44.9603,39.7253 44.9861,39.7345 45.0146,39.7276 45.2052,39.5665 45.2657,39.4948 45.4037,39.4497 45.4409,39.4603 45.467,39.4729 45.4968,39.4894 45.5379,39.5074 45.565,39.5156 45.6767,39.5349 45.7304,39.5213 45.7577,39.5048 45.7674,39.402 45.794,39.3039 45.9234,39.2313 45.9439,39.2051 45.9244,39.179 45.9078,39.1539 45.9073,39.1306 46.0455,38.8923 46.0618,38.8664 46.1168,38.7976 46.0131,38.8284 45.8896,38.8438 45.78,38.8598 45.5464,38.9076 45.4778,38.9219 45.4576,38.927 45.4165,38.9412 45.3727,38.9595 45.3638,38.9791 45.3604,39.0172 45.2849,39.1206 45.2378,39.1537 45.2104,39.1432 45.165,39.1512 45.083,39.1729 45.0812,39.203 45.07,39.2416 45.0551,39.2683 45.0026,39.329 44.9417,39.3724 44.9144,39.3763 44.8943,39.3883 44.8673,39.4325 44.8474,39.4916 44.8425,39.5113 44.8281,39.5612 44.8079,39.5781 44.7527,39.5863 44.7527,39.5863 19,2.0,Portugal -31.1735,39.3093 -31.1973,39.3091 -31.2166,39.3114 -31.2377,39.3453 -31.2467,39.3668 -31.2409,39.4017 -31.2162,39.455 -31.1885,39.4766 -31.1716,39.4777 -31.1614,39.4759 -31.111,39.4503 -31.1043,39.4416 -31.0837,39.4111 -31.0891,39.3706 -31.106,39.3301 -31.112,39.321 -31.1378,39.3102 -31.1735,39.3093 -31.1735,39.3093 17,8.0,China 121.2463,39.3172 121.2187,39.325 121.1348,39.3459 121.1192,39.3362 121.0958,39.3363 121.0925,39.3654 121.1001,39.3917 121.1737,39.4344 121.2297,39.435 121.2505,39.4325 121.2668,39.4264 121.2793,39.4184 121.2881,39.4002 121.2716,39.3445 121.2579,39.3215 121.2463,39.3172 121.2463,39.3172 55,3.0,Greece 26.3846,39.2818 26.3793,39.2785 26.3583,39.2604 26.3443,39.2411 26.3442,39.2245 26.3696,39.2097 26.4392,39.1754 26.4927,39.1102 26.5711,39.0097 26.5768,39.0002 26.5831,38.9801 26.58,38.9703 26.4862,38.9297 26.4151,38.9247 26.355,38.9273 26.2889,38.934 26.1525,38.9735 26.1014,38.9964 26.0534,39.0304 26.0762,39.047 26.1324,39.0589 26.2417,39.1124 26.2508,39.1239 26.2563,39.1385 26.2218,39.1593 26.2027,39.1604 26.1641,39.1573 26.1373,39.1507 26.1281,39.144 26.1227,39.1254 26.1188,39.1147 26.0759,39.067 26.0461,39.0442 26.0305,39.0406 26.0103,39.0454 25.9534,39.0614 25.8553,39.0974 25.8295,39.1096 25.8004,39.1363 25.8224,39.2086 25.8454,39.2271 25.873,39.2428 25.889,39.2479 25.8899,39.2352 25.9156,39.2298 25.9467,39.2276 26.1383,39.2833 26.1358,39.3015 26.1303,39.3255 26.143,39.3308 26.1893,39.3389 26.2887,39.3302 26.3605,39.2971 26.3846,39.2818 26.3846,39.2818 11,3.0,Greece 23.6927,39.0274 23.6776,39.0302 23.6286,39.0455 23.5634,39.1609 23.5791,39.161 23.7556,39.0742 23.7409,39.0528 23.722,39.0396 23.7048,39.031 23.6927,39.0274 23.6927,39.0274 24,2.0,Spain 1.3701,38.7871 1.3663,38.8075 1.3577,38.8192 1.3478,38.8263 1.2724,38.8352 1.2488,38.8171 1.2208,38.8307 1.2105,38.8548 1.2262,38.9045 1.2408,38.9242 1.2926,38.9875 1.3019,38.9949 1.3274,39.0116 1.3608,39.0291 1.471,39.0614 1.5178,39.0745 1.544,39.0741 1.6009,39.0499 1.6072,39.0374 1.6128,38.9845 1.5298,38.9083 1.4039,38.8019 1.3701,38.7871 1.3701,38.7871 58,3.0,Greece 24.0182,38.3227 24.0236,38.3384 23.9654,38.3589 23.9424,38.3478 23.9066,38.3435 23.8735,38.3418 23.7742,38.3463 23.742,38.3491 23.642,38.3669 23.6107,38.3757 23.5892,38.4252 23.6043,38.4666 23.5932,38.5 23.5657,38.528 23.4609,38.5888 23.3002,38.6991 23.1672,38.7882 23.1192,38.8057 23.0955,38.8053 23.0673,38.796 22.8023,38.7854 22.8166,38.8184 22.8995,38.8481 23.066,38.9399 23.0987,38.9594 23.2485,38.9927 23.2732,38.9935 23.3424,38.9555 23.4152,38.8291 23.4353,38.8044 23.4847,38.7677 23.5607,38.7213 23.7335,38.6631 23.8151,38.639 23.9171,38.6196 23.9754,38.6298 24.1219,38.6033 24.1217,38.5299 24.155,38.3494 24.2263,38.1743 24.2669,38.1471 24.3047,38.1165 24.3956,38.1013 24.4335,38.0957 24.5289,38.1017 24.5581,38.0194 24.5554,37.9941 24.5434,37.9614 24.5316,37.9446 24.4805,37.9123 24.4482,37.9138 24.355,37.9512 24.2939,38.0021 24.1766,38.1138 24.1167,38.1726 24.0789,38.2453 24.0182,38.3227 24.0182,38.3227 21,3.0,Greece 24.5362,38.7173 24.5206,38.725 24.502,38.7403 24.424,38.8371 24.4176,38.8532 24.4187,38.9077 24.4268,38.9204 24.4506,38.9336 24.4715,38.9281 24.5449,38.8826 24.6325,38.7805 24.6488,38.7584 24.6495,38.7347 24.6264,38.7239 24.6141,38.7207 24.5908,38.7225 24.5819,38.7276 24.5642,38.7452 24.5353,38.7301 24.5362,38.7173 24.5362,38.7173 13,3.0,Greece 20.7052,38.761 20.6944,38.584 20.6163,38.5378 20.5161,38.5229 20.5151,38.545 20.5313,38.6427 20.5742,38.7353 20.6182,38.7862 20.628,38.792 20.6738,38.791 20.6851,38.7866 20.7052,38.761 20.7052,38.761 29,2.0,Portugal -27.1023,38.5863 -27.1453,38.5995 -27.201,38.604 -27.2378,38.6068 -27.2583,38.6106 -27.2704,38.6146 -27.3147,38.6383 -27.3304,38.6501 -27.3434,38.6673 -27.3518,38.6949 -27.3481,38.72 -27.3375,38.7355 -27.3272,38.7444 -27.2936,38.7532 -27.2767,38.757 -27.2449,38.7596 -27.2092,38.758 -27.1784,38.7558 -27.1452,38.7515 -27.1065,38.7453 -27.0771,38.7374 -27.0296,38.7207 -27.0131,38.7061 -26.9993,38.691 -26.984,38.6498 -27.018,38.6002 -27.047,38.5887 -27.1023,38.5863 -27.1023,38.5863 15,2.0,Portugal -27.7736,38.4967 -27.8115,38.4973 -28.1188,38.5916 -28.1563,38.6068 -28.2635,38.6779 -28.2769,38.6911 -28.2777,38.7053 -28.2598,38.7052 -28.2475,38.7013 -27.9592,38.598 -27.7323,38.5152 -27.7242,38.5047 -27.7432,38.4986 -27.7736,38.4967 -27.7736,38.4967 19,2.0,Spain 1.3885,38.6 1.3845,38.6043 1.3838,38.6149 1.3819,38.6398 1.3812,38.6507 1.3813,38.6747 1.3973,38.6943 1.4435,38.6977 1.5733,38.6461 1.5854,38.6264 1.5707,38.6115 1.5544,38.6109 1.5207,38.6122 1.5033,38.6262 1.4926,38.632 1.4579,38.643 1.442,38.6394 1.3885,38.6 1.3885,38.6 12,2.0,Portugal -28.5978,38.4673 -28.6883,38.4707 -28.7205,38.4744 -28.8073,38.541 -28.8072,38.5519 -28.7953,38.5597 -28.6814,38.5971 -28.5933,38.5649 -28.57,38.5492 -28.5566,38.5117 -28.5978,38.4673 -28.5978,38.4673 361,9.0,South Korea 128.1927,38.5819 128.2181,38.5361 128.362,38.2875 128.4552,38.1018 128.4664,38.0795 128.6903,37.8155 128.7101,37.8076 128.8342,37.6878 128.8797,37.6436 128.8927,37.6211 128.8929,37.5892 128.966,37.4835 129.0198,37.4227 129.0888,37.3294 129.1727,37.2154 129.1838,37.1894 129.1927,37.1083 129.2015,37.0995 129.2596,37.0183 129.2453,36.9838 129.2468,36.901 129.254,36.8585 129.2599,36.8324 129.287,36.7705 129.3023,36.739 129.3033,36.6602 129.2934,36.6373 129.2715,36.6216 129.2507,36.586 129.2533,36.5307 129.2702,36.5002 129.2818,36.4626 129.2693,36.361 129.2434,36.3229 129.2193,36.2926 129.2133,36.271 129.2239,35.9827 129.2539,35.9585 129.292,35.9548 129.3174,35.9715 129.3595,36.0107 129.3933,36.0338 129.4167,35.9944 129.4185,35.9636 129.3186,35.6435 129.2969,35.6046 129.3062,35.5546 129.2999,35.5038 129.2718,35.436 129.1773,35.3043 129.1119,35.259 129.0743,35.1695 129.0702,35.1506 129.0074,35.1078 128.9698,35.0728 128.8117,35.0458 128.8069,35.0954 128.7588,35.0528 128.644,35.0449 128.5686,35.0537 128.5441,35.062 128.4536,35.1094 128.4448,35.1339 128.4065,35.1306 128.2162,34.9999 128.2117,34.9693 128.2436,34.9867 128.3124,35.0113 128.3352,34.9693 128.3003,34.8382 128.2797,34.8023 128.2398,34.7938 128.1694,34.8324 128.185,34.8649 128.1847,34.8923 128.1687,34.9074 128.0496,34.8897 128.041,34.8597 128.0102,34.8505 127.9882,34.8556 127.9039,34.8839 127.8846,34.9006 127.8547,34.9473 127.7362,34.9124 127.7077,34.9027 127.6654,34.9075 127.6021,34.9211 127.4867,34.864 127.4662,34.8635 127.4486,34.878 127.4319,34.901 127.4037,34.8758 127.4111,34.8479 127.443,34.8062 127.4733,34.7752 127.4958,34.7742 127.5143,34.7818 127.5405,34.799 127.6081,34.7962 127.6041,34.756 127.5803,34.6867 127.4724,34.5775 127.4112,34.5995 127.3899,34.6152 127.3931,34.663 127.4024,34.7279 127.3572,34.8182 127.3288,34.8128 127.2533,34.7798 127.234,34.7635 127.1989,34.7124 127.229,34.6591 127.2644,34.6381 127.3223,34.6013 127.3477,34.5523 127.2242,34.4326 127.1501,34.4052 127.0785,34.473 127.0034,34.4733 126.9713,34.4812 126.9615,34.5128 127.0429,34.5856 127.031,34.5332 127.0772,34.5309 127.1655,34.6158 127.1873,34.6566 127.1701,34.7012 127.1089,34.6886 127.052,34.6687 126.9478,34.6217 126.927,34.6118 126.8725,34.5814 126.845,34.5636 126.8238,34.4947 126.8019,34.4658 126.7739,34.4489 126.7278,34.4037 126.7249,34.3742 126.6498,34.4054 126.6366,34.4245 126.6355,34.4533 126.6407,34.4912 126.636,34.5339 126.6163,34.5467 126.5964,34.5268 126.5198,34.3959 126.4331,34.2616 126.3924,34.2623 126.361,34.2778 126.3143,34.3069 126.2984,34.4391 126.2275,34.5054 126.1517,34.5279 126.1246,34.5516 126.1093,34.5954 126.1026,34.6383 126.1286,34.7069 126.1515,34.7064 126.1836,34.6671 126.2538,34.5573 126.2876,34.5395 126.2686,34.5808 126.2957,34.6054 126.3633,34.5765 126.4502,34.5809 126.339,34.6767 126.321,34.6845 126.3301,34.7118 126.4442,34.7407 126.4679,34.7426 126.4964,34.7713 126.427,34.8387 126.3759,34.8342 126.3684,34.7714 126.3471,34.7398 126.212,34.7527 126.2497,34.8554 126.2699,34.9245 126.2113,34.9021 126.1724,34.8825 126.1406,34.9229 126.0855,35.0741 126.0964,35.0916 126.1817,35.1125 126.1889,35.0929 126.1806,35.0655 126.1964,35.0301 126.2577,34.9814 126.2935,35.0298 126.2935,35.0535 126.2742,35.0636 126.2524,35.076 126.2239,35.1085 126.1969,35.1411 126.1999,35.1885 126.2145,35.2726 126.2239,35.2975 126.2605,35.3705 126.2775,35.3904 126.2879,35.4156 126.3252,35.4665 126.362,35.4861 126.4554,35.507 126.5202,35.4938 126.5078,35.5409 126.4905,35.5542 126.3773,35.5479 126.3465,35.5371 126.3188,35.5504 126.3055,35.5671 126.313,35.5979 126.4731,35.6997 126.5367,35.7286 126.5805,35.7375 126.6364,35.8217 126.6206,35.8539 126.5648,35.8425 126.4529,35.8508 126.4503,35.8826 126.468,35.9254 126.5407,35.9444 126.5971,35.9548 126.6963,35.9987 126.707,36.0157 126.7041,36.0204 126.6942,36.0152 126.5749,35.9654 126.524,35.961 126.3797,36.0961 126.372,36.1788 126.3308,36.3536 126.3157,36.4403 126.3021,36.5383 126.3494,36.5496 126.3507,36.6187 126.3317,36.6828 126.3072,36.7018 126.1847,36.6981 126.1412,36.648 126.1641,36.6138 126.1505,36.5586 126.1281,36.5408 126.1339,36.5927 126.1011,36.6702 126.0721,36.6436 126.0244,36.6299 126.0045,36.6329 125.961,36.6661 125.9638,36.7104 125.9994,36.7685 126.0266,36.7785 126.0212,36.8392 126.1293,36.9205 126.1435,36.901 126.1544,36.8372 126.1319,36.8023 126.1145,36.7712 126.122,36.7517 126.1595,36.7626 126.2358,36.8105 126.2492,36.8639 126.2448,36.8931 126.2209,36.8888 126.1843,36.9105 126.1798,36.95 126.2271,36.9633 126.2654,36.9607 126.31,36.8813 126.2966,36.8552 126.2977,36.8226 126.3094,36.802 126.331,36.8264 126.3486,36.8999 126.3249,36.9543 126.335,37.0099 126.3555,37.0097 126.4037,36.9816 126.4542,36.9314 126.5164,36.9303 126.6061,36.9261 126.6583,36.8702 126.6662,36.8449 126.6644,36.8154 126.6671,36.7198 126.7402,36.7759 126.826,36.8693 126.8338,36.8883 126.7501,36.8762 126.7018,36.9074 126.5888,37.0063 126.6098,37.0802 126.6532,37.0922 126.6952,37.0991 126.7031,37.1325 126.5997,37.1309 126.5722,37.1073 126.5518,37.0873 126.5249,37.0816 126.4947,37.1176 126.4957,37.2099 126.5332,37.2204 126.5932,37.1969 126.6951,37.2238 126.6771,37.2646 126.6437,37.2548 126.6041,37.2628 126.5559,37.2863 126.5754,37.3449 126.5603,37.3433 126.4973,37.3645 126.4596,37.4394 126.5017,37.4431 126.494,37.5059 126.4852,37.5248 126.4622,37.5492 126.4059,37.5777 126.3824,37.6029 126.3651,37.6762 126.3729,37.7208 126.4743,37.7181 126.5137,37.6421 126.521,37.7917 126.5691,37.9127 126.6059,37.9311 126.6395,37.958 126.6568,37.9735 126.7671,38.0857 126.7867,38.1117 126.8015,38.1457 126.8184,38.171 126.8375,38.1864 126.8817,38.2073 126.8994,38.2171 126.9322,38.2413 126.9622,38.2554 127.0286,38.2691 127.0826,38.2761 127.1971,38.2804 127.2818,38.2697 127.3682,38.2644 127.4996,38.2768 127.7157,38.2707 127.81,38.2643 127.8408,38.2626 127.8848,38.2637 127.91,38.2688 127.967,38.2862 127.9882,38.2967 128.0059,38.307 128.0306,38.3224 128.0545,38.3388 128.0731,38.3523 128.0899,38.3685 128.109,38.3874 128.1268,38.4164 128.1369,38.4453 128.1427,38.4813 128.1358,38.5171 128.1377,38.5444 128.1927,38.5819 128.1927,38.5819 37,3.0,Greece 25.9805,38.1067 25.9618,38.1125 25.9338,38.1227 25.8907,38.152 25.8289,38.197 25.8293,38.2073 25.8372,38.2236 25.872,38.2473 25.8836,38.2518 25.9053,38.2543 25.9573,38.3009 25.9542,38.3404 25.9083,38.4141 25.878,38.4262 25.8516,38.4323 25.8266,38.4506 25.8176,38.4578 25.8116,38.4663 25.7915,38.4973 25.8093,38.5274 25.8166,38.5348 25.8314,38.5418 25.8502,38.5456 25.9667,38.5581 26.104,38.5219 26.116,38.5129 26.1247,38.4987 26.1043,38.3886 26.099,38.3698 26.1116,38.3207 26.1274,38.2845 26.1262,38.2604 26.0677,38.2042 26.0011,38.1493 25.9921,38.136 25.9805,38.1067 25.9805,38.1067 37,2.0,Portugal -28.209,38.3291 -28.2306,38.3566 -28.2455,38.3618 -28.3515,38.3687 -28.3899,38.3703 -28.4215,38.3624 -28.4832,38.398 -28.5021,38.4257 -28.5111,38.455 -28.5139,38.4692 -28.5114,38.4842 -28.5015,38.4925 -28.4876,38.5018 -28.4599,38.5108 -28.4282,38.5147 -28.3993,38.5151 -28.3837,38.5138 -28.3419,38.5061 -28.3162,38.4984 -28.2923,38.4894 -28.2811,38.4847 -28.2286,38.4548 -28.1516,38.4169 -28.1035,38.4068 -28.088,38.4048 -28.0641,38.403 -28.0484,38.4042 -28.0327,38.4012 -28.011,38.3871 -27.9995,38.3711 -28.0186,38.3512 -28.0597,38.3497 -28.111,38.3593 -28.155,38.3619 -28.166,38.3571 -28.209,38.3291 -28.209,38.3291 14,3.0,Greece 20.6923,38.2624 20.6834,38.2653 20.672,38.2746 20.6436,38.31 20.6172,38.3552 20.5868,38.4264 20.6254,38.4574 20.6437,38.4503 20.6796,38.4001 20.7158,38.3294 20.7332,38.2805 20.7083,38.2672 20.6923,38.2624 20.6923,38.2624 709,4.5,Afghanistan 66.4505,37.3244 66.4926,37.3263 66.536,37.3188 66.6336,37.3136 66.7487,37.3218 66.7702,37.3239 66.839,37.3369 66.8824,37.3407 66.925,37.338 67.0038,37.3013 67.1122,37.2051 67.1279,37.1845 67.1376,37.1557 67.1578,37.1435 67.1785,37.144 67.2042,37.1527 67.2165,37.1616 67.2923,37.1707 67.3121,37.1775 67.368,37.2088 67.4376,37.2267 67.5605,37.2045 67.6371,37.187 67.6605,37.1811 67.6842,37.1637 67.6911,37.144 67.6855,37.074 67.6981,37.0506 67.9123,36.8947 67.9688,36.891 68.093,36.976 68.1949,36.9889 68.245,37.0674 68.3255,37.0784 68.5374,37.1643 68.5494,37.2021 68.572,37.2311 68.719,37.2808 68.8007,37.2968 68.8786,37.2811 68.9151,37.2589 68.9411,37.2117 69.0336,37.1225 69.0605,37.1092 69.1143,37.075 69.1637,37.054 69.196,37.0627 69.2316,37.0778 69.2977,37.117 69.319,37.1338 69.3303,37.1549 69.3352,37.1654 69.3146,37.2351 69.2988,37.2828 69.2902,37.3023 69.2832,37.3463 69.2855,37.3778 69.2904,37.4114 69.4305,37.5403 69.4896,37.5365 69.58,37.5325 69.7012,37.5407 69.754,37.5578 69.7754,37.5662 69.7996,37.572 69.8197,37.5712 69.8409,37.5606 69.8591,37.5306 69.9217,37.5033 69.9434,37.4996 69.9704,37.4994 69.9949,37.4909 70.0357,37.4867 70.0635,37.4943 70.161,37.5738 70.1934,37.6575 70.1894,37.6868 70.1765,37.7289 70.1429,37.7799 70.1121,37.7915 70.0852,37.8094 70.0728,37.8294 70.07,37.8866 70.1165,37.8864 70.1518,37.9006 70.1869,37.934 70.2044,37.9562 70.2183,37.9577 70.249,37.9761 70.397,38.1192 70.4491,38.2101 70.5054,38.2682 70.5539,38.3114 70.6176,38.3668 70.6854,38.3986 70.8656,38.429 70.8937,38.4235 71.0567,38.3382 71.0832,38.3048 71.118,38.2769 71.1538,38.2614 71.177,38.2596 71.2113,38.254 71.2674,38.205 71.2711,38.1523 71.2615,38.1123 71.2448,38.0886 71.221,38.0424 71.1719,37.9397 71.1579,37.8853 71.2349,37.8477 71.2955,37.8646 71.3413,37.8829 71.4125,37.905 71.4456,37.9018 71.4903,37.8691 71.4991,37.8317 71.4965,37.7943 71.4941,37.7734 71.4815,37.7552 71.4477,37.6845 71.4103,37.5674 71.402,37.5211 71.3933,37.3762 71.3993,37.3285 71.3982,37.2677 71.3954,37.2368 71.3889,37.2173 71.3697,37.1891 71.3541,37.1679 71.344,37.1245 71.3374,37.0253 71.3634,36.9034 71.3728,36.8853 71.4593,36.7225 71.483,36.6899 71.5216,36.6566 71.5834,36.6349 71.6015,36.6308 71.6656,36.6339 71.688,36.6371 71.7265,36.6435 71.749,36.6511 71.8372,36.7093 71.9537,36.789 72.1294,36.9012 72.1854,36.9255 72.2117,36.9367 72.2521,36.9482 72.3155,36.9612 72.3365,36.9614 72.4229,36.9604 72.5672,36.9839 72.6127,37.0492 72.6269,37.0708 72.6386,37.0937 72.6636,37.139 72.6827,37.1689 72.7042,37.1874 72.7387,37.1934 72.7969,37.2082 72.9055,37.2623 73.0118,37.3207 73.0618,37.3611 73.1805,37.4111 73.2027,37.4183 73.3388,37.434 73.3599,37.4341 73.4084,37.4306 73.4445,37.4192 73.4746,37.4063 73.5164,37.3952 73.573,37.3933 73.6146,37.3957 73.6504,37.3969 73.6792,37.3908 73.6731,37.3017 73.6221,37.2672 73.55,37.2582 73.524,37.2217 73.5347,37.2013 73.6419,37.1799 73.7202,37.1865 73.7453,37.2086 73.7749,37.2255 73.9432,37.2698 74.0486,37.2942 74.1337,37.3548 74.1567,37.3674 74.2248,37.3649 74.2973,37.3595 74.3344,37.3522 74.4488,37.34 74.5412,37.3443 74.5715,37.3504 74.7248,37.2902 74.7412,37.278 74.8173,37.1958 74.7104,37.1824 74.6754,37.2315 74.6622,37.2573 74.6417,37.2595 74.5714,37.2241 74.5097,37.2093 74.4301,37.199 74.2935,37.1284 74.2976,37.1047 74.4314,37.0079 74.4676,36.9864 74.4741,36.9774 74.4571,36.9237 74.4333,36.927 74.4096,36.9575 74.379,36.9691 74.3193,36.9587 74.1089,36.8621 74.0258,36.8023 73.9653,36.7803 73.9386,36.7742 73.861,36.7987 73.8308,36.8222 73.7386,36.8547 73.572,36.8685 73.5467,36.8614 73.5401,36.8582 73.4438,36.8391 73.3885,36.8507 73.29,36.8479 72.9592,36.8273 72.8402,36.8137 72.8231,36.8021 72.7992,36.7952 72.77,36.7929 72.714,36.7919 72.6728,36.7974 72.6507,36.8013 72.5511,36.7923 72.4837,36.7841 72.458,36.7765 72.441,36.7616 72.4028,36.7337 72.3757,36.7205 72.312,36.7211 72.2361,36.7145 72.1322,36.6884 72.0797,36.668 72.0819,36.647 72.0518,36.6066 71.8793,36.5012 71.6514,36.3754 71.6164,36.3962 71.5508,36.425 71.5265,36.4118 71.4974,36.3481 71.4878,36.3058 71.3712,36.2314 71.1533,36.0911 71.0972,36.0117 71.0951,35.9992 71.1298,35.9833 71.2393,35.9153 71.29,35.8807 71.3498,35.8269 71.4531,35.6599 71.4352,35.6228 71.4756,35.5471 71.5119,35.487 71.5556,35.3885 71.5316,35.3561 71.4841,35.3192 71.4553,35.2784 71.4614,35.2501 71.5202,35.1914 71.4815,35.0815 71.4431,35.045 71.4107,34.945 71.4062,34.9272 71.4011,34.9188 71.3833,34.9067 71.3099,34.8762 71.1995,34.7911 71.0782,34.6852 70.9997,34.63 71.0009,34.6052 71.0116,34.5782 70.9954,34.5232 70.8998,34.5169 70.8903,34.4995 70.8862,34.4694 70.9066,34.4269 70.9852,34.3521 71.0114,34.3428 71.0628,34.3173 71.0426,34.1257 70.989,34.0182 70.7905,33.927 70.7022,33.9151 70.467,33.9065 70.3903,33.9056 70.247,33.9258 70.1088,33.9547 70.03,33.9783 69.9684,33.9972 69.9092,34.014 69.8611,34.0069 69.8461,34.0038 69.8394,34.0031 69.8102,33.9913 69.7766,33.8977 69.8261,33.8143 69.8963,33.7159 70.0086,33.689 70.0424,33.6961 70.1055,33.6033 70.1083,33.5696 70.0943,33.5365 70.0822,33.5085 70.0785,33.4823 70.1114,33.4397 70.1474,33.4284 70.1969,33.3831 70.2225,33.3465 70.2335,33.2956 70.1368,33.2139 70.0595,33.1683 69.9381,33.0989 69.8129,33.0582 69.7835,33.0525 69.5358,33.0475 69.4905,33.0501 69.4697,33.0428 69.417,32.9994 69.4016,32.96 69.4106,32.9085 69.4171,32.8785 69.4224,32.8356 69.3757,32.8001 69.3178,32.754 69.3054,32.7302 69.3271,32.7043 69.3489,32.6786 69.3659,32.6378 69.3311,32.5807 69.3111,32.5555 69.2878,32.532 69.2672,32.5221 69.2373,32.5121 69.217,32.504 69.1926,32.4838 69.1805,32.464 69.1667,32.434 69.1581,32.4048 69.161,32.3751 69.1715,32.3476 69.1878,32.3195 69.2007,32.286 69.2007,32.2544 69.1932,32.1819 69.1884,32.1618 69.1813,32.1346 69.1831,32.1035 69.2016,32.0127 69.2382,31.9049 69.2013,31.8889 69.1247,31.8231 69.113,31.7957 69.0676,31.7336 69.0395,31.6987 69.016,31.6764 68.9296,31.6157 68.7383,31.5704 68.7142,31.5794 68.6407,31.6663 68.6305,31.6864 68.5616,31.7473 68.4872,31.7879 68.4673,31.7923 68.4303,31.7888 68.3963,31.7769 68.3576,31.7445 68.4268,31.7333 68.4756,31.7252 68.465,31.7012 68.4454,31.6913 68.1828,31.7382 68.1304,31.7809 68.0995,31.7936 68.0751,31.794 68.0575,31.7705 68.0369,31.7323 67.9557,31.6515 67.8804,31.5985 67.84,31.6065 67.7982,31.6041 67.7732,31.5929 67.7517,31.5723 67.7351,31.545 67.6496,31.4963 67.6203,31.4891 67.5936,31.4883 67.5672,31.4959 67.4937,31.4941 67.5263,31.3951 67.5733,31.3663 67.5981,31.3678 67.6288,31.377 67.6575,31.3796 67.6784,31.3759 67.7087,31.3495 67.7026,31.3085 67.5254,31.2364 67.2971,31.1803 67.1882,31.1791 67.1691,31.1874 67.147,31.1833 66.9757,31.2064 66.9553,31.2296 66.9627,31.2677 66.9492,31.2835 66.9212,31.2872 66.8786,31.2851 66.794,31.2575 66.7691,31.2456 66.6349,31.1724 66.6072,31.0919 66.6001,31.0568 66.4927,30.9521 66.4746,30.9413 66.4512,30.936 66.3894,30.9269 66.3636,30.9251 66.3346,30.9174 66.3141,30.909 66.1971,30.536 66.2304,30.4763 66.2534,30.4603 66.2658,30.4084 66.2351,30.1944 66.2046,30.1526 66.1865,30.1162 66.1548,30.0316 66.1753,30.0072 66.2107,29.9864 66.2761,29.9263 66.2168,29.8599 66.1711,29.8186 66.0424,29.7871 65.9825,29.7721 65.7773,29.7207 65.649,29.6884 65.5123,29.6535 65.1706,29.5653 64.95,29.508 64.7895,29.5362 64.6859,29.5458 64.6562,29.5497 64.6119,29.5534 64.5769,29.5546 64.4913,29.5499 64.4659,29.5478 64.4047,29.5411 64.2963,29.5205 64.1855,29.4889 64.1282,29.4655 64.1041,29.4491 64.0799,29.4244 63.9765,29.3818 63.9343,29.3975 63.6207,29.4515 63.505,29.471 63.4724,29.4689 63.1485,29.4408 63.1218,29.4381 62.4779,29.3799 62.4038,29.3734 62.3808,29.3792 62.3275,29.3942 62.2818,29.4078 62.259,29.4145 62.1678,29.4409 62.0234,29.4819 61.9321,29.5074 61.7094,29.5702 60.9841,29.7742 60.9075,29.7955 60.7874,29.8305 60.793,29.8338 60.8322,29.8737 60.963,30.0102 61.1009,30.1522 61.1375,30.1892 61.1982,30.2505 61.2928,30.3479 61.6782,30.756 61.77,30.9894 61.7308,31.1426 61.7081,31.1824 61.6867,31.2212 61.6909,31.2832 61.6606,31.3184 61.6336,31.3482 61.3709,31.3832 61.1091,31.4172 61.0247,31.4281 60.7699,31.4611 60.7323,31.6244 60.745,31.7389 60.7443,31.9126 60.728,31.961 60.7356,31.9838 60.7575,32.0546 60.7759,32.1546 60.7794,32.1899 60.7729,32.225 60.7538,32.2859 60.6474,32.5874 60.581,32.782 60.5173,32.9769 60.5094,33.0062 60.5038,33.0293 60.5021,33.0518 60.5047,33.1124 60.5525,33.1705 60.6452,33.2718 60.6779,33.3079 60.7245,33.3535 60.7736,33.447 60.7985,33.4633 60.8507,33.4674 60.86,33.4795 60.8364,33.5103 60.8149,33.5184 60.7768,33.5214 60.7091,33.5241 60.6303,33.523 60.5874,33.5299 60.5186,33.5601 60.492,33.5737 60.4675,33.5879 60.4525,33.6023 60.4417,33.6231 60.4349,33.652 60.4302,33.7022 60.462,33.7392 60.4731,33.7596 60.4751,33.7843 60.4508,33.9234 60.4417,33.9726 60.4309,34.0221 60.4256,34.0535 60.4259,34.0843 60.4327,34.1074 60.4477,34.1311 60.4676,34.1582 60.5967,34.2758 60.6606,34.2816 60.688,34.284 60.7573,34.2845 60.8,34.2812 60.8046,34.3169 60.7196,34.425 60.6892,34.4395 60.6452,34.4893 60.6615,34.506 60.7004,34.5175 60.7543,34.5233 60.7743,34.529 60.8975,34.6122 60.9722,34.7504 60.9986,34.8405 61.0364,34.9778 61.0527,35.0467 61.057,35.0928 61.0372,35.1246 61.0206,35.1371 61.0171,35.1969 61.0267,35.2424 61.1043,35.3089 61.197,35.4777 61.2086,35.5158 61.1973,35.5676 61.2169,35.5886 61.2954,35.5964 61.3497,35.5151 61.367,35.5117 61.4236,35.4696 61.4487,35.4442 61.4968,35.4113 61.516,35.4045 61.7185,35.3721 61.7373,35.3794 61.8855,35.4196 61.9115,35.4191 61.9622,35.4016 61.992,35.3802 62.0473,35.3351 62.0521,35.3284 62.0831,35.2964 62.1896,35.2169 62.1934,35.1621 62.2317,35.1067 62.2585,35.1307 62.2804,35.1592 62.3066,35.1879 62.3298,35.2113 62.3465,35.2255 62.3889,35.2482 62.4322,35.2341 62.4472,35.2191 62.4688,35.1971 62.5488,35.1865 62.6459,35.2181 62.7555,35.2848 62.8016,35.3179 62.8217,35.3344 62.8411,35.3447 62.9046,35.3764 62.9414,35.3882 62.9688,35.3903 63.0051,35.3926 63.0257,35.4171 63.0428,35.4998 63.0176,35.5165 63.0237,35.5937 63.0554,35.6127 63.1029,35.6338 63.0765,35.7241 63.0229,35.7919 63.0411,35.8226 63.1224,35.8217 63.1582,35.8165 63.1908,35.8128 63.2138,35.8116 63.2349,35.8122 63.2602,35.8171 63.4404,35.8628 63.4675,35.8777 63.5072,35.9181 63.5304,35.9274 63.5507,35.9292 63.5727,35.9289 63.6151,35.9304 63.6859,35.9384 63.7183,35.9472 63.806,35.9914 63.8443,35.9978 63.8946,35.9988 64.0117,36.0828 64.081,36.1244 64.2694,36.1903 64.3431,36.2056 64.3825,36.211 64.4198,36.24 64.44,36.2586 64.4972,36.3286 64.5174,36.3563 64.5311,36.383 64.5417,36.4129 64.5489,36.4457 64.5463,36.4912 64.5302,36.5264 64.5257,36.559 64.5324,36.5953 64.5419,36.6229 64.5528,36.648 64.5677,36.6691 64.609,36.7272 64.6308,36.7614 64.6595,36.8095 64.6916,36.8526 64.7081,36.8779 64.7153,36.9141 64.7056,36.9656 64.7005,36.9867 64.6927,37.0211 64.6958,37.0608 64.7089,37.0801 64.738,37.097 64.7596,37.1066 64.9583,37.1938 64.9813,37.2013 65.0081,37.2042 65.2764,37.2069 65.3056,37.2069 65.3514,37.2025 65.3819,37.2034 65.4381,37.2062 65.477,37.2194 65.5625,37.3106 65.5638,37.3542 65.558,37.3854 65.5593,37.4118 65.5801,37.453 65.5947,37.4749 65.6112,37.4905 65.6854,37.4956 65.9214,37.4134 66.0184,37.3793 66.0996,37.3302 66.2006,37.2846 66.2306,37.2843 66.2652,37.2947 66.3266,37.3018 66.3535,37.2769 66.3673,37.2796 66.4027,37.3022 66.4252,37.3198 66.4505,37.3244 66.4505,37.3244 26,3.0,Greece 20.544,38.4248 20.585,38.3512 20.653,38.2345 20.785,38.0721 20.7659,38.0207 20.7075,38.0182 20.5305,38.048 20.488,38.0605 20.3507,38.1139 20.3156,38.1352 20.3148,38.1559 20.3291,38.1889 20.3717,38.2825 20.4148,38.2837 20.4537,38.2658 20.4769,38.2763 20.4892,38.2847 20.509,38.3016 20.5188,38.3173 20.522,38.3481 20.5123,38.3664 20.507,38.3916 20.5146,38.4273 20.5348,38.4278 20.544,38.4248 20.544,38.4248 54,9.0,Japan 138.3274,38.2383 138.324,38.1985 138.3165,38.1681 138.3076,38.1484 138.2875,38.1137 138.2704,38.0853 138.2641,38.0729 138.2584,38.0598 138.2467,38.0178 138.2599,38.0033 138.3391,38.0251 138.3481,38.0324 138.3595,38.0371 138.3823,38.0331 138.3946,38.0271 138.3976,38.0144 138.3953,38.0027 138.3799,37.9709 138.3274,37.8729 138.2944,37.8394 138.1929,37.7814 138.1788,37.7757 138.0963,37.7567 138.0686,37.7516 138.0461,37.754 138.0358,37.7584 138.0274,37.7695 138.029,37.7807 138.0535,37.7912 138.0737,37.7922 138.0888,37.7959 138.0997,37.8063 138.15,37.9033 138.1541,37.9242 138.1496,37.9359 138.1304,37.9504 138.1162,37.9555 138.1032,37.9539 138.0931,37.9476 138.0842,37.9343 138.0728,37.9244 138.0571,37.9307 138.0502,37.9753 138.0521,38.0152 138.0595,38.0322 138.1249,38.1243 138.2647,38.2508 138.283,38.2657 138.2933,38.2717 138.3103,38.278 138.3283,38.2786 138.336,38.2706 138.3274,38.2383 138.3274,38.2383 125,2.0,Italy 15.0617,36.6083 15.0243,36.6457 15.0039,36.6577 14.8765,36.6846 14.844,36.687 14.7945,36.6739 14.76,36.6635 14.7024,36.6773 14.5346,36.7392 14.4404,36.7931 14.4224,36.8319 14.3952,36.8726 14.3753,36.9013 14.3547,36.9248 14.3285,36.9478 14.2578,37.0011 14.2274,37.0208 14.1264,37.0576 14.0835,37.0683 13.9799,37.0686 13.9375,37.0587 13.914,37.0532 13.8695,37.0578 13.7205,37.1163 13.6474,37.1551 13.6299,37.1745 13.5492,37.2339 13.5256,37.2415 13.4877,37.2455 13.3952,37.2823 13.3124,37.3193 13.2551,37.3567 13.2395,37.38 13.2011,37.4133 13.1388,37.4493 13.0689,37.4511 12.9681,37.4995 12.9451,37.5154 12.906,37.531 12.7761,37.5368 12.7392,37.531 12.7119,37.5241 12.6649,37.513 12.6395,37.5177 12.4978,37.6168 12.4519,37.6569 12.4146,37.7609 12.4255,37.7636 12.4423,37.7758 12.4614,37.8302 12.4499,37.8737 12.4936,37.9724 12.5418,38.0178 12.7169,38.0971 12.8047,38.0262 12.8759,37.9826 12.9064,37.9821 12.9386,37.9901 13.0021,38.0163 13.0524,38.0476 13.039,38.091 13.083,38.1419 13.3009,38.1748 13.3401,38.1442 13.3543,38.11 13.3496,38.0781 13.3647,38.0649 13.6933,37.934 13.7427,37.9284 13.7729,37.9296 13.8028,37.936 13.8684,37.9554 13.8982,37.9676 13.9261,37.9869 13.9955,37.993 14.114,37.9802 14.2239,37.9696 14.2929,37.9698 14.349,37.9756 14.5003,38.0002 14.6242,38.0348 14.7651,38.1116 14.8549,38.1276 14.9495,38.1143 15.0687,38.0798 15.1309,38.1028 15.2814,38.1642 15.4951,38.2498 15.5251,38.254 15.6272,38.2216 15.5875,38.208 15.5558,38.1939 15.5396,38.1675 15.5084,38.0942 15.4833,38.0361 15.4076,37.9583 15.3488,37.9012 15.2154,37.7428 15.1996,37.7222 15.1977,37.667 15.1809,37.6093 15.1483,37.52 15.1301,37.5009 15.0986,37.4776 15.0726,37.4482 15.0659,37.4209 15.0728,37.3065 15.1669,37.1424 15.1841,37.1158 15.211,37.0832 15.24,37.0681 15.2799,37.0614 15.296,37.0014 15.2965,36.9676 15.2424,36.9401 15.1942,36.9137 15.1603,36.894 15.1311,36.8721 15.0907,36.7987 15.0761,36.7443 15.0946,36.7022 15.1141,36.6329 15.0721,36.6108 15.0617,36.6083 15.0617,36.6083 15,3.0,Greece 23.4702,37.9566 23.4751,37.9555 23.4908,37.9519 23.5086,37.9416 23.5158,37.8884 23.5078,37.8768 23.4312,37.8367 23.417,37.8371 23.3766,37.8517 23.3726,37.8644 23.3796,37.8866 23.4067,37.9433 23.4584,37.9574 23.4702,37.9566 23.4702,37.9566 21,3.0,Greece 24.9274,37.6435 24.9146,37.6507 24.8828,37.6746 24.8403,37.724 24.798,37.7719 24.7343,37.8301 24.7203,37.836 24.7044,37.8388 24.6826,37.8305 24.661,37.8844 24.6579,37.9111 24.6621,37.92 24.6706,37.9271 24.7112,37.948 24.7453,37.9543 24.7588,37.9559 24.9299,37.8301 24.9649,37.7204 24.9529,37.6915 24.9274,37.6435 24.9274,37.6435 26,3.0,Greece 20.8087,37.6042 20.8036,37.6041 20.7832,37.6105 20.6865,37.6804 20.676,37.6905 20.6014,37.7707 20.5928,37.8049 20.5949,37.8186 20.6013,37.8333 20.6161,37.8559 20.6512,37.8779 20.6739,37.8867 20.7668,37.8065 20.8358,37.7866 20.8587,37.7719 20.8707,37.7628 20.965,37.6832 20.9711,37.6716 20.9669,37.6564 20.9157,37.6773 20.8921,37.6878 20.8685,37.689 20.8433,37.6836 20.813,37.6429 20.8087,37.6042 20.8087,37.6042 39,2.0,Portugal -25.4225,37.6634 -25.5295,37.6866 -25.6557,37.6955 -25.6771,37.7025 -25.6929,37.7112 -25.7769,37.7612 -25.8231,37.7933 -25.83,37.8112 -25.8199,37.8414 -25.8081,37.8596 -25.7611,37.8657 -25.7429,37.8669 -25.7137,37.8588 -25.6945,37.8528 -25.6648,37.8318 -25.664,37.8133 -25.6432,37.7986 -25.5657,37.7854 -25.5509,37.7844 -25.5154,37.7828 -25.4016,37.7883 -25.3678,37.7952 -25.3403,37.8055 -25.2933,37.8211 -25.16,37.8219 -25.1437,37.8207 -25.1318,37.8164 -25.1216,37.8111 -25.107,37.7981 -25.1001,37.7803 -25.0974,37.7661 -25.1073,37.7231 -25.1131,37.7134 -25.1219,37.7064 -25.1332,37.7023 -25.1797,37.6954 -25.3091,37.6815 -25.4225,37.6634 -25.4225,37.6634 19,9.0,South Korea 126.2765,37.7641 126.3309,37.7358 126.3452,37.7254 126.3496,37.7161 126.3728,37.5857 126.3473,37.5552 126.3346,37.5524 126.2819,37.55 126.248,37.551 126.2308,37.5566 126.2178,37.5649 126.2064,37.581 126.1974,37.6779 126.2005,37.7452 126.2319,37.7754 126.2572,37.7792 126.269,37.7737 126.2765,37.7641 126.2765,37.7641 22,3.0,Greece 26.7828,37.5944 26.7151,37.6508 26.6732,37.6662 26.6517,37.6628 26.6104,37.6548 26.5869,37.6437 26.5782,37.6382 26.5605,37.6338 26.5463,37.6448 26.5371,37.6899 26.5624,37.7159 26.6326,37.7488 26.6947,37.7657 26.7109,37.7687 26.9533,37.7398 26.9929,37.7292 27.0313,37.6849 27.0279,37.6653 27.0042,37.6605 26.8603,37.6232 26.7828,37.5944 26.7828,37.5944 17,3.0,Greece 25.9501,37.465 25.9446,37.4699 25.9408,37.4851 25.949,37.5035 26.0125,37.5744 26.0318,37.589 26.0466,37.5932 26.2777,37.6376 26.3239,37.6417 26.3222,37.6302 26.2887,37.5924 26.2708,37.5747 26.2329,37.549 26.1805,37.5167 25.9867,37.4724 25.9501,37.465 25.9501,37.465 18,3.0,Greece 24.2534,37.4826 24.2448,37.4871 24.2374,37.5487 24.243,37.5708 24.2518,37.5892 24.2676,37.6143 24.2987,37.6372 24.3186,37.64 24.3368,37.6399 24.3622,37.6312 24.3792,37.6109 24.363,37.5735 24.3492,37.5549 24.3366,37.541 24.2799,37.4918 24.2667,37.4844 24.2534,37.4826 24.2534,37.4826 20,3.0,Greece 25.021,37.6336 25.0458,37.6087 25.1042,37.6026 25.1548,37.5995 25.1812,37.5902 25.2056,37.5798 25.2155,37.5709 25.222,37.5445 25.1969,37.4934 25.1729,37.485 25.1626,37.4855 25.1353,37.4909 25.0809,37.509 24.9621,37.598 24.9462,37.6205 24.9436,37.6317 24.9778,37.6354 25.0094,37.6346 25.021,37.6336 25.021,37.6336 17,3.0,Greece 24.4088,37.4289 24.3998,37.3992 24.4134,37.3895 24.4355,37.3852 24.4506,37.3654 24.4502,37.3542 24.4141,37.3096 24.3845,37.2837 24.3695,37.2725 24.3451,37.2644 24.3353,37.2696 24.338,37.3877 24.3664,37.4172 24.3782,37.4265 24.4095,37.4364 24.4088,37.4289 24.4088,37.4289 346,4.0,Iraq 42.3002,37.0653 42.3213,37.0759 42.4761,37.106 42.5239,37.1121 42.5323,37.1339 42.6685,37.31 42.7095,37.3295 42.7305,37.3419 42.7665,37.3254 42.8383,37.2938 42.868,37.2858 42.9041,37.2816 42.9465,37.2975 43.1003,37.332 43.4329,37.2097 43.5659,37.1882 43.7588,37.1804 43.8554,37.1849 43.8792,37.2101 43.898,37.238 43.9513,37.2758 43.9904,37.2806 44.015,37.2744 44.0383,37.2756 44.0609,37.2737 44.1726,37.2343 44.2039,37.1949 44.2104,37.1533 44.2046,37.1218 44.1723,37.1123 44.138,37.0547 44.199,36.9444 44.261,36.93 44.2829,36.9651 44.2917,36.9968 44.3781,37.0214 44.4121,37.0394 44.4324,37.05 44.4922,37.0912 44.5093,37.108 44.5243,37.1214 44.5836,37.1467 44.6871,37.1326 44.7153,37.1243 44.7286,37.1082 44.7074,37.0706 44.7264,37.0431 44.7587,37.0145 44.7977,37.011 44.8443,36.9892 44.8505,36.8791 44.8467,36.8514 44.824,36.8293 44.786,36.7806 44.7943,36.7533 44.812,36.7432 44.8392,36.7413 44.8807,36.7407 44.9667,36.6951 45.0064,36.6419 45.004,36.5987 44.9801,36.5733 44.957,36.5167 44.9544,36.5018 44.9967,36.4654 45.0252,36.4169 45.0279,36.3946 45.0483,36.3776 45.0802,36.3682 45.1066,36.3706 45.135,36.3785 45.1573,36.3882 45.1849,36.3877 45.2204,36.3404 45.2608,36.1977 45.2846,36.0934 45.2954,36.0242 45.355,35.9552 45.4134,35.9763 45.4515,35.9776 45.4611,35.971 45.5653,35.926 45.6039,35.9002 45.6231,35.8818 45.6595,35.8395 45.6734,35.8133 45.6805,35.792 45.6979,35.7771 45.8083,35.7775 45.8287,35.7918 46.0294,35.8253 46.0756,35.8072 46.088,35.7838 46.1132,35.7671 46.1407,35.7629 46.1987,35.7728 46.2309,35.7913 46.2636,35.7925 46.2851,35.7742 46.274,35.7373 46.2088,35.688 46.1696,35.6721 46.0916,35.6551 46.0509,35.6527 46.0129,35.6569 45.9743,35.6489 45.9203,35.5449 45.9313,35.4453 45.9915,35.3597 46.0055,35.3437 46.0883,35.2581 46.0732,35.2331 46.1005,35.1948 46.1268,35.1823 46.1063,35.0691 45.9761,35.0201 45.9326,35.0361 45.8904,35.054 45.8184,34.9935 45.8211,34.9598 45.8331,34.9341 45.8086,34.8648 45.7894,34.8581 45.7384,34.8752 45.7057,34.8074 45.679,34.7919 45.6533,34.7907 45.6318,34.7776 45.5924,34.6964 45.6005,34.6766 45.6248,34.6606 45.6492,34.6203 45.6705,34.5468 45.6555,34.519 45.5895,34.5349 45.5041,34.5476 45.3796,34.4195 45.4017,34.3399 45.4336,34.2966 45.4608,34.3089 45.4903,34.307 45.5144,34.2857 45.5252,34.2631 45.5073,34.1132 45.4882,34.096 45.4081,34.0392 45.3449,33.9371 45.365,33.9131 45.3878,33.9044 45.4136,33.9028 45.441,33.9081 45.4914,33.8508 45.582,33.7296 45.588,33.6972 45.6375,33.6318 45.6929,33.5999 45.6925,33.5574 45.7266,33.5631 45.7555,33.5849 45.8394,33.5954 45.8851,33.517 45.8313,33.4841 45.8148,33.4624 45.871,33.4454 45.8922,33.4422 45.9468,33.4482 45.9693,33.4232 45.9844,33.4001 45.9891,33.3689 45.9895,33.3464 46.0673,33.2665 46.1174,33.2276 46.1392,33.1563 46.1285,33.1384 46.0852,33.099 46.0531,33.0461 46.0373,32.9661 46.0466,32.9341 46.0919,32.9158 46.1184,32.9166 46.1441,32.9224 46.1849,32.9283 46.2152,32.9301 46.2447,32.9267 46.3131,32.9144 46.3546,32.9038 46.3905,32.8884 46.4334,32.8658 46.4973,32.8213 46.5935,32.7621 46.6352,32.7423 46.657,32.733 46.6869,32.7163 46.7794,32.6439 46.7963,32.6306 46.8213,32.6068 46.8425,32.5868 46.8726,32.5642 46.8953,32.5484 46.9933,32.4794 47.011,32.4681 47.0715,32.4296 47.09,32.4222 47.1378,32.4261 47.1874,32.4372 47.2097,32.4522 47.2996,32.4377 47.3762,32.3494 47.3545,32.3133 47.4676,32.1611 47.5407,32.0647 47.5714,32.0175 47.6756,31.9009 47.7248,31.8537 47.787,31.7843 47.8022,31.7631 47.7714,31.6925 47.7392,31.6177 47.6866,31.4951 47.6547,31.4206 47.6353,31.3728 47.6345,31.2696 47.6346,31.2006 47.6339,31.187 47.6336,31.1594 47.6329,31.0768 47.6319,30.9667 47.7812,30.9651 47.8618,30.965 47.9742,30.9616 47.9744,30.9119 47.972,30.6226 47.9708,30.554 47.9701,30.4572 48.0054,30.4296 48.0453,30.4205 48.079,30.4061 48.0979,30.3931 48.2268,30.296 48.3493,30.166 48.3473,30.1363 48.3483,30.0699 48.3875,29.972 48.4107,29.9496 48.4828,29.9296 48.4977,29.9057 48.4711,29.8911 48.3806,29.894 48.3214,29.9062 48.2814,29.9207 48.2438,29.9373 48.2161,29.9547 48.191,29.968 48.171,29.978 48.1273,29.996 48.096,30.0043 48.0316,30.012 48.0095,30.0113 47.8972,29.9995 47.8815,29.9842 47.8731,29.9844 47.6615,30.0506 47.3751,30.0495 47.3352,30.0493 47.2896,30.0482 47.1431,29.9998 47.1091,29.9817 47.0867,29.963 47.068,29.9412 47.0526,29.9129 47.0335,29.8738 46.9869,29.7609 46.9206,29.6131 46.8836,29.5454 46.8633,29.5216 46.7984,29.4428 46.7674,29.4008 46.7153,29.3236 46.6546,29.2337 46.6299,29.1979 46.5935,29.156 46.575,29.146 46.5387,29.1234 46.5216,29.1107 46.4979,29.089 46.4874,29.0726 46.3668,29.0291 46.0627,29.0536 44.6639,29.1659 43.7537,29.8351 43.0091,30.3826 42.8689,30.4821 42.0306,31.077 41.3862,31.3384 40.3608,31.9126 40.0228,31.9703 39.4363,32.0699 39.146,32.1189 39.2501,32.2005 39.2092,32.3196 38.9928,32.2681 38.9353,32.4414 39.0353,32.4653 38.7443,33.3405 38.76,33.3451 38.9109,33.4182 39.335,33.6212 39.5278,33.7123 39.7463,33.8157 39.9483,33.9097 40.1135,33.9865 40.1474,34.0028 40.6111,34.2219 40.9508,34.3809 40.9773,34.4353 41.0463,34.5698 41.1714,34.7442 41.1696,34.8778 41.1616,35.0298 41.1594,35.0733 41.1579,35.1494 41.159,35.1614 41.1619,35.1854 41.1693,35.2141 41.1877,35.2672 41.2009,35.3039 41.2088,35.3282 41.2158,35.3593 41.2173,35.4036 41.2191,35.4285 41.2245,35.4557 41.2691,35.5108 41.3304,35.5909 41.3245,35.7969 41.3033,35.8361 41.2176,35.9873 41.2014,36.0148 41.2364,36.3147 41.3132,36.4318 41.3489,36.4847 41.7806,36.5581 42.3118,37.0144 42.3187,37.0215 42.3229,37.0304 42.3002,37.0653 42.3002,37.0653 364,1.0,Tunisia 8.6107,36.8999 8.6558,36.9124 8.7547,36.921 8.8155,36.938 8.8467,36.9539 8.8664,36.9654 8.8848,36.9772 8.9039,36.9892 8.9291,37.0102 8.9477,37.0287 8.9615,37.045 8.9737,37.0689 9.0314,37.1107 9.0542,37.1194 9.0689,37.1206 9.1465,37.146 9.3158,37.1863 9.5479,37.2595 9.6465,37.2934 9.7262,37.2984 9.8459,37.2866 9.8568,37.2397 9.837,37.213 9.7956,37.1939 9.7647,37.1819 9.7715,37.1373 9.7957,37.1092 9.8257,37.099 9.8474,37.0987 9.8682,37.1059 9.8891,37.1191 9.9131,37.1645 9.8457,37.1871 9.9141,37.2062 10.0353,37.2197 10.1812,37.1698 10.2415,37.1378 10.1989,37.1218 10.1331,37.1264 10.1187,37.1041 10.178,37.0861 10.1983,37.0863 10.1562,37.0225 10.1592,36.998 10.1873,36.9456 10.3193,36.8479 10.3309,36.8359 10.273,36.774 10.2622,36.7971 10.1894,36.7897 10.1794,36.7698 10.1834,36.7491 10.2306,36.7448 10.2427,36.7457 10.3058,36.7034 10.3234,36.6939 10.3613,36.6834 10.3937,36.6816 10.4017,36.6829 10.4224,36.6886 10.4452,36.6975 10.4707,36.7109 10.5109,36.7345 10.5334,36.7766 10.5526,36.8161 10.5855,36.837 10.6089,36.8352 10.6412,36.8357 10.6635,36.8374 10.6992,36.8456 10.8052,36.9095 10.8541,36.9548 10.8796,36.9979 11.0251,37.0445 11.0535,37.0099 11.0876,36.8631 11.0214,36.7702 10.9664,36.7191 10.9532,36.7024 10.8831,36.6071 10.8508,36.5509 10.8229,36.5017 10.8081,36.4623 10.7987,36.4421 10.7824,36.4246 10.7268,36.4124 10.6597,36.3933 10.5585,36.3571 10.534,36.3436 10.5168,36.3303 10.5089,36.3223 10.4993,36.3104 10.4841,36.2874 10.4667,36.2468 10.4553,36.2147 10.4423,36.1386 10.4425,36.077 10.458,36.0164 10.5063,35.9321 10.5912,35.8221 10.6112,35.8008 10.6722,35.7484 10.7257,35.7318 10.801,35.6843 10.8131,35.6661 10.8572,35.6421 10.893,35.6334 10.9156,35.6309 10.9589,35.6241 10.9871,35.6165 11.0129,35.5976 10.9996,35.5231 11.0159,35.4818 11.0055,35.3496 11.0117,35.2989 11.0366,35.2657 11.0703,35.2357 11.0865,35.2236 11.1124,35.2027 11.0584,35.1312 11.0346,35.1186 11.0054,35.0848 11.0002,35.0536 11.0005,35.0231 10.8954,34.8496 10.8093,34.7548 10.7175,34.6316 10.6948,34.6126 10.6666,34.6059 10.6453,34.604 10.6191,34.5932 10.5618,34.5072 10.483,34.4841 10.4171,34.4577 10.3818,34.4218 10.3616,34.3973 10.3226,34.3692 10.1392,34.2863 10.1029,34.276 10.0241,34.1799 10.0083,34.1528 9.9995,34.1328 9.9942,34.1306 10.0014,34.0716 10.0064,34.0422 10.0178,33.9985 10.0265,33.9715 10.0561,33.9152 10.0668,33.8975 10.0832,33.8767 10.1531,33.7912 10.2533,33.7111 10.3012,33.6752 10.3188,33.6626 10.3427,33.6484 10.3769,33.6355 10.4439,33.613 10.465,33.601 10.5166,33.612 10.5919,33.6337 10.6175,33.6462 10.6455,33.6639 10.6808,33.675 10.7021,33.6667 10.7107,33.6419 10.7032,33.5682 10.692,33.541 10.659,33.5108 10.6778,33.4544 10.7377,33.4365 10.8959,33.4988 10.9158,33.5298 10.9068,33.556 10.8877,33.5762 10.9196,33.5924 10.9654,33.5993 11.0118,33.5879 11.0417,33.575 11.0644,33.5567 11.0774,33.5396 11.0932,33.5122 11.1,33.4847 11.0994,33.4552 11.0895,33.4231 11.0868,33.3925 11.1067,33.2486 11.1597,33.173 11.3282,33.1457 11.3505,33.1446 11.4167,33.1522 11.467,33.1508 11.5111,33.134 11.51,33.1098 11.5071,33.0889 11.5019,33.0656 11.4898,33.0378 11.4793,33.0066 11.4689,32.9061 11.4622,32.827 11.4519,32.6147 11.4578,32.586 11.4796,32.5626 11.502,32.545 11.522,32.531 11.5433,32.5096 11.5649,32.4666 11.5667,32.4346 11.5525,32.4059 11.536,32.3922 11.5011,32.3733 11.4683,32.3539 11.4,32.317 11.3114,32.2833 11.1674,32.2258 11.1296,32.2102 11.0149,32.1638 10.8644,32.0966 10.8456,32.0565 10.8166,32.0056 10.8001,31.9891 10.6966,31.9287 10.6025,31.8255 10.5174,31.7258 10.4849,31.7016 10.4558,31.6857 10.4307,31.6853 10.4029,31.6904 10.3743,31.6941 10.336,31.6948 10.3017,31.684 10.274,31.6588 10.1233,31.467 10.1102,31.3873 10.1569,31.2804 10.2075,31.1632 10.2514,31.0421 10.2774,30.8759 10.2641,30.8353 10.21,30.7161 10.1988,30.694 10.0708,30.554 9.9692,30.4272 9.8794,30.3224 9.8512,30.3056 9.8282,30.3066 9.7227,30.2821 9.6251,30.2444 9.5248,30.2006 9.522,30.2144 9.5081,30.2694 9.4557,30.476 9.4241,30.5995 9.3714,30.806 9.3222,30.9982 9.2865,31.1359 9.2015,31.4654 9.1694,31.589 9.0941,31.8771 9.071,31.9645 9.0454,32.0598 8.9968,32.0936 8.8532,32.1821 8.677,32.2901 8.5489,32.368 8.4044,32.4552 8.3403,32.495 8.3319,32.5372 8.3125,32.6739 8.3087,32.7018 8.3017,32.7564 8.2953,32.7975 8.2634,32.84 8.1471,32.991 8.068,33.0739 8.0352,33.0706 8.0092,33.0771 7.7526,33.1747 7.7331,33.1919 7.7221,33.2112 7.7164,33.2494 7.7142,33.2813 7.7146,33.3357 7.7146,33.3618 7.7152,33.3819 7.6657,33.4705 7.5478,33.6386 7.5053,33.7729 7.4828,33.8497 7.4826,33.8819 7.4908,33.9097 7.499,33.9298 7.5087,33.9663 7.5057,34.0339 7.5083,34.0448 7.5191,34.0662 7.6162,34.1565 7.6392,34.1707 7.6719,34.1819 7.6916,34.1857 7.721,34.1881 7.7492,34.1952 7.7738,34.2125 7.8118,34.3001 7.8143,34.3424 7.8349,34.3794 7.8587,34.3975 8.0257,34.4705 8.06,34.4832 8.096,34.4942 8.1105,34.4995 8.2422,34.6164 8.2279,34.6322 8.2166,34.655 8.233,34.6798 8.2545,34.6994 8.2597,34.7012 8.275,34.7118 8.2646,34.804 8.2755,34.9266 8.3188,35.0696 8.3902,35.1527 8.3298,35.2508 8.3088,35.2732 8.2975,35.2995 8.2915,35.3342 8.292,35.3594 8.3013,35.3961 8.3114,35.4182 8.3383,35.5445 8.3344,35.5839 8.334,35.6041 8.3271,35.6426 8.3133,35.6649 8.2881,35.6853 8.2684,35.7066 8.2603,35.7271 8.252,35.7769 8.25,35.8164 8.2561,35.8817 8.2695,35.9216 8.2801,35.9599 8.2945,36.0571 8.3087,36.1645 8.3231,36.2507 8.3609,36.3169 8.3636,36.3343 8.3657,36.3794 8.3594,36.4116 8.2801,36.4409 8.235,36.4408 8.2046,36.4429 8.1768,36.4546 8.171,36.4645 8.1756,36.4862 8.1969,36.5153 8.2305,36.5283 8.3389,36.5629 8.439,36.6199 8.4646,36.6791 8.4655,36.7023 8.6268,36.7897 8.6212,36.8405 8.6107,36.8999 8.6107,36.8999 267,3.0,Syria 35.876,35.8868 35.969,35.8597 36.0633,35.8212 36.0813,35.8121 36.0973,35.7935 36.1088,35.7785 36.1215,35.7798 36.1355,35.8149 36.1356,35.8396 36.1399,35.8699 36.1766,35.9218 36.2528,35.9295 36.3276,35.9577 36.3363,35.9903 36.3343,36.0566 36.3277,36.136 36.345,36.1729 36.4591,36.1927 36.488,36.195 36.5279,36.1872 36.5689,36.1791 36.6355,36.1922 36.6424,36.2457 36.6133,36.2702 36.5351,36.3567 36.5202,36.3801 36.5018,36.447 36.5387,36.5787 36.6145,36.7739 36.612,36.7925 36.619,36.7932 36.655,36.7882 36.8855,36.737 36.9402,36.7164 36.9898,36.6786 37.0791,36.6181 37.2001,36.6237 37.2209,36.6234 37.3251,36.6142 37.4843,36.6368 37.5193,36.6557 37.6204,36.696 37.6609,36.7072 37.6868,36.7066 37.7276,36.7069 37.8421,36.7398 37.8683,36.7498 37.9065,36.7718 37.9438,36.7836 37.9737,36.7893 38.006,36.8091 38.0475,36.8323 38.1312,36.8645 38.1933,36.8727 38.3362,36.857 38.3827,36.8441 38.4634,36.8169 38.4908,36.8029 38.5779,36.7267 38.6335,36.6843 38.6749,36.6624 38.7243,36.657 38.8667,36.6539 38.9152,36.6557 38.9527,36.6646 38.9924,36.6672 39.0239,36.6616 39.0454,36.6544 39.0795,36.6424 39.1204,36.6286 39.1703,36.6242 39.2066,36.627 39.2574,36.6372 39.3877,36.6565 39.5363,36.6778 39.7661,36.7124 39.8711,36.745 39.8907,36.7516 39.9557,36.7733 40.1618,36.8545 40.2114,36.8781 40.2272,36.8872 40.3622,36.9599 40.3948,36.974 40.4296,36.9795 40.4602,36.9816 40.5817,37.0274 40.6171,37.0434 40.635,37.0541 40.7175,37.0766 40.7533,37.081 40.8474,37.0869 40.8763,37.0881 41.0646,37.0561 41.1624,37.0308 41.3082,37.0335 41.4,37.0372 41.4288,37.0389 41.4939,37.0439 41.7856,37.0883 41.9403,37.1311 42.0017,37.1511 42.028,37.1665 42.0933,37.2176 42.1254,37.2486 42.1603,37.2475 42.2389,37.2278 42.2959,37.1893 42.3015,37.088 42.3002,37.0653 42.3229,37.0304 42.3187,37.0215 42.3118,37.0144 41.7806,36.5581 41.3489,36.4847 41.3132,36.4318 41.2364,36.3147 41.2014,36.0148 41.2176,35.9873 41.3033,35.8361 41.3245,35.7969 41.3304,35.5909 41.2691,35.5108 41.2245,35.4557 41.2191,35.4285 41.2173,35.4036 41.2158,35.3593 41.2088,35.3282 41.2009,35.3039 41.1877,35.2672 41.1693,35.2141 41.1619,35.1854 41.159,35.1614 41.1579,35.1494 41.1594,35.0733 41.1616,35.0298 41.1696,34.8778 41.1714,34.7442 41.0463,34.5698 40.9773,34.4353 40.9508,34.3809 40.6111,34.2219 40.1474,34.0028 40.1135,33.9865 39.9483,33.9097 39.7463,33.8157 39.5278,33.7123 39.335,33.6212 38.9109,33.4182 38.76,33.3451 38.7443,33.3405 38.6474,33.2902 38.4837,33.204 38.2691,33.0918 37.9096,32.9008 37.576,32.7218 37.45,32.6531 37.4453,32.6506 37.1049,32.4641 36.8186,32.3055 36.79,32.2777 36.6766,32.3006 36.5954,32.313 36.4688,32.3271 36.4413,32.3395 36.3531,32.3457 36.2996,32.3969 36.2673,32.4233 36.1504,32.4969 36.1188,32.4819 36.0788,32.4916 36.033,32.5069 35.979,32.5772 35.9566,32.6269 35.8846,32.6839 35.747,32.7075 35.7169,32.7125 35.6438,32.6755 35.6028,32.6488 35.6005,32.6664 35.6055,32.6911 35.6193,32.7255 35.6167,32.7606 35.5928,32.7785 35.5955,32.82 35.5724,32.8545 35.5681,32.8581 35.5784,32.8689 35.5875,32.8988 35.5886,32.963 35.5961,33.0136 35.6038,33.0544 35.6063,33.088 35.6207,33.1681 35.6227,33.175 35.6347,33.2073 35.6235,33.2147 35.6132,33.2171 35.5862,33.2091 35.5776,33.2086 35.5803,33.2391 35.723,33.3039 35.7403,33.31 35.7478,33.3132 35.7682,33.3337 35.7799,33.3659 35.8057,33.38 35.8367,33.3924 35.8875,33.4294 35.9877,33.516 36.0121,33.5482 35.9787,33.5817 35.9206,33.6031 35.8937,33.6065 35.9243,33.6806 35.9705,33.7321 36.0244,33.7899 36.1939,33.8185 36.3061,33.7891 36.3267,33.7932 36.3415,33.8163 36.3106,33.842 36.2822,33.8404 36.2364,33.8732 36.281,33.9372 36.3031,33.9591 36.3504,33.9958 36.4697,34.0692 36.5764,34.1667 36.5463,34.1899 36.4993,34.3058 36.4784,34.3936 36.4072,34.4529 36.383,34.4634 36.3041,34.4623 36.3172,34.4995 36.3504,34.5159 36.4055,34.556 36.4122,34.5918 36.3294,34.6006 36.2518,34.6034 36.0752,34.6055 36.0663,34.6001 36.0407,34.5951 35.9843,34.5938 35.9263,34.6087 35.9033,34.6556 35.885,34.6998 35.8369,34.8356 35.8286,34.8732 35.8314,34.9473 35.8363,35.0258 35.8399,35.0641 35.8774,35.1142 35.9109,35.1566 35.9045,35.1864 35.8952,35.2052 35.8829,35.2227 35.8725,35.383 35.8107,35.4383 35.6877,35.5418 35.736,35.5982 35.7806,35.6688 35.7971,35.6982 35.8325,35.8239 35.876,35.8868 35.876,35.8868 20,3.0,Greece 25.4194,36.8771 25.402,36.8798 25.3086,37.0319 25.3149,37.0459 25.4699,37.1478 25.5086,37.156 25.5319,37.1393 25.5432,37.1266 25.5496,37.1185 25.5622,37.0943 25.567,37.0754 25.566,37.0652 25.5568,37.0156 25.5538,37.0027 25.5469,36.9742 25.5198,36.9132 25.4529,36.8863 25.4281,36.8781 25.4194,36.8771 25.4194,36.8771 18,3.0,Greece 25.1583,36.9326 25.1329,36.9379 25.1196,36.9426 25.0889,36.9538 25.0724,36.9703 25.066,36.9872 25.0771,37.0158 25.0998,37.0517 25.1185,37.0704 25.1305,37.0801 25.1905,37.0993 25.2354,37.097 25.2515,37.0869 25.2351,37.0112 25.2311,36.9977 25.2174,36.967 25.1583,36.9326 25.1583,36.9326 788,2.0,Algeria -2.2062,35.0467 -2.1571,35.0583 -2.1148,35.049 -2.0953,35.0403 -2.0627,35.0327 -2.0271,35.0326 -1.977,35.0341 -1.9377,35.0401 -1.8941,35.0484 -1.7782,35.0778 -1.7435,35.0948 -1.6963,35.1341 -1.5539,35.2221 -1.522,35.2399 -1.4692,35.2672 -1.4409,35.2685 -1.4145,35.2642 -1.3935,35.2656 -1.3675,35.2736 -1.3588,35.2781 -1.3502,35.2828 -1.2958,35.3205 -1.2727,35.3421 -1.2572,35.3671 -1.2474,35.3968 -1.2382,35.4274 -1.2224,35.4631 -1.1953,35.5115 -1.1671,35.5375 -1.1245,35.567 -1.0344,35.637 -1.0047,35.6415 -0.9014,35.6716 -0.7906,35.725 -0.6963,35.6797 -0.6449,35.6727 -0.617,35.6783 -0.5288,35.7296 -0.5104,35.7499 -0.4929,35.7801 -0.4772,35.8138 -0.3723,35.8624 -0.3396,35.8586 -0.3001,35.824 -0.2959,35.7941 -0.2438,35.7707 -0.1436,35.7479 -0.1204,35.7437 -0.1139,35.7438 -0.1062,35.744 -0.0519,35.7661 0.0179,35.8075 0.0418,35.8305 0.0843,35.9022 0.1176,35.9713 0.1271,36.0047 0.2038,36.0628 0.3296,36.1271 0.5373,36.229 0.6151,36.2651 0.6766,36.2872 0.7293,36.2919 0.7362,36.2915 0.7619,36.2954 0.8386,36.3252 0.866,36.3359 0.914,36.3638 0.9269,36.3884 0.9463,36.4082 1.0238,36.4331 1.181,36.4712 1.4045,36.4887 1.4949,36.4828 1.5657,36.4903 1.6118,36.4965 1.6475,36.5057 1.6894,36.5081 1.7201,36.5063 1.7404,36.5127 1.8401,36.5264 1.9034,36.5295 1.9478,36.5206 1.9699,36.5199 2.0418,36.5257 2.1479,36.5463 2.1743,36.5585 2.2183,36.5705 2.3062,36.5884 2.3362,36.5941 2.3601,36.5909 2.3909,36.5774 2.3997,36.5569 2.4313,36.5494 2.4712,36.5456 2.4968,36.5435 2.5694,36.5482 2.5944,36.5531 2.6227,36.5622 2.776,36.6362 2.8126,36.6617 2.8325,36.6811 2.8966,36.7537 2.9305,36.7613 2.96,36.7611 2.9876,36.7673 3.0266,36.7644 3.0584,36.7438 3.0853,36.709 3.1024,36.7009 3.1267,36.6978 3.168,36.7002 3.1814,36.7016 3.2239,36.7373 3.3029,36.7418 3.379,36.73 3.4748,36.7268 3.5398,36.7444 3.6205,36.7692 3.6475,36.7827 3.6881,36.8078 3.7115,36.8338 3.7429,36.848 3.8111,36.8621 3.8967,36.8735 3.9233,36.8531 3.9539,36.8474 3.9925,36.8533 4.0709,36.8444 4.101,36.8428 4.2399,36.8619 4.2894,36.863 4.3836,36.8538 4.5517,36.8432 4.5976,36.8465 4.6296,36.8451 4.6932,36.8449 4.7185,36.8451 4.7432,36.8493 4.7824,36.8524 4.9168,36.8057 5.0939,36.7303 5.0733,36.6916 5.0849,36.6695 5.1553,36.6314 5.1884,36.6196 5.2359,36.6057 5.2925,36.5994 5.3213,36.5993 5.4174,36.6121 5.4294,36.6244 5.4555,36.6226 5.5242,36.6532 5.5407,36.6726 5.5567,36.6975 5.5813,36.7245 5.6974,36.7808 5.7349,36.7914 5.7674,36.7892 5.8083,36.772 5.8593,36.7751 5.9924,36.7966 6.0167,36.8021 6.1565,36.8508 6.2251,36.8722 6.234,36.8792 6.2557,36.9075 6.2456,36.9331 6.2626,36.9788 6.3588,37.0401 6.3899,37.0449 6.4633,37.0484 6.4956,37.0368 6.5138,37.0244 6.5335,37.0037 6.5638,36.9641 6.5735,36.9423 6.9114,36.843 6.9473,36.8427 7.1323,36.8704 7.1613,36.8785 7.2158,36.9161 7.2409,36.9432 7.2487,36.9652 7.2394,36.986 7.2111,37.0004 7.1936,37.0132 7.1805,37.0373 7.2203,37.0448 7.2445,37.0351 7.2605,37.0264 7.2832,37.0356 7.454,37.0012 7.5441,36.9635 7.5635,36.9518 7.5839,36.9412 7.6048,36.9344 7.7195,36.925 7.7513,36.9245 7.7623,36.8865 7.763,36.8386 7.7747,36.8308 7.8062,36.8191 7.8663,36.8063 7.9221,36.8031 7.9444,36.8053 8.041,36.8334 8.1497,36.8804 8.2148,36.9115 8.3792,36.8777 8.5346,36.8801 8.6107,36.8999 8.6212,36.8405 8.6268,36.7897 8.4655,36.7023 8.4646,36.6791 8.439,36.6199 8.3389,36.5629 8.2305,36.5283 8.1969,36.5153 8.1756,36.4862 8.171,36.4645 8.1768,36.4546 8.2046,36.4429 8.235,36.4408 8.2801,36.4409 8.3594,36.4116 8.3657,36.3794 8.3636,36.3343 8.3609,36.3169 8.3231,36.2507 8.3087,36.1645 8.2945,36.0571 8.2801,35.9599 8.2695,35.9216 8.2561,35.8817 8.25,35.8164 8.252,35.7769 8.2603,35.7271 8.2684,35.7066 8.2881,35.6853 8.3133,35.6649 8.3271,35.6426 8.334,35.6041 8.3344,35.5839 8.3383,35.5445 8.3114,35.4182 8.3013,35.3961 8.292,35.3594 8.2915,35.3342 8.2975,35.2995 8.3088,35.2732 8.3298,35.2508 8.3902,35.1527 8.3188,35.0696 8.2755,34.9266 8.2646,34.804 8.275,34.7118 8.2597,34.7012 8.2545,34.6994 8.233,34.6798 8.2166,34.655 8.2279,34.6322 8.2422,34.6164 8.1105,34.4995 8.096,34.4942 8.06,34.4832 8.0257,34.4705 7.8587,34.3975 7.8349,34.3794 7.8143,34.3424 7.8118,34.3001 7.7738,34.2125 7.7492,34.1952 7.721,34.1881 7.6916,34.1857 7.6719,34.1819 7.6392,34.1707 7.6162,34.1565 7.5191,34.0662 7.5083,34.0448 7.5057,34.0339 7.5087,33.9663 7.499,33.9298 7.4908,33.9097 7.4826,33.8819 7.4828,33.8497 7.5053,33.7729 7.5478,33.6386 7.6657,33.4705 7.7152,33.3819 7.7146,33.3618 7.7146,33.3357 7.7142,33.2813 7.7164,33.2494 7.7221,33.2112 7.7331,33.1919 7.7526,33.1747 8.0092,33.0771 8.0352,33.0706 8.068,33.0739 8.1471,32.991 8.2634,32.84 8.2953,32.7975 8.3017,32.7564 8.3087,32.7018 8.3125,32.6739 8.3319,32.5372 8.3403,32.495 8.4044,32.4552 8.5489,32.368 8.677,32.2901 8.8532,32.1821 8.9968,32.0936 9.0454,32.0598 9.071,31.9645 9.0941,31.8771 9.1694,31.589 9.2015,31.4654 9.2865,31.1359 9.3222,30.9982 9.3714,30.806 9.4241,30.5995 9.4557,30.476 9.5081,30.2694 9.522,30.2144 9.5248,30.2006 9.4992,30.1889 9.3707,30.1288 9.2994,30.0934 9.3067,30.0672 9.3337,30.0432 9.3505,30.0299 9.3736,30.009 9.3902,29.988 9.4017,29.9704 9.4369,29.9323 9.5391,29.7943 9.5543,29.7738 9.5666,29.7558 9.6256,29.6579 9.6485,29.6162 9.6685,29.5785 9.7127,29.4883 9.7448,29.4211 9.7529,29.3979 9.8172,29.1659 9.8271,29.1274 9.8345,29.0861 9.8395,29.0574 9.8436,29.0335 9.8525,28.9605 9.8567,28.9176 9.8604,28.8172 9.8592,28.774 9.855,28.736 9.8467,28.6768 9.8343,28.5985 9.8254,28.54 9.7998,28.3759 9.7858,28.2941 9.7778,28.2392 9.7797,28.2179 9.818,28.1282 9.8297,28.1005 9.8888,27.962 9.9414,27.8377 9.943,27.8153 9.9355,27.7933 9.8778,27.6177 9.8611,27.5779 9.8066,27.5071 9.7637,27.4087 9.7221,27.2857 9.731,27.2244 9.7903,27.0677 9.8057,27.0262 9.8168,26.9753 9.8356,26.8786 9.8959,26.8448 9.918,26.8296 9.9071,26.775 9.9003,26.7477 9.8832,26.6657 9.9042,26.6435 9.8865,26.5804 9.8592,26.4844 9.7505,26.4392 9.6568,26.4004 9.4872,26.3282 9.4304,26.2411 9.3861,26.1707 9.3815,26.1474 9.3864,26.1243 9.4233,26.0755 9.4674,26.0199 9.7791,25.616 9.8435,25.5325 9.993,25.3374 10.0196,25.3013 10.0265,25.2512 10.0328,25.0594 10.0352,24.9774 10.0372,24.9086 10.0382,24.8401 10.042,24.8103 10.1222,24.7679 10.1614,24.7472 10.2054,24.7233 10.2164,24.6816 10.2274,24.6324 10.2393,24.5784 10.2903,24.5393 10.4017,24.4561 10.4668,24.4506 10.5633,24.4881 10.6546,24.5228 10.7018,24.5399 10.7435,24.5232 10.819,24.4931 10.9561,24.4451 10.999,24.4306 11.0971,24.4025 11.2611,24.3559 11.3357,24.3352 11.4253,24.3098 11.4552,24.3004 11.5446,24.2752 11.7113,23.9734 11.7425,23.9151 11.9043,23.6213 11.9715,23.496 11.7537,23.3719 11.6932,23.3382 11.087,22.9913 10.8152,22.8344 10.7397,22.7909 10.6041,22.7124 10.3277,22.5513 10.108,22.4226 9.731,22.2018 9.4585,22.0405 8.9875,21.7606 8.7054,21.5916 8.5719,21.5115 8.0398,21.1897 7.9072,21.109 7.7158,20.9921 7.6348,20.9424 7.4547,20.8334 6.922,20.3854 6.6367,20.1418 6.4663,19.9954 6.2956,19.8491 5.9746,19.5715 5.9563,19.5551 5.8055,19.4245 5.7782,19.4185 5.6502,19.3946 5.5403,19.3744 5.3023,19.3293 4.881,19.2482 4.4969,19.1743 4.3505,19.1458 4.2402,19.1254 4.076,19.0953 3.9479,19.0718 3.9046,19.0635 3.729,19.0303 3.3281,18.9551 3.18,19.0572 3.1335,19.0958 3.1133,19.1243 3.122,19.1588 3.1427,19.1807 3.1874,19.2345 3.2685,19.3551 3.2742,19.3843 3.2666,19.4039 3.2444,19.4243 3.2077,19.5349 3.2088,19.5624 3.2191,19.6015 3.2272,19.7154 3.2292,19.795 3.0252,19.8957 3.0025,19.9055 2.8989,19.9447 2.6996,19.9802 2.5846,19.9795 2.5118,19.9998 2.4188,20.0307 2.403,20.0431 2.3837,20.0864 2.3739,20.1044 2.3524,20.1385 2.3415,20.1554 2.3171,20.1807 2.2732,20.2196 2.225,20.2514 2.2012,20.2606 2.1713,20.2539 2.1268,20.2138 2.0882,20.1963 1.8981,20.2371 1.808,20.2783 1.7876,20.2904 1.713,20.3474 1.6665,20.3927 1.67,20.4421 1.6599,20.5154 1.6256,20.5482 1.576,20.577 1.5171,20.6036 1.4765,20.6183 1.3497,20.6589 1.1749,20.7105 1.162,20.7317 1.1588,20.7769 1.1694,20.8173 1.1801,20.8541 1.1849,20.8772 1.191,20.9142 1.1957,20.9791 1.1936,20.9993 1.1842,21.0341 1.1693,21.0773 0.7675,21.3277 0.4007,21.5541 0.267,21.6365 0.1498,21.7087 0.0156,21.7909 -0.0079,21.8064 -0.107,21.876 -0.4226,22.0952 -0.7729,22.336 -1.1413,22.5874 -1.4104,22.7703 -1.7481,22.9978 -2.0871,23.2242 -2.4451,23.4609 -2.8212,23.7084 -3.2296,23.9738 -3.4582,24.122 -3.7872,24.3331 -4.1175,24.5438 -4.5194,24.7972 -4.8,24.9724 -4.8069,24.9778 -4.8771,25.0217 -4.9125,25.0428 -5.2825,25.2719 -5.6341,25.4865 -5.8142,25.5961 -5.8502,25.6168 -6.278,25.8756 -6.2961,25.8855 -6.654,26.0999 -6.7622,26.1633 -6.9779,26.2916 -7.1946,26.419 -7.2487,26.4502 -7.6837,26.7043 -7.7017,26.7139 -8.1206,26.9564 -8.1938,26.9973 -8.6327,27.2484 -8.6554,27.26 -8.6557,27.4689 -8.6558,27.5688 -8.6552,27.6359 -8.6557,27.9022 -8.6559,28.6772 -8.6168,28.7007 -8.5673,28.7277 -8.5443,28.7375 -8.51,28.7474 -8.4842,28.7585 -8.3994,28.8174 -8.3858,28.8405 -8.3639,28.8709 -8.3489,28.8852 -8.1891,28.9942 -8.1615,29.0112 -8.1343,29.0242 -7.9765,29.0904 -7.7876,29.2235 -7.6801,29.3082 -7.6526,29.3367 -7.6321,29.3535 -7.6028,29.3607 -7.5797,29.3627 -7.5505,29.361 -7.5293,29.3571 -7.5082,29.3545 -7.478,29.3525 -7.4522,29.356 -7.4266,29.3632 -7.3467,29.4286 -7.3265,29.4533 -7.3073,29.4846 -7.2866,29.507 -7.1854,29.5649 -7.1167,29.6029 -7.0954,29.607 -6.8319,29.5791 -6.7763,29.5704 -6.7235,29.5562 -6.6882,29.542 -6.6266,29.533 -6.5746,29.5354 -6.5454,29.5539 -6.5192,29.5797 -6.5028,29.6007 -6.4888,29.6363 -6.473,29.7063 -6.3919,29.7713 -6.216,29.7655 -6.1868,29.7749 -6.1539,29.8079 -6.131,29.8148 -6.1028,29.8155 -6.0768,29.8144 -6.0558,29.8103 -6.0312,29.7997 -5.9849,29.7973 -5.9332,29.8072 -5.8905,29.8234 -5.7829,29.8429 -5.7258,29.8515 -5.6869,29.8559 -5.62,29.8608 -5.5621,29.862 -5.5234,29.8725 -5.3836,29.9428 -5.3403,29.9669 -5.3065,29.9922 -5.2686,30.0219 -5.2159,30.0737 -5.1639,30.1268 -5.1453,30.1468 -5.1322,30.1585 -5.0741,30.2286 -5.0414,30.2827 -5.0225,30.3252 -5.004,30.3601 -4.9878,30.3897 -4.9631,30.4293 -4.9317,30.4617 -4.9087,30.4759 -4.6331,30.5665 -4.4618,30.5976 -4.4242,30.6031 -4.3936,30.6129 -4.373,30.6261 -4.3541,30.645 -4.3317,30.6594 -4.2554,30.6936 -4.2096,30.7083 -4.1594,30.738 -4.144,30.7524 -4.1274,30.7702 -4.0278,30.867 -4.0026,30.8787 -3.9823,30.884 -3.9199,30.894 -3.8749,30.8995 -3.8355,30.9034 -3.7951,30.9065 -3.7451,30.9063 -3.6997,30.9073 -3.6419,30.9264 -3.6172,30.9389 -3.5975,30.9569 -3.5881,30.9937 -3.5952,31.0561 -3.6926,31.1156 -3.7765,31.1178 -3.7962,31.113 -3.8186,31.127 -3.8203,31.1481 -3.7989,31.3043 -3.8214,31.4179 -3.8378,31.4548 -3.8297,31.6151 -3.8233,31.6475 -3.8083,31.6625 -3.7863,31.6702 -3.713,31.6807 -3.6801,31.6806 -3.6493,31.6733 -3.6255,31.6609 -3.5645,31.6471 -3.5429,31.6426 -3.5125,31.6378 -3.4766,31.6441 -3.4155,31.6722 -3.3816,31.6908 -3.283,31.7093 -3.2303,31.7224 -3.1553,31.7429 -3.0929,31.7613 -2.9953,31.7976 -2.9725,31.8121 -2.9552,31.8335 -2.946,31.8628 -2.9422,31.9043 -2.9444,31.9273 -2.9395,31.9758 -2.9306,31.997 -2.8916,32.0327 -2.8557,32.0506 -2.4605,32.1076 -2.4143,32.1134 -2.335,32.1214 -2.2995,32.1214 -2.2609,32.1187 -2.1633,32.1103 -2.132,32.1072 -2.0993,32.1001 -1.9798,32.0887 -1.9285,32.0852 -1.8989,32.0842 -1.657,32.0754 -1.4903,32.072 -1.4702,32.0736 -1.3102,32.0647 -1.2844,32.0567 -1.2573,32.0493 -1.2369,32.0502 -1.206,32.0561 -1.1787,32.0764 -1.1742,32.103 -1.2049,32.1367 -1.2397,32.1317 -1.2741,32.1203 -1.2901,32.1363 -1.2558,32.1722 -1.2561,32.2049 -1.2485,32.2874 -1.2142,32.3462 -1.1898,32.3696 -1.1495,32.3744 -1.116,32.3809 -1.0624,32.4137 -1.0388,32.4355 -1.0103,32.4692 -1.2649,32.6306 -1.3809,32.6879 -1.5401,32.9025 -1.4841,32.945 -1.4755,32.9827 -1.4761,33.014 -1.4882,33.0365 -1.5149,33.0515 -1.5465,33.0746 -1.5784,33.1087 -1.6439,33.1891 -1.6641,33.2219 -1.6651,33.3391 -1.6466,33.3749 -1.6268,33.4059 -1.5974,33.4788 -1.5983,33.5224 -1.6032,33.5523 -1.652,33.6253 -1.6927,33.6408 -1.7257,33.6668 -1.7059,33.8529 -1.6851,33.9283 -1.6522,34.0457 -1.656,34.062 -1.7167,34.2284 -1.7481,34.3111 -1.7908,34.3401 -1.7301,34.4017 -1.6901,34.4506 -1.73,34.4621 -1.8522,34.5757 -1.8172,34.6098 -1.7981,34.6253 -1.755,34.7158 -1.7955,34.7316 -1.8538,34.7624 -2.072,34.9046 -2.1774,34.9732 -2.2003,34.9985 -2.2062,35.0467 -2.2062,35.0467 12,3.0,Greece 26.9402,36.8832 26.9343,36.883 26.911,36.8868 26.9003,36.891 26.8839,36.9051 26.8523,37.0323 26.9251,37.0148 26.9506,37.0027 27.014,36.9506 27.0126,36.9047 26.9402,36.8832 26.9402,36.8832 1066,5.0,Pakistan 77.7232,35.4618 77.7173,35.4574 77.6757,35.4359 77.4657,35.3291 77.2978,35.244 77.2279,35.2085 77.1444,35.1652 76.9499,35.0645 76.9428,35.06 76.9505,35.0492 76.9645,35.0063 76.9629,34.9815 76.9355,34.9529 76.8542,34.8174 76.8487,34.7518 76.8072,34.6351 76.7705,34.6201 76.7438,34.6199 76.7227,34.6253 76.6874,34.6444 76.664,34.672 76.6358,34.7005 76.6029,34.7103 76.5578,34.7063 76.4074,34.7217 76.377,34.7306 76.3508,34.7285 76.3291,34.7197 76.2,34.664 76.1833,34.6488 76.1439,34.5991 76.1304,34.5728 76.0664,34.5482 76.0363,34.5541 76.0151,34.5659 75.9877,34.579 75.9686,34.5856 75.94,34.5913 75.9167,34.5916 75.8807,34.5853 75.8337,34.5677 75.7904,34.5412 75.7625,34.5166 75.7293,34.4802 75.7005,34.4681 75.5632,34.4624 75.5392,34.4642 75.2915,34.5172 75.2513,34.5318 75.1455,34.5874 75.0893,34.5844 75.0381,34.5865 75.0131,34.5891 74.9668,34.5965 74.596,34.6548 74.5754,34.6595 74.5407,34.668 74.4618,34.6915 74.4269,34.7034 74.384,34.7191 74.3482,34.7307 74.2844,34.7439 74.261,34.7449 74.2336,34.7417 74.2023,34.7338 74.1515,34.7161 74.1128,34.6968 74.0592,34.6616 74.0347,34.6556 73.9704,34.6504 73.8943,34.637 73.8665,34.6252 73.8408,34.5942 73.8079,34.4999 73.7795,34.4734 73.7041,34.3591 73.7089,34.3191 73.7292,34.2963 73.7555,34.2789 73.787,34.2721 73.8104,34.2725 73.8425,34.274 73.8805,34.2597 73.9258,34.1638 73.9104,34.1329 73.8922,34.1231 73.8653,34.1133 73.8373,34.0985 73.8198,34.0815 73.8119,34.0524 73.8204,34.0257 73.8378,34.0032 73.8553,33.9864 73.8895,33.9736 73.9258,33.9763 73.9556,33.9852 73.9898,33.9894 74.1481,33.9813 74.1806,33.9682 74.1981,33.9357 74.1806,33.8839 74.1612,33.8634 74.1397,33.8462 74.1128,33.83 74.0822,33.8146 74.047,33.8036 74.0226,33.8016 74.0002,33.8018 73.9708,33.8002 73.9502,33.7905 73.9349,33.7751 73.9087,33.7351 73.8952,33.7076 73.8872,33.6648 73.891,33.6422 73.9166,33.604 73.953,33.5824 73.9897,33.5665 74.0215,33.5502 74.0518,33.5287 74.0696,33.5128 74.0807,33.4945 74.0859,33.47 74.0816,33.4477 74.0415,33.3325 74.0255,33.2988 73.9907,33.2653 73.9569,33.2519 73.9271,33.2357 73.9153,33.1982 73.9167,33.17 73.9235,33.1471 73.9402,33.1296 74.0847,33.0062 74.1058,32.9945 74.136,32.9871 74.1598,32.9858 74.1834,32.9844 74.2115,32.9776 74.2352,32.9654 74.2467,32.948 74.267,32.8356 74.2623,32.8147 74.2333,32.7789 74.2439,32.758 74.2667,32.7384 74.4347,32.7137 74.5108,32.7248 74.5448,32.7405 74.5722,32.668 74.5572,32.5484 74.5887,32.4676 74.6136,32.4445 74.6412,32.4302 74.8009,32.4227 74.9277,32.4421 74.9603,32.4387 75.1341,32.3622 75.2167,32.3151 75.2214,32.3084 75.2289,32.2645 75.2529,32.2398 75.2771,32.2278 75.2934,32.2056 75.2832,32.1781 75.2091,32.0981 75.1589,32.0569 75.0965,32.0382 74.9434,32.0055 74.8988,32.0005 74.8749,32.0177 74.8384,32.0262 74.8,32.0116 74.754,31.9629 74.6472,31.9064 74.5747,31.8824 74.5022,31.8339 74.3919,31.6863 74.3962,31.6657 74.4224,31.6426 74.4446,31.6146 74.4831,31.5428 74.536,31.4269 74.5298,31.3842 74.5058,31.3809 74.4856,31.3623 74.4657,31.3435 74.4517,31.3195 74.426,31.1404 74.4421,31.0841 74.4606,31.0415 74.4926,31.0446 74.5086,31.0713 74.5268,31.0892 74.5873,31.0771 74.6095,31.0585 74.6008,31.0244 74.5612,31.0075 74.4583,30.9606 74.2837,30.8582 74.211,30.8146 74.1463,30.7297 74.0848,30.6575 74.0114,30.6106 73.9529,30.5649 73.9002,30.4709 73.7748,30.3535 73.7642,30.3277 73.8111,30.3064 73.8404,30.2777 73.8538,30.2523 73.866,30.2105 73.8718,30.1746 73.8377,30.1024 73.7033,30.037 73.634,30.0199 73.5792,30.0071 73.486,29.984 73.3243,29.9189 73.3027,29.9094 73.2356,29.7088 73.1791,29.5399 73.1705,29.5201 72.992,29.2133 72.9555,29.1755 72.8947,29.1093 72.856,29.0077 72.7403,28.9614 72.6351,28.9213 72.5445,28.8725 72.5028,28.8497 72.4613,28.8271 72.2961,28.753 72.1969,28.6409 72.1599,28.5201 72.1207,28.392 72.1135,28.3709 72.0445,28.2938 71.9924,28.2552 71.8992,28.1842 71.8265,28.0877 71.8115,27.9796 71.8042,27.9309 71.6011,27.8596 71.5485,27.8496 71.5224,27.8452 71.4768,27.8409 71.4321,27.8385 71.3861,27.839 71.3457,27.8393 71.3073,27.8376 71.262,27.8332 71.1612,27.8194 71.1339,27.8149 71.112,27.8081 71.0641,27.791 71.0189,27.7724 70.9942,27.7614 70.965,27.7465 70.9039,27.7186 70.8663,27.7022 70.8385,27.692 70.8032,27.6811 70.7661,27.6758 70.7382,27.6756 70.7148,27.6773 70.6839,27.6833 70.6515,27.6971 70.6362,27.715 70.581,27.8107 70.5712,27.8391 70.578,27.8675 70.5746,27.8907 70.5591,27.9119 70.4966,27.9718 70.4636,27.991 70.4287,28.0063 70.3899,28.0142 70.2757,27.9876 70.1313,27.8753 70.1132,27.8543 70.0336,27.7914 70.0166,27.7579 69.9911,27.6971 69.9841,27.6771 69.9729,27.6428 69.9639,27.6103 69.951,27.5776 69.941,27.5598 69.7777,27.378 69.6663,27.2786 69.6389,27.267 69.6063,27.2516 69.494,27.1478 69.4227,26.9693 69.3968,26.7878 69.4021,26.7622 69.4094,26.7431 69.4223,26.719 69.4532,26.7045 69.4826,26.6949 69.5026,26.6887 69.545,26.6723 69.606,26.6489 69.6333,26.6355 69.6595,26.6172 69.6849,26.5839 69.7063,26.5674 69.7436,26.5566 69.8108,26.5588 69.8566,26.5619 69.9491,26.5669 69.9817,26.5663 70.0029,26.5635 70.0231,26.5588 70.0507,26.5456 70.0781,26.5265 70.0973,26.4944 70.0972,26.3621 70.0956,26.3385 70.0846,26.2183 70.0789,26.1951 70.0644,26.1559 70.0497,26.1308 70.0296,26.1048 70.0131,26.0778 70.0053,26.0573 69.999,25.9542 70.0334,25.8819 70.1954,25.6769 70.2281,25.6639 70.2619,25.6542 70.2893,25.6472 70.4212,25.6531 70.4473,25.6567 70.4878,25.6764 70.5222,25.6858 70.5458,25.6842 70.5697,25.6746 70.5855,25.6516 70.5888,25.6162 70.587,25.5866 70.5829,25.5417 70.5819,25.5181 70.5823,25.413 70.5878,25.3748 70.6606,25.2497 70.7075,25.2046 70.7312,25.1864 70.7524,25.1699 70.7735,25.1503 70.7926,25.1213 70.7977,25.0937 70.8056,25.0524 70.8114,25.0272 70.8164,25.0072 70.8454,24.9262 70.8529,24.9077 70.8771,24.864 70.889,24.8478 70.9047,24.828 70.9816,24.6774 70.988,24.6531 70.9117,24.6172 70.8899,24.5766 70.891,24.5304 70.9142,24.4377 70.9484,24.4299 71.0065,24.4133 71.0158,24.3922 70.9318,24.3349 70.9103,24.3354 70.887,24.3453 70.8602,24.3447 70.8392,24.3343 70.7761,24.2772 70.7926,24.2461 70.7097,24.2149 70.6735,24.2086 70.5566,24.2169 70.4957,24.2539 70.4907,24.2995 70.5012,24.362 70.5105,24.381 70.4978,24.3998 70.4714,24.4084 70.3262,24.3748 70.2414,24.3425 70.1747,24.309 70.0942,24.2869 70.0609,24.2854 70.0291,24.2761 69.999,24.2055 69.9763,24.1667 69.9327,24.1436 69.9122,24.1427 69.6363,24.1443 69.6062,24.1666 69.5554,24.215 69.5113,24.2543 69.4563,24.257 69.2933,24.2578 69.1658,24.2527 68.9908,24.2677 68.9297,24.2356 68.8911,24.2366 68.8727,24.2677 68.8613,24.2848 68.8435,24.2972 68.733,24.308 68.7025,24.3066 68.6622,24.2907 68.6585,24.2681 68.6601,24.0158 68.6608,23.9732 68.6615,23.9431 68.6079,23.9434 68.5463,23.9434 68.2969,23.9394 68.1993,23.9125 68.1326,23.8458 68.1234,23.8242 68.1126,23.7403 68.0818,23.7284 68.0894,23.7789 68.1003,23.8037 68.0722,23.8652 68.0569,23.7222 68.066,23.6618 68.0052,23.6725 67.9677,23.6967 67.9725,23.7226 67.9869,23.7658 67.9684,23.8835 67.9308,23.9084 67.9481,23.8722 67.9639,23.8006 67.9348,23.7398 67.8627,23.7811 67.8383,23.8068 67.8234,23.833 67.7704,23.8751 67.7573,23.8495 67.7594,23.8102 67.755,23.7867 67.6243,23.7633 67.592,23.7664 67.548,23.7759 67.53,23.8195 67.4794,23.8435 67.435,23.8498 67.4179,23.8653 67.4536,23.9096 67.4165,23.9472 67.4021,24.0186 67.3767,24.0387 67.3413,24.033 67.2871,24.0378 67.2642,24.0512 67.2183,24.1491 67.2063,24.1902 67.1975,24.2538 67.2033,24.2914 67.1895,24.3986 67.1645,24.4277 67.1302,24.4828 67.0666,24.5857 67.0642,24.6225 67.117,24.6877 67.1539,24.6962 67.1701,24.7109 67.1509,24.7454 67.0487,24.7688 66.8929,24.7944 66.7718,24.827 66.6535,24.8175 66.6281,24.8062 66.5897,24.7974 66.5676,24.8007 66.5837,24.8426 66.6209,24.864 66.6007,24.8702 66.5909,24.8935 66.6174,25.0239 66.6455,25.1125 66.6547,25.1385 66.648,25.1692 66.6358,25.1944 66.6173,25.215 66.5625,25.2586 66.5018,25.2988 66.4809,25.3481 66.4655,25.4229 66.4551,25.4809 66.3534,25.5649 66.2748,25.585 66.1641,25.5685 66.1427,25.5649 66.1084,25.5512 66.0817,25.5396 66.06,25.4789 66.116,25.4835 66.1368,25.4932 66.1818,25.5141 66.2475,25.5256 66.4005,25.4564 66.4156,25.3755 66.2767,25.3792 66.2555,25.3936 66.1934,25.4137 66.146,25.4143 66.055,25.4026 65.8442,25.3837 65.6992,25.3511 65.579,25.315 65.5051,25.3249 65.4593,25.3376 65.3832,25.3542 65.254,25.358 65.162,25.3463 65.1222,25.3195 65.1092,25.2891 65.0871,25.267 65.0534,25.2598 65.0318,25.2664 64.9709,25.2838 64.8545,25.2965 64.7051,25.2944 64.6804,25.2922 64.6386,25.2814 64.602,25.2563 64.5848,25.226 64.5793,25.2027 64.5862,25.1805 64.621,25.16 64.5665,25.1346 64.5381,25.1418 64.5489,25.1863 64.5396,25.2101 64.5191,25.224 64.4563,25.2429 64.4239,25.2361 64.3062,25.2383 64.0123,25.3003 63.9988,25.3874 64.0227,25.4028 64.0579,25.3944 64.0719,25.4177 64.0359,25.4248 63.9661,25.4153 63.9401,25.4083 63.8993,25.3901 63.9325,25.3619 63.9529,25.3849 63.9729,25.3772 63.9942,25.3357 63.9873,25.3109 63.9198,25.3063 63.8478,25.306 63.8138,25.3142 63.7615,25.3346 63.7297,25.3438 63.6642,25.3569 63.635,25.3567 63.5756,25.3505 63.5362,25.3419 63.4915,25.3316 63.4629,25.3182 63.4375,25.3 63.3902,25.2538 63.4005,25.2205 63.3485,25.187 63.2227,25.1908 63.2003,25.1966 63.1805,25.2045 63.1513,25.2124 63.104,25.2237 63.0828,25.2275 63.0331,25.2248 63.0058,25.204 62.9339,25.1874 62.907,25.1886 62.8739,25.1937 62.8055,25.2065 62.7569,25.2167 62.7221,25.224 62.6649,25.2314 62.5209,25.2347 62.4773,25.2313 62.4475,25.2275 62.3998,25.2185 62.2954,25.1546 62.2385,25.1435 62.2207,25.1665 62.1882,25.1856 62.1653,25.1914 62.1379,25.1928 62.0887,25.1884 62.0549,25.1829 62.0269,25.1762 62.0019,25.1577 61.9926,25.1364 61.9356,25.0888 61.8706,25.0915 61.8327,25.0847 61.8024,25.0727 61.7852,25.0588 61.7664,25.0096 61.6824,25.0043 61.6633,25.0116 61.6458,25.0274 61.6505,25.0594 61.6739,25.0776 61.7046,25.146 61.6098,25.1713 61.556,25.1747 61.5329,25.1696 61.5654,25.2703 61.5709,25.3198 61.5734,25.3619 61.5811,25.4781 61.5872,25.562 61.6088,25.7687 61.6394,25.7721 61.6832,25.7792 61.7012,25.8149 61.7033,25.8413 61.7154,25.9295 61.7379,26.0793 61.7537,26.1504 61.7653,26.1823 61.7758,26.2011 61.7919,26.2148 61.9814,26.2822 62.0018,26.2847 62.0245,26.285 62.0596,26.35 62.1031,26.3416 62.1495,26.3309 62.1953,26.3272 62.209,26.3494 62.1928,26.3911 62.2357,26.4793 62.3579,26.5369 62.4285,26.5447 62.4664,26.5474 62.5205,26.5508 62.6236,26.5725 62.6652,26.5891 62.6898,26.6189 62.7485,26.6213 62.8928,26.6181 62.9351,26.6139 62.9789,26.6058 63.0825,26.6009 63.1041,26.6093 63.1351,26.8241 63.1772,26.9103 63.1719,27.0212 63.1714,27.0505 63.1954,27.0904 63.2476,27.0977 63.2491,27.1187 63.2036,27.1919 63.1206,27.2374 62.9583,27.211 62.9177,27.2 62.8552,27.1843 62.7341,27.2047 62.6998,27.2364 62.7197,27.3538 62.7483,27.4166 62.759,27.4438 62.7426,27.7087 62.7409,27.7294 62.7346,27.7559 62.7218,27.804 62.6915,27.9142 62.6843,27.9417 62.6782,27.9642 62.6884,28.0446 62.7025,28.1407 62.7081,28.1809 62.7014,28.2322 62.6063,28.2188 62.5523,28.2089 62.5118,28.2019 62.45,28.2636 62.4087,28.3241 62.3192,28.3876 62.2363,28.4072 62.1284,28.4276 61.866,28.5 61.845,28.5093 61.8255,28.5233 61.7421,28.5943 61.5719,28.753 61.5575,28.7743 61.5034,28.8773 61.4683,28.9522 61.4323,29.0385 61.3485,29.1187 61.2809,29.2333 61.2743,29.2587 61.235,29.3629 61.2031,29.4014 60.9626,29.6504 60.7874,29.8305 60.9075,29.7955 60.9841,29.7742 61.7094,29.5702 61.9321,29.5074 62.0234,29.4819 62.1678,29.4409 62.259,29.4145 62.2818,29.4078 62.3275,29.3942 62.3808,29.3792 62.4038,29.3734 62.4779,29.3799 63.1218,29.4381 63.1485,29.4408 63.4724,29.4689 63.505,29.471 63.6207,29.4515 63.9343,29.3975 63.9765,29.3818 64.0799,29.4244 64.1041,29.4491 64.1282,29.4655 64.1855,29.4889 64.2963,29.5205 64.4047,29.5411 64.4659,29.5478 64.4913,29.5499 64.5769,29.5546 64.6119,29.5534 64.6562,29.5497 64.6859,29.5458 64.7895,29.5362 64.95,29.508 65.1706,29.5653 65.5123,29.6535 65.649,29.6884 65.7773,29.7207 65.9825,29.7721 66.0424,29.7871 66.1711,29.8186 66.2168,29.8599 66.2761,29.9263 66.2107,29.9864 66.1753,30.0072 66.1548,30.0316 66.1865,30.1162 66.2046,30.1526 66.2351,30.1944 66.2658,30.4084 66.2534,30.4603 66.2304,30.4763 66.1971,30.536 66.3141,30.909 66.3346,30.9174 66.3636,30.9251 66.3894,30.9269 66.4512,30.936 66.4746,30.9413 66.4927,30.9521 66.6001,31.0568 66.6072,31.0919 66.6349,31.1724 66.7691,31.2456 66.794,31.2575 66.8786,31.2851 66.9212,31.2872 66.9492,31.2835 66.9627,31.2677 66.9553,31.2296 66.9757,31.2064 67.147,31.1833 67.1691,31.1874 67.1882,31.1791 67.2971,31.1803 67.5254,31.2364 67.7026,31.3085 67.7087,31.3495 67.6784,31.3759 67.6575,31.3796 67.6288,31.377 67.5981,31.3678 67.5733,31.3663 67.5263,31.3951 67.4937,31.4941 67.5672,31.4959 67.5936,31.4883 67.6203,31.4891 67.6496,31.4963 67.7351,31.545 67.7517,31.5723 67.7732,31.5929 67.7982,31.6041 67.84,31.6065 67.8804,31.5985 67.9557,31.6515 68.0369,31.7323 68.0575,31.7705 68.0751,31.794 68.0995,31.7936 68.1304,31.7809 68.1828,31.7382 68.4454,31.6913 68.465,31.7012 68.4756,31.7252 68.4268,31.7333 68.3576,31.7445 68.3963,31.7769 68.4303,31.7888 68.4673,31.7923 68.4872,31.7879 68.5616,31.7473 68.6305,31.6864 68.6407,31.6663 68.7142,31.5794 68.7383,31.5704 68.9296,31.6157 69.016,31.6764 69.0395,31.6987 69.0676,31.7336 69.113,31.7957 69.1247,31.8231 69.2013,31.8889 69.2382,31.9049 69.2016,32.0127 69.1831,32.1035 69.1813,32.1346 69.1884,32.1618 69.1932,32.1819 69.2007,32.2544 69.2007,32.286 69.1878,32.3195 69.1715,32.3476 69.161,32.3751 69.1581,32.4048 69.1667,32.434 69.1805,32.464 69.1926,32.4838 69.217,32.504 69.2373,32.5121 69.2672,32.5221 69.2878,32.532 69.3111,32.5555 69.3311,32.5807 69.3659,32.6378 69.3489,32.6786 69.3271,32.7043 69.3054,32.7302 69.3178,32.754 69.3757,32.8001 69.4224,32.8356 69.4171,32.8785 69.4106,32.9085 69.4016,32.96 69.417,32.9994 69.4697,33.0428 69.4905,33.0501 69.5358,33.0475 69.7835,33.0525 69.8129,33.0582 69.9381,33.0989 70.0595,33.1683 70.1368,33.2139 70.2335,33.2956 70.2225,33.3465 70.1969,33.3831 70.1474,33.4284 70.1114,33.4397 70.0785,33.4823 70.0822,33.5085 70.0943,33.5365 70.1083,33.5696 70.1055,33.6033 70.0424,33.6961 70.0086,33.689 69.8963,33.7159 69.8261,33.8143 69.7766,33.8977 69.8102,33.9913 69.8394,34.0031 69.8461,34.0038 69.8611,34.0069 69.9092,34.014 69.9684,33.9972 70.03,33.9783 70.1088,33.9547 70.247,33.9258 70.3903,33.9056 70.467,33.9065 70.7022,33.9151 70.7905,33.927 70.989,34.0182 71.0426,34.1257 71.0628,34.3173 71.0114,34.3428 70.9852,34.3521 70.9066,34.4269 70.8862,34.4694 70.8903,34.4995 70.8998,34.5169 70.9954,34.5232 71.0116,34.5782 71.0009,34.6052 70.9997,34.63 71.0782,34.6852 71.1995,34.7911 71.3099,34.8762 71.3833,34.9067 71.4011,34.9188 71.4062,34.9272 71.4107,34.945 71.4431,35.045 71.4815,35.0815 71.5202,35.1914 71.4614,35.2501 71.4553,35.2784 71.4841,35.3192 71.5316,35.3561 71.5556,35.3885 71.5119,35.487 71.4756,35.5471 71.4352,35.6228 71.4531,35.6599 71.3498,35.8269 71.29,35.8807 71.2393,35.9153 71.1298,35.9833 71.0951,35.9992 71.0972,36.0117 71.1533,36.0911 71.3712,36.2314 71.4878,36.3058 71.4974,36.3481 71.5265,36.4118 71.5508,36.425 71.6164,36.3962 71.6514,36.3754 71.8793,36.5012 72.0518,36.6066 72.0819,36.647 72.0797,36.668 72.1322,36.6884 72.2361,36.7145 72.312,36.7211 72.3757,36.7205 72.4028,36.7337 72.441,36.7616 72.458,36.7765 72.4837,36.7841 72.5511,36.7923 72.6507,36.8013 72.6728,36.7974 72.714,36.7919 72.77,36.7929 72.7992,36.7952 72.8231,36.8021 72.8402,36.8137 72.9592,36.8273 73.29,36.8479 73.3885,36.8507 73.4438,36.8391 73.5401,36.8582 73.5467,36.8614 73.572,36.8685 73.7386,36.8547 73.8308,36.8222 73.861,36.7987 73.9386,36.7742 73.9653,36.7803 74.0258,36.8023 74.1089,36.8621 74.3193,36.9587 74.379,36.9691 74.4096,36.9575 74.4333,36.927 74.4571,36.9237 74.4741,36.9774 74.4676,36.9864 74.5777,37.0185 74.5987,37.0194 74.7195,36.9805 74.8843,36.9454 74.9158,36.9508 75.0494,36.9556 75.0832,36.9297 75.1137,36.9175 75.1406,36.9114 75.1786,36.905 75.2173,36.8988 75.2778,36.8834 75.3003,36.8702 75.3271,36.8169 75.3257,36.7922 75.3243,36.7604 75.327,36.7229 75.3367,36.7022 75.3533,36.6906 75.3743,36.6845 75.4254,36.6918 75.4531,36.7269 75.5403,36.7225 75.5657,36.7174 75.6134,36.7056 75.6553,36.6885 75.6906,36.6686 75.7396,36.6375 75.7606,36.6225 75.805,36.5819 75.9028,36.4238 75.9116,36.4013 75.9428,36.1971 75.8922,36.119 75.8428,36.0889 75.8201,36.0697 75.83,36.0304 75.8545,35.9884 75.8692,35.9745 75.8876,35.9658 75.909,35.9612 75.9303,35.9621 75.9599,35.9646 75.9866,35.9614 76.0101,35.9517 76.0284,35.9321 76.0559,35.8589 76.0548,35.828 76.0576,35.7907 76.0817,35.7744 76.1306,35.7734 76.1979,35.7826 76.2858,35.8013 76.3412,35.8191 76.4538,35.8665 76.4714,35.7813 76.4726,35.7488 76.4947,35.7174 76.525,35.7094 76.5937,35.6831 76.6195,35.6702 76.6373,35.6562 76.657,35.6298 76.6732,35.618 76.7955,35.5728 77.0094,35.5164 77.1514,35.4938 77.2928,35.4419 77.3212,35.433 77.3526,35.433 77.3835,35.4411 77.4067,35.4444 77.4352,35.4442 77.4609,35.4412 77.5183,35.4335 77.584,35.4225 77.6127,35.424 77.6521,35.4479 77.6827,35.464 77.7232,35.4618 77.7232,35.4618 18,2.0,Portugal -24.9861,36.8878 -25.0138,36.8934 -25.0673,36.9037 -25.1232,36.9014 -25.1345,36.9017 -25.1446,36.9075 -25.1674,36.9415 -25.165,36.9529 -25.1483,36.9677 -25.0819,36.9792 -25.0609,36.9817 -25.0495,36.9816 -25.0218,36.9744 -25.0004,36.9556 -24.9847,36.9308 -24.9797,36.898 -24.9861,36.8878 -24.9861,36.8878 23,3.0,Greece 26.9363,36.6313 26.9146,36.636 26.8852,36.6705 26.8849,36.7169 27.0272,36.7969 27.1171,36.84 27.1371,36.8466 27.2489,36.8594 27.308,36.8419 27.3188,36.8226 27.3085,36.808 27.2939,36.8015 27.2667,36.7963 27.244,36.7928 27.2076,36.7858 27.1829,36.7784 26.997,36.7235 26.9572,36.7102 26.9392,36.7004 26.9313,36.6626 26.9307,36.6406 26.9363,36.6313 26.9363,36.6313 11,3.0,Greece 25.3249,36.604 25.3082,36.6118 25.2257,36.6877 25.2303,36.7235 25.2445,36.741 25.2725,36.7477 25.2932,36.7347 25.3745,36.6755 25.3551,36.6134 25.3249,36.604 25.3249,36.604 14,3.0,Greece 24.2991,36.6091 24.294,36.6111 24.2911,36.6226 24.3105,36.6957 24.3193,36.7057 24.4812,36.7265 24.4992,36.725 24.5169,36.7167 24.5173,36.6552 24.5075,36.6363 24.4451,36.6217 24.3816,36.6194 24.2991,36.6091 24.2991,36.6091 14,3.0,Greece 26.432,36.5355 26.3715,36.5245 26.3211,36.471 26.3081,36.4657 26.2809,36.4639 26.2665,36.4686 26.2534,36.4788 26.2365,36.5152 26.2293,36.5485 26.3485,36.5993 26.3735,36.592 26.4248,36.5583 26.432,36.5355 26.432,36.5355 12,9.0,South Korea 126.2563,36.3587 126.2141,36.3626 126.2007,36.3698 126.1723,36.3956 126.1615,36.5264 126.1693,36.5402 126.1793,36.5489 126.1912,36.5521 126.2125,36.5474 126.2656,36.3629 126.2563,36.3587 126.2563,36.3587 36,3.0,Greece 28.1707,36.4017 28.1779,36.4135 28.1973,36.4006 28.2013,36.3903 28.1704,36.3028 28.1501,36.2595 28.1049,36.1701 28.0862,36.1453 28.0273,36.0714 27.973,36.0287 27.9205,36.0045 27.9094,35.9944 27.8953,35.9784 27.8699,35.9476 27.8628,35.9354 27.8568,35.9206 27.8295,35.8921 27.8051,35.8725 27.7635,35.8533 27.7479,35.8503 27.7326,35.8533 27.6951,35.873 27.6862,35.8894 27.6842,35.9049 27.6947,35.9386 27.7047,36.0641 27.6836,36.1255 27.7529,36.211 27.7684,36.229 27.8399,36.279 27.8595,36.2914 27.873,36.2991 28.0317,36.3642 28.0708,36.3777 28.1707,36.4017 28.1707,36.4017 20,3.0,Greece 22.9271,36.3366 22.9402,36.3134 22.9589,36.2831 22.9776,36.2659 22.9903,36.2633 23.0557,36.219 23.0742,36.2055 23.0784,36.1962 23.0271,36.1047 23.0141,36.0956 22.9672,36.1013 22.9584,36.1058 22.9003,36.1376 22.8929,36.1452 22.8819,36.1606 22.8765,36.1851 22.8657,36.2816 22.898,36.3377 22.9271,36.3366 22.9271,36.3366 19,9.0,Japan 133.1247,36.2778 133.1363,36.2782 133.1472,36.2751 133.1889,36.243 133.2115,36.2109 133.2032,36.1576 133.1616,36.1184 133.083,36.1115 133.0728,36.115 133.015,36.1626 133.009,36.198 133.0157,36.2293 133.0239,36.2374 133.0542,36.2662 133.0738,36.2785 133.1029,36.2842 133.1183,36.2844 133.1247,36.2778 133.1247,36.2778 463,0.0,Morocco -5.3885,35.8763 -5.3851,35.8604 -5.3701,35.8312 -5.3474,35.8073 -5.3385,35.8014 -5.3378,35.79 -5.3318,35.7503 -5.3225,35.6975 -5.3132,35.6603 -5.2418,35.5345 -5.2038,35.5106 -4.9598,35.3274 -4.9102,35.2788 -4.7854,35.2115 -4.7235,35.1815 -4.6896,35.1695 -4.5956,35.1528 -4.513,35.1408 -4.4143,35.112 -4.352,35.1066 -4.3116,35.1175 -4.2594,35.1474 -4.21,35.1503 -4.1139,35.1633 -4.0875,35.175 -4.0644,35.1908 -4.0156,35.206 -3.9098,35.2166 -3.897,35.1841 -3.859,35.1638 -3.8157,35.1602 -3.7966,35.1637 -3.7504,35.2021 -3.6496,35.2302 -3.58,35.1902 -3.4061,35.1558 -3.3819,35.1537 -3.3318,35.152 -3.302,35.156 -3.1642,35.2077 -3.0666,35.2481 -3.0195,35.3064 -2.9822,35.3786 -2.9566,35.3224 -2.9428,35.2898 -2.9614,35.277 -2.9612,35.2419 -2.9351,35.225 -2.9108,35.2343 -2.8976,35.2197 -2.8989,35.181 -2.9082,35.1588 -2.9017,35.1302 -2.8732,35.1026 -2.831,35.0859 -2.78,35.0829 -2.7904,35.1079 -2.8195,35.1266 -2.8536,35.1599 -2.8798,35.1951 -2.8041,35.1449 -2.7726,35.1191 -2.7451,35.1006 -2.6728,35.0716 -2.6238,35.0594 -2.5462,35.0547 -2.5227,35.057 -2.4779,35.0688 -2.3399,35.0844 -2.2549,35.0575 -2.214,35.0466 -2.2062,35.0467 -2.2003,34.9985 -2.1774,34.9732 -2.072,34.9046 -1.8538,34.7624 -1.7955,34.7316 -1.755,34.7158 -1.7981,34.6253 -1.8172,34.6098 -1.8522,34.5757 -1.73,34.4621 -1.6901,34.4506 -1.7301,34.4017 -1.7908,34.3401 -1.7481,34.3111 -1.7167,34.2284 -1.656,34.062 -1.6522,34.0457 -1.6851,33.9283 -1.7059,33.8529 -1.7257,33.6668 -1.6927,33.6408 -1.652,33.6253 -1.6032,33.5523 -1.5983,33.5224 -1.5974,33.4788 -1.6268,33.4059 -1.6466,33.3749 -1.6651,33.3391 -1.6641,33.2219 -1.6439,33.1891 -1.5784,33.1087 -1.5465,33.0746 -1.5149,33.0515 -1.4882,33.0365 -1.4761,33.014 -1.4755,32.9827 -1.4841,32.945 -1.5401,32.9025 -1.3809,32.6879 -1.2649,32.6306 -1.0103,32.4692 -1.0388,32.4355 -1.0624,32.4137 -1.116,32.3809 -1.1495,32.3744 -1.1898,32.3696 -1.2142,32.3462 -1.2485,32.2874 -1.2561,32.2049 -1.2558,32.1722 -1.2901,32.1363 -1.2741,32.1203 -1.2397,32.1317 -1.2049,32.1367 -1.1742,32.103 -1.1787,32.0764 -1.206,32.0561 -1.2369,32.0502 -1.2573,32.0493 -1.2844,32.0567 -1.3102,32.0647 -1.4702,32.0736 -1.4903,32.072 -1.657,32.0754 -1.8989,32.0842 -1.9285,32.0852 -1.9798,32.0887 -2.0993,32.1001 -2.132,32.1072 -2.1633,32.1103 -2.2609,32.1187 -2.2995,32.1214 -2.335,32.1214 -2.4143,32.1134 -2.4605,32.1076 -2.8557,32.0506 -2.8916,32.0327 -2.9306,31.997 -2.9395,31.9758 -2.9444,31.9273 -2.9422,31.9043 -2.946,31.8628 -2.9552,31.8335 -2.9725,31.8121 -2.9953,31.7976 -3.0929,31.7613 -3.1553,31.7429 -3.2303,31.7224 -3.283,31.7093 -3.3816,31.6908 -3.4155,31.6722 -3.4766,31.6441 -3.5125,31.6378 -3.5429,31.6426 -3.5645,31.6471 -3.6255,31.6609 -3.6493,31.6733 -3.6801,31.6806 -3.713,31.6807 -3.7863,31.6702 -3.8083,31.6625 -3.8233,31.6475 -3.8297,31.6151 -3.8378,31.4548 -3.8214,31.4179 -3.7989,31.3043 -3.8203,31.1481 -3.8186,31.127 -3.7962,31.113 -3.7765,31.1178 -3.6926,31.1156 -3.5952,31.0561 -3.5881,30.9937 -3.5975,30.9569 -3.6172,30.9389 -3.6419,30.9264 -3.6997,30.9073 -3.7451,30.9063 -3.7951,30.9065 -3.8355,30.9034 -3.8749,30.8995 -3.9199,30.894 -3.9823,30.884 -4.0026,30.8787 -4.0278,30.867 -4.1274,30.7702 -4.144,30.7524 -4.1594,30.738 -4.2096,30.7083 -4.2554,30.6936 -4.3317,30.6594 -4.3541,30.645 -4.373,30.6261 -4.3936,30.6129 -4.4242,30.6031 -4.4618,30.5976 -4.6331,30.5665 -4.9087,30.4759 -4.9317,30.4617 -4.9631,30.4293 -4.9878,30.3897 -5.004,30.3601 -5.0225,30.3252 -5.0414,30.2827 -5.0741,30.2286 -5.1322,30.1585 -5.1453,30.1468 -5.1639,30.1268 -5.2159,30.0737 -5.2686,30.0219 -5.3065,29.9922 -5.3403,29.9669 -5.3836,29.9428 -5.5234,29.8725 -5.5621,29.862 -5.62,29.8608 -5.6869,29.8559 -5.7258,29.8515 -5.7829,29.8429 -5.8905,29.8234 -5.9332,29.8072 -5.9849,29.7973 -6.0312,29.7997 -6.0558,29.8103 -6.0768,29.8144 -6.1028,29.8155 -6.131,29.8148 -6.1539,29.8079 -6.1868,29.7749 -6.216,29.7655 -6.3919,29.7713 -6.473,29.7063 -6.4888,29.6363 -6.5028,29.6007 -6.5192,29.5797 -6.5454,29.5539 -6.5746,29.5354 -6.6266,29.533 -6.6882,29.542 -6.7235,29.5562 -6.7763,29.5704 -6.8319,29.5791 -7.0954,29.607 -7.1167,29.6029 -7.1854,29.5649 -7.2866,29.507 -7.3073,29.4846 -7.3265,29.4533 -7.3467,29.4286 -7.4266,29.3632 -7.4522,29.356 -7.478,29.3525 -7.5082,29.3545 -7.5293,29.3571 -7.5505,29.361 -7.5797,29.3627 -7.6028,29.3607 -7.6321,29.3535 -7.6526,29.3367 -7.6801,29.3082 -7.7876,29.2235 -7.9765,29.0904 -8.1343,29.0242 -8.1615,29.0112 -8.1891,28.9942 -8.3489,28.8852 -8.3639,28.8709 -8.3858,28.8405 -8.3994,28.8174 -8.4842,28.7585 -8.51,28.7474 -8.5443,28.7375 -8.5673,28.7277 -8.6168,28.7007 -8.6559,28.6772 -8.6557,27.9022 -8.6552,27.6359 -9.288,27.6352 -9.3214,27.6358 -9.6547,27.6359 -9.8203,27.6359 -9.9206,27.6358 -9.9868,27.6357 -10.0096,27.6343 -10.0539,27.6332 -10.1072,27.6339 -10.2861,27.6355 -12.8242,27.6354 -13.0504,27.6352 -13.1497,27.6355 -13.1579,27.6361 -13.1525,27.6513 -13.1343,27.6698 -13.0989,27.6822 -13.0509,27.7075 -13.0229,27.7272 -13.0054,27.7462 -12.9855,27.7886 -12.9685,27.8298 -12.9604,27.8582 -12.9456,27.8892 -12.8855,27.923 -12.8297,27.9335 -12.7477,27.9478 -12.6882,27.9545 -12.5983,27.9589 -12.3665,27.9997 -12.0474,28.0524 -11.9263,28.1166 -11.7175,28.195 -11.6263,28.2285 -11.5317,28.2591 -11.4969,28.2722 -11.4361,28.3089 -11.2885,28.4929 -11.2465,28.5249 -11.1478,28.6107 -11.0876,28.6682 -11.0684,28.7046 -11.0401,28.7244 -10.9108,28.7869 -10.7061,28.8852 -10.6255,28.9151 -10.5995,28.9298 -10.5368,28.9739 -10.5072,28.9958 -10.487,29.0129 -10.4279,29.0649 -10.4171,29.0853 -10.3808,29.1361 -10.3339,29.1966 -10.2935,29.2308 -10.2712,29.2416 -10.2414,29.2583 -10.2147,29.2851 -10.1249,29.3951 -10.0672,29.4864 -10.0613,29.51 -10.0594,29.5308 -10.0486,29.5532 -9.8641,29.7438 -9.8089,29.8 -9.7948,29.8155 -9.78,29.8345 -9.7568,29.8729 -9.724,29.9295 -9.6508,30.0645 -9.6282,30.1313 -9.5957,30.34 -9.5959,30.3686 -9.6923,30.5093 -9.7806,30.5784 -9.8181,30.5932 -9.8408,30.6927 -9.8246,30.7214 -9.8108,30.7449 -9.8002,30.7841 -9.8045,30.8479 -9.8133,30.9173 -9.8316,31.0802 -9.8298,31.1003 -9.8149,31.1745 -9.8017,31.2209 -9.7937,31.2471 -9.79,31.2912 -9.8057,31.342 -9.7963,31.4117 -9.7623,31.4678 -9.7225,31.5253 -9.6763,31.5917 -9.6723,31.6353 -9.6678,31.6707 -9.6305,31.7203 -9.613,31.7405 -9.4418,31.9077 -9.3627,31.9788 -9.3442,31.9979 -9.2655,32.1475 -9.2526,32.1917 -9.2485,32.2804 -9.2585,32.4741 -9.267,32.5078 -9.2021,32.5712 -9.1582,32.6024 -9.1233,32.6284 -9.0736,32.6693 -9.041,32.6984 -9.0182,32.7284 -8.937,32.7907 -8.8299,32.8785 -8.7403,32.9553 -8.6183,33.0772 -8.6036,33.1083 -8.5564,33.1825 -8.527,33.2134 -8.4906,33.2178 -8.4639,33.2162 -8.4404,33.2211 -8.3968,33.2406 -8.3447,33.2831 -8.3186,33.3101 -8.2952,33.3359 -8.2378,33.3578 -8.1681,33.3712 -8.1029,33.3858 -7.9396,33.4499 -7.8476,33.4899 -7.8233,33.4982 -7.6972,33.5386 -7.596,33.5689 -7.4869,33.6107 -7.379,33.6811 -7.2186,33.7587 -7.1859,33.7723 -7.0773,33.814 -7.0714,33.8157 -7.0297,33.8308 -6.9595,33.8785 -6.9243,33.9037 -6.8339,33.9806 -6.7886,34.0241 -6.7074,34.1578 -6.6461,34.2574 -6.6309,34.28 -6.5889,34.3378 -6.5738,34.3527 -6.4796,34.5024 -6.3705,34.6826 -6.3502,34.7169 -6.3257,34.7613 -6.3068,34.7962 -6.271,34.8678 -6.2342,34.9694 -6.2035,35.0537 -6.163,35.1444 -6.0965,35.2935 -6.044,35.4107 -5.9887,35.5396 -5.9583,35.6249 -5.9294,35.7193 -5.9109,35.7506 -5.8404,35.7568 -5.7369,35.7654 -5.5884,35.7818 -5.5363,35.8022 -5.5018,35.8312 -5.4808,35.8569 -5.4484,35.8741 -5.4004,35.8788 -5.3885,35.8763 -5.3885,35.8763 9,2.0,Spain -5.3885,35.8763 -5.3532,35.8761 -5.314,35.8463 -5.3385,35.8014 -5.3474,35.8073 -5.3701,35.8312 -5.3851,35.8604 -5.3885,35.8763 -5.3885,35.8763 18,3.0,Greece 27.1071,35.36 27.0865,35.3889 27.032,35.5549 27.032,35.5668 27.0853,35.6269 27.1264,35.6853 27.1234,35.7071 27.1236,35.7293 27.1247,35.7557 27.1802,35.786 27.1945,35.7853 27.1954,35.7712 27.1788,35.6815 27.1423,35.5613 27.1671,35.4384 27.1249,35.4089 27.1071,35.36 27.1071,35.36 135,3.0,Cyprus 33.2294,34.6708 33.1741,34.6608 33.11,34.6638 33.0907,34.6628 33.074,34.66 33.062,34.6564 33.0205,34.642 32.9872,34.6192 32.8171,34.6273 32.7886,34.6286 32.7227,34.6173 32.7092,34.6102 32.6998,34.6069 32.6715,34.6017 32.6562,34.6037 32.6126,34.615 32.5993,34.6185 32.45,34.6636 32.429,34.6743 32.3641,34.7109 32.2995,34.8243 32.2816,34.8705 32.2337,35.0013 32.2285,35.0233 32.228,35.0396 32.2371,35.0562 32.2535,35.0552 32.2632,35.0451 32.2709,35.0378 32.2848,35.0265 32.2996,35.0152 32.3122,35.0071 32.331,34.9999 32.356,35.0001 32.382,35.0051 32.3968,35.0111 32.4184,35.0253 32.4518,35.0578 32.4598,35.0697 32.474,35.0964 32.4801,35.1052 32.5095,35.134 32.5236,35.1297 32.5802,35.1447 32.6138,35.1504 32.6797,35.1414 32.7273,35.1246 32.7661,35.1089 32.7782,35.1045 32.7929,35.1036 32.8157,35.1112 32.8401,35.1228 32.8532,35.1302 32.8618,35.1374 32.8701,35.1492 32.8746,35.1607 32.8896,35.2243 32.8964,35.288 32.96,35.326 33.2289,35.3002 33.3114,35.2906 33.3265,35.2891 33.3423,35.2888 33.3842,35.2886 33.4295,35.2891 33.5882,35.3108 33.6093,35.3147 33.6694,35.3423 33.7096,35.359 33.7312,35.3626 33.7635,35.3605 33.81,35.3635 33.8272,35.3669 33.9258,35.3963 34.2477,35.5268 34.2697,35.5357 34.2923,35.5498 34.2979,35.5592 34.3056,35.5673 34.3158,35.5722 34.3451,35.5842 34.5084,35.6423 34.5414,35.6486 34.5251,35.6037 34.3423,35.4954 34.2363,35.4374 34.2151,35.4279 34.1811,35.4158 34.0757,35.3614 33.9141,35.2733 33.9043,35.2677 33.8965,35.26 33.8777,35.2332 33.8666,35.2135 33.8619,35.2029 33.858,35.1766 33.8564,35.1585 33.8584,35.1236 33.9301,35.0487 33.989,35.0048 34.0103,34.9816 34.0232,34.9646 34.0342,34.9496 34.0411,34.9225 34.0211,34.922 33.9908,34.9327 33.9797,34.9402 33.933,34.9425 33.9119,34.939 33.8854,34.9347 33.8696,34.9304 33.8593,34.9252 33.8555,34.9205 33.8525,34.9166 33.8399,34.906 33.8212,34.8983 33.8045,34.9036 33.7886,34.9178 33.7707,34.9268 33.7465,34.9312 33.7194,34.9337 33.6639,34.9349 33.6377,34.9278 33.6211,34.9189 33.6043,34.8999 33.5961,34.878 33.5925,34.8609 33.5891,34.8348 33.5941,34.8234 33.5598,34.7797 33.4732,34.7447 33.3258,34.6879 33.2788,34.6766 33.2294,34.6708 33.2294,34.6708 113,3.0,Greece 23.6514,35.1852 23.5638,35.1927 23.4902,35.2556 23.5387,35.4871 23.5525,35.5313 23.5632,35.5522 23.5781,35.5689 23.5793,35.5276 23.5847,35.4834 23.625,35.4581 23.6883,35.4691 23.7013,35.5064 23.698,35.529 23.6808,35.5644 23.6799,35.6125 23.7112,35.6462 23.7411,35.6213 23.7414,35.5733 23.751,35.5247 23.7602,35.5068 23.8176,35.4834 23.9405,35.475 23.9646,35.4759 24.0095,35.49 24.0395,35.5096 24.0495,35.5368 24.0931,35.5606 24.145,35.549 24.1735,35.5001 24.1541,35.4696 24.1345,35.4619 24.1035,35.4606 24.076,35.4526 24.1478,35.4128 24.241,35.3242 24.2955,35.312 24.3257,35.3128 24.4332,35.3223 24.4586,35.326 24.5646,35.3435 24.592,35.3563 24.7569,35.3694 24.9309,35.3647 25.0133,35.3398 25.0218,35.3109 25.1689,35.2949 25.248,35.2943 25.27,35.2962 25.3468,35.2943 25.3679,35.2719 25.397,35.255 25.4214,35.2525 25.4582,35.259 25.5314,35.2789 25.5848,35.2939 25.6271,35.3029 25.7325,35.2905 25.7011,35.2606 25.6956,35.2223 25.7169,35.2307 25.706,35.1924 25.6844,35.1774 25.6774,35.1334 25.6841,35.12 25.6947,35.1027 25.7233,35.087 25.7509,35.0748 25.779,35.0721 25.8336,35.113 25.8625,35.1374 25.9975,35.1857 26.0595,35.1772 26.0782,35.1658 26.1838,35.2011 26.2673,35.2434 26.2568,35.0919 26.2412,35.0483 26.2059,34.9976 26.1719,34.9827 26.1022,34.9582 26.0668,34.9645 25.954,34.994 25.5584,34.9688 25.5247,34.9549 25.4758,34.9426 25.3027,34.9459 25.1554,34.9133 24.9847,34.892 24.8957,34.8916 24.7889,34.8985 24.7225,34.9071 24.7307,34.9769 24.7258,35.0005 24.71,35.0346 24.6912,35.0513 24.6569,35.0563 24.607,35.056 24.5569,35.0575 24.5314,35.0615 24.516,35.08 24.4993,35.0997 24.3611,35.1496 24.1631,35.1608 24.1087,35.1603 24.0698,35.1583 24.0309,35.1511 24.0045,35.1533 23.9156,35.1816 23.8593,35.1944 23.791,35.2072 23.6676,35.1929 23.6514,35.1852 23.6514,35.1852 2524,5.5,India 80.9202,30.1707 80.8382,30.1473 80.7692,30.1072 80.6393,29.9859 80.5743,29.9367 80.5551,29.9297 80.5211,29.9295 80.491,29.9164 80.47,29.8766 80.4329,29.8114 80.3788,29.7649 80.3392,29.7631 80.3116,29.7526 80.2712,29.7069 80.2802,29.6483 80.2926,29.6276 80.3124,29.6069 80.3046,29.5685 80.242,29.4884 80.2093,29.4657 80.1863,29.4501 80.1342,29.3902 80.1819,29.2874 80.2024,29.2761 80.1982,29.2459 80.184,29.1728 80.1456,29.131 80.0933,29.0957 79.9662,28.917 79.954,28.8919 79.9488,28.866 79.9581,28.7977 80.0474,28.7616 80.1465,28.7155 80.2131,28.6607 80.2836,28.5932 80.3682,28.558 80.407,28.5891 80.4019,28.6231 80.4149,28.6392 80.4372,28.6533 80.4809,28.6218 80.6007,28.5468 80.8259,28.414 80.9269,28.3713 80.9895,28.3618 81.0345,28.351 81.0621,28.3438 81.0842,28.3376 81.089,28.3349 81.1177,28.2931 81.1934,28.1325 81.2695,28.1345 81.3736,28.0532 81.5024,27.9878 81.6217,27.9248 81.6754,27.8795 81.7955,27.8238 81.8314,27.8563 81.8641,27.8818 81.8939,27.891 81.9375,27.8875 81.9606,27.883 82.043,27.8331 82.1723,27.7471 82.1984,27.7283 82.3002,27.6599 82.3232,27.6465 82.3459,27.6415 82.3729,27.6417 82.4616,27.6544 82.4919,27.6595 82.5107,27.6662 82.5516,27.6769 82.5946,27.6802 82.611,27.6595 82.6261,27.6087 82.6405,27.5507 82.6371,27.5253 82.66,27.4727 82.8615,27.4305 82.922,27.4191 82.9505,27.4177 83.0238,27.4188 83.0697,27.4162 83.1448,27.3595 83.1542,27.3407 83.1664,27.3144 83.2029,27.3056 83.2354,27.3118 83.2518,27.3255 83.2695,27.3446 83.2866,27.3805 83.3112,27.4422 83.4331,27.4423 83.5003,27.4384 83.5264,27.4289 83.6405,27.378 83.6696,27.3641 83.6941,27.3523 83.7182,27.3404 83.7507,27.3217 83.7645,27.3546 83.7636,27.4095 83.8145,27.4211 83.8277,27.4165 83.9113,27.4126 83.9431,27.4223 84.0391,27.4807 84.1895,27.3579 84.2215,27.3474 84.2865,27.3368 84.3906,27.326 84.4895,27.3094 84.5291,27.2808 84.5444,27.261 84.5714,27.2017 84.5765,27.1759 84.571,27.1056 84.5517,27.064 84.5377,27.031 84.5464,27.0101 84.5986,26.991 84.6445,26.9772 84.6722,26.9813 84.6933,26.985 84.7461,26.9654 84.8588,26.9057 85.0762,26.7683 85.0921,26.7452 85.1128,26.7332 85.2012,26.7095 85.2188,26.7063 85.228,26.7072 85.3433,26.7571 85.3982,26.7838 85.4304,26.7999 85.4587,26.8152 85.5211,26.8358 85.6007,26.7863 85.6202,26.7571 85.6171,26.7037 85.6153,26.675 85.619,26.644 85.6437,26.6129 85.7505,26.5431 85.8404,26.5978 85.8555,26.6182 85.9227,26.6333 85.9534,26.6243 85.9791,26.6034 85.9945,26.589 86.028,26.5736 86.0734,26.5782 86.0944,26.5581 86.2236,26.5779 86.3646,26.5166 86.5492,26.4271 86.6223,26.3908 86.7098,26.4072 86.7805,26.4476 86.7895,26.4708 86.8368,26.5015 86.854,26.4962 86.8929,26.5048 86.9728,26.4568 87.0585,26.3705 87.158,26.3459 87.2571,26.372 87.2875,26.3886 87.3431,26.4041 87.3737,26.4044 87.4181,26.3888 87.4416,26.3763 87.5308,26.3629 87.5382,26.3704 87.5746,26.3958 87.6791,26.4295 87.7815,26.4397 87.7954,26.4168 87.8148,26.3937 87.8348,26.3732 87.9075,26.3388 87.9779,26.4036 87.9947,26.4591 87.9891,26.5007 88.0085,26.5364 88.0599,26.636 88.0665,26.6554 88.0789,26.696 88.0814,26.7307 88.0613,26.8469 88.0053,26.9544 87.9599,27.0009 87.9221,27.0191 87.8818,27.0819 87.8979,27.1212 87.897,27.1638 87.901,27.1931 87.9215,27.2532 87.9339,27.4656 87.9435,27.5026 87.9802,27.5564 88.0072,27.5813 88.0353,27.6492 88.0736,27.7518 88.0749,27.8181 88.039,27.8331 88.0294,27.8349 88.0185,27.8475 88.0085,27.8759 88.0246,27.918 88.2177,27.9485 88.2769,27.9522 88.395,28.0094 88.4393,28.0371 88.51,28.0854 88.6261,28.0384 88.6591,28.0199 88.7212,27.9766 88.7585,27.8643 88.7629,27.8444 88.7667,27.8084 88.7405,27.6931 88.7162,27.6236 88.699,27.6012 88.687,27.5852 88.6505,27.5117 88.667,27.413 88.6855,27.3857 88.7091,27.3562 88.7817,27.3029 88.8033,27.2869 88.7968,27.2637 88.7769,27.2467 88.7285,27.2353 88.6966,27.2243 88.6482,27.1541 88.6393,27.1179 88.6786,27.1122 88.712,27.091 88.7475,27.0635 88.7552,27.0372 88.7799,26.9455 88.8334,26.9394 88.9239,26.8926 88.9704,26.8556 88.9792,26.8282 88.992,26.8027 89.0118,26.7937 89.0351,26.789 89.0858,26.784 89.1063,26.7847 89.1617,26.8016 89.1855,26.8207 89.2462,26.8302 89.2525,26.8293 89.3671,26.7703 89.4113,26.7816 89.4485,26.7724 89.4738,26.7623 89.5278,26.7326 89.5289,26.7228 89.5081,26.6954 89.528,26.6855 89.6548,26.6738 89.6782,26.677 89.6907,26.6773 89.7389,26.6797 89.9665,26.7094 90.008,26.7182 90.0336,26.7257 90.0604,26.7441 90.0677,26.7838 90.0805,26.8041 90.1013,26.8207 90.2471,26.8697 90.2729,26.8733 90.3013,26.8644 90.3411,26.828 90.4028,26.7946 90.448,26.7753 90.5253,26.7525 90.5725,26.7432 90.5921,26.7428 90.6281,26.7473 90.786,26.7548 90.8202,26.7549 90.841,26.7545 90.8499,26.7536 90.9328,26.7589 91.0027,26.7793 91.1141,26.7765 91.146,26.7649 91.1678,26.75 91.1901,26.748 91.2258,26.7566 91.2584,26.7744 91.2729,26.7922 91.284,26.8184 91.2998,26.8413 91.384,26.8374 91.3997,26.8092 91.4256,26.7754 91.598,26.7709 91.6247,26.7901 91.7206,26.8331 91.8738,26.8238 91.9132,26.8219 91.9465,26.8299 91.9633,26.8392 91.9739,26.8485 91.9849,26.8654 91.9949,26.9003 91.9825,26.9489 91.9686,26.9846 91.9533,27.0068 91.9272,27.0248 91.8997,27.0489 91.892,27.0713 91.897,27.1379 91.926,27.1579 91.996,27.2626 91.9708,27.3188 91.9597,27.338 91.8753,27.4448 91.8401,27.424 91.7356,27.4061 91.6527,27.4012 91.558,27.4565 91.5136,27.5057 91.4998,27.5299 91.4825,27.5844 91.4811,27.629 91.5026,27.6502 91.5242,27.6662 91.5363,27.6856 91.541,27.7101 91.5399,27.7338 91.7063,27.7355 91.7666,27.7002 91.8599,27.6976 91.8959,27.7037 91.9277,27.7194 91.9559,27.7557 91.9998,27.7816 92.0276,27.7874 92.0716,27.7816 92.1387,27.7888 92.1467,27.8374 92.1959,27.765 92.2121,27.7636 92.2226,27.7754 92.3336,27.7952 92.4259,27.8307 92.5243,27.8851 92.5801,27.9243 92.6,27.9478 92.6011,28.01 92.5671,28.0289 92.5557,28.0492 92.5677,28.0834 92.5908,28.1104 92.6332,28.1376 92.7102,28.1814 92.7332,28.1687 92.7676,28.1673 92.8102,28.2011 92.9257,28.2785 93.0061,28.2851 93.1016,28.2875 93.1174,28.3113 93.1177,28.3556 93.0954,28.3865 93.1612,28.461 93.1999,28.5085 93.2082,28.5631 93.2313,28.5867 93.27,28.6036 93.3198,28.6236 93.3813,28.6473 93.4041,28.6435 93.4232,28.6333 93.4743,28.6218 93.5265,28.6155 93.5686,28.6322 93.611,28.6456 93.7373,28.6584 93.7715,28.6549 93.8405,28.6373 93.8641,28.695 93.8878,28.7767 93.8995,28.8038 93.9729,28.8612 94.0309,28.8985 94.0656,28.9425 94.07,28.9764 94.1129,29.0409 94.1863,29.1087 94.3055,29.1831 94.3592,29.1859 94.4166,29.182 94.4589,29.1989 94.4709,29.2398 94.5253,29.3009 94.5751,29.3036 94.6699,29.2281 94.7413,29.1425 94.8596,29.1077 95.0071,29.0849 95.2308,29.0098 95.2646,29.0028 95.316,29.0089 95.3382,29.0217 95.4018,29.1034 95.4179,29.1586 95.5011,29.2225 95.6658,29.3101 95.8042,29.3586 95.8248,29.3631 95.8903,29.3999 95.9281,29.4284 95.9589,29.4315 96.0233,29.3628 96.0565,29.3188 96.0625,29.2801 96.0891,29.2446 96.1088,29.2233 96.1376,29.2113 96.1678,29.2097 96.217,29.2414 96.2338,29.2534 96.2669,29.2248 96.2245,29.1489 96.1929,29.1381 96.1629,29.1345 96.1344,29.1319 96.0943,29.1145 96.0248,29.0272 96.0254,28.9045 96.0512,28.8692 96.0989,28.8898 96.1259,28.9084 96.1438,28.9272 96.1576,28.9426 96.1729,28.9604 96.1943,28.9833 96.2226,29.0009 96.346,29.0241 96.3711,29.0039 96.3598,28.9358 96.409,28.8643 96.4772,28.7819 96.4889,28.7636 96.4908,28.7285 96.3057,28.5588 96.2709,28.5364 96.2161,28.4933 96.2372,28.3609 96.2774,28.3194 96.3266,28.3842 96.4742,28.4365 96.5293,28.4359 96.5505,28.4266 96.6199,28.3912 96.6327,28.3746 96.6536,28.3452 96.6899,28.3352 96.8595,28.3008 96.8888,28.3021 96.9281,28.3265 96.9735,28.3488 97.0028,28.3501 97.0238,28.3413 97.1126,28.2774 97.1227,28.2549 97.1815,28.2026 97.2233,28.1914 97.2088,28.1348 97.1915,28.056 97.2343,28.0125 97.2549,27.9601 97.2357,27.9098 96.9952,27.7609 96.9217,27.7188 96.879,27.6869 96.8076,27.6314 96.7656,27.5888 96.7616,27.5692 96.7788,27.4266 96.844,27.3356 96.8768,27.2982 96.9065,27.2722 96.9201,27.2564 97.0343,27.0979 97.0107,27.057 96.9349,27.0627 96.8739,27.1036 96.836,27.117 96.7808,27.1384 96.7578,27.1526 96.7394,27.1819 96.7306,27.2325 96.6969,27.2912 96.6596,27.3164 96.6393,27.3254 96.6014,27.335 96.4975,27.3353 96.3726,27.2718 96.3023,27.2742 96.1045,27.2455 96.0675,27.2396 96.0306,27.2255 95.9747,27.2015 95.9063,27.1571 95.8879,27.1389 95.8702,27.1065 95.8583,27.0802 95.8388,27.0501 95.8129,27.0216 95.7891,27.0006 95.7505,26.9829 95.7055,26.9781 95.6831,26.9726 95.5485,26.8682 95.4837,26.793 95.4242,26.7966 95.4035,26.7947 95.385,26.7831 95.3711,26.7615 95.3548,26.7227 95.3232,26.6826 95.2988,26.6687 95.2659,26.6551 95.1395,26.6203 95.1316,26.6497 95.1161,26.6466 95.0232,26.5863 94.9443,26.4461 94.945,26.2824 94.9586,26.2051 94.9918,26.109 95.0536,26.0372 95.0433,26.0078 95.0135,25.9728 94.9962,25.9545 94.9711,25.9315 94.9458,25.9172 94.9072,25.7964 94.8752,25.7034 94.7643,25.55 94.6731,25.4715 94.6479,25.463 94.6195,25.4665 94.5666,25.4373 94.5488,25.4193 94.5413,25.3996 94.5083,25.3734 94.4621,25.2606 94.456,25.2053 94.4582,25.1812 94.4739,25.1562 94.4965,25.1426 94.5428,25.1357 94.5664,25.1272 94.601,25.112 94.6136,25.095 94.6149,25.004 94.5492,24.8399 94.4991,24.7327 94.4787,24.6975 94.3817,24.5759 94.3534,24.5542 94.2409,24.3445 94.1957,24.2587 94.1522,24.1524 94.1246,24.0539 94.1022,23.9841 94.0304,23.8248 94.0172,23.817 93.9767,23.8598 93.9141,23.893 93.7929,23.9291 93.7412,23.9155 93.7055,23.9086 93.6833,23.922 93.6672,23.9498 93.6488,23.9737 93.5726,23.9884 93.5115,23.9897 93.4931,23.9671 93.4764,23.9447 93.4122,23.9375 93.3834,23.9355 93.3569,23.9442 93.3046,24.017 93.2906,24.0478 93.2711,24.0601 93.2504,24.0641 93.2208,24.0448 93.211,24.0093 93.2125,23.9537 93.2346,23.9268 93.2674,23.8213 93.2984,23.6783 93.3063,23.636 93.3086,23.5759 93.2833,23.3971 93.2558,23.3317 93.2718,23.2055 93.2333,23.0453 93.19,22.992 93.159,22.9788 93.1318,22.9814 93.1109,22.9922 93.0946,23.0255 93.0691,23.0336 93.0241,23.0212 93.0109,22.9885 93.0247,22.9274 93.0025,22.8455 92.9869,22.7762 92.9776,22.6891 92.9821,22.6401 93.0045,22.5053 93.0269,22.4406 93.0615,22.4164 93.0746,22.3595 93.0778,22.3321 93.0822,22.292 93.0832,22.24 93.0408,22.1633 93.0148,22.1612 92.9912,22.1807 92.9568,22.1868 92.9323,22.1797 92.9017,22.0903 92.8764,22.0242 92.8454,22.0002 92.8103,21.9806 92.7708,21.9892 92.7618,22.0094 92.7478,22.0279 92.6847,22.0844 92.5921,22.1298 92.5818,22.0694 92.562,22.0007 92.4919,21.9587 92.4872,21.9577 92.4712,22.0415 92.4813,22.1116 92.4829,22.1508 92.4643,22.2972 92.4544,22.3329 92.4107,22.5271 92.4167,22.5565 92.3959,22.7012 92.3626,22.7227 92.2613,22.9135 92.2377,23.1519 92.2351,23.203 92.2512,23.2224 92.2726,23.2596 92.2556,23.3138 92.2433,23.3413 92.2086,23.43 92.1848,23.5466 92.1743,23.6664 92.1632,23.6845 92.1535,23.693 92.0881,23.6804 92.06,23.7105 91.9949,23.6646 91.9526,23.624 91.9181,23.6196 91.863,23.6749 91.8441,23.7013 91.8238,23.654 91.8287,23.616 91.8426,23.5652 91.8484,23.5365 91.8518,23.4794 91.808,23.416 91.7693,23.4087 91.7309,23.3842 91.6832,23.3108 91.6694,23.2864 91.6561,23.2533 91.6544,23.229 91.6663,23.2027 91.6814,23.169 91.691,23.133 91.7044,23.0644 91.6647,23.0112 91.6112,22.9692 91.4982,22.9191 91.4484,22.9598 91.4348,22.975 91.3792,23.1368 91.3609,23.1945 91.3338,23.2211 91.3127,23.2359 91.2892,23.2399 91.2659,23.1936 91.2678,23.1552 91.2771,23.1069 91.2916,23.0686 91.286,23.0439 91.2614,23.0414 91.2435,23.0556 91.2312,23.0724 91.2196,23.0986 91.2064,23.1644 91.2027,23.1843 91.1996,23.2106 91.1865,23.2711 91.1689,23.3474 91.1414,23.4254 91.0958,23.4846 91.0483,23.6052 91.0432,23.6994 91.0523,23.7186 91.079,23.7241 91.1009,23.7293 91.1373,23.8136 91.1259,23.8514 91.123,23.8753 91.1544,23.9423 91.2677,24.0784 91.3063,24.0824 91.3647,24.0638 91.4059,24.0614 91.432,24.0599 91.4535,24.0634 91.4791,24.0698 91.6372,24.1273 91.7676,24.1247 91.7912,24.15 91.816,24.2553 91.8061,24.3002 91.8315,24.3224 91.8655,24.2931 92.0016,24.3627 92.017,24.3824 92.0218,24.41 92.0146,24.4633 92.0192,24.4911 92.0249,24.4994 92.0581,24.5188 92.0726,24.5351 92.1325,24.7149 92.1406,24.7464 92.1466,24.7759 92.1442,24.7989 92.1319,24.8238 92.132,24.8667 92.1682,24.8785 92.2262,24.8548 92.2736,24.8213 92.3202,24.8214 92.3581,24.8389 92.375,24.8496 92.3715,24.89 92.3289,24.9317 92.3051,24.9388 92.2948,24.9656 92.2955,24.9857 92.2918,24.9975 92.2152,25.0514 92.0758,25.112 91.9981,25.1426 91.9764,25.1493 91.9218,25.1594 91.8161,25.1553 91.6329,25.1393 91.5863,25.1235 91.3659,25.1109 91.1952,25.1547 91.1458,25.1779 91.0559,25.1672 90.9897,25.1684 90.9568,25.1647 90.9219,25.1555 90.8841,25.1445 90.8517,25.1333 90.7544,25.1224 90.7257,25.1206 90.4756,25.1382 90.4146,25.1459 90.3521,25.1332 90.3325,25.122 90.2975,25.1208 90.2684,25.1261 90.0544,25.1853 89.9249,25.2328 89.8519,25.2671 89.7975,25.2808 89.7701,25.2652 89.7365,25.2608 89.7187,25.2784 89.7019,25.3378 89.7131,25.4029 89.737,25.4871 89.7455,25.5481 89.7487,25.5766 89.7486,25.6184 89.7316,25.6631 89.6934,25.7937 89.7035,25.8235 89.7158,25.8454 89.7342,25.8772 89.7151,25.9703 89.6643,26.0599 89.6194,26.1272 89.5707,26.1308 89.5347,26.1601 89.5194,26.201 89.4872,26.1981 89.4476,26.1234 89.463,26.0972 89.4807,26.0703 89.4881,26.0397 89.434,25.9866 89.39,25.9767 89.2287,25.9879 89.2057,25.9956 89.1391,26.0368 89.0211,26.1244 89.0068,26.1493 88.9766,26.2687 88.9569,26.3558 88.833,26.4132 88.8111,26.3954 88.7966,26.3627 88.8097,26.3283 88.8551,26.3094 88.9303,26.2453 88.9067,26.2057 88.7435,26.211 88.6222,26.2643 88.5903,26.3037 88.5806,26.3626 88.5674,26.3909 88.4935,26.4412 88.4592,26.4357 88.3171,26.5245 88.3068,26.5574 88.2999,26.5965 88.2617,26.551 88.2224,26.4533 88.2433,26.4249 88.2584,26.4561 88.3321,26.4431 88.3686,26.4307 88.401,26.3771 88.4099,26.338 88.3606,26.3279 88.2833,26.2958 88.2439,26.253 88.2436,26.2203 88.2356,26.1909 88.1731,26.1665 88.0703,26.1215 88.0453,26.0685 87.9832,25.8862 87.998,25.8068 88.0315,25.757 88.0508,25.7514 88.0923,25.7672 88.1125,25.7783 88.1413,25.7859 88.1612,25.7773 88.3367,25.6307 88.3347,25.5878 88.3414,25.561 88.4439,25.4761 88.5387,25.461 88.6027,25.4603 88.6535,25.4892 88.6867,25.4822 88.7196,25.4526 88.727,25.4327 88.7241,25.3984 88.7079,25.3762 88.7299,25.3365 88.7608,25.3045 88.8206,25.2791 88.8786,25.2802 88.8953,25.262 88.833,25.1414 88.8201,25.1365 88.7759,25.1478 88.5923,25.167 88.534,25.1693 88.5077,25.1701 88.3705,25.1716 88.342,25.1602 88.346,25.1246 88.3489,25.0468 88.3259,24.9953 88.2859,24.9117 88.2274,24.8412 88.1943,24.8463 88.1655,24.8603 88.1527,24.8853 88.1089,24.923 88.0298,24.8888 88.0513,24.8621 88.0555,24.8208 88.0256,24.7923 87.933,24.6578 88.0019,24.4943 88.0198,24.4793 88.1235,24.4398 88.1735,24.4237 88.2545,24.3846 88.3516,24.3138 88.3963,24.291 88.5409,24.2671 88.5574,24.2829 88.5906,24.2792 88.6104,24.2535 88.6215,24.234 88.6308,24.2146 88.6405,24.1896 88.6287,24.1601 88.6045,24.153 88.5894,24.1217 88.5965,24.0948 88.5902,24.0556 88.615,24.0336 88.6435,24.0138 88.6237,23.8915 88.5766,23.866 88.5171,23.8472 88.4911,23.8317 88.4662,23.74 88.4558,23.6204 88.4747,23.5775 88.6463,23.4433 88.6759,23.4665 88.6758,23.4245 88.6288,23.3242 88.6024,23.2851 88.6026,23.2465 88.6171,23.2213 88.6946,23.2012 88.7175,23.2167 88.8722,23.1803 88.8056,23.0977 88.7869,23.0833 88.7648,23.0663 88.7531,22.9712 88.7531,22.9428 88.8193,22.8439 88.8785,22.3762 88.8835,22.2995 88.8975,22.2517 88.9084,22.2325 88.9484,22.1807 88.9636,22.1675 88.9846,22.1185 88.9558,22.0905 88.9448,22.1048 88.9277,22.0642 88.933,22.0326 88.9443,22.0101 88.9542,21.9831 88.949,21.9078 88.8962,21.8792 88.9084,21.839 88.979,21.6321 88.9751,21.6011 88.9513,21.5844 88.9005,21.5767 88.8118,21.6097 88.7435,21.6046 88.6699,21.5311 88.6275,21.5263 88.6032,21.5384 88.5746,21.6622 88.5879,21.8186 88.6049,21.9068 88.615,21.9391 88.6379,21.9601 88.6565,21.9805 88.6436,22.019 88.6041,22.0372 88.6187,21.9984 88.5755,21.9086 88.5268,21.9166 88.5157,21.9373 88.5496,21.9924 88.5418,22.0229 88.5289,22.0719 88.5356,22.0971 88.5473,22.1221 88.5704,22.1437 88.5678,22.1722 88.5314,22.136 88.5042,22.0737 88.5127,22.0422 88.5169,22.015 88.4879,21.9639 88.4948,21.9126 88.48,21.8691 88.466,21.8544 88.449,21.7944 88.4572,21.7443 88.4956,21.7533 88.5192,21.7283 88.5195,21.6984 88.4933,21.5858 88.4637,21.5358 88.4299,21.5017 88.4037,21.4979 88.3898,21.4965 88.3859,21.5002 88.375,21.5298 88.3835,21.5537 88.4034,21.5679 88.4172,21.6318 88.4233,21.8073 88.4035,21.9067 88.3915,21.9236 88.3631,21.8642 88.3597,21.7588 88.3651,21.65 88.3556,21.6136 88.3422,21.5872 88.2943,21.5596 88.1983,21.5866 88.2007,21.6338 88.1995,21.6699 88.1927,21.722 88.1871,21.7525 88.153,21.7728 88.151,21.7491 88.1663,21.7017 88.1824,21.6636 88.1965,21.5432 88.1496,21.5247 88.0933,21.5858 88.0723,21.6535 88.0947,21.6878 88.0981,21.7678 88.0779,21.8094 88.0588,21.8334 88.0461,21.8531 88.0353,21.9337 88.0687,21.9906 88.0876,22.0073 88.1038,22.0296 88.1104,22.052 88.0908,22.1272 88.0613,22.1584 88.0374,22.1688 87.9718,22.1837 87.9226,22.1954 87.8993,22.2103 87.8837,22.2277 87.86,22.2676 87.8374,22.3459 87.8266,22.3923 87.7979,22.3956 87.8356,22.2568 87.8436,22.2384 87.8735,22.1984 87.8933,22.1799 87.9622,22.1632 87.9918,22.1598 88.0222,22.1534 88.0625,22.1063 88.0663,22.0865 88.0581,22.0652 88.0081,22.0155 87.9765,21.9948 87.9285,21.9264 87.8784,21.835 87.8582,21.8097 87.7621,21.7282 87.7216,21.695 87.6887,21.6746 87.5717,21.6216 87.4145,21.5934 87.3736,21.5878 87.3477,21.5825 87.2222,21.5378 87.1005,21.5254 87.0079,21.486 86.9608,21.455 86.9367,21.4357 86.9004,21.4031 86.8569,21.3583 86.7738,21.2565 86.7405,21.1991 86.7297,21.1709 86.722,21.129 86.7299,21.0794 86.7772,20.9455 86.8432,20.8227 86.8559,20.794 86.8553,20.7621 86.7856,20.7361 86.8332,20.6751 86.8809,20.6549 86.9197,20.6516 86.8953,20.6346 86.7612,20.5483 86.7033,20.5159 86.6825,20.5001 86.6503,20.4686 86.6226,20.4311 86.6124,20.3699 86.6227,20.3471 86.6666,20.3784 86.6965,20.4116 86.7021,20.3814 86.6963,20.3612 86.6576,20.3136 86.6051,20.26 86.5467,20.2214 86.5263,20.2144 86.4933,20.2036 86.4372,20.1835 86.3831,20.1544 86.3808,20.1224 86.3162,19.9625 86.2722,19.9582 86.206,20.0085 86.1849,20.0377 86.0918,20.0525 86.1406,20.0011 86.1927,19.982 86.2503,19.9434 86.1675,19.8883 86.0534,19.8493 85.9144,19.8092 85.8499,19.7975 85.8242,19.7911 85.767,19.7756 85.6374,19.7376 85.5304,19.7056 85.3797,19.644 85.3476,19.6383 85.3433,19.6516 85.3273,19.6722 85.3576,19.6918 85.3858,19.7004 85.416,19.704 85.4456,19.7103 85.4568,19.7293 85.4556,19.7793 85.4712,19.8134 85.4302,19.8586 85.355,19.8811 85.3312,19.865 85.2498,19.8071 85.2232,19.7706 85.1353,19.7184 85.1004,19.6607 85.0671,19.6033 85.0406,19.5812 85.025,19.527 85.0218,19.4856 85.0574,19.4832 85.0846,19.5203 85.0885,19.5507 85.129,19.5789 85.146,19.6278 85.1811,19.6186 85.2053,19.62 85.2406,19.6383 85.2768,19.6543 85.3041,19.6393 85.2789,19.5906 85.2582,19.5789 85.2284,19.5782 85.1892,19.5756 85.1993,19.5577 85.2261,19.5495 85.187,19.5294 85.1694,19.5181 85.0785,19.4575 85.0543,19.438 84.9966,19.3906 84.7776,19.2071 84.7259,19.1471 84.6874,19.0965 84.6627,19.091 84.6237,19.1026 84.6154,19.0834 84.6395,19.0542 84.6622,19.0734 84.6572,19.0401 84.6053,18.9641 84.5738,18.9208 84.5561,18.9056 84.5332,18.8942 84.5103,18.8688 84.3919,18.7144 84.2474,18.5481 84.1851,18.4842 84.0322,18.3213 84.0141,18.2815 83.9748,18.2462 83.8769,18.2076 83.7827,18.1686 83.671,18.1196 83.4801,17.9952 83.4164,17.9132 83.2857,17.7467 83.2414,17.6949 83.1335,17.573 83.1161,17.561 83.0606,17.529 82.9101,17.4679 82.7841,17.3887 82.7069,17.3633 82.6778,17.3527 82.5153,17.2718 82.4448,17.2308 82.4099,17.2076 82.376,17.1829 82.2629,17.0791 82.2142,17.0265 82.1963,17.0012 82.1494,16.8931 82.1546,16.8636 82.1756,16.8422 82.2676,16.8122 82.2655,16.7662 82.2475,16.6862 82.203,16.5647 82.1004,16.4908 82.0755,16.4781 81.9882,16.434 81.8908,16.3872 81.8427,16.3683 81.6728,16.3076 81.6293,16.2928 81.6161,16.2986 81.5531,16.3165 81.4741,16.3241 81.3962,16.3365 81.3326,16.3498 81.3148,16.3672 81.244,16.356 81.2237,16.3487 81.1682,16.3142 81.1507,16.2961 81.067,16.0481 81.0534,15.9522 81.008,15.9203 80.9412,15.8688 80.9035,15.8221 80.9069,15.8005 80.9169,15.766 80.8053,15.8457 80.8158,15.9146 80.8114,15.9599 80.807,15.9901 80.7861,15.9942 80.7925,15.9534 80.8001,15.9018 80.7916,15.8601 80.7288,15.7346 80.7185,15.7621 80.7163,15.8043 80.7097,15.8251 80.6805,15.8602 80.6332,15.8781 80.5883,15.8822 80.4608,15.8601 80.2991,15.7734 80.2715,15.7567 80.2355,15.731 80.2111,15.7095 80.1836,15.6817 80.1673,15.6584 80.1375,15.5903 80.1139,15.5137 80.0411,15.3806 80.0161,15.335 79.9988,15.2985 79.961,15.0939 79.9542,15.0388 79.9933,14.829 80.0143,14.7434 80.0531,14.6644 80.0876,14.5858 80.1013,14.5396 80.0815,14.3328 80.0453,14.244 80.0332,14.1843 80.0469,14.0892 80.059,14.0201 80.0901,13.9402 80.1327,13.8475 80.1508,13.8047 80.1565,13.7845 80.1561,13.7521 80.1403,13.7236 80.1339,13.6866 80.1366,13.6553 80.1768,13.5395 80.1923,13.5109 80.2222,13.442 80.2176,13.423 80.1901,13.4921 80.1588,13.5587 80.1479,13.5767 80.0607,13.7026 79.999,13.6731 79.958,13.6052 79.9669,13.5722 79.993,13.5332 80.0206,13.4921 80.0274,13.4848 80.1325,13.4666 80.17,13.4503 80.2223,13.4074 80.243,13.3841 80.2572,13.3279 80.2306,13.1587 80.2143,13.1197 80.1898,13.0334 80.1728,12.9397 80.1709,12.8491 80.1714,12.8112 80.1659,12.7586 80.137,12.6571 80.0704,12.4593 80.0481,12.4163 80.0125,12.3642 79.9441,12.2651 79.8924,12.1936 79.8627,12.1522 79.8447,12.1253 79.7904,12.0392 79.782,12.025 79.7765,12.0149 79.7703,11.9769 79.7694,11.9602 79.7563,11.9257 79.739,11.8816 79.7273,11.8498 79.7268,11.8343 79.7162,11.819 79.7158,11.8051 79.715,11.785 79.6976,11.7634 79.6981,11.7453 79.6933,11.7266 79.6758,11.6433 79.663,11.5419 79.6955,11.4152 79.7422,11.3294 79.7656,11.1335 79.7668,11.0684 79.7659,10.9918 79.7651,10.9763 79.7535,10.9313 79.7543,10.91 79.7595,10.8826 79.7602,10.8363 79.7531,10.8059 79.755,10.7943 79.758,10.7606 79.7655,10.5612 79.7755,10.3961 79.777,10.374 79.7709,10.2746 79.739,10.2601 79.7006,10.258 79.6915,10.2768 79.6609,10.291 79.5966,10.294 79.6624,10.2713 79.6805,10.2522 79.6239,10.2549 79.4781,10.2838 79.4059,10.2959 79.307,10.3067 79.2375,10.2685 79.1851,10.2187 79.1552,10.1718 79.149,10.1365 79.1551,10.0721 79.1727,10.035 79.1633,10.0063 79.1327,9.9671 79.1091,9.9415 79.0924,9.9232 79.0675,9.8927 79.0475,9.8658 78.9487,9.7333 78.8951,9.6535 78.8566,9.5875 78.8223,9.4634 78.8299,9.4368 78.8543,9.399 78.8905,9.3522 78.9222,9.3212 78.9936,9.3023 79.0161,9.2894 79.036,9.282 79.1167,9.278 79.1406,9.2814 79.2439,9.2538 79.3584,9.1497 79.3246,9.1585 79.2889,9.1854 79.2643,9.21 79.2446,9.2218 79.2069,9.2365 79.1342,9.2456 79.0891,9.2522 78.9103,9.2644 78.8808,9.2629 78.7905,9.2409 78.7692,9.234 78.7229,9.2188 78.5751,9.1665 78.3744,9.105 78.3424,9.0958 78.3234,9.087 78.3035,9.0756 78.1427,8.9518 78.125,8.9244 78.1057,8.8943 78.0882,8.8539 78.0531,8.6078 78.0561,8.5697 78.0427,8.4722 77.975,8.3571 77.9399,8.34 77.9154,8.3304 77.9099,8.3291 77.8642,8.2967 77.7011,8.1872 77.5636,8.1456 77.5197,8.1336 77.4924,8.1198 77.472,8.0904 77.4493,8.063 77.3994,8.069 77.3643,8.0763 77.2126,8.1239 77.1413,8.1712 77.0795,8.2201 77.0065,8.2857 76.9952,8.2931 76.9569,8.3208 76.9126,8.3559 76.8785,8.3911 76.8735,8.3993 76.8643,8.4091 76.7559,8.5432 76.7267,8.5831 76.583,8.7722 76.4909,8.8671 76.4833,8.8969 76.4864,8.9272 76.5208,8.9617 76.5515,8.9551 76.5754,8.9568 76.579,8.994 76.4742,8.9816 76.4493,8.9549 76.3578,9.1333 76.311,9.2376 76.2959,9.2709 76.2567,9.3748 76.2462,9.4059 76.232,9.4531 76.2239,9.4863 76.2199,9.5097 76.2167,9.5337 76.2134,9.558 76.2102,9.5824 76.2046,9.6688 76.179,9.8182 76.1623,9.8914 76.1613,9.9501 76.2042,9.9 76.1768,9.8937 76.1789,9.8656 76.2027,9.82 76.2426,9.759 76.2731,9.7659 76.295,9.6293 76.2787,9.5864 76.2691,9.5158 76.3085,9.4931 76.3923,9.4869 76.4146,9.5198 76.3861,9.5418 76.3406,9.5872 76.3319,9.6713 76.3126,9.8112 76.3006,9.8493 76.2739,9.9009 76.237,9.9329 76.1569,10.0997 76.1286,10.1174 76.1295,10.084 76.1446,10.0581 76.1553,10.002 76.1539,9.973 76.1211,10.0243 76.1129,10.054 76.1003,10.0753 76.0808,10.1763 75.9979,10.3953 75.9402,10.5268 75.8408,10.7437 75.8242,10.7914 75.8099,10.8432 75.7784,10.9682 75.6344,11.3525 75.6002,11.428 75.5632,11.4519 75.5343,11.4581 75.4966,11.5342 75.4814,11.577 75.4727,11.6195 75.4451,11.6874 75.2938,11.8474 75.1909,11.9945 75.1651,11.9947 75.1101,11.9969 75.0929,12.0539 75.0435,12.1946 74.9374,12.3975 74.8395,12.5978 74.7974,12.7005 74.7777,12.7334 74.771,12.7407 74.7535,12.8318 74.7325,12.8429 74.687,13.0419 74.6453,13.2526 74.59,13.5009 74.585,13.603 74.5333,13.817 74.5169,13.8522 74.4793,13.9221 74.4117,14.0308 74.3921,14.1157 74.3643,14.2302 74.3437,14.2634 74.3152,14.3457 74.2885,14.4321 74.3092,14.4395 74.325,14.4671 74.2884,14.5253 74.2604,14.5468 74.2486,14.5052 74.2163,14.5042 74.1961,14.5891 74.1837,14.6635 74.1601,14.7058 74.1379,14.721 74.0891,14.7251 74.0107,14.771 74.0139,14.8506 73.9842,14.8899 73.8707,15.0492 73.8639,15.1456 73.818,15.2843 73.7779,15.3332 73.7232,15.3559 73.7009,15.382 73.7441,15.389 73.8293,15.3828 73.8545,15.3655 73.8721,15.348 73.8617,15.3813 73.831,15.401 73.756,15.4277 73.7318,15.4295 73.706,15.4325 73.6778,15.4706 73.5952,15.6877 73.6093,15.7044 73.5829,15.7042 73.5563,15.7222 73.5623,15.7596 73.5499,15.7966 73.5234,15.8462 73.5023,15.8784 73.4622,15.9161 73.4399,15.9315 73.4116,15.958 73.3977,15.9734 73.3599,16.0409 73.3201,16.2165 73.2564,16.411 73.2381,16.4675 73.2509,16.4948 73.2725,16.4937 73.2245,16.588 73.1817,16.8346 73.1648,16.9801 73.1835,17.0148 73.1861,17.042 73.1867,17.0629 73.1708,17.126 73.1596,17.1549 73.1101,17.3493 73.0974,17.4207 73.0902,17.4518 73.0433,17.5863 73.0288,17.6113 73.0172,17.6737 73.0327,17.6953 73.0209,17.75 73.0126,17.7717 72.968,17.8668 72.923,17.9709 72.8832,18.1602 72.879,18.2812 72.8436,18.3286 72.8247,18.3549 72.8059,18.3966 72.8015,18.4564 72.8143,18.4981 72.7656,18.6396 72.7628,18.7254 72.7714,18.7756 72.8388,18.7996 72.8829,18.7602 72.8992,18.7068 72.9047,18.7695 72.8562,18.8312 72.8235,18.8966 72.887,18.9256 72.9656,18.9836 72.8813,19.0575 72.8438,19.0397 72.7997,18.9753 72.7348,18.8913 72.6849,18.9248 72.7117,18.9664 72.7358,19.0242 72.7274,19.1468 72.6975,19.1288 72.6784,19.2106 72.6906,19.2889 72.7616,19.2973 72.9043,19.2325 72.9283,19.186 72.9541,19.1895 72.9443,19.2303 72.912,19.266 72.8727,19.2884 72.7912,19.3019 72.7135,19.307 72.6653,19.3511 72.6196,19.5686 72.6153,19.6757 72.6114,19.7415 72.5891,19.7715 72.5842,19.7944 72.576,19.8488 72.5779,19.8963 72.6104,19.9583 72.6356,20.0739 72.6392,20.1096 72.6404,20.1205 72.6515,20.1981 72.6624,20.263 72.6932,20.3237 72.6966,20.3275 72.7153,20.3347 72.7315,20.3563 72.7412,20.4181 72.7644,20.4404 72.7949,20.4856 72.8452,20.7301 72.8455,20.7516 72.8329,20.7905 72.797,20.7861 72.7586,20.8197 72.7518,20.8868 72.758,21.0118 72.7638,21.0418 72.7174,21.1021 72.667,21.0857 72.6331,21.0587 72.538,21.0622 72.5243,21.0831 72.5389,21.1066 72.5935,21.1408 72.6259,21.1778 72.5558,21.2355 72.5269,21.2289 72.5074,21.2557 72.476,21.3514 72.4992,21.37 72.5201,21.3765 72.576,21.3918 72.6606,21.44 72.6263,21.4512 72.5975,21.4404 72.5704,21.4193 72.5031,21.3943 72.524,21.4494 72.5426,21.4703 72.5771,21.4975 72.7285,21.6099 72.7563,21.6123 72.7886,21.6128 72.8122,21.6198 73.0278,21.711 73.0375,21.7337 72.9692,21.7155 72.9371,21.6934 72.8812,21.6686 72.8474,21.6576 72.685,21.6466 72.6536,21.661 72.5287,21.6605 72.492,21.6485 72.4571,21.6398 72.4372,21.658 72.4401,21.6796 72.4614,21.7182 72.4667,21.7645 72.4692,21.7851 72.4774,21.8218 72.5356,21.9021 72.5592,21.915 72.5885,21.9059 72.6164,21.9268 72.6333,21.9657 72.5336,21.9359 72.5118,21.9217 72.4849,21.8979 72.4498,21.8863 72.4127,21.9505 72.4309,22.0613 72.4475,22.1129 72.4747,22.1599 72.4915,22.1736 72.5267,22.1836 72.5556,22.1775 72.5898,22.1548 72.6617,22.142 72.6795,22.1619 72.6995,22.1906 72.7236,22.2116 72.759,22.2099 72.7972,22.1886 72.827,22.1948 72.825,22.2463 72.7284,22.2474 72.6954,22.2302 72.5868,22.2423 72.4945,22.2609 72.4647,22.2522 72.4151,22.217 72.3791,22.2034 72.3004,22.2276 72.2865,22.2743 72.1606,22.2729 72.1254,22.2697 72.0664,22.2566 72.0838,22.2271 72.1731,22.2024 72.2112,22.2025 72.2328,22.1501 72.2365,22.127 72.2139,22.0374 72.1763,21.9915 72.1571,21.9787 72.0879,21.9452 72.037,21.9484 71.9506,21.9147 72.0276,21.8943 72.0586,21.9027 72.0747,21.8129 71.9949,21.8049 71.9346,21.8225 71.91,21.8294 71.9034,21.7676 71.934,21.7489 71.9892,21.7599 72.078,21.7641 72.1265,21.7094 72.1247,21.6808 72.1627,21.6648 72.2008,21.5866 72.1601,21.4548 72.1497,21.4355 72.1107,21.3942 72.0879,21.3753 72.0153,21.2832 72.0099,21.2282 72.02,21.1806 71.961,21.1374 71.9153,21.1112 71.7062,21.027 71.481,20.9516 71.3894,20.8695 71.3547,20.8513 71.2885,20.832 71.1368,20.7764 71.0951,20.757 71.0483,20.7369 70.877,20.6794 70.739,20.6727 70.6321,20.7114 70.4897,20.7659 70.4369,20.7905 70.2431,20.9049 70.1887,20.9445 70.1075,21.0104 69.9754,21.1209 69.9601,21.1344 69.9305,21.1624 69.81,21.3022 69.7706,21.3535 69.7422,21.3922 69.7031,21.4424 69.5629,21.577 69.5355,21.5996 69.5104,21.6094 69.4932,21.6157 69.4699,21.6344 69.3519,21.7474 69.2458,21.8395 69.1444,21.9227 69.1088,21.9589 69.0304,22.038 68.9328,22.1522 68.9134,22.1751 68.892,22.2026 68.878,22.223 68.8612,22.2645 68.8586,22.3003 68.8815,22.3603 68.9014,22.3932 68.9209,22.4189 68.9864,22.4558 69.0665,22.3783 69.0911,22.3329 69.0853,22.2859 69.1352,22.249 69.1813,22.2525 69.206,22.2568 69.3801,22.3089 69.6147,22.3806 69.7845,22.4403 69.8544,22.4836 69.8978,22.5087 69.9213,22.52 69.952,22.5315 70.0105,22.5244 70.0578,22.5184 70.0835,22.5258 70.0977,22.5407 70.1271,22.5963 70.2349,22.7888 70.2805,22.8632 70.294,22.88 70.3536,22.936 70.3914,22.9351 70.4157,22.949 70.4353,22.9891 70.4404,23.0163 70.4222,23.0725 70.3945,23.1002 70.3272,23.0631 70.3144,23.0411 70.3132,23.0163 70.3211,22.9918 70.3155,22.9492 70.3068,22.9145 70.2517,22.9086 70.2051,22.9221 70.1404,22.9318 69.7554,22.831 69.7129,22.8109 69.6641,22.7764 69.6243,22.7174 69.5973,22.7279 69.3217,22.7838 69.1839,22.8036 69.1303,22.8148 69.057,22.8464 69.0281,22.8693 68.9694,22.9132 68.8802,22.9529 68.8573,22.9623 68.8175,22.9792 68.6671,23.0634 68.574,23.1224 68.4579,23.2432 68.348,23.404 68.319,23.4863 68.3233,23.5819 68.5225,23.721 68.635,23.7895 68.6555,23.8175 68.5243,23.781 68.3646,23.7017 68.2997,23.6513 68.2783,23.6142 68.2722,23.5838 68.2446,23.5585 68.1707,23.5533 68.0936,23.5646 68.0594,23.5827 68.1139,23.6366 68.1126,23.7403 68.1234,23.8242 68.1326,23.8458 68.1993,23.9125 68.2969,23.9394 68.5463,23.9434 68.6079,23.9434 68.6615,23.9431 68.6608,23.9732 68.6601,24.0158 68.6585,24.2681 68.6622,24.2907 68.7025,24.3066 68.733,24.308 68.8435,24.2972 68.8613,24.2848 68.8727,24.2677 68.8911,24.2366 68.9297,24.2356 68.9908,24.2677 69.1658,24.2527 69.2933,24.2578 69.4563,24.257 69.5113,24.2543 69.5554,24.215 69.6062,24.1666 69.6363,24.1443 69.9122,24.1427 69.9327,24.1436 69.9763,24.1667 69.999,24.2055 70.0291,24.2761 70.0609,24.2854 70.0942,24.2869 70.1747,24.309 70.2414,24.3425 70.3262,24.3748 70.4714,24.4084 70.4978,24.3998 70.5105,24.381 70.5012,24.362 70.4907,24.2995 70.4957,24.2539 70.5566,24.2169 70.6735,24.2086 70.7097,24.2149 70.7926,24.2461 70.7761,24.2772 70.8392,24.3343 70.8602,24.3447 70.887,24.3453 70.9103,24.3354 70.9318,24.3349 71.0158,24.3922 71.0065,24.4133 70.9484,24.4299 70.9142,24.4377 70.891,24.5304 70.8899,24.5766 70.9117,24.6172 70.988,24.6531 70.9816,24.6774 70.9047,24.828 70.889,24.8478 70.8771,24.864 70.8529,24.9077 70.8454,24.9262 70.8164,25.0072 70.8114,25.0272 70.8056,25.0524 70.7977,25.0937 70.7926,25.1213 70.7735,25.1503 70.7524,25.1699 70.7312,25.1864 70.7075,25.2046 70.6606,25.2497 70.5878,25.3748 70.5823,25.413 70.5819,25.5181 70.5829,25.5417 70.587,25.5866 70.5888,25.6162 70.5855,25.6516 70.5697,25.6746 70.5458,25.6842 70.5222,25.6858 70.4878,25.6764 70.4473,25.6567 70.4212,25.6531 70.2893,25.6472 70.2619,25.6542 70.2281,25.6639 70.1954,25.6769 70.0334,25.8819 69.999,25.9542 70.0053,26.0573 70.0131,26.0778 70.0296,26.1048 70.0497,26.1308 70.0644,26.1559 70.0789,26.1951 70.0846,26.2183 70.0956,26.3385 70.0972,26.3621 70.0973,26.4944 70.0781,26.5265 70.0507,26.5456 70.0231,26.5588 70.0029,26.5635 69.9817,26.5663 69.9491,26.5669 69.8566,26.5619 69.8108,26.5588 69.7436,26.5566 69.7063,26.5674 69.6849,26.5839 69.6595,26.6172 69.6333,26.6355 69.606,26.6489 69.545,26.6723 69.5026,26.6887 69.4826,26.6949 69.4532,26.7045 69.4223,26.719 69.4094,26.7431 69.4021,26.7622 69.3968,26.7878 69.4227,26.9693 69.494,27.1478 69.6063,27.2516 69.6389,27.267 69.6663,27.2786 69.7777,27.378 69.941,27.5598 69.951,27.5776 69.9639,27.6103 69.9729,27.6428 69.9841,27.6771 69.9911,27.6971 70.0166,27.7579 70.0336,27.7914 70.1132,27.8543 70.1313,27.8753 70.2757,27.9876 70.3899,28.0142 70.4287,28.0063 70.4636,27.991 70.4966,27.9718 70.5591,27.9119 70.5746,27.8907 70.578,27.8675 70.5712,27.8391 70.581,27.8107 70.6362,27.715 70.6515,27.6971 70.6839,27.6833 70.7148,27.6773 70.7382,27.6756 70.7661,27.6758 70.8032,27.6811 70.8385,27.692 70.8663,27.7022 70.9039,27.7186 70.965,27.7465 70.9942,27.7614 71.0189,27.7724 71.0641,27.791 71.112,27.8081 71.1339,27.8149 71.1612,27.8194 71.262,27.8332 71.3073,27.8376 71.3457,27.8393 71.3861,27.839 71.4321,27.8385 71.4768,27.8409 71.5224,27.8452 71.5485,27.8496 71.6011,27.8596 71.8042,27.9309 71.8115,27.9796 71.8265,28.0877 71.8992,28.1842 71.9924,28.2552 72.0445,28.2938 72.1135,28.3709 72.1207,28.392 72.1599,28.5201 72.1969,28.6409 72.2961,28.753 72.4613,28.8271 72.5028,28.8497 72.5445,28.8725 72.6351,28.9213 72.7403,28.9614 72.856,29.0077 72.8947,29.1093 72.9555,29.1755 72.992,29.2133 73.1705,29.5201 73.1791,29.5399 73.2356,29.7088 73.3027,29.9094 73.3243,29.9189 73.486,29.984 73.5792,30.0071 73.634,30.0199 73.7033,30.037 73.8377,30.1024 73.8718,30.1746 73.866,30.2105 73.8538,30.2523 73.8404,30.2777 73.8111,30.3064 73.7642,30.3277 73.7748,30.3535 73.9002,30.4709 73.9529,30.5649 74.0114,30.6106 74.0848,30.6575 74.1463,30.7297 74.211,30.8146 74.2837,30.8582 74.4583,30.9606 74.5612,31.0075 74.6008,31.0244 74.6095,31.0585 74.5873,31.0771 74.5268,31.0892 74.5086,31.0713 74.4926,31.0446 74.4606,31.0415 74.4421,31.0841 74.426,31.1404 74.4517,31.3195 74.4657,31.3435 74.4856,31.3623 74.5058,31.3809 74.5298,31.3842 74.536,31.4269 74.4831,31.5428 74.4446,31.6146 74.4224,31.6426 74.3962,31.6657 74.3919,31.6863 74.5022,31.8339 74.5747,31.8824 74.6472,31.9064 74.754,31.9629 74.8,32.0116 74.8384,32.0262 74.8749,32.0177 74.8988,32.0005 74.9434,32.0055 75.0965,32.0382 75.1589,32.0569 75.2091,32.0981 75.2832,32.1781 75.2934,32.2056 75.2771,32.2278 75.2529,32.2398 75.2289,32.2645 75.2214,32.3084 75.2167,32.3151 75.1341,32.3622 74.9603,32.4387 74.9277,32.4421 74.8009,32.4227 74.6412,32.4302 74.6136,32.4445 74.5887,32.4676 74.5572,32.5484 74.5722,32.668 74.5448,32.7405 74.5108,32.7248 74.4347,32.7137 74.2667,32.7384 74.2439,32.758 74.2333,32.7789 74.2623,32.8147 74.267,32.8356 74.2467,32.948 74.2352,32.9654 74.2115,32.9776 74.1834,32.9844 74.1598,32.9858 74.136,32.9871 74.1058,32.9945 74.0847,33.0062 73.9402,33.1296 73.9235,33.1471 73.9167,33.17 73.9153,33.1982 73.9271,33.2357 73.9569,33.2519 73.9907,33.2653 74.0255,33.2988 74.0415,33.3325 74.0816,33.4477 74.0859,33.47 74.0807,33.4945 74.0696,33.5128 74.0518,33.5287 74.0215,33.5502 73.9897,33.5665 73.953,33.5824 73.9166,33.604 73.891,33.6422 73.8872,33.6648 73.8952,33.7076 73.9087,33.7351 73.9349,33.7751 73.9502,33.7905 73.9708,33.8002 74.0002,33.8018 74.0226,33.8016 74.047,33.8036 74.0822,33.8146 74.1128,33.83 74.1397,33.8462 74.1612,33.8634 74.1806,33.8839 74.1981,33.9357 74.1806,33.9682 74.1481,33.9813 73.9898,33.9894 73.9556,33.9852 73.9258,33.9763 73.8895,33.9736 73.8553,33.9864 73.8378,34.0032 73.8204,34.0257 73.8119,34.0524 73.8198,34.0815 73.8373,34.0985 73.8653,34.1133 73.8922,34.1231 73.9104,34.1329 73.9258,34.1638 73.8805,34.2597 73.8425,34.274 73.8104,34.2725 73.787,34.2721 73.7555,34.2789 73.7292,34.2963 73.7089,34.3191 73.7041,34.3591 73.7795,34.4734 73.8079,34.4999 73.8408,34.5942 73.8665,34.6252 73.8943,34.637 73.9704,34.6504 74.0347,34.6556 74.0592,34.6616 74.1128,34.6968 74.1515,34.7161 74.2023,34.7338 74.2336,34.7417 74.261,34.7449 74.2844,34.7439 74.3482,34.7307 74.384,34.7191 74.4269,34.7034 74.4618,34.6915 74.5407,34.668 74.5754,34.6595 74.596,34.6548 74.9668,34.5965 75.0131,34.5891 75.0381,34.5865 75.0893,34.5844 75.1455,34.5874 75.2513,34.5318 75.2915,34.5172 75.5392,34.4642 75.5632,34.4624 75.7005,34.4681 75.7293,34.4802 75.7625,34.5166 75.7904,34.5412 75.8337,34.5677 75.8807,34.5853 75.9167,34.5916 75.94,34.5913 75.9686,34.5856 75.9877,34.579 76.0151,34.5659 76.0363,34.5541 76.0664,34.5482 76.1304,34.5728 76.1439,34.5991 76.1833,34.6488 76.2,34.664 76.3291,34.7197 76.3508,34.7285 76.377,34.7306 76.4074,34.7217 76.5578,34.7063 76.6029,34.7103 76.6358,34.7005 76.664,34.672 76.6874,34.6444 76.7227,34.6253 76.7438,34.6199 76.7705,34.6201 76.8072,34.6351 76.8487,34.7518 76.8542,34.8174 76.9355,34.9529 76.9629,34.9815 76.9645,35.0063 76.9505,35.0492 76.9428,35.06 76.9499,35.0645 77.1444,35.1652 77.2279,35.2085 77.2978,35.244 77.4657,35.3291 77.6757,35.4359 77.7173,35.4574 77.7232,35.4618 77.729,35.4511 77.7547,35.4217 77.7816,35.4033 77.8113,35.3975 77.8485,35.4169 77.8881,35.4533 77.9405,35.4659 77.9708,35.4594 77.9842,35.434 77.9698,35.399 77.9335,35.3158 77.9232,35.2848 77.9222,35.2414 77.9523,35.1769 77.9888,35.1163 78.0176,35.0768 78.0673,34.9381 78.0714,34.9067 78.0798,34.8822 78.0944,34.8629 78.1114,34.849 78.129,34.8251 78.1772,34.6831 78.1899,34.6312 78.2028,34.6102 78.2355,34.5732 78.2642,34.5554 78.2985,34.5451 78.3543,34.5353 78.3862,34.533 78.4808,34.5232 78.5033,34.521 78.5236,34.5164 78.5518,34.5076 78.6079,34.4828 78.849,34.3424 78.8828,34.3117 78.8997,34.2721 78.908,34.2511 78.9096,34.2196 78.899,34.1864 78.8764,34.1594 78.8481,34.1376 78.7959,34.1078 78.7518,34.0925 78.7137,34.0821 78.6937,34.0781 78.6723,34.0717 78.649,34.056 78.6336,34.0303 78.6306,34.0006 78.6446,33.9584 78.6612,33.9208 78.7048,33.7993 78.7098,33.7796 78.7148,33.7322 78.7154,33.7121 78.7126,33.666 78.7081,33.6202 78.7035,33.5787 78.7045,33.5116 78.7115,33.483 78.7321,33.4449 78.7521,33.4231 78.7967,33.3904 78.8341,33.3708 78.8436,33.3475 78.8921,33.2806 78.9983,33.2164 79.0463,33.1985 79.0812,33.1889 79.0856,33.1853 79.1205,33.1666 79.1483,33.1574 79.1718,33.1525 79.272,33.0626 79.2629,33.024 79.2535,32.9316 79.2706,32.9004 79.2951,32.8851 79.312,32.8734 79.3451,32.8474 79.4254,32.7199 79.427,32.6913 79.4123,32.6381 79.3992,32.6183 79.3871,32.6012 79.3733,32.5853 79.3497,32.5628 79.1992,32.4595 79.1503,32.4798 79.1278,32.4756 79.1059,32.4695 79.0696,32.4588 79.0369,32.4436 79.0201,32.4216 78.9753,32.3453 78.8686,32.3147 78.8202,32.3289 78.7004,32.4165 78.6834,32.4357 78.6723,32.4536 78.6627,32.5098 78.6729,32.562 78.6669,32.5892 78.6438,32.6027 78.6032,32.5929 78.5806,32.5627 78.5617,32.5491 78.5365,32.5413 78.4702,32.5302 78.4343,32.5355 78.3976,32.5462 78.304,32.5199 78.2952,32.4983 78.3046,32.4828 78.3147,32.474 78.3703,32.396 78.3848,32.2156 78.3742,32.2072 78.4359,32.1785 78.4595,32.1539 78.4773,32.1261 78.4956,32.089 78.5546,32.024 78.5851,31.9951 78.6294,31.9706 78.6686,31.9328 78.6592,31.9042 78.6503,31.8856 78.6429,31.8746 78.6339,31.8543 78.5908,31.7441 78.6135,31.691 78.6622,31.6396 78.74,31.5722 78.6699,31.5176 78.6197,31.4899 78.6103,31.4675 78.6661,31.274 78.7151,31.2531 78.7752,31.2568 78.916,31.3748 78.9415,31.3917 78.9782,31.402 79.0613,31.3602 79.1179,31.2909 79.1151,31.2659 79.1388,31.2067 79.2113,31.1 79.2369,31.086 79.2901,31.0662 79.3162,31.0174 79.4512,30.9224 79.5066,30.9041 79.529,30.9221 79.557,30.9391 79.6418,30.9547 79.7592,30.9312 79.7823,30.9153 79.7945,30.8845 79.8261,30.8536 79.8462,30.8505 79.857,30.8499 80.0847,30.7606 80.1499,30.6994 80.1198,30.5635 80.1028,30.5412 80.1285,30.5399 80.1854,30.5367 80.2122,30.5319 80.2984,30.4923 80.4168,30.4434 80.4808,30.4422 80.5073,30.438 80.6537,30.3518 80.669,30.3261 80.6862,30.3032 80.7039,30.2905 80.7971,30.252 80.843,30.2411 80.8886,30.2301 80.9251,30.1798 80.9202,30.1707 80.9202,30.1707 8,2.0,Spain -2.9428,35.2898 -2.9267,35.256 -2.9108,35.2343 -2.9351,35.225 -2.9612,35.2419 -2.9614,35.277 -2.9428,35.2898 -2.9428,35.2898 25,9.0,South Korea 128.5617,34.9042 128.5686,34.8943 128.5876,34.8411 128.5757,34.7461 128.5159,34.6845 128.4723,34.6695 128.446,34.6624 128.4218,34.6623 128.4343,34.7215 128.4374,34.7701 128.4292,34.7959 128.3857,34.7846 128.3711,34.775 128.357,34.7685 128.3301,34.7953 128.3241,34.8069 128.3223,34.8175 128.324,34.83 128.3281,34.8414 128.3381,34.8498 128.4747,34.9134 128.4971,34.9213 128.5445,34.9376 128.5617,34.9042 128.5617,34.9042 27,9.0,South Korea 127.7719,34.863 127.7426,34.8326 127.7441,34.8058 127.7509,34.7939 127.7978,34.7608 127.8245,34.7784 127.836,34.7821 127.8665,34.7789 127.8898,34.7744 127.9075,34.7645 127.8932,34.6617 127.8787,34.6561 127.8153,34.6586 127.7188,34.6725 127.6932,34.6831 127.6872,34.7002 127.6565,34.8042 127.6615,34.817 127.6713,34.8408 127.7023,34.8784 127.7161,34.8905 127.7329,34.8942 127.7525,34.8896 127.7629,34.8835 127.7692,34.8747 127.7719,34.863 127.7719,34.863 16,1.0,Tunisia 11.1147,34.6299 11.1028,34.636 11.108,34.6615 11.1161,34.6721 11.2236,34.7839 11.2553,34.7791 11.2734,34.7729 11.2876,34.7644 11.2679,34.704 11.2427,34.6933 11.2075,34.6816 11.1779,34.6722 11.163,34.665 11.1251,34.6384 11.1147,34.6299 11.1147,34.6299 19,9.0,Japan 129.3052,34.6468 129.3206,34.6364 129.3375,34.6189 129.3325,34.5892 129.3126,34.5095 129.3082,34.4958 129.2286,34.3103 129.2107,34.2715 129.2031,34.263 129.185,34.2584 129.1689,34.2566 129.0874,34.3014 129.0775,34.3183 129.1325,34.5185 129.1657,34.5928 129.273,34.6461 129.2924,34.6513 129.3052,34.6468 129.3052,34.6468 96,3.0,Lebanon 35.9263,34.6087 35.9843,34.5938 36.0407,34.5951 36.0663,34.6001 36.0752,34.6055 36.2518,34.6034 36.3294,34.6006 36.4122,34.5918 36.4055,34.556 36.3504,34.5159 36.3172,34.4995 36.3041,34.4623 36.383,34.4634 36.4072,34.4529 36.4784,34.3936 36.4993,34.3058 36.5463,34.1899 36.5764,34.1667 36.4697,34.0692 36.3504,33.9958 36.3031,33.9591 36.281,33.9372 36.2364,33.8732 36.2822,33.8404 36.3106,33.842 36.3415,33.8163 36.3267,33.7932 36.3061,33.7891 36.1939,33.8185 36.0244,33.7899 35.9705,33.7321 35.9243,33.6806 35.8937,33.6065 35.9206,33.6031 35.9787,33.5817 36.0121,33.5482 35.9877,33.516 35.8875,33.4294 35.8367,33.3924 35.8057,33.38 35.7799,33.3659 35.7682,33.3337 35.7478,33.3132 35.7403,33.31 35.723,33.3039 35.5803,33.2391 35.5776,33.2086 35.5394,33.233 35.4968,33.1594 35.4795,33.0899 35.4597,33.0782 35.4594,33.0612 35.3797,33.0315 35.332,33.0252 35.306,33.0256 35.276,33.0513 35.2194,33.0615 35.0641,33.0588 35.0553,33.0567 35.0961,33.0939 35.1428,33.1457 35.1591,33.1799 35.1638,33.2123 35.1748,33.2682 35.2175,33.3883 35.2277,33.417 35.2545,33.4346 35.2841,33.4583 35.3106,33.4892 35.3364,33.5502 35.3493,33.597 35.3709,33.6506 35.3957,33.7041 35.4211,33.7409 35.4328,33.7631 35.4375,33.7886 35.4377,33.8204 35.4365,33.8275 35.4295,33.8641 35.4774,33.8693 35.502,33.8637 35.5284,33.8741 35.5882,33.9747 35.6009,34.0678 35.5878,34.1034 35.5838,34.164 35.6001,34.1788 35.6026,34.2429 35.6232,34.2743 35.7726,34.3928 35.8541,34.4333 35.9369,34.489 35.9451,34.5185 35.9408,34.5732 35.9263,34.6087 35.9263,34.6087 32,9.0,Japan 134.5874,34.1462 134.5768,34.1477 134.5627,34.1553 134.4994,34.1995 134.4882,34.2284 134.4864,34.2443 134.4922,34.2588 134.4995,34.2684 134.6252,34.4001 134.7003,34.4731 134.8076,34.5476 134.8281,34.5555 134.8449,34.5523 134.8528,34.5374 134.8499,34.5216 134.8174,34.4718 134.7983,34.4489 134.7693,34.4195 134.7449,34.3945 134.7341,34.3796 134.7268,34.3595 134.7187,34.3282 134.7201,34.3179 134.7451,34.2759 134.7609,34.2604 134.7711,34.2504 134.7767,34.2381 134.7714,34.223 134.7598,34.215 134.6153,34.1551 134.5874,34.1462 134.5874,34.1462 22,9.0,South Korea 126.2174,34.453 126.2193,34.438 126.204,34.4032 126.1808,34.3646 126.0954,34.3322 126.0356,34.3151 126.0195,34.3129 126.0083,34.3134 125.9832,34.3167 125.949,34.3405 125.9425,34.349 125.9381,34.3581 125.9354,34.3714 125.9374,34.3835 126.0775,34.5331 126.0895,34.5343 126.1095,34.5273 126.1345,34.5171 126.1711,34.5013 126.2146,34.4583 126.2174,34.453 126.2174,34.453 10,9.0,Japan 134.1974,34.4737 134.1884,34.423 134.175,34.3932 134.0199,34.4328 134.0189,34.4713 134.1039,34.5037 134.1612,34.5104 134.1905,34.5121 134.1974,34.4737 134.1974,34.4737 133,9.0,Japan 133.4142,33.9863 133.447,34.0085 133.4704,34.0611 133.4733,34.113 133.5063,34.1825 133.5647,34.2129 133.7204,34.3217 133.8325,34.3101 133.9088,34.3003 133.9321,34.3298 133.9576,34.3479 133.9783,34.3454 134.0495,34.306 134.0864,34.2533 134.1624,34.2124 134.26,34.1694 134.2974,34.1627 134.3775,34.1759 134.4044,34.1859 134.458,34.1077 134.4452,34.0781 134.4348,34.0529 134.4171,33.9892 134.4307,33.9461 134.4676,33.9414 134.5196,33.895 134.57,33.7796 134.5237,33.7599 134.4634,33.7386 134.414,33.711 134.2085,33.5857 134.1654,33.5191 134.1309,33.49 134.1223,33.4822 134.0933,33.4431 134.0723,33.408 134.0417,33.336 134.0286,33.2963 134.0238,33.2663 134.0225,33.2349 134.0121,33.2049 133.9411,33.245 133.8683,33.3189 133.86,33.3516 133.7508,33.4366 133.7312,33.4449 133.7004,33.453 133.5741,33.4789 133.5435,33.4797 133.4838,33.4771 133.46,33.473 133.4308,33.466 133.4106,33.4563 133.2211,33.3515 133.1863,33.347 133.1085,33.3255 133.0762,33.2841 133.0799,33.2406 133.0924,33.2139 133.0801,33.1806 133.0686,33.1597 132.9722,33.0465 132.9372,33.0102 132.8844,32.9874 132.8628,32.9792 132.8446,32.9613 132.8352,32.9367 132.8233,32.8192 132.8346,32.7311 132.7915,32.7066 132.7622,32.732 132.729,32.7374 132.6831,32.7308 132.644,32.7039 132.4671,32.7151 132.4624,32.7386 132.4891,32.7971 132.5161,32.8223 132.5377,32.8432 132.5416,32.8701 132.4798,32.8717 132.4691,32.8706 132.4409,32.8632 132.3419,32.8518 132.3108,32.859 132.2922,32.9883 132.3202,33.1369 132.3432,33.164 132.3625,33.2076 132.3164,33.2427 132.289,33.2569 132.2419,33.2534 132.2055,33.2736 132.2214,33.3955 132.1949,33.4303 132.1333,33.4157 132.0022,33.3481 131.9782,33.3214 131.9558,33.3116 131.8471,33.3033 131.9387,33.3591 132.1132,33.4358 132.1364,33.442 132.2459,33.5017 132.3915,33.5978 132.4171,33.61 132.4459,33.6229 132.4675,33.6363 132.4995,33.6744 132.5235,33.718 132.5276,33.7674 132.5366,33.8373 132.6048,33.95 132.7247,34.068 132.773,34.0795 132.8075,34.065 132.8679,33.9825 132.8817,33.9582 132.8907,33.9242 132.9408,33.8841 132.9732,33.8746 132.9954,33.8764 133.0304,33.8848 133.0755,33.9043 133.1011,33.9244 133.1424,33.9462 133.1812,33.9462 133.2474,33.9416 133.2994,33.9291 133.3497,33.925 133.3753,33.9378 133.4142,33.9863 133.4142,33.9863 16,9.0,Japan 129.163,34.1913 129.1632,34.1706 129.1256,34.0861 129.1026,34.0653 129.0693,34.0441 129.0546,34.0357 129.0177,34.0622 129.0157,34.1261 129.02,34.1607 129.0378,34.2638 129.0431,34.2792 129.0533,34.2838 129.1149,34.2689 129.1802,34.2394 129.163,34.1913 129.163,34.1913 12,9.0,Japan 132.3262,34.217 132.3268,34.1955 132.324,34.1715 132.312,34.0918 132.2743,34.0766 132.2213,34.1803 132.2173,34.1897 132.2147,34.207 132.2318,34.2219 132.3102,34.2389 132.3262,34.217 132.3262,34.217 17,-8.0,United States -119.7124,34.0461 -119.5428,34.0072 -119.4383,34.0159 -119.4077,34.0276 -119.3975,34.0279 -119.3601,34.0064 -119.3778,33.9771 -119.4344,33.9592 -119.5578,33.9327 -119.6169,33.9292 -119.6325,33.9293 -119.6812,33.9361 -119.7151,33.9537 -119.7619,34.0273 -119.7583,34.0445 -119.7124,34.0461 -119.7124,34.0461 17,-8.0,United States -119.8442,33.9515 -119.8135,33.9545 -119.8103,33.9245 -119.8803,33.8811 -119.9515,33.8677 -119.9655,33.8701 -119.989,33.8786 -120.0081,33.8897 -120.0161,33.8967 -120.0359,33.9216 -120.07,33.9683 -120.0284,33.978 -119.9787,33.9883 -119.8957,33.9983 -119.8793,33.9859 -119.8442,33.9515 -119.8442,33.9515 20,9.0,Japan 132.2555,33.8587 132.1599,33.8113 132.0469,33.816 132.0252,33.8412 132.0195,33.8501 132.0131,33.8668 132.0215,33.8997 132.0416,33.9076 132.0746,33.9094 132.1142,33.9033 132.1258,33.8838 132.1562,33.8569 132.1815,33.865 132.196,33.8741 132.2482,33.9025 132.2765,33.8958 132.2796,33.8847 132.2685,33.8661 132.2555,33.8587 132.2555,33.8587 272,9.0,Japan 129.5773,32.5248 129.6376,32.5942 129.6888,32.6617 129.6887,32.6823 129.6067,32.7657 129.5673,32.7568 129.5169,32.8014 129.4693,32.9037 129.4671,32.9286 129.5191,33.0416 129.5565,33.0297 129.5789,33.0162 129.5987,33.0041 129.6529,32.9387 129.6513,32.8708 129.633,32.8984 129.6236,32.8762 129.6252,32.8484 129.6354,32.8218 129.6832,32.7857 129.7798,32.8093 129.8011,32.8264 129.7743,32.9581 129.7582,32.976 129.7139,33.0058 129.5748,33.0788 129.4683,33.149 129.4018,33.1723 129.3985,33.2049 129.4201,33.3268 129.6657,33.2551 129.6831,33.3052 129.7099,33.338 129.7019,33.358 129.6568,33.3727 129.6327,33.4121 129.7007,33.4897 129.7524,33.4993 129.795,33.4677 129.7836,33.4361 129.8138,33.4049 129.8346,33.4022 129.8589,33.4109 129.8673,33.42 129.8918,33.4516 129.9759,33.5538 130.0384,33.6133 130.0672,33.5807 130.1144,33.5384 130.1963,33.5466 130.2302,33.5665 130.2475,33.5909 130.2989,33.7128 130.2872,33.7358 130.2818,33.7619 130.3271,33.8085 130.3656,33.8394 130.533,33.8978 130.637,33.8817 130.675,33.8744 130.812,33.8433 130.7852,33.7766 130.8572,33.6615 130.8758,33.6367 130.9284,33.5751 131.0247,33.5694 131.0438,33.5579 131.1016,33.5329 131.1813,33.5249 131.2482,33.5291 131.2926,33.5578 131.3135,33.5918 131.3348,33.6234 131.3566,33.6312 131.4158,33.6427 131.4727,33.6261 131.4987,33.6099 131.5214,33.5865 131.5595,33.5372 131.5697,33.505 131.5586,33.4291 131.5299,33.3774 131.4125,33.3055 131.3877,33.3028 131.3607,33.3144 131.3326,33.3026 131.331,33.2782 131.3466,33.2274 131.3687,33.2169 131.4004,33.2098 131.4225,33.2074 131.5883,33.1971 131.6294,33.196 131.6554,33.1982 131.6763,33.2072 131.7252,33.2099 131.6981,33.1628 131.6655,33.1213 131.6454,33.0828 131.7341,32.9527 131.8136,32.8672 131.8178,32.7937 131.7259,32.7469 131.7031,32.6946 131.7021,32.6899 131.6745,32.6427 131.6467,32.6456 131.596,32.6111 131.5316,32.5278 131.514,32.4987 131.5186,32.4722 131.533,32.4241 131.4785,32.3577 131.4449,32.3037 131.4055,32.2054 131.372,32.0984 131.3032,31.934 131.2757,31.8535 131.2805,31.7972 131.3016,31.7865 131.3198,31.7541 131.2794,31.5827 131.2266,31.4542 131.1923,31.3768 131.1639,31.3343 131.0757,31.35 131.0709,31.3776 131.035,31.4245 130.9798,31.4306 130.962,31.4324 130.9014,31.4135 130.8693,31.3874 130.8567,31.3664 130.8351,31.3166 130.8599,31.309 130.8831,31.3078 130.9359,31.2876 130.9588,31.2325 130.8079,31.1123 130.765,31.0822 130.7291,31.0712 130.7063,31.0661 130.68,31.0555 130.5777,31.0097 130.5516,30.9871 130.5366,30.9716 130.4984,30.965 130.5088,31.039 130.562,31.0805 130.5931,31.1233 130.6261,31.2141 130.629,31.2795 130.6022,31.3641 130.5039,31.5078 130.4611,31.5146 130.436,31.529 130.4323,31.5507 130.481,31.5816 130.5111,31.5831 130.5488,31.5602 130.5525,31.5227 130.5813,31.5181 130.6051,31.5407 130.6247,31.5662 130.6373,31.6052 130.638,31.647 130.6042,31.6714 130.508,31.6897 130.4753,31.6787 130.4546,31.6596 130.4405,31.6411 130.3913,31.5585 130.365,31.4935 130.3508,31.445 130.346,31.4112 130.3552,31.3843 130.3914,31.2962 130.4052,31.2775 130.4378,31.2567 130.4686,31.2436 130.4937,31.2275 130.484,31.1805 130.4687,31.1473 130.4148,31.1202 130.3507,31.1287 130.344,31.1602 130.3167,31.1966 130.289,31.2008 130.1698,31.2094 130.0858,31.2101 130.0618,31.2126 130.0344,31.3041 130.0645,31.3609 130.1022,31.3845 130.1353,31.4185 130.149,31.458 130.1644,31.5156 130.1668,31.5905 130.0872,31.6808 130.0487,31.7032 130.0166,31.7193 130.0077,31.7412 130.0122,31.7849 130.0304,31.864 129.9933,31.9714 130.0082,32.0538 130.0367,32.0876 130.0885,32.0871 130.0993,32.0696 130.1178,32.0602 130.1525,32.0811 130.176,32.1252 130.2906,32.2871 130.345,32.3492 130.3791,32.3828 130.3948,32.3989 130.4289,32.4674 130.4394,32.5524 130.4179,32.5956 130.2806,32.5832 130.2928,32.6002 130.3952,32.6556 130.4327,32.6789 130.4371,32.7467 130.4152,32.7787 130.3854,32.8038 130.341,32.8382 130.2872,32.8745 130.2639,32.9235 130.2535,32.9531 130.2599,33.0075 130.2466,33.0504 130.1944,33.0996 130.042,33.1336 129.9689,33.0688 129.9958,33.0116 130.0074,32.9935 130.0491,32.9215 130.0149,32.8685 129.991,32.8591 129.9417,32.8369 129.9271,32.8173 129.9579,32.7992 129.9986,32.7929 130.0254,32.7984 130.0503,32.8113 130.0714,32.8244 130.1046,32.8308 130.1449,32.8254 130.1729,32.8003 130.2016,32.7558 130.2074,32.7329 130.2008,32.6924 130.1702,32.6227 130.046,32.5619 130.0078,32.551 129.9662,32.5974 129.9754,32.6374 130.0214,32.665 130.0327,32.6885 130.0049,32.7465 129.9192,32.7478 129.7971,32.703 129.7758,32.6897 129.7585,32.6559 129.742,32.6225 129.7287,32.6073 129.6532,32.5477 129.6257,32.5338 129.5838,32.5257 129.5773,32.5248 129.5773,32.5248 33,1.0,Tunisia 10.8509,33.6009 10.8472,33.6464 10.8425,33.659 10.8361,33.6674 10.8253,33.6788 10.8087,33.6922 10.7931,33.6963 10.7816,33.6962 10.7642,33.6902 10.7529,33.678 10.7463,33.6684 10.7265,33.6687 10.7165,33.6737 10.7052,33.693 10.7003,33.706 10.7007,33.7226 10.7135,33.8452 10.7213,33.8525 10.7512,33.8577 10.7823,33.8584 10.8983,33.8401 10.9543,33.8197 11.029,33.779 11.0384,33.7699 11.0407,33.7559 11.0351,33.7475 10.9934,33.7174 10.9793,33.7122 10.9237,33.6857 10.8686,33.6353 10.8583,33.6165 10.8509,33.6009 10.8509,33.6009 12,9.0,Japan 129.5523,33.66 129.5452,33.6621 129.4948,33.698 129.4907,33.7114 129.514,33.7846 129.5194,33.7961 129.5312,33.8182 129.6039,33.8054 129.6256,33.7249 129.5863,33.6893 129.5523,33.66 129.5523,33.66 41,9.0,South Korea 126.6751,33.4988 126.7298,33.4869 126.7761,33.4166 126.7718,33.3873 126.7525,33.3528 126.7435,33.3418 126.6807,33.2727 126.6002,33.2457 126.5607,33.233 126.4576,33.203 126.4349,33.1963 126.4226,33.1944 126.3442,33.1865 126.3149,33.185 126.2815,33.1922 126.2568,33.1982 126.1716,33.1892 126.148,33.1805 126.1353,33.1701 126.1242,33.1574 126.1015,33.1551 126.063,33.1792 126.0432,33.1925 126.0223,33.2105 126.0066,33.2255 125.9941,33.2416 125.9914,33.2521 125.9946,33.2777 126.0125,33.3068 126.0196,33.3157 126.1065,33.3853 126.1509,33.4142 126.2112,33.4366 126.4692,33.4942 126.5315,33.5025 126.6285,33.5134 126.6524,33.5137 126.6627,33.5104 126.6712,33.5032 126.6751,33.4988 126.6751,33.4988 14,-8.0,United States -118.3625,33.4403 -118.2913,33.4056 -118.2492,33.3909 -118.1957,33.3611 -118.1434,33.3087 -118.1392,33.2913 -118.1499,33.2728 -118.2955,33.2913 -118.4355,33.4465 -118.4269,33.4533 -118.3874,33.452 -118.3746,33.4487 -118.3625,33.4403 -118.3625,33.4403 19,9.0,Japan 129.3698,33.2703 129.3706,33.255 129.3342,33.1947 129.3244,33.1791 129.3162,33.1715 129.303,33.1616 129.2884,33.1528 129.2731,33.1455 129.2417,33.1317 129.2273,33.1283 129.2172,33.1278 129.1931,33.1328 129.2862,33.2943 129.3709,33.3497 129.3934,33.3512 129.4003,33.3433 129.3973,33.3029 129.3698,33.2703 129.3698,33.2703 119,3.0,Jordan 35.6028,32.6488 35.6438,32.6755 35.7169,32.7125 35.747,32.7075 35.8846,32.6839 35.9566,32.6269 35.979,32.5772 36.033,32.5069 36.0788,32.4916 36.1188,32.4819 36.1504,32.4969 36.2673,32.4233 36.2996,32.3969 36.3531,32.3457 36.4413,32.3395 36.4688,32.3271 36.5954,32.313 36.6766,32.3006 36.79,32.2777 36.8186,32.3055 37.1049,32.4641 37.4453,32.6506 37.45,32.6531 37.576,32.7218 37.9096,32.9008 38.2691,33.0918 38.4837,33.204 38.6474,33.2902 38.7443,33.3405 39.0353,32.4653 38.9353,32.4414 38.9928,32.2681 39.2092,32.3196 39.2501,32.2005 39.146,32.1189 39.0214,32.022 38.9543,31.9698 38.4383,31.8435 37.9374,31.7187 37.9148,31.713 37.6606,31.6492 37.4233,31.5896 37.1541,31.5211 36.9573,31.4705 37.2465,31.1823 37.4413,30.9886 37.5125,30.9164 37.9521,30.4703 37.6187,30.3027 37.4542,29.9687 37.3616,29.9522 36.9864,29.8848 36.6962,29.8315 36.4533,29.4697 36.2257,29.3039 36.0233,29.1564 35.4954,29.24 35.1419,29.2941 34.9163,29.3281 34.9154,29.3447 34.9216,29.4161 34.9334,29.4447 34.9583,29.4952 34.9346,29.5128 34.9325,29.537 34.9295,29.544 34.9618,29.6076 35.0305,29.8346 35.0276,29.8583 35.0269,29.8873 35.0278,29.9203 35.0581,30.0155 35.0734,30.0364 35.0984,30.0605 35.1145,30.0823 35.1215,30.1181 35.116,30.2856 35.1106,30.3813 35.1131,30.4103 35.1606,30.5607 35.1741,30.5876 35.2097,30.6477 35.2468,30.7248 35.2541,30.7566 35.2921,30.8525 35.312,30.8865 35.3222,30.8942 35.3494,30.9123 35.409,31.065 35.4161,31.0864 35.4135,31.1223 35.3869,31.1655 35.3656,31.1906 35.4064,31.3165 35.4249,31.3652 35.4271,31.3753 35.4324,31.4139 35.4321,31.4621 35.433,31.4943 35.4366,31.5269 35.4438,31.5687 35.4519,31.6062 35.4801,31.6763 35.4925,31.6997 35.5091,31.7286 35.5029,31.7928 35.4893,31.8939 35.4775,31.9624 35.4704,32.0055 35.5124,32.1672 35.5244,32.1816 35.5143,32.3418 35.5066,32.3582 35.501,32.369 35.5256,32.6094 35.5695,32.6432 35.5859,32.6509 35.6028,32.6488 35.6028,32.6488 182,3.0,Israel 35.0553,33.0567 35.0641,33.0588 35.2194,33.0615 35.276,33.0513 35.306,33.0256 35.332,33.0252 35.3797,33.0315 35.4594,33.0612 35.4597,33.0782 35.4795,33.0899 35.4968,33.1594 35.5394,33.233 35.5776,33.2086 35.5862,33.2091 35.6132,33.2171 35.6235,33.2147 35.6347,33.2073 35.6227,33.175 35.6207,33.1681 35.6063,33.088 35.6038,33.0544 35.5961,33.0136 35.5886,32.963 35.5875,32.8988 35.5784,32.8689 35.5681,32.8581 35.5724,32.8545 35.5955,32.82 35.5928,32.7785 35.6167,32.7606 35.6193,32.7255 35.6055,32.6911 35.6005,32.6664 35.6028,32.6488 35.5859,32.6509 35.5695,32.6432 35.5256,32.6094 35.501,32.369 35.5066,32.3582 35.4349,32.3767 35.3781,32.4496 35.3624,32.4679 35.3046,32.487 35.2717,32.4805 35.2434,32.4799 35.2179,32.4854 35.1622,32.5102 35.134,32.491 35.0362,32.4351 35.0209,32.4111 35.011,32.3889 35.0018,32.3582 35.0004,32.3472 35.0025,32.3315 34.9803,32.2032 34.9339,32.1173 34.9403,32.0968 34.9605,32.0185 34.9619,31.9921 34.9555,31.9497 34.942,31.9332 34.9209,31.8259 34.9204,31.7952 34.9296,31.7877 34.9688,31.7848 34.9904,31.7865 35.0629,31.7974 35.1074,31.7775 35.1639,31.7146 35.1174,31.7093 35.052,31.673 34.9561,31.6115 34.9403,31.5982 34.916,31.5681 34.9049,31.5516 34.9006,31.5241 34.9009,31.467 34.8919,31.4466 34.8653,31.4086 34.8431,31.3773 34.8445,31.3454 34.8629,31.3257 34.8924,31.3158 35.0929,31.3268 35.1747,31.3417 35.1947,31.3491 35.2135,31.3684 35.3329,31.4492 35.3548,31.4585 35.405,31.4641 35.4321,31.4621 35.4324,31.4139 35.4271,31.3753 35.4249,31.3652 35.4064,31.3165 35.3656,31.1906 35.3869,31.1655 35.4135,31.1223 35.4161,31.0864 35.409,31.065 35.3494,30.9123 35.3222,30.8942 35.312,30.8865 35.2921,30.8525 35.2541,30.7566 35.2468,30.7248 35.2097,30.6477 35.1741,30.5876 35.1606,30.5607 35.1131,30.4103 35.1106,30.3813 35.116,30.2856 35.1215,30.1181 35.1145,30.0823 35.0984,30.0605 35.0734,30.0364 35.0581,30.0155 35.0278,29.9203 35.0269,29.8873 35.0276,29.8583 35.0305,29.8346 34.9618,29.6076 34.9295,29.544 34.9325,29.537 34.9346,29.5128 34.9208,29.5163 34.893,29.4905 34.8589,29.4538 34.8329,29.4996 34.8212,29.5737 34.8288,29.5976 34.8279,29.6176 34.8029,29.7075 34.7087,29.9575 34.6785,30.0559 34.5695,30.331 34.5007,30.3731 34.4985,30.4009 34.5141,30.4521 34.4449,30.6568 34.3569,30.8251 34.2429,31.128 34.2233,31.1817 34.2896,31.2249 34.3268,31.2651 34.3201,31.3191 34.3442,31.3596 34.434,31.436 34.4685,31.4633 34.4952,31.4797 34.5142,31.5046 34.4459,31.5609 34.4506,31.5682 34.4662,31.5912 34.509,31.6486 34.5411,31.6917 34.6251,31.8393 34.6634,31.9118 34.6856,31.9677 34.6877,31.9786 34.7337,32.0897 34.7525,32.1423 34.7578,32.1566 34.7891,32.2547 34.8231,32.3713 34.8271,32.3836 34.8504,32.4739 34.894,32.6767 34.9001,32.7303 34.908,32.7869 34.9438,32.798 34.9696,32.7788 34.9889,32.7864 35.0162,32.8124 35.0276,32.836 35.032,32.856 35.0264,32.9177 35.0334,32.9502 35.0427,32.9812 35.0568,33.039 35.0553,33.0567 35.0553,33.0567 534,2.0,Libya 11.5111,33.134 11.592,33.0801 11.6229,33.0648 11.7258,33.0485 11.7774,33.0461 11.8623,33.028 11.8926,33.0135 11.9766,32.9672 12.0099,32.9468 12.062,32.9148 12.158,32.8637 12.2603,32.8113 12.2854,32.8012 12.3278,32.7919 12.3503,32.789 12.5011,32.7706 12.5433,32.7641 12.7247,32.7582 12.7554,32.7601 12.7972,32.763 12.8372,32.769 12.8924,32.7792 12.9839,32.806 12.9988,32.8118 13.0749,32.8351 13.1053,32.8468 13.1236,32.862 13.143,32.8727 13.1892,32.8806 13.2339,32.8823 13.3176,32.8679 13.3454,32.8594 13.45,32.8115 13.5022,32.7856 13.5264,32.7713 13.5614,32.7589 13.5952,32.7523 13.6253,32.7513 13.7051,32.7548 13.7304,32.7601 13.7579,32.7629 13.8747,32.7419 13.8947,32.7367 13.912,32.7295 13.9343,32.7177 13.9751,32.7003 14.0,32.6928 14.0209,32.6893 14.0612,32.6873 14.1319,32.6811 14.1527,32.6775 14.182,32.6674 14.2989,32.5962 14.3962,32.5206 14.4198,32.4966 14.4298,32.4893 14.4679,32.4742 14.5269,32.4668 14.6055,32.4547 14.6351,32.4447 14.706,32.413 14.7713,32.4097 14.9158,32.401 15.1089,32.3735 15.1462,32.3623 15.1696,32.3509 15.2549,32.2831 15.3496,32.1186 15.3401,32.0023 15.335,31.9862 15.3321,31.9603 15.3402,31.9244 15.3586,31.8671 15.3786,31.8212 15.468,31.6245 15.5999,31.4548 15.6686,31.3955 15.7339,31.3545 15.8435,31.3038 15.8757,31.2898 15.9563,31.2563 16.0601,31.227 16.0951,31.2208 16.1618,31.2064 16.2039,31.199 16.2339,31.1958 16.4788,31.1839 16.5023,31.1828 16.5433,31.1864 16.5767,31.1905 16.6344,31.1923 16.6843,31.1933 16.7107,31.1896 16.7379,31.1843 16.9075,31.1487 16.9707,31.1312 17.0002,31.1209 17.0369,31.1063 17.0912,31.0919 17.111,31.0873 17.2475,31.0599 17.3446,31.0476 17.3801,31.0321 17.402,31.0163 17.4209,31.0014 17.4471,30.9888 17.4773,30.9819 17.5484,30.9704 17.5814,30.9623 17.7851,30.8886 17.8709,30.8327 17.9002,30.8171 18.0337,30.7805 18.1556,30.7477 18.1971,30.7247 18.2238,30.6945 18.2754,30.64 18.335,30.5932 18.3618,30.5749 18.5734,30.43 18.6889,30.363 18.7645,30.3328 18.7774,30.3197 18.8808,30.2652 18.9018,30.2549 18.9329,30.2427 18.9768,30.2331 19.0007,30.2312 19.1381,30.2299 19.1933,30.2333 19.2911,30.2524 19.3199,30.2605 19.5924,30.3831 19.7204,30.4699 19.7393,30.4847 19.8455,30.5975 20.0016,30.7754 20.0318,30.8162 20.0827,30.9086 20.0964,30.9364 20.1089,30.9733 20.123,31.0205 20.1273,31.0422 20.1293,31.1153 20.1221,31.1522 20.1173,31.1754 20.0795,31.2624 20.0661,31.2846 20.0453,31.3077 20.0232,31.3188 20.0046,31.3428 19.9938,31.3664 19.9569,31.4473 19.9397,31.4883 19.9273,31.5329 19.8986,31.6695 19.8949,31.6917 19.8939,31.7126 19.8982,31.7879 19.9163,31.9222 19.9232,31.9415 19.9831,32.0434 20.0335,32.1195 20.0586,32.1487 20.3109,32.3731 20.5268,32.517 20.5409,32.5244 20.6773,32.5751 20.8439,32.6482 20.862,32.661 20.8816,32.6717 20.9143,32.6882 20.9423,32.7011 21.0426,32.7379 21.0961,32.7407 21.152,32.7362 21.2054,32.7345 21.2576,32.7335 21.2992,32.7366 21.345,32.7418 21.3614,32.7469 21.4002,32.7599 21.4439,32.7798 21.4695,32.7953 21.486,32.8128 21.5069,32.8334 21.5996,32.898 21.6859,32.9075 21.7116,32.8941 21.7553,32.88 21.8263,32.8658 21.8558,32.8655 21.9192,32.8681 21.9523,32.8717 21.9754,32.8777 22.0396,32.8741 22.1682,32.8479 22.2888,32.8444 22.3194,32.8415 22.346,32.8313 22.395,32.7992 22.4843,32.7489 22.5071,32.7458 22.5431,32.7472 22.7756,32.689 22.8079,32.6731 22.8394,32.6568 22.8746,32.6437 22.9043,32.6353 22.9312,32.6327 22.9652,32.637 23.0894,32.5834 23.0735,32.5478 23.0551,32.2959 23.1009,32.2744 23.1389,32.2651 23.1824,32.2345 23.2172,32.1802 23.2498,32.1711 23.4199,32.1507 23.4602,32.1463 23.5338,32.1456 23.6079,32.1472 23.6893,32.1392 23.7693,32.1192 23.9212,32.0769 23.9586,32.0564 23.9385,32.0333 23.9594,32.0129 24.0327,31.976 24.0565,31.9671 24.0861,31.9644 24.5114,31.9495 24.5363,31.9533 24.5803,31.9641 24.6216,31.9879 24.7027,31.9897 24.7504,31.9689 24.81,31.9566 24.8812,31.9441 24.9502,31.9307 24.9761,31.9134 25.0005,31.8912 24.9967,31.8597 24.9908,31.8195 25.0362,31.7549 25.057,31.7311 25.088,31.6934 25.1181,31.6342 25.119,31.6115 25.0971,31.599 25.0678,31.5761 25.0406,31.5504 25.0284,31.5324 25.015,31.4873 24.9767,31.4458 24.9306,31.4102 24.8614,31.3678 24.8359,31.336 24.837,31.1244 24.872,31.0 24.8795,30.9805 24.9447,30.8377 24.963,30.8044 24.985,30.755 24.9448,30.6007 24.8938,30.4733 24.844,30.3937 24.8224,30.3654 24.7866,30.3298 24.7399,30.27 24.6912,30.1922 24.6781,30.1551 24.675,30.1253 24.6794,30.1046 24.694,30.0862 24.737,30.0006 24.7781,29.9124 24.789,29.8828 24.8008,29.8484 24.8038,29.8255 24.7996,29.8039 24.7928,29.7838 24.8528,29.5527 24.8462,29.4757 24.865,29.4294 24.8794,29.4001 24.9657,29.2164 24.9673,28.9247 24.9699,28.2462 24.9703,28.0937 24.9698,27.9689 24.9701,27.8679 24.9699,27.7294 24.9691,27.6356 24.9697,27.5771 24.9689,27.3969 24.9678,27.0504 24.9683,26.9692 24.9686,26.9118 24.9682,26.6899 24.968,26.5377 24.9674,26.4543 24.9663,25.942 24.9659,25.4142 24.9655,24.9667 24.966,24.7592 24.9666,24.3161 24.9684,23.9969 24.9692,23.554 24.9705,22.2619 24.9714,22.0221 24.9707,21.9751 24.9706,20.987 24.9707,19.9767 24.9522,19.9771 24.7336,19.9781 24.6047,19.9777 24.5474,19.977 24.4263,19.9748 24.125,19.9781 24.0142,19.9798 23.9769,19.9767 23.9714,19.8843 23.9721,19.4924 23.9737,19.4772 23.4283,19.7674 22.9928,19.9955 22.2942,20.3571 21.7551,20.6331 21.3559,20.8355 20.9339,21.0491 20.3836,21.3236 19.8495,21.5876 19.2745,21.8695 18.9766,22.0136 18.7454,22.1256 18.3411,22.3197 18.0144,22.475 17.6654,22.6411 17.6346,22.6556 16.9592,22.9728 16.3258,23.2663 15.9812,23.4245 15.3162,23.1276 15.1142,23.0367 14.9793,22.9751 14.939,22.9551 14.8466,22.9089 14.7999,22.8854 14.477,22.7219 14.4005,22.6829 14.3391,22.6505 14.2174,22.5888 13.892,22.858 13.5959,23.1018 13.5786,23.1135 13.5473,23.1331 13.527,23.1429 13.4512,23.1716 13.3976,23.1895 13.3736,23.1938 13.3295,23.2033 13.0932,23.2552 12.8718,23.304 12.5758,23.3677 12.4576,23.3931 12.3834,23.4081 12.3241,23.4206 12.2649,23.4332 11.9986,23.4897 11.9715,23.496 11.9043,23.6213 11.7425,23.9151 11.7113,23.9734 11.5446,24.2752 11.4552,24.3004 11.4253,24.3098 11.3357,24.3352 11.2611,24.3559 11.0971,24.4025 10.999,24.4306 10.9561,24.4451 10.819,24.4931 10.7435,24.5232 10.7018,24.5399 10.6546,24.5228 10.5633,24.4881 10.4668,24.4506 10.4017,24.4561 10.2903,24.5393 10.2393,24.5784 10.2274,24.6324 10.2164,24.6816 10.2054,24.7233 10.1614,24.7472 10.1222,24.7679 10.042,24.8103 10.0382,24.8401 10.0372,24.9086 10.0352,24.9774 10.0328,25.0594 10.0265,25.2512 10.0196,25.3013 9.993,25.3374 9.8435,25.5325 9.7791,25.616 9.4674,26.0199 9.4233,26.0755 9.3864,26.1243 9.3815,26.1474 9.3861,26.1707 9.4304,26.2411 9.4872,26.3282 9.6568,26.4004 9.7505,26.4392 9.8592,26.4844 9.8865,26.5804 9.9042,26.6435 9.8832,26.6657 9.9003,26.7477 9.9071,26.775 9.918,26.8296 9.8959,26.8448 9.8356,26.8786 9.8168,26.9753 9.8057,27.0262 9.7903,27.0677 9.731,27.2244 9.7221,27.2857 9.7637,27.4087 9.8066,27.5071 9.8611,27.5779 9.8778,27.6177 9.9355,27.7933 9.943,27.8153 9.9414,27.8377 9.8888,27.962 9.8297,28.1005 9.818,28.1282 9.7797,28.2179 9.7778,28.2392 9.7858,28.2941 9.7998,28.3759 9.8254,28.54 9.8343,28.5985 9.8467,28.6768 9.855,28.736 9.8592,28.774 9.8604,28.8172 9.8567,28.9176 9.8525,28.9605 9.8436,29.0335 9.8395,29.0574 9.8345,29.0861 9.8271,29.1274 9.8172,29.1659 9.7529,29.3979 9.7448,29.4211 9.7127,29.4883 9.6685,29.5785 9.6485,29.6162 9.6256,29.6579 9.5666,29.7558 9.5543,29.7738 9.5391,29.7943 9.4369,29.9323 9.4017,29.9704 9.3902,29.988 9.3736,30.009 9.3505,30.0299 9.3337,30.0432 9.3067,30.0672 9.2994,30.0934 9.3707,30.1288 9.4992,30.1889 9.5248,30.2006 9.6251,30.2444 9.7227,30.2821 9.8282,30.3066 9.8512,30.3056 9.8794,30.3224 9.9692,30.4272 10.0708,30.554 10.1988,30.694 10.21,30.7161 10.2641,30.8353 10.2774,30.8759 10.2514,31.0421 10.2075,31.1632 10.1569,31.2804 10.1102,31.3873 10.1233,31.467 10.274,31.6588 10.3017,31.684 10.336,31.6948 10.3743,31.6941 10.4029,31.6904 10.4307,31.6853 10.4558,31.6857 10.4849,31.7016 10.5174,31.7258 10.6025,31.8255 10.6966,31.9287 10.8001,31.9891 10.8166,32.0056 10.8456,32.0565 10.8644,32.0966 11.0149,32.1638 11.1296,32.2102 11.1674,32.2258 11.3114,32.2833 11.4,32.317 11.4683,32.3539 11.5011,32.3733 11.536,32.3922 11.5525,32.4059 11.5667,32.4346 11.5649,32.4666 11.5433,32.5096 11.522,32.531 11.502,32.545 11.4796,32.5626 11.4578,32.586 11.4519,32.6147 11.4622,32.827 11.4689,32.9061 11.4793,33.0066 11.4898,33.0378 11.5019,33.0656 11.5071,33.0889 11.51,33.1098 11.5111,33.134 11.5111,33.134 21,9.0,Japan 128.9558,33.0314 128.9427,33.0125 128.9393,33.0027 128.9293,32.9487 128.9362,32.9407 128.9581,32.9431 128.9691,32.9466 128.9814,32.9533 129.0093,32.9605 129.0154,32.9493 129.0115,32.9358 129.0057,32.9247 128.9001,32.7861 128.8879,32.7819 128.8378,32.8981 128.8738,32.9245 128.933,33.0659 128.9476,33.1056 128.9602,33.0468 128.9558,33.0314 128.9558,33.0314 19,-8.0,United States -118.3762,32.9566 -118.3719,32.9466 -118.3662,32.9383 -118.3507,32.9229 -118.3282,32.9012 -118.2591,32.849 -118.2151,32.8181 -118.2152,32.7961 -118.2546,32.7804 -118.3234,32.816 -118.3329,32.822 -118.3395,32.8301 -118.3795,32.8904 -118.4164,32.9474 -118.4406,32.9961 -118.4396,33.0077 -118.4001,33.0062 -118.3762,32.9566 -118.3762,32.9566 29,2.0,Portugal -16.9212,32.601 -16.9659,32.619 -17.0454,32.6406 -17.0799,32.6467 -17.1357,32.6728 -17.1735,32.6923 -17.184,32.7011 -17.2103,32.7336 -17.2164,32.7419 -17.2318,32.7762 -17.1681,32.8318 -17.1471,32.8335 -17.1365,32.8285 -17.1294,32.821 -17.1109,32.8022 -17.103,32.7952 -17.0802,32.7865 -17.0305,32.7727 -17.0077,32.774 -16.991,32.7768 -16.9377,32.7943 -16.8912,32.8024 -16.88,32.8012 -16.6937,32.7223 -16.6988,32.7089 -16.7976,32.6095 -16.8169,32.602 -16.9212,32.601 -16.9212,32.601 18,9.0,Japan 128.4854,32.6603 128.4803,32.6756 128.4804,32.7192 128.4819,32.7378 128.4936,32.7453 128.6195,32.7549 128.6461,32.7559 128.6769,32.7152 128.7187,32.6497 128.7334,32.6105 128.5748,32.5528 128.5028,32.5635 128.4712,32.5687 128.4433,32.5751 128.4339,32.582 128.4524,32.6252 128.4854,32.6603 128.4854,32.6603 1594,-6.0,Mexico -108.9834,28.1809 -108.895,27.9946 -108.8802,27.9768 -108.8765,27.9749 -108.8724,27.9626 -108.8625,27.9541 -108.8465,27.9355 -108.841,27.9308 -108.8277,27.9194 -108.7842,27.8986 -108.7696,27.8946 -108.76,27.8593 -108.7417,27.7923 -108.721,27.7737 -108.6012,27.6655 -108.5893,27.6547 -108.6189,27.605 -108.5743,27.5451 -108.5497,27.5304 -108.5279,27.5229 -108.5237,27.5167 -108.5169,27.5112 -108.5273,27.443 -108.4723,27.3066 -108.4715,27.2982 -108.4755,27.285 -108.4903,27.2633 -108.5008,27.2582 -108.5284,27.1999 -108.4795,27.1096 -108.4761,27.1022 -108.4391,27.0344 -108.4287,27.0244 -108.4116,26.9992 -108.3955,26.9831 -108.3821,26.9827 -108.3676,26.9844 -108.3576,26.9856 -108.3427,26.9874 -108.3376,26.9835 -108.2979,26.945 -108.2153,27.0305 -108.1964,27.008 -108.1775,27.0002 -108.15,26.9972 -108.1426,26.9977 -108.1421,26.9978 -108.1302,26.9958 -108.1235,26.9926 -108.117,26.9878 -108.1141,26.9833 -108.103,26.955 -108.0931,26.9425 -108.0586,26.9143 -108.0348,26.902 -108.0256,26.9 -108.0204,26.8988 -107.9285,26.8985 -107.9158,26.8985 -107.9014,26.8969 -107.8953,26.8946 -107.8868,26.8875 -107.8808,26.8738 -107.8813,26.8665 -107.8895,26.7454 -107.8826,26.7017 -107.781,26.2836 -107.6902,26.1622 -107.6863,26.1566 -107.6834,26.1524 -107.6801,26.1475 -107.6726,26.1433 -107.6283,26.1382 -107.5086,26.1336 -107.4976,26.1326 -107.4714,26.1327 -107.4576,26.1306 -107.4403,26.1313 -107.3236,26.126 -107.3211,26.1258 -107.2855,26.1167 -107.2767,26.1107 -107.2476,26.0809 -107.2399,26.0662 -107.2275,26.018 -107.2188,25.987 -107.2157,25.9763 -107.212,25.9645 -107.2013,25.9534 -107.1924,25.9488 -107.1706,25.9481 -107.1682,25.9458 -107.154,25.8994 -107.145,25.8823 -107.139,25.8743 -107.1283,25.866 -107.1067,25.8556 -107.0726,25.8574 -107.0637,25.8574 -107.0513,25.8406 -107.0453,25.8292 -107.0118,25.7894 -107.0062,25.7794 -106.8744,25.6954 -106.867,25.6913 -106.8635,25.6869 -106.8544,25.6819 -106.8438,25.6686 -106.8352,25.6533 -106.8192,25.6326 -106.8162,25.6266 -106.8599,25.5267 -106.865,25.5209 -106.9341,25.4698 -106.9681,25.306 -106.9733,25.2941 -106.977,25.2826 -106.9786,25.2675 -106.9865,25.2367 -106.9967,25.1864 -106.9951,25.1666 -106.9956,25.1396 -106.9879,25.0942 -106.9727,25.0578 -106.954,25.019 -106.948,24.9997 -106.9321,24.9696 -106.9266,24.9606 -106.9261,24.9599 -106.8966,24.9233 -106.8661,24.8902 -106.8591,24.8782 -106.8367,24.8494 -106.8338,24.8395 -106.8334,24.8332 -106.8301,24.7869 -106.8273,24.7812 -106.823,24.7792 -106.7833,24.7779 -106.7752,24.7784 -106.7565,24.7774 -106.7507,24.7691 -106.747,24.7676 -106.7368,24.7563 -106.7239,24.7464 -106.704,24.736 -106.6742,24.7187 -106.6596,24.7121 -106.6397,24.6832 -106.6322,24.6674 -106.5983,24.6381 -106.575,24.6125 -106.556,24.5967 -106.5479,24.5822 -106.5403,24.5616 -106.5249,24.5308 -106.4719,24.4692 -106.4665,24.4646 -106.4432,24.4363 -106.443,24.4218 -106.4446,24.3747 -106.441,24.3621 -106.3682,24.2765 -106.3398,24.2575 -106.324,24.2555 -106.309,24.2558 -106.2446,24.2744 -106.2321,24.2812 -106.2218,24.2837 -106.2169,24.287 -106.1943,24.3327 -106.1729,24.3526 -106.1484,24.3639 -106.1339,24.3682 -106.1154,24.3659 -106.1071,24.3647 -106.0698,24.3536 -106.0666,24.3526 -106.0542,24.3474 -106.0009,24.325 -105.9575,24.2919 -105.9494,24.2858 -105.9372,24.2667 -105.9288,24.2503 -105.9186,24.236 -105.8989,24.2007 -105.8927,24.191 -105.881,24.1669 -105.8588,24.1325 -105.8353,24.0789 -105.8338,24.0715 -105.8278,24.0667 -105.7612,24.0175 -105.7108,24.0214 -105.7872,23.8844 -105.7714,23.7149 -105.7483,23.6878 -105.748,23.6848 -105.7466,23.6719 -105.7432,23.6576 -105.7343,23.6203 -105.7118,23.5854 -105.7036,23.58 -105.6824,23.57 -105.6832,23.5673 -105.6796,23.5628 -105.6586,23.5507 -105.6532,23.5495 -105.6516,23.5474 -105.6393,23.5317 -105.633,23.5166 -105.6243,23.5039 -105.6246,23.4826 -105.6198,23.474 -105.5931,23.4483 -105.5939,23.4442 -105.5989,23.4308 -105.6043,23.4222 -105.5976,23.4157 -105.5949,23.4084 -105.5869,23.3997 -105.568,23.3899 -105.5682,23.3865 -105.5892,23.3596 -105.588,23.3572 -105.5914,23.3536 -105.5945,23.3527 -105.5937,23.3505 -105.5922,23.349 -105.5799,23.3371 -105.5783,23.3275 -105.5718,23.3243 -105.5663,23.3169 -105.5595,23.3165 -105.5654,23.3093 -105.5645,23.3062 -105.565,23.3012 -105.5598,23.2933 -105.5586,23.2916 -105.5581,23.2816 -105.5542,23.2788 -105.5554,23.2714 -105.5518,23.2614 -105.5411,23.2621 -105.5398,23.2599 -105.5247,23.2621 -105.516,23.2564 -105.5084,23.2508 -105.5105,23.2317 -105.5066,23.2293 -105.5053,23.214 -105.5018,23.2137 -105.4989,23.2118 -105.4979,23.2021 -105.4948,23.1891 -105.4831,23.1688 -105.4672,23.1471 -105.4508,23.1174 -105.4416,23.1037 -105.2763,23.0991 -105.2662,23.0143 -105.09,23.012 -104.9874,22.9738 -104.8396,22.9076 -104.763,22.7101 -104.8823,22.6356 -104.8795,22.5854 -104.8759,22.52 -104.828,22.5036 -104.817,22.4999 -104.6546,22.5936 -104.4823,22.5574 -104.4379,22.3991 -104.347,22.3731 -104.1867,22.4236 -104.1837,22.422 -104.184,22.418 -104.1703,22.2191 -104.2326,22.0312 -104.2077,21.9733 -104.1929,21.9387 -104.1538,21.8766 -104.1298,21.8513 -104.1208,21.8422 -104.0991,21.828 -104.0723,21.8145 -104.0631,21.8112 -104.0194,21.7956 -104.0263,21.6284 -104.0238,21.6016 -104.0228,21.5912 -104.0153,21.5699 -104.0183,21.5641 -104.0684,21.5014 -103.822,21.3403 -103.8465,21.2378 -103.86,21.224 -103.875,21.1974 -103.8814,21.1945 -103.8853,21.1784 -103.8916,21.18 -103.896,21.1783 -103.8984,21.1753 -103.894,21.1655 -103.8977,21.1667 -103.9065,21.1725 -103.9102,21.1727 -103.9113,21.1713 -103.9161,21.1729 -103.9197,21.1724 -103.9243,21.1664 -103.9257,21.1678 -103.9332,21.1682 -103.9353,21.1667 -103.9353,21.1626 -103.9354,21.1594 -103.9447,21.1613 -103.9453,21.1638 -103.9491,21.1736 -103.9511,21.1732 -103.9544,21.1662 -103.9607,21.169 -103.9696,21.1654 -103.9755,21.1582 -103.9866,21.1632 -103.9969,21.1594 -104.0029,21.1607 -104.0101,21.1596 -104.0178,21.1548 -104.0241,21.1536 -104.0275,21.1564 -104.0526,21.1585 -104.0562,21.1626 -104.0575,21.1628 -104.0614,21.1635 -104.0723,21.1582 -104.0787,21.1508 -104.0829,21.1482 -104.088,21.1474 -104.0957,21.144 -104.0978,21.1408 -104.1006,21.1212 -104.1002,21.1157 -104.0966,21.1026 -104.0791,21.0845 -104.0851,21.0668 -104.0816,21.0611 -104.0886,21.0506 -104.0938,21.0331 -104.0945,21.021 -104.103,20.9802 -104.1006,20.9656 -104.0992,20.9572 -104.0964,20.9401 -104.0935,20.9352 -104.0881,20.9302 -104.081,20.9225 -104.0856,20.9201 -104.1102,20.9029 -104.1219,20.8887 -104.1285,20.8825 -104.1323,20.8746 -104.1371,20.859 -104.1377,20.8528 -104.1382,20.8483 -104.1397,20.8325 -104.1392,20.8105 -104.1452,20.7984 -104.1469,20.786 -104.1451,20.7804 -104.1449,20.755 -104.1453,20.742 -104.1406,20.7185 -104.1395,20.6875 -104.1385,20.6619 -104.1412,20.6487 -104.1494,20.6497 -104.1613,20.6599 -104.1727,20.6605 -104.1761,20.6638 -104.1772,20.671 -104.1865,20.6818 -104.2047,20.6883 -104.2192,20.6953 -104.2321,20.7089 -104.2409,20.7048 -104.2435,20.7068 -104.2455,20.7236 -104.2647,20.7459 -104.2745,20.755 -104.2882,20.7612 -104.2926,20.7598 -104.2963,20.763 -104.3015,20.7706 -104.3068,20.7731 -104.3223,20.771 -104.3308,20.7776 -104.3316,20.7807 -104.348,20.787 -104.3517,20.7954 -104.3517,20.7991 -104.3547,20.8012 -104.3678,20.8059 -104.3756,20.8266 -104.3794,20.8281 -104.3916,20.8428 -104.3922,20.8511 -104.3949,20.8524 -104.401,20.851 -104.4023,20.8641 -104.4056,20.8663 -104.4105,20.8658 -104.4121,20.8676 -104.4122,20.8794 -104.4161,20.883 -104.4237,20.8827 -104.4319,20.8909 -104.4455,20.8992 -104.4497,20.9007 -104.459,20.9005 -104.4648,20.8994 -104.4716,20.8981 -104.4843,20.8863 -104.4879,20.8874 -104.4962,20.8872 -104.4995,20.891 -104.5036,20.8988 -104.5089,20.9009 -104.5258,20.8993 -104.5293,20.9029 -104.531,20.9097 -104.5353,20.9076 -104.5473,20.908 -104.5485,20.9125 -104.5485,20.9216 -104.55,20.9227 -104.5549,20.9226 -104.5619,20.9301 -104.5729,20.9293 -104.5772,20.9326 -104.5822,20.9384 -104.5841,20.938 -104.5887,20.946 -104.5966,20.9493 -104.5948,20.9563 -104.593,20.9807 -104.6029,20.9737 -104.6258,20.9772 -104.6327,20.9744 -104.6404,20.9849 -104.6435,20.9873 -104.6531,20.9831 -104.6538,20.9828 -104.6565,20.9837 -104.663,20.9832 -104.6735,20.9804 -104.6795,20.9825 -104.6999,20.9844 -104.7057,20.9751 -104.7186,20.9717 -104.7253,20.9631 -104.7288,20.9616 -104.7353,20.9612 -104.7389,20.9524 -104.7433,20.9471 -104.7666,20.9307 -104.7702,20.9237 -104.771,20.9125 -104.7747,20.9082 -104.7799,20.9054 -104.7906,20.9054 -104.7963,20.9023 -104.8056,20.9007 -104.8185,20.8947 -104.8216,20.8933 -104.8379,20.8739 -104.8578,20.8835 -104.862,20.8842 -104.8648,20.882 -104.8662,20.8811 -104.8729,20.8833 -104.8742,20.8879 -104.8738,20.8935 -104.8774,20.8965 -104.8817,20.895 -104.8994,20.8853 -104.9079,20.8886 -104.9099,20.9033 -104.9182,20.9064 -104.9241,20.9063 -104.9447,20.906 -104.9521,20.8974 -104.9579,20.8975 -104.9695,20.8892 -104.9746,20.8882 -104.9803,20.8845 -104.9847,20.8764 -104.9959,20.8703 -104.9976,20.8664 -105.0003,20.8641 -105.0088,20.8637 -105.0171,20.8495 -105.023,20.846 -105.0351,20.8195 -105.0326,20.8045 -105.0417,20.7946 -105.0492,20.7919 -105.0526,20.7866 -105.0557,20.7851 -105.0527,20.7766 -105.0533,20.77 -105.0554,20.7676 -105.0635,20.7632 -105.0677,20.7506 -105.067,20.7457 -105.0784,20.74 -105.0897,20.7381 -105.0913,20.7307 -105.0962,20.7303 -105.1009,20.7194 -105.1079,20.7168 -105.1076,20.7137 -105.1053,20.7083 -105.1217,20.6817 -105.1232,20.6732 -105.1268,20.6701 -105.13,20.665 -105.1302,20.6612 -105.1069,20.6078 -105.1165,20.5517 -105.2068,20.4963 -105.3222,20.4685 -105.3683,20.4712 -105.4227,20.4683 -105.4661,20.4528 -105.4912,20.4395 -105.5467,20.4015 -105.5498,20.3605 -105.5335,20.3272 -105.4672,20.2209 -105.4181,20.0687 -105.3996,20.0214 -105.3871,19.9995 -105.3694,19.969 -105.3286,19.8999 -105.3094,19.8771 -105.2862,19.8574 -105.2588,19.828 -105.2013,19.7563 -105.1904,19.7366 -105.1748,19.703 -105.1404,19.656 -105.081,19.5984 -105.0416,19.5851 -104.9896,19.5596 -104.9714,19.5363 -104.9507,19.4737 -104.8948,19.3502 -104.8561,19.3178 -104.8241,19.2937 -104.7713,19.2636 -104.6784,19.2301 -104.5486,19.1558 -104.4651,19.1266 -104.3859,19.1061 -104.2442,19.0874 -104.2011,19.074 -104.1897,19.0555 -104.2031,19.0183 -104.1906,18.9896 -104.0786,18.9457 -104.0103,18.9231 -103.9206,18.8926 -103.8989,18.8842 -103.878,18.8752 -103.8454,18.8563 -103.8171,18.8343 -103.7134,18.7455 -103.6502,18.6879 -103.6291,18.673 -103.6195,18.6671 -103.599,18.6524 -103.5797,18.6298 -103.4501,18.4765 -103.435,18.4571 -103.4132,18.4179 -103.3939,18.3827 -103.3834,18.3597 -103.3709,18.3291 -103.3526,18.3087 -103.3244,18.2932 -103.2319,18.2525 -102.978,18.1796 -102.9362,18.1768 -102.9135,18.1723 -102.83,18.1402 -102.8095,18.1277 -102.7792,18.1106 -102.6997,18.0752 -102.6258,18.0478 -102.5959,18.0389 -102.5571,18.0308 -102.5131,18.0282 -102.4836,18.0277 -102.4502,18.0246 -102.3317,17.9914 -102.1665,17.9432 -102.1058,17.9246 -102.0573,17.9009 -102.0463,17.8983 -102.0211,17.8996 -101.9956,17.9156 -101.9719,17.9417 -101.9438,17.9621 -101.9144,17.9703 -101.8772,17.9687 -101.8293,17.9583 -101.798,17.9418 -101.7749,17.9283 -101.6951,17.8807 -101.6686,17.8598 -101.549,17.7163 -101.5301,17.6905 -101.5157,17.6582 -101.455,17.6086 -101.3223,17.5214 -101.2189,17.4701 -101.144,17.4401 -101.0134,17.36 -100.9822,17.3396 -100.9642,17.3222 -100.9442,17.3004 -100.9273,17.2761 -100.8891,17.2462 -100.788,17.1983 -100.7668,17.1896 -100.6755,17.163 -100.5569,17.1255 -100.3904,17.0692 -100.3286,17.0483 -100.2011,17.0014 -100.1636,16.9865 -100.1071,16.9609 -99.859,16.8821 -99.7526,16.8492 -99.7369,16.8363 -99.7209,16.7994 -99.7303,16.7764 -99.6184,16.7103 -99.566,16.6884 -99.4383,16.6658 -99.4173,16.6632 -99.3208,16.6538 -99.1135,16.6105 -98.918,16.5784 -98.6634,16.5347 -98.6349,16.5221 -98.6106,16.5004 -98.5855,16.458 -98.539,16.4009 -98.4979,16.3697 -98.4753,16.3563 -98.4604,16.3427 -98.4442,16.3212 -98.4365,16.3012 -98.4258,16.2925 -98.3283,16.2573 -98.2902,16.2457 -98.0973,16.2047 -98.0077,16.1907 -97.9725,16.168 -97.8126,16.0647 -97.7435,16.0096 -97.7221,15.9901 -97.6958,15.9672 -97.6758,15.9544 -97.6378,15.9424 -97.5555,15.9327 -97.5279,15.9412 -97.4039,15.9275 -97.1152,15.9005 -97.0803,15.8955 -97.0192,15.8792 -96.9869,15.86 -96.9542,15.8355 -96.7236,15.71 -96.4426,15.6388 -96.3611,15.626 -96.3216,15.6682 -96.2576,15.6595 -96.1713,15.6568 -96.1491,15.6597 -96.0997,15.6679 -96.0627,15.6759 -95.9481,15.7362 -95.8367,15.7977 -95.6322,15.875 -95.6019,15.8841 -95.4955,15.915 -95.4751,15.9209 -95.4076,15.9387 -95.3683,15.9442 -95.3061,15.9604 -95.2814,15.9723 -95.2575,15.9901 -95.2512,16.028 -95.1369,16.1152 -95.0992,16.1349 -94.9859,16.1653 -94.8132,16.1958 -94.7438,16.1979 -94.7916,16.213 -94.9254,16.2414 -94.9486,16.254 -94.9167,16.3041 -94.7967,16.3915 -94.745,16.4089 -94.7224,16.4015 -94.6911,16.3753 -94.6582,16.3115 -94.6707,16.2899 -94.6931,16.2711 -94.6778,16.242 -94.6071,16.2878 -94.5663,16.3193 -94.5505,16.3416 -94.4891,16.3217 -94.4651,16.2969 -94.4726,16.2704 -94.5021,16.2399 -94.5183,16.2279 -94.5418,16.2181 -94.5783,16.2096 -94.6101,16.1896 -94.5776,16.1725 -94.4903,16.1765 -94.3643,16.1703 -94.3277,16.1633 -94.2822,16.1521 -94.2614,16.1449 -94.1219,16.0858 -93.9766,16.0273 -93.9523,16.0238 -93.9401,16.0297 -93.943,16.0565 -93.9596,16.0726 -93.9797,16.0818 -94.0167,16.088 -94.0578,16.1015 -94.1202,16.1416 -94.1851,16.1548 -94.2193,16.1575 -94.1598,16.1253 -94.2123,16.1322 -94.2647,16.1584 -94.3029,16.1826 -94.3196,16.197 -94.3253,16.2224 -94.3062,16.266 -94.2868,16.2775 -94.2512,16.2694 -94.2338,16.2449 -94.1553,16.2012 -94.1019,16.1872 -93.9989,16.1571 -93.9727,16.1277 -93.9651,16.1218 -93.9113,16.0912 -93.826,16.0759 -93.7637,15.9821 -93.6765,15.9052 -93.5865,15.8475 -93.5373,15.8129 -93.4565,15.7554 -93.3628,15.6779 -93.3007,15.6242 -93.1716,15.5231 -93.0955,15.4741 -93.039,15.4103 -92.9982,15.3604 -92.9771,15.3365 -92.869,15.2456 -92.7791,15.1953 -92.7509,15.1888 -92.6603,15.1547 -92.644,15.1141 -92.6368,15.0751 -92.6637,15.1294 -92.6997,15.1252 -92.6431,15.0367 -92.5863,14.9758 -92.5229,14.9093 -92.4914,14.8775 -92.4743,14.8636 -92.446,14.8393 -92.4181,14.8122 -92.2756,14.668 -92.181,14.5711 -92.1475,14.5389 -92.1386,14.5344 -92.1297,14.5358 -92.1086,14.5419 -92.079,14.572 -92.0448,14.6668 -92.0443,14.6869 -92.0497,14.7132 -92.0603,14.7522 -92.0739,14.794 -92.0748,14.8286 -92.0405,14.9181 -91.9846,15.0089 -91.9614,15.0604 -92.1018,15.2451 -91.9982,15.4203 -91.7188,15.8912 -91.6875,15.9432 -91.6194,16.0569 -91.5941,16.0576 -91.4302,16.0578 -90.6955,16.0578 -90.5174,16.0577 -90.3455,16.0568 -90.339,16.0611 -90.3337,16.0706 -90.3235,16.1149 -90.3216,16.1545 -90.3486,16.1765 -90.3493,16.2384 -90.3301,16.2895 -90.2981,16.317 -90.2759,16.3589 -90.2847,16.3829 -90.2978,16.3983 -90.3774,16.4429 -90.3963,16.4504 -90.4363,16.4551 -90.4818,16.4581 -90.5003,16.4707 -90.5362,16.5023 -90.5343,16.5452 -90.5352,16.5767 -90.5491,16.6256 -90.5697,16.6574 -90.6049,16.708 -90.6393,16.7384 -90.6954,16.7866 -90.7571,16.7989 -90.8094,16.8111 -90.8392,16.8704 -90.8769,16.8774 -90.954,16.9054 -91.0745,17.0167 -91.1583,17.1148 -91.2218,17.169 -91.3237,17.218 -91.3264,17.2383 -90.874,17.2368 -90.8735,17.5656 -90.873,17.7981 -90.869,17.8 -90.8117,17.8001 -90.6678,17.8003 -90.481,17.8012 -90.1291,17.8012 -89.8908,17.8011 -89.6335,17.8009 -89.3222,17.7998 -89.034,17.7992 -89.035,17.931 -89.0135,17.9509 -88.9639,17.975 -88.9148,17.9846 -88.889,17.9673 -88.8754,17.9457 -88.7642,17.8874 -88.7338,17.8841 -88.6664,17.9688 -88.6206,18.0346 -88.5967,18.0897 -88.5735,18.1651 -88.4925,18.2157 -88.4816,18.2705 -88.4096,18.4096 -88.3988,18.4268 -88.3665,18.4633 -88.2981,18.4694 -88.2641,18.4613 -88.2366,18.4606 -88.1923,18.4622 -88.1769,18.4716 -88.16,18.4923 -88.0622,18.6564 -88.1107,18.6791 -88.0538,18.7168 -87.9819,18.7942 -87.9539,18.8331 -87.9326,18.8472 -87.8954,18.7635 -87.8959,18.6552 -87.9598,18.521 -87.9726,18.5045 -87.9664,18.473 -87.927,18.451 -87.8669,18.4276 -87.8189,18.3996 -87.7865,18.3438 -87.7701,18.3098 -87.765,18.273 -87.741,18.1705 -87.7331,18.247 -87.7214,18.2903 -87.7102,18.3145 -87.6844,18.352 -87.656,18.3881 -87.6485,18.4235 -87.6419,18.4992 -87.633,18.5855 -87.623,18.6435 -87.6041,18.6771 -87.559,18.7217 -87.5477,18.7388 -87.5171,18.8548 -87.513,18.9047 -87.5093,18.9402 -87.4896,19.029 -87.442,19.1182 -87.3821,19.2698 -87.394,19.3034 -87.4407,19.2972 -87.4689,19.2796 -87.4802,19.2597 -87.4857,19.2367 -87.5285,19.1935 -87.5658,19.2065 -87.5813,19.2286 -87.5701,19.2936 -87.5559,19.3294 -87.539,19.3551 -87.5222,19.3751 -87.4344,19.4106 -87.4369,19.3819 -87.4566,19.3728 -87.4208,19.3811 -87.3649,19.4206 -87.3368,19.4501 -87.3212,19.4839 -87.3057,19.5598 -87.3178,19.5825 -87.4202,19.5629 -87.5057,19.5279 -87.5259,19.5028 -87.5512,19.484 -87.5598,19.5258 -87.5848,19.5426 -87.6266,19.5781 -87.6334,19.6152 -87.63,19.6558 -87.5537,19.657 -87.4743,19.7774 -87.434,19.7889 -87.4041,19.805 -87.3692,19.8483 -87.3664,19.8913 -87.3755,19.9283 -87.34,19.9041 -87.3402,19.9109 -87.3528,19.9302 -87.3627,19.9611 -87.3659,20.0634 -87.3478,20.1417 -87.3307,20.1779 -87.3191,20.2003 -87.2003,20.3765 -87.17,20.4171 -87.12,20.481 -87.0982,20.5014 -87.0504,20.539 -87.0307,20.544 -86.9631,20.59 -86.807,20.7787 -86.7465,20.905 -86.7201,20.9642 -86.6691,21.1291 -86.7047,21.1567 -86.7199,21.27 -86.7055,21.3196 -86.7037,21.3445 -86.7092,21.3846 -86.7234,21.4055 -86.7645,21.4198 -86.7877,21.4182 -86.8986,21.5555 -86.9207,21.5662 -86.9425,21.574 -86.948,21.5755 -86.9715,21.582 -87.0414,21.5805 -87.1328,21.5437 -87.1649,21.5372 -87.1968,21.5387 -87.2217,21.5442 -87.2628,21.5366 -87.3035,21.5048 -87.2984,21.4851 -87.1414,21.5057 -87.1147,21.5185 -87.0925,21.5326 -87.0541,21.5433 -87.0269,21.533 -87.0265,21.4885 -87.0389,21.46 -87.0944,21.4285 -87.142,21.4175 -87.2221,21.4241 -87.3689,21.4525 -87.4319,21.4715 -87.4978,21.4882 -87.5448,21.4818 -87.5686,21.4789 -87.6405,21.4804 -87.6992,21.4934 -87.7436,21.5186 -87.6947,21.5088 -87.6071,21.5036 -87.8571,21.5725 -87.8862,21.5788 -88.0112,21.5858 -88.0395,21.5838 -88.0752,21.5733 -88.1163,21.5566 -88.1331,21.545 -88.0979,21.5526 -88.0352,21.5726 -87.9822,21.5626 -88.1596,21.5297 -88.2009,21.5312 -88.2434,21.5441 -88.3169,21.5474 -88.3426,21.545 -88.4857,21.5121 -88.5122,21.4975 -88.532,21.4746 -88.5779,21.439 -88.5996,21.424 -88.7345,21.3898 -88.9933,21.3385 -89.1316,21.3191 -89.2086,21.3105 -89.2284,21.309 -89.3916,21.2939 -89.5944,21.2725 -89.6662,21.2589 -89.6954,21.2528 -89.718,21.2464 -89.7579,21.2312 -89.8094,21.2113 -89.9961,21.1367 -90.1291,21.0633 -90.1693,21.0395 -90.2223,21.0041 -90.2406,20.9817 -90.265,20.9276 -90.2753,20.9024 -90.2953,20.8401 -90.308,20.8149 -90.3205,20.7646 -90.275,20.817 -90.2685,20.84 -90.2416,20.9283 -90.2297,20.9444 -90.2286,20.9182 -90.2426,20.8724 -90.2631,20.8227 -90.2751,20.7919 -90.2953,20.7659 -90.3289,20.7283 -90.3455,20.7093 -90.3743,20.5266 -90.3778,20.2856 -90.387,20.1721 -90.3897,20.0588 -90.3708,20.0209 -90.356,19.9939 -90.3451,19.9538 -90.392,19.8803 -90.418,19.8552 -90.4513,19.8402 -90.4691,19.83 -90.4905,19.8159 -90.5366,19.7804 -90.5664,19.7461 -90.6019,19.6484 -90.5905,19.6188 -90.6032,19.4576 -90.6211,19.3401 -90.6436,19.2989 -90.8024,19.161 -90.9111,19.086 -91.0241,19.0081 -91.1489,18.9539 -91.1936,18.9348 -91.252,18.899 -91.2739,18.8863 -91.3173,18.8309 -91.2871,18.8332 -91.2191,18.8727 -91.2482,18.8373 -91.2763,18.8027 -91.261,18.7503 -91.2304,18.7453 -91.2051,18.7624 -91.1788,18.7467 -91.1526,18.7198 -91.0753,18.6292 -91.2006,18.5715 -91.3264,18.5203 -91.3774,18.4687 -91.3639,18.4276 -91.3846,18.4149 -91.5257,18.4235 -91.5683,18.4288 -91.6622,18.4248 -91.6918,18.3594 -91.7017,18.3623 -91.744,18.4039 -91.7393,18.4246 -91.7212,18.4524 -91.7136,18.4722 -91.7861,18.5305 -91.8535,18.5662 -91.8458,18.5284 -91.8817,18.513 -91.9301,18.5395 -91.9241,18.5721 -91.8298,18.5749 -91.7921,18.5704 -91.7469,18.5948 -91.8445,18.6968 -91.8666,18.7065 -91.8925,18.7054 -92.041,18.6744 -92.2009,18.6642 -92.2931,18.6601 -92.3476,18.6435 -92.3681,18.6362 -92.4762,18.6028 -92.5673,18.497 -92.6287,18.5395 -92.6926,18.4869 -92.7101,18.4761 -92.7719,18.4404 -92.8079,18.4269 -92.8422,18.4185 -92.9749,18.3832 -92.9767,18.3586 -93.0169,18.319 -93.0581,18.35 -93.0591,18.3867 -93.0685,18.4183 -93.3163,18.4213 -93.3365,18.4202 -93.4736,18.401 -93.6669,18.3279 -93.7121,18.302 -93.7318,18.2859 -93.6942,18.2875 -93.665,18.3061 -93.4993,18.3827 -93.4791,18.3877 -93.4582,18.3885 -93.4632,18.3356 -93.679,18.2424 -93.7605,18.2324 -93.9014,18.2249 -94.0234,18.1886 -94.054,18.1784 -94.1536,18.1533 -94.3035,18.1285 -94.3546,18.1262 -94.3976,18.1325 -94.422,18.1401 -94.4552,18.1607 -94.619,18.3713 -94.6398,18.4157 -94.6671,18.4869 -94.6928,18.5039 -94.7395,18.511 -94.7716,18.5125 -94.8197,18.5146 -94.9103,18.5446 -94.9298,18.5843 -95.0665,18.681 -95.1001,18.6904 -95.199,18.6897 -95.2308,18.6857 -95.2846,18.6819 -95.4173,18.691 -95.6847,18.7242 -95.7947,18.8042 -95.7826,18.8248 -95.7919,18.8585 -95.8197,18.9054 -95.8419,18.9674 -95.8963,19.0367 -95.9242,19.0417 -95.9622,19.075 -95.9776,19.1036 -96.0229,19.2082 -96.0682,19.2305 -96.092,19.2438 -96.1109,19.2551 -96.1278,19.2672 -96.1599,19.2931 -96.1782,19.3194 -96.2503,19.5276 -96.2707,19.6097 -96.2767,19.6711 -96.2791,19.7027 -96.2903,19.7401 -96.327,19.833 -96.3428,19.8553 -96.3633,19.8769 -96.461,20.0031 -96.5572,20.1327 -96.6267,20.2032 -96.6695,20.2401 -96.9401,20.5173 -96.967,20.5459 -97.0256,20.6183 -97.0568,20.6608 -97.0736,20.709 -97.0633,20.7272 -97.0738,20.7711 -97.0819,20.7895 -97.0943,20.8144 -97.1302,20.8705 -97.174,20.9391 -97.2193,21.0339 -97.2367,21.0706 -97.2575,21.1164 -97.3352,21.2955 -97.3814,21.4024 -97.4357,21.4545 -97.4531,21.4695 -97.5007,21.5419 -97.5317,21.6056 -97.5508,21.6497 -97.5685,21.7494 -97.5829,21.8455 -97.5856,21.868 -97.5938,21.9044 -97.6023,21.935 -97.6111,21.9653 -97.6217,21.9879 -97.5764,21.9312 -97.5622,21.8916 -97.5022,21.768 -97.4028,21.6513 -97.3684,21.6146 -97.3432,21.5889 -97.3116,21.5625 -97.2786,21.5433 -97.2534,21.5195 -97.2487,21.4752 -97.2691,21.4467 -97.2995,21.4438 -97.3506,21.4186 -97.3434,21.3675 -97.2942,21.2482 -97.2245,21.406 -97.2091,21.444 -97.1988,21.4797 -97.1942,21.5063 -97.1955,21.5325 -97.2059,21.5588 -97.219,21.5736 -97.284,21.6194 -97.3992,21.7151 -97.416,21.7308 -97.436,21.7508 -97.4525,21.7695 -97.4925,21.8185 -97.5073,21.8387 -97.5214,21.8594 -97.5774,21.9502 -97.6195,22.0303 -97.648,22.0924 -97.6586,22.133 -97.6612,22.1736 -97.6563,22.2431 -97.6735,22.2769 -97.6827,22.3011 -97.7491,22.5575 -97.7672,22.5736 -97.7634,22.6068 -97.7559,22.6301 -97.7136,22.7126 -97.6847,22.7484 -97.6661,22.7903 -97.6308,22.8327 -97.6202,22.8802 -97.6187,22.9778 -97.6196,23.0018 -97.621,23.0338 -97.628,23.0625 -97.635,23.1 -97.6403,23.169 -97.6438,23.2447 -97.6446,23.275 -97.6433,23.3119 -97.6411,23.3557 -97.6388,23.3815 -97.6323,23.4466 -97.6181,23.5625 -97.6022,23.7941 -97.6022,23.8726 -97.6002,23.9284 -97.5932,24.048 -97.5746,24.2289 -97.5654,24.2954 -97.5573,24.3432 -97.5534,24.3687 -97.5287,24.4931 -97.4868,24.6582 -97.461,24.757 -97.3889,25.0162 -97.3507,25.1057 -97.3338,25.1426 -97.3187,25.1736 -97.2639,25.2614 -97.2118,25.3366 -97.1881,25.369 -97.1641,25.4091 -97.1469,25.4456 -97.1302,25.4825 -97.0646,25.6462 -97.036,25.7433 -97.0131,25.9044 -97.0142,25.9305 -97.0165,25.9373 -97.0364,25.9382 -97.1407,25.9122 -97.1909,25.8912 -97.2221,25.8642 -97.2204,25.8309 -97.2401,25.8109 -97.2926,25.8145 -97.3897,25.8694 -97.4344,25.9222 -97.4893,25.9761 -97.523,26.0003 -97.5539,26.0091 -97.6779,26.029 -97.7221,26.0344 -97.8544,26.0297 -97.9077,26.0186 -97.9346,26.0099 -98.0743,26.0334 -98.1604,26.0686 -98.1792,26.08 -98.2354,26.1243 -98.262,26.1624 -98.3136,26.1942 -98.4518,26.2269 -98.4783,26.2274 -98.569,26.2603 -98.6033,26.2852 -98.6575,26.3194 -98.7984,26.3619 -98.8487,26.3764 -98.9776,26.4056 -99.0054,26.4972 -99.073,26.6848 -99.1123,26.7737 -99.1256,26.8007 -99.1433,26.8301 -99.1916,26.8399 -99.3305,27.0167 -99.3151,27.2275 -99.345,27.4459 -99.3754,27.5373 -99.4024,27.5692 -99.4776,27.6103 -99.525,27.6105 -99.5676,27.6262 -99.5854,27.6382 -99.5989,27.6581 -99.6127,27.6837 -99.6301,27.6962 -99.6534,27.7067 -99.6694,27.7357 -99.678,27.7406 -99.7039,27.7435 -99.7318,27.7741 -99.7431,27.8245 -99.752,27.8728 -99.8058,27.9303 -99.833,27.9535 -99.9216,28.085 -99.949,28.1241 -99.9791,28.1342 -100.0569,28.1659 -100.1108,28.2111 -100.1518,28.2491 -100.2013,28.3686 -100.2,28.3936 -100.2209,28.463 -100.2292,28.4866 -100.2697,28.5394 -100.3139,28.5944 -100.3499,28.644 -100.3623,28.6721 -100.3619,28.6938 -100.3973,28.7906 -100.4341,28.8314 -100.4602,28.8624 -100.4918,28.901 -100.504,28.9262 -100.4979,28.9634 -100.5353,29.0765 -100.6649,29.226 -100.8062,29.3172 -100.8945,29.4048 -100.9122,29.4285 -100.9756,29.4491 -101.0081,29.4576 -101.0873,29.5073 -101.1793,29.5821 -101.2245,29.6276 -101.238,29.6593 -101.2736,29.7396 -101.325,29.7389 -101.4073,29.7378 -101.4971,29.733 -101.5749,29.7448 -101.6129,29.7555 -101.6427,29.7635 -101.6936,29.7713 -101.7602,29.773 -101.8584,29.7724 -101.916,29.7654 -101.9406,29.7651 -101.9652,29.7697 -101.9895,29.7771 -102.095,29.8138 -102.1288,29.8347 -102.1691,29.8545 -102.2228,29.8174 -102.3633,29.7486 -102.4277,29.7344 -102.5373,29.7096 -102.6716,29.4413 -102.7178,29.3194 -102.7625,29.2217 -102.8215,29.1504 -102.9186,29.0618 -103.0299,28.9515 -103.1572,28.9641 -103.1623,28.9648 -103.2411,28.9912 -103.2673,29.004 -103.3281,29.0407 -103.3509,29.0563 -103.3973,29.0935 -103.6014,29.1665 -103.7547,29.2533 -103.8403,29.2733 -103.889,29.2885 -103.9105,29.2979 -103.9287,29.3096 -103.9459,29.3225 -104.0346,29.3898 -104.0673,29.428 -104.0932,29.4617 -104.1178,29.4754 -104.1498,29.4931 -104.1814,29.4979 -104.2028,29.4922 -104.2838,29.5365 -104.318,29.5627 -104.4062,29.6397 -104.5423,29.9076 -104.559,29.9714 -104.5655,30.0255 -104.5432,30.0718 -104.5388,30.1343 -104.5464,30.1536 -104.5693,30.1994 -104.6408,30.2841 -104.6858,30.352 -104.7285,30.4322 -104.7435,30.4908 -104.7602,30.5321 -104.7981,30.5735 -104.8545,30.5981 -104.9252,30.6599 -104.9882,30.7153 -105.0328,30.7441 -105.0856,30.7702 -105.1163,30.7627 -105.2559,30.8315 -105.3536,30.9117 -105.404,30.9616 -105.4434,31.0233 -105.4628,31.0469 -105.5723,31.1093 -105.634,31.1435 -105.6493,31.1734 -105.6899,31.2196 -105.7042,31.2343 -105.7202,31.2475 -105.8347,31.3347 -105.8735,31.3601 -105.9247,31.3675 -106.0056,31.3968 -106.0718,31.4371 -106.134,31.524 -106.1508,31.5623 -106.1648,31.6022 -106.196,31.6521 -106.2575,31.7122 -106.2781,31.7186 -106.3005,31.7161 -106.3215,31.7148 -106.3577,31.7216 -106.3842,31.7451 -106.401,31.7465 -106.4696,31.7482 -106.936,31.7479 -107.0024,31.7486 -107.0351,31.7479 -107.1022,31.7483 -107.1352,31.7478 -107.2014,31.7484 -107.2351,31.7479 -107.3015,31.7486 -107.368,31.7477 -107.4348,31.7485 -107.468,31.7479 -107.5678,31.7483 -107.7677,31.7474 -108.0341,31.7486 -108.0679,31.748 -108.067,31.6642 -108.0678,31.5642 -108.0671,31.4974 -108.0676,31.3984 -108.0669,31.3315 -108.0674,31.2981 -108.6371,31.2978 -108.675,31.2981 -108.6911,31.2976 -108.7601,31.2977 -108.8577,31.0714 -108.8633,31.0832 -108.9094,30.9791 -108.9813,30.8166 -108.8609,30.7286 -108.8582,30.7321 -108.7489,30.6538 -108.6584,30.5919 -108.5803,30.5791 -108.54,30.5587 -108.4019,30.4742 -108.4099,30.3829 -108.4157,30.3166 -108.422,30.2449 -108.4195,30.23 -108.406,30.0564 -108.4141,29.9532 -108.4151,29.9411 -108.4181,29.9037 -108.4243,29.8249 -108.4418,29.5727 -108.4614,29.3683 -108.4855,29.3743 -108.5267,29.3808 -108.5811,29.3919 -108.5704,29.3316 -108.5456,29.2376 -108.5374,29.2065 -108.5059,29.0704 -108.4805,28.9706 -108.4301,28.7925 -108.4481,28.737 -108.5059,28.5576 -108.4914,28.516 -108.4518,28.402 -108.4007,28.2544 -108.4483,28.2096 -108.9085,28.2513 -108.9647,28.1996 -108.9839,28.182 -108.9834,28.1809 69,2.0,West Bank 35.4321,31.4621 35.405,31.4641 35.3548,31.4585 35.3329,31.4492 35.2135,31.3684 35.1947,31.3491 35.1747,31.3417 35.0929,31.3268 34.8924,31.3158 34.8629,31.3257 34.8445,31.3454 34.8431,31.3773 34.8653,31.4086 34.8919,31.4466 34.9009,31.467 34.9006,31.5241 34.9049,31.5516 34.916,31.5681 34.9403,31.5982 34.9561,31.6115 35.052,31.673 35.1174,31.7093 35.1639,31.7146 35.1074,31.7775 35.0629,31.7974 34.9904,31.7865 34.9688,31.7848 34.9296,31.7877 34.9204,31.7952 34.9209,31.8259 34.942,31.9332 34.9555,31.9497 34.9619,31.9921 34.9605,32.0185 34.9403,32.0968 34.9339,32.1173 34.9803,32.2032 35.0025,32.3315 35.0004,32.3472 35.0018,32.3582 35.011,32.3889 35.0209,32.4111 35.0362,32.4351 35.134,32.491 35.1622,32.5102 35.2179,32.4854 35.2434,32.4799 35.2717,32.4805 35.3046,32.487 35.3624,32.4679 35.3781,32.4496 35.4349,32.3767 35.5066,32.3582 35.5143,32.3418 35.5244,32.1816 35.5124,32.1672 35.4704,32.0055 35.4775,31.9624 35.4893,31.8939 35.5029,31.7928 35.5091,31.7286 35.4925,31.6997 35.4801,31.6763 35.4519,31.6062 35.4438,31.5687 35.4366,31.5269 35.433,31.4943 35.4321,31.4621 35.4321,31.4621 8,2.0,West Bank 35.2105,31.7724 35.2033,31.7733 35.1978,31.7683 35.2088,31.7508 35.2168,31.7544 35.218,31.768 35.2105,31.7724 35.2105,31.7724 22,9.0,Japan 130.0364,32.3921 130.0419,32.337 130.0383,32.2975 129.923,32.196 129.9054,32.1826 129.8961,32.1765 129.8609,32.159 129.8312,32.1523 129.8191,32.1645 129.7864,32.2076 129.8022,32.3195 129.8185,32.3732 129.8238,32.3851 129.8583,32.4621 129.8773,32.4761 129.941,32.5059 129.9848,32.5074 130.014,32.4899 130.0295,32.4472 130.0326,32.4314 130.0364,32.3921 130.0364,32.3921 15,9.0,Japan 130.0364,32.3921 130.0414,32.408 130.0546,32.4199 130.0701,32.4242 130.1086,32.4552 130.1626,32.48 130.1957,32.4861 130.2784,32.4688 130.2337,32.3876 130.2117,32.3511 130.2,32.3386 130.1895,32.3345 130.0667,32.3608 130.0364,32.3921 130.0364,32.3921 18,8.0,China 119.5572,32.2306 119.5628,32.2377 119.5787,32.2483 119.5949,32.2549 119.6083,32.2558 119.6247,32.2538 119.6445,32.2478 119.6596,32.2387 119.6699,32.2299 119.6791,32.2141 119.7416,32.0355 119.6297,32.093 119.6638,32.1564 119.6327,32.1709 119.591,32.1935 119.563,32.2099 119.5572,32.2306 119.5572,32.2306 496,3.0,Saudi Arabia 39.146,32.1189 39.4363,32.0699 40.0228,31.9703 40.3608,31.9126 41.3862,31.3384 42.0306,31.077 42.8689,30.4821 43.0091,30.3826 43.7537,29.8351 44.6639,29.1659 46.0627,29.0536 46.3668,29.0291 46.4874,29.0726 46.5277,29.0655 46.7398,29.0429 46.9361,29.0208 47.3987,28.9669 47.402,28.9522 47.4458,28.8907 47.4791,28.8184 47.5032,28.7645 47.5135,28.7379 47.5152,28.701 47.5135,28.6712 47.5414,28.6031 47.5565,28.5822 47.6273,28.5072 48.2402,28.5125 48.3541,28.5133 48.3629,28.5107 48.4393,28.4634 48.4559,28.385 48.4564,28.303 48.5408,28.0896 48.5876,28.0069 48.7901,27.8246 48.8146,27.8027 48.8116,27.7303 48.7838,27.7014 48.7928,27.7713 48.7573,27.794 48.7359,27.7765 48.7258,27.7134 48.7762,27.5888 48.8483,27.5691 48.8957,27.5932 48.9173,27.5857 48.9535,27.5525 48.9882,27.5147 49.0135,27.5091 49.1141,27.5205 49.1732,27.5135 49.2377,27.4582 49.2454,27.4142 49.166,27.4201 49.1039,27.4281 49.0649,27.4116 49.1844,27.3101 49.3372,27.1274 49.3455,27.097 49.3809,27.1017 49.4083,27.1137 49.4291,27.1317 49.4474,27.1557 49.4788,27.1409 49.5588,27.0264 49.6033,26.9477 49.6397,26.9211 49.7224,26.8698 49.7469,26.8574 49.8024,26.8296 49.8386,26.8264 49.8879,26.8199 50.0684,26.6579 50.0907,26.6335 50.0946,26.613 50.0176,26.6587 49.9322,26.7127 49.9192,26.6696 49.9184,26.6497 49.9382,26.5317 49.9863,26.4358 50.0176,26.4182 50.0458,26.4147 50.109,26.3923 50.1476,26.3454 50.1553,26.2709 50.1511,26.1784 50.1445,26.152 50.0918,26.072 50.0528,26.0613 49.999,26.1487 49.9629,26.1654 49.9153,26.1037 49.9302,25.991 50.0436,25.8864 50.05,25.8399 50.0707,25.791 50.1155,25.7371 50.1465,25.7089 50.192,25.6364 50.1914,25.6021 50.1704,25.624 50.1694,25.6478 50.0993,25.6914 50.0741,25.6975 50.0848,25.6701 50.2414,25.4884 50.2827,25.4471 50.3055,25.43 50.3934,25.4158 50.4184,25.3854 50.4586,25.26 50.4699,25.1761 50.4959,25.0217 50.5066,25.0106 50.5097,25.029 50.5421,25.0148 50.5802,24.9662 50.6625,24.8495 50.6761,24.7671 50.6765,24.7393 50.7117,24.6933 50.7671,24.7222 50.8019,24.6624 50.9091,24.5497 51.0473,24.5285 51.1145,24.559 51.1402,24.5806 51.1507,24.5934 51.1934,24.5885 51.2418,24.5658 51.2284,24.5401 51.2345,24.4924 51.2813,24.514 51.3277,24.5682 51.3378,24.5864 51.3741,24.5928 51.4224,24.5558 51.3435,24.4711 51.2677,24.4114 51.2532,24.3962 51.2428,24.3776 51.2149,24.3102 51.218,24.2728 51.2435,24.2642 51.2883,24.2651 51.3202,24.2872 51.3429,24.2926 51.3773,24.2885 51.4087,24.2827 51.4416,24.2663 51.4652,24.2333 51.4856,24.2242 51.5125,24.2282 51.5198,24.2335 51.5187,24.0897 52.5182,22.9133 55.0737,22.6081 55.131,22.6743 55.5977,21.9753 55.3544,21.2437 54.9331,19.9778 51.9361,18.9783 51.1533,18.8005 49.9394,18.5253 48.7074,18.2462 47.9675,17.4402 47.3181,16.7329 46.2778,15.5996 46.278,15.8014 46.2778,16.6481 45.4216,16.9868 44.9459,17.1751 44.445,17.3736 44.4404,17.3792 44.4073,17.3937 44.3289,17.4001 44.1321,17.3897 44.0368,17.3275 43.8861,17.2872 43.7084,17.3325 43.6861,17.3463 43.619,17.4002 43.6014,17.424 43.5863,17.4502 43.5683,17.4616 43.4613,17.5025 43.3926,17.5071 43.355,17.4942 43.3214,17.4755 43.2934,17.457 43.2617,17.4403 43.2066,17.3954 43.1398,17.3229 43.0996,17.103 43.0717,16.9064 43.1093,16.8169 43.146,16.6971 43.1543,16.6537 43.0829,16.6616 43.0508,16.6591 43.0276,16.5827 43.0186,16.542 43.0084,16.5238 42.8673,16.4049 42.7724,16.3629 42.7385,16.3592 42.7381,16.4426 42.6835,16.5066 42.6693,16.5489 42.6748,16.5813 42.6808,16.604 42.6866,16.6446 42.6211,16.7633 42.5925,16.7929 42.574,16.8064 42.5321,16.8165 42.4892,16.8559 42.4967,16.9197 42.4967,16.9792 42.4668,17.0105 42.3573,17.1025 42.3142,17.0916 42.3195,17.0211 42.3025,17.062 42.2853,17.1649 42.275,17.234 42.2736,17.3029 42.2701,17.3787 42.2561,17.4281 42.1435,17.5227 42.0433,17.6301 41.8258,17.7928 41.7957,17.788 41.7406,17.8121 41.6933,17.8605 41.6762,17.8782 41.6285,17.9293 41.5466,18.0693 41.5467,18.1011 41.4863,18.1714 41.4627,18.209 41.427,18.2701 41.4081,18.3057 41.3938,18.3494 41.394,18.3771 41.3882,18.4417 41.3595,18.4828 41.3062,18.5448 41.2735,18.561 41.2122,18.5924 41.1558,18.6794 41.1633,18.7355 41.1949,18.8055 41.1556,18.8438 41.1251,18.8453 41.0847,18.924 41.0988,18.9665 41.1254,19.0437 41.1058,19.0666 41.0697,19.0769 41.0375,19.087 41.0137,19.1159 40.994,19.1593 40.9064,19.4305 40.7941,19.512 40.7174,19.5802 40.736,19.5937 40.7534,19.6371 40.7509,19.6585 40.7377,19.6954 40.7074,19.7423 40.683,19.7671 40.6316,19.7734 40.6093,19.7713 40.4621,19.9517 40.3943,19.9862 40.2869,20.0511 40.2313,20.0857 40.1115,20.1777 40.0795,20.2131 40.0482,20.2494 40.0067,20.26 39.9089,20.2598 39.8584,20.262 39.8315,20.2651 39.7546,20.3113 39.6127,20.4151 39.5851,20.4481 39.5521,20.4957 39.5204,20.5451 39.4965,20.5916 39.4385,20.6934 39.3896,20.7245 39.379,20.7426 39.3714,20.775 39.4,20.7701 39.4091,20.7726 39.3993,20.8011 39.3668,20.8239 39.3327,20.8261 39.3022,20.8442 39.2232,20.9261 39.1271,21.0805 39.1088,21.1245 39.0581,21.2563 39.1108,21.3507 39.1231,21.3864 39.1245,21.4135 39.1217,21.4375 39.1155,21.4768 39.0981,21.5094 39.0459,21.5954 39.039,21.6292 39.0187,21.6961 38.9857,21.7679 38.9703,21.787 38.9454,21.8124 38.9694,22.0977 38.9828,22.1899 39.0573,22.3522 39.0147,22.558 38.9203,22.7228 38.9048,22.7424 38.8484,22.8206 38.8029,22.8994 38.8379,22.889 38.853,22.8515 38.8649,22.8241 38.8987,22.8201 38.9124,22.8402 38.893,22.8785 38.8466,22.9352 38.82,22.953 38.7104,23.1474 38.6603,23.2171 38.6442,23.2654 38.6411,23.3077 38.6355,23.3652 38.6304,23.3873 38.6264,23.3964 38.5963,23.4337 38.5352,23.4889 38.5056,23.4988 38.4364,23.6637 38.3991,23.7626 38.198,23.9278 38.0892,24.0136 38.0331,24.0411 37.9663,24.0627 37.8311,24.144 37.7075,24.2319 37.6278,24.2711 37.579,24.2431 37.5725,24.2241 37.552,24.2229 37.4803,24.2503 37.4416,24.2904 37.3953,24.3479 37.4133,24.387 37.4029,24.4268 37.3366,24.5116 37.3317,24.533 37.3218,24.5522 37.2805,24.6102 37.2642,24.6295 37.2181,24.6724 37.1946,24.6886 37.1078,24.8124 37.1294,24.8145 37.1504,24.8107 37.1727,24.8134 37.1972,24.8251 37.2105,24.8425 37.2316,24.9479 37.2106,25.1047 37.2034,25.1238 37.1882,25.1545 37.1632,25.1795 37.137,25.2005 37.0817,25.2602 37.0487,25.3081 37.039,25.3327 37.0313,25.3634 37.0304,25.4054 36.8855,25.6162 36.781,25.7153 36.752,25.7278 36.7492,25.6903 36.6774,25.721 36.6503,25.7576 36.6271,25.797 36.6085,25.837 36.6322,25.8701 36.6584,25.9254 36.6623,25.9531 36.6535,25.987 36.6391,26.0056 36.6188,26.0197 36.5831,26.0274 36.562,26.0294 36.54,26.0319 36.4986,26.0492 36.4659,26.0785 36.447,26.1064 36.4351,26.1554 36.2615,26.4662 36.1654,26.6167 36.0979,26.6875 36.0739,26.6998 36.051,26.7196 36.0059,26.8108 35.9972,26.8407 35.9855,26.8664 35.9459,26.8965 35.8894,26.9431 35.86,26.9695 35.7733,27.0698 35.7545,27.1278 35.7653,27.1557 35.7537,27.1796 35.679,27.276 35.5913,27.3293 35.5658,27.3577 35.5203,27.4124 35.4867,27.4655 35.4767,27.4839 35.4625,27.512 35.4596,27.5347 35.462,27.5718 35.45,27.6022 35.3476,27.745 35.2876,27.8275 35.2712,27.8476 35.2497,27.8703 35.1872,27.9331 35.1717,27.9454 35.1426,27.9658 35.1153,28.0253 35.0111,28.0814 34.9522,28.0795 34.9279,28.0679 34.889,28.052 34.8661,28.0464 34.8017,28.0401 34.6614,28.1068 34.6341,28.0981 34.6041,28.0621 34.6025,28.0332 34.5997,28.007 34.5802,27.9944 34.5275,28.0645 34.544,28.098 34.5877,28.1432 34.6479,28.2555 34.6917,28.3573 34.7001,28.3859 34.728,28.4463 34.7423,28.4618 34.7618,28.5073 34.7535,28.5953 34.7466,28.6257 34.7914,28.8254 34.7975,28.8523 34.8346,29.0827 34.8383,29.1034 34.8529,29.1594 34.8645,29.1962 34.9057,29.3156 34.9163,29.3281 35.1419,29.2941 35.4954,29.24 36.0233,29.1564 36.2257,29.3039 36.4533,29.4697 36.6962,29.8315 36.9864,29.8848 37.3616,29.9522 37.4542,29.9687 37.6187,30.3027 37.9521,30.4703 37.5125,30.9164 37.4413,30.9886 37.2465,31.1823 36.9573,31.4705 37.1541,31.5211 37.4233,31.5896 37.6606,31.6492 37.9148,31.713 37.9374,31.7187 38.4383,31.8435 38.9543,31.9698 39.0214,32.022 39.146,32.1189 39.146,32.1189 43,8.0,China 121.0463,31.7649 121.0627,31.7749 121.0818,31.7817 121.1182,31.7843 121.154,31.7844 121.1756,31.783 121.2694,31.7402 121.3008,31.7199 121.3095,31.7129 121.3201,31.7007 121.3287,31.6804 121.3159,31.6793 121.3089,31.6703 121.3358,31.6397 121.4068,31.6005 121.4542,31.5811 121.5179,31.5587 121.5906,31.5352 121.6055,31.5323 121.6278,31.5312 121.6432,31.5294 121.6566,31.5255 121.6958,31.5099 121.7091,31.4997 121.7153,31.4883 121.7171,31.4776 121.7152,31.4646 121.7083,31.4516 121.6729,31.4178 121.6603,31.4154 121.6265,31.4214 121.5917,31.4294 121.5494,31.4428 121.3886,31.4961 121.2444,31.5631 121.2235,31.5747 121.2036,31.5868 121.1936,31.593 121.1585,31.6201 121.1412,31.6334 121.0601,31.7299 121.0463,31.7649 121.0463,31.7649 8,3.0,Israel 35.2105,31.7724 35.218,31.768 35.2168,31.7544 35.2088,31.7508 35.1978,31.7683 35.2033,31.7733 35.2105,31.7724 35.2105,31.7724 614,3.0,Egypt 34.1724,31.2883 34.1947,31.2599 34.2233,31.1817 34.2429,31.128 34.3569,30.8251 34.4449,30.6568 34.5141,30.4521 34.4985,30.4009 34.5007,30.3731 34.5695,30.331 34.6785,30.0559 34.7087,29.9575 34.8029,29.7075 34.8279,29.6176 34.8288,29.5976 34.8212,29.5737 34.8329,29.4996 34.8589,29.4538 34.8377,29.4516 34.8138,29.4393 34.7166,29.3019 34.6992,29.2587 34.6451,29.1031 34.6209,29.0069 34.578,28.807 34.578,28.7275 34.5828,28.7034 34.5608,28.6597 34.5411,28.6302 34.504,28.573 34.4804,28.5301 34.4124,28.4035 34.3648,28.2871 34.37,28.1989 34.3859,28.1693 34.4072,28.1427 34.4018,27.9898 34.3975,27.9659 34.3866,27.9434 34.283,27.8378 34.2502,27.8234 34.2281,27.787 34.215,27.7591 34.2119,27.7336 34.2103,27.6977 34.1724,27.7344 34.1439,27.756 34.0901,27.7647 33.9292,27.8567 33.7822,27.9437 33.7622,27.9575 33.72,27.9907 33.6692,28.0505 33.5836,28.162 33.556,28.2078 33.5201,28.2632 33.4774,28.2815 33.3909,28.329 33.3683,28.3482 33.2632,28.4531 33.2442,28.4733 33.1998,28.5227 33.1783,28.5762 33.1568,28.6304 33.125,28.829 33.1231,28.921 33.1243,28.942 33.1296,28.9628 32.9062,29.1744 32.8863,29.1773 32.8482,29.2004 32.6993,29.4219 32.68,29.4779 32.6474,29.5832 32.6411,29.6362 32.652,29.6903 32.6327,29.7252 32.6068,29.7553 32.5658,29.7905 32.5345,29.8865 32.5356,29.9179 32.5337,29.9694 32.4357,29.9033 32.417,29.864 32.4399,29.8361 32.4051,29.7619 32.3671,29.7222 32.3191,29.65 32.299,29.5618 32.3265,29.5115 32.3593,29.479 32.3959,29.4593 32.5251,29.3499 32.5544,29.3078 32.5886,29.2037 32.6048,29.1409 32.6156,29.0868 32.6201,29.0814 32.6203,29.0613 32.5921,29.0288 32.5765,28.9516 32.6466,28.8355 32.6949,28.7841 32.7153,28.7691 32.7462,28.7596 32.7618,28.745 32.7777,28.7159 32.7871,28.6922 32.7948,28.6698 32.8185,28.5946 32.8929,28.5131 32.9565,28.4528 32.9731,28.428 33.0339,28.3361 33.0833,28.2519 33.1364,28.1975 33.1821,28.1507 33.2914,28.0436 33.3678,27.9979 33.3893,27.9873 33.4264,27.9651 33.4422,27.9527 33.4737,27.9134 33.5158,27.8519 33.5281,27.8237 33.5383,27.7852 33.5366,27.7594 33.5078,27.7812 33.4722,27.8 33.4515,27.8063 33.4315,27.7963 33.4515,27.6132 33.518,27.5374 33.5899,27.4592 33.6249,27.3936 33.641,27.342 33.6456,27.3101 33.661,27.2896 33.6766,27.2758 33.6948,27.2636 33.7276,27.2522 33.7855,27.2249 33.7939,27.2064 33.7951,27.169 33.7864,27.1308 33.7923,27.0872 33.8999,26.9056 33.9044,26.7889 33.8889,26.6543 33.8947,26.6257 33.9102,26.6115 33.9472,26.6012 33.9666,26.5843 34.0309,26.4819 34.0996,26.3426 34.1381,26.2705 34.1574,26.2214 34.1705,26.1926 34.1792,26.1736 34.2803,25.9969 34.3941,25.8166 34.4466,25.7492 34.4654,25.7317 34.4874,25.7166 34.5066,25.696 34.5814,25.5524 34.5902,25.5342 34.6249,25.4587 34.7266,25.2562 34.7753,25.1664 34.8053,25.1129 34.8361,25.0681 34.8697,25.0176 34.8923,24.9832 34.9422,24.8959 35.0441,24.6908 35.0979,24.5139 35.0945,24.4903 35.1773,24.3949 35.1907,24.3798 35.2458,24.3395 35.2926,24.3053 35.3387,24.2635 35.3753,24.2158 35.3861,24.1981 35.4037,24.155 35.4393,24.1232 35.5545,24.0499 35.6584,23.9883 35.6823,23.9779 35.7145,23.9558 35.7383,23.9303 35.7667,23.8804 35.5682,23.9063 35.5084,23.9355 35.4985,23.9574 35.4769,23.9535 35.46,23.9412 35.4415,23.9164 35.4318,23.7854 35.4557,23.7177 35.4702,23.6937 35.4682,23.6455 35.4597,23.5666 35.4476,23.4684 35.4551,23.4453 35.4961,23.3844 35.5085,23.3439 35.5079,23.3122 35.5109,23.2835 35.5252,23.213 35.5349,23.1901 35.5573,23.1533 35.5867,23.1074 35.5967,23.0894 35.6182,23.0155 35.6188,22.9866 35.6248,22.9449 35.698,22.8469 35.8005,22.7383 35.8243,22.7242 35.8946,22.6943 35.9724,22.6649 36.0131,22.6605 36.1083,22.64 36.1842,22.6101 36.2306,22.5638 36.3275,22.4304 36.3534,22.3807 36.3947,22.3238 36.4206,22.2936 36.4468,22.2818 36.5006,22.2746 36.705,22.1371 36.7555,22.0993 36.8174,22.0511 36.8408,22.0285 36.8506,22.0097 36.8507,21.9829 36.8432,21.9754 36.8371,21.9766 36.7766,21.9765 36.6828,21.9751 36.6432,21.9739 36.5009,21.9739 36.3641,21.9743 36.2532,21.9747 36.212,21.9753 35.9808,21.9745 35.8652,21.9739 35.7372,21.9724 35.4016,21.9731 35.3109,21.9748 35.1103,21.9759 34.9456,21.9766 34.9246,21.9764 34.8974,21.9767 34.8497,21.9762 34.6617,21.9728 34.6213,21.9717 34.3042,21.9712 34.075,21.9715 34.0573,21.9719 34.0325,21.9726 33.9135,21.9743 33.8236,21.9751 33.7401,21.9751 33.7187,21.9753 33.6985,21.9751 33.4208,21.9756 33.3173,21.9758 33.139,21.975 33.1262,21.9745 32.6081,21.9774 32.4818,21.9782 32.4541,21.9786 32.4331,21.979 32.4045,21.9795 32.3484,21.9795 32.3002,21.9795 31.9573,21.9784 31.5403,21.9749 31.4568,21.9739 31.4217,21.9735 31.4276,22.0062 31.4753,22.135 31.4696,22.1649 31.4405,22.1968 31.4095,22.2073 31.3831,22.2023 31.357,22.1866 31.2965,22.0815 31.2814,22.0554 31.2359,21.9743 31.1694,21.9739 31.1272,21.9738 30.7105,21.9746 30.6536,21.9748 30.5613,21.9758 30.4618,21.9764 30.4256,21.9761 30.3402,21.9763 30.2346,21.9761 30.0641,21.9761 29.5755,21.9736 29.4912,21.9729 29.214,21.9711 29.1422,21.971 29.1207,21.971 29.0996,21.9712 29.0781,21.9709 29.0569,21.971 29.0351,21.9709 28.9777,21.9712 28.5614,21.9751 28.2845,21.9781 28.2263,21.9791 28.188,21.9786 27.69,21.9751 27.3788,21.97 27.3532,21.9695 27.2939,21.9716 27.2344,21.9735 27.1049,21.9761 27.0598,21.9759 26.9387,21.9742 26.8814,21.9721 26.8053,21.9708 26.642,21.9714 26.6158,21.9718 26.3076,21.9751 25.747,21.9781 25.3761,21.9752 25.1855,21.9764 25.0683,21.9762 24.9707,21.9751 24.9714,22.0221 24.9705,22.2619 24.9692,23.554 24.9684,23.9969 24.9666,24.3161 24.966,24.7592 24.9655,24.9667 24.9659,25.4142 24.9663,25.942 24.9674,26.4543 24.968,26.5377 24.9682,26.6899 24.9686,26.9118 24.9683,26.9692 24.9678,27.0504 24.9689,27.3969 24.9697,27.5771 24.9691,27.6356 24.9699,27.7294 24.9701,27.8679 24.9698,27.9689 24.9703,28.0937 24.9699,28.2462 24.9673,28.9247 24.9657,29.2164 24.8794,29.4001 24.865,29.4294 24.8462,29.4757 24.8528,29.5527 24.7928,29.7838 24.7996,29.8039 24.8038,29.8255 24.8008,29.8484 24.789,29.8828 24.7781,29.9124 24.737,30.0006 24.694,30.0862 24.6794,30.1046 24.675,30.1253 24.6781,30.1551 24.6912,30.1922 24.7399,30.27 24.7866,30.3298 24.8224,30.3654 24.844,30.3937 24.8938,30.4733 24.9448,30.6007 24.985,30.755 24.963,30.8044 24.9447,30.8377 24.8795,30.9805 24.872,31.0 24.837,31.1244 24.8359,31.336 24.8614,31.3678 24.9306,31.4102 24.9767,31.4458 25.015,31.4873 25.0284,31.5324 25.0406,31.5504 25.0678,31.5761 25.0971,31.599 25.119,31.6115 25.1195,31.5999 25.1414,31.5057 25.2816,31.4662 25.3673,31.4664 25.448,31.4834 25.5342,31.5063 25.6511,31.5423 25.7777,31.5756 25.8147,31.5821 25.8475,31.5845 25.9136,31.5826 25.952,31.5788 25.9748,31.5751 26.0592,31.556 26.1394,31.5277 26.275,31.4923 26.3169,31.4826 26.3389,31.4785 26.47,31.4633 26.61,31.4492 26.7398,31.4255 26.8582,31.3988 27.0278,31.364 27.13,31.3444 27.2129,31.3401 27.2445,31.3427 27.2879,31.3411 27.3098,31.334 27.3237,31.2941 27.3328,31.2607 27.3419,31.2368 27.3599,31.2147 27.3765,31.2013 27.4032,31.188 27.4231,31.1823 27.5352,31.1538 27.6194,31.1382 27.7649,31.1785 27.8081,31.2088 27.8284,31.1953 27.8476,31.1465 27.8571,31.105 27.8665,31.075 27.8853,31.0634 28.1514,31.0379 28.2364,31.0342 28.3198,31.0388 28.3665,31.049 28.3927,31.0441 28.5231,30.9977 28.6811,30.9536 28.7181,30.9406 28.7778,30.9133 28.7898,30.8865 28.8578,30.839 28.944,30.8048 28.9974,30.7897 29.0316,30.7874 29.0838,30.7868 29.11,30.7896 29.1423,30.796 29.1872,30.8079 29.2145,30.8158 29.2992,30.8424 29.4452,30.9032 29.4868,30.9267 29.5368,30.9591 29.5595,30.9739 29.5963,30.9999 29.65,31.0334 29.7069,31.0688 29.7654,31.1007 29.9604,31.2389 30.0067,31.2723 30.0255,31.2854 30.0568,31.2434 30.1043,31.1869 30.1738,31.1779 30.2503,31.2024 30.2612,31.2339 30.2626,31.3003 30.3149,31.4133 30.3501,31.4068 30.3362,31.4204 30.3159,31.4678 30.3525,31.4586 30.3724,31.44 30.4059,31.4258 30.4398,31.417 30.4606,31.4172 30.5347,31.4318 30.5574,31.437 30.6516,31.4639 30.6857,31.4746 30.7306,31.4897 30.767,31.5032 30.8058,31.5137 30.916,31.5403 30.6639,31.4309 30.5282,31.3886 30.5045,31.3583 30.5542,31.3453 30.7039,31.3735 30.8623,31.3852 30.9241,31.4126 30.9671,31.445 31.0595,31.4552 31.086,31.4615 31.0667,31.5099 31.0254,31.53 30.9936,31.5356 30.9377,31.5484 30.9721,31.5618 31.0579,31.5665 31.0928,31.5624 31.148,31.5498 31.1854,31.539 31.2275,31.5254 31.2981,31.4989 31.3089,31.4942 31.393,31.4496 31.4801,31.4134 31.5161,31.407 31.5303,31.4068 31.5576,31.4082 31.626,31.4207 31.7145,31.4442 31.7679,31.4685 31.7989,31.4854 31.8304,31.4998 31.852,31.5038 31.8799,31.4948 31.9093,31.4698 31.9219,31.4405 31.9437,31.4107 31.9676,31.3813 31.9998,31.3473 32.0204,31.3352 32.0452,31.3258 32.0619,31.319 32.1609,31.256 32.1255,31.2655 32.0709,31.2927 32.0485,31.3085 32.0364,31.3214 32.0228,31.3214 31.9759,31.3454 31.9509,31.3675 31.9365,31.3981 31.8919,31.4781 31.8684,31.4925 31.8191,31.4794 31.7362,31.2424 31.757,31.2498 31.7957,31.2113 31.8859,31.1474 31.9139,31.167 31.9646,31.1827 31.9864,31.1809 32.0014,31.1588 31.9942,31.1402 31.9945,31.1085 32.0102,31.0941 32.0364,31.0478 32.1014,31.0394 32.1045,31.044 32.0997,31.0526 32.0958,31.0588 32.1503,31.0902 32.1881,31.0684 32.2114,31.0729 32.238,31.0897 32.2464,31.134 32.2568,31.1744 32.2324,31.2318 32.2145,31.235 32.2056,31.2364 32.173,31.2477 32.2146,31.2469 32.2342,31.2438 32.2875,31.2345 32.3603,31.18 32.4205,31.1258 32.439,31.1079 32.4575,31.0811 32.5101,31.0368 32.5572,31.0253 32.6275,31.0169 32.6694,30.999 32.7386,31.0114 32.9858,31.1192 33.0727,31.1575 33.1067,31.0668 33.1008,31.0236 33.163,31.0335 33.2082,31.0547 33.2671,31.0798 33.3691,31.1201 33.4112,31.107 33.4409,31.0928 33.486,31.0827 33.5405,31.0797 33.5604,31.079 33.593,31.081 33.6292,31.0852 33.7002,31.0986 33.7628,31.1142 33.8273,31.1303 33.888,31.1473 33.9414,31.1667 34.0027,31.191 34.0639,31.2179 34.1654,31.2814 34.1724,31.2883 34.1724,31.2883 19,2.0,Gaza Strip 34.1724,31.2883 34.2037,31.3149 34.2316,31.3388 34.3565,31.4541 34.4111,31.5146 34.438,31.5477 34.4459,31.5609 34.5142,31.5046 34.4952,31.4797 34.4685,31.4633 34.434,31.436 34.3442,31.3596 34.3201,31.3191 34.3268,31.2651 34.2896,31.2249 34.2233,31.1817 34.1947,31.2599 34.1724,31.2883 34.1724,31.2883 28,9.0,Japan 130.9017,30.7924 130.9151,30.769 130.9125,30.7134 130.9065,30.6672 130.9041,30.655 130.885,30.5984 130.7997,30.3566 130.7325,30.3203 130.7092,30.321 130.7017,30.3314 130.6921,30.3764 130.6932,30.4042 130.6967,30.4231 130.6997,30.4356 130.7139,30.4464 130.7344,30.4726 130.7614,30.5108 130.7774,30.5361 130.782,30.5491 130.7848,30.5642 130.778,30.592 130.7743,30.6441 130.8382,30.7551 130.8694,30.7966 130.8808,30.8048 130.8959,30.7992 130.9017,30.7924 130.9017,30.7924 25,9.0,Japan 130.3542,30.4092 130.3771,30.4086 130.4231,30.3906 130.4639,30.3715 130.4737,30.365 130.4986,30.3462 130.5017,30.3364 130.4921,30.2908 130.4872,30.2705 130.478,30.2518 130.4291,30.2099 130.3923,30.2032 130.3531,30.2025 130.3199,30.2073 130.2754,30.2171 130.2195,30.3156 130.2147,30.3334 130.2126,30.3437 130.2151,30.36 130.3044,30.4209 130.3172,30.4263 130.3415,30.4249 130.3505,30.4179 130.3542,30.4092 130.3542,30.4092 371,5.75,Nepal 88.0294,27.8349 88.039,27.8331 88.0749,27.8181 88.0736,27.7518 88.0353,27.6492 88.0072,27.5813 87.9802,27.5564 87.9435,27.5026 87.9339,27.4656 87.9215,27.2532 87.901,27.1931 87.897,27.1638 87.8979,27.1212 87.8818,27.0819 87.9221,27.0191 87.9599,27.0009 88.0053,26.9544 88.0613,26.8469 88.0814,26.7307 88.0789,26.696 88.0665,26.6554 88.0599,26.636 88.0085,26.5364 87.9891,26.5007 87.9947,26.4591 87.9779,26.4036 87.9075,26.3388 87.8348,26.3732 87.8148,26.3937 87.7954,26.4168 87.7815,26.4397 87.6791,26.4295 87.5746,26.3958 87.5382,26.3704 87.5308,26.3629 87.4416,26.3763 87.4181,26.3888 87.3737,26.4044 87.3431,26.4041 87.2875,26.3886 87.2571,26.372 87.158,26.3459 87.0585,26.3705 86.9728,26.4568 86.8929,26.5048 86.854,26.4962 86.8368,26.5015 86.7895,26.4708 86.7805,26.4476 86.7098,26.4072 86.6223,26.3908 86.5492,26.4271 86.3646,26.5166 86.2236,26.5779 86.0944,26.5581 86.0734,26.5782 86.028,26.5736 85.9945,26.589 85.9791,26.6034 85.9534,26.6243 85.9227,26.6333 85.8555,26.6182 85.8404,26.5978 85.7505,26.5431 85.6437,26.6129 85.619,26.644 85.6153,26.675 85.6171,26.7037 85.6202,26.7571 85.6007,26.7863 85.5211,26.8358 85.4587,26.8152 85.4304,26.7999 85.3982,26.7838 85.3433,26.7571 85.228,26.7072 85.2188,26.7063 85.2012,26.7095 85.1128,26.7332 85.0921,26.7452 85.0762,26.7683 84.8588,26.9057 84.7461,26.9654 84.6933,26.985 84.6722,26.9813 84.6445,26.9772 84.5986,26.991 84.5464,27.0101 84.5377,27.031 84.5517,27.064 84.571,27.1056 84.5765,27.1759 84.5714,27.2017 84.5444,27.261 84.5291,27.2808 84.4895,27.3094 84.3906,27.326 84.2865,27.3368 84.2215,27.3474 84.1895,27.3579 84.0391,27.4807 83.9431,27.4223 83.9113,27.4126 83.8277,27.4165 83.8145,27.4211 83.7636,27.4095 83.7645,27.3546 83.7507,27.3217 83.7182,27.3404 83.6941,27.3523 83.6696,27.3641 83.6405,27.378 83.5264,27.4289 83.5003,27.4384 83.4331,27.4423 83.3112,27.4422 83.2866,27.3805 83.2695,27.3446 83.2518,27.3255 83.2354,27.3118 83.2029,27.3056 83.1664,27.3144 83.1542,27.3407 83.1448,27.3595 83.0697,27.4162 83.0238,27.4188 82.9505,27.4177 82.922,27.4191 82.8615,27.4305 82.66,27.4727 82.6371,27.5253 82.6405,27.5507 82.6261,27.6087 82.611,27.6595 82.5946,27.6802 82.5516,27.6769 82.5107,27.6662 82.4919,27.6595 82.4616,27.6544 82.3729,27.6417 82.3459,27.6415 82.3232,27.6465 82.3002,27.6599 82.1984,27.7283 82.1723,27.7471 82.043,27.8331 81.9606,27.883 81.9375,27.8875 81.8939,27.891 81.8641,27.8818 81.8314,27.8563 81.7955,27.8238 81.6754,27.8795 81.6217,27.9248 81.5024,27.9878 81.3736,28.0532 81.2695,28.1345 81.1934,28.1325 81.1177,28.2931 81.089,28.3349 81.0842,28.3376 81.0621,28.3438 81.0345,28.351 80.9895,28.3618 80.9269,28.3713 80.8259,28.414 80.6007,28.5468 80.4809,28.6218 80.4372,28.6533 80.4149,28.6392 80.4019,28.6231 80.407,28.5891 80.3682,28.558 80.2836,28.5932 80.2131,28.6607 80.1465,28.7155 80.0474,28.7616 79.9581,28.7977 79.9488,28.866 79.954,28.8919 79.9662,28.917 80.0933,29.0957 80.1456,29.131 80.184,29.1728 80.1982,29.2459 80.2024,29.2761 80.1819,29.2874 80.1342,29.3902 80.1863,29.4501 80.2093,29.4657 80.242,29.4884 80.3046,29.5685 80.3124,29.6069 80.2926,29.6276 80.2802,29.6483 80.2712,29.7069 80.3116,29.7526 80.3392,29.7631 80.3788,29.7649 80.4329,29.8114 80.47,29.8766 80.491,29.9164 80.5211,29.9295 80.5551,29.9297 80.5743,29.9367 80.6393,29.9859 80.7692,30.1072 80.8382,30.1473 80.9202,30.1707 80.9392,30.1423 80.9687,30.0949 80.9911,30.0513 81.0144,29.9859 81.0559,29.9967 81.0945,29.9841 81.127,29.9786 81.148,29.9954 81.142,30.023 81.1733,30.0337 81.1933,30.0446 81.2753,30.1387 81.2873,30.2319 81.2853,30.2816 81.3029,30.3417 81.3208,30.3509 81.3415,30.3433 81.3608,30.3256 81.3881,30.3075 81.4401,30.2981 81.4449,30.3245 81.4549,30.3504 81.5244,30.3909 81.5489,30.3852 81.622,30.3585 81.7021,30.3297 81.747,30.3429 81.8452,30.33 82.0048,30.3006 82.0447,30.0866 82.0689,30.0355 82.1183,30.0416 82.3143,29.9768 82.4917,29.859 82.5454,29.8049 82.6695,29.7008 82.7648,29.6337 82.8008,29.6575 82.8913,29.6367 82.9106,29.6254 82.9525,29.5901 83.0131,29.5891 83.0573,29.6001 83.0836,29.5986 83.1497,29.5471 83.2466,29.4577 83.2712,29.4334 83.2696,29.4046 83.2728,29.3834 83.3066,29.3329 83.44,29.1564 83.498,29.132 83.5204,29.1334 83.528,29.137 83.5643,29.1309 83.5801,29.1515 83.5869,29.1739 83.6122,29.1964 83.6426,29.2102 83.8039,29.2571 83.8674,29.2644 84.0077,29.2285 84.0721,29.177 84.0717,29.1507 84.0506,29.1243 84.0532,29.0973 84.1312,29.0213 84.1239,28.9437 84.1283,28.8867 84.1356,28.8814 84.2176,28.8397 84.2797,28.8311 84.2965,28.8171 84.3213,28.7803 84.3501,28.7269 84.3771,28.702 84.4616,28.6805 84.527,28.6708 84.5991,28.6196 84.5939,28.5751 84.7137,28.5201 84.737,28.5125 84.8375,28.5101 84.9217,28.5718 84.9425,28.6024 84.9623,28.6095 84.997,28.6047 85.0851,28.5593 85.0719,28.4983 85.0252,28.4337 85.0037,28.3642 84.9937,28.2846 85.0011,28.2752 85.0302,28.2637 85.1269,28.2471 85.1738,28.2405 85.2666,28.232 85.287,28.2349 85.3039,28.2483 85.3269,28.2687 85.3488,28.2701 85.4731,28.2509 85.6108,28.2475 85.6321,28.2112 85.6701,28.1745 85.7099,28.1538 85.7367,28.142 85.7587,28.1359 85.7771,28.1173 85.841,27.9817 85.8655,27.8791 85.8947,27.855 85.9588,27.8569 85.9787,27.8599 86.0251,27.9041 86.0129,27.9496 85.9931,27.9955 85.9853,28.0554 86.0866,28.1267 86.1033,28.081 86.0857,28.0407 86.1118,27.9803 86.2407,27.9138 86.3399,27.8777 86.4062,27.909 86.4261,27.9286 86.4295,27.9929 86.4579,28.0691 86.4771,28.0817 86.5837,28.0801 86.6169,28.0693 86.6442,28.0508 86.6441,28.0246 86.648,27.9992 86.7918,27.9385 86.8352,27.9166 86.9206,27.9322 86.9745,27.8931 86.9847,27.8602 87.0293,27.8128 87.0805,27.7921 87.1936,27.7853 87.2167,27.7912 87.2964,27.8119 87.4239,27.8094 87.4779,27.7838 87.5131,27.7825 87.5476,27.7978 87.6076,27.7738 87.6383,27.782 87.6673,27.7939 87.6914,27.8129 87.7122,27.8387 87.736,27.8797 87.7595,27.8861 87.8636,27.859 87.8895,27.8548 87.9142,27.8575 87.9411,27.8673 87.9783,27.861 88.0294,27.8349 88.0294,27.8349 25,-6.0,United States -86.4465,30.3628 -86.5127,30.3657 -86.6378,30.3641 -86.7971,30.3385 -86.8794,30.3247 -86.9535,30.3121 -86.976,30.3061 -87.0621,30.2938 -87.0965,30.2885 -87.1375,30.2834 -87.1567,30.2869 -87.1703,30.2924 -87.1769,30.3008 -87.0317,30.3123 -86.9084,30.3368 -86.7777,30.3546 -86.6641,30.3692 -86.6503,30.371 -86.6215,30.3734 -86.5885,30.3747 -86.5185,30.3773 -86.4729,30.3763 -86.4152,30.3632 -86.4465,30.3628 -86.4465,30.3628 17,8.0,China 121.9282,30.267 121.9488,30.2802 121.9587,30.2849 122.0157,30.3015 122.0515,30.3057 122.0606,30.3006 122.0768,30.2771 122.0549,30.2092 122.0411,30.2042 122.0262,30.2055 121.9842,30.2164 121.9723,30.2211 121.9401,30.2375 121.9182,30.2513 121.9206,30.2611 121.9282,30.267 121.9282,30.267 22,8.0,China 121.8117,30.0329 121.8056,30.1052 121.8223,30.1128 121.8861,30.1068 121.9481,30.0989 122.0049,30.0863 122.1283,30.0341 122.1656,29.9874 122.1678,29.9766 122.1356,29.8992 122.1198,29.8979 122.098,29.9189 122.0881,29.9314 122.0789,29.9378 122.0175,29.9606 121.912,29.9817 121.9017,29.9815 121.8882,29.9759 121.8501,29.971 121.8117,30.023 121.8117,30.0329 121.8117,30.0329 82,3.0,Kuwait 47.8815,29.9842 47.889,29.9482 47.9203,29.831 47.9279,29.8072 47.944,29.7702 47.9639,29.7365 47.9979,29.6983 48.0258,29.681 48.0852,29.5828 48.1045,29.532 48.0871,29.5145 48.0374,29.5297 48.0243,29.5473 47.946,29.5965 47.9132,29.5976 47.894,29.5908 47.6465,29.3746 47.6457,29.3429 47.7596,29.2965 47.7923,29.2974 47.8001,29.2981 47.8201,29.3049 47.863,29.3291 47.9003,29.3517 47.9254,29.3522 47.944,29.335 47.9667,29.3121 48.0176,29.2219 48.0352,29.1798 48.0601,29.0704 48.084,28.9967 48.111,28.9457 48.1229,28.9288 48.2165,28.8043 48.298,28.7101 48.3171,28.6823 48.3184,28.6509 48.3126,28.6284 48.3541,28.5133 48.2402,28.5125 47.6273,28.5072 47.5565,28.5822 47.5414,28.6031 47.5135,28.6712 47.5152,28.701 47.5135,28.7379 47.5032,28.7645 47.4791,28.8184 47.4458,28.8907 47.402,28.9522 47.3987,28.9669 46.9361,29.0208 46.7398,29.0429 46.5277,29.0655 46.4874,29.0726 46.4979,29.089 46.5216,29.1107 46.5387,29.1234 46.575,29.146 46.5935,29.156 46.6299,29.1979 46.6546,29.2337 46.7153,29.3236 46.7674,29.4008 46.7984,29.4428 46.8633,29.5216 46.8836,29.5454 46.9206,29.6131 46.9869,29.7609 47.0335,29.8738 47.0526,29.9129 47.068,29.9412 47.0867,29.963 47.1091,29.9817 47.1431,29.9998 47.2896,30.0482 47.3352,30.0493 47.3751,30.0495 47.6615,30.0506 47.8731,29.9844 47.8815,29.9842 47.8815,29.9842 32,3.0,Kuwait 48.1263,29.9485 48.1367,29.9329 48.1458,29.9212 48.2172,29.8329 48.273,29.7658 48.2851,29.7488 48.2896,29.7385 48.2969,29.7116 48.2974,29.6987 48.2937,29.6801 48.2863,29.6667 48.2771,29.6537 48.2675,29.6419 48.2531,29.6268 48.2161,29.5909 48.2038,29.5809 48.1904,29.5719 48.1808,29.5666 48.1661,29.5622 48.1405,29.5614 48.1265,29.563 48.1141,29.5696 48.1056,29.5793 48.1001,29.5879 48.0179,29.74 48.0839,29.8965 48.0527,29.9418 48.0605,29.9501 48.0936,29.959 48.1134,29.9555 48.1263,29.9485 48.1263,29.9485 15,8.0,China 121.9653,29.6531 121.9426,29.6819 121.9079,29.6919 121.8759,29.6804 121.8729,29.6947 121.8776,29.7062 121.9005,29.7431 121.9514,29.7555 122.0237,29.6648 122.0267,29.6546 122.0213,29.6353 122.0104,29.6208 121.9695,29.6325 121.9653,29.6531 121.9653,29.6531 16,-6.0,United States -91.6051,29.5257 -91.6641,29.4549 -91.7229,29.4496 -91.8683,29.518 -91.908,29.5382 -91.9173,29.5483 -91.9149,29.5586 -91.9037,29.5707 -91.8867,29.5848 -91.8038,29.6114 -91.7914,29.6121 -91.7488,29.6047 -91.7373,29.602 -91.6195,29.5439 -91.6051,29.5257 -91.6051,29.5257 41,-8.0,Mexico -112.9932,28.9855 -113.0358,29.003 -113.0613,29.0155 -113.0847,29.0295 -113.0939,29.0355 -113.2104,29.1382 -113.2635,29.187 -113.3778,29.3124 -113.445,29.393 -113.4518,29.404 -113.4535,29.4193 -113.4353,29.5529 -113.3806,29.5388 -113.353,29.5247 -113.3225,29.5027 -113.2603,29.4512 -113.2496,29.4372 -113.2266,29.3901 -113.2191,29.3628 -113.2238,29.3476 -113.2297,29.3387 -113.2341,29.3287 -113.2378,29.311 -113.2361,29.2897 -113.221,29.2818 -113.163,29.2677 -113.1298,29.2659 -113.1139,29.2652 -113.0491,29.1958 -113.0441,29.1209 -113.0429,29.1087 -113.0402,29.0976 -113.0214,29.054 -113.0122,29.0449 -112.9984,29.0395 -112.9786,29.0242 -112.9804,29.0073 -112.9841,28.9968 -112.9891,28.9872 -112.9932,28.9855 -112.9932,28.9855 12,-6.0,United States -94.7191,29.2367 -94.7342,29.2222 -94.747,29.2136 -94.7562,29.2078 -94.9889,29.069 -94.9772,29.0879 -94.9681,29.097 -94.833,29.2052 -94.6986,29.3059 -94.6618,29.2755 -94.7191,29.2367 -94.7191,29.2367 26,2.0,Spain -13.7549,28.8056 -13.8015,28.8238 -13.8342,28.874 -13.8142,28.9615 -13.8076,28.977 -13.7735,29.0199 -13.7309,29.0479 -13.6191,29.0905 -13.5731,29.1062 -13.4551,29.2097 -13.4248,29.199 -13.4039,29.1728 -13.4094,29.1326 -13.4514,28.9813 -13.466,28.9628 -13.4899,28.9463 -13.5241,28.9287 -13.5921,28.8942 -13.6389,28.8811 -13.664,28.887 -13.6795,28.8845 -13.7044,28.8759 -13.7151,28.8679 -13.7514,28.8163 -13.7549,28.8056 -13.7549,28.8056 24,-7.0,Mexico -112.151,28.7243 -112.159,28.7247 -112.2377,28.7462 -112.3003,28.7744 -112.3929,28.8252 -112.4043,28.8326 -112.4179,28.8487 -112.3312,29.1182 -112.3174,29.1442 -112.3112,29.1535 -112.3017,29.1618 -112.2112,29.1972 -112.2001,29.201 -112.1447,29.205 -112.1208,29.1898 -112.0667,29.0316 -112.0576,29.0 -112.0548,28.9629 -112.0557,28.9495 -112.0579,28.937 -112.1049,28.748 -112.1165,28.7414 -112.151,28.7243 -112.151,28.7243 26,-8.0,Mexico -118.1513,28.8848 -118.1526,28.904 -118.1614,28.9398 -118.1796,28.9911 -118.1844,29.0004 -118.1942,29.0191 -118.2021,29.0258 -118.2316,29.0408 -118.2396,29.0477 -118.2473,29.0615 -118.2509,29.1181 -118.2359,29.1404 -118.2257,29.1486 -118.2116,29.1534 -118.1896,29.1574 -118.153,29.1612 -118.0967,29.0423 -118.0873,29.0095 -118.0851,28.9979 -118.0845,28.9177 -118.0918,28.8898 -118.1127,28.853 -118.1362,28.8493 -118.1492,28.849 -118.1513,28.8848 -118.1513,28.8848 28,2.0,Spain -17.7601,28.4973 -17.7637,28.4804 -17.7725,28.4655 -17.8105,28.4214 -17.8236,28.4311 -17.8311,28.4381 -17.8387,28.4475 -17.8473,28.4746 -17.8497,28.505 -17.853,28.5229 -17.9382,28.6784 -17.9532,28.6981 -17.9638,28.7041 -17.9795,28.7178 -17.9797,28.7322 -17.9745,28.7419 -17.9492,28.7772 -17.924,28.793 -17.8833,28.8161 -17.7713,28.8116 -17.7584,28.8067 -17.7419,28.7934 -17.7356,28.785 -17.6935,28.7112 -17.7159,28.5757 -17.7358,28.5306 -17.7601,28.4973 -17.7601,28.4973 57,2.0,Spain -14.3142,28.0133 -14.3271,28.0142 -14.3674,28.0183 -14.4255,28.0378 -14.3955,28.0652 -14.3347,28.0895 -14.2925,28.1102 -14.2426,28.1447 -14.2345,28.1512 -14.1924,28.1947 -14.1856,28.2128 -14.1846,28.2264 -14.1866,28.2516 -14.1839,28.263 -14.175,28.2903 -14.121,28.4025 -14.0639,28.4836 -14.0325,28.5329 -14.0008,28.6044 -13.9907,28.6311 -13.9895,28.6441 -13.9917,28.662 -13.9872,28.6778 -13.9328,28.7066 -13.9177,28.7136 -13.9011,28.719 -13.8701,28.7241 -13.8498,28.7175 -13.8262,28.6948 -13.8148,28.6739 -13.8101,28.6551 -13.8033,28.5907 -13.8014,28.5591 -13.8022,28.5453 -13.8082,28.5034 -13.8429,28.3507 -13.8665,28.2943 -13.886,28.2497 -13.9047,28.2175 -13.9117,28.2094 -13.9239,28.1996 -13.9333,28.1929 -13.9931,28.1839 -14.0121,28.1817 -14.0316,28.1806 -14.0505,28.1767 -14.0796,28.1691 -14.1819,28.1379 -14.1934,28.1277 -14.2074,28.1126 -14.2218,28.0902 -14.2285,28.0824 -14.2632,28.0513 -14.2987,28.02 -14.3086,28.0152 -14.3142,28.0133 -14.3142,28.0133 36,-5.0,United States -80.4953,28.5777 -80.483,28.5588 -80.4618,28.5226 -80.4481,28.4932 -80.431,28.4177 -80.4556,28.4007 -80.4927,28.3705 -80.4935,28.3075 -80.4935,28.2427 -80.4935,28.215 -80.4915,28.1945 -80.4868,28.1634 -80.4826,28.1423 -80.4765,28.111 -80.4688,28.0798 -80.4574,28.0483 -80.4329,28.0025 -80.3925,27.9375 -80.3712,27.9047 -80.3603,27.8871 -80.3424,27.8434 -80.3429,27.8333 -80.4037,27.9237 -80.4572,28.0133 -80.489,28.0836 -80.4967,28.1062 -80.503,28.1297 -80.516,28.1865 -80.5174,28.2964 -80.5127,28.3711 -80.5008,28.3932 -80.4875,28.4372 -80.4802,28.47 -80.4805,28.5172 -80.4953,28.5777 -80.4953,28.5777 22,-5.0,United States -80.5641,28.2304 -80.6193,28.3475 -80.6359,28.4464 -80.6323,28.4932 -80.6273,28.5074 -80.5911,28.543 -80.5387,28.5657 -80.5206,28.5581 -80.5097,28.5431 -80.5059,28.5285 -80.5064,28.5165 -80.5113,28.502 -80.5226,28.4806 -80.5293,28.4687 -80.5357,28.455 -80.5417,28.4417 -80.5499,28.4156 -80.5646,28.3419 -80.5561,28.2873 -80.5652,28.2491 -80.5641,28.2304 -80.5641,28.2304 40,2.0,Spain -16.6495,27.9528 -16.6748,27.9984 -16.7032,28.0377 -16.7304,28.0705 -16.7418,28.081 -16.7674,28.1118 -16.811,28.166 -16.8874,28.3146 -16.8221,28.3412 -16.8053,28.3429 -16.7942,28.3392 -16.7738,28.3324 -16.7286,28.3317 -16.6721,28.3376 -16.5422,28.36 -16.4718,28.3841 -16.3973,28.4531 -16.3926,28.4623 -16.388,28.4795 -16.3818,28.4876 -16.357,28.5039 -16.2526,28.5381 -16.1358,28.5402 -16.1352,28.4702 -16.1563,28.4608 -16.1967,28.4418 -16.206,28.4367 -16.214,28.4298 -16.32,28.3385 -16.3281,28.3286 -16.373,28.1904 -16.3967,28.114 -16.4532,28.0494 -16.5078,27.9908 -16.5252,27.9891 -16.5398,27.9902 -16.5532,27.988 -16.6329,27.9626 -16.6495,27.9528 -16.6495,27.9528 1157,6.5,Myanmar (Burma) 92.4872,21.9577 92.4919,21.9587 92.562,22.0007 92.5818,22.0694 92.5921,22.1298 92.6847,22.0844 92.7478,22.0279 92.7618,22.0094 92.7708,21.9892 92.8103,21.9806 92.8454,22.0002 92.8764,22.0242 92.9017,22.0903 92.9323,22.1797 92.9568,22.1868 92.9912,22.1807 93.0148,22.1612 93.0408,22.1633 93.0832,22.24 93.0822,22.292 93.0778,22.3321 93.0746,22.3595 93.0615,22.4164 93.0269,22.4406 93.0045,22.5053 92.9821,22.6401 92.9776,22.6891 92.9869,22.7762 93.0025,22.8455 93.0247,22.9274 93.0109,22.9885 93.0241,23.0212 93.0691,23.0336 93.0946,23.0255 93.1109,22.9922 93.1318,22.9814 93.159,22.9788 93.19,22.992 93.2333,23.0453 93.2718,23.2055 93.2558,23.3317 93.2833,23.3971 93.3086,23.5759 93.3063,23.636 93.2984,23.6783 93.2674,23.8213 93.2346,23.9268 93.2125,23.9537 93.211,24.0093 93.2208,24.0448 93.2504,24.0641 93.2711,24.0601 93.2906,24.0478 93.3046,24.017 93.3569,23.9442 93.3834,23.9355 93.4122,23.9375 93.4764,23.9447 93.4931,23.9671 93.5115,23.9897 93.5726,23.9884 93.6488,23.9737 93.6672,23.9498 93.6833,23.922 93.7055,23.9086 93.7412,23.9155 93.7929,23.9291 93.9141,23.893 93.9767,23.8598 94.0172,23.817 94.0304,23.8248 94.1022,23.9841 94.1246,24.0539 94.1522,24.1524 94.1957,24.2587 94.2409,24.3445 94.3534,24.5542 94.3817,24.5759 94.4787,24.6975 94.4991,24.7327 94.5492,24.8399 94.6149,25.004 94.6136,25.095 94.601,25.112 94.5664,25.1272 94.5428,25.1357 94.4965,25.1426 94.4739,25.1562 94.4582,25.1812 94.456,25.2053 94.4621,25.2606 94.5083,25.3734 94.5413,25.3996 94.5488,25.4193 94.5666,25.4373 94.6195,25.4665 94.6479,25.463 94.6731,25.4715 94.7643,25.55 94.8752,25.7034 94.9072,25.7964 94.9458,25.9172 94.9711,25.9315 94.9962,25.9545 95.0135,25.9728 95.0433,26.0078 95.0536,26.0372 94.9918,26.109 94.9586,26.2051 94.945,26.2824 94.9443,26.4461 95.0232,26.5863 95.1161,26.6466 95.1316,26.6497 95.1395,26.6203 95.2659,26.6551 95.2988,26.6687 95.3232,26.6826 95.3548,26.7227 95.3711,26.7615 95.385,26.7831 95.4035,26.7947 95.4242,26.7966 95.4837,26.793 95.5485,26.8682 95.6831,26.9726 95.7055,26.9781 95.7505,26.9829 95.7891,27.0006 95.8129,27.0216 95.8388,27.0501 95.8583,27.0802 95.8702,27.1065 95.8879,27.1389 95.9063,27.1571 95.9747,27.2015 96.0306,27.2255 96.0675,27.2396 96.1045,27.2455 96.3023,27.2742 96.3726,27.2718 96.4975,27.3353 96.6014,27.335 96.6393,27.3254 96.6596,27.3164 96.6969,27.2912 96.7306,27.2325 96.7394,27.1819 96.7578,27.1526 96.7808,27.1384 96.836,27.117 96.8739,27.1036 96.9349,27.0627 97.0107,27.057 97.0343,27.0979 96.9201,27.2564 96.9065,27.2722 96.8768,27.2982 96.844,27.3356 96.7788,27.4266 96.7616,27.5692 96.7656,27.5888 96.8076,27.6314 96.879,27.6869 96.9217,27.7188 96.9952,27.7609 97.2357,27.9098 97.2549,27.9601 97.2343,28.0125 97.1915,28.056 97.2088,28.1348 97.2233,28.1914 97.2347,28.2133 97.2901,28.2634 97.3199,28.2606 97.3433,28.2661 97.3571,28.3058 97.3707,28.3854 97.4328,28.5145 97.5799,28.4872 97.5958,28.4696 97.6107,28.4248 97.6174,28.3888 97.6785,28.3141 97.7109,28.3236 97.7269,28.3405 97.7759,28.3471 97.8938,28.2378 97.8899,28.1841 98.0096,28.1247 98.0186,28.1174 98.0298,28.0897 98.0199,27.977 98.0695,27.8089 98.1038,27.7206 98.1369,27.666 98.1655,27.6017 98.1766,27.5426 98.1935,27.5093 98.221,27.4982 98.2502,27.5022 98.2805,27.5262 98.2978,27.56 98.2993,27.6019 98.3322,27.6417 98.4065,27.6199 98.5192,27.5746 98.5701,27.4991 98.559,27.4388 98.5754,27.3492 98.6051,27.3327 98.6087,27.2913 98.5852,27.2229 98.5668,27.1981 98.5646,27.1775 98.5842,27.1026 98.6119,26.9755 98.6338,26.864 98.6511,26.7618 98.6518,26.6098 98.649,26.5762 98.6196,26.3967 98.6005,26.3335 98.5778,26.2185 98.6048,26.1557 98.5823,26.1033 98.5531,26.0771 98.5294,26.071 98.5213,26.0914 98.5225,26.1186 98.4651,26.1084 98.4435,26.0961 98.4493,26.0542 98.4798,25.9601 98.5294,25.9248 98.5882,25.8635 98.5843,25.8271 98.5026,25.7745 98.4576,25.795 98.4151,25.8161 98.3571,25.7678 98.3524,25.7355 98.313,25.6624 98.2579,25.5632 98.2362,25.5409 98.1825,25.5238 98.1022,25.5646 98.0658,25.5866 98.0423,25.5426 98.0432,25.5217 98.0106,25.382 97.9997,25.3615 97.9412,25.2824 97.8205,25.1879 97.7847,25.1838 97.7613,25.2191 97.7279,25.2389 97.7032,25.2226 97.6905,25.1809 97.6818,25.1422 97.6654,25.1094 97.6336,25.0633 97.6018,25.0369 97.5995,24.9537 97.6133,24.891 97.5662,24.8068 97.5482,24.795 97.4557,24.7345 97.4298,24.7125 97.4377,24.6886 97.4455,24.6393 97.439,24.5376 97.434,24.5097 97.4205,24.4495 97.5425,24.4149 97.59,24.348 97.6369,24.2333 97.626,24.1344 97.6141,24.1083 97.5991,24.0874 97.5725,24.0665 97.5221,24.0262 97.4154,23.9218 97.4256,23.9035 97.4594,23.8945 97.512,23.8619 97.5237,23.8425 97.5282,23.8251 97.57,23.8572 97.6426,23.8962 97.743,23.9536 97.7743,23.9864 97.7902,24.0 97.9208,24.0559 97.9416,24.0623 98.065,24.0926 98.0977,24.0985 98.3232,24.108 98.3907,24.1041 98.4235,24.0976 98.4633,24.0683 98.7282,24.1036 98.7511,24.1192 98.767,24.1333 98.7815,24.0982 98.7738,24.0747 98.7459,24.0517 98.7251,24.0358 98.6316,23.9713 98.6039,23.959 98.5564,23.944 98.5645,23.79 98.6941,23.7343 98.7298,23.6115 98.6838,23.5155 98.7049,23.4543 98.7395,23.4596 98.7646,23.4468 98.781,23.417 98.7923,23.3862 98.8017,23.3013 98.7984,23.2583 98.8047,23.1635 98.9811,23.0781 99.0788,23.0744 99.1106,23.0807 99.1349,23.092 99.2346,23.1084 99.388,23.0565 99.4415,22.9109 99.4281,22.8924 99.3914,22.8871 99.3196,22.8445 99.2218,22.6848 99.2635,22.5649 99.262,22.4819 99.2536,22.4618 99.2401,22.4443 99.2259,22.4293 99.2083,22.4118 99.1707,22.3799 99.0457,22.1314 99.1191,22.088 99.2444,22.0689 99.2875,22.0817 99.3124,22.0969 99.3433,22.1111 99.4657,22.0843 99.5372,22.0628 99.563,22.0506 99.5866,22.0151 99.6215,22.0493 99.7693,22.0359 99.8346,22.0257 99.8677,21.9398 99.852,21.8929 99.8364,21.8677 99.8232,21.8321 99.8194,21.797 99.8551,21.7012 99.8757,21.6756 99.9613,21.6621 100.0186,21.6102 99.9848,21.5611 99.9978,21.4907 100.0448,21.4371 100.0832,21.4114 100.1602,21.4529 100.2226,21.5008 100.2503,21.5141 100.3037,21.5055 100.3334,21.4708 100.3543,21.4381 100.4492,21.4284 100.5167,21.4528 100.5981,21.4871 100.6768,21.5641 100.6847,21.5838 100.7123,21.6226 100.9751,21.7448 100.9967,21.7463 101.0431,21.6106 101.0455,21.5796 101.0245,21.5486 101.0383,21.5124 101.0033,21.467 100.9771,21.4416 100.8778,21.3745 100.7392,21.2928 100.716,21.2804 100.6948,21.2757 100.6512,21.2771 100.604,21.2842 100.58,21.2039 100.5766,21.1589 100.549,21.1044 100.5019,21.0312 100.4802,21.015 100.4481,21.0085 100.4243,21.0027 100.3982,20.9287 100.3991,20.8532 100.4213,20.8447 100.4529,20.8535 100.4878,20.8654 100.5197,20.8618 100.5178,20.8385 100.4954,20.8172 100.4822,20.8106 100.4382,20.7905 100.4037,20.7814 100.3744,20.7827 100.3397,20.7897 100.3193,20.795 100.2495,20.803 100.1686,20.7484 100.1367,20.726 100.0875,20.6699 100.0508,20.6051 100.0275,20.5218 100.0195,20.4665 100.004,20.3786 99.9912,20.353 99.9699,20.326 99.963,20.3259 99.8984,20.3606 99.8645,20.3932 99.8594,20.4129 99.8412,20.4317 99.7525,20.4062 99.7302,20.382 99.7132,20.3413 99.6945,20.3178 99.667,20.307 99.5491,20.2888 99.49,20.3005 99.4077,20.3274 99.3816,20.2861 99.434,20.1802 99.4189,20.1312 99.395,20.1231 99.3671,20.0962 99.3317,20.0744 99.2115,20.0447 99.1794,20.0545 99.1496,20.0791 99.1234,20.0946 99.0728,20.1042 99.0441,20.1041 98.9588,20.076 98.922,20.0205 98.9027,19.9022 98.9098,19.8687 98.9181,19.8352 98.9128,19.8136 98.8802,19.7624 98.8259,19.7489 98.7711,19.7542 98.7181,19.7931 98.5296,19.7201 98.4011,19.6877 98.3567,19.6718 98.2715,19.6737 98.2181,19.6717 98.1228,19.668 98.0962,19.7043 98.0581,19.7361 98.0204,19.7612 97.9555,19.7871 97.9305,19.7829 97.9099,19.692 97.9207,19.6501 97.9169,19.6258 97.8455,19.5798 97.7887,19.553 97.7502,19.5484 97.7475,19.4999 97.6737,19.3771 97.6839,19.3383 97.7154,19.2685 97.7232,19.1856 97.7218,19.1463 97.7133,19.0774 97.6655,19.0471 97.6286,19.0105 97.5615,18.9111 97.6014,18.8684 97.6278,18.8464 97.6632,18.6577 97.6616,18.6144 97.6603,18.5838 97.6573,18.5517 97.6333,18.5518 97.5346,18.5414 97.5087,18.5347 97.4334,18.4864 97.3887,18.4754 97.3286,18.4758 97.2505,18.5376 97.2445,18.5588 97.2361,18.5544 97.2293,18.5215 97.2498,18.501 97.2757,18.4729 97.3195,18.3901 97.3281,18.3704 97.3322,18.35 97.3328,18.3165 97.3799,18.259 97.4011,18.2461 97.4207,18.2551 97.4363,18.2992 97.4679,18.3064 97.5002,18.2944 97.5252,18.2602 97.5052,18.2324 97.5027,18.2051 97.5345,18.1549 97.569,18.1084 97.6328,17.9549 97.6258,17.9348 97.5888,17.9082 97.5694,17.8479 97.6602,17.6838 97.6759,17.6645 97.7328,17.6038 97.8057,17.5493 97.8505,17.5089 97.9346,17.3963 98.0007,17.2947 98.061,17.2386 98.0871,17.2168 98.1544,17.1549 98.1862,17.1217 98.2564,17.0317 98.2823,17.0336 98.3051,17.0345 98.3431,16.9967 98.3927,16.9223 98.4254,16.8649 98.4316,16.836 98.3882,16.7634 98.3619,16.7202 98.4043,16.6666 98.4453,16.6123 98.5436,16.4417 98.55,16.3637 98.5731,16.265 98.5962,16.2576 98.6704,16.3349 98.709,16.3841 98.7463,16.4202 98.8026,16.3769 98.7975,16.2433 98.7397,16.123 98.6943,16.087 98.6713,16.1006 98.581,16.1112 98.5614,16.1027 98.5136,16.0283 98.4972,15.9479 98.4476,15.7051 98.4516,15.681 98.4583,15.6444 98.4534,15.6266 98.4479,15.5901 98.454,15.538 98.4598,15.5157 98.4752,15.4601 98.479,15.4353 98.4763,15.3996 98.4721,15.3655 98.4647,15.3408 98.4458,15.3177 98.4351,15.3401 98.3836,15.3704 98.307,15.3435 98.3036,15.267 98.2808,15.2543 98.1177,15.2041 98.0888,15.2098 98.0865,15.1877 98.0847,15.0584 98.0998,14.9773 98.1185,14.9493 98.1359,14.9116 98.1395,14.8823 98.1315,14.8576 98.1462,14.7952 98.2099,14.6986 98.2771,14.6351 98.3024,14.62 98.3278,14.5952 98.3527,14.562 98.4046,14.4707 98.4259,14.4308 98.4555,14.368 98.4999,14.3061 98.6451,14.2016 98.6928,14.1694 98.7722,14.1156 98.8247,14.0854 98.8593,14.0636 98.889,13.9953 98.9221,13.9191 99.0156,13.7565 99.0603,13.7126 99.0567,13.65 99.0555,13.6195 99.0635,13.5628 99.0751,13.5265 99.0969,13.4533 99.1037,13.3973 99.1014,13.2202 99.0982,13.1967 99.091,13.1889 99.0422,13.1833 99.0126,13.1645 99.0002,13.0466 99.1273,12.7206 99.1938,12.6512 99.3246,12.5603 99.3173,12.485 99.3361,12.3175 99.3444,12.2849 99.3886,12.1749 99.4591,12.1251 99.4524,12.0884 99.4458,12.0023 99.4738,11.8714 99.5181,11.8199 99.5468,11.8132 99.5277,11.7289 99.4498,11.6175 99.3554,11.5555 99.2486,11.3375 99.2151,11.2662 99.1561,11.1643 99.145,11.147 99.1041,11.0869 99.0579,11.03 99.0351,11.018 99.0191,11.0119 99.0017,11.001 98.94,10.9459 98.8265,10.8101 98.7894,10.7645 98.76,10.7613 98.7162,10.7201 98.6766,10.6656 98.6669,10.6099 98.6886,10.5831 98.7161,10.5083 98.6878,10.4449 98.6632,10.4211 98.6512,10.3983 98.6408,10.3666 98.6348,10.337 98.6005,10.2536 98.5718,10.1847 98.4922,10.0482 98.4438,9.9757 98.4186,10.0018 98.3994,10.1458 98.4029,10.2253 98.4252,10.3372 98.4036,10.4081 98.3893,10.4271 98.3485,10.6629 98.3528,10.7169 98.3924,10.7145 98.4186,10.6848 98.4561,10.7155 98.5192,10.834 98.6008,10.9042 98.6102,10.9439 98.6072,10.9647 98.6021,10.9805 98.5884,11.1247 98.6156,11.1497 98.6287,11.1678 98.6492,11.2556 98.6218,11.314 98.6076,11.3397 98.5931,11.3623 98.6127,11.546 98.6379,11.6619 98.7204,11.6953 98.7741,11.6844 98.7399,11.7196 98.6756,11.754 98.5983,11.6843 98.5808,11.6636 98.5494,11.676 98.5002,11.7107 98.4891,11.7361 98.4964,11.7913 98.5536,11.903 98.6101,11.9508 98.6111,12.0007 98.5904,12.0312 98.5448,12.1551 98.6002,12.1858 98.5956,12.2107 98.5764,12.2284 98.5272,12.2107 98.4874,12.1805 98.4397,12.1954 98.4237,12.2409 98.4578,12.2812 98.5287,12.291 98.5734,12.3026 98.5931,12.3264 98.569,12.3563 98.5345,12.3719 98.5183,12.3843 98.4945,12.4072 98.4944,12.4549 98.5108,12.5443 98.5383,12.5942 98.5698,12.6766 98.5241,12.8575 98.5102,12.8736 98.4826,12.9014 98.473,13.0759 98.4721,13.1395 98.4686,13.1635 98.4127,13.2215 98.381,13.2416 98.3627,13.2701 98.3464,13.3432 98.3369,13.3929 98.3175,13.4614 98.2916,13.5062 98.211,13.6187 98.1739,13.6688 98.139,13.763 98.1361,13.8436 98.1209,13.9373 98.0996,14.0102 98.0726,14.0392 98.0664,14.0099 98.0748,13.9223 98.0829,13.8794 98.0857,13.6469 98.065,13.5199 98.0286,13.523 97.9701,13.7462 97.9656,13.774 97.9835,13.7831 97.9906,13.8904 97.9704,14.0326 97.9736,14.1641 97.9539,14.1881 97.9218,14.2348 97.8977,14.2752 97.8681,14.3423 97.7623,14.6569 97.7391,14.7011 97.7129,14.7722 97.682,14.8655 97.6832,14.9052 97.6953,15.0878 97.6953,15.1356 97.6822,15.1686 97.6596,15.1896 97.6266,15.2353 97.619,15.3138 97.6199,15.3417 97.6636,15.4096 97.6483,15.4937 97.6087,15.7535 97.6078,15.8292 97.5928,15.8675 97.5766,15.8929 97.5246,15.9291 97.478,15.9846 97.4575,16.0275 97.4531,16.0472 97.4762,16.0695 97.4983,16.0964 97.5319,16.2386 97.5338,16.2592 97.5212,16.2914 97.5079,16.32 97.5038,16.343 97.5055,16.4057 97.518,16.4722 97.5642,16.5244 97.62,16.5425 97.6136,16.549 97.5866,16.5538 97.5485,16.5316 97.4591,16.5148 97.3915,16.5178 97.2901,16.504 97.2613,16.4767 97.2409,16.5073 97.0877,16.826 97.0975,16.8817 97.0691,16.8809 97.0479,17.0367 97.0333,17.1048 96.9445,17.2328 96.894,17.2737 96.8523,17.3006 96.7946,17.3457 96.7779,17.363 96.7611,17.4304 96.7256,17.3858 96.7625,17.3251 96.7473,17.2222 96.7275,17.1719 96.7444,17.1274 96.7541,17.1091 96.7654,17.0926 96.7833,17.0647 96.7958,17.0176 96.7551,16.9037 96.7215,16.9004 96.6913,16.8856 96.6961,16.8767 96.701,16.8743 96.7268,16.8522 96.7303,16.8242 96.6789,16.7083 96.6617,16.6852 96.647,16.6691 96.5663,16.5894 96.5036,16.5357 96.4804,16.5205 96.3855,16.4897 96.3498,16.4827 96.2938,16.4801 96.2618,16.484 96.1822,16.5327 96.1491,16.5792 96.1134,16.6826 96.1063,16.7272 96.1206,16.7557 96.1414,16.767 96.1609,16.785 96.1264,16.785 96.0804,16.7478 96.084,16.706 96.0915,16.6637 96.1127,16.5699 96.1359,16.5221 96.1554,16.4876 96.1884,16.444 96.1529,16.3714 96.0674,16.3291 95.9695,16.3339 95.8918,16.3649 95.9546,16.3197 95.9576,16.2967 95.9069,16.2377 95.8538,16.1977 95.8244,16.1984 95.7725,16.2193 95.6387,16.1263 95.6179,16.0973 95.5756,16.0228 95.574,15.9873 95.5705,15.9626 95.5592,15.9437 95.5228,15.9002 95.5062,15.8826 95.4051,15.78 95.3792,15.7583 95.3358,15.726 95.3148,15.7122 95.2799,15.6952 95.1784,15.7088 95.1646,15.7725 95.1657,15.8159 95.1876,15.8363 95.2051,15.8562 95.2461,15.9512 95.2516,15.974 95.2531,16.0252 95.2465,16.1233 95.2208,16.1044 95.2124,16.0857 95.2314,16.0532 95.2359,16.0289 95.2354,16.0048 95.2308,15.9776 95.2159,15.9468 95.1716,15.8732 95.1443,15.8453 95.1252,15.8581 95.1518,15.9327 95.1599,15.9821 95.1217,15.9231 95.1067,15.8697 95.1033,15.8446 95.1121,15.8064 95.1039,15.7688 95.0601,15.7595 95.0273,15.7745 95.0076,15.8071 94.9872,15.97 94.9884,16.0109 94.9941,16.0444 95.0151,16.0692 95.0511,16.0909 95.0798,16.0944 95.1104,16.1012 95.0664,16.1186 95.0234,16.1191 94.9767,16.0798 94.9538,16.0354 94.9561,15.9832 94.9611,15.9596 94.9597,15.9228 94.9389,15.8205 94.9271,15.7908 94.847,15.7357 94.7349,15.7645 94.7419,15.8705 94.7225,15.93 94.7741,15.9998 94.7681,16.0305 94.7575,16.0763 94.7481,16.1125 94.7594,16.1337 94.7877,16.1661 94.8277,16.1777 94.8525,16.1902 94.875,16.218 94.7821,16.1874 94.7657,16.1728 94.7478,16.1443 94.7328,16.1107 94.7374,16.043 94.7424,16.0151 94.7268,15.9757 94.6145,15.8433 94.5974,15.8298 94.5843,15.8249 94.566,15.825 94.5441,15.8332 94.4996,15.8683 94.4932,15.8994 94.525,15.9254 94.5529,15.9372 94.579,15.956 94.6062,15.9833 94.661,16.0858 94.6784,16.1306 94.6472,16.122 94.6151,16.0653 94.6048,16.0343 94.5977,15.9998 94.5094,15.93 94.4786,15.9152 94.4509,15.9208 94.4489,15.9414 94.4661,15.964 94.4912,15.987 94.5079,16.0042 94.5234,16.0221 94.5367,16.042 94.5556,16.076 94.5677,16.1058 94.5735,16.1717 94.5293,16.3196 94.5029,16.3194 94.4436,16.2527 94.424,16.2759 94.3991,16.265 94.4048,16.2356 94.4014,16.1831 94.3945,16.1617 94.3193,16.0475 94.2145,15.9676 94.1383,15.9413 94.0894,16.0098 94.1198,16.3327 94.1986,16.5041 94.2326,16.5342 94.2927,16.7802 94.2809,16.8249 94.2966,16.8758 94.3411,16.9468 94.4115,17.1544 94.3978,17.1967 94.4364,17.2975 94.4489,17.3955 94.4543,17.4433 94.4558,17.4825 94.498,17.5278 94.4779,17.5955 94.4683,17.6141 94.4294,17.6885 94.3798,17.8133 94.3528,17.9831 94.3734,18.0054 94.3752,18.0448 94.2692,18.3425 94.2281,18.3761 94.1395,18.5138 94.1242,18.7167 94.0262,18.8398 94.0062,18.7902 93.9242,18.8261 93.9149,18.8778 93.9266,18.9429 93.9438,19.0307 93.9242,19.0566 93.9129,19.1221 93.9277,19.1609 93.9338,19.1803 93.9371,19.2001 93.9265,19.2199 93.9192,19.1919 93.9117,19.1732 93.8821,19.1283 93.8557,19.1222 93.8341,19.1309 93.7844,19.1849 93.8334,19.0544 93.8712,18.9383 93.857,18.9002 93.8283,18.8414 93.8051,18.8433 93.7403,18.8811 93.5891,18.9935 93.5543,19.0457 93.5284,19.106 93.4572,19.1973 93.3858,19.2853 93.3698,19.3125 93.3644,19.3385 93.37,19.3647 93.3854,19.3896 93.4106,19.4064 93.4338,19.4068 93.4972,19.3792 93.5239,19.3326 93.5245,19.3124 93.5545,19.2744 93.6283,19.228 93.6713,19.2114 93.7048,19.2095 93.7284,19.219 93.7604,19.2344 93.7823,19.2516 93.8037,19.2723 93.835,19.3036 93.8643,19.3409 93.8717,19.4355 93.7957,19.4553 93.707,19.5268 93.6193,19.6012 93.5707,19.6974 93.4866,19.6954 93.4859,19.7637 93.5484,19.8549 93.5789,19.8655 93.6099,19.8591 93.6281,19.8945 93.6104,19.9104 93.4968,19.8805 93.4729,19.8573 93.4418,19.8712 93.4213,19.9013 93.3983,19.9253 93.3764,19.942 93.3389,19.9301 93.2997,19.9515 93.2869,19.9898 93.258,20.0198 93.1702,20.0222 93.1499,20.0197 93.0511,20.0321 93.0248,20.0435 93.0547,19.9573 93.0623,19.9382 93.1017,19.8509 93.1298,19.8098 93.1096,19.8055 93.0579,19.8999 93.038,19.9268 93.0251,19.9542 92.9875,19.9534 92.9877,19.9291 93.0207,19.8284 93.0543,19.7804 93.0137,19.8171 92.8693,20.052 92.8695,20.1015 92.9459,20.1074 92.9963,20.1487 93.0012,20.1935 92.9661,20.1744 92.929,20.1426 92.9018,20.1219 92.8814,20.1268 92.8767,20.1836 92.898,20.273 92.7784,20.0967 92.7549,20.0971 92.6572,20.1809 92.6781,20.233 92.7541,20.279 92.7791,20.3 92.7337,20.3798 92.6832,20.4673 92.601,20.5779 92.5314,20.6629 92.5739,20.5871 92.5931,20.569 92.6232,20.4132 92.6246,20.2407 92.5991,20.2532 92.5801,20.2811 92.569,20.3101 92.5071,20.4344 92.388,20.5928 92.3476,20.6266 92.3183,20.6484 92.2964,20.6573 92.268,20.672 92.2497,20.7353 92.1982,20.8672 92.1729,20.9147 92.1612,20.9631 92.1492,21.031 92.1202,21.0918 92.1024,21.113 92.0931,21.1954 92.0922,21.2769 92.1094,21.3343 92.1481,21.3907 92.247,21.4486 92.2686,21.4482 92.4242,21.3541 92.4731,21.2389 92.4934,21.2287 92.553,21.2696 92.5562,21.2732 92.5456,21.2961 92.5348,21.326 92.5282,21.3489 92.5175,21.3913 92.5046,21.4462 92.4867,21.6099 92.4856,21.6327 92.4854,21.7708 92.4973,21.8288 92.5066,21.8552 92.5015,21.8967 92.4923,21.9407 92.4872,21.9577 92.4872,21.9577 10,6.5,Myanmar (Burma) 92.9128,20.3325 92.9199,20.3621 92.9669,20.4866 92.9691,20.5162 92.9183,20.4467 92.9083,20.4096 92.9057,20.3809 92.908,20.3575 92.9128,20.3325 92.9128,20.3325 23,9.0,Japan 129.5231,28.466 129.5286,28.4595 129.5368,28.4467 129.5481,28.4194 129.5503,28.402 129.5405,28.3923 129.4953,28.3725 129.4825,28.3725 129.4543,28.3659 129.417,28.3382 129.3449,28.2636 129.2985,28.1798 129.2064,28.0851 128.9912,28.2033 128.9769,28.2211 129.09,28.2893 129.1596,28.3206 129.4076,28.43 129.4541,28.4453 129.4525,28.4198 129.5,28.4452 129.5231,28.466 129.5231,28.466 32,-6.0,United States -96.6515,28.1607 -96.6313,28.163 -96.5859,28.1728 -96.5388,28.2061 -96.5302,28.2157 -96.5195,28.2292 -96.3823,28.3032 -96.3058,28.3452 -96.3004,28.3586 -96.2851,28.3634 -96.276,28.3354 -96.2751,28.319 -96.2824,28.3046 -96.2949,28.2935 -96.3246,28.2793 -96.3451,28.2718 -96.3617,28.2661 -96.4035,28.2481 -96.427,28.2353 -96.5675,28.1512 -96.5816,28.1421 -96.6121,28.1226 -96.6287,28.1096 -96.6804,28.0685 -96.6884,28.0612 -96.6923,28.0785 -96.6856,28.1339 -96.6786,28.1473 -96.6693,28.1578 -96.6578,28.1611 -96.6515,28.1607 -96.6515,28.1607 23,-7.0,Mexico -115.0305,27.9936 -115.1144,28.041 -115.1611,28.069 -115.1754,28.1082 -115.1572,28.1231 -115.1501,28.1304 -115.1143,28.1746 -115.1055,28.1873 -115.101,28.2015 -115.1159,28.2375 -115.1304,28.277 -115.1295,28.2966 -115.117,28.3202 -115.1053,28.3335 -115.092,28.3388 -115.0734,28.3358 -115.0618,28.324 -115.0298,28.2772 -114.9974,28.1475 -114.9941,28.1235 -115.0215,28.0013 -115.0305,27.9936 -115.0305,27.9936 194,6.0,Bhutan 88.8033,27.2869 88.8091,27.3149 88.8213,27.3378 88.8321,27.3547 88.842,27.4001 88.853,27.4358 88.8705,27.4582 88.9011,27.479 88.9431,27.493 88.9718,27.5076 88.9905,27.52 89.0141,27.541 89.0133,27.5925 89.0516,27.6441 89.0648,27.666 89.0853,27.7072 89.1035,27.7471 89.1219,27.7762 89.1542,27.7964 89.2447,27.8404 89.2719,27.884 89.283,27.9018 89.2943,27.919 89.3351,27.9773 89.3407,27.986 89.3523,28.003 89.372,28.0266 89.4725,28.1104 89.5111,28.1282 89.5771,28.1422 89.6054,28.1429 89.6308,28.1442 89.6759,28.1633 89.7208,28.2201 89.747,28.24 89.8821,28.2922 89.9045,28.2933 90.0624,28.269 90.1093,28.2586 90.1325,28.2533 90.17,28.2439 90.2031,28.2326 90.2298,28.2278 90.2724,28.2111 90.279,28.1692 90.2629,28.1381 90.2499,28.1191 90.24,28.1011 90.2369,28.0673 90.26,28.0484 90.3496,28.0403 90.3938,28.0478 90.4157,28.0493 90.4396,28.0438 90.5098,28.0441 90.5336,28.0471 90.6397,28.0335 90.723,28.0168 90.7519,28.0192 90.8009,28.0152 90.8341,28.0012 90.8504,27.9879 90.8762,27.9613 90.903,27.9458 90.9694,27.9387 90.9949,27.9408 91.0144,27.9525 91.0281,27.9708 91.0476,27.9948 91.1014,28.0435 91.1838,28.0497 91.2085,28.0318 91.2392,28.0105 91.3017,27.9794 91.3321,27.9661 91.3673,27.9581 91.3831,27.9583 91.4025,27.9602 91.4889,27.9383 91.5207,27.9264 91.5446,27.9137 91.5591,27.8978 91.5558,27.8668 91.5388,27.8383 91.535,27.8051 91.5386,27.7468 91.5399,27.7338 91.541,27.7101 91.5363,27.6856 91.5242,27.6662 91.5026,27.6502 91.4811,27.629 91.4825,27.5844 91.4998,27.5299 91.5136,27.5057 91.558,27.4565 91.6527,27.4012 91.7356,27.4061 91.8401,27.424 91.8753,27.4448 91.9597,27.338 91.9708,27.3188 91.996,27.2626 91.926,27.1579 91.897,27.1379 91.892,27.0713 91.8997,27.0489 91.9272,27.0248 91.9533,27.0068 91.9686,26.9846 91.9825,26.9489 91.9949,26.9003 91.9849,26.8654 91.9739,26.8485 91.9633,26.8392 91.9465,26.8299 91.9132,26.8219 91.8738,26.8238 91.7206,26.8331 91.6247,26.7901 91.598,26.7709 91.4256,26.7754 91.3997,26.8092 91.384,26.8374 91.2998,26.8413 91.284,26.8184 91.2729,26.7922 91.2584,26.7744 91.2258,26.7566 91.1901,26.748 91.1678,26.75 91.146,26.7649 91.1141,26.7765 91.0027,26.7793 90.9328,26.7589 90.8499,26.7536 90.841,26.7545 90.8202,26.7549 90.786,26.7548 90.6281,26.7473 90.5921,26.7428 90.5725,26.7432 90.5253,26.7525 90.448,26.7753 90.4028,26.7946 90.3411,26.828 90.3013,26.8644 90.2729,26.8733 90.2471,26.8697 90.1013,26.8207 90.0805,26.8041 90.0677,26.7838 90.0604,26.7441 90.0336,26.7257 90.008,26.7182 89.9665,26.7094 89.7389,26.6797 89.6907,26.6773 89.6782,26.677 89.6548,26.6738 89.528,26.6855 89.5081,26.6954 89.5289,26.7228 89.5278,26.7326 89.4738,26.7623 89.4485,26.7724 89.4113,26.7816 89.3671,26.7703 89.2525,26.8293 89.2462,26.8302 89.1855,26.8207 89.1617,26.8016 89.1063,26.7847 89.0858,26.784 89.0351,26.789 89.0118,26.7937 88.992,26.8027 88.9792,26.8282 88.9704,26.8556 88.9239,26.8926 88.8334,26.9394 88.7799,26.9455 88.7552,27.0372 88.7475,27.0635 88.712,27.091 88.6786,27.1122 88.6393,27.1179 88.6482,27.1541 88.6966,27.2243 88.7285,27.2353 88.7769,27.2467 88.7968,27.2637 88.8033,27.2869 88.8033,27.2869 23,2.0,Spain -17.2084,27.9787 -17.223,27.9796 -17.2368,27.988 -17.2761,28.0153 -17.2829,28.0233 -17.3021,28.0478 -17.3081,28.0599 -17.3098,28.0853 -17.3058,28.1092 -17.2948,28.1391 -17.2771,28.1531 -17.2326,28.1748 -17.1695,28.1545 -17.0913,28.1138 -17.0783,28.1012 -17.0671,28.0807 -17.0679,28.0675 -17.0715,28.0514 -17.0889,28.0306 -17.1325,27.9933 -17.1528,27.9856 -17.2084,27.9787 -17.2084,27.9787 14,8.0,China 120.9739,28.0671 120.9651,28.0767 120.9649,28.1046 121.0446,28.1726 121.0818,28.1695 121.1092,28.151 121.0832,28.0556 121.0489,28.024 121.0332,28.0177 121.0145,28.0157 120.9911,28.016 120.9721,28.028 120.9739,28.0671 120.9739,28.0671 27,2.0,Spain -15.559,27.7003 -15.587,27.7133 -15.6016,27.7177 -15.6503,27.7204 -15.7627,27.8047 -15.8021,27.8844 -15.8003,27.931 -15.7952,27.9705 -15.7871,27.9772 -15.7647,27.9797 -15.7105,28.0152 -15.6917,28.037 -15.6869,28.0467 -15.6767,28.1081 -15.6821,28.1247 -15.6148,28.123 -15.4151,28.1018 -15.3451,27.9758 -15.3743,27.8139 -15.4081,27.768 -15.4235,27.7579 -15.4515,27.7521 -15.4649,27.7502 -15.5052,27.7365 -15.5341,27.7249 -15.559,27.7003 -15.559,27.7003 11,-6.0,United States -96.7142,28.0749 -96.7236,28.0527 -96.7625,27.9993 -96.9001,27.8383 -96.9107,27.844 -96.8985,27.8805 -96.7968,28.0584 -96.7453,28.1033 -96.7177,28.087 -96.7142,28.0749 -96.7142,28.0749 19,9.0,Japan 128.7674,27.87 128.773,27.8739 128.7844,27.8756 128.7935,27.8697 128.8632,27.7407 128.8557,27.7164 128.8406,27.6962 128.8195,27.67 128.7873,27.646 128.7753,27.6456 128.7529,27.6567 128.7311,27.6947 128.7145,27.7909 128.7158,27.8063 128.7196,27.831 128.724,27.8509 128.7327,27.8667 128.7674,27.87 128.7674,27.87 18,-5.0,United States -80.3283,27.8122 -80.3013,27.7459 -80.2972,27.7364 -80.288,27.7186 -80.2679,27.6837 -80.2249,27.5622 -80.1891,27.4382 -80.1777,27.4114 -80.1344,27.3332 -80.0644,27.1692 -80.0617,27.1558 -80.0837,27.1769 -80.103,27.2137 -80.1855,27.3829 -80.2864,27.6684 -80.3411,27.8195 -80.3283,27.8122 -80.3283,27.8122 24,2.0,Spain -17.9596,27.6065 -17.9912,27.6184 -18.1326,27.6743 -18.1464,27.7049 -18.1438,27.7227 -18.1376,27.731 -18.1227,27.7383 -18.1087,27.7416 -18.0895,27.731 -18.0375,27.7249 -18.0167,27.7314 -17.9917,27.7596 -17.9776,27.7849 -17.9077,27.8174 -17.8843,27.8175 -17.8758,27.8116 -17.8674,27.7983 -17.8603,27.7859 -17.8603,27.7661 -17.8801,27.7494 -17.888,27.7426 -17.9406,27.6514 -17.9596,27.6065 -17.9596,27.6065 34,-6.0,United States -97.1211,27.5136 -97.1414,27.479 -97.1689,27.4264 -97.1832,27.3939 -97.2041,27.342 -97.2124,27.3201 -97.2191,27.296 -97.2305,27.2432 -97.2426,27.2087 -97.2494,27.195 -97.2626,27.1919 -97.2606,27.2469 -97.2494,27.3125 -97.2448,27.3321 -97.2115,27.4202 -97.2069,27.4308 -97.1918,27.4652 -97.1813,27.4824 -97.1561,27.5202 -97.0375,27.6946 -97.0281,27.7068 -96.9487,27.8043 -96.9376,27.811 -96.9178,27.8086 -96.9179,27.7983 -96.926,27.7885 -96.9506,27.7613 -96.9767,27.7341 -96.9921,27.7153 -97.0412,27.6496 -97.0489,27.6374 -97.1195,27.5172 -97.1211,27.5136 -97.1211,27.5136 235,0.0,Western Sahara -8.6552,27.6359 -8.6558,27.5688 -8.6557,27.4689 -8.6554,27.26 -8.6558,26.9363 -8.656,26.8032 -8.6561,26.3703 -8.6555,26.104 -8.6551,26.0375 -8.6558,25.9712 -9.3876,25.9706 -9.5549,25.9711 -9.6212,25.9713 -9.688,25.9713 -9.8871,25.9711 -9.9536,25.9709 -9.9872,25.9691 -10.1211,25.969 -10.4865,25.9704 -10.7194,25.9704 -11.2521,25.9705 -11.6852,25.9708 -11.9851,25.9711 -11.9843,25.7044 -11.9843,25.6374 -11.9853,25.6038 -11.9844,25.2713 -11.9847,25.2046 -11.9852,25.172 -11.9847,24.8387 -11.9847,24.7721 -11.9857,24.7385 -11.9847,24.3725 -11.9854,24.306 -11.9851,23.9732 -11.9858,23.773 -11.9853,23.4282 -12.0836,23.4034 -12.2161,23.3546 -12.3501,23.2928 -12.5554,23.2655 -12.5816,23.2501 -12.6206,23.2248 -12.7289,23.1568 -12.9822,22.999 -13.0332,22.937 -13.0888,22.8674 -13.1175,22.7839 -13.1339,22.7323 -13.0779,22.5456 -13.0638,22.4952 -13.0616,22.4719 -13.0502,22.2989 -13.043,22.18 -13.0353,22.0612 -13.0314,22.0095 -13.0151,21.7735 -12.9889,21.3996 -12.9836,21.3144 -13.3602,21.3163 -13.8911,21.3187 -14.2674,21.3186 -14.2858,21.3178 -14.4493,21.3166 -14.6691,21.3148 -14.9867,21.3124 -15.2067,21.3139 -15.7224,21.3143 -15.8726,21.3149 -15.9979,21.3151 -16.126,21.3159 -16.5844,21.316 -16.9327,21.313 -16.9395,21.277 -16.974,21.1045 -17.0171,20.9808 -17.0283,20.9511 -17.0493,20.8975 -17.0546,20.8756 -17.0315,20.7411 -17.0805,20.8143 -17.0734,20.9204 -17.0426,21.0739 -17.0086,21.2612 -16.9999,21.3415 -16.9894,21.4171 -16.985,21.4391 -16.9611,21.5294 -16.9477,21.6013 -16.939,21.6834 -16.9432,21.7507 -16.9384,21.798 -16.9358,21.8089 -16.8951,21.921 -16.8309,22.0488 -16.6986,22.2361 -16.6446,22.2682 -16.6151,22.2516 -16.5778,22.2567 -16.514,22.2808 -16.4775,22.3005 -16.4448,22.3589 -16.44,22.3876 -16.4036,22.4951 -16.3685,22.5191 -16.3422,22.5396 -16.3256,22.6094 -16.3195,22.6621 -16.3219,22.6942 -16.3168,22.7314 -16.3034,22.769 -16.2471,22.8745 -16.2082,22.8889 -16.1804,22.9065 -16.1653,22.9229 -16.1438,22.9631 -16.1322,22.999 -16.1311,23.0382 -16.158,23.0594 -16.0891,23.2221 -16.0525,23.3023 -16.034,23.3198 -16.0156,23.3367 -15.9927,23.3664 -15.977,23.389 -15.9606,23.4213 -15.9499,23.4709 -15.9425,23.4908 -15.9017,23.5572 -15.8627,23.6124 -15.8486,23.6264 -15.8102,23.6573 -15.7449,23.7599 -15.7404,23.8315 -15.7597,23.8828 -15.8547,23.7963 -15.8708,23.7772 -15.882,23.7576 -15.9071,23.6925 -15.9234,23.6558 -15.9738,23.622 -15.9128,23.7616 -15.8916,23.7953 -15.8463,23.8418 -15.8124,23.8751 -15.6828,23.9583 -15.5627,24.0338 -15.5063,24.0993 -15.4379,24.1742 -15.3429,24.25 -15.2788,24.305 -15.2627,24.328 -15.2375,24.3678 -15.2262,24.3854 -15.2104,24.4126 -15.154,24.4647 -15.1193,24.4803 -15.0816,24.4899 -15.0429,24.4986 -15.0123,24.5144 -14.8819,24.6621 -14.8157,24.8908 -14.8116,25.0103 -14.8141,25.0439 -14.8264,25.0639 -14.8283,25.0853 -14.8269,25.1859 -14.8099,25.2616 -14.7963,25.313 -14.7721,25.403 -14.7346,25.4521 -14.6637,25.5952 -14.629,25.7039 -14.6103,25.7449 -14.5892,25.7783 -14.5694,25.8014 -14.5459,25.8256 -14.5199,25.8639 -14.4984,25.9054 -14.4784,25.9585 -14.4742,25.9713 -14.4705,25.9864 -14.465,26.0268 -14.4607,26.0696 -14.4707,26.0977 -14.4645,26.1343 -14.404,26.2181 -14.3878,26.2312 -14.356,26.2397 -14.3268,26.247 -14.303,26.2536 -14.2783,26.2681 -14.2334,26.3061 -14.2024,26.3365 -14.1792,26.3681 -14.0877,26.4011 -14.0487,26.4056 -14.0146,26.4139 -13.8899,26.481 -13.6918,26.5957 -13.6065,26.6525 -13.5833,26.6734 -13.5566,26.702 -13.5307,26.7343 -13.5004,26.791 -13.4863,26.8204 -13.4638,26.871 -13.4102,27.0346 -13.3998,27.068 -13.3994,27.0879 -13.3974,27.1146 -13.3918,27.139 -13.3797,27.1667 -13.3544,27.2069 -13.333,27.2295 -13.3162,27.2494 -13.286,27.2976 -13.2307,27.4149 -13.2033,27.4859 -13.1579,27.6361 -13.1497,27.6355 -13.0504,27.6352 -12.8242,27.6354 -10.2861,27.6355 -10.1072,27.6339 -10.0539,27.6332 -10.0096,27.6343 -9.9868,27.6357 -9.9206,27.6358 -9.8203,27.6359 -9.6547,27.6359 -9.3214,27.6358 -9.288,27.6352 -8.6552,27.6359 -8.6552,27.6359 406,0.0,Mauritania -4.8,24.9724 -4.8602,24.9716 -4.9601,24.9716 -5.7597,24.972 -6.1258,24.9715 -6.2916,24.9715 -6.3586,24.972 -6.4919,24.9722 -6.5689,24.9714 -6.5251,24.6052 -6.5153,24.5353 -6.5026,24.4309 -6.467,24.1344 -6.4335,23.8521 -6.359,23.2288 -6.3277,22.9645 -6.3179,22.8809 -6.3117,22.83 -6.291,22.6435 -6.2183,22.0147 -6.2005,21.8615 -6.1666,21.5725 -6.1453,21.385 -6.1245,21.1975 -6.0996,20.9761 -6.0699,20.7239 -6.0478,20.5364 -5.9992,20.1267 -5.9666,19.8443 -5.9492,19.6905 -5.9111,19.3484 -5.8936,19.1943 -5.8771,19.0406 -5.8466,18.7662 -5.8303,18.6292 -5.7963,18.3208 -5.7755,18.1322 -5.7405,17.8111 -5.6875,17.3309 -5.6209,16.7299 -5.5945,16.4894 -5.3282,16.3098 -5.366,16.1172 -5.3793,16.0485 -5.4137,15.8767 -5.4771,15.5498 -5.4867,15.4981 -5.4884,15.4811 -5.5766,15.4821 -5.9517,15.4871 -6.3004,15.4856 -6.3114,15.4864 -6.4186,15.4873 -6.6506,15.4885 -7.0103,15.4899 -7.3493,15.4884 -7.492,15.4879 -7.6531,15.4862 -7.9915,15.4836 -8.0412,15.4841 -8.4947,15.4837 -8.5035,15.484 -8.5749,15.484 -8.9853,15.481 -9.0261,15.4811 -9.0797,15.4818 -9.1737,15.4811 -9.2151,15.4815 -9.3223,15.4826 -9.3211,15.5461 -9.3004,15.6599 -9.3266,15.6871 -9.4312,15.5794 -9.4037,15.4618 -9.3985,15.4272 -9.649,15.414 -9.6849,15.4127 -9.7343,15.3885 -9.7664,15.3691 -9.7994,15.3577 -10.0208,15.3498 -10.0485,15.3499 -10.0747,15.3517 -10.106,15.3557 -10.2003,15.391 -10.2774,15.4209 -10.2983,15.4242 -10.4575,15.4199 -10.5548,15.4152 -10.5923,15.411 -10.6372,15.4132 -10.6621,15.4149 -10.7036,15.4219 -10.7066,15.3575 -10.7216,15.3245 -10.7515,15.2945 -10.835,15.189 -10.8835,15.0936 -10.9013,15.108 -10.9608,15.1821 -10.9717,15.2063 -10.9797,15.2257 -11.1589,15.3577 -11.1863,15.3772 -11.2232,15.4027 -11.2404,15.4142 -11.2729,15.4384 -11.2886,15.4578 -11.3234,15.5071 -11.3513,15.5585 -11.4045,15.6159 -11.4413,15.6261 -11.4847,15.6245 -11.5239,15.5792 -11.5859,15.5283 -11.6256,15.508 -11.6977,15.5278 -11.6967,15.5085 -11.7022,15.4813 -11.7263,15.4604 -11.7407,15.4216 -11.781,15.3042 -11.8179,15.1784 -11.8323,15.0804 -11.8267,15.0301 -11.7982,15.0336 -11.7822,14.998 -11.8011,14.9082 -11.8273,14.8464 -11.8526,14.8243 -11.9602,14.7551 -12.0456,14.7094 -12.0797,14.7232 -12.1606,14.7517 -12.2304,14.7479 -12.269,14.7695 -12.381,14.8366 -12.4331,14.8892 -12.437,14.9244 -12.4639,14.9908 -12.6143,15.0829 -12.6475,15.0878 -12.6708,15.0711 -12.6929,15.0809 -12.7681,15.1326 -12.8341,15.191 -12.8703,15.2449 -12.8345,15.2489 -12.8264,15.2796 -12.8452,15.3075 -12.8639,15.3202 -12.8918,15.3347 -12.9144,15.3484 -12.9246,15.3757 -12.9479,15.4833 -13.041,15.4626 -13.0759,15.4794 -13.087,15.5041 -13.169,15.612 -13.2298,15.6631 -13.3086,15.9117 -13.3791,16.0375 -13.504,16.1144 -13.5636,16.1177 -13.623,16.098 -13.6515,16.081 -13.6939,16.1184 -13.6824,16.1491 -13.6867,16.1609 -13.7994,16.1173 -13.9526,16.2157 -13.9674,16.2818 -14.0128,16.3395 -14.2017,16.5248 -14.3261,16.6175 -14.3985,16.6319 -14.4362,16.6168 -14.4872,16.6079 -14.6217,16.617 -14.7386,16.626 -14.8368,16.6186 -14.8888,16.6168 -14.9336,16.6297 -14.94,16.6541 -14.9433,16.666 -14.9664,16.6719 -14.9858,16.6516 -15.0033,16.6202 -15.0701,16.5897 -15.2174,16.5408 -15.3363,16.5431 -15.4225,16.5608 -15.4913,16.5383 -15.5573,16.4948 -15.6513,16.4628 -15.6774,16.4616 -15.7291,16.4706 -15.8037,16.4832 -15.869,16.4941 -15.8965,16.4915 -15.9663,16.4717 -16.0371,16.4652 -16.0799,16.5083 -16.0959,16.5311 -16.1261,16.5334 -16.2656,16.4985 -16.2826,16.4808 -16.302,16.4379 -16.3252,16.3628 -16.3378,16.3045 -16.3477,16.2556 -16.37,16.2027 -16.4868,16.0762 -16.5075,16.0422 -16.5093,16.0781 -16.5174,16.2837 -16.5066,16.3103 -16.4869,16.3556 -16.4754,16.3849 -16.4547,16.4559 -16.4488,16.4867 -16.4473,16.5115 -16.4491,16.5315 -16.4477,16.5929 -16.4244,16.661 -16.3913,16.7445 -16.3834,16.7642 -16.3204,16.9183 -16.2813,16.9829 -16.2594,17.0129 -16.2418,17.0404 -16.1811,17.179 -16.1652,17.2176 -16.1155,17.3379 -16.0763,17.4682 -16.0702,17.4887 -16.0499,17.5702 -16.0446,17.5918 -16.02,17.715 -16.0176,17.9063 -16.0091,18.0603 -16.0155,18.1412 -16.0227,18.1698 -16.0316,18.2151 -16.0434,18.3492 -16.0382,18.3841 -16.0372,18.408 -16.0452,18.4433 -16.0522,18.4714 -16.0638,18.5061 -16.0862,18.558 -16.1248,18.6693 -16.1308,18.7348 -16.1516,18.8498 -16.1595,18.8918 -16.1683,18.9183 -16.1992,18.9815 -16.2122,19.022 -16.2377,19.0732 -16.2496,19.0899 -16.2613,19.1065 -16.3291,19.1825 -16.3482,19.1951 -16.4429,19.2338 -16.4788,19.3149 -16.4913,19.3307 -16.4359,19.3485 -16.3608,19.3721 -16.3292,19.4009 -16.3155,19.4157 -16.2893,19.4458 -16.2662,19.5166 -16.3368,19.508 -16.406,19.4561 -16.4097,19.4235 -16.4204,19.3872 -16.4414,19.3883 -16.4488,19.4271 -16.4069,19.5145 -16.3852,19.5377 -16.3631,19.5541 -16.3145,19.612 -16.2131,19.7719 -16.2232,19.8649 -16.1966,19.9784 -16.1768,20.2036 -16.217,20.266 -16.2941,20.3549 -16.3173,20.4099 -16.3578,20.5032 -16.3955,20.5799 -16.4321,20.6466 -16.4755,20.7027 -16.5075,20.7104 -16.5139,20.6817 -16.5125,20.6045 -16.5197,20.5433 -16.5573,20.5671 -16.5793,20.588 -16.6279,20.6384 -16.8685,21.0899 -16.8825,21.119 -16.9029,21.1349 -16.967,21.042 -16.9774,20.9925 -16.9745,20.9515 -17.0045,20.8214 -17.0236,20.76 -17.0315,20.7411 -17.0546,20.8756 -17.0493,20.8975 -17.0283,20.9511 -17.0171,20.9808 -16.974,21.1045 -16.9395,21.277 -16.9327,21.313 -16.5844,21.316 -16.126,21.3159 -15.9979,21.3151 -15.8726,21.3149 -15.7224,21.3143 -15.2067,21.3139 -14.9867,21.3124 -14.6691,21.3148 -14.4493,21.3166 -14.2858,21.3178 -14.2674,21.3186 -13.8911,21.3187 -13.3602,21.3163 -12.9836,21.3144 -12.9889,21.3996 -13.0151,21.7735 -13.0314,22.0095 -13.0353,22.0612 -13.043,22.18 -13.0502,22.2989 -13.0616,22.4719 -13.0638,22.4952 -13.0779,22.5456 -13.1339,22.7323 -13.1175,22.7839 -13.0888,22.8674 -13.0332,22.937 -12.9822,22.999 -12.7289,23.1568 -12.6206,23.2248 -12.5816,23.2501 -12.5554,23.2655 -12.3501,23.2928 -12.2161,23.3546 -12.0836,23.4034 -11.9853,23.4282 -11.9858,23.773 -11.9851,23.9732 -11.9854,24.306 -11.9847,24.3725 -11.9857,24.7385 -11.9847,24.7721 -11.9847,24.8387 -11.9852,25.172 -11.9847,25.2046 -11.9844,25.2713 -11.9853,25.6038 -11.9843,25.6374 -11.9843,25.7044 -11.9851,25.9711 -11.6852,25.9708 -11.2521,25.9705 -10.7194,25.9704 -10.4865,25.9704 -10.1211,25.969 -9.9872,25.9691 -9.9536,25.9709 -9.8871,25.9711 -9.688,25.9713 -9.6212,25.9713 -9.5549,25.9711 -9.3876,25.9706 -8.6558,25.9712 -8.6551,26.0375 -8.6555,26.104 -8.6561,26.3703 -8.656,26.8032 -8.6558,26.9363 -8.6554,27.26 -8.6327,27.2484 -8.1938,26.9973 -8.1206,26.9564 -7.7017,26.7139 -7.6837,26.7043 -7.2487,26.4502 -7.1946,26.419 -6.9779,26.2916 -6.7622,26.1633 -6.654,26.0999 -6.2961,25.8855 -6.278,25.8756 -5.8502,25.6168 -5.8142,25.5961 -5.6341,25.4865 -5.2825,25.2719 -4.9125,25.0428 -4.8771,25.0217 -4.8069,24.9778 -4.8,24.9724 -4.8,24.9724 38,-6.0,United States -97.233,26.6773 -97.2411,26.7717 -97.2606,26.8083 -97.2753,26.9906 -97.2756,27.0223 -97.2746,27.09 -97.274,27.1048 -97.2719,27.1192 -97.2576,27.1723 -97.2543,27.1483 -97.2578,27.1049 -97.2615,27.0212 -97.2607,26.9804 -97.2586,26.966 -97.2334,26.8092 -97.2306,26.7929 -97.2179,26.7446 -97.2004,26.6665 -97.1643,26.5671 -97.1365,26.493 -97.1234,26.452 -97.103,26.3813 -97.0816,26.2991 -97.0747,26.2583 -97.0553,26.136 -97.0479,26.0886 -97.0467,26.0727 -97.0522,26.0585 -97.0641,26.0674 -97.0711,26.0914 -97.075,26.1107 -97.0816,26.2017 -97.0999,26.3138 -97.1528,26.4746 -97.1793,26.5469 -97.2211,26.6544 -97.233,26.6773 -97.233,26.6773 55,3.5,Iran 56.216,26.9199 56.173,26.8976 56.0866,26.8386 56.0809,26.8282 56.0751,26.8203 56.0611,26.8052 56.0464,26.7899 55.9889,26.7418 55.9156,26.6978 55.839,26.6797 55.7475,26.6794 55.6246,26.6592 55.6132,26.6558 55.6037,26.6516 55.4878,26.5928 55.2566,26.5166 55.2295,26.5116 55.2128,26.5289 55.204,26.621 55.2118,26.6284 55.224,26.6254 55.2446,26.6148 55.2577,26.6122 55.2894,26.6132 55.4474,26.669 55.528,26.7025 55.5652,26.7238 55.5749,26.7288 55.5949,26.7381 55.6045,26.7424 55.6398,26.7506 55.6692,26.7486 55.6796,26.7528 55.6984,26.7628 55.7125,26.8112 55.6971,26.8512 55.6916,26.8627 55.6809,26.8737 55.6712,26.8823 55.6657,26.8963 55.6831,26.9221 55.7094,26.9184 55.7706,26.8921 55.7819,26.8854 55.885,26.9001 55.9277,26.9276 56.0284,26.955 56.0833,26.9684 56.1484,26.9704 56.16,26.966 56.2008,26.9457 56.2104,26.94 56.2181,26.9332 56.216,26.9199 56.216,26.9199 16,3.5,Iran 55.6324,26.7826 55.5979,26.7603 55.5868,26.7561 55.5766,26.7544 55.5661,26.7552 55.5616,26.7648 55.5551,26.803 55.5669,26.8344 55.6213,26.9001 55.6417,26.8736 55.6456,26.8628 55.6635,26.8082 55.6602,26.7677 55.65,26.7689 55.6324,26.7826 55.6324,26.7826 61,9.0,Japan 128.1227,26.8249 128.1355,26.8182 128.1468,26.8097 128.1653,26.7797 128.1684,26.767 128.1711,26.7352 128.168,26.7255 128.107,26.6285 128.0882,26.6093 128.0758,26.5988 127.9825,26.5392 127.7826,26.4214 127.7109,26.4172 127.6997,26.4145 127.6862,26.4069 127.6755,26.3966 127.6153,26.2074 127.6465,26.1609 127.6547,26.1552 127.6498,26.1264 127.6242,26.0985 127.6126,26.0872 127.5655,26.0597 127.5536,26.0537 127.5393,26.051 127.5179,26.0495 127.4892,26.0567 127.4769,26.1793 127.5085,26.202 127.5613,26.2423 127.5808,26.2801 127.5711,26.3173 127.5619,26.3526 127.5546,26.3832 127.554,26.4027 127.6007,26.4092 127.6341,26.412 127.7959,26.5176 127.802,26.5383 127.8012,26.5522 127.7821,26.5704 127.7486,26.5706 127.7201,26.5821 127.713,26.5941 127.7198,26.6377 127.7439,26.6591 127.7792,26.6645 127.7946,26.6659 127.8316,26.651 127.8216,26.6303 127.8225,26.6142 127.8295,26.6066 127.8596,26.6015 127.9033,26.6126 127.9409,26.638 127.9365,26.6513 127.9396,26.6632 127.9589,26.6864 128.0827,26.8099 128.1227,26.8249 128.1227,26.8249 598,6.0,Bangladesh 89.9567,21.9739 89.9375,21.9586 89.8921,21.9695 89.8814,22.0007 89.9298,22.103 89.9506,22.1175 89.9634,22.1342 89.9294,22.1164 89.8676,22.0022 89.8712,21.9586 89.8482,21.9479 89.8235,21.9701 89.8053,22.0126 89.8005,22.0387 89.8049,22.0767 89.804,22.1117 89.7856,22.1754 89.7762,22.1948 89.7652,22.2182 89.7634,22.2517 89.8019,22.3357 89.8204,22.3646 89.8344,22.3789 89.8617,22.405 89.8738,22.4251 89.889,22.4588 89.8705,22.4439 89.8657,22.4399 89.832,22.4085 89.7985,22.3653 89.7491,22.29 89.7372,22.2618 89.7309,22.2362 89.7441,22.1854 89.7526,22.1558 89.7576,22.1303 89.7602,22.0771 89.7557,22.0574 89.7366,21.9574 89.7436,21.9244 89.7602,21.9003 89.7734,21.8703 89.7078,21.8108 89.6806,21.8026 89.5887,21.7597 89.4713,21.6776 89.4517,21.6852 89.4341,21.7079 89.4119,21.776 89.4162,21.8044 89.448,21.8417 89.4584,21.8617 89.488,22.0572 89.4935,22.2326 89.5047,22.2948 89.467,22.2392 89.4398,22.1854 89.4377,22.1641 89.452,22.1383 89.467,22.117 89.4702,22.095 89.439,21.9721 89.4184,21.9662 89.4241,22.0394 89.4148,22.0731 89.4002,22.1163 89.377,22.1722 89.3788,22.2026 89.3858,22.2359 89.3645,22.2645 89.352,22.1951 89.3823,22.1073 89.3924,22.0855 89.403,22.0646 89.409,22.0397 89.3777,22.0076 89.4095,21.929 89.4066,21.8859 89.3531,21.7448 89.3087,21.6897 89.2829,21.6869 89.2633,21.7066 89.2536,21.745 89.2525,21.7818 89.258,21.8172 89.2717,21.8391 89.2748,21.8681 89.2626,21.9094 89.2452,21.9417 89.1862,21.7371 89.1837,21.6454 89.1358,21.6186 89.098,21.628 89.1077,21.6692 89.1073,21.6994 89.0806,21.7631 89.0444,21.7611 88.9928,21.7851 88.9695,21.8724 88.9786,21.9396 88.98,21.9901 88.9497,22.0376 88.9478,22.0611 88.9558,22.0905 88.9846,22.1185 88.9636,22.1675 88.9484,22.1807 88.9084,22.2325 88.8975,22.2517 88.8835,22.2995 88.8785,22.3762 88.8193,22.8439 88.7531,22.9428 88.7531,22.9712 88.7648,23.0663 88.7869,23.0833 88.8056,23.0977 88.8722,23.1803 88.7175,23.2167 88.6946,23.2012 88.6171,23.2213 88.6026,23.2465 88.6024,23.2851 88.6288,23.3242 88.6758,23.4245 88.6759,23.4665 88.6463,23.4433 88.4747,23.5775 88.4558,23.6204 88.4662,23.74 88.4911,23.8317 88.5171,23.8472 88.5766,23.866 88.6237,23.8915 88.6435,24.0138 88.615,24.0336 88.5902,24.0556 88.5965,24.0948 88.5894,24.1217 88.6045,24.153 88.6287,24.1601 88.6405,24.1896 88.6308,24.2146 88.6215,24.234 88.6104,24.2535 88.5906,24.2792 88.5574,24.2829 88.5409,24.2671 88.3963,24.291 88.3516,24.3138 88.2545,24.3846 88.1735,24.4237 88.1235,24.4398 88.0198,24.4793 88.0019,24.4943 87.933,24.6578 88.0256,24.7923 88.0555,24.8208 88.0513,24.8621 88.0298,24.8888 88.1089,24.923 88.1527,24.8853 88.1655,24.8603 88.1943,24.8463 88.2274,24.8412 88.2859,24.9117 88.3259,24.9953 88.3489,25.0468 88.346,25.1246 88.342,25.1602 88.3705,25.1716 88.5077,25.1701 88.534,25.1693 88.5923,25.167 88.7759,25.1478 88.8201,25.1365 88.833,25.1414 88.8953,25.262 88.8786,25.2802 88.8206,25.2791 88.7608,25.3045 88.7299,25.3365 88.7079,25.3762 88.7241,25.3984 88.727,25.4327 88.7196,25.4526 88.6867,25.4822 88.6535,25.4892 88.6027,25.4603 88.5387,25.461 88.4439,25.4761 88.3414,25.561 88.3347,25.5878 88.3367,25.6307 88.1612,25.7773 88.1413,25.7859 88.1125,25.7783 88.0923,25.7672 88.0508,25.7514 88.0315,25.757 87.998,25.8068 87.9832,25.8862 88.0453,26.0685 88.0703,26.1215 88.1731,26.1665 88.2356,26.1909 88.2436,26.2203 88.2439,26.253 88.2833,26.2958 88.3606,26.3279 88.4099,26.338 88.401,26.3771 88.3686,26.4307 88.3321,26.4431 88.2584,26.4561 88.2433,26.4249 88.2224,26.4533 88.2617,26.551 88.2999,26.5965 88.3068,26.5574 88.3171,26.5245 88.4592,26.4357 88.4935,26.4412 88.5674,26.3909 88.5806,26.3626 88.5903,26.3037 88.6222,26.2643 88.7435,26.211 88.9067,26.2057 88.9303,26.2453 88.8551,26.3094 88.8097,26.3283 88.7966,26.3627 88.8111,26.3954 88.833,26.4132 88.9569,26.3558 88.9766,26.2687 89.0068,26.1493 89.0211,26.1244 89.1391,26.0368 89.2057,25.9956 89.2287,25.9879 89.39,25.9767 89.434,25.9866 89.4881,26.0397 89.4807,26.0703 89.463,26.0972 89.4476,26.1234 89.4872,26.1981 89.5194,26.201 89.5347,26.1601 89.5707,26.1308 89.6194,26.1272 89.6643,26.0599 89.7151,25.9703 89.7342,25.8772 89.7158,25.8454 89.7035,25.8235 89.6934,25.7937 89.7316,25.6631 89.7486,25.6184 89.7487,25.5766 89.7455,25.5481 89.737,25.4871 89.7131,25.4029 89.7019,25.3378 89.7187,25.2784 89.7365,25.2608 89.7701,25.2652 89.7975,25.2808 89.8519,25.2671 89.9249,25.2328 90.0544,25.1853 90.2684,25.1261 90.2975,25.1208 90.3325,25.122 90.3521,25.1332 90.4146,25.1459 90.4756,25.1382 90.7257,25.1206 90.7544,25.1224 90.8517,25.1333 90.8841,25.1445 90.9219,25.1555 90.9568,25.1647 90.9897,25.1684 91.0559,25.1672 91.1458,25.1779 91.1952,25.1547 91.3659,25.1109 91.5863,25.1235 91.6329,25.1393 91.8161,25.1553 91.9218,25.1594 91.9764,25.1493 91.9981,25.1426 92.0758,25.112 92.2152,25.0514 92.2918,24.9975 92.2955,24.9857 92.2948,24.9656 92.3051,24.9388 92.3289,24.9317 92.3715,24.89 92.375,24.8496 92.3581,24.8389 92.3202,24.8214 92.2736,24.8213 92.2262,24.8548 92.1682,24.8785 92.132,24.8667 92.1319,24.8238 92.1442,24.7989 92.1466,24.7759 92.1406,24.7464 92.1325,24.7149 92.0726,24.5351 92.0581,24.5188 92.0249,24.4994 92.0192,24.4911 92.0146,24.4633 92.0218,24.41 92.017,24.3824 92.0016,24.3627 91.8655,24.2931 91.8315,24.3224 91.8061,24.3002 91.816,24.2553 91.7912,24.15 91.7676,24.1247 91.6372,24.1273 91.4791,24.0698 91.4535,24.0634 91.432,24.0599 91.4059,24.0614 91.3647,24.0638 91.3063,24.0824 91.2677,24.0784 91.1544,23.9423 91.123,23.8753 91.1259,23.8514 91.1373,23.8136 91.1009,23.7293 91.079,23.7241 91.0523,23.7186 91.0432,23.6994 91.0483,23.6052 91.0958,23.4846 91.1414,23.4254 91.1689,23.3474 91.1865,23.2711 91.1996,23.2106 91.2027,23.1843 91.2064,23.1644 91.2196,23.0986 91.2312,23.0724 91.2435,23.0556 91.2614,23.0414 91.286,23.0439 91.2916,23.0686 91.2771,23.1069 91.2678,23.1552 91.2659,23.1936 91.2892,23.2399 91.3127,23.2359 91.3338,23.2211 91.3609,23.1945 91.3792,23.1368 91.4348,22.975 91.4484,22.9598 91.4982,22.9191 91.6112,22.9692 91.6647,23.0112 91.7044,23.0644 91.691,23.133 91.6814,23.169 91.6663,23.2027 91.6544,23.229 91.6561,23.2533 91.6694,23.2864 91.6832,23.3108 91.7309,23.3842 91.7693,23.4087 91.808,23.416 91.8518,23.4794 91.8484,23.5365 91.8426,23.5652 91.8287,23.616 91.8238,23.654 91.8441,23.7013 91.863,23.6749 91.9181,23.6196 91.9526,23.624 91.9949,23.6646 92.06,23.7105 92.0881,23.6804 92.1535,23.693 92.1632,23.6845 92.1743,23.6664 92.1848,23.5466 92.2086,23.43 92.2433,23.3413 92.2556,23.3138 92.2726,23.2596 92.2512,23.2224 92.2351,23.203 92.2377,23.1519 92.2613,22.9135 92.3626,22.7227 92.3959,22.7012 92.4167,22.5565 92.4107,22.5271 92.4544,22.3329 92.4643,22.2972 92.4829,22.1508 92.4813,22.1116 92.4712,22.0415 92.4872,21.9577 92.4923,21.9407 92.5015,21.8967 92.5066,21.8552 92.4973,21.8288 92.4854,21.7708 92.4856,21.6327 92.4867,21.6099 92.5046,21.4462 92.5175,21.3913 92.5282,21.3489 92.5348,21.326 92.5456,21.2961 92.5562,21.2732 92.553,21.2696 92.4934,21.2287 92.4731,21.2389 92.4242,21.3541 92.2686,21.4482 92.247,21.4486 92.1481,21.3907 92.1094,21.3343 92.0922,21.2769 92.0931,21.1954 92.1024,21.113 92.1202,21.0918 92.1492,21.031 92.1435,21.006 92.1438,20.9515 92.1483,20.9112 92.1534,20.8898 92.1787,20.8446 92.1974,20.8077 92.2177,20.7511 92.2146,20.7216 92.1881,20.7371 92.1102,20.8787 92.095,20.9099 92.0107,21.0435 91.9577,21.1053 91.9358,21.1413 91.933,21.1632 91.9365,21.205 91.9399,21.2298 91.9354,21.2611 91.9146,21.3052 91.8896,21.3446 91.8629,21.3815 91.8428,21.4267 91.8605,21.4426 91.8919,21.4721 91.9236,21.6112 91.9265,21.6363 91.9116,21.6794 91.9021,21.6482 91.8698,21.6268 91.8492,21.6561 91.8337,21.7093 91.8419,21.7317 91.8375,21.7675 91.7886,21.75 91.8025,21.8383 91.7894,21.8983 91.7371,22.0849 91.7202,22.0966 91.7062,22.1206 91.6984,22.1688 91.6736,22.2072 91.6588,22.2341 91.6481,22.2953 91.6458,22.3285 91.6402,22.3522 91.6289,22.3796 91.5914,22.4554 91.5562,22.5122 91.5453,22.529 91.4544,22.649 91.4311,22.677 91.3426,22.7646 91.2217,22.6878 91.1418,22.6293 91.1467,22.6013 91.118,22.5613 91.0063,22.5522 90.9297,22.5661 90.8953,22.5542 90.8826,22.5473 90.853,22.5457 90.8338,22.5551 90.7193,22.6631 90.6873,22.7068 90.6668,22.7359 90.6385,22.7976 90.6345,22.8407 90.6104,22.8983 90.5947,22.9233 90.5675,22.9662 90.5249,23.011 90.5124,23.0328 90.5289,23.1728 90.5094,23.2971 90.4809,23.3477 90.4895,23.4403 90.5275,23.4598 90.5819,23.4521 90.6031,23.4806 90.5967,23.5234 90.5788,23.5252 90.5823,23.4888 90.5534,23.4914 90.5338,23.4812 90.4876,23.4657 90.4746,23.516 90.4956,23.5555 90.4811,23.5717 90.448,23.5604 90.3609,23.5496 90.3746,23.5337 90.3949,23.5247 90.465,23.5106 90.4622,23.4165 90.4356,23.3584 90.3732,23.37 90.2853,23.3873 90.2616,23.3931 90.2222,23.4029 90.1986,23.4097 90.1967,23.3883 90.3141,23.2988 90.3588,23.2804 90.3863,23.2726 90.4143,23.2708 90.454,23.264 90.4932,23.2172 90.5007,23.1924 90.5021,23.1637 90.486,23.0922 90.4662,23.0643 90.4465,23.0483 90.3808,23.0461 90.3408,23.0399 90.3372,23.0181 90.3697,22.9392 90.357,22.8543 90.3126,22.7449 90.3444,22.7242 90.3835,22.669 90.472,22.5023 90.4898,22.4469 90.4787,22.4072 90.5053,22.346 90.5056,22.3199 90.5009,22.278 90.4918,22.2497 90.4508,22.1819 90.4162,22.1627 90.3847,22.1474 90.3795,22.1193 90.3247,22.0486 90.279,22.0756 90.2948,22.1271 90.2951,22.1826 90.2943,22.2079 90.2901,22.2359 90.2774,22.1873 90.2853,22.1395 90.2561,22.0512 90.2295,22.0228 90.2064,21.9775 90.197,21.9501 90.1801,21.8774 90.171,21.8444 90.1594,21.8225 90.0919,21.7786 90.0602,21.7739 90.044,21.7774 90.005,21.7879 89.9129,21.8389 89.9193,21.9192 89.9567,21.9739 89.9567,21.9739 12,6.0,Bangladesh 89.9567,21.9739 89.982,22.0109 90.008,22.0414 90.0516,22.0828 90.0779,22.0853 90.1085,22.0953 90.1273,22.158 90.0379,22.0932 89.9846,22.0369 89.9661,22.0086 89.9567,21.9739 89.9567,21.9739 47,4.0,Oman 56.0085,26.0365 56.0156,26.0585 56.0382,26.0994 56.1001,26.2011 56.13,26.2314 56.1626,26.1889 56.2319,26.1717 56.2544,26.1695 56.2854,26.1866 56.3294,26.1907 56.3126,26.2105 56.2781,26.209 56.2623,26.1939 56.239,26.1936 56.2464,26.2395 56.2827,26.2919 56.3321,26.3392 56.3299,26.2555 56.386,26.2184 56.4092,26.2106 56.3991,26.1129 56.3052,26.143 56.3053,26.1686 56.2489,26.1379 56.2611,26.0829 56.302,26.0658 56.3591,26.0254 56.3518,25.9214 56.3298,25.8651 56.3201,25.845 56.2916,25.7933 56.2536,25.7282 56.2307,25.7181 56.2029,25.6894 56.1925,25.6309 56.1979,25.6074 56.1664,25.5977 56.1117,25.6262 56.0876,25.6337 56.0757,25.6374 56.0694,25.7061 56.0677,25.8038 56.0941,25.879 56.1139,25.9855 56.0815,26.0546 56.0085,26.0365 56.0085,26.0365 91,3.0,Qatar 50.7671,24.7222 50.7796,24.7315 50.7989,24.7628 50.7933,24.8429 50.7852,24.8857 50.7406,25.0364 50.7032,25.1014 50.7019,25.111 50.696,25.1579 50.691,25.2317 50.6872,25.4032 50.6919,25.4712 50.7184,25.4942 50.7433,25.4619 50.7541,25.4367 50.7736,25.4315 50.778,25.4599 50.7687,25.5368 50.7627,25.5643 50.8425,25.5604 50.8868,25.5707 50.908,25.6134 50.8859,25.6052 50.8543,25.5966 50.826,25.631 50.825,25.6891 50.8332,25.702 50.8359,25.7459 50.8668,25.7742 50.8909,25.7478 50.9095,25.7798 50.9048,25.7955 50.8974,25.7952 50.8881,25.8002 50.8841,25.8303 50.9332,25.9362 50.9718,26.0132 51.1064,26.0944 51.1794,26.1233 51.244,26.0976 51.2751,26.0759 51.2795,26.0499 51.2788,26.0138 51.3314,25.9322 51.3475,25.9207 51.413,25.9241 51.4352,25.9201 51.5015,25.8788 51.5274,25.7522 51.5278,25.731 51.5218,25.6651 51.4762,25.5926 51.4515,25.5851 51.4311,25.58 51.4195,25.5605 51.4257,25.5216 51.4097,25.4932 51.4232,25.4517 51.4384,25.4364 51.4546,25.4038 51.4522,25.355 51.445,25.3025 51.4448,25.2739 51.4664,25.2592 51.5102,25.2588 51.5376,25.2435 51.5388,25.2051 51.5487,25.1837 51.5504,25.1507 51.5465,24.9857 51.5045,24.8943 51.4663,24.849 51.4389,24.8263 51.4095,24.7567 51.4098,24.734 51.3707,24.6336 51.3018,24.5623 51.2704,24.5451 51.2704,24.5716 51.2834,24.6066 51.264,24.6247 51.2068,24.6294 51.1501,24.607 51.1507,24.5934 51.1402,24.5806 51.1145,24.559 51.0473,24.5285 50.9091,24.5497 50.8019,24.6624 50.7671,24.7222 50.7671,24.7222 186,4.0,United Arab Emirates 56.1979,25.6074 56.2563,25.5799 56.2751,25.5656 56.297,25.4908 56.2934,25.4374 56.2885,25.3929 56.2939,25.3541 56.304,25.3136 56.3098,25.2924 56.3012,25.2335 56.2861,25.0735 56.285,25.0537 56.2852,25.0413 56.3026,24.9517 56.2809,24.9488 56.2679,24.9415 56.2635,24.934 56.2681,24.8984 56.2693,24.8861 56.2612,24.8672 56.2322,24.8546 56.216,24.8425 56.2095,24.8295 56.1986,24.8219 56.1551,24.8061 56.1182,24.7973 56.1091,24.754 56.0733,24.7135 56.0335,24.7071 56.0062,24.7103 55.9938,24.7167 55.9107,24.8441 55.9281,24.8625 55.9581,24.8533 55.9804,24.8382 55.964,24.9184 55.9523,24.9381 55.9295,24.9491 55.9058,24.954 55.8746,24.9548 55.8517,24.9485 55.8182,24.9316 55.7959,24.9144 55.7753,24.8923 55.7439,24.8582 55.7337,24.8325 55.7435,24.7023 55.7498,24.6743 55.7736,24.6224 55.7425,24.5686 55.7114,24.5382 55.7277,24.4498 55.75,24.3896 55.7435,24.2899 55.709,24.2165 55.7925,24.187 55.8223,24.2003 55.8487,24.2097 55.8786,24.2056 55.9536,24.0565 55.937,24.0418 55.8054,24.0083 55.7318,23.9932 55.6106,24.0044 55.5685,24.001 55.4408,23.9461 55.4687,23.8784 55.4872,23.8593 55.4932,23.7422 55.4168,23.6153 55.3529,23.4811 55.2926,23.3 55.2751,23.256 55.255,23.218 55.228,23.1756 55.1988,23.132 55.1737,23.0911 55.1457,22.9882 55.1438,22.8927 55.1449,22.8687 55.1489,22.8263 55.1504,22.795 55.1494,22.7751 55.131,22.6743 55.0737,22.6081 52.5182,22.9133 51.5187,24.0897 51.5198,24.2335 51.5587,24.2375 51.6612,24.2339 51.7089,24.1514 51.7053,24.1256 51.7079,24.1021 51.7233,24.0178 51.7356,23.9866 51.7513,23.9712 51.7893,23.9612 51.8691,23.9608 52.0211,23.9292 52.1422,23.9434 52.1665,23.947 52.189,23.9531 52.2654,23.9754 52.3685,24.0257 52.4574,24.0949 52.5157,24.1643 52.5602,24.17 52.5876,24.1399 52.6115,24.1126 52.7063,24.1093 52.8772,24.1108 52.989,24.0946 53.014,24.0971 53.0793,24.109 53.158,24.109 53.2592,24.0759 53.3483,24.0805 53.3929,24.0791 53.4626,24.0609 53.49,24.0437 53.5007,24.0262 53.5207,24.0175 53.8068,24.0329 54.0559,24.1148 54.1185,24.1561 54.1779,24.1908 54.3137,24.2253 54.3592,24.2587 54.3882,24.3083 54.4012,24.3396 54.4092,24.3829 54.4344,24.4105 54.4781,24.4059 54.507,24.4139 54.6004,24.6358 54.5845,24.6922 54.5816,24.7192 54.639,24.7738 54.877,24.9257 54.9368,24.9483 54.9476,24.9553 54.9805,24.9781 54.9968,24.99 55.0596,25.0574 55.1081,25.1109 55.1217,25.126 55.1356,25.1421 55.1468,25.1598 55.1589,25.1768 55.1937,25.2153 55.2315,25.2537 55.2565,25.2775 55.2606,25.2836 55.2995,25.3328 55.3543,25.366 55.3959,25.3856 55.4226,25.431 55.4335,25.4452 55.4473,25.4833 55.4569,25.5116 55.4718,25.5369 55.4939,25.5454 55.475,25.5197 55.4784,25.4971 55.5147,25.498 55.5613,25.5078 55.5673,25.5274 55.5765,25.5538 55.62,25.5943 55.676,25.6323 55.7882,25.6919 55.9534,25.8535 55.9723,25.8997 56.0021,25.9968 56.0085,26.0365 56.0815,26.0546 56.1139,25.9855 56.0941,25.879 56.0677,25.8038 56.0694,25.7061 56.0757,25.6374 56.0876,25.6337 56.1117,25.6262 56.1664,25.5977 56.1979,25.6074 56.1979,25.6074 12,-7.0,Mexico -111.0641,25.7741 -111.081,25.8202 -111.0499,26.0071 -111.0074,26.0373 -110.9437,26.0425 -110.94,26.0306 -110.9572,25.9755 -110.9966,25.9538 -111.035,25.872 -111.0552,25.8163 -111.0641,25.7741 -111.0641,25.7741 18,8.0,China 119.5483,25.3976 119.5441,25.3995 119.5394,25.4086 119.5173,25.4535 119.5395,25.5701 119.5704,25.6102 119.6042,25.6321 119.6271,25.6268 119.6741,25.5541 119.6899,25.5135 119.6727,25.5161 119.6526,25.4993 119.6121,25.3876 119.6078,25.3755 119.5913,25.3767 119.5597,25.3921 119.5483,25.3976 119.5483,25.3976 19,-5.0,United States -80.4989,24.9229 -80.4699,24.9388 -80.353,25.0634 -80.308,25.1226 -80.2852,25.1537 -80.2565,25.1906 -80.2392,25.2295 -80.2289,25.2627 -80.1844,25.3134 -80.1715,25.3205 -80.1585,25.3196 -80.1544,25.307 -80.1655,25.3001 -80.2618,25.1325 -80.2677,25.118 -80.4733,24.9194 -80.4933,24.9185 -80.4989,24.9229 -80.4989,24.9229 195,8.0,Taiwan 120.177,22.4984 120.1815,22.5111 120.1732,22.5291 120.1644,22.5472 120.1474,22.5718 120.1195,22.5874 120.1049,22.6027 120.096,22.6152 120.0917,22.6243 120.0899,22.6356 120.103,22.6572 120.0801,22.7113 120.0579,22.7478 120.0509,22.7614 120.024,22.856 120.0188,22.8826 120.0151,22.9279 119.9868,22.997 119.9589,22.988 119.9155,23.0093 119.905,23.0187 119.9003,23.0352 119.9061,23.0483 119.9185,23.0536 119.9379,23.0533 119.9488,23.0622 119.9438,23.1012 119.9359,23.1078 119.916,23.1122 119.9083,23.1192 119.9076,23.1302 119.9343,23.2023 119.9506,23.2411 119.9606,23.2611 119.9809,23.2914 119.9945,23.2963 119.9984,23.3686 119.9854,23.4399 119.9795,23.4672 119.9757,23.4826 119.9742,23.488 119.9658,23.5427 119.9617,23.5909 119.9658,23.6049 120.0448,23.7567 120.0719,23.793 120.0896,23.8033 120.1283,23.8626 120.1338,23.8717 120.1623,23.9268 120.2124,24.0216 120.2702,24.1141 120.2764,24.1231 120.321,24.1661 120.3254,24.1832 120.3582,24.2623 120.3939,24.3349 120.4074,24.3579 120.4203,24.375 120.4274,24.383 120.4429,24.4007 120.4773,24.4365 120.4911,24.4519 120.499,24.4664 120.5052,24.4837 120.5143,24.5055 120.5444,24.571 120.5996,24.6198 120.7105,24.7115 120.7193,24.7125 120.751,24.8091 120.7686,24.8481 120.799,24.8957 120.8062,24.9053 120.8487,24.9738 120.8561,24.9808 120.9069,25.0207 121.0407,25.082 121.0696,25.0876 121.1219,25.0908 121.1566,25.098 121.1844,25.1045 121.2088,25.1151 121.2196,25.1229 121.2352,25.1301 121.2553,25.1273 121.2637,25.1211 121.287,25.1011 121.2899,25.1068 121.2416,25.1503 121.2421,25.1608 121.2809,25.2085 121.2883,25.2156 121.324,25.2421 121.3607,25.2542 121.4087,25.2555 121.4289,25.2477 121.4435,25.2391 121.4543,25.231 121.4622,25.2211 121.4822,25.1864 121.5267,25.1405 121.5799,25.1109 121.6339,25.0986 121.7268,25.0868 121.8461,24.9795 121.8408,24.9675 121.8245,24.959 121.8156,24.9572 121.7933,24.9486 121.7599,24.9323 121.7268,24.9032 121.6749,24.8394 121.6646,24.8226 121.6602,24.8072 121.6518,24.7623 121.6464,24.729 121.6475,24.7178 121.6639,24.6099 121.6679,24.5972 121.6753,24.5871 121.6904,24.5788 121.6962,24.5646 121.7003,24.5363 121.6999,24.5063 121.6865,24.4491 121.6781,24.4436 121.6638,24.4367 121.6508,24.4282 121.6432,24.4212 121.6277,24.3992 121.6238,24.3868 121.6071,24.3035 121.6199,24.2744 121.6004,24.2658 121.5925,24.2592 121.5237,24.1778 121.507,24.1579 121.4542,24.0565 121.4506,24.0314 121.4571,24.0147 121.4641,24.0073 121.4594,23.9565 121.4446,23.8732 121.3854,23.6748 121.3451,23.4591 121.3253,23.3961 121.3247,23.3886 121.3223,23.3749 121.3022,23.3011 121.2049,23.0619 121.1091,22.8745 121.0181,22.7371 120.9879,22.7101 120.9792,22.7029 120.9693,22.6994 120.9585,22.6968 120.9299,22.6837 120.8807,22.631 120.8649,22.6098 120.8203,22.5432 120.8064,22.5106 120.7297,22.3163 120.7237,22.2952 120.7225,22.2669 120.7242,22.2503 120.7306,22.2078 120.7361,22.0735 120.7328,22.0122 120.6758,21.9032 120.5713,21.9033 120.5608,21.9078 120.5506,21.9188 120.538,22.029 120.5447,22.0798 120.5426,22.0908 120.5291,22.1473 120.5266,22.1572 120.481,22.2526 120.472,22.2705 120.4615,22.2879 120.4261,22.3392 120.4047,22.3578 120.3568,22.3975 120.3398,22.4042 120.33,22.4061 120.2962,22.4284 120.2777,22.4459 120.2685,22.4576 120.241,22.4535 120.2309,22.4567 120.1951,22.4803 120.1802,22.4944 120.177,22.4984 120.177,22.4984 39,-7.0,Mexico -111.9908,25.2531 -111.9866,25.2444 -111.9831,25.228 -111.984,25.205 -111.9918,25.1658 -111.9982,25.1472 -112.0133,25.1153 -112.0294,25.0521 -112.0326,25.0337 -112.0606,24.8432 -112.0615,24.8296 -112.0607,24.8171 -112.0568,24.8006 -112.0532,24.791 -112.0296,24.7642 -111.9018,24.515 -111.9001,24.498 -111.908,24.4912 -111.9295,24.4971 -111.9463,24.5073 -112.0147,24.6017 -112.0389,24.6374 -112.0332,24.6538 -112.0159,24.6636 -112.0123,24.6778 -112.0135,24.7061 -112.0158,24.717 -112.0203,24.727 -112.0388,24.7564 -112.0461,24.7638 -112.0566,24.7683 -112.0811,24.7775 -112.1072,24.782 -112.0699,24.9564 -112.0561,24.9942 -112.0085,25.1487 -112.0029,25.1754 -111.9908,25.2531 -111.9908,25.2531 18,-7.0,Mexico -110.5553,25.0607 -110.5263,25.0325 -110.5004,25.0207 -110.4863,25.0161 -110.4631,25.0118 -110.4479,25.0111 -110.4384,25.0059 -110.4329,24.9974 -110.3908,24.8661 -110.3996,24.8548 -110.4183,24.8556 -110.4405,24.8637 -110.5017,24.902 -110.5671,25.0122 -110.5676,25.0347 -110.564,25.0617 -110.5553,25.0607 -110.5553,25.0607 626,0.0,Mali 4.2402,19.1254 4.2401,19.0512 4.2408,18.8455 4.2405,18.6399 4.2398,18.6245 4.2415,17.9779 4.2434,17.6284 4.2446,17.4566 4.246,17.2728 4.2462,16.9752 4.216,16.8962 4.1938,16.8019 4.1946,16.7279 4.1957,16.3755 4.1745,16.3658 4.1405,16.3515 4.1092,16.3297 4.0917,16.3126 4.0674,16.2803 3.9763,16.0523 3.9457,15.924 3.8976,15.7312 3.8905,15.7099 3.8803,15.6915 3.842,15.6568 3.8137,15.6467 3.775,15.644 3.729,15.6376 3.5632,15.4951 3.5315,15.412 3.5268,15.3812 3.5139,15.343 3.3034,15.3752 3.0288,15.4159 3.0191,15.3967 3.0082,15.3249 2.8567,15.3275 2.6251,15.3336 2.5077,15.3281 1.9719,15.3019 1.8825,15.2982 1.3109,15.2697 1.0842,15.0626 0.9932,14.9786 0.9738,14.9621 0.9378,14.961 0.7774,14.952 0.7304,14.9443 0.6943,14.9254 0.6531,14.939 0.618,14.9508 0.5116,14.9842 0.45,14.962 0.3961,14.9439 0.334,14.959 0.2804,14.972 0.2377,14.9835 0.232,14.9336 0.235,14.8985 1.0E-4,14.9777 -0.2458,15.0606 -0.3862,14.9884 -0.443,15.0658 -0.7241,15.0659 -1.0017,14.8237 -1.0725,14.7605 -1.0923,14.7678 -1.3172,14.7122 -1.3601,14.6848 -1.676,14.4844 -1.7754,14.4649 -1.9051,14.4724 -1.9783,14.4585 -1.9818,14.3944 -1.9869,14.3608 -1.9898,14.3267 -1.994,14.2922 -2.0045,14.1718 -2.1011,14.1367 -2.2421,14.202 -2.2866,14.2223 -2.3812,14.2496 -2.4622,14.2703 -2.5966,14.1958 -2.6435,14.146 -2.8119,14.0347 -2.8366,13.9899 -2.9001,13.807 -2.9011,13.7063 -2.8786,13.6491 -2.9385,13.6179 -2.9549,13.6139 -3.0956,13.6708 -3.2072,13.6928 -3.2537,13.6815 -3.2693,13.5352 -3.2564,13.4813 -3.2333,13.345 -3.23,13.3078 -3.2284,13.2732 -3.3699,13.2624 -3.3899,13.2618 -3.4218,13.2615 -3.4384,13.2463 -3.4281,13.2208 -3.4205,13.1967 -3.4231,13.1694 -3.4336,13.1519 -3.4446,13.1567 -3.5043,13.1641 -3.5337,13.1637 -3.5845,13.1879 -3.6127,13.2089 -3.7813,13.3443 -3.8986,13.4334 -3.9516,13.4864 -3.9596,13.4889 -3.9714,13.4611 -4.1517,13.2636 -4.187,13.2611 -4.2318,13.2262 -4.3087,13.1498 -4.3305,13.105 -4.2722,13.007 -4.2502,12.9821 -4.2125,12.955 -4.2024,12.9339 -4.1897,12.8142 -4.2015,12.7551 -4.216,12.7213 -4.258,12.7036 -4.284,12.7007 -4.4635,12.7097 -4.4649,12.6996 -4.4697,12.6512 -4.4481,12.624 -4.4234,12.6151 -4.3655,12.5147 -4.3919,12.4908 -4.4134,12.4589 -4.431,12.4153 -4.4123,12.2871 -4.4772,12.261 -4.5641,12.1877 -4.6193,12.1019 -4.6251,12.0798 -4.628,12.0539 -4.6933,12.0494 -4.9369,11.9952 -5.0738,11.9624 -5.1117,11.9512 -5.141,11.9393 -5.1622,11.9224 -5.2671,11.8306 -5.2816,11.775 -5.2625,11.674 -5.2178,11.5758 -5.1956,11.5253 -5.2025,11.4491 -5.2419,11.2401 -5.2935,11.1271 -5.316,11.1078 -5.3566,11.0892 -5.3879,11.082 -5.4573,11.0747 -5.4793,11.0648 -5.4803,11.0211 -5.4732,10.9902 -5.437,10.8853 -5.4132,10.8575 -5.4049,10.8295 -5.4384,10.7514 -5.4502,10.7096 -5.4582,10.6874 -5.467,10.6208 -5.4772,10.5155 -5.5136,10.4247 -5.5592,10.4457 -5.6627,10.4342 -5.6953,10.4183 -5.7196,10.4111 -5.7398,10.4118 -5.7756,10.4148 -5.7911,10.4098 -5.8757,10.3582 -5.9306,10.2732 -5.9574,10.2263 -5.9705,10.2052 -5.9974,10.18 -6.0834,10.1794 -6.1043,10.1865 -6.1386,10.2005 -6.1812,10.2203 -6.1902,10.225 -6.1731,10.3533 -6.1733,10.3917 -6.1746,10.4233 -6.1762,10.4521 -6.2054,10.5579 -6.1819,10.6248 -6.2174,10.7111 -6.2364,10.7234 -6.4062,10.676 -6.4098,10.6112 -6.3809,10.5822 -6.4147,10.5398 -6.5257,10.5644 -6.5817,10.5983 -6.5944,10.6256 -6.6142,10.6491 -6.6382,10.6523 -6.6618,10.6162 -6.669,10.5867 -6.6774,10.4799 -6.6616,10.4489 -6.6429,10.441 -6.6244,10.4222 -6.6433,10.3493 -6.6489,10.3426 -6.7121,10.339 -6.933,10.3421 -6.9527,10.322 -6.973,10.2364 -6.9475,10.2145 -6.9378,10.1967 -6.9407,10.1662 -6.9607,10.1445 -6.9802,10.1362 -7.0114,10.1307 -7.0317,10.1448 -7.0532,10.1786 -7.0706,10.1919 -7.1202,10.2119 -7.1759,10.2254 -7.2615,10.243 -7.34,10.3158 -7.3514,10.3393 -7.4433,10.3855 -7.6295,10.435 -7.6945,10.3916 -7.7231,10.3656 -7.746,10.3192 -7.7481,10.2846 -7.7791,10.234 -7.8177,10.1911 -7.8804,10.1624 -7.9304,10.146 -7.9547,10.1487 -7.965,10.1544 -7.933,10.2318 -7.9677,10.3175 -8.132,10.4124 -8.1775,10.405 -8.2088,10.4141 -8.2608,10.4907 -8.2727,10.5378 -8.312,10.7487 -8.278,10.8374 -8.2805,10.9957 -8.3365,11.0408 -8.4486,11.0386 -8.5015,10.9935 -8.5738,10.9606 -8.6618,10.9467 -8.6702,10.9904 -8.6004,11.1147 -8.468,11.2759 -8.4423,11.2793 -8.4219,11.2684 -8.3846,11.2673 -8.3596,11.2748 -8.3467,11.3015 -8.3535,11.3625 -8.381,11.38 -8.4511,11.407 -8.4864,11.408 -8.5071,11.4221 -8.5241,11.4813 -8.5382,11.4673 -8.568,11.4572 -8.595,11.4622 -8.6283,11.4844 -8.647,11.5075 -8.6625,11.5438 -8.6797,11.5895 -8.6847,11.6194 -8.6963,11.6429 -8.727,11.6255 -8.764,11.6271 -8.8217,11.6487 -8.7827,11.8435 -8.7696,11.9126 -8.787,11.9932 -8.9266,12.1775 -8.9517,12.1821 -8.9701,12.2162 -8.9673,12.2647 -8.9455,12.3018 -8.9334,12.3212 -8.9382,12.341 -8.9698,12.379 -9.0457,12.421 -9.0742,12.4235 -9.1424,12.4711 -9.2425,12.4857 -9.301,12.4908 -9.349,12.4744 -9.3897,12.4384 -9.3353,12.3926 -9.2844,12.3486 -9.2915,12.2992 -9.3077,12.2543 -9.3353,12.2393 -9.3599,12.2366 -9.3873,12.2409 -9.5695,12.1747 -9.6174,12.1519 -9.6338,12.1404 -9.6531,12.1183 -9.6593,12.0975 -9.6563,12.0685 -9.6909,12.0159 -9.747,12.0144 -9.854,12.0415 -9.9006,12.0798 -10.0873,12.1653 -10.3154,12.2099 -10.3192,12.1821 -10.3456,12.1528 -10.4411,12.1035 -10.5508,11.981 -10.6407,11.8792 -10.6729,11.885 -10.7159,11.9058 -10.7311,11.9498 -10.8026,12.0994 -10.8761,12.1841 -10.8974,12.2024 -10.9164,12.211 -10.9456,12.2127 -11.0331,12.1911 -11.0886,12.1041 -11.1381,12.0307 -11.158,12.0139 -11.1649,12.0036 -11.2304,11.982 -11.3069,12.0125 -11.3274,12.0335 -11.3621,12.0915 -11.4002,12.1066 -11.4364,12.1169 -11.4464,12.1227 -11.481,12.1627 -11.4816,12.1926 -11.4684,12.214 -11.4378,12.2307 -11.3703,12.3697 -11.36,12.394 -11.3608,12.4339 -11.3958,12.5212 -11.4041,12.5555 -11.411,12.6421 -11.3818,12.8177 -11.3568,12.9178 -11.3631,12.9683 -11.4501,13.0712 -11.5018,13.0975 -11.5157,13.1255 -11.543,13.1976 -11.5259,13.24 -11.5388,13.2681 -11.5947,13.3435 -11.6212,13.3767 -11.7027,13.3977 -11.7273,13.3942 -11.7451,13.3499 -11.796,13.2945 -11.8734,13.3669 -11.8646,13.4054 -11.9518,13.5129 -11.9769,13.5414 -12.0204,13.5957 -12.0432,13.6494 -12.0503,13.6805 -12.0273,13.7132 -11.996,13.7312 -11.9755,13.7459 -11.9539,13.7663 -11.9419,13.7857 -11.9339,13.8149 -11.9287,13.8435 -11.9278,13.868 -11.9294,13.8912 -11.9446,13.9072 -11.9726,13.9281 -11.9938,13.9506 -12.0,14.0029 -11.9903,14.0461 -11.9661,14.1356 -11.9682,14.1572 -12.016,14.2618 -12.1366,14.3583 -12.1921,14.3794 -12.2112,14.489 -12.2025,14.5237 -12.1642,14.5914 -12.2296,14.7343 -12.2304,14.7479 -12.1606,14.7517 -12.0797,14.7232 -12.0456,14.7094 -11.9602,14.7551 -11.8526,14.8243 -11.8273,14.8464 -11.8011,14.9082 -11.7822,14.998 -11.7982,15.0336 -11.8267,15.0301 -11.8323,15.0804 -11.8179,15.1784 -11.781,15.3042 -11.7407,15.4216 -11.7263,15.4604 -11.7022,15.4813 -11.6967,15.5085 -11.6977,15.5278 -11.6256,15.508 -11.5859,15.5283 -11.5239,15.5792 -11.4847,15.6245 -11.4413,15.6261 -11.4045,15.6159 -11.3513,15.5585 -11.3234,15.5071 -11.2886,15.4578 -11.2729,15.4384 -11.2404,15.4142 -11.2232,15.4027 -11.1863,15.3772 -11.1589,15.3577 -10.9797,15.2257 -10.9717,15.2063 -10.9608,15.1821 -10.9013,15.108 -10.8835,15.0936 -10.835,15.189 -10.7515,15.2945 -10.7216,15.3245 -10.7066,15.3575 -10.7036,15.4219 -10.6621,15.4149 -10.6372,15.4132 -10.5923,15.411 -10.5548,15.4152 -10.4575,15.4199 -10.2983,15.4242 -10.2774,15.4209 -10.2003,15.391 -10.106,15.3557 -10.0747,15.3517 -10.0485,15.3499 -10.0208,15.3498 -9.7994,15.3577 -9.7664,15.3691 -9.7343,15.3885 -9.6849,15.4127 -9.649,15.414 -9.3985,15.4272 -9.4037,15.4618 -9.4312,15.5794 -9.3266,15.6871 -9.3004,15.6599 -9.3211,15.5461 -9.3223,15.4826 -9.2151,15.4815 -9.1737,15.4811 -9.0797,15.4818 -9.0261,15.4811 -8.9853,15.481 -8.5749,15.484 -8.5035,15.484 -8.4947,15.4837 -8.0412,15.4841 -7.9915,15.4836 -7.6531,15.4862 -7.492,15.4879 -7.3493,15.4884 -7.0103,15.4899 -6.6506,15.4885 -6.4186,15.4873 -6.3114,15.4864 -6.3004,15.4856 -5.9517,15.4871 -5.5766,15.4821 -5.4884,15.4811 -5.4867,15.4981 -5.4771,15.5498 -5.4137,15.8767 -5.3793,16.0485 -5.366,16.1172 -5.3282,16.3098 -5.5945,16.4894 -5.6209,16.7299 -5.6875,17.3309 -5.7405,17.8111 -5.7755,18.1322 -5.7963,18.3208 -5.8303,18.6292 -5.8466,18.7662 -5.8771,19.0406 -5.8936,19.1943 -5.9111,19.3484 -5.9492,19.6905 -5.9666,19.8443 -5.9992,20.1267 -6.0478,20.5364 -6.0699,20.7239 -6.0996,20.9761 -6.1245,21.1975 -6.1453,21.385 -6.1666,21.5725 -6.2005,21.8615 -6.2183,22.0147 -6.291,22.6435 -6.3117,22.83 -6.3179,22.8809 -6.3277,22.9645 -6.359,23.2288 -6.4335,23.8521 -6.467,24.1344 -6.5026,24.4309 -6.5153,24.5353 -6.5251,24.6052 -6.5689,24.9714 -6.4919,24.9722 -6.3586,24.972 -6.2916,24.9715 -6.1258,24.9715 -5.7597,24.972 -4.9601,24.9716 -4.8602,24.9716 -4.8,24.9724 -4.5194,24.7972 -4.1175,24.5438 -3.7872,24.3331 -3.4582,24.122 -3.2296,23.9738 -2.8212,23.7084 -2.4451,23.4609 -2.0871,23.2242 -1.7481,22.9978 -1.4104,22.7703 -1.1413,22.5874 -0.7729,22.336 -0.4226,22.0952 -0.107,21.876 -0.0079,21.8064 0.0156,21.7909 0.1498,21.7087 0.267,21.6365 0.4007,21.5541 0.7675,21.3277 1.1693,21.0773 1.1842,21.0341 1.1936,20.9993 1.1957,20.9791 1.191,20.9142 1.1849,20.8772 1.1801,20.8541 1.1694,20.8173 1.1588,20.7769 1.162,20.7317 1.1749,20.7105 1.3497,20.6589 1.4765,20.6183 1.5171,20.6036 1.576,20.577 1.6256,20.5482 1.6599,20.5154 1.67,20.4421 1.6665,20.3927 1.713,20.3474 1.7876,20.2904 1.808,20.2783 1.8981,20.2371 2.0882,20.1963 2.1268,20.2138 2.1713,20.2539 2.2012,20.2606 2.225,20.2514 2.2732,20.2196 2.3171,20.1807 2.3415,20.1554 2.3524,20.1385 2.3739,20.1044 2.3837,20.0864 2.403,20.0431 2.4188,20.0307 2.5118,19.9998 2.5846,19.9795 2.6996,19.9802 2.8989,19.9447 3.0025,19.9055 3.0252,19.8957 3.2292,19.795 3.2272,19.7154 3.2191,19.6015 3.2088,19.5624 3.2077,19.5349 3.2444,19.4243 3.2666,19.4039 3.2742,19.3843 3.2685,19.3551 3.1874,19.2345 3.1427,19.1807 3.122,19.1588 3.1133,19.1243 3.1335,19.0958 3.18,19.0572 3.3281,18.9551 3.729,19.0303 3.9046,19.0635 3.9479,19.0718 4.076,19.0953 4.2402,19.1254 4.2402,19.1254 307,4.0,Oman 55.131,22.6743 55.1494,22.7751 55.1504,22.795 55.1489,22.8263 55.1449,22.8687 55.1438,22.8927 55.1457,22.9882 55.1737,23.0911 55.1988,23.132 55.228,23.1756 55.255,23.218 55.2751,23.256 55.2926,23.3 55.3529,23.4811 55.4168,23.6153 55.4932,23.7422 55.4872,23.8593 55.4687,23.8784 55.4408,23.9461 55.5685,24.001 55.6106,24.0044 55.7318,23.9932 55.8054,24.0083 55.937,24.0418 55.9536,24.0565 55.8786,24.2056 55.8487,24.2097 55.8223,24.2003 55.7925,24.187 55.709,24.2165 55.7435,24.2899 55.75,24.3896 55.7277,24.4498 55.7114,24.5382 55.7425,24.5686 55.7736,24.6224 55.7498,24.6743 55.7435,24.7023 55.7337,24.8325 55.7439,24.8582 55.7753,24.8923 55.7959,24.9144 55.8182,24.9316 55.8517,24.9485 55.8746,24.9548 55.9058,24.954 55.9295,24.9491 55.9523,24.9381 55.964,24.9184 55.9804,24.8382 55.9581,24.8533 55.9281,24.8625 55.9107,24.8441 55.9938,24.7167 56.0062,24.7103 56.0335,24.7071 56.0733,24.7135 56.1091,24.754 56.1182,24.7973 56.1551,24.8061 56.1986,24.8219 56.2095,24.8295 56.216,24.8425 56.2322,24.8546 56.2612,24.8672 56.2693,24.8861 56.2681,24.8984 56.2635,24.934 56.2679,24.9415 56.2809,24.9488 56.3026,24.9517 56.3046,24.9365 56.3429,24.8405 56.4285,24.6553 56.4547,24.6032 56.4752,24.5683 56.5326,24.4744 56.5486,24.4502 56.5825,24.4212 56.6072,24.4045 56.6436,24.3738 56.726,24.2817 56.7428,24.259 56.7587,24.2157 56.796,24.1623 56.8363,24.1136 56.9184,24.044 56.987,23.9883 57.0419,23.9469 57.1001,23.9079 57.4635,23.7979 57.7636,23.7115 57.7963,23.6978 57.8221,23.6908 57.8581,23.6861 57.871,23.6865 57.9187,23.6941 57.9498,23.698 58.0064,23.694 58.0279,23.6906 58.0773,23.677 58.101,23.6696 58.1344,23.6562 58.1752,23.6303 58.1935,23.61 58.2235,23.5974 58.2689,23.5896 58.3318,23.5902 58.3665,23.5929 58.4075,23.6056 58.4226,23.6251 58.5041,23.6188 58.5365,23.6065 58.7195,23.4479 58.7953,23.3358 58.8542,23.2929 58.9277,23.174 58.9359,23.1346 58.9443,23.1164 58.9597,23.0929 59.0176,23.0154 59.0457,22.991 59.095,22.9663 59.1143,22.9527 59.1514,22.9213 59.2079,22.7976 59.2183,22.7771 59.2376,22.7524 59.3245,22.6552 59.3706,22.6143 59.4131,22.5844 59.4605,22.5513 59.5006,22.5434 59.5766,22.5419 59.7281,22.5117 59.7587,22.4637 59.7733,22.4049 59.7581,22.2874 59.7551,22.2667 59.7357,22.1984 59.6987,22.1421 59.6443,22.0761 59.5777,21.9087 59.5117,21.8546 59.4676,21.7856 59.4416,21.7597 59.4267,21.7431 59.4152,21.7213 59.4016,21.6582 59.3849,21.6053 59.2716,21.418 59.2324,21.3973 59.2018,21.3865 59.1322,21.3525 59.1015,21.3366 59.0157,21.2733 58.8442,21.1131 58.7817,21.036 58.7653,21.0158 58.7326,20.9689 58.6393,20.8238 58.6515,20.7625 58.6561,20.737 58.6365,20.7185 58.5847,20.6778 58.5273,20.6317 58.5105,20.5941 58.495,20.5323 58.4498,20.3968 58.3812,20.3357 58.3467,20.3326 58.2064,20.3472 58.2316,20.3591 58.1973,20.3559 58.1408,20.3746 58.1289,20.3958 58.1436,20.4362 58.1598,20.462 58.1955,20.5486 58.1925,20.5698 58.1698,20.5875 58.1431,20.5899 58.0501,20.5563 58.0144,20.5341 57.9973,20.4763 57.9767,20.442 57.8823,20.3632 57.784,20.2348 57.7579,20.1938 57.7523,20.1731 57.7531,20.152 57.7702,20.1218 57.7697,20.072 57.7427,19.951 57.703,19.8345 57.6645,19.7812 57.6211,19.7206 57.6177,19.6865 57.6225,19.6629 57.6754,19.451 57.698,19.4008 57.7039,19.3691 57.7004,19.34 57.6904,19.3098 57.6727,19.2732 57.6818,19.2295 57.7316,19.1031 57.7698,19.0069 57.7358,18.9499 57.6442,18.9197 57.5936,18.9168 57.5289,18.9222 57.4544,18.9314 57.4211,18.9291 57.2701,18.9091 57.2237,18.9024 57.0962,18.8744 57.0697,18.8678 56.9713,18.8373 56.8606,18.7915 56.8326,18.7784 56.7416,18.7236 56.7262,18.7101 56.6645,18.6487 56.6392,18.6238 56.5874,18.5756 56.5754,18.5585 56.569,18.517 56.5658,18.4167 56.5414,18.3132 56.5167,18.245 56.4937,18.2039 56.4839,18.1736 56.4932,18.1164 56.4884,18.1096 56.4494,18.0817 56.4158,18.0716 56.3884,18.0545 56.3379,17.9923 56.2829,17.9417 56.2842,17.921 56.2357,17.9211 56.1989,17.9277 56.1647,17.9313 56.1243,17.9337 55.959,17.9177 55.9117,17.905 55.7855,17.8835 55.7326,17.8854 55.5767,17.8712 55.4552,17.8431 55.4017,17.8257 55.3691,17.8061 55.3516,17.7798 55.338,17.7454 55.3141,17.6916 55.2989,17.6656 55.2689,17.6436 55.2482,17.6332 55.1994,17.5941 55.1638,17.5303 55.1582,17.4754 55.1699,17.4494 55.207,17.4317 55.2318,17.402 55.2384,17.3797 55.233,17.3484 55.184,17.2477 55.1459,17.1739 55.0253,17.0386 55.0087,17.0233 54.9657,16.9959 54.8943,16.9686 54.833,16.9474 54.7378,16.9261 54.6706,16.9383 54.6279,16.9608 54.6165,16.9931 54.5853,17.0062 54.5411,17.0125 54.5198,17.015 54.4386,17.019 54.3545,17.0167 54.3231,17.016 54.0276,16.9955 53.9452,16.958 53.8646,16.8899 53.762,16.868 53.6782,16.8402 53.6267,16.7984 53.6128,16.7763 53.532,16.7264 53.5117,16.7253 53.4838,16.7283 53.3893,16.7282 53.2889,16.7113 53.122,16.664 53.0621,16.642 53.0509,16.6241 52.7487,17.2662 52.7184,17.3306 51.9361,18.9783 54.9331,19.9778 55.3544,21.2437 55.5977,21.9753 55.131,22.6743 55.131,22.6743 19,9.0,Japan 125.1303,24.8378 125.1672,24.78 125.1917,24.7537 125.2022,24.7483 125.2302,24.7493 125.2446,24.7472 125.2847,24.7274 125.2925,24.7148 125.2885,24.7051 125.1876,24.69 125.1626,24.689 125.1467,24.6888 125.1155,24.6936 125.1015,24.6996 125.0945,24.7102 125.1079,24.8554 125.1236,24.8475 125.1303,24.8378 125.1303,24.8378 13,-7.0,Mexico -110.1963,24.3733 -110.2064,24.3779 -110.2191,24.4065 -110.2647,24.5356 -110.2633,24.5504 -110.2405,24.5593 -110.2289,24.5523 -110.161,24.4573 -110.1604,24.4342 -110.172,24.4031 -110.1894,24.3738 -110.1963,24.3733 -110.1963,24.3733 29,9.0,Japan 123.9393,24.4122 123.9925,24.4072 124.036,24.409 124.0614,24.4177 124.09,24.4688 124.1293,24.5295 124.1547,24.5562 124.1689,24.5588 124.1742,24.5463 124.1699,24.5273 124.1487,24.5103 124.1398,24.5008 124.1202,24.4634 124.1057,24.4301 124.0978,24.3902 124.0964,24.378 124.0966,24.3633 124.0837,24.3241 124.0759,24.3129 124.0635,24.3083 124.0233,24.3011 124.0081,24.3001 123.998,24.3023 123.9861,24.3064 123.9681,24.3161 123.9212,24.3952 123.925,24.4084 123.9393,24.4122 123.9393,24.4122 13,8.0,China 117.9305,24.412 117.9206,24.4195 117.9149,24.4276 117.917,24.46 117.9485,24.5247 118.03,24.502 118.0401,24.4645 117.9975,24.405 117.9819,24.3992 117.9621,24.3987 117.9477,24.4034 117.9305,24.412 117.9305,24.412 15,-7.0,Mexico -111.5676,24.3012 -111.5919,24.3271 -111.6026,24.3377 -111.6158,24.3466 -111.6942,24.4002 -111.7951,24.4595 -111.8661,24.4898 -111.8747,24.501 -111.6982,24.5151 -111.5599,24.373 -111.5541,24.3643 -111.5551,24.3374 -111.5645,24.3072 -111.5676,24.3012 -111.5676,24.3012 13,8.0,Taiwan 118.1447,24.3928 118.1512,24.4065 118.1815,24.4362 118.2443,24.4884 118.2551,24.4934 118.2888,24.4685 118.3016,24.4359 118.2959,24.4003 118.2725,24.3706 118.1389,24.363 118.1302,24.3783 118.1447,24.3928 118.1447,24.3928 14,9.0,Japan 123.6369,24.3779 123.7467,24.3496 123.7719,24.34 123.7809,24.3271 123.77,24.2943 123.7468,24.2564 123.7178,24.2269 123.7066,24.2242 123.5632,24.2503 123.5239,24.2889 123.6138,24.3892 123.6257,24.3894 123.6369,24.3779 123.6369,24.3779 18,-7.0,Mexico -109.6508,24.1052 -109.7017,24.1212 -109.7123,24.132 -109.7252,24.1478 -109.7334,24.1607 -109.7453,24.1902 -109.7624,24.2407 -109.786,24.311 -109.7792,24.3395 -109.7453,24.303 -109.7312,24.2819 -109.7227,24.2693 -109.6609,24.164 -109.6518,24.1454 -109.6459,24.131 -109.6454,24.1123 -109.6508,24.1052 -109.6508,24.1052 19,4.0,United Arab Emirates 53.7168,24.0981 53.6108,24.1332 53.5985,24.1286 53.5877,24.1252 53.5712,24.1247 53.5597,24.132 53.5578,24.1426 53.5643,24.1506 53.5732,24.1562 53.6413,24.1948 53.7852,24.2408 53.8917,24.1643 53.8972,24.1526 53.8875,24.1188 53.8791,24.1129 53.8327,24.1056 53.754,24.1103 53.7168,24.0981 53.7168,24.0981 15,8.0,China 117.3208,23.7293 117.3401,23.7294 117.3527,23.7232 117.3614,23.7139 117.36,23.6993 117.2682,23.576 117.2478,23.559 117.2108,23.5434 117.1643,23.5555 117.1925,23.6686 117.2236,23.7358 117.2351,23.7458 117.2551,23.7452 117.3208,23.7293 117.3208,23.7293 416,1.0,Niger 14.9793,22.9751 14.9884,22.934 15.0293,22.7263 15.1358,22.1782 15.176,21.9743 15.1789,21.7958 15.1808,21.631 15.1813,21.59 15.1828,21.4936 15.1909,21.4679 15.2659,21.4215 15.5143,21.0663 15.5641,20.9952 15.5968,20.9277 15.5655,20.9067 15.5474,20.8822 15.5376,20.8519 15.5352,20.8294 15.5384,20.7926 15.5586,20.7427 15.5936,20.7086 15.6141,20.6937 15.6493,20.6776 15.9772,20.3304 15.9627,20.3038 15.8541,20.1171 15.7851,19.9978 15.7347,19.9102 15.7111,19.7331 15.6942,19.5972 15.6152,18.9976 15.5919,18.8205 15.5837,18.7614 15.5556,18.2694 15.5541,18.2285 15.5401,17.9795 15.5049,17.3406 15.4712,16.902 15.4665,16.8791 15.464,16.8756 15.4386,16.8491 15.3358,16.7425 15.2205,16.6227 15.1041,16.5028 14.8867,16.2764 14.555,15.9299 14.3518,15.7164 14.2546,15.5795 14.1787,15.4718 14.0557,15.2967 13.9808,15.1889 13.8427,15.0209 13.7701,14.8725 13.7509,14.8316 13.7625,14.7857 13.778,14.7164 13.7429,14.6893 13.6671,14.5924 13.6686,14.5632 13.6584,14.5362 13.6319,14.5154 13.6138,14.5057 13.5992,14.5001 13.5318,14.4956 13.5017,14.4808 13.4792,14.4684 13.4603,14.4518 13.4495,14.4349 13.4464,14.4144 13.5468,13.9779 13.5849,13.8131 13.6097,13.7032 13.3326,13.7048 13.24,13.5928 13.1873,13.5123 13.1109,13.504 13.0789,13.5079 13.0605,13.5236 13.0015,13.5186 12.885,13.4693 12.8616,13.4583 12.7561,13.3625 12.7351,13.334 12.6324,13.2722 12.594,13.258 12.575,13.2487 12.5588,13.2299 12.5275,13.1744 12.5297,13.138 12.4777,13.0831 12.4453,13.0516 12.4155,13.0583 12.3545,13.0609 12.1616,13.1075 11.9942,13.1567 11.8772,13.2227 11.8113,13.2562 11.518,13.3404 11.4788,13.3508 11.4503,13.3585 11.4137,13.3641 11.3798,13.3661 11.3258,13.3644 11.2559,13.3621 11.226,13.3604 11.1912,13.3569 11.1585,13.3517 11.1143,13.3468 11.0884,13.3456 11.054,13.345 11.0259,13.3456 10.9989,13.3469 10.965,13.3492 10.9453,13.351 10.8945,13.3575 10.8688,13.3647 10.8289,13.3711 10.7826,13.3742 10.7375,13.3737 10.7025,13.3707 10.6327,13.3598 10.5802,13.3425 10.5234,13.325 10.452,13.3039 10.4306,13.2998 10.4003,13.2948 10.35,13.2897 10.3259,13.2862 10.2134,13.2658 10.1674,13.2563 10.13,13.2412 9.9769,13.158 9.9474,13.1388 9.9228,13.1215 9.8618,13.0607 9.6835,12.8568 9.6241,12.7881 9.6111,12.7904 9.4135,12.8026 9.2262,12.8154 9.103,12.8275 9.0548,12.8304 9.0225,12.8325 9.0009,12.8328 8.9817,12.832 8.8088,12.8824 8.652,12.9313 8.6385,12.9566 8.623,12.9862 8.6014,13.0107 8.5493,13.0493 8.5298,13.0615 8.4973,13.07 8.4616,13.0694 8.4421,13.0645 8.3993,13.0736 8.3389,13.126 8.278,13.1837 8.2422,13.2029 8.2217,13.2068 8.1323,13.2657 8.1165,13.2841 8.0344,13.3059 7.8062,13.3378 7.3716,13.0853 7.3336,13.092 7.2107,13.1109 7.1395,13.0283 7.0825,12.9808 7.0204,12.9812 6.9344,12.9825 6.7988,13.0933 6.7715,13.1436 6.6706,13.3303 6.568,13.4357 6.4159,13.5901 6.3815,13.6105 6.2755,13.6686 6.2309,13.6681 6.1262,13.6457 5.9907,13.6861 5.9551,13.6999 5.8681,13.7343 5.6937,13.8023 5.6507,13.8213 5.5419,13.8761 5.5202,13.8714 5.358,13.831 5.336,13.7792 5.2831,13.7376 5.2091,13.7315 4.9945,13.7183 4.9179,13.721 4.8802,13.7662 4.6206,13.7067 4.4739,13.6734 4.243,13.4662 4.1382,13.4584 4.1379,13.3863 4.1365,13.2588 4.135,13.1625 4.1006,12.9821 4.0726,12.9368 3.9483,12.7347 3.9078,12.7038 3.6536,12.5151 3.6571,12.4314 3.6621,12.2357 3.6524,12.2015 3.6329,12.0943 3.6669,11.9916 3.6678,11.9623 3.6129,11.9063 3.6276,11.8123 3.6666,11.794 3.6843,11.7365 3.6005,11.6801 3.554,11.7234 3.5421,11.7615 3.5042,11.8111 3.4676,11.8416 3.3716,11.8815 3.3529,11.8724 3.3173,11.873 3.2946,11.8972 3.2665,11.9388 3.2582,11.9644 3.2519,11.9981 3.1588,12.0999 3.0069,12.2551 2.8614,12.3679 2.8355,12.3829 2.7772,12.3682 2.7162,12.3386 2.6621,12.289 2.6087,12.2787 2.5329,12.2676 2.3856,12.2337 2.3739,12.1931 2.3862,12.1163 2.401,12.071 2.3991,11.9438 2.3952,11.883 2.3896,11.8909 2.3183,11.9865 2.0563,12.3433 2.0749,12.3697 2.1594,12.4018 2.2333,12.4048 2.2538,12.4671 2.2183,12.5797 2.1985,12.6168 2.1398,12.6799 2.1041,12.7006 1.9867,12.717 1.9259,12.6863 1.8698,12.595 1.5765,12.6159 1.3207,12.8283 1.1162,12.9966 1.0104,13.0096 0.9883,13.0329 0.9881,13.076 0.9898,13.3218 0.9905,13.3568 1.0107,13.3578 1.0429,13.3486 1.0721,13.3357 1.1067,13.3203 1.1784,13.2986 1.2753,13.3331 1.2418,13.3749 1.2053,13.3728 1.1696,13.3815 1.1228,13.3986 1.0304,13.4477 1.0143,13.4727 1.0146,13.5086 0.9956,13.551 0.7856,13.6538 0.6244,13.6689 0.6068,13.6837 0.5149,13.8387 0.4646,13.898 0.3546,14.1151 0.392,14.1649 0.4082,14.2291 0.3843,14.2678 0.3208,14.3468 0.2962,14.3513 0.2327,14.4092 0.1892,14.4487 0.1665,14.5068 0.2253,14.6845 0.2411,14.736 0.1962,14.8257 0.2116,14.8475 0.2321,14.8637 0.235,14.8985 0.232,14.9336 0.2377,14.9835 0.2804,14.972 0.334,14.959 0.3961,14.9439 0.45,14.962 0.5116,14.9842 0.618,14.9508 0.6531,14.939 0.6943,14.9254 0.7304,14.9443 0.7774,14.952 0.9378,14.961 0.9738,14.9621 0.9932,14.9786 1.0842,15.0626 1.3109,15.2697 1.8825,15.2982 1.9719,15.3019 2.5077,15.3281 2.6251,15.3336 2.8567,15.3275 3.0082,15.3249 3.0191,15.3967 3.0288,15.4159 3.3034,15.3752 3.5139,15.343 3.5268,15.3812 3.5315,15.412 3.5632,15.4951 3.729,15.6376 3.775,15.644 3.8137,15.6467 3.842,15.6568 3.8803,15.6915 3.8905,15.7099 3.8976,15.7312 3.9457,15.924 3.9763,16.0523 4.0674,16.2803 4.0917,16.3126 4.1092,16.3297 4.1405,16.3515 4.1745,16.3658 4.1957,16.3755 4.1946,16.7279 4.1938,16.8019 4.216,16.8962 4.2462,16.9752 4.246,17.2728 4.2446,17.4566 4.2434,17.6284 4.2415,17.9779 4.2398,18.6245 4.2405,18.6399 4.2408,18.8455 4.2401,19.0512 4.2402,19.1254 4.3505,19.1458 4.4969,19.1743 4.881,19.2482 5.3023,19.3293 5.5403,19.3744 5.6502,19.3946 5.7782,19.4185 5.8055,19.4245 5.9563,19.5551 5.9746,19.5715 6.2956,19.8491 6.4663,19.9954 6.6367,20.1418 6.922,20.3854 7.4547,20.8334 7.6348,20.9424 7.7158,20.9921 7.9072,21.109 8.0398,21.1897 8.5719,21.5115 8.7054,21.5916 8.9875,21.7606 9.4585,22.0405 9.731,22.2018 10.108,22.4226 10.3277,22.5513 10.6041,22.7124 10.7397,22.7909 10.8152,22.8344 11.087,22.9913 11.6932,23.3382 11.7537,23.3719 11.9715,23.496 11.9986,23.4897 12.2649,23.4332 12.3241,23.4206 12.3834,23.4081 12.4576,23.3931 12.5758,23.3677 12.8718,23.304 13.0932,23.2552 13.3295,23.2033 13.3736,23.1938 13.3976,23.1895 13.4512,23.1716 13.527,23.1429 13.5473,23.1331 13.5786,23.1135 13.5959,23.1018 13.892,22.858 14.2174,22.5888 14.3391,22.6505 14.4005,22.6829 14.477,22.7219 14.7999,22.8854 14.8466,22.9089 14.939,22.9551 14.9793,22.9751 14.9793,22.9751 13,8.0,China 116.9698,23.4478 116.9841,23.4215 116.9759,23.3746 116.9588,23.3732 116.888,23.3778 116.8082,23.3943 116.7996,23.4083 116.8074,23.4228 116.8197,23.4317 116.9548,23.4631 116.9678,23.4509 116.9698,23.4478 116.9698,23.4478 465,1.0,Chad 14.9793,22.9751 15.1142,23.0367 15.3162,23.1276 15.9812,23.4245 16.3258,23.2663 16.9592,22.9728 17.6346,22.6556 17.6654,22.6411 18.0144,22.475 18.3411,22.3197 18.7454,22.1256 18.9766,22.0136 19.2745,21.8695 19.8495,21.5876 20.3836,21.3236 20.9339,21.0491 21.3559,20.8355 21.7551,20.6331 22.2942,20.3571 22.9928,19.9955 23.4283,19.7674 23.9737,19.4772 23.9707,19.4441 23.9703,19.4111 23.9702,18.8118 23.9709,18.7333 23.97,18.5117 23.9702,18.279 23.9705,16.2479 23.9713,16.115 23.9714,15.8152 23.969,15.6854 23.9447,15.6804 23.9225,15.6882 23.8368,15.7129 23.7721,15.7303 23.6351,15.7399 23.5748,15.7401 23.5361,15.7323 23.5035,15.7241 23.4511,15.7085 23.4323,15.6992 23.4061,15.6834 23.3814,15.6735 23.3536,15.6676 23.329,15.6643 23.302,15.6663 23.2778,15.6693 23.2168,15.6835 23.1426,15.6932 23.1162,15.6938 23.0905,15.6928 23.0811,15.6889 22.91,15.5445 22.8962,15.5228 22.8924,15.4986 22.8957,15.4701 22.9082,15.4474 22.9556,15.3969 22.9698,15.3541 22.9701,15.3186 22.9642,15.2664 22.9574,15.2142 22.9514,15.1908 22.9024,15.0973 22.8656,15.0881 22.8459,15.0801 22.8186,15.0582 22.7592,14.9983 22.7264,14.9603 22.6427,14.8373 22.6431,14.7977 22.6533,14.7416 22.6732,14.6878 22.4739,14.6211 22.4437,14.6132 22.3901,14.5841 22.3724,14.5702 22.3606,14.5465 22.3587,14.509 22.4122,14.4768 22.4199,14.4577 22.423,14.3633 22.4234,14.3139 22.4855,14.2243 22.5278,14.213 22.5407,14.1513 22.53,14.114 22.4086,14.0361 22.3449,14.0134 22.2914,13.9951 22.2088,13.9499 22.1727,13.907 22.0593,13.7639 22.111,13.6496 22.2024,13.4806 22.2693,13.3579 22.2598,13.3259 22.2442,13.3059 22.1281,13.1718 22.0424,13.134 22.0003,13.1255 21.9172,13.0369 21.8671,12.9401 21.8044,12.7829 21.8638,12.6791 21.8826,12.6553 21.9008,12.6421 21.928,12.6297 21.9525,12.6245 21.9802,12.6225 22.0252,12.6234 22.0496,12.6258 22.0952,12.6344 22.1205,12.6432 22.1373,12.6547 22.175,12.7013 22.1984,12.733 22.3065,12.6591 22.439,12.6007 22.3828,12.4714 22.4139,12.3336 22.4785,12.1523 22.5387,12.0612 22.5863,11.9793 22.5728,11.9134 22.5477,11.7859 22.5281,11.653 22.5342,11.616 22.5503,11.5889 22.5883,11.5378 22.6005,11.5218 22.6234,11.4989 22.7653,11.4169 22.9079,11.3962 22.9462,11.2676 22.9488,11.1972 22.8685,10.9647 22.8416,10.9102 22.7998,10.9191 22.6515,10.9571 22.4389,10.9888 22.4083,10.9748 22.3894,10.9521 22.3395,10.943 22.3035,10.9315 22.2204,10.8988 21.9822,10.7568 21.9332,10.7205 21.8719,10.6932 21.7959,10.6665 21.7619,10.6566 21.6951,10.6265 21.6788,10.5518 21.6773,10.5092 21.6812,10.4864 21.6956,10.4567 21.7142,10.4369 21.7234,10.3979 21.6948,10.285 21.6434,10.2244 21.6152,10.2117 21.5852,10.201 21.5455,10.2015 21.5136,10.2002 21.497,10.1882 21.4765,10.1664 21.4503,10.1367 21.431,10.1025 21.4309,10.0817 21.4119,10.0306 21.385,9.996 21.3399,9.9581 21.3158,9.9474 21.2695,9.9609 21.2423,9.967 21.2018,9.9314 21.0252,9.7556 20.9515,9.5925 20.871,9.5097 20.8528,9.5007 20.8151,9.466 20.8042,9.4408 20.794,9.4053 20.7781,9.4101 20.4759,9.2657 20.4772,9.2316 20.4653,9.1995 20.4368,9.1653 20.3996,9.1296 20.3493,9.0984 20.303,9.0948 20.248,9.1084 20.1647,9.1159 20.0428,9.1249 19.9414,9.0698 19.9117,9.0475 19.8835,9.0491 19.8085,9.043 19.5892,9.0168 19.3898,9.006 19.1723,9.011 19.0885,9.0036 19.0657,8.9993 19.0026,8.9743 18.9681,8.9544 18.9087,8.9108 18.8717,8.8816 18.8487,8.8513 18.8554,8.8317 18.9045,8.7844 18.9662,8.7556 19.0098,8.745 19.0939,8.6817 19.1045,8.6633 19.0674,8.6315 19.0377,8.5688 18.9664,8.484 18.9106,8.4146 18.9016,8.3832 18.8832,8.3581 18.8195,8.2831 18.7812,8.247 18.7383,8.2344 18.6837,8.2144 18.6657,8.2049 18.6446,8.185 18.6246,8.1564 18.6139,8.1264 18.6146,8.0782 18.5976,8.0515 18.568,8.0314 18.5405,8.0308 18.3874,8.024 18.2203,8.0167 18.0125,8.0045 17.8636,7.9497 17.6986,7.9748 17.629,7.9796 17.6079,7.9583 17.5676,7.925 17.4911,7.9035 17.4312,7.8928 17.35,7.8585 17.2359,7.8039 17.2179,7.7945 17.1992,7.75 17.1192,7.692 17.0397,7.6541 16.9655,7.6458 16.8945,7.6342 16.8509,7.613 16.8474,7.5857 16.8413,7.5609 16.8125,7.5411 16.7985,7.538 16.7629,7.5576 16.5494,7.7746 16.5453,7.8215 16.5491,7.8563 16.515,7.8591 16.4846,7.8418 16.4126,7.7893 16.3918,7.7587 16.3857,7.7061 16.3892,7.6827 16.1993,7.606 16.1305,7.5925 16.0951,7.5877 16.0616,7.586 16.0163,7.563 16.0008,7.5317 15.9568,7.4932 15.8959,7.4744 15.7652,7.4503 15.7103,7.4685 15.6961,7.4985 15.6726,7.5144 15.6253,7.5147 15.5993,7.5102 15.5483,7.5043 15.525,7.5055 15.5012,7.5101 15.4817,7.5182 15.5295,7.5737 15.5553,7.6214 15.5668,7.6817 15.5647,7.7276 15.5627,7.7518 15.5066,7.7651 15.485,7.7664 15.4605,7.8017 15.4276,7.8736 15.4162,7.9029 15.3719,8.0308 15.3633,8.0689 15.3593,8.1032 15.3448,8.1335 15.3264,8.1627 15.2476,8.3298 15.2083,8.4267 15.1903,8.4678 15.0573,8.6339 14.9064,8.7655 14.8596,8.7995 14.8395,8.8075 14.8162,8.8039 14.6051,8.9505 14.5432,8.9974 14.3322,9.1869 14.3367,9.2199 14.313,9.248 13.9927,9.6067 13.9541,9.6192 13.9424,9.6359 13.9949,9.7194 14.0187,9.7475 14.0443,9.7633 14.0623,9.7726 14.0934,9.8006 14.1078,9.8206 14.1257,9.8491 14.165,9.9248 14.1792,9.9706 14.4348,9.987 14.4703,9.9827 14.6367,9.948 14.7673,9.9122 14.9105,9.9592 15.0011,9.9387 15.0368,9.9372 15.0669,9.9443 15.0849,9.9648 15.107,9.9729 15.143,9.978 15.2235,9.9764 15.2675,9.9626 15.4054,9.916 15.5182,9.9424 15.5748,9.9563 15.6582,9.9769 15.6363,10.0006 15.6134,10.0162 15.5724,10.0382 15.5251,10.0613 15.4822,10.09 15.3565,10.2373 15.2602,10.3789 15.1736,10.4912 15.1336,10.6039 15.1203,10.6489 15.0985,10.6923 15.0756,10.7198 15.0419,10.7899 15.0415,10.8133 15.05,10.8329 15.0608,10.8679 15.0594,10.8915 15.0098,11.0673 15.0026,11.1247 15.0017,11.1898 15.0346,11.3822 15.051,11.4238 15.0926,11.4839 15.0741,11.5754 15.0457,11.6772 15.0652,11.7415 15.026,12.0655 14.9567,12.0779 14.9349,12.0843 14.8779,12.1421 14.8825,12.1866 14.8857,12.2149 14.8917,12.3067 14.8856,12.3622 14.8057,12.6198 14.6923,12.7005 14.6078,12.7205 14.5653,12.7237 14.5299,12.7576 14.5235,12.8389 14.5091,12.9605 14.4847,12.9868 14.4708,13.0054 14.4566,13.0258 14.4409,13.0513 14.4198,13.0704 14.1437,13.0686 14.0589,13.067 13.8855,13.3135 13.7444,13.5127 13.619,13.6888 13.6097,13.7032 13.5849,13.8131 13.5468,13.9779 13.4464,14.4144 13.4495,14.4349 13.4603,14.4518 13.4792,14.4684 13.5017,14.4808 13.5318,14.4956 13.5992,14.5001 13.6138,14.5057 13.6319,14.5154 13.6584,14.5362 13.6686,14.5632 13.6671,14.5924 13.7429,14.6893 13.778,14.7164 13.7625,14.7857 13.7509,14.8316 13.7701,14.8725 13.8427,15.0209 13.9808,15.1889 14.0557,15.2967 14.1787,15.4718 14.2546,15.5795 14.3518,15.7164 14.555,15.9299 14.8867,16.2764 15.1041,16.5028 15.2205,16.6227 15.3358,16.7425 15.4386,16.8491 15.464,16.8756 15.4665,16.8791 15.4712,16.902 15.5049,17.3406 15.5401,17.9795 15.5541,18.2285 15.5556,18.2694 15.5837,18.7614 15.5919,18.8205 15.6152,18.9976 15.6942,19.5972 15.7111,19.7331 15.7347,19.9102 15.7851,19.9978 15.8541,20.1171 15.9627,20.3038 15.9772,20.3304 15.6493,20.6776 15.6141,20.6937 15.5936,20.7086 15.5586,20.7427 15.5384,20.7926 15.5352,20.8294 15.5376,20.8519 15.5474,20.8822 15.5655,20.9067 15.5968,20.9277 15.5641,20.9952 15.5143,21.0663 15.2659,21.4215 15.1909,21.4679 15.1828,21.4936 15.1813,21.59 15.1808,21.631 15.1789,21.7958 15.176,21.9743 15.1358,22.1782 15.0293,22.7263 14.9884,22.934 14.9793,22.9751 14.9793,22.9751 994,7.0,Vietnam 107.8579,21.5185 107.8654,21.5154 107.9014,21.4973 107.9321,21.4626 107.7995,21.4152 107.7835,21.4343 107.7947,21.4604 107.7833,21.4961 107.7597,21.5083 107.7229,21.5016 107.6625,21.4531 107.5725,21.3681 107.4631,21.2689 107.3495,21.2661 107.3351,21.282 107.285,21.3022 107.2359,21.2417 107.2315,21.1588 107.2512,21.1113 107.2391,21.0714 107.2317,21.0342 107.2395,21.0024 107.2191,20.9855 107.1802,20.9808 107.1281,20.978 107.1014,20.9703 107.0237,20.9018 106.9437,20.9272 106.9536,20.9629 106.9866,20.9909 107.0157,21.0125 106.9068,20.9732 106.8841,20.9271 106.8474,20.9222 106.8112,20.9301 106.7782,20.9432 106.7464,20.9647 106.74,20.9371 106.7604,20.9266 106.7908,20.9109 106.8126,20.8814 106.752,20.8794 106.7323,20.8479 106.7057,20.8936 106.6454,20.9123 106.6703,20.9371 106.6928,20.9466 106.6796,20.9882 106.6612,21.0025 106.5166,20.9983 106.5134,20.9941 106.5407,20.9843 106.5368,20.9587 106.5496,20.9307 106.5778,20.9208 106.6286,20.9104 106.6115,20.8632 106.5659,20.8534 106.6129,20.8171 106.5952,20.7767 106.65,20.7176 106.6469,20.6761 106.551,20.6154 106.518,20.6032 106.4674,20.6095 106.4935,20.5679 106.4544,20.3199 106.4379,20.2643 106.394,20.2895 106.3662,20.2769 106.4059,20.2744 106.4281,20.2487 106.3984,20.2175 106.3755,20.2032 106.3521,20.1928 106.3321,20.1861 106.2131,20.1344 106.1959,20.1058 106.0788,19.9872 106.0457,19.9642 106.0275,19.9549 105.9772,19.9485 105.9835,20.0065 105.9483,19.9396 105.9106,19.9634 105.9052,19.9686 105.8967,19.9684 105.8281,19.9008 105.7844,19.7711 105.6803,19.5791 105.6895,19.5441 105.6759,19.4341 105.6564,19.3764 105.6609,19.3348 105.6781,19.2529 105.6143,19.2051 105.5154,19.0436 105.4823,18.9828 105.4859,18.9562 105.5105,18.8696 105.5677,18.8357 105.6181,18.765 105.6285,18.7442 105.6293,18.6625 105.6217,18.6419 105.6432,18.6518 105.666,18.6502 105.6852,18.6008 105.6977,18.5721 105.7129,18.5423 105.7418,18.4979 105.7552,18.4786 105.7807,18.4518 105.9278,18.2956 105.9548,18.2739 105.9846,18.25 106.0136,18.2447 106.0335,18.2415 106.1238,18.1945 106.1417,18.179 106.3153,18.0179 106.3337,17.9895 106.3628,17.9542 106.3811,17.9361 106.325,17.853 106.3159,17.8252 106.2964,17.7218 106.3662,17.6714 106.458,17.5332 106.514,17.4476 106.5703,17.3805 106.625,17.3242 106.6928,17.2696 106.811,17.1811 106.8891,17.1259 106.9312,17.0973 106.9501,17.0888 106.9544,17.0873 106.9873,17.0629 107.0011,16.9931 107.0504,16.8777 107.0629,16.8561 107.2139,16.7704 107.3406,16.6704 107.4111,16.6105 107.3874,16.613 107.3394,16.6344 107.3202,16.6369 107.3155,16.6259 107.3193,16.6197 107.376,16.5856 107.4196,16.5766 107.4649,16.5621 107.5704,16.4956 107.6883,16.3639 107.6615,16.3563 107.6824,16.2939 107.7077,16.2757 107.7534,16.2601 107.7775,16.2636 107.8034,16.2909 107.8405,16.3158 107.8971,16.3059 107.9187,16.2937 107.9578,16.2307 108.0593,16.1813 108.0354,16.1663 108.0137,16.1375 108.0085,16.1099 108.0718,15.9817 108.1073,16.0141 108.1041,16.0564 108.1029,16.1159 108.1172,16.1365 108.2011,16.1324 108.2114,16.114 108.1767,16.0897 108.1339,16.0797 108.1345,16.0434 108.1386,16.0169 108.1585,15.9573 108.1765,15.9306 108.2934,15.7885 108.3965,15.6203 108.4958,15.4649 108.6035,15.394 108.6297,15.3789 108.671,15.41 108.6997,15.4046 108.7534,15.2644 108.765,15.1159 108.7996,14.9842 108.8197,14.9355 108.8419,14.8814 108.8577,14.8488 108.8734,14.8198 108.8838,14.8028 108.9505,14.707 108.9638,14.656 108.9524,14.6252 108.9511,14.5321 108.9968,14.3897 109.0302,14.3145 109.0604,14.2749 109.0775,14.2221 109.0878,14.1046 109.1313,14.0074 109.1786,13.8491 109.1808,13.8101 109.1773,13.7361 109.1427,13.7381 109.1403,13.8018 109.1244,13.8695 109.0927,13.8006 109.099,13.7218 109.1025,13.7014 109.1093,13.682 109.1116,13.6232 109.1316,13.5402 109.1185,13.4711 109.1053,13.427 109.1042,13.3937 109.1773,13.1233 109.1898,13.094 109.2498,13.0059 109.2754,12.9706 109.2898,12.9563 109.3086,12.9406 109.3414,12.8862 109.3384,12.8466 109.3089,12.829 109.2922,12.8478 109.2471,12.8073 109.1056,12.6676 109.0748,12.6174 109.0737,12.5637 109.084,12.5313 109.1303,12.4884 109.1766,12.4469 109.2244,12.3812 109.214,12.3587 109.1794,12.332 109.1504,12.3482 109.1271,12.3847 109.0987,12.417 109.0541,12.4432 109.0249,12.4181 109.0492,12.3872 109.0941,12.31 109.0898,12.2648 109.0837,12.086 109.1488,11.8792 109.1044,11.9216 109.104,11.9688 109.0616,12.1036 109.0585,12.0318 109.0818,12.0032 109.0879,11.9651 109.078,11.9322 109.0666,11.9113 109.0402,11.8871 109.0184,11.8808 109.0027,11.8478 109.0022,11.8352 109.072,11.7797 109.0999,11.743 109.0882,11.6888 109.0599,11.6169 109.0136,11.5544 108.9522,11.5671 108.9317,11.5805 108.9169,11.5651 108.9014,11.5021 108.8972,11.4323 108.8963,11.3806 108.9014,11.3497 108.842,11.2988 108.814,11.2956 108.7852,11.3059 108.7479,11.3221 108.7339,11.3199 108.6896,11.3045 108.6448,11.2698 108.5448,11.1761 108.4641,11.1694 108.4128,11.1369 108.3895,11.1141 108.3709,11.0833 108.1259,10.9368 108.1016,10.935 108.0167,10.9135 107.9943,10.9039 107.9733,10.8887 107.9578,10.8716 107.9363,10.8327 107.9248,10.7954 107.914,10.7577 107.8985,10.7245 107.8813,10.6922 107.8375,10.6939 107.8194,10.7022 107.7914,10.7067 107.7654,10.7046 107.7072,10.683 107.6805,10.6579 107.6651,10.6448 107.638,10.6273 107.4688,10.5607 107.4211,10.5084 107.3998,10.4912 107.3418,10.4624 107.3233,10.4552 107.2111,10.4341 107.1704,10.3941 107.1489,10.3647 107.1117,10.3859 107.0949,10.4259 107.0547,10.4641 107.0154,10.4559 106.9362,10.4836 106.9177,10.5193 106.9108,10.5948 106.9059,10.6186 106.8814,10.6432 106.8928,10.6096 106.9037,10.5782 106.898,10.5261 106.877,10.5647 106.8763,10.603 106.8645,10.5537 106.8646,10.5465 106.8767,10.509 106.8624,10.4863 106.8499,10.463 106.8431,10.4959 106.8229,10.5183 106.8168,10.5624 106.8244,10.5736 106.8255,10.5807 106.787,10.6194 106.7619,10.6343 106.6756,10.6579 106.646,10.6686 106.6245,10.649 106.6368,10.6282 106.6404,10.6239 106.6535,10.5777 106.6327,10.5657 106.6194,10.5391 106.6182,10.5006 106.5656,10.486 106.5456,10.4793 106.5147,10.4482 106.4748,10.4182 106.5002,10.4256 106.6154,10.459 106.6745,10.3782 106.6779,10.2987 106.6675,10.2685 106.5709,10.2795 106.5345,10.2686 106.4573,10.2773 106.4192,10.294 106.379,10.2898 106.3411,10.2965 106.3078,10.2998 106.3153,10.2929 106.35,10.2712 106.37,10.2624 106.4622,10.2323 106.4871,10.2242 106.5369,10.2089 106.5794,10.1973 106.6764,10.1459 106.6857,10.113 106.6612,10.0712 106.5339,9.9589 106.4872,9.9632 106.3682,10.0259 106.35,10.0443 106.2802,10.1383 106.2651,10.1654 106.2482,10.1972 106.2154,10.231 106.1805,10.2435 106.2705,10.1108 106.3304,10.0415 106.3801,9.9925 106.4054,9.9808 106.4506,9.9637 106.5559,9.8993 106.5717,9.8831 106.5767,9.8611 106.5577,9.8311 106.4902,9.8001 106.3702,9.9065 106.323,9.9284 106.2688,9.9643 106.1773,10.0539 106.1388,10.1006 106.1146,10.1326 106.0966,10.1508 106.0494,10.196 106.0318,10.2102 106.0048,10.2266 105.9989,10.2227 106.0482,10.153 106.1569,10.0468 106.1746,10.0286 106.1882,10.0098 106.1926,9.9995 106.2082,9.9867 106.3365,9.8656 106.3876,9.8087 106.4539,9.7305 106.4606,9.7116 106.463,9.6526 106.4554,9.626 106.4258,9.5731 106.4083,9.556 106.3871,9.5401 106.3015,9.5208 106.2815,9.5217 106.1397,9.6123 106.1181,9.6283 105.9552,9.7764 105.9194,9.8179 105.9076,9.8348 105.8923,9.8592 105.8613,9.9002 105.8394,9.9183 105.795,9.9553 105.7142,9.9937 105.7082,9.9932 105.705,9.9895 105.7269,9.9637 105.7688,9.925 105.7832,9.9131 105.8018,9.8975 105.8497,9.8492 105.8988,9.7973 105.9409,9.7487 105.9624,9.7172 106.0692,9.5477 106.0892,9.5124 106.0937,9.491 106.0774,9.358 106.0557,9.3454 106.0189,9.34 105.8784,9.2937 105.7474,9.2412 105.7266,9.2308 105.7082,9.2238 105.5025,9.1489 105.4446,9.13 105.4171,9.1194 105.4001,9.1061 105.3328,9.0391 105.2904,8.988 105.2738,8.9323 105.2374,8.837 105.2188,8.8015 105.1884,8.7658 105.0044,8.6155 104.904,8.5832 104.748,8.5496 104.6504,8.5761 104.626,8.5954 104.7222,8.6523 104.7743,8.6842 104.806,8.7355 104.8,8.7926 104.7761,8.7847 104.7261,8.762 104.7037,8.7592 104.6824,8.7825 104.6926,9.0035 104.7085,9.2499 104.713,9.3094 104.7194,9.4347 104.7195,9.523 104.7218,9.5512 104.7455,9.6818 104.7655,9.7535 104.7844,9.7999 104.924,9.9164 104.9579,9.9263 104.9828,9.8859 104.9879,9.8632 104.9975,9.8439 104.9925,9.9341 104.9728,9.9787 104.9585,10.0007 104.9405,10.0227 104.8671,10.0932 104.814,10.0866 104.7828,10.0835 104.7387,10.1239 104.7104,10.159 104.6867,10.1962 104.6312,10.2188 104.6089,10.221 104.5728,10.1927 104.496,10.1575 104.4803,10.2197 104.4673,10.2593 104.3836,10.3772 104.3309,10.4111 104.3734,10.4114 104.4341,10.4537 104.4518,10.4902 104.4804,10.521 104.5553,10.5252 104.587,10.5196 104.6007,10.5167 104.6183,10.5133 104.6557,10.5101 104.6861,10.5084 104.7358,10.5096 104.7628,10.5188 104.7793,10.5325 104.8033,10.5653 104.8147,10.5818 104.824,10.6 104.8395,10.6196 104.8673,10.6417 104.9447,10.6814 104.979,10.7011 104.9782,10.7347 104.9457,10.8115 104.9337,10.8319 104.9237,10.8698 104.9346,10.8948 104.9458,10.9082 104.9853,10.9421 105.0762,10.894 105.0905,10.8873 105.1183,10.8775 105.1847,10.8635 105.2461,10.8688 105.2565,10.8886 105.3151,10.9536 105.4118,10.9352 105.4386,10.9408 105.4724,10.9476 105.5192,10.9579 105.5781,10.9839 105.6059,11.0007 105.6296,11.0072 105.665,11.0088 105.742,10.9044 105.8434,10.8704 105.9659,10.7909 106.0866,10.7587 106.0598,10.8585 106.0292,10.9073 106.0356,10.9564 106.07,10.9629 106.0955,10.9602 106.0727,11.0416 106.0385,11.0814 106.0097,11.0744 105.8319,11.1899 105.8132,11.2078 105.7542,11.284 105.766,11.3514 105.7831,11.4225 105.7614,11.536 105.7021,11.5812 105.6992,11.6045 105.736,11.6489 105.7577,11.6576 105.781,11.6542 105.809,11.639 105.8439,11.6318 105.8967,11.7077 105.9049,11.7469 105.9258,11.7633 105.9657,11.76 106.151,11.7048 106.1852,11.6687 106.2994,11.6631 106.3404,11.6527 106.3302,11.6969 106.3198,11.7804 106.3304,11.804 106.343,11.8719 106.303,11.9519 106.3013,11.9593 106.3271,11.9689 106.5101,11.9584 106.5799,11.9494 106.6075,11.9605 106.6285,11.9868 106.6701,12.0602 106.7381,12.0539 106.7885,12.0514 106.8366,12.0612 106.8556,12.0691 106.9334,12.1258 106.9625,12.1641 106.9911,12.2024 107.0432,12.2601 107.0703,12.2735 107.1188,12.2899 107.1766,12.309 107.2339,12.3181 107.2584,12.2989 107.278,12.2741 107.3035,12.2399 107.319,12.2411 107.414,12.3248 107.4298,12.3454 107.4746,12.5406 107.4721,12.5898 107.4421,12.7967 107.3983,12.8498 107.3882,12.8698 107.371,12.938 107.3619,13.006 107.4842,13.2966 107.5136,13.3669 107.5064,13.5231 107.4657,13.58 107.3406,13.7792 107.3468,13.8258 107.3498,13.9163 107.2589,13.989 107.2464,14.0049 107.2197,14.1127 107.2361,14.1489 107.2601,14.2249 107.2643,14.2765 107.2504,14.3213 107.2838,14.4042 107.3071,14.4189 107.3315,14.4062 107.3553,14.4194 107.3789,14.466 107.4074,14.534 107.4322,14.6409 107.4271,14.6853 107.4204,14.6924 107.4229,14.7082 107.4249,14.8308 107.4131,14.9023 107.3529,14.9548 107.3407,15.0064 107.3461,15.0192 107.4593,15.029 107.4882,15.047 107.513,15.1112 107.5426,15.1885 107.5538,15.2095 107.557,15.2179 107.5673,15.2539 107.5567,15.2715 107.4687,15.3668 107.3895,15.4511 107.2926,15.4861 107.2334,15.539 107.1354,15.6305 107.0554,15.7477 107.0485,15.7727 107.0761,15.8415 107.1012,15.8486 107.1277,15.8408 107.2736,15.9006 107.3354,15.9859 107.3473,16.0046 107.3468,16.0095 107.3322,16.0627 107.2543,16.0496 107.2341,16.0447 107.2095,16.0382 107.0635,16.1427 107.037,16.1659 107.0237,16.1876 107.0204,16.2152 107.0191,16.2453 106.9657,16.2826 106.9022,16.2884 106.8825,16.2892 106.859,16.2816 106.8558,16.319 106.767,16.4993 106.747,16.5186 106.7151,16.514 106.701,16.4884 106.6857,16.4546 106.6545,16.414 106.6288,16.402 106.5742,16.4214 106.5567,16.4409 106.4472,16.6238 106.4327,16.6587 106.427,16.8699 106.4271,16.9191 106.4327,16.978 106.3919,16.9484 106.3132,16.9735 106.3061,16.9925 106.2924,17.0457 106.2128,17.1501 106.1207,17.2274 106.0838,17.2425 106.0234,17.2855 105.9624,17.3375 105.9111,17.3874 105.8936,17.4065 105.8039,17.5095 105.7642,17.5647 105.7332,17.5988 105.7051,17.6206 105.6676,17.6335 105.6267,17.6508 105.5544,17.7946 105.4994,17.9673 105.4547,18.0286 105.3766,18.1479 105.2726,18.1373 105.23,18.1481 105.2047,18.166 105.1944,18.1766 105.1983,18.2224 105.1811,18.2359 105.1397,18.2323 105.0561,18.3141 104.9813,18.4173 104.9764,18.4496 104.9879,18.4971 105.0227,18.5779 105.0666,18.5894 105.0655,18.616 105.0185,18.6527 104.9783,18.6757 104.9028,18.6999 104.808,18.7233 104.6175,18.7751 104.5455,18.8161 104.4464,18.8821 104.4224,18.9206 104.4035,18.9511 104.1522,19.0896 104.0943,19.0901 104.0997,19.1239 104.0482,19.1692 103.935,19.2171 103.8807,19.2119 103.7518,19.2878 103.8455,19.3703 103.9153,19.3968 103.9776,19.4568 103.9794,19.5007 103.9753,19.537 103.9528,19.5474 103.9244,19.5776 103.9128,19.5985 103.8951,19.6473 103.9125,19.6718 103.932,19.661 103.961,19.6425 104.015,19.6408 104.0236,19.6597 104.0324,19.6656 104.0941,19.6814 104.1197,19.6825 104.2962,19.6481 104.323,19.6232 104.3928,19.5835 104.442,19.5838 104.5173,19.5949 104.5278,19.6262 104.5403,19.6653 104.5523,19.6858 104.59,19.7259 104.6429,19.7349 104.7046,19.7654 104.7219,19.822 104.6991,19.8417 104.6629,19.842 104.6624,19.8699 104.715,19.9166 104.772,19.9512 104.8355,19.9662 104.8504,19.9815 104.8576,20.0761 104.8118,20.1608 104.7178,20.2025 104.5879,20.2906 104.5818,20.319 104.4884,20.3932 104.4259,20.3914 104.3934,20.3842 104.2935,20.4015 104.2668,20.4124 104.2545,20.4316 104.3273,20.4814 104.3889,20.4943 104.4735,20.5673 104.5025,20.5958 104.5146,20.6294 104.4871,20.6419 104.4608,20.6497 104.3747,20.689 104.2823,20.7551 104.2172,20.82 104.2036,20.8539 104.179,20.8709 104.1031,20.9054 104.0674,20.9199 103.9771,20.9524 103.73,20.8292 103.6525,20.7611 103.6452,20.7141 103.6122,20.6478 103.5608,20.6366 103.547,20.6585 103.5112,20.695 103.4791,20.7171 103.2991,20.7708 103.2344,20.7791 103.2096,20.7825 103.0929,20.807 103.0634,20.8209 103.0514,20.8207 102.9921,20.8703 102.9623,20.9322 102.9162,21.0227 102.8115,21.1398 102.7888,21.1444 102.7934,21.2052 102.7628,21.2286 102.7788,21.3581 102.7789,21.4164 102.7512,21.4063 102.7646,21.4421 102.8183,21.5047 102.8429,21.5315 102.8615,21.5503 102.8648,21.583 102.8613,21.6886 102.8441,21.7207 102.7353,21.6941 102.6282,21.6464 102.5495,21.6342 102.5283,21.7105 102.5348,21.7361 102.5356,21.7625 102.5214,21.8287 102.4785,21.9039 102.4594,21.9125 102.4294,21.9162 102.4006,21.9232 102.3758,21.9425 102.322,22.0422 102.2969,22.0909 102.1791,22.1855 102.1514,22.1912 102.1124,22.2178 102.0589,22.2756 102.0542,22.3014 102.0278,22.3596 102.0148,22.3714 102.0416,22.3984 102.1436,22.4666 102.2626,22.5841 102.2994,22.6629 102.3276,22.7284 102.3478,22.7464 102.3744,22.7464 102.3945,22.7397 102.5754,22.6589 102.743,22.5677 102.7538,22.5294 102.8019,22.4573 102.9034,22.4114 102.9375,22.4158 103.0397,22.5173 103.206,22.7689 103.2319,22.7668 103.2672,22.7465 103.2988,22.6794 103.332,22.6141 103.3591,22.5851 103.38,22.5664 103.3945,22.5592 103.4093,22.5622 103.4556,22.6235 103.4385,22.6729 103.4899,22.7541 103.5258,22.7575 103.6661,22.6262 103.6987,22.5824 103.7327,22.5521 103.7813,22.5127 103.8405,22.4787 103.8804,22.4983 103.888,22.5275 103.8831,22.5481 103.9054,22.661 103.933,22.7151 103.9825,22.7727 104.1303,22.8024 104.1258,22.7482 104.1363,22.7095 104.23,22.6618 104.2458,22.6621 104.3319,22.7167 104.3651,22.7455 104.4103,22.7837 104.4443,22.8046 104.522,22.8009 104.544,22.7878 104.6023,22.7928 104.7223,22.937 104.6944,23.0736 104.7774,23.1545 105.1274,23.2785 105.228,23.2982 105.2684,23.2547 105.3965,23.1571 105.4202,23.1366 105.4304,23.1091 105.4343,23.0848 105.4348,23.0709 105.4431,23.0376 105.5085,23.0372 105.6374,22.9945 105.6578,22.9792 105.7047,22.9306 105.7461,22.8868 105.86,22.9127 105.8744,22.9272 105.8837,22.9568 105.9462,22.965 106.0033,22.9628 106.0642,22.9481 106.0921,22.9301 106.1059,22.9129 106.1207,22.8785 106.1247,22.8466 106.1629,22.8317 106.2097,22.8277 106.3417,22.865 106.3685,22.88 106.3902,22.9069 106.4606,22.8882 106.5708,22.8413 106.6256,22.7966 106.6463,22.7775 106.6553,22.7383 106.5856,22.6054 106.4998,22.59 106.4756,22.5796 106.4202,22.4316 106.422,22.4063 106.4256,22.3898 106.4335,22.3245 106.4552,22.3107 106.4871,22.3038 106.5173,22.3039 106.5608,22.1914 106.5387,22.1794 106.5373,22.1499 106.562,22.0063 106.6065,21.9752 106.7319,21.9545 106.7705,21.946 106.8897,21.9148 106.9127,21.8969 106.911,21.865 106.8843,21.8253 106.8927,21.7963 107.0822,21.6872 107.122,21.686 107.1372,21.7 107.1669,21.7051 107.2088,21.6574 107.2166,21.6379 107.2312,21.581 107.2531,21.5744 107.4,21.5623 107.5284,21.5858 107.5782,21.6031 107.6064,21.6206 107.624,21.6321 107.6509,21.6428 107.7288,21.6237 107.7843,21.5648 107.8152,21.5206 107.8367,21.5118 107.8579,21.5185 107.8579,21.5185 633,-4.0,Cuba -75.0484,19.9405 -75.0098,19.9636 -75.0029,19.9705 -74.9869,19.991 -75.0016,20.0339 -75.0729,19.9922 -75.0825,19.9843 -75.0871,19.9744 -75.0659,19.9418 -75.0676,19.9386 -75.1017,19.9387 -75.1352,19.9021 -75.1323,19.8792 -75.2134,19.8588 -75.2637,19.8534 -75.2776,19.8534 -75.2883,19.8545 -75.4306,19.8549 -75.448,19.8567 -75.5009,19.8672 -75.5173,19.873 -75.5678,19.8957 -75.5813,19.9042 -75.5939,19.9132 -75.6072,19.9216 -75.6284,19.9315 -75.816,19.9453 -75.8521,19.9359 -76.0182,19.9563 -76.042,19.9624 -76.1224,19.9682 -76.1561,19.9684 -76.3289,19.9448 -76.3622,19.9377 -76.3759,19.9303 -76.3915,19.9246 -76.4037,19.9223 -76.4771,19.9163 -76.5327,19.9226 -76.7032,19.907 -76.8128,19.8821 -76.8368,19.8713 -76.8939,19.8582 -76.9146,19.8545 -76.9401,19.8686 -76.981,19.8591 -77.0327,19.8648 -77.1045,19.886 -77.1992,19.883 -77.2139,19.88 -77.239,19.8665 -77.2447,19.8582 -77.2195,19.854 -77.2587,19.8347 -77.5543,19.8011 -77.5864,19.7998 -77.6312,19.8141 -77.6436,19.8299 -77.6477,19.8487 -77.6156,19.8934 -77.5025,20.0244 -77.3024,20.1776 -77.2849,20.189 -77.2724,20.194 -77.2461,20.1996 -77.2356,20.203 -77.2103,20.2126 -77.1848,20.2229 -77.0998,20.2633 -77.0772,20.2778 -77.0208,20.3447 -76.9898,20.4252 -76.9847,20.4445 -77.1029,20.6112 -77.1423,20.6399 -77.2198,20.6856 -77.2293,20.6907 -77.2423,20.6936 -77.2629,20.6951 -77.2756,20.6939 -77.367,20.6624 -77.4354,20.6591 -77.5878,20.6666 -77.6476,20.671 -77.6771,20.6737 -77.6913,20.6785 -77.7372,20.6959 -77.7629,20.7065 -77.7795,20.7069 -77.8056,20.7045 -77.814,20.6955 -77.8232,20.6791 -77.8365,20.6693 -77.9527,20.6757 -77.977,20.6908 -78.0681,20.7695 -78.1166,20.8174 -78.1778,20.8804 -78.2405,20.9254 -78.399,21.0084 -78.4124,21.1437 -78.4408,21.2646 -78.4696,21.3663 -78.4985,21.4405 -78.5064,21.4604 -78.5258,21.4898 -78.5367,21.5004 -78.5508,21.5103 -78.6028,21.5826 -78.6437,21.6106 -78.6614,21.616 -78.7545,21.5967 -78.7694,21.5872 -78.8008,21.5684 -78.8152,21.5682 -78.8689,21.5721 -78.927,21.5591 -79.033,21.533 -79.0469,21.5289 -79.0759,21.5225 -79.0998,21.518 -79.1125,21.5161 -79.1345,21.517 -79.1485,21.5184 -79.1675,21.5218 -79.365,21.5702 -79.383,21.5785 -79.5484,21.6619 -79.5703,21.6693 -79.6795,21.6814 -79.7917,21.7227 -79.8895,21.6994 -79.9488,21.764 -80.0027,21.7982 -80.0728,21.8149 -80.0903,21.8197 -80.1008,21.8243 -80.1463,21.851 -80.1821,21.8732 -80.1954,21.8819 -80.2681,21.9462 -80.2825,21.9611 -80.3031,21.9831 -80.3281,22.0147 -80.3338,22.0374 -80.3116,22.0402 -80.2937,22.0493 -80.2975,22.0798 -80.3539,22.1389 -80.3927,22.1526 -80.4335,22.1518 -80.4406,22.1362 -80.4565,22.0381 -80.4919,22.0259 -80.5286,22.0295 -80.6539,22.0356 -80.7123,22.033 -80.7238,22.0269 -80.74,22.0214 -80.7771,22.0155 -80.7915,22.0151 -80.8054,22.0161 -80.9096,22.0319 -80.9214,22.0349 -80.9887,22.0596 -81.0043,22.069 -81.0117,22.0763 -81.0176,22.0844 -81.0257,22.1041 -81.0342,22.1232 -81.0962,22.085 -81.1054,22.0701 -81.2236,22.0596 -81.2483,22.0604 -81.2869,22.093 -81.2875,22.1065 -81.2823,22.1242 -81.2898,22.1409 -81.2963,22.1488 -81.3059,22.1535 -81.5215,22.1825 -81.5485,22.1839 -81.5594,22.1699 -81.661,22.1468 -81.722,22.1587 -81.7397,22.1703 -81.9058,22.2786 -81.9981,22.3181 -82.0361,22.342 -82.0486,22.3511 -82.0551,22.359 -82.061,22.3704 -82.0576,22.3836 -82.0433,22.3979 -82.0197,22.4073 -81.9978,22.4056 -81.9564,22.4027 -81.8785,22.4019 -81.7398,22.4062 -81.6937,22.4112 -81.5998,22.43 -81.5477,22.4663 -81.5431,22.548 -81.5492,22.5524 -81.6397,22.6074 -81.6538,22.6152 -81.686,22.6307 -81.7114,22.6383 -81.7352,22.6441 -81.7835,22.6557 -81.8594,22.6507 -82.0748,22.6525 -82.2983,22.6607 -82.5225,22.6573 -82.5705,22.6629 -82.6005,22.6703 -82.6157,22.6736 -82.6581,22.6757 -82.675,22.6704 -82.686,22.6598 -82.6888,22.6488 -82.6854,22.6355 -82.6962,22.5945 -82.7207,22.582 -82.7464,22.5747 -82.757,22.5703 -82.9241,22.4873 -82.9329,22.4819 -82.9723,22.453 -83.0021,22.4116 -83.0054,22.392 -83.0334,22.3382 -83.0394,22.3298 -83.066,22.3066 -83.0874,22.3025 -83.1015,22.3081 -83.1516,22.3232 -83.2408,22.2078 -83.2653,22.1769 -83.3089,22.1644 -83.3766,22.1499 -83.3907,22.153 -83.4404,22.17 -83.4863,22.1882 -83.564,22.1502 -83.6449,22.1463 -83.71,22.144 -83.7444,22.1455 -83.772,22.1462 -83.8048,22.1458 -83.8254,22.1379 -83.8399,22.126 -83.8512,22.1157 -83.8636,22.1036 -83.903,22.0293 -83.8905,22.0033 -83.8872,21.9226 -83.8986,21.9099 -83.9253,21.8897 -83.9379,21.8899 -83.9624,21.9048 -83.9782,21.911 -84.0038,21.9151 -84.0217,21.9146 -84.1258,21.8846 -84.1364,21.8807 -84.168,21.8692 -84.1777,21.8645 -84.2025,21.8524 -84.2245,21.8384 -84.2789,21.7987 -84.2984,21.7822 -84.3285,21.7598 -84.3481,21.751 -84.3837,21.7427 -84.3973,21.7411 -84.4119,21.7417 -84.4243,21.751 -84.39,21.8189 -84.3712,21.8363 -84.3668,21.846 -84.3657,21.8684 -84.3715,21.8901 -84.3823,21.9043 -84.3944,21.9102 -84.4599,21.9093 -84.4979,21.9033 -84.5097,21.9004 -84.5446,21.8917 -84.5962,21.8704 -84.6324,21.8491 -84.6432,21.8419 -84.652,21.8295 -84.6608,21.8204 -84.7006,21.7958 -84.7114,21.7916 -84.7604,21.7976 -84.8066,21.8063 -84.823,21.8116 -84.8323,21.8163 -84.8406,21.8226 -84.8466,21.831 -84.8482,21.839 -84.8336,21.88 -84.8197,21.8901 -84.8014,21.8657 -84.7897,21.8594 -84.7137,21.8832 -84.4428,22.0028 -84.4291,22.0113 -84.41,22.0207 -84.3897,22.0217 -84.2678,22.0167 -84.255,22.0097 -84.2444,21.9989 -84.2342,21.9875 -84.2167,22.0547 -84.3071,22.1305 -84.3358,22.1788 -84.2963,22.3079 -84.2866,22.3266 -84.1951,22.4342 -84.0965,22.5278 -83.9657,22.6362 -83.919,22.6521 -83.7395,22.7269 -83.5888,22.7765 -83.3391,22.8746 -83.1258,22.9734 -83.1135,22.9756 -82.9509,22.9926 -82.8967,22.9896 -82.9049,22.9541 -82.8696,22.9416 -82.8416,22.9533 -82.8248,22.9914 -82.8146,22.9989 -82.7972,23.0038 -82.7553,23.0046 -82.7045,23.0055 -82.6659,23.0047 -82.6456,23.0023 -82.624,23.0028 -82.5921,23.0066 -82.4874,23.0228 -82.4534,23.0327 -82.4431,23.0367 -82.4328,23.0444 -82.394,23.0669 -82.3046,23.117 -82.2287,23.1409 -82.1632,23.1554 -82.1317,23.1606 -82.1182,23.1616 -82.104,23.1609 -82.0704,23.1561 -81.9936,23.1588 -81.9806,23.1613 -81.943,23.1674 -81.9262,23.1681 -81.9029,23.1624 -81.8945,23.1536 -81.8813,23.1451 -81.8621,23.1384 -81.8321,23.1343 -81.747,23.1276 -81.6818,23.1255 -81.6699,23.128 -81.6017,23.1337 -81.576,23.1261 -81.5458,23.1311 -81.5254,23.1327 -81.4838,23.1305 -81.4722,23.1265 -81.452,23.1147 -81.435,23.0972 -81.4267,23.0804 -81.4264,23.0677 -81.4301,23.0537 -81.3994,23.0298 -81.2857,23.0866 -81.1988,23.1155 -81.1261,23.1359 -81.1541,23.1207 -81.1785,23.1053 -81.1844,23.0941 -81.0729,23.0059 -81.0307,22.9975 -81.02,23.0017 -81.0026,23.0234 -80.882,23.0511 -80.6436,23.0694 -80.5327,23.0727 -80.5212,23.0659 -80.4957,23.0413 -80.4872,23.02 -80.442,22.9644 -80.3389,22.9259 -80.3116,22.9164 -80.3006,22.9128 -80.1789,22.8799 -80.15,22.8782 -80.1318,22.8818 -80.0704,22.9047 -79.9383,22.9256 -79.9161,22.9133 -79.909,22.906 -79.8997,22.8825 -79.89,22.8572 -79.8825,22.8505 -79.8738,22.8446 -79.7553,22.7781 -79.6259,22.744 -79.5777,22.7337 -79.5352,22.6654 -79.5037,22.6195 -79.4496,22.5469 -79.4406,22.5349 -79.4262,22.5204 -79.4083,22.5058 -79.393,22.5035 -79.3228,22.4511 -79.2927,22.4268 -79.2531,22.3908 -79.2378,22.382 -79.1611,22.3475 -79.0619,22.3471 -78.9878,22.3554 -78.9696,22.3582 -78.9577,22.3612 -78.9391,22.368 -78.9189,22.3763 -78.9058,22.3778 -78.8795,22.377 -78.835,22.367 -78.8282,22.3702 -78.791,22.3793 -78.6931,22.3701 -78.4763,22.2971 -78.3133,22.2188 -78.2557,22.1737 -78.2456,22.1613 -78.2129,22.141 -78.0254,22.068 -78.0141,22.0638 -77.9878,22.0584 -77.9703,22.058 -77.9595,22.0542 -77.9195,22.0029 -77.8566,21.9244 -77.8045,21.8645 -77.7682,21.8743 -77.6606,21.7803 -77.6511,21.7752 -77.5639,21.7556 -77.4822,21.7559 -77.4028,21.7546 -77.36,21.7517 -77.3341,21.7243 -77.3335,21.7122 -77.3547,21.726 -77.3621,21.7171 -77.3621,21.7042 -77.3597,21.6859 -77.3443,21.6477 -77.3353,21.6319 -77.3099,21.6239 -77.2651,21.6114 -77.2454,21.6133 -77.2396,21.6287 -77.2446,21.6409 -77.3145,21.7335 -77.3509,21.7762 -77.3637,21.782 -77.404,21.7908 -77.4172,21.7924 -77.4343,21.8021 -77.4726,21.8227 -77.5152,21.8615 -77.5037,21.884 -77.4767,21.9001 -77.4656,21.9015 -77.4477,21.8941 -77.4335,21.8859 -77.4259,21.8793 -77.4203,21.858 -77.4165,21.848 -77.4118,21.8386 -77.4034,21.8261 -77.3956,21.8193 -77.3698,21.8017 -77.1344,21.6624 -77.0768,21.6323 -77.0621,21.6293 -77.0452,21.6287 -77.0425,21.5833 -77.0456,21.5722 -77.0631,21.5531 -77.0722,21.5579 -77.087,21.5529 -77.0949,21.5596 -77.1208,21.5705 -77.1694,21.5883 -77.1823,21.5898 -77.2513,21.5972 -77.2693,21.5899 -77.171,21.457 -77.1615,21.4485 -77.1143,21.4315 -77.0588,21.4622 -77.0373,21.4962 -77.0294,21.5206 -77.0072,21.5511 -76.9955,21.5509 -76.9672,21.5611 -76.95,21.5428 -76.8939,21.4849 -76.8752,21.4612 -76.8518,21.4283 -76.7895,21.3957 -76.7901,21.331 -76.8079,21.3168 -76.8044,21.2857 -76.7814,21.2781 -76.7416,21.3131 -76.7046,21.3599 -76.5673,21.3299 -76.4809,21.2592 -76.4809,21.2411 -76.4885,21.229 -76.4995,21.2271 -76.4944,21.2057 -76.5044,21.2059 -76.5178,21.2015 -76.5094,21.1823 -76.4448,21.1593 -76.3959,21.1779 -76.3635,21.1963 -76.3734,21.203 -76.3933,21.2062 -76.4061,21.2185 -76.4205,21.2277 -76.4138,21.2451 -76.3969,21.2592 -76.2707,21.2506 -76.2208,21.2249 -76.2144,21.2194 -76.1698,21.1924 -76.1455,21.1866 -76.1218,21.1835 -76.0768,21.1626 -76.0631,21.1543 -76.0386,21.1355 -75.9984,21.0879 -75.9286,21.0608 -75.8752,21.0673 -75.7937,21.0816 -75.7212,21.1091 -75.633,21.1027 -75.6146,21.0983 -75.5243,21.0471 -75.5135,21.033 -75.4915,20.9925 -75.4871,20.9834 -75.5414,20.8226 -75.6455,20.8079 -75.6747,20.8033 -75.6854,20.75 -75.6876,20.7228 -75.6749,20.6938 -75.6444,20.674 -75.625,20.667 -75.4591,20.6605 -75.3544,20.672 -75.3534,20.6878 -75.369,20.6922 -75.3798,20.6934 -75.38,20.7041 -75.3717,20.7095 -75.3432,20.7112 -75.3033,20.7104 -75.1442,20.7001 -74.8935,20.6704 -74.8642,20.6623 -74.6554,20.5699 -74.6292,20.531 -74.5843,20.5132 -74.5471,20.4893 -74.511,20.4609 -74.4917,20.4414 -74.4908,20.4269 -74.4784,20.401 -74.4527,20.3717 -74.4079,20.3276 -74.2938,20.2678 -74.2097,20.2718 -74.1982,20.2812 -74.1766,20.29 -74.137,20.2921 -74.052,20.2289 -74.0416,20.1985 -74.041,20.1819 -74.0424,20.1713 -74.0574,20.1499 -74.151,20.058 -74.1632,20.0495 -74.1764,20.0413 -74.194,20.034 -74.2093,20.038 -74.2203,20.0497 -74.2289,20.0558 -74.2752,20.0563 -74.2881,20.0558 -74.3964,20.0425 -74.5127,20.0301 -74.5913,20.0279 -74.6131,20.0294 -74.6268,20.0299 -74.6712,20.0258 -74.7095,20.0165 -74.726,20.0121 -74.7403,20.0046 -74.8694,19.9342 -74.8733,19.9234 -74.8815,19.91 -74.8931,19.8984 -74.9241,19.8816 -74.9421,19.8787 -74.994,19.871 -74.9942,19.895 -74.9959,19.9435 -75.0484,19.9405 -75.0484,19.9405 18,8.0,China 113.4641,22.7415 113.4626,22.7329 113.4474,22.7251 113.4355,22.7234 113.4214,22.7252 113.4116,22.7301 113.3187,22.7948 113.3102,22.8008 113.2836,22.8245 113.249,22.8686 113.2699,22.8807 113.2853,22.8829 113.3366,22.8778 113.3516,22.869 113.4193,22.8004 113.458,22.7495 113.4641,22.7415 113.4641,22.7415 23,6.0,Bangladesh 90.4075,22.6605 90.3817,22.7181 90.3729,22.7304 90.355,22.7344 90.3437,22.7405 90.3579,22.8417 90.4386,22.857 90.4755,22.8567 90.5296,22.8447 90.5487,22.8394 90.5712,22.8284 90.5804,22.8178 90.5799,22.8066 90.5658,22.7823 90.5442,22.7708 90.5339,22.7669 90.5142,22.7625 90.4536,22.7586 90.4297,22.7578 90.4327,22.7257 90.4352,22.6941 90.4075,22.6605 90.4075,22.6605 19,-4.0,Cuba -79.2314,22.5889 -79.2715,22.6131 -79.3729,22.666 -79.4191,22.6889 -79.5321,22.7573 -79.5337,22.7745 -79.5033,22.7872 -79.4816,22.7859 -79.4675,22.7765 -79.4445,22.7532 -79.4302,22.732 -79.4231,22.7249 -79.3947,22.7059 -79.3325,22.6765 -79.2768,22.6495 -79.2426,22.6143 -79.2258,22.5918 -79.2314,22.5889 -79.2314,22.5889 53,6.0,Bangladesh 90.5599,21.9628 90.5259,21.9682 90.4906,22.007 90.5077,22.1122 90.5125,22.1315 90.5191,22.1492 90.5403,22.1985 90.551,22.2112 90.5606,22.2301 90.5647,22.2447 90.5714,22.3165 90.573,22.3677 90.5649,22.4207 90.5536,22.4773 90.5501,22.4875 90.5357,22.5191 90.5307,22.5279 90.5217,22.5336 90.5024,22.5389 90.4883,22.5448 90.4453,22.5801 90.4399,22.6024 90.439,22.6145 90.4412,22.6359 90.4438,22.6524 90.4626,22.7256 90.4709,22.7415 90.4788,22.7482 90.4937,22.7524 90.5286,22.756 90.5502,22.7576 90.5602,22.7561 90.5687,22.7481 90.5805,22.7151 90.5845,22.702 90.5906,22.6712 90.592,22.659 90.5934,22.6464 90.6009,22.6265 90.682,22.5289 90.7205,22.4932 90.7475,22.475 90.7571,22.4624 90.7652,22.4322 90.7667,22.4115 90.754,22.2937 90.7393,22.2214 90.7356,22.2064 90.7154,22.1327 90.7085,22.1112 90.6582,22.0453 90.5599,21.9628 90.5599,21.9628 27,6.0,Bangladesh 91.4001,22.3205 91.3872,22.3226 91.3735,22.3283 91.3624,22.3373 91.334,22.3791 91.3169,22.4081 91.2954,22.4473 91.2925,22.4577 91.29,22.473 91.2902,22.4861 91.2923,22.4983 91.3198,22.5975 91.3342,22.5955 91.3469,22.5805 91.4124,22.4845 91.4193,22.4711 91.4433,22.4199 91.4469,22.4102 91.4508,22.3954 91.4554,22.3777 91.4554,22.3609 91.4492,22.3459 91.4417,22.3365 91.4329,22.3308 91.417,22.323 91.4001,22.3205 91.4001,22.3205 30,-4.0,Cuba -78.3129,22.4039 -78.2989,22.419 -78.3004,22.4327 -78.322,22.4387 -78.3678,22.4331 -78.377,22.428 -78.3919,22.4204 -78.44,22.4229 -78.5557,22.4617 -78.5948,22.4769 -78.5989,22.4867 -78.5961,22.5082 -78.5777,22.5316 -78.545,22.5278 -78.5031,22.5198 -78.4862,22.5046 -78.4746,22.5014 -78.4542,22.4983 -78.4395,22.4981 -78.3624,22.5022 -78.3516,22.513 -78.3288,22.5299 -78.3036,22.5336 -78.2938,22.5327 -78.2526,22.5146 -78.2446,22.5087 -78.181,22.4178 -78.199,22.4106 -78.3129,22.4039 -78.3129,22.4039 28,6.0,Bangladesh 90.9151,22.0594 90.9397,22.1471 90.9416,22.1595 90.9501,22.2594 90.9509,22.3075 90.9504,22.3208 90.9515,22.3646 90.9606,22.4823 90.9643,22.4951 90.9772,22.4989 90.9884,22.4867 91.0316,22.3843 91.0617,22.2963 91.0678,22.2656 91.0673,22.2397 91.0656,22.2232 91.0625,22.1937 91.059,22.1781 91.0517,22.1623 91.0454,22.1535 91.0297,22.1366 91.0219,22.1301 90.9706,22.0903 90.9617,22.0838 90.9357,22.0676 90.9233,22.0609 90.9151,22.0594 90.9151,22.0594 594,7.0,Laos 102.0148,22.3714 102.0278,22.3596 102.0542,22.3014 102.0589,22.2756 102.1124,22.2178 102.1514,22.1912 102.1791,22.1855 102.2969,22.0909 102.322,22.0422 102.3758,21.9425 102.4006,21.9232 102.4294,21.9162 102.4594,21.9125 102.4785,21.9039 102.5214,21.8287 102.5356,21.7625 102.5348,21.7361 102.5283,21.7105 102.5495,21.6342 102.6282,21.6464 102.7353,21.6941 102.8441,21.7207 102.8613,21.6886 102.8648,21.583 102.8615,21.5503 102.8429,21.5315 102.8183,21.5047 102.7646,21.4421 102.7512,21.4063 102.7789,21.4164 102.7788,21.3581 102.7628,21.2286 102.7934,21.2052 102.7888,21.1444 102.8115,21.1398 102.9162,21.0227 102.9623,20.9322 102.9921,20.8703 103.0514,20.8207 103.0634,20.8209 103.0929,20.807 103.2096,20.7825 103.2344,20.7791 103.2991,20.7708 103.4791,20.7171 103.5112,20.695 103.547,20.6585 103.5608,20.6366 103.6122,20.6478 103.6452,20.7141 103.6525,20.7611 103.73,20.8292 103.9771,20.9524 104.0674,20.9199 104.1031,20.9054 104.179,20.8709 104.2036,20.8539 104.2172,20.82 104.2823,20.7551 104.3747,20.689 104.4608,20.6497 104.4871,20.6419 104.5146,20.6294 104.5025,20.5958 104.4735,20.5673 104.3889,20.4943 104.3273,20.4814 104.2545,20.4316 104.2668,20.4124 104.2935,20.4015 104.3934,20.3842 104.4259,20.3914 104.4884,20.3932 104.5818,20.319 104.5879,20.2906 104.7178,20.2025 104.8118,20.1608 104.8576,20.0761 104.8504,19.9815 104.8355,19.9662 104.772,19.9512 104.715,19.9166 104.6624,19.8699 104.6629,19.842 104.6991,19.8417 104.7219,19.822 104.7046,19.7654 104.6429,19.7349 104.59,19.7259 104.5523,19.6858 104.5403,19.6653 104.5278,19.6262 104.5173,19.5949 104.442,19.5838 104.3928,19.5835 104.323,19.6232 104.2962,19.6481 104.1197,19.6825 104.0941,19.6814 104.0324,19.6656 104.0236,19.6597 104.015,19.6408 103.961,19.6425 103.932,19.661 103.9125,19.6718 103.8951,19.6473 103.9128,19.5985 103.9244,19.5776 103.9528,19.5474 103.9753,19.537 103.9794,19.5007 103.9776,19.4568 103.9153,19.3968 103.8455,19.3703 103.7518,19.2878 103.8807,19.2119 103.935,19.2171 104.0482,19.1692 104.0997,19.1239 104.0943,19.0901 104.1522,19.0896 104.4035,18.9511 104.4224,18.9206 104.4464,18.8821 104.5455,18.8161 104.6175,18.7751 104.808,18.7233 104.9028,18.6999 104.9783,18.6757 105.0185,18.6527 105.0655,18.616 105.0666,18.5894 105.0227,18.5779 104.9879,18.4971 104.9764,18.4496 104.9813,18.4173 105.0561,18.3141 105.1397,18.2323 105.1811,18.2359 105.1983,18.2224 105.1944,18.1766 105.2047,18.166 105.23,18.1481 105.2726,18.1373 105.3766,18.1479 105.4547,18.0286 105.4994,17.9673 105.5544,17.7946 105.6267,17.6508 105.6676,17.6335 105.7051,17.6206 105.7332,17.5988 105.7642,17.5647 105.8039,17.5095 105.8936,17.4065 105.9111,17.3874 105.9624,17.3375 106.0234,17.2855 106.0838,17.2425 106.1207,17.2274 106.2128,17.1501 106.2924,17.0457 106.3061,16.9925 106.3132,16.9735 106.3919,16.9484 106.4327,16.978 106.4271,16.9191 106.427,16.8699 106.4327,16.6587 106.4472,16.6238 106.5567,16.4409 106.5742,16.4214 106.6288,16.402 106.6545,16.414 106.6857,16.4546 106.701,16.4884 106.7151,16.514 106.747,16.5186 106.767,16.4993 106.8558,16.319 106.859,16.2816 106.8825,16.2892 106.9022,16.2884 106.9657,16.2826 107.0191,16.2453 107.0204,16.2152 107.0237,16.1876 107.037,16.1659 107.0635,16.1427 107.2095,16.0382 107.2341,16.0447 107.2543,16.0496 107.3322,16.0627 107.3468,16.0095 107.3473,16.0046 107.3354,15.9859 107.2736,15.9006 107.1277,15.8408 107.1012,15.8486 107.0761,15.8415 107.0485,15.7727 107.0554,15.7477 107.1354,15.6305 107.2334,15.539 107.2926,15.4861 107.3895,15.4511 107.4687,15.3668 107.5567,15.2715 107.5673,15.2539 107.557,15.2179 107.5538,15.2095 107.5426,15.1885 107.513,15.1112 107.4882,15.047 107.4593,15.029 107.3461,15.0192 107.3407,15.0064 107.3529,14.9548 107.4131,14.9023 107.4249,14.8308 107.4229,14.7082 107.4204,14.6924 107.3471,14.6238 107.2219,14.5791 107.1284,14.5148 107.1087,14.4812 107.0441,14.4228 106.9938,14.388 106.7261,14.288 106.6791,14.325 106.6409,14.3728 106.6282,14.3935 106.579,14.4189 106.5046,14.45 106.4764,14.4934 106.4098,14.5813 106.3499,14.548 106.307,14.4919 106.3079,14.4695 106.2846,14.4421 106.1985,14.4322 106.1813,14.4436 106.166,14.4652 106.1278,14.4727 106.1233,14.432 106.1156,14.3976 106.0982,14.3655 106.0457,14.3497 106.0166,14.3626 105.9764,14.3654 105.8775,14.3514 105.873,14.3158 105.9116,14.2212 105.9965,14.1195 106.0449,14.0658 106.0517,14.043 105.9889,13.9304 105.9345,13.9144 105.8253,13.911 105.7883,13.9174 105.7665,13.9351 105.686,14.0015 105.6713,14.0172 105.6623,14.0608 105.6109,14.0954 105.4368,14.1524 105.374,14.1196 105.3177,14.0994 105.253,14.0907 105.1609,14.1625 105.087,14.2726 105.088,14.3338 105.1031,14.3265 105.1747,14.3536 105.2479,14.3887 105.3215,14.4346 105.3699,14.4876 105.3918,14.515 105.412,14.5477 105.4126,14.5915 105.4047,14.6317 105.3916,14.799 105.4207,14.8421 105.4417,14.8665 105.4524,14.895 105.4654,14.984 105.3993,15.0537 105.3463,15.0933 105.3497,15.1578 105.4115,15.378 105.4404,15.3888 105.4578,15.3996 105.4744,15.4159 105.4806,15.4537 105.5053,15.5682 105.5133,15.622 105.5092,15.6518 105.4781,15.7024 105.4315,15.7312 105.3819,15.7491 105.3589,15.7444 105.3165,15.7438 105.2752,15.7897 105.2637,15.8103 105.2202,15.9083 105.2456,15.9557 105.2597,15.972 105.3038,15.9825 105.2969,15.9914 105.1826,16.0206 105.1504,16.0262 105.1193,16.0284 105.0945,16.0323 105.0632,16.0386 104.9551,16.077 104.9318,16.0969 104.9194,16.1151 104.9032,16.1574 104.8986,16.2087 104.8867,16.2335 104.8667,16.259 104.8531,16.2694 104.8364,16.2817 104.7843,16.3279 104.6241,16.5061 104.6169,16.5477 104.6274,16.6177 104.6344,16.6392 104.6422,16.6726 104.6427,16.7061 104.6351,16.7346 104.6194,16.8913 104.6163,16.9277 104.614,16.9544 104.6152,16.9917 104.6204,17.0185 104.6481,17.0719 104.6714,17.1143 104.6761,17.1337 104.6829,17.1713 104.6883,17.2231 104.6872,17.2667 104.6829,17.342 104.679,17.3627 104.6666,17.3889 104.5921,17.4838 104.5657,17.5089 104.5147,17.538 104.3353,17.6297 104.2913,17.6843 104.2756,17.7082 104.2096,17.8064 104.1598,17.8257 104.1404,17.845 104.1309,17.8679 104.1136,17.9173 104.0898,17.969 104.0694,17.9949 103.976,18.0891 103.966,18.1263 103.9458,18.1796 103.9208,18.2182 103.8504,18.3065 103.8148,18.3061 103.7168,18.2909 103.6337,18.3175 103.4936,18.3678 103.3825,18.4012 103.2924,18.4141 103.2721,18.4146 103.2462,18.4104 103.1758,18.3983 103.1513,18.3816 103.117,18.3451 103.116,18.3187 103.1317,18.2545 103.0161,18.1451 102.9956,18.1287 102.9448,18.103 102.9437,18.0089 102.9227,17.9768 102.8914,17.9598 102.8537,17.9788 102.822,17.9859 102.7341,17.9546 102.7171,17.9426 102.6065,17.8633 102.5594,17.8002 102.4867,17.867 102.4886,17.8986 102.4801,17.9267 102.4203,17.9515 102.3995,17.9534 102.3484,17.9505 102.2997,17.9621 102.1756,18.0276 102.1341,18.0676 102.0896,18.1182 102.0564,18.1705 102.0334,18.184 101.9845,18.1892 101.9659,18.1947 101.9473,18.1881 101.9243,18.1712 101.8759,18.1073 101.7876,18.0166 101.762,18.0113 101.7275,18.0239 101.6612,18.0434 101.6389,18.0183 101.6188,17.9528 101.5664,17.8857 101.5132,17.8698 101.4546,17.84 101.437,17.7941 101.4583,17.7774 101.3748,17.7236 101.2333,17.6377 101.1872,17.6049 101.1052,17.5118 101.0378,17.4412 100.9538,17.4805 100.9114,17.5217 100.8661,17.542 100.8413,17.546 100.8195,17.5448 100.8005,17.5492 100.7896,17.5799 100.8024,17.5994 100.8315,17.6301 100.8664,17.7125 100.8626,17.7302 100.8586,17.7432 100.8676,17.7864 100.9067,17.878 100.9412,17.8946 100.9649,17.9102 100.9914,17.9372 101.0212,18.0023 101.0484,18.0671 101.0544,18.155 101.0319,18.3244 100.9736,18.3535 100.9642,18.3673 100.9366,18.3981 100.9356,18.4211 100.9846,18.4981 101.0246,18.5199 101.0577,18.5393 101.1186,18.6169 101.1452,18.6637 101.1143,18.7204 101.127,18.8478 101.1313,18.8739 101.177,18.9546 101.1957,18.9754 101.2166,18.9895 101.2304,19.0231 101.1831,19.0715 101.1672,19.0847 101.0795,19.3322 101.0782,19.3529 101.093,19.4399 101.1413,19.4526 101.1621,19.4987 101.1562,19.5446 101.1362,19.5637 101.1021,19.5725 100.9634,19.5686 100.941,19.5833 100.9097,19.5974 100.836,19.5996 100.7899,19.5977 100.7615,19.5763 100.7452,19.5557 100.7299,19.5381 100.6912,19.4987 100.6516,19.4641 100.6332,19.4863 100.5776,19.5118 100.5187,19.5287 100.4908,19.5166 100.4627,19.4723 100.4567,19.4716 100.3944,19.4972 100.3688,19.516 100.3236,19.6059 100.2858,19.7167 100.283,19.727 100.2893,19.7498 100.324,19.7928 100.3641,19.8373 100.3844,19.8565 100.4292,19.9954 100.4492,20.0694 100.4584,20.1351 100.4528,20.1399 100.3993,20.1233 100.3362,20.1657 100.297,20.2158 100.2659,20.2858 100.2574,20.3143 100.238,20.3429 100.2214,20.3594 100.1992,20.3686 100.1658,20.3702 100.139,20.3634 100.1056,20.3339 100.0441,20.2693 99.9836,20.2867 99.9699,20.326 99.9912,20.353 100.004,20.3786 100.0195,20.4665 100.0275,20.5218 100.0508,20.6051 100.0875,20.6699 100.1367,20.726 100.1686,20.7484 100.2495,20.803 100.3193,20.795 100.3397,20.7897 100.3744,20.7827 100.4037,20.7814 100.4382,20.7905 100.4822,20.8106 100.4954,20.8172 100.5178,20.8385 100.5197,20.8618 100.4878,20.8654 100.4529,20.8535 100.4213,20.8447 100.3991,20.8532 100.3982,20.9287 100.4243,21.0027 100.4481,21.0085 100.4802,21.015 100.5019,21.0312 100.549,21.1044 100.5766,21.1589 100.58,21.2039 100.604,21.2842 100.6512,21.2771 100.6948,21.2757 100.716,21.2804 100.7392,21.2928 100.8778,21.3745 100.9771,21.4416 101.0033,21.467 101.0383,21.5124 101.0245,21.5486 101.0608,21.5349 101.1409,21.3505 101.1233,21.3094 101.1109,21.2283 101.1301,21.1866 101.1684,21.1531 101.2143,21.165 101.2638,21.1994 101.3845,21.2232 101.4463,21.2236 101.4846,21.211 101.553,21.1728 101.5791,21.1513 101.6084,21.116 101.6618,21.121 101.7209,21.1924 101.7249,21.2159 101.7241,21.2299 101.6819,21.262 101.6444,21.269 101.6164,21.29 101.6188,21.3341 101.6362,21.4296 101.6431,21.4726 101.6568,21.6295 101.6275,21.7079 101.6403,21.8101 101.5477,21.9089 101.5024,21.9458 101.4496,22.1845 101.5008,22.2558 101.55,22.3635 101.5367,22.3865 101.5456,22.4181 101.5658,22.4473 101.6159,22.4728 101.6478,22.4747 101.6746,22.4643 101.7994,22.4122 101.9052,22.4297 101.9889,22.4079 102.0148,22.3714 102.0148,22.3714 21,-4.0,Cuba -77.9232,22.2371 -77.9607,22.2425 -78.0632,22.2778 -78.0941,22.2968 -78.078,22.3127 -78.089,22.3323 -78.0952,22.3399 -78.1678,22.3832 -78.1828,22.3801 -78.1952,22.3724 -78.2122,22.3852 -78.1779,22.3995 -78.1085,22.4122 -78.0657,22.4076 -78.0222,22.389 -78.003,22.3723 -77.9956,22.3649 -77.9902,22.3564 -77.926,22.2518 -77.9232,22.2371 -77.9232,22.2371 18,8.0,China 113.909,22.3039 113.886,22.2821 113.8534,22.239 113.852,22.2117 113.8248,22.1933 113.7691,22.1722 113.7566,22.171 113.7028,22.1688 113.6922,22.1755 113.6828,22.1953 113.6852,22.2076 113.6949,22.2196 113.7022,22.2264 113.7451,22.2579 113.7573,22.2631 113.9073,22.313 113.909,22.3039 113.909,22.3039 11,-4.0,Cuba -77.7687,22.0711 -77.7993,22.0727 -77.8652,22.1011 -77.9024,22.1215 -77.9479,22.1636 -77.9013,22.2604 -77.7653,22.1942 -77.7332,22.1269 -77.7484,22.0833 -77.7687,22.0711 -77.7687,22.0711 25,-10.0,United States -159.2554,21.8456 -159.265,21.8593 -159.3093,21.8728 -159.3639,21.876 -159.5109,21.9334 -159.5577,21.9545 -159.59,21.9977 -159.5934,22.0116 -159.5927,22.0263 -159.5887,22.0368 -159.5336,22.1125 -159.5178,22.1295 -159.3859,22.2015 -159.3559,22.2112 -159.2052,22.2143 -159.153,22.1954 -159.1309,22.177 -159.1211,22.1657 -159.0955,22.1166 -159.0926,22.1024 -159.137,21.9411 -159.1826,21.8964 -159.2375,21.8569 -159.2554,21.8456 -159.2554,21.8456 841,2.0,Sudan 36.8432,21.9754 36.8088,21.9472 36.8291,21.7627 36.8548,21.6132 36.8662,21.5844 36.9551,21.4075 37.0239,21.3072 37.0534,21.268 37.0982,21.2247 37.1184,21.2081 37.1555,21.1768 37.1879,21.1428 37.2208,21.1027 37.2612,21.0399 37.2604,20.9938 37.2023,20.9783 37.1801,21.0024 37.1541,21.0705 37.1783,21.0557 37.1922,21.0381 37.2188,21.0297 37.185,21.1056 37.1086,21.1716 37.0581,21.1843 37.0485,21.1455 37.0922,20.9445 37.1189,20.7728 37.1261,20.6765 37.1395,20.6584 37.1626,20.6032 37.1831,20.5334 37.1817,20.4437 37.1556,20.4353 37.1397,20.3791 37.1353,20.3064 37.1322,20.1982 37.1409,19.9912 37.1731,19.8954 37.1825,19.8736 37.1978,19.8427 37.212,19.8116 37.2202,19.7408 37.2205,19.7098 37.2124,19.666 37.1951,19.6431 37.1965,19.5427 37.2225,19.5058 37.2449,19.4533 37.2619,19.3739 37.263,19.3372 37.2667,19.2785 37.2762,19.2205 37.2912,19.1307 37.3103,19.0651 37.3904,18.8329 37.4711,18.7035 37.5074,18.6893 37.5494,18.6882 37.5971,18.688 37.635,18.6971 37.705,18.6856 37.7223,18.6746 37.7164,18.6438 37.783,18.5802 37.8506,18.552 37.9042,18.5199 37.932,18.4975 37.9589,18.4685 38.0058,18.4058 38.0553,18.3244 38.0435,18.2871 38.0722,18.2618 38.1064,18.2388 38.1432,18.2207 38.2253,18.2025 38.3226,18.1673 38.3933,18.1141 38.4996,18.0871 38.5293,18.0672 38.5424,18.0465 38.5608,17.9907 38.554,17.9747 38.4595,17.8934 38.4122,17.8511 38.4029,17.8311 38.3228,17.6446 38.2114,17.5133 38.0898,17.4795 38.0462,17.5235 38.0127,17.5329 37.989,17.5223 37.9208,17.4802 37.8883,17.4393 37.8498,17.4219 37.6994,17.3624 37.5779,17.3383 37.5435,17.3308 37.4669,17.302 37.4752,17.2585 37.4854,17.2303 37.4756,17.1765 37.441,17.0914 37.3785,17.0153 37.3365,17.0241 37.2125,17.008 37.1031,16.9981 37.0636,17.029 36.9816,17.058 36.9493,17.0458 36.9687,17.0033 36.9647,16.7676 36.9445,16.7068 36.9282,16.6814 36.8951,16.6589 36.8697,16.6261 36.8541,16.5184 36.8524,16.4965 36.8585,16.4752 36.884,16.4413 36.9087,16.4155 36.9296,16.2675 36.9225,16.2418 36.8804,16.2089 36.8454,16.1287 36.782,15.9596 36.7199,15.7904 36.6525,15.7309 36.628,15.6419 36.5824,15.4722 36.567,15.4202 36.5221,15.2856 36.4994,15.2177 36.4364,15.1635 36.4001,15.1332 36.409,15.0518 36.4732,14.4341 36.4991,14.262 36.5004,14.2463 36.497,14.2303 36.4043,13.9413 36.445,13.8241 36.4291,13.7888 36.3793,13.6718 36.3673,13.6425 36.3658,13.62 36.3698,13.6004 36.3672,13.5799 36.3561,13.5526 36.3206,13.5046 36.3073,13.4877 36.2074,13.353 36.1164,13.0185 36.1282,12.9754 36.1102,12.9574 36.1015,12.9384 36.0946,12.9111 36.1186,12.867 36.1021,12.7009 36.0712,12.6798 36.0529,12.6921 36.0316,12.7098 35.9966,12.7009 35.9722,12.7066 35.9243,12.7015 35.661,12.6521 35.66,12.6111 35.6462,12.5881 35.6076,12.5776 35.3442,12.1521 35.2446,11.9701 35.2262,11.9204 35.2145,11.9044 35.1924,11.8848 35.1626,11.873 35.1293,11.8651 35.0953,11.8506 35.0773,11.8377 35.0634,11.8212 35.0449,11.7924 35.0243,11.7466 35.0194,11.7173 35.0282,11.6337 35.0395,11.6105 35.0529,11.586 35.0566,11.5636 35.0489,11.5229 34.9748,11.3551 34.966,11.3364 34.9479,11.3059 34.9287,11.2625 34.9255,11.2378 34.9327,11.2185 34.9403,11.2115 34.9691,11.186 34.9669,11.1621 34.945,11.0979 34.8949,10.9445 34.9403,10.9032 34.9369,10.8525 34.8225,10.7201 34.7623,10.7113 34.7319,10.7374 34.6727,10.7903 34.6358,10.8225 34.5564,10.8756 34.4019,10.7725 34.3152,10.62 34.2772,10.5748 34.2484,10.5423 34.2907,10.3387 34.3044,10.2695 34.3109,10.227 34.2856,10.106 34.1932,10.0167 34.1825,9.9626 34.17,9.8939 34.1025,9.7471 34.0484,9.5425 34.0577,9.4435 34.0602,9.4094 34.0632,9.3747 34.0973,8.9453 34.0922,8.7959 34.0857,8.6247 34.085,8.575 34.0837,8.5701 34.0678,8.5483 34.0331,8.514 33.9643,8.451 33.9331,8.4284 33.8777,8.4213 33.8436,8.4213 33.8149,8.4165 33.7809,8.4021 33.7521,8.3753 33.7335,8.3586 33.6776,8.3659 33.6528,8.3861 33.6324,8.4278 33.5971,8.4576 33.4713,8.457 33.3435,8.4284 33.2896,8.4442 33.2266,8.4521 33.1342,8.3905 33.1239,8.3472 33.1289,8.269 33.1412,8.2133 33.1489,8.1314 33.1258,8.1062 33.0843,8.092 32.995,7.9886 32.9549,7.9173 32.9598,7.8785 32.9779,7.8373 33.0151,7.7822 33.0597,7.7726 33.2203,7.7549 33.4018,7.7358 33.4268,7.7355 33.6096,7.6765 33.6745,7.6501 33.8475,7.5171 33.9895,7.3704 33.9943,7.2963 33.9914,7.272 33.9887,7.24 34.0608,7.1916 34.1248,7.1638 34.1554,7.0823 34.1851,7.0347 34.1972,7.0118 34.242,6.9681 34.2608,6.9567 34.29,6.9511 34.3221,6.9512 34.392,6.9278 34.4329,6.9066 34.448,6.8699 34.4898,6.7396 34.5145,6.7282 34.5638,6.7274 34.5929,6.7215 34.6156,6.7093 34.6399,6.6925 34.6656,6.6703 34.7176,6.6065 34.8107,6.3597 34.817,6.2842 34.8198,6.2605 34.831,6.2306 34.8827,6.1254 34.9125,6.0968 34.9299,6.0797 34.9418,6.0545 34.9483,6.0074 34.9362,5.958 34.9467,5.8716 34.9885,5.8077 35.0653,5.6819 35.0641,5.6261 35.2497,5.5019 35.2524,5.4814 35.2371,5.4521 35.2304,5.4322 35.2628,5.3716 35.2859,5.351 35.3124,5.3448 35.3789,5.3926 35.4033,5.4194 35.4644,5.4253 35.4873,5.4209 35.6856,5.3585 35.7131,5.3409 35.7342,5.3312 35.7561,5.3252 35.7809,5.3229 35.7578,5.2598 35.7555,5.2295 35.7642,5.2012 35.7898,5.1627 35.7829,5.131 35.7618,5.0997 35.7392,5.077 35.7338,4.7935 35.884,4.635 35.8996,4.6176 35.8591,4.6148 35.6691,4.6129 35.6586,4.6141 35.6353,4.6125 35.6014,4.6122 35.568,4.6128 35.5403,4.6119 35.5066,4.6117 35.4686,4.6117 35.1072,4.6087 34.9105,4.6078 34.7817,4.6072 34.7344,4.6073 34.6736,4.607 34.4429,4.606 34.3685,4.6055 34.3492,4.6046 34.335,4.5915 34.0575,4.3157 33.9583,4.2183 33.4856,3.7544 33.4732,3.7486 33.35,3.754 33.2073,3.76 33.1463,3.762 33.0896,3.804 32.9793,3.8844 32.9412,3.8592 32.9011,3.8332 32.861,3.8076 32.8375,3.7998 32.7634,3.7766 32.6825,3.7518 32.6323,3.7494 32.5983,3.7478 32.4423,3.7416 32.3679,3.7396 32.1636,3.6058 32.1644,3.5712 32.1582,3.5091 32.0994,3.5171 32.075,3.523 32.0544,3.5321 32.0408,3.5551 32.0325,3.5784 31.9897,3.5874 31.9151,3.5898 31.9102,3.6177 31.8962,3.6853 31.8176,3.7807 31.7856,3.8028 31.7536,3.8047 31.7128,3.7572 31.6684,3.7103 31.5052,3.6495 31.424,3.6949 31.3416,3.7413 31.2513,3.7907 31.1688,3.7915 31.1415,3.7913 30.944,3.6903 30.9198,3.667 30.8566,3.5617 30.8339,3.5186 30.824,3.4897 30.8123,3.5245 30.7517,3.656 30.7004,3.6338 30.5965,3.607 30.5573,3.6009 30.5274,3.6093 30.5406,3.6378 30.5469,3.6648 30.547,3.6962 30.5165,3.8597 30.4929,3.8687 30.4601,3.8609 30.4005,3.8816 30.3272,3.9209 30.3017,3.9358 30.2411,3.9548 30.209,3.9511 30.1736,3.9574 30.1327,4.0354 30.1141,4.0952 30.0853,4.1122 30.0455,4.1177 30.0277,4.1267 29.954,4.2291 29.9256,4.2865 29.8049,4.3421 29.7652,4.3704 29.7588,4.4283 29.7661,4.4641 29.7727,4.4911 29.7795,4.554 29.665,4.6125 29.6098,4.6386 29.5812,4.651 29.4607,4.6785 29.4341,4.6587 29.4329,4.6295 29.4308,4.587 29.3995,4.5207 29.2918,4.385 29.2103,4.3415 29.1772,4.3373 29.1264,4.3814 29.0985,4.4072 28.9785,4.4922 28.9445,4.4788 28.8575,4.473 28.7949,4.4778 28.7702,4.4923 28.771,4.514 28.7497,4.5525 28.6798,4.5326 28.6609,4.5059 28.6553,4.4797 28.6404,4.4511 28.62,4.4206 28.601,4.4118 28.5523,4.397 28.4734,4.3682 28.4562,4.3451 28.4451,4.3259 28.3311,4.2853 28.1693,4.3431 28.0524,4.4278 27.9964,4.4973 27.8982,4.5461 27.8338,4.5521 27.7579,4.5952 27.7401,4.6608 27.7461,4.6923 27.7514,4.7524 27.7374,4.7825 27.6288,4.8909 27.4931,4.9381 27.4242,5.0109 27.4274,5.0201 27.4284,5.066 27.3698,5.1448 27.3343,5.1649 27.2892,5.2028 27.2666,5.2251 27.244,5.2766 27.2239,5.3254 27.2055,5.4203 27.2264,5.5033 27.249,5.5385 27.248,5.5777 27.21,5.6416 27.1711,5.7022 27.1119,5.7655 27.0794,5.7849 26.9512,5.8528 26.8933,5.8591 26.8227,5.8848 26.798,5.9078 26.7934,5.954 26.7823,5.9712 26.7054,6.0027 26.6674,6.0107 26.6388,6.0005 26.5821,6.0077 26.5352,6.0218 26.4123,6.0706 26.4127,6.0953 26.4335,6.1241 26.47,6.1496 26.4885,6.1627 26.4983,6.1857 26.4954,6.2095 26.4249,6.291 26.3427,6.3394 26.2744,6.383 26.2681,6.4583 26.2839,6.4891 26.3364,6.5759 26.3765,6.6278 26.3741,6.6365 26.3309,6.6759 26.286,6.6926 26.2406,6.6984 26.0898,6.8185 26.068,6.8381 26.0346,6.8953 26.023,6.9252 26.0183,6.956 25.9551,7.0106 25.821,7.1016 25.7006,7.1601 25.5952,7.2033 25.4264,7.2899 25.3412,7.3359 25.3234,7.3637 25.3183,7.3931 25.3066,7.4125 25.2395,7.467 25.193,7.4861 25.1719,7.5079 25.1543,7.5695 25.1666,7.5876 25.2155,7.6147 25.2392,7.6182 25.2652,7.637 25.2708,7.6745 25.2588,7.7704 25.2276,7.837 25.1972,7.864 25.1578,7.8931 25.1112,7.8892 25.0838,7.8824 25.0565,7.8862 25.0259,7.9125 24.9897,7.9464 24.9424,7.9945 24.9162,8.0326 24.9198,8.0582 24.9108,8.0797 24.8423,8.1521 24.8163,8.1666 24.7768,8.1836 24.6942,8.2007 24.6327,8.2094 24.6,8.2112 24.4525,8.229 24.3097,8.2537 24.226,8.2691 24.2036,8.2752 24.1831,8.2839 24.158,8.3007 24.1359,8.3213 24.1266,8.3401 24.1133,8.3666 24.1368,8.4638 24.1749,8.5165 24.2145,8.5528 24.2415,8.578 24.1743,8.6774 24.1475,8.6863 24.1145,8.6771 24.0604,8.6788 24.0252,8.684 23.9889,8.6942 23.8995,8.7083 23.7974,8.7182 23.7554,8.7135 23.7374,8.7051 23.7127,8.6958 23.5312,8.6947 23.5034,8.6985 23.4715,8.762 23.4819,8.7984 23.5105,8.8219 23.5366,8.8586 23.5564,8.9024 23.5557,8.9838 23.5351,8.9906 23.5064,8.9511 23.484,8.9483 23.4633,8.9564 23.432,8.981 23.4226,9.0094 23.4471,9.1197 23.4526,9.1351 23.4737,9.1671 23.5131,9.1692 23.5384,9.1772 23.6233,9.2656 23.6389,9.4244 23.616,9.4325 23.6,9.5324 23.6237,9.5686 23.6345,9.587 23.668,9.6575 23.6434,9.856 23.5111,10.0726 23.2984,10.4184 23.284,10.44 23.0352,10.6525 22.9842,10.6867 22.9192,10.7862 22.8764,10.8534 22.8551,10.8875 22.8416,10.9102 22.8685,10.9647 22.9488,11.1972 22.9462,11.2676 22.9079,11.3962 22.7653,11.4169 22.6234,11.4989 22.6005,11.5218 22.5883,11.5378 22.5503,11.5889 22.5342,11.616 22.5281,11.653 22.5477,11.7859 22.5728,11.9134 22.5863,11.9793 22.5387,12.0612 22.4785,12.1523 22.4139,12.3336 22.3828,12.4714 22.439,12.6007 22.3065,12.6591 22.1984,12.733 22.175,12.7013 22.1373,12.6547 22.1205,12.6432 22.0952,12.6344 22.0496,12.6258 22.0252,12.6234 21.9802,12.6225 21.9525,12.6245 21.928,12.6297 21.9008,12.6421 21.8826,12.6553 21.8638,12.6791 21.8044,12.7829 21.8671,12.9401 21.9172,13.0369 22.0003,13.1255 22.0424,13.134 22.1281,13.1718 22.2442,13.3059 22.2598,13.3259 22.2693,13.3579 22.2024,13.4806 22.111,13.6496 22.0593,13.7639 22.1727,13.907 22.2088,13.9499 22.2914,13.9951 22.3449,14.0134 22.4086,14.0361 22.53,14.114 22.5407,14.1513 22.5278,14.213 22.4855,14.2243 22.4234,14.3139 22.423,14.3633 22.4199,14.4577 22.4122,14.4768 22.3587,14.509 22.3606,14.5465 22.3724,14.5702 22.3901,14.5841 22.4437,14.6132 22.4739,14.6211 22.6732,14.6878 22.6533,14.7416 22.6431,14.7977 22.6427,14.8373 22.7264,14.9603 22.7592,14.9983 22.8186,15.0582 22.8459,15.0801 22.8656,15.0881 22.9024,15.0973 22.9514,15.1908 22.9574,15.2142 22.9642,15.2664 22.9701,15.3186 22.9698,15.3541 22.9556,15.3969 22.9082,15.4474 22.8957,15.4701 22.8924,15.4986 22.8962,15.5228 22.91,15.5445 23.0811,15.6889 23.0905,15.6928 23.1162,15.6938 23.1426,15.6932 23.2168,15.6835 23.2778,15.6693 23.302,15.6663 23.329,15.6643 23.3536,15.6676 23.3814,15.6735 23.4061,15.6834 23.4323,15.6992 23.4511,15.7085 23.5035,15.7241 23.5361,15.7323 23.5748,15.7401 23.6351,15.7399 23.7721,15.7303 23.8368,15.7129 23.9225,15.6882 23.9447,15.6804 23.969,15.6854 23.9714,15.8152 23.9713,16.115 23.9705,16.2479 23.9702,18.279 23.97,18.5117 23.9709,18.7333 23.9702,18.8118 23.9703,19.4111 23.9707,19.4441 23.9737,19.4772 23.9721,19.4924 23.9714,19.8843 23.9769,19.9767 24.0142,19.9798 24.125,19.9781 24.4263,19.9748 24.5474,19.977 24.6047,19.9777 24.7336,19.9781 24.9522,19.9771 24.9707,19.9767 24.9706,20.987 24.9707,21.9751 25.0683,21.9762 25.1855,21.9764 25.3761,21.9752 25.747,21.9781 26.3076,21.9751 26.6158,21.9718 26.642,21.9714 26.8053,21.9708 26.8814,21.9721 26.9387,21.9742 27.0598,21.9759 27.1049,21.9761 27.2344,21.9735 27.2939,21.9716 27.3532,21.9695 27.3788,21.97 27.69,21.9751 28.188,21.9786 28.2263,21.9791 28.2845,21.9781 28.5614,21.9751 28.9777,21.9712 29.0351,21.9709 29.0569,21.971 29.0781,21.9709 29.0996,21.9712 29.1207,21.971 29.1422,21.971 29.214,21.9711 29.4912,21.9729 29.5755,21.9736 30.0641,21.9761 30.2346,21.9761 30.3402,21.9763 30.4256,21.9761 30.4618,21.9764 30.5613,21.9758 30.6536,21.9748 30.7105,21.9746 31.1272,21.9738 31.1694,21.9739 31.2359,21.9743 31.2814,22.0554 31.2965,22.0815 31.357,22.1866 31.3831,22.2023 31.4095,22.2073 31.4405,22.1968 31.4696,22.1649 31.4753,22.135 31.4276,22.0062 31.4217,21.9735 31.4568,21.9739 31.5403,21.9749 31.9573,21.9784 32.3002,21.9795 32.3484,21.9795 32.4045,21.9795 32.4331,21.979 32.4541,21.9786 32.4818,21.9782 32.6081,21.9774 33.1262,21.9745 33.139,21.975 33.3173,21.9758 33.4208,21.9756 33.6985,21.9751 33.7187,21.9753 33.7401,21.9751 33.8236,21.9751 33.9135,21.9743 34.0325,21.9726 34.0573,21.9719 34.075,21.9715 34.3042,21.9712 34.6213,21.9717 34.6617,21.9728 34.8497,21.9762 34.8974,21.9767 34.9246,21.9764 34.9456,21.9766 35.1103,21.9759 35.3109,21.9748 35.4016,21.9731 35.7372,21.9724 35.8652,21.9739 35.9808,21.9745 36.212,21.9753 36.2532,21.9747 36.3641,21.9743 36.5009,21.9739 36.6432,21.9739 36.6828,21.9751 36.7766,21.9765 36.8371,21.9766 36.8432,21.9754 36.8432,21.9754 16,6.0,Bangladesh 90.4061,21.9634 90.3891,21.9748 90.3833,21.9832 90.3684,22.0138 90.3753,22.0524 90.3823,22.0617 90.4502,22.1127 90.4708,22.1262 90.4798,22.1313 90.4994,22.1369 90.452,22.0083 90.445,21.9959 90.4323,21.9781 90.4122,21.9667 90.4061,21.9634 90.4061,21.9634 23,-4.0,Cuba -77.6099,21.884 -77.6688,21.9322 -77.7047,21.9414 -77.79,21.9789 -77.8387,22.0196 -77.8459,22.0301 -77.8485,22.0413 -77.8512,22.0736 -77.841,22.078 -77.8188,22.0702 -77.7828,22.0473 -77.7622,22.0508 -77.7563,22.0642 -77.7034,22.077 -77.6368,22.052 -77.5568,22.0441 -77.5389,22.0278 -77.5257,22.0038 -77.5428,21.9286 -77.5774,21.9221 -77.5978,21.8979 -77.6099,21.884 -77.6099,21.884 19,-10.0,United States -160.0027,21.7593 -160.0074,21.7594 -160.0346,21.7762 -160.0493,21.787 -160.0509,21.8188 -160.0303,21.8669 -160.0004,21.8957 -159.9857,21.9099 -159.8891,21.9929 -159.8645,21.9894 -159.8497,21.9734 -159.8741,21.8848 -159.8943,21.8721 -159.9181,21.8631 -159.9333,21.8602 -159.9507,21.8615 -159.9854,21.8127 -160.0027,21.7593 -160.0027,21.7593 44,-4.0,Cuba -82.7954,21.4088 -82.8548,21.4243 -82.8942,21.4296 -82.9711,21.4386 -83.0475,21.5044 -83.0623,21.5304 -83.0892,21.5994 -83.0123,21.5523 -83.0076,21.5393 -82.982,21.524 -82.9717,21.5194 -82.9595,21.5175 -82.9193,21.5185 -82.8536,21.5382 -82.8458,21.5449 -82.8334,21.5627 -82.8372,21.576 -82.8461,21.5814 -82.9114,21.6531 -82.9732,21.7398 -82.9873,21.7611 -82.9853,21.784 -82.977,21.8072 -82.9701,21.8174 -82.8721,21.9184 -82.7633,21.908 -82.7218,21.9027 -82.6139,21.8657 -82.5981,21.8091 -82.5645,21.7765 -82.5133,21.7442 -82.5049,21.7371 -82.4964,21.7246 -82.4914,21.7158 -82.4418,21.5656 -82.4433,21.5499 -82.4972,21.514 -82.5346,21.494 -82.5988,21.4648 -82.609,21.4605 -82.6416,21.4502 -82.7642,21.4137 -82.7954,21.4088 -82.7954,21.4088 21,5.5,India 88.0382,21.841 88.0414,21.8343 88.0487,21.8186 88.0564,21.7874 88.058,21.7579 88.0586,21.7454 88.0572,21.702 88.0244,21.5964 87.9572,21.6058 87.943,21.6123 87.9383,21.6217 87.9371,21.6368 87.9378,21.6474 87.9449,21.6967 87.9844,21.795 87.9917,21.8082 88.0119,21.8422 88.0214,21.8505 88.0335,21.8469 88.0382,21.841 88.0382,21.841 15,8.0,China 112.6553,21.5503 112.6496,21.5503 112.6291,21.5522 112.6187,21.5588 112.5908,21.5905 112.5647,21.6605 112.5882,21.6904 112.5947,21.6984 112.6405,21.7441 112.6951,21.7498 112.7303,21.7388 112.7249,21.7251 112.6674,21.629 112.6553,21.5503 112.6553,21.5503 24,6.0,Bangladesh 91.7743,21.4493 91.765,21.4539 91.757,21.46 91.7501,21.4671 91.7449,21.4773 91.742,21.4892 91.7313,21.6665 91.7332,21.68 91.7444,21.7058 91.7506,21.7193 91.7561,21.7276 91.7712,21.7308 91.8235,21.7098 91.8345,21.6588 91.8658,21.6185 91.8689,21.6031 91.8696,21.5875 91.8669,21.5649 91.8526,21.4924 91.8454,21.4823 91.8374,21.4761 91.7851,21.4527 91.7743,21.4493 91.7743,21.4493 17,-6.0,Mexico -106.4901,21.5412 -106.4975,21.5486 -106.5097,21.5894 -106.5119,21.6004 -106.5147,21.664 -106.503,21.6701 -106.4547,21.6916 -106.409,21.6718 -106.3977,21.6645 -106.3702,21.5955 -106.367,21.5725 -106.3842,21.4891 -106.3964,21.4861 -106.4581,21.5162 -106.4663,21.5228 -106.4901,21.5412 -106.4901,21.5412 40,-10.0,United States -157.6198,21.2352 -157.6743,21.2953 -157.6941,21.3091 -157.7092,21.313 -157.7327,21.2971 -157.7917,21.2789 -157.9071,21.2706 -157.9146,21.2775 -157.9179,21.2917 -157.9204,21.31 -157.9228,21.321 -157.9294,21.3352 -157.937,21.3489 -157.9425,21.3576 -157.9841,21.4025 -158.0093,21.428 -158.026,21.439 -158.0411,21.4544 -158.0794,21.5538 -158.0704,21.5624 -157.913,21.5855 -157.8532,21.6421 -157.8375,21.6554 -157.8177,21.668 -157.7779,21.6753 -157.7636,21.6686 -157.7499,21.6604 -157.7348,21.6465 -157.7287,21.6385 -157.6828,21.5528 -157.6615,21.4873 -157.6505,21.4471 -157.6101,21.4108 -157.5872,21.403 -157.537,21.3876 -157.4723,21.3005 -157.5157,21.2448 -157.5676,21.2478 -157.6198,21.2352 -157.6198,21.2352 15,8.0,China 111.6793,21.5328 111.6687,21.5399 111.7016,21.6173 111.7133,21.6227 111.7261,21.624 111.796,21.6284 111.8635,21.6296 111.8703,21.6105 111.8676,21.5994 111.8582,21.5913 111.8486,21.5866 111.8136,21.5766 111.6991,21.5412 111.6793,21.5328 111.6793,21.5328 15,-6.0,Mexico -106.2686,21.396 -106.3378,21.4029 -106.3766,21.4134 -106.379,21.4309 -106.3687,21.4493 -106.3548,21.4715 -106.3481,21.4792 -106.3411,21.4864 -106.3289,21.4884 -106.315,21.4878 -106.209,21.4767 -106.198,21.4441 -106.2524,21.3986 -106.2686,21.396 -106.2686,21.396 15,7.0,Vietnam 107.3405,21.2476 107.3924,21.2006 107.4725,21.1932 107.4687,21.1816 107.4537,21.1673 107.409,21.1322 107.3802,21.1263 107.3707,21.1058 107.332,21.066 107.273,21.0289 107.2483,21.0248 107.2445,21.0577 107.3136,21.2116 107.3405,21.2476 107.3405,21.2476 35,-10.0,United States -156.6758,21.0224 -156.6833,21.0228 -156.6967,21.0247 -156.7647,21.0475 -156.83,21.072 -156.8451,21.0788 -156.8624,21.0833 -156.8756,21.0854 -156.8905,21.0858 -156.904,21.0854 -156.9272,21.0791 -156.9653,21.0708 -157.0672,21.0644 -157.1051,21.0665 -157.1115,21.0743 -157.1016,21.1199 -157.0947,21.1308 -157.0517,21.175 -156.9961,21.186 -156.8427,21.1715 -156.7824,21.1594 -156.7025,21.1377 -156.6519,21.1366 -156.6375,21.1368 -156.6189,21.1417 -156.5996,21.1532 -156.5587,21.149 -156.5136,21.1319 -156.523,21.1157 -156.5585,21.0673 -156.5703,21.0575 -156.6467,21.0294 -156.6576,21.0257 -156.6758,21.0224 -156.6758,21.0224 17,8.0,China 110.3963,21.175 110.4763,21.1701 110.4324,21.0926 110.4221,21.0804 110.4021,21.0738 110.3078,21.1336 110.3098,21.1627 110.3199,21.1778 110.3481,21.1847 110.3632,21.1716 110.3504,21.1673 110.3308,21.167 110.3302,21.1568 110.3555,21.1579 110.3737,21.1624 110.3963,21.175 110.3963,21.175 27,8.0,China 110.3207,21.0339 110.3566,21.0523 110.3788,21.0579 110.4072,21.0453 110.4137,21.0371 110.4115,21.0125 110.3845,20.9478 110.3633,20.9325 110.3501,20.9516 110.3353,20.9675 110.3242,20.975 110.3107,20.9785 110.2716,20.9814 110.2089,20.9798 110.1967,20.9759 110.1746,20.9609 110.1534,20.9492 110.143,20.9467 110.1203,20.9473 110.1138,20.9572 110.1132,20.9995 110.1394,21.0305 110.1944,21.0519 110.2446,21.0563 110.2839,21.0294 110.3207,21.0339 110.3207,21.0339 62,-10.0,United States -156.1835,20.5579 -156.1977,20.5593 -156.2296,20.5655 -156.2534,20.5888 -156.2574,20.6154 -156.2575,20.6351 -156.2562,20.6762 -156.2567,20.6956 -156.2607,20.712 -156.2809,20.7651 -156.2922,20.7748 -156.3105,20.7762 -156.3264,20.7709 -156.3432,20.7629 -156.3793,20.7752 -156.3952,20.7816 -156.4356,20.7982 -156.4495,20.8063 -156.4975,20.8628 -156.5104,20.9028 -156.5059,20.9243 -156.5007,20.9335 -156.4698,20.9902 -156.4058,21.028 -156.3355,20.9703 -156.3283,20.9634 -156.32,20.9503 -156.3122,20.9303 -156.3037,20.9107 -156.2891,20.8793 -156.2794,20.8739 -156.1965,20.8899 -156.187,20.8949 -156.1724,20.9126 -156.1614,20.9165 -156.1423,20.9229 -156.0978,20.9266 -156.0406,20.9123 -156.0258,20.893 -156.0159,20.8814 -156.0054,20.8703 -155.9969,20.8644 -155.9234,20.8177 -155.8973,20.817 -155.8369,20.788 -155.8119,20.772 -155.803,20.7593 -155.797,20.7412 -155.7977,20.7281 -155.8043,20.7091 -155.8115,20.6941 -155.8179,20.6858 -155.8551,20.6509 -155.8714,20.638 -155.9494,20.6067 -155.9684,20.6071 -155.9793,20.6116 -155.992,20.6141 -156.0092,20.6151 -156.1517,20.5729 -156.1835,20.5579 -156.1835,20.5579 23,-10.0,United States -156.7157,20.7146 -156.7748,20.7204 -156.8643,20.8635 -156.8638,20.8874 -156.8547,20.8959 -156.8412,20.8996 -156.8223,20.9023 -156.8088,20.9032 -156.7325,20.9045 -156.7134,20.8977 -156.6988,20.8898 -156.6856,20.8804 -156.6316,20.8312 -156.6209,20.8205 -156.6135,20.803 -156.6161,20.7926 -156.6262,20.7772 -156.6417,20.7561 -156.648,20.7479 -156.6559,20.7414 -156.7006,20.7212 -156.7157,20.7146 -156.7157,20.7146 15,7.0,Vietnam 106.7805,20.811 106.7869,20.8149 106.8331,20.8277 106.8842,20.8343 106.9028,20.8323 106.9572,20.7912 106.9712,20.7761 106.9387,20.7056 106.9175,20.681 106.8615,20.7108 106.8419,20.7244 106.7905,20.7712 106.7779,20.8034 106.7805,20.811 106.7805,20.811 36,4.0,Oman 58.5837,20.146 58.5764,20.1491 58.5637,20.2124 58.5632,20.2231 58.5622,20.2515 58.5671,20.3178 58.5698,20.3274 58.5802,20.3476 58.6302,20.4025 58.6397,20.4108 58.6516,20.406 58.6697,20.4051 58.684,20.4099 58.6938,20.4187 58.7152,20.4483 58.7559,20.5491 58.8118,20.6581 58.8244,20.6694 58.8477,20.6591 58.8794,20.4883 58.8696,20.4753 58.8422,20.4557 58.8266,20.4472 58.8009,20.438 58.7905,20.4332 58.7736,20.4206 58.7527,20.3907 58.7349,20.348 58.7309,20.3385 58.7218,20.3061 58.7131,20.271 58.7138,20.2566 58.6505,20.188 58.6006,20.1529 58.5837,20.146 58.5837,20.146 31,-6.0,Mexico -86.8876,20.2328 -86.8943,20.234 -86.9112,20.2724 -86.9153,20.3031 -86.9167,20.3155 -86.917,20.3287 -86.9146,20.366 -86.909,20.3853 -86.8971,20.4164 -86.8897,20.4305 -86.8651,20.4704 -86.8295,20.5201 -86.8105,20.5368 -86.7973,20.5411 -86.7837,20.541 -86.7726,20.534 -86.7627,20.5293 -86.7273,20.5194 -86.6875,20.5283 -86.6784,20.533 -86.6653,20.5418 -86.6503,20.5547 -86.6328,20.5661 -86.6857,20.4659 -86.7799,20.3313 -86.8268,20.2792 -86.8395,20.2668 -86.8702,20.2438 -86.8784,20.2381 -86.8876,20.2328 -86.8876,20.2328 984,7.0,Thailand 105.088,14.3338 105.0709,14.3336 105.0423,14.2864 105.0261,14.2342 104.9995,14.2148 104.9604,14.2032 104.9194,14.2228 104.8874,14.2729 104.8763,14.3016 104.8792,14.3306 104.8812,14.3614 104.8487,14.3774 104.796,14.3851 104.7674,14.4032 104.6869,14.4316 104.5223,14.4136 104.4836,14.3828 104.4619,14.3533 104.4312,14.3469 104.3537,14.3412 104.337,14.3503 104.3013,14.3605 104.1619,14.3916 104.0025,14.3685 103.9348,14.3435 103.9239,14.3384 103.915,14.3318 103.8014,14.3233 103.6018,14.3744 103.5726,14.4224 103.5381,14.4317 103.444,14.4069 103.3927,14.3834 103.3509,14.3575 103.2585,14.3414 103.2079,14.3424 103.1535,14.3377 103.1241,14.3192 103.0638,14.3145 103.024,14.3014 102.975,14.2752 102.9439,14.2567 102.9169,14.2222 102.9044,14.2123 102.8654,14.1956 102.8435,14.1904 102.8215,14.1676 102.816,14.1528 102.8206,14.1298 102.7835,14.0212 102.7394,13.9773 102.691,13.9399 102.6769,13.9257 102.6661,13.9079 102.6571,13.8732 102.6447,13.8353 102.6043,13.7498 102.5117,13.7016 102.4478,13.6658 102.4496,13.6316 102.4816,13.5998 102.4467,13.5654 102.4238,13.5553 102.3488,13.5467 102.3222,13.5473 102.2797,13.5536 102.2602,13.5588 102.2431,13.4819 102.2395,13.3644 102.2368,13.2956 102.2339,13.2842 102.2302,13.2668 102.2792,13.1469 102.301,13.1024 102.3768,12.9621 102.4185,12.7841 102.4081,12.7425 102.4064,12.7368 102.3914,12.7227 102.3882,12.6714 102.4077,12.6436 102.4549,12.6306 102.5186,12.5889 102.6642,12.438 102.6728,12.4021 102.633,12.3601 102.6026,12.1818 102.6029,12.1528 102.7324,11.8265 102.7729,11.774 102.7842,11.7659 102.7929,11.7549 102.8012,11.7326 102.81,11.6394 102.802,11.6229 102.795,11.7076 102.7901,11.7272 102.6895,11.8617 102.6634,11.9427 102.6484,12.0147 102.5269,12.1616 102.4809,12.1903 102.4429,12.1887 102.4077,12.1034 102.2238,12.1819 102.2047,12.2787 102.225,12.2972 102.2497,12.3308 102.2414,12.3449 102.2235,12.3469 102.2277,12.3217 102.1976,12.297 102.1509,12.2842 102.1293,12.2929 102.1017,12.3122 102.0829,12.3297 102.0065,12.4071 101.9538,12.4716 101.9532,12.5189 101.9462,12.5523 101.9048,12.5496 101.8323,12.5112 101.7779,12.5583 101.755,12.5967 101.7452,12.6278 101.6956,12.6671 101.6722,12.6804 101.6422,12.691 101.6012,12.691 101.5725,12.6824 101.5533,12.6688 101.5376,12.6369 101.4536,12.6186 101.2681,12.5951 101.2213,12.6152 101.201,12.623 101.18,12.6304 101.1486,12.6396 101.1226,12.6445 100.9954,12.661 100.965,12.6603 100.8807,12.6336 100.8616,12.6269 100.8574,12.5904 100.8187,12.5972 100.7405,12.6688 100.7258,12.6871 100.7297,12.7227 100.7554,12.7537 100.8058,12.9702 100.7876,13.0575 100.8279,13.183 100.8225,13.2194 100.7996,13.2768 100.816,13.32 100.8472,13.3285 100.8652,13.3432 100.8733,13.3691 100.8611,13.4479 100.8,13.4477 100.7337,13.4562 100.724,13.4595 100.7068,13.4682 100.6439,13.478 100.4643,13.5043 100.4425,13.495 100.3532,13.4765 100.3149,13.4729 100.2865,13.4728 100.2186,13.4674 100.1078,13.4535 99.9751,13.41 99.9453,13.4009 99.8601,13.3008 99.843,13.2761 99.8477,13.2524 99.8882,13.1962 99.9077,13.177 99.9428,13.1523 99.9596,13.1339 99.9906,13.0302 99.979,13.0095 99.9616,12.9921 99.9414,12.9602 99.9326,12.941 99.8577,12.7291 99.8493,12.6605 99.8476,12.6269 99.8484,12.6219 99.8482,12.6069 99.8625,12.4471 99.8951,12.3302 99.9092,12.1809 99.8605,12.0762 99.8441,12.0579 99.8151,12.0306 99.7929,12.0109 99.7688,11.9865 99.754,11.9699 99.7358,11.9358 99.7248,11.912 99.7156,11.8886 99.6681,11.7199 99.6269,11.6775 99.53,11.5018 99.5255,11.4784 99.5204,11.4427 99.4993,11.3795 99.4729,11.3365 99.3944,11.1472 99.3825,11.1031 99.3814,11.0834 99.389,11.0533 99.4035,11.0281 99.4013,10.9974 99.3962,10.9853 99.3858,10.9572 99.3911,10.9143 99.3734,10.8733 99.3068,10.7532 99.2369,10.6598 99.2129,10.6421 99.1324,10.5114 99.1302,10.4515 99.0862,10.3609 99.0424,10.3533 99.0459,10.2975 99.0847,10.1892 99.0476,10.1161 99.0421,10.0722 99.0498,9.9881 99.0591,9.898 99.0605,9.8382 99.0357,9.7802 99.0387,9.7526 99.0466,9.7193 99.0674,9.631 99.1542,9.4495 99.1834,9.4097 99.1935,9.3748 99.1707,9.3625 99.1208,9.327 99.1179,9.292 99.1275,9.2472 99.1426,9.2206 99.1588,9.2084 99.2593,9.1921 99.3352,9.1822 99.3664,9.1899 99.3873,9.2025 99.4699,9.259 99.5976,9.308 99.6365,9.3079 99.6596,9.3031 99.6879,9.3058 99.7352,9.2902 99.7588,9.2179 99.7797,9.1186 99.808,8.9623 99.8151,8.8813 99.818,8.8516 99.8425,8.6381 99.8472,8.6157 99.8547,8.5958 99.8759,8.5653 99.9217,8.5344 99.9394,8.5105 99.9678,8.4532 99.9928,8.4052 100.0488,8.3719 100.0743,8.3893 100.0676,8.4588 100.0442,8.4902 100.027,8.5091 100.0607,8.4973 100.1039,8.4437 100.1262,8.3974 100.1443,8.3466 100.158,8.3022 100.1635,8.267 100.1695,8.2018 100.1789,8.1333 100.1838,8.1006 100.2143,7.9746 100.2254,7.929 100.2461,7.8486 100.26,7.7919 100.265,7.7699 100.2706,7.7344 100.2747,7.7047 100.2982,7.5922 100.3107,7.527 100.3205,7.4916 100.3467,7.4017 100.3652,7.3584 100.3903,7.3084 100.4022,7.2859 100.426,7.258 100.4513,7.2344 100.4648,7.212 100.4563,7.1845 100.4286,7.1906 100.3257,7.2779 100.2853,7.4534 100.2812,7.4864 100.2669,7.5372 100.1797,7.7712 100.155,7.7845 100.095,7.7688 100.0919,7.7625 100.0377,7.7188 100.0337,7.6953 100.0391,7.6175 100.0603,7.5387 100.0701,7.5072 100.1529,7.3702 100.1742,7.3497 100.2019,7.3319 100.2528,7.3195 100.2636,7.3003 100.2787,7.2 100.3116,7.1497 100.3864,7.1261 100.4248,7.1227 100.4711,7.1626 100.501,7.1697 100.5315,7.1414 100.575,7.0777 100.6185,7.0136 100.6471,6.9767 100.6632,6.9618 100.6895,6.9483 100.8022,6.9081 100.8446,6.8809 100.8786,6.8592 100.9112,6.8398 100.9336,6.8387 100.9538,6.8506 101.0246,6.8509 101.0703,6.8526 101.2436,6.8684 101.219,6.9076 101.1802,6.928 101.2218,6.9261 101.3625,6.8709 101.4122,6.8506 101.4308,6.8409 101.455,6.819 101.4785,6.7736 101.5613,6.6369 101.6051,6.566 101.6297,6.5254 101.6466,6.5 101.6713,6.47 101.697,6.4472 101.9025,6.278 101.9318,6.2591 101.9793,6.2291 101.9745,6.1472 101.8952,6.0317 101.868,6.0069 101.8366,5.9689 101.8277,5.9501 101.8248,5.9211 101.8279,5.8969 101.8282,5.8605 101.7103,5.7345 101.6849,5.7396 101.6559,5.7712 101.6305,5.7826 101.5838,5.7548 101.5767,5.758 101.543,5.8154 101.5437,5.844 101.491,5.8989 101.4556,5.9087 101.3907,5.8742 101.3368,5.8565 101.1965,5.8007 101.1441,5.7084 101.1079,5.6646 101.0746,5.6447 101.0498,5.6321 101.0271,5.6274 100.9426,5.7228 100.8796,5.7733 100.876,5.7881 100.9273,5.8953 100.9539,5.9081 100.9805,5.9175 101.0041,5.9835 100.9915,6.0435 100.9843,6.1121 100.9994,6.1757 100.9973,6.2437 100.8949,6.2624 100.8374,6.2341 100.7385,6.237 100.7323,6.2779 100.7334,6.2899 100.7401,6.3154 100.7136,6.4208 100.6372,6.4957 100.6026,6.4729 100.5672,6.4463 100.5424,6.4415 100.323,6.5085 100.2738,6.5289 100.2651,6.5336 100.2605,6.5367 100.2214,6.5789 100.2169,6.6131 100.1865,6.6922 100.1506,6.6992 100.1014,6.7036 100.0903,6.7018 100.0806,6.6901 100.061,6.6149 100.0707,6.5904 100.0793,6.5681 100.055,6.4635 100.0284,6.4296 100.0135,6.4177 100.0087,6.4418 99.9768,6.5264 99.9451,6.5044 99.9013,6.5449 99.8777,6.5765 99.8611,6.6132 99.8162,6.6791 99.7341,6.7696 99.677,6.8164 99.6569,6.821 99.5956,6.8409 99.5709,6.8753 99.5665,6.9783 99.5701,7.0238 99.5889,7.0552 99.6329,7.1102 99.622,7.1223 99.5752,7.1037 99.4723,7.1345 99.4233,7.2271 99.2786,7.2935 99.2282,7.3688 99.2354,7.4297 99.165,7.6091 99.1482,7.6475 99.1315,7.6596 99.019,7.725 98.9958,7.6866 98.9256,7.6986 98.9137,7.7431 98.9064,7.808 98.9253,7.8862 98.846,7.967 98.7723,8.0057 98.7297,7.9874 98.6611,8.0095 98.6368,8.0504 98.6331,8.0706 98.6363,8.0986 98.6358,8.178 98.6295,8.2127 98.5875,8.2948 98.5624,8.291 98.5413,8.2707 98.5111,8.2751 98.5141,8.3198 98.5242,8.3503 98.5449,8.3596 98.5458,8.3706 98.5079,8.373 98.4363,8.3478 98.3638,8.3155 98.3338,8.2887 98.3461,8.27 98.3581,8.2164 98.3262,8.1391 98.2756,8.1281 98.2069,8.1991 98.1644,8.2653 98.1197,8.4125 98.0888,8.5184 98.0845,8.5446 98.0951,8.5754 98.115,8.6019 98.1256,8.6863 98.1517,8.8441 98.1813,8.9083 98.2182,8.9638 98.2302,9.0004 98.2379,9.0502 98.2427,9.1045 98.2193,9.1973 98.239,9.2289 98.2775,9.3134 98.2802,9.3344 98.2816,9.3448 98.2901,9.3781 98.3443,9.538 98.4544,9.7234 98.4345,9.7955 98.4387,9.8669 98.4668,9.8977 98.5812,10.1403 98.5899,10.1592 98.6152,10.2318 98.6373,10.3163 98.6348,10.337 98.6408,10.3666 98.6512,10.3983 98.6632,10.4211 98.6878,10.4449 98.7161,10.5083 98.6886,10.5831 98.6669,10.6099 98.6766,10.6656 98.7162,10.7201 98.76,10.7613 98.7894,10.7645 98.8265,10.8101 98.94,10.9459 99.0017,11.001 99.0191,11.0119 99.0351,11.018 99.0579,11.03 99.1041,11.0869 99.145,11.147 99.1561,11.1643 99.2151,11.2662 99.2486,11.3375 99.3554,11.5555 99.4498,11.6175 99.5277,11.7289 99.5468,11.8132 99.5181,11.8199 99.4738,11.8714 99.4458,12.0023 99.4524,12.0884 99.4591,12.1251 99.3886,12.1749 99.3444,12.2849 99.3361,12.3175 99.3173,12.485 99.3246,12.5603 99.1938,12.6512 99.1273,12.7206 99.0002,13.0466 99.0126,13.1645 99.0422,13.1833 99.091,13.1889 99.0982,13.1967 99.1014,13.2202 99.1037,13.3973 99.0969,13.4533 99.0751,13.5265 99.0635,13.5628 99.0555,13.6195 99.0567,13.65 99.0603,13.7126 99.0156,13.7565 98.9221,13.9191 98.889,13.9953 98.8593,14.0636 98.8247,14.0854 98.7722,14.1156 98.6928,14.1694 98.6451,14.2016 98.4999,14.3061 98.4555,14.368 98.4259,14.4308 98.4046,14.4707 98.3527,14.562 98.3278,14.5952 98.3024,14.62 98.2771,14.6351 98.2099,14.6986 98.1462,14.7952 98.1315,14.8576 98.1395,14.8823 98.1359,14.9116 98.1185,14.9493 98.0998,14.9773 98.0847,15.0584 98.0865,15.1877 98.0888,15.2098 98.1177,15.2041 98.2808,15.2543 98.3036,15.267 98.307,15.3435 98.3836,15.3704 98.4351,15.3401 98.4458,15.3177 98.4647,15.3408 98.4721,15.3655 98.4763,15.3996 98.479,15.4353 98.4752,15.4601 98.4598,15.5157 98.454,15.538 98.4479,15.5901 98.4534,15.6266 98.4583,15.6444 98.4516,15.681 98.4476,15.7051 98.4972,15.9479 98.5136,16.0283 98.5614,16.1027 98.581,16.1112 98.6713,16.1006 98.6943,16.087 98.7397,16.123 98.7975,16.2433 98.8026,16.3769 98.7463,16.4202 98.709,16.3841 98.6704,16.3349 98.5962,16.2576 98.5731,16.265 98.55,16.3637 98.5436,16.4417 98.4453,16.6123 98.4043,16.6666 98.3619,16.7202 98.3882,16.7634 98.4316,16.836 98.4254,16.8649 98.3927,16.9223 98.3431,16.9967 98.3051,17.0345 98.2823,17.0336 98.2564,17.0317 98.1862,17.1217 98.1544,17.1549 98.0871,17.2168 98.061,17.2386 98.0007,17.2947 97.9346,17.3963 97.8505,17.5089 97.8057,17.5493 97.7328,17.6038 97.6759,17.6645 97.6602,17.6838 97.5694,17.8479 97.5888,17.9082 97.6258,17.9348 97.6328,17.9549 97.569,18.1084 97.5345,18.1549 97.5027,18.2051 97.5052,18.2324 97.5252,18.2602 97.5002,18.2944 97.4679,18.3064 97.4363,18.2992 97.4207,18.2551 97.4011,18.2461 97.3799,18.259 97.3328,18.3165 97.3322,18.35 97.3281,18.3704 97.3195,18.3901 97.2757,18.4729 97.2498,18.501 97.2293,18.5215 97.2361,18.5544 97.2445,18.5588 97.2505,18.5376 97.3286,18.4758 97.3887,18.4754 97.4334,18.4864 97.5087,18.5347 97.5346,18.5414 97.6333,18.5518 97.6573,18.5517 97.6603,18.5838 97.6616,18.6144 97.6632,18.6577 97.6278,18.8464 97.6014,18.8684 97.5615,18.9111 97.6286,19.0105 97.6655,19.0471 97.7133,19.0774 97.7218,19.1463 97.7232,19.1856 97.7154,19.2685 97.6839,19.3383 97.6737,19.3771 97.7475,19.4999 97.7502,19.5484 97.7887,19.553 97.8455,19.5798 97.9169,19.6258 97.9207,19.6501 97.9099,19.692 97.9305,19.7829 97.9555,19.7871 98.0204,19.7612 98.0581,19.7361 98.0962,19.7043 98.1228,19.668 98.2181,19.6717 98.2715,19.6737 98.3567,19.6718 98.4011,19.6877 98.5296,19.7201 98.7181,19.7931 98.7711,19.7542 98.8259,19.7489 98.8802,19.7624 98.9128,19.8136 98.9181,19.8352 98.9098,19.8687 98.9027,19.9022 98.922,20.0205 98.9588,20.076 99.0441,20.1041 99.0728,20.1042 99.1234,20.0946 99.1496,20.0791 99.1794,20.0545 99.2115,20.0447 99.3317,20.0744 99.3671,20.0962 99.395,20.1231 99.4189,20.1312 99.434,20.1802 99.3816,20.2861 99.4077,20.3274 99.49,20.3005 99.5491,20.2888 99.667,20.307 99.6945,20.3178 99.7132,20.3413 99.7302,20.382 99.7525,20.4062 99.8412,20.4317 99.8594,20.4129 99.8645,20.3932 99.8984,20.3606 99.963,20.3259 99.9699,20.326 99.9836,20.2867 100.0441,20.2693 100.1056,20.3339 100.139,20.3634 100.1658,20.3702 100.1992,20.3686 100.2214,20.3594 100.238,20.3429 100.2574,20.3143 100.2659,20.2858 100.297,20.2158 100.3362,20.1657 100.3993,20.1233 100.4528,20.1399 100.4584,20.1351 100.4492,20.0694 100.4292,19.9954 100.3844,19.8565 100.3641,19.8373 100.324,19.7928 100.2893,19.7498 100.283,19.727 100.2858,19.7167 100.3236,19.6059 100.3688,19.516 100.3944,19.4972 100.4567,19.4716 100.4627,19.4723 100.4908,19.5166 100.5187,19.5287 100.5776,19.5118 100.6332,19.4863 100.6516,19.4641 100.6912,19.4987 100.7299,19.5381 100.7452,19.5557 100.7615,19.5763 100.7899,19.5977 100.836,19.5996 100.9097,19.5974 100.941,19.5833 100.9634,19.5686 101.1021,19.5725 101.1362,19.5637 101.1562,19.5446 101.1621,19.4987 101.1413,19.4526 101.093,19.4399 101.0782,19.3529 101.0795,19.3322 101.1672,19.0847 101.1831,19.0715 101.2304,19.0231 101.2166,18.9895 101.1957,18.9754 101.177,18.9546 101.1313,18.8739 101.127,18.8478 101.1143,18.7204 101.1452,18.6637 101.1186,18.6169 101.0577,18.5393 101.0246,18.5199 100.9846,18.4981 100.9356,18.4211 100.9366,18.3981 100.9642,18.3673 100.9736,18.3535 101.0319,18.3244 101.0544,18.155 101.0484,18.0671 101.0212,18.0023 100.9914,17.9372 100.9649,17.9102 100.9412,17.8946 100.9067,17.878 100.8676,17.7864 100.8586,17.7432 100.8626,17.7302 100.8664,17.7125 100.8315,17.6301 100.8024,17.5994 100.7896,17.5799 100.8005,17.5492 100.8195,17.5448 100.8413,17.546 100.8661,17.542 100.9114,17.5217 100.9538,17.4805 101.0378,17.4412 101.1052,17.5118 101.1872,17.6049 101.2333,17.6377 101.3748,17.7236 101.4583,17.7774 101.437,17.7941 101.4546,17.84 101.5132,17.8698 101.5664,17.8857 101.6188,17.9528 101.6389,18.0183 101.6612,18.0434 101.7275,18.0239 101.762,18.0113 101.7876,18.0166 101.8759,18.1073 101.9243,18.1712 101.9473,18.1881 101.9659,18.1947 101.9845,18.1892 102.0334,18.184 102.0564,18.1705 102.0896,18.1182 102.1341,18.0676 102.1756,18.0276 102.2997,17.9621 102.3484,17.9505 102.3995,17.9534 102.4203,17.9515 102.4801,17.9267 102.4886,17.8986 102.4867,17.867 102.5594,17.8002 102.6065,17.8633 102.7171,17.9426 102.7341,17.9546 102.822,17.9859 102.8537,17.9788 102.8914,17.9598 102.9227,17.9768 102.9437,18.0089 102.9448,18.103 102.9956,18.1287 103.0161,18.1451 103.1317,18.2545 103.116,18.3187 103.117,18.3451 103.1513,18.3816 103.1758,18.3983 103.2462,18.4104 103.2721,18.4146 103.2924,18.4141 103.3825,18.4012 103.4936,18.3678 103.6337,18.3175 103.7168,18.2909 103.8148,18.3061 103.8504,18.3065 103.9208,18.2182 103.9458,18.1796 103.966,18.1263 103.976,18.0891 104.0694,17.9949 104.0898,17.969 104.1136,17.9173 104.1309,17.8679 104.1404,17.845 104.1598,17.8257 104.2096,17.8064 104.2756,17.7082 104.2913,17.6843 104.3353,17.6297 104.5147,17.538 104.5657,17.5089 104.5921,17.4838 104.6666,17.3889 104.679,17.3627 104.6829,17.342 104.6872,17.2667 104.6883,17.2231 104.6829,17.1713 104.6761,17.1337 104.6714,17.1143 104.6481,17.0719 104.6204,17.0185 104.6152,16.9917 104.614,16.9544 104.6163,16.9277 104.6194,16.8913 104.6351,16.7346 104.6427,16.7061 104.6422,16.6726 104.6344,16.6392 104.6274,16.6177 104.6169,16.5477 104.6241,16.5061 104.7843,16.3279 104.8364,16.2817 104.8531,16.2694 104.8667,16.259 104.8867,16.2335 104.8986,16.2087 104.9032,16.1574 104.9194,16.1151 104.9318,16.0969 104.9551,16.077 105.0632,16.0386 105.0945,16.0323 105.1193,16.0284 105.1504,16.0262 105.1826,16.0206 105.2969,15.9914 105.3038,15.9825 105.2597,15.972 105.2456,15.9557 105.2202,15.9083 105.2637,15.8103 105.2752,15.7897 105.3165,15.7438 105.3589,15.7444 105.3819,15.7491 105.4315,15.7312 105.4781,15.7024 105.5092,15.6518 105.5133,15.622 105.5053,15.5682 105.4806,15.4537 105.4744,15.4159 105.4578,15.3996 105.4404,15.3888 105.4115,15.378 105.3497,15.1578 105.3463,15.0933 105.3993,15.0537 105.4654,14.984 105.4524,14.895 105.4417,14.8665 105.4207,14.8421 105.3916,14.799 105.4047,14.6317 105.4126,14.5915 105.412,14.5477 105.3918,14.515 105.3699,14.4876 105.3215,14.4346 105.2479,14.3887 105.1747,14.3536 105.1031,14.3265 105.088,14.3338 105.088,14.3338 15,6.5,Myanmar (Burma) 92.6778,20.4153 92.6883,20.4143 92.7008,20.41 92.7476,20.3031 92.7445,20.291 92.7302,20.2769 92.7128,20.2718 92.6989,20.2696 92.6716,20.2679 92.6559,20.2748 92.6485,20.2947 92.6452,20.3217 92.6508,20.4097 92.6778,20.4153 92.6778,20.4153 62,-10.0,United States -155.6337,20.2499 -155.5553,20.2196 -155.5379,20.2079 -155.5312,20.1848 -155.3859,20.106 -155.3259,20.0984 -155.2437,20.0777 -155.1528,20.0399 -155.0223,19.9792 -154.9947,19.9629 -154.9717,19.9422 -154.9506,19.9187 -154.8967,19.8583 -154.8124,19.724 -154.7781,19.6284 -154.7359,19.5878 -154.6716,19.5536 -154.6097,19.5165 -154.627,19.4558 -154.6438,19.4343 -154.8172,19.3073 -154.9566,19.2618 -154.9786,19.2555 -154.9998,19.2518 -155.0236,19.2532 -155.0521,19.2628 -155.0983,19.2542 -155.3094,19.1165 -155.3296,19.1027 -155.3502,19.0822 -155.3623,19.0557 -155.3649,19.0213 -155.4007,18.9666 -155.474,18.9043 -155.487,18.9345 -155.5146,18.9556 -155.6113,19.0096 -155.6657,19.0099 -155.7109,19.0692 -155.7183,19.1375 -155.7107,19.1916 -155.7007,19.2478 -155.6894,19.3401 -155.8229,19.6441 -155.8476,19.6843 -155.8593,19.713 -155.8564,19.7467 -155.8456,19.7667 -155.7779,19.8289 -155.7401,19.8384 -155.6237,19.9816 -155.622,20.012 -155.6341,20.0295 -155.6644,20.0609 -155.6845,20.0912 -155.7053,20.1514 -155.6985,20.1997 -155.6892,20.2241 -155.6781,20.2424 -155.6569,20.255 -155.6337,20.2499 -155.6337,20.2499 124,8.0,China 109.5707,18.1776 109.5446,18.2171 109.497,18.2064 109.4702,18.1874 109.4342,18.1485 109.4122,18.2007 109.3687,18.2345 109.3304,18.2566 109.304,18.2641 109.1967,18.2827 109.156,18.2847 109.0904,18.2828 108.9239,18.3496 108.8257,18.3742 108.7174,18.432 108.6973,18.4451 108.6723,18.4575 108.6428,18.468 108.6099,18.4733 108.5804,18.4731 108.5554,18.4851 108.5421,18.5426 108.5585,18.587 108.5648,18.6075 108.5673,18.6427 108.5616,18.694 108.5227,18.9164 108.486,19.0676 108.4967,19.2589 108.5112,19.2872 108.5623,19.3571 108.5917,19.3531 108.6323,19.367 108.8063,19.4956 108.8756,19.5723 108.8934,19.5818 108.9549,19.5899 109.0277,19.6275 109.1613,19.7381 109.1685,19.7613 109.1401,19.7649 109.0921,19.7355 109.0729,19.7154 109.0327,19.7017 109.0276,19.7629 109.0366,19.7847 109.1245,19.8774 109.1677,19.8969 109.3232,19.8382 109.3328,19.8066 109.385,19.8583 109.3837,19.8861 109.3933,19.9224 109.4516,19.9622 109.4777,19.9717 109.5266,19.9802 109.5854,19.9808 109.6026,19.9529 109.6525,19.9431 109.6997,19.9521 109.8033,19.9695 109.8434,19.9249 109.8835,19.9262 109.9601,19.9509 109.9975,19.9901 110.009,20.0177 110.0198,20.0375 110.2362,20.0301 110.3792,19.9926 110.4357,20.0099 110.4371,20.0668 110.4639,20.0872 110.5315,20.1112 110.5676,20.0689 110.5817,20.0467 110.6442,19.9874 110.7164,19.9666 110.7363,19.968 110.7621,19.9778 110.7914,19.9816 110.8079,19.9564 110.8335,19.8681 110.8867,19.6165 110.833,19.6098 110.8021,19.5781 110.7368,19.5172 110.7205,19.507 110.6875,19.5247 110.593,19.3891 110.5344,19.3352 110.4495,19.135 110.4283,19.136 110.3883,19.1272 110.349,19.1464 110.3646,19.1132 110.389,19.1024 110.41,19.1187 110.4454,19.118 110.4316,19.0622 110.355,18.8899 110.3696,18.8325 110.3914,18.7797 110.369,18.7552 110.2625,18.6827 110.1478,18.6466 110.1117,18.63 110.0735,18.6063 109.9737,18.5216 109.9618,18.5051 109.95,18.4764 109.9426,18.4488 109.9363,18.4222 109.9171,18.3646 109.8658,18.3532 109.8352,18.3752 109.7818,18.3991 109.6526,18.3804 109.6265,18.3709 109.571,18.2394 109.6051,18.2251 109.5896,18.196 109.5755,18.1807 109.5707,18.1776 109.5707,18.1776 17,-4.0,Haiti -72.552,19.9629 -72.6055,19.9656 -72.7875,20.0025 -72.854,20.0195 -72.8655,20.0262 -72.8658,20.0363 -72.8365,20.0522 -72.827,20.0561 -72.7739,20.0653 -72.7218,20.0692 -72.7056,20.065 -72.5942,20.0197 -72.5699,20.0077 -72.5337,19.9818 -72.5372,19.9673 -72.552,19.9629 -72.552,19.9629 10,-5.0,United States -74.994,19.871 -75.0299,19.8652 -75.0429,19.8647 -75.0681,19.8685 -75.0728,19.8804 -75.0484,19.9405 -74.9959,19.9435 -74.9942,19.895 -74.994,19.871 -74.994,19.871 7,-5.0,United States -75.0676,19.9386 -75.0787,19.9093 -75.1323,19.8792 -75.1352,19.9021 -75.1017,19.9387 -75.0676,19.9386 -75.0676,19.9386 17,6.5,Myanmar (Burma) 93.3064,19.9282 93.3214,19.9212 93.3731,19.8749 93.3798,19.8671 93.3852,19.8584 93.3892,19.8479 93.393,19.8292 93.4067,19.7351 93.398,19.7223 93.3448,19.7553 93.3333,19.7647 93.3243,19.7775 93.32,19.7875 93.2826,19.9046 93.2822,19.9298 93.3064,19.9282 93.3064,19.9282 265,-4.0,Haiti -71.6809,18.0186 -71.7089,18.0278 -71.7183,18.0332 -71.729,18.0465 -71.7333,18.0656 -71.748,18.0913 -71.8186,18.1523 -71.8394,18.1646 -71.9849,18.2196 -72.0046,18.2158 -72.0509,18.2076 -72.0988,18.2011 -72.1403,18.1954 -72.205,18.2022 -72.2428,18.2069 -72.2677,18.209 -72.2945,18.2093 -72.4349,18.1893 -72.4576,18.1628 -72.5713,18.1592 -72.6118,18.1608 -72.6236,18.1588 -72.6505,18.1535 -72.6681,18.1473 -72.6866,18.1363 -72.6991,18.1282 -72.7129,18.1208 -72.7273,18.1182 -72.8009,18.1216 -72.8955,18.1496 -72.9188,18.1573 -72.9379,18.1605 -73.0612,18.1779 -73.1779,18.199 -73.2226,18.2222 -73.2973,18.2415 -73.3624,18.2366 -73.396,18.2292 -73.6964,18.1514 -73.7102,18.1441 -73.7297,18.1283 -73.7373,18.1221 -73.7439,18.1141 -73.7489,18.1048 -73.7509,18.0911 -73.7447,18.08 -73.7332,18.0701 -73.715,18.047 -73.7064,18.0345 -73.7004,18.0141 -73.7085,18.0058 -73.7197,18.0029 -73.7922,18.0026 -73.8121,18.0171 -73.8185,18.0374 -73.8218,18.0474 -73.8379,18.0725 -73.8606,18.1053 -73.8708,18.1161 -73.9629,18.1912 -74.0083,18.2245 -74.101,18.2742 -74.1434,18.2861 -74.1718,18.2872 -74.1873,18.2858 -74.2144,18.2665 -74.2315,18.2619 -74.2717,18.2689 -74.2822,18.2732 -74.3562,18.3214 -74.3607,18.3372 -74.3772,18.4302 -74.3319,18.5895 -74.2943,18.616 -74.1805,18.6446 -74.1465,18.6464 -74.0849,18.6454 -74.0591,18.6375 -74.0371,18.63 -73.9955,18.6065 -73.9584,18.5854 -73.9437,18.5782 -73.9324,18.5745 -73.6974,18.5115 -73.6547,18.5182 -73.6423,18.5228 -73.6331,18.5351 -73.6271,18.5433 -73.6066,18.5508 -73.5182,18.5647 -73.5016,18.5647 -73.4882,18.5566 -73.5149,18.5319 -73.5586,18.5266 -73.5881,18.5372 -73.6045,18.5328 -73.6178,18.5231 -73.5767,18.4834 -73.5656,18.4767 -73.5151,18.4773 -73.485,18.4867 -73.4347,18.5013 -73.4177,18.5048 -73.3408,18.4961 -73.3148,18.4929 -73.2755,18.4862 -73.2586,18.4809 -73.1281,18.4563 -72.9806,18.4332 -72.9478,18.4358 -72.9071,18.445 -72.8846,18.4438 -72.8721,18.4416 -72.8347,18.4334 -72.7754,18.4233 -72.6483,18.4039 -72.6024,18.4322 -72.5943,18.4384 -72.5885,18.4468 -72.5762,18.4699 -72.5708,18.4942 -72.5666,18.5047 -72.5493,18.5267 -72.5365,18.5347 -72.5037,18.5431 -72.4935,18.543 -72.3703,18.5297 -72.3343,18.5259 -72.3072,18.5182 -72.281,18.505 -72.2589,18.5154 -72.2332,18.6457 -72.2417,18.6625 -72.2947,18.6861 -72.3077,18.6885 -72.3287,18.6893 -72.3485,18.6944 -72.4587,18.7607 -72.4711,18.7697 -72.4759,18.7787 -72.4789,18.7922 -72.4848,18.8034 -72.5257,18.8541 -72.5518,18.8843 -72.564,18.8945 -72.5953,18.9139 -72.6373,18.944 -72.7116,19.0117 -72.6729,19.1407 -72.7125,19.1998 -72.6861,19.2602 -72.6372,19.3529 -72.6348,19.4332 -72.9255,19.5764 -72.9688,19.5915 -73.0162,19.6044 -73.0221,19.605 -73.0611,19.5921 -73.2742,19.6013 -73.287,19.6023 -73.3184,19.6123 -73.3389,19.6255 -73.358,19.6415 -73.3647,19.649 -73.3757,19.666 -73.3725,19.6982 -73.3706,19.7109 -73.3286,19.7976 -73.3159,19.8098 -73.3005,19.8116 -73.2685,19.8126 -73.2556,19.8103 -73.24,19.8152 -73.1993,19.8305 -73.1846,19.8369 -73.1016,19.8804 -73.0657,19.9001 -72.9446,19.8904 -72.8961,19.8923 -72.8083,19.9016 -72.756,19.9115 -72.7287,19.9193 -72.7097,19.9207 -72.6957,19.9198 -72.5965,19.8981 -72.5852,19.8943 -72.4911,19.8623 -72.4517,19.8233 -72.4048,19.7984 -72.2294,19.7409 -72.1171,19.7229 -72.1027,19.7169 -72.0098,19.7004 -71.9704,19.6989 -71.8932,19.7015 -71.7314,19.6898 -71.6667,19.6838 -71.6605,19.6772 -71.6492,19.664 -71.6458,19.6574 -71.6481,19.6329 -71.6506,19.6052 -71.6477,19.5884 -71.6392,19.5637 -71.6351,19.5543 -71.6306,19.5449 -71.6206,19.5275 -71.6172,19.5175 -71.6046,19.4768 -71.6043,19.4643 -71.6104,19.3812 -71.6362,19.3384 -71.6575,19.2643 -71.6284,19.2364 -71.6087,19.2202 -71.6007,19.2142 -71.5851,19.2075 -71.5731,19.2043 -71.5419,19.1983 -71.5422,19.1823 -71.5476,19.1399 -71.5526,19.1158 -71.5674,19.0982 -71.6627,18.9986 -71.6901,18.935 -71.6295,18.8571 -71.6214,18.7695 -71.6218,18.7592 -71.6286,18.7287 -71.6379,18.698 -71.6452,18.6867 -71.6496,18.6844 -71.6688,18.6835 -71.6789,18.6799 -71.6881,18.6754 -71.7024,18.6537 -71.7362,18.6082 -71.7444,18.6016 -71.7662,18.5961 -71.8144,18.5877 -71.8248,18.5923 -71.837,18.6067 -71.8832,18.6036 -71.8921,18.5987 -71.9157,18.5802 -71.9093,18.5718 -71.8618,18.5266 -71.8098,18.472 -71.799,18.4564 -71.8194,18.4353 -71.8216,18.421 -71.8117,18.4108 -71.7232,18.3554 -71.6916,18.3361 -71.6558,18.32 -71.6294,18.3099 -71.6076,18.3017 -71.6286,18.2723 -71.6342,18.2639 -71.6821,18.1802 -71.6789,18.1604 -71.6669,18.1253 -71.662,18.072 -71.6809,18.0186 -71.6809,18.0186 316,-4.0,Dominican Republic -71.6809,18.0186 -71.662,18.072 -71.6669,18.1253 -71.6789,18.1604 -71.6821,18.1802 -71.6342,18.2639 -71.6286,18.2723 -71.6076,18.3017 -71.6294,18.3099 -71.6558,18.32 -71.6916,18.3361 -71.7232,18.3554 -71.8117,18.4108 -71.8216,18.421 -71.8194,18.4353 -71.799,18.4564 -71.8098,18.472 -71.8618,18.5266 -71.9093,18.5718 -71.9157,18.5802 -71.8921,18.5987 -71.8832,18.6036 -71.837,18.6067 -71.8248,18.5923 -71.8144,18.5877 -71.7662,18.5961 -71.7444,18.6016 -71.7362,18.6082 -71.7024,18.6537 -71.6881,18.6754 -71.6789,18.6799 -71.6688,18.6835 -71.6496,18.6844 -71.6452,18.6867 -71.6379,18.698 -71.6286,18.7287 -71.6218,18.7592 -71.6214,18.7695 -71.6295,18.8571 -71.6901,18.935 -71.6627,18.9986 -71.5674,19.0982 -71.5526,19.1158 -71.5476,19.1399 -71.5422,19.1823 -71.5419,19.1983 -71.5731,19.2043 -71.5851,19.2075 -71.6007,19.2142 -71.6087,19.2202 -71.6284,19.2364 -71.6575,19.2643 -71.6362,19.3384 -71.6104,19.3812 -71.6043,19.4643 -71.6046,19.4768 -71.6172,19.5175 -71.6206,19.5275 -71.6306,19.5449 -71.6351,19.5543 -71.6392,19.5637 -71.6477,19.5884 -71.6506,19.6052 -71.6481,19.6329 -71.6458,19.6574 -71.6492,19.664 -71.6605,19.6772 -71.6667,19.6838 -71.6324,19.6792 -71.6436,19.7126 -71.6575,19.7384 -71.675,19.7476 -71.6885,19.7487 -71.685,19.762 -71.5784,19.8717 -71.5083,19.8841 -71.4963,19.8858 -71.4423,19.8861 -71.3973,19.8818 -71.3606,19.8684 -71.3443,19.8622 -71.315,19.8472 -71.2799,19.8304 -71.269,19.8262 -71.1741,19.8011 -71.1622,19.8026 -71.1453,19.8073 -71.0638,19.8274 -71.0083,19.852 -70.9993,19.8726 -70.977,19.8917 -70.9589,19.9011 -70.9426,19.9063 -70.925,19.9088 -70.9079,19.9086 -70.7557,19.8816 -70.7438,19.875 -70.7149,19.8426 -70.6974,19.8247 -70.6233,19.78 -70.5464,19.7377 -70.4718,19.7309 -70.4323,19.7351 -70.403,19.7544 -70.3856,19.7607 -70.3686,19.7604 -70.3137,19.7229 -70.3022,19.7127 -70.2679,19.6702 -70.2353,19.6454 -70.2177,19.6331 -70.2052,19.6272 -70.1896,19.6235 -70.1002,19.6073 -70.0616,19.6011 -70.0397,19.5991 -70.0128,19.6028 -70.0008,19.6119 -69.9875,19.6338 -69.9821,19.6404 -69.9681,19.6536 -69.947,19.6607 -69.8817,19.6571 -69.8642,19.6547 -69.8512,19.649 -69.8137,19.6153 -69.8035,19.6044 -69.7973,19.5902 -69.7962,19.5783 -69.807,19.5034 -69.7922,19.4208 -69.7795,19.3958 -69.754,19.3528 -69.7395,19.3327 -69.7329,19.325 -69.6709,19.2695 -69.6564,19.2648 -69.6439,19.2642 -69.6337,19.2674 -69.6177,19.2723 -69.5909,19.2794 -69.4524,19.3116 -69.438,19.3142 -69.3609,19.3117 -69.2346,19.2949 -69.223,19.304 -69.1781,19.3336 -69.1516,19.3437 -69.1356,19.3389 -69.0738,19.2734 -69.0744,19.2589 -69.0812,19.2459 -69.134,19.1647 -69.1457,19.1591 -69.1586,19.1589 -69.2856,19.1752 -69.5038,19.2027 -69.531,19.2028 -69.5423,19.1911 -69.552,19.092 -69.5469,19.0803 -69.5353,19.0671 -69.5193,19.0666 -69.4935,19.0675 -69.4472,19.0727 -69.431,19.0769 -69.3843,19.085 -69.3584,19.0857 -69.3452,19.0861 -69.3307,19.0845 -69.3179,19.0818 -69.3065,19.078 -69.2988,19.0716 -69.2946,19.0623 -69.2925,19.0447 -69.2819,19.0353 -69.2716,19.0311 -69.1698,18.9998 -69.1082,18.9906 -69.0946,18.9908 -68.9054,18.9975 -68.8801,19.0096 -68.84,19.0087 -68.8234,18.9994 -68.8098,18.9912 -68.6896,18.9477 -68.6553,18.9368 -68.6436,18.93 -68.6079,18.9027 -68.5727,18.8621 -68.5072,18.8002 -68.4837,18.7804 -68.4564,18.7578 -68.3523,18.6842 -68.2747,18.6341 -68.2603,18.6199 -68.2426,18.5958 -68.24,18.5785 -68.2525,18.5485 -68.3684,18.3336 -68.3795,18.3276 -68.3933,18.324 -68.4355,18.3238 -68.4483,18.3266 -68.4676,18.3367 -68.4862,18.3474 -68.5074,18.3572 -68.5238,18.3447 -68.548,18.2366 -68.5535,18.1962 -68.5628,18.1853 -68.6148,18.1829 -68.6453,18.1871 -68.6719,18.1995 -68.6781,18.2168 -68.6877,18.2405 -68.6983,18.2574 -68.737,18.3212 -68.7489,18.337 -68.7561,18.344 -68.7635,18.3508 -68.7795,18.3638 -68.7892,18.3687 -68.8114,18.3758 -68.8251,18.3778 -68.8311,18.377 -68.8892,18.3843 -68.9794,18.3703 -69.0023,18.3749 -69.0776,18.3888 -69.1107,18.4069 -69.3,18.4057 -69.3843,18.3957 -69.4323,18.3823 -69.4626,18.3966 -69.6095,18.4357 -69.6618,18.4399 -69.6913,18.44 -69.7998,18.4485 -69.8183,18.4432 -69.8275,18.4384 -69.8576,18.4194 -69.8746,18.4088 -69.8823,18.4027 -69.9169,18.4003 -69.9257,18.3964 -69.9762,18.3156 -69.9876,18.3018 -70.069,18.2129 -70.0794,18.2095 -70.0868,18.2122 -70.0991,18.2075 -70.144,18.2034 -70.234,18.2102 -70.2983,18.2162 -70.3144,18.2145 -70.3262,18.2054 -70.374,18.184 -70.3897,18.1795 -70.4011,18.1769 -70.422,18.1746 -70.46,18.186 -70.4709,18.2055 -70.4613,18.2128 -70.4684,18.2318 -70.5013,18.2542 -70.487,18.2918 -70.4828,18.3446 -70.5048,18.3855 -70.5255,18.3991 -70.5368,18.4029 -70.5665,18.4114 -70.5785,18.4145 -70.6059,18.4118 -70.6263,18.3906 -70.6219,18.3757 -70.6225,18.366 -70.6268,18.3559 -70.6368,18.3446 -70.6443,18.3377 -70.6525,18.3321 -70.6646,18.3264 -70.781,18.2919 -70.8498,18.2334 -70.9022,18.2735 -70.9399,18.2849 -70.9527,18.2875 -70.967,18.2886 -70.9823,18.2869 -70.9951,18.2787 -71.0133,18.243 -71.0166,18.2255 -71.0134,18.2157 -70.9928,18.1689 -70.988,18.1594 -70.98,18.1469 -70.9693,18.1287 -71.0036,18.0578 -71.098,17.9146 -71.1072,17.9027 -71.121,17.888 -71.1361,17.8747 -71.1627,17.8599 -71.1807,17.8267 -71.3102,17.5987 -71.3217,17.5894 -71.3374,17.5846 -71.5389,17.8166 -71.572,17.9329 -71.5761,17.9435 -71.5884,17.9589 -71.6037,17.9721 -71.6453,18.0024 -71.665,18.0123 -71.6809,18.0186 -71.6809,18.0186 5,-6.0,Mexico -87.3428,19.8789 -87.3626,19.8269 -87.3575,19.8589 -87.3428,19.8789 -87.3428,19.8789 19,0.0,Mauritania -16.4122,19.5795 -16.4168,19.5819 -16.4326,19.5983 -16.4404,19.6749 -16.3965,19.7843 -16.3331,19.8419 -16.3222,19.8431 -16.3161,19.8347 -16.3248,19.7792 -16.327,19.7682 -16.3413,19.7115 -16.3603,19.6593 -16.3728,19.6304 -16.3792,19.6164 -16.3872,19.6041 -16.3936,19.5961 -16.4075,19.5819 -16.4122,19.5795 -16.4122,19.5795 21,6.5,Myanmar (Burma) 93.8532,19.3478 93.8486,19.3391 93.8023,19.2881 93.7907,19.279 93.7479,19.2561 93.7377,19.2517 93.6836,19.2477 93.6706,19.2575 93.5529,19.4175 93.5466,19.4259 93.5297,19.4624 93.5379,19.4919 93.5674,19.5368 93.5771,19.5399 93.6238,19.5273 93.7834,19.4461 93.8477,19.4069 93.8542,19.399 93.8622,19.3748 93.8532,19.3478 93.8532,19.3478 13,8.0,Philippines 121.3657,19.2279 121.2742,19.2655 121.2465,19.2939 121.2215,19.3308 121.2256,19.3427 121.2483,19.3695 121.3812,19.3685 121.3893,19.3379 121.396,19.2688 121.396,19.2563 121.3921,19.245 121.3657,19.2279 121.3657,19.2279 14,8.0,Philippines 121.7067,18.7978 121.6976,18.8016 121.6845,18.846 121.6855,18.8597 121.7249,18.9579 121.7384,18.9692 121.7649,18.987 121.7873,18.9851 121.8008,18.9818 121.8469,18.9429 121.84,18.9236 121.7351,18.8124 121.7067,18.7978 121.7067,18.7978 267,3.0,Yemen 53.0509,16.6241 52.9611,16.6083 52.8762,16.5869 52.8494,16.565 52.8273,16.5514 52.802,16.5386 52.6701,16.4883 52.5891,16.469 52.5542,16.4648 52.5334,16.4587 52.5058,16.4454 52.4431,16.412 52.4259,16.4012 52.4009,16.3847 52.3769,16.3662 52.2319,16.2484 52.1648,16.1482 52.0956,15.967 52.1225,15.8471 52.1518,15.7423 52.1697,15.6566 52.1272,15.5881 51.9789,15.5424 51.8966,15.5091 51.6574,15.4058 51.6084,15.3711 51.6022,15.3418 51.5217,15.3082 51.4328,15.2763 51.2072,15.1837 51.1795,15.1706 51.1034,15.1538 51.0113,15.1338 50.9408,15.1197 50.8054,15.0889 50.6893,15.0567 50.6627,15.0489 50.643,15.0539 50.4915,15.0269 50.4166,15.0002 50.3911,14.9885 50.3499,14.9613 50.1207,14.8224 49.9841,14.8016 49.9707,14.8256 49.9012,14.8285 49.6539,14.7536 49.4759,14.6937 49.361,14.6391 49.1957,14.5674 49.0605,14.5108 49.0371,14.5007 49.0192,14.4873 48.9687,14.4196 48.9459,14.3367 48.9496,14.3094 48.787,14.1421 48.6645,14.04 48.642,14.0243 48.6301,14.0217 48.5539,14.0284 48.4979,14.0236 48.3699,13.9927 48.2554,13.9764 48.2203,13.9735 48.1788,13.9734 48.1351,13.9811 48.0869,14.0076 48.0187,14.0277 47.9897,14.0328 47.9633,14.0359 47.9348,14.0316 47.904,14.0217 47.8769,14.0109 47.8532,13.989 47.8322,13.9644 47.7959,13.9356 47.7649,13.9185 47.7154,13.9009 47.6666,13.8937 47.5973,13.8615 47.5723,13.8415 47.5608,13.825 47.5432,13.8038 47.3978,13.6738 47.3595,13.6426 47.3404,13.6313 47.2643,13.6173 47.233,13.609 47.2005,13.6002 47.1148,13.5725 46.9521,13.5417 46.873,13.5211 46.8292,13.5004 46.7958,13.4756 46.761,13.4591 46.7091,13.4369 46.6385,13.4133 46.4163,13.3903 46.299,13.3913 46.2436,13.3981 46.1132,13.396 45.9932,13.3937 45.8956,13.3827 45.7672,13.3646 45.6073,13.3245 45.5802,13.3106 45.5148,13.2483 45.4936,13.2282 45.4397,13.1691 45.4279,13.1439 45.4116,13.1181 45.3582,13.053 45.336,13.0405 45.2885,13.0279 45.2618,13.0247 45.2347,13.0218 45.1921,13.0113 45.1528,13.0006 45.1257,12.991 45.0802,12.957 45.0576,12.9345 45.0545,12.9307 45.0189,12.8467 44.9908,12.803 44.9643,12.8247 44.904,12.8181 44.8244,12.7894 44.8292,12.7583 44.8715,12.7541 44.8666,12.731 44.8518,12.7172 44.8024,12.7152 44.6757,12.7546 44.6282,12.7908 44.571,12.8026 44.5401,12.803 44.51,12.7927 44.4801,12.7747 44.4279,12.726 44.3869,12.6821 44.3597,12.668 44.245,12.6219 44.1373,12.603 43.9005,12.5805 43.8727,12.5973 43.8553,12.6333 43.7732,12.6717 43.6482,12.7124 43.5497,12.7345 43.5215,12.7206 43.479,12.6757 43.461,12.6679 43.4495,12.6661 43.4299,12.661 43.4133,12.6733 43.4294,12.7516 43.4357,12.7809 43.4339,12.8085 43.3539,12.9567 43.304,13.0361 43.2271,13.1566 43.2005,13.1911 43.1813,13.2549 43.1924,13.2988 43.202,13.3273 43.2266,13.5374 43.2304,13.5899 43.2354,13.635 43.2368,13.6574 43.2299,13.7052 43.1833,13.8578 43.1517,13.8842 43.1231,13.9046 43.0686,13.9477 43.0368,13.9776 43.0413,14.0608 43.0495,14.1377 43.0527,14.1578 43.0101,14.2792 42.9711,14.4288 42.977,14.5346 42.9389,14.6203 42.915,14.6763 42.8942,14.7623 42.8955,14.7973 42.9051,14.8484 42.8947,14.9009 42.885,14.9413 42.8202,15.1078 42.7936,15.1314 42.7381,15.1603 42.7033,15.1783 42.6619,15.1936 42.6306,15.1916 42.6296,15.2194 42.6487,15.2567 42.6735,15.2841 42.7282,15.2131 42.7518,15.2133 42.7595,15.2451 42.7584,15.3323 42.7354,15.4472 42.704,15.5085 42.668,15.5534 42.6528,15.6186 42.6432,15.6828 42.6504,15.7041 42.6754,15.7169 42.6939,15.733 42.7069,15.8122 42.748,15.8344 42.7837,15.8655 42.7908,15.9537 42.7947,16.0534 42.7948,16.0753 42.762,16.2939 42.7564,16.3223 42.7385,16.3592 42.7724,16.3629 42.8673,16.4049 43.0084,16.5238 43.0186,16.542 43.0276,16.5827 43.0508,16.6591 43.0829,16.6616 43.1543,16.6537 43.146,16.6971 43.1093,16.8169 43.0717,16.9064 43.0996,17.103 43.1398,17.3229 43.2066,17.3954 43.2617,17.4403 43.2934,17.457 43.3214,17.4755 43.355,17.4942 43.3926,17.5071 43.4613,17.5025 43.5683,17.4616 43.5863,17.4502 43.6014,17.424 43.619,17.4002 43.6861,17.3463 43.7084,17.3325 43.8861,17.2872 44.0368,17.3275 44.1321,17.3897 44.3289,17.4001 44.4073,17.3937 44.4404,17.3792 44.445,17.3736 44.9459,17.1751 45.4216,16.9868 46.2778,16.6481 46.278,15.8014 46.2778,15.5996 47.3181,16.7329 47.9675,17.4402 48.7074,18.2462 49.9394,18.5253 51.1533,18.8005 51.9361,18.9783 52.7184,17.3306 52.7487,17.2662 53.0509,16.6241 53.0509,16.6241 25,-4.0,Haiti -72.7374,18.6747 -72.7614,18.7061 -72.8433,18.7205 -72.9752,18.7579 -73.129,18.8132 -73.1577,18.8353 -73.1982,18.8791 -73.2052,18.8864 -73.2096,18.8957 -73.2108,18.9063 -73.1983,18.9236 -73.1734,18.9373 -73.1352,18.9474 -73.1131,18.9482 -72.984,18.9019 -72.9091,18.8729 -72.7686,18.814 -72.7602,18.8079 -72.7381,18.7875 -72.7267,18.7681 -72.7227,18.7556 -72.7109,18.7137 -72.727,18.678 -72.7374,18.6747 -72.7374,18.6747 26,6.5,Myanmar (Burma) 93.5246,18.8661 93.5449,18.8508 93.5577,18.8465 93.5945,18.8441 93.6165,18.849 93.6342,18.8497 93.644,18.7218 93.642,18.7107 93.6367,18.6967 93.6245,18.6755 93.6082,18.6574 93.5922,18.6484 93.5665,18.647 93.5535,18.6503 93.5333,18.6577 93.5221,18.6637 93.4305,18.7503 93.4199,18.7614 93.3813,18.8186 93.376,18.8314 93.376,18.8527 93.3928,18.8544 93.4055,18.8541 93.4357,18.8553 93.5246,18.8661 93.5246,18.8661 20,-6.0,Mexico -110.8403,18.6951 -110.8606,18.7143 -110.8685,18.7206 -110.8824,18.7284 -110.8945,18.7307 -110.9163,18.732 -110.9291,18.7372 -110.9378,18.7543 -110.9215,18.7913 -110.916,18.8 -110.866,18.8452 -110.8507,18.8424 -110.8166,18.8158 -110.8045,18.8064 -110.7865,18.7623 -110.7826,18.7524 -110.7755,18.7171 -110.7878,18.702 -110.8403,18.6951 -110.8403,18.6951 17,-6.0,Mexico -91.7227,18.6174 -91.7304,18.6209 -91.732,18.6367 -91.7217,18.644 -91.6982,18.6559 -91.5348,18.7327 -91.4536,18.7648 -91.442,18.7672 -91.428,18.7677 -91.4138,18.7521 -91.4103,18.7416 -91.4118,18.7298 -91.46,18.7157 -91.6896,18.6237 -91.7169,18.6183 -91.7227,18.6174 -91.7227,18.6174 659,8.0,Philippines 122.3212,16.8619 122.2781,16.7666 122.163,16.5452 122.1483,16.5218 122.1326,16.5091 122.1062,16.4925 122.0605,16.4144 122.0617,16.4021 122.0651,16.3924 122.0737,16.3793 122.0841,16.379 122.0824,16.3392 122.066,16.2485 122.0601,16.216 122.0527,16.2082 122.0076,16.1609 121.9951,16.1538 121.979,16.1387 121.9588,16.1196 121.9456,16.1061 121.9493,16.0933 121.9059,16.045 121.8953,16.0348 121.8563,16.0111 121.8527,16.0288 121.8572,16.0378 121.8732,16.068 121.8801,16.0774 121.8893,16.088 121.9191,16.1246 121.9352,16.1368 121.9465,16.1517 121.9678,16.1874 121.9936,16.2341 121.9531,16.2421 121.9294,16.2162 121.9257,16.2059 121.9237,16.1916 121.8747,16.1565 121.831,16.1273 121.8124,16.1163 121.6377,16.0471 121.6164,16.0577 121.5978,16.0502 121.5241,15.9884 121.4329,15.9005 121.4182,15.8853 121.411,15.8741 121.4076,15.8633 121.4048,15.8445 121.4031,15.8201 121.4064,15.7961 121.4162,15.7634 121.4232,15.7498 121.4308,15.7382 121.4418,15.7334 121.4616,15.7404 121.4923,15.731 121.4987,15.714 121.498,15.6957 121.4548,15.6181 121.3508,15.5009 121.2618,15.3629 121.251,15.3576 121.2402,15.3319 121.2348,15.315 121.2322,15.2981 121.236,15.2853 121.2561,15.2407 121.2736,15.211 121.2872,15.1908 121.3113,15.1809 121.342,15.1593 121.3985,15.005 121.432,14.9029 121.4415,14.8666 121.4454,14.8541 121.4622,14.8026 121.4836,14.7742 121.4966,14.7602 121.5522,14.6803 121.473,14.6522 121.4656,14.642 121.4673,14.6041 121.4693,14.5864 121.5001,14.4663 121.5352,14.3663 121.5765,14.3252 121.5859,14.3117 121.62,14.2232 121.6203,14.211 121.6116,14.1861 121.602,14.1759 121.5937,14.1648 121.5945,14.1528 121.6216,14.1163 121.6292,14.1079 121.7698,13.9934 121.8066,13.9721 121.8172,13.9665 121.8688,13.9434 121.8931,13.9332 121.9646,13.9071 122.0012,13.8996 122.0188,13.902 122.0493,13.8982 122.0926,13.8817 122.1059,13.9076 122.162,13.9443 122.1671,13.9851 122.1681,13.9996 122.1249,14.0326 122.0853,14.0602 122.0647,14.067 122.0408,14.0961 122.0267,14.1202 122.0238,14.1355 122.115,14.2243 122.1316,14.2278 122.1354,14.2127 122.1308,14.1949 122.1261,14.1852 122.1229,14.168 122.126,14.1135 122.1622,14.0853 122.1689,14.0877 122.187,14.0916 122.2062,14.1009 122.2124,14.1191 122.1999,14.1374 122.1948,14.1501 122.1932,14.1691 122.1938,14.1839 122.2219,14.2265 122.2383,14.2423 122.3074,14.3051 122.3307,14.3247 122.3732,14.3289 122.3989,14.32 122.4629,14.2973 122.5353,14.322 122.5509,14.3242 122.5706,14.3223 122.6307,14.303 122.7044,14.2621 122.7226,14.2495 122.7864,14.1832 122.8968,14.0538 122.9531,13.9534 122.9553,13.8723 122.9453,13.8588 122.9305,13.8497 122.9235,13.8341 122.9149,13.801 122.9103,13.7823 122.9079,13.7641 122.9125,13.7552 122.9564,13.7284 122.9765,13.719 122.9862,13.6973 122.9815,13.6796 122.9914,13.6918 123.1265,13.7252 123.1767,13.7738 123.1852,13.7942 123.1799,13.8209 123.1533,13.9112 123.1268,13.9277 123.1,13.9485 123.0944,13.9587 123.0875,13.9867 123.1382,14.032 123.2002,14.0714 123.2184,14.0655 123.2499,14.014 123.2752,13.9667 123.3138,13.9464 123.4321,13.896 123.5383,13.8619 123.7825,13.7739 123.8279,13.7365 123.8329,13.7226 123.8361,13.7015 123.8293,13.6921 123.6676,13.6721 123.6457,13.6747 123.6325,13.6775 123.5758,13.691 123.476,13.7074 123.455,13.7082 123.4381,13.7031 123.428,13.6911 123.4106,13.6587 123.3939,13.6089 123.392,13.5562 123.4007,13.543 123.4938,13.4732 123.5268,13.4657 123.5363,13.4604 123.5632,13.4234 123.5932,13.3552 123.6111,13.314 123.6463,13.287 123.6708,13.2761 123.6806,13.2617 123.678,13.2402 123.6925,13.2263 123.689,13.2435 123.7074,13.2477 123.729,13.2176 123.7157,13.2104 123.6992,13.2121 123.6835,13.2156 123.6697,13.22 123.6566,13.2202 123.6435,13.216 123.6352,13.206 123.6201,13.1742 123.6172,13.1637 123.6165,13.1469 123.6183,13.0742 123.6219,13.0489 123.6363,13.0393 123.6484,13.0348 123.6639,13.035 123.6985,13.0684 123.7243,13.1039 123.7281,13.1204 123.7391,13.1257 123.7603,13.1259 123.8374,13.0919 123.8554,13.0809 123.8734,13.0587 123.8829,13.0431 123.8934,13.0309 123.9413,12.9945 123.9525,12.9996 123.9605,13.0171 123.9643,13.034 123.9707,13.0469 123.9864,13.057 124.0368,13.0583 124.0504,13.0504 124.056,13.0387 124.0555,13.0221 124.0529,13.004 124.0134,12.9478 123.9859,12.8929 124.0152,12.8407 124.0186,12.7956 124.0043,12.6901 123.9975,12.6526 123.9573,12.5396 123.9441,12.5278 123.8986,12.5179 123.8738,12.5237 123.8554,12.5292 123.8335,12.5418 123.7396,12.6374 123.7212,12.6788 123.7108,12.7132 123.7012,12.8137 123.7243,12.8551 123.7451,12.8471 123.7638,12.836 123.7943,12.8311 123.8767,12.8575 123.8842,12.8636 123.8917,12.8737 123.9067,12.907 123.9064,12.9184 123.8993,12.9346 123.8862,12.9494 123.7565,12.9582 123.7467,12.9514 123.7443,12.9236 123.7184,12.8827 123.6859,12.86 123.667,12.848 123.5896,12.8393 123.4976,12.8712 123.4488,12.8919 123.3672,12.9541 123.3516,12.9672 123.3144,13.0099 123.2816,13.0276 123.2692,13.0298 123.2344,13.0132 123.2206,13.0044 123.202,12.9978 123.1846,12.9941 123.1685,13.017 123.1585,13.0387 123.1513,13.1006 123.1548,13.1296 123.1711,13.164 123.1067,13.2768 123.0691,13.3642 123.0672,13.3852 123.061,13.4032 123.0444,13.4232 123.0268,13.4361 122.996,13.4532 122.9264,13.4837 122.9127,13.4895 122.8744,13.5004 122.8593,13.5034 122.8447,13.5026 122.752,13.5595 122.6996,13.6074 122.6922,13.623 122.6895,13.6353 122.7225,13.6681 122.7147,13.6918 122.6995,13.7179 122.6346,13.7716 122.4728,13.8761 122.4198,13.9211 122.3841,13.9056 122.3618,13.8253 122.3427,13.691 122.3451,13.6783 122.3623,13.631 122.4372,13.5211 122.4684,13.4844 122.4891,13.4615 122.5103,13.4313 122.5231,13.4097 122.5295,13.3925 122.5407,13.3587 122.5605,13.237 122.5631,13.2174 122.5624,13.2069 122.4811,13.1553 122.4684,13.1493 122.4575,13.1488 122.4433,13.1544 122.4236,13.171 122.385,13.2174 122.3856,13.2666 122.3855,13.2934 122.3841,13.3076 122.3792,13.3311 122.3517,13.3907 122.2636,13.504 122.1906,13.5683 122.1721,13.5784 122.1251,13.5881 122.1048,13.5818 122.0686,13.5868 122.0359,13.657 121.9683,13.7484 121.9215,13.7598 121.7686,13.8365 121.6898,13.8817 121.6801,13.8894 121.6761,13.8988 121.6772,13.9222 121.6095,13.9494 121.5779,13.9503 121.5617,13.9436 121.3346,13.8192 121.3251,13.8096 121.3042,13.7748 121.2992,13.7579 121.2974,13.7422 121.2486,13.6484 121.2238,13.6389 121.1958,13.6221 121.1407,13.5788 121.0916,13.6122 121.0429,13.6282 121.0272,13.6263 120.9928,13.6181 120.917,13.6469 120.9237,13.6985 120.9081,13.7398 120.9015,13.7478 120.8811,13.7584 120.8557,13.7664 120.8358,13.7587 120.79,13.7595 120.78,13.8425 120.7747,13.8594 120.7593,13.8773 120.7498,13.8838 120.7401,13.8872 120.6246,13.914 120.611,13.9167 120.6004,13.9169 120.5775,13.9097 120.5672,13.8999 120.5204,13.8456 120.5192,13.8142 120.5286,13.7961 120.5383,13.7752 120.5363,13.7633 120.5237,13.7537 120.4868,13.794 120.4807,13.8614 120.4781,13.9302 120.4803,13.9495 120.4702,14.1025 120.4393,14.1217 120.4489,14.2001 120.4522,14.2152 120.4867,14.2513 120.5008,14.2604 120.5165,14.2668 120.5266,14.2668 120.5363,14.2662 120.5683,14.2738 120.6124,14.302 120.6274,14.3136 120.6975,14.378 120.7614,14.4353 120.8318,14.4611 120.8444,14.4744 120.8523,14.4989 120.8524,14.5151 120.8496,14.5328 120.8199,14.6094 120.8147,14.6207 120.8052,14.6353 120.7902,14.6569 120.7822,14.6651 120.7621,14.6854 120.7461,14.7013 120.6952,14.7439 120.6478,14.7415 120.6287,14.7393 120.6129,14.7373 120.5393,14.7533 120.4735,14.79 120.4207,14.8098 120.4066,14.8066 120.4071,14.7054 120.4091,14.6941 120.4162,14.68 120.4386,14.6376 120.4697,14.5026 120.4712,14.4857 120.4696,14.4718 120.4621,14.4462 120.4404,14.4212 120.4176,14.4093 120.4014,14.406 120.3528,14.4137 120.3138,14.4246 120.2529,14.4427 120.2486,14.4556 120.2398,14.4893 120.2369,14.5119 120.1767,14.6083 120.1618,14.6194 120.1108,14.6724 120.1085,14.6833 120.1125,14.7152 120.1181,14.7495 120.1361,14.7626 120.1538,14.7875 120.1037,14.8312 120.0725,14.8109 120.0704,14.797 120.0593,14.7557 120.0503,14.7351 120.0417,14.728 120.0162,14.7238 119.9917,14.7345 119.9817,14.7411 119.946,14.7671 119.914,14.8728 119.9139,14.9151 119.9158,14.9347 119.9224,14.9688 119.9227,15.0043 119.9223,15.0308 119.9125,15.0798 119.8958,15.1474 119.8701,15.247 119.8626,15.2618 119.8225,15.3287 119.7968,15.3626 119.7668,15.3857 119.757,15.4084 119.7553,15.4191 119.7587,15.4631 119.7635,15.474 119.8129,15.5053 119.7655,15.6052 119.7772,15.6878 119.7496,15.7835 119.7701,15.8229 119.7659,15.8386 119.7143,15.9451 119.6709,15.9322 119.6646,15.9081 119.6298,15.9013 119.6096,15.9425 119.6143,16.1561 119.6423,16.3004 119.6479,16.3144 119.6577,16.3288 119.6807,16.3469 119.7424,16.3785 119.7856,16.3655 119.7899,16.3438 119.7876,16.3125 119.7756,16.272 119.7917,16.2246 119.8698,16.1657 119.9508,16.0956 119.9521,16.0835 119.9586,16.0554 119.9835,16.0365 120.0132,16.0182 120.0351,16.0152 120.0545,16.0126 120.0911,16.0159 120.115,16.0207 120.1374,16.0281 120.1943,16.0575 120.2245,16.0757 120.2519,16.1027 120.2594,16.1117 120.2779,16.1377 120.282,16.151 120.2749,16.1896 120.2622,16.2245 120.2469,16.2458 120.2231,16.2666 120.1956,16.4117 120.1746,16.5583 120.1727,16.6127 120.2264,16.8325 120.2457,16.8431 120.2549,16.8549 120.3042,16.9497 120.3089,16.9626 120.3105,16.976 120.3118,16.9925 120.3102,17.0174 120.3074,17.0358 120.2861,17.1588 120.282,17.1689 120.311,17.3414 120.3154,17.3704 120.3147,17.3921 120.2817,17.4902 120.2468,17.5216 120.2347,17.5137 120.2222,17.5116 120.2013,17.5364 120.1934,17.5519 120.2121,17.6197 120.2273,17.6604 120.2495,17.6724 120.2768,17.6885 120.2946,17.7127 120.3127,17.8036 120.3045,17.909 120.3344,18.0584 120.3754,18.1687 120.3804,18.1815 120.3885,18.1929 120.4151,18.2331 120.4494,18.2945 120.4547,18.3106 120.4582,18.3497 120.4554,18.3727 120.4477,18.404 120.4357,18.4346 120.4269,18.4476 120.4232,18.4605 120.4256,18.4726 120.4391,18.4907 120.4863,18.5269 120.5181,18.5183 120.5334,18.5124 120.5567,18.5078 120.5719,18.5059 120.5903,18.5064 120.6058,18.5115 120.6218,18.5196 120.6413,18.5375 120.7285,18.59 120.7546,18.5553 120.7705,18.5445 120.788,18.5388 120.81,18.5422 120.8261,18.5561 120.8368,18.5694 120.8448,18.5746 120.8824,18.588 120.9564,18.6035 120.9781,18.6067 121.0069,18.6044 121.0285,18.5965 121.0571,18.5808 121.0845,18.5637 121.1098,18.5456 121.2296,18.4716 121.4391,18.3626 121.4899,18.3411 121.655,18.2829 121.6985,18.268 121.7485,18.2573 121.7892,18.2492 121.8019,18.2485 121.8186,18.2525 121.86,18.2659 121.8771,18.2759 121.972,18.3564 121.9853,18.4098 121.9879,18.4235 122.0087,18.4884 122.0191,18.498 122.0773,18.4999 122.0906,18.4943 122.1765,18.3601 122.1823,18.3406 122.1943,18.29 122.1889,18.2557 122.1735,18.2282 122.1468,18.1914 122.1159,18.154 122.107,18.1483 122.0797,18.1363 122.0714,18.1307 122.0412,18.1002 122.0252,18.0548 122.0343,18.0192 122.0457,18.0053 122.0485,17.9837 122.0367,17.914 122.025,17.8665 122.0073,17.8119 121.9989,17.7819 121.9981,17.7631 122.0229,17.5877 122.0258,17.5743 122.0677,17.4498 122.0937,17.3767 122.1098,17.344 122.1504,17.3214 122.1712,17.3145 122.1982,17.3225 122.28,17.2494 122.2722,17.1369 122.2828,17.1157 122.3066,17.1025 122.3382,17.0988 122.3485,17.1043 122.3554,17.1119 122.3738,17.1154 122.3854,17.0822 122.3707,17.0249 122.3212,16.8619 122.3212,16.8619 133,-5.0,Jamaica -76.5647,17.9093 -76.6008,17.9174 -76.6317,17.9287 -76.6346,17.9332 -76.6429,17.9391 -76.6532,17.9432 -76.7076,17.9467 -76.7184,17.9568 -76.726,17.9634 -76.7396,17.9669 -76.7544,17.9625 -76.8011,17.8686 -76.8213,17.8322 -76.8305,17.822 -76.8584,17.8094 -76.912,17.8249 -76.9429,17.8685 -76.9586,17.8746 -76.9869,17.8794 -77.0081,17.8757 -77.0185,17.8721 -77.0386,17.8589 -77.0555,17.8423 -77.1002,17.7601 -77.0502,17.7407 -77.0326,17.7091 -77.0367,17.6943 -77.045,17.6888 -77.0591,17.6816 -77.0721,17.6777 -77.0889,17.6785 -77.1241,17.6939 -77.1336,17.699 -77.1449,17.7085 -77.2554,17.8018 -77.3019,17.832 -77.3184,17.84 -77.3593,17.8359 -77.3927,17.8185 -77.4134,17.8167 -77.4245,17.8202 -77.4723,17.8397 -77.5155,17.8347 -77.6257,17.8274 -77.6412,17.8301 -77.6983,17.8678 -77.7256,17.9176 -77.7407,17.9676 -77.7466,17.9825 -77.7548,17.9918 -77.78,18.0025 -77.8097,18.0011 -77.8417,18.0061 -77.8563,18.0101 -77.8669,18.0345 -77.8719,18.0451 -77.8856,18.0661 -77.9486,18.1644 -77.9626,18.1763 -77.9795,18.1812 -78.007,18.1822 -78.0338,18.1829 -78.0994,18.1796 -78.1116,18.1769 -78.1365,18.1697 -78.1594,18.174 -78.2439,18.1987 -78.2671,18.2145 -78.2742,18.2217 -78.2789,18.2342 -78.2768,18.2443 -78.2697,18.2542 -78.2475,18.2783 -78.2505,18.3147 -78.2447,18.3403 -78.116,18.4309 -77.9247,18.4314 -77.9054,18.421 -77.8415,18.4756 -77.8263,18.4884 -77.788,18.4991 -77.77,18.5017 -77.7551,18.5011 -77.6412,18.4842 -77.6056,18.469 -77.5944,18.4657 -77.5458,18.4584 -77.5195,18.4631 -77.5044,18.4682 -77.467,18.4686 -77.3874,18.4575 -77.3727,18.4487 -77.3667,18.4454 -77.3139,18.436 -77.2476,18.4321 -77.2262,18.438 -77.1534,18.4316 -77.0879,18.4137 -77.0724,18.4077 -77.0642,18.4017 -77.0428,18.3866 -76.9744,18.3866 -76.9626,18.3902 -76.9469,18.3915 -76.852,18.3739 -76.8026,18.3544 -76.7612,18.3245 -76.7123,18.2825 -76.6945,18.2528 -76.6285,18.2432 -76.6103,18.2463 -76.5661,18.2157 -76.5473,18.2029 -76.4584,18.1768 -76.4405,18.1727 -76.3659,18.1602 -76.2906,18.1469 -76.2723,18.1395 -76.249,18.1296 -76.1998,18.0579 -76.1863,18.0303 -76.1819,18.0213 -76.1656,17.9757 -76.1419,17.9214 -76.1287,17.8841 -76.1729,17.8598 -76.2143,17.8457 -76.2582,17.8357 -76.4413,17.8369 -76.5014,17.8414 -76.5178,17.8499 -76.5647,17.9093 -76.5647,17.9093 78,-4.0,Puerto Rico -65.7568,18.0359 -65.7602,18.0245 -65.7771,17.9987 -65.8068,17.9677 -65.818,17.9621 -65.8477,17.9502 -65.8574,17.9466 -66.1242,17.9022 -66.1576,17.9082 -66.2101,17.9234 -66.2671,17.9474 -66.2949,17.941 -66.3737,17.9623 -66.493,17.9443 -66.5066,17.9412 -66.5903,17.9447 -66.6036,17.9471 -66.6336,17.9612 -66.7083,17.9505 -66.7265,17.9404 -66.7408,17.9338 -66.7607,17.927 -66.8461,17.9091 -66.8585,17.9079 -66.872,17.9104 -66.9863,17.9396 -67.0147,17.9299 -67.1033,17.9126 -67.1233,17.9334 -67.1126,18.0151 -67.0938,18.0858 -67.0749,18.168 -67.076,18.1946 -67.0875,18.2174 -67.091,18.227 -67.1113,18.2596 -67.1331,18.2665 -67.1454,18.2698 -67.1593,18.2811 -67.1685,18.2925 -67.1802,18.321 -67.1848,18.3448 -67.0888,18.4665 -67.0728,18.4826 -67.0627,18.4898 -67.0203,18.4975 -67.0018,18.4988 -66.9821,18.4986 -66.9583,18.4954 -66.9446,18.493 -66.9152,18.4845 -66.6877,18.4672 -66.6146,18.4689 -66.4697,18.4618 -66.3857,18.4536 -66.2249,18.4465 -66.1279,18.4436 -66.1144,18.4433 -66.056,18.445 -66.0224,18.3959 -66.0352,18.4513 -65.9507,18.4249 -65.9341,18.4358 -65.9241,18.4399 -65.9107,18.4395 -65.8242,18.4339 -65.8103,18.4317 -65.7214,18.4099 -65.5635,18.3548 -65.5473,18.3446 -65.5504,18.255 -65.5525,18.2449 -65.523,18.2143 -65.5338,18.2011 -65.6129,18.1735 -65.744,18.0439 -65.7568,18.0359 -65.7568,18.0359 86,-6.0,Belize -89.034,17.7992 -89.035,17.931 -89.0135,17.9509 -88.9639,17.975 -88.9148,17.9846 -88.889,17.9673 -88.8754,17.9457 -88.7642,17.8874 -88.7338,17.8841 -88.6664,17.9688 -88.6206,18.0346 -88.5967,18.0897 -88.5735,18.1651 -88.4925,18.2157 -88.4816,18.2705 -88.4096,18.4096 -88.3988,18.4268 -88.3665,18.4633 -88.2981,18.4694 -88.2641,18.4613 -88.2366,18.4606 -88.1923,18.4622 -88.1826,18.4303 -88.2062,18.4041 -88.2083,18.3436 -88.1017,18.3325 -87.9906,18.3529 -87.975,18.2512 -87.9709,18.1954 -87.9804,18.102 -88.0164,18.0092 -88.044,17.9461 -88.0563,17.9313 -88.0797,17.9039 -88.0955,17.8673 -88.102,17.7826 -88.1051,17.7558 -88.1191,17.6962 -88.1268,17.6765 -88.1451,17.6461 -88.1666,17.6253 -88.1757,17.6042 -88.1717,17.5612 -88.1422,17.4459 -88.1539,17.4028 -88.1782,17.304 -88.1879,17.2575 -88.192,17.2193 -88.1927,17.1666 -88.1825,17.1033 -88.1736,17.0788 -88.1593,17.0613 -88.1285,17.0458 -88.1071,16.943 -88.1277,16.9269 -88.1566,16.9071 -88.1717,16.8707 -88.1735,16.7819 -88.1963,16.6249 -88.2549,16.4833 -88.2409,16.5842 -88.2725,16.5434 -88.2877,16.5231 -88.279,16.5087 -88.2818,16.4721 -88.4236,16.2798 -88.5444,16.2617 -88.6205,16.2136 -88.6382,16.1897 -88.6855,16.1011 -88.747,16.0364 -88.8165,15.9693 -88.8205,15.9295 -88.8043,15.8761 -88.8743,15.8805 -88.9405,15.8887 -89.0628,15.8925 -89.1095,15.8722 -89.1097,15.8976 -89.0972,16.0861 -89.077,16.3961 -89.0376,16.9948 -89.0358,17.3225 -89.0342,17.6996 -89.034,17.7992 -89.034,17.7992 20,-4.0,Dominican Republic -68.4903,18.0815 -68.5067,18.0934 -68.5372,18.1014 -68.5568,18.1049 -68.569,18.1035 -68.5789,18.0995 -68.6079,18.0911 -68.6183,18.0919 -68.6487,18.0998 -68.6721,18.1096 -68.6981,18.1497 -68.7014,18.1594 -68.6966,18.1773 -68.5266,18.1444 -68.5145,18.1411 -68.5038,18.1338 -68.4913,18.1094 -68.4852,18.0877 -68.4903,18.0815 -68.4903,18.0815 16,-6.0,Belize -87.8019,18.0013 -87.8138,17.9506 -87.8222,17.9315 -87.8299,17.9187 -87.8465,17.8946 -87.8547,17.884 -87.8668,17.8783 -87.8843,17.8777 -87.8993,17.8819 -87.7946,18.1306 -87.7498,18.1444 -87.7409,18.1383 -87.74,18.1207 -87.7835,18.0259 -87.8019,18.0013 -87.8019,18.0013 15,-4.0,Puerto Rico -65.4453,18.0629 -65.4689,18.0659 -65.4858,18.0748 -65.4939,18.0812 -65.4992,18.0951 -65.4231,18.1241 -65.4074,18.1289 -65.352,18.1443 -65.3163,18.1441 -65.2217,18.1277 -65.2259,18.1125 -65.2583,18.0966 -65.3618,18.07 -65.4453,18.0629 -65.4453,18.0629 315,3.0,Eritrea 36.5004,14.2463 36.4991,14.262 36.4732,14.4341 36.409,15.0518 36.4001,15.1332 36.4364,15.1635 36.4994,15.2177 36.5221,15.2856 36.567,15.4202 36.5824,15.4722 36.628,15.6419 36.6525,15.7309 36.7199,15.7904 36.782,15.9596 36.8454,16.1287 36.8804,16.2089 36.9225,16.2418 36.9296,16.2675 36.9087,16.4155 36.884,16.4413 36.8585,16.4752 36.8524,16.4965 36.8541,16.5184 36.8697,16.6261 36.8951,16.6589 36.9282,16.6814 36.9445,16.7068 36.9647,16.7676 36.9687,17.0033 36.9493,17.0458 36.9816,17.058 37.0636,17.029 37.1031,16.9981 37.2125,17.008 37.3365,17.0241 37.3785,17.0153 37.441,17.0914 37.4756,17.1765 37.4854,17.2303 37.4752,17.2585 37.4669,17.302 37.5435,17.3308 37.5779,17.3383 37.6994,17.3624 37.8498,17.4219 37.8883,17.4393 37.9208,17.4802 37.989,17.5223 38.0127,17.5329 38.0462,17.5235 38.0898,17.4795 38.2114,17.5133 38.3228,17.6446 38.4029,17.8311 38.4122,17.8511 38.4595,17.8934 38.554,17.9747 38.5652,17.9413 38.6255,17.8274 38.664,17.7575 38.703,17.7074 38.7509,17.6337 38.8483,17.4376 38.8983,17.3289 38.9549,17.1694 38.9921,17.0335 39.0512,16.8441 39.0687,16.8082 39.0901,16.7567 39.1134,16.6604 39.1146,16.6191 39.1138,16.5547 39.1174,16.526 39.1273,16.4597 39.1406,16.4324 39.1459,16.3788 39.1434,16.3675 39.1555,16.3253 39.1571,16.2703 39.1646,16.2107 39.1677,16.1875 39.1826,16.1096 39.2233,15.9684 39.2622,15.8805 39.3185,15.8319 39.3766,15.752 39.4026,15.6329 39.3949,15.5862 39.4134,15.5045 39.436,15.4949 39.465,15.5009 39.4913,15.5201 39.5164,15.518 39.5358,15.5093 39.5664,15.4706 39.6433,15.2987 39.6663,15.2399 39.655,15.1754 39.6514,15.1646 39.6473,15.1128 39.6711,15.0714 39.7206,15.0461 39.7271,15.0464 39.7615,15.0586 39.8076,15.1584 39.7957,15.209 39.7686,15.2604 39.7427,15.245 39.7238,15.3751 39.7516,15.4281 39.8001,15.4572 39.8341,15.4722 39.9422,15.3722 40.0017,15.2699 39.9784,15.2227 39.9944,15.1843 40.0267,15.1513 40.1092,15.0013 40.1099,14.9682 40.1279,14.9546 40.2505,14.897 40.2911,14.9271 40.3141,14.9483 40.3745,14.9793 40.4071,14.9909 40.546,14.9297 40.6261,14.8874 40.6826,14.8142 40.6827,14.778 40.7593,14.6893 40.8014,14.7001 40.8349,14.6996 41.1239,14.6144 41.2622,14.4607 41.3303,14.3573 41.4009,14.2558 41.4639,14.1867 41.564,14.052 41.605,13.9841 41.616,13.952 41.6292,13.9207 41.6723,13.9002 41.8044,13.8561 41.854,13.8572 41.9083,13.8418 41.9365,13.811 42.0104,13.7137 42.0198,13.6826 42.042,13.6631 42.1384,13.5599 42.1774,13.5362 42.1741,13.6216 42.2361,13.5583 42.2466,13.5379 42.2915,13.4124 42.2963,13.3904 42.3006,13.3354 42.3256,13.2034 42.3969,13.1755 42.4421,13.1774 42.5272,13.1475 42.6734,13.0278 42.6855,13.0089 42.7104,12.9281 42.7238,12.8802 42.7566,12.8308 42.8324,12.7947 42.8878,12.7866 42.9266,12.7987 42.938,12.8158 42.9537,12.8715 43.0296,12.8148 43.0454,12.7812 43.0698,12.715 43.0731,12.6941 42.8814,12.6098 42.7625,12.5109 42.7603,12.4739 42.7717,12.4319 42.7022,12.3738 42.6508,12.35 42.6014,12.3849 42.5726,12.4169 42.5405,12.4538 42.4881,12.4903 42.4539,12.5029 42.4372,12.508 42.4087,12.5151 42.3523,12.4557 42.3105,12.4977 42.2972,12.5128 42.2785,12.5356 42.259,12.5607 42.2449,12.5842 42.2152,12.6364 42.1672,12.7117 42.1469,12.7318 42.1058,12.7641 42.0716,12.787 42.0503,12.7978 42.0296,12.8056 42.0007,12.8159 41.9698,12.8264 41.9457,12.836 41.927,12.8491 41.9068,12.8711 41.8794,12.9124 41.8673,12.9342 41.7967,13.084 41.7956,13.0911 41.769,13.143 41.7512,13.1731 41.7341,13.1973 41.7094,13.2215 41.5684,13.3386 41.5519,13.3503 41.5198,13.3717 41.5025,13.3828 41.4806,13.3963 41.3808,13.4574 41.1893,13.5803 41.1715,13.5971 41.1312,13.6666 41.0852,13.7506 41.0682,13.7816 41.0533,13.8076 41.0257,13.8512 41.0,13.8844 40.9609,13.9292 40.8819,14.0167 40.8624,14.0366 40.7556,14.1373 40.7299,14.149 40.7018,14.1571 40.6466,14.1666 40.5997,14.1731 40.5673,14.1802 40.5453,14.1873 40.5058,14.2044 40.4218,14.2454 40.3866,14.2667 40.3387,14.3092 40.3028,14.3433 40.2757,14.3716 40.2543,14.3898 40.2242,14.4088 40.181,14.4275 40.1325,14.4418 40.1099,14.4487 40.0702,14.4542 39.9723,14.4429 39.8991,14.4158 39.8571,14.4164 39.8405,14.4277 39.8053,14.4636 39.7335,14.4975 39.6999,14.4866 39.6798,14.4797 39.6488,14.4773 39.5676,14.4942 39.4852,14.5493 39.4364,14.4951 39.3302,14.4677 39.2173,14.4574 39.1641,14.4695 39.1438,14.528 39.1328,14.5482 39.1063,14.5837 39.0895,14.6015 39.0729,14.6131 39.0483,14.6273 38.9784,14.6387 38.9669,14.5729 38.92,14.5299 38.8476,14.4846 38.7503,14.4535 38.5164,14.4104 38.4043,14.4028 38.2886,14.5055 38.262,14.578 38.2183,14.6614 38.2,14.671 38.144,14.6759 38.099,14.6669 37.9958,14.7057 37.9738,14.7186 37.9359,14.7596 37.9338,14.7845 37.9112,14.8213 37.8817,14.8546 37.8666,14.8672 37.794,14.6987 37.6405,14.3441 37.5288,14.0864 37.4875,14.0987 37.3898,14.2523 37.3479,14.3404 37.2935,14.4108 37.2445,14.4356 37.1562,14.4365 37.0816,14.4096 37.0584,14.3769 37.0486,14.3554 37.0477,14.3305 37.0475,14.2963 37.0322,14.2716 36.9567,14.2456 36.9071,14.2784 36.8432,14.3043 36.7823,14.3121 36.6936,14.3112 36.5986,14.3006 36.516,14.2729 36.5004,14.2463 36.5004,14.2463 192,-6.0,Guatemala -88.8043,15.8761 -88.7667,15.8452 -88.7285,15.847 -88.7058,15.8477 -88.6797,15.8392 -88.6416,15.8195 -88.5725,15.7605 -88.5325,15.6952 -88.5123,15.681 -88.492,15.6888 -88.3898,15.832 -88.4442,15.8801 -88.4706,15.8987 -88.4452,15.9229 -88.3006,15.8202 -88.1493,15.7194 -88.1232,15.7121 -88.1094,15.707 -88.1344,15.6965 -88.2098,15.6497 -88.2222,15.6179 -88.3809,15.4875 -88.447,15.4327 -88.5628,15.3329 -88.6525,15.2785 -88.7315,15.2303 -88.8747,15.1189 -89.0369,15.0601 -89.0446,15.0566 -89.0523,15.04 -89.0649,15.0133 -89.0718,14.9818 -89.0492,14.964 -89.0702,14.9076 -89.0805,14.8911 -89.1009,14.8769 -89.1176,14.8554 -89.1164,14.8278 -89.0499,14.7173 -89.026,14.6986 -89.0329,14.6685 -89.0924,14.5687 -89.1311,14.5664 -89.2461,14.4554 -89.2437,14.4158 -89.331,14.399 -89.3905,14.4052 -89.444,14.4048 -89.4661,14.3986 -89.4789,14.3698 -89.4846,14.3053 -89.4609,14.3005 -89.4388,14.2884 -89.4138,14.2182 -89.4751,14.1916 -89.5009,14.1923 -89.5229,14.1936 -89.5479,14.1799 -89.5823,14.1544 -89.606,14.1293 -89.6225,14.1022 -89.6428,14.0538 -89.6359,14.0257 -89.7142,14.051 -89.7505,14.0439 -89.7847,14.0286 -89.9167,13.9231 -89.9825,13.8529 -90.0,13.808 -90.0044,13.7735 -89.9926,13.7307 -90.0019,13.7318 -90.0481,13.7482 -90.1137,13.7764 -90.1331,13.7858 -90.2451,13.8322 -90.3066,13.8575 -90.358,13.8761 -90.3877,13.8847 -90.4849,13.9093 -90.508,13.9137 -90.5231,13.9149 -90.5685,13.9139 -90.6672,13.911 -90.7847,13.9063 -90.839,13.9024 -90.9109,13.8976 -90.9762,13.8976 -91.0008,13.9004 -91.0787,13.9106 -91.191,13.9384 -91.279,13.9635 -91.3877,14.014 -91.4218,14.0277 -91.4574,14.0494 -91.4817,14.0626 -91.515,14.0778 -91.5337,14.0907 -91.5524,14.1067 -91.5743,14.123 -91.5906,14.1342 -91.6635,14.176 -91.7061,14.1957 -91.8066,14.272 -91.8534,14.3085 -91.8834,14.3339 -91.9734,14.4085 -92.0565,14.4679 -92.1107,14.5056 -92.1341,14.5277 -92.1386,14.5344 -92.1297,14.5358 -92.1086,14.5419 -92.079,14.572 -92.0448,14.6668 -92.0443,14.6869 -92.0497,14.7132 -92.0603,14.7522 -92.0739,14.794 -92.0748,14.8286 -92.0405,14.9181 -91.9846,15.0089 -91.9614,15.0604 -92.1018,15.2451 -91.9982,15.4203 -91.7188,15.8912 -91.6875,15.9432 -91.6194,16.0569 -91.5941,16.0576 -91.4302,16.0578 -90.8824,16.0578 -90.6955,16.0578 -90.5174,16.0577 -90.3455,16.0568 -90.339,16.0611 -90.3337,16.0706 -90.3235,16.1149 -90.3216,16.1545 -90.3486,16.1765 -90.3493,16.2384 -90.3301,16.2895 -90.2981,16.317 -90.2759,16.3589 -90.2847,16.3829 -90.2978,16.3983 -90.3774,16.4429 -90.3963,16.4504 -90.4363,16.4551 -90.4818,16.4581 -90.5003,16.4707 -90.5362,16.5023 -90.5343,16.5452 -90.5352,16.5767 -90.5491,16.6256 -90.5697,16.6574 -90.6049,16.708 -90.6393,16.7384 -90.6954,16.7866 -90.7571,16.7989 -90.8094,16.8111 -90.8392,16.8704 -90.8769,16.8774 -90.954,16.9054 -91.0745,17.0167 -91.1583,17.1148 -91.2218,17.169 -91.3237,17.218 -91.3264,17.2383 -90.874,17.2368 -90.8735,17.5656 -90.873,17.7981 -90.869,17.8 -90.8117,17.8001 -90.6678,17.8003 -90.481,17.8012 -90.1291,17.8012 -89.8908,17.8011 -89.6335,17.8009 -89.3222,17.7998 -89.034,17.7992 -89.0342,17.6996 -89.0358,17.3225 -89.0376,16.9948 -89.077,16.3961 -89.0972,16.0861 -89.1097,15.8976 -89.1095,15.8722 -89.0628,15.8925 -88.9405,15.8887 -88.8743,15.8805 -88.8043,15.8761 -88.8043,15.8761 19,-6.0,Belize -87.8221,17.2583 -87.8297,17.2738 -87.8285,17.2874 -87.8115,17.3987 -87.7157,17.5293 -87.7037,17.5274 -87.6749,17.4994 -87.6732,17.4829 -87.6797,17.4699 -87.7129,17.4095 -87.7252,17.3978 -87.7347,17.3934 -87.7468,17.3983 -87.7564,17.4029 -87.7837,17.3862 -87.7973,17.3666 -87.8187,17.2709 -87.8221,17.2583 -87.8221,17.2583 24,3.0,Saudi Arabia 41.8359,16.9807 41.871,16.9705 41.8893,16.9568 41.9375,16.7366 41.9256,16.7329 41.879,16.7458 41.8334,16.7789 41.8099,16.8109 41.7869,16.85 41.7843,16.8636 41.7924,16.8765 41.8203,16.8798 41.8431,16.8884 41.878,16.9131 41.881,16.9328 41.8768,16.9457 41.8652,16.9586 41.8535,16.9645 41.803,16.9735 41.7922,16.9841 41.8011,16.9917 41.816,16.9861 41.8359,16.9807 41.8359,16.9807 50,3.0,Saudi Arabia 42.1199,16.5445 42.0832,16.5531 42.0707,16.5584 42.0621,16.5645 42.0328,16.5946 42.0523,16.6013 42.0583,16.6229 42.0437,16.6395 42.0353,16.6453 42.0199,16.6516 42.0079,16.6551 41.986,16.6551 41.9662,16.6514 41.9561,16.648 41.9478,16.6422 41.9328,16.6293 41.921,16.6235 41.909,16.6251 41.8818,16.6373 41.8429,16.6624 41.7886,16.7004 41.7204,16.76 41.7049,16.8407 41.7033,16.8574 41.7144,16.8547 41.7249,16.851 41.7588,16.8312 41.7919,16.8047 41.8111,16.7788 41.8158,16.7624 41.8235,16.7377 41.8445,16.7165 41.8702,16.7029 41.8945,16.6923 41.9073,16.6904 42.0191,16.692 42.0034,16.7148 41.992,16.7059 41.9774,16.7098 41.9656,16.7209 41.9655,16.7352 41.9914,16.7867 42.0063,16.7907 42.0253,16.7916 42.0921,16.6973 42.1087,16.6349 42.1268,16.566 42.1278,16.5483 42.1199,16.5445 42.1199,16.5445 477,0.0,Senegal -12.2304,14.7479 -12.2296,14.7343 -12.1642,14.5914 -12.2025,14.5237 -12.2112,14.489 -12.1921,14.3794 -12.1366,14.3583 -12.016,14.2618 -11.9682,14.1572 -11.9661,14.1356 -11.9903,14.0461 -12.0,14.0029 -11.9938,13.9506 -11.9726,13.9281 -11.9446,13.9072 -11.9294,13.8912 -11.9278,13.868 -11.9287,13.8435 -11.9339,13.8149 -11.9419,13.7857 -11.9539,13.7663 -11.9755,13.7459 -11.996,13.7312 -12.0273,13.7132 -12.0503,13.6805 -12.0432,13.6494 -12.0204,13.5957 -11.9769,13.5414 -11.9518,13.5129 -11.8646,13.4054 -11.8734,13.3669 -11.796,13.2945 -11.7451,13.3499 -11.7273,13.3942 -11.7027,13.3977 -11.6212,13.3767 -11.5947,13.3435 -11.5388,13.2681 -11.5259,13.24 -11.543,13.1976 -11.5157,13.1255 -11.5018,13.0975 -11.4501,13.0712 -11.3631,12.9683 -11.3568,12.9178 -11.3818,12.8177 -11.411,12.6421 -11.4041,12.5555 -11.3958,12.5212 -11.3608,12.4339 -11.36,12.394 -11.4143,12.4125 -11.4634,12.4219 -11.5066,12.4207 -11.6325,12.4077 -11.6622,12.3868 -11.6802,12.3766 -11.7232,12.3668 -11.7442,12.3661 -11.8284,12.3726 -11.8818,12.3955 -12.0202,12.3867 -12.1142,12.3692 -12.1356,12.351 -12.1564,12.34 -12.1823,12.3319 -12.3312,12.288 -12.3597,12.3204 -12.3805,12.3535 -12.4319,12.3734 -12.4649,12.3813 -12.4884,12.3813 -12.5686,12.3499 -12.5736,12.3582 -12.6197,12.4224 -12.7726,12.4512 -12.8311,12.4984 -12.8816,12.5309 -12.9121,12.5284 -12.9318,12.5093 -12.9468,12.4598 -13.0307,12.4653 -13.049,12.4892 -13.0538,12.5182 -13.0408,12.542 -13.0275,12.576 -13.0416,12.6199 -13.1914,12.638 -13.2951,12.6356 -13.3413,12.6512 -13.6123,12.6636 -13.6974,12.6632 -13.8416,12.6624 -13.9827,12.6621 -14.1207,12.6631 -14.3254,12.6646 -14.3767,12.6649 -14.5006,12.6656 -14.6325,12.6667 -14.8577,12.6679 -14.9065,12.6685 -15.2008,12.6708 -15.3171,12.602 -15.3438,12.5839 -15.4019,12.5373 -15.5972,12.4488 -15.6674,12.4163 -15.7916,12.4269 -15.8706,12.4343 -15.9443,12.4224 -15.9824,12.438 -16.0011,12.4469 -16.0219,12.4533 -16.054,12.4582 -16.0838,12.4575 -16.1908,12.4471 -16.3632,12.3608 -16.5001,12.3341 -16.53,12.3435 -16.6444,12.3472 -16.6739,12.3419 -16.6912,12.3231 -16.6989,12.3086 -16.7118,12.3209 -16.7743,12.4091 -16.7829,12.4324 -16.7812,12.4727 -16.7676,12.4972 -16.7435,12.5216 -16.5651,12.6184 -16.483,12.5821 -16.4031,12.5451 -16.3558,12.5315 -16.3248,12.5462 -16.2737,12.5747 -16.2151,12.5769 -16.178,12.5661 -16.0977,12.5919 -16.0102,12.6163 -15.9797,12.6101 -15.9466,12.5821 -15.9183,12.5639 -15.8069,12.5368 -15.7861,12.5484 -15.7562,12.5733 -15.712,12.5727 -15.6734,12.5591 -15.6594,12.529 -15.6166,12.5173 -15.5574,12.5472 -15.4915,12.623 -15.5114,12.6832 -15.5244,12.7016 -15.5123,12.768 -15.4137,12.7898 -15.382,12.7829 -15.3744,12.8186 -15.4283,12.8176 -15.5093,12.7914 -15.536,12.7597 -15.5468,12.7201 -15.5371,12.7022 -15.522,12.6402 -15.5333,12.6191 -15.6009,12.5576 -15.6278,12.543 -15.6486,12.5596 -15.6491,12.5883 -15.6805,12.6004 -15.7496,12.6052 -15.8279,12.5942 -15.8877,12.58 -15.9273,12.6024 -15.9641,12.6394 -15.997,12.6873 -16.0033,12.7107 -16.028,12.6438 -16.0532,12.6204 -16.1398,12.5937 -16.1871,12.5983 -16.2756,12.5873 -16.331,12.5681 -16.3488,12.5504 -16.4029,12.5628 -16.4336,12.5801 -16.5521,12.6571 -16.5783,12.7214 -16.575,12.7692 -16.6302,12.7073 -16.6309,12.6719 -16.6279,12.6474 -16.6277,12.6182 -16.6989,12.5672 -16.7339,12.5506 -16.7561,12.5651 -16.7744,12.6982 -16.7811,12.7931 -16.7775,12.8134 -16.7584,12.844 -16.7384,12.8837 -16.7302,12.9863 -16.7291,13.0115 -16.7301,13.032 -16.7317,13.0453 -16.6813,13.1426 -16.5993,13.1505 -15.9804,13.1483 -15.8774,13.146 -15.8444,13.1449 -15.7915,13.1451 -15.7912,13.2305 -15.7885,13.3246 -15.4003,13.3603 -15.3427,13.3515 -15.3163,13.3511 -15.2729,13.3579 -15.2467,13.3682 -15.2295,13.3789 -15.2069,13.3984 -15.1932,13.4191 -15.187,13.4471 -15.1864,13.4727 -15.184,13.51 -15.1576,13.5377 -15.1302,13.5712 -15.0942,13.5806 -15.0648,13.5464 -15.028,13.513 -14.9722,13.4781 -14.9552,13.4677 -14.9374,13.4571 -14.9082,13.4455 -14.8162,13.4204 -14.7533,13.4094 -14.7384,13.3894 -14.7183,13.3608 -14.6976,13.3458 -14.6698,13.3358 -14.6307,13.329 -14.5309,13.321 -14.5044,13.299 -14.372,13.2339 -14.3348,13.2229 -14.1982,13.216 -14.1719,13.2185 -14.1353,13.2318 -14.1139,13.2459 -14.0794,13.2702 -14.0327,13.2797 -13.9768,13.2879 -13.8571,13.3061 -13.8422,13.3131 -13.8341,13.3183 -13.8082,13.3411 -13.7874,13.3695 -13.7825,13.3983 -13.7877,13.4282 -13.8114,13.4655 -13.8297,13.4819 -13.8524,13.4932 -13.871,13.5294 -13.9032,13.5532 -13.9643,13.5675 -14.0662,13.5454 -14.1595,13.5112 -14.1821,13.5014 -14.2064,13.4834 -14.2206,13.4665 -14.3183,13.4392 -14.3531,13.452 -14.3816,13.4682 -14.4127,13.4897 -14.4298,13.5113 -14.4561,13.5195 -14.4611,13.5558 -14.4667,13.5786 -14.4878,13.613 -14.5188,13.6354 -14.5456,13.6469 -14.5821,13.655 -14.6087,13.6526 -14.629,13.6477 -14.6514,13.6383 -14.6801,13.6171 -14.6994,13.5983 -14.7747,13.6382 -14.7766,13.6635 -14.7849,13.694 -14.7989,13.7259 -14.8116,13.7414 -14.8389,13.7632 -14.8429,13.7656 -14.8657,13.7779 -14.8944,13.7871 -15.0527,13.8109 -15.1468,13.7796 -15.1991,13.7486 -15.2335,13.7296 -15.2539,13.7552 -15.2825,13.7749 -15.3188,13.7775 -15.3465,13.7659 -15.4024,13.7281 -15.4178,13.7148 -15.4376,13.6932 -15.4564,13.6539 -15.4662,13.6256 -15.4702,13.5756 -15.5567,13.5755 -15.6276,13.576 -15.9111,13.5776 -16.0701,13.5771 -16.1521,13.5773 -16.5464,13.5749 -16.6009,13.6432 -16.623,13.6815 -16.6192,13.7375 -16.6059,13.7617 -16.5807,13.7919 -16.5539,13.8178 -16.5214,13.8273 -16.5018,13.8167 -16.4781,13.8519 -16.4715,13.9425 -16.5409,13.8472 -16.679,13.7552 -16.7159,13.8011 -16.72,13.8257 -16.726,13.9378 -16.6995,13.9674 -16.6679,13.9772 -16.6381,13.9627 -16.6194,13.9462 -16.5589,13.986 -16.553,14.0064 -16.54,14.0381 -16.4867,14.0895 -16.3928,14.13 -16.3461,14.1467 -16.3482,14.1508 -16.3656,14.1469 -16.4337,14.1585 -16.4939,14.1276 -16.5248,14.0757 -16.5421,14.0517 -16.6168,13.9878 -16.6412,13.9846 -16.7563,13.9971 -16.7783,14.0744 -16.7936,14.1069 -16.8379,14.1412 -16.8569,14.1627 -16.8809,14.2475 -16.9277,14.3594 -16.952,14.3891 -16.9807,14.412 -17.0162,14.4255 -17.0424,14.438 -17.0694,14.4706 -17.1015,14.5305 -17.1278,14.5975 -17.143,14.6222 -17.1552,14.638 -17.1745,14.6537 -17.2054,14.6721 -17.317,14.7171 -17.3701,14.7237 -17.4002,14.7147 -17.4108,14.6925 -17.407,14.6582 -17.4257,14.6406 -17.5119,14.7338 -17.4629,14.7531 -17.4404,14.7561 -17.403,14.7666 -17.3627,14.7802 -17.2132,14.8527 -17.1604,14.8791 -17.1466,14.8866 -17.1255,14.9015 -17.1087,14.9146 -16.9532,15.0933 -16.8591,15.2075 -16.8094,15.2951 -16.7727,15.3678 -16.7568,15.3934 -16.7219,15.4424 -16.7107,15.4572 -16.703,15.4652 -16.6877,15.4848 -16.6501,15.5379 -16.5264,15.7393 -16.5168,15.7687 -16.5199,15.7878 -16.5275,15.799 -16.5126,15.996 -16.5075,16.0422 -16.4868,16.0762 -16.37,16.2027 -16.3477,16.2556 -16.3378,16.3045 -16.3252,16.3628 -16.302,16.4379 -16.2826,16.4808 -16.2656,16.4985 -16.1261,16.5334 -16.0959,16.5311 -16.0799,16.5083 -16.0371,16.4652 -15.9663,16.4717 -15.8965,16.4915 -15.869,16.4941 -15.8037,16.4832 -15.7291,16.4706 -15.6774,16.4616 -15.6513,16.4628 -15.5573,16.4948 -15.4913,16.5383 -15.4225,16.5608 -15.3363,16.5431 -15.2174,16.5408 -15.0701,16.5897 -15.0033,16.6202 -14.9858,16.6516 -14.9664,16.6719 -14.9433,16.666 -14.94,16.6541 -14.9336,16.6297 -14.8888,16.6168 -14.8368,16.6186 -14.7386,16.626 -14.6217,16.617 -14.4872,16.6079 -14.4362,16.6168 -14.3985,16.6319 -14.3261,16.6175 -14.2017,16.5248 -14.0128,16.3395 -13.9674,16.2818 -13.9526,16.2157 -13.7994,16.1173 -13.6867,16.1609 -13.6824,16.1491 -13.6939,16.1184 -13.6515,16.081 -13.623,16.098 -13.5636,16.1177 -13.504,16.1144 -13.3791,16.0375 -13.3086,15.9117 -13.2298,15.6631 -13.169,15.612 -13.087,15.5041 -13.0759,15.4794 -13.041,15.4626 -12.9479,15.4833 -12.9246,15.3757 -12.9144,15.3484 -12.8918,15.3347 -12.8639,15.3202 -12.8452,15.3075 -12.8264,15.2796 -12.8345,15.2489 -12.8703,15.2449 -12.8341,15.191 -12.7681,15.1326 -12.6929,15.0809 -12.6708,15.0711 -12.6475,15.0878 -12.6143,15.0829 -12.4639,14.9908 -12.437,14.9244 -12.4331,14.8892 -12.381,14.8366 -12.269,14.7695 -12.2304,14.7479 -12.2304,14.7479 18,6.5,Myanmar (Burma) 97.4015,16.4869 97.4863,16.4643 97.4967,16.4582 97.4997,16.4468 97.5001,16.429 97.4588,16.2254 97.4524,16.2156 97.4406,16.2128 97.4289,16.214 97.4039,16.2222 97.3854,16.2376 97.376,16.2493 97.3491,16.2997 97.3316,16.4267 97.3503,16.4685 97.387,16.485 97.4015,16.4869 97.4015,16.4869 19,-6.0,Honduras -86.5228,16.2521 -86.5297,16.2552 -86.5306,16.2751 -86.5178,16.2922 -86.5041,16.3103 -86.4924,16.3197 -86.4825,16.324 -86.3422,16.388 -86.3021,16.4043 -86.2333,16.4177 -86.1996,16.4137 -86.1597,16.4049 -86.1756,16.3979 -86.2117,16.3947 -86.2701,16.3814 -86.4706,16.2918 -86.4947,16.2786 -86.5228,16.2521 -86.5228,16.2521 24,6.5,Myanmar (Burma) 94.5347,16.227 94.5443,16.2147 94.5546,16.1882 94.5574,16.1664 94.5471,16.117 94.5381,16.0966 94.472,15.9938 94.3031,15.8505 94.2702,15.9512 94.2687,15.9668 94.2805,15.9848 94.2985,15.9949 94.31,15.998 94.3384,16.009 94.3523,16.0194 94.3716,16.0408 94.3894,16.0689 94.4174,16.1077 94.4581,16.1613 94.4876,16.1985 94.5193,16.2224 94.5298,16.226 94.5347,16.227 94.5347,16.227 332,-6.0,Honduras -88.1094,15.707 -88.106,15.7033 -88.0908,15.6877 -88.0643,15.6702 -88.0318,15.6653 -88.0052,15.6783 -87.9265,15.7688 -87.8112,15.8471 -87.7596,15.8699 -87.6998,15.8823 -87.6426,15.8798 -87.6222,15.9002 -87.6027,15.9036 -87.5236,15.8652 -87.4892,15.8449 -87.4209,15.7852 -87.37,15.7668 -87.3406,15.7689 -87.2779,15.8037 -87.2087,15.8183 -87.182,15.8102 -87.0592,15.7819 -86.8609,15.7413 -86.8351,15.7387 -86.7937,15.7379 -86.7148,15.7539 -86.6937,15.7664 -86.6241,15.7706 -86.3849,15.7834 -86.3317,15.7626 -86.3147,15.7539 -86.3003,15.7502 -86.2547,15.752 -86.1684,15.7938 -86.1461,15.8101 -86.126,15.8391 -86.0834,15.863 -86.0215,15.8779 -85.9996,15.8792 -85.9416,15.8774 -85.9173,15.8772 -85.8884,15.8806 -85.8492,15.8993 -85.8215,15.9209 -85.8074,15.938 -85.8041,15.9744 -85.835,15.9841 -85.8655,15.983 -85.9087,16.0039 -85.821,16.0022 -85.739,15.9927 -85.6617,15.979 -85.5558,15.9384 -85.5266,15.9181 -85.4963,15.9044 -85.4556,15.8888 -85.3939,15.8712 -85.2975,15.8731 -85.1436,15.8811 -85.0754,15.891 -85.0079,15.9085 -84.9863,15.9277 -84.9705,15.9428 -84.9488,15.9567 -84.925,15.9672 -84.8952,15.9736 -84.8189,15.9597 -84.5761,15.8594 -84.5261,15.8115 -84.5202,15.7829 -84.4979,15.7578 -84.4102,15.7648 -84.34,15.8082 -84.4246,15.8284 -84.3785,15.8325 -84.1595,15.8083 -84.0148,15.6851 -83.9375,15.6139 -83.7555,15.4429 -83.8103,15.4604 -83.8428,15.4935 -83.9107,15.5184 -84.0615,15.5331 -84.109,15.5285 -84.0995,15.5013 -84.0007,15.357 -83.9742,15.3322 -83.8113,15.2227 -83.7302,15.2541 -83.7934,15.3028 -83.853,15.326 -83.8832,15.3302 -83.9058,15.3477 -83.9277,15.3839 -83.8986,15.3974 -83.8639,15.3903 -83.8233,15.3708 -83.7194,15.3046 -83.6715,15.2632 -83.6588,15.1797 -83.6452,15.1838 -83.5293,15.251 -83.4798,15.2439 -83.432,15.2519 -83.4204,15.231 -83.4286,15.2003 -83.4474,15.1816 -83.4638,15.2041 -83.4902,15.2158 -83.5242,15.1725 -83.5168,15.1533 -83.4711,15.1412 -83.3976,15.186 -83.3972,15.2154 -83.4079,15.2634 -83.4333,15.2796 -83.4666,15.2913 -83.5169,15.33 -83.4063,15.2839 -83.3382,15.2591 -83.2941,15.2393 -83.2574,15.2079 -83.2341,15.1561 -83.2264,15.1224 -83.2085,15.079 -83.1837,15.0491 -83.1681,15.0368 -83.133,15.0161 -83.0915,14.9993 -83.0333,14.9761 -83.0601,14.9706 -83.131,14.9651 -83.2254,14.9882 -83.26,14.9982 -83.285,15.0054 -83.3866,14.9893 -83.4474,14.9318 -83.4679,14.9015 -83.7436,14.7691 -83.7654,14.7615 -83.839,14.7376 -83.8797,14.739 -83.9361,14.738 -84.0973,14.7001 -84.1613,14.6658 -84.3813,14.6024 -84.5888,14.6621 -84.6969,14.7975 -84.7263,14.8125 -84.8096,14.7903 -84.8841,14.725 -84.8953,14.7099 -84.9301,14.6535 -84.9189,14.5819 -84.9276,14.5645 -84.9615,14.5373 -84.9807,14.5283 -85.0467,14.4729 -85.0811,14.4106 -85.0799,14.3694 -85.0602,14.3437 -85.0598,14.3198 -85.0811,14.2988 -85.1178,14.2805 -85.1548,14.2825 -85.1769,14.2798 -85.1991,14.2737 -85.2227,14.2605 -85.2787,14.2198 -85.3104,14.1553 -85.3173,14.13 -85.3377,14.1068 -85.4449,14.0302 -85.4585,14.0278 -85.6298,13.947 -85.6491,13.8695 -85.6259,13.8491 -85.63,13.8177 -85.6377,13.8131 -85.6953,13.8213 -85.73,13.8441 -85.8691,13.9433 -85.8966,13.9647 -85.9209,13.9899 -85.9088,14.0396 -85.9702,14.0404 -86.0198,14.0151 -86.0328,13.9795 -86.2262,13.748 -86.3017,13.7338 -86.3704,13.7489 -86.4665,13.7639 -86.6111,13.7595 -86.6587,13.7389 -86.6645,13.6954 -86.6515,13.5525 -86.628,13.4505 -86.6117,13.4194 -86.5972,13.3392 -86.5974,13.284 -86.6371,13.249 -86.6464,13.2461 -86.6766,13.2689 -86.7185,13.2837 -86.7608,13.2685 -86.8036,13.2338 -86.819,13.1802 -86.8147,13.1486 -86.8261,13.0683 -86.8572,13.0223 -86.9243,12.9736 -86.9501,12.9706 -86.9942,12.9842 -87.2024,12.972 -87.2165,13.015 -87.2423,13.075 -87.2613,13.0946 -87.3432,13.1805 -87.4122,13.2626 -87.4009,13.2833 -87.3447,13.3351 -87.2802,13.3589 -87.2809,13.3754 -87.2986,13.3975 -87.3493,13.3997 -87.3746,13.3727 -87.3716,13.3462 -87.4314,13.3316 -87.4569,13.3492 -87.5065,13.3646 -87.5141,13.3908 -87.5145,13.4252 -87.5374,13.4442 -87.551,13.4061 -87.5597,13.3706 -87.5811,13.3478 -87.6105,13.3387 -87.638,13.3406 -87.6641,13.3542 -87.7151,13.3906 -87.6501,13.4281 -87.613,13.456 -87.6109,13.4666 -87.6149,13.4896 -87.6544,13.4995 -87.6829,13.509 -87.6763,13.5573 -87.6242,13.718 -87.5936,13.8035 -87.6064,13.8071 -87.6244,13.819 -87.6489,13.8486 -87.6996,13.8814 -87.7961,13.8838 -87.8069,13.8802 -87.8389,13.8796 -87.8516,13.8805 -87.9044,13.8597 -87.9387,13.9155 -87.9583,13.9483 -88.02,13.975 -88.0598,13.9613 -88.0947,13.9721 -88.1331,13.9249 -88.1577,13.89 -88.2172,13.8732 -88.2432,13.8594 -88.2501,13.8524 -88.274,13.8669 -88.3012,13.8684 -88.3297,13.8546 -88.3658,13.8393 -88.3866,13.8504 -88.3971,13.9004 -88.3925,13.9547 -88.4041,13.9669 -88.5272,13.9991 -88.5589,13.9986 -88.6031,14.0287 -88.6166,14.0767 -88.6312,14.0997 -88.6491,14.1189 -88.6693,14.1177 -88.7032,14.0805 -88.7245,14.0846 -88.7282,14.0984 -88.7363,14.1226 -88.7572,14.1554 -88.772,14.1717 -88.7945,14.1878 -88.817,14.1901 -88.8526,14.178 -88.8561,14.2011 -88.8572,14.2061 -88.8742,14.238 -88.9208,14.3117 -88.9335,14.3189 -89.0158,14.3086 -89.0705,14.3389 -89.109,14.3599 -89.1935,14.385 -89.2113,14.388 -89.2278,14.3944 -89.2437,14.4158 -89.2461,14.4554 -89.1311,14.5664 -89.0924,14.5687 -89.0329,14.6685 -89.026,14.6986 -89.0499,14.7173 -89.1164,14.8278 -89.1176,14.8554 -89.1009,14.8769 -89.0805,14.8911 -89.0702,14.9076 -89.0492,14.964 -89.0718,14.9818 -89.0649,15.0133 -89.0523,15.04 -89.0446,15.0566 -89.0369,15.0601 -88.8747,15.1189 -88.7315,15.2303 -88.6525,15.2785 -88.5628,15.3329 -88.447,15.4327 -88.3809,15.4875 -88.2222,15.6179 -88.2098,15.6497 -88.1344,15.6965 -88.1094,15.707 -88.1094,15.707 54,3.0,Eritrea 39.9525,15.8679 39.9677,15.8672 40.0396,15.834 40.0933,15.7842 40.088,15.7351 40.0807,15.7142 40.0813,15.7013 40.0845,15.6846 40.0947,15.6541 40.1014,15.6402 40.1202,15.6223 40.19,15.6121 40.2039,15.6381 40.1859,15.6485 40.172,15.6582 40.1778,15.6728 40.1901,15.6812 40.2043,15.6846 40.2144,15.6846 40.2359,15.6835 40.2484,15.6815 40.2654,15.6771 40.3546,15.6209 40.3617,15.6007 40.3692,15.5576 40.348,15.5554 40.2789,15.5574 40.205,15.5725 40.0717,15.5869 40.0601,15.5707 40.0408,15.5686 40.0017,15.5707 39.9332,15.5856 39.9111,15.607 39.91,15.66 39.9356,15.6474 39.977,15.6256 39.9896,15.6219 40.0116,15.6313 40.0315,15.6462 40.013,15.6719 39.9717,15.714 39.9615,15.7184 39.9247,15.7246 39.9013,15.7208 39.8858,15.7268 39.8738,15.739 39.8806,15.7685 39.9347,15.7969 39.9815,15.8046 39.9909,15.8091 39.9928,15.8199 39.9525,15.8679 39.9525,15.8679 15,3.0,Yemen 42.5383,15.2537 42.5306,15.2572 42.5149,15.2729 42.5056,15.2871 42.518,15.3727 42.5279,15.3939 42.5579,15.4332 42.5945,15.44 42.6089,15.4302 42.6009,15.3736 42.5835,15.3227 42.5637,15.2848 42.5467,15.2575 42.5383,15.2537 42.5383,15.2537 315,0.0,Burkina Faso 2.3952,11.883 2.3901,11.8741 2.3384,11.7556 2.3063,11.6754 2.2599,11.6331 2.1917,11.5908 2.0501,11.4421 2.0249,11.4185 2.018,11.4135 2.0078,11.408 1.9872,11.4045 1.8952,11.4186 1.8726,11.4301 1.8019,11.4267 1.7353,11.4033 1.6106,11.376 1.5846,11.3928 1.5682,11.4384 1.5414,11.4449 1.4811,11.447 1.4339,11.446 1.4271,11.4387 1.4152,11.4369 1.3887,11.4209 1.3268,11.3304 1.3424,11.3026 1.2633,11.2338 1.1917,11.2527 1.1476,11.2118 1.0819,11.1101 0.9844,11.067 0.9492,11.0173 0.917,10.984 0.8112,10.9846 0.7237,10.9847 0.6653,10.984 0.6301,10.9716 0.5038,10.9249 0.5142,10.9631 0.5051,10.9922 0.4164,11.0121 0.2187,11.0517 0.1898,11.0583 0.0504,11.0865 -0.0894,11.1149 -0.142,11.1253 -0.1495,11.1261 -0.1764,11.1322 -0.2864,11.1432 -0.3636,11.0726 -0.6175,10.9016 -0.665,10.9445 -0.6776,10.9763 -0.6789,10.9855 -0.7834,10.9859 -0.901,10.9946 -0.9858,11.0023 -1.0906,10.9936 -1.3709,10.9877 -1.4178,11.0141 -1.5583,11.0114 -1.5688,10.9882 -1.7265,10.9882 -1.989,10.988 -2.2971,10.9887 -2.7318,10.9896 -2.8307,10.9896 -2.8301,10.9454 -2.8338,10.8739 -2.9037,10.7253 -2.924,10.6961 -2.9128,10.6434 -2.9128,10.5861 -2.8884,10.5076 -2.8304,10.354 -2.7873,10.2594 -2.7683,10.2056 -2.791,10.1517 -2.7921,10.0437 -2.7738,9.9971 -2.7601,9.7898 -2.7908,9.7216 -2.7819,9.6776 -2.7483,9.6455 -2.7414,9.6423 -2.7582,9.6165 -2.7663,9.5903 -2.7659,9.5591 -2.7417,9.5336 -2.7109,9.5107 -2.6859,9.477 -2.6824,9.4712 -2.7283,9.4005 -2.7537,9.3854 -2.7763,9.3932 -2.7981,9.4135 -2.8474,9.471 -2.9174,9.5662 -2.9342,9.6169 -2.9657,9.6889 -2.9827,9.7137 -3.1203,9.825 -3.2047,9.8903 -3.3901,9.9089 -3.6328,9.9434 -3.7023,9.9326 -3.7491,9.9239 -3.8779,9.8869 -3.8862,9.8832 -3.899,9.8711 -3.9319,9.8523 -4.0294,9.796 -4.1193,9.8183 -4.2571,9.732 -4.2746,9.6651 -4.2783,9.641 -4.3074,9.5893 -4.3257,9.6045 -4.4211,9.6466 -4.5095,9.6795 -4.5996,9.7101 -4.6497,9.6923 -4.6991,9.6873 -4.7697,9.7257 -4.8046,9.767 -4.7799,9.772 -4.781,9.8171 -4.8249,9.8515 -4.9439,9.9377 -4.9847,10.0529 -5.1222,10.2918 -5.2381,10.3084 -5.2625,10.3076 -5.3015,10.2937 -5.3324,10.2857 -5.3652,10.2781 -5.3978,10.2862 -5.4642,10.3366 -5.5144,10.4162 -5.5136,10.4247 -5.4772,10.5155 -5.467,10.6208 -5.4582,10.6874 -5.4502,10.7096 -5.4384,10.7514 -5.4049,10.8295 -5.4132,10.8575 -5.437,10.8853 -5.4732,10.9902 -5.4803,11.0211 -5.4793,11.0648 -5.4573,11.0747 -5.3879,11.082 -5.3566,11.0892 -5.316,11.1078 -5.2935,11.1271 -5.2419,11.2401 -5.2025,11.4491 -5.1956,11.5253 -5.2178,11.5758 -5.2625,11.674 -5.2816,11.775 -5.2671,11.8306 -5.1622,11.9224 -5.141,11.9393 -5.1117,11.9512 -5.0738,11.9624 -4.9369,11.9952 -4.6933,12.0494 -4.628,12.0539 -4.6251,12.0798 -4.6193,12.1019 -4.5641,12.1877 -4.4772,12.261 -4.4123,12.2871 -4.431,12.4153 -4.4134,12.4589 -4.3919,12.4908 -4.3655,12.5147 -4.4234,12.6151 -4.4481,12.624 -4.4697,12.6512 -4.4649,12.6996 -4.4635,12.7097 -4.284,12.7007 -4.258,12.7036 -4.216,12.7213 -4.2015,12.7551 -4.1897,12.8142 -4.2024,12.9339 -4.2125,12.955 -4.2502,12.9821 -4.2722,13.007 -4.3305,13.105 -4.3087,13.1498 -4.2318,13.2262 -4.187,13.2611 -4.1517,13.2636 -3.9714,13.4611 -3.9596,13.4889 -3.9516,13.4864 -3.8986,13.4334 -3.7813,13.3443 -3.6127,13.2089 -3.5845,13.1879 -3.5337,13.1637 -3.5043,13.1641 -3.4446,13.1567 -3.4336,13.1519 -3.4231,13.1694 -3.4205,13.1967 -3.4281,13.2208 -3.4384,13.2463 -3.4218,13.2615 -3.3899,13.2618 -3.3699,13.2624 -3.2284,13.2732 -3.23,13.3078 -3.2333,13.345 -3.2564,13.4813 -3.2693,13.5352 -3.2537,13.6815 -3.2072,13.6928 -3.0956,13.6708 -2.9549,13.6139 -2.9385,13.6179 -2.8786,13.6491 -2.9011,13.7063 -2.9001,13.807 -2.8366,13.9899 -2.8119,14.0347 -2.6435,14.146 -2.5966,14.1958 -2.4622,14.2703 -2.3812,14.2496 -2.2866,14.2223 -2.2421,14.202 -2.1011,14.1367 -2.0045,14.1718 -1.994,14.2922 -1.9898,14.3267 -1.9869,14.3608 -1.9818,14.3944 -1.9783,14.4585 -1.9051,14.4724 -1.7754,14.4649 -1.676,14.4844 -1.3601,14.6848 -1.3172,14.7122 -1.0923,14.7678 -1.0725,14.7605 -1.0017,14.8237 -0.7241,15.0659 -0.443,15.0658 -0.3862,14.9884 -0.2458,15.0606 1.0E-4,14.9777 0.235,14.8985 0.2321,14.8637 0.2116,14.8475 0.1962,14.8257 0.2411,14.736 0.2253,14.6845 0.1665,14.5068 0.1892,14.4487 0.2327,14.4092 0.2962,14.3513 0.3208,14.3468 0.3843,14.2678 0.4082,14.2291 0.392,14.1649 0.3546,14.1151 0.4646,13.898 0.5149,13.8387 0.6068,13.6837 0.6244,13.6689 0.7856,13.6538 0.9956,13.551 1.0146,13.5086 1.0143,13.4727 1.0304,13.4477 1.1228,13.3986 1.1696,13.3815 1.2053,13.3728 1.2418,13.3749 1.2753,13.3331 1.1784,13.2986 1.1067,13.3203 1.0721,13.3357 1.0429,13.3486 1.0107,13.3578 0.9905,13.3568 0.9898,13.3218 0.9881,13.076 0.9883,13.0329 1.0104,13.0096 1.1162,12.9966 1.3207,12.8283 1.5765,12.6159 1.8698,12.595 1.9259,12.6863 1.9867,12.717 2.1041,12.7006 2.1398,12.6799 2.1985,12.6168 2.2183,12.5797 2.2538,12.4671 2.2333,12.4048 2.1594,12.4018 2.0749,12.3697 2.0563,12.3433 2.3183,11.9865 2.3896,11.8909 2.3952,11.883 2.3952,11.883 46,8.0,Philippines 121.7967,14.6108 121.7881,14.6128 121.7752,14.6195 121.7696,14.6288 121.7651,14.6486 121.7622,14.666 121.7661,14.7025 121.7732,14.6933 121.7883,14.6873 121.7953,14.6974 121.7923,14.7143 121.7862,14.7341 121.7703,14.7742 121.7248,14.8611 121.6863,14.9115 121.6637,14.9069 121.664,14.9322 121.6718,14.9649 121.6749,14.975 121.693,15.0103 121.7042,15.0193 121.7912,15.0403 121.8211,15.0372 121.8509,15.0284 121.8699,15.0206 121.9031,14.9904 121.9063,14.98 121.914,14.9454 121.9099,14.9365 121.8999,14.9551 121.8839,14.9715 121.8668,14.9687 121.8503,14.9377 121.8243,14.8845 121.8242,14.8693 121.8254,14.851 121.8318,14.8406 121.8497,14.8186 121.879,14.7907 121.8883,14.6958 121.8752,14.6709 121.86,14.6502 121.8366,14.6268 121.8071,14.6122 121.7967,14.6108 121.7967,14.6108 272,-5.0,Nicaragua -83.0333,14.9761 -83.098,14.9399 -83.2272,14.896 -83.2507,14.8844 -83.2704,14.8657 -83.3032,14.8251 -83.3206,14.7929 -83.2755,14.7305 -83.244,14.7144 -83.2268,14.7253 -83.18,14.6305 -83.1432,14.5362 -83.1101,14.4299 -83.0973,14.3715 -83.0906,14.3374 -83.0901,14.3081 -83.0953,14.2837 -83.1176,14.2357 -83.1612,14.1627 -83.2481,14.0381 -83.2797,14.0088 -83.3017,13.9921 -83.3298,13.952 -83.348,13.906 -83.3764,13.803 -83.3815,13.7814 -83.3978,13.7115 -83.4175,13.6204 -83.4555,13.4357 -83.4625,13.383 -83.4675,13.3413 -83.4696,13.2612 -83.4689,13.2145 -83.4652,13.1738 -83.4621,13.1527 -83.4379,13.029 -83.4074,12.8892 -83.4111,12.8444 -83.4219,12.8178 -83.4269,12.7986 -83.4453,12.6388 -83.4453,12.5879 -83.4388,12.5444 -83.4272,12.5128 -83.4104,12.484 -83.3892,12.4519 -83.3849,12.4102 -83.4013,12.3771 -83.4772,12.3761 -83.5063,12.3972 -83.5389,12.4659 -83.5411,12.4959 -83.5302,12.5428 -83.481,12.5515 -83.4679,12.5712 -83.4428,12.7563 -83.4462,12.7768 -83.4644,12.7917 -83.5083,12.804 -83.5495,12.7826 -83.5514,12.7362 -83.5266,12.7252 -83.4999,12.6715 -83.4971,12.6107 -83.6023,12.539 -83.6419,12.4672 -83.6127,12.3146 -83.5759,12.2647 -83.5745,12.2207 -83.5837,12.0372 -83.629,12.0548 -83.6457,12.0313 -83.6563,12.0004 -83.6711,11.9188 -83.7071,11.8826 -83.7346,11.8625 -83.708,11.8196 -83.6825,11.7895 -83.649,11.794 -83.6528,11.8188 -83.6349,11.848 -83.6049,11.829 -83.5833,11.7526 -83.5778,11.7303 -83.5621,11.6493 -83.5607,11.59 -83.5865,11.5877 -83.6656,11.5417 -83.7489,11.4082 -83.7649,11.3797 -83.7742,11.3509 -83.7788,11.3246 -83.7785,11.3014 -83.763,11.2036 -83.7549,11.1621 -83.7194,11.0683 -83.6958,11.0267 -83.6687,10.984 -83.6501,10.9616 -83.625,10.931 -83.5621,10.9175 -83.5535,10.9127 -83.5702,10.8766 -83.5626,10.8126 -83.5681,10.7899 -83.592,10.7751 -83.6593,10.7586 -83.6687,10.7592 -83.6802,10.7583 -83.7353,10.7343 -83.7778,10.7107 -83.8284,10.6978 -83.8662,10.7225 -83.9047,10.7547 -83.9481,10.7662 -83.9877,10.7549 -84.0235,10.7519 -84.0653,10.7722 -84.1007,10.7715 -84.1323,10.8001 -84.1806,10.8867 -84.25,10.9419 -84.5811,11.0656 -84.8092,10.9285 -84.9939,10.9977 -85.0397,11.0149 -85.0707,11.0303 -85.0799,11.0324 -85.1274,11.0528 -85.1721,11.0722 -85.2653,11.1098 -85.3264,11.114 -85.4324,11.1537 -85.4695,11.1972 -85.5191,11.2003 -85.5979,11.0639 -85.6399,11.0756 -85.6909,11.1013 -85.7053,11.1413 -85.7276,11.1778 -85.8258,11.2875 -85.953,11.3892 -86.0457,11.4532 -86.0802,11.5062 -86.1695,11.5678 -86.2865,11.6576 -86.3041,11.6733 -86.4007,11.7465 -86.4086,11.7512 -86.4228,11.7867 -86.4541,11.8321 -86.5413,11.9547 -86.5643,11.9774 -86.5749,11.9865 -86.5797,11.9932 -86.6097,12.0396 -86.6275,12.0734 -86.6541,12.133 -86.6696,12.1696 -86.6827,12.1926 -86.8237,12.279 -86.8696,12.3058 -86.9231,12.3392 -86.9851,12.3849 -87.0419,12.4301 -87.0244,12.4434 -87.0442,12.4503 -87.0989,12.4866 -87.2584,12.6175 -87.3426,12.7185 -87.4984,12.8265 -87.5408,12.856 -87.5904,12.9033 -87.5613,12.9694 -87.4866,13.0359 -87.458,13.0369 -87.432,13.0234 -87.4109,13.0072 -87.3685,12.9563 -87.3635,12.9284 -87.3192,12.9015 -87.293,12.8943 -87.2731,12.8919 -87.199,12.9079 -87.2281,12.9125 -87.2113,12.9618 -87.2024,12.972 -86.9942,12.9842 -86.9501,12.9706 -86.9243,12.9736 -86.8572,13.0223 -86.8261,13.0683 -86.8147,13.1486 -86.819,13.1802 -86.8036,13.2338 -86.7608,13.2685 -86.7185,13.2837 -86.6766,13.2689 -86.6464,13.2461 -86.6371,13.249 -86.5974,13.284 -86.5972,13.3392 -86.6117,13.4194 -86.628,13.4505 -86.6515,13.5525 -86.6645,13.6954 -86.6587,13.7389 -86.6111,13.7595 -86.4665,13.7639 -86.3704,13.7489 -86.3017,13.7338 -86.2262,13.748 -86.0328,13.9795 -86.0198,14.0151 -85.9702,14.0404 -85.9088,14.0396 -85.9209,13.9899 -85.8966,13.9647 -85.8691,13.9433 -85.73,13.8441 -85.6953,13.8213 -85.6377,13.8131 -85.63,13.8177 -85.6259,13.8491 -85.6491,13.8695 -85.6298,13.947 -85.4585,14.0278 -85.4449,14.0302 -85.3377,14.1068 -85.3173,14.13 -85.3104,14.1553 -85.2787,14.2198 -85.2227,14.2605 -85.1991,14.2737 -85.1769,14.2798 -85.1548,14.2825 -85.1178,14.2805 -85.0811,14.2988 -85.0598,14.3198 -85.0602,14.3437 -85.0799,14.3694 -85.0811,14.4106 -85.0467,14.4729 -84.9807,14.5283 -84.9615,14.5373 -84.9276,14.5645 -84.9189,14.5819 -84.9301,14.6535 -84.8953,14.7099 -84.8841,14.725 -84.8096,14.7903 -84.7263,14.8125 -84.6969,14.7975 -84.5888,14.6621 -84.3813,14.6024 -84.1613,14.6658 -84.0973,14.7001 -83.9361,14.738 -83.8797,14.739 -83.839,14.7376 -83.7654,14.7615 -83.7436,14.7691 -83.4679,14.9015 -83.4474,14.9318 -83.3866,14.9893 -83.285,15.0054 -83.26,14.9982 -83.2254,14.9882 -83.131,14.9651 -83.0601,14.9706 -83.0333,14.9761 -83.0333,14.9761 562,3.0,Ethiopia 42.3523,12.4557 42.3188,12.4166 42.2921,12.3831 42.2783,12.3453 42.2612,12.2945 42.2449,12.2802 42.2085,12.2495 42.1221,12.1238 42.0805,12.0767 42.0118,11.9626 41.9784,11.9131 41.902,11.8034 41.8448,11.7605 41.7828,11.7279 41.752,11.6254 41.7137,11.495 41.7475,11.3683 41.766,11.2456 41.7607,11.1559 41.7568,11.0867 41.7548,11.0189 41.7437,10.9957 41.7624,10.973 41.7914,10.9609 41.8361,10.9487 41.872,10.9414 41.8944,10.9378 41.946,10.9299 41.9737,10.9326 42.0343,10.9652 42.0791,10.9874 42.1255,10.9881 42.2542,10.9992 42.3123,11.0071 42.4545,11.0514 42.5614,11.0793 42.5935,11.0848 42.701,11.0655 42.7128,11.0468 42.7222,11.011 42.7453,10.9855 42.7638,10.9761 42.8438,10.9699 42.8969,10.9903 42.8705,10.9431 42.8079,10.8801 42.7915,10.8617 42.7174,10.7684 42.618,10.621 42.6344,10.571 42.6625,10.5245 42.6756,10.5061 42.6999,10.4841 42.7393,10.444 42.7504,10.4112 42.7567,10.369 42.7593,10.3384 42.7701,10.3026 42.8037,10.2081 42.8175,10.1893 42.8442,10.1608 42.876,10.1367 42.9065,10.1211 42.9338,10.1063 42.9662,10.07 42.9878,10.0137 42.996,9.982 43.0048,9.957 43.0159,9.9379 43.0373,9.914 43.0632,9.8977 43.1005,9.8917 43.1331,9.8916 43.1568,9.8813 43.1774,9.8523 43.1903,9.7883 43.1991,9.7401 43.2131,9.6739 43.2196,9.6537 43.2278,9.635 43.2358,9.624 43.2579,9.6178 43.281,9.6089 43.3391,9.5465 43.3799,9.4746 43.3772,9.4505 43.3779,9.4243 43.3938,9.4071 43.5075,9.338 43.5351,9.3256 43.5791,9.3439 43.6794,9.2524 43.9617,8.9972 44.6008,8.7855 44.9521,8.6688 45.1396,8.6066 45.3613,8.5324 45.5655,8.4638 46.0078,8.3143 46.2799,8.2233 46.5008,8.1483 46.7384,8.0675 46.942,7.9973 46.9592,7.9922 47.0342,7.993 47.5544,7.9943 47.6931,7.9946 47.7971,7.9943 47.8487,7.9942 47.9346,7.9953 47.8502,7.9115 47.7082,7.7779 47.6044,7.6803 47.5021,7.5839 46.9385,7.0492 46.5088,6.6121 46.0617,6.1551 45.9379,6.0288 45.9035,5.9924 45.6645,5.7322 45.4375,5.4838 45.3227,5.3581 45.0447,5.0547 44.9566,4.9573 44.9486,4.9489 44.8996,4.897 44.462,4.925 44.4164,4.9279 44.2397,4.9388 44.1713,4.9428 44.0087,4.9531 43.9316,4.9575 43.9099,4.9458 43.8722,4.9291 43.8372,4.9173 43.8058,4.9084 43.7831,4.9047 43.7482,4.9001 43.7175,4.8978 43.6874,4.8951 43.6366,4.8864 43.5375,4.8547 43.5182,4.8471 43.4411,4.8171 43.3096,4.7602 43.2723,4.7433 43.1443,4.6827 43.109,4.6611 43.0319,4.5993 42.9368,4.5206 42.9202,4.4995 42.9083,4.4762 42.8976,4.4414 42.8848,4.3838 42.8712,4.3591 42.828,4.3136 42.8071,4.2999 42.783,4.2907 42.7202,4.2738 42.6924,4.2681 42.6782,4.2665 42.6078,4.2601 42.5741,4.2556 42.4376,4.2241 42.3532,4.2027 42.3221,4.1975 42.2221,4.1993 42.1881,4.2032 42.1481,4.2043 42.1039,4.1986 42.07,4.1893 42.0507,4.1819 42.0261,4.1715 41.9931,4.1384 41.9118,4.0839 41.8902,4.0482 41.8911,4.0181 41.8577,3.9758 41.8444,3.9654 41.7926,3.9443 41.7536,3.9561 41.734,3.9775 41.6786,3.9956 41.5643,3.9848 41.488,3.9717 41.4407,3.9568 41.4222,3.945 41.2272,3.9367 41.1344,3.9374 41.114,3.9417 41.0885,3.9542 41.0683,3.9716 41.047,3.9921 41.0173,4.027 41.0017,4.0559 40.9631,4.1043 40.8308,4.2121 40.8073,4.2301 40.7377,4.2831 40.626,4.224 40.3531,4.1186 40.343,4.0942 40.1371,4.0182 39.9547,3.9244 39.8214,3.8654 39.7379,3.6743 39.5503,3.4972 39.5158,3.4028 39.4744,3.4055 39.4577,3.4191 39.4552,3.4462 39.4063,3.4588 39.3781,3.4564 39.2871,3.4655 39.2844,3.496 39.2518,3.4729 39.2047,3.4676 39.1526,3.4747 39.0858,3.5069 39.0405,3.5304 39.002,3.5251 38.9126,3.5148 38.8695,3.5102 38.7661,3.5393 38.6857,3.5633 38.5784,3.5976 38.4734,3.6228 38.4047,3.5957 38.2807,3.605 38.0782,3.6079 38.0133,3.648 37.9907,3.6942 37.9553,3.7244 37.2384,4.1898 37.0881,4.2817 37.0571,4.3271 36.9978,4.3706 36.8459,4.4299 36.6704,4.4291 36.6246,4.4289 36.6058,4.4418 36.3923,4.4369 36.2304,4.4343 36.1702,4.4431 36.0042,4.442 35.9104,4.5162 35.8996,4.6176 35.884,4.635 35.7338,4.7935 35.7392,5.077 35.7618,5.0997 35.7829,5.131 35.7898,5.1627 35.7642,5.2012 35.7555,5.2295 35.7578,5.2598 35.7809,5.3229 35.7561,5.3252 35.7342,5.3312 35.7131,5.3409 35.6856,5.3585 35.4873,5.4209 35.4644,5.4253 35.4033,5.4194 35.3789,5.3926 35.3124,5.3448 35.2859,5.351 35.2628,5.3716 35.2304,5.4322 35.2371,5.4521 35.2524,5.4814 35.2497,5.5019 35.0641,5.6261 35.0653,5.6819 34.9885,5.8077 34.9467,5.8716 34.9362,5.958 34.9483,6.0074 34.9418,6.0545 34.9299,6.0797 34.9125,6.0968 34.8827,6.1254 34.831,6.2306 34.8198,6.2605 34.817,6.2842 34.8107,6.3597 34.7176,6.6065 34.6656,6.6703 34.6399,6.6925 34.6156,6.7093 34.5929,6.7215 34.5638,6.7274 34.5145,6.7282 34.4898,6.7396 34.448,6.8699 34.4329,6.9066 34.392,6.9278 34.3221,6.9512 34.29,6.9511 34.2608,6.9567 34.242,6.9681 34.1972,7.0118 34.1851,7.0347 34.1554,7.0823 34.1248,7.1638 34.0608,7.1916 33.9887,7.24 33.9914,7.272 33.9943,7.2963 33.9895,7.3704 33.8475,7.5171 33.6745,7.6501 33.6096,7.6765 33.4268,7.7355 33.4018,7.7358 33.2203,7.7549 33.0597,7.7726 33.0151,7.7822 32.9779,7.8373 32.9598,7.8785 32.9549,7.9173 32.995,7.9886 33.0843,8.092 33.1258,8.1062 33.1489,8.1314 33.1412,8.2133 33.1289,8.269 33.1239,8.3472 33.1342,8.3905 33.2266,8.4521 33.2896,8.4442 33.3435,8.4284 33.4713,8.457 33.5971,8.4576 33.6324,8.4278 33.6528,8.3861 33.6776,8.3659 33.7335,8.3586 33.7521,8.3753 33.7809,8.4021 33.8149,8.4165 33.8436,8.4213 33.8777,8.4213 33.9331,8.4284 33.9643,8.451 34.0331,8.514 34.0678,8.5483 34.0837,8.5701 34.085,8.575 34.0857,8.6247 34.0922,8.7959 34.0973,8.9453 34.0632,9.3747 34.0602,9.4094 34.0577,9.4435 34.0484,9.5425 34.1025,9.7471 34.17,9.8939 34.1825,9.9626 34.1932,10.0167 34.2856,10.106 34.3109,10.227 34.3044,10.2695 34.2907,10.3387 34.2484,10.5423 34.2772,10.5748 34.3152,10.62 34.4019,10.7725 34.5564,10.8756 34.6358,10.8225 34.6727,10.7903 34.7319,10.7374 34.7623,10.7113 34.8225,10.7201 34.9369,10.8525 34.9403,10.9032 34.8949,10.9445 34.945,11.0979 34.9669,11.1621 34.9691,11.186 34.9403,11.2115 34.9327,11.2185 34.9255,11.2378 34.9287,11.2625 34.9479,11.3059 34.966,11.3364 34.9748,11.3551 35.0489,11.5229 35.0566,11.5636 35.0529,11.586 35.0395,11.6105 35.0282,11.6337 35.0194,11.7173 35.0243,11.7466 35.0449,11.7924 35.0634,11.8212 35.0773,11.8377 35.0953,11.8506 35.1293,11.8651 35.1626,11.873 35.1924,11.8848 35.2145,11.9044 35.2262,11.9204 35.2446,11.9701 35.3442,12.1521 35.6076,12.5776 35.6462,12.5881 35.66,12.6111 35.661,12.6521 35.9243,12.7015 35.9722,12.7066 35.9966,12.7009 36.0316,12.7098 36.0529,12.6921 36.0712,12.6798 36.1021,12.7009 36.1186,12.867 36.0946,12.9111 36.1015,12.9384 36.1102,12.9574 36.1282,12.9754 36.1164,13.0185 36.2074,13.353 36.3073,13.4877 36.3206,13.5046 36.3561,13.5526 36.3672,13.5799 36.3698,13.6004 36.3658,13.62 36.3673,13.6425 36.3793,13.6718 36.4291,13.7888 36.445,13.8241 36.4043,13.9413 36.497,14.2303 36.5004,14.2463 36.516,14.2729 36.5986,14.3006 36.6936,14.3112 36.7823,14.3121 36.8432,14.3043 36.9071,14.2784 36.9567,14.2456 37.0322,14.2716 37.0475,14.2963 37.0477,14.3305 37.0486,14.3554 37.0584,14.3769 37.0816,14.4096 37.1562,14.4365 37.2445,14.4356 37.2935,14.4108 37.3479,14.3404 37.3898,14.2523 37.4875,14.0987 37.5288,14.0864 37.6405,14.3441 37.794,14.6987 37.8666,14.8672 37.8817,14.8546 37.9112,14.8213 37.9338,14.7845 37.9359,14.7596 37.9738,14.7186 37.9958,14.7057 38.099,14.6669 38.144,14.6759 38.2,14.671 38.2183,14.6614 38.262,14.578 38.2886,14.5055 38.4043,14.4028 38.5164,14.4104 38.7503,14.4535 38.8476,14.4846 38.92,14.5299 38.9669,14.5729 38.9784,14.6387 39.0483,14.6273 39.0729,14.6131 39.0895,14.6015 39.1063,14.5837 39.1328,14.5482 39.1438,14.528 39.1641,14.4695 39.2173,14.4574 39.3302,14.4677 39.4364,14.4951 39.4852,14.5493 39.5676,14.4942 39.6488,14.4773 39.6798,14.4797 39.6999,14.4866 39.7335,14.4975 39.8053,14.4636 39.8405,14.4277 39.8571,14.4164 39.8991,14.4158 39.9723,14.4429 40.0702,14.4542 40.1099,14.4487 40.1325,14.4418 40.181,14.4275 40.2242,14.4088 40.2543,14.3898 40.2757,14.3716 40.3028,14.3433 40.3387,14.3092 40.3866,14.2667 40.4218,14.2454 40.5058,14.2044 40.5453,14.1873 40.5673,14.1802 40.5997,14.1731 40.6466,14.1666 40.7018,14.1571 40.7299,14.149 40.7556,14.1373 40.8624,14.0366 40.8819,14.0167 40.9609,13.9292 41.0,13.8844 41.0257,13.8512 41.0533,13.8076 41.0682,13.7816 41.0852,13.7506 41.1312,13.6666 41.1715,13.5971 41.1893,13.5803 41.3808,13.4574 41.4806,13.3963 41.5025,13.3828 41.5198,13.3717 41.5519,13.3503 41.5684,13.3386 41.7094,13.2215 41.7341,13.1973 41.7512,13.1731 41.769,13.143 41.7956,13.0911 41.7967,13.084 41.8673,12.9342 41.8794,12.9124 41.9068,12.8711 41.927,12.8491 41.9457,12.836 41.9698,12.8264 42.0007,12.8159 42.0296,12.8056 42.0503,12.7978 42.0716,12.787 42.1058,12.7641 42.1469,12.7318 42.1672,12.7117 42.2152,12.6364 42.2449,12.5842 42.259,12.5607 42.2785,12.5356 42.2972,12.5128 42.3105,12.4977 42.3523,12.4557 42.3523,12.4557 12,8.0,Philippines 122.1044,14.7016 122.0631,14.7387 122.0306,14.7524 121.9736,14.7803 121.9682,14.7895 121.9544,14.82 122.0442,14.8242 122.0676,14.8233 122.116,14.7673 122.1119,14.7082 122.1044,14.7016 122.1044,14.7016 356,7.0,Cambodia 105.088,14.3338 105.087,14.2726 105.1609,14.1625 105.253,14.0907 105.3177,14.0994 105.374,14.1196 105.4368,14.1524 105.6109,14.0954 105.6623,14.0608 105.6713,14.0172 105.686,14.0015 105.7665,13.9351 105.7883,13.9174 105.8253,13.911 105.9345,13.9144 105.9889,13.9304 106.0517,14.043 106.0449,14.0658 105.9965,14.1195 105.9116,14.2212 105.873,14.3158 105.8775,14.3514 105.9764,14.3654 106.0166,14.3626 106.0457,14.3497 106.0982,14.3655 106.1156,14.3976 106.1233,14.432 106.1278,14.4727 106.166,14.4652 106.1813,14.4436 106.1985,14.4322 106.2846,14.4421 106.3079,14.4695 106.307,14.4919 106.3499,14.548 106.4098,14.5813 106.4764,14.4934 106.5046,14.45 106.579,14.4189 106.6282,14.3935 106.6409,14.3728 106.6791,14.325 106.7261,14.288 106.9938,14.388 107.0441,14.4228 107.1087,14.4812 107.1284,14.5148 107.2219,14.5791 107.3471,14.6238 107.4204,14.6924 107.4271,14.6853 107.4322,14.6409 107.4074,14.534 107.3789,14.466 107.3553,14.4194 107.3315,14.4062 107.3071,14.4189 107.2838,14.4042 107.2504,14.3213 107.2643,14.2765 107.2601,14.2249 107.2361,14.1489 107.2197,14.1127 107.2464,14.0049 107.2589,13.989 107.3498,13.9163 107.3468,13.8258 107.3406,13.7792 107.4657,13.58 107.5064,13.5231 107.5136,13.3669 107.4842,13.2966 107.3619,13.006 107.371,12.938 107.3882,12.8698 107.3983,12.8498 107.4421,12.7967 107.4721,12.5898 107.4746,12.5406 107.4298,12.3454 107.414,12.3248 107.319,12.2411 107.3035,12.2399 107.278,12.2741 107.2584,12.2989 107.2339,12.3181 107.1766,12.309 107.1188,12.2899 107.0703,12.2735 107.0432,12.2601 106.9911,12.2024 106.9625,12.1641 106.9334,12.1258 106.8556,12.0691 106.8366,12.0612 106.7885,12.0514 106.7381,12.0539 106.6701,12.0602 106.6285,11.9868 106.6075,11.9605 106.5799,11.9494 106.5101,11.9584 106.3271,11.9689 106.3013,11.9593 106.303,11.9519 106.343,11.8719 106.3304,11.804 106.3198,11.7804 106.3302,11.6969 106.3404,11.6527 106.2994,11.6631 106.1852,11.6687 106.151,11.7048 105.9657,11.76 105.9258,11.7633 105.9049,11.7469 105.8967,11.7077 105.8439,11.6318 105.809,11.639 105.781,11.6542 105.7577,11.6576 105.736,11.6489 105.6992,11.6045 105.7021,11.5812 105.7614,11.536 105.7831,11.4225 105.766,11.3514 105.7542,11.284 105.8132,11.2078 105.8319,11.1899 106.0097,11.0744 106.0385,11.0814 106.0727,11.0416 106.0955,10.9602 106.07,10.9629 106.0356,10.9564 106.0292,10.9073 106.0598,10.8585 106.0866,10.7587 105.9659,10.7909 105.8434,10.8704 105.742,10.9044 105.665,11.0088 105.6296,11.0072 105.6059,11.0007 105.5781,10.9839 105.5192,10.9579 105.4724,10.9476 105.4386,10.9408 105.4118,10.9352 105.3151,10.9536 105.2565,10.8886 105.2461,10.8688 105.1847,10.8635 105.1183,10.8775 105.0905,10.8873 105.0762,10.894 104.9853,10.9421 104.9458,10.9082 104.9346,10.8948 104.9237,10.8698 104.9337,10.8319 104.9457,10.8115 104.9782,10.7347 104.979,10.7011 104.9447,10.6814 104.8673,10.6417 104.8395,10.6196 104.824,10.6 104.8147,10.5818 104.8033,10.5653 104.7793,10.5325 104.7628,10.5188 104.7358,10.5096 104.6861,10.5084 104.6557,10.5101 104.6183,10.5133 104.6007,10.5167 104.587,10.5196 104.5553,10.5252 104.4804,10.521 104.4518,10.4902 104.4341,10.4537 104.3734,10.4114 104.3309,10.4111 104.2317,10.4813 104.1621,10.5317 104.137,10.5545 104.0498,10.55 104.0135,10.546 103.9795,10.5359 103.9184,10.5479 103.8908,10.5551 103.8171,10.5763 103.7133,10.5338 103.6908,10.5198 103.645,10.5204 103.6227,10.4845 103.5214,10.4784 103.4081,10.5926 103.4026,10.6263 103.4448,10.7014 103.4748,10.7193 103.5707,10.7288 103.5524,10.7441 103.5626,10.7884 103.5792,10.8003 103.6034,10.8246 103.608,10.854 103.6054,10.8756 103.5978,10.9004 103.5526,11.0154 103.4418,11.1431 103.3961,11.1465 103.362,11.1196 103.3379,11.0834 103.3203,11.007 103.2978,10.9319 103.2355,10.8725 103.06,10.8535 103.0363,10.8621 103.0164,10.871 102.9829,10.9223 102.9912,10.9479 103.0032,11.0996 102.9998,11.1403 102.9789,11.1923 102.9875,11.3361 102.9626,11.4298 102.915,11.529 102.8618,11.5165 102.8462,11.5314 102.8579,11.5518 102.8692,11.5693 102.8697,11.6047 102.8558,11.6237 102.8514,11.6593 102.8753,11.6901 102.9068,11.7068 102.9498,11.6893 102.962,11.6999 102.9092,11.716 102.8884,11.7121 102.8818,11.7094 102.8643,11.6973 102.8555,11.72 102.8432,11.7435 102.8018,11.783 102.8004,11.7903 102.7817,11.8136 102.7927,11.7744 102.8159,11.7568 102.8385,11.7349 102.8524,11.7065 102.8452,11.6692 102.8444,11.6382 102.8537,11.5864 102.845,11.5627 102.8218,11.5784 102.802,11.6229 102.81,11.6394 102.8012,11.7326 102.7929,11.7549 102.7842,11.7659 102.7729,11.774 102.7324,11.8265 102.6029,12.1528 102.6026,12.1818 102.633,12.3601 102.6728,12.4021 102.6642,12.438 102.5186,12.5889 102.4549,12.6306 102.4077,12.6436 102.3882,12.6714 102.3914,12.7227 102.4064,12.7368 102.4081,12.7425 102.4185,12.7841 102.3768,12.9621 102.301,13.1024 102.2792,13.1469 102.2302,13.2668 102.2339,13.2842 102.2368,13.2956 102.2395,13.3644 102.2431,13.4819 102.2602,13.5588 102.2797,13.5536 102.3222,13.5473 102.3488,13.5467 102.4238,13.5553 102.4467,13.5654 102.4816,13.5998 102.4496,13.6316 102.4478,13.6658 102.5117,13.7016 102.6043,13.7498 102.6447,13.8353 102.6571,13.8732 102.6661,13.9079 102.6769,13.9257 102.691,13.9399 102.7394,13.9773 102.7835,14.0212 102.8206,14.1298 102.816,14.1528 102.8215,14.1676 102.8435,14.1904 102.8654,14.1956 102.9044,14.2123 102.9169,14.2222 102.9439,14.2567 102.975,14.2752 103.024,14.3014 103.0638,14.3145 103.1241,14.3192 103.1535,14.3377 103.2079,14.3424 103.2585,14.3414 103.3509,14.3575 103.3927,14.3834 103.444,14.4069 103.5381,14.4317 103.5726,14.4224 103.6018,14.3744 103.8014,14.3233 103.915,14.3318 103.9239,14.3384 103.9348,14.3435 104.0025,14.3685 104.1619,14.3916 104.3013,14.3605 104.337,14.3503 104.3537,14.3412 104.4312,14.3469 104.4619,14.3533 104.4836,14.3828 104.5223,14.4136 104.6869,14.4316 104.7674,14.4032 104.796,14.3851 104.8487,14.3774 104.8812,14.3614 104.8792,14.3306 104.8763,14.3016 104.8874,14.2729 104.9194,14.2228 104.9604,14.2032 104.9995,14.2148 105.0261,14.2342 105.0423,14.2864 105.0709,14.3336 105.088,14.3338 105.088,14.3338 147,-6.0,El Salvador -89.9926,13.7307 -90.0044,13.7735 -90.0,13.808 -89.9825,13.8529 -89.9167,13.9231 -89.7847,14.0286 -89.7505,14.0439 -89.7142,14.051 -89.6359,14.0257 -89.6428,14.0538 -89.6225,14.1022 -89.606,14.1293 -89.5823,14.1544 -89.5479,14.1799 -89.5229,14.1936 -89.5009,14.1923 -89.4751,14.1916 -89.4138,14.2182 -89.4388,14.2884 -89.4609,14.3005 -89.4846,14.3053 -89.4789,14.3698 -89.4661,14.3986 -89.444,14.4048 -89.3905,14.4052 -89.331,14.399 -89.2437,14.4158 -89.2278,14.3944 -89.2113,14.388 -89.1935,14.385 -89.109,14.3599 -89.0705,14.3389 -89.0158,14.3086 -88.9335,14.3189 -88.9208,14.3117 -88.8742,14.238 -88.8572,14.2061 -88.8561,14.2011 -88.8526,14.178 -88.817,14.1901 -88.7945,14.1878 -88.772,14.1717 -88.7572,14.1554 -88.7363,14.1226 -88.7282,14.0984 -88.7245,14.0846 -88.7032,14.0805 -88.6693,14.1177 -88.6491,14.1189 -88.6312,14.0997 -88.6166,14.0767 -88.6031,14.0287 -88.5589,13.9986 -88.5272,13.9991 -88.4041,13.9669 -88.3925,13.9547 -88.3971,13.9004 -88.3866,13.8504 -88.3658,13.8393 -88.3297,13.8546 -88.3012,13.8684 -88.274,13.8669 -88.2501,13.8524 -88.2432,13.8594 -88.2172,13.8732 -88.1577,13.89 -88.1331,13.9249 -88.0947,13.9721 -88.0598,13.9613 -88.02,13.975 -87.9583,13.9483 -87.9387,13.9155 -87.9044,13.8597 -87.8516,13.8805 -87.8389,13.8796 -87.8069,13.8802 -87.7961,13.8838 -87.6996,13.8814 -87.6489,13.8486 -87.6244,13.819 -87.6064,13.8071 -87.5936,13.8035 -87.6242,13.718 -87.6763,13.5573 -87.6829,13.509 -87.6544,13.4995 -87.6149,13.4896 -87.6109,13.4666 -87.613,13.456 -87.6501,13.4281 -87.7151,13.3906 -87.7364,13.4212 -87.7696,13.368 -87.7651,13.3453 -87.746,13.3262 -87.7236,13.3172 -87.6856,13.2801 -87.698,13.2473 -87.7312,13.2215 -87.8377,13.1419 -87.8851,13.1486 -87.9411,13.151 -87.9917,13.1522 -88.0084,13.1523 -88.026,13.1491 -88.0962,13.1448 -88.1197,13.1433 -88.3107,13.1731 -88.3747,13.2237 -88.4495,13.259 -88.5109,13.2693 -88.607,13.2461 -88.5409,13.2346 -88.5209,13.245 -88.4845,13.2485 -88.4053,13.1809 -88.4345,13.1846 -88.5144,13.1965 -88.5648,13.2066 -88.6057,13.214 -88.658,13.2208 -88.7127,13.2369 -88.731,13.2437 -88.7602,13.2679 -88.7805,13.2792 -88.8823,13.3266 -89.0122,13.3864 -89.0352,13.3952 -89.0502,13.4039 -89.0833,13.423 -89.1181,13.4402 -89.1949,13.4678 -89.2784,13.4775 -89.3641,13.4846 -89.5059,13.5002 -89.5481,13.5131 -89.5816,13.516 -89.6562,13.5157 -89.7157,13.5206 -89.7259,13.5611 -89.7434,13.5906 -89.7724,13.6132 -89.8133,13.6355 -89.8511,13.6488 -89.8965,13.6827 -89.9926,13.7307 -89.9926,13.7307 15,8.0,Philippines 122.0299,13.983 122.0217,13.9829 121.9836,14.0056 121.8543,14.0892 121.8429,14.0984 121.7762,14.1694 121.8057,14.2016 121.9847,14.0718 122.0237,14.0359 122.0348,14.0215 122.0479,14.0013 122.0474,13.9908 122.037,13.9845 122.0299,13.983 122.0299,13.983 39,8.0,Philippines 124.066,13.5003 124.0611,13.5027 124.0362,13.5175 123.9128,13.5958 123.8918,13.6336 123.8884,13.6485 123.9179,13.6726 123.932,13.6789 123.9508,13.6866 123.9818,13.7429 123.9914,13.7768 124.005,13.9055 124.0021,13.9157 123.9914,13.9338 123.9845,13.9649 123.9838,13.9821 123.9843,14.0303 123.9863,14.0446 124.0645,14.0831 124.1114,14.0299 124.1387,13.9823 124.144,13.9308 124.1693,13.9147 124.206,13.918 124.2507,13.8811 124.2636,13.8623 124.2734,13.8391 124.2751,13.778 124.1884,13.5335 124.1745,13.5407 124.1682,13.5731 124.1512,13.5786 124.1381,13.5793 124.1177,13.5789 124.1029,13.573 124.0693,13.5449 124.0657,13.5278 124.066,13.5003 124.066,13.5003 12,3.0,Yemen 42.7319,13.8938 42.7137,13.9005 42.6487,13.9798 42.64,13.9982 42.6941,14.043 42.719,14.051 42.7373,14.0317 42.7462,14.0084 42.7504,13.9814 42.7405,13.8971 42.7319,13.8938 42.7319,13.8938 655,1.0,Nigeria 7.5237,4.5994 7.4978,4.5647 7.4388,4.5452 7.2644,4.5528 7.2303,4.5585 7.1717,4.6222 7.0662,4.7479 7.0514,4.7139 7.0827,4.6648 7.1105,4.6473 7.14,4.6305 7.1617,4.5993 7.1681,4.5794 7.1713,4.5018 7.157,4.4689 7.065,4.4299 7.0348,4.4331 7.0118,4.4927 6.9955,4.5703 7.0194,4.6181 7.0313,4.6391 7.0015,4.6958 6.9562,4.7197 6.8921,4.6718 6.8986,4.6487 6.9709,4.4736 6.9798,4.4544 6.9909,4.4324 7.0038,4.4086 7.016,4.3819 7.0007,4.3664 6.9534,4.3673 6.864,4.3878 6.8141,4.5193 6.7553,4.7581 6.7988,4.4874 6.8091,4.4574 6.8275,4.4101 6.8433,4.3728 6.8409,4.3437 6.7866,4.332 6.7307,4.3318 6.7131,4.3433 6.7017,4.4525 6.705,4.4917 6.7125,4.5192 6.7267,4.5463 6.7348,4.5707 6.7249,4.5983 6.6495,4.5024 6.6574,4.4229 6.6802,4.3882 6.685,4.3269 6.6231,4.3208 6.5672,4.322 6.4865,4.3175 6.3979,4.3073 6.2936,4.2897 6.2442,4.297 6.2463,4.3321 6.2751,4.3716 6.3155,4.4195 6.2459,4.445 6.226,4.3812 6.2082,4.3011 6.1652,4.2779 6.1049,4.2681 6.0508,4.2832 5.929,4.3336 5.862,4.3765 5.7305,4.4847 5.6632,4.5532 5.5932,4.6304 5.5759,4.6509 5.5597,4.6749 5.5175,4.7524 5.4914,4.8007 5.479,4.8302 5.4459,4.9175 5.3783,5.1108 5.3937,5.1296 5.4295,5.1275 5.4478,5.112 5.4645,5.0855 5.4871,5.1392 5.4497,5.1817 5.4403,5.16 5.4085,5.1506 5.3623,5.1549 5.3394,5.3241 5.4463,5.3571 5.5334,5.4086 5.6141,5.5035 5.6298,5.5307 5.5373,5.5026 5.5003,5.4709 5.4974,5.4308 5.4812,5.4021 5.4214,5.3875 5.37,5.3843 5.256,5.4271 5.1872,5.4986 5.1826,5.5347 5.2091,5.5715 5.2719,5.5752 5.2918,5.5739 5.3738,5.5587 5.4962,5.5741 5.4963,5.6106 5.44,5.6467 5.4074,5.6359 5.1761,5.5689 5.1364,5.5978 5.081,5.6912 5.0781,5.7278 4.9942,5.8511 4.943,5.9178 4.8672,6.0074 4.7411,6.1293 4.7008,6.1642 4.5285,6.2923 4.4968,6.3092 4.4617,6.3226 4.4497,6.3312 4.4323,6.3416 4.4053,6.3531 4.3682,6.3617 4.3178,6.3651 4.2952,6.3706 4.0813,6.4025 3.9865,6.4143 3.9523,6.4158 3.841,6.4189 3.7432,6.4195 3.6901,6.4126 3.5626,6.4067 3.531,6.4055 3.4411,6.4023 3.4094,6.4028 3.3877,6.4381 3.4308,6.4465 3.5026,6.4427 3.5341,6.4424 3.7265,6.5255 3.8483,6.5943 3.8031,6.6053 3.7632,6.6056 3.7094,6.5963 3.6465,6.5571 3.5226,6.5143 3.4747,6.5341 3.4752,6.5828 3.4394,6.5709 3.3989,6.5412 3.3673,6.4402 3.3821,6.4075 3.3153,6.3785 3.1038,6.37 3.0637,6.3704 3.0368,6.3723 3.0168,6.3765 2.9708,6.3831 2.9312,6.3824 2.8784,6.3779 2.854,6.3753 2.7166,6.3585 2.7167,6.4453 2.7243,6.4677 2.7524,6.5578 2.7587,6.6639 2.7598,6.7574 2.7487,6.9136 2.7248,6.9392 2.7468,7.0865 2.7757,7.1267 2.7669,7.2466 2.7336,7.588 2.7291,7.6434 2.73,7.6499 2.7357,7.7079 2.7398,7.7809 2.7364,7.8057 2.6999,7.8564 2.6924,7.8736 2.6894,7.8976 2.706,7.9991 2.7247,8.0992 2.7385,8.1469 2.7487,8.2007 2.7331,8.2367 2.7068,8.3331 2.7225,8.4227 2.747,8.4483 2.7553,8.4818 2.7545,8.5205 2.7499,8.5263 2.7536,8.5456 2.7533,8.5725 2.7439,8.7099 2.7401,8.761 2.7422,8.7857 2.7802,9.0065 2.7889,9.0402 2.8105,9.0553 2.9021,9.069 2.9643,9.0717 2.993,9.0533 3.0917,9.0805 3.1281,9.1841 3.1631,9.2924 3.1598,9.3669 3.1454,9.4016 3.1385,9.4248 3.1679,9.4857 3.3136,9.6255 3.3597,9.6712 3.3491,9.6924 3.3338,9.7243 3.3276,9.7517 3.3305,9.7723 3.346,9.8004 3.4799,9.8446 3.5174,9.8346 3.5551,9.8693 3.6081,9.9432 3.6739,10.1004 3.6803,10.1495 3.6664,10.1751 3.6402,10.1883 3.578,10.264 3.6349,10.4021 3.6956,10.4365 3.7303,10.4181 3.7597,10.4011 3.7874,10.3927 3.8085,10.4379 3.8508,10.5732 3.8433,10.6848 3.8268,10.7 3.7813,10.7449 3.7473,10.7866 3.7452,10.8176 3.7556,10.8353 3.7712,10.8867 3.7335,11.0082 3.7266,11.0284 3.7247,11.065 3.7316,11.1082 3.7101,11.1147 3.6908,11.1223 3.6049,11.2375 3.4711,11.4169 3.5213,11.5508 3.5675,11.6381 3.6005,11.6801 3.6843,11.7365 3.6666,11.794 3.6276,11.8123 3.6129,11.9063 3.6678,11.9623 3.6669,11.9916 3.6329,12.0943 3.6524,12.2015 3.6621,12.2357 3.6571,12.4314 3.6536,12.5151 3.9078,12.7038 3.9483,12.7347 4.0726,12.9368 4.1006,12.9821 4.135,13.1625 4.1365,13.2588 4.1379,13.3863 4.1382,13.4584 4.243,13.4662 4.4739,13.6734 4.6206,13.7067 4.8802,13.7662 4.9179,13.721 4.9945,13.7183 5.2091,13.7315 5.2831,13.7376 5.336,13.7792 5.358,13.831 5.5202,13.8714 5.5419,13.8761 5.6507,13.8213 5.6937,13.8023 5.8681,13.7343 5.9551,13.6999 5.9907,13.6861 6.1262,13.6457 6.2309,13.6681 6.2755,13.6686 6.3815,13.6105 6.4159,13.5901 6.568,13.4357 6.6706,13.3303 6.7715,13.1436 6.7988,13.0933 6.9344,12.9825 7.0204,12.9812 7.0825,12.9808 7.1395,13.0283 7.2107,13.1109 7.3336,13.092 7.3716,13.0853 7.8062,13.3378 8.0344,13.3059 8.1165,13.2841 8.1323,13.2657 8.2217,13.2068 8.2422,13.2029 8.278,13.1837 8.3389,13.126 8.3993,13.0736 8.4421,13.0645 8.4616,13.0694 8.4973,13.07 8.5298,13.0615 8.5493,13.0493 8.6014,13.0107 8.623,12.9862 8.6385,12.9566 8.652,12.9313 8.8088,12.8824 8.9817,12.832 9.0009,12.8328 9.0225,12.8325 9.0548,12.8304 9.103,12.8275 9.2262,12.8154 9.4135,12.8026 9.6111,12.7904 9.6241,12.7881 9.6835,12.8568 9.8618,13.0607 9.9228,13.1215 9.9474,13.1388 9.9769,13.158 10.13,13.2412 10.1674,13.2563 10.2134,13.2658 10.3259,13.2862 10.35,13.2897 10.4003,13.2948 10.4306,13.2998 10.452,13.3039 10.5234,13.325 10.5802,13.3425 10.6327,13.3598 10.7025,13.3707 10.7375,13.3737 10.7826,13.3742 10.8289,13.3711 10.8688,13.3647 10.8945,13.3575 10.9453,13.351 10.965,13.3492 10.9989,13.3469 11.0259,13.3456 11.054,13.345 11.0884,13.3456 11.1143,13.3468 11.1585,13.3517 11.1912,13.3569 11.226,13.3604 11.2559,13.3621 11.3258,13.3644 11.3798,13.3661 11.4137,13.3641 11.4503,13.3585 11.4788,13.3508 11.518,13.3404 11.8113,13.2562 11.8772,13.2227 11.9942,13.1567 12.1616,13.1075 12.3545,13.0609 12.4155,13.0583 12.4453,13.0516 12.4777,13.0831 12.5297,13.138 12.5275,13.1744 12.5588,13.2299 12.575,13.2487 12.594,13.258 12.6324,13.2722 12.7351,13.334 12.7561,13.3625 12.8616,13.4583 12.885,13.4693 13.0015,13.5186 13.0605,13.5236 13.0789,13.5079 13.1109,13.504 13.1873,13.5123 13.24,13.5928 13.3326,13.7048 13.6097,13.7032 13.619,13.6888 13.7444,13.5127 13.8855,13.3135 14.0589,13.067 14.061,13.0539 14.085,12.9427 14.1572,12.6094 14.1833,12.4873 14.1816,12.461 14.1684,12.401 14.1588,12.3827 14.2231,12.3403 14.306,12.3424 14.3764,12.3392 14.4144,12.3343 14.4532,12.327 14.4747,12.3222 14.5034,12.302 14.5358,12.2352 14.6292,12.1749 14.6335,12.1076 14.6033,12.0151 14.6211,11.9668 14.6145,11.878 14.5959,11.8122 14.5724,11.7419 14.5776,11.6772 14.6221,11.638 14.6282,11.5594 14.5985,11.4907 14.446,11.4016 14.4206,11.3928 14.39,11.3873 14.3582,11.3654 14.3141,11.3264 14.2089,11.2547 14.1732,11.2318 14.1387,11.2225 14.0991,11.2349 14.0726,11.2456 13.9982,11.2694 13.9692,11.2551 13.8716,11.1583 13.792,11.0436 13.7596,10.9637 13.7557,10.9273 13.7035,10.8694 13.7006,10.8569 13.6913,10.8346 13.6621,10.7953 13.6343,10.7601 13.6029,10.7215 13.584,10.6989 13.5684,10.6791 13.5564,10.6564 13.5436,10.624 13.5304,10.5841 13.5047,10.4904 13.4443,10.2273 13.4542,10.1958 13.451,10.1678 13.4397,10.1476 13.3897,10.1041 13.3812,10.099 13.3118,10.0905 13.2564,10.0757 13.2386,10.0607 13.2293,10.0207 13.2137,9.8952 13.2196,9.8538 13.2454,9.7409 13.2274,9.5745 13.2037,9.5404 13.177,9.5184 13.136,9.5046 13.0819,9.5012 13.0465,9.4996 13.0095,9.4856 12.9595,9.4462 12.8836,9.3377 12.8241,9.0586 12.8338,9.0283 12.8369,9.0081 12.8113,8.8434 12.8007,8.805 12.7831,8.7618 12.6671,8.6474 12.5997,8.6222 12.5324,8.6035 12.4844,8.6177 12.4627,8.6183 12.3907,8.5908 12.3893,8.5538 12.4023,8.5376 12.4066,8.4946 12.3571,8.4375 12.3253,8.4128 12.3004,8.4187 12.2773,8.4237 12.2557,8.4146 12.2368,8.3916 12.229,8.3683 12.2234,8.3107 12.2275,8.2675 12.24,8.2328 12.2429,8.2086 12.242,8.1886 12.2319,8.1682 12.2157,8.1491 12.1991,8.1278 12.1905,8.1082 12.1862,8.0752 12.188,8.0335 12.1957,7.9945 12.1552,7.9178 12.1277,7.869 12.0995,7.8353 12.0826,7.8176 12.063,7.7876 12.0506,7.7661 12.0402,7.7486 12.0302,7.7313 12.0182,7.7011 12.0125,7.6684 12.0127,7.6466 12.0217,7.6282 12.0289,7.569 11.9006,7.4369 11.8788,7.4169 11.8511,7.3968 11.8333,7.3731 11.7864,7.2885 11.7416,7.2604 11.7751,7.2449 11.8691,7.1242 11.8507,7.077 11.7473,6.9943 11.6883,6.9683 11.6287,6.939 11.5707,6.8781 11.5463,6.8121 11.5738,6.7787 11.5757,6.7521 11.5681,6.7125 11.5448,6.651 11.4991,6.596 11.451,6.5944 11.4251,6.5829 11.4019,6.5059 11.3967,6.4773 11.3678,6.4477 11.3274,6.4336 11.2572,6.4259 11.1896,6.43 11.1755,6.4267 11.1152,6.431 11.0997,6.4464 11.0814,6.4963 11.0759,6.5178 11.0607,6.5891 11.0635,6.6425 11.0701,6.6705 11.0645,6.7016 11.0312,6.7458 11.0025,6.7702 10.9504,6.7699 10.9286,6.7715 10.8909,6.7996 10.8696,6.8262 10.8681,6.8647 10.8516,6.918 10.8302,6.952 10.8094,6.9626 10.7223,6.9937 10.6086,7.0491 10.548,7.0139 10.5017,6.8705 10.2578,6.8672 10.2191,6.8736 10.1986,6.8876 10.1818,6.9151 10.1776,6.9345 10.1762,6.9706 10.1667,6.9951 10.1548,7.0123 10.0835,6.9552 9.8688,6.7732 9.7844,6.7943 9.7755,6.7704 9.7333,6.632 9.6979,6.514 9.6446,6.5188 9.6269,6.5163 9.5838,6.4905 9.5145,6.4227 9.458,6.3972 9.4449,6.3623 9.4213,6.3204 9.3988,6.3195 9.3592,6.3194 9.3227,6.2729 9.2129,6.1437 9.0615,6.0071 8.95,5.9008 8.9243,5.8964 8.8546,5.8313 8.8409,5.716 8.8704,5.6511 8.895,5.6271 8.9101,5.5974 8.8971,5.5549 8.8742,5.5327 8.8524,5.4977 8.8272,5.3737 8.8222,5.3342 8.831,5.2967 8.8148,5.1828 8.803,5.1502 8.7071,5.0132 8.6718,4.9666 8.6111,4.8868 8.6109,4.8667 8.6252,4.8407 8.6231,4.8198 8.5933,4.805 8.582,4.8058 8.5757,4.815 8.5434,4.8011 8.5247,4.7624 8.5272,4.7382 8.5315,4.7145 8.5184,4.6965 8.4973,4.6947 8.4691,4.6987 8.3922,4.7449 8.3333,4.8007 8.2652,4.8513 8.2623,4.8372 8.25,4.8207 8.2614,4.8026 8.2883,4.7749 8.3045,4.7538 8.3498,4.627 8.2843,4.5424 8.2606,4.5373 8.1091,4.5455 8.0134,4.5462 7.7597,4.5135 7.715,4.4973 7.6868,4.4927 7.6653,4.492 7.5527,4.5205 7.5289,4.5349 7.5237,4.5994 7.5237,4.5994 8,1.0,Nigeria 7.5237,4.5994 7.5219,4.6215 7.5249,4.6674 7.5418,4.7015 7.5154,4.6857 7.5079,4.6168 7.5237,4.5994 7.5237,4.5994 19,8.0,Philippines 120.1368,13.6531 120.1154,13.6873 120.0563,13.7219 120.043,13.7213 119.9915,13.7452 119.9711,13.7639 119.9648,13.7719 119.9567,13.7852 119.9438,13.8371 119.9572,13.8481 119.9719,13.8485 120.0112,13.8379 120.0852,13.8027 120.1008,13.7928 120.1209,13.7733 120.1439,13.7388 120.1435,13.6696 120.1368,13.6531 120.1368,13.6531 179,0.0,Gambia, The -15.2837,13.4592 -15.3112,13.4391 -15.3411,13.4355 -15.3796,13.4485 -15.4663,13.4865 -15.5293,13.5137 -15.6403,13.489 -15.7047,13.4611 -15.7938,13.4415 -16.0788,13.4169 -16.0971,13.4263 -16.122,13.4386 -16.1738,13.4166 -16.2122,13.3847 -16.2499,13.3454 -16.3132,13.3234 -16.3845,13.3172 -16.4604,13.3409 -16.4945,13.3538 -16.4855,13.3722 -16.4818,13.3945 -16.5346,13.5507 -16.5464,13.5749 -16.1521,13.5773 -16.0701,13.5771 -15.9111,13.5776 -15.6276,13.576 -15.5567,13.5755 -15.4702,13.5756 -15.4662,13.6256 -15.4564,13.6539 -15.4376,13.6932 -15.4178,13.7148 -15.4024,13.7281 -15.3465,13.7659 -15.3188,13.7775 -15.2825,13.7749 -15.2539,13.7552 -15.2335,13.7296 -15.1991,13.7486 -15.1468,13.7796 -15.0527,13.8109 -14.8944,13.7871 -14.8657,13.7779 -14.8429,13.7656 -14.8389,13.7632 -14.8116,13.7414 -14.7989,13.7259 -14.7849,13.694 -14.7766,13.6635 -14.7747,13.6382 -14.6994,13.5983 -14.6801,13.6171 -14.6514,13.6383 -14.629,13.6477 -14.6087,13.6526 -14.5821,13.655 -14.5456,13.6469 -14.5188,13.6354 -14.4878,13.613 -14.4667,13.5786 -14.4611,13.5558 -14.4561,13.5195 -14.4298,13.5113 -14.4127,13.4897 -14.3816,13.4682 -14.3531,13.452 -14.3183,13.4392 -14.2206,13.4665 -14.2064,13.4834 -14.1821,13.5014 -14.1595,13.5112 -14.0662,13.5454 -13.9643,13.5675 -13.9032,13.5532 -13.871,13.5294 -13.8524,13.4932 -13.8297,13.4819 -13.8114,13.4655 -13.7877,13.4282 -13.7825,13.3983 -13.7874,13.3695 -13.8082,13.3411 -13.8341,13.3183 -13.8422,13.3131 -13.8571,13.3061 -13.9768,13.2879 -14.0327,13.2797 -14.0794,13.2702 -14.1139,13.2459 -14.1353,13.2318 -14.1719,13.2185 -14.1982,13.216 -14.3348,13.2229 -14.372,13.2339 -14.5044,13.299 -14.5309,13.321 -14.6307,13.329 -14.6698,13.3358 -14.6976,13.3458 -14.7183,13.3608 -14.7384,13.3894 -14.7533,13.4094 -14.8162,13.4204 -14.9082,13.4455 -14.9374,13.4571 -14.9552,13.4677 -14.9722,13.4781 -15.028,13.513 -15.0648,13.5464 -15.0942,13.5806 -15.1302,13.5712 -15.1576,13.5377 -15.184,13.51 -15.1864,13.4727 -15.187,13.4471 -15.1932,13.4191 -15.2069,13.3984 -15.2295,13.3789 -15.2467,13.3682 -15.2729,13.3579 -15.3163,13.3511 -15.3427,13.3515 -15.4003,13.3603 -15.7885,13.3246 -15.7912,13.2305 -15.7915,13.1451 -15.8444,13.1449 -15.8774,13.146 -15.9804,13.1483 -16.5993,13.1505 -16.6813,13.1426 -16.7317,13.0453 -16.7653,13.1264 -16.8008,13.2634 -16.8024,13.3087 -16.7977,13.3558 -16.7667,13.3727 -16.7253,13.4034 -16.7123,13.4348 -16.6907,13.4568 -16.665,13.4743 -16.6016,13.4604 -16.5906,13.457 -16.5711,13.4461 -16.5681,13.4211 -16.5921,13.426 -16.6017,13.4167 -16.5913,13.4119 -16.5874,13.3873 -16.5804,13.3655 -16.5576,13.3095 -16.5357,13.2804 -16.4027,13.2421 -16.3608,13.2607 -16.2309,13.3036 -16.205,13.2827 -16.2056,13.243 -16.1762,13.2379 -16.1528,13.247 -16.1363,13.2645 -16.1753,13.2488 -16.2054,13.3113 -16.2051,13.3332 -16.1908,13.3632 -16.1371,13.4098 -16.1051,13.4008 -16.0678,13.3937 -16.0304,13.3905 -15.7552,13.418 -15.6185,13.4377 -15.5307,13.491 -15.4721,13.4699 -15.384,13.4326 -15.3412,13.4239 -15.3105,13.4235 -15.288,13.4367 -15.2837,13.4592 -15.2837,13.4592 6,3.0,Eritrea 42.1741,13.6216 42.1432,13.6386 42.1207,13.6449 42.13,13.654 42.1741,13.6216 42.1741,13.6216 101,5.5,India 92.7809,12.8841 92.7977,12.8848 92.8132,12.8989 92.8239,12.8949 92.8545,12.8481 92.8881,12.6947 92.8873,12.5112 92.8821,12.4922 92.83,12.4021 92.8133,12.4222 92.7965,12.4343 92.7447,12.4144 92.7551,12.3787 92.7615,12.3679 92.7723,12.3576 92.7831,12.3511 92.7904,12.308 92.7706,12.2929 92.7489,12.2919 92.7727,12.2883 92.7956,12.2747 92.7979,12.2522 92.7576,12.1489 92.7032,12.0772 92.6511,12.058 92.6577,12.043 92.6912,11.9083 92.6928,11.8889 92.689,11.8509 92.6579,11.6025 92.6248,11.4904 92.6139,11.4792 92.572,11.5012 92.5607,11.5176 92.5161,11.5908 92.4228,11.8421 92.4486,11.9062 92.4655,11.9164 92.4973,11.8803 92.5218,11.9301 92.5378,12.0328 92.5439,12.1038 92.5394,12.1166 92.5369,12.128 92.54,12.1391 92.5705,12.1991 92.6063,12.2207 92.6188,12.2045 92.6189,12.1831 92.6136,12.1694 92.6197,12.1558 92.6449,12.1671 92.6645,12.1637 92.6821,12.1732 92.6868,12.1883 92.6611,12.2398 92.651,12.2506 92.6518,12.2662 92.6634,12.2596 92.6855,12.2617 92.6902,12.2778 92.6803,12.2993 92.6724,12.2958 92.6551,12.2915 92.6323,12.2999 92.6146,12.3273 92.6102,12.3437 92.6103,12.4071 92.6421,12.6708 92.6324,12.7825 92.6319,12.7954 92.6374,12.8071 92.7089,12.8835 92.706,12.9065 92.7014,13.02 92.703,13.0377 92.7069,13.0511 92.7267,13.1493 92.7352,13.3125 92.7553,13.3551 92.7793,13.3641 92.7945,13.4196 92.7867,13.45 92.8378,13.5281 92.9,13.5562 92.9385,13.5551 92.9527,13.5309 92.9755,13.3846 92.9586,13.2229 92.942,13.0627 92.9401,13.0512 92.93,13.0332 92.9194,13.0214 92.8762,13.0099 92.855,13.0229 92.8608,13.049 92.8553,13.0653 92.8251,13.0496 92.7718,12.893 92.7809,12.8841 92.7809,12.8841 22,8.0,Philippines 121.8925,13.1861 121.8612,13.1888 121.8452,13.1953 121.7297,13.2692 121.6985,13.3198 121.6881,13.359 121.6768,13.419 121.676,13.4377 121.7353,13.5265 121.8714,13.5298 121.8965,13.5157 121.9699,13.4616 121.9873,13.4416 121.9903,13.4252 121.9812,13.41 121.9842,13.3892 121.9889,13.3755 122.0047,13.3757 122.0121,13.357 121.917,13.2238 121.8925,13.1861 121.8925,13.1861 73,8.0,Philippines 120.9437,12.3186 120.8478,12.4088 120.7974,12.4873 120.7862,12.5143 120.8015,12.546 120.7964,12.5934 120.7724,12.6366 120.7188,12.703 120.6931,12.7078 120.6657,12.7107 120.6509,12.7645 120.6473,12.8114 120.6486,12.9002 120.6217,13.0029 120.6093,13.0262 120.5985,13.0442 120.5513,13.1214 120.5116,13.175 120.4536,13.2083 120.4268,13.21 120.4044,13.2158 120.2488,13.3589 120.2141,13.3643 120.1974,13.3786 120.1746,13.4046 120.1668,13.4294 120.1836,13.4608 120.2032,13.4784 120.231,13.497 120.26,13.507 120.2835,13.5093 120.5261,13.4763 120.5641,13.4684 120.5839,13.4627 120.6054,13.452 120.7787,13.4957 120.8292,13.508 120.8522,13.5033 120.8535,13.4542 120.8963,13.4074 120.9131,13.3962 120.9321,13.3892 121.0123,13.3938 121.0453,13.4052 121.0802,13.3927 121.1641,13.3324 121.3646,13.1343 121.3712,13.0353 121.3592,13.0191 121.3521,12.9955 121.3456,12.7473 121.3557,12.7293 121.3798,12.7104 121.3966,12.6913 121.416,12.6474 121.4214,12.5874 121.3767,12.5396 121.3556,12.5192 121.3303,12.5025 121.3094,12.4886 121.276,12.4261 121.2796,12.3773 121.3039,12.3381 121.2485,12.3406 121.2073,12.3077 121.0854,12.2169 120.9878,12.2315 120.9638,12.2659 120.9738,12.2972 120.983,12.3152 120.9528,12.3303 120.9437,12.3186 120.9437,12.3186 18,8.0,Philippines 123.2306,12.6773 123.1785,12.7288 123.0812,12.8183 122.8922,12.9814 122.8486,12.9912 122.811,13.0167 122.7919,13.0944 122.8537,13.1346 122.8654,13.133 122.9056,13.1222 122.9201,13.1009 123.0082,12.9707 123.0849,12.8938 123.1427,12.8237 123.2372,12.7027 123.2447,12.6816 123.2306,12.6773 123.2306,12.6773 589,1.0,Cameroon 15.4817,7.5182 15.4281,7.3865 15.3576,7.3392 15.2819,7.2895 15.2441,7.2606 15.2396,7.252 15.2143,7.228 15.1928,7.1831 15.125,7.0088 15.1195,6.9777 15.1125,6.9436 15.036,6.7637 14.9793,6.7332 14.945,6.7286 14.9211,6.6791 14.8099,6.4264 14.7803,6.3828 14.7883,6.3398 14.7256,6.2578 14.5639,6.1821 14.4329,6.0894 14.4134,6.073 14.4027,6.0344 14.408,6.0005 14.4765,5.9094 14.5398,5.9001 14.5636,5.9207 14.588,5.9157 14.6005,5.8946 14.6065,5.8276 14.6102,5.7183 14.6058,5.5147 14.6005,5.4897 14.5749,5.3989 14.5495,5.3528 14.535,5.3366 14.5162,5.2854 14.537,5.2621 14.5689,5.2394 14.5884,5.2322 14.6082,5.2279 14.6348,5.2138 14.6558,5.1741 14.6711,5.1134 14.6692,5.0319 14.6593,5.0101 14.6562,5.0067 14.6743,4.9759 14.694,4.8725 14.7036,4.8 14.7034,4.7182 14.7068,4.6385 14.7205,4.6102 14.7874,4.5331 14.8755,4.4718 14.9136,4.4558 14.9966,4.4098 15.07,4.29 15.0767,4.2621 15.0764,4.2304 15.0865,4.1359 15.1281,4.0673 15.027,4.0249 15.047,3.9571 15.0598,3.9162 15.105,3.8548 15.1205,3.834 15.2069,3.718 15.2432,3.6698 15.2498,3.663 15.2782,3.6359 15.5729,3.3411 15.7502,3.1441 15.8,3.0972 15.8473,3.1049 15.8892,3.109 15.922,3.0972 16.0557,2.94 16.085,2.895 16.0939,2.8554 16.0944,2.8224 16.0686,2.8009 16.0525,2.7877 16.0725,2.5353 16.0769,2.4949 16.0882,2.4299 16.0933,2.408 16.1154,2.3524 16.1616,2.2575 16.1742,2.2352 16.1889,2.2187 16.1853,2.211 16.1399,2.1842 16.094,2.1978 16.0653,2.1502 16.066,2.0424 16.0774,1.948 16.1111,1.8431 16.1246,1.7971 16.1429,1.723 16.0541,1.6523 16.0273,1.6725 16.0121,1.7081 16.0082,1.7286 15.9605,1.7693 15.863,1.8184 15.7397,1.9066 15.6698,1.9314 15.6286,1.9292 15.5017,1.959 15.4742,1.9726 15.4312,1.9668 15.2775,1.9744 15.2222,2.0277 15.1943,2.0341 15.1321,2.0364 15.1063,2.0099 15.0764,1.9783 15.0122,1.9849 14.8705,2.0147 14.8402,2.0805 14.7425,2.0704 14.6978,2.122 14.5465,2.1661 14.4467,2.1407 14.2825,2.15 14.103,2.1557 13.7351,2.1582 13.6465,2.1581 13.2912,2.1619 13.2792,2.1611 13.2811,2.1687 13.2794,2.2234 13.2396,2.2637 13.1566,2.2803 13.1072,2.2726 12.9855,2.2537 12.85,2.238 12.7377,2.2308 12.617,2.2488 12.5816,2.2565 12.5098,2.2807 12.4877,2.2903 12.468,2.2977 12.3218,2.3154 12.2751,2.2991 12.2157,2.2812 11.7431,2.2799 11.6869,2.3052 11.5668,2.3129 11.3545,2.2965 11.3378,2.2341 11.3272,2.1663 11.2132,2.166 11.07,2.1659 10.6414,2.165 10.5529,2.1653 10.5255,2.1653 10.4368,2.1651 10.4099,2.165 10.397,2.1656 10.3211,2.1651 10.2942,2.1651 10.1699,2.1655 10.0625,2.1653 10.0097,2.1658 9.9715,2.1711 9.9244,2.1892 9.8855,2.2075 9.8222,2.2566 9.8147,2.2761 9.8007,2.3412 9.8059,2.347 9.8104,2.4238 9.8057,2.4578 9.8036,2.4788 9.8089,2.5394 9.8122,2.5638 9.8636,2.8437 9.8851,2.9523 9.8986,2.9806 9.9241,3.0029 9.9413,3.0296 9.9512,3.0554 9.954,3.0819 9.9429,3.1128 9.9246,3.1628 9.9176,3.1822 9.9024,3.2435 9.9167,3.2647 9.8672,3.2988 9.8408,3.3382 9.801,3.3931 9.7112,3.4861 9.6868,3.5029 9.6509,3.5275 9.7249,3.5838 9.7347,3.6137 9.6978,3.5957 9.6545,3.5897 9.6165,3.5931 9.6258,3.6425 9.5434,3.7856 9.5325,3.8074 9.6296,3.8532 9.7109,3.8382 9.7114,3.8612 9.667,3.8967 9.6021,3.9452 9.5178,4.0257 9.4879,4.0651 9.4899,4.0972 9.4775,4.1084 9.438,4.073 9.4388,4.0681 9.4451,4.0598 9.497,4.0142 9.5176,3.978 9.4578,3.9039 9.4245,3.895 9.3873,3.8956 9.3623,3.8983 9.3343,3.9082 9.321,3.9177 9.2995,3.9378 9.2045,3.994 9.0924,4.0274 9.0294,4.0565 8.9639,4.0952 8.9664,4.144 8.9734,4.1648 8.9782,4.2019 8.9508,4.2382 8.9311,4.2546 8.9142,4.2924 8.8956,4.3674 8.8875,4.4458 8.8979,4.4891 8.9137,4.5108 8.9216,4.5336 8.8885,4.5834 8.8312,4.6326 8.8314,4.6071 8.8546,4.5861 8.8637,4.5434 8.7749,4.5358 8.7161,4.5712 8.6567,4.6763 8.6583,4.6387 8.6653,4.5797 8.6768,4.5486 8.702,4.5387 8.7145,4.5173 8.7045,4.4976 8.5277,4.4988 8.4987,4.5186 8.4927,4.5494 8.5009,4.6234 8.5161,4.6634 8.5738,4.8 8.582,4.8058 8.5933,4.805 8.6231,4.8198 8.6252,4.8407 8.6109,4.8667 8.6111,4.8868 8.6718,4.9666 8.7071,5.0132 8.803,5.1502 8.8148,5.1828 8.831,5.2967 8.8222,5.3342 8.8272,5.3737 8.8524,5.4977 8.8742,5.5327 8.8971,5.5549 8.9101,5.5974 8.895,5.6271 8.8704,5.6511 8.8409,5.716 8.8546,5.8313 8.9243,5.8964 8.95,5.9008 9.0615,6.0071 9.2129,6.1437 9.3227,6.2729 9.3592,6.3194 9.3988,6.3195 9.4213,6.3204 9.4449,6.3623 9.458,6.3972 9.5145,6.4227 9.5838,6.4905 9.6269,6.5163 9.6446,6.5188 9.6979,6.514 9.7333,6.632 9.7755,6.7704 9.7844,6.7943 9.8688,6.7732 10.0835,6.9552 10.1548,7.0123 10.1667,6.9951 10.1762,6.9706 10.1776,6.9345 10.1818,6.9151 10.1986,6.8876 10.2191,6.8736 10.2578,6.8672 10.5017,6.8705 10.548,7.0139 10.6086,7.0491 10.7223,6.9937 10.8094,6.9626 10.8302,6.952 10.8516,6.918 10.8681,6.8647 10.8696,6.8262 10.8909,6.7996 10.9286,6.7715 10.9504,6.7699 11.0025,6.7702 11.0312,6.7458 11.0645,6.7016 11.0701,6.6705 11.0635,6.6425 11.0607,6.5891 11.0759,6.5178 11.0814,6.4963 11.0997,6.4464 11.1152,6.431 11.1755,6.4267 11.1896,6.43 11.2572,6.4259 11.3274,6.4336 11.3678,6.4477 11.3967,6.4773 11.4019,6.5059 11.4251,6.5829 11.451,6.5944 11.4991,6.596 11.5448,6.651 11.5681,6.7125 11.5757,6.7521 11.5738,6.7787 11.5463,6.8121 11.5707,6.8781 11.6287,6.939 11.6883,6.9683 11.7473,6.9943 11.8507,7.077 11.8691,7.1242 11.7751,7.2449 11.7416,7.2604 11.7864,7.2885 11.8333,7.3731 11.8511,7.3968 11.8788,7.4169 11.9006,7.4369 12.0289,7.569 12.0217,7.6282 12.0127,7.6466 12.0125,7.6684 12.0182,7.7011 12.0302,7.7313 12.0402,7.7486 12.0506,7.7661 12.063,7.7876 12.0826,7.8176 12.0995,7.8353 12.1277,7.869 12.1552,7.9178 12.1957,7.9945 12.188,8.0335 12.1862,8.0752 12.1905,8.1082 12.1991,8.1278 12.2157,8.1491 12.2319,8.1682 12.242,8.1886 12.2429,8.2086 12.24,8.2328 12.2275,8.2675 12.2234,8.3107 12.229,8.3683 12.2368,8.3916 12.2557,8.4146 12.2773,8.4237 12.3004,8.4187 12.3253,8.4128 12.3571,8.4375 12.4066,8.4946 12.4023,8.5376 12.3893,8.5538 12.3907,8.5908 12.4627,8.6183 12.4844,8.6177 12.5324,8.6035 12.5997,8.6222 12.6671,8.6474 12.7831,8.7618 12.8007,8.805 12.8113,8.8434 12.8369,9.0081 12.8338,9.0283 12.8241,9.0586 12.8836,9.3377 12.9595,9.4462 13.0095,9.4856 13.0465,9.4996 13.0819,9.5012 13.136,9.5046 13.177,9.5184 13.2037,9.5404 13.2274,9.5745 13.2454,9.7409 13.2196,9.8538 13.2137,9.8952 13.2293,10.0207 13.2386,10.0607 13.2564,10.0757 13.3118,10.0905 13.3812,10.099 13.3897,10.1041 13.4397,10.1476 13.451,10.1678 13.4542,10.1958 13.4443,10.2273 13.5047,10.4904 13.5304,10.5841 13.5436,10.624 13.5564,10.6564 13.5684,10.6791 13.584,10.6989 13.6029,10.7215 13.6343,10.7601 13.6621,10.7953 13.6913,10.8346 13.7006,10.8569 13.7035,10.8694 13.7557,10.9273 13.7596,10.9637 13.792,11.0436 13.8716,11.1583 13.9692,11.2551 13.9982,11.2694 14.0726,11.2456 14.0991,11.2349 14.1387,11.2225 14.1732,11.2318 14.2089,11.2547 14.3141,11.3264 14.3582,11.3654 14.39,11.3873 14.4206,11.3928 14.446,11.4016 14.5985,11.4907 14.6282,11.5594 14.6221,11.638 14.5776,11.6772 14.5724,11.7419 14.5959,11.8122 14.6145,11.878 14.6211,11.9668 14.6033,12.0151 14.6335,12.1076 14.6292,12.1749 14.5358,12.2352 14.5034,12.302 14.4747,12.3222 14.4532,12.327 14.4144,12.3343 14.3764,12.3392 14.306,12.3424 14.2231,12.3403 14.1588,12.3827 14.1684,12.401 14.1816,12.461 14.1833,12.4873 14.1572,12.6094 14.085,12.9427 14.061,13.0539 14.0589,13.067 14.1437,13.0686 14.4198,13.0704 14.4409,13.0513 14.4566,13.0258 14.4708,13.0054 14.4847,12.9868 14.5091,12.9605 14.5235,12.8389 14.5299,12.7576 14.5653,12.7237 14.6078,12.7205 14.6923,12.7005 14.8057,12.6198 14.8856,12.3622 14.8917,12.3067 14.8857,12.2149 14.8825,12.1866 14.8779,12.1421 14.9349,12.0843 14.9567,12.0779 15.026,12.0655 15.0652,11.7415 15.0457,11.6772 15.0741,11.5754 15.0926,11.4839 15.051,11.4238 15.0346,11.3822 15.0017,11.1898 15.0026,11.1247 15.0098,11.0673 15.0594,10.8915 15.0608,10.8679 15.05,10.8329 15.0415,10.8133 15.0419,10.7899 15.0756,10.7198 15.0985,10.6923 15.1203,10.6489 15.1336,10.6039 15.1736,10.4912 15.2602,10.3789 15.3565,10.2373 15.4822,10.09 15.5251,10.0613 15.5724,10.0382 15.6134,10.0162 15.6363,10.0006 15.6582,9.9769 15.5748,9.9563 15.5182,9.9424 15.4054,9.916 15.2675,9.9626 15.2235,9.9764 15.143,9.978 15.107,9.9729 15.0849,9.9648 15.0669,9.9443 15.0368,9.9372 15.0011,9.9387 14.9105,9.9592 14.7673,9.9122 14.6367,9.948 14.4703,9.9827 14.4348,9.987 14.1792,9.9706 14.165,9.9248 14.1257,9.8491 14.1078,9.8206 14.0934,9.8006 14.0623,9.7726 14.0443,9.7633 14.0187,9.7475 13.9949,9.7194 13.9424,9.6359 13.9541,9.6192 13.9927,9.6067 14.313,9.248 14.3367,9.2199 14.3322,9.1869 14.5432,8.9974 14.6051,8.9505 14.8162,8.8039 14.8395,8.8075 14.8596,8.7995 14.9064,8.7655 15.0573,8.6339 15.1903,8.4678 15.2083,8.4267 15.2476,8.3298 15.3264,8.1627 15.3448,8.1335 15.3593,8.1032 15.3633,8.0689 15.3719,8.0308 15.4162,7.9029 15.4276,7.8736 15.4605,7.8017 15.485,7.7664 15.5066,7.7651 15.5627,7.7518 15.5647,7.7276 15.5668,7.6817 15.5553,7.6214 15.5295,7.5737 15.4817,7.5182 15.4817,7.5182 35,3.0,Yemen 54.1598,12.6365 54.1958,12.632 54.3869,12.5621 54.4124,12.5346 54.352,12.4645 54.162,12.3888 54.1189,12.3605 54.084,12.3391 54.0636,12.3343 53.9543,12.3306 53.7326,12.2992 53.6953,12.2948 53.5761,12.3151 53.5359,12.3256 53.5112,12.3327 53.3139,12.4773 53.2709,12.5321 53.3156,12.5392 53.3332,12.5525 53.3465,12.5875 53.3479,12.6074 53.3446,12.6409 53.4394,12.7029 53.5904,12.6895 53.6532,12.6482 53.7066,12.6082 53.7615,12.5915 53.9431,12.6446 54.0049,12.6716 54.0378,12.6889 54.0657,12.6848 54.0854,12.678 54.1206,12.6602 54.1598,12.6365 54.1598,12.6365 120,3.0,Djibouti 42.3523,12.4557 42.4087,12.5151 42.4372,12.508 42.4539,12.5029 42.4881,12.4903 42.5405,12.4538 42.5726,12.4169 42.6014,12.3849 42.6508,12.35 42.7022,12.3738 42.7717,12.4319 42.7603,12.4739 42.7625,12.5109 42.8814,12.6098 43.0731,12.6941 43.1021,12.6444 43.1312,12.6042 43.1592,12.5706 43.2394,12.4796 43.2683,12.4674 43.2791,12.463 43.281,12.4199 43.3258,12.2712 43.3395,12.2503 43.3618,12.2211 43.3721,12.1254 43.3667,12.0498 43.3561,12.0254 43.3229,11.98 43.2444,11.9521 43.2035,11.9452 43.1706,11.9444 43.1466,11.9348 43.0946,11.8834 43.057,11.84 43.0,11.7872 42.9707,11.7803 42.935,11.7818 42.836,11.761 42.7754,11.7402 42.7252,11.7183 42.6692,11.6392 42.649,11.6015 42.6386,11.5675 42.6278,11.5494 42.5803,11.5315 42.5105,11.5557 42.483,11.567 42.4615,11.5542 42.4855,11.5344 42.4846,11.4992 42.5483,11.4559 42.5769,11.454 42.6358,11.4776 42.6187,11.5057 42.6437,11.5274 42.6809,11.5382 42.7811,11.5642 42.8193,11.5725 42.8304,11.5689 42.8565,11.5688 42.8999,11.5726 42.9764,11.5683 42.9843,11.5673 43.0719,11.5581 43.1094,11.558 43.1872,11.4762 43.2014,11.4569 43.1773,11.4182 43.1579,11.3853 43.1387,11.3575 43.0586,11.2377 43.0167,11.1744 42.9285,11.0413 42.9063,11.0082 42.8969,10.9903 42.8438,10.9699 42.7638,10.9761 42.7453,10.9855 42.7222,11.011 42.7128,11.0468 42.701,11.0655 42.5935,11.0848 42.5614,11.0793 42.4545,11.0514 42.3123,11.0071 42.2542,10.9992 42.1255,10.9881 42.0791,10.9874 42.0343,10.9652 41.9737,10.9326 41.946,10.9299 41.8944,10.9378 41.872,10.9414 41.8361,10.9487 41.7914,10.9609 41.7624,10.973 41.7437,10.9957 41.7548,11.0189 41.7568,11.0867 41.7607,11.1559 41.766,11.2456 41.7475,11.3683 41.7137,11.495 41.752,11.6254 41.7828,11.7279 41.8448,11.7605 41.902,11.8034 41.9784,11.9131 42.0118,11.9626 42.0805,12.0767 42.1221,12.1238 42.2085,12.2495 42.2449,12.2802 42.2612,12.2945 42.2783,12.3453 42.2921,12.3831 42.3188,12.4166 42.3523,12.4557 42.3523,12.4557 233,0.0,Guinea-Bissau -16.6989,12.3086 -16.6912,12.3231 -16.6739,12.3419 -16.6444,12.3472 -16.53,12.3435 -16.5001,12.3341 -16.3632,12.3608 -16.1908,12.4471 -16.0838,12.4575 -16.054,12.4582 -16.0219,12.4533 -16.0011,12.4469 -15.9824,12.438 -15.9443,12.4224 -15.8706,12.4343 -15.7916,12.4269 -15.6674,12.4163 -15.5972,12.4488 -15.4019,12.5373 -15.3438,12.5839 -15.3171,12.602 -15.2008,12.6708 -14.9065,12.6685 -14.8577,12.6679 -14.6325,12.6667 -14.5006,12.6656 -14.3767,12.6649 -14.3254,12.6646 -14.1207,12.6631 -13.9827,12.6621 -13.8416,12.6624 -13.6974,12.6632 -13.7029,12.6289 -13.7052,12.6045 -13.7053,12.5844 -13.6975,12.5518 -13.6717,12.5125 -13.64,12.4815 -13.6304,12.463 -13.6282,12.4385 -13.6538,12.3051 -13.6802,12.2792 -13.6879,12.2668 -13.716,12.2445 -13.7915,12.2419 -13.7845,12.2662 -13.8438,12.2648 -13.9476,12.1856 -13.9481,12.1399 -13.9106,12.1352 -13.8612,12.1037 -13.7693,12.0263 -13.7286,12.0159 -13.6987,12.0029 -13.6884,11.7677 -13.6929,11.7045 -13.7576,11.6738 -13.9861,11.6282 -14.0587,11.63 -14.0635,11.6277 -14.0881,11.628 -14.1262,11.6482 -14.2636,11.6619 -14.2932,11.6159 -14.3857,11.5621 -14.4151,11.5462 -14.4941,11.5017 -14.519,11.4971 -14.5568,11.4965 -14.5815,11.5024 -14.621,11.5037 -14.6617,11.4999 -14.689,11.4803 -14.7647,11.3767 -14.7892,11.3395 -14.8119,11.2904 -14.8235,11.2484 -14.8313,11.2185 -14.8516,11.1642 -14.9083,11.0635 -14.9454,11.004 -14.9923,10.9483 -15.0003,10.9444 -15.0328,10.9236 -15.0697,10.9129 -15.0988,10.9654 -15.0825,11.0534 -15.0582,11.0906 -15.0186,11.1277 -15.0059,11.1828 -15.0808,11.1199 -15.1353,11.0736 -15.1524,11.0523 -15.1642,11.0293 -15.1877,10.993 -15.2158,10.9838 -15.2563,11.016 -15.2171,11.0535 -15.1985,11.0742 -15.1851,11.1168 -15.1917,11.2174 -15.2198,11.2014 -15.2156,11.1752 -15.2033,11.1423 -15.2155,11.1142 -15.2626,11.113 -15.29,11.1182 -15.3364,11.1295 -15.3904,11.1774 -15.4093,11.2747 -15.3981,11.3121 -15.3692,11.359 -15.3432,11.3518 -15.3159,11.3507 -15.295,11.365 -15.2722,11.385 -15.2552,11.4027 -15.2483,11.4134 -15.3183,11.3662 -15.3439,11.377 -15.3635,11.3925 -15.4045,11.3707 -15.4249,11.3329 -15.4838,11.3201 -15.4578,11.4451 -15.3088,11.5724 -15.2648,11.6062 -15.1707,11.6279 -15.0949,11.6026 -15.0777,11.5684 -15.0205,11.5634 -15.0102,11.5811 -15.0703,11.6155 -15.1559,11.6435 -15.2701,11.6364 -15.3073,11.6237 -15.3219,11.6686 -15.3267,11.6677 -15.3671,11.6119 -15.3549,11.5846 -15.3737,11.5659 -15.4269,11.5401 -15.45,11.5857 -15.4382,11.6052 -15.4121,11.6418 -15.4065,11.6631 -15.4064,11.6705 -15.4339,11.6595 -15.5138,11.6619 -15.5318,11.6773 -15.5385,11.7122 -15.5124,11.7643 -15.4412,11.852 -15.4205,11.8667 -15.3647,11.8718 -15.3379,11.8649 -15.3098,11.8553 -15.2329,11.8525 -15.1984,11.8518 -15.1772,11.8547 -15.114,11.8803 -15.0713,11.8384 -15.0494,11.7897 -14.9589,11.7383 -14.939,11.7337 -14.9137,11.7416 -14.9104,11.746 -14.9346,11.7444 -15.0369,11.8074 -15.0488,11.8339 -15.0055,11.9368 -14.9742,11.9436 -14.9913,11.963 -15.0581,11.971 -15.1271,11.9396 -15.1484,11.9137 -15.1774,11.8935 -15.1995,11.8907 -15.2991,11.916 -15.3332,11.946 -15.3529,11.9504 -15.3892,11.9501 -15.4134,11.9454 -15.4779,11.9233 -15.5216,11.8835 -15.5756,11.831 -15.6342,11.7928 -15.664,11.7848 -15.7249,11.776 -15.834,11.7548 -15.9417,11.7222 -15.9474,11.7605 -15.9113,11.8622 -15.845,11.9537 -15.8236,11.9707 -15.7733,11.9879 -15.7516,11.9701 -15.7063,11.9541 -15.6873,11.989 -15.6881,11.9966 -15.7131,11.9798 -15.746,11.9818 -15.7594,11.9997 -15.8349,12.0032 -15.8803,11.9865 -15.9061,11.9712 -15.9228,11.9384 -15.9415,11.9146 -15.9597,11.9012 -16.101,11.8652 -16.1845,11.8924 -16.2307,11.9151 -16.2693,11.9707 -16.3159,11.9857 -16.3253,12.0182 -16.3313,12.0925 -16.3144,12.1396 -16.2415,12.2087 -16.2038,12.2346 -16.1794,12.246 -16.1209,12.2718 -16.0969,12.3196 -16.2052,12.2716 -16.2631,12.2273 -16.332,12.1803 -16.4367,12.1582 -16.4768,12.1712 -16.4885,12.2004 -16.5307,12.2487 -16.5495,12.2615 -16.6656,12.3218 -16.6989,12.3086 -16.6989,12.3086 487,0.0,Guinea -13.6974,12.6632 -13.6123,12.6636 -13.3413,12.6512 -13.2951,12.6356 -13.1914,12.638 -13.0416,12.6199 -13.0275,12.576 -13.0408,12.542 -13.0538,12.5182 -13.049,12.4892 -13.0307,12.4653 -12.9468,12.4598 -12.9318,12.5093 -12.9121,12.5284 -12.8816,12.5309 -12.8311,12.4984 -12.7726,12.4512 -12.6197,12.4224 -12.5736,12.3582 -12.5686,12.3499 -12.4884,12.3813 -12.4649,12.3813 -12.4319,12.3734 -12.3805,12.3535 -12.3597,12.3204 -12.3312,12.288 -12.1823,12.3319 -12.1564,12.34 -12.1356,12.351 -12.1142,12.3692 -12.0202,12.3867 -11.8818,12.3955 -11.8284,12.3726 -11.7442,12.3661 -11.7232,12.3668 -11.6802,12.3766 -11.6622,12.3868 -11.6325,12.4077 -11.5066,12.4207 -11.4634,12.4219 -11.4143,12.4125 -11.36,12.394 -11.3703,12.3697 -11.4378,12.2307 -11.4684,12.214 -11.4816,12.1926 -11.481,12.1627 -11.4464,12.1227 -11.4364,12.1169 -11.4002,12.1066 -11.3621,12.0915 -11.3274,12.0335 -11.3069,12.0125 -11.2304,11.982 -11.1649,12.0036 -11.158,12.0139 -11.1381,12.0307 -11.0886,12.1041 -11.0331,12.1911 -10.9456,12.2127 -10.9164,12.211 -10.8974,12.2024 -10.8761,12.1841 -10.8026,12.0994 -10.7311,11.9498 -10.7159,11.9058 -10.6729,11.885 -10.6407,11.8792 -10.5508,11.981 -10.4411,12.1035 -10.3456,12.1528 -10.3192,12.1821 -10.3154,12.2099 -10.0873,12.1653 -9.9006,12.0798 -9.854,12.0415 -9.747,12.0144 -9.6909,12.0159 -9.6563,12.0685 -9.6593,12.0975 -9.6531,12.1183 -9.6338,12.1404 -9.6174,12.1519 -9.5695,12.1747 -9.3873,12.2409 -9.3599,12.2366 -9.3353,12.2393 -9.3077,12.2543 -9.2915,12.2992 -9.2844,12.3486 -9.3353,12.3926 -9.3897,12.4384 -9.349,12.4744 -9.301,12.4908 -9.2425,12.4857 -9.1424,12.4711 -9.0742,12.4235 -9.0457,12.421 -8.9698,12.379 -8.9382,12.341 -8.9334,12.3212 -8.9455,12.3018 -8.9673,12.2647 -8.9701,12.2162 -8.9517,12.1821 -8.9266,12.1775 -8.787,11.9932 -8.7696,11.9126 -8.7827,11.8435 -8.8217,11.6487 -8.764,11.6271 -8.727,11.6255 -8.6963,11.6429 -8.6847,11.6194 -8.6797,11.5895 -8.6625,11.5438 -8.647,11.5075 -8.6283,11.4844 -8.595,11.4622 -8.568,11.4572 -8.5382,11.4673 -8.5241,11.4813 -8.5071,11.4221 -8.4864,11.408 -8.4511,11.407 -8.381,11.38 -8.3535,11.3625 -8.3467,11.3015 -8.3596,11.2748 -8.3846,11.2673 -8.4219,11.2684 -8.4423,11.2793 -8.468,11.2759 -8.6004,11.1147 -8.6702,10.9904 -8.6618,10.9467 -8.5738,10.9606 -8.5015,10.9935 -8.4486,11.0386 -8.3365,11.0408 -8.2805,10.9957 -8.278,10.8374 -8.312,10.7487 -8.2727,10.5378 -8.2608,10.4907 -8.2088,10.4141 -8.1775,10.405 -8.132,10.4124 -7.9677,10.3175 -7.933,10.2318 -7.965,10.1544 -7.9959,10.0945 -8.0101,10.0778 -8.0329,10.0622 -8.0564,10.0509 -8.0921,10.0424 -8.1385,9.9728 -8.1492,9.9165 -8.121,9.875 -8.0949,9.8532 -8.0952,9.8039 -8.102,9.7981 -8.1057,9.7945 -8.1384,9.6099 -8.1363,9.5466 -8.1343,9.5233 -8.1227,9.4863 -8.1002,9.4538 -8.0554,9.4083 -8.0468,9.3929 -8.0104,9.3778 -7.9528,9.3792 -7.8685,9.3412 -7.9081,9.2249 -7.9111,9.194 -7.8944,9.1693 -7.7882,9.1157 -7.7273,9.0815 -7.7278,9.0623 -7.8017,9.059 -7.8899,9.0088 -7.9052,8.9929 -7.919,8.962 -7.9277,8.9232 -7.9476,8.8163 -7.9473,8.7948 -7.9318,8.7705 -7.9017,8.7577 -7.8749,8.7658 -7.7835,8.7459 -7.742,8.7078 -7.6647,8.6057 -7.6664,8.5382 -7.6659,8.4284 -7.6569,8.4065 -7.6448,8.3746 -7.6888,8.3616 -7.7401,8.3734 -7.7518,8.4064 -7.7754,8.4454 -7.808,8.4769 -7.94,8.4921 -8.1792,8.4897 -8.2316,8.4372 -8.2254,8.3057 -8.2226,8.2654 -8.2196,8.2312 -8.1653,8.1885 -8.1009,8.1655 -8.0537,8.1547 -8.0114,8.1705 -7.9901,8.1447 -7.9423,8.0275 -7.9376,8.0098 -8.0098,8.0214 -8.0443,8.024 -8.0413,8.0099 -8.0468,7.9677 -8.0674,7.9402 -8.1098,7.8559 -8.102,7.8323 -8.0713,7.7966 -8.085,7.7738 -8.175,7.613 -8.1772,7.5926 -8.1771,7.5647 -8.2092,7.5365 -8.2762,7.5741 -8.3886,7.6097 -8.4107,7.5964 -8.4599,7.5528 -8.4771,7.5632 -8.5408,7.6075 -8.5458,7.642 -8.5417,7.6833 -8.5635,7.6841 -8.6508,7.6866 -8.6652,7.6727 -8.6974,7.6382 -8.713,7.557 -8.7092,7.5523 -8.7022,7.5493 -8.6985,7.5073 -8.7786,7.4024 -8.8242,7.3012 -8.8341,7.2637 -8.9011,7.2456 -8.9623,7.2437 -9.0267,7.2206 -9.0887,7.1953 -9.0994,7.1861 -9.0878,7.223 -9.196,7.3412 -9.2306,7.374 -9.3139,7.4185 -9.4115,7.4168 -9.45,7.3795 -9.4744,7.3537 -9.4763,7.3618 -9.4469,7.433 -9.41,7.4685 -9.3735,7.5517 -9.3561,7.6028 -9.3671,7.6335 -9.3654,7.6746 -9.3479,7.7289 -9.3432,7.7336 -9.3491,7.7416 -9.3994,7.829 -9.4265,7.8924 -9.4207,7.9465 -9.4066,7.9657 -9.3966,8.0101 -9.4519,8.1566 -9.473,8.3378 -9.6281,8.4619 -9.6588,8.4813 -9.7816,8.4988 -9.8345,8.4853 -9.8652,8.4902 -9.8848,8.4934 -9.9544,8.4658 -10.1581,8.5033 -10.203,8.4697 -10.2551,8.4789 -10.3117,8.4999 -10.3785,8.4816 -10.4109,8.4265 -10.4239,8.3946 -10.4808,8.3391 -10.5173,8.3124 -10.5426,8.2996 -10.6836,8.2896 -10.6818,8.3528 -10.608,8.5342 -10.5645,8.5898 -10.5249,8.6104 -10.4961,8.7084 -10.571,8.8146 -10.5813,8.857 -10.5892,8.9437 -10.5837,8.9758 -10.5653,9.0312 -10.5595,9.0495 -10.5991,9.063 -10.6667,9.0679 -10.7093,9.0675 -10.7277,9.0812 -10.7115,9.1494 -10.6773,9.1961 -10.659,9.2175 -10.6455,9.2922 -10.6878,9.3359 -10.7382,9.3786 -10.8265,9.4692 -10.8971,9.5926 -10.9677,9.7166 -10.9848,9.7408 -11.0115,9.7712 -11.0393,9.7987 -11.0924,9.8428 -11.1617,9.9646 -11.2021,9.9865 -11.4462,9.9865 -11.4689,9.9863 -11.5567,9.9854 -11.5638,9.9862 -11.8815,9.985 -11.8872,9.9614 -11.8842,9.9245 -12.0922,9.8694 -12.1211,9.8641 -12.146,9.8689 -12.2062,9.901 -12.217,9.9242 -12.4423,9.8775 -12.4792,9.8528 -12.5719,9.6376 -12.5702,9.6212 -12.6024,9.5953 -12.617,9.5623 -12.6509,9.4656 -12.6653,9.4092 -12.7836,9.2877 -12.8035,9.2765 -12.8417,9.274 -12.9126,9.2789 -12.9341,9.2671 -12.9462,9.2243 -12.9618,9.1594 -12.99,9.0981 -13.0169,9.0762 -13.0784,9.0373 -13.0987,9.0339 -13.1259,9.0439 -13.168,9.0763 -13.2488,9.0525 -13.2761,9.0328 -13.2805,9.0223 -13.2955,9.0328 -13.3108,9.0601 -13.255,9.1297 -13.2577,9.1921 -13.2987,9.1953 -13.3971,9.2725 -13.5054,9.4468 -13.5081,9.4689 -13.4781,9.5493 -13.4955,9.5199 -13.5076,9.5013 -13.5288,9.4903 -13.6568,9.5527 -13.5878,9.7235 -13.5796,9.7494 -13.6021,9.7911 -13.6399,9.8238 -13.6317,9.7747 -13.6602,9.7337 -13.6818,9.7272 -13.7053,9.7302 -13.7322,9.7501 -13.7396,9.7781 -13.7187,9.8273 -13.6967,9.8469 -13.6735,9.8885 -13.6694,9.9232 -13.6735,9.941 -13.6874,9.8982 -13.7176,9.8617 -13.7665,9.8331 -13.8069,9.8387 -13.8311,9.8522 -13.9068,9.9185 -13.9253,9.9335 -14.0499,10.021 -14.1178,10.0369 -14.2089,10.0935 -14.4413,10.2823 -14.5307,10.4034 -14.5299,10.4813 -14.5197,10.495 -14.5608,10.4661 -14.6011,10.4579 -14.6446,10.4618 -14.6509,10.5132 -14.6055,10.6561 -14.5948,10.686 -14.5373,10.7676 -14.5005,10.8307 -14.5572,10.7961 -14.5956,10.7285 -14.6205,10.6746 -14.6821,10.6285 -14.6997,10.6843 -14.6914,10.7448 -14.7308,10.8217 -14.756,10.8203 -14.7923,10.8088 -14.8023,10.9052 -14.7987,10.925 -14.7629,10.9345 -14.7183,10.9471 -14.6739,11.0167 -14.7325,10.9669 -14.8493,10.9523 -14.8903,10.9156 -14.9041,10.8883 -14.9315,10.7755 -14.9676,10.7571 -14.9887,10.7598 -15.0089,10.7709 -15.0565,10.828 -15.0641,10.859 -15.0582,10.882 -15.0003,10.9444 -14.9923,10.9483 -14.9454,11.004 -14.9083,11.0635 -14.8516,11.1642 -14.8313,11.2185 -14.8235,11.2484 -14.8119,11.2904 -14.7892,11.3395 -14.7647,11.3767 -14.689,11.4803 -14.6617,11.4999 -14.621,11.5037 -14.5815,11.5024 -14.5568,11.4965 -14.519,11.4971 -14.4941,11.5017 -14.4151,11.5462 -14.3857,11.5621 -14.2932,11.6159 -14.2636,11.6619 -14.1262,11.6482 -14.0881,11.628 -14.0635,11.6277 -14.0587,11.63 -13.9861,11.6282 -13.7576,11.6738 -13.6929,11.7045 -13.6884,11.7677 -13.6987,12.0029 -13.7286,12.0159 -13.7693,12.0263 -13.8612,12.1037 -13.9106,12.1352 -13.9481,12.1399 -13.9476,12.1856 -13.8438,12.2648 -13.7845,12.2662 -13.7915,12.2419 -13.716,12.2445 -13.6879,12.2668 -13.6802,12.2792 -13.6538,12.3051 -13.6282,12.4385 -13.6304,12.463 -13.64,12.4815 -13.6717,12.5125 -13.6975,12.5518 -13.7053,12.5844 -13.7052,12.6045 -13.7029,12.6289 -13.6974,12.6632 -13.6974,12.6632 23,8.0,Philippines 121.8823,12.0808 121.8314,12.1347 121.8216,12.1565 121.7855,12.2758 121.7814,12.2894 121.7839,12.3 121.804,12.35 121.8427,12.3898 121.8527,12.3952 121.8663,12.4315 121.8725,12.4658 121.8726,12.4785 121.8659,12.5537 121.8561,12.5622 121.8627,12.5884 121.9011,12.6184 121.9856,12.663 122.0073,12.6221 122.0012,12.5567 121.9748,12.4016 121.9124,12.1633 121.8823,12.0808 121.8823,12.0808 18,8.0,Philippines 123.6487,12.3284 123.5994,12.3811 123.5872,12.3954 123.5518,12.4413 123.4903,12.5373 123.4422,12.6136 123.4434,12.6337 123.4455,12.6446 123.495,12.6597 123.5651,12.6103 123.5832,12.5958 123.5889,12.5878 123.5951,12.571 123.622,12.4953 123.6602,12.3544 123.655,12.333 123.6487,12.3284 123.6487,12.3284 26,6.5,Myanmar (Burma) 98.2022,12.3546 98.2134,12.3778 98.2207,12.3986 98.2238,12.4163 98.2236,12.4396 98.208,12.4851 98.1938,12.5681 98.1919,12.5798 98.1901,12.6185 98.2113,12.6569 98.2564,12.65 98.2846,12.6325 98.3383,12.5904 98.3511,12.5721 98.3556,12.5597 98.3576,12.4862 98.3561,12.4627 98.3476,12.4436 98.2868,12.354 98.2501,12.3102 98.237,12.3024 98.2103,12.3103 98.1952,12.3201 98.1987,12.3443 98.2022,12.3546 98.2022,12.3546 38,8.0,Philippines 123.9277,11.7029 123.8691,11.7804 123.8385,11.8105 123.782,11.8506 123.7247,11.8839 123.7003,11.8956 123.6632,11.9061 123.4771,12.0788 123.4657,12.1024 123.4462,12.133 123.3989,12.192 123.3382,12.1956 123.3032,12.186 123.2142,12.0748 123.1146,11.9573 123.0959,11.9406 123.0364,11.8927 123.0279,11.8908 123.0228,11.8933 123.0074,11.9217 123.0724,12.0536 123.1083,12.1223 123.164,12.231 123.1312,12.3253 123.0961,12.5706 123.1072,12.5918 123.1875,12.5621 123.3274,12.501 123.4043,12.4371 123.531,12.3333 123.667,12.229 123.7401,12.2034 123.7727,12.1757 123.9069,11.9654 123.936,11.8372 123.9414,11.7148 123.9277,11.7029 123.9277,11.7029 11,-5.0,Colombia -81.6212,12.4763 -81.6283,12.4824 -81.6281,12.5315 -81.6219,12.5511 -81.6127,12.5662 -81.6004,12.5763 -81.5895,12.5718 -81.5992,12.5181 -81.6107,12.4935 -81.6212,12.4763 -81.6212,12.4763 101,8.0,Philippines 125.6128,10.9965 125.5985,11.0018 125.5776,11.0185 125.5557,11.0493 125.5415,11.0741 125.5506,11.0956 125.526,11.1218 125.4316,11.1336 125.384,11.1237 125.3243,11.0864 125.1314,11.1158 125.0575,11.168 125.03,11.2413 125.018,11.26 124.9947,11.2658 124.9358,11.269 124.8616,11.3402 124.8528,11.4044 124.8332,11.4335 124.7581,11.4553 124.711,11.4522 124.6909,11.4837 124.6987,11.5052 124.7597,11.5597 124.7961,11.5532 124.8202,11.5639 124.8523,11.5995 124.9036,11.7147 124.8985,11.7399 124.8642,11.7615 124.724,11.7944 124.6337,11.885 124.5552,11.9973 124.5252,12.0192 124.5063,12.0295 124.4581,12.0473 124.3606,12.0741 124.3312,12.0906 124.3352,12.0936 124.3267,12.1144 124.3059,12.14 124.2549,12.1748 124.2044,12.2756 124.1436,12.449 124.1183,12.5372 124.1472,12.5598 124.2119,12.5229 124.3243,12.5071 124.5132,12.4902 124.5894,12.4982 124.6122,12.5012 124.7306,12.5192 124.7485,12.5408 124.9013,12.5207 124.9385,12.5304 124.9611,12.558 125.0078,12.5626 125.0377,12.5471 125.0888,12.5111 125.1566,12.4438 125.1788,12.401 125.1672,12.3811 125.1529,12.3295 125.1564,12.2797 125.1968,12.2545 125.2242,12.2719 125.25,12.2765 125.3125,12.2471 125.3647,12.1914 125.3758,12.1575 125.3399,12.1487 125.3066,12.1016 125.3093,12.0887 125.3815,12.0422 125.3516,12.012 125.3339,11.9966 125.3131,11.9777 125.2966,11.9405 125.2898,11.89 125.3037,11.8134 125.3144,11.6427 125.3067,11.6001 125.3115,11.5774 125.3896,11.4374 125.4313,11.3881 125.4528,11.3833 125.5021,11.3389 125.4974,11.3107 125.4723,11.2825 125.4379,11.2684 125.4083,11.2385 125.397,11.2142 125.4036,11.1769 125.4653,11.1783 125.4585,11.2114 125.526,11.182 125.5464,11.1552 125.6087,11.0542 125.6229,11.0089 125.6128,10.9965 125.6128,10.9965 27,8.0,Philippines 122.5035,12.2509 122.4129,12.343 122.4009,12.3506 122.3629,12.3657 122.3413,12.3723 122.326,12.3763 122.3156,12.3812 122.3069,12.3889 122.2964,12.3995 122.2873,12.4219 122.2935,12.4431 122.3216,12.4708 122.3471,12.4809 122.3958,12.4885 122.4233,12.4885 122.4794,12.4829 122.5138,12.4774 122.5319,12.4698 122.5584,12.4204 122.567,12.4028 122.5715,12.3893 122.5663,12.3503 122.5604,12.3206 122.556,12.3089 122.5439,12.2944 122.5035,12.2509 122.5035,12.2509 940,-5.0,Colombia -77.2803,8.6655 -77.2605,8.6525 -77.2141,8.5689 -77.1984,8.5071 -77.1546,8.4552 -77.1335,8.4416 -77.1131,8.4344 -77.0776,8.4249 -77.048,8.4008 -77.0324,8.3769 -76.9955,8.3167 -76.8823,8.2291 -76.8694,8.1809 -76.8621,8.1501 -76.8013,8.1125 -76.7525,8.1242 -76.748,8.1201 -76.7464,8.0774 -76.7505,8.0174 -76.7842,8.0258 -76.8066,8.0379 -76.8305,8.0225 -76.8409,7.9766 -76.8374,7.9274 -76.7853,7.9007 -76.7305,7.8963 -76.6715,7.9104 -76.6583,7.9272 -76.6459,8.0304 -76.6526,8.0817 -76.6673,8.1885 -76.6792,8.3315 -76.688,8.4021 -76.736,8.4728 -76.7907,8.5119 -76.8424,8.5279 -76.8424,8.5589 -76.799,8.6126 -76.7323,8.6245 -76.5885,8.667 -76.3475,8.8668 -76.3419,8.8967 -76.3337,8.8966 -76.3139,8.9008 -76.2885,8.9063 -76.2327,8.9287 -76.1796,8.9855 -76.0962,9.1817 -76.0883,9.2254 -76.0262,9.3051 -76.0057,9.3255 -75.9874,9.335 -75.8347,9.4118 -75.7322,9.4283 -75.6414,9.4109 -75.6041,9.4011 -75.5732,9.4153 -75.5506,9.4378 -75.5364,9.4618 -75.5146,9.5124 -75.5077,9.5363 -75.5022,9.5724 -75.5021,9.5956 -75.5081,9.6241 -75.5183,9.6549 -75.5436,9.6882 -75.5778,9.7495 -75.5522,9.8138 -75.5132,9.9466 -75.5073,9.9684 -75.4974,10.0344 -75.4973,10.0608 -75.4997,10.0775 -75.4887,10.1231 -75.4512,10.1712 -75.4488,10.2257 -75.4024,10.435 -75.4038,10.4793 -75.4212,10.5383 -75.3931,10.581 -75.326,10.6466 -75.2053,10.7127 -75.1785,10.7095 -75.1692,10.6946 -75.1438,10.7171 -75.1527,10.7502 -75.168,10.734 -75.1854,10.7413 -75.1814,10.7869 -75.1611,10.7885 -75.1399,10.7934 -74.9568,10.8939 -74.9492,10.9239 -74.9403,10.9545 -74.8384,11.0565 -74.7854,11.1074 -74.7783,11.113 -74.7519,11.0931 -74.4229,10.9812 -74.3938,10.9752 -74.3687,10.9717 -74.3414,10.9707 -74.2978,10.9707 -74.2596,10.9745 -74.2341,10.9794 -74.2102,10.987 -74.2228,10.9711 -74.2451,10.9628 -74.2727,10.9591 -74.3371,10.9537 -74.383,10.9593 -74.5097,10.8655 -74.5254,10.8116 -74.5112,10.7715 -74.4371,10.8007 -74.3833,10.7539 -74.3759,10.7305 -74.313,10.7303 -74.2934,10.7435 -74.2763,10.7713 -74.2501,10.8514 -74.2086,10.9555 -74.1817,11.0046 -74.1478,11.1064 -74.157,11.1841 -74.1548,11.2226 -74.1334,11.2568 -74.1066,11.2973 -74.0728,11.319 -73.9553,11.3437 -73.931,11.3425 -73.8875,11.3264 -73.8693,11.3067 -73.7854,11.2722 -73.7094,11.2532 -73.591,11.2529 -73.5498,11.2586 -73.5132,11.2606 -73.4757,11.2612 -73.4558,11.259 -73.4275,11.2574 -73.3032,11.2615 -73.2638,11.2669 -73.236,11.2733 -73.2035,11.2832 -73.1866,11.294 -73.1252,11.3365 -73.1146,11.3639 -73.062,11.4119 -72.9539,11.49 -72.6879,11.6746 -72.6499,11.6936 -72.4369,11.7744 -72.4065,11.7709 -72.3767,11.7721 -72.3355,11.7848 -72.1993,11.8626 -72.1782,11.8759 -72.1521,11.9018 -72.0581,12.0931 -72.0582,12.1134 -72.0652,12.1939 -72.0879,12.2078 -72.0773,12.2276 -72.0579,12.236 -71.9479,12.244 -71.884,12.2385 -71.902,12.212 -71.9312,12.1791 -71.9056,12.1435 -71.8825,12.14 -71.8573,12.1494 -71.7837,12.1971 -71.7294,12.2995 -71.6123,12.3526 -71.5509,12.4079 -71.5745,12.4251 -71.6239,12.4208 -71.6558,12.4003 -71.6437,12.427 -71.6104,12.4453 -71.5809,12.4501 -71.4833,12.4399 -71.4482,12.4323 -71.1956,12.3323 -71.1631,12.3079 -71.1411,12.2883 -71.0353,12.085 -71.0315,12.0621 -71.0346,12.0353 -71.0519,12.0042 -71.0942,11.9711 -71.1526,11.9381 -71.2031,11.9054 -71.2401,11.8521 -71.2452,11.8399 -71.3238,11.7996 -71.3885,11.7825 -71.5468,11.7424 -71.6419,11.7089 -71.6898,11.688 -71.8887,11.6532 -71.9928,11.4827 -72.1293,11.2374 -72.2378,11.1521 -72.2701,11.151 -72.3922,11.1225 -72.4113,11.1103 -72.4598,11.0198 -72.5535,10.8844 -72.6246,10.7586 -72.7298,10.5789 -72.7566,10.5429 -72.8233,10.433 -72.8285,10.4151 -72.8349,10.3392 -72.8589,10.1054 -72.8765,10.071 -72.8976,9.991 -72.9063,9.8939 -72.9244,9.7575 -73.001,9.5989 -73.037,9.5506 -73.164,9.3981 -73.2827,9.2157 -73.2968,9.1611 -73.2641,9.1563 -73.1408,9.1609 -73.0844,9.1855 -73.0624,9.2136 -72.9291,9.2917 -72.9004,9.2507 -72.8776,9.1909 -72.8817,9.1677 -72.8048,9.1092 -72.6988,9.0702 -72.6559,8.9072 -72.5834,8.6317 -72.3421,8.3806 -72.3244,8.3767 -72.3073,8.3602 -72.2951,8.3276 -72.2554,8.143 -72.2438,8.0801 -72.2475,8.0527 -72.2647,8.0389 -72.3082,8.0386 -72.378,7.9116 -72.3918,7.6479 -72.3904,7.4896 -72.3375,7.4122 -72.3197,7.3991 -72.2423,7.3849 -72.1809,7.3814 -72.073,7.317 -72.0824,7.2812 -72.083,7.2543 -72.0634,7.1908 -72.0511,7.1653 -72.0316,7.1303 -72.0108,7.0959 -71.9845,7.0548 -71.972,7.0543 -71.9109,7.0083 -71.8454,7.0021 -71.7953,6.9787 -71.7514,6.9793 -71.7232,6.9954 -71.6208,7.0385 -71.5639,7.0527 -71.5204,7.0502 -71.472,7.0374 -71.4069,7.021 -71.3829,7.0155 -71.2518,7.0144 -71.1818,6.9798 -71.1007,6.9559 -70.9443,6.9766 -70.9247,6.9852 -70.8904,7.0006 -70.828,7.0403 -70.8062,7.0674 -70.7773,7.0748 -70.7391,7.0798 -70.6396,7.0901 -70.4727,7.0507 -70.3616,7.0033 -70.3063,6.9753 -70.2812,6.9563 -70.2642,6.9449 -70.2437,6.9374 -70.2151,6.931 -70.1826,6.9379 -70.1638,6.9532 -70.142,6.9664 -70.079,6.9748 -70.0395,6.9682 -69.6454,6.4793 -69.3502,6.1119 -69.3249,6.1239 -69.2922,6.1389 -69.2369,6.142 -69.2215,6.1162 -69.1918,6.0842 -69.1627,6.0772 -69.1162,6.0937 -69.0745,6.1342 -69.0368,6.1723 -69.0091,6.1962 -68.9775,6.2092 -68.9473,6.2081 -68.7494,6.1794 -68.6751,6.1626 -68.6337,6.1502 -68.6076,6.1347 -68.5601,6.1287 -68.4719,6.1575 -68.399,6.1797 -68.3757,6.1837 -68.3413,6.1848 -68.2962,6.1728 -68.2415,6.1612 -68.2173,6.1691 -68.1518,6.1922 -68.1163,6.2041 -68.0776,6.216 -68.0545,6.2168 -68.0261,6.2145 -67.9886,6.2063 -67.9578,6.1986 -67.9204,6.2005 -67.88,6.2109 -67.8408,6.2313 -67.7541,6.3006 -67.6163,6.2862 -67.5581,6.278 -67.4867,6.2556 -67.4575,6.2363 -67.4193,6.1987 -67.3956,6.1876 -67.3777,6.1862 -67.4124,6.1471 -67.4156,6.1147 -67.4085,6.0912 -67.3927,6.0628 -67.358,6.0321 -67.3372,5.9889 -67.3492,5.9702 -67.3848,5.9491 -67.4018,5.9349 -67.4546,5.8847 -67.52,5.8183 -67.5428,5.786 -67.5657,5.725 -67.5744,5.6771 -67.5714,5.6461 -67.5651,5.6059 -67.5564,5.5721 -67.5388,5.5419 -67.5719,5.4724 -67.6108,5.4428 -67.67,5.4062 -67.6917,5.4009 -67.7264,5.3775 -67.7711,5.3006 -67.752,5.1256 -67.7426,5.0879 -67.7253,5.034 -67.7239,4.9678 -67.7361,4.8258 -67.739,4.7965 -67.7472,4.7314 -67.7813,4.5564 -67.7074,4.33 -67.724,4.2956 -67.7284,4.268 -67.7289,4.2271 -67.7096,4.162 -67.6521,4.0832 -67.6315,4.0424 -67.6157,3.9655 -67.6037,3.917 -67.5583,3.7933 -67.5391,3.7549 -67.5231,3.7365 -67.5003,3.7281 -67.4651,3.7326 -67.4351,3.734 -67.4145,3.7204 -67.3606,3.6443 -67.3518,3.604 -67.3193,3.5086 -67.3049,3.4821 -67.2866,3.4693 -67.2653,3.4626 -67.2303,3.4491 -67.2165,3.3925 -67.2701,3.3102 -67.2934,3.3013 -67.3592,3.2503 -67.4234,3.1871 -67.5801,3.0396 -67.7564,2.8736 -67.7469,2.824 -67.6893,2.8296 -67.558,2.8064 -67.5296,2.7904 -67.5132,2.761 -67.4589,2.6769 -67.4092,2.6504 -67.2493,2.4712 -67.2056,2.4364 -67.1821,2.4265 -67.1438,2.4106 -67.1169,2.3901 -67.0986,2.3342 -67.1088,2.3135 -67.1316,2.2922 -67.1413,2.2728 -67.1359,2.2413 -67.1229,2.2051 -67.0996,2.151 -67.0848,2.1303 -67.0376,2.0243 -66.9164,1.6941 -66.8512,1.4583 -66.8238,1.2829 -66.8166,1.2499 -66.8001,1.2248 -66.7952,1.2197 -66.8101,1.2198 -66.9575,1.1811 -66.9998,1.1713 -67.0089,1.1926 -67.0125,1.2652 -67.0122,1.2851 -67.0052,1.3839 -66.9983,1.4129 -66.9882,1.4367 -66.9816,1.5187 -66.9956,1.6187 -67.0382,1.733 -67.0853,1.8167 -67.131,1.8738 -67.1524,1.8896 -67.1889,1.945 -67.2331,2.0304 -67.2439,2.0609 -67.2495,2.0863 -67.2638,2.1107 -67.3468,2.1405 -67.4299,2.1045 -67.4899,2.0649 -67.5097,2.0508 -67.59,1.9714 -67.6008,1.9347 -67.6112,1.9174 -67.6946,1.8167 -67.7352,1.7824 -67.7963,1.7534 -67.8384,1.7434 -67.8655,1.7406 -67.8914,1.7439 -67.9142,1.752 -67.9336,1.7665 -67.9589,1.7996 -67.9889,1.8515 -67.9985,1.8701 -68.0117,1.9252 -68.0282,1.9499 -68.0475,1.9618 -68.0976,1.9754 -68.1196,1.9754 -68.1498,1.9317 -68.1603,1.9078 -68.1803,1.8506 -68.1559,1.7738 -68.1349,1.7698 -68.1059,1.7648 -68.0764,1.7224 -68.7515,1.7244 -69.0253,1.7256 -69.1619,1.7261 -69.2945,1.7262 -69.3221,1.7426 -69.381,1.7584 -69.4756,1.782 -69.6221,1.7436 -69.7063,1.7057 -69.7676,1.7087 -69.7635,1.6962 -69.7639,1.0712 -69.6401,1.0714 -69.5353,1.0769 -69.3571,1.0374 -69.299,1.0556 -69.2606,1.072 -69.1872,1.0329 -69.15,0.9979 -69.0626,0.8628 -69.0817,0.7522 -69.0502,0.6435 -69.1321,0.6157 -69.2098,0.6224 -69.2511,0.6559 -69.3813,0.736 -69.6053,0.6767 -69.6715,0.6334 -69.7172,0.6009 -69.8441,0.5973 -69.905,0.5973 -69.966,0.5844 -69.9676,0.5109 -69.9696,0.3681 -69.9708,0.3066 -69.974,0.1436 -69.9771,3.0E-4 -69.9788,-0.0876 -69.9795,-0.157 -69.9429,-0.203 -69.855,-0.3039 -69.6612,-0.4551 -69.6387,-0.4604 -69.6103,-0.4661 -69.5524,-0.4935 -69.5285,-0.5192 -69.4955,-0.6342 -69.5045,-0.6671 -69.518,-0.6994 -69.5371,-0.7233 -69.5346,-0.7549 -69.4396,-0.9323 -69.4028,-0.9539 -69.3562,-0.9999 -69.364,-1.0164 -69.3535,-1.0395 -69.3339,-1.1306 -69.3121,-1.2444 -69.3004,-1.3364 -69.3129,-1.3796 -69.3745,-1.5242 -69.4443,-1.912 -69.5159,-2.3084 -69.5291,-2.3836 -69.5474,-2.4792 -69.5567,-2.5313 -69.7141,-3.4153 -69.8027,-3.9155 -69.8638,-4.2075 -69.8771,-4.2321 -69.8769,-4.2045 -69.9089,-4.1709 -69.9414,-4.149 -69.9611,-4.1357 -70.0433,-4.0677 -70.0563,-4.0462 -70.0644,-4.027 -70.0728,-4.0012 -70.0829,-3.9701 -70.1019,-3.9328 -70.1548,-3.8669 -70.2431,-3.7949 -70.2616,-3.7854 -70.2823,-3.7833 -70.3264,-3.7979 -70.3441,-3.8118 -70.3994,-3.8456 -70.4206,-3.8547 -70.4477,-3.8547 -70.5274,-3.8248 -70.6437,-3.7754 -70.5921,-3.6934 -70.5475,-3.6247 -70.4857,-3.5294 -70.3673,-3.3453 -70.3324,-3.2909 -69.9884,-2.7523 -70.0193,-2.6953 -70.0416,-2.6985 -70.1154,-2.6409 -70.1297,-2.6063 -70.1395,-2.5673 -70.2162,-2.4984 -70.2562,-2.4893 -70.2764,-2.4952 -70.2985,-2.5088 -70.4847,-2.4902 -70.5027,-2.4811 -70.5701,-2.3984 -70.5781,-2.3554 -70.7792,-2.2228 -70.8964,-2.2754 -71.0211,-2.3093 -71.1078,-2.3576 -71.2812,-2.344 -71.3318,-2.2786 -71.4395,-2.2319 -71.4959,-2.2338 -71.5937,-2.2224 -71.6034,-2.1934 -71.6023,-2.1638 -71.6124,-2.1455 -71.641,-2.1565 -71.7277,-2.2281 -71.7903,-2.3176 -71.8086,-2.375 -71.8504,-2.376 -71.9009,-2.3665 -71.9888,-2.4048 -72.1459,-2.4958 -72.2179,-2.4884 -72.246,-2.4799 -72.3693,-2.4385 -72.5082,-2.4043 -72.6015,-2.4369 -72.7328,-2.4869 -72.7997,-2.5032 -72.8201,-2.4505 -72.8524,-2.3973 -72.8929,-2.3989 -72.9207,-2.4075 -72.9917,-2.3685 -73.0225,-2.344 -73.033,-2.3258 -73.0492,-2.2434 -73.019,-2.2291 -72.9956,-2.1976 -72.9759,-2.1429 -73.0082,-1.9213 -73.0503,-1.8467 -73.1146,-1.8044 -73.1564,-1.8432 -73.2144,-1.8712 -73.3337,-1.8146 -73.4078,-1.7647 -73.425,-1.7461 -73.4042,-1.6523 -73.3945,-1.6345 -73.3646,-1.6084 -73.3945,-1.5505 -73.4375,-1.4917 -73.4602,-1.4661 -73.4648,-1.4348 -73.4729,-1.3736 -73.5708,-1.2828 -73.6301,-1.2777 -73.6695,-1.2881 -73.7579,-1.2637 -73.7851,-1.2069 -73.9947,-1.0714 -74.1321,-1.0333 -74.1572,-1.0117 -74.1718,-0.9852 -74.1993,-0.929 -74.1806,-0.8977 -74.1646,-0.8526 -74.2068,-0.8085 -74.2325,-0.7804 -74.2554,-0.7052 -74.2746,-0.6323 -74.2867,-0.5769 -74.2927,-0.5671 -74.3102,-0.5426 -74.4731,-0.417 -74.5238,-0.3828 -74.549,-0.4059 -74.6251,-0.3611 -74.6319,-0.333 -74.6331,-0.311 -74.6372,-0.2891 -74.6498,-0.2604 -74.6651,-0.2349 -74.6884,-0.2073 -74.7081,-0.1999 -74.7287,-0.2052 -74.7573,-0.225 -74.7764,-0.232 -74.854,-0.1984 -74.8763,-0.1701 -74.9371,-0.1228 -75.0526,-0.045 -75.1206,-0.0368 -75.1323,-0.0681 -75.1413,-0.0957 -75.1746,-0.1222 -75.2015,-0.1192 -75.2156,-0.102 -75.2411,-0.0881 -75.2653,-0.078 -75.3143,-0.0717 -75.3498,-0.0591 -75.4343,-0.0077 -75.4907,0.0318 -75.6093,0.0433 -75.6424,0.0355 -75.6758,0.0467 -75.8274,0.1634 -75.895,0.2564 -75.9396,0.3198 -75.9548,0.3375 -76.0598,0.3707 -76.1575,0.3953 -76.3152,0.3919 -76.3219,0.2713 -76.363,0.2466 -76.4592,0.2189 -76.4806,0.2204 -76.4989,0.2307 -76.526,0.2585 -76.6306,0.2829 -76.6409,0.2627 -76.6843,0.2488 -76.7253,0.2413 -76.7804,0.239 -76.949,0.306 -76.9933,0.3592 -77.1052,0.3346 -77.1324,0.3358 -77.2249,0.3629 -77.2928,0.3844 -77.3352,0.4126 -77.3642,0.5409 -77.3593,0.5847 -77.3566,0.6213 -77.3768,0.6548 -77.4065,0.6648 -77.4263,0.6579 -77.4488,0.6551 -77.4784,0.6731 -77.4929,0.6853 -77.5375,0.71 -77.5598,0.728 -77.5723,0.7497 -77.5744,0.7806 -77.569,0.8086 -77.5913,0.8364 -77.6114,0.8445 -77.6928,0.8271 -77.727,0.8075 -77.7665,0.8129 -77.7959,0.8249 -77.8422,0.8745 -77.9117,0.9033 -77.9443,0.8998 -77.9824,0.9035 -78.0123,0.9152 -78.0875,0.9697 -78.142,1.0171 -78.1603,1.0287 -78.1957,1.0379 -78.2222,1.043 -78.2444,1.0515 -78.2657,1.0678 -78.3536,1.1531 -78.3678,1.1737 -78.3782,1.1913 -78.452,1.2081 -78.4721,1.1972 -78.5033,1.2418 -78.5435,1.2611 -78.5685,1.2705 -78.589,1.2843 -78.7211,1.4362 -78.77,1.5462 -78.8394,1.5787 -78.8597,1.5827 -78.8967,1.5838 -78.9419,1.5973 -78.9614,1.6301 -78.8834,1.7504 -78.792,1.8235 -78.7562,1.8344 -78.6728,1.8189 -78.6441,1.8038 -78.5325,1.7627 -78.4989,1.7652 -78.4614,1.8803 -78.4579,1.9152 -78.5079,2.0159 -78.5308,2.0276 -78.5658,2.0616 -78.5921,2.1523 -78.5983,2.1912 -78.5539,2.2869 -78.4939,2.3986 -78.4769,2.4265 -78.4684,2.388 -78.4525,2.4196 -78.4344,2.4314 -78.377,2.4405 -78.3671,2.5013 -78.3396,2.5056 -78.3009,2.476 -78.2803,2.4552 -78.2582,2.4352 -78.1768,2.5165 -78.0562,2.4882 -78.0344,2.4846 -77.8989,2.5196 -77.8623,2.555 -77.8533,2.6077 -77.8497,2.6479 -77.8158,2.6014 -77.8096,2.575 -77.7734,2.5574 -77.6997,2.5666 -77.6575,2.6076 -77.677,2.6399 -77.6934,2.7533 -77.6262,2.8637 -77.4785,3.047 -77.4603,3.0562 -77.3301,3.257 -77.3205,3.2846 -77.3441,3.2977 -77.3802,3.3266 -77.3623,3.3537 -77.2763,3.4088 -77.1566,3.5624 -77.124,3.5715 -77.0534,3.6619 -77.0411,3.7049 -77.0381,3.7646 -76.9452,3.9143 -76.9953,3.9025 -77.0251,3.8902 -77.0719,3.8584 -77.101,3.8393 -77.1492,3.8347 -77.1775,3.8359 -77.1991,3.8476 -77.2097,3.9117 -77.198,3.9465 -77.1722,3.9625 -77.1268,3.9674 -77.0993,4.056 -77.1227,4.0725 -77.1728,4.0909 -77.2068,4.0588 -77.2247,4.0364 -77.241,3.9822 -77.2563,3.947 -77.2784,3.9218 -77.3344,3.9944 -77.3464,4.0269 -77.3491,4.1375 -77.3374,4.1741 -77.2492,4.2126 -77.188,4.2104 -77.1604,4.2409 -77.1543,4.2564 -77.202,4.2666 -77.2493,4.2647 -77.2943,4.3375 -77.2583,4.4382 -77.2543,4.4445 -77.246,4.4663 -77.2249,4.5414 -77.2284,4.6431 -77.2333,4.7143 -77.2511,4.811 -77.2595,4.8371 -77.2649,4.8622 -77.2732,4.9352 -77.2837,5.0771 -77.2828,5.1493 -77.2651,5.1971 -77.2591,5.2349 -77.2714,5.2926 -77.3084,5.4501 -77.3923,5.4983 -77.4437,5.5127 -77.416,5.5782 -77.3323,5.6177 -77.2942,5.6116 -77.2707,5.598 -77.2387,5.6101 -77.1623,5.7029 -77.1525,5.752 -77.1567,5.7818 -77.2507,5.981 -77.3196,6.0738 -77.366,6.1238 -77.3872,6.1517 -77.4005,6.1784 -77.3877,6.2761 -77.3189,6.2329 -77.2973,6.2746 -77.2677,6.3845 -77.2526,6.5603 -77.3202,6.6831 -77.3559,6.7044 -77.3786,6.7068 -77.5781,6.8691 -77.5649,6.9696 -77.5684,6.9929 -77.5927,7.0483 -77.7052,7.1442 -77.8017,7.2209 -77.7197,7.4706 -77.688,7.4672 -77.661,7.4759 -77.6444,7.4977 -77.6332,7.5282 -77.6416,7.5605 -77.6667,7.6037 -77.6713,7.625 -77.6716,7.6589 -77.6712,7.6847 -77.6564,7.7115 -77.5762,7.6711 -77.5366,7.5951 -77.5226,7.5542 -77.5127,7.531 -77.4898,7.518 -77.2439,7.6934 -77.2429,7.7175 -77.2827,7.77 -77.2243,7.8784 -77.2084,7.8963 -77.1286,7.9285 -77.1114,7.9906 -77.1287,8.0789 -77.157,8.1363 -77.1868,8.1894 -77.2093,8.2069 -77.262,8.2586 -77.2758,8.276 -77.2812,8.3281 -77.2818,8.355 -77.2884,8.3892 -77.3193,8.4418 -77.3426,8.4633 -77.382,8.4622 -77.389,8.5116 -77.3658,8.5474 -77.352,8.5571 -77.2854,8.6366 -77.2803,8.6655 -77.2803,8.6655 13,6.5,Myanmar (Burma) 97.878,12.2779 97.8277,12.3269 97.8299,12.3449 97.8399,12.3662 97.8492,12.3709 97.9008,12.3915 97.9672,12.4026 97.9956,12.3846 97.991,12.358 97.9819,12.3467 97.8961,12.2684 97.878,12.2779 97.878,12.2779 240,1.0,Benin 2.3952,11.883 2.3991,11.9438 2.401,12.071 2.3862,12.1163 2.3739,12.1931 2.3856,12.2337 2.5329,12.2676 2.6087,12.2787 2.6621,12.289 2.7162,12.3386 2.7772,12.3682 2.8355,12.3829 2.8614,12.3679 3.0069,12.2551 3.1588,12.0999 3.2519,11.9981 3.2582,11.9644 3.2665,11.9388 3.2946,11.8972 3.3173,11.873 3.3529,11.8724 3.3716,11.8815 3.4676,11.8416 3.5042,11.8111 3.5421,11.7615 3.554,11.7234 3.6005,11.6801 3.5675,11.6381 3.5213,11.5508 3.4711,11.4169 3.6049,11.2375 3.6908,11.1223 3.7101,11.1147 3.7316,11.1082 3.7247,11.065 3.7266,11.0284 3.7335,11.0082 3.7712,10.8867 3.7556,10.8353 3.7452,10.8176 3.7473,10.7866 3.7813,10.7449 3.8268,10.7 3.8433,10.6848 3.8508,10.5732 3.8085,10.4379 3.7874,10.3927 3.7597,10.4011 3.7303,10.4181 3.6956,10.4365 3.6349,10.4021 3.578,10.264 3.6402,10.1883 3.6664,10.1751 3.6803,10.1495 3.6739,10.1004 3.6081,9.9432 3.5551,9.8693 3.5174,9.8346 3.4799,9.8446 3.346,9.8004 3.3305,9.7723 3.3276,9.7517 3.3338,9.7243 3.3491,9.6924 3.3597,9.6712 3.3136,9.6255 3.1679,9.4857 3.1385,9.4248 3.1454,9.4016 3.1598,9.3669 3.1631,9.2924 3.1281,9.1841 3.0917,9.0805 2.993,9.0533 2.9643,9.0717 2.9021,9.069 2.8105,9.0553 2.7889,9.0402 2.7802,9.0065 2.7422,8.7857 2.7401,8.761 2.7439,8.7099 2.7533,8.5725 2.7536,8.5456 2.7499,8.5263 2.7545,8.5205 2.7553,8.4818 2.747,8.4483 2.7225,8.4227 2.7068,8.3331 2.7331,8.2367 2.7487,8.2007 2.7385,8.1469 2.7247,8.0992 2.706,7.9991 2.6894,7.8976 2.6924,7.8736 2.6999,7.8564 2.7364,7.8057 2.7398,7.7809 2.7357,7.7079 2.73,7.6499 2.7291,7.6434 2.7336,7.588 2.7669,7.2466 2.7757,7.1267 2.7468,7.0865 2.7248,6.9392 2.7487,6.9136 2.7598,6.7574 2.7587,6.6639 2.7524,6.5578 2.7243,6.4677 2.7167,6.4453 2.7166,6.3585 2.64,6.349 2.5372,6.3379 2.4815,6.3335 2.4774,6.3318 2.4525,6.326 2.4021,6.3229 2.36,6.3234 2.3285,6.3217 2.2732,6.3162 2.0537,6.2873 1.9853,6.2752 1.9249,6.2683 1.8014,6.2507 1.6957,6.231 1.6381,6.2141 1.6338,6.212 1.6281,6.2281 1.6509,6.2434 1.6811,6.2525 1.7406,6.2626 1.7957,6.2735 1.7934,6.3013 1.7696,6.4076 1.7472,6.4495 1.6911,6.5419 1.6623,6.5697 1.6536,6.5634 1.6457,6.5658 1.6151,6.5891 1.5736,6.6725 1.5883,6.7082 1.6056,6.789 1.6026,6.8865 1.5754,6.9016 1.5607,6.9405 1.5523,6.989 1.6407,6.9878 1.6436,7.3257 1.642,7.4016 1.6426,7.4348 1.6485,7.5056 1.6536,7.5215 1.6491,7.5395 1.6401,7.6197 1.6376,7.7514 1.6363,7.9899 1.6292,8.351 1.6153,8.3578 1.6224,8.4158 1.6237,8.5777 1.6242,8.7168 1.6248,8.8371 1.6182,9.0242 1.6043,9.089 1.5669,9.1579 1.5383,9.1795 1.5091,9.2005 1.4919,9.2182 1.4511,9.27 1.4303,9.2911 1.4167,9.3087 1.4056,9.3343 1.3978,9.3776 1.3972,9.4196 1.3885,9.4758 1.363,9.471 1.3597,9.475 1.336,9.5319 1.3668,9.5859 1.3686,9.6256 1.3576,9.9039 1.3536,9.9843 1.3065,10.014 1.186,10.0889 1.1714,10.0973 1.066,10.163 0.9982,10.2086 0.7758,10.3653 0.7866,10.5177 0.7974,10.535 0.8051,10.5618 0.8067,10.5955 0.8033,10.6294 0.7995,10.6691 0.7998,10.6899 0.8013,10.7007 0.8064,10.7115 0.8784,10.7877 0.8926,10.8547 0.8897,10.8988 0.917,10.984 0.9492,11.0173 0.9844,11.067 1.0819,11.1101 1.1476,11.2118 1.1917,11.2527 1.2633,11.2338 1.3424,11.3026 1.3268,11.3304 1.3887,11.4209 1.4152,11.4369 1.4271,11.4387 1.4339,11.446 1.4811,11.447 1.5414,11.4449 1.5682,11.4384 1.5846,11.3928 1.6106,11.376 1.7353,11.4033 1.8019,11.4267 1.8726,11.4301 1.8952,11.4186 1.9872,11.4045 2.0078,11.408 2.018,11.4135 2.0249,11.4185 2.0501,11.4421 2.1917,11.5908 2.2599,11.6331 2.3063,11.6754 2.3384,11.7556 2.3901,11.8741 2.3952,11.883 2.3952,11.883 35,8.0,Philippines 120.0669,11.9865 120.0352,12.0152 119.9949,12.0083 120.0024,11.9935 119.9844,11.9641 119.966,11.9498 119.9513,11.9665 119.9496,11.977 119.944,11.9918 119.9284,11.9977 119.9162,11.9865 119.9087,11.9804 119.8843,11.972 119.8394,12.011 119.8067,12.0544 119.7277,12.2308 119.7386,12.2985 119.754,12.3197 119.7667,12.319 119.7877,12.3116 119.7972,12.3075 119.9597,12.1874 119.994,12.1432 120.0333,12.1058 120.0568,12.102 120.0878,12.1237 120.1108,12.1661 120.1986,12.07 120.2099,12.0453 120.2079,12.0023 120.2061,11.9793 120.1705,11.9691 120.0909,11.9714 120.0669,11.9865 120.0669,11.9865 11,6.5,Myanmar (Burma) 97.9567,12.1579 97.9278,12.1914 97.9252,12.2024 97.9298,12.228 97.9478,12.2672 97.9707,12.2704 98.0116,12.2665 98.0299,12.1284 97.9634,12.1488 97.9567,12.1579 97.9567,12.1579 24,3.0,Yemen 52.2831,12.1311 52.2105,12.1343 52.1206,12.1584 52.071,12.1738 52.0547,12.1824 52.0456,12.1883 52.0273,12.2099 52.0341,12.2268 52.0809,12.233 52.1061,12.2249 52.1151,12.22 52.1286,12.2061 52.1409,12.1971 52.15,12.1921 52.1623,12.1891 52.1758,12.1875 52.2207,12.1871 52.2329,12.1885 52.304,12.1861 52.3368,12.1829 52.3361,12.1394 52.3242,12.1352 52.2831,12.1311 52.2831,12.1311 1037,-4.0,Venezuela -71.2452,11.8399 -71.2619,11.7859 -71.2992,11.7402 -71.3664,11.7107 -71.401,11.6971 -71.4253,11.6943 -71.4617,11.6909 -71.5589,11.6777 -71.6325,11.6621 -71.686,11.6493 -71.7364,11.6344 -71.8743,11.5818 -71.8892,11.5336 -71.8864,11.4936 -71.8812,11.4518 -71.873,11.4092 -71.8653,11.3828 -71.8533,11.3505 -71.8266,11.2882 -71.7876,11.2168 -71.7585,11.1705 -71.7158,11.1164 -71.6615,11.0218 -71.6845,11.0015 -71.6122,10.8223 -71.5827,10.7654 -71.5385,10.7302 -71.5182,10.7159 -71.4993,10.7041 -71.5029,10.6628 -71.5512,10.4649 -71.5703,10.4309 -71.599,10.4116 -71.6767,10.3582 -71.6943,10.338 -71.7154,10.3105 -71.7464,10.2438 -71.7624,10.2074 -71.8323,10.1133 -72.0462,9.8074 -71.9987,9.7247 -71.9672,9.697 -71.9287,9.6529 -71.8999,9.6126 -71.8864,9.5917 -71.8649,9.5324 -71.8316,9.4829 -71.6538,9.3652 -71.6444,9.3345 -71.6526,9.2857 -71.6726,9.2121 -71.6797,9.1083 -71.6544,9.0904 -71.6351,9.0678 -71.6096,9.0533 -71.5443,9.0332 -71.5189,9.0299 -71.4733,9.0308 -71.4177,9.0405 -71.2344,9.1003 -71.2116,9.1117 -71.1625,9.1453 -71.146,9.1642 -71.1352,9.1987 -71.1296,9.2094 -71.0864,9.2635 -71.0685,9.2764 -71.039,9.2832 -70.9962,9.3023 -70.9772,9.3285 -70.9771,9.344 -70.9925,9.38 -71.0108,9.5261 -71.0048,9.5561 -70.9828,9.6065 -70.975,9.6929 -70.9954,9.8402 -71.0203,9.8839 -71.0699,9.9397 -71.1914,10.1387 -71.2145,10.164 -71.2388,10.1816 -71.307,10.2714 -71.3581,10.3578 -71.38,10.4483 -71.4435,10.5215 -71.4669,10.5566 -71.4478,10.715 -71.3678,10.7835 -71.3729,10.9043 -71.414,10.9488 -71.3561,10.9675 -71.3333,10.9719 -71.3056,10.9712 -71.2751,10.9661 -71.2026,10.9771 -71.1924,10.9808 -71.0995,11.0201 -70.9953,11.0678 -70.953,11.091 -70.9359,11.1049 -70.9106,11.1209 -70.8554,11.1524 -70.8117,11.1738 -70.7774,11.1879 -70.7472,11.1991 -70.6587,11.2174 -70.5769,11.226 -70.5432,11.2239 -70.4689,11.2295 -70.4306,11.2356 -70.414,11.2506 -70.3689,11.2776 -70.3436,11.2795 -70.2455,11.3191 -70.1612,11.3405 -70.0648,11.4058 -70.0178,11.4175 -69.9574,11.4288 -69.9464,11.4788 -69.9701,11.5048 -69.9099,11.5021 -69.8202,11.4235 -69.7964,11.414 -69.7591,11.4118 -69.7241,11.4147 -69.6651,11.4864 -69.6988,11.5964 -69.7101,11.6225 -69.7388,11.6778 -69.7799,11.6764 -69.9271,11.6372 -70.102,11.5906 -70.1359,11.5961 -70.1578,11.6158 -70.1485,11.642 -70.1657,11.7623 -70.2157,11.8483 -70.2156,11.8863 -70.2083,11.907 -70.1795,11.9759 -70.1281,12.067 -70.109,12.0944 -69.9898,12.1602 -69.9359,12.1839 -69.8565,12.1562 -69.8276,12.1264 -69.7814,12.0584 -69.7625,12.0193 -69.7459,11.9747 -69.7388,11.903 -69.7411,11.868 -69.739,11.8377 -69.7265,11.7809 -69.6931,11.683 -69.6804,11.6485 -69.6418,11.5576 -69.6289,11.5359 -69.5973,11.4982 -69.5547,11.4549 -69.5312,11.4463 -69.5022,11.4513 -69.4785,11.4743 -69.4517,11.4905 -69.4299,11.494 -69.3678,11.4854 -69.3356,11.4749 -69.2831,11.4805 -69.2507,11.5 -69.1979,11.5212 -69.0295,11.4737 -68.8774,11.4391 -68.7672,11.4345 -68.5844,11.3371 -68.5262,11.2781 -68.4777,11.2593 -68.4563,11.2487 -68.3428,11.1677 -68.323,11.1456 -68.258,11.0329 -68.1671,10.8625 -68.1767,10.8446 -68.2299,10.8429 -68.2498,10.8314 -68.2572,10.8041 -68.2528,10.7556 -68.2053,10.632 -68.1786,10.5772 -68.1108,10.5035 -68.0903,10.4872 -68.0395,10.4732 -68.0027,10.4813 -67.9274,10.4795 -67.8186,10.463 -67.7935,10.4532 -67.7573,10.4711 -67.7214,10.4802 -67.4692,10.5211 -67.3927,10.5263 -67.3273,10.5271 -67.318,10.527 -67.2062,10.5348 -67.0341,10.5673 -66.9285,10.5984 -66.4365,10.6161 -66.3976,10.6174 -66.3453,10.6136 -66.3121,10.6044 -66.27,10.593 -66.2508,10.6009 -66.2374,10.6141 -66.2102,10.6329 -66.1568,10.6286 -66.137,10.6205 -66.0088,10.565 -66.0456,10.5151 -66.0469,10.4883 -66.0256,10.4607 -65.9958,10.4316 -65.8863,10.3452 -65.8635,10.2869 -65.7422,10.217 -65.7145,10.2089 -65.6929,10.2057 -65.6532,10.208 -65.4761,10.1667 -65.3547,10.1287 -65.2046,10.1044 -65.01,10.0494 -64.7539,10.0711 -64.7171,10.0784 -64.6934,10.0862 -64.6619,10.1023 -64.6436,10.1685 -64.555,10.2351 -64.509,10.2474 -64.4639,10.2384 -64.4116,10.2268 -64.3079,10.2895 -64.3251,10.3259 -64.3139,10.3574 -64.2975,10.3728 -64.1321,10.4383 -64.0219,10.4449 -64.0004,10.4349 -63.9794,10.4305 -63.8059,10.4285 -63.7392,10.4308 -63.7232,10.4349 -63.6456,10.4604 -63.6276,10.474 -63.7078,10.5137 -63.7688,10.5401 -63.8959,10.5666 -64.0782,10.5582 -64.1305,10.5384 -64.1451,10.5224 -64.165,10.5029 -64.1882,10.5232 -64.2288,10.6146 -64.1938,10.6458 -64.1659,10.6271 -64.0762,10.6063 -63.9037,10.6178 -63.7725,10.634 -63.6218,10.6336 -63.5967,10.63 -63.4646,10.6152 -63.4356,10.628 -63.2748,10.6607 -63.2165,10.6591 -63.1834,10.6666 -63.1607,10.6763 -63.1025,10.7079 -62.9243,10.7043 -62.9034,10.6935 -62.8842,10.6879 -62.8372,10.6841 -62.8003,10.6946 -62.7223,10.7192 -62.6793,10.7303 -62.6286,10.7357 -62.4697,10.7237 -62.4011,10.7152 -62.2892,10.6962 -62.2323,10.6884 -62.1242,10.6822 -62.0634,10.6896 -61.9158,10.716 -61.8113,10.7165 -61.815,10.683 -61.8529,10.6501 -61.8848,10.637 -61.9673,10.6207 -62.0171,10.6154 -62.0463,10.6164 -62.0672,10.6229 -62.0941,10.625 -62.1806,10.6151 -62.2074,10.5885 -62.2185,10.572 -62.2327,10.5437 -62.2624,10.5201 -62.3811,10.5215 -62.4586,10.5287 -62.5111,10.5434 -62.5806,10.5564 -62.6021,10.5563 -62.7617,10.5326 -62.8431,10.5169 -62.9348,10.4413 -62.908,10.4526 -62.8655,10.479 -62.842,10.5041 -62.8032,10.5126 -62.7695,10.4998 -62.7665,10.4369 -62.7621,10.4165 -62.7686,10.3859 -62.8027,10.3784 -62.8201,10.3925 -62.8426,10.4049 -62.8653,10.407 -62.8851,10.4033 -62.9114,10.3952 -62.9344,10.3827 -62.9291,10.2601 -62.8651,10.2677 -62.8587,10.2914 -62.8739,10.3153 -62.8855,10.3636 -62.8773,10.3895 -62.8379,10.3803 -62.8156,10.3628 -62.7881,10.3709 -62.7534,10.3741 -62.721,10.3899 -62.6673,10.3625 -62.6165,10.2988 -62.5977,10.2691 -62.5617,10.096 -62.6007,10.0637 -62.6402,10.0547 -62.7326,10.0442 -62.7601,10.0424 -62.8225,10.0705 -62.8483,10.0837 -62.8879,10.093 -62.9393,10.0906 -62.9476,10.0876 -62.9149,10.0579 -62.8806,10.066 -62.8417,10.0657 -62.8026,10.0351 -62.7365,9.9977 -62.6138,10.0405 -62.5942,10.0479 -62.5767,10.0583 -62.547,10.0818 -62.5367,10.116 -62.5544,10.1774 -62.5407,10.2126 -62.5087,10.2137 -62.4665,10.1909 -62.4326,10.163 -62.4201,10.1416 -62.4016,10.0798 -62.3584,9.9681 -62.3045,9.8702 -62.2466,9.7421 -62.2599,9.7123 -62.2539,9.7013 -62.2317,9.7078 -62.2088,9.7366 -62.2,9.7562 -62.1866,9.7919 -62.1683,9.844 -62.1695,9.8682 -62.1798,9.8989 -62.1821,9.956 -62.1375,9.903 -62.1123,9.8318 -62.0969,9.7044 -62.1277,9.6308 -62.1021,9.6467 -62.0873,9.699 -62.0615,9.7413 -62.0625,9.7679 -62.0651,9.8154 -61.9592,9.8556 -61.9792,9.8777 -62.0442,9.9183 -62.0638,9.9268 -62.0968,9.933 -62.1333,9.9272 -62.1635,9.9537 -62.141,10.0001 -62.1107,10.0038 -62.0073,9.9755 -61.9859,9.9666 -61.8943,9.9008 -61.7438,9.7471 -61.6677,9.5904 -61.6612,9.6154 -61.6604,9.6359 -61.6654,9.688 -61.6969,9.7468 -61.7143,9.7678 -61.7328,9.8012 -61.7248,9.8201 -61.704,9.8192 -61.6451,9.8001 -61.6055,9.7856 -61.5863,9.7795 -61.53,9.772 -61.5067,9.7897 -61.5169,9.8081 -61.5509,9.8334 -61.5803,9.8865 -61.5521,9.8943 -61.5047,9.8744 -61.4865,9.8644 -61.4128,9.8126 -61.3795,9.7769 -61.3581,9.7229 -61.3395,9.6941 -61.3156,9.6696 -61.1885,9.5782 -61.1299,9.5678 -61.0168,9.5716 -60.9789,9.5659 -60.9204,9.5412 -60.8926,9.5219 -60.7864,9.4339 -60.7311,9.369 -60.7157,9.3219 -60.7162,9.2947 -60.7516,9.2588 -60.7796,9.253 -60.8448,9.2263 -60.9202,9.1784 -61.0034,9.1086 -61.0169,9.0876 -61.0304,9.034 -61.0066,9.0661 -60.9911,9.085 -60.9052,9.165 -60.883,9.1648 -60.888,9.1439 -60.9636,9.0221 -61.0096,8.9852 -61.0255,8.9628 -61.0296,8.9534 -61.0515,8.8881 -61.1152,8.7182 -61.1235,8.6704 -61.1242,8.615 -61.1417,8.5858 -61.1825,8.5721 -61.2594,8.5865 -61.3682,8.5923 -61.451,8.5808 -61.4884,8.589 -61.5266,8.6075 -61.5299,8.5455 -61.4192,8.5022 -61.3252,8.4652 -61.2603,8.4216 -61.1519,8.4534 -61.1002,8.4862 -61.009,8.4838 -61.0051,8.4543 -61.0161,8.4376 -61.0176,8.4119 -61.0052,8.3936 -60.9495,8.4596 -60.9187,8.5164 -60.9129,8.5551 -60.834,8.5728 -60.648,8.5949 -60.6146,8.586 -60.5919,8.5701 -60.5594,8.5417 -60.3981,8.5187 -60.3604,8.5642 -60.3413,8.6122 -60.3147,8.6227 -60.1688,8.6179 -60.1386,8.6124 -60.0722,8.5934 -59.9581,8.5444 -59.9392,8.5355 -59.9232,8.526 -59.9139,8.5088 -59.8192,8.3917 -59.7452,8.2969 -59.736,8.2743 -59.7658,8.2224 -59.8216,8.2096 -59.8548,8.2019 -59.8789,8.191 -59.9124,8.1659 -59.9195,8.1378 -59.9439,8.0504 -59.9704,8.0282 -60.0262,8.0322 -60.0573,8.0193 -60.1693,7.9376 -60.1898,7.9129 -60.2519,7.8689 -60.4451,7.8095 -60.4653,7.7951 -60.5064,7.7065 -60.5205,7.6309 -60.5936,7.5581 -60.6227,7.5586 -60.648,7.5315 -60.6455,7.4926 -60.6198,7.4454 -60.5923,7.4388 -60.5416,7.3739 -60.5227,7.3281 -60.5267,7.2981 -60.55,7.276 -60.5657,7.2462 -60.5621,7.2139 -60.5488,7.1863 -60.4693,7.1164 -60.4463,7.1352 -60.4373,7.1647 -60.3876,7.188 -60.2922,7.1684 -60.2683,7.1474 -60.2405,7.1354 -60.2097,7.111 -60.2132,7.082 -60.2229,7.0488 -60.3398,6.9398 -60.395,6.8991 -60.43,6.8801 -60.4582,6.867 -60.5221,6.8434 -60.5688,6.8275 -60.5962,6.7999 -60.6073,6.7823 -60.6288,6.7593 -60.6502,6.7514 -60.7471,6.781 -60.8246,6.7577 -60.8703,6.7173 -60.9664,6.7124 -60.9854,6.7213 -61.0556,6.7074 -61.1047,6.6512 -61.135,6.5706 -61.1269,6.5266 -61.0702,6.4015 -61.0689,6.2922 -61.0903,6.1757 -61.193,6.1012 -61.2005,6.0797 -61.2127,6.0497 -61.2531,5.986 -61.2677,5.966 -61.3034,5.9542 -61.3195,5.9335 -61.0464,5.6284 -60.7907,5.3421 -60.7117,5.2524 -60.6795,5.2168 -60.661,5.1991 -60.6416,5.1973 -60.6155,5.1914 -60.5859,5.1758 -60.5747,5.1531 -60.5129,4.983 -60.5092,4.9471 -60.523,4.9195 -60.5797,4.8374 -60.6063,4.8087 -60.6509,4.7707 -60.7692,4.7132 -60.7973,4.7082 -60.8168,4.7044 -60.8551,4.6328 -60.8604,4.5868 -60.8822,4.552 -60.8987,4.5335 -60.9175,4.5142 -60.9829,4.5028 -61.094,4.4895 -61.2436,4.5018 -61.4222,4.4017 -61.4372,4.3859 -61.4425,4.357 -61.4372,4.3227 -61.4407,4.2986 -61.4541,4.27 -61.4842,4.244 -61.5549,4.2397 -61.5924,4.2505 -61.629,4.2544 -61.6925,4.2383 -61.7202,4.2112 -61.741,4.1801 -61.7785,4.1561 -61.8443,4.1423 -61.8815,4.1524 -61.9168,4.165 -61.9827,4.1454 -62.0087,4.1205 -62.0341,4.0995 -62.0719,4.0889 -62.1103,4.0952 -62.1499,4.1081 -62.1916,4.1225 -62.2106,4.1317 -62.25,4.148 -62.3211,4.1748 -62.3691,4.178 -62.4686,4.1077 -62.5328,4.0376 -62.5985,4.0425 -62.657,4.0341 -62.6862,4.0159 -62.709,3.9043 -62.7059,3.8781 -62.6869,3.8304 -62.6688,3.7865 -62.6562,3.7272 -62.6559,3.7013 -62.6627,3.6726 -62.6802,3.6345 -62.7101,3.6002 -62.8069,3.5562 -62.8318,3.5591 -62.8522,3.5632 -62.919,3.6002 -63.0925,3.7911 -63.1705,3.8937 -63.2221,3.9352 -63.2635,3.9538 -63.2872,3.9613 -63.3104,3.9663 -63.3469,3.9627 -63.3615,3.9374 -63.3668,3.9108 -63.3734,3.8859 -63.3862,3.8621 -63.4192,3.8537 -63.4578,3.8631 -63.4757,3.8765 -63.5012,3.9053 -63.5167,3.9241 -63.542,3.9404 -63.572,3.9441 -63.7754,3.9547 -63.8362,3.9287 -63.8678,3.9005 -63.8836,3.887 -63.9216,3.8788 -63.9451,3.8819 -63.98,3.9042 -63.9919,3.9508 -64.0147,4.0282 -64.0361,4.0783 -64.0535,4.1049 -64.148,4.1365 -64.1759,4.1436 -64.2624,4.1496 -64.3064,4.1489 -64.3289,4.1447 -64.3571,4.1353 -64.3941,4.1295 -64.4793,4.1177 -64.5185,4.1231 -64.5343,4.1406 -64.5684,4.2191 -64.5784,4.2347 -64.6012,4.2528 -64.6192,4.2624 -64.6506,4.2766 -64.6723,4.2827 -64.7078,4.2815 -64.726,4.2603 -64.7283,4.2061 -64.7121,4.1811 -64.6603,4.1565 -64.6396,4.1395 -64.6311,4.1142 -64.6208,4.0776 -64.5875,4.0122 -64.5686,3.9799 -64.5531,3.9612 -64.4446,3.8501 -64.3731,3.783 -64.3323,3.7632 -64.2926,3.7466 -64.2352,3.7142 -64.1172,3.5857 -64.1095,3.5456 -64.112,3.524 -64.1208,3.4974 -64.1517,3.4633 -64.163,3.4291 -64.1538,3.3338 -64.1325,3.1898 -64.0864,3.0575 -64.0734,3.0365 -64.0164,2.9376 -63.9622,2.8298 -63.9155,2.7157 -63.9232,2.6204 -63.9449,2.5713 -63.9588,2.5469 -63.9743,2.5068 -63.9616,2.4685 -63.7497,2.4232 -63.7101,2.4246 -63.5098,2.4319 -63.294,2.4172 -63.275,2.4035 -63.2893,2.2567 -63.3085,2.2266 -63.3281,2.1473 -63.4169,2.1281 -63.4738,2.1277 -63.5355,2.1038 -63.6467,2.0213 -63.6675,2.0009 -63.7533,1.9755 -63.8645,1.9746 -63.8985,1.9651 -63.9302,1.9476 -63.9581,1.9225 -63.9799,1.8885 -63.9802,1.839 -63.9777,1.805 -63.9906,1.6793 -64.0058,1.6337 -64.0411,1.5813 -64.1921,1.4744 -64.2934,1.5058 -64.3218,1.5104 -64.457,1.4322 -64.4764,1.4136 -64.4906,1.39 -64.5065,1.3482 -64.5227,1.3287 -64.6247,1.2615 -64.6588,1.2457 -64.6843,1.2429 -64.7103,1.2585 -64.7462,1.2783 -64.8702,1.2094 -64.9337,1.1648 -65.0309,1.141 -65.0629,1.1172 -65.0735,1.0967 -65.0806,1.0544 -65.0811,1.0341 -65.0875,0.9882 -65.0926,0.9685 -65.1006,0.9491 -65.1192,0.9258 -65.1545,0.914 -65.1798,0.9143 -65.2183,0.9255 -65.2484,0.9111 -65.3125,0.8362 -65.3217,0.8179 -65.3249,0.7881 -65.3268,0.7532 -65.3628,0.6944 -65.4121,0.6611 -65.4482,0.6485 -65.4686,0.6511 -65.4848,0.6656 -65.5021,0.6957 -65.509,0.7291 -65.4937,0.764 -65.4536,0.8057 -65.4374,0.838 -65.4335,0.8709 -65.4366,0.9011 -65.4486,0.926 -65.4661,0.9491 -65.4856,0.9703 -65.5217,0.9896 -65.5833,0.9886 -65.6615,0.9816 -65.797,0.9074 -65.8388,0.8709 -65.8549,0.8531 -65.8812,0.8176 -65.9056,0.798 -66.0528,0.7334 -66.2127,0.7472 -66.2404,0.7506 -66.2634,0.7651 -66.7121,1.1481 -66.7952,1.2197 -66.8001,1.2248 -66.8166,1.2499 -66.8238,1.2829 -66.8512,1.4583 -66.9164,1.6941 -67.0376,2.0243 -67.0848,2.1303 -67.0996,2.151 -67.1229,2.2051 -67.1359,2.2413 -67.1413,2.2728 -67.1316,2.2922 -67.1088,2.3135 -67.0986,2.3342 -67.1169,2.3901 -67.1438,2.4106 -67.1821,2.4265 -67.2056,2.4364 -67.2493,2.4712 -67.4092,2.6504 -67.4589,2.6769 -67.5132,2.761 -67.5296,2.7904 -67.558,2.8064 -67.6893,2.8296 -67.7469,2.824 -67.7564,2.8736 -67.5801,3.0396 -67.4234,3.1871 -67.3592,3.2503 -67.2934,3.3013 -67.2701,3.3102 -67.2165,3.3925 -67.2303,3.4491 -67.2653,3.4626 -67.2866,3.4693 -67.3049,3.4821 -67.3193,3.5086 -67.3518,3.604 -67.3606,3.6443 -67.4145,3.7204 -67.4351,3.734 -67.4651,3.7326 -67.5003,3.7281 -67.5231,3.7365 -67.5391,3.7549 -67.5583,3.7933 -67.6037,3.917 -67.6157,3.9655 -67.6315,4.0424 -67.6521,4.0832 -67.7096,4.162 -67.7289,4.2271 -67.7284,4.268 -67.724,4.2956 -67.7074,4.33 -67.7813,4.5564 -67.7472,4.7314 -67.739,4.7965 -67.7361,4.8258 -67.7239,4.9678 -67.7253,5.034 -67.7426,5.0879 -67.752,5.1256 -67.7711,5.3006 -67.7264,5.3775 -67.6917,5.4009 -67.67,5.4062 -67.6108,5.4428 -67.5719,5.4724 -67.5388,5.5419 -67.5564,5.5721 -67.5651,5.6059 -67.5714,5.6461 -67.5744,5.6771 -67.5657,5.725 -67.5428,5.786 -67.52,5.8183 -67.4546,5.8847 -67.4018,5.9349 -67.3848,5.9491 -67.3492,5.9702 -67.3372,5.9889 -67.358,6.0321 -67.3927,6.0628 -67.4085,6.0912 -67.4156,6.1147 -67.4124,6.1471 -67.3777,6.1862 -67.3956,6.1876 -67.4193,6.1987 -67.4575,6.2363 -67.4867,6.2556 -67.5581,6.278 -67.6163,6.2862 -67.7541,6.3006 -67.8408,6.2313 -67.88,6.2109 -67.9204,6.2005 -67.9578,6.1986 -67.9886,6.2063 -68.0261,6.2145 -68.0545,6.2168 -68.0776,6.216 -68.1163,6.2041 -68.1518,6.1922 -68.2173,6.1691 -68.2415,6.1612 -68.2962,6.1728 -68.3413,6.1848 -68.3757,6.1837 -68.399,6.1797 -68.4719,6.1575 -68.5601,6.1287 -68.6076,6.1347 -68.6337,6.1502 -68.6751,6.1626 -68.7494,6.1794 -68.9473,6.2081 -68.9775,6.2092 -69.0091,6.1962 -69.0368,6.1723 -69.0745,6.1342 -69.1162,6.0937 -69.1627,6.0772 -69.1918,6.0842 -69.2215,6.1162 -69.2369,6.142 -69.2922,6.1389 -69.3249,6.1239 -69.3502,6.1119 -69.6454,6.4793 -70.0395,6.9682 -70.079,6.9748 -70.142,6.9664 -70.1638,6.9532 -70.1826,6.9379 -70.2151,6.931 -70.2437,6.9374 -70.2642,6.9449 -70.2812,6.9563 -70.3063,6.9753 -70.3616,7.0033 -70.4727,7.0507 -70.6396,7.0901 -70.7391,7.0798 -70.7773,7.0748 -70.8062,7.0674 -70.828,7.0403 -70.8904,7.0006 -70.9247,6.9852 -70.9443,6.9766 -71.1007,6.9559 -71.1818,6.9798 -71.2518,7.0144 -71.3829,7.0155 -71.4069,7.021 -71.472,7.0374 -71.5204,7.0502 -71.5639,7.0527 -71.6208,7.0385 -71.7232,6.9954 -71.7514,6.9793 -71.7953,6.9787 -71.8454,7.0021 -71.9109,7.0083 -71.972,7.0543 -71.9845,7.0548 -72.0108,7.0959 -72.0316,7.1303 -72.0511,7.1653 -72.0634,7.1908 -72.083,7.2543 -72.0824,7.2812 -72.073,7.317 -72.1809,7.3814 -72.2423,7.3849 -72.3197,7.3991 -72.3375,7.4122 -72.3904,7.4896 -72.3918,7.6479 -72.378,7.9116 -72.3082,8.0386 -72.2647,8.0389 -72.2475,8.0527 -72.2438,8.0801 -72.2554,8.143 -72.2951,8.3276 -72.3073,8.3602 -72.3244,8.3767 -72.3421,8.3806 -72.5834,8.6317 -72.6559,8.9072 -72.6988,9.0702 -72.8048,9.1092 -72.8817,9.1677 -72.8776,9.1909 -72.9004,9.2507 -72.9291,9.2917 -73.0624,9.2136 -73.0844,9.1855 -73.1408,9.1609 -73.2641,9.1563 -73.2968,9.1611 -73.2827,9.2157 -73.164,9.3981 -73.037,9.5506 -73.001,9.5989 -72.9244,9.7575 -72.9063,9.8939 -72.8976,9.991 -72.8765,10.071 -72.8589,10.1054 -72.8349,10.3392 -72.8285,10.4151 -72.8233,10.433 -72.7566,10.5429 -72.7298,10.5789 -72.6246,10.7586 -72.5535,10.8844 -72.4598,11.0198 -72.4113,11.1103 -72.3922,11.1225 -72.2701,11.151 -72.2378,11.1521 -72.1293,11.2374 -71.9928,11.4827 -71.8887,11.6532 -71.6898,11.688 -71.6419,11.7089 -71.5468,11.7424 -71.3885,11.7825 -71.3238,11.7996 -71.2452,11.8399 -71.2452,11.8399 20,7.0,Thailand 102.3126,11.9865 102.3203,11.9787 102.3329,11.9599 102.3207,11.94 102.2008,11.9435 102.1775,11.9612 102.138,12.1171 102.1381,12.1373 102.1598,12.1349 102.1876,12.1286 102.2024,12.1244 102.2141,12.1177 102.24,12.0992 102.2495,12.0864 102.2556,12.0696 102.2609,12.0589 102.297,12.0043 102.304,11.9948 102.3126,11.9865 102.3126,11.9865 14,6.5,Myanmar (Burma) 98.4096,11.9868 98.4508,11.9824 98.4634,11.9771 98.5544,11.931 98.5505,11.9197 98.3876,11.8709 98.3699,11.8739 98.3581,11.8857 98.3294,11.9935 98.3173,12.0853 98.3289,12.098 98.3564,12.0731 98.4096,11.9868 98.4096,11.9868 23,8.0,Philippines 119.82,11.6437 119.8112,11.6648 119.7988,11.7484 119.7395,11.8796 119.731,11.9211 119.7413,11.9518 119.7506,11.9617 119.7738,11.966 119.8808,11.9167 119.892,11.906 119.9371,11.8517 119.9174,11.836 119.9112,11.8213 119.9075,11.7992 119.9244,11.7891 119.9353,11.7754 119.9193,11.7278 119.9102,11.7079 119.8691,11.6649 119.8586,11.6541 119.8324,11.6441 119.82,11.6437 119.82,11.6437 502,3.0,Somalia 43.2014,11.4569 43.2405,11.4414 43.3279,11.3704 43.407,11.3387 43.4348,11.2422 43.4423,11.2224 43.4539,11.1985 43.5764,11.0298 43.6612,10.9235 43.7659,10.8019 43.7874,10.7815 43.89,10.6897 44.1357,10.5134 44.16,10.4961 44.2042,10.4567 44.23,10.4363 44.2542,10.425 44.3427,10.3999 44.5078,10.3992 44.5458,10.4048 44.5658,10.4124 44.5842,10.4205 44.6072,10.4318 44.6337,10.4393 44.6736,10.4469 44.6981,10.4477 44.7513,10.4385 44.7842,10.4287 44.8041,10.4199 44.8431,10.4101 44.8864,10.4121 44.9198,10.4167 44.9435,10.4236 45.11,10.5224 45.2003,10.581 45.222,10.6082 45.2819,10.6548 45.3122,10.6508 45.3361,10.6463 45.3993,10.6518 45.4627,10.6847 45.5784,10.762 45.6505,10.8126 45.7086,10.8609 45.7494,10.8628 45.802,10.8279 45.819,10.8321 45.8472,10.8183 45.9236,10.7812 46.0292,10.7594 46.0648,10.7567 46.113,10.7661 46.148,10.7788 46.1961,10.7744 46.2212,10.7542 46.2461,10.7242 46.2847,10.6912 46.3667,10.6762 46.4023,10.6782 46.595,10.733 46.7169,10.8021 46.9283,10.9224 47.003,10.9569 47.0414,10.9824 47.095,11.0293 47.113,11.0565 47.2879,11.1446 47.3164,11.1577 47.3446,11.1666 47.4309,11.1755 47.4618,11.1723 47.4981,11.1585 47.561,11.129 47.5901,11.1082 47.612,11.0955 47.6392,11.0869 47.661,11.0892 47.6887,11.1017 47.74,11.118 47.8552,11.1205 47.8949,11.1092 48.0729,11.1229 48.1125,11.1364 48.1424,11.1678 48.1687,11.1982 48.2894,11.2617 48.468,11.303 48.6072,11.3153 48.7633,11.2645 48.8085,11.2458 48.827,11.2354 48.903,11.2304 48.9334,11.2335 48.9603,11.2379 49.1381,11.2813 49.3695,11.3281 49.4619,11.3772 49.4894,11.4206 49.5055,11.4354 49.6221,11.4584 49.6509,11.4569 49.6761,11.4492 49.6983,11.4422 49.7297,11.4405 50.0139,11.4955 50.038,11.5019 50.2257,11.5823 50.3803,11.6703 50.4298,11.7221 50.4481,11.7465 50.4594,11.7783 50.466,11.8114 50.4775,11.8469 50.497,11.8806 50.5228,11.9027 50.5793,11.9333 50.713,11.9659 50.8533,11.9281 51.088,11.8594 51.2159,11.8261 51.2213,11.8036 51.1818,11.6523 51.1424,11.6043 51.1105,11.5662 51.0687,11.4948 51.0201,11.3156 51.0153,11.1943 51.0269,11.1688 51.056,11.1519 51.1084,11.1381 51.1054,11.1011 51.0835,11.0591 51.074,11.0365 51.0634,10.9998 51.0585,10.9671 51.0732,10.7282 51.0897,10.622 51.047,10.4861 51.0317,10.4659 50.9843,10.4538 50.9614,10.4352 50.9966,10.4248 51.0788,10.435 51.1354,10.4687 51.1334,10.5262 51.3207,10.4759 51.3552,10.4416 51.3351,10.3859 51.3126,10.3611 51.2177,10.3741 51.2009,10.4081 51.1626,10.4143 51.0919,10.4006 51.066,10.3987 51.0368,10.3942 51.0169,10.3888 50.9794,10.3749 50.9031,10.3493 50.8556,10.3218 50.8402,10.3006 50.839,10.1416 50.8437,10.0116 50.7595,9.6224 50.7467,9.5642 50.7479,9.5524 50.7535,9.5263 50.7633,9.49 50.7798,9.4604 50.7825,9.4274 50.7628,9.391 50.6994,9.2918 50.6576,9.2733 50.6335,9.2579 50.601,9.2136 50.5912,9.1916 50.5869,9.1707 50.5898,9.1507 50.5966,9.115 50.5901,9.0816 50.5774,9.0576 50.4975,8.9798 50.4624,8.9621 50.441,8.9498 50.4234,8.933 50.3689,8.8506 50.2662,8.6042 50.2709,8.5558 50.2667,8.5288 50.2546,8.5055 50.2278,8.4735 50.1978,8.4539 50.141,8.3744 50.1294,8.3502 50.1225,8.3288 50.1044,8.312 50.0927,8.2959 50.0831,8.2702 50.0695,8.2061 50.0532,8.1767 50.0132,8.1298 49.9728,8.1089 49.9512,8.097 49.9222,8.0781 49.885,8.0543 49.8663,8.0382 49.7882,7.9571 49.7735,7.9373 49.7582,7.9066 49.7504,7.8742 49.7485,7.8478 49.7486,7.8175 49.7398,7.7058 49.6767,7.566 49.6085,7.4369 49.5965,7.415 49.5802,7.3894 49.5755,7.3821 49.5481,7.3298 49.5341,7.3087 49.4296,7.1702 49.3421,7.0562 49.3233,7.0335 49.2869,6.9732 49.1949,6.811 49.1639,6.7509 49.0433,6.4707 49.0201,6.4088 49.0164,6.3821 49.0203,6.3365 49.0271,6.2946 49.0224,6.2537 49.012,6.214 49.004,6.1864 48.9967,6.1667 48.9851,6.1428 48.7979,5.8136 48.7654,5.7616 48.6131,5.5226 48.5361,5.412 48.462,5.3141 48.3158,5.1303 48.2735,5.083 48.2551,5.06 48.1468,4.8978 48.1363,4.8798 48.1093,4.8301 48.0973,4.8071 48.072,4.7577 48.0558,4.725 47.9985,4.6139 47.9462,4.5179 47.8965,4.4553 47.8698,4.4291 47.8177,4.369 47.6536,4.1829 47.6028,4.1303 47.5432,4.0754 47.5187,4.0448 47.4932,4.0081 47.4575,3.953 47.3945,3.8743 47.324,3.8113 47.1764,3.6786 47.1611,3.6625 47.1316,3.6272 47.0558,3.536 47.0362,3.5158 46.9928,3.4706 46.9638,3.4391 46.8239,3.2847 46.7114,3.1566 46.4961,2.9508 46.4328,2.8923 46.306,2.7879 46.1859,2.6597 46.1232,2.5851 46.0589,2.5133 45.9917,2.4505 45.974,2.4345 45.9573,2.4209 45.8751,2.365 45.8425,2.3436 45.7364,2.2836 45.6364,2.2283 45.5348,2.1697 45.5311,2.1661 45.4923,2.1378 45.317,2.0366 45.1909,1.9722 45.1475,1.952 45.0825,1.9173 45.0742,1.9121 45.0384,1.9017 45.0165,1.8936 44.9875,1.8787 44.9537,1.8587 44.8825,1.8119 44.7977,1.7552 44.5549,1.5913 44.4951,1.5503 44.2939,1.3937 44.1247,1.2452 44.0957,1.2183 44.0592,1.1729 44.0179,1.1323 43.8966,1.0179 43.8341,0.9806 43.8115,0.9696 43.7909,0.957 43.7412,0.9229 43.6023,0.7986 43.4402,0.6493 43.4177,0.6243 43.2875,0.4784 43.24,0.4355 43.2191,0.4089 43.1993,0.3808 43.1789,0.3608 43.0869,0.2692 42.9551,0.1243 42.8424,-0.0019 42.7617,-0.0914 42.7313,-0.1221 42.6699,-0.1777 42.5947,-0.2405 42.5215,-0.3078 42.472,-0.3718 42.4243,-0.4389 42.4119,-0.4563 42.3925,-0.4777 42.3693,-0.4917 42.3503,-0.511 42.2544,-0.6328 42.167,-0.7517 42.1298,-0.797 42.1121,-0.8138 42.0195,-0.8951 41.9258,-1.019 41.8703,-1.1265 41.7457,-1.336 41.6458,-1.495 41.5992,-1.5669 41.5436,-1.6376 41.5253,-1.6599 41.5117,-1.6728 41.5086,-1.5901 41.3352,-1.3628 41.1077,-1.0666 40.9526,-0.8649 40.943,1.0E-4 40.9429,1.3127 40.9428,2.3069 40.9426,2.7139 40.9453,2.8323 41.2399,3.1149 41.2904,3.1642 41.7505,3.8206 41.8489,3.96 41.8577,3.9758 41.8911,4.0181 41.8902,4.0482 41.9118,4.0839 41.9931,4.1384 42.0261,4.1715 42.0507,4.1819 42.07,4.1893 42.1039,4.1986 42.1481,4.2043 42.1881,4.2032 42.2221,4.1993 42.3221,4.1975 42.3532,4.2027 42.4376,4.2241 42.5741,4.2556 42.6078,4.2601 42.6782,4.2665 42.6924,4.2681 42.7202,4.2738 42.783,4.2907 42.8071,4.2999 42.828,4.3136 42.8712,4.3591 42.8848,4.3838 42.8976,4.4414 42.9083,4.4762 42.9202,4.4995 42.9368,4.5206 43.0319,4.5993 43.109,4.6611 43.1443,4.6827 43.2723,4.7433 43.3096,4.7602 43.4411,4.8171 43.5182,4.8471 43.5375,4.8547 43.6366,4.8864 43.6874,4.8951 43.7175,4.8978 43.7482,4.9001 43.7831,4.9047 43.8058,4.9084 43.8372,4.9173 43.8722,4.9291 43.9099,4.9458 43.9316,4.9575 44.0087,4.9531 44.1713,4.9428 44.2397,4.9388 44.4164,4.9279 44.462,4.925 44.8996,4.897 44.9486,4.9489 44.9566,4.9573 45.0447,5.0547 45.3227,5.3581 45.4375,5.4838 45.6645,5.7322 45.9035,5.9924 45.9379,6.0288 46.0617,6.1551 46.5088,6.6121 46.9385,7.0492 47.5021,7.5839 47.6044,7.6803 47.7082,7.7779 47.8502,7.9115 47.9346,7.9953 47.8487,7.9942 47.7971,7.9943 47.6931,7.9946 47.5544,7.9943 47.0342,7.993 46.9592,7.9922 46.942,7.9973 46.7384,8.0675 46.5008,8.1483 46.2799,8.2233 46.0078,8.3143 45.5655,8.4638 45.3613,8.5324 45.1396,8.6066 44.9521,8.6688 44.6008,8.7855 43.9617,8.9972 43.6794,9.2524 43.5791,9.3439 43.5351,9.3256 43.5075,9.338 43.3938,9.4071 43.3779,9.4243 43.3772,9.4505 43.3799,9.4746 43.3391,9.5465 43.281,9.6089 43.2579,9.6178 43.2358,9.624 43.2278,9.635 43.2196,9.6537 43.2131,9.6739 43.1991,9.7401 43.1903,9.7883 43.1774,9.8523 43.1568,9.8813 43.1331,9.8916 43.1005,9.8917 43.0632,9.8977 43.0373,9.914 43.0159,9.9379 43.0048,9.957 42.996,9.982 42.9878,10.0137 42.9662,10.07 42.9338,10.1063 42.9065,10.1211 42.876,10.1367 42.8442,10.1608 42.8175,10.1893 42.8037,10.2081 42.7701,10.3026 42.7593,10.3384 42.7567,10.369 42.7504,10.4112 42.7393,10.444 42.6999,10.4841 42.6756,10.5061 42.6625,10.5245 42.6344,10.571 42.618,10.621 42.7174,10.7684 42.7915,10.8617 42.8079,10.8801 42.8705,10.9431 42.8969,10.9903 42.9063,11.0082 42.9285,11.0413 43.0167,11.1744 43.0586,11.2377 43.1387,11.3575 43.1579,11.3853 43.1773,11.4182 43.2014,11.4569 43.2014,11.4569 87,8.0,Philippines 122.9596,11.224 122.9849,11.191 122.9879,11.1531 122.8104,11.0307 122.7412,11.0123 122.6532,10.9736 122.596,10.9326 122.6414,10.899 122.638,10.8509 122.6176,10.8108 122.5942,10.7888 122.4872,10.7919 122.4545,10.713 122.3516,10.6664 122.2525,10.6569 122.1299,10.6397 122.0742,10.6229 121.9692,10.5634 121.9513,10.5362 121.94,10.5064 121.9226,10.4774 121.8951,10.446 121.8796,10.4315 121.8362,10.4017 121.8098,10.4048 121.7909,10.4151 121.7763,10.433 121.7867,10.491 121.8131,10.5144 121.826,10.5416 121.8372,10.6004 121.8413,10.6347 121.8412,10.6677 121.8173,10.7204 121.7993,10.7695 121.8212,10.8415 121.8481,10.9166 121.8666,10.9352 121.8998,10.98 121.9162,11.017 121.9095,11.0732 121.9049,11.1074 121.9016,11.159 121.9148,11.2213 121.9041,11.3141 121.9133,11.3884 121.9333,11.4621 121.9579,11.5839 121.9662,11.6352 121.9614,11.6921 121.9399,11.7176 121.8526,11.7373 121.8083,11.7439 121.7754,11.7432 121.7402,11.7395 121.7141,11.7455 121.7529,11.8865 121.8188,11.9142 121.8387,11.91 121.8673,11.8974 121.8956,11.8643 121.9261,11.8358 121.9737,11.8159 122.0067,11.811 122.0713,11.7964 122.0937,11.7846 122.2695,11.6822 122.3849,11.575 122.451,11.5085 122.5667,11.5593 122.6116,11.5889 122.6949,11.5959 122.7562,11.5254 122.7607,11.4749 122.7302,11.4402 122.7445,11.4175 122.7712,11.4192 122.8653,11.4741 122.9355,11.5163 122.9702,11.5394 122.9936,11.5672 123.0108,11.5858 123.0302,11.5517 123.0136,11.3822 123.0088,11.3522 122.9596,11.224 122.9596,11.224 12,0.0,Guinea-Bissau -16.101,11.8652 -15.9632,11.8925 -15.9662,11.8634 -15.9741,11.8396 -16.0114,11.7454 -16.0671,11.7405 -16.0748,11.7429 -16.1399,11.796 -16.1472,11.8275 -16.1391,11.8581 -16.101,11.8652 -16.101,11.8652 19,6.5,Myanmar (Burma) 98.3045,11.5981 98.2701,11.6545 98.266,11.6643 98.264,11.6758 98.2611,11.7706 98.2721,11.7769 98.3363,11.7888 98.4186,11.7893 98.4325,11.7854 98.4397,11.7751 98.4435,11.762 98.4415,11.6918 98.4371,11.5968 98.4177,11.5691 98.3893,11.5533 98.3184,11.548 98.3032,11.5889 98.3045,11.5981 98.3045,11.5981 20,6.5,Myanmar (Burma) 98.0571,11.4405 98.0833,11.5034 98.1311,11.6727 98.1612,11.7817 98.171,11.7857 98.1822,11.784 98.1928,11.7701 98.2054,11.7418 98.2098,11.7319 98.2113,11.7127 98.1866,11.6332 98.1785,11.6134 98.1771,11.601 98.1727,11.4988 98.1722,11.4691 98.1016,11.432 98.0858,11.4303 98.0681,11.4342 98.0571,11.4405 98.0571,11.4405 11,7.0,Thailand 102.4466,11.7415 102.4909,11.684 102.497,11.6474 102.4967,11.6325 102.4801,11.5514 102.4699,11.5538 102.4185,11.5897 102.4153,11.6794 102.4354,11.739 102.4466,11.7415 102.4466,11.7415 11,8.0,Philippines 124.689,11.5154 124.6833,11.5158 124.6639,11.5239 124.6319,11.5529 124.5824,11.6865 124.5872,11.7151 124.7045,11.5789 124.7048,11.5303 124.6945,11.5169 124.689,11.5154 124.689,11.5154 18,8.0,Philippines 124.3503,11.449 124.3195,11.4615 124.3071,11.4731 124.2682,11.5294 124.2,11.6644 124.2857,11.6963 124.3272,11.6926 124.3402,11.6889 124.3936,11.6666 124.4717,11.5377 124.4788,11.5218 124.4814,11.5094 124.4782,11.4949 124.4732,11.486 124.4642,11.4732 124.4469,11.4599 124.3503,11.449 124.3503,11.449 13,0.0,Guinea-Bissau -16.0169,11.4046 -16.0472,11.4369 -15.9969,11.5343 -15.9633,11.5637 -15.9403,11.5813 -15.8998,11.5731 -15.8878,11.5645 -15.8851,11.5293 -15.8918,11.4576 -15.897,11.436 -15.9305,11.4114 -16.0169,11.4046 -16.0169,11.4046 18,0.0,Guinea-Bissau -16.2941,11.4646 -16.3062,11.4766 -16.3176,11.4863 -16.3504,11.4948 -16.3676,11.4864 -16.3758,11.474 -16.3966,11.4697 -16.4016,11.5205 -16.3725,11.5338 -16.2537,11.564 -16.2252,11.5627 -16.2209,11.5517 -16.227,11.5371 -16.2322,11.5237 -16.25,11.4872 -16.2611,11.4754 -16.2941,11.4646 -16.2941,11.4646 85,8.0,Philippines 125.0429,10.5315 125.0322,10.518 125.0505,10.4297 125.1001,10.3856 125.1196,10.3661 125.1335,10.3206 125.1347,10.2859 125.122,10.2516 124.9836,10.1658 124.9486,10.2033 124.9347,10.2351 124.9055,10.3045 124.899,10.3261 124.8867,10.3541 124.8677,10.3683 124.8416,10.3632 124.8516,10.2311 124.8716,10.1466 124.892,10.0708 124.8948,10.0326 124.8746,10.0182 124.8413,10.0292 124.7092,10.1223 124.6284,10.1852 124.6521,10.2896 124.6515,10.3176 124.6308,10.3432 124.6027,10.3664 124.5877,10.3957 124.5962,10.4571 124.6196,10.5003 124.6298,10.5234 124.63,10.5628 124.6681,10.6495 124.6616,10.7147 124.6524,10.7449 124.6422,10.7731 124.625,10.8059 124.5519,10.9183 124.5374,10.9361 124.485,10.9804 124.4596,10.998 124.4373,11.002 124.4154,10.9754 124.4129,10.9508 124.4173,10.9161 124.4079,10.8948 124.3975,10.8749 124.3846,10.859 124.3519,10.8503 124.2847,10.9012 124.2647,10.9619 124.2676,11.0992 124.2657,11.2268 124.2331,11.2793 124.2119,11.3013 124.1631,11.4593 124.1509,11.5188 124.179,11.554 124.398,11.3889 124.4151,11.3274 124.4442,11.2972 124.5038,11.2807 124.5697,11.2934 124.6042,11.3115 124.6254,11.3242 124.6709,11.3682 124.7186,11.4099 124.8124,11.4089 124.8348,11.3746 124.8398,11.3546 124.8402,11.241 124.8921,11.1835 124.903,10.9983 124.9033,10.967 124.9,10.9332 124.893,10.9079 124.8708,10.8572 124.8704,10.7994 124.8779,10.7316 124.9197,10.6995 124.947,10.6966 125.0071,10.599 125.0429,10.5315 125.0429,10.5315 16,8.0,Philippines 119.6967,11.3641 119.6817,11.3681 119.6331,11.3886 119.6173,11.4024 119.5964,11.4222 119.5822,11.4595 119.6821,11.5085 119.7178,11.5028 119.7407,11.4919 119.7448,11.4804 119.7407,11.4382 119.736,11.425 119.7248,11.3987 119.7027,11.3657 119.6967,11.3641 119.6967,11.3641 15,5.5,India 92.5243,11.3411 92.5132,11.3438 92.494,11.3614 92.5233,11.4773 92.5274,11.4871 92.5377,11.4995 92.5649,11.4834 92.579,11.4696 92.5873,11.4516 92.5914,11.442 92.6004,11.371 92.5738,11.3493 92.5309,11.3415 92.5243,11.3411 92.5243,11.3411 148,8.0,Philippines 118.6947,10.0928 118.6754,10.1003 118.6677,10.1582 118.6706,10.1788 118.729,10.197 118.7486,10.1901 118.7946,10.1926 118.865,10.2987 118.8756,10.3528 118.8415,10.3331 118.8303,10.3557 118.876,10.4279 118.9591,10.4095 119.0013,10.3723 119.034,10.4001 119.1825,10.5723 119.1912,10.5944 119.2102,10.7082 119.1761,10.7597 119.1451,10.7594 119.0977,10.8541 119.0854,10.9435 119.1322,10.9381 119.2863,10.7484 119.2962,10.723 119.3,10.7089 119.3244,10.7122 119.303,10.8143 119.2846,10.8574 119.2553,10.8588 119.2299,10.8611 119.2102,10.8829 119.1777,10.9315 119.1713,10.9628 119.1717,10.9938 119.1971,11.0873 119.2201,11.0638 119.2411,11.0315 119.2675,11.0155 119.2891,11.0185 119.2977,11.1283 119.2956,11.2157 119.2932,11.2526 119.289,11.2917 119.2994,11.3286 119.3401,11.4114 119.3692,11.401 119.3735,11.3813 119.376,11.3601 119.3765,11.323 119.3966,11.3064 119.4124,11.3204 119.4295,11.3066 119.4338,11.2757 119.4321,11.2494 119.4217,11.2096 119.3627,10.9794 119.3575,10.9513 119.3527,10.8671 119.3813,10.816 119.407,10.8069 119.4365,10.8236 119.4657,10.8119 119.4758,10.7138 119.4968,10.6614 119.5621,10.5298 119.5845,10.4992 119.5485,10.4743 119.4489,10.3949 119.3567,10.3604 119.3247,10.3608 119.2592,10.3321 119.1978,10.2981 119.1703,10.2653 119.1308,10.2156 119.1196,10.1951 119.1019,10.147 119.1067,10.1186 119.0864,10.0641 119.0716,10.0373 119.0269,10.015 118.8392,9.9676 118.8123,9.9613 118.7809,9.9636 118.7433,9.9685 118.6236,9.9139 118.563,9.7532 118.5632,9.7034 118.5855,9.6699 118.6231,9.6438 118.6019,9.6431 118.5007,9.5026 118.3281,9.2923 118.2176,9.1784 118.2009,9.1679 118.0542,9.1429 118.0117,9.136 117.9652,9.0376 117.9154,8.9348 117.8678,8.8677 117.8343,8.86 117.7784,8.8296 117.7583,8.8164 117.6735,8.7468 117.653,8.7105 117.6207,8.6817 117.503,8.6479 117.4074,8.5679 117.3206,8.4932 117.2441,8.4803 117.1923,8.4432 117.1142,8.3676 117.0708,8.3181 117.0476,8.3238 117.09,8.5055 117.1053,8.5547 117.1143,8.5554 117.1286,8.6 117.2139,8.7164 117.2386,8.7383 117.3137,8.7992 117.343,8.8457 117.3865,8.9074 117.532,9.0669 117.6555,9.1658 117.7761,9.2537 117.824,9.2588 117.8483,9.2497 117.8967,9.2487 117.9952,9.3439 118.2014,9.5735 118.2105,9.605 118.2943,9.696 118.3221,9.716 118.346,9.7238 118.386,9.7557 118.4767,9.8633 118.5108,9.9201 118.529,9.9636 118.5348,9.9948 118.6255,10.1125 118.6321,10.0579 118.6107,10.059 118.6363,10.0112 118.6471,10.0032 118.6712,10.0234 118.6947,10.0928 118.6947,10.0928 13,0.0,Guinea-Bissau -15.7455,11.1516 -15.7526,11.1545 -15.761,11.185 -15.7586,11.2132 -15.7356,11.2571 -15.6999,11.2833 -15.6719,11.293 -15.645,11.2889 -15.638,11.2256 -15.6435,11.2124 -15.7225,11.1545 -15.7455,11.1516 -15.7455,11.1516 64,8.0,Philippines 123.2752,10.0388 123.293,10.0526 123.3251,10.0818 123.3714,10.1317 123.4143,10.2174 123.4679,10.3422 123.49,10.3595 123.5289,10.4012 123.5738,10.4903 123.5706,10.5236 123.5786,10.5494 123.623,10.632 123.6562,10.6771 123.6969,10.7402 123.7277,10.8009 123.7378,10.8279 123.7673,10.9097 123.8251,11.0778 123.8237,11.1099 123.8098,11.137 123.8102,11.1649 123.8725,11.2586 123.9136,11.265 123.9315,11.2339 123.9095,11.2001 123.8832,11.1064 123.892,11.0415 123.9094,10.9973 123.9185,10.8658 123.8988,10.7835 123.8958,10.6058 123.8824,10.4405 123.8692,10.3962 123.8842,10.3753 123.8657,10.344 123.828,10.313 123.6604,10.2194 123.6353,10.2129 123.5823,10.1575 123.5013,10.0588 123.4881,10.0152 123.4905,9.9641 123.492,9.931 123.4678,9.862 123.439,9.8374 123.4036,9.7918 123.3786,9.7085 123.3759,9.6683 123.3371,9.5612 123.3036,9.5091 123.2356,9.4239 123.2161,9.4063 123.1976,9.3999 123.1687,9.4061 123.1612,9.4769 123.1717,9.5462 123.213,9.7648 123.2366,9.8604 123.2621,9.8633 123.2662,9.9122 123.2436,9.9315 123.239,9.9798 123.2752,10.0388 123.2752,10.0388 6,5.5,India 72.6968,11.1733 72.6911,11.1799 72.6977,11.2184 72.7083,11.2387 72.6968,11.1733 72.6968,11.1733 217,-6.0,Costa Rica -85.5979,11.0639 -85.5191,11.2003 -85.4695,11.1972 -85.4324,11.1537 -85.3264,11.114 -85.2653,11.1098 -85.1721,11.0722 -85.1274,11.0528 -85.0799,11.0324 -85.0707,11.0303 -85.0397,11.0149 -84.9939,10.9977 -84.8092,10.9285 -84.5811,11.0656 -84.25,10.9419 -84.1806,10.8867 -84.1323,10.8001 -84.1007,10.7715 -84.0653,10.7722 -84.0235,10.7519 -83.9877,10.7549 -83.9481,10.7662 -83.9047,10.7547 -83.8662,10.7225 -83.8284,10.6978 -83.7778,10.7107 -83.7353,10.7343 -83.6802,10.7583 -83.6687,10.7592 -83.6593,10.7586 -83.592,10.7751 -83.5681,10.7899 -83.5626,10.8126 -83.5702,10.8766 -83.5535,10.9127 -83.5451,10.9079 -83.5299,10.8937 -83.5089,10.8507 -83.501,10.8262 -83.4846,10.7735 -83.4779,10.7382 -83.4636,10.6805 -83.4142,10.5574 -83.3701,10.4671 -83.3194,10.3853 -83.2481,10.2883 -83.0136,9.9988 -82.9859,9.9796 -82.92,9.9392 -82.8885,9.898 -82.829,9.8189 -82.7621,9.7335 -82.6718,9.6419 -82.6096,9.6214 -82.5688,9.6164 -82.5174,9.5922 -82.4726,9.5523 -82.4702,9.5251 -82.5189,9.48 -82.5452,9.4775 -82.5914,9.4982 -82.6277,9.5359 -82.6575,9.5723 -82.7229,9.5959 -82.7465,9.5992 -82.7729,9.575 -82.8433,9.4612 -82.8393,9.1891 -82.8383,9.053 -82.7901,9.0572 -82.6517,8.9709 -82.6197,8.9151 -82.6277,8.901 -82.6643,8.8714 -82.721,8.8527 -82.7662,8.8329 -82.7873,8.816 -82.8219,8.7531 -82.8231,8.7301 -82.8044,8.7003 -82.7872,8.68 -82.7443,8.6269 -82.7331,8.5604 -82.7371,8.4654 -82.7837,8.4181 -82.8294,8.407 -82.8598,8.3903 -82.9247,8.3311 -82.9371,8.3012 -82.912,8.2819 -82.8792,8.2671 -82.8572,8.2612 -82.8403,8.2482 -82.793,8.0928 -82.7938,8.0665 -82.7995,8.0272 -82.8059,8.0167 -82.8043,8.0867 -82.8468,8.1741 -82.878,8.2204 -82.9016,8.2407 -82.9484,8.2767 -82.9913,8.2974 -83.0284,8.3242 -83.0504,8.3487 -83.0444,8.3788 -83.025,8.3952 -83.0025,8.4381 -83.0874,8.5903 -83.1392,8.6145 -83.233,8.6614 -83.2324,8.6937 -83.251,8.7183 -83.2808,8.7227 -83.3119,8.7196 -83.3873,8.6948 -83.3331,8.6031 -83.3067,8.5775 -83.2857,8.5678 -83.2574,8.5608 -83.2315,8.5502 -83.2001,8.5211 -83.1792,8.4532 -83.1789,8.4103 -83.1862,8.3684 -83.198,8.361 -83.2167,8.3629 -83.2749,8.3878 -83.3026,8.406 -83.3551,8.4245 -83.3898,8.4331 -83.4178,8.4339 -83.5019,8.4589 -83.6399,8.5777 -83.6425,8.6031 -83.6357,8.6254 -83.6128,8.6673 -83.581,8.6788 -83.4974,8.8315 -83.4945,8.865 -83.5094,8.9578 -83.5336,9.0264 -83.612,9.1082 -83.6329,9.1289 -83.6776,9.1713 -83.8573,9.3014 -83.9161,9.3276 -83.9808,9.3492 -84.0302,9.3598 -84.0549,9.3665 -84.0717,9.3907 -84.1363,9.458 -84.2884,9.4937 -84.3964,9.5136 -84.4392,9.5092 -84.5253,9.5689 -84.5652,9.6222 -84.578,9.6513 -84.5802,9.6817 -84.5607,9.7142 -84.5438,9.7276 -84.538,9.7551 -84.6144,9.9075 -84.6547,9.9561 -84.7124,9.9567 -84.7886,9.9921 -84.8246,10.0172 -84.9471,10.1189 -84.9768,10.1441 -85.1428,10.1959 -85.1499,10.169 -85.1451,10.0959 -85.1294,10.074 -85.1041,10.067 -85.0643,10.0341 -85.0741,10.009 -85.0437,9.9831 -84.9132,9.9261 -84.839,9.8814 -84.804,9.7968 -84.8575,9.7197 -85.0485,9.579 -85.1331,9.7166 -85.1849,9.7752 -85.2512,9.8218 -85.2914,9.8355 -85.3459,9.8474 -85.4381,9.8614 -85.4581,9.8592 -85.4787,9.8631 -85.525,9.8778 -85.5628,9.8941 -85.6202,9.9836 -85.6589,10.0376 -85.6709,10.046 -85.7011,10.0889 -85.7392,10.1834 -85.7574,10.236 -85.7633,10.3581 -85.7071,10.3993 -85.5605,10.5785 -85.5384,10.6098 -85.5856,10.7873 -85.6137,10.797 -85.6435,10.8036 -85.723,10.8343 -85.8168,10.8792 -85.7896,10.9019 -85.7543,10.9296 -85.7264,10.9319 -85.6316,10.9156 -85.6106,10.9211 -85.5952,10.9509 -85.5749,11.0429 -85.5933,11.0621 -85.5979,11.0639 -85.5979,11.0639 22,0.0,Guinea-Bissau -16.1369,11.0126 -16.1426,11.0134 -16.1703,11.0253 -16.1975,11.0428 -16.2164,11.0623 -16.2237,11.0728 -16.2251,11.0907 -16.2183,11.1011 -16.1454,11.1546 -16.0924,11.1918 -16.0622,11.1934 -16.0362,11.1753 -16.05,11.1546 -16.0483,11.1301 -16.036,11.1159 -16.0333,11.1044 -16.0362,11.0874 -16.031,11.0616 -16.0423,11.0274 -16.0672,11.0137 -16.1369,11.0126 -16.1369,11.0126 33,-4.0,Venezuela -63.9848,10.845 -63.9879,10.8529 -64.0657,10.9328 -64.0799,10.9399 -64.1032,10.9483 -64.1195,10.9347 -64.1301,10.9249 -64.1571,10.919 -64.2871,10.9424 -64.3347,10.9581 -64.3073,11.0446 -64.1473,11.0759 -64.131,11.0755 -64.1218,11.0708 -64.12,11.0604 -64.1266,11.0436 -64.1172,11.0279 -64.105,11.0193 -64.0351,10.9831 -64.013,10.9768 -63.9838,10.9733 -63.9721,10.9753 -63.9519,10.9877 -63.9168,11.0639 -63.8807,11.1031 -63.8141,11.1634 -63.7743,11.1149 -63.7341,11.0091 -63.7447,10.966 -63.8194,10.8922 -63.9018,10.881 -63.9848,10.845 -63.9848,10.845 326,0.0,Ghana -2.6824,9.4712 -2.6859,9.477 -2.7109,9.5107 -2.7417,9.5336 -2.7659,9.5591 -2.7663,9.5903 -2.7582,9.6165 -2.7414,9.6423 -2.7483,9.6455 -2.7819,9.6776 -2.7908,9.7216 -2.7601,9.7898 -2.7738,9.9971 -2.7921,10.0437 -2.791,10.1517 -2.7683,10.2056 -2.7873,10.2594 -2.8304,10.354 -2.8884,10.5076 -2.9128,10.5861 -2.9128,10.6434 -2.924,10.6961 -2.9037,10.7253 -2.8338,10.8739 -2.8301,10.9454 -2.8307,10.9896 -2.7318,10.9896 -2.2971,10.9887 -1.989,10.988 -1.7265,10.9882 -1.5688,10.9882 -1.5583,11.0114 -1.4178,11.0141 -1.3709,10.9877 -1.0906,10.9936 -0.9858,11.0023 -0.901,10.9946 -0.7834,10.9859 -0.6789,10.9855 -0.6776,10.9763 -0.665,10.9445 -0.6175,10.9016 -0.3636,11.0726 -0.2864,11.1432 -0.1764,11.1322 -0.1495,11.1261 -0.1443,11.1119 -0.0989,11.081 -0.077,11.0792 -0.0433,11.0899 -0.0048,11.0866 0.0314,11.0647 0.0347,11.0091 0.0322,10.9777 -0.02,10.8464 -0.059,10.7703 -0.0816,10.6906 -0.0832,10.6867 -0.0784,10.6392 -0.0634,10.6196 -0.0019,10.5967 0.0378,10.5787 0.1205,10.5101 0.2286,10.3979 0.2851,10.4027 0.303,10.3778 0.3661,10.2428 0.3576,10.1856 0.3493,10.1039 0.355,10.0821 0.372,10.0715 0.3955,10.0562 0.3998,10.0192 0.356,10.019 0.3243,9.7515 0.2591,9.6541 0.2232,9.5394 0.2169,9.4499 0.2293,9.4204 0.2485,9.4123 0.2819,9.4097 0.3359,9.4346 0.3548,9.4745 0.4226,9.4855 0.4624,9.4777 0.5009,9.462 0.5501,9.3984 0.5522,9.3569 0.5272,9.1961 0.5188,9.1777 0.5008,9.1473 0.4547,9.0503 0.4483,9.0224 0.5129,8.9101 0.5201,8.8788 0.5125,8.8348 0.4883,8.7862 0.3826,8.751 0.3882,8.7288 0.4118,8.6808 0.4695,8.5862 0.5377,8.5461 0.6318,8.4839 0.6493,8.4637 0.6984,8.3794 0.7254,8.3144 0.7278,8.2862 0.7036,8.2639 0.6662,8.2445 0.6377,8.2283 0.611,8.207 0.5971,8.0856 0.6222,7.8881 0.5927,7.6933 0.5208,7.5771 0.5138,7.5495 0.5122,7.5227 0.5102,7.4523 0.536,7.4079 0.5678,7.3785 0.5976,7.3796 0.6419,7.3896 0.6524,7.3615 0.6515,7.2746 0.6395,7.1977 0.6082,7.0096 0.5886,6.986 0.5244,6.9401 0.5685,6.8073 0.6431,6.726 0.65,6.7009 0.6464,6.6692 0.6427,6.6393 0.659,6.6033 0.6903,6.5817 0.7276,6.577 0.7433,6.5498 0.7241,6.5285 0.7219,6.5173 0.7268,6.4945 0.758,6.4405 0.7875,6.4085 0.9036,6.3224 1.0006,6.3183 1.0613,6.2127 1.0987,6.1535 1.1139,6.154 1.1998,6.1532 1.2016,6.111 1.1978,6.0939 1.171,6.0833 1.1359,6.0628 1.0979,6.0336 1.0739,6.0132 1.0295,5.9555 1.009,5.907 1.0021,5.8788 1.0008,5.8463 0.9912,5.8185 0.9682,5.7915 0.9439,5.7746 0.9191,5.7656 0.7891,5.7505 0.6874,5.7474 0.6939,5.7668 0.6659,5.7967 0.6498,5.8309 0.657,5.8435 0.657,5.8738 0.65,5.9038 0.6352,5.938 0.5806,5.9947 0.5058,6.0519 0.4465,6.0741 0.4046,6.0744 0.3802,6.0448 0.3112,6.052 0.2785,6.0845 0.2608,6.0944 0.2375,6.098 0.2172,6.0915 0.2082,6.083 0.2209,6.083 0.2521,6.0758 0.284,6.053 0.3093,6.0321 0.3223,6.0291 0.3534,6.0166 0.3784,6.0195 0.408,6.0547 0.4299,6.063 0.4886,6.037 0.5061,6.0271 0.5746,5.9854 0.5936,5.9665 0.6171,5.9359 0.642,5.878 0.639,5.8391 0.6629,5.7537 0.4642,5.7579 0.4055,5.7638 0.3829,5.7677 0.3625,5.7716 0.3095,5.7702 0.2556,5.7514 0.1384,5.706 0.0691,5.6629 0.0363,5.6228 -0.0689,5.5721 -0.2097,5.5222 -0.2659,5.5052 -0.2988,5.4978 -0.3572,5.4871 -0.4277,5.4308 -0.4845,5.3688 -0.5334,5.3481 -0.5784,5.3457 -0.6486,5.3216 -0.6932,5.2994 -0.7098,5.2846 -0.7281,5.2622 -0.7969,5.2023 -0.8987,5.1944 -0.9814,5.1902 -1.0429,5.1923 -1.0653,5.1886 -1.1277,5.1573 -1.158,5.1333 -1.1776,5.1189 -1.2101,5.1034 -1.259,5.0866 -1.2992,5.0843 -1.4137,5.0597 -1.5344,5.0294 -1.5668,5.014 -1.593,5.0187 -1.6177,5.0113 -1.7342,4.9083 -1.9535,4.7632 -2.0564,4.7257 -2.0841,4.7217 -2.1017,4.7419 -2.2546,4.8715 -2.2774,4.8863 -2.3271,4.9083 -2.3489,4.9139 -2.3784,4.9192 -2.433,4.9266 -2.5012,4.9408 -2.5456,4.9516 -2.5837,4.9614 -2.7266,5.0007 -2.8395,5.0176 -2.8625,5.0221 -2.9738,5.0445 -3.0357,5.0583 -3.0691,5.069 -3.0993,5.0794 -3.0986,5.1041 -3.0381,5.1014 -2.972,5.0776 -2.9245,5.0947 -2.7502,5.0951 -2.7312,5.1073 -2.7259,5.1357 -2.7407,5.1672 -2.7592,5.1985 -2.7801,5.2743 -2.7657,5.3445 -2.7383,5.4402 -2.7612,5.573 -2.7941,5.6093 -2.8364,5.6231 -2.8765,5.6183 -2.8966,5.6107 -2.9276,5.6058 -2.9565,5.621 -3.0101,5.7013 -3.0026,5.8513 -3.0666,5.9855 -3.0849,6.1051 -3.091,6.1386 -3.1434,6.2409 -3.1644,6.2494 -3.1633,6.2625 -3.1654,6.2859 -3.2033,6.44 -3.2282,6.5356 -3.2448,6.6064 -3.2379,6.6356 -3.2028,6.6877 -3.2052,6.7457 -3.2206,6.811 -3.115,6.9942 -3.0927,7.0427 -3.0204,7.0653 -2.9699,7.254 -2.9449,7.4237 -2.92,7.5873 -2.8515,7.7333 -2.8364,7.748 -2.7816,7.8451 -2.7719,7.9343 -2.657,8.0142 -2.5972,8.113 -2.5574,8.1552 -2.4847,8.1886 -2.4926,8.2403 -2.5564,8.6353 -2.5679,8.7038 -2.5773,8.7586 -2.5819,8.7716 -2.6083,8.7705 -2.6148,8.7744 -2.595,8.807 -2.6137,8.9044 -2.6566,9.0045 -2.7264,9.023 -2.7644,9.0536 -2.7575,9.1116 -2.7104,9.1896 -2.684,9.2149 -2.6648,9.3724 -2.6714,9.4556 -2.6824,9.4712 -2.6824,9.4712 201,0.0,Togo -0.1495,11.1261 -0.142,11.1253 -0.0894,11.1149 0.0504,11.0865 0.1898,11.0583 0.2187,11.0517 0.4164,11.0121 0.5051,10.9922 0.5142,10.9631 0.5038,10.9249 0.6301,10.9716 0.6653,10.984 0.7237,10.9847 0.8112,10.9846 0.917,10.984 0.8897,10.8988 0.8926,10.8547 0.8784,10.7877 0.8064,10.7115 0.8013,10.7007 0.7998,10.6899 0.7995,10.6691 0.8033,10.6294 0.8067,10.5955 0.8051,10.5618 0.7974,10.535 0.7866,10.5177 0.7758,10.3653 0.9982,10.2086 1.066,10.163 1.1714,10.0973 1.186,10.0889 1.3065,10.014 1.3536,9.9843 1.3576,9.9039 1.3686,9.6256 1.3668,9.5859 1.336,9.5319 1.3597,9.475 1.363,9.471 1.3885,9.4758 1.3972,9.4196 1.3978,9.3776 1.4056,9.3343 1.4167,9.3087 1.4303,9.2911 1.4511,9.27 1.4919,9.2182 1.5091,9.2005 1.5383,9.1795 1.5669,9.1579 1.6043,9.089 1.6182,9.0242 1.6248,8.8371 1.6242,8.7168 1.6237,8.5777 1.6224,8.4158 1.6153,8.3578 1.6292,8.351 1.6363,7.9899 1.6376,7.7514 1.6401,7.6197 1.6491,7.5395 1.6536,7.5215 1.6485,7.5056 1.6426,7.4348 1.642,7.4016 1.6436,7.3257 1.6407,6.9878 1.5523,6.989 1.5607,6.9405 1.5754,6.9016 1.6026,6.8865 1.6056,6.789 1.5883,6.7082 1.5736,6.6725 1.6151,6.5891 1.6457,6.5658 1.6536,6.5634 1.6623,6.5697 1.6911,6.5419 1.7472,6.4495 1.7696,6.4076 1.7934,6.3013 1.7957,6.2735 1.7406,6.2626 1.6811,6.2525 1.6509,6.2434 1.6281,6.2281 1.6338,6.212 1.5589,6.1993 1.4674,6.1797 1.4073,6.1609 1.4021,6.1584 1.2924,6.1316 1.1978,6.0939 1.2016,6.111 1.1998,6.1532 1.1139,6.154 1.0987,6.1535 1.0613,6.2127 1.0006,6.3183 0.9036,6.3224 0.7875,6.4085 0.758,6.4405 0.7268,6.4945 0.7219,6.5173 0.7241,6.5285 0.7433,6.5498 0.7276,6.577 0.6903,6.5817 0.659,6.6033 0.6427,6.6393 0.6464,6.6692 0.65,6.7009 0.6431,6.726 0.5685,6.8073 0.5244,6.9401 0.5886,6.986 0.6082,7.0096 0.6395,7.1977 0.6515,7.2746 0.6524,7.3615 0.6419,7.3896 0.5976,7.3796 0.5678,7.3785 0.536,7.4079 0.5102,7.4523 0.5122,7.5227 0.5138,7.5495 0.5208,7.5771 0.5927,7.6933 0.6222,7.8881 0.5971,8.0856 0.611,8.207 0.6377,8.2283 0.6662,8.2445 0.7036,8.2639 0.7278,8.2862 0.7254,8.3144 0.6984,8.3794 0.6493,8.4637 0.6318,8.4839 0.5377,8.5461 0.4695,8.5862 0.4118,8.6808 0.3882,8.7288 0.3826,8.751 0.4883,8.7862 0.5125,8.8348 0.5201,8.8788 0.5129,8.9101 0.4483,9.0224 0.4547,9.0503 0.5008,9.1473 0.5188,9.1777 0.5272,9.1961 0.5522,9.3569 0.5501,9.3984 0.5009,9.462 0.4624,9.4777 0.4226,9.4855 0.3548,9.4745 0.3359,9.4346 0.2819,9.4097 0.2485,9.4123 0.2293,9.4204 0.2169,9.4499 0.2232,9.5394 0.2591,9.6541 0.3243,9.7515 0.356,10.019 0.3998,10.0192 0.3955,10.0562 0.372,10.0715 0.355,10.0821 0.3493,10.1039 0.3576,10.1856 0.3661,10.2428 0.303,10.3778 0.2851,10.4027 0.2286,10.3979 0.1205,10.5101 0.0378,10.5787 -0.0019,10.5967 -0.0634,10.6196 -0.0784,10.6392 -0.0832,10.6867 -0.0816,10.6906 -0.059,10.7703 -0.02,10.8464 0.0322,10.9777 0.0347,11.0091 0.0314,11.0647 -0.0048,11.0866 -0.0433,11.0899 -0.077,11.0792 -0.0989,11.081 -0.1443,11.1119 -0.1495,11.1261 -0.1495,11.1261 108,8.0,Philippines 122.4598,9.4247 122.4421,9.4354 122.4068,9.4731 122.3478,9.5484 122.2796,9.6477 122.262,9.7178 122.2727,9.7876 122.3201,9.9636 122.3666,9.9709 122.397,9.9704 122.4383,9.9668 122.4724,9.9608 122.4842,9.9595 122.5291,9.962 122.5524,9.9705 122.6599,10.0248 122.6795,10.04 122.6872,10.0418 122.7227,10.0839 122.7273,10.1087 122.7273,10.1412 122.7206,10.3074 122.6951,10.4158 122.7012,10.5323 122.7118,10.5337 122.7249,10.5391 122.7454,10.5556 122.7834,10.5992 122.8175,10.6754 122.8284,10.7259 122.831,10.7926 122.8247,10.8013 122.8136,10.8212 122.8112,10.8324 122.8109,10.8461 122.8175,10.8823 122.8651,10.9072 123.0499,10.9871 123.0639,10.9881 123.089,10.9846 123.369,10.9254 123.4269,10.8326 123.4281,10.82 123.4283,10.7822 123.3301,10.5062 123.3162,10.4912 123.2857,10.4654 123.2724,10.4608 123.26,10.457 123.2378,10.4405 123.2267,10.4236 123.2225,10.4147 123.2155,10.3987 123.2118,10.383 123.1989,10.2651 123.1911,10.2309 123.1488,10.1167 123.1326,10.076 123.1031,10.0124 123.0869,9.9899 123.0717,9.9729 123.0507,9.9434 123.0245,9.901 123.0181,9.8881 123.0036,9.8186 123.0098,9.8062 123.022,9.7457 123.0269,9.7019 123.0278,9.6845 123.0196,9.6498 123.0077,9.6405 122.9944,9.6425 122.9821,9.6415 122.9718,9.6171 123.0134,9.5343 123.055,9.4647 123.1026,9.4115 123.1661,9.3382 123.1769,9.3226 123.1794,9.3088 123.1766,9.2861 123.1601,9.2194 123.1562,9.2095 123.1419,9.1827 123.1087,9.1364 123.0533,9.0853 123.0253,9.06 122.9928,9.0351 122.8785,9.024 122.8499,9.0368 122.8028,9.0643 122.7731,9.1275 122.7543,9.1843 122.743,9.2221 122.7382,9.2523 122.7397,9.2737 122.7371,9.2994 122.7307,9.3135 122.6711,9.3446 122.6514,9.3493 122.592,9.3619 122.5702,9.3624 122.5554,9.364 122.5406,9.3688 122.5073,9.3882 122.4688,9.413 122.4598,9.4247 122.4598,9.4247 23,6.5,Myanmar (Burma) 98.1761,10.7132 98.1745,10.6946 98.1589,10.6788 98.1238,10.678 98.1255,10.7215 98.1314,10.7556 98.1325,10.8131 98.1061,10.8523 98.0467,10.9106 98.0355,10.9063 98.014,10.8855 97.9972,10.8714 97.9791,10.8622 97.9694,10.8753 98.032,10.9634 98.0655,10.9668 98.0977,10.9435 98.1041,10.9358 98.1553,10.8248 98.1596,10.8148 98.1621,10.8039 98.1761,10.7132 98.1761,10.7132 16,-4.0,Venezuela -65.2091,10.8682 -65.2278,10.8709 -65.3213,10.895 -65.3437,10.9041 -65.3438,10.9149 -65.3146,10.9443 -65.3019,10.9524 -65.2923,10.9571 -65.2324,10.9638 -65.1401,10.9418 -65.1289,10.8995 -65.1277,10.8862 -65.138,10.8791 -65.1966,10.8689 -65.2091,10.8682 -65.2091,10.8682 22,5.5,India 92.4589,10.7651 92.4733,10.7005 92.4755,10.689 92.4749,10.6758 92.4347,10.5641 92.4118,10.5282 92.4061,10.5197 92.3941,10.5079 92.3597,10.5035 92.2667,10.5257 92.2581,10.531 92.2452,10.6823 92.2456,10.7027 92.2514,10.7648 92.2556,10.7777 92.3342,10.8514 92.3652,10.8761 92.3966,10.8888 92.4238,10.864 92.4291,10.855 92.4589,10.7651 92.4589,10.7651 9,5.5,India 72.1195,10.8517 72.1164,10.8361 72.1007,10.8055 72.0915,10.8005 72.0967,10.827 72.1014,10.8361 72.1168,10.8584 72.1195,10.8517 72.1195,10.8517 14,8.0,Philippines 125.6283,10.6737 125.6119,10.6778 125.5334,10.7309 125.5231,10.7422 125.5233,10.771 125.5431,10.8009 125.5571,10.8111 125.575,10.8042 125.6766,10.7183 125.6841,10.7061 125.676,10.6813 125.6646,10.677 125.6283,10.6737 125.6283,10.6737 22,8.0,Philippines 122.4098,10.3914 122.388,10.3958 122.3462,10.4642 122.3457,10.4762 122.3847,10.5733 122.39,10.5814 122.409,10.6079 122.4825,10.6955 122.5219,10.7348 122.5376,10.7331 122.5785,10.7049 122.5882,10.6793 122.5949,10.6269 122.5963,10.606 122.551,10.4927 122.5342,10.4618 122.501,10.4319 122.4765,10.4206 122.4598,10.4216 122.4317,10.4176 122.4098,10.3914 122.4098,10.3914 492,0.0,Ivory Coast -7.965,10.1544 -7.9547,10.1487 -7.9304,10.146 -7.8804,10.1624 -7.8177,10.1911 -7.7791,10.234 -7.7481,10.2846 -7.746,10.3192 -7.7231,10.3656 -7.6945,10.3916 -7.6295,10.435 -7.4433,10.3855 -7.3514,10.3393 -7.34,10.3158 -7.2615,10.243 -7.1759,10.2254 -7.1202,10.2119 -7.0706,10.1919 -7.0532,10.1786 -7.0317,10.1448 -7.0114,10.1307 -6.9802,10.1362 -6.9607,10.1445 -6.9407,10.1662 -6.9378,10.1967 -6.9475,10.2145 -6.973,10.2364 -6.9527,10.322 -6.933,10.3421 -6.7121,10.339 -6.6489,10.3426 -6.6433,10.3493 -6.6244,10.4222 -6.6429,10.441 -6.6616,10.4489 -6.6774,10.4799 -6.669,10.5867 -6.6618,10.6162 -6.6382,10.6523 -6.6142,10.6491 -6.5944,10.6256 -6.5817,10.5983 -6.5257,10.5644 -6.4147,10.5398 -6.3809,10.5822 -6.4098,10.6112 -6.4062,10.676 -6.2364,10.7234 -6.2174,10.7111 -6.1819,10.6248 -6.2054,10.5579 -6.1762,10.4521 -6.1746,10.4233 -6.1733,10.3917 -6.1731,10.3533 -6.1902,10.225 -6.1812,10.2203 -6.1386,10.2005 -6.1043,10.1865 -6.0834,10.1794 -5.9974,10.18 -5.9705,10.2052 -5.9574,10.2263 -5.9306,10.2732 -5.8757,10.3582 -5.7911,10.4098 -5.7756,10.4148 -5.7398,10.4118 -5.7196,10.4111 -5.6953,10.4183 -5.6627,10.4342 -5.5592,10.4457 -5.5136,10.4247 -5.5144,10.4162 -5.4642,10.3366 -5.3978,10.2862 -5.3652,10.2781 -5.3324,10.2857 -5.3015,10.2937 -5.2625,10.3076 -5.2381,10.3084 -5.1222,10.2918 -4.9847,10.0529 -4.9439,9.9377 -4.8249,9.8515 -4.781,9.8171 -4.7799,9.772 -4.8046,9.767 -4.7697,9.7257 -4.6991,9.6873 -4.6497,9.6923 -4.5996,9.7101 -4.5095,9.6795 -4.4211,9.6466 -4.3257,9.6045 -4.3074,9.5893 -4.2783,9.641 -4.2746,9.6651 -4.2571,9.732 -4.1193,9.8183 -4.0294,9.796 -3.9319,9.8523 -3.899,9.8711 -3.8862,9.8832 -3.8779,9.8869 -3.7491,9.9239 -3.7023,9.9326 -3.6328,9.9434 -3.3901,9.9089 -3.2047,9.8903 -3.1203,9.825 -2.9827,9.7137 -2.9657,9.6889 -2.9342,9.6169 -2.9174,9.5662 -2.8474,9.471 -2.7981,9.4135 -2.7763,9.3932 -2.7537,9.3854 -2.7283,9.4005 -2.6824,9.4712 -2.6714,9.4556 -2.6648,9.3724 -2.684,9.2149 -2.7104,9.1896 -2.7575,9.1116 -2.7644,9.0536 -2.7264,9.023 -2.6566,9.0045 -2.6137,8.9044 -2.595,8.807 -2.6148,8.7744 -2.6083,8.7705 -2.5819,8.7716 -2.5773,8.7586 -2.5679,8.7038 -2.5564,8.6353 -2.4926,8.2403 -2.4847,8.1886 -2.5574,8.1552 -2.5972,8.113 -2.657,8.0142 -2.7719,7.9343 -2.7816,7.8451 -2.8364,7.748 -2.8515,7.7333 -2.92,7.5873 -2.9449,7.4237 -2.9699,7.254 -3.0204,7.0653 -3.0927,7.0427 -3.115,6.9942 -3.2206,6.811 -3.2052,6.7457 -3.2028,6.6877 -3.2379,6.6356 -3.2448,6.6064 -3.2282,6.5356 -3.2033,6.44 -3.1654,6.2859 -3.1633,6.2625 -3.1644,6.2494 -3.1434,6.2409 -3.091,6.1386 -3.0849,6.1051 -3.0666,5.9855 -3.0026,5.8513 -3.0101,5.7013 -2.9565,5.621 -2.9276,5.6058 -2.8966,5.6107 -2.8765,5.6183 -2.8364,5.6231 -2.7941,5.6093 -2.7612,5.573 -2.7383,5.4402 -2.7657,5.3445 -2.7801,5.2743 -2.7592,5.1985 -2.7407,5.1672 -2.7259,5.1357 -2.7312,5.1073 -2.7502,5.0951 -2.9245,5.0947 -2.9288,5.1094 -2.8922,5.127 -2.8716,5.1339 -2.8444,5.1413 -2.8594,5.1771 -2.9262,5.1628 -3.0024,5.1232 -3.1324,5.1365 -3.1941,5.2017 -3.1937,5.2294 -3.1677,5.2702 -3.1284,5.3097 -3.1221,5.3409 -3.1365,5.3585 -3.2224,5.3514 -3.2538,5.3264 -3.2562,5.2724 -3.2611,5.2206 -3.2747,5.1323 -3.2941,5.1135 -3.346,5.1118 -3.3947,5.118 -3.4222,5.1248 -3.4503,5.1343 -3.5082,5.142 -3.5457,5.1455 -3.666,5.1693 -3.7523,5.1852 -3.7924,5.186 -3.9474,5.2245 -3.9736,5.2327 -3.9989,5.2509 -3.9332,5.266 -3.8847,5.2635 -3.8407,5.2591 -3.7765,5.2523 -3.7304,5.2534 -3.7101,5.2726 -3.7501,5.3475 -3.7667,5.3648 -3.8071,5.3666 -3.8011,5.3456 -3.7708,5.3211 -3.7343,5.2702 -3.7915,5.2666 -3.8442,5.291 -3.9067,5.3143 -4.0556,5.2909 -4.3183,5.2974 -4.4629,5.2897 -4.476,5.2724 -4.5072,5.2514 -4.6001,5.233 -4.736,5.2188 -4.793,5.2065 -4.8018,5.1707 -4.7818,5.1627 -4.7308,5.1919 -4.7087,5.1971 -4.5507,5.2156 -4.5051,5.2173 -4.4657,5.2144 -4.4412,5.2121 -4.4002,5.2163 -4.2864,5.2364 -4.2206,5.2501 -4.1415,5.2715 -4.1211,5.2716 -4.0884,5.2715 -4.0356,5.2688 -4.0011,5.2251 -4.1908,5.1981 -4.2329,5.1963 -4.2597,5.1958 -4.3446,5.1916 -4.6248,5.1714 -4.6572,5.1629 -4.7083,5.1468 -4.7478,5.1388 -4.7722,5.1361 -4.7819,5.1363 -4.8339,5.1292 -4.8882,5.123 -4.94,5.1231 -4.9731,5.1262 -5.0024,5.1574 -4.9927,5.2023 -5.0206,5.209 -5.0638,5.1963 -5.1037,5.1781 -5.1579,5.2015 -5.1899,5.2108 -5.2229,5.2088 -5.255,5.2052 -5.2653,5.2101 -5.3166,5.223 -5.3345,5.1955 -5.3136,5.1848 -5.2967,5.1902 -5.2918,5.1854 -5.2975,5.175 -5.3468,5.1427 -5.3887,5.1629 -5.4046,5.1486 -5.3543,5.1127 -5.2727,5.1196 -5.2339,5.1538 -5.2244,5.1936 -5.1609,5.19 -5.1279,5.1647 -5.0937,5.1588 -5.0694,5.1797 -5.0442,5.1828 -5.0231,5.1733 -5.0081,5.1194 -5.3286,5.0948 -5.3739,5.0926 -5.3941,5.0921 -5.4219,5.0925 -5.4764,5.0858 -5.8141,5.0334 -5.8525,5.0251 -5.8904,5.0147 -5.9518,4.992 -6.0505,4.9533 -6.0695,4.9366 -6.2077,4.8724 -6.2426,4.8632 -6.2623,4.8584 -6.3094,4.8451 -6.399,4.8184 -6.548,4.7635 -6.5715,4.753 -6.5915,4.732 -6.6113,4.7177 -6.7016,4.6862 -6.7385,4.6787 -6.7807,4.6792 -6.8174,4.6744 -6.8633,4.6648 -6.9,4.6519 -6.9154,4.628 -7.0301,4.5397 -7.0633,4.5252 -7.1259,4.5128 -7.1864,4.5102 -7.1984,4.5037 -7.2925,4.4477 -7.3732,4.3888 -7.4095,4.3532 -7.4276,4.3444 -7.4609,4.3398 -7.4891,4.3426 -7.5166,4.3482 -7.5472,4.3732 -7.5513,4.4494 -7.5457,4.5324 -7.5424,4.601 -7.5488,4.7389 -7.5526,4.7761 -7.5787,4.8057 -7.5819,4.8167 -7.5796,4.9004 -7.5517,5.0457 -7.4949,5.09 -7.3598,5.3197 -7.3754,5.3624 -7.4174,5.3899 -7.4276,5.4279 -7.4076,5.4797 -7.3829,5.5349 -7.364,5.5634 -7.391,5.6253 -7.397,5.64 -7.4228,5.7087 -7.4276,5.7373 -7.4242,5.783 -7.4193,5.8051 -7.4169,5.8391 -7.439,5.8538 -7.4894,5.8368 -7.5546,5.8767 -7.6461,5.9314 -7.6787,5.9042 -7.7488,5.94 -7.7746,5.9713 -7.7707,6.0078 -7.7802,6.0639 -7.8165,6.1994 -7.8665,6.2384 -7.8887,6.255 -7.9901,6.2934 -8.058,6.2868 -8.1129,6.2709 -8.1342,6.2688 -8.1601,6.2681 -8.3648,6.3537 -8.4653,6.4288 -8.5343,6.4851 -8.5963,6.5007 -8.5928,6.5156 -8.5683,6.5219 -8.557,6.5449 -8.5303,6.5545 -8.5187,6.5887 -8.4946,6.5982 -8.4729,6.6128 -8.4481,6.6292 -8.437,6.6488 -8.4255,6.6452 -8.4083,6.6597 -8.3691,6.7083 -8.3545,6.7318 -8.3299,6.7768 -8.3179,6.8031 -8.2991,6.8503 -8.2811,7.015 -8.277,7.1706 -8.3137,7.1951 -8.3409,7.2214 -8.3821,7.3073 -8.3935,7.3689 -8.4002,7.4121 -8.4,7.4452 -8.4063,7.4882 -8.4265,7.523 -8.4599,7.5528 -8.4107,7.5964 -8.3886,7.6097 -8.2762,7.5741 -8.2092,7.5365 -8.1771,7.5647 -8.1772,7.5926 -8.175,7.613 -8.085,7.7738 -8.0713,7.7966 -8.102,7.8323 -8.1098,7.8559 -8.0674,7.9402 -8.0468,7.9677 -8.0413,8.0099 -8.0443,8.024 -8.0098,8.0214 -7.9376,8.0098 -7.9423,8.0275 -7.9901,8.1447 -8.0114,8.1705 -8.0537,8.1547 -8.1009,8.1655 -8.1653,8.1885 -8.2196,8.2312 -8.2226,8.2654 -8.2254,8.3057 -8.2316,8.4372 -8.1792,8.4897 -7.94,8.4921 -7.808,8.4769 -7.7754,8.4454 -7.7518,8.4064 -7.7401,8.3734 -7.6888,8.3616 -7.6448,8.3746 -7.6569,8.4065 -7.6659,8.4284 -7.6664,8.5382 -7.6647,8.6057 -7.742,8.7078 -7.7835,8.7459 -7.8749,8.7658 -7.9017,8.7577 -7.9318,8.7705 -7.9473,8.7948 -7.9476,8.8163 -7.9277,8.9232 -7.919,8.962 -7.9052,8.9929 -7.8899,9.0088 -7.8017,9.059 -7.7278,9.0623 -7.7273,9.0815 -7.7882,9.1157 -7.8944,9.1693 -7.9111,9.194 -7.9081,9.2249 -7.8685,9.3412 -7.9528,9.3792 -8.0104,9.3778 -8.0468,9.3929 -8.0554,9.4083 -8.1002,9.4538 -8.1227,9.4863 -8.1343,9.5233 -8.1363,9.5466 -8.1384,9.6099 -8.1057,9.7945 -8.102,9.7981 -8.0952,9.8039 -8.0949,9.8532 -8.121,9.875 -8.1492,9.9165 -8.1385,9.9728 -8.0921,10.0424 -8.0564,10.0509 -8.0329,10.0622 -8.0101,10.0778 -7.9959,10.0945 -7.965,10.1544 -7.965,10.1544 29,7.0,Vietnam 106.6647,10.6514 106.7102,10.6088 106.728,10.6007 106.7393,10.5921 106.7413,10.5721 106.7203,10.5615 106.7355,10.5225 106.7554,10.4913 106.7481,10.4588 106.7528,10.4444 106.7425,10.4287 106.7405,10.395 106.7248,10.3907 106.7091,10.3931 106.6704,10.4289 106.6586,10.4413 106.6446,10.4596 106.6384,10.4696 106.6356,10.4826 106.6329,10.5469 106.6397,10.5561 106.6676,10.5628 106.6666,10.5809 106.6614,10.5988 106.6608,10.6123 106.6477,10.6333 106.6353,10.6473 106.6647,10.6514 106.6647,10.6514 16,8.0,Philippines 119.6855,10.4274 119.6523,10.4379 119.6193,10.5066 119.6184,10.5204 119.6217,10.5391 119.6296,10.547 119.705,10.5948 119.7672,10.5994 119.8655,10.5837 119.879,10.5444 119.8618,10.5158 119.796,10.4619 119.7482,10.4437 119.696,10.428 119.6855,10.4274 119.6855,10.4274 5,5.5,India 72.5675,10.5575 72.5578,10.542 72.5467,10.5392 72.5675,10.5575 72.5675,10.5575 27,8.0,Philippines 125.5091,9.8109 125.4447,9.8128 125.4588,9.8484 125.4838,9.885 125.475,9.936 125.365,10.0559 125.3438,10.0928 125.3397,10.11 125.3379,10.12 125.3771,10.3068 125.4861,10.4465 125.4989,10.4552 125.5108,10.455 125.5361,10.4074 125.545,10.3796 125.5176,10.2413 125.5178,10.1533 125.5274,10.1056 125.5364,10.0954 125.5616,10.0584 125.5741,9.8813 125.569,9.8534 125.5526,9.8351 125.5388,9.8228 125.5251,9.8151 125.5091,9.8109 125.5091,9.8109 20,7.0,Vietnam 103.8984,10.4278 103.9411,10.3902 103.9506,10.3795 103.9612,10.3661 103.969,10.3534 103.9729,10.2361 103.9645,10.2103 103.9128,10.0689 103.8492,10.2017 103.8356,10.2326 103.8148,10.2643 103.804,10.2736 103.7628,10.2892 103.7523,10.2883 103.7454,10.2995 103.7248,10.3563 103.7397,10.3622 103.8632,10.422 103.8984,10.4278 103.8984,10.4278 42,8.0,Philippines 124.3923,10.0442 124.4137,10.0254 124.4283,10.0111 124.4376,9.9814 124.4427,9.9016 124.4374,9.8752 124.417,9.8586 124.3923,9.8374 124.4208,9.8138 124.4517,9.7992 124.4627,9.7508 124.4417,9.7232 124.3943,9.7158 124.3645,9.7395 124.271,9.648 124.2205,9.613 124.1814,9.5982 124.1532,9.5898 124.1312,9.5858 123.9607,9.574 123.9229,9.5738 123.8205,9.5879 123.7251,9.6246 123.656,9.7225 123.6459,9.7589 123.6512,9.8329 123.7502,9.9043 123.8218,9.9394 123.844,9.9492 123.9096,9.9873 123.997,10.1003 124.003,10.1204 124.0169,10.1366 124.0752,10.1452 124.1056,10.1469 124.1793,10.1459 124.2403,10.1357 124.2838,10.0838 124.3312,10.0472 124.3512,10.0389 124.3923,10.0442 124.3923,10.0442 14,8.0,Philippines 125.1426,9.8966 125.1184,9.9083 125.0014,10.0493 124.9876,10.0717 124.984,10.0919 124.9827,10.1324 124.9918,10.1442 125.0791,10.1128 125.1462,9.9843 125.1628,9.9208 125.1593,9.9068 125.1497,9.8981 125.1426,9.8966 125.1426,9.8966 7,5.5,India 73.5662,10.0737 73.5649,10.0576 73.5556,10.042 73.5497,10.0576 73.5622,10.0854 73.5662,10.0737 73.5662,10.0737 15,6.5,Myanmar (Burma) 98.1763,9.9958 98.0684,9.9133 98.0482,9.8659 98.0284,9.8285 98.0072,9.8486 98.0086,9.9051 98.0194,9.9275 98.0586,9.9917 98.0677,10.0032 98.1339,10.0446 98.1499,10.0462 98.182,10.0424 98.1808,9.9965 98.1763,9.9958 98.1763,9.9958 17,8.0,Philippines 125.8938,9.7318 125.8074,9.8201 125.8302,9.8769 125.8993,10.0147 125.9116,10.035 125.9202,10.0421 125.9354,10.0408 125.9529,9.9908 125.9811,9.8923 125.9849,9.8605 126.0077,9.8274 126.0364,9.7944 126.0303,9.7724 126.0183,9.7634 125.9758,9.734 125.8938,9.7318 125.8938,9.7318 190,0.0,Sierra Leone -10.2551,8.4789 -10.2525,8.4456 -10.2859,8.1898 -10.3218,8.1507 -10.3464,8.1366 -10.4264,8.1323 -10.4622,8.1351 -10.4902,8.125 -10.5123,8.1088 -10.5907,8.024 -10.59,7.8501 -10.5956,7.7637 -10.6399,7.752 -10.6747,7.7344 -10.6937,7.7158 -10.7123,7.6933 -10.7352,7.6614 -10.8175,7.558 -10.8332,7.5392 -10.8386,7.5335 -10.856,7.5191 -10.9077,7.4999 -11.0901,7.3764 -11.119,7.3431 -11.1252,7.3355 -11.1288,7.3193 -11.1808,7.2485 -11.226,7.236 -11.2546,7.2269 -11.2933,7.2067 -11.3256,7.143 -11.3285,7.1086 -11.3382,7.0709 -11.3671,7.0112 -11.4126,6.9312 -11.4525,6.9161 -11.4791,6.9193 -11.5193,6.9335 -11.5601,6.9535 -11.629,7.0121 -11.6528,7.0298 -11.7224,7.0763 -11.8066,7.1286 -11.8279,7.1399 -11.8771,7.159 -12.3067,7.3171 -12.3668,7.3387 -12.4274,7.3594 -12.4521,7.3651 -12.4898,7.3806 -12.4809,7.4418 -12.4555,7.4812 -12.4211,7.5169 -12.3843,7.5237 -12.3455,7.5235 -12.2971,7.5192 -12.2163,7.543 -12.1807,7.5625 -12.1702,7.5827 -12.2368,7.6003 -12.2524,7.5761 -12.2792,7.5643 -12.3781,7.5359 -12.4185,7.5418 -12.4465,7.5472 -12.522,7.629 -12.5798,7.6729 -12.6778,7.693 -12.7514,7.7314 -12.8556,7.8093 -12.9442,7.8945 -12.8754,7.9263 -12.8715,7.9552 -12.8933,8.0911 -12.9336,8.1508 -12.9618,8.1705 -12.9724,8.2037 -12.9662,8.2245 -12.9596,8.2386 -12.9919,8.2241 -13.1179,8.1859 -13.1399,8.2051 -13.2006,8.3315 -13.2629,8.4141 -13.27,8.488 -13.183,8.4843 -13.1606,8.4651 -13.1345,8.4305 -13.0413,8.3605 -13.0244,8.3644 -13.0212,8.3682 -13.0508,8.3965 -13.0809,8.4124 -13.1077,8.4382 -13.0807,8.4758 -12.9997,8.5468 -12.9748,8.5507 -12.9154,8.5419 -12.8831,8.5584 -12.9234,8.5798 -13.0201,8.5771 -13.0891,8.5652 -13.1343,8.5061 -13.1641,8.53 -13.1744,8.5474 -13.2257,8.6557 -13.2277,8.774 -13.2225,8.8095 -13.1903,8.8462 -13.1176,8.8523 -13.1617,8.9026 -13.2142,8.9382 -13.2505,8.9435 -13.2715,8.9854 -13.2805,9.0223 -13.2761,9.0328 -13.2488,9.0525 -13.168,9.0763 -13.1259,9.0439 -13.0987,9.0339 -13.0784,9.0373 -13.0169,9.0762 -12.99,9.0981 -12.9618,9.1594 -12.9462,9.2243 -12.9341,9.2671 -12.9126,9.2789 -12.8417,9.274 -12.8035,9.2765 -12.7836,9.2877 -12.6653,9.4092 -12.6509,9.4656 -12.617,9.5623 -12.6024,9.5953 -12.5702,9.6212 -12.5719,9.6376 -12.4792,9.8528 -12.4423,9.8775 -12.217,9.9242 -12.2062,9.901 -12.146,9.8689 -12.1211,9.8641 -12.0922,9.8694 -11.8842,9.9245 -11.8872,9.9614 -11.8815,9.985 -11.5638,9.9862 -11.5567,9.9854 -11.4689,9.9863 -11.4462,9.9865 -11.2021,9.9865 -11.1617,9.9646 -11.0924,9.8428 -11.0393,9.7987 -11.0115,9.7712 -10.9848,9.7408 -10.9677,9.7166 -10.8971,9.5926 -10.8265,9.4692 -10.7382,9.3786 -10.6878,9.3359 -10.6455,9.2922 -10.659,9.2175 -10.6773,9.1961 -10.7115,9.1494 -10.7277,9.0812 -10.7093,9.0675 -10.6667,9.0679 -10.5991,9.063 -10.5595,9.0495 -10.5653,9.0312 -10.5837,8.9758 -10.5892,8.9437 -10.5813,8.857 -10.571,8.8146 -10.4961,8.7084 -10.5249,8.6104 -10.5645,8.5898 -10.608,8.5342 -10.6818,8.3528 -10.6836,8.2896 -10.5426,8.2996 -10.5173,8.3124 -10.4808,8.3391 -10.4239,8.3946 -10.4109,8.4265 -10.3785,8.4816 -10.3117,8.4999 -10.2551,8.4789 -10.2551,8.4789 267,6.0,Sri Lanka 81.6927,6.665 81.6921,6.6327 81.6897,6.6175 81.6851,6.6078 81.6708,6.5808 81.617,6.495 81.6069,6.4774 81.5849,6.4511 81.5684,6.4328 81.5187,6.3955 81.3162,6.2454 81.2319,6.1916 81.2222,6.1878 80.9636,6.1009 80.927,6.0962 80.8994,6.09 80.7983,6.0554 80.7371,6.0343 80.7008,6.0095 80.6878,5.998 80.6534,5.9707 80.6089,5.9527 80.4981,5.9114 80.3615,5.9389 80.1956,5.9848 80.152,6.0007 80.1097,6.0195 80.0933,6.028 80.0225,6.1098 79.9917,6.1612 79.9552,6.2327 79.931,6.3184 79.8959,6.4252 79.8789,6.5205 79.8612,6.5676 79.834,6.6365 79.8083,6.6998 79.7903,6.7436 79.7688,6.7898 79.761,6.8287 79.7472,6.9301 79.7578,6.9527 79.7721,6.9723 79.7713,6.9852 79.7625,7.1152 79.7405,7.1892 79.7458,7.2601 79.7437,7.2885 79.727,7.3947 79.725,7.4061 79.6999,7.5991 79.7059,7.6261 79.7072,7.653 79.6941,7.7419 79.6638,7.8751 79.654,7.913 79.6499,7.9229 79.6432,7.9366 79.6372,7.9514 79.6286,7.977 79.6254,7.9877 79.6228,7.9985 79.6171,8.0271 79.6132,8.0706 79.6088,8.1855 79.6196,8.2116 79.6336,8.2324 79.6602,8.2565 79.6358,8.1166 79.6403,8.0088 79.6433,7.9982 79.6584,7.9823 79.6734,7.976 79.6975,7.9722 79.7114,7.9721 79.725,7.9757 79.7353,7.9828 79.7406,7.9915 79.7409,8.004 79.7368,8.0135 79.7249,8.0307 79.7237,8.2366 79.779,8.5267 79.8067,8.5441 79.8256,8.5527 79.853,8.6214 79.8612,8.7142 79.8608,8.7273 79.8412,8.8289 79.8304,8.9276 79.8844,8.9621 79.9026,8.971 79.9526,9.0045 79.9616,9.0165 79.9758,9.0512 80.0188,9.1699 80.0231,9.1886 80.0345,9.241 80.0282,9.2875 80.0192,9.2957 80.0098,9.3003 80.0063,9.4009 80.0474,9.4147 80.1068,9.4598 80.098,9.4788 80.0883,9.4899 80.067,9.5101 80.0467,9.5243 80.0329,9.5318 79.9979,9.5531 79.9687,9.5723 79.963,9.5817 79.9779,9.5835 80.0013,9.5791 80.1498,9.5202 80.1882,9.4893 80.3841,9.4783 80.4048,9.4711 80.4344,9.4588 80.4491,9.4524 80.4607,9.4421 80.4691,9.4363 80.4807,9.4344 80.5215,9.4343 80.5003,9.4513 80.4485,9.4817 80.3756,9.5212 80.3405,9.5269 80.319,9.5224 80.296,9.5211 80.2432,9.5445 80.2266,9.5623 80.2107,9.5745 80.1222,9.6256 80.1082,9.6329 80.0958,9.6376 80.0813,9.6329 80.08,9.621 80.089,9.6092 80.0981,9.6041 80.1093,9.5915 80.1078,9.5761 80.0964,9.5714 80.0326,9.5895 79.9367,9.6339 79.8579,9.6798 79.8516,9.6921 79.8381,9.7339 79.8383,9.7598 79.8825,9.799 79.8934,9.8058 79.9288,9.8079 79.9426,9.8078 80.026,9.7921 80.037,9.7672 80.0483,9.7582 80.0748,9.7574 80.1084,9.7393 80.1386,9.7405 80.1454,9.7333 80.1616,9.7019 80.1865,9.6843 80.2214,9.6398 80.2637,9.609 80.2763,9.6006 80.3032,9.5825 80.3537,9.5662 80.1846,9.7093 80.136,9.7635 80.1147,9.7587 80.1011,9.7597 80.0677,9.7719 80.0528,9.7814 80.0735,9.8019 80.1542,9.8172 80.1643,9.8142 80.169,9.8051 80.1716,9.7907 80.1761,9.781 80.1869,9.764 80.255,9.6755 80.2679,9.6617 80.3138,9.6143 80.4859,9.4818 80.5008,9.4718 80.5213,9.4611 80.5383,9.4504 80.5511,9.4419 80.578,9.4201 80.6269,9.3718 80.6767,9.3213 80.711,9.2843 80.7352,9.2518 80.7555,9.2168 80.76,9.2078 80.8428,9.0307 80.8405,8.9694 80.8341,8.9661 80.8231,8.9409 80.828,8.9292 80.8378,8.9217 80.8482,8.9215 80.8716,8.9322 80.8788,8.9421 80.9375,8.9067 81.0761,8.7352 81.1323,8.6539 81.1417,8.6389 81.1631,8.5415 81.1601,8.5312 81.1501,8.5271 81.1386,8.5293 81.1347,8.556 81.1205,8.5618 81.0572,8.5177 81.0397,8.4929 81.0488,8.4822 81.1292,8.4534 81.1639,8.4456 81.1779,8.4448 81.1909,8.4521 81.2016,8.4693 81.2004,8.4858 81.2368,8.5107 81.2676,8.4816 81.2728,8.4729 81.2975,8.375 81.2999,8.3642 81.3319,8.1928 81.3068,8.1768 81.3007,8.1404 81.3321,8.0838 81.428,7.9915 81.5224,7.8161 81.5992,7.7528 81.6132,7.7392 81.6223,7.7207 81.6206,7.7074 81.5957,7.693 81.5945,7.673 81.6152,7.6421 81.6271,7.6309 81.6395,7.6293 81.6621,7.6035 81.6804,7.5619 81.6727,7.5399 81.6651,7.4956 81.6746,7.4544 81.703,7.4366 81.7184,7.4338 81.7269,7.4647 81.7367,7.4627 81.7637,7.3971 81.7793,7.3443 81.7816,7.3334 81.7867,7.3043 81.7892,7.2798 81.7869,7.1602 81.7991,7.0057 81.7979,6.9929 81.7887,6.9502 81.7564,6.8241 81.7395,6.7585 81.7144,6.692 81.6998,6.6717 81.6927,6.665 81.6927,6.665 561,8.0,Philippines 124.0148,7.1641 124.0202,7.1728 124.126,7.355 124.1286,7.3662 124.1096,7.4011 124.0955,7.4098 124.0653,7.4006 124.0341,7.395 124.0247,7.3997 123.9985,7.4278 123.9918,7.445 123.985,7.4764 123.9724,7.5171 123.8861,7.6265 123.8726,7.6403 123.7803,7.6791 123.7444,7.6871 123.6837,7.6898 123.6352,7.6905 123.5996,7.7165 123.5947,7.7313 123.5969,7.7559 123.5767,7.7768 123.5542,7.7945 123.5379,7.8039 123.4722,7.821 123.462,7.8264 123.4294,7.8403 123.4011,7.8394 123.3202,7.8021 123.3106,7.7465 123.339,7.7274 123.3455,7.7156 123.3439,7.6742 123.3352,7.6451 123.33,7.6333 123.322,7.6199 123.3089,7.61 123.2864,7.6024 123.2697,7.6013 123.2501,7.5975 123.2038,7.5604 123.1958,7.5493 123.1997,7.539 123.2717,7.4594 123.2986,7.4419 123.3094,7.4297 123.3167,7.3642 123.2739,7.3481 123.2638,7.3483 123.2453,7.3628 123.1937,7.4058 123.1503,7.4527 123.1463,7.4651 123.1577,7.4829 123.1674,7.5094 123.1605,7.5175 123.0903,7.5258 123.0778,7.5188 123.0491,7.4963 123.0466,7.486 123.0543,7.4723 123.0345,7.4552 122.9863,7.4954 122.9725,7.5116 122.9646,7.5413 122.9937,7.5646 123.0258,7.5701 123.0415,7.5675 123.0563,7.5774 123.0523,7.5998 122.9967,7.7005 122.979,7.7203 122.9251,7.6703 122.9041,7.6428 122.8922,7.6145 122.8938,7.587 122.899,7.5729 122.8907,7.5441 122.8646,7.4683 122.8543,7.4472 122.8144,7.4676 122.7403,7.4577 122.7061,7.427 122.7621,7.4276 122.7915,7.4145 122.7999,7.4068 122.8369,7.3569 122.7619,7.309 122.7114,7.2973 122.6943,7.2672 122.678,7.2733 122.6708,7.2814 122.6478,7.3314 122.6472,7.3444 122.6562,7.3823 122.6622,7.4006 122.6679,7.414 122.6915,7.4278 122.6743,7.4286 122.6421,7.4631 122.6447,7.6722 122.6541,7.6889 122.6619,7.7013 122.6818,7.704 122.6791,7.7237 122.6721,7.7378 122.6506,7.7562 122.5815,7.7715 122.5211,7.7724 122.486,7.7644 122.4099,7.7219 122.3742,7.6808 122.3645,7.6691 122.3064,7.5873 122.2958,7.5724 122.2215,7.4622 122.2128,7.4455 122.206,7.4291 122.208,7.3927 122.2278,7.3896 122.2551,7.381 122.2233,7.3257 122.194,7.3008 122.182,7.3318 122.1671,7.3259 122.1572,7.317 122.1523,7.2999 122.1347,7.2223 122.1196,7.1494 122.1134,7.0993 122.0483,6.9423 122.012,6.8975 121.993,6.8834 121.9818,6.8811 121.9666,6.8826 121.9054,6.9044 121.8196,6.9435 121.8093,6.9523 121.8028,6.9605 121.7834,6.9863 121.7592,7.0695 121.7639,7.1375 121.781,7.1711 121.7878,7.1839 121.7967,7.1944 121.8972,7.3184 121.8912,7.3444 121.9162,7.429 121.9393,7.4965 121.9615,7.5309 121.9882,7.5549 121.9942,7.6343 121.9916,7.6637 121.9892,7.6782 121.9761,7.7141 121.9661,7.7194 121.9741,7.7673 122.0103,7.8331 122.0884,7.9554 122.1288,7.9884 122.1631,8.0058 122.1959,8.0214 122.2139,8.0298 122.3045,8.0565 122.329,8.0626 122.3418,8.0616 122.3514,8.0574 122.3658,8.0537 122.641,8.1026 122.6544,8.1051 122.6827,8.1107 122.7684,8.1344 122.7853,8.1417 122.8532,8.1925 122.8595,8.2137 122.847,8.3214 122.846,8.4103 122.8887,8.4793 122.9266,8.5073 123.0423,8.5243 123.055,8.5246 123.0797,8.5154 123.1219,8.5034 123.1369,8.5022 123.1534,8.5052 123.1673,8.5137 123.1848,8.5365 123.2321,8.6327 123.2422,8.6963 123.2415,8.7158 123.2574,8.7215 123.297,8.7078 123.3933,8.6217 123.4115,8.6109 123.4841,8.6489 123.5552,8.6233 123.5926,8.5925 123.6391,8.5378 123.6798,8.4674 123.6977,8.4194 123.7278,8.2182 123.7297,8.1943 123.7303,8.1719 123.7276,8.1514 123.7117,8.131 123.6333,8.0573 123.6203,8.0498 123.5932,8.0398 123.5791,8.0393 123.5627,8.0404 123.5487,8.0346 123.5318,8.0242 123.5137,8.0049 123.5204,7.9991 123.5141,7.9614 123.5286,7.9458 123.5418,7.9497 123.5503,7.9595 123.6126,7.9969 123.6359,8.0194 123.6481,8.041 123.7096,8.0989 123.8233,8.1619 123.8746,8.1819 123.8886,8.186 123.9358,8.1844 123.9609,8.1801 123.9794,8.1761 124.0068,8.1736 124.0324,8.1778 124.085,8.2033 124.1219,8.2643 124.1179,8.2789 124.1066,8.314 124.1164,8.3283 124.1423,8.3847 124.1459,8.3983 124.1473,8.4082 124.1467,8.4312 124.142,8.4501 124.1877,8.5379 124.2937,8.6059 124.3396,8.5989 124.3515,8.5753 124.4087,8.5295 124.4358,8.5119 124.537,8.4681 124.5618,8.4639 124.57,8.4648 124.5805,8.4703 124.5884,8.477 124.6104,8.5019 124.6308,8.5849 124.6231,8.6285 124.6071,8.6367 124.6002,8.6517 124.5988,8.6667 124.5995,8.6856 124.6314,8.7779 124.6438,8.8908 124.6348,8.9411 124.6349,8.96 124.6465,8.9749 124.6625,8.9895 124.6775,8.9965 124.7417,9.0064 124.8307,8.9467 124.8848,8.897 124.8933,8.8744 124.9348,8.8192 124.9515,8.8153 124.9766,8.8197 125.0041,8.8312 125.0195,8.8389 125.1411,8.9803 125.2898,8.9674 125.3018,8.9685 125.32,8.9741 125.3385,8.9807 125.3758,8.9965 125.3808,9.0068 125.3946,9.0433 125.3987,9.0546 125.3987,9.0778 125.3935,9.181 125.374,9.2683 125.3652,9.2979 125.313,9.4591 125.272,9.5801 125.2535,9.6391 125.2594,9.7045 125.2638,9.7325 125.2697,9.7565 125.3029,9.7984 125.3223,9.7973 125.3626,9.7816 125.4172,9.7515 125.4453,9.7134 125.47,9.6233 125.4982,9.6013 125.5084,9.595 125.6117,9.5526 125.6234,9.5484 125.6421,9.5421 125.6992,9.5309 125.7836,9.4768 125.7998,9.436 125.7625,9.4139 125.7633,9.3971 125.8783,9.2557 125.9112,9.2218 125.9729,9.2411 125.989,9.2506 126.0468,9.2324 126.0402,9.1943 126.027,9.0909 126.0451,9.0684 126.0936,9.0215 126.0973,9.0093 126.0822,9.0036 126.0861,8.9862 126.0976,8.9855 126.1184,8.9802 126.1344,8.9728 126.1512,8.9643 126.1616,8.9535 126.1668,8.9446 126.1847,8.9088 126.1949,8.8321 126.1866,8.8137 126.1637,8.7756 126.1522,8.7647 126.0525,8.6866 126.0084,8.6601 125.9673,8.6381 125.9537,8.6226 125.9439,8.6001 125.9819,8.5329 125.9888,8.5255 126.0035,8.518 126.0584,8.5115 126.08,8.5106 126.0897,8.5175 126.0711,8.5273 126.0862,8.5421 126.2216,8.5323 126.2513,8.498 126.255,8.456 126.2331,8.3826 126.2168,8.3597 126.2066,8.3512 126.1847,8.2274 126.2534,8.1939 126.2751,8.2129 126.3041,8.2321 126.3221,8.2267 126.3246,8.2163 126.3043,8.1105 126.2983,8.101 126.2936,8.0898 126.2207,7.8952 126.2239,7.8738 126.238,7.8367 126.2469,7.82 126.2629,7.817 126.2801,7.816 126.3129,7.7992 126.3807,7.7201 126.4096,7.6837 126.4503,7.5078 126.454,7.4918 126.4556,7.4721 126.4527,7.4417 126.4401,7.4328 126.4132,7.3882 126.4111,7.3479 126.4118,7.2936 126.419,7.2818 126.4392,7.2764 126.4159,7.1913 126.3125,7.0438 126.2062,6.9951 126.1857,6.9911 126.1749,6.9786 126.1377,6.9134 126.1459,6.8908 126.1564,6.8819 126.1681,6.8736 126.1852,6.861 126.2013,6.8472 126.2052,6.7929 126.1806,6.7868 126.1694,6.7905 126.1572,6.7957 126.145,6.8099 126.1412,6.8317 126.1353,6.8706 126.1282,6.8936 126.1188,6.9165 126.0701,6.9399 126.0572,6.9381 126.0443,6.9251 126.0225,6.874 126.03,6.8589 126.0474,6.8281 126.0644,6.8067 126.0728,6.7992 126.0866,6.7865 126.1041,6.7651 126.1156,6.7434 126.1044,6.694 126.0958,6.6781 126.0867,6.6641 126.0777,6.6275 126.0694,6.4155 126.0638,6.3132 126.0483,6.2652 126.0455,6.3157 126.043,6.3265 126.0367,6.3389 126.0011,6.3847 125.9589,6.4726 125.9454,6.509 125.9417,6.5217 125.924,6.636 125.9288,6.6563 125.9419,6.6918 125.9527,6.7269 125.9338,6.8362 125.9216,6.8504 125.9027,6.8569 125.8825,6.8603 125.8631,6.8772 125.8456,6.8983 125.8352,6.914 125.8277,6.9409 125.8313,6.9588 125.8382,6.9776 125.8445,6.9949 125.8399,7.0126 125.8172,7.0532 125.801,7.0666 125.7717,7.0791 125.7626,7.0874 125.7451,7.1094 125.6992,7.2434 125.6996,7.2642 125.7066,7.3071 125.7115,7.3228 125.7141,7.3371 125.7083,7.3467 125.6892,7.3528 125.6679,7.3535 125.6086,7.3153 125.5827,7.2951 125.5479,7.2682 125.5096,7.2265 125.5057,7.201 125.5122,7.1789 125.5199,7.151 125.5179,7.1209 125.5164,7.1072 125.511,7.0981 125.5001,7.0823 125.461,7.0353 125.4302,7.0318 125.4039,7.0375 125.3839,7.0232 125.3464,6.9696 125.349,6.9357 125.3515,6.9205 125.3336,6.887 125.2946,6.8409 125.2568,6.7954 125.2528,6.7847 125.2355,6.7163 125.2444,6.6074 125.2491,6.5902 125.3034,6.574 125.3082,6.5833 125.3507,6.5573 125.4507,6.4694 125.5464,6.2481 125.5689,6.1627 125.5685,6.0969 125.5597,6.0185 125.546,5.9677 125.5415,5.9529 125.5199,5.9118 125.4858,5.8625 125.4597,5.849 125.3967,5.7762 125.3736,5.7404 125.3656,5.7258 125.3462,5.6903 125.3192,5.6421 125.2824,5.5815 125.2664,5.5596 125.2499,5.5526 125.2337,5.5483 125.1762,5.5595 125.1471,5.5736 125.1506,5.6033 125.1603,5.6188 125.1621,5.6307 125.143,5.6822 125.1361,5.6919 125.1275,5.6991 125.0811,5.7365 125.049,5.761 125.0344,5.8293 125.0733,5.8654 125.1137,5.9114 125.143,5.9688 125.1469,5.9972 125.1349,6.054 125.1269,6.0793 125.1172,6.0868 125.037,6.1003 125.0123,6.0945 125.0104,6.0836 124.9448,5.8662 124.9371,5.8576 124.9227,5.8471 124.8955,5.8442 124.8147,5.845 124.7076,5.8743 124.6892,5.8799 124.5774,5.9267 124.3848,6.0124 124.2535,6.0871 124.2348,6.0987 124.2268,6.1117 124.1827,6.1077 124.1271,6.1448 124.0424,6.207 123.9266,6.3722 123.9016,6.4246 123.8914,6.4877 123.8953,6.5241 123.9189,6.5371 123.9103,6.6263 123.895,6.7333 123.8511,6.7661 123.8401,6.7579 123.8302,6.7616 123.8203,6.7777 123.8081,6.8159 123.8281,6.9192 123.8394,6.9641 123.8529,7.0163 123.8603,7.0304 123.8996,7.1006 123.9136,7.1225 123.9308,7.1376 123.9421,7.1376 123.9625,7.1402 123.976,7.1437 124.0148,7.1641 124.0148,7.1641 15,8.0,Philippines 125.8053,9.5453 125.7881,9.5615 125.7636,9.6016 125.7696,9.6957 125.7765,9.7409 125.8027,9.7448 125.8208,9.7283 125.8482,9.6634 125.8529,9.6512 125.8523,9.6323 125.8336,9.5639 125.826,9.5532 125.814,9.547 125.8053,9.5453 125.8053,9.5453 375,-5.0,Panama -82.4726,9.5523 -82.4651,9.5518 -82.4433,9.5373 -82.2725,9.3967 -82.2789,9.3103 -82.2905,9.2755 -82.2336,9.1782 -82.184,9.0934 -82.1514,8.9924 -82.0145,8.9315 -81.969,8.9211 -81.8923,8.9349 -81.7253,8.9352 -81.6973,8.9934 -81.7691,9.0523 -81.823,9.1025 -81.8177,9.1586 -81.7955,9.1634 -81.7751,9.1542 -81.6607,9.0371 -81.618,8.9906 -81.5782,8.946 -81.5525,8.9094 -81.5224,8.8704 -81.4685,8.8192 -81.4166,8.7834 -81.1832,8.7754 -81.1299,8.7749 -81.1137,8.7712 -81.0628,8.7779 -80.9994,8.7929 -80.8762,8.8262 -80.8543,8.844 -80.7891,8.869 -80.7794,8.8668 -80.7744,8.8647 -80.747,8.8685 -80.7132,8.8958 -80.6894,8.927 -80.6621,8.9619 -80.5468,9.0315 -80.5125,9.0485 -80.4465,9.0757 -80.3162,9.1235 -80.2266,9.14 -80.1648,9.1496 -80.0659,9.1827 -80.0287,9.1969 -80.0037,9.2101 -79.9629,9.2486 -79.9158,9.2965 -79.8994,9.3181 -79.8791,9.3426 -79.8588,9.3479 -79.718,9.3899 -79.6562,9.4247 -79.5992,9.48 -79.5835,9.5392 -79.5381,9.5835 -79.5119,9.5917 -79.447,9.6094 -79.3754,9.5573 -79.1603,9.5293 -79.075,9.53 -78.9888,9.5315 -78.9571,9.5356 -78.908,9.537 -78.8749,9.5269 -78.9109,9.5113 -78.9474,9.5092 -78.9787,9.4828 -78.9797,9.4519 -78.967,9.4184 -78.919,9.4127 -78.6168,9.4214 -78.4652,9.4178 -78.4122,9.3938 -78.3652,9.3708 -78.3256,9.3478 -78.28,9.3251 -78.1491,9.2762 -78.0656,9.2494 -77.9479,9.2185 -77.8576,9.1328 -77.7967,9.0862 -77.7624,9.0737 -77.7187,9.0378 -77.6606,8.9659 -77.6595,8.9319 -77.6162,8.8667 -77.5474,8.8275 -77.4563,8.754 -77.4458,8.6968 -77.4243,8.6765 -77.4031,8.6643 -77.348,8.6496 -77.2874,8.6562 -77.2803,8.6655 -77.2854,8.6366 -77.352,8.5571 -77.3658,8.5474 -77.389,8.5116 -77.382,8.4622 -77.3426,8.4633 -77.3193,8.4418 -77.2884,8.3892 -77.2818,8.355 -77.2812,8.3281 -77.2758,8.276 -77.262,8.2586 -77.2093,8.2069 -77.1868,8.1894 -77.157,8.1363 -77.1287,8.0789 -77.1114,7.9906 -77.1286,7.9285 -77.2084,7.8963 -77.2243,7.8784 -77.2827,7.77 -77.2429,7.7175 -77.2439,7.6934 -77.4898,7.518 -77.5127,7.531 -77.5226,7.5542 -77.5366,7.5951 -77.5762,7.6711 -77.6564,7.7115 -77.6712,7.6847 -77.6716,7.6589 -77.6713,7.625 -77.6667,7.6037 -77.6416,7.5605 -77.6332,7.5282 -77.6444,7.4977 -77.661,7.4759 -77.688,7.4672 -77.7197,7.4706 -77.8017,7.2209 -77.82,7.2252 -77.9203,7.323 -78.0744,7.4996 -78.0795,7.5339 -78.0778,7.56 -78.1466,7.6376 -78.1931,7.6985 -78.1864,7.7159 -78.2636,7.8645 -78.2814,7.8775 -78.2994,7.8963 -78.3237,7.9554 -78.3447,8.0398 -78.3378,8.0714 -78.3155,8.089 -78.3128,8.0597 -78.2862,8.052 -78.2326,8.0498 -78.2065,8.0612 -78.1694,8.0928 -78.1484,8.1395 -78.1537,8.1746 -78.1909,8.2059 -78.2137,8.2404 -78.1743,8.2603 -78.0953,8.3183 -78.0475,8.3898 -77.9575,8.3019 -77.9409,8.2524 -77.9077,8.2234 -77.8769,8.2311 -77.7952,8.2198 -77.7534,8.1864 -77.7196,8.1501 -77.6978,8.1211 -77.6917,8.146 -77.7814,8.226 -77.8018,8.2371 -77.8248,8.2429 -77.9058,8.2581 -77.9259,8.2636 -77.958,8.3293 -78.0201,8.4464 -78.0332,8.4297 -78.1466,8.371 -78.1661,8.3875 -78.2716,8.3851 -78.297,8.3272 -78.3101,8.3368 -78.3251,8.3342 -78.405,8.4434 -78.4002,8.4862 -78.4196,8.6073 -78.4505,8.6274 -78.4769,8.6427 -78.519,8.6538 -78.5696,8.6905 -78.6221,8.7371 -78.6543,8.782 -78.8194,8.9033 -78.9356,8.9538 -78.9652,8.9569 -78.9807,8.9975 -78.9799,9.0428 -78.9356,9.1 -78.8914,9.1285 -78.9189,9.1257 -78.952,9.1156 -79.0211,9.0748 -79.0315,9.0421 -79.0304,9.0207 -79.0454,9.0036 -79.1403,8.9957 -79.1706,9.006 -79.1934,9.0079 -79.2776,9.0061 -79.302,9.0035 -79.3458,8.9982 -79.3895,8.9874 -79.4341,8.9496 -79.4381,8.9097 -79.4892,8.8701 -79.5506,8.864 -79.6092,8.8567 -79.6487,8.8232 -79.6704,8.7762 -79.6598,8.7239 -79.6495,8.7014 -79.6922,8.5963 -79.8632,8.4414 -79.9266,8.3981 -79.9371,8.3923 -79.981,8.3736 -80.0096,8.3582 -80.0488,8.3302 -80.1358,8.286 -80.2471,8.2785 -80.2921,8.2817 -80.3343,8.2557 -80.3811,8.2064 -80.3887,8.1878 -80.3918,8.143 -80.3849,8.0817 -80.3912,8.0744 -80.352,8.0131 -80.3077,7.9944 -80.2917,7.9903 -80.2613,7.9831 -80.2355,7.9423 -80.227,7.907 -80.0683,7.7471 -79.9701,7.6354 -79.9001,7.5106 -79.912,7.46 -79.9342,7.4435 -80.0053,7.4221 -80.0717,7.4042 -80.1244,7.4088 -80.161,7.4204 -80.1906,7.4219 -80.2175,7.4081 -80.2714,7.3648 -80.2851,7.3015 -80.3459,7.2366 -80.5026,7.2284 -80.5429,7.227 -80.5522,7.2215 -80.5919,7.2083 -80.6226,7.2013 -80.7065,7.198 -80.7594,7.2024 -80.7908,7.2124 -80.8373,7.2471 -80.8195,7.3101 -80.7968,7.326 -80.8211,7.4361 -80.8571,7.5494 -80.891,7.6045 -80.9196,7.6291 -80.9457,7.6681 -80.9636,7.7386 -80.9661,7.8202 -80.9667,7.8646 -81.0372,7.831 -81.0613,7.842 -81.0861,7.8399 -81.0896,7.8116 -81.0804,7.7921 -81.1006,7.683 -81.1005,7.63 -81.1261,7.5999 -81.1794,7.6211 -81.2206,7.6408 -81.2679,7.6573 -81.3385,7.6747 -81.4052,7.69 -81.4805,7.7486 -81.4971,7.7876 -81.5083,7.8618 -81.5167,7.9314 -81.5249,7.9641 -81.5301,7.9686 -81.54,7.961 -81.5594,7.9713 -81.5905,8.0096 -81.615,8.0562 -81.5849,8.0562 -81.6094,8.1114 -81.647,8.1535 -81.8605,8.1797 -82.0031,8.2056 -82.05,8.172 -82.101,8.186 -82.1238,8.2098 -82.126,8.2634 -82.1549,8.2834 -82.195,8.3041 -82.2529,8.2957 -82.2862,8.2812 -82.3122,8.276 -82.377,8.2657 -82.4108,8.2623 -82.4346,8.2715 -82.4637,8.281 -82.5193,8.2979 -82.574,8.3099 -82.6289,8.3082 -82.6866,8.2935 -82.7146,8.2837 -82.7501,8.2646 -82.7784,8.2157 -82.7821,8.1766 -82.7694,8.0899 -82.7569,8.0526 -82.7756,8.0122 -82.8059,8.0167 -82.7995,8.0272 -82.7938,8.0665 -82.793,8.0928 -82.8403,8.2482 -82.8572,8.2612 -82.8792,8.2671 -82.912,8.2819 -82.9371,8.3012 -82.9247,8.3311 -82.8598,8.3903 -82.8294,8.407 -82.7837,8.4181 -82.7371,8.4654 -82.7331,8.5604 -82.7443,8.6269 -82.7872,8.68 -82.8044,8.7003 -82.8231,8.7301 -82.8219,8.7531 -82.7873,8.816 -82.7662,8.8329 -82.721,8.8527 -82.6643,8.8714 -82.6277,8.901 -82.6197,8.9151 -82.6517,8.9709 -82.7901,9.0572 -82.8383,9.053 -82.8393,9.1891 -82.8433,9.4612 -82.7729,9.575 -82.7465,9.5992 -82.7229,9.5959 -82.6575,9.5723 -82.6277,9.5359 -82.5914,9.4982 -82.5452,9.4775 -82.5189,9.48 -82.4702,9.5251 -82.4726,9.5523 -82.4726,9.5523 12,7.0,Thailand 99.9672,9.5348 99.9588,9.4605 99.91,9.4121 99.8631,9.403 99.8308,9.412 99.8223,9.5365 99.8763,9.5656 99.9675,9.5775 99.9817,9.5554 99.9764,9.5443 99.9672,9.5348 99.9672,9.5348 25,8.0,Philippines 123.4496,9.079 123.4315,9.0804 123.4202,9.0864 123.3428,9.1519 123.3247,9.1685 123.3209,9.1804 123.3254,9.2007 123.339,9.21 123.3674,9.1999 123.4125,9.214 123.4228,9.2191 123.4461,9.239 123.4524,9.2507 123.4555,9.2657 123.4624,9.2861 123.492,9.2866 123.5121,9.2648 123.5385,9.2161 123.5701,9.1396 123.5708,9.1281 123.5635,9.1158 123.5408,9.1016 123.4726,9.0821 123.4496,9.079 123.4496,9.079 21,5.5,India 92.6841,9.2283 92.6891,9.2221 92.7031,9.1999 92.7083,9.1658 92.7097,9.153 92.7055,9.1398 92.6944,9.1231 92.6844,9.116 92.6681,9.1146 92.629,9.1173 92.618,9.1239 92.6124,9.1322 92.6089,9.1427 92.6062,9.1535 92.6054,9.1666 92.6064,9.1868 92.6105,9.1999 92.6569,9.2524 92.6809,9.2329 92.6841,9.2283 92.6841,9.2283 21,8.0,Philippines 124.6336,9.0648 124.5694,9.0948 124.5427,9.1094 124.5243,9.1208 124.5148,9.1315 124.5058,9.1453 124.4976,9.1597 124.4952,9.1972 124.4987,9.2073 124.5122,9.226 124.535,9.2429 124.5749,9.2472 124.5993,9.2365 124.6389,9.1994 124.6479,9.182 124.6673,9.1339 124.672,9.1075 124.6717,9.0954 124.6418,9.0661 124.6336,9.0648 124.6336,9.0648 14,5.5,Sri Lanka 79.6677,9.0923 79.7382,9.0738 79.7484,9.0703 79.7568,9.0645 79.8122,9.0227 79.8234,9.01 79.8063,8.9767 79.762,8.991 79.6116,9.0705 79.6078,9.0835 79.6371,9.0914 79.656,9.0933 79.6677,9.0923 79.6677,9.0923 16,-4.0,Venezuela -60.7907,9.0551 -60.8541,9.0249 -60.8757,9.0122 -60.8901,8.9992 -60.9312,8.9571 -60.9616,8.9177 -60.9664,8.9087 -60.9935,8.8869 -61.0027,8.8827 -61.0285,8.8809 -61.0026,8.9613 -60.8796,9.0446 -60.7827,9.0831 -60.7867,9.0625 -60.7907,9.0551 -60.7907,9.0551 17,-4.0,Venezuela -60.8423,8.8844 -60.8551,8.8765 -60.8789,8.8661 -60.9519,8.8372 -60.9785,8.8339 -60.8738,9.0016 -60.8562,9.0112 -60.841,9.0169 -60.83,9.019 -60.8126,9.0166 -60.7801,8.9981 -60.7728,8.9885 -60.7808,8.9541 -60.7886,8.9374 -60.8244,8.9005 -60.8423,8.8844 -60.8423,8.8844 22,-4.0,Venezuela -61.0953,8.6788 -61.1,8.6809 -61.1039,8.6907 -61.0967,8.7057 -61.0863,8.7161 -61.025,8.7724 -60.9914,8.8005 -60.9743,8.8115 -60.9452,8.823 -60.7928,8.8437 -60.7942,8.8305 -60.8764,8.7394 -60.8907,8.7263 -60.908,8.7162 -60.9192,8.7138 -60.9331,8.7144 -61.0012,8.7048 -61.0397,8.6961 -61.0669,8.69 -61.0766,8.6862 -61.0953,8.6788 -61.0953,8.6788 12,-4.0,Venezuela -60.8554,8.6089 -60.8622,8.6091 -60.891,8.6144 -60.9204,8.6259 -60.7736,8.7171 -60.7414,8.7073 -60.7365,8.6958 -60.7387,8.668 -60.7423,8.6577 -60.7555,8.6429 -60.8554,8.6089 -60.8554,8.6089 15,-4.0,Venezuela -60.98,8.6303 -60.9937,8.6308 -61.0668,8.6425 -61.0785,8.645 -61.1016,8.6539 -61.1091,8.667 -61.0297,8.6911 -60.9579,8.7053 -60.8697,8.7114 -60.8917,8.6716 -60.9286,8.6431 -60.9511,8.6353 -60.9738,8.6308 -60.98,8.6303 -60.98,8.6303 20,-4.0,Venezuela -61.0608,8.4921 -61.1142,8.5018 -61.195,8.5009 -61.1898,8.527 -61.1846,8.5357 -61.1719,8.5516 -61.1591,8.5591 -61.149,8.5632 -61.1092,8.5566 -61.0806,8.5315 -61.0686,8.5533 -61.0155,8.6002 -60.9524,8.6018 -60.9299,8.5874 -60.9227,8.5756 -60.9303,8.5484 -60.9353,8.5396 -60.9723,8.5046 -61.0608,8.4921 -61.0608,8.4921 26,-4.0,Venezuela -61.1784,8.4654 -61.2256,8.4838 -61.2773,8.4814 -61.3234,8.4769 -61.3365,8.4763 -61.3476,8.4797 -61.4025,8.5021 -61.4747,8.5394 -61.3917,8.5669 -61.3692,8.5717 -61.3579,8.5737 -61.3454,8.5745 -61.3253,8.5728 -61.2424,8.5653 -61.2289,8.564 -61.2109,8.5601 -61.2007,8.5563 -61.1928,8.5435 -61.2014,8.5284 -61.2098,8.5072 -61.1951,8.4904 -61.1168,8.4873 -61.1256,8.4762 -61.1661,8.4663 -61.1784,8.4654 -61.1784,8.4654 375,-3.0,Guyana -59.9232,8.526 -59.891,8.5047 -59.8623,8.4749 -59.8356,8.4366 -59.8222,8.4122 -59.8056,8.3881 -59.7889,8.3701 -59.7647,8.3525 -59.7194,8.3318 -59.6978,8.3398 -59.7124,8.3715 -59.6974,8.398 -59.6013,8.3506 -59.5839,8.3402 -59.2891,8.165 -59.0884,8.0473 -59.063,8.0311 -59.0429,8.0097 -59.0271,7.978 -59.0092,7.9603 -58.8774,7.8423 -58.7407,7.7218 -58.7027,7.6714 -58.6849,7.6278 -58.6512,7.5861 -58.5758,7.5611 -58.4191,7.3604 -58.4022,7.3295 -58.3993,7.1278 -58.4004,7.107 -58.4152,7.0022 -58.4312,6.9817 -58.4445,6.9727 -58.4707,6.953 -58.4893,6.93 -58.4965,6.9086 -58.5276,6.7942 -58.5321,6.7669 -58.5427,6.6494 -58.5524,6.4824 -58.5703,6.4149 -58.5339,6.4069 -58.5265,6.4129 -58.5148,6.4577 -58.5073,6.5025 -58.506,6.5251 -58.5095,6.5551 -58.5066,6.5952 -58.4832,6.6709 -58.4131,6.7868 -58.3905,6.8204 -58.3532,6.8628 -58.3319,6.8718 -58.2502,6.8866 -58.1896,6.8686 -58.1424,6.8356 -58.1066,6.8045 -58.0888,6.8205 -57.973,6.808 -57.9204,6.7831 -57.9006,6.7679 -57.8773,6.7429 -57.8619,6.7242 -57.8486,6.7036 -57.8321,6.6824 -57.8168,6.6667 -57.6921,6.5628 -57.5751,6.478 -57.5288,6.4274 -57.4557,6.2835 -57.4538,6.2637 -57.4329,6.3317 -57.4042,6.3332 -57.2981,6.2831 -57.2712,6.2677 -57.1958,6.2047 -57.1552,6.1625 -57.1291,6.1326 -57.1124,6.1015 -57.0973,6.0501 -57.0705,5.9475 -57.1101,5.6312 -57.1172,5.5944 -57.1303,5.5626 -57.1829,5.4799 -57.2061,5.3791 -57.2337,5.3537 -57.2587,5.2979 -57.2172,5.2205 -57.1968,5.2161 -57.1695,5.254 -57.1419,5.2178 -57.1256,5.1663 -57.166,5.1407 -57.1849,5.167 -57.2064,5.1713 -57.2268,5.1605 -57.2563,5.0702 -57.2617,5.0206 -57.3514,4.9841 -57.4079,4.9838 -57.5449,4.9867 -57.5681,4.9947 -57.6101,5.0061 -57.7748,4.9223 -57.835,4.8503 -57.857,4.8168 -57.8586,4.7913 -57.8427,4.7727 -57.8217,4.7629 -57.7743,4.6638 -57.7809,4.6236 -57.8366,4.4988 -57.8826,4.3445 -57.8832,4.3123 -57.8884,4.2837 -57.9366,4.2352 -57.9731,4.2066 -57.9955,4.1757 -58.0054,4.1513 -57.9778,3.9972 -57.9505,3.9592 -57.9031,3.9248 -57.8846,3.9089 -57.866,3.8865 -57.8108,3.8049 -57.8018,3.7866 -57.7937,3.7675 -57.7836,3.7349 -57.7802,3.6885 -57.7728,3.6652 -57.7511,3.6462 -57.6948,3.6204 -57.6751,3.6097 -57.6033,3.5343 -57.589,3.5149 -57.573,3.4531 -57.5924,3.4103 -57.5769,3.3529 -57.5452,3.3565 -57.4652,3.3428 -57.3644,3.3437 -57.2392,3.3769 -57.2186,3.315 -57.2276,3.2639 -57.2253,3.1778 -57.2186,3.1375 -57.1901,3.1001 -57.1556,3.0615 -57.1455,3.0326 -57.1423,3.001 -57.1485,2.8756 -57.1363,2.8198 -57.0524,2.754 -56.8805,2.4803 -56.8537,2.4254 -56.7896,2.2809 -56.7464,2.191 -56.7112,2.1387 -56.6182,2.0246 -56.5821,2.0257 -56.5159,2.025 -56.4921,2.0184 -56.4139,1.9598 -56.407,1.9424 -56.462,1.9204 -56.5141,1.9196 -56.5311,1.93 -56.5646,1.9374 -56.6709,1.9119 -56.688,1.895 -56.7066,1.8735 -56.8097,1.8898 -56.9395,1.9209 -56.9865,1.95 -56.9966,1.9821 -57.0101,2.0135 -57.0357,2.0207 -57.0986,1.9945 -57.1346,1.9692 -57.1708,1.9476 -57.2122,1.9772 -57.2337,1.9799 -57.2672,1.9701 -57.3608,1.8992 -57.3632,1.8694 -57.3863,1.8092 -57.4478,1.729 -57.4633,1.7139 -57.4945,1.6981 -57.5685,1.6911 -57.5886,1.695 -57.6226,1.7058 -57.6575,1.7155 -57.6946,1.716 -57.8108,1.6633 -57.9071,1.6118 -57.9175,1.5706 -57.9418,1.5139 -58.0623,1.5161 -58.2027,1.5688 -58.2316,1.5811 -58.3217,1.4763 -58.4364,1.453 -58.4035,1.3571 -58.4018,1.3362 -58.4094,1.3128 -58.4539,1.2684 -58.5067,1.2738 -58.6271,1.2833 -58.643,1.2614 -58.6569,1.231 -58.6857,1.2083 -58.7447,1.1857 -58.7704,1.1889 -58.8036,1.2038 -58.8323,1.2298 -58.8311,1.2606 -58.8588,1.298 -58.8913,1.3132 -58.9065,1.3183 -59.0382,1.3433 -59.1773,1.385 -59.3476,1.5615 -59.4165,1.6487 -59.4404,1.6856 -59.5385,1.7177 -59.5788,1.7332 -59.6083,1.7652 -59.5863,1.8003 -59.5653,1.8403 -59.659,1.8522 -59.6816,1.8596 -59.6889,1.907 -59.6762,2.0705 -59.6596,2.2388 -59.6683,2.2821 -59.7256,2.2953 -59.7824,2.3279 -59.8257,2.3614 -59.834,2.3819 -59.8212,2.4046 -59.8251,2.4516 -59.8581,2.5648 -59.8866,2.6135 -59.9208,2.6852 -59.915,2.8571 -59.9109,2.8959 -59.8951,3.0227 -59.8818,3.0687 -59.8368,3.2005 -59.8021,3.2727 -59.7882,3.2943 -59.7677,3.3185 -59.743,3.3559 -59.7467,3.495 -59.7639,3.5205 -59.7182,3.6165 -59.5976,3.7074 -59.5008,3.895 -59.514,3.9946 -59.6407,4.1662 -59.6542,4.1868 -59.6629,4.2147 -59.6629,4.2888 -59.6071,4.3684 -59.6064,4.3804 -59.6489,4.4094 -59.7228,4.4514 -59.8734,4.5031 -59.8993,4.4968 -59.9769,4.4891 -60.062,4.5049 -60.0797,4.5151 -60.0834,4.5685 -60.0552,4.5915 -60.0227,4.5955 -60.0033,4.6132 -59.9572,4.7019 -59.9518,4.7292 -59.9373,4.8316 -59.9145,5.017 -59.9453,5.1042 -60.0122,5.1558 -60.0132,5.1672 -60.0296,5.2113 -60.0457,5.2398 -60.1333,5.2667 -60.1809,5.2526 -60.1994,5.2296 -60.2488,5.1918 -60.4771,5.1858 -60.5043,5.1915 -60.5282,5.2064 -60.6198,5.2102 -60.661,5.1991 -60.6795,5.2168 -60.7117,5.2524 -60.7907,5.3421 -61.0464,5.6284 -61.3195,5.9335 -61.3034,5.9542 -61.2677,5.966 -61.2531,5.986 -61.2127,6.0497 -61.2005,6.0797 -61.193,6.1012 -61.0903,6.1757 -61.0689,6.2922 -61.0702,6.4015 -61.1269,6.5266 -61.135,6.5706 -61.1047,6.6512 -61.0556,6.7074 -60.9854,6.7213 -60.9664,6.7124 -60.8703,6.7173 -60.8246,6.7577 -60.7471,6.781 -60.6502,6.7514 -60.6288,6.7593 -60.6073,6.7823 -60.5962,6.7999 -60.5688,6.8275 -60.5221,6.8434 -60.4582,6.867 -60.43,6.8801 -60.395,6.8991 -60.3398,6.9398 -60.2229,7.0488 -60.2132,7.082 -60.2097,7.111 -60.2405,7.1354 -60.2683,7.1474 -60.2922,7.1684 -60.3876,7.188 -60.4373,7.1647 -60.4463,7.1352 -60.4693,7.1164 -60.5488,7.1863 -60.5621,7.2139 -60.5657,7.2462 -60.55,7.276 -60.5267,7.2981 -60.5227,7.3281 -60.5416,7.3739 -60.5923,7.4388 -60.6198,7.4454 -60.6455,7.4926 -60.648,7.5315 -60.6227,7.5586 -60.5936,7.5581 -60.5205,7.6309 -60.5064,7.7065 -60.4653,7.7951 -60.4451,7.8095 -60.2519,7.8689 -60.1898,7.9129 -60.1693,7.9376 -60.0573,8.0193 -60.0262,8.0322 -59.9704,8.0282 -59.9439,8.0504 -59.9195,8.1378 -59.9124,8.1659 -59.8789,8.191 -59.8548,8.2019 -59.8216,8.2096 -59.7658,8.2224 -59.736,8.2743 -59.7452,8.2969 -59.8192,8.3917 -59.9139,8.5088 -59.9232,8.526 -59.9232,8.526 231,0.0,Liberia -8.4599,7.5528 -8.4265,7.523 -8.4063,7.4882 -8.4,7.4452 -8.4002,7.4121 -8.3935,7.3689 -8.3821,7.3073 -8.3409,7.2214 -8.3137,7.1951 -8.277,7.1706 -8.2811,7.015 -8.2991,6.8503 -8.3179,6.8031 -8.3299,6.7768 -8.3545,6.7318 -8.3691,6.7083 -8.4083,6.6597 -8.4255,6.6452 -8.437,6.6488 -8.4481,6.6292 -8.4729,6.6128 -8.4946,6.5982 -8.5187,6.5887 -8.5303,6.5545 -8.557,6.5449 -8.5683,6.5219 -8.5928,6.5156 -8.5963,6.5007 -8.5343,6.4851 -8.4653,6.4288 -8.3648,6.3537 -8.1601,6.2681 -8.1342,6.2688 -8.1129,6.2709 -8.058,6.2868 -7.9901,6.2934 -7.8887,6.255 -7.8665,6.2384 -7.8165,6.1994 -7.7802,6.0639 -7.7707,6.0078 -7.7746,5.9713 -7.7488,5.94 -7.6787,5.9042 -7.6461,5.9314 -7.5546,5.8767 -7.4894,5.8368 -7.439,5.8538 -7.4169,5.8391 -7.4193,5.8051 -7.4242,5.783 -7.4276,5.7373 -7.4228,5.7087 -7.397,5.64 -7.391,5.6253 -7.364,5.5634 -7.3829,5.5349 -7.4076,5.4797 -7.4276,5.4279 -7.4174,5.3899 -7.3754,5.3624 -7.3598,5.3197 -7.4949,5.09 -7.5517,5.0457 -7.5796,4.9004 -7.5819,4.8167 -7.5787,4.8057 -7.5526,4.7761 -7.5488,4.7389 -7.5424,4.601 -7.5457,4.5324 -7.5513,4.4494 -7.5472,4.3732 -7.5166,4.3482 -7.5289,4.3447 -7.5949,4.3388 -7.7045,4.3523 -7.7677,4.383 -7.8075,4.4189 -7.836,4.4478 -7.8779,4.4706 -7.9369,4.496 -8.0763,4.536 -8.1742,4.5568 -8.2324,4.5658 -8.3279,4.6381 -8.528,4.7447 -8.6238,4.7912 -8.6642,4.8072 -8.6993,4.8114 -8.7147,4.8262 -8.8421,4.9089 -8.8648,4.9205 -9.0199,4.9909 -9.0478,4.9993 -9.1322,5.0501 -9.2282,5.1172 -9.342,5.205 -9.3969,5.2506 -9.4094,5.2651 -9.4225,5.2796 -9.4483,5.3082 -9.4706,5.3341 -9.5345,5.4139 -9.5822,5.4721 -9.7221,5.5677 -9.7681,5.6005 -10.0349,5.8539 -10.0836,5.9204 -10.229,6.048 -10.2546,6.0635 -10.3029,6.0764 -10.3308,6.0859 -10.354,6.1071 -10.3548,6.1456 -10.3601,6.1556 -10.4393,6.1957 -10.4401,6.1642 -10.5885,6.2033 -10.6259,6.2113 -10.6439,6.2157 -10.6794,6.2275 -10.7517,6.2641 -10.7975,6.3025 -10.7802,6.3694 -10.7937,6.3958 -10.7996,6.4092 -10.8162,6.4342 -10.8366,6.4547 -10.8587,6.4737 -10.8837,6.4899 -10.9575,6.5307 -11.063,6.5799 -11.3383,6.6872 -11.3699,6.7313 -11.3581,6.7621 -11.3515,6.7886 -11.3682,6.8247 -11.4501,6.9005 -11.4791,6.9193 -11.4525,6.9161 -11.4126,6.9312 -11.3671,7.0112 -11.3382,7.0709 -11.3285,7.1086 -11.3256,7.143 -11.2933,7.2067 -11.2546,7.2269 -11.226,7.236 -11.1808,7.2485 -11.1288,7.3193 -11.1252,7.3355 -11.119,7.3431 -11.0901,7.3764 -10.9077,7.4999 -10.856,7.5191 -10.8386,7.5335 -10.8332,7.5392 -10.8175,7.558 -10.7352,7.6614 -10.7123,7.6933 -10.6937,7.7158 -10.6747,7.7344 -10.6399,7.752 -10.5956,7.7637 -10.59,7.8501 -10.5907,8.024 -10.5123,8.1088 -10.4902,8.125 -10.4622,8.1351 -10.4264,8.1323 -10.3464,8.1366 -10.3218,8.1507 -10.2859,8.1898 -10.2525,8.4456 -10.2551,8.4789 -10.203,8.4697 -10.1581,8.5033 -9.9544,8.4658 -9.8848,8.4934 -9.8652,8.4902 -9.8345,8.4853 -9.7816,8.4988 -9.6588,8.4813 -9.6281,8.4619 -9.473,8.3378 -9.4519,8.1566 -9.3966,8.0101 -9.4066,7.9657 -9.4207,7.9465 -9.4265,7.8924 -9.3994,7.829 -9.3491,7.7416 -9.3432,7.7336 -9.3479,7.7289 -9.3654,7.6746 -9.3671,7.6335 -9.3561,7.6028 -9.3735,7.5517 -9.41,7.4685 -9.4469,7.433 -9.4763,7.3618 -9.4744,7.3537 -9.45,7.3795 -9.4115,7.4168 -9.3139,7.4185 -9.2306,7.374 -9.196,7.3412 -9.0878,7.223 -9.0994,7.1861 -9.0887,7.1953 -9.0267,7.2206 -8.9623,7.2437 -8.9011,7.2456 -8.8341,7.2637 -8.8242,7.3012 -8.7786,7.4024 -8.6985,7.5073 -8.7022,7.5493 -8.7092,7.5523 -8.713,7.557 -8.6974,7.6382 -8.6652,7.6727 -8.6508,7.6866 -8.5635,7.6841 -8.5417,7.6833 -8.5458,7.642 -8.5408,7.6075 -8.4771,7.5632 -8.4599,7.5528 -8.4599,7.5528 14,-5.0,Panama -78.7836,8.4474 -78.7648,8.4282 -78.7433,8.3917 -78.7413,8.3792 -78.7418,8.3267 -78.7465,8.3105 -78.7596,8.2812 -78.8336,8.2612 -78.8715,8.2848 -78.8746,8.4281 -78.8663,8.4407 -78.7953,8.4546 -78.7836,8.4474 -78.7836,8.4474 14,8.0,Philippines 117.1638,8.1725 117.1585,8.1735 117.139,8.1934 117.1342,8.206 117.1355,8.2816 117.137,8.2971 117.1452,8.3123 117.1877,8.3214 117.2161,8.2954 117.2234,8.2771 117.2128,8.1976 117.1991,8.1839 117.1638,8.1725 117.1638,8.1725 9,5.5,India 73.0004,8.294 72.9916,8.2656 72.984,8.2541 72.9673,8.244 72.9493,8.2383 72.939,8.2534 72.9972,8.3009 73.0004,8.294 73.0004,8.294 18,5.5,India 93.4293,8.1996 93.4176,8.1681 93.4154,8.1005 93.4198,8.0911 93.4277,8.0646 93.432,8.048 93.4299,8.0288 93.3785,7.9818 93.3704,7.9988 93.3422,8.1273 93.3425,8.1535 93.373,8.1986 93.3787,8.2072 93.3914,8.2138 93.4118,8.2168 93.4241,8.2117 93.4293,8.1996 93.4293,8.1996 22,7.0,Thailand 98.2228,8.1533 98.2263,8.1236 98.2331,8.0998 98.2799,8.0748 98.2916,8.0723 98.3085,8.0063 98.3085,7.9887 98.2896,7.9702 98.2897,7.9329 98.3037,7.8959 98.3227,7.9031 98.3308,7.8974 98.3261,7.8631 98.1985,7.7487 98.1773,7.769 98.1735,7.7793 98.1619,7.9136 98.1722,8.1741 98.1937,8.1761 98.2096,8.1661 98.2228,8.1533 98.2228,8.1533 13,7.0,Thailand 98.4265,8.0985 98.4831,8.0698 98.5002,8.0423 98.501,7.9599 98.501,7.9459 98.4963,7.8995 98.4878,7.8904 98.4645,7.9049 98.422,8.0712 98.4195,8.0818 98.4178,8.111 98.4265,8.0985 98.4265,8.0985 17,8.0,Philippines 116.8839,7.7966 116.8664,7.8066 116.8428,7.8628 116.8298,7.9015 116.8231,7.9347 116.819,8.0235 116.8233,8.0353 116.8304,8.0464 116.9355,8.0691 116.9454,8.0515 116.9621,7.8985 116.945,7.8591 116.9339,7.8378 116.9276,7.829 116.8907,7.8002 116.8839,7.7966 116.8839,7.7966 17,5.5,India 93.2867,8.003 93.3393,7.9348 93.3453,7.9204 93.3536,7.8941 93.3553,7.8788 93.3487,7.8602 93.252,7.8681 93.2412,7.8747 93.2043,7.9165 93.2012,7.9305 93.202,7.9439 93.2115,7.9865 93.252,8.0049 93.2702,8.0104 93.2809,8.0078 93.2867,8.003 93.2867,8.003 25,-5.0,Panama -81.6468,7.6307 -81.6314,7.6086 -81.618,7.5472 -81.612,7.4819 -81.6184,7.4709 -81.6233,7.4386 -81.6213,7.4285 -81.5861,7.3804 -81.5572,7.3759 -81.5364,7.3817 -81.5159,7.3695 -81.5057,7.3556 -81.4978,7.3218 -81.537,7.3101 -81.5584,7.314 -81.6552,7.3395 -81.6697,7.3508 -81.7536,7.4249 -81.7609,7.4384 -81.7817,7.4828 -81.7846,7.4959 -81.7814,7.5068 -81.6666,7.6258 -81.6468,7.6307 -81.6468,7.6307 25,0.0,Sierra Leone -12.8701,7.6057 -12.6736,7.6271 -12.6604,7.6283 -12.6287,7.6303 -12.6162,7.6294 -12.5767,7.626 -12.5082,7.5878 -12.4818,7.5625 -12.4821,7.4925 -12.5108,7.4233 -12.5451,7.4127 -12.5618,7.4407 -12.5741,7.4527 -12.5824,7.4583 -12.6049,7.4696 -12.6253,7.4765 -12.666,7.4896 -12.6767,7.4928 -12.7033,7.5002 -12.7305,7.507 -12.7888,7.521 -12.9369,7.5581 -12.882,7.5995 -12.8701,7.6057 -12.8701,7.6057 15,5.5,India 93.5899,7.4019 93.6294,7.3548 93.6215,7.3159 93.531,7.2384 93.5148,7.2419 93.5082,7.2525 93.491,7.2986 93.5025,7.3373 93.5122,7.3589 93.5418,7.3657 93.5735,7.3815 93.5881,7.4285 93.5913,7.4145 93.5899,7.4019 93.5899,7.4019 13,8.0,Malaysia 116.725,7.1758 116.7204,7.1802 116.7469,7.2661 116.7549,7.2723 116.8691,7.3448 116.8775,7.3342 116.8855,7.3004 116.8859,7.2587 116.8261,7.2335 116.7762,7.2255 116.743,7.2138 116.725,7.1758 116.725,7.1758 25,8.0,Malaysia 116.9611,7.2852 117.0129,7.3261 117.09,7.3445 117.1359,7.3356 117.1461,7.3257 117.1506,7.3114 117.146,7.2421 117.1442,7.2307 117.1407,7.2202 117.118,7.1713 117.0604,7.1654 117.04,7.1655 117.0278,7.1642 117.0172,7.1606 116.9885,7.1475 116.9659,7.1295 116.9573,7.1112 116.9472,7.0973 116.9341,7.0973 116.9197,7.1629 116.9303,7.2636 116.9388,7.2761 116.956,7.286 116.9611,7.2852 116.9611,7.2852 26,5.5,India 93.7621,7.1744 93.7741,7.1312 93.8068,7.021 93.8169,6.9898 93.8235,6.9413 93.7932,6.7995 93.7208,6.7382 93.7045,6.7456 93.6787,6.8259 93.6646,6.8859 93.6588,6.9131 93.6114,6.9814 93.5728,7.0154 93.5534,7.0157 93.5419,7.0248 93.5396,7.0702 93.5391,7.0832 93.5378,7.1108 93.5668,7.1759 93.6892,7.2255 93.7032,7.2284 93.72,7.2276 93.7495,7.2014 93.7566,7.1915 93.7621,7.1744 93.7621,7.1744 12,8.0,Philippines 125.6253,6.88 125.6154,6.8911 125.5279,7.0673 125.5215,7.0907 125.5567,7.1822 125.5729,7.1836 125.6333,7.1408 125.647,7.1264 125.6547,7.1117 125.6527,6.9253 125.6253,6.88 125.6253,6.88 786,8.0,Malaysia 114.8871,4.8904 114.8917,4.8712 114.8979,4.8149 114.8899,4.7483 114.8894,4.7191 114.8958,4.6517 114.8985,4.6408 114.9595,4.4083 114.9654,4.3867 114.9715,4.3757 114.9828,4.3692 115.1897,4.3109 115.2089,4.3071 115.2209,4.3127 115.2294,4.3277 115.2254,4.3447 115.2198,4.3553 115.2136,4.3634 115.187,4.3916 115.1716,4.4055 115.1554,4.422 115.147,4.4342 115.1422,4.4464 115.1334,4.5361 115.1373,4.5596 115.1414,4.5688 115.1473,4.5778 115.1511,4.5937 115.1513,4.6064 115.1302,4.6779 115.0917,4.7997 115.0608,4.8439 115.0144,4.898 115.0763,4.9496 115.0889,4.9528 115.155,4.9206 115.1793,4.897 115.1964,4.8883 115.2254,4.8939 115.2352,4.8979 115.2472,4.9064 115.2609,4.9199 115.3204,4.9833 115.3301,4.9943 115.3479,5.0174 115.3972,5.0362 115.4142,5.0473 115.4259,5.063 115.4302,5.0726 115.4327,5.0834 115.4366,5.1204 115.4425,5.1734 115.4274,5.1968 115.4101,5.1932 115.398,5.1944 115.3788,5.2028 115.3532,5.2152 115.2281,5.3036 115.2283,5.318 115.2396,5.3766 115.2489,5.395 115.3967,5.5114 115.4739,5.5142 115.6178,5.5135 115.6306,5.5141 115.6601,5.5191 115.671,5.5216 115.6857,5.5277 115.6977,5.5361 115.7169,5.5577 115.7253,5.5704 115.7545,5.6225 115.7631,5.6388 115.7726,5.6738 115.7773,5.7099 115.783,5.7318 115.7868,5.741 115.7965,5.7518 115.812,5.7635 115.8595,5.7914 115.8821,5.8031 115.9065,5.8197 115.919,5.8343 115.9237,5.8483 115.9211,5.8938 115.9581,5.9713 115.9782,6.121 116.1964,6.3565 116.226,6.3817 116.2823,6.4217 116.3589,6.4755 116.3685,6.4863 116.3754,6.5033 116.3705,6.5252 116.375,6.5369 116.4288,6.5989 116.4948,6.6701 116.507,6.6849 116.5116,6.6939 116.5156,6.707 116.5159,6.7237 116.5144,6.7357 116.5103,6.7529 116.5111,6.7659 116.5249,6.8392 116.5291,6.8487 116.5839,6.9602 116.6133,6.9991 116.6223,7.0102 116.6343,7.0155 116.7001,6.9573 116.7076,6.941 116.7188,6.8903 116.7273,6.796 116.7263,6.773 116.7231,6.759 116.7191,6.7496 116.7144,6.7407 116.7031,6.7247 116.6883,6.7119 116.6773,6.6955 116.6567,6.6547 116.6484,6.6361 116.6437,6.6135 116.6446,6.594 116.6515,6.577 116.6675,6.5696 116.6918,6.5728 116.7128,6.5789 116.7217,6.5834 116.7302,6.589 116.849,6.7343 116.9157,6.8182 116.9219,6.8356 116.9156,6.8634 116.9063,6.878 116.9021,6.8872 116.8973,6.9031 116.8988,6.927 116.9364,6.9717 116.9452,6.9798 116.957,6.9852 117.0128,6.9936 117.0363,6.9869 117.0459,6.9827 117.1166,6.9375 117.1204,6.9207 117.1197,6.8809 117.119,6.8676 117.1125,6.8539 117.1203,6.7602 117.1442,6.6592 117.1551,6.6324 117.1688,6.619 117.3206,6.5367 117.3335,6.5324 117.343,6.5354 117.4254,6.5305 117.5152,6.5075 117.543,6.4844 117.5907,6.4162 117.6058,6.3797 117.6003,6.3104 117.5943,6.2618 117.5889,6.2501 117.5761,6.2426 117.555,6.2447 117.538,6.2482 117.5085,6.2367 117.479,6.2135 117.4669,6.1857 117.4681,6.1713 117.501,6.1223 117.5203,6.1005 117.529,6.0821 117.5416,5.991 117.5408,5.9758 117.5339,5.9652 117.5093,5.9421 117.4963,5.9339 117.4566,5.9188 117.4314,5.9097 117.3695,5.8897 117.4168,5.8908 117.6483,5.9085 117.7438,5.9412 117.753,5.9461 117.8117,6.0033 117.842,6.0344 117.8526,6.0494 117.8728,6.0544 117.9026,6.0284 117.9143,6.0126 117.9391,5.9686 117.9903,5.8576 117.9848,5.8464 117.9569,5.8096 117.9459,5.8037 117.9062,5.7969 117.848,5.8029 117.7971,5.8073 117.7868,5.8037 117.7739,5.791 117.7837,5.7485 117.8212,5.6787 117.991,5.6831 118.0218,5.7806 118.0271,5.7914 118.0423,5.7974 118.124,5.8212 118.2277,5.804 118.2388,5.801 118.2949,5.7751 118.3086,5.7684 118.3312,5.7568 118.34,5.7518 118.3606,5.7385 118.4439,5.6828 118.5138,5.6316 118.5279,5.6186 118.5569,5.5854 118.6499,5.521 118.7993,5.4239 118.9208,5.3986 118.9347,5.3986 118.947,5.4 118.9669,5.4073 118.9812,5.4201 118.9956,5.4296 119.0421,5.4394 119.0538,5.4373 119.0629,5.4328 119.0744,5.4236 119.0855,5.4146 119.1029,5.3977 119.1257,5.3692 119.1316,5.3584 119.1398,5.3391 119.1365,5.218 119.1277,5.1992 119.1196,5.187 119.1084,5.1705 119.0878,5.1428 119.0786,5.1319 119.0575,5.1183 119.0351,5.1067 118.992,5.0883 118.9337,5.0644 118.8982,5.0521 118.8591,5.0432 118.8415,5.0406 118.8037,5.0301 118.7776,5.0222 118.6826,4.9872 118.6435,4.9718 118.6132,4.9596 118.5751,4.9425 118.5663,4.9377 118.4144,4.9531 118.3115,4.9934 118.2897,5.0162 118.278,5.025 118.2595,5.0302 118.2194,5.0301 118.2062,5.0261 118.0724,4.9563 118.0058,4.8828 118.0009,4.8739 117.9981,4.8633 117.9978,4.8484 118.096,4.7302 118.1475,4.6758 118.2824,4.5882 118.295,4.6062 118.3057,4.6082 118.3502,4.5877 118.3522,4.5597 118.3323,4.5335 118.3744,4.4955 118.4092,4.5205 118.4599,4.5163 118.5085,4.4438 118.5098,4.4329 118.506,4.4234 118.4949,4.4101 118.415,4.346 118.4032,4.3468 118.3931,4.3501 118.3629,4.3509 118.2698,4.3443 118.0492,4.3029 117.991,4.2858 117.9396,4.2622 117.879,4.2273 117.862,4.2196 117.772,4.2415 117.7546,4.2517 117.7393,4.2724 117.729,4.2827 117.6414,4.3306 117.5592,4.3698 117.4953,4.3487 117.5189,4.2772 117.5182,4.2621 117.5133,4.2532 117.4676,4.1952 117.4585,4.1654 117.3953,4.1706 117.3643,4.1745 117.3422,4.1792 117.3193,4.1842 117.3062,4.1911 117.291,4.2099 117.2868,4.2202 117.2776,4.2377 117.2684,4.2501 117.1184,4.3492 117.1061,4.3536 117.0904,4.3539 117.0778,4.3498 117.0695,4.3414 117.0586,4.3315 117.0437,4.3307 116.9108,4.3322 116.804,4.3462 116.7916,4.3476 116.7776,4.3476 116.7563,4.3444 116.7441,4.3405 116.7073,4.3257 116.5563,4.326 116.5094,4.3299 116.4014,4.3262 116.3952,4.3147 116.3335,4.2892 116.322,4.29 116.3092,4.2947 116.2935,4.3054 116.1824,4.3529 116.0215,4.3502 116.0082,4.3325 115.9424,4.279 115.9294,4.2733 115.916,4.2763 115.8992,4.2962 115.8724,4.3253 115.8549,4.3349 115.8445,4.3382 115.7563,4.3633 115.7407,4.3564 115.726,4.3393 115.7189,4.3169 115.6389,4.2402 115.6299,4.2349 115.5597,4.1755 115.5521,4.1627 115.5287,4.1041 115.5301,4.0934 115.5313,4.0737 115.4856,3.8498 115.4546,3.7374 115.446,3.7046 115.4405,3.6621 115.4407,3.609 115.4435,3.5908 115.4482,3.5818 115.4711,3.5354 115.4955,3.4539 115.4971,3.4306 115.4832,3.4167 115.4663,3.4208 115.4525,3.4243 115.4402,3.414 115.4283,3.3856 115.4227,3.3702 115.4085,3.3301 115.4036,3.3147 115.3997,3.2982 115.3815,3.2066 115.3795,3.1949 115.3829,3.1804 115.3981,3.1725 115.3686,3.047 115.3653,3.0367 115.3572,3.0241 115.2479,2.9884 115.1883,2.9844 115.1804,2.9945 115.1756,3.0033 115.1715,3.0132 115.1199,3.0075 115.0222,2.919 115.0101,2.9031 114.9886,2.848 114.9529,2.6106 114.9624,2.5979 114.9783,2.5944 114.9936,2.6029 115.0042,2.6085 115.04,2.6025 115.0556,2.5942 115.0697,2.5803 115.1067,2.527 115.1014,2.5054 115.0862,2.4899 115.0742,2.4847 115.0579,2.4802 114.9614,2.4197 114.8725,2.3579 114.8201,2.2909 114.8103,2.2832 114.8005,2.2798 114.7753,2.2741 114.7441,2.2768 114.6848,2.2583 114.6757,2.2463 114.6624,2.2144 114.6497,2.1633 114.6474,2.1478 114.6716,2.0624 114.7103,2.0416 114.7199,2.0452 114.7336,2.0444 114.7434,2.0182 114.7437,2.0057 114.733,1.9132 114.7276,1.8985 114.7159,1.8897 114.6545,1.8618 114.5823,1.7685 114.5457,1.6409 114.4604,1.4505 114.4481,1.4392 114.4316,1.4315 114.4154,1.4307 114.4048,1.4339 114.3831,1.4464 114.3642,1.4617 114.3473,1.4758 114.3244,1.4905 114.3153,1.4952 114.2963,1.503 114.2851,1.5061 114.2734,1.5083 114.2613,1.5069 114.1627,1.4686 114.1035,1.4422 113.9567,1.4684 113.906,1.4574 113.8771,1.4521 113.8593,1.4494 113.8407,1.447 113.803,1.4437 113.7943,1.4394 113.7603,1.4043 113.7483,1.3889 113.7376,1.3727 113.7149,1.347 113.6629,1.3035 113.5316,1.2246 113.5151,1.228 113.5027,1.2363 113.4892,1.2501 113.4597,1.2822 113.3291,1.2869 113.2475,1.3426 113.2326,1.3547 113.2138,1.3637 112.9997,1.43 112.9306,1.5381 112.9118,1.5551 112.8729,1.5711 112.8503,1.576 112.7577,1.5862 112.5541,1.5615 112.3735,1.569 112.3465,1.5665 112.1839,1.498 112.0757,1.4485 112.059,1.4236 112.0559,1.4101 112.066,1.4013 112.0841,1.4019 112.089,1.3925 112.0873,1.3746 112.0065,1.1487 111.9852,1.1395 111.9491,1.1343 111.9296,1.1328 111.9163,1.1329 111.8581,1.1367 111.84,1.1338 111.8292,1.1309 111.8204,1.1262 111.7659,1.0745 111.7547,1.0546 111.7485,1.0401 111.735,1.0195 111.7206,1.0066 111.7019,0.9976 111.6847,0.9941 111.6726,0.9927 111.6077,1.0049 111.5992,1.0105 111.5751,1.0237 111.5567,1.0327 111.5445,1.0374 111.5303,1.0358 111.5104,1.0285 111.4404,0.9993 111.2947,1.007 111.2818,1.0078 111.2699,1.0106 111.1864,1.0433 111.1336,1.066 111.0876,1.0687 111.0709,1.0612 110.8997,1.0238 110.8825,1.02 110.8704,1.0191 110.8168,1.0174 110.7827,1.0141 110.7614,1.0044 110.6954,0.9491 110.689,0.9332 110.6886,0.9166 110.6839,0.9074 110.5782,0.8773 110.4747,0.8551 110.4507,0.8519 110.4314,0.8531 110.4209,0.856 110.3985,0.8643 110.3363,0.9017 110.2089,1.0009 110.0753,1.1749 110.0613,1.1845 110.0461,1.1867 110.0324,1.1864 110.0137,1.1884 109.9924,1.1939 109.9779,1.2 109.9607,1.2106 109.9485,1.2187 109.8729,1.2874 109.8621,1.3005 109.8567,1.3158 109.8086,1.4055 109.7016,1.467 109.6168,1.5375 109.5991,1.5541 109.5887,1.5641 109.576,1.5785 109.5458,1.6153 109.5443,1.7044 109.4927,1.7873 109.4805,1.7892 109.471,1.7932 109.4608,1.8004 109.441,1.8317 109.4244,1.905 109.5077,2.0294 109.5254,2.0712 109.5282,2.0553 109.5326,2.0005 109.5269,1.9503 109.5284,1.9343 109.5374,1.9125 109.5485,1.8961 109.5762,1.8588 109.5873,1.8495 109.6104,1.8348 109.6374,1.8207 109.7763,1.7203 109.8047,1.6885 109.8587,1.6807 110.1295,1.7037 110.1748,1.7598 110.1793,1.7688 110.1939,1.792 110.2067,1.7997 110.2186,1.7954 110.3532,1.6416 110.3562,1.6223 110.4033,1.6065 110.4412,1.5964 110.5117,1.5772 110.5787,1.5554 110.5982,1.5479 110.6094,1.5385 110.6165,1.5198 110.611,1.5006 110.6008,1.4866 110.5908,1.4761 110.5722,1.4639 110.5519,1.4491 110.5633,1.4432 110.5767,1.4437 110.6008,1.4471 110.61,1.4512 110.6225,1.4596 110.6382,1.478 110.6452,1.4917 110.6463,1.5039 110.6465,1.5175 110.6441,1.5361 110.6448,1.5526 110.6502,1.5613 110.6657,1.5679 110.6976,1.5663 110.7129,1.5608 110.8182,1.5155 110.852,1.495 110.8661,1.4816 110.8929,1.4534 110.912,1.4316 110.9283,1.4135 110.9386,1.4034 111.0311,1.3625 111.1946,1.3318 111.2084,1.3318 111.2261,1.334 111.2421,1.339 111.2537,1.3446 111.1771,1.4056 111.1625,1.4114 111.1379,1.4144 111.1174,1.4145 111.1002,1.4111 111.0851,1.4053 111.0756,1.4015 111.0637,1.3945 111.0474,1.3933 111.0352,1.398 110.9336,1.4604 110.8996,1.5224 110.8885,1.5318 110.8792,1.5497 110.8756,1.5704 110.8768,1.586 110.8974,1.6477 110.9046,1.6645 110.9171,1.6725 110.9397,1.6806 111.0446,1.9361 111.0487,1.9458 111.0712,2.0192 111.0807,2.0641 111.1148,2.1125 111.13,2.1211 111.1498,2.1181 111.1691,2.1102 111.1997,2.1031 111.2111,2.1056 111.2238,2.1167 111.2451,2.1442 111.2467,2.1559 111.23,2.1609 111.1459,2.1491 111.0671,2.1387 111.0481,2.1435 111.0582,2.2598 111.0777,2.3632 111.0863,2.396 111.0915,2.4109 111.1002,2.4197 111.1198,2.4265 111.1906,2.3848 111.2429,2.3364 111.2691,2.3537 111.3249,2.3662 111.3173,2.3902 111.3015,2.411 111.2779,2.4783 111.2929,2.5753 111.3113,2.6695 111.3139,2.6804 111.3232,2.6919 111.3948,2.7433 111.5183,2.8318 111.5307,2.8397 111.5433,2.8447 111.6151,2.8568 111.6676,2.8658 111.6975,2.8699 111.7161,2.8717 111.7663,2.8765 111.8242,2.8772 111.8389,2.8793 111.9668,2.902 111.9833,2.9062 112.0913,2.9347 112.1378,2.9498 112.3905,3.0115 112.5206,3.041 112.5495,3.0462 112.5601,3.0488 112.7375,3.0976 112.8051,3.1187 112.8255,3.1253 112.8402,3.1315 112.8538,3.1384 112.871,3.1488 112.8831,3.157 112.9016,3.1725 112.9146,3.1871 112.9263,3.2026 112.938,3.2186 112.949,3.2349 112.955,3.2494 113.1471,3.4822 113.1702,3.5135 113.2601,3.6395 113.2681,3.6514 113.2866,3.6881 113.3891,3.8037 113.4215,3.829 113.5408,3.9282 113.6068,3.9926 113.6476,4.0402 113.7967,4.2394 113.805,4.2518 113.8145,4.2696 113.8348,4.3168 113.861,4.4186 113.8652,4.4347 113.865,4.4484 113.8637,4.4675 113.8624,4.4798 113.8596,4.4908 113.8546,4.5063 113.8444,4.5312 113.8363,4.5504 113.8335,4.5647 113.8374,4.5774 113.8452,4.5869 113.8567,4.5923 113.8681,4.5944 113.8813,4.5937 113.9369,4.5904 113.9651,4.5854 113.9714,4.5846 114.0234,4.5748 114.0351,4.5728 114.0502,4.5674 114.0583,4.5621 114.1058,4.5269 114.1163,4.5167 114.1338,4.4925 114.1792,4.4284 114.1992,4.3354 114.2002,4.3221 114.27,4.2519 114.3458,4.1953 114.4785,4.0512 114.4794,4.0266 114.4896,4.0172 114.508,4.0136 114.5199,4.018 114.5399,4.0255 114.5755,4.0454 114.663,4.1225 114.676,4.1399 114.7365,4.3505 114.7283,4.4277 114.7131,4.4306 114.7042,4.4414 114.6985,4.4689 114.6953,4.491 114.6849,4.5758 114.6576,4.6923 114.6492,4.7038 114.6471,4.7158 114.649,4.7305 114.6564,4.7442 114.7217,4.7985 114.7356,4.8046 114.7481,4.8049 114.7735,4.8057 114.7864,4.8062 114.8149,4.8121 114.8311,4.8165 114.8485,4.8262 114.8582,4.8374 114.8871,4.8904 114.8871,4.8904 27,8.0,Malaysia 117.2099,6.6653 117.2655,6.6695 117.2799,6.6727 117.2942,6.6788 117.3049,6.6854 117.3117,6.6988 117.3055,6.7109 117.2901,6.7144 117.2702,6.7157 117.2673,6.7292 117.2775,6.7395 117.3348,6.7538 117.3589,6.7367 117.3819,6.6986 117.3824,6.6819 117.3795,6.6713 117.3677,6.6561 117.3337,6.6352 117.3209,6.6278 117.3109,6.6237 117.3003,6.6211 117.2794,6.6184 117.2175,6.6336 117.2056,6.6421 117.2023,6.6515 117.2099,6.6653 117.2099,6.6653 32,8.0,Philippines 121.8519,6.4011 121.8339,6.4046 121.8155,6.4174 121.7815,6.4426 121.7726,6.4499 121.6562,6.5905 121.6549,6.6231 121.6651,6.6477 121.6853,6.6678 121.6952,6.6714 121.7114,6.6722 121.7237,6.6661 121.7297,6.6551 121.7463,6.6475 121.7941,6.6612 121.8361,6.6966 121.8488,6.7154 121.8611,6.7311 121.8829,6.743 121.9374,6.7451 121.9685,6.7072 122.0057,6.6739 122.0557,6.6605 122.0916,6.6536 122.0996,6.5849 122.0581,6.5001 122.0247,6.451 121.9316,6.4141 121.9122,6.4082 121.8973,6.4045 121.8519,6.4011 121.8519,6.4011 320,8.0,Malaysia 100.0135,6.4177 100.0284,6.4296 100.055,6.4635 100.0793,6.5681 100.0707,6.5904 100.061,6.6149 100.0806,6.6901 100.0903,6.7018 100.1014,6.7036 100.1506,6.6992 100.1865,6.6922 100.2169,6.6131 100.2214,6.5789 100.2605,6.5367 100.2651,6.5336 100.2738,6.5289 100.323,6.5085 100.5424,6.4415 100.5672,6.4463 100.6026,6.4729 100.6372,6.4957 100.7136,6.4208 100.7401,6.3154 100.7334,6.2899 100.7323,6.2779 100.7385,6.237 100.8374,6.2341 100.8949,6.2624 100.9973,6.2437 100.9994,6.1757 100.9843,6.1121 100.9915,6.0435 101.0041,5.9835 100.9805,5.9175 100.9539,5.9081 100.9273,5.8953 100.876,5.7881 100.8796,5.7733 100.9426,5.7228 101.0271,5.6274 101.0498,5.6321 101.0746,5.6447 101.1079,5.6646 101.1441,5.7084 101.1965,5.8007 101.3368,5.8565 101.3907,5.8742 101.4556,5.9087 101.491,5.8989 101.5437,5.844 101.543,5.8154 101.5767,5.758 101.5838,5.7548 101.6305,5.7826 101.6559,5.7712 101.6849,5.7396 101.7103,5.7345 101.8282,5.8605 101.8279,5.8969 101.8248,5.9211 101.8277,5.9501 101.8366,5.9689 101.868,6.0069 101.8952,6.0317 101.9745,6.1472 101.9793,6.2291 102.0069,6.211 102.0506,6.1869 102.0699,6.1989 102.1057,6.2106 102.1969,6.1827 102.2177,6.1687 102.2421,6.145 102.2689,6.1096 102.2957,6.0643 102.3163,6.0135 102.3715,5.896 102.385,5.8756 102.423,5.8468 102.4645,5.8221 102.4884,5.806 102.5068,5.7894 102.5294,5.7572 102.5489,5.7236 102.7249,5.583 102.7596,5.5622 102.8041,5.5412 102.8436,5.5309 102.9203,5.4708 102.9471,5.4422 102.9787,5.4042 103.0044,5.3713 103.0641,5.2771 103.0906,5.2349 103.1103,5.1997 103.1224,5.1714 103.1301,5.152 103.1479,5.1079 103.1613,5.0807 103.238,4.9437 103.2919,4.8528 103.323,4.7599 103.3372,4.622 103.3362,4.4797 103.3472,4.4067 103.3588,4.37 103.3679,4.345 103.376,4.3039 103.369,4.276 103.349,4.2296 103.329,4.162 103.2968,4.1461 103.2786,4.1068 103.277,4.0806 103.284,4.0533 103.2921,4.0278 103.2966,3.9545 103.2593,3.859 103.2196,3.74 103.254,3.6386 103.2679,3.6183 103.3081,3.5687 103.3315,3.544 103.3463,3.5278 103.3597,3.495 103.3407,3.4691 103.3248,3.4362 103.3094,3.3889 103.3089,3.3679 103.3103,3.3259 103.3141,3.3061 103.3228,3.2768 103.3276,3.2547 103.3347,3.2147 103.3377,3.1774 103.3348,3.1453 103.329,3.1233 103.3182,3.0493 103.3161,2.9589 103.3216,2.9226 103.3347,2.8852 103.3528,2.8548 103.366,2.8337 103.3853,2.8052 103.4058,2.7777 103.4381,2.7413 103.4756,2.7032 103.5022,2.6778 103.5204,2.6612 103.5365,2.6579 103.6109,2.637 103.6487,2.6228 103.7036,2.5732 103.7172,2.5145 103.7104,2.4739 103.7195,2.4524 103.7815,2.3832 103.8608,2.2408 103.903,2.1345 103.9414,2.057 103.999,1.9641 104.0715,1.8031 104.1066,1.716 104.1366,1.6318 104.1764,1.4362 104.1607,1.3678 104.0948,1.3393 104.0641,1.3378 104.0359,1.344 103.9884,1.3679 103.931,1.4674 103.9611,1.5018 103.8637,1.6315 103.8418,1.6425 103.8546,1.5887 103.8772,1.5637 103.8946,1.5334 103.8938,1.4604 103.8821,1.4341 103.8544,1.4175 103.7883,1.4307 103.7559,1.4553 103.7296,1.4703 103.7084,1.4746 103.5674,1.444 103.4638,1.3441 103.3962,1.2681 103.3486,1.3087 103.3388,1.3261 103.3245,1.3723 103.3035,1.4436 103.2901,1.488 103.2766,1.5121 103.2587,1.5317 103.2329,1.5471 103.2012,1.564 103.1719,1.5771 103.1377,1.5883 103.1001,1.6029 103.0758,1.6131 102.8966,1.7258 102.7368,1.8295 102.7162,1.8434 102.6958,1.8509 102.6648,1.8504 102.605,1.845 102.5842,1.8553 102.5666,1.8754 102.438,2.046 102.397,2.0736 102.3801,2.0845 102.3724,2.0887 102.3523,2.0984 102.3185,2.1129 102.178,2.1668 102.0748,2.2065 102.0543,2.2177 101.9895,2.2662 101.8986,2.3537 101.8716,2.3873 101.8166,2.4125 101.7351,2.4698 101.6711,2.5704 101.6532,2.5835 101.6274,2.5896 101.6063,2.5887 101.5836,2.5918 101.4351,2.6522 101.3971,2.6733 101.3676,2.6997 101.3435,2.7337 101.3243,2.769 101.2993,2.7992 101.2826,2.8102 101.2546,2.8204 101.1993,2.8247 101.1715,2.8403 101.1673,2.8912 101.1806,2.9167 101.2018,2.9507 101.2212,2.9691 101.252,2.988 101.2568,3.0298 101.2522,3.0602 101.2366,3.0876 101.2053,3.1233 101.1915,3.2028 101.1908,3.2288 101.1858,3.2508 101.1759,3.2714 101.1208,3.335 101.0793,3.3573 100.9946,3.4651 100.977,3.4954 100.9578,3.5308 100.9508,3.5509 100.9458,3.5731 100.9329,3.6011 100.9139,3.6242 100.7709,3.7497 100.7544,3.7613 100.7349,3.7664 100.7002,3.7721 100.6942,3.7926 100.7112,3.8204 100.7299,3.84 100.6681,3.8348 100.6432,3.8383 100.6252,3.8483 100.6068,3.8644 100.5896,3.8856 100.5831,3.9063 100.5907,3.9784 100.6102,3.9907 100.6367,3.9792 100.6644,3.9793 100.754,4.0179 100.5767,4.1508 100.5395,4.1584 100.5098,4.1579 100.4876,4.2171 100.4667,4.298 100.4579,4.3351 100.4688,4.3945 100.4745,4.5812 100.4792,4.7456 100.4907,4.793 100.3963,4.8808 100.3317,4.9081 100.2875,4.9786 100.2654,5.031 100.248,5.0787 100.2902,5.1144 100.2982,5.1323 100.3101,5.1624 100.3189,5.1886 100.3161,5.2766 100.2672,5.5127 100.2585,5.5353 100.235,5.5629 100.236,5.603 100.2543,5.6558 100.26,5.6772 100.2617,5.8148 100.2551,5.8693 100.2494,5.911 100.2412,5.9572 100.234,5.9906 100.2233,6.021 100.1725,6.1275 100.1368,6.2015 100.1245,6.2189 100.0991,6.2376 100.0807,6.2491 100.0742,6.2546 100.0581,6.2797 100.0471,6.3096 100.0141,6.4067 100.0135,6.4177 100.0135,6.4177 12,7.0,Thailand 99.5501,6.6957 99.5685,6.6719 99.5847,6.5809 99.5893,6.5352 99.5799,6.5182 99.5551,6.4892 99.5398,6.4877 99.4839,6.5779 99.4849,6.5927 99.4956,6.6009 99.5501,6.6957 99.5501,6.6957 21,8.0,Malaysia 99.7398,6.457 99.7458,6.4291 99.7564,6.4121 99.7805,6.395 99.802,6.3799 99.8094,6.3267 99.7581,6.2811 99.6261,6.2418 99.544,6.3539 99.5392,6.3628 99.5339,6.3781 99.5287,6.4002 99.5291,6.4149 99.5903,6.4192 99.6034,6.4181 99.6143,6.4151 99.619,6.4061 99.6362,6.4006 99.6808,6.4045 99.7398,6.457 99.7398,6.457 11,8.0,Philippines 120.4103,6.2332 120.3996,6.2335 120.3431,6.2502 120.4169,6.3631 120.4317,6.3761 120.4637,6.3876 120.466,6.3728 120.4416,6.2453 120.4329,6.2384 120.4103,6.2332 120.4103,6.2332 31,8.0,Philippines 121.1501,5.8476 121.144,5.8662 121.1023,5.9247 121.094,5.9353 121.0601,5.9425 121.0461,5.9344 120.946,5.8817 120.7945,5.8812 120.7827,5.8843 120.7394,5.9128 120.7313,5.9369 120.7321,5.9473 120.7533,5.9917 120.7824,6.015 120.8781,6.0715 120.9798,6.0817 120.9905,6.0798 121.0183,6.067 121.0476,6.0334 121.1165,6.0095 121.2526,6.0028 121.2703,5.9933 121.2891,5.9709 121.2881,5.9478 121.2513,5.9102 121.2303,5.9074 121.2144,5.9074 121.1771,5.8804 121.164,5.867 121.1501,5.8476 121.1501,5.8476 237,-3.0,Suriname -57.1829,5.4799 -57.1187,5.5127 -57.1022,5.5352 -57.0737,5.6656 -57.0707,5.6861 -57.0672,5.7613 -57.0027,5.9352 -56.9276,5.9829 -56.8994,5.9904 -56.6357,5.9588 -56.5388,5.9338 -56.4899,5.9416 -56.4154,5.9387 -56.1961,5.8828 -55.9538,5.812 -55.8465,5.772 -55.8305,5.7241 -55.8347,5.6682 -55.8222,5.6768 -55.8138,5.7115 -55.8272,5.7695 -55.8589,5.8696 -55.792,5.9425 -55.764,5.9516 -55.7045,5.9607 -55.5569,5.9678 -55.485,5.971 -55.3497,5.9575 -55.314,5.9535 -55.2758,5.9435 -55.2035,5.9172 -55.1907,5.9094 -55.1675,5.8916 -55.1118,5.9009 -55.0525,5.8706 -55.051,5.8334 -55.0648,5.8159 -55.0413,5.8329 -54.9532,5.844 -54.884,5.8398 -54.8016,5.8486 -54.8245,5.873 -54.906,5.8667 -54.9324,5.8594 -55.0432,5.898 -55.0819,5.9278 -55.0966,5.9569 -54.9847,5.995 -54.9075,5.9816 -54.8142,5.9785 -54.717,5.9758 -54.6476,5.9557 -54.5769,5.9481 -54.2822,5.9004 -54.2364,5.8917 -54.1428,5.8732 -54.1169,5.865 -53.964,5.812 -53.9286,5.7408 -53.9449,5.7148 -53.9848,5.6473 -53.9899,5.5842 -53.9899,5.521 -54.0059,5.4853 -54.034,5.4522 -54.0586,5.4258 -54.0804,5.3892 -54.1046,5.3415 -54.1087,5.3362 -54.1313,5.3096 -54.1828,5.2791 -54.2214,5.249 -54.255,5.2029 -54.2855,5.1427 -54.3166,5.1066 -54.3461,5.075 -54.3856,5.0186 -54.3927,4.9984 -54.4137,4.8623 -54.4153,4.749 -54.411,4.7293 -54.3776,4.6641 -54.3597,4.5966 -54.361,4.5593 -54.3808,4.5259 -54.3896,4.5074 -54.3782,4.4057 -54.3694,4.3645 -54.3317,4.2325 -54.3031,4.1592 -54.299,4.0379 -54.2285,3.9294 -54.1269,3.8045 -54.085,3.7937 -54.0661,3.7846 -53.9363,3.623 -53.925,3.5976 -53.94,3.4447 -54.0099,3.3092 -54.0333,3.2915 -54.0575,3.2744 -54.1259,3.1913 -54.1449,3.1419 -54.1469,3.1211 -54.1343,3.0929 -54.1146,3.0407 -54.0995,2.9504 -54.1339,2.7933 -54.1435,2.772 -54.1615,2.7526 -54.1958,2.7158 -54.2537,2.6262 -54.2605,2.5957 -54.2907,2.521 -54.3046,2.4938 -54.3591,2.4322 -54.4377,2.3623 -54.5331,2.3298 -54.5422,2.3265 -54.5731,2.3175 -54.6258,2.3231 -54.6473,2.3854 -54.6283,2.3971 -54.6282,2.4488 -54.6914,2.4678 -54.7137,2.4542 -54.7419,2.4356 -54.7857,2.4333 -54.8071,2.4392 -54.9075,2.5479 -55.0298,2.5321 -55.0497,2.5243 -55.4407,2.4361 -55.6508,2.3977 -55.801,2.4687 -55.8231,2.4943 -55.8545,2.5178 -55.8786,2.5277 -55.8994,2.5302 -55.9193,2.5193 -55.9372,2.4482 -56.0213,2.3551 -56.0527,2.2469 -55.9731,2.2066 -55.8408,2.0455 -55.8388,1.8991 -55.8795,1.8541 -55.9027,1.8433 -55.933,1.8357 -55.9646,1.8343 -56.0051,1.8437 -56.05,1.8618 -56.1385,1.8896 -56.2634,1.9233 -56.3628,1.932 -56.407,1.9424 -56.4139,1.9598 -56.4921,2.0184 -56.5159,2.025 -56.5821,2.0257 -56.6182,2.0246 -56.7112,2.1387 -56.7464,2.191 -56.7896,2.2809 -56.8537,2.4254 -56.8805,2.4803 -57.0524,2.754 -57.1363,2.8198 -57.1485,2.8756 -57.1423,3.001 -57.1455,3.0326 -57.1556,3.0615 -57.1901,3.1001 -57.2186,3.1375 -57.2253,3.1778 -57.2276,3.2639 -57.2186,3.315 -57.2392,3.3769 -57.3644,3.3437 -57.4652,3.3428 -57.5452,3.3565 -57.5769,3.3529 -57.5924,3.4103 -57.573,3.4531 -57.589,3.5149 -57.6033,3.5343 -57.6751,3.6097 -57.6948,3.6204 -57.7511,3.6462 -57.7728,3.6652 -57.7802,3.6885 -57.7836,3.7349 -57.7937,3.7675 -57.8018,3.7866 -57.8108,3.8049 -57.866,3.8865 -57.8846,3.9089 -57.9031,3.9248 -57.9505,3.9592 -57.9778,3.9972 -58.0054,4.1513 -57.9955,4.1757 -57.9731,4.2066 -57.9366,4.2352 -57.8884,4.2837 -57.8832,4.3123 -57.8826,4.3445 -57.8366,4.4988 -57.7809,4.6236 -57.7743,4.6638 -57.8217,4.7629 -57.8427,4.7727 -57.8586,4.7913 -57.857,4.8168 -57.835,4.8503 -57.7748,4.9223 -57.6101,5.0061 -57.5681,4.9947 -57.5449,4.9867 -57.4079,4.9838 -57.3514,4.9841 -57.2617,5.0206 -57.2563,5.0702 -57.2268,5.1605 -57.2064,5.1713 -57.1849,5.167 -57.166,5.1407 -57.1256,5.1663 -57.1419,5.2178 -57.1695,5.254 -57.1968,5.2161 -57.2172,5.2205 -57.2587,5.2979 -57.2337,5.3537 -57.2061,5.3791 -57.1829,5.4799 -57.1829,5.4799 14,7.0,Indonesia 95.2717,5.8312 95.2724,5.8127 95.2717,5.7997 95.2316,5.7682 95.184,5.7792 95.1715,5.7872 95.1095,5.875 95.103,5.8862 95.1027,5.897 95.1116,5.9068 95.2287,5.888 95.2739,5.8405 95.2717,5.8312 95.2717,5.8312 191,-3.0,French Guiana -54.1046,5.3415 -54.0777,5.3517 -54.0298,5.386 -54.0077,5.4121 -53.9962,5.4313 -53.9451,5.5386 -53.942,5.5694 -53.9492,5.5997 -53.9441,5.6352 -53.9305,5.6668 -53.9201,5.6842 -53.8779,5.7383 -53.8499,5.7441 -53.797,5.7492 -53.6895,5.7252 -53.5752,5.667 -53.461,5.5987 -53.4378,5.5742 -53.4332,5.5664 -53.4224,5.562 -53.3471,5.5427 -53.2416,5.5168 -53.1254,5.493 -53.0237,5.4772 -52.9125,5.467 -52.8772,5.4523 -52.826,5.4144 -52.7394,5.336 -52.7269,5.3162 -52.6758,5.2546 -52.5507,5.1238 -52.5071,5.091 -52.3623,4.9871 -52.2707,4.9436 -52.2298,4.9331 -52.0047,4.7285 -51.9638,4.6804 -51.9376,4.638 -51.9257,4.6085 -51.9186,4.5821 -51.8971,4.4876 -51.8916,4.4519 -51.8916,4.419 -51.9011,4.3952 -51.9421,4.3639 -51.9697,4.3475 -51.9813,4.3299 -51.9325,4.3433 -51.892,4.3679 -51.8691,4.396 -51.8644,4.4224 -51.8672,4.4604 -51.8701,4.482 -51.872,4.524 -51.8719,4.565 -51.865,4.6158 -51.8561,4.6416 -51.8405,4.6565 -51.8022,4.6542 -51.7354,4.6005 -51.708,4.5328 -51.7001,4.4955 -51.6974,4.4724 -51.6936,4.4502 -51.6853,4.4161 -51.655,4.3081 -51.6435,4.2822 -51.6156,4.2487 -51.5969,4.2207 -51.5896,4.1957 -51.589,4.1628 -51.5932,4.1326 -51.6022,4.0766 -51.6157,4.0452 -51.6254,4.0298 -51.6452,4.0219 -51.6696,4.0115 -51.6949,3.996 -51.7127,3.9793 -51.7248,3.9567 -51.7348,3.9125 -51.7533,3.8724 -51.8474,3.7866 -51.8679,3.7729 -51.922,3.6961 -51.9309,3.6534 -51.9367,3.6219 -52.041,3.4451 -52.106,3.3384 -52.1674,3.2497 -52.1905,3.2402 -52.2143,3.2377 -52.2857,3.1539 -52.2939,3.1282 -52.2856,3.085 -52.2926,3.0368 -52.3198,2.9708 -52.3494,2.919 -52.4048,2.8104 -52.4604,2.6948 -52.4933,2.6184 -52.4807,2.5837 -52.4829,2.5626 -52.5044,2.5195 -52.5352,2.4711 -52.616,2.3717 -52.7297,2.3009 -52.8232,2.2225 -52.8368,2.2046 -52.8952,2.174 -52.9344,2.1734 -52.995,2.1846 -53.0096,2.2007 -53.0275,2.2172 -53.0521,2.2201 -53.136,2.2113 -53.1793,2.206 -53.1662,2.2621 -53.2366,2.3164 -53.2596,2.3455 -53.2803,2.3472 -53.288,2.3204 -53.3985,2.2551 -53.4676,2.247 -53.641,2.3077 -53.661,2.3391 -53.6855,2.3684 -53.7162,2.3622 -53.7388,2.3499 -53.8493,2.2746 -53.8674,2.2503 -53.8719,2.2258 -54.0488,2.1113 -54.2595,2.1591 -54.4031,2.2092 -54.4572,2.2551 -54.4658,2.2869 -54.4797,2.3127 -54.5123,2.3226 -54.5331,2.3298 -54.4377,2.3623 -54.3591,2.4322 -54.3046,2.4938 -54.2907,2.521 -54.2605,2.5957 -54.2537,2.6262 -54.1958,2.7158 -54.1615,2.7526 -54.1435,2.772 -54.1339,2.7933 -54.0995,2.9504 -54.1146,3.0407 -54.1343,3.0929 -54.1469,3.1211 -54.1449,3.1419 -54.1259,3.1913 -54.0575,3.2744 -54.0333,3.2915 -54.0099,3.3092 -53.94,3.4447 -53.925,3.5976 -53.9363,3.623 -54.0661,3.7846 -54.085,3.7937 -54.1269,3.8045 -54.2285,3.9294 -54.299,4.0379 -54.3031,4.1592 -54.3317,4.2325 -54.3694,4.3645 -54.3782,4.4057 -54.3896,4.5074 -54.3808,4.5259 -54.361,4.5593 -54.3597,4.5966 -54.3776,4.6641 -54.411,4.7293 -54.4153,4.749 -54.4137,4.8623 -54.3927,4.9984 -54.3856,5.0186 -54.3461,5.075 -54.3166,5.1066 -54.2855,5.1427 -54.255,5.2029 -54.2214,5.249 -54.1828,5.2791 -54.1313,5.3096 -54.1087,5.3362 -54.1046,5.3415 -54.1046,5.3415 1028,7.0,Indonesia 102.8527,0.6547 102.8606,0.6429 102.9276,0.5651 102.9518,0.5355 102.9653,0.5149 102.9715,0.5005 102.9754,0.4844 102.9755,0.4708 102.973,0.456 102.9667,0.4452 102.9556,0.4359 102.9322,0.4245 102.8323,0.3743 102.66,0.2863 102.6059,0.2585 102.4786,0.1865 102.4701,0.1812 102.4562,0.1763 102.4396,0.1806 102.4155,0.1972 102.4054,0.2078 102.3944,0.2243 102.3844,0.238 102.3737,0.2448 102.3159,0.2444 102.4085,0.1777 102.4253,0.1665 102.4434,0.1576 102.4567,0.1536 102.4724,0.1525 102.5162,0.1973 102.5297,0.2096 102.5442,0.2174 102.5598,0.2219 102.6815,0.2467 102.705,0.2508 102.7367,0.2537 102.7572,0.2538 102.7695,0.2552 102.7895,0.2624 103.0345,0.4012 103.0473,0.4089 103.0631,0.4204 103.0802,0.4447 103.0844,0.4539 103.0871,0.4653 103.091,0.4746 103.1049,0.4868 103.2246,0.5328 103.2353,0.5355 103.2516,0.536 103.2682,0.5318 103.2892,0.5222 103.335,0.4993 103.3597,0.4827 103.6135,0.2912 103.6238,0.2808 103.631,0.2677 103.6352,0.2586 103.6386,0.2481 103.6413,0.2233 103.6475,0.1884 103.6543,0.1543 103.6768,0.0538 103.6867,0.029 103.6956,0.0105 103.6951,-0.0033 103.6757,-0.0134 103.6586,-0.0169 103.6455,-0.0173 103.5527,-0.0227 103.4867,-0.0268 103.4709,-0.0497 103.4646,-0.1025 103.3192,-0.2034 103.307,-0.2116 103.278,-0.224 103.2614,-0.2283 103.219,-0.2337 103.196,-0.2378 103.1851,-0.2405 103.1706,-0.2466 103.1569,-0.2589 103.2027,-0.2646 103.2164,-0.2643 103.2384,-0.2623 103.31,-0.2352 103.3631,-0.2145 103.3773,-0.2179 103.3828,-0.2263 103.3827,-0.2418 103.3287,-0.3246 103.3233,-0.3329 103.3012,-0.3504 103.2269,-0.3634 103.3204,-0.3752 103.3814,-0.3787 103.458,-0.4115 103.4663,-0.4172 103.4817,-0.4342 103.4818,-0.4484 103.4706,-0.4609 103.4581,-0.4691 103.4061,-0.503 103.2991,-0.5757 103.2453,-0.7012 103.3115,-0.748 103.3507,-0.7633 103.354,-0.7791 103.4328,-0.868 103.5354,-0.9466 103.5444,-0.9516 103.6153,-0.99 103.6251,-0.9944 103.7295,-1.0234 103.7449,-1.0111 103.7654,-0.9977 103.8084,-0.9859 103.8196,-0.9832 103.8388,-0.9818 103.8502,-0.9841 103.9917,-1.0254 104.0014,-1.0296 104.1021,-1.0685 104.1151,-1.061 104.2292,-1.0248 104.2425,-1.0255 104.2524,-1.0289 104.2609,-1.0378 104.266,-1.0494 104.2958,-1.1302 104.2965,-1.1432 104.2904,-1.1577 104.2849,-1.1661 104.2781,-1.1903 104.2779,-1.2139 104.2834,-1.2357 104.2881,-1.2516 104.2922,-1.2611 104.2997,-1.2742 104.3151,-1.2932 104.3228,-1.3055 104.3298,-1.319 104.3333,-1.3296 104.3384,-1.3523 104.34,-1.3703 104.3403,-1.3909 104.339,-1.4032 104.3331,-1.4253 104.3299,-1.4425 104.3287,-1.4581 104.3332,-1.5047 104.3345,-1.5171 104.3435,-1.5699 104.3464,-1.5806 104.3715,-1.6375 104.3839,-1.6592 104.4005,-1.6906 104.4127,-1.7194 104.4189,-1.7405 104.4217,-1.7585 104.4223,-1.7716 104.4203,-1.7866 104.4131,-1.8015 104.3987,-1.8099 104.3854,-1.8236 104.3764,-1.842 104.3662,-1.866 104.3637,-1.8935 104.3661,-1.9084 104.3723,-1.9228 104.3797,-1.9322 104.3925,-1.9272 104.4069,-1.8935 104.4127,-1.8687 104.4207,-1.8579 104.4444,-1.862 104.4631,-1.8741 104.5084,-1.911 104.5183,-1.9251 104.6377,-1.9986 104.6564,-1.9966 104.6698,-1.9964 104.6814,-1.9987 104.704,-2.0105 104.7288,-2.0335 104.7452,-2.0579 104.7535,-2.0771 104.7588,-2.1128 104.7618,-2.1444 104.761,-2.1575 104.7579,-2.1681 104.7519,-2.1826 104.7421,-2.2004 104.6067,-2.3815 104.6098,-2.3957 104.6077,-2.4633 104.5998,-2.5624 104.5923,-2.5734 104.5535,-2.5907 104.5335,-2.5983 104.5238,-2.6024 104.5066,-2.6125 104.4813,-2.6287 104.4628,-2.6444 104.4559,-2.6519 104.4443,-2.6673 104.4252,-2.6962 104.4202,-2.7119 104.4143,-2.7681 104.4278,-2.7621 104.4361,-2.7531 104.4418,-2.7413 104.4472,-2.7195 104.4597,-2.6908 104.4754,-2.6691 104.4937,-2.6566 104.5355,-2.6299 104.569,-2.6154 104.5901,-2.6094 104.6065,-2.6017 104.619,-2.5901 104.624,-2.5814 104.628,-2.5717 104.6457,-2.4938 104.6491,-2.4769 104.6505,-2.4645 104.6649,-2.3925 104.7346,-2.2936 104.7471,-2.286 104.7674,-2.2852 104.873,-2.3304 104.8935,-2.3404 104.9058,-2.352 104.9113,-2.3604 104.9205,-2.3684 104.9847,-2.3678 105.0496,-2.3596 105.0644,-2.3542 105.0855,-2.3475 105.107,-2.3418 105.12,-2.3412 105.1313,-2.3442 105.1613,-2.3556 105.1962,-2.3687 105.2073,-2.3721 105.2273,-2.3759 105.4036,-2.3955 105.4876,-2.3905 105.4976,-2.3944 105.5068,-2.4058 105.5108,-2.4151 105.5137,-2.4296 105.5124,-2.445 105.5095,-2.4561 105.5049,-2.4721 105.4993,-2.4871 105.4909,-2.5062 105.4883,-2.5171 105.4871,-2.5293 105.487,-2.5498 105.4883,-2.5623 105.4918,-2.5792 105.4996,-2.5983 105.5072,-2.6113 105.5181,-2.6281 105.5419,-2.6522 105.5623,-2.6664 105.5812,-2.6743 105.5973,-2.6791 105.6153,-2.6813 105.6406,-2.6818 105.6604,-2.6909 105.6702,-2.707 105.6725,-2.727 105.6708,-2.7735 105.6681,-2.8116 105.6682,-2.8256 105.6693,-2.8445 105.6722,-2.8553 105.6824,-2.8793 105.6893,-2.8931 105.701,-2.9089 105.7181,-2.9259 105.7331,-2.9382 105.7453,-2.9465 105.7647,-2.9546 105.7754,-2.9572 105.7973,-2.9594 105.8205,-2.9518 105.8406,-2.9479 105.8578,-2.9511 105.8693,-2.9566 105.8815,-2.9647 105.9018,-2.9794 105.9145,-2.9916 105.922,-3.0005 105.9297,-3.0132 105.9358,-3.0279 105.9576,-3.2152 105.9575,-3.2376 105.9507,-3.2547 105.9402,-3.2649 105.9272,-3.2722 105.9048,-3.2833 105.8869,-3.293 105.8744,-3.3012 105.8591,-3.3129 105.8348,-3.3368 105.8115,-3.3618 105.7954,-3.3801 105.7791,-3.4047 105.7704,-3.4233 105.7629,-3.443 105.7573,-3.4586 105.7033,-3.6433 105.6963,-3.6706 105.6945,-3.6893 105.6957,-3.7083 105.6996,-3.7177 105.7051,-3.7262 105.7226,-3.7427 105.7551,-3.765 105.8033,-3.7856 105.8221,-3.8004 105.832,-3.8144 105.8368,-3.8342 105.8363,-3.8509 105.8332,-3.8648 105.8249,-3.8837 105.8152,-3.9017 105.7726,-3.9649 105.7632,-3.983 105.7433,-4.0244 105.7373,-4.0389 105.7323,-4.0545 105.7275,-4.077 105.7156,-4.1336 105.7084,-4.1535 105.6959,-4.1961 105.6927,-4.2127 105.6897,-4.2376 105.6899,-4.2785 105.691,-4.2909 105.6972,-4.312 105.7035,-4.3264 105.7082,-4.3354 105.7398,-4.3842 105.7813,-4.4518 105.7841,-4.471 105.7841,-4.5434 105.7772,-4.6728 105.7589,-4.711 105.7458,-4.7664 105.7441,-4.7782 105.7436,-4.791 105.7474,-4.8198 105.7546,-4.853 105.7664,-4.8822 105.7587,-4.991 105.7379,-5.1403 105.6971,-5.5349 105.7031,-5.5526 105.7106,-5.5657 105.7141,-5.5756 105.7159,-5.5908 105.7143,-5.6122 105.7106,-5.6292 105.68,-5.7676 105.6744,-5.7894 105.6678,-5.8098 105.6586,-5.8284 105.6084,-5.8915 105.5033,-5.8124 105.2212,-5.5075 105.1702,-5.4435 105.1518,-5.4378 105.1397,-5.4427 105.0517,-5.5816 105.0731,-5.6751 105.0941,-5.752 105.0945,-5.7646 105.0783,-5.7726 105.0221,-5.7885 104.9399,-5.7439 104.8571,-5.6968 104.774,-5.6634 104.664,-5.5975 104.6392,-5.5812 104.6216,-5.5642 104.6058,-5.5388 104.5978,-5.5296 104.5758,-5.5089 104.562,-5.5021 104.552,-5.4988 104.5408,-5.4957 104.5023,-5.4866 104.4908,-5.4871 104.4462,-5.493 104.4354,-5.4959 104.4241,-5.5018 104.413,-5.5178 104.4069,-5.5384 104.4219,-5.5749 104.4299,-5.5942 104.4381,-5.6062 104.46,-5.6322 104.4778,-5.6556 104.495,-5.6791 104.5087,-5.6996 104.5137,-5.7086 104.5599,-5.7916 104.5699,-5.809 104.5736,-5.819 104.5951,-5.9112 104.5881,-5.9214 104.5732,-5.9271 104.567,-5.9276 104.5128,-5.9271 104.46,-5.925 104.4418,-5.923 104.4369,-5.8659 104.4273,-5.8447 104.4186,-5.833 104.4081,-5.8229 104.3225,-5.7464 104.224,-5.6594 104.189,-5.6144 104.1922,-5.6044 104.1902,-5.5928 104.1809,-5.5783 104.1475,-5.5435 104.1151,-5.5212 104.055,-5.4799 103.9767,-5.423 103.891,-5.3241 103.8839,-5.2645 103.7864,-5.1192 103.7724,-5.1053 103.6014,-4.9546 103.5898,-4.9492 103.5782,-4.947 103.5082,-4.926 103.4932,-4.9139 103.4514,-4.9077 103.4345,-4.9042 103.3251,-4.8552 103.2867,-4.8279 103.2369,-4.7876 103.1893,-4.7419 103.1764,-4.7266 103.1661,-4.7168 103.1452,-4.6967 103.1121,-4.6685 103.0119,-4.5906 102.9838,-4.5704 102.9346,-4.5379 102.9059,-4.5255 102.7567,-4.4149 102.7361,-4.3946 102.7068,-4.3687 102.6053,-4.2848 102.5548,-4.246 102.527,-4.2255 102.4831,-4.1937 102.4349,-4.1596 102.4228,-4.1508 102.3776,-4.1209 102.3333,-4.0901 102.2216,-4.0105 102.2101,-4.0013 102.189,-3.9815 102.1742,-3.9586 102.1637,-3.931 102.1617,-3.9193 102.1656,-3.9099 102.1535,-3.8062 102.1255,-3.6796 102.1209,-3.667 102.1058,-3.6446 102.0925,-3.6339 101.9975,-3.5753 101.8807,-3.5042 101.7546,-3.4175 101.5397,-3.263 101.5202,-3.2488 101.5123,-3.2421 101.4944,-3.2191 101.3771,-3.056 101.3715,-3.0476 101.3558,-3.0222 101.3469,-3.0002 101.2902,-2.8864 101.2082,-2.7289 101.1999,-2.7166 101.1858,-2.7035 101.1658,-2.6894 101.1455,-2.6788 101.1336,-2.6737 101.0855,-2.6533 101.0672,-2.6443 101.0268,-2.6163 101.0111,-2.6046 100.9961,-2.5922 100.9814,-2.5784 100.9717,-2.5676 100.9153,-2.4945 100.9068,-2.4823 100.893,-2.4541 100.8031,-2.3329 100.7923,-2.3168 100.725,-2.1846 100.7201,-2.1657 100.7196,-2.1403 100.7285,-2.1252 100.7511,-2.0998 100.7613,-2.0827 100.7683,-2.0655 100.7697,-2.0429 100.7691,-1.9972 100.7628,-1.9624 100.7565,-1.9343 100.7533,-1.9239 100.7429,-1.9 100.7327,-1.883 100.6281,-1.7338 100.5872,-1.6789 100.5756,-1.6636 100.5629,-1.6482 100.5451,-1.6317 100.5359,-1.6173 100.4933,-1.4938 100.4701,-1.4157 100.4726,-1.3806 100.4543,-1.3341 100.4477,-1.3237 100.325,-1.2397 100.2697,-1.1101 100.2694,-1.0443 100.2229,-0.8729 100.2192,-0.8636 100.2068,-0.8416 100.1815,-0.8054 100.0999,-0.7223 100.0647,-0.6955 100.0513,-0.682 100.0181,-0.642 100.0039,-0.6218 99.9972,-0.6048 99.9863,-0.578 99.9765,-0.5601 99.9382,-0.5094 99.9013,-0.4706 99.8913,-0.4605 99.8809,-0.4503 99.803,-0.3979 99.7054,-0.3101 99.6968,-0.298 99.6407,-0.165 99.6371,-0.1516 99.6412,-0.132 99.6538,-0.1032 99.6567,-0.0889 99.6538,-0.0742 99.6483,-0.0591 99.6432,-0.0502 99.6321,-0.0342 99.5482,0.0532 99.5243,0.0769 99.4968,0.0974 99.4792,0.1071 99.2395,0.2304 99.2299,0.2344 99.2054,0.2371 99.193,0.2358 99.1818,0.233 99.1675,0.2269 99.1523,0.2183 99.1388,0.2144 99.126,0.2136 99.1086,0.2174 99.0573,0.2383 99.044,0.2455 99.0287,0.2578 99.0244,0.2684 99.047,0.3173 99.0018,0.345 99.012,0.373 99.0239,0.3917 99.0259,0.4123 99.0118,0.5077 98.9924,0.5841 98.9247,0.7751 98.9133,0.7914 98.8536,0.9364 98.7698,1.1814 98.728,1.3099 98.6778,1.4131 98.6148,1.5143 98.6103,1.5233 98.5933,1.5581 98.6037,1.567 98.6144,1.5664 98.6289,1.5572 98.6339,1.5457 98.6405,1.5382 98.6511,1.5334 98.6622,1.5429 98.7113,1.6201 98.7137,1.6445 98.7131,1.6678 98.6598,1.7467 98.636,1.7705 98.6158,1.7825 98.6011,1.7802 98.4444,1.9031 98.4274,1.9198 98.4121,1.9323 98.3959,1.943 98.3458,1.9753 98.3286,1.9856 98.1306,2.0849 98.034,2.1546 98.0281,2.1603 97.9994,2.1793 97.9777,2.1914 97.937,2.2127 97.8386,2.2648 97.827,2.2669 97.8154,2.2648 97.806,2.2608 97.7891,2.2495 97.7802,2.2447 97.7616,2.2377 97.6525,2.2633 97.6403,2.2682 97.5495,2.3934 97.5448,2.4022 97.542,2.4132 97.5409,2.4253 97.5384,2.4781 97.5392,2.4944 97.5406,2.5102 97.5407,2.5948 97.5405,2.6226 97.5393,2.6347 97.5276,2.7186 97.5205,2.7607 97.5152,2.7824 97.5007,2.8299 97.492,2.855 97.4869,2.864 97.4755,2.8762 97.4641,2.8778 97.4455,2.8742 97.4291,2.8766 97.3385,2.9122 97.3107,2.9254 97.2721,2.9619 97.251,2.989 97.2273,3.0207 97.2084,3.0496 97.201,3.0629 97.1926,3.082 97.1838,3.1137 97.1812,3.1249 97.1797,3.1373 97.1799,3.1577 97.1745,3.1766 97.147,3.2209 97.1372,3.2281 97.0995,3.2361 97.0707,3.2418 97.0588,3.251 96.9672,3.3972 96.9261,3.48 96.9179,3.4993 96.896,3.5324 96.7705,3.6734 96.7598,3.683 96.6867,3.7328 96.6784,3.7386 96.6134,3.7471 96.5733,3.7473 96.5255,3.7472 96.5016,3.744 96.4806,3.7378 96.4619,3.735 96.4492,3.7344 96.4306,3.7364 96.4095,3.7421 96.3797,3.7593 96.3503,3.7855 96.3187,3.8154 96.3048,3.829 96.2826,3.8546 96.2396,3.915 96.2229,3.9397 96.2125,3.9577 96.2057,3.9714 96.1894,3.9957 96.175,4.0156 96.159,4.0343 96.0852,4.1117 96.0764,4.1206 96.0658,4.127 96.0488,4.1337 96.0324,4.1342 95.9859,4.1673 95.9571,4.1932 95.9117,4.2096 95.9,4.2183 95.8327,4.2791 95.7949,4.3269 95.7192,4.4158 95.5552,4.5684 95.5357,4.5837 95.4797,4.6284 95.4221,4.6777 95.3141,4.8414 95.1749,5.1127 95.1899,5.1372 95.1948,5.1513 95.1912,5.1686 95.1236,5.2773 95.146,5.3869 95.1471,5.3998 95.1438,5.4102 95.1311,5.4467 95.1155,5.4735 95.125,5.5639 95.1746,5.5634 95.2319,5.6034 95.3002,5.6442 95.3106,5.6475 95.3235,5.6485 95.489,5.6231 95.5002,5.6205 95.6294,5.5792 95.7239,5.53 95.779,5.497 95.7855,5.4776 95.7836,5.4593 95.7876,5.4476 95.7999,5.4326 95.8233,5.408 95.8579,5.3747 95.9492,5.3015 95.9612,5.2937 95.9949,5.2791 96.0102,5.2735 96.2377,5.217 96.2921,5.2095 96.304,5.2086 96.4505,5.2015 96.4714,5.2016 96.5432,5.2122 96.5813,5.2221 96.6097,5.2349 96.6231,5.2418 96.6434,5.2511 96.6527,5.2553 96.6678,5.2607 96.6984,5.2713 96.7103,5.273 96.7305,5.2729 96.8704,5.2648 96.9351,5.2577 96.9881,5.239 97.0166,5.2269 97.0292,5.2186 97.0388,5.2075 97.0429,5.198 97.0474,5.1787 97.0573,5.1577 97.0693,5.1498 97.0796,5.1461 97.0926,5.1454 97.1117,5.1468 97.1291,5.1505 97.1497,5.157 97.271,5.1999 97.3195,5.2198 97.3376,5.2287 97.3761,5.245 97.3905,5.248 97.4035,5.2438 97.4378,5.2094 97.4543,5.1921 97.4705,5.1673 97.494,5.136 97.517,5.1048 97.5371,5.0836 97.5725,5.0496 97.6642,4.9835 97.7881,4.8955 97.8013,4.8811 97.8109,4.8666 97.8343,4.8218 97.8424,4.8023 97.8526,4.7785 97.8557,4.7648 97.8553,4.752 97.8533,4.7372 97.8618,4.6905 97.8646,4.6798 97.9058,4.5463 97.953,4.552 98.0089,4.5313 98.0458,4.5134 98.085,4.4839 98.165,4.4221 98.17,4.4058 98.1736,4.3447 98.1527,4.3074 98.1539,4.189 98.1592,4.1379 98.2721,4.08 98.2864,4.0738 98.3583,4.0432 98.4227,4.0046 98.4401,3.9946 98.5175,3.9217 98.5853,3.839 98.5921,3.8049 98.5986,3.7909 98.6792,3.7343 98.6997,3.7205 98.7221,3.7091 98.7755,3.6872 98.7963,3.6804 98.8185,3.6756 98.851,3.6669 98.9606,3.6248 99.0902,3.5501 99.0987,3.5446 99.1147,3.5328 99.1297,3.5205 99.1405,3.5108 99.4153,3.2644 99.4356,3.2437 99.4564,3.23 99.4657,3.2258 99.5064,3.2115 99.5447,3.2022 99.652,3.1412 99.7883,3.0046 99.8574,2.9508 99.8683,2.9406 99.876,2.9213 99.8814,2.8271 99.8821,2.8068 99.8816,2.794 99.8783,2.7798 99.8702,2.7659 99.8624,2.7517 99.844,2.7017 99.8428,2.6874 99.8927,2.5983 99.9073,2.6023 99.9107,2.6259 99.8968,2.6766 99.8872,2.6842 99.8676,2.692 99.864,2.7059 99.8755,2.7158 99.8849,2.72 99.9096,2.7299 99.9211,2.7317 99.9373,2.7273 99.9549,2.7107 99.9623,2.6977 99.9645,2.686 99.9637,2.6319 99.9652,2.6195 99.9693,2.6034 99.9759,2.5828 99.9842,2.5638 100.0085,2.5227 100.0205,2.5243 100.0212,2.5431 100.0171,2.5526 100.0139,2.5627 100.0005,2.6112 100.0,2.6243 100.0013,2.6369 100.0054,2.6534 100.011,2.6683 100.0227,2.6839 100.0377,2.6964 100.0565,2.7043 100.0787,2.7066 100.0923,2.7031 100.134,2.6506 100.1718,2.5769 100.2029,2.5463 100.2108,2.5274 100.2438,2.4302 100.2548,2.383 100.2601,2.3681 100.2726,2.3392 100.2828,2.3151 100.2931,2.2984 100.2994,2.2904 100.3159,2.2729 100.3534,2.2346 100.3706,2.2175 100.439,2.163 100.4586,2.1486 100.4918,2.1268 100.5007,2.122 100.5107,2.1182 100.5257,2.1177 100.5457,2.1252 100.5579,2.1261 100.5788,2.115 100.5868,2.1093 100.7112,2.0251 100.7372,1.9932 100.7467,1.9813 100.7613,1.9553 100.7705,1.937 100.775,1.9213 100.7778,1.9037 100.7784,1.8903 100.7805,1.8789 100.7909,1.8549 100.8052,1.8348 100.8138,1.8267 100.8293,1.8188 100.8369,1.8658 100.8334,1.8797 100.7813,2.0194 100.7721,2.0377 100.7601,2.0527 100.7511,2.061 100.7079,2.1033 100.7003,2.1162 100.6888,2.1457 100.6845,2.162 100.6825,2.1738 100.6822,2.1901 100.6839,2.2121 100.6867,2.2231 100.6946,2.2422 100.7122,2.2661 100.728,2.2778 100.7473,2.2854 100.7701,2.2902 100.8189,2.296 100.9443,2.2811 100.9424,2.2671 100.9373,2.2518 100.942,2.2361 100.9503,2.2169 100.9574,2.2069 101.0811,2.1211 101.1409,2.0843 101.1568,2.0726 101.1881,2.0425 101.1996,2.0267 101.2043,2.0179 101.2097,2.003 101.2148,1.9797 101.2158,1.9602 101.213,1.9392 101.2117,1.9178 101.2161,1.9016 101.2192,1.8914 101.25,1.7989 101.2577,1.7789 101.27,1.7502 101.2865,1.7258 101.297,1.7154 101.3161,1.7004 101.3302,1.6942 101.4219,1.6557 101.4318,1.6517 101.4617,1.6475 101.4746,1.6481 101.4914,1.6525 101.5016,1.6556 101.517,1.6611 101.5495,1.67 101.5741,1.6729 101.5941,1.6724 101.6102,1.6681 101.6441,1.6538 101.6527,1.6489 101.6691,1.6381 101.762,1.5535 101.8692,1.4609 101.9044,1.434 101.9211,1.4234 101.9382,1.4129 101.9705,1.3972 102.0117,1.3803 102.0212,1.372 102.084,1.1942 102.0835,1.1586 102.0771,1.1236 102.0729,1.1073 102.0729,1.0934 102.0745,1.0812 102.0799,1.0593 102.087,1.0386 102.0962,1.0138 102.1068,0.9966 102.1212,0.9772 102.3112,0.7966 102.3508,0.7677 102.3772,0.7531 102.3955,0.7443 102.4054,0.7402 102.4306,0.7311 102.4477,0.7279 102.4609,0.7275 102.4906,0.7311 102.5069,0.7353 102.5994,0.74 102.7503,0.7308 102.7667,0.7265 102.79,0.7158 102.8023,0.7075 102.8174,0.6942 102.8434,0.6658 102.8527,0.6547 102.8527,0.6547 16,8.0,Malaysia 100.1939,5.44 100.206,5.4216 100.2104,5.3751 100.2033,5.3294 100.1725,5.2488 100.0897,5.2652 100.0819,5.2877 100.0656,5.4214 100.0717,5.4564 100.1333,5.4607 100.1467,5.4608 100.1584,5.4588 100.1799,5.4519 100.1909,5.4458 100.1939,5.44 100.1939,5.44 1001,2.0,Zaire 19.7018,-6.3065 19.7088,-6.3982 19.7366,-6.5724 19.8202,-6.7001 19.927,-6.8255 19.9502,-6.8858 19.9661,-6.9874 20.2886,-6.9867 20.2951,-6.9634 20.2945,-6.9431 20.3087,-6.9069 20.6065,-6.9058 20.5929,-6.9648 20.5647,-7.0229 20.5232,-7.1072 20.5105,-7.1722 20.5079,-7.2413 20.5256,-7.2754 21.1842,-7.2745 21.5788,-7.2738 21.7532,-7.273 21.7881,-7.3037 21.8156,-7.3594 21.835,-7.4683 21.8268,-7.583 21.8084,-7.627 21.8017,-7.6365 21.7926,-7.6455 21.7493,-7.7647 21.739,-7.8264 21.7248,-7.9265 21.7308,-7.9947 21.7489,-8.0143 21.7796,-8.0444 21.8118,-8.1222 21.8344,-8.1908 21.8546,-8.2741 21.885,-8.3225 21.8793,-8.334 21.8896,-8.3805 21.9123,-8.4113 21.9155,-8.4866 21.9107,-8.5366 21.9003,-8.5743 21.8662,-8.7223 21.8517,-8.7912 21.8286,-8.9237 21.8113,-9.0607 21.8172,-9.1438 21.8014,-9.2917 21.7832,-9.3356 21.7674,-9.4005 21.8264,-9.6093 21.8357,-9.6315 21.8509,-9.654 21.9993,-9.8386 22.0371,-9.8714 22.1078,-9.8905 22.1342,-9.913 22.1513,-9.9511 22.1766,-10.0718 22.183,-10.1428 22.2041,-10.1905 22.2444,-10.266 22.2895,-10.363 22.2799,-10.4109 22.248,-10.5009 22.2788,-10.5711 22.2838,-10.6007 22.2818,-10.6633 22.2906,-10.7152 22.2277,-10.7777 22.1845,-10.7968 22.166,-10.8135 22.1423,-10.8477 22.17,-10.9549 22.1933,-11.0063 22.2196,-11.0557 22.2344,-11.1711 22.2295,-11.1968 22.2744,-11.2245 22.456,-11.1181 22.4753,-11.081 22.4799,-11.052 22.4939,-11.0318 22.5428,-11.0209 22.5733,-11.0287 22.5986,-11.0486 22.622,-11.0601 22.6414,-11.0686 22.6918,-11.0809 22.7499,-11.0787 22.782,-11.0622 22.811,-11.0432 22.8318,-11.0367 22.8816,-11.0523 22.916,-11.0805 22.9916,-11.0834 23.0626,-11.0839 23.1916,-11.0641 23.2166,-11.0491 23.2682,-11.0146 23.3423,-10.9702 23.3717,-10.9577 23.3961,-10.9509 23.4304,-10.9466 23.4507,-10.9457 23.4711,-10.9466 23.4942,-10.9496 23.5171,-10.9544 23.5599,-10.9675 23.5843,-10.9776 23.6392,-10.9984 23.8324,-11.0147 23.8598,-11.0023 23.9278,-10.9215 23.9599,-10.858 23.9683,-10.8569 24.0322,-10.8663 24.066,-10.8814 24.1056,-10.9042 24.1157,-10.967 24.1592,-11.017 24.2917,-11.0387 24.35,-11.076 24.3718,-11.0993 24.3896,-11.2037 24.3831,-11.2673 24.3391,-11.3368 24.3484,-11.3919 24.4222,-11.4497 24.4993,-11.4485 24.5569,-11.4247 24.5759,-11.3918 24.6655,-11.3271 24.7127,-11.3044 24.9528,-11.2522 25.0018,-11.249 25.0389,-11.2483 25.0994,-11.2494 25.1615,-11.2396 25.2275,-11.2144 25.2565,-11.1947 25.2924,-11.1819 25.3166,-11.1925 25.3171,-11.2654 25.2948,-11.3144 25.2638,-11.3529 25.2882,-11.5031 25.2982,-11.5412 25.3356,-11.6297 25.4703,-11.6967 25.6637,-11.7542 25.814,-11.7887 25.9547,-11.8821 25.976,-11.8888 26.015,-11.8916 26.0432,-11.8913 26.1691,-11.8888 26.4073,-11.8969 26.4284,-11.902 26.4481,-11.9137 26.5693,-11.9577 26.6485,-11.9754 26.7212,-11.9708 26.8443,-11.958 26.8724,-11.9474 26.9299,-11.9012 26.9461,-11.8823 26.9549,-11.8637 26.9647,-11.8223 26.9668,-11.7462 27.0032,-11.5837 27.179,-11.5633 27.189,-11.5917 27.1984,-11.6691 27.199,-11.7036 27.1983,-11.7302 27.2011,-11.7623 27.2145,-11.7839 27.2337,-11.7998 27.3225,-11.858 27.3444,-11.8706 27.3886,-11.896 27.4236,-11.9234 27.4502,-11.9578 27.4562,-11.9867 27.4565,-12.007 27.4635,-12.0453 27.4998,-12.1475 27.505,-12.1597 27.5109,-12.168 27.5377,-12.1997 27.5561,-12.2127 27.5694,-12.2193 27.5926,-12.2314 27.6098,-12.2486 27.6247,-12.2764 27.6462,-12.2884 27.7665,-12.2837 27.791,-12.2695 27.8072,-12.246 27.8293,-12.2409 27.8545,-12.2507 27.8835,-12.2637 27.9047,-12.2769 27.9326,-12.2978 28.0177,-12.3537 28.132,-12.4152 28.1981,-12.4103 28.2878,-12.4191 28.315,-12.4261 28.4144,-12.5116 28.4986,-12.6426 28.4984,-12.6749 28.4837,-12.6927 28.4632,-12.7138 28.4658,-12.7406 28.5407,-12.8772 28.5652,-12.8774 28.5851,-12.8492 28.605,-12.8254 28.6414,-12.826 28.7106,-12.894 28.7924,-13.0117 28.8875,-13.1394 28.9178,-13.2358 28.9217,-13.2598 28.9252,-13.3161 28.9377,-13.3449 28.9858,-13.3833 29.0074,-13.3815 29.0329,-13.3722 29.065,-13.3738 29.1642,-13.4187 29.2751,-13.3577 29.4309,-13.2882 29.4521,-13.2746 29.4852,-13.2453 29.5118,-13.2196 29.5369,-13.2078 29.561,-13.2086 29.6497,-13.2518 29.6481,-13.2852 29.6175,-13.3013 29.5874,-13.367 29.6002,-13.4004 29.6208,-13.4194 29.6927,-13.4428 29.7676,-13.4344 29.7683,-13.4027 29.7695,-13.1565 29.7708,-12.7665 29.7721,-12.5269 29.7724,-12.4582 29.7735,-12.2117 29.7733,-12.1499 29.772,-12.1416 29.737,-12.1402 29.5359,-12.1769 29.4406,-12.2352 29.414,-12.3248 29.4565,-12.3793 29.4909,-12.3814 29.4945,-12.4112 29.4841,-12.4284 29.4489,-12.4454 29.4377,-12.4432 29.3672,-12.4198 29.2285,-12.3513 29.1442,-12.3548 29.1164,-12.3622 29.0714,-12.377 29.0246,-12.3733 28.9946,-12.363 28.9926,-12.3417 28.9685,-12.2913 28.9034,-12.1866 28.8874,-12.1676 28.8036,-12.0834 28.6658,-11.9746 28.6452,-11.9675 28.6004,-11.9429 28.4687,-11.8572 28.417,-11.7631 28.4136,-11.7109 28.3944,-11.6493 28.3757,-11.6055 28.3639,-11.5818 28.348,-11.5636 28.3343,-11.5425 28.326,-11.5113 28.3269,-11.4626 28.3356,-11.4213 28.3794,-11.3567 28.4337,-11.2319 28.4399,-11.2101 28.4544,-11.1499 28.4989,-10.9434 28.5178,-10.8433 28.5225,-10.8203 28.545,-10.7781 28.594,-10.7028 28.6299,-10.6985 28.6674,-10.6399 28.6319,-10.5448 28.6022,-10.5072 28.5637,-10.2345 28.5918,-10.1361 28.591,-9.9751 28.5947,-9.9366 28.6,-9.9146 28.6295,-9.8412 28.664,-9.7845 28.6384,-9.7375 28.5064,-9.4602 28.4876,-9.3484 28.456,-9.3264 28.3974,-9.3122 28.3591,-9.292 28.3409,-9.2685 28.346,-9.2399 28.3665,-9.2168 28.3843,-9.2073 28.4116,-9.1951 28.4423,-9.181 28.4853,-9.1578 28.5723,-9.0981 28.5909,-9.0835 28.6734,-9.0066 28.6967,-8.9817 28.7732,-8.8928 28.8117,-8.8473 28.8364,-8.817 28.8939,-8.7318 28.9206,-8.6768 28.9298,-8.6549 28.9283,-8.6258 28.9214,-8.5872 28.8984,-8.5195 28.8696,-8.4691 28.8904,-8.4651 28.9596,-8.4544 29.1682,-8.4236 29.2028,-8.418 29.3622,-8.3938 29.5355,-8.3671 29.5422,-8.364 29.5565,-8.364 29.8894,-8.3127 30.0489,-8.2881 30.2223,-8.2611 30.4028,-8.2325 30.4721,-8.2215 30.7008,-8.1861 30.7288,-8.1823 30.7368,-8.1827 30.725,-8.1355 30.6728,-7.986 30.6628,-7.9612 30.6344,-7.906 30.6163,-7.8715 30.5832,-7.8249 30.5433,-7.7691 30.4864,-7.6876 30.4755,-7.6706 30.4372,-7.6048 30.4217,-7.5714 30.4146,-7.5512 30.4057,-7.5212 30.3977,-7.4766 30.3954,-7.4474 30.3918,-7.4193 30.3867,-7.3969 30.3752,-7.3559 30.3451,-7.2715 30.3201,-7.2121 30.3039,-7.1791 30.281,-7.1355 30.2125,-7.0357 30.1926,-7.0068 30.1542,-6.9545 30.1381,-6.936 30.1078,-6.9112 30.0364,-6.8435 30.0308,-6.8378 30.0034,-6.8149 29.9687,-6.7943 29.9501,-6.785 29.916,-6.7713 29.8808,-6.7582 29.8515,-6.7431 29.7278,-6.6463 29.7056,-6.6268 29.6869,-6.6041 29.6703,-6.5788 29.5797,-6.3924 29.5338,-6.3238 29.5168,-6.2879 29.5074,-6.2558 29.4649,-6.0494 29.4615,-6.0021 29.4643,-5.9727 29.4711,-5.9391 29.4827,-5.9163 29.5047,-5.8833 29.5366,-5.845 29.5584,-5.8219 29.5753,-5.8005 29.5964,-5.7481 29.5978,-5.7152 29.5926,-5.6791 29.5637,-5.5728 29.5393,-5.514 29.5286,-5.49 29.5102,-5.4602 29.501,-5.4416 29.4937,-5.4212 29.4802,-5.3795 29.4536,-5.2876 29.4424,-5.2308 29.4209,-5.1706 29.3963,-5.1415 29.3805,-5.1195 29.3699,-5.0956 29.3462,-5.0354 29.3319,-4.9943 29.3297,-4.9895 29.318,-4.9458 29.3144,-4.9247 29.3087,-4.8782 29.3074,-4.8448 29.3081,-4.7923 29.3144,-4.7579 29.3253,-4.7242 29.3384,-4.6964 29.3642,-4.6326 29.3778,-4.598 29.3868,-4.573 29.3965,-4.5398 29.397,-4.496 29.3934,-4.4507 29.39,-4.4424 29.3741,-4.364 29.3643,-4.2907 29.3613,-4.2238 29.3597,-4.1904 29.3558,-4.1632 29.3449,-4.1289 29.3132,-4.05 29.303,-4.0325 29.2797,-4.0005 29.261,-3.9777 29.2418,-3.9556 29.2254,-3.9413 29.2057,-3.9164 29.1996,-3.8806 29.1906,-3.7851 29.197,-3.7465 29.1995,-3.7389 29.2033,-3.7155 29.2073,-3.6884 29.214,-3.5903 29.2091,-3.4921 29.2044,-3.4552 29.1991,-3.4187 29.1923,-3.3838 29.1807,-3.3295 29.1755,-3.3076 29.1815,-3.2864 29.204,-3.2681 29.1848,-3.2463 29.18,-3.15 29.2078,-3.114 29.2043,-3.0566 29.1827,-3.018 29.1522,-3.0178 29.1157,-2.9926 28.9582,-2.8111 28.9524,-2.781 28.9675,-2.7534 28.992,-2.7414 28.9847,-2.7206 28.9434,-2.6911 28.9103,-2.688 28.8911,-2.6768 28.8696,-2.657 28.8221,-2.5229 28.835,-2.3959 28.861,-2.3636 28.9525,-2.3315 29.0651,-2.2659 29.0857,-2.2386 29.0977,-2.2102 29.1113,-2.1867 29.1237,-2.1581 29.1338,-2.1305 29.1379,-2.0907 29.1349,-2.0661 29.1155,-2.0118 29.1027,-1.9741 29.0955,-1.9465 29.0917,-1.9138 29.0973,-1.8486 29.1107,-1.813 29.2185,-1.6528 29.2381,-1.6245 29.3292,-1.5092 29.4098,-1.5021 29.4234,-1.5023 29.437,-1.4805 29.4622,-1.4477 29.5053,-1.4118 29.5403,-1.3916 29.5639,-1.3839 29.5732,-1.3191 29.5658,-1.2129 29.5414,-1.1859 29.542,-0.915 29.5512,-0.8946 29.5858,-0.8905 29.6001,-0.7867 29.5861,-0.7425 29.6017,-0.6404 29.6335,-0.5798 29.6195,-0.4758 29.6157,-0.4392 29.6377,-0.304 29.6547,-0.2023 29.6758,-0.0743 29.7,-0.0030 29.6849,0.0429 29.6855,0.077 29.6988,0.1046 29.7472,0.1732 29.7735,0.1628 29.806,0.2773 29.825,0.3663 29.8792,0.4287 29.9265,0.4832 29.9222,0.5511 29.9053,0.6238 29.914,0.7871 29.9242,0.8176 29.9337,0.8352 29.9531,0.8459 29.9575,0.8499 29.9825,0.8659 30.0025,0.8738 30.0529,0.8924 30.0975,0.8945 30.1218,0.9083 30.1837,0.9934 30.1857,1.0427 30.1798,1.0641 30.2004,1.1297 30.2406,1.1658 30.3367,1.1972 30.4037,1.2008 30.422,1.2116 30.45,1.24 30.5149,1.3202 30.6369,1.4718 30.6612,1.4986 30.8137,1.6173 31.002,1.7636 31.1747,1.9852 31.2679,2.1191 31.2642,2.1605 31.1675,2.2266 31.0344,2.3227 30.9681,2.3945 30.95,2.4066 30.9291,2.4093 30.9051,2.3978 30.8922,2.3581 30.8802,2.3399 30.8517,2.3341 30.6953,2.4453 30.6966,2.4708 30.7216,2.5981 30.7524,2.672 30.7824,2.7363 30.817,2.7824 30.8417,2.837 30.8448,2.8829 30.8176,2.9597 30.7714,3.0102 30.7377,3.0255 30.729,3.0484 30.7475,3.1264 30.7933,3.2369 30.825,3.2867 30.8479,3.3209 30.8995,3.4102 30.8901,3.5071 30.8713,3.5208 30.824,3.4897 30.8123,3.5245 30.7517,3.656 30.7004,3.6338 30.5965,3.607 30.5573,3.6009 30.5274,3.6093 30.5406,3.6378 30.5469,3.6648 30.547,3.6962 30.5165,3.8597 30.4929,3.8687 30.4601,3.8609 30.4005,3.8816 30.3272,3.9209 30.3017,3.9358 30.2411,3.9548 30.209,3.9511 30.1736,3.9574 30.1327,4.0354 30.1141,4.0952 30.0853,4.1122 30.0455,4.1177 30.0277,4.1267 29.954,4.2291 29.9256,4.2865 29.8049,4.3421 29.7652,4.3704 29.7588,4.4283 29.7661,4.4641 29.7727,4.4911 29.7795,4.554 29.665,4.6125 29.6098,4.6386 29.5812,4.651 29.4607,4.6785 29.4341,4.6587 29.4329,4.6295 29.4308,4.587 29.3995,4.5207 29.2918,4.385 29.2103,4.3415 29.1772,4.3373 29.1264,4.3814 29.0985,4.4072 28.9785,4.4922 28.9445,4.4788 28.8575,4.473 28.7949,4.4778 28.7702,4.4923 28.771,4.514 28.7497,4.5525 28.6798,4.5326 28.6609,4.5059 28.6553,4.4797 28.6404,4.4511 28.62,4.4206 28.601,4.4118 28.5523,4.397 28.4734,4.3682 28.4562,4.3451 28.4451,4.3259 28.3311,4.2853 28.1693,4.3431 28.0524,4.4278 27.9964,4.4973 27.8982,4.5461 27.8338,4.5521 27.7579,4.5952 27.7401,4.6608 27.7461,4.6923 27.7514,4.7524 27.7374,4.7825 27.6288,4.8909 27.4931,4.9381 27.4242,5.0109 27.3934,5.0641 27.3712,5.0788 27.2821,5.118 27.1113,5.1894 27.0595,5.1978 27.036,5.1953 26.9967,5.1801 26.978,5.1722 26.9108,5.1378 26.8777,5.0974 26.8542,5.0607 26.8388,5.0253 26.7627,5.0524 26.7281,5.0821 26.6852,5.087 26.65,5.0824 26.5907,5.063 26.4908,5.0364 26.4644,5.0401 26.4324,5.0537 26.4159,5.0827 26.364,5.1273 26.1678,5.227 26.0976,5.2432 26.0789,5.2285 26.0597,5.2008 26.0359,5.1916 25.9983,5.1848 25.882,5.1731 25.8622,5.1868 25.786,5.2305 25.6861,5.2774 25.6062,5.2996 25.5555,5.3589 25.511,5.3749 25.3332,5.3088 25.3102,5.2576 25.2836,5.1905 25.2818,5.1697 25.2999,5.1474 25.3198,5.137 25.3147,5.106 25.2875,5.0361 25.2613,5.0195 25.1991,5.0015 25.1532,4.9904 25.0611,4.9682 24.9673,4.9771 24.9457,4.9819 24.9226,4.9803 24.7902,4.9334 24.7496,4.9098 24.7064,4.9053 24.6149,4.9677 24.5771,5.0164 24.4978,5.0716 24.4483,5.0928 24.4316,5.0999 24.3594,5.1067 24.3295,5.0516 24.37,5.0297 24.3397,5.0032 24.2121,4.9536 24.1642,4.9367 24.0357,4.8964 23.8616,4.8186 23.7996,4.814 23.5528,4.7273 23.4132,4.6453 23.4028,4.6268 23.3979,4.5889 23.3558,4.5831 23.2994,4.5951 23.1857,4.6767 23.0726,4.7023 22.9905,4.7443 22.9712,4.7876 22.9445,4.8258 22.8672,4.815 22.7545,4.7072 22.7287,4.6487 22.7001,4.5677 22.658,4.4751 22.6354,4.4777 22.6029,4.4821 22.5736,4.4695 22.5625,4.4483 22.5618,4.407 22.5446,4.327 22.5129,4.2146 22.4717,4.1742 22.4486,4.1561 22.4607,4.1486 22.5016,4.1159 22.5547,4.1057 22.6896,3.9912 22.7632,3.9933 22.7652,3.9033 22.894,3.8522 22.9941,3.8788 23.0411,3.8604 23.1433,3.8952 23.2108,3.8727 23.3702,3.8073 23.4029,3.8339 23.4806,3.8155 23.5173,3.8236 23.4806,3.7255 23.4335,3.6969 23.3947,3.6356 23.3436,3.609 23.3048,3.6397 23.2333,3.6356 23.1699,3.6806 23.0411,3.5477 22.9819,3.5334 22.9226,3.5477 22.8613,3.5048 22.6692,3.4517 22.6222,3.3781 22.6365,3.325 22.7141,3.3004 22.7816,3.2779 22.8061,3.2268 22.7795,3.1144 22.7856,3.0347 22.8285,2.9857 22.9062,3.0613 22.9757,3.143 23.0329,3.1696 23.084,3.1512 23.0656,3.049 23.0268,2.9754 23.0247,2.91 22.9777,2.8467 23.0064,2.767 22.9573,2.6668 23.0513,2.5381 23.129,2.4992 23.3027,2.534 23.3477,2.5319 23.3844,2.5013 23.411,2.4624 23.6317,2.3337 23.6542,2.1947 23.6297,2.1783 23.5765,2.1926 23.5275,2.2192 23.3456,2.2539 23.1085,2.0945 23.0615,2.1027 22.9797,2.1906 22.9695,2.1558 22.9327,2.1436 22.9409,2.1252 22.9143,2.0945 22.8837,2.0986 22.8837,2.0679 22.8305,2.0312 22.7467,2.0107 22.7304,2.0291 22.6936,2.0352 22.6589,2.1047 22.5894,2.1272 22.569,2.1027 22.5894,2.0495 22.5097,1.9044 22.4954,1.8145 22.4831,1.7082 22.4279,1.6367 22.3257,1.5733 22.2889,1.5018 22.3891,1.4977 22.4872,1.465 22.5832,1.3934 22.6527,1.3178 22.6772,1.232 22.7304,1.1727 22.7549,1.091 22.7753,1.0501 22.8203,0.9888 22.8182,0.8907 22.855,0.8069 22.855,0.6823 22.9327,0.5862 22.947,0.4799 22.9981,0.3737 23.0819,0.2817 23.1166,0.1917 23.2699,0.0078 23.2842,-0.031 23.4089,-0.2047 23.4027,-0.2599 23.3291,-0.2804 23.2923,-0.3192 23.1452,-0.2783 22.9735,-0.405 23.229,-0.4316 23.2535,-0.497 23.464,-0.4316 23.556,-0.5747 23.6316,-0.6339 23.5866,-0.6728 23.4947,-0.6952 23.3557,-0.8056 23.5355,-0.9834 23.7522,-1.104 23.7685,-1.1796 23.8278,-1.1939 23.9197,-1.2838 24.0546,-1.3656 24.1343,-1.3901 24.2999,-1.386 24.3346,-1.4739 24.3775,-1.5332 24.4205,-1.7498 24.4235,-1.784 24.2782,-1.7769 24.0373,-1.7344 24.0018,-1.7769 23.8388,-1.7627 23.7786,-1.8017 23.7786,-1.9187 23.69,-1.9435 23.6935,-2.0179 23.5801,-2.0037 23.2824,-2.0462 23.2222,-2.0817 23.1371,-1.9612 23.0379,-1.9222 22.9351,-1.9576 22.8288,-1.862 22.7721,-1.862 22.6765,-1.7982 22.6339,-1.8053 22.5241,-1.9541 22.4178,-1.9506 22.3114,-1.9364 22.1874,-1.9045 22.1662,-1.9364 22.2158,-2.071 22.2299,-2.1809 22.2866,-2.3439 22.3008,-2.4254 22.2477,-2.4679 22.1839,-2.4361 22.2016,-2.3404 22.1839,-2.2943 22.1378,-2.273 22.0598,-2.3723 21.9571,-2.4077 21.9004,-2.4963 21.831,-2.5253 21.7591,-2.4835 21.6801,-2.451 21.643,-2.4185 21.6035,-2.4138 21.5524,-2.3627 21.4665,-2.3372 21.4526,-2.4719 21.362,-2.4835 21.2134,-2.5137 21.0788,-2.4997 21.0045,-2.4904 20.9534,-2.5903 20.965,-2.6646 20.9325,-2.7273 20.8675,-2.7876 20.7746,-2.985 20.6585,-3.3078 20.6469,-3.3681 20.6446,-3.4982 20.6446,-3.5585 20.6654,-3.7118 20.6608,-3.8557 20.6724,-3.9695 20.6701,-4.0043 20.6794,-4.0902 20.6724,-4.1576 20.6399,-4.1552 20.626,-4.1947 20.5006,-4.2574 20.4541,-4.2528 20.4402,-4.2829 20.41,-4.2736 20.3682,-4.2992 20.345,-4.399 20.3078,-4.3827 20.2707,-4.3944 20.2451,-4.3804 20.2196,-4.3293 20.1778,-4.334 20.1267,-4.2713 20.0408,-4.2783 20.0408,-4.3642 20.0919,-4.4338 20.0896,-4.4733 20.1151,-4.4988 20.1058,-4.5337 20.0803,-4.5499 20.0594,-4.6103 20.071,-4.666 20.0547,-4.6846 20.0547,-4.745 20.0803,-4.7984 20.1012,-4.9261 20.1499,-5.0027 20.136,-5.0282 20.1731,-5.0677 20.1964,-5.1652 20.1917,-5.2372 20.2033,-5.2744 20.1755,-5.2836 20.1755,-5.3115 20.1453,-5.3556 20.1476,-5.5576 20.1801,-5.6273 20.1732,-5.6947 20.1592,-5.769 20.1151,-5.8015 20.1058,-5.8479 20.0524,-5.8618 20.0106,-5.9454 19.9595,-5.9919 19.9224,-5.9895 19.7018,-6.1474 19.6925,-6.1846 19.7018,-6.3065 39,8.0,Philippines 119.7217,5.0438 119.7049,5.0468 119.6955,5.0514 119.6795,5.1261 119.6883,5.1416 119.7052,5.15 119.7238,5.1492 119.7399,5.1468 119.8922,5.2304 119.9168,5.2499 119.9412,5.2707 119.9913,5.3054 120.0385,5.3368 120.0743,5.3406 120.0829,5.3194 120.0805,5.2993 120.0947,5.2871 120.1166,5.2764 120.1196,5.255 120.1165,5.2277 120.0883,5.1209 120.06,5.1248 120.0426,5.1287 120.0325,5.1385 119.9757,5.167 119.914,5.1776 119.9004,5.1739 119.8707,5.1541 119.8629,5.1395 119.8582,5.1191 119.8563,5.1079 119.8518,5.0976 119.844,5.084 119.8283,5.0743 119.8176,5.0857 119.8054,5.0862 119.778,5.0662 119.7217,5.0438 119.7217,5.0438 5,-3.0,Brazil -66.8194,-9.8386 -66.5823,-9.9328 -66.5823,-9.9328 -66.8272,-9.8355 -66.8194,-9.8386 32,-3.0,Brazil -51.0719,-1.8223 -51.0792,-1.8222 -51.0864,-1.8221 -51.0911,-1.8492 -51.0862,-1.8615 -51.0551,-1.9052 -51.0956,-1.8693 -51.1028,-1.8404 -51.1308,-1.822 -51.2505,-1.7647 -51.3166,-1.8659 -51.4149,-2.0366 -51.4229,-2.0699 -51.3951,-2.2432 -51.3729,-2.2702 -51.3515,-2.2865 -51.3306,-2.3165 -51.3891,-2.2766 -51.42,-2.2356 -51.4639,-2.0438 -51.4599,-2.0221 -51.4489,-1.97 -51.4387,-1.9322 -51.4249,-1.8914 -51.3612,-1.779 -51.2787,-1.6453 -51.2461,-1.6588 -51.2226,-1.6797 -51.223,-1.7076 -51.2062,-1.7514 -51.0703,-1.8223 -51.0719,-1.8223 2203,-3.0,Brazil -57.5118,-30.159 -57.5017,-30.1629 -57.4896,-30.1812 -57.4915,-30.2133 -57.4726,-30.2325 -57.4499,-30.2406 -57.4207,-30.2459 -57.2818,-30.2382 -57.2476,-30.2324 -57.2291,-30.2413 -57.2107,-30.2594 -57.1594,-30.2592 -57.1395,-30.2578 -57.1193,-30.2487 -57.0736,-30.2043 -57.0729,-30.1742 -57.07,-30.1512 -57.0295,-30.1015 -56.9967,-30.0748 -56.8596,-30.0636 -56.7865,-30.0627 -56.7376,-30.0712 -56.7163,-30.0818 -56.5653,-30.1945 -56.4943,-30.2649 -56.4745,-30.2888 -56.4535,-30.3118 -56.4377,-30.3246 -56.314,-30.4258 -56.242,-30.4739 -56.1935,-30.5016 -56.1627,-30.5241 -56.0433,-30.6411 -55.9289,-30.761 -55.9169,-30.778 -55.9039,-30.8163 -55.912,-30.8561 -55.9292,-30.8872 -55.9336,-30.9287 -55.9393,-31.0314 -55.9358,-31.0447 -55.9136,-31.0467 -55.8376,-31.0474 -55.8176,-31.0452 -55.7653,-31.0378 -55.6868,-30.982 -55.5993,-30.9144 -55.5679,-30.8359 -55.5567,-30.8155 -55.5119,-30.8114 -55.4488,-30.8542 -55.3494,-30.9281 -55.2786,-31.0108 -55.2583,-31.0435 -55.1753,-31.1962 -55.1567,-31.2145 -55.0176,-31.2904 -54.9912,-31.2902 -54.9054,-31.2838 -54.871,-31.3156 -54.8422,-31.3392 -54.7945,-31.3744 -54.7626,-31.3914 -54.7356,-31.4002 -54.6915,-31.4058 -54.657,-31.4034 -54.6337,-31.4048 -54.523,-31.4254 -54.4014,-31.5442 -54.3923,-31.637 -54.3708,-31.6458 -54.3439,-31.6581 -54.3125,-31.6801 -54.2803,-31.7144 -54.2149,-31.7687 -54.0938,-31.8513 -54.0252,-31.8483 -54.0009,-31.8397 -53.8483,-31.9063 -53.8052,-31.9386 -53.6728,-32.0606 -53.5946,-32.1706 -53.5671,-32.2351 -53.5738,-32.2692 -53.5609,-32.3214 -53.4976,-32.3948 -53.4834,-32.4096 -53.4673,-32.4244 -53.4514,-32.4377 -53.3345,-32.5313 -53.3087,-32.5375 -53.2801,-32.5426 -53.1907,-32.5643 -53.1222,-32.5973 -53.0897,-32.6243 -53.0289,-32.6868 -53.1016,-32.7652 -53.1761,-32.8254 -53.2293,-32.9095 -53.3659,-33.003 -53.3927,-33.0218 -53.4108,-33.0376 -53.4304,-33.0627 -53.446,-33.092 -53.4511,-33.1045 -53.4549,-33.1199 -53.4604,-33.1621 -53.4587,-33.1838 -53.4526,-33.2219 -53.4459,-33.253 -53.4394,-33.2837 -53.4315,-33.3704 -53.4316,-33.3906 -53.4351,-33.4228 -53.4387,-33.4485 -53.4443,-33.4869 -53.4532,-33.5362 -53.4592,-33.5731 -53.4649,-33.6191 -53.4518,-33.6438 -53.328,-33.7031 -53.3047,-33.7028 -53.2412,-33.6687 -53.1995,-33.6412 -53.1659,-33.6176 -53.1469,-33.6027 -53.0779,-33.5396 -52.8812,-33.3882 -52.8426,-33.3581 -52.6673,-33.2136 -52.5713,-33.0965 -52.5602,-33.0779 -52.4506,-32.8757 -52.4312,-32.8356 -52.387,-32.7246 -52.3789,-32.693 -52.3735,-32.6654 -52.358,-32.6153 -52.3076,-32.4635 -52.2006,-32.2757 -52.1869,-32.2524 -52.1593,-32.2182 -52.086,-32.1655 -52.0227,-32.1283 -52.033,-32.0788 -52.055,-32.0671 -52.1155,-32.0446 -52.1591,-32.052 -52.1866,-32.0192 -52.1707,-31.9372 -52.1105,-31.9068 -52.1257,-31.8512 -52.1565,-31.8051 -52.1497,-31.7092 -52.1287,-31.6907 -52.0909,-31.6755 -52.0564,-31.6644 -52.0187,-31.6526 -51.9991,-31.638 -51.9746,-31.5995 -51.9371,-31.5137 -51.9303,-31.3891 -51.9236,-31.3628 -51.8959,-31.3022 -51.8507,-31.2727 -51.5884,-31.1868 -51.5806,-31.1545 -51.5729,-31.1335 -51.5492,-31.0997 -51.5049,-31.0889 -51.4463,-31.0643 -51.4006,-31.026 -51.4148,-30.9974 -51.4176,-30.9431 -51.4176,-30.9233 -51.4115,-30.8932 -51.3952,-30.8619 -51.3207,-30.7122 -51.319,-30.6364 -51.3099,-30.6167 -51.2854,-30.6003 -51.2563,-30.6217 -51.2267,-30.6925 -51.2247,-30.7318 -51.2413,-30.7451 -51.2103,-30.7654 -51.201,-30.7463 -51.199,-30.7233 -51.2192,-30.6152 -51.2229,-30.5556 -51.2021,-30.4748 -51.1762,-30.4142 -51.1395,-30.3698 -51.2197,-30.2526 -51.2478,-30.1273 -51.2085,-29.9768 -51.1673,-30.015 -51.1749,-30.0469 -51.15,-30.1275 -51.103,-30.1974 -51.0646,-30.2241 -51.0431,-30.2145 -50.9979,-30.206 -50.9454,-30.2553 -50.9553,-30.286 -50.9516,-30.3504 -50.9001,-30.3748 -50.8659,-30.3719 -50.857,-30.3009 -50.8441,-30.2823 -50.7159,-30.2605 -50.6194,-30.2616 -50.5969,-30.2506 -50.5883,-30.2185 -50.5988,-30.1966 -50.582,-30.1584 -50.5616,-30.1523 -50.539,-30.1599 -50.4782,-30.228 -50.4718,-30.2524 -50.4716,-30.2724 -50.4774,-30.3163 -50.5023,-30.4231 -50.5293,-30.4467 -50.5531,-30.4451 -50.5856,-30.4005 -50.621,-30.4382 -50.6073,-30.5647 -50.6108,-30.597 -50.6281,-30.6866 -50.6376,-30.7168 -50.662,-30.7565 -50.6846,-30.7764 -50.7052,-30.7897 -50.8066,-30.8421 -50.8602,-30.8644 -50.8904,-30.8956 -50.923,-31.0099 -50.9043,-31.0873 -50.927,-31.1014 -50.9446,-31.0556 -50.9917,-31.0389 -51.0924,-31.0427 -51.1047,-31.1185 -51.0948,-31.1472 -51.0924,-31.1688 -51.0899,-31.2343 -51.1015,-31.2854 -51.1256,-31.3662 -51.1661,-31.4176 -51.1844,-31.4362 -51.2022,-31.4488 -51.252,-31.4822 -51.2816,-31.4905 -51.317,-31.4927 -51.346,-31.4824 -51.3938,-31.5197 -51.4672,-31.6018 -51.5761,-31.7229 -51.593,-31.736 -51.6288,-31.7605 -51.7936,-31.8371 -51.8295,-31.8433 -51.8593,-31.8348 -51.8749,-31.8211 -51.8946,-31.8033 -51.9244,-31.7906 -51.9593,-31.7817 -51.9851,-31.7789 -52.0187,-31.7909 -52.0259,-31.8133 -52.0076,-31.8329 -51.9837,-31.8612 -51.9497,-31.907 -51.972,-32.0259 -51.9803,-32.0469 -51.9987,-32.073 -52.0131,-32.1119 -52.0017,-32.1359 -51.9063,-32.0213 -51.8742,-31.9785 -51.8361,-31.928 -51.8037,-31.9004 -51.7695,-31.8781 -51.6118,-31.7961 -51.5684,-31.7807 -51.5467,-31.7718 -51.4139,-31.6994 -51.1662,-31.5102 -51.067,-31.4304 -50.9975,-31.3731 -50.9749,-31.351 -50.8501,-31.2235 -50.7814,-31.1517 -50.6832,-31.046 -50.6491,-31.0064 -50.6096,-30.9568 -50.5853,-30.912 -50.5701,-30.8837 -50.4109,-30.6649 -50.3561,-30.5914 -50.3049,-30.5215 -50.2459,-30.4275 -50.2056,-30.3512 -50.1932,-30.3241 -50.1729,-30.2754 -50.1659,-30.2541 -50.1598,-30.231 -50.1072,-30.0911 -50.0175,-29.8648 -49.9934,-29.8132 -49.9772,-29.7822 -49.8817,-29.6226 -49.8375,-29.5513 -49.7275,-29.3887 -49.6881,-29.3365 -49.6377,-29.2917 -49.6247,-29.2753 -49.5948,-29.2325 -49.5674,-29.1875 -49.3862,-28.9941 -49.3274,-28.9381 -49.1479,-28.794 -49.1255,-28.7785 -48.8839,-28.6223 -48.8534,-28.6096 -48.779,-28.5855 -48.7203,-28.4919 -48.7948,-28.4449 -48.8055,-28.3952 -48.8062,-28.3073 -48.7894,-28.2884 -48.7304,-28.355 -48.7438,-28.4101 -48.7204,-28.4528 -48.6985,-28.4585 -48.5895,-28.1939 -48.5659,-28.0549 -48.5561,-27.9662 -48.5009,-27.8331 -48.5131,-27.7955 -48.527,-27.7768 -48.559,-27.7263 -48.5791,-27.6163 -48.5429,-27.5737 -48.5798,-27.4262 -48.5577,-27.2064 -48.4818,-27.1702 -48.4543,-27.1863 -48.4243,-27.1827 -48.4309,-27.1331 -48.4534,-27.0919 -48.481,-27.1086 -48.5026,-27.1211 -48.5305,-27.1102 -48.5503,-27.0783 -48.5667,-26.8461 -48.5671,-26.7421 -48.6157,-26.6999 -48.6219,-26.6751 -48.6217,-26.643 -48.6188,-26.5708 -48.6118,-26.542 -48.575,-26.4713 -48.5537,-26.439 -48.5472,-26.4099 -48.5834,-26.3553 -48.693,-26.2598 -48.7306,-26.1027 -48.7294,-26.0383 -48.7088,-26.074 -48.6832,-26.148 -48.6769,-26.184 -48.6362,-26.2105 -48.6144,-26.2118 -48.5896,-26.1964 -48.5186,-26.1463 -48.5143,-26.124 -48.5244,-26.1011 -48.5468,-26.0284 -48.5462,-26.0084 -48.5218,-25.952 -48.5093,-25.9119 -48.5187,-25.8429 -48.5793,-25.8526 -48.7077,-25.8549 -48.6948,-25.8286 -48.5396,-25.7959 -48.4607,-25.7511 -48.4303,-25.6903 -48.3889,-25.6235 -48.362,-25.59 -48.3157,-25.5653 -48.2998,-25.5506 -48.3173,-25.523 -48.4537,-25.488 -48.5002,-25.4965 -48.5434,-25.5021 -48.5821,-25.4954 -48.6463,-25.4697 -48.6679,-25.4486 -48.6565,-25.3961 -48.6276,-25.3892 -48.5774,-25.4204 -48.5042,-25.4364 -48.4188,-25.4516 -48.3993,-25.4453 -48.3527,-25.3893 -48.3744,-25.3598 -48.3856,-25.3432 -48.3793,-25.3212 -48.3678,-25.2894 -48.3332,-25.2674 -48.2971,-25.2772 -48.2755,-25.2997 -48.2198,-25.3016 -48.1627,-25.2728 -48.0727,-25.2563 -48.108,-25.2753 -48.1469,-25.2969 -48.1647,-25.3117 -48.1847,-25.3915 -48.1816,-25.4246 -48.1466,-25.4314 -48.1369,-25.397 -48.1233,-25.3649 -48.1073,-25.3451 -48.0214,-25.2862 -48.0133,-25.2671 -48.0021,-25.2499 -47.9826,-25.2267 -47.9584,-25.2008 -47.9233,-25.1892 -47.8915,-25.1709 -47.8737,-25.1516 -47.8533,-25.1241 -47.8339,-25.0754 -47.834,-25.0308 -47.8594,-25.037 -47.8934,-25.0519 -47.9354,-25.0484 -47.9927,-25.0232 -47.9651,-24.9869 -47.9221,-24.9821 -47.7733,-24.8679 -47.7374,-24.8452 -47.6563,-24.7948 -47.5366,-24.7103 -47.4856,-24.6806 -47.4244,-24.6666 -47.363,-24.6495 -47.2577,-24.5943 -47.155,-24.5352 -46.9462,-24.3594 -46.9263,-24.2915 -46.913,-24.276 -46.8917,-24.2608 -46.8654,-24.2434 -46.8425,-24.2294 -46.7829,-24.1945 -46.7643,-24.1845 -46.5335,-24.065 -46.4195,-24.0105 -46.378,-23.9941 -46.3587,-23.9588 -46.3753,-23.9144 -46.3223,-23.8419 -46.2474,-23.8923 -46.2247,-23.9351 -46.2168,-23.9638 -46.2421,-23.9737 -46.2536,-23.9919 -46.2215,-23.9988 -46.1376,-23.9652 -46.1081,-23.9332 -46.0598,-23.8388 -46.0927,-23.8519 -46.1284,-23.8897 -46.1688,-23.892 -46.0716,-23.8315 -46.0282,-23.8092 -45.9174,-23.7609 -45.8617,-23.7481 -45.8325,-23.7409 -45.7774,-23.7319 -45.6093,-23.7562 -45.5783,-23.7616 -45.4928,-23.7789 -45.4739,-23.7994 -45.4478,-23.8165 -45.3585,-23.8012 -45.3378,-23.7763 -45.346,-23.7276 -45.3699,-23.6846 -45.372,-23.6284 -45.3539,-23.6024 -45.2098,-23.5608 -45.0359,-23.484 -45.0037,-23.4695 -44.9553,-23.4319 -44.9727,-23.419 -44.945,-23.3804 -44.8878,-23.3358 -44.8504,-23.315 -44.7955,-23.346 -44.7824,-23.3633 -44.6738,-23.3385 -44.67,-23.3271 -44.6616,-23.3203 -44.579,-23.3168 -44.5451,-23.3299 -44.5188,-23.3273 -44.4451,-23.2635 -44.5137,-23.2039 -44.5874,-23.2024 -44.6534,-23.196 -44.6591,-23.1743 -44.6412,-23.0833 -44.6197,-23.0296 -44.5898,-23.0174 -44.5471,-23.0147 -44.478,-23.0019 -44.4181,-22.982 -44.3749,-22.9373 -44.3563,-22.9194 -44.2986,-22.8944 -44.268,-22.8948 -44.1818,-23.0222 -44.1369,-23.025 -44.071,-23.0062 -44.0374,-22.9808 -44.0207,-22.9607 -43.9838,-22.9111 -43.8042,-22.8708 -43.7145,-22.9007 -43.5527,-22.9928 -43.6502,-23.0193 -43.7183,-23.0277 -43.739,-23.0291 -43.7614,-23.0281 -43.8401,-23.025 -43.9222,-23.0148 -43.9464,-23.0312 -43.9514,-23.0513 -43.9505,-23.074 -43.9422,-23.077 -43.9222,-23.068 -43.8898,-23.0568 -43.851,-23.0485 -43.5853,-23.0201 -43.3361,-22.9853 -43.2798,-22.984 -43.2357,-22.9872 -43.1735,-22.9729 -43.1314,-22.9568 -43.0938,-22.926 -43.1098,-22.8685 -43.1756,-22.8099 -43.1981,-22.7992 -43.2085,-22.7808 -43.2174,-22.7519 -43.2004,-22.7109 -43.0225,-22.6429 -42.9729,-22.6536 -42.9671,-22.6908 -42.973,-22.7176 -43.01,-22.7769 -43.038,-22.8025 -43.0758,-22.8647 -43.0716,-22.9052 -43.0406,-22.9276 -42.8875,-22.9551 -42.6271,-22.9341 -42.6067,-22.9247 -42.5735,-22.9183 -42.5172,-22.9136 -42.4955,-22.9135 -42.3765,-22.9153 -42.0982,-22.9238 -41.9822,-22.8934 -41.9353,-22.8055 -41.923,-22.7093 -41.9381,-22.6801 -41.9426,-22.6387 -41.9436,-22.5986 -41.9352,-22.5401 -41.9141,-22.5089 -41.7977,-22.4123 -41.7113,-22.3207 -41.6472,-22.2759 -41.6195,-22.2597 -41.5564,-22.2288 -41.5303,-22.2184 -41.4916,-22.2061 -41.4697,-22.1992 -41.3489,-22.1612 -41.292,-22.1449 -41.2502,-22.1357 -41.2276,-22.1292 -41.1828,-22.1155 -41.1485,-22.1027 -40.9696,-22.009 -40.9514,-21.998 -40.9367,-21.9837 -40.9196,-21.9578 -40.9162,-21.9331 -40.9676,-21.6509 -40.9929,-21.5522 -40.9789,-21.4246 -40.9641,-21.4033 -40.9189,-21.3283 -40.9108,-21.2595 -40.9139,-21.2527 -40.9164,-21.2342 -40.9102,-21.212 -40.8953,-21.1849 -40.8832,-21.1685 -40.8397,-21.1193 -40.8149,-21.0942 -40.7939,-21.0633 -40.7823,-21.0338 -40.767,-20.9884 -40.7714,-20.9459 -40.7632,-20.9044 -40.7121,-20.831 -40.6909,-20.8183 -40.5931,-20.7909 -40.5774,-20.8078 -40.3679,-20.5933 -40.3567,-20.5761 -40.2957,-20.4647 -40.2863,-20.4456 -40.2331,-20.3206 -40.2825,-20.3022 -40.3191,-20.2891 -40.3156,-20.2616 -40.3006,-20.2118 -40.2439,-20.2196 -40.1914,-20.2611 -40.142,-20.1718 -40.1187,-20.0957 -40.0962,-20.0028 -40.0791,-19.9421 -39.9724,-19.7404 -39.9577,-19.7189 -39.9372,-19.7043 -39.8861,-19.6759 -39.8482,-19.6603 -39.8248,-19.6513 -39.7615,-19.6197 -39.7391,-19.5815 -39.6658,-19.4273 -39.6558,-19.4016 -39.6509,-19.3711 -39.6459,-19.2978 -39.6457,-19.2771 -39.6551,-19.1796 -39.6681,-19.0852 -39.675,-19.0575 -39.6823,-19.003 -39.6919,-18.9027 -39.6985,-18.772 -39.6996,-18.684 -39.6965,-18.6525 -39.6798,-18.509 -39.665,-18.4398 -39.6363,-18.3446 -39.6208,-18.305 -39.6102,-18.258 -39.5981,-18.2106 -39.5777,-18.1672 -39.4569,-17.9964 -39.4036,-17.9294 -39.3765,-17.9053 -39.3437,-17.8902 -39.2801,-17.8746 -39.25,-17.8622 -39.228,-17.8489 -39.0846,-17.6665 -39.0906,-17.6469 -39.1138,-17.6241 -39.1355,-17.5859 -39.142,-17.5617 -39.1471,-17.5253 -39.1632,-17.3598 -39.1671,-17.2903 -39.1657,-17.2329 -39.1616,-17.1465 -39.1513,-17.1132 -39.122,-17.0223 -39.0938,-16.9177 -39.0826,-16.8524 -39.0888,-16.8314 -39.0873,-16.7692 -39.0836,-16.7417 -39.0708,-16.709 -39.0533,-16.6789 -39.0371,-16.6135 -39.0343,-16.5889 -39.0302,-16.5436 -39.0174,-16.4798 -38.9997,-16.403 -38.967,-16.2687 -38.8973,-16.0609 -38.8253,-15.8562 -38.8402,-15.7773 -38.8638,-15.7262 -38.8891,-15.6446 -38.9055,-15.5287 -38.9448,-15.2467 -38.956,-15.0276 -38.9573,-14.9649 -38.9936,-14.8047 -39.0075,-14.7878 -39.0174,-14.6979 -39.0208,-14.6338 -39.0143,-14.6096 -38.9879,-14.5212 -38.9557,-14.3223 -38.9457,-14.2282 -38.9407,-14.1822 -38.9069,-14.0976 -38.8797,-14.0192 -38.8758,-13.9092 -38.8914,-13.8757 -38.9439,-13.9137 -38.9314,-13.9385 -38.9239,-13.9696 -38.9115,-14.0291 -38.9139,-14.0515 -38.991,-14.1591 -39.0292,-14.13 -39.02,-14.0592 -38.9833,-14.073 -38.9482,-14.0423 -38.9499,-13.995 -38.9646,-13.9562 -38.9849,-13.8275 -38.9544,-13.7754 -38.9185,-13.6705 -38.9397,-13.6082 -38.9592,-13.5895 -38.9634,-13.5505 -38.9489,-13.5251 -38.9641,-13.4911 -39.0122,-13.4782 -39.0354,-13.5231 -39.0124,-13.365 -38.9986,-13.3407 -38.9544,-13.3448 -38.9244,-13.3577 -38.9119,-13.3649 -38.9237,-13.3114 -38.9187,-13.2785 -38.9106,-13.2588 -38.8883,-13.217 -38.8087,-13.1565 -38.7927,-13.0423 -38.742,-13.0062 -38.7156,-12.9701 -38.6861,-12.8567 -38.7602,-12.8401 -38.7837,-12.8497 -38.8137,-12.8353 -38.8537,-12.7713 -38.8731,-12.7293 -38.8571,-12.6912 -38.8174,-12.6486 -38.8152,-12.6727 -38.8347,-12.6809 -38.8417,-12.7011 -38.8313,-12.742 -38.8101,-12.8107 -38.7742,-12.8288 -38.7392,-12.8052 -38.7071,-12.7504 -38.7043,-12.7083 -38.6781,-12.6043 -38.6544,-12.5667 -38.6107,-12.6143 -38.5984,-12.6733 -38.5831,-12.6962 -38.5661,-12.7067 -38.5062,-12.7113 -38.4639,-12.7119 -38.4352,-12.8331 -38.4441,-12.9023 -38.4676,-12.9115 -38.4869,-13.0011 -38.4309,-13.0019 -38.3066,-12.9456 -38.2746,-12.9225 -37.9986,-12.6186 -37.9525,-12.5619 -37.9118,-12.4619 -37.8871,-12.4157 -37.8291,-12.3523 -37.7508,-12.2445 -37.6579,-12.1149 -37.6422,-12.0886 -37.6171,-12.0448 -37.5891,-11.9893 -37.5755,-11.9614 -37.5616,-11.9268 -37.539,-11.873 -37.5244,-11.8388 -37.4134,-11.5971 -37.3818,-11.532 -37.405,-11.5061 -37.4464,-11.507 -37.4263,-11.5014 -37.4074,-11.492 -37.3694,-11.4677 -37.3524,-11.4349 -37.3706,-11.3898 -37.3538,-11.3211 -37.323,-11.2891 -37.2949,-11.2175 -37.3009,-11.1746 -37.2489,-11.1986 -37.2564,-11.2347 -37.2727,-11.2642 -37.2929,-11.2914 -37.3187,-11.2994 -37.3496,-11.388 -37.3302,-11.4169 -37.2807,-11.4072 -37.2701,-11.3732 -37.2328,-11.3011 -37.221,-11.2792 -37.1658,-11.2065 -37.1493,-11.0945 -37.1838,-11.0861 -37.2216,-11.0555 -37.2343,-11.0126 -37.1975,-11.0137 -37.171,-11.0229 -37.1512,-11.0444 -37.1472,-11.0645 -37.1134,-11.0871 -37.0321,-10.9549 -36.9991,-10.8303 -37.0136,-10.8149 -37.0433,-10.8151 -37.093,-10.8155 -37.1148,-10.7419 -37.0512,-10.7316 -37.0176,-10.7867 -36.9845,-10.8464 -36.9954,-10.88 -36.9913,-10.9164 -36.971,-10.9172 -36.954,-10.8958 -36.9146,-10.835 -36.8715,-10.7778 -36.8098,-10.7217 -36.6598,-10.6211 -36.6169,-10.5952 -36.517,-10.5353 -36.4805,-10.5182 -36.4228,-10.5068 -36.3648,-10.487 -36.3496,-10.4771 -36.2807,-10.3737 -36.2453,-10.2835 -36.2161,-10.245 -36.1809,-10.2081 -36.126,-10.1647 -36.088,-10.1405 -36.0034,-10.0624 -35.8665,-9.8711 -35.8385,-9.829 -35.8088,-9.772 -35.7599,-9.6786 -35.6352,-9.5998 -35.5794,-9.5443 -35.3627,-9.309 -35.3376,-9.2798 -35.2883,-9.2182 -35.2503,-9.1551 -35.1815,-9.0204 -35.1599,-9.0001 -35.1419,-8.9764 -35.1247,-8.9454 -35.1095,-8.9031 -35.0928,-8.8606 -35.0657,-8.7659 -35.0284,-8.6632 -35.0027,-8.6064 -34.9018,-8.3331 -34.8649,-8.186 -34.8256,-8.0638 -34.807,-8.0536 -34.7919,-8.0001 -34.7761,-7.9261 -34.7766,-7.9005 -34.7884,-7.8584 -34.8053,-7.8267 -34.826,-7.8231 -34.8505,-7.8032 -34.8507,-7.7726 -34.8435,-7.737 -34.8154,-7.6911 -34.7881,-7.6738 -34.7623,-7.6273 -34.7793,-7.5817 -34.7977,-7.5491 -34.8536,-7.5344 -34.7938,-7.534 -34.7708,-7.4957 -34.7623,-7.3805 -34.7601,-7.3281 -34.7536,-7.1647 -34.7911,-7.1005 -34.7971,-7.0549 -34.7842,-7.0244 -34.7915,-6.9737 -34.8076,-7.0136 -34.8245,-7.0692 -34.8618,-7.1171 -34.8586,-7.0896 -34.8598,-7.0608 -34.836,-7.032 -34.8244,-6.9714 -34.8285,-6.9308 -34.8435,-6.8989 -34.9145,-6.6708 -34.9206,-6.6497 -34.9253,-6.6202 -34.9241,-6.595 -34.9211,-6.5335 -34.9263,-6.4964 -34.9274,-6.4749 -34.932,-6.4315 -34.9403,-6.3991 -35.0015,-6.2266 -35.0478,-6.1921 -35.0527,-6.1717 -35.0608,-6.0848 -35.0916,-5.9524 -35.1053,-5.9322 -35.1552,-5.74 -35.1533,-5.6916 -35.1852,-5.5773 -35.2749,-5.3804 -35.3325,-5.2729 -35.3738,-5.2125 -35.439,-5.16 -35.4706,-5.144 -35.5635,-5.105 -35.6007,-5.1049 -35.6451,-5.1021 -35.8086,-5.0731 -35.8933,-5.0464 -35.9331,-5.0435 -35.9632,-5.0451 -36.0274,-5.0681 -36.0823,-5.0898 -36.2449,-5.1051 -36.299,-5.0881 -36.3831,-5.0751 -36.4287,-5.0718 -36.5397,-5.0823 -36.5707,-5.0935 -36.6425,-5.0926 -36.7269,-5.0609 -36.7628,-5.0309 -36.7754,-5.0085 -36.8346,-4.9479 -36.913,-4.9222 -37.0259,-4.9227 -37.0828,-4.9245 -37.1131,-4.9222 -37.1318,-4.9131 -37.1684,-4.8742 -37.1826,-4.8541 -37.1983,-4.8256 -37.2301,-4.7382 -37.2471,-4.7208 -37.2807,-4.6953 -37.3018,-4.6852 -37.3796,-4.6522 -37.4325,-4.6358 -37.506,-4.6339 -37.5532,-4.6122 -37.6021,-4.5816 -37.6692,-4.5178 -37.6889,-4.4795 -37.7623,-4.3898 -37.8756,-4.3128 -37.968,-4.2481 -38.0286,-4.1921 -38.0654,-4.1529 -38.0979,-4.1168 -38.1204,-4.0867 -38.1339,-4.0524 -38.2184,-3.947 -38.248,-3.9387 -38.2685,-3.9309 -38.2959,-3.9075 -38.4527,-3.7205 -38.4864,-3.7166 -38.5918,-3.6861 -38.6174,-3.6742 -38.8085,-3.5388 -38.8862,-3.4576 -38.9135,-3.417 -38.95,-3.3915 -38.9786,-3.3827 -39.028,-3.3788 -39.1756,-3.2855 -39.3361,-3.1859 -39.4302,-3.152 -39.5306,-3.0901 -39.6721,-3.0222 -39.6934,-3.0118 -39.7851,-2.9512 -39.8182,-2.9154 -39.9533,-2.8431 -40.1455,-2.8165 -40.2751,-2.8022 -40.427,-2.7926 -40.4612,-2.7987 -40.503,-2.8184 -40.5596,-2.835 -40.5849,-2.8363 -40.6103,-2.8362 -40.7445,-2.8625 -40.8641,-2.8693 -41.1762,-2.877 -41.2173,-2.9287 -41.1917,-2.9715 -41.1895,-3.0114 -41.2014,-3.0198 -41.2221,-2.9818 -41.2854,-2.9271 -41.3547,-2.9052 -41.4289,-2.8939 -41.4483,-2.903 -41.4728,-2.9088 -41.5569,-2.9011 -41.6277,-2.8798 -41.6475,-2.8607 -41.6194,-2.8599 -41.6326,-2.8411 -41.6521,-2.8268 -41.68,-2.8098 -41.7459,-2.7715 -41.779,-2.7588 -41.793,-2.7638 -41.7872,-2.7365 -41.8234,-2.729 -41.9019,-2.7423 -41.9307,-2.7534 -41.8881,-2.7837 -41.8895,-2.817 -41.9047,-2.8417 -41.9799,-2.8266 -42.014,-2.8162 -42.0624,-2.7995 -42.1638,-2.8053 -42.1878,-2.8298 -42.1859,-2.8023 -42.222,-2.7531 -42.2436,-2.7508 -42.2648,-2.7564 -42.296,-2.7657 -42.4094,-2.7474 -42.4562,-2.7285 -42.5775,-2.6434 -42.6342,-2.5802 -42.6585,-2.5599 -42.7068,-2.555 -42.7478,-2.5578 -42.8414,-2.4999 -42.8855,-2.4693 -42.9145,-2.4629 -42.9521,-2.4624 -42.9913,-2.4508 -43.0673,-2.4229 -43.1205,-2.395 -43.2343,-2.3705 -43.2728,-2.3649 -43.2985,-2.3628 -43.3891,-2.365 -43.4288,-2.3798 -43.4295,-2.4081 -43.4093,-2.4552 -43.3991,-2.5346 -43.5112,-2.5199 -43.6583,-2.5068 -43.7503,-2.5487 -43.8236,-2.5667 -43.8786,-2.5455 -43.9557,-2.6299 -43.9718,-2.6481 -44.0713,-2.7674 -44.1278,-2.8447 -44.1482,-2.8655 -44.1644,-2.8463 -44.1269,-2.8133 -44.1406,-2.7602 -44.2144,-2.7799 -44.2276,-2.8069 -44.2431,-2.8319 -44.2902,-2.8241 -44.2883,-2.7773 -44.2172,-2.7304 -44.1828,-2.71 -44.1372,-2.6923 -44.1121,-2.6871 -44.0832,-2.665 -43.992,-2.5444 -43.9792,-2.5157 -43.9842,-2.4106 -44.0137,-2.403 -44.0549,-2.411 -44.0741,-2.4226 -44.1178,-2.4508 -44.1618,-2.4704 -44.2065,-2.4796 -44.2333,-2.4783 -44.3068,-2.5238 -44.3173,-2.5522 -44.334,-2.6981 -44.3555,-2.8647 -44.3602,-2.8947 -44.3726,-2.9309 -44.3867,-2.9513 -44.4067,-2.9796 -44.4298,-3.0047 -44.4963,-3.0527 -44.5654,-3.1065 -44.6093,-3.1841 -44.7024,-3.2706 -44.7356,-3.2938 -44.7332,-3.2007 -44.7057,-3.1894 -44.5753,-3.0516 -44.5732,-3.0305 -44.627,-3.0133 -44.6407,-2.9915 -44.6318,-2.9091 -44.6013,-2.7647 -44.5581,-2.6715 -44.5273,-2.6136 -44.5318,-2.5639 -44.4571,-2.4677 -44.3913,-2.4091 -44.3563,-2.4069 -44.329,-2.3968 -44.3104,-2.3393 -44.3117,-2.3174 -44.3165,-2.2921 -44.3448,-2.1959 -44.3782,-2.1538 -44.4007,-2.1438 -44.454,-2.1459 -44.5658,-2.2543 -44.5836,-2.2813 -44.6047,-2.3208 -44.6109,-2.2784 -44.5865,-2.2208 -44.5385,-2.1677 -44.4465,-2.0453 -44.4397,-1.9843 -44.4614,-1.9051 -44.4775,-1.8568 -44.4885,-1.8301 -44.5189,-1.8144 -44.5899,-1.7869 -44.6447,-1.8154 -44.6694,-1.7912 -44.7486,-1.7029 -44.7397,-1.6248 -44.7477,-1.6059 -44.7769,-1.5742 -44.8568,-1.6131 -44.8629,-1.637 -44.884,-1.6171 -44.9009,-1.5996 -44.8646,-1.544 -44.8285,-1.5009 -44.8053,-1.4878 -44.7976,-1.4651 -44.8083,-1.4288 -44.9045,-1.5004 -44.9539,-1.4871 -45.041,-1.4621 -45.1081,-1.4787 -45.1477,-1.518 -45.1926,-1.5706 -45.2012,-1.6092 -45.1893,-1.6412 -45.1715,-1.6736 -45.2329,-1.7335 -45.2699,-1.7421 -45.2995,-1.7345 -45.3158,-1.7134 -45.3215,-1.539 -45.3044,-1.4755 -45.2662,-1.439 -45.2485,-1.4163 -45.248,-1.379 -45.2594,-1.3361 -45.2739,-1.3131 -45.3021,-1.3131 -45.3051,-1.3349 -45.3338,-1.412 -45.4027,-1.5419 -45.4111,-1.5438 -45.4122,-1.5082 -45.4552,-1.4632 -45.3637,-1.3537 -45.3959,-1.3093 -45.5041,-1.2754 -45.5586,-1.2778 -45.5654,-1.3071 -45.5631,-1.3385 -45.5817,-1.3699 -45.6446,-1.367 -45.6682,-1.2174 -45.6841,-1.1786 -45.7336,-1.2659 -45.8098,-1.258 -45.8097,-1.2345 -45.825,-1.1698 -45.8384,-1.1391 -45.9238,-1.0762 -45.9611,-1.11 -45.9833,-1.1584 -45.9794,-1.193 -45.995,-1.2087 -46.0354,-1.2088 -46.0391,-1.1773 -46.0756,-1.1047 -46.113,-1.1449 -46.2073,-1.1764 -46.1946,-1.1415 -46.1596,-1.058 -46.1398,-0.9563 -46.2095,-0.9877 -46.3658,-1.0363 -46.3959,-1.0417 -46.4868,-1.0275 -46.5036,-1.0039 -46.5476,-1.0205 -46.519,-0.9748 -46.5489,-0.8665 -46.5777,-0.8245 -46.6928,-0.8287 -46.7382,-0.8411 -46.7645,-0.8123 -46.7505,-0.7602 -46.75,-0.727 -46.7742,-0.7123 -46.8144,-0.7775 -46.8485,-0.8637 -46.907,-0.8971 -46.9049,-0.8591 -46.8732,-0.8393 -46.907,-0.7018 -47.0128,-0.7523 -47.1172,-0.7062 -47.1569,-0.6403 -47.2325,-0.5983 -47.378,-0.5817 -47.4061,-0.5941 -47.4173,-0.6213 -47.409,-0.6989 -47.4001,-0.7172 -47.379,-0.7221 -47.3389,-0.7509 -47.3319,-0.7753 -47.3446,-0.8116 -47.4301,-0.7347 -47.4773,-0.6447 -47.4953,-0.6351 -47.536,-0.6475 -47.5451,-0.6767 -47.5589,-0.6973 -47.5863,-0.7186 -47.6109,-0.7352 -47.6793,-0.7453 -47.6589,-0.7018 -47.6654,-0.6656 -47.691,-0.6364 -47.7203,-0.6407 -47.7944,-0.6899 -47.8382,-0.7279 -47.9077,-0.7751 -47.9352,-0.7564 -47.942,-0.7365 -47.979,-0.7019 -48.0023,-0.7072 -48.1839,-0.8667 -48.2379,-0.9438 -48.2586,-0.9835 -48.2636,-1.006 -48.2607,-1.0271 -48.2553,-1.0397 -48.217,-1.1165 -48.2249,-1.1559 -48.2855,-1.316 -48.3508,-1.3087 -48.3711,-1.2948 -48.3938,-1.2847 -48.4268,-1.3033 -48.4442,-1.407 -48.4452,-1.4596 -48.4255,-1.4735 -48.3937,-1.4728 -48.3735,-1.4633 -48.3373,-1.4547 -48.278,-1.4481 -48.2446,-1.4456 -48.2006,-1.4441 -48.1599,-1.4487 -48.1347,-1.4644 -48.2927,-1.4952 -48.359,-1.4974 -48.3986,-1.5625 -48.3835,-1.589 -48.3762,-1.6104 -48.3701,-1.6385 -48.3725,-1.6581 -48.4485,-1.62 -48.4853,-1.58 -48.4944,-1.5477 -48.552,-1.4693 -48.5691,-1.4886 -48.5917,-1.4989 -48.6173,-1.4832 -48.6424,-1.4674 -48.6759,-1.4969 -48.7189,-1.5701 -48.763,-1.6425 -48.8592,-1.7512 -48.9154,-1.8384 -48.9472,-1.8511 -48.9949,-1.8566 -49.032,-1.8527 -49.0693,-1.8751 -49.118,-1.8785 -49.1352,-1.8958 -49.2065,-1.9963 -49.2451,-2.0987 -49.2556,-2.1431 -49.2788,-2.202 -49.313,-2.2644 -49.3599,-2.3475 -49.3772,-2.3949 -49.3802,-2.4494 -49.3779,-2.4851 -49.396,-2.5153 -49.4341,-2.5619 -49.4189,-2.4778 -49.4138,-2.4269 -49.4136,-2.4034 -49.4188,-2.3827 -49.4351,-2.3456 -49.4507,-2.3116 -49.45,-2.2548 -49.4206,-2.209 -49.3967,-2.188 -49.3675,-2.1191 -49.3521,-2.023 -49.312,-1.9269 -49.2303,-1.7876 -49.2216,-1.7643 -49.2253,-1.7156 -49.2747,-1.7111 -49.3861,-1.7439 -49.4183,-1.7604 -49.4487,-1.7823 -49.4645,-1.7973 -49.4755,-1.8143 -49.5143,-1.8468 -49.5823,-1.8731 -49.7855,-1.9005 -49.8167,-1.8803 -49.8971,-1.8321 -49.9465,-1.8187 -50.2085,-1.8807 -50.2465,-1.902 -50.2648,-1.9128 -50.2935,-1.9389 -50.3136,-1.9456 -50.3597,-1.9497 -50.3901,-1.9477 -50.4109,-1.9296 -50.4022,-1.9114 -50.372,-1.8914 -50.3938,-1.8551 -50.5174,-1.8142 -50.6209,-1.8081 -50.7487,-1.9371 -50.7656,-1.9576 -50.7659,-1.9856 -50.7466,-2.0362 -50.7065,-2.1212 -50.673,-2.1694 -50.643,-2.2022 -50.6592,-2.2206 -50.7359,-2.1654 -50.7298,-2.1143 -50.7828,-2.0369 -50.8742,-1.9901 -50.9268,-2.0668 -50.9421,-2.1979 -50.9491,-2.3032 -50.9486,-2.3372 -50.9344,-2.3809 -50.8578,-2.448 -50.8328,-2.457 -50.8082,-2.4634 -50.7866,-2.5046 -50.803,-2.4994 -50.8194,-2.4729 -50.8668,-2.463 -50.9065,-2.4413 -50.9385,-2.4147 -50.9576,-2.3824 -50.9717,-2.3422 -50.997,-2.1922 -50.9639,-2.1778 -50.9498,-2.157 -50.9376,-2.1083 -50.9335,-2.0272 -50.9465,-2.0089 -50.9811,-1.9753 -50.9306,-1.9913 -50.9132,-1.9818 -50.8863,-1.9613 -50.8622,-1.9719 -50.8303,-1.9945 -50.7888,-2.0016 -50.7917,-1.9782 -50.8083,-1.9065 -50.9143,-1.8516 -50.9235,-1.8473 -51.0041,-1.8221 -51.0703,-1.8223 -51.0104,-1.8095 -50.9294,-1.8293 -50.8131,-1.8624 -50.7576,-1.896 -50.7276,-1.8877 -50.61,-1.7696 -50.6024,-1.7395 -50.6217,-1.6332 -50.6307,-1.6154 -50.6473,-1.5976 -50.6834,-1.5652 -50.7052,-1.5463 -50.7574,-1.4427 -50.7782,-1.3386 -50.7687,-1.2772 -50.7581,-1.2493 -50.7475,-1.2098 -50.745,-1.1724 -50.7692,-0.9277 -50.7958,-0.9137 -50.8655,-0.9095 -50.9379,-0.9274 -50.9512,-0.9543 -50.9408,-0.9782 -50.9354,-0.9974 -50.9777,-1.0436 -51.0034,-1.0594 -51.0571,-1.0807 -51.1118,-1.1093 -51.1547,-1.1424 -51.1893,-1.2067 -51.3917,-1.3253 -51.4308,-1.3462 -51.5096,-1.3777 -51.5478,-1.3874 -51.5774,-1.3923 -51.6052,-1.4007 -51.7611,-1.503 -51.7909,-1.5276 -51.8155,-1.5512 -51.8883,-1.588 -51.9569,-1.6147 -51.9951,-1.6072 -52.0291,-1.6247 -52.0695,-1.6174 -52.0945,-1.6252 -52.1193,-1.6425 -52.1363,-1.6643 -52.1498,-1.6901 -52.1901,-1.7029 -52.2096,-1.6798 -52.1801,-1.6658 -52.1698,-1.6478 -52.1698,-1.6053 -52.1785,-1.5755 -52.2147,-1.539 -52.2344,-1.5329 -52.2912,-1.5424 -52.2838,-1.7089 -52.2354,-2.036 -52.1324,-2.3085 -52.0053,-2.5386 -51.9888,-2.6429 -52.0362,-2.6971 -52.0227,-2.8089 -51.9448,-2.8699 -51.877,-2.958 -51.8364,-3.0393 -51.8126,-3.0867 -51.7212,-3.1104 -51.6162,-3.1443 -51.6229,-3.2086 -51.6297,-3.273 -51.6975,-3.3374 -51.7483,-3.3577 -51.7076,-3.395 -51.6771,-3.4559 -51.7381,-3.5406 -51.8397,-3.6084 -51.921,-3.5576 -51.9515,-3.5101 -51.9414,-3.4187 -51.982,-3.3746 -52.0362,-3.334 -52.0464,-3.2899 -52.0904,-3.2764 -52.1345,-3.2324 -52.1683,-3.2527 -52.1548,-3.3441 -52.1853,-3.4322 -52.2225,-3.4322 -52.2327,-3.5101 -52.314,-3.5779 -52.3513,-3.666 -52.4648,-3.7609 -52.6016,-3.8617 -52.6016,-3.9697 -52.6232,-4.1569 -52.724,-4.2433 -52.7528,-4.3873 -52.6592,-4.4449 -52.724,-4.6825 -52.8176,-4.8049 -52.8248,-4.8841 -52.9328,-5.0209 -52.8824,-5.1937 -52.8536,-5.4025 -52.6952,-5.4745 -52.6304,-5.7049 -52.5296,-5.8777 -52.5224,-6.0721 -52.4216,-6.2017 -52.4288,-6.3601 -52.3568,-6.3889 -52.2632,-6.5113 -52.2416,-6.5761 -52.1768,-6.5833 -52.0904,-6.5617 -52.0362,-6.627 -52.0086,-6.6606 -51.9871,-6.7127 -52.0025,-6.7831 -52.0025,-6.8199 -52.0821,-6.924 -52.1801,-6.9546 -52.2352,-6.9516 -52.3271,-6.9546 -52.4006,-6.9761 -52.4465,-7.0067 -52.4618,-7.0833 -52.5047,-7.1139 -52.5323,-7.1139 -52.5782,-7.1813 -52.5874,-7.2272 -52.5813,-7.267 -52.5874,-7.316 -52.6088,-7.3344 -52.6946,-7.4355 -52.6946,-7.4875 -52.6732,-7.5212 -52.6487,-7.5457 -52.6732,-7.5733 -52.7068,-7.5763 -52.7558,-7.6437 -52.7803,-7.7478 -52.7865,-7.8152 -52.814,-7.8367 -52.811,-7.8643 -52.7926,-7.9378 -52.7344,-8.0327 -52.713,-8.1185 -52.6762,-8.2073 -52.6517,-8.2257 -52.6456,-8.3359 -52.6732,-8.4339 -52.615,-8.4523 -52.5782,-8.4921 -52.5629,-8.5411 -52.4955,-8.5625 -52.4373,-8.5625 -52.3822,-8.5779 -52.3087,-8.636 -52.3056,-8.6881 -52.2689,-8.7095 -52.2811,-8.8075 -52.2076,-8.8382 -52.1648,-8.8872 -52.0974,-8.9209 -52.0882,-8.9729 -52.0576,-8.9974 -52.0362,-9.074 -52.076,-9.1444 -52.0484,-9.1873 -52.0454,-9.221 -52.0239,-9.2394 -52.0117,-9.2669 -52.0913,-9.3404 -52.1127,-9.3772 -52.125,-9.4139 -52.1495,-9.4293 -52.1709,-9.4538 -52.174,-9.515 -52.1954,-9.5732 -52.1893,-9.6008 -52.2353,-9.6467 -52.2843,-9.6559 -52.3271,-9.6436 -52.4037,-9.6345 -52.4435,-9.613 -52.4803,-9.5916 -52.5017,-9.5946 -52.5384,-9.5793 -52.5783,-9.5916 -52.5936,-9.6467 -52.6089,-9.6467 -52.6211,-9.662 -52.6273,-9.6957 -52.6334,-9.7171 -52.1618,-9.7447 -51.3471,-9.7876 -50.2324,-9.8458 -50.2727,-9.903 -50.2901,-9.962 -50.2901,-9.9967 -50.3352,-10.0661 -50.3774,-10.1051 -50.3936,-10.1521 -50.3904,-10.2283 -50.405,-10.2754 -50.4196,-10.337 -50.4325,-10.3662 -50.4812,-10.3889 -50.4958,-10.4489 -50.5039,-10.4992 -50.5218,-10.5284 -50.5282,-10.5706 -50.5412,-10.5884 -50.5493,-10.6095 -50.5769,-10.6176 -50.5915,-10.6452 -50.6077,-10.6581 -50.5866,-10.7084 -50.5834,-10.7538 -50.598,-10.7911 -50.6207,-10.8073 -50.6288,-10.8333 -50.611,-10.8803 -50.6369,-10.9225 -50.6385,-10.9436 -50.6207,-10.989 -50.6207,-11.0149 -50.6126,-11.0247 -50.6093,-11.0668 -50.6223,-11.0912 -50.6434,-11.1009 -50.6693,-11.1593 -50.6564,-11.2225 -50.658,-11.2404 -50.6758,-11.2647 -50.6953,-11.3004 -50.7261,-11.4026 -50.7423,-11.4658 -50.7439,-11.4918 -50.7374,-11.5226 -50.7212,-11.5404 -50.7147,-11.5599 -50.6596,-11.5842 -50.6482,-11.6021 -50.6596,-11.6702 -50.7099,-11.714 -50.7131,-11.7513 -50.692,-11.7756 -50.6936,-11.8097 -50.6758,-11.8372 -50.6791,-11.8729 -50.645,-11.8794 -50.645,-11.915 -50.6645,-11.9199 -50.6677,-11.9394 -50.6531,-11.9507 -50.658,-11.9799 -50.6823,-11.9978 -50.6823,-12.0529 -50.6742,-12.0837 -50.6742,-12.2005 -50.6596,-12.2281 -50.6417,-12.2297 -50.632,-12.2686 -50.6174,-12.2881 -50.6304,-12.3189 -50.6158,-12.3903 -50.6109,-12.4308 -50.6174,-12.447 -50.6369,-12.4519 -50.6336,-12.4762 -50.6417,-12.5281 -50.6531,-12.5768 -50.658,-12.6076 -50.6694,-12.6011 -50.6742,-12.6206 -50.6677,-12.6433 -50.6239,-12.6562 -50.6223,-12.6919 -50.6093,-12.7455 -50.6126,-12.7649 -50.598,-12.7795 -50.6012,-12.8103 -50.5818,-12.8022 -50.5574,-12.8022 -50.5688,-12.8265 -50.5315,-12.846 -50.4812,-12.8428 -50.4765,-12.875 -50.4954,-12.9333 -50.5143,-12.9845 -50.5662,-13.0152 -50.567,-13.0254 -50.5536,-13.0317 -50.5489,-13.0506 -50.5757,-13.0632 -50.5906,-13.079 -50.578,-13.0994 -50.5725,-13.1286 -50.5796,-13.1585 -50.5828,-13.1939 -50.567,-13.2215 -50.5812,-13.2711 -50.6017,-13.3137 -50.6639,-13.3948 -50.6631,-13.4286 -50.6694,-13.4467 -50.6915,-13.4593 -50.719,-13.4979 -50.7387,-13.5152 -50.7592,-13.5404 -50.764,-13.5664 -50.7647,-13.5932 -50.7805,-13.6334 -50.7884,-13.6672 -50.8262,-13.7019 -50.8711,-13.7176 -50.86,-13.7491 -50.8608,-13.8145 -50.8435,-13.8712 -50.8466,-13.9027 -50.8553,-13.9358 -50.8671,-13.9665 -50.8568,-14.0043 -50.8592,-14.0452 -50.8427,-14.0673 -50.8474,-14.0925 -50.8757,-14.1114 -50.9025,-14.1177 -50.9214,-14.113 -50.9261,-14.1224 -50.9167,-14.1453 -50.9175,-14.1586 -50.9372,-14.1917 -50.9624,-14.2311 -50.9742,-14.2917 -50.971,-14.3225 -50.9899,-14.3469 -50.9931,-14.3862 -51.0009,-14.4059 -50.9876,-14.439 -50.9671,-14.4799 -50.9687,-14.5004 -50.9679,-14.5335 -50.9868,-14.554 -50.9868,-14.5744 -51.0136,-14.6351 -51.0372,-14.6548 -51.0419,-14.7044 -51.0663,-14.7351 -51.06,-14.7863 -51.0719,-14.806 -51.0947,-14.8327 -51.0963,-14.8839 -51.1058,-14.8965 -51.1381,-14.9162 -51.1601,-14.9769 -51.1924,-14.9808 -51.2239,-14.9973 -51.2625,-15.0233 -51.2963,-15.0162 -51.3034,-14.991 -51.3097,-14.9666 -51.3278,-14.9627 -51.353,-14.9895 -51.3877,-14.995 -51.4129,-14.9973 -51.4357,-15.0194 -51.4664,-15.0477 -51.5144,-15.0564 -51.5263,-15.0753 -51.5452,-15.1115 -51.5672,-15.1226 -51.583,-15.1501 -51.6089,-15.1627 -51.6373,-15.1745 -51.6641,-15.232 -51.6466,-15.2589 -51.6506,-15.2762 -51.6718,-15.2872 -51.6844,-15.3337 -51.6742,-15.3565 -51.686,-15.3936 -51.6963,-15.4101 -51.7002,-15.4542 -51.7018,-15.481 -51.7152,-15.4936 -51.7388,-15.5022 -51.7467,-15.5353 -51.7624,-15.5416 -51.7845,-15.5314 -51.7915,-15.544 -51.7789,-15.581 -51.7742,-15.6038 -51.783,-15.6362 -51.8042,-15.6621 -51.8302,-15.7259 -51.8609,-15.7653 -51.8759,-15.8015 -51.9074,-15.822 -51.9389,-15.8 -51.9617,-15.8 -51.9704,-15.8094 -51.9767,-15.8338 -51.9924,-15.8386 -52.0019,-15.8559 -52.0208,-15.8614 -52.0294,-15.8732 -52.0499,-15.8771 -52.0822,-15.8716 -52.1216,-15.8795 -52.1563,-15.8748 -52.1893,-15.8724 -52.2201,-15.8787 -52.2413,-15.8779 -52.2547,-15.9236 -52.2681,-15.948 -52.2838,-15.9583 -52.3035,-15.9866 -52.3311,-16.0449 -52.3461,-16.0504 -52.3587,-16.0488 -52.3783,-16.0646 -52.4106,-16.0748 -52.4405,-16.0953 -52.4539,-16.1481 -52.4484,-16.1874 -52.4437,-16.2134 -52.4264,-16.2315 -52.4366,-16.2725 -52.4587,-16.2835 -52.4957,-16.2851 -52.5343,-16.3016 -52.5752,-16.3379 -52.6099,-16.4001 -52.624,-16.4521 -52.6374,-16.5395 -52.6933,-16.5781 -52.7138,-16.6529 -52.8272,-16.7592 -52.8918,-16.7852 -52.9697,-16.8199 -53.0146,-16.8671 -53.0115,-16.8908 -53.039,-17.0002 -53.0343,-17.0152 -53.0414,-17.0569 -53.0516,-17.0632 -53.0595,-17.079 -53.0839,-17.0987 -53.0966,-17.1334 -53.1226,-17.1578 -53.1509,-17.2043 -53.1541,-17.2248 -53.1824,-17.2452 -53.2045,-17.2988 -53.1958,-17.3201 -53.195,-17.3405 -53.1911,-17.3689 -53.2005,-17.3831 -53.2194,-17.4287 -53.2241,-17.4768 -53.2257,-17.5091 -53.2186,-17.5366 -53.1973,-17.5571 -53.1918,-17.5784 -53.1706,-17.5957 -53.1375,-17.654 -53.1264,-17.6721 -53.128,-17.7114 -53.117,-17.7587 -53.1241,-17.8051 -53.1148,-17.8898 -53.0556,-18.0148 -53.0403,-18.1289 -53.0578,-18.3066 -52.9964,-18.3922 -52.9064,-18.3439 -52.7529,-18.4119 -52.8296,-18.5194 -52.8911,-18.6664 -52.7594,-18.7081 -52.641,-18.7212 -52.4786,-18.7081 -52.3338,-18.8222 -52.268,-18.8134 -52.1167,-18.8726 -52.0662,-18.9362 -51.9938,-18.9757 -51.9412,-18.9757 -51.8775,-18.9998 -51.8359,-19.0547 -51.7942,-19.0657 -51.6625,-19.1271 -51.5485,-19.1381 -51.4212,-19.16 -51.3466,-19.2215 -51.2852,-19.2675 -51.2238,-19.2653 -51.1755,-19.2939 -51.1294,-19.2807 -51.0088,-19.375 -50.9408,-19.4145 -50.9232,-19.4584 -50.9575,-19.4645 -50.9618,-19.5012 -50.9337,-19.5488 -50.9488,-19.5726 -50.9791,-19.5683 -50.9921,-19.6396 -51.0202,-19.7045 -51.0224,-19.7672 -51.0072,-19.8126 -51.0051,-19.8602 -50.9834,-19.9056 -50.9964,-19.9532 -50.9878,-20.0051 -51.0072,-20.044 -51.0072,-20.0916 -51.0224,-20.1543 -51.0332,-20.2257 -51.0591,-20.256 -51.1002,-20.2733 -51.1781,-20.3057 -51.2321,-20.3014 -51.3338,-20.3706 -51.3943,-20.4484 -51.4614,-20.5371 -51.5133,-20.5803 -51.5782,-20.5955 -51.6084,-20.6841 -51.6214,-20.7425 -51.6301,-20.8225 -51.6301,-20.8918 -51.7079,-20.9696 -51.7425,-20.9977 -51.775,-21.0604 -51.8031,-21.1015 -51.8615,-21.1361 -51.8723,-21.1967 -51.8485,-21.268 -51.8723,-21.3545 -51.9134,-21.4064 -51.9653,-21.4951 -51.9999,-21.5081 -52.0518,-21.5016 -52.0842,-21.5405 -52.0929,-21.5643 -52.0712,-21.5773 -52.0518,-21.6357 -52.0366,-21.653 -52.0518,-21.6919 -52.0474,-21.7113 -52.0756,-21.7308 -52.1448,-21.7784 -52.1707,-21.8303 -52.1707,-21.8541 -52.2399,-21.919 -52.294,-21.9622 -52.3394,-22.0465 -52.4064,-22.146 -52.5124,-22.226 -52.6767,-22.3039 -52.7827,-22.3774 -52.893,-22.4531 -53.0011,-22.5244 -53.0768,-22.5915 -53.1546,-22.7039 -53.3497,-22.7791 -53.4922,-22.8361 -53.5546,-22.8717 -53.5831,-22.9002 -53.6205,-22.984 -53.6365,-23.0036 -53.6347,-23.0695 -53.6365,-23.1104 -53.6721,-23.171 -53.6989,-23.2244 -53.6989,-23.2618 -53.7309,-23.3153 -53.7737,-23.3491 -53.8271,-23.3741 -53.8806,-23.4097 -53.9251,-23.4132 -53.9643,-23.44 -53.9732,-23.4685 -53.9732,-23.4899 -53.9857,-23.5148 -53.9892,-23.5505 -54.007,-23.5879 -54.0035,-23.6181 -54.0338,-23.7001 -54.0355,-23.7232 -54.0533,-23.7517 -54.064,-23.807 -54.0676,-23.8693 -54.0712,-23.9227 -54.0908,-23.9637 -54.1584,-23.9958 -54.1882,-24.0171 -54.1757,-24.0265 -54.2015,-24.0385 -54.2262,-24.0581 -54.2575,-24.0903 -54.2685,-24.1208 -54.2485,-24.2145 -54.2342,-24.23 -54.2118,-24.2452 -54.1949,-24.2658 -54.1812,-24.3261 -54.2077,-24.3856 -54.2252,-24.4014 -54.2442,-24.4231 -54.2547,-24.4421 -54.2627,-24.465 -54.2657,-24.4907 -54.2529,-24.5272 -54.2432,-24.5751 -54.2468,-24.6002 -54.2563,-24.6343 -54.262,-24.6518 -54.3277,-24.7765 -54.3393,-24.8109 -54.3842,-24.9892 -54.3891,-25.0383 -54.386,-25.0616 -54.3541,-25.1047 -54.3583,-25.1247 -54.436,-25.252 -54.4548,-25.2747 -54.4798,-25.3037 -54.5047,-25.3258 -54.5466,-25.4171 -54.529,-25.4816 -54.5291,-25.5442 -54.4767,-25.5413 -54.3993,-25.5916 -54.3827,-25.6042 -54.3144,-25.5518 -54.244,-25.5264 -54.2092,-25.5239 -54.1083,-25.5332 -54.0869,-25.5066 -54.0385,-25.4676 -53.8196,-25.6048 -53.7927,-25.6565 -53.7563,-25.7722 -53.7569,-25.7938 -53.7657,-25.8524 -53.7578,-25.9222 -53.6696,-26.0585 -53.5954,-26.164 -53.5854,-26.1881 -53.581,-26.2204 -53.5815,-26.2333 -53.5852,-26.2478 -53.5999,-26.2803 -53.6222,-26.3053 -53.6429,-26.3344 -53.6406,-26.4814 -53.6568,-26.6268 -53.6665,-26.6659 -53.648,-26.7525 -53.6293,-26.8527 -53.6363,-26.8813 -53.6649,-26.9476 -53.6763,-26.9723 -53.7385,-27.0986 -53.7694,-27.1406 -53.7885,-27.1185 -53.8304,-27.1245 -53.9361,-27.1604 -53.9569,-27.1945 -53.9789,-27.2195 -54.0012,-27.2374 -54.0222,-27.2524 -54.0441,-27.2599 -54.0757,-27.2591 -54.1642,-27.3505 -54.2101,-27.3937 -54.2877,-27.4259 -54.3806,-27.4382 -54.4592,-27.4599 -54.5563,-27.5 -54.6155,-27.5244 -54.7005,-27.5339 -54.7188,-27.5227 -54.7218,-27.5021 -54.743,-27.5046 -54.8275,-27.6392 -54.8309,-27.6798 -54.8373,-27.6989 -54.9504,-27.8025 -54.9925,-27.8142 -55.1084,-27.8248 -55.2496,-27.8908 -55.3026,-27.942 -55.3078,-27.9618 -55.3086,-27.9942 -55.3759,-28.0552 -55.5104,-28.1014 -55.5543,-28.1092 -55.562,-28.127 -55.6067,-28.1636 -55.6374,-28.177 -55.6763,-28.1852 -55.698,-28.2039 -55.6952,-28.2245 -55.6456,-28.2489 -55.6086,-28.2704 -55.5957,-28.3037 -55.6256,-28.3756 -55.6486,-28.3555 -55.6608,-28.3312 -55.7608,-28.3212 -55.7975,-28.3244 -55.8208,-28.3377 -55.9062,-28.4564 -55.9387,-28.529 -55.9936,-28.5937 -56.0974,-28.6959 -56.2028,-28.7442 -56.2226,-28.765 -56.2288,-28.7993 -56.34,-29.0135 -56.3542,-29.0368 -56.4418,-29.06 -56.461,-29.0707 -56.4983,-29.0921 -56.5189,-29.108 -56.5517,-29.1416 -56.5706,-29.1677 -56.5815,-29.1978 -56.5817,-29.2304 -56.6223,-29.3101 -56.7397,-29.4339 -56.8392,-29.5254 -56.9708,-29.6725 -57.002,-29.7046 -57.0297,-29.7285 -57.0705,-29.7428 -57.1205,-29.7439 -57.1535,-29.7471 -57.1832,-29.7579 -57.2057,-29.772 -57.2231,-29.7921 -57.2443,-29.8415 -57.2446,-29.8771 -57.2509,-29.9445 -57.2701,-29.9663 -57.4121,-30.0983 -57.4589,-30.1293 -57.4792,-30.1388 -57.5075,-30.1467 -57.5329,-30.1508 -57.5118,-30.159 415,-3.0,Brazil -54.8071,2.0121 -54.7628,1.9868 -54.7429,1.7613 -54.6899,1.7627 -54.5898,1.7856 -54.4983,1.7513 -54.3668,1.7627 -54.2867,1.7227 -54.1895,1.6455 -54.178,1.6683 -54.1294,1.6111 -54.0951,1.6083 -54.1123,1.5797 -54.0808,1.5482 -54.0923,1.5196 -54.08,1.5053 -54.0791,1.5042 -54.0751,1.4996 -54.0688,1.5006 -54.067,1.5009 -54.0379,1.5054 -54.0151,1.5196 -53.9779,1.5196 -53.975,1.4911 -53.9521,1.4853 -53.9321,1.4625 -53.9178,1.4482 -53.9169,1.4474 -53.8892,1.4224 -53.8978,1.4024 -53.8521,1.4024 -53.8635,1.3853 -53.8263,1.3853 -53.8211,1.4138 -53.8201,1.4135 -53.8042,1.4079 -53.7763,1.4123 -53.7676,1.3966 -53.7537,1.3905 -53.7406,1.4123 -53.7423,1.4341 -53.7301,1.4393 -53.7136,1.4367 -53.7118,1.4288 -53.7266,1.4227 -53.7118,1.4132 -53.69,1.4114 -53.6761,1.4297 -53.6639,1.4297 -53.6595,1.414 -53.663,1.3861 -53.6612,1.3678 -53.6525,1.3608 -53.6325,1.3704 -53.6054,1.3757 -53.5906,1.373 -53.5758,1.3643 -53.5549,1.3687 -53.5479,1.3469 -53.5636,1.3338 -53.5645,1.3242 -53.5636,1.3094 -53.5427,1.2911 -53.5418,1.2763 -53.5496,1.2562 -53.5505,1.244 -53.5357,1.2414 -53.4973,1.2545 -53.445,1.2649 -53.4284,1.2475 -53.4215,1.2135 -53.4101,1.2039 -53.4058,1.1873 -53.4119,1.1777 -53.4389,1.1708 -53.4616,1.169 -53.4668,1.1403 -53.4607,1.0993 -53.4311,1.0426 -53.4415,1.0155 -53.4249,0.9981 -53.4188,0.9379 -53.3962,0.924 -53.3875,0.91 -53.3526,0.8891 -53.3299,0.8464 -53.3099,0.8159 -53.2741,0.7854 -53.2139,0.7662 -53.1294,0.7505 -53.1163,0.7427 -53.111,0.7069 -53.1102,0.6825 -53.1294,0.6163 -53.1294,0.5788 -53.1407,0.5291 -53.1294,0.4707 -53.132,0.4 -53.1268,0.3826 -53.1041,0.3373 -53.091,0.2972 -53.0736,0.2754 -53.0466,0.2579 -53.0387,0.2248 -53.0335,0.2012 -53.023,0.1768 -53.0099,0.1489 -53.0056,0.1141 -53.0082,0.0914 -53.0161,0.0565 -53.0161,0.0347 -53.0047,0.0129 -52.9829,-0.0071 -52.9716,-0.015 -52.9698,-0.0472 -52.955,-0.0934 -52.9437,-0.1353 -52.9315,-0.157 -52.9245,-0.1884 -52.8713,-0.2041 -52.8199,-0.1753 -52.8094,-0.1849 -52.7893,-0.2015 -52.7867,-0.2207 -52.7405,-0.2573 -52.7083,-0.2913 -52.6917,-0.3183 -52.6856,-0.3488 -52.6603,-0.3646 -52.6324,-0.3803 -52.6263,-0.3968 -52.6271,-0.4901 -52.6359,-0.5067 -52.6376,-0.5355 -52.6298,-0.5669 -52.6149,-0.5991 -52.6018,-0.6139 -52.5739,-0.6165 -52.5469,-0.6165 -52.5303,-0.6357 -52.5216,-0.661 -52.5225,-0.6941 -52.5059,-0.7386 -52.5146,-0.7796 -52.5207,-0.7987 -52.5103,-0.8293 -52.5216,-0.8694 -52.5085,-0.8824 -52.451,-0.8668 -52.4231,-0.8598 -52.3917,-0.8746 -52.3716,-0.9016 -52.3682,-0.9243 -52.3821,-0.9444 -52.3943,-0.9679 -52.3769,-0.9984 -52.3769,-1.0281 -52.3708,-1.0464 -52.3673,-1.0664 -52.3481,-1.0734 -52.3185,-1.0847 -52.2845,-1.1205 -52.2557,-1.1414 -52.2121,-1.1475 -52.1371,-1.1519 -52.111,-1.158 -52.0927,-1.1754 -52.0822,-1.2129 -52.0613,-1.2173 -52.0517,-1.2068 -52.0552,-1.178 -52.0273,-1.1649 -52.0072,-1.1684 -51.9898,-1.1588 -51.9793,-1.1353 -51.9053,-1.1517 -51.9386,-1.3395 -52.0798,-1.3975 -52.073,-1.4039 -52.041,-1.4153 -52.0168,-1.4178 -51.9873,-1.4163 -51.9517,-1.4047 -51.8691,-1.333 -51.8585,-1.2993 -51.864,-1.2441 -51.877,-1.1966 -51.8613,-1.1652 -51.8429,-1.1491 -51.8185,-1.1475 -51.7787,-1.139 -51.6541,-1.0223 -51.6564,-0.9795 -51.6621,-0.9514 -51.665,-0.9062 -51.6628,-0.8684 -51.6557,-0.7859 -51.6418,-0.7515 -51.5471,-0.6343 -51.4494,-0.5293 -51.4122,-0.5047 -51.3951,-0.4876 -51.3434,-0.4022 -51.3237,-0.3673 -51.3069,-0.326 -51.2997,-0.2954 -51.2922,-0.2757 -51.2615,-0.2244 -51.24,-0.1911 -51.1959,-0.1374 -51.1676,-0.116 -51.1531,-0.1027 -51.1302,-0.0973 -51.1069,-0.0937 -51.081,-0.0821 -51.0455,-0.0623 -51.0338,-0.0535 -51.0294,-0.0501 -51.0108,-0.0251 -51.0031,1.0E-4 -50.9835,0.035 -50.9487,0.0826 -50.9279,0.1099 -50.9008,0.1387 -50.8807,0.1525 -50.8547,0.1606 -50.8081,0.1723 -50.7676,0.1728 -50.7478,0.1664 -50.7257,0.1767 -50.7032,0.1958 -50.5831,0.3363 -50.5397,0.3893 -50.5172,0.4216 -50.5078,0.4392 -50.4506,0.5468 -50.432,0.583 -50.4151,0.6215 -50.3932,0.6611 -50.3633,0.6789 -50.34,0.6897 -50.2952,0.7216 -50.2555,0.7525 -50.1805,0.8876 -49.9732,1.0483 -50.0182,0.9801 -50.018,0.9438 -49.9681,0.9286 -49.9533,0.9342 -49.9278,0.9528 -49.8945,0.9847 -49.8863,0.9977 -49.88,1.0304 -49.8916,1.0533 -49.9066,1.0543 -49.9456,1.0541 -49.9638,1.0553 -49.9247,1.0856 -49.8849,1.1175 -49.8584,1.1489 -49.8471,1.1731 -49.8475,1.196 -49.8552,1.234 -49.8729,1.2488 -49.9104,1.23 -49.9394,1.2216 -50.0139,1.2085 -50.0541,1.2121 -50.0299,1.2334 -49.9872,1.2475 -49.9662,1.253 -49.9194,1.261 -49.8367,1.3228 -49.8225,1.444 -49.8254,1.5159 -49.8265,1.5371 -49.8293,1.5578 -49.8329,1.5787 -49.8758,1.7083 -49.9586,1.7629 -49.9924,1.7783 -50.1365,1.8232 -50.2714,1.8282 -50.3458,1.8176 -50.3883,1.8239 -50.41,1.8406 -50.4287,1.8613 -50.4445,1.884 -50.5365,2.0254 -50.6227,2.1623 -50.7261,2.4845 -50.7591,2.6167 -50.7686,2.6547 -50.7927,2.7376 -50.8565,2.8709 -50.9345,3.039 -50.9604,3.1046 -50.966,3.1267 -50.9933,3.2549 -50.9974,3.2785 -51.0034,3.3271 -51.0083,3.3754 -51.0191,3.5817 -51.0206,3.6327 -51.0136,3.7292 -51.0214,3.8824 -51.0349,3.9087 -51.059,3.9022 -51.0792,3.8714 -51.1073,3.8909 -51.1093,3.9929 -51.1329,4.0513 -51.1428,4.0696 -51.201,4.148 -51.2736,4.2258 -51.4892,4.381 -51.5006,4.3593 -51.5011,4.3259 -51.5001,4.3 -51.496,4.2766 -51.4898,4.2556 -51.4516,4.1298 -51.4442,4.1096 -51.4214,4.0508 -51.4007,4.0168 -51.3892,3.9681 -51.4458,4.0552 -51.4817,4.149 -51.5478,4.1117 -51.5555,4.092 -51.5781,4.0525 -51.6146,4.0317 -51.6254,4.0298 -51.6452,4.0219 -51.6696,4.0115 -51.6949,3.996 -51.7127,3.9793 -51.7248,3.9567 -51.7348,3.9125 -51.7533,3.8724 -51.8474,3.7866 -51.8679,3.7729 -51.922,3.6961 -51.9309,3.6534 -51.9367,3.6219 -52.041,3.4451 -52.106,3.3384 -52.1674,3.2497 -52.1905,3.2402 -52.2143,3.2377 -52.2857,3.1539 -52.2939,3.1282 -52.2856,3.085 -52.2926,3.0368 -52.3198,2.9708 -52.3494,2.919 -52.4048,2.8104 -52.4604,2.6948 -52.4933,2.6184 -52.4807,2.5837 -52.4829,2.5626 -52.5044,2.5195 -52.5352,2.4711 -52.616,2.3717 -52.7297,2.3009 -52.8232,2.2225 -52.8368,2.2046 -52.8952,2.174 -52.9344,2.1734 -52.995,2.1846 -53.0096,2.2007 -53.0275,2.2172 -53.0521,2.2201 -53.136,2.2113 -53.1793,2.206 -53.1662,2.2621 -53.2366,2.3164 -53.2596,2.3455 -53.2803,2.3472 -53.288,2.3204 -53.3985,2.2551 -53.4676,2.247 -53.641,2.3077 -53.661,2.3391 -53.6855,2.3684 -53.7162,2.3622 -53.7388,2.3499 -53.8493,2.2746 -53.8674,2.2503 -53.8719,2.2258 -54.0488,2.1113 -54.2595,2.1591 -54.4031,2.2092 -54.4572,2.2551 -54.4658,2.2869 -54.4797,2.3127 -54.5123,2.3226 -54.5331,2.3298 -54.5422,2.3265 -54.5731,2.3175 -54.6258,2.3231 -54.6473,2.3854 -54.6283,2.3971 -54.6282,2.4488 -54.6914,2.4678 -54.7137,2.4542 -54.7419,2.4356 -54.7615,2.4346 -54.7363,2.3913 -54.7031,2.2985 -54.7495,2.199 -54.796,2.1791 -54.7429,2.0863 -54.8092,2.0133 -54.8071,2.0121 9,8.0,Malaysia 118.2596,4.6708 118.3441,4.684 118.4414,4.6459 118.461,4.6334 118.4333,4.5942 118.3946,4.5953 118.2152,4.6668 118.2596,4.6708 118.2596,4.6708 303,3.0,Kenya 33.9583,4.2183 34.0575,4.3157 34.335,4.5915 34.3492,4.6046 34.3685,4.6055 34.4429,4.606 34.6736,4.607 34.7344,4.6073 34.7817,4.6072 34.9105,4.6078 35.1072,4.6087 35.4686,4.6117 35.5066,4.6117 35.5403,4.6119 35.568,4.6128 35.6014,4.6122 35.6353,4.6125 35.6586,4.6141 35.6691,4.6129 35.8591,4.6148 35.8996,4.6176 35.9104,4.5162 36.0042,4.442 36.1702,4.4431 36.2304,4.4343 36.3923,4.4369 36.6058,4.4418 36.6246,4.4289 36.6704,4.4291 36.8459,4.4299 36.9978,4.3706 37.0571,4.3271 37.0881,4.2817 37.2384,4.1898 37.9553,3.7244 37.9907,3.6942 38.0133,3.648 38.0782,3.6079 38.2807,3.605 38.4047,3.5957 38.4734,3.6228 38.5784,3.5976 38.6857,3.5633 38.7661,3.5393 38.8695,3.5102 38.9126,3.5148 39.002,3.5251 39.0405,3.5304 39.0858,3.5069 39.1526,3.4747 39.2047,3.4676 39.2518,3.4729 39.2844,3.496 39.2871,3.4655 39.3781,3.4564 39.4063,3.4588 39.4552,3.4462 39.4577,3.4191 39.4744,3.4055 39.5158,3.4028 39.5503,3.4972 39.7379,3.6743 39.8214,3.8654 39.9547,3.9244 40.1371,4.0182 40.343,4.0942 40.3531,4.1186 40.626,4.224 40.7377,4.2831 40.8073,4.2301 40.8308,4.2121 40.9631,4.1043 41.0017,4.0559 41.0173,4.027 41.047,3.9921 41.0683,3.9716 41.0885,3.9542 41.114,3.9417 41.1344,3.9374 41.2272,3.9367 41.4222,3.945 41.4407,3.9568 41.488,3.9717 41.5643,3.9848 41.6786,3.9956 41.734,3.9775 41.7536,3.9561 41.7926,3.9443 41.8444,3.9654 41.8577,3.9758 41.8489,3.96 41.7505,3.8206 41.2904,3.1642 41.2399,3.1149 40.9453,2.8323 40.9426,2.7139 40.9428,2.3069 40.9429,1.3127 40.943,1.0E-4 40.9526,-0.8649 41.1077,-1.0666 41.3352,-1.3628 41.5086,-1.5901 41.5117,-1.6728 41.4918,-1.6874 41.432,-1.7507 41.4084,-1.7815 41.3915,-1.8054 41.3879,-1.8258 41.368,-1.8503 41.2691,-1.9558 41.2339,-1.9677 41.1546,-1.9702 41.0596,-1.9796 40.9456,-2.0316 40.8458,-2.0166 40.8645,-2.1202 40.899,-2.21 40.9243,-2.2281 40.936,-2.2545 40.9124,-2.3015 40.8752,-2.3131 40.8799,-2.2854 40.8443,-2.223 40.809,-2.2333 40.7934,-2.2456 40.7402,-2.2976 40.7384,-2.3275 40.7668,-2.3563 40.7784,-2.3805 40.7678,-2.3974 40.5848,-2.5496 40.5464,-2.551 40.5182,-2.5388 40.4873,-2.5235 40.4403,-2.5321 40.3767,-2.5512 40.337,-2.5658 40.2932,-2.5909 40.2666,-2.6064 40.2326,-2.6268 40.1859,-2.6681 40.1444,-2.7398 40.1264,-2.7766 40.1192,-2.8903 40.121,-2.9291 40.1324,-2.9797 40.1127,-3.077 40.074,-3.1867 40.0865,-3.2174 40.0803,-3.2617 40.0625,-3.2883 40.0175,-3.3112 39.98,-3.3367 39.9291,-3.3718 39.8898,-3.4628 39.8263,-3.6158 39.8257,-3.6375 39.827,-3.6697 39.8225,-3.6911 39.7914,-3.7943 39.784,-3.8146 39.7605,-3.8709 39.7366,-3.9214 39.6761,-4.0124 39.6483,-4.0478 39.6267,-4.0876 39.4805,-4.4125 39.3578,-4.6286 39.281,-4.6344 39.2606,-4.5967 39.2111,-4.6066 39.1584,-4.6643 39.1173,-4.6339 38.9935,-4.5447 38.677,-4.3175 38.5805,-4.2485 38.4429,-4.1502 38.3739,-4.1009 37.8086,-3.6964 37.7404,-3.6469 37.7221,-3.6112 37.7136,-3.5743 37.7075,-3.5464 37.6949,-3.5244 37.6438,-3.5085 37.5839,-3.5052 37.5576,-3.4463 37.5577,-3.4208 37.5679,-3.3976 37.648,-3.3127 37.6774,-3.308 37.67,-3.2635 37.6555,-3.1829 37.6327,-3.0477 37.5606,-2.9924 37.4804,-2.9456 37.4591,-2.9346 37.383,-2.9033 37.2366,-2.8221 37.1807,-2.7912 37.1542,-2.7756 36.6442,-2.4939 36.2848,-2.2957 36.1127,-2.1974 35.9929,-2.1303 35.8405,-2.046 35.6384,-1.9335 35.2296,-1.7052 34.6783,-1.3973 34.4617,-1.2762 34.3712,-1.2257 34.0373,-1.0379 33.9809,-0.9996 33.9103,-0.9998 33.8832,-1.0005 33.8854,-0.9518 33.8807,-0.4522 33.9139,-0.2712 33.9381,-0.134 33.9284,-0.1005 33.9125,-0.0478 33.8989,3.0E-4 33.8852,0.0487 33.8748,0.0826 33.8694,0.1031 33.944,0.2051 34.0155,0.3015 34.0682,0.3876 34.1255,0.6079 34.1754,0.6322 34.2104,0.6389 34.231,0.6477 34.3725,0.8212 34.4038,0.871 34.4418,0.9583 34.447,0.9829 34.4447,1.0108 34.4493,1.0421 34.4657,1.0796 34.4813,1.1046 34.537,1.0917 34.5585,1.1492 34.653,1.2069 34.7009,1.213 34.7257,1.2157 34.7628,1.2206 34.7815,1.2348 34.7909,1.2678 34.7899,1.2935 34.783,1.3145 34.7649,1.3337 34.7532,1.3922 34.7568,1.3969 34.8141,1.4267 34.825,1.4579 34.8351,1.5046 34.8462,1.5294 34.8613,1.5515 34.8791,1.5614 34.9044,1.5672 34.9199,1.5857 34.9605,1.6684 34.9705,1.8933 34.9552,2.0827 34.9026,2.2213 34.88,2.2753 34.8487,2.3548 34.8421,2.3757 34.8409,2.401 34.8703,2.5185 34.8043,2.5948 34.7535,2.6777 34.7503,2.6978 34.7426,2.7867 34.7164,2.8467 34.6732,2.8749 34.6467,2.8607 34.6265,2.8577 34.5543,2.9337 34.5434,3.0038 34.5335,3.0794 34.5227,3.1036 34.506,3.1242 34.4699,3.1417 34.415,3.2421 34.365,3.3815 34.3646,3.4803 34.3966,3.4962 34.4145,3.5171 34.4261,3.6106 34.4247,3.6606 34.3429,3.7276 34.3223,3.7338 34.1836,3.775 34.1461,3.8358 34.0897,3.9474 34.0495,4.0929 34.0246,4.1689 34.0109,4.1861 33.9876,4.2033 33.9583,4.2183 33.9583,4.2183 27,8.0,Indonesia 126.6062,3.9797 126.5564,3.9914 126.547,4.0655 126.5679,4.0786 126.5886,4.101 126.645,4.2082 126.6449,4.2318 126.633,4.2427 126.5941,4.2538 126.5752,4.2564 126.566,4.266 126.5487,4.3212 126.5462,4.3548 126.5771,4.4981 126.5813,4.5094 126.5975,4.5348 126.6306,4.5314 126.6714,4.5217 126.7163,4.4812 126.7716,4.2713 126.7684,4.257 126.7266,4.2036 126.66,4.041 126.6526,4.0164 126.6186,3.983 126.6062,3.9797 126.6062,3.9797 14,1.0,Nigeria 7.1723,4.3729 7.1588,4.3736 7.1375,4.3776 7.1277,4.3871 7.2178,4.515 7.24,4.5066 7.2855,4.4823 7.3086,4.4674 7.3017,4.4056 7.2907,4.3996 7.2063,4.3779 7.1955,4.3757 7.1723,4.3729 7.1723,4.3729 13,-5.0,Colombia -77.3112,4.3174 -77.2881,4.3045 -77.2679,4.2582 -77.2316,4.2469 -77.245,4.2348 -77.4121,4.2052 -77.4601,4.1916 -77.4503,4.2279 -77.3448,4.327 -77.3345,4.3297 -77.3222,4.3249 -77.3112,4.3174 -77.3112,4.3174 16,8.0,Malaysia 117.5534,4.1637 117.5101,4.2082 117.5055,4.224 117.5163,4.2336 117.5521,4.2553 117.5903,4.2552 117.6124,4.2536 117.6264,4.2506 117.6359,4.2463 117.652,4.2348 117.7698,4.1695 117.7456,4.1686 117.7059,4.1672 117.5931,4.1653 117.5534,4.1637 117.5534,4.1637 262,3.0,Uganda 33.9583,4.2183 33.9876,4.2033 34.0109,4.1861 34.0246,4.1689 34.0495,4.0929 34.0897,3.9474 34.1461,3.8358 34.1836,3.775 34.3223,3.7338 34.3429,3.7276 34.4247,3.6606 34.4261,3.6106 34.4145,3.5171 34.3966,3.4962 34.3646,3.4803 34.365,3.3815 34.415,3.2421 34.4699,3.1417 34.506,3.1242 34.5227,3.1036 34.5335,3.0794 34.5434,3.0038 34.5543,2.9337 34.6265,2.8577 34.6467,2.8607 34.6732,2.8749 34.7164,2.8467 34.7426,2.7867 34.7503,2.6978 34.7535,2.6777 34.8043,2.5948 34.8703,2.5185 34.8409,2.401 34.8421,2.3757 34.8487,2.3548 34.88,2.2753 34.9026,2.2213 34.9552,2.0827 34.9705,1.8933 34.9605,1.6684 34.9199,1.5857 34.9044,1.5672 34.8791,1.5614 34.8613,1.5515 34.8462,1.5294 34.8351,1.5046 34.825,1.4579 34.8141,1.4267 34.7568,1.3969 34.7532,1.3922 34.7649,1.3337 34.783,1.3145 34.7899,1.2935 34.7909,1.2678 34.7815,1.2348 34.7628,1.2206 34.7257,1.2157 34.7009,1.213 34.653,1.2069 34.5585,1.1492 34.537,1.0917 34.4813,1.1046 34.4657,1.0796 34.4493,1.0421 34.4447,1.0108 34.447,0.9829 34.4418,0.9583 34.4038,0.871 34.3725,0.8212 34.231,0.6477 34.2104,0.6389 34.1754,0.6322 34.1255,0.6079 34.0682,0.3876 34.0155,0.3015 33.944,0.2051 33.8694,0.1031 33.8748,0.0826 33.8852,0.0487 33.8989,3.0E-4 33.9125,-0.0478 33.9284,-0.1005 33.9381,-0.134 33.9139,-0.2712 33.8807,-0.4522 33.8854,-0.9518 33.8832,-1.0005 33.4233,-0.999 33.4014,-0.9994 33.3686,-0.9991 33.2588,-0.9988 33.1492,-0.9984 33.0738,-0.9989 32.9644,-0.9987 32.8536,-0.9985 32.7059,-0.9984 32.6475,-0.9988 32.5791,-0.999 32.4488,-0.9988 31.6419,-0.9985 31.5116,-0.9982 31.2582,-0.9976 31.2376,-0.997 31.0252,-0.9961 30.8542,-0.9958 30.7219,-0.9963 30.6626,-1.0134 30.5592,-1.0643 30.4483,-1.0619 30.4425,-1.0579 30.418,-1.0532 30.327,-1.0596 30.2813,-1.1421 30.2641,-1.1832 30.2497,-1.2082 30.1953,-1.265 30.1379,-1.3133 30.0754,-1.3659 29.946,-1.4605 29.9032,-1.4738 29.8961,-1.4742 29.8767,-1.4631 29.8571,-1.431 29.8513,-1.4 29.8509,-1.3688 29.8218,-1.3254 29.8018,-1.318 29.6841,-1.3459 29.6646,-1.3657 29.6443,-1.3799 29.6077,-1.3849 29.5842,-1.3855 29.5639,-1.3839 29.5732,-1.3191 29.5658,-1.2129 29.5414,-1.1859 29.542,-0.915 29.5512,-0.8946 29.5858,-0.8905 29.6001,-0.7867 29.5861,-0.7425 29.6017,-0.6404 29.6335,-0.5798 29.6195,-0.4758 29.6157,-0.4392 29.6377,-0.304 29.6547,-0.2023 29.6758,-0.0743 29.7,-0.0030 29.6849,0.0429 29.6855,0.077 29.6988,0.1046 29.7472,0.1732 29.7735,0.1628 29.806,0.2773 29.825,0.3663 29.8792,0.4287 29.9265,0.4832 29.9222,0.5511 29.9053,0.6238 29.914,0.7871 29.9242,0.8176 29.9337,0.8352 29.9531,0.8459 29.9575,0.8499 29.9825,0.8659 30.0025,0.8738 30.0529,0.8924 30.0975,0.8945 30.1218,0.9083 30.1837,0.9934 30.1857,1.0427 30.1798,1.0641 30.2004,1.1297 30.2406,1.1658 30.3367,1.1972 30.4037,1.2008 30.422,1.2116 30.45,1.24 30.5149,1.3202 30.6369,1.4718 30.6612,1.4986 30.8137,1.6173 31.002,1.7636 31.1747,1.9852 31.2679,2.1191 31.2642,2.1605 31.1675,2.2266 31.0344,2.3227 30.9681,2.3945 30.95,2.4066 30.9291,2.4093 30.9051,2.3978 30.8922,2.3581 30.8802,2.3399 30.8517,2.3341 30.6953,2.4453 30.6966,2.4708 30.7216,2.5981 30.7524,2.672 30.7824,2.7363 30.817,2.7824 30.8417,2.837 30.8448,2.8829 30.8176,2.9597 30.7714,3.0102 30.7377,3.0255 30.729,3.0484 30.7475,3.1264 30.7933,3.2369 30.825,3.2867 30.8479,3.3209 30.8995,3.4102 30.8901,3.5071 30.8713,3.5208 30.824,3.4897 30.8339,3.5186 30.8566,3.5617 30.9198,3.667 30.944,3.6903 31.1415,3.7913 31.1688,3.7915 31.2513,3.7907 31.3416,3.7413 31.424,3.6949 31.5052,3.6495 31.6684,3.7103 31.7128,3.7572 31.7536,3.8047 31.7856,3.8028 31.8176,3.7807 31.8962,3.6853 31.9102,3.6177 31.9151,3.5898 31.9897,3.5874 32.0325,3.5784 32.0408,3.5551 32.0544,3.5321 32.075,3.523 32.0994,3.5171 32.1582,3.5091 32.1644,3.5712 32.1636,3.6058 32.3679,3.7396 32.4423,3.7416 32.5983,3.7478 32.6323,3.7494 32.6825,3.7518 32.7634,3.7766 32.8375,3.7998 32.861,3.8076 32.9011,3.8332 32.9412,3.8592 32.9793,3.8844 33.0896,3.804 33.1463,3.762 33.2073,3.76 33.35,3.754 33.4732,3.7486 33.4856,3.7544 33.9583,4.2183 33.9583,4.2183 35,7.0,Indonesia 107.9393,3.8478 107.9312,3.8565 107.909,3.8995 107.8822,3.9549 107.8692,4.0197 107.9033,4.0611 107.9124,4.0656 107.9358,4.0662 107.9461,4.0729 108.0403,4.1684 108.0587,4.1918 108.1287,4.1755 108.1314,4.1439 108.1349,4.1269 108.1476,4.0986 108.2406,4.0074 108.2675,3.9865 108.2748,3.9727 108.2839,3.8687 108.2712,3.823 108.2677,3.8126 108.2617,3.7987 108.1985,3.6788 108.1887,3.6715 108.0564,3.6435 107.9948,3.6719 107.9722,3.6907 107.9775,3.7023 108.0066,3.7393 108.0495,3.7741 108.0652,3.7854 108.079,3.7924 108.0429,3.8135 107.9393,3.8478 107.9393,3.8478 19,8.0,Indonesia 117.5534,4.1637 117.5931,4.1653 117.7059,4.1672 117.7456,4.1686 117.7698,4.1695 117.78,4.1364 117.7955,4.0519 117.7881,4.0423 117.7758,4.0343 117.7628,4.0267 117.7531,4.0226 117.7338,4.0224 117.7198,4.0271 117.7109,4.0319 117.6986,4.0404 117.6842,4.054 117.5766,4.1448 117.5534,4.1637 117.5534,4.1637 21,8.0,Indonesia 117.4773,4.0975 117.4786,4.1018 117.498,4.1234 117.5105,4.1348 117.5274,4.1374 117.5388,4.1316 117.6116,4.0732 117.6173,4.0613 117.6169,4.0459 117.5953,3.9958 117.5862,3.9876 117.5531,3.9694 117.5413,3.9708 117.5268,3.9802 117.4723,4.0217 117.4659,4.0421 117.463,4.0598 117.4615,4.0726 117.4656,4.0854 117.4773,4.0975 117.4773,4.0975 12,8.0,Indonesia 126.5619,3.7903 126.5529,3.7929 126.5411,3.8103 126.4674,3.9725 126.4597,4.0325 126.4752,4.0337 126.4992,4.016 126.5795,3.9079 126.583,3.8814 126.5694,3.7958 126.5619,3.7903 126.5619,3.7903 22,8.0,Indonesia 125.7385,3.3581 125.7241,3.3732 125.6496,3.4085 125.5932,3.5186 125.5249,3.6281 125.5032,3.6543 125.5013,3.6762 125.5063,3.6959 125.5183,3.7117 125.5315,3.72 125.5436,3.7235 125.5874,3.7186 125.6088,3.7103 125.619,3.7034 125.6357,3.6892 125.6471,3.6789 125.7699,3.4852 125.7777,3.4181 125.7544,3.3748 125.7432,3.3598 125.7385,3.3581 125.7385,3.3581 586,1.0,Congo 16.1889,2.2187 16.2528,2.353 16.2874,2.4275 16.3858,2.6368 16.423,2.7171 16.4619,2.799 16.4833,2.8465 16.4772,2.8811 16.4509,2.9078 16.4478,2.9464 16.4642,3.1515 16.474,3.1776 16.4863,3.1992 16.5091,3.2306 16.54,3.3274 16.55,3.4065 16.5549,3.4459 16.5675,3.4741 16.6244,3.519 16.6455,3.5317 16.6805,3.5413 16.8575,3.562 16.9382,3.5508 17.0903,3.5636 17.3293,3.6092 17.3962,3.6764 17.4439,3.7072 17.4714,3.7059 17.5023,3.6821 17.544,3.6493 17.5955,3.6257 17.6223,3.6254 17.6611,3.6261 17.7435,3.6234 17.8092,3.6119 17.8198,3.5822 17.8378,3.5329 17.8894,3.5489 18.0229,3.5621 18.0455,3.5632 18.0904,3.5584 18.1271,3.5438 18.1419,3.5213 18.1489,3.4864 18.1733,3.4785 18.1942,3.484 18.2147,3.4975 18.2299,3.5227 18.2416,3.5605 18.4311,3.6123 18.4589,3.637 18.51,3.5974 18.5473,3.5352 18.5604,3.4972 18.58,3.4777 18.6038,3.4757 18.6112,3.4497 18.6225,3.315 18.621,3.2042 18.5949,3.1346 18.5773,3.1152 18.5588,3.0998 18.5384,3.0862 18.5202,3.073 18.4494,2.9126 18.3925,2.7733 18.3623,2.6989 18.3222,2.6098 18.2966,2.5746 18.2799,2.561 18.254,2.5463 18.2167,2.519 18.2069,2.4877 18.2068,2.4552 18.2032,2.4134 18.1864,2.3859 18.142,2.3249 18.1067,2.2994 18.0901,2.278 18.0716,2.2202 18.0549,2.0646 18.0523,2.0344 18.0452,1.873 18.0529,1.755 18.0577,1.7271 18.0585,1.6672 18.0557,1.5615 18.0501,1.5271 17.9589,1.2444 17.9326,1.1727 17.9188,1.1385 17.9055,1.1141 17.8791,1.0792 17.865,1.0518 17.8576,1.0289 17.8537,0.9915 17.8556,0.9694 17.8618,0.9323 17.8695,0.8983 17.8792,0.8623 17.8859,0.8282 17.8876,0.7954 17.8836,0.7416 17.8698,0.6869 17.875,0.5996 17.902,0.5571 17.9467,0.4746 17.9484,0.4526 17.9411,0.3994 17.9361,0.3695 17.926,0.3423 17.9113,0.3229 17.8927,0.3009 17.8532,0.2575 17.82,0.2186 17.7823,0.1435 17.7768,0.1193 17.7504,0.0185 17.7234,-0.0639 17.7062,-0.1144 17.6958,-0.1419 17.6904,-0.1738 17.6893,-0.2034 17.6902,-0.2266 17.6957,-0.2589 17.7169,-0.3164 17.7226,-0.3384 17.7262,-0.3759 17.7216,-0.4127 17.7165,-0.4489 17.7023,-0.5094 17.6923,-0.5438 17.6778,-0.574 17.6619,-0.6028 17.5988,-0.694 17.5387,-0.7626 17.5293,-0.7785 17.3783,-0.94 17.3036,-1.003 17.2793,-1.0192 17.2521,-1.0331 17.2295,-1.0382 17.1934,-1.0433 17.1401,-1.0528 17.1028,-1.067 16.9493,-1.1525 16.9276,-1.1721 16.8597,-1.2351 16.8431,-1.253 16.7826,-1.3227 16.7319,-1.4092 16.7199,-1.4316 16.7011,-1.4677 16.6923,-1.4872 16.6594,-1.5708 16.6529,-1.5893 16.6509,-1.597 16.6384,-1.6378 16.6089,-1.6842 16.585,-1.7224 16.5256,-1.8282 16.5143,-1.8511 16.51,-1.8601 16.4951,-1.88 16.4439,-1.935 16.389,-1.9857 16.3493,-2.0214 16.3191,-2.0464 16.2517,-2.0883 16.2259,-2.1106 16.1888,-2.1564 16.176,-2.1784 16.169,-2.2114 16.1659,-2.2433 16.1657,-2.3041 16.1681,-2.3562 16.1701,-2.3919 16.1975,-2.5243 16.1958,-2.699 16.1898,-2.7204 16.1847,-2.7497 16.1644,-2.8752 16.1639,-2.9084 16.1681,-2.9319 16.1694,-2.9386 16.1778,-2.9971 16.1751,-3.0923 16.1705,-3.1298 16.1786,-3.2602 16.2004,-3.2797 16.209,-3.2987 16.2086,-3.3243 16.2009,-3.3444 16.1691,-3.41 16.1103,-3.5175 16.0879,-3.5565 16.0662,-3.5836 16.0403,-3.6024 15.961,-3.7621 15.9064,-3.8804 15.8725,-3.9383 15.8624,-3.9463 15.8443,-3.9558 15.8181,-3.9673 15.7501,-3.9815 15.6744,-3.9907 15.5669,-4.0274 15.5467,-4.0345 15.5179,-4.0536 15.503,-4.0735 15.4987,-4.0917 15.4684,-4.1354 15.4658,-4.1483 15.4707,-4.1723 15.4683,-4.2126 15.4506,-4.2468 15.434,-4.268 15.3986,-4.2908 15.3738,-4.2853 15.3341,-4.2765 15.3153,-4.2733 15.3109,-4.2722 15.2669,-4.2907 15.2556,-4.3017 15.201,-4.329 15.1791,-4.3487 15.1323,-4.4186 15.1165,-4.4448 15.0753,-4.4969 15.0554,-4.5147 14.9984,-4.5542 14.9098,-4.6446 14.8941,-4.6641 14.8762,-4.6946 14.8584,-4.7324 14.8152,-4.8134 14.6896,-4.8869 14.6525,-4.9014 14.6223,-4.9015 14.5698,-4.8791 14.5461,-4.856 14.4718,-4.8352 14.4024,-4.8817 14.398,-4.8682 14.3955,-4.8216 14.4026,-4.751 14.3674,-4.6198 14.3511,-4.5499 14.3771,-4.5192 14.4008,-4.5088 14.4299,-4.4832 14.4604,-4.4512 14.4708,-4.4241 14.3895,-4.2779 14.3558,-4.2784 14.2853,-4.3032 13.9924,-4.4481 13.9445,-4.4896 13.8899,-4.4843 13.8346,-4.4341 13.7996,-4.4166 13.7674,-4.4188 13.7147,-4.4431 13.7134,-4.4713 13.7242,-4.5052 13.7254,-4.5307 13.724,-4.5568 13.6841,-4.7204 13.5849,-4.7761 13.5637,-4.7737 13.5283,-4.7477 13.4884,-4.7697 13.4996,-4.7878 13.397,-4.877 13.1781,-4.6764 13.1684,-4.6521 13.1608,-4.6254 13.1272,-4.5803 13.1046,-4.5681 13.0802,-4.5735 13.0731,-4.6142 13.0766,-4.6278 13.063,-4.6243 13.0402,-4.6133 13.0234,-4.5992 13.004,-4.5798 12.8994,-4.4706 12.8899,-4.4526 12.8868,-4.4319 12.8825,-4.4122 12.8552,-4.3946 12.7646,-4.3839 12.751,-4.3888 12.7278,-4.4142 12.6772,-4.4743 12.6469,-4.5236 12.6299,-4.5517 12.4486,-4.5869 12.3866,-4.6042 12.3743,-4.6286 12.3815,-4.6598 12.3672,-4.7069 12.3173,-4.7814 12.281,-4.7838 12.2522,-4.7818 12.2013,-4.7545 12.1727,-4.8215 12.1654,-4.849 12.1525,-4.8903 12.0126,-5.0091 11.9876,-5.0092 11.9193,-4.9189 11.8129,-4.7986 11.7932,-4.7717 11.7716,-4.6806 11.7705,-4.6234 11.7847,-4.5994 11.7798,-4.5663 11.7608,-4.5373 11.7396,-4.5109 11.7225,-4.4935 11.6941,-4.4665 11.6254,-4.4041 11.5455,-4.3424 11.3676,-4.1854 11.3511,-4.1571 11.344,-4.1093 11.3305,-4.088 11.301,-4.0623 11.2043,-3.9865 11.1473,-3.9411 11.1283,-3.9207 11.1295,-3.9142 11.1551,-3.8369 11.2141,-3.6889 11.2894,-3.6289 11.4793,-3.5047 11.5137,-3.5026 11.543,-3.5109 11.5707,-3.5308 11.6151,-3.5942 11.6408,-3.634 11.7269,-3.6825 11.8257,-3.7025 11.8627,-3.7017 11.8858,-3.6753 11.8988,-3.6567 11.9086,-3.6232 11.863,-3.5957 11.8439,-3.5878 11.8267,-3.5641 11.8895,-3.4036 11.8995,-3.3861 11.9183,-3.3672 11.9528,-3.3436 11.9602,-3.3221 11.9488,-3.2937 11.7877,-3.2109 11.7692,-3.2022 11.75,-3.1941 11.6931,-3.1739 11.6877,-3.0883 11.702,-3.052 11.721,-3.04 11.7531,-3.0417 11.7916,-3.0118 11.7775,-2.9891 11.634,-2.8202 11.5699,-2.8414 11.5473,-2.8588 11.5298,-2.8281 11.5313,-2.8131 11.5333,-2.7906 11.56,-2.7587 11.577,-2.7401 11.5947,-2.7192 11.6195,-2.6642 11.6332,-2.6115 11.6166,-2.5473 11.5889,-2.4488 11.5605,-2.3335 11.5984,-2.3296 11.6461,-2.3511 11.6696,-2.3765 11.7204,-2.4158 11.7503,-2.3998 11.7883,-2.3695 11.9388,-2.3298 11.963,-2.3381 11.9863,-2.3634 12.0049,-2.3853 12.0211,-2.4038 12.039,-2.414 12.4642,-2.3244 12.4818,-2.2212 12.4883,-2.1311 12.4593,-2.072 12.4342,-2.0219 12.4232,-1.8989 12.4322,-1.8793 12.4398,-1.8758 12.4498,-1.8983 12.4871,-1.9192 12.5106,-1.8884 12.5743,-1.8233 12.6383,-1.8214 12.7107,-1.8568 12.7284,-1.8813 12.7791,-1.8975 12.8056,-1.9084 12.8309,-1.9522 12.8343,-1.9766 12.8864,-2.1403 12.9174,-2.1874 12.9458,-2.1808 12.9865,-2.2292 13.0023,-2.2677 12.9979,-2.3129 12.9869,-2.365 13.0166,-2.3303 13.1882,-2.3576 13.237,-2.3679 13.315,-2.3995 13.3755,-2.4257 13.4695,-2.4319 13.4899,-2.3965 13.5449,-2.3468 13.575,-2.323 13.6773,-2.2177 13.7118,-2.1814 13.7116,-2.1515 13.7492,-2.0884 13.7939,-2.1417 13.8632,-2.3118 13.8488,-2.4203 13.855,-2.468 13.9008,-2.487 14.0663,-2.4933 14.0949,-2.4899 14.1028,-2.4624 14.138,-2.3926 14.1651,-2.369 14.1832,-2.3568 14.2054,-2.2902 14.2378,-2.1239 14.2526,-2.034 14.238,-2.016 14.2431,-1.9714 14.3041,-1.9351 14.3416,-1.9264 14.3554,-1.9261 14.3657,-1.9229 14.3998,-1.9028 14.4121,-1.8824 14.3981,-1.8531 14.3882,-1.5958 14.4218,-1.5671 14.4487,-1.5488 14.461,-1.4315 14.4664,-1.2583 14.4658,-1.2112 14.4383,-1.1259 14.4105,-1.0454 14.4044,-0.9939 14.4128,-0.9256 14.4567,-0.735 14.479,-0.6999 14.4898,-0.6751 14.5035,-0.6123 14.4673,-0.5474 14.4404,-0.5177 14.3973,-0.4759 14.3067,-0.4361 14.2195,-0.4378 14.1766,-0.4442 14.1612,-0.4211 14.1503,-0.3734 14.136,-0.3323 14.1162,-0.2811 14.0545,-0.2513 13.9629,-0.2372 13.9218,-0.2363 13.8898,-0.2643 13.8336,-0.2024 13.8355,-0.1749 13.8465,-0.1449 13.8845,-0.096 13.9249,-0.0377 13.9336,0.0309 13.896,0.1121 13.8702,0.1898 13.8722,0.2186 13.9449,0.3484 14.0583,0.5223 14.0836,0.5433 14.1251,0.5506 14.1564,0.5454 14.1835,0.5355 14.2533,0.5451 14.3309,0.6209 14.4574,0.83 14.4696,0.9162 14.4457,0.9316 14.4093,0.9595 14.3047,1.1051 14.2774,1.1942 14.2773,1.2536 14.2551,1.3288 14.2204,1.3618 14.1756,1.3889 14.1347,1.3944 14.1003,1.3891 14.0828,1.38 14.0612,1.3741 13.9619,1.415 13.8821,1.4385 13.7889,1.434 13.7691,1.3925 13.5581,1.3044 13.454,1.2893 13.35,1.2707 13.2904,1.2333 13.2498,1.2229 13.1904,1.2203 13.1722,1.2211 13.1557,1.2459 13.1691,1.2825 13.2022,1.2935 13.2344,1.3285 13.2318,1.3941 13.221,1.4259 13.2098,1.447 13.1754,1.509 13.1439,1.5368 13.1205,1.5761 13.1284,1.7049 13.1571,1.7624 13.178,1.8062 13.1766,1.8391 13.1675,1.8701 13.1696,1.9269 13.1924,1.9755 13.2554,2.035 13.2749,2.0703 13.2792,2.1611 13.2912,2.1619 13.6465,2.1581 13.7351,2.1582 14.103,2.1557 14.2825,2.15 14.4467,2.1407 14.5465,2.1661 14.6978,2.122 14.7425,2.0704 14.8402,2.0805 14.8705,2.0147 15.0122,1.9849 15.0764,1.9783 15.1063,2.0099 15.1321,2.0364 15.1943,2.0341 15.2222,2.0277 15.2775,1.9744 15.4312,1.9668 15.4742,1.9726 15.5017,1.959 15.6286,1.9292 15.6698,1.9314 15.7397,1.9066 15.863,1.8184 15.9605,1.7693 16.0082,1.7286 16.0121,1.7081 16.0273,1.6725 16.0541,1.6523 16.1429,1.723 16.1246,1.7971 16.1111,1.8431 16.0774,1.948 16.066,2.0424 16.0653,2.1502 16.094,2.1978 16.1399,2.1842 16.1853,2.211 16.1889,2.2187 16.1889,2.2187 30,8.0,Indonesia 117.1026,3.576 117.1114,3.5814 117.1212,3.5854 117.1412,3.5883 117.2583,3.558 117.3851,3.4822 117.3849,3.4705 117.3649,3.4493 117.3535,3.4435 117.333,3.4547 117.321,3.4616 117.3022,3.4701 117.283,3.478 117.2669,3.4836 117.2561,3.4865 117.2279,3.4925 117.2159,3.494 117.2022,3.4939 117.1904,3.4916 117.1567,3.4911 117.1445,3.4925 117.1334,3.4955 117.1199,3.5019 117.1073,3.5105 117.0971,3.5204 117.0843,3.5417 117.0836,3.5549 117.0885,3.5665 117.1026,3.576 117.1026,3.576 19,8.0,Indonesia 117.4221,3.4295 117.476,3.4308 117.4924,3.4304 117.5161,3.4269 117.5294,3.4231 117.5394,3.4161 117.5452,3.4075 117.5483,3.3975 117.5464,3.3791 117.5314,3.2807 117.4993,3.2554 117.425,3.3146 117.4005,3.3758 117.3978,3.3867 117.3965,3.3988 117.3985,3.4105 117.4081,3.4234 117.4221,3.4295 117.4221,3.4295 13,7.0,Indonesia 105.5872,2.8403 105.584,2.8473 105.5648,3.003 105.5717,3.054 105.5819,3.0564 105.7187,2.9855 105.7288,2.9738 105.6936,2.8959 105.6432,2.8448 105.621,2.8328 105.5991,2.8316 105.5872,2.8403 105.5872,2.8403 19,7.0,Indonesia 108.6594,2.8967 108.673,2.9056 108.6936,2.9189 108.7037,2.9293 108.7094,2.9376 108.7141,2.9497 108.7155,2.9657 108.7217,2.9903 108.7361,2.9998 108.7489,3.0002 108.7648,2.9956 108.7727,2.9864 108.775,2.9751 108.7645,2.8889 108.7169,2.8453 108.7069,2.8416 108.6508,2.8843 108.6594,2.8967 108.6594,2.8967 47,7.0,Indonesia 96.3756,2.3685 96.3732,2.3621 96.3623,2.3565 96.3238,2.3404 96.3068,2.3373 96.224,2.3502 96.2058,2.3609 96.2012,2.3701 96.1894,2.3981 96.1884,2.4192 95.9515,2.576 95.9238,2.5897 95.9141,2.5935 95.7699,2.6407 95.754,2.6457 95.7111,2.6519 95.5946,2.7641 95.5877,2.7776 95.584,2.7987 95.5891,2.816 95.5971,2.828 95.6824,2.9337 95.7654,2.9198 95.7754,2.9159 95.787,2.9072 95.7999,2.8924 95.806,2.8778 95.8702,2.7919 95.8885,2.7748 95.9045,2.7639 95.9209,2.7598 95.9411,2.7593 95.9712,2.7569 95.9929,2.7497 96.0056,2.7413 96.0156,2.7314 96.0547,2.6798 96.1052,2.6277 96.1849,2.5707 96.2387,2.5355 96.2956,2.5158 96.3229,2.5008 96.3505,2.4596 96.3511,2.4328 96.3625,2.3995 96.3756,2.3685 96.3756,2.3685 17,8.0,Malaysia 104.0707,2.8647 104.0818,2.8388 104.0867,2.8235 104.0997,2.7824 104.1022,2.7716 104.1034,2.7191 104.0947,2.7086 104.0504,2.7024 104.0382,2.7077 104.0245,2.7277 104.0121,2.751 104.0079,2.7668 104.0062,2.7785 104.0522,2.8895 104.0665,2.8765 104.0707,2.8647 104.0707,2.8647 25,8.0,Indonesia 125.3048,2.7495 125.2849,2.7312 125.2659,2.7127 125.2609,2.7005 125.2598,2.6881 125.2628,2.6742 125.2725,2.6635 125.2807,2.6545 125.2851,2.6413 125.2746,2.6278 125.2627,2.624 125.2487,2.6265 125.2353,2.6357 125.216,2.7097 125.2137,2.7214 125.2155,2.7354 125.2396,2.7898 125.2507,2.7995 125.27,2.8038 125.2814,2.8023 125.3022,2.7844 125.3092,2.7692 125.3068,2.7535 125.3048,2.7495 125.3048,2.7495 28,8.0,Malaysia 111.1868,2.4946 111.1797,2.5918 111.1701,2.6779 111.168,2.7302 111.1701,2.7456 111.1781,2.7647 111.1871,2.7727 111.2036,2.7775 111.2202,2.7687 111.229,2.7571 111.2525,2.705 111.2565,2.6955 111.2585,2.6769 111.2586,2.6497 111.2549,2.6121 111.2518,2.5335 111.2516,2.4924 111.253,2.4802 111.2557,2.4694 111.2742,2.4056 111.2807,2.3912 111.2863,2.374 111.243,2.3569 111.2255,2.3693 111.1788,2.4474 111.1806,2.4639 111.1868,2.4946 111.1868,2.4946 17,-5.0,Colombia -78.0376,2.4966 -78.0458,2.4984 -78.1266,2.5736 -78.1273,2.5872 -78.1245,2.6035 -78.1167,2.618 -78.1029,2.6365 -78.0731,2.6437 -78.0611,2.6459 -78.0449,2.6431 -78.0174,2.5933 -78.0133,2.5836 -78.0039,2.5338 -78.0073,2.5233 -78.0313,2.4992 -78.0376,2.4966 -78.0376,2.4966 32,9.0,Indonesia 128.1325,2.0152 128.1041,2.0869 128.1012,2.0978 128.0825,2.2433 128.0882,2.3036 128.1476,2.4151 128.1614,2.4357 128.2022,2.4838 128.289,2.5684 128.3153,2.584 128.4171,2.6294 128.4319,2.6262 128.5404,2.4766 128.5482,2.4568 128.5496,2.4445 128.5495,2.431 128.5474,2.4124 128.501,2.2763 128.4956,2.2611 128.4819,2.2271 128.4753,2.2127 128.4241,2.1198 128.3677,2.0542 128.3538,2.0479 128.3181,2.0423 128.3012,2.0446 128.2675,2.045 128.2552,2.0439 128.2431,2.0427 128.1867,2.0299 128.1325,2.0152 128.1325,2.0152 444,1.0,Gabon 9.0675,-1.3366 9.0367,-1.3137 9.0166,-1.2959 9.0071,-1.2682 9.0108,-1.2344 8.9894,-1.1583 8.8871,-1.0066 8.7981,-0.8526 8.7765,-0.8129 8.7003,-0.6401 8.6911,-0.6023 8.6948,-0.5801 8.7413,-0.6133 8.7665,-0.6414 8.7813,-0.6806 8.8545,-0.721 8.9485,-0.755 8.9978,-0.8129 9.0771,-0.6782 9.0784,-0.6315 9.0886,-0.6037 9.104,-0.5848 9.1289,-0.5618 9.1543,-0.5392 9.1767,-0.5138 9.2625,-0.4071 9.2882,-0.3712 9.2991,-0.3421 9.3004,-0.298 9.295,-0.2705 9.2954,-0.2491 9.2971,-0.2121 9.3065,-0.1833 9.3162,-0.1516 9.3308,-0.1174 9.3342,-0.0743 9.3289,-0.0492 9.329,-0.0186 9.3394,0.0 9.3405,0.0078 9.3312,0.0656 9.3097,0.1756 9.2918,0.284 9.2957,0.3173 9.3405,0.3617 9.3619,0.328 9.3713,0.2035 9.4563,0.167 9.479,0.1644 9.5528,0.1626 9.6955,0.1287 9.7359,0.1163 9.7787,0.1315 9.9102,0.1851 9.847,0.1838 9.8156,0.1787 9.7774,0.1816 9.7568,0.1853 9.6696,0.2195 9.5802,0.2749 9.5394,0.2981 9.4872,0.2936 9.4498,0.3592 9.4308,0.4013 9.4086,0.4533 9.3966,0.4787 9.343,0.5279 9.3199,0.5254 9.2982,0.526 9.2949,0.5806 9.3048,0.6208 9.5074,0.6755 9.5316,0.672 9.5479,0.6471 9.5732,0.5943 9.5769,0.5717 9.5739,0.5209 9.5715,0.497 9.5892,0.4806 9.6196,0.5497 9.6222,0.5818 9.6143,0.7831 9.6064,0.8193 9.5883,0.8439 9.5493,0.955 9.5614,0.9956 9.5921,1.0194 9.6653,1.0546 9.7268,1.057 9.7516,1.0475 9.7929,1.0015 9.8215,1.001 9.8606,0.9751 9.8811,0.951 9.9404,0.9294 9.9642,0.945 9.981,1.0008 9.9901,1.0012 10.0174,1.0014 10.2152,1.0015 10.2425,1.0016 10.2701,1.0013 10.2973,1.0014 10.4033,1.0014 10.4814,1.0012 10.5084,1.001 10.7611,1.0013 10.8974,1.0016 10.9576,1.0027 11.2319,1.0012 11.3411,1.001 11.3372,1.4472 11.336,1.6037 11.3351,1.6923 11.334,1.7389 11.333,1.8288 11.3323,1.9171 11.3316,1.9852 11.3324,2.0057 11.3311,2.1623 11.3272,2.1663 11.3378,2.2341 11.3545,2.2965 11.5668,2.3129 11.6869,2.3052 11.7431,2.2799 12.2157,2.2812 12.2751,2.2991 12.3218,2.3154 12.468,2.2977 12.4877,2.2903 12.5098,2.2807 12.5816,2.2565 12.617,2.2488 12.7377,2.2308 12.85,2.238 12.9855,2.2537 13.1072,2.2726 13.1566,2.2803 13.2396,2.2637 13.2794,2.2234 13.2811,2.1687 13.2792,2.1611 13.2749,2.0703 13.2554,2.035 13.1924,1.9755 13.1696,1.9269 13.1675,1.8701 13.1766,1.8391 13.178,1.8062 13.1571,1.7624 13.1284,1.7049 13.1205,1.5761 13.1439,1.5368 13.1754,1.509 13.2098,1.447 13.221,1.4259 13.2318,1.3941 13.2344,1.3285 13.2022,1.2935 13.1691,1.2825 13.1557,1.2459 13.1722,1.2211 13.1904,1.2203 13.2498,1.2229 13.2904,1.2333 13.35,1.2707 13.454,1.2893 13.5581,1.3044 13.7691,1.3925 13.7889,1.434 13.8821,1.4385 13.9619,1.415 14.0612,1.3741 14.0828,1.38 14.1003,1.3891 14.1347,1.3944 14.1756,1.3889 14.2204,1.3618 14.2551,1.3288 14.2773,1.2536 14.2774,1.1942 14.3047,1.1051 14.4093,0.9595 14.4457,0.9316 14.4696,0.9162 14.4574,0.83 14.3309,0.6209 14.2533,0.5451 14.1835,0.5355 14.1564,0.5454 14.1251,0.5506 14.0836,0.5433 14.0583,0.5223 13.9449,0.3484 13.8722,0.2186 13.8702,0.1898 13.896,0.1121 13.9336,0.0309 13.9249,-0.0377 13.8845,-0.096 13.8465,-0.1449 13.8355,-0.1749 13.8336,-0.2024 13.8898,-0.2643 13.9218,-0.2363 13.9629,-0.2372 14.0545,-0.2513 14.1162,-0.2811 14.136,-0.3323 14.1503,-0.3734 14.1612,-0.4211 14.1766,-0.4442 14.2195,-0.4378 14.3067,-0.4361 14.3973,-0.4759 14.4404,-0.5177 14.4673,-0.5474 14.5035,-0.6123 14.4898,-0.6751 14.479,-0.6999 14.4567,-0.735 14.4128,-0.9256 14.4044,-0.9939 14.4105,-1.0454 14.4383,-1.1259 14.4658,-1.2112 14.4664,-1.2583 14.461,-1.4315 14.4487,-1.5488 14.4218,-1.5671 14.3882,-1.5958 14.3981,-1.8531 14.4121,-1.8824 14.3998,-1.9028 14.3657,-1.9229 14.3554,-1.9261 14.3416,-1.9264 14.3041,-1.9351 14.2431,-1.9714 14.238,-2.016 14.2526,-2.034 14.2378,-2.1239 14.2054,-2.2902 14.1832,-2.3568 14.1651,-2.369 14.138,-2.3926 14.1028,-2.4624 14.0949,-2.4899 14.0663,-2.4933 13.9008,-2.487 13.855,-2.468 13.8488,-2.4203 13.8632,-2.3118 13.7939,-2.1417 13.7492,-2.0884 13.7116,-2.1515 13.7118,-2.1814 13.6773,-2.2177 13.575,-2.323 13.5449,-2.3468 13.4899,-2.3965 13.4695,-2.4319 13.3755,-2.4257 13.315,-2.3995 13.237,-2.3679 13.1882,-2.3576 13.0166,-2.3303 12.9869,-2.365 12.9979,-2.3129 13.0023,-2.2677 12.9865,-2.2292 12.9458,-2.1808 12.9174,-2.1874 12.8864,-2.1403 12.8343,-1.9766 12.8309,-1.9522 12.8056,-1.9084 12.7791,-1.8975 12.7284,-1.8813 12.7107,-1.8568 12.6383,-1.8214 12.5743,-1.8233 12.5106,-1.8884 12.4871,-1.9192 12.4498,-1.8983 12.4398,-1.8758 12.4322,-1.8793 12.4232,-1.8989 12.4342,-2.0219 12.4593,-2.072 12.4883,-2.1311 12.4818,-2.2212 12.4642,-2.3244 12.039,-2.414 12.0211,-2.4038 12.0049,-2.3853 11.9863,-2.3634 11.963,-2.3381 11.9388,-2.3298 11.7883,-2.3695 11.7503,-2.3998 11.7204,-2.4158 11.6696,-2.3765 11.6461,-2.3511 11.5984,-2.3296 11.5605,-2.3335 11.5889,-2.4488 11.6166,-2.5473 11.6332,-2.6115 11.6195,-2.6642 11.5947,-2.7192 11.577,-2.7401 11.56,-2.7587 11.5333,-2.7906 11.5313,-2.8131 11.5298,-2.8281 11.5473,-2.8588 11.5699,-2.8414 11.634,-2.8202 11.7775,-2.9891 11.7916,-3.0118 11.7531,-3.0417 11.721,-3.04 11.702,-3.052 11.6877,-3.0883 11.6931,-3.1739 11.75,-3.1941 11.7692,-3.2022 11.7877,-3.2109 11.9488,-3.2937 11.9602,-3.3221 11.9528,-3.3436 11.9183,-3.3672 11.8995,-3.3861 11.8895,-3.4036 11.8267,-3.5641 11.8439,-3.5878 11.863,-3.5957 11.9086,-3.6232 11.8988,-3.6567 11.8858,-3.6753 11.8627,-3.7017 11.8257,-3.7025 11.7269,-3.6825 11.6408,-3.634 11.6151,-3.5942 11.5707,-3.5308 11.543,-3.5109 11.5137,-3.5026 11.4793,-3.5047 11.2894,-3.6289 11.2141,-3.6889 11.1551,-3.8369 11.1295,-3.9142 11.1283,-3.9207 11.0329,-3.8473 10.997,-3.8009 10.9731,-3.7395 10.9739,-3.7168 10.9643,-3.6922 10.9478,-3.6708 10.9142,-3.6358 10.8154,-3.5487 10.7889,-3.5265 10.7401,-3.493 10.7022,-3.4677 10.6339,-3.3417 10.6179,-3.3049 10.5997,-3.2818 10.4898,-3.1652 10.4236,-3.1003 10.2904,-2.9751 10.1871,-2.8992 10.1624,-2.882 10.0574,-2.801 10.035,-2.7821 9.9819,-2.7338 9.9561,-2.7158 9.934,-2.6963 9.8787,-2.6477 9.7285,-2.4887 9.6915,-2.4451 9.7299,-2.4773 9.758,-2.4925 9.7891,-2.4983 9.8194,-2.4978 9.9597,-2.5797 9.9636,-2.6146 10.005,-2.6366 10.1451,-2.5719 10.1223,-2.5207 10.0648,-2.4905 9.9922,-2.5343 9.9702,-2.5582 9.9475,-2.5423 9.9009,-2.4726 9.8569,-2.4164 9.8032,-2.4273 9.7834,-2.4523 9.751,-2.476 9.7125,-2.4365 9.6549,-2.423 9.6212,-2.3914 9.6004,-2.3677 9.5787,-2.3364 9.5682,-2.2893 9.57,-2.2521 9.5645,-2.2154 9.5447,-2.1854 9.4932,-2.1308 9.4747,-2.1142 9.4428,-2.0876 9.4137,-2.0585 9.3666,-2.0067 9.3267,-1.9341 9.312,-1.9051 9.4327,-1.9152 9.4631,-1.9681 9.4779,-2.0048 9.5264,-2.0657 9.5517,-2.0549 9.5559,-2.0323 9.5075,-1.9244 9.4664,-1.8564 9.3626,-1.821 9.3376,-1.8542 9.306,-1.8551 9.2523,-1.847 9.2336,-1.7801 9.2406,-1.7512 9.2431,-1.7197 9.2233,-1.62 9.2116,-1.594 9.1918,-1.5591 9.1722,-1.5279 9.1186,-1.4688 9.0593,-1.391 9.0445,-1.3715 9.0201,-1.3344 9.0063,-1.3054 9.0303,-1.3237 9.0675,-1.3366 9.0675,-1.3366 31,1.0,Gabon 9.0675,-1.3366 9.1064,-1.4054 9.2231,-1.5282 9.2806,-1.6367 9.3514,-1.627 9.3811,-1.6498 9.4012,-1.6705 9.4123,-1.6123 9.4413,-1.6087 9.4851,-1.6085 9.5035,-1.5945 9.473,-1.5464 9.426,-1.513 9.3816,-1.5614 9.3371,-1.574 9.2992,-1.5821 9.2781,-1.5683 9.2413,-1.4966 9.2694,-1.4688 9.3264,-1.398 9.3392,-1.3622 9.3425,-1.3404 9.3229,-1.2839 9.3165,-1.3064 9.3266,-1.3431 9.3175,-1.3681 9.294,-1.3822 9.2143,-1.4096 9.1664,-1.4104 9.0675,-1.3366 9.0675,-1.3366 21,7.0,Indonesia 97.2333,2.0516 97.2214,2.0338 97.2116,2.028 97.1959,2.05 97.1868,2.0668 97.1822,2.0757 97.1705,2.0916 97.1247,2.1414 97.0981,2.1698 97.0898,2.1751 97.0413,2.1963 97.0071,2.2016 96.9932,2.2108 96.9993,2.2194 97.0562,2.2311 97.1752,2.2235 97.2152,2.1607 97.2191,2.1511 97.2349,2.1037 97.2333,2.0516 97.2333,2.0516 18,-3.0,Brazil -50.428,2.1154 -50.44,2.1181 -50.4767,2.1475 -50.4787,2.1575 -50.4753,2.1756 -50.4602,2.2006 -50.4482,2.2089 -50.4036,2.2117 -50.3799,2.2067 -50.3637,2.2003 -50.3488,2.1911 -50.3398,2.1708 -50.3411,2.159 -50.3479,2.144 -50.3561,2.1377 -50.4184,2.1173 -50.428,2.1154 -50.428,2.1154 188,9.0,Indonesia 127.7581,-0.4563 127.7507,-0.4362 127.743,-0.4164 127.716,-0.3785 127.6826,-0.354 127.663,-0.346 127.6338,-0.3344 127.5763,-0.2995 127.5578,-0.2797 127.5212,-0.2148 127.5301,-0.1617 127.558,0.0659 127.545,0.196 127.5134,0.3387 127.4764,0.3597 127.4282,0.4109 127.3841,0.5454 127.38,0.6011 127.4027,0.7146 127.4262,0.7452 127.4449,0.7588 127.4764,0.8216 127.4714,0.8521 127.4349,0.8602 127.3643,0.8838 127.3531,0.9012 127.3676,0.958 127.3408,1.053 127.3065,1.0504 127.2834,1.0391 127.2602,1.0377 127.2524,1.0605 127.256,1.1856 127.2585,1.211 127.27,1.2366 127.2892,1.2659 127.3103,1.2958 127.3295,1.3316 127.3746,1.4161 127.3833,1.4388 127.388,1.4611 127.3903,1.4964 127.3819,1.5187 127.425,1.7374 127.5098,1.8686 127.5319,1.9015 127.5482,1.9229 127.7657,2.1565 127.8036,2.1891 127.9101,2.1902 127.9048,2.1443 127.8965,2.1253 127.8856,2.1081 127.8038,1.9837 127.7794,1.9546 127.7521,1.9461 127.7122,1.9141 127.7068,1.8237 127.7275,1.8047 127.7548,1.7943 127.7741,1.7997 127.7983,1.7929 127.8371,1.7598 127.8536,1.7421 127.8691,1.7128 127.8937,1.5188 127.8463,1.3451 127.781,1.2264 127.7647,1.2015 127.6914,1.1407 127.5091,1.0154 127.487,0.9811 127.4835,0.9571 127.4898,0.9219 127.5141,0.8804 127.611,0.8108 127.6507,0.7942 127.6707,0.7936 127.7004,0.8015 127.7266,0.8163 127.7728,0.8571 127.7794,0.9314 127.7846,0.9891 127.8306,1.0666 127.8945,1.1161 127.945,1.1226 127.9903,1.1144 128.0229,1.131 128.0461,1.1692 128.0515,1.1909 128.0425,1.2181 128.0238,1.2334 127.9989,1.2366 127.9866,1.2841 128.0227,1.344 128.0446,1.3767 128.0673,1.3951 128.2306,1.5061 128.2741,1.5245 128.2987,1.5348 128.3191,1.5419 128.4049,1.564 128.4836,1.5758 128.5084,1.5774 128.5426,1.5742 128.5653,1.5693 128.5803,1.5551 128.5535,1.1008 128.5198,1.0621 128.3015,0.9333 128.2757,0.9216 128.2526,0.9139 128.2165,0.9039 128.1854,0.9009 128.1546,0.8904 128.0688,0.8046 128.0685,0.7789 128.093,0.7299 128.1551,0.6757 128.1825,0.6579 128.2052,0.6467 128.2245,0.6382 128.3524,0.5883 128.4436,0.5597 128.4873,0.5617 128.5304,0.5524 128.5487,0.4084 128.546,0.3869 128.5391,0.3569 128.5771,0.3288 128.6382,0.3149 128.6853,0.2998 128.7302,0.2627 128.7608,0.203 128.7351,0.2174 128.7094,0.2412 128.6704,0.2557 128.6158,0.2712 128.5753,0.282 128.4899,0.3036 128.4331,0.3098 128.4001,0.3197 128.3508,0.3562 128.3303,0.3835 128.3092,0.3965 128.2162,0.397 128.1792,0.3896 128.1366,0.3854 128.0706,0.4028 128.0367,0.4222 128.0168,0.4504 127.9306,0.4655 127.8486,0.473 127.8143,0.4759 127.7783,0.4539 127.7634,0.4345 127.7359,0.2991 127.7636,0.2773 127.7807,0.1393 127.7725,0.1166 127.7514,0.1002 127.7407,0.0735 127.7397,0.0466 127.7427,-0.0052 127.75,-0.0318 127.8404,-0.2716 127.8935,-0.4026 127.9069,-0.4311 127.9278,-0.4716 127.9505,-0.5104 127.9945,-0.5691 128.0242,-0.6211 128.07,-0.6987 128.1593,-0.7943 128.2193,-0.8464 128.2581,-0.8869 128.1386,-0.8808 128.1094,-0.8709 128.0873,-0.8503 128.0948,-0.83 127.995,-0.7531 127.9087,-0.7177 127.8779,-0.6921 127.8671,-0.6623 127.8485,-0.6192 127.799,-0.5176 127.7581,-0.4563 127.7581,-0.4563 21,-3.0,Brazil -50.3478,1.8779 -50.3671,1.8877 -50.3769,1.8989 -50.4472,2.0189 -50.4427,2.0756 -50.4384,2.0953 -50.428,2.1023 -50.3415,2.1322 -50.3221,2.131 -50.2995,2.1147 -50.2946,2.1058 -50.2482,1.9961 -50.2409,1.9791 -50.2416,1.9596 -50.2468,1.9483 -50.2547,1.9403 -50.305,1.8889 -50.3234,1.8832 -50.3397,1.8792 -50.3478,1.8779 -50.3478,1.8779 40,7.0,Indonesia 101.66,1.9375 101.617,1.883 101.6135,1.8726 101.6122,1.8605 101.6145,1.8384 101.6166,1.8237 101.6178,1.8045 101.6142,1.7909 101.6039,1.777 101.5428,1.7275 101.53,1.7194 101.5167,1.7126 101.5001,1.7085 101.4879,1.7073 101.4604,1.7072 101.4421,1.7094 101.431,1.712 101.3782,1.7276 101.3563,1.7399 101.3467,1.7511 101.3338,1.7689 101.3273,1.7825 101.2799,1.9137 101.2795,1.9234 101.2845,1.99 101.2907,2.0149 101.296,2.0299 101.3107,2.0498 101.3275,2.0603 101.3419,2.0663 101.502,2.1131 101.528,2.1176 101.5432,2.1154 101.5538,2.1132 101.5655,2.1075 101.5854,2.0897 101.6581,1.9912 101.6634,1.9722 101.66,1.9375 101.66,1.9375 16,7.0,Indonesia 98.4672,1.6212 98.4519,1.6184 98.3898,1.6209 98.3786,1.624 98.3378,1.6387 98.3231,1.6514 98.3165,1.6656 98.3182,1.6795 98.3289,1.6929 98.3428,1.7026 98.3542,1.7038 98.4447,1.6799 98.4692,1.6656 98.4919,1.6254 98.4672,1.6212 98.4672,1.6212 1011,8.0,Indonesia 119.6837,-0.0982 119.6958,-0.0932 119.7079,-0.071 119.7208,-0.0428 119.725,-0.033 119.7446,0.0429 119.7482,0.0596 119.7489,0.0713 119.746,0.0825 119.7428,0.0928 119.738,0.1018 119.7269,0.1181 119.7135,0.1319 119.7022,0.1415 119.6906,0.1501 119.6771,0.1639 119.6497,0.1981 119.6449,0.2069 119.642,0.2181 119.6439,0.2297 119.7606,0.4472 119.7748,0.467 119.7894,0.4801 119.8126,0.4914 119.8248,0.4922 119.8456,0.4924 119.8571,0.4946 119.8673,0.4979 119.8764,0.5025 119.8989,0.5208 119.9058,0.5348 119.9069,0.5473 119.9072,0.5666 119.9051,0.578 119.8981,0.5985 119.8913,0.6192 119.8883,0.6367 119.8866,0.6623 119.8879,0.6915 119.8983,0.712 119.9269,0.738 119.9408,0.7481 119.9556,0.7488 119.972,0.7465 119.9846,0.7477 120.0168,0.7635 120.0537,0.7821 120.0626,0.7866 120.0755,0.7943 120.0856,0.8046 120.0973,0.821 120.1019,0.8335 120.104,0.8815 120.1041,0.921 120.1169,0.9626 120.1225,0.9708 120.1382,0.9842 120.1524,0.9886 120.1713,0.9908 120.1869,0.9893 120.2052,0.977 120.2101,0.9613 120.2101,0.9475 120.2088,0.9354 120.2063,0.9176 120.1974,0.8817 120.1978,0.8689 120.2049,0.8587 120.2709,0.8114 120.2851,0.8045 120.3067,0.7992 120.4296,0.7733 120.4401,0.776 120.4671,0.8442 120.4717,0.8777 120.4746,0.8887 120.5107,0.9484 120.551,0.9909 120.6161,1.0133 120.6635,1.0638 120.6919,1.1959 120.6942,1.2179 120.6921,1.2328 120.683,1.2651 120.6817,1.2776 120.685,1.3118 120.6934,1.3225 120.8149,1.3411 120.8289,1.3412 120.8671,1.3383 120.8851,1.3355 120.9583,1.3229 120.9747,1.3187 120.9845,1.3145 121.0068,1.303 121.0151,1.2973 121.0308,1.2855 121.0459,1.2734 121.0773,1.2499 121.0857,1.2447 121.1066,1.2316 121.1309,1.2283 121.2478,1.2461 121.2902,1.2226 121.3004,1.1818 121.3134,1.1599 121.3347,1.1331 121.3733,1.0892 121.388,1.0769 121.4019,1.07 121.4213,1.0619 121.4368,1.0573 121.4593,1.0524 121.6256,1.0752 121.7783,1.0962 121.7907,1.0976 121.8013,1.0913 121.8216,1.0463 121.825,1.036 121.8348,1.022 121.8533,1.0145 121.8735,1.0194 121.8816,1.0252 121.9056,1.0489 121.9239,1.0617 121.9516,1.0604 121.968,1.0496 121.9773,1.0456 122.0916,1.0052 122.1552,1.0081 122.2306,1.0084 122.2748,1.0057 122.3275,0.9981 122.5244,0.9409 122.53,0.929 122.5382,0.9203 122.646,0.8479 122.6854,0.8252 122.6987,0.8183 122.7089,0.814 122.7189,0.8188 122.7613,0.845 122.7729,0.8537 122.8217,0.9248 122.9021,0.9395 123.0652,0.9555 123.1041,0.9523 123.2363,0.9245 123.3433,0.8889 123.4096,0.8661 123.4274,0.8638 123.4473,0.8765 123.4616,0.8837 123.5807,0.8509 123.6835,0.8305 123.7005,0.8286 123.7742,0.8337 123.8458,0.8762 124.0244,0.951 124.1536,1.0131 124.1646,1.0229 124.1776,1.0442 124.1876,1.0682 124.2022,1.1153 124.2142,1.1548 124.2251,1.1691 124.2666,1.188 124.2824,1.1928 124.2978,1.1939 124.3576,1.19 124.4371,1.1828 124.4501,1.19 124.4747,1.2241 124.4775,1.2381 124.4739,1.2593 124.4428,1.2778 124.4325,1.2726 124.4183,1.2712 124.4061,1.276 124.3946,1.2886 124.3912,1.3024 124.3894,1.3235 124.3944,1.3357 124.4162,1.3684 124.4702,1.4101 124.4812,1.4163 124.4984,1.4112 124.5121,1.4042 124.5274,1.3986 124.5379,1.3958 124.5499,1.3939 124.5657,1.3946 124.579,1.3987 124.6858,1.4572 124.6959,1.4646 124.7063,1.4814 124.7077,1.4959 124.7046,1.5061 124.6974,1.5196 124.6831,1.5394 124.6767,1.5568 124.6798,1.5737 124.688,1.5827 124.8311,1.6928 124.8927,1.6983 124.9911,1.6698 125.03,1.6373 125.0232,1.6169 125.0205,1.6057 125.0205,1.5902 125.0256,1.5778 125.0353,1.5638 125.0446,1.5563 125.0734,1.5368 125.1028,1.5183 125.1086,1.5072 125.1063,1.4927 125.1001,1.4717 125.0903,1.4577 125.0768,1.4472 125.0682,1.4425 125.0554,1.4377 125.0406,1.4355 125.0182,1.434 125.0016,1.4198 124.9636,1.3685 124.9503,1.3479 124.944,1.3336 124.9324,1.2971 124.9253,1.267 124.9222,1.2529 124.9112,1.216 124.9057,1.2009 124.855,1.1078 124.8476,1.0946 124.7588,0.9712 124.7273,0.9553 124.6976,0.9436 124.6827,0.9379 124.5946,0.872 124.5251,0.8039 124.4375,0.6555 124.431,0.6415 124.4288,0.63 124.4138,0.5901 124.3021,0.455 124.1815,0.393 124.1072,0.3746 124.0946,0.3734 124.0755,0.3746 124.0488,0.374 123.9414,0.3584 123.807,0.3363 123.6985,0.3151 123.637,0.2959 123.5075,0.2809 123.4487,0.2988 123.2818,0.2971 123.2495,0.2955 123.2159,0.2947 123.1967,0.296 123.168,0.3016 123.1352,0.3096 123.1249,0.313 123.1104,0.3192 123.0942,0.3302 123.0839,0.3407 123.0366,0.3877 123.0063,0.4331 122.9897,0.4572 122.9558,0.4917 122.9303,0.5093 122.9126,0.495 122.9004,0.4869 122.8887,0.4847 122.8209,0.4788 122.8006,0.4787 122.63,0.4822 122.4436,0.4917 122.3671,0.4959 122.3344,0.4974 122.2932,0.4974 122.2424,0.4975 122.2288,0.4975 122.1726,0.4919 122.0522,0.4789 121.9152,0.4822 121.8954,0.4787 121.8861,0.4745 121.8749,0.4651 121.8628,0.4502 121.8516,0.444 121.7573,0.4255 121.7223,0.4219 121.6563,0.4224 121.6438,0.4286 121.6108,0.47 121.5989,0.4924 121.5935,0.5007 121.5831,0.5111 121.5709,0.5194 121.5602,0.522 121.4013,0.5375 121.3873,0.531 121.3801,0.5178 121.3788,0.5019 121.3758,0.4914 121.3705,0.4828 121.3594,0.4767 121.3056,0.4688 121.2014,0.4575 121.1861,0.4628 121.1772,0.4679 121.1677,0.4719 121.1417,0.4802 121.12,0.4821 121.1058,0.4796 121.0198,0.4563 121.0013,0.4365 120.9887,0.4116 120.9844,0.409 120.9692,0.4068 120.9412,0.4096 120.7168,0.4514 120.6647,0.4816 120.5552,0.5269 120.5107,0.5361 120.4968,0.5362 120.4141,0.5355 120.3862,0.5295 120.3586,0.5225 120.3487,0.5194 120.2513,0.4797 120.2379,0.4722 120.1829,0.4247 120.1687,0.4117 120.1596,0.4022 120.1077,0.3449 120.0089,0.2035 119.9897,0.175 119.9858,0.165 119.9639,0.1058 119.9603,0.0957 119.959,0.0693 119.9593,0.0469 119.9428,-0.0154 119.9372,-0.0271 119.925,-0.0385 119.9102,-0.0481 119.893,-0.0617 119.8859,-0.075 119.8646,-0.1988 119.8637,-0.2117 119.8651,-0.2447 119.8673,-0.2701 119.8845,-0.3626 119.9319,-0.6122 119.9413,-0.6368 119.9624,-0.6842 119.9702,-0.6972 120.0226,-0.775 120.0451,-0.8071 120.1226,-0.9019 120.1359,-0.9157 120.1561,-0.93 120.1704,-0.9361 120.1814,-0.9386 120.1967,-0.9384 120.2117,-0.9289 120.2223,-0.9197 120.2309,-0.914 120.2445,-0.9072 120.2548,-0.9037 120.2709,-0.9043 120.2864,-0.9134 120.3617,-0.978 120.3788,-0.999 120.4285,-1.0788 120.4389,-1.096 120.4435,-1.1048 120.4511,-1.1213 120.4524,-1.1326 120.4345,-1.1865 120.4609,-1.2519 120.5127,-1.3644 120.5173,-1.3731 120.5292,-1.3922 120.5433,-1.396 120.6032,-1.365 120.6553,-1.3421 120.6946,-1.3426 120.693,-1.3575 120.6907,-1.372 120.6949,-1.3844 120.7063,-1.3905 120.7414,-1.3964 120.8909,-1.4177 120.9308,-1.4258 120.9448,-1.4228 120.9695,-1.4059 121.0069,-1.3576 121.0246,-1.3337 121.037,-1.3041 121.043,-1.2761 121.0463,-1.2521 121.0541,-1.2255 121.0672,-1.1973 121.3265,-0.8896 121.3376,-0.88 121.3573,-0.8656 121.3657,-0.8599 121.4571,-0.8124 121.4859,-0.8038 121.5055,-0.8025 121.5184,-0.8085 121.5247,-0.8195 121.5245,-0.8354 121.5214,-0.8463 121.5186,-0.8672 121.5199,-0.8787 121.5271,-0.8889 121.5704,-0.9345 121.584,-0.9414 121.5948,-0.9442 121.6136,-0.9462 121.7913,-0.9622 121.9685,-0.9298 121.9798,-0.9237 121.9926,-0.9093 122.0009,-0.8969 122.0055,-0.8879 122.0096,-0.8717 122.0119,-0.8531 122.0126,-0.8403 122.0221,-0.8011 122.0367,-0.785 122.0619,-0.7689 122.0762,-0.7627 122.0903,-0.7598 122.3157,-0.7486 122.4457,-0.7718 122.5312,-0.7792 122.6291,-0.7786 122.7801,-0.7639 122.8202,-0.7427 122.8163,-0.7274 122.7334,-0.6978 122.7054,-0.6953 122.6849,-0.695 122.6519,-0.6937 122.6181,-0.6863 122.5913,-0.6688 122.5928,-0.6532 122.6782,-0.6164 122.766,-0.604 122.7955,-0.606 122.8395,-0.6089 122.853,-0.6089 122.871,-0.6061 122.8997,-0.597 122.9092,-0.5829 122.9124,-0.5689 122.9199,-0.5596 122.933,-0.559 123.075,-0.5635 123.0864,-0.5656 123.1242,-0.5758 123.1336,-0.5801 123.1617,-0.5931 123.1757,-0.6001 123.2732,-0.6527 123.317,-0.7645 123.3085,-0.8364 123.2908,-0.8567 123.2803,-0.866 123.2679,-0.881 123.263,-0.8902 123.2525,-0.9309 123.2542,-0.9472 123.2433,-1.0033 123.2392,-1.0124 123.2307,-1.0248 123.2143,-1.0427 123.1956,-1.0546 123.1793,-1.0557 123.1407,-1.0469 123.1294,-1.044 123.107,-1.0324 123.0342,-0.9478 123.0151,-0.8953 122.9313,-0.8757 122.7031,-0.9051 122.6924,-0.9079 122.6827,-0.9121 122.6687,-0.9257 122.6593,-0.9435 122.656,-0.9711 122.6532,-0.9852 122.6326,-1.0263 122.6249,-1.0392 122.5498,-1.1215 122.4922,-1.2219 122.4237,-1.2767 122.3046,-1.4055 122.254,-1.4711 122.24,-1.4877 122.2089,-1.5088 122.1068,-1.5651 122.0252,-1.6086 121.9685,-1.6107 121.8741,-1.6286 121.8156,-1.6667 121.8027,-1.6658 121.7733,-1.6708 121.7001,-1.6892 121.6619,-1.7186 121.6439,-1.7552 121.6384,-1.7702 121.633,-1.7921 121.6301,-1.8059 121.6062,-1.8574 121.5981,-1.8667 121.5569,-1.9075 121.529,-1.9227 121.5084,-1.9275 121.4788,-1.9323 121.4665,-1.9338 121.4022,-1.9305 121.3939,-1.9198 121.3834,-1.8954 121.3737,-1.8851 121.3099,-1.8199 121.1969,-1.7708 121.1787,-1.7763 121.1674,-1.7858 121.1628,-1.798 121.1574,-1.8343 121.1577,-1.844 121.208,-1.9905 121.2302,-1.9727 121.2925,-1.9693 121.3452,-2.0273 121.4143,-2.1348 121.4198,-2.1428 121.4332,-2.1568 121.4478,-2.1665 121.4822,-2.1767 121.4944,-2.1778 121.5074,-2.1771 121.5242,-2.1696 121.5347,-2.1674 121.5698,-2.1766 121.5793,-2.1806 121.7009,-2.3064 121.8318,-2.5316 121.8769,-2.6792 121.9937,-2.7747 122.0109,-2.7852 122.1699,-2.899 122.1745,-2.9115 122.1743,-2.9252 122.1705,-2.9385 122.1562,-2.9685 122.142,-2.9884 122.1294,-3.003 122.1242,-3.0151 122.1279,-3.0242 122.1365,-3.0335 122.2379,-3.1236 122.2527,-3.132 122.2654,-3.1269 122.2842,-3.1176 122.3382,-3.1571 122.3345,-3.1683 122.2974,-3.2135 122.275,-3.232 122.2179,-3.2163 122.214,-3.2194 122.2036,-3.2296 122.1599,-3.2814 122.1103,-3.3846 122.1287,-3.4192 122.1467,-3.4352 122.1541,-3.4541 122.1299,-3.5271 122.1214,-3.5357 122.112,-3.5398 122.0736,-3.5491 122.0617,-3.5548 122.0573,-3.5639 122.0605,-3.5771 122.0652,-3.5865 122.0851,-3.6214 122.0953,-3.6385 122.1083,-3.6536 122.2038,-3.7236 122.3401,-3.7992 122.4604,-3.8789 122.472,-3.955 122.5362,-4.1215 122.5447,-4.134 122.5546,-4.1415 122.696,-4.1307 122.6898,-4.1065 122.662,-4.0849 122.6516,-4.0818 122.6409,-4.0716 122.6303,-4.0469 122.6424,-4.041 122.6647,-4.0401 122.6788,-4.043 122.6981,-4.0511 122.7184,-4.0718 122.7308,-4.0936 122.7399,-4.1118 122.7581,-4.1622 122.7678,-4.2247 122.7652,-4.3054 122.7634,-4.337 122.7595,-4.3845 122.7541,-4.3928 122.7084,-4.4303 122.6189,-4.4812 122.6071,-4.4834 122.5402,-4.4771 122.5338,-4.4647 122.5325,-4.4527 122.5341,-4.4377 122.5278,-4.4274 122.4936,-4.4004 122.4565,-4.3888 122.4373,-4.3944 122.4039,-4.4158 122.3915,-4.4242 122.3325,-4.4275 122.2257,-4.4438 122.1554,-4.4619 122.0676,-4.4855 121.9659,-4.5209 121.952,-4.5411 121.9415,-4.5583 121.932,-4.576 121.9217,-4.6001 121.9097,-4.6353 121.9024,-4.659 121.9013,-4.6818 121.9041,-4.7063 121.9069,-4.7173 121.9107,-4.7268 121.9204,-4.7445 121.9258,-4.753 121.9354,-4.7636 121.9498,-4.7766 121.9703,-4.7903 121.971,-4.8086 121.9512,-4.8336 121.939,-4.838 121.8387,-4.8514 121.8321,-4.8515 121.7411,-4.8482 121.5624,-4.8292 121.4139,-4.7401 121.3945,-4.72 121.3417,-4.6548 121.3382,-4.6209 121.3449,-4.5597 121.3588,-4.4928 121.4322,-4.2519 121.4432,-4.2425 121.4632,-4.2143 121.4751,-4.1788 121.4821,-4.1516 121.4849,-4.1235 121.4842,-4.1001 121.4813,-4.0757 121.4767,-4.0601 121.467,-4.0462 121.4501,-4.0347 121.4358,-4.0287 121.3568,-4.0048 121.3412,-4.0001 121.2757,-3.9837 121.2386,-3.9794 121.2223,-3.9719 121.2131,-3.9637 121.1989,-3.9441 121.186,-3.9092 121.1784,-3.8956 121.1144,-3.8129 121.0977,-3.8051 121.0766,-3.7993 120.9876,-3.7488 120.8049,-3.5888 120.7914,-3.5751 120.769,-3.5432 120.7444,-3.5316 120.731,-3.4918 120.7284,-3.481 120.7292,-3.4446 120.734,-3.4289 120.7463,-3.4001 120.7503,-3.3906 120.7587,-3.3784 120.8433,-3.2641 120.8839,-3.2433 120.933,-3.2014 120.9471,-2.9218 120.9468,-2.902 120.94,-2.7555 120.9358,-2.7392 120.9311,-2.7302 120.8885,-2.6686 120.8548,-2.657 120.6757,-2.6123 120.6359,-2.6094 120.551,-2.6407 120.5416,-2.6449 120.4353,-2.7084 120.2373,-2.8529 120.0663,-2.9599 120.1324,-3.1339 120.2091,-3.1899 120.2424,-3.2038 120.2531,-3.2145 120.2728,-3.2547 120.2652,-3.2861 120.264,-3.3038 120.2623,-3.3625 120.259,-3.5065 120.2604,-3.5192 120.2725,-3.5484 120.288,-3.5708 120.2915,-3.584 120.3101,-3.7134 120.3077,-3.7297 120.3026,-3.7443 120.2702,-3.7978 120.2401,-3.8435 120.2355,-3.8523 120.2161,-3.9089 120.2114,-3.9318 120.2107,-3.9446 120.2056,-4.1032 120.2091,-4.1135 120.2243,-4.1323 120.2459,-4.1551 120.2499,-4.1647 120.2486,-4.1839 120.2381,-4.2798 120.2238,-4.368 120.2202,-4.3814 120.2249,-4.4063 120.2313,-4.4205 120.2415,-4.4376 120.2497,-4.4499 120.2584,-4.4872 120.2798,-4.5992 120.2849,-4.6727 120.2534,-4.7782 120.2015,-4.83 120.1824,-4.8386 120.1715,-4.8483 120.1656,-4.9367 120.1683,-4.96 120.1707,-4.9718 120.1708,-4.9852 120.1549,-5.057 120.1384,-5.1222 120.129,-5.1467 120.1317,-5.158 120.1926,-5.2539 120.247,-5.3475 120.2927,-5.4899 120.3261,-5.6133 120.3185,-5.6245 120.3082,-5.6211 120.271,-5.6081 120.2386,-5.5652 120.2316,-5.5516 120.2275,-5.542 120.2208,-5.5278 120.2127,-5.5154 120.2042,-5.5101 120.1916,-5.5057 120.1775,-5.5082 120.0839,-5.5359 120.0727,-5.5419 120.0537,-5.5538 120.0072,-5.5756 119.9873,-5.5828 119.9718,-5.5875 119.9592,-5.5894 119.9471,-5.5877 119.9314,-5.5851 119.8881,-5.5755 119.8559,-5.5665 119.8402,-5.5617 119.8184,-5.5565 119.7912,-5.5558 119.7745,-5.5646 119.7158,-5.6188 119.7094,-5.6326 119.7077,-5.6513 119.7012,-5.6622 119.6896,-5.6708 119.6482,-5.6977 119.6352,-5.7018 119.6191,-5.7016 119.5513,-5.6968 119.5362,-5.6948 119.5275,-5.69 119.5184,-5.6818 119.5045,-5.651 119.5077,-5.635 119.4884,-5.6129 119.4764,-5.6082 119.4091,-5.5878 119.329,-5.5573 119.2412,-5.4347 119.2329,-5.4224 119.2189,-5.3939 119.216,-5.344 119.2159,-5.3303 119.2396,-5.1866 119.2422,-5.1754 119.2644,-5.1289 119.2754,-5.1134 119.3335,-5.0385 119.3836,-4.9123 119.3885,-4.8678 119.38,-4.8435 119.3739,-4.829 119.3665,-4.8129 119.3638,-4.7983 119.3562,-4.7446 119.3553,-4.7319 119.3598,-4.7219 119.4031,-4.656 119.4546,-4.57 119.4592,-4.5612 119.4862,-4.3352 119.4873,-4.3229 119.4904,-4.1865 119.4759,-4.0402 119.4623,-3.9707 119.4017,-3.8715 119.3134,-3.698 119.3177,-3.6769 119.3448,-3.6155 119.3558,-3.5986 119.3756,-3.5774 119.3808,-3.5657 119.371,-3.5229 119.3546,-3.485 119.2166,-3.4319 119.2055,-3.4292 119.1584,-3.4237 119.1307,-3.4543 119.0967,-3.4816 119.0855,-3.4876 119.0719,-3.4913 119.0562,-3.4926 119.0001,-3.4835 118.9174,-3.5005 118.8816,-3.5128 118.8715,-3.5166 118.8288,-3.5404 118.8187,-3.5538 118.8119,-3.5676 118.802,-3.5746 118.7914,-3.5691 118.7107,-3.3832 118.7081,-3.3723 118.7029,-3.3389 118.7013,-3.0721 118.716,-3.0576 118.7199,-3.0441 118.7546,-2.8896 118.7497,-2.8677 118.7426,-2.8577 118.7326,-2.8504 118.6903,-2.8412 118.6775,-2.8404 118.6663,-2.8434 118.6523,-2.8532 118.6365,-2.8598 118.6267,-2.7896 118.6254,-2.7707 118.6445,-2.6861 118.6474,-2.6751 118.6577,-2.6508 118.6687,-2.6345 118.6904,-2.6208 118.7179,-2.6458 118.7305,-2.6539 118.7425,-2.6585 118.7555,-2.659 118.7712,-2.6536 118.8719,-2.587 119.0094,-2.4501 119.0107,-2.4048 119.0096,-2.3919 119.0071,-2.3809 118.9912,-2.3418 118.9893,-2.3302 118.9916,-2.2832 119.0049,-2.2116 119.0738,-2.0192 119.0775,-2.0093 119.0894,-1.9936 119.0995,-1.9837 119.1124,-1.976 119.1262,-1.9692 119.1682,-1.9551 119.1866,-1.9688 119.2019,-1.9705 119.2132,-1.9505 119.2201,-1.9339 119.236,-1.8383 119.2277,-1.821 119.2133,-1.8168 119.1983,-1.8044 119.1915,-1.7904 119.1644,-1.6905 119.1654,-1.6612 119.1751,-1.6298 119.1812,-1.6154 119.1905,-1.599 119.1729,-1.5032 119.1642,-1.4711 119.158,-1.3974 119.1752,-1.2638 119.1831,-1.2377 119.2099,-1.1893 119.2182,-1.1767 119.2671,-1.1331 119.2987,-1.1224 119.3115,-1.1085 119.3197,-1.0896 119.3297,-1.0585 119.338,-1.0257 119.3395,-1.0098 119.3449,-0.9736 119.375,-0.8942 119.3834,-0.8754 119.3914,-0.8628 119.423,-0.8393 119.4545,-0.8161 119.5043,-0.7773 119.5409,-0.7439 119.5427,-0.7333 119.5496,-0.6864 119.5845,-0.6527 119.6024,-0.6512 119.6464,-0.7444 119.6545,-0.7634 119.6594,-0.7792 119.6599,-0.799 119.6624,-0.8101 119.6666,-0.8198 119.6713,-0.8287 119.69,-0.8581 119.6998,-0.872 119.7081,-0.8772 119.7121,-0.8734 119.7249,-0.8523 119.7287,-0.8426 119.731,-0.8315 119.733,-0.8127 119.7318,-0.8004 119.716,-0.7068 119.7118,-0.6971 119.6962,-0.6784 119.6789,-0.6614 119.6685,-0.6444 119.665,-0.6348 119.6262,-0.509 119.6214,-0.4933 119.6202,-0.4808 119.6197,-0.4274 119.6287,-0.3276 119.6373,-0.2683 119.6416,-0.2513 119.6484,-0.2379 119.6558,-0.2249 119.6709,-0.1921 119.676,-0.1757 119.6617,-0.1157 119.6299,-0.1153 119.603,-0.1235 119.5891,-0.1265 119.576,-0.1236 119.562,-0.1168 119.5499,-0.1084 119.5289,-0.0884 119.5118,-0.064 119.4999,-0.0421 119.4906,-0.0199 119.4917,5.0E-4 119.5325,0.0211 119.5428,0.0242 119.5532,0.0209 119.5654,0.0125 119.5809,1.0E-4 119.6137,-0.035 119.6243,-0.0517 119.6284,-0.061 119.6361,-0.0778 119.6462,-0.0879 119.6837,-0.0982 119.6837,-0.0982 55,7.0,Indonesia 102.3803,1.4349 102.3817,1.352 102.3894,1.2948 102.3906,1.2791 102.3874,1.2654 102.377,1.2586 102.3662,1.2609 102.3469,1.2726 102.309,1.3071 102.2642,1.3513 102.2355,1.3848 102.2184,1.4024 102.1944,1.4192 102.1752,1.4272 102.1592,1.4319 102.1477,1.4342 102.1354,1.4353 102.1014,1.4354 102.0815,1.4362 102.0566,1.439 102.0334,1.4433 102.0231,1.4467 102.0038,1.4544 101.986,1.4641 101.9743,1.4732 101.9438,1.504 101.9306,1.5185 101.9099,1.5459 101.8991,1.5627 101.8895,1.5805 101.8847,1.5893 101.8796,1.6052 101.8952,1.6183 101.9224,1.6216 101.9418,1.6203 101.952,1.6169 101.9663,1.6106 102.0053,1.5918 102.017,1.5862 102.0484,1.5765 102.0818,1.569 102.1286,1.5609 102.1739,1.5545 102.2174,1.5533 102.2282,1.5506 102.3203,1.5259 102.3297,1.5216 102.3434,1.5149 102.3518,1.5097 102.3631,1.5007 102.3687,1.4923 102.3745,1.4774 102.381,1.4464 102.3803,1.4349 102.3803,1.4349 41,7.0,Indonesia 97.7013,0.549 97.5898,0.5777 97.5707,0.6015 97.5798,0.6193 97.547,0.7164 97.512,0.798 97.5029,0.816 97.4746,0.8469 97.2833,1.0119 97.2576,1.0619 97.2364,1.1023 97.1962,1.1712 97.1417,1.259 97.0619,1.3317 97.0058,1.3918 97.0488,1.41 97.1147,1.4067 97.1428,1.4143 97.2063,1.4656 97.2234,1.4863 97.2873,1.5 97.3734,1.4684 97.4147,1.4219 97.4247,1.3956 97.4333,1.3774 97.5758,1.1829 97.626,1.1636 97.6781,1.1468 97.7997,1.038 97.8266,0.9694 97.8106,0.9347 97.7936,0.9052 97.7858,0.8754 97.7782,0.7724 97.7772,0.7289 97.7774,0.6905 97.7768,0.6419 97.7607,0.613 97.7097,0.5549 97.7013,0.549 97.7013,0.549 427,-5.0,Ecuador -75.2015,-0.1192 -75.2209,-0.1345 -75.2651,-0.1507 -75.3404,-0.164 -75.3952,-0.1433 -75.4342,-0.1165 -75.5311,-0.106 -75.5397,-0.1717 -75.4864,-0.1798 -75.3963,-0.2318 -75.3801,-0.2732 -75.3746,-0.2944 -75.364,-0.3457 -75.3497,-0.3836 -75.3287,-0.419 -75.3047,-0.4464 -75.2795,-0.4659 -75.2552,-0.4638 -75.178,-0.5224 -75.1598,-0.5603 -75.1644,-0.6287 -75.1826,-0.6452 -75.1927,-0.6494 -75.1989,-0.6552 -75.2084,-0.7296 -75.179,-0.8135 -75.1323,-0.9681 -75.246,-0.9785 -75.275,-0.9663 -75.2925,-0.9495 -75.3174,-0.9215 -75.3474,-1.0367 -75.3594,-1.0842 -75.3771,-1.1521 -75.3986,-1.2403 -75.4687,-1.5121 -75.4788,-1.5381 -75.503,-1.5538 -75.5424,-1.5944 -75.6346,-1.7059 -75.696,-1.7799 -75.8921,-2.0138 -75.9885,-2.1285 -76.3178,-2.3773 -76.5743,-2.5692 -76.8176,-2.6536 -76.9562,-2.7014 -77.1368,-2.7639 -77.3524,-2.8379 -77.7066,-2.9599 -77.7224,-2.9645 -77.7715,-2.9824 -77.8373,-3.0363 -77.9461,-3.1523 -77.9789,-3.2113 -78.0279,-3.2721 -78.0528,-3.2901 -78.0872,-3.3102 -78.1119,-3.3302 -78.1272,-3.3564 -78.115,-3.3883 -78.0927,-3.4092 -78.0819,-3.448 -78.0926,-3.4683 -78.1581,-3.5159 -78.1673,-3.5127 -78.1643,-3.4478 -78.1726,-3.4208 -78.1907,-3.4061 -78.2126,-3.4037 -78.2408,-3.413 -78.2575,-3.4309 -78.2634,-3.4527 -78.2791,-3.5142 -78.2818,-3.5357 -78.2782,-3.5686 -78.2835,-3.6296 -78.2997,-3.7071 -78.3105,-3.7419 -78.3251,-3.7721 -78.3319,-3.7816 -78.3775,-3.8281 -78.4425,-3.908 -78.4516,-3.9274 -78.4644,-3.9738 -78.4663,-4.0053 -78.4664,-4.0423 -78.4688,-4.0683 -78.4742,-4.0908 -78.5519,-4.2736 -78.57,-4.2958 -78.5824,-4.3019 -78.5829,-4.3351 -78.5805,-4.3602 -78.563,-4.4124 -78.5605,-4.4685 -78.5771,-4.5497 -78.5936,-4.569 -78.6193,-4.5795 -78.6336,-4.5834 -78.6771,-4.5984 -78.7008,-4.6088 -78.7336,-4.6306 -78.7691,-4.656 -78.786,-4.6718 -78.816,-4.7111 -78.8284,-4.7356 -78.8283,-4.7772 -78.8385,-4.8628 -78.9208,-4.9666 -78.9462,-4.9896 -78.9728,-4.9947 -79.0098,-4.9692 -79.0928,-4.9583 -79.1128,-4.9566 -79.1412,-4.9581 -79.1949,-4.959 -79.2748,-4.8804 -79.3542,-4.7917 -79.3607,-4.761 -79.4243,-4.6152 -79.4288,-4.576 -79.4485,-4.5155 -79.5306,-4.4424 -79.5523,-4.4301 -79.5773,-4.4291 -79.6143,-4.4519 -79.6929,-4.4768 -79.7247,-4.4735 -79.9066,-4.3681 -79.9341,-4.35 -79.9674,-4.3147 -79.9869,-4.295 -80.0435,-4.2796 -80.0831,-4.2937 -80.0952,-4.3161 -80.1351,-4.3594 -80.1709,-4.3924 -80.2427,-4.4472 -80.267,-4.4602 -80.2988,-4.4732 -80.3182,-4.4665 -80.372,-4.4367 -80.3894,-4.4115 -80.3884,-4.3832 -80.3393,-4.3107 -80.3075,-4.2767 -80.2912,-4.2586 -80.2489,-4.1946 -80.2915,-4.1916 -80.3192,-4.2049 -80.3541,-4.2163 -80.373,-4.2025 -80.3893,-4.1692 -80.3922,-4.1098 -80.4098,-4.0505 -80.4102,-4.0457 -80.3741,-3.9806 -80.3289,-3.9732 -80.2978,-3.9743 -80.2545,-3.9934 -80.2278,-4.0071 -80.2009,-3.9915 -80.0841,-3.8986 -80.0624,-3.8796 -80.0856,-3.8548 -80.1205,-3.7347 -80.1167,-3.7129 -80.115,-3.6323 -80.1217,-3.5915 -80.1441,-3.4932 -80.1681,-3.4134 -80.2494,-3.3765 -80.2328,-3.3558 -80.2006,-3.3246 -80.179,-3.3345 -80.0521,-3.3308 -79.9304,-3.2577 -79.8658,-3.2038 -79.8536,-3.1782 -79.8507,-3.1461 -79.8301,-3.0857 -79.8017,-3.0553 -79.7939,-3.0352 -79.7876,-3.0151 -79.7696,-2.9092 -79.7414,-2.7996 -79.691,-2.656 -79.6796,-2.6397 -79.6462,-2.6115 -79.6368,-2.5938 -79.6356,-2.5393 -79.6589,-2.4816 -79.6801,-2.4864 -79.7026,-2.476 -79.754,-2.3754 -79.7449,-2.3052 -79.752,-2.206 -79.7614,-2.1884 -79.719,-2.0734 -79.6828,-2.0335 -79.6732,-2.0115 -79.7335,-2.0346 -79.7939,-2.0889 -79.8053,-2.1227 -79.8104,-2.1572 -79.8126,-2.1822 -79.813,-2.2026 -79.7982,-2.2281 -79.7799,-2.2513 -79.7741,-2.2723 -79.7757,-2.3864 -79.7794,-2.4248 -79.8001,-2.5304 -79.8159,-2.5564 -79.8413,-2.5786 -79.8837,-2.5979 -79.9124,-2.6094 -79.961,-2.5886 -79.9743,-2.5702 -79.9386,-2.4234 -79.9151,-2.3563 -79.8866,-2.345 -79.8658,-2.3135 -79.9353,-2.3392 -79.9692,-2.4095 -79.9837,-2.4503 -80.0149,-2.5099 -80.0832,-2.5842 -80.1266,-2.6231 -80.1617,-2.7301 -80.2,-2.7249 -80.2209,-2.7179 -80.369,-2.6273 -80.478,-2.5093 -80.5301,-2.4451 -80.5714,-2.4103 -80.5914,-2.394 -80.6422,-2.3771 -80.6935,-2.378 -80.7251,-2.3643 -80.7987,-2.3179 -80.8836,-2.2144 -80.8854,-2.1825 -80.834,-2.2044 -80.7638,-2.1725 -80.6966,-2.1238 -80.6807,-2.1057 -80.6631,-2.0746 -80.6401,-1.9355 -80.6413,-1.912 -80.6832,-1.7594 -80.695,-1.7311 -80.7294,-1.6756 -80.7565,-1.6166 -80.764,-1.5928 -80.755,-1.5585 -80.7307,-1.4965 -80.7184,-1.4723 -80.6971,-1.4622 -80.6677,-1.323 -80.7186,-1.2453 -80.7601,-1.1917 -80.7994,-1.1341 -80.8241,-1.0562 -80.8219,-1.0353 -80.7451,-0.9276 -80.6604,-0.9192 -80.6206,-0.9272 -80.5283,-0.926 -80.4855,-0.8965 -80.4432,-0.8201 -80.44,-0.7699 -80.4334,-0.7341 -80.409,-0.6784 -80.3429,-0.5685 -80.3239,-0.5813 -80.3142,-0.6167 -80.2864,-0.6335 -80.2487,-0.6353 -80.1796,-0.6243 -80.2234,-0.6146 -80.2481,-0.6159 -80.284,-0.6104 -80.3116,-0.5695 -80.3318,-0.5349 -80.4002,-0.4138 -80.4108,-0.3718 -80.282,-0.2161 -80.25,-0.1865 -80.1923,-0.155 -80.1685,-0.1492 -80.1494,-0.1355 -80.049,-0.031 -80.023,0.0 -79.9796,0.0603 -79.956,0.1304 -79.9502,0.167 -79.95,0.212 -79.9533,0.2355 -79.9562,0.2652 -79.9551,0.2926 -79.9502,0.3547 -79.9133,0.3425 -79.9088,0.3485 -79.9034,0.3719 -79.9213,0.4 -79.9433,0.4295 -79.9517,0.4491 -79.9553,0.4956 -79.9309,0.5308 -79.9261,0.5553 -79.9317,0.5858 -79.9462,0.6182 -79.9603,0.6379 -79.9926,0.6473 -80.0179,0.6766 -80.0159,0.7502 -80.011,0.7694 -79.9594,0.8306 -79.9211,0.823 -79.8817,0.8263 -79.7657,0.8727 -79.7297,0.8977 -79.7133,0.9117 -79.6881,0.9377 -79.6693,0.9528 -79.6466,0.9669 -79.569,0.9962 -79.5274,0.99 -79.4898,0.9859 -79.4602,0.9908 -79.3941,1.0385 -79.3696,1.0618 -79.3517,1.0741 -79.2302,1.0812 -79.1971,1.0806 -79.1641,1.0777 -79.1171,1.0815 -79.0813,1.0925 -79.0599,1.1084 -79.0342,1.1334 -78.9908,1.1863 -78.9108,1.1711 -78.8359,1.23 -78.8006,1.2372 -78.786,1.337 -78.7406,1.4274 -78.7211,1.4362 -78.589,1.2843 -78.5685,1.2705 -78.5435,1.2611 -78.5033,1.2418 -78.4721,1.1972 -78.452,1.2081 -78.3782,1.1913 -78.3678,1.1737 -78.3536,1.1531 -78.2657,1.0678 -78.2444,1.0515 -78.2222,1.043 -78.1957,1.0379 -78.1603,1.0287 -78.142,1.0171 -78.0875,0.9697 -78.0123,0.9152 -77.9824,0.9035 -77.9443,0.8998 -77.9117,0.9033 -77.8422,0.8745 -77.7959,0.8249 -77.7665,0.8129 -77.727,0.8075 -77.6928,0.8271 -77.6114,0.8445 -77.5913,0.8364 -77.569,0.8086 -77.5744,0.7806 -77.5723,0.7497 -77.5598,0.728 -77.5375,0.71 -77.4929,0.6853 -77.4784,0.6731 -77.4488,0.6551 -77.4263,0.6579 -77.4065,0.6648 -77.3768,0.6548 -77.3566,0.6213 -77.3593,0.5847 -77.3642,0.5409 -77.3352,0.4126 -77.2928,0.3844 -77.2249,0.3629 -77.1324,0.3358 -77.1052,0.3346 -76.9933,0.3592 -76.949,0.306 -76.7804,0.239 -76.7253,0.2413 -76.6843,0.2488 -76.6409,0.2627 -76.6306,0.2829 -76.526,0.2585 -76.4989,0.2307 -76.4806,0.2204 -76.4592,0.2189 -76.363,0.2466 -76.3219,0.2713 -76.3152,0.3919 -76.1575,0.3953 -76.0598,0.3707 -75.9548,0.3375 -75.9396,0.3198 -75.895,0.2564 -75.8274,0.1634 -75.6758,0.0467 -75.6424,0.0355 -75.6093,0.0433 -75.4907,0.0318 -75.4343,-0.0077 -75.3498,-0.0591 -75.3143,-0.0717 -75.2653,-0.078 -75.2411,-0.0881 -75.2156,-0.102 -75.2015,-0.1192 -75.2015,-0.1192 34,7.0,Indonesia 102.3625,1.2049 102.3366,1.1296 102.33,1.1052 102.3318,1.0551 102.3338,1.0435 102.3381,1.027 102.347,1.0019 102.3513,0.9922 102.354,0.9782 102.3503,0.9619 102.2831,0.9239 102.2688,0.921 102.2587,0.9242 102.1705,1.0079 102.1601,1.018 102.1499,1.0282 102.1448,1.0371 102.125,1.0753 102.117,1.098 102.0876,1.2776 102.0869,1.2906 102.0901,1.3892 102.0965,1.4022 102.1195,1.4097 102.1312,1.4115 102.1442,1.4124 102.1629,1.4103 102.1743,1.4048 102.1875,1.3937 102.3456,1.2509 102.3545,1.2393 102.3616,1.224 102.3625,1.2049 102.3625,1.2049 29,7.0,Indonesia 104.5499,1.0226 104.5284,0.9887 104.5063,0.9079 104.478,0.8233 104.4663,0.8182 104.4436,0.8237 104.4181,0.8327 104.4089,0.8367 104.3654,0.8551 104.3709,0.9184 104.306,0.9736 104.2549,1.0136 104.1992,0.9991 104.1833,0.9977 104.1616,0.9994 104.1354,1.0041 104.122,1.0166 104.1147,1.0838 104.126,1.0981 104.2184,1.1739 104.2919,1.1955 104.4176,1.1756 104.5252,1.1029 104.5324,1.0934 104.545,1.0646 104.5503,1.0493 104.5526,1.0348 104.5499,1.0226 104.5499,1.0226 23,7.0,Indonesia 104.0363,1.1341 104.0352,1.1152 104.0222,1.0465 103.9739,0.9897 103.962,0.9845 103.9144,0.9814 103.8504,1.0033 103.8406,1.007 103.8243,1.0183 103.8091,1.0304 103.8038,1.0388 103.7844,1.0886 103.8233,1.1237 103.8979,1.1708 103.9677,1.1844 103.9797,1.1865 103.9926,1.1859 104.0028,1.1824 104.0163,1.1756 104.0286,1.1603 104.0344,1.1454 104.0363,1.1341 104.0363,1.1341 34,7.0,Indonesia 102.8412,1.0934 102.8549,1.0867 102.9219,1.0369 102.9358,1.0228 102.9792,0.9774 103.0413,0.9023 103.05,0.8908 103.055,0.8785 103.0537,0.8605 103.0503,0.8529 103.0337,0.8379 103.0222,0.8329 103.0108,0.83 102.998,0.829 102.9856,0.8306 102.97,0.8353 102.8289,0.9347 102.7011,0.9988 102.6465,1.0286 102.6123,1.0335 102.5776,1.0221 102.5429,1.0532 102.5857,1.1329 102.5978,1.149 102.6154,1.1584 102.627,1.1605 102.6681,1.1605 102.6856,1.1576 102.6969,1.1549 102.7069,1.1514 102.7523,1.1352 102.7716,1.127 102.8412,1.0934 102.8412,1.0934 63,7.0,Indonesia 102.8912,0.6922 102.8277,0.7569 102.8202,0.7633 102.8116,0.7688 102.7941,0.7786 102.775,0.7869 102.759,0.7917 102.7408,0.7936 102.5779,0.7977 102.5575,0.7977 102.5401,0.7942 102.5158,0.784 102.5053,0.7813 102.4598,0.7716 102.4401,0.7713 102.4292,0.7736 102.3861,0.7922 102.3657,0.806 102.3468,0.8218 102.2983,0.8664 102.2914,0.8772 102.2955,0.8866 102.3223,0.9234 102.3346,0.9297 102.3718,0.9306 102.3826,0.9399 102.3859,0.9539 102.3867,0.9668 102.3826,0.983 102.3765,0.9974 102.3596,1.0353 102.3524,1.0488 102.3518,1.0823 102.3532,1.0947 102.3552,1.1063 102.3585,1.1166 102.3719,1.1305 102.3937,1.1364 102.4072,1.1367 102.4233,1.1323 102.4402,1.1213 102.4636,1.097 102.5002,1.0433 102.49,1.0157 102.5095,0.993 102.532,0.9898 102.5998,1.0126 102.6454,1.0094 102.668,0.9974 102.7728,0.938 102.8098,0.9135 102.8959,0.8493 102.915,0.8337 102.9271,0.8152 102.9336,0.798 102.9361,0.7851 102.9375,0.7702 102.9372,0.7573 102.9337,0.7333 102.9234,0.7094 102.9085,0.6953 102.8912,0.6922 102.8912,0.6922 18,7.0,Indonesia 103.3197,1.0242 103.3264,0.9888 103.2938,0.9863 103.2337,1.004 103.2069,1.0354 103.1972,1.061 103.2013,1.0749 103.2122,1.0981 103.2242,1.1168 103.2347,1.1236 103.2541,1.128 103.2698,1.1239 103.2712,1.1078 103.2691,1.0959 103.2751,1.0749 103.2838,1.053 103.3197,1.0242 103.3197,1.0242 15,7.0,Indonesia 104.0589,0.79 104.0445,0.8305 104.0404,0.8403 104.0259,0.8595 104.0133,0.8673 103.9814,0.8814 103.9726,0.9345 103.9783,0.9464 103.9913,0.9488 104.1443,0.8651 104.1481,0.8557 104.1462,0.8397 104.1283,0.8201 104.0589,0.79 104.0589,0.79 27,-3.0,Brazil -50.1885,0.7435 -50.2074,0.7482 -50.2141,0.7599 -50.2192,0.8057 -50.2121,0.8207 -50.1839,0.8468 -50.1684,0.8601 -50.1479,0.876 -50.136,0.8806 -50.0919,0.8858 -50.0663,0.8829 -50.0425,0.8727 -50.0295,0.8695 -50.012,0.87 -49.9825,0.8772 -49.9544,0.9185 -49.9486,0.8961 -49.9511,0.8808 -49.9915,0.8101 -49.9978,0.8021 -50.0127,0.7879 -50.038,0.7699 -50.0544,0.7616 -50.0763,0.7554 -50.1142,0.7479 -50.1885,0.7435 -50.1885,0.7435 24,7.0,Indonesia 103.3907,0.7397 103.3904,0.7349 103.3814,0.7163 103.3585,0.6773 103.3462,0.6592 103.3361,0.6519 103.324,0.6472 103.3113,0.6467 103.2979,0.6504 103.2866,0.66 103.2375,0.7478 103.2295,0.767 103.2238,0.789 103.2234,0.8087 103.2247,0.8211 103.2273,0.832 103.2572,0.8874 103.2737,0.8878 103.3102,0.8296 103.3513,0.808 103.3854,0.7601 103.391,0.7486 103.3907,0.7397 103.3907,0.7397 29,7.0,Indonesia 103.1814,0.5883 103.1821,0.5799 103.1805,0.5506 103.1767,0.5411 103.1673,0.5337 103.1577,0.5294 103.0697,0.5075 103.0583,0.5052 103.0448,0.5093 103.0356,0.5172 103.0242,0.5327 103.0198,0.5431 103.0175,0.5639 103.0244,0.6013 103.0301,0.6239 103.0343,0.6403 103.0399,0.6554 103.0446,0.6644 103.0588,0.6842 103.0746,0.6956 103.0888,0.7019 103.1044,0.7031 103.1197,0.6942 103.151,0.6638 103.1656,0.6442 103.1731,0.6312 103.1787,0.6162 103.1814,0.5883 103.1814,0.5883 22,-3.0,Brazil -50.1976,0.3417 -50.2336,0.3469 -50.2455,0.3516 -50.2503,0.3609 -50.2539,0.3777 -50.2564,0.3951 -50.2606,0.4286 -50.2612,0.4674 -50.2587,0.4849 -50.2517,0.506 -50.199,0.569 -50.1767,0.5907 -50.02,0.6499 -50.0038,0.6423 -49.9695,0.5985 -49.9663,0.5757 -49.9655,0.5578 -49.967,0.5416 -50.0919,0.4135 -50.181,0.3507 -50.1976,0.3417 -50.1976,0.3417 37,-3.0,Brazil -50.3846,0.171 -50.4032,0.172 -50.4604,0.1908 -50.4754,0.2094 -50.4796,0.2221 -50.4745,0.2353 -50.4583,0.2489 -50.446,0.2576 -50.4343,0.2677 -50.4236,0.284 -50.4153,0.3088 -50.4107,0.3257 -50.4057,0.3432 -50.3857,0.4839 -50.3785,0.5382 -50.3721,0.5503 -50.3211,0.6178 -50.3026,0.609 -50.2983,0.5886 -50.2908,0.5196 -50.294,0.488 -50.2974,0.47 -50.2994,0.4469 -50.2995,0.4289 -50.2926,0.3843 -50.2877,0.3716 -50.2701,0.3431 -50.2626,0.3238 -50.2613,0.3086 -50.2655,0.2938 -50.2817,0.252 -50.3102,0.2431 -50.3324,0.2367 -50.3475,0.2267 -50.3597,0.2108 -50.3846,0.171 -50.3846,0.171 65,-3.0,Brazil -49.9367,-0.0732 -49.9903,-0.0171 -50.0201,2.0E-4 -50.0462,0.0105 -50.0708,0.0142 -50.0858,0.0164 -50.1026,0.017 -50.1379,0.0171 -50.1545,0.0172 -50.182,0.0136 -50.2089,0.0116 -50.2209,0.0109 -50.2429,0.0113 -50.2776,0.0159 -50.2933,0.0217 -50.3049,0.0299 -50.3119,0.0389 -50.3175,0.0548 -50.3359,0.1093 -50.34,0.1733 -50.3355,0.1898 -50.3245,0.1986 -50.2384,0.2168 -50.2164,0.2107 -50.1352,0.2133 -50.1174,0.2143 -50.1019,0.2204 -50.0938,0.226 -50.0847,0.2319 -50.0735,0.2428 -50.0483,0.262 -50.0075,0.2895 -49.977,0.2976 -49.9459,0.2993 -49.9187,0.2993 -49.8513,0.3058 -49.7499,0.3183 -49.6848,0.3305 -49.6692,0.3368 -49.6479,0.3347 -49.6364,0.3299 -49.62,0.3199 -49.5932,0.295 -49.5764,0.2759 -49.5727,0.2633 -49.5752,0.2439 -49.5804,0.2273 -49.588,0.2103 -49.6044,0.2006 -49.6192,0.1965 -49.6439,0.185 -49.7259,0.1382 -49.7516,0.1204 -49.7678,0.1059 -49.7759,0.0971 -49.7965,0.0697 -49.8095,0.0506 -49.8225,0.0314 -49.8332,0.0131 -49.839,2.0E-4 -49.8502,-0.0245 -49.8652,-0.039 -49.9284,-0.0719 -49.9367,-0.0732 -49.9367,-0.0732 14,7.0,Indonesia 104.58,0.0228 104.5747,0.0244 104.5648,0.0288 104.5565,0.0344 104.4763,0.0971 104.421,0.1617 104.4087,0.1767 104.3749,0.2337 104.4244,0.2244 104.588,0.0505 104.5928,0.0387 104.5869,0.025 104.58,0.0228 104.58,0.0228 22,-3.0,Brazil -50.4447,-0.0327 -50.4609,-0.032 -50.483,-0.0233 -50.5118,-0.0015 -50.5364,0.0226 -50.5769,0.0918 -50.5975,0.128 -50.6007,0.1521 -50.5865,0.1712 -50.5345,0.208 -50.5198,0.2087 -50.4159,0.1539 -50.4085,0.1465 -50.3975,0.1265 -50.3933,0.1042 -50.3793,0.0119 -50.3804,3.0E-4 -50.3824,-0.0081 -50.3893,-0.017 -50.3988,-0.0226 -50.4447,-0.0327 -50.4447,-0.0327 19,7.0,Indonesia 98.6947,0.0942 98.6488,0.0815 98.5272,0.0773 98.4196,0.0979 98.4091,0.1134 98.4052,0.1226 98.404,0.1353 98.4175,0.153 98.4393,0.1723 98.4497,0.1754 98.5017,0.1767 98.6522,0.1716 98.6717,0.1668 98.6812,0.16 98.7124,0.1234 98.7244,0.1079 98.7271,0.0876 98.6947,0.0942 98.6947,0.0942 64,-6.0,Ecuador -91.5008,1.0E-4 -91.4359,0.0308 -91.2894,0.1248 -91.213,0.112 -91.2107,0.0883 -91.1733,0.0213 -91.1569,0.0034 -91.1531,0.0 -91.1149,-0.0125 -91.1005,-0.0324 -91.0958,-0.091 -91.099,-0.1224 -91.0997,-0.1429 -91.0825,-0.2113 -91.0681,-0.24 -91.0044,-0.3088 -90.973,-0.3248 -90.9404,-0.345 -90.9178,-0.3655 -90.897,-0.386 -90.8622,-0.4219 -90.8465,-0.5248 -90.8609,-0.5487 -90.8012,-0.6281 -90.7773,-0.6523 -90.7527,-0.6794 -90.7091,-0.7314 -90.7724,-0.9144 -90.8245,-0.9663 -91.0627,-1.0311 -91.0983,-1.0332 -91.1154,-1.0231 -91.1927,-1.0143 -91.218,-1.0124 -91.2432,-1.0177 -91.2701,-1.0253 -91.3171,-1.0154 -91.3381,-0.9951 -91.3902,-0.9176 -91.3986,-0.8892 -91.3915,-0.8535 -91.3734,-0.8251 -91.3519,-0.7985 -91.2112,-0.6856 -91.1352,-0.6611 -91.0971,-0.6718 -91.0587,-0.6809 -90.9815,-0.589 -91.0198,-0.5487 -91.0522,-0.5475 -91.2571,-0.3037 -91.3052,-0.2291 -91.3017,-0.2028 -91.2913,-0.1722 -91.301,-0.1067 -91.3158,-0.0425 -91.3334,-0.0176 -91.3692,-0.0124 -91.4099,-0.0267 -91.4389,-0.0502 -91.4722,-0.0498 -91.502,-0.01 -91.5008,1.0E-4 -91.5008,1.0E-4 33,-3.0,Brazil -49.6387,-0.1561 -49.6568,-0.1513 -49.7717,-0.1058 -49.7839,-0.0986 -49.7916,-0.0814 -49.7963,-0.0642 -49.7138,0.0 -49.711,0.0041 -49.6529,0.048 -49.5951,0.0772 -49.5388,0.0813 -49.5029,0.0786 -49.4687,0.0752 -49.446,0.0707 -49.3827,0.0497 -49.3707,0.0425 -49.3632,0.0358 -49.3437,0.0074 -49.3424,0.0 -49.3288,-0.0279 -49.3268,-0.0436 -49.3256,-0.0684 -49.3587,-0.1055 -49.3818,-0.1179 -49.4074,-0.1238 -49.4699,-0.1339 -49.5351,-0.1364 -49.5483,-0.134 -49.5638,-0.1355 -49.5805,-0.139 -49.6219,-0.1498 -49.6387,-0.1561 -49.6387,-0.1561 22,-3.0,Brazil -50.8511,1.0E-4 -50.8431,0.0096 -50.8122,0.0348 -50.7772,0.059 -50.7455,0.0673 -50.7088,0.0666 -50.6788,0.0566 -50.6505,0.0344 -50.641,0.0198 -50.6503,0.0066 -50.6776,0.0 -50.7666,-0.0294 -50.7847,-0.0355 -50.8029,-0.0399 -50.8291,-0.0451 -50.8445,-0.0473 -50.8663,-0.0458 -50.878,-0.0323 -50.8758,-0.0198 -50.8665,-0.0117 -50.8511,1.0E-4 -50.8511,1.0E-4 14,9.0,Indonesia 129.3915,-0.222 129.3421,-0.1617 129.2232,-0.0434 129.1474,0.0314 129.1453,0.043 129.1598,0.0451 129.1935,0.0227 129.2127,0.0078 129.3983,-0.1427 129.4208,-0.1822 129.4232,-0.2001 129.4097,-0.213 129.3915,-0.222 129.3915,-0.222 42,7.0,Indonesia 104.8122,-0.3336 104.7386,-0.3084 104.7305,-0.3027 104.6801,-0.2643 104.6222,-0.2194 104.5898,-0.21 104.5668,-0.2104 104.5443,-0.215 104.5308,-0.2222 104.4822,-0.2486 104.4254,-0.2715 104.4104,-0.2731 104.326,-0.2222 104.3183,-0.2126 104.3158,-0.2014 104.3148,-0.1865 104.3204,-0.1784 104.3313,-0.1755 104.3416,-0.1721 104.3638,-0.1532 104.3899,-0.1208 104.3981,-0.1049 104.3987,-0.075 104.3966,-0.0495 104.3965,-0.0359 104.3978,-0.0166 104.4005,-0.0061 104.4079,0.0104 104.421,0.0173 104.4589,0.0124 104.4882,0.0 104.4978,-0.0051 104.5058,-0.0107 104.5367,-0.0344 104.5542,-0.0515 104.6218,-0.1347 104.7029,-0.193 104.7714,-0.1932 104.8016,-0.2317 104.8098,-0.2782 104.8122,-0.3336 104.8122,-0.3336 29,7.0,Indonesia 98.4338,-0.3856 98.3944,-0.3027 98.386,-0.2905 98.26,-0.1148 98.1819,-0.015 98.191,-0.0070 98.2354,0.0047 98.2648,0.0065 98.2804,0.0049 98.289,-0.0011 98.334,-0.0611 98.3421,-0.0737 98.3482,-0.0882 98.3539,-0.1098 98.3557,-0.1216 98.36,-0.1378 98.3723,-0.1734 98.3783,-0.1883 98.3832,-0.1974 98.3971,-0.218 98.412,-0.2371 98.4252,-0.2516 98.4341,-0.263 98.4429,-0.2778 98.4479,-0.2937 98.4481,-0.3102 98.4373,-0.3701 98.4338,-0.3856 98.4338,-0.3856 33,-3.0,Brazil -50.8008,-0.2827 -50.8155,-0.2705 -50.8329,-0.2656 -50.8478,-0.2647 -50.8718,-0.2682 -50.9575,-0.2315 -50.9699,-0.2238 -50.9732,-0.2028 -50.9642,-0.1692 -50.9567,-0.1491 -50.9438,-0.1281 -50.9285,-0.1048 -50.9154,-0.0895 -50.896,-0.0869 -50.8748,-0.0876 -50.7925,-0.0638 -50.7223,-0.0417 -50.7056,-0.0354 -50.6816,-0.0194 -50.6533,-0.0070 -50.6417,-0.0055 -50.5702,-0.0070 -50.5571,-0.0104 -50.5057,-0.0538 -50.5003,-0.0623 -50.6235,-0.1662 -50.6534,-0.1794 -50.6802,-0.1816 -50.6919,-0.1882 -50.7178,-0.2088 -50.7527,-0.2394 -50.8008,-0.2827 -50.8008,-0.2827 73,9.0,Indonesia 130.6965,-0.4404 130.6719,-0.4466 130.6467,-0.4502 130.6132,-0.4521 130.5806,-0.4401 130.563,-0.4169 130.5444,-0.3332 130.5339,-0.3027 130.4985,-0.314 130.4429,-0.323 130.3966,-0.3653 130.3665,-0.2538 130.3159,-0.2648 130.2828,-0.2746 130.2143,-0.2666 130.0981,-0.2273 130.0736,-0.2109 130.0936,-0.1984 130.1177,-0.2102 130.2392,-0.2207 130.2827,-0.1972 130.2546,-0.1494 130.2282,-0.1492 130.1931,-0.1513 130.1997,-0.1873 130.1505,-0.1762 130.1305,-0.1386 130.138,-0.106 130.2142,-0.0873 130.2982,-0.0872 130.509,-0.053 130.5526,-0.0362 130.5736,-0.0515 130.6218,-0.0476 130.605,-0.0318 130.6375,-0.0122 130.6782,-0.0086 130.7007,-0.0115 130.7311,-0.0189 130.8959,-0.0661 130.9931,-0.0755 131.1156,-0.1418 131.1531,-0.1673 131.1662,-0.2022 131.1753,-0.2728 131.1643,-0.3014 131.1497,-0.3283 131.1369,-0.3496 131.1087,-0.387 131.1044,-0.3897 131.0229,-0.3386 130.9594,-0.333 130.8884,-0.3603 130.8313,-0.3631 130.8004,-0.3443 130.7548,-0.2796 130.7289,-0.2507 130.6446,-0.2173 130.5641,-0.0968 130.5423,-0.08 130.4682,-0.0889 130.4809,-0.1371 130.5816,-0.2447 130.6793,-0.2902 130.7375,-0.2998 130.7712,-0.3205 130.7967,-0.3639 130.7843,-0.3904 130.7694,-0.4083 130.7385,-0.4254 130.7018,-0.4401 130.6965,-0.4404 130.6965,-0.4404 972,-5.0,Peru -69.8771,-4.2321 -69.8706,-4.2574 -69.881,-4.2783 -69.9,-4.3074 -69.9373,-4.3329 -70.1177,-4.3277 -70.1756,-4.2862 -70.2214,-4.245 -70.2285,-4.2253 -70.2181,-4.1942 -70.2198,-4.1691 -70.24,-4.1347 -70.3492,-4.1273 -70.3852,-4.1498 -70.4196,-4.1749 -70.5039,-4.1906 -70.5454,-4.1558 -70.682,-4.1428 -70.7298,-4.1657 -70.7514,-4.1822 -70.7881,-4.2462 -70.7917,-4.2752 -70.8753,-4.377 -70.9558,-4.377 -70.984,-4.358 -71.0883,-4.3526 -71.2045,-4.376 -71.3008,-4.4256 -71.5689,-4.5036 -71.6447,-4.4879 -71.6654,-4.4852 -71.7999,-4.5056 -71.8203,-4.5128 -71.9458,-4.6071 -72.0468,-4.6881 -72.1525,-4.748 -72.1711,-4.756 -72.1967,-4.7582 -72.2184,-4.7514 -72.2427,-4.7552 -72.2925,-4.7787 -72.3068,-4.8 -72.3079,-4.8328 -72.3206,-4.8687 -72.3939,-4.9352 -72.5345,-5.0143 -72.6733,-5.0712 -72.7033,-5.0828 -72.7687,-5.1189 -72.8152,-5.1667 -72.8348,-5.3154 -72.878,-5.4461 -72.8809,-5.4709 -72.869,-5.5039 -72.8593,-5.5309 -72.8786,-5.6422 -72.9054,-5.7052 -72.9647,-5.7854 -72.9987,-5.8205 -73.0469,-5.8698 -73.1222,-6.0107 -73.1347,-6.0384 -73.1461,-6.0866 -73.142,-6.1143 -73.135,-6.1391 -73.0829,-6.2329 -73.0353,-6.3743 -73.0369,-6.4108 -73.0408,-6.4398 -73.0619,-6.4816 -73.0777,-6.508 -73.1027,-6.5397 -73.1332,-6.5592 -73.1932,-6.5674 -73.2154,-6.5667 -73.2518,-6.5669 -73.2776,-6.5743 -73.5041,-6.7272 -73.5929,-6.7968 -73.6603,-6.869 -73.6708,-6.8864 -73.7161,-7.0729 -73.7114,-7.1145 -73.6919,-7.129 -73.6367,-7.2147 -73.6223,-7.3008 -73.6547,-7.3254 -73.8476,-7.3506 -73.8471,-7.4343 -73.8788,-7.5188 -73.9037,-7.5202 -73.9185,-7.5218 -73.921,-7.5458 -73.8905,-7.5657 -73.8489,-7.6005 -73.7823,-7.6666 -73.7687,-7.6909 -73.7588,-7.7085 -73.7384,-7.7227 -73.6687,-7.7479 -73.6412,-7.7556 -73.6238,-7.7676 -73.6107,-7.7943 -73.6154,-7.8372 -73.6426,-7.8704 -73.6939,-7.864 -73.6888,-7.9391 -73.6732,-7.9579 -73.627,-7.9746 -73.569,-8.0076 -73.513,-8.1122 -73.474,-8.2399 -73.4588,-8.2933 -73.4509,-8.3429 -73.3964,-8.3892 -73.3224,-8.441 -73.2638,-8.5924 -73.1915,-8.6645 -73.1592,-8.6695 -73.134,-8.6763 -73.1021,-8.69 -73.0851,-8.7044 -73.0709,-8.725 -73.0603,-8.7523 -73.0513,-8.7804 -73.0404,-8.7976 -72.9777,-8.8923 -72.9244,-8.9202 -72.8811,-8.9781 -72.87,-9.0357 -72.867,-9.0562 -72.8682,-9.0799 -72.8744,-9.1089 -72.8854,-9.1325 -72.9428,-9.2105 -73.0385,-9.3028 -73.077,-9.3338 -73.1018,-9.3545 -73.1197,-9.3902 -72.9001,-9.4002 -72.7814,-9.4013 -72.7602,-9.4008 -72.6497,-9.4025 -72.5266,-9.4355 -72.3222,-9.4727 -72.2916,-9.4817 -72.2219,-9.5222 -72.1729,-9.6461 -72.178,-9.6817 -72.1899,-9.7195 -72.1808,-9.7479 -72.1469,-9.7668 -72.1009,-9.7921 -72.0855,-9.8236 -72.0717,-9.8756 -72.0893,-9.9429 -72.1068,-9.9912 -72.0649,-9.9934 -71.9732,-9.9934 -71.9315,-9.9932 -71.9001,-9.9929 -71.8516,-9.9929 -71.5633,-9.9932 -71.3808,-9.9926 -71.29,-9.9923 -71.2184,-9.9841 -71.1025,-9.9209 -71.0808,-9.8789 -71.0606,-9.8524 -70.9358,-9.8096 -70.9071,-9.7856 -70.8914,-9.7528 -70.8038,-9.6588 -70.7657,-9.6346 -70.7011,-9.5947 -70.5653,-9.48 -70.5105,-9.4302 -70.4901,-9.4229 -70.4369,-9.4172 -70.4674,-9.4899 -70.4993,-9.5278 -70.5296,-9.5646 -70.5131,-9.6205 -70.5177,-9.7703 -70.5349,-9.7877 -70.548,-9.8149 -70.5512,-9.8847 -70.5513,-9.937 -70.5518,-10.0576 -70.5517,-10.1749 -70.5518,-10.3268 -70.5526,-10.5966 -70.5532,-10.7693 -70.554,-10.9007 -70.554,-10.9626 -70.5533,-10.9967 -70.504,-10.9586 -70.4487,-10.9234 -70.4216,-10.9409 -70.3934,-10.9687 -70.3792,-10.9891 -70.3588,-11.0143 -70.3248,-11.0328 -70.275,-11.0537 -70.2514,-11.0567 -70.149,-11.0401 -70.0977,-11.025 -70.0769,-11.0174 -69.9745,-10.9667 -69.9226,-10.9343 -69.8923,-10.9162 -69.8727,-10.9074 -69.8488,-10.9015 -69.7032,-10.9124 -69.6611,-10.9493 -69.6117,-10.9462 -69.5893,-10.941 -69.5095,-10.9378 -69.4909,-10.9381 -69.4237,-11.0501 -69.3558,-11.1611 -69.1723,-11.4595 -69.1381,-11.5151 -69.1039,-11.5705 -68.9928,-11.7507 -68.9626,-11.7993 -68.9241,-11.8618 -68.9102,-11.8826 -68.8803,-11.9312 -68.8482,-11.9849 -68.8034,-12.0731 -68.7584,-12.1632 -68.6725,-12.3362 -68.6592,-12.3639 -68.6216,-12.4401 -68.6001,-12.4817 -68.5968,-12.4871 -68.6661,-12.5704 -68.6907,-12.6299 -68.7378,-12.7185 -68.8017,-12.7432 -68.8442,-12.7881 -68.8951,-12.851 -68.8952,-12.9871 -68.8851,-13.0117 -68.8903,-13.082 -68.8899,-13.151 -68.8818,-13.2573 -68.8805,-13.4374 -68.8822,-13.4913 -68.9001,-13.5507 -68.9439,-13.6267 -68.9833,-13.6922 -68.9345,-13.7754 -68.922,-13.8239 -68.8952,-13.9506 -68.881,-13.9713 -68.8577,-13.9896 -68.8188,-14.016 -68.7777,-14.1842 -68.8327,-14.2007 -68.8786,-14.2077 -68.906,-14.2154 -68.9218,-14.2325 -68.9192,-14.3199 -68.9037,-14.362 -69.0346,-14.4679 -69.1541,-14.5726 -69.1635,-14.5998 -69.1672,-14.6376 -69.1674,-14.6708 -69.2286,-14.7503 -69.2615,-14.763 -69.283,-14.7837 -69.2991,-14.9479 -69.2127,-15.0624 -69.1154,-15.1415 -69.0885,-15.1704 -69.0547,-15.2103 -69.0609,-15.237 -69.0874,-15.2461 -69.1136,-15.2444 -69.1858,-15.3095 -69.2497,-15.4214 -69.3382,-15.604 -69.1308,-16.139 -69.0767,-16.1934 -69.057,-16.2038 -68.9879,-16.2092 -68.9619,-16.1894 -68.8852,-16.1909 -68.7558,-16.2799 -68.7417,-16.3079 -68.7508,-16.3355 -68.9077,-16.401 -68.9511,-16.4545 -68.9582,-16.5289 -68.949,-16.5897 -68.9311,-16.6105 -68.9292,-16.6381 -68.9676,-16.6649 -69.0242,-16.6927 -69.1086,-16.7592 -69.2369,-16.907 -69.3031,-17.0335 -69.3226,-17.0529 -69.3813,-17.0776 -69.4476,-17.1104 -69.5088,-17.1654 -69.5346,-17.1954 -69.5721,-17.2678 -69.5066,-17.2757 -69.4495,-17.328 -69.4172,-17.3592 -69.4165,-17.4071 -69.4155,-17.4853 -69.5458,-17.5974 -69.5994,-17.6435 -69.6497,-17.6399 -69.6856,-17.637 -69.7302,-17.6323 -69.7503,-17.6614 -69.7614,-17.6882 -69.765,-17.7291 -69.7536,-17.7476 -69.7371,-17.7625 -69.7278,-17.7811 -69.6851,-17.9322 -69.6897,-17.9651 -69.7016,-17.995 -69.7119,-18.0194 -69.7597,-18.1119 -69.7828,-18.1371 -69.8737,-18.229 -69.9058,-18.2495 -70.0473,-18.3006 -70.0928,-18.3083 -70.1156,-18.3095 -70.1637,-18.3071 -70.2425,-18.2988 -70.2818,-18.302 -70.3047,-18.3144 -70.3201,-18.3276 -70.3299,-18.3177 -70.4375,-18.2283 -70.4804,-18.2006 -70.5059,-18.1905 -70.5457,-18.183 -70.5639,-18.173 -70.6407,-18.1071 -70.81,-17.9601 -70.8361,-17.9232 -70.8715,-17.8951 -70.9301,-17.8616 -71.0088,-17.8385 -71.0819,-17.7884 -71.092,-17.7767 -71.1008,-17.7596 -71.1242,-17.7422 -71.2152,-17.6916 -71.2703,-17.6019 -71.2809,-17.5266 -71.2886,-17.4745 -71.3129,-17.3796 -71.3319,-17.3703 -71.3995,-17.3114 -71.4067,-17.3019 -71.4078,-17.2826 -71.4576,-17.2542 -71.5768,-17.2058 -71.5991,-17.1993 -71.6601,-17.1888 -71.7185,-17.1786 -71.7486,-17.166 -71.8022,-17.1276 -71.8233,-17.09 -71.8391,-17.0719 -71.8891,-17.0382 -71.9283,-17.0205 -71.9591,-17.0084 -72.0392,-16.96 -72.1456,-16.8829 -72.2108,-16.8202 -72.2566,-16.7603 -72.2777,-16.7392 -72.3711,-16.6873 -72.406,-16.672 -72.4922,-16.6473 -72.5274,-16.6392 -72.5629,-16.6379 -72.5832,-16.6368 -72.6154,-16.6346 -72.6432,-16.6313 -72.7052,-16.6127 -72.7295,-16.5932 -72.7622,-16.5607 -72.7949,-16.5371 -72.8175,-16.5239 -72.8482,-16.5146 -72.9356,-16.4814 -73.1469,-16.3931 -73.2261,-16.3268 -73.3187,-16.2818 -73.3657,-16.2646 -73.5158,-16.2156 -73.5506,-16.2076 -73.7475,-16.1392 -73.8765,-16.0387 -73.9109,-16.0098 -73.9578,-15.9477 -74.083,-15.882 -74.168,-15.8573 -74.2553,-15.836 -74.3055,-15.8124 -74.3301,-15.7989 -74.3533,-15.7778 -74.3626,-15.7476 -74.3932,-15.7054 -74.4283,-15.6874 -74.5468,-15.6408 -74.6096,-15.6132 -74.7175,-15.5564 -74.7725,-15.5262 -74.8879,-15.4748 -74.9619,-15.4486 -74.9882,-15.4235 -75.0153,-15.3957 -75.0674,-15.3102 -75.1412,-15.2056 -75.1541,-15.19 -75.1708,-15.1717 -75.2062,-15.14 -75.3059,-15.0712 -75.4136,-14.9134 -75.4321,-14.8927 -75.4585,-14.8727 -75.482,-14.8597 -75.5206,-14.8414 -75.6254,-14.7821 -75.7503,-14.7103 -75.8444,-14.6352 -75.8476,-14.5977 -75.853,-14.5589 -75.8964,-14.4555 -75.9813,-14.3727 -75.9974,-14.3605 -76.0298,-14.2971 -76.0518,-14.214 -76.1155,-14.1579 -76.1417,-14.1418 -76.1888,-14.0193 -76.2115,-13.887 -76.2447,-13.8982 -76.2824,-13.8946 -76.3066,-13.8684 -76.2837,-13.795 -76.2413,-13.7795 -76.2146,-13.7928 -76.1855,-13.8343 -76.1506,-13.7471 -76.1416,-13.717 -76.1143,-13.6226 -76.1069,-13.5661 -76.0945,-13.4425 -76.11,-13.403 -76.1585,-13.3169 -76.1668,-13.3086 -76.1963,-13.2679 -76.2931,-13.1485 -76.3184,-13.1178 -76.3452,-13.0933 -76.3772,-13.0658 -76.3914,-13.0516 -76.4054,-13.0312 -76.4182,-12.9852 -76.4261,-12.9518 -76.4335,-12.8891 -76.516,-12.7738 -76.5507,-12.735 -76.6643,-12.521 -76.7032,-12.4236 -76.7136,-12.3764 -76.7356,-12.3462 -76.772,-12.3056 -76.8298,-12.2572 -76.9631,-12.1133 -76.9805,-12.0924 -77.0036,-12.0797 -77.0369,-12.0636 -77.0552,-11.9865 -77.0584,-11.9357 -77.0669,-11.88 -77.1001,-11.7889 -77.0892,-11.7226 -77.115,-11.6495 -77.2191,-11.4979 -77.2886,-11.438 -77.3988,-11.3717 -77.4629,-11.3365 -77.482,-11.3275 -77.5148,-11.3178 -77.562,-11.285 -77.5795,-11.2397 -77.5634,-11.2067 -77.5303,-11.2034 -77.5252,-11.1675 -77.594,-10.9218 -77.6339,-10.8394 -77.6975,-10.7379 -77.7419,-10.6857 -77.8089,-10.6003 -77.8094,-10.5906 -77.8299,-10.542 -77.8576,-10.5072 -77.9226,-10.4121 -77.9839,-10.3101 -78.0908,-10.0769 -78.1529,-9.9194 -78.17,-9.8612 -78.1592,-9.8132 -78.1601,-9.7847 -78.2528,-9.6704 -78.2915,-9.608 -78.3148,-9.5128 -78.3187,-9.4171 -78.3531,-9.3519 -78.3983,-9.3193 -78.4265,-9.2264 -78.4334,-9.1619 -78.4874,-9.1064 -78.5523,-9.059 -78.5961,-8.9769 -78.5763,-8.9566 -78.5743,-8.9498 -78.5754,-8.9143 -78.6383,-8.8181 -78.6672,-8.7121 -78.6634,-8.6874 -78.6648,-8.6391 -78.6752,-8.6002 -78.6838,-8.5767 -78.7558,-8.4959 -78.8375,-8.4075 -78.8286,-8.3823 -78.8303,-8.3621 -78.9061,-8.2104 -79.0699,-8.0339 -79.0877,-8.0169 -79.1105,-8.0047 -79.1304,-7.9966 -79.2071,-7.9335 -79.2292,-7.9143 -79.2498,-7.8926 -79.283,-7.8438 -79.3389,-7.7477 -79.3552,-7.6839 -79.3667,-7.6481 -79.4113,-7.5691 -79.4436,-7.5319 -79.4607,-7.514 -79.4973,-7.454 -79.5025,-7.4198 -79.4944,-7.3906 -79.5149,-7.3271 -79.5227,-7.3072 -79.5475,-7.2493 -79.5587,-7.2324 -79.6186,-7.1733 -79.6203,-7.1443 -79.6246,-7.1085 -79.6406,-7.0829 -79.7272,-6.9782 -79.75,-6.9623 -79.7868,-6.9397 -79.8416,-6.8826 -79.8558,-6.8628 -79.8719,-6.8043 -79.889,-6.7609 -80.0252,-6.6376 -80.0518,-6.6222 -80.1015,-6.6007 -80.2257,-6.5419 -80.361,-6.4674 -80.4363,-6.4196 -80.4665,-6.3864 -80.4901,-6.3685 -80.5165,-6.3522 -80.5777,-6.3131 -80.798,-6.2233 -80.9772,-6.1481 -81.0535,-6.1033 -81.0821,-6.0797 -81.1038,-5.9829 -81.1046,-5.9622 -81.0865,-5.8914 -81.0588,-5.8488 -81.0198,-5.8265 -80.9734,-5.8263 -80.9436,-5.8455 -80.9185,-5.8556 -80.8909,-5.8631 -80.8666,-5.8607 -80.8466,-5.8534 -80.8277,-5.8379 -80.8061,-5.8032 -80.7964,-5.7838 -80.7889,-5.756 -80.7812,-5.7068 -80.7806,-5.638 -80.8199,-5.5197 -80.8305,-5.4962 -80.8635,-5.434 -80.8887,-5.4036 -80.9591,-5.3356 -80.9991,-5.2998 -81.0209,-5.2932 -81.0433,-5.2804 -81.1108,-5.1983 -81.0858,-5.0683 -81.0604,-5.0562 -81.0231,-5.0605 -81.0027,-5.0543 -80.9932,-5.0358 -80.992,-5.0121 -81.0166,-4.9626 -81.0286,-4.9463 -81.1212,-4.8447 -81.2374,-4.7196 -81.2522,-4.7016 -81.2621,-4.6821 -81.2513,-4.6602 -81.2361,-4.6411 -81.2103,-4.547 -81.1872,-4.3804 -81.1876,-4.3548 -81.1963,-4.3088 -81.1837,-4.2757 -81.1652,-4.2464 -81.0249,-4.1174 -80.9682,-4.0798 -80.9278,-3.9999 -80.8964,-3.9556 -80.8486,-3.9214 -80.7908,-3.8866 -80.7721,-3.8642 -80.7644,-3.8219 -80.7546,-3.7899 -80.7408,-3.7613 -80.7256,-3.7426 -80.6304,-3.6805 -80.5589,-3.6428 -80.5108,-3.6159 -80.4663,-3.5561 -80.4564,-3.5374 -80.4411,-3.506 -80.4118,-3.494 -80.3536,-3.4933 -80.3288,-3.4917 -80.307,-3.4861 -80.2875,-3.4717 -80.2731,-3.4516 -80.2565,-3.4158 -80.2494,-3.3765 -80.1681,-3.4134 -80.1441,-3.4932 -80.1217,-3.5915 -80.115,-3.6323 -80.1167,-3.7129 -80.1205,-3.7347 -80.0856,-3.8548 -80.0624,-3.8796 -80.0841,-3.8986 -80.2009,-3.9915 -80.2278,-4.0071 -80.2545,-3.9934 -80.2978,-3.9743 -80.3289,-3.9732 -80.3741,-3.9806 -80.4102,-4.0457 -80.4098,-4.0505 -80.3922,-4.1098 -80.3893,-4.1692 -80.373,-4.2025 -80.3541,-4.2163 -80.3192,-4.2049 -80.2915,-4.1916 -80.2489,-4.1946 -80.2912,-4.2586 -80.3075,-4.2767 -80.3393,-4.3107 -80.3884,-4.3832 -80.3894,-4.4115 -80.372,-4.4367 -80.3182,-4.4665 -80.2988,-4.4732 -80.267,-4.4602 -80.2427,-4.4472 -80.1709,-4.3924 -80.1351,-4.3594 -80.0952,-4.3161 -80.0831,-4.2937 -80.0435,-4.2796 -79.9869,-4.295 -79.9674,-4.3147 -79.9341,-4.35 -79.9066,-4.3681 -79.7247,-4.4735 -79.6929,-4.4768 -79.6143,-4.4519 -79.5773,-4.4291 -79.5523,-4.4301 -79.5306,-4.4424 -79.4485,-4.5155 -79.4288,-4.576 -79.4243,-4.6152 -79.3607,-4.761 -79.3542,-4.7917 -79.2748,-4.8804 -79.1949,-4.959 -79.1412,-4.9581 -79.1128,-4.9566 -79.0928,-4.9583 -79.0098,-4.9692 -78.9728,-4.9947 -78.9462,-4.9896 -78.9208,-4.9666 -78.8385,-4.8628 -78.8283,-4.7772 -78.8284,-4.7356 -78.816,-4.7111 -78.786,-4.6718 -78.7691,-4.656 -78.7336,-4.6306 -78.7008,-4.6088 -78.6771,-4.5984 -78.6336,-4.5834 -78.6193,-4.5795 -78.5936,-4.569 -78.5771,-4.5497 -78.5605,-4.4685 -78.563,-4.4124 -78.5805,-4.3602 -78.5829,-4.3351 -78.5824,-4.3019 -78.57,-4.2958 -78.5519,-4.2736 -78.4742,-4.0908 -78.4688,-4.0683 -78.4664,-4.0423 -78.4663,-4.0053 -78.4644,-3.9738 -78.4516,-3.9274 -78.4425,-3.908 -78.3775,-3.8281 -78.3319,-3.7816 -78.3251,-3.7721 -78.3105,-3.7419 -78.2997,-3.7071 -78.2835,-3.6296 -78.2782,-3.5686 -78.2818,-3.5357 -78.2791,-3.5142 -78.2634,-3.4527 -78.2575,-3.4309 -78.2408,-3.413 -78.2126,-3.4037 -78.1907,-3.4061 -78.1726,-3.4208 -78.1643,-3.4478 -78.1673,-3.5127 -78.1581,-3.5159 -78.0926,-3.4683 -78.0819,-3.448 -78.0927,-3.4092 -78.115,-3.3883 -78.1272,-3.3564 -78.1119,-3.3302 -78.0872,-3.3102 -78.0528,-3.2901 -78.0279,-3.2721 -77.9789,-3.2113 -77.9461,-3.1523 -77.8373,-3.0363 -77.7715,-2.9824 -77.7224,-2.9645 -77.7066,-2.9599 -77.3524,-2.8379 -77.1368,-2.7639 -76.9562,-2.7014 -76.8176,-2.6536 -76.5743,-2.5692 -76.3178,-2.3773 -75.9885,-2.1285 -75.8921,-2.0138 -75.696,-1.7799 -75.6346,-1.7059 -75.5424,-1.5944 -75.503,-1.5538 -75.4788,-1.5381 -75.4687,-1.5121 -75.3986,-1.2403 -75.3771,-1.1521 -75.3594,-1.0842 -75.3474,-1.0367 -75.3174,-0.9215 -75.2925,-0.9495 -75.275,-0.9663 -75.246,-0.9785 -75.1323,-0.9681 -75.179,-0.8135 -75.2084,-0.7296 -75.1989,-0.6552 -75.1927,-0.6494 -75.1826,-0.6452 -75.1644,-0.6287 -75.1598,-0.5603 -75.178,-0.5224 -75.2552,-0.4638 -75.2795,-0.4659 -75.3047,-0.4464 -75.3287,-0.419 -75.3497,-0.3836 -75.364,-0.3457 -75.3746,-0.2944 -75.3801,-0.2732 -75.3963,-0.2318 -75.4864,-0.1798 -75.5397,-0.1717 -75.5311,-0.106 -75.4342,-0.1165 -75.3952,-0.1433 -75.3404,-0.164 -75.2651,-0.1507 -75.2209,-0.1345 -75.2015,-0.1192 -75.1746,-0.1222 -75.1413,-0.0957 -75.1323,-0.0681 -75.1206,-0.0368 -75.0526,-0.045 -74.9371,-0.1228 -74.8763,-0.1701 -74.854,-0.1984 -74.7764,-0.232 -74.7573,-0.225 -74.7287,-0.2052 -74.7081,-0.1999 -74.6884,-0.2073 -74.6651,-0.2349 -74.6498,-0.2604 -74.6372,-0.2891 -74.6331,-0.311 -74.6319,-0.333 -74.6251,-0.3611 -74.549,-0.4059 -74.5238,-0.3828 -74.4731,-0.417 -74.3102,-0.5426 -74.2927,-0.5671 -74.2867,-0.5769 -74.2746,-0.6323 -74.2554,-0.7052 -74.2325,-0.7804 -74.2068,-0.8085 -74.1646,-0.8526 -74.1806,-0.8977 -74.1993,-0.929 -74.1718,-0.9852 -74.1572,-1.0117 -74.1321,-1.0333 -73.9947,-1.0714 -73.7851,-1.2069 -73.7579,-1.2637 -73.6695,-1.2881 -73.6301,-1.2777 -73.5708,-1.2828 -73.4729,-1.3736 -73.4648,-1.4348 -73.4602,-1.4661 -73.4375,-1.4917 -73.3945,-1.5505 -73.3646,-1.6084 -73.3945,-1.6345 -73.4042,-1.6523 -73.425,-1.7461 -73.4078,-1.7647 -73.3337,-1.8146 -73.2144,-1.8712 -73.1564,-1.8432 -73.1146,-1.8044 -73.0503,-1.8467 -73.0082,-1.9213 -72.9759,-2.1429 -72.9956,-2.1976 -73.019,-2.2291 -73.0492,-2.2434 -73.033,-2.3258 -73.0225,-2.344 -72.9917,-2.3685 -72.9207,-2.4075 -72.8929,-2.3989 -72.8524,-2.3973 -72.8201,-2.4505 -72.7997,-2.5032 -72.7328,-2.4869 -72.6015,-2.4369 -72.5082,-2.4043 -72.3693,-2.4385 -72.246,-2.4799 -72.2179,-2.4884 -72.1459,-2.4958 -71.9888,-2.4048 -71.9009,-2.3665 -71.8504,-2.376 -71.8086,-2.375 -71.7903,-2.3176 -71.7277,-2.2281 -71.641,-2.1565 -71.6124,-2.1455 -71.6023,-2.1638 -71.6034,-2.1934 -71.5937,-2.2224 -71.4959,-2.2338 -71.4395,-2.2319 -71.3318,-2.2786 -71.2812,-2.344 -71.1078,-2.3576 -71.0211,-2.3093 -70.8964,-2.2754 -70.7792,-2.2228 -70.5781,-2.3554 -70.5701,-2.3984 -70.5027,-2.4811 -70.4847,-2.4902 -70.2985,-2.5088 -70.2764,-2.4952 -70.2562,-2.4893 -70.2162,-2.4984 -70.1395,-2.5673 -70.1297,-2.6063 -70.1154,-2.6409 -70.0416,-2.6985 -70.0193,-2.6953 -69.9884,-2.7523 -70.3324,-3.2909 -70.3673,-3.3453 -70.4857,-3.5294 -70.5475,-3.6247 -70.5921,-3.6934 -70.6437,-3.7754 -70.5274,-3.8248 -70.4477,-3.8547 -70.4206,-3.8547 -70.3994,-3.8456 -70.3441,-3.8118 -70.3264,-3.7979 -70.2823,-3.7833 -70.2616,-3.7854 -70.2431,-3.7949 -70.1548,-3.8669 -70.1019,-3.9328 -70.0829,-3.9701 -70.0728,-4.0012 -70.0644,-4.027 -70.0563,-4.0462 -70.0433,-4.0677 -69.9611,-4.1357 -69.9414,-4.149 -69.9089,-4.1709 -69.8769,-4.2045 -69.8771,-4.2321 -69.8771,-4.2321 117,-3.0,Brazil -48.8216,-1.4859 -48.8463,-1.4988 -48.8977,-1.5228 -49.1111,-1.6117 -49.3278,-1.6453 -49.4576,-1.6251 -49.4992,-1.6982 -49.6166,-1.7746 -49.6628,-1.7355 -49.7016,-1.6369 -49.7163,-1.655 -49.7117,-1.6804 -49.7017,-1.7015 -49.6891,-1.7343 -49.6985,-1.7634 -49.7111,-1.7859 -49.7568,-1.8122 -49.8284,-1.7855 -49.8611,-1.7651 -49.8931,-1.7472 -49.9979,-1.7064 -50.0338,-1.7279 -50.0496,-1.7525 -50.2465,-1.8156 -50.318,-1.8333 -50.3817,-1.8286 -50.5224,-1.7963 -50.5742,-1.757 -50.5837,-1.7341 -50.5895,-1.638 -50.6045,-1.6114 -50.6494,-1.574 -50.6755,-1.5458 -50.717,-1.4777 -50.7435,-1.4426 -50.7571,-1.3278 -50.7242,-1.1503 -50.6844,-1.1262 -50.6518,-1.1387 -50.613,-1.1425 -50.5721,-1.1489 -50.5125,-1.1005 -50.5074,-1.0644 -50.5904,-1.0925 -50.6688,-1.084 -50.6867,-1.0721 -50.7284,-1.0384 -50.7398,-0.9707 -50.7403,-0.925 -50.7264,-0.6626 -50.7178,-0.6432 -50.6712,-0.5942 -50.663,-0.6156 -50.6485,-0.643 -50.6256,-0.6475 -50.536,-0.6812 -50.5008,-0.6775 -50.5302,-0.6507 -50.551,-0.6443 -50.5879,-0.6398 -50.6117,-0.6363 -50.633,-0.6004 -50.6574,-0.5316 -50.6695,-0.4971 -50.6467,-0.3888 -50.6356,-0.3584 -50.603,-0.2834 -50.5896,-0.2622 -50.5286,-0.1997 -50.5042,-0.1765 -50.465,-0.1528 -50.4428,-0.1398 -50.3952,-0.1181 -50.3571,-0.1083 -50.2955,-0.1005 -50.2725,-0.1 -50.0852,-0.1264 -50.0511,-0.1337 -49.755,-0.2013 -49.6575,-0.2275 -49.5896,-0.2478 -49.353,-0.2184 -49.3461,-0.1993 -49.2951,-0.1686 -49.2731,-0.1594 -49.1349,-0.1355 -49.0921,-0.1374 -48.95,-0.1539 -48.7704,-0.2068 -48.5759,-0.2244 -48.3557,-0.2616 -48.3154,-0.2923 -48.3095,-0.3132 -48.3181,-0.3715 -48.3331,-0.3947 -48.3632,-0.4195 -48.3776,-0.4431 -48.4071,-0.5161 -48.4127,-0.5376 -48.4118,-0.5859 -48.4295,-0.6864 -48.4398,-0.7336 -48.47,-0.8521 -48.4756,-0.8741 -48.4844,-0.899 -48.5071,-0.9192 -48.5341,-0.9315 -48.5669,-0.9433 -48.5893,-0.9874 -48.5882,-1.0088 -48.5767,-1.0302 -48.5744,-1.0644 -48.7011,-1.2306 -48.7902,-1.4564 -48.8057,-1.4763 -48.8216,-1.4859 -48.8216,-1.4859 27,-3.0,Brazil -51.3323,-0.4855 -51.3406,-0.4844 -51.3493,-0.4733 -51.3477,-0.4539 -51.3416,-0.4341 -51.3341,-0.427 -51.3063,-0.4107 -51.2302,-0.3007 -51.223,-0.2794 -51.2004,-0.2298 -51.1953,-0.2203 -51.1812,-0.2014 -51.1656,-0.1828 -51.1505,-0.1695 -51.1347,-0.1588 -51.0568,-0.1212 -51.0418,-0.1239 -51.0377,-0.1351 -51.0544,-0.2205 -51.08,-0.2849 -51.1627,-0.367 -51.1902,-0.3916 -51.2542,-0.4408 -51.28,-0.4584 -51.323,-0.484 -51.3323,-0.4855 -51.3323,-0.4855 23,-6.0,Ecuador -90.5041,-0.3749 -90.5692,-0.3482 -90.5893,-0.3466 -90.6247,-0.3553 -90.6387,-0.3567 -90.7247,-0.3375 -90.7724,-0.2693 -90.7329,-0.1764 -90.7115,-0.1565 -90.6916,-0.149 -90.6459,-0.1626 -90.5753,-0.1874 -90.5607,-0.1931 -90.5418,-0.2004 -90.5207,-0.2134 -90.5122,-0.2189 -90.4974,-0.2314 -90.4497,-0.2782 -90.446,-0.3011 -90.483,-0.3615 -90.4996,-0.3744 -90.5041,-0.3749 -90.5041,-0.3749 23,7.0,Indonesia 103.6053,-0.2718 103.6146,-0.2789 103.6359,-0.299 103.6438,-0.3117 103.6475,-0.3214 103.65,-0.3351 103.6457,-0.3481 103.6368,-0.3528 103.5001,-0.3895 103.4313,-0.3829 103.4196,-0.3812 103.3478,-0.3666 103.338,-0.3592 103.3649,-0.2976 103.3806,-0.2718 103.3966,-0.2503 103.4136,-0.2364 103.4223,-0.2318 103.4421,-0.2272 103.5074,-0.2332 103.5175,-0.2364 103.6053,-0.2718 103.6053,-0.2718 13,-3.0,Brazil -50.7898,-0.3625 -50.847,-0.3579 -50.8456,-0.3458 -50.8159,-0.3173 -50.6946,-0.2274 -50.6899,-0.2377 -50.692,-0.2891 -50.6945,-0.3002 -50.7064,-0.3298 -50.7221,-0.3518 -50.7461,-0.3584 -50.7898,-0.3625 -50.7898,-0.3625 17,7.0,Indonesia 98.3922,-0.4658 98.3913,-0.539 98.2673,-0.5696 98.2162,-0.5389 98.2143,-0.5194 98.2567,-0.3602 98.2634,-0.3467 98.3129,-0.2491 98.3233,-0.2463 98.3332,-0.25 98.3414,-0.2589 98.3545,-0.2803 98.3739,-0.316 98.4017,-0.3701 98.4018,-0.422 98.3922,-0.4658 98.3922,-0.4658 17,-6.0,Ecuador -91.3964,-0.4955 -91.4016,-0.4954 -91.5097,-0.4478 -91.5364,-0.4127 -91.5493,-0.3848 -91.5612,-0.3154 -91.5295,-0.291 -91.3801,-0.2498 -91.3663,-0.2491 -91.3364,-0.2702 -91.2997,-0.307 -91.2927,-0.3291 -91.2942,-0.4395 -91.3027,-0.458 -91.3186,-0.4661 -91.3964,-0.4955 -91.3964,-0.4955 20,9.0,Indonesia 127.1011,-0.2672 127.1166,-0.2838 127.1385,-0.3803 127.1215,-0.4641 127.1116,-0.497 127.0668,-0.5196 127.0573,-0.524 127.0406,-0.5281 127.017,-0.5313 126.9743,-0.5243 126.9648,-0.4985 126.9633,-0.2938 126.9918,-0.2706 127.0012,-0.2667 127.012,-0.2641 127.0536,-0.2574 127.073,-0.2561 127.0936,-0.257 127.1011,-0.2672 127.1011,-0.2672 21,-3.0,Brazil -51.0581,-0.5432 -51.0787,-0.5413 -51.093,-0.5303 -51.0929,-0.518 -51.0725,-0.3988 -50.9877,-0.2821 -50.9733,-0.2852 -50.8905,-0.3414 -50.8911,-0.3573 -50.9058,-0.3687 -50.93,-0.3723 -50.9564,-0.379 -50.9661,-0.3826 -50.99,-0.3984 -51.0063,-0.4278 -51.0237,-0.4802 -51.0335,-0.5074 -51.0402,-0.5228 -51.0503,-0.5393 -51.0581,-0.5432 -51.0581,-0.5432 57,9.0,Indonesia 127.3888,-0.3099 127.429,-0.321 127.514,-0.4227 127.5363,-0.4583 127.5414,-0.467 127.5405,-0.4801 127.5289,-0.511 127.5233,-0.5227 127.5097,-0.5332 127.4926,-0.5504 127.4829,-0.5616 127.4746,-0.5737 127.4701,-0.5826 127.4659,-0.5929 127.4611,-0.6088 127.4597,-0.6247 127.4643,-0.6367 127.5063,-0.7033 127.5231,-0.7188 127.5372,-0.7214 127.5461,-0.7167 127.5594,-0.7061 127.5733,-0.6994 127.6446,-0.689 127.7083,-0.7176 127.7184,-0.7279 127.7527,-0.7767 127.7493,-0.8065 127.6952,-0.8551 127.6837,-0.864 127.6722,-0.8707 127.6108,-0.8875 127.597,-0.8842 127.532,-0.8538 127.5106,-0.823 127.4623,-0.7683 127.3904,-0.799 127.3401,-0.8206 127.3288,-0.8216 127.3147,-0.8122 127.2988,-0.7868 127.2949,-0.7774 127.2927,-0.7656 127.2914,-0.7464 127.2599,-0.6219 127.2281,-0.592 127.16,-0.5161 127.1475,-0.4772 127.1467,-0.457 127.1777,-0.3423 127.2168,-0.328 127.2277,-0.3296 127.2592,-0.3565 127.2692,-0.3668 127.338,-0.3513 127.3888,-0.3099 127.3888,-0.3099 17,8.0,Indonesia 121.912,-0.3778 121.9083,-0.3958 121.8971,-0.4086 121.8749,-0.4136 121.7802,-0.4163 121.7605,-0.4114 121.7358,-0.3953 121.7194,-0.3745 121.7191,-0.3628 121.7386,-0.3379 121.751,-0.3289 121.7852,-0.3168 121.7955,-0.3129 121.8112,-0.3122 121.9111,-0.3376 121.912,-0.3778 121.912,-0.3778 17,7.0,Indonesia 104.3682,-0.3474 104.4103,-0.3701 104.4679,-0.4432 104.4756,-0.4555 104.4793,-0.4691 104.4764,-0.4838 104.3874,-0.6202 104.3765,-0.626 104.2281,-0.5829 104.1333,-0.4741 104.1603,-0.4095 104.1697,-0.3949 104.2057,-0.3726 104.3494,-0.3382 104.36,-0.3409 104.3682,-0.3474 104.3682,-0.3474 1044,9.0,Indonesia 132.7436,-2.6598 132.795,-2.5915 132.8191,-2.5537 132.8304,-2.5378 132.869,-2.494 132.885,-2.4821 132.9297,-2.4575 132.9563,-2.443 133.0079,-2.4269 133.096,-2.4147 133.1508,-2.4405 133.1596,-2.4451 133.236,-2.5186 133.3558,-2.5629 133.397,-2.5602 133.4546,-2.5356 133.4981,-2.5408 133.5248,-2.5725 133.5275,-2.5836 133.5221,-2.636 133.5281,-2.7149 133.5378,-2.7089 133.5424,-2.6947 133.5613,-2.5486 133.5592,-2.537 133.5545,-2.5248 133.5552,-2.5134 133.5693,-2.5102 133.5806,-2.5127 133.5903,-2.52 133.5977,-2.5299 133.633,-2.5971 133.6529,-2.6483 133.6656,-2.656 133.6718,-2.5814 133.6718,-2.5538 133.6702,-2.539 133.6538,-2.4921 133.6314,-2.478 133.6901,-2.4219 133.7096,-2.4145 133.7638,-2.3867 133.8048,-2.3265 133.8079,-2.2321 133.8055,-2.2205 133.7965,-2.208 133.7737,-2.2688 133.6886,-2.2974 133.6705,-2.2956 133.6476,-2.2722 133.6383,-2.2539 133.6449,-2.2422 133.6593,-2.236 133.6848,-2.2269 133.7618,-2.1963 133.7954,-2.1685 133.7837,-2.1015 133.7257,-2.1117 133.6149,-2.1691 133.4956,-2.2347 133.3929,-2.2433 133.2884,-2.2362 133.2699,-2.2242 133.2508,-2.2161 133.148,-2.1985 133.0517,-2.2109 132.9392,-2.2457 132.8247,-2.2819 132.8143,-2.2851 132.7658,-2.2843 132.7516,-2.2811 132.738,-2.2743 132.7258,-2.2661 132.7078,-2.2566 132.6838,-2.246 132.6686,-2.245 132.6435,-2.2511 132.6339,-2.2551 132.6202,-2.2618 132.541,-2.306 132.5305,-2.3024 132.4903,-2.2813 132.4792,-2.2682 132.4772,-2.2532 132.4729,-2.2366 132.4669,-2.2222 132.4531,-2.2022 132.443,-2.1914 132.4256,-2.1872 132.399,-2.193 132.3829,-2.1971 132.3665,-2.2014 132.3175,-2.2141 132.3071,-2.2177 132.2931,-2.2236 132.2802,-2.2311 132.2562,-2.2482 132.2444,-2.2573 132.2278,-2.2613 132.1889,-2.2703 132.1729,-2.2706 132.1502,-2.2658 132.1355,-2.2563 132.1221,-2.2429 132.0076,-2.1491 131.9965,-2.1464 131.9589,-2.1308 131.8928,-2.0831 131.8235,-1.9649 131.788,-1.8857 131.7834,-1.8737 131.7792,-1.8083 131.8235,-1.7603 131.8085,-1.7059 131.7344,-1.64 131.6574,-1.6056 131.5752,-1.5801 131.5631,-1.5719 131.5562,-1.5579 131.5573,-1.5422 131.4432,-1.4888 131.4287,-1.4829 131.1271,-1.3823 131.127,-1.3946 131.1365,-1.4056 131.1509,-1.4185 131.1674,-1.4294 131.1839,-1.4367 131.1893,-1.4485 131.186,-1.4589 131.1681,-1.4761 131.1531,-1.4881 131.1407,-1.4966 131.0608,-1.5253 131.0381,-1.4856 131.0305,-1.4759 130.9992,-1.4629 130.964,-1.4499 130.9453,-1.4468 130.9024,-1.4533 130.8167,-1.4012 130.8648,-1.3329 130.8883,-1.2734 130.9129,-1.242 130.9278,-1.2345 130.9529,-1.2375 131.008,-1.2276 131.0187,-1.2248 131.032,-1.2173 131.0376,-1.209 131.102,-1.0957 131.1057,-1.0859 131.1393,-0.917 131.1347,-0.9052 131.1086,-0.8218 131.2728,-0.7599 131.2833,-0.7567 131.366,-0.7332 131.3876,-0.7364 131.3912,-0.7484 131.4305,-0.7614 131.6277,-0.725 131.6551,-0.7183 131.6858,-0.7081 131.7158,-0.697 131.7256,-0.6928 131.7361,-0.6836 131.7427,-0.6692 131.7484,-0.6526 131.7705,-0.6218 131.9587,-0.4659 132.0122,-0.4316 132.0294,-0.4211 132.0438,-0.4153 132.1218,-0.3834 132.2746,-0.3459 132.2861,-0.3438 132.4142,-0.3537 132.5646,-0.3665 132.5953,-0.3873 132.671,-0.4211 132.7249,-0.4425 132.9659,-0.5361 133.0114,-0.5369 133.0241,-0.5417 133.1038,-0.6055 133.1654,-0.6668 133.178,-0.6822 133.2,-0.7017 133.2253,-0.7186 133.2401,-0.7237 133.2533,-0.7277 133.2807,-0.7353 133.3044,-0.739 133.4256,-0.753 133.6014,-0.7555 133.6068,-0.7472 133.6054,-0.723 133.8313,-0.7291 133.844,-0.7335 133.8551,-0.7428 133.961,-0.834 133.9286,-0.8874 133.9185,-0.8941 133.8794,-0.9655 133.9472,-1.1016 133.9767,-1.1507 134.008,-1.1843 134.0246,-1.1955 134.0362,-1.2008 134.0546,-1.2202 134.0631,-1.2322 134.1287,-1.3475 134.13,-1.359 134.1082,-1.3816 134.0937,-1.3947 134.0845,-1.4091 134.0811,-1.4231 134.0742,-1.4833 134.073,-1.5355 134.0708,-1.5553 134.0101,-1.616 133.9469,-1.6625 133.9381,-1.676 133.972,-1.8817 133.9947,-1.9316 133.9825,-2.0493 134.009,-2.3168 134.0421,-2.3803 134.0495,-2.3932 134.0718,-2.4254 134.0909,-2.4301 134.1027,-2.4357 134.1688,-2.5021 134.1943,-2.5724 134.2251,-2.6519 134.3115,-2.858 134.3299,-2.8628 134.3435,-2.859 134.3561,-2.8511 134.375,-2.8323 134.372,-2.7999 134.3692,-2.7893 134.3615,-2.7694 134.3426,-2.7124 134.3234,-2.6247 134.3191,-2.5716 134.3203,-2.5561 134.3255,-2.541 134.3345,-2.5226 134.3888,-2.4667 134.4193,-2.4736 134.4736,-2.5014 134.4908,-2.5187 134.5003,-2.536 134.5036,-2.5534 134.5058,-2.5718 134.5064,-2.6711 134.5064,-2.7326 134.5051,-2.7515 134.5055,-2.7785 134.5139,-2.8412 134.5464,-2.9665 134.5534,-2.9766 134.5731,-2.9873 134.5857,-2.9878 134.6001,-2.9846 134.6142,-2.9787 134.653,-2.9511 134.6575,-2.9381 134.6584,-2.9221 134.6768,-2.9011 134.6946,-2.8978 134.7029,-2.9033 134.7089,-2.9278 134.7096,-2.941 134.699,-3.0109 134.6862,-3.019 134.6763,-3.0262 134.6704,-3.0373 134.6604,-3.1202 134.7243,-3.2449 134.7352,-3.2549 134.8425,-3.3324 134.8516,-3.3375 134.9652,-3.3646 135.1805,-3.3897 135.1953,-3.3879 135.3087,-3.3653 135.3246,-3.3606 135.339,-3.3544 135.3638,-3.3378 135.3787,-3.3256 135.3891,-3.3154 135.4025,-3.301 135.4123,-3.2835 135.4175,-3.2661 135.4155,-3.243 135.4211,-3.2348 135.4528,-3.198 135.4809,-3.178 135.4913,-3.175 135.5514,-3.1595 135.5603,-3.1548 135.6135,-3.1124 135.6117,-3.0974 135.588,-3.0789 135.5909,-3.0668 135.6109,-3.0489 135.6764,-3.0193 135.7247,-3.0054 135.7391,-2.9989 135.7542,-2.987 135.7758,-2.9575 135.7834,-2.9408 135.7864,-2.9232 135.7848,-2.9109 135.8022,-2.7828 135.8728,-2.6978 135.8831,-2.6941 135.8961,-2.6947 135.9535,-2.6656 136.0158,-2.6386 136.0295,-2.632 136.0675,-2.6079 136.0822,-2.595 136.0951,-2.5806 136.1013,-2.5729 136.1124,-2.5567 136.1171,-2.5477 136.126,-2.5294 136.1889,-2.3638 136.1917,-2.3459 136.1919,-2.3254 136.1858,-2.3112 136.1816,-2.2946 136.181,-2.2796 136.2034,-2.2511 136.2563,-2.2147 136.2671,-2.2121 136.3296,-2.2088 136.3793,-2.2114 136.3827,-2.2283 136.393,-2.2352 136.4485,-2.2489 136.4608,-2.2502 136.5144,-2.2545 136.6004,-2.2472 136.6154,-2.2367 136.6332,-2.2269 136.6845,-2.1991 136.8373,-2.1312 136.9131,-2.1077 136.9292,-2.1081 136.9442,-2.1123 136.9591,-2.1143 137.0209,-2.1053 137.034,-2.1018 137.0795,-2.0715 137.082,-2.0548 137.0543,-1.9655 137.045,-1.9501 137.0282,-1.9388 137.0084,-1.9327 136.9793,-1.9021 136.956,-1.8721 136.9599,-1.8146 136.9669,-1.8007 136.9771,-1.7906 136.986,-1.7857 137.0376,-1.7634 137.0592,-1.7579 137.1098,-1.7452 137.1911,-1.7099 137.3351,-1.6327 137.348,-1.6133 137.3605,-1.6019 137.4312,-1.5661 137.4504,-1.5581 137.4992,-1.5379 137.5248,-1.528 137.5667,-1.5122 137.5967,-1.5012 137.6228,-1.493 137.6912,-1.4724 137.7058,-1.4699 137.7214,-1.4711 137.777,-1.4877 137.789,-1.503 137.7953,-1.5135 137.8241,-1.5407 137.9061,-1.605 138.2122,-1.7155 138.2585,-1.7303 138.367,-1.7592 138.423,-1.7702 138.4521,-1.7749 138.4694,-1.7784 138.4884,-1.7834 138.5004,-1.7885 138.5179,-1.7981 138.5528,-1.8179 138.5652,-1.8261 138.5885,-1.8447 138.601,-1.863 138.6124,-1.8826 138.6222,-1.894 138.6323,-1.9041 138.6608,-1.93 138.6878,-1.9516 138.6971,-1.9555 138.7082,-1.958 138.7264,-1.9605 138.7431,-1.9597 138.7581,-1.9577 138.7773,-1.9589 138.7882,-1.9616 138.8199,-1.9711 138.8521,-1.9808 138.8901,-1.9971 139.1948,-2.1376 139.251,-2.1634 139.2729,-2.1755 139.2816,-2.1808 139.4287,-2.2593 139.5994,-2.3489 139.6236,-2.3585 139.6456,-2.3638 139.6752,-2.3707 139.6875,-2.3723 139.7273,-2.3735 139.7764,-2.3681 139.8744,-2.3559 139.9359,-2.3257 139.9479,-2.3204 140.0048,-2.3239 140.0101,-2.3323 140.0115,-2.3445 140.0147,-2.3548 140.0543,-2.4042 140.1644,-2.4552 140.1762,-2.4561 140.2178,-2.4456 140.2232,-2.4295 140.3193,-2.4315 140.396,-2.4399 140.4733,-2.4542 140.5493,-2.481 140.5638,-2.4872 140.5745,-2.4935 140.5832,-2.5018 140.5901,-2.526 140.5853,-2.545 140.5759,-2.5627 140.5484,-2.591 140.5421,-2.6117 140.5535,-2.6258 140.5688,-2.6341 140.5787,-2.6345 140.5832,-2.6259 140.6173,-2.6178 140.6654,-2.6067 140.8083,-2.6012 140.8438,-2.604 140.8475,-2.6108 140.845,-4.8999 140.8458,-5.9929 140.846,-6.3256 140.8255,-6.3259 140.8069,-6.3294 140.7721,-6.427 140.7681,-6.4436 140.7872,-6.4633 140.7911,-6.473 140.7873,-6.4924 140.734,-6.5933 140.7032,-6.6236 140.6993,-6.6707 140.6997,-6.7208 140.7114,-6.7787 140.7156,-6.7885 140.7435,-6.8481 140.7899,-6.8958 140.8216,-6.8987 140.8351,-6.8887 140.8467,-6.8853 140.8467,-6.8969 140.851,-9.1182 140.805,-9.0887 140.7879,-9.0789 140.7729,-9.0725 140.7563,-9.0685 140.7328,-9.0645 140.7205,-9.06 140.7015,-9.0483 140.6855,-9.036 140.6727,-9.0221 140.6391,-8.9738 140.6015,-8.93 140.5875,-8.9163 140.5334,-8.8683 140.49,-8.8298 140.462,-8.8034 140.4527,-8.7927 140.4417,-8.7766 140.388,-8.694 140.3473,-8.6224 140.3316,-8.6065 140.18,-8.4789 140.0728,-8.3888 140.0534,-8.3739 139.9661,-8.3106 139.9303,-8.2857 139.9143,-8.2742 139.895,-8.2596 139.8751,-8.2396 139.8376,-8.1957 139.8285,-8.1842 139.8185,-8.1675 139.8256,-8.1286 139.8488,-8.1042 139.8658,-8.1005 139.8948,-8.0773 139.9049,-8.0623 139.9768,-7.93 139.9907,-7.877 139.8966,-7.9179 139.8801,-7.9849 139.8802,-8.0053 139.8844,-8.0223 139.886,-8.0344 139.8831,-8.0453 139.8513,-8.0647 139.8088,-8.0874 139.7878,-8.0929 139.759,-8.1055 139.7128,-8.1041 139.6633,-8.103 139.5957,-8.1036 139.556,-8.1047 139.4641,-8.1156 139.4449,-8.1238 139.436,-8.1288 139.4189,-8.1387 139.4083,-8.148 139.3878,-8.1616 139.3733,-8.1678 139.3515,-8.1738 139.2623,-8.1942 139.2312,-8.1969 139.2106,-8.1971 139.181,-8.1952 139.1699,-8.1924 139.1611,-8.1874 139.12,-8.1603 139.1037,-8.1424 139.089,-8.1227 139.0827,-8.1053 139.0624,-8.0799 138.9284,-8.1308 138.8182,-8.2113 138.8142,-8.2205 138.808,-8.2416 138.7838,-8.2855 138.7657,-8.292 138.7551,-8.2887 138.6971,-8.1802 138.6931,-8.1705 138.684,-8.1488 138.6813,-8.1207 138.6953,-8.0958 138.7485,-8.0279 138.7483,-7.9163 138.7264,-8.027 138.6933,-8.069 138.6271,-8.1301 138.5873,-8.1434 138.5535,-8.1468 138.512,-8.1552 138.4925,-8.1881 138.4687,-8.2256 138.4482,-8.2457 138.2984,-8.3682 138.2532,-8.3916 138.225,-8.4011 138.1455,-8.4166 138.1186,-8.4137 138.096,-8.3952 138.0586,-8.3849 138.0281,-8.3813 137.7143,-8.3616 137.6503,-8.3723 137.5497,-8.4013 137.5204,-8.4219 137.4913,-8.4253 137.4774,-8.4014 137.4806,-8.3715 137.5538,-8.1769 137.5735,-8.1285 137.7073,-7.8662 137.7505,-7.787 137.863,-7.6165 137.8937,-7.5834 137.9152,-7.5654 137.9501,-7.5387 138.0076,-7.4998 138.0655,-7.4624 138.0839,-7.4531 138.2066,-7.4069 138.2509,-7.4 138.299,-7.3936 138.3221,-7.3892 138.3562,-7.3826 138.3893,-7.3742 138.4035,-7.3708 138.4344,-7.362 138.4827,-7.3557 138.546,-7.3543 138.6051,-7.362 138.6506,-7.3749 138.6717,-7.3941 138.7082,-7.4482 138.7237,-7.4784 138.7346,-7.4988 138.7685,-7.5342 138.8117,-7.5473 138.8448,-7.5488 138.8801,-7.6051 138.8251,-7.7604 138.7573,-7.8696 138.751,-7.9027 138.7665,-7.8913 138.7842,-7.8817 138.7959,-7.8798 138.8064,-7.8764 138.8204,-7.8705 138.8358,-7.8586 138.8469,-7.8289 138.8498,-7.8113 138.8497,-7.7977 138.8484,-7.7788 138.8462,-7.7672 138.8477,-7.7517 138.8949,-7.6322 138.8988,-7.623 138.9113,-7.6078 138.9263,-7.5959 138.9368,-7.5823 138.94,-7.5684 138.9382,-7.5533 138.9315,-7.5428 138.9123,-7.5276 138.8836,-7.5157 138.8638,-7.5079 138.8498,-7.5048 138.7772,-7.455 138.7564,-7.401 138.7412,-7.3717 138.7341,-7.3617 138.7252,-7.35 138.7062,-7.3283 138.6922,-7.3149 138.6757,-7.304 138.6073,-7.2632 138.5499,-7.2315 138.5271,-7.2239 138.5145,-7.2157 138.5063,-7.2035 138.5056,-7.1927 138.5182,-7.1848 138.7458,-7.1921 138.778,-7.1945 138.7882,-7.1977 138.8381,-7.2306 138.8524,-7.2368 138.8649,-7.2411 138.8796,-7.2432 138.8938,-7.2433 138.8988,-7.2419 138.9398,-7.2347 138.9785,-7.2356 139.0081,-7.2331 139.0187,-7.2304 139.0277,-7.2188 139.0653,-7.1543 139.0188,-7.175 139.0045,-7.1946 138.9722,-7.2019 138.9325,-7.2035 138.8853,-7.2055 138.6905,-7.1458 138.6036,-7.1095 138.5923,-7.1007 138.4248,-6.9535 138.4119,-6.9391 138.4072,-6.9302 138.4039,-6.9163 138.4061,-6.8984 138.4131,-6.8887 138.4318,-6.8747 138.4411,-6.8704 138.4873,-6.8692 138.502,-6.8739 138.5423,-6.8882 138.5616,-6.8913 138.5721,-6.8919 138.5842,-6.8895 138.6008,-6.8794 138.6221,-6.86 138.6479,-6.8484 138.7301,-6.8376 138.7521,-6.8357 138.7723,-6.8389 138.8081,-6.8512 138.8261,-6.8608 138.8403,-6.8737 138.8498,-6.8846 138.8664,-6.9029 138.8912,-6.9253 138.9151,-6.9427 138.9362,-6.9555 138.9499,-6.9621 138.9642,-6.9682 138.9795,-6.9703 139.0291,-6.9596 139.0149,-6.9512 138.9889,-6.9499 138.9719,-6.9466 138.9624,-6.9426 138.9315,-6.9254 138.917,-6.9155 138.8903,-6.8909 138.8778,-6.8769 138.86,-6.8608 138.8295,-6.8439 138.8152,-6.8378 138.8006,-6.8316 138.7803,-6.8248 138.744,-6.8203 138.7254,-6.818 138.6309,-6.7706 138.5337,-6.7209 138.5247,-6.713 138.5212,-6.7027 138.5158,-6.6808 138.5097,-6.65 138.5185,-6.6428 138.532,-6.639 138.5477,-6.6391 138.5197,-6.6011 138.404,-6.4852 138.3381,-6.4277 138.3244,-6.4143 138.306,-6.3916 138.2807,-6.3556 138.2512,-6.2897 138.2407,-6.2657 138.238,-6.2549 138.2326,-6.2263 138.2314,-6.2144 138.2315,-6.2008 138.236,-6.1884 138.236,-6.1774 138.2078,-6.0945 138.2039,-6.0849 138.1683,-6.0181 138.1388,-5.966 138.1402,-5.8488 138.1228,-5.8452 138.0544,-5.8248 138.0413,-5.8174 138.0292,-5.8091 138.0189,-5.7988 138.0105,-5.7865 138.0228,-5.7615 138.0338,-5.7519 138.0988,-5.7154 138.1942,-5.6738 138.1836,-5.6649 138.157,-5.6638 138.0638,-5.6781 138.0515,-5.6831 138.0195,-5.6994 138.0067,-5.7113 137.9285,-5.7334 137.9142,-5.7247 137.8996,-5.6639 137.8969,-5.6464 137.8956,-5.6204 137.8956,-5.5933 137.8974,-5.5751 137.9086,-5.5102 137.916,-5.4318 137.9158,-5.4183 137.9078,-5.4025 137.8864,-5.4339 137.879,-5.4537 137.7914,-5.4211 137.6209,-5.3085 137.5928,-5.2744 137.5058,-5.2177 137.4515,-5.2034 137.4381,-5.1967 137.4179,-5.1822 137.4131,-5.1708 137.4209,-5.1617 137.4364,-5.1494 137.3613,-5.1489 137.2525,-5.1 137.2072,-5.0698 137.1478,-5.024 137.1121,-4.981 137.067,-4.9998 137.0541,-5.007 136.8473,-4.9485 136.6667,-4.9247 136.6522,-4.9151 136.6433,-4.9001 136.4759,-4.8223 136.3695,-4.7649 136.3464,-4.7509 136.2048,-4.6778 136.1609,-4.6778 136.1029,-4.6788 136.0133,-4.645 135.8804,-4.5882 135.8534,-4.564 135.8376,-4.5392 135.8175,-4.5111 135.8088,-4.5064 135.7737,-4.4933 135.7429,-4.4902 135.6467,-4.4869 135.6107,-4.4908 135.5826,-4.4957 135.5699,-4.4962 135.4958,-4.484 135.4856,-4.4808 135.4613,-4.4706 135.3679,-4.4513 135.2714,-4.4313 135.2222,-4.4354 135.1881,-4.4383 135.1754,-4.4397 135.1324,-4.4464 135.1111,-4.4559 135.1021,-4.4606 135.0905,-4.4629 135.0783,-4.4614 135.0509,-4.4545 135.023,-4.4417 134.9321,-4.395 134.9191,-4.3878 134.8096,-4.3194 134.6481,-4.2511 134.588,-4.2053 134.4934,-4.1208 134.489,-4.1084 134.5239,-3.9712 134.5313,-3.9447 134.5425,-3.9351 134.5559,-3.9318 134.7006,-3.9496 134.7305,-3.9603 134.7482,-3.9705 134.7605,-3.9753 134.779,-3.974 134.8165,-3.9462 134.8148,-3.9366 134.7476,-3.9247 134.6123,-3.9139 134.5547,-3.9111 134.5203,-3.9104 134.4752,-3.9424 134.4647,-3.9534 134.4564,-3.9796 134.4537,-3.9937 134.445,-4.0055 134.4217,-4.013 134.3691,-4.0217 134.3151,-3.9433 134.2806,-3.9089 134.2644,-3.9032 134.2137,-3.8925 134.2062,-3.9029 134.1966,-3.944 134.1876,-3.9868 134.1509,-4.006 134.0601,-3.9554 134.0305,-3.9299 134.0104,-3.8885 134.014,-3.8578 134.0376,-3.8408 134.0404,-3.8244 134.0238,-3.7883 134.0118,-3.7727 133.9894,-3.7544 133.9748,-3.7477 133.8825,-3.7948 133.8745,-3.8006 133.7732,-3.7458 133.6811,-3.5848 133.649,-3.6008 133.6451,-3.6101 133.6443,-3.6201 133.6488,-3.6504 133.6527,-3.6669 133.6272,-3.6729 133.5919,-3.6566 133.5564,-3.6278 133.4927,-3.5021 133.4856,-3.485 133.4846,-3.4694 133.4888,-3.4568 133.507,-3.4441 133.5181,-3.4414 133.5415,-3.423 133.5481,-3.4091 133.5489,-3.3963 133.5506,-3.3475 133.5432,-3.2947 133.5368,-3.273 133.538,-3.2537 133.5621,-3.1889 133.6318,-3.1292 133.6976,-3.0842 133.7093,-3.079 133.7133,-3.0524 133.7114,-3.0038 133.6779,-2.9583 133.5807,-3.0471 133.5614,-3.0687 133.5163,-3.1207 133.5083,-3.133 133.5032,-3.1454 133.5011,-3.157 133.4895,-3.2861 133.4939,-3.3186 133.4938,-3.3617 133.4921,-3.4073 133.454,-3.4149 133.4192,-3.4344 133.3931,-3.4566 133.4152,-3.4777 133.4387,-3.5302 133.4344,-3.5643 133.4227,-3.5798 133.3849,-3.6053 133.3371,-3.6393 133.259,-3.7119 133.248,-3.7281 133.244,-3.7455 133.255,-3.7973 133.2613,-3.8086 133.2901,-3.8279 133.2979,-3.8402 133.3019,-3.8535 133.3001,-3.8646 133.1616,-4.0101 133.0978,-4.0663 133.0865,-4.0717 133.0751,-4.0745 133.0486,-4.0751 132.9459,-4.0641 132.9161,-4.0562 132.8976,-4.0574 132.8775,-4.0684 132.8398,-4.1127 132.8328,-4.1126 132.7613,-4.0933 132.7495,-4.0847 132.697,-4.0054 132.6651,-3.9318 132.6767,-3.9226 132.6675,-3.8872 132.6643,-3.877 132.6306,-3.786 132.6005,-3.7139 132.6328,-3.6285 132.7388,-3.5903 132.7698,-3.5662 132.7748,-3.561 132.7768,-3.5506 132.7324,-3.4667 132.7171,-3.4621 132.7,-3.4703 132.6726,-3.4486 132.6513,-3.3676 132.6577,-3.3489 132.6653,-3.3359 132.672,-3.3185 132.6692,-3.3017 132.6465,-3.2728 132.6378,-3.2675 132.6167,-3.2651 132.5822,-3.279 132.578,-3.2888 132.5814,-3.3086 132.5807,-3.3308 132.5723,-3.3394 132.5592,-3.3431 132.5466,-3.3387 132.5138,-3.3217 132.5051,-3.3134 132.4474,-3.2309 132.4427,-3.1814 132.4075,-3.1134 132.397,-3.1031 132.3165,-3.0413 132.3005,-3.0296 132.1668,-2.9479 132.1242,-2.9353 132.1125,-2.9334 132.0921,-2.9336 132.0414,-2.9352 132.0326,-2.9404 131.9435,-2.9641 131.9315,-2.9637 131.8082,-2.7838 131.8189,-2.7714 131.9799,-2.6939 131.9896,-2.6901 132.0003,-2.6875 132.0463,-2.6769 132.0588,-2.6755 132.0721,-2.6758 132.1689,-2.6791 132.3621,-2.6971 132.423,-2.7137 132.4384,-2.7223 132.4688,-2.7401 132.4926,-2.757 132.4982,-2.7652 132.5062,-2.7774 132.5166,-2.7876 132.5509,-2.8092 132.561,-2.8126 132.5734,-2.8137 132.5867,-2.8089 132.6403,-2.7701 132.6831,-2.7374 132.6929,-2.7273 132.7436,-2.6598 132.7436,-2.6598 19,-3.0,Brazil -50.9266,-0.5756 -50.8998,-0.5213 -50.8312,-0.3969 -50.8211,-0.3848 -50.7933,-0.3734 -50.7652,-0.3712 -50.732,-0.3778 -50.7199,-0.3831 -50.7052,-0.4041 -50.7001,-0.4204 -50.7025,-0.4389 -50.7084,-0.4508 -50.7264,-0.4711 -50.7397,-0.4845 -50.7479,-0.4916 -50.7676,-0.5065 -50.9013,-0.5665 -50.9266,-0.5756 -50.9266,-0.5756 17,-3.0,Brazil -51.0147,-0.5532 -51.0196,-0.5422 -51.02,-0.5043 -51.017,-0.4931 -51.0129,-0.4837 -51.0041,-0.4721 -50.9924,-0.4631 -50.9365,-0.4236 -50.8974,-0.4012 -50.8651,-0.3853 -50.8449,-0.3782 -50.8529,-0.4123 -50.9025,-0.5065 -50.9453,-0.5424 -50.9539,-0.5472 -51.0147,-0.5532 -51.0147,-0.5532 26,8.0,Indonesia 121.7757,-0.4736 121.775,-0.4899 121.7678,-0.5033 121.7537,-0.5133 121.742,-0.5155 121.738,-0.5028 121.7292,-0.491 121.7019,-0.4814 121.5903,-0.4829 121.5743,-0.5113 121.5696,-0.5239 121.5608,-0.5405 121.5304,-0.5533 121.5109,-0.5502 121.5046,-0.5328 121.5449,-0.4605 121.6051,-0.4178 121.7033,-0.4075 121.7147,-0.4068 121.7421,-0.4205 121.7545,-0.4288 121.7633,-0.4404 121.7707,-0.4534 121.7736,-0.4641 121.7757,-0.4736 121.7757,-0.4736 17,9.0,Indonesia 130.4913,-0.4183 130.5142,-0.4258 130.5467,-0.4522 130.5481,-0.4673 130.5224,-0.5108 130.5125,-0.518 130.4919,-0.5277 130.4601,-0.5404 130.4487,-0.543 130.4357,-0.5425 130.3193,-0.5244 130.31,-0.4679 130.3339,-0.4501 130.468,-0.4097 130.4783,-0.413 130.4913,-0.4183 130.4913,-0.4183 18,-6.0,Ecuador -90.2372,-0.7802 -90.3289,-0.7693 -90.4378,-0.6911 -90.449,-0.6322 -90.437,-0.5934 -90.4336,-0.5829 -90.404,-0.5443 -90.3866,-0.5274 -90.3528,-0.5131 -90.2296,-0.501 -90.1907,-0.4974 -90.0859,-0.5453 -90.0776,-0.5691 -90.0881,-0.6557 -90.0985,-0.686 -90.1533,-0.7474 -90.2372,-0.7802 -90.2372,-0.7802 56,-3.0,Brazil -51.8428,-1.4747 -51.8665,-1.4697 -51.891,-1.4419 -51.8886,-1.4169 -51.8675,-1.388 -51.8423,-1.3478 -51.8278,-1.3206 -51.8206,-1.297 -51.8226,-1.2721 -51.8326,-1.2328 -51.8264,-1.1819 -51.811,-1.1682 -51.7849,-1.1643 -51.7429,-1.1618 -51.6619,-1.1373 -51.6324,-1.1176 -51.6157,-1.099 -51.604,-1.0818 -51.5943,-1.0501 -51.5963,-1.0282 -51.6028,-1.007 -51.6065,-0.9842 -51.609,-0.9473 -51.6069,-0.8993 -51.6002,-0.8729 -51.5519,-0.7328 -51.4918,-0.6554 -51.4711,-0.6365 -51.4384,-0.6127 -51.3245,-0.5422 -51.2463,-0.5341 -51.141,-0.5295 -51.1263,-0.5583 -51.0928,-0.6597 -51.0948,-0.6817 -51.1309,-0.7536 -51.1504,-0.7894 -51.1649,-0.8228 -51.1856,-0.8934 -51.2041,-0.979 -51.2191,-1.0186 -51.2896,-1.0617 -51.3077,-1.0854 -51.3233,-1.1113 -51.3426,-1.1456 -51.3754,-1.1922 -51.392,-1.2091 -51.4091,-1.2258 -51.4253,-1.2388 -51.4995,-1.2913 -51.6172,-1.3721 -51.6792,-1.414 -51.7418,-1.4516 -51.8243,-1.4727 -51.8428,-1.4747 -51.8428,-1.4747 31,-3.0,Brazil -51.0826,-0.9609 -51.0915,-0.9481 -51.0912,-0.9342 -51.0792,-0.8747 -51.0447,-0.7641 -51.0352,-0.7352 -51.028,-0.7179 -51.0197,-0.7022 -51.0129,-0.6934 -50.9035,-0.613 -50.8469,-0.5846 -50.8205,-0.5726 -50.8008,-0.5663 -50.7773,-0.5649 -50.7566,-0.5754 -50.7515,-0.5915 -50.7602,-0.6781 -50.7666,-0.6907 -50.7868,-0.6996 -50.7966,-0.7014 -50.8219,-0.7063 -50.8532,-0.7122 -50.8662,-0.7189 -50.8777,-0.7285 -50.8929,-0.7485 -50.9031,-0.7645 -50.9698,-0.8597 -51.0499,-0.937 -51.0744,-0.9583 -51.0826,-0.9609 -51.0826,-0.9609 17,1.0,Gabon 8.9923,-0.7678 8.982,-0.7644 8.9681,-0.7537 8.9585,-0.7394 8.9542,-0.7302 8.9372,-0.6704 8.9367,-0.6573 8.9392,-0.6462 8.9557,-0.6211 8.9939,-0.5987 9.0337,-0.655 9.0365,-0.6682 9.027,-0.7441 9.0068,-0.762 8.9976,-0.7669 8.9923,-0.7678 8.9923,-0.7678 17,9.0,Indonesia 127.0963,-0.6137 127.1106,-0.6189 127.1481,-0.69 127.1759,-0.7936 127.1352,-0.8072 127.0445,-0.7907 127.0332,-0.7882 127.0189,-0.7802 127.0113,-0.7691 127.0095,-0.7544 127.0127,-0.7403 127.0463,-0.6332 127.06,-0.6195 127.0723,-0.615 127.0846,-0.6135 127.0963,-0.6137 127.0963,-0.6137 50,9.0,Indonesia 135.3092,-0.6613 135.3275,-0.6712 135.3943,-0.6773 135.4311,-0.6735 135.5191,-0.6879 135.6123,-0.7501 135.6435,-0.7312 135.6681,-0.7066 135.6994,-0.7024 135.7373,-0.7246 135.9124,-0.8729 135.9558,-0.9417 136.0416,-1.0609 136.0688,-1.0607 136.1136,-1.048 136.213,-1.0926 136.2336,-1.1137 136.1867,-1.1559 136.1621,-1.1721 136.1124,-1.1973 136.0057,-1.2205 135.9748,-1.224 135.9455,-1.2194 135.9224,-1.2075 135.8952,-1.1814 135.8674,-1.1726 135.8403,-1.172 135.8099,-1.1756 135.7663,-1.1909 135.7319,-1.1839 135.6811,-1.1335 135.6362,-0.9494 135.6361,-0.9251 135.6377,-0.8962 135.614,-0.8427 135.6053,-0.8243 135.5763,-0.8217 135.4717,-0.8717 135.4545,-0.8543 135.3882,-0.7978 135.3685,-0.7832 135.3298,-0.7744 135.3344,-0.806 135.3106,-0.7968 135.2733,-0.7656 135.2525,-0.7418 135.2168,-0.6644 135.2316,-0.6358 135.3092,-0.6613 135.3092,-0.6613 27,-6.0,Ecuador -89.4328,-0.9573 -89.4451,-0.9561 -89.5274,-0.9281 -89.5268,-0.9144 -89.517,-0.8969 -89.4917,-0.8809 -89.4772,-0.8745 -89.456,-0.8615 -89.4399,-0.8508 -89.3749,-0.8037 -89.3678,-0.7734 -89.3629,-0.7644 -89.347,-0.7423 -89.3194,-0.7219 -89.2616,-0.69 -89.25,-0.688 -89.2281,-0.685 -89.2154,-0.6843 -89.157,-0.6885 -89.1462,-0.705 -89.1602,-0.7459 -89.175,-0.7658 -89.2056,-0.801 -89.3153,-0.9188 -89.3409,-0.9343 -89.4328,-0.9573 -89.4328,-0.9573 16,-3.0,Brazil -50.8781,-0.8454 -50.886,-0.8447 -50.9069,-0.8375 -50.9116,-0.8225 -50.908,-0.8097 -50.8617,-0.7255 -50.8499,-0.722 -50.8148,-0.7202 -50.7991,-0.7215 -50.7858,-0.7266 -50.7806,-0.7366 -50.7802,-0.7664 -50.7936,-0.8133 -50.8592,-0.8426 -50.8781,-0.8454 -50.8781,-0.8454 22,9.0,Indonesia 130.6947,-0.7693 130.7401,-0.7693 130.7707,-0.7898 130.7446,-0.8345 130.7198,-0.8478 130.6919,-0.862 130.65,-0.8754 130.5214,-0.9025 130.4371,-0.9111 130.4138,-0.9083 130.3313,-0.9052 130.2971,-0.9106 130.2757,-0.9239 130.2653,-0.9269 130.2515,-0.9228 130.3023,-0.8642 130.3406,-0.8342 130.4379,-0.8264 130.5814,-0.8272 130.6583,-0.8099 130.6947,-0.7693 130.6947,-0.7693 37,-3.0,Brazil -51.3297,-1.2133 -51.3414,-1.2115 -51.3423,-1.2004 -51.3406,-1.1889 -51.3323,-1.1697 -51.306,-1.1279 -51.2928,-1.1136 -51.2484,-1.0689 -51.2188,-1.0505 -51.1995,-1.036 -51.1914,-1.0232 -51.1832,-1.0041 -51.1763,-0.9833 -51.1641,-0.9432 -51.1618,-0.9268 -51.1619,-0.9063 -51.1632,-0.88 -51.1608,-0.8596 -51.1552,-0.8443 -51.1453,-0.8406 -51.1339,-0.8532 -51.1248,-0.8691 -51.1234,-0.8884 -51.1232,-0.9343 -51.1237,-0.9539 -51.1249,-0.9665 -51.13,-0.9889 -51.1333,-0.9994 -51.1818,-1.1425 -51.1952,-1.1632 -51.205,-1.1736 -51.2215,-1.1845 -51.2415,-1.1923 -51.3063,-1.2093 -51.3174,-1.2122 -51.3297,-1.2133 -51.3297,-1.2133 25,-3.0,Brazil -50.9158,-0.8679 -50.87,-0.8693 -50.8954,-0.8984 -50.9412,-0.9042 -50.9553,-0.9182 -50.9615,-0.9558 -50.9574,-0.9803 -50.962,-0.9902 -50.9758,-1.0039 -51.0128,-1.0363 -51.1006,-1.0834 -51.1204,-1.0906 -51.1306,-1.079 -51.1135,-1.0253 -51.1018,-1.0075 -51.0835,-0.9847 -51.0135,-0.9102 -50.997,-0.8956 -50.9877,-0.8886 -50.9722,-0.8774 -50.9628,-0.8734 -50.9449,-0.8667 -50.9299,-0.8652 -50.9158,-0.8679 -50.9158,-0.8679 14,-3.0,Brazil -46.4717,-1.021 -46.4793,-1.0179 -46.4917,-0.9998 -46.4965,-0.9872 -46.4954,-0.9682 -46.4845,-0.9379 -46.4699,-0.9216 -46.4189,-0.8796 -46.4029,-0.8893 -46.3882,-1.0022 -46.435,-1.0168 -46.4464,-1.0189 -46.4717,-1.021 -46.4717,-1.021 37,9.0,Indonesia 130.869,-0.9172 130.8882,-0.9107 130.9278,-0.9716 130.925,-1.0823 130.9204,-1.112 130.8914,-1.2377 130.8875,-1.2474 130.8545,-1.3237 130.8497,-1.333 130.8374,-1.348 130.8148,-1.3553 130.7281,-1.3392 130.6896,-1.3115 130.61,-1.2408 130.5992,-1.2172 130.5897,-1.1828 130.5588,-1.1385 130.5467,-1.1215 130.5669,-1.0902 130.5638,-1.0764 130.5516,-1.0475 130.5297,-1.0108 130.508,-1.0047 130.4972,-0.9985 130.4932,-0.9858 130.497,-0.9712 130.5177,-0.96 130.6774,-0.9071 130.6979,-0.9004 130.7139,-0.8955 130.7375,-0.8923 130.7527,-0.8903 130.7868,-0.935 130.8501,-0.9261 130.8596,-0.9225 130.869,-0.9172 130.869,-0.9172 47,7.0,Indonesia 99.171,-1.7371 99.1406,-1.6581 99.1325,-1.6388 99.1144,-1.6202 99.0876,-1.6319 99.11,-1.6572 99.1269,-1.6935 99.1372,-1.7299 99.1378,-1.7714 99.0009,-1.8031 98.9761,-1.7971 98.9427,-1.7826 98.9251,-1.773 98.7652,-1.6749 98.7161,-1.6073 98.7193,-1.5747 98.6919,-1.5202 98.6803,-1.5012 98.624,-1.4237 98.6032,-1.4002 98.5809,-1.3747 98.5221,-1.2864 98.4928,-1.2215 98.4833,-1.1823 98.5022,-1.1498 98.5177,-1.124 98.5316,-1.0932 98.5426,-1.0419 98.541,-0.997 98.547,-0.9697 98.5845,-0.9474 98.6456,-0.9547 98.6751,-0.9563 98.7219,-0.9277 98.7774,-0.91 98.8183,-0.949 98.8793,-1.1072 98.9425,-1.2224 98.9455,-1.2684 98.997,-1.3679 99.1132,-1.5862 99.1394,-1.5809 99.1671,-1.6179 99.1849,-1.7065 99.1747,-1.7344 99.171,-1.7371 99.171,-1.7371 19,9.0,Indonesia 134.7433,-0.9421 134.779,-0.9597 134.8411,-1.0247 134.8408,-1.0723 134.8363,-1.0854 134.8084,-1.1254 134.7948,-1.1325 134.7837,-1.1351 134.7715,-1.1366 134.729,-1.1394 134.7153,-1.1356 134.6501,-1.0395 134.648,-1.0242 134.6612,-0.9811 134.6901,-0.942 134.7243,-0.9386 134.7371,-0.9393 134.7433,-0.9421 134.7433,-0.9421 31,7.0,Indonesia 109.6335,-1.0313 109.6319,-1.0938 109.64,-1.1114 109.6531,-1.1261 109.6527,-1.1409 109.5428,-1.2088 109.3796,-1.2957 109.3632,-1.2999 109.3444,-1.2953 109.3357,-1.2907 109.3231,-1.2822 109.3068,-1.2713 109.296,-1.2618 109.2911,-1.253 109.2937,-1.2422 109.3008,-1.2215 109.314,-1.1931 109.3185,-1.1778 109.3258,-1.1184 109.3293,-1.0637 109.3295,-1.0504 109.3269,-1.0391 109.3701,-0.9784 109.4603,-0.9743 109.5011,-0.9834 109.551,-1.0068 109.5889,-0.9864 109.6159,-1.0006 109.6253,-1.012 109.6335,-1.0313 109.6335,-1.0313 534,3.0,Tanzania, United Republic of 30.4483,-1.0619 30.5592,-1.0643 30.6626,-1.0134 30.7219,-0.9963 30.8542,-0.9958 31.0252,-0.9961 31.2376,-0.997 31.2582,-0.9976 31.5116,-0.9982 31.6419,-0.9985 32.4488,-0.9988 32.5791,-0.999 32.6475,-0.9988 32.7059,-0.9984 32.8536,-0.9985 32.9644,-0.9987 33.0738,-0.9989 33.1492,-0.9984 33.2588,-0.9988 33.3686,-0.9991 33.4014,-0.9994 33.4233,-0.999 33.8832,-1.0005 33.9103,-0.9998 33.9809,-0.9996 34.0373,-1.0379 34.3712,-1.2257 34.4617,-1.2762 34.6783,-1.3973 35.2296,-1.7052 35.6384,-1.9335 35.8405,-2.046 35.9929,-2.1303 36.1127,-2.1974 36.2848,-2.2957 36.6442,-2.4939 37.1542,-2.7756 37.1807,-2.7912 37.2366,-2.8221 37.383,-2.9033 37.4591,-2.9346 37.4804,-2.9456 37.5606,-2.9924 37.6327,-3.0477 37.6555,-3.1829 37.67,-3.2635 37.6774,-3.308 37.648,-3.3127 37.5679,-3.3976 37.5577,-3.4208 37.5576,-3.4463 37.5839,-3.5052 37.6438,-3.5085 37.6949,-3.5244 37.7075,-3.5464 37.7136,-3.5743 37.7221,-3.6112 37.7404,-3.6469 37.8086,-3.6964 38.3739,-4.1009 38.4429,-4.1502 38.5805,-4.2485 38.677,-4.3175 38.9935,-4.5447 39.1173,-4.6339 39.1584,-4.6643 39.1719,-4.6859 39.1762,-4.7423 39.1758,-4.8428 39.1399,-4.9153 39.1181,-4.9277 39.1141,-4.8933 39.1226,-4.8599 39.1017,-4.8794 39.0931,-4.9171 39.0891,-4.9482 39.0825,-5.0455 39.0335,-5.2377 39.011,-5.307 38.9556,-5.4534 38.9225,-5.5401 38.8853,-5.6012 38.8153,-5.7635 38.7589,-5.9499 38.742,-5.989 38.7322,-6.0326 38.7385,-6.0536 38.7944,-6.1396 38.7992,-6.2605 38.8013,-6.3159 38.8076,-6.3439 38.8269,-6.3781 38.8784,-6.4394 38.9216,-6.466 38.9779,-6.4824 39.0021,-6.4734 39.0979,-6.5628 39.1112,-6.5784 39.123,-6.6065 39.1996,-6.7297 39.2604,-6.8086 39.2997,-6.8232 39.3454,-6.8403 39.4196,-6.8528 39.4482,-6.8838 39.4558,-6.9109 39.4629,-6.931 39.4867,-6.9678 39.5034,-6.9861 39.4957,-7.0745 39.4391,-7.1588 39.3765,-7.2135 39.3474,-7.2553 39.3305,-7.2828 39.2554,-7.4508 39.2443,-7.4903 39.2303,-7.5704 39.2315,-7.5972 39.2334,-7.6216 39.2557,-7.7487 39.2783,-7.728 39.2981,-7.7313 39.4025,-7.8052 39.4015,-7.991 39.3046,-8.2657 39.2807,-8.2862 39.2513,-8.2586 39.2614,-8.2871 39.2661,-8.3936 39.2962,-8.5384 39.3104,-8.6567 39.3123,-8.707 39.4148,-8.8126 39.4902,-8.901 39.4088,-8.8514 39.3618,-8.8568 39.3489,-8.8964 39.414,-8.9308 39.5897,-9.1618 39.6011,-9.1832 39.6059,-9.345 39.658,-9.5561 39.6883,-9.645 39.6916,-9.7054 39.6872,-9.744 39.7409,-9.7911 39.7604,-9.8323 39.7619,-9.8559 39.7478,-9.9124 39.7828,-9.9818 39.8462,-10.0102 39.8843,-10.0434 39.929,-10.114 39.9384,-10.1651 39.9319,-10.1908 39.9449,-10.2051 39.954,-10.1591 39.9458,-10.1246 40.0034,-10.129 40.023,-10.1366 40.0699,-10.1563 40.0844,-10.1831 40.0887,-10.2361 40.1841,-10.2859 40.2173,-10.2603 40.1644,-10.2333 40.1941,-10.1937 40.3544,-10.3594 40.3895,-10.436 40.3924,-10.4664 40.3834,-10.4873 40.3371,-10.5284 40.302,-10.5522 40.1147,-10.6654 39.9758,-10.7667 39.919,-10.7965 39.8984,-10.8025 39.8545,-10.8193 39.8247,-10.8364 39.7955,-10.8536 39.7682,-10.8733 39.7517,-10.8896 39.7234,-10.908 39.6478,-10.9316 39.6204,-10.9336 39.4796,-10.9776 39.4603,-10.985 39.348,-11.0653 39.272,-11.1228 39.2494,-11.1398 39.2192,-11.1567 39.1898,-11.1613 39.1628,-11.1605 39.1395,-11.1466 39.093,-11.1295 38.8886,-11.1529 38.8629,-11.1574 38.63,-11.2582 38.6127,-11.2682 38.5927,-11.2818 38.5286,-11.3297 38.4915,-11.3595 38.4493,-11.4023 38.3745,-11.3842 38.3355,-11.3643 38.3151,-11.3515 38.2917,-11.3352 38.1317,-11.2721 38.0546,-11.2434 37.9907,-11.248 37.9205,-11.2661 37.8927,-11.2751 37.8585,-11.2915 37.8236,-11.3198 37.7775,-11.4382 37.7683,-11.4709 37.7808,-11.4969 37.7752,-11.5233 37.7501,-11.548 37.6517,-11.5895 37.5556,-11.6266 37.4317,-11.7054 37.358,-11.7097 37.2267,-11.6895 37.1496,-11.6766 37.0779,-11.6568 36.9568,-11.5784 36.7862,-11.559 36.7453,-11.6042 36.7254,-11.6303 36.7055,-11.6508 36.6845,-11.6686 36.6373,-11.7015 36.5168,-11.7269 36.477,-11.7071 36.3354,-11.6706 36.3024,-11.683 36.2536,-11.6942 36.227,-11.6962 36.1474,-11.6922 36.1345,-11.6555 36.1378,-11.6305 36.1284,-11.5726 35.8984,-11.4197 35.789,-11.4037 35.6941,-11.4701 35.6331,-11.5452 35.6086,-11.5738 35.5342,-11.5937 35.3979,-11.5807 35.1998,-11.5628 34.9725,-11.56 34.9283,-11.559 34.9257,-11.4959 34.919,-11.4689 34.8522,-11.3702 34.8251,-11.3445 34.7641,-11.3188 34.6708,-11.1863 34.6006,-11.1243 34.5778,-11.0981 34.5553,-11.0085 34.5614,-10.9691 34.5891,-10.9391 34.6035,-10.9144 34.6119,-10.8779 34.6251,-10.749 34.6251,-10.7168 34.6199,-10.6519 34.6134,-10.6319 34.5832,-10.5947 34.547,-10.5496 34.5431,-10.5268 34.5422,-10.5225 34.5382,-10.5045 34.5277,-10.3911 34.5313,-10.356 34.5357,-10.3349 34.4973,-10.0344 34.4868,-10.0042 34.4631,-9.9578 34.4453,-9.94 34.3891,-9.8703 34.3362,-9.8004 34.292,-9.7291 34.1684,-9.6164 34.1387,-9.5925 34.099,-9.5601 34.0369,-9.4969 34.0041,-9.4729 33.9653,-9.4769 33.9201,-9.516 33.9122,-9.5409 33.915,-9.5673 33.9229,-9.5933 33.9215,-9.6177 33.9075,-9.6751 33.8816,-9.6956 33.863,-9.673 33.8342,-9.6488 33.7257,-9.5742 33.5419,-9.5738 33.5127,-9.5841 33.4949,-9.6029 33.4568,-9.6111 33.3923,-9.5985 33.3811,-9.5676 33.3614,-9.5319 33.2752,-9.4751 33.2181,-9.4813 33.1631,-9.4968 33.0927,-9.4811 32.9955,-9.4083 32.983,-9.389 32.9651,-9.3658 32.9313,-9.3736 32.907,-9.389 32.904,-9.3945 32.8792,-9.3796 32.8385,-9.3664 32.8079,-9.3632 32.7318,-9.322 32.6667,-9.2718 32.5922,-9.2637 32.5041,-9.2506 32.4695,-9.2066 32.4548,-9.1663 32.3855,-9.1186 32.3298,-9.122 32.2659,-9.1242 32.2231,-9.1228 32.186,-9.11 32.1641,-9.0894 32.1247,-9.0542 32.0593,-9.0482 32.051,-9.0415 32.0234,-9.0312 31.9944,-9.0361 31.9674,-9.0578 31.9464,-9.0601 31.9039,-9.0209 31.8976,-8.9995 31.8964,-8.9635 31.903,-8.9427 31.9169,-8.926 31.8625,-8.904 31.7996,-8.8875 31.7521,-8.8777 31.7062,-8.9027 31.6711,-8.9068 31.6484,-8.8986 31.5579,-8.8296 31.5388,-8.8076 31.5288,-8.7415 31.4506,-8.6565 31.38,-8.6236 31.2607,-8.6101 31.1919,-8.57 31.1682,-8.5692 31.1355,-8.5854 31.1075,-8.603 31.0759,-8.6039 31.0445,-8.5975 31.0248,-8.5899 30.9982,-8.5752 30.9425,-8.5377 30.9264,-8.5225 30.8732,-8.4579 30.8186,-8.3719 30.8013,-8.3432 30.7599,-8.2562 30.7364,-8.1888 30.7368,-8.1827 30.725,-8.1355 30.6728,-7.986 30.6628,-7.9612 30.6344,-7.906 30.6163,-7.8715 30.5832,-7.8249 30.5433,-7.7691 30.4864,-7.6876 30.4755,-7.6706 30.4372,-7.6048 30.4217,-7.5714 30.4146,-7.5512 30.4057,-7.5212 30.3977,-7.4766 30.3954,-7.4474 30.3918,-7.4193 30.3867,-7.3969 30.3752,-7.3559 30.3451,-7.2715 30.3201,-7.2121 30.3039,-7.1791 30.281,-7.1355 30.2125,-7.0357 30.1926,-7.0068 30.1542,-6.9545 30.1381,-6.936 30.1078,-6.9112 30.0364,-6.8435 30.0308,-6.8378 30.0034,-6.8149 29.9687,-6.7943 29.9501,-6.785 29.916,-6.7713 29.8808,-6.7582 29.8515,-6.7431 29.7278,-6.6463 29.7056,-6.6268 29.6869,-6.6041 29.6703,-6.5788 29.5797,-6.3924 29.5338,-6.3238 29.5168,-6.2879 29.5074,-6.2558 29.4649,-6.0494 29.4615,-6.0021 29.4643,-5.9727 29.4711,-5.9391 29.4827,-5.9163 29.5047,-5.8833 29.5366,-5.845 29.5584,-5.8219 29.5753,-5.8005 29.5964,-5.7481 29.5978,-5.7152 29.5926,-5.6791 29.5637,-5.5728 29.5393,-5.514 29.5286,-5.49 29.5102,-5.4602 29.501,-5.4416 29.4937,-5.4212 29.4802,-5.3795 29.4536,-5.2876 29.4424,-5.2308 29.4209,-5.1706 29.3963,-5.1415 29.3805,-5.1195 29.3699,-5.0956 29.3462,-5.0354 29.3319,-4.9943 29.3297,-4.9895 29.318,-4.9458 29.3144,-4.9247 29.3087,-4.8782 29.3074,-4.8448 29.3081,-4.7923 29.3144,-4.7579 29.3253,-4.7242 29.3384,-4.6964 29.3642,-4.6326 29.3778,-4.598 29.3868,-4.573 29.3965,-4.5398 29.397,-4.496 29.3934,-4.4507 29.39,-4.4424 29.3976,-4.443 29.6388,-4.4411 29.7326,-4.4328 29.9015,-4.329 29.9921,-4.2646 30.1405,-4.0774 30.1907,-3.9605 30.1927,-3.929 30.2854,-3.7843 30.3086,-3.7667 30.3381,-3.7684 30.3664,-3.7815 30.3697,-3.7615 30.3571,-3.7067 30.3622,-3.685 30.4142,-3.547 30.4677,-3.5013 30.5001,-3.485 30.5572,-3.4566 30.5908,-3.4503 30.6289,-3.4128 30.6313,-3.3905 30.6147,-3.3744 30.5977,-3.3698 30.5911,-3.3679 30.6009,-3.3466 30.6185,-3.3284 30.7036,-3.279 30.7315,-3.2954 30.7684,-3.2798 30.799,-3.255 30.8186,-3.1538 30.7989,-3.0824 30.8025,-2.9911 30.8088,-2.9753 30.7139,-2.987 30.6272,-2.9706 30.6178,-2.9506 30.5782,-2.9153 30.5249,-2.8914 30.4605,-2.9457 30.4506,-2.9436 30.3828,-2.8527 30.4455,-2.5882 30.4879,-2.4587 30.5391,-2.3961 30.5518,-2.3847 30.6717,-2.3448 30.6918,-2.3524 30.7475,-2.3777 30.796,-2.3515 30.8112,-2.3227 30.8173,-2.2952 30.8141,-2.2584 30.8085,-2.2216 30.8135,-2.187 30.8516,-2.0949 30.8586,-2.073 30.8369,-2.0356 30.7737,-1.927 30.7903,-1.8444 30.8003,-1.7985 30.7838,-1.7267 30.7766,-1.6985 30.7966,-1.6528 30.7144,-1.5153 30.7049,-1.4353 30.6516,-1.3853 30.6033,-1.3878 30.5304,-1.3291 30.4364,-1.1593 30.4205,-1.1 30.4329,-1.0735 30.4483,-1.0619 30.4483,-1.0619 132,2.0,Rwanda 29.5639,-1.3839 29.5842,-1.3855 29.6077,-1.3849 29.6443,-1.3799 29.6646,-1.3657 29.6841,-1.3459 29.8018,-1.318 29.8218,-1.3254 29.8509,-1.3688 29.8513,-1.4 29.8571,-1.431 29.8767,-1.4631 29.8961,-1.4742 29.9032,-1.4738 29.946,-1.4605 30.0754,-1.3659 30.1379,-1.3133 30.1953,-1.265 30.2497,-1.2082 30.2641,-1.1832 30.2813,-1.1421 30.327,-1.0596 30.418,-1.0532 30.4425,-1.0579 30.4483,-1.0619 30.4329,-1.0735 30.4205,-1.1 30.4364,-1.1593 30.5304,-1.3291 30.6033,-1.3878 30.6516,-1.3853 30.7049,-1.4353 30.7144,-1.5153 30.7966,-1.6528 30.7766,-1.6985 30.7838,-1.7267 30.8003,-1.7985 30.7903,-1.8444 30.7737,-1.927 30.8369,-2.0356 30.8586,-2.073 30.8516,-2.0949 30.8135,-2.187 30.8085,-2.2216 30.8141,-2.2584 30.8173,-2.2952 30.8112,-2.3227 30.796,-2.3515 30.7475,-2.3777 30.6918,-2.3524 30.6717,-2.3448 30.5518,-2.3847 30.5391,-2.3961 30.5272,-2.3971 30.4753,-2.3808 30.4309,-2.3497 30.4084,-2.3234 30.359,-2.2988 30.3222,-2.3337 30.2519,-2.3533 30.1245,-2.4255 30.0788,-2.4174 30.0593,-2.4064 29.9705,-2.3333 29.9186,-2.3066 29.9133,-2.3184 29.9016,-2.3681 29.883,-2.5633 29.8868,-2.6388 29.8883,-2.6497 29.8729,-2.6904 29.8427,-2.7344 29.8236,-2.7522 29.7884,-2.7694 29.7057,-2.7997 29.6625,-2.8021 29.5975,-2.7778 29.5824,-2.7907 29.5639,-2.7989 29.5375,-2.7966 29.5023,-2.821 29.4312,-2.8027 29.4107,-2.7926 29.3474,-2.8221 29.3258,-2.8146 29.3044,-2.7539 29.3186,-2.7335 29.3211,-2.7136 29.2928,-2.68 29.2958,-2.6539 29.2469,-2.6311 29.1079,-2.5859 29.0614,-2.589 29.03,-2.6002 29.0144,-2.6632 29.0206,-2.6939 29.009,-2.7261 28.992,-2.7414 28.9847,-2.7206 28.9434,-2.6911 28.9103,-2.688 28.8911,-2.6768 28.8696,-2.657 28.8221,-2.5229 28.835,-2.3959 28.861,-2.3636 28.9525,-2.3315 29.0651,-2.2659 29.0857,-2.2386 29.0977,-2.2102 29.1113,-2.1867 29.1237,-2.1581 29.1338,-2.1305 29.1379,-2.0907 29.1349,-2.0661 29.1155,-2.0118 29.1027,-1.9741 29.0955,-1.9465 29.0917,-1.9138 29.0973,-1.8486 29.1107,-1.813 29.2185,-1.6528 29.2381,-1.6245 29.3292,-1.5092 29.4098,-1.5021 29.4234,-1.5023 29.437,-1.4805 29.4622,-1.4477 29.5053,-1.4118 29.5403,-1.3916 29.5639,-1.3839 29.5639,-1.3839 16,-3.0,Brazil -48.2934,-1.2175 -48.3301,-1.215 -48.3591,-1.2053 -48.4045,-1.1685 -48.412,-1.1542 -48.3563,-1.0735 -48.3413,-1.0695 -48.297,-1.0662 -48.2854,-1.0666 -48.2706,-1.0728 -48.2598,-1.1156 -48.2586,-1.1497 -48.2645,-1.1878 -48.286,-1.2112 -48.2934,-1.2175 -48.2934,-1.2175 11,-3.0,Brazil -45.6249,-1.3601 -45.6382,-1.3568 -45.5949,-1.159 -45.591,-1.1449 -45.5773,-1.1264 -45.558,-1.1321 -45.5565,-1.1473 -45.5577,-1.1601 -45.5827,-1.3447 -45.6249,-1.3601 -45.6249,-1.3601 12,9.0,Indonesia 129.733,-1.1439 129.8138,-1.1719 129.7859,-1.2087 129.6873,-1.2408 129.5963,-1.2096 129.5994,-1.1904 129.6082,-1.1789 129.6205,-1.1709 129.7124,-1.1424 129.7241,-1.1416 129.733,-1.1439 129.733,-1.1439 80,8.0,Indonesia 123.4153,-1.3033 123.4156,-1.3174 123.4144,-1.3294 123.3941,-1.4305 123.3865,-1.4403 123.3156,-1.5046 123.2721,-1.5208 123.2231,-1.5123 123.2185,-1.4964 123.2156,-1.4647 123.2123,-1.4546 123.1839,-1.4207 123.1717,-1.4157 123.1595,-1.4169 123.1504,-1.422 123.1351,-1.4369 123.1293,-1.4483 123.117,-1.4841 123.1142,-1.495 123.1073,-1.5427 123.1067,-1.5627 123.1086,-1.5814 123.0433,-1.6219 123.0261,-1.6209 122.9805,-1.5877 122.971,-1.5764 122.9718,-1.5636 122.979,-1.5536 122.9957,-1.5425 123.0111,-1.5341 123.0401,-1.5119 123.0452,-1.4965 123.0437,-1.4808 123.0192,-1.3657 122.9911,-1.3293 122.9576,-1.3472 122.9503,-1.3569 122.9012,-1.4345 122.8931,-1.4625 122.8822,-1.4807 122.8503,-1.517 122.837,-1.5316 122.7789,-1.5828 122.7689,-1.5898 122.7509,-1.5937 122.7357,-1.5908 122.7221,-1.577 122.6682,-1.4527 122.6658,-1.4308 122.6658,-1.4045 122.666,-1.3775 122.6682,-1.3583 122.6954,-1.2789 122.6995,-1.2694 122.7104,-1.2527 122.7569,-1.1887 122.7704,-1.1787 122.7847,-1.1753 123.0461,-1.1454 123.0567,-1.1517 123.094,-1.2041 123.0993,-1.2128 123.1019,-1.2251 123.0899,-1.244 123.0808,-1.2523 123.0611,-1.2597 123.057,-1.296 123.0925,-1.3971 123.1211,-1.3811 123.1755,-1.3023 123.1951,-1.2664 123.2013,-1.2521 123.2155,-1.2321 123.2331,-1.2238 123.2663,-1.2221 123.3168,-1.2349 123.4,-1.2753 123.4118,-1.284 123.4153,-1.3033 123.4153,-1.3033 17,9.0,Indonesia 127.4231,-1.1762 127.4288,-1.1816 127.4396,-1.1881 127.4855,-1.2071 127.5081,-1.2118 127.4716,-1.2562 127.3526,-1.2671 127.3438,-1.2626 127.314,-1.2411 127.3143,-1.2305 127.3639,-1.1844 127.3792,-1.1764 127.3897,-1.1725 127.4042,-1.1703 127.4155,-1.1722 127.4231,-1.1762 127.4231,-1.1762 17,-6.0,Ecuador -90.3391,-1.3544 -90.3449,-1.3534 -90.3644,-1.3504 -90.3933,-1.3326 -90.4149,-1.3127 -90.4213,-1.3049 -90.3875,-1.2237 -90.3775,-1.2169 -90.3342,-1.2166 -90.2678,-1.2623 -90.2639,-1.2767 -90.2699,-1.2915 -90.295,-1.3242 -90.31,-1.3403 -90.3304,-1.3524 -90.3391,-1.3544 -90.3391,-1.3544 16,-3.0,Brazil -44.943,-1.4006 -44.9483,-1.3992 -44.959,-1.3893 -44.9713,-1.371 -44.9766,-1.3322 -44.9431,-1.282 -44.925,-1.2602 -44.8711,-1.2581 -44.8278,-1.2852 -44.8215,-1.3075 -44.8338,-1.3307 -44.9099,-1.3869 -44.922,-1.3947 -44.9369,-1.4 -44.943,-1.4006 -44.943,-1.4006 47,9.0,Indonesia 127.9976,-1.5862 128.0091,-1.6037 128.0138,-1.6163 128.0157,-1.6413 128.0104,-1.66 128.0031,-1.6763 127.9948,-1.6852 127.9809,-1.6958 127.9556,-1.708 127.9461,-1.7122 127.9354,-1.7147 127.9152,-1.7152 127.8597,-1.7091 127.7181,-1.6943 127.5629,-1.6873 127.535,-1.6982 127.5267,-1.7036 127.5127,-1.7177 127.4971,-1.7256 127.4143,-1.7394 127.4011,-1.74 127.3903,-1.7373 127.361,-1.7256 127.2979,-1.6927 127.2892,-1.6883 127.2515,-1.6574 127.2406,-1.6409 127.2357,-1.6319 127.2364,-1.6189 127.2395,-1.6054 127.2518,-1.5713 127.248,-1.5424 127.2609,-1.4815 127.2822,-1.4392 127.2994,-1.4191 127.3177,-1.4335 127.4123,-1.3751 127.4438,-1.3521 127.4691,-1.3365 127.4855,-1.3286 127.5006,-1.3266 127.5383,-1.3357 127.5781,-1.3467 127.7363,-1.4252 127.9668,-1.5599 127.9976,-1.5862 127.9976,-1.5862 18,10.0,Papua New Guinea 149.5642,-1.6013 149.5475,-1.5766 149.5352,-1.5618 149.5134,-1.5582 149.5111,-1.5805 149.4937,-1.5796 149.3903,-1.4985 149.3643,-1.4657 149.3607,-1.4497 149.3763,-1.4106 149.3966,-1.3687 149.4124,-1.3537 149.4573,-1.3587 149.4954,-1.385 149.5489,-1.4277 149.6224,-1.577 149.5642,-1.6013 149.5642,-1.6013 14,-4.0,Brazil -52.3593,-1.5257 -52.3717,-1.5244 -52.395,-1.5129 -52.3997,-1.4908 -52.3927,-1.4774 -52.3721,-1.4645 -52.1443,-1.3616 -52.1099,-1.4066 -52.1108,-1.4195 -52.164,-1.4481 -52.2004,-1.4668 -52.3294,-1.5195 -52.3593,-1.5257 -52.3593,-1.5257 24,-3.0,Brazil -52.1419,-1.6445 -52.1394,-1.5785 -52.1441,-1.5666 -52.1517,-1.5591 -52.1135,-1.4953 -51.9748,-1.4382 -51.9625,-1.4386 -51.9368,-1.4477 -51.928,-1.4522 -51.9124,-1.4631 -51.9044,-1.4697 -51.8566,-1.5183 -51.8622,-1.5298 -51.875,-1.5411 -51.9133,-1.5604 -51.9409,-1.5714 -51.966,-1.5782 -52.0049,-1.5877 -52.0297,-1.5913 -52.068,-1.5834 -52.1037,-1.5974 -52.1161,-1.6067 -52.1419,-1.6445 -52.1419,-1.6445 100,7.0,Indonesia 106.0264,-2.8652 105.9965,-2.8465 105.9733,-2.8391 105.9017,-2.8315 105.8767,-2.8289 105.8532,-2.8114 105.81,-2.7454 105.7996,-2.7215 105.7818,-2.6436 105.7819,-2.6089 105.8059,-2.5495 105.8198,-2.5218 105.8219,-2.4976 105.8153,-2.4703 105.7991,-2.4516 105.7795,-2.44 105.7367,-2.4281 105.703,-2.385 105.6888,-2.2693 105.6822,-2.1805 105.6738,-2.162 105.6286,-2.1289 105.3618,-2.0986 105.2974,-2.1175 105.2244,-2.1245 105.0194,-2.0734 105.0048,-2.024 105.0251,-1.948 105.0604,-1.9216 105.0908,-1.9109 105.1436,-1.8956 105.1686,-1.8824 105.2671,-1.8136 105.2806,-1.7926 105.2834,-1.7659 105.2696,-1.7387 105.2443,-1.7226 105.2179,-1.7067 105.2271,-1.6542 105.2752,-1.6048 105.337,-1.565 105.4582,-1.5269 105.4866,-1.5339 105.5292,-1.6362 105.5316,-1.7108 105.5377,-1.7332 105.5667,-1.7627 105.5909,-1.7761 105.6624,-1.7926 105.691,-1.7902 105.6316,-1.6401 105.5907,-1.5456 105.6258,-1.5273 105.7682,-1.4887 105.7921,-1.4935 105.9078,-1.5727 105.9246,-1.597 105.9138,-1.6145 105.9088,-1.6455 105.9169,-1.6784 105.9719,-1.7696 106.0188,-1.8467 106.0472,-1.9283 106.044,-1.9596 106.043,-1.9925 106.0468,-2.0329 106.0684,-2.1451 106.1215,-2.3083 106.1343,-2.3401 106.1508,-2.3715 106.1958,-2.4292 106.2377,-2.4693 106.2665,-2.4816 106.4966,-2.5241 106.6615,-2.589 106.6223,-2.6113 106.5981,-2.6358 106.5616,-2.6811 106.5479,-2.7083 106.5368,-2.7386 106.5285,-2.7627 106.5237,-2.7732 106.4883,-2.8711 106.4811,-2.919 106.4888,-2.9445 106.5341,-2.971 106.5395,-2.9708 106.552,-2.9666 106.6209,-2.9986 106.6212,-3.0695 106.5975,-3.0947 106.3991,-3.099 106.3375,-3.0059 106.3246,-2.9778 106.2861,-2.9661 106.1909,-2.9189 106.1615,-2.9041 106.0918,-2.8814 106.0264,-2.8652 106.0264,-2.8652 16,7.0,Indonesia 108.8339,-1.5689 108.8418,-1.5796 108.8429,-1.5949 108.8359,-1.6137 108.8246,-1.6314 108.8094,-1.6414 108.7298,-1.6681 108.7172,-1.6684 108.7073,-1.6645 108.6739,-1.5803 108.6828,-1.5625 108.7742,-1.5356 108.7922,-1.5382 108.8103,-1.544 108.8339,-1.5689 108.8339,-1.5689 16,-3.0,Brazil -44.7187,-1.67 -44.7281,-1.6656 -44.7371,-1.651 -44.733,-1.6172 -44.7211,-1.6059 -44.7008,-1.588 -44.6648,-1.5599 -44.6341,-1.5643 -44.6201,-1.58 -44.6082,-1.6019 -44.6022,-1.6192 -44.6115,-1.6584 -44.6367,-1.6475 -44.6928,-1.6617 -44.7187,-1.67 -44.7187,-1.67 17,-3.0,Brazil -48.9157,-1.7975 -48.9313,-1.7963 -48.9698,-1.7748 -48.9911,-1.7064 -48.9558,-1.6325 -48.9479,-1.6203 -48.9252,-1.5953 -48.8716,-1.576 -48.8569,-1.5738 -48.8444,-1.5804 -48.8456,-1.6281 -48.8893,-1.7618 -48.8929,-1.7722 -48.8995,-1.7858 -48.906,-1.7935 -48.9157,-1.7975 -48.9157,-1.7975 41,9.0,Indonesia 135.3531,-1.5983 135.3689,-1.6073 135.3907,-1.6127 135.6568,-1.6353 135.7461,-1.6423 135.85,-1.6461 135.9381,-1.6512 136.0307,-1.6586 136.1407,-1.6867 136.3059,-1.7195 136.3345,-1.7188 136.4134,-1.7227 136.5536,-1.7345 136.6503,-1.7454 136.6606,-1.749 136.6794,-1.7571 136.7418,-1.7843 136.7471,-1.7941 136.7227,-1.8207 136.7093,-1.8246 136.686,-1.8245 136.5364,-1.8531 136.3897,-1.9014 136.3035,-1.8954 136.066,-1.872 135.9176,-1.8406 135.834,-1.8165 135.8026,-1.7932 135.7827,-1.7788 135.7234,-1.7526 135.5762,-1.7079 135.5173,-1.6963 135.478,-1.6994 135.4659,-1.7011 135.4522,-1.7011 135.3318,-1.6812 135.2695,-1.6067 135.3233,-1.5904 135.3429,-1.5943 135.3531,-1.5983 135.3531,-1.5983 33,9.0,Indonesia 124.2856,-1.655 124.391,-1.634 124.4683,-1.6333 124.4956,-1.6332 124.517,-1.6359 124.8152,-1.699 124.8714,-1.719 124.9785,-1.6895 125.1502,-1.7313 125.1779,-1.7879 125.1795,-1.8853 125.1575,-1.8776 125.0192,-1.8727 124.915,-1.8885 124.8891,-1.9018 124.8808,-1.9357 124.8591,-1.9427 124.8277,-1.9336 124.788,-1.9186 124.7141,-1.895 124.6465,-1.9108 124.5761,-1.9472 124.5515,-1.9673 124.4337,-2.0002 124.3839,-2.0104 124.2655,-2.0138 124.189,-1.8803 124.1875,-1.818 124.228,-1.6929 124.2376,-1.675 124.2557,-1.6609 124.2856,-1.655 124.2856,-1.655 33,9.0,Indonesia 130.2044,-1.6782 130.2092,-1.7083 130.2458,-1.7641 130.2561,-1.7741 130.2619,-1.7825 130.2802,-1.8119 130.286,-1.823 130.2899,-1.8397 130.2894,-1.9723 130.2841,-1.981 130.2352,-2.0086 130.0822,-2.0532 130.0458,-2.0614 129.9749,-2.0635 129.7663,-2.0013 129.7161,-1.9763 129.5915,-1.9106 129.5723,-1.8857 129.5796,-1.8726 129.5957,-1.8612 129.606,-1.8547 129.6455,-1.8428 129.6828,-1.8315 129.81,-1.7813 129.829,-1.7721 129.842,-1.7648 129.8541,-1.7553 129.8673,-1.7489 129.8922,-1.7393 129.9031,-1.7363 130.1768,-1.6791 130.2044,-1.6782 130.2044,-1.6782 15,-3.0,Brazil -49.0833,-1.8647 -49.0966,-1.8611 -49.101,-1.8496 -49.097,-1.8399 -49.0435,-1.7463 -49.0344,-1.738 -48.9996,-1.7206 -48.9851,-1.7693 -48.9706,-1.789 -48.9522,-1.7932 -48.9691,-1.827 -48.9968,-1.849 -49.0368,-1.8376 -49.0833,-1.8647 -49.0833,-1.8647 34,9.0,Indonesia 125.2751,-1.7815 125.2797,-1.7948 125.295,-1.8039 125.5127,-1.822 125.5524,-1.8193 125.5881,-1.8126 125.6073,-1.7982 125.6199,-1.7936 125.7804,-1.7878 125.8472,-1.7865 125.8775,-1.7879 125.9087,-1.7904 126.015,-1.8049 126.1299,-1.8135 126.1954,-1.8151 126.207,-1.8176 126.2041,-1.8278 126.1925,-1.8401 126.1463,-1.8625 126.1226,-1.8725 126.1108,-1.8751 125.839,-1.9056 125.6857,-1.9152 125.3259,-1.9375 125.299,-1.9289 125.2068,-1.8812 125.1993,-1.8685 125.195,-1.8411 125.199,-1.82 125.2067,-1.8071 125.2356,-1.7778 125.2695,-1.7724 125.2751,-1.7815 125.2751,-1.7815 34,10.0,Papua New Guinea 147.2307,-1.9656 147.2673,-1.9894 147.2812,-2.0105 147.2731,-2.0607 147.2607,-2.0651 147.1099,-2.1185 147.09,-2.1466 147.0737,-2.1642 147.0625,-2.1736 147.0431,-2.1867 146.8154,-2.1966 146.7282,-2.1869 146.674,-2.1793 146.6311,-2.1654 146.5617,-2.1583 146.4038,-2.2326 146.3636,-2.1983 146.3604,-2.188 146.3538,-2.1442 146.4157,-1.9964 146.4738,-1.9763 146.6802,-1.948 146.6925,-1.9469 146.705,-1.9466 146.9318,-1.9643 146.9531,-1.9666 146.9992,-1.9808 147.0379,-2.0007 147.1353,-2.0229 147.2532,-2.0455 147.2574,-2.0296 147.2539,-2.0059 147.2307,-1.9656 147.2307,-1.9656 49,9.0,Indonesia 125.8177,-1.9762 125.8317,-1.986 125.8491,-1.9998 125.8588,-2.0138 125.8609,-2.0251 125.8601,-2.0382 125.8569,-2.0486 125.8495,-2.0683 125.8367,-2.0973 125.8295,-2.1239 125.8276,-2.1423 125.8276,-2.1592 125.8321,-2.1784 125.8356,-2.1888 125.8444,-2.2072 125.8583,-2.2279 125.8755,-2.2591 125.9449,-2.4186 125.9452,-2.431 125.9382,-2.4547 125.9277,-2.4721 125.9119,-2.4798 125.8983,-2.4766 125.8675,-2.4596 125.8573,-2.4491 125.8403,-2.4256 125.8256,-2.4025 125.8205,-2.3837 125.8176,-2.3586 125.817,-2.3317 125.8156,-2.3196 125.8128,-2.3084 125.8061,-2.2881 125.7998,-2.2737 125.789,-2.2572 125.7768,-2.242 125.7665,-2.2319 125.7543,-2.213 125.7207,-2.084 125.7185,-2.0693 125.7225,-2.0527 125.7291,-2.0383 125.7439,-2.0055 125.7587,-1.9826 125.7796,-1.9691 125.7913,-1.9683 125.8135,-1.9736 125.8177,-1.9762 125.8177,-1.9762 30,7.0,Indonesia 99.7469,-2.3738 99.7152,-2.348 99.6668,-2.3384 99.6201,-2.3222 99.6112,-2.3176 99.4937,-2.2513 99.4566,-2.2175 99.4192,-2.1559 99.4149,-2.1429 99.4318,-2.0531 99.4608,-2.0239 99.4705,-2.0198 99.4985,-2.0136 99.5135,-2.013 99.5245,-2.0191 99.5729,-2.0663 99.5818,-2.0779 99.589,-2.0918 99.5951,-2.1129 99.5983,-2.1402 99.6032,-2.1522 99.6301,-2.1941 99.6611,-2.238 99.6915,-2.2687 99.7031,-2.2824 99.7169,-2.3029 99.7345,-2.3331 99.7468,-2.3654 99.7469,-2.3738 99.7469,-2.3738 19,3.0,Kenya 40.9516,-2.2004 40.9435,-2.1986 40.9043,-2.1686 40.9269,-2.1064 40.9448,-2.087 41.0179,-2.0416 41.0291,-2.039 41.0527,-2.0358 41.0829,-2.0498 41.1162,-2.0786 41.1232,-2.0957 41.1174,-2.1063 41.0921,-2.122 41.0481,-2.1373 41.0144,-2.1307 40.9703,-2.1463 40.9541,-2.1757 40.9516,-2.2004 40.9516,-2.2004 132,2.0,Burundi 28.992,-2.7414 29.009,-2.7261 29.0206,-2.6939 29.0144,-2.6632 29.03,-2.6002 29.0614,-2.589 29.1079,-2.5859 29.2469,-2.6311 29.2958,-2.6539 29.2928,-2.68 29.3211,-2.7136 29.3186,-2.7335 29.3044,-2.7539 29.3258,-2.8146 29.3474,-2.8221 29.4107,-2.7926 29.4312,-2.8027 29.5023,-2.821 29.5375,-2.7966 29.5639,-2.7989 29.5824,-2.7907 29.5975,-2.7778 29.6625,-2.8021 29.7057,-2.7997 29.7884,-2.7694 29.8236,-2.7522 29.8427,-2.7344 29.8729,-2.6904 29.8883,-2.6497 29.8868,-2.6388 29.883,-2.5633 29.9016,-2.3681 29.9133,-2.3184 29.9186,-2.3066 29.9705,-2.3333 30.0593,-2.4064 30.0788,-2.4174 30.1245,-2.4255 30.2519,-2.3533 30.3222,-2.3337 30.359,-2.2988 30.4084,-2.3234 30.4309,-2.3497 30.4753,-2.3808 30.5272,-2.3971 30.5391,-2.3961 30.4879,-2.4587 30.4455,-2.5882 30.3828,-2.8527 30.4506,-2.9436 30.4605,-2.9457 30.5249,-2.8914 30.5782,-2.9153 30.6178,-2.9506 30.6272,-2.9706 30.7139,-2.987 30.8088,-2.9753 30.8025,-2.9911 30.7989,-3.0824 30.8186,-3.1538 30.799,-3.255 30.7684,-3.2798 30.7315,-3.2954 30.7036,-3.279 30.6185,-3.3284 30.6009,-3.3466 30.5911,-3.3679 30.5977,-3.3698 30.6147,-3.3744 30.6313,-3.3905 30.6289,-3.4128 30.5908,-3.4503 30.5572,-3.4566 30.5001,-3.485 30.4677,-3.5013 30.4142,-3.547 30.3622,-3.685 30.3571,-3.7067 30.3697,-3.7615 30.3664,-3.7815 30.3381,-3.7684 30.3086,-3.7667 30.2854,-3.7843 30.1927,-3.929 30.1907,-3.9605 30.1405,-4.0774 29.9921,-4.2646 29.9015,-4.329 29.7326,-4.4328 29.6388,-4.4411 29.3976,-4.443 29.39,-4.4424 29.3741,-4.364 29.3643,-4.2907 29.3613,-4.2238 29.3597,-4.1904 29.3558,-4.1632 29.3449,-4.1289 29.3132,-4.05 29.303,-4.0325 29.2797,-4.0005 29.261,-3.9777 29.2418,-3.9556 29.2254,-3.9413 29.2057,-3.9164 29.1996,-3.8806 29.1906,-3.7851 29.197,-3.7465 29.1995,-3.7389 29.2033,-3.7155 29.2073,-3.6884 29.214,-3.5903 29.2091,-3.4921 29.2044,-3.4552 29.1991,-3.4187 29.1923,-3.3838 29.1807,-3.3295 29.1755,-3.3076 29.1815,-3.2864 29.204,-3.2681 29.1848,-3.2463 29.18,-3.15 29.2078,-3.114 29.2043,-3.0566 29.1827,-3.018 29.1522,-3.0178 29.1157,-2.9926 28.9582,-2.8111 28.9524,-2.781 28.9675,-2.7534 28.992,-2.7414 28.992,-2.7414 27,10.0,Papua New Guinea 150.1984,-2.6834 150.187,-2.6649 150.1749,-2.6598 150.1043,-2.6694 150.0884,-2.6746 150.0735,-2.6799 150.0182,-2.6822 149.9405,-2.6219 149.8004,-2.4948 149.7813,-2.4676 149.7922,-2.457 149.9112,-2.4113 150.021,-2.3743 150.0372,-2.3714 150.0476,-2.3749 150.0792,-2.387 150.2481,-2.4574 150.2756,-2.4748 150.2981,-2.5416 150.2988,-2.5549 150.2895,-2.6477 150.2769,-2.6623 150.2503,-2.6593 150.235,-2.6614 150.2026,-2.6807 150.1984,-2.6834 150.1984,-2.6834 25,7.0,Indonesia 100.0903,-2.7557 100.0824,-2.7569 100.0627,-2.7654 100.045,-2.7748 100.0334,-2.7838 100.0289,-2.7964 100.0255,-2.8185 99.9185,-2.8384 99.9035,-2.8356 99.8961,-2.8257 99.8768,-2.749 99.8485,-2.5487 99.8538,-2.5067 99.8616,-2.4935 99.872,-2.4868 99.8825,-2.4873 99.8934,-2.494 100.0468,-2.6263 100.0771,-2.6641 100.0935,-2.6889 100.0979,-2.6981 100.1013,-2.7155 100.1023,-2.7501 100.0903,-2.7557 100.0903,-2.7557 37,7.0,Indonesia 107.5876,-2.5549 107.6483,-2.5587 107.7115,-2.532 107.8738,-2.5752 107.9629,-2.602 108.1413,-2.748 108.1693,-2.8327 108.1713,-2.8504 108.1384,-2.904 108.0943,-2.9763 108.0836,-3.003 108.076,-3.1153 107.9821,-3.158 107.9556,-3.2236 107.8633,-3.2452 107.8527,-3.2281 107.85,-3.1879 107.847,-3.1613 107.7738,-3.0704 107.7482,-3.0481 107.7272,-3.0564 107.7003,-3.0835 107.7198,-3.1081 107.7158,-3.1521 107.6932,-3.1672 107.5229,-3.2225 107.4908,-3.2081 107.458,-3.0045 107.4614,-2.9798 107.49,-2.9089 107.4935,-2.7753 107.5147,-2.7507 107.5132,-2.6957 107.5287,-2.5828 107.5449,-2.5614 107.5876,-2.5549 107.5876,-2.5549 110,10.0,Papua New Guinea 152.3188,-3.8477 152.2026,-3.7235 152.1861,-3.6931 152.1828,-3.6499 152.1138,-3.5718 152.0144,-3.5023 151.9724,-3.484 151.8126,-3.4603 151.7846,-3.4542 151.7632,-3.4414 151.5868,-3.3207 151.5378,-3.2767 151.517,-3.2494 151.4455,-3.1707 151.4037,-3.1556 151.3617,-3.1413 151.3176,-3.1243 151.2846,-3.1009 151.2744,-3.0704 151.2466,-3.047 151.1992,-3.0189 151.1108,-2.9705 151.067,-2.9499 151.0445,-2.9385 150.9804,-2.892 150.9522,-2.8651 150.9423,-2.8478 150.832,-2.7849 150.757,-2.7652 150.7332,-2.7679 150.6994,-2.7761 150.656,-2.7843 150.5825,-2.7663 150.5604,-2.7343 150.5794,-2.7172 150.6548,-2.712 150.714,-2.706 150.715,-2.6785 150.7038,-2.649 150.6824,-2.6463 150.6572,-2.6369 150.6232,-2.6136 150.6408,-2.5593 150.6666,-2.5694 150.7366,-2.6329 150.7969,-2.6853 150.9166,-2.7468 151.0199,-2.8226 151.1106,-2.8674 151.1408,-2.8664 151.2526,-2.8973 151.2937,-2.9316 151.4271,-3.0239 151.4711,-3.0445 151.5507,-3.1183 151.6523,-3.1928 151.6872,-3.1826 151.7505,-3.1996 151.7772,-3.207 151.8836,-3.2502 151.8844,-3.2748 151.9928,-3.4071 152.0356,-3.4535 152.0732,-3.4774 152.105,-3.4908 152.1344,-3.5022 152.1549,-3.5157 152.1877,-3.5414 152.2198,-3.5943 152.2395,-3.6292 152.322,-3.649 152.3822,-3.747 152.3802,-3.7721 152.3751,-3.7919 152.4044,-3.8192 152.4303,-3.8284 152.4867,-3.8382 152.4978,-3.8555 152.5281,-3.8785 152.5668,-3.8916 152.5967,-3.8957 152.7459,-3.9995 152.8163,-4.0712 152.8332,-4.0889 152.9501,-4.2422 152.9593,-4.2607 152.9539,-4.3864 152.9265,-4.4101 152.8994,-4.4314 152.8846,-4.4475 152.866,-4.4875 152.8736,-4.5111 152.8977,-4.535 152.9042,-4.5895 152.8031,-4.7581 152.7265,-4.8175 152.5651,-4.6602 152.5193,-4.5529 152.5077,-4.5169 152.4913,-4.4636 152.4985,-4.4442 152.5185,-4.3885 152.5242,-4.3564 152.5201,-4.1823 152.4301,-4.0016 152.409,-3.9613 152.366,-3.8955 152.3396,-3.8643 152.3188,-3.8477 152.3188,-3.8477 810,10.0,Papua New Guinea 140.8438,-2.604 140.8735,-2.5887 140.8841,-2.5867 141.0429,-2.6156 141.0554,-2.6189 141.1115,-2.6422 141.1149,-2.6526 141.122,-2.666 141.1865,-2.7046 141.2107,-2.7147 141.2215,-2.7176 141.2518,-2.7216 141.2676,-2.7264 141.2773,-2.7305 141.4093,-2.7907 141.4493,-2.8091 141.5447,-2.859 141.6805,-2.9333 141.7217,-2.961 141.7324,-2.9674 141.7539,-2.9686 141.7735,-2.9641 141.8023,-2.9554 141.8136,-2.9525 141.8319,-2.9507 141.8436,-2.9526 141.852,-2.958 141.9061,-3.0049 141.917,-3.0155 141.9647,-3.0558 142.0919,-3.1012 142.3912,-3.2145 142.5025,-3.244 142.7852,-3.3286 142.8309,-3.3444 142.8755,-3.3595 142.9115,-3.3563 142.9293,-3.3513 142.9446,-3.3501 142.9624,-3.3498 143.011,-3.3533 143.0331,-3.356 143.0501,-3.3625 143.0676,-3.3756 143.0766,-3.3804 143.0938,-3.3841 143.1795,-3.3978 143.2089,-3.3975 143.2224,-3.399 143.2465,-3.4024 143.2806,-3.4078 143.3564,-3.4315 143.3709,-3.441 143.4071,-3.4713 143.4364,-3.5102 143.4398,-3.5204 143.4479,-3.5415 143.4866,-3.5629 143.5684,-3.6 143.6056,-3.6067 143.6331,-3.6092 143.7921,-3.7355 143.8026,-3.7557 143.8132,-3.7754 143.8263,-3.79 143.8538,-3.806 144.0871,-3.8663 144.0903,-3.8539 144.0947,-3.8412 144.1177,-3.8019 144.1749,-3.798 144.2118,-3.7982 144.3499,-3.8177 144.3698,-3.8436 144.3874,-3.874 144.3835,-3.8895 144.3815,-3.8996 144.3785,-3.93 144.38,-3.9491 144.3856,-3.9632 144.4073,-3.9872 144.427,-4.0015 144.4443,-4.0083 144.45,-4.0099 144.4895,-4.0083 144.5119,-4.0098 144.5655,-4.0267 144.6026,-4.0417 144.6901,-4.0909 144.7118,-4.1087 144.8154,-4.2198 144.822,-4.2299 144.8283,-4.2433 144.8313,-4.2575 144.8404,-4.2768 144.87,-4.3322 144.8903,-4.3469 144.9273,-4.3677 144.9922,-4.3776 145.0633,-4.383 145.0879,-4.3734 145.1286,-4.3715 145.14,-4.3722 145.1706,-4.3856 145.2855,-4.4888 145.2941,-4.4993 145.3616,-4.5872 145.4515,-4.6987 145.5114,-4.7581 145.5277,-4.7713 145.5692,-4.7973 145.6145,-4.9222 145.647,-5.0631 145.6206,-5.2252 145.5997,-5.2576 145.5728,-5.2993 145.5582,-5.4058 145.5585,-5.4219 145.5681,-5.443 145.585,-5.4668 145.6001,-5.479 145.6231,-5.4836 145.7062,-5.4796 145.7668,-5.4706 145.7973,-5.4669 145.8104,-5.4699 145.9156,-5.5063 146.0079,-5.5448 146.0279,-5.5523 146.1226,-5.5823 146.2097,-5.5927 146.2757,-5.5921 146.3041,-5.601 146.3644,-5.6482 146.4136,-5.688 146.4382,-5.7113 146.4738,-5.7374 146.4859,-5.7452 146.4956,-5.7496 146.5219,-5.7575 146.5478,-5.763 146.6061,-5.7857 146.6177,-5.7947 146.6292,-5.8275 146.7081,-5.8188 146.7277,-5.8223 146.7596,-5.8384 146.7792,-5.8595 146.7881,-5.8815 146.7956,-5.8909 146.825,-5.9091 146.8469,-5.9213 146.8767,-5.9364 146.9401,-5.9596 147.0644,-5.9649 147.0789,-5.9555 147.1048,-5.9302 147.1173,-5.9284 147.2554,-5.9538 147.299,-5.9641 147.3129,-5.9703 147.4053,-6.0482 147.4226,-6.0653 147.4743,-6.1298 147.6187,-6.2953 147.6585,-6.3299 147.6623,-6.3396 147.6825,-6.4041 147.6959,-6.4517 147.6988,-6.4626 147.702,-6.65 147.6984,-6.6631 147.6747,-6.687 147.6518,-6.7054 147.643,-6.71 147.6033,-6.7183 147.5917,-6.7203 147.4008,-6.744 147.2496,-6.7271 147.1387,-6.7382 147.0529,-6.7386 147.0334,-6.738 147.0183,-6.734 147.008,-6.728 146.9966,-6.7127 146.9831,-6.706 146.9221,-6.7067 146.8048,-6.7355 146.7951,-6.7395 146.7823,-6.7904 146.7785,-6.8074 146.7766,-6.8323 146.7754,-6.8967 146.7794,-6.9488 146.7856,-6.9598 146.8583,-7.029 146.8714,-7.0364 146.9649,-7.1954 146.974,-7.2129 146.9783,-7.2226 146.9802,-7.241 146.9797,-7.2535 146.9748,-7.2658 146.9717,-7.2864 146.9736,-7.3167 146.9883,-7.3773 147.0127,-7.4552 147.0477,-7.4823 147.1343,-7.4956 147.1548,-7.4968 147.1686,-7.4956 147.2525,-7.5584 147.2918,-7.5892 147.4756,-7.7668 147.5028,-7.7836 147.5288,-7.8214 147.5358,-7.8617 147.5355,-7.8783 147.5368,-7.8969 147.55,-7.92 147.5659,-7.9311 147.5758,-7.9349 147.5912,-7.9397 147.614,-7.9268 147.6387,-7.926 147.6892,-7.9263 147.7008,-7.9283 147.7107,-7.9322 147.7223,-7.9409 147.7459,-7.958 147.7716,-7.9748 147.8084,-7.987 147.8138,-8.0277 147.8179,-8.0405 147.8265,-8.0492 147.8413,-8.0574 147.8607,-8.0537 147.9487,-8.0461 147.9692,-8.057 148.0294,-8.2427 148.0341,-8.2582 148.0406,-8.2887 148.0415,-8.306 148.0411,-8.3306 148.0454,-8.3834 148.055,-8.5006 148.0569,-8.5243 148.0652,-8.5501 148.0737,-8.5623 148.1061,-8.5845 148.1353,-8.6015 148.1619,-8.5971 148.1843,-8.6024 148.2115,-8.6195 148.2794,-8.6671 148.3142,-8.7259 148.3148,-8.7488 148.3247,-8.83 148.3296,-8.8567 148.3661,-8.9826 148.3712,-8.9949 148.4243,-9.0599 148.4397,-9.0723 148.45,-9.0753 148.5308,-9.092 148.5581,-9.0944 148.5889,-9.0936 148.6175,-9.0911 148.6779,-9.0802 148.9042,-9.0295 148.9724,-8.9963 149.056,-8.9884 149.0923,-8.9882 149.1491,-9.0096 149.1566,-9.0273 149.1727,-9.1194 149.1616,-9.1446 149.149,-9.1585 149.1262,-9.1736 149.0153,-9.3447 149.0144,-9.3628 149.0168,-9.3744 149.0199,-9.3842 149.044,-9.4417 149.0556,-9.4639 149.0676,-9.481 149.0791,-9.4882 149.1095,-9.5006 149.1244,-9.4977 149.1399,-9.4978 149.1844,-9.5112 149.273,-9.5606 149.275,-9.5801 149.2781,-9.5873 149.2901,-9.5923 149.4976,-9.5964 149.5783,-9.5907 149.5967,-9.5956 149.6122,-9.6083 149.7129,-9.6316 149.742,-9.6325 149.7812,-9.6312 149.7941,-9.6275 149.8179,-9.6206 149.8439,-9.6203 149.8872,-9.6745 149.8922,-9.7014 149.889,-9.7112 149.8245,-9.7398 149.7622,-9.7584 149.6924,-9.7714 149.6744,-9.7681 149.6438,-9.7703 149.6032,-9.7799 149.5752,-9.7965 149.5597,-9.8083 149.5533,-9.8222 149.5582,-9.8388 149.5982,-9.8904 149.7099,-10.0054 149.7501,-10.0375 149.7628,-10.0453 149.7715,-10.0503 149.8258,-10.0702 149.8392,-10.0657 149.8528,-10.062 150.0224,-10.083 150.072,-10.1166 150.0955,-10.1413 150.1301,-10.1739 150.1439,-10.181 150.1881,-10.1884 150.2177,-10.1931 150.2358,-10.1957 150.415,-10.2294 150.4506,-10.2648 150.478,-10.2693 150.6131,-10.2485 150.6384,-10.2371 150.652,-10.2263 150.6621,-10.219 150.679,-10.2132 150.7009,-10.2113 150.7131,-10.2184 150.7058,-10.2261 150.6967,-10.2309 150.5626,-10.3006 150.47,-10.3387 150.4343,-10.338 150.3826,-10.3237 150.3314,-10.3067 150.274,-10.2919 150.2541,-10.289 150.2419,-10.2929 150.2046,-10.3101 150.1928,-10.3221 150.1839,-10.3639 150.1885,-10.3825 150.4038,-10.451 150.4843,-10.4638 150.4954,-10.4733 150.5257,-10.5408 150.5247,-10.5512 150.5127,-10.5663 150.4029,-10.6097 150.3912,-10.6119 150.3578,-10.6072 150.3277,-10.6071 150.3116,-10.6132 150.2787,-10.6466 150.261,-10.677 150.205,-10.6752 150.1037,-10.6766 150.0448,-10.6883 149.9484,-10.6555 149.9355,-10.6452 149.8949,-10.6136 149.8636,-10.5774 149.8467,-10.5587 149.7512,-10.5459 149.7299,-10.5498 149.6978,-10.5425 149.6874,-10.5365 149.7157,-10.4944 149.7375,-10.4906 149.778,-10.4904 149.8019,-10.4918 149.81,-10.5007 149.8251,-10.5061 149.8554,-10.4989 149.8712,-10.4907 149.9143,-10.4507 149.8999,-10.4441 149.8258,-10.4252 149.7022,-10.3862 149.6419,-10.3558 149.6217,-10.3466 149.5939,-10.3343 149.5838,-10.3308 149.5601,-10.3275 149.5201,-10.3263 149.5003,-10.3281 149.4756,-10.3296 149.4057,-10.3297 149.3729,-10.35 149.1722,-10.2955 149.0618,-10.2645 149.0234,-10.2482 149.0132,-10.2449 148.998,-10.2393 148.9766,-10.2334 148.93,-10.2226 148.8862,-10.2307 148.8754,-10.2332 148.8309,-10.249 148.8185,-10.257 148.7719,-10.2555 148.6315,-10.2275 148.5605,-10.1755 148.5162,-10.1399 148.4775,-10.1757 148.3029,-10.1921 148.241,-10.1889 148.2103,-10.1805 148.1725,-10.1666 148.1651,-10.1575 148.1603,-10.1483 148.1513,-10.127 148.1424,-10.1186 147.9939,-10.0648 147.9874,-10.0861 147.9537,-10.11 147.9409,-10.1183 147.9241,-10.1249 147.8931,-10.1319 147.8377,-10.1405 147.7907,-10.1341 147.779,-10.1094 147.7613,-10.0865 147.7104,-10.036 147.699,-10.0313 147.6169,-10.0399 147.6044,-10.0445 147.4547,-9.9765 147.4402,-9.9638 147.4126,-9.9369 147.3427,-9.8597 147.3388,-9.8422 147.3421,-9.8281 147.3421,-9.8014 147.3378,-9.7853 147.3276,-9.7579 147.225,-9.6247 147.1542,-9.5445 147.1347,-9.5231 147.0863,-9.4951 146.9675,-9.4328 146.9178,-9.4235 146.9393,-9.4411 146.9374,-9.4783 146.9269,-9.4808 146.8968,-9.4592 146.846,-9.3877 146.84,-9.3735 146.7645,-9.2721 146.7522,-9.2767 146.7335,-9.2679 146.7263,-9.1729 146.7443,-9.1228 146.7543,-9.1238 146.8071,-9.0809 146.8144,-9.0639 146.8184,-9.045 146.8086,-9.0196 146.7856,-9.0276 146.7822,-9.0396 146.7907,-9.0588 146.7589,-9.0928 146.6775,-9.0852 146.4679,-9.02 146.4591,-9.0151 146.4241,-8.9887 146.4158,-8.9765 146.396,-8.9313 146.3834,-8.8899 146.3949,-8.8478 146.4047,-8.7976 146.3784,-8.7536 146.3546,-8.715 146.2783,-8.6148 146.2687,-8.6039 146.2569,-8.5952 146.2405,-8.5847 146.2161,-8.5748 146.2093,-8.5684 146.1886,-8.5479 146.1554,-8.4992 146.1123,-8.4333 146.1055,-8.4165 146.0999,-8.3781 146.1016,-8.3622 146.0991,-8.3501 146.08,-8.2853 146.0752,-8.2763 146.0662,-8.2649 146.0551,-8.2551 145.9477,-8.1544 145.9468,-8.1254 145.926,-8.0819 145.8343,-8.0454 145.824,-8.0418 145.7675,-8.0318 145.755,-8.0306 145.7352,-8.0298 145.7172,-8.0325 145.6719,-8.019 145.6345,-7.9988 145.6229,-7.9898 145.5549,-7.9586 145.4867,-7.9506 145.4675,-7.9355 145.4536,-7.9286 145.3648,-7.9287 145.3394,-7.9309 145.3211,-7.9397 145.3023,-7.9417 145.2806,-7.9405 145.2695,-7.939 145.2594,-7.9357 145.081,-7.8595 145.0352,-7.8206 145.0198,-7.8048 145.0027,-7.8134 144.9963,-7.8342 144.8821,-7.8113 144.8328,-7.8065 144.717,-7.7737 144.6785,-7.7403 144.6876,-7.7323 144.7096,-7.6967 144.7114,-7.6845 144.6994,-7.6017 144.6818,-7.599 144.6695,-7.6702 144.659,-7.6802 144.6231,-7.6825 144.4368,-7.6516 144.4238,-7.6473 144.3897,-7.6032 144.3847,-7.5911 144.3832,-7.5659 144.3729,-7.5157 144.3679,-7.5035 144.3601,-7.4945 144.3479,-7.4974 144.3457,-7.6094 144.2591,-7.521 144.2459,-7.5111 144.2498,-7.5573 144.2731,-7.6711 144.3053,-7.7343 144.2337,-7.7471 144.216,-7.7446 144.1964,-7.7345 144.1918,-7.7174 144.1942,-7.6961 144.1974,-7.6855 144.1979,-7.6735 144.1516,-7.609 144.0984,-7.6289 144.0882,-7.6458 144.0815,-7.6582 144.0971,-7.7285 144.1081,-7.7647 144.0554,-7.7857 143.9853,-7.77 143.9596,-7.7629 143.7503,-7.688 143.7381,-7.6798 143.6864,-7.6264 143.6768,-7.6196 143.6673,-7.6085 143.6607,-7.5989 143.6495,-7.5773 143.6448,-7.562 143.611,-7.5071 143.6066,-7.498 143.5968,-7.4937 143.5032,-7.4592 143.5295,-7.5035 143.5933,-7.581 143.6778,-7.7065 143.684,-7.7274 143.6907,-7.7615 143.6916,-7.774 143.6903,-7.7865 143.6923,-7.8014 143.7377,-7.8754 143.7967,-7.9693 143.795,-7.978 143.727,-8.0307 143.6865,-8.0365 143.6728,-8.0366 143.5916,-8.0306 143.5799,-8.019 143.5607,-8.0002 143.5003,-7.9822 143.4709,-7.9775 143.4577,-7.9769 143.4366,-7.983 143.4278,-7.9878 143.4063,-7.9953 143.3852,-7.9974 143.3406,-7.9871 143.3227,-7.9811 143.3135,-7.9684 143.2997,-7.9296 143.2935,-7.9149 143.2776,-7.9014 143.2634,-7.8981 143.1994,-7.8922 143.1979,-7.9048 143.286,-7.9716 143.3822,-8.0455 143.4689,-8.1867 143.4715,-8.2036 143.469,-8.218 143.4632,-8.2295 143.4515,-8.2344 143.4082,-8.2376 143.3943,-8.2378 143.352,-8.2365 143.3089,-8.2359 143.2177,-8.2409 143.1783,-8.2445 143.0747,-8.2657 143.0181,-8.2773 142.9211,-8.2987 142.9103,-8.3012 142.8896,-8.3084 142.8743,-8.3137 142.8641,-8.3173 142.8404,-8.3273 142.8312,-8.332 142.8169,-8.3345 142.8049,-8.3332 142.7837,-8.3268 142.7494,-8.3096 142.7224,-8.2955 142.7057,-8.2848 142.6862,-8.2773 142.6404,-8.2657 142.6172,-8.2615 142.537,-8.2581 142.4951,-8.2642 142.4785,-8.2683 142.4364,-8.2807 142.4159,-8.287 142.4062,-8.2914 142.3852,-8.3042 142.3726,-8.3156 142.3618,-8.3219 142.3496,-8.3266 142.3261,-8.327 142.3079,-8.3267 142.2809,-8.3226 142.2647,-8.3152 142.253,-8.3062 142.244,-8.2768 142.237,-8.252 142.2359,-8.2413 142.2349,-8.2223 142.2235,-8.1799 142.1794,-8.1572 142.1685,-8.1544 142.1578,-8.1547 142.0626,-8.1638 142.0529,-8.1677 141.9802,-8.2145 141.9765,-8.224 141.9858,-8.2296 142.0008,-8.2289 142.0132,-8.2213 142.0255,-8.2101 142.0366,-8.2041 142.0669,-8.1901 142.1524,-8.171 142.1653,-8.1741 142.1786,-8.181 142.199,-8.1933 142.2154,-8.2518 142.2184,-8.265 142.2183,-8.2804 142.2262,-8.3137 142.2494,-8.3378 142.2804,-8.362 142.2906,-8.3653 142.311,-8.3687 142.3309,-8.369 142.3536,-8.3624 142.3653,-8.3571 142.3851,-8.3394 142.3975,-8.3313 142.431,-8.3173 142.4605,-8.3055 142.4791,-8.3011 142.5752,-8.3128 142.6146,-8.3233 142.6267,-8.3353 142.6437,-8.3521 142.7467,-8.4141 142.7579,-8.4163 142.7986,-8.4221 142.8506,-8.4315 142.8876,-8.4387 142.9269,-8.4502 142.937,-8.454 142.9506,-8.4606 143.057,-8.5426 143.0863,-8.5683 143.122,-8.6087 143.2154,-8.7318 143.2336,-8.7604 143.2359,-8.7713 143.2457,-8.9577 143.2255,-8.9838 143.2063,-9.0019 143.1728,-9.0179 143.156,-9.023 143.1408,-9.0135 143.1275,-9.0096 143.1114,-9.0101 143.0892,-9.0154 143.0736,-9.02 143.0157,-9.0382 142.8838,-9.0827 142.8692,-9.1006 142.7447,-9.1869 142.6846,-9.2221 142.6499,-9.2416 142.6402,-9.2458 142.6306,-9.2499 142.6116,-9.2568 142.5949,-9.2607 142.5664,-9.2726 142.5082,-9.31 142.4974,-9.3193 142.4815,-9.3242 142.4677,-9.324 142.4256,-9.3203 142.4145,-9.3175 142.3857,-9.2984 142.3751,-9.2881 142.3627,-9.2719 142.3404,-9.2549 142.3199,-9.2413 142.2686,-9.2176 142.0491,-9.1547 141.8973,-9.1768 141.7877,-9.1966 141.5649,-9.2041 141.4557,-9.2254 141.3663,-9.2104 141.3491,-9.2003 141.3358,-9.1866 141.3044,-9.1633 141.2921,-9.1552 141.2732,-9.1471 141.2319,-9.1336 141.2187,-9.133 141.1669,-9.1394 141.1534,-9.1436 141.1386,-9.1525 141.1285,-9.1627 141.1102,-9.1783 141.0705,-9.2068 141.0575,-9.2142 141.0203,-9.2232 141.0049,-9.2268 140.9641,-9.2203 140.9536,-9.214 140.9347,-9.1987 140.8779,-9.1464 140.8573,-9.1264 140.851,-9.1182 140.8467,-6.8969 140.8467,-6.8853 140.8351,-6.8887 140.8216,-6.8987 140.7899,-6.8958 140.7435,-6.8481 140.7156,-6.7885 140.7114,-6.7787 140.6997,-6.7208 140.6993,-6.6707 140.7032,-6.6236 140.734,-6.5933 140.7873,-6.4924 140.7911,-6.473 140.7872,-6.4633 140.7681,-6.4436 140.7721,-6.427 140.8069,-6.3294 140.8255,-6.3259 140.846,-6.3256 140.8458,-5.9929 140.845,-4.8999 140.8475,-2.6108 140.8438,-2.604 140.8438,-2.604 24,-5.0,Ecuador -80.1209,-3.0332 -80.1261,-3.0329 -80.1724,-3.0207 -80.1823,-3.0115 -80.1751,-2.8612 -80.1743,-2.8473 -80.1712,-2.8367 -80.1674,-2.8265 -80.1496,-2.789 -80.1177,-2.723 -79.995,-2.6707 -79.9481,-2.6604 -79.9296,-2.6589 -79.9117,-2.6622 -79.8126,-2.7189 -79.8205,-2.7407 -79.8338,-2.758 -80.033,-2.8849 -80.0102,-2.9503 -80.0218,-2.9965 -80.0326,-3.0111 -80.1027,-3.0311 -80.1209,-3.0332 -80.1209,-3.0332 21,-3.0,Brazil -44.5404,-3.049 -44.5433,-3.0083 -44.5267,-2.9849 -44.5093,-2.9095 -44.5353,-2.8409 -44.5271,-2.7988 -44.5216,-2.7828 -44.5144,-2.7694 -44.4687,-2.7188 -44.4583,-2.7123 -44.4334,-2.7067 -44.4304,-2.7227 -44.4268,-2.7455 -44.4304,-2.8583 -44.4444,-2.9446 -44.4681,-2.9627 -44.4819,-2.969 -44.4954,-2.983 -44.5198,-3.0206 -44.5404,-3.049 -44.5404,-3.049 41,7.0,Indonesia 100.3462,-3.3298 100.328,-3.3207 100.3143,-3.3067 100.2557,-3.237 100.2222,-3.1964 100.2249,-3.1758 100.2277,-3.1319 100.2229,-3.1158 100.2112,-3.1037 100.1871,-3.0802 100.1341,-3.0457 100.0897,-2.9888 100.0783,-2.9722 100.0729,-2.9599 100.0614,-2.8046 100.0673,-2.7935 100.0845,-2.7837 100.1018,-2.777 100.1196,-2.7756 100.1309,-2.7801 100.1423,-2.7891 100.2382,-2.8854 100.2582,-2.9069 100.3514,-3.0113 100.3566,-3.0202 100.3599,-3.0306 100.3631,-3.1022 100.3616,-3.1178 100.348,-3.13 100.31,-3.1371 100.2902,-3.1313 100.2669,-3.148 100.285,-3.1899 100.3071,-3.2296 100.3235,-3.254 100.3385,-3.2664 100.3581,-3.2941 100.3648,-3.3117 100.3606,-3.3241 100.3462,-3.3298 100.3462,-3.3298 133,9.0,Indonesia 130.6819,-3.8682 130.6519,-3.8572 130.4684,-3.7841 130.4461,-3.7599 130.4102,-3.7224 130.2955,-3.651 130.2509,-3.6292 130.1669,-3.5963 130.0881,-3.5725 129.9869,-3.5395 129.8712,-3.481 129.8446,-3.4664 129.8277,-3.4492 129.8123,-3.4234 129.809,-3.401 129.8107,-3.3746 129.7851,-3.3511 129.7652,-3.3379 129.7421,-3.3305 129.6713,-3.3251 129.5057,-3.3129 129.3697,-3.2937 129.3532,-3.3121 129.3602,-3.3433 129.386,-3.372 129.4024,-3.3934 129.4129,-3.4258 129.3984,-3.4589 129.3714,-3.4658 129.3335,-3.4579 129.3077,-3.4461 129.16,-3.413 129.0994,-3.4087 129.0628,-3.3977 129.0054,-3.373 128.9617,-3.3463 128.9288,-3.3435 128.8561,-3.3464 128.8225,-3.3498 128.8266,-3.2651 128.828,-3.2414 128.8093,-3.2222 128.7879,-3.2129 128.7372,-3.2055 128.6263,-3.2754 128.5413,-3.3553 128.5267,-3.3825 128.468,-3.4323 128.3523,-3.4577 128.3251,-3.4567 128.2878,-3.4408 128.2596,-3.4165 128.2154,-3.3509 128.1581,-3.2651 128.0729,-3.2074 128.0533,-3.1123 128.0374,-3.0706 127.9975,-3.0714 127.9529,-3.1171 127.9355,-3.148 127.9259,-3.1723 127.9171,-3.2047 127.911,-3.2463 127.9074,-3.2772 127.9064,-3.3069 127.8978,-3.3343 127.8713,-3.3714 127.8465,-3.3777 127.7928,-3.4742 127.7737,-3.5554 127.7645,-3.5406 127.7532,-3.5005 127.7506,-3.4804 127.7677,-3.4397 127.7807,-3.4134 127.7889,-3.3656 127.788,-3.3408 127.7777,-3.3156 127.752,-3.2791 127.7381,-3.2625 127.712,-3.1828 127.7446,-3.1516 127.8393,-3.0833 127.9296,-2.9777 128.0274,-2.8535 128.1194,-2.8526 128.2572,-2.8595 128.4203,-2.8521 128.6945,-2.8629 128.7269,-2.8619 128.7683,-2.855 128.9189,-2.8972 128.9387,-2.9236 128.9556,-2.9409 128.9877,-2.9597 129.0672,-2.9427 129.2009,-2.8574 129.2196,-2.8421 129.23,-2.8017 129.2576,-2.7891 129.3807,-2.7803 129.4833,-2.8116 129.6247,-2.8707 129.6499,-2.9044 129.8412,-2.9849 129.8733,-2.9936 129.9108,-2.9975 129.9441,-2.9973 130.018,-2.9888 130.0897,-2.9813 130.1911,-2.9751 130.2292,-2.9852 130.2521,-2.9998 130.4418,-3.1368 130.4826,-3.2417 130.4864,-3.2648 130.4827,-3.285 130.4826,-3.3211 130.4887,-3.3491 130.4982,-3.3734 130.5241,-3.4035 130.5555,-3.4002 130.5938,-3.4015 130.6188,-3.4042 130.6421,-3.4133 130.6789,-3.4503 130.726,-3.5888 130.722,-3.6247 130.7076,-3.6478 130.6876,-3.674 130.6729,-3.821 130.6819,-3.8682 130.6819,-3.8682 13,7.0,Indonesia 106.7051,-2.8972 106.7764,-2.925 106.7868,-2.9318 106.7942,-2.9484 106.7712,-3.02 106.7339,-3.0303 106.7009,-3.0204 106.6037,-2.964 106.6222,-2.919 106.6888,-2.8895 106.7015,-2.8938 106.7051,-2.8972 106.7051,-2.8972 15,10.0,Papua New Guinea 150.6038,-2.9821 150.5971,-2.9784 150.6031,-2.9691 150.6219,-2.9537 150.7051,-2.9074 150.7395,-2.906 150.7711,-2.9184 150.8519,-2.965 150.8268,-2.98 150.7124,-2.965 150.7021,-2.9618 150.6858,-2.9586 150.6651,-2.9566 150.6038,-2.9821 150.6038,-2.9821 16,10.0,Papua New Guinea 152.4686,-3.2261 152.464,-3.224 152.4329,-3.2001 152.4051,-3.1735 152.366,-3.0998 152.3665,-3.089 152.3839,-3.0656 152.4181,-3.0485 152.431,-3.0441 152.4736,-3.0428 152.4956,-3.1256 152.4959,-3.1527 152.4816,-3.2154 152.4739,-3.2249 152.4686,-3.2261 152.4686,-3.2261 48,9.0,Indonesia 125.9856,-3.1161 126.002,-3.14 126.0344,-3.1674 126.0699,-3.1689 126.0883,-3.1428 126.102,-3.1256 126.1415,-3.1034 126.2738,-3.068 126.4675,-3.0592 126.4989,-3.0577 126.5943,-3.0557 126.6837,-3.0706 126.8508,-3.1411 126.9411,-3.1947 126.9584,-3.2097 126.9706,-3.2663 126.9408,-3.2668 126.9112,-3.2631 126.8983,-3.2839 126.9097,-3.3266 126.9527,-3.3661 126.9832,-3.3546 127.0012,-3.3354 127.117,-3.3734 127.0974,-3.5906 127.0928,-3.6132 127.0729,-3.65 127.0416,-3.6592 127.003,-3.6487 126.9616,-3.6593 126.8723,-3.6966 126.8436,-3.7179 126.723,-3.7766 126.5845,-3.8229 126.5496,-3.8306 126.365,-3.7644 126.2389,-3.7056 126.0996,-3.6115 125.9194,-3.4427 125.9019,-3.4226 125.8751,-3.3471 125.8667,-3.1806 125.8824,-3.1483 125.9287,-3.1123 125.9535,-3.0995 125.977,-3.1047 125.9856,-3.1161 125.9856,-3.1161 15,9.0,Indonesia 127.564,-3.1567 127.5708,-3.1543 127.6119,-3.1495 127.6454,-3.1759 127.6474,-3.2118 127.643,-3.2418 127.6292,-3.2505 127.5519,-3.2513 127.529,-3.2499 127.5139,-3.241 127.4943,-3.2209 127.5111,-3.2007 127.5558,-3.1632 127.564,-3.1567 127.564,-3.1567 39,8.0,Indonesia 116.1398,-3.2813 116.1267,-3.3586 116.1247,-3.3772 116.1403,-3.5307 116.1614,-3.6175 116.17,-3.6569 116.1874,-3.7617 116.1737,-3.9027 116.0285,-4.0116 116.0139,-4.0207 115.9865,-4.0315 115.9544,-4.041 115.9237,-4.0375 115.9195,-4.0251 115.9196,-4.0115 115.9229,-3.9807 115.9284,-3.9591 115.934,-3.9505 115.9459,-3.9067 115.9445,-3.8245 115.9425,-3.8027 115.9356,-3.7854 115.9129,-3.7659 115.9,-3.7514 115.8904,-3.7303 115.8805,-3.7055 115.8761,-3.6832 115.8756,-3.67 115.8759,-3.657 115.8774,-3.645 115.8817,-3.6287 115.9415,-3.4408 115.9829,-3.3319 115.9872,-3.3225 116.1291,-3.2205 116.1418,-3.2239 116.1453,-3.2444 116.1398,-3.2813 116.1398,-3.2813 15,9.0,Indonesia 127.4292,-3.2629 127.4797,-3.3115 127.5064,-3.3497 127.4989,-3.3579 127.4885,-3.3615 127.4732,-3.3623 127.3766,-3.3288 127.3653,-3.3229 127.3447,-3.3024 127.337,-3.2894 127.3808,-3.2542 127.4074,-3.2544 127.4259,-3.2599 127.4292,-3.2629 127.4292,-3.2629 15,8.0,Indonesia 116.298,-3.4009 116.2979,-3.4352 116.2964,-3.4475 116.2718,-3.58 116.2635,-3.6125 116.2587,-3.6286 116.2489,-3.6405 116.1856,-3.537 116.2232,-3.4413 116.2322,-3.4296 116.273,-3.3782 116.2866,-3.3749 116.2942,-3.385 116.298,-3.4009 116.298,-3.4009 19,9.0,Indonesia 128.4386,-3.4904 128.478,-3.5173 128.5252,-3.534 128.5325,-3.5194 128.5459,-3.4962 128.561,-3.498 128.5674,-3.5055 128.5713,-3.5149 128.5777,-3.5429 128.5812,-3.5866 128.5774,-3.6122 128.4944,-3.6247 128.4816,-3.6193 128.4696,-3.605 128.4122,-3.5217 128.4105,-3.5035 128.4233,-3.4912 128.4386,-3.4904 128.4386,-3.4904 40,9.0,Indonesia 127.8917,-3.5888 127.9392,-3.5819 128.0427,-3.56 128.0575,-3.5473 128.077,-3.5329 128.0918,-3.5237 128.1311,-3.5073 128.153,-3.5057 128.193,-3.5147 128.2016,-3.5288 128.1947,-3.6126 128.1898,-3.6215 128.1369,-3.6836 128.0898,-3.7254 127.9886,-3.7677 127.9728,-3.7726 127.9511,-3.7702 127.9949,-3.7262 128.0558,-3.6707 128.0653,-3.6597 128.0682,-3.6449 128.0522,-3.6378 127.9387,-3.7069 127.8565,-3.7615 127.8405,-3.7698 127.8115,-3.7717 127.7976,-3.7669 127.7822,-3.755 127.7737,-3.7366 127.7707,-3.7254 127.7693,-3.6996 127.7716,-3.6877 127.7796,-3.6758 127.792,-3.6605 127.8052,-3.6464 127.8235,-3.6303 127.8599,-3.605 127.8862,-3.5904 127.8917,-3.5888 127.8917,-3.5888 18,9.0,Indonesia 128.2956,-3.5158 128.3159,-3.5148 128.3555,-3.5184 128.3653,-3.5226 128.386,-3.536 128.4131,-3.5636 128.4181,-3.5756 128.4169,-3.5869 128.4035,-3.5977 128.3774,-3.6125 128.2576,-3.6364 128.2406,-3.6343 128.2425,-3.6151 128.2645,-3.5384 128.2733,-3.5264 128.2861,-3.5182 128.2956,-3.5158 128.2956,-3.5158 30,8.0,Indonesia 122.9068,-3.9739 122.9395,-4.0 122.9491,-4.0041 122.9699,-4.0074 122.9842,-4.0049 123.0028,-3.996 123.035,-3.9871 123.0552,-3.9869 123.0693,-3.9936 123.0971,-4.0272 123.1051,-4.0397 123.114,-4.0579 123.117,-4.0687 123.1182,-4.0878 123.1117,-4.1107 123.021,-4.2306 123.0065,-4.2378 122.9395,-4.2348 122.9279,-4.233 122.8934,-4.1987 122.8767,-4.1815 122.8256,-4.1118 122.8181,-4.0956 122.8156,-4.0845 122.8141,-4.0423 122.8688,-3.9816 122.8875,-3.9732 122.9006,-3.9725 122.9068,-3.9739 122.9068,-3.9739 17,9.0,Indonesia 133.1778,-4.1029 133.1948,-4.11 133.2666,-4.1649 133.3537,-4.2074 133.3638,-4.2109 133.3878,-4.2211 133.401,-4.2288 133.4201,-4.2435 133.4639,-4.2956 133.4494,-4.2935 133.2783,-4.2165 133.1751,-4.1659 133.1702,-4.1535 133.1641,-4.1117 133.1656,-4.0991 133.1778,-4.1029 133.1778,-4.1029 277,10.0,Papua New Guinea 149.0509,-5.5998 149.1008,-5.5878 149.1402,-5.5798 149.2554,-5.5606 149.3786,-5.5321 149.3965,-5.5225 149.4116,-5.5168 149.4409,-5.5121 149.4978,-5.5129 149.5143,-5.5539 149.54,-5.556 149.7072,-5.5291 149.7167,-5.5253 149.7456,-5.5055 149.7578,-5.4972 149.785,-5.4699 149.7935,-5.4578 149.8102,-5.4269 149.813,-5.413 149.8056,-5.4016 149.7813,-5.3969 149.7496,-5.3501 149.7474,-5.34 149.7574,-5.3092 149.7637,-5.3012 149.8315,-5.1633 149.8442,-5.0515 149.8486,-5.0418 149.861,-5.0235 149.9209,-5.002 149.9525,-5.0045 149.9834,-5.018 150.0102,-5.0329 150.0253,-5.0452 150.0325,-5.0658 150.0111,-5.0944 149.993,-5.107 149.9832,-5.111 149.9615,-5.1161 149.9302,-5.1258 149.9203,-5.13 149.9116,-5.1353 149.9011,-5.1458 149.8932,-5.1578 149.8904,-5.1687 149.8714,-5.3024 149.8912,-5.3576 149.9514,-5.5086 149.9728,-5.5315 149.9934,-5.5449 150.0102,-5.5519 150.1155,-5.5642 150.1275,-5.5614 150.1355,-5.5523 150.1508,-5.5292 150.1738,-5.5082 150.2411,-5.4522 150.2514,-5.4491 150.3168,-5.4406 150.3397,-5.4444 150.4047,-5.4713 150.4239,-5.4898 150.4298,-5.5109 150.4407,-5.5379 150.4485,-5.5472 150.4723,-5.5505 150.5063,-5.5449 150.5244,-5.5405 150.742,-5.4846 150.7525,-5.4808 150.8071,-5.4387 150.8307,-5.4148 150.8393,-5.4026 150.8432,-5.3932 150.8468,-5.383 150.8509,-5.3629 150.8465,-5.329 150.8522,-5.2819 150.8565,-5.2656 150.8667,-5.2351 150.8746,-5.216 150.8939,-5.1797 150.8987,-5.1709 150.9121,-5.1506 150.9247,-5.137 151.0915,-4.9792 151.1846,-4.9417 151.2681,-4.931 151.3407,-4.9324 151.4378,-4.9638 151.4718,-4.9461 151.4809,-4.9351 151.5031,-4.9024 151.5113,-4.8832 151.5148,-4.8594 151.5094,-4.809 151.4858,-4.6109 151.4568,-4.4965 151.4195,-4.4255 151.3751,-4.355 151.3285,-4.2268 151.3315,-4.2116 151.3379,-4.2012 151.3651,-4.177 151.6106,-4.2008 151.6696,-4.2199 151.6825,-4.2273 151.6878,-4.2389 151.6912,-4.2664 151.6976,-4.2804 151.7088,-4.2966 151.7225,-4.3099 151.7317,-4.3149 151.7981,-4.3314 151.8154,-4.3245 151.9673,-4.1973 151.973,-4.1861 151.978,-4.1708 151.9808,-4.1565 151.9866,-4.1461 151.996,-4.1401 152.009,-4.1421 152.0418,-4.1611 152.0624,-4.2025 152.0666,-4.2118 152.0679,-4.2375 152.054,-4.2457 152.0247,-4.2361 152.0181,-4.2157 152.0066,-4.2113 152.0001,-4.2219 151.9967,-4.2389 151.9991,-4.2852 152.0101,-4.3033 152.0203,-4.3104 152.0907,-4.3299 152.1135,-4.3345 152.1322,-4.3366 152.1828,-4.3381 152.2283,-4.6053 152.2293,-4.6176 152.2317,-4.6636 152.2323,-4.6834 152.2214,-4.7554 152.2156,-4.7774 152.2125,-4.7876 152.1607,-4.8714 152.1202,-4.9234 152.0943,-4.9519 152.0633,-4.9815 151.9854,-5.0013 151.9497,-4.9937 151.9389,-4.9907 151.9121,-4.9801 151.8766,-4.974 151.8201,-4.9667 151.8046,-4.9748 151.7973,-4.9877 151.7947,-4.9985 151.7931,-5.0175 151.7913,-5.0989 151.7965,-5.1425 151.8035,-5.1557 151.8199,-5.1697 151.8975,-5.2305 151.9477,-5.2899 151.9561,-5.3016 151.9713,-5.3377 151.9739,-5.3578 151.9707,-5.368 151.9578,-5.3958 151.9503,-5.41 151.9225,-5.4508 151.7975,-5.5259 151.6688,-5.5909 151.6492,-5.5948 151.6353,-5.5913 151.6026,-5.5765 151.5795,-5.5381 151.5295,-5.5243 151.3189,-5.522 151.2978,-5.5244 151.2842,-5.532 151.2716,-5.582 151.2303,-5.7449 151.2123,-5.8003 151.1455,-5.8432 150.9937,-5.9512 150.8313,-6.0156 150.7691,-6.0217 150.6844,-6.0337 150.6404,-6.0694 150.6411,-6.0823 150.622,-6.1111 150.602,-6.1333 150.5749,-6.1285 150.556,-6.1407 150.536,-6.1484 150.4924,-6.1598 150.4838,-6.1416 150.4639,-6.1417 150.3386,-6.228 150.3141,-6.2513 150.3058,-6.2635 150.2978,-6.2687 150.2326,-6.2859 150.0521,-6.2812 150.0409,-6.2688 150.0129,-6.2486 149.9999,-6.2498 149.9103,-6.2729 149.8686,-6.292 149.8481,-6.3165 149.8429,-6.2916 149.8159,-6.2686 149.8052,-6.2663 149.7221,-6.2851 149.6737,-6.2852 149.5166,-6.2979 149.4646,-6.3009 149.4374,-6.284 149.4033,-6.256 149.3855,-6.2199 149.3696,-6.1907 149.3408,-6.1455 149.3161,-6.1157 149.2975,-6.1025 149.275,-6.0909 149.1687,-6.0531 149.142,-6.0504 149.1202,-6.0556 148.9942,-6.1056 148.9654,-6.1445 148.9498,-6.1497 148.8969,-6.1573 148.8824,-6.1523 148.8797,-6.1364 148.8885,-6.1317 148.9028,-6.1394 148.9103,-6.1295 148.9092,-6.1122 148.9026,-6.0856 148.8861,-6.0374 148.8705,-6.03 148.8134,-6.0127 148.7732,-6.0014 148.7513,-5.9931 148.7138,-5.9748 148.708,-5.9389 148.5953,-5.8583 148.5327,-5.8414 148.4204,-5.8215 148.359,-5.8217 148.2328,-5.7767 148.221,-5.7712 148.1943,-5.746 148.1704,-5.7077 148.1618,-5.6884 148.1535,-5.666 148.1474,-5.6216 148.1889,-5.4861 148.2053,-5.4688 148.2592,-5.4447 148.2812,-5.449 148.3387,-5.4803 148.3503,-5.496 148.4488,-5.4987 148.714,-5.4905 148.792,-5.4672 148.8034,-5.4652 148.8161,-5.4667 148.831,-5.4719 148.9547,-5.5189 149.0193,-5.5521 149.0439,-5.5699 149.0509,-5.5998 149.0509,-5.5998 62,8.0,Indonesia 122.9357,-4.3983 122.9228,-4.4133 122.9368,-4.4575 122.9637,-4.4749 122.9949,-4.4901 123.0525,-4.5712 123.0605,-4.5941 123.0725,-4.6919 123.0763,-4.7494 123.0764,-4.7837 123.0747,-4.8161 123.0636,-4.8356 123.0457,-4.7935 123.0374,-4.7676 122.9953,-4.7042 122.9053,-4.7518 122.8743,-4.8296 122.8496,-4.9409 122.8427,-5.0285 122.8394,-5.1014 122.8814,-5.1369 122.9029,-5.1325 123.0723,-5.2661 123.0742,-5.2876 123.025,-5.3573 123.0026,-5.3797 122.91,-5.4202 122.8903,-5.415 122.8578,-5.3889 122.761,-5.433 122.735,-5.4579 122.722,-5.4982 122.7609,-5.5011 122.7744,-5.5206 122.7624,-5.5536 122.6892,-5.67 122.6634,-5.6855 122.5159,-5.6785 122.4641,-5.5914 122.4371,-5.5293 122.429,-5.5006 122.5206,-5.3554 122.5949,-5.2484 122.6412,-5.1239 122.6777,-4.9656 122.7132,-4.805 122.7096,-4.7579 122.7052,-4.7213 122.7032,-4.6798 122.7043,-4.6431 122.7146,-4.595 122.7242,-4.5676 122.7603,-4.4871 122.7745,-4.4665 122.7993,-4.4469 122.8503,-4.4086 122.8702,-4.3946 122.8925,-4.3829 122.9191,-4.3756 122.9402,-4.3831 122.9357,-4.3983 122.9357,-4.3983 63,1.0,Angola 12.0126,-5.0091 12.1525,-4.8903 12.1654,-4.849 12.1727,-4.8215 12.2013,-4.7545 12.2522,-4.7818 12.281,-4.7838 12.3173,-4.7814 12.3672,-4.7069 12.3815,-4.6598 12.3743,-4.6286 12.3866,-4.6042 12.4486,-4.5869 12.6299,-4.5517 12.6469,-4.5236 12.6772,-4.4743 12.7278,-4.4142 12.751,-4.3888 12.7646,-4.3839 12.8552,-4.3946 12.8825,-4.4122 12.8868,-4.4319 12.8899,-4.4526 12.8994,-4.4706 13.004,-4.5798 13.0234,-4.5992 13.0402,-4.6133 13.063,-4.6243 13.0766,-4.6278 13.0779,-4.6408 13.0629,-4.6646 13.0276,-4.6631 12.8423,-4.7096 12.8059,-4.732 12.6978,-4.8723 12.6951,-4.9017 12.5928,-4.9923 12.5581,-5.0161 12.518,-5.11 12.5211,-5.2674 12.5125,-5.7176 12.4707,-5.7185 12.3532,-5.724 12.2608,-5.73 12.2161,-5.7484 12.2007,-5.762 12.1623,-5.7074 12.141,-5.6707 12.1391,-5.6082 12.1482,-5.575 12.169,-5.5319 12.2117,-5.5225 12.2188,-5.4952 12.2149,-5.4708 12.1622,-5.3173 12.1501,-5.2879 12.1167,-5.2223 12.0698,-5.1403 12.0527,-5.1166 12.0316,-5.0829 12.0047,-5.0342 12.0126,-5.0091 12.0126,-5.0091 22,10.0,Papua New Guinea 145.7848,-4.7589 145.7781,-4.7588 145.7671,-4.7563 145.7521,-4.7509 145.729,-4.7332 145.7085,-4.6888 145.7071,-4.6641 145.7262,-4.604 145.7359,-4.5866 145.7488,-4.5721 145.8022,-4.5265 145.8123,-4.5225 145.8453,-4.544 145.8608,-4.5562 145.8884,-4.5936 145.8876,-4.6558 145.8729,-4.7058 145.8572,-4.7211 145.8281,-4.7399 145.7953,-4.7554 145.7848,-4.7589 145.7848,-4.7589 41,8.0,Indonesia 122.5695,-4.6131 122.5939,-4.6381 122.6095,-4.7419 122.6281,-4.8695 122.64,-4.8911 122.6353,-4.95 122.5678,-5.0085 122.5066,-5.0617 122.4605,-5.1625 122.4646,-5.1896 122.4918,-5.2109 122.5175,-5.2699 122.5163,-5.2973 122.5038,-5.3463 122.463,-5.4163 122.4089,-5.4314 122.315,-5.3977 122.1723,-5.386 122.1454,-5.3756 122.1342,-5.3217 122.1829,-5.1477 122.1982,-5.1126 122.2262,-5.0979 122.2485,-5.0823 122.2574,-5.0625 122.2501,-4.9779 122.2179,-4.8973 122.2086,-4.8758 122.1918,-4.8432 122.2347,-4.7504 122.2566,-4.738 122.2819,-4.7384 122.3164,-4.7353 122.3472,-4.729 122.382,-4.717 122.4134,-4.6984 122.4511,-4.6674 122.4645,-4.6523 122.5587,-4.6064 122.5695,-4.6131 122.5695,-4.6131 21,10.0,Papua New Guinea 154.4609,-5.4523 154.4418,-5.4251 154.4106,-5.3387 154.3895,-5.2705 154.354,-5.1279 154.3559,-5.1161 154.3648,-5.098 154.3703,-5.0897 154.382,-5.0743 154.4257,-5.0214 154.4439,-5.0129 154.4661,-5.0104 154.4787,-5.015 154.4922,-5.0291 154.5511,-5.1939 154.5517,-5.2104 154.5166,-5.4148 154.5108,-5.4256 154.499,-5.4347 154.4609,-5.4523 154.4609,-5.4523 21,8.0,Indonesia 121.8421,-5.0753 121.8845,-5.1505 121.9208,-5.226 121.9145,-5.4184 121.9093,-5.4438 121.9043,-5.4535 121.8929,-5.4627 121.8808,-5.4672 121.8226,-5.4703 121.7256,-5.3537 121.6772,-5.2827 121.6692,-5.263 121.6735,-5.2163 121.7168,-5.0975 121.7224,-5.086 121.7305,-5.0775 121.7543,-5.0603 121.7714,-5.0535 121.8308,-5.0654 121.8421,-5.0753 121.8421,-5.0753 16,10.0,Papua New Guinea 146.9679,-5.4447 146.954,-5.4382 146.8413,-5.3463 146.8347,-5.2976 146.8404,-5.2529 146.847,-5.2329 146.9414,-5.1874 146.9569,-5.1857 146.9672,-5.1892 147.0233,-5.2424 147.0437,-5.2632 147.061,-5.3577 147.056,-5.4225 146.9884,-5.4429 146.9679,-5.4447 146.9679,-5.4447 20,8.0,Indonesia 123.4446,-5.2492 123.4579,-5.2531 123.4728,-5.2624 123.4861,-5.2763 123.4919,-5.2846 123.4961,-5.2974 123.4922,-5.3674 123.4644,-5.3704 123.4361,-5.3681 123.4247,-5.3622 123.4158,-5.3508 123.4065,-5.333 123.3954,-5.3097 123.3873,-5.291 123.3808,-5.2698 123.379,-5.2546 123.3822,-5.2443 123.399,-5.245 123.4446,-5.2492 123.4446,-5.2492 15,7.0,Indonesia 102.2614,-5.481 102.211,-5.4613 102.1402,-5.4483 101.9836,-5.3288 101.9981,-5.3123 102.0445,-5.2729 102.062,-5.2715 102.1517,-5.309 102.2641,-5.3664 102.2757,-5.3753 102.2868,-5.3914 102.2881,-5.4042 102.2698,-5.4777 102.2614,-5.481 102.2614,-5.481 42,9.0,Indonesia 133.0308,-5.3038 133.037,-5.3192 133.0378,-5.3314 133.0349,-5.345 132.9776,-5.5338 132.9602,-5.5853 132.9555,-5.5942 132.947,-5.6061 132.9294,-5.6226 132.9174,-5.6309 132.8944,-5.6422 132.8801,-5.6516 132.8587,-5.6775 132.8517,-5.6865 132.8125,-5.7445 132.8059,-5.758 132.7976,-5.7908 132.7962,-5.803 132.7967,-5.8194 132.8021,-5.8309 132.8046,-5.8428 132.8038,-5.8588 132.6983,-5.9963 132.6885,-5.9935 132.6882,-5.9752 132.7201,-5.8722 132.7331,-5.8309 132.7804,-5.6861 132.7865,-5.6714 132.8001,-5.6513 132.8119,-5.6387 132.8242,-5.6339 132.8344,-5.6191 132.8659,-5.5457 132.9542,-5.3153 132.9625,-5.2961 132.9715,-5.2883 132.9862,-5.286 133.0053,-5.2871 133.0191,-5.2907 133.0308,-5.3038 133.0308,-5.3038 52,9.0,Indonesia 134.3628,-5.43 134.4157,-5.4231 134.4783,-5.4426 134.5391,-5.5238 134.5258,-5.5864 134.5678,-5.7304 134.5819,-5.8398 134.602,-5.854 134.6066,-5.8865 134.577,-5.9703 134.5607,-5.972 134.5264,-5.9511 134.5097,-5.9302 134.5004,-5.926 134.4771,-5.9282 134.379,-5.9511 134.3599,-5.9556 134.3364,-5.9646 134.3133,-5.9767 134.301,-5.9848 134.2847,-5.9947 134.2647,-6.0037 134.2437,-6.0117 134.2268,-6.0169 134.1914,-6.0236 134.1784,-6.0229 134.1497,-6.0158 134.1494,-5.9031 134.1646,-5.8909 134.2058,-5.8462 134.228,-5.8 134.2131,-5.7813 134.1306,-5.759 134.1141,-5.7626 134.1024,-5.761 134.0622,-5.7366 134.0535,-5.7281 134.0512,-5.7165 134.0564,-5.6975 134.0748,-5.6768 134.0879,-5.6708 134.1014,-5.6744 134.1308,-5.6863 134.1566,-5.7013 134.1649,-5.7072 134.207,-5.6996 134.2542,-5.6266 134.3296,-5.4855 134.3403,-5.4311 134.3537,-5.427 134.3628,-5.43 134.3628,-5.43 57,10.0,Papua New Guinea 155.2274,-5.993 155.2403,-6.0747 155.2532,-6.1076 155.3005,-6.1622 155.3182,-6.1781 155.4011,-6.2153 155.438,-6.2128 155.5932,-6.3496 155.6264,-6.3588 155.6557,-6.3914 155.7381,-6.5132 155.7903,-6.7065 155.7675,-6.7745 155.7361,-6.7975 155.714,-6.7721 155.6795,-6.7669 155.6435,-6.7714 155.5991,-6.8068 155.5694,-6.8384 155.5325,-6.8729 155.4477,-6.8603 155.3828,-6.8448 155.3092,-6.8195 155.2691,-6.8012 155.1641,-6.7337 155.0639,-6.6149 155.0166,-6.5532 155.0328,-6.5214 155.0489,-6.47 155.0568,-6.4303 155.052,-6.3476 155.0403,-6.3175 155.0214,-6.2945 155.0047,-6.2801 154.9514,-6.2689 154.9253,-6.27 154.887,-6.2496 154.8119,-6.2053 154.795,-6.188 154.7084,-6.0695 154.6476,-6.0213 154.5745,-5.9423 154.5236,-5.766 154.5421,-5.6636 154.5774,-5.5118 154.6159,-5.4744 154.7059,-5.537 154.7443,-5.5434 154.7876,-5.5398 154.8968,-5.5552 154.9856,-5.7259 155.0392,-5.8621 155.0965,-5.8799 155.1914,-5.9542 155.2237,-5.989 155.2274,-5.993 155.2274,-5.993 32,10.0,Papua New Guinea 147.8219,-5.8491 147.8144,-5.8113 147.8024,-5.784 147.7768,-5.7733 147.7583,-5.7725 147.6968,-5.741 147.6339,-5.6664 147.625,-5.6547 147.6017,-5.6157 147.5971,-5.6031 147.593,-5.5189 147.6135,-5.486 147.646,-5.4785 147.6732,-5.4838 147.6837,-5.4873 147.84,-5.5698 147.852,-5.5778 147.8738,-5.5939 147.8967,-5.6212 147.9056,-5.6384 147.9097,-5.6477 147.9119,-5.6593 147.9097,-5.6845 147.908,-5.6967 147.904,-5.72 147.8994,-5.7424 147.893,-5.7703 147.889,-5.7797 147.8485,-5.838 147.8323,-5.8458 147.8219,-5.8491 147.8219,-5.8491 23,9.0,Indonesia 132.5874,-5.6724 132.6534,-5.7908 132.6575,-5.8032 132.6581,-5.8269 132.6567,-5.8389 132.6531,-5.8562 132.6308,-5.9191 132.6239,-5.929 132.5886,-5.9435 132.541,-5.9286 132.5155,-5.9031 132.5144,-5.8908 132.515,-5.8537 132.5185,-5.8315 132.5051,-5.7071 132.4899,-5.6705 132.4777,-5.6281 132.484,-5.6096 132.5482,-5.5912 132.5808,-5.6461 132.5846,-5.6566 132.5874,-5.6724 132.5874,-5.6724 15,7.0,Indonesia 112.5663,-5.7246 112.5931,-5.7347 112.6089,-5.7704 112.6093,-5.7835 112.604,-5.8187 112.5962,-5.8333 112.5645,-5.8462 112.4918,-5.8527 112.4621,-5.8382 112.4563,-5.7916 112.4596,-5.778 112.5092,-5.7318 112.5535,-5.7235 112.5663,-5.7246 112.5663,-5.7246 27,8.0,Indonesia 120.3584,-5.7807 120.3573,-5.8182 120.3841,-5.8664 120.4119,-5.9548 120.4223,-5.9991 120.4241,-6.0209 120.3988,-6.2471 120.3672,-6.4195 120.3434,-6.4746 120.3363,-6.4672 120.3246,-6.3862 120.3233,-6.3706 120.332,-6.3355 120.3347,-6.3178 120.335,-6.2971 120.3081,-6.1539 120.3039,-6.0249 120.3033,-5.925 120.3032,-5.9044 120.3121,-5.8385 120.3181,-5.8105 120.3258,-5.7839 120.3369,-5.7642 120.3502,-5.7631 120.3574,-5.773 120.3584,-5.7807 120.3584,-5.7807 597,1.0,Angola 13.164,-5.8496 13.2299,-5.8545 13.3901,-5.8478 13.4432,-5.8419 13.4981,-5.8476 13.5258,-5.858 13.744,-5.8558 13.923,-5.8339 13.9575,-5.8298 13.9817,-5.8419 14.0645,-5.8597 14.2267,-5.8788 14.3253,-5.8865 14.5799,-5.9012 14.6956,-5.8738 14.7419,-5.8712 14.8344,-5.8659 15.0594,-5.8562 15.6685,-5.8505 15.7948,-5.8631 15.9103,-5.8545 16.0817,-5.8528 16.1248,-5.8497 16.1974,-5.8459 16.3011,-5.8453 16.3499,-5.8465 16.4956,-5.869 16.5608,-5.8942 16.5774,-5.9149 16.5866,-5.9749 16.5872,-6.0203 16.6665,-6.1299 16.6968,-6.1615 16.7063,-6.1905 16.6748,-6.3477 16.6696,-6.3977 16.6893,-6.4596 16.7638,-6.674 16.8151,-6.7846 16.8519,-6.8498 16.8841,-6.8558 16.9109,-6.8843 16.9505,-7.0099 16.9388,-7.0597 16.9159,-7.1045 16.9241,-7.1906 16.9753,-7.2891 17.0455,-7.3306 17.076,-7.3704 17.0862,-7.4139 17.1317,-7.4441 17.1675,-7.5044 17.2643,-7.6705 17.2899,-7.7472 17.3711,-7.8368 17.4004,-7.846 17.4187,-7.8676 17.4856,-7.9943 17.5059,-8.0445 17.5307,-8.0715 17.5356,-8.0737 17.6113,-8.0889 17.6404,-8.0834 17.7368,-8.0573 17.8696,-8.033 17.9022,-8.0373 17.9326,-8.0523 17.9568,-8.074 17.9848,-8.0977 18.0214,-8.0983 18.0951,-8.0977 18.0893,-8.072 18.0923,-8.0193 18.1756,-7.9877 18.3094,-7.9884 18.3829,-7.9999 18.505,-7.9798 18.4983,-7.9485 18.5062,-7.9281 18.7452,-7.9288 18.752,-7.9632 18.7708,-7.9897 18.9806,-7.9902 19.3512,-7.9841 19.3374,-7.926 19.3306,-7.9051 19.3278,-7.884 19.3394,-7.8039 19.3517,-7.7818 19.3657,-7.7542 19.3798,-7.6836 19.3598,-7.6108 19.3507,-7.5924 19.3532,-7.5705 19.3776,-7.5641 19.4464,-7.5604 19.5088,-7.4688 19.5062,-7.4266 19.4805,-7.3614 19.4682,-7.3079 19.4682,-7.2784 19.4768,-7.1711 19.4811,-7.1441 19.5171,-6.9887 19.9401,-6.9875 20.2886,-6.9867 20.2951,-6.9634 20.2945,-6.9431 20.3087,-6.9069 20.6065,-6.9058 20.5929,-6.9648 20.5647,-7.0229 20.5232,-7.1072 20.5105,-7.1722 20.5079,-7.2413 20.5256,-7.2754 21.1842,-7.2745 21.5788,-7.2738 21.7532,-7.273 21.7881,-7.3037 21.8156,-7.3594 21.835,-7.4683 21.8268,-7.583 21.8084,-7.627 21.8017,-7.6365 21.7926,-7.6455 21.7493,-7.7647 21.739,-7.8264 21.7248,-7.9265 21.7308,-7.9947 21.7489,-8.0143 21.7796,-8.0444 21.8118,-8.1222 21.8344,-8.1908 21.8546,-8.2741 21.885,-8.3225 21.8793,-8.334 21.8896,-8.3805 21.9123,-8.4113 21.9155,-8.4866 21.9107,-8.5366 21.9003,-8.5743 21.8662,-8.7223 21.8517,-8.7912 21.8286,-8.9237 21.8113,-9.0607 21.8172,-9.1438 21.8014,-9.2917 21.7832,-9.3356 21.7674,-9.4005 21.8264,-9.6093 21.8357,-9.6315 21.8509,-9.654 21.9993,-9.8386 22.0371,-9.8714 22.1078,-9.8905 22.1342,-9.913 22.1513,-9.9511 22.1766,-10.0718 22.183,-10.1428 22.2041,-10.1905 22.2444,-10.266 22.2895,-10.363 22.2799,-10.4109 22.248,-10.5009 22.2788,-10.5711 22.2838,-10.6007 22.2818,-10.6633 22.2906,-10.7152 22.2277,-10.7777 22.1845,-10.7968 22.166,-10.8135 22.1423,-10.8477 22.17,-10.9549 22.1933,-11.0063 22.2196,-11.0557 22.2344,-11.1711 22.2295,-11.1968 22.2744,-11.2245 22.456,-11.1181 22.4753,-11.081 22.4799,-11.052 22.4939,-11.0318 22.5428,-11.0209 22.5733,-11.0287 22.5986,-11.0486 22.622,-11.0601 22.6414,-11.0686 22.6918,-11.0809 22.7499,-11.0787 22.782,-11.0622 22.811,-11.0432 22.8318,-11.0367 22.8816,-11.0523 22.916,-11.0805 22.9916,-11.0834 23.0626,-11.0839 23.1916,-11.0641 23.2166,-11.0491 23.2682,-11.0146 23.3423,-10.9702 23.3717,-10.9577 23.3961,-10.9509 23.4304,-10.9466 23.4507,-10.9457 23.4711,-10.9466 23.4942,-10.9496 23.5171,-10.9544 23.5599,-10.9675 23.5843,-10.9776 23.6392,-10.9984 23.8324,-11.0147 23.8598,-11.0023 23.9278,-10.9215 23.9599,-10.858 23.9616,-10.9074 23.9816,-11.1102 24.0004,-11.2372 24.0579,-11.3897 24.0299,-11.4134 24.0055,-11.4393 23.9408,-11.649 23.9631,-11.6836 23.972,-11.7023 23.9856,-11.8109 23.9576,-11.8688 23.9579,-12.1979 23.977,-12.2156 24.0043,-12.2436 24.0122,-12.2631 24.0158,-12.2837 24.0239,-12.3784 23.9585,-12.4777 23.9446,-12.4984 23.86,-12.7491 23.8652,-12.8109 23.8849,-12.8379 23.9193,-12.8657 23.9348,-12.8816 23.9675,-12.9186 23.9793,-12.9385 23.9922,-12.9848 23.8531,-12.9923 23.5581,-12.9918 23.3967,-12.9906 23.2562,-12.9907 22.97,-12.9898 22.4748,-12.9903 21.9766,-12.9898 21.9714,-13.3004 21.9718,-13.4374 21.973,-13.6823 21.9728,-13.7116 21.9732,-13.9005 21.9741,-13.9516 21.9743,-13.9908 21.9741,-14.4361 21.9732,-14.7274 21.9735,-14.8302 21.9731,-14.8816 21.9734,-14.9331 21.9738,-15.4338 21.9738,-15.588 21.9728,-15.982 21.9736,-16.1046 21.9741,-16.1533 21.988,-16.1652 22.041,-16.2158 22.0855,-16.3042 22.0976,-16.3301 22.105,-16.3635 22.1084,-16.4673 22.1619,-16.5222 22.191,-16.5428 22.2667,-16.5935 22.4669,-16.7619 22.7031,-17.0221 22.7351,-17.0507 23.0371,-17.3123 23.1736,-17.4601 23.426,-17.5959 23.4479,-17.6059 23.261,-17.6412 23.2568,-17.6426 22.9687,-17.6968 22.8824,-17.7134 22.8536,-17.7195 22.5369,-17.7789 22.2635,-17.8298 21.729,-17.9269 21.3535,-17.9945 21.2378,-17.9361 21.2112,-17.9187 21.1402,-17.9113 21.113,-17.9142 20.9962,-17.9329 20.9282,-17.948 20.8646,-17.9742 20.8291,-17.996 20.7565,-17.9898 20.7268,-17.9756 20.6134,-17.9582 20.5706,-17.9609 20.5289,-17.9628 20.4679,-17.9218 20.4204,-17.8816 20.2969,-17.8372 20.2465,-17.8412 20.2203,-17.8601 20.1047,-17.8741 20.0746,-17.876 19.9929,-17.8705 19.9471,-17.8601 19.9222,-17.8431 19.8964,-17.837 19.7949,-17.8378 19.774,-17.8434 19.6777,-17.8505 19.5357,-17.8473 19.4223,-17.8424 19.3899,-17.841 19.3139,-17.8238 19.2756,-17.805 19.2224,-17.7863 19.1522,-17.7808 19.1106,-17.7841 19.0939,-17.7992 19.0327,-17.8076 19.003,-17.8099 18.961,-17.8057 18.8965,-17.7963 18.7818,-17.7486 18.7313,-17.7254 18.6196,-17.6282 18.556,-17.5522 18.4912,-17.4532 18.4293,-17.3703 18.368,-17.3672 18.1669,-17.3676 18.0953,-17.3671 17.979,-17.3664 17.7124,-17.3694 17.5406,-17.3711 17.4895,-17.3722 17.2582,-17.3727 16.5861,-17.371 15.9843,-17.3672 15.9375,-17.3669 15.5642,-17.3695 15.4783,-17.3698 14.9759,-17.3699 14.617,-17.3685 14.4306,-17.3678 14.3443,-17.3675 14.201,-17.3674 14.1778,-17.3915 14.1544,-17.4016 14.066,-17.4102 14.0343,-17.3999 13.9999,-17.3913 13.9764,-17.4042 13.9122,-17.3815 13.8247,-17.3039 13.6815,-17.222 13.6443,-17.1993 13.5119,-17.0681 13.4783,-17.0063 13.456,-16.9914 13.3599,-16.9517 13.3303,-16.9515 13.3019,-16.959 13.2451,-16.9656 13.1931,-16.9545 13.155,-16.9371 13.1335,-16.9351 13.0029,-16.9588 12.9702,-16.9717 12.908,-16.997 12.8644,-17.0209 12.8362,-17.0533 12.8025,-17.0877 12.5893,-17.2064 12.542,-17.224 12.464,-17.2221 12.4193,-17.1934 12.2776,-17.2104 12.2234,-17.1957 12.1912,-17.1752 12.0733,-17.117 12.0337,-17.1244 11.9619,-17.1448 11.9187,-17.1613 11.8881,-17.1863 11.8702,-17.2051 11.7976,-17.2506 11.7386,-17.2354 11.7443,-17.1201 11.758,-16.9467 11.7593,-16.8075 11.7984,-16.7722 11.8069,-16.6835 11.8082,-16.654 11.8066,-16.4844 11.8055,-16.453 11.8036,-16.4287 11.8014,-16.4049 11.7962,-16.3519 11.7936,-16.3289 11.7802,-16.2234 11.7723,-16.1779 11.7674,-16.0711 11.7775,-16.0346 11.7916,-16.0066 11.7963,-15.9821 11.789,-15.95 11.7574,-15.9062 11.7275,-15.8607 11.7172,-15.8327 11.7273,-15.8017 11.7594,-15.7659 11.7975,-15.7615 11.8138,-15.7816 11.8433,-15.7702 11.8767,-15.7374 11.9916,-15.579 12.0009,-15.5517 12.0197,-15.4778 12.022,-15.4464 12.0167,-15.411 12.016,-15.3846 12.0433,-15.2012 12.0917,-15.0969 12.1449,-14.9717 12.1911,-14.8609 12.233,-14.7727 12.2592,-14.7357 12.2636,-14.6513 12.2678,-14.6209 12.2864,-14.5127 12.3016,-14.4497 12.3181,-14.4078 12.3261,-14.3806 12.3335,-14.2913 12.3272,-14.2437 12.3121,-14.2145 12.303,-14.1741 12.3182,-14.0891 12.3436,-14.0254 12.3945,-13.9347 12.4687,-13.8617 12.4903,-13.8287 12.5216,-13.5623 12.5178,-13.5524 12.5089,-13.5374 12.4984,-13.4092 12.526,-13.3851 12.7521,-13.1777 12.8479,-13.0708 12.9236,-12.9795 12.9475,-12.9334 12.9366,-12.9119 12.9124,-12.8422 12.9179,-12.8124 12.9556,-12.7701 13.1107,-12.6412 13.1834,-12.5952 13.2151,-12.5986 13.3394,-12.5892 13.3608,-12.5759 13.4443,-12.4944 13.4574,-12.4698 13.4588,-12.4425 13.4585,-12.4208 13.471,-12.3913 13.4931,-12.3582 13.5104,-12.3367 13.5417,-12.3092 13.5608,-12.2984 13.6472,-12.1559 13.7491,-11.9224 13.777,-11.7815 13.7793,-11.7454 13.7775,-11.7353 13.7713,-11.7025 13.7603,-11.5641 13.7638,-11.5037 13.7765,-11.3213 13.8011,-11.2902 13.8325,-11.0829 13.8385,-10.9903 13.8344,-10.9438 13.8208,-10.9091 13.7668,-10.839 13.7094,-10.7534 13.7257,-10.7179 13.7547,-10.6883 13.7534,-10.6608 13.7314,-10.6308 13.6278,-10.5192 13.5241,-10.4119 13.5084,-10.3862 13.506,-10.3626 13.515,-10.3349 13.4965,-10.2702 13.4737,-10.2393 13.465,-10.2295 13.434,-10.1849 13.3016,-9.9517 13.3197,-9.9391 13.3147,-9.8983 13.2904,-9.8404 13.2759,-9.8173 13.2389,-9.7646 13.2079,-9.6374 13.2089,-9.6022 13.1555,-9.3979 13.1281,-9.3271 13.1021,-9.2906 12.9702,-9.0708 12.9885,-9.0117 13.0144,-8.9513 13.0618,-8.9071 13.1167,-8.8716 13.0896,-8.897 13.0741,-8.917 13.056,-8.9322 13.0405,-8.9457 13.0152,-8.9759 12.993,-9.0241 12.9861,-9.0445 12.9992,-9.0765 13.041,-9.0144 13.0852,-8.9474 13.1758,-8.8514 13.2637,-8.7711 13.3457,-8.7585 13.3727,-8.7303 13.3926,-8.6491 13.3854,-8.6207 13.3541,-8.5716 13.3364,-8.4948 13.3346,-8.4579 13.3644,-8.4492 13.377,-8.3843 13.3549,-8.3197 13.3371,-8.2911 13.3042,-8.2479 13.2444,-8.1564 13.201,-8.0562 13.1851,-8.0195 13.1802,-7.9999 13.1408,-7.9052 13.1013,-7.8127 13.0931,-7.7938 13.0865,-7.7832 13.0731,-7.7657 13.0577,-7.7412 12.9957,-7.5848 12.9699,-7.5182 12.9373,-7.4295 12.8548,-7.2603 12.8276,-7.0791 12.8187,-7.0113 12.8139,-6.9825 12.8032,-6.9421 12.6512,-6.7587 12.5844,-6.6877 12.5536,-6.6629 12.5348,-6.6474 12.522,-6.6252 12.448,-6.4662 12.3488,-6.2502 12.327,-6.2155 12.2993,-6.188 12.2493,-6.1273 12.2326,-6.0965 12.2428,-6.0705 12.266,-6.0565 12.2921,-6.053 12.3007,-6.0904 12.3944,-6.0698 12.5137,-6.0409 12.5656,-6.0293 12.7134,-6.0123 12.7806,-6.0094 12.8121,-5.9999 12.8769,-5.9693 12.9161,-5.9389 12.9306,-5.9121 12.9383,-5.8928 12.9651,-5.8776 13.0447,-5.8715 13.0773,-5.8914 13.1108,-5.8845 13.1578,-5.8571 13.164,-5.8496 13.164,-5.8496 548,7.0,Indonesia 113.4294,-8.4258 113.3152,-8.3697 113.1898,-8.298 113.1655,-8.2872 113.1505,-8.2816 113.1064,-8.2715 113.075,-8.2682 113.0559,-8.2681 113.0316,-8.2707 112.9829,-8.2781 112.9533,-8.283 112.9012,-8.2938 112.8619,-8.3139 112.8424,-8.3287 112.8337,-8.3406 112.8227,-8.3636 112.806,-8.3808 112.7927,-8.3878 112.7758,-8.3917 112.5208,-8.4247 112.3977,-8.3865 112.2385,-8.3332 112.1662,-8.3214 112.0412,-8.3075 111.822,-8.2742 111.7316,-8.2585 111.6622,-8.2513 111.5904,-8.2857 111.5697,-8.3282 111.5782,-8.3445 111.5266,-8.3531 111.3226,-8.3045 111.261,-8.2682 110.9882,-8.2324 110.9549,-8.2398 110.9444,-8.2431 110.9212,-8.2474 110.8938,-8.2474 110.792,-8.2125 110.7096,-8.1924 110.6616,-8.1856 110.6487,-8.1848 110.5944,-8.1879 110.3467,-8.0987 110.2563,-8.065 110.2446,-8.0559 110.0907,-7.9713 109.9947,-7.9299 109.9609,-7.909 109.9329,-7.8883 109.9138,-7.8804 109.7959,-7.8411 109.5796,-7.789 109.4606,-7.7668 109.3867,-7.7585 109.2749,-7.7141 109.167,-7.6908 109.1421,-7.6879 109.0348,-7.6817 108.9957,-7.6838 108.9486,-7.691 108.9315,-7.6948 108.9197,-7.7033 108.8692,-7.7083 108.7721,-7.6839 108.7643,-7.6728 108.7601,-7.6568 108.7577,-7.6323 108.6869,-7.6478 108.6576,-7.6727 108.5629,-7.671 108.459,-7.6776 108.4414,-7.6803 108.406,-7.6896 108.3948,-7.6955 108.383,-7.7123 108.3818,-7.7299 108.384,-7.7516 108.3784,-7.7769 108.3526,-7.7954 108.3388,-7.7985 108.3053,-7.7977 108.2594,-7.7959 108.0655,-7.7776 108.0415,-7.7741 108.0196,-7.7687 107.9493,-7.7503 107.8,-7.7093 107.7086,-7.6805 107.6851,-7.6633 107.6738,-7.6605 107.5615,-7.6169 107.5159,-7.58 107.4992,-7.5691 107.4547,-7.5457 107.4321,-7.534 107.3478,-7.4958 107.2758,-7.4847 107.1968,-7.4798 107.0811,-7.4667 106.962,-7.4397 106.5894,-7.4111 106.4711,-7.4118 106.4578,-7.411 106.4472,-7.4085 106.3032,-7.363 106.2863,-7.3417 106.2679,-7.3019 106.2647,-7.2883 106.2595,-7.2346 106.2813,-7.1985 106.2919,-7.1823 106.3442,-7.1267 106.3551,-7.1169 106.3698,-7.1077 106.389,-7.0959 106.4048,-7.0845 106.4153,-7.0743 106.4247,-7.0598 106.4253,-7.0369 106.4193,-7.0021 106.415,-6.9892 106.4071,-6.9807 106.3862,-6.9702 106.324,-6.9582 106.3082,-6.9671 106.2947,-6.9804 106.2645,-6.9916 106.249,-6.9962 106.2372,-6.9981 106.2049,-6.9941 106.166,-6.9792 106.0515,-6.9092 106.027,-6.8928 106.0071,-6.8781 105.9826,-6.8615 105.9565,-6.8466 105.9156,-6.8286 105.8982,-6.8234 105.8804,-6.8208 105.8166,-6.8173 105.8032,-6.8173 105.565,-6.8353 105.4898,-6.8475 105.4731,-6.8512 105.4486,-6.8608 105.4293,-6.8658 105.364,-6.8614 105.3539,-6.8539 105.3273,-6.8371 105.2512,-6.812 105.2395,-6.8099 105.2013,-6.807 105.1856,-6.8074 105.1241,-6.8024 105.0967,-6.7676 105.1316,-6.763 105.1433,-6.7612 105.1547,-6.7556 105.1995,-6.7147 105.2874,-6.7343 105.3052,-6.7645 105.3377,-6.8071 105.3478,-6.814 105.3629,-6.81 105.3718,-6.8012 105.495,-6.6381 105.5073,-6.62 105.5101,-6.6098 105.5064,-6.5544 105.5075,-6.4811 105.5118,-6.4687 105.5173,-6.4603 105.5278,-6.4504 105.54,-6.4454 105.5532,-6.456 105.5598,-6.4838 105.5647,-6.4926 105.5733,-6.5041 105.5927,-6.5127 105.6491,-6.489 105.6606,-6.4804 105.6811,-6.4597 105.6856,-6.451 105.694,-6.4319 105.7026,-6.4029 105.7119,-6.3051 105.7116,-6.2821 105.708,-6.2585 105.7082,-6.2449 105.7119,-6.221 105.7171,-6.1991 105.7545,-6.0794 105.7594,-6.0706 105.882,-5.905 105.8929,-5.8958 105.9132,-5.8822 105.9262,-5.8774 105.9553,-5.8753 105.9773,-5.8873 105.9868,-5.9017 105.9892,-5.9228 105.9891,-5.9364 105.9866,-5.9541 105.9882,-5.97 105.9964,-5.9855 106.008,-5.9944 106.0225,-6.0005 106.0424,-6.0072 106.0632,-6.0109 106.0803,-6.0071 106.0893,-5.9991 106.0968,-5.9863 106.1098,-5.9583 106.1186,-5.9469 106.1303,-5.9378 106.1435,-5.9339 106.159,-5.9352 106.1693,-5.9384 106.2105,-5.9659 106.3447,-6.0296 106.3543,-6.0338 106.3718,-6.0358 106.3921,-6.0236 106.4059,-6.0104 106.4229,-5.9997 106.5807,-6.0075 106.5916,-6.0134 106.5988,-6.0268 106.6066,-6.0596 106.6104,-6.0701 106.6202,-6.084 106.6343,-6.0937 106.6826,-6.0915 106.7798,-6.0834 106.806,-6.0814 106.8315,-6.0804 106.8621,-6.077 106.8732,-6.0743 106.8822,-6.0663 106.8929,-6.0406 106.8964,-6.0304 106.8958,-5.9645 106.8918,-5.9177 106.9023,-5.9078 106.9168,-5.9093 106.9813,-5.9298 106.9897,-5.9355 106.9975,-5.9446 107.003,-5.9529 107.0214,-5.9694 107.0352,-5.976 107.0463,-5.9785 107.0661,-5.9781 107.077,-5.9752 107.1008,-5.965 107.1448,-5.9471 107.157,-5.946 107.1709,-5.9459 107.1837,-5.9469 107.1982,-5.9493 107.21,-5.9547 107.2385,-5.9745 107.2462,-5.9807 107.2686,-6.0057 107.2861,-6.0299 107.3144,-6.0759 107.4276,-6.165 107.5162,-6.2346 107.5282,-6.2429 107.5446,-6.247 107.5721,-6.2471 107.6014,-6.2424 107.6189,-6.2373 107.7541,-6.2224 107.9452,-6.3259 107.965,-6.3331 107.9766,-6.3354 108.0025,-6.3366 108.0294,-6.3359 108.0485,-6.3346 108.0651,-6.3276 108.0706,-6.3153 108.0614,-6.2962 108.0888,-6.2591 108.1122,-6.2488 108.1764,-6.2507 108.1903,-6.2544 108.2067,-6.272 108.2318,-6.3115 108.2848,-6.3814 108.2936,-6.3931 108.3007,-6.4006 108.3273,-6.4285 108.3443,-6.4454 108.3607,-6.4566 108.3801,-6.4646 108.4009,-6.4748 108.4126,-6.4838 108.421,-6.496 108.4243,-6.506 108.4301,-6.5551 108.4394,-6.6339 108.4429,-6.6509 108.4493,-6.6786 108.4539,-6.6944 108.4679,-6.7283 108.4724,-6.7373 108.4805,-6.7493 108.4978,-6.7663 108.5077,-6.7707 108.5897,-6.8017 108.6146,-6.8074 108.6426,-6.8104 108.6628,-6.8104 108.6976,-6.7907 108.7068,-6.786 108.762,-6.7986 108.8696,-6.8315 109.1576,-6.8744 109.1845,-6.8752 109.1976,-6.8744 109.2811,-6.8624 109.2919,-6.8596 109.3083,-6.8554 109.3253,-6.8497 109.3359,-6.8432 109.3425,-6.8356 109.3981,-6.8235 109.5164,-6.8486 109.6528,-6.8827 109.6944,-6.8961 109.7422,-6.9097 109.8094,-6.9178 109.867,-6.9221 109.8802,-6.9213 109.971,-6.903 109.9872,-6.8992 109.9978,-6.8956 110.0102,-6.8913 110.025,-6.8819 110.0779,-6.8897 110.0868,-6.8941 110.2106,-6.9615 110.2249,-6.9676 110.2505,-6.9731 110.2688,-6.9711 110.3414,-6.9437 110.3507,-6.9397 110.3659,-6.9275 110.3827,-6.9097 110.4354,-6.8468 110.4541,-6.818 110.4963,-6.7379 110.5028,-6.7238 110.5205,-6.6736 110.5243,-6.6603 110.5347,-6.6074 110.5368,-6.5823 110.5369,-6.5701 110.537,-6.5534 110.5566,-6.5138 110.5762,-6.4869 110.6041,-6.4518 110.6424,-6.4334 110.7275,-6.4095 110.8013,-6.4036 110.9001,-6.4331 110.9323,-6.459 110.9591,-6.5379 110.9628,-6.5513 110.9618,-6.5733 110.9638,-6.5848 110.9703,-6.5992 110.9769,-6.6128 110.9856,-6.6312 111.0049,-6.6664 111.023,-6.6894 111.0748,-6.6965 111.2248,-6.7078 111.2387,-6.7078 111.2569,-6.7057 111.2844,-6.6991 111.3042,-6.6918 111.315,-6.6854 111.3249,-6.6712 111.3293,-6.6589 111.3388,-6.6382 111.3488,-6.6273 111.365,-6.6224 111.4613,-6.6478 111.4862,-6.6672 111.4966,-6.6774 111.5132,-6.6938 111.5223,-6.7047 111.5334,-6.721 111.5432,-6.7318 111.5615,-6.7474 111.5903,-6.7663 111.5952,-6.7684 111.6275,-6.7774 111.7896,-6.7897 111.8089,-6.7812 111.827,-6.7761 111.8429,-6.7762 111.8614,-6.7847 111.8983,-6.8295 111.913,-6.8494 111.9177,-6.8584 111.9257,-6.8703 111.9373,-6.8861 111.9531,-6.8993 111.9678,-6.9036 111.9798,-6.9051 111.9999,-6.9058 112.0322,-6.9038 112.0557,-6.9004 112.0854,-6.8958 112.1477,-6.8827 112.2056,-6.8657 112.2181,-6.8642 112.3165,-6.868 112.433,-6.9041 112.4812,-7.0356 112.5498,-7.1572 112.5533,-7.1745 112.5469,-7.1903 112.5382,-7.1954 112.5244,-7.1933 112.5038,-7.186 112.4887,-7.1843 112.4778,-7.1919 112.4902,-7.208 112.5294,-7.2306 112.538,-7.2354 112.5527,-7.2414 112.5675,-7.2468 112.5792,-7.2446 112.5889,-7.2372 112.5943,-7.2256 112.604,-7.2082 112.6177,-7.1982 112.632,-7.1952 112.6437,-7.1972 112.655,-7.2027 112.6701,-7.2182 112.6815,-7.2345 112.686,-7.2432 112.7013,-7.2842 112.6863,-7.3941 112.6791,-7.4016 112.6601,-7.4163 112.6343,-7.4286 112.63,-7.4419 112.6363,-7.5039 112.6514,-7.5353 112.6913,-7.5704 112.7102,-7.5856 112.7211,-7.5921 112.8398,-7.6341 112.9659,-7.6957 112.9843,-7.7084 113.0451,-7.7363 113.1721,-7.7834 113.2136,-7.7726 113.2234,-7.7684 113.2389,-7.7571 113.2497,-7.7475 113.2616,-7.7389 113.2752,-7.7319 113.3659,-7.6932 113.3775,-7.6912 113.4416,-7.6984 113.4641,-7.7021 113.5537,-7.7138 113.6409,-7.7226 113.6545,-7.7226 113.7975,-7.6811 113.8111,-7.6743 113.8331,-7.6555 113.8603,-7.6282 113.8932,-7.6058 113.9099,-7.6031 113.9303,-7.6148 113.9482,-7.6313 113.957,-7.6429 113.9695,-7.6611 113.9964,-7.6855 114.0089,-7.6934 114.0179,-7.6981 114.185,-7.7414 114.239,-7.7489 114.2541,-7.7509 114.3116,-7.7855 114.3199,-7.7915 114.3335,-7.812 114.3377,-7.8217 114.3408,-7.8686 114.2738,-8.1983 114.2643,-8.2438 114.2593,-8.266 114.2565,-8.2768 114.2519,-8.2923 114.2443,-8.319 114.2388,-8.3475 114.2293,-8.426 114.2452,-8.5138 114.3365,-8.6197 114.3465,-8.6175 114.3664,-8.6127 114.4566,-8.6531 114.4814,-8.6792 114.4936,-8.6976 114.4961,-8.7122 114.4941,-8.7337 114.4828,-8.7596 114.4635,-8.7677 114.4409,-8.7724 114.4278,-8.7719 114.4053,-8.7673 114.2929,-8.736 114.252,-8.7089 114.2637,-8.697 114.2683,-8.6775 114.2659,-8.6663 114.2612,-8.6574 114.2519,-8.6463 114.2404,-8.6379 114.2264,-8.631 114.1654,-8.6032 114.1529,-8.5991 114.1366,-8.5995 114.1196,-8.6095 114.1039,-8.6275 114.0887,-8.6367 113.9712,-8.6309 113.9348,-8.6261 113.837,-8.5903 113.7449,-8.5519 113.6104,-8.5226 113.5945,-8.5215 113.5344,-8.4829 113.5254,-8.4748 113.5205,-8.4627 113.5136,-8.4521 113.487,-8.4381 113.4294,-8.4258 113.4294,-8.4258 36,9.0,Indonesia 134.3253,-5.9818 134.3369,-5.9766 134.3561,-5.9693 134.3734,-5.9635 134.4539,-5.9461 134.4893,-5.9426 134.5767,-6.0276 134.5951,-6.0537 134.6007,-6.0617 134.6139,-6.083 134.6169,-6.0964 134.5917,-6.2319 134.5876,-6.2413 134.5659,-6.2877 134.5551,-6.3041 134.5406,-6.3167 134.5207,-6.3313 134.4527,-6.3621 134.3963,-6.3475 134.3858,-6.3376 134.3749,-6.3212 134.3408,-6.2871 134.2756,-6.2591 134.2448,-6.2523 134.182,-6.2175 134.135,-6.1516 134.116,-6.1079 134.1189,-6.0929 134.1317,-6.054 134.1402,-6.0421 134.1599,-6.035 134.2137,-6.0299 134.2708,-6.0108 134.2924,-6.0007 134.3253,-5.9818 134.3253,-5.9818 25,9.0,Indonesia 134.062,-6.0194 134.0705,-6.0235 134.0872,-6.0698 134.0892,-6.0908 134.0757,-6.1216 134.0791,-6.1339 134.1757,-6.2297 134.1847,-6.2346 134.2173,-6.2507 134.2515,-6.2745 134.2123,-6.3012 134.1806,-6.3192 134.0876,-6.2446 133.978,-6.1441 133.9675,-6.1272 133.9601,-6.1037 133.9598,-6.087 133.9683,-6.0378 133.9749,-6.0269 133.9996,-6.0057 133.9997,-6.0277 134.0059,-6.0403 134.037,-6.0395 134.062,-6.0194 134.062,-6.0194 42,9.0,Indonesia 133.9686,-6.1632 134.0395,-6.2168 134.0645,-6.2293 134.1244,-6.2897 134.1449,-6.2979 134.1474,-6.3112 134.1326,-6.332 134.1517,-6.3571 134.179,-6.3806 134.2419,-6.4065 134.2769,-6.4372 134.3019,-6.4392 134.3089,-6.4494 134.3633,-6.5849 134.3596,-6.5989 134.3412,-6.6345 134.3271,-6.6512 134.3071,-6.6636 134.2835,-6.6794 134.2537,-6.7105 134.1918,-6.7932 134.201,-6.7978 134.2115,-6.8006 134.2092,-6.8106 134.1708,-6.8473 134.0486,-6.9128 134.0309,-6.9135 133.9167,-6.8208 133.8996,-6.7698 133.8994,-6.7541 133.9418,-6.5138 133.9712,-6.434 133.9734,-6.3367 133.9719,-6.2905 133.9694,-6.2788 133.9588,-6.2407 133.9486,-6.2203 133.9409,-6.2041 133.9382,-6.1854 133.9522,-6.1658 133.9686,-6.1632 133.9686,-6.1632 22,9.0,Indonesia 134.3001,-6.2806 134.3113,-6.2944 134.4043,-6.3652 134.421,-6.3726 134.4362,-6.3881 134.445,-6.3998 134.4512,-6.4174 134.4462,-6.4354 134.3911,-6.5262 134.3754,-6.5226 134.3571,-6.5096 134.3326,-6.4638 134.3031,-6.4202 134.2837,-6.4248 134.2337,-6.3865 134.2086,-6.3854 134.1932,-6.3526 134.2257,-6.3143 134.2561,-6.2923 134.295,-6.2776 134.3001,-6.2806 134.3001,-6.2806 15,9.0,Indonesia 134.7322,-6.3011 134.7359,-6.3217 134.7338,-6.3365 134.6803,-6.4621 134.6633,-6.4626 134.6469,-6.4516 134.6392,-6.4385 134.6356,-6.3829 134.6404,-6.3709 134.6878,-6.2858 134.7014,-6.2821 134.7188,-6.2855 134.7305,-6.2941 134.7322,-6.3011 134.7322,-6.3011 13,7.0,Indonesia 105.1418,-6.5258 105.1442,-6.537 105.1421,-6.6048 105.1312,-6.6316 105.0762,-6.6757 105.066,-6.6759 104.9985,-6.6187 104.9953,-6.6034 105.0454,-6.559 105.067,-6.547 105.1352,-6.5214 105.1418,-6.5258 105.1418,-6.5258 15,9.0,Indonesia 134.5572,-6.5837 134.567,-6.5883 134.5779,-6.598 134.5865,-6.6095 134.5891,-6.6211 134.5691,-6.6827 134.5147,-6.7667 134.494,-6.762 134.4717,-6.7436 134.474,-6.7078 134.5233,-6.6046 134.5326,-6.5871 134.5423,-6.5797 134.5572,-6.5837 134.5572,-6.5837 22,9.0,Indonesia 138.4771,-6.7216 138.498,-6.7411 138.5064,-6.7467 138.5333,-6.7538 138.5578,-6.757 138.5711,-6.7569 138.5814,-6.7603 138.5919,-6.7705 138.6125,-6.7984 138.6287,-6.8297 138.5884,-6.8601 138.5715,-6.8652 138.5551,-6.8634 138.5453,-6.8597 138.5284,-6.8494 138.4612,-6.7611 138.4549,-6.7466 138.4537,-6.7315 138.4607,-6.7212 138.4713,-6.7181 138.4771,-6.7216 138.4771,-6.7216 35,7.0,Indonesia 115.1627,-6.8311 115.1861,-6.8316 115.1982,-6.8314 115.219,-6.8315 115.2647,-6.8338 115.3023,-6.8371 115.3314,-6.8427 115.3552,-6.8525 115.4044,-6.8784 115.4294,-6.8946 115.4399,-6.913 115.433,-6.9316 115.4159,-6.9427 115.371,-6.9294 115.3351,-6.9168 115.3132,-6.908 115.256,-6.9041 115.2116,-6.9298 115.2176,-6.9384 115.2272,-6.9424 115.2436,-6.9463 115.2589,-6.9551 115.2637,-6.9642 115.2593,-6.9752 115.1654,-7.0001 115.1403,-6.9866 115.0846,-6.9249 115.0815,-6.9144 115.0807,-6.9018 115.0839,-6.8917 115.1166,-6.8335 115.1272,-6.827 115.1408,-6.8268 115.1627,-6.8311 115.1627,-6.8311 46,7.0,Indonesia 112.8117,-6.8853 112.8739,-6.8793 112.9746,-6.8759 113.1841,-6.8846 113.4233,-6.8873 113.6377,-6.8792 113.7438,-6.8648 113.7775,-6.8574 113.8121,-6.8575 113.8429,-6.8644 113.8624,-6.8723 113.9755,-6.9234 113.9942,-6.9417 113.999,-6.9654 113.9373,-6.996 113.857,-7.0111 113.7638,-7.0307 113.7312,-7.0571 113.6989,-7.1157 113.6214,-7.1048 113.5761,-7.1022 113.5492,-7.1047 113.4964,-7.117 113.4322,-7.1616 113.4208,-7.1805 113.3759,-7.2169 113.3129,-7.2194 113.2731,-7.221 113.046,-7.2133 112.9783,-7.1819 112.8543,-7.1919 112.7275,-7.1613 112.6977,-7.1572 112.6591,-7.1542 112.615,-7.1561 112.5895,-7.1406 112.5669,-7.0842 112.5606,-7.0395 112.5755,-7.0258 112.6163,-7.0169 112.6428,-6.9955 112.6861,-6.9438 112.7113,-6.9007 112.794,-6.8855 112.8117,-6.8853 112.8117,-6.8853 16,8.0,Indonesia 120.5218,-7.0145 120.5477,-7.0364 120.6123,-7.068 120.6266,-7.0641 120.6391,-7.0522 120.6472,-7.0625 120.6475,-7.0792 120.6448,-7.0899 120.6334,-7.1258 120.5366,-7.1385 120.5163,-7.1265 120.5017,-7.114 120.4887,-7.0769 120.4975,-7.0078 120.5218,-7.0145 120.5218,-7.0145 17,7.0,Indonesia 114.1977,-7.0557 114.2068,-7.054 114.2285,-7.0533 114.2412,-7.0579 114.2506,-7.0688 114.2669,-7.0933 114.2785,-7.1156 114.2893,-7.1582 114.2733,-7.1729 114.2597,-7.1758 114.197,-7.1563 114.1683,-7.1003 114.1635,-7.088 114.1634,-7.0771 114.1799,-7.0609 114.1977,-7.0557 114.1977,-7.0557 16,9.0,Indonesia 128.4781,-7.057 128.5535,-7.1004 128.5578,-7.1116 128.5343,-7.1688 128.5096,-7.2002 128.492,-7.2115 128.4814,-7.2099 128.394,-7.1556 128.381,-7.1318 128.3845,-7.1199 128.4029,-7.0987 128.4393,-7.0737 128.4518,-7.0656 128.4728,-7.0562 128.4781,-7.057 128.4781,-7.057 24,9.0,Indonesia 131.7672,-7.096 131.778,-7.0987 131.8253,-7.1675 131.8303,-7.1761 131.8391,-7.2132 131.8237,-7.2431 131.8131,-7.2463 131.765,-7.2123 131.757,-7.1999 131.7554,-7.1811 131.7501,-7.1694 131.7414,-7.1614 131.7301,-7.1585 131.6844,-7.1511 131.6727,-7.1533 131.6514,-7.1578 131.6169,-7.1658 131.5872,-7.1599 131.5796,-7.1473 131.58,-7.1312 131.585,-7.1198 131.6017,-7.1084 131.7672,-7.096 131.7672,-7.096 36,9.0,Indonesia 131.4972,-7.1086 131.5052,-7.1081 131.5619,-7.1361 131.5915,-7.2004 131.5493,-7.2187 131.5275,-7.2144 131.4919,-7.2434 131.5221,-7.3952 131.5309,-7.432 131.5308,-7.4727 131.4819,-7.6206 131.4242,-7.6952 131.341,-7.762 131.2536,-7.8212 131.2295,-7.855 131.1968,-7.9129 131.1975,-7.9558 131.1932,-7.9854 131.1822,-8.0053 131.1555,-8.019 130.9892,-8.0029 130.9617,-7.9894 130.9371,-7.857 131.0422,-7.6762 131.029,-7.6466 131.0406,-7.607 131.0519,-7.5775 131.0891,-7.4825 131.1585,-7.4246 131.1855,-7.414 131.2379,-7.3644 131.3086,-7.2787 131.3867,-7.1401 131.4305,-7.1162 131.4972,-7.1086 131.4972,-7.1086 22,8.0,Indonesia 120.6945,-7.257 120.7018,-7.2604 120.7343,-7.2693 120.7951,-7.2752 120.8245,-7.2766 120.8588,-7.2724 120.8908,-7.2779 120.9167,-7.286 120.9265,-7.2937 120.9222,-7.305 120.9075,-7.3207 120.8956,-7.3265 120.8765,-7.3276 120.863,-7.3274 120.6801,-7.2972 120.6663,-7.2901 120.6553,-7.281 120.655,-7.2671 120.663,-7.2582 120.6783,-7.2516 120.6945,-7.257 120.6945,-7.257 15,9.0,Indonesia 130.8891,-7.409 131.0172,-7.3952 131.0296,-7.4032 131.0242,-7.4179 130.9866,-7.4549 130.9253,-7.5029 130.9128,-7.5039 130.8474,-7.4783 130.8365,-7.4653 130.8342,-7.4476 130.8524,-7.42 130.8625,-7.4129 130.8828,-7.4091 130.8891,-7.409 130.8891,-7.409 18,9.0,Indonesia 127.2726,-7.5039 127.3413,-7.5257 127.345,-7.5406 127.3447,-7.5601 127.342,-7.5715 127.3377,-7.5808 127.3105,-7.6011 127.2509,-7.6425 127.236,-7.6496 127.2159,-7.646 127.2069,-7.6377 127.2022,-7.6224 127.2037,-7.6078 127.2234,-7.5075 127.2322,-7.4991 127.2441,-7.494 127.2726,-7.5039 127.2726,-7.5039 45,9.0,Indonesia 125.8307,-7.65 125.8723,-7.6655 125.9587,-7.6925 126.0439,-7.7125 126.197,-7.6861 126.21,-7.6784 126.2322,-7.6624 126.241,-7.6442 126.2686,-7.6239 126.3431,-7.5897 126.4,-7.5723 126.4759,-7.5562 126.4881,-7.5649 126.4899,-7.5799 126.488,-7.5947 126.4927,-7.6036 126.5768,-7.6627 126.592,-7.6649 126.6232,-7.6635 126.648,-7.741 126.6343,-7.7408 126.5666,-7.744 126.5309,-7.7531 126.4695,-7.7733 126.4171,-7.8101 126.3834,-7.846 126.3746,-7.8573 126.3662,-7.8695 126.3615,-7.8785 126.2764,-7.923 126.1362,-7.9072 125.9897,-7.8781 125.9784,-7.8755 125.9206,-7.8772 125.8551,-7.8865 125.7877,-7.9046 125.7563,-7.9313 125.7004,-7.9774 125.659,-8.008 125.6418,-8.0114 125.6314,-7.9969 125.6716,-7.8433 125.7726,-7.728 125.8307,-7.65 125.8307,-7.65 26,9.0,Indonesia 129.4867,-7.7898 129.5248,-7.7829 129.5402,-7.7809 129.5556,-7.782 129.6741,-7.8139 129.6968,-7.8322 129.7172,-7.9026 129.717,-7.9151 129.712,-7.9275 129.7009,-7.9437 129.6319,-8.0442 129.6218,-8.0513 129.6094,-8.0512 129.5494,-8.0337 129.5309,-8.0182 129.4649,-7.9341 129.4472,-7.9109 129.4389,-7.8987 129.4305,-7.8765 129.4395,-7.8345 129.4449,-7.8126 129.4512,-7.8023 129.4613,-7.795 129.4737,-7.7902 129.4867,-7.7898 129.4867,-7.7898 69,8.0,Indonesia 114.3505,-8.0808 114.3735,-8.0838 114.5889,-8.1339 114.6167,-8.1506 114.6394,-8.1624 114.7086,-8.1786 114.7494,-8.1814 114.8652,-8.1769 114.8876,-8.1717 114.9109,-8.1577 114.9707,-8.1028 114.9946,-8.0787 115.0165,-8.0593 115.0373,-8.05 115.0668,-8.049 115.2319,-8.1048 115.2654,-8.1192 115.3319,-8.1481 115.3732,-8.1692 115.3997,-8.1834 115.4318,-8.2058 115.5795,-8.3508 115.5848,-8.3753 115.5806,-8.395 115.5634,-8.4186 115.4863,-8.4843 115.3739,-8.5411 115.3179,-8.5598 115.2667,-8.5776 115.2476,-8.5856 115.2097,-8.6054 115.1697,-8.6371 115.1396,-8.6942 115.0946,-8.7152 115.0778,-8.731 115.0757,-8.7637 115.0928,-8.7779 115.1,-8.7563 115.1128,-8.7971 115.0922,-8.8265 115.0305,-8.8433 115.0081,-8.8446 114.975,-8.8367 114.9638,-8.8173 115.0099,-8.7804 115.0453,-8.7652 115.0511,-8.7438 115.0477,-8.7027 115.0339,-8.6683 115.0173,-8.6508 114.948,-8.5825 114.8382,-8.4871 114.7978,-8.4603 114.7564,-8.4372 114.6642,-8.4014 114.6254,-8.3928 114.5823,-8.3858 114.5259,-8.3878 114.5008,-8.3902 114.4813,-8.386 114.4436,-8.35 114.4009,-8.2986 114.3695,-8.2528 114.3566,-8.2315 114.3371,-8.1932 114.3279,-8.1687 114.3217,-8.0931 114.3505,-8.0808 114.3505,-8.0808 127,8.0,Indonesia 119.6629,-8.7103 119.6714,-8.6651 119.6694,-8.621 119.6644,-8.5819 119.6702,-8.5578 119.6851,-8.539 119.7758,-8.4544 119.8731,-8.4071 119.9497,-8.3865 120.0621,-8.296 120.1309,-8.2608 120.3877,-8.2478 120.5256,-8.2718 120.6183,-8.3242 120.7199,-8.331 120.7868,-8.3367 120.8835,-8.3815 120.9044,-8.395 120.9678,-8.4156 121.0372,-8.431 121.0684,-8.4329 121.1466,-8.4634 121.1677,-8.4836 121.1846,-8.5125 121.2069,-8.5336 121.2505,-8.5681 121.2712,-8.5782 121.3784,-8.5968 121.4333,-8.5601 121.4615,-8.5256 121.5015,-8.4653 121.6374,-8.4789 121.7477,-8.4844 121.7735,-8.48 121.9034,-8.4339 121.9715,-8.5231 122.1008,-8.6223 122.126,-8.6312 122.1524,-8.6347 122.2039,-8.6111 122.2269,-8.6064 122.2927,-8.594 122.3459,-8.5037 122.3475,-8.4798 122.4673,-8.3834 122.4914,-8.3766 122.5464,-8.3757 122.634,-8.3463 122.7536,-8.2754 122.8089,-8.1958 122.7524,-8.1749 122.6837,-8.1987 122.6547,-8.2218 122.6045,-8.2165 122.6626,-8.1015 122.7303,-8.0629 122.8243,-8.1186 122.8421,-8.1382 122.893,-8.2877 122.8859,-8.315 122.8448,-8.345 122.7596,-8.3758 122.663,-8.4298 122.6587,-8.4573 122.6667,-8.4765 122.683,-8.495 122.7011,-8.518 122.7106,-8.5354 122.7157,-8.5604 122.7094,-8.5818 122.7008,-8.5883 122.6913,-8.594 122.6587,-8.606 122.6024,-8.6095 122.545,-8.6244 122.4226,-8.6656 122.3965,-8.6942 122.3764,-8.7085 122.3303,-8.7236 122.2441,-8.7438 122.1237,-8.7404 122.0865,-8.7366 122.0428,-8.7258 121.7703,-8.8164 121.664,-8.8709 121.6297,-8.8808 121.4901,-8.8333 121.4292,-8.8054 121.2517,-8.79 121.2336,-8.8107 121.2372,-8.8441 121.2391,-8.8721 121.2155,-8.8983 121.1838,-8.9141 121.1599,-8.9136 121.1233,-8.8957 121.0734,-8.8834 121.0435,-8.8856 121.0013,-8.8947 120.983,-8.9039 120.9519,-8.9205 120.8983,-8.9387 120.8823,-8.9396 120.8702,-8.9381 120.7845,-8.9144 120.7249,-8.861 120.626,-8.8627 120.5996,-8.8626 120.5147,-8.8354 120.4839,-8.8146 120.4542,-8.7882 120.4041,-8.7831 120.3016,-8.7838 120.2482,-8.7907 120.2143,-8.8013 120.1898,-8.821 120.1194,-8.8214 120.0682,-8.7931 119.9556,-8.7865 119.9356,-8.7936 119.8059,-8.8403 119.7607,-8.8402 119.7006,-8.788 119.6784,-8.7655 119.6683,-8.736 119.6629,-8.7103 119.6629,-8.7103 161,8.0,Indonesia 119.0521,-8.6906 119.0443,-8.7126 119.0182,-8.7406 118.9728,-8.7496 118.8434,-8.7496 118.8066,-8.7123 118.788,-8.6898 118.768,-8.6812 118.6831,-8.7019 118.6188,-8.7054 118.5711,-8.7373 118.6053,-8.7554 118.6257,-8.7621 118.7088,-8.7678 118.7598,-8.7734 118.8004,-8.7973 118.8113,-8.8308 118.7801,-8.8423 118.6969,-8.8428 118.6663,-8.8147 118.6122,-8.7981 118.5903,-8.7982 118.5503,-8.8003 118.5109,-8.8089 118.4524,-8.8261 118.3386,-8.8622 118.3257,-8.8617 118.2929,-8.8504 118.2768,-8.8353 118.2606,-8.8039 118.2527,-8.7764 118.2835,-8.7354 118.2998,-8.7105 118.3097,-8.6539 118.2993,-8.6236 118.2733,-8.5797 118.2635,-8.6248 118.0918,-8.8108 118.0574,-8.8406 118.0376,-8.855 118.0178,-8.8625 117.9844,-8.8541 117.9654,-8.8378 117.8978,-8.8439 117.8778,-8.8581 117.8177,-8.892 117.7535,-8.9244 117.6639,-8.9253 117.6081,-8.9083 117.5852,-8.9062 117.5209,-8.9339 117.5064,-8.9513 117.4335,-8.9922 117.4077,-9.0045 117.3087,-9.0314 117.2758,-9.0392 117.2214,-9.0393 117.1779,-9.0314 117.1588,-9.0166 117.1142,-9.007 117.0756,-9.0204 117.0368,-9.0573 117.0201,-9.0809 116.9702,-9.0931 116.9183,-9.1004 116.6751,-9.0332 116.6262,-9.0041 116.6142,-8.9714 116.626,-8.8697 116.665,-8.8175 116.6496,-8.6636 116.6733,-8.5815 116.7281,-8.5247 116.758,-8.513 116.8018,-8.5096 116.8843,-8.4733 116.9491,-8.4293 116.9661,-8.4123 116.9888,-8.3727 117.0194,-8.359 117.0619,-8.3541 117.1395,-8.388 117.2944,-8.4522 117.314,-8.3999 117.4323,-8.4027 117.4365,-8.4225 117.4343,-8.4584 117.4483,-8.4929 117.5171,-8.5524 117.6271,-8.6398 117.7163,-8.7006 117.7666,-8.6911 117.826,-8.7278 117.8354,-8.7387 117.8456,-8.7351 117.89,-8.6981 117.9064,-8.6803 117.9275,-8.6574 117.9474,-8.6463 117.9992,-8.6371 118.0255,-8.6384 118.0461,-8.6452 118.0802,-8.6553 118.1255,-8.651 118.1496,-8.6324 118.1566,-8.6097 118.1483,-8.5784 118.0998,-8.5417 117.9453,-8.4526 117.9134,-8.4495 117.8883,-8.4585 117.8611,-8.4659 117.6972,-8.3603 117.5743,-8.2279 117.5804,-8.1874 117.5907,-8.1637 117.6055,-8.1428 117.6708,-8.1103 117.79,-8.0761 117.8133,-8.0734 117.9649,-8.0994 117.9954,-8.1151 118.0256,-8.1415 118.0344,-8.1987 118.0631,-8.2568 118.1234,-8.3361 118.1844,-8.3651 118.2422,-8.327 118.2817,-8.2858 118.3111,-8.257 118.3333,-8.2413 118.353,-8.2371 118.4541,-8.2604 118.5193,-8.2885 118.5552,-8.3527 118.5554,-8.4029 118.5504,-8.4416 118.5359,-8.4747 118.5327,-8.5356 118.5742,-8.4877 118.5907,-8.4496 118.5867,-8.4147 118.5811,-8.3818 118.6043,-8.3355 118.6406,-8.3035 118.666,-8.2901 118.7463,-8.2797 118.7664,-8.2792 118.7971,-8.2824 118.8187,-8.2879 118.8669,-8.3063 118.9174,-8.4668 118.9076,-8.5229 118.8953,-8.541 118.8885,-8.5815 118.9057,-8.6217 118.9259,-8.6414 118.9996,-8.6282 119.0428,-8.6398 119.0521,-8.6906 119.0521,-8.6906 22,9.0,Indonesia 130.6196,-8.3456 130.6188,-8.3322 130.6939,-8.2512 130.7102,-8.2338 130.7224,-8.2247 130.7812,-8.1951 130.8152,-8.1382 130.8669,-8.0809 130.8859,-8.0755 131.02,-8.113 131.0314,-8.1218 131.0108,-8.1463 130.9951,-8.1574 130.9002,-8.1996 130.8128,-8.2274 130.7509,-8.2717 130.7494,-8.2867 130.7419,-8.2973 130.6757,-8.34 130.658,-8.3426 130.6196,-8.3456 130.6196,-8.3456 28,9.0,Indonesia 127.6547,-8.0946 127.6678,-8.0934 127.7004,-8.0917 127.7219,-8.098 127.7382,-8.1055 127.7542,-8.1139 127.7842,-8.1245 127.8067,-8.1291 127.825,-8.1313 127.9074,-8.1382 127.9246,-8.1331 127.942,-8.1282 127.9572,-8.1293 127.9736,-8.1366 127.9827,-8.1449 127.9842,-8.1592 127.9782,-8.17 127.893,-8.2552 127.8821,-8.2581 127.8665,-8.2534 127.6872,-8.1936 127.6687,-8.1848 127.6594,-8.1765 127.6204,-8.1008 127.6314,-8.0953 127.6439,-8.094 127.6547,-8.0946 127.6547,-8.0946 30,8.0,Indonesia 124.3356,-8.1266 124.3701,-8.1235 124.4088,-8.1246 124.439,-8.1276 124.5306,-8.1637 124.7154,-8.1679 124.778,-8.1631 124.7906,-8.1555 124.9475,-8.1459 124.9574,-8.1537 124.9959,-8.2197 124.9986,-8.2424 124.9998,-8.316 124.9864,-8.3401 124.961,-8.3486 124.9119,-8.3608 124.8941,-8.3639 124.6776,-8.3906 124.4628,-8.4216 124.2833,-8.4619 124.2204,-8.4503 124.2106,-8.4431 124.2031,-8.4333 124.1964,-8.4157 124.1964,-8.4002 124.2592,-8.2162 124.3142,-8.1414 124.3283,-8.1263 124.3356,-8.1266 124.3356,-8.1266 23,8.0,Indonesia 118.9549,-8.1272 118.972,-8.1361 118.9894,-8.1491 119.0006,-8.1654 119.0035,-8.1827 119.0015,-8.1977 118.9946,-8.2147 118.9703,-8.2413 118.959,-8.2506 118.9504,-8.2552 118.9396,-8.2579 118.926,-8.2579 118.9122,-8.2549 118.9032,-8.2464 118.8912,-8.2307 118.8816,-8.1935 118.8909,-8.1583 118.8946,-8.1492 118.9091,-8.1361 118.9276,-8.1269 118.942,-8.1244 118.9549,-8.1272 118.9549,-8.1272 14,9.0,Indonesia 125.507,-8.1407 125.4572,-8.2892 125.4523,-8.298 125.4434,-8.3066 125.4322,-8.3086 125.3956,-8.3007 125.3857,-8.2965 125.3572,-8.2677 125.3586,-8.2558 125.3845,-8.2207 125.4755,-8.1306 125.5047,-8.131 125.507,-8.1407 125.507,-8.1407 24,8.0,Indonesia 117.4048,-8.3811 117.3952,-8.3769 117.3564,-8.3511 117.3522,-8.3419 117.3457,-8.239 117.3448,-8.1909 117.3498,-8.1822 117.4137,-8.1403 117.4302,-8.1364 117.4475,-8.1361 117.5318,-8.1423 117.5479,-8.15 117.5573,-8.1611 117.5599,-8.1743 117.5478,-8.182 117.5075,-8.2134 117.4955,-8.2291 117.4889,-8.2424 117.4635,-8.2986 117.4452,-8.3413 117.4244,-8.3686 117.4119,-8.3794 117.4048,-8.3811 117.4048,-8.3811 22,9.0,Indonesia 138.6677,-8.1638 138.6795,-8.1999 138.7413,-8.3338 138.7493,-8.346 138.7537,-8.3553 138.7549,-8.3748 138.7436,-8.3956 138.7304,-8.4029 138.7151,-8.4053 138.6918,-8.4042 138.6406,-8.4011 138.5852,-8.3947 138.4231,-8.3662 138.4022,-8.3563 138.39,-8.3377 138.3898,-8.3235 138.3948,-8.3115 138.5519,-8.1741 138.6505,-8.1459 138.6637,-8.1489 138.6677,-8.1638 138.6677,-8.1638 20,9.0,Indonesia 128.7145,-8.1794 128.7247,-8.1754 128.7471,-8.1706 128.8011,-8.1711 128.8254,-8.1747 128.8347,-8.1786 128.8848,-8.2036 128.8905,-8.2186 128.8887,-8.2338 128.8711,-8.2575 128.8609,-8.2601 128.7809,-8.2531 128.7688,-8.2487 128.7406,-8.2356 128.7049,-8.2168 128.6958,-8.212 128.6865,-8.1928 128.6929,-8.1846 128.7145,-8.1794 128.7145,-8.1794 46,8.0,Indonesia 123.8422,-8.3332 123.8497,-8.327 123.8985,-8.3008 123.9099,-8.2987 123.9332,-8.3031 123.9383,-8.3117 123.939,-8.3309 123.9679,-8.3625 124.0148,-8.3143 124.0443,-8.2754 124.0695,-8.2331 124.1049,-8.1868 124.1167,-8.1745 124.1335,-8.1715 124.1433,-8.1755 124.1551,-8.1874 124.161,-8.1988 124.1641,-8.2126 124.1579,-8.2984 124.1559,-8.3101 124.1517,-8.3195 124.0473,-8.487 124.0242,-8.5182 124.0097,-8.5308 123.9871,-8.5424 123.9768,-8.5459 123.9319,-8.5483 123.9106,-8.5349 123.9112,-8.5153 123.9141,-8.4945 123.9119,-8.4743 123.8946,-8.4457 123.8792,-8.427 123.8675,-8.4215 123.8529,-8.423 123.8425,-8.4268 123.8258,-8.4371 123.8114,-8.4501 123.796,-8.4586 123.7847,-8.4572 123.7731,-8.4491 123.7686,-8.4362 123.8265,-8.3475 123.837,-8.337 123.8422,-8.3332 123.8422,-8.3332 53,8.0,Indonesia 123.2687,-8.5872 123.2382,-8.5628 123.1641,-8.5448 123.1495,-8.547 123.0941,-8.5418 123.0816,-8.5223 123.2161,-8.4052 123.2293,-8.3974 123.2491,-8.3892 123.2695,-8.3828 123.3017,-8.3738 123.319,-8.3636 123.3322,-8.3454 123.3376,-8.336 123.333,-8.3232 123.3296,-8.3094 123.2824,-8.3034 123.2688,-8.3033 123.257,-8.3056 123.2239,-8.3063 123.2264,-8.2952 123.253,-8.274 123.2646,-8.2657 123.2772,-8.2604 123.3882,-8.2335 123.4117,-8.2383 123.4208,-8.2445 123.4239,-8.2582 123.4193,-8.2769 123.4043,-8.2925 123.3918,-8.3217 123.3869,-8.3381 123.4047,-8.3633 123.418,-8.3669 123.4444,-8.3685 123.4587,-8.3642 123.5,-8.2898 123.639,-8.1828 123.6491,-8.1754 123.6596,-8.1719 123.7807,-8.2185 123.7938,-8.2259 123.8029,-8.2469 123.7976,-8.2583 123.7806,-8.2689 123.7608,-8.2762 123.7136,-8.2836 123.626,-8.3176 123.5289,-8.4231 123.3985,-8.5572 123.3162,-8.56 123.2687,-8.5872 123.2687,-8.5872 602,2.0,Zambia 32.904,-9.3945 32.9034,-9.4052 32.9074,-9.4449 32.911,-9.4666 32.9638,-9.6107 32.9827,-9.6203 33.0361,-9.6205 33.0728,-9.6139 33.0988,-9.5873 33.1707,-9.5915 33.1926,-9.6231 33.1978,-9.6445 33.1926,-9.6665 33.188,-9.6941 33.2024,-9.7204 33.266,-9.7877 33.2859,-9.8 33.3232,-9.9216 33.2946,-9.9822 33.2898,-10.0525 33.425,-10.1535 33.4972,-10.1944 33.5204,-10.212 33.5238,-10.2331 33.5138,-10.2594 33.5092,-10.2846 33.5083,-10.3201 33.5309,-10.3806 33.6097,-10.4887 33.6508,-10.5366 33.6654,-10.5498 33.6589,-10.5646 33.6437,-10.5843 33.6011,-10.609 33.5679,-10.6355 33.5102,-10.7009 33.505,-10.7314 33.4743,-10.7634 33.4241,-10.7915 33.3811,-10.7908 33.3605,-10.7865 33.3077,-10.8015 33.2259,-10.8515 33.2138,-10.8798 33.3133,-11.0675 33.3478,-11.1004 33.3735,-11.1505 33.3642,-11.1812 33.3543,-11.2026 33.3027,-11.2875 33.2564,-11.355 33.2128,-11.3979 33.2176,-11.5073 33.2336,-11.5578 33.272,-11.5695 33.2879,-11.5998 33.294,-11.7313 33.2951,-11.8836 33.2756,-11.9865 33.243,-12.0435 33.2344,-12.1161 33.3179,-12.2959 33.3318,-12.3124 33.3525,-12.3261 33.373,-12.3279 33.3992,-12.3225 33.4425,-12.3006 33.5082,-12.3216 33.5044,-12.3503 33.4912,-12.3636 33.4678,-12.372 33.439,-12.3985 33.4423,-12.4253 33.3268,-12.526 33.2008,-12.5717 33.127,-12.575 33.1067,-12.5668 33.032,-12.571 33.0093,-12.5896 32.925,-12.7434 32.9352,-12.8387 32.9894,-12.871 32.9975,-12.899 32.9916,-12.9266 32.9833,-12.9479 32.973,-12.9662 32.9656,-12.9876 32.9555,-13.0221 32.9492,-13.0817 32.9491,-13.1255 32.9402,-13.214 32.8813,-13.3741 32.8591,-13.4151 32.7943,-13.5131 32.7762,-13.526 32.716,-13.5487 32.658,-13.5507 32.6446,-13.5974 32.6726,-13.616 32.7167,-13.6264 32.7434,-13.6232 32.7932,-13.6886 32.8614,-13.8042 32.9519,-13.919 33.0407,-13.9654 33.1284,-13.911 33.1516,-13.9576 33.1662,-13.9814 33.1839,-13.9968 32.9458,-14.0808 32.3351,-14.2921 32.3059,-14.3008 32.1928,-14.3251 32.0574,-14.3609 31.9136,-14.4071 31.838,-14.4414 31.8185,-14.4493 31.7986,-14.4563 31.7727,-14.4641 31.7453,-14.4705 31.694,-14.4787 31.664,-14.4855 31.4981,-14.5721 31.4671,-14.5949 31.448,-14.6032 31.4265,-14.6087 31.2682,-14.6488 31.0798,-14.6917 31.0579,-14.6948 31.0095,-14.6998 30.876,-14.7337 30.772,-14.7614 30.5663,-14.8328 30.4918,-14.859 30.4687,-14.8678 30.3076,-14.9507 30.1775,-14.9649 30.1836,-15.0792 30.1922,-15.1224 30.2168,-15.1988 30.2358,-15.2406 30.2673,-15.2739 30.2967,-15.2951 30.3251,-15.32 30.3521,-15.4612 30.3607,-15.576 30.3796,-15.614 30.3487,-15.6295 30.3184,-15.6411 30.2578,-15.6326 30.2252,-15.6224 30.1239,-15.6137 29.7996,-15.5987 29.7639,-15.6069 29.6926,-15.6304 29.6209,-15.6529 29.5921,-15.6537 29.5662,-15.645 29.5434,-15.6433 29.3103,-15.7188 29.2108,-15.7593 29.0451,-15.8719 28.9544,-15.934 28.9088,-15.9457 28.8934,-15.9543 28.8318,-16.0184 28.8252,-16.0379 28.8133,-16.1417 28.8029,-16.2857 28.8093,-16.3216 28.819,-16.3436 28.818,-16.3755 28.7861,-16.4571 28.7184,-16.537 28.5514,-16.5717 28.226,-16.7052 28.1048,-16.8044 27.9924,-16.8541 27.7919,-16.94 27.7741,-16.9643 27.6727,-17.1088 27.6058,-17.2053 27.5811,-17.3218 27.4865,-17.4044 27.3148,-17.5556 27.1135,-17.7864 27.1174,-17.834 26.9968,-17.9411 26.9635,-17.9467 26.9112,-17.9541 26.8555,-17.9654 26.809,-17.9804 26.7127,-18.0133 26.6931,-18.0292 26.6663,-18.0544 26.5734,-18.0224 26.5361,-17.9771 26.3976,-17.9299 26.3298,-17.9107 26.1985,-17.8826 26.1589,-17.8818 26.0919,-17.9111 26.0613,-17.9471 25.9363,-17.9843 25.873,-17.9685 25.8303,-17.9545 25.8106,-17.9203 25.823,-17.9016 25.7516,-17.8447 25.655,-17.7874 25.6261,-17.7939 25.5876,-17.8162 25.4832,-17.843 25.4021,-17.8368 25.3803,-17.834 25.3083,-17.8236 25.2892,-17.8159 25.2341,-17.782 25.2216,-17.7631 25.0352,-17.6048 25.0,-17.5901 24.9544,-17.564 24.9399,-17.54 24.8827,-17.5209 24.788,-17.4957 24.679,-17.4784 24.6341,-17.474 24.6084,-17.4769 24.5895,-17.4862 24.5608,-17.5142 24.5359,-17.5137 24.5127,-17.5053 24.4729,-17.4884 24.4109,-17.4627 24.352,-17.4539 24.2099,-17.4585 24.0003,-17.4998 23.7921,-17.5403 23.4479,-17.6059 23.426,-17.5959 23.1736,-17.4601 23.0371,-17.3123 22.7351,-17.0507 22.7031,-17.0221 22.4669,-16.7619 22.2667,-16.5935 22.191,-16.5428 22.1619,-16.5222 22.1084,-16.4673 22.105,-16.3635 22.0976,-16.3301 22.0855,-16.3042 22.041,-16.2158 21.988,-16.1652 21.9741,-16.1533 21.9736,-16.1046 21.9728,-15.982 21.9738,-15.588 21.9738,-15.4338 21.9734,-14.9331 21.9731,-14.8816 21.9735,-14.8302 21.9732,-14.7274 21.9741,-14.4361 21.9743,-13.9908 21.9741,-13.9516 21.9732,-13.9005 21.9728,-13.7116 21.973,-13.6823 21.9718,-13.4374 21.9714,-13.3004 21.9766,-12.9898 22.4748,-12.9903 22.97,-12.9898 23.2562,-12.9907 23.3967,-12.9906 23.5581,-12.9918 23.8531,-12.9923 23.9922,-12.9848 23.9793,-12.9385 23.9675,-12.9186 23.9348,-12.8816 23.9193,-12.8657 23.8849,-12.8379 23.8652,-12.8109 23.86,-12.7491 23.9446,-12.4984 23.9585,-12.4777 24.0239,-12.3784 24.0158,-12.2837 24.0122,-12.2631 24.0043,-12.2436 23.977,-12.2156 23.9579,-12.1979 23.9576,-11.8688 23.9856,-11.8109 23.972,-11.7023 23.9631,-11.6836 23.9408,-11.649 24.0055,-11.4393 24.0299,-11.4134 24.0579,-11.3897 24.0004,-11.2372 23.9816,-11.1102 23.9616,-10.9074 23.9599,-10.858 23.9683,-10.8569 24.0322,-10.8663 24.066,-10.8814 24.1056,-10.9042 24.1157,-10.967 24.1592,-11.017 24.2917,-11.0387 24.35,-11.076 24.3718,-11.0993 24.3896,-11.2037 24.3831,-11.2673 24.3391,-11.3368 24.3484,-11.3919 24.4222,-11.4497 24.4993,-11.4485 24.5569,-11.4247 24.5759,-11.3918 24.6655,-11.3271 24.7127,-11.3044 24.9528,-11.2522 25.0018,-11.249 25.0389,-11.2483 25.0994,-11.2494 25.1615,-11.2396 25.2275,-11.2144 25.2565,-11.1947 25.2924,-11.1819 25.3166,-11.1925 25.3171,-11.2654 25.2948,-11.3144 25.2638,-11.3529 25.2882,-11.5031 25.2982,-11.5412 25.3356,-11.6297 25.4703,-11.6967 25.6637,-11.7542 25.814,-11.7887 25.9547,-11.8821 25.976,-11.8888 26.015,-11.8916 26.0432,-11.8913 26.1691,-11.8888 26.4073,-11.8969 26.4284,-11.902 26.4481,-11.9137 26.5693,-11.9577 26.6485,-11.9754 26.7212,-11.9708 26.8443,-11.958 26.8724,-11.9474 26.9299,-11.9012 26.9461,-11.8823 26.9549,-11.8637 26.9647,-11.8223 26.9668,-11.7462 27.0032,-11.5837 27.179,-11.5633 27.189,-11.5917 27.1984,-11.6691 27.199,-11.7036 27.1983,-11.7302 27.2011,-11.7623 27.2145,-11.7839 27.2337,-11.7998 27.3225,-11.858 27.3444,-11.8706 27.3886,-11.896 27.4236,-11.9234 27.4502,-11.9578 27.4562,-11.9867 27.4565,-12.007 27.4635,-12.0453 27.4998,-12.1475 27.505,-12.1597 27.5109,-12.168 27.5377,-12.1997 27.5561,-12.2127 27.5694,-12.2193 27.5926,-12.2314 27.6098,-12.2486 27.6247,-12.2764 27.6462,-12.2884 27.7665,-12.2837 27.791,-12.2695 27.8072,-12.246 27.8293,-12.2409 27.8545,-12.2507 27.8835,-12.2637 27.9047,-12.2769 27.9326,-12.2978 28.0177,-12.3537 28.132,-12.4152 28.1981,-12.4103 28.2878,-12.4191 28.315,-12.4261 28.4144,-12.5116 28.4986,-12.6426 28.4984,-12.6749 28.4837,-12.6927 28.4632,-12.7138 28.4658,-12.7406 28.5407,-12.8772 28.5652,-12.8774 28.5851,-12.8492 28.605,-12.8254 28.6414,-12.826 28.7106,-12.894 28.7924,-13.0117 28.8875,-13.1394 28.9178,-13.2358 28.9217,-13.2598 28.9252,-13.3161 28.9377,-13.3449 28.9858,-13.3833 29.0074,-13.3815 29.0329,-13.3722 29.065,-13.3738 29.1642,-13.4187 29.2751,-13.3577 29.4309,-13.2882 29.4521,-13.2746 29.4852,-13.2453 29.5118,-13.2196 29.5369,-13.2078 29.561,-13.2086 29.6497,-13.2518 29.6481,-13.2852 29.6175,-13.3013 29.5874,-13.367 29.6002,-13.4004 29.6208,-13.4194 29.6927,-13.4428 29.7676,-13.4344 29.7683,-13.4027 29.7695,-13.1565 29.7708,-12.7665 29.7721,-12.5269 29.7724,-12.4582 29.7735,-12.2117 29.7733,-12.1499 29.772,-12.1416 29.737,-12.1402 29.5359,-12.1769 29.4406,-12.2352 29.414,-12.3248 29.4565,-12.3793 29.4909,-12.3814 29.4945,-12.4112 29.4841,-12.4284 29.4489,-12.4454 29.4377,-12.4432 29.3672,-12.4198 29.2285,-12.3513 29.1442,-12.3548 29.1164,-12.3622 29.0714,-12.377 29.0246,-12.3733 28.9946,-12.363 28.9926,-12.3417 28.9685,-12.2913 28.9034,-12.1866 28.8874,-12.1676 28.8036,-12.0834 28.6658,-11.9746 28.6452,-11.9675 28.6004,-11.9429 28.4687,-11.8572 28.417,-11.7631 28.4136,-11.7109 28.3944,-11.6493 28.3757,-11.6055 28.3639,-11.5818 28.348,-11.5636 28.3343,-11.5425 28.326,-11.5113 28.3269,-11.4626 28.3356,-11.4213 28.3794,-11.3567 28.4337,-11.2319 28.4399,-11.2101 28.4544,-11.1499 28.4989,-10.9434 28.5178,-10.8433 28.5225,-10.8203 28.545,-10.7781 28.594,-10.7028 28.6299,-10.6985 28.6674,-10.6399 28.6319,-10.5448 28.6022,-10.5072 28.5637,-10.2345 28.5918,-10.1361 28.591,-9.9751 28.5947,-9.9366 28.6,-9.9146 28.6295,-9.8412 28.664,-9.7845 28.6384,-9.7375 28.5064,-9.4602 28.4876,-9.3484 28.456,-9.3264 28.3974,-9.3122 28.3591,-9.292 28.3409,-9.2685 28.346,-9.2399 28.3665,-9.2168 28.3843,-9.2073 28.4116,-9.1951 28.4423,-9.181 28.4853,-9.1578 28.5723,-9.0981 28.5909,-9.0835 28.6734,-9.0066 28.6967,-8.9817 28.7732,-8.8928 28.8117,-8.8473 28.8364,-8.817 28.8939,-8.7318 28.9206,-8.6768 28.9298,-8.6549 28.9283,-8.6258 28.9214,-8.5872 28.8984,-8.5195 28.8696,-8.4691 28.8904,-8.4651 28.9596,-8.4544 29.1682,-8.4236 29.2028,-8.418 29.3622,-8.3938 29.5355,-8.3671 29.5422,-8.364 29.5565,-8.364 29.8894,-8.3127 30.0489,-8.2881 30.2223,-8.2611 30.4028,-8.2325 30.4721,-8.2215 30.7008,-8.1861 30.7288,-8.1823 30.7368,-8.1827 30.7364,-8.1888 30.7599,-8.2562 30.8013,-8.3432 30.8186,-8.3719 30.8732,-8.4579 30.9264,-8.5225 30.9425,-8.5377 30.9982,-8.5752 31.0248,-8.5899 31.0445,-8.5975 31.0759,-8.6039 31.1075,-8.603 31.1355,-8.5854 31.1682,-8.5692 31.1919,-8.57 31.2607,-8.6101 31.38,-8.6236 31.4506,-8.6565 31.5288,-8.7415 31.5388,-8.8076 31.5579,-8.8296 31.6484,-8.8986 31.6711,-8.9068 31.7062,-8.9027 31.7521,-8.8777 31.7996,-8.8875 31.8625,-8.904 31.9169,-8.926 31.903,-8.9427 31.8964,-8.9635 31.8976,-8.9995 31.9039,-9.0209 31.9464,-9.0601 31.9674,-9.0578 31.9944,-9.0361 32.0234,-9.0312 32.051,-9.0415 32.0593,-9.0482 32.1247,-9.0542 32.1641,-9.0894 32.186,-9.11 32.2231,-9.1228 32.2659,-9.1242 32.3298,-9.122 32.3855,-9.1186 32.4548,-9.1663 32.4695,-9.2066 32.5041,-9.2506 32.5922,-9.2637 32.6667,-9.2718 32.7318,-9.322 32.8079,-9.3632 32.8385,-9.3664 32.8792,-9.3796 32.904,-9.3945 32.904,-9.3945 43,8.0,Indonesia 116.2096,-8.2091 116.2466,-8.1965 116.3344,-8.2146 116.5281,-8.2771 116.5856,-8.3256 116.6044,-8.3561 116.6066,-8.3866 116.5473,-8.5389 116.4642,-8.6935 116.4195,-8.7649 116.4299,-8.8464 116.4723,-8.8619 116.4535,-8.8861 116.416,-8.8995 116.3392,-8.9011 116.348,-8.868 116.3562,-8.8311 116.3141,-8.8269 116.2899,-8.8503 116.2535,-8.9064 116.1305,-8.913 116.0683,-8.9067 116.036,-8.8713 115.9524,-8.8496 115.9284,-8.8529 115.9068,-8.8661 115.8726,-8.8869 115.7292,-8.8125 115.7155,-8.7534 115.7439,-8.7229 115.759,-8.7417 115.8148,-8.7676 115.8419,-8.765 115.9439,-8.7211 115.9612,-8.6134 115.9604,-8.5901 115.9519,-8.5545 115.9394,-8.5123 115.973,-8.3967 116.1458,-8.2338 116.1793,-8.218 116.2096,-8.2091 116.2096,-8.2091 23,8.0,Indonesia 122.9532,-8.2761 123.0112,-8.2371 123.021,-8.233 123.0798,-8.2243 123.1221,-8.2297 123.2033,-8.2569 123.2088,-8.274 123.1914,-8.3555 123.1877,-8.3685 123.1786,-8.3831 123.1663,-8.3915 123.1561,-8.3949 123.1437,-8.3962 122.9505,-8.4057 122.8804,-8.4004 122.8795,-8.3658 122.8833,-8.3528 122.9011,-8.3228 122.9097,-8.3106 122.9305,-8.291 122.9457,-8.2791 122.9532,-8.2761 122.9532,-8.2761 225,8.0,Indonesia 124.8132,-8.9401 124.8318,-8.9244 124.9539,-8.7494 124.9559,-8.731 124.9615,-8.7028 124.9668,-8.681 124.9702,-8.6709 124.979,-8.6525 124.985,-8.6444 124.9874,-8.6406 124.9975,-8.6305 125.0058,-8.6249 125.0791,-8.6027 125.0901,-8.5999 125.2843,-8.5622 125.467,-8.5331 125.5681,-8.521 125.585,-8.5165 125.6468,-8.497 125.6567,-8.493 125.6657,-8.4883 125.6776,-8.4799 125.6876,-8.4763 125.7037,-8.4718 125.7161,-8.4704 125.7484,-8.4725 125.7672,-8.474 125.7978,-8.4779 125.8253,-8.4849 125.8463,-8.4908 125.8813,-8.5106 125.9007,-8.5149 125.9358,-8.5148 126.0796,-8.4918 126.0913,-8.4893 126.1448,-8.468 126.1964,-8.4382 126.2041,-8.4313 126.2153,-8.4187 126.2693,-8.4157 126.281,-8.4178 126.3518,-8.4399 126.3624,-8.4432 126.3774,-8.4554 126.399,-8.4747 126.4096,-8.4779 126.422,-8.4767 126.6299,-8.4144 126.7196,-8.3747 126.7374,-8.3652 126.757,-8.3509 126.8633,-8.315 127.0567,-8.3231 127.1613,-8.3872 127.1664,-8.3999 127.1667,-8.4147 127.1623,-8.4239 127.1225,-8.4624 127.1113,-8.468 127.0298,-8.5293 126.9849,-8.5659 126.9518,-8.5948 126.9218,-8.6257 126.876,-8.6716 126.7468,-8.719 126.6486,-8.7462 126.6356,-8.7451 126.6235,-8.7467 126.5586,-8.757 126.5153,-8.7652 126.4411,-8.8011 126.3998,-8.8417 126.3924,-8.8544 126.3875,-8.87 126.38,-8.8894 126.3559,-8.9198 126.3344,-8.941 126.3214,-8.9447 126.1846,-8.9652 126.1185,-8.9719 126.0995,-8.9704 126.0859,-8.9706 126.0242,-8.9774 126.0137,-8.9802 126.0039,-8.984 125.9867,-8.9943 125.9745,-9.0023 125.9471,-9.0228 125.8042,-9.1166 125.782,-9.1225 125.752,-9.1221 125.7404,-9.1197 125.7287,-9.1189 125.7064,-9.1204 125.6439,-9.1369 125.4205,-9.2078 125.266,-9.2576 125.2561,-9.2618 125.2143,-9.2849 125.1919,-9.2995 125.1482,-9.3378 125.0969,-9.3883 125.0855,-9.4039 125.0737,-9.4124 125.0639,-9.4164 125.0531,-9.4192 124.9915,-9.4246 124.9869,-9.4269 124.9704,-9.4377 124.8991,-9.4882 124.8657,-9.522 124.8547,-9.5376 124.8482,-9.5509 124.8469,-9.5629 124.8467,-9.5831 124.8483,-9.5956 124.848,-9.6091 124.846,-9.6271 124.8434,-9.6378 124.8368,-9.6483 124.8189,-9.661 124.7819,-9.6854 124.6371,-9.8228 124.5174,-9.941 124.4594,-9.9779 124.4312,-9.9974 124.4113,-10.0182 124.404,-10.0309 124.3991,-10.0431 124.393,-10.0609 124.3828,-10.0777 124.3731,-10.0886 124.3567,-10.106 124.3114,-10.1432 124.2991,-10.1513 124.2901,-10.1558 124.2725,-10.1619 124.251,-10.1644 124.2239,-10.1645 124.1608,-10.1591 124.1339,-10.1583 123.9875,-10.168 123.9695,-10.1734 123.9577,-10.1921 123.9544,-10.2021 123.9455,-10.2207 123.892,-10.2666 123.8726,-10.2712 123.841,-10.2736 123.8165,-10.2796 123.8012,-10.2852 123.7664,-10.3048 123.7499,-10.3156 123.7306,-10.33 123.7198,-10.3395 123.704,-10.3513 123.6952,-10.3559 123.6762,-10.3641 123.477,-10.3596 123.3915,-10.325 123.3533,-10.3047 123.3555,-10.2273 123.3966,-10.1782 123.4699,-10.1489 123.4803,-10.1457 123.4914,-10.143 123.5081,-10.1427 123.5224,-10.1394 123.5365,-10.1333 123.5543,-10.1243 123.5988,-10.1008 123.6131,-10.0907 123.6229,-10.0773 123.627,-10.0673 123.6288,-10.0529 123.62,-10.0415 123.5645,-10.018 123.5502,-10.0149 123.5235,-10.0146 123.5046,-10.0177 123.4833,-10.0352 123.4664,-10.0467 123.4463,-10.0311 123.4402,-10.0168 123.4403,-10.0037 123.4416,-9.9376 123.4466,-9.9221 123.4611,-9.9098 123.5081,-9.8885 123.5228,-9.8693 123.5264,-9.8592 123.5307,-9.8387 123.5362,-9.7184 123.5377,-9.686 123.5346,-9.6613 123.531,-9.6516 123.5279,-9.6344 123.5387,-9.6186 123.6508,-9.5063 123.8408,-9.3461 123.8583,-9.34 123.9091,-9.3292 123.9299,-9.3227 123.9992,-9.2969 124.0139,-9.2909 124.0222,-9.2848 124.0336,-9.2696 124.046,-9.2511 124.1534,-9.2113 124.283,-9.1756 124.3253,-9.174 124.3658,-9.1741 124.3908,-9.1715 124.4152,-9.1687 124.4661,-9.1509 124.5215,-9.1113 124.5336,-9.0964 124.6041,-9.0442 124.6594,-9.0046 124.6799,-8.9973 124.6999,-8.9971 124.721,-8.9909 124.7961,-8.9502 124.8132,-8.9401 124.8132,-8.9401 17,10.0,Papua New Guinea 143.4128,-8.484 143.399,-8.4843 143.349,-8.4728 143.3357,-8.469 143.1949,-8.4083 143.1572,-8.3812 143.1544,-8.3705 143.1631,-8.3567 143.179,-8.3493 143.1961,-8.3482 143.3346,-8.3534 143.4182,-8.366 143.456,-8.4563 143.4521,-8.4656 143.4213,-8.4825 143.4128,-8.484 143.4128,-8.484 26,10.0,Papua New Guinea 143.4727,-8.7245 143.4413,-8.6826 143.426,-8.6697 143.328,-8.6189 143.2073,-8.535 143.1191,-8.5006 143.1103,-8.496 143.0929,-8.4854 143.0807,-8.4774 143.0227,-8.4137 143.055,-8.4061 143.0678,-8.4164 143.0734,-8.4249 143.0917,-8.447 143.102,-8.4573 143.1148,-8.4648 143.1648,-8.4762 143.2114,-8.4843 143.2628,-8.5012 143.3074,-8.5181 143.4861,-8.6563 143.4933,-8.6748 143.4933,-8.6907 143.4798,-8.7216 143.4727,-8.7245 143.4727,-8.7245 19,10.0,Papua New Guinea 150.9764,-8.8205 150.9272,-8.7612 150.9329,-8.629 150.8873,-8.5423 150.8637,-8.5417 150.8329,-8.5315 150.8294,-8.5174 150.8564,-8.4571 150.8649,-8.4451 150.8899,-8.4228 150.9079,-8.4164 150.9548,-8.4132 150.9555,-8.6147 150.9351,-8.7191 150.9344,-8.732 150.9358,-8.7442 150.9394,-8.7546 150.9764,-8.8205 150.9764,-8.8205 31,8.0,Indonesia 119.2449,-8.7082 119.2502,-8.7043 119.2713,-8.671 119.2723,-8.6463 119.2648,-8.628 119.2826,-8.4362 119.3135,-8.4189 119.3222,-8.4204 119.3283,-8.4306 119.3634,-8.4774 119.3879,-8.4749 119.4071,-8.4747 119.4331,-8.4849 119.4521,-8.5503 119.4373,-8.5799 119.4225,-8.5893 119.4041,-8.5911 119.3934,-8.5879 119.3916,-8.576 119.3792,-8.5631 119.3581,-8.5667 119.3229,-8.5931 119.305,-8.6633 119.312,-8.6982 119.3187,-8.7103 119.3321,-8.7331 119.3186,-8.7434 119.2442,-8.7299 119.2417,-8.7121 119.2449,-8.7082 119.2449,-8.7082 24,8.0,Indonesia 122.7888,-8.6021 122.7669,-8.6008 122.7557,-8.5925 122.7475,-8.5736 122.7513,-8.5564 122.759,-8.5309 122.7632,-8.5215 122.7723,-8.5073 122.781,-8.4998 122.8509,-8.447 122.8602,-8.443 122.8715,-8.4402 123.0196,-8.4211 123.037,-8.4291 123.0426,-8.4406 123.0405,-8.4512 123.0319,-8.463 123.0211,-8.4692 123.0106,-8.472 122.9438,-8.486 122.9317,-8.4875 122.8324,-8.5627 122.7888,-8.6021 122.7888,-8.6021 15,8.0,Indonesia 119.4993,-8.7153 119.5112,-8.6611 119.4998,-8.5908 119.528,-8.6081 119.5868,-8.677 119.5664,-8.7132 119.5885,-8.7282 119.594,-8.745 119.5832,-8.7726 119.5497,-8.7931 119.4766,-8.7665 119.4775,-8.7461 119.4825,-8.7272 119.4993,-8.7153 119.4993,-8.7153 21,8.0,Indonesia 115.4617,-8.7961 115.4417,-8.7953 115.4313,-8.792 115.4179,-8.7851 115.3836,-8.7643 115.3754,-8.7589 115.3513,-8.7352 115.3412,-8.7222 115.3435,-8.7121 115.3731,-8.6704 115.3818,-8.6614 115.392,-8.6576 115.4389,-8.6614 115.4552,-8.671 115.4743,-8.6929 115.488,-8.7198 115.4911,-8.7374 115.4903,-8.7535 115.4698,-8.7908 115.4617,-8.7961 115.4617,-8.7961 19,10.0,Papua New Guinea 152.6666,-9.2252 152.661,-9.2129 152.5108,-9.0801 152.4821,-9.058 152.4041,-9.0101 152.391,-9.0058 152.3714,-9.0098 152.3296,-9.0129 152.3604,-8.9792 152.4534,-8.9508 152.4778,-8.951 152.642,-8.9613 152.7663,-9.0348 152.7834,-9.0487 152.8501,-9.1127 152.8309,-9.1585 152.8173,-9.1667 152.6666,-9.2252 152.6666,-9.2252 19,10.0,Papua New Guinea 150.1691,-9.5158 150.1447,-9.5152 150.0275,-9.4429 150.0119,-9.4316 149.9439,-9.36 149.9375,-9.3231 149.9383,-9.3079 149.9412,-9.2972 149.9587,-9.2509 149.978,-9.2352 150.0276,-9.1988 150.0442,-9.1949 150.0663,-9.1972 150.165,-9.2629 150.2112,-9.3757 150.1973,-9.4765 150.1765,-9.5098 150.1691,-9.5158 150.1691,-9.5158 74,8.0,Indonesia 119.07,-9.7363 119.0576,-9.7351 118.9894,-9.7157 118.9532,-9.7039 118.9349,-9.6955 118.9174,-9.6821 118.8024,-9.5485 118.8545,-9.4606 118.8743,-9.4395 118.9023,-9.4205 119.0142,-9.3842 119.1507,-9.3497 119.1909,-9.3626 119.2484,-9.3692 119.4621,-9.3343 119.5122,-9.3346 119.5431,-9.3581 119.5928,-9.3735 119.674,-9.3771 119.6952,-9.3681 119.7741,-9.3103 119.8073,-9.2791 119.8753,-9.346 119.8967,-9.3725 119.9237,-9.4139 119.9487,-9.443 119.9901,-9.4664 120.0192,-9.47 120.0542,-9.4567 120.1044,-9.4946 120.1168,-9.5692 120.1181,-9.608 120.1295,-9.6359 120.2022,-9.665 120.2222,-9.6498 120.2414,-9.6323 120.3228,-9.6199 120.461,-9.7338 120.4876,-9.7842 120.4922,-9.8083 120.5368,-9.8809 120.5871,-9.9088 120.609,-9.9141 120.6328,-9.9248 120.654,-9.9412 120.6823,-9.9738 120.6945,-9.9988 120.7043,-10.0431 120.7009,-10.066 120.6899,-10.0854 120.5924,-10.188 120.5678,-10.2042 120.4953,-10.2272 120.3626,-10.2528 120.2595,-10.2543 120.0887,-10.2365 120.0307,-10.2187 119.9585,-10.1611 119.9114,-10.1066 119.898,-10.0729 119.8862,-10.0406 119.8513,-9.99 119.8246,-9.9639 119.7975,-9.9653 119.6534,-9.8941 119.601,-9.8646 119.5697,-9.8452 119.5559,-9.8194 119.5516,-9.796 119.4986,-9.7609 119.3492,-9.739 119.0926,-9.7318 119.07,-9.7363 119.07,-9.7363 40,10.0,Papua New Guinea 150.6812,-9.707 150.6785,-9.6747 150.6361,-9.6474 150.5979,-9.6515 150.5259,-9.6523 150.4924,-9.6518 150.4573,-9.6428 150.349,-9.6122 150.3252,-9.5727 150.2616,-9.4302 150.2577,-9.4205 150.2542,-9.4038 150.254,-9.3903 150.256,-9.3787 150.2601,-9.366 150.273,-9.3463 150.3146,-9.3272 150.3363,-9.3305 150.3643,-9.341 150.4054,-9.36 150.4319,-9.3743 150.4554,-9.3903 150.4714,-9.4127 150.5007,-9.4276 150.5141,-9.4304 150.5659,-9.4171 150.58,-9.4097 150.5953,-9.3946 150.6115,-9.404 150.6384,-9.4219 150.6623,-9.4457 150.7209,-9.5123 150.7664,-9.6337 150.7648,-9.6483 150.7561,-9.66 150.7383,-9.6711 150.726,-9.6612 150.7096,-9.668 150.6812,-9.707 150.6812,-9.707 349,2.0,Malawi 32.904,-9.3945 32.907,-9.389 32.9313,-9.3736 32.9651,-9.3658 32.983,-9.389 32.9955,-9.4083 33.0927,-9.4811 33.1631,-9.4968 33.2181,-9.4813 33.2752,-9.4751 33.3614,-9.5319 33.3811,-9.5676 33.3923,-9.5985 33.4568,-9.6111 33.4949,-9.6029 33.5127,-9.5841 33.5419,-9.5738 33.7257,-9.5742 33.8342,-9.6488 33.863,-9.673 33.8816,-9.6956 33.9075,-9.6751 33.9215,-9.6177 33.9229,-9.5933 33.915,-9.5673 33.9122,-9.5409 33.9201,-9.516 33.9653,-9.4769 34.0041,-9.4729 34.0369,-9.4969 34.099,-9.5601 34.1387,-9.5925 34.1684,-9.6164 34.292,-9.7291 34.3362,-9.8004 34.3891,-9.8703 34.4453,-9.94 34.4631,-9.9578 34.4868,-10.0042 34.4973,-10.0344 34.5357,-10.3349 34.5313,-10.356 34.5277,-10.3911 34.5382,-10.5045 34.5422,-10.5225 34.5431,-10.5268 34.547,-10.5496 34.5832,-10.5947 34.6134,-10.6319 34.6199,-10.6519 34.6251,-10.7168 34.6251,-10.749 34.6119,-10.8779 34.6035,-10.9144 34.5891,-10.9391 34.5614,-10.9691 34.5553,-11.0085 34.5778,-11.0981 34.6006,-11.1243 34.6708,-11.1863 34.7641,-11.3188 34.8251,-11.3445 34.8522,-11.3702 34.919,-11.4689 34.9257,-11.4959 34.9283,-11.559 34.919,-11.5595 34.8522,-11.5606 34.6649,-11.5625 34.5866,-11.5662 34.588,-11.591 34.5936,-11.6125 34.5959,-11.654 34.5952,-11.6786 34.5913,-11.701 34.5783,-11.7433 34.5699,-11.7636 34.5146,-11.8583 34.4769,-11.9099 34.4329,-11.9676 34.3726,-12.067 34.3463,-12.116 34.337,-12.1419 34.3316,-12.1721 34.3312,-12.2135 34.335,-12.2326 34.3693,-12.3056 34.386,-12.3963 34.4082,-12.497 34.427,-12.5548 34.4379,-12.5812 34.4604,-12.6182 34.4691,-12.6396 34.4851,-12.7004 34.4913,-12.7446 34.4938,-12.7682 34.4952,-12.8269 34.5002,-12.912 34.5029,-12.9459 34.5102,-12.9984 34.5171,-13.0315 34.524,-13.274 34.5237,-13.2942 34.5263,-13.3244 34.5422,-13.3583 34.6186,-13.4809 34.7912,-13.4817 34.8263,-13.491 34.8596,-13.5071 35.0551,-13.6705 35.1309,-13.7805 35.165,-13.8287 35.4498,-14.1399 35.4639,-14.1754 35.489,-14.235 35.5033,-14.2533 35.7794,-14.5864 35.8342,-14.6444 35.8354,-14.6833 35.8363,-14.7572 35.8387,-14.8683 35.8787,-14.8771 35.8255,-15.0026 35.7599,-15.1696 35.7977,-15.3066 35.8114,-15.3552 35.8248,-15.4019 35.822,-15.436 35.8205,-15.4407 35.8198,-15.4589 35.7889,-15.8372 35.7733,-15.9953 35.751,-16.0369 35.7316,-16.0522 35.6669,-16.0923 35.498,-16.146 35.4444,-16.1145 35.3998,-16.1047 35.3692,-16.1081 35.2493,-16.2099 35.232,-16.2858 35.2127,-16.3818 35.2008,-16.4548 35.1516,-16.488 35.0965,-16.5309 35.114,-16.5805 35.1306,-16.6054 35.1486,-16.6149 35.1808,-16.6272 35.2135,-16.6583 35.2358,-16.6858 35.2597,-16.7903 35.2468,-16.8486 35.2405,-16.9471 35.2542,-16.9962 35.2655,-17.0419 35.2618,-17.0888 35.2478,-17.1149 35.2296,-17.1157 35.0851,-17.1112 35.0456,-17.1078 35.0126,-17.0046 35.0264,-16.9814 35.058,-16.9634 35.0877,-16.9445 35.101,-16.9185 35.103,-16.8171 35.0822,-16.7988 35.0339,-16.805 35.0016,-16.8031 34.9808,-16.794 34.9563,-16.7755 34.7994,-16.6027 34.7257,-16.5278 34.6784,-16.4893 34.6184,-16.435 34.5526,-16.3611 34.5305,-16.302 34.5073,-16.2827 34.4839,-16.2762 34.457,-16.2749 34.4264,-16.2741 34.4096,-16.2622 34.3962,-16.2467 34.3686,-16.1807 34.3665,-16.1135 34.3858,-16.0737 34.3876,-16.0507 34.3798,-16.032 34.2906,-15.9398 34.2741,-15.9267 34.2454,-15.9116 34.2217,-15.8936 34.2137,-15.8707 34.2105,-15.8199 34.226,-15.7752 34.2395,-15.7597 34.2598,-15.7418 34.2834,-15.7257 34.3059,-15.719 34.3351,-15.6965 34.3841,-15.6346 34.3973,-15.5939 34.4023,-15.5299 34.3952,-15.5044 34.3856,-15.4843 34.3936,-15.452 34.4877,-15.3252 34.5088,-15.3168 34.5253,-15.3044 34.5488,-15.2656 34.5524,-15.2358 34.5493,-15.2158 34.5458,-15.2066 34.5345,-15.1944 34.5228,-15.1006 34.5262,-15.044 34.548,-14.947 34.5214,-14.7498 34.5008,-14.5988 34.4918,-14.5763 34.4819,-14.555 34.4558,-14.534 34.4268,-14.5099 34.406,-14.4798 34.387,-14.4453 34.3709,-14.4133 34.3442,-14.3771 34.3236,-14.3696 34.0896,-14.4277 33.8529,-14.473 33.738,-14.5014 33.657,-14.5165 33.5939,-14.5233 33.4929,-14.4155 33.396,-14.305 33.3078,-14.1926 33.2637,-14.1267 33.2193,-14.0203 33.1839,-13.9968 33.1662,-13.9814 33.1516,-13.9576 33.1284,-13.911 33.0407,-13.9654 32.9519,-13.919 32.8614,-13.8042 32.7932,-13.6886 32.7434,-13.6232 32.7167,-13.6264 32.6726,-13.616 32.6446,-13.5974 32.658,-13.5507 32.716,-13.5487 32.7762,-13.526 32.7943,-13.5131 32.8591,-13.4151 32.8813,-13.3741 32.9402,-13.214 32.9491,-13.1255 32.9492,-13.0817 32.9555,-13.0221 32.9656,-12.9876 32.973,-12.9662 32.9833,-12.9479 32.9916,-12.9266 32.9975,-12.899 32.9894,-12.871 32.9352,-12.8387 32.925,-12.7434 33.0093,-12.5896 33.032,-12.571 33.1067,-12.5668 33.127,-12.575 33.2008,-12.5717 33.3268,-12.526 33.4423,-12.4253 33.439,-12.3985 33.4678,-12.372 33.4912,-12.3636 33.5044,-12.3503 33.5082,-12.3216 33.4425,-12.3006 33.3992,-12.3225 33.373,-12.3279 33.3525,-12.3261 33.3318,-12.3124 33.3179,-12.2959 33.2344,-12.1161 33.243,-12.0435 33.2756,-11.9865 33.2951,-11.8836 33.294,-11.7313 33.2879,-11.5998 33.272,-11.5695 33.2336,-11.5578 33.2176,-11.5073 33.2128,-11.3979 33.2564,-11.355 33.3027,-11.2875 33.3543,-11.2026 33.3642,-11.1812 33.3735,-11.1505 33.3478,-11.1004 33.3133,-11.0675 33.2138,-10.8798 33.2259,-10.8515 33.3077,-10.8015 33.3605,-10.7865 33.3811,-10.7908 33.4241,-10.7915 33.4743,-10.7634 33.505,-10.7314 33.5102,-10.7009 33.5679,-10.6355 33.6011,-10.609 33.6437,-10.5843 33.6589,-10.5646 33.6654,-10.5498 33.6508,-10.5366 33.6097,-10.4887 33.5309,-10.3806 33.5083,-10.3201 33.5092,-10.2846 33.5138,-10.2594 33.5238,-10.2331 33.5204,-10.212 33.4972,-10.1944 33.425,-10.1535 33.2898,-10.0525 33.2946,-9.9822 33.3232,-9.9216 33.2859,-9.8 33.266,-9.7877 33.2024,-9.7204 33.188,-9.6941 33.1926,-9.6665 33.1978,-9.6445 33.1926,-9.6231 33.1707,-9.5915 33.0988,-9.5873 33.0728,-9.6139 33.0361,-9.6205 32.9827,-9.6203 32.9638,-9.6107 32.911,-9.4666 32.9074,-9.4449 32.9034,-9.4052 32.904,-9.3945 32.904,-9.3945 613,-4.0,Bolivia -69.4155,-17.4853 -69.4165,-17.4071 -69.4172,-17.3592 -69.4495,-17.328 -69.5066,-17.2757 -69.5721,-17.2678 -69.5346,-17.1954 -69.5088,-17.1654 -69.4476,-17.1104 -69.3813,-17.0776 -69.3226,-17.0529 -69.3031,-17.0335 -69.2369,-16.907 -69.1086,-16.7592 -69.0242,-16.6927 -68.9676,-16.6649 -68.9292,-16.6381 -68.9311,-16.6105 -68.949,-16.5897 -68.9582,-16.5289 -68.9511,-16.4545 -68.9077,-16.401 -68.7508,-16.3355 -68.7417,-16.3079 -68.7558,-16.2799 -68.8852,-16.1909 -68.9619,-16.1894 -68.9879,-16.2092 -69.057,-16.2038 -69.0767,-16.1934 -69.1308,-16.139 -69.3382,-15.604 -69.2497,-15.4214 -69.1858,-15.3095 -69.1136,-15.2444 -69.0874,-15.2461 -69.0609,-15.237 -69.0547,-15.2103 -69.0885,-15.1704 -69.1154,-15.1415 -69.2127,-15.0624 -69.2991,-14.9479 -69.283,-14.7837 -69.2615,-14.763 -69.2286,-14.7503 -69.1674,-14.6708 -69.1672,-14.6376 -69.1635,-14.5998 -69.1541,-14.5726 -69.0346,-14.4679 -68.9037,-14.362 -68.9192,-14.3199 -68.9218,-14.2325 -68.906,-14.2154 -68.8786,-14.2077 -68.8327,-14.2007 -68.7777,-14.1842 -68.8188,-14.016 -68.8577,-13.9896 -68.881,-13.9713 -68.8952,-13.9506 -68.922,-13.8239 -68.9345,-13.7754 -68.9833,-13.6922 -68.9439,-13.6267 -68.9001,-13.5507 -68.8822,-13.4913 -68.8805,-13.4374 -68.8818,-13.2573 -68.8899,-13.151 -68.8903,-13.082 -68.8851,-13.0117 -68.8952,-12.9871 -68.8951,-12.851 -68.8442,-12.7881 -68.8017,-12.7432 -68.7378,-12.7185 -68.6907,-12.6299 -68.6661,-12.5704 -68.5968,-12.4871 -68.6001,-12.4817 -68.6216,-12.4401 -68.6592,-12.3639 -68.6725,-12.3362 -68.7584,-12.1632 -68.8034,-12.0731 -68.8482,-11.9849 -68.8803,-11.9312 -68.9102,-11.8826 -68.9241,-11.8618 -68.9626,-11.7993 -68.9928,-11.7507 -69.1039,-11.5705 -69.1381,-11.5151 -69.1723,-11.4595 -69.3558,-11.1611 -69.4237,-11.0501 -69.4909,-10.9381 -69.4637,-10.9398 -69.4103,-10.9385 -69.371,-10.9351 -69.3356,-10.9252 -69.1465,-10.9384 -68.9998,-10.9547 -68.7727,-11.0036 -68.6908,-11.1243 -68.6245,-11.1222 -68.5789,-11.1117 -68.5451,-11.1037 -68.5005,-11.0906 -68.4767,-11.0764 -68.4471,-11.0469 -68.327,-11.0053 -68.2687,-10.9945 -68.2376,-10.9842 -68.2054,-10.9673 -68.1551,-10.8994 -68.0497,-10.747 -68.0439,-10.7198 -68.0268,-10.6929 -68.0071,-10.6783 -67.986,-10.6644 -67.9428,-10.6481 -67.7913,-10.6449 -67.762,-10.647 -67.7429,-10.6532 -67.7126,-10.6719 -67.6678,-10.7008 -67.6286,-10.6825 -67.6005,-10.6078 -67.5354,-10.5182 -67.5082,-10.4924 -67.455,-10.4692 -67.4351,-10.461 -67.3755,-10.4297 -67.2527,-10.3471 -67.2492,-10.3119 -67.2262,-10.3049 -67.1515,-10.3002 -67.1093,-10.3119 -67.0033,-10.257 -66.9727,-10.232 -66.8974,-10.1607 -66.8767,-10.1397 -66.852,-10.1116 -66.8204,-10.08 -66.687,-9.9795 -66.6592,-9.9655 -66.6205,-9.9519 -66.5863,-9.9371 -66.5693,-9.9188 -66.5673,-9.907 -66.5572,-9.8946 -66.4725,-9.8768 -66.4063,-9.8704 -66.364,-9.8772 -66.3104,-9.8556 -66.1021,-9.786 -66.0049,-9.7646 -65.8994,-9.7685 -65.7716,-9.7668 -65.7199,-9.7639 -65.6734,-9.7596 -65.5337,-9.8238 -65.4973,-9.8238 -65.4438,-9.7629 -65.4401,-9.7302 -65.4202,-9.708 -65.3701,-9.6682 -65.3349,-9.6752 -65.3051,-9.6921 -65.2699,-9.7513 -65.2302,-9.831 -65.2508,-9.8922 -65.2646,-9.9359 -65.2588,-10.0323 -65.2415,-10.0637 -65.232,-10.0895 -65.217,-10.1837 -65.2174,-10.206 -65.2396,-10.2772 -65.2529,-10.2951 -65.2761,-10.3138 -65.3064,-10.3432 -65.317,-10.3606 -65.3241,-10.3816 -65.3194,-10.4018 -65.3303,-10.4304 -65.3702,-10.4617 -65.366,-10.6068 -65.3181,-10.7435 -65.257,-10.8397 -65.2439,-10.8686 -65.2306,-10.9729 -65.271,-11.0455 -65.3214,-11.1369 -65.3295,-11.1569 -65.3185,-11.2617 -65.2761,-11.3919 -65.2378,-11.481 -65.2173,-11.4921 -65.1692,-11.4928 -65.1506,-11.5057 -65.0972,-11.6014 -65.1158,-11.6431 -65.1285,-11.6724 -65.1365,-11.6983 -65.119,-11.7386 -65.0771,-11.7586 -65.046,-11.6856 -64.9898,-11.7414 -64.971,-11.7964 -64.9631,-11.8682 -64.9444,-11.9564 -64.9357,-11.9758 -64.9119,-11.9974 -64.8238,-12.0096 -64.7634,-12.0097 -64.7374,-12.0151 -64.7188,-12.028 -64.6909,-12.084 -64.6661,-12.1362 -64.5452,-12.197 -64.4442,-12.2284 -64.4246,-12.3521 -64.3489,-12.427 -64.3269,-12.4441 -64.3007,-12.4543 -64.2212,-12.4678 -64.1666,-12.4651 -64.1044,-12.4714 -63.9675,-12.5036 -63.9478,-12.5229 -63.8561,-12.5329 -63.8267,-12.5143 -63.7987,-12.4799 -63.7606,-12.46 -63.7256,-12.4458 -63.6002,-12.4563 -63.3998,-12.5561 -63.3929,-12.5815 -63.3441,-12.6397 -63.3232,-12.654 -63.2535,-12.6897 -63.1757,-12.6915 -63.1447,-12.6667 -63.0923,-12.6346 -63.0623,-12.6216 -62.9959,-12.6456 -62.9911,-12.6835 -62.9778,-12.7329 -62.9228,-12.8246 -62.9024,-12.8383 -62.8256,-12.8858 -62.7728,-12.9276 -62.6983,-12.9909 -62.6172,-12.954 -62.5747,-12.9924 -62.5743,-13.0176 -62.3482,-13.1178 -62.3138,-13.1308 -62.26,-13.1328 -62.1977,-13.1261 -62.1737,-13.1119 -62.1431,-13.1062 -62.0431,-13.1386 -62.039,-13.1684 -62.0148,-13.2564 -61.9318,-13.347 -61.9023,-13.3604 -61.8736,-13.3808 -61.8035,-13.4386 -61.7977,-13.4656 -61.7693,-13.5232 -61.7391,-13.5333 -61.6592,-13.5217 -61.5457,-13.4976 -61.5228,-13.4918 -61.5069,-13.5105 -61.4506,-13.5352 -61.4221,-13.538 -61.1913,-13.5077 -60.9692,-13.4778 -60.9341,-13.5254 -60.8877,-13.5675 -60.7215,-13.6639 -60.7009,-13.6679 -60.6746,-13.6668 -60.6055,-13.7229 -60.5135,-13.7529 -60.4071,-13.7879 -60.3147,-13.9715 -60.3306,-14.0139 -60.3558,-14.0512 -60.3948,-14.086 -60.4118,-14.1518 -60.3801,-14.2749 -60.3568,-14.3082 -60.2758,-14.4669 -60.2102,-14.6067 -60.2052,-14.69 -60.1931,-14.8967 -60.1885,-15.0197 -60.1872,-15.0765 -60.2207,-15.0774 -60.3129,-15.0753 -60.4993,-15.0805 -60.3677,-15.224 -60.1553,-15.4609 -60.1121,-15.9624 -60.0878,-16.2445 -60.0346,-16.2473 -59.9333,-16.2517 -59.4613,-16.2707 -59.4183,-16.2723 -58.902,-16.2924 -58.4715,-16.3082 -58.3688,-16.3114 -58.3449,-16.3014 -58.3304,-16.2873 -58.3188,-16.2646 -58.2573,-16.2608 -58.2557,-16.2881 -58.2544,-16.3777 -58.2763,-16.4873 -58.2917,-16.507 -58.3273,-16.5345 -58.3489,-16.5547 -58.3613,-16.5712 -58.3976,-16.6252 -58.4054,-16.6558 -58.4058,-16.7026 -58.3928,-16.8814 -58.3883,-16.9053 -58.3746,-16.9334 -58.3645,-16.9516 -58.354,-16.9906 -58.3367,-17.0928 -58.3361,-17.119 -58.3388,-17.1712 -58.3325,-17.207 -58.3197,-17.2402 -58.3004,-17.2593 -58.2807,-17.2675 -58.2513,-17.2734 -58.2241,-17.2803 -58.1796,-17.3067 -58.0501,-17.3931 -58.0386,-17.4193 -58.0215,-17.4357 -57.9463,-17.4779 -57.9132,-17.4807 -57.8315,-17.4423 -57.8108,-17.4572 -57.7179,-17.5336 -57.6756,-17.574 -57.6957,-17.5928 -57.7095,-17.6177 -57.6893,-17.667 -57.6593,-17.7007 -57.6475,-17.7077 -57.6482,-17.7185 -57.6511,-17.7547 -57.6487,-17.8249 -57.5118,-18.0755 -57.4514,-18.1835 -57.4824,-18.2263 -57.4933,-18.2542 -57.5569,-18.4473 -57.6998,-18.8849 -57.6529,-18.8924 -57.6466,-18.9132 -57.6343,-19.022 -57.7065,-19.0258 -57.7167,-19.0465 -57.751,-19.1154 -57.7846,-19.1848 -57.8901,-19.3992 -58.0165,-19.655 -58.0502,-19.7191 -58.0324,-19.738 -57.7812,-19.9529 -57.8305,-20.0065 -58.039,-20.1265 -58.0879,-20.1452 -58.0665,-20.0937 -58.0622,-20.0596 -58.0605,-19.9636 -58.0802,-19.8086 -58.1611,-19.7603 -58.197,-19.7417 -58.4492,-19.6163 -58.7211,-19.4796 -59.0238,-19.3271 -59.0845,-19.3235 -59.3559,-19.308 -59.5011,-19.2997 -59.9088,-19.2749 -59.9454,-19.2804 -59.9842,-19.2929 -60.3508,-19.389 -60.4426,-19.4127 -60.5396,-19.4372 -60.7223,-19.4681 -61.2824,-19.5609 -61.5939,-19.6111 -61.6672,-19.6227 -61.6992,-19.7023 -61.7723,-19.8885 -61.8376,-20.0573 -62.0261,-20.3145 -62.1231,-20.4481 -62.1936,-20.5391 -62.1916,-20.5986 -62.1894,-20.719 -62.1879,-20.7875 -62.185,-20.977 -62.1827,-21.0332 -62.3011,-21.4023 -62.3936,-21.6895 -62.3981,-21.7037 -62.4093,-21.7403 -62.4475,-21.8589 -62.5238,-22.0954 -62.5567,-22.1967 -62.5663,-22.214 -62.5797,-22.211 -62.6876,-22.1298 -62.715,-22.0905 -62.7155,-22.0687 -62.7153,-22.034 -62.7233,-21.9921 -62.7397,-21.9724 -62.8084,-21.9731 -63.0523,-21.9759 -63.515,-21.9786 -63.6075,-21.9784 -63.6544,-21.9778 -63.8621,-21.9761 -63.914,-22.0694 -63.9794,-22.2248 -64.0475,-22.3848 -64.0934,-22.4451 -64.12,-22.4697 -64.1435,-22.4874 -64.1648,-22.5244 -64.1737,-22.5425 -64.2004,-22.6201 -64.2062,-22.7018 -64.204,-22.7288 -64.2214,-22.8069 -64.2367,-22.8348 -64.2583,-22.8438 -64.2683,-22.8171 -64.2681,-22.7886 -64.2726,-22.7414 -64.2834,-22.7114 -64.3367,-22.6579 -64.3733,-22.6185 -64.3756,-22.5899 -64.3641,-22.5546 -64.382,-22.4892 -64.4464,-22.3838 -64.4604,-22.2616 -64.4673,-22.2354 -64.5129,-22.188 -64.6039,-22.1505 -64.6357,-22.1572 -64.8893,-22.0827 -64.9081,-22.066 -65.1096,-22.0697 -65.5179,-22.0749 -65.5763,-22.0839 -65.6687,-22.0852 -65.7318,-22.0464 -65.7861,-21.9809 -65.8447,-21.9087 -65.9961,-21.8072 -66.1131,-21.7636 -66.1414,-21.7558 -66.1547,-21.7722 -66.1814,-21.8775 -66.2002,-21.9534 -66.2097,-22.0106 -66.225,-22.0521 -66.2637,-22.0916 -66.3203,-22.109 -66.4136,-22.1359 -66.4776,-22.1535 -66.534,-22.1668 -66.6064,-22.1711 -66.6543,-22.2024 -66.6888,-22.3496 -66.6921,-22.4017 -66.7674,-22.4278 -66.8435,-22.4525 -66.9394,-22.4986 -66.9352,-22.5484 -66.9298,-22.6087 -67.0414,-22.6939 -67.1002,-22.7958 -67.2513,-22.8268 -67.4161,-22.8597 -67.4952,-22.8751 -67.709,-22.8522 -67.7921,-22.8022 -67.7998,-22.6872 -67.7657,-22.5294 -67.8067,-22.4012 -67.8488,-22.2751 -67.8388,-22.2486 -67.8387,-22.214 -67.8608,-22.0797 -67.8889,-22.0352 -67.9132,-22.0219 -68.0014,-21.9367 -68.0035,-21.8885 -68.0022,-21.8555 -68.0036,-21.8182 -68.0067,-21.7952 -68.0214,-21.7208 -68.0383,-21.6734 -68.0551,-21.6423 -68.0861,-21.6034 -68.1022,-21.5852 -68.1049,-21.2729 -68.1462,-21.2093 -68.3405,-20.9153 -68.3699,-20.9159 -68.3952,-20.9181 -68.4221,-20.9138 -68.4481,-20.9028 -68.4687,-20.8813 -68.4762,-20.8679 -68.4818,-20.8467 -68.4814,-20.7106 -68.4452,-20.6643 -68.4254,-20.6484 -68.3886,-20.6272 -68.3833,-20.6073 -68.4088,-20.5815 -68.4658,-20.5443 -68.4871,-20.5356 -68.5159,-20.5269 -68.5458,-20.5153 -68.5781,-20.5 -68.6073,-20.482 -68.6409,-20.4477 -68.6552,-20.4271 -68.6685,-20.4008 -68.671,-20.3505 -68.6511,-20.3294 -68.6201,-20.3151 -68.6375,-20.2151 -68.6829,-20.1139 -68.7009,-20.0919 -68.6935,-20.0664 -68.5669,-20.0339 -68.5272,-20.0289 -68.4942,-20.031 -68.4398,-19.8937 -68.4833,-19.8116 -68.5424,-19.7633 -68.6062,-19.7204 -68.6035,-19.6813 -68.5185,-19.5855 -68.4889,-19.5445 -68.4678,-19.5177 -68.3604,-19.4116 -68.4083,-19.347 -68.4677,-19.2974 -68.4992,-19.282 -68.5247,-19.2755 -68.5588,-19.2604 -68.5748,-19.2454 -68.6572,-19.156 -68.6987,-19.1202 -68.8161,-19.0432 -68.8819,-18.9315 -68.849,-18.8615 -68.8675,-18.8244 -68.9167,-18.7217 -68.9405,-18.6377 -68.9454,-18.5904 -68.9485,-18.5389 -68.9418,-18.4867 -68.9394,-18.4624 -68.9461,-18.4385 -68.9559,-18.4201 -68.9764,-18.3935 -68.9907,-18.3713 -69.0018,-18.265 -69.007,-18.2074 -69.0305,-18.1804 -69.0515,-18.1591 -69.0649,-18.1303 -69.0558,-18.1047 -69.0347,-18.0884 -68.9987,-18.0663 -68.9892,-18.0479 -68.991,-18.0176 -69.0498,-18.0085 -69.2074,-17.9593 -69.2222,-17.9355 -69.2313,-17.9065 -69.2372,-17.8719 -69.2345,-17.8049 -69.2435,-17.7773 -69.2715,-17.7255 -69.2921,-17.7067 -69.4031,-17.613 -69.4155,-17.4853 -69.4155,-17.4853 48,10.0,Papua New Guinea 151.0637,-10.1895 151.0285,-10.1583 150.9808,-10.1348 150.9213,-10.1155 150.9107,-10.1129 150.8608,-10.1025 150.833,-10.0994 150.8182,-10.1014 150.8051,-10.1005 150.7936,-10.0987 150.7846,-10.094 150.7506,-9.9928 150.7127,-9.9153 150.6616,-9.8276 150.5954,-9.7927 150.5851,-9.7372 150.5834,-9.7199 150.5972,-9.6969 150.6224,-9.7084 150.6374,-9.7201 150.656,-9.7357 150.7348,-9.8079 150.77,-9.8412 150.7974,-9.8824 150.8653,-9.974 150.8744,-9.9854 150.8947,-10.0057 150.9077,-10.0132 150.9528,-10.0351 150.9714,-10.03 150.983,-10.0188 150.9834,-10.0081 150.9736,-9.9921 150.9712,-9.9777 151.0228,-9.9308 151.0353,-9.9255 151.0987,-9.9086 151.1171,-9.9139 151.1331,-9.9394 151.1336,-9.951 151.1308,-9.9615 151.1055,-10.0501 151.0811,-10.0936 151.0687,-10.1215 151.0561,-10.1593 151.0574,-10.1771 151.0637,-10.1895 151.0637,-10.1895 14,10.0,Australia 142.1241,-10.254 142.0551,-10.2252 142.0457,-10.2141 142.034,-10.1925 142.0575,-10.1455 142.0729,-10.134 142.1286,-10.1243 142.1611,-10.14 142.175,-10.1605 142.1841,-10.1796 142.1829,-10.1913 142.1333,-10.2495 142.1241,-10.254 142.1241,-10.254 13,8.0,Indonesia 123.2813,-10.1419 123.2936,-10.1347 123.3146,-10.1281 123.3718,-10.1687 123.2721,-10.3278 123.1864,-10.3292 123.1774,-10.3127 123.1745,-10.3019 123.1747,-10.2642 123.1838,-10.2481 123.2599,-10.1546 123.2813,-10.1419 123.2813,-10.1419 24,8.0,Indonesia 121.5928,-10.5325 121.6353,-10.5079 121.7073,-10.4509 121.7226,-10.4321 121.7436,-10.4192 121.7613,-10.4096 121.7733,-10.4077 121.7862,-10.4085 121.8567,-10.4256 121.8659,-10.4337 121.8698,-10.4433 121.8684,-10.4557 121.8607,-10.5039 121.8452,-10.5256 121.7376,-10.5955 121.7264,-10.5981 121.7126,-10.5983 121.6122,-10.5947 121.6033,-10.5903 121.5779,-10.5747 121.5609,-10.561 121.56,-10.5505 121.5928,-10.5325 121.5928,-10.5325 33,8.0,Indonesia 122.7213,-10.7475 122.7982,-10.7253 122.9401,-10.6689 122.9501,-10.6586 123.0473,-10.5736 123.125,-10.51 123.2414,-10.4258 123.2559,-10.4263 123.2625,-10.4379 123.2686,-10.5845 123.2589,-10.672 123.1843,-10.6876 123.1344,-10.7193 123.0982,-10.775 123.083,-10.797 123.0629,-10.8108 123.0531,-10.8146 123.0412,-10.8161 123.0296,-10.8142 123.0152,-10.808 122.9998,-10.807 122.8635,-10.8467 122.8277,-10.8652 122.8196,-10.8797 122.7138,-10.9174 122.6955,-10.9111 122.6874,-10.8988 122.6744,-10.7945 122.6744,-10.7754 122.7051,-10.7536 122.7142,-10.7489 122.7213,-10.7475 122.7213,-10.7475 856,2.0,Mozambique 34.9283,-11.559 34.9725,-11.56 35.1998,-11.5628 35.3979,-11.5807 35.5342,-11.5937 35.6086,-11.5738 35.6331,-11.5452 35.6941,-11.4701 35.789,-11.4037 35.8984,-11.4197 36.1284,-11.5726 36.1378,-11.6305 36.1345,-11.6555 36.1474,-11.6922 36.227,-11.6962 36.2536,-11.6942 36.3024,-11.683 36.3354,-11.6706 36.477,-11.7071 36.5168,-11.7269 36.6373,-11.7015 36.6845,-11.6686 36.7055,-11.6508 36.7254,-11.6303 36.7453,-11.6042 36.7862,-11.559 36.9568,-11.5784 37.0779,-11.6568 37.1496,-11.6766 37.2267,-11.6895 37.358,-11.7097 37.4317,-11.7054 37.5556,-11.6266 37.6517,-11.5895 37.7501,-11.548 37.7752,-11.5233 37.7808,-11.4969 37.7683,-11.4709 37.7775,-11.4382 37.8236,-11.3198 37.8585,-11.2915 37.8927,-11.2751 37.9205,-11.2661 37.9907,-11.248 38.0546,-11.2434 38.1317,-11.2721 38.2917,-11.3352 38.3151,-11.3515 38.3355,-11.3643 38.3745,-11.3842 38.4493,-11.4023 38.4915,-11.3595 38.5286,-11.3297 38.5927,-11.2818 38.6127,-11.2682 38.63,-11.2582 38.8629,-11.1574 38.8886,-11.1529 39.093,-11.1295 39.1395,-11.1466 39.1628,-11.1605 39.1898,-11.1613 39.2192,-11.1567 39.2494,-11.1398 39.272,-11.1228 39.348,-11.0653 39.4603,-10.985 39.4796,-10.9776 39.6204,-10.9336 39.6478,-10.9316 39.7234,-10.908 39.7517,-10.8896 39.7682,-10.8733 39.7955,-10.8536 39.8247,-10.8364 39.8545,-10.8193 39.8984,-10.8025 39.919,-10.7965 39.9758,-10.7667 40.1147,-10.6654 40.302,-10.5522 40.3371,-10.5284 40.3834,-10.4873 40.3924,-10.4664 40.4034,-10.4592 40.4721,-10.4701 40.5251,-10.5852 40.5399,-10.642 40.5438,-10.6745 40.4586,-10.7789 40.5068,-10.7874 40.5576,-10.8114 40.5726,-10.8294 40.5636,-10.8498 40.5308,-10.8666 40.4888,-10.8854 40.4647,-10.9172 40.4571,-10.9455 40.4616,-11.019 40.4869,-11.0039 40.5192,-11.0118 40.517,-11.0538 40.4541,-11.164 40.4231,-11.206 40.3726,-11.2685 40.3432,-11.3048 40.4321,-11.3912 40.4066,-11.5089 40.3841,-11.5614 40.3795,-11.6365 40.4013,-11.7236 40.4265,-11.7978 40.4605,-11.9435 40.4696,-12.3025 40.4649,-12.4199 40.4288,-12.4907 40.4535,-12.5067 40.5134,-12.5392 40.5653,-12.6945 40.6002,-12.7408 40.5985,-12.763 40.4679,-12.8703 40.4312,-12.8694 40.404,-12.8886 40.3701,-12.9206 40.3673,-12.9544 40.4155,-13.0018 40.4481,-13.0105 40.4652,-12.9921 40.4633,-12.9712 40.4725,-12.9403 40.5471,-12.9558 40.5261,-13.1876 40.4934,-13.297 40.5137,-13.3143 40.5438,-13.3567 40.4959,-13.4607 40.4798,-13.4998 40.5025,-13.5154 40.5324,-13.552 40.5305,-13.5717 40.4931,-13.6251 40.5013,-13.6723 40.5562,-13.8809 40.5784,-13.9085 40.5892,-13.9303 40.6028,-14.0056 40.596,-14.0548 40.5692,-14.1158 40.5382,-14.1321 40.5079,-14.1406 40.4857,-14.1514 40.5125,-14.1918 40.5515,-14.2297 40.5758,-14.2105 40.602,-14.1816 40.6217,-14.1741 40.6517,-14.1672 40.6756,-14.1859 40.6974,-14.2587 40.6814,-14.3266 40.635,-14.3494 40.5963,-14.3849 40.5889,-14.4682 40.6232,-14.4712 40.6424,-14.4194 40.6608,-14.4114 40.7277,-14.3879 40.759,-14.3898 40.7734,-14.4072 40.7836,-14.4432 40.7982,-14.6811 40.7974,-14.7173 40.7844,-14.7643 40.772,-14.7945 40.6806,-14.8721 40.7025,-14.9164 40.7222,-14.9614 40.6557,-15.0649 40.5593,-15.098 40.5254,-15.1057 40.49,-15.107 40.4666,-15.1665 40.4905,-15.1771 40.5336,-15.1788 40.5576,-15.1461 40.5835,-15.1407 40.6202,-15.1743 40.6359,-15.2377 40.6236,-15.2718 40.5394,-15.4622 40.5301,-15.4814 40.5111,-15.5044 40.4953,-15.5165 40.4317,-15.5572 40.3897,-15.5844 40.3622,-15.6281 40.3331,-15.6771 40.3124,-15.7054 40.2904,-15.7267 40.1966,-15.8159 40.0775,-15.922 40.0855,-15.9586 40.0861,-15.9796 40.0496,-16.0649 39.9803,-16.159 39.9287,-16.217 39.8852,-16.2248 39.8577,-16.2225 39.8362,-16.221 39.7605,-16.2635 39.735,-16.287 39.7554,-16.3539 39.77,-16.3943 39.6509,-16.5184 39.6268,-16.5367 39.4591,-16.6344 39.3915,-16.6663 39.2635,-16.7331 39.2368,-16.7492 39.1456,-16.8122 39.0804,-16.8515 39.081,-16.8624 39.078,-16.9185 39.0492,-16.9653 38.85,-17.0202 38.7776,-17.0375 38.6394,-17.0514 38.5581,-17.0798 38.3456,-17.157 38.2845,-17.1795 38.2036,-17.2099 38.1689,-17.2312 38.1523,-17.2502 38.0508,-17.2972 37.9958,-17.3097 37.955,-17.3177 37.915,-17.3252 37.887,-17.3337 37.8661,-17.3408 37.8265,-17.3568 37.8073,-17.366 37.7358,-17.4066 37.5637,-17.506 37.372,-17.613 37.1758,-17.7302 37.0439,-17.8518 37.0228,-17.8744 37.0107,-17.8911 36.9871,-17.9319 36.9595,-17.9692 36.9393,-17.9811 36.8717,-17.9302 36.8635,-17.8891 36.8554,-17.8699 36.8255,-17.8553 36.8019,-17.8552 36.7769,-17.8744 36.8473,-17.9487 36.9077,-18.0089 36.926,-18.039 36.8991,-18.088 36.8489,-18.1522 36.7292,-18.2809 36.5683,-18.433 36.4581,-18.5341 36.4355,-18.556 36.3747,-18.6529 36.3546,-18.7121 36.2766,-18.7731 36.209,-18.8701 36.1142,-18.8826 36.0871,-18.8787 36.0789,-18.8198 36.0872,-18.7874 36.0795,-18.7812 36.0566,-18.7916 36.0155,-18.8447 35.9393,-18.9054 35.8355,-18.9535 35.7687,-18.9998 35.7054,-19.0444 35.6274,-19.1002 35.6128,-19.1308 35.5935,-19.1656 35.5332,-19.2497 35.4041,-19.3969 35.3202,-19.4746 35.2488,-19.5386 35.0698,-19.6946 34.8485,-19.8379 34.8053,-19.8333 34.7865,-19.7892 34.7704,-19.7562 34.5849,-19.5966 34.5911,-19.6301 34.5996,-19.6499 34.6417,-19.7168 34.6809,-19.7335 34.7004,-19.7467 34.7209,-19.7748 34.7341,-19.8035 34.7228,-19.8765 34.7177,-19.9137 34.7128,-19.9479 34.7086,-20.014 34.7104,-20.0469 34.7173,-20.1578 34.6529,-20.3581 34.625,-20.3681 34.6973,-20.5346 34.8287,-20.6335 34.9104,-20.672 34.9411,-20.6999 34.9477,-20.704 34.97,-20.7554 34.9663,-20.7835 35.0317,-20.8894 35.0691,-20.9095 35.0604,-20.9335 35.0753,-20.9507 35.0397,-21.0636 35.0077,-21.0741 35.0365,-21.3002 35.0945,-21.4073 35.1407,-21.4922 35.1687,-21.5295 35.1851,-21.545 35.2036,-21.566 35.2264,-21.6242 35.2288,-21.6546 35.2203,-21.6872 35.2335,-21.7947 35.2577,-21.8589 35.2865,-21.9686 35.294,-22.0494 35.2946,-22.079 35.2836,-22.2088 35.2666,-22.2853 35.2591,-22.3052 35.2569,-22.3324 35.2631,-22.3824 35.3281,-22.4406 35.3535,-22.4347 35.3657,-22.389 35.3478,-22.3218 35.3457,-22.2737 35.35,-22.2447 35.3595,-22.1965 35.3752,-22.146 35.4024,-22.0952 35.4368,-22.0707 35.5016,-22.2074 35.4992,-22.3654 35.4969,-22.3887 35.4897,-22.4274 35.4801,-22.4519 35.4688,-22.4804 35.4483,-22.545 35.4422,-22.6038 35.4605,-22.8085 35.4785,-22.8895 35.4912,-22.9245 35.5532,-22.894 35.5194,-22.9892 35.5045,-23.016 35.4885,-23.0355 35.475,-23.0569 35.436,-23.1522 35.4349,-23.1915 35.4425,-23.2231 35.4429,-23.2556 35.4365,-23.2858 35.4244,-23.3148 35.4101,-23.3545 35.3771,-23.4631 35.3685,-23.4949 35.3644,-23.5856 35.3629,-23.6293 35.3036,-23.6684 35.2944,-23.879 35.2955,-23.9426 35.3162,-23.9265 35.3954,-23.8518 35.4312,-23.7988 35.4456,-23.766 35.4786,-23.7686 35.4953,-23.8461 35.4729,-23.8942 35.4572,-23.9398 35.4389,-24.021 35.4408,-24.0499 35.4511,-24.0751 35.4117,-24.142 35.3606,-24.2172 35.3457,-24.2388 35.2651,-24.3384 35.241,-24.3643 35.2193,-24.3813 35.1484,-24.4626 35.1412,-24.4945 35.0996,-24.5424 35.0744,-24.561 35.053,-24.5764 35.0349,-24.588 35.0067,-24.6049 34.9683,-24.6265 34.9276,-24.6467 34.769,-24.7154 34.6501,-24.7581 34.6101,-24.772 34.5702,-24.786 34.4393,-24.8281 34.3996,-24.8404 34.3309,-24.8638 34.2857,-24.8862 34.2605,-24.8988 34.2025,-24.9181 34.065,-24.9588 33.9516,-24.9918 33.6798,-25.0807 33.3234,-25.2365 33.1955,-25.2989 33.1799,-25.312 33.09,-25.3527 33.0672,-25.3657 33.0065,-25.4017 32.8616,-25.4944 32.8401,-25.5094 32.7695,-25.5832 32.7284,-25.6545 32.7208,-25.6745 32.697,-25.7466 32.6917,-25.7772 32.6627,-25.7969 32.6559,-25.8171 32.6521,-25.845 32.6337,-25.8703 32.6062,-25.8972 32.5649,-25.933 32.5458,-25.943 32.5623,-26.0021 32.6814,-26.15 32.7647,-26.2457 32.8013,-26.2615 32.8312,-26.2427 32.827,-26.2094 32.8222,-26.1797 32.8515,-26.0971 32.8602,-26.0783 32.9035,-26.0585 32.9011,-26.1232 32.895,-26.1695 32.887,-26.2498 32.8857,-26.3241 32.8604,-26.685 32.8399,-26.7891 32.8483,-26.8169 32.7258,-26.8214 32.6472,-26.8234 32.3534,-26.8294 32.3067,-26.8302 32.1336,-26.8216 32.1128,-26.8166 32.0923,-26.8092 32.0914,-26.7664 32.0849,-26.469 32.048,-26.3954 32.0314,-26.3636 32.02,-26.2319 32.0611,-26.1259 32.0337,-26.0077 31.958,-25.9616 31.9277,-25.9284 31.8789,-25.7851 31.9416,-25.6426 31.9655,-25.5869 31.9644,-25.5083 31.9476,-25.4823 31.9505,-25.3924 31.9695,-25.3177 31.9761,-25.0821 31.9782,-25.0069 31.9709,-24.8969 31.9624,-24.7729 31.9553,-24.6766 31.9761,-24.4317 31.9673,-24.4046 31.924,-24.2794 31.9017,-24.2402 31.8458,-24.1438 31.8442,-24.1164 31.8375,-23.9372 31.8375,-23.9238 31.8051,-23.8803 31.7301,-23.8293 31.6807,-23.7219 31.6493,-23.6535 31.6466,-23.6124 31.6443,-23.5871 31.6119,-23.5473 31.5822,-23.5143 31.5115,-23.4502 31.4985,-23.3907 31.5066,-23.2799 31.5164,-23.2019 31.5225,-23.1606 31.4772,-23.0249 31.2644,-22.3994 31.2588,-22.3893 31.2675,-22.3844 31.3163,-22.3542 31.3616,-22.3221 31.6496,-22.0295 31.8873,-21.7866 32.3646,-21.2943 32.3764,-21.2833 32.4256,-21.301 32.4493,-21.3202 32.4364,-21.2976 32.3725,-21.1937 32.3211,-21.1117 32.3366,-21.0822 32.4412,-20.9684 32.4819,-20.8907 32.4706,-20.8358 32.4612,-20.7958 32.4446,-20.6468 32.4627,-20.5754 32.5114,-20.5319 32.6262,-20.5339 32.7629,-20.3396 32.834,-20.2512 32.8446,-20.208 32.8527,-20.1437 32.8643,-20.1015 32.943,-19.9997 32.9789,-19.9209 33.0192,-19.758 32.9449,-19.6651 32.8108,-19.5958 32.8121,-19.4781 32.8006,-19.4535 32.7726,-19.452 32.7458,-19.445 32.7531,-19.3407 32.8005,-19.2808 32.8153,-19.2523 32.8451,-19.0836 32.7943,-19.0017 32.7432,-19.0007 32.7001,-19.0042 32.6751,-18.9966 32.6597,-18.9265 32.6646,-18.8117 32.7506,-18.7675 32.7925,-18.757 32.8295,-18.7662 32.8531,-18.77 32.8804,-18.7556 32.9097,-18.6693 32.866,-18.5923 32.8496,-18.5502 32.8487,-18.5098 32.8753,-18.4931 32.9057,-18.486 32.9563,-18.4608 32.9807,-18.4389 33.0317,-18.3291 33.0102,-18.3082 32.9799,-18.281 32.9344,-18.2295 32.9596,-18.1671 32.9483,-18.1019 32.9374,-18.0816 32.9249,-18.0579 32.9151,-18.0211 32.9064,-17.9548 32.9124,-17.8607 32.9353,-17.7976 32.9752,-17.7254 33.0027,-17.6094 33.0009,-17.58 32.9888,-17.5583 32.9387,-17.5377 32.9167,-17.4857 33.0022,-17.3368 32.9977,-17.3214 32.9776,-17.305 32.9541,-17.2885 32.9481,-17.2454 32.9488,-17.2328 32.9474,-17.2084 32.9403,-17.1636 32.9287,-17.1283 32.8952,-17.0661 32.8778,-17.0354 32.8254,-16.8993 32.8527,-16.8776 32.8734,-16.8555 32.8873,-16.84 32.8989,-16.8233 32.9088,-16.8037 32.9197,-16.7781 32.9273,-16.7561 32.9341,-16.7333 32.9415,-16.6901 32.8909,-16.6838 32.76,-16.6995 32.7281,-16.6991 32.689,-16.6748 32.6681,-16.5931 32.541,-16.527 32.3683,-16.4597 32.3392,-16.4512 32.315,-16.4451 32.2544,-16.4298 32.2162,-16.4215 32.1919,-16.4203 32.1175,-16.4227 32.0466,-16.4294 32.0172,-16.4298 31.9449,-16.4167 31.873,-16.3943 31.8649,-16.3471 31.7441,-16.2425 31.6774,-16.1923 31.6243,-16.1804 31.5393,-16.174 31.5186,-16.1766 31.4733,-16.1681 31.3889,-16.1441 31.3633,-16.1282 31.3063,-16.0753 31.3045,-16.0544 31.2744,-16.0143 31.2393,-16.0005 31.1117,-15.9765 31.0341,-15.9973 30.7842,-15.9863 30.3861,-15.9873 30.381,-15.6244 30.3796,-15.614 30.3607,-15.576 30.3521,-15.4612 30.3251,-15.32 30.2967,-15.2951 30.2673,-15.2739 30.2358,-15.2406 30.2168,-15.1988 30.1922,-15.1224 30.1836,-15.0792 30.1775,-14.9649 30.3076,-14.9507 30.4687,-14.8678 30.4918,-14.859 30.5663,-14.8328 30.772,-14.7614 30.876,-14.7337 31.0095,-14.6998 31.0579,-14.6948 31.0798,-14.6917 31.2682,-14.6488 31.4265,-14.6087 31.448,-14.6032 31.4671,-14.5949 31.4981,-14.5721 31.664,-14.4855 31.694,-14.4787 31.7453,-14.4705 31.7727,-14.4641 31.7986,-14.4563 31.8185,-14.4493 31.838,-14.4414 31.9136,-14.4071 32.0574,-14.3609 32.1928,-14.3251 32.3059,-14.3008 32.3351,-14.2921 32.9458,-14.0808 33.1839,-13.9968 33.2193,-14.0203 33.2637,-14.1267 33.3078,-14.1926 33.396,-14.305 33.4929,-14.4155 33.5939,-14.5233 33.657,-14.5165 33.738,-14.5014 33.8529,-14.473 34.0896,-14.4277 34.3236,-14.3696 34.3442,-14.3771 34.3709,-14.4133 34.387,-14.4453 34.406,-14.4798 34.4268,-14.5099 34.4558,-14.534 34.4819,-14.555 34.4918,-14.5763 34.5008,-14.5988 34.5214,-14.7498 34.548,-14.947 34.5262,-15.044 34.5228,-15.1006 34.5345,-15.1944 34.5458,-15.2066 34.5493,-15.2158 34.5524,-15.2358 34.5488,-15.2656 34.5253,-15.3044 34.5088,-15.3168 34.4877,-15.3252 34.3936,-15.452 34.3856,-15.4843 34.3952,-15.5044 34.4023,-15.5299 34.3973,-15.5939 34.3841,-15.6346 34.3351,-15.6965 34.3059,-15.719 34.2834,-15.7257 34.2598,-15.7418 34.2395,-15.7597 34.226,-15.7752 34.2105,-15.8199 34.2137,-15.8707 34.2217,-15.8936 34.2454,-15.9116 34.2741,-15.9267 34.2906,-15.9398 34.3798,-16.032 34.3876,-16.0507 34.3858,-16.0737 34.3665,-16.1135 34.3686,-16.1807 34.3962,-16.2467 34.4096,-16.2622 34.4264,-16.2741 34.457,-16.2749 34.4839,-16.2762 34.5073,-16.2827 34.5305,-16.302 34.5526,-16.3611 34.6184,-16.435 34.6784,-16.4893 34.7257,-16.5278 34.7994,-16.6027 34.9563,-16.7755 34.9808,-16.794 35.0016,-16.8031 35.0339,-16.805 35.0822,-16.7988 35.103,-16.8171 35.101,-16.9185 35.0877,-16.9445 35.058,-16.9634 35.0264,-16.9814 35.0126,-17.0046 35.0456,-17.1078 35.0851,-17.1112 35.2296,-17.1157 35.2478,-17.1149 35.2618,-17.0888 35.2655,-17.0419 35.2542,-16.9962 35.2405,-16.9471 35.2468,-16.8486 35.2597,-16.7903 35.2358,-16.6858 35.2135,-16.6583 35.1808,-16.6272 35.1486,-16.6149 35.1306,-16.6054 35.114,-16.5805 35.0965,-16.5309 35.1516,-16.488 35.2008,-16.4548 35.2127,-16.3818 35.232,-16.2858 35.2493,-16.2099 35.3692,-16.1081 35.3998,-16.1047 35.4444,-16.1145 35.498,-16.146 35.6669,-16.0923 35.7316,-16.0522 35.751,-16.0369 35.7733,-15.9953 35.7889,-15.8372 35.8198,-15.4589 35.8205,-15.4407 35.822,-15.436 35.8248,-15.4019 35.8114,-15.3552 35.7977,-15.3066 35.7599,-15.1696 35.8255,-15.0026 35.8787,-14.8771 35.8387,-14.8683 35.8363,-14.7572 35.8354,-14.6833 35.8342,-14.6444 35.7794,-14.5864 35.5033,-14.2533 35.489,-14.235 35.4639,-14.1754 35.4498,-14.1399 35.165,-13.8287 35.1309,-13.7805 35.0551,-13.6705 34.8596,-13.5071 34.8263,-13.491 34.7912,-13.4817 34.6186,-13.4809 34.5422,-13.3583 34.5263,-13.3244 34.5237,-13.2942 34.524,-13.274 34.5171,-13.0315 34.5102,-12.9984 34.5029,-12.9459 34.5002,-12.912 34.4952,-12.8269 34.4938,-12.7682 34.4913,-12.7446 34.4851,-12.7004 34.4691,-12.6396 34.4604,-12.6182 34.4379,-12.5812 34.427,-12.5548 34.4082,-12.497 34.386,-12.3963 34.3693,-12.3056 34.335,-12.2326 34.3312,-12.2135 34.3316,-12.1721 34.337,-12.1419 34.3463,-12.116 34.3726,-12.067 34.4329,-11.9676 34.4769,-11.9099 34.5146,-11.8583 34.5699,-11.7636 34.5783,-11.7433 34.5913,-11.701 34.5952,-11.6786 34.5959,-11.654 34.5936,-11.6125 34.588,-11.591 34.5866,-11.5662 34.6649,-11.5625 34.8522,-11.5606 34.919,-11.5595 34.9283,-11.559 34.9283,-11.559 5,2.0,Mozambique 34.58,-12.0235 34.5898,-12.017 34.5783,-11.9946 34.58,-12.0235 34.58,-12.0235 7,2.0,Mozambique 34.6876,-12.0826 34.7056,-12.0712 34.7127,-12.0255 34.6824,-12.0245 34.6703,-12.0715 34.6876,-12.0826 34.6876,-12.0826 12,10.0,Papua New Guinea 150.7151,-10.6408 150.6909,-10.6374 150.6289,-10.6272 150.62,-10.6227 150.6033,-10.5971 150.6276,-10.5298 150.7065,-10.5268 150.7308,-10.5386 150.739,-10.5504 150.7282,-10.6365 150.7151,-10.6408 150.7151,-10.6408 15,10.0,Australia 142.0271,-10.7582 141.9946,-10.7427 141.9646,-10.7084 141.9599,-10.6932 141.9597,-10.6454 141.9673,-10.6331 142.0197,-10.6067 142.061,-10.5981 142.1098,-10.6716 142.103,-10.7089 142.0551,-10.7208 142.0426,-10.734 142.0347,-10.7453 142.0271,-10.7582 142.0271,-10.7582 20,10.0,Papua New Guinea 152.5768,-10.7045 152.5347,-10.6943 152.5192,-10.6896 152.4066,-10.6448 152.3976,-10.64 152.375,-10.6206 152.3914,-10.6108 152.4067,-10.6133 152.4475,-10.6265 152.5241,-10.6507 152.592,-10.6251 152.62,-10.6082 152.6474,-10.617 152.7043,-10.6479 152.7057,-10.6584 152.6993,-10.6677 152.6772,-10.6831 152.6472,-10.6843 152.5768,-10.7045 152.5768,-10.7045 15,9.5,Australia 136.3524,-11.4434 136.3481,-11.4376 136.3565,-11.397 136.4925,-11.2036 136.5781,-11.0326 136.5863,-11.0233 136.6138,-11.0062 136.6232,-11.0086 136.6274,-11.0223 136.5777,-11.1838 136.5744,-11.1943 136.4114,-11.4193 136.3895,-11.4393 136.3524,-11.4434 136.3524,-11.4434 15,9.5,Australia 132.4497,-11.3319 132.4452,-11.3297 132.4321,-11.3154 132.4202,-11.3009 132.3856,-11.2052 132.3666,-11.1304 132.3562,-11.039 132.4331,-11.0098 132.4493,-11.0523 132.4676,-11.1019 132.4804,-11.1649 132.4798,-11.2123 132.4784,-11.2633 132.4497,-11.3319 132.4497,-11.3319 47,9.5,Australia 130.8131,-11.9255 130.7363,-11.8573 130.7159,-11.8452 130.6731,-11.8369 130.5329,-11.7714 130.3669,-11.6494 130.3491,-11.6288 130.2744,-11.4355 130.221,-11.2404 130.2214,-11.2027 130.2281,-11.1667 130.2492,-11.1506 130.3881,-11.2707 130.4293,-11.3367 130.5605,-11.3775 130.6682,-11.3555 130.7006,-11.345 130.7207,-11.3315 130.7552,-11.2951 130.8216,-11.3147 130.8597,-11.3394 130.9139,-11.2947 130.9768,-11.2508 131.0071,-11.2481 131.0182,-11.2835 131.0271,-11.3163 131.0785,-11.3891 131.083,-11.3634 131.0666,-11.3295 131.049,-11.2792 131.0605,-11.2292 131.0821,-11.2021 131.1062,-11.1842 131.1267,-11.1777 131.2735,-11.2355 131.3835,-11.3791 131.3907,-11.4142 131.3918,-11.4538 131.3769,-11.4693 131.3119,-11.547 131.1362,-11.7173 131.1041,-11.7221 130.9807,-11.8001 130.9023,-11.865 130.8234,-11.9224 130.8131,-11.9255 130.8131,-11.9255 18,10.0,Papua New Guinea 153.9419,-11.4266 153.9362,-11.4268 153.8903,-11.4188 153.835,-11.3727 153.8509,-11.336 153.9197,-11.3026 153.9839,-11.3014 154.0549,-11.3067 154.102,-11.3287 154.117,-11.3499 154.1273,-11.3788 154.1171,-11.3994 154.0941,-11.4068 154.0839,-11.3919 154.0201,-11.3866 153.966,-11.3878 153.9419,-11.4266 153.9419,-11.4266 32,10.0,Papua New Guinea 153.3961,-11.6293 153.3522,-11.589 153.3093,-11.5602 153.2514,-11.5554 153.2062,-11.5539 153.195,-11.5379 153.2098,-11.5104 153.2173,-11.4904 153.1561,-11.4624 153.1022,-11.4463 153.0204,-11.3578 153.0182,-11.3386 153.0303,-11.3092 153.0516,-11.3145 153.1226,-11.3441 153.2286,-11.3916 153.2445,-11.4033 153.2573,-11.4172 153.2683,-11.4269 153.3382,-11.4594 153.3895,-11.479 153.4034,-11.4821 153.4758,-11.502 153.5167,-11.5137 153.5825,-11.5531 153.6068,-11.5869 153.603,-11.6003 153.5031,-11.6148 153.4324,-11.6042 153.4124,-11.6151 153.3961,-11.6293 153.3961,-11.6293 42,9.5,Australia 130.3486,-11.825 130.1831,-11.7624 130.1671,-11.7631 130.0918,-11.7789 130.0814,-11.7817 130.0583,-11.7916 130.0401,-11.8006 130.0302,-11.8039 129.9798,-11.8171 129.9518,-11.8203 129.8963,-11.8096 129.8806,-11.7849 129.8732,-11.7593 129.9287,-11.6603 129.939,-11.6602 129.9531,-11.6707 129.9645,-11.68 129.9746,-11.6872 130.0125,-11.6898 130.0256,-11.6814 130.0409,-11.6652 130.0494,-11.6538 130.0526,-11.6426 130.047,-11.515 130.03,-11.4721 130.1119,-11.3312 130.2,-11.3127 130.2541,-11.4227 130.254,-11.4348 130.288,-11.5431 130.3465,-11.6755 130.4168,-11.6934 130.4344,-11.7045 130.4593,-11.7223 130.4705,-11.7318 130.4815,-11.7421 130.4916,-11.7594 130.4853,-11.7792 130.469,-11.8092 130.424,-11.8186 130.3486,-11.825 130.3486,-11.825 18,9.5,Australia 136.0319,-11.6775 136.0273,-11.6745 136.0317,-11.6312 136.123,-11.5592 136.139,-11.559 136.1979,-11.5556 136.2666,-11.507 136.2779,-11.4982 136.2983,-11.4773 136.3302,-11.4543 136.3251,-11.4939 136.321,-11.5043 136.2223,-11.5793 136.1923,-11.5967 136.1157,-11.6402 136.0464,-11.6719 136.0319,-11.6775 136.0319,-11.6775 961,3.0,Madagascar 46.274,-15.6273 46.2765,-15.6165 46.2832,-15.607 46.2921,-15.5983 46.4076,-15.4884 46.4182,-15.4804 46.4288,-15.4758 46.519,-15.4257 46.6499,-15.3474 46.778,-15.2506 46.7861,-15.2447 46.8,-15.2305 46.8247,-15.2133 46.8339,-15.2087 46.8915,-15.1816 46.9035,-15.1801 46.9125,-15.185 46.919,-15.1926 47.0205,-15.3169 47.016,-15.3265 46.9993,-15.3516 46.9884,-15.3622 46.9571,-15.38 46.9513,-15.3882 46.9065,-15.4846 46.903,-15.4959 46.9011,-15.5252 46.9036,-15.5404 46.9135,-15.5371 46.9189,-15.5282 46.9863,-15.4761 47.0369,-15.462 47.0732,-15.4277 47.0868,-15.4272 47.1246,-15.4413 47.1504,-15.4309 47.1676,-15.4311 47.1808,-15.3999 47.156,-15.3957 47.1399,-15.3838 47.0561,-15.2884 47.0271,-15.2429 47.004,-15.2062 47.0021,-15.1807 47.0026,-15.1676 47.0071,-15.1579 47.0249,-15.133 47.0529,-15.0984 47.1669,-14.9769 47.2549,-14.8957 47.2441,-14.8585 47.2313,-14.839 47.2372,-14.8254 47.2606,-14.793 47.2862,-14.7612 47.3339,-14.7099 47.3994,-14.6486 47.4098,-14.647 47.4452,-14.6951 47.4506,-14.81 47.4435,-14.8317 47.439,-14.8411 47.4174,-14.8684 47.3925,-14.8929 47.38,-14.9082 47.3565,-14.9545 47.3547,-14.9654 47.3529,-15.07 47.3549,-15.0815 47.3604,-15.09 47.3709,-15.0936 47.3825,-15.0909 47.3918,-15.0864 47.4273,-15.0657 47.4358,-15.0596 47.5108,-14.9334 47.5569,-14.8402 47.569,-14.8106 47.583,-14.7708 47.5877,-14.7612 47.6319,-14.6853 47.6428,-14.6668 47.7555,-14.5873 47.9124,-14.605 47.9225,-14.6092 47.9279,-14.6175 47.9392,-14.646 47.9425,-14.67 47.9413,-14.6896 47.9352,-14.7116 47.933,-14.7235 47.9313,-14.7433 47.9405,-14.7506 47.9568,-14.7327 47.9645,-14.7113 47.9662,-14.6956 47.9589,-14.6185 47.9508,-14.6063 47.885,-14.5592 47.8758,-14.5543 47.863,-14.5525 47.8504,-14.5542 47.84,-14.5572 47.8312,-14.5626 47.7721,-14.5742 47.6952,-14.5867 47.665,-14.5419 47.6459,-14.4266 47.6437,-14.4044 47.6443,-14.3922 47.6582,-14.3409 47.6621,-14.3307 47.7235,-14.2452 47.7744,-14.2178 47.7972,-14.2303 47.8196,-14.2362 47.872,-14.2379 47.8803,-14.2102 47.8859,-14.199 47.8929,-14.1724 47.8929,-14.1618 47.8835,-14.1152 47.8641,-14.0988 47.8488,-14.0811 47.8588,-14.0728 47.8701,-14.073 47.8903,-14.0823 47.9316,-14.1044 47.9405,-14.1098 47.9554,-14.1223 47.9611,-14.1315 47.9596,-14.1424 47.9418,-14.1788 47.932,-14.2152 47.9188,-14.2686 47.9156,-14.2904 47.9219,-14.3046 47.9372,-14.3109 47.9474,-14.3065 47.9929,-14.1395 47.997,-14.0903 47.9891,-14.0634 47.9858,-14.053 47.9758,-14.0473 47.9484,-14.0407 47.9394,-14.0359 47.931,-14.03 47.8927,-13.9988 47.8867,-13.9907 47.8913,-13.9808 47.9038,-13.9795 47.9171,-13.9805 47.9279,-13.9789 47.9666,-13.9448 47.9129,-13.9094 47.894,-13.8994 47.8717,-13.8938 47.8556,-13.8816 47.8465,-13.8625 47.8287,-13.8112 47.8196,-13.7725 47.8177,-13.7609 47.8353,-13.6361 47.8379,-13.6235 47.8432,-13.6014 47.8506,-13.5808 47.8579,-13.5741 47.8725,-13.5719 47.8879,-13.5767 47.9006,-13.577 47.9648,-13.5657 47.9719,-13.5588 47.9931,-13.5346 47.9906,-13.525 47.9827,-13.5184 47.9738,-13.5139 47.9684,-13.5056 47.9796,-13.4992 48.0085,-13.5027 48.017,-13.5083 48.0978,-13.5853 48.1106,-13.648 48.1196,-13.7002 48.1282,-13.742 48.1867,-13.7887 48.1972,-13.7922 48.2317,-13.7922 48.2501,-13.783 48.2624,-13.7745 48.2802,-13.7574 48.3005,-13.5885 48.2941,-13.5704 48.2799,-13.5498 48.2826,-13.5356 48.2954,-13.5275 48.3704,-13.5099 48.4484,-13.5004 48.4454,-13.4288 48.4815,-13.4102 48.5899,-13.4261 48.6009,-13.429 48.6101,-13.4341 48.6271,-13.4245 48.6659,-13.408 48.6806,-13.4088 48.7374,-13.3526 48.743,-13.339 48.7531,-13.272 48.7601,-13.2043 48.7572,-13.1793 48.7687,-13.1053 48.7896,-13.0631 48.8084,-13.0265 48.8451,-12.9582 48.863,-12.9413 48.8905,-12.8725 48.8941,-12.8625 48.9042,-12.8076 48.902,-12.797 48.8476,-12.6597 48.8248,-12.5588 48.7677,-12.4931 48.7275,-12.4515 48.7127,-12.4442 48.6901,-12.4327 48.6789,-12.4236 48.702,-12.3889 48.7118,-12.3851 48.7964,-12.3992 48.8074,-12.4019 48.8156,-12.4088 48.8209,-12.4307 48.8243,-12.4412 48.8409,-12.466 48.8525,-12.4817 48.8638,-12.4804 48.8894,-12.4717 48.8989,-12.4604 48.9065,-12.401 48.9146,-12.3437 48.9227,-12.3311 49.009,-12.2628 49.0418,-12.2668 49.0962,-12.2382 49.1097,-12.224 49.1147,-12.2154 49.1367,-12.1458 49.1347,-12.1116 49.1088,-12.1005 49.0748,-12.09 49.1025,-12.0403 49.1696,-11.961 49.2038,-11.9321 49.2175,-11.9336 49.2293,-11.9407 49.2423,-11.9508 49.255,-11.9708 49.2658,-11.9894 49.2922,-12.0483 49.302,-12.0772 49.315,-12.1733 49.3124,-12.1921 49.3001,-12.18 49.2949,-12.1708 49.2804,-12.1505 49.2706,-12.1437 49.207,-12.1302 49.1971,-12.1342 49.1873,-12.156 49.1778,-12.2112 49.2159,-12.2683 49.2726,-12.2872 49.2914,-12.2892 49.3053,-12.2825 49.3134,-12.2695 49.3154,-12.2581 49.3112,-12.2487 49.3736,-12.2687 49.4631,-12.3319 49.4886,-12.3705 49.5355,-12.4711 49.5401,-12.4934 49.5412,-12.506 49.5413,-12.5181 49.5369,-12.5279 49.5192,-12.5509 49.5209,-12.5684 49.5188,-12.5856 49.509,-12.5997 49.5065,-12.6192 49.5148,-12.6344 49.5386,-12.636 49.5977,-12.6876 49.7418,-12.8017 49.8386,-12.9351 49.844,-12.9437 49.8867,-13.0245 49.891,-13.0596 49.8906,-13.0719 49.8869,-13.082 49.8844,-13.104 49.8768,-13.166 49.8868,-13.2093 49.9226,-13.3316 49.9677,-13.4341 49.9809,-13.4488 49.9773,-13.4684 49.9772,-13.4806 49.9807,-13.4982 49.9862,-13.5064 49.994,-13.514 50.0025,-13.5194 50.0094,-13.5263 50.0144,-13.5351 50.0448,-13.612 50.0804,-13.7462 50.0829,-13.7578 50.0907,-13.8047 50.0922,-13.8171 50.0925,-13.8369 50.0889,-13.8611 50.0877,-13.8806 50.0865,-13.973 50.092,-13.9829 50.103,-13.9991 50.1171,-14.0336 50.1181,-14.0459 50.1132,-14.089 50.1023,-14.1855 50.1019,-14.2054 50.1052,-14.2159 50.1103,-14.2255 50.1202,-14.236 50.1341,-14.2433 50.1447,-14.2535 50.1571,-14.2759 50.1585,-14.2913 50.1555,-14.3263 50.1454,-14.3584 50.1337,-14.4021 50.1325,-14.4147 50.1319,-14.4353 50.1414,-14.5536 50.1793,-14.6946 50.2127,-14.8093 50.2406,-14.8882 50.278,-14.9817 50.3414,-15.0805 50.374,-15.1287 50.4241,-15.1867 50.4371,-15.2322 50.4382,-15.2456 50.4416,-15.2915 50.4414,-15.3056 50.4228,-15.3885 50.3737,-15.5625 50.2665,-15.801 50.2398,-15.8555 50.1809,-15.9507 50.1724,-15.9565 50.1127,-15.9616 50.0781,-15.9096 50.0409,-15.9025 49.9744,-15.8489 49.9695,-15.8395 49.9668,-15.7925 49.967,-15.7804 49.9021,-15.6635 49.8446,-15.5434 49.8436,-15.5305 49.8429,-15.451 49.8069,-15.4149 49.7651,-15.4141 49.6922,-15.4185 49.6709,-15.4251 49.6614,-15.4301 49.6369,-15.4485 49.6178,-15.4709 49.6054,-15.4872 49.5822,-15.5198 49.5744,-15.5398 49.5737,-15.553 49.5749,-15.5658 49.5983,-15.6643 49.6075,-15.6882 49.6166,-15.7073 49.6749,-15.8863 49.6717,-15.9041 49.6585,-15.9275 49.6453,-15.9462 49.6286,-15.9917 49.6212,-16.0168 49.6219,-16.0369 49.6364,-16.0799 49.6428,-16.0959 49.6503,-16.1092 49.661,-16.1199 49.6702,-16.1272 49.6895,-16.1349 49.6997,-16.1366 49.7098,-16.1341 49.7572,-16.1637 49.7765,-16.1787 49.7906,-16.1987 49.7946,-16.2132 49.7927,-16.2293 49.7789,-16.2682 49.7729,-16.29 49.7659,-16.325 49.7658,-16.3472 49.7708,-16.3769 49.7746,-16.398 49.7893,-16.4056 49.7997,-16.4158 49.8033,-16.4365 49.803,-16.4554 49.7888,-16.5354 49.7861,-16.5471 49.7399,-16.6227 49.7324,-16.6326 49.7127,-16.653 49.6942,-16.6708 49.6834,-16.6785 49.6644,-16.6871 49.6595,-16.6957 49.6576,-16.7093 49.6613,-16.7381 49.6771,-16.7672 49.6835,-16.7773 49.6903,-16.7869 49.6998,-16.795 49.7196,-16.8072 49.729,-16.8114 49.5785,-16.8683 49.5686,-16.8707 49.5576,-16.8752 49.5474,-16.8815 49.5374,-16.8893 49.5305,-16.9001 49.4719,-17.0272 49.3693,-17.2776 49.3633,-17.2964 49.3609,-17.3066 49.3594,-17.3244 49.3621,-17.3428 49.3759,-17.3621 49.3953,-17.3957 49.4158,-17.4673 49.4289,-17.5344 49.4498,-17.6585 49.4515,-17.6696 49.4506,-17.6914 49.4412,-17.7509 49.4353,-17.7739 49.4219,-17.8114 49.3959,-17.8955 49.3859,-17.9277 49.3735,-17.9767 49.3548,-18.0522 49.3246,-18.1935 49.3124,-18.292 49.311,-18.3047 49.3088,-18.3308 49.2445,-18.5164 49.1719,-18.6827 49.1081,-18.858 49.0843,-18.919 49.0708,-18.9492 49.0379,-19.0134 49.0158,-19.0475 49.0069,-19.0664 48.9721,-19.1729 48.9657,-19.194 48.9586,-19.2292 48.9547,-19.2544 48.9429,-19.3125 48.9371,-19.3346 48.9294,-19.3552 48.897,-19.4357 48.8627,-19.5096 48.8334,-19.5664 48.8239,-19.5858 48.8164,-19.606 48.8102,-19.6279 48.8024,-19.6621 48.7901,-19.7204 48.7854,-19.7436 48.7742,-19.8029 48.7538,-19.9107 48.7188,-20.0167 48.6999,-20.0683 48.6917,-20.0884 48.6633,-20.1443 48.6469,-20.1701 48.6324,-20.199 48.5956,-20.2755 48.5774,-20.3137 48.5575,-20.3651 48.5488,-20.393 48.5421,-20.4163 48.5259,-20.4705 48.4806,-20.6224 48.4621,-20.674 48.4087,-20.8905 48.3975,-20.9618 48.3114,-21.2683 48.2449,-21.4553 48.1585,-21.7203 48.0816,-21.8982 48.0612,-21.9344 48.0513,-21.9536 47.9918,-22.0856 47.9564,-22.1659 47.9439,-22.1953 47.8606,-22.4068 47.8492,-22.4367 47.8418,-22.4604 47.8353,-22.4885 47.8056,-22.6437 47.7888,-22.7561 47.7834,-22.8011 47.7805,-22.8236 47.778,-22.8416 47.7727,-22.8624 47.7512,-22.9424 47.7437,-22.9717 47.7004,-23.1122 47.6533,-23.3133 47.5695,-23.5351 47.5576,-23.5952 47.5566,-23.6162 47.5532,-23.6379 47.5278,-23.7674 47.5165,-23.8123 47.5038,-23.8454 47.4389,-23.988 47.4289,-24.0036 47.3669,-24.097 47.3445,-24.1504 47.2801,-24.2789 47.2603,-24.3848 47.2562,-24.4312 47.2536,-24.4434 47.2441,-24.4761 47.2222,-24.5297 47.1392,-24.7133 47.0894,-24.7855 47.076,-24.8036 47.0708,-24.818 47.0677,-24.8329 47.0679,-24.8473 47.0721,-24.8668 47.0778,-24.8846 47.0738,-24.9 47.0351,-24.9456 46.847,-25.0405 46.6708,-25.139 46.6601,-25.1429 46.5875,-25.1632 46.5251,-25.1542 46.485,-25.1466 46.4641,-25.1387 46.444,-25.1332 46.3545,-25.1333 46.2778,-25.1452 46.2321,-25.1578 46.1994,-25.1686 46.1347,-25.1911 46.1135,-25.1985 45.9046,-25.2814 45.8647,-25.3004 45.8462,-25.3108 45.7361,-25.3747 45.6809,-25.4075 45.6554,-25.4251 45.6405,-25.4395 45.6125,-25.4685 45.5951,-25.4803 45.5135,-25.5226 45.4923,-25.5333 45.4724,-25.5398 45.4298,-25.5467 45.4047,-25.5493 45.1571,-25.5594 45.0698,-25.5197 45.0607,-25.5064 45.0407,-25.4922 44.8575,-25.3738 44.7515,-25.3069 44.7254,-25.2924 44.7129,-25.2882 44.6908,-25.2821 44.6546,-25.2754 44.5313,-25.2653 44.4655,-25.2578 44.3867,-25.2441 44.2993,-25.227 44.2927,-25.2178 44.2413,-25.1348 44.2668,-25.1393 44.2762,-25.1484 44.2936,-25.1659 44.3124,-25.1872 44.3329,-25.2045 44.3429,-25.2018 44.3512,-25.1923 44.3557,-25.1834 44.3455,-25.1649 44.281,-25.1247 44.1283,-25.0408 44.1186,-25.0365 44.1068,-25.0311 44.0942,-25.0275 44.0839,-25.0256 44.0737,-25.0295 44.0637,-25.0345 44.0524,-25.0334 44.0417,-25.026 43.9766,-24.9764 43.9616,-24.9528 43.9675,-24.9303 43.9663,-24.9162 43.961,-24.8921 43.9556,-24.8716 43.9499,-24.8522 43.9383,-24.8334 43.9299,-24.8222 43.912,-24.8022 43.8987,-24.783 43.8706,-24.7333 43.8625,-24.7131 43.8589,-24.6899 43.8738,-24.6604 43.8761,-24.6451 43.8674,-24.6064 43.8505,-24.571 43.7794,-24.4778 43.7644,-24.464 43.7425,-24.4498 43.7323,-24.4436 43.711,-24.4351 43.7007,-24.4287 43.6772,-24.4112 43.6571,-24.3898 43.637,-24.357 43.6167,-24.3043 43.6096,-24.2841 43.6098,-24.1616 43.6103,-24.0163 43.6076,-23.8415 43.5986,-23.7975 43.5945,-23.783 43.5708,-23.735 43.5821,-23.6312 43.5841,-23.6212 43.5954,-23.5973 43.6189,-23.5872 43.6496,-23.576 43.681,-23.5621 43.6934,-23.5509 43.7055,-23.4416 43.6987,-23.4257 43.6909,-23.4168 43.6334,-23.3688 43.592,-23.3355 43.5827,-23.3311 43.5762,-23.3212 43.5609,-23.2851 43.5577,-23.2754 43.553,-23.2519 43.5518,-23.2395 43.5434,-23.1447 43.5428,-23.1248 43.5437,-23.1035 43.5431,-23.0733 43.5339,-23.0521 43.5242,-23.0416 43.502,-23.0229 43.4666,-22.9972 43.451,-22.9868 43.4388,-22.982 43.4286,-22.9715 43.3391,-22.87 43.3222,-22.8495 43.3123,-22.8361 43.3083,-22.8271 43.3043,-22.8158 43.2954,-22.775 43.2639,-22.634 43.2328,-22.4726 43.1855,-22.2572 43.2078,-22.1881 43.1973,-22.1376 43.1942,-22.1271 43.1836,-22.0437 43.2262,-21.8838 43.2612,-21.8579 43.2748,-21.8219 43.2798,-21.7525 43.2811,-21.7342 43.3681,-21.6461 43.378,-21.6393 43.3946,-21.6372 43.419,-21.6437 43.4163,-21.5738 43.4129,-21.4522 43.4129,-21.439 43.4232,-21.3715 43.4251,-21.359 43.4287,-21.3484 43.4475,-21.3098 43.4918,-21.2773 43.5264,-21.2567 43.5383,-21.2547 43.5629,-21.2525 43.6116,-21.2484 43.6454,-21.2479 43.6588,-21.2499 43.6689,-21.2529 43.6767,-21.2596 43.6877,-21.2622 43.7149,-21.2466 43.7234,-21.2408 43.7491,-21.2093 43.7551,-21.2015 43.7662,-21.1832 43.7878,-21.1332 43.8079,-21.0562 43.8222,-20.9852 43.8254,-20.9221 43.8444,-20.8556 43.8533,-20.8357 43.8584,-20.8264 43.8961,-20.7644 43.9145,-20.7408 43.9384,-20.7201 43.9491,-20.7227 43.9618,-20.7224 43.9701,-20.7167 43.9827,-20.7005 43.988,-20.6917 44.026,-20.6287 44.047,-20.5775 44.0506,-20.5666 44.1226,-20.419 44.2127,-20.2714 44.2866,-20.1345 44.2995,-20.1146 44.3072,-20.1059 44.3171,-20.0968 44.3364,-20.0808 44.3461,-20.0736 44.3751,-20.055 44.3835,-20.046 44.4258,-19.958 44.429,-19.9433 44.4284,-19.9187 44.418,-19.8551 44.3863,-19.8233 44.3721,-19.8189 44.3565,-19.8178 44.3457,-19.8101 44.3335,-19.7899 44.3169,-19.7547 44.3864,-19.5306 44.4008,-19.5226 44.4109,-19.5229 44.4223,-19.5205 44.4291,-19.505 44.4288,-19.4809 44.4154,-19.4162 44.3848,-19.3571 44.3718,-19.336 44.2981,-19.2296 44.2827,-19.2083 44.2329,-19.1477 44.212,-19.1232 44.2082,-19.1182 44.1778,-19.0594 44.1736,-19.0444 44.1779,-18.9521 44.1949,-18.9404 44.2082,-18.8319 44.2076,-18.8205 44.2034,-18.7991 44.1882,-18.7492 44.1774,-18.7198 44.1456,-18.6465 44.1103,-18.5702 44.1055,-18.5611 44.0606,-18.4927 44.052,-18.4807 44.0287,-18.4491 44.0193,-18.4382 44.01,-18.4304 44.0007,-18.421 43.9872,-18.4024 43.9823,-18.3872 43.9898,-18.3196 43.9926,-18.2201 43.9902,-18.1808 43.9861,-18.1469 43.9798,-18.1107 43.9714,-18.0916 43.9587,-18.0358 43.9503,-17.9599 43.9482,-17.9386 43.948,-17.9284 43.9498,-17.9088 43.9514,-17.8974 43.9603,-17.8574 43.9688,-17.8455 43.9736,-17.8268 43.977,-17.7973 43.979,-17.7554 43.9783,-17.7368 43.9405,-17.6727 43.9348,-17.6638 43.9165,-17.6424 43.9065,-17.6324 43.8903,-17.6127 43.8758,-17.5921 43.8715,-17.581 43.8687,-17.5608 43.8698,-17.5503 43.8763,-17.4924 43.8784,-17.4806 43.8841,-17.4596 43.8943,-17.4313 43.8994,-17.4197 43.9113,-17.4013 43.9868,-17.2978 44.0848,-17.1569 44.1293,-17.0789 44.1622,-17.0181 44.2219,-16.9004 44.2929,-16.7781 44.2986,-16.7692 44.3102,-16.7603 44.3203,-16.7535 44.3302,-16.745 44.3393,-16.7344 44.3792,-16.6849 44.3844,-16.6732 44.4126,-16.4879 44.4128,-16.4773 44.4101,-16.459 44.4053,-16.4481 44.3999,-16.4387 44.3837,-16.4149 44.3689,-16.3943 44.3564,-16.3749 44.3513,-16.3642 44.3466,-16.3507 44.345,-16.323 44.3859,-16.1964 44.3897,-16.1854 44.3964,-16.177 44.407,-16.1655 44.4358,-16.1589 44.4507,-16.1615 44.5198,-16.1686 44.5563,-16.1699 44.7494,-16.1812 44.8199,-16.1921 44.9461,-16.1244 44.9805,-16.1023 44.9963,-16.0894 45.0059,-16.0782 45.0196,-16.056 45.0371,-16.0312 45.0763,-15.9859 45.087,-15.9754 45.1628,-15.9322 45.2009,-15.9134 45.211,-15.9093 45.2199,-15.9147 45.2234,-15.925 45.2394,-16.0373 45.2371,-16.0491 45.2346,-16.0785 45.2374,-16.0925 45.2487,-16.0997 45.2728,-16.0921 45.2814,-16.0866 45.3415,-16.0489 45.3585,-16.0234 45.357,-16.0128 45.3469,-16.0086 45.338,-16.0152 45.3204,-15.9882 45.3128,-15.9652 45.3365,-15.9551 45.5181,-15.9311 45.5399,-15.9694 45.539,-15.9803 45.5349,-15.99 45.523,-16.0062 45.522,-16.02 45.5526,-16.0373 45.5634,-16.0395 45.5729,-16.0185 45.5907,-15.8893 45.5911,-15.8767 45.5896,-15.8652 45.662,-15.7739 45.6845,-15.7799 45.7531,-15.7967 45.7716,-15.7967 45.7802,-15.7916 45.8142,-15.7689 45.8238,-15.7644 45.8563,-15.7553 45.8665,-15.7547 45.9028,-15.7659 45.9015,-15.7866 45.8971,-15.8174 45.901,-15.8272 45.9103,-15.8353 46.0085,-15.854 46.0174,-15.8432 46.017,-15.7931 46.0156,-15.7663 46.0056,-15.765 45.9941,-15.771 45.9837,-15.7803 45.9763,-15.7899 45.9667,-15.7983 45.9567,-15.8061 45.9499,-15.7908 45.9584,-15.7758 45.9729,-15.7576 45.9935,-15.739 46.0142,-15.7223 46.0247,-15.7143 46.0445,-15.7026 46.0656,-15.6933 46.0964,-15.6858 46.1171,-15.6857 46.147,-15.6874 46.1774,-15.6962 46.1912,-15.742 46.1805,-15.7882 46.1916,-15.8291 46.2022,-15.8605 46.2107,-15.8831 46.2246,-15.9145 46.2377,-15.9338 46.2468,-15.943 46.2657,-15.9551 46.2757,-15.959 46.4224,-15.9432 46.3919,-15.8677 46.3579,-15.8361 46.3249,-15.8176 46.2848,-15.76 46.2483,-15.6944 46.2538,-15.6688 46.2575,-15.6568 46.274,-15.6273 46.274,-15.6273 5,2.0,Malawi 34.58,-12.0235 34.5783,-11.9946 34.5898,-12.017 34.58,-12.0235 34.58,-12.0235 7,2.0,Malawi 34.6876,-12.0826 34.6703,-12.0715 34.6824,-12.0245 34.7127,-12.0255 34.7056,-12.0712 34.6876,-12.0826 34.6876,-12.0826 26,-3.0,Brazil -38.7355,-13.1202 -38.7419,-13.1167 -38.7475,-13.0845 -38.7487,-13.0723 -38.75,-13.0454 -38.7413,-13.0368 -38.7114,-13.0249 -38.7027,-13.0195 -38.6838,-13.004 -38.6664,-12.9867 -38.6351,-12.9543 -38.6234,-12.928 -38.6252,-12.9143 -38.6335,-12.9014 -38.6427,-12.893 -38.6491,-12.8686 -38.6326,-12.8649 -38.6007,-12.8771 -38.5777,-12.8971 -38.5483,-12.9428 -38.5439,-12.9596 -38.5512,-12.9762 -38.6186,-13.0267 -38.7106,-13.098 -38.7355,-13.1202 -38.7355,-13.1202 17,3.0,Madagascar 48.277,-13.4047 48.1673,-13.3904 48.1524,-13.378 48.1434,-13.349 48.1374,-13.3231 48.1371,-13.3028 48.1419,-13.255 48.2117,-13.1877 48.2294,-13.1811 48.2396,-13.1805 48.266,-13.183 48.2703,-13.1962 48.3071,-13.3789 48.3065,-13.3931 48.2876,-13.403 48.277,-13.4047 48.277,-13.4047 15,-3.0,Brazil -38.8967,-13.5499 -38.9373,-13.5483 -38.9366,-13.5062 -38.9196,-13.4835 -38.9708,-13.4694 -38.9972,-13.4444 -38.989,-13.3772 -38.8695,-13.3675 -38.8594,-13.3802 -38.8517,-13.4336 -38.8519,-13.4511 -38.8619,-13.4782 -38.8907,-13.545 -38.8967,-13.5499 -38.8967,-13.5499 65,9.5,Australia 136.7499,-14.1633 136.7528,-14.1567 136.7656,-14.1385 136.8086,-14.1358 136.7827,-14.2616 136.7668,-14.2698 136.7409,-14.2788 136.7302,-14.2817 136.7151,-14.2789 136.7064,-14.2664 136.5918,-14.2455 136.5756,-14.2456 136.5519,-14.2489 136.542,-14.2519 136.4735,-14.2625 136.2197,-14.2002 136.2553,-14.0287 136.2482,-13.9549 136.2712,-13.871 136.3004,-13.8231 136.3973,-13.8059 136.4351,-13.7978 136.4669,-13.774 136.4681,-13.7626 136.4383,-13.7112 136.5222,-13.6426 136.5566,-13.6364 136.5653,-13.645 136.5676,-13.6652 136.5575,-13.6912 136.5501,-13.698 136.5283,-13.7064 136.5187,-13.7174 136.5196,-13.735 136.5556,-13.8223 136.6349,-13.8394 136.6506,-13.8386 136.6674,-13.8283 136.6759,-13.8199 136.6838,-13.8045 136.6788,-13.7862 136.6732,-13.7706 136.6915,-13.7459 136.7243,-13.7373 136.7409,-13.746 136.7536,-13.7576 136.7612,-13.7941 136.7164,-13.8434 136.6625,-13.8926 136.6478,-13.8945 136.6323,-13.9033 136.6175,-13.9159 136.6095,-13.9257 136.5479,-14.0596 136.5411,-14.1016 136.5496,-14.1517 136.562,-14.1698 136.578,-14.1755 136.6193,-14.1819 136.7114,-14.1955 136.7243,-14.1923 136.737,-14.1836 136.7436,-14.176 136.7499,-14.1633 136.7499,-14.1633 24,9.5,Australia 136.0448,-13.8442 136.0477,-13.8083 136.032,-13.7712 136.0267,-13.7604 136.0162,-13.7535 136.0012,-13.7553 135.9901,-13.7706 135.9938,-13.7907 136.0019,-13.8055 136.0059,-13.8185 135.997,-13.823 135.964,-13.8188 135.9486,-13.7998 135.9577,-13.7162 136.0271,-13.6607 136.0458,-13.6492 136.0883,-13.6564 136.1273,-13.6944 136.1325,-13.7145 136.1182,-13.7787 136.0853,-13.8309 136.0534,-13.843 136.0448,-13.8442 136.0448,-13.8442 14,8.0,Australia 124.9917,-14.632 124.986,-14.632 124.9394,-14.6043 124.9396,-14.5869 124.946,-14.5279 124.9692,-14.4702 125.0062,-14.4253 125.016,-14.4226 125.0273,-14.4295 125.062,-14.4727 125.0386,-14.5822 125.0023,-14.5992 124.9917,-14.632 124.9917,-14.632 11,8.0,Australia 124.3746,-15.4276 124.3659,-15.3996 124.3125,-15.3517 124.3212,-15.3073 124.3465,-15.2689 124.3944,-15.2445 124.4118,-15.2427 124.4982,-15.3831 124.4782,-15.393 124.3746,-15.4276 124.3746,-15.4276 12,9.5,Australia 136.3619,-15.6285 136.3536,-15.6265 136.3361,-15.6157 136.3568,-15.532 136.4145,-15.4944 136.4428,-15.5071 136.4475,-15.5255 136.4357,-15.5955 136.4252,-15.6172 136.3675,-15.6276 136.3619,-15.6285 136.3619,-15.6285 17,9.5,Australia 136.8908,-15.812 136.8775,-15.8105 136.841,-15.7787 136.8337,-15.7711 136.7775,-15.7014 136.7713,-15.681 136.7725,-15.6659 136.7898,-15.6297 136.8316,-15.5803 136.8471,-15.5753 136.8921,-15.6299 136.9095,-15.675 136.9297,-15.7487 136.9287,-15.7698 136.9036,-15.8117 136.8908,-15.812 136.8908,-15.812 350,2.0,Zimbabwe 30.3796,-15.614 30.381,-15.6244 30.3861,-15.9873 30.7842,-15.9863 31.0341,-15.9973 31.1117,-15.9765 31.2393,-16.0005 31.2744,-16.0143 31.3045,-16.0544 31.3063,-16.0753 31.3633,-16.1282 31.3889,-16.1441 31.4733,-16.1681 31.5186,-16.1766 31.5393,-16.174 31.6243,-16.1804 31.6774,-16.1923 31.7441,-16.2425 31.8649,-16.3471 31.873,-16.3943 31.9449,-16.4167 32.0172,-16.4298 32.0466,-16.4294 32.1175,-16.4227 32.1919,-16.4203 32.2162,-16.4215 32.2544,-16.4298 32.315,-16.4451 32.3392,-16.4512 32.3683,-16.4597 32.541,-16.527 32.6681,-16.5931 32.689,-16.6748 32.7281,-16.6991 32.76,-16.6995 32.8909,-16.6838 32.9415,-16.6901 32.9341,-16.7333 32.9273,-16.7561 32.9197,-16.7781 32.9088,-16.8037 32.8989,-16.8233 32.8873,-16.84 32.8734,-16.8555 32.8527,-16.8776 32.8254,-16.8993 32.8778,-17.0354 32.8952,-17.0661 32.9287,-17.1283 32.9403,-17.1636 32.9474,-17.2084 32.9488,-17.2328 32.9481,-17.2454 32.9541,-17.2885 32.9776,-17.305 32.9977,-17.3214 33.0022,-17.3368 32.9167,-17.4857 32.9387,-17.5377 32.9888,-17.5583 33.0009,-17.58 33.0027,-17.6094 32.9752,-17.7254 32.9353,-17.7976 32.9124,-17.8607 32.9064,-17.9548 32.9151,-18.0211 32.9249,-18.0579 32.9374,-18.0816 32.9483,-18.1019 32.9596,-18.1671 32.9344,-18.2295 32.9799,-18.281 33.0102,-18.3082 33.0317,-18.3291 32.9807,-18.4389 32.9563,-18.4608 32.9057,-18.486 32.8753,-18.4931 32.8487,-18.5098 32.8496,-18.5502 32.866,-18.5923 32.9097,-18.6693 32.8804,-18.7556 32.8531,-18.77 32.8295,-18.7662 32.7925,-18.757 32.7506,-18.7675 32.6646,-18.8117 32.6597,-18.9265 32.6751,-18.9966 32.7001,-19.0042 32.7432,-19.0007 32.7943,-19.0017 32.8451,-19.0836 32.8153,-19.2523 32.8005,-19.2808 32.7531,-19.3407 32.7458,-19.445 32.7726,-19.452 32.8006,-19.4535 32.8121,-19.4781 32.8108,-19.5958 32.9449,-19.6651 33.0192,-19.758 32.9789,-19.9209 32.943,-19.9997 32.8643,-20.1015 32.8527,-20.1437 32.8446,-20.208 32.834,-20.2512 32.7629,-20.3396 32.6262,-20.5339 32.5114,-20.5319 32.4627,-20.5754 32.4446,-20.6468 32.4612,-20.7958 32.4706,-20.8358 32.4819,-20.8907 32.4412,-20.9684 32.3366,-21.0822 32.3211,-21.1117 32.3725,-21.1937 32.4364,-21.2976 32.4493,-21.3202 32.4256,-21.301 32.3764,-21.2833 32.3646,-21.2943 31.8873,-21.7866 31.6496,-22.0295 31.3616,-22.3221 31.3163,-22.3542 31.2675,-22.3844 31.2588,-22.3893 31.2517,-22.3782 31.2272,-22.3451 31.119,-22.2983 31.0842,-22.3001 31.0587,-22.3096 31.0512,-22.3123 31.0265,-22.3084 30.9345,-22.2855 30.8908,-22.2688 30.8663,-22.264 30.8008,-22.2626 30.7431,-22.2682 30.666,-22.2848 30.5992,-22.3047 30.522,-22.2969 30.4746,-22.2872 30.4487,-22.2865 30.4228,-22.2978 30.3793,-22.3104 30.33,-22.3184 30.2636,-22.3193 29.9941,-22.2128 29.9022,-22.1661 29.8661,-22.1694 29.7948,-22.151 29.774,-22.1397 29.6896,-22.1141 29.6336,-22.1113 29.4083,-22.1394 29.3374,-22.1673 29.326,-22.152 29.2318,-22.0528 29.2128,-22.0453 29.1846,-22.0541 29.1455,-22.0558 29.1126,-22.0494 29.0779,-22.0375 29.0583,-22.0289 29.0402,-22.0144 29.0231,-21.9924 29.0105,-21.9692 28.9993,-21.9408 28.9964,-21.9115 29.0004,-21.8783 29.0093,-21.8529 29.0394,-21.8088 29.0368,-21.7848 28.9517,-21.7458 28.92,-21.7465 28.8898,-21.7451 28.8283,-21.7273 28.6114,-21.6252 28.533,-21.6079 28.4914,-21.6236 28.4716,-21.6362 28.4277,-21.63 28.3735,-21.6061 28.3463,-21.5913 28.316,-21.5783 28.246,-21.5634 28.2038,-21.571 28.1683,-21.5723 28.1277,-21.5694 28.0145,-21.552 27.9814,-21.5419 27.9785,-21.5369 27.9735,-21.5214 27.9363,-21.4163 27.9079,-21.3592 27.8657,-21.2844 27.8092,-21.2007 27.7462,-21.1454 27.7138,-21.1281 27.6937,-21.1079 27.6529,-21.0473 27.6562,-20.9109 27.6602,-20.8414 27.6764,-20.8204 27.6932,-20.7685 27.6971,-20.7248 27.6926,-20.5258 27.6819,-20.4869 27.6584,-20.4659 27.5774,-20.4483 27.4831,-20.4531 27.3994,-20.4492 27.3243,-20.4427 27.2979,-20.4488 27.2607,-20.466 27.2543,-20.4718 27.2577,-20.4318 27.2628,-20.3623 27.2658,-20.2886 27.2575,-20.219 27.2496,-20.1983 27.1997,-20.0863 27.1808,-20.0647 27.0466,-20.0039 26.9462,-19.9887 26.6963,-19.9061 26.6634,-19.8553 26.6032,-19.8432 26.5788,-19.8305 26.5636,-19.8051 26.558,-19.7787 26.5363,-19.7628 26.5046,-19.7411 26.3723,-19.6538 26.3248,-19.5947 26.2317,-19.555 26.2115,-19.5498 26.1651,-19.5251 26.1375,-19.5078 26.1201,-19.4843 26.0671,-19.3535 26.023,-19.2433 25.9909,-19.1662 25.9686,-19.1393 25.9329,-19.0834 25.9329,-19.0401 25.9553,-18.977 25.9553,-18.9667 25.9453,-18.9313 25.9246,-18.8924 25.909,-18.8719 25.839,-18.8226 25.7656,-18.6909 25.6879,-18.5705 25.6305,-18.515 25.5708,-18.4588 25.4957,-18.3766 25.4836,-18.3569 25.4756,-18.3303 25.47,-18.3077 25.4487,-18.2536 25.4191,-18.1993 25.3658,-18.1076 25.3358,-18.0901 25.2869,-18.0544 25.2452,-17.9851 25.211,-17.9042 25.2076,-17.8837 25.2115,-17.8348 25.2341,-17.782 25.2892,-17.8159 25.3083,-17.8236 25.3803,-17.834 25.4021,-17.8368 25.4832,-17.843 25.5876,-17.8162 25.6261,-17.7939 25.655,-17.7874 25.7516,-17.8447 25.823,-17.9016 25.8106,-17.9203 25.8303,-17.9545 25.873,-17.9685 25.9363,-17.9843 26.0613,-17.9471 26.0919,-17.9111 26.1589,-17.8818 26.1985,-17.8826 26.3298,-17.9107 26.3976,-17.9299 26.5361,-17.9771 26.5734,-18.0224 26.6663,-18.0544 26.6931,-18.0292 26.7127,-18.0133 26.809,-17.9804 26.8555,-17.9654 26.9112,-17.9541 26.9635,-17.9467 26.9968,-17.9411 27.1174,-17.834 27.1135,-17.7864 27.3148,-17.5556 27.4865,-17.4044 27.5811,-17.3218 27.6058,-17.2053 27.6727,-17.1088 27.7741,-16.9643 27.7919,-16.94 27.9924,-16.8541 28.1048,-16.8044 28.226,-16.7052 28.5514,-16.5717 28.7184,-16.537 28.7861,-16.4571 28.818,-16.3755 28.819,-16.3436 28.8093,-16.3216 28.8029,-16.2857 28.8133,-16.1417 28.8252,-16.0379 28.8318,-16.0184 28.8934,-15.9543 28.9088,-15.9457 28.9544,-15.934 29.0451,-15.8719 29.2108,-15.7593 29.3103,-15.7188 29.5434,-15.6433 29.5662,-15.645 29.5921,-15.6537 29.6209,-15.6529 29.6926,-15.6304 29.7639,-15.6069 29.7996,-15.5987 30.1239,-15.6137 30.2252,-15.6224 30.2578,-15.6326 30.3184,-15.6411 30.3487,-15.6295 30.3796,-15.614 30.3796,-15.614 14,2.0,Mozambique 39.8382,-16.3993 39.8016,-16.3966 39.7868,-16.3883 39.7628,-16.3422 39.7653,-16.3063 39.7705,-16.2939 39.7875,-16.2719 39.8165,-16.2591 39.8504,-16.2544 39.8611,-16.2566 39.8671,-16.2646 39.8552,-16.3936 39.8382,-16.3993 39.8382,-16.3993 31,10.0,Australia 138.9813,-16.742 138.9744,-16.738 138.9713,-16.6966 138.9714,-16.6836 138.9936,-16.5916 138.998,-16.5817 139.0554,-16.5052 139.1104,-16.4627 139.1222,-16.454 139.1397,-16.444 139.1516,-16.4434 139.1974,-16.4434 139.284,-16.4285 139.3126,-16.4235 139.3671,-16.3955 139.5598,-16.4258 139.5662,-16.4371 139.5703,-16.462 139.5651,-16.484 139.5215,-16.5037 139.4563,-16.5172 139.4134,-16.484 139.3217,-16.5194 139.3362,-16.5505 139.2845,-16.641 139.2744,-16.6491 139.1627,-16.6901 139.0636,-16.7101 139.0181,-16.7161 138.9813,-16.742 138.9813,-16.742 13,3.0,Madagascar 49.7673,-17.0759 49.7602,-17.0689 49.7577,-17.025 49.8005,-16.8949 49.8075,-16.8838 49.9018,-16.7407 49.9507,-16.7067 49.8923,-16.8595 49.8798,-16.8883 49.8502,-16.9396 49.7737,-17.0705 49.7673,-17.0759 49.7673,-17.0759 531,2.0,Namibia 23.4479,-17.6059 23.7921,-17.5403 24.0003,-17.4998 24.2099,-17.4585 24.352,-17.4539 24.4109,-17.4627 24.4729,-17.4884 24.5127,-17.5053 24.5359,-17.5137 24.5608,-17.5142 24.5895,-17.4862 24.6084,-17.4769 24.6341,-17.474 24.679,-17.4784 24.788,-17.4957 24.8827,-17.5209 24.9399,-17.54 24.9544,-17.564 25.0,-17.5901 25.0352,-17.6048 25.2216,-17.7631 25.2341,-17.782 25.2219,-17.7754 25.1492,-17.762 25.1059,-17.7766 25.0689,-17.8077 25.036,-17.8119 24.9697,-17.8059 24.9427,-17.8008 24.906,-17.7939 24.8027,-17.8176 24.6494,-17.9237 24.5366,-18.0337 24.4947,-18.0394 24.4682,-18.0388 24.4439,-18.0122 24.4224,-17.9787 24.4104,-17.9576 24.3874,-17.9336 24.359,-17.9254 24.3338,-17.9287 24.2398,-17.993 23.9778,-18.1471 23.9382,-18.1643 23.8834,-18.2162 23.858,-18.244 23.8415,-18.2426 23.8151,-18.2692 23.8012,-18.2942 23.7628,-18.3333 23.6906,-18.4045 23.622,-18.449 23.5847,-18.4644 23.5541,-18.4545 23.5356,-18.4163 23.5268,-18.3408 23.5258,-18.3054 23.4914,-18.2464 23.4747,-18.2276 23.425,-18.1832 23.4027,-18.1732 23.37,-18.1555 23.3349,-18.1066 23.302,-18.056 23.2975,-18.0245 23.2884,-17.995 23.2689,-17.9755 23.2591,-17.9761 23.05,-17.9842 22.61,-18.0664 22.473,-18.0908 22.2352,-18.1334 21.7905,-18.2179 21.4364,-18.2838 21.2099,-18.2912 20.9681,-18.2977 20.9684,-18.3178 20.9689,-18.4546 20.9686,-18.6743 20.968,-19.1504 20.9676,-19.9756 20.9678,-20.1562 20.9674,-20.8009 20.9673,-20.9689 20.9669,-20.9952 20.967,-21.2981 20.9672,-21.5729 20.967,-21.9173 20.967,-21.9447 20.9664,-21.9722 20.892,-21.9734 20.6243,-21.9751 20.2836,-21.9765 19.9759,-21.9766 19.9721,-21.9801 19.9715,-22.0626 19.9726,-22.242 19.9732,-22.4745 19.9728,-22.697 19.9731,-22.9176 19.9735,-22.934 19.974,-22.9448 19.9743,-23.0965 19.974,-23.2826 19.9746,-23.4279 19.9753,-23.6207 19.9753,-23.7306 19.9755,-23.8373 19.9749,-23.9238 19.9757,-24.255 19.976,-24.3789 19.977,-24.5444 19.977,-24.6961 19.9764,-24.7377 19.9764,-24.7658 19.9767,-24.8346 19.9761,-25.0552 19.9752,-25.1932 19.9749,-25.3864 19.9752,-25.5875 19.9745,-25.8417 19.9745,-26.3795 19.9737,-27.0 19.9737,-27.2893 19.9733,-27.3386 19.9726,-27.4548 19.9724,-27.5512 19.9721,-27.8404 19.9727,-28.0335 19.9724,-28.3227 19.9714,-28.3835 19.7868,-28.4604 19.7641,-28.4635 19.718,-28.4535 19.5421,-28.4963 19.4881,-28.5627 19.4686,-28.6008 19.4656,-28.6366 19.4413,-28.6672 19.4226,-28.6784 19.3935,-28.6864 19.3243,-28.7036 19.2977,-28.6952 19.2766,-28.6931 19.2522,-28.699 19.2366,-28.7124 19.2152,-28.7701 19.2231,-28.7993 19.235,-28.8229 19.2292,-28.867 19.159,-28.9047 19.1211,-28.9225 19.0838,-28.9292 18.978,-28.8954 18.9613,-28.8725 18.9459,-28.8452 18.9271,-28.8337 18.695,-28.8039 18.3146,-28.8518 18.158,-28.8761 18.0212,-28.8357 18.0028,-28.8175 17.9784,-28.7946 17.9467,-28.7716 17.8894,-28.7466 17.7269,-28.7142 17.6881,-28.7242 17.6566,-28.7373 17.6205,-28.7415 17.5826,-28.7208 17.5797,-28.6883 17.567,-28.6574 17.4754,-28.6623 17.4388,-28.6704 17.3995,-28.6828 17.3787,-28.6761 17.339,-28.5029 17.363,-28.3923 17.3739,-28.3704 17.3771,-28.3311 17.3755,-28.3104 17.3208,-28.2013 17.2875,-28.1893 17.2566,-28.2063 17.1966,-28.2101 17.1766,-28.192 17.1621,-28.1687 17.1663,-28.1399 17.1671,-28.0823 17.1495,-28.0705 17.1323,-28.0657 17.1122,-28.0553 17.0984,-28.0337 17.086,-28.0144 17.0537,-27.9987 16.8903,-28.036 16.8654,-28.0607 16.801,-28.2059 16.78,-28.3309 16.755,-28.4097 16.698,-28.4668 16.6792,-28.4582 16.6557,-28.4323 16.6038,-28.4639 16.4683,-28.5461 16.4305,-28.5823 16.3721,-28.5591 16.3333,-28.5304 16.151,-28.3671 16.1373,-28.3519 16.0965,-28.3057 16.029,-28.2346 16.0025,-28.2097 15.9769,-28.1975 15.953,-28.1833 15.8781,-28.1311 15.7361,-28.0026 15.7161,-27.9795 15.6694,-27.9248 15.6566,-27.8977 15.6627,-27.8778 15.6514,-27.8419 15.6267,-27.8125 15.5854,-27.7663 15.5504,-27.7361 15.5327,-27.723 15.5112,-27.6992 15.5019,-27.6507 15.5114,-27.6304 15.4991,-27.5958 15.3796,-27.4239 15.3409,-27.3763 15.2744,-27.2919 15.2678,-27.2715 15.245,-27.1841 15.2505,-27.1316 15.216,-26.9391 15.199,-26.9064 15.1828,-26.8929 15.1596,-26.8878 15.1383,-26.8723 15.0934,-26.7538 15.0756,-26.7052 15.0649,-26.6669 15.0605,-26.6199 15.0747,-26.6042 15.1124,-26.6016 15.1173,-26.6446 15.1474,-26.5933 15.1523,-26.5716 15.1118,-26.4488 15.0982,-26.4172 15.0688,-26.3735 15.0283,-26.3451 15.0041,-26.3351 14.9729,-26.3241 14.9506,-26.3105 14.94,-26.2783 14.9283,-26.1081 14.9552,-26.1006 14.9628,-26.0596 14.9619,-26.0342 14.9504,-25.9848 14.9386,-25.9585 14.9164,-25.9337 14.8965,-25.9075 14.8188,-25.733 14.8156,-25.7129 14.8305,-25.6047 14.8458,-25.5614 14.8619,-25.5383 14.822,-25.3899 14.8112,-25.3728 14.7984,-25.3504 14.7821,-25.2519 14.793,-25.2248 14.8154,-25.1591 14.8389,-25.0591 14.838,-25.0305 14.8202,-24.983 14.8134,-24.9714 14.7827,-24.9287 14.7729,-24.9097 14.7686,-24.865 14.7759,-24.8304 14.7608,-24.7761 14.7109,-24.6861 14.6465,-24.6144 14.5884,-24.5509 14.5799,-24.5321 14.5869,-24.4933 14.601,-24.4592 14.596,-24.4339 14.5527,-24.3323 14.5361,-24.3062 14.4929,-24.2244 14.4702,-24.1723 14.4548,-24.1261 14.4448,-24.0762 14.4371,-23.9608 14.442,-23.9314 14.4923,-23.7996 14.4824,-23.5904 14.4772,-23.556 14.4631,-23.5268 14.4229,-23.4248 14.4164,-23.388 14.4235,-23.3665 14.4558,-23.3198 14.4638,-23.3467 14.4783,-23.3244 14.48,-23.2981 14.4647,-23.2133 14.4436,-23.1403 14.4362,-23.1203 14.4496,-23.1289 14.6714,-23.1784 14.6947,-23.1345 14.6721,-23.047 14.6501,-22.9582 14.6513,-22.9061 14.648,-22.6127 14.6262,-22.6136 14.5209,-22.6579 14.5068,-22.6663 14.5094,-22.6425 14.5067,-22.6036 14.4936,-22.5273 14.3989,-22.3092 14.3699,-22.2582 14.2682,-22.0984 14.1104,-21.9158 14.0854,-21.8893 14.0254,-21.8375 13.9355,-21.7545 13.9508,-21.7101 13.9398,-21.6775 13.9184,-21.65 13.8612,-21.5704 13.8489,-21.5246 13.8421,-21.4835 13.7959,-21.4073 13.7623,-21.37 13.6843,-21.272 13.5604,-21.1055 13.3875,-20.8387 13.3686,-20.8011 13.3616,-20.7808 13.3582,-20.758 13.3602,-20.7166 13.3533,-20.6804 13.3368,-20.6235 13.2904,-20.5327 13.2632,-20.4968 13.2368,-20.4462 13.2283,-20.41 13.2262,-20.3793 13.2228,-20.3501 13.2081,-20.285 13.2014,-20.2647 13.183,-20.2156 13.1592,-20.1579 13.1438,-20.1319 13.1246,-20.1085 13.101,-20.0922 13.0686,-20.0767 13.0401,-20.0509 13.0263,-20.0236 13.0147,-19.9789 12.9734,-19.8869 12.9642,-19.8689 12.9545,-19.8509 12.929,-19.8015 12.9122,-19.7671 12.7966,-19.576 12.7759,-19.5427 12.7581,-19.5169 12.6919,-19.396 12.6833,-19.3771 12.6729,-19.3476 12.6248,-19.2401 12.5716,-19.1309 12.527,-19.0461 12.4459,-18.9068 12.4268,-18.8778 12.4037,-18.8454 12.2917,-18.6961 12.276,-18.6797 12.2161,-18.6293 12.1989,-18.6177 12.182,-18.606 12.16,-18.5919 12.1316,-18.5719 12.1111,-18.5568 12.0684,-18.5146 12.0064,-18.4502 11.9833,-18.3926 11.9832,-18.3537 11.9387,-18.2452 11.9296,-18.227 11.8781,-18.1599 11.8329,-18.1188 11.7929,-18.066 11.7533,-17.968 11.7471,-17.9415 11.7279,-17.8102 11.7186,-17.7419 11.7025,-17.5442 11.7025,-17.5193 11.7032,-17.464 11.7065,-17.4375 11.7183,-17.3525 11.7338,-17.3101 11.7357,-17.2897 11.7396,-17.2456 11.7386,-17.2354 11.7976,-17.2506 11.8702,-17.2051 11.8881,-17.1863 11.9187,-17.1613 11.9619,-17.1448 12.0337,-17.1244 12.0733,-17.117 12.1912,-17.1752 12.2234,-17.1957 12.2776,-17.2104 12.4193,-17.1934 12.464,-17.2221 12.542,-17.224 12.5893,-17.2064 12.8025,-17.0877 12.8362,-17.0533 12.8644,-17.0209 12.908,-16.997 12.9702,-16.9717 13.0029,-16.9588 13.1335,-16.9351 13.155,-16.9371 13.1931,-16.9545 13.2451,-16.9656 13.3019,-16.959 13.3303,-16.9515 13.3599,-16.9517 13.456,-16.9914 13.4783,-17.0063 13.5119,-17.0681 13.6443,-17.1993 13.6815,-17.222 13.8247,-17.3039 13.9122,-17.3815 13.9764,-17.4042 13.9999,-17.3913 14.0343,-17.3999 14.066,-17.4102 14.1544,-17.4016 14.1778,-17.3915 14.201,-17.3674 14.3443,-17.3675 14.4306,-17.3678 14.617,-17.3685 14.9759,-17.3699 15.4783,-17.3698 15.5642,-17.3695 15.9375,-17.3669 15.9843,-17.3672 16.5861,-17.371 17.2582,-17.3727 17.4895,-17.3722 17.5406,-17.3711 17.7124,-17.3694 17.979,-17.3664 18.0953,-17.3671 18.1669,-17.3676 18.368,-17.3672 18.4293,-17.3703 18.4912,-17.4532 18.556,-17.5522 18.6196,-17.6282 18.7313,-17.7254 18.7818,-17.7486 18.8965,-17.7963 18.961,-17.8057 19.003,-17.8099 19.0327,-17.8076 19.0939,-17.7992 19.1106,-17.7841 19.1522,-17.7808 19.2224,-17.7863 19.2756,-17.805 19.3139,-17.8238 19.3899,-17.841 19.4223,-17.8424 19.5357,-17.8473 19.6777,-17.8505 19.774,-17.8434 19.7949,-17.8378 19.8964,-17.837 19.9222,-17.8431 19.9471,-17.8601 19.9929,-17.8705 20.0746,-17.876 20.1047,-17.8741 20.2203,-17.8601 20.2465,-17.8412 20.2969,-17.8372 20.4204,-17.8816 20.4679,-17.9218 20.5289,-17.9628 20.5706,-17.9609 20.6134,-17.9582 20.7268,-17.9756 20.7565,-17.9898 20.8291,-17.996 20.8646,-17.9742 20.9282,-17.948 20.9962,-17.9329 21.113,-17.9142 21.1402,-17.9113 21.2112,-17.9187 21.2378,-17.9361 21.3535,-17.9945 21.729,-17.9269 22.2635,-17.8298 22.5369,-17.7789 22.8536,-17.7195 22.8824,-17.7134 22.9687,-17.6968 23.2568,-17.6426 23.261,-17.6412 23.4479,-17.6059 23.4479,-17.6059 19,10.0,Australia 139.2602,-17.1266 139.2552,-17.1243 139.247,-17.1105 139.2401,-17.0965 139.2323,-17.0693 139.3348,-16.9773 139.3701,-16.9993 139.3862,-17.0128 139.4082,-17.0764 139.4021,-17.0856 139.3929,-17.0901 139.3493,-17.0916 139.2995,-17.0804 139.2849,-17.0836 139.2759,-17.0891 139.2666,-17.1002 139.2618,-17.1126 139.2602,-17.1266 139.2602,-17.1266 2441,-3.0,Chile -73.9682,-45.9514 -73.9504,-45.9322 -73.8722,-45.9853 -73.8653,-46.0068 -73.8682,-46.0359 -73.8816,-46.0623 -73.895,-46.0779 -73.9209,-46.0981 -73.9706,-46.1286 -74.0234,-46.1502 -74.0894,-46.1717 -74.2064,-46.1962 -74.2371,-46.198 -74.2677,-46.1888 -74.3108,-46.1662 -74.335,-46.1517 -74.3791,-46.1313 -74.2959,-46.1913 -74.2735,-46.2035 -74.2544,-46.2113 -74.2275,-46.2126 -74.1286,-46.1945 -74.0491,-46.1786 -74.0172,-46.1661 -73.9656,-46.1485 -73.9416,-46.1451 -73.9,-46.237 -73.7964,-46.2845 -73.7673,-46.2932 -73.7584,-46.2944 -73.7477,-46.2845 -73.775,-46.2556 -73.7999,-46.2445 -73.8321,-46.2284 -73.9126,-46.1607 -73.8796,-46.1054 -73.856,-46.0903 -73.788,-46.0861 -73.6582,-46.1883 -73.6625,-46.2434 -73.6719,-46.2804 -73.6868,-46.3096 -73.7035,-46.3337 -73.7749,-46.3955 -73.8065,-46.4188 -73.8889,-46.5061 -73.8072,-46.549 -73.7695,-46.55 -73.7417,-46.5388 -73.7265,-46.5246 -73.6741,-46.4444 -73.6615,-46.4217 -73.639,-46.3686 -73.5965,-46.332 -73.4677,-46.2207 -73.4286,-46.1366 -73.3219,-46.0217 -73.3394,-46.0108 -73.4355,-46.1053 -73.4757,-46.1544 -73.493,-46.1885 -73.5229,-46.2307 -73.5499,-46.2538 -73.5833,-46.2618 -73.5872,-46.218 -73.5803,-46.1975 -73.5682,-46.1804 -73.5459,-46.1461 -73.5305,-46.107 -73.5185,-46.0644 -73.516,-46.0317 -73.5411,-45.972 -73.5613,-45.9277 -73.4396,-45.7577 -73.3376,-45.6756 -73.3187,-45.6614 -73.2871,-45.642 -73.2608,-45.6338 -73.2402,-45.6318 -73.1894,-45.632 -73.1342,-45.6361 -73.1025,-45.6321 -73.0812,-45.6159 -73.2184,-45.5835 -73.2568,-45.5864 -73.2998,-45.5967 -73.3343,-45.6168 -73.3623,-45.6535 -73.376,-45.6687 -73.456,-45.7228 -73.4761,-45.726 -73.4668,-45.6338 -73.4116,-45.4038 -73.2941,-45.326 -73.1915,-45.2735 -73.1124,-45.2498 -73.0813,-45.2708 -73.0739,-45.3024 -73.0428,-45.325 -73.0007,-45.3507 -72.9122,-45.3969 -72.8484,-45.4125 -72.7726,-45.4206 -72.7572,-45.4184 -72.725,-45.3704 -72.7352,-45.3509 -72.7965,-45.3424 -72.818,-45.358 -72.8447,-45.3608 -72.9439,-45.3277 -72.9971,-45.2828 -73.0451,-45.2477 -73.1244,-45.2023 -73.157,-45.1933 -73.1791,-45.1979 -73.2085,-45.2215 -73.2276,-45.2395 -73.2647,-45.243 -73.3117,-45.2393 -73.3362,-45.2353 -73.3543,-45.224 -73.3589,-45.2012 -73.3445,-45.1496 -73.3186,-45.145 -73.2586,-45.143 -73.2391,-45.1364 -73.2028,-45.096 -73.2315,-45.0662 -73.2719,-45.0232 -73.3007,-44.9796 -73.2937,-44.9433 -73.2722,-44.9167 -73.2423,-44.9073 -73.2219,-44.9058 -73.1932,-44.9105 -73.1596,-44.9159 -73.1283,-44.9154 -73.0396,-44.8933 -72.8398,-44.8142 -72.7854,-44.7805 -72.6638,-44.7023 -72.6249,-44.6429 -72.5959,-44.5884 -72.5119,-44.422 -72.5054,-44.3277 -72.5605,-44.3643 -72.6398,-44.4055 -72.7444,-44.3482 -72.8244,-44.2965 -72.8245,-44.2681 -72.917,-44.2372 -72.9813,-44.2225 -73.0125,-44.2198 -73.0542,-44.2137 -73.0816,-44.2022 -73.1795,-44.1278 -73.1866,-44.0968 -73.1767,-44.0645 -73.1078,-44.0183 -73.0346,-43.9734 -73.0339,-43.9354 -72.9992,-43.8824 -72.9154,-43.7595 -72.8897,-43.7599 -72.8442,-43.752 -72.7438,-43.7268 -72.7504,-43.6993 -72.751,-43.6582 -72.7665,-43.6924 -72.7809,-43.7025 -72.8443,-43.7065 -72.94,-43.6842 -72.9442,-43.6494 -72.9374,-43.5323 -73.0042,-43.4162 -73.0142,-43.3934 -72.9797,-43.2649 -72.9592,-43.2472 -72.9202,-43.228 -72.8917,-43.2148 -72.8683,-43.2051 -72.8478,-43.1999 -72.8124,-43.1886 -72.8139,-43.1156 -72.8318,-43.0732 -72.8237,-43.0483 -72.7834,-42.9934 -72.7472,-42.9636 -72.7141,-42.9646 -72.6438,-42.9996 -72.6415,-42.8642 -72.6722,-42.8356 -72.7015,-42.8218 -72.73,-42.7999 -72.7453,-42.7712 -72.7595,-42.7125 -72.7608,-42.6592 -72.7557,-42.5183 -72.7207,-42.4525 -72.6982,-42.4459 -72.6088,-42.4497 -72.5803,-42.4537 -72.5593,-42.4738 -72.4817,-42.5121 -72.4517,-42.5183 -72.4389,-42.506 -72.4642,-42.4749 -72.5114,-42.4656 -72.5437,-42.4545 -72.5833,-42.4302 -72.7482,-42.241 -72.6999,-42.1982 -72.6506,-42.1714 -72.5036,-42.1366 -72.4718,-42.1496 -72.4431,-42.1888 -72.4435,-42.2109 -72.3531,-42.4061 -72.3349,-42.4157 -72.3208,-42.3977 -72.3294,-42.3237 -72.3641,-42.1914 -72.3776,-42.1483 -72.39,-42.075 -72.3878,-42.0474 -72.3814,-42.0094 -72.3739,-41.983 -72.3647,-41.9579 -72.3613,-41.926 -72.38,-41.9155 -72.4226,-41.9162 -72.4567,-41.9457 -72.5221,-41.9746 -72.6484,-41.9603 -72.7258,-41.929 -72.7672,-41.8848 -72.7585,-41.8593 -72.7052,-41.7962 -72.5544,-41.6809 -72.5128,-41.6821 -72.4788,-41.6877 -72.376,-41.669 -72.306,-41.6426 -72.2505,-41.6053 -72.233,-41.5887 -72.2104,-41.3887 -72.2466,-41.3989 -72.2813,-41.5772 -72.304,-41.6089 -72.3757,-41.6361 -72.4783,-41.6616 -72.5115,-41.662 -72.5351,-41.6551 -72.575,-41.6313 -72.6044,-41.5647 -72.6384,-41.529 -72.7046,-41.4697 -72.7431,-41.4535 -72.8352,-41.4364 -72.9117,-41.4536 -72.9443,-41.4637 -73.0057,-41.5371 -72.992,-41.5768 -72.9724,-41.59 -72.9583,-41.6484 -73.0281,-41.7037 -73.0944,-41.7406 -73.1281,-41.7451 -73.1986,-41.733 -73.231,-41.7255 -73.2975,-41.7269 -73.3173,-41.7332 -73.3656,-41.7503 -73.3922,-41.7571 -73.4091,-41.758 -73.473,-41.727 -73.5914,-41.7092 -73.6436,-41.707 -73.6281,-41.6306 -73.583,-41.5795 -73.565,-41.5699 -73.5318,-41.5687 -73.4987,-41.5725 -73.4613,-41.5638 -73.3963,-41.4729 -73.4272,-41.4949 -73.4478,-41.5289 -73.4674,-41.5489 -73.4958,-41.5558 -73.6159,-41.5465 -73.6767,-41.5174 -73.7694,-41.4322 -73.7712,-41.3953 -73.753,-41.3632 -73.7567,-41.2958 -73.7686,-41.2573 -73.8033,-41.1839 -73.8186,-41.1687 -73.8353,-41.1539 -73.8505,-41.1285 -73.8705,-41.033 -73.8927,-40.9206 -73.8448,-40.8116 -73.7303,-40.5763 -73.6849,-40.5308 -73.6446,-40.4638 -73.6518,-40.4264 -73.6804,-40.3718 -73.6265,-40.13 -73.5739,-40.0816 -73.5591,-40.0673 -73.5639,-40.0089 -73.5744,-39.9828 -73.6011,-39.9586 -73.6147,-39.9367 -73.5944,-39.9122 -73.5791,-39.8987 -73.3914,-39.8284 -73.3044,-39.84 -73.2784,-39.8099 -73.2801,-39.6916 -73.2069,-39.5457 -73.1914,-39.5236 -73.1556,-39.4518 -73.1254,-39.3725 -73.1471,-39.3413 -73.1215,-39.3067 -73.1286,-39.1965 -73.1847,-39.0412 -73.2604,-38.8731 -73.3618,-38.6471 -73.395,-38.5613 -73.4206,-38.4938 -73.4248,-38.4732 -73.4444,-38.3748 -73.4426,-38.3425 -73.4253,-38.2847 -73.4073,-38.2781 -73.4228,-38.2261 -73.4074,-38.2012 -73.3877,-38.1848 -73.3751,-38.1637 -73.3576,-38.0143 -73.3699,-37.9734 -73.3929,-37.9208 -73.4382,-37.835 -73.5089,-37.7384 -73.5704,-37.6842 -73.5887,-37.5613 -73.5758,-37.5349 -73.5387,-37.4972 -73.5082,-37.4728 -73.497,-37.4344 -73.5016,-37.3973 -73.5204,-37.3661 -73.5436,-37.3427 -73.5699,-37.3244 -73.58,-37.3052 -73.5427,-37.1576 -73.5313,-37.1352 -73.4901,-37.1105 -73.446,-37.1508 -73.4203,-37.1643 -73.3401,-37.1931 -73.2975,-37.1929 -73.2772,-37.192 -73.2511,-37.1887 -73.1968,-37.1762 -73.1552,-37.1605 -73.1307,-37.1458 -73.1073,-37.1199 -73.0925,-37.0927 -73.0682,-37.0158 -73.0491,-36.8344 -73.0335,-36.6413 -72.9978,-36.6541 -72.9748,-36.6729 -72.9439,-36.6792 -72.9198,-36.6789 -72.8999,-36.6719 -72.886,-36.6577 -72.8664,-36.5826 -72.8286,-36.4705 -72.7838,-36.3732 -72.7412,-36.2844 -72.7207,-36.0805 -72.701,-35.9344 -72.6863,-35.92 -72.6675,-35.9093 -72.6174,-35.8719 -72.5094,-35.783 -72.4968,-35.7622 -72.4885,-35.7306 -72.4901,-35.6942 -72.5143,-35.6467 -72.5563,-35.5617 -72.5533,-35.5341 -72.5315,-35.512 -72.4897,-35.4933 -72.4211,-35.4452 -72.3572,-35.3133 -72.3222,-35.2295 -72.3072,-35.2053 -72.2649,-35.1638 -72.233,-35.1464 -72.1941,-35.128 -72.1374,-35.0823 -72.1171,-35.0458 -72.108,-35.0009 -72.1051,-34.9714 -72.1041,-34.9364 -72.1018,-34.9068 -72.0937,-34.8528 -72.0388,-34.7523 -72.0167,-34.7329 -71.9971,-34.7079 -71.9733,-34.6484 -71.9633,-34.6097 -71.9483,-34.4771 -71.9559,-34.4178 -71.9588,-34.3793 -71.9378,-34.3504 -71.9007,-34.3334 -71.8906,-34.3072 -71.8914,-34.256 -71.8979,-34.1824 -71.919,-34.1589 -71.9266,-34.1391 -71.923,-34.106 -71.8041,-33.9251 -71.7766,-33.8959 -71.7703,-33.8762 -71.7463,-33.804 -71.712,-33.7361 -71.6854,-33.7278 -71.65,-33.7222 -71.6209,-33.7098 -71.586,-33.6841 -71.5672,-33.6445 -71.5619,-33.6245 -71.5554,-33.5928 -71.5466,-33.5169 -71.5649,-33.4549 -71.6011,-33.334 -71.6129,-33.2177 -71.6628,-33.0681 -71.6526,-33.0496 -71.6047,-33.0522 -71.4761,-32.9722 -71.4303,-32.8629 -71.4057,-32.7259 -71.3647,-32.6572 -71.3536,-32.6281 -71.3493,-32.5976 -71.3487,-32.4547 -71.3132,-32.3576 -71.3768,-32.2642 -71.418,-32.2112 -71.4451,-32.1509 -71.4389,-32.0555 -71.4278,-32.0073 -71.4212,-31.9844 -71.4132,-31.9442 -71.4122,-31.8578 -71.4184,-31.7368 -71.4324,-31.7086 -71.4474,-31.6776 -71.4717,-31.5765 -71.4723,-31.5146 -71.4763,-31.4878 -71.5279,-31.2802 -71.5661,-31.1464 -71.5733,-31.1277 -71.5737,-31.0965 -71.5679,-31.073 -71.5607,-31.0427 -71.5562,-30.9512 -71.5673,-30.916 -71.5829,-30.8929 -71.5882,-30.8698 -71.6101,-30.7272 -71.6094,-30.6236 -71.6052,-30.5255 -71.6027,-30.4724 -71.5852,-30.3079 -71.5522,-30.2395 -71.5223,-30.2298 -71.5099,-30.2464 -71.4771,-30.2571 -71.453,-30.2584 -71.4178,-30.243 -71.3131,-30.152 -71.2931,-30.1213 -71.1973,-29.8759 -71.1995,-29.801 -71.2292,-29.7731 -71.2476,-29.7138 -71.2434,-29.5178 -71.2286,-29.4419 -71.2162,-29.4085 -71.217,-29.3855 -71.2492,-29.2912 -71.2635,-29.2703 -71.2881,-29.2497 -71.3417,-29.2158 -71.3657,-29.2036 -71.3871,-29.1893 -71.3981,-29.1669 -71.4006,-29.151 -71.3854,-29.0754 -71.415,-28.9425 -71.4175,-28.8625 -71.4096,-28.8371 -71.3751,-28.8033 -71.2845,-28.7259 -71.2036,-28.6386 -71.1952,-28.5854 -71.1907,-28.5258 -71.1661,-28.4822 -71.1378,-28.4429 -71.071,-28.3171 -71.0654,-28.2031 -71.0646,-28.1224 -71.0484,-27.9298 -71.0134,-27.8127 -70.9902,-27.7534 -70.9536,-27.6917 -70.9165,-27.6456 -70.8732,-27.6279 -70.8224,-27.5935 -70.8007,-27.4569 -70.8177,-27.4035 -70.8447,-27.3032 -70.8754,-27.1487 -70.8668,-27.1242 -70.8537,-27.0974 -70.8317,-27.0816 -70.7728,-27.0701 -70.7226,-27.0088 -70.6941,-26.9583 -70.7098,-26.8967 -70.7267,-26.8631 -70.7326,-26.8367 -70.6645,-26.6847 -70.6117,-26.5663 -70.6024,-26.5321 -70.5918,-26.4065 -70.5476,-26.2717 -70.5776,-26.1708 -70.5778,-26.1369 -70.5676,-26.0578 -70.5404,-26.0135 -70.5363,-25.9933 -70.5401,-25.9611 -70.5598,-25.9065 -70.5877,-25.8797 -70.6073,-25.8594 -70.6407,-25.7868 -70.6086,-25.6813 -70.5922,-25.6352 -70.5431,-25.538 -70.4836,-25.4672 -70.4467,-25.4424 -70.3605,-25.3369 -70.3437,-25.2319 -70.343,-25.1741 -70.3657,-25.1187 -70.4127,-25.0604 -70.4076,-24.9277 -70.4394,-24.8694 -70.4578,-24.8142 -70.4944,-24.6881 -70.4778,-24.5299 -70.4587,-24.3696 -70.4502,-24.3216 -70.463,-24.3009 -70.4454,-24.2182 -70.4297,-24.1677 -70.4188,-24.1484 -70.411,-24.0791 -70.4162,-24.0195 -70.433,-23.984 -70.4335,-23.9497 -70.4235,-23.8252 -70.4104,-23.7566 -70.3803,-23.7198 -70.3544,-23.7011 -70.3383,-23.6735 -70.3183,-23.6274 -70.3086,-23.6002 -70.3023,-23.5769 -70.3032,-23.5352 -70.312,-23.5041 -70.3246,-23.4729 -70.338,-23.4583 -70.3715,-23.4365 -70.3995,-23.4231 -70.4216,-23.4314 -70.4487,-23.4874 -70.534,-23.4731 -70.5117,-23.3523 -70.5063,-23.2057 -70.487,-23.0408 -70.4516,-23.0041 -70.416,-22.9892 -70.4085,-23.0331 -70.3892,-23.0572 -70.3288,-23.0469 -70.2968,-23.032 -70.2774,-23.0158 -70.2602,-22.997 -70.2485,-22.9794 -70.2192,-22.9165 -70.199,-22.861 -70.204,-22.8321 -70.213,-22.8102 -70.2227,-22.7648 -70.196,-22.6204 -70.1707,-22.4267 -70.1552,-22.2886 -70.1363,-22.1372 -70.1209,-22.0741 -70.1003,-22.0003 -70.0624,-21.7467 -70.0669,-21.7159 -70.0682,-21.6492 -70.0506,-21.5948 -70.0054,-21.558 -69.9995,-21.5078 -69.9675,-21.4015 -69.9994,-21.3429 -70.0046,-21.3119 -69.9812,-21.2783 -70.0363,-21.0827 -70.0602,-21.0318 -70.0817,-20.9889 -70.0655,-20.9339 -70.0473,-20.9019 -70.0542,-20.8493 -70.0709,-20.8216 -70.0875,-20.8092 -70.1247,-20.7783 -70.0832,-20.372 -70.0544,-20.281 -70.049,-20.2542 -70.0752,-20.1916 -70.0644,-20.1159 -70.0505,-20.0868 -70.041,-20.0574 -70.039,-19.98 -70.0394,-19.9519 -70.0534,-19.8854 -70.0691,-19.7755 -70.0894,-19.6222 -70.1198,-19.4682 -70.155,-19.3468 -70.1774,-19.3077 -70.1988,-19.27 -70.1952,-19.1865 -70.1833,-19.1616 -70.1861,-19.1198 -70.2334,-18.8708 -70.2377,-18.8492 -70.2541,-18.8082 -70.2641,-18.613 -70.2541,-18.5555 -70.2267,-18.4168 -70.2528,-18.3801 -70.2777,-18.3555 -70.3108,-18.3309 -70.3201,-18.3276 -70.3047,-18.3144 -70.2818,-18.302 -70.2425,-18.2988 -70.1637,-18.3071 -70.1156,-18.3095 -70.0928,-18.3083 -70.0473,-18.3006 -69.9058,-18.2495 -69.8737,-18.229 -69.7828,-18.1371 -69.7597,-18.1119 -69.7119,-18.0194 -69.7016,-17.995 -69.6897,-17.9651 -69.6851,-17.9322 -69.7278,-17.7811 -69.7371,-17.7625 -69.7536,-17.7476 -69.765,-17.7291 -69.7614,-17.6882 -69.7503,-17.6614 -69.7302,-17.6323 -69.6856,-17.637 -69.6497,-17.6399 -69.5994,-17.6435 -69.5458,-17.5974 -69.4155,-17.4853 -69.4031,-17.613 -69.2921,-17.7067 -69.2715,-17.7255 -69.2435,-17.7773 -69.2345,-17.8049 -69.2372,-17.8719 -69.2313,-17.9065 -69.2222,-17.9355 -69.2074,-17.9593 -69.0498,-18.0085 -68.991,-18.0176 -68.9892,-18.0479 -68.9987,-18.0663 -69.0347,-18.0884 -69.0558,-18.1047 -69.0649,-18.1303 -69.0515,-18.1591 -69.0305,-18.1804 -69.007,-18.2074 -69.0018,-18.265 -68.9907,-18.3713 -68.9764,-18.3935 -68.9559,-18.4201 -68.9461,-18.4385 -68.9394,-18.4624 -68.9418,-18.4867 -68.9485,-18.5389 -68.9454,-18.5904 -68.9405,-18.6377 -68.9167,-18.7217 -68.8675,-18.8244 -68.849,-18.8615 -68.8819,-18.9315 -68.8161,-19.0432 -68.6987,-19.1202 -68.6572,-19.156 -68.5748,-19.2454 -68.5588,-19.2604 -68.5247,-19.2755 -68.4992,-19.282 -68.4677,-19.2974 -68.4083,-19.347 -68.3604,-19.4116 -68.4678,-19.5177 -68.4889,-19.5445 -68.5185,-19.5855 -68.6035,-19.6813 -68.6062,-19.7204 -68.5424,-19.7633 -68.4833,-19.8116 -68.4398,-19.8937 -68.4942,-20.031 -68.5272,-20.0289 -68.5669,-20.0339 -68.6935,-20.0664 -68.7009,-20.0919 -68.6829,-20.1139 -68.6375,-20.2151 -68.6201,-20.3151 -68.6511,-20.3294 -68.671,-20.3505 -68.6685,-20.4008 -68.6552,-20.4271 -68.6409,-20.4477 -68.6073,-20.482 -68.5781,-20.5 -68.5458,-20.5153 -68.5159,-20.5269 -68.4871,-20.5356 -68.4658,-20.5443 -68.4088,-20.5815 -68.3833,-20.6073 -68.3886,-20.6272 -68.4254,-20.6484 -68.4452,-20.6643 -68.4814,-20.7106 -68.4818,-20.8467 -68.4762,-20.8679 -68.4687,-20.8813 -68.4481,-20.9028 -68.4221,-20.9138 -68.3952,-20.9181 -68.3699,-20.9159 -68.3405,-20.9153 -68.1462,-21.2093 -68.1049,-21.2729 -68.1022,-21.5852 -68.0861,-21.6034 -68.0551,-21.6423 -68.0383,-21.6734 -68.0214,-21.7208 -68.0067,-21.7952 -68.0036,-21.8182 -68.0022,-21.8555 -68.0035,-21.8885 -68.0014,-21.9367 -67.9132,-22.0219 -67.8889,-22.0352 -67.8608,-22.0797 -67.8387,-22.214 -67.8388,-22.2486 -67.8488,-22.2751 -67.8067,-22.4012 -67.7657,-22.5294 -67.7998,-22.6872 -67.7921,-22.8022 -67.709,-22.8522 -67.4952,-22.8751 -67.4161,-22.8597 -67.2513,-22.8268 -67.1002,-22.7958 -67.0214,-22.8746 -66.9175,-22.977 -66.9642,-23.098 -67.0101,-23.215 -67.0548,-23.3321 -67.0673,-23.3655 -67.107,-23.502 -67.1669,-23.7063 -67.2515,-23.9945 -67.4924,-24.0944 -67.5549,-24.1203 -67.8138,-24.2267 -68.1043,-24.344 -68.1677,-24.371 -68.1916,-24.4197 -68.2329,-24.4692 -68.2797,-24.4624 -68.3047,-24.4762 -68.3766,-24.5768 -68.4218,-24.6426 -68.4543,-24.7017 -68.4808,-24.754 -68.4844,-24.7852 -68.4618,-24.8416 -68.4137,-24.8671 -68.2687,-25.0928 -68.3331,-25.1244 -68.3986,-25.1341 -68.4098,-25.1427 -68.4276,-25.1703 -68.4426,-25.2235 -68.4472,-25.2415 -68.4521,-25.2455 -68.4725,-25.2869 -68.4849,-25.3174 -68.5055,-25.3946 -68.51,-25.4148 -68.5121,-25.4452 -68.509,-25.4695 -68.4656,-25.5888 -68.4136,-25.6893 -68.4059,-25.7138 -68.3668,-25.8762 -68.3122,-26.1298 -68.3319,-26.1582 -68.392,-26.2084 -68.4319,-26.2338 -68.4574,-26.2523 -68.4764,-26.2745 -68.4894,-26.321 -68.4931,-26.3524 -68.4971,-26.4067 -68.4975,-26.4274 -68.4956,-26.4753 -68.4901,-26.4956 -68.4801,-26.5155 -68.453,-26.5544 -68.4077,-26.6031 -68.3623,-26.6513 -68.3485,-26.6663 -68.3366,-26.6824 -68.2079,-26.8614 -68.1999,-26.8825 -68.2352,-26.993 -68.2658,-27.0099 -68.3043,-27.0282 -68.323,-27.0359 -68.5576,-27.1077 -68.6066,-27.0793 -68.6502,-27.0728 -68.6939,-27.0755 -68.7188,-27.0879 -68.759,-27.1454 -68.7782,-27.1787 -68.7892,-27.2095 -68.7809,-27.248 -68.8147,-27.3332 -68.9561,-27.5706 -68.9843,-27.5996 -69.0239,-27.7017 -69.0314,-27.7428 -69.066,-27.8714 -69.0752,-27.8941 -69.0883,-27.9205 -69.1039,-27.9391 -69.1328,-27.9453 -69.1696,-27.9488 -69.2066,-27.9652 -69.2365,-28.0277 -69.248,-28.0716 -69.2609,-28.0943 -69.3093,-28.1487 -69.4419,-28.2823 -69.5152,-28.3362 -69.5653,-28.3689 -69.5719,-28.5092 -69.5792,-28.5434 -69.6107,-28.5587 -69.6558,-28.6377 -69.656,-28.6868 -69.6494,-28.7093 -69.6393,-28.7317 -69.6329,-28.7653 -69.667,-28.854 -69.6985,-28.9842 -69.6964,-29.038 -69.7023,-29.063 -69.7155,-29.0807 -69.7477,-29.1 -69.8111,-29.1062 -69.8696,-29.1682 -69.9382,-29.2581 -69.944,-29.319 -69.9383,-29.3419 -69.9124,-29.3907 -69.8741,-29.5023 -69.8691,-29.5223 -69.866,-29.567 -69.873,-29.5952 -69.8779,-29.6222 -69.8721,-29.6447 -69.8593,-29.661 -69.8264,-29.68 -69.8238,-29.687 -69.8144,-29.7659 -69.8168,-29.8843 -69.8279,-29.9403 -69.8341,-29.9662 -69.7727,-30.07 -69.7507,-30.0865 -69.7382,-30.11 -69.7407,-30.1564 -69.8079,-30.291 -69.8476,-30.3384 -69.9074,-30.3611 -69.9388,-30.3635 -69.9604,-30.3606 -70.0427,-30.4053 -70.1203,-30.525 -70.161,-30.6033 -70.1779,-30.6437 -70.2249,-30.7902 -70.2356,-30.8563 -70.24,-30.8964 -70.2365,-30.9221 -70.1998,-30.961 -70.2035,-30.9946 -70.2705,-31.0579 -70.3384,-31.0786 -70.3598,-31.0595 -70.4289,-31.1241 -70.4394,-31.1463 -70.4684,-31.2873 -70.4754,-31.4338 -70.4873,-31.4947 -70.4947,-31.5284 -70.367,-31.7965 -70.3547,-31.8131 -70.3386,-31.8326 -70.3203,-31.8431 -70.2816,-31.8503 -70.2481,-31.8486 -70.2124,-31.8463 -70.193,-31.856 -70.146,-31.9026 -70.1407,-31.9292 -70.1733,-32.0062 -70.2152,-32.0115 -70.2571,-32.0507 -70.2255,-32.192 -70.2292,-32.2291 -70.2215,-32.2479 -70.1528,-32.2733 -70.1394,-32.3053 -70.0626,-32.4394 -70.0552,-32.4695 -70.0608,-32.5065 -70.073,-32.5446 -70.0793,-32.5911 -70.0535,-32.7224 -69.9538,-32.8171 -69.9022,-32.8392 -69.9297,-32.912 -69.9804,-32.9686 -70.0082,-33.0145 -69.9932,-33.0398 -69.9998,-33.0854 -70.0093,-33.1159 -70.0044,-33.142 -69.9093,-33.2612 -69.8847,-33.2583 -69.8644,-33.2277 -69.8364,-33.2033 -69.8114,-33.1998 -69.7843,-33.2078 -69.7126,-33.2416 -69.6841,-33.3495 -69.6927,-33.3753 -69.7183,-33.4002 -69.7786,-33.5175 -69.814,-33.7406 -69.8131,-33.7894 -69.7933,-33.8538 -69.7574,-34.0587 -69.7266,-34.1962 -69.7973,-34.2398 -69.8438,-34.2373 -69.8663,-34.232 -69.8951,-34.2312 -69.9386,-34.2382 -69.9564,-34.2473 -69.9615,-34.2573 -69.961,-34.3162 -69.9545,-34.3615 -70.0587,-34.493 -70.1414,-34.6228 -70.206,-34.8143 -70.2683,-34.9576 -70.2707,-34.965 -70.2717,-35.0033 -70.2705,-35.0395 -70.2666,-35.0609 -70.2717,-35.1051 -70.2897,-35.1294 -70.3596,-35.1587 -70.3908,-35.1635 -70.4248,-35.1652 -70.4489,-35.1706 -70.4734,-35.2021 -70.4754,-35.2283 -70.4586,-35.2569 -70.4414,-35.2681 -70.3304,-35.3246 -70.3048,-35.4749 -70.3127,-35.5745 -70.3269,-35.5949 -70.3169,-35.6322 -70.2828,-35.6948 -70.2522,-35.7708 -70.2834,-35.7928 -70.3106,-35.8304 -70.3196,-35.8525 -70.3156,-35.9306 -70.3041,-36.035 -70.3325,-36.0952 -70.3468,-36.1107 -70.3757,-36.1232 -70.4124,-36.1215 -70.4963,-36.124 -70.6123,-36.2297 -70.6264,-36.3032 -70.6038,-36.3499 -70.6144,-36.3733 -70.8599,-36.4458 -70.8891,-36.4426 -70.9235,-36.4347 -70.9414,-36.4426 -70.9617,-36.5058 -71.0438,-36.7003 -71.0928,-36.804 -71.0552,-36.9337 -71.0194,-37.0725 -71.0366,-37.15 -71.0541,-37.1941 -71.0892,-37.2264 -71.1026,-37.2602 -71.0729,-37.337 -71.0515,-37.3634 -71.0241,-37.3927 -71.015,-37.4165 -71.0291,-37.5458 -71.0633,-37.5663 -71.0816,-37.5839 -71.0883,-37.6166 -71.0857,-37.6538 -71.0667,-37.7028 -71.0432,-37.7484 -71.0361,-37.7714 -71.0298,-37.7949 -71.0007,-37.8396 -70.9041,-38.0273 -70.9063,-38.1111 -70.9145,-38.161 -70.9188,-38.1845 -70.9085,-38.2419 -70.877,-38.3723 -70.8556,-38.4074 -70.8127,-38.4428 -70.7861,-38.4554 -70.7496,-38.4786 -70.7311,-38.5125 -70.7351,-38.5444 -70.7673,-38.6464 -70.8287,-38.697 -70.851,-38.7055 -70.8997,-38.7044 -70.9313,-38.7018 -70.9583,-38.7047 -71.0028,-38.7225 -71.1435,-38.7871 -71.2388,-38.832 -71.2652,-38.845 -71.2981,-38.8695 -71.3148,-38.8916 -71.3229,-38.9165 -71.3268,-38.9699 -71.3263,-38.9955 -71.3162,-39.0221 -71.3063,-39.0856 -71.2918,-39.196 -71.3069,-39.2856 -71.354,-39.3908 -71.3888,-39.5169 -71.3959,-39.5544 -71.4105,-39.573 -71.5022,-39.5765 -71.5282,-39.5671 -71.5697,-39.522 -71.5853,-39.5227 -71.5927,-39.5309 -71.6119,-39.5821 -71.6079,-39.6825 -71.5724,-39.8094 -71.5358,-39.9055 -71.5692,-40.0023 -71.6519,-40.044 -71.6932,-40.0696 -71.7201,-40.1589 -71.6933,-40.2002 -71.6217,-40.2568 -71.6046,-40.2332 -71.5707,-40.2513 -71.566,-40.289 -71.6036,-40.3587 -71.6177,-40.3779 -71.6376,-40.3818 -71.6605,-40.3645 -71.6816,-40.3633 -71.7393,-40.4858 -71.7422,-40.5277 -71.7408,-40.5548 -71.7609,-40.5975 -71.7807,-40.6191 -71.8016,-40.6354 -71.8319,-40.6552 -71.8513,-40.6808 -71.8154,-40.76 -71.7644,-40.8444 -71.7514,-40.8661 -71.7394,-40.9091 -71.7605,-40.9647 -71.7417,-41.0124 -71.7623,-41.1951 -71.7672,-41.2191 -71.7846,-41.2471 -71.7998,-41.3097 -71.7941,-41.34 -71.7834,-41.3591 -71.7688,-41.3857 -71.7507,-41.5024 -71.7929,-41.5568 -71.8151,-41.5763 -71.8154,-41.6048 -71.751,-41.7191 -71.6885,-41.8136 -71.6784,-41.8398 -71.6642,-41.8987 -71.6606,-41.9521 -71.6321,-41.9818 -71.6271,-42.0473 -71.6779,-42.0827 -71.8075,-42.1283 -71.8382,-42.1243 -71.8483,-42.0989 -71.8621,-42.0815 -71.8939,-42.0766 -71.9177,-42.0861 -71.9384,-42.1014 -72.0304,-42.2373 -72.0088,-42.2677 -71.9818,-42.2851 -71.9567,-42.3012 -71.9447,-42.3209 -72.0112,-42.4786 -72.026,-42.499 -72.0347,-42.5209 -72.0388,-42.5425 -72.028,-42.6203 -72.0104,-42.6722 -72.0071,-42.7119 -72.0015,-42.8059 -72.0042,-42.833 -72.0133,-42.8654 -72.026,-42.8877 -72.033,-42.9072 -72.0364,-42.957 -72.0175,-42.9902 -71.9778,-43.0398 -71.9522,-43.0556 -71.8991,-43.0729 -71.8587,-43.072 -71.8308,-43.0733 -71.7677,-43.0775 -71.7355,-43.0838 -71.6396,-43.127 -71.6333,-43.2293 -71.6399,-43.2485 -71.6588,-43.2581 -71.6952,-43.2516 -71.7953,-43.2762 -71.8293,-43.3376 -71.8352,-43.4038 -71.7484,-43.4511 -71.6014,-43.5519 -71.5904,-43.6167 -71.6026,-43.6394 -71.6662,-43.6702 -71.6858,-43.6762 -71.7069,-43.6847 -71.7073,-43.7134 -71.6559,-43.7694 -71.5981,-43.8169 -71.5482,-43.8664 -71.5466,-43.8881 -71.5553,-43.9063 -71.6462,-44.0089 -71.6787,-44.0338 -71.7174,-44.112 -71.6997,-44.1398 -71.6933,-44.1654 -71.6966,-44.2779 -71.7423,-44.3017 -71.7527,-44.3221 -71.7271,-44.3497 -71.6781,-44.3573 -71.5258,-44.3595 -71.4451,-44.3591 -71.3805,-44.3521 -71.301,-44.3498 -71.0957,-44.3796 -71.062,-44.4006 -71.009,-44.4846 -71.022,-44.5179 -71.0451,-44.5358 -71.0899,-44.541 -71.1319,-44.6125 -71.1274,-44.6376 -71.1204,-44.6661 -71.126,-44.6958 -71.1776,-44.7472 -71.2054,-44.7527 -71.2393,-44.7522 -71.2694,-44.7453 -71.2956,-44.7361 -71.3426,-44.7105 -71.371,-44.696 -71.3914,-44.6929 -71.4178,-44.6931 -71.4552,-44.7034 -71.508,-44.7235 -71.5284,-44.7289 -71.5529,-44.7317 -71.5728,-44.7263 -71.5927,-44.7192 -71.6137,-44.7131 -71.6704,-44.7044 -71.6941,-44.7121 -71.7127,-44.7339 -71.7401,-44.7415 -71.8504,-44.7319 -71.8731,-44.7253 -71.8929,-44.7183 -71.9182,-44.708 -71.946,-44.7031 -71.974,-44.7153 -71.9807,-44.7362 -71.9657,-44.8507 -71.8334,-44.871 -71.7058,-44.8795 -71.6401,-44.8859 -71.4819,-44.9241 -71.4486,-44.9477 -71.398,-45.0242 -71.2296,-45.1797 -71.1987,-45.2533 -71.3672,-45.4254 -71.5055,-45.4704 -71.5286,-45.4694 -71.549,-45.472 -71.5718,-45.4756 -71.6118,-45.4869 -71.6497,-45.5066 -71.6811,-45.6027 -71.6911,-45.6768 -71.6528,-45.7967 -71.6234,-45.8095 -71.5935,-45.8166 -71.5487,-45.831 -71.5283,-45.8509 -71.5034,-45.9244 -71.5374,-45.9443 -71.5437,-45.9468 -71.5646,-45.9599 -71.5986,-45.9918 -71.6196,-46.0155 -71.6395,-46.0438 -71.6644,-46.0642 -71.6917,-46.0726 -71.7226,-46.0776 -71.7494,-46.0797 -71.8002,-46.0962 -71.7332,-46.148 -71.699,-46.1567 -71.6656,-46.1686 -71.6449,-46.1942 -71.6394,-46.2185 -71.6232,-46.3775 -71.5883,-46.4373 -71.5687,-46.4852 -71.5646,-46.5992 -71.571,-46.6303 -71.5846,-46.6491 -71.7115,-46.7324 -71.7479,-46.7431 -71.8148,-46.7463 -71.8368,-46.7624 -71.8735,-46.9806 -71.7899,-47.0616 -71.76,-47.0855 -71.7495,-47.1186 -71.7652,-47.1643 -71.78,-47.1785 -71.9141,-47.2231 -71.978,-47.2986 -72.0557,-47.3565 -72.0906,-47.3643 -72.1264,-47.3562 -72.1528,-47.3566 -72.1895,-47.3654 -72.2101,-47.3717 -72.2317,-47.381 -72.2465,-47.3955 -72.2553,-47.4236 -72.2377,-47.4356 -72.2045,-47.4508 -72.2255,-47.5413 -72.2357,-47.563 -72.2489,-47.5818 -72.2701,-47.6051 -72.3,-47.6372 -72.3246,-47.6662 -72.3516,-47.7084 -72.4304,-47.8603 -72.4267,-47.8862 -72.4103,-47.9059 -72.3738,-47.9335 -72.3452,-47.9461 -72.3024,-47.9532 -72.2175,-48.0232 -72.1954,-48.1349 -72.1871,-48.2922 -72.3211,-48.3495 -72.3855,-48.3672 -72.4515,-48.3912 -72.4725,-48.4012 -72.4899,-48.4172 -72.4983,-48.4383 -72.485,-48.4778 -72.474,-48.509 -72.4681,-48.5315 -72.4554,-48.5955 -72.4502,-48.6382 -72.4463,-48.6752 -72.4462,-48.7206 -72.4551,-48.7431 -72.4807,-48.7684 -72.6025,-48.8474 -72.6306,-48.8633 -72.6488,-48.8718 -72.6748,-48.8815 -72.7041,-48.8896 -72.7497,-48.8957 -72.7891,-48.8944 -72.8091,-48.8979 -72.845,-48.9082 -72.8755,-48.9219 -72.8996,-48.9417 -72.9701,-49.0114 -73.0693,-49.1652 -73.067,-49.186 -73.0602,-49.1959 -72.9791,-49.2107 -73.0285,-49.2475 -73.0606,-49.2477 -73.3151,-49.2529 -73.3566,-49.2547 -73.4316,-49.3861 -73.4736,-49.4837 -73.4603,-49.5022 -73.4066,-49.548 -73.3377,-49.7334 -73.357,-49.752 -73.3926,-49.7738 -73.42,-49.7953 -73.4451,-49.8829 -73.4055,-49.9108 -73.3807,-49.9259 -73.3605,-49.9439 -73.3644,-49.9742 -73.3912,-49.9986 -73.4144,-50.0296 -73.4258,-50.062 -73.4117,-50.0905 -73.3748,-50.1089 -73.3258,-50.1331 -73.2386,-50.1782 -73.2214,-50.1912 -73.207,-50.2088 -73.1668,-50.2703 -73.1557,-50.2972 -73.1383,-50.4418 -73.1176,-50.5392 -73.0651,-50.6809 -73.0467,-50.7001 -73.0254,-50.7108 -72.9974,-50.7135 -72.9721,-50.7096 -72.9409,-50.7029 -72.9066,-50.6906 -72.8728,-50.671 -72.8458,-50.6473 -72.8149,-50.6202 -72.795,-50.6088 -72.7622,-50.5955 -72.6555,-50.562 -72.6263,-50.5622 -72.5981,-50.5786 -72.5805,-50.5937 -72.5606,-50.6052 -72.5288,-50.6131 -72.4964,-50.6102 -72.4766,-50.6011 -72.4543,-50.5725 -72.4326,-50.555 -72.4081,-50.5473 -72.3812,-50.5442 -72.2602,-50.5557 -72.1839,-50.594 -72.1902,-50.6185 -72.2285,-50.6728 -72.2239,-50.6972 -72.1924,-50.7215 -72.1699,-50.7416 -72.1438,-50.7726 -72.1323,-50.7955 -72.155,-50.9515 -72.1708,-50.971 -72.223,-50.9749 -72.2838,-51.0486 -72.2646,-51.0994 -72.2406,-51.1203 -72.2151,-51.1325 -72.179,-51.1449 -72.1382,-51.1781 -72.1513,-51.2054 -72.1807,-51.225 -72.1997,-51.2516 -72.2013,-51.2996 -72.1978,-51.3393 -72.2352,-51.4249 -72.257,-51.439 -72.2882,-51.4537 -72.1763,-51.6362 -72.1457,-51.6469 -72.0959,-51.6521 -72.0689,-51.6596 -72.0482,-51.6681 -72.0227,-51.6797 -71.9749,-51.7042 -71.847,-51.7943 -71.8297,-51.8207 -71.8293,-51.8537 -71.7973,-51.9351 -71.5816,-51.9363 -71.1214,-51.9369 -70.5511,-51.9367 -70.324,-51.9367 -69.9998,-51.9358 -69.9566,-51.9356 -69.8884,-51.9356 -69.833,-51.9502 -69.7778,-51.9654 -69.6557,-51.9998 -69.3515,-52.083 -69.1779,-52.0831 -69.1244,-52.0826 -68.9236,-52.1338 -68.8821,-52.1451 -68.8266,-52.1698 -68.7707,-52.195 -68.7196,-52.2187 -68.6184,-52.229 -68.5397,-52.2361 -68.4668,-52.2442 -68.3274,-52.2676 -68.3331,-52.3165 -68.3692,-52.2725 -68.4001,-52.264 -68.5704,-52.2461 -68.6895,-52.2425 -68.7096,-52.2436 -68.8333,-52.2287 -68.8733,-52.2191 -68.8938,-52.2102 -68.9114,-52.2008 -68.9346,-52.1876 -68.959,-52.1749 -69.0077,-52.1562 -69.0428,-52.1465 -69.0788,-52.144 -69.1009,-52.1437 -69.1589,-52.1473 -69.335,-52.1957 -69.3601,-52.208 -69.3728,-52.2247 -69.3756,-52.253 -69.3806,-52.3223 -69.4471,-52.3902 -69.4716,-52.4102 -69.5234,-52.4422 -69.5413,-52.4572 -69.5645,-52.4668 -69.6708,-52.457 -69.6999,-52.4394 -69.8028,-52.4533 -70.0293,-52.5145 -70.0591,-52.5238 -70.3839,-52.643 -70.4152,-52.6448 -70.5711,-52.6569 -70.6981,-52.6707 -70.7293,-52.817 -70.7164,-52.8452 -70.6973,-52.8585 -70.6978,-52.9312 -70.7748,-53.0677 -70.7938,-53.088 -70.8153,-53.1035 -70.8314,-53.1252 -70.84,-53.1554 -70.8772,-53.3247 -70.8759,-53.3567 -70.872,-53.3813 -70.8606,-53.4147 -70.8453,-53.4402 -70.832,-53.4728 -70.8242,-53.5016 -70.8195,-53.5389 -70.8245,-53.5706 -70.8593,-53.6979 -70.8803,-53.7238 -70.9292,-53.7604 -71.1168,-53.8121 -71.1665,-53.8232 -71.3344,-53.7724 -71.3648,-53.7673 -71.4076,-53.7639 -71.4531,-53.7618 -71.4754,-53.7617 -71.5157,-53.7587 -71.58,-53.7472 -71.7348,-53.6793 -71.8161,-53.6669 -71.9318,-53.6458 -71.996,-53.6249 -72.1697,-53.5181 -72.2295,-53.4649 -72.2772,-53.4186 -72.3013,-53.3924 -72.3339,-53.3419 -72.3045,-53.2566 -72.1658,-53.1828 -71.9947,-53.1954 -71.9662,-53.242 -71.9594,-53.2645 -71.9632,-53.3011 -71.9766,-53.3249 -72.0401,-53.351 -72.1092,-53.3731 -72.0708,-53.3825 -71.9874,-53.3673 -71.9526,-53.3538 -71.8947,-53.3281 -71.8882,-53.3068 -71.8938,-53.2738 -71.903,-53.2332 -71.9058,-53.2115 -71.8973,-53.1796 -71.8734,-53.1606 -71.7497,-53.1605 -71.7197,-53.1823 -71.6686,-53.3671 -71.68,-53.3912 -71.6996,-53.4033 -71.7307,-53.4193 -71.8249,-53.4516 -71.852,-53.4588 -71.8868,-53.4737 -71.8875,-53.5027 -71.8779,-53.5074 -71.8292,-53.4891 -71.7107,-53.4622 -71.6796,-53.45 -71.6378,-53.3998 -71.6431,-53.3338 -71.6569,-53.2857 -71.6507,-53.2244 -71.6222,-53.1528 -71.3614,-53.0707 -71.3312,-53.0724 -71.3043,-53.0721 -71.2736,-53.0673 -71.2522,-53.0597 -71.2319,-53.0504 -71.2128,-53.0377 -71.0136,-52.827 -71.0033,-52.8021 -71.0522,-52.7488 -71.1397,-52.7334 -71.235,-52.7295 -71.489,-52.8138 -71.7008,-52.8957 -71.7825,-52.9372 -71.7985,-52.9645 -71.9029,-53.0623 -71.9592,-53.0717 -71.9883,-53.0708 -72.0242,-53.0559 -72.0457,-53.0396 -72.0662,-53.0161 -72.0844,-52.9967 -72.1043,-52.9847 -72.1866,-52.9674 -72.3997,-53.0004 -72.428,-53.0203 -72.347,-53.0136 -72.2468,-53.0145 -72.0933,-53.0942 -72.0724,-53.1205 -72.0841,-53.1391 -72.2237,-53.1647 -72.2557,-53.1603 -72.2942,-53.1396 -72.3668,-53.1259 -72.4156,-53.1416 -72.3898,-53.1674 -72.3531,-53.1773 -72.3321,-53.1778 -72.3013,-53.1873 -72.3991,-53.3029 -72.4308,-53.3109 -72.4826,-53.3009 -72.5122,-53.276 -72.5293,-53.2637 -72.5208,-53.3013 -72.437,-53.3602 -72.4096,-53.3453 -72.3806,-53.3416 -72.2787,-53.4345 -72.2642,-53.4594 -72.2814,-53.4777 -72.3775,-53.4867 -72.3877,-53.487 -72.4154,-53.4673 -72.6111,-53.3711 -72.7448,-53.3261 -72.8214,-53.2941 -72.8439,-53.275 -72.9497,-53.2236 -72.9696,-53.2179 -72.9999,-53.217 -73.0251,-53.211 -73.0933,-53.1726 -73.1798,-53.0986 -72.9574,-53.1071 -72.8788,-53.097 -72.8255,-53.102 -72.729,-53.1496 -72.6581,-53.2214 -72.6354,-53.2352 -72.5919,-53.2318 -72.5759,-53.1795 -72.6322,-53.1493 -72.674,-53.1218 -72.6398,-53.0805 -72.5947,-53.0867 -72.5379,-53.0869 -72.586,-53.0664 -72.6541,-53.0584 -72.6819,-53.0633 -72.7067,-53.0813 -72.7331,-53.086 -72.8193,-53.0409 -72.7934,-53.0219 -72.7817,-53.0117 -72.7601,-52.9665 -72.8013,-52.9332 -72.832,-52.8745 -72.8407,-52.7956 -72.7987,-52.7628 -72.6027,-52.6844 -72.4666,-52.7349 -72.35,-52.7587 -72.3051,-52.751 -72.1865,-52.6893 -72.0691,-52.6052 -72.0552,-52.5855 -71.8916,-52.571 -71.8167,-52.6038 -71.7795,-52.6204 -71.732,-52.6272 -71.6762,-52.6291 -71.6035,-52.6272 -71.5645,-52.6244 -71.5362,-52.6219 -71.5032,-52.6147 -71.361,-52.5719 -71.404,-52.5098 -71.4298,-52.4975 -71.4686,-52.4967 -71.4935,-52.5015 -71.5243,-52.501 -71.6536,-52.4882 -71.8025,-52.4679 -72.0161,-52.4514 -72.1614,-52.4559 -72.1961,-52.4606 -72.2288,-52.4861 -72.2536,-52.524 -72.3047,-52.594 -72.4309,-52.5289 -72.3834,-52.4861 -72.3561,-52.4739 -72.3249,-52.4753 -72.2796,-52.4606 -72.3008,-52.4434 -72.4086,-52.4644 -72.4295,-52.4759 -72.5137,-52.482 -72.6737,-52.4813 -72.7823,-52.5639 -72.7644,-52.5763 -72.6934,-52.5475 -72.5645,-52.5776 -72.5619,-52.6005 -72.6376,-52.6681 -72.6824,-52.6959 -72.7485,-52.7311 -72.8085,-52.7386 -72.834,-52.7431 -72.8639,-52.7665 -72.8884,-52.7924 -72.856,-52.8542 -72.8294,-52.9209 -72.8328,-52.964 -72.8623,-53.0027 -72.9671,-53.0252 -72.9732,-53.0289 -73.0065,-53.0397 -73.0849,-53.0442 -73.1996,-53.0149 -73.3308,-52.9399 -73.1929,-52.8768 -73.1168,-52.8277 -73.2391,-52.8175 -73.4383,-52.7408 -73.3878,-52.7159 -73.2951,-52.7204 -73.2705,-52.7373 -73.1142,-52.7261 -73.1351,-52.695 -73.1387,-52.657 -72.9846,-52.4463 -72.9427,-52.4316 -72.857,-52.4417 -72.8045,-52.4516 -72.7744,-52.4562 -72.8019,-52.433 -72.8968,-52.4205 -72.9279,-52.4177 -72.9574,-52.4193 -73.0333,-52.4283 -73.0596,-52.4453 -73.0449,-52.4988 -73.0534,-52.5177 -73.1486,-52.6083 -73.1864,-52.6092 -73.2103,-52.599 -73.2179,-52.5793 -73.2204,-52.5354 -73.2476,-52.5257 -73.2726,-52.5321 -73.385,-52.5914 -73.4412,-52.6264 -73.4776,-52.6641 -73.4934,-52.684 -73.5752,-52.6606 -73.5651,-52.538 -73.5121,-52.4972 -73.4719,-52.49 -73.4454,-52.4981 -73.4326,-52.4811 -73.4806,-52.4716 -73.4979,-52.4524 -73.549,-52.3615 -73.5482,-52.3315 -73.5326,-52.3125 -73.5033,-52.3175 -73.4742,-52.3203 -73.4482,-52.2674 -73.467,-52.174 -73.528,-52.1086 -73.6066,-52.0366 -73.6229,-52.0097 -73.6156,-51.9768 -73.5876,-51.9627 -73.5617,-51.9804 -73.5458,-52.0171 -73.4263,-52.1319 -73.3956,-52.1342 -73.3487,-52.1115 -73.2292,-52.1591 -73.2056,-52.163 -73.1474,-52.155 -73.1247,-52.1435 -73.0999,-52.0998 -73.0494,-52.0511 -72.9824,-52.029 -72.9093,-52.0065 -72.8713,-52.0098 -72.8679,-52.0808 -72.8712,-52.1266 -72.7957,-52.1885 -72.751,-52.203 -72.7168,-52.1788 -72.6589,-52.0386 -72.6702,-52.0017 -72.7021,-52.022 -72.7335,-52.0751 -72.7316,-52.1004 -72.7601,-52.142 -72.8273,-52.1125 -72.8282,-52.0272 -72.7468,-51.8986 -72.6878,-51.8795 -72.5797,-51.9286 -72.584,-51.985 -72.545,-52.0278 -72.5056,-52.04 -72.4875,-52.051 -72.4392,-52.1096 -72.4197,-52.1393 -72.4604,-52.2605 -72.4945,-52.2848 -72.6259,-52.3179 -72.8129,-52.3902 -72.7832,-52.3974 -72.7048,-52.3797 -72.5194,-52.3346 -72.4655,-52.3131 -72.3759,-52.2558 -72.3534,-52.1428 -72.3678,-52.1212 -72.4353,-52.0705 -72.5348,-51.9905 -72.5525,-51.9048 -72.5199,-51.8859 -72.4047,-51.8973 -72.3789,-51.8894 -72.357,-51.8756 -72.3431,-51.8593 -72.3556,-51.7287 -72.3933,-51.6682 -72.5456,-51.5559 -72.5996,-51.5237 -72.6256,-51.5153 -72.6691,-51.5104 -72.7161,-51.5096 -72.8029,-51.4857 -72.9409,-51.4274 -72.963,-51.4037 -73.003,-51.3836 -73.0461,-51.3883 -73.1287,-51.4029 -73.1564,-51.4234 -73.1429,-51.4411 -73.1038,-51.4512 -73.0794,-51.4466 -73.0403,-51.4287 -72.9522,-51.4452 -72.8652,-51.4749 -72.7384,-51.5448 -72.596,-51.6345 -72.5732,-51.6414 -72.5186,-51.6511 -72.4577,-51.6617 -72.4368,-51.6793 -72.4523,-51.7286 -72.5128,-51.7717 -72.606,-51.7769 -72.6758,-51.7472 -72.7005,-51.7145 -72.865,-51.6684 -73.0644,-51.5761 -73.1279,-51.5501 -73.1696,-51.5533 -73.1123,-51.6495 -73.0791,-51.6622 -73.0406,-51.6674 -73.0132,-51.6666 -72.9785,-51.6559 -72.9428,-51.6697 -72.916,-51.6879 -72.883,-51.7229 -72.9449,-51.7877 -72.9685,-51.7969 -73.0077,-51.8021 -73.076,-51.8161 -72.956,-51.8048 -72.8938,-51.7735 -72.8575,-51.7594 -72.8237,-51.7741 -72.8125,-51.8006 -72.8453,-51.8224 -72.9139,-51.8403 -72.9748,-51.8594 -73.0253,-51.88 -73.0413,-51.9057 -73.069,-52.0337 -73.0915,-52.0325 -73.1252,-52.0263 -73.1598,-51.9722 -73.1778,-51.8607 -73.1852,-51.7518 -73.2053,-51.6657 -73.2206,-51.6417 -73.266,-51.6097 -73.2565,-51.6334 -73.2256,-51.6858 -73.2144,-51.7363 -73.1623,-52.0645 -73.1711,-52.0991 -73.201,-52.1095 -73.2336,-52.0985 -73.4295,-51.9958 -73.4491,-51.9804 -73.4635,-51.9512 -73.4595,-51.9126 -73.4911,-51.8472 -73.5337,-51.7743 -73.4838,-51.7552 -73.4729,-51.7784 -73.3919,-51.8867 -73.316,-51.9636 -73.2838,-51.9567 -73.3613,-51.8513 -73.4715,-51.696 -73.4335,-51.6844 -73.4014,-51.6707 -73.3567,-51.634 -73.501,-51.6593 -73.5851,-51.729 -73.6474,-51.654 -73.6765,-51.5836 -73.7399,-51.5737 -73.7908,-51.5623 -73.8141,-51.3748 -73.81,-51.3509 -73.7904,-51.3177 -73.6989,-51.3356 -73.5959,-51.4096 -73.5683,-51.4496 -73.5166,-51.5298 -73.5035,-51.5738 -73.4902,-51.5684 -73.484,-51.5426 -73.4986,-51.5145 -73.5811,-51.3597 -73.6655,-51.1615 -73.6254,-51.1443 -73.5829,-51.1799 -73.5982,-51.1003 -73.6206,-51.0841 -73.6451,-51.094 -73.7418,-51.1674 -73.7659,-51.1795 -73.7866,-51.1829 -73.9695,-51.1495 -74.0143,-51.127 -74.0383,-51.0144 -74.0988,-50.9872 -74.1216,-50.9754 -74.1336,-50.8686 -74.1097,-50.8432 -74.0668,-50.8226 -74.0251,-50.8121 -73.7954,-50.8117 -73.7726,-50.8218 -73.7383,-50.8577 -73.6675,-50.7318 -73.6689,-50.6299 -73.6395,-50.6031 -73.5533,-50.5863 -73.5212,-50.5861 -73.4639,-50.6108 -73.4505,-50.6421 -73.4212,-50.6553 -73.3908,-50.6109 -73.4519,-50.5719 -73.5001,-50.566 -73.541,-50.558 -73.6077,-50.5093 -73.6107,-50.4869 -73.5921,-50.464 -73.5684,-50.4592 -73.5344,-50.4545 -73.5086,-50.4433 -73.4915,-50.43 -73.4603,-50.346 -73.6458,-50.4632 -73.6616,-50.4848 -73.6872,-50.5483 -73.7148,-50.6331 -73.7067,-50.6575 -73.7003,-50.6862 -73.7106,-50.7048 -73.8157,-50.7694 -73.8346,-50.7761 -73.9304,-50.7692 -74.0066,-50.7126 -74.0479,-50.6471 -74.1201,-50.5447 -74.1766,-50.4218 -74.1017,-50.4052 -74.0104,-50.4276 -73.9847,-50.4391 -73.9626,-50.453 -73.9384,-50.4656 -73.9091,-50.475 -73.7789,-50.4883 -73.8284,-50.4658 -73.8791,-50.4551 -73.9643,-50.4146 -74.0078,-50.3809 -74.1791,-50.371 -74.3612,-50.288 -74.5764,-50.1489 -74.5809,-50.1194 -74.5579,-50.0933 -74.5232,-50.0669 -74.4737,-50.0443 -74.3796,-50.0239 -74.3202,-50.0371 -74.237,-50.0306 -74.1814,-50.0768 -74.1611,-50.1088 -74.0916,-50.1596 -73.852,-50.23 -73.788,-50.2386 -73.77,-50.2388 -73.756,-50.2307 -74.0205,-50.1503 -74.0421,-50.151 -74.0648,-50.1442 -74.0958,-50.1227 -74.2602,-49.9344 -74.2501,-49.8932 -74.2266,-49.87 -74.1578,-49.8757 -74.1108,-49.8852 -74.0626,-49.9195 -74.0139,-49.9543 -73.7793,-50.0169 -73.776,-49.9867 -73.7897,-49.9592 -73.8981,-49.9283 -73.9883,-49.9034 -74.1868,-49.8365 -74.2146,-49.8104 -74.2386,-49.7435 -74.1362,-49.7058 -74.0834,-49.6932 -74.0346,-49.6878 -74.0037,-49.6953 -73.9633,-49.689 -73.9536,-49.6584 -74.0805,-49.6699 -74.1693,-49.6854 -74.1891,-49.6816 -74.2115,-49.6403 -74.2178,-49.5894 -74.2115,-49.5656 -74.1337,-49.5142 -74.0023,-49.4849 -73.9782,-49.4803 -73.8385,-49.5021 -73.821,-49.5238 -73.7992,-49.5807 -73.7721,-49.6103 -73.7357,-49.6223 -73.706,-49.6287 -73.6407,-49.6724 -73.6142,-49.7318 -73.6031,-49.7 -73.6237,-49.6544 -73.6479,-49.6166 -73.6672,-49.605 -73.7136,-49.6026 -73.7427,-49.6003 -73.7684,-49.532 -73.7651,-49.4747 -73.8054,-49.4557 -73.8502,-49.4595 -73.8815,-49.462 -73.9854,-49.4396 -74.0015,-49.4262 -74.0125,-49.3568 -73.9745,-49.2211 -73.9594,-49.206 -73.9285,-49.2065 -73.8926,-49.228 -73.8805,-49.2487 -73.8593,-49.2706 -73.8088,-49.2905 -73.7776,-49.2969 -73.7391,-49.2899 -73.7842,-49.2724 -73.8159,-49.2675 -73.8342,-49.2583 -73.8902,-49.1975 -73.9203,-49.0363 -73.9085,-49.0171 -73.8764,-48.9889 -73.8586,-48.9767 -73.8344,-48.969 -73.8028,-48.9678 -73.7744,-48.9805 -73.7547,-48.995 -73.7198,-48.998 -73.7228,-48.9756 -73.7845,-48.9542 -73.9348,-48.9656 -73.9427,-49.0062 -73.9332,-49.0967 -73.9998,-49.1783 -74.041,-49.2624 -74.0509,-49.3178 -74.0848,-49.454 -74.1064,-49.4752 -74.1297,-49.4776 -74.1552,-49.4662 -74.2643,-49.3707 -74.2875,-49.2852 -74.2898,-49.1051 -74.2871,-48.907 -74.3026,-48.8736 -74.3235,-48.8418 -74.3413,-48.7912 -74.3412,-48.7594 -74.331,-48.7374 -74.2697,-48.6712 -74.2288,-48.6891 -74.1985,-48.6967 -74.1748,-48.6928 -74.1355,-48.6727 -74.1043,-48.6657 -74.0221,-48.6704 -73.9564,-48.6875 -73.9593,-48.6784 -74.0082,-48.6579 -74.0627,-48.6506 -74.0902,-48.6519 -74.1269,-48.6607 -74.1476,-48.6671 -74.1693,-48.673 -74.2056,-48.6712 -74.2632,-48.6211 -74.2894,-48.5558 -74.2443,-48.5128 -74.1457,-48.445 -74.0933,-48.421 -74.0426,-48.4417 -73.9388,-48.4921 -73.9195,-48.4778 -73.9135,-48.3578 -74.0055,-48.3419 -74.0282,-48.3162 -74.0458,-48.3042 -74.0683,-48.3016 -74.1249,-48.2962 -74.0997,-48.2782 -74.0118,-48.2643 -74.1567,-48.2273 -74.2909,-48.146 -74.3815,-48.0758 -74.4751,-48.0297 -74.5126,-48.0293 -74.5384,-48.0215 -74.5491,-47.9745 -74.524,-47.9453 -74.4187,-47.9021 -74.3073,-47.9325 -74.2422,-47.9674 -74.2216,-47.991 -74.2077,-48.0115 -74.1893,-48.0493 -74.1774,-48.1001 -74.1697,-48.1339 -74.1075,-48.1762 -74.077,-48.1701 -74.1536,-48.0432 -74.2152,-47.9694 -74.2206,-47.9499 -74.1949,-47.9401 -74.0915,-47.9374 -73.9687,-47.9407 -73.9432,-47.9526 -73.9122,-47.9783 -73.8556,-47.9925 -73.7509,-47.9915 -73.6652,-47.9745 -73.4867,-48.082 -73.4827,-48.1297 -73.4466,-48.1902 -73.4324,-48.1532 -73.386,-48.1203 -73.3372,-48.1231 -73.3141,-48.129 -73.2882,-48.14 -73.2429,-48.1419 -73.1947,-48.1123 -73.1789,-48.0988 -73.1708,-48.0716 -73.1677,-48.0382 -73.1813,-48.0159 -73.1843,-48.0359 -73.189,-48.07 -73.2082,-48.0885 -73.2488,-48.1095 -73.2687,-48.1126 -73.2948,-48.105 -73.3802,-48.0677 -73.4728,-47.9956 -73.5389,-47.9303 -73.5481,-47.8542 -73.4644,-47.8538 -73.4555,-47.8856 -73.4221,-47.9148 -73.4034,-47.9231 -73.3818,-47.9298 -73.331,-47.9391 -73.1207,-47.9478 -73.1642,-47.9228 -73.2335,-47.9084 -73.2678,-47.9072 -73.2937,-47.9095 -73.3293,-47.9157 -73.3669,-47.9107 -73.4101,-47.8891 -73.6076,-47.7253 -73.6366,-47.6748 -73.6315,-47.6486 -73.6115,-47.6285 -73.5805,-47.6077 -73.5522,-47.5784 -73.5712,-47.5124 -73.6203,-47.4768 -73.6663,-47.5405 -73.6281,-47.5593 -73.6221,-47.5817 -73.6648,-47.7316 -73.6848,-47.7462 -73.7092,-47.757 -73.8277,-47.792 -73.9088,-47.781 -73.928,-47.7741 -73.9535,-47.7322 -73.9848,-47.7284 -74.034,-47.7271 -74.2022,-47.704 -74.2812,-47.6918 -74.367,-47.7083 -74.3917,-47.7187 -74.4402,-47.7243 -74.5115,-47.7171 -74.5389,-47.7101 -74.6064,-47.6865 -74.634,-47.6565 -74.4971,-47.5163 -74.4533,-47.4962 -74.4331,-47.4936 -74.3469,-47.5002 -74.3195,-47.507 -74.265,-47.538 -74.2422,-47.5891 -74.2067,-47.6527 -74.166,-47.685 -74.1307,-47.6973 -74.093,-47.7007 -74.0693,-47.6938 -74.0973,-47.6942 -74.1481,-47.6836 -74.1755,-47.664 -74.1917,-47.6261 -74.1505,-47.5781 -74.0615,-47.5625 -74.0089,-47.5778 -73.9832,-47.5777 -73.9402,-47.5654 -73.9556,-47.4853 -74.0246,-47.5091 -74.0612,-47.5349 -74.1781,-47.5518 -74.1982,-47.5486 -74.4096,-47.3985 -74.4212,-47.3798 -74.3663,-47.3125 -74.2633,-47.242 -74.2405,-47.2113 -74.2265,-47.1892 -74.2134,-47.1658 -74.0875,-47.1519 -74.0665,-47.1598 -74.0564,-47.1877 -74.0549,-47.222 -74.012,-47.2814 -74.035,-47.2193 -74.0351,-47.1939 -74.0256,-47.1603 -74.0131,-47.1441 -73.9401,-47.0955 -73.8326,-46.9806 -73.9094,-46.9281 -73.9315,-46.9215 -73.9544,-46.9203 -73.974,-46.9272 -74.0029,-46.9393 -74.0324,-46.9328 -74.1412,-46.8178 -74.159,-46.7585 -74.1601,-46.7338 -74.2335,-46.7125 -74.5126,-46.7319 -74.5157,-46.7887 -74.4848,-46.7831 -74.4441,-46.7823 -74.3313,-46.8059 -74.3426,-46.8331 -74.3711,-46.8486 -74.3979,-46.8492 -74.4612,-46.8437 -74.5398,-46.8197 -74.781,-46.7407 -74.9018,-46.6985 -74.9688,-46.6049 -74.9715,-46.5758 -74.958,-46.5527 -74.9036,-46.5054 -74.8342,-46.4563 -74.8391,-46.3896 -74.8616,-46.415 -74.8781,-46.4471 -74.9751,-46.5209 -75.0134,-46.5423 -75.0818,-46.5732 -75.2438,-46.6051 -75.285,-46.5991 -75.3246,-46.5966 -75.3975,-46.6122 -75.463,-46.6341 -75.4904,-46.6496 -75.5452,-46.7131 -75.5249,-46.7287 -75.4761,-46.7005 -75.3666,-46.6491 -75.3393,-46.6502 -75.3125,-46.6615 -75.2353,-46.8249 -75.2445,-46.8502 -75.3054,-46.8799 -75.3595,-46.8964 -75.3805,-46.9018 -75.3892,-46.9029 -75.399,-46.9019 -75.46,-46.888 -75.5336,-46.8273 -75.6028,-46.7399 -75.6098,-46.6719 -75.5972,-46.581 -75.5347,-46.5168 -75.5147,-46.514 -75.4906,-46.5155 -75.458,-46.5188 -75.4118,-46.5018 -75.3406,-46.4588 -75.2874,-46.4263 -75.2946,-46.3913 -75.2495,-46.3544 -75.2257,-46.3396 -75.1592,-46.3148 -75.1115,-46.3432 -75.108,-46.2961 -75.093,-46.2475 -74.9817,-46.1626 -74.9401,-46.1598 -74.8502,-46.1628 -74.7158,-46.0598 -74.6832,-46.0041 -74.6184,-45.8709 -74.584,-45.7888 -74.5696,-45.7743 -74.352,-45.7549 -74.2639,-45.74 -74.2302,-45.7481 -74.2109,-45.7829 -74.1589,-45.7581 -74.0515,-45.7463 -74.0319,-45.757 -74.0061,-45.7834 -73.9532,-45.8935 -73.9682,-45.9514 -73.9682,-45.9514 12,-3.0,Chile -73.9682,-45.9514 -73.9805,-45.9986 -73.9953,-46.0275 -74.0185,-46.0578 -74.04,-46.0735 -74.0566,-46.0846 -74.0346,-46.0824 -73.9716,-46.0465 -73.9528,-45.9939 -73.9549,-45.973 -73.9682,-45.9514 -73.9682,-45.9514 414,2.0,Botswana 25.2341,-17.782 25.2115,-17.8348 25.2076,-17.8837 25.211,-17.9042 25.2452,-17.9851 25.2869,-18.0544 25.3358,-18.0901 25.3658,-18.1076 25.4191,-18.1993 25.4487,-18.2536 25.47,-18.3077 25.4756,-18.3303 25.4836,-18.3569 25.4957,-18.3766 25.5708,-18.4588 25.6305,-18.515 25.6879,-18.5705 25.7656,-18.6909 25.839,-18.8226 25.909,-18.8719 25.9246,-18.8924 25.9453,-18.9313 25.9553,-18.9667 25.9553,-18.977 25.9329,-19.0401 25.9329,-19.0834 25.9686,-19.1393 25.9909,-19.1662 26.023,-19.2433 26.0671,-19.3535 26.1201,-19.4843 26.1375,-19.5078 26.1651,-19.5251 26.2115,-19.5498 26.2317,-19.555 26.3248,-19.5947 26.3723,-19.6538 26.5046,-19.7411 26.5363,-19.7628 26.558,-19.7787 26.5636,-19.8051 26.5788,-19.8305 26.6032,-19.8432 26.6634,-19.8553 26.6963,-19.9061 26.9462,-19.9887 27.0466,-20.0039 27.1808,-20.0647 27.1997,-20.0863 27.2496,-20.1983 27.2575,-20.219 27.2658,-20.2886 27.2628,-20.3623 27.2577,-20.4318 27.2543,-20.4718 27.2607,-20.466 27.2979,-20.4488 27.3243,-20.4427 27.3994,-20.4492 27.4831,-20.4531 27.5774,-20.4483 27.6584,-20.4659 27.6819,-20.4869 27.6926,-20.5258 27.6971,-20.7248 27.6932,-20.7685 27.6764,-20.8204 27.6602,-20.8414 27.6562,-20.9109 27.6529,-21.0473 27.6937,-21.1079 27.7138,-21.1281 27.7462,-21.1454 27.8092,-21.2007 27.8657,-21.2844 27.9079,-21.3592 27.9363,-21.4163 27.9735,-21.5214 27.9785,-21.5369 27.9814,-21.5419 28.0145,-21.552 28.1277,-21.5694 28.1683,-21.5723 28.2038,-21.571 28.246,-21.5634 28.316,-21.5783 28.3463,-21.5913 28.3735,-21.6061 28.4277,-21.63 28.4716,-21.6362 28.4914,-21.6236 28.533,-21.6079 28.6114,-21.6252 28.8283,-21.7273 28.8898,-21.7451 28.92,-21.7465 28.9517,-21.7458 29.0368,-21.7848 29.0394,-21.8088 29.0093,-21.8529 29.0004,-21.8783 28.9964,-21.9115 28.9993,-21.9408 29.0105,-21.9692 29.0231,-21.9924 29.0402,-22.0144 29.0583,-22.0289 29.0779,-22.0375 29.1126,-22.0494 29.1455,-22.0558 29.1846,-22.0541 29.2128,-22.0453 29.2318,-22.0528 29.326,-22.152 29.3374,-22.1673 29.2383,-22.1691 29.0359,-22.1956 29.0092,-22.1991 28.9893,-22.2021 28.9253,-22.301 28.9326,-22.3432 28.9291,-22.3634 28.915,-22.3879 28.8988,-22.4139 28.8823,-22.4295 28.7934,-22.4654 28.6029,-22.5364 28.421,-22.5485 28.3217,-22.551 28.2633,-22.5839 28.162,-22.6495 28.1449,-22.6609 28.1331,-22.6779 28.125,-22.698 28.1271,-22.7184 28.1219,-22.7456 28.0751,-22.7804 28.0147,-22.8372 27.9376,-22.9268 27.9094,-23.0054 27.7494,-23.1441 27.6704,-23.1748 27.5698,-23.1928 27.5388,-23.2406 27.5311,-23.2847 27.5232,-23.3221 27.495,-23.3529 27.4681,-23.3576 27.4187,-23.359 27.3731,-23.3607 27.3059,-23.3732 27.1143,-23.4982 27.0651,-23.5626 27.0362,-23.6095 26.997,-23.6272 26.9716,-23.6171 26.9449,-23.6649 26.9255,-23.7251 26.9297,-23.7328 26.8862,-23.9004 26.8469,-24.0605 26.8187,-24.2263 26.7969,-24.2477 26.7544,-24.2679 26.7258,-24.2769 26.693,-24.2834 26.5216,-24.4095 26.4809,-24.4527 26.4606,-24.4836 26.4519,-24.503 26.4446,-24.5269 26.428,-24.5568 26.4072,-24.5785 26.378,-24.6007 26.368,-24.6042 26.357,-24.5998 26.3269,-24.5912 26.2324,-24.6099 26.1348,-24.6361 25.9863,-24.6829 25.8858,-24.7105 25.839,-24.7164 25.8426,-24.7859 25.8396,-24.8772 25.7949,-25.0136 25.7369,-25.1799 25.6523,-25.4068 25.6389,-25.4416 25.5895,-25.522 25.5575,-25.5857 25.5493,-25.5963 25.4773,-25.6487 25.3818,-25.7043 25.3286,-25.7256 25.1431,-25.733 25.1203,-25.733 25.0963,-25.7236 25.0546,-25.7062 25.0011,-25.6996 24.9806,-25.705 24.9218,-25.7422 24.869,-25.7792 24.7699,-25.8032 24.6531,-25.7991 24.6175,-25.7936 24.5907,-25.7831 24.5019,-25.7428 24.4703,-25.7324 24.441,-25.7176 24.4077,-25.7108 24.3679,-25.7317 24.3207,-25.7266 24.2504,-25.6912 24.2123,-25.6472 24.1976,-25.6207 24.1584,-25.5942 24.0847,-25.6053 24.0159,-25.6226 23.9763,-25.6288 23.8714,-25.5958 23.8591,-25.5762 23.8415,-25.5548 23.7063,-25.435 23.6837,-25.4257 23.6402,-25.4072 23.6203,-25.3946 23.5661,-25.3609 23.5009,-25.3088 23.4245,-25.2485 23.2456,-25.2372 23.165,-25.2358 22.9856,-25.2711 22.9432,-25.3088 22.881,-25.3682 22.8009,-25.502 22.7833,-25.5396 22.8008,-25.5854 22.7838,-25.6495 22.7481,-25.683 22.7275,-25.7073 22.7144,-25.7688 22.7161,-25.8191 22.6938,-25.9448 22.6781,-25.9741 22.6347,-25.9857 22.5977,-26.0636 22.596,-26.0823 22.4503,-26.1734 22.3379,-26.2566 22.2209,-26.3116 22.1688,-26.3645 22.1471,-26.4012 22.1299,-26.4627 22.1058,-26.51 22.0284,-26.5946 21.9875,-26.6143 21.9343,-26.6319 21.8636,-26.6389 21.8345,-26.6322 21.7806,-26.6362 21.7419,-26.6539 21.7463,-26.704 21.751,-26.7373 21.7446,-26.7598 21.7224,-26.7884 21.6654,-26.8229 21.6408,-26.8336 21.5854,-26.8305 21.4891,-26.8222 21.4541,-26.8118 21.4327,-26.7993 21.4081,-26.7934 21.3831,-26.7916 21.3504,-26.7913 21.3115,-26.7989 21.2498,-26.8152 21.1507,-26.8321 21.117,-26.8365 21.102,-26.8361 21.0742,-26.8326 20.9857,-26.8173 20.9615,-26.8075 20.9396,-26.7868 20.8973,-26.7684 20.8653,-26.7651 20.8293,-26.7746 20.7969,-26.7873 20.7752,-26.8112 20.7374,-26.831 20.6773,-26.8451 20.6146,-26.7959 20.5924,-26.7375 20.5757,-26.5065 20.577,-26.4867 20.5835,-26.4247 20.597,-26.4092 20.6258,-26.3961 20.6653,-26.3582 20.7181,-26.2911 20.7307,-26.2747 20.77,-26.22 20.8335,-26.1125 20.7836,-25.8517 20.7575,-25.7958 20.7129,-25.734 20.656,-25.6568 20.6527,-25.6079 20.663,-25.5624 20.6237,-25.4507 20.6056,-25.4083 20.5835,-25.3688 20.5105,-25.2697 20.4238,-25.1254 20.3643,-25.0087 20.2364,-24.9036 20.2117,-24.888 20.1406,-24.8582 20.107,-24.8562 20.034,-24.7984 20.0194,-24.7844 19.9764,-24.7377 19.977,-24.6961 19.977,-24.5444 19.976,-24.3789 19.9757,-24.255 19.9749,-23.9238 19.9755,-23.8373 19.9753,-23.7306 19.9753,-23.6207 19.9746,-23.4279 19.974,-23.2826 19.9743,-23.0965 19.974,-22.9448 19.9735,-22.934 19.9731,-22.9176 19.9728,-22.697 19.9732,-22.4745 19.9726,-22.242 19.9715,-22.0626 19.9721,-21.9801 19.9759,-21.9766 20.2836,-21.9765 20.6243,-21.9751 20.892,-21.9734 20.9664,-21.9722 20.967,-21.9447 20.967,-21.9173 20.9672,-21.5729 20.967,-21.2981 20.9669,-20.9952 20.9673,-20.9689 20.9674,-20.8009 20.9678,-20.1562 20.9676,-19.9756 20.968,-19.1504 20.9686,-18.6743 20.9689,-18.4546 20.9684,-18.3178 20.9681,-18.2977 21.2099,-18.2912 21.4364,-18.2838 21.7905,-18.2179 22.2352,-18.1334 22.473,-18.0908 22.61,-18.0664 23.05,-17.9842 23.2591,-17.9761 23.2689,-17.9755 23.2884,-17.995 23.2975,-18.0245 23.302,-18.056 23.3349,-18.1066 23.37,-18.1555 23.4027,-18.1732 23.425,-18.1832 23.4747,-18.2276 23.4914,-18.2464 23.5258,-18.3054 23.5268,-18.3408 23.5356,-18.4163 23.5541,-18.4545 23.5847,-18.4644 23.622,-18.449 23.6906,-18.4045 23.7628,-18.3333 23.8012,-18.2942 23.8151,-18.2692 23.8415,-18.2426 23.858,-18.244 23.8834,-18.2162 23.9382,-18.1643 23.9778,-18.1471 24.2398,-17.993 24.3338,-17.9287 24.359,-17.9254 24.3874,-17.9336 24.4104,-17.9576 24.4224,-17.9787 24.4439,-18.0122 24.4682,-18.0388 24.4947,-18.0394 24.5366,-18.0337 24.6494,-17.9237 24.8027,-17.8176 24.906,-17.7939 24.9427,-17.8008 24.9697,-17.8059 25.036,-17.8119 25.0689,-17.8077 25.1059,-17.7766 25.1492,-17.762 25.2219,-17.7754 25.2341,-17.782 25.2341,-17.782 26,10.0,Australia 146.1129,-18.4731 146.0558,-18.4556 146.0434,-18.4476 146.0378,-18.4376 146.0317,-18.4242 146.0291,-18.4138 146.0272,-18.4018 146.0306,-18.3808 146.0286,-18.3655 146.0244,-18.356 146.0161,-18.3436 145.9807,-18.2988 145.9506,-18.2886 145.9412,-18.2845 145.9342,-18.2775 145.9196,-18.2578 145.9091,-18.2339 145.9379,-18.2254 145.9505,-18.2245 146.0481,-18.2599 146.0924,-18.2878 146.1751,-18.4022 146.1457,-18.4568 146.122,-18.4684 146.1129,-18.4731 146.1129,-18.4731 404,-3.0,Paraguay -58.0879,-20.1452 -58.0851,-20.2059 -58.066,-20.256 -58.0263,-20.3184 -57.9882,-20.3782 -57.9381,-20.4904 -57.9251,-20.5948 -57.897,-20.6867 -57.8651,-20.6483 -57.8382,-20.6532 -57.7887,-20.7112 -57.7858,-20.8149 -57.7437,-20.9551 -57.7817,-21.3174 -57.8081,-21.3563 -57.8445,-21.405 -57.8614,-21.4373 -57.8831,-21.4898 -57.8665,-21.6121 -57.8551,-21.6321 -57.8645,-21.7475 -57.8918,-21.9474 -57.9126,-22.0009 -57.9155,-22.0358 -57.9134,-22.0669 -57.8573,-22.0927 -57.8206,-22.1042 -57.7536,-22.1191 -57.7205,-22.1043 -57.6963,-22.0882 -57.5687,-22.0963 -57.5382,-22.15 -57.3037,-22.1927 -57.2611,-22.1931 -57.1687,-22.1874 -57.1271,-22.182 -57.0827,-22.1787 -56.9184,-22.2077 -56.8072,-22.2489 -56.7383,-22.2396 -56.6992,-22.2228 -56.688,-22.2162 -56.6279,-22.1911 -56.6079,-22.2086 -56.5643,-22.2268 -56.5042,-22.1644 -56.4862,-22.1417 -56.4763,-22.1194 -56.4565,-22.0905 -56.4256,-22.0635 -56.3871,-22.0509 -56.3269,-22.0437 -56.3013,-22.1012 -56.2912,-22.1328 -56.2597,-22.1616 -56.2395,-22.1781 -56.1336,-22.2496 -56.0988,-22.2588 -56.0163,-22.2669 -55.9773,-22.2532 -55.9197,-22.2481 -55.7808,-22.2638 -55.6755,-22.3724 -55.6721,-22.395 -55.6719,-22.4284 -55.6708,-22.4526 -55.6652,-22.5009 -55.6581,-22.5209 -55.6404,-22.5484 -55.6208,-22.5658 -55.5952,-22.5816 -55.5573,-22.5952 -55.5404,-22.6131 -55.5409,-22.7086 -55.5637,-22.7517 -55.5792,-22.7893 -55.576,-22.8323 -55.5374,-22.9943 -55.5146,-23.0593 -55.4802,-23.1112 -55.4803,-23.2809 -55.4743,-23.3069 -55.433,-23.3535 -55.4657,-23.4327 -55.4515,-23.5787 -55.4357,-23.5976 -55.4157,-23.6114 -55.3935,-23.6349 -55.3729,-23.6758 -55.3637,-23.7236 -55.3583,-23.776 -55.3512,-23.8513 -55.3509,-23.8977 -55.3425,-23.9273 -55.3273,-23.9439 -55.3019,-23.9575 -55.2779,-23.9656 -55.1273,-23.9924 -55.1056,-23.9934 -55.0812,-23.9893 -54.9623,-23.9673 -54.8559,-23.9384 -54.8339,-23.922 -54.8127,-23.8941 -54.5574,-23.7779 -54.4712,-23.8206 -54.3391,-23.8898 -54.2203,-23.993 -54.1757,-24.0265 -54.2015,-24.0385 -54.2262,-24.0581 -54.2575,-24.0903 -54.2685,-24.1208 -54.2485,-24.2145 -54.2342,-24.23 -54.2118,-24.2452 -54.1949,-24.2658 -54.1812,-24.3261 -54.2077,-24.3856 -54.2252,-24.4014 -54.2442,-24.4231 -54.2547,-24.4421 -54.2627,-24.465 -54.2657,-24.4907 -54.2529,-24.5272 -54.2432,-24.5751 -54.2468,-24.6002 -54.2563,-24.6343 -54.262,-24.6518 -54.3277,-24.7765 -54.3393,-24.8109 -54.3842,-24.9892 -54.3891,-25.0383 -54.386,-25.0616 -54.3541,-25.1047 -54.3583,-25.1247 -54.436,-25.252 -54.4548,-25.2747 -54.4798,-25.3037 -54.5047,-25.3258 -54.5466,-25.4171 -54.529,-25.4816 -54.5291,-25.5442 -54.5536,-25.6195 -54.5416,-25.7528 -54.5346,-25.9142 -54.5904,-25.947 -54.591,-26.1286 -54.5696,-26.1582 -54.5708,-26.1849 -54.5975,-26.2095 -54.5887,-26.2561 -54.6229,-26.3983 -54.7717,-26.6275 -54.8061,-26.6254 -54.8371,-26.6378 -54.8584,-26.6581 -54.8698,-26.7106 -54.8784,-26.7381 -54.8927,-26.7529 -54.9218,-26.7638 -54.9636,-26.7648 -54.9848,-26.7732 -55.0589,-26.8424 -55.1801,-26.9057 -55.1999,-26.907 -55.308,-26.9359 -55.3296,-26.9436 -55.3463,-26.956 -55.4759,-27.0817 -55.5016,-27.1362 -55.5095,-27.1843 -55.4986,-27.2047 -55.4969,-27.225 -55.513,-27.2862 -55.5284,-27.3112 -55.6596,-27.4058 -55.6859,-27.411 -55.7726,-27.3752 -55.787,-27.3607 -55.7955,-27.3274 -55.8205,-27.3017 -55.8509,-27.2957 -55.8929,-27.3013 -55.9633,-27.2744 -55.9922,-27.2721 -56.0264,-27.2741 -56.0715,-27.2807 -56.1957,-27.3584 -56.1988,-27.3942 -56.1962,-27.4177 -56.2024,-27.4375 -56.2726,-27.5392 -56.2928,-27.5537 -56.3252,-27.5533 -56.3458,-27.5436 -56.3833,-27.5161 -56.4209,-27.4713 -56.4312,-27.4442 -56.4472,-27.4312 -56.4769,-27.4217 -56.5052,-27.4176 -56.5339,-27.4175 -56.5715,-27.423 -56.5998,-27.4304 -56.6233,-27.4432 -56.6329,-27.4526 -56.6581,-27.4742 -56.6933,-27.4709 -56.7192,-27.4589 -56.74,-27.4393 -56.7626,-27.4184 -56.7891,-27.3971 -56.8074,-27.3885 -56.8427,-27.3884 -56.8911,-27.4034 -56.925,-27.4201 -56.9706,-27.4458 -57.0041,-27.4612 -57.0479,-27.4594 -57.0905,-27.4532 -57.1334,-27.441 -57.1635,-27.4286 -57.1954,-27.4113 -57.2229,-27.4002 -57.2496,-27.3948 -57.2709,-27.3951 -57.3391,-27.3869 -57.5427,-27.341 -57.5706,-27.3299 -57.6082,-27.3043 -57.6296,-27.2885 -57.6553,-27.2763 -57.7169,-27.2613 -57.861,-27.245 -57.9362,-27.2394 -58.0815,-27.2383 -58.2145,-27.2431 -58.4044,-27.2553 -58.4302,-27.2579 -58.4535,-27.2626 -58.4853,-27.2705 -58.529,-27.2863 -58.5232,-27.2186 -58.5392,-27.1967 -58.578,-27.1623 -58.5766,-27.1283 -58.5525,-27.1006 -58.5304,-27.0946 -58.5032,-27.0918 -58.396,-26.9567 -58.3192,-26.8777 -58.2776,-26.8549 -58.2414,-26.8426 -58.1067,-26.6261 -58.0937,-26.5702 -58.1081,-26.5413 -58.1425,-26.5113 -58.1352,-26.3905 -58.0873,-26.271 -58.0566,-26.2277 -58.07,-26.1775 -57.9738,-26.0899 -57.9285,-26.0747 -57.786,-25.9686 -57.8167,-25.9448 -57.8267,-25.9258 -57.7799,-25.8752 -57.7316,-25.8041 -57.7368,-25.7441 -57.7188,-25.7376 -57.6749,-25.7062 -57.5032,-25.5205 -57.4802,-25.4395 -57.4829,-25.4115 -57.5148,-25.3866 -57.5585,-25.3579 -57.595,-25.2775 -57.599,-25.2658 -57.6329,-25.2428 -57.6635,-25.2047 -57.6761,-25.1719 -57.6875,-25.1432 -57.7845,-25.0691 -57.8056,-25.0565 -57.8342,-25.0499 -57.8619,-25.0492 -57.9859,-25.0062 -58.0555,-24.9799 -58.108,-24.9472 -58.208,-24.9503 -58.2783,-24.9398 -58.3755,-24.8317 -58.4588,-24.8052 -58.5016,-24.7983 -58.5304,-24.8007 -58.5957,-24.7944 -58.7336,-24.7535 -58.8071,-24.7022 -58.848,-24.67 -58.8643,-24.6577 -58.9154,-24.627 -58.9842,-24.5909 -59.0272,-24.5806 -59.215,-24.4875 -59.2642,-24.4612 -59.282,-24.4437 -59.3083,-24.4076 -59.3958,-24.3272 -59.4588,-24.2882 -59.5952,-24.2064 -59.9074,-24.0155 -59.9629,-23.9827 -59.9913,-23.9893 -60.0124,-23.997 -60.0404,-24.0052 -60.064,-24.0108 -60.0872,-24.0146 -60.2041,-24.0113 -60.3804,-23.962 -60.5013,-23.9195 -60.5162,-23.8919 -60.5379,-23.8674 -60.6562,-23.8453 -60.6846,-23.8456 -60.7991,-23.8229 -60.9099,-23.7947 -60.9342,-23.784 -60.9482,-23.7593 -60.9585,-23.7272 -61.0351,-23.5816 -61.1061,-23.5282 -61.218,-23.4625 -61.2874,-23.4296 -61.3743,-23.3917 -61.5174,-23.2708 -61.556,-23.2574 -61.595,-23.26 -61.6673,-23.2079 -61.6693,-23.1617 -61.6808,-23.1453 -61.7784,-23.0638 -61.812,-23.0482 -61.8419,-23.0424 -61.9135,-22.9797 -61.93,-22.9495 -61.9278,-22.9242 -61.9486,-22.8731 -61.9651,-22.8507 -62.025,-22.7907 -62.0778,-22.7306 -62.1605,-22.5448 -62.1633,-22.5174 -62.1733,-22.4998 -62.208,-22.4706 -62.2388,-22.4554 -62.2641,-22.445 -62.2864,-22.4431 -62.315,-22.4316 -62.4442,-22.3457 -62.5405,-22.2503 -62.5663,-22.214 -62.5567,-22.1967 -62.5238,-22.0954 -62.4475,-21.8589 -62.4093,-21.7403 -62.3981,-21.7037 -62.3936,-21.6895 -62.3011,-21.4023 -62.1827,-21.0332 -62.185,-20.977 -62.1879,-20.7875 -62.1894,-20.719 -62.1916,-20.5986 -62.1936,-20.5391 -62.1231,-20.4481 -62.0261,-20.3145 -61.8376,-20.0573 -61.7723,-19.8885 -61.6992,-19.7023 -61.6672,-19.6227 -61.5939,-19.6111 -61.2824,-19.5609 -60.7223,-19.4681 -60.5396,-19.4372 -60.4426,-19.4127 -60.3508,-19.389 -59.9842,-19.2929 -59.9454,-19.2804 -59.9088,-19.2749 -59.5011,-19.2997 -59.3559,-19.308 -59.0845,-19.3235 -59.0238,-19.3271 -58.7211,-19.4796 -58.4492,-19.6163 -58.197,-19.7417 -58.1611,-19.7603 -58.0802,-19.8086 -58.0605,-19.9636 -58.0622,-20.0596 -58.0665,-20.0937 -58.0879,-20.1452 -58.0879,-20.1452 22,8.0,Australia 115.2282,-20.8573 115.2169,-20.8373 115.1944,-20.8301 115.1695,-20.8524 115.1616,-20.845 115.1577,-20.8333 115.1596,-20.8081 115.1624,-20.7925 115.1721,-20.7776 115.2006,-20.7413 115.2649,-20.6627 115.2871,-20.6467 115.2977,-20.6437 115.3094,-20.6504 115.3237,-20.7186 115.3223,-20.7371 115.3189,-20.7493 115.3144,-20.759 115.2614,-20.8344 115.2374,-20.8525 115.2282,-20.8573 115.2282,-20.8573 15,2.0,Mozambique 35.4088,-21.7629 35.4023,-21.7628 35.3923,-21.7588 35.3846,-21.7517 35.3798,-21.7381 35.3812,-21.7031 35.3926,-21.6307 35.428,-21.5093 35.4398,-21.5008 35.4534,-21.5221 35.4539,-21.5572 35.4513,-21.634 35.4447,-21.6607 35.4088,-21.7629 35.4088,-21.7629 1869,-3.0,Argentina -67.1002,-22.7958 -67.0414,-22.6939 -66.9298,-22.6087 -66.9352,-22.5484 -66.9394,-22.4986 -66.8435,-22.4525 -66.7674,-22.4278 -66.6921,-22.4017 -66.6888,-22.3496 -66.6543,-22.2024 -66.6064,-22.1711 -66.534,-22.1668 -66.4776,-22.1535 -66.4136,-22.1359 -66.3203,-22.109 -66.2637,-22.0916 -66.225,-22.0521 -66.2097,-22.0106 -66.2002,-21.9534 -66.1814,-21.8775 -66.1547,-21.7722 -66.1414,-21.7558 -66.1131,-21.7636 -65.9961,-21.8072 -65.8447,-21.9087 -65.7861,-21.9809 -65.7318,-22.0464 -65.6687,-22.0852 -65.5763,-22.0839 -65.5179,-22.0749 -65.1096,-22.0697 -64.9081,-22.066 -64.8893,-22.0827 -64.6357,-22.1572 -64.6039,-22.1505 -64.5129,-22.188 -64.4673,-22.2354 -64.4604,-22.2616 -64.4464,-22.3838 -64.382,-22.4892 -64.3641,-22.5546 -64.3756,-22.5899 -64.3733,-22.6185 -64.3367,-22.6579 -64.2834,-22.7114 -64.2726,-22.7414 -64.2681,-22.7886 -64.2683,-22.8171 -64.2583,-22.8438 -64.2367,-22.8348 -64.2214,-22.8069 -64.204,-22.7288 -64.2062,-22.7018 -64.2004,-22.6201 -64.1737,-22.5425 -64.1648,-22.5244 -64.1435,-22.4874 -64.12,-22.4697 -64.0934,-22.4451 -64.0475,-22.3848 -63.9794,-22.2248 -63.914,-22.0694 -63.8621,-21.9761 -63.6544,-21.9778 -63.6075,-21.9784 -63.515,-21.9786 -63.0523,-21.9759 -62.8084,-21.9731 -62.7397,-21.9724 -62.7233,-21.9921 -62.7153,-22.034 -62.7155,-22.0687 -62.715,-22.0905 -62.6876,-22.1298 -62.5797,-22.211 -62.5663,-22.214 -62.5405,-22.2503 -62.4442,-22.3457 -62.315,-22.4316 -62.2864,-22.4431 -62.2641,-22.445 -62.2388,-22.4554 -62.208,-22.4706 -62.1733,-22.4998 -62.1633,-22.5174 -62.1605,-22.5448 -62.0778,-22.7306 -62.025,-22.7907 -61.9651,-22.8507 -61.9486,-22.8731 -61.9278,-22.9242 -61.93,-22.9495 -61.9135,-22.9797 -61.8419,-23.0424 -61.812,-23.0482 -61.7784,-23.0638 -61.6808,-23.1453 -61.6693,-23.1617 -61.6673,-23.2079 -61.595,-23.26 -61.556,-23.2574 -61.5174,-23.2708 -61.3743,-23.3917 -61.2874,-23.4296 -61.218,-23.4625 -61.1061,-23.5282 -61.0351,-23.5816 -60.9585,-23.7272 -60.9482,-23.7593 -60.9342,-23.784 -60.9099,-23.7947 -60.7991,-23.8229 -60.6846,-23.8456 -60.6562,-23.8453 -60.5379,-23.8674 -60.5162,-23.8919 -60.5013,-23.9195 -60.3804,-23.962 -60.2041,-24.0113 -60.0872,-24.0146 -60.064,-24.0108 -60.0404,-24.0052 -60.0124,-23.997 -59.9913,-23.9893 -59.9629,-23.9827 -59.9074,-24.0155 -59.5952,-24.2064 -59.4588,-24.2882 -59.3958,-24.3272 -59.3083,-24.4076 -59.282,-24.4437 -59.2642,-24.4612 -59.215,-24.4875 -59.0272,-24.5806 -58.9842,-24.5909 -58.9154,-24.627 -58.8643,-24.6577 -58.848,-24.67 -58.8071,-24.7022 -58.7336,-24.7535 -58.5957,-24.7944 -58.5304,-24.8007 -58.5016,-24.7983 -58.4588,-24.8052 -58.3755,-24.8317 -58.2783,-24.9398 -58.208,-24.9503 -58.108,-24.9472 -58.0555,-24.9799 -57.9859,-25.0062 -57.8619,-25.0492 -57.8342,-25.0499 -57.8056,-25.0565 -57.7845,-25.0691 -57.6875,-25.1432 -57.6761,-25.1719 -57.6635,-25.2047 -57.6329,-25.2428 -57.599,-25.2658 -57.595,-25.2775 -57.5585,-25.3579 -57.5148,-25.3866 -57.4829,-25.4115 -57.4802,-25.4395 -57.5032,-25.5205 -57.6749,-25.7062 -57.7188,-25.7376 -57.7368,-25.7441 -57.7316,-25.8041 -57.7799,-25.8752 -57.8267,-25.9258 -57.8167,-25.9448 -57.786,-25.9686 -57.9285,-26.0747 -57.9738,-26.0899 -58.07,-26.1775 -58.0566,-26.2277 -58.0873,-26.271 -58.1352,-26.3905 -58.1425,-26.5113 -58.1081,-26.5413 -58.0937,-26.5702 -58.1067,-26.6261 -58.2414,-26.8426 -58.2776,-26.8549 -58.3192,-26.8777 -58.396,-26.9567 -58.5032,-27.0918 -58.5304,-27.0946 -58.5525,-27.1006 -58.5766,-27.1283 -58.578,-27.1623 -58.5392,-27.1967 -58.5232,-27.2186 -58.529,-27.2863 -58.4853,-27.2705 -58.4535,-27.2626 -58.4302,-27.2579 -58.4044,-27.2553 -58.2145,-27.2431 -58.0815,-27.2383 -57.9362,-27.2394 -57.861,-27.245 -57.7169,-27.2613 -57.6553,-27.2763 -57.6296,-27.2885 -57.6082,-27.3043 -57.5706,-27.3299 -57.5427,-27.341 -57.3391,-27.3869 -57.2709,-27.3951 -57.2496,-27.3948 -57.2229,-27.4002 -57.1954,-27.4113 -57.1635,-27.4286 -57.1334,-27.441 -57.0905,-27.4532 -57.0479,-27.4594 -57.0041,-27.4612 -56.9706,-27.4458 -56.925,-27.4201 -56.8911,-27.4034 -56.8427,-27.3884 -56.8074,-27.3885 -56.7891,-27.3971 -56.7626,-27.4184 -56.74,-27.4393 -56.7192,-27.4589 -56.6933,-27.4709 -56.6581,-27.4742 -56.6329,-27.4526 -56.6233,-27.4432 -56.5998,-27.4304 -56.5715,-27.423 -56.5339,-27.4175 -56.5052,-27.4176 -56.4769,-27.4217 -56.4472,-27.4312 -56.4312,-27.4442 -56.4209,-27.4713 -56.3833,-27.5161 -56.3458,-27.5436 -56.3252,-27.5533 -56.2928,-27.5537 -56.2726,-27.5392 -56.2024,-27.4375 -56.1962,-27.4177 -56.1988,-27.3942 -56.1957,-27.3584 -56.0715,-27.2807 -56.0264,-27.2741 -55.9922,-27.2721 -55.9633,-27.2744 -55.8929,-27.3013 -55.8509,-27.2957 -55.8205,-27.3017 -55.7955,-27.3274 -55.787,-27.3607 -55.7726,-27.3752 -55.6859,-27.411 -55.6596,-27.4058 -55.5284,-27.3112 -55.513,-27.2862 -55.4969,-27.225 -55.4986,-27.2047 -55.5095,-27.1843 -55.5016,-27.1362 -55.4759,-27.0817 -55.3463,-26.956 -55.3296,-26.9436 -55.308,-26.9359 -55.1999,-26.907 -55.1801,-26.9057 -55.0589,-26.8424 -54.9848,-26.7732 -54.9636,-26.7648 -54.9218,-26.7638 -54.8927,-26.7529 -54.8784,-26.7381 -54.8698,-26.7106 -54.8584,-26.6581 -54.8371,-26.6378 -54.8061,-26.6254 -54.7717,-26.6275 -54.6229,-26.3983 -54.5887,-26.2561 -54.5975,-26.2095 -54.5708,-26.1849 -54.5696,-26.1582 -54.591,-26.1286 -54.5904,-25.947 -54.5346,-25.9142 -54.5416,-25.7528 -54.5536,-25.6195 -54.5291,-25.5442 -54.4767,-25.5413 -54.3993,-25.5916 -54.3827,-25.6042 -54.3144,-25.5518 -54.244,-25.5264 -54.2092,-25.5239 -54.1083,-25.5332 -54.0869,-25.5066 -54.0385,-25.4676 -53.8196,-25.6048 -53.7927,-25.6565 -53.7563,-25.7722 -53.7569,-25.7938 -53.7657,-25.8524 -53.7578,-25.9222 -53.6696,-26.0585 -53.5954,-26.164 -53.5854,-26.1881 -53.581,-26.2204 -53.5815,-26.2333 -53.5852,-26.2478 -53.5999,-26.2803 -53.6222,-26.3053 -53.6429,-26.3344 -53.6406,-26.4814 -53.6568,-26.6268 -53.6665,-26.6659 -53.648,-26.7525 -53.6293,-26.8527 -53.6363,-26.8813 -53.6649,-26.9476 -53.6763,-26.9723 -53.7385,-27.0986 -53.7694,-27.1406 -53.7885,-27.1185 -53.8304,-27.1245 -53.9361,-27.1604 -53.9569,-27.1945 -53.9789,-27.2195 -54.0012,-27.2374 -54.0222,-27.2524 -54.0441,-27.2599 -54.0757,-27.2591 -54.1642,-27.3505 -54.2101,-27.3937 -54.2877,-27.4259 -54.3806,-27.4382 -54.4592,-27.4599 -54.5563,-27.5 -54.6155,-27.5244 -54.7005,-27.5339 -54.7188,-27.5227 -54.7218,-27.5021 -54.743,-27.5046 -54.8275,-27.6392 -54.8309,-27.6798 -54.8373,-27.6989 -54.9504,-27.8025 -54.9925,-27.8142 -55.1084,-27.8248 -55.2496,-27.8908 -55.3026,-27.942 -55.3078,-27.9618 -55.3086,-27.9942 -55.3759,-28.0552 -55.5104,-28.1014 -55.5543,-28.1092 -55.562,-28.127 -55.6067,-28.1636 -55.6374,-28.177 -55.6763,-28.1852 -55.698,-28.2039 -55.6952,-28.2245 -55.6456,-28.2489 -55.6086,-28.2704 -55.5957,-28.3037 -55.6256,-28.3756 -55.6486,-28.3555 -55.6608,-28.3312 -55.7608,-28.3212 -55.7975,-28.3244 -55.8208,-28.3377 -55.9062,-28.4564 -55.9387,-28.529 -55.9936,-28.5937 -56.0974,-28.6959 -56.2028,-28.7442 -56.2226,-28.765 -56.2288,-28.7993 -56.34,-29.0135 -56.3542,-29.0368 -56.4418,-29.06 -56.461,-29.0707 -56.4983,-29.0921 -56.5189,-29.108 -56.5517,-29.1416 -56.5706,-29.1677 -56.5815,-29.1978 -56.5817,-29.2304 -56.6223,-29.3101 -56.7397,-29.4339 -56.8392,-29.5254 -56.9708,-29.6725 -57.002,-29.7046 -57.0297,-29.7285 -57.0705,-29.7428 -57.1205,-29.7439 -57.1535,-29.7471 -57.1832,-29.7579 -57.2057,-29.772 -57.2231,-29.7921 -57.2443,-29.8415 -57.2446,-29.8771 -57.2509,-29.9445 -57.2701,-29.9663 -57.4121,-30.0983 -57.4589,-30.1293 -57.4792,-30.1388 -57.5075,-30.1467 -57.5329,-30.1508 -57.5545,-30.2037 -57.5499,-30.2449 -57.5564,-30.2645 -57.5939,-30.3204 -57.6709,-30.3832 -57.7219,-30.4139 -57.7932,-30.465 -57.8074,-30.4806 -57.8141,-30.5006 -57.8145,-30.5639 -57.7961,-30.5871 -57.7706,-30.6083 -57.7388,-30.679 -57.731,-30.7136 -57.7275,-30.7307 -57.7241,-30.7571 -57.7227,-30.771 -57.7217,-30.8486 -57.7784,-31.0305 -57.8453,-31.2356 -57.9288,-31.3823 -57.9632,-31.3982 -57.9924,-31.4143 -58.0033,-31.4403 -57.9895,-31.4587 -57.9601,-31.4719 -57.9372,-31.4881 -57.9142,-31.513 -57.9024,-31.5455 -57.9058,-31.584 -57.9644,-31.7532 -57.9878,-31.7766 -58.022,-31.7911 -58.0632,-31.7986 -58.0863,-31.8051 -58.1086,-31.8246 -58.1241,-31.8589 -58.0846,-31.9152 -58.07,-31.9572 -58.0754,-32.0301 -58.0855,-32.0649 -58.1027,-32.0902 -58.1065,-32.1208 -58.087,-32.1605 -58.0642,-32.1852 -58.026,-32.2182 -58.0218,-32.2584 -58.0257,-32.2894 -58.0595,-32.3179 -58.0745,-32.3334 -58.1011,-32.3676 -58.1235,-32.4139 -58.1369,-32.4276 -58.1454,-32.45 -58.149,-32.485 -58.1481,-32.5349 -58.1227,-32.6687 -58.0923,-32.8222 -58.0749,-32.9072 -58.0709,-33.0083 -58.0791,-33.0296 -58.0935,-33.0441 -58.1122,-33.0538 -58.1458,-33.0579 -58.1686,-33.0561 -58.1897,-33.0518 -58.2913,-33.044 -58.3269,-33.0439 -58.3496,-33.06 -58.3505,-33.2245 -58.3795,-33.2979 -58.396,-33.3158 -58.431,-33.3716 -58.4494,-33.4477 -58.4556,-33.4792 -58.4731,-33.6225 -58.4734,-33.6482 -58.4707,-33.6983 -58.456,-33.7333 -58.4127,-33.7894 -58.3904,-33.8105 -58.3644,-33.9424 -58.3723,-33.9722 -58.3483,-33.9818 -58.3211,-33.9947 -58.3093,-34.012 -58.3015,-34.1476 -58.336,-34.196 -58.3583,-34.2233 -58.3993,-34.2432 -58.4229,-34.2881 -58.4174,-34.3582 -58.4,-34.45 -58.3935,-34.5009 -58.387,-34.509 -58.3516,-34.5338 -58.3242,-34.5377 -58.2939,-34.5476 -58.2704,-34.5948 -58.2502,-34.619 -58.1552,-34.678 -58.0884,-34.7086 -58.0543,-34.7166 -58.002,-34.7318 -57.9354,-34.7522 -57.7798,-34.8117 -57.7208,-34.8397 -57.422,-35.0077 -57.261,-35.1159 -57.2384,-35.1383 -57.1142,-35.2809 -57.0612,-35.3589 -57.0486,-35.3838 -57.0556,-35.4304 -57.0678,-35.449 -57.1046,-35.4994 -57.1587,-35.549 -57.2353,-35.648 -57.2805,-35.709 -57.3014,-35.741 -57.3085,-35.7608 -57.3131,-35.7905 -57.3128,-35.866 -57.3102,-35.8899 -57.3019,-35.9222 -57.2909,-35.9463 -57.2358,-36.0541 -57.1672,-36.1374 -57.1454,-36.1578 -57.0714,-36.2152 -57.0304,-36.2443 -56.9786,-36.2733 -56.859,-36.3277 -56.8286,-36.3237 -56.7977,-36.308 -56.696,-36.2642 -56.6711,-36.2751 -56.6242,-36.3682 -56.6194,-36.3904 -56.5968,-36.5404 -56.5861,-36.8319 -56.5886,-36.8588 -56.604,-36.882 -56.6292,-36.9106 -56.6484,-36.9295 -56.6636,-36.9453 -56.7463,-37.0409 -56.8707,-37.2091 -56.9508,-37.3286 -56.9582,-37.3478 -57.0075,-37.4104 -57.0445,-37.4506 -57.1088,-37.5177 -57.1351,-37.5383 -57.1798,-37.5713 -57.1977,-37.5842 -57.2543,-37.6311 -57.3357,-37.7125 -57.4078,-37.7876 -57.4254,-37.8166 -57.4396,-37.8421 -57.449,-37.871 -57.4554,-37.8948 -57.4644,-37.9466 -57.4496,-37.9827 -57.457,-38.0431 -57.4755,-38.0707 -57.5015,-38.0954 -57.5494,-38.13 -57.5686,-38.1426 -57.5976,-38.1606 -57.7594,-38.25 -58.0839,-38.3918 -58.1117,-38.4035 -58.2232,-38.4417 -58.579,-38.5312 -58.6884,-38.5562 -58.7148,-38.5655 -58.953,-38.6469 -58.9859,-38.6537 -59.0208,-38.6582 -59.0926,-38.6659 -59.188,-38.6814 -59.4152,-38.7232 -59.5928,-38.76 -59.7097,-38.7932 -59.8077,-38.7982 -59.8287,-38.8005 -60.1103,-38.8426 -60.386,-38.8842 -60.6198,-38.9097 -60.7421,-38.9286 -60.7782,-38.9325 -61.0123,-38.9519 -61.0801,-38.9548 -61.1124,-38.9535 -61.2288,-38.9478 -61.2776,-38.9386 -61.3083,-38.9365 -61.3407,-38.94 -61.3708,-38.9461 -61.4225,-38.965 -61.4576,-38.9693 -61.5516,-38.9614 -61.7349,-38.9421 -61.7582,-38.9376 -61.8946,-38.9104 -61.9401,-38.8992 -62.0054,-38.872 -62.0211,-38.8432 -62.0295,-38.8204 -62.1251,-38.7726 -62.2681,-38.7462 -62.3014,-38.759 -62.3117,-38.7763 -62.2982,-38.8152 -62.2831,-38.8369 -62.241,-38.8801 -62.1954,-38.9119 -62.2317,-38.9924 -62.2533,-39.0346 -62.2657,-39.1232 -62.2434,-39.2156 -62.2012,-39.2266 -62.1652,-39.2315 -62.1409,-39.2321 -62.0821,-39.242 -61.9889,-39.2828 -61.9406,-39.3212 -61.9408,-39.3431 -61.9727,-39.3671 -62.0519,-39.3265 -62.0808,-39.3041 -62.094,-39.2843 -62.1076,-39.2649 -62.1751,-39.272 -62.191,-39.294 -62.0627,-39.3889 -61.9847,-39.4639 -62.0095,-39.5972 -62.0229,-39.6734 -62.0258,-39.6991 -62.0283,-39.7374 -62.0327,-39.792 -62.0886,-39.8156 -62.1777,-39.8004 -62.2244,-39.8473 -62.2568,-39.969 -62.257,-40.0575 -62.2528,-40.0791 -62.2666,-40.1333 -62.2837,-40.1636 -62.3019,-40.1771 -62.3375,-40.1875 -62.3897,-40.2322 -62.4031,-40.2568 -62.3572,-40.3714 -62.3359,-40.4123 -62.2113,-40.5109 -62.1815,-40.5116 -62.162,-40.5553 -62.1777,-40.5861 -62.223,-40.5847 -62.2509,-40.561 -62.2528,-40.6251 -62.2411,-40.6322 -62.1745,-40.5994 -62.1102,-40.5825 -62.1147,-40.6035 -62.1405,-40.6155 -62.1938,-40.735 -62.2353,-40.8191 -62.3044,-40.8554 -62.3243,-40.8633 -62.5085,-40.9385 -62.6405,-41.0001 -62.6669,-41.0019 -62.6852,-41.0007 -62.8591,-41.061 -62.9123,-41.0799 -62.9286,-41.0921 -62.9495,-41.1026 -62.9744,-41.1069 -63.0322,-41.1122 -63.0551,-41.114 -63.2794,-41.1152 -63.3519,-41.1119 -63.476,-41.1151 -63.5905,-41.1195 -63.6141,-41.1196 -63.6871,-41.118 -63.7196,-41.1125 -63.7517,-41.1005 -63.7872,-41.0825 -63.8211,-41.0552 -63.8425,-41.0374 -63.8701,-41.0197 -63.9052,-41.0064 -63.9756,-40.9894 -64.0608,-40.9732 -64.211,-40.9132 -64.3977,-40.8522 -64.4213,-40.8477 -64.4428,-40.8414 -64.6338,-40.7858 -64.6601,-40.7527 -64.6889,-40.6849 -64.7154,-40.6757 -64.7959,-40.6624 -64.8205,-40.6607 -64.8482,-40.6647 -64.8944,-40.6776 -65.0406,-40.7978 -65.077,-40.8852 -65.0899,-40.944 -65.0778,-41.0444 -65.0722,-41.0674 -65.043,-41.1794 -64.9766,-41.3933 -64.9557,-41.4191 -64.935,-41.434 -64.9144,-41.4458 -64.902,-41.4702 -64.9063,-41.5132 -64.9106,-41.5332 -64.9253,-41.5638 -64.9374,-41.5935 -64.9383,-41.6383 -64.9309,-41.6711 -64.9218,-41.6925 -64.9045,-41.7208 -64.9182,-41.7649 -64.933,-41.7943 -64.9469,-41.8179 -64.9821,-41.8792 -64.9896,-41.91 -64.9861,-41.9345 -64.9722,-41.9625 -64.9237,-42.0445 -64.904,-42.0644 -64.8729,-42.0894 -64.8445,-42.1091 -64.7871,-42.1415 -64.6479,-42.1804 -64.5143,-42.2088 -64.4934,-42.2093 -64.4494,-42.198 -64.4107,-42.2028 -64.3749,-42.2178 -64.3902,-42.236 -64.4179,-42.2535 -64.4442,-42.275 -64.4625,-42.2961 -64.5114,-42.3592 -64.5055,-42.3863 -64.3623,-42.3978 -64.0464,-42.388 -64.0245,-42.3833 -63.9737,-42.3485 -63.9583,-42.3295 -63.956,-42.2626 -63.9743,-42.2306 -63.9948,-42.2186 -64.0216,-42.212 -64.0533,-42.2088 -64.1337,-42.211 -64.1594,-42.2135 -64.204,-42.2141 -64.2389,-42.1982 -64.207,-42.1818 -64.0724,-42.1623 -63.925,-42.1177 -63.8096,-42.064 -63.7835,-42.0546 -63.7599,-42.051 -63.6848,-42.0423 -63.6626,-42.0422 -63.6443,-42.0523 -63.6083,-42.1166 -63.5966,-42.1433 -63.5841,-42.1694 -63.5634,-42.1957 -63.5283,-42.2246 -63.5158,-42.2433 -63.5064,-42.261 -63.4988,-42.2836 -63.4908,-42.5666 -63.54,-42.7164 -63.5958,-42.7673 -63.6286,-42.7767 -63.6627,-42.7804 -63.7494,-42.7946 -63.9746,-42.8372 -64.0091,-42.84 -64.0478,-42.8242 -64.1587,-42.7265 -64.1613,-42.7013 -64.1359,-42.643 -64.1096,-42.5968 -64.2274,-42.5026 -64.2459,-42.4922 -64.3085,-42.4675 -64.3647,-42.459 -64.405,-42.4593 -64.4327,-42.4601 -64.5285,-42.4709 -64.6445,-42.511 -64.6652,-42.5319 -64.6883,-42.5562 -64.7307,-42.5802 -64.7497,-42.587 -64.7858,-42.5886 -64.8385,-42.5991 -64.8636,-42.6127 -64.9284,-42.6954 -64.9187,-42.7297 -64.899,-42.7459 -64.8501,-42.7535 -64.7155,-42.7927 -64.6398,-42.8256 -64.5881,-42.8592 -64.5665,-42.8709 -64.5376,-42.8836 -64.5041,-42.8923 -64.3245,-42.9288 -64.3002,-42.9264 -64.2642,-42.9144 -64.2323,-42.9032 -64.2068,-42.9422 -64.2749,-42.982 -64.3022,-42.9965 -64.437,-43.0448 -64.5015,-43.0677 -64.614,-43.0842 -64.6789,-43.1 -64.71,-43.1121 -64.7411,-43.1275 -64.8394,-43.1865 -64.943,-43.2621 -64.9525,-43.2802 -65.0414,-43.4098 -65.1642,-43.523 -65.1927,-43.5566 -65.2355,-43.612 -65.245,-43.6669 -65.2431,-43.6904 -65.2247,-43.7774 -65.2065,-43.8021 -65.1926,-43.8272 -65.1798,-43.8599 -65.167,-43.9198 -65.1397,-43.9114 -65.1187,-43.9079 -65.1373,-44.0609 -65.164,-44.0697 -65.2019,-44.081 -65.2208,-44.1367 -65.2172,-44.1572 -65.1778,-44.2353 -65.1579,-44.2626 -65.231,-44.3546 -65.2475,-44.3768 -65.2957,-44.4708 -65.5047,-44.5659 -65.5324,-44.5843 -65.5475,-44.5977 -65.5967,-44.661 -65.6268,-44.7251 -65.6284,-44.7546 -65.6204,-44.7785 -65.5765,-44.8006 -65.5562,-44.8024 -65.5357,-44.8039 -65.4452,-44.8411 -65.5192,-44.9693 -65.5963,-44.9911 -65.6327,-44.9734 -65.6572,-44.9598 -65.75,-44.9353 -66.0188,-44.91 -66.0899,-44.9134 -66.2608,-44.9806 -66.4244,-45.0327 -66.4396,-45.0603 -66.4733,-45.1059 -66.5923,-45.1468 -66.7357,-45.1572 -66.7595,-45.1608 -66.8525,-45.2023 -66.8965,-45.2301 -66.9438,-45.2855 -67.007,-45.3699 -67.0873,-45.4746 -67.1031,-45.4878 -67.1562,-45.519 -67.1786,-45.5308 -67.2037,-45.5444 -67.2243,-45.5676 -67.2349,-45.591 -67.2862,-45.743 -67.3223,-45.7659 -67.4417,-45.8762 -67.4891,-45.9478 -67.5224,-46.0188 -67.5248,-46.0773 -67.523,-46.1242 -67.5135,-46.159 -67.4861,-46.2505 -67.4778,-46.2725 -67.4379,-46.3693 -67.4068,-46.4092 -67.3504,-46.4715 -67.3092,-46.5143 -67.2617,-46.5575 -67.2424,-46.572 -67.1129,-46.6446 -67.0837,-46.6552 -67.0041,-46.7046 -66.8584,-46.8166 -66.7233,-46.9352 -66.6396,-46.9781 -66.6142,-46.988 -66.5737,-46.9948 -66.5464,-46.9965 -66.5264,-46.9961 -66.4817,-46.9925 -66.4112,-46.9919 -66.2753,-47.0075 -66.2565,-47.0241 -66.1147,-47.0397 -66.0061,-47.0376 -65.9596,-47.0204 -65.9192,-47.013 -65.895,-47.0134 -65.8004,-47.0477 -65.6811,-47.1412 -65.6385,-47.2762 -65.6383,-47.2966 -65.6413,-47.3347 -65.6502,-47.4058 -65.6608,-47.4819 -65.6904,-47.5569 -65.7754,-47.7008 -65.7931,-47.7114 -65.836,-47.7128 -65.874,-47.7039 -65.9067,-47.7026 -65.9346,-47.7079 -65.9539,-47.7163 -65.9705,-47.7294 -65.9956,-47.7504 -66.0187,-47.7624 -66.075,-47.7682 -66.1336,-47.7854 -66.1482,-47.8051 -66.1162,-47.789 -66.0865,-47.7842 -66.0317,-47.7807 -65.9849,-47.7644 -65.8822,-47.73 -65.8619,-47.7313 -65.8097,-47.7545 -65.6933,-47.878 -65.6947,-47.9107 -65.7333,-47.9174 -65.7576,-47.91 -65.7889,-47.8969 -65.8177,-47.8911 -65.8722,-47.9067 -65.8508,-47.9945 -65.8688,-48.0376 -65.9714,-48.045 -66.1855,-48.1887 -66.2392,-48.2281 -66.314,-48.2857 -66.3706,-48.3422 -66.4531,-48.3523 -66.5427,-48.376 -66.5676,-48.3846 -66.5913,-48.4002 -66.6542,-48.4554 -66.7284,-48.5141 -66.7825,-48.5219 -66.8155,-48.5276 -66.8404,-48.5336 -66.869,-48.5422 -66.9655,-48.5753 -66.9908,-48.586 -67.0266,-48.6141 -67.1068,-48.7084 -67.1462,-48.7671 -67.1864,-48.7783 -67.2145,-48.7875 -67.2394,-48.7991 -67.306,-48.8378 -67.3879,-48.9077 -67.4054,-48.9236 -67.4094,-48.9277 -67.42,-48.9345 -67.4615,-48.9624 -67.4868,-48.984 -67.5391,-49.0616 -67.5288,-49.0854 -67.5149,-49.1145 -67.5787,-49.1875 -67.6267,-49.2274 -67.6687,-49.2599 -67.6911,-49.273 -67.7279,-49.3296 -67.6226,-49.3216 -67.598,-49.295 -67.5885,-49.2666 -67.5513,-49.2034 -67.5261,-49.1959 -67.5065,-49.2073 -67.557,-49.3706 -67.5899,-49.4657 -67.6191,-49.5745 -67.6289,-49.65 -67.6371,-49.7 -67.6463,-49.7352 -67.6528,-49.7583 -67.6652,-49.7985 -67.6741,-49.8204 -67.6875,-49.8466 -67.7094,-49.8671 -67.775,-49.9144 -67.7964,-49.9283 -67.824,-49.9445 -67.8719,-49.972 -67.9035,-49.9894 -67.94,-50.0069 -67.9592,-50.0154 -68.0753,-50.0513 -68.0978,-50.0571 -68.1409,-50.0641 -68.1708,-50.0652 -68.1922,-50.0652 -68.2286,-50.0625 -68.321,-50.0101 -68.4047,-49.9208 -68.4904,-49.8708 -68.504,-49.8917 -68.5899,-49.9169 -68.6271,-49.9148 -68.731,-49.9105 -68.7517,-49.9113 -68.8437,-49.927 -68.8638,-49.9312 -68.9002,-49.9519 -68.8063,-49.9454 -68.7805,-49.9345 -68.7416,-49.9249 -68.7117,-49.9254 -68.6799,-49.9321 -68.5662,-49.9346 -68.5441,-49.9316 -68.5157,-49.9223 -68.4831,-49.9228 -68.4509,-49.9399 -68.4337,-49.9669 -68.4201,-49.9996 -68.4059,-50.0149 -68.385,-50.0262 -68.367,-50.0351 -68.3155,-50.0571 -68.2752,-50.0748 -68.2701,-50.0972 -68.2938,-50.1231 -68.3204,-50.137 -68.3418,-50.1439 -68.3719,-50.1521 -68.4444,-50.1682 -68.5466,-50.1919 -68.5688,-50.1989 -68.668,-50.2311 -68.7166,-50.2478 -68.7483,-50.2623 -68.7706,-50.2752 -68.8367,-50.3295 -68.8544,-50.3458 -68.9628,-50.4637 -68.9759,-50.4828 -68.9976,-50.5351 -69.0403,-50.685 -69.0397,-50.7449 -69.0325,-50.8015 -69.038,-50.8226 -69.0664,-50.8496 -69.1406,-50.9057 -69.2052,-50.9416 -69.2273,-50.9553 -69.2716,-50.9889 -69.2991,-51.0201 -69.2599,-50.9932 -69.196,-50.951 -69.0863,-50.9075 -69.057,-50.9463 -69.0374,-50.9868 -69.0366,-51.0181 -69.0389,-51.0482 -69.0349,-51.0728 -69.0256,-51.0977 -68.951,-51.2662 -68.9408,-51.287 -68.9011,-51.3587 -68.884,-51.3892 -68.8707,-51.4119 -68.8572,-51.4445 -68.846,-51.4798 -68.8629,-51.5126 -68.8885,-51.5125 -68.9072,-51.5033 -68.947,-51.5077 -68.9709,-51.5168 -69.0232,-51.5499 -69.0474,-51.5473 -69.0982,-51.534 -69.1884,-51.4978 -69.2667,-51.4964 -69.3718,-51.5163 -69.5011,-51.564 -69.441,-51.5582 -69.4174,-51.5524 -69.3877,-51.5433 -69.2797,-51.5319 -69.2387,-51.5345 -69.1494,-51.5495 -69.0714,-51.574 -68.9061,-51.5568 -68.8825,-51.5644 -68.815,-51.641 -68.7581,-51.7222 -68.7023,-51.8117 -68.6837,-51.8385 -68.6633,-51.8634 -68.5794,-51.9614 -68.5572,-51.9836 -68.5055,-52.035 -68.4875,-52.0513 -68.4647,-52.0685 -68.4052,-52.1111 -68.3317,-52.1835 -68.2992,-52.2227 -68.2742,-52.2662 -68.3123,-52.3113 -68.3331,-52.3165 -68.3274,-52.2676 -68.4668,-52.2442 -68.5397,-52.2361 -68.6184,-52.229 -68.7196,-52.2187 -68.7707,-52.195 -68.8266,-52.1698 -68.8821,-52.1451 -68.9236,-52.1338 -69.1244,-52.0826 -69.1779,-52.0831 -69.3515,-52.083 -69.6557,-51.9998 -69.7778,-51.9654 -69.833,-51.9502 -69.8884,-51.9356 -69.9566,-51.9356 -69.9998,-51.9358 -70.324,-51.9367 -70.5511,-51.9367 -71.1214,-51.9369 -71.5816,-51.9363 -71.7973,-51.9351 -71.8293,-51.8537 -71.8297,-51.8207 -71.847,-51.7943 -71.9749,-51.7042 -72.0227,-51.6797 -72.0482,-51.6681 -72.0689,-51.6596 -72.0959,-51.6521 -72.1457,-51.6469 -72.1763,-51.6362 -72.2882,-51.4537 -72.257,-51.439 -72.2352,-51.4249 -72.1978,-51.3393 -72.2013,-51.2996 -72.1997,-51.2516 -72.1807,-51.225 -72.1513,-51.2054 -72.1382,-51.1781 -72.179,-51.1449 -72.2151,-51.1325 -72.2406,-51.1203 -72.2646,-51.0994 -72.2838,-51.0486 -72.223,-50.9749 -72.1708,-50.971 -72.155,-50.9515 -72.1323,-50.7955 -72.1438,-50.7726 -72.1699,-50.7416 -72.1924,-50.7215 -72.2239,-50.6972 -72.2285,-50.6728 -72.1902,-50.6185 -72.1839,-50.594 -72.2602,-50.5557 -72.3812,-50.5442 -72.4081,-50.5473 -72.4326,-50.555 -72.4543,-50.5725 -72.4766,-50.6011 -72.4964,-50.6102 -72.5288,-50.6131 -72.5606,-50.6052 -72.5805,-50.5937 -72.5981,-50.5786 -72.6263,-50.5622 -72.6555,-50.562 -72.7622,-50.5955 -72.795,-50.6088 -72.8149,-50.6202 -72.8458,-50.6473 -72.8728,-50.671 -72.9066,-50.6906 -72.9409,-50.7029 -72.9721,-50.7096 -72.9974,-50.7135 -73.0254,-50.7108 -73.0467,-50.7001 -73.0651,-50.6809 -73.1176,-50.5392 -73.1383,-50.4418 -73.1557,-50.2972 -73.1668,-50.2703 -73.207,-50.2088 -73.2214,-50.1912 -73.2386,-50.1782 -73.3258,-50.1331 -73.3748,-50.1089 -73.4117,-50.0905 -73.4258,-50.062 -73.4144,-50.0296 -73.3912,-49.9986 -73.3644,-49.9742 -73.3605,-49.9439 -73.3807,-49.9259 -73.4055,-49.9108 -73.4451,-49.8829 -73.42,-49.7953 -73.3926,-49.7738 -73.357,-49.752 -73.3377,-49.7334 -73.4066,-49.548 -73.4603,-49.5022 -73.4736,-49.4837 -73.4316,-49.3861 -73.3566,-49.2547 -73.3151,-49.2529 -73.0606,-49.2477 -73.0285,-49.2475 -72.9791,-49.2107 -73.0602,-49.1959 -73.067,-49.186 -73.0693,-49.1652 -72.9701,-49.0114 -72.8996,-48.9417 -72.8755,-48.9219 -72.845,-48.9082 -72.8091,-48.8979 -72.7891,-48.8944 -72.7497,-48.8957 -72.7041,-48.8896 -72.6748,-48.8815 -72.6488,-48.8718 -72.6306,-48.8633 -72.6025,-48.8474 -72.4807,-48.7684 -72.4551,-48.7431 -72.4462,-48.7206 -72.4463,-48.6752 -72.4502,-48.6382 -72.4554,-48.5955 -72.4681,-48.5315 -72.474,-48.509 -72.485,-48.4778 -72.4983,-48.4383 -72.4899,-48.4172 -72.4725,-48.4012 -72.4515,-48.3912 -72.3855,-48.3672 -72.3211,-48.3495 -72.1871,-48.2922 -72.1954,-48.1349 -72.2175,-48.0232 -72.3024,-47.9532 -72.3452,-47.9461 -72.3738,-47.9335 -72.4103,-47.9059 -72.4267,-47.8862 -72.4304,-47.8603 -72.3516,-47.7084 -72.3246,-47.6662 -72.3,-47.6372 -72.2701,-47.6051 -72.2489,-47.5818 -72.2357,-47.563 -72.2255,-47.5413 -72.2045,-47.4508 -72.2377,-47.4356 -72.2553,-47.4236 -72.2465,-47.3955 -72.2317,-47.381 -72.2101,-47.3717 -72.1895,-47.3654 -72.1528,-47.3566 -72.1264,-47.3562 -72.0906,-47.3643 -72.0557,-47.3565 -71.978,-47.2986 -71.9141,-47.2231 -71.78,-47.1785 -71.7652,-47.1643 -71.7495,-47.1186 -71.76,-47.0855 -71.7899,-47.0616 -71.8735,-46.9806 -71.8368,-46.7624 -71.8148,-46.7463 -71.7479,-46.7431 -71.7115,-46.7324 -71.5846,-46.6491 -71.571,-46.6303 -71.5646,-46.5992 -71.5687,-46.4852 -71.5883,-46.4373 -71.6232,-46.3775 -71.6394,-46.2185 -71.6449,-46.1942 -71.6656,-46.1686 -71.699,-46.1567 -71.7332,-46.148 -71.8002,-46.0962 -71.7494,-46.0797 -71.7226,-46.0776 -71.6917,-46.0726 -71.6644,-46.0642 -71.6395,-46.0438 -71.6196,-46.0155 -71.5986,-45.9918 -71.5646,-45.9599 -71.5437,-45.9468 -71.5374,-45.9443 -71.5034,-45.9244 -71.5283,-45.8509 -71.5487,-45.831 -71.5935,-45.8166 -71.6234,-45.8095 -71.6528,-45.7967 -71.6911,-45.6768 -71.6811,-45.6027 -71.6497,-45.5066 -71.6118,-45.4869 -71.5718,-45.4756 -71.549,-45.472 -71.5286,-45.4694 -71.5055,-45.4704 -71.3672,-45.4254 -71.1987,-45.2533 -71.2296,-45.1797 -71.398,-45.0242 -71.4486,-44.9477 -71.4819,-44.9241 -71.6401,-44.8859 -71.7058,-44.8795 -71.8334,-44.871 -71.9657,-44.8507 -71.9807,-44.7362 -71.974,-44.7153 -71.946,-44.7031 -71.9182,-44.708 -71.8929,-44.7183 -71.8731,-44.7253 -71.8504,-44.7319 -71.7401,-44.7415 -71.7127,-44.7339 -71.6941,-44.7121 -71.6704,-44.7044 -71.6137,-44.7131 -71.5927,-44.7192 -71.5728,-44.7263 -71.5529,-44.7317 -71.5284,-44.7289 -71.508,-44.7235 -71.4552,-44.7034 -71.4178,-44.6931 -71.3914,-44.6929 -71.371,-44.696 -71.3426,-44.7105 -71.2956,-44.7361 -71.2694,-44.7453 -71.2393,-44.7522 -71.2054,-44.7527 -71.1776,-44.7472 -71.126,-44.6958 -71.1204,-44.6661 -71.1274,-44.6376 -71.1319,-44.6125 -71.0899,-44.541 -71.0451,-44.5358 -71.022,-44.5179 -71.009,-44.4846 -71.062,-44.4006 -71.0957,-44.3796 -71.301,-44.3498 -71.3805,-44.3521 -71.4451,-44.3591 -71.5258,-44.3595 -71.6781,-44.3573 -71.7271,-44.3497 -71.7527,-44.3221 -71.7423,-44.3017 -71.6966,-44.2779 -71.6933,-44.1654 -71.6997,-44.1398 -71.7174,-44.112 -71.6787,-44.0338 -71.6462,-44.0089 -71.5553,-43.9063 -71.5466,-43.8881 -71.5482,-43.8664 -71.5981,-43.8169 -71.6559,-43.7694 -71.7073,-43.7134 -71.7069,-43.6847 -71.6858,-43.6762 -71.6662,-43.6702 -71.6026,-43.6394 -71.5904,-43.6167 -71.6014,-43.5519 -71.7484,-43.4511 -71.8352,-43.4038 -71.8293,-43.3376 -71.7953,-43.2762 -71.6952,-43.2516 -71.6588,-43.2581 -71.6399,-43.2485 -71.6333,-43.2293 -71.6396,-43.127 -71.7355,-43.0838 -71.7677,-43.0775 -71.8308,-43.0733 -71.8587,-43.072 -71.8991,-43.0729 -71.9522,-43.0556 -71.9778,-43.0398 -72.0175,-42.9902 -72.0364,-42.957 -72.033,-42.9072 -72.026,-42.8877 -72.0133,-42.8654 -72.0042,-42.833 -72.0015,-42.8059 -72.0071,-42.7119 -72.0104,-42.6722 -72.028,-42.6203 -72.0388,-42.5425 -72.0347,-42.5209 -72.026,-42.499 -72.0112,-42.4786 -71.9447,-42.3209 -71.9567,-42.3012 -71.9818,-42.2851 -72.0088,-42.2677 -72.0304,-42.2373 -71.9384,-42.1014 -71.9177,-42.0861 -71.8939,-42.0766 -71.8621,-42.0815 -71.8483,-42.0989 -71.8382,-42.1243 -71.8075,-42.1283 -71.6779,-42.0827 -71.6271,-42.0473 -71.6321,-41.9818 -71.6606,-41.9521 -71.6642,-41.8987 -71.6784,-41.8398 -71.6885,-41.8136 -71.751,-41.7191 -71.8154,-41.6048 -71.8151,-41.5763 -71.7929,-41.5568 -71.7507,-41.5024 -71.7688,-41.3857 -71.7834,-41.3591 -71.7941,-41.34 -71.7998,-41.3097 -71.7846,-41.2471 -71.7672,-41.2191 -71.7623,-41.1951 -71.7417,-41.0124 -71.7605,-40.9647 -71.7394,-40.9091 -71.7514,-40.8661 -71.7644,-40.8444 -71.8154,-40.76 -71.8513,-40.6808 -71.8319,-40.6552 -71.8016,-40.6354 -71.7807,-40.6191 -71.7609,-40.5975 -71.7408,-40.5548 -71.7422,-40.5277 -71.7393,-40.4858 -71.6816,-40.3633 -71.6605,-40.3645 -71.6376,-40.3818 -71.6177,-40.3779 -71.6036,-40.3587 -71.566,-40.289 -71.5707,-40.2513 -71.6046,-40.2332 -71.6217,-40.2568 -71.6933,-40.2002 -71.7201,-40.1589 -71.6932,-40.0696 -71.6519,-40.044 -71.5692,-40.0023 -71.5358,-39.9055 -71.5724,-39.8094 -71.6079,-39.6825 -71.6119,-39.5821 -71.5927,-39.5309 -71.5853,-39.5227 -71.5697,-39.522 -71.5282,-39.5671 -71.5022,-39.5765 -71.4105,-39.573 -71.3959,-39.5544 -71.3888,-39.5169 -71.354,-39.3908 -71.3069,-39.2856 -71.2918,-39.196 -71.3063,-39.0856 -71.3162,-39.0221 -71.3263,-38.9955 -71.3268,-38.9699 -71.3229,-38.9165 -71.3148,-38.8916 -71.2981,-38.8695 -71.2652,-38.845 -71.2388,-38.832 -71.1435,-38.7871 -71.0028,-38.7225 -70.9583,-38.7047 -70.9313,-38.7018 -70.8997,-38.7044 -70.851,-38.7055 -70.8287,-38.697 -70.7673,-38.6464 -70.7351,-38.5444 -70.7311,-38.5125 -70.7496,-38.4786 -70.7861,-38.4554 -70.8127,-38.4428 -70.8556,-38.4074 -70.877,-38.3723 -70.9085,-38.2419 -70.9188,-38.1845 -70.9145,-38.161 -70.9063,-38.1111 -70.9041,-38.0273 -71.0007,-37.8396 -71.0298,-37.7949 -71.0361,-37.7714 -71.0432,-37.7484 -71.0667,-37.7028 -71.0857,-37.6538 -71.0883,-37.6166 -71.0816,-37.5839 -71.0633,-37.5663 -71.0291,-37.5458 -71.015,-37.4165 -71.0241,-37.3927 -71.0515,-37.3634 -71.0729,-37.337 -71.1026,-37.2602 -71.0892,-37.2264 -71.0541,-37.1941 -71.0366,-37.15 -71.0194,-37.0725 -71.0552,-36.9337 -71.0928,-36.804 -71.0438,-36.7003 -70.9617,-36.5058 -70.9414,-36.4426 -70.9235,-36.4347 -70.8891,-36.4426 -70.8599,-36.4458 -70.6144,-36.3733 -70.6038,-36.3499 -70.6264,-36.3032 -70.6123,-36.2297 -70.4963,-36.124 -70.4124,-36.1215 -70.3757,-36.1232 -70.3468,-36.1107 -70.3325,-36.0952 -70.3041,-36.035 -70.3156,-35.9306 -70.3196,-35.8525 -70.3106,-35.8304 -70.2834,-35.7928 -70.2522,-35.7708 -70.2828,-35.6948 -70.3169,-35.6322 -70.3269,-35.5949 -70.3127,-35.5745 -70.3048,-35.4749 -70.3304,-35.3246 -70.4414,-35.2681 -70.4586,-35.2569 -70.4754,-35.2283 -70.4734,-35.2021 -70.4489,-35.1706 -70.4248,-35.1652 -70.3908,-35.1635 -70.3596,-35.1587 -70.2897,-35.1294 -70.2717,-35.1051 -70.2666,-35.0609 -70.2705,-35.0395 -70.2717,-35.0033 -70.2707,-34.965 -70.2683,-34.9576 -70.206,-34.8143 -70.1414,-34.6228 -70.0587,-34.493 -69.9545,-34.3615 -69.961,-34.3162 -69.9615,-34.2573 -69.9564,-34.2473 -69.9386,-34.2382 -69.8951,-34.2312 -69.8663,-34.232 -69.8438,-34.2373 -69.7973,-34.2398 -69.7266,-34.1962 -69.7574,-34.0587 -69.7933,-33.8538 -69.8131,-33.7894 -69.814,-33.7406 -69.7786,-33.5175 -69.7183,-33.4002 -69.6927,-33.3753 -69.6841,-33.3495 -69.7126,-33.2416 -69.7843,-33.2078 -69.8114,-33.1998 -69.8364,-33.2033 -69.8644,-33.2277 -69.8847,-33.2583 -69.9093,-33.2612 -70.0044,-33.142 -70.0093,-33.1159 -69.9998,-33.0854 -69.9932,-33.0398 -70.0082,-33.0145 -69.9804,-32.9686 -69.9297,-32.912 -69.9022,-32.8392 -69.9538,-32.8171 -70.0535,-32.7224 -70.0793,-32.5911 -70.073,-32.5446 -70.0608,-32.5065 -70.0552,-32.4695 -70.0626,-32.4394 -70.1394,-32.3053 -70.1528,-32.2733 -70.2215,-32.2479 -70.2292,-32.2291 -70.2255,-32.192 -70.2571,-32.0507 -70.2152,-32.0115 -70.1733,-32.0062 -70.1407,-31.9292 -70.146,-31.9026 -70.193,-31.856 -70.2124,-31.8463 -70.2481,-31.8486 -70.2816,-31.8503 -70.3203,-31.8431 -70.3386,-31.8326 -70.3547,-31.8131 -70.367,-31.7965 -70.4947,-31.5284 -70.4873,-31.4947 -70.4754,-31.4338 -70.4684,-31.2873 -70.4394,-31.1463 -70.4289,-31.1241 -70.3598,-31.0595 -70.3384,-31.0786 -70.2705,-31.0579 -70.2035,-30.9946 -70.1998,-30.961 -70.2365,-30.9221 -70.24,-30.8964 -70.2356,-30.8563 -70.2249,-30.7902 -70.1779,-30.6437 -70.161,-30.6033 -70.1203,-30.525 -70.0427,-30.4053 -69.9604,-30.3606 -69.9388,-30.3635 -69.9074,-30.3611 -69.8476,-30.3384 -69.8079,-30.291 -69.7407,-30.1564 -69.7382,-30.11 -69.7507,-30.0865 -69.7727,-30.07 -69.8341,-29.9662 -69.8279,-29.9403 -69.8168,-29.8843 -69.8144,-29.7659 -69.8238,-29.687 -69.8264,-29.68 -69.8593,-29.661 -69.8721,-29.6447 -69.8779,-29.6222 -69.873,-29.5952 -69.866,-29.567 -69.8691,-29.5223 -69.8741,-29.5023 -69.9124,-29.3907 -69.9383,-29.3419 -69.944,-29.319 -69.9382,-29.2581 -69.8696,-29.1682 -69.8111,-29.1062 -69.7477,-29.1 -69.7155,-29.0807 -69.7023,-29.063 -69.6964,-29.038 -69.6985,-28.9842 -69.667,-28.854 -69.6329,-28.7653 -69.6393,-28.7317 -69.6494,-28.7093 -69.656,-28.6868 -69.6558,-28.6377 -69.6107,-28.5587 -69.5792,-28.5434 -69.5719,-28.5092 -69.5653,-28.3689 -69.5152,-28.3362 -69.4419,-28.2823 -69.3093,-28.1487 -69.2609,-28.0943 -69.248,-28.0716 -69.2365,-28.0277 -69.2066,-27.9652 -69.1696,-27.9488 -69.1328,-27.9453 -69.1039,-27.9391 -69.0883,-27.9205 -69.0752,-27.8941 -69.066,-27.8714 -69.0314,-27.7428 -69.0239,-27.7017 -68.9843,-27.5996 -68.9561,-27.5706 -68.8147,-27.3332 -68.7809,-27.248 -68.7892,-27.2095 -68.7782,-27.1787 -68.759,-27.1454 -68.7188,-27.0879 -68.6939,-27.0755 -68.6502,-27.0728 -68.6066,-27.0793 -68.5576,-27.1077 -68.323,-27.0359 -68.3043,-27.0282 -68.2658,-27.0099 -68.2352,-26.993 -68.1999,-26.8825 -68.2079,-26.8614 -68.3366,-26.6824 -68.3485,-26.6663 -68.3623,-26.6513 -68.4077,-26.6031 -68.453,-26.5544 -68.4801,-26.5155 -68.4901,-26.4956 -68.4956,-26.4753 -68.4975,-26.4274 -68.4971,-26.4067 -68.4931,-26.3524 -68.4894,-26.321 -68.4764,-26.2745 -68.4574,-26.2523 -68.4319,-26.2338 -68.392,-26.2084 -68.3319,-26.1582 -68.3122,-26.1298 -68.3668,-25.8762 -68.4059,-25.7138 -68.4136,-25.6893 -68.4656,-25.5888 -68.509,-25.4695 -68.5121,-25.4452 -68.51,-25.4148 -68.5055,-25.3946 -68.4849,-25.3174 -68.4725,-25.2869 -68.4521,-25.2455 -68.4472,-25.2415 -68.4426,-25.2235 -68.4276,-25.1703 -68.4098,-25.1427 -68.3986,-25.1341 -68.3331,-25.1244 -68.2687,-25.0928 -68.4137,-24.8671 -68.4618,-24.8416 -68.4844,-24.7852 -68.4808,-24.754 -68.4543,-24.7017 -68.4218,-24.6426 -68.3766,-24.5768 -68.3047,-24.4762 -68.2797,-24.4624 -68.2329,-24.4692 -68.1916,-24.4197 -68.1677,-24.371 -68.1043,-24.344 -67.8138,-24.2267 -67.5549,-24.1203 -67.4924,-24.0944 -67.2515,-23.9945 -67.1669,-23.7063 -67.107,-23.502 -67.0673,-23.3655 -67.0548,-23.3321 -67.0101,-23.215 -66.9642,-23.098 -66.9175,-22.977 -67.0214,-22.8746 -67.1002,-22.7958 -67.1002,-22.7958 792,2.0,South Africa 29.3374,-22.1673 29.4083,-22.1394 29.6336,-22.1113 29.6896,-22.1141 29.774,-22.1397 29.7948,-22.151 29.8661,-22.1694 29.9022,-22.1661 29.9941,-22.2128 30.2636,-22.3193 30.33,-22.3184 30.3793,-22.3104 30.4228,-22.2978 30.4487,-22.2865 30.4746,-22.2872 30.522,-22.2969 30.5992,-22.3047 30.666,-22.2848 30.7431,-22.2682 30.8008,-22.2626 30.8663,-22.264 30.8908,-22.2688 30.9345,-22.2855 31.0265,-22.3084 31.0512,-22.3123 31.0587,-22.3096 31.0842,-22.3001 31.119,-22.2983 31.2272,-22.3451 31.2517,-22.3782 31.2588,-22.3893 31.2644,-22.3994 31.4772,-23.0249 31.5225,-23.1606 31.5164,-23.2019 31.5066,-23.2799 31.4985,-23.3907 31.5115,-23.4502 31.5822,-23.5143 31.6119,-23.5473 31.6443,-23.5871 31.6466,-23.6124 31.6493,-23.6535 31.6807,-23.7219 31.7301,-23.8293 31.8051,-23.8803 31.8375,-23.9238 31.8375,-23.9372 31.8442,-24.1164 31.8458,-24.1438 31.9017,-24.2402 31.924,-24.2794 31.9673,-24.4046 31.9761,-24.4317 31.9553,-24.6766 31.9624,-24.7729 31.9709,-24.8969 31.9782,-25.0069 31.9761,-25.0821 31.9695,-25.3177 31.9505,-25.3924 31.9476,-25.4823 31.9644,-25.5083 31.9655,-25.5869 31.9416,-25.6426 31.8789,-25.7851 31.9277,-25.9284 31.8373,-25.9664 31.773,-25.9297 31.7293,-25.9038 31.6933,-25.8823 31.5505,-25.7985 31.3817,-25.6994 31.286,-25.7244 31.087,-25.8918 31.0695,-25.9585 31.0558,-25.9916 31.0374,-26.0337 31.0244,-26.0621 31.0114,-26.0835 30.966,-26.1545 30.9301,-26.2086 30.8627,-26.2756 30.7902,-26.3612 30.7692,-26.4173 30.7627,-26.4384 30.7591,-26.513 30.7609,-26.582 30.7629,-26.6511 30.7641,-26.6723 30.7696,-26.7135 30.7811,-26.7798 30.8407,-26.7631 30.86,-26.7417 30.8711,-26.7743 30.9286,-26.9304 31.0172,-27.0464 31.1215,-27.1725 31.1787,-27.19 31.2382,-27.2084 31.3732,-27.2505 31.477,-27.2823 31.6399,-27.2844 31.7215,-27.2847 31.8842,-27.2857 31.9446,-27.2856 31.9438,-27.2587 31.9272,-27.2335 31.9238,-27.1789 31.9196,-27.1124 31.9178,-27.0823 31.9269,-27.0224 31.9744,-26.7769 32.0487,-26.7806 32.0923,-26.8092 32.1128,-26.8166 32.1336,-26.8216 32.3067,-26.8302 32.3534,-26.8294 32.6472,-26.8234 32.7258,-26.8214 32.8483,-26.8169 32.8338,-26.8925 32.83,-26.9409 32.8262,-26.977 32.8213,-27.0027 32.7995,-27.0794 32.7926,-27.0999 32.7055,-27.3225 32.6875,-27.3669 32.6673,-27.4095 32.6397,-27.4658 32.632,-27.485 32.6083,-27.5736 32.5893,-27.6537 32.5846,-27.6759 32.5464,-27.8599 32.5535,-27.898 32.5228,-28.0831 32.5149,-28.1226 32.5035,-28.1523 32.4884,-28.1731 32.467,-28.202 32.4529,-28.2234 32.4348,-28.2548 32.4174,-28.2853 32.3905,-28.346 32.3836,-28.3934 32.3665,-28.4677 32.3526,-28.4994 32.3338,-28.5203 32.2349,-28.6139 32.1486,-28.6897 31.9774,-28.8299 31.9528,-28.847 31.8822,-28.8798 31.8555,-28.8915 31.8218,-28.9042 31.7865,-28.9081 31.7333,-28.9129 31.6824,-28.9656 31.6279,-29.0213 31.5165,-29.134 31.4112,-29.2361 31.3873,-29.2585 31.359,-29.2816 31.3201,-29.3196 31.2855,-29.3578 31.1694,-29.5019 31.1023,-29.6063 31.0774,-29.646 30.9695,-29.8387 30.9601,-29.8656 31.0118,-29.8587 30.995,-29.8914 30.9325,-29.9471 30.9067,-29.9658 30.8782,-29.9868 30.8299,-30.0429 30.8124,-30.0688 30.8006,-30.0951 30.7925,-30.1202 30.78,-30.1478 30.7125,-30.2654 30.6995,-30.2876 30.6872,-30.3076 30.6702,-30.3307 30.5935,-30.441 30.4371,-30.6791 30.3764,-30.7831 30.3656,-30.8004 30.3505,-30.8221 30.1775,-31.0222 30.1534,-31.0379 30.1465,-31.0508 30.1231,-31.0849 29.9851,-31.2457 29.9618,-31.2676 29.8559,-31.3552 29.8121,-31.387 29.7928,-31.3947 29.7606,-31.3966 29.7346,-31.4052 29.7071,-31.4264 29.673,-31.4584 29.6513,-31.4878 29.5911,-31.5459 29.5074,-31.5985 29.4886,-31.6104 29.3739,-31.6685 29.2825,-31.7665 29.2591,-31.7942 29.2297,-31.8294 29.2057,-31.864 29.1631,-31.9159 29.0538,-32.0285 28.8967,-32.1831 28.789,-32.2767 28.7418,-32.3057 28.6164,-32.4118 28.5283,-32.4937 28.5183,-32.5122 28.5055,-32.5312 28.3181,-32.6662 28.2262,-32.7182 28.1915,-32.7308 28.0692,-32.8272 28.0552,-32.8496 28.0418,-32.865 27.8639,-33.0034 27.8028,-33.0346 27.7612,-33.0535 27.6943,-33.0802 27.5703,-33.1747 27.4158,-33.2727 27.3158,-33.3323 27.1711,-33.4212 27.066,-33.4879 26.9955,-33.5186 26.9536,-33.5352 26.8542,-33.5661 26.6972,-33.6164 26.6097,-33.6631 26.5941,-33.6792 26.4963,-33.7153 26.426,-33.7343 26.2437,-33.7273 26.2225,-33.7176 26.1893,-33.7049 26.0716,-33.6816 26.0455,-33.6769 26.0244,-33.6744 25.9694,-33.6729 25.9298,-33.6733 25.8566,-33.681 25.835,-33.6839 25.7967,-33.6934 25.73,-33.713 25.6915,-33.7292 25.642,-33.7565 25.5954,-33.8131 25.58,-33.8764 25.5826,-33.8987 25.6168,-33.9349 25.6396,-33.9452 25.6685,-33.9842 25.6688,-33.9938 25.5941,-34.01 25.5512,-34.0105 25.404,-33.9966 25.3596,-33.9891 25.3197,-33.9782 25.2794,-33.9573 25.2544,-33.948 25.2105,-33.9364 25.1588,-33.9253 25.1317,-33.9206 25.035,-33.9238 24.9903,-33.9298 24.9543,-33.9383 24.91,-33.9521 24.8861,-33.9696 24.8866,-33.9966 24.8871,-34.0285 24.7924,-34.1632 24.7506,-34.153 24.6232,-34.1313 24.5945,-34.1335 24.5585,-34.1415 24.4842,-34.1319 24.4435,-34.1214 24.4143,-34.1014 24.3539,-34.0687 24.0129,-34.0088 23.6638,-33.9513 23.6188,-33.9458 23.6095,-33.9468 23.5849,-33.9462 23.5548,-33.9481 23.5155,-33.9523 23.4214,-33.9697 23.3592,-33.9907 23.3388,-34.012 23.3358,-34.0525 23.2106,-34.0553 23.0374,-34.0454 22.9296,-34.0529 22.783,-34.0082 22.7537,-33.9727 22.5102,-33.9729 22.4858,-33.9943 22.4504,-34.0154 22.41,-34.0259 22.3738,-34.0297 22.3353,-34.0237 22.2683,-34.0162 22.1725,-34.0388 22.1337,-34.0511 22.1048,-34.069 22.0883,-34.0972 21.9155,-34.1917 21.8883,-34.2204 21.8853,-34.2414 21.8886,-34.269 21.8711,-34.2993 21.8035,-34.3345 21.7744,-34.3444 21.6974,-34.3584 21.6207,-34.3508 21.5803,-34.3393 21.5525,-34.325 21.5289,-34.3168 21.5042,-34.3134 21.4693,-34.3216 21.3977,-34.3475 21.3442,-34.3781 21.2737,-34.3939 21.253,-34.3932 21.1828,-34.3763 21.1599,-34.3678 21.1389,-34.3575 21.1094,-34.3475 21.0553,-34.3298 21.0357,-34.3254 20.9385,-34.3222 20.9153,-34.3215 20.8601,-34.3329 20.8223,-34.3622 20.7719,-34.4198 20.6956,-34.4065 20.6592,-34.402 20.6358,-34.402 20.5694,-34.4075 20.5176,-34.415 20.4779,-34.426 20.4548,-34.4338 20.4364,-34.4421 20.4073,-34.466 20.387,-34.4939 20.3677,-34.5154 20.204,-34.6219 20.1597,-34.6376 20.0934,-34.6711 20.0636,-34.6873 20.0215,-34.7352 19.9741,-34.783 19.9657,-34.7817 19.934,-34.7732 19.9041,-34.7566 19.8879,-34.7431 19.8542,-34.7227 19.8321,-34.7135 19.6883,-34.7155 19.6526,-34.7226 19.6209,-34.7338 19.5769,-34.709 19.5168,-34.6695 19.4913,-34.6365 19.3986,-34.5828 19.2954,-34.5563 19.3389,-34.4917 19.3285,-34.4546 19.3115,-34.425 19.2993,-34.4082 19.2828,-34.3892 19.2532,-34.3706 19.2226,-34.3729 19.189,-34.3878 19.0955,-34.3697 19.0756,-34.3356 19.0587,-34.3076 18.9748,-34.3023 18.8893,-34.3182 18.827,-34.3394 18.7952,-34.3401 18.7804,-34.3197 18.7842,-34.2701 18.8039,-34.241 18.8185,-34.2181 18.8302,-34.1149 18.7993,-34.0689 18.7749,-34.0505 18.7285,-34.0396 18.6818,-34.036 18.5777,-34.0353 18.5227,-34.0409 18.489,-34.0491 18.462,-34.0611 18.4182,-34.1028 18.418,-34.1366 18.455,-34.196 18.4612,-34.3097 18.4339,-34.3061 18.3965,-34.2844 18.381,-34.2642 18.3566,-34.2172 18.2867,-33.9972 18.3611,-33.8724 18.3912,-33.8646 18.4218,-33.8733 18.4426,-33.779 18.415,-33.664 18.2851,-33.4475 18.271,-33.4284 18.2404,-33.3928 18.2254,-33.3781 18.137,-33.3034 18.0844,-33.2131 18.0937,-33.1665 18.1043,-33.1429 18.0048,-32.9889 17.9721,-32.9657 17.9295,-32.9733 17.8899,-33.0064 17.8528,-32.9638 17.8242,-32.794 17.8445,-32.7749 17.8797,-32.7374 17.963,-32.6959 18.0143,-32.731 18.0361,-32.7416 18.09,-32.744 18.2378,-32.6339 18.2662,-32.5926 18.2851,-32.549 18.3003,-32.5026 18.31,-32.4513 18.3262,-32.252 18.3196,-32.211 18.3128,-32.1831 18.2958,-32.1436 18.2883,-32.1109 18.248,-31.9146 18.2506,-31.8915 18.2556,-31.867 18.1943,-31.699 18.1544,-31.635 18.0909,-31.5587 18.054,-31.516 18.0214,-31.4817 17.9097,-31.3526 17.8861,-31.3243 17.8648,-31.2957 17.7814,-31.1835 17.7646,-31.1576 17.7439,-31.1208 17.7029,-31.0554 17.5924,-30.8986 17.4598,-30.6613 17.4259,-30.5828 17.4167,-30.5609 17.3974,-30.5238 17.3309,-30.4213 17.3106,-30.3992 17.2555,-30.3083 17.2072,-30.1686 17.1588,-30.0368 17.0964,-29.8889 17.0848,-29.8649 17.0639,-29.8068 17.0368,-29.6845 17.0323,-29.6491 16.9794,-29.4866 16.9127,-29.3299 16.8889,-29.3002 16.8126,-29.124 16.7966,-29.0618 16.6456,-28.8695 16.6236,-28.8514 16.5934,-28.844 16.5118,-28.6656 16.4704,-28.6134 16.4623,-28.5761 16.4683,-28.5461 16.6038,-28.4639 16.6557,-28.4323 16.6792,-28.4582 16.698,-28.4668 16.755,-28.4097 16.78,-28.3309 16.801,-28.2059 16.8654,-28.0607 16.8903,-28.036 17.0537,-27.9987 17.086,-28.0144 17.0984,-28.0337 17.1122,-28.0553 17.1323,-28.0657 17.1495,-28.0705 17.1671,-28.0823 17.1663,-28.1399 17.1621,-28.1687 17.1766,-28.192 17.1966,-28.2101 17.2566,-28.2063 17.2875,-28.1893 17.3208,-28.2013 17.3755,-28.3104 17.3771,-28.3311 17.3739,-28.3704 17.363,-28.3923 17.339,-28.5029 17.3787,-28.6761 17.3995,-28.6828 17.4388,-28.6704 17.4754,-28.6623 17.567,-28.6574 17.5797,-28.6883 17.5826,-28.7208 17.6205,-28.7415 17.6566,-28.7373 17.6881,-28.7242 17.7269,-28.7142 17.8894,-28.7466 17.9467,-28.7716 17.9784,-28.7946 18.0028,-28.8175 18.0212,-28.8357 18.158,-28.8761 18.3146,-28.8518 18.695,-28.8039 18.9271,-28.8337 18.9459,-28.8452 18.9613,-28.8725 18.978,-28.8954 19.0838,-28.9292 19.1211,-28.9225 19.159,-28.9047 19.2292,-28.867 19.235,-28.8229 19.2231,-28.7993 19.2152,-28.7701 19.2366,-28.7124 19.2522,-28.699 19.2766,-28.6931 19.2977,-28.6952 19.3243,-28.7036 19.3935,-28.6864 19.4226,-28.6784 19.4413,-28.6672 19.4656,-28.6366 19.4686,-28.6008 19.4881,-28.5627 19.5421,-28.4963 19.718,-28.4535 19.7641,-28.4635 19.7868,-28.4604 19.9714,-28.3835 19.9724,-28.3227 19.9727,-28.0335 19.9721,-27.8404 19.9724,-27.5512 19.9726,-27.4548 19.9733,-27.3386 19.9737,-27.2893 19.9737,-27.0 19.9745,-26.3795 19.9745,-25.8417 19.9752,-25.5875 19.9749,-25.3864 19.9752,-25.1932 19.9761,-25.0552 19.9767,-24.8346 19.9764,-24.7658 19.9764,-24.7377 20.0194,-24.7844 20.034,-24.7984 20.107,-24.8562 20.1406,-24.8582 20.2117,-24.888 20.2364,-24.9036 20.3643,-25.0087 20.4238,-25.1254 20.5105,-25.2697 20.5835,-25.3688 20.6056,-25.4083 20.6237,-25.4507 20.663,-25.5624 20.6527,-25.6079 20.656,-25.6568 20.7129,-25.734 20.7575,-25.7958 20.7836,-25.8517 20.8335,-26.1125 20.77,-26.22 20.7307,-26.2747 20.7181,-26.2911 20.6653,-26.3582 20.6258,-26.3961 20.597,-26.4092 20.5835,-26.4247 20.577,-26.4867 20.5757,-26.5065 20.5924,-26.7375 20.6146,-26.7959 20.6773,-26.8451 20.7374,-26.831 20.7752,-26.8112 20.7969,-26.7873 20.8293,-26.7746 20.8653,-26.7651 20.8973,-26.7684 20.9396,-26.7868 20.9615,-26.8075 20.9857,-26.8173 21.0742,-26.8326 21.102,-26.8361 21.117,-26.8365 21.1507,-26.8321 21.2498,-26.8152 21.3115,-26.7989 21.3504,-26.7913 21.3831,-26.7916 21.4081,-26.7934 21.4327,-26.7993 21.4541,-26.8118 21.4891,-26.8222 21.5854,-26.8305 21.6408,-26.8336 21.6654,-26.8229 21.7224,-26.7884 21.7446,-26.7598 21.751,-26.7373 21.7463,-26.704 21.7419,-26.6539 21.7806,-26.6362 21.8345,-26.6322 21.8636,-26.6389 21.9343,-26.6319 21.9875,-26.6143 22.0284,-26.5946 22.1058,-26.51 22.1299,-26.4627 22.1471,-26.4012 22.1688,-26.3645 22.2209,-26.3116 22.3379,-26.2566 22.4503,-26.1734 22.596,-26.0823 22.5977,-26.0636 22.6347,-25.9857 22.6781,-25.9741 22.6938,-25.9448 22.7161,-25.8191 22.7144,-25.7688 22.7275,-25.7073 22.7481,-25.683 22.7838,-25.6495 22.8008,-25.5854 22.7833,-25.5396 22.8009,-25.502 22.881,-25.3682 22.9432,-25.3088 22.9856,-25.2711 23.165,-25.2358 23.2456,-25.2372 23.4245,-25.2485 23.5009,-25.3088 23.5661,-25.3609 23.6203,-25.3946 23.6402,-25.4072 23.6837,-25.4257 23.7063,-25.435 23.8415,-25.5548 23.8591,-25.5762 23.8714,-25.5958 23.9763,-25.6288 24.0159,-25.6226 24.0847,-25.6053 24.1584,-25.5942 24.1976,-25.6207 24.2123,-25.6472 24.2504,-25.6912 24.3207,-25.7266 24.3679,-25.7317 24.4077,-25.7108 24.441,-25.7176 24.4703,-25.7324 24.5019,-25.7428 24.5907,-25.7831 24.6175,-25.7936 24.6531,-25.7991 24.7699,-25.8032 24.869,-25.7792 24.9218,-25.7422 24.9806,-25.705 25.0011,-25.6996 25.0546,-25.7062 25.0963,-25.7236 25.1203,-25.733 25.1431,-25.733 25.3286,-25.7256 25.3818,-25.7043 25.4773,-25.6487 25.5493,-25.5963 25.5575,-25.5857 25.5895,-25.522 25.6389,-25.4416 25.6523,-25.4068 25.7369,-25.1799 25.7949,-25.0136 25.8396,-24.8772 25.8426,-24.7859 25.839,-24.7164 25.8858,-24.7105 25.9863,-24.6829 26.1348,-24.6361 26.2324,-24.6099 26.3269,-24.5912 26.357,-24.5998 26.368,-24.6042 26.378,-24.6007 26.4072,-24.5785 26.428,-24.5568 26.4446,-24.5269 26.4519,-24.503 26.4606,-24.4836 26.4809,-24.4527 26.5216,-24.4095 26.693,-24.2834 26.7258,-24.2769 26.7544,-24.2679 26.7969,-24.2477 26.8187,-24.2263 26.8469,-24.0605 26.8862,-23.9004 26.9297,-23.7328 26.9255,-23.7251 26.9449,-23.6649 26.9716,-23.6171 26.997,-23.6272 27.0362,-23.6095 27.0651,-23.5626 27.1143,-23.4982 27.3059,-23.3732 27.3731,-23.3607 27.4187,-23.359 27.4681,-23.3576 27.495,-23.3529 27.5232,-23.3221 27.5311,-23.2847 27.5388,-23.2406 27.5698,-23.1928 27.6704,-23.1748 27.7494,-23.1441 27.9094,-23.0054 27.9376,-22.9268 28.0147,-22.8372 28.0751,-22.7804 28.1219,-22.7456 28.1271,-22.7184 28.125,-22.698 28.1331,-22.6779 28.1449,-22.6609 28.162,-22.6495 28.2633,-22.5839 28.3217,-22.551 28.421,-22.5485 28.6029,-22.5364 28.7934,-22.4654 28.8823,-22.4295 28.8988,-22.4139 28.915,-22.3879 28.9291,-22.3634 28.9326,-22.3432 28.9253,-22.301 28.9893,-22.2021 29.0092,-22.1991 29.0359,-22.1956 29.2383,-22.1691 29.3374,-22.1673 29.3374,-22.1673 103,2.0,South Africa 28.9852,-29.9561 29.0065,-29.9461 29.0639,-29.9195 29.1287,-29.8817 29.1166,-29.8158 29.0918,-29.8013 29.0865,-29.7757 29.0989,-29.7459 29.0953,-29.7217 29.1079,-29.6835 29.1353,-29.6304 29.1791,-29.6063 29.2031,-29.599 29.2333,-29.5971 29.2554,-29.585 29.2575,-29.5486 29.256,-29.4718 29.2723,-29.4422 29.3094,-29.4225 29.3361,-29.4108 29.3619,-29.4051 29.3838,-29.3949 29.4176,-29.3161 29.393,-29.2457 29.2892,-29.0549 29.2479,-29.0392 29.163,-29.001 28.961,-28.8767 28.9137,-28.8444 28.8961,-28.8093 28.8657,-28.7627 28.8337,-28.7322 28.8286,-28.7292 28.7698,-28.7251 28.7555,-28.6747 28.6493,-28.5639 28.6107,-28.5384 28.5743,-28.5551 28.541,-28.5747 28.4772,-28.5792 28.4514,-28.5778 28.423,-28.5813 28.3632,-28.5954 28.3318,-28.6322 28.3197,-28.6604 28.2509,-28.6781 28.1646,-28.6798 28.1466,-28.6661 28.0822,-28.708 28.0307,-28.7776 27.9806,-28.8297 27.8564,-28.8698 27.7616,-28.8854 27.6012,-29.0077 27.598,-29.0434 27.6072,-29.0582 27.5934,-29.0737 27.5052,-29.1736 27.4564,-29.2438 27.4161,-29.2671 27.3239,-29.4161 27.2774,-29.4661 27.2653,-29.4925 27.2576,-29.4995 27.2166,-29.5128 27.1797,-29.5211 27.1221,-29.5334 26.9789,-29.5938 27.0005,-29.6428 27.0309,-29.6589 27.0653,-29.702 27.125,-29.8223 27.1564,-29.89 27.1694,-29.9179 27.1899,-29.9606 27.2617,-30.0128 27.327,-30.192 27.3433,-30.283 27.3813,-30.2842 27.4293,-30.2872 27.5289,-30.3707 27.5376,-30.3937 27.5768,-30.4501 27.7015,-30.562 27.8972,-30.6033 27.9364,-30.6098 27.9855,-30.6147 28.0436,-30.6161 28.1117,-30.5177 28.1237,-30.4638 28.2209,-30.2924 28.2737,-30.2127 28.3133,-30.174 28.3411,-30.1265 28.3677,-30.1098 28.4845,-30.095 28.5818,-30.0958 28.6373,-30.1013 28.7534,-30.0673 28.848,-30.0312 28.869,-30.0216 28.9852,-29.9561 28.9852,-29.9561 26,2.0,South Africa 14.4362,-23.1203 14.4334,-23.1163 14.4226,-23.098 14.4133,-23.0733 14.3917,-23.0005 14.3927,-22.9412 14.4187,-22.8563 14.4301,-22.9008 14.4268,-22.9345 14.4447,-22.971 14.499,-22.9002 14.517,-22.8558 14.5212,-22.7762 14.5112,-22.6945 14.5068,-22.6663 14.5209,-22.6579 14.6262,-22.6136 14.648,-22.6127 14.6513,-22.9061 14.6501,-22.9582 14.6721,-23.047 14.6947,-23.1345 14.6714,-23.1784 14.4496,-23.1289 14.4362,-23.1203 14.4362,-23.1203 16,-3.0,Brazil -44.2686,-23.1949 -44.2741,-23.1939 -44.3129,-23.1487 -44.3117,-23.1374 -44.1765,-23.0458 -44.0572,-23.1013 -44.0296,-23.1425 -44.0493,-23.1546 -44.1222,-23.1659 -44.1868,-23.1721 -44.1962,-23.164 -44.2131,-23.1514 -44.2431,-23.1511 -44.2566,-23.1706 -44.2686,-23.1949 -44.2686,-23.1949 20,10.0,Australia 151.0384,-23.7597 151.0287,-23.7574 150.9901,-23.7213 150.9838,-23.7134 150.9715,-23.6823 150.9453,-23.6347 150.8778,-23.5788 150.8592,-23.5487 150.8504,-23.5296 150.8397,-23.4994 150.8306,-23.4298 150.8748,-23.4206 150.9421,-23.4592 151.0146,-23.5024 151.034,-23.5319 151.0983,-23.6459 151.1104,-23.7238 151.0834,-23.7531 151.0384,-23.7597 151.0384,-23.7597 31,-3.0,Brazil -45.1867,-23.94 -45.2178,-23.924 -45.2851,-23.902 -45.2975,-23.9083 -45.3127,-23.9113 -45.3447,-23.9129 -45.3594,-23.9131 -45.3704,-23.9103 -45.3828,-23.9037 -45.3908,-23.8907 -45.397,-23.8692 -45.3848,-23.8444 -45.3765,-23.8379 -45.3537,-23.8279 -45.3365,-23.8165 -45.3243,-23.8064 -45.3039,-23.7832 -45.2939,-23.7712 -45.285,-23.7541 -45.2791,-23.7341 -45.2759,-23.7188 -45.2653,-23.7003 -45.2542,-23.6973 -45.208,-23.7124 -45.1965,-23.7197 -45.1659,-23.7506 -45.1574,-23.9217 -45.1638,-23.9304 -45.1756,-23.9364 -45.1867,-23.94 -45.1867,-23.94 80,10.0,Australia 152.8863,-25.7666 152.879,-25.7707 152.8585,-25.7687 152.8428,-25.7581 152.8027,-25.7088 152.7988,-25.6992 152.7593,-25.5863 152.7487,-25.5543 152.7472,-25.5424 152.7481,-25.5297 152.7971,-25.4197 152.8017,-25.4106 152.814,-25.3943 152.8209,-25.387 152.8379,-25.3715 152.8601,-25.3323 152.8694,-25.31 152.8688,-25.2238 152.866,-25.2092 152.855,-25.2025 152.8963,-25.1237 152.9406,-25.096 152.9769,-25.0679 152.9997,-25.0471 153.0164,-25.028 153.0243,-25.0147 153.0368,-24.9905 153.0437,-24.9752 153.0467,-24.965 153.0533,-24.9359 153.0547,-24.9209 153.0514,-24.9039 153.0445,-24.8859 153.0385,-24.8772 152.9967,-24.8132 152.9912,-24.8052 152.9851,-24.7967 152.9762,-24.791 152.9656,-24.7871 152.9802,-24.7569 152.9964,-24.7304 153.003,-24.7229 153.0263,-24.7034 153.0431,-24.691 153.0569,-24.6829 153.0886,-24.6713 153.0907,-24.6969 153.0912,-24.7303 153.0906,-24.7562 153.09,-24.7755 153.0892,-24.7883 153.0882,-24.8213 153.0885,-24.8343 153.0908,-24.8526 153.0965,-24.876 153.1023,-24.8937 153.1196,-24.922 153.1269,-24.9295 153.1352,-24.9352 153.1557,-24.9424 153.1676,-24.9504 153.1752,-24.9744 153.1768,-24.9861 153.1718,-25.0023 153.1063,-25.1429 153.0601,-25.2385 153.0418,-25.2761 152.9898,-25.3815 152.932,-25.5074 152.8908,-25.6279 152.8877,-25.639 152.8869,-25.6584 152.8921,-25.6774 152.8999,-25.7017 152.9021,-25.7197 152.9012,-25.7389 152.8962,-25.7552 152.8912,-25.7639 152.8863,-25.7666 152.8863,-25.7666 30,8.0,Australia 113.061,-26.1151 113.0316,-26.0936 112.8832,-25.891 112.8086,-25.7554 112.7633,-25.5988 112.7635,-25.5549 112.7644,-25.5359 112.7701,-25.5109 112.7758,-25.498 112.7994,-25.4667 112.81,-25.4589 112.8593,-25.4704 112.8535,-25.4844 112.8433,-25.5001 112.8392,-25.5147 112.8394,-25.5291 112.8434,-25.5422 112.883,-25.6256 112.9319,-25.7566 112.9552,-25.8202 112.9609,-25.8473 113.0148,-25.9484 113.038,-25.9688 113.0455,-25.9761 113.0523,-25.9894 113.0625,-26.0134 113.0823,-26.0793 113.0645,-26.1114 113.061,-26.1151 113.061,-26.1151 59,2.0,Swaziland 32.0923,-26.8092 32.0487,-26.7806 31.9744,-26.7769 31.9269,-27.0224 31.9178,-27.0823 31.9196,-27.1124 31.9238,-27.1789 31.9272,-27.2335 31.9438,-27.2587 31.9446,-27.2856 31.8842,-27.2857 31.7215,-27.2847 31.6399,-27.2844 31.477,-27.2823 31.3732,-27.2505 31.2382,-27.2084 31.1787,-27.19 31.1215,-27.1725 31.0172,-27.0464 30.9286,-26.9304 30.8711,-26.7743 30.86,-26.7417 30.8407,-26.7631 30.7811,-26.7798 30.7696,-26.7135 30.7641,-26.6723 30.7629,-26.6511 30.7609,-26.582 30.7591,-26.513 30.7627,-26.4384 30.7692,-26.4173 30.7902,-26.3612 30.8627,-26.2756 30.9301,-26.2086 30.966,-26.1545 31.0114,-26.0835 31.0244,-26.0621 31.0374,-26.0337 31.0558,-25.9916 31.0695,-25.9585 31.087,-25.8918 31.286,-25.7244 31.3817,-25.6994 31.5505,-25.7985 31.6933,-25.8823 31.7293,-25.9038 31.773,-25.9297 31.8373,-25.9664 31.9277,-25.9284 31.958,-25.9616 32.0337,-26.0077 32.0611,-26.1259 32.02,-26.2319 32.0314,-26.3636 32.048,-26.3954 32.0849,-26.469 32.0914,-26.7664 32.0923,-26.8092 32.0923,-26.8092 15,-3.0,Brazil -48.5233,-26.3958 -48.5635,-26.3637 -48.6431,-26.2793 -48.4803,-26.1386 -48.4642,-26.141 -48.4536,-26.1488 -48.4228,-26.2019 -48.4282,-26.2136 -48.4555,-26.2503 -48.4669,-26.2643 -48.478,-26.278 -48.4826,-26.2874 -48.5177,-26.3596 -48.5233,-26.3958 -48.5233,-26.3958 23,10.0,Australia 153.228,-27.332 153.2083,-27.2705 153.1908,-27.2325 153.1793,-27.2146 153.1702,-27.1958 153.1618,-27.166 153.1614,-27.031 153.1714,-27.0213 153.2475,-26.9888 153.2627,-26.9907 153.2694,-27.0036 153.2668,-27.0237 153.2621,-27.0393 153.2543,-27.0597 153.2483,-27.075 153.2243,-27.144 153.2215,-27.1548 153.2188,-27.1665 153.2173,-27.1782 153.2164,-27.1913 153.2179,-27.2173 153.228,-27.332 153.228,-27.332 19,-3.0,Chile -109.2869,-27.1714 -109.3042,-27.1677 -109.3052,-27.1476 -109.2806,-27.0742 -109.2748,-27.0619 -109.2685,-27.054 -109.2526,-27.0368 -109.2278,-27.0333 -109.0792,-27.0672 -109.0773,-27.0782 -109.0834,-27.0905 -109.0979,-27.1016 -109.15,-27.1196 -109.181,-27.1185 -109.193,-27.1209 -109.2481,-27.1467 -109.2751,-27.1626 -109.2869,-27.1714 -109.2869,-27.1714 29,-3.0,Brazil -48.4937,-27.7916 -48.5026,-27.7838 -48.5034,-27.7646 -48.4878,-27.6648 -48.4688,-27.6158 -48.4394,-27.528 -48.4397,-27.5158 -48.4588,-27.4875 -48.4651,-27.4606 -48.461,-27.4354 -48.4553,-27.4023 -48.3653,-27.3584 -48.351,-27.3621 -48.3091,-27.4157 -48.3438,-27.5616 -48.35,-27.5702 -48.3856,-27.5995 -48.3963,-27.6107 -48.4338,-27.68 -48.4373,-27.6942 -48.4362,-27.7063 -48.4296,-27.7174 -48.4223,-27.7248 -48.4169,-27.7369 -48.4213,-27.7469 -48.4779,-27.7855 -48.4877,-27.7899 -48.4937,-27.7916 -48.4937,-27.7916 20,10.0,Australia 153.2094,-27.7 153.2002,-27.6972 153.194,-27.6803 153.1919,-27.6652 153.1979,-27.5801 153.1993,-27.5679 153.2111,-27.49 153.2362,-27.3851 153.2748,-27.3768 153.3434,-27.3871 153.3434,-27.4004 153.3278,-27.4343 153.3144,-27.4636 153.2923,-27.5343 153.2775,-27.5827 153.2679,-27.6217 153.2632,-27.6555 153.2562,-27.6951 153.2094,-27.7 153.2094,-27.7 103,2.0,Lesotho 28.9852,-29.9561 28.869,-30.0216 28.848,-30.0312 28.7534,-30.0673 28.6373,-30.1013 28.5818,-30.0958 28.4845,-30.095 28.3677,-30.1098 28.3411,-30.1265 28.3133,-30.174 28.2737,-30.2127 28.2209,-30.2924 28.1237,-30.4638 28.1117,-30.5177 28.0436,-30.6161 27.9855,-30.6147 27.9364,-30.6098 27.8972,-30.6033 27.7015,-30.562 27.5768,-30.4501 27.5376,-30.3937 27.5289,-30.3707 27.4293,-30.2872 27.3813,-30.2842 27.3433,-30.283 27.327,-30.192 27.2617,-30.0128 27.1899,-29.9606 27.1694,-29.9179 27.1564,-29.89 27.125,-29.8223 27.0653,-29.702 27.0309,-29.6589 27.0005,-29.6428 26.9789,-29.5938 27.1221,-29.5334 27.1797,-29.5211 27.2166,-29.5128 27.2576,-29.4995 27.2653,-29.4925 27.2774,-29.4661 27.3239,-29.4161 27.4161,-29.2671 27.4564,-29.2438 27.5052,-29.1736 27.5934,-29.0737 27.6072,-29.0582 27.598,-29.0434 27.6012,-29.0077 27.7616,-28.8854 27.8564,-28.8698 27.9806,-28.8297 28.0307,-28.7776 28.0822,-28.708 28.1466,-28.6661 28.1646,-28.6798 28.2509,-28.6781 28.3197,-28.6604 28.3318,-28.6322 28.3632,-28.5954 28.423,-28.5813 28.4514,-28.5778 28.4772,-28.5792 28.541,-28.5747 28.5743,-28.5551 28.6107,-28.5384 28.6493,-28.5639 28.7555,-28.6747 28.7698,-28.7251 28.8286,-28.7292 28.8337,-28.7322 28.8657,-28.7627 28.8961,-28.8093 28.9137,-28.8444 28.961,-28.8767 29.163,-29.001 29.2479,-29.0392 29.2892,-29.0549 29.393,-29.2457 29.4176,-29.3161 29.3838,-29.3949 29.3619,-29.4051 29.3361,-29.4108 29.3094,-29.4225 29.2723,-29.4422 29.256,-29.4718 29.2575,-29.5486 29.2554,-29.585 29.2333,-29.5971 29.2031,-29.599 29.1791,-29.6063 29.1353,-29.6304 29.1079,-29.6835 29.0953,-29.7217 29.0989,-29.7459 29.0865,-29.7757 29.0918,-29.8013 29.1166,-29.8158 29.1287,-29.8817 29.0639,-29.9195 29.0065,-29.9461 28.9852,-29.9561 28.9852,-29.9561 307,-3.0,Uruguay -57.5329,-30.1508 -57.5017,-30.1629 -57.4896,-30.1812 -57.4915,-30.2133 -57.4726,-30.2325 -57.4499,-30.2406 -57.4207,-30.2459 -57.2818,-30.2382 -57.2476,-30.2324 -57.2291,-30.2413 -57.2107,-30.2594 -57.1594,-30.2592 -57.1395,-30.2578 -57.1193,-30.2487 -57.0736,-30.2043 -57.0729,-30.1742 -57.07,-30.1512 -57.0295,-30.1015 -56.9967,-30.0748 -56.8596,-30.0636 -56.7865,-30.0627 -56.7376,-30.0712 -56.7163,-30.0818 -56.5653,-30.1945 -56.4943,-30.2649 -56.4745,-30.2888 -56.4535,-30.3118 -56.4377,-30.3246 -56.314,-30.4258 -56.242,-30.4739 -56.1935,-30.5016 -56.1627,-30.5241 -56.0433,-30.6411 -55.9289,-30.761 -55.9169,-30.778 -55.9039,-30.8163 -55.912,-30.8561 -55.9292,-30.8872 -55.9336,-30.9287 -55.9393,-31.0314 -55.9358,-31.0447 -55.9136,-31.0467 -55.8376,-31.0474 -55.8176,-31.0452 -55.7653,-31.0378 -55.6868,-30.982 -55.5993,-30.9144 -55.5679,-30.8359 -55.5567,-30.8155 -55.5119,-30.8114 -55.4488,-30.8542 -55.3494,-30.9281 -55.2786,-31.0108 -55.2583,-31.0435 -55.1753,-31.1962 -55.1567,-31.2145 -55.0176,-31.2904 -54.9912,-31.2902 -54.9054,-31.2838 -54.871,-31.3156 -54.8422,-31.3392 -54.7945,-31.3744 -54.7626,-31.3914 -54.7356,-31.4002 -54.6915,-31.4058 -54.657,-31.4034 -54.6337,-31.4048 -54.523,-31.4254 -54.4014,-31.5442 -54.3923,-31.637 -54.3708,-31.6458 -54.3439,-31.6581 -54.3125,-31.6801 -54.2803,-31.7144 -54.2149,-31.7687 -54.0938,-31.8513 -54.0252,-31.8483 -54.0009,-31.8397 -53.8483,-31.9063 -53.8052,-31.9386 -53.6728,-32.0606 -53.5946,-32.1706 -53.5671,-32.2351 -53.5738,-32.2692 -53.5609,-32.3214 -53.4976,-32.3948 -53.4834,-32.4096 -53.4673,-32.4244 -53.4514,-32.4377 -53.3345,-32.5313 -53.3087,-32.5375 -53.2801,-32.5426 -53.1907,-32.5643 -53.1222,-32.5973 -53.0897,-32.6243 -53.0289,-32.6868 -53.1016,-32.7652 -53.1761,-32.8254 -53.2293,-32.9095 -53.3659,-33.003 -53.3927,-33.0218 -53.4108,-33.0376 -53.4304,-33.0627 -53.446,-33.092 -53.4511,-33.1045 -53.4549,-33.1199 -53.4604,-33.1621 -53.4587,-33.1838 -53.4526,-33.2219 -53.4459,-33.253 -53.4394,-33.2837 -53.4315,-33.3704 -53.4316,-33.3906 -53.4351,-33.4228 -53.4387,-33.4485 -53.4443,-33.4869 -53.4532,-33.5362 -53.4592,-33.5731 -53.4649,-33.6191 -53.4518,-33.6438 -53.328,-33.7031 -53.3047,-33.7028 -53.3295,-33.7188 -53.3472,-33.7319 -53.37,-33.7542 -53.3909,-33.7786 -53.4127,-33.8163 -53.4208,-33.8381 -53.4296,-33.8663 -53.4432,-33.9414 -53.4659,-34.0239 -53.4986,-34.0441 -53.5293,-34.0668 -53.6281,-34.1508 -53.6483,-34.1756 -53.682,-34.223 -53.7069,-34.3036 -53.7718,-34.382 -53.834,-34.412 -53.9121,-34.4603 -54.0231,-34.5529 -54.0434,-34.5705 -54.0691,-34.5976 -54.0702,-34.6255 -54.1011,-34.6374 -54.165,-34.6363 -54.1818,-34.5895 -54.1789,-34.5667 -54.1733,-34.5452 -54.2422,-34.524 -54.2204,-34.6216 -54.2083,-34.6516 -54.2659,-34.6856 -54.4602,-34.767 -54.4775,-34.7721 -54.5177,-34.7856 -54.6151,-34.8197 -54.6532,-34.8362 -54.7592,-34.8844 -54.8246,-34.9041 -54.883,-34.9046 -54.9814,-34.8536 -55.0203,-34.8461 -55.0584,-34.8471 -55.0988,-34.8534 -55.1515,-34.8673 -55.1769,-34.8688 -55.2118,-34.8422 -55.2327,-34.8121 -55.2618,-34.7878 -55.2845,-34.775 -55.3016,-34.7693 -55.3613,-34.7649 -55.5277,-34.7425 -55.6203,-34.7361 -55.7151,-34.7498 -55.7391,-34.7566 -55.8377,-34.7891 -55.8584,-34.7992 -55.8928,-34.822 -55.9324,-34.844 -55.955,-34.8521 -55.9615,-34.8514 -56.0854,-34.8881 -56.2449,-34.871 -56.3524,-34.8012 -56.3304,-34.7756 -56.2936,-34.7564 -56.3384,-34.7483 -56.5054,-34.7248 -56.7557,-34.6506 -56.822,-34.6179 -57.0368,-34.4253 -57.1001,-34.4143 -57.1111,-34.4098 -57.3588,-34.411 -57.4784,-34.4044 -57.5867,-34.4214 -57.7615,-34.4539 -57.8023,-34.4039 -57.8224,-34.347 -57.8354,-34.3275 -57.8891,-34.2698 -58.0037,-34.1521 -58.0297,-34.1385 -58.1352,-34.0847 -58.1452,-34.0663 -58.1755,-34.0242 -58.2249,-33.9636 -58.2397,-33.9484 -58.2589,-33.9365 -58.286,-33.9232 -58.3276,-33.8881 -58.3389,-33.8374 -58.3468,-33.8173 -58.3539,-33.7971 -58.3619,-33.6647 -58.3623,-33.5165 -58.354,-33.4909 -58.3408,-33.47 -58.3082,-33.4302 -58.3039,-33.401 -58.3129,-33.385 -58.3397,-33.3709 -58.3254,-33.3227 -58.3041,-33.3079 -58.282,-33.2861 -58.271,-33.2341 -58.2814,-33.1825 -58.2892,-33.1439 -58.2911,-33.1201 -58.2846,-33.0936 -58.2644,-33.0799 -58.2378,-33.0767 -58.2136,-33.0779 -58.1655,-33.082 -58.1272,-33.0835 -58.0857,-33.0725 -58.0662,-33.0618 -58.0132,-33.0182 -57.9698,-32.8976 -57.972,-32.8641 -57.9832,-32.8343 -58.0137,-32.8077 -58.0449,-32.7823 -58.0577,-32.7565 -58.0628,-32.7285 -58.0625,-32.7032 -58.0624,-32.6716 -58.0646,-32.6355 -58.0763,-32.5617 -58.1174,-32.4556 -58.1218,-32.4418 -58.1235,-32.4139 -58.1011,-32.3676 -58.0745,-32.3334 -58.0595,-32.3179 -58.0257,-32.2894 -58.0218,-32.2584 -58.026,-32.2182 -58.0642,-32.1852 -58.087,-32.1605 -58.1065,-32.1208 -58.1027,-32.0902 -58.0855,-32.0649 -58.0754,-32.0301 -58.07,-31.9572 -58.0846,-31.9152 -58.1241,-31.8589 -58.1086,-31.8246 -58.0863,-31.8051 -58.0632,-31.7986 -58.022,-31.7911 -57.9878,-31.7766 -57.9644,-31.7532 -57.9058,-31.584 -57.9024,-31.5455 -57.9142,-31.513 -57.9372,-31.4881 -57.9601,-31.4719 -57.9895,-31.4587 -58.0033,-31.4403 -57.9924,-31.4143 -57.9632,-31.3982 -57.9288,-31.3823 -57.8453,-31.2356 -57.7784,-31.0305 -57.7217,-30.8486 -57.7227,-30.771 -57.7241,-30.7571 -57.7275,-30.7307 -57.731,-30.7136 -57.7388,-30.679 -57.7706,-30.6083 -57.7961,-30.5871 -57.8145,-30.5639 -57.8141,-30.5006 -57.8074,-30.4806 -57.7932,-30.465 -57.7219,-30.4139 -57.6709,-30.3832 -57.5939,-30.3204 -57.5564,-30.2645 -57.5499,-30.2449 -57.5545,-30.2037 -57.5329,-30.1508 -57.5329,-30.1508 759,13.0,New Zealand 172.9891,-34.8325 173.0182,-34.8456 173.0465,-34.9043 173.0367,-34.9235 173.0349,-34.9397 173.0425,-34.9777 173.0931,-34.9795 173.104,-34.97 173.1343,-34.9419 173.1401,-34.933 173.1477,-34.8927 173.1763,-34.824 173.2013,-34.781 173.2262,-34.7688 173.2732,-34.8295 173.2232,-34.8493 173.2087,-34.8513 173.1884,-34.8496 173.1779,-34.8557 173.1764,-34.871 173.1869,-34.8923 173.1945,-34.9064 173.2046,-34.9213 173.2172,-34.9339 173.2294,-34.9422 173.2469,-34.951 173.2685,-34.9558 173.3168,-34.9491 173.3373,-34.9155 173.342,-34.8966 173.3512,-34.8902 173.3646,-34.8893 173.6139,-34.9646 173.8757,-35.0817 173.8737,-35.1217 173.8315,-35.1161 173.7968,-35.1246 173.7828,-35.1679 173.7843,-35.1786 173.7932,-35.1852 173.872,-35.1873 173.918,-35.2889 173.9822,-35.2834 173.9922,-35.2825 174.0222,-35.2388 174.0944,-35.1931 174.158,-35.2978 174.2357,-35.4054 174.2658,-35.4452 174.3494,-35.562 174.3506,-35.574 174.3401,-35.6096 174.3039,-35.6093 174.294,-35.6085 174.2829,-35.6034 174.2503,-35.6061 174.2942,-35.6864 174.3316,-35.7112 174.3571,-35.7245 174.3756,-35.804 174.3661,-35.8103 174.3509,-35.8118 174.3311,-35.8051 174.3119,-35.7792 174.2947,-35.7532 174.2645,-35.7292 174.1332,-35.6833 174.1221,-35.6944 174.1221,-35.796 174.1315,-35.807 174.1567,-35.8075 174.1589,-35.7885 174.1683,-35.7822 174.2111,-35.7822 174.2495,-35.7838 174.2596,-35.7845 174.2958,-35.8065 174.296,-35.8185 174.2723,-35.8523 174.2606,-35.8744 174.2698,-35.9508 174.2871,-35.9679 174.3469,-35.9975 174.3652,-35.9973 174.3826,-35.9992 174.3952,-36.0124 174.4021,-36.0299 174.389,-36.0601 174.4079,-36.084 174.4813,-36.1649 174.5534,-36.226 174.5851,-36.2983 174.5405,-36.3055 174.4829,-36.4848 174.4802,-36.4963 174.4876,-36.5581 174.546,-36.6888 174.5795,-36.7637 174.6257,-36.8064 174.6679,-36.8368 174.7871,-36.8311 174.8263,-36.8388 174.8474,-36.8493 174.8557,-36.8564 174.8623,-36.8838 174.9323,-36.9137 174.996,-36.897 175.0487,-36.9234 175.0808,-36.9534 175.0923,-36.9672 175.0992,-36.985 175.1004,-36.9981 175.0919,-37.0228 175.0897,-37.0535 175.0885,-37.1065 175.0986,-37.1268 175.143,-37.1748 175.1548,-37.184 175.1747,-37.1859 175.3484,-37.2024 175.3589,-37.1276 175.3215,-36.9829 175.3173,-36.9675 175.3125,-36.9526 175.3062,-36.9392 175.2951,-36.9198 175.2688,-36.8856 175.2505,-36.8775 175.2345,-36.8673 175.2055,-36.8253 175.2373,-36.7683 175.2797,-36.7348 175.2571,-36.6383 175.2346,-36.5802 175.1494,-36.5295 175.1349,-36.5177 175.1277,-36.5006 175.125,-36.4837 175.1236,-36.4487 175.1283,-36.4388 175.3112,-36.4763 175.3757,-36.5813 175.4015,-36.669 175.5339,-36.6724 175.6108,-36.7129 175.5036,-36.7644 175.4717,-36.8025 175.4789,-36.831 175.4875,-36.8415 175.5098,-36.851 175.5288,-36.8297 175.5211,-36.813 175.5212,-36.7979 175.531,-36.7876 175.5827,-36.7833 175.6037,-36.7892 175.6173,-36.8013 175.6497,-36.8764 175.6877,-37.0258 175.6857,-37.0375 175.6677,-37.0731 175.653,-37.1311 175.6588,-37.2051 175.6901,-37.2095 175.6979,-37.2174 175.7053,-37.237 175.709,-37.2578 175.7428,-37.3757 175.7444,-37.411 175.7994,-37.4427 175.8276,-37.4603 175.859,-37.486 175.9333,-37.5784 175.8503,-37.5601 175.835,-37.554 175.8271,-37.5463 175.8349,-37.5369 175.8586,-37.5345 175.8304,-37.5042 175.789,-37.4848 175.7789,-37.4822 175.7239,-37.4788 175.712,-37.4829 175.7217,-37.5164 175.7624,-37.5965 175.8396,-37.6126 175.9126,-37.6327 176.0097,-37.6669 176.035,-37.6338 176.2553,-37.714 176.2916,-37.7291 176.3046,-37.7418 176.3167,-37.7506 176.4231,-37.8129 176.4378,-37.8196 176.4531,-37.8255 176.5254,-37.8502 176.5505,-37.8576 176.5693,-37.8605 176.586,-37.8618 176.6046,-37.8647 176.684,-37.8835 176.7098,-37.8895 176.8487,-37.9245 176.8733,-37.9442 176.925,-37.9704 177.1806,-37.9397 177.2389,-37.9197 177.3145,-37.8741 177.3369,-37.8596 177.3667,-37.8326 177.4124,-37.7624 177.4978,-37.6399 177.5087,-37.6341 177.5577,-37.6245 177.6195,-37.6146 177.6376,-37.6106 177.7653,-37.5498 177.7749,-37.5436 177.7834,-37.5085 177.8261,-37.5003 177.9529,-37.5045 178.0471,-37.5186 178.0746,-37.5284 178.0748,-37.539 178.0859,-37.5599 178.1015,-37.5759 178.1147,-37.5844 178.1327,-37.5883 178.2176,-37.6035 178.2326,-37.6043 178.2534,-37.6017 178.2654,-37.6058 178.3152,-37.6451 178.3223,-37.6533 178.3283,-37.6743 178.2475,-37.7836 178.2169,-37.8199 178.1939,-37.8341 178.184,-37.8451 178.1146,-37.9619 178.1113,-37.9724 178.1157,-37.987 178.126,-37.9977 178.1394,-38.0299 178.1417,-38.0513 178.1172,-38.1425 178.0834,-38.2049 178.081,-38.2166 178.0837,-38.3554 178.0652,-38.4854 178.061,-38.4957 177.9213,-38.6057 177.8373,-38.6702 177.8269,-38.6757 177.8102,-38.6757 177.6914,-38.6787 177.7034,-38.7499 177.686,-38.8745 177.6799,-38.8989 177.6715,-38.9256 177.6594,-39.0038 177.6555,-39.0206 177.6682,-39.0201 177.6845,-39.0451 177.7035,-39.0478 177.7291,-39.054 177.7528,-39.071 177.7594,-39.0799 177.6711,-39.2126 177.6597,-39.2233 177.6361,-39.2419 177.6258,-39.2436 177.6062,-39.2069 177.6005,-39.1927 177.5854,-39.149 177.5864,-39.1362 177.6029,-39.1086 177.5837,-39.0701 177.5826,-39.0596 177.4421,-39.0312 177.3909,-39.0272 177.1883,-39.0199 177.1501,-39.0337 177.0093,-39.0841 176.9685,-39.0994 176.9113,-39.1208 176.8172,-39.1603 176.6957,-39.3083 176.6659,-39.3534 176.6606,-39.3676 176.6604,-39.3976 176.7074,-39.6196 176.7717,-39.6104 176.8681,-39.6159 176.8795,-39.6208 176.8781,-39.6344 176.8434,-39.685 176.8314,-39.6989 176.8153,-39.7055 176.7916,-39.7153 176.7824,-39.7266 176.6542,-39.9893 176.6496,-40.0087 176.6532,-40.0411 176.6333,-40.0761 176.5932,-40.1361 176.5675,-40.1712 176.556,-40.181 176.446,-40.2758 176.4031,-40.3341 176.387,-40.3762 176.2987,-40.449 176.2802,-40.4678 176.2595,-40.4892 176.2007,-40.5543 176.1641,-40.5977 176.1448,-40.6289 176.1109,-40.6448 176.0471,-40.7478 175.9976,-40.8625 175.9794,-40.8852 175.9541,-40.8951 175.9314,-40.9058 175.9141,-40.9158 175.9009,-40.9289 175.8925,-40.9409 175.8791,-40.9671 175.8713,-40.9888 175.8568,-41.0408 175.846,-41.0696 175.8391,-41.0827 175.8206,-41.1053 175.7429,-41.1845 175.7134,-41.2086 175.5774,-41.3005 175.4984,-41.3471 175.3162,-41.4381 175.2294,-41.4943 175.186,-41.5173 175.0767,-41.5682 174.9895,-41.5738 174.9781,-41.5683 174.9435,-41.4886 174.941,-41.4722 174.9401,-41.4536 174.9476,-41.4139 174.9524,-41.3949 174.9476,-41.3807 174.8395,-41.3385 174.8224,-41.3335 174.8084,-41.3318 174.7865,-41.3348 174.7491,-41.3485 174.7323,-41.3589 174.7197,-41.3682 174.7067,-41.3812 174.6987,-41.3934 174.6731,-41.4012 174.6321,-41.3826 174.6232,-41.3753 174.6222,-41.2969 174.6305,-41.2803 174.641,-41.2654 174.6541,-41.2432 174.6585,-41.2319 174.6615,-41.2078 174.6585,-41.1878 174.6509,-41.1793 174.5831,-41.1737 174.5474,-41.1975 174.5362,-41.2122 174.5346,-41.2328 174.5559,-41.2403 174.5809,-41.24 174.5913,-41.2511 174.5908,-41.2662 174.5836,-41.2791 174.5714,-41.2883 174.5045,-41.3006 174.4602,-41.2974 174.4319,-41.2916 174.4114,-41.2839 174.3897,-41.2683 174.352,-41.2317 174.353,-41.2207 174.3614,-41.204 174.3725,-41.1878 174.3928,-41.188 174.4087,-41.1877 174.4271,-41.183 174.4413,-41.1751 174.4546,-41.1668 174.4758,-41.1505 174.5609,-41.0535 174.6044,-40.9951 174.6344,-40.9717 174.6479,-40.9676 174.6647,-40.9619 174.6922,-40.9412 174.702,-40.93 174.7066,-40.9195 174.7751,-40.8022 174.8591,-40.7095 174.8731,-40.6928 174.8812,-40.6809 174.8882,-40.6674 174.9248,-40.5857 174.9304,-40.5709 174.9326,-40.5636 174.948,-40.4848 174.9989,-40.2839 174.9925,-40.2351 174.9629,-40.1362 174.9577,-40.1213 174.9396,-40.0888 174.917,-40.0505 174.8339,-39.9578 174.818,-39.9427 174.7849,-39.913 174.7489,-39.885 174.7369,-39.8756 174.7235,-39.8675 174.7018,-39.8572 174.6859,-39.8509 174.5956,-39.8187 174.5542,-39.8098 174.5443,-39.8079 174.5146,-39.8207 174.5039,-39.8218 174.4931,-39.821 174.3397,-39.7842 174.3217,-39.7797 174.3095,-39.7756 174.2876,-39.7601 174.1856,-39.6822 174.1749,-39.6719 174.1406,-39.6339 174.1158,-39.5926 174.1014,-39.5808 174.077,-39.5674 173.9781,-39.5336 173.8059,-39.5082 173.763,-39.5068 173.7524,-39.5059 173.732,-39.4988 173.6369,-39.4387 173.6175,-39.426 173.6059,-39.4167 173.5767,-39.3929 173.5612,-39.3774 173.5526,-39.3654 173.5419,-39.3462 173.5358,-39.3324 173.5285,-39.3104 173.5209,-39.2608 173.5185,-39.2444 173.5182,-39.2257 173.5503,-39.1439 173.5672,-39.125 173.5968,-39.1015 173.6114,-39.0943 173.6348,-39.0846 173.6594,-39.0763 173.7778,-39.0294 173.8816,-38.9804 173.9545,-38.9446 173.976,-38.9332 173.9933,-38.9285 174.0149,-38.9266 174.0267,-38.9261 174.0481,-38.926 174.0596,-38.9259 174.0798,-38.9287 174.1181,-38.9355 174.1419,-38.9351 174.1555,-38.932 174.223,-38.8965 174.3129,-38.8279 174.3245,-38.8165 174.3347,-38.8063 174.3546,-38.785 174.3613,-38.772 174.3702,-38.7425 174.3755,-38.7195 174.3925,-38.6343 174.41,-38.5471 174.449,-38.3357 174.4927,-38.1427 174.6067,-38.1143 174.6204,-38.1125 174.6977,-38.0707 174.7086,-38.0583 174.6669,-38.0319 174.6458,-38.0211 174.6616,-37.9302 174.6371,-37.9008 174.6269,-37.8994 174.6033,-37.9209 174.5981,-37.9299 174.5974,-37.9523 174.5875,-37.9582 174.5695,-37.9573 174.5574,-37.9481 174.5527,-37.9333 174.5577,-37.8215 174.5624,-37.807 174.5921,-37.7847 174.6106,-37.7758 174.6417,-37.7634 174.6525,-37.7623 174.6719,-37.765 174.7143,-37.7679 174.7405,-37.7651 174.7442,-37.7075 174.7398,-37.6979 174.7169,-37.7014 174.6998,-37.7098 174.6762,-37.7317 174.6352,-37.7413 174.6174,-37.7271 174.5975,-37.6681 174.534,-37.4853 174.5144,-37.4454 174.495,-37.4051 174.4875,-37.3829 174.4848,-37.3618 174.4927,-37.3497 174.5147,-37.3438 174.5307,-37.3382 174.5406,-37.3319 174.6019,-37.266 174.6111,-37.2522 174.6004,-37.2483 174.5876,-37.2506 174.5715,-37.2564 174.5364,-37.2792 174.5235,-37.2916 174.5131,-37.3199 174.499,-37.3265 174.4845,-37.3206 174.4719,-37.3077 174.4647,-37.295 174.4306,-37.2313 174.4165,-37.1944 174.4105,-37.1824 174.3707,-37.1121 174.3495,-37.0735 174.3412,-37.0616 174.3267,-37.0455 174.322,-37.0352 174.3271,-37.023 174.34,-37.0196 174.415,-37.0193 174.434,-37.0269 174.4353,-37.0412 174.4198,-37.0581 174.4744,-37.156 174.5044,-37.1541 174.4907,-37.1103 174.6499,-37.047 174.6583,-37.0175 174.5664,-36.9814 174.5754,-36.9307 174.5959,-36.9191 174.6021,-36.9102 174.5945,-36.9007 174.5415,-36.8951 174.468,-36.8982 174.4572,-36.899 174.4278,-36.9077 174.4129,-36.9193 174.3939,-36.9405 174.3893,-36.9506 174.3718,-36.9806 174.2959,-37.0036 174.2834,-37.0018 174.2714,-36.9929 174.2623,-36.9774 174.256,-36.9638 174.2307,-36.9022 174.2235,-36.8822 174.2185,-36.8677 174.2145,-36.8519 174.211,-36.827 174.2084,-36.8106 174.2058,-36.7942 174.1996,-36.7713 174.1946,-36.7566 174.1886,-36.7428 174.18,-36.7268 174.1624,-36.699 174.1164,-36.638 174.0733,-36.5859 174.0574,-36.5715 174.0399,-36.5578 174.0095,-36.5268 173.9815,-36.494 173.9605,-36.4558 173.9507,-36.4219 173.9526,-36.4051 173.9601,-36.3927 173.9739,-36.387 174.0167,-36.3996 174.0275,-36.4046 174.0729,-36.4747 174.1213,-36.5606 174.1417,-36.5896 174.1984,-36.6264 174.2269,-36.6064 174.2378,-36.5415 174.2377,-36.4912 174.215,-36.3738 174.1932,-36.3274 174.1646,-36.3541 174.1536,-36.3592 174.073,-36.3524 174.058,-36.3415 174.0496,-36.3297 174.043,-36.3166 174.0415,-36.3047 174.0649,-36.276 174.0769,-36.2745 174.1029,-36.2901 174.1455,-36.2901 174.1941,-36.2697 174.2798,-36.2264 174.2922,-36.2125 174.2781,-36.1906 174.1863,-36.2223 174.151,-36.2456 174.1376,-36.2534 174.1193,-36.2571 174.1093,-36.2578 174.0782,-36.2465 174.1382,-36.2191 174.2151,-36.1289 174.1692,-36.1038 174.1684,-36.1146 174.1447,-36.169 174.1318,-36.1812 174.1183,-36.189 174.1079,-36.1902 174.0808,-36.136 174.0521,-36.0791 174.0125,-36.0706 174.0026,-36.0717 173.9684,-36.0903 173.9617,-36.1033 173.959,-36.1312 173.968,-36.1374 173.9954,-36.1417 174.0133,-36.1412 174.0607,-36.1694 174.0867,-36.1994 174.0403,-36.2294 174.0283,-36.2317 173.8391,-36.1277 173.7728,-36.0802 173.7665,-36.0721 173.7051,-35.9413 173.7125,-35.8943 173.7213,-35.8834 173.7211,-35.8714 173.6853,-35.8317 173.6786,-35.8438 173.6952,-35.9626 173.7546,-36.0807 173.7636,-36.0963 173.8977,-36.2226 173.9514,-36.2388 173.9722,-36.307 173.9708,-36.3277 173.9647,-36.3365 173.8882,-36.3625 173.8631,-36.3703 173.8539,-36.3683 173.8408,-36.356 173.8304,-36.3335 173.8221,-36.3125 173.8178,-36.2978 173.813,-36.2823 173.8043,-36.252 173.7937,-36.2329 173.6001,-35.9918 173.5116,-35.8932 173.5012,-35.8833 173.3652,-35.7379 173.1724,-35.5305 173.1741,-35.5134 173.2218,-35.4002 173.2412,-35.3891 173.2794,-35.3826 173.3152,-35.3909 173.4051,-35.317 173.4307,-35.2782 173.3395,-35.2382 173.3291,-35.2437 173.3251,-35.2631 173.326,-35.2852 173.342,-35.3042 173.3431,-35.3217 173.3381,-35.3312 173.2151,-35.3363 173.1883,-35.3469 173.1667,-35.383 173.1709,-35.4139 173.1682,-35.4427 173.1569,-35.4846 173.0825,-35.4091 173.0135,-35.3305 172.93,-35.237 172.8792,-35.1864 172.8657,-35.1744 172.8713,-35.1458 172.895,-35.1459 172.9072,-35.1495 172.9246,-35.1509 172.9421,-35.1369 172.9569,-35.1163 172.9634,-35.1037 172.9678,-35.0886 172.9727,-35.0608 172.9745,-35.0392 172.9745,-35.0116 172.9697,-34.9879 172.9654,-34.9733 172.9534,-34.9507 172.9347,-34.919 172.9268,-34.9073 172.9134,-34.8906 172.7229,-34.678 172.6042,-34.5456 172.5883,-34.5298 172.4987,-34.4564 172.5151,-34.397 172.6765,-34.3759 172.6878,-34.3761 172.7965,-34.3833 172.8147,-34.3982 172.8175,-34.4812 172.8044,-34.4878 172.7878,-34.4889 172.773,-34.4596 172.76,-34.434 172.7344,-34.4281 172.6865,-34.5079 172.6999,-34.5201 172.7121,-34.5283 172.7487,-34.5421 172.8289,-34.6264 172.8334,-34.6412 172.8863,-34.7523 172.8965,-34.7712 172.9042,-34.7833 172.9114,-34.791 172.9278,-34.8007 172.9891,-34.8325 172.9891,-34.8325 57,9.5,Australia 137.7321,-35.689 137.7833,-35.6941 137.8491,-35.708 137.8835,-35.7228 137.9325,-35.7772 137.9332,-35.8292 137.8609,-35.8824 137.8005,-35.8658 137.777,-35.8494 137.7418,-35.835 137.6446,-35.8278 137.6139,-35.8256 137.5822,-35.8256 137.4408,-35.8793 137.4225,-35.9002 137.4315,-35.9345 137.4357,-35.9691 137.4073,-35.9925 137.3121,-36.0346 137.2765,-36.0448 137.2155,-35.9997 137.1789,-35.9638 137.0477,-35.9435 137.011,-35.9533 137.0001,-35.99 136.9719,-36.0034 136.8533,-35.995 136.7215,-36.0115 136.567,-36.0203 136.5344,-36.0161 136.5025,-35.9725 136.4345,-35.9204 136.4032,-35.9036 136.3612,-35.8772 136.3566,-35.8418 136.4039,-35.7291 136.733,-35.6488 136.7696,-35.6408 136.8263,-35.6384 136.8482,-35.6402 136.8889,-35.6349 136.9426,-35.6219 137.0493,-35.5844 137.1391,-35.5507 137.1595,-35.5487 137.3479,-35.5646 137.4063,-35.6107 137.4052,-35.6914 137.4194,-35.7066 137.5145,-35.7171 137.6125,-35.763 137.6506,-35.7716 137.6717,-35.7663 137.6904,-35.7541 137.7109,-35.7287 137.7321,-35.689 137.7321,-35.689 14,13.0,New Zealand 175.2941,-36.3072 175.2846,-36.3059 175.2356,-36.2795 175.1303,-36.1886 175.1314,-36.0518 175.1366,-36.0379 175.1477,-36.0285 175.1608,-36.025 175.1851,-36.0278 175.301,-36.1379 175.3308,-36.278 175.3137,-36.3094 175.2941,-36.3072 175.2941,-36.3072 11,13.0,New Zealand 174.9402,-36.7878 174.9357,-36.7925 174.8598,-36.7921 174.7784,-36.7614 174.7735,-36.7513 174.7849,-36.7274 174.9601,-36.6871 174.9831,-36.7149 174.9568,-36.7797 174.9402,-36.7878 174.9402,-36.7878 18,10.0,Australia 145.1625,-38.3876 145.1387,-38.3842 145.0906,-38.3656 145.0805,-38.3311 145.078,-38.3199 145.1028,-38.2555 145.1128,-38.2537 145.2626,-38.2817 145.2937,-38.3088 145.3034,-38.3192 145.3012,-38.3292 145.2921,-38.3334 145.2693,-38.3314 145.2282,-38.334 145.2152,-38.3412 145.1702,-38.3798 145.1625,-38.3876 145.1625,-38.3876 23,10.0,Australia 145.1606,-38.5266 145.1426,-38.5087 145.1265,-38.4941 145.1167,-38.489 145.1051,-38.4843 145.0779,-38.4772 145.0618,-38.4771 145.0476,-38.4792 145.0354,-38.4822 144.9891,-38.4861 144.9238,-38.4878 144.9271,-38.4772 144.9685,-38.4409 144.9865,-38.4283 144.9973,-38.4234 145.0095,-38.42 145.0716,-38.4107 145.0898,-38.4093 145.0998,-38.4118 145.1163,-38.4226 145.1692,-38.5233 145.1606,-38.5266 145.1606,-38.5266 17,-3.0,Argentina -61.81,-39.1995 -61.8205,-39.1974 -61.9776,-39.1225 -62.0072,-39.0764 -62.0127,-39.0675 -62.0149,-39.0534 -62.0088,-39.0436 -61.9956,-39.044 -61.874,-39.0715 -61.8609,-39.0759 -61.8069,-39.0961 -61.7933,-39.1203 -61.7763,-39.1739 -61.7802,-39.1913 -61.7955,-39.198 -61.81,-39.1995 -61.81,-39.1995 38,10.0,Australia 143.7255,-40.0911 143.7178,-40.0894 143.6903,-40.0712 143.6779,-40.0195 143.6965,-40.0088 143.6967,-39.9396 143.6905,-39.925 143.6755,-39.9119 143.6566,-39.9002 143.6453,-39.8918 143.6396,-39.8823 143.643,-39.8282 143.6606,-39.6671 143.6767,-39.6556 143.7051,-39.6436 143.7223,-39.6356 143.7314,-39.6292 143.739,-39.6223 143.7471,-39.6108 143.7513,-39.5961 143.7495,-39.584 143.7412,-39.5638 143.7377,-39.5535 143.7412,-39.5382 143.7832,-39.5294 143.7936,-39.5324 143.8723,-39.5713 143.9141,-39.6178 143.9175,-39.6282 143.9271,-39.7671 143.9271,-39.7801 143.9509,-39.8843 143.9412,-39.9392 143.9101,-39.9909 143.8128,-40.0423 143.7616,-40.0644 143.7255,-40.0911 143.7255,-40.0911 33,10.0,Australia 147.9267,-40.2287 147.9133,-40.2261 147.8991,-40.2216 147.8625,-40.2085 147.8473,-40.1999 147.837,-40.1908 147.8117,-40.1161 147.8169,-40.0946 147.7033,-39.9306 147.6092,-39.8686 147.5734,-39.8498 147.5604,-39.8328 147.5839,-39.8053 147.6819,-39.7092 147.7258,-39.6927 147.7675,-39.6805 147.7709,-39.6916 147.778,-39.6999 147.8688,-39.794 147.9648,-39.8845 147.9733,-39.8909 147.9859,-39.8995 148.0019,-39.9051 148.0428,-39.9169 148.0783,-39.9205 148.0868,-39.9496 148.1331,-40.1467 148.1293,-40.1735 148.1192,-40.1864 148.1012,-40.1936 147.9754,-40.2114 147.9267,-40.2287 147.9267,-40.2287 36,10.0,Australia 148.1365,-40.4574 148.137,-40.4212 148.1336,-40.4088 148.1274,-40.3973 148.1159,-40.3894 148.0896,-40.3885 147.9279,-40.4013 147.9126,-40.4031 147.9016,-40.4087 147.8846,-40.4124 147.8663,-40.4089 147.795,-40.3823 147.7915,-40.3714 147.7935,-40.3558 147.7964,-40.3439 147.8061,-40.3336 147.8632,-40.3023 147.8815,-40.2992 147.897,-40.2977 147.9149,-40.298 147.9311,-40.2992 147.9462,-40.3014 147.9854,-40.3167 148.0003,-40.3154 148.0856,-40.2792 148.1067,-40.2685 148.1269,-40.2594 148.1407,-40.2612 148.1524,-40.2698 148.2764,-40.3848 148.2744,-40.3957 148.2607,-40.3964 148.2049,-40.416 148.1556,-40.4448 148.1365,-40.4574 148.1365,-40.4574 645,13.0,New Zealand 174.0058,-41.2774 173.9925,-41.2812 173.9692,-41.2825 173.9541,-41.2735 173.9125,-41.26 173.8723,-41.2897 173.8117,-41.3775 173.8057,-41.3995 173.8106,-41.4195 173.8242,-41.4458 173.8445,-41.4789 173.857,-41.4681 173.8649,-41.4603 173.8751,-41.4666 173.886,-41.4768 173.9112,-41.5042 173.9377,-41.5353 173.9397,-41.5513 173.9344,-41.5613 173.9204,-41.5736 173.953,-41.6381 174.0494,-41.6903 174.049,-41.701 174.043,-41.7147 173.9961,-41.7899 173.9719,-41.8178 173.9611,-41.8282 173.9407,-41.8452 173.9208,-41.8578 173.9033,-41.8681 173.8481,-41.91 173.7687,-41.9798 173.7395,-42.0135 173.7249,-42.039 173.7188,-42.0532 173.7133,-42.0717 173.7133,-42.0856 173.7161,-42.1184 173.6902,-42.1517 173.6405,-42.1977 173.6264,-42.2057 173.5944,-42.2234 173.5577,-42.2473 173.3281,-42.4287 173.3182,-42.4395 173.3008,-42.4635 173.2924,-42.4803 173.2605,-42.5514 173.2403,-42.5735 173.2257,-42.6085 173.2196,-42.6222 173.2083,-42.6416 173.1472,-42.745 173.1111,-42.7921 173.0874,-42.854 173.0851,-42.8649 173.0447,-42.9093 172.8624,-43.0105 172.8499,-43.0156 172.7859,-43.0331 172.7353,-43.0421 172.7128,-43.0437 172.6952,-43.0494 172.6797,-43.0567 172.5976,-43.099 172.5776,-43.1118 172.5574,-43.134 172.532,-43.1706 172.519,-43.1937 172.4864,-43.3701 172.5348,-43.5625 172.653,-43.57 172.6647,-43.5712 172.8183,-43.6032 172.8618,-43.6507 172.8731,-43.6917 172.8753,-43.7164 172.8701,-43.7792 172.85,-43.8066 172.8172,-43.8212 172.7602,-43.8176 172.7494,-43.7996 172.7239,-43.7524 172.7189,-43.7108 172.7102,-43.7055 172.6987,-43.7065 172.6834,-43.719 172.6793,-43.7787 172.6793,-43.8228 172.6928,-43.8347 172.6973,-43.8443 172.6248,-43.853 172.567,-43.8304 172.5022,-43.7851 172.4957,-43.7761 172.4742,-43.7586 172.4019,-43.7226 172.2724,-43.6795 172.2548,-43.674 172.2429,-43.6732 172.2318,-43.6738 172.1844,-43.6837 172.1727,-43.6939 172.1498,-43.7143 172.1447,-43.729 172.1421,-43.7451 172.1434,-43.7669 172.1535,-43.8047 172.1464,-43.8133 172.1267,-43.8178 172.0568,-43.8312 172.0464,-43.8333 172.0352,-43.8338 171.9493,-43.8591 171.8107,-43.9153 171.7386,-43.9459 171.7151,-43.9566 171.7008,-43.9649 171.5424,-44.0268 171.4147,-44.0722 171.3436,-44.1036 171.3074,-44.1238 171.2987,-44.1283 171.1158,-44.2349 171.1049,-44.2435 171.0802,-44.2659 171.0539,-44.293 171.0458,-44.3058 171.0389,-44.3196 171.0307,-44.3369 171.0375,-44.3488 171.0383,-44.3742 171.0357,-44.3868 171.0303,-44.4014 171.0236,-44.4149 171.0152,-44.4277 170.9719,-44.4846 170.9609,-44.4905 170.9564,-44.5094 170.9526,-44.5951 170.9531,-44.6123 170.965,-44.6493 170.9749,-44.6924 170.967,-44.8002 170.9571,-44.8724 170.9452,-44.8873 170.9419,-44.8904 170.935,-44.8988 170.9264,-44.9118 170.9246,-44.9192 170.9231,-44.9269 170.9095,-44.9454 170.8409,-45.0158 170.7879,-45.0517 170.7367,-45.0996 170.725,-45.1147 170.6826,-45.1915 170.6341,-45.3107 170.6376,-45.3219 170.6321,-45.3721 170.6184,-45.4388 170.5108,-45.5676 170.4348,-45.6928 170.3771,-45.787 170.3166,-45.8324 170.3156,-45.8434 170.3556,-45.8404 170.3685,-45.8355 170.4184,-45.806 170.4815,-45.7627 170.5373,-45.7321 170.5506,-45.7547 170.5506,-45.794 170.5485,-45.8113 170.5396,-45.828 170.4597,-45.8593 170.4243,-45.8557 170.3331,-45.864 170.3104,-45.8665 170.2445,-45.8744 170.2126,-45.8793 170.1844,-45.8868 170.1428,-45.9034 170.1025,-45.9211 170.0725,-45.9414 170.0546,-45.9612 170.0418,-45.9767 170.0235,-45.9991 170.0163,-46.0129 170.0127,-46.0336 170.0134,-46.059 169.999,-46.0977 169.9866,-46.1122 169.9741,-46.122 169.9537,-46.1352 169.9293,-46.1458 169.8278,-46.1935 169.672,-46.2871 169.6207,-46.3208 169.6093,-46.3361 169.6077,-46.3639 169.6107,-46.3838 169.612,-46.408 169.605,-46.4169 169.4615,-46.5047 169.3909,-46.5284 169.2178,-46.5698 169.0264,-46.6031 168.8932,-46.6173 168.868,-46.6156 168.8575,-46.6134 168.8448,-46.6039 168.8277,-46.5817 168.8183,-46.6233 168.7684,-46.6273 168.6414,-46.6112 168.623,-46.5703 168.6255,-46.5541 168.6012,-46.5088 168.5849,-46.5078 168.4943,-46.5242 168.3979,-46.5519 168.3759,-46.5575 168.3541,-46.5609 168.3299,-46.5616 168.278,-46.5606 168.2538,-46.56 168.2005,-46.5473 168.208,-46.5308 168.2035,-46.5218 168.2158,-46.521 168.2517,-46.5198 168.2645,-46.5279 168.3126,-46.541 168.325,-46.5313 168.3076,-46.5157 168.1528,-46.4868 168.1193,-46.4929 168.1133,-46.5071 168.1241,-46.5305 168.112,-46.53 168.1238,-46.5358 168.1258,-46.5485 168.1129,-46.5499 168.0371,-46.5046 168.0303,-46.4792 168.0431,-46.4712 168.0694,-46.4671 168.0802,-46.4716 168.0865,-46.4854 168.1012,-46.4857 168.1511,-46.4419 168.1576,-46.4281 168.1557,-46.4171 168.1331,-46.3658 168.1169,-46.3629 168.0124,-46.3475 167.9708,-46.3001 167.9525,-46.2908 167.9375,-46.2873 167.8786,-46.2907 167.8262,-46.2987 167.7182,-46.3184 167.6555,-46.334 167.6134,-46.3463 167.5908,-46.3434 167.517,-46.2807 167.5421,-46.2565 167.5453,-46.2416 167.5409,-46.2312 167.4653,-46.1567 167.3604,-46.1135 167.3201,-46.1035 167.31,-46.1014 167.298,-46.1 167.2468,-46.0968 167.235,-46.0971 167.2199,-46.1001 167.2099,-46.1072 167.1793,-46.1517 167.1204,-46.2014 167.0439,-46.2202 167.0249,-46.2147 167.0024,-46.2109 166.8509,-46.1875 166.7656,-46.1762 166.7304,-46.1716 166.7145,-46.1709 166.6797,-46.173 166.6474,-46.177 166.6007,-46.1794 166.5874,-46.1789 166.5326,-46.1707 166.4866,-46.1594 166.4699,-46.1484 166.4354,-46.1049 166.4539,-46.0911 166.4744,-46.0825 166.5037,-46.0665 166.5263,-46.0407 166.5499,-46.0124 166.5696,-45.9804 166.5951,-45.9511 166.6198,-45.9414 166.652,-45.9377 166.7095,-45.8967 166.6947,-45.8945 166.5973,-45.9304 166.5537,-45.9548 166.5461,-45.9636 166.5263,-45.9929 166.5046,-46.0134 166.4357,-46.0345 166.3797,-46.036 166.3845,-46.0035 166.406,-45.9623 166.4271,-45.9394 166.3911,-45.9148 166.2541,-45.9609 166.2405,-45.9502 166.2319,-45.9342 166.2308,-45.7869 166.2366,-45.7671 166.2428,-45.7575 166.3033,-45.7465 166.3797,-45.7486 166.4181,-45.7478 166.4658,-45.7464 166.6517,-45.7264 166.7395,-45.6827 166.7527,-45.6573 166.6888,-45.6537 166.6782,-45.653 166.6531,-45.6529 166.62,-45.6556 166.5915,-45.6626 166.5753,-45.6689 166.5531,-45.6377 166.5418,-45.6105 166.5789,-45.559 166.6355,-45.5366 166.65,-45.5335 166.6642,-45.5342 166.6788,-45.5387 166.7462,-45.5264 166.7618,-45.5265 166.7717,-45.5197 166.7983,-45.4758 166.8073,-45.4494 166.7554,-45.4672 166.6577,-45.4927 166.5599,-45.5181 166.547,-45.5192 166.4737,-45.5247 166.4643,-45.4986 166.5237,-45.3735 166.5678,-45.3016 166.5881,-45.2687 166.6354,-45.2279 166.6475,-45.2275 166.7744,-45.2897 166.8044,-45.3059 166.9128,-45.3754 166.9344,-45.4206 166.9711,-45.4259 166.9786,-45.4192 166.9752,-45.4093 166.9394,-45.3708 166.9241,-45.3546 166.8981,-45.3318 166.8816,-45.3205 166.8637,-45.3143 166.8535,-45.3116 166.828,-45.2931 166.8174,-45.2814 166.849,-45.2718 166.861,-45.2636 166.8802,-45.2586 166.937,-45.2534 166.9435,-45.2621 166.9816,-45.2642 167.0018,-45.2772 167.0144,-45.2824 167.026,-45.2842 167.0368,-45.2827 167.0716,-45.2758 167.0697,-45.2648 166.9606,-45.2198 166.9043,-45.2171 166.8595,-45.2184 166.7687,-45.1495 166.7634,-45.0941 166.9119,-44.9503 166.9671,-44.9023 166.9937,-44.8798 167.0067,-44.8701 167.0296,-44.8541 167.0823,-44.8222 167.1655,-44.8119 167.1877,-44.8451 167.1847,-44.8592 167.2055,-44.8817 167.207,-44.8939 167.2247,-44.9436 167.2713,-44.9488 167.2762,-44.9355 167.2441,-44.8521 167.2294,-44.8212 167.226,-44.8074 167.2249,-44.7901 167.2161,-44.7409 167.224,-44.7327 167.3649,-44.6331 167.5082,-44.5608 167.6038,-44.4481 167.6154,-44.4375 167.7148,-44.353 167.7287,-44.3446 167.8001,-44.3031 167.8929,-44.2664 167.9081,-44.2541 167.9091,-44.2419 167.889,-44.201 167.9083,-44.2026 167.9184,-44.2009 167.9346,-44.1942 168.056,-44.1198 168.1032,-44.0701 168.1009,-44.0557 168.101,-44.0441 168.1372,-43.9906 168.1477,-43.9844 168.1676,-43.9797 168.439,-43.9408 168.4512,-43.9501 168.4836,-43.9621 168.5181,-43.9601 168.5285,-43.9584 168.5888,-43.9383 168.6267,-43.9249 168.6467,-43.9116 168.7261,-43.8535 168.845,-43.7985 168.9064,-43.7444 168.9884,-43.6937 169.0356,-43.6729 169.1513,-43.6296 169.255,-43.594 169.3027,-43.5839 169.3902,-43.5643 169.4124,-43.5576 169.4239,-43.5522 169.4883,-43.5215 169.5027,-43.5084 169.5309,-43.4733 169.554,-43.4471 169.6344,-43.3572 169.6476,-43.3486 169.725,-43.3226 169.7887,-43.3007 169.7991,-43.2901 169.8128,-43.2578 169.8749,-43.205 170.0514,-43.0589 170.1811,-43.0037 170.2906,-42.9605 170.3459,-42.9415 170.4373,-42.9099 170.4673,-42.8972 170.5136,-42.8761 170.544,-42.8617 170.557,-42.8525 170.8288,-42.5997 170.871,-42.5598 170.9143,-42.5122 170.9588,-42.4285 170.9888,-42.3855 170.9934,-42.3606 170.9988,-42.3459 171.0104,-42.327 171.0231,-42.3178 171.0336,-42.3069 171.0608,-42.2621 171.0673,-42.2487 171.0726,-42.234 171.0798,-42.2019 171.0843,-42.1766 171.0859,-42.1593 171.0877,-42.1417 171.0897,-42.1243 171.0924,-42.1081 171.1071,-42.063 171.1244,-42.0201 171.2251,-41.8124 171.2742,-41.717 171.2965,-41.7189 171.3212,-41.7193 171.3325,-41.7187 171.4141,-41.714 171.4264,-41.7103 171.4493,-41.6995 171.5538,-41.6491 171.6183,-41.6057 171.6501,-41.5829 171.7054,-41.5031 171.786,-41.3961 171.8172,-41.3704 171.8285,-41.3566 171.8857,-41.231 171.8752,-41.1893 171.869,-41.1065 171.8703,-40.8651 171.872,-40.8428 171.8782,-40.8338 171.9509,-40.7669 171.9828,-40.7396 171.9888,-40.7348 172.0239,-40.7294 172.0355,-40.7242 172.0637,-40.7089 172.1124,-40.6813 172.1468,-40.6521 172.1911,-40.6119 172.2425,-40.5679 172.2844,-40.5573 172.2843,-40.5823 172.2941,-40.5862 172.3361,-40.5718 172.3605,-40.5555 172.3937,-40.5247 172.3957,-40.5139 172.3689,-40.5119 172.3573,-40.5101 172.3464,-40.509 172.3541,-40.4953 172.3945,-40.4646 172.4257,-40.4571 172.4762,-40.4495 172.5815,-40.4583 172.6254,-40.4617 172.752,-40.485 172.7415,-40.488 172.7089,-40.4851 172.659,-40.4785 172.5611,-40.4702 172.4998,-40.4724 172.4208,-40.6072 172.4652,-40.7023 172.6241,-40.8067 172.6385,-40.8047 172.6705,-40.7827 172.696,-40.7533 172.7442,-40.7355 172.7684,-40.7427 172.7764,-40.7503 172.7837,-40.7636 172.8141,-40.8232 172.8223,-40.9208 172.8189,-40.9323 172.7944,-40.9811 172.84,-41.2475 172.8479,-41.2553 172.8675,-41.2663 172.9302,-41.2692 172.9508,-41.2665 172.9652,-41.263 173.0373,-41.2254 173.088,-41.1759 173.1025,-41.1592 173.1134,-41.1489 173.139,-41.1315 173.188,-41.1038 173.3641,-41.0064 173.4014,-41.0271 173.4347,-41.0239 173.4858,-41.0116 173.5018,-41.0006 173.5057,-40.982 173.4999,-40.9721 173.4851,-40.9744 173.4557,-40.9896 173.441,-40.9924 173.436,-40.9785 173.4403,-40.968 173.4585,-40.954 173.5132,-40.9303 173.5619,-40.9229 173.6748,-40.8851 173.7512,-40.8506 173.7869,-40.8693 173.7918,-40.884 173.7874,-40.8988 173.6914,-40.9458 173.5937,-40.9487 173.5829,-40.9478 173.5422,-40.9658 173.5312,-41.052 173.5402,-41.0679 173.556,-41.0628 173.5838,-41.0341 173.5833,-41.0158 173.6032,-41.0073 173.6923,-41.0028 173.7114,-41.0117 173.6791,-41.041 173.649,-41.0569 173.6102,-41.0976 173.5818,-41.1992 173.5232,-41.2235 173.5371,-41.2428 173.5494,-41.2438 173.5674,-41.2427 173.7983,-41.1717 173.8608,-41.1516 173.8915,-41.1329 173.7658,-41.1303 173.7619,-41.1438 173.7539,-41.1516 173.7431,-41.1529 173.694,-41.1532 173.6651,-41.152 173.655,-41.146 173.6477,-41.1192 173.6492,-41.1074 173.6616,-41.0843 173.7943,-40.9532 173.8504,-40.976 174.0073,-40.998 174.0192,-40.9888 174.0604,-40.957 174.0805,-40.9555 174.0835,-40.968 173.9707,-41.1507 173.9177,-41.1793 173.8757,-41.1845 173.8133,-41.1881 173.7877,-41.1893 173.8148,-41.2075 173.9714,-41.2214 174.0522,-41.1921 174.064,-41.1829 174.0843,-41.1748 174.049,-41.2301 174.0058,-41.2774 174.0058,-41.2774 10,10.0,Australia 144.6907,-40.6831 144.6802,-40.68 144.6727,-40.6734 144.6677,-40.6252 144.7282,-40.5712 144.7949,-40.6204 144.8176,-40.6496 144.7282,-40.6764 144.6907,-40.6831 144.6907,-40.6831 15,13.0,New Zealand 173.5467,-40.865 173.5611,-40.8333 173.5711,-40.7697 173.5842,-40.7201 173.5914,-40.7114 173.7221,-40.6635 173.7282,-40.672 173.7291,-40.6935 173.7211,-40.7488 173.6854,-40.8196 173.5677,-40.8814 173.5454,-40.886 173.5392,-40.8771 173.5467,-40.865 173.5467,-40.865 260,10.0,Australia 146.7119,-43.5683 146.6586,-43.5868 146.6287,-43.5984 146.6104,-43.5683 146.5658,-43.5611 146.482,-43.5538 146.3953,-43.5067 146.3101,-43.4934 146.0924,-43.4853 146.0715,-43.4744 146.0564,-43.4457 146.0277,-43.4394 145.9068,-43.4659 145.8348,-43.4485 145.7296,-43.3268 145.7889,-43.2964 145.8994,-43.3086 145.953,-43.3302 146.0291,-43.3417 146.031,-43.2758 145.96,-43.2333 145.9362,-43.2653 145.9214,-43.2841 145.6557,-43.2594 145.634,-43.248 145.5562,-43.1355 145.5243,-43.0842 145.3929,-42.9305 145.3715,-42.9149 145.3452,-42.9127 145.3094,-42.9167 145.2576,-42.8555 145.2213,-42.7978 145.1961,-42.7271 145.1522,-42.6099 145.1092,-42.575 145.0585,-42.564 145.0304,-42.4082 144.9967,-42.2653 145.0044,-42.2089 145.023,-42.1912 145.0491,-42.2267 145.1218,-42.2719 145.1769,-42.301 145.2249,-42.3265 145.2385,-42.3506 145.2441,-42.4093 145.2574,-42.4575 145.2678,-42.4746 145.2738,-42.4719 145.3508,-42.3029 145.2982,-42.2754 145.2572,-42.2785 145.0793,-42.1334 145.0599,-42.0922 145.0644,-42.0634 145.0622,-42.0323 145.0472,-41.987 144.9841,-41.8908 144.8548,-41.7991 144.7553,-41.6661 144.659,-41.4973 144.5826,-41.3436 144.5328,-41.2591 144.487,-41.17 144.4968,-41.1343 144.4695,-41.0286 144.4553,-41.0005 144.4388,-40.9855 144.4206,-40.8847 144.4505,-40.855 144.4823,-40.8498 144.5016,-40.8291 144.5105,-40.7792 144.5035,-40.7129 144.564,-40.6819 144.7877,-40.7024 144.8374,-40.7331 144.8816,-40.7642 144.9178,-40.776 145.0761,-40.7565 145.1366,-40.7958 145.3398,-40.8463 145.5514,-40.9412 145.6723,-40.9962 145.9688,-41.1034 145.9927,-41.1101 146.0282,-41.1137 146.1687,-41.1243 146.2045,-41.1248 146.2492,-41.1181 146.2982,-41.1033 146.3635,-41.1287 146.3848,-41.14 146.3808,-41.1048 146.4591,-41.0421 146.5303,-41.0231 146.5627,-41.0264 146.5831,-41.0356 146.5998,-41.061 146.6051,-41.1016 146.6576,-41.1215 146.7411,-41.12 146.7115,-41.088 146.6781,-41.0803 146.6415,-41.0765 146.6216,-41.0617 146.6175,-41.0133 146.6623,-40.9819 146.8157,-40.9295 146.8843,-40.9454 146.9042,-40.9515 146.9229,-40.9584 146.9456,-40.9625 146.9698,-40.9624 146.9973,-40.9559 147.154,-40.9298 147.2142,-40.9712 147.2597,-40.9548 147.286,-40.9387 147.3152,-40.907 147.3393,-40.8777 147.3711,-40.8327 147.3871,-40.8068 147.4095,-40.796 147.4728,-40.7846 147.4966,-40.8111 147.6007,-40.8464 147.6355,-40.8448 147.6737,-40.8324 147.6991,-40.8167 147.719,-40.7944 147.7312,-40.7757 147.7418,-40.7492 147.7488,-40.7153 147.7692,-40.6986 147.8116,-40.6999 147.8767,-40.7227 148.0182,-40.8029 148.0703,-40.8548 148.1042,-40.9109 148.1157,-40.9259 148.1251,-40.9489 148.0989,-41.0289 148.0866,-41.061 148.0762,-41.0842 148.0608,-41.1205 148.0682,-41.1718 148.11,-41.2125 148.1129,-41.2877 148.0836,-41.3768 148.0699,-41.4072 148.0764,-41.4922 148.0924,-41.5186 148.1081,-41.544 148.1099,-41.5656 148.0878,-41.6814 148.0666,-41.7354 148.0601,-41.7671 148.0934,-41.9872 148.1065,-42.0158 148.1292,-42.0398 148.1537,-42.0609 148.1586,-42.1744 148.1415,-42.2012 148.1195,-42.2226 148.1058,-42.2299 148.0977,-42.2284 148.0701,-42.2074 148.0659,-42.1838 148.0926,-42.1582 148.1047,-42.0928 148.0342,-41.9505 147.9907,-41.8978 147.8745,-42.0696 147.799,-42.4743 147.7538,-42.5081 147.7389,-42.5655 147.7504,-42.618 147.7496,-42.6689 147.7196,-42.6927 147.6936,-42.708 147.6781,-42.7235 147.6375,-42.824 147.6513,-42.8401 147.6946,-42.8378 147.6767,-42.8085 147.7056,-42.7921 147.7689,-42.8207 147.7943,-42.8585 147.7993,-42.928 147.7615,-42.9464 147.7457,-43.0332 147.7734,-43.0776 147.7989,-43.1218 147.7895,-43.1785 147.7649,-43.1799 147.6938,-43.1345 147.6217,-43.1569 147.5841,-43.1978 147.492,-43.1144 147.4265,-43.0165 147.4137,-42.969 147.4687,-42.8964 147.5014,-42.8897 147.5255,-42.9058 147.5307,-42.9302 147.5146,-42.9536 147.5545,-42.991 147.5766,-43.0022 147.6035,-43.0056 147.6624,-42.9974 147.6939,-42.9778 147.6207,-42.883 147.3868,-42.778 147.3525,-42.782 147.2975,-42.812 147.3164,-42.8799 147.3312,-42.9004 147.3478,-42.9303 147.3205,-42.9693 147.2716,-42.9854 147.2224,-42.9927 147.199,-42.951 147.2181,-42.9422 147.2032,-42.8408 147.1471,-42.8125 147.1131,-42.798 147.1441,-42.8561 147.1363,-42.9022 147.1215,-42.9597 147.0881,-42.9793 147.0635,-43.0114 147.0373,-43.0845 147.0354,-43.1064 147.0575,-43.1547 147.0584,-43.1758 147.0426,-43.2199 147.0086,-43.2363 146.9734,-43.2331 146.8935,-43.1954 146.8367,-43.1506 146.8212,-43.1327 146.8182,-43.0893 146.8077,-43.0698 146.7871,-43.0635 146.7656,-43.0879 146.76,-43.115 146.7599,-43.1354 146.765,-43.155 146.7896,-43.1748 146.815,-43.1885 146.8564,-43.2091 146.8908,-43.2396 146.8501,-43.313 146.7974,-43.3734 146.7475,-43.4787 146.7325,-43.5509 146.7119,-43.5683 146.7119,-43.5683 102,-3.0,Chile -73.4671,-42.9455 -73.4614,-42.9609 -73.4268,-43.0094 -73.4011,-43.0363 -73.3893,-43.0669 -73.4124,-43.0814 -73.6364,-43.0666 -73.6775,-43.0782 -73.6623,-43.1621 -73.6382,-43.182 -73.6097,-43.1962 -73.5914,-43.2322 -73.6117,-43.3211 -73.6313,-43.3272 -73.7635,-43.3489 -73.7986,-43.3292 -73.8249,-43.3107 -73.8511,-43.3044 -73.9443,-43.3014 -74.0495,-43.2908 -74.1782,-43.2637 -74.267,-43.2293 -74.2854,-43.2182 -74.3019,-43.197 -74.2302,-43.0601 -74.1355,-42.9754 -74.1493,-42.943 -74.1181,-42.9208 -74.0747,-42.8384 -74.0418,-42.5999 -74.0474,-42.5294 -74.066,-42.4777 -74.0839,-42.4664 -74.1086,-42.4536 -74.0915,-42.3689 -74.0712,-42.187 -74.0612,-42.1695 -74.0422,-42.1485 -74.0216,-42.1291 -73.9987,-42.1123 -73.975,-42.0949 -73.944,-42.0168 -73.9106,-41.8659 -73.9489,-41.8073 -73.9601,-41.786 -73.9593,-41.7659 -73.9265,-41.727 -73.8098,-41.7347 -73.784,-41.7755 -73.8037,-41.7959 -73.8313,-41.7956 -73.8567,-41.7819 -73.8774,-41.7775 -73.8931,-41.7984 -73.8593,-41.8268 -73.7709,-41.8506 -73.745,-41.8354 -73.7042,-41.8148 -73.5989,-41.7662 -73.5006,-41.7562 -73.4713,-41.7586 -73.4017,-41.794 -73.4242,-41.9254 -73.3477,-42.0148 -73.3637,-42.0479 -73.391,-42.0557 -73.3979,-42.0775 -73.3863,-42.1051 -73.3189,-42.1389 -73.293,-42.1435 -73.2675,-42.2011 -73.2785,-42.237 -73.2913,-42.2594 -73.3963,-42.2776 -73.4508,-42.2715 -73.4747,-42.2732 -73.5426,-42.3003 -73.5652,-42.3105 -73.5813,-42.33 -73.5886,-42.4143 -73.557,-42.4386 -73.5307,-42.4492 -73.5144,-42.4626 -73.6227,-42.4958 -73.6783,-42.459 -73.6597,-42.4191 -73.6916,-42.4263 -73.7183,-42.4659 -73.7066,-42.5573 -73.5188,-42.6966 -73.4699,-42.7089 -73.4148,-42.738 -73.3986,-42.7519 -73.3844,-42.8053 -73.3921,-42.8276 -73.4697,-42.8367 -73.5074,-42.8339 -73.5405,-42.8476 -73.5497,-42.8867 -73.5185,-42.9152 -73.4671,-42.9455 -73.4671,-42.9455 20,-3.0,Chile -73.3344,-42.5066 -73.344,-42.4803 -73.3486,-42.4706 -73.3548,-42.4618 -73.3708,-42.4529 -73.464,-42.4161 -73.4776,-42.4122 -73.5097,-42.4071 -73.5234,-42.3999 -73.5511,-42.3418 -73.5484,-42.3318 -73.5321,-42.3267 -73.5089,-42.3245 -73.4745,-42.3242 -73.4509,-42.3284 -73.4317,-42.339 -73.3138,-42.4746 -73.3158,-42.5092 -73.3344,-42.5066 -73.3344,-42.5066 14,10.0,Australia 147.8089,-42.7043 147.8048,-42.6826 147.806,-42.6036 147.8075,-42.5802 147.8137,-42.5712 147.8714,-42.5384 147.9228,-42.5419 147.9675,-42.6068 147.9626,-42.6171 147.9495,-42.6205 147.8926,-42.6177 147.8364,-42.6835 147.8089,-42.7043 147.8089,-42.7043 10,10.0,Australia 147.1568,-43.2137 147.0883,-43.1082 147.1244,-43.0537 147.1524,-43.0259 147.1915,-43.0706 147.2266,-43.1648 147.2276,-43.1926 147.2247,-43.2045 147.1568,-43.2137 147.1568,-43.2137 15,10.0,Australia 147.0974,-43.464 147.034,-43.4422 146.9704,-43.4521 146.918,-43.3725 146.9853,-43.3051 147.0847,-43.2149 147.0954,-43.2135 147.1028,-43.221 147.1572,-43.325 147.1597,-43.3364 147.1575,-43.3486 147.1154,-43.4533 147.1054,-43.4626 147.0974,-43.464 147.0974,-43.464 22,-3.0,Chile -74.6812,-43.5991 -74.6893,-43.5981 -74.705,-43.5917 -74.7392,-43.5521 -74.7456,-43.5435 -74.7509,-43.5342 -74.7555,-43.5245 -74.7527,-43.508 -74.6688,-43.4774 -74.6567,-43.4783 -74.5719,-43.5095 -74.5625,-43.5162 -74.5398,-43.5339 -74.5304,-43.5522 -74.5495,-43.5655 -74.5718,-43.5669 -74.5987,-43.5644 -74.6135,-43.5672 -74.6329,-43.5727 -74.6449,-43.5776 -74.6812,-43.5991 -74.6812,-43.5991 56,13.0,New Zealand -176.4081,-43.9617 -176.3982,-43.9609 -176.3839,-43.9566 -176.3164,-43.9246 -176.2765,-43.886 -176.2705,-43.8686 -176.2712,-43.8579 -176.2856,-43.8237 -176.3068,-43.7958 -176.3176,-43.7848 -176.3331,-43.7727 -176.3714,-43.7553 -176.3846,-43.7519 -176.4076,-43.7505 -176.4167,-43.7609 -176.4365,-43.7811 -176.5451,-43.7909 -176.5866,-43.7922 -176.6017,-43.7661 -176.5955,-43.7533 -176.5022,-43.7227 -176.3583,-43.679 -176.3112,-43.6678 -176.2328,-43.6742 -176.217,-43.6807 -176.2058,-43.6863 -176.1394,-43.6992 -176.1281,-43.6991 -176.0843,-43.6992 -176.023,-43.7141 -176.0675,-43.7465 -176.1057,-43.7408 -176.1154,-43.7277 -176.1258,-43.7211 -176.1514,-43.7131 -176.1781,-43.7064 -176.1887,-43.7053 -176.2648,-43.6996 -176.2805,-43.7059 -176.2889,-43.722 -176.2861,-43.7339 -176.2515,-43.8199 -176.2051,-43.905 -176.1083,-43.9624 -176.1305,-44.0058 -176.2653,-44.0702 -176.2752,-44.0728 -176.2862,-44.0748 -176.298,-44.0749 -176.3305,-44.0732 -176.3551,-44.0701 -176.3632,-44.0438 -176.362,-44.0322 -176.3818,-43.9928 -176.4081,-43.9617 -176.4081,-43.9617 33,-3.0,Chile -73.8892,-43.8899 -73.9156,-43.8676 -73.996,-43.8502 -74.015,-43.8462 -74.0615,-43.8328 -74.0692,-43.8249 -74.0494,-43.7706 -74.0362,-43.7608 -74.0203,-43.7556 -73.9601,-43.7614 -73.9441,-43.7642 -73.812,-43.7498 -73.7569,-43.7145 -73.6867,-43.7719 -73.6666,-43.8172 -73.6607,-43.8395 -73.7507,-43.8449 -73.764,-43.8359 -73.7806,-43.8305 -73.7857,-43.8203 -73.7707,-43.812 -73.7612,-43.8026 -73.7758,-43.7951 -73.8023,-43.7923 -73.861,-43.8028 -73.8665,-43.8246 -73.8544,-43.8346 -73.851,-43.8459 -73.8267,-43.8565 -73.858,-43.8847 -73.8748,-43.8891 -73.8892,-43.8899 -73.8892,-43.8899 17,-3.0,Chile -73.0627,-43.979 -73.0918,-43.9744 -73.1695,-43.9465 -73.1815,-43.9329 -73.1864,-43.9139 -73.1839,-43.8975 -73.167,-43.8708 -73.1546,-43.8589 -73.0883,-43.8328 -73.0689,-43.8302 -73.0566,-43.8324 -73.0459,-43.8383 -73.0378,-43.8462 -73.0347,-43.8637 -73.0496,-43.9697 -73.0627,-43.979 -73.0627,-43.979 14,-3.0,Chile -73.5532,-44.0871 -73.6236,-43.9961 -73.6521,-43.947 -73.6531,-43.9305 -73.6475,-43.9148 -73.6338,-43.8968 -73.6253,-43.8889 -73.6031,-43.8895 -73.5315,-43.96 -73.5093,-44.0298 -73.5151,-44.0562 -73.5431,-44.0811 -73.5532,-44.0871 -73.5532,-44.0871 18,-3.0,Chile -73.7632,-44.1489 -73.8398,-44.1382 -73.8741,-44.1305 -73.888,-44.1235 -73.8969,-44.1159 -73.9034,-44.1071 -73.9079,-44.0943 -73.8707,-44.0666 -73.8447,-44.0515 -73.8227,-44.0483 -73.8119,-44.051 -73.7695,-44.0728 -73.7249,-44.1131 -73.7317,-44.1321 -73.7382,-44.1412 -73.7493,-44.1454 -73.7632,-44.1489 -73.7632,-44.1489 15,-3.0,Chile -73.924,-44.2852 -73.9328,-44.277 -73.9717,-44.2526 -73.9882,-44.236 -74.0207,-44.1496 -73.9594,-44.1013 -73.9449,-44.1039 -73.8822,-44.1579 -73.8473,-44.1904 -73.905,-44.2056 -73.9086,-44.2213 -73.9079,-44.2338 -73.9036,-44.2822 -73.924,-44.2852 -73.924,-44.2852 13,-3.0,Chile -73.7522,-44.288 -73.8513,-44.2745 -73.8636,-44.2643 -73.8687,-44.2302 -73.714,-44.2196 -73.6975,-44.2229 -73.6897,-44.2597 -73.6915,-44.275 -73.7054,-44.282 -73.7203,-44.2849 -73.7435,-44.2875 -73.7522,-44.288 -73.7522,-44.288 12,-3.0,Chile -73.924,-44.2852 -73.8277,-44.3069 -73.8229,-44.3886 -73.8293,-44.3983 -73.8486,-44.3944 -73.8635,-44.3843 -73.9674,-44.3446 -73.9818,-44.3327 -74.0025,-44.2765 -73.9852,-44.2711 -73.924,-44.2852 -73.924,-44.2852 75,-3.0,Chile -72.768,-44.687 -72.7724,-44.6908 -72.8216,-44.718 -72.8678,-44.7353 -72.9351,-44.7865 -72.9455,-44.8023 -72.9567,-44.8153 -72.966,-44.8225 -73.0324,-44.8606 -73.0936,-44.881 -73.1217,-44.8878 -73.1579,-44.8918 -73.174,-44.89 -73.1884,-44.8826 -73.2947,-44.7954 -73.3026,-44.7841 -73.3049,-44.7728 -73.298,-44.7635 -73.1994,-44.7381 -73.1822,-44.7433 -73.1717,-44.7494 -73.1553,-44.7617 -73.1133,-44.7547 -73.1042,-44.7494 -73.1309,-44.7322 -73.1961,-44.7124 -73.237,-44.7306 -73.2481,-44.74 -73.2587,-44.7461 -73.2705,-44.7467 -73.2861,-44.7399 -73.2967,-44.7305 -73.3288,-44.6828 -73.342,-44.6588 -73.36,-44.5952 -73.3204,-44.5531 -73.3121,-44.5455 -73.2814,-44.5406 -73.2701,-44.5418 -73.1726,-44.5289 -73.1601,-44.4826 -73.1555,-44.4432 -73.1579,-44.4286 -73.1544,-44.4162 -73.1346,-44.3771 -73.1246,-44.3668 -73.1118,-44.3624 -73.0908,-44.3574 -72.9847,-44.3323 -72.8956,-44.3167 -72.8844,-44.3191 -72.7655,-44.389 -72.6862,-44.4087 -72.6672,-44.4196 -72.6234,-44.4731 -72.6163,-44.4844 -72.6192,-44.4961 -72.6965,-44.5768 -72.7054,-44.5842 -72.7169,-44.5899 -72.7356,-44.5926 -72.7986,-44.588 -72.8098,-44.5821 -72.8234,-44.5711 -72.8763,-44.5571 -72.8746,-44.5707 -72.8653,-44.5813 -72.8049,-44.6111 -72.7743,-44.6181 -72.7347,-44.6238 -72.7261,-44.6397 -72.7402,-44.6611 -72.7556,-44.6783 -72.768,-44.687 -72.768,-44.687 19,-3.0,Chile -74.2973,-44.5002 -74.4085,-44.4814 -74.426,-44.4694 -74.4317,-44.4601 -74.4444,-44.4265 -74.4379,-44.4119 -74.4159,-44.395 -74.4022,-44.388 -74.2108,-44.3463 -74.1607,-44.3583 -74.126,-44.3995 -74.1146,-44.415 -74.1154,-44.4254 -74.1391,-44.4315 -74.2275,-44.4478 -74.2951,-44.4583 -74.3079,-44.462 -74.2973,-44.5002 -74.2973,-44.5002 21,-3.0,Chile -73.9413,-44.5075 -73.9656,-44.5033 -73.9973,-44.4966 -74.0166,-44.489 -74.0253,-44.4819 -74.0303,-44.4688 -74.0253,-44.3977 -73.9216,-44.4086 -73.8957,-44.4117 -73.8755,-44.4186 -73.8644,-44.4248 -73.8541,-44.4345 -73.8473,-44.4462 -73.8416,-44.4619 -73.8396,-44.4798 -73.8436,-44.4952 -73.8574,-44.5024 -73.874,-44.5033 -73.9159,-44.506 -73.9413,-44.5075 -73.9413,-44.5075 14,-3.0,Chile -74.2214,-44.531 -74.2299,-44.5296 -74.2411,-44.5225 -74.2556,-44.5086 -74.2634,-44.4975 -74.2643,-44.4854 -74.2583,-44.476 -74.1883,-44.4523 -74.0883,-44.446 -74.0352,-44.4998 -74.0855,-44.5098 -74.1912,-44.5263 -74.2214,-44.531 -74.2214,-44.531 17,-3.0,Chile -73.6419,-44.6927 -73.6551,-44.6921 -73.7185,-44.6293 -73.7221,-44.534 -73.7175,-44.5185 -73.7027,-44.5088 -73.606,-44.492 -73.589,-44.4928 -73.572,-44.4989 -73.5559,-44.5098 -73.5247,-44.5676 -73.4862,-44.6505 -73.488,-44.6612 -73.4988,-44.6668 -73.6077,-44.6908 -73.6419,-44.6927 -73.6419,-44.6927 19,-3.0,Chile -74.681,-44.6369 -74.6902,-44.633 -74.7107,-44.6103 -74.7148,-44.6004 -74.72,-44.5776 -74.7204,-44.559 -74.7185,-44.52 -74.7114,-44.5071 -74.7021,-44.4995 -74.6872,-44.4995 -74.6338,-44.5225 -74.6247,-44.5332 -74.6211,-44.5471 -74.6229,-44.5606 -74.6369,-44.6211 -74.6602,-44.632 -74.6721,-44.6365 -74.681,-44.6369 -74.681,-44.6369 29,-3.0,Chile -74.1587,-44.7565 -74.1769,-44.7544 -74.2042,-44.7476 -74.2227,-44.7397 -74.2332,-44.7333 -74.2477,-44.7228 -74.2699,-44.7026 -74.3091,-44.6414 -74.3098,-44.6287 -74.3067,-44.5862 -74.2947,-44.5775 -74.1588,-44.5518 -74.1434,-44.5496 -74.0821,-44.5502 -74.0552,-44.5504 -73.8961,-44.5566 -73.8627,-44.5649 -73.8494,-44.5693 -73.8253,-44.5807 -73.8158,-44.5871 -73.8025,-44.5983 -73.7908,-44.6107 -73.7764,-44.6275 -73.7705,-44.6424 -73.912,-44.6703 -74.0809,-44.7239 -74.1053,-44.7335 -74.1587,-44.7565 -74.1587,-44.7565 16,-3.0,Chile -74.3621,-44.6487 -74.4,-44.6469 -74.5241,-44.6474 -74.5694,-44.6307 -74.5687,-44.6178 -74.5631,-44.6078 -74.5229,-44.5776 -74.5079,-44.5711 -74.4877,-44.5687 -74.4737,-44.5693 -74.4483,-44.5728 -74.373,-44.585 -74.3568,-44.5912 -74.3492,-44.6391 -74.3621,-44.6487 -74.3621,-44.6487 14,-3.0,Chile -74.2806,-44.809 -74.2989,-44.8071 -74.3605,-44.779 -74.4221,-44.7096 -74.4235,-44.6953 -74.413,-44.6831 -74.4019,-44.6776 -74.3422,-44.6637 -74.3227,-44.6706 -74.2086,-44.7865 -74.209,-44.7969 -74.2724,-44.8084 -74.2806,-44.809 -74.2806,-44.809 15,-3.0,Chile -73.5885,-44.7859 -73.6241,-44.7706 -73.6425,-44.7597 -73.6501,-44.7193 -73.6431,-44.7055 -73.5307,-44.6847 -73.517,-44.6845 -73.5034,-44.6924 -73.5001,-44.7032 -73.5153,-44.7773 -73.5328,-44.7905 -73.5519,-44.7935 -73.5775,-44.7905 -73.5885,-44.7859 -73.5885,-44.7859 24,-3.0,Chile -73.7405,-44.9061 -73.7688,-44.8869 -73.7785,-44.88 -73.8101,-44.8541 -73.8204,-44.841 -73.8262,-44.832 -73.833,-44.7579 -73.8265,-44.7423 -73.8115,-44.7293 -73.7964,-44.7225 -73.7818,-44.72 -73.7604,-44.7191 -73.7395,-44.7257 -73.7299,-44.7358 -73.6665,-44.8511 -73.6617,-44.8813 -73.6673,-44.8949 -73.6742,-44.9043 -73.6899,-44.9139 -73.7097,-44.916 -73.7221,-44.914 -73.735,-44.9093 -73.7405,-44.9061 -73.7405,-44.9061 20,-3.0,Chile -73.9378,-44.8077 -73.9631,-44.8064 -74.0665,-44.7763 -74.0804,-44.7649 -74.0621,-44.756 -74.022,-44.752 -74.006,-44.7502 -73.9758,-44.7457 -73.9616,-44.7423 -73.9374,-44.7325 -73.9199,-44.7241 -73.9017,-44.7205 -73.8615,-44.7275 -73.8529,-44.7399 -73.8596,-44.7792 -73.8706,-44.7885 -73.8829,-44.7938 -73.9186,-44.8049 -73.9378,-44.8077 -73.9378,-44.8077 16,-3.0,Chile -74.9801,-44.8761 -74.9896,-44.8755 -75.0047,-44.8685 -75.0381,-44.7988 -75.0425,-44.789 -75.0446,-44.7777 -75.042,-44.7646 -75.0316,-44.751 -75.0099,-44.73 -74.987,-44.7256 -74.9717,-44.7325 -74.9178,-44.7969 -74.9178,-44.8431 -74.9641,-44.8745 -74.9801,-44.8761 -74.9801,-44.8761 24,-3.0,Chile -74.1732,-44.9796 -74.183,-44.9788 -74.2562,-44.965 -74.2613,-44.9562 -74.2473,-44.9304 -74.0967,-44.8269 -74.0822,-44.8193 -74.0643,-44.8155 -74.0461,-44.8161 -73.8661,-44.8496 -73.8531,-44.858 -73.815,-44.8924 -73.8083,-44.9043 -73.8194,-44.9129 -73.855,-44.9283 -73.8763,-44.9331 -73.938,-44.9458 -73.9546,-44.9464 -74.0345,-44.9461 -74.0858,-44.9434 -74.104,-44.9471 -74.1162,-44.9518 -74.1732,-44.9796 -74.1732,-44.9796 47,-3.0,Chile -73.628,-45.2328 -73.6891,-45.2188 -73.7262,-45.1877 -73.7682,-45.1868 -73.8248,-45.1971 -73.8426,-45.1974 -73.8811,-45.1954 -73.8946,-45.1905 -73.9059,-45.1845 -73.9159,-45.1714 -74.0062,-45.0974 -74.0369,-45.1093 -74.1045,-45.1202 -74.1207,-45.118 -74.1306,-45.111 -74.1367,-45.0864 -74.143,-45.0545 -74.1417,-45.0445 -74.135,-45.0239 -74.1205,-45.0103 -74.0863,-44.9857 -74.0727,-44.9778 -74.0536,-44.9747 -74.0308,-44.9756 -74.0212,-44.9795 -74.003,-44.984 -73.9574,-44.981 -73.8796,-44.9709 -73.8577,-44.9665 -73.845,-44.9613 -73.8199,-44.9498 -73.808,-44.9431 -73.7928,-44.941 -73.7713,-44.9431 -73.7533,-44.9478 -73.7428,-44.9513 -73.6821,-44.9848 -73.6724,-44.9919 -73.6637,-44.9992 -73.6555,-45.0073 -73.6157,-45.0534 -73.6001,-45.0825 -73.5984,-45.0944 -73.5991,-45.1072 -73.6017,-45.1348 -73.628,-45.2328 -73.628,-45.2328 16,-3.0,Chile -74.2322,-45.2465 -74.2837,-45.217 -74.2992,-45.2073 -74.308,-45.1997 -74.3159,-45.1884 -74.3144,-45.1732 -74.3008,-45.1205 -74.2881,-45.1029 -74.2618,-45.1018 -74.2489,-45.1068 -74.168,-45.1603 -74.1982,-45.2481 -74.2089,-45.2542 -74.2212,-45.2525 -74.2322,-45.2465 -74.2322,-45.2465 14,13.0,New Zealand 166.7379,-45.1151 166.7383,-45.1378 166.7544,-45.1797 166.7748,-45.193 166.7962,-45.2487 166.7717,-45.2594 166.7566,-45.2585 166.6891,-45.2269 166.6795,-45.2198 166.6575,-45.1944 166.6731,-45.16 166.7255,-45.104 166.7379,-45.1151 166.7379,-45.1151 32,-3.0,Chile -73.8966,-45.3054 -73.91,-45.3041 -74.0292,-45.2716 -74.0398,-45.2621 -74.0621,-45.1989 -74.0395,-45.1779 -73.9784,-45.1593 -73.963,-45.1581 -73.9492,-45.1625 -73.9401,-45.17 -73.9329,-45.1847 -73.9277,-45.1974 -73.9189,-45.2048 -73.9066,-45.2106 -73.8904,-45.2137 -73.8728,-45.2156 -73.8358,-45.2164 -73.8184,-45.2161 -73.7828,-45.2112 -73.7547,-45.2086 -73.7278,-45.2112 -73.7141,-45.2164 -73.7041,-45.2231 -73.6906,-45.2401 -73.6811,-45.26 -73.6786,-45.2787 -73.6891,-45.2944 -73.6985,-45.2978 -73.7715,-45.2979 -73.858,-45.3003 -73.8966,-45.3054 -73.8966,-45.3054 23,-3.0,Chile -74.2832,-45.3457 -74.3779,-45.3065 -74.3885,-45.3005 -74.4028,-45.2898 -74.4216,-45.2721 -74.4257,-45.262 -74.4182,-45.248 -74.4045,-45.2386 -74.3846,-45.2331 -74.3685,-45.2312 -74.3509,-45.2306 -74.306,-45.2308 -74.2864,-45.235 -74.2728,-45.2431 -74.2561,-45.2586 -74.2442,-45.2737 -74.2062,-45.3407 -74.2168,-45.3483 -74.2334,-45.3534 -74.253,-45.356 -74.2786,-45.3507 -74.2832,-45.3457 -74.2832,-45.3457 16,-3.0,Chile -73.8166,-45.3823 -73.8876,-45.3671 -73.9141,-45.3609 -73.9201,-45.3514 -73.9142,-45.3381 -73.9004,-45.3306 -73.8551,-45.3194 -73.8349,-45.3175 -73.7331,-45.3188 -73.7208,-45.3237 -73.7178,-45.338 -73.7199,-45.3565 -73.7896,-45.3813 -73.8013,-45.383 -73.8166,-45.3823 -73.8166,-45.3823 55,-3.0,Chile -74.0351,-45.5275 -74.0404,-45.5206 -74.039,-45.5093 -74.0368,-45.4988 -74.0339,-45.4828 -74.0291,-45.4674 -74.0203,-45.4598 -74.006,-45.4517 -74.0051,-45.4304 -73.9969,-45.4169 -73.983,-45.4039 -73.9731,-45.3907 -73.9681,-45.3801 -73.956,-45.3711 -73.9418,-45.3695 -73.9274,-45.3761 -73.9137,-45.3812 -73.8954,-45.3826 -73.8728,-45.3825 -73.8615,-45.3852 -73.8502,-45.3912 -73.8413,-45.3988 -73.8139,-45.408 -73.8005,-45.416 -73.7873,-45.4209 -73.7729,-45.4183 -73.7485,-45.4049 -73.7318,-45.4001 -73.7161,-45.4085 -73.7122,-45.4239 -73.7192,-45.4439 -73.7301,-45.4613 -73.737,-45.4744 -73.7449,-45.4829 -73.7549,-45.4954 -73.7609,-45.5151 -73.7741,-45.5175 -73.7942,-45.5078 -73.804,-45.5069 -73.8193,-45.5033 -73.8295,-45.4934 -73.8373,-45.4853 -73.8576,-45.4811 -73.8768,-45.4805 -73.8951,-45.4752 -73.9086,-45.4706 -73.9417,-45.4655 -73.9524,-45.4678 -73.968,-45.4773 -73.9905,-45.4817 -74.006,-45.4932 -74.0162,-45.5122 -74.0257,-45.5237 -74.0351,-45.5275 -74.0351,-45.5275 22,-3.0,Chile -73.5489,-45.7089 -73.5577,-45.7076 -73.5748,-45.7003 -73.6783,-45.6182 -73.6834,-45.5122 -73.6839,-45.4965 -73.681,-45.48 -73.6757,-45.4691 -73.6657,-45.4553 -73.6115,-45.399 -73.6004,-45.3926 -73.5798,-45.3903 -73.5623,-45.3911 -73.4891,-45.4077 -73.4785,-45.4191 -73.4758,-45.454 -73.5085,-45.6448 -73.5151,-45.6616 -73.5312,-45.6968 -73.5418,-45.7069 -73.5489,-45.7089 -73.5489,-45.7089 33,-3.0,Chile -74.3537,-45.7267 -74.3689,-45.7227 -74.3802,-45.7095 -74.3908,-45.6909 -74.3933,-45.6775 -74.3847,-45.6653 -74.362,-45.6469 -74.3447,-45.629 -74.3443,-45.5907 -74.3538,-45.5482 -74.3635,-45.5163 -74.3641,-45.5005 -74.3619,-45.487 -74.3571,-45.4684 -74.3526,-45.4573 -74.3421,-45.4355 -74.3291,-45.4164 -74.3125,-45.3981 -74.2902,-45.3919 -74.198,-45.4234 -74.1813,-45.4328 -74.1708,-45.4421 -74.1566,-45.4623 -74.1506,-45.4717 -74.1409,-45.4915 -74.1175,-45.5432 -74.1057,-45.5839 -74.1243,-45.6208 -74.1323,-45.6296 -74.2871,-45.7142 -74.2985,-45.7197 -74.3537,-45.7267 -74.3537,-45.7267 18,-3.0,Chile -73.8827,-45.6726 -73.8918,-45.6725 -73.9441,-45.6656 -73.957,-45.6571 -73.9882,-45.6015 -74.0072,-45.5649 -74.008,-45.5444 -73.9581,-45.5009 -73.9249,-45.4865 -73.9081,-45.4855 -73.8596,-45.5032 -73.8131,-45.5364 -73.7929,-45.5657 -73.7925,-45.5813 -73.8009,-45.6121 -73.8207,-45.6501 -73.8827,-45.6726 -73.8827,-45.6726 25,-3.0,Chile -74.5963,-45.6798 -74.5986,-45.6683 -74.5992,-45.6497 -74.5958,-45.6376 -74.5837,-45.6024 -74.5775,-45.5849 -74.5713,-45.5746 -74.564,-45.5656 -74.551,-45.5538 -74.54,-45.5479 -74.5275,-45.5429 -74.4716,-45.5238 -74.4475,-45.5244 -74.4365,-45.5308 -74.4322,-45.5408 -74.4455,-45.636 -74.4754,-45.6883 -74.4886,-45.6965 -74.5002,-45.7019 -74.5197,-45.7045 -74.5329,-45.7033 -74.5838,-45.6949 -74.5937,-45.6881 -74.5963,-45.6798 -74.5963,-45.6798 19,13.0,New Zealand 166.5022,-45.5855 166.5076,-45.5959 166.5141,-45.61 166.5177,-45.625 166.5192,-45.6498 166.515,-45.6713 166.5069,-45.6795 166.4821,-45.6894 166.4185,-45.6937 166.2707,-45.6706 166.2743,-45.6598 166.2929,-45.6346 166.3319,-45.5915 166.343,-45.586 166.3829,-45.5754 166.4815,-45.5639 166.4943,-45.5722 166.5022,-45.5855 166.5022,-45.5855 16,-3.0,Chile -73.9185,-45.8662 -73.9652,-45.7892 -73.9888,-45.7596 -74.0006,-45.7345 -73.9895,-45.7168 -73.9809,-45.709 -73.9443,-45.6872 -73.9299,-45.6845 -73.8613,-45.7017 -73.8583,-45.7356 -73.8617,-45.8093 -73.8662,-45.8244 -73.8801,-45.8497 -73.9105,-45.8652 -73.9185,-45.8662 -73.9185,-45.8662 24,-3.0,Chile -73.8044,-45.9364 -73.8157,-45.9336 -73.8244,-45.9234 -73.8399,-45.8915 -73.8412,-45.8759 -73.8325,-45.8605 -73.8258,-45.8514 -73.7982,-45.8211 -73.7827,-45.8077 -73.6371,-45.747 -73.6228,-45.7489 -73.6102,-45.7643 -73.605,-45.7744 -73.6002,-45.7904 -73.5962,-45.8414 -73.6116,-45.8339 -73.6208,-45.8267 -73.6369,-45.8239 -73.6793,-45.8268 -73.6991,-45.8329 -73.7175,-45.8799 -73.7493,-45.9231 -73.8044,-45.9364 -73.8044,-45.9364 39,-3.0,Chile -74.9655,-46.0446 -74.9769,-46.0358 -74.9837,-46.024 -74.9951,-45.9923 -74.9897,-45.9819 -74.9783,-45.9761 -74.8603,-45.9528 -74.846,-45.9571 -74.8536,-45.9357 -74.8786,-45.9313 -74.9059,-45.9385 -74.9423,-45.9409 -74.9587,-45.9378 -74.9675,-45.9234 -75.0041,-45.8334 -74.9982,-45.8236 -74.982,-45.8145 -74.96,-45.8102 -74.869,-45.8357 -74.8557,-45.8406 -74.8386,-45.8498 -74.7771,-45.8257 -74.692,-45.771 -74.6401,-45.7536 -74.6171,-45.7511 -74.6063,-45.7677 -74.6064,-45.7838 -74.6103,-45.7994 -74.6566,-45.9379 -74.6629,-45.9477 -74.671,-45.9565 -74.6977,-45.9798 -74.8046,-46.0516 -74.8206,-46.0578 -74.8914,-46.0614 -74.9155,-46.0594 -74.9511,-46.0513 -74.9655,-46.0446 -74.9655,-46.0446 13,-3.0,Chile -73.5847,-45.9775 -73.5944,-45.9767 -73.6914,-45.9579 -73.7156,-45.9451 -73.7232,-45.9321 -73.7218,-45.9184 -73.674,-45.8526 -73.6602,-45.8453 -73.6492,-45.8426 -73.6046,-45.8729 -73.5753,-45.9719 -73.5847,-45.9775 -73.5847,-45.9775 20,-3.0,Chile -73.6685,-46.159 -73.7011,-46.1378 -73.7107,-46.1308 -73.8306,-46.0189 -73.8293,-46.0023 -73.8164,-45.9754 -73.8049,-45.9658 -73.791,-45.9623 -73.7437,-45.9613 -73.725,-45.9627 -73.6358,-45.9901 -73.5931,-46.0128 -73.5793,-46.0239 -73.574,-46.0411 -73.5807,-46.0591 -73.6349,-46.1342 -73.6489,-46.1525 -73.6608,-46.1582 -73.6685,-46.159 -73.6685,-46.159 61,13.0,New Zealand 167.7734,-46.6771 167.8159,-46.7381 167.8567,-46.7655 167.944,-46.8127 167.9527,-46.8514 167.9338,-46.8564 167.9202,-46.856 167.8092,-46.8818 167.986,-46.9178 168.0198,-46.9493 168.003,-46.99 167.9779,-47.0186 167.9165,-47.0608 167.9049,-47.0596 167.8743,-47.0519 167.8623,-47.0527 167.8134,-47.0561 167.8028,-47.0576 167.7617,-47.0704 167.717,-47.0993 167.6649,-47.1326 167.6516,-47.1368 167.6395,-47.1355 167.5433,-47.1134 167.5386,-47.1033 167.5301,-47.0867 167.4852,-47.1007 167.454,-47.1181 167.3807,-47.1692 167.3977,-47.1726 167.4086,-47.1712 167.4499,-47.1629 167.4801,-47.1585 167.4718,-47.1884 167.4615,-47.1951 167.439,-47.207 167.3663,-47.2199 167.2973,-47.2252 167.2832,-47.2222 167.2795,-47.2115 167.2829,-47.1752 167.291,-47.1469 167.3044,-47.1331 167.3853,-47.0583 167.5016,-46.9485 167.5576,-46.8855 167.5705,-46.8663 167.5747,-46.85 167.573,-46.8378 167.5636,-46.8091 167.5544,-46.793 167.5406,-46.7799 167.528,-46.77 167.518,-46.7547 167.5193,-46.7026 167.5348,-46.6493 167.5604,-46.6347 167.6837,-46.6286 167.7602,-46.6644 167.7734,-46.6771 167.7734,-46.6771 26,2.0,South Africa 37.7663,-46.9158 37.7367,-46.9046 37.7145,-46.9041 37.661,-46.9059 37.6443,-46.9079 37.5891,-46.9062 37.5715,-46.9035 37.5557,-46.9 37.5432,-46.8944 37.5323,-46.885 37.5237,-46.871 37.5228,-46.859 37.5262,-46.8487 37.5983,-46.7792 37.6173,-46.7718 37.6469,-46.7699 37.6567,-46.7705 37.7238,-46.7778 37.7574,-46.7869 37.7767,-46.7955 37.7959,-46.8063 37.8383,-46.8464 37.795,-46.9051 37.7785,-46.9145 37.7663,-46.9158 37.7663,-46.9158 19,-3.0,Chile -74.0651,-47.1203 -74.0775,-47.1147 -74.1215,-47.0757 -74.1233,-47.0627 -74.1215,-47.0492 -74.1053,-47.0164 -74.0892,-46.9844 -74.0802,-46.9733 -74.0694,-46.967 -74.0579,-46.9645 -73.9275,-46.9696 -73.871,-46.9995 -73.9527,-47.0791 -73.9745,-47.095 -73.9859,-47.101 -73.9981,-47.1062 -74.0485,-47.1182 -74.0651,-47.1203 -74.0651,-47.1203 18,-3.0,Chile -74.3588,-47.1063 -74.383,-47.0719 -74.3829,-47.0368 -74.3752,-47.0279 -74.315,-47.0047 -74.3001,-47.0011 -74.2665,-46.9984 -74.2362,-47.0003 -74.2148,-47.0039 -74.2061,-47.0116 -74.2092,-47.0264 -74.2179,-47.046 -74.2264,-47.0544 -74.3371,-47.1169 -74.3529,-47.1234 -74.3613,-47.1125 -74.3588,-47.1063 -74.3588,-47.1063 16,-3.0,Chile -74.8893,-47.7318 -74.8974,-47.7313 -74.9368,-47.7087 -74.945,-47.7006 -74.9687,-47.6423 -74.958,-47.6358 -74.9349,-47.6354 -74.8532,-47.6476 -74.8435,-47.6516 -74.8248,-47.6666 -74.8029,-47.6921 -74.7969,-47.704 -74.8075,-47.7176 -74.8467,-47.7282 -74.8893,-47.7318 -74.8893,-47.7318 23,-3.0,Chile -75.0746,-47.783 -75.0703,-47.7657 -75.0727,-47.7549 -75.0821,-47.7472 -75.1246,-47.7361 -75.1429,-47.7336 -75.1632,-47.7322 -75.1804,-47.7288 -75.1924,-47.7172 -75.1551,-47.6898 -75.0311,-47.6435 -75.014,-47.6489 -74.9836,-47.6766 -74.9707,-47.6947 -74.9527,-47.7346 -74.9578,-47.7499 -74.9725,-47.7669 -74.9814,-47.7743 -74.9945,-47.7831 -75.0235,-47.7938 -75.0927,-47.8029 -75.0746,-47.783 -75.0746,-47.783 38,-3.0,Chile -74.2102,-47.9288 -74.2478,-47.9153 -74.3554,-47.8862 -74.3702,-47.8814 -74.3894,-47.8703 -74.39,-47.8589 -74.3093,-47.7986 -74.2991,-47.7915 -74.2807,-47.7839 -74.1862,-47.7499 -74.1666,-47.7464 -73.9414,-47.7971 -73.8212,-47.83 -73.7944,-47.8324 -73.7795,-47.829 -73.763,-47.8196 -73.7495,-47.8113 -73.7368,-47.8063 -73.7268,-47.807 -73.7138,-47.8124 -73.698,-47.8255 -73.6939,-47.8362 -73.6998,-47.8503 -73.7184,-47.8881 -73.7368,-47.8964 -73.7694,-47.9042 -73.7832,-47.905 -73.8201,-47.9059 -73.9276,-47.9056 -73.9471,-47.9036 -73.97,-47.8976 -73.9837,-47.8926 -74.0054,-47.8897 -74.019,-47.8909 -74.1803,-47.9221 -74.1954,-47.9255 -74.2102,-47.9288 -74.2102,-47.9288 36,-3.0,Chile -74.7792,-48.015 -74.793,-48.0145 -74.8468,-48.0034 -74.9077,-47.9851 -74.9213,-47.9802 -74.9288,-47.9682 -74.9145,-47.9483 -74.9353,-47.9367 -74.9619,-47.9328 -74.988,-47.9342 -75.0077,-47.9423 -75.0302,-47.9601 -75.0473,-47.9776 -75.0618,-47.981 -75.0863,-47.9843 -75.1212,-47.9869 -75.1424,-47.9841 -75.1561,-47.9749 -75.0991,-47.9191 -75.0711,-47.9035 -75.0586,-47.8978 -74.9908,-47.8844 -74.9592,-47.8793 -74.9393,-47.8798 -74.8492,-47.8386 -74.7806,-47.7727 -74.7226,-47.7531 -74.7077,-47.7601 -74.7,-47.7939 -74.6985,-47.8057 -74.6974,-47.8432 -74.6993,-47.9834 -74.7518,-48.0102 -74.7615,-48.0141 -74.7792,-48.015 -74.7792,-48.015 56,-3.0,Chile -75.0914,-48.6437 -75.1036,-48.6491 -75.1275,-48.6539 -75.1727,-48.5822 -75.1879,-48.534 -75.2099,-48.439 -75.2072,-48.4231 -75.1858,-48.3811 -75.2869,-48.3408 -75.3374,-48.3582 -75.3509,-48.3626 -75.3657,-48.3658 -75.3891,-48.3697 -75.408,-48.3701 -75.4214,-48.3677 -75.4405,-48.3591 -75.4472,-48.3504 -75.4495,-48.3391 -75.4448,-48.3275 -75.4254,-48.3164 -75.4072,-48.3076 -75.3791,-48.3001 -75.3431,-48.2984 -75.3181,-48.2957 -75.3027,-48.2926 -75.283,-48.2857 -75.267,-48.2757 -75.2503,-48.2586 -75.2378,-48.2425 -75.2516,-48.2398 -75.298,-48.2582 -75.4299,-48.2688 -75.441,-48.2574 -75.4778,-48.0402 -75.4714,-48.029 -75.4299,-47.9938 -75.4013,-47.9787 -75.2561,-47.9516 -75.2389,-47.9537 -75.2271,-47.9634 -75.166,-48.0926 -75.1591,-48.1098 -75.1519,-48.1682 -75.1305,-48.215 -75.1158,-48.2449 -75.0921,-48.289 -75.08,-48.2979 -75.0632,-48.3109 -75.0265,-48.3539 -74.9746,-48.4525 -74.9633,-48.5388 -74.9702,-48.5573 -74.9788,-48.5659 -75.0811,-48.6369 -75.0914,-48.6437 -75.0914,-48.6437 25,-3.0,Chile -74.9164,-48.3889 -74.9306,-48.3884 -74.944,-48.3838 -75.0861,-48.1737 -75.1483,-48.0463 -75.1451,-48.0169 -75.111,-48.0148 -75.0462,-48.024 -74.9301,-48.0429 -74.9027,-48.053 -74.8907,-48.0595 -74.8192,-48.0987 -74.7068,-48.1181 -74.6956,-48.1272 -74.6937,-48.1442 -74.697,-48.1647 -74.7302,-48.3086 -74.7386,-48.3174 -74.7533,-48.3208 -74.7812,-48.3196 -74.833,-48.3428 -74.8567,-48.3546 -74.8846,-48.3701 -74.9164,-48.3889 -74.9164,-48.3889 18,-3.0,Chile -74.4174,-48.2845 -74.4267,-48.2802 -74.4885,-48.1912 -74.4913,-48.1801 -74.493,-48.162 -74.4941,-48.137 -74.4927,-48.0994 -74.4587,-48.0658 -74.4419,-48.0658 -74.4218,-48.0768 -74.4009,-48.0903 -74.3904,-48.0973 -74.2827,-48.1706 -74.2589,-48.2028 -74.2998,-48.2426 -74.3109,-48.249 -74.4174,-48.2845 -74.4174,-48.2845 69,-3.0,Chile -74.5007,-48.645 -74.5141,-48.6361 -74.6361,-48.5781 -74.6539,-48.5782 -74.6706,-48.5839 -74.6856,-48.5866 -74.7046,-48.5871 -74.8212,-48.571 -74.8862,-48.5463 -74.8999,-48.5381 -74.9055,-48.5286 -74.9222,-48.4552 -74.9178,-48.4365 -74.909,-48.4246 -74.9003,-48.4163 -74.829,-48.3626 -74.8133,-48.3565 -74.7475,-48.3513 -74.7354,-48.3533 -74.7272,-48.367 -74.7062,-48.3901 -74.7021,-48.4035 -74.694,-48.4151 -74.6498,-48.4395 -74.6019,-48.4006 -74.5994,-48.39 -74.6115,-48.3775 -74.6217,-48.3734 -74.6508,-48.3691 -74.6852,-48.3257 -74.693,-48.3137 -74.7045,-48.2759 -74.7047,-48.2636 -74.7028,-48.2499 -74.6603,-48.1016 -74.6509,-48.0862 -74.6435,-48.0773 -74.6306,-48.0686 -74.6188,-48.0729 -74.5999,-48.0908 -74.5929,-48.0996 -74.5886,-48.1162 -74.5882,-48.1352 -74.5828,-48.1741 -74.5707,-48.2441 -74.4796,-48.3531 -74.4999,-48.4002 -74.4995,-48.4577 -74.4949,-48.5028 -74.4882,-48.5196 -74.4388,-48.564 -74.4244,-48.5661 -74.4152,-48.5584 -74.4154,-48.5484 -74.4209,-48.5386 -74.4204,-48.5269 -74.4082,-48.5231 -74.3973,-48.5265 -74.3857,-48.5326 -74.3763,-48.5398 -74.3737,-48.5545 -74.3817,-48.5822 -74.3882,-48.6 -74.3964,-48.6085 -74.4078,-48.615 -74.4587,-48.6361 -74.477,-48.6407 -74.5007,-48.645 -74.5007,-48.645 28,-3.0,Chile -74.1649,-48.4119 -74.179,-48.398 -74.1894,-48.3916 -74.2083,-48.3825 -74.278,-48.3513 -74.2992,-48.3436 -74.35,-48.3307 -74.364,-48.3231 -74.3788,-48.309 -74.3833,-48.2985 -74.2541,-48.2331 -74.2373,-48.2275 -74.2241,-48.2266 -74.2024,-48.2302 -74.1881,-48.241 -74.189,-48.2573 -74.2029,-48.2859 -74.2036,-48.2984 -74.1912,-48.3138 -74.1627,-48.3431 -74.1436,-48.3579 -74.1227,-48.3686 -74.1088,-48.3782 -74.1134,-48.3921 -74.1248,-48.3984 -74.1527,-48.4104 -74.1649,-48.4119 -74.1649,-48.4119 18,-3.0,Chile -74.0055,-48.3419 -73.967,-48.3599 -73.9553,-48.3661 -73.9451,-48.3762 -73.9412,-48.3871 -73.9583,-48.4355 -73.9666,-48.4354 -73.9877,-48.4264 -74.0723,-48.3873 -74.1327,-48.3463 -74.1416,-48.3304 -74.135,-48.3161 -74.1149,-48.3114 -74.0963,-48.3106 -74.086,-48.3112 -74.064,-48.315 -74.0055,-48.3419 -74.0055,-48.3419 21,-3.0,Chile -74.3265,-48.4697 -74.3463,-48.4363 -74.3897,-48.3844 -74.3969,-48.3758 -74.4017,-48.3658 -74.4033,-48.3551 -74.386,-48.3427 -74.37,-48.3434 -74.3437,-48.351 -74.2693,-48.3793 -74.2189,-48.4022 -74.2014,-48.4116 -74.1934,-48.4228 -74.1946,-48.4341 -74.2083,-48.4422 -74.2282,-48.4496 -74.2823,-48.4678 -74.3076,-48.4747 -74.3196,-48.4732 -74.3265,-48.4697 -74.3265,-48.4697 39,-3.0,Chile -75.4943,-48.6329 -75.4797,-48.6196 -75.4685,-48.6091 -75.4375,-48.6134 -75.4101,-48.6077 -75.394,-48.6055 -75.3676,-48.5962 -75.3563,-48.5902 -75.3371,-48.5747 -75.3312,-48.5607 -75.3408,-48.5548 -75.3591,-48.5661 -75.3761,-48.5761 -75.389,-48.5809 -75.41,-48.5835 -75.424,-48.5835 -75.4925,-48.5783 -75.5073,-48.5734 -75.5396,-48.5626 -75.5596,-48.5325 -75.5406,-48.4263 -75.5114,-48.3908 -75.492,-48.3873 -75.2792,-48.3737 -75.2307,-48.38 -75.2248,-48.3947 -75.2053,-48.5356 -75.2104,-48.5464 -75.2565,-48.5745 -75.2792,-48.5868 -75.3427,-48.6197 -75.3728,-48.634 -75.3865,-48.6383 -75.4015,-48.6419 -75.4316,-48.6441 -75.4674,-48.6422 -75.4871,-48.637 -75.4943,-48.6329 -75.4943,-48.6329 24,-3.0,Chile -75.5023,-48.7409 -75.5117,-48.7397 -75.5237,-48.7361 -75.5387,-48.7246 -75.5442,-48.7102 -75.5374,-48.6495 -75.5137,-48.6475 -75.4685,-48.6608 -75.423,-48.6679 -75.4034,-48.6699 -75.3872,-48.6676 -75.3759,-48.6614 -75.3165,-48.6252 -75.2382,-48.5796 -75.1914,-48.6013 -75.1821,-48.6183 -75.1776,-48.6284 -75.1734,-48.6392 -75.1715,-48.6536 -75.1912,-48.6734 -75.208,-48.6825 -75.3812,-48.7248 -75.5023,-48.7409 -75.5023,-48.7409 17,-3.0,Chile -75.0194,-48.7782 -75.0265,-48.7757 -75.1347,-48.7291 -75.1376,-48.7139 -75.0771,-48.6618 -74.9723,-48.5817 -74.959,-48.5801 -74.9522,-48.5919 -74.9485,-48.6025 -74.9444,-48.6197 -74.9452,-48.6326 -74.9471,-48.6465 -74.9732,-48.7196 -74.9977,-48.7647 -75.0078,-48.7757 -75.0194,-48.7782 -75.0194,-48.7782 15,-3.0,Chile -74.8965,-48.6882 -74.9203,-48.6868 -74.9338,-48.6796 -74.9349,-48.6668 -74.8991,-48.6086 -74.8823,-48.5928 -74.7976,-48.5933 -74.7477,-48.5978 -74.7179,-48.6075 -74.8093,-48.6659 -74.8265,-48.6751 -74.8394,-48.68 -74.8701,-48.6862 -74.8965,-48.6882 -74.8965,-48.6882 121,-3.0,Chile -74.5007,-48.645 -74.4325,-48.6559 -74.4148,-48.697 -74.3904,-48.8461 -74.3665,-48.8899 -74.3621,-48.9108 -74.3695,-49.0356 -74.3381,-49.1432 -74.3334,-49.1649 -74.3339,-49.2497 -74.3603,-49.3713 -74.379,-49.4176 -74.4027,-49.4444 -74.4118,-49.4827 -74.3887,-49.5277 -74.4381,-49.5631 -74.4871,-49.632 -74.4846,-49.661 -74.4185,-49.6172 -74.4228,-49.5978 -74.4201,-49.5769 -74.3576,-49.5681 -74.3333,-49.5866 -74.3097,-49.6188 -74.3038,-49.6818 -74.3548,-49.8744 -74.368,-49.8907 -74.4316,-49.9404 -74.5161,-49.9895 -74.5474,-49.9957 -74.6505,-49.9975 -74.6625,-49.9959 -74.7384,-49.9687 -74.7585,-49.9526 -74.7307,-49.9173 -74.7002,-49.8986 -74.6371,-49.8716 -74.6118,-49.8644 -74.5898,-49.8738 -74.5558,-49.8895 -74.6033,-49.8475 -74.6299,-49.8438 -74.6583,-49.852 -74.7404,-49.8959 -74.7747,-49.9002 -74.7999,-49.8717 -74.794,-49.8243 -74.7739,-49.7309 -74.8089,-49.6288 -74.7742,-49.4801 -74.7328,-49.4519 -74.674,-49.4209 -74.5457,-49.3037 -74.5849,-49.3129 -74.6457,-49.3665 -74.7563,-49.4513 -74.8368,-49.4862 -74.8518,-49.4655 -74.8597,-49.425 -74.8952,-49.4541 -74.8985,-49.4811 -74.8975,-49.5324 -74.8954,-49.5711 -74.8787,-49.5967 -74.8534,-49.6196 -74.8751,-49.7516 -74.9059,-49.842 -74.9397,-49.837 -75.0328,-49.7916 -75.105,-49.6972 -75.1857,-49.5759 -75.1618,-49.517 -75.1813,-49.4467 -75.2159,-49.4057 -75.2578,-49.3774 -75.2925,-49.388 -75.3237,-49.4 -75.3485,-49.346 -75.3536,-49.3152 -75.3547,-49.2594 -75.317,-49.2277 -75.2949,-49.222 -75.2733,-49.2254 -75.2208,-49.2869 -75.2089,-49.3141 -75.1731,-49.3626 -75.0935,-49.4304 -75.0651,-49.4433 -75.0567,-49.4455 -75.0555,-49.4369 -75.0926,-49.3941 -75.1281,-49.3612 -75.1464,-49.3458 -75.1674,-49.3237 -75.21,-49.2572 -75.2066,-49.2095 -75.1596,-49.2017 -75.1381,-49.2187 -75.0835,-49.2774 -75.0524,-49.2846 -75.0013,-49.2394 -74.9672,-49.2086 -74.957,-49.1894 -74.9802,-49.1479 -74.9462,-49.1644 -74.8662,-49.2287 -74.8076,-49.2793 -74.779,-49.233 -74.7174,-49.0393 -74.7802,-48.9905 -74.8171,-48.965 -74.8391,-48.9547 -74.8598,-48.9324 -74.9141,-48.8524 -74.9512,-48.7842 -74.9396,-48.7402 -74.8673,-48.704 -74.7305,-48.641 -74.6325,-48.6242 -74.5007,-48.645 -74.5007,-48.645 20,-3.0,Chile -75.0962,-48.9383 -75.1164,-48.9104 -75.1995,-48.744 -75.1675,-48.7427 -75.1176,-48.7534 -75.1026,-48.7578 -75.0745,-48.7675 -75.0406,-48.7816 -75.0073,-48.7985 -74.9951,-48.8074 -74.9868,-48.8155 -74.9725,-48.833 -74.9676,-48.843 -74.9491,-48.8934 -74.9518,-48.9047 -74.96,-48.9135 -75.062,-48.9425 -75.08,-48.943 -75.0962,-48.9383 -75.0962,-48.9383 30,-3.0,Chile -75.1474,-49.0254 -75.203,-48.9126 -75.2121,-48.8981 -75.3119,-48.931 -75.3444,-48.972 -75.3529,-48.9804 -75.3675,-48.9884 -75.3893,-48.9898 -75.5175,-48.924 -75.5294,-48.9177 -75.5366,-48.9088 -75.5422,-48.8995 -75.5459,-48.8826 -75.5464,-48.8702 -75.544,-48.8563 -75.5402,-48.8444 -75.5227,-48.8122 -75.5118,-48.8019 -75.4347,-48.7849 -75.259,-48.793 -75.2425,-48.7964 -75.2042,-48.8074 -75.1925,-48.8137 -75.1713,-48.8337 -75.0918,-48.9768 -75.0918,-48.9893 -75.1293,-49.0169 -75.1409,-49.0228 -75.1474,-49.0254 -75.1474,-49.0254 26,-3.0,Chile -75.403,-49.2151 -75.4122,-49.2141 -75.4961,-49.1842 -75.5242,-49.174 -75.5392,-49.1666 -75.5454,-49.1572 -75.4908,-49.0856 -75.4376,-49.0614 -75.4233,-49.0594 -75.4045,-49.0652 -75.3541,-49.0334 -75.3353,-48.9995 -75.3262,-48.9831 -75.2791,-48.9432 -75.2615,-48.9338 -75.2439,-48.929 -75.2317,-48.9315 -75.2175,-48.9552 -75.1789,-49.0263 -75.1751,-49.0401 -75.1947,-49.0668 -75.2118,-49.0836 -75.2213,-49.091 -75.3637,-49.1928 -75.403,-49.2151 -75.403,-49.2151 20,-3.0,Chile -74.8421,-49.2214 -74.9354,-49.1484 -75.0833,-49.116 -75.1283,-49.0959 -75.126,-49.0793 -75.1164,-49.0662 -75.1009,-49.0477 -75.0894,-49.0341 -75.0762,-49.0216 -75.0111,-48.967 -74.8662,-48.9733 -74.839,-48.9871 -74.7939,-49.02 -74.7845,-49.0278 -74.7802,-49.0633 -74.7807,-49.0762 -74.8161,-49.2412 -74.83,-49.2336 -74.8421,-49.2214 -74.8421,-49.2214 14,-3.0,Chile -74.3187,-49.5573 -74.3284,-49.5184 -74.3399,-49.4278 -74.3328,-49.3883 -74.3281,-49.3728 -74.3164,-49.3697 -74.257,-49.4042 -74.2319,-49.4196 -74.2221,-49.4303 -74.1773,-49.4926 -74.1821,-49.5016 -74.3057,-49.5711 -74.3187,-49.5573 -74.3187,-49.5573 19,13.0,New Zealand 178.5692,-49.6122 178.5604,-49.6586 178.5523,-49.6666 178.5411,-49.6689 178.4728,-49.6606 178.4591,-49.6563 178.4532,-49.6462 178.4524,-49.6244 178.4636,-49.6095 178.4754,-49.5987 178.4901,-49.5858 178.5149,-49.5698 178.5388,-49.5579 178.5514,-49.5565 178.572,-49.5658 178.5772,-49.5764 178.5728,-49.6036 178.5692,-49.6122 178.5692,-49.6122 31,-3.0,Chile -75.068,-49.847 -75.0849,-49.8277 -75.1421,-49.7824 -75.166,-49.7774 -75.1574,-49.8079 -75.15,-49.8258 -75.1495,-49.8365 -75.1629,-49.841 -75.1863,-49.8352 -75.2177,-49.8143 -75.237,-49.7994 -75.2629,-49.7657 -75.2631,-49.7533 -75.2594,-49.7411 -75.3161,-49.7129 -75.428,-49.7822 -75.4474,-49.7768 -75.475,-49.7364 -75.4801,-49.7264 -75.4916,-49.6042 -75.4511,-49.569 -75.2717,-49.5581 -75.2602,-49.5605 -75.2481,-49.5671 -75.2338,-49.5784 -75.1975,-49.6125 -75.0869,-49.7589 -75.0822,-49.7688 -75.0617,-49.8412 -75.068,-49.847 -75.068,-49.847 68,-3.0,Chile -74.9417,-50.2412 -74.9631,-50.2625 -75.0849,-50.3674 -75.0974,-50.3765 -75.12,-50.382 -75.1926,-50.3789 -75.2031,-50.3758 -75.2073,-50.367 -75.2077,-50.3517 -75.1964,-50.3357 -75.1613,-50.3212 -75.1332,-50.2987 -75.089,-50.2575 -75.1033,-50.2487 -75.1707,-50.2611 -75.2195,-50.2818 -75.3213,-50.3099 -75.3347,-50.3102 -75.3457,-50.3031 -75.345,-50.2871 -75.3367,-50.241 -75.3321,-50.2171 -75.3076,-50.162 -75.2807,-50.1133 -75.2726,-50.1001 -75.261,-50.0901 -75.2476,-50.0856 -75.2289,-50.0847 -75.2122,-50.0886 -75.1452,-50.1067 -75.1411,-50.1165 -75.1518,-50.1273 -75.1616,-50.1312 -75.19,-50.1347 -75.2298,-50.1352 -75.236,-50.1432 -75.2213,-50.1609 -75.2068,-50.1692 -75.1647,-50.1834 -75.0847,-50.1961 -75.0318,-50.1908 -75.0353,-50.1417 -75.0465,-50.1106 -75.1153,-50.0965 -75.1905,-50.0654 -75.2699,-50.0221 -75.2874,-49.9862 -75.2069,-49.9446 -75.1899,-49.9432 -75.0313,-49.9683 -75.0189,-49.9747 -74.887,-50.0779 -74.9355,-50.109 -74.9503,-50.12 -74.9575,-50.1306 -74.9152,-50.1322 -74.7505,-50.1064 -74.7332,-50.0813 -74.7448,-50.0696 -74.7026,-50.0572 -74.6882,-50.0685 -74.678,-50.0902 -74.6806,-50.1237 -74.6981,-50.1553 -74.8898,-50.2277 -74.9038,-50.2321 -74.9417,-50.2412 -74.9417,-50.2412 16,-3.0,Chile -74.6446,-50.4416 -74.6661,-50.4372 -74.6731,-50.4295 -74.6427,-50.3332 -74.5867,-50.3059 -74.5758,-50.3033 -74.5572,-50.3037 -74.4966,-50.3079 -74.4337,-50.3212 -74.4309,-50.3311 -74.4448,-50.347 -74.5281,-50.3938 -74.6099,-50.4373 -74.6251,-50.4414 -74.6446,-50.4416 -74.6446,-50.4416 37,-3.0,Chile -74.0957,-50.7927 -74.1229,-50.7464 -74.1344,-50.737 -74.1562,-50.7266 -74.2009,-50.7418 -74.2059,-50.7528 -74.2924,-50.732 -74.3913,-50.6818 -74.4015,-50.6743 -74.4494,-50.6064 -74.4572,-50.5916 -74.462,-50.5718 -74.4578,-50.56 -74.3824,-50.5135 -74.3127,-50.4676 -74.388,-50.4474 -74.3984,-50.447 -74.4177,-50.4516 -74.4332,-50.4548 -74.4482,-50.4548 -74.5543,-50.4201 -74.4946,-50.385 -74.4818,-50.3791 -74.469,-50.3735 -74.4495,-50.3653 -74.4316,-50.3602 -74.4184,-50.3618 -74.251,-50.433 -74.1616,-50.5635 -74.1238,-50.6198 -74.0678,-50.7114 -74.0633,-50.7311 -74.0655,-50.7549 -74.0776,-50.7873 -74.087,-50.7919 -74.0957,-50.7927 -74.0957,-50.7927 36,-3.0,Chile -75.213,-50.7337 -75.3103,-50.7168 -75.3307,-50.7116 -75.3412,-50.7043 -75.3994,-50.6011 -75.3908,-50.5885 -75.3453,-50.5584 -75.3128,-50.5453 -75.2992,-50.5443 -75.2848,-50.5463 -75.2597,-50.5571 -75.2544,-50.5283 -75.2852,-50.481 -75.3141,-50.4654 -75.3486,-50.4496 -75.3464,-50.4356 -75.2986,-50.4078 -75.2762,-50.4061 -75.0727,-50.4344 -74.9862,-50.4377 -74.9761,-50.4443 -74.9824,-50.4577 -75.082,-50.542 -75.0985,-50.5442 -75.1097,-50.5437 -75.1275,-50.5406 -75.1432,-50.5359 -75.1604,-50.5261 -75.1633,-50.5541 -75.1586,-50.6187 -75.1545,-50.6922 -75.1705,-50.7237 -75.1879,-50.7317 -75.2036,-50.7349 -75.213,-50.7337 -75.213,-50.7337 38,13.0,New Zealand 166.04,-50.5096 165.9899,-50.5409 165.9465,-50.5694 165.8889,-50.6391 165.9184,-50.6644 165.9763,-50.6952 165.9971,-50.7638 165.9943,-50.7806 165.9841,-50.7926 165.9717,-50.7987 165.9588,-50.7991 165.9477,-50.7964 165.901,-50.78 165.7683,-50.7791 165.7582,-50.7862 165.7477,-50.7885 165.6399,-50.7884 165.6344,-50.7496 165.6467,-50.712 165.6556,-50.7039 165.731,-50.6615 165.7492,-50.6551 165.7599,-50.6527 165.7873,-50.6488 165.8046,-50.6371 165.8371,-50.6069 165.866,-50.5175 165.8647,-50.5054 165.8551,-50.4895 165.8566,-50.4779 165.8722,-50.4696 165.8824,-50.4675 165.9363,-50.4683 165.9476,-50.4687 165.9717,-50.4709 166.0298,-50.4965 166.04,-50.5096 166.04,-50.5096 15,-3.0,Chile -74.9505,-50.7397 -74.963,-50.7309 -74.971,-50.7218 -74.9953,-50.6774 -74.9975,-50.6589 -74.9649,-50.5984 -74.9518,-50.5934 -74.8758,-50.5954 -74.8667,-50.6032 -74.864,-50.6176 -74.8714,-50.7493 -74.8836,-50.7554 -74.9164,-50.753 -74.9505,-50.7397 -74.9505,-50.7397 18,-3.0,Chile -74.5846,-50.832 -74.6644,-50.8278 -74.7047,-50.8204 -74.8102,-50.7965 -74.8228,-50.784 -74.8483,-50.7146 -74.8437,-50.6808 -74.8383,-50.6697 -74.7785,-50.6205 -74.7091,-50.605 -74.6947,-50.608 -74.6333,-50.6452 -74.5505,-50.7608 -74.5484,-50.7723 -74.5587,-50.8097 -74.5726,-50.8298 -74.5846,-50.832 -74.5846,-50.832 42,-3.0,Chile -74.6055,-51.0526 -74.7699,-51.0033 -74.8456,-50.9172 -74.85,-50.9068 -74.8494,-50.8906 -74.8453,-50.8749 -74.8183,-50.8309 -74.8063,-50.825 -74.7486,-50.828 -74.6321,-50.8478 -74.5768,-50.8618 -74.5018,-50.8359 -74.4968,-50.7574 -74.4998,-50.7377 -74.5094,-50.7238 -74.5357,-50.7063 -74.5475,-50.7026 -74.5645,-50.6959 -74.5708,-50.6867 -74.5657,-50.6763 -74.5438,-50.6678 -74.5082,-50.6732 -74.4392,-50.6934 -74.376,-50.7205 -74.2958,-50.7715 -74.2873,-50.7845 -74.283,-50.8013 -74.2568,-50.9646 -74.2767,-51.022 -74.2873,-51.0297 -74.2999,-51.0253 -74.3043,-51.0053 -74.3203,-50.9693 -74.3481,-50.9425 -74.3635,-50.9385 -74.3744,-50.9409 -74.488,-50.9845 -74.5077,-51.0257 -74.5155,-51.0343 -74.5977,-51.0523 -74.6055,-51.0526 -74.6055,-51.0526 12,13.0,New Zealand 165.913,-50.8441 165.8428,-50.8641 165.8327,-50.8644 165.7523,-50.8521 165.7201,-50.8461 165.6799,-50.8133 165.6745,-50.7951 165.8542,-50.7966 165.9409,-50.8172 165.9617,-50.8291 165.913,-50.8441 165.913,-50.8441 17,-3.0,Chile -74.1675,-51.1587 -74.2095,-51.0255 -74.2238,-50.9697 -74.2344,-50.8752 -74.227,-50.8653 -74.2012,-50.8648 -74.1818,-50.8909 -74.1764,-50.9011 -74.1217,-51.013 -74.0858,-51.1023 -74.078,-51.1392 -74.1347,-51.1833 -74.1488,-51.1881 -74.1625,-51.1873 -74.1704,-51.1783 -74.1675,-51.1587 -74.1675,-51.1587 17,-3.0,Chile -74.3131,-51.1471 -74.4464,-51.1069 -74.4609,-51.0984 -74.4903,-51.0439 -74.4864,-51.0161 -74.3803,-50.9669 -74.3634,-50.9654 -74.3523,-50.9691 -74.3408,-50.9821 -74.2788,-51.0627 -74.2735,-51.0725 -74.2709,-51.0838 -74.2705,-51.1118 -74.2943,-51.1469 -74.3069,-51.1487 -74.3131,-51.1471 -74.3131,-51.1471 40,-3.0,Chile -74.8725,-51.4165 -74.8814,-51.4162 -74.9038,-51.4065 -74.8985,-51.3806 -74.8281,-51.3459 -74.7761,-51.3318 -74.755,-51.3242 -74.6814,-51.2734 -74.6734,-51.2612 -74.6839,-51.2593 -74.7912,-51.2974 -74.8128,-51.3081 -74.8331,-51.3038 -74.8446,-51.2925 -74.8489,-51.2788 -74.8452,-51.2668 -74.8373,-51.2576 -74.6787,-51.1501 -74.6004,-51.1359 -74.4984,-51.1328 -74.4536,-51.1665 -74.4459,-51.1753 -74.4211,-51.2194 -74.4282,-51.3023 -74.4407,-51.3157 -74.4821,-51.3455 -74.4917,-51.3497 -74.5151,-51.3498 -74.5274,-51.3434 -74.563,-51.2704 -74.6034,-51.2838 -74.6242,-51.3137 -74.6677,-51.3723 -74.6818,-51.3771 -74.7249,-51.3829 -74.7626,-51.385 -74.8175,-51.3893 -74.835,-51.3953 -74.8725,-51.4165 -74.8725,-51.4165 17,-3.0,Chile -73.9635,-51.318 -73.9755,-51.3125 -73.9873,-51.3024 -74.0055,-51.2352 -74.0042,-51.2255 -73.9937,-51.1772 -73.9858,-51.1679 -73.9747,-51.1647 -73.9557,-51.1635 -73.8824,-51.171 -73.8572,-51.1814 -73.851,-51.1957 -73.8383,-51.2466 -73.8405,-51.2698 -73.9351,-51.3203 -73.9635,-51.318 -73.9635,-51.318 20,-3.0,Chile -73.6729,-51.3124 -73.7452,-51.3026 -73.755,-51.2985 -73.78,-51.2829 -73.8012,-51.2435 -73.7948,-51.2332 -73.7717,-51.2163 -73.7322,-51.1928 -73.7157,-51.1899 -73.6982,-51.1936 -73.6806,-51.2 -73.6671,-51.2089 -73.658,-51.2166 -73.6504,-51.2252 -73.6434,-51.2426 -73.6455,-51.264 -73.6605,-51.3017 -73.667,-51.3117 -73.6729,-51.3124 -73.6729,-51.3124 33,-3.0,Chile -75.193,-51.5742 -75.2003,-51.5592 -75.1977,-51.4813 -75.1566,-51.4531 -75.1136,-51.4106 -75.1052,-51.3606 -75.1027,-51.2904 -75.1043,-51.274 -75.102,-51.2599 -75.0972,-51.2488 -75.0892,-51.2397 -75.0431,-51.2131 -75.027,-51.2062 -75.0141,-51.206 -74.8888,-51.276 -74.8804,-51.3067 -74.8839,-51.3358 -74.8891,-51.3471 -74.9047,-51.3548 -74.9177,-51.3547 -74.9326,-51.3463 -74.9509,-51.3442 -74.9603,-51.3487 -75.0216,-51.4347 -75.0176,-51.4517 -75.0158,-51.4697 -75.0179,-51.4857 -75.0247,-51.4999 -75.0368,-51.5173 -75.1714,-51.5713 -75.1831,-51.5737 -75.193,-51.5742 -75.193,-51.5742 16,-3.0,Chile -74.0198,-51.3915 -74.0805,-51.37 -74.1201,-51.3518 -74.1321,-51.3425 -74.1463,-51.2893 -74.149,-51.2588 -74.1452,-51.2403 -74.0678,-51.223 -74.0546,-51.2285 -74.0017,-51.3184 -73.9966,-51.3285 -73.9945,-51.3819 -74.0002,-51.3927 -74.0127,-51.3945 -74.0198,-51.3915 -74.0198,-51.3915 25,-3.0,Chile -73.9064,-51.7418 -73.9293,-51.7377 -73.9443,-51.7329 -74.0835,-51.6685 -74.1045,-51.6574 -74.1207,-51.6437 -74.1225,-51.6253 -74.1145,-51.6161 -74.0681,-51.61 -74.0246,-51.6101 -73.9731,-51.5547 -73.9894,-51.4942 -73.9833,-51.484 -73.9737,-51.4795 -73.959,-51.4813 -73.9432,-51.4905 -73.8098,-51.6996 -73.8101,-51.7151 -73.8245,-51.7254 -73.8369,-51.7309 -73.8623,-51.7395 -73.8832,-51.7429 -73.8933,-51.7429 -73.9064,-51.7418 -73.9064,-51.7418 35,-3.0,Chile -74.8513,-52.0574 -74.8687,-52.0369 -74.9419,-51.91 -74.8552,-51.7644 -74.8387,-51.7501 -74.8082,-51.7705 -74.8049,-51.7809 -74.8168,-51.7946 -74.8151,-51.8055 -74.7902,-51.8089 -74.7574,-51.8055 -74.7367,-51.8017 -74.7135,-51.7843 -74.7437,-51.6641 -74.7736,-51.6143 -74.8001,-51.6059 -74.8144,-51.5973 -74.8166,-51.5865 -74.8058,-51.5758 -74.7867,-51.567 -74.7726,-51.5625 -74.7523,-51.5593 -74.6894,-51.5745 -74.673,-51.588 -74.6688,-51.5988 -74.6533,-51.6874 -74.6483,-51.7198 -74.664,-51.7613 -74.7137,-51.8835 -74.7664,-51.9847 -74.8163,-52.0393 -74.8313,-52.051 -74.8435,-52.057 -74.8513,-52.0574 -74.8513,-52.0574 15,-3.0,Chile -73.6813,-51.7588 -73.6909,-51.7587 -73.7153,-51.7557 -73.7336,-51.7493 -73.7413,-51.7406 -73.8273,-51.6308 -73.8283,-51.6114 -73.8205,-51.6018 -73.7978,-51.6014 -73.732,-51.6234 -73.6798,-51.6661 -73.6504,-51.7082 -73.6521,-51.7207 -73.6813,-51.7588 -73.6813,-51.7588 13,-3.0,Chile -74.0466,-51.8924 -74.115,-51.8845 -74.2577,-51.8308 -74.3113,-51.7888 -74.3871,-51.6523 -74.2578,-51.6794 -74.0559,-51.7817 -73.9739,-51.8167 -73.9756,-51.828 -74.0175,-51.8837 -74.0284,-51.891 -74.0466,-51.8924 -74.0466,-51.8924 21,-3.0,Chile -74.9905,-51.8395 -74.9987,-51.834 -75.0039,-51.824 -74.9777,-51.7301 -74.9596,-51.6905 -74.9535,-51.6802 -74.9384,-51.6685 -74.917,-51.6577 -74.8972,-51.6532 -74.8721,-51.6564 -74.851,-51.6691 -74.8471,-51.6848 -74.8559,-51.7221 -74.8731,-51.7627 -74.8888,-51.7929 -74.8984,-51.8046 -74.9094,-51.8118 -74.9539,-51.8359 -74.9767,-51.8413 -74.9905,-51.8395 -74.9905,-51.8395 15,-3.0,Chile -73.7437,-51.8421 -73.8241,-51.8327 -73.8356,-51.8258 -73.8444,-51.7793 -73.8137,-51.7415 -73.8015,-51.7352 -73.7886,-51.7362 -73.7772,-51.743 -73.767,-51.7506 -73.7478,-51.7658 -73.704,-51.8102 -73.7083,-51.8242 -73.7296,-51.837 -73.7437,-51.8421 -73.7437,-51.8421 16,-3.0,Chile -74.7524,-52.0809 -74.7588,-52.0793 -74.7792,-52.0557 -74.6775,-51.8408 -74.6699,-51.8274 -74.6489,-51.7973 -74.638,-51.7825 -74.6265,-51.7723 -74.6139,-51.7715 -74.4839,-51.783 -74.4879,-51.7986 -74.652,-52.0228 -74.6621,-52.0307 -74.7455,-52.0782 -74.7524,-52.0809 -74.7524,-52.0809 17,-3.0,Chile -72.9983,-51.991 -73.0031,-51.9702 -72.9977,-51.9518 -72.9907,-51.9384 -72.984,-51.9284 -72.9421,-51.8729 -72.9328,-51.8682 -72.853,-51.8434 -72.7741,-51.8251 -72.7788,-51.8572 -72.8751,-51.9827 -72.9019,-51.9895 -72.958,-52.0016 -72.9795,-52.0037 -72.9902,-51.9997 -72.9983,-51.991 -72.9983,-51.991 28,-3.0,Chile -73.6079,-52.1636 -73.6132,-52.155 -73.6413,-52.1239 -73.6872,-52.0807 -73.7563,-52.0361 -73.7755,-52.0269 -73.8358,-52.0011 -73.9005,-51.9773 -73.9648,-51.9533 -73.9786,-51.9477 -73.9961,-51.9378 -73.9973,-51.9029 -73.9789,-51.8622 -73.9437,-51.8456 -73.9313,-51.8473 -73.9123,-51.8565 -73.7428,-51.9523 -73.7311,-51.9591 -73.6903,-51.9834 -73.6543,-52.0058 -73.6448,-52.017 -73.5937,-52.0895 -73.5716,-52.144 -73.5713,-52.1595 -73.5765,-52.1778 -73.5923,-52.1775 -73.6079,-52.1636 -73.6079,-52.1636 15,-3.0,Chile -74.6068,-52.0045 -74.5979,-51.9825 -74.5918,-51.9715 -74.5803,-51.9615 -74.4272,-51.8654 -74.3923,-51.8788 -74.3724,-51.8945 -74.3734,-51.9241 -74.3846,-51.9437 -74.4422,-51.9678 -74.5605,-52.0135 -74.6042,-52.0269 -74.6147,-52.0214 -74.6068,-52.0045 -74.6068,-52.0045 13,-3.0,Chile -74.6544,-52.1279 -74.6719,-52.1245 -74.6813,-52.1166 -74.6853,-52.1061 -74.6839,-52.0855 -74.6708,-52.0636 -74.4947,-51.9999 -74.4821,-52.0198 -74.5651,-52.1085 -74.627,-52.1249 -74.6444,-52.1274 -74.6544,-52.1279 -74.6544,-52.1279 39,-3.0,Chile -74.0267,-52.3317 -74.0715,-52.3102 -74.109,-52.2661 -74.1165,-52.1877 -74.1095,-52.1777 -74.0939,-52.1703 -74.0823,-52.1674 -74.0608,-52.1691 -74.0372,-52.1766 -74.0255,-52.1833 -74.0003,-52.1926 -73.9883,-52.1902 -74.0285,-52.1365 -74.0393,-52.1287 -74.0646,-52.1167 -74.1518,-52.0982 -74.2086,-52.1035 -74.2251,-52.1071 -74.2486,-52.1059 -74.2681,-52.1 -74.2961,-52.0857 -74.2979,-52.0727 -74.2309,-52.0339 -74.2133,-52.0276 -74.1936,-52.023 -74.1834,-52.0227 -74.1685,-52.0277 -74.1559,-52.034 -74.1255,-52.05 -74.0769,-52.076 -74.0108,-52.1176 -73.969,-52.1473 -73.8171,-52.2624 -73.8175,-52.2762 -73.8595,-52.2956 -73.9856,-52.3357 -74.0178,-52.3365 -74.0267,-52.3317 -74.0267,-52.3317 24,-3.0,Chile -73.7227,-52.3324 -73.7643,-52.3004 -73.7977,-52.2419 -73.8833,-52.1974 -73.9609,-52.1354 -73.9689,-52.1269 -73.9773,-52.1054 -73.9626,-52.0916 -73.9316,-52.0804 -73.9204,-52.0807 -73.8733,-52.1004 -73.8316,-52.1414 -73.7697,-52.1623 -73.6929,-52.1885 -73.6721,-52.2033 -73.6602,-52.2163 -73.6559,-52.2266 -73.6303,-52.2947 -73.6344,-52.3107 -73.648,-52.3215 -73.6909,-52.336 -73.7154,-52.3355 -73.7227,-52.3324 -73.7227,-52.3324 12,-3.0,Chile -74.6302,-52.2569 -74.6911,-52.2189 -74.7022,-52.1687 -74.5453,-52.1438 -74.5279,-52.1415 -74.5045,-52.1451 -74.4997,-52.1553 -74.5706,-52.2389 -74.6012,-52.2512 -74.621,-52.2558 -74.6302,-52.2569 -74.6302,-52.2569 27,-3.0,Chile -73.7982,-52.6652 -73.8074,-52.6646 -73.8216,-52.6593 -73.8313,-52.6527 -73.9519,-52.5668 -73.9601,-52.5553 -73.9592,-52.5454 -73.9374,-52.5085 -73.9275,-52.5004 -73.87,-52.4591 -73.7109,-52.3672 -73.6492,-52.3425 -73.6348,-52.3412 -73.6211,-52.3435 -73.608,-52.3501 -73.5974,-52.3611 -73.5544,-52.4165 -73.6115,-52.5409 -73.667,-52.6147 -73.675,-52.6243 -73.689,-52.6367 -73.7068,-52.642 -73.7236,-52.6384 -73.734,-52.6394 -73.7673,-52.6515 -73.7982,-52.6652 -73.7982,-52.6652 21,13.0,New Zealand 168.9404,-52.4044 168.9404,-52.4245 168.9475,-52.467 168.9668,-52.4778 168.9683,-52.493 168.9563,-52.5039 168.9157,-52.5155 168.8918,-52.5165 168.8552,-52.5148 168.8435,-52.5129 168.759,-52.4978 168.7478,-52.4866 168.7387,-52.4746 168.7312,-52.4576 168.7344,-52.4427 168.8948,-52.3848 168.9053,-52.3821 168.9393,-52.383 168.9435,-52.3971 168.9404,-52.4044 168.9404,-52.4044 506,-3.0,Chile -70.7991,-54.6454 -70.814,-54.6524 -70.8719,-54.6954 -70.8905,-54.7093 -70.9157,-54.7135 -70.9252,-54.7058 -70.9242,-54.6935 -70.9152,-54.6815 -70.9061,-54.6728 -70.8913,-54.661 -70.8823,-54.6521 -70.8745,-54.6419 -70.848,-54.5775 -70.8503,-54.5559 -70.8936,-54.5501 -70.9205,-54.5618 -70.9171,-54.576 -70.9225,-54.5869 -70.9377,-54.5989 -71.0438,-54.6347 -71.0593,-54.6392 -71.1516,-54.6155 -71.1712,-54.6094 -71.1809,-54.6013 -71.1813,-54.5903 -71.1691,-54.5837 -71.1544,-54.5824 -71.1404,-54.5514 -71.1443,-54.5142 -71.2152,-54.4588 -71.234,-54.4597 -71.282,-54.4911 -71.3565,-54.6053 -71.3637,-54.6271 -71.3743,-54.6261 -71.3896,-54.621 -71.5488,-54.5514 -71.5611,-54.542 -71.5888,-54.5401 -71.6179,-54.5462 -71.6602,-54.5678 -71.6811,-54.5849 -71.6998,-54.5898 -71.7843,-54.5934 -71.795,-54.5935 -71.8058,-54.5928 -71.8298,-54.5888 -71.8456,-54.579 -71.8563,-54.5603 -71.8799,-54.502 -71.8874,-54.4434 -71.8798,-54.397 -71.8679,-54.3901 -71.8534,-54.3886 -71.8,-54.4006 -71.7527,-54.431 -71.7386,-54.4522 -71.7348,-54.4635 -71.7216,-54.4759 -71.7028,-54.4827 -71.6284,-54.4997 -71.5657,-54.5126 -71.5537,-54.5128 -71.4607,-54.4846 -71.5767,-54.4061 -71.5989,-54.3989 -71.6124,-54.4006 -71.6467,-54.411 -71.6628,-54.4115 -71.7062,-54.3956 -71.7189,-54.3852 -71.7268,-54.3543 -71.67,-54.3347 -71.6444,-54.3334 -71.6221,-54.3343 -71.6121,-54.3354 -71.5939,-54.3466 -71.5831,-54.3729 -71.5137,-54.4315 -71.4968,-54.4391 -71.481,-54.4433 -71.4437,-54.4486 -71.3718,-54.4316 -71.3672,-54.4217 -71.3847,-54.4115 -71.4229,-54.4089 -71.444,-54.4069 -71.46,-54.4021 -71.4714,-54.3953 -71.4875,-54.3775 -71.4982,-54.3554 -71.4818,-54.3429 -71.4686,-54.342 -71.3282,-54.3782 -71.2576,-54.3589 -71.3046,-54.3424 -71.2858,-54.3267 -71.248,-54.3106 -71.2328,-54.311 -71.066,-54.3698 -70.8481,-54.4085 -70.8147,-54.3554 -70.814,-54.3415 -70.8156,-54.329 -70.8185,-54.3177 -70.8274,-54.2924 -70.8173,-54.281 -70.7751,-54.2656 -70.7358,-54.2582 -70.6924,-54.2569 -70.6583,-54.2584 -70.5505,-54.2649 -70.5399,-54.2659 -70.5011,-54.2744 -70.4949,-54.2831 -70.5533,-54.3357 -70.593,-54.3914 -70.6142,-54.4508 -70.6344,-54.5307 -70.5995,-54.5068 -70.5236,-54.5453 -70.5696,-54.4957 -70.5774,-54.4864 -70.5873,-54.4638 -70.5833,-54.4475 -70.5517,-54.3882 -70.544,-54.3788 -70.5227,-54.3601 -70.5094,-54.3509 -70.4712,-54.3286 -70.4545,-54.3283 -70.442,-54.3462 -70.428,-54.3604 -70.3232,-54.4132 -70.2885,-54.4221 -70.2759,-54.4271 -70.2647,-54.4331 -70.2119,-54.4586 -70.2017,-54.4664 -70.1926,-54.4749 -70.1812,-54.4886 -70.168,-54.501 -70.1469,-54.5065 -70.1268,-54.5077 -70.0158,-54.4794 -70.1083,-54.4384 -70.1324,-54.4286 -70.1742,-54.4147 -70.1986,-54.4083 -70.2483,-54.3927 -70.2664,-54.3866 -70.2882,-54.378 -70.3277,-54.3614 -70.3398,-54.3514 -70.3897,-54.3 -70.3806,-54.2803 -70.3845,-54.2653 -70.3991,-54.25 -70.4114,-54.24 -70.4273,-54.2289 -70.4524,-54.2192 -70.5111,-54.2078 -70.5307,-54.2058 -70.5737,-54.2027 -70.66,-54.2056 -70.6949,-54.2048 -70.7137,-54.2017 -70.7277,-54.1962 -70.7463,-54.1847 -70.7606,-54.171 -70.7996,-54.0775 -70.7618,-54.0704 -70.7371,-54.0833 -70.6617,-54.1158 -70.6385,-54.1232 -70.5292,-54.1564 -70.2263,-54.2568 -70.0938,-54.3291 -70.0384,-54.3587 -70.0207,-54.364 -69.9524,-54.3178 -69.9489,-54.3074 -69.9611,-54.3007 -70.0327,-54.2902 -70.0503,-54.2863 -70.0733,-54.2727 -70.0826,-54.2609 -70.081,-54.2498 -70.0166,-54.2134 -70.0041,-54.2064 -69.9795,-54.1939 -69.9623,-54.1863 -69.9485,-54.1845 -69.9378,-54.1853 -69.8896,-54.2053 -69.8553,-54.2335 -69.7531,-54.3639 -69.6802,-54.4737 -69.6555,-54.492 -69.6371,-54.4866 -69.6235,-54.4145 -69.6902,-54.3203 -69.7282,-54.2694 -69.7451,-54.2622 -69.767,-54.2491 -69.7511,-54.2239 -69.7417,-54.2192 -69.7196,-54.2192 -69.6793,-54.2255 -69.567,-54.2601 -69.544,-54.2741 -69.5176,-54.295 -69.2715,-54.3305 -69.1386,-54.3766 -69.1243,-54.3826 -69.115,-54.3909 -69.1102,-54.4049 -69.1134,-54.4162 -69.1872,-54.4699 -69.1975,-54.4742 -69.2347,-54.4867 -69.2484,-54.4961 -69.2882,-54.5453 -69.3007,-54.5622 -69.2688,-54.6158 -69.2583,-54.6222 -69.2481,-54.5881 -69.2122,-54.536 -69.1867,-54.5021 -69.1756,-54.4881 -69.1628,-54.4782 -69.1324,-54.465 -69.1111,-54.4613 -69.0992,-54.4641 -69.0899,-54.4724 -69.0762,-54.4919 -69.0604,-54.5168 -69.032,-54.4899 -69.047,-54.4555 -69.0574,-54.4412 -69.0585,-54.4208 -69.052,-54.4057 -69.0378,-54.3896 -69.0267,-54.386 -68.9817,-54.3861 -68.9712,-54.3872 -68.9417,-54.3944 -68.9047,-54.4136 -68.8913,-54.4122 -68.8784,-54.4037 -68.8769,-54.3669 -68.8918,-54.3567 -68.906,-54.3514 -68.9713,-54.3275 -69.1564,-54.2638 -69.2936,-54.2262 -69.3201,-54.2206 -69.3866,-54.2041 -69.403,-54.1998 -69.4167,-54.1941 -69.43,-54.1847 -69.4501,-54.1655 -69.4666,-54.1613 -69.5595,-54.1396 -69.5873,-54.1351 -69.6072,-54.1329 -69.6298,-54.1318 -69.6494,-54.1296 -69.6764,-54.124 -69.765,-54.1035 -69.9289,-54.0357 -69.9464,-54.0248 -69.9549,-54.013 -70.0337,-53.8596 -70.062,-53.7738 -70.0681,-53.7505 -70.0708,-53.7316 -70.0673,-53.711 -70.048,-53.6894 -70.0304,-53.6796 -69.8034,-53.5923 -69.79,-53.59 -69.7589,-53.5926 -69.7369,-53.5934 -69.7248,-53.5939 -69.7043,-53.5928 -69.653,-53.5825 -69.2533,-53.4493 -69.2402,-53.4433 -69.2272,-53.4288 -69.2219,-53.4093 -69.222,-53.3989 -69.2248,-53.3806 -69.2386,-53.2964 -69.2477,-53.2831 -69.2669,-53.2721 -69.4575,-53.2622 -69.4896,-53.263 -69.7391,-53.2859 -69.778,-53.2893 -69.788,-53.291 -69.829,-53.3005 -69.8646,-53.3135 -69.8831,-53.3229 -69.9047,-53.3339 -69.9176,-53.3434 -69.9397,-53.3665 -69.9588,-53.374 -70.088,-53.4092 -70.1023,-53.4105 -70.1127,-53.4097 -70.1288,-53.4056 -70.149,-53.397 -70.1683,-53.3873 -70.3191,-53.312 -70.3316,-53.3056 -70.3377,-53.2955 -70.3538,-53.2515 -70.3659,-53.218 -70.3725,-53.1685 -70.3719,-53.1548 -70.3429,-52.9753 -70.337,-52.961 -70.3304,-52.9507 -70.3164,-52.939 -70.2407,-52.8838 -70.2279,-52.8912 -70.2359,-52.9046 -70.242,-52.9148 -70.2446,-52.9304 -70.2247,-52.979 -70.2077,-52.9816 -70.1173,-52.9639 -70.0922,-52.9588 -70.0763,-52.9548 -70.0551,-52.9471 -70.0431,-52.9402 -70.0326,-52.9329 -70.0235,-52.9249 -70.0163,-52.9153 -70.0036,-52.8882 -69.9897,-52.8581 -69.9867,-52.8459 -69.9886,-52.8298 -69.9989,-52.819 -70.0822,-52.8099 -70.1023,-52.8081 -70.1496,-52.7626 -70.151,-52.7502 -70.1599,-52.7361 -70.1784,-52.7235 -70.2022,-52.7169 -70.2326,-52.7143 -70.2436,-52.7142 -70.263,-52.716 -70.2908,-52.7195 -70.3051,-52.7173 -70.3106,-52.7085 -70.2873,-52.6882 -70.2593,-52.6778 -70.0764,-52.6574 -70.0573,-52.6555 -70.0326,-52.6583 -70.0076,-52.6674 -69.9966,-52.6746 -69.9834,-52.6869 -69.9687,-52.7086 -69.9347,-52.7393 -69.9191,-52.7506 -69.8947,-52.7636 -69.8698,-52.7692 -69.8492,-52.7709 -69.829,-52.7701 -69.8048,-52.7639 -69.6319,-52.7013 -69.611,-52.69 -69.5925,-52.6737 -69.5026,-52.5797 -69.4933,-52.5612 -69.492,-52.5478 -69.498,-52.4677 -69.4766,-52.4525 -69.4547,-52.442 -69.3419,-52.4047 -69.3067,-52.3983 -69.2504,-52.4429 -69.2413,-52.451 -69.2351,-52.4607 -69.2306,-52.4719 -69.2286,-52.4845 -69.2202,-52.4961 -69.1223,-52.5778 -69.1093,-52.5886 -69.0979,-52.5958 -69.0799,-52.6055 -69.0677,-52.6119 -69.0408,-52.623 -69.0135,-52.6275 -68.9978,-52.6269 -68.9706,-52.6194 -68.8575,-52.5856 -68.7412,-52.5389 -68.7276,-52.5334 -68.7152,-52.5272 -68.7014,-52.5148 -68.585,-52.5438 -68.5078,-52.5802 -68.5087,-52.5892 -68.5098,-52.6577 -68.5102,-52.7333 -68.5115,-53.0769 -68.5119,-53.2142 -68.5112,-53.2623 -68.5112,-53.2758 -68.512,-53.4474 -68.5133,-53.777 -68.5148,-53.9347 -68.5163,-54.2709 -68.5149,-54.2914 -68.5159,-54.4818 -68.5189,-54.7238 -68.5191,-54.7403 -68.5198,-54.8203 -68.5256,-54.8241 -68.5329,-54.8251 -68.5493,-54.8245 -68.5615,-54.8208 -68.5822,-54.8091 -68.5991,-54.7982 -68.6182,-54.785 -68.6382,-54.7761 -68.7724,-54.7383 -68.7319,-54.7789 -68.7217,-54.7867 -68.7082,-54.7958 -68.6836,-54.8062 -68.6413,-54.8161 -68.6311,-54.836 -68.6522,-54.8526 -68.6847,-54.8615 -68.8422,-54.8797 -68.9379,-54.8856 -68.9487,-54.8863 -68.9725,-54.8857 -68.9928,-54.8837 -69.3613,-54.8053 -69.4299,-54.7896 -69.5346,-54.757 -69.5446,-54.7343 -69.5391,-54.7231 -69.51,-54.7044 -69.5051,-54.6935 -69.5094,-54.6313 -69.5197,-54.6325 -69.5962,-54.6627 -69.6032,-54.7223 -69.6217,-54.7441 -69.97,-54.7881 -70.0927,-54.7933 -70.126,-54.794 -70.1594,-54.7891 -70.1849,-54.7795 -70.199,-54.7599 -70.2023,-54.7271 -70.1864,-54.7118 -70.1656,-54.6969 -70.1129,-54.6439 -70.1088,-54.6305 -70.1205,-54.6247 -70.2067,-54.6891 -70.2335,-54.7229 -70.2431,-54.739 -70.2438,-54.7494 -70.274,-54.7559 -70.3118,-54.7498 -70.5077,-54.7426 -70.6161,-54.7748 -70.6301,-54.777 -70.642,-54.7766 -70.6806,-54.771 -70.7016,-54.7624 -70.7153,-54.749 -70.6678,-54.7136 -70.6511,-54.7055 -70.6358,-54.7022 -70.5956,-54.6975 -70.5651,-54.6908 -70.5047,-54.6697 -70.4189,-54.637 -70.4002,-54.6275 -70.342,-54.5784 -70.336,-54.5663 -70.3447,-54.5612 -70.3649,-54.5599 -70.4253,-54.5618 -70.4385,-54.564 -70.505,-54.6069 -70.4898,-54.6158 -70.4643,-54.6254 -70.4714,-54.6338 -70.5177,-54.6511 -70.608,-54.6694 -70.6793,-54.6801 -70.7761,-54.6779 -70.7991,-54.6454 -70.7991,-54.6454 11,-3.0,Chile -70.7856,-54.6392 -70.7403,-54.6414 -70.6617,-54.6264 -70.6512,-54.6193 -70.6625,-54.6126 -70.6773,-54.6107 -70.6877,-54.611 -70.7054,-54.6142 -70.7497,-54.6222 -70.7856,-54.6392 -70.7856,-54.6392 188,-3.0,Argentina -68.5189,-54.7238 -68.5159,-54.4818 -68.5149,-54.2914 -68.5163,-54.2709 -68.5148,-53.9347 -68.5133,-53.777 -68.512,-53.4474 -68.5112,-53.2758 -68.5112,-53.2623 -68.5119,-53.2142 -68.5115,-53.0769 -68.5102,-52.7333 -68.5098,-52.6577 -68.5087,-52.5892 -68.5078,-52.5802 -68.4616,-52.625 -68.4146,-52.6788 -68.341,-52.751 -68.3003,-52.782 -68.238,-52.82 -68.222,-52.8314 -68.2093,-52.8441 -68.1925,-52.8614 -68.1847,-52.8705 -68.1774,-52.88 -68.1596,-52.9103 -68.1517,-52.9261 -68.1473,-52.9372 -68.1134,-53.0441 -68.1129,-53.0562 -68.1293,-53.0551 -68.1427,-53.0307 -68.1476,-53.0196 -68.1531,-53.0022 -68.1609,-52.9731 -68.1675,-52.9564 -68.181,-52.942 -68.2031,-52.933 -68.2169,-52.9323 -68.2579,-52.9418 -68.2812,-52.9517 -68.4324,-53.0643 -68.4512,-53.0908 -68.4558,-53.1118 -68.4561,-53.1259 -68.4514,-53.137 -68.4462,-53.1477 -68.4319,-53.1671 -68.4139,-53.1839 -68.4039,-53.1911 -68.3864,-53.2017 -68.3463,-53.2192 -68.3188,-53.2302 -68.2928,-53.2349 -68.2526,-53.2384 -68.1985,-53.2394 -68.172,-53.2381 -68.1148,-53.2244 -68.0892,-53.2223 -68.0684,-53.2236 -68.0519,-53.2315 -68.0399,-53.2418 -67.988,-53.307 -67.9811,-53.3174 -67.9753,-53.3273 -67.9721,-53.3393 -67.9546,-53.3983 -67.9314,-53.4599 -67.8965,-53.5068 -67.8852,-53.5205 -67.8769,-53.5296 -67.8583,-53.5458 -67.6918,-53.6466 -67.6268,-53.6843 -67.5461,-53.7284 -67.517,-53.7421 -67.4737,-53.7683 -67.4723,-53.7833 -67.477,-53.7945 -67.477,-53.8078 -67.4743,-53.8206 -67.4672,-53.8367 -67.4613,-53.8471 -67.4515,-53.8555 -67.3786,-53.8946 -67.247,-53.9654 -67.1549,-54.0075 -66.8819,-54.1223 -66.7581,-54.1647 -66.7317,-54.17 -66.645,-54.2011 -66.6179,-54.2133 -66.6048,-54.2193 -66.5916,-54.2253 -66.5736,-54.2358 -66.5428,-54.2624 -66.4572,-54.3358 -66.4373,-54.3482 -66.2088,-54.4444 -66.1655,-54.4605 -66.1513,-54.4661 -66.1297,-54.4736 -66.1154,-54.4779 -65.9513,-54.5242 -65.9354,-54.5288 -65.6959,-54.5931 -65.5943,-54.6074 -65.5739,-54.6089 -65.5618,-54.6087 -65.3171,-54.5851 -65.2195,-54.5712 -65.1864,-54.5693 -65.1246,-54.5695 -65.1083,-54.5701 -65.0484,-54.5788 -65.0294,-54.589 -65.127,-54.7493 -65.207,-54.8374 -65.225,-54.8538 -65.2386,-54.8633 -65.2648,-54.8661 -65.2846,-54.8605 -65.2898,-54.8493 -65.3738,-54.838 -65.4906,-54.8672 -65.5941,-54.8611 -65.6019,-54.8513 -65.615,-54.8417 -65.6251,-54.8378 -65.6552,-54.8311 -65.7654,-54.827 -65.776,-54.8276 -65.8232,-54.8339 -65.8393,-54.8539 -65.8701,-54.8745 -65.8968,-54.8901 -65.9909,-54.9153 -66.01,-54.9182 -66.0516,-54.9222 -66.0727,-54.9238 -66.147,-54.9194 -66.2257,-54.9177 -66.238,-54.9177 -66.2617,-54.9215 -66.271,-54.9264 -66.3321,-54.9868 -66.3441,-54.9868 -66.4374,-54.9797 -66.4662,-54.9759 -66.5179,-54.9648 -66.5387,-54.9596 -66.5601,-54.9484 -66.5713,-54.9409 -66.5801,-54.9319 -66.5945,-54.9197 -66.6128,-54.9097 -66.6324,-54.9002 -66.6817,-54.8807 -66.7072,-54.875 -66.8785,-54.8468 -66.8966,-54.8439 -66.907,-54.8428 -67.0418,-54.8337 -67.3733,-54.8128 -67.4887,-54.8178 -67.5089,-54.8203 -67.5411,-54.8222 -67.5636,-54.823 -67.5981,-54.8222 -67.7103,-54.8129 -67.8841,-54.7967 -67.9126,-54.7928 -67.9459,-54.7842 -67.9503,-54.7828 -67.9839,-54.7719 -68.0008,-54.7676 -68.0362,-54.761 -68.1291,-54.7524 -68.1927,-54.763 -68.2035,-54.7776 -68.2161,-54.7806 -68.3755,-54.791 -68.3978,-54.7915 -68.4172,-54.7888 -68.4372,-54.7834 -68.4585,-54.7715 -68.5189,-54.7238 -68.5189,-54.7238 79,-3.0,Chile -73.2481,-53.2075 -73.1818,-53.1998 -73.1697,-53.2019 -73.0963,-53.2316 -72.983,-53.2795 -72.9718,-53.2908 -72.9827,-53.305 -72.9971,-53.3099 -73.0071,-53.3104 -73.121,-53.306 -73.3699,-53.2666 -73.3794,-53.2392 -73.3858,-53.2278 -73.4543,-53.2089 -73.4832,-53.1722 -73.5987,-53.106 -73.6145,-53.1086 -73.7114,-53.0509 -73.7735,-53.0028 -73.8575,-53.0142 -73.9,-53.0274 -73.9476,-53.0455 -74.1825,-53.0399 -74.2055,-53.0317 -74.2307,-52.9731 -74.3043,-52.9176 -74.3239,-52.9172 -74.3865,-52.9078 -74.454,-52.8752 -74.4673,-52.8689 -74.4756,-52.8577 -74.4676,-52.8405 -74.4488,-52.7923 -74.4762,-52.7658 -74.4867,-52.7615 -74.5119,-52.7581 -74.5588,-52.7442 -74.573,-52.7387 -74.6241,-52.6969 -74.5817,-52.658 -74.5695,-52.6574 -74.5231,-52.6766 -74.3789,-52.762 -74.3227,-52.8022 -74.2843,-52.857 -74.2405,-52.887 -74.1294,-52.9024 -74.1169,-52.8886 -74.0762,-52.8821 -74.0088,-52.8742 -73.9046,-52.8986 -73.7768,-52.9441 -73.7143,-52.9772 -73.6729,-52.9931 -73.5975,-53.0157 -73.535,-53.0171 -73.5337,-52.9978 -73.4855,-53.005 -73.4433,-53.0391 -73.4363,-53.0469 -73.4181,-53.0898 -73.4279,-53.1017 -73.4428,-53.1134 -73.4518,-53.1266 -73.4147,-53.1864 -73.4041,-53.1967 -73.3887,-53.2019 -73.3511,-53.1605 -73.3612,-53.1418 -73.3713,-53.1195 -73.3813,-53.0847 -73.3689,-53.0743 -73.3545,-53.0735 -73.3362,-53.0769 -73.3076,-53.0845 -73.1975,-53.1664 -73.193,-53.1781 -73.2481,-53.2075 -73.2481,-53.2075 23,-3.0,Chile -73.2932,-52.892 -73.322,-52.8941 -73.3355,-52.8928 -73.3693,-52.8717 -73.3768,-52.8629 -73.366,-52.8495 -73.3495,-52.8484 -73.3395,-52.845 -73.3747,-52.831 -73.4144,-52.8226 -73.4949,-52.8184 -73.5132,-52.8204 -73.6016,-52.8316 -73.6226,-52.8388 -73.6333,-52.8314 -73.5805,-52.8014 -73.4573,-52.7835 -73.3103,-52.8091 -73.2976,-52.8149 -73.257,-52.8452 -73.2695,-52.89 -73.2932,-52.892 -73.2932,-52.892 17,-3.0,Chile -73.9357,-53.1899 -73.9404,-53.2018 -73.9848,-53.2468 -74.0124,-53.258 -74.0752,-53.27 -74.0929,-53.2689 -74.1034,-53.2644 -74.1213,-53.2512 -74.1235,-53.2404 -74.0691,-53.2078 -74.0271,-53.1849 -73.9851,-53.1657 -73.9728,-53.1661 -73.9586,-53.1714 -73.9374,-53.1833 -73.9357,-53.1899 -73.9357,-53.1899 30,-3.0,Chile -73.3097,-53.3346 -73.2877,-53.3406 -73.2751,-53.3531 -73.346,-53.4106 -73.2824,-53.4644 -73.2751,-53.4798 -73.3689,-53.5112 -73.3894,-53.5065 -73.5237,-53.4588 -73.6464,-53.403 -73.6622,-53.3887 -73.68,-53.3689 -73.6768,-53.3583 -73.6601,-53.3588 -73.6242,-53.3822 -73.5914,-53.3973 -73.5705,-53.4059 -73.5538,-53.4102 -73.5433,-53.4111 -73.5017,-53.4132 -73.4168,-53.3937 -73.418,-53.3834 -73.4275,-53.3784 -73.443,-53.3735 -73.4586,-53.3687 -73.4446,-53.3308 -73.3306,-53.3326 -73.3189,-53.3331 -73.3097,-53.3346 -73.3097,-53.3346 121,-3.0,Chile -73.1873,-53.7656 -73.1385,-53.7456 -73.1289,-53.6493 -73.2606,-53.6539 -73.3033,-53.6726 -73.3395,-53.683 -73.3691,-53.6885 -73.4554,-53.6897 -73.41,-53.6676 -73.3812,-53.6575 -73.3625,-53.6442 -73.3712,-53.6039 -73.4008,-53.6026 -73.4403,-53.6052 -73.4711,-53.6027 -73.493,-53.59 -73.492,-53.5496 -73.4784,-53.5291 -73.4608,-53.519 -73.4185,-53.5148 -73.3919,-53.5276 -73.3715,-53.5286 -73.3484,-53.5183 -73.3167,-53.5002 -73.2965,-53.5015 -73.2195,-53.5261 -73.2006,-53.5422 -73.1875,-53.5612 -73.1621,-53.5866 -73.1333,-53.5972 -73.0462,-53.6137 -73.0177,-53.6153 -72.9248,-53.6135 -72.8341,-53.6045 -72.8357,-53.5784 -72.8657,-53.5791 -72.887,-53.5905 -72.9552,-53.5936 -73.0211,-53.589 -73.0529,-53.5862 -73.1247,-53.575 -73.1563,-53.5623 -73.2789,-53.4439 -73.3014,-53.4054 -73.258,-53.4025 -73.2229,-53.4099 -73.1672,-53.4267 -72.9834,-53.4479 -73.0099,-53.3969 -73.0526,-53.3594 -72.9558,-53.3402 -72.88,-53.3454 -72.7918,-53.367 -72.7538,-53.476 -72.7697,-53.5212 -72.7882,-53.5592 -72.7563,-53.6159 -72.697,-53.5109 -72.6889,-53.4792 -72.7162,-53.4422 -72.7405,-53.4039 -72.6673,-53.4198 -72.6153,-53.4586 -72.5542,-53.542 -72.469,-53.5014 -72.3675,-53.5099 -72.3214,-53.5273 -72.2828,-53.5671 -72.2871,-53.595 -72.3175,-53.593 -72.3465,-53.5992 -72.3643,-53.6195 -72.322,-53.6864 -72.2883,-53.657 -72.2522,-53.6307 -72.142,-53.6571 -72.1187,-53.6677 -72.0231,-53.7416 -72.0577,-53.7561 -72.0751,-53.7588 -72.094,-53.7999 -72.1269,-53.8128 -72.1522,-53.8111 -72.2322,-53.8011 -72.2969,-53.8337 -72.2954,-53.9052 -72.2765,-53.915 -72.2353,-53.9263 -72.2032,-53.932 -72.2073,-53.9782 -72.3098,-53.9848 -72.4154,-54.0385 -72.4407,-54.0385 -72.4623,-54.0326 -72.5038,-54.0027 -72.5884,-54.029 -72.7021,-54.0729 -72.7535,-54.0721 -72.874,-54.0369 -72.9043,-54.0167 -72.8841,-54.0 -72.7702,-53.9986 -72.6558,-53.954 -72.6075,-53.7825 -72.6815,-53.7591 -72.709,-53.7696 -72.7732,-53.8035 -72.8044,-53.812 -72.8918,-53.8084 -72.8982,-53.7858 -72.9017,-53.7596 -72.9383,-53.7507 -72.9798,-53.8548 -72.9807,-53.8793 -73.0107,-53.9481 -73.1016,-53.924 -73.1367,-53.8724 -73.171,-53.8164 -73.193,-53.7771 -73.1873,-53.7656 -73.1873,-53.7656 15,-3.0,Chile -73.7201,-53.5286 -73.7316,-53.5247 -73.753,-53.476 -73.7419,-53.3979 -73.732,-53.39 -73.7189,-53.391 -73.5892,-53.4451 -73.5683,-53.4565 -73.5703,-53.4693 -73.5784,-53.4783 -73.6797,-53.5193 -73.6943,-53.524 -73.7104,-53.5273 -73.7201,-53.5286 -73.7201,-53.5286 84,-3.0,Chile -70.4028,-54.1295 -70.3974,-54.1546 -70.4063,-54.1649 -70.4155,-54.1632 -70.4999,-54.1429 -70.5405,-54.132 -70.5788,-54.1193 -70.5911,-54.1131 -70.682,-54.0632 -70.7011,-54.0505 -70.7608,-53.9858 -70.78,-53.8854 -70.7812,-53.8729 -70.7805,-53.8164 -70.7728,-53.8072 -70.7192,-53.7837 -70.6694,-53.7723 -70.6535,-53.7742 -70.5843,-53.7878 -70.5672,-53.7914 -70.5453,-53.8031 -70.5328,-53.8063 -70.5226,-53.8072 -70.5042,-53.8011 -70.491,-53.7878 -70.4904,-53.7753 -70.5,-53.7611 -70.518,-53.7475 -70.5314,-53.7417 -70.5749,-53.7293 -70.5844,-53.7211 -70.5901,-53.7074 -70.5943,-53.6422 -70.5888,-53.6279 -70.5586,-53.6222 -70.5442,-53.6172 -70.5312,-53.6113 -70.5137,-53.6013 -70.5024,-53.5942 -70.4915,-53.5866 -70.4774,-53.5746 -70.4697,-53.5653 -70.4615,-53.549 -70.454,-53.5291 -70.4463,-53.5161 -70.4378,-53.5073 -70.4221,-53.4994 -70.3759,-53.4949 -70.36,-53.5047 -70.3647,-53.5782 -70.3689,-53.5896 -70.3743,-53.6008 -70.3771,-53.6129 -70.3784,-53.6334 -70.3779,-53.6466 -70.3748,-53.6585 -70.3251,-53.7975 -70.2672,-53.8844 -70.2304,-53.9442 -70.2341,-53.9593 -70.2545,-53.9728 -70.2759,-53.9774 -70.3136,-53.9784 -70.3241,-53.9779 -70.3425,-53.9746 -70.3587,-53.9703 -70.3858,-53.9589 -70.4169,-53.9424 -70.4435,-53.9173 -70.4563,-53.9078 -70.5506,-53.8523 -70.5571,-53.8634 -70.5569,-53.8765 -70.5448,-53.9094 -70.538,-53.9195 -70.5305,-53.9284 -70.5104,-53.9439 -70.4933,-53.9546 -70.4831,-53.9623 -70.4637,-53.9816 -70.4208,-54.0635 -70.4136,-54.0799 -70.4028,-54.1295 -70.4028,-54.1295 62,-3.0,Chile -71.5521,-53.8808 -71.602,-53.9112 -71.5913,-53.9229 -71.5691,-53.936 -71.5335,-54.0178 -71.537,-54.0341 -71.5949,-54.0849 -71.613,-54.0984 -71.6271,-54.1005 -71.6372,-54.0995 -71.6742,-54.0927 -71.6891,-54.0876 -71.7014,-54.0809 -71.717,-54.0697 -71.7885,-54.0028 -71.8016,-53.9902 -71.8035,-53.9745 -71.7995,-53.9532 -71.8078,-53.944 -71.8233,-53.9448 -71.8345,-53.9593 -71.8356,-53.972 -71.8305,-53.9857 -71.7958,-54.0556 -71.7597,-54.0823 -71.7458,-54.0876 -71.7215,-54.0952 -71.6233,-54.1676 -71.6227,-54.183 -71.6322,-54.1948 -71.711,-54.271 -71.7217,-54.275 -71.7365,-54.2749 -71.8211,-54.2635 -71.8396,-54.2427 -71.8299,-54.2012 -71.8267,-54.1889 -71.9084,-54.1405 -71.984,-54.0955 -72.0752,-54.038 -72.0884,-54.0283 -72.0979,-54.017 -72.1038,-54.0074 -72.1328,-53.9014 -72.1371,-53.8792 -72.1325,-53.8629 -72.0902,-53.8578 -72.0797,-53.8576 -72.0694,-53.8587 -72.008,-53.8738 -71.9944,-53.8833 -71.982,-53.9029 -71.9401,-53.9024 -71.8884,-53.8294 -71.8727,-53.8015 -71.8469,-53.7931 -71.8264,-53.7881 -71.6058,-53.8359 -71.5376,-53.8569 -71.542,-53.8728 -71.5521,-53.8808 -71.5521,-53.8808 46,-3.0,Chile -71.1626,-53.9501 -71.1387,-54.0125 -71.0576,-54.023 -70.9683,-53.9998 -70.9003,-54.0277 -70.8912,-54.0394 -70.8727,-54.1153 -70.8679,-54.2067 -70.988,-54.3156 -71.0003,-54.3219 -71.0185,-54.3212 -71.0359,-54.3108 -71.074,-54.2821 -71.1311,-54.2742 -71.2251,-54.2489 -71.3209,-54.144 -71.3263,-54.1271 -71.3187,-54.1107 -71.3065,-54.1039 -71.2751,-54.1025 -71.2602,-54.0977 -71.2532,-54.0898 -71.2919,-54.0529 -71.374,-54.0931 -71.4117,-54.1592 -71.4173,-54.17 -71.4202,-54.1918 -71.5216,-54.1783 -71.5391,-54.171 -71.5605,-54.1398 -71.5657,-54.1294 -71.5707,-54.1191 -71.5787,-54.1005 -71.5742,-54.0869 -71.5156,-54.0447 -71.541,-53.929 -71.5296,-53.9065 -71.5085,-53.8913 -71.4927,-53.8838 -71.4502,-53.8785 -71.35,-53.88 -71.2576,-53.904 -71.1808,-53.9285 -71.1719,-53.9334 -71.1626,-53.9501 -71.1626,-53.9501 16,-3.0,Chile -73.1501,-54.0722 -73.2123,-54.0519 -73.3351,-54.0189 -73.3458,-54.0084 -73.2673,-53.9655 -73.2302,-53.9648 -73.1976,-53.9659 -73.1294,-53.9715 -73.1167,-53.9749 -73.0615,-53.993 -73.0565,-54.0036 -73.0399,-54.0525 -73.0542,-54.0629 -73.0718,-54.0652 -73.1501,-54.0722 -73.1501,-54.0722 18,-3.0,Chile -70.2362,-54.0924 -70.2465,-54.0916 -70.2603,-54.086 -70.3347,-54.0539 -70.3632,-54.0359 -70.3767,-54.0235 -70.3814,-54.0097 -70.3748,-53.9998 -70.3646,-53.9956 -70.1958,-53.9764 -70.1869,-53.9847 -70.1756,-54.0037 -70.1695,-54.0237 -70.1927,-54.0631 -70.2076,-54.0823 -70.2195,-54.0889 -70.2362,-54.0924 -70.2362,-54.0924 18,-3.0,Chile -72.1736,-54.0153 -72.118,-54.0453 -72.0874,-54.082 -72.131,-54.1371 -72.1805,-54.1897 -72.2008,-54.1942 -72.3085,-54.1982 -72.3469,-54.1948 -72.3685,-54.1867 -72.3797,-54.1792 -72.3897,-54.1393 -72.266,-54.0281 -72.2458,-54.0158 -72.2113,-54.0056 -72.1852,-54.007 -72.1759,-54.012 -72.1736,-54.0153 -72.1736,-54.0153 21,-3.0,Chile -70.4028,-54.1295 -70.3992,-54.1151 -70.3932,-54.0973 -70.3841,-54.0852 -70.3705,-54.0832 -70.3505,-54.0858 -70.1751,-54.127 -70.1172,-54.1488 -70.0997,-54.1655 -70.102,-54.181 -70.114,-54.1931 -70.1396,-54.2088 -70.1527,-54.2115 -70.1634,-54.212 -70.1749,-54.2119 -70.1963,-54.2097 -70.3305,-54.1776 -70.3499,-54.1711 -70.3896,-54.1363 -70.4028,-54.1295 -70.4028,-54.1295 13,-3.0,Chile -72.341,-54.3659 -72.3531,-54.3625 -72.4029,-54.3236 -72.4183,-54.2818 -72.3068,-54.2441 -72.2846,-54.2458 -72.1776,-54.2715 -72.1726,-54.282 -72.1824,-54.3027 -72.2522,-54.321 -72.2635,-54.3206 -72.341,-54.3659 -72.341,-54.3659 41,-3.0,Argentina -64.5674,-54.8425 -64.5586,-54.8048 -64.5926,-54.7827 -64.6165,-54.7798 -64.64,-54.7784 -64.6449,-54.7671 -64.6302,-54.7419 -64.5824,-54.7125 -64.5577,-54.7105 -64.5383,-54.7164 -64.5138,-54.7294 -64.4991,-54.7343 -64.4881,-54.7348 -64.4061,-54.7189 -64.2688,-54.6837 -64.2279,-54.6634 -64.0591,-54.6785 -63.9139,-54.668 -63.8113,-54.6499 -63.7992,-54.6493 -63.7137,-54.656 -63.705,-54.6641 -63.7597,-54.7198 -63.8457,-54.7476 -63.8665,-54.7265 -63.9022,-54.714 -63.9312,-54.7254 -64.026,-54.7543 -64.1476,-54.7765 -64.1583,-54.7634 -64.1556,-54.7415 -64.2167,-54.7243 -64.2393,-54.7386 -64.3129,-54.7754 -64.3423,-54.7823 -64.353,-54.7834 -64.3749,-54.7826 -64.4666,-54.8033 -64.5288,-54.8367 -64.5674,-54.8425 -64.5674,-54.8425 24,-3.0,Chile -70.9383,-54.8905 -70.9549,-54.8898 -71.0277,-54.8694 -71.0832,-54.8419 -71.2022,-54.8858 -71.2179,-54.8899 -71.2845,-54.8789 -71.332,-54.8189 -71.2793,-54.7622 -71.2313,-54.7648 -71.0779,-54.7839 -71.013,-54.7959 -70.9853,-54.8072 -70.9516,-54.8156 -70.9269,-54.8132 -70.9049,-54.8053 -70.8892,-54.7938 -70.8771,-54.792 -70.8252,-54.8144 -70.7941,-54.8613 -70.8142,-54.8666 -70.8475,-54.8674 -70.9383,-54.8905 -70.9383,-54.8905 17,-3.0,Chile -70.3453,-54.7753 -70.3205,-54.7795 -70.3005,-54.7855 -70.2765,-54.8045 -70.2874,-54.8152 -70.2999,-54.8178 -70.4835,-54.8397 -70.5579,-54.8397 -70.61,-54.8217 -70.6239,-54.8076 -70.6097,-54.7992 -70.5763,-54.7877 -70.469,-54.77 -70.3946,-54.7653 -70.35,-54.7741 -70.3453,-54.7753 -70.3453,-54.7753 24,-3.0,Chile -69.7863,-54.978 -69.7782,-54.9499 -69.7794,-54.9378 -69.7971,-54.9155 -69.8265,-54.91 -69.832,-54.8952 -69.8097,-54.8323 -69.7999,-54.8281 -69.7404,-54.8152 -69.7301,-54.8136 -69.6206,-54.8031 -69.5673,-54.8042 -69.2847,-54.8392 -69.2561,-54.8436 -69.0877,-54.8746 -69.0502,-54.8953 -69.0678,-54.9022 -69.1004,-54.904 -69.2873,-54.9307 -69.3847,-54.9477 -69.5322,-54.9628 -69.6425,-54.9736 -69.7863,-54.978 -69.7863,-54.978 69,-3.0,Chile -70.2305,-54.8341 -70.2025,-54.8361 -70.1928,-54.8421 -70.3227,-54.8769 -70.3654,-54.8798 -70.3851,-54.8893 -70.3878,-54.9053 -70.3843,-54.9223 -70.3929,-54.9315 -70.4829,-54.9404 -70.5034,-54.942 -70.5381,-54.9405 -70.5649,-54.9351 -70.5874,-54.9274 -70.5993,-54.9311 -70.6113,-54.948 -70.5314,-54.9671 -70.3697,-54.9791 -70.2423,-54.9673 -70.2267,-54.9664 -70.175,-54.9652 -70.1651,-54.9683 -70.1588,-54.9878 -70.1435,-55.0481 -70.1733,-55.0647 -70.1997,-55.0665 -70.2131,-55.0637 -70.2255,-55.0573 -70.2343,-55.0421 -70.2598,-55.0256 -70.28,-55.0234 -70.2905,-55.0212 -70.3242,-55.037 -70.3276,-55.0602 -70.3182,-55.0685 -70.2914,-55.0771 -70.2696,-55.0789 -70.2585,-55.0831 -70.252,-55.0926 -70.2623,-55.1068 -70.4095,-55.1458 -70.4282,-55.1443 -70.438,-55.1365 -70.4439,-55.1227 -70.4464,-55.1046 -70.4462,-55.0792 -70.429,-55.057 -70.4858,-55.0179 -70.5779,-55.0627 -70.5996,-55.0603 -70.8155,-55.0132 -70.8865,-54.9799 -70.8942,-54.9018 -70.8806,-54.8924 -70.8661,-54.8873 -70.756,-54.8733 -70.6742,-54.8841 -70.6318,-54.8921 -70.5851,-54.9052 -70.4607,-54.9077 -70.4437,-54.9023 -70.4685,-54.8958 -70.4988,-54.8882 -70.4916,-54.8783 -70.3908,-54.8447 -70.3776,-54.8422 -70.3168,-54.8408 -70.2305,-54.8341 -70.2305,-54.8341 81,-3.0,Chile -67.9495,-55.1724 -67.9565,-55.1729 -67.9783,-55.1718 -67.9947,-55.1675 -68.0092,-55.1618 -68.0275,-55.1518 -68.0346,-55.1423 -68.074,-55.0353 -68.0674,-55.0185 -68.09,-54.924 -68.1092,-54.9266 -68.2006,-54.9296 -68.2307,-54.908 -68.2441,-54.8731 -68.2275,-54.8601 -68.2162,-54.8565 -68.0947,-54.8446 -68.0836,-54.8439 -67.9499,-54.8427 -67.8542,-54.8433 -67.7517,-54.8502 -67.6643,-54.855 -67.5262,-54.8585 -67.463,-54.855 -67.4405,-54.8538 -67.3262,-54.8538 -67.3142,-54.8536 -67.2711,-54.8563 -67.2032,-54.8654 -67.1662,-54.8714 -67.1327,-54.8797 -67.1086,-54.886 -67.07,-54.8984 -67.0518,-54.9082 -67.0422,-54.9168 -66.9407,-55.0071 -66.9387,-55.0712 -66.9443,-55.0813 -66.9647,-55.1148 -66.978,-55.1307 -66.9873,-55.1393 -67.1181,-55.2388 -67.1279,-55.2434 -67.1714,-55.2467 -67.1834,-55.2467 -67.2846,-55.2291 -67.3016,-55.2253 -67.3229,-55.2172 -67.3364,-55.2076 -67.3434,-55.1975 -67.3407,-55.1813 -67.3203,-55.1671 -67.3091,-55.1563 -67.3064,-55.1458 -67.3138,-55.1364 -67.3343,-55.1239 -67.3549,-55.1151 -67.3809,-55.1097 -67.4103,-55.1056 -67.4304,-55.1051 -67.4494,-55.1078 -67.4831,-55.1163 -67.4948,-55.1233 -67.5044,-55.1313 -67.5153,-55.1458 -67.5252,-55.1707 -67.5223,-55.1953 -67.5336,-55.2026 -67.5495,-55.2042 -67.6814,-55.1988 -67.6925,-55.1981 -67.7103,-55.1948 -67.7639,-55.1765 -67.7487,-55.1654 -67.7355,-55.1654 -67.7369,-55.1477 -67.7674,-55.1167 -67.7861,-55.1208 -67.9171,-55.1615 -67.9495,-55.1724 -67.9495,-55.1724 17,-3.0,Chile -70.0428,-54.9448 -70.0535,-54.9437 -70.0682,-54.939 -70.0832,-54.9298 -70.0831,-54.9195 -70.0695,-54.9101 -70.0574,-54.9033 -69.9132,-54.8585 -69.8966,-54.8544 -69.8814,-54.855 -69.8718,-54.8597 -69.8596,-54.8706 -69.8587,-54.8854 -69.893,-54.9156 -69.9873,-54.9374 -70.0428,-54.9448 -70.0428,-54.9448 150,-3.0,Chile -67.949,-55.4039 -67.9906,-55.4565 -67.9284,-55.5156 -67.8981,-55.5224 -67.8497,-55.5263 -67.8616,-55.6061 -67.9354,-55.6466 -67.9483,-55.6522 -67.9802,-55.65 -67.9937,-55.6354 -68.0266,-55.606 -68.105,-55.5547 -68.1443,-55.5056 -68.1327,-55.4688 -68.2425,-55.4159 -68.2623,-55.4122 -68.2961,-55.4359 -68.3535,-55.4385 -68.4208,-55.4039 -68.4894,-55.4014 -68.6103,-55.4023 -68.6505,-55.431 -68.7051,-55.4442 -68.7305,-55.4442 -68.7749,-55.4247 -68.8199,-55.3941 -68.8487,-55.3614 -68.8157,-55.3329 -68.7489,-55.3216 -68.7229,-55.3193 -68.6983,-55.325 -68.6645,-55.3206 -68.6508,-55.2702 -68.7785,-55.2958 -68.7936,-55.2766 -68.7746,-55.22 -68.7444,-55.1694 -68.7037,-55.144 -68.6942,-55.1247 -68.8511,-55.1948 -68.9139,-55.2038 -69.027,-55.1837 -69.0524,-55.1746 -69.0797,-55.1595 -69.1019,-55.1381 -69.1303,-55.0721 -69.2591,-55.0856 -69.2854,-55.0908 -69.3078,-55.1001 -69.245,-55.0972 -69.1762,-55.1012 -69.1474,-55.1611 -69.2531,-55.1838 -69.2687,-55.2252 -69.1833,-55.3008 -69.1801,-55.362 -69.0922,-55.3737 -69.023,-55.3763 -69.0312,-55.4354 -69.0489,-55.446 -69.2038,-55.4232 -69.307,-55.4343 -69.3725,-55.3473 -69.3461,-55.313 -69.2933,-55.3056 -69.2752,-55.296 -69.3463,-55.2736 -69.3732,-55.2724 -69.4535,-55.3123 -69.4917,-55.2694 -69.5823,-55.2459 -69.5764,-55.215 -69.5461,-55.1812 -69.4694,-55.1462 -69.4423,-55.1418 -69.4096,-55.1331 -69.3859,-55.1136 -69.4261,-55.1133 -69.4701,-55.1291 -69.5616,-55.1696 -69.7113,-55.1942 -69.7367,-55.195 -69.7983,-55.161 -69.7433,-55.1553 -69.7218,-55.1452 -69.7832,-55.1072 -69.8941,-55.1042 -69.9112,-55.0936 -69.8893,-55.0647 -69.8111,-55.0136 -69.7755,-55.0034 -69.6733,-54.9898 -69.6314,-54.9869 -69.5233,-54.9799 -69.2439,-54.9499 -69.0746,-54.9246 -68.8727,-54.9148 -68.7133,-54.9182 -68.69,-54.9155 -68.6482,-54.8966 -68.6199,-54.884 -68.5401,-54.8753 -68.3933,-54.8666 -68.2874,-54.8907 -68.225,-54.9394 -68.209,-54.9789 -68.2209,-55.005 -68.4497,-55.0657 -68.4678,-55.0812 -68.5269,-55.09 -68.6501,-55.0707 -68.7012,-55.0521 -68.7366,-55.0313 -68.7688,-55.0153 -68.7887,-55.0062 -68.9015,-54.9614 -68.9225,-54.9612 -68.9414,-54.9853 -68.8459,-55.0471 -68.776,-55.072 -68.6586,-55.1116 -68.4795,-55.1163 -68.3292,-55.1177 -68.2637,-55.1203 -68.1603,-55.1598 -68.0914,-55.2037 -68.097,-55.2227 -68.3943,-55.2479 -68.4483,-55.2485 -68.4698,-55.2472 -68.4933,-55.2433 -68.5134,-55.2271 -68.5323,-55.2003 -68.5571,-55.1875 -68.5868,-55.1877 -68.622,-55.2034 -68.4821,-55.2891 -68.4273,-55.2802 -68.3979,-55.2694 -68.3731,-55.2627 -68.3426,-55.2598 -68.2933,-55.265 -68.2261,-55.2815 -68.0455,-55.3316 -68.0272,-55.3524 -68.0349,-55.3802 -68.0506,-55.4007 -68.0084,-55.4081 -67.949,-55.4039 -67.949,-55.4039 15,-3.0,Chile -66.9014,-54.9322 -66.8529,-54.9401 -66.7444,-54.9631 -66.7316,-54.973 -66.692,-55.049 -66.7069,-55.0533 -66.726,-55.0484 -66.949,-54.9602 -66.96,-54.9464 -66.9546,-54.9359 -66.9461,-54.9303 -66.9263,-54.928 -66.9073,-54.9307 -66.9014,-54.9322 -66.9014,-54.9322 15,-3.0,Chile -66.4673,-55.2202 -66.5137,-55.2134 -66.5235,-55.2051 -66.5292,-55.1879 -66.5299,-55.1777 -66.5131,-55.1367 -66.4261,-55.1006 -66.4031,-55.0997 -66.3877,-55.1008 -66.3185,-55.1194 -66.3065,-55.1368 -66.3974,-55.2029 -66.4567,-55.2194 -66.4673,-55.2202 -66.4673,-55.2202 19,-3.0,Chile -66.7546,-55.1672 -66.735,-55.1794 -66.7123,-55.2287 -66.7277,-55.2522 -66.7593,-55.2669 -66.7784,-55.2697 -66.8013,-55.2692 -66.887,-55.2665 -66.9365,-55.264 -66.946,-55.2591 -66.9566,-55.2101 -66.9282,-55.1835 -66.9055,-55.1759 -66.8273,-55.1586 -66.7998,-55.157 -66.7805,-55.1593 -66.7635,-55.1635 -66.7546,-55.1672 -66.7546,-55.1672 17,-3.0,Chile -67.611,-55.5586 -67.6212,-55.5511 -67.5853,-55.4484 -67.5709,-55.436 -67.5492,-55.4279 -67.5348,-55.4284 -67.5179,-55.4389 -67.5068,-55.4463 -67.4909,-55.4577 -67.4814,-55.466 -67.471,-55.4822 -67.4734,-55.5166 -67.524,-55.5384 -67.5457,-55.5476 -67.5724,-55.5529 -67.611,-55.5586 -67.611,-55.5586 18,-3.0,Chile -67.2217,-55.7246 -67.2205,-55.6943 -67.2295,-55.6893 -67.2832,-55.6816 -67.3428,-55.6903 -67.435,-55.6716 -67.4389,-55.6464 -67.4259,-55.5977 -67.3123,-55.527 -67.2538,-55.5098 -67.2363,-55.5095 -67.151,-55.6553 -67.1348,-55.6947 -67.1393,-55.7058 -67.1622,-55.7169 -67.1838,-55.7219 -67.2217,-55.7246 -67.2217,-55.7246 26,-3.0,Chile -67.4939,-55.8359 -67.5261,-55.7875 -67.5371,-55.7832 -67.5955,-55.7834 -67.6649,-55.7953 -67.7133,-55.803 -67.7265,-55.7996 -67.736,-55.7915 -67.7371,-55.7757 -67.7226,-55.7551 -67.6907,-55.7503 -67.6797,-55.7493 -67.6532,-55.7549 -67.6335,-55.7579 -67.5933,-55.7622 -67.4888,-55.7636 -67.4507,-55.7472 -67.4392,-55.7443 -67.3939,-55.7515 -67.3768,-55.7641 -67.4059,-55.8105 -67.4168,-55.818 -67.464,-55.8092 -67.476,-55.8097 -67.4939,-55.8359 -67.4939,-55.8359 12,-3.0,Chile -67.1298,-55.8287 -67.2324,-55.7973 -67.2939,-55.7682 -67.2876,-55.7541 -67.2769,-55.7496 -67.2586,-55.746 -67.2029,-55.7486 -67.1299,-55.7617 -67.0952,-55.7895 -67.0916,-55.8247 -67.1298,-55.8287 -67.1298,-55.8287 19,2.0,Andorra 1.4439,42.5538 1.4847,42.6023 1.5576,42.6077 1.696,42.578 1.7364,42.5684 1.7792,42.5218 1.7691,42.5229 1.7394,42.5126 1.7218,42.4735 1.7212,42.4616 1.7165,42.4552 1.6556,42.4217 1.5354,42.3886 1.5102,42.3886 1.4497,42.3983 1.4223,42.4455 1.4194,42.4977 1.4327,42.5285 1.4439,42.5538 10,2.0,San Marino 12.4874,43.9371 12.4423,43.9336 12.3984,43.9083 12.3897,43.9019 12.3929,43.8632 12.4541,43.8492 12.4777,43.8649 12.479,43.8735 12.4937,43.8916 12.4874,43.9371 2581,-3.0,Antarctica -65.4477,-72.7927 -65.4108,-72.7877 -65.5418,-72.6859 -65.6167,-72.5756 -65.5447,-72.4888 -65.4126,-72.248 -65.406,-72.1176 -65.5495,-71.8377 -65.4327,-71.7099 -65.2459,-71.6909 -65.2107,-71.6248 -65.2757,-71.5058 -65.4369,-71.3319 -65.3648,-71.2788 -65.2786,-71.2658 -65.1188,-71.2157 -65.0227,-71.1056 -65.4029,-70.6839 -65.167,-70.5437 -65.1577,-70.387 -65.2366,-70.3137 -65.2569,-70.2399 -65.3717,-70.1977 -65.8279,-69.8929 -65.8289,-69.8158 -65.7618,-69.7629 -65.5069,-69.7046 -65.5099,-69.6278 -65.3988,-69.5495 -65.3989,-69.4897 -65.3587,-69.3706 -65.328,-69.3056 -65.2649,-69.2958 -65.2769,-69.2717 -65.2258,-69.2378 -65.1947,-69.1716 -65.299,-69.061 -65.4245,-69.0047 -65.9477,-68.8517 -66.0147,-68.6577 -65.9407,-68.551 -66.0057,-68.4508 -66.0507,-68.382 -66.0397,-68.3457 -66.102,-68.2619 -66.1047,-68.2287 -66.188,-68.1565 -66.1476,-68.0989 -66.1026,-68.0149 -66.1617,-67.9477 -66.0886,-67.9348 -66.1078,-67.426 -66.1506,-67.3566 -66.245,-67.2106 -66.2327,-67.1745 -66.2559,-67.0768 -66.1987,-66.9897 -66.2279,-66.9948 -66.2408,-66.9208 -66.2908,-66.7508 -66.2707,-66.7387 -66.3328,-66.6807 -66.3957,-66.6068 -66.6438,-66.4977 -66.766,-66.4609 -66.8248,-66.4199 -67.144,-65.9167 -67.1609,-65.852 -67.1339,-65.8296 -67.2198,-65.5998 -67.2466,-65.5877 -67.2549,-65.5638 -67.3226,-65.5756 -67.3837,-65.5608 -67.4516,-65.5557 -67.5477,-65.5389 -67.6026,-65.4989 -67.6986,-65.4478 -67.68,-65.3687 -67.6818,-65.2848 -67.6967,-65.2197 -67.6967,-65.2369 -67.7108,-65.2048 -67.6447,-65.1597 -67.686,-65.1169 -67.6939,-65.0588 -67.727,-65.0555 -67.8017,-64.9769 -67.7755,-64.9549 -67.7576,-64.8428 -67.7119,-64.843 -67.6869,-64.7708 -67.6179,-64.6648 -67.5255,-64.6487 -67.5046,-64.4758 -67.5518,-64.4248 -67.6626,-64.3867 -68.2129,-64.427 -68.8088,-64.4147 -69.1447,-64.3886 -69.2139,-64.3418 -69.275,-64.2519 -69.2286,-64.2027 -69.2517,-64.1397 -69.1019,-64.055 -69.028,-63.9337 -69.0447,-63.8777 -68.93,-63.6156 -68.8988,-63.6188 -68.7815,-63.414 -68.775,-63.387 -68.5447,-63.3696 -68.3577,-63.353 -68.308,-63.3266 -68.2948,-63.2068 -68.3136,-63.1676 -68.2888,-62.9277 -68.3427,-62.7619 -68.343,-62.7789 -68.3857,-62.8289 -68.3556,-62.832 -68.4035,-62.7226 -68.3859,-62.6779 -68.5827,-62.4718 -68.697,-62.4177 -68.9297,-62.3686 -69.0657,-62.3019 -69.1006,-62.2918 -69.0996,-62.2589 -69.1449,-62.1497 -69.0278,-62.0359 -68.9926,-62.0466 -68.9396,-62.0449 -68.9398,-62.0616 -68.8207,-62.0557 -68.8448,-62.0437 -68.7737,-62.0469 -68.7316,-62.0137 -68.5828,-61.96 -68.4768,-61.9568 -68.453,-61.9349 -68.4179,-61.9617 -68.3757,-61.9617 -68.1928,-61.8506 -68.1818,-61.7818 -68.1228,-61.7028 -68.0997,-61.6138 -68.0647,-61.624 -68.0368,-61.5418 -68.0316,-61.4149 -67.9978,-61.3578 -68.0328,-61.3138 -68.0098,-61.2087 -68.057,-61.0997 -68.1097,-60.8838 -68.036,-60.8437 -67.911,-60.8009 -67.9117,-60.7678 -67.8558,-60.7388 -67.7948,-60.6166 -67.8247,-60.5299 -67.7398,-60.5209 -67.6897,-60.5358 -67.5537,-60.5407 -67.4687,-60.5649 -67.3357,-60.5027 -67.2599,-60.4186 -67.2317,-60.4209 -67.156,-60.3698 -67.1056,-60.3509 -67.0586,-60.2806 -67.1038,-60.1128 -66.9889,-60.0796 -66.9518,-60.0456 -66.8849,-60.0479 -66.858,-60.0328 -66.7426,-60.0158 -66.6349,-59.9749 -66.5778,-59.9957 -66.5008,-59.9947 -66.4427,-59.9557 -66.4306,-59.9709 -66.3228,-59.929 -65.9245,-59.9388 -65.9368,-59.9249 -65.8676,-59.9599 -65.802,-59.9607 -65.7729,-59.9796 -65.6878,-60.0028 -65.6589,-60.0217 -65.6137,-60.0279 -65.5008,-59.9929 -65.4095,-59.902 -65.3967,-59.917 -65.3467,-59.8698 -65.2785,-59.7248 -65.1916,-59.6599 -65.2037,-59.6458 -65.0658,-59.5516 -64.9479,-59.5396 -64.7659,-59.5548 -64.614,-59.5509 -64.4869,-59.4758 -64.5158,-59.3707 -64.5179,-59.3106 -64.5527,-59.1986 -64.4626,-59.0978 -64.444,-59.0758 -64.3779,-59.0497 -64.2239,-59.036 -64.1098,-58.9627 -63.9927,-58.88 -64.0078,-58.8917 -63.694,-58.7737 -63.3218,-58.6639 -63.1338,-58.5507 -62.9317,-58.4936 -62.8807,-58.4797 -62.7729,-58.405 -62.6788,-58.3699 -62.652,-58.3178 -62.697,-58.1467 -62.7989,-58.1048 -63.7557,-58.1977 -63.8009,-58.176 -64.1368,-58.276 -64.3889,-58.4038 -64.7907,-58.6638 -64.8409,-58.6937 -65.3197,-58.8408 -65.4167,-58.8309 -65.6029,-58.8338 -65.7998,-58.8397 -65.9407,-58.8656 -66.0377,-58.8548 -66.176,-58.9477 -66.2189,-59.0179 -66.4125,-59.0886 -66.641,-59.134 -67.0637,-59.1716 -67.0788,-59.2008 -67.1757,-59.206 -67.2977,-59.2589 -67.4199,-59.3288 -67.4786,-59.3328 -67.4997,-59.3719 -67.6337,-59.4429 -67.7727,-59.5749 -67.8319,-59.63 -68.164,-59.911 -68.2128,-59.9128 -68.2579,-59.9388 -68.3178,-59.9426 -68.3289,-59.9628 -68.3959,-59.9599 -68.6109,-59.9619 -68.6487,-59.9447 -68.6927,-59.9369 -68.9468,-59.9379 -68.9456,-59.9216 -68.9849,-59.904 -69.1119,-60.1297 -69.173,-60.3099 -69.248,-60.3657 -69.2426,-60.39 -69.4087,-60.4968 -69.4149,-60.6316 -69.4386,-60.6867 -69.4527,-60.7558 -69.4199,-60.7656 -69.602,-60.8929 -69.683,-60.9246 -69.6729,-60.956 -69.7958,-61.1289 -70.0579,-61.5508 -70.066,-61.6678 -70.1259,-61.6958 -70.1517,-61.7329 -70.3025,-61.8758 -70.3406,-61.9907 -70.3688,-62.0447 -70.3608,-62.0938 -70.539,-62.091 -70.655,-62.0616 -70.6927,-62.0847 -70.9618,-62.1627 -71.0029,-62.2196 -71.033,-62.216 -71.1747,-62.322 -71.271,-62.3789 -71.4336,-62.5376 -71.417,-62.6006 -71.4726,-62.816 -71.4567,-62.8947 -71.5267,-63.0126 -71.5887,-63.0639 -71.5689,-63.0526 -71.756,-63.4026 -71.8319,-63.4546 -71.8299,-63.5367 -71.8027,-63.6149 -71.5857,-63.9359 -71.6047,-63.9879 -71.7578,-64.176 -72.138,-64.518 -72.2647,-64.6269 -72.3188,-64.6747 -72.6049,-64.8127 -72.7187,-64.968 -72.7877,-65.0589 -72.8308,-65.5468 -72.7479,-65.724 -72.6049,-65.9179 -72.4757,-66.007 -72.3626,-66.1147 -72.1529,-66.4067 -72.1038,-66.4488 -71.8969,-66.7497 -71.846,-66.9726 -71.7959,-67.0736 -71.5078,-67.3397 -71.3976,-67.548 -71.4789,-68.2166 -71.5018,-68.269 -71.4919,-68.4568 -71.5617,-68.4579 -71.6638,-68.6189 -72.3069,-69.1799 -72.5916,-69.286 -73.0508,-69.4269 -73.4186,-69.6379 -73.7059,-69.7328 -74.1708,-69.8617 -74.2366,-69.917 -74.4288,-70.0009 -74.5256,-70.0179 -74.7448,-70.0227 -74.923,-70.007 -74.9807,-69.9807 -75.4726,-69.9126 -76.8527,-69.8468 -78.2297,-69.8189 -78.9939,-69.9048 -79.3978,-69.8597 -79.5169,-69.8039 -79.8397,-69.7697 -80.4598,-69.6328 -80.899,-69.6036 -81.4419,-69.6178 -81.7008,-69.5919 -82.0038,-69.5839 -82.4456,-69.4867 -82.8508,-69.3328 -83.0876,-69.2489 -83.3637,-69.1978 -83.4659,-69.2018 -83.5996,-69.1609 -83.658,-69.1388 -83.7219,-69.0397 -83.8328,-69.0129 -84.1287,-69.0555 -84.1079,-69.0706 -84.5127,-69.0928 -84.534,-69.0778 -84.7136,-69.0448 -84.8078,-69.0089 -85.0,-68.8509 -85.1669,-68.7858 -85.2126,-68.7316 -85.3517,-68.7128 -85.5039,-68.7098 -85.7448,-68.7638 -85.7967,-68.757 -86.1326,-68.8518 -86.2028,-68.8377 -86.1837,-68.8529 -86.2187,-68.846 -86.6188,-68.8789 -86.9627,-68.8386 -88.1437,-68.8498 -88.3827,-68.8139 -88.5538,-68.7689 -88.7226,-68.7538 -88.8437,-68.7008 -89.3479,-68.6649 -91.272,-68.3948 -92.2257,-68.1888 -92.6847,-68.0636 -92.6069,-67.9557 -92.8898,-67.8887 -93.5287,-67.843 -93.6655,-67.7928 -93.7935,-67.79 -93.8377,-67.7648 -93.924,-67.7008 -93.9779,-67.6438 -94.0856,-67.6257 -94.4088,-67.6397 -94.4949,-67.6678 -94.8509,-67.6096 -95.01,-67.5338 -95.1565,-67.4818 -95.1677,-67.4577 -95.5495,-67.3339 -95.93,-67.3348 -96.4037,-67.385 -96.6266,-67.3359 -97.1189,-67.2336 -97.4327,-67.131 -97.6159,-67.114 -97.7498,-67.1847 -97.745,-67.17 -97.8179,-67.2919 -97.756,-67.2948 -97.307,-67.4758 -97.0996,-67.6279 -97.1108,-67.6116 -97.0777,-67.6608 -97.006,-67.79 -96.4139,-68.2019 -96.168,-68.322 -96.2577,-68.4599 -96.1987,-68.4857 -96.1408,-68.6917 -96.1398,-68.7469 -95.9869,-68.8628 -95.9158,-68.9126 -95.7858,-69.0586 -95.7208,-69.0687 -95.5916,-69.293 -95.5959,-69.3717 -95.6327,-69.3779 -95.566,-69.3886 -95.5739,-69.4817 -95.6148,-69.5038 -95.6627,-69.6747 -95.9978,-69.914 -96.1377,-69.9638 -96.1026,-69.9649 -96.1337,-69.9488 -96.135,-69.8937 -96.2218,-69.7717 -96.2608,-69.6139 -96.3857,-69.5067 -96.5708,-69.429 -96.6099,-69.388 -96.7349,-69.3428 -96.7419,-69.256 -96.8479,-69.2117 -96.8446,-69.1497 -96.9378,-69.0668 -96.9197,-69.0128 -97.0019,-69.0008 -97.0957,-68.9259 -97.1596,-68.9149 -97.2888,-68.9407 -97.3658,-69.0158 -97.3997,-69.0619 -97.6026,-69.2408 -97.7218,-69.2349 -97.8889,-69.1716 -98.0078,-69.0787 -98.0399,-68.9819 -98.021,-68.8886 -98.1427,-68.8506 -98.3157,-68.771 -98.3497,-68.7289 -98.5889,-68.6058 -98.6377,-68.6027 -98.6697,-68.6407 -98.7287,-68.661 -99.126,-68.9539 -99.3119,-69.1009 -99.3596,-69.1297 -99.4128,-69.2448 -99.3828,-69.2948 -99.087,-69.3749 -99.0078,-69.4348 -98.8637,-69.4668 -98.742,-69.5528 -98.7368,-69.6626 -98.878,-69.7428 -99.0418,-69.789 -99.2237,-69.9519 -99.1858,-69.9857 -98.8537,-70.0517 -98.5678,-70.1859 -98.3646,-70.393 -98.4387,-70.4367 -98.771,-70.436 -99.3378,-70.2696 -99.4799,-70.2228 -99.5227,-70.2358 -99.6319,-70.3089 -99.6089,-70.4127 -99.4416,-70.4859 -99.1747,-70.5479 -98.7357,-70.7689 -98.6528,-70.876 -98.4969,-70.9469 -98.2857,-71.1147 -98.3949,-71.3148 -98.9949,-71.2769 -99.3958,-71.1929 -99.9876,-70.9686 -100.5058,-71.0098 -100.6618,-71.0479 -101.3638,-71.2889 -101.4629,-71.2899 -102.2009,-71.4639 -102.2996,-71.4636 -102.9819,-71.5908 -103.0138,-71.5807 -103.0627,-71.5928 -103.0838,-71.5678 -103.2099,-71.5495 -103.18,-71.5358 -103.3219,-71.4847 -103.4587,-71.4827 -103.6859,-71.5208 -103.7267,-71.4699 -103.7107,-71.423 -103.8826,-71.3367 -103.9897,-71.2718 -104.0707,-71.2488 -104.0907,-71.2238 -104.2137,-71.2046 -104.605,-71.2049 -104.7147,-71.2188 -104.899,-71.2995 -104.8988,-71.3247 -105.0288,-71.4097 -105.0106,-71.4849 -105.2817,-71.6628 -105.7057,-71.617 -106.6158,-71.2466 -106.7588,-71.1439 -106.9258,-70.9387 -107.1539,-70.8257 -107.156,-70.7438 -107.2828,-70.5677 -107.2837,-70.3796 -107.0837,-70.1146 -107.1229,-69.8408 -107.037,-69.7846 -107.0947,-69.7459 -107.1829,-69.7198 -107.3108,-69.7389 -107.5578,-69.81 -107.5248,-69.813 -107.7029,-69.867 -107.7839,-69.9147 -108.0526,-69.9829 -108.1718,-69.9699 -108.548,-70.0497 -108.5819,-70.046 -108.6858,-70.0748 -108.8529,-70.2449 -108.6287,-70.3859 -108.5338,-70.4457 -108.536,-70.4866 -108.4667,-70.5938 -108.2458,-70.7259 -108.2199,-70.7778 -108.3198,-71.0377 -108.3718,-71.0898 -108.301,-71.2377 -108.4187,-71.3727 -108.757,-71.5998 -109.0939,-71.7607 -109.1749,-71.8348 -109.3586,-71.8889 -109.4869,-71.9647 -109.9659,-72.0519 -110.435,-72.0728 -110.765,-72.1348 -111.1077,-72.1347 -111.3847,-72.1858 -111.599,-72.2006 -111.7389,-72.176 -111.8218,-72.1069 -112.161,-71.9536 -112.1499,-71.8627 -112.3548,-71.6928 -112.5237,-71.628 -112.6609,-71.4749 -112.471,-71.2127 -112.503,-71.1237 -112.4048,-71.0779 -112.3326,-71.004 -112.1299,-70.9047 -111.6878,-70.5689 -111.5949,-70.4716 -111.5107,-70.417 -111.5277,-70.3807 -111.453,-70.3146 -111.5207,-70.2729 -111.7227,-70.2449 -112.034,-70.2779 -112.3356,-70.2687 -112.6889,-70.2687 -112.9887,-70.2427 -113.045,-70.1916 -113.1787,-70.1889 -113.394,-70.1567 -113.4697,-70.171 -113.9559,-70.1829 -114.4549,-70.1565 -114.6158,-70.1737 -114.8339,-70.1739 -115.3138,-70.1907 -116.1097,-70.1877 -116.3147,-70.0918 -116.4066,-69.9888 -116.4769,-69.9677 -116.6459,-69.9476 -116.8969,-69.9559 -117.0058,-69.9889 -117.1359,-70.01 -117.3688,-70.126 -117.364,-70.1087 -117.4729,-70.1685 -117.6047,-70.2149 -117.6087,-70.259 -117.736,-70.3417 -117.9918,-70.4537 -118.0889,-70.569 -118.0678,-70.6089 -118.4898,-70.8328 -118.602,-70.902 -118.733,-71.0207 -118.8998,-71.1595 -119.0249,-71.2076 -119.1186,-71.2887 -119.6056,-71.5947 -119.8019,-71.7299 -120.0318,-71.8318 -120.3869,-72.0736 -120.444,-72.1899 -120.5239,-72.2569 -120.5917,-72.3528 -120.7638,-72.4669 -121.1357,-73.1369 -121.2,-73.1806 -121.2098,-73.2337 -121.3499,-73.3369 -121.3519,-73.4096 -121.4429,-73.5118 -121.4156,-73.5348 -121.4868,-73.5689 -121.5308,-73.6249 -121.5996,-73.7047 -121.5398,-73.7238 -121.5967,-73.7508 -121.6126,-73.7937 -121.682,-73.837 -122.0568,-73.8536 -122.9639,-73.6439 -123.5939,-73.5435 -124.0529,-73.4837 -124.5279,-73.277 -124.8166,-73.1039 -124.9617,-73.045 -125.3248,-72.9599 -125.7819,-72.8718 -125.802,-72.849 -126.1519,-72.7919 -126.855,-72.7419 -127.5949,-72.799 -128.0457,-72.8807 -128.3717,-72.924 -128.699,-72.9268 -129.8497,-73.0299 -129.8349,-73.0435 -130.5216,-73.1588 -130.6927,-73.1977 -130.8136,-73.2289 -130.9048,-73.2889 -130.9436,-73.331 -130.9558,-73.4098 -131.233,-73.5688 -131.4529,-73.6588 -131.723,-73.7259 -132.2827,-73.6988 -132.6996,-73.653 -133.0698,-73.6938 -133.2559,-73.7406 -133.6677,-73.7908 -134.6348,-73.9727 -134.887,-74.0348 -134.918,-74.1148 -135.175,-74.2207 -135.2237,-74.2959 -135.508,-74.3716 -136.0549,-74.3868 -136.192,-74.3709 -136.6547,-74.3968 -137.0057,-74.4778 -137.2747,-74.5029 -138.631,-74.7637 -138.7056,-74.7649 -139.6636,-74.9005 -139.8898,-74.9267 -139.8957,-74.9327 -140.0037,-75.0007 -140.0487,-75.1327 -140.3112,-75.1893 -140.3487,-75.1901 -140.443,-75.1928 -140.4498,-75.179 -140.6139,-75.2376 -140.6627,-75.2957 -140.7109,-75.3308 -140.4077,-75.412 -140.2668,-75.4306 -140.0946,-75.435 -139.7775,-75.555 -140.1979,-75.6589 -140.2698,-75.6737 -140.75,-75.7006 -140.8109,-75.6329 -140.929,-75.6086 -140.9496,-75.5648 -141.0708,-75.4769 -141.323,-75.4728 -141.8858,-75.5696 -142.0163,-75.5873 -142.0803,-75.5996 -142.1559,-75.6229 -142.2306,-75.6998 -142.979,-75.9587 -143.7799,-76.0886 -144.1079,-76.1388 -145.1548,-76.2418 -145.4308,-76.2419 -145.7729,-76.2607 -146.1048,-76.254 -147.0477,-76.1657 -147.2259,-76.1708 -147.5969,-76.1468 -148.5249,-76.0957 -149.1549,-76.1299 -149.3666,-76.0738 -150.5517,-76.0748 -150.798,-76.0799 -151.1047,-76.1068 -151.7236,-76.1248 -151.8667,-76.1437 -152.8337,-76.2027 -152.8928,-76.2133 -153.1225,-76.2378 -153.3498,-76.2519 -153.5707,-76.2845 -153.6526,-76.2807 -153.6588,-76.2947 -153.7287,-76.2968 -153.9047,-76.3166 -153.918,-76.3466 -154.0166,-76.3507 -154.0368,-76.5196 -154.0087,-76.5507 -153.9655,-76.571 -153.9159,-76.596 -153.8029,-76.5969 -153.7017,-76.6267 -153.5567,-76.6571 -153.4627,-76.7039 -153.2217,-76.78 -152.9968,-76.7957 -152.7617,-76.7817 -152.6098,-76.7989 -152.1399,-76.7697 -152.0419,-76.7799 -151.5777,-76.7649 -151.5138,-76.7919 -151.1327,-76.8218 -150.6907,-76.8438 -150.453,-76.8777 -150.3257,-76.8967 -150.1659,-76.9767 -150.1569,-77.0106 -150.3127,-77.0598 -151.1927,-77.1207 -151.4159,-77.1269 -151.9278,-77.1609 -152.1209,-77.1625 -152.4675,-77.182 -152.5035,-77.2007 -152.6468,-77.224 -152.6259,-77.25 -152.5046,-77.2845 -152.609,-77.325 -153.4616,-77.3857 -154.4008,-77.4798 -154.5086,-77.5387 -154.4407,-77.6428 -154.4367,-77.6589 -154.423,-77.6685 -154.4377,-77.8428 -154.421,-77.8473 -154.405,-77.8389 -154.2109,-77.8888 -154.1927,-77.9137 -154.068,-77.9147 -154.049,-77.941 -153.9097,-77.9478 -153.7907,-77.9629 -153.6588,-77.9838 -153.278,-77.9926 -153.1994,-77.9968 -153.0268,-77.9869 -152.6938,-77.9867 -152.5617,-77.9717 -152.5538,-77.9918 -152.2016,-77.9818 -152.179,-78.0078 -151.86,-78.0496 -151.5068,-78.0375 -150.7549,-78.1437 -150.5816,-78.1597 -150.3678,-78.2058 -150.2596,-78.23 -150.2499,-78.2275 -150.1057,-78.2688 -150.0807,-78.3089 -149.7108,-78.3299 -149.6517,-78.3658 -149.1899,-78.4629 -149.1098,-78.4899 -148.7337,-78.524 -148.6937,-78.5442 -148.6696,-78.5598 -148.6046,-78.5709 -148.573,-78.5918 -148.2769,-78.7016 -148.2745,-78.7183 -148.1097,-78.7697 -147.9418,-78.7928 -147.7209,-78.8329 -147.3069,-78.9724 -147.1997,-79.0305 -147.0839,-79.1238 -147.0336,-79.1548 -146.5858,-79.3827 -146.4438,-79.3799 -146.4206,-79.4147 -146.2569,-79.4318 -146.1328,-79.4238 -145.6727,-79.48 -145.4516,-79.4966 -144.7259,-79.5109 -144.1708,-79.492 -143.0899,-79.4846 -142.0599,-79.4499 -141.8547,-79.4598 -141.4298,-79.4449 -141.0499,-79.4449 -141.0406,-79.4597 -140.8559,-79.4639 -140.8117,-79.4498 -140.5189,-79.4539 -140.0746,-79.4428 -140.0746,-79.4668 -139.9549,-79.5048 -139.9978,-79.5198 -139.9219,-79.4998 -139.9978,-79.5198 -140.2376,-79.5159 -140.5229,-79.5509 -140.6119,-79.5808 -141.1225,-79.6397 -141.3366,-79.6787 -141.9,-79.7269 -143.4227,-79.8867 -146.9047,-80.1498 -147.673,-80.2336 -147.7308,-80.2187 -148.1588,-80.2785 -148.7296,-80.3449 -148.9067,-80.3557 -149.4738,-80.4557 -149.7059,-80.5287 -149.8351,-80.5644 -149.9227,-80.6077 -150.2948,-80.7216 -150.473,-80.7872 -150.5528,-80.8377 -150.9898,-80.9698 -151.2557,-81.1207 -151.584,-81.1908 -151.5967,-81.1975 -151.6729,-81.2478 -152.0648,-81.3091 -152.1004,-81.3311 -152.1819,-81.4018 -152.3078,-81.5168 -152.3192,-81.5499 -152.7867,-81.8057 -153.0139,-81.9837 -152.9924,-82.0448 -152.9159,-82.1308 -152.8469,-82.2519 -152.7048,-82.936 -152.5098,-83.0497 -152.4198,-83.2047 -152.1257,-83.5888 -150.977,-83.7889 -150.6389,-83.8548 -150.279,-83.8924 -150.2588,-83.9097 -148.7596,-84.0997 -148.312,-84.1296 -147.631,-84.197 -146.5129,-84.2279 -146.2727,-84.2638 -146.0088,-84.2609 -145.8239,-84.3158 -145.4386,-84.3577 -144.2858,-84.424 -144.1165,-84.4726 -144.0552,-84.4776 -144.0298,-84.5078 -144.044,-84.5759 -144.3678,-84.5991 -144.3785,-84.5987 -145.8728,-84.643 -147.5657,-84.7166 -147.8168,-84.753 -147.7482,-84.7788 -147.5969,-84.7995 -147.0449,-84.8337 -146.485,-84.8679 -146.2869,-84.909 -145.5679,-84.933 -145.1738,-84.9698 -144.1288,-85.004 -143.6728,-85.0591 -143.6988,-85.108 -143.5858,-85.1479 -143.4409,-85.1767 -143.8527,-85.2486 -143.942,-85.2389 -144.3446,-85.2857 -144.6878,-85.3136 -145.3599,-85.3447 -146.0888,-85.3549 -146.4187,-85.3428 -147.2747,-85.3359 -148.3647,-85.2667 -148.8838,-85.2567 -149.376,-85.0347 -149.1147,-84.9057 -149.5109,-84.8607 -149.8818,-84.8657 -150.4189,-84.9077 -151.5339,-84.956 -153.047,-85.1056 -153.0208,-85.2336 -152.9558,-85.2684 -152.932,-85.2827 -152.9798,-85.3403 -153.7267,-85.4846 -153.8859,-85.4779 -154.4337,-85.4778 -155.6776,-85.4888 -155.704,-85.4932 -155.9237,-85.4836 -157.3249,-85.4238 -158.274,-85.3607 -158.3069,-85.3748 -159.1319,-85.3536 -160.31,-85.3898 -160.9796,-85.3289 -161.1688,-85.3077 -161.4877,-85.3039 -161.8779,-85.2816 -163.8316,-85.3179 -163.7899,-85.3298 -165.0248,-85.2867 -165.4929,-85.2007 -165.8007,-85.1947 -165.6757,-85.173 -165.8728,-85.1707 -166.1396,-85.1117 -170.1619,-84.7918 -171.0848,-84.7606 -171.7447,-84.7256 -172.5187,-84.7239 -172.5628,-84.6929 -174.5948,-84.614 -175.223,-84.5627 -175.6489,-84.5467 -176.0208,-84.4869 -178.1779,-84.3548 -179.1379,-84.2948 -179.9997,-84.295 -179.9996,-89.9999 179.9999,-89.9999 180.0,-84.1759 178.9253,-84.1759 176.5382,-84.0539 176.5521,-84.0285 173.3942,-83.8928 173.224,-83.8469 172.9492,-83.8309 172.079,-83.7117 171.5501,-83.6775 170.9582,-83.5928 169.7902,-83.5256 169.0242,-83.4397 168.2342,-83.3779 167.9809,-83.3647 167.7512,-83.3398 167.2332,-83.2878 167.1271,-83.2728 165.914,-83.2957 165.3223,-83.4066 165.271,-83.5218 165.5331,-83.6258 165.7422,-83.642 165.7761,-83.6778 165.7889,-83.736 165.0471,-83.8888 165.0683,-83.9408 164.587,-83.9789 164.3959,-84.0507 164.2333,-84.111 164.3631,-84.1208 164.4279,-84.1548 164.3532,-84.2106 164.5781,-84.2755 164.581,-84.3919 164.2249,-84.5436 164.8283,-84.6309 165.0642,-84.6686 165.2178,-84.7379 165.4793,-84.7696 165.5601,-84.8038 165.8772,-84.8168 165.944,-84.8568 166.662,-84.9239 166.721,-84.9697 166.7473,-84.9761 166.775,-84.9838 166.418,-85.0465 166.2272,-85.0816 166.2147,-85.0858 166.1933,-85.0936 166.0701,-85.1358 166.0349,-85.1479 165.1761,-85.1488 164.4363,-85.0539 163.7153,-85.0166 162.7711,-84.9657 162.433,-84.9308 161.8291,-84.8938 160.7453,-84.769 160.5843,-84.7628 160.4572,-84.7257 160.2741,-84.7269 159.4321,-84.5788 160.1002,-84.4959 160.6551,-84.4618 161.1902,-84.408 161.342,-84.242 161.0822,-84.1738 161.3752,-84.0847 162.5661,-84.0068 162.5841,-83.9488 162.7779,-83.9357 162.7538,-83.7069 163.2712,-83.6267 163.3362,-83.6026 163.6671,-83.5878 163.7451,-83.5579 163.9553,-83.5328 164.0941,-83.42 164.1931,-83.2935 164.5692,-83.1638 164.4361,-83.0759 164.2371,-83.0168 164.148,-83.0267 163.8259,-82.9378 163.3212,-82.8739 163.1821,-82.8236 162.8968,-82.7798 162.7342,-82.7148 161.9161,-82.531 161.6982,-82.4428 161.285,-82.3847 161.1528,-82.34 160.1189,-82.2177 159.7299,-82.046 159.7612,-82.0348 159.419,-81.9838 158.9929,-81.8337 158.398,-81.6669 158.016,-81.6379 157.9473,-81.6007 157.164,-81.4716 154.731,-81.4048 154.7091,-81.4025 153.5634,-81.3301 153.5452,-81.3303 153.5301,-81.3308 153.456,-81.3189 153.5201,-81.2815 153.6027,-81.2592 153.629,-81.2479 153.7012,-81.2257 154.08,-81.1777 154.333,-81.1688 154.322,-81.1549 154.6891,-81.1268 154.6002,-81.0097 154.4723,-80.9787 154.1152,-80.7376 154.2291,-80.664 154.4219,-80.4718 154.3501,-80.424 154.3141,-80.3108 154.2153,-80.2196 154.2238,-80.1843 154.1971,-80.1006 154.6042,-79.9347 154.5472,-79.8467 154.2753,-79.8028 154.1059,-79.7399 153.9233,-79.683 153.7981,-79.6578 153.7189,-79.6156 153.527,-79.5989 153.5,-79.5734 153.48,-79.546 153.4259,-79.4427 153.3883,-79.3347 153.4078,-79.3079 153.4989,-79.2409 153.6391,-79.1708 153.4612,-79.0977 153.417,-79.0797 153.2418,-78.9726 153.3695,-78.8661 153.383,-78.8518 153.3849,-78.8515 154.0622,-78.7388 154.2103,-78.7316 154.3662,-78.6499 154.603,-78.6247 154.7281,-78.6088 154.8569,-78.628 155.0432,-78.6036 155.1143,-78.6099 155.1682,-78.5705 155.1981,-78.5447 155.2056,-78.5346 155.2139,-78.5298 155.4561,-78.4427 155.6163,-78.4095 156.1803,-78.3446 156.3332,-78.3518 156.8533,-78.3429 157.3723,-78.334 159.4142,-78.3437 160.038,-78.3847 160.406,-78.3847 161.4772,-78.4269 161.653,-78.4186 163.953,-78.4774 164.0203,-78.4878 164.5023,-78.4899 164.5271,-78.4709 164.9261,-78.3837 164.8549,-78.3477 164.6861,-78.325 164.6362,-78.3026 164.5793,-78.2868 163.7081,-78.23 163.4699,-78.2019 163.268,-78.1505 163.1693,-78.138 163.0409,-78.0906 162.709,-78.0498 161.9943,-77.9148 161.958,-77.9019 161.7471,-77.7629 161.6521,-77.75 161.0372,-77.7247 160.8303,-77.7097 160.811,-77.712 160.6049,-77.7058 160.3702,-77.7079 160.131,-77.6888 159.9738,-77.6896 159.0822,-77.6249 159.0601,-77.5497 159.0694,-77.5249 159.082,-77.5097 159.0755,-77.4891 158.5509,-77.3199 158.3632,-77.1489 158.3161,-77.0919 158.1402,-77.0016 158.0502,-76.9057 158.0362,-76.8508 158.096,-76.796 158.0873,-76.6799 158.0874,-76.5673 158.0997,-76.4607 158.0371,-76.2869 157.9953,-76.2499 157.8806,-76.1789 157.8312,-76.1399 157.8556,-76.0974 157.8681,-76.0756 158.3052,-75.9576 158.488,-75.9287 158.6419,-75.7897 158.5889,-75.7376 158.5635,-75.7027 158.5198,-75.6651 158.4242,-75.6079 158.3908,-75.5436 158.2952,-75.5408 158.2342,-75.4746 158.3065,-75.4581 158.3259,-75.4367 158.4631,-75.3697 158.7839,-75.2889 158.915,-75.2889 158.952,-75.2704 158.9581,-75.26 159.1522,-75.2389 159.3311,-75.1829 159.2382,-75.1137 159.284,-75.0375 159.2403,-74.9806 159.132,-74.9227 159.0183,-74.7177 159.1762,-74.5407 159.2852,-74.4857 159.5913,-74.397 159.9013,-74.3487 160.0253,-74.3018 160.27,-74.2528 160.4541,-74.251 160.773,-74.1896 160.798,-74.146 161.0602,-74.0788 161.2532,-74.018 161.5772,-73.9696 161.6048,-73.9457 161.8521,-73.9096 161.867,-73.8719 162.219,-73.8447 162.318,-73.8078 162.523,-73.7546 162.7849,-73.6999 162.8173,-73.6697 162.9212,-73.6267 163.0701,-73.5949 163.267,-73.4879 163.4512,-73.4188 163.6291,-73.3826 163.6911,-73.3489 163.7753,-73.3498 163.921,-73.2577 164.2453,-73.1819 165.152,-73.0929 165.7582,-73.0557 166.2092,-73.0375 166.6709,-72.9689 166.7163,-72.9458 166.7969,-72.9448 167.125,-72.834 167.1422,-72.7066 166.9833,-72.4977 167.0451,-72.4508 167.3111,-72.3736 167.423,-72.3629 167.6108,-72.3176 167.6328,-72.3136 167.644,-72.3078 167.76,-72.2899 167.8428,-72.2448 167.7731,-72.0869 167.9201,-72.0587 168.0447,-71.9453 168.059,-71.9276 168.0749,-71.8636 168.2385,-71.7708 168.2492,-71.756 168.427,-71.5957 168.323,-71.5249 168.2904,-71.5089 168.2683,-71.4956 168.1619,-71.4243 168.1541,-71.4057 168.0289,-71.3338 167.8729,-71.3098 167.7521,-71.308 167.5733,-71.2816 167.4871,-71.302 167.4399,-71.2978 167.3679,-71.3308 167.09,-71.3429 166.8992,-71.3347 166.8882,-71.3147 166.8532,-71.2609 166.5811,-71.1627 166.4613,-71.128 166.286,-71.1327 166.1339,-71.0757 166.0831,-71.0777 166.0461,-71.0617 165.9363,-71.0465 165.9269,-71.0268 165.6991,-71.0079 165.749,-71.0057 165.4629,-70.936 165.3731,-70.8958 165.212,-70.8239 164.9533,-70.7557 164.7441,-70.7179 164.5552,-70.6547 164.468,-70.614 164.2711,-70.5629 164.3402,-70.5376 164.352,-70.4937 164.3991,-70.4656 164.375,-70.4367 164.1872,-70.406 163.9029,-70.4048 163.2379,-70.376 162.991,-70.253 162.3322,-70.1948 161.8813,-70.171 161.6479,-70.1896 161.4501,-70.174 160.547,-70.007 160.417,-69.9708 160.3781,-69.9386 159.6611,-69.6747 159.2654,-69.5591 159.2546,-69.5585 159.0452,-69.5255 158.576,-69.4408 158.281,-69.4117 157.9721,-69.3747 157.4955,-69.3058 157.4813,-69.3086 157.3252,-69.2847 157.2251,-69.2899 157.1262,-69.2749 157.0521,-69.3177 157.4329,-69.6997 157.4,-69.7887 157.3452,-69.7949 157.311,-69.8838 157.428,-70.0498 157.3871,-70.0837 157.4442,-70.3218 157.2622,-70.3897 157.1152,-70.3688 156.9752,-70.3208 156.847,-70.1268 156.7522,-70.0848 156.7461,-70.0495 156.6241,-69.9907 156.5443,-69.9177 156.5931,-69.7016 156.5563,-69.5936 156.5697,-69.5514 156.5652,-69.5242 156.5456,-69.5109 156.5131,-69.4929 156.4881,-69.4549 156.4222,-69.4308 156.4246,-69.4083 156.4444,-69.403 156.4604,-69.3998 156.4737,-69.3887 156.4826,-69.3714 156.4851,-69.3589 156.1973,-69.2658 155.5512,-69.14 155.3241,-69.096 154.89,-68.974 154.8352,-68.9437 154.6769,-68.903 154.7102,-68.8946 154.5483,-68.8386 154.3908,-68.7968 154.3941,-68.7767 154.302,-68.7396 154.13,-68.6747 154.0882,-68.6529 154.0569,-68.6059 153.9612,-68.5188 153.8823,-68.4906 153.8671,-68.4669 153.4651,-68.3849 153.351,-68.3498 153.0269,-68.2809 152.2641,-68.0106 152.1592,-68.0038 152.1122,-67.9866 151.8131,-67.9538 151.5912,-67.9147 151.4432,-67.906 151.3451,-67.878 150.9261,-67.8318 150.793,-67.8597 150.7223,-67.909 150.708,-67.9978 150.7551,-68.0299 150.776,-68.1267 150.8993,-68.2029 151.0982,-68.3727 151.2261,-68.6907 151.1853,-68.7186 151.2173,-68.7457 151.1881,-68.733 151.2309,-68.7847 151.1839,-68.8819 151.2479,-68.8868 151.1731,-68.8719 151.2213,-68.8887 151.1762,-68.887 151.0171,-68.8478 150.7652,-68.8386 150.5639,-68.8109 150.314,-68.8157 150.1892,-68.8177 150.097,-68.799 150.037,-68.8219 149.7311,-68.7989 149.3619,-68.7696 149.208,-68.7289 148.9932,-68.7099 148.9302,-68.6877 148.9809,-68.4597 148.9951,-68.4049 148.93,-68.31 148.944,-68.2406 148.8813,-68.1899 148.9831,-68.1547 149.0952,-67.9779 149.0423,-67.9506 149.1001,-67.9139 148.991,-67.7868 149.0422,-67.769 149.0329,-67.608 149.0662,-67.5857 149.0313,-67.5637 149.0629,-67.5269 148.731,-67.4407 148.47,-67.4147 148.1262,-67.4409 147.7991,-67.4268 147.1451,-67.3949 146.929,-67.3549 146.2572,-67.2757 146.1239,-67.2708 145.9671,-67.2518 145.894,-67.224 145.738,-67.2046 145.6362,-67.1397 145.5988,-67.024 145.5611,-66.9897 145.386,-66.9268 145.0863,-66.8959 145.0218,-66.8777 144.9041,-66.9057 144.771,-66.9138 144.6361,-66.8828 144.5423,-66.8558 144.3511,-66.8157 143.9021,-66.7608 143.6482,-66.7167 143.6213,-66.7316 143.6239,-66.7166 143.5843,-66.7128 143.452,-66.7186 143.3502,-66.6969 143.2239,-66.635 143.1442,-66.626 143.037,-66.5927 142.7873,-66.5858 142.808,-66.6007 142.665,-66.5868 142.5552,-66.569 142.586,-66.578 142.4491,-66.5357 142.2562,-66.5607 142.1702,-66.5179 142.1371,-66.4839 142.1829,-66.4979 142.0892,-66.4836 141.8602,-66.617 141.834,-66.6557 141.8729,-66.6595 141.8261,-66.685 141.8472,-66.6989 141.8543,-66.7327 141.7572,-66.8208 141.7551,-66.8596 141.5602,-66.909 141.5083,-66.9476 141.4061,-66.9869 141.3739,-67.0405 141.2452,-67.0548 141.221,-67.0798 141.1562,-67.0747 140.985,-67.0347 140.7103,-66.9859 140.4113,-66.9348 140.2822,-66.9 140.1972,-66.8557 140.1033,-66.816 140.1482,-66.7815 140.1333,-66.753 140.2609,-66.715 140.4021,-66.6329 140.519,-66.5999 140.7171,-66.5127 140.8022,-66.2608 140.8652,-66.2407 140.9152,-66.1778 140.9773,-66.1589 141.0641,-66.0518 141.102,-66.0567 141.0529,-66.0077 141.125,-66.0327 141.078,-66.0328 141.082,-66.0178 140.9473,-65.9887 140.8992,-65.9637 140.8509,-65.9638 140.8652,-65.9439 140.8199,-65.8808 140.7523,-65.8166 140.5809,-65.7578 140.472,-65.7519 140.4152,-65.7317 140.3593,-65.7367 140.3771,-65.727 140.17,-65.6379 139.763,-65.5166 139.7492,-65.4866 139.6802,-65.438 139.4311,-65.3467 139.2189,-65.3087 139.159,-65.3028 139.004,-65.2607 138.9252,-65.2647 138.7742,-65.233 138.7291,-65.2068 138.8721,-65.1126 138.7969,-65.0668 138.7842,-65.0375 138.0621,-64.8407 137.7682,-64.7748 137.5662,-64.7099 137.2292,-64.6067 136.7891,-64.5527 136.674,-64.6069 136.4492,-64.6328 136.3428,-64.614 136.218,-64.6049 136.0089,-64.5315 135.845,-64.3828 135.724,-64.305 135.4199,-64.2319 134.815,-64.1628 134.7272,-64.158 134.6023,-64.137 134.5392,-64.1428 134.425,-64.117 134.361,-64.1236 134.1591,-64.0918 133.9282,-64.0739 133.8871,-64.0807 133.7222,-64.0666 133.6802,-64.0739 133.5591,-64.0608 132.9279,-63.966 132.4551,-63.8247 132.34,-63.7669 132.383,-63.7699 132.239,-63.7248 132.124,-63.6667 131.6962,-63.5396 131.6182,-63.5097 131.562,-63.4796 131.4751,-63.4537 131.333,-63.4067 131.256,-63.3658 131.16,-63.3527 131.0101,-63.3109 130.6942,-63.283 130.418,-63.2187 130.1851,-63.1579 129.8249,-63.0246 129.4601,-62.9336 129.314,-62.8789 129.1702,-62.8447 129.0972,-62.8116 128.4619,-62.6549 128.1672,-62.5869 128.1261,-62.5918 127.3571,-62.503 126.9251,-62.4246 126.7542,-62.4077 126.415,-62.3448 126.2352,-62.3318 126.1111,-62.3557 124.6462,-62.2836 124.5532,-62.2957 124.4353,-62.2777 124.156,-62.2567 124.0591,-62.2319 124.0151,-62.2559 123.9771,-62.2398 123.9241,-62.2577 123.906,-62.2449 123.8433,-62.2557 123.7542,-62.2468 123.511,-62.2498 123.4271,-62.2677 123.1132,-62.2738 123.033,-62.3179 122.9612,-62.4238 122.8792,-62.5238 122.6613,-62.5919 122.5661,-62.6477 122.4922,-62.6617 122.397,-62.6257 122.2542,-62.6228 122.1891,-62.5959 122.1472,-62.6 122.1521,-62.5797 121.7611,-62.2189 121.5632,-62.1217 121.2953,-62.0278 121.0271,-62.0158 120.7511,-61.96 120.6252,-61.9789 120.1832,-62.0777 119.969,-62.1468 119.914,-62.1628 119.7369,-62.2389 119.6322,-62.2497 119.6083,-62.2928 119.3943,-62.414 119.207,-62.4819 119.0663,-62.5017 118.959,-62.5129 118.2792,-62.4859 118.2331,-62.472 118.1992,-62.4797 117.951,-62.4819 117.7682,-62.4488 117.6002,-62.4827 117.031,-62.3867 116.9222,-62.3519 116.6722,-62.3338 116.5072,-62.2868 116.1539,-62.2498 116.0982,-62.2368 115.9912,-62.2448 115.7941,-62.2476 115.5781,-62.1597 115.3343,-62.1118 115.1821,-62.0868 115.0739,-62.0336 114.964,-62.0069 114.6571,-61.905 114.5993,-61.9179 114.5272,-61.8999 114.51,-61.9117 114.4309,-61.8868 114.2452,-61.8509 114.137,-61.8236 113.992,-61.7868 113.6599,-61.646 113.3351,-61.4946 112.7129,-61.3208 112.0739,-61.0319 111.959,-60.9876 111.748,-60.8539 111.4713,-60.7338 111.3921,-60.6827 111.291,-60.6517 110.7572,-60.3899 110.5531,-60.3206 110.1373,-60.2599 109.9243,-60.192 109.2412,-60.0449 109.0632,-59.9868 108.8712,-59.9798 108.818,-59.957 108.7501,-59.969 108.625,-59.9499 108.5032,-59.9548 108.084,-59.945 108.0481,-59.9677 107.8882,-59.9697 107.3521,-60.1167 107.3172,-60.1627 107.2832,-60.1686 107.159,-60.3198 107.0553,-60.3768 107.0452,-60.4027 106.9521,-60.4587 106.891,-60.4839 106.8089,-60.5376 106.7289,-60.5748 106.7192,-60.6006 106.6432,-60.6447 106.4711,-60.7198 106.3391,-60.8209 106.3182,-60.8077 106.273,-60.8386 106.1832,-60.8606 106.0013,-61.0579 105.9279,-61.133 105.67,-61.2918 105.5423,-61.3177 105.4392,-61.3647 105.309,-61.2449 105.2712,-61.1528 105.1752,-61.1168 105.1833,-61.0839 105.0829,-60.968 104.8932,-60.8729 104.751,-60.7947 104.822,-60.7367 104.7952,-60.612 104.7492,-60.521 104.6671,-60.4839 104.5739,-60.3987 104.4811,-60.3876 104.3282,-60.3027 104.2552,-60.2807 104.0283,-60.2217 103.8301,-60.2467 103.4992,-60.2249 103.448,-60.2468 102.9852,-60.2317 102.7249,-60.1977 102.506,-60.2319 102.352,-60.2167 102.2699,-60.2266 102.1643,-60.2067 101.9142,-60.1949 101.8583,-60.1769 101.5611,-60.1367 101.1982,-60.0799 101.116,-60.088 101.0258,-60.073 100.9581,-60.0877 100.8469,-60.0829 100.6538,-60.0868 100.33,-60.0629 100.2039,-60.082 100.0789,-60.142 100.0033,-60.2038 99.837,-60.2906 99.8259,-60.3308 99.6979,-60.3498 99.53,-60.3566 99.2903,-60.4089 99.2953,-60.4248 99.266,-60.4107 99.2592,-60.4279 98.6741,-60.5148 98.2472,-60.5627 97.9579,-60.6707 97.9249,-60.7286 97.8913,-60.7386 97.696,-60.887 97.6842,-60.9347 97.6069,-60.9706 97.5318,-61.0156 97.4991,-61.0339 97.054,-60.8889 96.7862,-60.7488 96.654,-60.6549 96.6151,-60.6408 96.393,-60.411 96.1232,-60.2217 96.0132,-60.2117 95.926,-60.1377 95.7781,-60.1229 95.657,-60.0509 95.5769,-60.0079 95.5679,-60.0239 95.553,-60.009 95.4702,-60.0127 95.3179,-59.9658 95.0163,-59.9408 94.7409,-59.859 94.628,-59.8949 94.4992,-59.9089 94.2131,-59.9038 94.2153,-59.92 94.0941,-59.9009 94.0613,-59.9258 93.9053,-59.9158 93.8362,-59.9337 93.2453,-59.9609 92.8592,-59.9088 92.8113,-59.9029 92.7072,-59.9287 92.506,-59.941 91.812,-60.064 91.6382,-60.145 91.5081,-60.1706 91.461,-60.2018 91.3312,-60.2427 91.2732,-60.283 91.201,-60.2908 91.059,-60.3319 90.9031,-60.3568 90.7961,-60.4037 90.5911,-60.4369 90.5912,-60.4206 90.519,-60.4448 90.0363,-60.4309 89.8551,-60.4379 89.7713,-60.4298 89.6382,-60.4378 89.493,-60.4139 89.1311,-60.4427 89.0343,-60.4418 88.5303,-60.3737 88.4699,-60.3728 87.5903,-60.5219 87.4901,-60.5589 87.081,-60.6496 86.6191,-60.7468 86.5082,-60.7588 85.894,-60.9487 85.801,-60.993 85.685,-61.0277 85.564,-61.093 85.4093,-61.213 85.0753,-61.3468 84.9002,-61.3478 84.6802,-61.3848 84.59,-61.3958 84.3512,-61.4629 84.2381,-61.5276 83.8479,-61.6408 83.825,-61.6868 83.6161,-61.77 83.4871,-61.8337 83.442,-61.862 83.375,-61.8737 83.2781,-61.9077 83.115,-62.0478 82.82,-62.1949 82.7502,-62.2149 82.699,-62.2118 82.6682,-62.2327 82.6152,-62.2379 82.636,-62.255 82.594,-62.2677 82.6111,-62.2528 82.555,-62.2658 82.483,-62.2919 82.332,-62.322 82.257,-62.3569 82.234,-62.3468 82.2169,-62.3617 82.1142,-62.4017 81.944,-62.4456 81.897,-62.4738 81.7051,-62.4998 81.6452,-62.5279 81.6251,-62.5498 81.4792,-62.5946 81.3462,-62.6407 81.133,-62.7667 81.0581,-62.8326 80.968,-62.8648 80.9442,-62.9739 81.0019,-63.2787 80.9921,-63.3489 80.9002,-63.3819 80.8382,-63.4409 80.796,-63.445 80.5183,-63.5347 80.4731,-63.5467 80.4399,-63.6 80.4001,-63.5968 80.1553,-63.7759 79.5082,-64.1428 79.4892,-64.1888 79.373,-64.2666 79.3052,-64.2929 79.2593,-64.3368 79.041,-64.3819 78.6482,-64.4349 78.5932,-64.462 77.808,-64.4917 77.6473,-64.5555 77.577,-64.5817 77.3031,-64.8108 77.0849,-65.0608 77.0232,-65.0947 76.95,-65.1758 76.8823,-65.1929 76.5011,-65.4268 76.3202,-65.456 76.142,-65.4538 75.9702,-65.3388 75.978,-65.3239 75.867,-65.183 75.8853,-65.0238 75.7818,-64.9479 75.7423,-64.8148 75.681,-64.7428 75.614,-64.5828 75.545,-64.551 75.5271,-64.5079 75.241,-64.3057 75.2322,-64.2478 74.922,-63.9757 74.9128,-63.9428 74.8172,-63.8659 74.67,-63.7109 74.6622,-63.6766 74.5922,-63.6517 74.5471,-63.5407 74.4692,-63.5066 74.4622,-63.4726 74.3679,-63.3966 74.0691,-63.317 74.0251,-63.3428 74.0392,-63.3206 74.0001,-63.3157 73.8439,-63.343 73.6642,-63.3189 73.5571,-63.2229 73.5169,-63.1119 73.5471,-63.1079 73.57,-63.07 73.6321,-63.0377 73.786,-62.9449 73.7871,-62.9206 73.8679,-62.8098 73.8662,-62.7687 73.7752,-62.6508 73.7818,-62.5949 73.749,-62.5826 73.742,-62.5489 73.6069,-62.4809 73.497,-62.4409 73.3012,-62.4946 73.2071,-62.5377 72.9451,-62.5649 72.8832,-62.5969 72.377,-62.6188 71.9331,-62.6076 71.5438,-62.5958 71.28,-62.6197 71.156,-62.6 71.0722,-62.6018 70.7661,-62.5679 70.4552,-62.5409 70.1962,-62.5378 69.7633,-62.4696 69.7743,-62.4559 69.545,-62.4309 69.0361,-62.3049 68.9279,-62.2846 68.606,-62.3419 68.3541,-62.4117 68.2881,-62.4067 68.0361,-62.4259 67.9512,-62.4597 67.3941,-62.392 67.335,-62.3627 67.281,-62.3607 67.0032,-62.4056 66.7842,-62.4629 66.7063,-62.4548 66.4323,-62.4916 65.72,-62.4336 65.5691,-62.4438 64.7071,-62.2599 64.459,-62.2809 64.3011,-62.2527 64.2992,-62.2259 64.3389,-62.0708 64.3392,-62.0278 64.291,-61.9897 64.2803,-61.944 63.9023,-61.7407 63.6921,-61.6989 63.435,-61.6878 63.198,-61.6987 62.8372,-61.6789 62.6439,-61.6729 62.4192,-61.7386 62.118,-61.7667 61.7532,-61.8116 61.159,-61.893 61.0113,-61.9597 60.617,-62.0486 60.3272,-62.0588 60.284,-62.0826 60.149,-62.1348 59.8699,-62.2827 59.701,-62.3978 59.513,-62.4529 59.4642,-62.4938 59.4142,-62.4979 59.2842,-62.6147 59.1781,-62.676 58.8969,-62.7408 58.8579,-62.7477 58.6232,-62.8358 58.5262,-62.8629 58.477,-62.9116 58.2989,-63.1908 58.1649,-63.4456 58.1229,-63.4887 58.2072,-63.7339 58.2372,-63.8058 58.1882,-63.8659 58.1229,-64.0308 58.1292,-64.0976 58.1189,-64.1408 58.0692,-64.1998 57.9481,-64.3228 57.71,-64.4217 57.6071,-64.4479 57.4489,-64.5238 57.2761,-64.5387 57.1542,-64.4857 57.0053,-64.5077 56.7493,-64.5449 56.4909,-64.6288 56.3783,-64.6707 56.3851,-64.6537 55.9531,-64.7047 55.7801,-64.7277 55.5821,-64.7347 55.4341,-64.7089 55.2049,-64.7338 54.6629,-64.8136 54.6602,-64.7935 54.5502,-64.7979 54.418,-64.8048 54.2402,-64.8056 54.1303,-64.8097 54.0542,-64.8237 54.052,-64.804 53.977,-64.828 53.9332,-64.8337 53.871,-64.882 53.8403,-64.9095 53.035,-65.1848 52.9129,-65.2128 52.514,-65.3568 52.423,-65.3567 52.2438,-65.4057 52.1302,-65.3867 51.7209,-65.3487 51.4612,-65.3298 51.3143,-65.3588 51.1552,-65.3747 50.6791,-65.3787 50.3741,-65.3719 50.2613,-65.373 50.0332,-65.3929 49.792,-65.4379 49.6212,-65.4476 49.389,-65.4958 49.3441,-65.4899 48.918,-65.6529 48.7301,-65.6869 48.5391,-65.751 48.0529,-65.9337 48.078,-65.9217 47.9171,-65.9879 47.7352,-66.0345 47.3172,-66.1607 46.8092,-66.3599 46.6409,-66.4867 46.577,-66.5698 46.513,-66.5878 46.1291,-66.8598 46.034,-66.9529 45.7631,-67.218 45.6532,-67.4047 45.4672,-67.5948 45.4533,-67.6446 45.3582,-67.674 45.3872,-67.7067 45.2541,-67.8208 45.1689,-67.8538 45.1461,-67.8888 44.978,-67.9005 44.855,-67.8428 44.825,-67.7758 44.6039,-67.712 44.4062,-67.7 44.089,-67.7066 44.019,-67.6896 43.4783,-67.6506 43.2522,-67.6477 43.142,-67.6367 42.41,-67.6386 42.3352,-67.6059 41.9181,-67.5769 41.5171,-67.6009 41.0062,-67.5028 40.8782,-67.4798 40.7941,-67.4177 40.7503,-67.3269 40.6962,-67.23 40.7299,-67.2098 40.6499,-67.1959 40.6242,-67.1718 40.4621,-67.1209 40.2661,-67.0408 40.1212,-67.0328 39.9171,-67.0438 39.9173,-67.0199 39.543,-67.0466 39.3682,-67.0479 39.3481,-67.0629 39.1331,-67.0929 38.9442,-67.1857 38.4372,-67.4347 38.3771,-67.4939 38.3781,-67.557 38.403,-67.6438 37.9511,-67.9005 37.8811,-67.9297 37.851,-67.915 37.7731,-67.9148 37.7689,-67.8999 37.504,-67.9077 37.4431,-67.9028 37.369,-67.9168 37.1452,-67.9197 36.782,-67.9939 36.727,-68.018 36.3561,-68.2456 36.38,-68.2319 36.1393,-68.2527 36.084,-68.2367 35.5303,-68.2658 35.2371,-68.3517 35.1711,-68.3849 35.1001,-68.5639 34.8971,-68.7006 34.6433,-68.8119 34.5131,-68.8518 34.286,-68.9089 33.9413,-68.9726 33.7819,-69.012 33.6122,-69.0307 33.0739,-69.1298 32.8121,-69.1547 32.6213,-69.177 32.139,-69.2066 31.9842,-69.2349 31.563,-69.2707 31.1759,-69.3417 30.017,-69.4648 29.8852,-69.4918 29.7381,-69.4789 29.7092,-69.492 29.6262,-69.4878 29.5829,-69.4608 29.3889,-69.4637 29.0592,-69.4446 28.736,-69.4449 28.5799,-69.6027 28.5861,-69.6227 28.3823,-69.7189 28.3241,-69.73 28.2791,-69.718 28.185,-69.7208 27.5582,-69.8025 27.3791,-69.8009 27.2732,-69.8127 27.3121,-69.8058 27.269,-69.8277 27.2931,-69.8099 27.3401,-69.8078 27.2893,-69.8236 27.1313,-69.8526 26.886,-69.9245 26.2749,-70.0388 26.2592,-70.0268 25.5399,-70.0659 25.0401,-70.0998 24.712,-70.0768 24.651,-70.0868 24.336,-70.0339 23.1392,-69.8577 22.5321,-69.8127 22.0772,-69.771 22.0169,-69.7186 21.8971,-69.6758 21.9182,-69.6519 21.8252,-69.6118 21.73,-69.6117 21.3422,-69.5588 21.06,-69.5579 20.2402,-69.602 20.0423,-69.5678 19.8883,-69.5087 19.8382,-69.4816 19.7882,-69.409 19.3872,-69.2358 19.3042,-69.2196 19.048,-69.2387 18.7773,-69.3376 18.6209,-69.4888 18.4372,-69.5627 17.6771,-69.7169 17.0872,-69.7818 16.6999,-69.8427 16.6822,-69.8778 16.5901,-69.9327 16.646,-69.9978 16.5282,-70.0238 16.1189,-70.1498 15.767,-70.1776 15.5262,-70.1685 15.3303,-70.1879 13.95,-70.2478 13.8089,-70.2787 13.3322,-70.3308 12.7532,-70.4088 12.4932,-70.4418 12.329,-70.4418 11.867,-70.4878 11.2442,-70.5436 10.009,-70.5968 9.8143,-70.628 9.3989,-70.6889 9.2479,-70.7166 8.959,-70.7509 8.0313,-70.8347 7.4281,-70.9188 7.1701,-70.9867 7.0061,-70.9936 6.8313,-71.0315 6.6219,-71.0467 6.3121,-71.1139 5.768,-71.2016 4.9423,-71.3338 3.8382,-71.4549 3.4142,-71.5196 3.294,-71.5218 2.72,-71.5759 2.6221,-71.5708 2.3822,-71.5927 1.7781,-71.637 1.3162,-71.6476 1.146,-71.6608 0.9022,-71.6499 0.6803,-71.5826 0.5581,-71.5577 -0.266,-71.4836 -0.3618,-71.4649 -0.3619,-71.4468 -0.6479,-71.3588 -0.8138,-71.3139 -0.7887,-71.3018 -0.8358,-71.2707 -0.7778,-71.0217 -0.7026,-70.9156 -0.7467,-70.8469 -0.6988,-70.81 -0.7399,-70.6669 -0.7377,-70.5977 -0.668,-70.5797 -0.6408,-70.4618 -0.887,-70.3236 -1.1338,-70.2719 -1.4696,-70.2258 -1.6747,-70.2428 -2.0589,-70.2259 -2.607,-70.2618 -3.1538,-70.2767 -3.3838,-70.2979 -3.479,-70.3208 -3.6386,-70.3236 -3.8999,-70.3738 -3.9539,-70.4157 -4.0258,-70.433 -4.0227,-70.6389 -3.9578,-70.6597 -3.8846,-70.8736 -3.7106,-70.9457 -3.2927,-70.9727 -3.1798,-70.9999 -3.1603,-71.0056 -3.088,-71.0149 -3.0669,-71.0339 -2.9299,-71.0608 -2.8858,-71.0867 -2.9937,-71.1716 -3.2658,-71.2297 -3.8688,-71.2607 -4.4908,-71.2588 -4.9729,-71.271 -5.072,-71.2797 -5.2127,-71.2697 -5.3587,-71.2778 -6.0576,-71.2106 -6.12,-71.1836 -6.1728,-71.1259 -6.7079,-71.0868 -7.0738,-71.1096 -8.2298,-71.2407 -8.4678,-71.2867 -8.5293,-71.2956 -8.5708,-71.2996 -8.83,-71.3377 -8.9608,-71.3556 -9.047,-71.4339 -9.1249,-71.4927 -9.1555,-71.5158 -9.1626,-71.5354 -9.1346,-71.5618 -9.1326,-71.6059 -9.067,-71.6216 -9.1706,-71.7809 -9.4836,-71.9027 -9.5178,-71.9104 -9.5298,-71.913 -9.5488,-71.9168 -9.5788,-71.9225 -9.6849,-71.9498 -9.6894,-71.9497 -10.0286,-71.9809 -10.66,-71.9387 -10.701,-71.924 -10.9457,-71.8707 -11.0477,-71.8326 -11.1858,-71.8109 -11.5396,-71.7 -11.6996,-71.6767 -11.8228,-71.6369 -11.9177,-71.6299 -12.3237,-71.4937 -12.3816,-71.4709 -12.4248,-71.4609 -12.5288,-71.445 -12.5436,-71.3963 -12.55,-71.3793 -12.5774,-71.375 -12.5977,-71.3528 -12.6391,-71.3578 -12.7116,-71.3767 -12.7135,-71.3855 -12.7092,-71.4324 -12.682,-71.4746 -12.669,-71.5003 -12.6598,-71.5138 -12.6605,-71.5554 -12.6788,-71.5767 -12.7038,-71.6837 -12.762,-71.8007 -12.788,-71.8318 -12.7569,-71.9348 -12.7418,-72.1278 -12.6998,-72.1758 -12.7217,-72.2757 -12.8198,-72.3389 -12.8219,-72.3777 -13.0479,-72.4699 -13.08,-72.5127 -13.2719,-72.5569 -13.3248,-72.5908 -13.4779,-72.6507 -13.4768,-72.6829 -13.8469,-72.7449 -13.9966,-72.7979 -13.9869,-72.8178 -14.1078,-72.867 -14.5809,-72.9148 -15.0876,-72.9068 -15.6398,-72.8867 -15.7598,-72.8708 -16.402,-72.8609 -16.6019,-72.8428 -16.9128,-72.8536 -17.853,-72.8637 -18.1088,-72.8977 -18.4469,-72.9038 -18.9757,-73.0278 -19.2267,-73.0749 -19.7459,-73.18 -20.71,-73.2678 -21.2868,-73.25 -21.4768,-73.2419 -21.7989,-73.2037 -21.8967,-73.2128 -22.1998,-73.2038 -22.6906,-73.1848 -23.4739,-73.1269 -23.919,-73.0756 -23.8697,-73.0828 -23.9768,-73.0958 -24.1457,-73.1686 -24.8028,-73.2528 -25.1897,-73.2547 -25.3319,-73.2698 -25.7097,-73.355 -26.1907,-73.676 -26.0398,-73.8008 -25.914,-73.8529 -25.908,-73.867 -25.7608,-73.9427 -26.2239,-73.9417 -26.4317,-73.9896 -26.922,-74.018 -26.9179,-74.0329 -27.018,-74.054 -26.9988,-74.0769 -27.1699,-74.1019 -27.3437,-74.161 -27.3919,-74.2037 -27.8567,-74.2629 -28.146,-74.3618 -28.7909,-74.4729 -29.216,-74.5509 -29.3317,-74.5907 -29.3338,-74.7828 -29.3988,-74.8446 -30.0887,-75.0207 -30.713,-75.1139 -31.0499,-75.2139 -31.262,-75.319 -31.3777,-75.3227 -31.4636,-75.4188 -31.4786,-75.3949 -31.4777,-75.4089 -31.4256,-75.4027 -31.4517,-75.4138 -31.6457,-75.4336 -31.8269,-75.4937 -32.1407,-75.5906 -32.3779,-75.6267 -32.5387,-75.6896 -32.7788,-75.7256 -32.9549,-75.7787 -36.7807,-76.4536 -37.0929,-76.4998 -37.4479,-76.5069 -37.4757,-76.5406 -38.0307,-76.6458 -38.1958,-76.6948 -38.3768,-76.7727 -38.6247,-76.8067 -38.7939,-76.855 -39.3568,-76.9267 -39.6879,-77.0189 -39.9089,-77.0417 -40.4699,-77.1549 -41.142,-77.1976 -41.9948,-77.3296 -43.06,-77.5037 -43.2169,-77.5398 -43.6308,-77.6008 -44.2177,-77.721 -44.712,-77.7399 -45.2217,-77.727 -46.3389,-77.6769 -46.7157,-77.7007 -47.0559,-77.7049 -48.3968,-77.7966 -48.9009,-77.7965 -49.2206,-77.7949 -49.8687,-77.7378 -50.8039,-77.7006 -51.0758,-77.6788 -51.7757,-77.5887 -53.2429,-77.48 -53.3558,-77.4889 -53.3307,-77.4748 -53.4707,-77.5069 -53.6717,-77.5106 -53.8258,-77.4959 -54.1387,-77.4979 -54.2686,-77.4798 -55.0057,-77.3269 -55.4817,-77.2288 -56.106,-77.0789 -56.4959,-77.0247 -56.5259,-76.9919 -56.941,-76.9047 -57.195,-76.849 -57.3239,-76.8028 -57.8617,-76.6878 -58.1787,-76.6058 -59.9728,-76.0608 -60.5218,-75.8497 -61.2827,-75.6249 -61.3807,-75.5667 -61.9348,-75.4117 -62.0418,-75.3477 -62.3057,-75.2859 -62.4337,-75.277 -63.084,-75.0996 -63.5549,-74.9516 -63.878,-74.9065 -64.436,-74.8308 -64.5756,-74.7967 -64.6986,-74.7857 -65.3827,-74.6899 -66.284,-74.6698 -67.0068,-74.694 -67.2138,-74.6746 -67.3897,-74.6268 -67.5828,-74.6487 -68.2628,-74.6128 -68.3169,-74.6268 -68.98,-74.5128 -69.7667,-74.3509 -69.9536,-74.3197 -70.4546,-74.1949 -70.5936,-74.1427 -70.7636,-74.0267 -70.5688,-73.9748 -70.4109,-73.9508 -70.2447,-73.9508 -69.8358,-73.8837 -69.5389,-73.7696 -69.4327,-73.7246 -69.4918,-73.6976 -69.3287,-73.6806 -69.1716,-73.6049 -68.6919,-73.4095 -68.5496,-73.3097 -68.5148,-72.962 -68.6189,-72.8316 -68.5789,-72.7426 -68.7979,-72.3999 -68.8337,-72.3547 -68.8978,-72.287 -69.0436,-72.2208 -69.0428,-72.1866 -69.1327,-72.1309 -69.2537,-71.9606 -69.1289,-71.8549 -69.1819,-71.828 -69.153,-71.799 -69.0338,-71.7757 -68.6979,-71.7936 -68.4798,-71.8499 -68.2517,-71.8798 -67.756,-71.9688 -67.5399,-72.0837 -67.4656,-72.0749 -67.3809,-72.1229 -66.9819,-72.2568 -66.9417,-72.2857 -66.7787,-72.3408 -66.6937,-72.3376 -66.5478,-72.3948 -66.2707,-72.4348 -66.2456,-72.4817 -66.159,-72.4958 -65.9617,-72.555 -65.8597,-72.6086 -65.8025,-72.6019 -65.6087,-72.6866 -65.4477,-72.7927 109,-3.0,Antarctica -74.2047,-64.1219 -74.183,-64.1349 -74.12,-64.1427 -74.0429,-64.1738 -73.9759,-64.1896 -73.9217,-64.2069 -73.8038,-64.2316 -73.677,-64.3617 -73.694,-64.3796 -73.7207,-64.6277 -73.7689,-64.6668 -73.6608,-65.1159 -72.831,-66.3068 -72.7587,-66.4448 -72.6828,-66.5248 -72.6109,-66.7847 -72.6938,-67.2207 -72.6997,-67.3609 -72.7579,-67.7276 -72.8596,-67.8948 -73.2289,-68.265 -73.2328,-68.3469 -73.3949,-68.5119 -73.578,-68.7188 -73.6609,-68.8578 -73.7987,-68.9057 -73.8819,-68.89 -73.9688,-68.8908 -74.4037,-68.9197 -74.5676,-68.8887 -74.7966,-68.8626 -74.9289,-68.7785 -75.4037,-68.721 -75.7367,-68.6398 -75.9876,-68.5988 -76.2978,-68.5706 -77.6159,-68.2777 -77.6857,-68.2436 -78.049,-68.1056 -78.248,-67.9538 -78.4726,-67.7166 -78.6459,-67.4437 -78.6969,-67.1849 -78.7846,-67.0727 -78.7618,-66.9275 -78.6138,-66.8758 -78.4546,-66.879 -78.337,-66.9245 -78.0857,-66.9517 -77.8397,-67.027 -77.4607,-67.1368 -77.2755,-67.153 -76.8688,-67.1626 -76.6338,-67.1817 -76.4819,-67.1669 -76.2069,-67.1158 -76.0258,-66.9699 -75.9656,-66.9637 -75.8899,-66.9317 -75.6608,-66.9409 -75.611,-66.9438 -75.5555,-66.9298 -75.5549,-66.8809 -75.5136,-66.8207 -75.4638,-66.8238 -75.3459,-66.8598 -75.2219,-66.9029 -74.9727,-66.8676 -74.7858,-66.7426 -74.7229,-66.6709 -74.5628,-66.5558 -74.549,-66.5058 -74.6329,-66.2396 -74.7118,-66.1438 -74.7696,-66.126 -75.0307,-65.8637 -75.0028,-65.7399 -74.923,-65.6738 -74.8989,-65.6878 -74.8339,-65.5747 -74.8668,-65.5708 -74.8686,-65.4246 -74.8969,-65.3798 -75.0046,-65.3519 -75.0837,-65.394 -75.2429,-65.379 -75.3868,-65.3147 -75.2139,-65.2069 -75.1669,-65.1117 -75.1388,-65.0117 -75.2679,-64.9708 -75.4048,-64.9137 -75.4409,-64.8288 -75.5345,-64.7188 -75.5787,-64.643 -75.608,-64.542 -75.6297,-64.4797 -75.6037,-64.2996 -75.5667,-64.263 -75.4096,-64.2128 -75.0449,-64.1527 -75.018,-64.1258 -74.9696,-64.1119 -74.8107,-64.0188 -74.7709,-64.0136 -74.7307,-64.0338 -74.4746,-64.0097 -74.1938,-64.0708 -74.2047,-64.1219 33,-3.0,Antarctica -79.0498,-65.0818 -79.1068,-65.1508 -79.25,-65.2258 -79.2738,-65.2038 -79.631,-65.3279 -79.6097,-65.5167 -79.5677,-65.545 -79.4906,-65.6189 -79.4587,-65.6237 -79.1258,-65.6367 -78.7698,-65.6625 -78.7227,-65.6988 -78.677,-65.7029 -78.6367,-65.7237 -78.5357,-65.7149 -78.4808,-65.7978 -78.4446,-65.8419 -78.1579,-65.8728 -78.1179,-65.8617 -77.9779,-65.8406 -77.7308,-65.763 -77.5518,-65.7299 -77.4788,-65.6677 -77.5377,-65.3527 -77.6469,-65.284 -77.7627,-65.2309 -77.926,-65.1978 -78.0968,-65.15 -78.269,-65.1568 -78.3959,-65.1369 -78.6036,-65.0997 -78.9589,-65.1217 -79.0498,-65.0818 56,-3.0,Antarctica -81.4678,-69.4298 -81.3478,-69.423 -81.2869,-69.444 -81.2247,-69.4238 -81.1356,-69.427 -81.037,-69.4139 -80.7696,-69.4218 -80.7458,-69.3968 -80.4956,-69.4059 -80.2357,-69.3978 -80.1088,-69.406 -79.977,-69.39 -79.8626,-69.4057 -79.8529,-69.3899 -79.7298,-69.3899 -79.3007,-69.3689 -79.0376,-69.399 -78.8807,-69.3959 -78.8727,-69.3789 -78.5498,-69.3879 -78.152,-69.3417 -78.1057,-69.3308 -77.9999,-69.3307 -77.9267,-69.245 -78.0077,-69.2278 -78.0677,-69.1838 -78.1997,-69.1387 -78.5435,-69.0848 -78.9689,-68.941 -79.909,-68.8147 -80.0159,-68.8056 -80.3067,-68.7689 -80.6187,-68.757 -80.7319,-68.7317 -80.9137,-68.7027 -81.0928,-68.7218 -81.1889,-68.6959 -81.1859,-68.7817 -81.2166,-68.8709 -81.1775,-68.8849 -81.1278,-68.921 -80.8028,-68.9968 -80.8128,-69.0138 -80.9238,-69.0748 -80.9879,-69.0868 -81.0109,-69.0728 -81.1926,-69.0908 -81.2308,-69.0848 -81.3338,-69.209 -81.304,-69.2387 -81.3149,-69.2949 -81.3397,-69.3198 -81.3809,-69.346 -81.3438,-69.3518 -81.3916,-69.3626 -81.4678,-69.4298 33,-5.0,Turks and Caicos -71.0655,21.496 -71.0613,21.4937 -71.0596,21.4887 -71.0602,21.4817 -71.0599,21.4693 -71.0599,21.4629 -71.0605,21.4561 -71.0602,21.45 -71.0593,21.4444 -71.0584,21.4388 -71.0578,21.433 -71.0581,21.4262 -71.0616,21.4224 -71.0658,21.4195 -71.0701,21.4168 -71.0757,21.4154 -71.0798,21.4183 -71.0798,21.4248 -71.0801,21.4309 -71.0795,21.4377 -71.0795,21.4438 -71.0801,21.4497 -71.0804,21.4559 -71.0772,21.4597 -71.0743,21.4644 -71.0734,21.4705 -71.0734,21.4767 -71.0728,21.4823 -71.0716,21.4884 -71.0699,21.4943 -71.0655,21.4966 -71.0655,21.496 -71.0655,21.496 40,-5.0,Turks and Caicos -72.3867,21.6847 -72.3823,21.6879 -72.3785,21.6911 -72.3738,21.6935 -72.3685,21.6958 -72.3635,21.6982 -72.3586,21.6958 -72.3577,21.6902 -72.3574,21.6838 -72.3586,21.6776 -72.3606,21.6723 -72.3624,21.6671 -72.3647,21.6615 -72.3665,21.6562 -72.3685,21.6506 -72.3706,21.6457 -72.3724,21.6404 -72.3744,21.6348 -72.3767,21.6295 -72.3797,21.6254 -72.3829,21.6216 -72.3867,21.6178 -72.3905,21.6146 -72.3958,21.6131 -72.4032,21.6137 -72.4081,21.6146 -72.4081,21.6187 -72.4032,21.621 -72.3999,21.6248 -72.3979,21.6301 -72.3967,21.6363 -72.3946,21.6418 -72.3932,21.648 -72.3926,21.655 -72.3908,21.6603 -72.3894,21.6665 -72.3882,21.6723 -72.387,21.6785 -72.3867,21.6847 -72.3867,21.6847 44,-5.0,Turks and Caicos -71.4231,21.5535 -71.4187,21.5518 -71.4175,21.5462 -71.4184,21.5395 -71.4201,21.5339 -71.4216,21.5277 -71.4222,21.521 -71.4204,21.516 -71.4195,21.5104 -71.4192,21.5043 -71.4207,21.4981 -71.4228,21.4928 -71.4248,21.4872 -71.4272,21.4828 -71.4301,21.4781 -71.4342,21.4749 -71.4392,21.4732 -71.4459,21.4732 -71.4527,21.4729 -71.4586,21.4749 -71.4618,21.4784 -71.4635,21.4834 -71.4647,21.489 -71.4656,21.4949 -71.4656,21.501 -71.4653,21.5081 -71.4644,21.5133 -71.4591,21.5136 -71.4533,21.5119 -71.4483,21.5136 -71.4439,21.5116 -71.4404,21.5081 -71.4363,21.5048 -71.4316,21.5057 -71.4298,21.5113 -71.4292,21.518 -71.4292,21.5245 -71.4295,21.5304 -71.431,21.5356 -71.4321,21.5409 -71.4316,21.5465 -71.4283,21.5506 -71.4231,21.5535 -71.4231,21.5535 69,-5.0,Turks and Caicos -71.5158,21.7319 -71.5137,21.7375 -71.5128,21.7422 -71.5084,21.7451 -71.5034,21.7469 -71.499,21.7448 -71.4949,21.7419 -71.4923,21.7392 -71.4911,21.736 -71.4882,21.7319 -71.4832,21.7293 -71.4773,21.7275 -71.4726,21.7249 -71.4685,21.7219 -71.4632,21.7193 -71.4562,21.7187 -71.4495,21.7187 -71.4453,21.7158 -71.4395,21.7137 -71.4321,21.7134 -71.4254,21.7122 -71.4181,21.7117 -71.4116,21.7102 -71.404,21.7096 -71.3967,21.709 -71.3928,21.7058 -71.3908,21.7011 -71.3899,21.6955 -71.3881,21.6902 -71.3873,21.6847 -71.3864,21.6791 -71.387,21.6721 -71.3881,21.6662 -71.3896,21.66 -71.3908,21.6539 -71.3923,21.6477 -71.3946,21.6433 -71.3987,21.6401 -71.4037,21.6377 -71.406,21.6421 -71.4063,21.6483 -71.4081,21.6533 -71.4107,21.6577 -71.4143,21.6612 -71.4172,21.6653 -71.4198,21.6694 -71.4225,21.6738 -71.4257,21.6773 -71.4283,21.682 -71.4316,21.6855 -71.4351,21.6894 -71.4409,21.6914 -71.4474,21.6926 -71.4542,21.6938 -71.4574,21.6976 -71.46,21.702 -71.465,21.7043 -71.4709,21.7061 -71.4767,21.7081 -71.4832,21.709 -71.4905,21.7099 -71.4961,21.7117 -71.5014,21.714 -71.5061,21.7166 -71.5096,21.7205 -71.5131,21.724 -71.5134,21.7304 -71.5158,21.7319 -71.5158,21.7319 34,-5.0,Turks and Caicos -71.4272,21.6615 -71.4272,21.6556 -71.4292,21.6503 -71.433,21.6471 -71.4357,21.6424 -71.4377,21.6371 -71.4404,21.6325 -71.4424,21.6272 -71.4415,21.6216 -71.4398,21.6163 -71.4389,21.6107 -71.438,21.6052 -71.4377,21.599 -71.4398,21.5934 -71.4448,21.5914 -71.4498,21.5896 -71.4556,21.5917 -71.458,21.5958 -71.4591,21.6016 -71.4591,21.6078 -71.4559,21.6116 -71.453,21.616 -71.4509,21.6216 -71.4509,21.6286 -71.4512,21.6342 -71.4524,21.6398 -71.4518,21.6465 -71.4492,21.6509 -71.4451,21.6545 -71.4398,21.6559 -71.4351,21.6583 -71.4298,21.66 -71.4272,21.6615 -71.4272,21.6615 14,-5.0,Turks and Caicos -71.5334,21.7542 -71.5281,21.753 -71.526,21.7495 -71.5257,21.7439 -71.5272,21.7392 -71.5339,21.7389 -71.5389,21.7398 -71.5425,21.743 -71.5457,21.7469 -71.546,21.7501 -71.5407,21.7518 -71.5378,21.7545 -71.5334,21.7542 -71.5334,21.7542 132,-5.0,Turks and Caicos -71.7777,21.8396 -71.7716,21.8378 -71.7669,21.8352 -71.7616,21.8328 -71.7569,21.8302 -71.7519,21.8281 -71.746,21.8261 -71.7411,21.8234 -71.7355,21.8217 -71.7287,21.8205 -71.7214,21.8199 -71.7147,21.8199 -71.7085,21.8211 -71.7026,21.822 -71.6968,21.8228 -71.6897,21.8228 -71.6824,21.8223 -71.6765,21.8205 -71.6706,21.8184 -71.6645,21.8176 -71.6577,21.8161 -71.651,21.8149 -71.6445,21.8149 -71.6396,21.8176 -71.6369,21.822 -71.6316,21.8234 -71.6249,21.8237 -71.6184,21.8228 -71.6117,21.8214 -71.6061,21.8193 -71.6002,21.8179 -71.5953,21.8152 -71.5911,21.8123 -71.5876,21.8082 -71.5862,21.8032 -71.5841,21.7982 -71.5821,21.7932 -71.58,21.7891 -71.5771,21.7847 -71.5756,21.7797 -71.5727,21.7753 -71.5703,21.7712 -71.5677,21.7665 -71.5659,21.7615 -71.5636,21.7571 -71.5686,21.7568 -71.5744,21.7589 -71.5785,21.7618 -71.5812,21.7662 -71.5838,21.7709 -71.5856,21.7759 -71.5879,21.78 -71.5914,21.7838 -71.5947,21.7873 -71.5958,21.7929 -71.5973,21.7979 -71.6008,21.802 -71.6055,21.8008 -71.6067,21.7961 -71.6046,21.7912 -71.6026,21.7868 -71.6005,21.7815 -71.5988,21.7768 -71.597,21.7718 -71.597,21.7656 -71.5953,21.7606 -71.5932,21.7554 -71.5891,21.7524 -71.585,21.7495 -71.5809,21.7463 -71.5774,21.7425 -71.575,21.7384 -71.573,21.7334 -71.5735,21.7293 -71.5788,21.7275 -71.5835,21.7249 -71.5888,21.7246 -71.5929,21.7281 -71.5964,21.7316 -71.5988,21.736 -71.6017,21.7401 -71.6041,21.7448 -71.6076,21.7486 -71.6108,21.7521 -71.6161,21.7533 -71.619,21.7495 -71.6219,21.7448 -71.6243,21.7401 -71.6287,21.7419 -71.6305,21.7454 -71.6319,21.7498 -71.6343,21.7542 -71.6369,21.7583 -71.6381,21.7642 -71.6396,21.7692 -71.6431,21.7727 -71.6489,21.7747 -71.6548,21.7738 -71.6616,21.7736 -71.6683,21.7733 -71.6742,21.7753 -71.68,21.7771 -71.6871,21.7777 -71.6932,21.7768 -71.6994,21.7759 -71.705,21.7744 -71.71,21.7727 -71.7152,21.7712 -71.7214,21.7703 -71.727,21.7686 -71.7323,21.7668 -71.7369,21.7645 -71.7411,21.7612 -71.7463,21.7598 -71.7531,21.7595 -71.7575,21.7612 -71.7598,21.7656 -71.7625,21.77 -71.7651,21.7744 -71.7677,21.7785 -71.771,21.7824 -71.7727,21.7873 -71.7739,21.7929 -71.7739,21.7991 -71.7727,21.8052 -71.7739,21.8111 -71.7754,21.8158 -71.7777,21.8202 -71.7804,21.8246 -71.7804,21.8308 -71.7777,21.8396 -71.7777,21.8396 116,-5.0,Turks and Caicos -71.935,21.9428 -71.9288,21.9422 -71.9218,21.9416 -71.9159,21.9411 -71.9097,21.9422 -71.903,21.9422 -71.8962,21.9411 -71.8898,21.9396 -71.883,21.9384 -71.8772,21.9381 -71.8713,21.9364 -71.8657,21.9343 -71.859,21.9331 -71.854,21.9323 -71.8475,21.9308 -71.8423,21.9282 -71.8387,21.9246 -71.8364,21.9202 -71.837,21.9135 -71.8396,21.9088 -71.842,21.9035 -71.8437,21.8979 -71.8443,21.8915 -71.8443,21.885 -71.844,21.8789 -71.8437,21.8724 -71.8428,21.8668 -71.8411,21.8619 -71.8393,21.8569 -71.8376,21.8519 -71.8349,21.8478 -71.8308,21.8445 -71.8267,21.8413 -71.8223,21.8384 -71.8191,21.8346 -71.8141,21.8322 -71.8109,21.8284 -71.8079,21.824 -71.8021,21.8223 -71.7983,21.8252 -71.7921,21.8264 -71.7897,21.822 -71.793,21.8181 -71.7971,21.8149 -71.8012,21.8117 -71.8059,21.8093 -71.8117,21.8085 -71.8191,21.8091 -71.825,21.8108 -71.8317,21.8123 -71.8358,21.8152 -71.839,21.8187 -71.8431,21.822 -71.8475,21.8252 -71.8484,21.8308 -71.8525,21.834 -71.8602,21.8343 -71.8643,21.8375 -71.8692,21.8399 -71.8734,21.8431 -71.8766,21.8469 -71.8801,21.8504 -71.8836,21.8545 -71.886,21.8586 -71.8886,21.863 -71.8904,21.868 -71.8921,21.873 -71.8874,21.8753 -71.8851,21.8786 -71.8807,21.8815 -71.8783,21.8862 -71.8757,21.8912 -71.8745,21.8959 -71.8731,21.9017 -71.871,21.907 -71.8698,21.9132 -71.8701,21.9182 -71.8736,21.922 -71.8778,21.9249 -71.8848,21.9249 -71.8868,21.9202 -71.8877,21.9147 -71.8889,21.9085 -71.8907,21.9032 -71.8956,21.9009 -71.8998,21.8976 -71.9045,21.8953 -71.9088,21.8929 -71.9144,21.8915 -71.9197,21.8897 -71.9177,21.8865 -71.9144,21.883 -71.9165,21.8792 -71.9218,21.8774 -71.9282,21.8786 -71.9323,21.8815 -71.9367,21.8847 -71.9417,21.8871 -71.9482,21.8883 -71.9549,21.8883 -71.959,21.89 -71.9578,21.8962 -71.9552,21.9009 -71.9537,21.907 -71.9531,21.9138 -71.957,21.9176 -71.964,21.9179 -71.9658,21.9229 -71.9634,21.9279 -71.9599,21.9317 -71.9567,21.934 -71.952,21.9364 -71.9473,21.9387 -71.9411,21.9396 -71.935,21.9428 -71.935,21.9428 16,-5.0,Turks and Caicos -71.8238,21.9282 -71.8211,21.9252 -71.817,21.9223 -71.8126,21.9191 -71.8094,21.9155 -71.8068,21.9111 -71.8059,21.9056 -71.8117,21.9047 -71.8162,21.9064 -71.8197,21.91 -71.8226,21.9138 -71.8247,21.9188 -71.8264,21.9226 -71.8244,21.9279 -71.8238,21.9282 -71.8238,21.9282 481,-4.0,Bahamas -78.893,26.6708 -78.8901,26.6679 -78.8857,26.6649 -78.8804,26.6626 -78.8751,26.6605 -78.8699,26.6582 -78.8643,26.6561 -78.8593,26.6538 -78.8546,26.6509 -78.8502,26.6479 -78.8458,26.6453 -78.8414,26.6421 -78.8364,26.64 -78.8291,26.6391 -78.822,26.638 -78.8162,26.6365 -78.8118,26.6336 -78.8074,26.6309 -78.8044,26.6262 -78.803,26.6206 -78.8018,26.6154 -78.8,26.6104 -78.7968,26.6063 -78.7915,26.6042 -78.7839,26.6039 -78.7772,26.6028 -78.7698,26.6019 -78.7648,26.5995 -78.7604,26.5966 -78.7566,26.5934 -78.754,26.589 -78.7502,26.5852 -78.7475,26.581 -78.7452,26.5764 -78.7434,26.5714 -78.7402,26.5673 -78.7367,26.5634 -78.7329,26.5614 -78.7302,26.5661 -78.7279,26.5708 -78.7232,26.572 -78.7164,26.5711 -78.7085,26.5708 -78.7012,26.5705 -78.6938,26.5708 -78.6862,26.5705 -78.6789,26.5705 -78.6715,26.5693 -78.6642,26.569 -78.6566,26.5687 -78.649,26.5684 -78.6419,26.569 -78.634,26.5687 -78.6281,26.5699 -78.6226,26.5717 -78.617,26.5734 -78.6117,26.5755 -78.6067,26.5781 -78.6023,26.5805 -78.5979,26.584 -78.5941,26.5872 -78.5909,26.591 -78.5868,26.5945 -78.5835,26.5986 -78.5812,26.6033 -78.5786,26.608 -78.5753,26.6118 -78.5721,26.6157 -78.5686,26.6201 -78.5656,26.6239 -78.5621,26.628 -78.558,26.6309 -78.5551,26.6353 -78.5516,26.6391 -78.5483,26.6432 -78.5457,26.6479 -78.5434,26.6526 -78.5407,26.6573 -78.5392,26.6614 -78.5384,26.6614 -78.5357,26.6647 -78.5328,26.6688 -78.5316,26.6749 -78.5296,26.6802 -78.5302,26.6867 -78.534,26.6899 -78.5398,26.6916 -78.5469,26.6928 -78.5539,26.6937 -78.5615,26.6937 -78.5674,26.6955 -78.5689,26.6996 -78.5651,26.7031 -78.5615,26.7069 -78.5627,26.7125 -78.5618,26.7172 -78.5571,26.7198 -78.5516,26.7216 -78.546,26.7236 -78.5407,26.7251 -78.5366,26.7286 -78.5343,26.7333 -78.5334,26.7395 -78.5319,26.7459 -78.5319,26.7524 -78.5322,26.7588 -78.5328,26.765 -78.5302,26.7697 -78.5269,26.7735 -78.5243,26.7782 -78.5225,26.7838 -78.5216,26.7899 -78.5161,26.7902 -78.5099,26.7887 -78.5064,26.7852 -78.5035,26.7811 -78.4996,26.7776 -78.4961,26.7738 -78.4932,26.7697 -78.4894,26.7662 -78.4867,26.7618 -78.4847,26.7568 -78.4823,26.7518 -78.4806,26.7471 -78.4782,26.7421 -78.4765,26.7374 -78.4741,26.7324 -78.4729,26.7268 -78.4712,26.7221 -78.4688,26.7172 -78.4633,26.7148 -78.4583,26.7142 -78.4533,26.7166 -78.4489,26.7192 -78.4424,26.7201 -78.4348,26.7201 -78.4281,26.7192 -78.4228,26.7169 -78.4166,26.7151 -78.4113,26.7131 -78.4061,26.7104 -78.4008,26.7084 -78.3955,26.706 -78.3893,26.7043 -78.3841,26.7022 -78.3788,26.6999 -78.3726,26.6984 -78.3668,26.6969 -78.36,26.6957 -78.3527,26.6949 -78.3459,26.6937 -78.3401,26.6922 -78.3348,26.6899 -78.3286,26.6887 -78.3233,26.6861 -78.3181,26.6837 -78.316,26.6831 -78.3148,26.6831 -78.3113,26.6802 -78.306,26.6781 -78.2999,26.6764 -78.2937,26.6746 -78.2861,26.6743 -78.2793,26.6735 -78.2717,26.6732 -78.2638,26.6729 -78.257,26.6732 -78.2518,26.6752 -78.2462,26.677 -78.2409,26.6787 -78.2365,26.6823 -78.2327,26.6855 -78.2295,26.6893 -78.2259,26.6934 -78.2221,26.6966 -78.218,26.699 -78.2127,26.701 -78.2072,26.7031 -78.1992,26.7028 -78.1934,26.701 -78.1881,26.699 -78.1831,26.6966 -78.1761,26.6955 -78.1696,26.6966 -78.1635,26.6978 -78.157,26.6969 -78.1508,26.6952 -78.1438,26.694 -78.1362,26.6937 -78.1285,26.6937 -78.1212,26.694 -78.1153,26.6952 -78.1101,26.6969 -78.1036,26.6981 -78.0972,26.6993 -78.0901,26.6996 -78.0828,26.6993 -78.0766,26.6978 -78.0713,26.6955 -78.0669,26.6925 -78.0625,26.6896 -78.0573,26.6875 -78.0502,26.6864 -78.0432,26.6869 -78.0364,26.6872 -78.032,26.6896 -78.0262,26.6916 -78.0215,26.694 -78.0165,26.6966 -78.0118,26.6993 -78.0065,26.701 -78.0004,26.7022 -77.9951,26.7043 -77.9895,26.7057 -77.9848,26.7087 -77.9784,26.7095 -77.9731,26.7113 -77.9666,26.7125 -77.9596,26.7131 -77.9528,26.7133 -77.9458,26.7125 -77.9396,26.7107 -77.9338,26.7092 -77.9273,26.7089 -77.9209,26.7095 -77.9135,26.7095 -77.9082,26.7116 -77.9021,26.7128 -77.8965,26.7145 -77.8918,26.7169 -77.8877,26.7201 -77.8839,26.7236 -77.8804,26.7274 -77.8771,26.7315 -77.8745,26.7362 -77.8727,26.7415 -77.8704,26.7462 -77.8654,26.7497 -77.8607,26.7509 -77.8575,26.7547 -77.8543,26.7588 -77.849,26.7576 -77.8443,26.755 -77.8408,26.7515 -77.8402,26.7453 -77.8428,26.7406 -77.8446,26.7351 -77.8472,26.7304 -77.8478,26.7233 -77.8481,26.7166 -77.8499,26.711 -77.8493,26.7048 -77.8484,26.6993 -77.8469,26.6937 -77.8455,26.6884 -77.8428,26.684 -77.8405,26.679 -77.8384,26.6743 -77.8358,26.6699 -77.8328,26.6658 -77.8308,26.6608 -77.8296,26.6553 -77.8299,26.6485 -77.8302,26.6415 -77.8323,26.6362 -77.8346,26.6315 -77.8384,26.6274 -77.8428,26.6245 -77.8475,26.6215 -77.8531,26.6201 -77.8598,26.6206 -77.8645,26.6239 -77.8681,26.6274 -77.8725,26.6303 -77.8769,26.6333 -77.8821,26.6356 -77.8874,26.6377 -77.8936,26.6394 -77.9012,26.6397 -77.9088,26.64 -77.9159,26.6397 -77.9232,26.64 -77.9311,26.6403 -77.9379,26.6415 -77.9431,26.6435 -77.9511,26.6438 -77.9564,26.6418 -77.9628,26.6409 -77.969,26.6397 -77.9751,26.6385 -77.9813,26.6368 -77.9874,26.6359 -77.993,26.6339 -77.9986,26.6321 -78.0048,26.6309 -78.01,26.6292 -78.0156,26.6271 -78.0224,26.6268 -78.0303,26.6271 -78.0373,26.6268 -78.0435,26.6256 -78.0496,26.6245 -78.0549,26.6227 -78.0614,26.6215 -78.0667,26.6198 -78.0731,26.6186 -78.079,26.6174 -78.0869,26.6177 -78.0945,26.618 -78.1021,26.6183 -78.1101,26.6186 -78.1165,26.6183 -78.1239,26.6177 -78.1315,26.6183 -78.1385,26.6177 -78.1462,26.618 -78.1526,26.6192 -78.1596,26.6201 -78.1676,26.6204 -78.1734,26.6192 -78.179,26.6171 -78.1852,26.616 -78.1907,26.6145 -78.1978,26.6139 -78.2039,26.6127 -78.2101,26.6116 -78.2163,26.6104 -78.2224,26.6095 -78.2289,26.6089 -78.2342,26.6072 -78.2403,26.606 -78.2459,26.6042 -78.2518,26.603 -78.2582,26.6019 -78.2653,26.6013 -78.2708,26.5995 -78.277,26.5986 -78.2837,26.5981 -78.2899,26.5969 -78.2961,26.5957 -78.3019,26.594 -78.3072,26.5922 -78.3128,26.5901 -78.3175,26.5878 -78.3228,26.5857 -78.3283,26.584 -78.3339,26.5822 -78.3395,26.5802 -78.3456,26.579 -78.3515,26.5781 -78.3571,26.5761 -78.3624,26.5743 -78.3685,26.5734 -78.375,26.572 -78.3805,26.5702 -78.3867,26.569 -78.3929,26.5681 -78.399,26.567 -78.4052,26.5655 -78.4113,26.5643 -78.4169,26.5629 -78.4231,26.5617 -78.4295,26.5605 -78.4354,26.559 -78.441,26.5576 -78.4465,26.5555 -78.4518,26.5535 -78.4565,26.5511 -78.4621,26.5491 -78.4668,26.5467 -78.4715,26.5441 -78.4765,26.5417 -78.4803,26.5382 -78.4844,26.535 -78.4891,26.5323 -78.4935,26.53 -78.4994,26.5279 -78.5038,26.5256 -78.5087,26.5227 -78.5096,26.5227 -78.5102,26.5221 -78.5152,26.5197 -78.5214,26.5186 -78.5266,26.5165 -78.5328,26.5156 -78.5384,26.5136 -78.5431,26.5109 -78.5486,26.5092 -78.5548,26.508 -78.5601,26.5059 -78.5651,26.5036 -78.5698,26.501 -78.5744,26.4986 -78.5791,26.4957 -78.5838,26.4933 -78.5885,26.4907 -78.5941,26.4889 -78.5985,26.4863 -78.6035,26.4839 -78.6082,26.481 -78.6135,26.4793 -78.619,26.4775 -78.6252,26.4763 -78.6325,26.4757 -78.6387,26.4746 -78.646,26.4749 -78.6531,26.4746 -78.6598,26.4754 -78.6651,26.4778 -78.671,26.4793 -78.6771,26.481 -78.6833,26.4825 -78.6889,26.4845 -78.693,26.4878 -78.6974,26.4904 -78.7021,26.4936 -78.7059,26.4971 -78.7094,26.5007 -78.7138,26.5036 -78.7173,26.5071 -78.7223,26.5103 -78.7267,26.513 -78.7311,26.5159 -78.7355,26.5189 -78.7399,26.5215 -78.7443,26.5247 -78.749,26.5274 -78.7528,26.5312 -78.7572,26.5341 -78.7607,26.5376 -78.7642,26.5412 -78.7681,26.5447 -78.7728,26.5476 -78.7763,26.5514 -78.7792,26.5555 -78.7827,26.559 -78.7874,26.562 -78.7909,26.5655 -78.7948,26.569 -78.7983,26.5728 -78.8012,26.5769 -78.8059,26.5796 -78.8085,26.584 -78.8121,26.5875 -78.8168,26.5904 -78.8206,26.5942 -78.825,26.5969 -78.8285,26.6004 -78.8329,26.6036 -78.837,26.6069 -78.8405,26.6104 -78.8443,26.6142 -78.8481,26.6177 -78.8508,26.6218 -78.8543,26.6256 -78.8584,26.6292 -78.8619,26.6327 -78.8655,26.6362 -78.8707,26.6385 -78.8751,26.6415 -78.879,26.645 -78.8834,26.6476 -78.8886,26.6503 -78.8939,26.6529 -78.8986,26.6559 -78.9027,26.6588 -78.9074,26.6617 -78.9109,26.6652 -78.9156,26.6682 -78.9191,26.672 -78.9221,26.6761 -78.925,26.6802 -78.9232,26.684 -78.9177,26.6861 -78.9118,26.6846 -78.9089,26.6802 -78.9045,26.6776 -78.9001,26.6743 -78.8954,26.6717 -78.893,26.6708 -78.893,26.6708 183,-5.0,Cayman Islands -81.3249,19.3111 -81.3258,19.3161 -81.3261,19.3223 -81.3267,19.3282 -81.3276,19.3343 -81.3279,19.3408 -81.3302,19.3455 -81.3329,19.3499 -81.3381,19.3519 -81.3437,19.3537 -81.3493,19.3548 -81.3552,19.3566 -81.3596,19.3595 -81.3616,19.3642 -81.3572,19.3669 -81.3528,19.3695 -81.349,19.373 -81.3461,19.3768 -81.3422,19.3804 -81.3384,19.3836 -81.334,19.3862 -81.3279,19.3874 -81.3232,19.3856 -81.3179,19.3833 -81.3144,19.3798 -81.3097,19.3774 -81.3068,19.3733 -81.3103,19.3698 -81.317,19.3707 -81.3208,19.3675 -81.3223,19.3619 -81.3211,19.3563 -81.3188,19.3516 -81.317,19.3466 -81.3147,19.3419 -81.3126,19.337 -81.3106,19.3323 -81.3085,19.3273 -81.3079,19.3211 -81.3088,19.315 -81.3091,19.3079 -81.3079,19.3023 -81.3059,19.2974 -81.3018,19.2941 -81.2971,19.2918 -81.2912,19.2906 -81.2856,19.2888 -81.278,19.2888 -81.2715,19.2891 -81.2663,19.2912 -81.2598,19.2915 -81.2534,19.2921 -81.2469,19.2915 -81.241,19.2927 -81.2363,19.2947 -81.2314,19.2971 -81.229,19.302 -81.2281,19.3082 -81.2243,19.3117 -81.2193,19.3135 -81.2141,19.3114 -81.2091,19.31 -81.2023,19.3106 -81.1994,19.3144 -81.2011,19.3179 -81.2048,19.3197 -81.2058,19.3202 -81.2053,19.3194 -81.2047,19.3194 -81.2048,19.3197 -81.2058,19.3223 -81.2053,19.3282 -81.2073,19.3331 -81.2108,19.3367 -81.2132,19.3411 -81.2132,19.3478 -81.2111,19.3525 -81.2058,19.3531 -81.2014,19.3502 -81.197,19.3475 -81.1929,19.3446 -81.1885,19.3416 -81.1844,19.3387 -81.1777,19.3381 -81.1706,19.3378 -81.1639,19.3378 -81.1571,19.3384 -81.1513,19.3367 -81.1457,19.3352 -81.1404,19.3331 -81.1343,19.3323 -81.1275,19.3314 -81.1205,19.3311 -81.1161,19.3326 -81.1105,19.3343 -81.1049,19.3355 -81.0988,19.337 -81.0923,19.3375 -81.0859,19.3381 -81.08,19.339 -81.0724,19.339 -81.0656,19.3387 -81.0589,19.3381 -81.0521,19.3384 -81.0451,19.3384 -81.0383,19.3375 -81.0336,19.3352 -81.0292,19.3326 -81.026,19.3282 -81.0243,19.3232 -81.0231,19.3176 -81.0231,19.3111 -81.0234,19.3041 -81.0248,19.2985 -81.0272,19.2938 -81.031,19.2906 -81.0354,19.2877 -81.0404,19.2862 -81.0457,19.2839 -81.0515,19.2827 -81.0574,19.2815 -81.0641,19.2809 -81.07,19.2824 -81.0759,19.2839 -81.0806,19.2862 -81.0864,19.2877 -81.0917,19.29 -81.0973,19.2915 -81.1037,19.2921 -81.1105,19.2915 -81.1164,19.2906 -81.1222,19.2891 -81.1281,19.288 -81.134,19.2862 -81.1404,19.2856 -81.1469,19.285 -81.1527,19.2839 -81.1589,19.2824 -81.1654,19.2818 -81.1709,19.2809 -81.1762,19.2789 -81.1794,19.2748 -81.1812,19.2695 -81.1827,19.2639 -81.1832,19.2577 -81.1865,19.2536 -81.1903,19.2501 -81.197,19.2495 -81.2041,19.2498 -81.2114,19.2498 -81.2185,19.2501 -81.2243,19.2516 -81.2293,19.2539 -81.2355,19.2554 -81.2402,19.2577 -81.2469,19.2583 -81.2537,19.2592 -81.2607,19.2595 -81.2666,19.2607 -81.2721,19.2624 -81.2774,19.2648 -81.2824,19.266 -81.2892,19.2668 -81.2936,19.2642 -81.298,19.2616 -81.3015,19.2583 -81.3053,19.2548 -81.3091,19.2516 -81.3141,19.2495 -81.32,19.2495 -81.3241,19.2525 -81.3273,19.2569 -81.3282,19.2621 -81.3305,19.2671 -81.3311,19.2733 -81.3308,19.2789 -81.3308,19.2859 -81.3305,19.2927 -81.329,19.2979 -81.3267,19.3029 -81.3244,19.3076 -81.3249,19.3111 -81.3249,19.3111 69,-5.0,Cayman Islands -79.8233,19.6784 -79.8197,19.6816 -79.8145,19.6837 -79.8083,19.6846 -79.8039,19.6872 -79.7998,19.6899 -79.7936,19.691 -79.7878,19.6922 -79.7819,19.6937 -79.7766,19.6951 -79.7737,19.6995 -79.7696,19.7028 -79.7658,19.706 -79.7622,19.7095 -79.7578,19.7119 -79.7526,19.7139 -79.7476,19.7157 -79.7423,19.7177 -79.7376,19.7204 -79.7332,19.7227 -79.7288,19.7256 -79.7241,19.728 -79.7191,19.73 -79.7159,19.7342 -79.7121,19.738 -79.7086,19.7412 -79.7039,19.7438 -79.6995,19.7465 -79.693,19.7471 -79.6868,19.7456 -79.6827,19.7424 -79.6778,19.7406 -79.671,19.7394 -79.666,19.7371 -79.6628,19.7336 -79.6628,19.7298 -79.6666,19.7262 -79.6707,19.7236 -79.6748,19.7204 -79.6792,19.7177 -79.683,19.7145 -79.6874,19.7119 -79.6918,19.7092 -79.6965,19.7066 -79.7009,19.7039 -79.7059,19.7022 -79.7112,19.7001 -79.7165,19.6984 -79.7223,19.6972 -79.7282,19.6957 -79.7341,19.6946 -79.7399,19.6937 -79.7455,19.6916 -79.7514,19.6904 -79.7573,19.689 -79.7622,19.6872 -79.7678,19.6855 -79.7728,19.6837 -79.7772,19.6808 -79.7816,19.6784 -79.7869,19.6764 -79.7913,19.6737 -79.7963,19.672 -79.8024,19.6708 -79.8089,19.6702 -79.8156,19.6711 -79.8206,19.674 -79.8233,19.6784 -79.8233,19.6784 60,-5.0,Cayman Islands -80.0415,19.647 -80.04,19.6523 -80.0368,19.6567 -80.033,19.6599 -80.0286,19.6626 -80.0242,19.6652 -80.0198,19.6679 -80.0157,19.6711 -80.0128,19.6752 -80.0104,19.6799 -80.0057,19.6825 -79.9993,19.6831 -79.9937,19.684 -79.987,19.6846 -79.9793,19.6843 -79.9729,19.6849 -79.9664,19.6855 -79.9597,19.686 -79.9547,19.6878 -79.9488,19.689 -79.9429,19.6902 -79.9374,19.6922 -79.9324,19.6943 -79.9265,19.6951 -79.9207,19.6963 -79.9142,19.6969 -79.9069,19.6966 -79.9007,19.6951 -79.8966,19.6922 -79.8951,19.6881 -79.8992,19.6846 -79.9045,19.6828 -79.9107,19.6837 -79.9174,19.6846 -79.9242,19.6855 -79.9292,19.6837 -79.9336,19.6811 -79.938,19.6784 -79.9432,19.6764 -79.9485,19.6746 -79.9529,19.672 -79.9582,19.6699 -79.9632,19.6681 -79.9685,19.6661 -79.9735,19.6643 -79.9793,19.6629 -79.9855,19.662 -79.9914,19.6608 -79.9952,19.6576 -79.9993,19.6541 -80.0037,19.6508 -80.0072,19.6473 -80.0116,19.645 -80.0169,19.6429 -80.0219,19.6412 -80.0274,19.6391 -80.0339,19.6385 -80.0398,19.6403 -80.0415,19.647 -80.0415,19.647 96,-4.0,Anguilla -63.0977,18.1495 -63.0944,18.1518 -63.0915,18.1562 -63.0886,18.1609 -63.0853,18.1644 -63.0809,18.1673 -63.0777,18.1712 -63.0748,18.1756 -63.0713,18.1791 -63.0671,18.1823 -63.0619,18.1835 -63.056,18.1841 -63.0504,18.1852 -63.0446,18.1861 -63.0399,18.1879 -63.0346,18.1893 -63.0305,18.1926 -63.0264,18.1952 -63.0217,18.1976 -63.0164,18.1987 -63.0123,18.2017 -63.0088,18.2052 -63.0055,18.209 -63.0044,18.2158 -63.0035,18.2213 -63.0006,18.2257 -62.997,18.2295 -62.9935,18.2331 -62.9903,18.2369 -62.9874,18.2413 -62.9832,18.2442 -62.9786,18.2463 -62.9733,18.2477 -62.9677,18.2492 -62.9633,18.251 -62.9577,18.2524 -62.9524,18.2539 -62.9466,18.2545 -62.9395,18.2536 -62.9322,18.2524 -62.9266,18.2515 -62.9216,18.2539 -62.9184,18.2574 -62.9134,18.2598 -62.9087,18.2615 -62.9026,18.2615 -62.8999,18.2571 -62.8994,18.2512 -62.9026,18.2468 -62.9067,18.2442 -62.9111,18.2419 -62.9146,18.2383 -62.914,18.2325 -62.9143,18.2263 -62.9167,18.2204 -62.9193,18.216 -62.9231,18.2122 -62.9278,18.2102 -62.9331,18.2087 -62.9392,18.2084 -62.9431,18.2052 -62.9466,18.2017 -62.951,18.1993 -62.956,18.1976 -62.9607,18.1952 -62.9659,18.1938 -62.9712,18.1926 -62.9765,18.1914 -62.9803,18.1876 -62.985,18.1852 -62.9903,18.1841 -62.9956,18.1826 -62.9994,18.1797 -63.0041,18.1776 -63.0073,18.1732 -63.0105,18.1694 -63.0155,18.1673 -63.0199,18.1653 -63.0246,18.1629 -63.0287,18.1603 -63.0319,18.1641 -63.0352,18.1671 -63.039,18.1706 -63.0449,18.17 -63.0493,18.1671 -63.0534,18.1641 -63.0572,18.1615 -63.0613,18.1583 -63.066,18.1562 -63.0701,18.1533 -63.0754,18.1518 -63.0806,18.1506 -63.0865,18.15 -63.0915,18.1512 -63.0977,18.1495 -63.0977,18.1495 62,-4.0,Nevis -62.5297,17.1823 -62.5227,17.1811 -62.5174,17.1826 -62.5127,17.1846 -62.506,17.1843 -62.5007,17.1823 -62.496,17.1793 -62.4913,17.1767 -62.4851,17.1752 -62.4787,17.1749 -62.4746,17.1717 -62.4725,17.1673 -62.4713,17.162 -62.4705,17.1564 -62.4699,17.1509 -62.4693,17.1453 -62.4681,17.14 -62.4667,17.135 -62.4652,17.13 -62.4646,17.1245 -62.464,17.1186 -62.4643,17.1124 -62.4652,17.1057 -62.4672,17.0995 -62.4687,17.0937 -62.4713,17.089 -62.4743,17.0846 -62.4778,17.0811 -62.4828,17.079 -62.4884,17.0796 -62.4936,17.0819 -62.5001,17.0822 -62.5054,17.0808 -62.5104,17.0787 -62.5151,17.0767 -62.5212,17.0769 -62.5271,17.0778 -62.5332,17.079 -62.5406,17.0802 -62.5441,17.0837 -62.547,17.0875 -62.5497,17.0919 -62.552,17.0963 -62.5538,17.1007 -62.5552,17.1057 -62.5561,17.1116 -62.5558,17.1177 -62.5555,17.1242 -62.5544,17.1309 -62.5535,17.1362 -62.552,17.1421 -62.5503,17.1482 -62.5479,17.1535 -62.5459,17.1588 -62.5435,17.1638 -62.5415,17.1691 -62.54,17.1761 -62.54,17.1823 -62.5371,17.1867 -62.5315,17.1858 -62.5297,17.1823 -62.5297,17.1823 151,-4.0,Antigua and Barbuda -61.7981,17.6772 -61.796,17.6728 -61.7922,17.6695 -61.7893,17.6654 -61.7861,17.6616 -61.7834,17.6575 -61.7793,17.654 -61.7773,17.6496 -61.7749,17.6452 -61.7729,17.6408 -61.7705,17.6364 -61.7691,17.6314 -61.7696,17.6249 -61.7705,17.6182 -61.7717,17.6114 -61.7732,17.6056 -61.7729,17.5997 -61.7696,17.5959 -61.7638,17.595 -61.7605,17.5988 -61.7588,17.6047 -61.7567,17.61 -61.755,17.6161 -61.7535,17.6226 -61.7526,17.6293 -61.7523,17.6358 -61.7529,17.6414 -61.7535,17.6469 -61.7556,17.6516 -61.7576,17.656 -61.7617,17.6593 -61.7664,17.6622 -61.7702,17.6654 -61.774,17.6689 -61.7787,17.6716 -61.7834,17.6745 -61.7864,17.6783 -61.7884,17.6827 -61.789,17.6883 -61.7887,17.6948 -61.7867,17.6997 -61.7837,17.7041 -61.7802,17.7077 -61.7755,17.71 -61.7691,17.7097 -61.7641,17.7068 -61.7597,17.7041 -61.7567,17.7003 -61.7535,17.6962 -61.7517,17.6918 -61.7494,17.6874 -61.7509,17.6827 -61.7559,17.6813 -61.762,17.6807 -61.7614,17.6766 -61.7564,17.6739 -61.7512,17.6716 -61.7438,17.6704 -61.7394,17.6713 -61.7374,17.6751 -61.7362,17.6804 -61.7333,17.6851 -61.7289,17.6871 -61.723,17.6877 -61.7171,17.6854 -61.7136,17.6821 -61.7104,17.6783 -61.7075,17.6745 -61.7048,17.6704 -61.7013,17.6666 -61.6975,17.6631 -61.6951,17.6587 -61.6916,17.6552 -61.689,17.6513 -61.6849,17.6481 -61.681,17.6446 -61.6769,17.6414 -61.6734,17.6381 -61.6702,17.634 -61.6681,17.6296 -61.667,17.6246 -61.6652,17.6197 -61.6637,17.6144 -61.6617,17.61 -61.6605,17.605 -61.6599,17.5994 -61.659,17.5935 -61.6593,17.5874 -61.6599,17.5809 -61.6602,17.5751 -61.6605,17.5689 -61.6614,17.5619 -61.6608,17.5563 -61.6611,17.5501 -61.6608,17.5443 -61.6608,17.5384 -61.6611,17.5322 -61.6629,17.5261 -61.6687,17.5255 -61.6728,17.5287 -61.6755,17.5328 -61.6819,17.5343 -61.6872,17.5331 -61.6913,17.5302 -61.6972,17.5296 -61.6995,17.534 -61.7016,17.5387 -61.7039,17.5434 -61.7075,17.5472 -61.7121,17.5498 -61.7168,17.5528 -61.7212,17.5554 -61.7277,17.5572 -61.7315,17.5604 -61.7362,17.5633 -61.7412,17.566 -61.7456,17.5689 -61.752,17.5704 -61.7582,17.5718 -61.7647,17.5736 -61.7693,17.5715 -61.7729,17.5677 -61.7776,17.5657 -61.7831,17.568 -61.7852,17.5724 -61.7867,17.5774 -61.7861,17.5839 -61.7858,17.59 -61.7875,17.595 -61.7878,17.6006 -61.7878,17.6067 -61.7875,17.6129 -61.7878,17.6185 -61.7878,17.6249 -61.7884,17.6305 -61.7887,17.6361 -61.7893,17.642 -61.7916,17.6464 -61.7937,17.6508 -61.7958,17.6552 -61.799,17.6593 -61.801,17.6637 -61.8025,17.6689 -61.804,17.6739 -61.8043,17.6795 -61.8051,17.6836 -61.8031,17.6889 -61.7981,17.686 -61.796,17.6816 -61.7981,17.6772 -61.7981,17.6772 171,-4.0,Antigua and Barbuda -61.7564,17.152 -61.7509,17.1515 -61.7444,17.1497 -61.7374,17.1488 -61.7312,17.1491 -61.7245,17.1482 -61.7192,17.1462 -61.7142,17.1432 -61.7113,17.1394 -61.7083,17.1356 -61.706,17.1309 -61.7031,17.1271 -61.7016,17.1218 -61.7025,17.1166 -61.706,17.113 -61.7048,17.1078 -61.7016,17.1039 -61.6978,17.1004 -61.6931,17.0978 -61.6869,17.0963 -61.6854,17.1007 -61.686,17.1066 -61.6849,17.1119 -61.681,17.1151 -61.6769,17.1177 -61.674,17.1221 -61.6696,17.1215 -61.6676,17.1168 -61.6652,17.1124 -61.6608,17.1098 -61.6546,17.1101 -61.6494,17.1116 -61.6444,17.1127 -61.6385,17.1122 -61.6356,17.108 -61.6356,17.1034 -61.6397,17.1004 -61.645,17.0992 -61.6508,17.0987 -61.6564,17.0972 -61.6608,17.0951 -61.6602,17.0907 -61.6573,17.0869 -61.6541,17.0831 -61.652,17.0784 -61.6497,17.074 -61.6447,17.0755 -61.6391,17.0767 -61.6326,17.0752 -61.6265,17.0734 -61.623,17.0772 -61.6192,17.0799 -61.6145,17.0772 -61.6098,17.0793 -61.6042,17.0784 -61.6001,17.0752 -61.5989,17.0699 -61.6001,17.0632 -61.6042,17.0605 -61.6106,17.0608 -61.6168,17.0611 -61.6224,17.0596 -61.6259,17.0561 -61.6236,17.0526 -61.6194,17.0508 -61.613,17.0491 -61.6065,17.0476 -61.6013,17.0456 -61.5983,17.0417 -61.5969,17.0365 -61.5963,17.0309 -61.5974,17.0256 -61.6024,17.0241 -61.6071,17.0221 -61.6106,17.0183 -61.6124,17.0124 -61.6165,17.0095 -61.6218,17.0083 -61.6288,17.0095 -61.6353,17.0107 -61.6417,17.0124 -61.647,17.0148 -61.6517,17.0174 -61.6579,17.0192 -61.6637,17.0186 -61.667,17.0142 -61.6646,17.0098 -61.6617,17.0057 -61.6593,17.0013 -61.6579,16.996 -61.6576,16.9904 -61.6579,16.9843 -61.6585,16.979 -61.6623,16.9752 -61.6681,16.9746 -61.6734,16.9755 -61.6799,16.9772 -61.6852,16.9793 -61.6916,16.981 -61.6972,16.9831 -61.6987,16.9884 -61.7007,16.9928 -61.7036,16.9966 -61.7107,16.9977 -61.7154,16.9954 -61.7183,16.991 -61.7201,16.9851 -61.7271,16.9863 -61.7333,16.9878 -61.7394,16.9872 -61.7444,16.986 -61.7494,16.984 -61.7538,16.9819 -61.7591,16.9819 -61.7623,16.9843 -61.7652,16.9884 -61.7705,16.9904 -61.7779,16.9916 -61.7817,16.9948 -61.7878,16.9963 -61.794,16.998 -61.8002,16.9998 -61.806,17.0019 -61.8104,17.0048 -61.8136,17.0086 -61.8157,17.013 -61.8172,17.018 -61.8154,17.0241 -61.8131,17.0294 -61.8113,17.0353 -61.811,17.0417 -61.8125,17.0467 -61.8154,17.0505 -61.8178,17.0549 -61.8169,17.0605 -61.8122,17.0626 -61.806,17.0629 -61.8002,17.0635 -61.7969,17.0673 -61.7984,17.0708 -61.8022,17.074 -61.8078,17.0764 -61.8131,17.0752 -61.8189,17.0746 -61.821,17.079 -61.8195,17.0849 -61.8172,17.0902 -61.8142,17.0946 -61.8107,17.0984 -61.8075,17.1019 -61.8025,17.1042 -61.799,17.1007 -61.7925,17.0992 -61.7861,17.0975 -61.779,17.0966 -61.7732,17.0972 -61.7696,17.1007 -61.7696,17.1054 -61.7752,17.1078 -61.7817,17.1095 -61.7837,17.1139 -61.784,17.1195 -61.782,17.1248 -61.7781,17.1283 -61.7749,17.1318 -61.7717,17.1359 -61.7685,17.1403 -61.7661,17.1453 -61.7626,17.1488 -61.7564,17.152 -61.7564,17.152 73,-4.0,Montserrat -62.1319,16.7986 -62.1246,16.7974 -62.1184,16.7959 -62.1123,16.7944 -62.1064,16.7936 -62.1076,16.7868 -62.1091,16.7807 -62.1085,16.7751 -62.1064,16.7707 -62.1035,16.7669 -62.0997,16.7636 -62.0959,16.7601 -62.0935,16.7557 -62.092,16.7504 -62.0882,16.7472 -62.0844,16.7437 -62.0809,16.7405 -62.078,16.7367 -62.0762,16.7317 -62.0759,16.7261 -62.0753,16.7205 -62.0765,16.7158 -62.0788,16.7106 -62.0806,16.7044 -62.0794,16.6994 -62.0771,16.695 -62.075,16.6906 -62.0727,16.6862 -62.0697,16.6821 -62.0674,16.6777 -62.0703,16.6733 -62.0744,16.6704 -62.078,16.6665 -62.0815,16.663 -62.0856,16.6601 -62.0903,16.658 -62.0956,16.6566 -62.1014,16.6563 -62.1076,16.6563 -62.1143,16.6566 -62.1199,16.6575 -62.1243,16.6601 -62.129,16.663 -62.1337,16.6657 -62.1387,16.6686 -62.1425,16.6718 -62.1451,16.6756 -62.1475,16.6803 -62.1504,16.6841 -62.1548,16.6868 -62.1598,16.6897 -62.1636,16.6929 -62.1666,16.6968 -62.1671,16.7023 -62.166,16.7091 -62.1657,16.7155 -62.1627,16.7199 -62.1601,16.7243 -62.1572,16.7287 -62.1548,16.7337 -62.1533,16.7399 -62.1525,16.7469 -62.151,16.7537 -62.149,16.759 -62.146,16.7634 -62.1428,16.7669 -62.1404,16.7722 -62.1387,16.778 -62.1387,16.7845 -62.1384,16.7906 -62.1372,16.7959 -62.1319,16.7986 -62.1319,16.7986 219,-4.0,Guadaloupe -61.4525,16.3779 -61.4534,16.3823 -61.4546,16.3876 -61.4566,16.3926 -61.4581,16.3978 -61.4593,16.4028 -61.4599,16.4084 -61.4613,16.4134 -61.4628,16.4184 -61.4634,16.4242 -61.4622,16.4307 -61.4616,16.4369 -61.459,16.4413 -61.456,16.4457 -61.4525,16.4495 -61.4478,16.4515 -61.4443,16.4553 -61.4414,16.4597 -61.439,16.465 -61.437,16.47 -61.4323,16.4721 -61.4264,16.4726 -61.4211,16.4738 -61.417,16.477 -61.4126,16.4797 -61.4088,16.4823 -61.4053,16.4861 -61.4024,16.4905 -61.4003,16.4958 -61.3962,16.4985 -61.3903,16.499 -61.3865,16.4979 -61.3848,16.4935 -61.3824,16.4891 -61.3768,16.487 -61.3704,16.4867 -61.366,16.4838 -61.3631,16.48 -61.3601,16.4762 -61.3569,16.4718 -61.3534,16.4685 -61.3478,16.4665 -61.3422,16.4644 -61.3378,16.4615 -61.3346,16.4577 -61.3325,16.453 -61.3314,16.448 -61.3308,16.4424 -61.3293,16.4374 -61.3281,16.4322 -61.3261,16.4278 -61.3243,16.4228 -61.3229,16.4178 -61.322,16.4128 -61.3214,16.4069 -61.3229,16.4011 -61.3252,16.3958 -61.3279,16.3905 -61.3293,16.3846 -61.3302,16.3776 -61.3287,16.3726 -61.327,16.3682 -61.3246,16.3638 -61.3208,16.3606 -61.3179,16.3565 -61.3149,16.3527 -61.312,16.3488 -61.3088,16.345 -61.3061,16.3403 -61.3032,16.3362 -61.3,16.3324 -61.2965,16.3292 -61.2924,16.3257 -61.2877,16.323 -61.2824,16.3207 -61.2759,16.3192 -61.2695,16.318 -61.2636,16.3186 -61.2563,16.3175 -61.2495,16.3163 -61.2422,16.3151 -61.2357,16.3139 -61.2287,16.3128 -61.2217,16.3116 -61.2155,16.3098 -61.209,16.3084 -61.2038,16.306 -61.1985,16.304 -61.1947,16.3004 -61.19,16.2978 -61.187,16.2937 -61.1832,16.2905 -61.1806,16.2867 -61.1765,16.2834 -61.173,16.2799 -61.1689,16.2767 -61.1645,16.2737 -61.1598,16.2711 -61.1559,16.2676 -61.1521,16.2644 -61.1474,16.2617 -61.1439,16.2582 -61.1392,16.2556 -61.1354,16.252 -61.1298,16.25 -61.124,16.2482 -61.1172,16.2479 -61.1108,16.2476 -61.1037,16.2468 -61.099,16.2438 -61.097,16.2394 -61.0964,16.2338 -61.0993,16.2294 -61.1028,16.2259 -61.1084,16.2245 -61.1137,16.2253 -61.119,16.2274 -61.1243,16.2297 -61.1301,16.2318 -61.1363,16.2336 -61.1416,16.2359 -61.1489,16.2368 -61.1557,16.238 -61.1624,16.2382 -61.1689,16.2385 -61.1741,16.2371 -61.18,16.2365 -61.185,16.2353 -61.1891,16.2324 -61.1932,16.2297 -61.1985,16.2283 -61.2038,16.2271 -61.209,16.2259 -61.2149,16.2253 -61.2202,16.2242 -61.2266,16.2245 -61.2325,16.2239 -61.2384,16.2233 -61.2448,16.2236 -61.2507,16.223 -61.2566,16.2224 -61.2624,16.2218 -61.2683,16.2215 -61.2742,16.2209 -61.2794,16.2198 -61.2847,16.2186 -61.29,16.2171 -61.2953,16.2157 -61.3,16.2139 -61.3038,16.2107 -61.3085,16.2089 -61.3132,16.2066 -61.3185,16.2054 -61.3237,16.2042 -61.329,16.2028 -61.3337,16.2007 -61.339,16.1995 -61.344,16.1975 -61.349,16.196 -61.3543,16.1948 -61.3589,16.1928 -61.3636,16.1907 -61.3689,16.1893 -61.3742,16.1881 -61.3795,16.1869 -61.3848,16.1854 -61.3906,16.1849 -61.3968,16.1852 -61.4041,16.1863 -61.4094,16.1887 -61.4159,16.1901 -61.422,16.1919 -61.4282,16.1934 -61.4335,16.1954 -61.439,16.1978 -61.4431,16.201 -61.4472,16.2039 -61.4511,16.2072 -61.4558,16.2101 -61.4596,16.2133 -61.4634,16.2165 -61.4663,16.2206 -61.4695,16.2245 -61.4725,16.2283 -61.4745,16.2327 -61.4766,16.2374 -61.478,16.2424 -61.4786,16.2479 -61.4792,16.2535 -61.478,16.2605 -61.4766,16.2649 -61.4745,16.2702 -61.4719,16.2755 -61.4692,16.2799 -61.466,16.2843 -61.4634,16.2887 -61.4616,16.2946 -61.4604,16.3016 -61.459,16.3075 -61.4578,16.3145 -61.4566,16.321 -61.4543,16.3263 -61.4511,16.3301 -61.447,16.3327 -61.4411,16.3333 -61.4346,16.333 -61.4288,16.3336 -61.4247,16.3362 -61.4229,16.3424 -61.4226,16.3486 -61.4223,16.3547 -61.4229,16.3606 -61.4232,16.3662 -61.4279,16.3688 -61.434,16.3706 -61.4396,16.3726 -61.4458,16.3744 -61.4525,16.3779 -61.4525,16.3779 226,-4.0,Dominica -61.398,15.6131 -61.3921,15.6134 -61.3865,15.6146 -61.3821,15.6169 -61.3763,15.6172 -61.3701,15.6169 -61.3636,15.6166 -61.3572,15.6152 -61.3528,15.6125 -61.349,15.609 -61.346,15.6049 -61.3431,15.6005 -61.3408,15.5961 -61.3381,15.5923 -61.3358,15.5876 -61.3328,15.5838 -61.3299,15.58 -61.3261,15.5767 -61.3217,15.5738 -61.3144,15.5726 -61.3085,15.5732 -61.3038,15.5753 -61.2994,15.5773 -61.2947,15.5794 -61.2888,15.58 -61.2841,15.577 -61.278,15.5756 -61.2709,15.5744 -61.2651,15.5726 -61.2586,15.5712 -61.2533,15.5691 -61.2478,15.5668 -61.2442,15.5635 -61.2387,15.5615 -61.234,15.5585 -61.2352,15.5515 -61.2363,15.5451 -61.2349,15.5401 -61.2328,15.5354 -61.2308,15.531 -61.2278,15.5272 -61.2246,15.5231 -61.2193,15.521 -61.2131,15.5195 -61.209,15.516 -61.2102,15.5104 -61.2079,15.506 -61.2026,15.504 -61.1973,15.5016 -61.1982,15.4964 -61.1991,15.4893 -61.1988,15.4837 -61.1967,15.4793 -61.1935,15.4755 -61.1914,15.4711 -61.1894,15.4658 -61.1882,15.4609 -61.187,15.4559 -61.1856,15.4509 -61.1832,15.4462 -61.1829,15.4406 -61.1835,15.4353 -61.1867,15.4306 -61.1894,15.4262 -61.1917,15.421 -61.1929,15.4145 -61.1909,15.4098 -61.1876,15.406 -61.185,15.4022 -61.1841,15.3978 -61.1873,15.394 -61.1911,15.3905 -61.1885,15.3875 -61.185,15.384 -61.1818,15.3802 -61.185,15.3758 -61.1888,15.3731 -61.1885,15.3693 -61.185,15.3661 -61.1835,15.3611 -61.185,15.3564 -61.1891,15.3535 -61.1906,15.3488 -61.1885,15.3444 -61.187,15.3394 -61.1867,15.3338 -61.1853,15.3289 -61.1838,15.3239 -61.1818,15.3192 -61.1806,15.3142 -61.1809,15.308 -61.1818,15.3013 -61.1832,15.2951 -61.1835,15.2892 -61.185,15.2825 -61.1844,15.2766 -61.1853,15.2699 -61.187,15.2637 -61.19,15.2596 -61.1929,15.2552 -61.1947,15.2491 -61.195,15.2429 -61.1973,15.2376 -61.1999,15.2332 -61.2032,15.2297 -61.207,15.2262 -61.2102,15.2224 -61.2152,15.2206 -61.2208,15.22 -61.2255,15.2215 -61.2293,15.2247 -61.2334,15.2279 -61.2378,15.2309 -61.2422,15.23 -61.246,15.2271 -61.2492,15.2227 -61.2519,15.2183 -61.2542,15.2133 -61.2572,15.2089 -61.2621,15.2074 -61.2668,15.2056 -61.2704,15.2018 -61.2727,15.1965 -61.275,15.1913 -61.2777,15.1869 -61.2824,15.1848 -61.2877,15.1836 -61.2935,15.1831 -61.3006,15.1842 -61.3041,15.1875 -61.3058,15.1924 -61.3026,15.1968 -61.3006,15.2021 -61.3,15.2083 -61.302,15.2127 -61.3044,15.2171 -61.3073,15.2215 -61.3073,15.2274 -61.3076,15.2329 -61.3067,15.2397 -61.3056,15.2467 -61.3044,15.2532 -61.3041,15.2593 -61.3061,15.2637 -61.31,15.2672 -61.3147,15.2699 -61.3199,15.2722 -61.3214,15.2772 -61.322,15.2831 -61.3223,15.2887 -61.3243,15.2931 -61.324,15.2992 -61.3229,15.306 -61.3208,15.311 -61.3205,15.3174 -61.3202,15.3236 -61.3208,15.3291 -61.3214,15.3347 -61.3229,15.3397 -61.3249,15.3444 -61.3281,15.3482 -61.3308,15.352 -61.3337,15.3561 -61.3375,15.3594 -61.3413,15.3626 -61.3443,15.3667 -61.3481,15.3699 -61.3507,15.3737 -61.3525,15.3787 -61.3528,15.3843 -61.3534,15.3902 -61.3531,15.3963 -61.3528,15.4025 -61.3557,15.4063 -61.3587,15.4101 -61.3633,15.413 -61.368,15.4157 -61.3716,15.4192 -61.3763,15.4218 -61.3786,15.4262 -61.3763,15.4315 -61.3783,15.4359 -61.3804,15.4406 -61.3833,15.4444 -61.3862,15.4482 -61.3892,15.4521 -61.3924,15.4562 -61.3947,15.4609 -61.3974,15.4647 -61.4012,15.4679 -61.4047,15.4714 -61.4065,15.4764 -61.4068,15.482 -61.4071,15.4876 -61.4065,15.4943 -61.4074,15.4993 -61.4097,15.504 -61.4117,15.5084 -61.415,15.5122 -61.4176,15.516 -61.42,15.5204 -61.4214,15.5254 -61.4185,15.5301 -61.4132,15.5313 -61.4085,15.5336 -61.4038,15.5354 -61.4,15.5383 -61.3968,15.5427 -61.3941,15.5471 -61.3924,15.5533 -61.3962,15.5565 -61.4015,15.5588 -61.4079,15.5588 -61.4135,15.56 -61.4167,15.5638 -61.4159,15.5691 -61.4123,15.5726 -61.4076,15.575 -61.4047,15.5794 -61.4035,15.5861 -61.405,15.5911 -61.4056,15.5967 -61.4047,15.6034 -61.4009,15.6072 -61.398,15.6131 -61.398,15.6131 402,-4.0,Martinique -61.1287,14.8439 -61.1243,14.8469 -61.1204,14.8498 -61.1163,14.8524 -61.1125,14.8551 -61.1087,14.8589 -61.1046,14.8618 -61.1002,14.8639 -61.0949,14.8654 -61.0885,14.8651 -61.0817,14.8639 -61.0747,14.8627 -61.0694,14.8604 -61.0647,14.8577 -61.0594,14.8554 -61.0539,14.8533 -61.048,14.8516 -61.0424,14.8498 -61.036,14.848 -61.0301,14.8463 -61.0248,14.8442 -61.0198,14.8413 -61.0154,14.8387 -61.0116,14.8351 -61.0075,14.8325 -61.0037,14.829 -60.999,14.8263 -60.9934,14.824 -60.9881,14.8219 -60.9829,14.8196 -60.9767,14.8181 -60.9697,14.8169 -60.9644,14.814 -60.9615,14.8102 -60.9585,14.8064 -60.955,14.8029 -60.9512,14.7996 -60.9471,14.7964 -60.9409,14.7947 -60.935,14.7929 -60.933,14.7885 -60.9315,14.7835 -60.9289,14.7797 -60.9254,14.7756 -60.9204,14.7735 -60.9157,14.7706 -60.9119,14.7674 -60.9069,14.7653 -60.9063,14.7595 -60.9042,14.755 -60.901,14.7509 -60.8984,14.7471 -60.896,14.7427 -60.894,14.7383 -60.8919,14.7339 -60.8881,14.7304 -60.884,14.7333 -60.8805,14.7369 -60.8778,14.7413 -60.8746,14.7457 -60.872,14.7504 -60.8664,14.7477 -60.8597,14.7468 -60.8544,14.748 -60.8511,14.7507 -60.847,14.7533 -60.8423,14.7553 -60.8371,14.7565 -60.8327,14.7571 -60.8289,14.76 -60.8236,14.7612 -60.8177,14.7618 -60.8121,14.7609 -60.8077,14.7583 -60.806,14.7533 -60.8101,14.7495 -60.8151,14.7483 -60.8221,14.7495 -60.8271,14.748 -60.8262,14.7439 -60.8242,14.7404 -60.8286,14.7386 -60.8321,14.7348 -60.8321,14.7301 -60.8333,14.7245 -60.8379,14.7228 -60.8421,14.7207 -60.8465,14.7242 -60.8491,14.7281 -60.852,14.7319 -60.855,14.7357 -60.8599,14.7357 -60.8644,14.7339 -60.8679,14.7301 -60.8708,14.7257 -60.8723,14.719 -60.8726,14.7128 -60.8679,14.7099 -60.8641,14.7066 -60.8641,14.702 -60.8649,14.6964 -60.8614,14.6932 -60.8591,14.697 -60.855,14.6996 -60.8506,14.697 -60.8503,14.6914 -60.8456,14.6885 -60.8418,14.6852 -60.8388,14.6814 -60.8435,14.6794 -60.8485,14.6779 -60.8541,14.677 -60.8585,14.6747 -60.8602,14.6703 -60.8582,14.6665 -60.8629,14.6644 -60.8673,14.6618 -60.8702,14.6571 -60.8693,14.6512 -60.8676,14.6468 -60.8626,14.6442 -60.8579,14.6442 -60.8538,14.6468 -60.8503,14.6506 -60.8465,14.6535 -60.8409,14.6524 -60.8365,14.65 -60.8309,14.6477 -60.8259,14.6489 -60.8206,14.6489 -60.8186,14.6445 -60.8206,14.6406 -60.8262,14.6401 -60.8315,14.6389 -60.8365,14.6374 -60.8356,14.6324 -60.8318,14.6292 -60.8303,14.6242 -60.83,14.6183 -60.8303,14.6122 -60.8271,14.6084 -60.8209,14.6066 -60.8154,14.6057 -60.8101,14.6063 -60.8039,14.6069 -60.7983,14.606 -60.7998,14.6013 -60.8051,14.5999 -60.8039,14.5972 -60.8001,14.5937 -60.8016,14.5873 -60.796,14.5849 -60.7907,14.5829 -60.7843,14.5826 -60.7796,14.5796 -60.7769,14.5755 -60.7755,14.5714 -60.7734,14.567 -60.774,14.5614 -60.7737,14.5559 -60.7684,14.557 -60.7631,14.5582 -60.7596,14.555 -60.7596,14.5503 -60.7626,14.5459 -60.7658,14.5421 -60.7678,14.5374 -60.7655,14.533 -60.7626,14.5292 -60.7596,14.5254 -60.7579,14.5204 -60.757,14.5151 -60.759,14.5098 -60.7643,14.5086 -60.7678,14.5051 -60.7655,14.5019 -60.7599,14.4995 -60.7555,14.4969 -60.7535,14.4925 -60.7529,14.4869 -60.7517,14.4819 -60.7502,14.477 -60.7476,14.4731 -60.7461,14.4679 -60.7473,14.4611 -60.7467,14.4555 -60.7435,14.4517 -60.74,14.4482 -60.7408,14.4441 -60.7447,14.4415 -60.7505,14.4409 -60.7538,14.4371 -60.7555,14.4315 -60.757,14.4247 -60.759,14.4195 -60.7626,14.4156 -60.7649,14.4107 -60.7678,14.406 -60.7693,14.4001 -60.7737,14.3983 -60.7787,14.396 -60.7816,14.3916 -60.7849,14.3881 -60.7907,14.3878 -60.7978,14.3887 -60.8048,14.3895 -60.8101,14.3919 -60.8113,14.3969 -60.8113,14.4019 -60.8124,14.4068 -60.8148,14.4112 -60.8145,14.4159 -60.8101,14.4183 -60.8054,14.4203 -60.7998,14.4215 -60.7954,14.4236 -60.791,14.4256 -60.7893,14.4315 -60.7878,14.4376 -60.7872,14.4438 -60.7887,14.4488 -60.7904,14.4532 -60.7928,14.4576 -60.7978,14.4576 -60.803,14.4567 -60.8077,14.4544 -60.8127,14.4532 -60.8168,14.4505 -60.8203,14.447 -60.823,14.4423 -60.8271,14.4397 -60.8318,14.4373 -60.8374,14.4382 -60.8394,14.4426 -60.8382,14.4497 -60.8368,14.4541 -60.8418,14.457 -60.8467,14.4576 -60.8503,14.4541 -60.8544,14.4514 -60.8597,14.4503 -60.8661,14.4505 -60.8732,14.4517 -60.8802,14.4523 -60.8858,14.4523 -60.8905,14.4549 -60.8934,14.4585 -60.8969,14.4573 -60.901,14.4544 -60.9048,14.4564 -60.9081,14.4602 -60.9128,14.4582 -60.9177,14.457 -60.9224,14.4549 -60.9283,14.4544 -60.9348,14.4547 -60.9409,14.4549 -60.9462,14.4573 -60.9515,14.4593 -60.9568,14.4582 -60.9612,14.4552 -60.9638,14.4508 -60.9676,14.4479 -60.972,14.4453 -60.9758,14.4423 -60.9817,14.442 -60.9876,14.4426 -60.9928,14.445 -60.9964,14.4482 -60.9999,14.4517 -61.0046,14.4544 -61.0084,14.4576 -61.0104,14.4623 -61.0119,14.4667 -61.0134,14.4717 -61.0154,14.4761 -61.0178,14.4805 -61.0175,14.4866 -61.0178,14.4931 -61.0225,14.4943 -61.0289,14.4946 -61.0324,14.4981 -61.0307,14.5042 -61.028,14.5083 -61.0236,14.5104 -61.0195,14.5133 -61.0163,14.5177 -61.0137,14.5221 -61.0107,14.5256 -61.0069,14.5286 -61.0037,14.5321 -60.9987,14.5344 -60.9934,14.5356 -60.9879,14.5362 -60.9826,14.5374 -60.9776,14.5394 -60.9752,14.5438 -60.9714,14.5441 -60.9694,14.5397 -60.9688,14.5339 -60.9659,14.53 -60.9597,14.5283 -60.9535,14.5265 -60.9483,14.528 -60.943,14.5295 -60.938,14.5306 -60.9321,14.5309 -60.9268,14.5324 -60.923,14.5353 -60.9242,14.5403 -60.9262,14.5447 -60.9315,14.5468 -60.9353,14.5503 -60.9368,14.5553 -60.9371,14.5609 -60.9386,14.5661 -60.9438,14.5679 -60.9462,14.5726 -60.9471,14.5779 -60.9459,14.5834 -60.9441,14.5896 -60.9468,14.5937 -60.9527,14.5931 -60.9571,14.5911 -60.962,14.5887 -60.9653,14.5852 -60.97,14.5831 -60.9758,14.5829 -60.9811,14.5814 -60.987,14.5811 -60.9931,14.5826 -60.9969,14.5858 -61.0005,14.5893 -61.006,14.5893 -61.0107,14.5875 -61.016,14.5861 -61.0216,14.5855 -61.0257,14.5887 -61.0277,14.5937 -61.0304,14.5975 -61.0327,14.6019 -61.0366,14.6051 -61.0404,14.6087 -61.0433,14.6125 -61.0459,14.6163 -61.0509,14.6192 -61.0553,14.6219 -61.0606,14.6242 -61.0653,14.6269 -61.0688,14.6304 -61.0718,14.6342 -61.0747,14.638 -61.0776,14.6418 -61.0817,14.6453 -61.0844,14.6491 -61.0864,14.6535 -61.0894,14.6574 -61.0917,14.6618 -61.0943,14.6659 -61.0976,14.6697 -61.0996,14.6741 -61.1026,14.6779 -61.1046,14.6826 -61.1067,14.6873 -61.1075,14.6929 -61.1081,14.6981 -61.1078,14.7043 -61.1067,14.7099 -61.1064,14.716 -61.107,14.7216 -61.1084,14.7266 -61.1105,14.731 -61.1125,14.7357 -61.1163,14.7392 -61.119,14.743 -61.1213,14.7474 -61.1248,14.7507 -61.1272,14.7553 -61.1301,14.7592 -61.1325,14.7636 -61.1351,14.7674 -61.1378,14.7694 -61.143,14.7715 -61.1477,14.7744 -61.1507,14.7779 -61.1545,14.7815 -61.1565,14.7861 -61.1595,14.79 -61.1615,14.7944 -61.1612,14.8005 -61.1589,14.8058 -61.1574,14.8117 -61.1565,14.8172 -61.153,14.8208 -61.1498,14.8243 -61.1463,14.8281 -61.1427,14.8316 -61.1386,14.8343 -61.1351,14.8381 -61.1304,14.8401 -61.1287,14.8439 -61.1287,14.8439 188,-4.0,Saint Lucia -60.8682,13.7028 -60.8732,13.7007 -60.877,13.6978 -60.8814,13.6949 -60.8846,13.6943 -60.8861,13.6999 -60.8843,13.7054 -60.8869,13.7095 -60.8928,13.7113 -60.8981,13.7131 -60.9022,13.7157 -60.9063,13.7189 -60.9095,13.7224 -60.9128,13.7257 -60.9163,13.7295 -60.9204,13.7324 -60.9251,13.7348 -60.9312,13.7356 -60.9377,13.7354 -60.9444,13.7351 -60.9506,13.7356 -60.9562,13.7374 -60.9612,13.7406 -60.965,13.7433 -60.9691,13.7462 -60.9723,13.75 -60.9767,13.7527 -60.9805,13.7556 -60.9837,13.7591 -60.9876,13.7626 -60.9908,13.7664 -60.9937,13.77 -60.9975,13.7735 -60.9999,13.7776 -61.0028,13.782 -61.0043,13.787 -61.0049,13.7931 -61.0034,13.7984 -61.0008,13.8031 -60.9993,13.8087 -61.0011,13.8134 -60.9999,13.8193 -60.999,13.8254 -60.9975,13.831 -60.9972,13.8366 -61.0013,13.8395 -61.0055,13.8421 -61.0075,13.8471 -61.0084,13.8527 -61.0096,13.8583 -61.0093,13.865 -61.0084,13.8712 -61.0066,13.8767 -61.0049,13.882 -61.0019,13.8861 -60.9993,13.8908 -60.9964,13.8952 -60.9934,13.8993 -60.9905,13.9031 -60.9876,13.9073 -60.9843,13.9111 -60.9814,13.9152 -60.9776,13.9184 -60.9741,13.9216 -60.9711,13.9254 -60.9688,13.9301 -60.9676,13.9363 -60.967,13.9425 -60.9659,13.9486 -60.965,13.9548 -60.9617,13.9589 -60.9588,13.9627 -60.9544,13.9653 -60.95,13.9677 -60.9477,13.9724 -60.9468,13.9785 -60.9459,13.9847 -60.9441,13.9903 -60.9415,13.9947 -60.9389,13.9988 -60.9359,14.0026 -60.9318,14.0061 -60.9268,14.0076 -60.9207,14.0082 -60.9148,14.0093 -60.9107,14.012 -60.9084,14.0167 -60.9066,14.022 -60.9045,14.0272 -60.9034,14.0328 -60.9028,14.0396 -60.9019,14.0457 -60.8996,14.0501 -60.8966,14.0545 -60.8928,14.0575 -60.8899,14.0616 -60.8869,14.0654 -60.8837,14.0695 -60.8822,14.0751 -60.8805,14.0803 -60.8781,14.085 -60.8758,14.0897 -60.8714,14.0921 -60.8664,14.0941 -60.8602,14.0944 -60.8544,14.0927 -60.8497,14.0906 -60.8459,14.0874 -60.8444,14.0847 -60.8479,14.0815 -60.8523,14.0792 -60.8514,14.0736 -60.847,14.0704 -60.8429,14.0677 -60.8418,14.0621 -60.8421,14.0566 -60.8397,14.0525 -60.8347,14.0501 -60.8291,14.0487 -60.8242,14.0463 -60.8218,14.0422 -60.8206,14.0366 -60.8195,14.0311 -60.8209,14.0255 -60.8227,14.0202 -60.823,14.0132 -60.8221,14.0076 -60.8201,14.0029 -60.818,13.9979 -60.8168,13.9923 -60.8154,13.9876 -60.8142,13.9821 -60.8127,13.9765 -60.8118,13.9712 -60.8101,13.9662 -60.8086,13.9606 -60.8083,13.9548 -60.808,13.9483 -60.808,13.9416 -60.8086,13.9345 -60.8089,13.9281 -60.8101,13.9219 -60.8107,13.9158 -60.8133,13.9111 -60.8154,13.9064 -60.818,13.9017 -60.8198,13.8964 -60.8206,13.8902 -60.8206,13.8832 -60.8209,13.8776 -60.8192,13.8729 -60.8201,13.8668 -60.8233,13.863 -60.8268,13.8589 -60.828,13.8527 -60.8239,13.8501 -60.8177,13.8503 -60.8157,13.8457 -60.8154,13.8392 -60.8159,13.833 -60.818,13.8278 -60.8189,13.8216 -60.8201,13.8154 -60.8201,13.8087 -60.8212,13.8025 -60.825,13.7993 -60.8262,13.7937 -60.8274,13.789 -60.8283,13.7829 -60.8289,13.7764 -60.8291,13.7694 -60.8303,13.7632 -60.8338,13.76 -60.8374,13.7568 -60.8444,13.7571 -60.8503,13.7585 -60.855,13.7568 -60.8573,13.7521 -60.8564,13.748 -60.8564,13.7439 -60.8594,13.74 -60.8626,13.7359 -60.8646,13.7312 -60.8658,13.7251 -60.8667,13.7192 -60.8673,13.7122 -60.8682,13.7028 -60.8682,13.7028 169,-4.0,Trinidad and Tobago -60.4551,11.3278 -60.4531,11.3234 -60.451,11.3187 -60.4504,11.3125 -60.451,11.3055 -60.4519,11.2993 -60.4542,11.2946 -60.4572,11.2908 -60.4595,11.2861 -60.4592,11.2811 -60.4566,11.277 -60.4551,11.2715 -60.4548,11.2653 -60.4545,11.2589 -60.4554,11.2527 -60.4572,11.2474 -60.461,11.2442 -60.4645,11.2421 -60.4695,11.2445 -60.4727,11.248 -60.4765,11.2509 -60.4804,11.2477 -60.4818,11.2424 -60.4842,11.2377 -60.4874,11.2336 -60.4921,11.2319 -60.4985,11.2327 -60.5047,11.2339 -60.5117,11.2342 -60.5167,11.2325 -60.5197,11.2283 -60.5217,11.2231 -60.5238,11.2184 -60.5276,11.2148 -60.5326,11.2134 -60.5376,11.2113 -60.5422,11.2093 -60.5466,11.2069 -60.551,11.2043 -60.5554,11.2019 -60.559,11.1984 -60.5619,11.1946 -60.5657,11.1914 -60.5695,11.1879 -60.5742,11.1864 -60.5804,11.1858 -60.5863,11.1846 -60.5924,11.1843 -60.5989,11.1838 -60.6053,11.1849 -60.6115,11.1858 -60.6176,11.187 -60.622,11.1843 -60.6264,11.1817 -60.63,11.1785 -60.6335,11.1752 -60.6373,11.172 -60.6417,11.1694 -60.6461,11.167 -60.6502,11.1644 -60.6567,11.1638 -60.6613,11.1662 -60.6663,11.1685 -60.671,11.1667 -60.6754,11.1641 -60.6795,11.1618 -60.6842,11.1591 -60.6878,11.1559 -60.6922,11.1532 -60.6951,11.1491 -60.6989,11.1462 -60.7024,11.1427 -60.7054,11.1386 -60.7083,11.1348 -60.7112,11.1307 -60.7156,11.1283 -60.7218,11.1277 -60.7274,11.1266 -60.7332,11.1268 -60.7373,11.1301 -60.7397,11.1342 -60.7432,11.1377 -60.7494,11.1365 -60.7558,11.1359 -60.7631,11.1365 -60.769,11.1374 -60.7746,11.1392 -60.7775,11.1433 -60.7784,11.1488 -60.7781,11.1559 -60.7772,11.1618 -60.774,11.1638 -60.7693,11.1618 -60.7637,11.16 -60.757,11.1597 -60.7526,11.1609 -60.7482,11.1632 -60.7455,11.167 -60.7429,11.172 -60.7408,11.1767 -60.7376,11.1808 -60.7341,11.1838 -60.7306,11.1873 -60.7268,11.1905 -60.7232,11.1937 -60.7194,11.197 -60.7144,11.1987 -60.7109,11.2022 -60.7071,11.2055 -60.7042,11.2093 -60.7004,11.2128 -60.6974,11.2166 -60.6945,11.2204 -60.6907,11.2239 -60.6866,11.2272 -60.6822,11.2298 -60.6778,11.2322 -60.6737,11.2348 -60.669,11.2371 -60.664,11.2392 -60.6599,11.2415 -60.6555,11.2442 -60.6511,11.2468 -60.647,11.2495 -60.6429,11.2518 -60.6382,11.2545 -60.6341,11.2568 -60.6308,11.2609 -60.6285,11.2659 -60.627,11.2712 -60.6244,11.2759 -60.6206,11.2782 -60.6153,11.2803 -60.6097,11.2814 -60.6041,11.2823 -60.5983,11.2835 -60.5927,11.2847 -60.5877,11.2864 -60.5827,11.2882 -60.5777,11.2902 -60.5728,11.292 -60.5678,11.2938 -60.5628,11.2955 -60.5581,11.2976 -60.5537,11.2999 -60.5484,11.302 -60.5434,11.3034 -60.539,11.3061 -60.534,11.3081 -60.5296,11.3105 -60.5241,11.3117 -60.5185,11.3128 -60.5117,11.3125 -60.5059,11.3108 -60.5035,11.3067 -60.5,11.3031 -60.4953,11.3008 -60.4894,11.302 -60.4856,11.3043 -60.483,11.309 -60.4827,11.3158 -60.4809,11.3213 -60.4774,11.3246 -60.4721,11.3263 -60.4671,11.3284 -60.4625,11.3298 -60.4566,11.331 -60.4551,11.3278 -60.4551,11.3278 147,-4.0,Grenada -61.5399,12.2128 -61.5364,12.209 -61.5347,12.2055 -61.537,12.2008 -61.5394,12.1961 -61.5379,12.1905 -61.5361,12.1859 -61.5341,12.1809 -61.5323,12.1759 -61.5297,12.1715 -61.53,12.165 -61.5297,12.1586 -61.53,12.1518 -61.532,12.1463 -61.5332,12.141 -61.5341,12.1348 -61.5347,12.1295 -61.5326,12.1242 -61.53,12.1201 -61.5273,12.116 -61.5265,12.1105 -61.5285,12.1058 -61.5338,12.1037 -61.5405,12.104 -61.5479,12.1043 -61.5514,12.1014 -61.5517,12.0943 -61.5502,12.0888 -61.5493,12.0832 -61.5487,12.0773 -61.5461,12.0729 -61.5429,12.0694 -61.5411,12.0644 -61.5446,12.0612 -61.5482,12.058 -61.5514,12.0538 -61.5537,12.0491 -61.5546,12.043 -61.5561,12.0377 -61.5584,12.033 -61.5617,12.0292 -61.5652,12.0257 -61.5687,12.0225 -61.5725,12.0192 -61.5769,12.0166 -61.5813,12.0142 -61.5875,12.0137 -61.5933,12.0125 -61.5969,12.0093 -61.6018,12.0075 -61.6065,12.0084 -61.6092,12.0037 -61.6133,12.001 -61.6197,12.0019 -61.6218,11.9972 -61.6227,11.9911 -61.6262,11.9873 -61.6288,11.9831 -61.6329,11.9846 -61.6368,11.9884 -61.6414,11.989 -61.6473,11.9887 -61.6517,11.9917 -61.6549,11.9952 -61.6608,11.994 -61.6643,11.9908 -61.6681,11.9878 -61.6725,11.9852 -61.6769,11.9826 -61.6825,11.9814 -61.6849,11.9858 -61.686,11.9911 -61.691,11.9937 -61.6951,11.9908 -61.6995,11.9884 -61.7048,11.9867 -61.7095,11.9846 -61.7136,11.9864 -61.7171,11.9896 -61.7198,11.994 -61.7154,11.9952 -61.711,11.9978 -61.7069,12.0002 -61.7025,12.0031 -61.6981,12.0054 -61.694,12.0081 -61.6893,12.0104 -61.6866,12.0145 -61.6834,12.0186 -61.679,12.021 -61.6761,12.0251 -61.6746,12.0304 -61.6749,12.0365 -61.6761,12.0421 -61.6787,12.0462 -61.6819,12.05 -61.681,12.0535 -61.681,12.0588 -61.6837,12.0629 -61.6852,12.0679 -61.6872,12.0729 -61.6854,12.0782 -61.6828,12.0823 -61.6787,12.0855 -61.6769,12.0902 -61.6749,12.0958 -61.674,12.102 -61.6731,12.1081 -61.6714,12.1134 -61.6696,12.119 -61.6676,12.1237 -61.6637,12.1269 -61.6608,12.1307 -61.6573,12.1342 -61.6546,12.1389 -61.6552,12.1451 -61.6546,12.1515 -61.6546,12.1571 -61.6517,12.1612 -61.6488,12.1653 -61.6458,12.1691 -61.6426,12.1732 -61.6397,12.1771 -61.6373,12.182 -61.6329,12.1844 -61.6285,12.187 -61.625,12.1903 -61.6227,12.1949 -61.62,12.1988 -61.6165,12.2029 -61.613,12.2064 -61.6095,12.2093 -61.6057,12.2128 -61.6007,12.2146 -61.5951,12.2158 -61.5916,12.2187 -61.5886,12.2216 -61.5831,12.2228 -61.5775,12.2225 -61.5734,12.2196 -61.5669,12.2184 -61.5608,12.2178 -61.5543,12.2181 -61.5476,12.2178 -61.542,12.2161 -61.5399,12.2128 -61.5399,12.2128 14,-4.0,Martinique -61.307,12.5165 -61.3026,12.515 -61.3,12.5109 -61.2997,12.5044 -61.3006,12.4983 -61.3038,12.4945 -61.3085,12.4924 -61.3141,12.4942 -61.3167,12.4983 -61.3158,12.5044 -61.3126,12.5085 -61.31,12.5124 -61.307,12.5165 -61.307,12.5165 124,-4.0,Saint Vincent -61.0932,13.1287 -61.0949,13.1234 -61.0979,13.1193 -61.1031,13.1175 -61.1084,13.1164 -61.1143,13.1152 -61.1204,13.1161 -61.1246,13.119 -61.1281,13.1228 -61.1328,13.1249 -61.1369,13.1278 -61.1427,13.1293 -61.1495,13.1299 -61.1536,13.1328 -61.1568,13.1363 -61.1609,13.1393 -61.1665,13.1407 -61.1735,13.141 -61.1765,13.1454 -61.1779,13.1501 -61.1809,13.1545 -61.1832,13.1589 -61.1882,13.161 -61.1929,13.1633 -61.1955,13.1674 -61.197,13.173 -61.1985,13.1777 -61.2011,13.1821 -61.2046,13.1859 -61.2087,13.1885 -61.2114,13.1926 -61.2102,13.1988 -61.209,13.205 -61.2082,13.2111 -61.2073,13.2173 -61.2079,13.2234 -61.2082,13.2296 -61.2079,13.2352 -61.2049,13.239 -61.202,13.2431 -61.1994,13.2478 -61.1973,13.2525 -61.1955,13.2581 -61.1961,13.2642 -61.1958,13.2707 -61.1909,13.2727 -61.185,13.2724 -61.1788,13.273 -61.1744,13.2754 -61.1712,13.2795 -61.1683,13.2833 -61.1668,13.2889 -61.1645,13.2936 -61.1627,13.2988 -61.1606,13.3044 -61.1589,13.3091 -61.1557,13.3129 -61.1533,13.3176 -61.1515,13.3229 -61.1507,13.3291 -61.1486,13.3337 -61.1466,13.3393 -61.1439,13.3434 -61.1413,13.3481 -61.1389,13.3528 -61.1351,13.3557 -61.1304,13.3578 -61.126,13.3601 -61.1216,13.3628 -61.1166,13.3645 -61.1125,13.3672 -61.1072,13.3692 -61.1026,13.3681 -61.0982,13.3651 -61.0943,13.3622 -61.0879,13.3613 -61.0823,13.361 -61.0773,13.3631 -61.0738,13.3634 -61.0712,13.359 -61.0694,13.3543 -61.0674,13.3493 -61.0668,13.3434 -61.0662,13.3379 -61.0641,13.3329 -61.0606,13.3293 -61.058,13.3249 -61.0556,13.3208 -61.0536,13.3161 -61.0521,13.3106 -61.0518,13.3041 -61.0509,13.2988 -61.0503,13.2924 -61.0509,13.2856 -61.0509,13.2789 -61.0518,13.2727 -61.0521,13.2657 -61.0533,13.2595 -61.0539,13.2531 -61.0539,13.246 -61.0536,13.2399 -61.0533,13.2337 -61.0542,13.2278 -61.0562,13.2223 -61.0568,13.2161 -61.0583,13.2108 -61.06,13.2053 -61.0624,13.2006 -61.0641,13.1953 -61.0659,13.1897 -61.0679,13.185 -61.07,13.1797 -61.0718,13.1745 -61.0729,13.1689 -61.0747,13.1636 -61.0764,13.158 -61.0779,13.1527 -61.0776,13.1466 -61.0803,13.1419 -61.085,13.1398 -61.0894,13.1375 -61.0917,13.1328 -61.0932,13.1287 -61.0932,13.1287 153,-4.0,Barbados -59.4348,13.0419 -59.4401,13.0398 -59.4457,13.0389 -59.4513,13.0378 -59.4571,13.0366 -59.463,13.0354 -59.4671,13.0386 -59.4695,13.0427 -59.4712,13.0477 -59.4733,13.0524 -59.4774,13.0556 -59.4835,13.0565 -59.4891,13.058 -59.4947,13.0598 -59.5011,13.0609 -59.5076,13.0615 -59.514,13.0621 -59.5205,13.063 -59.5269,13.0642 -59.5334,13.065 -59.5378,13.0674 -59.5413,13.0709 -59.5425,13.0765 -59.5457,13.08 -59.5504,13.0823 -59.5554,13.0847 -59.5586,13.0882 -59.5592,13.0944 -59.5595,13.1005 -59.5604,13.1061 -59.5633,13.1102 -59.5657,13.1146 -59.5683,13.1187 -59.5704,13.1237 -59.5721,13.1287 -59.5733,13.134 -59.5736,13.1401 -59.5724,13.1463 -59.5707,13.1519 -59.5704,13.1586 -59.5707,13.1651 -59.5712,13.1709 -59.5718,13.1771 -59.5727,13.1827 -59.5733,13.1888 -59.5751,13.1938 -59.5759,13.1994 -59.5774,13.205 -59.5783,13.2105 -59.5789,13.2167 -59.5786,13.2234 -59.578,13.2302 -59.5795,13.2358 -59.5803,13.2413 -59.5821,13.2463 -59.5827,13.2525 -59.583,13.2586 -59.585,13.2636 -59.5877,13.2677 -59.5894,13.2727 -59.5891,13.278 -59.5883,13.2842 -59.5862,13.2897 -59.5847,13.295 -59.583,13.3006 -59.5809,13.3053 -59.5777,13.3091 -59.5748,13.3129 -59.571,13.3164 -59.566,13.3179 -59.561,13.32 -59.5551,13.3211 -59.5495,13.3223 -59.5425,13.322 -59.5369,13.3203 -59.5316,13.3185 -59.5258,13.317 -59.5211,13.3147 -59.5184,13.3103 -59.5167,13.3056 -59.5137,13.3015 -59.5117,13.2968 -59.5088,13.2927 -59.5061,13.2886 -59.5035,13.2842 -59.5017,13.2795 -59.4994,13.2754 -59.4979,13.2698 -59.4961,13.2648 -59.4953,13.2592 -59.4932,13.2542 -59.4915,13.2493 -59.4894,13.2443 -59.4868,13.2402 -59.4844,13.2361 -59.4815,13.232 -59.4783,13.2281 -59.475,13.2246 -59.4709,13.2211 -59.4668,13.2179 -59.4645,13.2138 -59.4609,13.2102 -59.4574,13.2067 -59.4545,13.2029 -59.451,13.1994 -59.4469,13.1968 -59.443,13.1935 -59.4381,13.1915 -59.434,13.1882 -59.4298,13.1856 -59.4257,13.1824 -59.4216,13.1797 -59.4178,13.1765 -59.4134,13.1736 -59.4093,13.1706 -59.4046,13.1686 -59.3999,13.1659 -59.3935,13.1654 -59.3879,13.1636 -59.3832,13.1613 -59.3776,13.1598 -59.3721,13.158 -59.3674,13.1557 -59.3633,13.1527 -59.3591,13.1498 -59.3583,13.1442 -59.3568,13.139 -59.3571,13.1319 -59.3583,13.1258 -59.3603,13.1202 -59.3624,13.1158 -59.3647,13.1111 -59.3668,13.1064 -59.3694,13.1017 -59.3723,13.0976 -59.3747,13.0929 -59.3779,13.0891 -59.3803,13.0844 -59.3838,13.0812 -59.3867,13.0771 -59.3905,13.0738 -59.3944,13.0706 -59.3988,13.068 -59.4026,13.065 -59.4067,13.0624 -59.4102,13.0592 -59.4152,13.0571 -59.4208,13.0562 -59.4269,13.0554 -59.4296,13.051 -59.4298,13.0445 -59.4348,13.0419 -59.4348,13.0419 741,-3.0,Bermuda -64.7874,32.2818 -64.7883,32.2806 -64.7891,32.2806 -64.79,32.2815 -64.7909,32.2815 -64.7912,32.2809 -64.79,32.2797 -64.7909,32.2792 -64.7918,32.2792 -64.7927,32.28 -64.7932,32.2797 -64.7932,32.2783 -64.7941,32.2774 -64.795,32.2774 -64.7962,32.2765 -64.7982,32.2765 -64.7985,32.2748 -64.7991,32.2739 -64.7994,32.2724 -64.8009,32.2707 -64.8012,32.2683 -64.8003,32.268 -64.7991,32.2674 -64.8,32.2665 -64.8,32.2663 -64.7994,32.2657 -64.7991,32.2648 -64.8003,32.2639 -64.8018,32.2639 -64.8035,32.2624 -64.8041,32.2624 -64.8053,32.2616 -64.8062,32.2616 -64.8059,32.2607 -64.805,32.2607 -64.8044,32.2601 -64.8023,32.2598 -64.8018,32.2589 -64.7982,32.2589 -64.7974,32.2583 -64.7956,32.258 -64.7935,32.2557 -64.7924,32.2554 -64.7918,32.2563 -64.7891,32.2566 -64.7883,32.2575 -64.7833,32.2575 -64.7824,32.2566 -64.7798,32.2566 -64.7783,32.2548 -64.78,32.2531 -64.7818,32.2533 -64.7827,32.2525 -64.7833,32.2525 -64.7844,32.2531 -64.7842,32.2522 -64.7853,32.2516 -64.7856,32.2516 -64.7859,32.2522 -64.7874,32.2525 -64.7883,32.2531 -64.7888,32.2533 -64.7906,32.2533 -64.7912,32.2533 -64.7918,32.2539 -64.7932,32.2542 -64.7944,32.2533 -64.7953,32.2539 -64.7959,32.2536 -64.7959,32.2533 -64.7956,32.2531 -64.7944,32.2519 -64.7944,32.2513 -64.795,32.2507 -64.795,32.2498 -64.7944,32.2489 -64.7941,32.2487 -64.7941,32.2481 -64.795,32.2472 -64.795,32.246 -64.7959,32.2445 -64.7959,32.2443 -64.795,32.244 -64.7941,32.2431 -64.7941,32.2416 -64.7932,32.2413 -64.7927,32.2407 -64.7918,32.2407 -64.7906,32.2407 -64.7897,32.2416 -64.7891,32.2416 -64.7886,32.241 -64.7886,32.2384 -64.7874,32.2381 -64.7874,32.239 -64.7868,32.2399 -64.7859,32.2401 -64.785,32.239 -64.7842,32.239 -64.7836,32.2384 -64.7824,32.2381 -64.7824,32.239 -64.7818,32.2399 -64.7809,32.2399 -64.7806,32.2399 -64.7798,32.2393 -64.7795,32.2396 -64.7789,32.2396 -64.7786,32.2393 -64.778,32.2393 -64.7777,32.2399 -64.7771,32.2396 -64.7765,32.239 -64.7748,32.239 -64.7742,32.2399 -64.7715,32.2399 -64.7701,32.2416 -64.7695,32.2413 -64.7683,32.2399 -64.7657,32.2399 -64.7648,32.2407 -64.761,32.2407 -64.761,32.2416 -64.7622,32.2419 -64.7627,32.2425 -64.7627,32.2431 -64.7633,32.2437 -64.7639,32.2443 -64.7639,32.2445 -64.7627,32.2454 -64.7613,32.246 -64.7616,32.2466 -64.7627,32.2469 -64.7633,32.2472 -64.7633,32.2478 -64.7619,32.2489 -64.7616,32.2498 -64.7624,32.251 -64.7613,32.2522 -64.7607,32.2525 -64.7601,32.2525 -64.7592,32.2531 -64.7583,32.2525 -64.7539,32.2525 -64.7531,32.2533 -64.7516,32.2533 -64.751,32.2542 -64.7498,32.2542 -64.749,32.2548 -64.7475,32.2548 -64.7466,32.2557 -64.7448,32.2557 -64.7443,32.2566 -64.7443,32.2575 -64.7434,32.2583 -64.739,32.2583 -64.7384,32.2589 -64.7366,32.2592 -64.7357,32.2601 -64.7349,32.2601 -64.7343,32.2607 -64.7337,32.2607 -64.7293,32.2648 -64.7287,32.2648 -64.7275,32.2657 -64.7243,32.2657 -64.7243,32.2665 -64.7252,32.2674 -64.7252,32.2683 -64.7243,32.2692 -64.7234,32.2689 -64.7228,32.2683 -64.7217,32.2689 -64.7211,32.2683 -64.7202,32.2683 -64.7193,32.2689 -64.717,32.2689 -64.7164,32.2698 -64.7143,32.2698 -64.7143,32.2707 -64.7137,32.2715 -64.7126,32.2724 -64.712,32.2724 -64.7111,32.2715 -64.7108,32.2715 -64.7102,32.2715 -64.7091,32.2727 -64.7099,32.2742 -64.7099,32.2745 -64.7093,32.2748 -64.7052,32.2748 -64.7041,32.2756 -64.7035,32.2756 -64.7032,32.2765 -64.7067,32.2765 -64.7076,32.2756 -64.7108,32.2759 -64.712,32.2751 -64.717,32.2751 -64.7176,32.2742 -64.7202,32.2742 -64.7211,32.2733 -64.7249,32.2733 -64.7267,32.2748 -64.7267,32.2742 -64.7275,32.2733 -64.7299,32.2756 -64.7305,32.2756 -64.7316,32.2765 -64.7331,32.2768 -64.7331,32.2756 -64.734,32.2748 -64.7349,32.2751 -64.7357,32.2742 -64.7372,32.2742 -64.7381,32.2745 -64.7387,32.2756 -64.7387,32.2786 -64.7369,32.2792 -64.7363,32.2797 -64.7372,32.28 -64.7393,32.2812 -64.7393,32.2833 -64.7399,32.2833 -64.7407,32.2839 -64.7407,32.2847 -64.7413,32.2847 -64.7416,32.2841 -64.7434,32.2824 -64.7454,32.2821 -64.746,32.2824 -64.7463,32.283 -64.7466,32.2836 -64.746,32.2841 -64.7451,32.2841 -64.7448,32.2856 -64.7478,32.2856 -64.7484,32.2856 -64.749,32.2865 -64.7498,32.2865 -64.7504,32.2871 -64.751,32.2877 -64.7501,32.2883 -64.7495,32.2883 -64.7492,32.2897 -64.7501,32.2906 -64.7484,32.2924 -64.7466,32.2924 -64.7457,32.2915 -64.7448,32.2924 -64.7445,32.2924 -64.744,32.2924 -64.7437,32.2918 -64.7431,32.2915 -64.7425,32.2915 -64.7416,32.2924 -64.741,32.2924 -64.7363,32.2924 -64.7357,32.2915 -64.7346,32.2915 -64.7331,32.2909 -64.7322,32.2906 -64.7269,32.2909 -64.7264,32.2903 -64.7258,32.29 -64.722,32.2897 -64.7208,32.2906 -64.7167,32.2909 -64.7164,32.2915 -64.7161,32.2918 -64.7155,32.2915 -64.7143,32.2909 -64.7135,32.2915 -64.7129,32.2918 -64.7123,32.2915 -64.7123,32.2909 -64.712,32.2909 -64.7111,32.2915 -64.7076,32.2915 -64.7067,32.2924 -64.7026,32.2924 -64.702,32.2932 -64.7003,32.2932 -64.6994,32.2941 -64.6985,32.2941 -64.6976,32.2932 -64.6967,32.2941 -64.6961,32.2941 -64.695,32.295 -64.6941,32.295 -64.6935,32.2959 -64.6917,32.2956 -64.6912,32.2965 -64.6894,32.2965 -64.6885,32.2973 -64.6879,32.2973 -64.6873,32.2976 -64.6859,32.2982 -64.6856,32.2988 -64.6853,32.2988 -64.6844,32.2988 -64.6829,32.3003 -64.6821,32.3006 -64.6812,32.3015 -64.6806,32.3015 -64.6797,32.302 -64.6785,32.3023 -64.6759,32.3047 -64.6759,32.3059 -64.675,32.3067 -64.6741,32.3064 -64.6741,32.3079 -64.6747,32.3085 -64.675,32.3094 -64.675,32.3097 -64.6741,32.3108 -64.6741,32.3114 -64.6718,32.3141 -64.6715,32.3158 -64.6724,32.3158 -64.6736,32.315 -64.6741,32.3155 -64.6741,32.3167 -64.6727,32.3179 -64.6727,32.3185 -64.6727,32.3191 -64.6718,32.3211 -64.6718,32.3232 -64.6709,32.324 -64.67,32.324 -64.67,32.3246 -64.6692,32.3255 -64.6692,32.3273 -64.6674,32.329 -64.6668,32.329 -64.6659,32.3299 -64.6627,32.3299 -64.6609,32.3314 -64.6595,32.3317 -64.6583,32.3323 -64.6577,32.3323 -64.6565,32.3331 -64.656,32.3331 -64.6548,32.334 -64.6548,32.3343 -64.6557,32.3358 -64.6557,32.3361 -64.6551,32.3364 -64.6545,32.3364 -64.6539,32.3372 -64.6524,32.3375 -64.651,32.3387 -64.651,32.3399 -64.6492,32.3416 -64.6483,32.3414 -64.6477,32.3408 -64.6474,32.3402 -64.6474,32.3396 -64.6466,32.3399 -64.6457,32.339 -64.6448,32.339 -64.6442,32.3384 -64.6422,32.3381 -64.6413,32.3372 -64.6404,32.3372 -64.6389,32.3358 -64.6398,32.3352 -64.6398,32.334 -64.6366,32.3308 -64.6375,32.3299 -64.6392,32.3296 -64.6392,32.329 -64.6384,32.329 -64.6366,32.3276 -64.6366,32.3264 -64.6331,32.3267 -64.6325,32.3258 -64.6316,32.3258 -64.6307,32.3249 -64.6298,32.3249 -64.6296,32.3243 -64.6281,32.324 -64.6275,32.3232 -64.6263,32.3232 -64.6257,32.3226 -64.6249,32.3223 -64.6243,32.3232 -64.6237,32.3235 -64.6228,32.3229 -64.6219,32.3211 -64.6216,32.3191 -64.619,32.3191 -64.6181,32.3199 -64.6164,32.3199 -64.6158,32.3208 -64.6152,32.3208 -64.6146,32.3205 -64.614,32.3199 -64.6111,32.3196 -64.6105,32.3199 -64.6099,32.3217 -64.6084,32.3232 -64.6076,32.3232 -64.6067,32.324 -64.6058,32.324 -64.6049,32.3232 -64.6049,32.3223 -64.6058,32.3217 -64.6067,32.3214 -64.6067,32.3199 -64.6076,32.3188 -64.6084,32.3191 -64.609,32.3182 -64.6108,32.3182 -64.612,32.3173 -64.6131,32.3176 -64.6143,32.3167 -64.6152,32.3164 -64.6169,32.315 -64.6193,32.315 -64.6202,32.3141 -64.6219,32.3141 -64.6225,32.3135 -64.6228,32.3132 -64.6234,32.3132 -64.624,32.3135 -64.6252,32.3123 -64.6269,32.3126 -64.6275,32.3114 -64.6296,32.3114 -64.6298,32.3108 -64.6307,32.3108 -64.6316,32.3097 -64.6325,32.31 -64.6342,32.3082 -64.6348,32.3082 -64.636,32.3073 -64.6366,32.3073 -64.6375,32.3067 -64.6381,32.3067 -64.6407,32.3041 -64.6416,32.3041 -64.6433,32.3026 -64.6433,32.3015 -64.6448,32.3 -64.6451,32.2988 -64.6469,32.2973 -64.6501,32.2973 -64.6507,32.2968 -64.6516,32.2965 -64.6521,32.2959 -64.6536,32.2956 -64.6533,32.2947 -64.6551,32.2932 -64.656,32.2932 -64.6574,32.2915 -64.6601,32.2918 -64.6609,32.2909 -64.6624,32.2906 -64.6633,32.29 -64.6645,32.2897 -64.6651,32.2888 -64.6656,32.2891 -64.6677,32.2874 -64.6677,32.2865 -64.6692,32.2847 -64.6709,32.2847 -64.6715,32.2856 -64.6724,32.2859 -64.6733,32.2853 -64.6733,32.2833 -64.6741,32.2824 -64.6744,32.2824 -64.6753,32.2827 -64.6759,32.2833 -64.6759,32.2815 -64.6765,32.2806 -64.6777,32.2806 -64.6783,32.28 -64.6803,32.28 -64.6815,32.2783 -64.6827,32.2783 -64.6844,32.2765 -64.6844,32.2756 -64.6859,32.2742 -64.6876,32.2742 -64.6897,32.2718 -64.6903,32.2715 -64.6923,32.2727 -64.6923,32.2715 -64.692,32.2707 -64.6917,32.2698 -64.6932,32.2683 -64.6941,32.2683 -64.695,32.2674 -64.6959,32.2674 -64.6976,32.2657 -64.6985,32.2657 -64.6991,32.2651 -64.6994,32.2639 -64.7,32.2633 -64.7003,32.2624 -64.7032,32.2589 -64.7044,32.2589 -64.7049,32.2583 -64.7049,32.2575 -64.7067,32.2557 -64.7076,32.2557 -64.7085,32.2551 -64.7093,32.2548 -64.7102,32.2539 -64.7111,32.2539 -64.7117,32.2533 -64.7135,32.2533 -64.7143,32.2522 -64.7152,32.2525 -64.7158,32.2516 -64.7176,32.2516 -64.7184,32.2507 -64.7202,32.2507 -64.7208,32.2498 -64.722,32.2498 -64.7225,32.2492 -64.7246,32.2489 -64.7246,32.2487 -64.7252,32.2484 -64.7258,32.2481 -64.7264,32.2475 -64.7278,32.2472 -64.7281,32.2466 -64.7296,32.2463 -64.7296,32.246 -64.7313,32.2451 -64.7325,32.2448 -64.734,32.2448 -64.7346,32.2443 -64.7352,32.244 -64.736,32.244 -64.7372,32.2425 -64.7381,32.2425 -64.739,32.2416 -64.7399,32.2416 -64.7399,32.2407 -64.7401,32.2401 -64.7413,32.2399 -64.7416,32.2396 -64.7428,32.239 -64.7437,32.2393 -64.7443,32.239 -64.7448,32.2384 -64.746,32.2381 -64.7463,32.2378 -64.7472,32.2375 -64.7478,32.2369 -64.7498,32.2363 -64.7513,32.2357 -64.7525,32.2349 -64.7525,32.2346 -64.7531,32.2334 -64.7545,32.2322 -64.7548,32.2322 -64.756,32.2325 -64.7563,32.2331 -64.7569,32.2334 -64.7583,32.2334 -64.7589,32.2325 -64.7607,32.2322 -64.7607,32.2313 -64.7624,32.2299 -64.7633,32.2308 -64.7639,32.2308 -64.7648,32.2299 -64.7666,32.2299 -64.7668,32.2302 -64.7674,32.2311 -64.768,32.2311 -64.7683,32.2308 -64.7698,32.2308 -64.7707,32.2316 -64.7771,32.2313 -64.7783,32.2322 -64.7803,32.2325 -64.7815,32.2313 -64.7856,32.2316 -64.7868,32.2308 -64.7915,32.2305 -64.7921,32.2313 -64.793,32.2313 -64.7938,32.2322 -64.7947,32.2325 -64.7956,32.2331 -64.7965,32.2331 -64.7968,32.2337 -64.7974,32.234 -64.7991,32.234 -64.7997,32.2346 -64.8003,32.2349 -64.8018,32.2355 -64.8026,32.2355 -64.81,32.2431 -64.81,32.2448 -64.8108,32.2454 -64.8108,32.2469 -64.8117,32.2481 -64.8114,32.2504 -64.8126,32.2516 -64.8126,32.2522 -64.8135,32.2533 -64.8135,32.2548 -64.8141,32.2557 -64.8141,32.2563 -64.815,32.2572 -64.815,32.2589 -64.8161,32.2601 -64.8164,32.2621 -64.8179,32.2633 -64.8185,32.2645 -64.8176,32.2657 -64.8182,32.2663 -64.8182,32.2668 -64.8161,32.2689 -64.815,32.2689 -64.8141,32.2692 -64.8135,32.2698 -64.8129,32.2701 -64.8126,32.2698 -64.812,32.2695 -64.812,32.2686 -64.8123,32.268 -64.8126,32.2674 -64.8141,32.2668 -64.815,32.2665 -64.815,32.266 -64.8144,32.266 -64.8135,32.2651 -64.8135,32.2616 -64.8126,32.2607 -64.8126,32.2621 -64.8117,32.2633 -64.8111,32.2624 -64.8108,32.2619 -64.81,32.2621 -64.8094,32.2616 -64.8067,32.2639 -64.8067,32.2645 -64.8076,32.2648 -64.8091,32.2633 -64.8097,32.263 -64.8106,32.2636 -64.8108,32.2639 -64.8108,32.2645 -64.8103,32.2657 -64.8103,32.2665 -64.8076,32.2689 -64.8082,32.2698 -64.8079,32.2704 -64.8073,32.2707 -64.8067,32.2715 -64.8067,32.2718 -64.8067,32.2724 -64.8076,32.2727 -64.8082,32.2739 -64.8082,32.2748 -64.8076,32.2756 -64.8076,32.2765 -64.8085,32.2771 -64.8085,32.278 -64.8076,32.2792 -64.8076,32.2797 -64.8085,32.2806 -64.8091,32.2815 -64.8091,32.2824 -64.8103,32.283 -64.81,32.2847 -64.8108,32.2856 -64.8108,32.2865 -64.8111,32.2868 -64.8114,32.2868 -64.8135,32.2891 -64.8117,32.2909 -64.81,32.2906 -64.8094,32.29 -64.8094,32.2891 -64.8085,32.2888 -64.8076,32.2883 -64.8041,32.2883 -64.8018,32.2906 -64.8018,32.2915 -64.8026,32.2924 -64.8018,32.2932 -64.8012,32.2932 -64.8003,32.2941 -64.7988,32.2938 -64.7976,32.2947 -64.7959,32.295 -64.795,32.2944 -64.7953,32.2938 -64.7959,32.2932 -64.7971,32.2932 -64.7974,32.2927 -64.7982,32.2924 -64.7985,32.2918 -64.7968,32.2897 -64.7968,32.2883 -64.7962,32.288 -64.795,32.2883 -64.7941,32.2891 -64.7935,32.2891 -64.7924,32.2897 -64.7918,32.29 -64.7912,32.2894 -64.7909,32.2883 -64.79,32.2874 -64.79,32.2871 -64.7903,32.2868 -64.7906,32.2868 -64.7909,32.2865 -64.7909,32.2862 -64.7909,32.2859 -64.7909,32.2856 -64.7912,32.2853 -64.7915,32.285 -64.7915,32.2847 -64.7915,32.2844 -64.7915,32.2841 -64.7915,32.2839 -64.7912,32.2836 -64.7909,32.2833 -64.7906,32.283 -64.7903,32.283 -64.79,32.283 -64.7897,32.283 -64.7894,32.2833 -64.7891,32.283 -64.7886,32.2827 -64.7883,32.2827 -64.788,32.2824 -64.788,32.2821 -64.7877,32.2821 -64.7874,32.2818 -64.7874,32.2818 198,-3.0,Bermuda -64.5773,32.3513 -64.5782,32.3519 -64.5782,32.3528 -64.5782,32.3534 -64.5791,32.354 -64.58,32.354 -64.58,32.3551 -64.5791,32.3557 -64.58,32.3566 -64.5867,32.3566 -64.5882,32.3551 -64.5882,32.354 -64.5891,32.3531 -64.5882,32.3519 -64.5876,32.3516 -64.5867,32.3522 -64.5853,32.3525 -64.5841,32.3534 -64.5823,32.3531 -64.5823,32.3525 -64.5832,32.3525 -64.5841,32.3516 -64.5856,32.3516 -64.5864,32.3507 -64.5891,32.351 -64.5905,32.349 -64.5905,32.3481 -64.5914,32.3484 -64.5923,32.349 -64.5929,32.349 -64.5935,32.3496 -64.5941,32.3499 -64.5958,32.3499 -64.5958,32.3507 -64.5952,32.3507 -64.5944,32.3516 -64.5949,32.3522 -64.5952,32.354 -64.5941,32.3534 -64.5908,32.3531 -64.5891,32.3548 -64.59,32.3557 -64.5917,32.3557 -64.592,32.3563 -64.5935,32.3572 -64.5958,32.3575 -64.5964,32.3584 -64.5976,32.3584 -64.5982,32.359 -64.599,32.359 -64.5999,32.3584 -64.6002,32.359 -64.6005,32.359 -64.602,32.359 -64.6026,32.3581 -64.6026,32.3572 -64.5996,32.3548 -64.599,32.3548 -64.5979,32.354 -64.5973,32.354 -64.5973,32.3531 -64.5979,32.3531 -64.599,32.3531 -64.6002,32.354 -64.6014,32.3546 -64.6017,32.3548 -64.6046,32.3548 -64.6049,32.3557 -64.6076,32.3557 -64.6084,32.3548 -64.6093,32.3548 -64.6102,32.3557 -64.6134,32.3557 -64.6143,32.3566 -64.6166,32.3566 -64.6184,32.3548 -64.6193,32.3548 -64.6202,32.354 -64.621,32.354 -64.6216,32.3548 -64.6228,32.3548 -64.6234,32.354 -64.6243,32.354 -64.6252,32.3534 -64.626,32.3531 -64.6266,32.3525 -64.6275,32.3525 -64.6284,32.3516 -64.6293,32.3516 -64.6298,32.3507 -64.6322,32.3507 -64.6325,32.3499 -64.6342,32.3499 -64.6351,32.349 -64.636,32.349 -64.6369,32.3481 -64.6375,32.3481 -64.6384,32.3478 -64.6392,32.3463 -64.6392,32.3458 -64.6384,32.3443 -64.6381,32.3428 -64.6375,32.3422 -64.636,32.3419 -64.6357,32.3414 -64.6322,32.3416 -64.6316,32.3422 -64.6316,32.3431 -64.6304,32.3443 -64.6301,32.3449 -64.6293,32.3449 -64.6287,32.3458 -64.6269,32.3458 -64.6257,32.3466 -64.6252,32.3466 -64.6243,32.3475 -64.621,32.3475 -64.6202,32.3466 -64.6199,32.3449 -64.619,32.3443 -64.6193,32.339 -64.6187,32.3381 -64.6184,32.3372 -64.6175,32.3364 -64.6158,32.3364 -64.6143,32.3381 -64.614,32.3408 -64.6131,32.3414 -64.6134,32.3422 -64.6143,32.3431 -64.6143,32.3458 -64.6134,32.3466 -64.6102,32.3466 -64.6093,32.3458 -64.6049,32.3458 -64.6043,32.3449 -64.6034,32.3449 -64.6026,32.344 -64.6017,32.344 -64.6011,32.3431 -64.5999,32.3425 -64.5976,32.3425 -64.5967,32.3416 -64.5961,32.3408 -64.5958,32.339 -64.5949,32.3384 -64.5941,32.3381 -64.5935,32.3375 -64.5935,32.3367 -64.5926,32.3358 -64.5926,32.3349 -64.5917,32.3343 -64.5914,32.3323 -64.5908,32.3317 -64.5897,32.332 -64.5888,32.3326 -64.5882,32.3323 -64.5882,32.3314 -64.5891,32.3308 -64.5891,32.3305 -64.5885,32.3299 -64.5867,32.3299 -64.5858,32.3308 -64.585,32.3308 -64.585,32.3299 -64.5841,32.329 -64.5832,32.329 -64.5826,32.3299 -64.5823,32.3314 -64.5853,32.3343 -64.5861,32.3346 -64.5867,32.3349 -64.5864,32.3358 -64.5858,32.3364 -64.5856,32.3381 -64.5867,32.339 -64.5882,32.339 -64.59,32.3408 -64.59,32.344 -64.5894,32.3446 -64.5891,32.3449 -64.5882,32.344 -64.5867,32.344 -64.5858,32.3449 -64.5844,32.3449 -64.5841,32.344 -64.5832,32.3431 -64.5823,32.3431 -64.5817,32.344 -64.5817,32.3449 -64.5809,32.3455 -64.5809,32.3466 -64.58,32.3472 -64.58,32.3499 -64.5791,32.3507 -64.5785,32.3504 -64.5773,32.3513 -64.5773,32.3513 116,-3.0,Bermuda -64.5941,32.3648 -64.5958,32.3666 -64.5967,32.3657 -64.5967,32.3669 -64.6005,32.3707 -64.6017,32.3713 -64.6026,32.3716 -64.6037,32.373 -64.604,32.3748 -64.6049,32.3757 -64.6067,32.3757 -64.6076,32.3748 -64.609,32.3748 -64.6102,32.3748 -64.6149,32.3698 -64.6161,32.3698 -64.6202,32.3657 -64.621,32.3657 -64.6216,32.3648 -64.6228,32.3648 -64.6234,32.3639 -64.6243,32.3639 -64.6249,32.3634 -64.626,32.3631 -64.6278,32.3616 -64.6284,32.3616 -64.629,32.3613 -64.6293,32.3607 -64.6301,32.3607 -64.6316,32.3592 -64.6325,32.359 -64.6342,32.3575 -64.6351,32.3572 -64.6357,32.3566 -64.6369,32.3563 -64.6375,32.3557 -64.6386,32.3557 -64.6392,32.3548 -64.6401,32.3548 -64.641,32.354 -64.6419,32.354 -64.6425,32.3531 -64.6436,32.3531 -64.6469,32.3499 -64.6466,32.3496 -64.6451,32.3481 -64.6472,32.3478 -64.6474,32.3472 -64.6477,32.3463 -64.6483,32.3458 -64.6474,32.3449 -64.6466,32.3449 -64.646,32.3455 -64.6454,32.3458 -64.6448,32.3458 -64.6442,32.3449 -64.6433,32.3458 -64.6433,32.3463 -64.6416,32.3472 -64.6419,32.349 -64.6398,32.349 -64.6389,32.3499 -64.6381,32.349 -64.6372,32.349 -64.6369,32.3496 -64.6366,32.3507 -64.6357,32.3507 -64.6348,32.3516 -64.6328,32.3519 -64.6325,32.3522 -64.6304,32.3525 -64.6298,32.3534 -64.6293,32.3531 -64.6287,32.3531 -64.6278,32.3537 -64.6266,32.3548 -64.626,32.3543 -64.6252,32.3548 -64.6243,32.3548 -64.6234,32.3557 -64.6225,32.3557 -64.6216,32.3566 -64.621,32.3566 -64.6199,32.3557 -64.619,32.3557 -64.6181,32.3566 -64.6181,32.3572 -64.619,32.3581 -64.6249,32.3581 -64.6254,32.3587 -64.6257,32.3592 -64.6257,32.3604 -64.6246,32.3607 -64.6234,32.3598 -64.6216,32.3598 -64.621,32.359 -64.6184,32.359 -64.6172,32.3601 -64.6166,32.3607 -64.6149,32.3607 -64.6143,32.3616 -64.6128,32.3616 -64.6117,32.3625 -64.6099,32.3625 -64.6093,32.3631 -64.6067,32.3631 -64.6052,32.3651 -64.6046,32.3651 -64.6032,32.3642 -64.6023,32.3639 -64.6017,32.3634 -64.6005,32.3631 -64.5993,32.3616 -64.5976,32.3616 -64.5941,32.3648 -64.5941,32.3648 81,-3.0,Bermuda -64.7642,32.3132 -64.7642,32.3144 -64.7636,32.3152 -64.7639,32.3158 -64.7645,32.3158 -64.7651,32.3158 -64.7674,32.3132 -64.7677,32.312 -64.7686,32.3114 -64.7686,32.3097 -64.7692,32.3091 -64.7692,32.3082 -64.7701,32.3082 -64.7736,32.3047 -64.7736,32.3038 -64.7745,32.3038 -64.7754,32.3032 -64.7759,32.3032 -64.7768,32.3023 -64.7777,32.3023 -64.7786,32.3015 -64.7786,32.3006 -64.78,32.2991 -64.78,32.2982 -64.7803,32.2976 -64.7809,32.2973 -64.7827,32.2971 -64.7833,32.2968 -64.7839,32.2953 -64.785,32.2941 -64.7862,32.2938 -64.79,32.29 -64.79,32.2894 -64.79,32.2888 -64.7891,32.2883 -64.7877,32.2883 -64.7859,32.29 -64.7859,32.2906 -64.7847,32.2897 -64.7833,32.29 -64.7824,32.2909 -64.7818,32.2909 -64.78,32.2924 -64.7809,32.2932 -64.7818,32.2935 -64.78,32.295 -64.78,32.2959 -64.7792,32.2959 -64.7783,32.295 -64.7765,32.295 -64.7759,32.2956 -64.7742,32.2959 -64.7733,32.2956 -64.7724,32.2959 -64.7721,32.2962 -64.7715,32.2971 -64.7715,32.2973 -64.7724,32.2982 -64.7724,32.3009 -64.7718,32.3015 -64.7718,32.3023 -64.7701,32.3041 -64.7689,32.3044 -64.7683,32.305 -64.7674,32.305 -64.7666,32.3059 -64.7654,32.3061 -64.7648,32.3067 -64.7642,32.3073 -64.7642,32.3079 -64.7642,32.3082 -64.7648,32.3091 -64.7648,32.3097 -64.7645,32.31 -64.763,32.31 -64.7607,32.3123 -64.7607,32.3126 -64.761,32.3135 -64.7624,32.315 -64.7642,32.3132 -64.7642,32.3132 22,-3.0,Bermuda -64.7586,32.2718 -64.7586,32.2727 -64.7595,32.2733 -64.7604,32.2736 -64.7613,32.2742 -64.7624,32.2742 -64.7636,32.273 -64.7627,32.2721 -64.7633,32.2715 -64.7624,32.2707 -64.7607,32.2707 -64.7607,32.2698 -64.7619,32.2689 -64.7619,32.268 -64.761,32.2674 -64.7589,32.2674 -64.7566,32.2698 -64.7569,32.2707 -64.7575,32.2718 -64.7577,32.2721 -64.7586,32.2718 -64.7586,32.2718 20,-3.0,Bermuda -64.7366,32.2692 -64.7369,32.2686 -64.7369,32.2668 -64.7355,32.2657 -64.7346,32.2645 -64.7334,32.2633 -64.7322,32.263 -64.7316,32.2642 -64.7313,32.2657 -64.7308,32.266 -64.7299,32.2665 -64.7299,32.2671 -64.7305,32.268 -64.7316,32.2692 -64.7325,32.2692 -64.7331,32.2683 -64.7343,32.2683 -64.7355,32.2683 -64.7366,32.2692 -64.7366,32.2692 22,-3.0,Bermuda -64.7551,32.2575 -64.7545,32.2566 -64.7542,32.2566 -64.7525,32.2566 -64.7519,32.2572 -64.7507,32.2575 -64.7504,32.2575 -64.7498,32.2583 -64.7492,32.2589 -64.7478,32.2583 -64.7469,32.2586 -64.7466,32.2589 -64.7466,32.2598 -64.7475,32.2607 -64.7487,32.2616 -64.7492,32.2616 -64.7501,32.2607 -64.751,32.2607 -64.7516,32.2598 -64.7528,32.2598 -64.7551,32.2575 -64.7551,32.2575 15,-3.0,Bermuda -64.7557,32.2724 -64.7563,32.2715 -64.7557,32.2707 -64.7542,32.2707 -64.7534,32.2698 -64.7475,32.2698 -64.7472,32.2701 -64.7457,32.2715 -64.7463,32.2724 -64.7475,32.2724 -64.7487,32.2715 -64.7522,32.2715 -64.7528,32.2724 -64.7557,32.2724 -64.7557,32.2724 18,-3.0,Bermuda -64.5949,32.3592 -64.5944,32.3581 -64.5908,32.3581 -64.5897,32.3572 -64.5882,32.3572 -64.5876,32.3581 -64.5876,32.3587 -64.5885,32.359 -64.5885,32.3598 -64.5891,32.3607 -64.59,32.3607 -64.5908,32.3616 -64.5914,32.3616 -64.5917,32.361 -64.5932,32.3598 -64.5944,32.3598 -64.5949,32.3592 -64.5949,32.3592 19,-3.0,Bermuda -64.5926,32.3282 -64.5917,32.329 -64.5917,32.3305 -64.592,32.3317 -64.5926,32.3326 -64.5935,32.3331 -64.5941,32.3331 -64.5946,32.3326 -64.5961,32.3323 -64.597,32.3317 -64.5976,32.3305 -64.5976,32.3299 -64.597,32.3293 -64.5961,32.329 -64.5946,32.3299 -64.5941,32.3299 -64.5935,32.3293 -64.5926,32.3282 -64.5926,32.3282 18,-3.0,Bermuda -64.7525,32.2683 -64.7534,32.2671 -64.7536,32.2663 -64.7534,32.2651 -64.7528,32.2642 -64.7516,32.2639 -64.751,32.2648 -64.7504,32.2648 -64.7501,32.2642 -64.7495,32.2642 -64.7492,32.2645 -64.749,32.2654 -64.7492,32.2668 -64.7495,32.2671 -64.7501,32.2674 -64.751,32.2683 -64.7525,32.2683 -64.7525,32.2683 13,-3.0,Bermuda -64.7583,32.2648 -64.7575,32.2639 -64.7557,32.2639 -64.7554,32.2642 -64.7548,32.2651 -64.7539,32.268 -64.7542,32.2686 -64.7551,32.2692 -64.756,32.2692 -64.7575,32.2674 -64.7575,32.266 -64.7583,32.2648 -64.7583,32.2648 14,-3.0,Bermuda -64.7466,32.2692 -64.7457,32.268 -64.7448,32.2683 -64.7451,32.2674 -64.7443,32.2665 -64.7434,32.2657 -64.7422,32.2657 -64.7407,32.2674 -64.7425,32.2692 -64.7434,32.2692 -64.7443,32.2701 -64.7457,32.2701 -64.7466,32.2692 -64.7466,32.2692 13,-3.0,Bermuda -64.7592,32.2607 -64.7583,32.2598 -64.7592,32.2589 -64.7586,32.2583 -64.7575,32.258 -64.7569,32.2586 -64.7566,32.2589 -64.7557,32.2583 -64.7542,32.2601 -64.7557,32.2616 -64.7583,32.2616 -64.7592,32.2607 -64.7592,32.2607 9,-3.0,Bermuda -64.6483,32.3425 -64.6466,32.3408 -64.646,32.3405 -64.6439,32.3425 -64.6439,32.3434 -64.6451,32.344 -64.6469,32.344 -64.6483,32.3425 -64.6483,32.3425 12,-3.0,Bermuda -64.7677,32.2575 -64.7677,32.2563 -64.7671,32.256 -64.7668,32.2557 -64.7666,32.2554 -64.766,32.2557 -64.7642,32.2575 -64.7642,32.2583 -64.7648,32.2589 -64.766,32.2592 -64.7677,32.2575 -64.7677,32.2575 13,-3.0,Bermuda -64.7683,32.2425 -64.7671,32.2413 -64.7668,32.2416 -64.766,32.2422 -64.7654,32.2419 -64.7645,32.2413 -64.7639,32.2416 -64.7636,32.2422 -64.7633,32.2425 -64.7651,32.244 -64.7666,32.2443 -64.7683,32.2425 -64.7683,32.2425 15,-3.0,Bermuda -64.6034,32.3223 -64.602,32.3208 -64.6014,32.3205 -64.6008,32.3208 -64.6002,32.3217 -64.6005,32.3226 -64.6002,32.3232 -64.6005,32.3238 -64.6008,32.324 -64.6014,32.324 -64.602,32.3238 -64.602,32.3235 -64.6026,32.3232 -64.6034,32.3223 -64.6034,32.3223 9,-3.0,Bermuda -64.7176,32.2724 -64.7158,32.2707 -64.7149,32.2707 -64.714,32.2712 -64.714,32.2724 -64.7152,32.2733 -64.7167,32.2733 -64.7176,32.2724 -64.7176,32.2724 14,-3.0,Bermuda -64.6043,32.324 -64.6032,32.3249 -64.6026,32.3243 -64.602,32.3243 -64.6017,32.3246 -64.6017,32.3255 -64.6017,32.3261 -64.6023,32.3264 -64.6032,32.3267 -64.6046,32.3264 -64.6049,32.3261 -64.6052,32.3252 -64.6043,32.324 -64.6043,32.324 12,-3.0,Bermuda -64.7419,32.2765 -64.7407,32.2756 -64.7401,32.2756 -64.7399,32.2756 -64.7396,32.2777 -64.7396,32.2786 -64.7401,32.2792 -64.7404,32.2792 -64.7413,32.2789 -64.7416,32.2777 -64.7419,32.2765 -64.7419,32.2765 10,-3.0,Bermuda -64.7407,32.2665 -64.7399,32.2654 -64.739,32.2654 -64.7378,32.2657 -64.7378,32.2663 -64.7378,32.2671 -64.7381,32.268 -64.7393,32.2683 -64.7407,32.2665 -64.7407,32.2665 10,-3.0,Bermuda -64.7416,32.2724 -64.7425,32.2715 -64.7425,32.2709 -64.7416,32.2701 -64.7401,32.2698 -64.7396,32.2701 -64.739,32.2707 -64.7407,32.2724 -64.7416,32.2724 -64.7416,32.2724 10,-3.0,Bermuda -64.5958,32.3616 -64.5946,32.3607 -64.5935,32.3607 -64.5926,32.3613 -64.5923,32.3622 -64.5923,32.3625 -64.5938,32.3634 -64.5941,32.3634 -64.5958,32.3616 -64.5958,32.3616 10,-3.0,Bermuda -64.6049,32.3616 -64.6037,32.3601 -64.6029,32.3598 -64.6023,32.3598 -64.6017,32.3604 -64.6017,32.361 -64.6034,32.3622 -64.6046,32.3622 -64.6049,32.3616 -64.6049,32.3616 8,-3.0,Bermuda -64.6577,32.3367 -64.6592,32.3349 -64.6583,32.334 -64.6574,32.334 -64.6565,32.3349 -64.6565,32.3358 -64.6577,32.3367 -64.6577,32.3367 11,-3.0,Bermuda -64.734,32.2739 -64.7352,32.2733 -64.7352,32.2724 -64.7343,32.2718 -64.7337,32.2715 -64.7331,32.2715 -64.7328,32.2721 -64.7328,32.2724 -64.7328,32.2727 -64.734,32.2739 -64.734,32.2739 9,-3.0,Bermuda -64.5856,32.3434 -64.5867,32.3425 -64.5867,32.3416 -64.5861,32.3408 -64.5856,32.3408 -64.585,32.3414 -64.585,32.3425 -64.5856,32.3434 -64.5856,32.3434 10,-3.0,Bermuda -64.5935,32.351 -64.5926,32.3499 -64.5923,32.3499 -64.5914,32.3499 -64.5908,32.3504 -64.5908,32.351 -64.592,32.3516 -64.5923,32.3516 -64.5935,32.351 -64.5935,32.351 8,-3.0,Bermuda -64.7756,32.2425 -64.7768,32.2413 -64.7768,32.2407 -64.7759,32.2399 -64.7751,32.2404 -64.7751,32.2416 -64.7756,32.2425 -64.7756,32.2425 9,-3.0,Bermuda -64.8106,32.2701 -64.8114,32.2695 -64.8111,32.2686 -64.8106,32.2683 -64.81,32.2683 -64.8091,32.2689 -64.8097,32.2698 -64.8106,32.2701 -64.8106,32.2701 9,-3.0,Bermuda -64.8094,32.273 -64.8103,32.2721 -64.8103,32.2715 -64.8097,32.2709 -64.8091,32.2707 -64.8085,32.2715 -64.8088,32.2724 -64.8094,32.273 -64.8094,32.273 678,-5.0,Navassa -78.135,25.187 -78.1288,25.1879 -78.1218,25.1885 -78.1153,25.1873 -78.1092,25.1859 -78.1024,25.185 -78.0963,25.1832 -78.0895,25.182 -78.0837,25.1809 -78.0775,25.1791 -78.0716,25.1773 -78.0664,25.1753 -78.0611,25.1727 -78.0567,25.17 -78.0529,25.1662 -78.0502,25.1621 -78.0476,25.1577 -78.0455,25.153 -78.0423,25.1489 -78.0379,25.1457 -78.0344,25.1421 -78.0285,25.1404 -78.0224,25.1401 -78.0162,25.1413 -78.0115,25.1442 -78.0068,25.1465 -78.003,25.1498 -77.9983,25.1524 -77.9942,25.1559 -77.9901,25.1589 -77.9863,25.1621 -77.981,25.1641 -77.9745,25.1653 -77.969,25.1636 -77.9637,25.1612 -77.9584,25.1589 -77.9537,25.1559 -77.9493,25.153 -77.9449,25.1504 -77.9408,25.1471 -77.9364,25.1445 -77.932,25.1413 -77.9258,25.1398 -77.9209,25.1374 -77.9165,25.1348 -77.9126,25.131 -77.9109,25.126 -77.9085,25.121 -77.9118,25.1172 -77.915,25.1131 -77.9173,25.1087 -77.92,25.1037 -77.9226,25.099 -77.9244,25.0934 -77.9264,25.0879 -77.9273,25.082 -77.9253,25.0773 -77.9223,25.0726 -77.9188,25.0691 -77.9144,25.0665 -77.9091,25.0641 -77.9038,25.0618 -77.9018,25.0568 -77.903,25.0509 -77.9047,25.0453 -77.9065,25.0398 -77.9085,25.0345 -77.9094,25.0283 -77.9106,25.0222 -77.9123,25.0166 -77.9132,25.0104 -77.9138,25.0037 -77.9141,24.9966 -77.9135,24.9905 -77.9118,24.9855 -77.9088,24.9814 -77.9044,24.9785 -77.8974,24.9776 -77.8927,24.9799 -77.8883,24.9829 -77.8836,24.9837 -77.8792,24.9808 -77.8754,24.9767 -77.8727,24.9723 -77.8698,24.9679 -77.8672,24.9638 -77.8645,24.9597 -77.8604,24.9562 -77.8581,24.9518 -77.8548,24.9474 -77.8525,24.9432 -77.8502,24.9383 -77.8484,24.9333 -77.8463,24.9286 -77.8449,24.923 -77.8428,24.918 -77.8408,24.913 -77.8387,24.9083 -77.8378,24.9028 -77.8355,24.8978 -77.8334,24.8928 -77.8317,24.8881 -77.8302,24.8825 -77.829,24.8769 -77.8273,24.872 -77.8249,24.867 -77.8238,24.8614 -77.8226,24.8558 -77.8205,24.8511 -77.8185,24.8461 -77.8164,24.8412 -77.8138,24.8368 -77.8117,24.8318 -77.8088,24.8277 -77.8062,24.8236 -77.8032,24.8192 -77.8003,24.8151 -77.7968,24.8112 -77.7938,24.8071 -77.7903,24.8036 -77.7865,24.8001 -77.7839,24.7957 -77.7803,24.7922 -77.7777,24.7878 -77.7748,24.7837 -77.7727,24.7793 -77.7692,24.7757 -77.766,24.7716 -77.7624,24.7681 -77.7592,24.7643 -77.7554,24.7608 -77.7516,24.7573 -77.7481,24.7534 -77.7445,24.7499 -77.7401,24.747 -77.7366,24.7432 -77.7322,24.7405 -77.7278,24.7373 -77.724,24.7338 -77.7196,24.7312 -77.7161,24.7273 -77.7117,24.7244 -77.7079,24.7209 -77.7035,24.7177 -77.6991,24.715 -77.695,24.7118 -77.6897,24.7097 -77.6853,24.7068 -77.6812,24.7039 -77.6765,24.7006 -77.6712,24.6986 -77.6686,24.6945 -77.6683,24.688 -77.6692,24.6819 -77.6706,24.6757 -77.6712,24.6695 -77.6715,24.6628 -77.673,24.6566 -77.6724,24.6505 -77.6718,24.644 -77.67,24.6393 -77.6689,24.6338 -77.6668,24.6288 -77.6651,24.6238 -77.6645,24.6176 -77.6659,24.6121 -77.6686,24.6074 -77.6733,24.605 -77.6771,24.6015 -77.6806,24.5977 -77.6821,24.5921 -77.6827,24.5868 -77.6815,24.5812 -77.6791,24.5763 -77.6765,24.5719 -77.6753,24.5663 -77.6733,24.5616 -77.6709,24.5566 -77.6692,24.5516 -77.668,24.546 -77.6653,24.5419 -77.663,24.537 -77.6606,24.5328 -77.6574,24.5284 -77.6554,24.5235 -77.6536,24.5185 -77.6516,24.5138 -77.6501,24.5082 -77.6492,24.5026 -77.648,24.4971 -77.6466,24.4915 -77.6463,24.4853 -77.6472,24.4792 -77.6492,24.4739 -77.6507,24.4683 -77.6533,24.4636 -77.6554,24.4583 -77.6586,24.4542 -77.6615,24.4501 -77.6651,24.446 -77.6683,24.4413 -77.673,24.439 -77.6788,24.4378 -77.6844,24.436 -77.6906,24.4349 -77.6973,24.4343 -77.7041,24.434 -77.7111,24.4337 -77.7179,24.4334 -77.7252,24.4337 -77.7308,24.4319 -77.7346,24.4287 -77.7378,24.4243 -77.7419,24.4214 -77.7457,24.4181 -77.7492,24.4137 -77.7516,24.409 -77.7542,24.4046 -77.7575,24.4005 -77.7642,24.4002 -77.7695,24.4026 -77.773,24.4061 -77.7774,24.4088 -77.7833,24.4105 -77.7877,24.4079 -77.7915,24.4041 -77.7938,24.3994 -77.7956,24.3938 -77.7965,24.3876 -77.7962,24.3815 -77.7959,24.3753 -77.7938,24.3706 -77.7918,24.3656 -77.7941,24.3606 -77.7979,24.3574 -77.8015,24.3536 -77.8073,24.3524 -77.8126,24.3504 -77.8176,24.348 -77.8217,24.3448 -77.8261,24.3422 -77.8308,24.3398 -77.8355,24.3369 -77.8393,24.334 -77.8434,24.3304 -77.8481,24.3281 -77.8528,24.3254 -77.8575,24.3228 -77.8637,24.3216 -77.8704,24.3213 -77.8769,24.3222 -77.8824,24.3246 -77.8865,24.3275 -77.8918,24.3296 -77.898,24.3287 -77.9018,24.3254 -77.9044,24.3205 -77.9065,24.3152 -77.9103,24.312 -77.915,24.3093 -77.9194,24.307 -77.925,24.3049 -77.9302,24.3031 -77.9341,24.2999 -77.9379,24.2967 -77.9423,24.2932 -77.9446,24.2885 -77.9464,24.2829 -77.9443,24.2782 -77.9414,24.2738 -77.9379,24.2703 -77.9373,24.2656 -77.9414,24.2621 -77.9461,24.2597 -77.9514,24.2577 -77.9575,24.2565 -77.9643,24.2562 -77.9701,24.258 -77.9745,24.2609 -77.9775,24.2653 -77.9795,24.27 -77.9807,24.2756 -77.9813,24.282 -77.9833,24.2867 -77.9845,24.2923 -77.9863,24.2973 -77.9877,24.3029 -77.9898,24.3078 -77.991,24.3134 -77.993,24.3184 -77.9942,24.3237 -77.9954,24.3293 -77.9974,24.3342 -77.9986,24.3398 -78.0006,24.3448 -78.0036,24.3489 -78.0062,24.353 -78.0092,24.3574 -78.0127,24.3609 -78.0162,24.3648 -78.0209,24.3674 -78.0253,24.3706 -78.0303,24.3727 -78.0356,24.375 -78.0408,24.3771 -78.0467,24.3788 -78.052,24.3797 -78.0573,24.3821 -78.0623,24.3844 -78.0661,24.3879 -78.0696,24.3917 -78.0708,24.3973 -78.0696,24.4032 -78.0693,24.4102 -78.069,24.417 -78.0681,24.4234 -78.0684,24.4293 -78.0681,24.4363 -78.0669,24.4425 -78.0661,24.4487 -78.0649,24.4548 -78.0631,24.4601 -78.0614,24.4654 -78.0602,24.4715 -78.0608,24.478 -78.0628,24.483 -78.0681,24.4824 -78.0728,24.48 -78.076,24.4756 -78.079,24.4718 -78.0822,24.468 -78.0857,24.4639 -78.0889,24.4601 -78.0922,24.4557 -78.096,24.4525 -78.0992,24.4487 -78.103,24.4451 -78.1071,24.4419 -78.1124,24.4401 -78.1195,24.4396 -78.1262,24.4393 -78.1327,24.4401 -78.1388,24.4419 -78.1441,24.4443 -78.1485,24.4472 -78.1526,24.4498 -78.1579,24.4525 -78.1632,24.4548 -78.1684,24.4569 -78.1731,24.4601 -78.1781,24.4621 -78.184,24.4639 -78.189,24.466 -78.1943,24.4683 -78.1992,24.4704 -78.2054,24.4721 -78.2107,24.4745 -78.2151,24.4774 -78.2204,24.4797 -78.2256,24.4818 -78.2306,24.4841 -78.2359,24.4862 -78.2412,24.4888 -78.2456,24.4915 -78.2509,24.4938 -78.2541,24.4968 -78.2597,24.4991 -78.2638,24.5017 -78.2691,24.5044 -78.2735,24.507 -78.2779,24.5103 -78.2817,24.5138 -78.2858,24.5167 -78.2902,24.5196 -78.2937,24.5232 -78.2978,24.527 -78.3013,24.5305 -78.3046,24.534 -78.3084,24.5375 -78.3119,24.5411 -78.3163,24.5446 -78.3207,24.5478 -78.3245,24.5513 -78.3272,24.5554 -78.3307,24.5592 -78.3345,24.5628 -78.3371,24.5669 -78.3406,24.5704 -78.3453,24.5736 -78.3489,24.5771 -78.3524,24.5804 -78.3568,24.5836 -78.3597,24.5877 -78.3632,24.5912 -78.3668,24.595 -78.3706,24.5986 -78.3697,24.6047 -78.3626,24.6053 -78.3574,24.6068 -78.3527,24.6097 -78.348,24.6121 -78.3448,24.6162 -78.3415,24.6203 -78.3377,24.6235 -78.333,24.6261 -78.3283,24.6285 -78.3216,24.6288 -78.3151,24.6302 -78.3128,24.6349 -78.3119,24.6411 -78.3131,24.6467 -78.3098,24.6499 -78.3043,24.6517 -78.2984,24.6502 -78.2937,24.6473 -78.2896,24.644 -78.2831,24.6431 -78.2761,24.6437 -78.2705,24.6455 -78.2667,24.6487 -78.2641,24.6537 -78.2632,24.6596 -78.2644,24.6651 -78.2655,24.6707 -78.267,24.6763 -78.2653,24.6819 -78.2626,24.6866 -78.2594,24.6904 -78.2556,24.6939 -78.2509,24.6962 -78.2447,24.6959 -78.2403,24.6933 -78.2365,24.6898 -78.233,24.686 -78.2295,24.6825 -78.2274,24.6778 -78.2254,24.6728 -78.2224,24.6687 -78.2204,24.6637 -78.2195,24.6581 -78.218,24.6525 -78.2174,24.6464 -78.2177,24.6408 -78.2195,24.6352 -78.2213,24.6299 -78.2239,24.6253 -78.2262,24.6206 -78.2295,24.6165 -78.2321,24.6118 -78.2347,24.6068 -78.2386,24.6035 -78.2424,24.6006 -78.2465,24.5971 -78.2506,24.5939 -78.2544,24.5906 -78.2582,24.5871 -78.2609,24.5824 -78.2623,24.5771 -78.2614,24.5713 -78.2573,24.568 -78.2518,24.5663 -78.245,24.5666 -78.2389,24.5678 -78.2333,24.5698 -78.2289,24.5722 -78.2251,24.5754 -78.2195,24.5774 -78.2124,24.5777 -78.2063,24.5789 -78.201,24.5807 -78.1972,24.5842 -78.1951,24.5895 -78.1957,24.5959 -78.1978,24.6009 -78.1992,24.6065 -78.1981,24.6112 -78.1904,24.6109 -78.1837,24.6097 -78.1784,24.6074 -78.1787,24.6018 -78.1784,24.5959 -78.1781,24.5895 -78.1787,24.5833 -78.1808,24.578 -78.1831,24.5733 -78.1858,24.5686 -78.1875,24.5631 -78.189,24.5578 -78.1881,24.5519 -78.1843,24.5487 -78.1784,24.5469 -78.1726,24.5458 -78.1655,24.5449 -78.1594,24.546 -78.1541,24.5481 -78.1503,24.5513 -78.1491,24.5575 -78.1506,24.5622 -78.1517,24.5678 -78.1535,24.5727 -78.1558,24.5777 -78.1576,24.5824 -78.1599,24.5874 -78.1588,24.5921 -78.1547,24.5956 -78.1494,24.5959 -78.1462,24.5924 -78.1429,24.588 -78.1403,24.5839 -78.1359,24.581 -78.1315,24.578 -78.1262,24.5786 -78.1227,24.5824 -78.1224,24.5895 -78.123,24.5956 -78.1244,24.6012 -78.1268,24.6053 -78.1306,24.6088 -78.1359,24.6115 -78.1406,24.6141 -78.1447,24.617 -78.1491,24.62 -78.1526,24.6235 -78.1547,24.6285 -78.1544,24.6355 -78.1547,24.6417 -78.1547,24.6484 -78.1558,24.654 -78.1576,24.6587 -78.1608,24.6634 -78.1635,24.6675 -78.167,24.671 -78.1714,24.6739 -78.1743,24.6783 -78.177,24.6825 -78.1799,24.6866 -78.1811,24.6921 -78.1834,24.6971 -78.1846,24.7027 -78.1866,24.7077 -78.1869,24.7138 -78.189,24.7188 -78.1928,24.7212 -78.1981,24.7232 -78.2031,24.7241 -78.2042,24.7194 -78.2022,24.7144 -78.1992,24.7103 -78.1966,24.7059 -78.1951,24.7006 -78.1931,24.6954 -78.1919,24.6901 -78.1913,24.6839 -78.191,24.6775 -78.1907,24.6713 -78.1902,24.6649 -78.1919,24.6596 -78.1948,24.6555 -78.2019,24.6552 -78.2054,24.6587 -78.2069,24.6643 -78.208,24.6698 -78.2092,24.6754 -78.2104,24.681 -78.2127,24.686 -78.216,24.6898 -78.2198,24.693 -78.2233,24.6965 -78.2277,24.6998 -78.2321,24.7024 -78.2359,24.7059 -78.2342,24.7115 -78.2324,24.7171 -78.2306,24.7224 -78.2289,24.7279 -78.2277,24.7341 -78.2256,24.7394 -78.2251,24.7458 -78.2233,24.7511 -78.2213,24.7567 -78.2189,24.7614 -78.2154,24.7652 -78.2116,24.7687 -78.2083,24.7725 -78.2051,24.7766 -78.201,24.7798 -78.1972,24.7834 -78.1934,24.7863 -78.1893,24.7895 -78.1846,24.7922 -78.179,24.7942 -78.1737,24.796 -78.169,24.7986 -78.1661,24.8024 -78.164,24.808 -78.1646,24.8142 -78.1658,24.8197 -78.1687,24.8239 -78.1699,24.8297 -78.1687,24.8359 -78.1673,24.8412 -78.1617,24.8429 -78.1547,24.8435 -78.1479,24.8423 -78.1406,24.842 -78.135,24.8438 -78.1318,24.8479 -78.1294,24.8526 -78.1274,24.8579 -78.1259,24.8635 -78.1233,24.8681 -78.1209,24.8731 -78.1189,24.8784 -78.1162,24.8831 -78.1142,24.8881 -78.1112,24.8928 -78.1098,24.8981 -78.1098,24.8975 -78.1071,24.9022 -78.1068,24.9075 -78.1074,24.9139 -78.1095,24.9186 -78.113,24.9221 -78.1165,24.9256 -78.1203,24.9295 -78.1224,24.9344 -78.1212,24.9406 -78.1186,24.9453 -78.1142,24.9476 -78.1104,24.9512 -78.1063,24.9544 -78.1027,24.9582 -78.0998,24.9623 -78.0972,24.9673 -78.0939,24.972 -78.0928,24.9779 -78.091,24.9831 -78.0898,24.9896 -78.0889,24.9958 -78.0881,25.0019 -78.0866,25.0081 -78.0857,25.0142 -78.0854,25.021 -78.0866,25.0266 -78.0881,25.0321 -78.0898,25.0368 -78.091,25.0427 -78.0931,25.0474 -78.0951,25.0524 -78.0983,25.0565 -78.1007,25.0609 -78.1045,25.0644 -78.1074,25.0688 -78.1104,25.0729 -78.113,25.0773 -78.1145,25.0826 -78.1162,25.0879 -78.1174,25.0932 -78.118,25.0993 -78.1192,25.1049 -78.1206,25.1105 -78.1218,25.116 -78.123,25.1216 -78.125,25.1266 -78.1268,25.1316 -78.1291,25.1363 -78.1318,25.1404 -78.1341,25.1454 -78.1365,25.1498 -78.1397,25.1542 -78.1418,25.1589 -78.1426,25.1644 -78.1444,25.17 -78.1438,25.1768 -78.1435,25.1823 -78.1418,25.1876 -78.135,25.187 -78.135,25.187 595,-5.0,Navassa -77.631,24.2697 -77.6272,24.2729 -77.6225,24.2756 -77.6169,24.2773 -77.6125,24.28 -77.6064,24.2811 -77.6002,24.2794 -77.5967,24.2759 -77.5929,24.2721 -77.5911,24.2671 -77.5891,24.2621 -77.5873,24.2574 -77.5861,24.2518 -77.5856,24.2457 -77.582,24.2421 -77.5767,24.2398 -77.57,24.2389 -77.5641,24.2371 -77.5627,24.233 -77.5638,24.2266 -77.5659,24.2213 -77.5665,24.2151 -77.57,24.211 -77.5762,24.2099 -77.5826,24.2096 -77.5882,24.2078 -77.5926,24.2052 -77.5967,24.2022 -77.6008,24.1987 -77.604,24.1946 -77.6073,24.1908 -77.6111,24.1876 -77.6158,24.1849 -77.6205,24.1826 -77.624,24.1782 -77.6263,24.1735 -77.6301,24.1706 -77.6345,24.1676 -77.6401,24.1662 -77.6454,24.1641 -77.6501,24.1618 -77.6551,24.1591 -77.6609,24.1579 -77.6671,24.1568 -77.6741,24.1565 -77.6794,24.1547 -77.6841,24.1521 -77.6879,24.1488 -77.6868,24.1462 -77.6815,24.145 -77.6753,24.1462 -77.6692,24.1471 -77.6633,24.1459 -77.6598,24.1421 -77.6574,24.1371 -77.6604,24.1324 -77.6633,24.1286 -77.6671,24.1251 -77.6741,24.1248 -77.6812,24.1257 -77.685,24.1239 -77.6871,24.1192 -77.6862,24.1136 -77.6815,24.1104 -77.6765,24.1084 -77.6712,24.106 -77.6653,24.1043 -77.6595,24.1028 -77.6533,24.1025 -77.6466,24.1031 -77.6398,24.1034 -77.6325,24.1031 -77.6319,24.0966 -77.6322,24.0899 -77.6325,24.0831 -77.6345,24.0776 -77.6363,24.0723 -77.6386,24.0676 -77.6404,24.062 -77.6422,24.0567 -77.6433,24.0506 -77.6457,24.0459 -77.6483,24.0412 -77.6489,24.0356 -77.6498,24.0294 -77.6545,24.0268 -77.6589,24.0242 -77.6627,24.0206 -77.6674,24.0183 -77.6715,24.0154 -77.6656,24.0136 -77.658,24.0133 -77.6518,24.0142 -77.6466,24.016 -77.6445,24.0189 -77.641,24.0212 -77.6378,24.0253 -77.6351,24.03 -77.6322,24.0341 -77.6304,24.0394 -77.6278,24.0441 -77.6252,24.0497 -77.6219,24.0576 -77.619,24.0632 -77.6166,24.0676 -77.6149,24.0732 -77.6131,24.0787 -77.6122,24.0849 -77.6102,24.0902 -77.607,24.0943 -77.6037,24.0984 -77.5999,24.1016 -77.5967,24.1054 -77.592,24.1081 -77.5879,24.1113 -77.5841,24.1148 -77.5803,24.118 -77.5767,24.1219 -77.5741,24.1266 -77.5732,24.1327 -77.5718,24.1383 -77.5712,24.1453 -77.5709,24.1518 -77.5712,24.1582 -77.5709,24.165 -77.5703,24.172 -77.5694,24.1779 -77.5682,24.184 -77.5665,24.1896 -77.5641,24.1943 -77.56,24.1978 -77.5547,24.1993 -77.5495,24.2014 -77.5418,24.2011 -77.5366,24.1987 -77.5339,24.1943 -77.5301,24.1908 -77.5275,24.1867 -77.5251,24.1829 -77.5225,24.1788 -77.519,24.1752 -77.516,24.1708 -77.5125,24.167 -77.5096,24.1629 -77.5069,24.1588 -77.5049,24.1538 -77.5022,24.1497 -77.4999,24.1447 -77.499,24.1392 -77.497,24.1342 -77.494,24.1301 -77.4914,24.1257 -77.4879,24.1221 -77.4841,24.1186 -77.4814,24.1142 -77.4794,24.1095 -77.4776,24.1043 -77.4761,24.099 -77.4758,24.0928 -77.4761,24.0858 -77.475,24.0802 -77.4735,24.0746 -77.4723,24.0691 -77.4729,24.0623 -77.4738,24.0561 -77.4732,24.05 -77.4732,24.0435 -77.4711,24.0385 -77.4691,24.0338 -77.4676,24.0283 -77.4667,24.0227 -77.4647,24.0177 -77.4626,24.0127 -77.4615,24.0072 -77.4638,24.0025 -77.4676,23.9992 -77.4706,23.9945 -77.4723,23.9893 -77.4723,23.9837 -77.4697,23.9793 -77.4662,23.9758 -77.4626,23.9722 -77.4597,23.9678 -77.4571,23.9634 -77.4559,23.9579 -77.4553,23.952 -77.4556,23.945 -77.4562,23.9379 -77.4556,23.9318 -77.4582,23.9271 -77.4644,23.9262 -77.4714,23.9256 -77.4773,23.9244 -77.4838,23.9241 -77.4899,23.923 -77.497,23.9227 -77.5031,23.9215 -77.509,23.9206 -77.5143,23.9186 -77.5195,23.9168 -77.5245,23.9142 -77.5283,23.9109 -77.5301,23.9054 -77.5298,23.8995 -77.5307,23.8933 -77.5289,23.8898 -77.5237,23.8898 -77.5181,23.8919 -77.514,23.8951 -77.5102,23.8983 -77.5072,23.9024 -77.5034,23.9057 -77.4984,23.9083 -77.4931,23.9101 -77.4876,23.9118 -77.4823,23.9139 -77.477,23.9156 -77.4708,23.9165 -77.4641,23.9168 -77.4571,23.9174 -77.4506,23.9162 -77.4468,23.9127 -77.4465,23.9065 -77.4474,23.9004 -77.448,23.8936 -77.4474,23.8875 -77.4477,23.8804 -77.4491,23.8743 -77.4509,23.869 -77.4527,23.8637 -77.453,23.8567 -77.4515,23.8511 -77.4497,23.8461 -77.4509,23.8399 -77.4518,23.8338 -77.453,23.8276 -77.4541,23.8215 -77.4544,23.8147 -77.4562,23.8091 -77.4594,23.8053 -77.4632,23.8018 -77.4685,23.8027 -77.4747,23.8044 -77.4805,23.8062 -77.4864,23.8077 -77.4926,23.8094 -77.499,23.8106 -77.5022,23.8062 -77.5028,23.8009 -77.4984,23.798 -77.4931,23.7956 -77.4873,23.7942 -77.482,23.7915 -77.477,23.7895 -77.4723,23.7863 -77.4729,23.7798 -77.4747,23.7742 -77.4758,23.7681 -77.4776,23.7625 -77.4785,23.7563 -77.4805,23.7511 -77.4808,23.744 -77.4826,23.7384 -77.4858,23.7346 -77.4896,23.7314 -77.4934,23.7282 -77.497,23.7241 -77.5017,23.7217 -77.5069,23.7197 -77.5122,23.7179 -77.5184,23.717 -77.5239,23.715 -77.5292,23.7132 -77.5351,23.712 -77.5427,23.7123 -77.5486,23.7141 -77.553,23.717 -77.5565,23.7205 -77.5594,23.7249 -77.5618,23.7291 -77.565,23.7332 -77.5677,23.7379 -77.5721,23.7405 -77.5765,23.7434 -77.5832,23.7443 -77.5891,23.7434 -77.5946,23.7417 -77.5979,23.7379 -77.5949,23.7332 -77.5908,23.7305 -77.5856,23.7279 -77.5797,23.7264 -77.5753,23.7235 -77.5762,23.7185 -77.5803,23.7156 -77.5856,23.7135 -77.5882,23.7088 -77.5914,23.705 -77.5973,23.7053 -77.6008,23.7088 -77.6037,23.7129 -77.6058,23.7179 -77.609,23.7217 -77.6134,23.7244 -77.6187,23.727 -77.6254,23.7276 -77.6331,23.7279 -77.6404,23.7282 -77.648,23.7288 -77.6554,23.7291 -77.6624,23.7285 -77.6692,23.7282 -77.6768,23.7285 -77.6827,23.7276 -77.6894,23.7273 -77.6973,23.7276 -77.7029,23.7276 -77.7044,23.732 -77.7011,23.7358 -77.6967,23.7381 -77.6897,23.7387 -77.6821,23.7384 -77.6762,23.7396 -77.6736,23.7443 -77.6762,23.7484 -77.6791,23.7528 -77.6806,23.7584 -77.6785,23.764 -77.6747,23.7672 -77.6689,23.7654 -77.6659,23.7613 -77.6624,23.7578 -77.6571,23.7552 -77.651,23.7549 -77.6457,23.7569 -77.6413,23.7537 -77.6386,23.7496 -77.6337,23.7475 -77.6266,23.7478 -77.6199,23.7469 -77.6134,23.7458 -77.6058,23.7455 -77.6011,23.7481 -77.5993,23.7537 -77.5988,23.7604 -77.5985,23.7643 -77.5964,23.7692 -77.5938,23.7739 -77.5891,23.7763 -77.5838,23.7783 -77.5782,23.7801 -77.5729,23.7819 -77.5677,23.7839 -77.563,23.7863 -77.5583,23.7889 -77.5527,23.7912 -77.548,23.7942 -77.5436,23.7965 -77.538,23.7983 -77.5336,23.8009 -77.5289,23.8036 -77.5237,23.8053 -77.519,23.8077 -77.5149,23.8112 -77.511,23.8144 -77.5072,23.8176 -77.5037,23.8218 -77.5028,23.8276 -77.5055,23.8323 -77.5116,23.8338 -77.519,23.8341 -77.5248,23.8329 -77.5301,23.8311 -77.5357,23.8294 -77.5401,23.8262 -77.543,23.8218 -77.5459,23.8179 -77.5501,23.8147 -77.5547,23.8121 -77.5594,23.8097 -77.5641,23.8071 -77.5694,23.8053 -77.5741,23.8027 -77.5779,23.7995 -77.582,23.7959 -77.5867,23.7936 -77.5905,23.7904 -77.5944,23.7871 -77.5999,23.7851 -77.6043,23.7827 -77.6099,23.7807 -77.6161,23.7798 -77.6213,23.7778 -77.6266,23.776 -77.6298,23.7722 -77.6281,23.7672 -77.6266,23.7616 -77.6337,23.761 -77.6381,23.7643 -77.6448,23.7651 -77.6507,23.7669 -77.6557,23.7692 -77.6604,23.7719 -77.6621,23.7769 -77.6642,23.7819 -77.6653,23.7874 -77.6671,23.7921 -77.6703,23.7965 -77.6747,23.7995 -77.6797,23.8018 -77.6865,23.8027 -77.6923,23.8044 -77.6891,23.8083 -77.6815,23.808 -77.6756,23.8091 -77.6695,23.8103 -77.6651,23.813 -77.6595,23.8147 -77.6548,23.8171 -77.6472,23.8168 -77.6404,23.8174 -77.6372,23.8215 -77.6334,23.8247 -77.6293,23.8276 -77.6252,23.8311 -77.6205,23.8338 -77.6152,23.8355 -77.6099,23.8376 -77.6043,23.8391 -77.599,23.8411 -77.5938,23.8426 -77.59,23.8461 -77.5882,23.8487 -77.5873,23.8534 -77.5864,23.8596 -77.5873,23.8637 -77.5923,23.8614 -77.5952,23.8575 -77.5985,23.8531 -77.6026,23.8502 -77.6073,23.8479 -77.6125,23.8458 -77.6181,23.8438 -77.6246,23.8435 -77.6313,23.8443 -77.6384,23.8455 -77.6442,23.8473 -77.6507,23.8479 -77.6574,23.849 -77.6645,23.8484 -77.6697,23.847 -77.675,23.8449 -77.6812,23.8438 -77.6879,23.8435 -77.6941,23.8438 -77.6988,23.8414 -77.7026,23.8379 -77.7079,23.8361 -77.714,23.835 -77.7208,23.8361 -77.7275,23.837 -77.7328,23.8391 -77.7378,23.8417 -77.7407,23.8458 -77.741,23.852 -77.7393,23.8575 -77.7384,23.8637 -77.7387,23.8699 -77.7413,23.874 -77.7443,23.8784 -77.7472,23.8828 -77.7475,23.8889 -77.7478,23.8951 -77.7469,23.901 -77.7489,23.9059 -77.7525,23.9098 -77.756,23.9133 -77.7598,23.9168 -77.7624,23.9212 -77.7604,23.9265 -77.7575,23.9306 -77.7542,23.9347 -77.7531,23.9409 -77.7536,23.947 -77.7516,23.9526 -77.7498,23.9564 -77.7495,23.962 -77.7542,23.9649 -77.7595,23.9673 -77.7651,23.9687 -77.7704,23.9711 -77.7715,23.9766 -77.7692,23.9813 -77.7666,23.986 -77.7642,23.9907 -77.7616,23.9954 -77.7604,24.0001 -77.7636,24.0048 -77.766,24.0089 -77.7698,24.0124 -77.7733,24.016 -77.7786,24.0183 -77.7839,24.0206 -77.7888,24.023 -77.7938,24.0253 -77.7982,24.028 -77.7979,24.0321 -77.7935,24.035 -77.7903,24.0388 -77.79,24.0459 -77.7959,24.0473 -77.8018,24.0488 -77.8038,24.0538 -77.8067,24.0579 -77.8135,24.0576 -77.8188,24.0559 -77.8258,24.0556 -77.8308,24.0576 -77.8352,24.0608 -77.8396,24.0635 -77.8434,24.0673 -77.8478,24.0702 -77.8537,24.072 -77.8581,24.074 -77.859,24.0723 -77.8625,24.0758 -77.8651,24.0773 -77.8683,24.0814 -77.8628,24.0834 -77.8625,24.0887 -77.8557,24.089 -77.8484,24.0887 -77.8431,24.0867 -77.8364,24.0855 -77.8317,24.0881 -77.8299,24.0937 -77.832,24.0987 -77.8364,24.1022 -77.8396,24.1057 -77.8434,24.1095 -77.8463,24.1136 -77.8475,24.1192 -77.8463,24.1251 -77.8422,24.1286 -77.8355,24.1289 -77.8284,24.128 -77.8223,24.1268 -77.8144,24.1266 -77.807,24.1263 -77.8038,24.1304 -77.8015,24.1351 -77.7985,24.14 -77.7947,24.143 -77.7886,24.1442 -77.7824,24.1453 -77.7786,24.1486 -77.7756,24.1527 -77.773,24.1571 -77.771,24.1626 -77.7707,24.1697 -77.7704,24.1767 -77.7701,24.1832 -77.7654,24.1861 -77.7577,24.1855 -77.7536,24.184 -77.7475,24.1826 -77.7428,24.1849 -77.7393,24.1887 -77.7349,24.1917 -77.7287,24.1928 -77.722,24.1931 -77.7152,24.1931 -77.7105,24.1958 -77.7073,24.1999 -77.7038,24.2037 -77.7014,24.2087 -77.6997,24.2143 -77.6991,24.221 -77.6982,24.2272 -77.6967,24.2325 -77.6938,24.2371 -77.6909,24.2413 -77.6868,24.2448 -77.6829,24.2477 -77.6774,24.2498 -77.6721,24.2515 -77.6653,24.2518 -77.6586,24.2521 -77.6516,24.2527 -77.6463,24.2545 -77.6416,24.2571 -77.6384,24.2612 -77.6345,24.2644 -77.631,24.2697 -77.631,24.2697 88,-5.0,Navassa -77.8097,24.1644 -77.8059,24.1676 -77.8018,24.1708 -77.7976,24.1741 -77.7959,24.1796 -77.7941,24.1849 -77.7921,24.1905 -77.7906,24.1958 -77.7874,24.1999 -77.7842,24.2037 -77.7809,24.2081 -77.7798,24.2143 -77.7803,24.2201 -77.7795,24.2251 -77.7739,24.2269 -77.7671,24.2275 -77.7627,24.2245 -77.7598,24.2201 -77.756,24.2166 -77.751,24.2143 -77.7437,24.214 -77.739,24.2163 -77.7355,24.2204 -77.7325,24.2245 -77.7299,24.2278 -77.729,24.2339 -77.7302,24.2383 -77.736,24.2398 -77.7422,24.2386 -77.7484,24.2374 -77.7551,24.2371 -77.7619,24.238 -77.7686,24.2392 -77.7756,24.2389 -77.7815,24.2374 -77.7862,24.2351 -77.7903,24.2319 -77.7935,24.2278 -77.7965,24.2239 -77.8,24.2195 -77.8038,24.2163 -77.8079,24.2134 -77.8123,24.2107 -77.8111,24.2063 -77.815,24.2034 -77.822,24.2028 -77.8279,24.2031 -77.834,24.2019 -77.8364,24.1972 -77.839,24.1926 -77.8443,24.1905 -77.8522,24.1911 -77.8581,24.1928 -77.8625,24.1899 -77.8645,24.1846 -77.8663,24.1791 -77.8707,24.1767 -77.8777,24.1764 -77.8836,24.1776 -77.8898,24.1794 -77.8962,24.1805 -77.9015,24.1785 -77.9035,24.1729 -77.9038,24.1664 -77.9033,24.16 -77.9021,24.1544 -77.9015,24.1483 -77.9006,24.1427 -77.8968,24.1392 -77.8927,24.1359 -77.8883,24.1333 -77.8821,24.133 -77.8766,24.1351 -77.8722,24.1374 -77.8675,24.14 -77.8628,24.1424 -77.8584,24.145 -77.8537,24.1477 -77.849,24.1503 -77.844,24.1527 -77.8384,24.1547 -77.8331,24.1565 -77.8273,24.1574 -77.8211,24.1585 -77.8158,24.1606 -77.812,24.1638 -77.8097,24.1644 -77.8097,24.1644 49,-5.0,Navassa -77.9358,24.238 -77.9288,24.2383 -77.922,24.2389 -77.9147,24.2383 -77.9068,24.238 -77.9003,24.2386 -77.8947,24.2404 -77.8895,24.2421 -77.8862,24.2459 -77.883,24.2503 -77.8804,24.255 -77.878,24.2597 -77.8742,24.2627 -77.8686,24.2647 -77.861,24.2644 -77.8575,24.2621 -77.8546,24.258 -77.8534,24.2524 -77.8531,24.2459 -77.8578,24.2436 -77.8639,24.2424 -77.8692,24.2404 -77.8725,24.2366 -77.8742,24.231 -77.8722,24.2263 -77.8701,24.2213 -77.8683,24.2163 -77.8666,24.2107 -77.8716,24.2084 -77.876,24.2099 -77.8804,24.2128 -77.8862,24.2143 -77.893,24.2143 -77.8991,24.2131 -77.9062,24.2125 -77.9121,24.2113 -77.9188,24.211 -77.9258,24.2104 -77.9294,24.2143 -77.9329,24.2178 -77.9373,24.2207 -77.9429,24.2231 -77.9473,24.226 -77.9496,24.2301 -77.9493,24.2357 -77.9449,24.2383 -77.9373,24.238 -77.9358,24.238 -77.9358,24.238 63,-5.0,Navassa -77.7011,24.3328 -77.6979,24.334 -77.6941,24.3357 -77.6903,24.3392 -77.685,24.3407 -77.6794,24.3428 -77.6741,24.3448 -77.668,24.3457 -77.6627,24.3474 -77.6568,24.3495 -77.6507,24.3504 -77.6448,24.3516 -77.6386,24.3527 -77.6334,24.3548 -77.6257,24.3542 -77.6225,24.3504 -77.6202,24.3457 -77.6175,24.3413 -77.6146,24.3372 -77.6125,24.3322 -77.6137,24.326 -77.6169,24.3222 -77.6231,24.321 -77.629,24.3228 -77.6334,24.3254 -77.6378,24.3287 -77.6422,24.3316 -77.6472,24.334 -77.6533,24.3354 -77.6606,24.3357 -77.6668,24.3345 -77.6715,24.3322 -77.6762,24.3293 -77.6803,24.3263 -77.6835,24.3222 -77.6868,24.3184 -77.69,24.3143 -77.6938,24.3111 -77.6976,24.3078 -77.702,24.3043 -77.7073,24.3026 -77.712,24.2999 -77.7158,24.297 -77.7214,24.2949 -77.7267,24.2929 -77.7316,24.2955 -77.7346,24.2996 -77.7366,24.3046 -77.734,24.309 -77.7311,24.312 -77.7278,24.3143 -77.7252,24.3161 -77.7234,24.3172 -77.7261,24.3152 -77.7252,24.3161 -77.7234,24.3178 -77.7181,24.3202 -77.7152,24.3231 -77.7105,24.3254 -77.7076,24.3266 -77.7041,24.3307 -77.7011,24.3328 -77.7011,24.3328 22,-5.0,Navassa -77.7979,24.3202 -77.7924,24.3222 -77.7868,24.324 -77.7815,24.3257 -77.7756,24.3269 -77.7686,24.3272 -77.7619,24.3263 -77.7545,24.326 -77.7507,24.324 -77.7501,24.3175 -77.7536,24.3134 -77.7566,24.3096 -77.7607,24.3064 -77.766,24.3043 -77.7715,24.3026 -77.7783,24.3023 -77.785,24.3031 -77.7894,24.3061 -77.7938,24.309 -77.7965,24.3134 -77.7979,24.3202 -77.7979,24.3202 25,-5.0,Navassa -78.4005,24.6396 -78.3967,24.6417 -78.3888,24.6414 -78.3826,24.6402 -78.3764,24.6414 -78.3717,24.644 -78.3662,24.6458 -78.3591,24.6464 -78.3541,24.6455 -78.3512,24.6411 -78.353,24.6358 -78.3562,24.6317 -78.3615,24.6299 -78.3668,24.6279 -78.3738,24.6288 -78.3788,24.6314 -78.3844,24.6294 -78.3896,24.6273 -78.3967,24.6273 -78.402,24.6279 -78.4064,24.6311 -78.4087,24.6352 -78.4066,24.6399 -78.4005,24.6396 -78.4005,24.6396 20,-5.0,Navassa -77.6331,23.6985 -77.6281,23.6962 -77.6228,23.6939 -77.619,23.6903 -77.6216,23.6856 -77.6246,23.6815 -77.629,23.6783 -77.6328,23.6751 -77.6351,23.6701 -77.6398,23.6677 -77.646,23.6666 -77.6466,23.6727 -77.6442,23.676 -77.6422,23.6815 -77.6404,23.6871 -77.6386,23.6924 -77.6398,23.698 -77.636,23.7 -77.6331,23.6985 -77.6331,23.6985 16,-5.0,Navassa -77.6395,24.1321 -77.6345,24.1342 -77.629,24.1356 -77.6222,24.1362 -77.6164,24.1348 -77.6125,24.131 -77.6099,24.1268 -77.6131,24.1227 -77.6178,24.1201 -77.6243,24.1201 -77.6313,24.1195 -77.6384,24.1204 -77.6425,24.1233 -77.6448,24.1283 -77.6395,24.1321 -77.6395,24.1321 15,-5.0,Navassa -77.751,24.1887 -77.7484,24.1923 -77.7437,24.1946 -77.7399,24.1967 -77.7357,24.1996 -77.7328,24.2037 -77.7346,24.209 -77.7413,24.2096 -77.7469,24.2078 -77.7507,24.2046 -77.7539,24.2005 -77.7545,24.1952 -77.7507,24.1917 -77.751,24.1887 -77.751,24.1887 234,-4.0,Trinidad and Tobago -69.0762,12.3689 -69.0736,12.366 -69.0686,12.3639 -69.0639,12.3616 -69.0592,12.3595 -69.0542,12.3572 -69.0486,12.3557 -69.0431,12.3545 -69.0375,12.3528 -69.0325,12.3504 -69.0278,12.3484 -69.0237,12.3454 -69.0196,12.3428 -69.0155,12.3399 -69.0114,12.3369 -69.0079,12.3337 -69.0052,12.3293 -69.0026,12.3252 -68.9997,12.3211 -68.9973,12.3167 -68.9953,12.312 -68.9923,12.3076 -68.9906,12.3029 -68.9882,12.2979 -68.987,12.2923 -68.9867,12.2865 -68.9862,12.2803 -68.9856,12.2739 -68.9835,12.2692 -68.9818,12.2642 -68.9797,12.2595 -68.9777,12.2548 -68.9753,12.2501 -68.973,12.2454 -68.9703,12.2413 -68.9668,12.2378 -68.9642,12.2337 -68.9612,12.2293 -68.958,12.226 -68.9539,12.2231 -68.9492,12.2208 -68.9445,12.2187 -68.9401,12.2158 -68.9375,12.2117 -68.9342,12.2081 -68.9307,12.2046 -68.9272,12.2011 -68.9231,12.1982 -68.919,12.1955 -68.9149,12.1926 -68.9108,12.1897 -68.9058,12.1873 -68.9005,12.1861 -68.8955,12.1838 -68.8899,12.1823 -68.8844,12.1809 -68.8779,12.18 -68.8718,12.1791 -68.8665,12.1776 -68.86,12.1768 -68.8559,12.1738 -68.8509,12.1715 -68.8465,12.1688 -68.8418,12.1665 -68.8351,12.1665 -68.8286,12.1668 -68.8222,12.1674 -68.816,12.168 -68.809,12.1677 -68.8034,12.1662 -68.7981,12.165 -68.7917,12.1639 -68.7867,12.1618 -68.7811,12.1603 -68.7761,12.158 -68.7714,12.1556 -68.7667,12.1536 -68.7623,12.1506 -68.7582,12.148 -68.7541,12.1454 -68.7515,12.141 -68.748,12.1369 -68.7462,12.1319 -68.745,12.1263 -68.7436,12.1207 -68.7424,12.1154 -68.7406,12.1105 -68.7383,12.1058 -68.7362,12.1008 -68.733,12.0976 -68.7292,12.0943 -68.7251,12.0917 -68.7213,12.0879 -68.7189,12.0838 -68.7151,12.0802 -68.7113,12.0773 -68.7063,12.0753 -68.7031,12.072 -68.6993,12.0682 -68.696,12.0647 -68.6934,12.0606 -68.6899,12.0568 -68.6866,12.0535 -68.6831,12.05 -68.6787,12.0471 -68.6749,12.0445 -68.6723,12.0403 -68.6693,12.0359 -68.6688,12.031 -68.672,12.0271 -68.677,12.0251 -68.6825,12.0266 -68.6866,12.0298 -68.6937,12.0298 -68.6993,12.0286 -68.7048,12.0271 -68.7104,12.026 -68.7169,12.0254 -68.7224,12.0257 -68.7289,12.0251 -68.7353,12.026 -68.7406,12.0274 -68.7468,12.0283 -68.7515,12.0304 -68.7573,12.0321 -68.762,12.0345 -68.7661,12.0371 -68.7703,12.0401 -68.7738,12.0436 -68.7776,12.0462 -68.784,12.0471 -68.7899,12.0489 -68.7946,12.0509 -68.7987,12.0538 -68.8037,12.0562 -68.8078,12.0588 -68.811,12.0624 -68.814,12.0668 -68.8163,12.0709 -68.8222,12.072 -68.8269,12.0703 -68.8342,12.0706 -68.8389,12.0726 -68.8439,12.075 -68.8486,12.0773 -68.8536,12.0791 -68.8583,12.0814 -68.863,12.0835 -68.8671,12.0864 -68.872,12.0885 -68.877,12.0908 -68.882,12.0932 -68.8867,12.0952 -68.8917,12.0976 -68.8955,12.1002 -68.8996,12.1031 -68.9037,12.1061 -68.9072,12.1093 -68.9114,12.1122 -68.9149,12.1157 -68.919,12.1187 -68.9225,12.1222 -68.9266,12.1248 -68.9298,12.1286 -68.9319,12.1336 -68.9345,12.1374 -68.9366,12.1424 -68.9398,12.146 -68.9442,12.1489 -68.9483,12.1515 -68.9515,12.1553 -68.9545,12.1595 -68.9562,12.1641 -68.9574,12.1697 -68.9603,12.1738 -68.963,12.1779 -68.9671,12.1812 -68.9718,12.1829 -68.9768,12.1853 -68.9818,12.1832 -68.9856,12.18 -68.9891,12.1768 -68.9923,12.1732 -68.9973,12.1727 -69.0008,12.1765 -69.0041,12.18 -69.0073,12.1841 -69.009,12.1888 -69.0117,12.1929 -69.0134,12.1979 -69.0164,12.2023 -69.019,12.2064 -69.0225,12.2099 -69.0266,12.2128 -69.0299,12.2161 -69.0337,12.2196 -69.036,12.2237 -69.039,12.2281 -69.0422,12.2316 -69.0448,12.2357 -69.0478,12.2398 -69.051,12.2433 -69.0539,12.2478 -69.0572,12.251 -69.0604,12.2548 -69.0645,12.2583 -69.0686,12.261 -69.0727,12.2639 -69.0768,12.2665 -69.0818,12.2689 -69.0862,12.2718 -69.0894,12.2753 -69.0915,12.2803 -69.0918,12.2865 -69.0903,12.2918 -69.0882,12.2964 -69.088,12.3032 -69.0882,12.3096 -69.0897,12.3149 -69.0903,12.3214 -69.0909,12.3275 -69.0921,12.3331 -69.0924,12.339 -69.0929,12.3451 -69.0935,12.3513 -69.0959,12.3563 -69.0968,12.3619 -69.0968,12.3689 -69.0938,12.3727 -69.0888,12.3748 -69.083,12.3757 -69.0789,12.373 -69.0762,12.3689 -69.0762,12.3689 162,-4.0,Aruba -68.3068,12.292 -68.2997,12.2918 -68.2938,12.2903 -68.29,12.2874 -68.2859,12.2847 -68.2824,12.2812 -68.2792,12.2777 -68.2771,12.2727 -68.2745,12.2686 -68.2715,12.2645 -68.2692,12.2604 -68.2654,12.2566 -68.2616,12.2539 -68.2575,12.251 -68.2534,12.248 -68.2493,12.2451 -68.2449,12.2425 -68.2399,12.2401 -68.2352,12.2381 -68.2305,12.2357 -68.2255,12.2337 -68.2208,12.2313 -68.2158,12.2293 -68.2111,12.2269 -68.2061,12.2249 -68.2011,12.2228 -68.1967,12.2205 -68.1912,12.2187 -68.1862,12.2169 -68.1797,12.2158 -68.1733,12.2149 -68.1671,12.214 -68.1607,12.2134 -68.1548,12.2125 -68.1486,12.2117 -68.1422,12.2108 -68.1357,12.2099 -68.1293,12.209 -68.1252,12.2061 -68.124,12.2005 -68.1228,12.1952 -68.1231,12.1897 -68.126,12.1856 -68.1307,12.1835 -68.1351,12.1812 -68.1384,12.1768 -68.139,12.1709 -68.1387,12.1647 -68.1381,12.1586 -68.1375,12.1524 -68.1363,12.1468 -68.1348,12.1413 -68.134,12.1357 -68.1334,12.1295 -68.1325,12.1234 -68.1328,12.1166 -68.1331,12.1096 -68.1343,12.1034 -68.1354,12.0981 -68.1398,12.0955 -68.1434,12.0923 -68.1486,12.0902 -68.153,12.0926 -68.1571,12.0952 -68.163,12.094 -68.1671,12.0914 -68.1703,12.0876 -68.1698,12.0814 -68.1651,12.0791 -68.1612,12.0756 -68.1607,12.0694 -68.1624,12.0638 -68.1627,12.0568 -68.1601,12.0527 -68.1571,12.0486 -68.156,12.0433 -68.1563,12.0362 -68.1571,12.0304 -68.1589,12.0248 -68.1607,12.0198 -68.163,12.0151 -68.1656,12.0104 -68.1689,12.0072 -68.1747,12.006 -68.1812,12.0054 -68.1859,12.0078 -68.1891,12.011 -68.1918,12.0151 -68.1947,12.0198 -68.197,12.0239 -68.2,12.028 -68.2026,12.0321 -68.2053,12.0362 -68.2073,12.0409 -68.2085,12.0465 -68.2091,12.0527 -68.2094,12.0591 -68.2111,12.0647 -68.212,12.0703 -68.2132,12.0756 -68.2138,12.082 -68.2152,12.0873 -68.2179,12.0917 -68.2205,12.0958 -68.2237,12.099 -68.2223,12.1046 -68.2187,12.1081 -68.2158,12.1119 -68.2135,12.1154 -68.2114,12.1201 -68.2091,12.1248 -68.2091,12.1316 -68.2099,12.1372 -68.2114,12.1427 -68.2132,12.1474 -68.2146,12.153 -68.2167,12.158 -68.2185,12.1627 -68.2214,12.1668 -68.2237,12.1712 -68.2267,12.1756 -68.2284,12.1803 -68.2319,12.1838 -68.2346,12.1879 -68.2387,12.1908 -68.2422,12.1944 -68.2472,12.1967 -68.2525,12.1979 -68.2581,12.2002 -68.2645,12.2011 -68.2715,12.2014 -68.2777,12.2023 -68.2847,12.2026 -68.2912,12.202 -68.2974,12.2014 -68.3044,12.2017 -68.3114,12.2017 -68.3182,12.202 -68.3241,12.2035 -68.3288,12.2058 -68.3323,12.209 -68.3334,12.2146 -68.3346,12.2202 -68.3381,12.2237 -68.3417,12.2272 -68.3443,12.2313 -68.3469,12.2354 -68.3461,12.2419 -68.3431,12.2457 -68.3402,12.2498 -68.3373,12.2539 -68.3358,12.2595 -68.3364,12.2656 -68.3361,12.2724 -68.3343,12.2777 -68.3323,12.2824 -68.3293,12.2865 -68.3249,12.2891 -68.32,12.2912 -68.3141,12.2923 -68.3068,12.292 -68.3068,12.292 19,-4.0,Virgin Islands -64.9586,18.3404 -64.9488,18.3306 -64.9299,18.33 -64.9127,18.3364 -64.8877,18.3124 -64.8597,18.3232 -64.8418,18.3073 -64.7969,18.2901 -64.7861,18.3006 -64.7625,18.2999 -64.7537,18.3117 -64.7899,18.3367 -64.8304,18.3549 -64.8547,18.3546 -64.8712,18.3624 -64.909,18.3627 -64.9242,18.3576 -64.9488,18.3509 -64.9586,18.3404 18,-4.0,Virgin Islands -64.7214,18.3137 -64.7069,18.3006 -64.6718,18.308 -64.6269,18.2881 -64.6228,18.2881 -64.6194,18.3114 -64.6286,18.3323 -64.6171,18.334 -64.5911,18.3158 -64.5816,18.3283 -64.612,18.3468 -64.6272,18.3542 -64.6464,18.3526 -64.6643,18.36 -64.6728,18.3461 -64.6984,18.3407 -64.7153,18.3299 -64.7214,18.3137 20,-4.0,Virgin Islands -64.817,17.7416 -64.8082,17.6997 -64.8257,17.6673 -64.765,17.6721 -64.6853,17.6862 -64.6373,17.6868 -64.58,17.7058 -64.5314,17.7227 -64.5199,17.7308 -64.4889,17.7362 -64.4855,17.743 -64.5031,17.747 -64.5415,17.747 -64.5739,17.7484 -64.634,17.7355 -64.6651,17.7592 -64.7076,17.7713 -64.7535,17.7517 -64.7947,17.7578 -64.817,17.7416 16,-4.0,British Virgin Islands -64.3369,18.7268 -64.3241,18.7132 -64.2877,18.71 -64.2645,18.704 -64.2305,18.6988 -64.2029,18.6788 -64.1909,18.6784 -64.1897,18.688 -64.2033,18.706 -64.2281,18.7264 -64.2509,18.7372 -64.2697,18.732 -64.2973,18.7324 -64.3121,18.7344 -64.3321,18.732 -64.3369,18.7268 29,-4.0,British Virgin Islands -64.6353,18.3776 -64.6343,18.3756 -64.6265,18.3738 -64.6011,18.3756 -64.5909,18.3704 -64.5541,18.3848 -64.5427,18.3908 -64.5345,18.398 -64.5433,18.4094 -64.5339,18.4136 -64.5171,18.4008 -64.5003,18.3998 -64.4849,18.414 -64.4881,18.42 -64.4843,18.4246 -64.4759,18.425 -64.4789,18.4366 -64.4859,18.4426 -64.5169,18.436 -64.5449,18.4344 -64.5647,18.4376 -64.5807,18.4272 -64.5853,18.4162 -64.5803,18.4104 -64.5945,18.4016 -64.6051,18.3874 -64.6203,18.3858 -64.6325,18.3806 -64.6353,18.3776 11,-4.0,British Virgin Islands -64.7006,18.4269 -64.6857,18.4268 -64.6638,18.4208 -64.6503,18.423 -64.6417,18.4276 -64.6529,18.4408 -64.6727,18.4457 -64.6782,18.4452 -64.6877,18.4346 -64.7028,18.4317 -64.7006,18.4269 18,-4.0,British Virgin Islands -64.3679,18.4141 -64.3479,18.4179 -64.3498,18.4384 -64.3123,18.4557 -64.3105,18.47 -64.2892,18.4696 -64.2609,18.4795 -64.2425,18.4913 -64.2449,18.4955 -64.2753,18.4881 -64.3003,18.4803 -64.3185,18.4911 -64.3395,18.4925 -64.3377,18.4601 -64.3443,18.4532 -64.3603,18.4481 -64.3637,18.4431 -64.3679,18.4141 48,10.5,LORD HOWE ISLAND 158.8957,-31.4683 158.8957,-31.47 158.8958,-31.4713 158.8994,-31.4712 158.9015,-31.4719 158.9029,-31.4695 158.9085,-31.4732 158.9125,-31.4705 158.9158,-31.4735 158.9169,-31.4767 158.9199,-31.4778 158.9343,-31.4941 158.9339,-31.4978 158.9318,-31.5151 158.9289,-31.5278 158.924,-31.5323 158.9209,-31.5391 158.922,-31.5448 158.9286,-31.5473 158.9374,-31.5417 158.9494,-31.5251 158.9528,-31.5243 158.9551,-31.5221 158.9612,-31.5162 158.9598,-31.5128 158.9585,-31.5096 158.9546,-31.5073 158.9483,-31.4974 158.9428,-31.4967 158.9379,-31.4936 158.9331,-31.4815 158.9327,-31.4804 158.92,-31.4679 158.9213,-31.4626 158.9199,-31.4607 158.9187,-31.4618 158.9179,-31.4625 158.9164,-31.4618 158.9156,-31.4632 158.9121,-31.4633 158.9106,-31.4634 158.9091,-31.463 158.9056,-31.464 158.903,-31.4641 158.8995,-31.4651 158.8976,-31.4673 158.8957,-31.4683 158.8957,-31.4683 39,11.5,NORFOLK ISLAND 167.919,-28.9953 167.9164,-28.9988 167.9252,-29.0 167.9275,-29.0 167.9274,-29.003 167.9214,-29.0209 167.9214,-29.032 167.9236,-29.0397 167.9197,-29.0432 167.9305,-29.0433 167.936,-29.0455 167.937,-29.0491 167.9421,-29.0497 167.945,-29.046 167.9468,-29.0456 167.9489,-29.0451 167.9506,-29.0448 167.9688,-29.0527 167.9748,-29.0491 167.985,-29.0489 167.9884,-29.0457 167.9881,-29.0449 167.9859,-29.0402 167.9867,-29.0365 167.9923,-29.0355 167.9999,-29.0254 168.0,-29.0253 167.996,-29.0174 167.9937,-29.0128 167.9897,-29.0094 167.9713,-29.0084 167.9655,-29.0004 167.9639,-28.9998 167.9511,-28.9943 167.9327,-28.9924 167.9325,-28.9923 167.9243,-28.9934 167.919,-28.9953 167.919,-28.9953 21,11.5,PHILIP ISLAND 167.9499,-29.1095 167.9483,-29.1116 167.9499,-29.1124 167.9519,-29.1134 167.9521,-29.1144 167.953,-29.1193 167.9538,-29.1192 167.9561,-29.1188 167.9582,-29.1156 167.9599,-29.113 167.9618,-29.11 167.9662,-29.1108 167.9687,-29.1099 167.9665,-29.1071 167.966,-29.1065 167.9587,-29.1043 167.9523,-29.1067 167.9521,-29.1067 167.9516,-29.1073 167.9499,-29.1095 167.9499,-29.1095 9,11.5,NEPEAN ISLAND 167.9624,-29.0624 167.9619,-29.0636 167.9622,-29.0639 167.9635,-29.0654 167.9658,-29.0644 167.9663,-29.0633 167.9667,-29.0621 167.9624,-29.0624 167.9624,-29.0624 912,9.5,Australia 128.846,-31.6546 128.8471,-31.6544 128.8619,-31.6517 128.8926,-31.647 129.0642,-31.6226 129.3074,-31.6028 129.5324,-31.5862 129.6697,-31.5789 129.7164,-31.5676 129.767,-31.5577 129.9797,-31.5436 130.0671,-31.541 130.0939,-31.5405 130.4748,-31.5682 130.5331,-31.5733 130.5622,-31.5753 130.594,-31.5764 130.6237,-31.5745 130.6741,-31.5693 130.8422,-31.5135 130.871,-31.498 130.8993,-31.473 130.92,-31.4559 130.945,-31.4419 130.9781,-31.4386 131.0038,-31.4429 131.1063,-31.4762 131.1943,-31.5077 131.2984,-31.5504 131.3218,-31.56 131.4957,-31.6349 131.598,-31.6865 131.6444,-31.712 131.8553,-31.8462 131.9658,-31.935 131.9829,-31.954 132.001,-31.973 132.0243,-31.9908 132.0931,-32.0054 132.1557,-32.0018 132.2423,-31.9757 132.2834,-31.934 132.3167,-31.9164 132.3462,-31.9089 132.377,-31.9028 132.4121,-31.9 132.5918,-31.915 132.6129,-31.9201 132.6603,-31.942 132.6868,-31.9702 132.8009,-32.0556 132.8533,-32.0651 132.8928,-32.0839 132.9118,-32.1019 132.963,-32.1483 132.9938,-32.1544 133.0529,-32.1613 133.2439,-32.1771 133.3118,-32.1735 133.393,-32.1294 133.4076,-32.0786 133.4323,-32.0621 133.5,-32.0795 133.4893,-32.1164 133.5211,-32.1447 133.5517,-32.1642 133.5827,-32.1777 133.6525,-32.2144 133.6995,-32.2628 133.7278,-32.2929 133.7766,-32.3616 133.76,-32.3853 133.7287,-32.379 133.7095,-32.3682 133.6804,-32.424 133.6791,-32.5051 133.7166,-32.5117 133.7816,-32.4594 133.9399,-32.417 133.9687,-32.4211 134.0098,-32.4502 134.0312,-32.4672 134.0486,-32.4858 134.1018,-32.5519 134.1227,-32.6409 134.1019,-32.6919 134.0499,-32.747 134.0339,-32.7708 134.0195,-32.7201 133.9804,-32.689 133.9004,-32.6839 133.9552,-32.8057 134.0212,-32.9173 134.0947,-33.0828 134.0943,-33.1084 134.1552,-33.1653 134.2131,-33.145 134.234,-33.1273 134.4187,-33.1026 134.5145,-33.1299 134.5324,-33.14 134.6334,-33.3152 134.6528,-33.357 134.6829,-33.4343 134.6883,-33.4585 134.6934,-33.5036 134.6877,-33.5303 134.6731,-33.558 134.6657,-33.6 134.7556,-33.6645 134.8064,-33.6963 134.8585,-33.7306 134.8823,-33.7524 135.0184,-33.8812 135.0854,-33.9681 135.0973,-34.0819 135.1343,-34.1556 135.1737,-34.2504 135.2176,-34.4566 135.2012,-34.4872 135.2069,-34.5134 135.2192,-34.5445 135.2657,-34.5657 135.3204,-34.578 135.2211,-34.6051 135.169,-34.5754 135.0381,-34.4592 135.0352,-34.4332 135.0333,-34.3971 134.9766,-34.4649 134.9374,-34.5557 134.9721,-34.549 135.0407,-34.5261 135.0729,-34.5344 135.1509,-34.5857 135.2992,-34.7121 135.4067,-34.8268 135.4304,-34.8537 135.4438,-34.8815 135.4679,-34.9135 135.4894,-34.9187 135.5041,-34.9143 135.5254,-34.871 135.5301,-34.8488 135.5482,-34.8284 135.5794,-34.8188 135.6107,-34.8211 135.6391,-34.8309 135.6707,-34.8511 135.7542,-34.9273 135.7804,-34.9689 135.8286,-34.9526 135.8436,-34.756 135.8305,-34.7037 135.7777,-34.728 135.726,-34.7679 135.6967,-34.7807 135.6532,-34.7855 135.6279,-34.7762 135.6987,-34.5994 135.7608,-34.4979 135.7909,-34.4769 135.8639,-34.4449 135.9494,-34.3236 135.9721,-34.3079 136.0083,-34.2993 136.0301,-34.2934 136.0646,-34.2586 136.0802,-34.2387 136.1293,-34.1605 136.1415,-34.1518 136.1746,-34.0837 136.1798,-34.052 136.2365,-34.0027 136.4029,-33.8936 136.4839,-33.8524 136.6863,-33.7688 136.725,-33.7352 136.7067,-33.7244 136.7719,-33.643 136.8006,-33.6506 136.8423,-33.6792 136.9641,-33.6759 136.9874,-33.6655 137.0319,-33.6282 137.0486,-33.6053 137.101,-33.5242 137.1829,-33.3919 137.2009,-33.3459 137.197,-33.3142 137.2002,-33.2832 137.2069,-33.2626 137.2646,-33.1571 137.3097,-33.0903 137.4168,-32.9924 137.5438,-32.9583 137.5958,-32.9558 137.6287,-32.8108 137.6222,-32.704 137.613,-32.6855 137.5993,-32.6699 137.5763,-32.6591 137.5753,-32.5394 137.5761,-32.5145 137.5841,-32.4958 137.6372,-32.5302 137.6509,-32.5946 137.6649,-32.6514 137.7174,-32.7503 137.775,-32.9721 137.7984,-32.9845 137.8296,-32.9916 137.8602,-33.0407 137.8675,-33.092 137.8401,-33.1107 137.7759,-33.112 137.7229,-33.13 137.6658,-33.1647 137.6491,-33.1857 137.6354,-33.2404 137.6684,-33.2854 137.7369,-33.4036 137.7627,-33.4726 137.7695,-33.5217 137.753,-33.5573 137.7318,-33.5603 137.711,-33.5674 137.599,-33.6594 137.4536,-33.8109 137.4245,-33.8457 137.4166,-33.9178 137.377,-34.0268 137.3653,-34.0573 137.3366,-34.1048 137.3251,-34.1123 137.2878,-34.1051 137.2734,-34.1221 137.2912,-34.1541 137.3089,-34.204 137.3149,-34.2477 137.3028,-34.4328 137.3204,-34.6198 137.2762,-34.8575 137.2689,-34.8776 137.256,-34.8997 137.2284,-34.9175 137.2069,-34.9214 137.1209,-34.8897 137.1038,-34.8673 137.0155,-34.8716 136.9577,-34.8889 136.93,-34.8901 136.902,-34.8833 136.8748,-34.87 136.8467,-34.8629 136.7997,-34.9195 136.7796,-35.0202 136.7833,-35.0603 136.7596,-35.1078 136.7172,-35.1501 136.6911,-35.1626 136.6545,-35.212 136.6824,-35.2514 136.7151,-35.2644 136.7725,-35.247 136.7897,-35.2295 136.83,-35.2007 136.8502,-35.1909 136.8763,-35.1883 136.8994,-35.1922 136.9368,-35.2051 136.9598,-35.2089 136.9891,-35.2083 137.0135,-35.1955 137.0278,-35.1747 137.0392,-35.1514 137.0561,-35.1386 137.2433,-35.0806 137.2819,-35.0745 137.3541,-35.0894 137.3888,-35.0978 137.4179,-35.1101 137.4528,-35.1328 137.4963,-35.142 137.57,-35.0932 137.5754,-35.0546 137.571,-35.0101 137.6313,-34.8345 137.6485,-34.8001 137.6968,-34.6722 137.7081,-34.6185 137.7084,-34.5614 137.7103,-34.4864 137.7458,-34.3865 137.7617,-34.3684 137.7939,-34.3475 137.8112,-34.3342 137.8401,-34.3055 137.8547,-34.2632 137.8405,-34.2461 137.8278,-34.2187 137.8891,-34.1012 137.9132,-34.0964 137.9726,-34.1685 138.0404,-34.2764 138.0564,-34.3183 138.0633,-34.3444 138.0862,-34.42 138.0956,-34.4412 138.1107,-34.4618 138.2237,-34.575 138.2406,-34.5885 138.256,-34.6034 138.3167,-34.6899 138.3251,-34.7341 138.3018,-34.8235 138.3072,-34.8546 138.3189,-34.895 138.3325,-34.9655 138.3348,-34.9854 138.3299,-35.0061 138.3125,-35.0309 138.2965,-35.0497 138.286,-35.0735 138.2759,-35.1373 138.2882,-35.1719 138.2594,-35.3041 138.1063,-35.4392 138.0793,-35.4543 138.0371,-35.4732 138.0151,-35.4811 137.974,-35.493 137.9494,-35.5137 137.9142,-35.5792 137.9583,-35.6127 137.9707,-35.6208 137.9958,-35.6295 138.0228,-35.6311 138.3566,-35.6134 138.4114,-35.5825 138.4306,-35.5634 138.4472,-35.5411 138.4707,-35.5228 138.5418,-35.4986 138.5974,-35.4957 138.6281,-35.4984 138.6556,-35.5053 138.7205,-35.5146 138.7853,-35.5203 138.8109,-35.5173 138.8556,-35.4698 138.8368,-35.4504 138.8073,-35.4449 138.7793,-35.4355 138.7697,-35.4091 138.7754,-35.3878 138.7898,-35.3686 138.8099,-35.3578 138.8407,-35.3509 138.8783,-35.3527 138.8992,-35.3527 138.9544,-35.339 139.0091,-35.2928 139.0323,-35.2768 139.0567,-35.2823 139.1762,-35.3347 139.1926,-35.4304 139.1808,-35.5639 139.1551,-35.6511 139.0611,-35.6596 139.0456,-35.6423 139.0574,-35.5569 139.0545,-35.517 138.9792,-35.4638 138.9533,-35.4652 138.9174,-35.4841 138.9191,-35.5725 138.9426,-35.5977 138.9736,-35.6169 139.0056,-35.6365 139.1148,-35.7326 139.2667,-35.8436 139.3072,-35.8789 139.3576,-35.9271 139.3852,-35.9549 139.407,-35.9804 139.4227,-36.0009 139.4678,-36.1063 139.4816,-36.1464 139.4784,-36.1756 139.4613,-36.1443 139.4306,-36.0852 139.4025,-36.0479 139.2949,-35.9193 139.2227,-35.8466 139.1622,-35.7992 138.9507,-35.6522 138.9292,-35.641 138.9021,-35.6395 139.0087,-35.7102 139.1086,-35.7979 139.1437,-35.8275 139.1907,-35.87 139.2259,-35.9031 139.2416,-35.9186 139.3128,-35.995 139.3274,-36.0154 139.4664,-36.169 139.4915,-36.2138 139.6408,-36.5132 139.6442,-36.5367 139.6716,-36.5935 139.678,-36.6194 139.6823,-36.6906 139.6823,-36.7206 139.6787,-36.7532 139.6716,-36.7847 139.6627,-36.8023 139.6398,-36.8331 139.6101,-36.8577 139.5688,-36.88 139.5505,-36.9725 139.597,-37.0659 139.5998,-37.1062 139.5805,-37.1262 139.5679,-37.1579 139.6143,-37.2314 139.6306,-37.2576 139.6575,-37.2892 139.8094,-37.45 139.8411,-37.4474 139.8654,-37.4483 139.8961,-37.4622 139.9369,-37.4884 140.0533,-37.6294 140.1499,-37.7768 140.1706,-37.8191 140.3439,-37.9573 140.4001,-37.9893 140.4855,-38.0245 140.5121,-38.029 140.5853,-38.0311 140.6359,-38.0146 140.6642,-38.0118 140.7529,-38.0165 140.7814,-38.0214 140.8152,-38.0311 140.8184,-38.0323 140.8108,-35.2389 140.8069,-34.0814 140.8073,-34.0092 140.8045,-33.9915 140.8067,-33.9858 140.8101,-33.9596 140.8188,-33.9707 140.8281,-33.9899 140.8327,-33.9917 140.8501,-33.9809 140.85,-33.8767 140.85,-32.5311 140.8535,-25.9526 137.8488,-25.9518 137.8462,-16.5465 137.8347,-16.5361 137.806,-16.5085 137.7683,-16.475 137.7214,-16.4381 137.6936,-16.4196 137.6511,-16.3555 137.6266,-16.3091 137.6087,-16.2823 137.5726,-16.2332 137.4817,-16.1899 137.4206,-16.1695 137.379,-16.1564 137.3479,-16.1572 137.3239,-16.1582 137.2698,-16.1381 137.2048,-16.1092 137.175,-16.0892 137.1377,-16.0621 137.1171,-16.0438 136.9727,-15.9504 136.867,-15.8969 136.7571,-15.8885 136.6974,-15.8942 136.6027,-15.8865 136.5544,-15.8451 136.5081,-15.7824 136.4356,-15.7214 136.4058,-15.7007 136.2948,-15.6404 136.1788,-15.5944 136.1577,-15.5852 136.1175,-15.5497 136.103,-15.5228 136.0906,-15.4577 136.079,-15.4009 136.0501,-15.377 135.8951,-15.2984 135.783,-15.242 135.7754,-15.2365 135.7541,-15.2096 135.7211,-15.1798 135.6906,-15.1605 135.5097,-15.0473 135.4481,-15.0278 135.4276,-15.0221 135.3822,-15.0023 135.316,-14.9478 135.2912,-14.9159 135.2742,-14.8856 135.2525,-14.8341 135.246,-14.8134 135.2137,-14.7121 135.2541,-14.7128 135.3469,-14.6527 135.3792,-14.63 135.3724,-14.6028 135.3818,-14.557 135.3927,-14.5327 135.4027,-14.5144 135.4631,-14.4211 135.5951,-14.255 135.6161,-14.2336 135.6461,-14.2147 135.7116,-14.1784 135.7394,-14.1267 135.7511,-14.0515 135.7679,-13.946 135.8322,-13.8508 135.864,-13.7467 135.8699,-13.6722 135.8522,-13.7002 135.8267,-13.7202 135.8041,-13.731 135.7713,-13.7335 135.7329,-13.7131 135.6904,-13.5883 135.6889,-13.5656 135.7091,-13.4764 135.7534,-13.4405 135.78,-13.3816 135.7397,-13.3509 135.7367,-13.3234 135.7726,-13.2628 135.8389,-13.2098 135.9426,-13.1698 135.9909,-13.1884 136.005,-13.227 136.0457,-13.224 136.0891,-13.1904 136.1314,-13.1515 136.1545,-13.0857 136.1712,-13.0465 136.2023,-13.0388 136.2176,-13.0543 136.2165,-13.1594 136.213,-13.2321 136.2536,-13.2244 136.294,-13.2054 136.3028,-13.2375 136.3215,-13.1974 136.3737,-13.1352 136.3908,-13.0402 136.3919,-12.9432 136.3305,-12.8312 136.3408,-12.7648 136.4669,-12.8109 136.4898,-12.6896 136.592,-12.5298 136.6506,-12.4632 136.8042,-12.3676 136.825,-12.3441 136.7782,-12.2697 136.7236,-12.209 136.623,-12.1579 136.5414,-12.1776 136.5359,-12.1971 136.5702,-12.2019 136.6014,-12.2205 136.6045,-12.2422 136.5659,-12.2693 136.5204,-12.2704 136.4633,-12.1927 136.4494,-12.1694 136.3874,-11.9959 136.4103,-11.9207 136.2993,-11.9404 136.1297,-12.0519 136.0259,-12.153 136.03,-12.1778 136.0908,-12.2031 136.1384,-12.1996 136.1605,-12.1925 136.1852,-12.1917 136.2115,-12.226 136.1966,-12.277 136.1413,-12.4003 136.0877,-12.4409 136.0185,-12.4471 136.0044,-12.4234 135.9286,-12.4316 135.8967,-12.446 135.8873,-12.4577 135.8819,-12.4557 135.8582,-12.4307 135.8311,-12.3638 135.9114,-12.25 135.8939,-12.2201 135.8639,-12.2321 135.847,-12.2501 135.82,-12.2539 135.7864,-12.2032 135.8716,-12.0981 135.7319,-12.138 135.6498,-12.2043 135.6348,-12.2447 135.5839,-12.2668 135.5371,-12.2235 135.5231,-12.2009 135.5176,-12.1768 135.5221,-12.1458 135.6373,-12.0299 135.5951,-11.981 135.7048,-11.8811 135.7653,-11.8392 135.7957,-11.7909 135.7846,-11.7716 135.7621,-11.7521 135.7255,-11.7513 135.7316,-11.7813 135.7298,-11.8215 135.6873,-11.8591 135.6026,-11.9215 135.5824,-11.9274 135.5574,-11.9225 135.5349,-11.9199 135.4424,-11.944 135.4214,-12.0193 135.4316,-12.0442 135.4614,-12.0259 135.4883,-12.0111 135.5119,-12.0235 135.4352,-12.0847 135.2868,-12.1016 135.2687,-12.0882 135.2287,-12.0765 135.1776,-12.0981 135.1159,-12.1582 135.091,-12.21 135.0751,-12.2615 135.0801,-12.2804 135.0413,-12.2629 134.9331,-12.2528 134.8466,-12.1824 134.7564,-12.1276 134.7202,-12.118 134.6512,-12.0296 134.6214,-11.9823 134.5229,-11.9877 134.4489,-12.0425 134.3664,-12.053 134.3449,-12.0537 134.2714,-12.0449 134.2451,-12.0365 134.2203,-12.024 134.0571,-12.0479 134.0385,-12.0323 134.0247,-11.9521 134.0364,-11.9328 133.9014,-11.8308 133.8785,-11.8345 133.8663,-11.8507 133.8493,-11.873 133.7939,-11.8987 133.7224,-11.8694 133.6909,-11.8407 133.6863,-11.8162 133.7017,-11.7928 133.771,-11.7539 133.7598,-11.7229 133.684,-11.7043 133.6513,-11.705 133.6353,-11.7354 133.614,-11.7544 133.5171,-11.806 133.4684,-11.8211 133.4007,-11.8192 133.2591,-11.7606 133.209,-11.6883 133.1596,-11.6862 133.1038,-11.7238 133.0906,-11.7216 133.0566,-11.7115 133.0354,-11.7034 133.0142,-11.6904 132.9987,-11.6746 132.9519,-11.5978 132.926,-11.5466 132.905,-11.4895 132.8498,-11.4069 132.7957,-11.3491 132.7715,-11.3242 132.728,-11.3203 132.6876,-11.3874 132.6257,-11.4709 132.5795,-11.5065 132.5252,-11.4952 132.503,-11.4771 132.3674,-11.2955 132.3573,-11.2517 132.3125,-11.2051 132.1948,-11.1174 132.1304,-11.1511 132.0355,-11.1193 132.0011,-11.1273 132.0247,-11.1788 132.0469,-11.2096 132.0897,-11.3425 132.0589,-11.3969 132.0201,-11.3935 131.9446,-11.2171 131.8599,-11.1232 131.8389,-11.1149 131.7289,-11.1647 131.6274,-11.2824 131.619,-11.2937 131.6255,-11.3046 131.6518,-11.3088 131.685,-11.3004 131.7198,-11.2963 131.7572,-11.3097 131.825,-11.3513 131.8444,-11.4168 131.9164,-11.4974 131.9409,-11.5118 131.9596,-11.5132 132.0162,-11.479 132.0836,-11.4482 132.2265,-11.4249 132.25,-11.428 132.3019,-11.4385 132.3436,-11.464 132.3935,-11.5344 132.5111,-11.6224 132.5445,-11.6451 132.4992,-11.7151 132.4879,-11.7317 132.4776,-11.7954 132.4801,-12.0191 132.4906,-12.0647 132.5619,-12.1168 132.6011,-12.1218 132.5683,-12.1321 132.535,-12.1269 132.4535,-12.1037 132.4303,-12.0893 132.2965,-12.1365 132.2767,-12.1716 132.2796,-12.2145 132.2863,-12.2395 132.2969,-12.288 132.2895,-12.3115 132.2583,-12.3459 132.2355,-12.366 132.236,-12.3448 132.2482,-12.3197 132.2694,-12.2931 132.2362,-12.2176 132.2132,-12.1883 132.0759,-12.1861 131.9149,-12.2952 131.8278,-12.2726 131.784,-12.2542 131.6274,-12.2608 131.5892,-12.2684 131.5283,-12.2745 131.3457,-12.2834 131.3132,-12.2811 131.2897,-12.2751 131.2676,-12.2641 131.2241,-12.234 131.1974,-12.2098 131.067,-12.2037 131.0263,-12.1794 130.9679,-12.1399 130.8781,-12.1359 130.8523,-12.173 130.8569,-12.1938 130.8799,-12.2269 130.8895,-12.3127 130.8803,-12.3441 130.8329,-12.3412 130.7795,-12.3342 130.7393,-12.3402 130.701,-12.3591 130.6793,-12.3925 130.6691,-12.4306 130.701,-12.4482 130.8073,-12.5222 130.7495,-12.5932 130.7495,-12.6261 130.6238,-12.4156 130.5098,-12.3751 130.4822,-12.3712 130.448,-12.3757 130.4333,-12.3907 130.4631,-12.4131 130.456,-12.4927 130.4446,-12.5206 130.4289,-12.5566 130.4402,-12.6154 130.4572,-12.6623 130.4974,-12.6667 130.5417,-12.6867 130.4804,-12.6963 130.4539,-12.693 130.4078,-12.6488 130.3626,-12.59 130.2077,-12.6584 130.1974,-12.6916 130.2073,-12.7252 130.2059,-12.8242 130.1938,-12.8615 130.1807,-12.8795 130.1478,-12.9053 130.1161,-12.924 130.0788,-12.9319 130.049,-12.9185 130.0352,-12.8931 129.9937,-12.9114 129.9776,-12.9557 129.9682,-13.052 129.9684,-13.1327 129.9764,-13.1543 130.0102,-13.1613 130.0442,-13.1889 130.1068,-13.273 130.1164,-13.3103 130.0156,-13.414 129.9665,-13.4473 129.8928,-13.4946 129.8445,-13.5108 129.8155,-13.5156 129.7957,-13.5121 129.761,-13.4927 129.7517,-13.4298 129.6807,-13.5015 129.64,-13.6526 129.6335,-13.6829 129.6384,-13.7284 129.5969,-13.9482 129.5829,-13.979 129.564,-13.9974 129.5465,-14.0073 129.4311,-14.0701 129.3425,-14.126 129.2803,-14.2063 129.2198,-14.3172 129.2077,-14.3975 129.3039,-14.4866 129.3884,-14.5337 129.4387,-14.5517 129.508,-14.5558 129.5605,-14.5423 129.6209,-14.5191 129.6169,-14.5408 129.5514,-14.5853 129.5183,-14.5925 129.4956,-14.5925 129.4721,-14.594 129.4345,-14.6115 129.4514,-14.6578 129.5229,-14.7495 129.566,-14.78 129.613,-14.8061 129.6525,-14.7982 129.7916,-14.7512 129.776,-14.7733 129.7117,-14.8261 129.6486,-14.8472 129.5443,-14.8369 129.4946,-14.8211 129.4909,-14.8559 129.4833,-14.8881 129.4609,-14.9299 129.4728,-15.0047 129.5097,-15.0785 129.5421,-15.1138 129.5782,-15.1651 129.5229,-15.1859 129.5149,-15.1374 129.4777,-15.0903 129.3338,-14.9322 129.3092,-14.9138 129.1801,-14.8502 129.0772,-14.8225 129.0659,-14.8446 129.0847,-14.9844 129.1032,-15.0869 129.0379,-15.1655 129.0214,-15.1452 129.0325,-14.9631 128.9372,-14.8824 128.9115,-14.8705 128.8477,-14.8544 128.8471,-14.8542 128.8471,-14.8649 128.846,-25.9493 128.8398,-31.6558 128.846,-31.6546 1011,10.0,Australia 137.8462,-16.5465 137.9007,-16.5959 137.953,-16.6357 137.9815,-16.6571 138.029,-16.6883 138.1246,-16.7234 138.2688,-16.7598 138.3004,-16.7663 138.3206,-16.7687 138.3478,-16.7693 138.4233,-16.7645 138.4731,-16.7603 138.4924,-16.7691 138.5207,-16.7938 138.6763,-16.8566 138.7007,-16.8615 138.74,-16.8659 138.7669,-16.8662 138.8203,-16.8713 138.8435,-16.8802 138.8639,-16.8956 138.974,-17.0547 138.9755,-17.1043 138.9783,-17.128 138.983,-17.1493 138.995,-17.1834 139.0452,-17.2774 139.0763,-17.3094 139.0927,-17.3228 139.1156,-17.3346 139.1688,-17.3481 139.2058,-17.352 139.244,-17.3517 139.2692,-17.3594 139.3672,-17.4221 139.4201,-17.4695 139.4478,-17.5009 139.473,-17.5148 139.4965,-17.522 139.5239,-17.5299 139.5778,-17.5439 139.6114,-17.5512 139.6452,-17.5554 139.7139,-17.5944 139.7829,-17.6461 139.8103,-17.6772 139.8495,-17.6926 139.8894,-17.6985 139.963,-17.699 140.205,-17.6596 140.2271,-17.6534 140.3252,-17.621 140.3646,-17.6047 140.4503,-17.5603 140.4679,-17.547 140.4913,-17.5286 140.588,-17.458 140.6161,-17.4436 140.6409,-17.4386 140.6635,-17.4323 140.6897,-17.3914 140.7075,-17.3588 140.7159,-17.3401 140.7725,-17.1316 140.7828,-17.0778 140.7853,-17.0401 140.7781,-17.004 140.7871,-16.982 140.8028,-16.9621 140.8814,-16.8649 141.0091,-16.706 141.025,-16.6849 141.0447,-16.6488 141.0994,-16.5244 141.1165,-16.4848 141.1287,-16.43 141.146,-16.339 141.1577,-16.3136 141.1809,-16.238 141.2441,-16.0889 141.2575,-16.056 141.2315,-15.8878 141.2542,-15.7243 141.2629,-15.6616 141.2674,-15.6374 141.2921,-15.5186 141.3034,-15.4867 141.4035,-15.2614 141.4668,-15.1321 141.4978,-15.0094 141.4911,-14.9764 141.465,-14.921 141.4509,-14.8973 141.4398,-14.8777 141.4284,-14.8448 141.4001,-14.747 141.3555,-14.4649 141.3569,-14.4329 141.3713,-14.3821 141.3804,-14.3575 141.4013,-14.3069 141.422,-14.2634 141.4286,-14.2393 141.435,-14.1763 141.436,-14.1278 141.4292,-14.0883 141.4146,-14.0496 141.3882,-14.0165 141.3593,-13.9936 141.3386,-13.9696 141.3142,-13.9327 141.3065,-13.9099 141.3027,-13.8813 141.303,-13.8527 141.3062,-13.8123 141.3111,-13.7815 141.3174,-13.7516 141.3354,-13.6644 141.3426,-13.6346 141.3559,-13.5888 141.3802,-13.5175 141.3994,-13.4768 141.4511,-13.3995 141.5221,-13.2659 141.5277,-13.239 141.5258,-13.218 141.5166,-13.195 141.4901,-13.1783 141.4703,-13.1446 141.4258,-12.9716 141.4337,-12.9429 141.4467,-12.92 141.4821,-12.8963 141.5488,-12.8563 141.5633,-12.8406 141.588,-12.81 141.6072,-12.7786 141.6313,-12.7051 141.6374,-12.6767 141.6632,-12.6772 141.6973,-12.6949 141.7296,-12.7491 141.7331,-12.7821 141.7312,-12.807 141.7301,-12.829 141.7717,-12.8926 141.7802,-12.8503 141.7243,-12.6898 141.68,-12.658 141.6099,-12.5556 141.5689,-12.4986 141.5589,-12.479 141.5888,-12.4555 141.5691,-12.4413 141.5036,-12.4368 141.4949,-12.4957 141.5025,-12.5179 141.5263,-12.5375 141.4681,-12.5552 141.4336,-12.5402 141.4355,-12.5174 141.4481,-12.4949 141.4631,-12.4682 141.5016,-12.3873 141.5105,-12.368 141.53,-12.3179 141.5948,-12.2326 141.6178,-12.1998 141.602,-12.1649 141.6475,-12.0381 141.6623,-12.0144 141.6912,-11.9748 141.7348,-11.9553 141.7333,-11.9807 141.7587,-12.0752 141.8655,-12.054 141.8737,-12.0299 141.8207,-11.9678 141.7928,-11.952 141.7887,-11.9108 141.8,-11.8374 141.8112,-11.7951 141.8987,-11.5371 141.9247,-11.4725 141.9433,-11.4339 141.966,-11.3599 141.9722,-11.3239 142.0024,-11.1366 142.0023,-11.1113 142.0003,-11.0799 141.9965,-11.0385 141.9912,-11.012 141.9817,-10.9611 141.9912,-10.9368 142.0283,-10.9106 142.0552,-10.9108 142.1479,-10.8952 142.1864,-10.8831 142.243,-10.8096 142.2555,-10.7835 142.2607,-10.7565 142.2675,-10.7286 142.2882,-10.6975 142.3623,-10.6945 142.4003,-10.7095 142.4564,-10.7386 142.4256,-10.7863 142.3597,-10.8458 142.3527,-10.9378 142.3741,-10.9232 142.3974,-10.878 142.4159,-10.8577 142.4522,-10.8601 142.5676,-10.9503 142.5879,-10.9742 142.6312,-11.0678 142.6469,-11.1547 142.7031,-11.3488 142.708,-11.3783 142.6823,-11.498 142.698,-11.6099 142.7091,-11.7025 142.7078,-11.7288 142.702,-11.7647 142.7014,-11.8198 142.7195,-11.845 142.8097,-11.914 142.8292,-11.9221 142.8554,-11.923 142.8786,-11.9193 142.9016,-11.9051 142.9236,-11.893 142.9444,-11.89 142.9724,-11.9013 143.04,-11.9737 143.0018,-12.0323 142.9879,-12.0536 142.9428,-12.1266 142.922,-12.2112 142.9152,-12.2783 142.9176,-12.3203 142.969,-12.3351 143.0002,-12.3266 143.0515,-12.3502 143.0623,-12.3629 143.0884,-12.3691 143.1153,-12.399 143.1163,-12.445 143.1113,-12.4755 143.1185,-12.5034 143.163,-12.5487 143.2008,-12.5519 143.2523,-12.579 143.2689,-12.6026 143.2499,-12.6633 143.2301,-12.6992 143.2138,-12.7284 143.2051,-12.7658 143.1987,-12.8134 143.2005,-12.8343 143.2441,-12.8558 143.3135,-12.8482 143.3425,-12.8447 143.3523,-12.8644 143.3477,-12.9868 143.3433,-13.0297 143.3382,-13.0582 143.3357,-13.0839 143.3537,-13.2543 143.3583,-13.2892 143.3651,-13.3255 143.3812,-13.3492 143.4049,-13.3622 143.4311,-13.4169 143.4226,-13.5109 143.4137,-13.546 143.389,-13.626 143.3662,-13.7406 143.3806,-13.7867 143.436,-13.9202 143.4503,-13.94 143.4743,-13.9643 143.5035,-13.9869 143.5197,-14.0073 143.5276,-14.054 143.537,-14.1265 143.5319,-14.1693 143.5451,-14.2233 143.5697,-14.3031 143.6056,-14.3788 143.6144,-14.3969 143.63,-14.416 143.6482,-14.4332 143.6923,-14.4619 143.7195,-14.4707 143.7661,-14.4756 143.7953,-14.477 143.8437,-14.4713 143.9242,-14.421 143.9857,-14.3639 144.174,-14.2852 144.2214,-14.2642 144.2674,-14.2378 144.2816,-14.2205 144.2948,-14.1953 144.3034,-14.1729 144.3087,-14.1469 144.3483,-14.1557 144.3913,-14.2138 144.4106,-14.247 144.3994,-14.2876 144.3985,-14.3422 144.4456,-14.4683 144.5075,-14.5409 144.6141,-14.5817 144.6583,-14.5973 144.6801,-14.6 144.7268,-14.6015 144.7622,-14.673 144.7697,-14.7169 144.7889,-14.7371 144.8249,-14.7518 144.905,-14.7865 145.0353,-14.8457 145.1439,-14.9287 145.1375,-14.9873 145.1128,-15.0178 145.0991,-15.0395 145.0828,-15.0658 145.0709,-15.088 145.0622,-15.1174 145.0619,-15.1427 145.0655,-15.1759 145.1044,-15.2395 145.1128,-15.2871 145.1167,-15.3138 145.076,-15.4289 145.1051,-15.4718 145.1318,-15.5373 145.1861,-15.7163 145.1884,-15.7445 145.1837,-15.801 145.1793,-15.8679 145.1857,-15.8975 145.2028,-15.9133 145.2216,-15.9262 145.2363,-15.9465 145.2758,-16.0197 145.2884,-16.0649 145.2721,-16.2691 145.2448,-16.3019 145.2348,-16.3196 145.2278,-16.4225 145.2371,-16.4516 145.2899,-16.4837 145.335,-16.5425 145.4415,-16.6799 145.4931,-16.7182 145.5531,-16.7973 145.598,-16.866 145.6307,-16.8941 145.6633,-16.8672 145.7562,-16.8519 145.7799,-16.8801 145.7356,-16.9524 145.7204,-16.9787 145.7025,-17.0212 145.7072,-17.0523 145.7782,-17.1692 145.856,-17.3447 145.9092,-17.5331 145.9279,-17.6717 145.9095,-17.7673 145.9241,-17.8696 145.9172,-17.9354 145.9024,-17.9663 145.8865,-17.985 145.8605,-18.0305 145.8248,-18.1219 145.8247,-18.1554 145.8326,-18.2176 145.8467,-18.2481 146.0346,-18.4707 146.051,-18.484 146.08,-18.4902 146.116,-18.4937 146.1562,-18.5145 146.16,-18.5459 146.155,-18.5965 146.1488,-18.6263 146.1272,-18.6601 146.1135,-18.6894 146.1037,-18.726 146.0909,-18.8324 146.1001,-18.8656 146.1582,-18.939 146.202,-18.9765 146.2461,-19.0039 146.2703,-19.0496 146.3874,-19.1218 146.4566,-19.1538 146.4763,-19.1624 146.5213,-19.1718 146.5597,-19.1597 146.5856,-19.165 146.6367,-19.2212 146.7077,-19.281 146.7753,-19.284 146.8936,-19.321 146.9391,-19.3682 146.9609,-19.3807 147.0744,-19.4037 147.2528,-19.3905 147.2675,-19.3609 147.2594,-19.3415 147.243,-19.3201 147.2225,-19.2862 147.2484,-19.303 147.28,-19.3483 147.3762,-19.5134 147.3865,-19.5538 147.3968,-19.5992 147.4087,-19.6541 147.4158,-19.705 147.4395,-19.7508 147.4904,-19.8024 147.5449,-19.8147 147.5905,-19.8038 147.5829,-19.7814 147.5747,-19.7228 147.5818,-19.6879 147.6424,-19.6884 147.6716,-19.7179 147.6719,-19.7938 147.6842,-19.8284 147.7325,-19.8713 147.763,-19.8892 147.7922,-19.896 147.8232,-19.897 147.917,-19.8905 148.0399,-19.9246 148.0897,-19.9685 148.1192,-20.0153 148.0867,-20.0272 148.095,-20.0541 148.1538,-20.1227 148.2335,-20.1837 148.2862,-20.1618 148.2905,-20.1027 148.2593,-20.0757 148.273,-20.0408 148.3421,-20.0655 148.3838,-20.0983 148.457,-20.1601 148.4928,-20.1931 148.5884,-20.2097 148.6227,-20.2538 148.6551,-20.3653 148.6858,-20.4218 148.7099,-20.4304 148.7229,-20.4318 148.7532,-20.5116 148.7282,-20.5113 148.6974,-20.4982 148.675,-20.485 148.6497,-20.452 148.6094,-20.434 148.5602,-20.4527 148.4863,-20.5384 148.5109,-20.601 148.5481,-20.6941 148.6685,-20.8126 148.7398,-20.8594 148.8465,-20.895 148.9784,-20.9916 149.0326,-21.0561 149.0229,-21.1306 149.0575,-21.2544 149.107,-21.2947 149.1119,-21.3157 149.1458,-21.4134 149.2026,-21.5069 149.26,-21.5582 149.2585,-21.6052 149.2468,-21.7486 149.2863,-21.8874 149.337,-22.0522 149.4056,-22.2084 149.4691,-22.2929 149.5123,-22.3252 149.5185,-22.3553 149.5149,-22.4272 149.4847,-22.4696 149.5282,-22.4531 149.5516,-22.438 149.6048,-22.397 149.6299,-22.3587 149.7827,-22.5217 149.7919,-22.5454 149.7915,-22.5607 149.8528,-22.6153 149.8269,-22.5202 149.8015,-22.4502 149.7682,-22.3856 149.7361,-22.3255 149.7368,-22.2783 149.7755,-22.1831 149.7908,-22.1566 149.8151,-22.1353 149.8592,-22.124 149.8944,-22.1376 149.9704,-22.2471 150.0021,-22.3172 150.0005,-22.3493 150.0153,-22.3665 150.0524,-22.3839 150.1364,-22.4122 150.209,-22.4487 150.2333,-22.4752 150.2943,-22.5132 150.3717,-22.5516 150.4072,-22.5608 150.3496,-22.4333 150.349,-22.3582 150.3763,-22.3061 150.4488,-22.3177 150.5197,-22.416 150.49,-22.4795 150.4975,-22.5282 150.5559,-22.6035 150.6328,-22.7064 150.6177,-22.7557 150.6045,-22.831 150.5847,-22.95 150.5689,-23.1041 150.6249,-23.2118 150.6177,-23.2816 150.6099,-23.3094 150.6129,-23.3545 150.6792,-23.4785 150.7606,-23.5195 150.8352,-23.53 150.8534,-23.5559 150.864,-23.5906 150.9319,-23.6384 150.954,-23.6798 150.967,-23.7449 150.9794,-23.7655 151.0502,-23.8011 151.0829,-23.8006 151.1294,-23.8315 151.2079,-23.9219 151.2347,-23.9515 151.2733,-23.9683 151.3034,-23.9703 151.3571,-24.009 151.3506,-24.0186 151.3417,-24.0314 151.3484,-24.0591 151.3758,-24.0696 151.4244,-24.0255 151.4264,-23.971 151.4502,-23.9504 151.4943,-23.9619 151.5982,-24.0719 151.6904,-24.154 151.7159,-24.1671 151.7429,-24.1906 151.7541,-24.2082 151.7905,-24.3096 151.7969,-24.3375 151.8105,-24.3797 151.8192,-24.3987 151.8338,-24.4264 151.8613,-24.4759 151.9405,-24.5804 152.012,-24.6395 152.0856,-24.6823 152.1198,-24.6989 152.1537,-24.7096 152.1984,-24.7168 152.2265,-24.7324 152.2536,-24.7568 152.2757,-24.7843 152.2955,-24.8141 152.3056,-24.8495 152.3045,-24.8834 152.3011,-24.9077 152.3053,-24.9446 152.3153,-24.9695 152.3325,-25.0075 152.3675,-25.0591 152.4772,-25.2165 152.5283,-25.2327 152.6146,-25.2543 152.6597,-25.2538 152.7135,-25.2605 152.7519,-25.4079 152.7394,-25.4961 152.6984,-25.5334 152.7036,-25.6501 152.7253,-25.7063 152.7584,-25.735 152.789,-25.7428 152.8276,-25.8077 152.8424,-25.8614 152.8692,-25.8712 152.9041,-25.8805 152.9861,-25.92 152.9897,-25.9441 152.9416,-26.0384 152.9046,-26.1495 152.8949,-26.1888 152.8761,-26.279 152.8804,-26.318 152.8945,-26.3436 152.908,-26.4764 152.9189,-26.6393 152.9346,-26.6539 152.9467,-26.6999 152.9592,-26.9251 152.9604,-27.0524 152.8989,-27.07 152.874,-27.0895 152.8592,-27.1072 152.8432,-27.1345 152.8379,-27.146 152.868,-27.2825 152.8935,-27.3025 152.9775,-27.358 153.059,-27.4486 153.071,-27.4717 153.1075,-27.5738 153.1148,-27.6148 153.1214,-27.64 153.1799,-27.7217 153.2058,-27.7459 153.2352,-27.817 153.2261,-27.8821 153.2125,-27.9503 153.2524,-28.0432 153.2625,-28.061 153.2911,-28.1074 153.3081,-28.1185 153.3283,-28.1451 153.3575,-28.1515 153.3795,-28.1763 153.3935,-28.2419 153.3864,-28.33 153.3788,-28.3751 153.3713,-28.4055 153.3638,-28.4272 153.3615,-28.4596 153.3643,-28.4977 153.3725,-28.5515 153.3801,-28.5734 153.3931,-28.5895 153.4087,-28.6029 153.4256,-28.6287 153.4077,-28.8296 153.3807,-28.8647 153.3636,-28.8801 153.3345,-28.9026 153.32,-28.9177 153.2934,-28.9497 153.2776,-28.9698 153.2497,-29.0112 153.2359,-29.0427 153.1578,-29.239 153.1471,-29.2675 153.1392,-29.2954 153.143,-29.3235 153.1614,-29.3451 153.1673,-29.3654 153.1483,-29.496 153.0939,-29.7479 153.0554,-29.9187 153.0063,-30.0807 152.9716,-30.171 152.9393,-30.2249 152.8339,-30.4797 152.82,-30.5341 152.8146,-30.5746 152.8065,-30.6862 152.8052,-30.7498 152.8052,-30.779 152.8068,-30.8007 152.8231,-30.8491 152.8582,-30.8529 152.8764,-30.9136 152.8538,-31.0002 152.7743,-31.208 152.7553,-31.3242 152.6877,-31.5038 152.6629,-31.571 152.6501,-31.6209 152.6297,-31.6687 152.5617,-31.7749 152.486,-31.854 152.4663,-31.8715 152.4517,-31.8865 152.4263,-31.9129 152.3951,-31.9482 152.3594,-31.9931 152.3138,-32.095 152.343,-32.2272 152.3315,-32.3671 152.1989,-32.4642 152.1793,-32.4748 152.158,-32.4916 152.13,-32.5163 152.0831,-32.5646 152.0295,-32.5946 151.9297,-32.6455 151.9217,-32.6885 151.9469,-32.7337 151.7992,-32.7763 151.7555,-32.7903 151.6403,-32.8351 151.6151,-32.8519 151.4718,-33.0327 151.4335,-33.127 151.3968,-33.1975 151.3772,-33.2298 151.3555,-33.2448 151.3321,-33.2393 151.3053,-33.2479 151.2578,-33.2795 151.248,-33.3248 151.2706,-33.3376 151.2902,-33.356 151.2579,-33.463 151.1437,-33.5907 151.1007,-33.8592 151.0765,-33.9311 151.0404,-33.9546 150.9823,-33.9492 150.9037,-33.9757 150.9589,-33.9875 150.9993,-34.0183 150.9179,-34.1278 150.8892,-34.1414 150.8678,-34.154 150.828,-34.1836 150.7807,-34.239 150.7642,-34.2599 150.7384,-34.293 150.645,-34.5195 150.6796,-34.5454 150.6858,-34.5601 150.678,-34.6223 150.6358,-34.7468 150.6057,-34.7571 150.587,-34.7654 150.5716,-34.7803 150.5609,-34.7985 150.5517,-34.8383 150.5868,-34.9225 150.6568,-34.9822 150.6418,-35.0488 150.6145,-35.0682 150.5819,-35.0388 150.5943,-35.0189 150.5802,-34.9727 150.5534,-34.9703 150.4905,-35.0028 150.4824,-35.0362 150.5083,-35.0873 150.4526,-35.1389 150.4223,-35.1486 150.3619,-35.1727 150.3455,-35.187 150.2908,-35.2712 150.2854,-35.3132 150.2115,-35.4877 150.161,-35.5548 150.0803,-35.6955 149.9675,-35.8999 149.942,-36.071 149.9486,-36.2173 149.9401,-36.287 149.9029,-36.3195 149.8814,-36.348 149.8701,-36.3868 149.8559,-36.4604 149.8272,-36.5869 149.7835,-36.7194 149.7702,-36.7534 149.7424,-36.8155 149.7063,-36.8815 149.71,-37.0274 149.7502,-37.0748 149.8097,-37.1198 149.8227,-37.1895 149.8222,-37.2226 149.793,-37.2149 149.751,-37.2397 149.7522,-37.3561 149.7589,-37.387 149.7792,-37.4316 149.782,-37.4588 149.7805,-37.4705 149.7741,-37.4797 149.7019,-37.5096 149.6264,-37.5159 149.5884,-37.5182 149.5492,-37.5565 149.4755,-37.6539 149.3811,-37.693 149.3656,-37.6945 149.3081,-37.716 149.26,-37.7408 149.1122,-37.7528 149.0576,-37.7509 148.8835,-37.7501 148.6298,-37.755 148.5786,-37.763 148.5567,-37.7694 148.4622,-37.7738 148.2976,-37.769 148.1133,-37.7789 148.0856,-37.7835 148.0111,-37.797 147.7683,-37.8594 147.7412,-37.8683 147.6508,-37.9025 147.5638,-37.9397 147.5387,-37.9537 147.4594,-37.9995 147.3925,-38.0399 147.3456,-38.0702 147.2341,-38.1515 147.1769,-38.1948 147.0174,-38.3196 146.9901,-38.345 146.9188,-38.4114 146.7925,-38.5259 146.7737,-38.5419 146.6779,-38.6081 146.6399,-38.6163 146.4543,-38.63 146.3064,-38.6567 146.2356,-38.6735 146.1577,-38.6543 146.066,-38.6584 146.0417,-38.6624 146.0241,-38.6722 145.9897,-38.7137 146.1007,-38.8728 146.2163,-38.8093 146.2237,-38.7816 146.2374,-38.749 146.2738,-38.762 146.2874,-39.0323 146.2287,-39.0905 146.2112,-39.1002 146.1976,-39.1031 146.1892,-39.1023 146.1506,-39.0857 146.1235,-39.0535 146.073,-38.9379 146.0516,-38.905 146.0309,-38.8777 146.0135,-38.858 145.9976,-38.8431 145.9703,-38.8189 145.9471,-38.8021 145.9255,-38.7916 145.8939,-38.7814 145.8702,-38.7762 145.8432,-38.7776 145.8211,-38.7883 145.8075,-38.8195 145.7094,-38.8129 145.629,-38.685 145.6399,-38.6611 145.6484,-38.6616 145.6528,-38.6549 145.6217,-38.6088 145.5904,-38.6001 145.5593,-38.5962 145.5335,-38.5977 145.4876,-38.6184 145.4642,-38.6335 145.4133,-38.6401 145.3722,-38.6213 145.2224,-38.5025 145.2228,-38.4802 145.2387,-38.4088 145.302,-38.3867 145.3267,-38.3798 145.362,-38.331 145.2926,-38.2051 145.2512,-38.1836 145.0628,-38.1943 145.0201,-38.3059 144.8375,-38.4538 144.7487,-38.4674 144.7085,-38.4624 144.5689,-38.3344 144.598,-38.3335 144.6216,-38.3397 144.6465,-38.3406 144.6877,-38.3345 144.7182,-38.3266 144.7484,-38.3174 144.7925,-38.2973 144.9268,-38.1246 144.9388,-38.094 144.9226,-38.0273 144.9072,-38.0002 144.7838,-37.849 144.7566,-37.8328 144.7263,-37.8257 144.6332,-37.8598 144.5556,-37.92 144.4998,-37.9609 144.4698,-37.9803 144.3354,-38.0583 144.1947,-38.0702 144.1772,-38.0835 144.1714,-38.1029 144.1832,-38.1199 144.2049,-38.1271 144.3214,-38.1384 144.3555,-38.133 144.399,-38.1173 144.4184,-38.1065 144.4454,-38.0908 144.4877,-38.0931 144.5144,-38.1061 144.5293,-38.135 144.5186,-38.1792 144.4669,-38.2419 144.442,-38.2567 144.4077,-38.2546 144.3784,-38.242 144.3566,-38.2404 144.2034,-38.2662 144.1714,-38.2811 143.8701,-38.441 143.807,-38.4936 143.7138,-38.5988 143.6503,-38.6527 143.5778,-38.6706 143.54,-38.6766 143.5035,-38.6966 143.492,-38.7103 143.4814,-38.74 143.3513,-38.8153 143.3138,-38.8073 143.2923,-38.7913 143.2524,-38.7505 143.1959,-38.7245 143.1477,-38.714 142.989,-38.6723 142.9425,-38.6349 142.9055,-38.6154 142.8575,-38.5935 142.8271,-38.5856 142.7813,-38.5858 142.6697,-38.5549 142.6132,-38.5325 142.5687,-38.5022 142.5517,-38.4883 142.4226,-38.4118 142.3459,-38.3694 142.1904,-38.3207 142.08,-38.3412 142.0613,-38.3585 142.0386,-38.3596 141.9715,-38.3566 141.8994,-38.3263 141.8737,-38.3121 141.7994,-38.2675 141.7763,-38.2487 141.6331,-38.2242 141.5627,-38.2237 141.5335,-38.2275 141.4914,-38.2396 141.4321,-38.2786 141.4318,-38.3096 141.4475,-38.324 141.4621,-38.3564 141.383,-38.3738 141.2663,-38.3292 141.2051,-38.2716 141.18,-38.2464 141.1019,-38.1851 141.0525,-38.1498 141.0058,-38.1175 140.9594,-38.0918 140.9385,-38.0809 140.9167,-38.071 140.8392,-38.0398 140.8184,-38.0323 140.8108,-35.2389 140.8069,-34.0814 140.8073,-34.0092 140.8045,-33.9915 140.8067,-33.9858 140.8101,-33.9596 140.8188,-33.9707 140.8281,-33.9899 140.8327,-33.9917 140.8501,-33.9809 140.85,-33.8767 140.85,-32.5311 140.8535,-25.9526 137.8488,-25.9518 137.8462,-16.5465 4,9.0,Australia 128.8398,-31.6558 128.8471,-14.8649 128.846,-25.9493 128.8398,-31.6558 1024,9.0,Australia 113.0795,-26.2095 113.1089,-26.1662 113.1256,-26.127 113.129,-26.0988 113.1256,-26.0707 113.1196,-26.0346 113.1232,-26.0105 113.1428,-25.9984 113.1569,-26.0967 113.1585,-26.1379 113.1594,-26.1928 113.1892,-26.2491 113.2128,-26.1569 113.2207,-26.0895 113.3689,-26.2546 113.3894,-26.3081 113.3943,-26.3709 113.4011,-26.4781 113.4244,-26.5399 113.4978,-26.6242 113.521,-26.6292 113.5288,-26.63 113.5319,-26.6041 113.596,-26.564 113.6383,-26.5735 113.6693,-26.5441 113.7099,-26.4776 113.7179,-26.4547 113.719,-26.4295 113.7156,-26.3069 113.6832,-26.2552 113.6438,-26.2208 113.5983,-26.1973 113.5071,-26.1401 113.4063,-26.0457 113.3872,-25.9601 113.3479,-25.8296 113.302,-25.765 113.2589,-25.7083 113.2466,-25.6815 113.2481,-25.6493 113.2536,-25.6259 113.264,-25.5991 113.2752,-25.5809 113.325,-25.512 113.3531,-25.5315 113.385,-25.5946 113.4462,-25.6834 113.5067,-25.7349 113.5523,-25.7662 113.5888,-25.8599 113.5645,-25.9783 113.5368,-26.0056 113.5388,-26.09 113.5686,-26.1673 113.6194,-26.1715 113.6531,-26.1389 113.6752,-26.1046 113.7179,-26.0262 113.7332,-25.9994 113.7595,-26.0927 113.7814,-26.18 113.7857,-26.2341 113.8131,-26.298 113.9231,-26.432 114.0489,-26.343 114.0755,-26.2627 114.0639,-26.2373 114.045,-26.2239 114.0369,-26.2006 114.026,-26.1533 114.0496,-26.0016 114.0604,-25.9598 114.0937,-25.9721 114.111,-25.9412 114.1125,-25.8186 113.9938,-25.703 113.9077,-25.6234 113.8889,-25.605 113.8065,-25.4668 113.77,-25.4031 113.724,-25.2969 113.6922,-25.2203 113.6622,-25.153 113.6461,-25.1392 113.6009,-25.1127 113.5565,-25.0941 113.5078,-24.9872 113.468,-24.8613 113.4595,-24.8165 113.4719,-24.7851 113.4711,-24.7257 113.4611,-24.7054 113.4321,-24.6642 113.409,-24.632 113.3618,-24.5785 113.3417,-24.5564 113.3168,-24.5345 113.283,-24.4978 113.2577,-24.445 113.2521,-24.4242 113.2473,-24.4019 113.242,-24.2036 113.2825,-24.1072 113.3044,-23.9845 113.3462,-23.8513 113.3905,-23.7303 113.4597,-23.6037 113.4937,-23.5724 113.5299,-23.5597 113.6013,-23.5005 113.6216,-23.4464 113.627,-23.4152 113.6406,-23.3003 113.619,-23.1677 113.6412,-23.0793 113.6582,-23.0591 113.6719,-23.0297 113.6772,-23.0044 113.6664,-22.9074 113.6599,-22.8875 113.6255,-22.7925 113.6124,-22.7682 113.5959,-22.7415 113.5698,-22.7126 113.5307,-22.6605 113.5161,-22.5791 113.552,-22.5122 113.593,-22.4498 113.6594,-22.309 113.6802,-22.2554 113.6976,-22.2066 113.7231,-22.1289 113.7549,-22.0305 113.7934,-21.9512 113.8563,-21.8555 113.8731,-21.8323 113.8902,-21.8172 113.9492,-21.7862 114.0228,-21.7744 114.0358,-21.7982 114.0153,-21.8218 113.996,-21.8538 113.9863,-21.8854 113.9373,-22.1492 113.9458,-22.1755 113.9807,-22.2482 114.0014,-22.2761 113.9775,-22.3717 113.9695,-22.461 113.9964,-22.4959 114.013,-22.5022 114.0568,-22.4836 114.2315,-22.4173 114.2493,-22.3393 114.259,-22.3102 114.2673,-22.289 114.3201,-22.1651 114.3771,-22.0623 114.4848,-21.8983 114.4893,-21.8754 114.4954,-21.8345 114.5104,-21.8152 114.5555,-21.7886 114.5982,-21.7763 114.6988,-21.7234 114.8019,-21.664 114.8403,-21.6634 114.8828,-21.6658 114.9118,-21.6565 115.0187,-21.606 115.1044,-21.5675 115.1955,-21.5419 115.3106,-21.4936 115.3283,-21.4792 115.3549,-21.4483 115.3798,-21.4162 115.4081,-21.3803 115.4781,-21.3077 115.4938,-21.2953 115.5384,-21.2636 115.5952,-21.2434 115.6449,-21.2239 115.6651,-21.2126 115.6807,-21.196 115.6955,-21.1668 115.7212,-21.1218 115.7363,-21.1013 115.7692,-21.0589 115.7838,-21.0454 115.813,-21.0285 115.8461,-21.0128 115.8672,-21.0061 115.9877,-20.9609 116.018,-20.9421 116.0304,-20.9217 116.0441,-20.8782 116.1073,-20.8453 116.1676,-20.8381 116.3338,-20.7827 116.4644,-20.7065 116.5654,-20.6257 116.6463,-20.6421 116.6896,-20.6826 116.7336,-20.694 116.7562,-20.6878 116.7835,-20.6737 116.8076,-20.6538 116.851,-20.6291 116.9031,-20.6047 116.9241,-20.5985 117.0226,-20.6304 117.0549,-20.6648 117.1252,-20.6942 117.1525,-20.7008 117.1745,-20.7045 117.1993,-20.7071 117.2375,-20.7081 117.2632,-20.7065 117.3389,-20.693 117.5421,-20.6532 117.5945,-20.633 117.6882,-20.5951 117.7068,-20.5851 117.7785,-20.5313 117.7904,-20.5068 117.8571,-20.4451 117.9256,-20.3868 117.995,-20.3417 118.0351,-20.3257 118.0485,-20.3503 118.0913,-20.3512 118.2539,-20.3267 118.4014,-20.3022 118.5137,-20.3082 118.657,-20.2631 118.6764,-20.2505 118.8058,-20.0942 118.818,-20.0711 118.8357,-20.0188 118.9358,-19.9461 119.024,-19.9344 119.044,-19.9368 119.221,-19.9767 119.2893,-19.9944 119.4075,-20.044 119.437,-20.048 119.4563,-20.0435 119.5477,-19.9959 119.5756,-19.9756 119.6401,-19.9493 119.8767,-19.9104 120.0183,-19.8941 120.0581,-19.8921 120.0936,-19.8864 120.1913,-19.8559 120.4132,-19.7697 120.7319,-19.6432 120.7644,-19.6282 120.8468,-19.5891 120.8804,-19.5699 120.9293,-19.5357 120.9837,-19.4959 121.0608,-19.4371 121.0866,-19.4164 121.1296,-19.3729 121.1731,-19.3254 121.1865,-19.3105 121.3411,-19.1014 121.3561,-19.0744 121.4098,-18.9721 121.4919,-18.7925 121.6296,-18.6156 121.6167,-18.5815 121.6174,-18.535 121.653,-18.4592 121.6765,-18.4374 121.7014,-18.4494 121.742,-18.4527 121.7919,-18.4271 121.8448,-18.3893 121.866,-18.3716 121.8808,-18.3554 121.8953,-18.3344 121.919,-18.2968 121.9441,-18.29 121.9639,-18.2789 121.9809,-18.2681 122.1664,-18.1361 122.1893,-18.1109 122.2072,-18.0801 122.2196,-18.0403 122.2216,-18.0181 122.2136,-17.9852 122.2031,-17.9684 122.1841,-17.9591 122.105,-17.9379 122.0634,-17.8735 122.0523,-17.6847 122.0437,-17.6658 122.029,-17.6432 121.9994,-17.5627 121.9933,-17.5381 121.9913,-17.4985 121.9966,-17.3434 122.0279,-17.2238 122.1093,-17.0884 122.1375,-17.0617 122.2151,-16.9917 122.232,-16.9769 122.2521,-16.9627 122.3,-16.9349 122.377,-16.9373 122.4268,-16.9342 122.3796,-16.8457 122.3765,-16.8256 122.4194,-16.7707 122.4466,-16.7602 122.4686,-16.7808 122.4922,-16.7807 122.5294,-16.769 122.6049,-16.7433 122.6146,-16.7147 122.5892,-16.6784 122.6132,-16.5816 122.6412,-16.5505 122.67,-16.5501 122.6939,-16.5399 122.7467,-16.4838 122.7471,-16.4576 122.752,-16.4288 122.7728,-16.3959 122.8442,-16.3712 122.9126,-16.4371 122.8917,-16.4628 122.8643,-16.4566 122.8418,-16.4572 122.8086,-16.5679 122.8296,-16.6091 122.8721,-16.6515 122.9206,-16.6766 122.9482,-16.6972 122.9684,-16.7736 123.0566,-16.9331 123.1592,-17.118 123.2259,-17.2274 123.286,-17.3231 123.329,-17.3896 123.3868,-17.4742 123.4044,-17.4951 123.4261,-17.5778 123.4346,-17.5669 123.4448,-17.4899 123.4192,-17.4502 123.411,-17.426 123.4144,-17.3475 123.47,-17.1867 123.4251,-17.0535 123.4279,-17.0108 123.4437,-16.9776 123.507,-16.9757 123.5784,-17.0474 123.6161,-17.0991 123.6334,-17.123 123.7065,-17.1871 123.742,-17.2016 123.7667,-17.1888 123.7285,-17.1714 123.6826,-17.1167 123.6539,-17.0203 123.6473,-16.9787 123.688,-16.9247 123.7428,-16.8741 123.7092,-16.8572 123.6332,-16.8797 123.6177,-16.8692 123.6052,-16.8506 123.5692,-16.7689 123.4592,-16.6544 123.4652,-16.5454 123.3962,-16.5496 123.353,-16.5474 123.3109,-16.519 123.2772,-16.4808 123.345,-16.4786 123.4146,-16.497 123.4689,-16.5128 123.4926,-16.5108 123.5604,-16.4117 123.5692,-16.3603 123.5593,-16.3215 123.5311,-16.3142 123.4478,-16.3006 123.4123,-16.2697 123.4092,-16.1824 123.4231,-16.1535 123.4553,-16.1379 123.5782,-16.1203 123.6582,-16.1808 123.6358,-16.2276 123.5844,-16.2413 123.6909,-16.3496 123.7429,-16.3605 123.7444,-16.3212 123.8159,-16.2271 123.9375,-16.2439 123.9646,-16.2551 123.9915,-16.267 124.0178,-16.2842 124.0336,-16.3203 124.0536,-16.3667 124.0811,-16.3857 124.1839,-16.3912 124.195,-16.3734 124.2355,-16.3342 124.266,-16.3476 124.3266,-16.3773 124.4293,-16.387 124.5152,-16.3752 124.5795,-16.3664 124.6129,-16.371 124.686,-16.4113 124.6977,-16.4103 124.7433,-16.388 124.6913,-16.3851 124.6657,-16.3816 124.5995,-16.3574 124.5479,-16.3285 124.4658,-16.3094 124.4133,-16.3057 124.3533,-16.317 124.3307,-16.3291 124.269,-16.3291 124.2515,-16.3108 124.2333,-16.2642 124.2274,-16.2036 124.2429,-16.1539 124.2817,-16.0844 124.3219,-16.075 124.3507,-16.1258 124.3697,-16.1452 124.4442,-16.0959 124.4363,-16.0047 124.453,-15.9379 124.4659,-15.9006 124.5163,-15.845 124.5781,-15.7911 124.5489,-15.7759 124.5215,-15.7692 124.4676,-15.7842 124.4285,-15.8369 124.4122,-15.863 124.402,-15.8813 124.3858,-15.9184 124.339,-15.9191 124.2519,-15.8464 124.2293,-15.7142 124.2239,-15.6505 124.3091,-15.4608 124.3408,-15.4477 124.3907,-15.4731 124.4336,-15.4994 124.4583,-15.49 124.5082,-15.4622 124.5258,-15.4374 124.5129,-15.3254 124.5153,-15.2457 124.5572,-15.2359 124.7642,-15.3386 124.7932,-15.3622 124.8452,-15.4144 125.0327,-15.5033 125.0281,-15.4894 124.9711,-15.4454 124.9526,-15.4332 124.9278,-15.4129 124.9225,-15.3903 124.9477,-15.3276 124.97,-15.3059 124.9486,-15.2843 124.863,-15.2832 124.8381,-15.2922 124.8127,-15.3037 124.7637,-15.3188 124.7524,-15.2615 124.7892,-15.211 124.8276,-15.1934 124.8562,-15.2107 124.8959,-15.1443 124.8645,-15.1366 124.782,-15.1848 124.7336,-15.22 124.7061,-15.219 124.677,-15.143 124.7091,-15.1031 124.7527,-15.0833 124.8112,-15.0999 124.8323,-15.0936 124.8846,-15.0575 124.8702,-15.0238 124.9303,-14.9829 124.9987,-15.1341 125.0163,-15.1451 125.026,-15.1025 125.0137,-15.0627 125.0133,-15.0168 125.0726,-15.0455 125.1007,-15.0626 125.1308,-15.0841 125.1332,-15.12 125.1729,-15.139 125.266,-15.1343 125.286,-15.116 125.2684,-15.1019 125.2384,-15.1048 125.2116,-15.0817 125.2414,-15.0536 125.2166,-15.0359 125.1329,-14.9784 125.0348,-14.9314 125.0684,-14.8937 125.0951,-14.885 125.0535,-14.8365 124.9888,-14.7309 125.0966,-14.5815 125.1182,-14.5606 125.1896,-14.5065 125.2415,-14.5284 125.4063,-14.5395 125.4418,-14.533 125.4481,-14.476 125.453,-14.4107 125.4341,-14.2928 125.4388,-14.245 125.4469,-14.2257 125.4726,-14.2065 125.5826,-14.2569 125.5606,-14.3235 125.4949,-14.6137 125.5135,-14.5952 125.5582,-14.4666 125.5664,-14.4217 125.5762,-14.388 125.6962,-14.4484 125.6779,-14.5558 125.6964,-14.5909 125.755,-14.6271 125.7614,-14.6287 125.7762,-14.6009 125.8437,-14.5307 125.8903,-14.4987 125.9197,-14.3281 125.997,-14.1763 126.0006,-14.114 125.9362,-13.9502 125.9082,-13.9359 125.8723,-13.9106 125.9224,-13.8996 126.0027,-13.9119 126.072,-13.9462 126.0632,-14.0213 126.0387,-14.0323 126.0113,-14.043 126.0453,-14.1523 126.0877,-14.1635 126.1339,-14.1989 126.141,-14.217 126.1668,-14.1776 126.1482,-14.1247 126.163,-14.0733 126.1883,-14.0344 126.2855,-13.9592 126.3566,-13.9488 126.3452,-13.9933 126.3092,-14.0617 126.4214,-14.2045 126.4536,-14.2134 126.5573,-14.1079 126.6428,-13.9554 126.6161,-13.8237 126.6005,-13.7796 126.7121,-13.7355 126.8103,-13.7128 126.8718,-13.7606 126.9285,-13.8328 126.9111,-13.8704 126.9816,-13.9556 127.0071,-13.9168 127.0077,-13.8842 127.0952,-13.8808 127.2088,-13.9137 127.2784,-13.9381 127.3043,-13.9774 127.3736,-14.0701 127.5099,-14.1598 127.5834,-14.2517 127.6119,-14.2842 127.6305,-14.3191 127.7241,-14.4571 127.8073,-14.5651 127.833,-14.5573 127.8504,-14.5441 127.8816,-14.5665 127.9733,-14.6397 128.0191,-14.6863 128.0321,-14.7249 128.0374,-14.7835 127.9889,-14.851 127.9361,-15.0082 127.9175,-15.0836 127.918,-15.1189 127.9277,-15.1887 127.9207,-15.3789 127.9109,-15.4141 127.901,-15.4346 127.8795,-15.4551 127.8685,-15.4808 127.8914,-15.4738 127.9165,-15.4541 127.9336,-15.4357 127.9449,-15.4167 127.9535,-15.3855 127.9616,-15.3258 127.9669,-15.2733 127.966,-15.2312 127.9802,-15.1969 128.0294,-15.216 128.0697,-15.2558 128.1051,-15.2886 128.1123,-15.3339 128.1348,-15.3833 128.1404,-15.3247 128.1394,-15.2863 128.1325,-15.2639 128.0943,-15.2055 128.0724,-15.1734 128.0404,-15.0482 128.0529,-15.021 128.0689,-14.9978 128.1549,-14.8958 128.1748,-14.8995 128.1769,-14.9312 128.1883,-15.0021 128.201,-15.0272 128.2962,-15.0302 128.3062,-14.9847 128.2781,-14.9413 128.2667,-14.9151 128.2577,-14.8878 128.2364,-14.7832 128.3592,-14.7473 128.3849,-14.7419 128.5066,-14.7657 128.7507,-14.8235 128.8471,-14.8542 128.8398,-31.6558 128.8325,-31.6571 128.8112,-31.6604 128.7849,-31.6675 128.6256,-31.7338 128.6059,-31.7434 128.5368,-31.7805 128.3874,-31.8524 128.016,-31.9957 127.846,-32.0533 127.783,-32.065 127.6624,-32.0832 127.5717,-32.0984 127.463,-32.1346 127.3727,-32.1666 127.1692,-32.2305 127.1026,-32.2422 126.9996,-32.2577 126.9598,-32.2623 126.8578,-32.2673 126.8255,-32.2687 126.5226,-32.2793 126.4742,-32.2777 126.4093,-32.2727 126.2947,-32.2634 126.2351,-32.2557 126.1646,-32.2358 126.1391,-32.2259 126.1188,-32.2201 126.0972,-32.215 126.0752,-32.2107 126.0448,-32.2045 126.0158,-32.202 125.989,-32.2071 125.9669,-32.2183 125.9281,-32.242 125.9056,-32.2485 125.8813,-32.2483 125.8486,-32.2377 125.8087,-32.2306 125.643,-32.3074 125.4547,-32.4312 125.4197,-32.4579 125.3969,-32.4796 125.3778,-32.4941 125.3521,-32.5101 125.2812,-32.5366 125.2361,-32.546 125.2148,-32.5473 125.1741,-32.5537 125.1395,-32.562 125.0835,-32.5879 124.8332,-32.7054 124.7649,-32.7486 124.7346,-32.7764 124.7173,-32.7928 124.5846,-32.8608 124.543,-32.8731 124.5027,-32.8794 124.4189,-32.8909 124.3357,-32.8998 124.2916,-32.9036 124.2413,-32.9086 124.1911,-32.9203 124.1674,-32.9276 124.14,-32.9378 124.1206,-32.9485 124.0287,-33.0121 123.9966,-33.0424 123.98,-33.0591 123.9451,-33.1022 123.9297,-33.1249 123.8416,-33.3562 123.8036,-33.5011 123.795,-33.5217 123.7781,-33.5355 123.7575,-33.5453 123.6994,-33.5781 123.6292,-33.6392 123.609,-33.6572 123.5917,-33.6761 123.5751,-33.7146 123.5745,-33.7419 123.5304,-33.7826 123.4885,-33.809 123.3804,-33.8675 123.3099,-33.8703 123.2914,-33.8621 123.2693,-33.8589 123.2453,-33.8577 123.2088,-33.8571 123.1829,-33.8657 123.1451,-33.9036 123.1227,-33.9328 123.0764,-33.9616 123.0084,-33.9804 122.9795,-33.9109 122.9409,-33.8489 122.9207,-33.8378 122.858,-33.8196 122.7554,-33.8474 122.6855,-33.8688 122.6583,-33.8685 122.5712,-33.8551 122.4348,-33.8601 122.4166,-33.8752 122.2743,-33.8878 122.2182,-33.874 122.1958,-33.8746 122.1397,-33.8934 122.1035,-33.9278 122.0928,-33.9785 121.9597,-33.9902 121.9212,-33.9796 121.9425,-33.9419 121.9279,-33.8889 121.9132,-33.8552 121.8939,-33.8303 121.8787,-33.8149 121.8554,-33.7929 121.8354,-33.7867 121.7584,-33.7984 121.7278,-33.8208 121.7036,-33.8425 121.6765,-33.8538 121.6229,-33.8614 121.5145,-33.8221 121.365,-33.7834 121.3036,-33.7793 121.2133,-33.7773 121.1787,-33.7775 121.0622,-33.8008 120.8944,-33.8188 120.7728,-33.8247 120.7281,-33.8187 120.7056,-33.8185 120.678,-33.8289 120.6529,-33.8413 120.6347,-33.8499 120.5661,-33.8563 120.5372,-33.8577 120.384,-33.8791 120.3293,-33.9106 120.2609,-33.9358 120.2129,-33.9255 120.1318,-33.9073 120.0969,-33.9016 120.074,-33.8995 119.8724,-33.8875 119.8494,-33.8909 119.8242,-33.8961 119.6574,-33.9398 119.6336,-33.9532 119.615,-33.9721 119.5994,-33.9938 119.5834,-34.0077 119.5524,-34.0258 119.5174,-34.0406 119.4889,-34.0513 119.4608,-34.0617 119.4087,-34.1111 119.3259,-34.232 119.3126,-34.293 119.171,-34.4081 119.054,-34.4656 119.0309,-34.4563 118.9571,-34.436 118.9246,-34.4275 118.7812,-34.4107 118.7574,-34.4142 118.736,-34.4236 118.6109,-34.4943 118.5858,-34.511 118.5677,-34.5305 118.5654,-34.5359 118.6003,-34.568 118.5817,-34.5871 118.5655,-34.6007 118.5453,-34.6114 118.4843,-34.6413 118.4587,-34.6467 118.4286,-34.6518 118.3647,-34.6686 118.3237,-34.6848 118.2913,-34.7043 118.2647,-34.7352 118.2464,-34.7618 118.2342,-34.8011 118.1286,-34.8662 117.9289,-34.9544 117.6856,-34.9906 117.6814,-35.0111 117.7052,-35.0326 117.7307,-35.0431 117.7964,-35.053 117.8432,-35.0575 117.7816,-35.0857 117.7061,-35.0745 117.657,-35.0398 117.6319,-35.0258 117.5965,-35.0123 117.5745,-35.0087 117.5118,-35.0117 117.4805,-35.0301 117.4675,-35.0513 117.4577,-35.0988 117.4023,-35.0591 117.3813,-35.0486 117.2032,-34.9852 117.1806,-34.9796 117.0324,-34.9724 116.7971,-34.9764 116.7643,-35.0024 116.7447,-35.0165 116.7218,-35.0172 116.6869,-35.0097 116.6635,-35.0004 116.5732,-34.9774 116.5072,-34.9926 116.4512,-34.9937 116.3098,-34.9603 116.2247,-34.9089 116.174,-34.879 116.1181,-34.8486 116.096,-34.8386 116.0664,-34.8269 116.0284,-34.8153 115.9423,-34.7989 115.8233,-34.7801 115.8023,-34.7305 115.7936,-34.7119 115.7631,-34.6643 115.6641,-34.5687 115.6383,-34.546 115.4981,-34.4291 115.346,-34.3448 115.2363,-34.2954 115.1643,-34.2661 115.0916,-34.2595 115.0552,-34.2627 115.0189,-34.274 114.9974,-34.3054 114.973,-34.3241 114.9246,-34.2853 114.8597,-34.2239 114.8555,-34.1862 114.8579,-34.1647 114.8612,-34.1374 114.8276,-33.9804 114.8085,-33.8281 114.8044,-33.6546 114.8479,-33.4864 114.8905,-33.4959 114.9323,-33.5378 114.9519,-33.5732 115.0064,-33.5976 115.0711,-33.6153 115.1121,-33.6142 115.1329,-33.6126 115.166,-33.6083 115.2138,-33.5954 115.2471,-33.5835 115.2798,-33.5673 115.5174,-33.2728 115.5402,-33.2654 115.5541,-33.2489 115.5625,-33.2265 115.5639,-33.2047 115.5193,-32.9447 115.5027,-32.8872 115.4855,-32.8305 115.4692,-32.7697 115.444,-32.6341 115.4676,-32.566 115.5442,-32.4857 115.5407,-32.5173 115.5027,-32.5494 115.4834,-32.5711 115.4818,-32.612 115.5225,-32.7089 115.5501,-32.7442 115.568,-32.7333 115.5657,-32.679 115.5832,-32.6078 115.6115,-32.5358 115.5933,-32.4125 115.5823,-32.2843 115.5846,-32.2284 115.6047,-32.1557 115.5874,-32.059 115.5938,-31.8985 115.5931,-31.8575 115.5897,-31.8322 115.5557,-31.6807 115.5434,-31.6479 115.5313,-31.625 115.4893,-31.5597 115.417,-31.448 115.3012,-31.2665 115.2877,-31.2443 115.245,-31.149 115.2253,-31.0871 115.2188,-31.0673 115.1605,-30.9518 115.0972,-30.8571 115.06,-30.8127 115.0179,-30.7373 114.9317,-30.5543 114.8982,-30.4702 114.9052,-30.4429 114.8746,-30.2401 114.8362,-30.1117 114.808,-30.0419 114.7882,-30.0265 114.7905,-29.7034 114.7934,-29.637 114.7982,-29.5959 114.8124,-29.5339 114.8248,-29.5045 114.8308,-29.475 114.8295,-29.4545 114.7797,-29.3026 114.7542,-29.2661 114.7546,-29.2257 114.7387,-29.1729 114.6863,-29.0636 114.5718,-28.9354 114.5429,-28.9114 114.5078,-28.8865 114.471,-28.8385 114.4488,-28.796 114.4435,-28.7649 114.4442,-28.7354 114.4486,-28.6929 114.4439,-28.6489 114.4361,-28.6006 114.3821,-28.5 114.3664,-28.4739 114.3551,-28.456 114.2222,-28.2889 114.1599,-28.1982 114.1142,-28.1765 114.0845,-28.1573 114.0627,-28.1345 114.05,-28.1188 114.0071,-28.0594 113.9985,-28.0375 113.9695,-27.9161 113.9477,-27.8202 113.9496,-27.7887 113.9606,-27.746 113.9782,-27.7044 113.994,-27.6762 113.9883,-27.6314 113.9744,-27.5724 113.9465,-27.4744 113.926,-27.4203 113.8804,-27.3332 113.7906,-27.1682 113.6532,-26.937 113.6412,-26.9201 113.5421,-26.7855 113.4402,-26.6606 113.3899,-26.6033 113.3529,-26.5664 113.3013,-26.5257 113.136,-26.3695 113.1089,-26.2928 113.0795,-26.2095 632,8.0,Indonesia 113.6955,0.5909 113.7603,0.5824 113.8963,0.6464 113.9643,0.6464 114.0643,0.5824 114.3163,0.5544 114.4723,0.6264 114.6163,0.7024 114.6883,0.7264 114.8083,0.7544 114.8843,0.6664 114.9643,0.5104 114.9883,0.4024 114.8363,0.3424 114.7603,0.2704 114.7203,0.1024 114.7403,-0.0216 114.8083,-0.1736 114.9323,-0.1856 115.0243,-0.0616 115.1643,-0.0016 115.2123,-0.0976 115.1523,-0.2216 115.1203,-0.3176 115.1403,-0.4096 115.1763,-0.4776 115.2843,-0.5656 115.2763,-0.6456 115.2683,-0.7736 115.2843,-0.8416 115.3843,-0.8736 115.4603,-0.9376 115.5723,-1.0376 115.6163,-1.1056 115.6483,-1.1976 115.6363,-1.3016 115.5883,-1.3896 115.5123,-1.4776 115.4323,-1.4736 115.3283,-1.4816 115.2683,-1.5696 115.2403,-1.7176 115.2603,-1.8536 115.2443,-1.9456 115.0523,-2.3376 115.0163,-2.3816 114.9443,-2.4016 114.8443,-2.5616 114.7123,-2.7616 114.5803,-2.8696 114.4683,-2.9576 114.3763,-3.1496 114.2643,-3.4696 114.2643,-3.4703 114.2976,-3.4939 114.3094,-3.4994 114.3306,-3.5006 114.3424,-3.4985 114.3519,-3.4945 114.3555,-3.4978 114.3926,-3.5327 114.4518,-3.6107 114.4642,-3.6322 114.4723,-3.6516 114.478,-3.6766 114.4784,-3.6999 114.4777,-3.7132 114.4772,-3.8976 114.4782,-4.0772 114.4787,-4.1243 114.4813,-4.1419 114.4859,-4.1577 114.4943,-4.17 114.5068,-4.1802 114.5545,-4.1775 114.5788,-4.1708 114.6287,-4.1421 114.6694,-4.1148 114.7612,-4.0571 114.7791,-4.0477 114.7977,-4.0388 114.8073,-4.0349 114.8553,-4.0143 114.8937,-3.9979 115.0441,-3.9342 115.1556,-3.8886 115.1867,-3.8787 115.2475,-3.8564 115.4171,-3.7937 115.6042,-3.714 115.6179,-3.707 115.6305,-3.6987 115.6416,-3.6898 115.6527,-3.6805 115.6734,-3.6599 115.6825,-3.6481 115.6997,-3.6316 115.7083,-3.6264 115.7234,-3.6211 115.7528,-3.6153 115.7719,-3.6134 115.8112,-3.6113 115.8227,-3.6094 115.8352,-3.6045 115.8446,-3.5968 115.8526,-3.5848 115.8585,-3.5698 115.8668,-3.5299 115.8713,-3.5005 115.8733,-3.4824 115.8748,-3.4496 115.8763,-3.4371 115.8804,-3.4277 115.9584,-3.279 115.9631,-3.2703 115.9684,-3.2612 116.0405,-3.162 116.0754,-3.1432 116.0855,-3.139 116.0797,-3.082 116.0468,-3.0532 115.9902,-2.9718 115.9801,-2.9328 115.9793,-2.9198 116.0012,-2.8201 116.0088,-2.8117 116.0205,-2.8227 116.0753,-2.9184 116.0812,-2.9328 116.0842,-2.9504 116.0848,-2.9636 116.0875,-2.988 116.0917,-3.001 116.1011,-3.0085 116.1139,-3.0114 116.1311,-3.0043 116.1433,-2.9964 116.1604,-2.9788 116.2132,-2.9088 116.2238,-2.8917 116.24,-2.8537 116.243,-2.8423 116.2432,-2.8226 116.2312,-2.6622 116.173,-2.6092 116.1757,-2.5148 116.2904,-2.4918 116.3042,-2.495 116.3136,-2.4993 116.3339,-2.5149 116.3389,-2.5319 116.341,-2.5506 116.3504,-2.5598 116.3733,-2.5588 116.3835,-2.5523 116.397,-2.5346 116.4031,-2.5206 116.4102,-2.5 116.4161,-2.4787 116.4209,-2.4356 116.435,-2.3676 116.4378,-2.3562 116.4644,-2.2729 116.4664,-2.2682 116.473,-2.227 116.4746,-2.208 116.4728,-2.1872 116.3992,-2.167 116.3876,-2.165 116.371,-2.169 116.3561,-2.1744 116.333,-2.1856 116.3042,-2.2044 116.2867,-2.2109 116.2757,-2.2088 116.1965,-2.1447 116.2419,-2.0935 116.2885,-2.0785 116.3049,-2.0709 116.3232,-2.0518 116.3274,-2.0427 116.3295,-1.911 116.3149,-1.781 116.2947,-1.7685 116.2689,-1.7637 116.253,-1.7638 116.2055,-1.774 116.1934,-1.7827 116.1799,-1.796 116.1715,-1.8018 116.1542,-1.8084 116.1312,-1.8102 116.1158,-1.8062 116.1003,-1.7948 116.0937,-1.777 116.1764,-1.7243 116.2722,-1.6772 116.3918,-1.6328 116.4092,-1.6225 116.4197,-1.6128 116.4283,-1.5997 116.433,-1.5876 116.4343,-1.5718 116.4304,-1.5623 116.4172,-1.5492 116.4118,-1.5407 116.4063,-1.5258 116.4005,-1.5007 116.4012,-1.4819 116.4083,-1.4718 116.4278,-1.4566 116.4632,-1.4308 116.4836,-1.4171 116.4949,-1.4112 116.5116,-1.404 116.5543,-1.392 116.6115,-1.3734 116.6249,-1.3659 116.6305,-1.3576 116.6344,-1.3472 116.6568,-1.2499 116.6229,-1.1733 116.6145,-1.1645 116.5955,-1.1495 116.582,-1.1328 116.5794,-1.1165 116.582,-1.1017 116.5879,-1.0805 116.5975,-1.049 116.6016,-1.0391 116.6094,-1.0267 116.6236,-1.0227 116.628,-1.0343 116.6211,-1.0494 116.6123,-1.0769 116.6101,-1.0996 116.6862,-1.2723 116.6961,-1.2752 116.7548,-1.263 116.7926,-1.2527 116.8646,-1.2222 116.8732,-1.2172 116.8889,-1.2056 116.8953,-1.1978 116.8992,-1.1885 116.9425,-1.1113 116.9971,-1.0283 117.0134,-1.0036 117.0467,-0.9612 117.1265,-0.8669 117.1347,-0.8204 117.1589,-0.8052 117.1994,-0.8537 117.3223,-0.8608 117.4835,-0.7886 117.4917,-0.7762 117.4936,-0.7607 117.4899,-0.7504 117.4819,-0.7382 117.4428,-0.6478 117.4458,-0.6367 117.5044,-0.4386 117.4997,-0.4235 117.4883,-0.418 117.4763,-0.42 117.462,-0.4259 117.3949,-0.4684 117.3799,-0.4811 117.3132,-0.523 117.3243,-0.4336 117.3398,-0.342 117.334,-0.3334 117.3047,-0.2672 117.3024,-0.2555 117.3042,-0.2397 117.3124,-0.2172 117.33,-0.1762 117.3284,-0.1638 117.3292,-0.1473 117.3502,-0.0966 117.3627,-0.0816 117.3737,-0.0721 117.3859,-0.0574 117.3974,-0.0327 117.3886,0.0073 117.3744,0.0244 117.3614,0.0316 117.3422,0.0755 117.3359,0.1035 117.35,0.1748 117.3912,0.2974 117.427,0.3774 117.4377,0.3976 117.4901,0.4362 117.5888,0.6412 117.5899,0.6531 117.5892,0.6698 117.5892,0.6944 117.6025,0.7265 117.6106,0.739 117.6645,0.7944 117.6798,0.8065 117.7028,0.8177 117.7713,0.8368 117.7845,0.8376 117.7954,0.8346 117.8048,0.8306 117.8166,0.8216 117.8275,0.8088 117.848,0.7897 117.8679,0.7841 117.8811,0.7835 117.89,0.7879 117.8987,0.7996 117.9028,0.8093 117.9043,0.8217 117.9014,0.8393 117.8978,0.8529 117.8533,0.9355 117.7994,1.0317 117.7686,1.0763 117.7592,1.0911 117.7562,1.1037 117.7612,1.1168 117.7748,1.122 117.8215,1.099 117.86,1.0656 117.8675,1.0523 117.8827,1.0064 117.8931,0.9757 117.8985,0.9606 117.9309,0.9242 117.9392,0.9188 117.9649,0.9038 117.9782,0.8964 117.9974,0.8878 118.0336,0.8764 118.0555,0.871 118.2114,0.8424 118.3724,0.8279 118.5126,0.8415 118.5277,0.8435 118.5437,0.8438 118.5603,0.8398 118.6108,0.8183 118.6278,0.8081 118.6442,0.8005 118.6615,0.7993 118.6751,0.8034 118.6838,0.8086 118.8015,0.8965 118.8124,0.9058 118.8433,0.9367 118.8686,0.9661 118.8756,0.9828 118.8716,0.994 118.8722,1.0379 118.8611,1.0475 118.8208,1.0621 118.7895,1.0713 118.7738,1.0696 118.7062,1.097 118.6624,1.1487 118.6476,1.177 118.6504,1.187 118.642,1.2023 118.5841,1.2535 118.4628,1.3569 118.4435,1.3651 118.4285,1.3672 118.4091,1.3625 118.394,1.3618 118.3179,1.3972 118.2874,1.4759 118.1552,1.5505 118.1423,1.5579 118.0024,1.6445 117.9889,1.6579 117.9189,1.729 117.7863,1.8217 117.7398,1.8747 117.7314,1.909 117.736,2.0355 117.7237,2.077 117.7101,2.0835 117.6971,2.1019 117.7145,2.1028 117.7724,2.0784 117.8069,2.114 117.9286,2.2211 117.9406,2.2359 117.9592,2.2652 117.9638,2.2743 117.9651,2.2995 117.9594,2.312 117.9222,2.3707 117.8655,2.4371 117.8229,2.4766 117.812,2.486 117.7451,2.5501 117.7065,2.5876 117.6838,2.6126 117.6781,2.6209 117.6737,2.6298 117.6678,2.6448 117.6647,2.6627 117.6623,2.6811 117.6614,2.7208 117.6568,2.7402 117.6446,2.7594 117.6302,2.772 117.5984,2.7878 117.5856,2.7899 117.5392,2.7979 117.5398,2.8715 117.556,2.9646 117.4857,3.0856 117.3293,3.1543 117.2132,3.1745 117.1432,3.2166 117.1306,3.2539 117.1473,3.2591 117.1796,3.2416 117.2235,3.2732 117.3007,3.3558 117.3061,3.3643 117.311,3.3796 117.3151,3.4131 117.3098,3.4288 117.2633,3.4409 117.2191,3.4385 117.1908,3.4322 117.1051,3.4859 117.0901,3.4992 117.0804,3.5163 117.0727,3.5363 117.0704,3.5477 117.071,3.5647 117.076,3.5901 117.0727,3.6097 116.9917,3.6167 116.9763,3.6147 116.9651,3.612 116.9486,3.6078 116.9222,3.6005 116.8992,3.5966 116.9194,3.6299 116.9393,3.6388 117.0312,3.6437 117.0443,3.644 117.2229,3.6327 117.3827,3.61 117.5653,3.623 117.6173,3.6313 117.6272,3.6352 117.6963,3.7004 117.698,3.7141 117.6577,3.7286 117.6367,3.7328 117.6511,3.77 117.6489,3.7849 117.5759,3.8623 117.5615,3.8689 117.5432,3.871 117.5296,3.8709 117.5076,3.869 117.4854,3.8723 117.3892,3.9274 117.4019,3.9322 117.4159,3.9322 117.4309,3.9304 117.4907,3.9428 117.4124,4.0155 117.3378,4.0716 117.2825,4.0848 117.2685,4.0909 117.2597,4.1031 117.2595,4.135 117.2692,4.1462 117.3595,4.12 117.4123,4.1366 117.4585,4.1654 117.3953,4.1706 117.3643,4.1745 117.3422,4.1792 117.3193,4.1842 117.3062,4.1911 117.291,4.2099 117.2868,4.2202 117.2776,4.2377 117.2684,4.2501 117.1184,4.3492 117.1061,4.3536 117.0904,4.3539 117.0778,4.3498 117.0695,4.3414 117.0586,4.3315 117.0437,4.3307 116.9108,4.3322 116.804,4.3462 116.7916,4.3476 116.7776,4.3476 116.7563,4.3444 116.7441,4.3405 116.7073,4.3257 116.5563,4.326 116.5094,4.3299 116.4014,4.3262 116.3952,4.3147 116.3335,4.2892 116.322,4.29 116.3092,4.2947 116.2935,4.3054 116.1824,4.3529 116.0215,4.3502 116.0082,4.3325 115.9424,4.279 115.9294,4.2733 115.916,4.2763 115.8992,4.2962 115.8724,4.3253 115.8549,4.3349 115.8445,4.3382 115.7563,4.3633 115.7407,4.3564 115.726,4.3393 115.7189,4.3169 115.6389,4.2402 115.6299,4.2349 115.5597,4.1755 115.5521,4.1627 115.5287,4.1041 115.5301,4.0934 115.5313,4.0737 115.4856,3.8498 115.4546,3.7374 115.446,3.7046 115.4405,3.6621 115.4407,3.609 115.4435,3.5908 115.4482,3.5818 115.4711,3.5354 115.4955,3.4539 115.4971,3.4306 115.4832,3.4167 115.4663,3.4208 115.4525,3.4243 115.4402,3.414 115.4283,3.3856 115.4227,3.3702 115.4085,3.3301 115.4036,3.3147 115.3997,3.2982 115.3815,3.2066 115.3795,3.1949 115.3829,3.1804 115.3981,3.1725 115.3686,3.047 115.3653,3.0367 115.3572,3.0241 115.2479,2.9884 115.1883,2.9844 115.1804,2.9945 115.1756,3.0033 115.1715,3.0132 115.1199,3.0075 115.0222,2.919 115.0101,2.9031 114.9886,2.848 114.9529,2.6106 114.9624,2.5979 114.9783,2.5944 114.9936,2.6029 115.0042,2.6085 115.04,2.6025 115.0556,2.5942 115.0697,2.5803 115.1067,2.527 115.1014,2.5054 115.0862,2.4899 115.0742,2.4847 115.0579,2.4802 114.9614,2.4197 114.8725,2.3579 114.8201,2.2909 114.8103,2.2832 114.8005,2.2798 114.7753,2.2741 114.7441,2.2768 114.6848,2.2583 114.6757,2.2463 114.6624,2.2144 114.6497,2.1633 114.6474,2.1478 114.6716,2.0624 114.7103,2.0416 114.7199,2.0452 114.7336,2.0444 114.7434,2.0182 114.7437,2.0057 114.733,1.9132 114.7276,1.8985 114.7159,1.8897 114.6545,1.8618 114.5823,1.7685 114.5457,1.6409 114.4604,1.4505 114.4481,1.4392 114.4316,1.4315 114.4154,1.4307 114.4048,1.4339 114.3831,1.4464 114.3642,1.4617 114.3473,1.4758 114.3244,1.4905 114.3153,1.4952 114.2963,1.503 114.2851,1.5061 114.2734,1.5083 114.2613,1.5069 114.1717,1.4721 114.1627,1.4686 114.1035,1.4422 113.974,1.4653 114.0043,1.3024 113.8923,1.2264 113.7243,1.0064 113.7203,0.8864 113.8163,0.8464 113.7843,0.7424 113.6683,0.5944 113.6955,0.5909 583,7.0,Indonesia 108.7257,0.8075 108.7367,0.7954 108.7539,0.7785 108.7629,0.767 108.7669,0.7572 108.7996,0.6457 108.8102,0.6082 108.8249,0.4261 108.8242,0.4061 108.8149,0.3865 108.7986,0.3512 108.7939,0.332 108.7966,0.3148 108.8039,0.3052 108.8128,0.3002 108.8305,0.2972 108.8511,0.2971 108.8643,0.2981 108.884,0.2974 108.9152,0.2928 108.9315,0.2833 108.9423,0.2735 108.9567,0.2597 108.9771,0.2393 108.9948,0.2158 108.9997,0.207 109.0434,0.1062 109.0559,0.0311 109.0689,-0.1325 109.0723,-0.1986 109.0535,-0.2119 108.99,-0.2046 108.9495,-0.2097 108.9399,-0.2139 108.9312,-0.2219 108.9219,-0.2367 108.9206,-0.2486 108.9248,-0.261 108.9778,-0.3987 108.9982,-0.5015 109.0025,-0.5108 109.0194,-0.5352 109.0288,-0.5458 109.0442,-0.558 109.1414,-0.5933 109.1534,-0.5882 109.1648,-0.5856 109.2352,-0.5814 109.2462,-0.5839 109.2835,-0.6045 109.2943,-0.6119 109.3919,-0.7258 109.3646,-0.7382 109.355,-0.7424 109.3495,-0.7438 109.1358,-0.6685 109.1285,-0.6773 109.1257,-0.688 109.1248,-0.7082 109.1456,-0.8382 109.1494,-0.8515 109.1575,-0.8667 109.1678,-0.8771 109.2541,-0.915 109.2693,-0.9167 109.2853,-0.9122 109.2934,-0.906 109.2982,-0.8902 109.2933,-0.8742 109.289,-0.8647 109.2917,-0.8547 109.3009,-0.8499 109.3192,-0.8479 109.3474,-0.8504 109.4273,-0.8729 109.4371,-0.877 109.4526,-0.8886 109.4681,-0.9108 109.4919,-0.9551 109.5279,-0.9723 109.5541,-0.9826 109.6067,-0.9524 109.749,-1.09 109.795,-1.1808 109.8842,-1.2801 109.9079,-1.2972 109.9224,-1.3102 109.9277,-1.3186 109.9343,-1.3322 109.9449,-1.3636 109.9471,-1.3752 109.9474,-1.3916 109.9461,-1.4636 109.9131,-1.6417 109.9086,-1.6573 109.8901,-1.6933 109.8767,-1.7151 109.8686,-1.7271 109.8562,-1.7385 109.834,-1.7536 109.825,-1.7582 109.8077,-1.7652 109.7913,-1.773 109.7833,-1.787 109.7804,-1.8261 109.7891,-1.8378 109.813,-1.8619 109.8257,-1.8701 109.8433,-1.8797 109.8767,-1.8924 109.9222,-1.911 109.9444,-1.9228 109.9617,-1.9399 109.9677,-1.9538 109.9913,-2.0135 110.0023,-2.0443 110.0042,-2.0593 110.0013,-2.0842 109.9881,-2.1293 109.9781,-2.1534 109.9733,-2.1689 109.9718,-2.1811 109.971,-2.2331 109.9742,-2.2438 110.0008,-2.2621 110.0086,-2.2743 110.0128,-2.2841 110.0164,-2.2941 110.0731,-2.5047 110.1009,-2.7063 110.1036,-2.7614 110.1172,-2.7763 110.1237,-2.7869 110.124,-2.8035 110.1222,-2.8154 110.1036,-2.8583 110.0879,-2.8837 110.0816,-2.8978 110.1077,-2.9675 110.1165,-2.9793 110.1377,-2.9988 110.1591,-3.0101 110.1811,-2.9928 110.1978,-2.9761 110.2056,-2.9696 110.2281,-2.9512 110.2365,-2.9455 110.363,-2.8773 110.3834,-2.8703 110.4131,-2.8659 110.4264,-2.8658 110.4451,-2.8676 110.4614,-2.8717 110.4724,-2.8783 110.4821,-2.8922 110.4892,-2.906 110.4924,-2.9162 110.5188,-3.0131 110.5167,-3.0293 110.4987,-3.0401 110.497,-3.0502 110.5163,-3.0652 110.5284,-3.0737 110.5415,-3.0779 110.5546,-3.0751 110.5793,-3.0586 110.5969,-3.0418 110.6101,-3.0141 110.6265,-2.9887 110.6547,-2.9553 110.665,-2.9452 110.6778,-2.9376 110.7872,-2.8857 110.8088,-2.8835 110.8361,-2.8851 110.8422,-2.8909 110.8396,-2.8989 110.7549,-2.9344 110.745,-2.9376 110.7064,-2.9469 110.6963,-2.9503 110.6689,-2.9641 110.6511,-2.9806 110.6421,-2.9924 110.6314,-3.0087 110.6273,-3.0217 110.632,-3.0306 110.782,-3.0908 110.7988,-3.094 110.8258,-3.0945 110.8373,-3.0926 110.9141,-3.0736 110.9378,-3.0634 110.9468,-3.0586 111.0154,-3.0175 111.0235,-3.012 111.0391,-2.9996 111.1048,-2.9629 111.1797,-2.9279 111.1988,-2.9198 111.2106,-2.9178 111.3013,-2.9252 111.3255,-2.9286 111.3419,-2.9328 111.3602,-2.9418 111.3746,-2.9544 111.3837,-2.966 111.3931,-2.9838 111.4014,-3.003 111.4118,-3.0163 111.4213,-3.0204 111.4342,-3.0182 111.4536,-3.01 111.4624,-3.0053 111.5711,-2.9431 111.5775,-2.9293 111.5566,-2.8807 111.5767,-2.7871 111.5808,-2.7775 111.5855,-2.7687 111.6027,-2.7513 111.626,-2.7467 111.6121,-2.7713 111.6053,-2.7851 111.6035,-2.8038 111.626,-2.8973 111.6307,-2.9059 111.6382,-2.9192 111.6683,-2.971 111.6763,-2.9835 111.6847,-2.9958 111.6996,-3.0221 111.7045,-3.038 111.7065,-3.0635 111.7063,-3.08 111.6989,-3.1104 111.6938,-3.1255 111.6898,-3.1427 111.6898,-3.1902 111.6987,-3.2703 111.7022,-3.2875 111.7057,-3.3044 111.7125,-3.3454 111.7155,-3.3633 111.7169,-3.3758 111.7173,-3.4023 111.7145,-3.4233 111.7064,-3.4528 111.6941,-3.4884 111.6866,-3.5014 111.6779,-3.5206 111.6797,-3.5348 111.7411,-3.5643 111.7628,-3.5696 111.77,-3.5695 111.7761,-3.5692 111.7869,-3.5663 111.822,-3.5462 111.8433,-3.5268 111.9513,-3.4228 112.0248,-3.3524 112.035,-3.3423 112.0474,-3.3339 112.0563,-3.3293 112.0664,-3.3257 112.1028,-3.314 112.1193,-3.3101 112.1662,-3.3096 112.1786,-3.311 112.2059,-3.3173 112.2407,-3.3306 112.2903,-3.3498 112.3066,-3.3605 112.3331,-3.3887 112.3445,-3.3984 112.3799,-3.4241 112.4046,-3.4405 112.4234,-3.4424 112.5147,-3.415 112.5244,-3.4112 112.5357,-3.4023 112.5462,-3.3921 112.5517,-3.3837 112.5649,-3.3695 112.633,-3.3215 112.682,-3.2882 112.7065,-3.2718 112.7982,-3.2179 112.8241,-3.2033 112.8418,-3.1457 112.8294,-3.1374 112.8197,-3.1234 112.8162,-3.1126 112.816,-3.0966 112.8224,-3.0793 112.8483,-3.0502 112.9075,-2.9863 112.9371,-2.9902 113.0078,-3.0635 113.1008,-3.1615 113.1172,-3.1796 113.1802,-3.226 113.2377,-3.2569 113.3112,-3.2399 113.3183,-3.2302 113.3191,-3.2171 113.3211,-3.2052 113.334,-3.1842 113.3471,-3.1767 113.3815,-3.1712 113.4776,-3.1689 113.4869,-3.1768 113.4986,-3.1993 113.5044,-3.2136 113.5111,-3.2348 113.5136,-3.2525 113.5135,-3.3141 113.5096,-3.3441 113.5067,-3.3551 113.4963,-3.3859 113.4811,-3.4219 113.4812,-3.4344 113.4883,-3.4444 113.5099,-3.457 113.5287,-3.466 113.5428,-3.4722 113.5542,-3.474 113.5887,-3.4741 113.6196,-3.4707 113.6488,-3.4659 113.6955,-3.4574 113.7265,-3.4473 113.7446,-3.4386 113.9034,-3.3578 113.9735,-3.3525 114.0807,-3.3819 114.1412,-3.4113 114.1656,-3.4277 114.1746,-3.4324 114.1897,-3.4378 114.2458,-3.4572 114.2643,-3.4703 114.2643,-3.4696 114.3763,-3.1496 114.4683,-2.9576 114.5803,-2.8696 114.7123,-2.7616 114.8443,-2.5616 114.9443,-2.4016 115.0163,-2.3816 115.0523,-2.3376 115.2443,-1.9456 115.2603,-1.8536 115.2403,-1.7176 115.2683,-1.5696 115.3283,-1.4816 115.4323,-1.4736 115.5123,-1.4776 115.5883,-1.3896 115.6363,-1.3016 115.6483,-1.1976 115.6163,-1.1056 115.5723,-1.0376 115.4603,-0.9376 115.3843,-0.8736 115.2843,-0.8416 115.2683,-0.7736 115.2763,-0.6456 115.2843,-0.5656 115.1763,-0.4776 115.1403,-0.4096 115.1203,-0.3176 115.1523,-0.2216 115.2123,-0.0976 115.1643,-0.0016 115.0243,-0.0616 114.9323,-0.1856 114.8083,-0.1736 114.7403,-0.0216 114.7203,0.1024 114.7603,0.2704 114.8363,0.3424 114.9883,0.4024 114.9643,0.5104 114.8843,0.6664 114.8083,0.7544 114.6883,0.7264 114.6163,0.7024 114.4723,0.6264 114.3163,0.5544 114.0643,0.5824 113.9643,0.6464 113.8963,0.6464 113.7603,0.5824 113.6683,0.5944 113.7843,0.7424 113.8163,0.8464 113.7203,0.8864 113.7243,1.0064 113.8923,1.2264 114.0043,1.3024 113.974,1.4653 113.9567,1.4684 113.906,1.4574 113.8771,1.4521 113.8593,1.4494 113.8407,1.447 113.803,1.4437 113.7943,1.4394 113.7603,1.4043 113.7483,1.3889 113.7376,1.3727 113.7149,1.347 113.6629,1.3035 113.5316,1.2246 113.5151,1.228 113.5027,1.2363 113.4892,1.2501 113.4597,1.2822 113.3291,1.2869 113.2475,1.3426 113.2326,1.3547 113.2138,1.3637 112.9997,1.43 112.9306,1.5381 112.9118,1.5551 112.8729,1.5711 112.8503,1.576 112.7577,1.5862 112.5541,1.5615 112.3735,1.569 112.3465,1.5665 112.1839,1.498 112.0757,1.4485 112.059,1.4236 112.0559,1.4101 112.066,1.4013 112.0841,1.4019 112.089,1.3925 112.0873,1.3746 112.0065,1.1487 111.9852,1.1395 111.9491,1.1343 111.9296,1.1328 111.9163,1.1329 111.8581,1.1367 111.84,1.1338 111.8292,1.1309 111.8204,1.1262 111.7659,1.0745 111.7547,1.0546 111.7485,1.0401 111.735,1.0195 111.7206,1.0066 111.7019,0.9976 111.6847,0.9941 111.6726,0.9927 111.6077,1.0049 111.5992,1.0105 111.5751,1.0237 111.5567,1.0327 111.5445,1.0374 111.5303,1.0358 111.5104,1.0285 111.4404,0.9993 111.2947,1.007 111.2818,1.0078 111.2699,1.0106 111.1864,1.0433 111.1336,1.066 111.0876,1.0687 111.0709,1.0612 110.8997,1.0238 110.8825,1.02 110.8704,1.0191 110.8168,1.0174 110.7827,1.0141 110.7614,1.0044 110.6954,0.9491 110.689,0.9332 110.6886,0.9166 110.6839,0.9074 110.5782,0.8773 110.4747,0.8551 110.4507,0.8519 110.4314,0.8531 110.4209,0.856 110.3985,0.8643 110.3363,0.9017 110.2089,1.0009 110.0753,1.1749 110.0613,1.1845 110.0461,1.1867 110.0324,1.1864 110.0137,1.1884 109.9924,1.1939 109.9779,1.2 109.9607,1.2106 109.9485,1.2187 109.8729,1.2874 109.8621,1.3005 109.8567,1.3158 109.8086,1.4055 109.7016,1.467 109.6168,1.5375 109.5991,1.5541 109.5887,1.5641 109.576,1.5785 109.5458,1.6153 109.5443,1.7044 109.4927,1.7873 109.4805,1.7892 109.471,1.7932 109.4608,1.8004 109.441,1.8317 109.4244,1.905 109.5077,2.0294 109.5254,2.0712 109.453,1.9866 109.3169,1.9521 109.2146,1.8862 109.2122,1.8134 109.2089,1.7892 109.1604,1.7064 109.1522,1.6933 109.1406,1.6775 109.111,1.6456 109.087,1.6286 109.078,1.6229 109.0494,1.6108 109.0365,1.6032 109.0239,1.5949 108.9831,1.5674 108.9715,1.5587 108.9548,1.5449 108.9447,1.5307 108.94,1.5217 108.937,1.5111 108.9358,1.4918 108.9363,1.4582 108.9387,1.4394 108.9407,1.4212 108.9405,1.3804 108.9384,1.3649 108.9341,1.3527 108.9182,1.3207 108.9031,1.2946 108.8868,1.2728 108.876,1.257 108.8646,1.2369 108.8602,1.225 108.8592,1.213 108.9333,1.2166 109.0178,1.2606 109.0273,1.2783 109.0432,1.3101 109.0516,1.3229 109.1097,1.3944 109.1211,1.4036 109.141,1.393 109.052,1.2761 109.0363,1.2575 108.9737,1.2106 108.9594,1.2045 108.9428,1.2 108.8367,1.1755 108.8381,1.0543 108.8526,1.021 108.858,1.0055 108.8608,0.9947 108.8627,0.9761 108.8626,0.9627 108.8568,0.9415 108.8484,0.9223 108.8403,0.9098 108.8211,0.8879 108.802,0.8698 108.7876,0.8671 108.7719,0.8666 108.732,0.8347 108.7257,0.8242 108.7236,0.8098 108.7257,0.8075 895,7.0,Kazakhstan 46.4602,48.3556 46.592,48.3256 46.7522,48.2883 46.912,48.2508 47.0533,48.217 47.0669,48.1931 47.0621,48.1822 47.0542,48.0472 47.0522,47.8913 47.0769,47.7574 47.1215,47.7294 47.1881,47.6962 47.3281,47.6425 47.3449,47.7166 47.3428,47.7585 47.3516,47.7829 47.3768,47.7874 47.4171,47.7782 47.4533,47.7661 47.5315,47.7397 47.5648,47.7252 47.5951,47.715 47.6229,47.7114 47.6697,47.7183 47.7271,47.7241 47.8499,47.7279 47.9684,47.7281 47.9959,47.7253 48.0336,47.7143 48.0741,47.695 48.1352,47.6505 48.154,47.6357 48.1718,47.6204 48.1954,47.5867 48.2471,47.5182 48.3106,47.4476 48.3882,47.3778 48.5031,47.3115 48.5555,47.2169 48.6516,47.0446 48.9122,46.7708 48.9577,46.7228 48.8721,46.651 48.6881,46.6501 48.6571,46.6931 48.6415,46.7065 48.6219,46.7145 48.5969,46.7193 48.5681,46.7217 48.5274,46.7183 48.4757,46.7007 48.4466,46.684 48.4364,46.6663 48.4297,46.635 48.4257,46.614 48.5076,46.5078 48.5512,46.5064 48.604,46.5105 48.6544,46.5086 48.6741,46.5035 48.6955,46.4831 48.7167,46.4622 48.7716,46.4291 48.8142,46.4288 48.8455,46.4348 49.1056,46.317 49.153,46.2937 49.147,46.3253 49.1839,46.3706 49.2113,46.3858 49.2556,46.3542 49.2988,46.342 49.3175,46.4403 49.2545,46.5121 49.3313,46.4861 49.3841,46.458 49.4928,46.477 49.5497,46.5221 49.7023,46.5089 49.7419,46.4791 49.7561,46.5071 49.865,46.5487 49.997,46.6229 50.0746,46.6827 50.1209,46.7042 50.1504,46.7074 50.226,46.7452 50.2918,46.7967 50.361,46.8474 50.4499,46.8188 50.541,46.8541 50.58,46.8731 50.6376,46.8929 50.6601,46.8732 50.7141,46.8862 50.7473,46.9284 50.7719,46.9544 50.9019,47.0051 50.9381,47.0148 51.1212,47.0611 51.1478,47.0598 51.1749,47.0522 51.2152,47.0415 51.2859,47.0282 51.4538,47.0014 51.5614,46.9889 51.6087,46.9356 51.6105,46.9057 51.7064,46.8503 51.7938,46.8316 52.0171,46.7613 52.099,46.7521 52.1315,46.7495 52.166,46.7491 52.3442,46.8964 52.3553,46.9329 52.3797,46.9421 52.4756,46.9216 52.4978,46.9014 52.5539,46.8905 52.6852,46.8877 52.7908,46.8984 52.8592,46.8805 52.9839,46.835 53.0125,46.7889 53.0211,46.7579 53.0254,46.7248 53.0988,46.6699 53.1189,46.6617 53.1328,46.6305 53.1307,46.5903 53.016,46.5002 52.9747,46.4907 52.9577,46.5008 52.9318,46.4771 52.9267,46.4294 52.9616,46.4298 52.9883,46.4066 53.0517,46.3402 53.0712,46.3173 53.083,46.2848 53.0892,46.2617 53.0826,46.2213 53.0316,46.0306 53.0031,45.9929 53.008,45.9509 52.886,45.7786 52.8573,45.7469 52.8378,45.7375 52.8042,45.7261 52.6726,45.5921 52.6631,45.533 52.6593,45.4975 52.6739,45.4673 52.8186,45.4091 53.0615,45.3301 53.0856,45.3239 53.114,45.32 53.1537,45.2864 53.0305,45.2468 52.7745,45.2748 52.692,45.2875 52.551,45.3235 52.4676,45.3509 52.4448,45.3547 52.4097,45.3566 52.0048,45.3279 51.8761,45.3139 51.8556,45.3129 51.7155,45.3521 51.6516,45.3513 51.6312,45.3379 51.5235,45.286 51.4945,45.282 51.4339,45.2806 51.4031,45.2839 51.3798,45.3018 51.3335,45.319 51.2362,45.1995 51.1768,45.1146 51.1711,45.0486 51.1115,45.0087 50.9496,44.9419 50.8909,44.9225 50.8759,44.9037 50.8912,44.8013 50.9296,44.7762 50.952,44.7639 50.9981,44.7427 51.0414,44.7273 51.0864,44.7084 51.1349,44.6859 51.1549,44.6721 51.1744,44.6524 51.2099,44.5776 51.2218,44.5528 51.2444,44.5401 51.294,44.5459 51.327,44.5561 51.3647,44.555 51.4778,44.4968 51.5014,44.4767 51.4885,44.4607 51.3573,44.4614 51.304,44.4675 51.0772,44.4285 51.0601,44.4306 51.0159,44.4437 50.9684,44.4611 50.9214,44.4818 50.8486,44.5457 50.8322,44.5612 50.802,44.5753 50.7139,44.5779 50.6227,44.5652 50.4579,44.5769 50.3148,44.5904 50.2359,44.6028 50.1693,44.5261 50.1606,44.4492 50.159,44.3471 50.1625,44.3178 50.2131,44.278 50.318,44.2508 50.3771,44.2391 50.4429,44.2363 50.5186,44.2279 50.5995,44.2159 50.6532,44.2023 50.6796,44.192 50.7548,44.1568 50.7719,44.1386 50.7806,44.1137 50.7906,44.018 50.8295,43.9572 50.92,43.8151 50.9464,43.7581 50.9574,43.7402 51.0409,43.6122 51.0839,43.5683 51.1388,43.5641 51.1973,43.5058 51.2464,43.3928 51.2512,43.3634 51.2476,43.3046 51.2438,43.2499 51.2238,43.199 51.2052,43.1682 51.1922,43.1294 51.1971,43.103 51.2189,43.0963 51.2436,43.1008 51.3506,43.1143 51.5803,43.1338 51.601,43.12 51.71,42.9609 51.7137,42.9363 51.7226,42.9164 51.7594,42.8593 51.8252,42.7967 51.8791,42.7903 51.906,42.8028 51.9305,42.8103 52.0189,42.8334 52.1002,42.8352 52.1303,42.8248 52.2706,42.7773 52.3114,42.7837 52.3508,42.7844 52.3934,42.7772 52.4343,42.7686 52.4784,42.7586 52.503,42.7507 52.5387,42.7338 52.6601,42.6647 52.6727,42.6011 52.6467,42.5381 52.5645,42.3707 52.5219,42.2874 52.4939,42.2521 52.4456,42.2023 52.4305,42.1842 52.394,42.1395 52.3656,42.1299 52.3331,42.0437 52.3599,41.9492 52.3832,41.9307 52.3997,41.9171 52.4096,41.896 52.4214,41.8533 52.4171,41.8322 52.3984,41.8019 52.36,41.7124 52.368,41.694 52.4192,41.7338 52.7345,41.9688 52.85,42.0462 52.884,42.065 52.9331,42.0882 53.243,42.1881 53.2671,42.1955 53.3244,42.2097 53.3727,42.2203 53.4664,42.2316 53.524,42.2366 53.5679,42.2393 53.5889,42.2414 53.6977,42.2588 53.8028,42.2772 53.8289,42.2827 53.8606,42.2908 53.9209,42.3009 53.9488,42.3027 53.9809,42.3009 54.098,42.2894 54.1238,42.2847 54.1509,42.2748 54.1734,42.2628 54.2402,42.2207 54.4914,42.1056 54.6565,42.0259 54.6855,42.0115 54.8586,41.8827 54.8871,41.8535 54.8826,41.808 54.8872,41.7693 54.9048,41.7454 54.9261,41.7242 54.9723,41.6867 55.05,41.6049 55.0709,41.5779 55.1181,41.5159 55.1311,41.4966 55.152,41.4589 55.1639,41.4419 55.213,41.3932 55.2408,41.3772 55.2795,41.3617 55.3163,41.3422 55.3312,41.3241 55.3387,41.305 55.3598,41.2616 55.3787,41.2421 55.4525,41.2173 55.5759,41.2206 55.7293,41.2422 55.7574,41.2536 55.7885,41.2743 55.8178,41.2849 55.8567,41.2872 55.9241,41.2819 55.9233,41.3073 55.9223,41.5294 55.922,41.8487 55.9218,42.0852 55.9228,42.1689 55.9222,42.433 55.9213,42.7118 55.921,42.9631 55.9216,43.0328 55.9212,43.2981 55.9204,43.5773 55.9198,43.8293 55.9209,43.899 55.9202,44.459 55.9191,44.6835 55.9204,44.951 56.1789,45.0123 56.3089,45.0427 56.5697,45.1025 56.635,45.1172 56.6709,45.1216 56.6783,45.1272 56.7002,45.1323 56.984,45.1963 57.3121,45.2691 57.5093,45.3122 57.6987,45.3529 57.927,45.402 58.1916,45.4576 58.4833,45.518 58.4886,45.5188 59.5692,44.9491 61.0638,44.1612 61.0805,44.1484 61.2262,44.0297 61.5285,43.7805 61.7286,43.6137 61.8705,43.4942 61.9387,43.4355 61.9584,43.4392 62.2956,43.4836 62.4009,43.497 62.5277,43.5131 62.7393,43.5398 63.1235,43.5872 63.3343,43.5702 63.4489,43.5607 63.6782,43.541 63.9081,43.5214 63.9322,43.5199 64.3681,43.4989 64.4954,43.551 64.7529,43.6541 64.841,43.6883 64.9362,43.6033 65.1253,43.4316 65.1773,43.3833 65.3877,43.2906 65.4277,43.2722 65.5467,43.1047 65.6567,42.9407 65.7307,42.8289 66.0321,42.9482 66.0187,42.7521 66.0095,42.6234 66.0042,42.5562 65.9792,42.376 65.9452,42.3756 65.9452,42.3745 65.9527,42.3741 66.1184,42.3852 67.7313,43.2026 67.5656,43.302 67.6429,43.4567 67.7423,43.5561 67.7423,43.7108 67.8638,43.6335 67.8749,43.7881 67.8307,43.8323 67.8638,43.9096 67.9854,43.9428 67.8307,44.0532 67.6761,44.1306 67.6871,44.2189 67.3999,44.3405 67.3999,45.1137 67.2563,45.1248 67.0574,45.2242 67.0574,45.3015 67.1237,45.3568 67.1348,45.5114 67.2563,45.7324 67.0795,45.8649 67.0685,45.9643 67.0022,46.119 66.3283,46.0859 65.533,46.13 65.2126,46.2847 65.069,46.4394 64.8812,46.4061 64.2957,46.6381 63.6992,46.7817 63.2131,46.9032 62.9811,47.0248 62.5945,46.9916 62.727,47.091 63.0584,47.2899 63.6992,47.555 64.2073,47.8422 64.0195,47.9306 63.9201,48.1074 63.7765,48.2731 63.655,48.3946 63.434,48.4719 63.2794,48.5382 62.959,48.6376 63.0032,48.7923 62.8817,48.8585 62.7602,48.7923 62.484,48.9469 62.3625,49.1237 62.2299,49.1568 62.252,49.2231 62.4288,49.212 62.2078,49.4551 62.2852,49.5214 62.3846,49.5103 62.3514,49.6318 62.5061,49.7092 62.473,49.7975 62.6276,49.8749 62.8044,49.8307 62.8375,49.9632 62.6497,50.1621 62.4951,50.3499 62.3404,50.5045 62.2741,50.6702 62.0974,50.6371 62.1416,50.7697 62.3183,50.8138 62.0753,50.9575 62.1195,51.0679 62.009,51.09 61.9096,51.0458 61.7991,51.1011 61.8322,51.1784 61.7549,51.2668 61.5911,51.2067 61.5879,51.2069 61.5909,51.2064 61.5662,51.2026 61.5269,51.1935 61.4973,51.1847 61.4725,51.1732 61.4563,51.1586 61.4464,51.1401 61.4038,50.9663 61.3738,50.8389 61.3679,50.8143 61.329,50.7419 61.31,50.7315 61.2881,50.7249 61.2461,50.7181 61.2097,50.7145 61.1847,50.7101 61.0849,50.6925 61.0522,50.6865 60.9992,50.6762 60.9551,50.6649 60.8376,50.6365 60.6779,50.6028 60.6376,50.6019 60.606,50.6032 60.2661,50.6277 60.2264,50.6323 60.179,50.6494 60.1461,50.6631 60.0852,50.7104 60.0777,50.7366 60.0788,50.7769 60.0278,50.8037 59.9612,50.8055 59.9276,50.7996 59.8965,50.7844 59.8767,50.7549 59.855,50.72 59.8451,50.6909 59.8485,50.6532 59.8043,50.5867 59.724,50.488 59.6644,50.4755 59.6302,50.4743 59.6084,50.4777 59.5686,50.4772 59.5353,50.4645 59.51,50.4532 59.4526,50.42 59.4397,50.4249 59.3774,50.4751 59.4069,50.4995 59.4518,50.4945 59.4874,50.5021 59.4937,50.528 59.3984,50.5718 59.3724,50.5765 59.2678,50.5767 59.1522,50.6077 59.1035,50.6102 59.0059,50.6112 58.8604,50.6236 58.8342,50.6283 58.8085,50.6394 58.5763,50.7463 58.5072,50.8073 58.4807,50.8631 58.5214,50.9002 58.5361,50.9437 58.5255,50.9723 58.5118,50.9875 58.4832,51.0045 58.2883,51.0686 58.2481,51.0969 58.2247,51.0907 58.1311,51.0587 58.1228,51.0378 58.0934,50.9992 58.0623,50.9949 57.755,51.0431 57.704,51.0573 57.6666,51.0234 57.6614,50.9937 57.6636,50.9639 57.6724,50.922 57.6717,50.9 57.6652,50.8707 57.648,50.8517 57.6077,50.8477 57.5565,50.8652 57.5249,50.8679 57.4737,50.8651 57.4516,50.8503 57.4406,50.8282 57.4226,50.8139 57.376,50.8066 57.34,50.8142 57.297,50.8297 57.2685,50.8448 57.2529,50.8615 57.1785,50.9592 57.1204,51.0064 57.0399,51.0255 57.012,51.0169 56.9633,51.0112 56.7765,51.0002 56.748,51.0052 56.7192,51.0231 56.693,51.0327 56.6668,51.0251 56.6193,51.0042 56.6152,50.984 56.6267,50.9599 56.6415,50.9251 56.5365,50.9304 56.5041,50.9532 56.4866,50.9697 56.4671,50.9904 56.4432,51.0156 56.4154,51.0217 56.3923,51.0103 56.3548,50.975 56.3607,50.9478 56.3648,50.9179 56.2699,50.8428 56.2418,50.8305 56.1753,50.8389 56.1487,50.8458 56.1177,50.8567 56.0902,50.8552 56.077,50.8358 56.049,50.7564 56.0414,50.7138 56.0335,50.6849 55.9498,50.6335 55.9152,50.6137 55.8466,50.5812 55.8269,50.5735 55.7828,50.5636 55.7545,50.5554 55.6952,50.5331 55.6722,50.5195 55.6083,50.4742 55.591,50.4792 55.5714,50.4884 55.4538,50.5544 55.4416,50.5797 55.4258,50.5966 55.4061,50.6052 55.3683,50.6109 55.3276,50.6062 55.2922,50.5937 55.2149,50.6286 55.0064,50.7553 54.9903,50.7763 54.9039,50.8399 54.7452,50.9244 54.6301,50.9708 54.5904,50.9784 54.5634,50.9779 54.4706,50.951 54.4655,50.8635 54.4973,50.8591 54.5514,50.8457 54.5892,50.8125 54.5883,50.7348 54.5751,50.6692 54.5827,50.6376 54.6108,50.5912 54.6189,50.5511 54.6039,50.5316 54.5241,50.4844 54.4414,50.4705 54.4164,50.475 54.3688,50.4993 54.3364,50.5298 54.3293,50.5382 54.3161,50.5674 54.3585,50.7108 54.3853,50.7368 54.4211,50.7715 54.4185,50.8006 54.3428,50.827 54.2913,50.8365 54.2267,50.846 54.1214,50.9081 54.0855,50.9397 54.061,51.0253 54.0523,51.045 53.8675,51.1368 53.832,51.1406 53.8022,51.1336 53.669,51.1551 53.593,51.1701 53.5293,51.2418 53.5296,51.2902 53.5551,51.3235 53.3411,51.4332 53.2726,51.4414 53.243,51.4325 53.2119,51.4268 53.1214,51.4334 53.0651,51.4416 52.9663,51.4319 52.9042,51.4111 52.8033,51.4056 52.7594,51.4253 52.6864,51.4438 52.6172,51.4132 52.5828,51.3972 52.5263,51.3967 52.4778,51.4113 52.4495,51.4247 52.4259,51.4442 52.4085,51.4691 52.4015,51.4896 52.3925,51.523 52.2836,51.6992 52.26,51.7207 52.2319,51.7187 52.0839,51.6585 52.0576,51.6218 52.0283,51.6051 52.0082,51.6019 51.9446,51.6036 51.9248,51.6064 51.8755,51.624 51.8363,51.6265 51.8128,51.622 51.7909,51.6118 51.7065,51.5439 51.6994,51.5227 51.7162,51.4853 51.7219,51.4436 51.6321,51.4022 51.5972,51.3961 51.569,51.4171 51.4451,51.4333 51.3459,51.4096 51.2201,51.4215 51.1782,51.4812 51.2221,51.4954 51.3096,51.5112 51.3226,51.5557 51.3049,51.5807 51.1956,51.6239 51.1245,51.6183 51.097,51.6168 50.8651,51.6283 50.8341,51.6418 50.8107,51.6733 50.7842,51.6916 50.7628,51.6999 50.7326,51.7048 50.6941,51.7091 50.6814,51.6926 50.6799,51.6617 50.6968,51.6346 50.7161,51.6131 50.7374,51.5804 50.7412,51.5553 50.7333,51.5344 50.6997,51.5161 50.6318,51.5123 50.6046,51.5157 50.6104,51.5352 50.6348,51.5605 50.5428,51.5849 50.5219,51.578 50.4792,51.5206 50.4732,51.4688 50.4742,51.4334 50.4722,51.4122 50.3974,51.3727 50.3064,51.364 50.279,51.3105 50.2909,51.2682 50.1867,51.2183 50.123,51.2069 50.0932,51.2038 49.9973,51.1912 49.9415,51.1815 49.8911,51.1669 49.8628,51.1519 49.7875,51.0988 49.7525,51.0707 49.7263,51.0523 49.5086,51.0491 49.4616,51.051 49.399,51.065 49.3438,51.023 49.2897,50.912 49.3147,50.89 49.3465,50.8714 49.3645,50.8449 49.3639,50.8078 49.3504,50.7927 49.3319,50.7842 49.2485,50.7568 49.226,50.7513 49.1441,50.7394 49.0909,50.7356 49.0682,50.7264 49.0528,50.7112 49.0154,50.677 48.9534,50.628 48.9202,50.6102 48.7841,50.5467 48.7465,50.5386 48.6657,50.5499 48.6237,50.5335 48.6171,50.4464 48.6323,50.3665 48.6494,50.2949 48.6556,50.2735 48.6754,50.2098 48.7363,50.1051 48.8077,50.0414 48.8416,49.9751 48.7926,49.9236 48.7615,49.9016 48.7183,49.8822 48.672,49.865 48.6164,49.8479 48.5811,49.8381 48.5436,49.8293 48.4199,49.7895 48.3978,49.7725 48.3751,49.7603 48.3051,49.776 48.1775,49.8142 48.0943,49.9088 48.0683,49.9511 48.0631,49.9854 48.0577,50.0136 48.0384,50.041 47.9401,50.1335 47.8674,50.1929 47.6888,50.3173 47.5553,50.3992 47.5277,50.4024 47.5044,50.398 47.482,50.3916 47.4492,50.3781 47.4142,50.3594 47.375,50.3189 47.3641,50.2974 47.3391,50.2706 47.2911,50.2545 47.2486,50.2383 47.211,50.1233 47.2343,50.0995 47.2524,50.087 47.2701,50.0711 47.2845,50.0414 47.2745,50.018 47.2319,49.9745 47.1927,49.9399 47.1244,49.89 47.081,49.8771 47.0498,49.8712 47.0196,49.8645 46.9757,49.8534 46.9394,49.8434 46.9121,49.8343 46.8797,49.8214 46.862,49.8085 46.7919,49.5392 46.7336,49.3082 46.7354,49.2818 46.7695,49.2755 46.8061,49.2634 46.8311,49.2514 46.8544,49.2387 46.8773,49.2257 46.9516,49.1831 46.9711,49.1682 46.9901,49.1408 46.9957,49.1029 46.9908,49.0773 46.975,49.0475 46.9477,49.015 46.927,48.9934 46.8932,48.9625 46.8752,48.95 46.8463,48.9341 46.8136,48.9224 46.78,48.9109 46.7412,48.8959 46.7107,48.8804 46.5635,48.608 46.5392,48.5616 46.4884,48.4685 46.4602,48.4153 46.4319,48.362 46.4602,48.3556 5,4.0,Russia 47.0894,54.6046 47.0984,54.6035 47.0741,54.6014 47.0833,54.6053 47.0894,54.6046 877,4.0,Russia 41.0469,50.7189 41.2347,50.6462 41.3022,50.5664 41.4311,50.5541 41.425,50.5173 41.3206,50.4743 41.3206,50.4252 41.3882,50.37 41.4127,50.3209 41.2654,50.1797 41.382,50.0324 41.4925,50.0079 41.4802,49.9342 41.5784,49.8974 41.7564,49.8545 41.8423,49.7992 42.0878,49.6273 42.0449,49.5844 42.008,49.4739 41.9774,49.4616 41.9467,49.3512 41.9774,49.3266 41.9896,49.2407 41.9283,49.2345 41.9589,49.1732 42.0019,49.0872 42.2106,49.1118 42.272,49.0811 42.2904,48.989 42.3763,49.0075 42.5604,48.9277 42.5604,48.8602 42.585,48.8172 42.6463,48.7435 42.5543,48.6638 42.5543,48.6331 42.5911,48.5471 42.5481,48.4919 42.1369,48.4367 41.9774,48.3507 42.051,48.228 41.9405,48.2157 41.9651,48.1666 42.0019,48.1114 41.9528,48.0807 41.9221,48.007 41.9589,47.9763 42.0756,47.9886 42.1799,47.9702 42.2229,48.0009 42.272,47.9702 42.364,47.9763 42.6463,47.7922 42.72,47.6326 42.8305,47.4669 42.8918,47.4669 42.9409,47.5283 43.0637,47.5283 43.0576,47.4362 43.211,47.4117 43.432,47.4362 43.567,47.3994 43.6161,47.4362 43.5363,47.5099 43.6038,47.6449 43.7081,47.7063 43.8554,47.7063 43.9598,47.7738 43.9168,47.8106 43.9843,47.8658 44.2912,47.8106 44.2851,47.8842 44.3587,47.9149 44.3649,47.9947 44.2176,48.0192 44.1869,48.1665 44.2176,48.2095 44.4447,48.1481 44.4385,48.007 44.5244,48.007 44.549,48.0438 44.7024,48.0008 44.8436,48.099 44.819,48.1543 44.8436,48.1727 45.0154,48.0683 45.1934,48.0499 45.31,48.0561 45.4451,47.9579 45.6046,48.0008 45.6353,47.9394 45.6046,47.8719 45.6046,47.8167 45.666,47.786 45.7213,47.6755 45.801,47.6571 45.8195,47.6019 45.9606,47.4914 46.2429,47.3871 46.5682,47.5957 46.7278,47.5221 46.4087,47.3564 46.7094,46.9452 46.826,46.9452 46.8751,46.804 47.0224,46.8101 47.1513,46.6874 47.0347,46.6321 46.8997,46.583 46.8322,46.5094 46.8628,46.3682 46.5682,46.3928 46.378,46.2271 46.7831,46.1964 46.7278,46.0245 47.0286,46.0736 47.0899,46.0429 46.9488,45.9386 46.8076,45.5151 47.2495,45.6379 47.452,45.4476 47.4533,45.4448 47.4511,45.4701 47.4365,45.5071 47.477,45.4767 47.5015,45.512 47.4933,45.5485 47.474,45.5843 47.414,45.6007 47.3477,45.6224 47.3238,45.6925 47.4215,45.6739 47.4373,45.6612 47.5068,45.5825 47.5293,45.5521 47.5488,45.5125 47.5805,45.5068 47.5759,45.5369 47.5875,45.5567 47.557,45.659 47.5218,45.6726 47.487,45.6871 47.4888,45.7158 47.5297,45.7121 47.549,45.7053 47.7634,45.6037 47.7872,45.6649 47.9107,45.676 48.0697,45.6885 48.1252,45.6856 48.1561,45.6922 48.1892,45.7158 48.2736,45.7855 48.3055,45.8229 48.3845,45.8815 48.5025,45.9118 48.531,45.8949 48.5585,45.8584 48.6447,45.7783 48.6933,45.8024 48.6702,45.9156 48.6564,45.9708 48.628,46.0075 48.5664,46.0282 48.6013,46.0658 48.6416,46.079 48.7132,46.0403 48.8423,46.0781 48.9771,46.1433 49.0851,46.234 49.1182,46.2209 49.2265,46.2051 49.1877,46.2374 49.162,46.2587 49.153,46.2937 49.1056,46.317 48.8455,46.4348 48.8142,46.4288 48.7716,46.4291 48.7167,46.4622 48.6955,46.4831 48.6741,46.5035 48.6544,46.5086 48.604,46.5105 48.5512,46.5064 48.5076,46.5078 48.4257,46.614 48.4297,46.635 48.4364,46.6663 48.4466,46.684 48.4757,46.7007 48.5274,46.7183 48.5681,46.7217 48.5969,46.7193 48.6219,46.7145 48.6415,46.7065 48.6571,46.6931 48.6881,46.6501 48.8721,46.651 48.9577,46.7228 48.9122,46.7708 48.6516,47.0446 48.5555,47.2169 48.5031,47.3115 48.3882,47.3778 48.3106,47.4476 48.2471,47.5182 48.1954,47.5867 48.1718,47.6204 48.154,47.6357 48.1352,47.6505 48.0741,47.695 48.0336,47.7143 47.9959,47.7253 47.9684,47.7281 47.8499,47.7279 47.7271,47.7241 47.6697,47.7183 47.6229,47.7114 47.5951,47.715 47.5648,47.7252 47.5315,47.7397 47.4533,47.7661 47.4171,47.7782 47.3768,47.7874 47.3516,47.7829 47.3428,47.7585 47.3449,47.7166 47.3281,47.6425 47.1881,47.6962 47.1215,47.7294 47.0769,47.7574 47.0522,47.8913 47.0542,48.0472 47.0621,48.1822 47.0669,48.1931 47.0533,48.217 46.912,48.2508 46.7522,48.2883 46.592,48.3256 46.4319,48.362 46.4602,48.4153 46.4884,48.4685 46.5392,48.5616 46.5635,48.608 46.7107,48.8804 46.7412,48.8959 46.78,48.9109 46.8136,48.9224 46.8463,48.9341 46.8752,48.95 46.8932,48.9625 46.927,48.9934 46.9477,49.015 46.975,49.0475 46.9908,49.0773 46.9957,49.1029 46.9901,49.1408 46.9711,49.1682 46.9516,49.1831 46.8773,49.2257 46.8544,49.2387 46.8311,49.2514 46.8061,49.2634 46.7695,49.2755 46.7354,49.2818 46.7336,49.3082 46.7919,49.5392 46.862,49.8085 46.8797,49.8214 46.9121,49.8343 46.9394,49.8434 46.9757,49.8534 47.0196,49.8645 47.0498,49.8712 47.081,49.8771 47.1244,49.89 47.1927,49.9399 47.2319,49.9745 47.2745,50.018 47.2845,50.0414 47.2701,50.0711 47.2524,50.087 47.2343,50.0995 47.211,50.1233 47.2486,50.2383 47.2911,50.2545 47.3391,50.2706 47.3641,50.2974 47.375,50.3189 47.4142,50.3594 47.4492,50.3781 47.482,50.3916 47.5044,50.398 47.5277,50.4024 47.5553,50.3992 47.6888,50.3173 47.8674,50.1929 47.9401,50.1335 48.0384,50.041 48.0577,50.0136 48.0631,49.9854 48.0683,49.9511 48.0943,49.9088 48.1775,49.8142 48.3051,49.776 48.3751,49.7603 48.3978,49.7725 48.4199,49.7895 48.5436,49.8293 48.5811,49.8381 48.6164,49.8479 48.672,49.865 48.7183,49.8822 48.7615,49.9016 48.7926,49.9236 48.8416,49.9751 48.8077,50.0414 48.7363,50.1051 48.6754,50.2098 48.6556,50.2735 48.6494,50.2949 48.6323,50.3665 48.6171,50.4464 48.6237,50.5335 48.6657,50.5499 48.7465,50.5386 48.7841,50.5467 48.9202,50.6102 48.9534,50.628 49.0154,50.677 49.0528,50.7112 49.0682,50.7264 49.0909,50.7356 49.1441,50.7394 49.226,50.7513 49.2485,50.7568 49.3319,50.7842 49.3504,50.7927 49.3639,50.8078 49.3645,50.8449 49.3465,50.8714 49.3147,50.89 49.2897,50.912 49.3438,51.023 49.399,51.065 49.4616,51.051 49.5086,51.0491 49.7263,51.0523 49.7525,51.0707 49.7875,51.0988 49.8628,51.1519 49.8911,51.1669 49.9415,51.1815 49.9973,51.1912 50.0932,51.2038 50.123,51.2069 50.1867,51.2183 50.2909,51.2682 50.279,51.3105 50.3064,51.364 50.3974,51.3727 50.4722,51.4122 50.4742,51.4334 50.4732,51.4688 50.4792,51.5206 50.5219,51.578 50.5428,51.5849 50.6348,51.5605 50.6104,51.5352 50.6046,51.5157 50.6318,51.5123 50.6997,51.5161 50.7166,51.5253 50.693,51.6406 50.6799,51.6617 50.6814,51.6926 50.6822,51.6936 50.6774,51.7171 50.7352,51.7638 50.8107,51.8082 50.8996,51.8327 50.9151,51.8549 50.9373,51.8682 51.0196,51.886 51.0373,51.9104 51.0707,51.9282 51.3106,52.0371 51.3529,52.1904 51.3151,52.1993 51.3062,52.2171 51.3173,52.2549 51.3062,52.2971 51.3529,52.306 51.3706,52.3282 51.3618,52.3615 51.4351,52.3748 51.4573,52.3926 51.4306,52.4348 51.3751,52.4504 51.3706,52.4993 51.3729,52.5326 51.4018,52.5237 51.4462,52.5193 51.4262,52.5459 51.4084,52.5859 51.4351,52.6037 51.4329,52.6259 51.4862,52.6348 51.544,52.5992 51.6239,52.6104 51.6528,52.6792 51.675,52.7481 51.6128,52.7681 51.6395,52.8281 51.7239,52.8281 51.7417,52.8592 51.7906,52.8881 51.8461,52.897 51.8795,52.9236 51.9394,52.937 51.9639,52.9636 51.9594,53.0103 51.9683,53.0325 52.055,53.0458 52.0572,53.0725 51.9594,53.0836 51.9594,53.1081 52.0328,53.1236 52.0217,53.1769 52.055,53.1858 52.0661,53.2058 52.0372,53.2414 52.0728,53.2636 52.0928,53.328 52.035,53.357 52.035,53.3992 51.9928,53.4169 51.995,53.4436 51.975,53.4569 51.9861,53.4747 51.9861,53.4969 52.0439,53.5014 52.0772,53.5036 52.0905,53.528 52.1194,53.5858 52.155,53.6014 52.1594,53.6325 52.1905,53.6858 52.2394,53.7347 52.255,53.7902 52.2883,53.8435 52.3171,53.8791 52.3149,53.8946 52.2749,53.9124 52.2727,53.9302 52.3282,53.9746 52.3794,53.9969 52.3816,54.0302 52.3394,54.0391 52.3194,54.0657 52.286,54.0813 52.2327,54.0724 52.1794,54.0613 52.1572,54.0991 52.2238,54.1168 52.2527,54.1324 52.246,54.1835 52.1749,54.2146 52.1105,54.2279 52.0972,54.2479 52.1327,54.259 52.1838,54.2813 52.2349,54.2724 52.3194,54.2813 52.3971,54.2724 52.426,54.2857 52.4371,54.3301 52.406,54.3435 52.3927,54.3612 52.4082,54.3879 52.3882,54.4123 52.3482,54.4257 52.3083,54.4212 52.3038,54.3879 52.2816,54.3635 52.2483,54.3724 52.266,54.3857 52.266,54.4101 52.2172,54.4035 52.1505,54.399 52.1038,54.3879 52.1038,54.3568 52.0861,54.3568 52.0105,54.3524 52.0016,54.3279 52.0172,54.3124 52.0172,54.2968 51.9883,54.2879 51.9661,54.3057 51.9527,54.3635 51.915,54.3857 51.8839,54.3768 51.8305,54.3812 51.8417,54.4212 51.8394,54.4679 51.8105,54.4879 51.7484,54.4834 51.6551,54.499 51.5707,54.5167 51.504,54.5567 51.424,54.599 51.3951,54.5501 51.2951,54.539 51.2929,54.5723 51.3018,54.6212 51.264,54.619 51.1685,54.5812 51.1218,54.6012 51.0596,54.5901 51.0374,54.5545 50.9974,54.5034 50.9685,54.5012 50.9085,54.5034 50.8908,54.4501 50.9152,54.4279 50.8952,54.4123 50.8885,54.3657 50.8463,54.3346 50.8508,54.2946 50.8108,54.2946 50.7774,54.3234 50.7086,54.3257 50.5997,54.379 50.5241,54.3501 50.4664,54.2968 50.4019,54.2901 50.3886,54.3257 50.3731,54.3701 50.3242,54.3768 50.2953,54.4345 50.2553,54.4301 50.2553,54.4145 50.2131,54.3945 50.1575,54.3945 50.1198,54.4545 50.042,54.4545 49.9798,54.4634 49.9398,54.4768 49.8813,54.4552 49.863,54.4715 49.8447,54.4857 49.8265,54.4836 49.7615,54.4816 49.6965,54.5141 49.6132,54.5263 49.5238,54.51 49.4588,54.5222 49.4832,54.5425 49.4669,54.5568 49.408,54.5669 49.4182,54.5913 49.4588,54.6055 49.4568,54.6218 49.3958,54.64 49.3918,54.6543 49.4304,54.6685 49.3958,54.6807 49.3735,54.7335 49.3166,54.7477 49.3065,54.7782 49.2841,54.7904 49.2658,54.7863 49.2435,54.7924 49.1744,54.8411 49.15,54.829 49.1561,54.8066 49.1257,54.7924 49.0891,54.8046 49.0363,54.7863 49.0363,54.7538 49.0079,54.7416 48.9388,54.7497 48.8779,54.7233 48.7864,54.6522 48.7194,54.5974 48.6808,54.5974 48.5508,54.6055 48.4554,54.6055 48.3782,54.5791 48.2664,54.6461 48.24,54.6522 48.1994,54.6279 48.1649,54.6421 48.1954,54.6644 48.1994,54.6908 48.1486,54.6868 48.0694,54.6766 48.0186,54.6868 47.9963,54.7111 47.9719,54.7193 47.9435,54.6908 47.9191,54.6847 47.8907,54.699 47.846,54.6766 47.8094,54.6015 47.7383,54.5933 47.7119,54.6157 47.7424,54.638 47.7464,54.6665 47.7241,54.6847 47.6611,54.6868 47.6408,54.6807 47.653,54.6705 47.6449,54.6461 47.6144,54.6218 47.5738,54.5791 47.5453,54.5608 47.5514,54.5202 47.4844,54.4877 47.4397,54.4918 47.3828,54.504 47.3402,54.4857 47.3138,54.4511 47.265,54.4654 47.2589,54.4958 47.2427,54.5547 47.2163,54.5832 47.2528,54.5913 47.2589,54.6177 47.2061,54.6319 47.2081,54.6583 47.0833,54.6053 47.0477,54.6095 46.9928,54.64 46.9359,54.6319 46.8669,54.6258 46.7673,54.5791 46.7267,54.5852 46.7145,54.6136 46.6739,54.6258 46.5866,54.6278 46.5459,54.6481 46.4281,54.705 46.3448,54.7192 46.3306,54.6908 46.3306,54.6583 46.3672,54.6238 46.4261,54.5953 46.3367,54.5364 46.3509,54.5202 46.4281,54.5445 46.4383,54.5324 46.422,54.5222 46.4403,54.5019 46.3773,54.447 46.3875,54.441 46.4403,54.4491 46.4911,54.4592 46.483,54.4328 46.4322,54.4186 46.4119,54.4024 46.4484,54.3475 46.5338,54.3597 46.6292,54.3374 46.6414,54.3069 46.6191,54.2581 46.5338,54.2358 46.4748,54.2074 46.4302,54.2155 46.3814,54.2053 46.3367,54.1728 46.2433,54.1484 46.227,54.1545 46.2027,54.1566 46.1844,54.1322 46.1295,54.1322 46.0625,54.1058 45.9467,54.118 45.8837,54.0997 45.8594,54.0509 45.8269,54.0266 45.7944,53.9758 45.7599,53.9575 45.703,53.9392 45.7416,53.9149 45.8107,53.9372 45.8574,53.9636 45.9244,53.9453 45.9325,53.9271 45.9894,53.925 46.0199,53.8966 46.0971,53.8763 46.1154,53.8377 46.0889,53.8113 46.1194,53.7706 46.1885,53.7585 46.1641,53.7138 46.1804,53.7016 46.2352,53.7158 46.2982,53.6224 46.3814,53.6041 46.4018,53.5716 46.3652,53.5594 46.3713,53.5025 46.3855,53.5005 46.4058,53.4802 46.3835,53.4639 46.4261,53.4518 46.4708,53.4253 46.5541,53.4355 46.5866,53.4294 46.5785,53.3949 46.6151,53.3949 46.6354,53.3685 46.6902,53.3624 46.7085,53.3339 46.7349,53.3339 46.7552,53.3075 46.8019,53.2974 46.804,53.2466 46.8365,53.2385 46.8466,53.206 46.7816,53.1958 46.7674,53.1389 46.7694,53.1207 46.8507,53.141 46.871,53.1288 46.8283,53.1003 46.8486,53.078 46.806,53.0333 46.8344,52.8688 46.8019,52.8424 46.8019,52.8139 46.8751,52.7916 46.8547,52.753 46.8933,52.7185 46.8669,52.7124 46.8283,52.7103 46.808,52.6778 46.7552,52.6758 46.7126,52.6352 46.728,52.5691 46.6572,52.5716 46.5913,52.5893 46.5483,52.607 46.5129,52.6248 46.5179,52.6729 46.48,52.683 46.4572,52.6577 46.399,52.645 46.3154,52.6349 46.3104,52.6197 46.2597,52.6298 46.2015,52.6324 46.1737,52.602 46.1813,52.5767 46.1636,52.564 46.1281,52.5716 46.1028,52.5488 46.0598,52.5564 46.0497,52.5438 46.0547,52.5159 46.0395,52.4982 46.0117,52.5058 45.9864,52.5134 45.9687,52.4855 45.8927,52.4552 45.8674,52.4349 45.9079,52.4223 45.913,52.4045 45.8775,52.3868 45.8851,52.3539 45.8066,52.3716 45.7484,52.3868 45.6826,52.3944 45.6598,52.4121 45.6143,52.4071 45.6193,52.4425 45.6396,52.4704 45.5839,52.4628 45.5282,52.4704 45.4826,52.4349 45.427,52.4324 45.4143,52.3818 45.3713,52.3818 45.3409,52.3514 45.2979,52.364 45.2523,52.3691 45.1688,52.3387 45.0903,52.3615 45.0371,52.3666 44.9891,52.3337 44.9713,52.321 44.9992,52.3008 44.9435,52.2653 44.8776,52.3184 44.8194,52.3184 44.7966,52.3437 44.784,52.3868 44.7181,52.4019 44.6751,52.4247 44.6144,52.4247 44.5612,52.4323 44.5207,52.4526 44.4473,52.5032 44.3967,52.4754 44.4372,52.4399 44.4119,52.4121 44.4448,52.3792 44.3941,52.3741 44.3106,52.3614 44.2878,52.3133 44.2347,52.2982 44.2575,52.2703 44.222,52.2653 44.0879,52.2956 44.0625,52.2779 43.9107,52.3032 43.8195,52.3488 43.7537,52.3488 43.6803,52.3868 43.5538,52.3614 43.4576,52.3741 43.3664,52.3488 43.2854,52.3463 43.2323,52.3437 43.2044,52.3969 43.1083,52.4146 43.0551,52.4019 43.0197,52.3538 42.9719,52.3533 42.9524,52.3489 42.922,52.3294 42.9025,52.3142 42.8657,52.3229 42.8331,52.3294 42.8179,52.3099 42.8266,52.286 42.8288,52.26 42.8006,52.2361 42.7572,52.1906 42.703,52.1646 42.6509,52.1299 42.6531,52.0583 42.6531,52.0214 42.6878,51.9802 42.7117,51.9607 42.6466,51.9564 42.5902,51.9065 42.5859,51.8111 42.5165,51.7373 42.382,51.6419 42.3799,51.6115 42.4124,51.579 42.3885,51.5573 42.5924,51.4445 42.677,51.3827 42.763,51.3213 42.7261,51.2784 42.8059,51.1802 42.763,51.1863 42.6463,51.1863 42.5175,51.1433 42.4377,51.1127 42.2904,51.1065 42.0449,51.082 41.8792,51.1372 41.7564,51.1311 41.6766,51.0329 41.603,50.9408 41.4373,50.8978 41.2654,50.8426 41.2715,50.7689 41.1733,50.7628 41.0445,50.7198 41.0469,50.7189 857,4.0,Russia 46.2015,60.1946 46.2517,60.1597 46.2742,60.0945 46.2562,60.0743 46.3079,60.0541 46.3506,60.0653 46.3933,60.0541 46.4607,60.0361 46.5146,60.0204 46.5595,60.0316 46.5708,60.0159 46.6247,60.0114 46.6359,60.0249 46.6561,60.0316 46.6719,60.0181 46.7348,60.0294 46.7685,60.0541 46.782,60.0496 46.7999,60.0743 46.937,60.0765 46.9415,60.0518 46.8202,59.7979 46.8224,59.7373 47.0134,59.7125 47.0224,59.6946 47.0426,59.6676 47.0133,59.5573 46.9757,59.4372 46.9557,59.3296 47.1534,59.3045 47.1209,59.1819 47.2185,59.1293 47.2986,59.1043 47.3437,59.1193 47.3487,59.0792 47.3712,59.0717 47.4263,59.0342 47.4738,59.0092 47.4613,58.9841 47.4538,58.919 47.4939,58.889 47.5039,58.8615 47.4688,58.8514 47.4188,58.8389 47.3887,58.8339 47.3612,58.8364 47.3637,58.8615 47.3387,58.864 47.2711,58.864 47.2035,58.8615 47.1835,58.8439 47.201,58.8064 47.181,58.7713 47.226,58.7538 47.2135,58.7438 47.1359,58.7013 47.0834,58.7238 47.0233,58.7238 46.9982,58.6988 46.9156,58.6587 46.9081,58.6136 46.8731,58.5611 46.773,58.5536 46.6603,58.531 46.5677,58.516 46.5627,58.5386 46.5277,58.5335 46.4901,58.511 46.4926,58.466 46.4501,58.4284 46.4801,58.4059 46.4826,58.3784 46.4526,58.3683 46.4175,58.3408 46.3374,58.3308 46.3149,58.3058 46.3499,58.3008 46.3725,58.3033 46.375,58.2857 46.3224,58.2657 46.3099,58.2332 46.3174,58.1631 46.2598,58.1406 46.2398,58.0905 46.2098,58.0655 46.2373,58.0529 46.2421,58.0247 46.2744,58.0108 46.3066,57.9855 46.3643,57.9693 46.4081,57.9832 46.4519,57.9901 46.5142,57.9739 46.6272,57.9762 46.8071,57.9739 47.0423,57.9762 47.2222,57.9739 47.2937,57.9739 47.3537,57.9417 47.5174,57.9024 47.6028,57.9117 47.665,57.8564 47.6489,57.8241 47.5751,57.8056 47.5013,57.7826 47.4552,57.7434 47.4759,57.6972 47.4275,57.6673 47.4344,57.635 47.4367,57.6004 47.4298,57.5404 47.386,57.5312 47.3747,57.4838 47.2763,57.4808 47.2655,57.5008 47.2083,57.5044 47.1944,57.5172 47.1419,57.5186 47.1213,57.5013 47.0805,57.4977 47.0074,57.4691 46.8497,57.453 46.7961,57.4674 46.7241,57.4644 46.6826,57.4782 46.6457,57.4759 46.6549,57.4621 46.6756,57.4321 46.7056,57.4228 46.6895,57.3998 46.6687,57.3952 46.6434,57.3744 46.6203,57.3721 46.5903,57.3629 46.6065,57.3398 46.6226,57.349 46.6618,57.3375 46.648,57.3214 46.5811,57.3075 46.5765,57.296 46.6088,57.2522 46.6526,57.2476 46.6872,57.243 46.7056,57.1991 46.7494,57.1853 46.7333,57.1484 46.6664,57.1553 46.6249,57.1484 46.6249,57.1161 46.6641,57.1 46.6595,57.0377 46.6664,56.9777 46.6272,56.9754 46.6134,56.957 46.6503,56.9339 46.6203,56.9178 46.6434,56.9039 46.6018,56.9016 46.6295,56.8809 46.6941,56.8763 46.7702,56.8901 46.8463,56.8993 46.9293,56.867 46.9708,56.8832 47.0608,56.8601 47.0677,56.8048 47.0308,56.7909 47.0746,56.7586 47.0931,56.7863 47.1254,56.784 47.1807,56.7886 47.2569,56.8024 47.3122,56.8163 47.3376,56.8301 47.386,56.8047 47.4022,56.807 47.4137,56.8555 47.4506,56.8647 47.4598,56.8831 47.4829,56.8855 47.5152,56.9224 47.5451,56.9385 47.5867,56.9662 47.6259,56.9546 47.6697,56.95 47.6651,56.9685 47.6259,56.9915 47.6282,57.0008 47.6697,57.0146 47.6974,57.0008 47.7158,56.9662 47.7458,56.9385 47.7827,56.9477 47.8127,56.9247 47.8196,56.9639 47.845,56.9569 47.8565,56.9316 47.8795,56.9247 47.8888,56.9385 47.8888,56.9639 47.9164,56.9593 47.9441,56.9454 47.9718,56.9569 47.9902,56.9523 48.041,56.9523 48.0571,56.9708 48.0733,56.9708 48.1056,56.9731 48.1009,56.9985 48.0571,57.0215 48.0687,57.0354 48.1309,57.0354 48.1448,57.0607 48.0917,57.07 48.0963,57.0792 48.1494,57.0838 48.1817,57.0953 48.1863,57.1138 48.2001,57.1207 48.2555,57.1069 48.2647,57.0884 48.304,57.085 48.327,57.085 48.3501,57.0689 48.417,57.1023 48.4262,57.115 48.4423,57.1208 48.4804,57.1219 48.4919,57.1127 48.5288,57.1046 48.5715,57.1046 48.5807,57.13 48.6407,57.1242 48.7352,57.1115 48.7295,57.0919 48.7641,57.0781 48.7594,57.0585 48.7422,57.0424 48.7872,57.0297 48.8414,57.0343 48.8771,57.0527 48.9013,57.0689 48.9025,57.0839 48.9059,57.1323 48.9163,57.145 48.9428,57.1484 48.9463,57.1657 48.929,57.1727 48.9117,57.175 48.9071,57.2119 48.9267,57.2407 48.9797,57.2465 49.004,57.2557 49.0443,57.2707 49.0789,57.281 49.0881,57.2753 49.1031,57.258 49.1262,57.2476 49.1262,57.2361 49.0997,57.2269 49.0881,57.2072 49.0789,57.1796 49.0835,57.1623 49.0766,57.1554 49.042,57.1323 49.0397,57.115 49.0524,57.0954 49.102,57.085 49.1296,57.0793 49.1285,57.0389 49.155,57.002 49.23,56.9882 49.3061,56.9731 49.328,56.9777 49.3199,56.9893 49.3119,57.0043 49.3592,57.0089 49.3753,57.0066 49.4133,57.0089 49.4283,57.0239 49.5137,57.0216 49.6036,57.0239 49.6163,57.0192 49.6036,56.9904 49.6071,56.9812 49.6209,56.9789 49.6244,56.942 49.6509,56.9385 49.6624,56.9155 49.6198,56.8832 49.6567,56.8682 49.6324,56.8532 49.6394,56.8428 49.6993,56.8382 49.742,56.844 49.7731,56.8428 49.8562,56.8128 49.9138,56.8163 49.9253,56.8128 49.9703,56.7817 49.9622,56.7483 49.9726,56.7379 49.998,56.7471 50.0072,56.7148 49.983,56.6698 49.9795,56.6479 49.9692,56.6157 49.9818,56.5995 49.9738,56.573 50.0414,56.5657 50.0652,56.5752 50.0795,56.6062 50.0985,56.6109 50.1318,56.6109 50.1628,56.5919 50.1961,56.5895 50.2176,56.599 50.2033,56.6205 50.2176,56.63 50.2533,56.6205 50.2985,56.5943 50.3128,56.5681 50.3128,56.5419 50.3414,56.5371 50.3509,56.5633 50.37,56.5705 50.3938,56.5633 50.3462,56.5085 50.3485,56.4919 50.4009,56.4562 50.4009,56.4323 50.4152,56.4109 50.4462,56.3776 50.4867,56.349 50.5224,56.3609 50.5248,56.3514 50.5128,56.3228 50.4795,56.3085 50.4914,56.3038 50.5224,56.3061 50.5724,56.2895 50.6295,56.2823 50.6748,56.3014 50.6867,56.3157 50.6581,56.3514 50.6867,56.3633 50.7224,56.3419 50.7534,56.3395 50.7795,56.3085 50.7653,56.2966 50.7795,56.2704 50.8057,56.2633 50.7986,56.2276 50.7557,56.2204 50.7557,56.2109 50.7391,56.2085 50.7367,56.1918 50.7915,56.168 50.8557,56.149 50.9272,56.1013 50.9629,56.0894 50.97,56.0728 51.0129,56.1013 51.1058,56.0918 51.1129,56.0513 51.1725,56.0466 51.1915,56.0228 51.2367,56.0228 51.2367,56.0418 51.2677,56.0775 51.3377,56.0921 51.4006,56.08 51.4683,56.0994 51.5385,56.1042 51.5506,56.0873 51.5143,56.0583 51.3958,56.0292 51.3474,55.9784 51.3039,55.947 51.3111,55.8914 51.3426,55.8744 51.3692,55.8865 51.4659,55.8986 51.4925,55.8938 51.5409,55.9035 51.5893,55.8865 51.611,55.9131 51.628,55.9156 51.6304,55.8841 51.6715,55.8696 51.6763,55.8357 51.6884,55.8309 51.7102,55.8599 51.7513,55.8769 51.8191,55.8914 51.8263,55.9301 51.8578,55.9349 51.8771,55.9107 51.9255,55.9107 51.9715,55.8817 51.9449,55.8648 51.9545,55.8454 52.073,55.8454 52.0972,55.889 52.148,55.8817 52.1529,55.9131 52.1021,55.9397 52.1117,55.9809 52.1504,55.9905 52.1432,56.0171 52.1142,56.0026 52.09,56.0026 52.0755,56.0196 52.0972,56.0317 52.1674,56.0365 52.1795,56.0196 52.1891,56.0244 52.2133,56.0268 52.2496,55.9857 52.3198,55.9954 52.3343,55.9809 52.3826,55.9833 52.3512,56.0147 52.3706,56.0244 52.4528,56.0171 52.5616,55.9664 52.6269,56.0171 52.6197,56.0558 52.6003,56.0679 52.5931,56.097 52.6342,56.0897 52.6366,56.0752 52.6681,56.0679 52.6874,56.0462 52.7334,56.0413 52.7527,56.0704 52.7164,56.08 52.743,56.1139 52.7068,56.1332 52.7189,56.1526 52.6463,56.1599 52.6076,56.184 52.5616,56.1744 52.5495,56.1889 52.4746,56.1744 52.46,56.2131 52.5036,56.2397 52.535,56.2397 52.5326,56.2566 52.5495,56.2711 52.5834,56.3026 52.6415,56.3243 52.6245,56.3437 52.6753,56.3606 52.7213,56.3364 52.7576,56.3534 52.8132,56.3679 52.8325,56.3872 52.8543,56.3945 52.8543,56.4187 52.7406,56.4525 52.7285,56.4767 52.8156,56.4501 52.8398,56.467 52.8325,56.4936 52.8954,56.4912 52.9559,56.4719 52.9922,56.484 52.9922,56.4646 52.9656,56.4501 52.9632,56.4235 52.8954,56.3703 52.835,56.3219 52.8809,56.3025 52.8422,56.259 52.8592,56.2518 52.8761,56.23 52.8568,56.2082 52.9003,56.1768 52.893,56.1429 52.9196,56.1308 52.939,56.1574 52.9656,56.1332 52.939,56.097 52.9632,56.0824 52.9849,56.0994 53.043,56.1139 53.0623,56.0728 53.1277,56.0679 53.1567,56.0413 53.2486,56.0316 53.2438,56.0655 53.2389,56.1042 53.1954,56.155 53.1567,56.1913 53.1881,56.2179 53.2994,56.2276 53.3526,56.2179 53.4493,56.1961 53.4397,56.1598 53.4566,56.1357 53.4373,56.0776 53.3671,56.0655 53.3163,55.9833 53.251,55.9373 53.2075,55.8986 53.1639,55.8865 53.0841,55.8889 53.0841,55.8696 53.2026,55.8019 53.3599,55.8357 53.5316,55.8648 53.5429,55.8869 53.5649,55.9121 53.6218,55.9216 53.6849,55.9247 53.7007,55.9531 53.7417,55.9942 53.808,55.9784 53.8869,55.9689 53.9405,55.9942 53.9689,56.0415 53.9974,56.0889 54.0479,56.1173 54.0857,56.133 54.1362,56.1646 54.1899,56.1867 54.253,56.2025 54.272,56.2372 54.2688,56.2625 54.2372,56.2656 54.2183,56.294 54.253,56.3097 54.2436,56.3445 54.2278,56.4171 54.171,56.3823 54.1268,56.4013 54.111,56.4549 54.0794,56.4833 54.0352,56.477 53.9942,56.4991 53.991,56.5181 53.9847,56.537 53.9532,56.5338 53.9248,56.537 53.95,56.5559 53.9879,56.5812 53.9942,56.5938 53.9942,56.6096 53.9626,56.6127 53.9437,56.6443 53.9058,56.6222 53.8711,56.5843 53.8301,56.5875 53.7985,56.5717 53.7638,56.5559 53.7354,56.5875 53.7449,56.597 53.7733,56.6096 53.7827,56.638 53.7575,56.6569 53.7385,56.6822 53.7101,56.7264 53.7385,56.7674 53.789,56.7611 53.7859,56.7169 53.8364,56.7074 53.8837,56.6917 53.9374,56.7169 53.9847,56.7422 53.9847,56.7958 53.9974,56.8527 53.9879,56.8968 54.0321,56.9253 54.1205,56.9663 54.2562,56.9537 54.3035,56.9852 54.2909,57.0136 54.2499,57.0263 54.2025,57.0389 54.1773,57.0641 54.1931,57.0673 54.2152,57.0799 54.2341,57.1241 54.2215,57.1462 54.2373,57.1714 54.2089,57.1904 54.2373,57.2219 54.1994,57.244 54.1457,57.2535 54.1079,57.2535 54.07,57.263 54.0258,57.2503 54.0163,57.2693 54.0321,57.2914 54.0416,57.3293 54.0479,57.3419 54.0889,57.3513 54.1331,57.3608 54.171,57.3734 54.171,57.4113 54.1363,57.4145 54.1205,57.4082 54.0763,57.4176 54.07,57.465 54.1015,57.4871 54.0605,57.5092 54.0226,57.5028 53.9974,57.465 53.9343,57.4871 53.9469,57.4934 53.9437,57.5123 53.8901,57.506 53.8901,57.5407 53.9343,57.5407 53.9563,57.5565 54.0005,57.5565 54.0163,57.5691 53.9816,57.5881 53.969,57.6196 54.0132,57.6449 54.0573,57.6449 54.0542,57.6859 54.0321,57.7396 54.0258,57.809 53.9879,57.8564 53.9974,57.9037 54.0005,57.9384 53.9374,57.9731 53.8869,58.0016 53.8459,58.0457 53.8364,58.0805 53.8048,58.0994 53.7954,58.131 53.7512,58.1499 53.7038,58.1783 53.7291,58.2099 53.7859,58.273 53.7385,58.3046 53.6849,58.3393 53.6849,58.3898 53.6786,58.4182 53.666,58.4497 53.6281,58.516 53.5902,58.5381 53.5934,58.5602 53.6596,58.6044 53.6407,58.6297 53.6533,58.6549 53.688,58.6802 53.767,58.7022 53.8301,58.7307 53.8111,58.7464 53.7354,58.7591 53.6975,58.7875 53.6565,58.8096 53.6281,58.8664 53.6312,58.9106 53.6628,58.9768 53.7038,58.9768 53.7449,58.9832 53.7291,59.0052 53.7827,59.04 53.7417,59.0715 53.7101,59.0557 53.6759,59.0752 53.6473,59.0834 53.5861,59.0711 53.6187,59.0384 53.4635,59.0793 53.4104,59.0956 53.3492,59.0874 53.2593,59.1242 53.1654,59.2059 53.1082,59.2631 53.1204,59.3325 53.1776,59.3815 53.2675,59.4755 53.3287,59.6347 53.5085,59.6511 53.5738,59.794 53.5738,59.8635 53.6146,59.9615 53.4962,60.1085 53.4554,60.1085 53.3982,60.129 53.3859,60.1698 53.3124,60.1698 53.292,60.1126 53.0428,60.1044 52.7814,60.1126 52.5813,60.1249 52.3362,60.1494 52.2001,60.1929 52.1363,60.2161 52.0686,60.2393 52.0086,60.2664 51.9525,60.2664 51.9003,60.2451 51.8249,60.2103 51.7552,60.1503 51.7204,60.0807 51.6759,60.0517 51.5947,60.0033 51.5038,59.9472 51.4303,59.8969 51.3781,59.895 51.3162,59.8911 51.2871,59.9143 51.2755,59.9511 51.2504,59.9666 51.1517,59.9937 51.0666,60.013 50.9718,60.0072 50.9196,59.9608 50.8268,59.8969 50.761,59.866 50.7475,59.835 50.7107,59.8118 50.6314,59.8118 50.583,59.8157 50.5037,59.806 50.3992,59.7905 50.3141,59.7924 50.2174,59.7712 50.1768,59.7576 50.1652,59.7363 50.14,59.7035 50.1149,59.7073 50.0356,59.7073 49.9466,59.7247 49.8982,59.7305 49.8615,59.7131 49.8537,59.6996 49.9253,59.6551 49.9524,59.6454 49.9485,59.6358 49.8847,59.6261 49.8054,59.6145 49.7512,59.6125 49.7318,59.5951 49.7125,59.5371 49.6873,59.4616 49.6951,59.4403 49.7202,59.4345 49.7164,59.3862 49.6989,59.3378 49.7222,59.3223 49.7164,59.2914 49.7183,59.2566 49.6951,59.1715 49.6525,59.1695 49.6158,59.154 49.5094,59.1637 49.4359,59.1792 49.4088,59.1927 49.4088,59.2217 49.4378,59.2972 49.4513,59.3436 49.3836,59.3552 49.3005,59.3572 49.2444,59.3668 49.2328,59.3842 49.2192,59.4094 49.1883,59.4191 49.0935,59.4326 49.0722,59.45 49.0335,59.4577 48.9929,59.4326 48.9349,59.4326 48.9871,59.6067 48.9581,59.6125 48.9175,59.6144 48.4106,59.6531 48.4029,59.7015 48.3913,59.7459 48.399,59.8233 48.3952,59.8814 48.3952,59.9394 48.3662,59.9994 48.3584,60.0632 48.3545,60.1057 48.3681,60.1541 48.4164,60.1812 48.6041,60.2547 48.608,60.276 48.6254,60.2856 48.6602,60.3185 48.5693,60.3572 48.5538,60.3437 48.5209,60.3495 48.4571,60.3611 48.4397,60.3669 48.4706,60.3824 48.5054,60.3746 48.5132,60.394 48.4029,60.4404 48.4106,60.4655 48.3874,60.4771 48.4406,60.5082 48.4333,60.5521 48.4077,60.6105 48.3675,60.7165 48.321,60.8023 48.2896,60.8023 47.9593,60.8292 47.8852,60.8405 47.8807,60.8585 47.8672,60.9034 47.8604,60.9528 47.8402,60.9551 47.7953,60.946 47.7413,60.9663 47.6829,60.9753 47.5728,60.9775 47.5301,61.0 47.4695,61.0045 47.4021,60.9977 47.3571,60.991 47.1347,61.0134 47.0987,61.0112 47.1032,60.973 47.0785,60.9393 47.0089,60.9191 46.9954,60.8517 46.9729,60.8045 46.9437,60.8045 46.9639,60.7865 46.9841,60.7753 46.928,60.6764 46.8898,60.636 46.8561,60.6202 46.8606,60.6 46.8965,60.5933 46.928,60.5865 46.9213,60.5506 46.964,60.5214 46.8561,60.5079 46.8584,60.49 46.7977,60.472 46.7572,60.4697 46.764,60.4563 46.7775,60.4338 46.7078,60.3417 46.7325,60.3372 46.7011,60.2967 46.7078,60.29 46.7123,60.2743 46.6359,60.1956 46.6179,60.2069 46.5258,60.2293 46.427,60.2046 46.3416,60.2248 46.2629,60.2001 46.209,60.2069 46.2,60.1956 46.2015,60.1946 432,6.0,Russia 70.2638,57.8398 70.2951,57.8142 70.2982,57.7927 70.3197,57.7743 70.3228,57.7436 70.3043,57.7252 70.3043,57.7068 70.3596,57.7068 70.378,57.6485 70.4578,57.6485 70.4547,57.5227 70.5007,57.5319 70.5621,57.5319 70.5683,57.4859 70.5683,57.4582 70.4148,57.3969 70.3074,57.3539 70.3105,57.3201 70.335,57.2925 70.4056,57.2219 70.4701,57.2097 70.5284,57.2097 70.5345,57.179 70.4823,57.1606 70.4854,57.1422 70.5836,57.136 70.6573,57.1391 70.6695,57.1851 70.6358,57.1851 70.6388,57.2219 70.6971,57.268 70.7156,57.2649 70.8352,57.271 70.8782,57.2987 70.9856,57.2802 70.9703,57.2281 71.0194,57.2281 71.0194,57.1913 70.9641,57.182 70.9764,57.1544 71.0562,57.1483 71.1145,57.1422 71.1145,57.1207 71.2373,57.0163 71.3447,56.958 71.449,56.9243 71.5349,56.8598 71.5503,56.7586 71.4674,56.7371 71.4705,56.7156 71.4367,56.6634 71.3938,56.6511 71.3355,56.6634 71.2986,56.6757 71.2771,56.6696 71.2802,56.6511 71.2802,56.6205 71.228,56.6143 71.1544,56.6235 71.0378,56.6143 70.9396,56.6511 70.912,56.6327 70.9887,56.5836 70.9673,56.4885 70.8261,56.4302 70.7463,56.4394 70.6972,56.4333 70.6358,56.4057 70.6635,56.3811 70.7432,56.4057 70.7678,56.3658 70.823,56.3658 70.8108,56.2798 70.7248,56.2737 70.6481,56.2338 70.6481,56.2001 70.7156,56.2123 70.7248,56.1663 70.6819,56.1479 70.7003,56.0988 70.7647,56.0834 70.8015,56.0589 70.7463,55.9515 70.7156,55.8901 70.6328,55.8471 70.4885,55.8379 70.3535,55.8257 70.3535,55.798 70.4609,55.7858 70.6328,55.8042 70.6696,55.7766 70.5652,55.7459 70.5192,55.7551 70.467,55.7367 70.467,55.706 70.421,55.6661 70.4302,55.6108 70.5131,55.571 70.5837,55.571 70.642,55.5341 70.5775,55.4482 70.4333,55.4267 70.3688,55.3776 70.3535,55.3162 70.3903,55.2764 70.3504,55.2334 70.3502,55.2314 70.3963,55.2201 70.4298,55.2128 70.4661,55.2126 70.4982,55.2201 70.5285,55.2361 70.5531,55.2478 70.6804,55.2528 70.7186,55.2387 70.6877,55.2027 70.6867,55.1818 70.7087,55.1667 70.8722,55.034 70.8796,55.0146 70.8791,54.9909 70.875,54.9597 70.8674,54.9401 70.8544,54.9163 70.8481,54.8276 70.8921,54.7334 70.9844,54.6719 71.1064,54.6697 71.1581,54.6262 71.1645,54.5976 71.1688,54.5718 71.1436,54.5645 71.1096,54.5591 71.0777,54.5518 71.0453,54.5358 71.0527,54.4481 71.0758,54.4076 71.1019,54.3466 71.0942,54.2624 71.0058,54.2542 70.9672,54.2755 70.9431,54.2762 70.8775,54.2687 70.8785,54.2171 70.9561,54.2072 70.9605,54.1465 70.9484,54.1302 70.9958,54.1182 71.0668,54.04 71.1389,54.063 71.1607,54.0887 71.217,54.1518 71.365,54.1231 71.3761,54.0726 71.3818,54.0501 71.5344,54.0469 71.5967,54.0674 71.6294,54.091 71.6159,54.1559 71.6476,54.1917 71.7691,54.1946 71.8381,54.1844 71.9153,54.1542 72.0018,54.0699 72.0736,54.0752 72.0917,54.0929 72.083,54.1327 72.0488,54.1457 72.0282,54.1496 71.9748,54.187 71.928,54.3165 72.0475,54.3129 72.0757,54.3102 72.2234,54.2003 72.2391,54.1806 72.223,54.1544 72.2009,54.1226 72.2457,54.1131 72.3879,54.0794 72.3654,54.0504 72.3161,53.9714 72.2828,53.8942 72.2745,53.8663 72.2938,53.8597 72.3287,53.8499 72.3625,53.8491 72.3996,53.8716 72.415,53.8842 72.4302,53.8971 72.5688,53.8962 72.607,53.9014 72.5969,53.9377 72.5816,53.961 72.5439,53.9996 72.4775,53.9967 72.444,53.9909 72.4117,53.9962 72.4254,54.0394 72.4455,54.057 72.4867,54.0804 72.6083,54.0703 72.7443,54.0598 72.8537,54.065 72.8719,54.053 72.8783,53.9931 72.9483,53.9259 73.1694,53.8909 73.2694,53.8855 73.3727,53.8882 73.4238,53.8966 73.4225,53.9249 73.4196,53.952 73.4893,54.0143 73.5583,54.0232 73.641,54.0025 73.6155,53.9071 73.5896,53.8122 73.5316,53.8011 73.3868,53.8195 73.3216,53.8129 73.2353,53.7269 73.2081,53.6317 73.1397,53.6206 73.1184,53.5818 73.1338,53.5175 73.1556,53.5113 73.2613,53.4766 73.2901,53.4588 73.2505,53.4045 73.3172,53.3737 73.4614,53.4574 73.4783,53.5042 73.5558,53.5569 73.6543,53.5548 73.796,53.5916 73.9598,53.5695 74.1248,53.5397 74.1451,53.5035 74.1624,53.4649 74.255,53.4093 74.3074,53.4161 74.3615,53.522 74.3169,53.5475 74.3439,53.6308 74.4857,53.6261 74.5243,53.6256 74.5512,53.6973 74.6657,53.7735 74.6884,53.7816 74.8233,53.7758 74.91,53.744 75.0662,53.8206 75.2444,53.9079 75.332,53.931 75.3161,53.9476 75.2586,54.0042 75.3754,54.0521 75.4478,54.0341 75.4921,54.0354 75.5652,54.0471 75.5739,54.05 75.5737,54.0522 75.5695,54.1425 75.5653,54.2496 75.559,54.3294 75.5632,54.4239 75.559,54.4722 75.6241,54.4869 75.6745,54.4995 75.6913,54.5142 75.7165,54.5499 75.6976,54.5793 75.6766,54.6003 75.6724,54.6192 75.685,54.6339 75.6556,54.6486 75.6283,54.6339 75.5968,54.6213 75.5821,54.6402 75.5674,54.6675 75.5569,54.7179 75.5317,54.7515 75.4456,54.7536 75.4078,54.7599 75.3721,54.7872 75.3784,54.8082 75.4162,54.8355 75.3532,54.8565 75.2671,54.846 75.2167,54.8544 75.2125,54.8838 75.244,54.9153 75.2776,54.9615 75.2566,55.0077 75.2419,55.0119 75.1957,55.014 75.181,55.0245 75.1852,55.0476 75.1306,55.0707 75.1306,55.0812 75.1537,55.1316 75.1537,55.1694 75.1558,55.1925 75.1243,55.2177 75.0865,55.2177 75.0865,55.245 75.0508,55.2555 75.0508,55.2807 75.0256,55.2975 74.9752,55.3227 74.9941,55.3374 75.0508,55.3605 75.0487,55.392 75.097,55.4088 75.1411,55.4214 75.2041,55.4466 75.2041,55.4739 75.1831,55.5075 75.0781,55.497 75.0088,55.5432 75.0634,55.5726 75.1117,55.5999 75.0088,55.6398 75.0151,55.6587 74.9983,55.6734 74.9647,55.6902 74.9941,55.7091 75.097,55.6818 75.2503,55.707 75.2566,55.7406 75.2398,55.7553 75.1894,55.77 75.1705,55.8057 75.2293,55.8561 75.391,55.9338 75.4036,55.9653 75.4309,55.9926 75.5821,56.0094 75.5968,56.0577 75.6514,56.0829 75.7375,56.0766 75.8446,56.0661 75.8677,56.1165 75.9706,56.1081 76.0294,56.1249 76.0399,56.0871 76.1302,56.1228 76.2016,56.1228 76.1932,56.1669 76.1386,56.1984 76.1029,56.2026 76.0798,56.2362 75.9958,56.253 75.9559,56.3559 76.0231,56.3685 76.0231,56.3958 75.9559,56.4063 75.9412,56.4294 75.8929,56.3958 75.8299,56.4168 75.7837,56.3811 75.7228,56.3916 75.7417,56.4378 75.8152,56.4588 75.9034,56.4903 75.9385,56.5437 76.0429,56.5683 76.0613,56.6235 76.1718,56.6665 76.1411,56.7279 76.1411,56.8506 76.0736,56.8936 76.0736,56.9365 76.0429,57.0593 75.9815,57.1882 75.8649,57.3477 75.7421,57.3355 75.601,57.5932 75.4598,57.5932 75.4353,57.8694 74.9565,58.0658 75.1161,58.1579 74.9443,58.2807 75.2327,58.4218 74.9841,58.5231 74.8338,58.4525 74.8154,58.4187 74.7724,58.4187 74.7724,58.3666 74.6773,58.3696 74.5085,58.2776 74.5054,58.2438 74.4256,58.2193 74.3643,58.2101 74.085,58.075 73.5419,58.0842 73.1061,58.0873 72.9496,58.0873 72.8146,58.029 72.8514,58.0044 72.7532,57.9461 72.4003,57.9523 72.3604,57.9768 72.0014,57.9645 71.9584,58.0351 71.8664,58.0658 71.3876,58.0229 71.3385,58.0229 71.2986,58.0321 71.1145,58.0136 71.1299,58.0597 71.0992,58.0904 71.1268,58.3052 71.1698,58.3082 71.1912,58.3359 71.0869,58.3696 71.0685,58.388 71.0071,58.388 70.9826,58.4249 70.9549,58.477 70.8997,58.4555 70.8567,58.4586 70.826,58.4862 70.7769,58.4893 70.7401,58.474 70.3381,57.9124 70.3074,57.8909 70.3166,57.8756 70.2951,57.8725 70.2614,57.8602 70.2614,57.8418 70.2638,57.8398 3491,5.0,Russia 50.6822,51.7111 50.6891,51.7025 50.6941,51.7091 50.7326,51.7048 50.7628,51.6999 50.7842,51.6916 50.8107,51.6733 50.8341,51.6418 50.8651,51.6283 51.097,51.6168 51.1245,51.6183 51.1956,51.6239 51.3049,51.5807 51.3226,51.5557 51.3096,51.5112 51.2221,51.4954 51.1782,51.4812 51.2201,51.4215 51.3459,51.4096 51.4451,51.4333 51.569,51.4171 51.5972,51.3961 51.6321,51.4022 51.7219,51.4436 51.7162,51.4853 51.6994,51.5227 51.7065,51.5439 51.7909,51.6118 51.8128,51.622 51.8363,51.6265 51.8755,51.624 51.9248,51.6064 51.9446,51.6036 52.0082,51.6019 52.0283,51.6051 52.0576,51.6218 52.0839,51.6585 52.2319,51.7187 52.26,51.7207 52.2836,51.6992 52.3925,51.523 52.4015,51.4896 52.4085,51.4691 52.4259,51.4442 52.4495,51.4247 52.4778,51.4113 52.5263,51.3967 52.5828,51.3972 52.6172,51.4132 52.6864,51.4438 52.7594,51.4253 52.8033,51.4056 52.9042,51.4111 52.9663,51.4319 53.0651,51.4416 53.1214,51.4334 53.2119,51.4268 53.243,51.4325 53.2726,51.4414 53.3411,51.4332 53.5551,51.3235 53.5296,51.2902 53.5293,51.2418 53.593,51.1701 53.669,51.1551 53.8022,51.1336 53.832,51.1406 53.8675,51.1368 54.0523,51.045 54.061,51.0253 54.0855,50.9397 54.1214,50.9081 54.2267,50.846 54.2913,50.8365 54.3428,50.827 54.4185,50.8006 54.4211,50.7715 54.3853,50.7368 54.3585,50.7108 54.3161,50.5674 54.3293,50.5382 54.3364,50.5298 54.3688,50.4993 54.4164,50.475 54.4414,50.4705 54.5241,50.4844 54.6039,50.5316 54.6189,50.5511 54.6108,50.5912 54.5827,50.6376 54.5751,50.6692 54.5883,50.7348 54.5892,50.8125 54.5514,50.8457 54.4973,50.8591 54.4655,50.8635 54.4706,50.951 54.5634,50.9779 54.5904,50.9784 54.6301,50.9708 54.7452,50.9244 54.9039,50.8399 54.9903,50.7763 55.0064,50.7553 55.2149,50.6286 55.2922,50.5937 55.3276,50.6062 55.3683,50.6109 55.4061,50.6052 55.4258,50.5966 55.4416,50.5797 55.4538,50.5544 55.5714,50.4884 55.591,50.4792 55.6083,50.4742 55.6722,50.5195 55.6952,50.5331 55.7545,50.5554 55.7828,50.5636 55.8269,50.5735 55.8466,50.5812 55.9152,50.6137 55.9498,50.6335 56.0335,50.6849 56.0414,50.7138 56.049,50.7564 56.077,50.8358 56.0902,50.8552 56.1177,50.8567 56.1487,50.8458 56.1753,50.8389 56.2418,50.8305 56.2699,50.8428 56.3648,50.9179 56.3607,50.9478 56.3548,50.975 56.3923,51.0103 56.4154,51.0217 56.4432,51.0156 56.4671,50.9904 56.4866,50.9697 56.5041,50.9532 56.5365,50.9304 56.6415,50.9251 56.6267,50.9599 56.6152,50.984 56.6193,51.0042 56.6668,51.0251 56.693,51.0327 56.7192,51.0231 56.748,51.0052 56.7765,51.0002 56.9633,51.0112 57.012,51.0169 57.0399,51.0255 57.1204,51.0064 57.1785,50.9592 57.2529,50.8615 57.2685,50.8448 57.297,50.8297 57.34,50.8142 57.376,50.8066 57.4226,50.8139 57.4406,50.8282 57.4516,50.8503 57.4737,50.8651 57.5249,50.8679 57.5565,50.8652 57.6077,50.8477 57.648,50.8517 57.6652,50.8707 57.6717,50.9 57.6724,50.922 57.6636,50.9639 57.6614,50.9937 57.6666,51.0234 57.704,51.0573 57.755,51.0431 58.0623,50.9949 58.0934,50.9992 58.1228,51.0378 58.1311,51.0587 58.2247,51.0907 58.2481,51.0969 58.2883,51.0686 58.4832,51.0045 58.5118,50.9875 58.5255,50.9723 58.5361,50.9437 58.5214,50.9002 58.4807,50.8631 58.5072,50.8073 58.5763,50.7463 58.8085,50.6394 58.8342,50.6283 58.8604,50.6236 59.0059,50.6112 59.1035,50.6102 59.1522,50.6077 59.2678,50.5767 59.3724,50.5765 59.3984,50.5718 59.4937,50.528 59.4874,50.5021 59.4518,50.4945 59.4069,50.4995 59.3774,50.4751 59.4397,50.4249 59.4526,50.42 59.51,50.4532 59.5353,50.4645 59.5686,50.4772 59.6084,50.4777 59.6302,50.4743 59.6644,50.4755 59.724,50.488 59.8043,50.5867 59.8485,50.6532 59.8451,50.6909 59.855,50.72 59.8767,50.7549 59.8965,50.7844 59.9276,50.7996 59.9612,50.8055 60.0278,50.8037 60.0788,50.7769 60.0777,50.7366 60.0852,50.7104 60.1461,50.6631 60.179,50.6494 60.2264,50.6323 60.2661,50.6277 60.606,50.6032 60.6376,50.6019 60.6779,50.6028 60.8376,50.6365 60.9551,50.6649 60.9992,50.6762 61.0522,50.6865 61.0849,50.6925 61.1847,50.7101 61.2097,50.7145 61.2461,50.7181 61.2881,50.7249 61.31,50.7315 61.329,50.7419 61.3679,50.8143 61.3738,50.8389 61.4038,50.9663 61.4464,51.1401 61.4563,51.1586 61.4725,51.1732 61.4973,51.1847 61.5269,51.1935 61.5662,51.2026 61.5909,51.2064 61.5767,51.2089 61.553,51.2155 61.5089,51.2298 61.4805,51.2501 61.3957,51.3655 61.2539,51.3984 61.1155,51.4089 61.0819,51.4067 61.0459,51.4 60.9296,51.4207 60.8809,51.4407 60.8434,51.493 60.8371,51.5381 60.8478,51.5567 60.8277,51.5608 60.7609,51.5624 60.4419,51.5675 60.2831,51.6305 60.3069,51.6533 60.3651,51.6757 60.405,51.7342 60.3914,51.7489 60.3684,51.7556 60.1299,51.8118 60.0436,51.8048 60.0201,51.8022 59.9935,51.8068 59.9579,51.8231 59.9093,51.8952 59.9145,51.9187 59.9313,51.9404 60.1287,51.939 60.3012,52.0458 60.3652,52.0842 60.3954,52.095 60.4432,52.0989 60.5069,52.0924 60.5463,52.0877 60.5884,52.0886 60.6261,52.0995 60.6514,52.1187 60.6819,52.1555 60.7149,52.1695 60.7531,52.1789 60.8061,52.1939 60.8386,52.2092 60.9633,52.2801 60.9493,52.296 60.882,52.352 60.8738,52.4339 60.7385,52.4758 60.7387,52.5381 60.7282,52.5751 60.6682,52.5729 60.6428,52.5752 60.5985,52.6154 60.6002,52.6465 60.6094,52.6649 60.6345,52.6885 60.7862,52.7614 60.915,52.8224 60.9824,52.8683 61.0005,52.9198 61.0719,52.9526 61.1046,52.9602 61.1361,52.9576 61.1555,52.9518 61.1733,52.9416 61.2013,52.9332 61.256,52.9304 61.2851,52.9327 61.304,52.942 61.3279,52.959 61.349,52.9667 61.3731,52.9666 61.3962,52.9605 61.5963,52.9212 61.7654,52.9235 61.8026,52.9051 61.8551,52.8778 61.9985,52.9153 62.0137,52.9341 62.0318,52.9772 62.0436,53.0143 62.0076,53.0599 61.977,53.0684 61.9461,53.0716 61.8973,53.078 61.7567,53.1005 61.7211,53.1078 61.6808,53.1188 61.6532,53.1302 61.6312,53.1446 61.5066,53.1666 61.4824,53.1569 61.46,53.1537 61.4383,53.1537 61.4098,53.1579 61.3795,53.1676 61.3595,53.1767 61.3361,53.1897 61.3119,53.2038 61.2817,53.2135 61.2527,53.2177 61.2217,53.218 61.175,53.2169 61.1362,53.2189 61.1128,53.2265 61.0852,53.2444 61.068,53.2615 61.0537,53.3062 61.1456,53.4456 61.1867,53.4428 61.2109,53.4405 61.2486,53.4181 61.2769,53.3939 61.3046,53.3823 61.3383,53.3838 61.474,53.4579 61.438,53.531 61.369,53.5323 61.3186,53.5325 61.287,53.5281 61.2645,53.5135 61.2241,53.4932 61.1825,53.4987 61.1281,53.5007 61.0824,53.5069 61.0028,53.5511 60.9731,53.5563 60.9263,53.5575 60.8507,53.5556 60.806,53.5597 60.8113,53.5974 60.8466,53.6015 60.8807,53.5951 60.9069,53.578 60.9501,53.5796 61.1221,53.7441 61.1257,53.7678 61.0208,53.8189 60.9976,53.8228 60.9353,53.8235 60.8989,53.8299 60.8924,53.8564 60.9079,53.8806 60.9342,53.8926 60.9892,53.9008 61.0119,53.9005 61.1139,53.9628 61.2242,54.0059 61.3182,54.0036 61.3533,53.9943 61.3846,53.9523 61.4863,53.9352 61.5399,53.9389 61.6873,53.9412 61.7492,53.8978 61.9232,53.8767 61.923,53.9249 61.9218,53.9617 61.9504,53.9649 61.9929,53.9662 62.2545,53.9598 62.3006,53.8983 62.322,53.8737 62.4297,53.8189 62.4682,53.8307 62.4645,53.8898 62.4733,53.9806 62.5369,54.012 62.574,54.0206 62.6252,54.0232 62.7927,54.0242 62.8144,54.0229 63.0049,54.0324 63.0397,54.0499 63.0444,54.0725 63.0327,54.1046 63.0581,54.1213 63.0868,54.1243 63.1094,54.124 63.22,54.1193 63.244,54.1088 63.2704,54.1059 63.3036,54.1104 63.436,54.1434 63.5802,54.1856 63.6111,54.1947 63.6528,54.1942 63.6992,54.1807 63.7262,54.1683 63.7868,54.1378 63.8706,54.151 63.9111,54.1807 63.8835,54.2079 63.8707,54.2293 63.8881,54.2477 63.978,54.2549 64.1332,54.2676 64.1864,54.2836 64.2114,54.2835 64.2332,54.2784 64.2543,54.2759 64.2746,54.2755 64.3033,54.2781 64.4304,54.3002 64.623,54.278 64.6547,54.2823 64.7149,54.3085 64.7755,54.3359 64.8067,54.3445 64.8578,54.3434 64.8849,54.3342 64.9056,54.322 64.9265,54.3069 64.9512,54.2838 64.9905,54.2553 65.0107,54.2492 65.1156,54.2606 65.1305,54.281 65.1216,54.313 65.106,54.3418 65.091,54.401 65.1106,54.4665 65.2367,54.5041 65.3611,54.5666 65.3911,54.5765 65.4124,54.5767 65.4454,54.5734 65.5454,54.5571 65.5732,54.5512 65.6142,54.5389 65.6414,54.5371 65.6657,54.5431 65.6836,54.5573 65.7043,54.5838 65.7355,54.6208 65.8593,54.6447 65.869,54.6012 65.8741,54.5638 65.9799,54.5753 65.9963,54.581 66.1082,54.5998 66.1595,54.6096 66.2096,54.6203 66.2927,54.6381 66.3243,54.6463 66.3563,54.6547 66.3823,54.6588 66.4105,54.6611 66.4699,54.6632 66.5123,54.6637 66.5794,54.6616 66.6094,54.6627 66.637,54.6702 66.6677,54.6935 66.7045,54.7038 66.7627,54.7082 66.8365,54.709 66.9181,54.7118 67.1347,54.744 67.15,54.7586 67.173,54.7855 67.1888,54.7977 67.2129,54.8036 67.2465,54.7994 67.2772,54.7884 67.4455,54.7897 67.466,54.7904 67.5677,54.8099 67.6427,54.8254 67.6756,54.8533 67.6927,54.8765 67.7187,54.899 67.7817,54.9139 67.8277,54.9139 67.9099,54.8872 67.9387,54.8863 68.0893,54.9033 68.2116,55.002 68.208,55.0223 68.1762,55.0303 68.1309,55.0384 68.0998,55.0676 68.0828,55.1136 68.1034,55.1222 68.1509,55.1351 68.1874,55.1404 68.3592,55.1274 68.3827,55.1257 68.5041,55.1361 68.5227,55.1533 68.6052,55.303 68.6184,55.3044 68.6527,55.3004 68.7366,55.2852 68.768,55.2743 68.7897,55.2527 68.8211,55.2207 68.8558,55.2187 68.885,55.226 68.8887,55.2486 68.8786,55.2866 68.8497,55.2989 68.8242,55.3033 68.8074,55.361 68.8287,55.3773 68.9503,55.3564 69.0509,55.3283 69.0667,55.2786 69.1136,55.2675 69.2321,55.3292 69.3465,55.2997 69.5528,55.2893 69.726,55.23 69.761,55.1982 69.8294,55.1391 69.9281,55.1421 70.0493,55.0956 70.1188,55.0742 70.1435,55.0997 70.1675,55.1222 70.301,55.1962 70.3491,55.2317 70.3502,55.2314 70.3504,55.2334 70.3903,55.2764 70.3535,55.3162 70.3688,55.3776 70.4333,55.4267 70.5775,55.4482 70.642,55.5341 70.5837,55.571 70.5131,55.571 70.4302,55.6108 70.421,55.6661 70.467,55.706 70.467,55.7367 70.5192,55.7551 70.5652,55.7459 70.6696,55.7766 70.6328,55.8042 70.4609,55.7858 70.3535,55.798 70.3535,55.8257 70.4885,55.8379 70.6328,55.8471 70.7156,55.8901 70.7463,55.9515 70.8015,56.0589 70.7647,56.0834 70.7003,56.0988 70.6819,56.1479 70.7248,56.1663 70.7156,56.2123 70.6481,56.2001 70.6481,56.2338 70.7248,56.2737 70.8108,56.2798 70.823,56.3658 70.7678,56.3658 70.7432,56.4057 70.6635,56.3811 70.6358,56.4057 70.6972,56.4333 70.7463,56.4394 70.8261,56.4302 70.9673,56.4885 70.9887,56.5836 70.912,56.6327 70.9396,56.6511 71.0378,56.6143 71.1544,56.6235 71.228,56.6143 71.2802,56.6205 71.2802,56.6511 71.2771,56.6696 71.2986,56.6757 71.3355,56.6634 71.3938,56.6511 71.4367,56.6634 71.4705,56.7156 71.4674,56.7371 71.5503,56.7586 71.5349,56.8598 71.449,56.9243 71.3447,56.958 71.2373,57.0163 71.1145,57.1207 71.1145,57.1422 71.0562,57.1483 70.9764,57.1544 70.9641,57.182 71.0194,57.1913 71.0194,57.2281 70.9703,57.2281 70.9856,57.2802 70.8782,57.2987 70.8352,57.271 70.7156,57.2649 70.6971,57.268 70.6388,57.2219 70.6358,57.1851 70.6695,57.1851 70.6573,57.1391 70.5836,57.136 70.4854,57.1422 70.4823,57.1606 70.5345,57.179 70.5284,57.2097 70.4701,57.2097 70.4056,57.2219 70.335,57.2925 70.3105,57.3201 70.3074,57.3539 70.4148,57.3969 70.5683,57.4582 70.5683,57.4859 70.5621,57.5319 70.5007,57.5319 70.4547,57.5227 70.4578,57.6485 70.378,57.6485 70.3596,57.7068 70.3043,57.7068 70.3043,57.7252 70.3228,57.7436 70.3197,57.7743 70.2982,57.7927 70.2951,57.8142 70.2614,57.8418 70.2614,57.8602 70.2951,57.8725 70.3166,57.8756 70.3074,57.8909 70.3381,57.9124 70.7401,58.474 70.7769,58.4893 70.826,58.4862 70.8567,58.4586 70.8997,58.4555 70.9549,58.477 70.9826,58.4249 71.0071,58.388 71.0685,58.388 71.0869,58.3696 71.1912,58.3359 71.1698,58.3082 71.1268,58.3052 71.0992,58.0904 71.1299,58.0597 71.1145,58.0136 71.2986,58.0321 71.3385,58.0229 71.3876,58.0229 71.8664,58.0658 71.9584,58.0351 72.0014,57.9645 72.3604,57.9768 72.4003,57.9523 72.7532,57.9461 72.8514,58.0044 72.8146,58.029 72.9496,58.0873 73.1061,58.0873 73.5419,58.0842 74.085,58.075 74.3643,58.2101 74.4256,58.2193 74.5054,58.2438 74.5085,58.2776 74.6773,58.3696 74.7724,58.3666 74.7724,58.4187 74.8154,58.4187 74.8338,58.4525 74.9841,58.5231 75.0514,58.5582 75.0304,58.6182 75.2462,58.7231 75.5698,58.9478 75.5459,59.0437 75.5039,59.1846 75.6957,59.2235 75.7736,59.3794 75.8516,59.3554 75.9415,59.4004 76.0464,59.4753 76.3281,59.4813 76.5289,59.5172 76.5289,59.6341 76.6277,59.6641 76.6128,59.8978 76.6367,60.0117 76.5678,60.0507 76.6397,60.1016 76.7326,60.2005 76.6967,60.2754 76.6218,60.2844 76.6547,60.4253 76.7656,60.4313 76.9155,60.4702 76.9304,60.5182 76.9125,60.5751 76.8405,60.5811 76.8495,60.6231 76.8495,60.662 76.9394,60.656 76.9664,60.674 76.9514,60.704 76.9664,60.7849 77.0024,60.7969 77.1282,60.7699 77.2092,60.7729 77.2871,60.7519 77.4399,60.7699 77.5868,60.7669 77.6887,60.737 77.7546,60.704 77.7935,60.689 77.8625,60.701 77.9464,60.731 78.0483,60.74 78.2041,60.728 78.291,60.719 78.345,60.719 78.3869,60.722 78.4708,60.749 78.5667,60.7729 78.6416,60.737 78.6896,60.719 78.7885,60.725 78.8304,60.7639 78.8694,60.7729 78.8934,60.752 78.9413,60.7669 78.9833,60.755 79.0432,60.7789 79.0942,60.7639 79.1391,60.746 79.1751,60.749 79.202,60.734 79.1691,60.719 79.1601,60.662 79.211,60.6261 79.268,60.5901 79.3399,60.6141 79.4568,60.6291 79.6126,60.6351 79.7685,60.6261 79.9243,60.6141 80.0651,60.5991 80.3049,60.704 80.5087,60.704 80.5746,60.74 80.9163,60.6951 80.9312,60.6171 80.9942,60.5752 81.3808,60.5572 81.4257,60.5782 81.7374,60.5932 82.0491,60.4583 82.2708,60.5542 82.2708,60.6561 82.6694,60.8329 82.7803,60.8719 83.023,60.9767 83.3887,60.9917 83.5775,60.8838 83.6734,60.8509 83.7663,60.8179 83.8682,60.7639 84.1439,60.7969 84.4915,60.9378 84.5874,60.9438 85.5884,61.2375 85.5284,61.2884 85.5194,61.3154 85.5794,61.3514 85.6303,61.3813 85.8251,61.4023 85.8521,61.4173 85.8521,61.4503 85.8491,61.4862 85.7592,61.5312 85.7232,61.5372 85.6753,61.5342 85.6093,61.5222 85.5914,61.5192 85.3486,61.5701 85.2617,61.6481 85.1838,61.6241 85.1358,61.6241 85.0549,61.6421 85.0339,61.6541 84.974,61.693 84.8182,61.744 84.7282,61.735 84.6653,61.735 84.5604,61.753 84.5364,61.7979 84.5155,61.8219 84.4406,61.8399 84.4016,61.8759 84.4316,61.9418 84.3177,62.1246 84.5604,62.3044 84.5964,62.3314 84.6054,62.3494 84.6743,62.3554 84.7582,62.3973 84.8002,62.4453 84.7672,62.4753 84.8002,62.4902 84.8302,62.5322 84.8871,62.5352 84.9141,62.5622 84.98,62.5831 84.962,62.6101 84.977,62.6281 85.0249,62.6491 85.0399,62.6731 85.0549,62.703 85.1298,62.766 85.1568,62.769 85.1988,62.8139 85.3306,62.8229 85.4056,62.8738 85.3756,62.9368 85.4505,62.9697 85.4715,63.0117 85.3366,63.0626 85.3366,63.1316 85.4235,63.2005 85.4955,63.2604 85.4026,63.2724 85.2707,63.2664 85.2287,63.2544 85.1778,63.3114 85.2048,63.3264 85.1898,63.3593 85.1298,63.3983 85.0849,63.4253 85.028,63.4103 84.983,63.4343 84.8901,63.4403 84.8542,63.4942 84.9051,63.5092 85.004,63.4912 85.061,63.5362 85.1389,63.5871 85.1658,63.668 85.1958,63.707 85.2288,63.74 85.2498,63.7729 85.3157,63.7999 85.3457,63.8299 85.4356,63.8508 85.4745,63.8898 85.6304,63.9228 85.7592,63.9497 85.7892,63.9827 85.7892,64.0007 85.7622,64.0247 85.7742,64.0516 85.7952,64.0876 85.8282,64.1116 85.8522,64.1835 85.8012,64.2105 85.7623,64.2555 85.7413,64.2914 85.7413,64.3214 85.6634,64.3543 85.6634,64.4113 85.7353,64.4652 85.7353,64.4952 85.6454,64.5312 85.6274,64.5611 85.6634,64.6121 85.6843,64.654 85.6634,64.678 85.4925,64.717 85.4086,64.729 85.3397,64.726 85.2828,64.702 85.2648,64.693 85.1689,64.687 85.046,64.654 84.9801,64.651 84.9351,64.669 84.9231,64.699 84.8992,64.714 84.8392,64.708 84.7583,64.723 84.7523,64.7559 84.7913,64.7709 84.7763,64.8129 84.6984,64.8279 84.6055,64.8309 84.5006,64.8159 84.3927,64.8039 84.2998,64.7889 84.1709,64.7949 84.114,64.8069 84.09,64.8398 84.1559,64.8728 84.2129,64.8878 84.1979,64.9357 84.1469,64.9477 84.129,65.0017 84.1949,65.0646 84.2608,65.1006 84.3537,65.1216 84.3987,65.1815 84.4077,65.2085 84.3687,65.2384 84.3687,65.2564 84.3357,65.2744 84.3208,65.3044 84.3597,65.3223 84.3747,65.3403 84.3417,65.3673 84.3208,65.4122 84.2668,65.4212 84.2668,65.4452 84.2009,65.4572 84.087,65.4812 84.0061,65.4962 84.0271,65.5081 84.12,65.5171 84.12,65.5501 84.138,65.5861 84.0421,65.5861 83.9521,65.619 83.8862,65.661 83.8592,65.6939 83.7514,65.6999 83.5835,65.7059 83.4816,65.6969 83.4157,65.676 83.3258,65.7299 83.3498,65.7599 83.3348,65.7749 83.3438,65.8108 83.2269,65.8618 83.128,65.9517 83.116,65.9757 83.158,65.9996 83.176,66.0146 83.1939,66.0386 83.2928,66.0596 83.3498,66.0746 83.3618,66.0925 83.2808,66.1435 83.1819,66.2274 83.113,66.2723 83.0051,66.3083 82.9152,66.3623 82.9002,66.4522 82.9182,66.5151 82.9872,66.5241 83.0801,66.5511 83.113,66.56 83.125,66.566 83.104,66.59 83.0381,66.632 83.0051,66.65 82.9931,66.6799 82.9961,66.7159 82.9362,66.7489 82.9062,66.7399 82.8673,66.7459 82.8403,66.7638 82.8763,66.7848 82.7324,66.8328 81.9772,67.1235 81.9382,67.1355 81.9352,67.1534 81.9922,67.1534 82.0132,67.1624 82.0072,67.1804 82.0102,67.1924 82.0431,67.1804 82.0821,67.1834 82.0701,67.2014 82.0401,67.2134 82.124,67.2134 82.166,67.2224 82.175,67.2343 82.142,67.2403 82.1061,67.2403 82.1031,67.2523 82.127,67.2523 82.154,67.2553 82.13,67.2733 82.1001,67.2883 82.0581,67.3093 82.0731,67.3243 82.0941,67.3422 82.121,67.3692 82.154,67.3902 82.193,67.3812 82.178,67.3932 82.172,67.4022 82.196,67.4112 82.2109,67.4291 82.208,67.4321 82.181,67.4321 82.16,67.4351 82.187,67.4621 82.166,67.4651 82.0941,67.4531 81.9982,67.4741 81.9982,67.4891 81.9322,67.4921 81.9173,67.528 81.8753,67.546 81.8603,67.555 81.8813,67.57 81.9113,67.573 81.9412,67.588 81.8933,67.597 81.9262,67.618 81.9262,67.6299 81.8843,67.6419 81.8603,67.6629 81.8214,67.6479 81.7674,67.6809 81.7344,67.6779 81.7045,67.6989 81.6895,67.7139 81.6206,67.7678 81.5396,67.8157 81.5576,67.8427 81.5876,67.8547 81.6266,67.8547 81.7075,67.8397 81.7644,67.8367 81.8154,67.8667 81.8663,67.8577 81.9113,67.8427 82.151,67.8427 82.193,67.8487 82.199,67.8727 82.205,67.8877 82.202,67.9386 82.202,67.9476 82.2199,67.9686 82.187,67.9836 82.175,67.9986 82.208,68.0225 82.2139,68.0705 82.2409,68.0825 82.2769,68.0825 82.3278,68.0765 82.3608,68.0705 82.3668,68.0854 82.3398,68.1064 82.3728,68.1394 82.4357,68.1753 82.4836,68.1783 82.5196,68.1933 82.4986,68.2592 82.5316,68.2952 82.4986,68.3911 82.4147,68.445 82.3308,68.466 82.2769,68.478 82.3128,68.484 82.3428,68.487 82.3518,68.487 82.3578,68.517 82.4177,68.499 82.4687,68.523 82.5106,68.532 82.6605,68.532 82.7234,68.526 82.7534,68.5469 82.8103,68.5589 82.8583,68.5589 82.8283,68.5889 82.7354,68.6189 82.6665,68.6309 82.6185,68.6368 82.6005,68.6578 82.6305,68.6638 82.6155,68.6908 82.5975,68.7028 82.5496,68.6908 82.4776,68.6998 82.3698,68.7178 82.3578,68.7387 82.3728,68.7777 82.3578,68.8197 82.3278,68.8586 82.3128,68.8886 82.2559,68.9066 82.2199,68.9186 82.163,68.9216 82.145,68.9515 82.1929,68.9695 82.2858,68.9755 82.2858,68.9935 82.3188,69.0145 82.2769,69.0264 82.2799,69.0594 82.2289,69.0774 82.139,69.0654 82.0761,69.0624 81.9112,69.0714 81.8303,69.0834 81.6745,69.0924 81.5876,69.1343 81.5756,69.1643 81.6295,69.1823 81.6955,69.2033 81.7464,69.2332 81.7374,69.2602 81.6535,69.3022 81.5816,69.3351 81.4947,69.3471 81.4407,69.3082 81.4587,69.2842 81.4317,69.2272 81.4557,69.2093 81.3778,69.1733 81.2849,69.1523 81.2489,69.1523 81.162,69.1913 81.0481,69.1673 80.9522,69.1313 80.9193,69.1313 80.8024,69.1103 80.7544,69.1073 80.7485,69.1253 80.6765,69.1463 80.6196,69.1643 80.5896,69.1883 80.5806,69.2062 80.4608,69.2092 80.3888,69.2122 80.3439,69.2212 80.272,69.2212 80.239,69.2332 80.1551,69.2362 80.0562,69.2602 79.9783,69.2482 79.9573,69.2482 79.9603,69.2602 79.9333,69.2632 79.9123,69.2572 79.8584,69.2572 79.8164,69.2482 79.7835,69.2392 79.7595,69.2512 79.7151,69.2509 79.6774,69.2462 79.6695,69.2572 79.6899,69.2682 79.6931,69.2761 79.6617,69.2824 79.6381,69.3044 79.6444,69.3217 79.6176,69.3264 79.5626,69.3264 79.5359,69.3327 79.5595,69.3405 79.5579,69.3484 79.5375,69.3484 79.506,69.3578 79.4966,69.361 79.4982,69.372 79.4715,69.3814 79.462,69.3908 79.4667,69.4144 79.4384,69.449 79.4196,69.4663 79.4196,69.4867 79.374,69.4961 79.3206,69.5008 79.319,69.5119 79.3504,69.5213 79.3583,69.5307 79.3331,69.5354 79.3111,69.5386 79.3253,69.5527 79.2907,69.559 79.2592,69.5496 79.2262,69.5464 79.2011,69.5574 79.1382,69.5653 78.9779,69.5794 78.9449,69.5826 78.9244,69.5826 78.9024,69.581 78.8899,69.5967 78.8647,69.5967 78.8474,69.5936 78.8223,69.5967 78.8286,69.6125 78.8726,69.6125 78.9103,69.625 78.9464,69.6329 78.959,69.6455 78.9354,69.6502 78.9024,69.6486 78.8851,69.6486 78.8836,69.6612 78.8914,69.68 78.8679,69.691 78.8301,69.6989 78.805,69.7052 78.805,69.7178 78.8254,69.7209 78.8317,69.7366 78.7971,69.7398 78.761,69.7476 78.7342,69.7555 78.7122,69.7634 78.6981,69.7838 78.7327,69.7791 78.772,69.7775 78.8097,69.7869 78.8396,69.8011 78.8663,69.8215 78.871,69.8341 78.904,69.8294 78.9354,69.8388 78.9622,69.8624 78.9936,69.864 79.0109,69.8671 79.0172,69.875 78.9873,69.8844 78.959,69.9001 78.9402,69.908 78.9543,69.9158 78.981,69.9174 79.0093,69.9127 79.0156,69.9095 79.0376,69.9127 79.0109,69.9237 78.9999,69.9363 79.0156,69.952 79.0549,69.9567 79.1021,69.9583 79.1272,69.9614 79.1445,69.9426 79.176,69.9457 79.1822,69.9661 79.1477,69.985 79.1602,70.018 79.1508,70.0495 79.2105,70.0495 79.2404,70.0463 79.231,70.0416 79.209,70.0369 79.2153,70.0243 79.2483,70.018 79.286,70.0133 79.319,70.0117 79.3614,70.0416 79.4007,70.073 79.4306,70.0856 79.4369,70.1029 79.4573,70.1265 79.4809,70.1343 79.5343,70.139 79.5548,70.1516 79.5312,70.1611 79.5328,70.1815 79.5642,70.1831 79.5972,70.1783 79.6302,70.1689 79.6601,70.1689 79.7025,70.1799 79.7906,70.2098 79.7748,70.2161 79.8283,70.2271 79.8896,70.2459 79.9289,70.2585 79.9383,70.2695 79.9226,70.2774 79.899,70.2868 79.9085,70.2947 79.9352,70.2962 79.9666,70.2931 79.9918,70.29 80.0075,70.3025 80.0028,70.3198 79.9918,70.3292 79.9996,70.3371 80.0232,70.3355 80.0562,70.3277 80.0877,70.3277 80.1159,70.3355 80.1269,70.3481 80.1505,70.356 80.1835,70.3623 80.3879,70.3638 80.4068,70.3576 80.4241,70.345 80.4382,70.3293 80.4602,70.3199 80.4807,70.3199 80.5011,70.3214 80.5121,70.3214 80.5168,70.3057 80.5294,70.2963 80.5514,70.2916 80.5797,70.2916 80.5875,70.2994 80.564,70.3057 80.5498,70.3199 80.5655,70.3199 80.5891,70.3214 80.608,70.3167 80.6174,70.3246 80.6206,70.3419 80.6064,70.3434 80.5797,70.3434 80.5545,70.3419 80.5215,70.345 80.4979,70.3482 80.4807,70.356 80.4807,70.3702 80.4854,70.3765 80.4586,70.389 80.4319,70.3953 80.4241,70.4032 80.4351,70.4158 80.4681,70.4142 80.4822,70.4158 80.4885,70.422 80.4807,70.4346 80.4964,70.4378 80.5011,70.4488 80.4854,70.4598 80.4791,70.4771 80.5089,70.4818 80.531,70.4881 80.5482,70.5069 80.5545,70.5195 80.5765,70.5352 80.5797,70.5572 80.5467,70.5808 80.5231,70.5902 80.5011,70.5949 80.4744,70.5949 80.4429,70.6044 80.4115,70.6138 80.4115,70.6358 80.4209,70.6515 80.4791,70.6767 80.5027,70.6924 80.5105,70.7018 80.4838,70.7128 80.4036,70.7411 80.3911,70.7506 80.3753,70.7883 80.3737,70.8354 80.3737,70.8637 80.3675,70.8983 80.3706,70.9313 80.3706,70.9549 80.3376,70.9659 80.2527,70.9848 80.2291,70.991 80.2181,70.9926 80.1867,70.9926 80.1348,70.9942 80.0531,71.0036 79.9462,71.0162 79.8534,71.0256 79.7843,71.0319 79.7513,71.0382 79.701,71.0571 79.6428,71.0775 79.5517,71.1121 79.4212,71.1624 79.2986,71.1986 79.1634,71.2143 79.0503,71.2174 78.989,71.2473 78.9921,71.285 78.9638,71.3086 78.9748,71.3338 79.0173,71.3495 79.1037,71.3683 79.1634,71.3856 79.1854,71.4013 79.2027,71.4312 79.198,71.4689 79.1666,71.4925 79.1493,71.4957 79.1996,71.5161 79.2185,71.5177 79.2876,71.5004 79.3395,71.4988 79.3662,71.5082 79.4338,71.5082 79.5061,71.4988 79.5768,71.5067 79.6586,71.5035 79.7262,71.5051 79.7922,71.5161 79.8252,71.535 79.8394,71.5507 79.8456,71.5601 79.8912,71.5617 79.9085,71.5601 79.9557,71.5743 79.9384,71.5837 79.9415,71.601 79.9211,71.6167 79.9117,71.645 79.8849,71.6686 79.9447,71.6686 79.9447,71.678 79.9117,71.7 79.8928,71.711 79.8535,71.7094 79.8661,71.7377 79.9242,71.7503 79.9682,71.7519 79.9824,71.7582 79.9903,71.7707 80.0673,71.7534 80.094,71.7503 80.0956,71.7613 80.0909,71.777 80.1223,71.7723 80.1459,71.7723 80.1631,71.7755 80.1663,71.7865 80.1254,71.8054 80.0672,71.8132 80.061,71.8384 80.0389,71.8447 80.0059,71.8352 79.9462,71.8478 79.9038,71.8525 79.9195,71.8588 79.9132,71.8651 79.8629,71.8714 79.8598,71.8808 79.8,71.8855 79.7764,71.8887 79.7277,71.8887 79.6947,71.895 79.69,71.9122 79.6727,71.9295 79.624,71.9374 79.5815,71.9421 79.5328,71.9547 79.5029,71.9594 79.4715,71.9515 79.4275,71.9421 79.3615,71.9453 79.3096,71.95 79.2719,71.939 79.2341,71.939 79.231,71.9515 79.2027,71.9625 79.1823,71.961 79.1493,71.9563 79.077,71.9735 79.0345,71.9767 78.9779,71.9799 78.9465,71.9752 78.9198,71.9689 78.9056,71.9767 78.9072,71.9909 78.9072,72.005 78.8663,72.0145 78.816,72.0255 78.7815,72.0192 78.7437,72.0176 78.7233,72.0129 78.7217,72.0255 78.7359,72.038 78.7123,72.049 78.662,72.0585 78.629,72.0663 78.6101,72.0663 78.5897,72.0742 78.6117,72.0742 78.629,72.0805 78.6133,72.0883 78.5818,72.0868 78.5567,72.082 78.519,72.0789 78.4985,72.0789 78.4969,72.0868 78.5032,72.0962 78.4875,72.0993 78.4702,72.1009 78.4451,72.1041 78.4262,72.1056 78.4262,72.1119 78.4482,72.1119 78.4718,72.1151 78.4922,72.1213 78.4938,72.1261 78.4812,72.1292 78.4718,72.1323 78.4828,72.1402 78.4859,72.1559 78.4655,72.1654 78.4466,72.1764 78.4341,72.189 78.4262,72.2015 78.401,72.2031 78.3602,72.2031 78.3177,72.222 78.2816,72.233 78.2674,72.2597 78.2863,72.2676 78.313,72.2754 78.3086,72.282 78.2631,72.2949 78.2426,72.2957 78.1364,72.2876 78.1198,72.2764 78.0926,72.268 78.0731,72.2644 78.0323,72.2636 77.9039,72.2572 77.74,72.2195 77.7204,72.2144 77.5972,72.1511 77.5734,72.1263 77.5552,72.1136 77.4863,72.0922 77.4589,72.0877 77.4387,72.0899 77.3942,72.103 77.3701,72.1151 77.3406,72.1227 77.3202,72.1249 77.2904,72.1212 77.2654,72.1142 77.1907,72.0014 77.215,71.9815 77.2646,71.9709 77.3055,71.9664 77.3552,71.9684 77.3842,71.9741 77.4276,71.9875 77.4618,71.9996 77.5891,72.0165 77.6286,72.0194 77.6682,72.0211 77.7283,72.0222 77.7687,72.0177 77.7893,72.0143 77.8104,72.01 77.8315,72.0038 77.8803,71.9831 77.9299,71.9561 77.987,71.9198 78.0096,71.9041 78.0312,71.8895 78.0431,71.8605 78.0199,71.8279 77.9943,71.8057 77.9505,71.7871 77.9218,71.7808 77.8385,71.767 77.6547,71.7412 77.5772,71.7303 77.5286,71.727 77.4793,71.7274 77.4392,71.7294 77.3789,71.7369 77.3173,71.7497 77.2773,71.7641 77.2375,71.7859 77.0628,71.8542 77.0289,71.8661 76.7788,71.9451 76.737,71.9529 76.7165,71.9551 76.6368,71.9549 76.6054,71.9517 76.5471,71.9456 76.4307,71.9287 76.3724,71.9215 76.2451,71.9115 76.2155,71.9096 76.1845,71.9045 76.1201,71.8902 75.9188,71.833 75.8829,71.783 75.9936,71.6229 76.0774,71.5136 76.0705,71.4918 76.087,71.4801 76.1353,71.4653 76.1556,71.4623 76.2154,71.4561 76.2749,71.4526 76.3152,71.446 76.3765,71.4323 76.4265,71.4179 76.4477,71.4091 76.4929,71.3792 76.5541,71.3654 76.717,71.3384 76.8256,71.3282 76.854,71.331 76.9019,71.3338 76.9385,71.3268 76.9879,71.2932 77.0119,71.274 77.1339,71.2396 77.1741,71.2317 77.2934,71.2102 77.339,71.2046 77.3039,71.2176 77.2837,71.2226 77.2596,71.2288 77.2834,71.2367 77.3125,71.2352 77.3525,71.2284 77.3922,71.2191 77.4128,71.2133 77.4376,71.2014 77.4578,71.1957 77.478,71.191 77.5463,71.1865 77.57,71.1941 77.5581,71.2204 77.8025,71.2786 77.8291,71.2683 77.8185,71.2496 77.7474,71.2321 77.7259,71.2155 77.7601,71.1591 77.7989,71.165 77.9155,71.1761 78.0808,71.1662 78.1166,71.156 78.1322,71.1411 78.1353,71.1162 78.1141,71.0727 78.0937,71.0537 78.0551,71.0254 78.0695,71.0039 78.1982,70.9541 78.2358,70.9441 78.2738,70.942 78.3186,70.9506 78.2967,70.9585 78.2578,70.964 78.1747,70.9968 78.2401,71.0136 78.2875,71.0178 78.3164,71.0168 78.3405,71.008 78.3566,70.9676 78.3502,70.9413 78.3062,70.8985 78.3709,70.8622 78.5348,70.8403 78.5728,70.8404 78.6193,70.8473 78.6561,70.8578 78.7088,70.8836 78.7039,70.9116 78.8871,70.9257 78.9284,70.9137 78.8752,70.8494 78.8513,70.8412 78.777,70.8281 78.6944,70.8212 78.5809,70.8188 78.5242,70.8182 78.4478,70.8222 78.3812,70.8238 78.2581,70.7927 78.2293,70.7954 78.1998,70.8029 78.1683,70.8149 78.1341,70.8298 78.0961,70.8439 77.9422,70.8592 77.8565,70.8591 77.8277,70.8634 77.7884,70.8728 77.7603,70.882 77.7356,70.8936 77.7114,70.9308 77.7135,70.9553 77.7058,70.9957 77.6839,71.014 77.6387,71.035 77.6103,71.0437 77.5906,71.0483 77.5019,71.0631 77.3976,71.0696 77.2054,71.0724 76.9643,71.08 76.8664,71.0894 76.828,71.0887 76.8005,71.0837 76.7587,71.061 76.7833,71.0101 76.7565,70.9819 76.7404,70.976 76.7409,70.9946 76.7044,71.0618 76.6674,71.0948 76.4811,71.1146 76.4421,71.1163 76.3949,71.1126 76.309,71.1098 76.2418,71.1098 76.2028,71.1112 76.1246,71.1179 76.0852,71.1221 76.0357,71.1272 75.9497,71.1296 75.6176,71.162 75.2761,71.214 75.214,71.2301 75.1345,71.2526 75.094,71.267 75.0591,71.2975 75.0628,71.3538 75.093,71.365 75.1509,71.367 75.2447,71.3873 75.3237,71.4293 75.3199,71.5643 75.2962,71.5795 75.2751,71.585 75.2545,71.5893 75.2317,71.5928 75.202,71.6016 75.0959,71.6407 75.0382,71.6963 75.0462,71.7458 75.1073,71.8559 75.1274,71.8556 75.2137,71.8676 75.2487,71.8775 75.2605,71.8987 75.2402,71.9314 75.3361,72.053 75.4136,72.1163 75.4571,72.1348 75.515,72.1447 75.5484,72.1564 75.5666,72.1723 75.5801,72.1971 75.5611,72.2092 75.5192,72.2129 75.4933,72.2204 75.3718,72.3864 75.3892,72.436 75.4128,72.4478 75.4326,72.4492 75.4767,72.4449 75.5071,72.4456 75.5308,72.4613 75.509,72.4777 75.4675,72.4952 75.4276,72.5065 75.2961,72.551 75.196,72.5855 75.2486,72.6107 75.2724,72.6072 75.3457,72.6473 75.3231,72.6621 75.1777,72.7077 75.0688,72.7272 74.9185,72.7718 74.8874,72.7789 74.8661,72.7809 74.8239,72.7822 74.8034,72.7804 74.6487,72.7363 74.6338,72.6773 74.6783,72.6537 74.7701,72.6035 74.8312,72.5617 74.8468,72.5467 74.8607,72.5285 74.8702,72.5103 74.8804,72.4892 74.9166,72.3519 74.9301,72.2948 74.9318,72.2575 74.9095,72.1355 74.8834,72.1024 74.8652,72.0834 74.8362,72.058 74.7971,72.0261 74.7738,72.0101 74.7488,72.0001 74.6375,71.9697 74.3176,71.8984 74.2799,71.8915 74.2231,71.8809 73.9777,71.8378 73.7862,71.8144 73.5612,71.7738 73.5247,71.7649 73.4876,71.7565 73.4326,71.7433 73.3962,71.7348 73.3536,71.7205 73.3059,71.6685 73.3276,71.6482 73.3499,71.6241 73.3518,71.5964 73.3323,71.5677 73.3134,71.5548 73.199,71.4887 73.1591,71.4687 73.024,71.408 72.9388,71.3741 72.8957,71.354 72.8479,71.324 72.8663,71.3061 72.9379,71.2905 72.9792,71.2847 73.0004,71.2803 73.0643,71.2643 73.1713,71.237 73.2236,71.2204 73.2721,71.2033 73.3035,71.1919 73.3343,71.1806 73.3577,71.1689 73.3967,71.1453 73.418,71.1274 73.4534,71.0914 73.4732,71.0673 73.4929,71.0431 73.506,71.0156 73.517,70.9941 73.5579,70.9519 73.5867,70.9343 73.6165,70.9196 73.6575,70.9053 73.7078,70.8855 73.7269,70.8735 73.741,70.8504 73.7485,70.8231 73.7454,70.7922 73.7591,70.7552 73.7854,70.7373 73.8252,70.72 73.8855,70.6969 73.9194,70.6854 74.0263,70.6458 74.0759,70.6254 74.0955,70.6166 74.1223,70.6019 74.1417,70.5869 74.1533,70.5626 74.1731,70.482 74.1602,70.4378 74.1435,70.4189 74.1266,70.4047 74.1082,70.3919 74.0337,70.3425 73.9973,70.326 73.925,70.2955 73.8956,70.2751 73.8786,70.2338 73.842,70.2075 73.8092,70.1935 73.7662,70.1822 73.7415,70.1726 73.5549,70.0723 73.5245,70.0429 73.5529,70.0262 73.5891,70.0165 73.6028,69.9859 73.4903,69.7859 73.3861,69.6885 73.3567,69.6528 73.3852,69.61 73.4424,69.5619 73.4777,69.5347 73.4974,69.5228 73.5245,69.5111 73.558,69.497 73.5796,69.4851 73.6111,69.4638 73.6869,69.4037 73.7173,69.3669 73.737,69.3251 73.7294,69.2855 73.7206,69.2663 73.7083,69.2474 73.6809,69.2084 73.6377,69.1625 73.5961,69.111 73.5905,69.082 73.6059,69.0672 73.6236,69.0549 73.6413,69.043 73.7385,68.9964 73.7767,68.9843 73.8117,68.9858 73.944,69.017 74.0081,69.0403 74.0326,69.0473 74.1778,69.0528 74.278,69.0476 74.3329,69.0417 74.4251,69.0259 74.4813,69.0141 74.5268,69.001 74.5629,68.9921 74.5899,68.9898 74.6769,68.9943 74.8482,69.0134 74.9818,69.0297 74.9831,69.0674 75.0157,69.0786 75.0487,69.0898 75.1916,69.1293 75.2881,69.156 75.3217,69.1645 75.3733,69.1695 75.4174,69.1703 75.4446,69.1681 75.5554,69.1482 75.6012,69.142 75.6726,69.1389 75.7162,69.1412 75.7686,69.1452 75.8034,69.1486 75.8386,69.1497 75.8837,69.1457 75.9361,69.1313 76.0701,69.09 76.2104,69.0585 76.2466,69.0527 76.3478,69.0396 76.3836,69.0381 76.4156,69.0443 76.4381,69.057 76.4629,69.0574 76.5628,69.0404 76.6289,69.0166 76.6518,69.0043 76.6703,68.98 76.6876,68.9612 76.7275,68.9341 76.7563,68.9199 76.7828,68.9161 76.872,68.908 76.9782,68.9025 77.0495,68.8942 77.1307,68.8779 77.1627,68.8639 77.1887,68.8516 77.2346,68.8395 77.2792,68.8321 77.3407,68.83 77.3666,68.8313 77.4018,68.829 77.4425,68.8249 77.4788,68.8162 77.5107,68.801 77.527,68.7824 77.5792,68.6326 77.5843,68.5948 77.5761,68.5758 77.559,68.5517 77.5503,68.5262 77.6148,68.4284 77.6468,68.423 77.6799,68.431 77.7306,68.4378 77.7643,68.4287 77.7847,68.4037 77.7704,68.3816 77.7711,68.3516 77.792,68.3077 77.809,68.2952 77.8374,68.2844 77.9237,68.2689 78.0069,68.1806 77.9846,68.1645 77.8588,68.1517 77.7476,68.1435 77.6969,68.1417 77.646,68.1406 77.5708,68.1329 77.5379,68.1249 77.4814,68.1025 77.4527,68.0892 77.4145,68.0696 77.3961,68.0568 77.3808,68.0439 77.3585,68.0237 77.3407,68.0044 77.3099,67.9024 77.2925,67.6915 77.305,67.6729 77.3285,67.6608 77.3721,67.6482 77.4061,67.6425 77.4401,67.6397 77.4988,67.6367 77.5641,67.645 77.5944,67.6556 77.7784,67.6381 77.844,67.6062 77.9327,67.5734 77.9747,67.5691 78.0041,67.5746 78.1376,67.5865 78.2959,67.5988 78.4413,67.5762 78.4548,67.5572 78.4359,67.5453 78.4115,67.5398 78.3781,67.5415 78.3359,67.5482 78.3059,67.5422 78.3397,67.5271 78.4158,67.5157 78.4489,67.5156 78.4973,67.5277 78.527,67.5467 78.5523,67.5619 78.5853,67.5659 78.6184,67.5664 78.6937,67.5612 78.8457,67.509 78.8772,67.4875 78.8106,67.4707 78.7778,67.4704 78.7191,67.4779 78.6852,67.4852 78.6516,67.4948 78.6176,67.5008 78.5592,67.5051 78.4523,67.4958 78.4116,67.4909 78.3792,67.4803 78.3505,67.4686 78.318,67.465 78.2021,67.4639 78.1683,67.4692 78.1405,67.4808 78.1096,67.492 78.0763,67.4948 78.0517,67.4913 77.9872,67.475 77.9548,67.4683 77.8819,67.4546 77.8181,67.4624 77.798,67.479 77.706,67.4848 77.6728,67.4832 77.6242,67.4761 77.5351,67.5104 77.5188,67.5224 77.3434,67.5766 77.2662,67.5929 77.2323,67.5999 77.1805,67.6116 77.128,67.6266 76.9621,67.6771 76.9236,67.6985 76.912,67.7255 76.9312,67.7468 76.9616,67.7585 76.9845,67.7607 76.999,67.7419 77.0319,67.7357 77.0565,67.7385 77.0813,67.752 77.1388,67.8224 77.0853,67.8595 77.0351,67.887 77.081,67.9778 77.1483,68.0707 77.1973,68.1411 77.1754,68.1508 77.0975,68.1615 77.0358,68.1739 77.0028,68.2043 77.0151,68.2302 77.0448,68.2384 77.0867,68.2481 77.1406,68.2931 77.1576,68.4306 77.1158,68.4572 77.0353,68.4963 76.7255,68.5981 76.6412,68.6228 76.6052,68.6321 76.5133,68.6616 76.4789,68.6796 76.4584,68.7102 76.4797,68.733 76.5315,68.7594 76.5373,68.7815 76.4478,68.8704 76.4192,68.8819 76.392,68.8873 76.3477,68.892 76.1628,68.8971 76.0578,68.8945 75.9374,68.8837 75.664,68.8514 75.6304,68.8456 75.5633,68.8313 75.3659,68.8134 75.3398,68.8133 75.3059,68.8099 74.9843,68.7636 74.9178,68.7514 74.8678,68.7414 74.6663,68.7096 74.5655,68.695 74.5322,68.6901 74.4823,68.6809 74.4006,68.6592 74.3688,68.648 74.3317,68.6309 74.2929,68.6012 74.2578,68.5148 74.2708,68.4931 74.2964,68.475 74.3093,68.4535 74.3057,68.4274 74.2934,68.4015 74.2706,68.3782 74.2303,68.3481 74.185,68.312 74.1821,68.2835 74.215,68.2623 74.2651,68.2414 74.3345,68.2122 74.38,68.1949 74.4504,68.1594 74.4754,68.1412 74.5351,68.0926 74.5693,68.0623 74.6554,67.8872 74.6643,67.8433 74.6473,67.7344 74.6382,67.7023 74.6274,67.6765 74.6188,67.6571 74.5998,67.6247 74.5848,67.6053 74.5495,67.5852 74.5194,67.5715 74.4893,67.5577 74.3837,67.5135 74.2626,67.4657 74.2172,67.4489 74.1176,67.414 74.0952,67.406 74.0049,67.3708 73.938,67.3425 73.9075,67.3255 73.888,67.3117 73.7509,67.2043 73.7766,67.1732 73.7982,67.1387 73.7668,66.9845 73.717,66.9132 73.701,66.8997 73.6739,66.8864 73.6216,66.8691 73.5909,66.8615 73.5603,66.8548 73.4623,66.8211 73.3722,66.7475 73.3497,66.7408 73.2247,66.7253 73.0553,66.6949 73.0093,66.6851 72.8434,66.6395 72.8454,66.616 72.7997,66.5752 72.7636,66.5651 72.6478,66.5489 72.5926,66.5459 72.5439,66.546 72.4647,66.5422 72.3869,66.5334 72.3556,66.5292 72.3262,66.5202 72.2074,66.4486 72.2024,66.4244 72.2148,66.3756 72.2473,66.3326 72.2421,66.278 72.2279,66.2513 72.1966,66.2148 72.1751,66.2065 72.1446,66.2027 72.0667,66.1972 71.9064,66.1558 71.8645,66.1431 71.8543,66.1361 71.8305,66.15 71.7992,66.1634 71.7679,66.1608 71.7464,66.1547 71.709,66.1469 71.6762,66.1496 71.652,66.1604 71.629,66.1816 71.6037,66.2094 71.5702,66.2236 71.5268,66.2344 71.3167,66.2636 71.284,66.2668 71.1683,66.2771 71.1035,66.2785 70.8622,66.2826 70.8298,66.2834 70.7364,66.2767 70.5333,66.2619 70.4878,66.2552 70.4253,66.2512 70.3138,66.2468 70.2816,66.2457 70.2329,66.2479 70.1816,66.2564 70.0936,66.2764 69.9552,66.3014 69.8867,66.3124 69.8529,66.3169 69.6672,66.3703 69.6099,66.3886 69.5234,66.4023 69.4984,66.4044 69.4487,66.4078 69.4162,66.408 69.3651,66.4106 69.2795,66.4184 69.2359,66.4262 69.0899,66.4764 69.0131,66.5032 68.9735,66.5232 68.9595,66.5445 68.9577,66.5702 68.966,66.5967 68.9743,66.6295 68.9734,66.6679 68.9451,66.6885 68.911,66.6947 68.8531,66.699 68.8307,66.722 68.8641,66.7312 68.8945,66.7359 68.9734,66.7427 69.021,66.7459 69.2395,66.743 69.2739,66.7398 69.3191,66.7298 69.3729,66.7181 69.4683,66.7043 69.659,66.7286 69.7203,66.7378 69.7489,66.7473 69.8374,66.718 69.9198,66.672 70.0068,66.6263 70.0402,66.6153 70.0936,66.6032 70.1451,66.5961 70.1872,66.5927 70.2112,66.5939 70.3672,66.6097 70.3915,66.6534 70.4332,66.6694 70.4724,66.6727 70.5609,66.6756 70.5938,66.6636 70.5347,66.6287 70.4564,66.6044 70.4255,66.6004 70.3639,66.5925 70.3,66.5902 70.1664,66.5626 70.1492,66.5366 70.1545,66.5112 70.1767,66.4996 70.326,66.4645 70.3612,66.4578 70.5427,66.4248 70.5672,66.4238 70.5988,66.4256 70.8379,66.4501 70.9038,66.4808 70.9214,66.5089 70.8979,66.519 70.9149,66.5392 70.9375,66.5434 71.125,66.5529 71.2288,66.5561 71.2534,66.5548 71.405,66.56 71.4266,66.5684 71.4534,66.6032 71.446,66.6379 71.4218,66.646 71.3697,66.6754 71.2583,66.8423 71.2637,66.8822 71.4142,66.8443 71.5333,66.8493 71.6274,66.8606 71.7272,66.9029 71.8627,66.9832 71.8659,67.025 71.9168,67.0696 71.9657,67.109 72.0198,67.0806 72.0403,67.0633 72.0642,67.0663 72.0832,67.0883 72.0584,67.1383 72.0325,67.1517 71.8958,67.1751 71.899,67.2121 72.0454,67.2423 72.0772,67.2356 72.0992,67.2244 72.1311,67.2221 72.2275,67.231 72.2618,67.2467 72.2863,67.278 72.2986,67.3153 72.2704,67.3474 72.2476,67.3718 72.2591,67.39 72.3068,67.4 72.3521,67.4135 72.3869,67.4287 72.3983,67.4452 72.3909,67.4943 72.4055,67.5158 72.4386,67.5317 72.4627,67.5363 72.5048,67.5343 72.5384,67.5331 72.6847,67.5457 72.7165,67.5522 72.738,67.574 72.7398,67.5998 72.881,67.6369 72.922,67.7298 72.9543,67.7477 73.0222,67.7523 73.0516,67.768 73.0497,67.8775 73.0398,67.8995 73.0066,67.9361 72.9675,67.9689 72.9347,67.9865 72.9186,68.0049 72.9494,68.1317 73.1097,68.2108 73.2238,68.2625 73.2582,68.2795 73.2715,68.315 73.2946,68.3475 73.3145,68.3613 73.372,68.3876 73.4138,68.3985 73.4452,68.3918 73.4363,68.3566 73.4613,68.3416 73.4836,68.3537 73.4952,68.3797 73.4964,68.4048 73.4743,68.4326 73.4308,68.4625 73.3579,68.4989 73.317,68.5133 73.2619,68.524 73.2335,68.5315 73.1518,68.5598 73.1049,68.5772 73.068,68.5946 73.0,68.6234 72.972,68.6347 72.9404,68.6462 72.9018,68.6573 72.8469,68.6665 72.809,68.675 72.7367,68.6932 72.6697,68.7156 72.6383,68.7273 72.5659,68.7556 72.5157,68.7787 72.4867,68.7971 72.4575,68.821 72.4203,68.8555 72.3994,68.8879 72.3263,69.0364 72.3178,69.0612 72.3245,69.0931 72.3527,69.1279 72.3942,69.1535 72.4247,69.1672 72.4664,69.2523 72.4792,69.3488 72.4758,69.3948 72.4625,69.4336 72.4361,69.4719 72.4004,69.5176 72.3777,69.5353 72.3994,69.5963 72.4164,69.6097 72.4787,69.6441 72.4984,69.6606 72.5134,69.6895 72.5212,69.7089 72.529,69.7529 72.5199,69.7843 72.4893,69.8146 72.4343,69.8497 72.4054,69.8643 72.3707,69.885 72.3313,69.9582 72.348,69.9716 72.3758,69.9849 72.4072,69.9988 72.4584,70.0695 72.4474,70.0924 72.428,70.1038 72.3776,70.1203 72.3573,70.126 72.3233,70.137 72.2968,70.1483 72.2681,70.1757 72.271,70.1976 72.3046,70.2177 72.338,70.238 72.3708,70.2549 72.4274,70.2781 72.4762,70.2976 72.5347,70.3164 72.5614,70.3198 72.6116,70.3279 72.6121,70.4384 72.5976,70.4565 72.5717,70.4711 72.5361,70.4914 72.5182,70.5221 72.6092,70.6318 72.6693,70.7468 72.6742,70.7752 72.6491,70.8019 72.5448,70.8664 72.4532,70.9302 72.4686,70.9574 72.494,70.977 72.5093,71.0022 72.4929,71.0204 72.4451,71.0496 72.425,71.0616 72.4037,71.0668 72.3732,71.071 72.3434,71.0731 72.3229,71.076 72.177,71.114 72.053,71.1523 71.9643,71.1802 71.9326,71.1913 71.8908,71.2081 71.6804,71.33 71.6637,71.3415 71.6403,71.3687 71.6371,71.3971 71.6538,71.4199 71.6923,71.4402 71.7846,71.4683 71.8798,71.4756 72.025,71.5055 72.1954,71.6248 72.1809,71.6705 72.1591,71.6948 72.1471,71.7133 72.1492,71.7381 72.1699,71.7607 72.1942,71.7736 72.2191,71.7808 72.2765,71.7867 72.3133,71.7952 72.3443,71.8124 72.3632,71.8292 72.3816,71.8637 72.3952,71.9045 72.5645,72.0994 72.5955,72.1285 72.637,72.1517 72.6899,72.1721 72.706,72.1972 72.6887,72.2153 72.6628,72.2391 72.6212,72.3083 72.618,72.373 72.5504,72.5086 72.5644,72.5246 72.6171,72.5426 72.6358,72.5523 72.6481,72.6138 72.594,72.6252 72.4368,72.6539 72.3696,72.6659 72.105,72.7018 71.8906,72.7244 71.8649,72.7172 71.7971,72.7047 71.7486,72.6983 71.7278,72.6972 71.7064,72.6992 71.6491,72.715 71.6761,72.7197 71.6976,72.718 71.7395,72.7178 71.7889,72.7232 71.8221,72.7378 71.7654,72.7532 71.7442,72.7534 71.6794,72.7585 71.6357,72.7629 71.5914,72.7682 71.5684,72.7724 71.5025,72.7882 71.4093,72.808 71.3866,72.812 71.365,72.8136 71.3439,72.8136 71.3231,72.813 71.16,72.804 70.9956,72.8056 70.9737,72.8073 70.9527,72.8077 70.805,72.81 70.745,72.804 70.7064,72.7972 70.6266,72.7884 70.5857,72.7871 70.4584,72.7898 70.4155,72.7915 70.3509,72.795 70.2638,72.8011 70.1371,72.8027 70.0746,72.802 69.7229,72.7917 69.7023,72.7909 69.6517,72.7882 69.6033,72.7803 69.5419,72.7772 69.4792,72.7768 69.4358,72.7795 69.4036,72.7838 69.3873,72.8088 69.532,72.8323 69.6239,72.8467 69.6181,72.866 69.5969,72.8704 69.5748,72.872 69.3826,72.8763 69.3613,72.8768 69.3406,72.8755 69.2103,72.8635 69.1587,72.8473 69.1388,72.8309 69.1408,72.8061 69.1423,72.7815 69.1283,72.7624 69.0621,72.7002 69.036,72.6831 68.9938,72.6662 68.9486,72.6543 68.8775,72.633 68.8441,72.6191 68.81,72.597 68.7616,72.4841 68.6103,72.1964 68.5761,72.1433 68.5139,72.034 68.4919,71.986 68.4031,71.8717 68.3357,71.7817 68.3053,71.7236 68.1541,71.6211 67.9689,71.5202 67.9414,71.5064 67.8113,71.446 67.6379,71.3928 67.4689,71.3456 67.2618,71.2788 67.2116,71.2644 67.1772,71.2572 66.9314,71.2095 66.8487,71.2004 66.7712,71.1993 66.7497,71.1926 66.6835,71.1158 66.6838,71.1094 66.6749,71.0866 66.6583,71.0699 66.6256,71.0449 66.5897,71.0277 66.5372,71.0036 66.4857,70.9747 66.4676,70.9515 66.4664,70.9291 66.5008,70.9126 66.5273,70.9077 66.5574,70.9063 66.615,70.9191 66.5928,70.9569 66.6641,71.0058 66.7352,70.9866 66.6818,70.909 66.6069,70.8504 66.571,70.8332 66.5311,70.8204 66.5063,70.8136 66.4702,70.7977 66.4596,70.7751 66.5342,70.6707 66.5566,70.669 66.8564,70.7121 66.8989,70.7222 66.9306,70.7348 66.955,70.7423 67.0335,70.7396 67.0546,70.7371 67.0768,70.7323 67.1064,70.7215 67.1322,70.711 67.1617,70.6936 67.1847,70.6652 67.186,70.6287 67.129,70.5714 67.0998,70.5186 67.0616,70.4251 67.1089,70.3691 67.0567,70.3048 66.9497,70.1452 66.9408,70.1223 66.9562,70.1087 67.1073,70.0535 67.1044,70.0845 67.1369,70.0728 67.1788,70.0062 67.1611,69.9857 67.1298,69.9519 67.0965,69.9212 67.0699,69.9075 67.0292,69.8972 66.8744,69.8673 66.8426,69.8705 66.8192,69.9007 66.8313,69.92 66.8567,69.93 66.8413,69.9606 66.8119,69.9624 66.774,69.9488 66.753,69.9348 66.726,69.907 66.623,69.664 66.6496,69.4905 66.7296,69.4516 66.7719,69.4354 66.8034,69.442 66.7952,69.4639 66.7896,69.5413 66.8317,69.6068 66.8651,69.6092 66.9142,69.6037 66.9348,69.6001 66.963,69.5925 66.9878,69.5846 67.0266,69.5747 67.1846,69.5358 67.2155,69.5297 67.2401,69.5285 67.2929,69.5318 67.3294,69.532 67.3497,69.5279 67.467,69.5018 67.4951,69.4941 67.5437,69.459 67.64,69.4267 67.6607,69.4219 67.6811,69.4182 67.8115,69.3956 67.8493,69.3929 67.8857,69.403 67.8615,69.4241 67.8841,69.4463 67.9113,69.4594 67.9524,69.4547 67.9529,69.3116 67.8968,69.2716 67.8763,69.2495 67.9065,69.1861 67.932,69.1624 67.9487,69.1508 68.1001,69.0474 68.1309,69.0301 68.1714,69.0138 68.2119,68.9907 68.2582,68.9496 68.2892,68.9101 68.3087,68.892 68.3275,68.8838 68.4117,68.8575 68.5091,68.8329 68.529,68.829 68.584,68.8249 68.6388,68.8221 68.6734,68.8233 68.7008,68.8323 68.7513,68.8561 68.8745,68.8755 69.0361,68.8714 69.07,68.8673 68.9705,68.8278 68.9284,68.8228 68.8589,68.821 68.816,68.8176 68.8033,68.8004 68.8368,68.7864 68.8722,68.786 68.9329,68.7887 68.963,68.7809 68.9485,68.7448 68.7771,68.5468 68.7554,68.523 68.7339,68.5058 68.6419,68.4295 68.6001,68.4013 68.5311,68.3648 68.5128,68.3519 68.4223,68.2852 68.413,68.2654 68.4321,68.2476 68.4198,68.2233 68.3845,68.1899 68.3387,68.1637 68.2926,68.1378 68.1477,68.0997 68.1216,68.1005 68.0423,68.1519 68.0618,68.2093 68.1111,68.2455 68.0159,68.3238 67.9062,68.3507 67.7391,68.3831 67.6689,68.3845 67.6402,68.3898 67.6136,68.4007 67.563,68.4227 67.592,68.4208 67.6542,68.4157 67.6293,68.4298 67.5029,68.487 67.4655,68.5005 67.2667,68.5695 67.124,68.605 67.0871,68.6076 67.0592,68.6137 66.8986,68.7031 66.9075,68.7297 66.9388,68.7371 66.9762,68.7463 66.9125,68.7677 66.853,68.7785 66.7567,68.7923 66.6999,68.7981 66.6627,68.8006 66.5918,68.8005 66.5363,68.8041 66.4788,68.811 66.4397,68.8174 66.2266,68.8573 66.206,68.8623 66.1574,68.8775 66.1293,68.8915 66.0551,68.9174 65.9755,68.9421 65.9545,68.9466 65.7803,68.9677 65.7415,68.9726 65.6834,68.9795 65.6259,68.985 65.5673,68.992 65.542,68.9984 65.5219,69.0257 65.5714,69.032 65.5914,69.0205 65.6114,69.0111 65.6387,69.0105 65.7487,69.0186 65.7293,69.0383 65.621,69.0533 65.5109,69.0605 65.4797,69.0624 65.4037,69.0689 65.3638,69.0746 65.2419,69.0954 65.1804,69.1073 65.1378,69.1166 65.048,69.1381 64.9924,69.1562 64.9672,69.1672 64.9366,69.1807 64.9039,69.1839 64.8744,69.1812 64.8131,69.1746 64.7948,69.17 64.7778,69.1542 64.8,69.1186 64.6939,69.0629 64.6583,69.0538 64.6322,69.0606 64.626,69.0769 64.593,69.0517 64.4604,69.0139 64.3847,68.9318 64.3847,68.875 64.4288,68.7929 64.574,68.7866 64.7003,68.8182 64.877,68.7487 65.0538,68.7235 65.199,68.7235 65.2242,68.6414 65.3442,68.5594 65.4136,68.5215 65.483,68.4647 65.3883,68.4268 65.3252,68.3637 65.2179,68.2879 65.1422,68.1869 65.1737,68.0859 65.1737,67.9723 65.2495,67.8713 65.3883,67.8397 65.5272,67.8334 65.7355,67.8461 65.8302,67.8839 65.9186,67.8271 65.8933,67.7135 66.0512,67.6756 66.0827,67.6062 65.9438,67.5809 65.7987,67.5809 65.6977,67.5683 65.6977,67.4989 65.8618,67.4862 65.9502,67.4799 65.988,67.3726 65.7482,67.3158 65.603,67.2969 65.584,67.259 65.4704,67.2211 65.2432,67.1643 65.1043,67.1012 65.0853,67.0317 64.997,67.0128 64.997,66.836 64.8013,66.7919 64.5362,66.754 64.4288,66.6845 64.2395,66.615 64.1132,66.615 63.9933,66.6024 63.8733,66.6087 63.785,66.533 63.7092,66.514 63.5956,66.4762 63.5198,66.432 63.4125,66.432 63.3115,66.4383 63.2736,66.3688 63.1979,66.3247 63.1411,66.2678 63.2105,66.2363 63.16,66.1921 63.0653,66.23 62.9833,66.1984 62.9012,66.1353 62.8381,66.0532 62.756,66.0343 62.7245,65.9838 62.7434,65.9775 62.7686,65.9207 62.7181,65.8891 62.756,65.8449 62.7497,65.8197 62.6676,65.8197 62.5288,65.807 62.2763,65.7439 62.0175,65.6682 61.7776,65.6492 61.6324,65.5735 61.4809,65.4788 61.3294,65.3652 61.2347,65.321 61.1526,65.2831 61.241,65.2389 61.2094,65.2137 61.1526,65.1758 61.0958,65.119 61.0011,65.1063 60.9759,65.0369 60.8244,64.999 60.7171,65.018 60.7108,64.9738 60.6098,64.8791 60.5024,64.8475 60.4961,64.8854 60.4267,64.917 60.3257,64.9675 60.3383,65.0053 60.2058,65.0243 60.0543,65.0243 59.928,64.9359 59.7513,64.8349 59.6061,64.7781 59.5429,64.7023 59.5934,64.6392 59.5934,64.6013 59.5303,64.5761 59.4735,64.513 59.3914,64.4561 59.4609,64.4246 59.5051,64.3993 59.5493,64.2668 59.4798,64.2226 59.5556,64.1468 59.6439,64.0963 59.7639,64.1026 59.726,64.0143 59.6628,63.9574 59.5366,63.9006 59.4734,63.888 59.4734,63.8059 59.4419,63.7807 59.4103,63.6797 59.3724,63.5282 59.3156,63.4398 59.2336,63.3514 59.2588,63.3073 59.1894,63.2946 59.2336,63.2315 59.1704,63.1494 59.202,63.0674 59.1326,63.0232 59.1326,62.9664 59.2209,62.9033 59.3409,62.8843 59.3724,62.8212 59.3535,62.7391 59.3093,62.7076 59.3156,62.6634 59.3472,62.5876 59.4356,62.4803 59.5555,62.474 59.4861,62.3667 59.4987,62.3036 59.4482,62.2783 59.404,62.2594 59.404,62.2026 59.303,62.07 59.3851,61.9437 59.2967,61.8617 59.2336,61.8175 59.2336,61.7607 59.2904,61.7102 59.2399,61.6281 59.101,61.5839 59.0379,61.5902 58.9495,61.5018 58.899,61.5081 58.8233,61.5081 58.7159,61.4639 58.5265,61.4639 58.0152,61.4513 57.2199,61.4576 57.0936,61.4703 57.0305,61.4324 56.5697,61.4639 56.557,61.445 56.4876,61.445 56.4497,61.3882 56.2919,61.3945 56.2162,61.2809 56.2414,61.2493 56.1972,61.1546 55.7238,61.2051 55.6418,61.0284 55.181,61.0852 55.1115,60.959 54.96,60.9779 54.9537,60.9085 54.8653,60.8201 53.7669,60.94 53.7164,60.7948 53.2367,60.8516 53.2935,60.9779 52.7759,61.041 52.6938,60.8958 52.334,60.9274 52.2583,60.7885 51.7911,60.8264 51.6712,60.555 52.0626,60.4918 52.031,60.4287 52.2456,60.4161 52.2267,60.3403 52.2456,60.3151 52.2001,60.1929 52.3362,60.1494 52.5813,60.1249 52.7814,60.1126 53.0428,60.1044 53.292,60.1126 53.3124,60.1698 53.3859,60.1698 53.3982,60.129 53.4554,60.1085 53.4962,60.1085 53.6146,59.9615 53.5738,59.8635 53.5738,59.794 53.5085,59.6511 53.3287,59.6347 53.2675,59.4755 53.1776,59.3815 53.1204,59.3325 53.1082,59.2631 53.1654,59.2059 53.2593,59.1242 53.3492,59.0874 53.4104,59.0956 53.4635,59.0793 53.6187,59.0384 53.5861,59.0711 53.6473,59.0834 53.6759,59.0752 53.7101,59.0557 53.7417,59.0715 53.7827,59.04 53.7291,59.0052 53.7449,58.9832 53.7038,58.9768 53.6628,58.9768 53.6312,58.9106 53.6281,58.8664 53.6565,58.8096 53.6975,58.7875 53.7354,58.7591 53.8111,58.7464 53.8301,58.7307 53.767,58.7022 53.688,58.6802 53.6533,58.6549 53.6407,58.6297 53.6596,58.6044 53.5934,58.5602 53.5902,58.5381 53.6281,58.516 53.666,58.4497 53.6786,58.4182 53.6849,58.3898 53.6849,58.3393 53.7385,58.3046 53.7859,58.273 53.7291,58.2099 53.7038,58.1783 53.7512,58.1499 53.7954,58.131 53.8048,58.0994 53.8364,58.0805 53.8459,58.0457 53.8869,58.0016 53.9374,57.9731 54.0005,57.9384 53.9974,57.9037 53.9879,57.8564 54.0258,57.809 54.0321,57.7396 54.0542,57.6859 54.0573,57.6449 54.0132,57.6449 53.969,57.6196 53.9816,57.5881 54.0163,57.5691 54.0005,57.5565 53.9563,57.5565 53.9343,57.5407 53.8901,57.5407 53.8901,57.506 53.9437,57.5123 53.9469,57.4934 53.9343,57.4871 53.9974,57.465 54.0226,57.5028 54.0605,57.5092 54.1015,57.4871 54.07,57.465 54.0763,57.4176 54.1205,57.4082 54.1363,57.4145 54.171,57.4113 54.171,57.3734 54.1331,57.3608 54.0889,57.3513 54.0479,57.3419 54.0416,57.3293 54.0321,57.2914 54.0163,57.2693 54.0258,57.2503 54.07,57.263 54.1079,57.2535 54.1457,57.2535 54.1994,57.244 54.2373,57.2219 54.2089,57.1904 54.2373,57.1714 54.2215,57.1462 54.2341,57.1241 54.2152,57.0799 54.1931,57.0673 54.1773,57.0641 54.2025,57.0389 54.2499,57.0263 54.2909,57.0136 54.3035,56.9852 54.2562,56.9537 54.1205,56.9663 54.0321,56.9253 53.9879,56.8968 53.9974,56.8527 53.9847,56.7958 53.9847,56.7422 53.9374,56.7169 53.8837,56.6917 53.8364,56.7074 53.7859,56.7169 53.789,56.7611 53.7385,56.7674 53.7101,56.7264 53.7385,56.6822 53.7575,56.6569 53.7827,56.638 53.7733,56.6096 53.7449,56.597 53.7354,56.5875 53.7638,56.5559 53.7985,56.5717 53.8301,56.5875 53.8711,56.5843 53.9058,56.6222 53.9437,56.6443 53.9626,56.6127 53.9942,56.6096 53.9942,56.5938 53.9879,56.5812 53.95,56.5559 53.9248,56.537 53.9532,56.5338 53.9847,56.537 53.991,56.5181 53.9942,56.4991 54.0352,56.477 54.0794,56.4833 54.111,56.4549 54.1268,56.4013 54.171,56.3823 54.2278,56.4171 54.2436,56.3445 54.253,56.3097 54.2183,56.294 54.2372,56.2656 54.2688,56.2625 54.272,56.2372 54.253,56.2025 54.1899,56.1867 54.1362,56.1646 54.0857,56.133 54.0479,56.1173 53.9974,56.0889 53.9689,56.0415 53.9405,55.9942 53.8869,55.9689 53.808,55.9784 53.7417,55.9942 53.7007,55.9531 53.6849,55.9247 53.6218,55.9216 53.5649,55.9121 53.5429,55.8869 53.5316,55.8648 53.5703,55.8696 53.6162,55.8357 53.6719,55.8357 53.7203,55.8236 53.7807,55.8309 53.8194,55.7922 53.8775,55.8019 53.9016,55.785 53.8799,55.7777 53.8702,55.7656 53.8629,55.7342 53.8823,55.7293 53.9307,55.7535 53.9524,55.739 53.9234,55.7076 53.9476,55.6906 53.9984,55.7318 54.0081,55.7052 54.0661,55.6616 54.1338,55.6423 54.1338,55.6278 54.0855,55.6036 54.0831,55.5745 54.0444,55.5673 53.9839,55.5383 53.9065,55.5092 53.8896,55.4826 53.8944,55.4415 53.8605,55.4294 53.8267,55.4028 53.8291,55.3762 53.8049,55.3375 53.7468,55.3157 53.6114,55.2891 53.5799,55.2335 53.5098,55.2166 53.505,55.1827 53.4856,55.1609 53.3985,55.1513 53.3477,55.1706 53.2824,55.1682 53.2413,55.1488 53.2437,55.1222 53.2147,55.1101 53.1518,55.115 53.043,55.1005 53.043,55.0521 53.1035,55.0279 53.1567,55.0085 53.1567,54.9723 53.1688,54.9602 53.205,54.9505 53.297,54.9553 53.3477,54.9021 53.3913,54.8489 53.4348,54.8271 53.5001,54.8562 53.5388,54.8441 53.5171,54.8223 53.4808,54.7667 53.5098,54.7594 53.505,54.7376 53.4856,54.7352 53.4759,54.7159 53.4759,54.6965 53.505,54.6844 53.5025,54.653 53.43,54.5877 53.3647,54.5393 53.3139,54.5127 53.3139,54.4934 53.3235,54.4643 53.3211,54.4401 53.2921,54.4063 53.2921,54.3845 53.2582,54.3603 53.2437,54.3386 53.2558,54.3047 53.2969,54.2466 53.3381,54.2176 53.3066,54.1741 53.3356,54.1378 53.326,54.0967 53.3574,54.0676 53.3574,54.0314 53.3719,53.9927 53.309,53.9782 53.2848,53.9153 53.251,53.9298 53.2437,53.954 53.1808,53.9806 53.1857,54.0072 53.1687,54.0241 53.1083,54.0289 53.0913,54.0435 53.0236,54.0193 52.9656,54.0193 52.9922,54.0676 52.9365,54.0725 52.8422,54.162 52.8519,54.1813 52.9099,54.1692 52.9438,54.1862 53.0091,54.2031 53.0115,54.2442 52.9486,54.2878 52.9003,54.2587 52.9365,54.237 52.922,54.2152 52.8761,54.22 52.8374,54.22 52.7793,54.2225 52.7963,54.2442 52.8374,54.237 52.835,54.266 52.7866,54.266 52.7334,54.2757 52.6366,54.3047 52.5689,54.3119 52.5254,54.2829 52.5036,54.3071 52.4371,54.3301 52.426,54.2857 52.3971,54.2724 52.3194,54.2813 52.2349,54.2724 52.1838,54.2813 52.1327,54.259 52.0972,54.2479 52.1105,54.2279 52.1749,54.2146 52.246,54.1835 52.2527,54.1324 52.2238,54.1168 52.1572,54.0991 52.1794,54.0613 52.2327,54.0724 52.286,54.0813 52.3194,54.0657 52.3394,54.0391 52.3816,54.0302 52.3794,53.9969 52.3282,53.9746 52.2727,53.9302 52.2749,53.9124 52.3149,53.8946 52.3171,53.8791 52.2883,53.8435 52.255,53.7902 52.2394,53.7347 52.1905,53.6858 52.1594,53.6325 52.155,53.6014 52.1194,53.5858 52.0905,53.528 52.0772,53.5036 52.0439,53.5014 51.9861,53.4969 51.9861,53.4747 51.975,53.4569 51.995,53.4436 51.9928,53.4169 52.035,53.3992 52.035,53.357 52.0928,53.328 52.0728,53.2636 52.0372,53.2414 52.0661,53.2058 52.055,53.1858 52.0217,53.1769 52.0328,53.1236 51.9594,53.1081 51.9594,53.0836 52.0572,53.0725 52.055,53.0458 51.9683,53.0325 51.9594,53.0103 51.9639,52.9636 51.9394,52.937 51.8795,52.9236 51.8461,52.897 51.7906,52.8881 51.7417,52.8592 51.7239,52.8281 51.6395,52.8281 51.6128,52.7681 51.675,52.7481 51.6528,52.6792 51.6239,52.6104 51.544,52.5992 51.4862,52.6348 51.4329,52.6259 51.4351,52.6037 51.4084,52.5859 51.4262,52.5459 51.4462,52.5193 51.4018,52.5237 51.3729,52.5326 51.3706,52.4993 51.3751,52.4504 51.4306,52.4348 51.4573,52.3926 51.4351,52.3748 51.3618,52.3615 51.3706,52.3282 51.3529,52.306 51.3062,52.2971 51.3173,52.2549 51.3062,52.2171 51.3151,52.1993 51.3529,52.1904 51.3106,52.0371 51.0707,51.9282 51.0373,51.9104 51.0196,51.886 50.9373,51.8682 50.9151,51.8549 50.8996,51.8327 50.8107,51.8082 50.7352,51.7638 50.6774,51.7171 50.6822,51.7111 2533,8.0,Russia 95.4998,54.2102 95.5145,54.1754 95.5292,54.1701 95.6108,54.154 95.6563,54.142 95.6804,54.13 95.6951,54.1072 95.7339,54.1032 95.7606,54.1019 95.778,54.0751 95.782,54.0537 95.8195,54.0363 95.8382,54.0283 95.8583,54.0337 95.8904,54.0337 95.9091,54.023 95.9265,54.0002 95.9211,53.9868 95.9131,53.9855 95.9024,53.9614 95.8944,53.94 95.9078,53.9293 95.9559,53.9173 95.9867,53.9079 96.0094,53.8839 96.0455,53.8705 96.0656,53.8517 96.1177,53.8116 96.198,53.7608 96.2582,53.7193 96.2769,53.6846 96.3037,53.6752 96.3277,53.6591 96.3411,53.6324 96.3465,53.6244 96.3839,53.615 96.4053,53.6083 96.4067,53.5936 96.4174,53.5869 96.4361,53.5923 96.4454,53.615 96.4602,53.6123 96.4882,53.5842 96.5271,53.5789 96.5431,53.5829 96.5511,53.6016 96.5565,53.6364 96.5712,53.6458 96.626,53.6605 96.6862,53.6685 96.7371,53.6672 96.7732,53.6364 96.816,53.6271 96.836,53.6137 96.8548,53.5976 96.8922,53.595 96.923,53.5789 96.9484,53.5723 96.9671,53.5495 96.9845,53.5549 97.0059,53.5642 97.0447,53.5656 97.0674,53.5415 97.0848,53.5335 97.1129,53.5321 97.1383,53.5295 97.1611,53.5375 97.1744,53.5415 97.1851,53.5201 97.1932,53.504 97.2213,53.4987 97.232,53.476 97.2427,53.4559 97.2641,53.4479 97.2801,53.4305 97.2801,53.4091 97.3002,53.3957 97.3336,53.397 97.3925,53.393 97.4299,53.377 97.4366,53.3583 97.4272,53.3315 97.4353,53.3154 97.4647,53.3101 97.5102,53.3114 97.557,53.3208 97.6025,53.3181 97.6412,53.3047 97.6814,53.3074 97.7068,53.3061 97.7442,53.2914 97.7884,53.3007 97.8124,53.2981 97.8178,53.2793 97.8111,53.2499 97.8151,53.2352 97.8445,53.2151 97.8646,53.1964 97.894,53.1883 97.9288,53.191 97.9957,53.1883 98.0425,53.1776 98.0652,53.1643 98.0947,53.1683 98.1308,53.1656 98.1468,53.1522 98.1321,53.1402 98.1254,53.1255 98.1361,53.0987 98.1294,53.0733 98.1441,53.0425 98.1642,53.0425 98.1803,53.0412 98.203,53.0278 98.2311,53.0439 98.2485,53.0439 98.3488,53.0506 98.3902,53.0519 98.4464,53.0412 98.4625,53.0479 98.4852,53.0679 98.5187,53.0947 98.5508,53.0947 98.6283,53.0827 98.722,53.0599 98.7313,53.0907 98.75,53.0947 98.7862,53.0893 98.8076,53.0786 98.8651,53.0532 98.9029,53.0304 98.8604,53.014 98.8407,53.0075 98.8276,52.9813 98.9225,52.9388 99.0207,52.9191 99.0872,52.8948 99.0809,52.8695 99.0588,52.8412 99.0651,52.797 99.0399,52.7907 98.9895,52.8191 98.9453,52.8222 98.9012,52.8286 98.8633,52.8412 98.8287,52.8664 98.7971,52.8664 98.7687,52.8569 98.7624,52.838 98.6931,52.7781 98.7025,52.7592 98.7025,52.734 98.7278,52.7371 98.7845,52.7403 98.7877,52.7277 98.7656,52.6993 98.7814,52.6583 98.7719,52.6331 98.7814,52.6015 98.753,52.5826 98.7246,52.5984 98.7025,52.5637 98.6458,52.5479 98.6268,52.5101 98.6489,52.4943 98.6678,52.4754 98.63,52.447 98.6048,52.4439 98.5732,52.4533 98.5669,52.4092 98.5575,52.3903 98.507,52.3682 98.4723,52.365 98.5165,52.3177 98.5007,52.2641 98.485,52.2011 98.5165,52.2011 98.5575,52.2358 98.5859,52.2263 98.6268,52.2168 98.6615,52.2105 98.6521,52.1506 98.6647,52.1223 98.7025,52.1286 98.753,52.1443 98.7814,52.1286 98.7908,52.0781 98.7908,52.0754 98.8646,52.0047 98.9852,51.9669 99.1375,51.9093 99.1615,51.8908 99.1894,51.8818 99.415,51.8404 99.4592,51.8359 99.5414,51.8371 99.5724,51.8304 99.6016,51.8154 99.6543,51.7738 99.6987,51.7405 99.732,51.7173 99.7639,51.7007 99.7909,51.6915 99.8222,51.6848 99.8661,51.6797 100.0965,51.6716 100.1771,51.6704 100.2698,51.6721 100.3369,51.6771 100.3693,51.6779 100.4009,51.6752 100.5374,51.6388 100.6272,51.6023 100.7355,51.5639 100.7564,51.5567 100.8812,51.5162 100.9668,51.491 101.0526,51.4746 101.0876,51.4693 101.1309,51.4536 101.1584,51.4306 101.1906,51.4041 101.2287,51.3924 101.2517,51.3925 101.291,51.4054 101.3512,51.4219 101.3764,51.4263 101.4181,51.4281 101.4437,51.4244 101.5834,51.3997 101.6192,51.389 101.7098,51.3599 101.8351,51.3361 101.8657,51.3321 101.891,51.3317 101.9244,51.3293 102.0657,51.2671 102.0672,51.2471 102.0383,51.219 102.0002,51.1883 102.0114,51.0613 102.0299,51.0178 102.0588,50.972 102.0714,50.9565 102.0982,50.9282 102.1061,50.8298 102.0761,50.7923 102.0797,50.7618 102.1207,50.7225 102.1838,50.6919 102.1995,50.6617 102.187,50.6363 102.1523,50.6053 102.1394,50.587 102.1412,50.5656 102.157,50.5353 102.1771,50.5076 102.1985,50.4943 102.2187,50.4872 102.2261,50.4855 102.2978,50.4784 102.3318,50.4733 102.3859,50.4506 102.4403,50.3947 102.4509,50.3661 102.4717,50.3509 102.5171,50.347 102.5937,50.3364 102.6248,50.329 102.6634,50.3133 102.6942,50.2929 102.7363,50.2664 102.7635,50.2573 102.7869,50.2519 102.8117,50.2483 102.8476,50.2447 102.8884,50.2455 102.9364,50.2485 103.0021,50.2549 103.0427,50.2543 103.0683,50.2507 103.0986,50.2352 103.1101,50.1999 103.1248,50.1642 103.1614,50.1417 103.182,50.1386 103.3758,50.1179 103.452,50.0897 103.4932,50.0794 103.5504,50.0799 103.5792,50.0891 103.5977,50.1085 103.6156,50.1269 103.6472,50.1406 103.6696,50.1432 103.6999,50.14 103.7544,50.1221 103.7797,50.1139 103.8745,50.0916 103.907,50.0892 103.9368,50.0908 103.9613,50.0956 104.0981,50.1308 104.1147,50.1503 104.1367,50.1801 104.2351,50.2407 104.261,50.2511 104.2929,50.2581 104.3391,50.2625 104.407,50.2595 104.4631,50.2598 104.4941,50.2705 104.5186,50.2885 104.5517,50.3009 104.8081,50.3468 104.8404,50.3498 104.8655,50.3384 104.9009,50.3341 104.9412,50.334 104.9735,50.34 104.9956,50.3461 105.0218,50.3564 105.0502,50.3717 105.0892,50.3938 105.1239,50.4148 105.1531,50.4232 105.1762,50.4252 105.2021,50.4248 105.3628,50.3964 105.5687,50.3728 105.6477,50.3776 105.8292,50.3524 105.8661,50.3425 105.8918,50.3288 105.9093,50.3171 105.9145,50.2879 106.085,50.242 106.1147,50.2409 106.1385,50.2483 106.1754,50.2581 106.2751,50.2736 106.3264,50.2803 106.3864,50.2881 106.4389,50.2874 106.4668,50.2851 106.5023,50.2804 106.5769,50.2676 106.5998,50.2619 106.6274,50.2524 106.665,50.2363 106.8466,50.1411 106.8913,50.0734 106.9031,50.0507 106.9202,50.0256 107.0164,49.9694 107.0956,49.9459 107.3033,49.9249 107.392,49.9255 107.578,49.923 107.5938,49.9223 107.5999,49.9193 107.6002,49.92 107.6194,49.9443 107.6425,49.97 107.6464,50.0263 107.6412,50.034 107.6105,50.0417 107.6066,50.0481 107.6118,50.0763 107.6156,50.0955 107.631,50.0968 107.6502,50.1058 107.6617,50.1173 107.6592,50.1404 107.6669,50.1468 107.7079,50.1506 107.7399,50.1327 107.7822,50.1634 107.7796,50.1942 107.7835,50.2044 107.795,50.2198 107.8309,50.2301 107.8347,50.2582 107.8309,50.2775 107.8603,50.2749 107.877,50.2787 107.9026,50.2928 107.9129,50.2928 107.9231,50.2877 107.9206,50.2723 107.9449,50.2621 107.9769,50.2557 107.991,50.2723 107.9974,50.2954 108.0218,50.3018 108.0346,50.3082 108.0295,50.3172 108.0295,50.339 108.05,50.3505 108.0897,50.3569 108.164,50.3415 108.1845,50.3454 108.2255,50.362 108.2614,50.3812 108.2639,50.3902 108.2793,50.4005 108.2908,50.4005 108.3011,50.3953 108.3254,50.3889 108.3536,50.3953 108.3805,50.4017 108.4036,50.412 108.4215,50.4094 108.4331,50.3979 108.4484,50.3915 108.4728,50.3992 108.4958,50.4017 108.506,50.4184 108.5137,50.4325 108.5265,50.4414 108.5317,50.4504 108.5227,50.4645 108.5073,50.4773 108.4855,50.4722 108.4663,50.4658 108.4445,50.4658 108.4253,50.4684 108.3958,50.4671 108.3818,50.4709 108.3587,50.4901 108.3574,50.5029 108.3472,50.5094 108.3331,50.5183 108.3356,50.5273 108.319,50.5337 108.2933,50.5337 108.2741,50.5388 108.269,50.5478 108.2549,50.5529 108.2101,50.5516 108.1601,50.5683 108.1024,50.5875 108.0807,50.5965 108.0268,50.5965 107.9833,50.6208 107.9436,50.6503 107.9179,50.6798 107.9102,50.6939 107.9154,50.7054 107.932,50.7169 107.9551,50.7284 107.9833,50.74 108.014,50.7515 108.0461,50.763 108.0794,50.7733 108.0947,50.772 108.1012,50.7912 108.1024,50.8156 108.1114,50.8476 108.1268,50.8771 108.1434,50.9078 108.1511,50.9424 108.1613,50.9744 108.1818,50.9936 108.2113,50.9975 108.2574,50.9949 108.3112,50.9962 108.3458,50.9975 108.3625,51.0128 108.3766,51.0256 108.4022,51.0397 108.4201,51.0564 108.4176,51.082 108.3971,51.0987 108.3548,51.1166 108.3151,51.1333 108.2984,51.1435 108.3035,51.1589 108.2959,51.1653 108.2805,51.1679 108.26,51.1691 108.2267,51.1768 108.2075,51.1896 108.1959,51.2089 108.2062,51.2281 108.2344,51.2447 108.2728,51.2524 108.3125,51.2781 108.3381,51.3139 108.3394,51.3447 108.3689,51.3562 108.3804,51.3742 108.3779,51.3947 108.3958,51.419 108.4291,51.4433 108.4624,51.4549 108.4996,51.4357 108.538,51.4152 108.5752,51.4023 108.5816,51.3895 108.5918,51.387 108.6111,51.3908 108.6444,51.3998 108.6918,51.3831 108.7187,51.3831 108.7686,51.3793 108.8122,51.3857 108.8481,51.3946 108.8686,51.4062 108.8814,51.4202 108.8904,51.442 108.9071,51.4484 108.9327,51.4433 108.9634,51.4279 108.9724,51.4023 109.0032,51.3818 109.0467,51.3357 109.1069,51.2998 109.1543,51.3203 109.1723,51.3318 109.1902,51.3254 109.1992,51.2998 109.2222,51.2844 109.2363,51.3344 109.2722,51.3536 109.3401,51.3652 109.3888,51.378 109.4516,51.3869 109.5246,51.4023 109.5567,51.4292 109.6169,51.442 109.6617,51.4728 109.7168,51.4933 109.7488,51.4972 109.7706,51.5126 109.7949,51.5292 109.8154,51.542 109.8295,51.5484 109.859,51.5446 109.8731,51.5497 109.8948,51.5587 109.9076,51.5549 109.9281,51.5446 109.9653,51.5382 110.0345,51.5331 110.1062,51.5318 110.1601,51.5305 110.1908,51.5228 110.2139,51.5164 110.2318,51.5241 110.2433,51.5151 110.2536,51.4767 110.2613,51.4639 110.3394,51.4523 110.392,51.4357 110.465,51.4459 110.5022,51.4459 110.5393,51.4421 110.5598,51.46 110.5777,51.4639 110.6085,51.4754 110.6162,51.5036 110.6252,51.5164 110.6572,51.5228 110.6956,51.5305 110.7096,51.5343 110.7148,51.5446 110.7045,51.56 110.6994,51.583 110.6891,51.5997 110.6866,51.6086 110.7225,51.6151 110.7391,51.6189 110.7724,51.6484 110.807,51.6637 110.8467,51.665 110.8531,51.6791 110.8647,51.7035 110.8621,51.7214 110.948,51.7573 110.9774,51.7726 110.9941,51.7726 111.0453,51.7637 111.071,51.7726 111.1209,51.7816 111.1376,51.7932 111.1683,51.8098 111.2042,51.8085 111.235,51.8072 111.2734,51.8175 111.317,51.8162 111.3336,51.8367 111.3695,51.8508 111.4156,51.8559 111.4566,51.8675 111.4669,51.8957 111.4887,51.8982 111.5092,51.9046 111.5912,51.961 111.6104,51.9815 111.6258,52.0148 111.645,52.0315 111.6604,52.0417 111.6796,52.0468 111.6988,52.0584 111.7231,52.0597 111.7295,52.0699 111.7283,52.0853 111.7308,52.0891 111.7436,52.0891 111.7616,52.1019 111.7757,52.1199 111.7744,52.1378 111.7821,52.1442 111.8269,52.1519 111.85,52.1596 111.8641,52.1711 111.8807,52.1814 111.8936,52.1916 111.9051,52.216 111.9217,52.2211 111.9538,52.2237 111.9832,52.2211 111.9858,52.2301 111.9884,52.2403 112.0089,52.2429 112.0242,52.2352 112.0383,52.2173 112.0447,52.1852 112.0768,52.1788 112.0998,52.1865 112.1331,52.1916 112.1536,52.1865 112.1754,52.1724 112.1946,52.166 112.2113,52.1532 112.251,52.1468 112.2741,52.1622 112.2856,52.1737 112.301,52.1776 112.3215,52.1853 112.3445,52.2019 112.3445,52.2519 112.365,52.2596 112.3804,52.2698 112.383,52.289 112.4073,52.2878 112.4163,52.2878 112.4419,52.2993 112.5316,52.2685 112.5713,52.2762 112.6366,52.2788 112.6802,52.2839 112.6994,52.2839 112.7212,52.289 112.734,52.2801 112.7673,52.2762 112.8211,52.2929 112.8698,52.3236 112.9121,52.3377 112.9493,52.3493 112.9672,52.3787 113.0031,52.38 113.0313,52.3928 113.0889,52.4108 113.1184,52.421 113.1504,52.4108 113.1812,52.4146 113.2299,52.4082 113.3003,52.4108 113.3439,52.4159 113.3682,52.4287 113.3785,52.4351 113.3887,52.4287 113.4067,52.3992 113.4221,52.3903 113.44,52.4018 113.4554,52.4287 113.4759,52.4377 113.4951,52.4428 113.5041,52.4646 113.5258,52.4851 113.554,52.4889 113.5758,52.512 113.5925,52.5222 113.6424,52.5222 113.6629,52.5453 113.7014,52.5415 113.7411,52.5735 113.8,52.5658 113.8692,52.6106 113.8936,52.6171 113.9051,52.6247 113.9397,52.6376 113.9589,52.6542 113.9756,52.667 113.9743,52.6798 113.9845,52.6901 114.0563,52.7503 114.0652,52.7606 114.0857,52.7606 114.0819,52.7708 114.0703,52.7849 114.0588,52.8054 114.0601,52.831 114.0767,52.8477 114.0844,52.8592 114.0793,52.8759 114.0678,52.89 114.0767,52.9041 114.1113,52.9041 114.1485,52.9015 114.1652,52.9053 114.1613,52.922 114.1472,52.9361 114.1318,52.9527 114.128,52.9643 114.1382,52.9822 114.1562,52.9925 114.1741,53.004 114.1664,53.0117 114.1434,53.0142 114.1203,53.0207 114.0998,53.0296 114.0947,53.0373 114.078,53.0424 114.0652,53.0373 114.0537,53.0232 114.0332,53.013 114.0204,53.0194 114.0063,53.0296 113.9883,53.0168 113.9742,53.0091 113.9704,53.0232 113.9781,53.0437 113.996,53.0565 114.0127,53.0655 114.0396,53.0975 114.046,53.1232 114.0409,53.1385 114.0229,53.1449 114.0037,53.1449 113.9781,53.1424 113.955,53.1424 113.9371,53.1462 113.9076,53.159 113.891,53.1667 113.8935,53.1757 113.8999,53.1898 113.8884,53.1898 113.8692,53.1859 113.8474,53.1795 113.8282,53.1718 113.8243,53.1783 113.8179,53.1885 113.7987,53.2077 113.7846,53.2167 113.7885,53.2321 113.8,53.2449 113.809,53.2615 113.7974,53.2833 113.7808,53.3 113.7654,53.2961 113.7423,53.3013 113.7141,53.3089 113.6872,53.3192 113.6744,53.3345 113.6833,53.3512 113.6923,53.3717 113.682,53.3807 113.6731,53.3883 113.682,53.4088 113.6936,53.4306 113.7115,53.4319 113.7307,53.4409 113.7423,53.4665 113.7307,53.4921 113.7141,53.5101 113.691,53.5293 113.6692,53.5447 113.6615,53.5562 113.6795,53.5626 113.7064,53.5652 113.7256,53.56 113.7359,53.5728 113.7512,53.5844 113.764,53.5895 113.7833,53.5895 113.8063,53.5818 113.8243,53.5895 113.8345,53.6049 113.8243,53.6215 113.814,53.6395 113.8409,53.6587 113.8755,53.66 113.8947,53.6625 113.9357,53.6638 113.9678,53.6766 113.987,53.6933 114.0075,53.6933 114.0395,53.6741 114.0715,53.6818 114.0972,53.6843 114.1356,53.6869 114.1869,53.7074 114.2061,53.7202 114.2074,53.7394 114.2253,53.7522 114.2561,53.7471 114.2817,53.7433 114.3111,53.7484 114.3406,53.7458 114.3534,53.7612 114.3803,53.7779 114.3893,53.7919 114.4124,53.8086 114.4303,53.8355 114.4572,53.8496 114.4662,53.8445 114.4969,53.8509 114.5469,53.8624 114.5982,53.874 114.6059,53.8906 114.6456,53.8842 114.6917,53.8842 114.7173,53.8996 114.7532,53.9073 114.7814,53.9227 114.8198,53.9329 114.8288,53.9598 114.8442,53.9611 114.8672,53.9726 114.8711,53.9867 114.8685,54.0098 114.9364,54.0316 114.9569,54.0457 114.9762,54.0521 115.0069,54.0764 115.0159,54.1059 115.0236,54.12 115.0543,54.1328 115.0902,54.1392 115.1158,54.1648 115.1402,54.1725 115.1748,54.1802 115.1901,54.1943 115.2145,54.202 115.2593,54.2097 115.3131,54.2327 115.3439,54.2443 115.3567,54.2699 115.349,54.2968 115.3631,54.3109 115.3785,54.3134 115.4143,54.3173 115.4438,54.3314 115.4694,54.348 115.5117,54.3583 115.554,54.3621 115.5861,54.375 115.6194,54.3738 115.6553,54.3814 115.6873,54.3917 115.7104,54.3981 115.7322,54.3994 115.7539,54.4045 115.7744,54.4096 115.8142,54.4058 115.8398,54.4083 115.8526,54.4173 115.8692,54.4199 115.9167,54.4237 115.9525,54.4288 115.9935,54.4429 116.0243,54.4455 116.0499,54.4404 116.0845,54.4365 116.105,54.4481 116.1306,54.4442 116.1575,54.4365 116.1793,54.4378 116.2088,54.4417 116.2575,54.4353 116.2767,54.4237 116.3062,54.4263 116.3292,54.4109 116.3625,54.4058 116.3702,54.4314 116.3715,54.4468 116.3907,54.4468 116.4343,54.4519 116.4714,54.4519 116.5073,54.4532 116.5317,54.4647 116.5586,54.4724 116.5714,54.4852 116.5586,54.4904 116.5661,54.5106 116.5818,54.5126 116.6172,54.5361 116.6132,54.5675 116.6113,54.597 116.6407,54.6048 116.6643,54.6146 116.6741,54.6303 116.7055,54.6421 116.7271,54.6617 116.7133,54.6833 116.7133,54.701 116.729,54.7167 116.7702,54.7343 116.7585,54.75 116.7658,54.7743 116.7539,54.7959 116.7371,54.8102 116.7227,54.8294 116.7227,54.8581 116.7371,54.882 116.7251,54.8868 116.7156,54.894 116.7156,54.9108 116.694,54.9084 116.6749,54.9203 116.682,54.9443 116.6916,54.9658 116.6653,54.9826 116.6581,55.0041 116.6461,55.0161 116.6198,55.052 116.5863,55.052 116.5384,55.0616 116.5049,55.0735 116.4594,55.0879 116.4283,55.1238 116.3948,55.1334 116.3589,55.1501 116.3182,55.1645 116.3062,55.1884 116.3086,55.2076 116.299,55.2219 116.3062,55.2435 116.2943,55.2507 116.2703,55.265 116.2536,55.289 116.2392,55.3033 116.1913,55.3153 116.1458,55.3105 116.1075,55.2962 116.0285,55.2962 115.9998,55.2938 115.9663,55.2866 115.94,55.2985 115.928,55.3129 115.8897,55.3177 115.837,55.3009 115.8059,55.3105 115.7844,55.3225 115.77,55.344 115.7868,55.3584 115.8083,55.3775 115.8035,55.3967 115.7389,55.4326 115.7317,55.4494 115.7317,55.4877 115.7557,55.514 115.7317,55.5284 115.7365,55.5403 115.7533,55.5643 115.7557,55.5858 115.7293,55.5954 115.7006,55.605 115.6862,55.6241 115.6982,55.6648 115.7102,55.6768 115.6934,55.7007 115.6791,55.7366 115.6982,55.7869 115.7389,55.8156 115.7413,55.8611 115.7102,55.8946 115.6647,55.9114 115.6408,55.9257 115.6312,55.9497 115.6192,55.9736 115.6001,55.9784 115.6001,55.9927 115.624,56.0047 115.6192,56.0239 115.6144,56.055 115.6383,56.0718 115.6743,56.0742 115.6743,56.0957 115.636,56.1029 115.6024,56.1196 115.5977,56.1508 115.5641,56.1699 115.5498,56.201 115.533,56.2417 115.5402,56.28 115.5234,56.3135 115.5258,56.3494 115.5617,56.3566 115.6096,56.3471 115.6431,56.359 115.6336,56.3782 115.5953,56.4045 115.5354,56.4237 115.5163,56.4596 115.533,56.4931 115.4923,56.5146 115.4109,56.5218 115.3224,56.529 115.2793,56.5529 115.2793,56.596 115.3056,56.6152 115.3774,56.6247 115.4397,56.6654 115.4588,56.7301 115.4325,56.7875 115.4349,56.8258 115.4851,56.8497 115.5306,56.8641 115.5809,56.8952 115.6503,56.8833 115.715,56.8737 115.7963,56.8043 115.8849,56.8067 115.9495,56.7636 116.0183,56.7481 116.0464,56.7582 116.0887,56.7582 116.1088,56.7622 116.1229,56.7763 116.143,56.7884 116.1712,56.7884 116.2115,56.7864 116.2175,56.7703 116.2517,56.7622 116.292,56.7542 116.3161,56.7461 116.3624,56.734 116.3865,56.7099 116.4107,56.6958 116.4972,56.6878 116.5335,56.6958 116.5576,56.6998 116.5878,56.6958 116.616,56.6737 116.6482,56.6636 116.6784,56.6737 116.779,56.7039 116.8031,56.7179 116.8212,56.722 116.8414,56.72 116.8716,56.7159 116.8877,56.7179 116.8937,56.724 116.8776,56.73 116.8575,56.734 116.8474,56.7461 116.8555,56.7522 116.8716,56.7542 116.9138,56.7542 116.942,56.7522 116.9762,56.7401 116.9863,56.7461 117.0064,56.7642 117.0165,56.7944 117.0386,56.8166 117.0567,56.8306 117.0849,56.8387 117.099,56.8568 117.1111,56.8608 117.1372,56.8649 117.1594,56.8649 117.1694,56.8689 117.1694,56.887 117.1815,56.891 117.1916,56.885 117.1916,56.8669 117.2097,56.8588 117.1976,56.8286 117.1916,56.8105 117.2077,56.8065 117.2318,56.8045 117.256,56.8045 117.256,56.7884 117.2378,56.7823 117.2439,56.7743 117.262,56.7662 117.2861,56.7582 117.3063,56.7602 117.3083,56.7763 117.3063,56.7924 117.3224,56.8025 117.3385,56.8105 117.3666,56.8085 117.4129,56.7864 117.423,56.7964 117.423,56.8327 117.4149,56.8749 117.425,56.883 117.4512,56.885 117.4793,56.895 117.5196,56.9172 117.5256,56.9454 117.5337,56.9595 117.5176,56.9776 117.5256,57.0017 117.5015,57.0178 117.4773,57.0299 117.4673,57.0581 117.4572,57.0802 117.4451,57.0883 117.4411,57.0983 117.4693,57.1023 117.4954,57.1164 117.5357,57.1205 117.5739,57.1245 117.5961,57.1466 117.6202,57.1889 117.6424,57.2372 117.6242,57.2432 117.6021,57.2432 117.5417,57.2472 117.4995,57.2452 117.4451,57.2674 117.429,57.2573 117.4149,57.2352 117.3928,57.203 117.3727,57.1949 117.3465,57.1929 117.3123,57.1748 117.27,57.1989 117.2781,57.213 117.2902,57.2472 117.2861,57.2754 117.262,57.2694 117.2298,57.2593 117.2157,57.2694 117.1996,57.2875 117.1815,57.3137 117.1996,57.3257 117.1774,57.352 117.1935,57.3621 117.1674,57.3943 117.1473,57.3963 117.1291,57.4124 117.1171,57.4345 117.101,57.4527 117.105,57.4808 117.1211,57.4989 117.1613,57.507 117.1452,57.5171 117.1392,57.5452 117.1191,57.5633 117.0808,57.5694 117.0466,57.5754 117.0225,57.5815 116.9883,57.5774 116.9903,57.5875 116.9822,57.6116 117.0024,57.6197 117.0084,57.6358 117.0144,57.6499 117.0124,57.67 117.0245,57.6801 117.0164,57.6841 117.0024,57.6942 116.9903,57.7082 116.9702,57.7203 116.942,57.7304 116.9319,57.7445 116.944,57.7666 116.9681,57.7827 117.0084,57.7827 117.0607,57.7807 117.0829,57.7928 117.113,57.7948 117.1513,57.7847 117.1976,57.8089 117.1976,57.827 117.2036,57.829 117.2459,57.833 117.2559,57.8491 117.2358,57.8632 117.2157,57.8753 117.2237,57.8974 117.2197,57.9135 117.2117,57.9397 117.2257,57.9477 117.2358,57.9659 117.2298,57.9779 117.2137,58.0061 117.2278,58.0101 117.2519,58.0182 117.2539,58.0343 117.2559,58.0665 117.2841,58.0947 117.3022,58.0846 117.3546,58.0786 117.423,58.0765 117.433,58.1228 117.4149,58.149 117.4008,58.1671 117.3747,58.1852 117.3626,58.2053 117.3425,58.2114 117.3143,58.2335 117.3284,58.2597 117.3666,58.2758 117.433,58.2939 117.4753,58.31 117.5055,58.312 117.5156,58.3402 117.5498,58.3362 117.592,58.3301 117.6303,58.3321 117.6605,58.3462 117.6826,58.3502 117.6987,58.3402 117.7249,58.3281 117.759,58.3463 117.7731,58.3383 117.8113,58.3383 117.8536,58.3322 117.8777,58.294 117.9281,58.2779 117.9603,58.296 117.9824,58.3282 118.0428,58.3222 118.083,58.3182 118.1333,58.3 118.1736,58.286 118.2138,58.2236 118.2541,58.1994 118.3004,58.1954 118.3245,58.1571 118.3909,58.1571 118.4292,58.135 118.5137,58.1088 118.5801,58.141 118.6687,58.1571 118.7653,58.1571 118.8297,58.1672 118.8981,58.1712 118.952,58.155 118.9593,58.1939 118.9739,58.2279 118.9691,58.2352 118.9375,58.2522 118.9156,58.2765 118.918,58.3179 118.9472,58.3349 118.9642,58.3543 118.9861,58.3835 118.9885,58.4175 118.9423,58.4273 118.884,58.4394 118.8256,58.4807 118.7794,58.4905 118.7357,58.4905 118.7162,58.5026 118.687,58.5075 118.6311,58.5221 118.6044,58.5537 118.6603,58.5537 118.67,58.5683 118.6846,58.6047 118.704,58.6193 118.7332,58.6339 118.7259,58.6485 118.7211,58.6874 118.7332,58.7142 118.7381,58.7506 118.7284,58.7676 118.6968,58.7822 118.6627,58.8017 118.6311,58.8284 118.6311,58.8552 118.6408,58.877 118.6724,58.877 118.6968,58.8795 118.6992,58.9135 118.6967,58.9476 118.653,58.9621 118.5946,58.967 118.5727,58.9792 118.5533,59.0059 118.5533,59.0375 118.5387,59.074 118.529,59.125 118.5484,59.1639 118.5946,59.1834 118.6505,59.1931 118.6432,59.2126 118.6481,59.2223 118.6967,59.2296 118.687,59.2442 118.6481,59.2515 118.6043,59.2685 118.5995,59.3001 118.6043,59.3463 118.563,59.3657 118.5095,59.3657 118.4731,59.3828 118.4293,59.3973 118.4001,59.4168 118.3637,59.4338 118.2786,59.4435 118.2226,59.4654 118.2032,59.5165 118.1716,59.5408 118.1157,59.5457 118.067,59.5408 118.0014,59.5505 117.9625,59.5311 117.9187,59.5262 117.8847,59.5092 117.8312,59.4703 117.8069,59.4338 117.768,59.3876 117.6902,59.373 117.661,59.4119 117.6367,59.4581 117.6027,59.4824 117.52,59.4533 117.4544,59.4144 117.4057,59.4119 117.3401,59.4314 117.289,59.4411 117.1723,59.4338 117.131,59.4606 117.0702,59.4703 117.0556,59.5092 116.9997,59.5213 116.9535,59.5286 116.9268,59.5238 116.9243,59.5359 116.9681,59.5529 117.0094,59.5748 117.046,59.5895 117.0363,59.6308 117.0582,59.66 117.063,59.694 117.0655,59.7232 117.0776,59.7621 117.0436,59.7961 117.0071,59.7961 116.9512,59.8253 116.9026,59.8545 116.9293,59.8934 116.9658,59.9055 116.9998,59.9055 117.0582,59.8958 117.1165,59.9225 117.1627,59.942 117.1384,59.9566 117.0849,59.9614 117.0533,59.9639 117.0241,59.976 116.9901,59.9736 116.9391,59.9687 116.8904,59.9736 116.8856,59.9979 116.8758,60.0319 116.8491,60.0563 116.8418,60.083 116.8175,60.1024 116.7713,60.1195 116.7227,60.1413 116.6984,60.1681 116.674,60.1875 116.6133,60.1875 116.5817,60.1973 116.55,60.224 116.5014,60.2653 116.465,60.2921 116.3969,60.3042 116.3215,60.3067 116.2218,60.3261 116.1465,60.3237 116.1003,60.314 116.0443,60.3334 115.9762,60.3431 115.9251,60.348 115.8959,60.3674 115.8814,60.3893 115.84,60.399 115.7841,60.399 115.699,60.4063 115.6723,60.4161 115.5945,60.4598 115.5483,60.4647 115.4753,60.4574 115.3854,60.4452 115.2638,60.4306 115.1714,60.4136 115.0499,60.3723 114.9769,60.3334 114.9137,60.2969 114.8845,60.2361 114.8456,60.1997 114.7776,60.1778 114.7192,60.1438 114.6487,60.1267 114.6074,60.1486 114.5636,60.1608 114.5247,60.1438 114.4907,60.1097 114.4566,60.0805 114.4104,60.066 114.3861,60.0392 114.3667,59.9906 114.3715,59.9736 114.4129,59.9614 114.4056,59.9249 114.3399,59.9006 114.2743,59.869 114.1916,59.8399 114.1357,59.8034 114.1236,59.7791 114.0871,59.7669 114.0871,59.7523 114.0725,59.7353 114.0433,59.7183 114.019,59.694 113.9947,59.6867 113.9947,59.694 113.8902,59.677 113.8804,59.6259 113.8172,59.6283 113.7613,59.6259 113.6981,59.6308 113.6738,59.587 113.6324,59.5554 113.5619,59.5384 113.4866,59.5335 113.4379,59.5141 113.4404,59.4825 113.4501,59.4557 113.4477,59.4338 113.4039,59.4071 113.3626,59.3852 113.3164,59.3779 113.2702,59.3366 113.275,59.3098 113.3139,59.288 113.3261,59.2685 113.3042,59.2345 113.3115,59.198 113.2678,59.1834 113.2289,59.164 113.1656,59.1324 113.1073,59.0935 113.0441,59.0983 112.9809,59.1032 112.9249,59.0886 112.8496,59.0886 112.8034,59.0813 112.7693,59.091 112.745,59.0764 112.7013,59.0546 112.6405,59.04 112.5748,59.0254 112.5261,58.9864 112.48,58.9694 112.4411,58.9864 112.4119,59.0107 112.3973,58.984 112.4167,58.9573 112.4727,58.9038 112.4532,58.8916 112.4119,58.8624 112.3778,58.8187 112.3438,58.8089 112.3098,58.8357 112.3146,58.8551 112.2976,58.86 112.2976,58.9402 112.3098,58.9645 112.3025,59.0132 112.2976,59.0472 112.3146,59.0861 112.3098,59.1104 112.3462,59.1566 112.3924,59.1858 112.4265,59.1882 112.4265,59.2077 112.4727,59.2052 112.4848,59.232 112.4581,59.2563 112.4143,59.2514 112.356,59.2587 112.3,59.2685 112.2538,59.2563 112.176,59.2417 112.1347,59.249 112.142,59.283 112.1201,59.3049 112.142,59.3268 112.1809,59.3487 112.1712,59.3706 112.1226,59.4022 112.1153,59.4386 112.0642,59.4386 111.9986,59.39 111.9402,59.339 111.8819,59.3098 111.8235,59.2612 111.7822,59.2174 111.7433,59.2247 111.6703,59.215 111.6217,59.215 111.5901,59.2028 111.5488,59.1712 111.4929,59.1493 111.4515,59.1566 111.3883,59.1712 111.364,59.1882 111.3129,59.2101 111.2424,59.2101 111.1938,59.198 111.1428,59.1907 111.1209,59.1736 111.0941,59.1712 111.0698,59.1372 111.0431,59.125 111.0017,59.1323 110.9726,59.1469 110.9458,59.1761 110.9094,59.1761 110.8875,59.1615 110.8413,59.1493 110.7756,59.1736 110.7003,59.1931 110.6103,59.2053 110.5301,59.1955 110.4839,59.1615 110.4426,59.1445 110.4207,59.1031 110.4328,59.0667 110.3964,59.0472 110.3842,58.9986 110.3356,58.9767 110.2772,58.9791 110.214,58.9816 110.1654,58.9597 110.1338,58.9184 110.0706,58.9208 110.0147,58.9208 109.9077,58.9257 109.842,58.9451 109.7715,58.9427 109.7205,58.9305 109.6743,58.9208 109.6427,58.9427 109.6111,58.9791 109.5746,59.0083 109.5187,58.9913 109.4701,59.0083 109.4774,59.0472 109.4798,59.0813 109.4506,59.108 109.4165,59.1153 109.3679,59.1202 109.3825,59.1372 109.3947,59.1591 109.3485,59.1761 109.3509,59.215 109.3533,59.2272 109.2998,59.2247 109.2147,59.2345 109.1224,59.2515 109.098,59.2685 109.1102,59.288 109.0956,59.3074 109.1345,59.3244 109.1734,59.339 109.1904,59.3585 109.1564,59.3755 109.1053,59.3876 109.1297,59.4071 109.171,59.4241 109.1686,59.4436 109.2172,59.4679 109.2609,59.5068 109.278,59.5262 109.3169,59.5432 109.3849,59.5821 109.3655,59.5967 109.3314,59.6186 109.3412,59.6891 109.3655,59.7304 109.4384,59.7693 109.4919,59.8034 109.4603,59.8374 109.4846,59.8544 109.5162,59.8763 109.56,59.9249 109.6159,59.9663 109.5649,59.9906 109.5551,60.0271 109.5382,60.0732 109.5625,60.1024 109.5722,60.1632 109.5795,60.1705 109.6232,60.1802 109.6597,60.2021 109.6621,60.2264 109.65,60.2507 109.7181,60.275 109.7108,60.2872 109.7059,60.309 109.7351,60.3139 109.7813,60.3382 109.791,60.3625 109.757,60.3747 109.7764,60.4087 109.8226,60.4403 109.8639,60.4598 109.8785,60.4914 109.9077,60.506 109.9515,60.5157 109.9636,60.54 109.9661,60.5643 109.9417,60.5716 109.9296,60.5838 109.9077,60.5935 109.8858,60.6154 109.915,60.6178 109.9636,60.6154 109.9904,60.6178 110.0244,60.6154 110.0609,60.6154 110.1119,60.6348 110.1144,60.664 110.1144,60.7029 110.1314,60.7078 110.0998,60.7224 110.0706,60.7369 110.0803,60.7564 110.1144,60.7904 110.1484,60.8318 110.1946,60.8561 110.2335,60.8828 110.2457,60.8974 110.2991,60.9193 110.3064,60.9728 110.321,60.9898 110.3599,61.0092 110.3502,61.0457 110.355,61.0821 110.3186,61.1016 110.2626,61.121 110.2237,61.1186 110.18,61.0894 110.1386,61.0943 110.0949,61.0894 110.0268,61.0967 109.9976,61.1235 109.9709,61.1356 109.9612,61.1697 109.9441,61.211 109.859,61.2304 109.8031,61.2402 109.7545,61.2377 109.6961,61.2329 109.6889,61.2402 109.667,61.2499 109.6354,61.2572 109.6378,61.2742 109.6621,61.2888 109.6475,61.3034 109.6572,61.3253 109.6864,61.3496 109.6913,61.3812 109.6718,61.4177 109.7083,61.4298 109.7205,61.4638 109.6986,61.493 109.6427,61.5295 109.6038,61.5708 109.5746,61.5757 109.5478,61.5927 109.5624,61.6146 109.5308,61.6243 109.4992,61.6389 109.4627,61.6583 109.4846,61.6997 109.4603,61.7094 109.4287,61.707 109.4409,61.7362 109.4336,61.758 109.4433,61.7969 109.453,61.831 109.4822,61.8334 109.577,61.8966 109.6013,61.9234 109.6743,61.9452 109.7253,62.0182 109.7521,62.0595 109.8031,62.079 109.8566,62.1179 109.7983,62.1543 109.7788,62.1762 109.791,62.1908 109.8323,62.2078 109.8445,62.2297 109.808,62.2491 109.808,62.2807 109.735,62.2953 109.7715,62.3415 109.7034,62.3585 109.6135,62.3537 109.5211,62.3537 109.3922,62.3707 109.329,62.344 109.3168,62.3464 109.2974,62.3658 109.2634,62.3999 109.1953,62.4072 109.1515,62.4218 109.1467,62.4412 109.1078,62.4631 109.1126,62.485 109.0883,62.502 109.0883,62.5093 109.2269,62.5214 109.222,62.5506 109.2293,62.5652 109.2172,62.5919 109.2998,62.5968 109.312,62.6795 109.3509,62.7111 109.4044,62.733 109.4579,62.7403 109.4943,62.7646 109.4749,62.7889 109.4579,62.8205 109.3363,62.8545 109.3071,62.9104 109.3217,62.9348 109.3023,62.9372 109.2998,62.9469 109.3241,62.9542 109.3314,62.9737 109.2901,62.9834 109.3144,62.998 109.3023,63.0223 109.2779,63.0344 109.2828,63.0417 109.2974,63.0612 109.2828,63.0758 109.3071,63.0928 109.2585,63.0928 109.2585,63.1341 109.2998,63.156 109.2682,63.1852 109.222,63.1876 109.2269,63.2508 109.2366,63.263 109.2074,63.2946 109.1394,63.2824 109.1126,63.2994 109.0956,63.3359 109.0712,63.3797 108.9862,63.4137 108.9813,63.4405 108.9691,63.4551 108.9278,63.4575 108.9254,63.4794 108.8865,63.494 108.8111,63.494 108.7139,63.4769 108.6482,63.494 108.5412,63.5207 108.478,63.5158 108.4464,63.5304 108.4051,63.5401 108.3176,63.5304 108.1911,63.5183 108.0817,63.5134 107.9966,63.5037 107.9747,63.5085 107.9577,63.5353 107.9529,63.5547 107.9918,63.5718 108.0258,63.5693 108.1133,63.6107 108.1231,63.6714 108.1206,63.7274 108.1668,63.7565 108.213,63.7663 108.213,63.7517 108.2616,63.7371 108.2932,63.7395 108.303,63.7298 108.337,63.7346 108.4367,63.7444 108.461,63.7346 108.4975,63.7274 108.5631,63.759 108.5777,63.7784 108.6117,63.7954 108.6166,63.8149 108.5339,63.8489 108.5364,63.8586 108.585,63.9219 108.551,63.9437 108.4148,63.9948 108.3856,64.0434 108.337,64.0629 108.3613,64.092 108.3929,64.1212 108.3492,64.1309 108.3151,64.1407 108.3467,64.1504 108.3759,64.1577 108.3832,64.1796 108.3394,64.1917 108.3224,64.2136 108.2908,64.2282 108.2422,64.2282 108.2227,64.2428 108.1863,64.2379 108.1863,64.2233 108.179,64.2039 108.1401,64.1893 108.0355,64.1893 107.9991,64.2015 107.9747,64.199 107.9407,64.1869 107.8897,64.182 107.8678,64.1601 107.9091,64.1723 107.965,64.1771 108.0234,64.1723 108.0671,64.148 108.0915,64.0969 108.1182,64.0507 108.1547,63.9972 108.1498,63.9583 108.1206,63.9437 108.0915,63.9316 108.0477,63.9389 107.9748,63.9267 107.8994,63.9292 107.8386,63.9365 107.7778,63.9389 107.7073,63.9267 107.6344,63.9462 107.5615,63.9316 107.4909,63.917 107.4666,63.8781 107.4545,63.8392 107.4204,63.8027 107.3718,63.8003 107.3232,63.81 107.2867,63.8003 107.2089,63.8076 107.187,63.8416 107.1554,63.8903 107.046,63.8951 107.0071,63.8732 106.9439,63.8295 106.8758,63.8416 106.8102,63.8805 106.73,63.917 106.674,63.9219 106.6254,63.9316 106.55,63.917 106.5257,63.8732 106.5744,63.8416 106.623,63.8076 106.6327,63.776 106.5744,63.7322 106.5282,63.6885 106.5136,63.6593 106.4722,63.6277 106.499,63.6034 106.5355,63.5791 106.5184,63.5426 106.4698,63.511 106.4479,63.4915 106.4163,63.4769 106.3726,63.4648 106.3555,63.4308 106.3823,63.4113 106.4261,63.4016 106.4479,63.3724 106.5184,63.3335 106.5841,63.314 106.5623,63.2994 106.5355,63.2678 106.5088,63.2337 106.358,63.2483 106.341,63.2653 106.3021,63.2629 106.2583,63.2386 106.217,63.2167 106.2049,63.1705 106.2267,63.1511 106.2705,63.1268 106.2267,63.0854 106.2486,63.0514 106.1854,63.0149 106.1198,63.0052 106.0444,63.0101 105.9763,63.0028 105.9715,62.9906 105.9909,62.9541 106.0274,62.9201 105.9933,62.9007 106.0468,62.8982 106.0565,62.8691 106.0614,62.8374 106.1052,62.835 106.1587,62.818 106.2049,62.801 106.2948,62.7864 106.3143,62.7183 106.3605,62.6964 106.3556,62.6551 106.3094,62.6308 106.3337,62.6162 106.3896,62.6138 106.4237,62.5943 106.6571,62.5433 106.5477,62.5189 106.5258,62.5092 106.4966,62.4703 106.5428,62.4533 106.5428,62.4144 106.4917,62.3828 106.4334,62.3536 106.3896,62.322 106.3483,62.3196 106.3094,62.3293 106.2656,62.3172 106.2729,62.2904 106.324,62.271 106.3045,62.2491 106.2388,62.2612 106.2145,62.232 106.1635,62.2077 106.2097,62.1834 106.2875,62.1883 106.285,62.1542 106.2704,62.1177 106.251,62.0764 106.2218,62.0472 106.251,62.0205 106.2364,61.9913 106.2486,61.9694 106.1781,61.9646 106.1124,61.9427 106.0346,61.9354 105.9884,61.8941 105.9179,61.8722 105.8887,61.8479 105.828,61.8114 105.7599,61.7968 105.738,61.7312 105.7793,61.6996 105.7891,61.6461 105.7696,61.6218 105.7186,61.6096 105.6699,61.5683 105.6237,61.5658 105.5946,61.5853 105.5459,61.5853 105.4779,61.5683 105.4292,61.5488 105.4098,61.5124 105.3782,61.5002 105.3198,61.4905 105.2469,61.4735 105.208,61.4662 105.1837,61.437 105.1278,61.4248 105.118,61.3932 105.1156,61.3592 105.0451,61.3568 104.9649,61.3568 104.9138,61.3495 104.8725,61.3495 104.8044,61.3397 104.7558,61.3179 104.7242,61.2984 104.678,61.2935 104.6269,61.2863 104.6512,61.2765 104.7023,61.2717 104.7582,61.2644 104.7655,61.2182 104.7922,61.2036 104.8263,61.1793 104.8433,61.1161 104.768,61.1161 104.6902,61.1282 104.6537,61.0966 104.6269,61.0772 104.588,61.0553 104.5467,61.0261 104.4908,61.0164 104.4446,60.997 104.4859,60.9775 104.464,60.9556 104.4495,60.9313 104.4519,60.907 104.4179,60.8973 104.413,60.8803 104.4543,60.8584 104.4762,60.8268 104.4081,60.8025 104.3328,60.8 104.2987,60.7733 104.3717,60.7149 104.4397,60.7052 104.4397,60.6785 104.4081,60.6517 104.3644,60.5763 104.4008,60.5545 104.4057,60.5253 104.4106,60.484 104.4689,60.4523 104.4884,60.3964 104.5127,60.3673 104.4932,60.3478 104.5175,60.3381 104.5662,60.3308 104.6245,60.3016 104.6975,60.27 104.7145,60.253 104.7996,60.236 104.8603,60.2262 104.9284,60.2262 105.0305,60.2141 105.0743,60.2214 105.1035,60.236 105.1545,60.2311 105.1934,60.2117 105.225,60.2019 105.2931,60.2117 105.3247,60.2019 105.3271,60.1241 105.2809,60.0876 105.2688,60.039 105.3101,59.9952 105.3393,59.9393 105.3052,59.9004 105.2761,59.8445 105.315,59.8153 105.3271,59.7764 105.2663,59.7691 105.1885,59.774 105.1472,59.7862 105.084,59.7935 105.0013,59.7935 104.9089,59.7813 104.8749,59.7667 104.8773,59.7229 104.8141,59.7011 104.7606,59.6913 104.6926,59.6719 104.6464,59.6476 104.6537,59.6208 104.6488,59.5698 104.6999,59.5406 104.6974,59.5017 104.7436,59.4506 104.8044,59.4093 104.9187,59.4044 104.96,59.4044 105.0305,59.4117 105.0767,59.368 105.0573,59.3339 105.0962,59.295 105.0305,59.2561 105.0451,59.2343 105.1083,59.2124 105.1399,59.1929 105.1715,59.1443 105.1472,59.103 105.1594,59.0714 105.1958,59.0471 105.1983,59.0276 105.1496,59.0009 105.084,59.0009 104.9988,58.9863 104.9332,58.9328 104.8797,58.9158 104.8043,58.9061 104.7557,58.8501 104.6998,58.838 104.6658,58.8161 104.6098,58.7723 104.6123,58.7432 104.6512,58.7334 104.6706,58.7067 104.6949,58.6897 104.7217,58.6654 104.6682,58.6265 104.622,58.5997 104.5564,58.5997 104.4859,58.5876 104.4226,58.5584 104.3862,58.5754 104.3521,58.5632 104.3011,58.5438 104.2816,58.5657 104.2452,58.5876 104.2427,58.641 104.1892,58.6435 104.1358,58.6337 104.0847,58.6362 104.0409,58.6289 104.0215,58.6532 104.0166,58.6702 103.9704,58.6751 103.9267,58.6824 103.8926,58.6775 103.8562,58.6508 103.7978,58.6532 103.7297,58.6483 103.6762,58.6556 103.6641,58.6897 103.7127,58.7091 103.7443,58.7383 103.7443,58.7675 103.7078,58.7821 103.7176,58.8088 103.6787,58.8185 103.6398,58.8112 103.5595,58.8258 103.5061,58.8331 103.455,58.8331 103.4039,58.838 103.3723,58.8501 103.365,58.8817 103.3116,58.8987 103.2265,58.9303 103.1462,58.9765 103.0782,59.0397 103.0393,59.0883 103.1195,59.1078 103.1414,59.1613 103.0903,59.1953 103.0004,59.205 102.9201,59.2196 102.835,59.2294 102.7694,59.205 102.6794,59.1516 102.5992,59.1321 102.5044,59.12 102.4193,59.1151 102.3366,59.0956 102.2491,59.0519 102.1956,58.9862 102.2224,58.9352 102.2126,58.8963 102.2224,58.872 102.2758,58.8428 102.305,58.8209 102.3172,58.782 102.3366,58.7091 102.2734,58.6337 102.1762,58.5948 102.0984,58.534 102.0157,58.4805 101.9355,58.4392 101.8334,58.4173 101.6996,58.3906 101.6072,58.3687 101.5238,58.3474 101.4957,58.318 101.485,58.2886 101.4556,58.2552 101.4195,58.2338 101.3874,58.1936 101.3646,58.1589 101.3151,58.1575 101.2737,58.1629 101.2041,58.1602 101.1426,58.1602 101.1092,58.1455 101.0931,58.108 101.069,58.088 101.0289,58.0773 100.9834,58.0679 100.95,58.0492 100.962,58.0197 101.0035,58.001 101.0035,57.9823 100.9968,57.9542 100.9821,57.9382 100.9781,57.9168 100.9433,57.8994 100.9219,57.8833 100.9059,57.8766 100.8831,57.8699 100.8751,57.8485 100.8804,57.8392 100.8417,57.8205 100.7989,57.8071 100.7587,57.8084 100.7159,57.8258 100.6731,57.8271 100.6517,57.8231 100.6718,57.8044 100.6959,57.7856 100.6892,57.7723 100.6825,57.7522 100.6906,57.7308 100.7133,57.7214 100.736,57.7134 100.7307,57.7014 100.7186,57.6933 100.6999,57.6813 100.6852,57.6599 100.6785,57.6332 100.6692,57.6251 100.6571,57.6238 100.6464,57.6198 100.6424,57.6091 100.6531,57.6037 100.6678,57.597 100.6638,57.581 100.6772,57.5636 100.7093,57.5409 100.7507,57.5221 100.7869,57.5061 100.8016,57.4954 100.7962,57.474 100.7828,57.4579 100.7895,57.4459 100.8096,57.4392 100.8029,57.4325 100.7828,57.4044 100.7588,57.3884 100.736,57.3924 100.7133,57.4058 100.6678,57.3964 100.6585,57.379 100.6437,57.359 100.6103,57.3549 100.5956,57.3429 100.5769,57.3442 100.5501,57.3576 100.5314,57.3804 100.5153,57.3991 100.4926,57.4138 100.4297,57.4312 100.3669,57.4526 100.2612,57.482 100.2478,57.4874 100.2465,57.5168 100.2385,57.5395 100.2104,57.569 100.189,57.5797 100.1997,57.593 100.2104,57.6131 100.1917,57.6211 100.1716,57.6278 100.193,57.6519 100.2211,57.6706 100.205,57.6786 100.1756,57.6893 100.1515,57.7 100.1181,57.6987 100.1141,57.7107 100.1248,57.7361 100.1101,57.7522 100.0766,57.7589 100.0566,57.7776 100.0231,57.783 99.9937,57.7937 99.9736,57.803 99.967,57.8151 99.967,57.8378 99.9549,57.8646 99.9322,57.8833 99.9215,57.898 99.9188,57.9234 99.9188,57.9542 99.9255,57.9823 99.9188,58.005 99.8961,58.0144 99.8573,58.0197 99.8105,58.0224 99.7757,58.0144 99.7369,58.013 99.6981,58.0117 99.6767,58.0064 99.65,57.997 99.6326,57.9997 99.6072,58.0144 99.5751,58.0251 99.5483,58.0251 99.5216,58.0184 99.5055,58.0064 99.4801,57.997 99.4614,57.993 99.4614,57.9809 99.4747,57.9769 99.4734,57.9595 99.4547,57.9355 99.4186,57.9127 99.3932,57.8967 99.3784,57.8806 99.3597,57.882 99.3423,57.8753 99.3383,57.8552 99.3236,57.8352 99.3156,57.803 99.3035,57.7857 99.2781,57.7629 99.2714,57.7402 99.2487,57.7322 99.2139,57.7362 99.1684,57.7348 99.1149,57.7295 99.0721,57.7121 99.0293,57.7014 98.9919,57.7054 98.9504,57.7134 98.9277,57.7121 98.8876,57.692 98.8408,57.6813 98.8261,57.6639 98.8034,57.6639 98.7606,57.6613 98.675,57.68 98.6241,57.7027 98.6241,57.7281 98.6148,57.7308 98.576,57.7322 98.5452,57.7215 98.4676,57.7161 98.4021,57.7308 98.3419,57.7334 98.263,57.7388 98.1827,57.7455 98.0784,57.7495 97.9861,57.7589 97.9286,57.7615 97.8778,57.7629 97.8403,57.7629 97.8002,57.7562 97.7614,57.7468 97.7453,57.7308 97.5314,57.4485 97.185,56.9817 97.2452,56.9657 97.2719,56.9496 97.2987,56.9229 97.3214,56.9041 97.3588,56.9001 97.407,56.9028 97.4618,56.9001 97.4632,56.8814 97.4364,56.8667 97.3829,56.8493 97.3415,56.8386 97.3161,56.8078 97.3108,56.7743 97.3509,56.7463 97.3991,56.7315 97.4378,56.7409 97.502,56.7489 97.5689,56.7409 97.6171,56.7262 97.6144,56.6994 97.5983,56.67 97.5997,56.6312 97.6291,56.6085 97.6211,56.5938 97.5997,56.5831 97.6024,56.567 97.6197,56.5537 97.6077,56.5216 97.5903,56.5002 97.7227,56.4988 97.7268,56.333 97.4004,56.3276 97.4057,56.2447 97.4017,56.2313 97.4338,56.2233 97.4311,56.1296 97.3509,56.1256 97.2746,56.0842 97.276,56.0333 97.2559,56.028 97.2265,56.0106 97.2024,55.9892 97.185,55.9932 97.1583,56.0052 97.1275,56.0173 97.1181,56.0266 96.9697,56.0547 96.9055,55.9665 96.8252,55.9624 96.8145,55.7979 96.7864,55.7912 96.761,55.7912 96.7423,55.7752 96.7236,55.7645 96.6942,55.7645 96.6902,55.7484 96.6768,55.739 96.6487,55.7297 96.626,55.723 96.6166,55.7069 96.6166,55.7003 96.6006,55.6882 96.6166,55.6682 96.6353,55.6575 96.6634,55.6441 96.6648,55.6334 96.6407,55.6187 96.6153,55.608 96.5925,55.5959 96.6046,55.5826 96.6353,55.5705 96.6715,55.5545 96.6995,55.5384 96.6915,55.517 96.6688,55.5077 96.6648,55.4916 96.6808,55.4729 96.6781,55.4448 96.6969,55.4261 96.6928,55.406 96.6861,55.3873 96.6955,55.3686 96.7222,55.3579 96.7289,55.3298 96.741,55.3044 96.7543,55.2937 96.7664,55.2669 96.7557,55.2535 96.7276,55.2415 96.6968,55.2362 96.6513,55.2281 96.6059,55.2188 96.5697,55.2094 96.547,55.1947 96.539,55.176 96.5457,55.1613 96.547,55.1305 96.5403,55.1104 96.5256,55.085 96.5256,55.0649 96.5069,55.0502 96.4962,55.0395 96.5082,55.0342 96.5216,55.0342 96.5336,55.0235 96.5203,55.0088 96.4948,54.9954 96.4895,54.9834 96.4574,54.97 96.428,54.966 96.4226,54.962 96.4266,54.9566 96.4413,54.9526 96.4627,54.9459 96.4975,54.9165 96.535,54.8924 96.5604,54.8643 96.547,54.8402 96.5537,54.8081 96.5403,54.7774 96.5229,54.7667 96.5203,54.7439 96.4869,54.7251 96.4748,54.6971 96.4467,54.677 96.4293,54.6556 96.4106,54.6422 96.4039,54.6288 96.4146,54.6181 96.432,54.6021 96.424,54.5713 96.4173,54.5473 96.4053,54.5339 96.3946,54.5138 96.4173,54.4724 96.4146,54.455 96.3959,54.4456 96.3625,54.4456 96.3076,54.4563 96.2622,54.471 96.2207,54.4884 96.1832,54.5071 96.1592,54.5111 96.1578,54.5018 96.1391,54.4938 96.1043,54.4884 96.0589,54.4804 96.0,54.4897 95.9666,54.4938 95.9371,54.5045 95.9077,54.5152 95.8863,54.5085 95.8743,54.4884 95.8836,54.4683 95.8729,54.4683 95.8582,54.4697 95.8582,54.4576 95.8636,54.4389 95.8422,54.4255 95.8181,54.4162 95.8234,54.3961 95.8301,54.3867 95.8101,54.3801 95.7887,54.3587 95.7606,54.3346 95.7258,54.3279 95.695,54.3373 95.679,54.3546 95.6456,54.3613 95.6242,54.3533 95.6108,54.3426 95.5907,54.3399 95.5573,54.3266 95.5466,54.2985 95.5386,54.2904 95.5118,54.2864 95.5038,54.2731 95.4984,54.2383 95.4998,54.2102 4982,7.0,Russia 74.9565,58.272 75.1161,58.1579 74.9565,58.0658 75.4353,57.8694 75.4598,57.5932 75.601,57.5932 75.7421,57.3355 75.8649,57.3477 75.9815,57.1882 76.0429,57.0593 76.0736,56.9365 76.0736,56.8936 76.1411,56.8506 76.1411,56.7279 76.1718,56.6665 76.0613,56.6235 76.0429,56.5683 75.9385,56.5437 75.9034,56.4903 75.8152,56.4588 75.7417,56.4378 75.7228,56.3916 75.7837,56.3811 75.8299,56.4168 75.8929,56.3958 75.9412,56.4294 75.9559,56.4063 76.0231,56.3958 76.0231,56.3685 75.9559,56.3559 75.9958,56.253 76.0798,56.2362 76.1029,56.2026 76.1386,56.1984 76.1932,56.1669 76.2016,56.1228 76.1302,56.1228 76.0399,56.0871 76.0294,56.1249 75.9706,56.1081 75.8677,56.1165 75.8446,56.0661 75.7375,56.0766 75.6514,56.0829 75.5968,56.0577 75.5821,56.0094 75.4309,55.9926 75.4036,55.9653 75.391,55.9338 75.2293,55.8561 75.1705,55.8057 75.1894,55.77 75.2398,55.7553 75.2566,55.7406 75.2503,55.707 75.097,55.6818 74.9941,55.7091 74.9647,55.6902 74.9983,55.6734 75.0151,55.6587 75.0088,55.6398 75.1117,55.5999 75.0634,55.5726 75.0088,55.5432 75.0781,55.497 75.1831,55.5075 75.2041,55.4739 75.2041,55.4466 75.1411,55.4214 75.097,55.4088 75.0487,55.392 75.0508,55.3605 74.9941,55.3374 74.9752,55.3227 75.0256,55.2975 75.0508,55.2807 75.0508,55.2555 75.0865,55.245 75.0865,55.2177 75.1243,55.2177 75.1558,55.1925 75.1537,55.1694 75.1537,55.1316 75.1306,55.0812 75.1306,55.0707 75.1852,55.0476 75.181,55.0245 75.1957,55.014 75.2419,55.0119 75.2566,55.0077 75.2776,54.9615 75.244,54.9153 75.2125,54.8838 75.2167,54.8544 75.2671,54.846 75.3532,54.8565 75.4162,54.8355 75.3784,54.8082 75.3721,54.7872 75.4078,54.7599 75.4456,54.7536 75.5317,54.7515 75.5569,54.7179 75.5674,54.6675 75.5821,54.6402 75.5968,54.6213 75.6283,54.6339 75.6556,54.6486 75.685,54.6339 75.6724,54.6192 75.6766,54.6003 75.6976,54.5793 75.7165,54.5499 75.6913,54.5142 75.6745,54.4995 75.6241,54.4869 75.559,54.4722 75.5632,54.4239 75.559,54.3294 75.5653,54.2496 75.5695,54.1425 75.5737,54.0522 75.5739,54.05 75.7604,54.1118 76.0795,54.1958 76.0579,54.2322 76.1107,54.2954 76.2256,54.2772 76.3595,54.2621 76.5307,54.3066 76.5409,54.3338 76.5445,54.3601 76.5707,54.3805 76.6822,54.3842 76.7366,54.2766 76.7302,54.2377 76.6742,54.1643 76.6552,54.1444 76.596,54.0919 76.5716,54.0827 76.5315,54.075 76.5092,54.0742 76.4862,54.0791 76.4361,54.1016 76.4146,54.1057 76.3937,54.1076 76.3531,54.1093 76.3161,54.1085 76.2749,54.0934 76.2985,54.0673 76.3209,54.0469 76.3443,54.021 76.3787,53.9748 76.3955,53.9326 76.4158,53.9102 76.6549,53.7891 76.7875,53.7368 76.909,53.6853 77.1432,53.5633 77.2784,53.4993 77.3972,53.4441 77.4199,53.4317 77.6274,53.3111 77.6732,53.2836 77.7384,53.244 77.7638,53.2245 77.7881,53.2029 77.8084,53.183 77.8565,53.1328 77.9202,53.0642 77.9356,53.0326 77.947,53.0135 78.1705,52.7912 78.2851,52.6854 78.3426,52.6255 78.5045,52.448 78.6262,52.3117 78.7985,52.1158 79.1234,51.7228 79.2136,51.6092 79.2425,51.5861 79.3711,51.4397 79.4185,51.3822 79.5581,51.1736 79.6142,51.1015 79.6287,51.0843 79.8387,50.8149 79.8515,50.786 79.8669,50.7609 79.8948,50.7377 79.9137,50.7246 79.9373,50.7099 79.96,50.6989 79.9809,50.7057 79.9675,50.726 79.9452,50.7407 79.9696,50.7908 80.1616,50.8641 80.2212,50.8625 80.2552,50.864 80.2815,50.8737 80.3051,50.8857 80.3417,50.9075 80.359,50.9367 80.3647,50.9622 80.3641,50.992 80.3529,51.0246 80.313,51.0522 80.3202,51.1401 80.3648,51.1577 80.4592,51.1532 80.4851,51.1534 80.514,51.1617 80.5113,51.1925 80.534,51.2289 80.5606,51.2531 80.581,51.2508 80.6346,51.2361 80.6953,51.2167 80.7478,51.1998 80.818,51.1602 80.9161,51.1222 80.9702,51.1227 81.0095,51.1438 81.0548,51.1337 81.0531,51.1052 81.0407,51.0717 81.0287,51.0538 81.0127,51.0357 80.9845,50.9914 80.9712,50.9655 80.9578,50.9284 80.9508,50.8924 81.0643,50.8861 81.1037,50.8933 81.1258,50.8997 81.1464,50.906 81.1729,50.9108 81.2032,50.9105 81.2958,50.9078 81.3291,50.8191 81.344,50.7575 81.3154,50.7102 81.3399,50.6844 81.4142,50.6792 81.4582,50.6774 81.4711,50.6772 81.5143,50.6789 81.5545,50.6823 81.6069,50.6931 81.6913,50.7131 81.7907,50.7283 81.8899,50.7113 81.947,50.6771 81.9767,50.6616 81.9986,50.6559 82.0343,50.6516 82.0682,50.6518 82.0909,50.6555 82.1217,50.668 82.1551,50.6948 82.2312,50.7012 82.3221,50.6965 82.3555,50.6732 82.3735,50.6626 82.3945,50.6687 82.4212,50.6788 82.5464,50.7272 82.5768,50.7417 82.5955,50.7553 82.597,50.7878 82.5989,50.8312 82.6348,50.8519 82.6635,50.8593 82.7119,50.8463 82.7383,50.8382 82.7961,50.8335 82.8881,50.8326 82.9299,50.8484 82.9663,50.873 82.9763,50.8936 83.0111,50.9407 83.1227,50.9437 83.3406,50.9304 83.6789,50.8276 83.7116,50.8204 83.8498,50.7362 83.8503,50.7126 83.8385,50.6719 83.8469,50.6528 83.8738,50.634 83.9136,50.613 83.9786,50.5844 83.9986,50.5731 84.0195,50.5573 84.0413,50.5398 84.0969,50.4488 84.0796,50.416 84.0712,50.3912 84.1387,50.2148 84.2505,50.1547 84.3939,50.159 84.5685,50.1193 84.6834,50.0864 84.8554,50.0305 84.884,50.02 84.9292,49.9551 84.8734,49.9456 84.8532,49.9402 84.8483,49.8706 84.8633,49.8481 84.926,49.835 84.9546,49.826 85.0717,49.6763 85.0894,49.6427 85.0864,49.5931 85.1335,49.5359 85.1698,49.526 85.1985,49.5385 85.2297,49.5534 85.2942,49.564 85.3393,49.5408 85.3781,49.5335 85.4022,49.5341 85.4278,49.5383 85.5313,49.5516 85.6199,49.5229 85.6801,49.5073 85.8327,49.4815 86.0573,49.4201 86.1026,49.432 86.123,49.4511 86.1494,49.5077 86.1602,49.5288 86.2107,49.5597 86.2464,49.5635 86.2859,49.5742 86.3177,49.5889 86.3793,49.6316 86.4052,49.6706 86.4952,49.7417 86.5339,49.7453 86.6538,49.7268 86.6663,49.641 86.6198,49.617 86.5666,49.6159 86.5125,49.5762 86.4879,49.5492 86.4933,49.5262 86.5218,49.5033 86.5556,49.4952 86.5866,49.4967 86.6157,49.5072 86.7222,49.4563 86.7131,49.4259 86.7113,49.3979 86.7988,49.2965 86.9126,49.2156 86.9843,49.194 87.0406,49.1934 87.0824,49.1907 87.1153,49.1818 87.1377,49.1717 87.1773,49.1451 87.1861,49.1107 87.197,49.0721 87.2123,49.0449 87.2204,49.0364 87.2462,49.0289 87.2842,49.0222 87.3187,49.0213 87.3389,49.0235 87.3792,49.043 87.3913,49.0611 87.577,49.1065 87.679,49.1151 87.7076,49.1171 87.7289,49.1108 87.7594,49.1061 87.8632,49.1233 88.0272,49.2124 88.044,49.2309 88.0293,49.2542 88.004,49.3128 88.0497,49.3773 88.0724,49.3961 88.0911,49.4051 88.2165,49.4253 88.2777,49.427 88.4386,49.4192 88.6005,49.3942 88.721,49.385 88.772,49.3932 88.7469,49.4216 88.7556,49.4829 88.7935,49.4897 88.8191,49.4616 88.8565,49.4123 88.8774,49.4065 89.0192,49.4415 89.0571,49.4528 89.0774,49.464 89.1051,49.4891 89.1017,49.5133 89.0697,49.5443 89.0726,49.5656 89.0918,49.58 89.1215,49.586 89.154,49.5755 89.1882,49.5526 89.2414,49.5253 89.2714,49.5347 89.3101,49.5705 89.3248,49.5917 89.4329,49.6212 89.4578,49.6238 89.4945,49.6273 89.5895,49.6653 89.603,49.6888 89.5891,49.7073 89.561,49.7183 89.5265,49.7309 89.5046,49.801 89.5098,49.8475 89.5181,49.8548 89.5403,49.8672 89.5684,49.8775 89.5935,49.8833 89.6298,49.8893 89.6743,49.8938 89.7048,49.8925 89.7377,49.8892 89.767,49.8908 89.8478,49.9136 89.8723,49.9235 89.8875,49.9389 89.888,49.9886 89.8972,50.0104 89.9135,50.0234 89.9369,50.0327 89.9687,50.0412 90.0441,50.0526 90.0837,50.057 90.1089,50.0626 90.1419,50.0763 90.1692,50.0928 90.2028,50.1122 90.2428,50.1278 90.3738,50.1666 90.3943,50.1683 90.4217,50.1681 90.4767,50.1579 90.5072,50.1541 90.5369,50.1559 90.5621,50.1617 90.587,50.173 90.7559,50.2811 90.7889,50.3094 90.822,50.3378 90.8424,50.3517 90.8652,50.3643 90.9021,50.3761 90.9636,50.3735 90.9909,50.3731 91.022,50.3757 91.213,50.4178 91.3198,50.4493 91.4765,50.5193 91.4954,50.5371 91.5142,50.5725 91.5297,50.5857 91.5585,50.6022 91.5845,50.6137 91.6403,50.6337 91.6802,50.6449 91.7451,50.6543 91.7659,50.6561 91.8123,50.656 91.8674,50.6469 91.8984,50.6392 91.9452,50.633 91.972,50.6322 92.0223,50.6345 92.0503,50.6387 92.0812,50.6471 92.1237,50.6685 92.1549,50.6965 92.1766,50.7319 92.1819,50.7561 92.3067,50.752 92.3294,50.7286 92.4998,50.6297 92.5291,50.623 92.5582,50.6245 92.5957,50.6388 92.6213,50.6558 92.6379,50.6819 92.648,50.722 92.6713,50.7359 92.7917,50.7407 92.826,50.7343 92.8528,50.714 92.8571,50.6901 92.8322,50.6336 92.8297,50.6124 92.8854,50.5523 92.9479,50.5414 92.9715,50.5377 93.0008,50.5386 93.2,50.5465 93.2427,50.5556 93.2675,50.5614 93.309,50.5636 93.3388,50.5588 93.4362,50.532 93.5938,50.521 93.7529,50.5258 93.8404,50.527 94.076,50.5193 94.1014,50.5173 94.1407,50.5064 94.1587,50.4904 94.2097,50.3567 94.2139,50.3242 94.2123,50.2884 94.2153,50.2532 94.2312,50.1884 94.2449,50.1617 94.2582,50.1456 94.2891,50.1287 94.3629,50.1091 94.3852,50.0898 94.4321,50.031 94.4881,49.9698 94.5237,49.9685 94.5751,49.9779 94.6391,49.9988 94.6778,50.0023 94.8383,49.9944 94.8578,49.9799 94.8708,49.9655 94.9236,49.9071 94.9564,49.899 95.0146,49.9 95.0635,49.9005 95.0845,49.9021 95.1228,49.9022 95.2077,49.9014 95.2727,49.8997 95.2971,49.8925 95.35,49.8504 95.3825,49.8382 95.6056,49.9033 95.6254,49.9203 95.6433,49.9448 95.662,49.9591 95.6833,49.9661 95.7212,49.9676 95.7449,49.9636 95.7689,49.9526 95.7824,49.9222 95.793,49.9044 95.8144,49.8878 95.8444,49.8944 95.8733,49.9197 95.8922,49.934 95.9254,49.9482 95.9641,49.9446 96.0689,49.9146 96.1318,49.8963 96.1542,49.8874 96.1673,49.872 96.1916,49.8537 96.216,49.8426 96.2406,49.836 96.2638,49.838 96.3022,49.8513 96.3445,49.869 96.3752,49.8731 96.4007,49.8695 96.4248,49.8548 96.4339,49.8326 96.4474,49.8094 96.4709,49.8065 96.511,49.8248 96.5539,49.8557 96.5744,49.8632 96.5982,49.8634 96.6581,49.8575 96.864,49.8319 97.005,49.7397 97.0256,49.7049 97.061,49.6946 97.1338,49.6767 97.164,49.674 97.2047,49.6795 97.3401,49.7304 97.421,49.7732 97.4523,49.7981 97.462,49.8193 97.5742,49.8944 97.5955,49.9014 97.6246,49.9097 97.6448,49.911 97.6671,49.9022 97.7456,49.8981 97.9299,49.9741 97.9551,49.9882 97.9726,50.003 97.9876,50.0201 98.0516,50.1038 98.145,50.2447 98.1796,50.4128 98.1771,50.4492 98.1694,50.4687 98.156,50.484 98.1341,50.4976 98.1021,50.5068 98.0746,50.5079 98.044,50.5077 98.0172,50.5115 97.9168,50.5701 97.9027,50.5849 97.818,50.7144 97.8188,50.7406 97.8601,50.7946 97.7986,50.8468 97.7492,50.8613 97.7192,50.8789 97.6809,50.9405 97.7007,50.9702 97.729,51.0033 97.7584,51.0602 97.8056,51.1589 97.8037,51.1933 97.8463,51.3141 97.9061,51.4032 97.9339,51.4148 97.9583,51.4199 97.9861,51.4198 98.0207,51.4079 98.0513,51.4014 98.0836,51.4061 98.1055,51.4481 98.1073,51.4685 98.0963,51.496 98.0948,51.5186 98.1594,51.6394 98.1852,51.6595 98.2161,51.671 98.2401,51.677 98.3556,51.7012 98.4454,51.7148 98.4773,51.7223 98.514,51.7399 98.5349,51.7534 98.5537,51.7679 98.5716,51.7831 98.6109,51.8243 98.6512,51.8813 98.7159,51.9836 98.7181,52.0045 98.7175,52.0299 98.724,52.0513 98.7439,52.0717 98.7701,52.0823 98.786,52.08 98.7908,52.0754 98.7908,52.0781 98.7814,52.1286 98.753,52.1443 98.7025,52.1286 98.6647,52.1223 98.6521,52.1506 98.6615,52.2105 98.6268,52.2168 98.5859,52.2263 98.5575,52.2358 98.5165,52.2011 98.485,52.2011 98.5007,52.2641 98.5165,52.3177 98.4723,52.365 98.507,52.3682 98.5575,52.3903 98.5669,52.4092 98.5732,52.4533 98.6048,52.4439 98.63,52.447 98.6678,52.4754 98.6489,52.4943 98.6268,52.5101 98.6458,52.5479 98.7025,52.5637 98.7246,52.5984 98.753,52.5826 98.7814,52.6015 98.7719,52.6331 98.7814,52.6583 98.7656,52.6993 98.7877,52.7277 98.7845,52.7403 98.7278,52.7371 98.7025,52.734 98.7025,52.7592 98.6931,52.7781 98.7624,52.838 98.7687,52.8569 98.7971,52.8664 98.8287,52.8664 98.8633,52.8412 98.9012,52.8286 98.9453,52.8222 98.9895,52.8191 99.0399,52.7907 99.0651,52.797 99.0588,52.8412 99.0809,52.8695 99.0872,52.8948 99.0207,52.9191 98.9225,52.9388 98.8276,52.9813 98.8407,53.0075 98.8604,53.014 98.9029,53.0304 98.8651,53.0532 98.8076,53.0786 98.7862,53.0893 98.75,53.0947 98.7313,53.0907 98.722,53.0599 98.6283,53.0827 98.5508,53.0947 98.5187,53.0947 98.4852,53.0679 98.4625,53.0479 98.4464,53.0412 98.3902,53.0519 98.3488,53.0506 98.2485,53.0439 98.2311,53.0439 98.203,53.0278 98.1803,53.0412 98.1642,53.0425 98.1441,53.0425 98.1294,53.0733 98.1361,53.0987 98.1254,53.1255 98.1321,53.1402 98.1468,53.1522 98.1308,53.1656 98.0947,53.1683 98.0652,53.1643 98.0425,53.1776 97.9957,53.1883 97.9288,53.191 97.894,53.1883 97.8646,53.1964 97.8445,53.2151 97.8151,53.2352 97.8111,53.2499 97.8178,53.2793 97.8124,53.2981 97.7884,53.3007 97.7442,53.2914 97.7068,53.3061 97.6814,53.3074 97.6412,53.3047 97.6025,53.3181 97.557,53.3208 97.5102,53.3114 97.4647,53.3101 97.4353,53.3154 97.4272,53.3315 97.4366,53.3583 97.4299,53.377 97.3925,53.393 97.3336,53.397 97.3002,53.3957 97.2801,53.4091 97.2801,53.4305 97.2641,53.4479 97.2427,53.4559 97.232,53.476 97.2213,53.4987 97.1932,53.504 97.1851,53.5201 97.1744,53.5415 97.1611,53.5375 97.1383,53.5295 97.1129,53.5321 97.0848,53.5335 97.0674,53.5415 97.0447,53.5656 97.0059,53.5642 96.9845,53.5549 96.9671,53.5495 96.9484,53.5723 96.923,53.5789 96.8922,53.595 96.8548,53.5976 96.836,53.6137 96.816,53.6271 96.7732,53.6364 96.7371,53.6672 96.6862,53.6685 96.626,53.6605 96.5712,53.6458 96.5565,53.6364 96.5511,53.6016 96.5431,53.5829 96.5271,53.5789 96.4882,53.5842 96.4602,53.6123 96.4454,53.615 96.4361,53.5923 96.4174,53.5869 96.4067,53.5936 96.4053,53.6083 96.3839,53.615 96.3465,53.6244 96.3411,53.6324 96.3277,53.6591 96.3037,53.6752 96.2769,53.6846 96.2582,53.7193 96.198,53.7608 96.1177,53.8116 96.0656,53.8517 96.0455,53.8705 96.0094,53.8839 95.9867,53.9079 95.9559,53.9173 95.9078,53.9293 95.8944,53.94 95.9024,53.9614 95.9131,53.9855 95.9211,53.9868 95.9265,54.0002 95.9091,54.023 95.8904,54.0337 95.8583,54.0337 95.8382,54.0283 95.8195,54.0363 95.782,54.0537 95.778,54.0751 95.7606,54.1019 95.7339,54.1032 95.6951,54.1072 95.6804,54.13 95.6563,54.142 95.6108,54.154 95.5292,54.1701 95.5145,54.1754 95.4998,54.2102 95.4984,54.2383 95.5038,54.2731 95.5118,54.2864 95.5386,54.2904 95.5466,54.2985 95.5573,54.3266 95.5907,54.3399 95.6108,54.3426 95.6242,54.3533 95.6456,54.3613 95.679,54.3546 95.695,54.3373 95.7258,54.3279 95.7606,54.3346 95.7887,54.3587 95.8101,54.3801 95.8301,54.3867 95.8234,54.3961 95.8181,54.4162 95.8422,54.4255 95.8636,54.4389 95.8582,54.4576 95.8582,54.4697 95.8729,54.4683 95.8836,54.4683 95.8743,54.4884 95.8863,54.5085 95.9077,54.5152 95.9371,54.5045 95.9666,54.4938 96.0,54.4897 96.0589,54.4804 96.1043,54.4884 96.1391,54.4938 96.1578,54.5018 96.1592,54.5111 96.1832,54.5071 96.2207,54.4884 96.2622,54.471 96.3076,54.4563 96.3625,54.4456 96.3959,54.4456 96.4146,54.455 96.4173,54.4724 96.3946,54.5138 96.4053,54.5339 96.4173,54.5473 96.424,54.5713 96.432,54.6021 96.4146,54.6181 96.4039,54.6288 96.4106,54.6422 96.4293,54.6556 96.4467,54.677 96.4748,54.6971 96.4869,54.7251 96.5203,54.7439 96.5229,54.7667 96.5403,54.7774 96.5537,54.8081 96.547,54.8402 96.5604,54.8643 96.535,54.8924 96.4975,54.9165 96.4627,54.9459 96.4413,54.9526 96.4266,54.9566 96.4226,54.962 96.428,54.966 96.4574,54.97 96.4895,54.9834 96.4948,54.9954 96.5203,55.0088 96.5336,55.0235 96.5216,55.0342 96.5082,55.0342 96.4962,55.0395 96.5069,55.0502 96.5256,55.0649 96.5256,55.085 96.5403,55.1104 96.547,55.1305 96.5457,55.1613 96.539,55.176 96.547,55.1947 96.5697,55.2094 96.6059,55.2188 96.6513,55.2281 96.6968,55.2362 96.7276,55.2415 96.7557,55.2535 96.7664,55.2669 96.7543,55.2937 96.741,55.3044 96.7289,55.3298 96.7222,55.3579 96.6955,55.3686 96.6861,55.3873 96.6928,55.406 96.6969,55.4261 96.6781,55.4448 96.6808,55.4729 96.6648,55.4916 96.6688,55.5077 96.6915,55.517 96.6995,55.5384 96.6715,55.5545 96.6353,55.5705 96.6046,55.5826 96.5925,55.5959 96.6153,55.608 96.6407,55.6187 96.6648,55.6334 96.6634,55.6441 96.6353,55.6575 96.6166,55.6682 96.6006,55.6882 96.6166,55.7003 96.6166,55.7069 96.626,55.723 96.6487,55.7297 96.6768,55.739 96.6902,55.7484 96.6942,55.7645 96.7236,55.7645 96.7423,55.7752 96.761,55.7912 96.7864,55.7912 96.8145,55.7979 96.8252,55.9624 96.9055,55.9665 96.9697,56.0547 97.1181,56.0266 97.1275,56.0173 97.1583,56.0052 97.185,55.9932 97.2024,55.9892 97.2265,56.0106 97.2559,56.028 97.276,56.0333 97.2746,56.0842 97.3509,56.1256 97.4311,56.1296 97.4338,56.2233 97.4017,56.2313 97.4057,56.2447 97.4004,56.3276 97.7268,56.333 97.7227,56.4988 97.5903,56.5002 97.6077,56.5216 97.6197,56.5537 97.6024,56.567 97.5997,56.5831 97.6211,56.5938 97.6291,56.6085 97.5997,56.6312 97.5983,56.67 97.6144,56.6994 97.6171,56.7262 97.5689,56.7409 97.502,56.7489 97.4378,56.7409 97.3991,56.7315 97.3509,56.7463 97.3108,56.7743 97.3161,56.8078 97.3415,56.8386 97.3829,56.8493 97.4364,56.8667 97.4632,56.8814 97.4618,56.9001 97.407,56.9028 97.3588,56.9001 97.3214,56.9041 97.2987,56.9229 97.2719,56.9496 97.2452,56.9657 97.185,56.9817 97.5314,57.4485 97.7453,57.7308 97.7614,57.7468 97.8002,57.7562 97.8403,57.7629 97.8778,57.7629 97.9286,57.7615 97.9861,57.7589 98.0784,57.7495 98.1827,57.7455 98.263,57.7388 98.3419,57.7334 98.4021,57.7308 98.4676,57.7161 98.5452,57.7215 98.576,57.7322 98.6148,57.7308 98.6241,57.7281 98.6241,57.7027 98.675,57.68 98.7606,57.6613 98.8034,57.6639 98.8261,57.6639 98.8408,57.6813 98.8876,57.692 98.9277,57.7121 98.9504,57.7134 98.9919,57.7054 99.0293,57.7014 99.0721,57.7121 99.1149,57.7295 99.1684,57.7348 99.2139,57.7362 99.2487,57.7322 99.2714,57.7402 99.2781,57.7629 99.3035,57.7857 99.3156,57.803 99.3236,57.8352 99.3383,57.8552 99.3423,57.8753 99.3597,57.882 99.3784,57.8806 99.3932,57.8967 99.4186,57.9127 99.4547,57.9355 99.4734,57.9595 99.4747,57.9769 99.4614,57.9809 99.4614,57.993 99.4801,57.997 99.5055,58.0064 99.5216,58.0184 99.5483,58.0251 99.5751,58.0251 99.6072,58.0144 99.6326,57.9997 99.65,57.997 99.6767,58.0064 99.6981,58.0117 99.7369,58.013 99.7757,58.0144 99.8105,58.0224 99.8573,58.0197 99.8961,58.0144 99.9188,58.005 99.9255,57.9823 99.9188,57.9542 99.9188,57.9234 99.9215,57.898 99.9322,57.8833 99.9549,57.8646 99.967,57.8378 99.967,57.8151 99.9736,57.803 99.9937,57.7937 100.0231,57.783 100.0566,57.7776 100.0766,57.7589 100.1101,57.7522 100.1248,57.7361 100.1141,57.7107 100.1181,57.6987 100.1515,57.7 100.1756,57.6893 100.205,57.6786 100.2211,57.6706 100.193,57.6519 100.1716,57.6278 100.1917,57.6211 100.2104,57.6131 100.1997,57.593 100.189,57.5797 100.2104,57.569 100.2385,57.5395 100.2465,57.5168 100.2478,57.4874 100.2612,57.482 100.3669,57.4526 100.4297,57.4312 100.4926,57.4138 100.5153,57.3991 100.5314,57.3804 100.5501,57.3576 100.5769,57.3442 100.5956,57.3429 100.6103,57.3549 100.6437,57.359 100.6585,57.379 100.6678,57.3964 100.7133,57.4058 100.736,57.3924 100.7588,57.3884 100.7828,57.4044 100.8029,57.4325 100.8096,57.4392 100.7895,57.4459 100.7828,57.4579 100.7962,57.474 100.8016,57.4954 100.7869,57.5061 100.7507,57.5221 100.7093,57.5409 100.6772,57.5636 100.6638,57.581 100.6678,57.597 100.6531,57.6037 100.6424,57.6091 100.6464,57.6198 100.6571,57.6238 100.6692,57.6251 100.6785,57.6332 100.6852,57.6599 100.6999,57.6813 100.7186,57.6933 100.7307,57.7014 100.736,57.7134 100.7133,57.7214 100.6906,57.7308 100.6825,57.7522 100.6892,57.7723 100.6959,57.7856 100.6718,57.8044 100.6517,57.8231 100.6731,57.8271 100.7159,57.8258 100.7587,57.8084 100.7989,57.8071 100.8417,57.8205 100.8804,57.8392 100.8751,57.8485 100.8831,57.8699 100.9059,57.8766 100.9219,57.8833 100.9433,57.8994 100.9781,57.9168 100.9821,57.9382 100.9968,57.9542 101.0035,57.9823 101.0035,58.001 100.962,58.0197 100.95,58.0492 100.9834,58.0679 101.0289,58.0773 101.069,58.088 101.0931,58.108 101.1092,58.1455 101.1426,58.1602 101.2041,58.1602 101.2737,58.1629 101.3151,58.1575 101.3646,58.1589 101.3874,58.1936 101.4195,58.2338 101.4556,58.2552 101.485,58.2886 101.4957,58.318 101.5238,58.3474 101.6072,58.3687 101.6996,58.3906 101.8334,58.4173 101.9355,58.4392 102.0157,58.4805 102.0984,58.534 102.1762,58.5948 102.2734,58.6337 102.3366,58.7091 102.3172,58.782 102.305,58.8209 102.2758,58.8428 102.2224,58.872 102.2126,58.8963 102.2224,58.9352 102.1956,58.9862 102.2491,59.0519 102.3366,59.0956 102.4193,59.1151 102.5044,59.12 102.5992,59.1321 102.6794,59.1516 102.7694,59.205 102.835,59.2294 102.9201,59.2196 103.0004,59.205 103.0903,59.1953 103.1414,59.1613 103.1195,59.1078 103.0393,59.0883 103.0782,59.0397 103.1462,58.9765 103.2265,58.9303 103.3116,58.8987 103.365,58.8817 103.3723,58.8501 103.4039,58.838 103.455,58.8331 103.5061,58.8331 103.5595,58.8258 103.6398,58.8112 103.6787,58.8185 103.7176,58.8088 103.7078,58.7821 103.7443,58.7675 103.7443,58.7383 103.7127,58.7091 103.6641,58.6897 103.6762,58.6556 103.7297,58.6483 103.7978,58.6532 103.8562,58.6508 103.8926,58.6775 103.9267,58.6824 103.9704,58.6751 104.0166,58.6702 104.0215,58.6532 104.0409,58.6289 104.0847,58.6362 104.1358,58.6337 104.1892,58.6435 104.2427,58.641 104.2452,58.5876 104.2816,58.5657 104.3011,58.5438 104.3521,58.5632 104.3862,58.5754 104.4226,58.5584 104.4859,58.5876 104.5564,58.5997 104.622,58.5997 104.6682,58.6265 104.7217,58.6654 104.6949,58.6897 104.6706,58.7067 104.6512,58.7334 104.6123,58.7432 104.6098,58.7723 104.6658,58.8161 104.6998,58.838 104.7557,58.8501 104.8043,58.9061 104.8797,58.9158 104.9332,58.9328 104.9988,58.9863 105.084,59.0009 105.1496,59.0009 105.1983,59.0276 105.1958,59.0471 105.1594,59.0714 105.1472,59.103 105.1715,59.1443 105.1399,59.1929 105.1083,59.2124 105.0451,59.2343 105.0305,59.2561 105.0962,59.295 105.0573,59.3339 105.0767,59.368 105.0305,59.4117 104.96,59.4044 104.9187,59.4044 104.8044,59.4093 104.7436,59.4506 104.6974,59.5017 104.6999,59.5406 104.6488,59.5698 104.6537,59.6208 104.6464,59.6476 104.6926,59.6719 104.7606,59.6913 104.8141,59.7011 104.8773,59.7229 104.8749,59.7667 104.9089,59.7813 105.0013,59.7935 105.084,59.7935 105.1472,59.7862 105.1885,59.774 105.2663,59.7691 105.3271,59.7764 105.315,59.8153 105.2761,59.8445 105.3052,59.9004 105.3393,59.9393 105.3101,59.9952 105.2688,60.039 105.2809,60.0876 105.3271,60.1241 105.3247,60.2019 105.2931,60.2117 105.225,60.2019 105.1934,60.2117 105.1545,60.2311 105.1035,60.236 105.0743,60.2214 105.0305,60.2141 104.9284,60.2262 104.8603,60.2262 104.7996,60.236 104.7145,60.253 104.6975,60.27 104.6245,60.3016 104.5662,60.3308 104.5175,60.3381 104.4932,60.3478 104.5127,60.3673 104.4884,60.3964 104.4689,60.4523 104.4106,60.484 104.4057,60.5253 104.4008,60.5545 104.3644,60.5763 104.4081,60.6517 104.4397,60.6785 104.4397,60.7052 104.3717,60.7149 104.2987,60.7733 104.3328,60.8 104.4081,60.8025 104.4762,60.8268 104.4543,60.8584 104.413,60.8803 104.4179,60.8973 104.4519,60.907 104.4495,60.9313 104.464,60.9556 104.4859,60.9775 104.4446,60.997 104.4908,61.0164 104.5467,61.0261 104.588,61.0553 104.6269,61.0772 104.6537,61.0966 104.6902,61.1282 104.768,61.1161 104.8433,61.1161 104.8263,61.1793 104.7922,61.2036 104.7655,61.2182 104.7582,61.2644 104.7023,61.2717 104.6512,61.2765 104.6269,61.2863 104.678,61.2935 104.7242,61.2984 104.7558,61.3179 104.8044,61.3397 104.8725,61.3495 104.9138,61.3495 104.9649,61.3568 105.0451,61.3568 105.1156,61.3592 105.118,61.3932 105.1278,61.4248 105.1837,61.437 105.208,61.4662 105.2469,61.4735 105.3198,61.4905 105.3782,61.5002 105.4098,61.5124 105.4292,61.5488 105.4779,61.5683 105.5459,61.5853 105.5946,61.5853 105.6237,61.5658 105.6699,61.5683 105.7186,61.6096 105.7696,61.6218 105.7891,61.6461 105.7793,61.6996 105.738,61.7312 105.7599,61.7968 105.828,61.8114 105.8887,61.8479 105.9179,61.8722 105.9884,61.8941 106.0346,61.9354 106.1124,61.9427 106.1781,61.9646 106.2486,61.9694 106.2364,61.9913 106.251,62.0205 106.2218,62.0472 106.251,62.0764 106.2704,62.1177 106.285,62.1542 106.2875,62.1883 106.2097,62.1834 106.1635,62.2077 106.2145,62.232 106.2388,62.2612 106.3045,62.2491 106.324,62.271 106.2729,62.2904 106.2656,62.3172 106.3094,62.3293 106.3483,62.3196 106.3896,62.322 106.4334,62.3536 106.4917,62.3828 106.5428,62.4144 106.5428,62.4533 106.4966,62.4703 106.5258,62.5092 106.5477,62.5189 106.6571,62.5433 106.4237,62.5943 106.3896,62.6138 106.3337,62.6162 106.3094,62.6308 106.3556,62.6551 106.3605,62.6964 106.3143,62.7183 106.2948,62.7864 106.2049,62.801 106.1587,62.818 106.1052,62.835 106.0614,62.8374 106.0565,62.8691 106.0468,62.8982 105.9933,62.9007 106.0274,62.9201 105.9909,62.9541 105.9715,62.9906 105.9763,63.0028 106.0444,63.0101 106.1198,63.0052 106.1854,63.0149 106.2486,63.0514 106.2267,63.0854 106.2705,63.1268 106.2267,63.1511 106.2049,63.1705 106.217,63.2167 106.2583,63.2386 106.3021,63.2629 106.341,63.2653 106.358,63.2483 106.5088,63.2337 106.5355,63.2678 106.5623,63.2994 106.5841,63.314 106.5184,63.3335 106.4479,63.3724 106.4261,63.4016 106.3823,63.4113 106.3555,63.4308 106.3726,63.4648 106.4163,63.4769 106.4479,63.4915 106.4698,63.511 106.5184,63.5426 106.5355,63.5791 106.499,63.6034 106.4722,63.6277 106.5136,63.6593 106.5282,63.6885 106.5744,63.7322 106.6327,63.776 106.623,63.8076 106.5744,63.8416 106.5257,63.8732 106.55,63.917 106.6254,63.9316 106.674,63.9219 106.73,63.917 106.8102,63.8805 106.8758,63.8416 106.9439,63.8295 107.0071,63.8732 107.046,63.8951 107.1554,63.8903 107.187,63.8416 107.2089,63.8076 107.2867,63.8003 107.3232,63.81 107.3718,63.8003 107.4204,63.8027 107.4545,63.8392 107.4666,63.8781 107.4909,63.917 107.5615,63.9316 107.6344,63.9462 107.7073,63.9267 107.7778,63.9389 107.8386,63.9365 107.8994,63.9292 107.9748,63.9267 108.0477,63.9389 108.0915,63.9316 108.1206,63.9437 108.1498,63.9583 108.1547,63.9972 108.1182,64.0507 108.0915,64.0969 108.0671,64.148 108.0234,64.1723 107.965,64.1771 107.9091,64.1723 107.8678,64.1601 107.8448,64.1123 107.7828,64.114 107.7101,64.1194 107.6764,64.13 107.6268,64.1601 107.556,64.1761 107.5063,64.1902 107.478,64.2204 107.3805,64.2239 107.2742,64.1991 107.1502,64.1725 107.0545,64.1831 107.0067,64.2062 107.0191,64.2416 106.9943,64.254 106.9092,64.2593 106.8578,64.2593 106.8118,64.2664 106.7941,64.2823 106.7515,64.2859 106.7001,64.2983 106.6381,64.3195 106.5921,64.3195 106.5035,64.3107 106.4468,64.3213 106.4184,64.3585 106.3901,64.3975 106.3475,64.4117 106.3068,64.4152 106.2855,64.401 106.2997,64.3745 106.3156,64.355 106.2873,64.3443 106.2058,64.339 106.1154,64.3408 106.0605,64.3266 106.0003,64.3266 105.9666,64.3178 105.9187,64.2947 105.8567,64.3071 105.7876,64.3248 105.8089,64.3479 105.8319,64.3479 105.8674,64.3603 105.8638,64.3886 105.7912,64.3975 105.7664,64.4134 105.7168,64.4134 105.6849,64.3975 105.6547,64.3798 105.6228,64.3869 105.5963,64.3886 105.536,64.3691 105.5094,64.394 105.5218,64.4081 105.5165,64.4365 105.4581,64.4684 105.4421,64.4701 105.4403,64.4896 105.4651,64.5162 105.4244,64.5499 105.4244,64.5605 105.4421,64.5676 105.4669,64.5641 105.4953,64.5517 105.5661,64.5428 105.6034,64.5729 105.5591,64.603 105.5555,64.6686 105.5768,64.7005 105.6228,64.7182 105.6636,64.7129 105.6813,64.7076 105.7256,64.72 105.7185,64.7342 105.6795,64.7448 105.6725,64.7767 105.6618,64.7944 105.7203,64.805 105.761,64.805 105.7894,64.7838 105.8213,64.7625 105.9081,64.7501 105.9436,64.7519 105.9241,64.7785 105.8479,64.7962 105.8142,64.8476 105.7522,64.8777 105.6902,64.9061 105.731,64.945 105.816,64.9645 105.8975,64.9946 105.9152,65.0301 106.0092,65.0372 106.0499,65.0797 106.1137,65.1098 106.158,65.1134 106.22,65.0992 106.236,65.1045 106.2253,65.1134 106.1917,65.1222 106.1509,65.1559 106.1509,65.186 106.1722,65.209 106.243,65.2392 106.2714,65.264 106.2767,65.2781 106.3263,65.2781 106.3369,65.2905 106.3883,65.287 106.4663,65.2764 106.4857,65.2817 106.5035,65.2711 106.5637,65.2746 106.5531,65.2941 106.585,65.3047 106.5867,65.3278 106.5974,65.3419 106.686,65.3986 106.6842,65.4057 106.5513,65.4341 106.4166,65.45 106.4166,65.466 106.4255,65.4731 106.4326,65.489 106.4184,65.5032 106.344,65.5085 106.344,65.512 106.3617,65.5209 106.3723,65.528 106.3635,65.5315 106.344,65.5351 106.2962,65.5386 106.2377,65.5528 106.181,65.5546 106.142,65.5652 106.1349,65.59 106.1367,65.6059 106.1597,65.6148 106.1828,65.6343 106.1898,65.6467 106.1721,65.6662 106.1721,65.6786 106.1792,65.691 106.1952,65.7069 106.1704,65.73 106.1881,65.7371 106.2041,65.7477 106.2041,65.7637 106.1952,65.7743 106.2023,65.7814 106.2147,65.792 106.2023,65.8097 106.1864,65.8186 106.1899,65.8416 106.2094,65.8523 106.2005,65.87 106.1917,65.8859 106.2094,65.9054 106.1881,65.9249 106.1722,65.9462 106.1421,65.9621 106.1367,65.9816 106.1031,65.9993 106.0783,66.0153 106.0783,66.0419 106.0712,66.0489 106.0464,66.0578 106.0251,66.0507 105.979,66.0507 105.9188,66.0543 105.871,66.0649 105.8426,66.0844 105.8373,66.1074 105.8462,66.1322 105.8515,66.1429 105.8656,66.1553 105.8568,66.1641 105.8444,66.173 105.8515,66.1854 105.8355,66.196 105.8426,66.2155 105.8178,66.2279 105.8202,66.2528 105.8217,66.2781 105.8549,66.2997 105.8592,66.3106 105.9054,66.3344 105.9552,66.3358 106.0267,66.3611 106.0462,66.3748 106.0454,66.3813 106.0108,66.4037 106.0166,66.4116 106.0317,66.4261 106.031,66.4499 106.013,66.4636 105.9754,66.4751 105.961,66.4809 105.9624,66.4975 105.9646,66.5242 105.948,66.5603 105.974,66.5878 105.9776,66.6 105.9697,66.6037 105.8686,66.6231 105.8636,66.6419 105.8571,66.6592 105.8708,66.6643 105.9184,66.6831 105.9163,66.6982 105.8953,66.7062 105.8693,66.7098 105.839,66.7033 105.7957,66.6975 105.7575,66.6859 105.7315,66.6888 105.7105,66.6961 105.712,66.7119 105.7531,66.7336 105.7871,66.7524 105.8,66.7697 105.795,66.7899 105.7784,66.7986 105.7502,66.8022 105.7178,66.8022 105.6759,66.8036 105.6225,66.8122 105.5742,66.8216 105.5525,66.8396 105.5316,66.8497 105.4883,66.8404 105.4233,66.8368 105.3482,66.8519 105.2919,66.8851 105.2471,66.9104 105.2399,66.9183 105.2804,66.9241 105.3446,66.9212 105.4305,66.9241 105.5179,66.9335 105.6175,66.9443 105.6911,66.9638 105.7416,67.0129 105.764,67.0641 105.8406,67.0822 105.9286,67.0822 105.9539,67.0844 106.0044,67.1024 106.0427,67.1111 106.13,67.1674 106.2239,67.1861 106.3091,67.1717 106.3611,67.1443 106.3813,67.1428 106.4051,67.1508 106.4549,67.2006 106.5141,67.2367 106.5242,67.2511 106.5264,67.2742 106.5257,67.3118 106.5279,67.3298 106.538,67.3565 106.5401,67.3948 106.5445,67.4532 106.551,67.5355 106.551,67.5788 106.564,67.6106 106.5849,67.6951 106.595,67.7521 106.6008,67.8142 106.6008,67.908 106.6073,67.965 106.6152,68.0307 106.6093,68.1187 106.6079,68.1556 106.5963,68.2205 106.5992,68.2783 106.6122,68.3339 106.6166,68.4126 106.621,68.5143 106.6145,68.6486 106.6116,68.7323 106.6123,68.7554 106.6051,68.7677 106.4319,68.8918 105.9771,69.216 105.8522,69.3041 105.8573,69.3099 105.8573,69.3186 105.8797,69.3279 105.9879,69.3503 106.0168,69.364 106.024,69.3944 106.0984,69.4398 106.1626,69.4694 106.2139,69.4673 106.2745,69.442 106.2854,69.4305 106.2998,69.4196 106.3344,69.416 106.3742,69.4247 106.4449,69.424 106.5207,69.4139 106.5481,69.4139 106.5814,69.4247 106.629,69.4326 106.6636,69.4348 106.7495,69.4601 106.8239,69.4824 106.8586,69.4911 106.943,69.5012 107.0578,69.5185 107.1827,69.5337 107.2895,69.5554 107.3711,69.5683 107.4678,69.5828 107.5444,69.5842 107.6093,69.5727 107.6591,69.5842 107.7357,69.6066 107.74,69.6124 107.7328,69.6405 107.7515,69.6658 107.8288,69.7055 107.8735,69.7279 107.9233,69.7394 107.9436,69.7524 108.0064,69.7567 108.1154,69.751 108.1818,69.7539 108.2367,69.7495 108.2995,69.7387 108.332,69.7365 108.4114,69.7344 108.4597,69.7401 108.5319,69.7423 108.6027,69.7394 108.6135,69.7315 108.6417,69.7019 108.6554,69.6903 108.6814,69.6838 108.7326,69.6759 108.8698,69.6594 108.9217,69.6673 108.9867,69.6839 109.0423,69.7251 109.082,69.7366 109.108,69.7691 109.1383,69.7922 109.1001,69.8124 109.1029,69.8268 109.1159,69.8413 109.1383,69.8557 109.1665,69.8868 109.2249,69.9026 109.2524,69.9134 109.2625,69.9365 109.2625,69.9445 109.2177,69.9438 109.1708,69.9495 109.1174,69.9683 109.0957,69.9842 109.0986,70.0022 109.1051,70.0102 109.1029,70.0188 109.0704,70.0427 109.0387,70.0658 109.0264,70.0752 109.0243,70.0867 109.0365,70.1156 109.0531,70.125 109.0712,70.1293 109.1123,70.1279 109.139,70.1286 109.1896,70.1373 109.2524,70.1517 109.3036,70.1705 109.3325,70.1986 109.3513,70.2174 109.3505,70.2275 109.3491,70.2333 109.3015,70.2542 109.3368,70.2751 109.3621,70.286 109.3946,70.2845 109.4718,70.2881 109.5649,70.3084 109.6631,70.3033 109.6783,70.3033 109.7368,70.3185 109.7591,70.3163 109.814,70.3113 109.8804,70.3228 109.988,70.317 110.019,70.3351 110.0226,70.351 109.9721,70.3647 109.9078,70.3705 109.8595,70.3798 109.8551,70.3849 109.8653,70.4044 109.866,70.4239 109.8595,70.4333 109.8162,70.4455 109.8089,70.4499 109.8082,70.4578 109.879,70.4542 109.8862,70.4643 109.8689,70.4824 109.8616,70.5119 109.8421,70.5322 109.845,70.5351 109.8991,70.5517 109.9345,70.5698 109.9951,70.5705 110.0095,70.577 110.0449,70.6058 110.1424,70.6051 110.2326,70.616 110.2362,70.6275 110.2283,70.6578 110.2232,70.6672 110.2355,70.686 110.2694,70.6983 110.3322,70.7047 110.3431,70.704 110.4022,70.6961 110.4289,70.7054 110.4412,70.7191 110.5213,70.7162 110.5235,70.7047 110.5711,70.6982 110.6,70.6953 110.6238,70.7018 110.6339,70.7169 110.6679,70.722 110.7032,70.7328 110.7256,70.7437 110.7372,70.7343 110.7725,70.7429 110.8238,70.7509 110.8974,70.7516 110.9573,70.7523 110.9768,70.7538 111.0605,70.7531 111.0894,70.7567 111.1103,70.7668 111.1168,70.782 111.1276,70.787 111.132,70.7928 111.1746,70.8181 111.1847,70.8376 111.22,70.8455 111.2352,70.8368 111.503,70.865 111.5861,70.8736 111.6878,70.8808 111.7174,70.8895 111.7427,70.9047 111.7579,70.9364 111.7781,70.9552 111.807,70.9617 111.8445,70.9602 111.8755,70.9523 111.8871,70.94 111.9059,70.9278 111.9145,70.9119 111.9456,70.9018 111.9939,70.9039 112.0408,70.9321 112.082,70.9559 112.1116,70.966 112.1939,70.9624 112.2214,70.9769 112.2668,70.9942 112.3051,71.0007 112.3167,71.0079 112.3087,71.0166 112.2632,71.0418 112.2416,71.0555 112.2409,71.0635 112.2531,71.0722 112.3203,71.0851 112.4004,71.1025 112.4249,71.1119 112.4372,71.1371 112.4452,71.1451 112.4379,71.1487 112.4069,71.1559 112.386,71.1617 112.3795,71.171 112.373,71.1833 112.3592,71.1891 112.3369,71.1884 112.3159,71.184 112.2488,71.1689 112.2243,71.1674 112.2185,71.1754 112.2185,71.1783 112.2033,71.1855 112.1679,71.1927 112.1384,71.1985 112.134,71.2086 112.0806,71.2317 112.0214,71.2504 111.9182,71.2742 111.8171,71.2945 111.7312,71.3082 111.7319,71.3226 111.7305,71.5355 111.7341,71.6113 111.732,71.786 111.732,72.0127 111.7349,72.0286 111.732,72.0343 111.6973,72.0293 111.6208,72.0286 111.5551,72.0315 111.4959,72.0452 111.4779,72.0567 111.4764,72.0654 111.4663,72.0777 111.4605,72.0885 111.4598,72.1029 111.4642,72.1072 111.454,72.1109 111.4403,72.108 111.4021,72.0993 111.3653,72.1065 111.345,72.1145 111.3739,72.1398 111.3876,72.1578 111.3811,72.1758 111.366,72.186 111.3032,72.217 111.2909,72.2213 111.2678,72.2184 111.2202,72.2156 111.1545,72.2156 111.1018,72.2163 111.0758,72.217 111.0613,72.2206 111.0556,72.2343 111.0447,72.2372 111.0231,72.2358 111.0014,72.2336 110.9596,72.243 110.9271,72.2545 110.8795,72.2604 110.8333,72.2647 110.8044,72.2741 110.7965,72.2806 110.7965,72.3051 110.8384,72.3217 110.8947,72.3326 110.917,72.3427 110.9286,72.3593 110.9827,72.3694 111.0333,72.3831 111.0398,72.4047 111.0325,72.4141 110.9936,72.425 110.9849,72.4343 110.9517,72.4459 110.8853,72.4538 110.8138,72.4654 110.7539,72.4748 110.7286,72.4769 110.6896,72.4704 110.624,72.4762 110.6102,72.482 110.6355,72.4899 110.6348,72.495 110.616,72.5036 110.6153,72.5065 110.6391,72.5116 110.6536,72.5195 110.6601,72.5246 110.6492,72.5318 110.6182,72.534 110.5821,72.5369 110.4984,72.5397 110.4493,72.5448 110.4268,72.5578 110.4088,72.5781 110.3944,72.6149 110.3741,72.651 110.3547,72.6842 110.3561,72.6964 110.3713,72.7008 110.4319,72.7174 110.4499,72.7282 110.4427,72.7398 110.4081,72.747 110.3792,72.7528 110.3734,72.7679 110.3843,72.7722 110.3871,72.7787 110.3727,72.7852 110.3698,72.7953 110.385,72.8033 110.4225,72.8069 110.4803,72.8112 110.5192,72.8271 110.5525,72.8372 110.5806,72.8423 110.5922,72.8473 110.5929,72.8531 110.5842,72.8538 110.5662,72.8509 110.5423,72.8509 110.5344,72.8545 110.5351,72.8596 110.5207,72.8798 110.494,72.8892 110.5005,72.9 110.5258,72.9094 110.5691,72.9173 110.6175,72.9231 110.6485,72.9274 110.6622,72.9368 110.6521,72.9484 110.6276,72.9599 110.5958,72.97 110.5777,72.978 110.572,72.9888 110.5691,73.0126 110.5561,73.0278 110.5222,73.0437 110.5294,73.0588 110.5287,73.0689 110.5034,73.0761 110.4572,73.0805 110.4182,73.0819 110.3648,73.0805 110.3013,73.079 110.2608,73.0805 110.2176,73.0812 110.1743,73.0827 110.1483,73.0877 110.1403,73.0964 110.1475,73.1079 110.1605,73.1115 110.1952,73.1188 110.258,73.1361 110.3193,73.1534 110.3461,73.1678 110.3468,73.1794 110.3309,73.1895 110.297,73.1989 110.2912,73.2104 110.2811,73.2205 110.2327,73.2292 110.1916,73.2343 110.1504,73.2343 110.1049,73.2429 110.058,73.2523 110.0125,73.2617 109.975,73.2747 109.9368,73.2783 109.9035,73.2834 109.8906,73.2935 109.8848,73.3014 109.9411,73.3007 110.0501,73.3 110.1216,73.3 110.1937,73.3043 110.2638,73.305 110.3121,73.3151 110.3627,73.3353 110.4002,73.3555 110.4262,73.3794 110.4623,73.3988 110.5237,73.4089 110.5244,73.414 110.5273,73.4277 110.5475,73.445 110.5598,73.458 110.5764,73.4667 110.6327,73.4703 110.6861,73.4667 110.7409,73.4681 110.7915,73.4761 110.829,73.4891 110.8435,73.5006 110.8536,73.5122 110.8716,73.5208 110.8651,73.5353 110.8283,73.5512 110.7958,73.5598 110.7207,73.5793 110.6745,73.588 110.6442,73.5901 110.6348,73.5966 110.6299,73.5969 110.632,73.5943 110.5956,73.5801 110.5695,73.5743 110.3524,73.5479 110.2596,73.5468 110.1492,73.5042 110.1173,73.4979 109.9774,73.482 109.8689,73.4385 109.8288,73.409 109.5999,73.3679 109.5415,73.36 109.4802,73.3546 109.3957,73.3486 109.3292,73.3465 109.3044,73.3468 109.2777,73.3487 109.2492,73.3516 109.2247,73.355 109.1693,73.3719 109.1376,73.385 109.1,73.3996 108.9414,73.4455 108.9066,73.4401 108.9126,73.4074 108.9701,73.4006 109.0119,73.393 109.0496,73.3846 109.1358,73.3446 109.1537,73.3157 109.0842,73.3254 109.0608,73.339 109.0187,73.3504 108.9822,73.3594 108.9323,73.3489 108.9667,73.3221 108.9766,73.3015 108.9201,73.284 108.8837,73.2775 108.8186,73.2671 108.5844,73.2454 108.5159,73.2441 108.4533,73.2395 108.3979,73.2302 108.3467,73.2189 108.3087,73.2138 108.2233,73.2084 108.0947,73.201 108.002,73.1999 107.9717,73.1969 107.9391,73.179 107.9669,73.1698 107.9942,73.1744 108.0682,73.1725 108.1012,73.1674 108.1246,73.1537 108.1096,73.1284 108.0867,73.1212 108.0641,73.1207 107.9961,73.119 107.972,73.1195 107.9303,73.1271 107.8795,73.1401 107.8265,73.1462 107.8035,73.1458 107.7662,73.1404 107.732,73.1326 107.6871,73.1182 107.6424,73.1031 107.6066,73.0898 107.5655,73.08 107.5277,73.0743 107.4633,73.0697 107.4182,73.0684 107.3446,73.0697 107.1849,73.0669 107.1233,73.0618 107.0781,73.0606 107.0534,73.0608 107.0271,73.0626 106.9989,73.0652 106.9497,73.0716 106.8931,73.0766 106.7909,73.0809 106.7686,73.0801 106.7201,73.0744 106.6869,73.0596 106.6485,73.0481 106.5305,73.0416 106.506,73.0417 106.4794,73.0433 106.4057,73.05 106.2327,73.0717 106.1621,73.0817 106.1202,73.0891 106.0824,73.0904 105.9309,73.0345 105.9122,72.9967 105.9231,72.9534 105.9498,72.885 105.9679,72.8741 105.9916,72.8677 106.0247,72.8638 105.989,72.8585 105.9464,72.8563 105.8774,72.855 105.8048,72.8561 105.7713,72.8551 105.7462,72.8494 105.721,72.8311 105.7025,72.8039 105.5778,72.7773 105.4459,72.734 105.3791,72.7066 105.2382,72.6684 105.2019,72.6625 105.1819,72.6606 105.1296,72.6633 104.9576,72.6672 104.921,72.6894 105.0726,72.7168 105.3347,72.7912 105.4156,72.8261 105.5809,72.9068 105.588,72.9771 105.5901,72.9997 105.6171,73.0109 105.6644,73.0238 105.7365,73.0429 105.7614,73.0537 105.7898,73.1036 105.7864,73.1274 105.7838,73.1582 105.8067,73.1753 105.9343,73.2094 106.0035,73.2191 106.0241,73.2207 106.1685,73.2179 106.3045,73.2117 106.3344,73.2059 106.3631,73.2031 106.3878,73.2029 106.4086,73.2046 106.5411,73.2431 106.5589,73.258 106.6026,73.3232 106.7846,73.4006 106.8927,73.4509 106.8366,73.4747 106.872,73.512 106.8946,73.5179 107.0615,73.527 107.3539,73.5283 107.4136,73.5262 107.4401,73.5171 107.4735,73.5088 107.5023,73.5103 107.5789,73.5349 107.6113,73.5436 107.644,73.5519 107.6871,73.5614 107.7169,73.5652 107.7631,73.5663 107.7883,73.5657 107.8287,73.5546 107.9195,73.5706 107.9602,73.5882 108.0254,73.6167 108.13,73.6528 108.1921,73.6654 108.2193,73.6702 108.271,73.7051 108.3155,73.7444 108.3559,73.7695 108.4602,73.8201 108.4995,73.8388 108.8049,73.9361 108.8475,73.9466 108.9553,73.9615 109.0205,73.966 109.0858,73.9705 109.2465,73.9902 109.4683,74.0465 109.5331,74.0651 109.5656,74.0745 109.6149,74.0955 109.6426,74.1151 109.6668,74.1348 109.6885,74.1961 109.6599,74.2042 109.6342,74.2046 109.5611,74.1904 109.5209,74.1851 109.4771,74.1821 109.429,74.1812 109.4033,74.182 109.3734,74.1848 109.3206,74.1981 109.297,74.2062 109.3369,74.2183 109.4639,74.2233 109.5016,74.2181 109.6327,74.224 109.6653,74.2332 109.6808,74.2472 109.7008,74.261 109.7274,74.2673 109.7476,74.2696 109.7714,74.2702 109.7998,74.2675 109.8511,74.2614 109.8988,74.2621 109.9273,74.2668 110.0879,74.3168 110.1064,74.3389 110.0554,74.3713 110.001,74.3769 110.0423,74.3871 110.0627,74.3897 110.0886,74.389 110.1484,74.3832 110.1769,74.3766 110.2133,74.3711 110.2378,74.3716 110.26,74.3731 110.349,74.3856 110.3716,74.3946 110.4047,74.4039 110.52,74.4304 110.5518,74.4336 110.6005,74.4342 110.6601,74.4425 110.7058,74.4519 110.7605,74.4761 110.7328,74.4988 110.9212,74.5251 110.9344,74.532 110.965,74.5437 111.0617,74.5747 111.107,74.5846 111.1786,74.5933 111.2274,74.594 111.2876,74.5875 111.3309,74.5795 111.3875,74.5666 111.439,74.5594 111.4655,74.5587 111.4966,74.5621 111.6096,74.6091 111.7584,74.6811 111.7752,74.6919 111.7946,74.7238 111.7899,74.7479 111.807,74.7617 111.8476,74.7748 111.8862,74.7816 111.9285,74.7863 111.9532,74.7866 111.999,74.7889 112.0201,74.7911 112.2314,74.8146 112.2723,74.8203 112.431,74.8456 112.4504,74.849 112.5673,74.8775 112.592,74.8853 112.7061,74.9631 112.9055,75.0306 113.0385,75.073 113.0893,75.089 113.2693,75.1657 113.3024,75.1827 113.3592,75.259 113.3393,75.2765 113.3048,75.2788 113.2846,75.2754 113.2611,75.2742 113.2248,75.2842 113.2657,75.3031 113.2876,75.3053 113.3349,75.3075 113.3603,75.3076 113.3876,75.3062 113.4081,75.3031 113.4073,75.329 113.3885,75.3659 113.3657,75.3953 113.3398,75.409 113.3173,75.4078 113.289,75.4018 113.2668,75.3998 113.243,75.3986 113.2174,75.3985 113.1928,75.4009 113.0316,75.424 112.9548,75.4655 112.9727,75.484 112.9949,75.508 112.9733,75.5382 112.9394,75.5429 112.9169,75.5407 112.8747,75.5352 112.8544,75.5316 112.6818,75.4936 112.7015,75.4716 112.7229,75.4544 112.7026,75.4405 112.6809,75.4379 112.6569,75.4366 112.6076,75.4352 112.5469,75.4363 112.5195,75.4419 112.4856,75.4787 112.5675,75.5221 112.5584,75.5995 112.5162,75.6239 112.4934,75.6312 112.3748,75.6577 112.3432,75.6608 112.2689,75.6583 112.2024,75.6648 112.0389,75.7403 112.0691,75.7456 112.0968,75.7449 112.239,75.7389 112.2689,75.7371 112.2961,75.7334 112.3375,75.7246 112.3787,75.7159 112.7307,75.6331 112.8219,75.6005 113.2114,75.5602 113.283,75.5517 113.2967,75.5354 113.26,75.5045 113.1947,75.4687 113.1371,75.4486 113.1116,75.4331 113.1992,75.4268 113.223,75.4277 113.2432,75.4311 113.402,75.5007 113.4056,75.538 113.4095,75.5579 113.4487,75.6097 113.4749,75.6285 113.5195,75.655 113.5763,75.7384 113.539,75.803 113.5116,75.8195 113.4865,75.8265 113.461,75.8292 113.3273,75.8166 113.3027,75.8123 113.3062,75.785 113.2331,75.7598 113.2167,75.8133 113.2379,75.8604 113.1947,75.9198 113.1673,75.9234 113.1374,75.9301 113.1211,75.9445 113.1209,75.9988 113.1365,76.0133 113.1489,76.0305 113.0993,76.0661 113.0475,76.0958 112.948,76.15 112.9247,76.1544 112.8989,76.1568 112.8641,76.1536 112.842,76.1464 112.8213,76.143 112.7409,76.1427 112.6161,76.1473 112.6468,76.1136 112.6753,76.1033 112.7122,76.0976 112.7446,76.0943 112.8149,76.0879 112.9129,76.0625 112.9389,76.0358 112.9022,76.0363 112.8742,76.0401 112.8096,76.0461 112.7814,76.0474 112.7282,76.0474 112.6947,76.0434 112.6782,76.0255 112.7253,76.0061 112.7114,75.9705 112.6243,75.949 112.5998,75.9479 112.5394,75.9522 112.5147,75.9509 112.4411,75.9475 112.3853,75.9478 112.4378,75.9597 112.4787,75.9718 112.537,76.0371 112.4737,76.0824 112.4433,76.0885 112.3938,76.0864 112.3731,76.0831 112.3503,76.0807 112.3217,76.0816 112.2892,76.0847 112.2465,76.0996 112.1965,76.1308 112.2419,76.1292 112.2702,76.1195 112.3293,76.1106 112.3709,76.1174 112.4207,76.1664 112.4268,76.2177 112.3417,76.2513 112.2585,76.2721 111.9911,76.3351 111.948,76.3437 111.9189,76.3446 111.7954,76.3077 111.7119,76.2716 111.6828,76.2655 111.5908,76.2562 111.7448,76.3114 111.8725,76.3617 111.7811,76.4014 111.757,76.4054 111.7001,76.4122 111.6763,76.4161 111.6568,76.4208 111.627,76.4306 111.5892,76.4525 111.5368,76.473 111.4495,76.4945 111.3675,76.5052 111.3364,76.507 111.2349,76.502 111.1805,76.5014 111.135,76.51 111.1755,76.552 111.2259,76.5692 111.1811,76.5782 110.9077,76.5978 110.8828,76.5965 110.8105,76.6421 110.786,76.6459 110.7543,76.6477 110.6122,76.6486 110.586,76.6419 110.5163,76.6235 110.421,76.6143 110.3893,76.6163 110.3333,76.6222 110.3147,76.6398 110.2843,76.6494 110.2248,76.6508 110.1739,76.6483 110.0533,76.638 109.9814,76.6316 109.9395,76.6248 109.8523,76.6052 109.8097,76.5914 109.7688,76.5825 109.7202,76.5789 109.5708,76.5884 109.3689,76.6045 109.3075,76.6188 109.2814,76.6275 109.2496,76.629 109.0931,76.6321 108.9509,76.6299 108.8216,76.6155 108.6135,76.6143 108.4853,76.6081 108.3035,76.6041 108.2763,76.6035 108.0774,76.6036 108.0111,76.6104 107.8852,76.6261 107.6905,76.6233 107.6357,76.6222 107.6084,76.6178 107.6017,76.5546 107.6279,76.5477 107.6669,76.5457 107.6882,76.5241 107.6099,76.4576 107.5698,76.4265 107.3739,76.3995 107.3243,76.396 107.2702,76.395 107.2411,76.3954 107.2115,76.3985 107.1662,76.4061 107.1043,76.419 107.0384,76.4227 107.0116,76.4224 106.8149,76.4073 106.7053,76.3926 106.5639,76.3682 106.541,76.3594 106.5213,76.3559 106.4984,76.3583 106.2725,76.3853 106.1454,76.3934 106.0912,76.4032 106.0694,76.4443 106.0682,76.4744 106.0974,76.4869 106.1264,76.493 106.1533,76.4937 106.1852,76.4925 106.219,76.4864 106.2427,76.4762 106.3376,76.4682 106.4826,76.5457 106.6551,76.606 106.7518,76.6461 106.7475,76.6724 106.7657,76.6893 106.8285,76.6935 106.8542,76.6899 106.8838,76.6894 106.9121,76.6965 106.9652,76.7174 107.0314,76.7592 106.9657,76.7736 107.0091,76.7849 107.0577,76.7891 107.1587,76.7957 107.1888,76.8084 107.0881,76.8239 107.0265,76.8436 107.0191,76.8491 107.0327,76.8558 106.9633,76.9054 106.8229,76.9013 106.7236,76.908 106.6749,76.9172 106.5988,76.9321 106.573,76.9357 106.5049,76.9394 106.4746,76.9398 106.3378,76.9169 106.3606,76.9109 106.4388,76.8998 106.4638,76.893 106.4445,76.8875 106.4191,76.8858 106.3636,76.8848 106.3354,76.8865 106.2332,76.9049 106.1804,76.9197 105.9857,76.9445 105.9196,76.9499 105.8868,76.9512 105.8641,76.9483 105.817,76.9308 105.7094,76.902 105.6529,76.8883 105.6123,76.8807 105.4074,76.868 105.1444,76.8661 105.1364,76.9 105.184,76.9145 105.2298,76.9201 105.3259,76.917 105.3562,76.9167 105.412,76.9184 105.4691,76.9241 105.562,76.97 105.6271,77.017 105.6027,77.0307 105.5577,77.0147 105.5315,77.0044 105.4813,76.9974 105.4174,76.9987 105.3818,77.0012 105.3233,77.0009 105.2749,76.9962 105.229,76.9909 105.188,76.9829 105.1423,76.9776 105.0939,76.9727 105.0379,76.9716 104.7005,76.9724 104.6093,76.9729 104.5856,76.9754 104.5367,76.9826 104.5149,76.9871 104.4756,76.9951 104.4094,76.9976 104.3325,76.995 104.3047,76.9939 104.2082,76.9844 104.1631,76.9787 104.0617,76.9715 103.8612,76.9767 103.8216,76.9792 103.8855,76.9998 104.0421,77.0211 104.0647,77.0242 104.0962,77.0214 104.1494,77.0147 104.208,77.0155 104.237,77.0219 104.2796,77.0404 104.3975,77.0592 104.4206,77.0623 104.4459,77.0638 104.4745,77.0624 104.5015,77.0586 104.5233,77.0548 104.5548,77.0518 104.608,77.0546 104.8893,77.0866 104.9557,77.0959 105.139,77.1261 105.2047,77.1424 105.2291,77.1504 105.3813,77.2177 105.4238,77.2467 105.4516,77.2529 105.4776,77.2547 105.5059,77.2554 105.5372,77.255 105.7189,77.2525 105.7429,77.2499 105.8091,77.238 105.8403,77.235 105.8736,77.2338 105.8975,77.2364 105.9714,77.2547 105.8103,77.296 105.7789,77.2991 105.7164,77.3 105.6874,77.3018 105.6669,77.3127 105.6001,77.3577 105.6037,77.3878 105.56,77.4517 105.528,77.4543 105.3597,77.4509 105.3311,77.4498 105.2785,77.4461 105.2076,77.438 105.0763,77.4291 105.0425,77.4304 104.9518,77.443 104.8571,77.4581 104.7627,77.471 104.7307,77.4737 104.6677,77.4742 104.6015,77.4781 104.4992,77.5124 104.4732,77.5294 104.4744,77.5613 104.4604,77.5792 104.4356,77.5859 104.3667,77.5886 104.3377,77.5879 104.3115,77.5859 104.2641,77.5804 104.2128,77.5702 104.183,77.5635 104.1121,77.5552 104.0596,77.5514 104.0279,77.5515 103.9539,77.5729 103.9691,77.59 103.9899,77.594 104.0175,77.6052 103.9931,77.6183 103.9664,77.6192 103.7629,77.6198 103.7159,77.6142 103.5474,77.5806 103.4861,77.5611 103.3361,77.5264 103.2602,77.5195 103.1559,77.5115 103.0518,77.5043 103.0198,77.5088 102.9893,77.536 102.9533,77.544 102.9214,77.5444 102.8984,77.5412 102.801,77.5196 102.6162,77.4716 102.5927,77.46 102.5491,77.4292 102.3472,77.4003 102.2466,77.386 102.1531,77.3431 102.1292,77.3234 102.108,77.3134 101.9864,77.2667 101.9663,77.2623 101.9258,77.2647 101.9001,77.2799 101.8566,77.2861 101.8281,77.2853 101.8052,77.282 101.7569,77.2716 101.7306,77.2524 101.5874,77.1842 101.5561,77.1734 101.2002,77.0682 100.9417,76.9942 100.9017,76.9809 100.8728,76.9551 100.8971,76.9466 100.9407,76.9372 100.9452,76.9079 100.9334,76.8788 100.909,76.8715 100.8842,76.8693 100.8537,76.8691 100.8289,76.8779 100.806,76.8816 100.773,76.8826 100.6773,76.8774 100.6457,76.8718 100.6232,76.8604 100.6393,76.8385 100.5994,76.809 100.56,76.7689 100.5813,76.7211 100.6749,76.6754 100.7109,76.667 100.7392,76.6653 100.7664,76.6664 100.8261,76.6668 100.8592,76.6661 100.8902,76.6636 100.9259,76.6584 100.9416,76.6423 100.8469,76.5928 100.8141,76.5014 100.7653,76.4723 100.7387,76.4655 100.6957,76.4592 100.6717,76.457 100.6293,76.4508 100.5917,76.4426 100.7475,76.4098 100.7824,76.4078 100.8654,76.4106 100.9269,76.4094 101.0287,76.4052 101.1289,76.3986 101.1592,76.3961 101.4922,76.3516 101.5271,76.3427 101.6907,76.317 101.7473,76.311 101.8077,76.3059 101.8768,76.3017 101.9112,76.2965 101.9522,76.2707 101.9212,76.2668 101.8867,76.2687 101.6013,76.2857 101.5492,76.2922 101.5154,76.3046 101.4937,76.3219 101.4477,76.336 101.4168,76.3424 101.3865,76.3447 101.3279,76.3444 101.2504,76.3399 101.2211,76.3402 101.198,76.3421 101.1278,76.3529 101.1062,76.3568 101.0529,76.3697 101.0311,76.3732 101.0093,76.3702 100.9116,76.3557 100.813,76.3484 100.7679,76.3753 100.5778,76.4239 100.5476,76.4229 100.5226,76.4153 100.4712,76.4036 100.3917,76.389 100.3706,76.3858 100.1023,76.3635 99.9865,76.3707 99.9534,76.3765 99.7156,76.3752 99.6332,76.3723 99.5856,76.3682 99.5591,76.3665 99.3995,76.3593 99.2181,76.3593 99.1537,76.3604 98.9999,76.372 98.8136,76.3883 98.742,76.3983 98.6703,76.4084 98.6393,76.4108 98.6098,76.4101 98.58,76.4048 98.5559,76.3973 98.5343,76.3736 98.549,76.3581 98.6225,76.3411 98.6547,76.3319 98.7411,76.2726 98.7441,76.2447 98.7721,76.2366 98.8011,76.2372 98.9064,76.2424 98.9355,76.2424 98.9631,76.2413 99.0032,76.2336 99.0424,76.2221 99.0687,76.2085 99.0858,76.1895 99.1154,76.1695 99.1563,76.1672 99.2141,76.1676 99.2403,76.1685 99.3142,76.1628 99.336,76.1449 99.3354,76.1199 99.349,76.0937 99.3729,76.0799 99.4259,76.0705 99.5212,76.0464 99.5984,75.9843 99.6327,75.8351 99.618,75.8116 99.5925,75.7943 99.5715,75.7861 99.5213,75.7719 99.4686,75.7595 99.4179,75.7405 99.3798,75.7118 99.3462,75.6814 99.3208,75.6692 99.297,75.6662 99.2663,75.6667 99.1741,75.6732 99.1176,75.6726 99.0949,75.6701 99.0522,75.6647 99.0322,75.6615 99.0042,75.6394 98.9739,75.571 98.9416,75.5254 98.9026,75.4627 98.931,75.4443 98.9553,75.4377 98.9815,75.4362 99.069,75.4293 99.1195,75.4235 99.1576,75.4153 99.2433,75.3939 99.3241,75.3784 99.349,75.3757 99.3753,75.3746 99.4058,75.3736 99.4886,75.3743 99.53,75.3705 99.5554,75.3534 99.5204,75.3292 99.5208,75.2661 99.5865,75.2423 99.6203,75.2334 99.7082,75.216 99.7993,75.1885 99.9332,75.0872 99.916,75.0639 99.9119,75.0759 99.7593,75.1791 99.7415,75.1904 99.6985,75.2043 99.6482,75.2175 99.5972,75.2306 99.5348,75.2415 99.4943,75.2525 99.4523,75.3003 99.4426,75.3302 99.3642,75.3605 99.0779,75.4057 98.9267,75.4235 98.8887,75.4315 98.8452,75.4419 98.8218,75.4563 98.825,75.4783 98.8637,75.5362 98.9498,75.6522 98.9738,75.6645 98.9986,75.6716 99.0388,75.6781 99.1016,75.6871 99.1699,75.6938 99.1955,75.695 99.2408,75.6997 99.3062,75.7153 99.3419,75.7288 99.395,75.7605 99.4875,75.9272 99.4431,75.9519 99.412,75.9613 99.3714,75.9725 99.3505,75.9641 99.3067,75.9542 99.2809,75.9532 99.1918,75.9951 99.2152,76.0024 99.285,76.0093 99.318,76.0189 99.3007,76.0451 99.2055,76.0376 99.0346,76.0248 98.9856,76.0212 98.9336,76.0182 98.9045,76.0181 98.8728,76.0271 98.8223,76.0525 98.8537,76.0519 98.9487,76.0501 99.0174,76.0989 98.9983,76.1062 98.9404,76.1099 98.7258,76.1139 98.6509,76.1088 98.6139,76.0943 98.5813,76.0849 98.4628,76.0886 98.4405,76.0943 98.4682,76.1045 98.4967,76.1157 98.54,76.1541 98.5177,76.1576 98.4914,76.1564 98.4682,76.1539 98.4477,76.1502 98.3357,76.1268 98.2263,76.0961 98.1965,76.0853 98.1063,76.0699 98.0861,76.0666 98.0343,76.0637 97.971,76.065 97.8814,76.0637 97.7752,76.0503 97.7465,76.0448 97.6503,76.0125 97.7244,75.9918 97.7465,75.988 97.7785,75.9904 97.8061,75.9966 97.9433,75.9904 97.8731,75.9776 97.7533,75.9586 97.6558,75.9513 97.6218,75.9504 97.6015,75.9591 97.5851,75.9706 97.4873,75.9865 97.4528,75.9879 97.3121,75.9539 97.2759,75.9426 97.3004,75.9373 97.3571,75.9387 97.3802,75.9409 97.4061,75.9423 97.4373,75.9418 97.5343,75.9152 97.5684,75.8883 97.5494,75.8725 97.4356,75.8708 97.3297,75.8847 97.3035,75.8872 97.2721,75.8878 97.2465,75.8862 97.0974,75.8738 97.0555,75.8614 97.036,75.8485 97.0586,75.833 96.9424,75.8218 96.9139,75.8211 96.9232,75.8779 96.9499,75.8892 96.9786,75.8949 97.0299,75.9082 97.1183,75.9341 97.0929,75.9378 97.0183,75.9321 96.9728,75.9272 96.944,75.9216 96.7737,75.8728 96.7258,75.8587 96.5819,75.816 96.2904,75.7745 96.1757,75.7617 96.2667,75.8085 96.3338,75.8365 96.3614,75.8475 96.368,75.8733 96.2698,75.9001 96.2434,75.903 96.1925,75.8994 96.079,75.8869 96.0663,75.8555 96.0384,75.8442 95.9151,75.8431 95.8401,75.8517 95.6847,75.8429 95.6651,75.8397 95.5643,75.8082 95.5212,75.7828 95.479,75.7437 95.4452,75.7452 95.31,75.7812 95.3372,75.7862 95.504,75.8209 95.6381,75.8764 95.8035,75.9395 95.9286,75.974 95.9116,75.9858 95.8854,75.9922 95.4504,76.0356 95.3099,76.0374 95.1448,76.0503 95.1163,76.0498 95.0673,76.0411 94.9312,76.0165 94.7786,75.9953 94.7509,75.9963 94.6503,76.0046 94.6135,76.0176 94.5753,76.0348 94.5199,76.0433 94.4933,76.0459 94.4281,76.0489 94.3362,76.0482 94.3076,76.0474 94.2797,76.0416 94.3014,76.0356 94.3298,76.0365 94.3991,76.0345 94.4372,76.0266 94.4725,76.0088 94.3426,75.9554 94.3203,75.9527 94.2303,75.9417 94.208,75.9395 94.1804,75.9495 94.1813,75.9748 94.124,76.0099 94.0897,76.0145 94.0643,76.0129 93.9062,75.9998 93.7516,76.0063 93.4932,76.0162 93.4583,76.0172 93.3981,76.0162 93.3754,76.0119 93.4081,75.9846 93.431,75.9818 93.5737,75.9725 93.6622,75.9676 93.6945,75.9652 93.7308,75.9436 93.7105,75.9376 93.6822,75.9365 93.4752,75.9348 93.3693,75.9331 93.2388,75.9157 93.2007,75.9079 93.1784,75.9054 93.1498,75.9046 93.1273,75.9075 93.0831,75.9628 93.1299,75.9747 93.1665,75.9928 93.1331,76.0042 92.9208,75.9921 92.8786,75.9815 92.9025,75.9677 92.9333,75.9659 92.9642,75.9529 92.955,75.9322 92.8383,75.9184 92.7957,75.9551 92.7628,75.9602 92.6665,75.9468 92.6072,75.8412 92.6485,75.7917 92.7309,75.7818 92.7615,75.7803 92.7892,75.7811 92.821,75.786 92.8472,75.7947 92.7719,75.813 92.7507,75.8275 92.8046,75.8398 92.9348,75.8589 93.0006,75.8672 93.0258,75.8689 93.0546,75.8633 93.0566,75.8294 93.1465,75.7674 93.1838,75.7662 93.2154,75.7709 93.2294,75.7874 93.1975,75.8113 93.2654,75.8381 93.2907,75.8399 93.3376,75.8319 93.3387,75.8047 93.3765,75.7929 93.403,75.7902 93.4935,75.7911 93.5686,75.7969 93.5908,75.7996 93.6926,75.816 93.8938,75.8398 93.8738,75.8249 93.8162,75.8091 93.6323,75.7846 93.4876,75.7721 93.4314,75.77 93.4065,75.7685 93.2744,75.7517 93.2143,75.742 93.1515,75.7327 93.0885,75.7234 92.9516,75.7177 92.7709,75.7068 92.6963,75.701 92.6309,75.6927 92.5376,75.6833 92.4662,75.6767 92.4411,75.6746 92.2988,75.6709 92.2457,75.6677 92.2149,75.6628 92.1588,75.6474 92.1373,75.6441 92.0786,75.643 91.9828,75.6439 91.9272,75.6415 91.9055,75.6389 91.8157,75.6188 91.7941,75.616 91.7665,75.6151 91.5456,75.61 91.5149,75.6242 91.4814,75.6308 91.4566,75.6291 91.4291,75.6231 91.3746,75.5873 91.3957,75.5591 91.3895,75.5341 91.3683,75.5313 91.3407,75.5302 91.3104,75.5317 91.2311,75.5384 91.2009,75.5401 91.1705,75.5396 91.124,75.5339 91.0878,75.5262 91.0665,75.5233 91.0141,75.52 90.9837,75.52 90.9524,75.5236 90.9322,75.535 90.8228,75.5326 90.7188,75.5103 90.6819,75.5172 90.6647,75.5367 90.6548,75.5566 90.6174,75.5575 90.5932,75.5554 90.5717,75.5527 90.4591,75.5341 90.4354,75.5273 90.4089,75.5119 90.3782,75.5074 90.1509,75.4943 90.1205,75.494 90.0531,75.4951 89.8522,75.4801 89.7828,75.4727 89.7134,75.4656 89.6848,75.4601 89.6691,75.4512 89.6936,75.4406 89.6634,75.413 89.5638,75.4055 89.4159,75.3934 89.386,75.3883 89.3649,75.3762 89.29,75.341 89.194,75.3327 89.1539,75.3341 89.0763,75.3638 89.0583,75.3758 89.009,75.3974 88.9825,75.3915 88.9528,75.3685 88.9335,75.3565 88.8958,75.3446 88.8599,75.3411 88.7403,75.3303 88.6087,75.2871 88.358,75.2286 88.3266,75.2196 88.0981,75.1322 88.0792,75.1155 88.0784,75.077 88.0578,75.0608 87.9479,75.0429 87.7956,75.0138 87.7707,74.999 87.7507,74.9955 87.7273,74.9933 87.6976,74.9929 87.6714,74.9947 87.6247,75.004 87.5491,75.0192 87.3696,75.0335 87.3434,75.0353 87.0549,75.0561 86.9662,75.0591 86.9034,75.0603 86.8505,75.0572 86.8237,75.0557 86.8005,75.0534 86.7521,75.0448 86.7133,75.0334 86.6861,75.0192 86.6708,74.9757 86.6903,74.9684 86.7349,74.9724 86.7799,74.9836 86.8057,74.9852 86.8355,74.9857 87.035,74.9645 87.1146,74.9427 87.1419,74.9328 87.2368,74.9324 87.296,74.9337 87.3518,74.9357 87.3846,74.9355 87.5057,74.9317 87.5436,74.9214 87.3626,74.8394 87.2452,74.8772 87.2065,74.8943 87.1758,74.8995 87.1501,74.9011 87.1205,74.9025 87.0618,74.901 87.0124,74.8971 86.9527,74.8785 87.0248,74.8524 87.054,74.851 87.0835,74.8518 87.1099,74.8532 87.1503,74.8433 87.137,74.8285 86.9798,74.7848 86.9465,74.7762 86.9072,74.7699 86.8452,74.7497 86.8188,74.7197 86.8106,74.6959 86.7297,74.6507 86.6715,74.6493 86.6456,74.6475 86.5367,74.6007 86.548,74.5802 86.5707,74.5792 86.6352,74.5874 86.6642,74.5882 86.7028,74.5854 86.7231,74.5745 86.6879,74.5105 86.4863,74.5099 86.4609,74.5162 86.3802,74.5663 86.3559,74.5979 86.2924,74.6152 86.2476,74.6207 86.1733,74.6189 86.1351,74.6042 86.0955,74.604 86.0024,74.6579 86.0397,74.6618 86.059,74.6677 86.0082,74.6975 85.9825,74.708 85.8439,74.7174 85.811,74.7088 85.8432,74.6955 85.8688,74.6852 85.8991,74.6635 85.8903,74.6411 85.8512,74.6174 85.8189,74.6089 85.7833,74.6055 85.7526,74.6102 85.7253,74.6159 85.7029,74.6185 85.6706,74.6144 85.6384,74.6059 85.614,74.5952 85.5667,74.5287 85.6983,74.5088 85.7206,74.5063 85.763,74.5142 85.7978,74.5197 85.878,74.5174 86.0152,74.5075 86.0885,74.5016 86.3972,74.457 86.4599,74.4381 86.3858,74.4278 86.3212,74.4066 86.4832,74.3469 86.5643,74.3206 86.593,74.3199 86.6217,74.3206 86.7932,74.3291 86.8299,74.3056 86.8938,74.2723 86.9091,74.2677 86.8702,74.253 86.8025,74.2336 86.7231,74.2293 86.6882,74.2238 86.6665,74.2117 86.6203,74.1997 86.5948,74.1979 86.5162,74.1959 86.4805,74.2051 86.5017,74.2172 86.5268,74.2186 86.5589,74.223 86.652,74.2541 86.6772,74.2697 86.6545,74.2896 86.626,74.2891 86.5403,74.2868 86.4613,74.286 86.4173,74.3018 86.3653,74.3308 86.3339,74.3397 86.2773,74.3503 86.2551,74.353 86.2328,74.3521 86.0991,74.3405 85.8635,74.3191 85.8352,74.3141 85.8748,74.3025 85.927,74.2984 85.9556,74.2958 86.018,74.2873 86.0495,74.2787 86.0854,74.2239 86.0709,74.2085 86.0096,74.2233 85.9821,74.2415 85.8919,74.2564 85.7802,74.2641 85.7519,74.2649 85.7264,74.263 85.6915,74.2513 85.73,74.1815 85.7752,74.166 85.8192,74.1609 85.8445,74.1594 85.9951,74.1569 86.1587,74.1564 86.303,74.1527 86.3283,74.1507 86.35,74.148 86.4993,74.1216 86.5437,74.1043 86.5759,74.0729 86.5625,74.0175 86.6313,73.9735 86.6684,73.9667 86.7082,73.9658 86.7417,73.9668 86.7835,73.9668 86.8704,73.9664 86.9263,73.964 86.9511,73.9626 87.0504,73.9551 87.0994,73.9509 87.1455,73.9421 87.1725,73.9285 87.1896,73.9069 87.1406,73.9042 87.1185,73.9149 87.0775,73.9296 87.0332,73.9387 86.9809,73.9418 86.8348,73.9454 86.7602,73.9282 86.773,73.9052 86.8213,73.8844 86.9179,73.832 86.9306,73.8147 86.9518,73.7909 86.9855,73.7708 87.0214,73.755 87.0485,73.7454 87.1025,73.7303 87.1998,73.7214 87.2524,73.7241 87.3084,73.7602 87.3098,73.8087 87.3472,73.8107 87.3962,73.8069 87.4264,73.8023 87.4453,73.7906 87.4223,73.7365 87.3873,73.718 87.3587,73.7089 87.3298,73.6999 87.2527,73.6804 87.2303,73.6761 87.1795,73.6649 87.0797,73.6415 87.0437,73.6171 87.0408,73.5879 87.0992,73.6015 87.1223,73.6036 87.0573,73.5585 86.9661,73.5199 86.9072,73.5066 86.8828,73.5048 86.8249,73.5042 86.7368,73.5058 86.6425,73.503 86.5716,73.4845 86.55,73.482 86.4313,73.4732 86.3523,73.47 86.322,73.4701 86.2186,73.4705 86.0637,73.4601 85.8083,73.4211 85.7351,73.4077 85.7021,73.3997 85.6479,73.3832 85.6292,73.3518 85.6328,73.2717 85.6626,73.246 85.703,73.2275 85.7326,73.2188 85.7714,73.2124 85.9088,73.1917 86.0132,73.1785 86.0639,73.1673 86.1139,73.1557 86.1688,73.1413 86.4174,73.0618 86.4756,73.0356 86.5429,72.991 86.5638,72.9715 86.5702,72.952 86.5722,72.8959 86.533,72.9176 86.5105,72.9456 86.5049,72.9786 86.468,73.0105 86.4509,73.0229 86.3779,73.0448 86.3071,73.0586 86.2864,73.0617 86.2212,73.0684 86.1739,73.0725 86.1531,73.075 86.1041,73.0822 86.0703,73.0939 86.0448,73.1103 86.0363,73.1455 86.0038,73.1624 85.8277,73.1852 85.75,73.1972 85.6634,73.2136 85.6279,73.2249 85.6011,73.2386 85.5817,73.2674 85.5733,73.3713 85.6263,73.4036 85.887,73.4841 85.9158,73.4889 86.0619,73.4986 86.083,73.5011 86.1382,73.5113 86.1753,73.5222 86.2186,73.5401 86.2944,73.5657 86.3231,73.5705 86.3783,73.5721 86.3998,73.5746 86.5392,73.6124 86.5931,73.6444 86.6303,73.6557 86.7047,73.6688 86.7294,73.6705 86.8031,73.6817 86.8767,73.7417 86.8286,73.7699 86.7765,73.7769 86.5682,73.8005 86.5377,73.8008 86.3051,73.782 86.1196,73.7658 85.8949,73.7638 85.8332,73.7636 85.8083,73.7621 85.7775,73.7578 85.7142,73.7393 85.6661,73.724 85.6448,73.7215 85.6202,73.7198 85.5893,73.7198 85.5649,73.7217 85.5067,73.7208 85.3989,73.7164 85.3746,73.7147 85.3485,73.7091 85.2979,73.6761 85.2754,73.6343 85.2587,73.618 85.2281,73.6139 85.0357,73.5992 85.0114,73.5973 84.837,73.6116 84.766,73.6262 84.6459,73.6506 84.6179,73.6549 84.5966,73.6574 84.5721,73.6591 84.5413,73.6592 84.5138,73.6578 84.4128,73.6517 84.3886,73.6499 84.346,73.6447 84.3245,73.6419 84.2627,73.6295 84.1827,73.6131 84.1404,73.6079 83.842,73.5957 83.6311,73.5954 83.5491,73.5924 83.5245,73.5906 83.4794,73.586 83.4225,73.5757 83.3621,73.5671 83.3169,73.5622 83.2445,73.5563 83.19,73.5545 83.068,73.5535 82.7077,73.5567 82.5485,73.5621 82.5023,73.5641 82.3922,73.566 82.2762,73.5664 82.2456,73.5661 82.0852,73.5599 81.8323,73.5566 81.7713,73.5557 81.5649,73.5511 81.3136,73.5428 81.2658,73.5385 81.1076,73.5212 80.8665,73.497 80.6791,73.4793 80.5578,73.4771 80.514,73.4813 80.3746,73.4801 80.3473,73.4788 80.3182,73.4742 80.3106,73.3916 80.3326,73.3824 80.364,73.397 80.405,73.4069 80.4258,73.4098 80.4529,73.4095 80.4744,73.4026 80.4094,73.3435 80.3878,73.3326 80.1896,73.2821 80.1683,73.2823 80.1491,73.2752 80.0551,73.2242 80.0802,73.2063 80.1337,73.1915 80.166,73.1886 80.24,73.1925 80.2773,73.1864 80.3123,73.1793 80.3497,73.1685 80.3649,73.1549 80.372,73.1239 80.31,73.1061 80.2867,73.1039 80.1792,73.1035 80.1261,73.1006 80.1061,73.0977 80.0721,73.0898 80.042,73.0768 80.0646,73.0744 80.1954,73.0641 80.2627,73.0584 80.2837,73.0562 80.3399,73.0473 80.3755,73.0356 80.3908,73.0156 80.3529,73.0069 80.297,73.0047 80.27,73.0054 80.2504,72.9943 80.34,72.9748 80.3827,72.9702 80.4549,72.9664 80.4841,72.9624 80.5179,72.9507 80.5463,72.9369 80.6142,72.8753 80.6398,72.8112 80.61,72.7459 80.5618,72.694 80.4833,72.6535 80.4411,72.6358 80.4325,72.6099 80.4795,72.5533 80.5068,72.544 80.5448,72.5429 80.5955,72.5371 80.6295,72.5221 80.5818,72.4719 80.5597,72.465 80.5291,72.461 80.5131,72.449 80.5329,72.4259 80.636,72.3732 80.7129,72.3531 80.9186,72.2786 81.0204,72.2582 81.1611,72.2565 81.2789,72.2538 81.5283,72.2378 81.5489,72.2351 81.634,72.2227 81.6598,72.2132 81.7358,72.1974 81.7888,72.1878 81.8703,72.1786 81.9369,72.1735 81.9412,72.1804 81.9646,72.1863 82.0035,72.1839 82.0926,72.1289 82.1143,72.0952 82.1057,72.0308 82.0772,72.0163 81.9991,71.9983 82.0675,71.9766 82.1201,71.9668 82.1494,71.9586 82.2768,71.9194 82.3007,71.9092 82.382,71.8727 82.425,71.842 82.539,71.7914 82.5655,71.8002 82.5876,71.8026 82.6104,71.8028 82.7067,71.7985 82.8441,71.7907 82.9516,71.7809 83.0112,71.774 83.0747,71.7588 83.1765,71.7342 83.2072,71.7223 83.2229,71.7046 83.3213,71.6078 83.3394,71.596 83.4319,71.5305 83.4369,71.4704 83.3838,71.4188 83.3654,71.407 83.3446,71.3965 83.323,71.3904 83.258,71.3797 83.2143,71.3761 83.1916,71.37 83.1813,71.3354 83.1857,71.2945 83.1814,71.2691 83.0979,71.2035 83.0458,71.1829 83.0229,71.1771 82.9798,71.1606 82.9595,71.144 83.0684,71.0173 83.1622,70.9522 83.2051,70.9197 83.2877,70.8179 83.3031,70.7963 83.327,70.755 83.3578,70.6925 83.4108,70.6072 83.4884,70.5411 83.5344,70.4932 83.56,70.4374 83.558,70.3677 83.4679,70.3108 83.3453,70.2471 83.1816,70.2214 83.1494,70.219 83.0211,70.2184 82.937,70.2244 82.8836,70.2327 82.8608,70.238 82.8308,70.2406 82.8007,70.239 82.7668,70.2284 82.86,70.1622 82.9268,70.1225 82.9488,70.113 82.9938,70.0535 83.0093,70.0317 82.9956,69.9941 82.9737,69.9863 82.9236,69.9772 82.8886,69.9721 82.7982,69.9903 82.6431,70.0289 82.461,70.0795 82.4593,70.142 82.4715,70.1604 82.6309,70.2369 82.8147,70.3188 82.8324,70.3341 82.8661,70.4108 82.8379,70.4321 82.8072,70.4726 82.8676,70.5765 82.9223,70.6517 82.944,70.6826 82.9583,70.7538 82.9461,70.7815 82.9209,70.7974 82.7073,70.8508 82.5584,70.8693 82.4954,70.8601 82.4758,70.8539 82.3944,70.8177 82.2988,70.7188 82.3038,70.6908 82.3355,70.6802 82.2479,70.5163 82.0693,70.4991 82.0319,70.4942 81.9733,70.4803 82.0779,70.2606 82.1656,70.1231 82.163,70.107 82.1417,70.1195 82.0523,70.1856 82.0256,70.2448 82.0152,70.2695 81.985,70.3443 81.8964,70.4719 82.009,70.574 82.0245,70.5864 82.0475,70.5985 82.1047,70.6169 82.1468,70.6323 82.1816,70.6474 82.2222,70.6767 82.1139,70.8202 82.0917,70.8326 82.062,70.8453 82.04,70.8642 82.0146,70.895 82.0129,70.9168 82.0799,70.9467 82.128,70.9615 82.1516,70.9735 82.1677,70.9952 82.1577,71.023 82.1435,71.0447 82.0982,71.0759 82.0684,71.1627 82.0921,71.181 82.1389,71.194 82.1973,71.2084 82.3927,71.2488 82.5099,71.2726 82.5295,71.2763 82.6665,71.2989 82.7932,71.36 82.819,71.4414 82.8378,71.4599 82.8675,71.4648 82.9266,71.4679 82.9558,71.4728 82.9822,71.4819 83.096,71.5518 83.1246,71.5775 83.0677,71.6259 83.0485,71.6324 83.0192,71.6369 82.9503,71.6368 82.8419,71.6312 82.7836,71.6365 82.7533,71.6543 82.7251,71.673 82.6689,71.683 82.6098,71.6835 82.5801,71.6805 82.0656,71.6197 82.0262,71.6138 81.9467,71.6051 81.8488,71.6031 81.594,71.6043 81.4629,71.613 81.2275,71.6547 81.1487,71.6691 81.1015,71.6815 81.0693,71.709 81.0766,71.7432 81.0604,71.756 80.9571,71.7885 80.7421,71.8519 80.4611,71.9354 80.4463,71.9553 80.4801,71.972 80.5198,71.9771 80.5594,71.9808 80.6086,71.9744 80.5741,71.9523 80.6307,71.9355 80.6581,71.9539 80.6595,71.9785 80.6353,71.9908 80.615,71.9945 80.5952,71.9956 80.495,72.0077 80.3745,72.0283 80.274,72.0465 80.2335,72.0512 80.1529,72.0599 80.0524,72.0693 79.98,72.0799 79.9191,72.0909 79.6955,72.1388 79.6543,72.1485 79.6137,72.1592 79.5929,72.1654 79.5476,72.1804 79.4811,72.2074 79.4188,72.2314 79.3521,72.2557 79.3107,72.2674 79.2903,72.2711 79.1884,72.2804 79.1072,72.2846 79.0462,72.2839 78.9433,72.2802 78.8223,72.2752 78.7414,72.2746 78.6582,72.2769 78.638,72.2779 78.5764,72.2832 78.3918,72.3034 78.3508,72.307 78.3304,72.3065 78.309,72.3022 78.3131,72.2807 78.3086,72.282 78.313,72.2754 78.2863,72.2676 78.2674,72.2597 78.2816,72.233 78.3177,72.222 78.3602,72.2031 78.401,72.2031 78.4262,72.2015 78.4341,72.189 78.4466,72.1764 78.4655,72.1654 78.4859,72.1559 78.4828,72.1402 78.4718,72.1323 78.4812,72.1292 78.4938,72.1261 78.4922,72.1213 78.4718,72.1151 78.4482,72.1119 78.4262,72.1119 78.4262,72.1056 78.4451,72.1041 78.4702,72.1009 78.4875,72.0993 78.5032,72.0962 78.4969,72.0868 78.4985,72.0789 78.519,72.0789 78.5567,72.082 78.5818,72.0868 78.6133,72.0883 78.629,72.0805 78.6117,72.0742 78.5897,72.0742 78.6101,72.0663 78.629,72.0663 78.662,72.0585 78.7123,72.049 78.7359,72.038 78.7217,72.0255 78.7233,72.0129 78.7437,72.0176 78.7815,72.0192 78.816,72.0255 78.8663,72.0145 78.9072,72.005 78.9072,71.9909 78.9056,71.9767 78.9198,71.9689 78.9465,71.9752 78.9779,71.9799 79.0345,71.9767 79.077,71.9735 79.1493,71.9563 79.1823,71.961 79.2027,71.9625 79.231,71.9515 79.2341,71.939 79.2719,71.939 79.3096,71.95 79.3615,71.9453 79.4275,71.9421 79.4715,71.9515 79.5029,71.9594 79.5328,71.9547 79.5815,71.9421 79.624,71.9374 79.6727,71.9295 79.69,71.9122 79.6947,71.895 79.7277,71.8887 79.7764,71.8887 79.8,71.8855 79.8598,71.8808 79.8629,71.8714 79.9132,71.8651 79.9195,71.8588 79.9038,71.8525 79.9462,71.8478 80.0059,71.8352 80.0389,71.8447 80.061,71.8384 80.0672,71.8132 80.1254,71.8054 80.1663,71.7865 80.1631,71.7755 80.1459,71.7723 80.1223,71.7723 80.0909,71.777 80.0956,71.7613 80.094,71.7503 80.0673,71.7534 79.9903,71.7707 79.9824,71.7582 79.9682,71.7519 79.9242,71.7503 79.8661,71.7377 79.8535,71.7094 79.8928,71.711 79.9117,71.7 79.9447,71.678 79.9447,71.6686 79.8849,71.6686 79.9117,71.645 79.9211,71.6167 79.9415,71.601 79.9384,71.5837 79.9557,71.5743 79.9085,71.5601 79.8912,71.5617 79.8456,71.5601 79.8394,71.5507 79.8252,71.535 79.7922,71.5161 79.7262,71.5051 79.6586,71.5035 79.5768,71.5067 79.5061,71.4988 79.4338,71.5082 79.3662,71.5082 79.3395,71.4988 79.2876,71.5004 79.2185,71.5177 79.1996,71.5161 79.1493,71.4957 79.1666,71.4925 79.198,71.4689 79.2027,71.4312 79.1854,71.4013 79.1634,71.3856 79.1037,71.3683 79.0173,71.3495 78.9748,71.3338 78.9638,71.3086 78.9921,71.285 78.989,71.2473 79.0503,71.2174 79.1634,71.2143 79.2986,71.1986 79.4212,71.1624 79.5517,71.1121 79.6428,71.0775 79.701,71.0571 79.7513,71.0382 79.7843,71.0319 79.8534,71.0256 79.9462,71.0162 80.0531,71.0036 80.1348,70.9942 80.1867,70.9926 80.2181,70.9926 80.2291,70.991 80.2527,70.9848 80.3376,70.9659 80.3706,70.9549 80.3706,70.9313 80.3675,70.8983 80.3737,70.8637 80.3737,70.8354 80.3753,70.7883 80.3911,70.7506 80.4036,70.7411 80.4838,70.7128 80.5105,70.7018 80.5027,70.6924 80.4791,70.6767 80.4209,70.6515 80.4115,70.6358 80.4115,70.6138 80.4429,70.6044 80.4744,70.5949 80.5011,70.5949 80.5231,70.5902 80.5467,70.5808 80.5797,70.5572 80.5765,70.5352 80.5545,70.5195 80.5482,70.5069 80.531,70.4881 80.5089,70.4818 80.4791,70.4771 80.4854,70.4598 80.5011,70.4488 80.4964,70.4378 80.4807,70.4346 80.4885,70.422 80.4822,70.4158 80.4681,70.4142 80.4351,70.4158 80.4241,70.4032 80.4319,70.3953 80.4586,70.389 80.4854,70.3765 80.4807,70.3702 80.4807,70.356 80.4979,70.3482 80.5215,70.345 80.5545,70.3419 80.5797,70.3434 80.6064,70.3434 80.6206,70.3419 80.6174,70.3246 80.608,70.3167 80.5891,70.3214 80.5655,70.3199 80.5498,70.3199 80.564,70.3057 80.5875,70.2994 80.5797,70.2916 80.5514,70.2916 80.5294,70.2963 80.5168,70.3057 80.5121,70.3214 80.5011,70.3214 80.4807,70.3199 80.4602,70.3199 80.4382,70.3293 80.4241,70.345 80.4068,70.3576 80.3879,70.3638 80.1835,70.3623 80.1505,70.356 80.1269,70.3481 80.1159,70.3355 80.0877,70.3277 80.0562,70.3277 80.0232,70.3355 79.9996,70.3371 79.9918,70.3292 80.0028,70.3198 80.0075,70.3025 79.9918,70.29 79.9666,70.2931 79.9352,70.2962 79.9085,70.2947 79.899,70.2868 79.9226,70.2774 79.9383,70.2695 79.9289,70.2585 79.8896,70.2459 79.8283,70.2271 79.7748,70.2161 79.7906,70.2098 79.7025,70.1799 79.6601,70.1689 79.6302,70.1689 79.5972,70.1783 79.5642,70.1831 79.5328,70.1815 79.5312,70.1611 79.5548,70.1516 79.5343,70.139 79.4809,70.1343 79.4573,70.1265 79.4369,70.1029 79.4306,70.0856 79.4007,70.073 79.3614,70.0416 79.319,70.0117 79.286,70.0133 79.2483,70.018 79.2153,70.0243 79.209,70.0369 79.231,70.0416 79.2404,70.0463 79.2105,70.0495 79.1508,70.0495 79.1602,70.018 79.1477,69.985 79.1822,69.9661 79.176,69.9457 79.1445,69.9426 79.1272,69.9614 79.1021,69.9583 79.0549,69.9567 79.0156,69.952 78.9999,69.9363 79.0109,69.9237 79.0376,69.9127 79.0156,69.9095 79.0093,69.9127 78.981,69.9174 78.9543,69.9158 78.9402,69.908 78.959,69.9001 78.9873,69.8844 79.0172,69.875 79.0109,69.8671 78.9936,69.864 78.9622,69.8624 78.9354,69.8388 78.904,69.8294 78.871,69.8341 78.8663,69.8215 78.8396,69.8011 78.8097,69.7869 78.772,69.7775 78.7327,69.7791 78.6981,69.7838 78.7122,69.7634 78.7342,69.7555 78.761,69.7476 78.7971,69.7398 78.8317,69.7366 78.8254,69.7209 78.805,69.7178 78.805,69.7052 78.8301,69.6989 78.8679,69.691 78.8914,69.68 78.8836,69.6612 78.8851,69.6486 78.9024,69.6486 78.9354,69.6502 78.959,69.6455 78.9464,69.6329 78.9103,69.625 78.8726,69.6125 78.8286,69.6125 78.8223,69.5967 78.8474,69.5936 78.8647,69.5967 78.8899,69.5967 78.9024,69.581 78.9244,69.5826 78.9449,69.5826 78.9779,69.5794 79.1382,69.5653 79.2011,69.5574 79.2262,69.5464 79.2592,69.5496 79.2907,69.559 79.3253,69.5527 79.3111,69.5386 79.3331,69.5354 79.3583,69.5307 79.3504,69.5213 79.319,69.5119 79.3206,69.5008 79.374,69.4961 79.4196,69.4867 79.4196,69.4663 79.4384,69.449 79.4667,69.4144 79.462,69.3908 79.4715,69.3814 79.4982,69.372 79.4966,69.361 79.506,69.3578 79.5375,69.3484 79.5579,69.3484 79.5595,69.3405 79.5359,69.3327 79.5626,69.3264 79.6176,69.3264 79.6444,69.3217 79.6381,69.3044 79.6617,69.2824 79.6931,69.2761 79.6899,69.2682 79.6695,69.2572 79.6774,69.2462 79.7151,69.2509 79.7595,69.2512 79.7835,69.2392 79.8164,69.2482 79.8584,69.2572 79.9123,69.2572 79.9333,69.2632 79.9603,69.2602 79.9573,69.2482 79.9783,69.2482 80.0562,69.2602 80.1551,69.2362 80.239,69.2332 80.272,69.2212 80.3439,69.2212 80.3888,69.2122 80.4608,69.2092 80.5806,69.2062 80.5896,69.1883 80.6196,69.1643 80.6765,69.1463 80.7485,69.1253 80.7544,69.1073 80.8024,69.1103 80.9193,69.1313 80.9522,69.1313 81.0481,69.1673 81.162,69.1913 81.2489,69.1523 81.2849,69.1523 81.3778,69.1733 81.4557,69.2093 81.4317,69.2272 81.4587,69.2842 81.4407,69.3082 81.4947,69.3471 81.5816,69.3351 81.6535,69.3022 81.7374,69.2602 81.7464,69.2332 81.6955,69.2033 81.6295,69.1823 81.5756,69.1643 81.5876,69.1343 81.6745,69.0924 81.8303,69.0834 81.9112,69.0714 82.0761,69.0624 82.139,69.0654 82.2289,69.0774 82.2799,69.0594 82.2769,69.0264 82.3188,69.0145 82.2858,68.9935 82.2858,68.9755 82.1929,68.9695 82.145,68.9515 82.163,68.9216 82.2199,68.9186 82.2559,68.9066 82.3128,68.8886 82.3278,68.8586 82.3578,68.8197 82.3728,68.7777 82.3578,68.7387 82.3698,68.7178 82.4776,68.6998 82.5496,68.6908 82.5975,68.7028 82.6155,68.6908 82.6305,68.6638 82.6005,68.6578 82.6185,68.6368 82.6665,68.6309 82.7354,68.6189 82.8283,68.5889 82.8583,68.5589 82.8103,68.5589 82.7534,68.5469 82.7234,68.526 82.6605,68.532 82.5106,68.532 82.4687,68.523 82.4177,68.499 82.3578,68.517 82.3518,68.487 82.3428,68.487 82.3128,68.484 82.2769,68.478 82.3308,68.466 82.4147,68.445 82.4986,68.3911 82.5316,68.2952 82.4986,68.2592 82.5196,68.1933 82.4836,68.1783 82.4357,68.1753 82.3728,68.1394 82.3398,68.1064 82.3668,68.0854 82.3608,68.0705 82.3278,68.0765 82.2769,68.0825 82.2409,68.0825 82.2139,68.0705 82.208,68.0225 82.175,67.9986 82.187,67.9836 82.2199,67.9686 82.202,67.9476 82.202,67.9386 82.205,67.8877 82.199,67.8727 82.193,67.8487 82.151,67.8427 81.9113,67.8427 81.8663,67.8577 81.8154,67.8667 81.7644,67.8367 81.7075,67.8397 81.6266,67.8547 81.5876,67.8547 81.5576,67.8427 81.5396,67.8157 81.6206,67.7678 81.6895,67.7139 81.7045,67.6989 81.7344,67.6779 81.7674,67.6809 81.8214,67.6479 81.8603,67.6629 81.8843,67.6419 81.9262,67.6299 81.9262,67.618 81.8933,67.597 81.9412,67.588 81.9113,67.573 81.8813,67.57 81.8603,67.555 81.8753,67.546 81.9173,67.528 81.9322,67.4921 81.9982,67.4891 81.9982,67.4741 82.0941,67.4531 82.166,67.4651 82.187,67.4621 82.16,67.4351 82.181,67.4321 82.208,67.4321 82.2109,67.4291 82.196,67.4112 82.172,67.4022 82.178,67.3932 82.193,67.3812 82.154,67.3902 82.121,67.3692 82.0941,67.3422 82.0731,67.3243 82.0581,67.3093 82.1001,67.2883 82.13,67.2733 82.154,67.2553 82.127,67.2523 82.1031,67.2523 82.1061,67.2403 82.142,67.2403 82.175,67.2343 82.166,67.2224 82.124,67.2134 82.0401,67.2134 82.0701,67.2014 82.0821,67.1834 82.0431,67.1804 82.0102,67.1924 82.0072,67.1804 82.0132,67.1624 81.9922,67.1534 81.9352,67.1534 81.9382,67.1355 81.9772,67.1235 82.7324,66.8328 82.8763,66.7848 82.8403,66.7638 82.8673,66.7459 82.9062,66.7399 82.9362,66.7489 82.9961,66.7159 82.9931,66.6799 83.0051,66.65 83.0381,66.632 83.104,66.59 83.125,66.566 83.113,66.56 83.0801,66.5511 82.9872,66.5241 82.9182,66.5151 82.9002,66.4522 82.9152,66.3623 83.0051,66.3083 83.113,66.2723 83.1819,66.2274 83.2808,66.1435 83.3618,66.0925 83.3498,66.0746 83.2928,66.0596 83.1939,66.0386 83.176,66.0146 83.158,65.9996 83.116,65.9757 83.128,65.9517 83.2269,65.8618 83.3438,65.8108 83.3348,65.7749 83.3498,65.7599 83.3258,65.7299 83.4157,65.676 83.4816,65.6969 83.5835,65.7059 83.7514,65.6999 83.8592,65.6939 83.8862,65.661 83.9521,65.619 84.0421,65.5861 84.138,65.5861 84.12,65.5501 84.12,65.5171 84.0271,65.5081 84.0061,65.4962 84.087,65.4812 84.2009,65.4572 84.2668,65.4452 84.2668,65.4212 84.3208,65.4122 84.3417,65.3673 84.3747,65.3403 84.3597,65.3223 84.3208,65.3044 84.3357,65.2744 84.3687,65.2564 84.3687,65.2384 84.4077,65.2085 84.3987,65.1815 84.3537,65.1216 84.2608,65.1006 84.1949,65.0646 84.129,65.0017 84.1469,64.9477 84.1979,64.9357 84.2129,64.8878 84.1559,64.8728 84.09,64.8398 84.114,64.8069 84.1709,64.7949 84.2998,64.7889 84.3927,64.8039 84.5006,64.8159 84.6055,64.8309 84.6984,64.8279 84.7763,64.8129 84.7913,64.7709 84.7523,64.7559 84.7583,64.723 84.8392,64.708 84.8992,64.714 84.9231,64.699 84.9351,64.669 84.9801,64.651 85.046,64.654 85.1689,64.687 85.2648,64.693 85.2828,64.702 85.3397,64.726 85.4086,64.729 85.4925,64.717 85.6634,64.678 85.6843,64.654 85.6634,64.6121 85.6274,64.5611 85.6454,64.5312 85.7353,64.4952 85.7353,64.4652 85.6634,64.4113 85.6634,64.3543 85.7413,64.3214 85.7413,64.2914 85.7623,64.2555 85.8012,64.2105 85.8522,64.1835 85.8282,64.1116 85.7952,64.0876 85.7742,64.0516 85.7622,64.0247 85.7892,64.0007 85.7892,63.9827 85.7592,63.9497 85.6304,63.9228 85.4745,63.8898 85.4356,63.8508 85.3457,63.8299 85.3157,63.7999 85.2498,63.7729 85.2288,63.74 85.1958,63.707 85.1658,63.668 85.1389,63.5871 85.061,63.5362 85.004,63.4912 84.9051,63.5092 84.8542,63.4942 84.8901,63.4403 84.983,63.4343 85.028,63.4103 85.0849,63.4253 85.1298,63.3983 85.1898,63.3593 85.2048,63.3264 85.1778,63.3114 85.2287,63.2544 85.2707,63.2664 85.4026,63.2724 85.4955,63.2604 85.4235,63.2005 85.3366,63.1316 85.3366,63.0626 85.4715,63.0117 85.4505,62.9697 85.3756,62.9368 85.4056,62.8738 85.3306,62.8229 85.1988,62.8139 85.1568,62.769 85.1298,62.766 85.0549,62.703 85.0399,62.6731 85.0249,62.6491 84.977,62.6281 84.962,62.6101 84.98,62.5831 84.9141,62.5622 84.8871,62.5352 84.8302,62.5322 84.8002,62.4902 84.7672,62.4753 84.8002,62.4453 84.7582,62.3973 84.6743,62.3554 84.6054,62.3494 84.5964,62.3314 84.5604,62.3044 84.3177,62.1246 84.4316,61.9418 84.4016,61.8759 84.4406,61.8399 84.5155,61.8219 84.5364,61.7979 84.5604,61.753 84.6653,61.735 84.7282,61.735 84.8182,61.744 84.974,61.693 85.0339,61.6541 85.0549,61.6421 85.1358,61.6241 85.1838,61.6241 85.2617,61.6481 85.3486,61.5701 85.5914,61.5192 85.6093,61.5222 85.6753,61.5342 85.7232,61.5372 85.7592,61.5312 85.8491,61.4862 85.8521,61.4503 85.8521,61.4173 85.8251,61.4023 85.6303,61.3813 85.5794,61.3514 85.5194,61.3154 85.5284,61.2884 85.5884,61.2375 84.5874,60.9438 84.4915,60.9378 84.1439,60.7969 83.8682,60.7639 83.7663,60.8179 83.6734,60.8509 83.5775,60.8838 83.3887,60.9917 83.023,60.9767 82.7803,60.8719 82.6694,60.8329 82.2708,60.6561 82.2708,60.5542 82.0491,60.4583 81.7374,60.5932 81.4257,60.5782 81.3808,60.5572 80.9942,60.5752 80.9312,60.6171 80.9163,60.6951 80.5746,60.74 80.5087,60.704 80.3049,60.704 80.0651,60.5991 79.9243,60.6141 79.7685,60.6261 79.6126,60.6351 79.4568,60.6291 79.3399,60.6141 79.268,60.5901 79.211,60.6261 79.1601,60.662 79.1691,60.719 79.202,60.734 79.1751,60.749 79.1391,60.746 79.0942,60.7639 79.0432,60.7789 78.9833,60.755 78.9413,60.7669 78.8934,60.752 78.8694,60.7729 78.8304,60.7639 78.7885,60.725 78.6896,60.719 78.6416,60.737 78.5667,60.7729 78.4708,60.749 78.3869,60.722 78.345,60.719 78.291,60.719 78.2041,60.728 78.0483,60.74 77.9464,60.731 77.8625,60.701 77.7935,60.689 77.7546,60.704 77.6887,60.737 77.5868,60.7669 77.4399,60.7699 77.2871,60.7519 77.2092,60.7729 77.1282,60.7699 77.0024,60.7969 76.9664,60.7849 76.9514,60.704 76.9664,60.674 76.9394,60.656 76.8495,60.662 76.8495,60.6231 76.8405,60.5811 76.9125,60.5751 76.9304,60.5182 76.9155,60.4702 76.7656,60.4313 76.6547,60.4253 76.6218,60.2844 76.6967,60.2754 76.7326,60.2005 76.6397,60.1016 76.5678,60.0507 76.6367,60.0117 76.6128,59.8978 76.6277,59.6641 76.5289,59.6341 76.5289,59.5172 76.3281,59.4813 76.0464,59.4753 75.9415,59.4004 75.8516,59.3554 75.7736,59.3794 75.6957,59.2235 75.5039,59.1846 75.5459,59.0437 75.5698,58.9478 75.2462,58.7231 75.0304,58.6182 75.0514,58.5582 74.9841,58.5231 75.2327,58.4218 74.9443,58.2807 74.9565,58.272 89,7.0,Russia 109.2548,73.676 109.2654,73.6581 109.3592,73.5962 109.3777,73.5854 109.4041,73.5752 109.4381,73.5665 109.4592,73.5627 109.4838,73.5594 109.5063,73.5675 109.5737,73.5991 109.7131,73.6012 109.8962,73.5974 109.9193,73.5948 109.9655,73.5955 109.9871,73.597 110.113,73.6213 110.353,73.6781 110.3707,73.6874 110.3938,73.688 110.4169,73.6853 110.543,73.6695 110.6153,73.6655 110.6149,73.6647 110.6175,73.6659 110.6435,73.6818 110.7142,73.702 110.7807,73.7179 110.8442,73.7165 110.8832,73.7222 110.9265,73.741 110.9683,73.7526 111.0102,73.7612 111.0116,73.7616 110.9574,73.8121 110.9375,73.8361 110.9221,73.8691 110.9418,73.8909 110.97,73.8961 110.9936,73.8963 111.0225,73.8927 111.0568,73.884 111.0773,73.88 111.101,73.8802 111.1209,73.8827 111.2538,73.9041 111.2926,73.9256 111.2694,73.9422 111.2356,73.948 111.1597,73.951 111.0902,73.9489 111.045,73.9474 110.9575,73.9421 110.9157,73.9379 110.8955,73.9357 110.8588,73.9288 110.8262,73.9193 110.7849,73.8857 110.7973,73.8608 110.8172,73.8499 110.7804,73.8196 110.7515,73.8081 110.7216,73.8042 110.6965,73.8049 110.6692,73.8068 110.6236,73.8146 110.4345,73.8506 110.3859,73.8663 110.3481,73.8794 110.2845,73.8915 110.2557,73.8944 110.1176,73.9079 110.0887,73.9106 109.9214,73.9241 109.8339,73.9183 109.7925,73.9141 109.7528,73.9093 109.7088,73.8996 109.6327,73.8732 109.608,73.8592 109.5734,73.8047 109.5608,73.7794 109.5396,73.7707 109.4276,73.7449 109.3794,73.7379 109.3384,73.7336 109.2865,73.7287 109.2548,73.7194 109.2524,73.6801 109.2548,73.676 7,7.0,Russia 112.2632,75.9378 112.2689,75.9361 112.2814,75.9323 112.3477,75.9429 112.2948,75.9427 112.2613,75.9384 112.2632,75.9378 4442,3.0,Russia 27.2992,57.5203 27.3539,57.6127 27.4988,57.7498 27.5273,57.7541 27.5799,57.7597 27.6236,57.7613 27.6521,57.7627 27.6939,57.7684 27.7352,57.7795 27.7699,57.7987 27.7631,57.8173 27.7289,57.8315 27.6363,57.8963 27.6235,58.0063 27.5955,58.0257 27.5596,58.0381 27.5229,58.0531 27.5016,58.0657 27.4258,58.1438 27.4159,58.2274 27.4411,58.2551 27.47,58.2742 27.4897,58.2951 27.4931,58.3242 27.4921,58.3443 27.4848,58.3812 27.469,58.434 27.4481,58.4846 27.4391,58.5036 27.4006,58.6168 27.3713,58.7147 27.3779,58.7455 27.389,58.7637 27.4067,58.7822 27.4431,58.8113 27.491,58.8346 27.5459,58.8608 27.6381,58.9089 27.6539,58.9154 27.7389,58.9904 27.7555,59.0231 27.7857,59.0801 27.8283,59.1571 27.8647,59.2028 27.9095,59.2152 27.9439,59.2135 27.9684,59.2072 28.0034,59.2082 28.0435,59.213 28.0918,59.2198 28.1118,59.2327 28.127,59.2573 28.1415,59.2969 28.123,59.3225 28.0572,59.3647 28.0239,59.3821 27.9742,59.4036 27.9637,59.4074 27.9697,59.4116 27.987,59.431 28.0137,59.4731 28.0173,59.4986 28.0112,59.5315 27.9764,59.5772 27.9505,59.6004 27.9404,59.618 27.9561,59.687 28.0219,59.7227 28.049,59.7216 28.1168,59.6956 28.1431,59.6768 28.1519,59.6456 28.1602,59.6228 28.1912,59.6062 28.3138,59.5896 28.3371,59.5952 28.354,59.6097 28.3657,59.632 28.3687,59.6626 28.3611,59.6857 28.3642,59.7164 28.3839,59.7507 28.4423,59.7835 28.466,59.7886 28.6119,59.7428 28.6404,59.7209 28.6734,59.7098 28.7781,59.7118 28.9023,59.7473 28.9269,59.7577 28.9728,59.7947 28.9816,59.8229 28.9737,59.8584 29.0082,59.8969 29.0521,59.9164 29.1398,59.9348 29.4374,59.9019 29.707,59.8681 29.7357,59.8639 29.8748,59.8303 29.953,59.8093 29.9829,59.8008 30.0199,59.7958 30.0989,59.7921 30.1284,59.7997 30.1615,59.8249 30.1898,59.8949 30.177,59.9109 30.1134,59.9266 30.0201,59.9319 29.9806,59.9358 29.9149,59.9457 29.8913,59.9551 29.8373,60.0211 29.8459,60.0482 29.8237,60.0727 29.7895,60.0878 29.7681,60.0956 29.6928,60.1144 29.6658,60.1196 29.6165,60.1232 29.5243,60.1258 29.4981,60.1251 29.463,60.1207 29.4158,60.1103 29.3895,60.0947 29.3453,60.0864 29.1075,60.0959 28.992,60.1091 28.9717,60.1133 28.9489,60.1249 28.9327,60.1391 28.8217,60.2162 28.7882,60.2358 28.7329,60.2619 28.6854,60.2685 28.6648,60.2733 28.5841,60.2969 28.5446,60.3141 28.393,60.4757 28.4515,60.478 28.4687,60.4502 28.5099,60.4266 28.5281,60.4169 28.6022,60.3891 28.6282,60.3808 28.6516,60.3877 28.6119,60.5053 28.5751,60.5193 28.5511,60.5031 28.5153,60.5119 28.5005,60.5349 28.5206,60.5643 28.5578,60.5607 28.5727,60.5457 28.6235,60.5382 28.6782,60.6036 28.6765,60.6428 28.6226,60.6623 28.4596,60.6068 28.3568,60.5916 28.3352,60.5756 28.3297,60.5509 28.2876,60.5206 28.0937,60.4562 27.9674,60.4546 27.7714,60.4527 27.7552,60.4731 27.8319,60.5159 28.0406,60.6388 28.1927,60.7197 28.2158,60.7304 28.2448,60.7468 28.2756,60.7676 28.2882,60.7846 28.3349,60.8127 28.4122,60.8512 28.4753,60.8807 28.5234,60.8876 28.5653,60.886 28.591,60.8971 28.6195,60.9276 28.6654,60.9712 28.7618,61.0309 28.9158,61.0883 29.0166,61.1249 29.1101,61.1577 29.1578,61.1789 29.1938,61.2015 29.2183,61.2177 29.229,61.2285 29.2461,61.2436 29.2781,61.2707 29.2992,61.285 29.441,61.3621 29.5956,61.4427 29.6267,61.4589 29.7448,61.5286 29.9411,61.6592 30.0844,61.7714 30.097,61.7808 30.1459,61.8149 30.2421,61.8805 30.3377,61.9408 30.5733,62.0903 30.645,62.1344 30.7332,62.1777 30.7748,62.1951 30.9043,62.2631 31.0228,62.3366 31.1978,62.4319 31.2195,62.4594 31.2337,62.4877 31.25,62.5213 31.2613,62.5385 31.3689,62.682 31.4127,62.7355 31.44,62.7584 31.4602,62.7764 31.5204,62.8308 31.4582,62.9053 31.3217,62.9918 31.1815,63.1269 31.1586,63.1455 31.1256,63.1604 30.8518,63.2756 30.6547,63.3465 30.5891,63.3615 30.4189,63.4029 30.3977,63.4252 30.336,63.4698 30.2979,63.4818 30.2497,63.4941 30.1863,63.515 30.147,63.5342 29.9402,63.6569 29.938,63.6693 29.9499,63.6759 29.9742,63.6822 30.0039,63.688 30.0555,63.6966 30.0759,63.7013 30.1511,63.7223 30.2039,63.7439 30.3381,63.8518 30.4205,63.8943 30.4686,63.921 30.4912,63.9361 30.5349,63.9678 30.5501,63.9914 30.5523,64.015 30.5169,64.1443 30.5032,64.1613 30.3297,64.2297 30.2994,64.24 30.2617,64.2498 30.1372,64.2693 30.1038,64.2731 30.0698,64.2844 30.0023,64.3256 30.0263,64.3801 30.0285,64.4008 30.0093,64.4148 29.9894,64.4227 29.9512,64.4322 29.9278,64.4729 29.9173,64.4988 29.9677,64.5177 30.013,64.5245 30.082,64.5393 30.1169,64.5512 30.1469,64.5831 30.0832,64.6917 30.0615,64.7037 30.0215,64.7123 29.9885,64.7151 29.8909,64.7151 29.8669,64.7144 29.8324,64.7127 29.7839,64.7121 29.7497,64.7138 29.7155,64.7292 29.6961,64.7422 29.6746,64.7569 29.6555,64.7718 29.6129,64.8065 29.5941,64.824 29.582,64.8402 29.5493,64.9251 29.5624,64.9712 29.5872,64.9906 29.615,65.0006 29.6672,65.0114 29.7147,65.0134 29.7477,65.0179 29.7772,65.0258 29.8101,65.0386 29.8109,65.1206 29.7888,65.1367 29.7612,65.1421 29.7282,65.1447 29.6781,65.1452 29.5997,65.1418 29.574,65.1445 29.543,65.1627 29.5539,65.1896 29.6119,65.2214 29.647,65.2379 29.6892,65.2644 29.6863,65.333 29.6801,65.3734 29.6787,65.3992 29.6867,65.4325 29.7107,65.4444 29.7382,65.4555 29.7745,65.5061 29.7589,65.5711 29.9322,65.6028 29.97,65.6083 30.0165,65.5932 30.0597,65.5859 30.0745,65.6265 30.0421,65.736 30.0335,65.7555 29.9719,65.8395 29.888,65.9667 29.8583,66.0294 29.8433,66.0508 29.8161,66.0688 29.7896,66.0803 29.7659,66.0924 29.7387,66.1093 29.7164,66.1265 29.5718,66.246 29.5304,66.2991 29.5169,66.3194 29.508,66.3447 29.4944,66.3865 29.3541,66.5159 29.3257,66.5443 29.2949,66.5936 29.2647,66.6201 29.2135,66.6538 29.1931,66.6665 29.1522,66.6862 29.0691,66.7359 29.0342,66.7668 29.0168,66.793 29.0157,66.8188 29.0219,66.8665 29.0306,66.8882 29.0744,66.9288 29.097,66.9459 29.4643,67.2085 29.6841,67.3308 29.82,67.3976 29.838,67.4066 29.8709,67.4279 29.8976,67.4527 29.9157,67.4867 29.9664,67.6085 29.8404,67.6544 29.6658,67.7169 29.6297,67.7287 29.4779,67.8521 29.3221,67.9754 29.2954,67.9957 29.0988,68.0296 28.7631,68.0852 28.635,68.1084 28.6031,68.152 28.5,68.2983 28.4,68.447 28.4577,68.4959 28.5944,68.5919 28.6776,68.6458 28.7009,68.6666 28.7385,68.7217 28.7561,68.7585 28.7318,68.7692 28.6769,68.7873 28.6447,68.7896 28.5042,68.786 28.4487,68.7843 28.4104,68.7859 28.3796,68.794 28.375,68.814 28.3912,68.828 28.685,68.9084 28.7941,68.9408 28.8162,68.9472 28.8516,68.9543 28.8957,68.9627 28.9381,68.9482 28.9583,68.9427 28.9946,68.9398 29.0371,68.9475 29.0677,68.9592 29.1155,68.9818 29.1381,68.9943 29.1726,69.0157 29.1918,69.0308 29.233,69.099 29.2556,69.1542 29.2451,69.1752 29.2329,69.2059 29.2511,69.2269 29.3454,69.2438 29.4202,69.2512 29.4749,69.2576 29.5085,69.2646 29.5399,69.2706 29.6012,69.2843 29.8342,69.3432 29.9979,69.3982 30.0329,69.4136 30.1163,69.4881 30.0723,69.5383 30.0302,69.5382 30.0119,69.5564 30.0447,69.5736 30.0645,69.5765 30.0998,69.5781 30.1307,69.5753 30.2397,69.5407 30.2753,69.5273 30.3051,69.5132 30.3274,69.5006 30.3876,69.4775 30.4545,69.4576 30.4802,69.4544 30.7011,69.4406 30.7308,69.4403 30.7584,69.4418 30.7975,69.4469 30.8459,69.4604 30.8746,69.484 30.8841,69.5187 30.8805,69.5643 30.8763,69.6005 30.8358,69.6417 30.7881,69.7018 30.8543,69.6979 31.1732,69.6677 31.3378,69.6261 31.4734,69.6067 31.6594,69.5909 31.7054,69.591 31.7298,69.599 31.692,69.6215 31.6578,69.6278 31.623,69.642 31.6455,69.7342 31.6881,69.7562 31.7248,69.7608 31.7483,69.7607 31.7683,69.7586 31.7891,69.7542 31.8954,69.7221 31.9294,69.7096 31.9726,69.6785 32.0271,69.7026 31.9679,69.7543 31.9446,69.7641 31.9193,69.7771 31.846,69.8326 31.8672,69.8738 31.9434,69.873 31.966,69.8711 31.9863,69.8689 32.0207,69.8587 32.1435,69.8083 32.2877,69.788 32.3119,69.783 32.3983,69.7571 32.4336,69.7219 32.51,69.692 32.5384,69.6878 32.5615,69.6868 32.5847,69.6881 32.6076,69.693 32.6334,69.7067 32.8457,69.6865 32.8658,69.6837 33.0219,69.6571 33.0416,69.6472 33.0588,69.6358 33.0368,69.5564 32.9999,69.5364 32.9742,69.5274 32.8566,69.4985 32.824,69.4927 32.7997,69.492 32.7558,69.4941 32.5471,69.5225 32.3973,69.5441 32.2565,69.5506 32.1008,69.5646 32.0409,69.5856 31.9572,69.5467 31.9948,69.5231 32.0307,69.5042 32.1442,69.5001 32.3165,69.4884 32.3365,69.486 32.3592,69.4804 32.4248,69.4158 32.2,69.3491 32.1325,69.3388 32.1534,69.3344 32.1989,69.3347 32.2237,69.3391 32.2942,69.363 32.3678,69.3917 32.4178,69.4 32.598,69.4101 32.7546,69.3983 32.9584,69.3822 32.9374,69.3461 32.8689,69.3179 32.8425,69.3047 32.7623,69.2563 32.764,69.2411 32.7356,69.2134 32.8306,69.2212 32.8506,69.252 32.8739,69.2814 32.9019,69.2982 33.0944,69.3294 33.2553,69.3594 33.3854,69.3544 33.444,69.3327 33.3995,69.261 33.2893,69.2102 33.2271,69.2079 33.1703,69.1796 33.1968,69.1767 33.3078,69.1955 33.3377,69.1954 33.4028,69.1857 33.4666,69.1149 33.4451,69.0924 33.2429,69.0269 33.2022,69.0147 33.166,69.011 33.1254,69.0087 33.0511,69.0017 33.0058,68.9919 32.9729,68.9815 32.9476,68.9626 32.9403,68.8783 32.962,68.874 32.9703,68.9055 32.9771,68.9504 33.0046,68.9707 33.0263,68.9761 33.2145,68.9975 33.3477,69.0085 33.3693,69.014 33.4959,69.0949 33.5022,69.1173 33.4885,69.1902 33.5061,69.2189 33.5372,69.2302 33.5694,69.2361 33.6469,69.2421 33.7983,69.2435 33.9283,69.2379 34.1002,69.2318 34.288,69.2275 34.3434,69.2151 34.3694,69.1921 34.5731,69.1617 34.7182,69.1455 34.872,69.1325 34.9633,69.1305 34.9949,69.1313 35.0324,69.1306 35.061,69.1243 35.0725,69.0991 35.1098,69.0917 35.1855,69.1288 35.0826,69.1745 35.1027,69.1843 35.2195,69.1798 35.3827,69.1641 35.4674,69.1475 35.7598,69.1098 35.8979,69.0838 36.1875,68.9854 36.3988,68.9448 36.4838,68.933 36.523,68.9244 36.9128,68.8085 37.0723,68.7573 37.2158,68.7111 37.4154,68.6471 37.5665,68.6246 37.6133,68.6134 37.6934,68.5879 37.7445,68.5701 37.874,68.5027 37.9672,68.4489 38.2465,68.3512 38.315,68.2999 38.3519,68.2516 38.4649,68.2378 38.5274,68.2401 38.4411,68.2639 38.4267,68.2784 38.5227,68.3001 38.5486,68.2949 38.8486,68.2163 38.8687,68.2029 39.0272,68.124 39.1798,68.0791 39.3823,68.0083 39.413,67.9935 39.4453,67.9824 39.4884,67.974 39.6582,67.9596 39.7692,67.957 39.7081,68.0352 39.689,68.0456 39.6379,68.0688 39.669,68.0819 39.6945,68.0764 39.7267,68.0658 39.8119,68.0337 39.8366,68.0246 39.8472,68.0024 39.9027,67.9418 39.9293,67.9261 40.0608,67.8639 40.0994,67.8547 40.1858,67.8399 40.2777,67.8134 40.3277,67.7783 40.306,67.763 40.2466,67.7601 40.3153,67.7058 40.3794,67.6685 40.4001,67.6627 40.4362,67.66 40.612,67.6838 40.7191,67.6387 40.7489,67.6355 40.7932,67.6442 40.8248,67.6487 40.8539,67.6469 40.9069,67.6299 40.9645,67.5726 40.9708,67.5478 40.9666,67.5281 40.9489,67.5033 40.9511,67.3819 40.9735,67.3799 40.9982,67.375 41.0212,67.3658 41.0653,67.3312 41.0561,67.2654 41.0469,67.2215 41.0259,67.1654 41.0484,67.1468 41.0771,67.1387 41.1396,67.1281 41.1604,67.1272 41.1811,67.1322 41.1998,67.1445 41.2333,67.1428 41.2591,67.1305 41.2759,67.1158 41.3057,67.034 41.2174,66.8619 41.1984,66.8323 41.187,66.816 41.1618,66.784 41.1352,66.7532 41.0715,66.7099 41.0432,66.6924 41.0128,66.6754 40.9659,66.6578 40.8888,66.6233 40.6538,66.5031 40.6384,66.4893 40.6381,66.4599 40.4831,66.3699 40.3843,66.3262 40.3611,66.317 40.3195,66.3076 40.2713,66.3025 40.241,66.2978 40.2144,66.2909 40.0912,66.2549 40.0564,66.2358 40.0197,66.2065 39.9853,66.1927 39.7294,66.1467 39.505,66.1107 39.3038,66.0606 39.2729,66.0505 39.2414,66.0433 39.197,66.036 39.0316,66.0211 38.9404,66.019 38.768,65.9973 38.7384,65.9923 38.5297,65.9693 38.4751,65.9677 38.415,65.9694 38.122,65.9843 37.9133,65.9959 37.8912,65.9977 37.8332,66.0045 37.5974,66.038 37.4069,66.0844 37.3313,66.1095 37.3196,66.1143 37.2199,66.1409 37.1909,66.1479 37.0725,66.1684 36.9412,66.1851 36.8995,66.1887 36.8337,66.1928 36.6833,66.2022 36.6407,66.2039 36.5803,66.2049 36.5509,66.2048 36.4607,66.2057 36.3086,66.2159 36.2304,66.2242 36.1524,66.2367 35.8415,66.2695 35.6597,66.2861 35.5075,66.2974 35.4851,66.2985 35.4371,66.3039 35.3651,66.3179 35.3331,66.3244 35.3063,66.3318 35.0929,66.401 35.0074,66.4309 34.9564,66.4554 34.903,66.48 34.8046,66.514 34.7747,66.5207 34.7002,66.5226 34.67,66.5174 34.6376,66.4978 34.6165,66.488 34.5915,66.4799 34.4809,66.4541 34.4426,66.4478 34.4088,66.4482 34.3731,66.4615 34.2906,66.5291 34.3052,66.5501 34.3323,66.557 34.3642,66.5595 34.2488,66.5816 34.1721,66.585 34.0879,66.5859 33.8642,66.6004 33.7866,66.6083 33.7496,66.6188 33.7286,66.649 33.7076,66.6767 33.6748,66.6908 33.5303,66.7384 33.4498,66.7283 33.4674,66.7015 33.5016,66.6837 33.539,66.6714 33.5593,66.6617 33.4663,66.6353 33.4154,66.6372 33.1834,66.7099 33.1201,66.7305 33.087,66.7443 33.0207,66.7722 32.8754,66.8401 32.8343,66.8595 32.7674,66.8958 32.7463,66.9136 32.73,66.9415 32.7344,66.9679 32.7267,67.0006 32.629,67.0269 32.6005,67.0342 32.5455,67.0453 32.5067,67.0475 32.4545,67.0425 32.4221,67.0426 32.3838,67.0466 32.3465,67.0553 32.298,67.0767 32.273,67.0775 32.1741,67.0595 32.0001,67.048 31.9592,67.0517 31.9197,67.0612 31.8674,67.0754 31.8146,67.0768 31.7932,67.0676 31.858,67.0374 32.005,67.0285 32.035,67.0283 32.0581,67.0325 32.0807,67.0416 32.1267,67.0448 32.1496,67.0439 32.1932,67.0375 32.2898,66.9907 32.4308,66.9464 32.454,66.9333 32.4721,66.923 32.4924,66.9011 32.4629,66.8637 32.4519,66.7975 32.6128,66.7429 32.7834,66.7012 32.8454,66.6847 32.8634,66.6519 32.7689,66.6424 32.7339,66.6423 32.8673,66.6069 32.9026,66.6021 32.9926,66.5986 33.052,66.5999 33.0894,66.6019 33.1119,66.601 33.1543,66.5944 33.2541,66.5567 33.24,66.5376 33.1275,66.5553 33.0848,66.5661 33.0546,66.563 33.0284,66.528 33.0013,66.5111 32.9665,66.5033 32.9465,66.5047 32.9113,66.5099 32.8711,66.5129 32.8282,66.5138 32.8035,66.5107 32.7957,66.5012 32.8042,66.4967 32.9899,66.4943 33.0164,66.4967 33.086,66.5188 33.1724,66.5319 33.2156,66.528 33.3382,66.5105 33.3594,66.5048 33.4568,66.4435 33.4191,66.4381 33.3668,66.4458 33.3216,66.4561 33.2742,66.4653 33.2392,66.4703 33.1317,66.4799 33.1137,66.4701 33.1068,66.4678 33.0724,66.4646 33.0518,66.4646 33.0036,66.4666 32.8914,66.4465 32.9643,66.4226 33.0091,66.421 33.0498,66.4213 33.0725,66.4253 33.1004,66.4418 33.1455,66.4499 33.1797,66.4461 33.2347,66.4191 33.2625,66.3993 33.3398,66.3875 33.377,66.3832 33.476,66.3897 33.5052,66.4057 33.5404,66.4055 33.5652,66.3972 33.6533,66.3388 33.6005,66.3311 33.495,66.3084 33.3714,66.2588 33.2756,66.2454 33.2538,66.2362 33.4341,66.2283 33.4851,66.2386 33.568,66.2293 33.6817,66.2071 33.7108,66.2006 33.8147,66.1767 34.0406,66.1656 34.0979,66.131 34.281,66.0743 34.3544,66.0492 34.4271,66.0237 34.4612,66.0104 34.4968,65.995 34.6424,65.908 34.7798,65.8159 34.7974,65.7974 34.8945,65.6388 34.8604,65.6146 34.8187,65.6227 34.7714,65.648 34.7452,65.6639 34.6883,65.694 34.6193,65.719 34.6044,65.6945 34.6203,65.6346 34.6827,65.552 34.7088,65.5182 34.6038,65.3658 34.5487,65.3612 34.4722,65.3693 34.4262,65.3677 34.3535,65.3369 34.3125,65.3009 34.4055,65.1965 34.4815,65.1704 34.5171,65.1724 34.5384,65.171 34.5656,65.1597 34.6162,65.1019 34.6133,65.027 34.676,64.9766 34.7263,64.935 34.7056,64.888 34.7702,64.8362 34.8667,64.7577 34.8881,64.5726 34.7662,64.5065 34.7418,64.4883 34.7188,64.4676 34.7913,64.4399 34.8788,64.4344 34.8975,64.4174 34.8917,64.3779 35.0664,64.3053 35.255,64.2471 35.329,64.241 35.3525,64.2434 35.4684,64.2758 35.4972,64.3184 35.5263,64.3242 35.5621,64.3156 35.7333,64.2632 35.8078,64.2272 35.8276,64.2056 35.8222,64.179 35.9134,64.1166 35.9485,64.1194 36.0384,64.152 36.2063,64.0645 36.1959,63.9998 36.1924,63.9405 36.211,63.9306 36.4017,63.8914 36.4266,63.8882 36.4508,63.8886 36.4887,63.889 36.5248,63.8848 36.7245,63.85 36.7608,63.8326 36.9078,63.822 37.0162,63.8185 37.0661,63.8154 37.0997,63.8103 37.1306,63.8006 37.1726,63.7693 37.1948,63.7447 37.2244,63.7343 37.2859,63.7261 37.3153,63.7245 37.3491,63.7261 37.4309,63.7358 37.4641,63.7432 37.505,63.7649 37.5102,63.8026 37.5806,63.8446 37.6144,63.8426 37.6724,63.8335 37.712,63.8273 37.7535,63.8294 37.797,63.8358 37.8747,63.8577 37.9219,63.8773 37.9343,63.8917 37.9698,63.914 37.9872,63.9252 38.0053,63.942 38.0096,63.978 37.9882,64.0339 37.9722,64.0682 37.9513,64.0856 37.9297,64.0945 37.9077,64.1035 37.8515,64.1319 37.8333,64.1506 37.8477,64.1706 37.904,64.2369 37.8308,64.2622 37.7374,64.308 37.7265,64.34 37.6143,64.3431 37.4868,64.3043 37.3165,64.2752 37.2855,64.2721 37.2604,64.2727 37.1181,64.3121 37.0937,64.3202 37.0715,64.329 37.0538,64.3398 36.9331,64.4212 36.9028,64.4432 36.8725,64.4656 36.8473,64.4894 36.7937,64.5361 36.683,64.6203 36.6563,64.636 36.6311,64.6484 36.6038,64.6558 36.5354,64.662 36.4894,64.6636 36.3862,64.8062 36.3673,64.8573 36.4013,64.8697 36.4398,64.868 36.4762,64.8555 36.4991,64.8469 36.5366,64.8401 36.5803,64.8419 36.7599,64.9112 36.794,64.995 36.7868,65.0403 36.7747,65.0604 36.7609,65.0758 36.7833,65.0969 36.9267,65.1235 36.9679,65.1259 37.045,65.1137 37.2946,65.0663 37.3988,65.0426 37.6152,64.9748 37.6568,64.9559 37.6739,64.9187 37.6696,64.8882 37.7021,64.8708 37.8633,64.8093 37.9018,64.7977 37.9288,64.7899 37.9542,64.7837 38.0019,64.7738 38.0416,64.7696 38.0797,64.7686 38.1377,64.7671 38.1727,64.7683 38.2587,64.7773 38.2974,64.782 38.3283,64.7734 38.2891,64.7267 38.1806,64.6988 38.1598,64.7003 38.1341,64.7036 38.0895,64.7028 37.9973,64.6953 37.964,64.6794 37.9662,64.5632 37.9968,64.5623 38.0828,64.5908 38.0887,64.617 38.1122,64.6378 38.2519,64.6733 38.2768,64.6762 38.4147,64.6812 38.4601,64.7179 38.4923,64.7119 38.5745,64.6973 38.6272,64.6892 38.6783,64.6829 38.7151,64.6778 38.7706,64.6772 38.7914,64.6756 38.8551,64.6633 39.152,64.5791 39.3114,64.5264 39.4177,64.4956 39.4677,64.483 39.536,64.4773 39.6588,64.4736 39.8371,64.5299 39.7994,64.5375 39.7736,64.531 39.7535,64.5209 39.7152,64.5146 39.7162,64.5472 39.7388,64.5838 39.7839,64.5856 39.9387,64.5528 39.9785,64.5408 40.0024,64.5326 40.0557,64.5093 40.0846,64.4826 40.1373,64.4726 40.3707,64.4566 40.417,64.455 40.4435,64.4611 40.4519,64.4849 40.4354,64.5145 40.411,64.5353 40.3902,64.5498 40.3327,64.6449 40.3364,64.6698 40.3668,64.6843 40.3705,64.7088 40.3464,64.7441 40.3296,64.7586 40.3319,64.7804 40.2958,64.8429 40.1995,64.9313 40.1627,64.9478 40.1359,64.9555 40.1017,64.961 40.0719,64.966 40.0219,65.0003 39.9795,65.0344 39.9384,65.0763 39.8816,65.1293 39.8344,65.1624 39.7783,65.1966 39.7534,65.2089 39.7339,65.2187 39.7035,65.2378 39.6747,65.2605 39.6388,65.2965 39.6249,65.3235 39.6221,65.3458 39.6243,65.3808 39.6441,65.4283 39.6719,65.4685 39.6949,65.4888 39.7324,65.5114 39.7766,65.5297 39.8118,65.5424 39.8358,65.5507 39.8597,65.5587 39.8982,65.5693 39.942,65.5768 40.1214,65.628 40.3089,65.6847 40.3316,65.6938 40.3524,65.7042 40.3909,65.7267 40.4624,65.7745 40.5135,65.8123 40.5278,65.8269 40.5599,65.8536 40.5773,65.8658 40.5983,65.876 40.6212,65.8853 40.6474,65.8922 40.6769,65.8969 40.7709,65.9079 40.804,65.9107 40.8572,65.9123 40.9249,65.9164 41.1213,65.9572 41.2155,65.9679 41.2717,65.9794 41.3411,66.0065 41.5634,66.1033 41.69,66.1655 41.7198,66.1819 41.7583,66.2051 41.8236,66.2474 41.9512,66.3367 41.9826,66.3706 41.9978,66.385 42.0567,66.4282 42.0893,66.4403 42.1196,66.445 42.15,66.4433 42.2626,66.4265 42.2984,66.4205 42.4661,66.3871 42.4989,66.3801 42.5673,66.3593 42.5803,66.3384 42.583,66.3126 42.6679,66.3117 42.7412,66.3186 42.7871,66.325 42.8679,66.3329 42.9255,66.338 42.986,66.3407 43.156,66.346 43.2051,66.3406 43.2308,66.3285 43.2607,66.2983 43.3787,66.251 43.4204,66.2476 43.4478,66.2431 43.4828,66.233 43.5583,66.1994 43.5772,66.1889 43.5985,66.1721 43.6054,66.1483 43.5878,66.1353 43.5465,66.1198 43.5196,66.1132 43.4589,66.1046 43.4321,66.0984 43.3604,66.0724 43.2069,66.0075 43.2673,65.9554 43.4283,65.8929 43.437,65.9241 43.4288,65.9535 43.3837,65.9703 43.3638,65.9718 43.3194,65.9733 43.2976,65.9896 43.3655,66.0326 43.3877,66.0422 43.4183,66.0527 43.6039,66.0941 43.6279,66.097 43.7693,66.0935 43.8546,66.0551 43.9597,65.9952 43.9639,65.9742 43.9359,65.9361 43.9518,65.9086 44.0854,65.7921 44.0605,65.9652 44.0147,66.0408 43.9897,66.081 43.9873,66.1173 44.0196,66.1985 44.0342,66.2311 44.0455,66.2484 44.0614,66.2731 44.0746,66.2891 44.0924,66.3021 44.1206,66.3206 44.1285,66.3232 44.1281,66.328 44.1512,66.363 44.1677,66.3771 44.1991,66.3931 44.2304,66.4031 44.2699,66.4191 44.2992,66.5131 44.3069,66.5332 44.3333,66.5532 44.3663,66.5622 44.3922,66.5898 44.358,66.6188 44.2708,66.6992 44.2904,66.7168 44.3434,66.7253 44.3764,66.7341 44.3939,66.7511 44.4051,66.8229 44.3886,66.8643 44.3173,66.9268 44.2587,66.9447 44.222,66.9621 44.1558,67.0136 44.0769,67.0693 44.0509,67.0814 44.0176,67.0886 43.9854,67.0926 43.9458,67.0941 43.9111,67.0916 43.878,67.0888 43.8437,67.0802 43.8137,67.0747 43.7805,67.0803 43.6889,67.1108 43.6699,67.1322 43.6603,67.1669 43.6611,67.2038 43.6614,67.2261 43.668,67.2568 43.6969,67.3074 43.7104,67.3237 43.7235,67.3399 43.7653,67.3874 43.8483,67.4806 43.9395,67.5785 43.9677,67.5943 44.0006,67.5946 44.0221,67.6204 44.0355,67.6993 44.0335,67.7208 43.9942,67.7522 43.9944,67.7905 44.0206,67.8057 44.0752,67.8016 44.1185,67.808 44.1657,67.8413 44.1287,67.8497 44.1034,67.8471 44.0708,67.8371 44.0394,67.8415 44.0481,67.9081 44.0862,68.0129 44.1171,68.0879 44.1331,68.1201 44.1518,68.1771 44.1351,68.2044 44.1106,68.2175 44.0906,68.228 44.0388,68.253 43.958,68.2867 43.9088,68.3053 43.807,68.3343 43.7542,68.345 43.6904,68.3603 43.6266,68.3763 43.5974,68.3848 43.5711,68.3935 43.5445,68.4024 43.4713,68.4304 43.2635,68.5105 43.2403,68.5204 43.2197,68.531 43.1875,68.5532 43.178,68.58 43.22,68.597 43.275,68.5998 43.2951,68.6 43.3171,68.5986 43.3644,68.5942 43.3941,68.5899 43.5787,68.5442 43.6926,68.5133 43.7514,68.4969 43.8276,68.4766 43.8805,68.4659 43.9598,68.4538 43.9801,68.4509 44.0256,68.4475 44.0475,68.4463 44.0872,68.4464 44.1239,68.4483 44.3951,68.4648 44.6187,68.4742 44.6854,68.4821 44.7083,68.4861 44.7901,68.4909 44.8487,68.4913 45.0448,68.4899 45.1686,68.4865 45.1902,68.4851 45.3073,68.4732 45.409,68.4578 45.8064,68.3944 45.8621,68.3614 45.8436,68.3475 45.8572,68.3216 45.9289,68.2391 46.1853,68.1201 46.2223,68.1146 46.2488,68.1217 46.2959,68.1104 46.4016,68.0668 46.4298,68.0509 46.4521,67.9995 46.4395,67.9683 46.4527,67.9354 46.4696,67.9101 46.5639,67.847 46.6174,67.836 46.621,67.7561 46.614,67.7305 46.5744,67.7179 46.5231,67.7206 46.3123,67.7411 46.1918,67.7323 46.1462,67.7242 46.0982,67.7165 46.0494,67.7106 45.7427,67.6861 45.6303,67.6786 45.572,67.6844 45.5266,67.6828 45.4418,67.6746 45.4092,67.6708 45.3622,67.6634 45.3318,67.6582 45.2883,67.6493 45.2283,67.6315 45.2064,67.6133 45.2537,67.5989 45.2574,67.5687 45.2529,67.5463 45.2401,67.5226 45.2009,67.499 45.1752,67.4972 45.1444,67.4984 45.1059,67.499 45.0668,67.4932 45.021,67.4791 44.9637,67.4536 44.9302,67.438 44.9094,67.426 44.8549,67.3923 44.8387,67.3715 44.8286,67.3475 44.8202,67.2801 44.8346,67.2614 44.8996,67.2357 45.0323,67.195 45.0707,67.1851 45.2778,67.1393 45.314,67.1326 45.372,67.1235 45.449,67.1074 45.4846,67.0969 45.5132,67.0826 45.5412,67.0498 45.544,67.0216 45.5563,66.9878 45.6152,66.9426 45.6221,66.928 45.7213,66.8166 45.7476,66.8027 45.9396,66.7404 46.1527,66.7493 46.1857,66.752 46.2325,66.7576 46.3241,66.7711 46.3523,66.7774 46.3833,66.7879 46.4157,66.7913 46.4358,66.7896 46.4658,66.7855 46.4925,66.7768 46.5023,66.7544 46.4218,66.7278 46.2872,66.6568 46.4117,66.6838 46.4403,66.7131 46.4593,66.7258 46.5015,66.7355 46.5436,66.7379 46.663,66.7441 46.8277,66.7571 46.9921,66.7839 47.1195,66.8116 47.1481,66.8179 47.2049,66.8293 47.2351,66.834 47.2669,66.8377 47.2988,66.8385 47.3363,66.8376 47.3566,66.8359 47.4003,66.8309 47.5007,66.8539 47.602,66.9017 47.6336,66.9256 47.65,66.9575 47.6542,67.0332 47.6418,67.0521 47.6088,67.0811 47.5841,67.1011 47.7445,67.2859 47.7911,67.3067 47.8375,67.3375 47.8519,67.3661 47.8375,67.3883 47.8176,67.4058 47.7898,67.4251 47.7591,67.4442 47.7151,67.4884 47.7379,67.5079 47.7805,67.5248 47.902,67.5663 47.9898,67.5519 48.045,67.5401 48.1371,67.5829 48.1638,67.5905 48.2498,67.6029 48.2788,67.5994 48.325,67.5798 48.358,67.5733 48.4417,67.5772 48.4818,67.5961 48.534,67.6203 48.5667,67.6239 48.7604,67.6106 48.8439,67.5877 48.8725,67.5641 48.9012,67.549 48.9636,67.541 48.9952,67.5465 48.9453,67.584 48.7774,67.6389 48.7005,67.7357 48.674,67.7572 48.6424,67.7727 48.6082,67.7874 48.5395,67.8168 48.5122,67.8257 48.494,67.8439 48.5511,67.8445 48.571,67.841 48.5979,67.8321 48.6502,67.8065 48.6846,67.7918 48.7087,67.782 48.7676,67.7684 48.8206,67.7621 48.8414,67.7603 48.8775,67.7617 48.9448,67.7671 48.9779,67.7705 49.0914,67.7831 49.1234,67.7873 49.4908,67.8783 49.5469,67.8926 49.6157,67.9122 49.6416,67.9206 49.6797,67.9344 49.7302,67.9532 49.7794,67.9733 49.8194,67.9862 49.8607,67.9978 49.8987,67.9981 49.8654,67.9693 49.81,67.9537 49.7668,67.9441 49.7465,67.9319 49.7849,67.9326 49.8615,67.9531 49.8983,67.9681 49.9293,67.984 49.9524,68.005 50.0089,68.0412 50.1098,68.0799 50.1359,68.0887 50.1638,68.0964 50.253,68.1149 50.2946,68.1261 50.403,68.1587 50.4306,68.1685 50.482,68.1871 50.5197,68.2016 50.5437,68.2128 50.5726,68.227 50.6353,68.2671 50.662,68.2832 50.6938,68.2799 50.748,68.2547 50.7747,68.2515 50.8305,68.2535 50.9603,68.2621 51.3974,68.329 51.4449,68.3378 51.4661,68.3508 51.4323,68.3654 51.4413,68.385 51.4662,68.3955 51.5163,68.4 51.5653,68.3988 51.621,68.3993 51.6721,68.4035 51.7033,68.4088 51.936,68.4489 51.9648,68.4565 52.091,68.4672 52.0685,68.4171 52.2006,68.4064 52.2284,68.4005 52.2452,68.3896 52.173,68.3244 52.1473,68.3149 52.089,68.3086 52.0619,68.3081 52.0314,68.2944 52.1261,68.2241 52.1489,68.2188 52.3125,68.2533 52.3533,68.2663 52.4062,68.2925 52.4474,68.3127 52.4762,68.32 52.5122,68.321 52.5538,68.3253 52.5882,68.3399 52.6192,68.3715 52.6191,68.3952 52.6009,68.4064 52.562,68.4171 52.512,68.4265 52.4643,68.4428 52.4447,68.4532 52.377,68.4974 52.3964,68.5272 52.43,68.5306 52.468,68.5304 52.4996,68.5352 52.5265,68.554 52.4729,68.554 52.4325,68.5505 52.3952,68.5412 52.337,68.5112 52.2974,68.4967 52.2506,68.4968 52.2128,68.5003 52.1725,68.5109 52.1842,68.5288 52.2457,68.5481 52.2814,68.5577 52.4037,68.589 52.4727,68.6075 52.6025,68.6437 52.7919,68.6909 52.848,68.7007 52.9062,68.7153 53.005,68.7437 53.0581,68.763 53.0862,68.7714 53.173,68.7939 53.2331,68.8071 53.2641,68.8129 53.3256,68.8249 53.3566,68.8309 53.556,68.8626 53.6611,68.8784 53.7289,68.8849 53.894,68.8975 53.9814,68.9035 54.3023,68.92 54.3599,68.9189 54.4005,68.9166 54.4217,68.9142 54.4427,68.9069 54.4149,68.888 54.2227,68.8666 54.0838,68.856 53.8579,68.8394 53.7601,68.8346 53.7103,68.8365 53.6875,68.8399 53.6411,68.8392 53.4902,68.8196 53.4937,68.7923 53.5718,68.7698 53.6072,68.7729 53.5849,68.7973 53.6225,68.7996 53.6838,68.7954 53.767,68.7885 53.8297,68.7827 53.8748,68.776 53.8979,68.7693 53.9056,68.7508 53.8678,68.7345 53.817,68.7214 53.7299,68.6462 53.7209,68.6145 53.6989,68.5942 53.6673,68.5805 53.6188,68.5705 53.6097,68.5441 53.6331,68.5204 53.6981,68.4756 53.7335,68.4572 53.7677,68.4384 53.7919,68.4148 53.8086,68.3832 53.8306,68.3137 53.6986,68.2568 53.6763,68.257 53.6121,68.2915 53.5655,68.3078 53.5191,68.318 53.4889,68.3201 53.464,68.3131 53.4818,68.3021 53.5232,68.2913 53.5704,68.2469 53.5178,68.2469 53.4859,68.256 53.4503,68.2673 53.4187,68.2727 53.3781,68.276 53.3384,68.2783 53.3126,68.2768 53.208,68.2579 53.101,68.1977 53.0973,68.1774 53.1337,68.1591 53.2243,68.1495 53.2608,68.1496 53.3163,68.1574 53.4089,68.1683 53.5947,68.1647 53.7049,68.1563 53.7336,68.1505 53.7515,68.1327 53.8484,68.1265 53.8824,68.1287 53.9283,68.1371 53.9861,68.1595 54.0571,68.1634 54.086,68.12 54.1316,68.12 54.2812,68.1763 54.317,68.1938 54.3386,68.208 54.3575,68.2152 54.3921,68.2177 54.432,68.2116 54.4585,68.1914 54.4932,68.156 54.5086,68.1382 54.5213,68.1195 54.5463,68.0926 54.5746,68.0868 54.6672,68.0766 54.7085,68.0807 54.7297,68.0863 54.7535,68.0979 54.8077,68.1555 54.8037,68.1955 54.7413,68.2268 54.8045,68.2963 54.8241,68.3123 54.8787,68.3472 55.1094,68.4334 55.2156,68.4634 55.3373,68.4788 55.4127,68.4775 55.4638,68.4727 55.5399,68.4789 55.5719,68.4834 55.6769,68.5063 55.7218,68.5163 55.7492,68.5257 55.7815,68.5387 55.828,68.5649 55.8583,68.5713 55.8877,68.5699 55.9318,68.5623 56.0264,68.5349 56.0916,68.5251 56.1337,68.5201 56.1729,68.5171 56.21,68.5171 56.2702,68.5212 56.3332,68.5315 56.389,68.5397 56.4713,68.549 56.5084,68.5487 56.5291,68.5463 56.5671,68.5379 56.6451,68.5149 56.6731,68.5052 56.7052,68.4911 56.7503,68.475 56.8925,68.4564 56.9517,68.452 56.9787,68.4522 57.0211,68.4559 57.1551,68.4679 57.2276,68.4781 57.2768,68.4928 57.2939,68.5039 57.308,68.5286 57.3272,68.5621 57.4646,68.6455 57.4864,68.6514 57.5289,68.6549 57.6406,68.6528 57.7925,68.6571 57.821,68.6655 57.8539,68.6904 57.8223,68.7346 57.8482,68.7583 57.8789,68.765 58.0605,68.7964 58.1165,68.7906 58.0979,68.7665 58.0778,68.749 58.2217,68.642 58.2662,68.6431 58.2978,68.6484 58.3115,68.6642 58.27,68.686 58.2417,68.6914 58.1855,68.6925 58.1585,68.7057 58.1509,68.7414 58.1482,68.7674 58.1523,68.8035 58.365,68.8545 58.4763,68.8732 58.6865,68.9046 58.7374,68.9093 58.7727,68.9109 58.8095,68.9111 59.0505,68.9091 59.0956,68.902 59.0657,68.8922 59.0194,68.8927 58.9274,68.8825 58.8938,68.8787 58.8476,68.8693 58.7763,68.8447 58.8259,68.8368 58.8844,68.8328 58.945,68.8265 58.9747,68.8203 59.1443,68.7476 59.185,68.729 59.2952,68.6763 59.3013,68.6569 59.2946,68.6233 59.2757,68.614 59.2423,68.6105 59.1937,68.6142 59.1521,68.62 59.1247,68.6203 59.0834,68.6161 59.0457,68.607 58.9369,68.532 58.9356,68.4887 58.9477,68.3369 58.9734,68.32 59.0026,68.3137 59.063,68.3063 59.1201,68.3026 59.3846,68.2663 59.4897,68.248 59.523,68.2468 59.5557,68.2505 59.5871,68.2554 59.7168,68.2818 59.7477,68.298 59.7702,68.3139 59.842,68.3766 59.8199,68.4236 59.7454,68.4939 59.7259,68.5081 59.6959,68.5179 59.6577,68.5288 59.6365,68.5493 59.6558,68.5772 59.6848,68.5936 59.7115,68.6049 59.7672,68.6243 59.7965,68.6327 59.8232,68.6286 59.8502,68.6186 59.8737,68.6078 59.9127,68.6005 59.9593,68.5986 59.9958,68.5988 60.1163,68.6055 60.2535,68.6144 60.3032,68.6195 60.3351,68.6247 60.3663,68.6308 60.41,68.6432 60.4392,68.6519 60.4662,68.6626 60.5419,68.702 60.5767,68.7256 60.5916,68.7403 60.6077,68.7585 60.6468,68.7858 60.6711,68.8002 60.6985,68.8107 60.739,68.8172 60.7847,68.8163 60.8058,68.8616 60.8143,68.9018 60.8003,68.9985 60.7645,69.0343 60.7153,69.0607 60.6698,69.0752 60.6257,69.084 60.5987,69.0836 60.5983,69.0305 60.5632,69.0126 60.5084,69.0211 60.4726,69.0367 60.4539,69.0675 60.464,69.1076 60.4637,69.16 60.4417,69.1905 60.4116,69.223 60.3015,69.2802 60.181,69.3586 60.1613,69.373 60.1505,69.3979 60.086,69.4629 60.0156,69.4832 60.0311,69.542 60.1103,69.5691 60.1405,69.5776 60.1652,69.5814 60.2211,69.584 60.2735,69.5776 60.2941,69.5761 60.3733,69.5733 60.4099,69.5747 60.5173,69.5804 60.5348,69.5937 60.5186,69.6394 60.5607,69.7148 60.5929,69.7383 60.6281,69.7525 60.6587,69.7605 60.7336,69.7724 60.7993,69.7725 60.8295,69.7683 60.87,69.7563 60.8914,69.7533 61.0221,69.7419 61.1191,69.7383 61.2123,69.722 61.3024,69.6997 61.4006,69.69 61.5156,69.687 61.5823,69.6858 61.6331,69.6817 61.7725,69.6665 61.8565,69.6553 61.8769,69.6534 61.9714,69.6523 62.0816,69.655 62.1936,69.6554 62.2496,69.6551 62.287,69.6551 62.364,69.652 62.4237,69.6472 62.444,69.6453 62.5442,69.6364 62.6426,69.6299 62.7591,69.6238 62.8551,69.6203 62.9498,69.613 63.0906,69.5988 63.1321,69.5936 63.2981,69.5698 63.3403,69.5632 63.5089,69.5356 64.0124,69.4522 64.1386,69.4243 64.1997,69.4101 64.2394,69.4007 64.3187,69.3816 64.3766,69.3672 64.411,69.3542 64.4422,69.3407 64.5298,69.3095 64.5711,69.297 64.634,69.2795 64.7628,69.2453 64.8198,69.2304 64.8591,69.207 64.8242,69.1914 64.7797,69.1897 64.7412,69.2011 64.7205,69.2046 64.6962,69.1979 64.6454,69.1518 64.6228,69.0853 64.626,69.0769 64.593,69.0517 64.4604,69.0139 64.3847,68.9318 64.3847,68.875 64.4288,68.7929 64.574,68.7866 64.7003,68.8182 64.877,68.7487 65.0538,68.7235 65.199,68.7235 65.2242,68.6414 65.3442,68.5594 65.4136,68.5215 65.483,68.4647 65.3883,68.4268 65.3252,68.3637 65.2179,68.2879 65.1422,68.1869 65.1737,68.0859 65.1737,67.9723 65.2495,67.8713 65.3883,67.8397 65.5272,67.8334 65.7355,67.8461 65.8302,67.8839 65.9186,67.8271 65.8933,67.7135 66.0512,67.6756 66.0827,67.6062 65.9438,67.5809 65.7987,67.5809 65.6977,67.5683 65.6977,67.4989 65.8618,67.4862 65.9502,67.4799 65.988,67.3726 65.7482,67.3158 65.603,67.2969 65.584,67.259 65.4704,67.2211 65.2432,67.1643 65.1043,67.1012 65.0853,67.0317 64.997,67.0128 64.997,66.836 64.8013,66.7919 64.5362,66.754 64.4288,66.6845 64.2395,66.615 64.1132,66.615 63.9933,66.6024 63.8733,66.6087 63.785,66.533 63.7092,66.514 63.5956,66.4762 63.5198,66.432 63.4125,66.432 63.3115,66.4383 63.2736,66.3688 63.1979,66.3247 63.1411,66.2678 63.2105,66.2363 63.16,66.1921 63.0653,66.23 62.9833,66.1984 62.9012,66.1353 62.8381,66.0532 62.756,66.0343 62.7245,65.9838 62.7434,65.9775 62.7686,65.9207 62.7181,65.8891 62.756,65.8449 62.7497,65.8197 62.6676,65.8197 62.5288,65.807 62.2763,65.7439 62.0175,65.6682 61.7776,65.6492 61.6324,65.5735 61.4809,65.4788 61.3294,65.3652 61.2347,65.321 61.1526,65.2831 61.241,65.2389 61.2094,65.2137 61.1526,65.1758 61.0958,65.119 61.0011,65.1063 60.9759,65.0369 60.8244,64.999 60.7171,65.018 60.7108,64.9738 60.6098,64.8791 60.5024,64.8475 60.4961,64.8854 60.4267,64.917 60.3257,64.9675 60.3383,65.0053 60.2058,65.0243 60.0543,65.0243 59.928,64.9359 59.7513,64.8349 59.6061,64.7781 59.5429,64.7023 59.5934,64.6392 59.5934,64.6013 59.5303,64.5761 59.4735,64.513 59.3914,64.4561 59.4609,64.4246 59.5051,64.3993 59.5493,64.2668 59.4798,64.2226 59.5556,64.1468 59.6439,64.0963 59.7639,64.1026 59.726,64.0143 59.6628,63.9574 59.5366,63.9006 59.4734,63.888 59.4734,63.8059 59.4419,63.7807 59.4103,63.6797 59.3724,63.5282 59.3156,63.4398 59.2336,63.3514 59.2588,63.3073 59.1894,63.2946 59.2336,63.2315 59.1704,63.1494 59.202,63.0674 59.1326,63.0232 59.1326,62.9664 59.2209,62.9033 59.3409,62.8843 59.3724,62.8212 59.3535,62.7391 59.3093,62.7076 59.3156,62.6634 59.3472,62.5876 59.4356,62.4803 59.5555,62.474 59.4861,62.3667 59.4987,62.3036 59.4482,62.2783 59.404,62.2594 59.404,62.2026 59.303,62.07 59.3851,61.9437 59.2967,61.8617 59.2336,61.8175 59.2336,61.7607 59.2904,61.7102 59.2399,61.6281 59.101,61.5839 59.0379,61.5902 58.9495,61.5018 58.899,61.5081 58.8233,61.5081 58.7159,61.4639 58.5265,61.4639 58.0152,61.4513 57.2199,61.4576 57.0936,61.4703 57.0305,61.4324 56.5697,61.4639 56.557,61.445 56.4876,61.445 56.4497,61.3882 56.2919,61.3945 56.2162,61.2809 56.2414,61.2493 56.1972,61.1546 55.7238,61.2051 55.6418,61.0284 55.181,61.0852 55.1115,60.959 54.96,60.9779 54.9537,60.9085 54.8653,60.8201 53.7669,60.94 53.7164,60.7948 53.2367,60.8516 53.2935,60.9779 52.7759,61.041 52.6938,60.8958 52.334,60.9274 52.2583,60.7885 51.7911,60.8264 51.6712,60.555 52.0626,60.4918 52.031,60.4287 52.2456,60.4161 52.2267,60.3403 52.2456,60.3151 52.2001,60.1929 52.1363,60.2161 52.0686,60.2393 52.0086,60.2664 51.9525,60.2664 51.9003,60.2451 51.8249,60.2103 51.7552,60.1503 51.7204,60.0807 51.6759,60.0517 51.5947,60.0033 51.5038,59.9472 51.4303,59.8969 51.3781,59.895 51.3162,59.8911 51.2871,59.9143 51.2755,59.9511 51.2504,59.9666 51.1517,59.9937 51.0666,60.013 50.9718,60.0072 50.9196,59.9608 50.8268,59.8969 50.761,59.866 50.7475,59.835 50.7107,59.8118 50.6314,59.8118 50.583,59.8157 50.5037,59.806 50.3992,59.7905 50.3141,59.7924 50.2174,59.7712 50.1768,59.7576 50.1652,59.7363 50.14,59.7035 50.1149,59.7073 50.0356,59.7073 49.9466,59.7247 49.8982,59.7305 49.8615,59.7131 49.8537,59.6996 49.9253,59.6551 49.9524,59.6454 49.9485,59.6358 49.8847,59.6261 49.8054,59.6145 49.7512,59.6125 49.7318,59.5951 49.7125,59.5371 49.6873,59.4616 49.6951,59.4403 49.7202,59.4345 49.7164,59.3862 49.6989,59.3378 49.7222,59.3223 49.7164,59.2914 49.7183,59.2566 49.6951,59.1715 49.6525,59.1695 49.6158,59.154 49.5094,59.1637 49.4359,59.1792 49.4088,59.1927 49.4088,59.2217 49.4378,59.2972 49.4513,59.3436 49.3836,59.3552 49.3005,59.3572 49.2444,59.3668 49.2328,59.3842 49.2192,59.4094 49.1883,59.4191 49.0935,59.4326 49.0722,59.45 49.0335,59.4577 48.9929,59.4326 48.9349,59.4326 48.9871,59.6067 48.9581,59.6125 48.9175,59.6144 48.4106,59.6531 48.4029,59.7015 48.3913,59.7459 48.399,59.8233 48.3952,59.8814 48.3952,59.9394 48.3662,59.9994 48.3584,60.0632 48.3545,60.1057 48.3681,60.1541 48.4164,60.1812 48.6041,60.2547 48.608,60.276 48.6254,60.2856 48.6602,60.3185 48.5693,60.3572 48.5538,60.3437 48.5209,60.3495 48.4571,60.3611 48.4397,60.3669 48.4706,60.3824 48.5054,60.3746 48.5132,60.394 48.4029,60.4404 48.4106,60.4655 48.3874,60.4771 48.4406,60.5082 48.4333,60.5521 48.4077,60.6105 48.3675,60.7165 48.321,60.8023 48.2896,60.8023 47.9593,60.8292 47.8852,60.8405 47.8807,60.8585 47.8672,60.9034 47.8604,60.9528 47.8402,60.9551 47.7953,60.946 47.7413,60.9663 47.6829,60.9753 47.5728,60.9775 47.5301,61.0 47.4695,61.0045 47.4021,60.9977 47.3571,60.991 47.1347,61.0134 47.0987,61.0112 47.1032,60.973 47.0785,60.9393 47.0089,60.9191 46.9954,60.8517 46.9729,60.8045 46.9437,60.8045 46.9639,60.7865 46.9841,60.7753 46.928,60.6764 46.8898,60.636 46.8561,60.6202 46.8606,60.6 46.8965,60.5933 46.928,60.5865 46.9213,60.5506 46.964,60.5214 46.8561,60.5079 46.8584,60.49 46.7977,60.472 46.7572,60.4697 46.764,60.4563 46.7775,60.4338 46.7078,60.3417 46.7325,60.3372 46.7011,60.2967 46.7078,60.29 46.7123,60.2743 46.6359,60.1956 46.6179,60.2069 46.5258,60.2293 46.427,60.2046 46.3416,60.2248 46.2629,60.2001 46.209,60.2069 46.2,60.1956 46.2015,60.1946 46.2517,60.1597 46.2742,60.0945 46.2562,60.0743 46.3079,60.0541 46.3506,60.0653 46.3933,60.0541 46.4607,60.0361 46.5146,60.0204 46.5595,60.0316 46.5708,60.0159 46.6247,60.0114 46.6359,60.0249 46.6561,60.0316 46.6719,60.0181 46.7348,60.0294 46.7685,60.0541 46.782,60.0496 46.7999,60.0743 46.937,60.0765 46.9415,60.0518 46.8202,59.7979 46.8224,59.7373 47.0134,59.7125 47.0224,59.6946 47.0426,59.6676 47.0133,59.5573 46.9757,59.4372 46.9557,59.3296 47.1534,59.3045 47.1209,59.1819 47.2185,59.1293 47.2986,59.1043 47.3437,59.1193 47.3487,59.0792 47.3712,59.0717 47.4263,59.0342 47.4738,59.0092 47.4613,58.9841 47.4538,58.919 47.4939,58.889 47.5039,58.8615 47.4688,58.8514 47.4188,58.8389 47.3887,58.8339 47.3612,58.8364 47.3637,58.8615 47.3387,58.864 47.2711,58.864 47.2035,58.8615 47.1835,58.8439 47.201,58.8064 47.181,58.7713 47.226,58.7538 47.2135,58.7438 47.1359,58.7013 47.0834,58.7238 47.0233,58.7238 46.9982,58.6988 46.9156,58.6587 46.9081,58.6136 46.8731,58.5611 46.773,58.5536 46.6603,58.531 46.5677,58.516 46.5627,58.5386 46.5277,58.5335 46.4901,58.511 46.4926,58.466 46.4501,58.4284 46.4801,58.4059 46.4826,58.3784 46.4526,58.3683 46.4175,58.3408 46.3374,58.3308 46.3149,58.3058 46.3499,58.3008 46.3725,58.3033 46.375,58.2857 46.3224,58.2657 46.3099,58.2332 46.3174,58.1631 46.2598,58.1406 46.2398,58.0905 46.2098,58.0655 46.2373,58.0529 46.2421,58.0247 46.2744,58.0108 46.3066,57.9855 46.3643,57.9693 46.4081,57.9832 46.4519,57.9901 46.5142,57.9739 46.6272,57.9762 46.8071,57.9739 47.0423,57.9762 47.2222,57.9739 47.2937,57.9739 47.3537,57.9417 47.5174,57.9024 47.6028,57.9117 47.665,57.8564 47.6489,57.8241 47.5751,57.8056 47.5013,57.7826 47.4552,57.7434 47.4759,57.6972 47.4275,57.6673 47.4344,57.635 47.4367,57.6004 47.4298,57.5404 47.386,57.5312 47.3747,57.4838 47.2763,57.4808 47.2655,57.5008 47.2083,57.5044 47.1944,57.5172 47.1419,57.5186 47.1213,57.5013 47.0805,57.4977 47.0074,57.4691 46.8497,57.453 46.7961,57.4674 46.7241,57.4644 46.6826,57.4782 46.6457,57.4759 46.6549,57.4621 46.6756,57.4321 46.7056,57.4228 46.6895,57.3998 46.6687,57.3952 46.6434,57.3744 46.6203,57.3721 46.5903,57.3629 46.6065,57.3398 46.6226,57.349 46.6618,57.3375 46.648,57.3214 46.5811,57.3075 46.5765,57.296 46.6088,57.2522 46.6526,57.2476 46.6872,57.243 46.7056,57.1991 46.7494,57.1853 46.7333,57.1484 46.6664,57.1553 46.6249,57.1484 46.6249,57.1161 46.6641,57.1 46.6595,57.0377 46.6664,56.9777 46.6272,56.9754 46.6134,56.957 46.6503,56.9339 46.6203,56.9178 46.6434,56.9039 46.6018,56.9016 46.6295,56.8809 46.6941,56.8763 46.7702,56.8901 46.8463,56.8993 46.9293,56.867 46.9708,56.8832 47.0608,56.8601 47.0677,56.8048 47.0308,56.7909 47.0746,56.7586 47.0931,56.7863 47.1254,56.784 47.1807,56.7886 47.2569,56.8024 47.3122,56.8163 47.3376,56.8301 47.386,56.8047 47.4022,56.807 47.4137,56.8555 47.4506,56.8647 47.4598,56.8831 47.4829,56.8855 47.5152,56.9224 47.5451,56.9385 47.5867,56.9662 47.6259,56.9546 47.6697,56.95 47.6651,56.9685 47.6259,56.9915 47.6282,57.0008 47.6697,57.0146 47.6974,57.0008 47.7158,56.9662 47.7458,56.9385 47.7827,56.9477 47.8127,56.9247 47.8196,56.9639 47.845,56.9569 47.8565,56.9316 47.8795,56.9247 47.8888,56.9385 47.8888,56.9639 47.9164,56.9593 47.9441,56.9454 47.9718,56.9569 47.9902,56.9523 48.041,56.9523 48.0571,56.9708 48.0733,56.9708 48.1056,56.9731 48.1009,56.9985 48.0571,57.0215 48.0687,57.0354 48.1309,57.0354 48.1448,57.0607 48.0917,57.07 48.0963,57.0792 48.1494,57.0838 48.1817,57.0953 48.1863,57.1138 48.2001,57.1207 48.2555,57.1069 48.2647,57.0884 48.304,57.085 48.327,57.085 48.3501,57.0689 48.417,57.1023 48.4262,57.115 48.4423,57.1208 48.4804,57.1219 48.4919,57.1127 48.5288,57.1046 48.5715,57.1046 48.5807,57.13 48.6407,57.1242 48.7352,57.1115 48.7295,57.0919 48.7641,57.0781 48.7594,57.0585 48.7422,57.0424 48.7872,57.0297 48.8414,57.0343 48.8771,57.0527 48.9013,57.0689 48.9025,57.0839 48.9059,57.1323 48.9163,57.145 48.9428,57.1484 48.9463,57.1657 48.929,57.1727 48.9117,57.175 48.9071,57.2119 48.9267,57.2407 48.9797,57.2465 49.004,57.2557 49.0443,57.2707 49.0789,57.281 49.0881,57.2753 49.1031,57.258 49.1262,57.2476 49.1262,57.2361 49.0997,57.2269 49.0881,57.2072 49.0789,57.1796 49.0835,57.1623 49.0766,57.1554 49.042,57.1323 49.0397,57.115 49.0524,57.0954 49.102,57.085 49.1296,57.0793 49.1285,57.0389 49.155,57.002 49.23,56.9882 49.3061,56.9731 49.328,56.9777 49.3199,56.9893 49.3119,57.0043 49.3592,57.0089 49.3753,57.0066 49.4133,57.0089 49.4283,57.0239 49.5137,57.0216 49.6036,57.0239 49.6163,57.0192 49.6036,56.9904 49.6071,56.9812 49.6209,56.9789 49.6244,56.942 49.6509,56.9385 49.6624,56.9155 49.6198,56.8832 49.6567,56.8682 49.6324,56.8532 49.6394,56.8428 49.6993,56.8382 49.742,56.844 49.7731,56.8428 49.8562,56.8128 49.9138,56.8163 49.9253,56.8128 49.9703,56.7817 49.9622,56.7483 49.9726,56.7379 49.998,56.7471 50.0072,56.7148 49.983,56.6698 49.9795,56.6479 49.9692,56.6157 49.9818,56.5995 49.9738,56.573 50.0414,56.5657 50.0652,56.5752 50.0795,56.6062 50.0985,56.6109 50.1318,56.6109 50.1628,56.5919 50.1961,56.5895 50.2176,56.599 50.2033,56.6205 50.2176,56.63 50.2533,56.6205 50.2985,56.5943 50.3128,56.5681 50.3128,56.5419 50.3414,56.5371 50.3509,56.5633 50.37,56.5705 50.3938,56.5633 50.3462,56.5085 50.3485,56.4919 50.4009,56.4562 50.4009,56.4323 50.4152,56.4109 50.4462,56.3776 50.4867,56.349 50.5224,56.3609 50.5248,56.3514 50.5128,56.3228 50.4795,56.3085 50.4914,56.3038 50.5224,56.3061 50.5724,56.2895 50.6295,56.2823 50.6748,56.3014 50.6867,56.3157 50.6581,56.3514 50.6867,56.3633 50.7224,56.3419 50.7534,56.3395 50.7795,56.3085 50.7653,56.2966 50.7795,56.2704 50.8057,56.2633 50.7986,56.2276 50.7557,56.2204 50.7557,56.2109 50.7391,56.2085 50.7367,56.1918 50.7915,56.168 50.8557,56.149 50.9272,56.1013 50.9629,56.0894 50.97,56.0728 51.0129,56.1013 51.1058,56.0918 51.1129,56.0513 51.1725,56.0466 51.1915,56.0228 51.2367,56.0228 51.2367,56.0418 51.2677,56.0775 51.3377,56.0921 51.4006,56.08 51.4683,56.0994 51.5385,56.1042 51.5506,56.0873 51.5143,56.0583 51.3958,56.0292 51.3474,55.9784 51.3039,55.947 51.3111,55.8914 51.3426,55.8744 51.3692,55.8865 51.4659,55.8986 51.4925,55.8938 51.5409,55.9035 51.5893,55.8865 51.611,55.9131 51.628,55.9156 51.6304,55.8841 51.6715,55.8696 51.6763,55.8357 51.6884,55.8309 51.7102,55.8599 51.7513,55.8769 51.8191,55.8914 51.8263,55.9301 51.8578,55.9349 51.8771,55.9107 51.9255,55.9107 51.9715,55.8817 51.9449,55.8648 51.9545,55.8454 52.073,55.8454 52.0972,55.889 52.148,55.8817 52.1529,55.9131 52.1021,55.9397 52.1117,55.9809 52.1504,55.9905 52.1432,56.0171 52.1142,56.0026 52.09,56.0026 52.0755,56.0196 52.0972,56.0317 52.1674,56.0365 52.1795,56.0196 52.1891,56.0244 52.2133,56.0268 52.2496,55.9857 52.3198,55.9954 52.3343,55.9809 52.3826,55.9833 52.3512,56.0147 52.3706,56.0244 52.4528,56.0171 52.5616,55.9664 52.6269,56.0171 52.6197,56.0558 52.6003,56.0679 52.5931,56.097 52.6342,56.0897 52.6366,56.0752 52.6681,56.0679 52.6874,56.0462 52.7334,56.0413 52.7527,56.0704 52.7164,56.08 52.743,56.1139 52.7068,56.1332 52.7189,56.1526 52.6463,56.1599 52.6076,56.184 52.5616,56.1744 52.5495,56.1889 52.4746,56.1744 52.46,56.2131 52.5036,56.2397 52.535,56.2397 52.5326,56.2566 52.5495,56.2711 52.5834,56.3026 52.6415,56.3243 52.6245,56.3437 52.6753,56.3606 52.7213,56.3364 52.7576,56.3534 52.8132,56.3679 52.8325,56.3872 52.8543,56.3945 52.8543,56.4187 52.7406,56.4525 52.7285,56.4767 52.8156,56.4501 52.8398,56.467 52.8325,56.4936 52.8954,56.4912 52.9559,56.4719 52.9922,56.484 52.9922,56.4646 52.9656,56.4501 52.9632,56.4235 52.8954,56.3703 52.835,56.3219 52.8809,56.3025 52.8422,56.259 52.8592,56.2518 52.8761,56.23 52.8568,56.2082 52.9003,56.1768 52.893,56.1429 52.9196,56.1308 52.939,56.1574 52.9656,56.1332 52.939,56.097 52.9632,56.0824 52.9849,56.0994 53.043,56.1139 53.0623,56.0728 53.1277,56.0679 53.1567,56.0413 53.2486,56.0316 53.2438,56.0655 53.2389,56.1042 53.1954,56.155 53.1567,56.1913 53.1881,56.2179 53.2994,56.2276 53.3526,56.2179 53.4493,56.1961 53.4397,56.1598 53.4566,56.1357 53.4373,56.0776 53.3671,56.0655 53.3163,55.9833 53.251,55.9373 53.2075,55.8986 53.1639,55.8865 53.0841,55.8889 53.0841,55.8696 53.2026,55.8019 53.3599,55.8357 53.5316,55.8648 53.5703,55.8696 53.6162,55.8357 53.6719,55.8357 53.7203,55.8236 53.7807,55.8309 53.8194,55.7922 53.8775,55.8019 53.9016,55.785 53.8799,55.7777 53.8702,55.7656 53.8629,55.7342 53.8823,55.7293 53.9307,55.7535 53.9524,55.739 53.9234,55.7076 53.9476,55.6906 53.9984,55.7318 54.0081,55.7052 54.0661,55.6616 54.1338,55.6423 54.1338,55.6278 54.0855,55.6036 54.0831,55.5745 54.0444,55.5673 53.9839,55.5383 53.9065,55.5092 53.8896,55.4826 53.8944,55.4415 53.8605,55.4294 53.8267,55.4028 53.8291,55.3762 53.8049,55.3375 53.7468,55.3157 53.6114,55.2891 53.5799,55.2335 53.5098,55.2166 53.505,55.1827 53.4856,55.1609 53.3985,55.1513 53.3477,55.1706 53.2824,55.1682 53.2413,55.1488 53.2437,55.1222 53.2147,55.1101 53.1518,55.115 53.043,55.1005 53.043,55.0521 53.1035,55.0279 53.1567,55.0085 53.1567,54.9723 53.1688,54.9602 53.205,54.9505 53.297,54.9553 53.3477,54.9021 53.3913,54.8489 53.4348,54.8271 53.5001,54.8562 53.5388,54.8441 53.5171,54.8223 53.4808,54.7667 53.5098,54.7594 53.505,54.7376 53.4856,54.7352 53.4759,54.7159 53.4759,54.6965 53.505,54.6844 53.5025,54.653 53.43,54.5877 53.3647,54.5393 53.3139,54.5127 53.3139,54.4934 53.3235,54.4643 53.3211,54.4401 53.2921,54.4063 53.2921,54.3845 53.2582,54.3603 53.2437,54.3386 53.2558,54.3047 53.2969,54.2466 53.3381,54.2176 53.3066,54.1741 53.3356,54.1378 53.326,54.0967 53.3574,54.0676 53.3574,54.0314 53.3719,53.9927 53.309,53.9782 53.2848,53.9153 53.251,53.9298 53.2437,53.954 53.1808,53.9806 53.1857,54.0072 53.1687,54.0241 53.1083,54.0289 53.0913,54.0435 53.0236,54.0193 52.9656,54.0193 52.9922,54.0676 52.9365,54.0725 52.8422,54.162 52.8519,54.1813 52.9099,54.1692 52.9438,54.1862 53.0091,54.2031 53.0115,54.2442 52.9486,54.2878 52.9003,54.2587 52.9365,54.237 52.922,54.2152 52.8761,54.22 52.8374,54.22 52.7793,54.2225 52.7963,54.2442 52.8374,54.237 52.835,54.266 52.7866,54.266 52.7334,54.2757 52.6366,54.3047 52.5689,54.3119 52.5254,54.2829 52.5036,54.3071 52.4371,54.3301 52.406,54.3435 52.3927,54.3612 52.4082,54.3879 52.3882,54.4123 52.3482,54.4257 52.3083,54.4212 52.3038,54.3879 52.2816,54.3635 52.2483,54.3724 52.266,54.3857 52.266,54.4101 52.2172,54.4035 52.1505,54.399 52.1038,54.3879 52.1038,54.3568 52.0861,54.3568 52.0105,54.3524 52.0016,54.3279 52.0172,54.3124 52.0172,54.2968 51.9883,54.2879 51.9661,54.3057 51.9527,54.3635 51.915,54.3857 51.8839,54.3768 51.8305,54.3812 51.8417,54.4212 51.8394,54.4679 51.8105,54.4879 51.7484,54.4834 51.6551,54.499 51.5707,54.5167 51.504,54.5567 51.424,54.599 51.3951,54.5501 51.2951,54.539 51.2929,54.5723 51.3018,54.6212 51.264,54.619 51.1685,54.5812 51.1218,54.6012 51.0596,54.5901 51.0374,54.5545 50.9974,54.5034 50.9685,54.5012 50.9085,54.5034 50.8908,54.4501 50.9152,54.4279 50.8952,54.4123 50.8885,54.3657 50.8463,54.3346 50.8508,54.2946 50.8108,54.2946 50.7774,54.3234 50.7086,54.3257 50.5997,54.379 50.5241,54.3501 50.4664,54.2968 50.4019,54.2901 50.3886,54.3257 50.3731,54.3701 50.3242,54.3768 50.2953,54.4345 50.2553,54.4301 50.2553,54.4145 50.2131,54.3945 50.1575,54.3945 50.1198,54.4545 50.042,54.4545 49.9798,54.4634 49.9398,54.4768 49.8813,54.4552 49.863,54.4715 49.8447,54.4857 49.8265,54.4836 49.7615,54.4816 49.6965,54.5141 49.6132,54.5263 49.5238,54.51 49.4588,54.5222 49.4832,54.5425 49.4669,54.5568 49.408,54.5669 49.4182,54.5913 49.4588,54.6055 49.4568,54.6218 49.3958,54.64 49.3918,54.6543 49.4304,54.6685 49.3958,54.6807 49.3735,54.7335 49.3166,54.7477 49.3065,54.7782 49.2841,54.7904 49.2658,54.7863 49.2435,54.7924 49.1744,54.8411 49.15,54.829 49.1561,54.8066 49.1257,54.7924 49.0891,54.8046 49.0363,54.7863 49.0363,54.7538 49.0079,54.7416 48.9388,54.7497 48.8779,54.7233 48.7864,54.6522 48.7194,54.5974 48.6808,54.5974 48.5508,54.6055 48.4554,54.6055 48.3782,54.5791 48.2664,54.6461 48.24,54.6522 48.1994,54.6279 48.1649,54.6421 48.1954,54.6644 48.1994,54.6908 48.1486,54.6868 48.0694,54.6766 48.0186,54.6868 47.9963,54.7111 47.9719,54.7193 47.9435,54.6908 47.9191,54.6847 47.8907,54.699 47.846,54.6766 47.8094,54.6015 47.7383,54.5933 47.7119,54.6157 47.7424,54.638 47.7464,54.6665 47.7241,54.6847 47.6611,54.6868 47.6408,54.6807 47.653,54.6705 47.6449,54.6461 47.6144,54.6218 47.5738,54.5791 47.5453,54.5608 47.5514,54.5202 47.4844,54.4877 47.4397,54.4918 47.3828,54.504 47.3402,54.4857 47.3138,54.4511 47.265,54.4654 47.2589,54.4958 47.2427,54.5547 47.2163,54.5832 47.2528,54.5913 47.2589,54.6177 47.2061,54.6319 47.2081,54.6583 47.0833,54.6053 47.0477,54.6095 46.9928,54.64 46.9359,54.6319 46.8669,54.6258 46.7673,54.5791 46.7267,54.5852 46.7145,54.6136 46.6739,54.6258 46.5866,54.6278 46.5459,54.6481 46.4281,54.705 46.3448,54.7192 46.3306,54.6908 46.3306,54.6583 46.3672,54.6238 46.4261,54.5953 46.3367,54.5364 46.3509,54.5202 46.4281,54.5445 46.4383,54.5324 46.422,54.5222 46.4403,54.5019 46.3773,54.447 46.3875,54.441 46.4403,54.4491 46.4911,54.4592 46.483,54.4328 46.4322,54.4186 46.4119,54.4024 46.4484,54.3475 46.5338,54.3597 46.6292,54.3374 46.6414,54.3069 46.6191,54.2581 46.5338,54.2358 46.4748,54.2074 46.4302,54.2155 46.3814,54.2053 46.3367,54.1728 46.2433,54.1484 46.227,54.1545 46.2027,54.1566 46.1844,54.1322 46.1295,54.1322 46.0625,54.1058 45.9467,54.118 45.8837,54.0997 45.8594,54.0509 45.8269,54.0266 45.7944,53.9758 45.7599,53.9575 45.703,53.9392 45.7416,53.9149 45.8107,53.9372 45.8574,53.9636 45.9244,53.9453 45.9325,53.9271 45.9894,53.925 46.0199,53.8966 46.0971,53.8763 46.1154,53.8377 46.0889,53.8113 46.1194,53.7706 46.1885,53.7585 46.1641,53.7138 46.1804,53.7016 46.2352,53.7158 46.2982,53.6224 46.3814,53.6041 46.4018,53.5716 46.3652,53.5594 46.3713,53.5025 46.3855,53.5005 46.4058,53.4802 46.3835,53.4639 46.4261,53.4518 46.4708,53.4253 46.5541,53.4355 46.5866,53.4294 46.5785,53.3949 46.6151,53.3949 46.6354,53.3685 46.6902,53.3624 46.7085,53.3339 46.7349,53.3339 46.7552,53.3075 46.8019,53.2974 46.804,53.2466 46.8365,53.2385 46.8466,53.206 46.7816,53.1958 46.7674,53.1389 46.7694,53.1207 46.8507,53.141 46.871,53.1288 46.8283,53.1003 46.8486,53.078 46.806,53.0333 46.8344,52.8688 46.8019,52.8424 46.8019,52.8139 46.8751,52.7916 46.8547,52.753 46.8933,52.7185 46.8669,52.7124 46.8283,52.7103 46.808,52.6778 46.7552,52.6758 46.7126,52.6352 46.728,52.5691 46.6572,52.5716 46.5913,52.5893 46.5483,52.607 46.5129,52.6248 46.5179,52.6729 46.48,52.683 46.4572,52.6577 46.399,52.645 46.3154,52.6349 46.3104,52.6197 46.2597,52.6298 46.2015,52.6324 46.1737,52.602 46.1813,52.5767 46.1636,52.564 46.1281,52.5716 46.1028,52.5488 46.0598,52.5564 46.0497,52.5438 46.0547,52.5159 46.0395,52.4982 46.0117,52.5058 45.9864,52.5134 45.9687,52.4855 45.8927,52.4552 45.8674,52.4349 45.9079,52.4223 45.913,52.4045 45.8775,52.3868 45.8851,52.3539 45.8066,52.3716 45.7484,52.3868 45.6826,52.3944 45.6598,52.4121 45.6143,52.4071 45.6193,52.4425 45.6396,52.4704 45.5839,52.4628 45.5282,52.4704 45.4826,52.4349 45.427,52.4324 45.4143,52.3818 45.3713,52.3818 45.3409,52.3514 45.2979,52.364 45.2523,52.3691 45.1688,52.3387 45.0903,52.3615 45.0371,52.3666 44.9891,52.3337 44.9713,52.321 44.9992,52.3008 44.9435,52.2653 44.8776,52.3184 44.8194,52.3184 44.7966,52.3437 44.784,52.3868 44.7181,52.4019 44.6751,52.4247 44.6144,52.4247 44.5612,52.4323 44.5207,52.4526 44.4473,52.5032 44.3967,52.4754 44.4372,52.4399 44.4119,52.4121 44.4448,52.3792 44.3941,52.3741 44.3106,52.3614 44.2878,52.3133 44.2347,52.2982 44.2575,52.2703 44.222,52.2653 44.0879,52.2956 44.0625,52.2779 43.9107,52.3032 43.8195,52.3488 43.7537,52.3488 43.6803,52.3868 43.5538,52.3614 43.4576,52.3741 43.3664,52.3488 43.2854,52.3463 43.2323,52.3437 43.2044,52.3969 43.1083,52.4146 43.0551,52.4019 43.0197,52.3538 42.9719,52.3533 42.9524,52.3489 42.922,52.3294 42.9025,52.3142 42.8657,52.3229 42.8331,52.3294 42.8179,52.3099 42.8266,52.286 42.8288,52.26 42.8006,52.2361 42.7572,52.1906 42.703,52.1646 42.6509,52.1299 42.6531,52.0583 42.6531,52.0214 42.6878,51.9802 42.7117,51.9607 42.6466,51.9564 42.5902,51.9065 42.5859,51.8111 42.5165,51.7373 42.382,51.6419 42.3799,51.6115 42.4124,51.579 42.3885,51.5573 42.5924,51.4445 42.677,51.3827 42.763,51.3213 42.7261,51.2784 42.8059,51.1802 42.763,51.1863 42.6463,51.1863 42.5175,51.1433 42.4377,51.1127 42.2904,51.1065 42.0449,51.082 41.8792,51.1372 41.7564,51.1311 41.6766,51.0329 41.603,50.9408 41.4373,50.8978 41.2654,50.8426 41.2715,50.7689 41.1733,50.7628 41.0445,50.7198 41.2347,50.6462 41.3022,50.5664 41.4311,50.5541 41.425,50.5173 41.3206,50.4743 41.3206,50.4252 41.3882,50.37 41.4127,50.3209 41.2654,50.1797 41.382,50.0324 41.4925,50.0079 41.4802,49.9342 41.5784,49.8974 41.7564,49.8545 41.8423,49.7992 42.0878,49.6273 42.0449,49.5844 42.008,49.4739 41.9774,49.4616 41.9467,49.3512 41.9774,49.3266 41.9896,49.2407 41.9283,49.2345 41.9589,49.1732 42.0019,49.0872 42.2106,49.1118 42.272,49.0811 42.2904,48.989 42.3763,49.0075 42.5604,48.9277 42.5604,48.8602 42.585,48.8172 42.6463,48.7435 42.5543,48.6638 42.5543,48.6331 42.5911,48.5471 42.5481,48.4919 42.1369,48.4367 41.9774,48.3507 42.051,48.228 41.9405,48.2157 41.9651,48.1666 42.0019,48.1114 41.9528,48.0807 41.9221,48.007 41.9589,47.9763 42.0756,47.9886 42.1799,47.9702 42.2229,48.0009 42.272,47.9702 42.364,47.9763 42.6463,47.7922 42.72,47.6326 42.8305,47.4669 42.8918,47.4669 42.9409,47.5283 43.0637,47.5283 43.0576,47.4362 43.211,47.4117 43.432,47.4362 43.567,47.3994 43.6161,47.4362 43.5363,47.5099 43.6038,47.6449 43.7081,47.7063 43.8554,47.7063 43.9598,47.7738 43.9168,47.8106 43.9843,47.8658 44.2912,47.8106 44.2851,47.8842 44.3587,47.9149 44.3649,47.9947 44.2176,48.0192 44.1869,48.1665 44.2176,48.2095 44.4447,48.1481 44.4385,48.007 44.5244,48.007 44.549,48.0438 44.7024,48.0008 44.8436,48.099 44.819,48.1543 44.8436,48.1727 45.0154,48.0683 45.1934,48.0499 45.31,48.0561 45.4451,47.9579 45.6046,48.0008 45.6353,47.9394 45.6046,47.8719 45.6046,47.8167 45.666,47.786 45.7213,47.6755 45.801,47.6571 45.8195,47.6019 45.9606,47.4914 46.2429,47.3871 46.5682,47.5957 46.7278,47.5221 46.4087,47.3564 46.7094,46.9452 46.826,46.9452 46.8751,46.804 47.0224,46.8101 47.1513,46.6874 47.0347,46.6321 46.8997,46.583 46.8322,46.5094 46.8628,46.3682 46.5682,46.3928 46.378,46.2271 46.7831,46.1964 46.7278,46.0245 47.0286,46.0736 47.0899,46.0429 46.9488,45.9386 46.8076,45.5151 47.2495,45.6379 47.452,45.4476 47.4533,45.4448 47.4534,45.4431 47.4153,45.3673 47.3552,45.3116 47.3049,45.1818 47.1749,45.0045 47.0693,44.8892 47.0505,44.8145 47.0076,44.7326 46.9671,44.7793 46.9222,44.7576 46.9039,44.7353 46.8833,44.7181 46.8211,44.6978 46.7907,44.6758 46.7075,44.641 46.6498,44.552 46.6149,44.4649 46.6333,44.3975 46.6483,44.375 46.6951,44.3417 46.7369,44.3382 46.766,44.346 46.9236,44.316 46.9464,44.3106 46.9718,44.2975 46.9911,44.2681 46.9976,44.2445 47.0193,44.1997 47.0894,44.1518 47.1145,44.1524 47.1998,44.0937 47.284,43.977 47.4241,43.7608 47.4348,43.7204 47.3854,43.6316 47.3264,43.5591 47.3023,43.5637 47.2976,43.5402 47.339,43.4538 47.3725,43.4539 47.3967,43.4823 47.3982,43.5221 47.4073,43.5848 47.4565,43.707 47.4726,43.7428 47.476,43.7655 47.4715,43.799 47.4844,43.8229 47.522,43.8427 47.5428,43.8506 47.5695,43.8511 47.6179,43.8198 47.5826,43.7853 47.5693,43.7665 47.5409,43.7142 47.5187,43.6728 47.5001,43.6355 47.4888,43.6069 47.4666,43.5486 47.4589,43.5248 47.4213,43.4072 47.4178,43.3778 47.4261,43.2831 47.4691,43.2672 47.491,43.2779 47.5133,43.2732 47.5198,43.2426 47.4714,43.1945 47.4351,43.1815 47.4217,43.167 47.3886,43.0407 47.4003,42.9653 47.472,42.9047 47.5488,42.8558 47.5701,42.8437 47.5902,42.837 47.6274,42.8188 47.6457,42.7791 47.6543,42.7254 47.6524,42.6985 47.6424,42.6736 47.6664,42.5944 47.6881,42.5767 47.7327,42.5656 47.7716,42.5577 47.799,42.5402 47.8208,42.5135 47.831,42.4957 47.8425,42.4723 47.8587,42.4411 47.8825,42.4107 47.9578,42.3388 47.9745,42.3254 48.0206,42.3041 48.0473,42.2826 48.2394,42.0454 48.2527,42.0103 48.2565,41.9886 48.3006,41.904 48.3277,41.8728 48.3574,41.8555 48.3811,41.8493 48.4125,41.8437 48.4391,41.8411 48.4757,41.8332 48.5172,41.7887 48.4645,41.7201 48.3703,41.5923 48.353,41.562 48.3331,41.5422 48.3116,41.5278 48.1824,41.4623 48.1623,41.4549 48.12,41.4456 48.0839,41.4414 48.0399,41.4335 48.0044,41.4172 47.8926,41.3093 47.8426,41.2315 47.8562,41.2051 47.8499,41.1786 47.7936,41.1615 47.7304,41.1523 47.6952,41.1501 47.6559,41.164 47.5863,41.1889 47.5654,41.1856 47.5342,41.1687 47.5108,41.1647 47.3062,41.2253 47.2098,41.2744 47.1961,41.3278 47.1943,41.3735 47.0937,41.5162 47.0646,41.5296 47.0276,41.5225 46.9568,41.5715 46.8759,41.637 46.7973,41.6878 46.7423,41.7219 46.7098,41.7485 46.7048,41.7837 46.6972,41.8131 46.5778,41.7705 46.5005,41.8345 46.441,41.8463 46.3878,41.8498 46.3824,41.8572 46.3617,41.8754 46.3363,41.8908 46.1754,41.9534 45.9906,41.9775 45.9234,41.9811 45.5919,42.1524 45.575,42.1727 45.5878,42.2042 45.6265,42.2713 45.6442,42.3083 45.6944,42.4174 45.697,42.4301 45.6877,42.4396 45.6644,42.4568 45.6374,42.4682 45.5129,42.4981 45.4898,42.5022 45.4638,42.5029 45.4251,42.4998 45.3693,42.4895 45.305,42.4792 45.2793,42.4927 45.2707,42.5108 45.2566,42.5301 45.1793,42.6027 45.1494,42.628 45.1025,42.6551 45.0805,42.6605 45.0577,42.6586 45.0291,42.6493 45.0038,42.6452 44.9834,42.6477 44.9476,42.6664 44.9119,42.6887 44.8926,42.7021 44.8688,42.713 44.8317,42.7134 44.7975,42.6986 44.7464,42.617 44.7037,42.6224 44.6888,42.6447 44.6435,42.6789 44.6163,42.6934 44.5869,42.7005 44.5764,42.7007 44.5677,42.7041 44.532,42.7101 44.4963,42.7115 44.4654,42.7082 44.4379,42.7027 44.3078,42.6599 44.1798,42.6079 44.162,42.5904 44.1339,42.5791 43.8511,42.5353 43.7165,42.556 43.6792,42.6014 43.7021,42.6249 43.7453,42.6539 43.7731,42.6809 43.7684,42.701 43.6958,42.7275 43.644,42.7325 43.6104,42.7427 43.5805,42.7615 43.5612,42.785 43.5372,42.7981 43.5001,42.8125 43.4723,42.8199 43.3868,42.8409 43.3329,42.8515 43.3175,42.8522 43.1473,42.8857 43.1241,42.896 43.0793,42.9182 42.9509,43.0152 42.8894,43.0728 42.7957,43.129 42.7102,43.137 42.6357,43.1315 42.6107,43.1105 42.5867,43.0958 42.5603,43.0968 42.4739,43.133 42.4247,43.1705 42.4013,43.1813 42.3652,43.1898 42.321,43.1901 42.3052,43.1887 42.2119,43.1893 42.1306,43.1877 42.1107,43.1823 42.0525,43.1484 41.9729,43.1388 41.5397,43.1726 41.5072,43.1835 41.3781,43.247 41.1565,43.3297 41.1358,43.3355 41.111,43.3381 41.0698,43.3353 41.0117,43.324 40.9841,43.3272 40.9571,43.3415 40.904,43.3746 40.8332,43.4164 40.8072,43.4279 40.7775,43.4343 40.7542,43.4379 40.687,43.4576 40.6622,43.4703 40.6393,43.4938 40.6238,43.497 40.5864,43.4946 40.5515,43.4795 40.5207,43.463 40.4866,43.4594 40.4622,43.4626 40.4324,43.4686 40.2966,43.51 40.2684,43.5204 40.2385,43.5267 40.1972,43.5334 40.1553,43.5354 40.1141,43.5318 40.0708,43.523 40.0428,43.5132 40.0253,43.5018 39.9654,43.3952 39.9535,43.3628 39.9472,43.3301 39.8901,43.3477 39.8614,43.364 39.8371,43.416 39.8192,43.4419 39.7901,43.4612 39.6413,43.5523 39.535,43.6252 39.4168,43.7082 39.3993,43.7216 39.3622,43.7603 39.3371,43.7944 39.3219,43.81 39.2322,43.8773 38.9972,44.0305 38.9098,44.0974 38.8752,44.11 38.8465,44.1146 38.8216,44.1207 38.7902,44.1398 38.7607,44.1645 38.7181,44.2106 38.6996,44.2233 38.5459,44.2793 38.5172,44.2836 38.36,44.2999 38.2974,44.3046 38.2707,44.3094 38.1665,44.3335 38.1441,44.339 38.1223,44.3503 38.1054,44.3656 38.0927,44.3904 38.0802,44.4162 38.0627,44.4387 37.8124,44.6422 37.7301,44.6728 37.7463,44.6397 37.7697,44.613 37.7607,44.5875 37.7058,44.5792 37.504,44.6035 37.4317,44.6207 37.322,44.692 37.2469,44.8087 37.2443,44.821 37.2572,44.8426 37.2241,44.8801 37.1509,44.9288 36.8308,45.0345 36.6654,45.0479 36.5745,45.076 36.5293,45.1412 36.6184,45.1541 36.6513,45.1486 36.6772,45.1521 36.7852,45.1767 36.8371,45.1957 36.9106,45.2277 36.9151,45.256 36.7184,45.3322 36.6677,45.3105 36.6466,45.2902 36.6187,45.2809 36.6288,45.3079 36.6736,45.3462 36.6998,45.3625 36.7761,45.3841 36.8447,45.372 37.0423,45.2889 37.0158,45.1995 37.0584,45.1832 37.1021,45.1881 37.1742,45.1974 37.2617,45.224 37.159,45.2474 37.152,45.2726 37.2648,45.27 37.3457,45.2648 37.382,45.2719 37.4095,45.2833 37.4311,45.2952 37.4684,45.3105 37.5443,45.2763 37.6607,45.2447 37.6821,45.2475 37.6879,45.3316 37.6487,45.5059 37.5899,45.5348 37.5719,45.5158 37.5946,45.4684 37.5937,45.4 37.5788,45.3723 37.555,45.3638 37.5313,45.3756 37.5385,45.5756 37.5496,45.5985 37.5779,45.6061 37.5927,45.5771 37.6168,45.5635 37.6521,45.5686 37.65,45.5763 37.6129,45.6082 37.64,45.6263 37.667,45.6395 37.7568,45.6879 37.7815,45.7094 37.7983,45.7309 37.8153,45.7647 37.8238,45.7867 37.831,45.8204 37.8376,45.8705 37.8593,45.9353 37.874,45.9591 37.8979,45.9798 37.9985,46.0066 38.0228,46.0068 38.0419,45.9999 38.0169,45.9015 38.0418,45.8928 38.1079,46.0511 38.1222,46.0658 38.1426,46.0772 38.1669,46.0833 38.2126,46.0783 38.2604,46.0452 38.3017,46.0207 38.3524,45.9927 38.3999,45.9739 38.4936,45.9743 38.5121,45.9909 38.5164,46.0386 38.4608,46.0768 38.3707,46.1149 38.2909,46.1464 38.242,46.166 38.2261,46.1909 38.2136,46.2198 38.1071,46.2956 38.0335,46.3372 38.0131,46.3438 37.9297,46.3405 37.9507,46.3146 37.9396,46.2929 37.8443,46.3544 37.7705,46.4272 37.684,46.6141 37.7234,46.6019 37.7518,46.5834 37.7919,46.5699 37.8198,46.5683 37.9469,46.5658 37.9715,46.5675 38.001,46.5778 38.0458,46.6151 38.0677,46.628 38.2132,46.6709 38.2364,46.651 38.248,46.6259 38.3335,46.5997 38.4029,46.5875 38.5303,46.604 38.527,46.6426 38.5034,46.6593 38.4284,46.6859 38.363,46.6899 38.3391,46.6812 38.3297,46.658 38.3121,46.6917 38.356,46.7735 38.4121,46.8051 38.4356,46.8069 38.5845,46.8057 38.6189,46.8076 38.6475,46.808 38.7226,46.8284 38.7454,46.836 38.859,46.8843 38.9346,46.9236 38.9594,46.9401 39.019,46.9735 39.128,46.9665 39.204,46.9547 39.2238,46.9634 39.2441,47.0233 39.2215,47.1772 39.2132,47.1959 39.1954,47.2094 39.0368,47.2265 39.0116,47.2238 38.9013,47.2003 38.8749,47.1633 38.7552,47.1085 38.706,47.1053 38.6041,47.082 38.5047,47.0576 38.4681,47.063 38.4315,47.0743 38.4489,47.1083 38.5075,47.1619 38.544,47.1707 38.6212,47.1826 38.688,47.1881 38.7132,47.1993 38.6193,47.1946 38.5496,47.1864 38.5269,47.1809 38.4904,47.1662 38.4684,47.1532 38.4335,47.1169 38.3974,47.0814 38.2994,47.068 38.2791,47.0658 38.2589,47.0718 38.1812,47.0556 38.1713,47.0741 38.1604,47.1338 38.1726,47.1569 38.1992,47.1743 38.2466,47.2473 38.1687,47.286 38.2259,47.4518 38.2462,47.5007 38.2989,47.5541 38.3987,47.5743 38.4414,47.5728 38.4821,47.5736 38.5224,47.5779 38.5549,47.5849 38.7026,47.635 38.715,47.6664 38.7342,47.7241 38.7669,47.7836 38.7903,47.802 38.8113,47.8097 38.8414,47.8136 38.8687,47.8135 38.9821,47.8109 39.0623,47.7828 39.0855,47.7798 39.1327,47.7882 39.1985,47.7981 39.2974,47.7976 39.3278,47.7908 39.3531,47.777 39.3755,47.7769 39.423,47.7848 39.5481,47.7844 39.5863,47.7779 39.6267,47.7689 39.6743,47.7647 39.7073,47.7745 39.7239,47.7876 39.7461,47.8138 39.7604,47.9195 39.7426,47.9461 39.7189,47.9692 39.846,48.1264 39.8597,48.1433 39.8833,48.162 39.9411,48.2421 39.8639,48.313 39.8095,48.4485 39.7911,48.5015 39.7572,48.5222 39.7325,48.5281 39.703,48.5268 39.6748,48.5269 39.6025,48.5482 39.6463,48.663 39.6694,48.7063 39.7247,48.7469 39.7502,48.7638 39.7709,48.7688 39.7988,48.7653 39.9632,48.7527 39.9813,48.7643 40.0107,48.7937 40.0165,48.8202 40.0008,48.8349 39.9684,48.8376 39.8918,48.8115 39.7175,48.8452 39.6357,48.9203 39.6401,48.9605 39.6474,48.9798 39.7653,48.9962 39.8592,48.9942 39.8832,49.0083 39.8809,49.0334 39.8925,49.0516 39.9081,49.0675 39.9417,49.0932 39.9956,49.1176 40.0229,49.1274 40.1089,49.1952 40.1199,49.2763 40.1136,49.2961 40.0899,49.314 40.0508,49.3474 40.03,49.3679 39.9956,49.4172 40.0003,49.449 40.0202,49.4739 40.0445,49.4856 40.077,49.4987 40.0899,49.5207 40.0807,49.5443 40.0092,49.5563 39.9839,49.5598 39.9396,49.5556 39.9161,49.5429 39.8953,49.524 39.8717,49.5118 39.8398,49.5026 39.801,49.495 39.7537,49.4936 39.5958,49.5508 39.5715,49.5705 39.5547,49.6117 39.5292,49.6644 39.4118,49.7003 39.3847,49.6995 39.3537,49.6883 39.325,49.6784 39.3017,49.6757 39.2705,49.6799 39.2384,49.6868 39.2083,49.6994 39.19,49.7171 39.1811,49.7455 39.145,49.8138 39.1259,49.8231 39.0639,49.7987 39.0342,49.7741 39.0149,49.7627 38.9139,49.75 38.8842,49.754 38.8634,49.7784 38.8415,49.8042 38.809,49.8173 38.7682,49.824 38.6318,49.878 38.595,49.9015 38.5572,49.9064 38.5306,49.9074 38.4901,49.8973 38.4488,49.8949 38.3276,49.9277 38.3044,49.9434 38.294,49.9652 38.2866,49.9888 38.2723,50.0081 38.2475,50.0161 38.1298,50.0079 38.047,49.8811 37.9678,49.8459 37.9572,49.877 37.9254,49.9119 37.8684,49.9671 37.7666,50.004 37.7366,50.0113 37.6894,50.0226 37.5928,50.1264 37.4056,50.3779 37.3622,50.38 37.2664,50.3706 37.2363,50.354 37.2145,50.3356 37.1895,50.3219 37.1607,50.3117 37.0745,50.2903 37.0034,50.2798 36.9611,50.2889 36.9201,50.2909 36.8362,50.2792 36.7549,50.2563 36.6622,50.2166 36.6384,50.2047 36.6147,50.1856 36.5964,50.1614 36.5534,50.1551 36.5235,50.1594 36.4991,50.1732 36.5051,50.2115 36.4225,50.2432 36.365,50.2558 36.3204,50.2377 36.2991,50.2294 36.2726,50.2228 36.2456,50.2257 36.2244,50.2365 36.1612,50.297 36.145,50.3154 36.134,50.3401 36.0938,50.364 36.0376,50.3731 36.005,50.3769 35.9533,50.381 35.9242,50.3802 35.8731,50.3776 35.8398,50.3753 35.8041,50.3714 35.7737,50.3649 35.6894,50.3271 35.6394,50.2892 35.6276,50.2888 35.591,50.2961 35.5443,50.3153 35.4048,50.4298 35.3876,50.4537 35.3457,50.5833 35.4322,50.6203 35.4069,50.7045 35.3038,50.8697 35.252,50.9016 35.2559,50.9236 35.291,50.9475 35.3164,50.9624 35.3147,50.983 35.2397,51.0007 35.1903,50.9918 35.1682,50.9893 35.1412,50.9894 35.1118,50.9994 35.0971,51.0148 35.0657,51.0927 35.0709,51.1194 35.0651,51.1402 35.0226,51.1615 34.9213,51.1643 34.8905,51.1568 34.8668,51.1385 34.7736,51.1187 34.7477,51.1143 34.7134,51.1122 34.6818,51.1131 34.6554,51.1151 34.6192,51.1194 34.4976,51.1741 34.3539,51.2044 34.3292,51.2044 34.187,51.3722 34.1922,51.4415 34.1818,51.4843 34.1101,51.5548 34.0488,51.588 34.0526,51.6148 34.1446,51.6367 34.2021,51.6411 34.3355,51.6552 34.3725,51.6682 34.3876,51.6948 34.3684,51.7442 34.3302,51.7832 34.2839,51.7964 34.1871,51.8511 34.0757,51.926 34.0302,51.977 34.0203,51.9981 34.0239,52.0608 34.046,52.0846 34.0091,52.1357 33.7782,52.3025 33.7088,52.3079 33.6356,52.2989 33.5754,52.2812 33.5485,52.2712 33.4599,52.2661 33.3647,52.2946 33.3258,52.304 33.1532,52.3179 32.986,52.245 32.9197,52.212 32.8896,52.1931 32.865,52.1871 32.7069,52.197 32.6798,52.2008 32.6491,52.2075 32.5876,52.2287 32.5572,52.24 32.5329,52.2488 32.5011,52.2594 32.4758,52.2635 32.3622,52.2748 32.3381,52.2734 32.3132,52.2583 32.2806,52.1088 32.2473,52.0485 32.1744,52.0192 32.0735,51.9842 31.9457,51.9942 31.8588,52.0091 31.85,52.0329 31.8059,52.0475 31.7752,52.0508 31.7338,52.0474 31.736,52.0637 31.7361,52.0972 31.7152,52.116 31.6515,52.1603 31.5437,52.2523 31.5559,52.2712 31.5787,52.3062 31.5586,52.4303 31.5367,52.5312 31.4547,52.6266 31.5047,52.6402 31.5433,52.6759 31.5368,52.7207 31.5292,52.7432 31.488,52.7933 31.4583,52.7959 31.4342,52.7999 31.3884,52.8181 31.365,52.8315 31.3404,52.8489 31.2164,52.9616 31.2643,52.9896 31.3362,53.0422 31.3242,53.06 31.3323,53.0917 31.3493,53.1266 31.3747,53.1468 31.572,53.1557 31.7251,53.1309 31.7378,53.1082 31.7482,53.0702 31.8667,53.0366 31.9063,53.0325 32.0604,53.0255 32.09,53.0276 32.1712,53.0438 32.2465,53.07 32.3693,53.134 32.3937,53.1531 32.559,53.2508 32.6713,53.2981 32.6831,53.3762 32.6865,53.3964 32.6118,53.4361 32.5877,53.4394 32.5671,53.4376 32.4206,53.4905 32.3905,53.5105 32.3712,53.5389 32.3675,53.5849 32.4521,53.6202 32.4307,53.6495 32.4031,53.6619 32.2762,53.6994 32.0668,53.7573 31.9404,53.7397 31.9187,53.7354 31.883,53.7263 31.8377,53.7152 31.7119,53.7416 31.7266,53.7744 31.7528,53.7935 31.7763,53.8236 31.8044,53.9067 31.8124,53.943 31.7928,53.998 31.7029,54.0416 31.6736,54.0432 31.6229,54.0434 31.4917,54.0799 31.4716,54.0877 31.2763,54.1797 31.258,54.2369 31.2596,54.2778 31.1734,54.3955 31.1462,54.3971 31.0782,54.4149 31.0402,54.4289 31.0348,54.4524 31.059,54.4838 31.0857,54.5127 31.0504,54.5815 30.9562,54.6453 30.8669,54.6873 30.824,54.7049 30.7857,54.717 30.7305,54.7349 30.7424,54.7794 30.7864,54.8581 30.8118,54.8829 30.8553,54.8895 30.8875,54.8995 30.9747,54.9838 30.925,55.0874 30.8909,55.1267 30.8649,55.1359 30.7629,55.2368 30.7785,55.265 30.8046,55.2885 30.8361,55.3103 30.8603,55.3133 30.8832,55.3341 30.8866,55.4304 30.8768,55.5124 30.873,55.5369 30.8612,55.5453 30.8317,55.553 30.7923,55.5491 30.7356,55.5291 30.7042,55.5316 30.6023,55.5951 30.5579,55.6522 30.4386,55.7333 30.4139,55.7396 30.1934,55.7885 29.9205,55.7904 29.8854,55.7872 29.855,55.7801 29.605,55.6996 29.4734,55.6273 29.4338,55.6266 29.3314,55.6944 29.3088,55.7311 29.359,55.8314 29.4046,55.8534 29.359,55.8919 29.1212,55.9495 29.0882,55.9557 29.0089,55.9666 28.9769,55.9631 28.9557,55.9576 28.8147,55.9121 28.7936,55.8851 28.6962,55.89 28.6755,55.9026 28.6569,55.9375 28.6505,55.9676 28.5999,56.025 28.5711,56.0332 28.4785,56.039 28.3295,56.024 28.2988,55.9895 28.2605,55.9851 28.1377,56.0676 28.1188,56.084 28.1343,56.0955 28.1477,56.1149 28.1865,56.21 28.1334,56.3395 28.0984,56.4044 28.0646,56.4505 27.9598,56.5811 27.8942,56.6557 27.8774,56.7267 27.8895,56.7552 27.8112,56.8013 27.7882,56.8083 27.753,56.8107 27.7132,56.8061 27.682,56.8019 27.6523,56.8471 27.7253,56.9894 27.7995,57.112 27.8142,57.1945 27.8057,57.2378 27.7756,57.2556 27.6375,57.3117 27.5569,57.3425 27.5218,57.3501 27.4782,57.3759 27.4934,57.4254 27.4976,57.4678 27.4221,57.4631 27.4001,57.4626 27.3756,57.4637 27.3228,57.4672 27.3135,57.4772 27.2992,57.5203 3732,9.0,Russia 105.2469,66.9106 105.2471,66.9104 105.2919,66.8851 105.3482,66.8519 105.4233,66.8368 105.4883,66.8404 105.5316,66.8497 105.5525,66.8396 105.5742,66.8216 105.6225,66.8122 105.6759,66.8036 105.7178,66.8022 105.7502,66.8022 105.7784,66.7986 105.795,66.7899 105.8,66.7697 105.7871,66.7524 105.7531,66.7336 105.712,66.7119 105.7105,66.6961 105.7315,66.6888 105.7575,66.6859 105.7957,66.6975 105.839,66.7033 105.8693,66.7098 105.8953,66.7062 105.9163,66.6982 105.9184,66.6831 105.8708,66.6643 105.8571,66.6592 105.8636,66.6419 105.8686,66.6231 105.9697,66.6037 105.9776,66.6 105.974,66.5878 105.948,66.5603 105.9646,66.5242 105.9624,66.4975 105.961,66.4809 105.9754,66.4751 106.013,66.4636 106.031,66.4499 106.0317,66.4261 106.0166,66.4116 106.0108,66.4037 106.0454,66.3813 106.0462,66.3748 106.0267,66.3611 105.9552,66.3358 105.9054,66.3344 105.8592,66.3106 105.8549,66.2997 105.8217,66.2781 105.8202,66.2528 105.8178,66.2279 105.8426,66.2155 105.8355,66.196 105.8515,66.1854 105.8444,66.173 105.8568,66.1641 105.8656,66.1553 105.8515,66.1429 105.8462,66.1322 105.8373,66.1074 105.8426,66.0844 105.871,66.0649 105.9188,66.0543 105.979,66.0507 106.0251,66.0507 106.0464,66.0578 106.0712,66.0489 106.0783,66.0419 106.0783,66.0153 106.1031,65.9993 106.1367,65.9816 106.1421,65.9621 106.1722,65.9462 106.1881,65.9249 106.2094,65.9054 106.1917,65.8859 106.2005,65.87 106.2094,65.8523 106.1899,65.8416 106.1864,65.8186 106.2023,65.8097 106.2147,65.792 106.2023,65.7814 106.1952,65.7743 106.2041,65.7637 106.2041,65.7477 106.1881,65.7371 106.1704,65.73 106.1952,65.7069 106.1792,65.691 106.1721,65.6786 106.1721,65.6662 106.1898,65.6467 106.1828,65.6343 106.1597,65.6148 106.1367,65.6059 106.1349,65.59 106.142,65.5652 106.181,65.5546 106.2377,65.5528 106.2962,65.5386 106.344,65.5351 106.3635,65.5315 106.3723,65.528 106.3617,65.5209 106.344,65.512 106.344,65.5085 106.4184,65.5032 106.4326,65.489 106.4255,65.4731 106.4166,65.466 106.4166,65.45 106.5513,65.4341 106.6842,65.4057 106.686,65.3986 106.5974,65.3419 106.5867,65.3278 106.585,65.3047 106.5531,65.2941 106.5637,65.2746 106.5035,65.2711 106.4857,65.2817 106.4663,65.2764 106.3883,65.287 106.3369,65.2905 106.3263,65.2781 106.2767,65.2781 106.2714,65.264 106.243,65.2392 106.1722,65.209 106.1509,65.186 106.1509,65.1559 106.1917,65.1222 106.2253,65.1134 106.236,65.1045 106.22,65.0992 106.158,65.1134 106.1137,65.1098 106.0499,65.0797 106.0092,65.0372 105.9152,65.0301 105.8975,64.9946 105.816,64.9645 105.731,64.945 105.6902,64.9061 105.7522,64.8777 105.8142,64.8476 105.8479,64.7962 105.9241,64.7785 105.9436,64.7519 105.9081,64.7501 105.8213,64.7625 105.7894,64.7838 105.761,64.805 105.7203,64.805 105.6618,64.7944 105.6725,64.7767 105.6795,64.7448 105.7185,64.7342 105.7256,64.72 105.6813,64.7076 105.6636,64.7129 105.6228,64.7182 105.5768,64.7005 105.5555,64.6686 105.5591,64.603 105.6034,64.5729 105.5661,64.5428 105.4953,64.5517 105.4669,64.5641 105.4421,64.5676 105.4244,64.5605 105.4244,64.5499 105.4651,64.5162 105.4403,64.4896 105.4421,64.4701 105.4581,64.4684 105.5165,64.4365 105.5218,64.4081 105.5094,64.394 105.536,64.3691 105.5963,64.3886 105.6228,64.3869 105.6547,64.3798 105.6849,64.3975 105.7168,64.4134 105.7664,64.4134 105.7912,64.3975 105.8638,64.3886 105.8674,64.3603 105.8319,64.3479 105.8089,64.3479 105.7876,64.3248 105.8567,64.3071 105.9187,64.2947 105.9666,64.3178 106.0003,64.3266 106.0605,64.3266 106.1154,64.3408 106.2058,64.339 106.2873,64.3443 106.3156,64.355 106.2997,64.3745 106.2855,64.401 106.3068,64.4152 106.3475,64.4117 106.3901,64.3975 106.4184,64.3585 106.4468,64.3213 106.5035,64.3107 106.5921,64.3195 106.6381,64.3195 106.7001,64.2983 106.7515,64.2859 106.7941,64.2823 106.8118,64.2664 106.8578,64.2593 106.9092,64.2593 106.9943,64.254 107.0191,64.2416 107.0067,64.2062 107.0545,64.1831 107.1502,64.1725 107.2742,64.1991 107.3805,64.2239 107.478,64.2204 107.5063,64.1902 107.556,64.1761 107.6268,64.1601 107.6764,64.13 107.7101,64.1194 107.7828,64.114 107.8448,64.1123 107.8678,64.1601 107.8897,64.182 107.9407,64.1869 107.9747,64.199 107.9991,64.2015 108.0355,64.1893 108.1401,64.1893 108.179,64.2039 108.1863,64.2233 108.1863,64.2379 108.2227,64.2428 108.2422,64.2282 108.2908,64.2282 108.3224,64.2136 108.3394,64.1917 108.3832,64.1796 108.3759,64.1577 108.3467,64.1504 108.3151,64.1407 108.3492,64.1309 108.3929,64.1212 108.3613,64.092 108.337,64.0629 108.3856,64.0434 108.4148,63.9948 108.551,63.9437 108.585,63.9219 108.5364,63.8586 108.5339,63.8489 108.6166,63.8149 108.6117,63.7954 108.5777,63.7784 108.5631,63.759 108.4975,63.7274 108.461,63.7346 108.4367,63.7444 108.337,63.7346 108.303,63.7298 108.2932,63.7395 108.2616,63.7371 108.213,63.7517 108.213,63.7663 108.1668,63.7565 108.1206,63.7274 108.1231,63.6714 108.1133,63.6107 108.0258,63.5693 107.9918,63.5718 107.9529,63.5547 107.9577,63.5353 107.9747,63.5085 107.9966,63.5037 108.0817,63.5134 108.1911,63.5183 108.3176,63.5304 108.4051,63.5401 108.4464,63.5304 108.478,63.5158 108.5412,63.5207 108.6482,63.494 108.7139,63.4769 108.8111,63.494 108.8865,63.494 108.9254,63.4794 108.9278,63.4575 108.9691,63.4551 108.9813,63.4405 108.9862,63.4137 109.0712,63.3797 109.0956,63.3359 109.1126,63.2994 109.1394,63.2824 109.2074,63.2946 109.2366,63.263 109.2269,63.2508 109.222,63.1876 109.2682,63.1852 109.2998,63.156 109.2585,63.1341 109.2585,63.0928 109.3071,63.0928 109.2828,63.0758 109.2974,63.0612 109.2828,63.0417 109.2779,63.0344 109.3023,63.0223 109.3144,62.998 109.2901,62.9834 109.3314,62.9737 109.3241,62.9542 109.2998,62.9469 109.3023,62.9372 109.3217,62.9348 109.3071,62.9104 109.3363,62.8545 109.4579,62.8205 109.4749,62.7889 109.4943,62.7646 109.4579,62.7403 109.4044,62.733 109.3509,62.7111 109.312,62.6795 109.2998,62.5968 109.2172,62.5919 109.2293,62.5652 109.222,62.5506 109.2269,62.5214 109.0883,62.5093 109.0883,62.502 109.1126,62.485 109.1078,62.4631 109.1467,62.4412 109.1515,62.4218 109.1953,62.4072 109.2634,62.3999 109.2974,62.3658 109.3168,62.3464 109.329,62.344 109.3922,62.3707 109.5211,62.3537 109.6135,62.3537 109.7034,62.3585 109.7715,62.3415 109.735,62.2953 109.808,62.2807 109.808,62.2491 109.8445,62.2297 109.8323,62.2078 109.791,62.1908 109.7788,62.1762 109.7983,62.1543 109.8566,62.1179 109.8031,62.079 109.7521,62.0595 109.7253,62.0182 109.6743,61.9452 109.6013,61.9234 109.577,61.8966 109.4822,61.8334 109.453,61.831 109.4433,61.7969 109.4336,61.758 109.4409,61.7362 109.4287,61.707 109.4603,61.7094 109.4846,61.6997 109.4627,61.6583 109.4992,61.6389 109.5308,61.6243 109.5624,61.6146 109.5478,61.5927 109.5746,61.5757 109.6038,61.5708 109.6427,61.5295 109.6986,61.493 109.7205,61.4638 109.7083,61.4298 109.6718,61.4177 109.6913,61.3812 109.6864,61.3496 109.6572,61.3253 109.6475,61.3034 109.6621,61.2888 109.6378,61.2742 109.6354,61.2572 109.667,61.2499 109.6889,61.2402 109.6961,61.2329 109.7545,61.2377 109.8031,61.2402 109.859,61.2304 109.9441,61.211 109.9612,61.1697 109.9709,61.1356 109.9976,61.1235 110.0268,61.0967 110.0949,61.0894 110.1386,61.0943 110.18,61.0894 110.2237,61.1186 110.2626,61.121 110.3186,61.1016 110.355,61.0821 110.3502,61.0457 110.3599,61.0092 110.321,60.9898 110.3064,60.9728 110.2991,60.9193 110.2457,60.8974 110.2335,60.8828 110.1946,60.8561 110.1484,60.8318 110.1144,60.7904 110.0803,60.7564 110.0706,60.7369 110.0998,60.7224 110.1314,60.7078 110.1144,60.7029 110.1144,60.664 110.1119,60.6348 110.0609,60.6154 110.0244,60.6154 109.9904,60.6178 109.9636,60.6154 109.915,60.6178 109.8858,60.6154 109.9077,60.5935 109.9296,60.5838 109.9417,60.5716 109.9661,60.5643 109.9636,60.54 109.9515,60.5157 109.9077,60.506 109.8785,60.4914 109.8639,60.4598 109.8226,60.4403 109.7764,60.4087 109.757,60.3747 109.791,60.3625 109.7813,60.3382 109.7351,60.3139 109.7059,60.309 109.7108,60.2872 109.7181,60.275 109.65,60.2507 109.6621,60.2264 109.6597,60.2021 109.6232,60.1802 109.5795,60.1705 109.5722,60.1632 109.5625,60.1024 109.5382,60.0732 109.5551,60.0271 109.5649,59.9906 109.6159,59.9663 109.56,59.9249 109.5162,59.8763 109.4846,59.8544 109.4603,59.8374 109.4919,59.8034 109.4384,59.7693 109.3655,59.7304 109.3412,59.6891 109.3314,59.6186 109.3655,59.5967 109.3849,59.5821 109.3169,59.5432 109.278,59.5262 109.2609,59.5068 109.2172,59.4679 109.1686,59.4436 109.171,59.4241 109.1297,59.4071 109.1053,59.3876 109.1564,59.3755 109.1904,59.3585 109.1734,59.339 109.1345,59.3244 109.0956,59.3074 109.1102,59.288 109.098,59.2685 109.1224,59.2515 109.2147,59.2345 109.2998,59.2247 109.3533,59.2272 109.3509,59.215 109.3485,59.1761 109.3947,59.1591 109.3825,59.1372 109.3679,59.1202 109.4165,59.1153 109.4506,59.108 109.4798,59.0813 109.4774,59.0472 109.4701,59.0083 109.5187,58.9913 109.5746,59.0083 109.6111,58.9791 109.6427,58.9427 109.6743,58.9208 109.7205,58.9305 109.7715,58.9427 109.842,58.9451 109.9077,58.9257 110.0147,58.9208 110.0706,58.9208 110.1338,58.9184 110.1654,58.9597 110.214,58.9816 110.2772,58.9791 110.3356,58.9767 110.3842,58.9986 110.3964,59.0472 110.4328,59.0667 110.4207,59.1031 110.4426,59.1445 110.4839,59.1615 110.5301,59.1955 110.6103,59.2053 110.7003,59.1931 110.7756,59.1736 110.8413,59.1493 110.8875,59.1615 110.9094,59.1761 110.9458,59.1761 110.9726,59.1469 111.0017,59.1323 111.0431,59.125 111.0698,59.1372 111.0941,59.1712 111.1209,59.1736 111.1428,59.1907 111.1938,59.198 111.2424,59.2101 111.3129,59.2101 111.364,59.1882 111.3883,59.1712 111.4515,59.1566 111.4929,59.1493 111.5488,59.1712 111.5901,59.2028 111.6217,59.215 111.6703,59.215 111.7433,59.2247 111.7822,59.2174 111.8235,59.2612 111.8819,59.3098 111.9402,59.339 111.9986,59.39 112.0642,59.4386 112.1153,59.4386 112.1226,59.4022 112.1712,59.3706 112.1809,59.3487 112.142,59.3268 112.1201,59.3049 112.142,59.283 112.1347,59.249 112.176,59.2417 112.2538,59.2563 112.3,59.2685 112.356,59.2587 112.4143,59.2514 112.4581,59.2563 112.4848,59.232 112.4727,59.2052 112.4265,59.2077 112.4265,59.1882 112.3924,59.1858 112.3462,59.1566 112.3098,59.1104 112.3146,59.0861 112.2976,59.0472 112.3025,59.0132 112.3098,58.9645 112.2976,58.9402 112.2976,58.86 112.3146,58.8551 112.3098,58.8357 112.3438,58.8089 112.3778,58.8187 112.4119,58.8624 112.4532,58.8916 112.4727,58.9038 112.4167,58.9573 112.3973,58.984 112.4119,59.0107 112.4411,58.9864 112.48,58.9694 112.5261,58.9864 112.5748,59.0254 112.6405,59.04 112.7013,59.0546 112.745,59.0764 112.7693,59.091 112.8034,59.0813 112.8496,59.0886 112.9249,59.0886 112.9809,59.1032 113.0441,59.0983 113.1073,59.0935 113.1656,59.1324 113.2289,59.164 113.2678,59.1834 113.3115,59.198 113.3042,59.2345 113.3261,59.2685 113.3139,59.288 113.275,59.3098 113.2702,59.3366 113.3164,59.3779 113.3626,59.3852 113.4039,59.4071 113.4477,59.4338 113.4501,59.4557 113.4404,59.4825 113.4379,59.5141 113.4866,59.5335 113.5619,59.5384 113.6324,59.5554 113.6738,59.587 113.6981,59.6308 113.7613,59.6259 113.8172,59.6283 113.8804,59.6259 113.8902,59.677 113.9947,59.694 113.9947,59.6867 114.019,59.694 114.0433,59.7183 114.0725,59.7353 114.0871,59.7523 114.0871,59.7669 114.1236,59.7791 114.1357,59.8034 114.1916,59.8399 114.2743,59.869 114.3399,59.9006 114.4056,59.9249 114.4129,59.9614 114.3715,59.9736 114.3667,59.9906 114.3861,60.0392 114.4104,60.066 114.4566,60.0805 114.4907,60.1097 114.5247,60.1438 114.5636,60.1608 114.6074,60.1486 114.6487,60.1267 114.7192,60.1438 114.7776,60.1778 114.8456,60.1997 114.8845,60.2361 114.9137,60.2969 114.9769,60.3334 115.0499,60.3723 115.1714,60.4136 115.2638,60.4306 115.3854,60.4452 115.4753,60.4574 115.5483,60.4647 115.5945,60.4598 115.6723,60.4161 115.699,60.4063 115.7841,60.399 115.84,60.399 115.8814,60.3893 115.8959,60.3674 115.9251,60.348 115.9762,60.3431 116.0443,60.3334 116.1003,60.314 116.1465,60.3237 116.2218,60.3261 116.3215,60.3067 116.3969,60.3042 116.465,60.2921 116.5014,60.2653 116.55,60.224 116.5817,60.1973 116.6133,60.1875 116.674,60.1875 116.6984,60.1681 116.7227,60.1413 116.7713,60.1195 116.8175,60.1024 116.8418,60.083 116.8491,60.0563 116.8758,60.0319 116.8856,59.9979 116.8904,59.9736 116.9391,59.9687 116.9901,59.9736 117.0241,59.976 117.0533,59.9639 117.0849,59.9614 117.1384,59.9566 117.1627,59.942 117.1165,59.9225 117.0582,59.8958 116.9998,59.9055 116.9658,59.9055 116.9293,59.8934 116.9026,59.8545 116.9512,59.8253 117.0071,59.7961 117.0436,59.7961 117.0776,59.7621 117.0655,59.7232 117.063,59.694 117.0582,59.66 117.0363,59.6308 117.046,59.5895 117.0094,59.5748 116.9681,59.5529 116.9243,59.5359 116.9268,59.5238 116.9535,59.5286 116.9997,59.5213 117.0556,59.5092 117.0702,59.4703 117.131,59.4606 117.1723,59.4338 117.289,59.4411 117.3401,59.4314 117.4057,59.4119 117.4544,59.4144 117.52,59.4533 117.6027,59.4824 117.6367,59.4581 117.661,59.4119 117.6902,59.373 117.768,59.3876 117.8069,59.4338 117.8312,59.4703 117.8847,59.5092 117.9187,59.5262 117.9625,59.5311 118.0014,59.5505 118.067,59.5408 118.1157,59.5457 118.1716,59.5408 118.2032,59.5165 118.2226,59.4654 118.2786,59.4435 118.3637,59.4338 118.4001,59.4168 118.4293,59.3973 118.4731,59.3828 118.5095,59.3657 118.563,59.3657 118.6043,59.3463 118.5995,59.3001 118.6043,59.2685 118.6481,59.2515 118.687,59.2442 118.6967,59.2296 118.6481,59.2223 118.6432,59.2126 118.6505,59.1931 118.5946,59.1834 118.5484,59.1639 118.529,59.125 118.5387,59.074 118.5533,59.0375 118.5533,59.0059 118.5727,58.9792 118.5946,58.967 118.653,58.9621 118.6967,58.9476 118.6992,58.9135 118.6968,58.8795 118.6724,58.877 118.6408,58.877 118.6311,58.8552 118.6311,58.8284 118.6627,58.8017 118.6968,58.7822 118.7284,58.7676 118.7381,58.7506 118.7332,58.7142 118.7211,58.6874 118.7259,58.6485 118.7332,58.6339 118.704,58.6193 118.6846,58.6047 118.67,58.5683 118.6603,58.5537 118.6044,58.5537 118.6311,58.5221 118.687,58.5075 118.7162,58.5026 118.7357,58.4905 118.7794,58.4905 118.8256,58.4807 118.884,58.4394 118.9423,58.4273 118.9885,58.4175 118.9861,58.3835 118.9642,58.3543 118.9472,58.3349 118.918,58.3179 118.9156,58.2765 118.9375,58.2522 118.9691,58.2352 118.9739,58.2279 118.9593,58.1939 118.952,58.155 118.8981,58.1712 118.8297,58.1672 118.7653,58.1571 118.6687,58.1571 118.5801,58.141 118.5137,58.1088 118.4292,58.135 118.3909,58.1571 118.3245,58.1571 118.3004,58.1954 118.2541,58.1994 118.2138,58.2236 118.1736,58.286 118.1333,58.3 118.083,58.3182 118.0428,58.3222 117.9824,58.3282 117.9603,58.296 117.9281,58.2779 117.8777,58.294 117.8536,58.3322 117.8113,58.3383 117.7731,58.3383 117.759,58.3463 117.7249,58.3281 117.6987,58.3402 117.6826,58.3502 117.6605,58.3462 117.6303,58.3321 117.592,58.3301 117.5498,58.3362 117.5156,58.3402 117.5055,58.312 117.4753,58.31 117.433,58.2939 117.3666,58.2758 117.3284,58.2597 117.3143,58.2335 117.3425,58.2114 117.3626,58.2053 117.3747,58.1852 117.4008,58.1671 117.4149,58.149 117.433,58.1228 117.423,58.0765 117.3546,58.0786 117.3022,58.0846 117.2841,58.0947 117.2559,58.0665 117.2539,58.0343 117.2519,58.0182 117.2278,58.0101 117.2137,58.0061 117.2298,57.9779 117.2358,57.9659 117.2257,57.9477 117.2117,57.9397 117.2197,57.9135 117.2237,57.8974 117.2157,57.8753 117.2358,57.8632 117.2559,57.8491 117.2459,57.833 117.2036,57.829 117.1976,57.827 117.1976,57.8089 117.1513,57.7847 117.113,57.7948 117.0829,57.7928 117.0607,57.7807 117.0084,57.7827 116.9681,57.7827 116.944,57.7666 116.9319,57.7445 116.942,57.7304 116.9702,57.7203 116.9903,57.7082 117.0024,57.6942 117.0164,57.6841 117.0245,57.6801 117.0124,57.67 117.0144,57.6499 117.0084,57.6358 117.0024,57.6197 116.9822,57.6116 116.9903,57.5875 116.9883,57.5774 117.0225,57.5815 117.0466,57.5754 117.0808,57.5694 117.1191,57.5633 117.1392,57.5452 117.1452,57.5171 117.1613,57.507 117.1211,57.4989 117.105,57.4808 117.101,57.4527 117.1171,57.4345 117.1291,57.4124 117.1473,57.3963 117.1674,57.3943 117.1935,57.3621 117.1774,57.352 117.1996,57.3257 117.1815,57.3137 117.1996,57.2875 117.2157,57.2694 117.2298,57.2593 117.262,57.2694 117.2861,57.2754 117.2902,57.2472 117.2781,57.213 117.27,57.1989 117.3123,57.1748 117.3465,57.1929 117.3727,57.1949 117.3928,57.203 117.4149,57.2352 117.429,57.2573 117.4451,57.2674 117.4995,57.2452 117.5417,57.2472 117.6021,57.2432 117.6242,57.2432 117.6424,57.2372 117.6202,57.1889 117.5961,57.1466 117.5739,57.1245 117.5357,57.1205 117.4954,57.1164 117.4693,57.1023 117.4411,57.0983 117.4451,57.0883 117.4572,57.0802 117.4673,57.0581 117.4773,57.0299 117.5015,57.0178 117.5256,57.0017 117.5176,56.9776 117.5337,56.9595 117.5256,56.9454 117.5196,56.9172 117.4793,56.895 117.4512,56.885 117.425,56.883 117.4149,56.8749 117.423,56.8327 117.423,56.7964 117.4129,56.7864 117.3666,56.8085 117.3385,56.8105 117.3224,56.8025 117.3063,56.7924 117.3083,56.7763 117.3063,56.7602 117.2861,56.7582 117.262,56.7662 117.2439,56.7743 117.2378,56.7823 117.256,56.7884 117.256,56.8045 117.2318,56.8045 117.2077,56.8065 117.1916,56.8105 117.1976,56.8286 117.2097,56.8588 117.1916,56.8669 117.1916,56.885 117.1815,56.891 117.1694,56.887 117.1694,56.8689 117.1594,56.8649 117.1372,56.8649 117.1111,56.8608 117.099,56.8568 117.0849,56.8387 117.0567,56.8306 117.0386,56.8166 117.0165,56.7944 117.0064,56.7642 116.9863,56.7461 116.9762,56.7401 116.942,56.7522 116.9138,56.7542 116.8716,56.7542 116.8555,56.7522 116.8474,56.7461 116.8575,56.734 116.8776,56.73 116.8937,56.724 116.8877,56.7179 116.8716,56.7159 116.8414,56.72 116.8212,56.722 116.8031,56.7179 116.779,56.7039 116.6784,56.6737 116.6482,56.6636 116.616,56.6737 116.5878,56.6958 116.5576,56.6998 116.5335,56.6958 116.4972,56.6878 116.4107,56.6958 116.3865,56.7099 116.3624,56.734 116.3161,56.7461 116.292,56.7542 116.2517,56.7622 116.2175,56.7703 116.2115,56.7864 116.1712,56.7884 116.143,56.7884 116.1229,56.7763 116.1088,56.7622 116.0887,56.7582 116.0464,56.7582 116.0183,56.7481 115.9495,56.7636 115.8849,56.8067 115.7963,56.8043 115.715,56.8737 115.6503,56.8833 115.5809,56.8952 115.5306,56.8641 115.4851,56.8497 115.4349,56.8258 115.4325,56.7875 115.4588,56.7301 115.4397,56.6654 115.3774,56.6247 115.3056,56.6152 115.2793,56.596 115.2793,56.5529 115.3224,56.529 115.4109,56.5218 115.4923,56.5146 115.533,56.4931 115.5163,56.4596 115.5354,56.4237 115.5953,56.4045 115.6336,56.3782 115.6431,56.359 115.6096,56.3471 115.5617,56.3566 115.5258,56.3494 115.5234,56.3135 115.5402,56.28 115.533,56.2417 115.5498,56.201 115.5641,56.1699 115.5977,56.1508 115.6024,56.1196 115.636,56.1029 115.6743,56.0957 115.6743,56.0742 115.6383,56.0718 115.6144,56.055 115.6192,56.0239 115.624,56.0047 115.6001,55.9927 115.6001,55.9784 115.6192,55.9736 115.6312,55.9497 115.6408,55.9257 115.6647,55.9114 115.7102,55.8946 115.7413,55.8611 115.7389,55.8156 115.6982,55.7869 115.6791,55.7366 115.6934,55.7007 115.7102,55.6768 115.6982,55.6648 115.6862,55.6241 115.7006,55.605 115.7293,55.5954 115.7557,55.5858 115.7533,55.5643 115.7365,55.5403 115.7317,55.5284 115.7557,55.514 115.7317,55.4877 115.7317,55.4494 115.7389,55.4326 115.8035,55.3967 115.8083,55.3775 115.7868,55.3584 115.77,55.344 115.7844,55.3225 115.8059,55.3105 115.837,55.3009 115.8897,55.3177 115.928,55.3129 115.94,55.2985 115.9663,55.2866 115.9998,55.2938 116.0285,55.2962 116.1075,55.2962 116.1458,55.3105 116.1913,55.3153 116.2392,55.3033 116.2536,55.289 116.2703,55.265 116.2943,55.2507 116.3062,55.2435 116.299,55.2219 116.3086,55.2076 116.3062,55.1884 116.3182,55.1645 116.3589,55.1501 116.3948,55.1334 116.4283,55.1238 116.4594,55.0879 116.5049,55.0735 116.5384,55.0616 116.5863,55.052 116.6198,55.052 116.6461,55.0161 116.6581,55.0041 116.6653,54.9826 116.6916,54.9658 116.682,54.9443 116.6749,54.9203 116.694,54.9084 116.7156,54.9108 116.7156,54.894 116.7251,54.8868 116.7371,54.882 116.7227,54.8581 116.7227,54.8294 116.7371,54.8102 116.7539,54.7959 116.7658,54.7743 116.7585,54.75 116.7702,54.7343 116.729,54.7167 116.7133,54.701 116.7133,54.6833 116.7271,54.6617 116.7055,54.6421 116.6741,54.6303 116.6643,54.6146 116.6407,54.6048 116.6113,54.597 116.6132,54.5675 116.6172,54.5361 116.5818,54.5126 116.5661,54.5106 116.5586,54.4904 116.5714,54.4852 116.5586,54.4724 116.5317,54.4647 116.5073,54.4532 116.4714,54.4519 116.4343,54.4519 116.3907,54.4468 116.3715,54.4468 116.3702,54.4314 116.3625,54.4058 116.3292,54.4109 116.3062,54.4263 116.2767,54.4237 116.2575,54.4353 116.2088,54.4417 116.1793,54.4378 116.1575,54.4365 116.1306,54.4442 116.105,54.4481 116.0845,54.4365 116.0499,54.4404 116.0243,54.4455 115.9935,54.4429 115.9525,54.4288 115.9167,54.4237 115.8692,54.4199 115.8526,54.4173 115.8398,54.4083 115.8142,54.4058 115.7744,54.4096 115.7539,54.4045 115.7322,54.3994 115.7104,54.3981 115.6873,54.3917 115.6553,54.3814 115.6194,54.3738 115.5861,54.375 115.554,54.3621 115.5117,54.3583 115.4694,54.348 115.4438,54.3314 115.4143,54.3173 115.3785,54.3134 115.3631,54.3109 115.349,54.2968 115.3567,54.2699 115.3439,54.2443 115.3131,54.2327 115.2593,54.2097 115.2145,54.202 115.1901,54.1943 115.1748,54.1802 115.1402,54.1725 115.1158,54.1648 115.0902,54.1392 115.0543,54.1328 115.0236,54.12 115.0159,54.1059 115.0069,54.0764 114.9762,54.0521 114.9569,54.0457 114.9364,54.0316 114.8685,54.0098 114.8711,53.9867 114.8672,53.9726 114.8442,53.9611 114.8288,53.9598 114.8198,53.9329 114.7814,53.9227 114.7532,53.9073 114.7173,53.8996 114.6917,53.8842 114.6456,53.8842 114.6059,53.8906 114.5982,53.874 114.5469,53.8624 114.4969,53.8509 114.4662,53.8445 114.4572,53.8496 114.4303,53.8355 114.4124,53.8086 114.3893,53.7919 114.3803,53.7779 114.3534,53.7612 114.3406,53.7458 114.3111,53.7484 114.2817,53.7433 114.2561,53.7471 114.2253,53.7522 114.2074,53.7394 114.2061,53.7202 114.1869,53.7074 114.1356,53.6869 114.0972,53.6843 114.0715,53.6818 114.0395,53.6741 114.0075,53.6933 113.987,53.6933 113.9678,53.6766 113.9357,53.6638 113.8947,53.6625 113.8755,53.66 113.8409,53.6587 113.814,53.6395 113.8243,53.6215 113.8345,53.6049 113.8243,53.5895 113.8063,53.5818 113.7833,53.5895 113.764,53.5895 113.7512,53.5844 113.7359,53.5728 113.7256,53.56 113.7064,53.5652 113.6795,53.5626 113.6615,53.5562 113.6692,53.5447 113.691,53.5293 113.7141,53.5101 113.7307,53.4921 113.7423,53.4665 113.7307,53.4409 113.7115,53.4319 113.6936,53.4306 113.682,53.4088 113.6731,53.3883 113.682,53.3807 113.6923,53.3717 113.6833,53.3512 113.6744,53.3345 113.6872,53.3192 113.7141,53.3089 113.7423,53.3013 113.7654,53.2961 113.7808,53.3 113.7974,53.2833 113.809,53.2615 113.8,53.2449 113.7885,53.2321 113.7846,53.2167 113.7987,53.2077 113.8179,53.1885 113.8243,53.1783 113.8282,53.1718 113.8474,53.1795 113.8692,53.1859 113.8884,53.1898 113.8999,53.1898 113.8935,53.1757 113.891,53.1667 113.9076,53.159 113.9371,53.1462 113.955,53.1424 113.9781,53.1424 114.0037,53.1449 114.0229,53.1449 114.0409,53.1385 114.046,53.1232 114.0396,53.0975 114.0127,53.0655 113.996,53.0565 113.9781,53.0437 113.9704,53.0232 113.9742,53.0091 113.9883,53.0168 114.0063,53.0296 114.0204,53.0194 114.0332,53.013 114.0537,53.0232 114.0652,53.0373 114.078,53.0424 114.0947,53.0373 114.0998,53.0296 114.1203,53.0207 114.1434,53.0142 114.1664,53.0117 114.1741,53.004 114.1562,52.9925 114.1382,52.9822 114.128,52.9643 114.1318,52.9527 114.1472,52.9361 114.1613,52.922 114.1652,52.9053 114.1485,52.9015 114.1113,52.9041 114.0767,52.9041 114.0678,52.89 114.0793,52.8759 114.0844,52.8592 114.0767,52.8477 114.0601,52.831 114.0588,52.8054 114.0703,52.7849 114.0819,52.7708 114.0857,52.7606 114.0652,52.7606 114.0563,52.7503 113.9845,52.6901 113.9743,52.6798 113.9756,52.667 113.9589,52.6542 113.9397,52.6376 113.9051,52.6247 113.8936,52.6171 113.8692,52.6106 113.8,52.5658 113.7411,52.5735 113.7014,52.5415 113.6629,52.5453 113.6424,52.5222 113.5925,52.5222 113.5758,52.512 113.554,52.4889 113.5258,52.4851 113.5041,52.4646 113.4951,52.4428 113.4759,52.4377 113.4554,52.4287 113.44,52.4018 113.4221,52.3903 113.4067,52.3992 113.3887,52.4287 113.3785,52.4351 113.3682,52.4287 113.3439,52.4159 113.3003,52.4108 113.2299,52.4082 113.1812,52.4146 113.1504,52.4108 113.1184,52.421 113.0889,52.4108 113.0313,52.3928 113.0031,52.38 112.9672,52.3787 112.9493,52.3493 112.9121,52.3377 112.8698,52.3236 112.8211,52.2929 112.7673,52.2762 112.734,52.2801 112.7212,52.289 112.6994,52.2839 112.6802,52.2839 112.6366,52.2788 112.5713,52.2762 112.5316,52.2685 112.4419,52.2993 112.4163,52.2878 112.4073,52.2878 112.383,52.289 112.3804,52.2698 112.365,52.2596 112.3445,52.2519 112.3445,52.2019 112.3215,52.1853 112.301,52.1776 112.2856,52.1737 112.2741,52.1622 112.251,52.1468 112.2113,52.1532 112.1946,52.166 112.1754,52.1724 112.1536,52.1865 112.1331,52.1916 112.0998,52.1865 112.0768,52.1788 112.0447,52.1852 112.0383,52.2173 112.0242,52.2352 112.0089,52.2429 111.9884,52.2403 111.9858,52.2301 111.9832,52.2211 111.9538,52.2237 111.9217,52.2211 111.9051,52.216 111.8936,52.1916 111.8807,52.1814 111.8641,52.1711 111.85,52.1596 111.8269,52.1519 111.7821,52.1442 111.7744,52.1378 111.7757,52.1199 111.7616,52.1019 111.7436,52.0891 111.7308,52.0891 111.7283,52.0853 111.7295,52.0699 111.7231,52.0597 111.6988,52.0584 111.6796,52.0468 111.6604,52.0417 111.645,52.0315 111.6258,52.0148 111.6104,51.9815 111.5912,51.961 111.5092,51.9046 111.4887,51.8982 111.4669,51.8957 111.4566,51.8675 111.4156,51.8559 111.3695,51.8508 111.3336,51.8367 111.317,51.8162 111.2734,51.8175 111.235,51.8072 111.2042,51.8085 111.1683,51.8098 111.1376,51.7932 111.1209,51.7816 111.071,51.7726 111.0453,51.7637 110.9941,51.7726 110.9774,51.7726 110.948,51.7573 110.8621,51.7214 110.8647,51.7035 110.8531,51.6791 110.8467,51.665 110.807,51.6637 110.7724,51.6484 110.7391,51.6189 110.7225,51.6151 110.6866,51.6086 110.6891,51.5997 110.6994,51.583 110.7045,51.56 110.7148,51.5446 110.7096,51.5343 110.6956,51.5305 110.6572,51.5228 110.6252,51.5164 110.6162,51.5036 110.6085,51.4754 110.5777,51.4639 110.5598,51.46 110.5393,51.4421 110.5022,51.4459 110.465,51.4459 110.392,51.4357 110.3394,51.4523 110.2613,51.4639 110.2536,51.4767 110.2433,51.5151 110.2318,51.5241 110.2139,51.5164 110.1908,51.5228 110.1601,51.5305 110.1062,51.5318 110.0345,51.5331 109.9653,51.5382 109.9281,51.5446 109.9076,51.5549 109.8948,51.5587 109.8731,51.5497 109.859,51.5446 109.8295,51.5484 109.8154,51.542 109.7949,51.5292 109.7706,51.5126 109.7488,51.4972 109.7168,51.4933 109.6617,51.4728 109.6169,51.442 109.5567,51.4292 109.5246,51.4023 109.4516,51.3869 109.3888,51.378 109.3401,51.3652 109.2722,51.3536 109.2363,51.3344 109.2222,51.2844 109.1992,51.2998 109.1902,51.3254 109.1723,51.3318 109.1543,51.3203 109.1069,51.2998 109.0467,51.3357 109.0032,51.3818 108.9724,51.4023 108.9634,51.4279 108.9327,51.4433 108.9071,51.4484 108.8904,51.442 108.8814,51.4202 108.8686,51.4062 108.8481,51.3946 108.8122,51.3857 108.7686,51.3793 108.7187,51.3831 108.6918,51.3831 108.6444,51.3998 108.6111,51.3908 108.5918,51.387 108.5816,51.3895 108.5752,51.4023 108.538,51.4152 108.4996,51.4357 108.4624,51.4549 108.4291,51.4433 108.3958,51.419 108.3779,51.3947 108.3804,51.3742 108.3689,51.3562 108.3394,51.3447 108.3381,51.3139 108.3125,51.2781 108.2728,51.2524 108.2344,51.2447 108.2062,51.2281 108.1959,51.2089 108.2075,51.1896 108.2267,51.1768 108.26,51.1691 108.2805,51.1679 108.2959,51.1653 108.3035,51.1589 108.2984,51.1435 108.3151,51.1333 108.3548,51.1166 108.3971,51.0987 108.4176,51.082 108.4201,51.0564 108.4022,51.0397 108.3766,51.0256 108.3625,51.0128 108.3458,50.9975 108.3112,50.9962 108.2574,50.9949 108.2113,50.9975 108.1818,50.9936 108.1613,50.9744 108.1511,50.9424 108.1434,50.9078 108.1268,50.8771 108.1114,50.8476 108.1024,50.8156 108.1012,50.7912 108.0947,50.772 108.0794,50.7733 108.0461,50.763 108.014,50.7515 107.9833,50.74 107.9551,50.7284 107.932,50.7169 107.9154,50.7054 107.9102,50.6939 107.9179,50.6798 107.9436,50.6503 107.9833,50.6208 108.0268,50.5965 108.0807,50.5965 108.1024,50.5875 108.1601,50.5683 108.2101,50.5516 108.2549,50.5529 108.269,50.5478 108.2741,50.5388 108.2933,50.5337 108.319,50.5337 108.3356,50.5273 108.3331,50.5183 108.3472,50.5094 108.3574,50.5029 108.3587,50.4901 108.3818,50.4709 108.3958,50.4671 108.4253,50.4684 108.4445,50.4658 108.4663,50.4658 108.4855,50.4722 108.5073,50.4773 108.5227,50.4645 108.5317,50.4504 108.5265,50.4414 108.5137,50.4325 108.506,50.4184 108.4958,50.4017 108.4728,50.3992 108.4484,50.3915 108.4331,50.3979 108.4215,50.4094 108.4036,50.412 108.3805,50.4017 108.3536,50.3953 108.3254,50.3889 108.3011,50.3953 108.2908,50.4005 108.2793,50.4005 108.2639,50.3902 108.2614,50.3812 108.2255,50.362 108.1845,50.3454 108.164,50.3415 108.0897,50.3569 108.05,50.3505 108.0295,50.339 108.0295,50.3172 108.0346,50.3082 108.0218,50.3018 107.9974,50.2954 107.991,50.2723 107.9769,50.2557 107.9449,50.2621 107.9206,50.2723 107.9231,50.2877 107.9129,50.2928 107.9026,50.2928 107.877,50.2787 107.8603,50.2749 107.8309,50.2775 107.8347,50.2582 107.8309,50.2301 107.795,50.2198 107.7835,50.2044 107.7796,50.1942 107.7822,50.1634 107.7399,50.1327 107.7079,50.1506 107.6669,50.1468 107.6592,50.1404 107.6617,50.1173 107.6502,50.1058 107.631,50.0968 107.6156,50.0955 107.6118,50.0763 107.6066,50.0481 107.6105,50.0417 107.6412,50.034 107.6464,50.0263 107.6425,49.97 107.6194,49.9443 107.6002,49.92 107.5999,49.9193 107.6566,49.8915 107.7459,49.8874 107.8245,49.8716 107.8163,49.7317 107.7892,49.6253 107.8826,49.5538 107.9128,49.5331 107.9541,49.5124 107.9782,49.501 108.01,49.4945 108.1393,49.4365 108.2043,49.3849 108.3685,49.289 108.4042,49.2784 108.4418,49.275 108.4909,49.2753 108.5521,49.2814 108.7991,49.3 108.8242,49.2953 108.8666,49.2818 108.9147,49.2778 108.9933,49.2924 109.0372,49.3034 109.1528,49.2898 109.1842,49.2826 109.3357,49.2038 109.3566,49.1856 109.3927,49.1751 109.4207,49.1737 109.4504,49.1733 109.6408,49.1626 109.9271,49.1319 110.0089,49.1163 110.0467,49.113 110.0837,49.1142 110.107,49.1188 110.1325,49.1288 110.1628,49.1419 110.1903,49.157 110.3202,49.1437 110.4681,49.0962 110.5003,49.0894 110.5382,49.0858 110.5755,49.0871 110.6263,49.0933 110.7665,49.1258 110.793,49.1348 110.8186,49.1446 110.8462,49.158 110.8707,49.1757 110.9048,49.1967 110.9653,49.2309 111.0099,49.2482 111.1633,49.2859 111.2886,49.298 111.3138,49.2936 111.3426,49.2935 111.3802,49.3014 111.4067,49.311 111.4294,49.3227 111.4813,49.3417 111.5275,49.3501 111.5778,49.3485 111.6352,49.3435 111.6766,49.3414 111.704,49.3423 111.7573,49.3457 111.7994,49.3504 111.9664,49.3801 112.0057,49.3907 112.2506,49.4615 112.326,49.4845 112.371,49.4795 112.425,49.4719 112.4888,49.4612 112.5214,49.4482 112.5446,49.4421 112.5699,49.4412 112.6083,49.4455 112.637,49.4529 112.6654,49.4616 112.9293,49.5466 112.9311,49.6131 113.0193,49.7372 113.044,49.7587 113.0714,49.774 113.1895,49.8314 113.2919,49.8786 113.3161,49.9064 113.3885,49.9446 113.4172,49.9588 113.5395,50.0041 113.6144,50.0291 113.6588,50.0284 113.7013,50.0293 113.7254,50.042 113.7616,50.066 113.7942,50.0894 113.8181,50.1041 113.8407,50.1163 114.0048,50.1904 114.0234,50.198 114.0652,50.2102 114.1503,50.2263 114.1774,50.2231 114.2053,50.2134 114.224,50.2049 114.2494,50.1941 114.2717,50.1874 114.3272,50.1835 114.3828,50.188 114.4066,50.1921 114.4501,50.2028 114.4932,50.2064 114.576,50.1947 114.6816,50.1704 114.7081,50.1597 114.838,50.0996 114.8614,50.0874 114.8795,50.0722 114.9225,50.0234 115.0423,49.936 115.0895,49.9086 115.2192,49.8465 115.2437,49.841 115.3507,49.8381 115.3843,49.8471 115.4082,49.8498 115.4382,49.8473 115.4636,49.842 115.5026,49.8318 115.5584,49.8235 115.5904,49.8293 115.6166,49.8384 115.647,49.8515 115.7155,49.8798 115.8771,49.9388 115.8975,49.9452 115.925,49.9531 115.9775,49.9636 116.0433,49.9707 116.073,49.9701 116.1179,49.9566 116.1802,49.9336 116.2525,49.91 116.2795,49.9026 116.3265,49.8933 116.444,49.8717 116.5279,49.7871 116.5387,49.7731 116.5482,49.767 116.5793,49.7523 116.7508,49.676 116.7888,49.6592 116.8103,49.6525 116.9972,49.5955 117.0371,49.5849 117.0616,49.5793 117.0865,49.5743 117.1146,49.5696 117.1454,49.5674 117.1814,49.5677 117.2611,49.5697 117.3212,49.566 117.3521,49.5573 117.4,49.5391 117.5653,49.4783 117.6215,49.4612 117.7012,49.4638 117.8753,49.5474 117.9979,49.6118 118.0313,49.6338 118.1906,49.7211 118.3052,49.7847 118.3169,49.8128 118.3508,49.8393 118.399,49.8652 118.4649,49.8914 118.4986,49.8978 118.5399,49.8921 118.6947,49.915 118.7449,49.9289 118.7796,49.9257 118.8236,49.9194 118.8903,49.9256 118.9228,49.933 118.9591,49.9377 118.9973,49.9441 119.039,49.9595 119.1422,50.0386 119.1675,50.0922 119.1668,50.1354 119.1497,50.1526 119.1506,50.2172 119.18,50.2721 119.1681,50.2881 119.11,50.2898 119.0733,50.2831 119.0185,50.2872 118.9971,50.2947 118.9588,50.3322 118.9867,50.3543 119.024,50.3527 119.058,50.3829 119.0752,50.4123 119.0827,50.4558 119.1134,50.5391 119.18,50.5748 119.2771,50.6378 119.3242,50.6902 119.3345,50.7349 119.3372,50.7875 119.3384,50.8436 119.4067,50.9138 119.4609,50.9391 119.4816,50.9445 119.5054,50.9594 119.5264,50.9775 119.5644,51.0175 119.596,51.1094 119.5819,51.1293 119.5916,51.1545 119.6307,51.2099 119.6797,51.2279 119.7712,51.3306 119.7859,51.3639 119.7895,51.4072 119.7972,51.4333 119.8777,51.5611 119.9206,51.6042 119.9745,51.6066 120.0101,51.6264 120.035,51.6526 120.1225,51.7132 120.3031,51.8183 120.3687,51.835 120.4324,51.8435 120.4629,51.8541 120.5216,51.9196 120.5864,52.0546 120.5915,52.0972 120.5612,52.1499 120.5313,52.191 120.4617,52.2379 120.4347,52.2834 120.4723,52.3446 120.4915,52.3674 120.5201,52.4817 120.2726,52.5696 120.2481,52.576 120.0975,52.5544 120.0625,52.5441 120.0188,52.5253 119.994,52.5189 119.9705,52.5176 119.8905,52.5269 119.8491,52.5457 119.8339,52.5801 119.839,52.7068 119.9241,52.7455 119.9563,52.7456 119.976,52.7482 120.0757,52.7957 120.137,52.8364 120.157,52.8637 120.2751,52.9582 120.3683,53.0155 120.4983,53.0972 120.6345,53.2018 120.67,53.2176 120.8691,53.2293 120.9101,53.2165 120.9331,53.2106 120.9837,53.2079 121.0149,53.2096 121.0746,53.2292 121.1162,53.2498 121.136,53.2572 121.2167,53.2535 121.2264,53.254 121.2761,53.2616 121.3252,53.2708 121.3547,53.2779 121.3839,53.2855 121.438,53.3041 121.5788,53.3387 121.631,53.3508 121.6565,53.3536 121.7542,53.3601 121.7839,53.359 121.8269,53.3517 121.862,53.3506 122.0462,53.3948 122.2817,53.3864 122.4123,53.3945 122.516,53.3931 122.565,53.3901 122.6142,53.3875 122.6399,53.3898 122.6759,53.3998 122.7224,53.4164 122.9182,53.4347 122.9518,53.4382 122.9736,53.4477 122.9923,53.4602 123.0239,53.4838 123.0527,53.4911 123.0811,53.491 123.1125,53.4871 123.1369,53.4803 123.1724,53.4669 123.2407,53.46 123.2847,53.4771 123.333,53.4798 123.4122,53.4813 123.6638,53.4184 123.6874,53.4106 123.7083,53.4022 123.7789,53.3689 123.8027,53.3462 123.8194,53.3238 123.9023,53.2786 123.9311,53.2739 123.9576,53.2877 123.9922,53.2987 124.0268,53.3009 124.0665,53.2847 124.0943,53.2577 124.1201,53.226 124.1368,53.1937 124.2004,53.1504 124.2914,53.1262 124.3134,53.1268 124.3439,53.1283 124.4122,53.1298 124.4418,53.1257 124.4896,53.1086 124.6161,53.0652 124.6766,53.0848 124.7164,53.1102 124.7609,53.1209 124.7857,53.1248 124.8591,53.1334 124.9313,53.1355 124.9621,53.1312 125.078,53.0878 125.1531,53.0563 125.1957,53.0398 125.2829,53.0073 125.3654,52.9952 125.417,52.9887 125.5248,52.9199 125.5197,52.8839 125.486,52.8703 125.4579,52.8619 125.443,52.8362 125.4555,52.8136 125.5202,52.8231 125.5423,52.8285 125.6534,52.8014 125.6735,52.7745 125.7709,52.7026 125.8089,52.7165 125.8626,52.7203 125.8947,52.6959 125.8356,52.6548 125.7717,52.5765 125.7758,52.5498 125.7933,52.515 125.8323,52.5033 125.8596,52.5196 125.8857,52.5279 125.9791,52.4829 126.0007,52.4666 126.0125,52.449 126.0088,52.4403 125.9956,52.4153 126.0084,52.3996 126.038,52.4023 126.0752,52.3925 126.1333,52.3351 126.1471,52.3085 126.1486,52.231 126.1282,52.1741 126.1082,52.1519 126.1195,52.1317 126.1525,52.1223 126.1922,52.1159 126.2703,52.1051 126.2913,52.0993 126.3556,52.0665 126.3354,52.0091 126.3108,51.9769 126.2781,51.9738 126.2559,51.9602 126.2428,51.9342 126.2729,51.8696 126.4115,51.727 126.5208,51.65 126.5294,51.5741 126.5982,51.3637 126.6728,51.3459 126.6973,51.3391 126.7176,51.3218 126.6946,51.2909 126.6598,51.2847 126.6242,51.2678 126.6118,51.2453 126.6223,51.2062 126.6556,51.1818 126.698,51.1819 126.7047,51.2015 126.6979,51.2436 126.7414,51.2547 126.7729,51.2598 126.7792,51.2402 126.7366,51.183 126.7107,51.1515 126.7036,51.1217 126.7177,51.0663 126.7387,50.9992 126.8518,50.8966 126.9117,50.8706 126.9391,50.8506 126.9563,50.8298 126.9993,50.766 127.0983,50.6826 127.086,50.6263 127.1166,50.5897 127.1654,50.5375 127.1739,50.5178 127.1688,50.493 127.1405,50.4661 127.0985,50.4011 127.1421,50.2565 127.16,50.2415 127.1836,50.2288 127.2042,50.2203 127.2427,50.208 127.2771,50.1993 127.3514,50.1732 127.3839,50.1584 127.3943,50.1508 127.3956,50.1399 127.3938,50.1099 127.3829,50.0792 127.3589,50.0504 127.3123,50.0094 127.299,49.9876 127.2961,49.9612 127.3177,49.7701 127.3263,49.7488 127.3471,49.7286 127.375,49.7203 127.403,49.7155 127.4396,49.7078 127.4831,49.6888 127.4897,49.651 127.5002,49.6136 127.5244,49.5965 127.6299,49.5356 127.6494,49.5298 127.914,49.48 127.998,49.4772 128.0256,49.4802 128.056,49.4916 128.2083,49.5202 128.324,49.5306 128.4634,49.5353 128.5223,49.5276 128.6003,49.5113 128.6137,49.4903 128.6855,49.4209 128.8127,49.3794 128.8344,49.3586 128.8497,49.3286 128.8627,49.3073 128.8872,49.2962 128.922,49.29 128.9465,49.2958 128.9756,49.3194 128.9949,49.3307 129.2004,49.3711 129.231,49.3748 129.3,49.3591 129.3213,49.3481 129.3332,49.3347 129.3406,49.2572 129.3623,49.2313 129.39,49.217 129.4149,49.212 129.4632,49.2207 129.4958,49.2224 129.5352,49.2055 129.5464,49.1712 129.5418,49.1461 129.5563,49.125 129.5833,49.114 129.7225,49.0154 129.7179,48.9854 129.9206,48.8762 130.0108,48.8228 130.0349,48.8085 130.0742,48.8045 130.1622,48.829 130.1901,48.8355 130.2278,48.8402 130.2611,48.8365 130.282,48.8225 130.2943,48.8051 130.3187,48.7954 130.3476,48.7959 130.374,48.8003 130.4372,48.8188 130.4521,48.8195 130.4801,48.806 130.6215,48.8473 130.6233,48.8877 130.6768,48.9305 130.8417,48.9871 130.9726,48.9632 131.0121,49.0143 131.0034,49.0525 131.0388,49.0888 131.1685,49.2497 131.3949,49.2454 131.5084,49.4236 131.4787,49.45 131.5082,49.6105 131.3737,49.6606 131.3576,49.7242 131.4821,49.7341 131.4822,49.9521 131.2849,49.9706 131.3026,50.0628 131.4701,50.1458 131.3349,50.2545 131.3088,50.3688 131.1792,50.3311 131.1309,50.4336 131.0472,50.4212 130.9998,50.3809 130.9205,50.3833 130.9308,50.4258 130.8663,50.4506 130.9575,50.5074 131.0108,50.5773 130.9027,50.6736 130.899,50.6515 130.7939,50.6509 130.7578,50.6714 130.7255,50.5931 130.6454,50.6575 130.7064,50.704 130.6757,50.7265 130.7389,50.7804 130.7937,50.8651 130.8416,50.8725 130.8128,50.9354 130.7665,50.9408 130.8106,51.0195 130.9302,51.028 130.9858,51.1107 130.9827,51.1453 131.0455,51.1825 131.0466,51.2337 131.1105,51.26 131.1721,51.2476 131.2346,51.3249 131.3368,51.3798 131.4557,51.3382 131.5059,51.36 131.4854,51.4727 131.4465,51.4878 131.4259,51.5273 131.3913,51.5956 131.4304,51.6499 131.4095,51.6913 131.5918,51.6663 131.6114,51.6761 131.739,51.6802 131.8613,51.7588 131.9648,51.7363 132.0475,51.8044 132.0852,51.7635 132.1265,51.7994 132.2183,51.8219 132.2758,51.7887 132.4342,51.8695 132.3963,51.9653 132.5085,51.9479 132.5384,52.0381 132.5888,52.0813 132.6526,52.0937 132.7681,52.129 132.833,52.1815 132.9256,52.1505 133.002,52.1502 133.1272,52.1744 133.1807,52.1607 133.2061,52.1849 133.3436,52.2017 133.3573,52.2275 133.4097,52.2429 133.4375,52.2871 133.3982,52.3139 133.3083,52.349 133.3267,52.4077 133.242,52.4555 133.2792,52.4872 133.2831,52.5365 133.2377,52.5595 133.2452,52.5924 133.2372,52.6434 133.3158,52.683 133.3753,52.682 133.418,52.6535 133.4894,52.6509 133.5111,52.6257 133.6097,52.6051 133.6464,52.5709 133.7804,52.5543 133.8307,52.5549 133.8583,52.5205 133.9294,52.5213 134.0,52.5402 134.0573,52.4951 134.0839,52.4953 134.1287,52.4775 134.2142,52.4946 134.2947,52.4605 134.4692,52.4505 134.5347,52.4162 134.6292,52.4166 134.6641,52.4769 134.6196,52.5004 134.6368,52.5625 134.6781,52.5827 134.7017,52.6101 134.7402,52.6084 134.7934,52.6523 134.7636,52.6723 134.7604,52.7106 134.6652,52.7121 134.6532,52.734 134.7185,52.7615 134.6349,52.785 134.6282,52.8597 134.6909,52.8672 134.6545,52.9309 134.8004,53.0625 134.8723,53.0772 134.8332,53.1118 134.857,53.1865 134.9412,53.214 134.9622,53.265 134.9079,53.2796 134.8776,53.3214 134.8082,53.3323 134.8321,53.3852 134.9077,53.3688 134.9288,53.4035 134.9136,53.429 134.8318,53.4508 134.8317,53.4799 134.7772,53.4707 134.7377,53.4852 134.7617,53.5326 134.6398,53.5961 134.5575,53.6249 134.5243,53.5993 134.4423,53.5952 134.4492,53.5388 134.3949,53.5166 134.3703,53.5384 134.2614,53.5158 134.2189,53.521 134.2227,53.4809 134.2138,53.4699 134.1896,53.4679 134.1528,53.4895 134.1083,53.4436 134.0689,53.4469 134.0027,53.4317 133.8866,53.4707 133.8203,53.4591 133.7951,53.4916 133.7654,53.4694 133.7171,53.4652 133.6296,53.5461 133.5599,53.5434 133.5281,53.4974 133.495,53.4915 133.4729,53.5149 133.4078,53.4738 133.3199,53.4725 133.2188,53.429 133.1735,53.3571 133.1782,53.3208 133.1613,53.2913 133.1003,53.3067 132.981,53.2771 132.9352,53.289 132.8899,53.2298 132.7987,53.2444 132.7115,53.2408 132.6472,53.2594 132.5919,53.2236 132.4468,53.2312 132.3977,53.2464 132.1675,53.2169 132.0948,53.2223 132.0107,53.1343 131.9496,53.1471 131.894,53.1255 131.8341,53.162 131.8625,53.2249 131.7828,53.2408 131.6728,53.221 131.5174,53.2052 131.4345,53.2226 131.5101,53.256 131.5331,53.306 131.5164,53.3603 131.4761,53.4429 131.4828,53.4705 131.4594,53.4952 131.5021,53.5641 131.4392,53.6241 131.4467,53.6772 131.4373,53.7499 131.3276,53.7809 131.1735,53.7939 131.0188,53.8121 130.9227,53.7629 130.8497,53.7894 130.8424,53.831 130.7434,53.84 130.6585,53.8896 130.5742,53.8753 130.5197,53.8968 130.4386,53.8807 130.3861,53.9113 130.4127,53.9471 130.4733,53.9825 130.4849,54.0706 130.5325,54.1418 130.6222,54.1965 130.6733,54.2387 130.7369,54.2813 130.8296,54.283 130.9364,54.3289 130.9799,54.2977 131.0497,54.2802 131.117,54.3208 131.1671,54.4447 131.2265,54.5398 131.1767,54.6037 131.2761,54.6417 131.3878,54.7183 131.5594,54.7237 131.6139,54.7818 131.6952,54.7843 131.8157,54.8442 131.9968,54.8966 131.9488,54.9882 132.0308,55.0286 132.1927,55.0564 132.418,55.0837 132.3445,55.1439 132.3631,55.1953 132.4068,55.2054 132.5971,55.1987 132.6908,55.2735 132.6563,55.3201 132.6819,55.3697 132.7243,55.3506 132.8161,55.3578 132.9455,55.373 132.854,55.4186 132.7522,55.4185 132.7182,55.4542 132.609,55.5193 132.6641,55.5587 132.5871,55.6153 132.5415,55.678 132.4677,55.6782 132.3955,55.7039 132.2286,55.7054 132.1089,55.6333 132.0269,55.6585 131.9073,55.6317 131.8029,55.616 131.7459,55.6472 131.6172,55.6526 131.5888,55.6117 131.4384,55.6453 131.3611,55.6156 131.1821,55.6443 131.1082,55.6145 130.9897,55.645 130.8773,55.6797 130.8735,55.7148 130.8153,55.7925 130.797,55.8834 130.7993,55.975 130.893,55.9948 130.9556,56.0721 130.9736,56.1385 131.0381,56.2017 131.1047,56.2462 131.1251,56.3337 131.121,56.4133 131.1964,56.5002 131.3252,56.5231 131.3686,56.4682 131.4445,56.4682 131.4279,56.5099 131.5077,56.5592 131.5865,56.5311 131.6301,56.469 131.6969,56.478 131.742,56.4933 131.6571,56.5448 131.6835,56.5807 131.6793,56.6275 131.6908,56.6888 131.8047,56.7459 131.8105,56.7765 131.7734,56.8599 131.7301,56.868 131.6029,56.9512 131.5278,57.0217 131.4637,57.0643 131.5065,57.1101 131.3389,57.1543 131.336,57.1823 131.2786,57.197 131.2136,57.1597 131.1877,57.2011 131.1322,57.2368 131.1899,57.2621 131.2432,57.2896 131.2814,57.3377 131.3431,57.2833 131.4336,57.2837 131.5165,57.2745 131.5301,57.3124 131.6206,57.315 131.59,57.4102 131.6437,57.4843 131.7646,57.5392 131.7098,57.5682 131.7246,57.5967 131.7951,57.5869 131.8662,57.6192 132.0019,57.611 131.9803,57.6596 132.0705,57.6759 132.0433,57.7408 131.9565,57.7855 131.9219,57.8315 131.77,57.865 131.8193,57.9014 131.8109,57.9457 131.7671,57.9446 131.6181,58.0318 131.6748,58.0381 131.653,58.082 131.5675,58.0984 131.4862,58.1616 131.4841,58.1827 131.5619,58.2013 131.6206,58.1889 131.7392,58.1991 131.7704,58.1484 131.8582,58.1554 131.8953,58.1353 131.9611,58.0901 132.0804,58.0345 132.1006,58.056 132.1649,58.0786 132.1366,58.1014 132.0237,58.1315 132.0517,58.1673 132.0349,58.209 132.1404,58.2724 132.2044,58.2481 132.227,58.354 132.1971,58.4493 132.148,58.5043 132.2895,58.5216 132.4077,58.4937 132.4515,58.504 132.3947,58.5473 132.5925,58.6589 132.5459,58.6838 132.5861,58.7501 132.5419,58.803 132.6215,58.8875 132.539,58.9316 132.4111,58.8742 132.244,58.8706 132.2682,59.0082 132.1239,59.1466 131.7425,59.1418 131.6738,59.2086 131.6231,59.5362 131.5787,59.9691 131.8341,60.0579 131.8595,60.2686 132.0095,60.3361 132.2836,60.3604 132.3736,60.4992 132.474,60.6336 132.8101,60.6077 133.0641,60.703 133.0934,60.8357 132.9938,61.0807 132.9833,61.2447 133.2939,61.2765 133.7469,61.318 134.2872,61.3311 134.6466,61.4328 134.3965,61.5687 134.0818,61.8634 133.6373,61.8733 133.2092,61.9277 133.0416,62.126 132.6247,62.3475 132.6325,62.4982 132.5211,62.5328 132.6057,62.8307 132.7524,63.1296 132.7524,63.3896 132.4441,63.6535 132.128,63.7342 132.7294,64.0642 132.9208,64.2905 132.9189,64.4546 132.7491,64.5935 132.6159,64.6598 132.2888,64.6314 132.1988,64.6799 132.2418,64.781 131.9898,65.1229 131.6834,65.3218 131.4935,65.5183 131.5931,65.767 131.3668,65.8759 131.1016,65.9334 130.6153,66.0301 130.3908,66.0921 130.1177,66.1067 130.0032,66.3453 130.1038,66.4719 129.9522,66.5997 129.6879,66.5453 129.4815,66.6481 129.3836,66.5715 128.9903,66.5342 128.6391,66.4701 128.3473,66.4902 127.8793,66.5615 127.2493,66.6972 127.2801,66.9695 127.3712,67.2401 127.2899,67.4198 127.228,67.6097 126.7718,67.6749 126.6866,67.8821 126.8037,68.1728 126.8055,68.3062 127.0233,68.3579 127.1991,68.389 127.1987,68.4992 126.9262,68.5969 126.6586,68.7082 127.135,68.7903 127.581,68.7824 128.1597,68.7512 128.3959,68.8062 128.6042,68.8735 128.8592,68.9148 129.405,68.8645 129.8061,68.8814 130.0314,69.0069 130.5595,68.9754 130.9387,68.916 131.6063,69.0216 131.9498,69.0492 132.237,69.0673 132.5866,69.203 132.7642,69.3058 132.7924,69.4936 133.043,69.5668 133.4859,69.6548 133.4516,69.7315 133.1543,69.8291 132.9161,69.959 133.4227,69.9923 133.4514,70.1331 133.1142,70.2807 132.4409,70.3697 132.2165,70.4337 132.0855,70.4956 132.2015,70.6435 132.0461,70.769 132.1145,70.9664 131.9762,71.0511 131.784,71.0717 131.5756,71.1182 131.5734,71.1179 131.5409,71.1076 131.4693,71.0455 131.4438,70.9888 131.3576,70.8835 131.3299,70.8573 131.2723,70.811 131.2372,70.7847 131.1999,70.7642 131.0527,70.6966 131.0203,70.6829 130.9875,70.67 130.9119,70.6471 130.8854,70.6418 130.8339,70.6384 130.7285,70.6417 130.6681,70.6489 130.6278,70.6547 130.6018,70.6622 130.5875,70.6907 130.6013,70.7114 130.5957,70.7443 130.4858,70.8783 130.4501,70.8724 130.4234,70.8599 130.4136,70.8345 130.4138,70.8123 130.3971,70.7896 130.3662,70.7777 130.33,70.7733 130.2811,70.7762 130.2182,70.788 130.1956,70.7996 130.0643,70.828 129.9924,70.8375 129.9278,70.8533 129.8728,70.8723 129.8994,70.8777 129.9259,70.8902 129.8594,70.9534 129.7809,70.9889 129.6146,71.0051 129.509,71.0119 129.447,71.0274 129.4611,71.0499 129.4105,71.1228 129.3558,71.1641 129.3266,71.1722 129.305,71.1763 129.1222,71.2292 129.0863,71.2493 129.0607,71.2949 129.0478,71.3194 129.0153,71.3676 128.9403,71.455 128.8842,71.496 128.8534,71.5093 128.8047,71.5116 128.7674,71.5074 128.7282,71.5035 128.6231,71.4962 128.5928,71.4976 128.5706,71.5017 128.5444,71.5095 128.5143,71.5608 128.537,71.5839 128.5837,71.6038 128.6287,71.6131 128.6867,71.6161 128.7464,71.6159 128.8135,71.6211 128.9133,71.6393 128.9735,71.6536 129.0793,71.6414 129.1238,71.6323 129.2251,71.6246 129.178,71.6425 129.0124,71.7037 128.9863,71.7305 129.0039,71.7532 128.9925,71.7711 128.9746,71.7858 128.7685,71.9063 128.7513,71.8793 128.7769,71.8242 128.7944,71.8036 128.8165,71.7893 128.8386,71.7776 128.8675,71.7544 128.8824,71.7301 128.8802,71.7082 128.8577,71.6943 128.7798,71.6722 128.6589,71.6448 128.6191,71.6452 128.4109,71.6751 128.3454,71.7031 128.3554,71.7317 128.3114,71.7949 128.2454,71.8052 128.2247,71.8067 128.1934,71.8184 128.1287,71.8698 128.0811,71.9436 127.9536,72.0152 127.7163,72.0891 127.6344,72.1096 127.5415,72.1633 127.4833,72.1959 127.4601,72.2073 127.3936,72.2376 127.3547,72.2509 127.3317,72.2548 127.3099,72.2559 127.2492,72.2549 127.1888,72.253 127.1684,72.2529 127.147,72.2543 126.9893,72.2751 126.9436,72.2824 126.8729,72.2958 126.7261,72.3057 126.6432,72.3056 126.6027,72.3046 126.418,72.2909 126.5126,72.2353 126.5901,72.1965 126.6035,72.1532 126.6149,72.0781 126.675,71.9583 126.7265,71.9193 126.748,71.9113 126.7791,71.9044 126.8145,71.8961 126.8924,71.8761 126.9232,71.8653 126.9698,71.8429 126.9931,71.832 127.0162,71.8175 127.0274,71.7996 127.0154,71.7769 126.9922,71.7629 126.944,71.7419 126.9007,71.6785 126.8913,71.6522 126.9287,71.5474 126.9435,71.5107 126.9667,71.4871 126.9985,71.4483 127.017,71.3959 127.0186,71.3646 127.018,71.3364 127.0118,71.3169 126.9947,71.3002 126.9827,71.2944 126.9216,71.3003 126.9205,71.3277 126.9358,71.3633 126.9252,71.4288 126.9087,71.4998 126.8839,71.5203 126.808,71.6411 126.7925,71.672 126.8071,71.7055 126.8333,71.7526 126.8161,71.7674 126.7309,71.8124 126.6999,71.8232 126.6765,71.8276 126.6454,71.8384 126.6105,71.8552 126.5047,71.9208 126.5098,71.9467 126.4758,72.0168 126.4516,72.0442 126.3255,72.082 126.2518,72.1552 126.0995,72.246 126.0638,72.2557 126.0157,72.2389 125.9734,72.2112 125.9458,72.1934 125.8278,72.1711 125.7953,72.174 125.7551,72.1843 125.6748,72.2103 125.6065,72.231 125.5826,72.2357 125.5603,72.2379 125.5297,72.2371 125.5009,72.2341 125.4614,72.2317 125.4186,72.2337 125.3724,72.2405 125.3482,72.2454 125.2914,72.2605 125.2533,72.2737 125.2273,72.2988 125.1558,72.3267 125.1074,72.3361 125.0426,72.3396 125.0203,72.3418 124.997,72.3451 124.9565,72.355 124.9314,72.3659 124.9179,72.3841 124.9004,72.4018 124.8603,72.427 124.8373,72.435 124.8171,72.4399 124.7926,72.4447 124.7466,72.4502 124.6758,72.4606 124.6517,72.4653 124.5611,72.4838 124.4636,72.5125 124.4381,72.5267 124.4071,72.5314 124.3636,72.5335 124.2554,72.537 124.1519,72.54 124.1311,72.5397 124.0884,72.5407 124.0439,72.5437 123.9706,72.5562 123.9304,72.5689 123.8999,72.5855 123.8473,72.6041 123.8095,72.6139 123.5604,72.6487 123.4885,72.6587 123.4446,72.6605 123.3818,72.6596 123.3613,72.6584 123.2717,72.6393 123.1958,72.6288 123.1757,72.6268 123.1141,72.6252 123.0922,72.6258 123.0463,72.6299 122.9247,72.6457 122.8513,72.6565 122.7999,72.6715 122.7498,72.6802 122.7033,72.6843 122.6594,72.6862 122.5701,72.6907 122.4522,72.7032 122.3567,72.7146 122.2219,72.7409 122.1939,72.7483 122.1749,72.7595 122.1226,72.7696 122.0994,72.7716 122.0774,72.7726 122.014,72.7714 121.9699,72.7732 121.9243,72.7758 121.829,72.7859 121.7568,72.7941 121.7313,72.7984 121.7096,72.803 121.6289,72.831 121.6639,72.8543 121.6403,72.8632 121.5692,72.8699 121.5465,72.871 121.5035,72.8711 121.1763,72.8719 121.0929,72.8688 121.0041,72.8602 120.9194,72.8466 120.8609,72.8407 120.8411,72.839 120.7598,72.8333 120.7201,72.8322 120.6754,72.8335 120.6297,72.836 120.5819,72.8405 120.5324,72.8469 120.4834,72.8529 120.3878,72.8701 120.336,72.8785 120.3114,72.8814 120.288,72.8829 120.2655,72.8835 120.1809,72.8813 120.1349,72.8838 120.0655,72.888 119.8423,72.9017 119.5875,72.9163 119.519,72.9189 119.4905,72.9151 119.4654,72.8996 119.4985,72.8727 119.5271,72.8621 119.5631,72.8529 119.5852,72.8485 119.6097,72.8453 119.6545,72.8442 119.767,72.8402 119.8799,72.8362 119.9767,72.8267 120.0729,72.8175 120.1467,72.8084 120.2688,72.7841 120.1638,72.7834 120.0878,72.7945 120.0401,72.8029 119.967,72.8108 119.9433,72.8124 119.8978,72.8148 119.806,72.8196 119.7084,72.8221 119.6723,72.823 119.6256,72.8265 119.5759,72.8321 119.5263,72.838 119.4695,72.8488 119.2947,72.8982 119.2722,72.9266 119.2414,72.9605 119.2091,72.9658 119.1853,72.9677 119.1628,72.968 119.1417,72.9674 119.0069,72.9704 118.9592,72.9737 118.7131,73.006 118.5613,73.0356 118.3813,73.0663 118.3563,73.0689 118.1804,73.1031 118.0977,73.1401 118.0601,73.1846 118.0545,73.3109 118.0739,73.3285 118.1775,73.3803 118.2028,73.384 118.3039,73.3762 118.3385,73.354 118.3935,73.3432 118.6164,73.3559 118.66,73.3669 118.6908,73.3862 118.6584,73.4055 118.5367,73.4452 118.3648,73.4694 118.339,73.4724 118.1725,73.4799 118.1262,73.4804 117.6578,73.4866 117.5277,73.4819 117.5071,73.4799 117.4206,73.4771 117.2819,73.479 117.0455,73.4868 116.9978,73.4885 116.9504,73.4906 116.9244,73.4929 116.8736,73.501 116.7914,73.5123 116.7136,73.5197 116.4396,73.5452 116.31,73.561 116.2837,73.5632 116.2345,73.5662 116.1418,73.5674 116.0982,73.5654 116.0377,73.5591 115.9942,73.5572 115.9477,73.5579 115.8736,73.562 115.8214,73.5669 115.7658,73.574 115.7121,73.5802 115.5824,73.5914 115.5311,73.5954 115.5065,73.5962 115.308,73.6021 115.168,73.6034 115.1015,73.6014 114.9551,73.5934 114.8657,73.5777 114.829,73.5712 114.6935,73.5438 114.6696,73.5361 114.6342,73.5198 114.5924,73.5081 114.5727,73.5059 114.3632,73.4909 114.2552,73.4857 114.1427,73.4835 114.1197,73.4837 114.0919,73.4869 114.0396,73.4918 113.9896,73.494 113.9222,73.4931 113.8145,73.4876 113.7348,73.4782 113.6979,73.4717 113.6636,73.4552 113.6379,73.4492 113.5619,73.4379 113.5419,73.4357 113.3551,73.4208 113.2696,73.4161 113.2302,73.4117 113.1887,73.4015 113.2233,73.3571 113.2456,73.3401 113.3365,73.304 113.489,73.2548 113.5403,73.2475 113.5755,73.2471 113.6434,73.2553 113.6664,73.2552 113.6908,73.254 113.7167,73.252 113.7464,73.2457 113.7293,73.2349 113.7027,73.2295 113.5784,73.2127 113.5457,73.2114 113.5237,73.2139 113.5,73.2178 113.4738,73.2199 113.4429,73.2177 113.4148,73.2132 113.2638,73.1397 113.2511,73.1156 113.2518,73.0824 113.2623,73.064 113.2835,72.9782 113.258,72.8693 113.232,72.8465 113.0943,72.7878 113.059,72.7807 112.9632,72.7696 112.9011,72.7579 112.8788,72.745 112.8817,72.7223 112.9059,72.6988 112.9375,72.6763 112.9378,72.6697 112.9503,72.6416 113.0749,72.5904 113.1019,72.5842 113.1669,72.5723 113.4108,72.5395 113.4376,72.5362 113.4629,72.534 113.4851,72.534 113.5054,72.5349 113.5494,72.5351 113.5731,72.5337 113.6958,72.5246 113.7487,72.5179 113.7814,72.512 113.8178,72.4977 113.7706,72.5001 113.7457,72.5023 113.7203,72.5048 113.6406,72.515 113.5219,72.5244 113.4747,72.5265 113.4086,72.5268 113.3882,72.5256 113.3658,72.5254 113.3407,72.5279 113.2607,72.5379 113.1919,72.5492 113.1075,72.5656 113.0283,72.581 112.9637,72.6001 112.9122,72.6219 112.8154,72.7373 112.8365,72.7593 112.8572,72.7682 112.9146,72.7751 112.9458,72.7773 113.0222,72.7863 113.0544,72.7955 113.199,72.8634 113.1773,72.9012 113.1827,72.9215 113.209,72.9512 113.2388,72.9878 113.2417,73.0144 113.2155,73.2382 113.1956,73.2456 113.1716,73.2494 113.116,73.2562 113.038,73.2626 113.0103,73.2661 112.9841,73.2727 112.8551,73.3489 112.9774,73.45 113.0107,73.4672 113.0371,73.4729 113.0572,73.4749 113.1285,73.4798 113.1471,73.5027 113.1416,73.5412 113.1198,73.5782 113.0811,73.6029 113.0544,73.6163 113.0257,73.6327 112.9844,73.6575 112.9263,73.7002 112.8758,73.7399 112.8583,73.7595 112.6025,73.8646 112.5839,73.827 112.6488,73.7625 112.6682,73.6973 112.6347,73.6783 112.5917,73.6598 112.5622,73.6484 112.4703,73.6314 112.4504,73.6287 112.4092,73.6256 112.3244,73.6192 112.1735,73.6106 112.1289,73.6094 111.9908,73.6073 111.9676,73.6071 111.818,73.6126 111.7412,73.6169 111.4951,73.6476 111.368,73.6652 111.3058,73.6774 111.1309,73.719 111.0384,73.7441 111.0143,73.7591 111.0116,73.7616 111.0102,73.7612 110.9683,73.7526 110.9265,73.741 110.8832,73.7222 110.8442,73.7165 110.7807,73.7179 110.7142,73.702 110.6435,73.6818 110.6175,73.6659 110.6149,73.6647 110.5999,73.6337 110.6299,73.5969 110.6348,73.5966 110.6442,73.5901 110.6745,73.588 110.7207,73.5793 110.7958,73.5598 110.8283,73.5512 110.8651,73.5353 110.8716,73.5208 110.8536,73.5122 110.8435,73.5006 110.829,73.4891 110.7915,73.4761 110.7409,73.4681 110.6861,73.4667 110.6327,73.4703 110.5764,73.4667 110.5598,73.458 110.5475,73.445 110.5273,73.4277 110.5244,73.414 110.5237,73.4089 110.4623,73.3988 110.4262,73.3794 110.4002,73.3555 110.3627,73.3353 110.3121,73.3151 110.2638,73.305 110.1937,73.3043 110.1216,73.3 110.0501,73.3 109.9411,73.3007 109.8848,73.3014 109.8906,73.2935 109.9035,73.2834 109.9368,73.2783 109.975,73.2747 110.0125,73.2617 110.058,73.2523 110.1049,73.2429 110.1504,73.2343 110.1916,73.2343 110.2327,73.2292 110.2811,73.2205 110.2912,73.2104 110.297,73.1989 110.3309,73.1895 110.3468,73.1794 110.3461,73.1678 110.3193,73.1534 110.258,73.1361 110.1952,73.1188 110.1605,73.1115 110.1475,73.1079 110.1403,73.0964 110.1483,73.0877 110.1743,73.0827 110.2176,73.0812 110.2608,73.0805 110.3013,73.079 110.3648,73.0805 110.4182,73.0819 110.4572,73.0805 110.5034,73.0761 110.5287,73.0689 110.5294,73.0588 110.5222,73.0437 110.5561,73.0278 110.5691,73.0126 110.572,72.9888 110.5777,72.978 110.5958,72.97 110.6276,72.9599 110.6521,72.9484 110.6622,72.9368 110.6485,72.9274 110.6175,72.9231 110.5691,72.9173 110.5258,72.9094 110.5005,72.9 110.494,72.8892 110.5207,72.8798 110.5351,72.8596 110.5344,72.8545 110.5423,72.8509 110.5662,72.8509 110.5842,72.8538 110.5929,72.8531 110.5922,72.8473 110.5806,72.8423 110.5525,72.8372 110.5192,72.8271 110.4803,72.8112 110.4225,72.8069 110.385,72.8033 110.3698,72.7953 110.3727,72.7852 110.3871,72.7787 110.3843,72.7722 110.3734,72.7679 110.3792,72.7528 110.4081,72.747 110.4427,72.7398 110.4499,72.7282 110.4319,72.7174 110.3713,72.7008 110.3561,72.6964 110.3547,72.6842 110.3741,72.651 110.3944,72.6149 110.4088,72.5781 110.4268,72.5578 110.4493,72.5448 110.4984,72.5397 110.5821,72.5369 110.6182,72.534 110.6492,72.5318 110.6601,72.5246 110.6536,72.5195 110.6391,72.5116 110.6153,72.5065 110.616,72.5036 110.6348,72.495 110.6355,72.4899 110.6102,72.482 110.624,72.4762 110.6896,72.4704 110.7286,72.4769 110.7539,72.4748 110.8138,72.4654 110.8853,72.4538 110.9517,72.4459 110.9849,72.4343 110.9936,72.425 111.0325,72.4141 111.0398,72.4047 111.0333,72.3831 110.9827,72.3694 110.9286,72.3593 110.917,72.3427 110.8947,72.3326 110.8384,72.3217 110.7965,72.3051 110.7965,72.2806 110.8044,72.2741 110.8333,72.2647 110.8795,72.2604 110.9271,72.2545 110.9596,72.243 111.0014,72.2336 111.0231,72.2358 111.0447,72.2372 111.0556,72.2343 111.0613,72.2206 111.0758,72.217 111.1018,72.2163 111.1545,72.2156 111.2202,72.2156 111.2678,72.2184 111.2909,72.2213 111.3032,72.217 111.366,72.186 111.3811,72.1758 111.3876,72.1578 111.3739,72.1398 111.345,72.1145 111.3653,72.1065 111.4021,72.0993 111.4403,72.108 111.454,72.1109 111.4642,72.1072 111.4598,72.1029 111.4605,72.0885 111.4663,72.0777 111.4764,72.0654 111.4779,72.0567 111.4959,72.0452 111.5551,72.0315 111.6208,72.0286 111.6973,72.0293 111.732,72.0343 111.7349,72.0286 111.732,72.0127 111.732,71.786 111.7341,71.6113 111.7305,71.5355 111.7319,71.3226 111.7312,71.3082 111.8171,71.2945 111.9182,71.2742 112.0214,71.2504 112.0806,71.2317 112.134,71.2086 112.1384,71.1985 112.1679,71.1927 112.2033,71.1855 112.2185,71.1783 112.2185,71.1754 112.2243,71.1674 112.2488,71.1689 112.3159,71.184 112.3369,71.1884 112.3592,71.1891 112.373,71.1833 112.3795,71.171 112.386,71.1617 112.4069,71.1559 112.4379,71.1487 112.4452,71.1451 112.4372,71.1371 112.4249,71.1119 112.4004,71.1025 112.3203,71.0851 112.2531,71.0722 112.2409,71.0635 112.2416,71.0555 112.2632,71.0418 112.3087,71.0166 112.3167,71.0079 112.3051,71.0007 112.2668,70.9942 112.2214,70.9769 112.1939,70.9624 112.1116,70.966 112.082,70.9559 112.0408,70.9321 111.9939,70.9039 111.9456,70.9018 111.9145,70.9119 111.9059,70.9278 111.8871,70.94 111.8755,70.9523 111.8445,70.9602 111.807,70.9617 111.7781,70.9552 111.7579,70.9364 111.7427,70.9047 111.7174,70.8895 111.6878,70.8808 111.5861,70.8736 111.503,70.865 111.2352,70.8368 111.22,70.8455 111.1847,70.8376 111.1746,70.8181 111.132,70.7928 111.1276,70.787 111.1168,70.782 111.1103,70.7668 111.0894,70.7567 111.0605,70.7531 110.9768,70.7538 110.9573,70.7523 110.8974,70.7516 110.8238,70.7509 110.7725,70.7429 110.7372,70.7343 110.7256,70.7437 110.7032,70.7328 110.6679,70.722 110.6339,70.7169 110.6238,70.7018 110.6,70.6953 110.5711,70.6982 110.5235,70.7047 110.5213,70.7162 110.4412,70.7191 110.4289,70.7054 110.4022,70.6961 110.3431,70.704 110.3322,70.7047 110.2694,70.6983 110.2355,70.686 110.2232,70.6672 110.2283,70.6578 110.2362,70.6275 110.2326,70.616 110.1424,70.6051 110.0449,70.6058 110.0095,70.577 109.9951,70.5705 109.9345,70.5698 109.8991,70.5517 109.845,70.5351 109.8421,70.5322 109.8616,70.5119 109.8689,70.4824 109.8862,70.4643 109.879,70.4542 109.8082,70.4578 109.8089,70.4499 109.8162,70.4455 109.8595,70.4333 109.866,70.4239 109.8653,70.4044 109.8551,70.3849 109.8595,70.3798 109.9078,70.3705 109.9721,70.3647 110.0226,70.351 110.019,70.3351 109.988,70.317 109.8804,70.3228 109.814,70.3113 109.7591,70.3163 109.7368,70.3185 109.6783,70.3033 109.6631,70.3033 109.5649,70.3084 109.4718,70.2881 109.3946,70.2845 109.3621,70.286 109.3368,70.2751 109.3015,70.2542 109.3491,70.2333 109.3505,70.2275 109.3513,70.2174 109.3325,70.1986 109.3036,70.1705 109.2524,70.1517 109.1896,70.1373 109.139,70.1286 109.1123,70.1279 109.0712,70.1293 109.0531,70.125 109.0365,70.1156 109.0243,70.0867 109.0264,70.0752 109.0387,70.0658 109.0704,70.0427 109.1029,70.0188 109.1051,70.0102 109.0986,70.0022 109.0957,69.9842 109.1174,69.9683 109.1708,69.9495 109.2177,69.9438 109.2625,69.9445 109.2625,69.9365 109.2524,69.9134 109.2249,69.9026 109.1665,69.8868 109.1383,69.8557 109.1159,69.8413 109.1029,69.8268 109.1001,69.8124 109.1383,69.7922 109.108,69.7691 109.082,69.7366 109.0423,69.7251 108.9867,69.6839 108.9217,69.6673 108.8698,69.6594 108.7326,69.6759 108.6814,69.6838 108.6554,69.6903 108.6417,69.7019 108.6135,69.7315 108.6027,69.7394 108.5319,69.7423 108.4597,69.7401 108.4114,69.7344 108.332,69.7365 108.2995,69.7387 108.2367,69.7495 108.1818,69.7539 108.1154,69.751 108.0064,69.7567 107.9436,69.7524 107.9233,69.7394 107.8735,69.7279 107.8288,69.7055 107.7515,69.6658 107.7328,69.6405 107.74,69.6124 107.7357,69.6066 107.6591,69.5842 107.6093,69.5727 107.5444,69.5842 107.4678,69.5828 107.3711,69.5683 107.2895,69.5554 107.1827,69.5337 107.0578,69.5185 106.943,69.5012 106.8586,69.4911 106.8239,69.4824 106.7495,69.4601 106.6636,69.4348 106.629,69.4326 106.5814,69.4247 106.5481,69.4139 106.5207,69.4139 106.4449,69.424 106.3742,69.4247 106.3344,69.416 106.2998,69.4196 106.2854,69.4305 106.2745,69.442 106.2139,69.4673 106.1626,69.4694 106.0984,69.4398 106.024,69.3944 106.0168,69.364 105.9879,69.3503 105.8797,69.3279 105.8573,69.3186 105.8573,69.3099 105.8522,69.3041 105.9771,69.216 106.4319,68.8918 106.6051,68.7677 106.6123,68.7554 106.6116,68.7323 106.6145,68.6486 106.621,68.5143 106.6166,68.4126 106.6122,68.3339 106.5992,68.2783 106.5963,68.2205 106.6079,68.1556 106.6093,68.1187 106.6152,68.0307 106.6073,67.965 106.6008,67.908 106.6008,67.8142 106.595,67.7521 106.5849,67.6951 106.564,67.6106 106.551,67.5788 106.551,67.5355 106.5445,67.4532 106.5401,67.3948 106.538,67.3565 106.5279,67.3298 106.5257,67.3118 106.5264,67.2742 106.5242,67.2511 106.5141,67.2367 106.4549,67.2006 106.4051,67.1508 106.3813,67.1428 106.3611,67.1443 106.3091,67.1717 106.2239,67.1861 106.13,67.1674 106.0427,67.1111 106.0044,67.1024 105.9539,67.0844 105.9286,67.0822 105.8406,67.0822 105.764,67.0641 105.7416,67.0129 105.6911,66.9638 105.6175,66.9443 105.5179,66.9335 105.4305,66.9241 105.3446,66.9212 105.2804,66.9241 105.2399,66.9183 105.2469,66.9106 2060,10.0,Russia 126.6598,68.7077 126.9262,68.5969 127.1987,68.4992 127.1991,68.389 127.0233,68.3579 126.8055,68.3062 126.8037,68.1728 126.6866,67.8821 126.7718,67.6749 127.228,67.6097 127.2899,67.4198 127.3712,67.2401 127.2801,66.9695 127.2493,66.6972 127.8793,66.5615 128.3473,66.4902 128.6391,66.4701 128.9903,66.5342 129.3836,66.5715 129.4815,66.6481 129.6879,66.5453 129.9522,66.5997 130.1038,66.4719 130.0032,66.3453 130.1177,66.1067 130.3908,66.0921 130.6153,66.0301 131.1016,65.9334 131.3668,65.8759 131.5931,65.767 131.4935,65.5183 131.6834,65.3218 131.9898,65.1229 132.2418,64.781 132.1988,64.6799 132.2888,64.6314 132.6159,64.6598 132.7491,64.5935 132.9189,64.4546 132.9208,64.2905 132.7294,64.0642 132.128,63.7342 132.4441,63.6535 132.7524,63.3896 132.7524,63.1296 132.6057,62.8307 132.5211,62.5328 132.6325,62.4982 132.6247,62.3475 133.0416,62.126 133.2092,61.9277 133.6373,61.8733 134.0818,61.8634 134.3965,61.5687 134.6466,61.4328 134.2872,61.3311 133.7469,61.318 133.2939,61.2765 132.9833,61.2447 132.9938,61.0807 133.0934,60.8357 133.0641,60.703 132.8101,60.6077 132.474,60.6336 132.3736,60.4992 132.2836,60.3604 132.0095,60.3361 131.8595,60.2686 131.8341,60.0579 131.5787,59.9691 131.6231,59.5362 131.6738,59.2086 131.7425,59.1418 132.1239,59.1466 132.2682,59.0082 132.244,58.8706 132.4111,58.8742 132.539,58.9316 132.6215,58.8875 132.5419,58.803 132.5861,58.7501 132.5459,58.6838 132.5925,58.6589 132.3947,58.5473 132.4515,58.504 132.4077,58.4937 132.2895,58.5216 132.148,58.5043 132.1971,58.4493 132.227,58.354 132.2044,58.2481 132.1404,58.2724 132.0349,58.209 132.0517,58.1673 132.0237,58.1315 132.1366,58.1014 132.1649,58.0786 132.1006,58.056 132.0804,58.0345 131.9611,58.0901 131.8953,58.1353 131.8582,58.1554 131.7704,58.1484 131.7392,58.1991 131.6206,58.1889 131.5619,58.2013 131.4841,58.1827 131.4862,58.1616 131.5675,58.0984 131.653,58.082 131.6748,58.0381 131.6181,58.0318 131.7671,57.9446 131.8109,57.9457 131.8193,57.9014 131.77,57.865 131.9219,57.8315 131.9565,57.7855 132.0433,57.7408 132.0705,57.6759 131.9803,57.6596 132.0019,57.611 131.8662,57.6192 131.7951,57.5869 131.7246,57.5967 131.7098,57.5682 131.7646,57.5392 131.6437,57.4843 131.59,57.4102 131.6206,57.315 131.5301,57.3124 131.5165,57.2745 131.4336,57.2837 131.3431,57.2833 131.2814,57.3377 131.2432,57.2896 131.1899,57.2621 131.1322,57.2368 131.1877,57.2011 131.2136,57.1597 131.2786,57.197 131.336,57.1823 131.3389,57.1543 131.5065,57.1101 131.4637,57.0643 131.5278,57.0217 131.6029,56.9512 131.7301,56.868 131.7734,56.8599 131.8105,56.7765 131.8047,56.7459 131.6908,56.6888 131.6793,56.6275 131.6835,56.5807 131.6571,56.5448 131.742,56.4933 131.6969,56.478 131.6301,56.469 131.5865,56.5311 131.5077,56.5592 131.4279,56.5099 131.4445,56.4682 131.3686,56.4682 131.3252,56.5231 131.1964,56.5002 131.121,56.4133 131.1251,56.3337 131.1047,56.2462 131.0381,56.2017 130.9736,56.1385 130.9556,56.0721 130.893,55.9948 130.7993,55.975 130.797,55.8834 130.8153,55.7925 130.8735,55.7148 130.8773,55.6797 130.9897,55.645 131.1082,55.6145 131.1821,55.6443 131.3611,55.6156 131.4384,55.6453 131.5888,55.6117 131.6172,55.6526 131.7459,55.6472 131.8029,55.616 131.9073,55.6317 132.0269,55.6585 132.1089,55.6333 132.2286,55.7054 132.3955,55.7039 132.4677,55.6782 132.5415,55.678 132.5871,55.6153 132.6641,55.5587 132.609,55.5193 132.7182,55.4542 132.7522,55.4185 132.854,55.4186 132.9455,55.373 132.8161,55.3578 132.7243,55.3506 132.6819,55.3697 132.6563,55.3201 132.6908,55.2735 132.5971,55.1987 132.4068,55.2054 132.3631,55.1953 132.3445,55.1439 132.418,55.0837 132.1927,55.0564 132.0308,55.0286 131.9488,54.9882 131.9968,54.8966 131.8157,54.8442 131.6952,54.7843 131.6139,54.7818 131.5594,54.7237 131.3878,54.7183 131.2761,54.6417 131.1767,54.6037 131.2265,54.5398 131.1671,54.4447 131.117,54.3208 131.0497,54.2802 130.9799,54.2977 130.9364,54.3289 130.8296,54.283 130.7369,54.2813 130.6733,54.2387 130.6222,54.1965 130.5325,54.1418 130.4849,54.0706 130.4733,53.9825 130.4127,53.9471 130.3861,53.9113 130.4386,53.8807 130.5197,53.8968 130.5742,53.8753 130.6585,53.8896 130.7434,53.84 130.8424,53.831 130.8497,53.7894 130.9227,53.7629 131.0188,53.8121 131.1735,53.7939 131.3276,53.7809 131.4373,53.7499 131.4467,53.6772 131.4392,53.6241 131.5021,53.5641 131.4594,53.4952 131.4828,53.4705 131.4761,53.4429 131.5164,53.3603 131.5331,53.306 131.5101,53.256 131.4345,53.2226 131.5174,53.2052 131.6728,53.221 131.7828,53.2408 131.8625,53.2249 131.8341,53.162 131.894,53.1255 131.9496,53.1471 132.0107,53.1343 132.0948,53.2223 132.1675,53.2169 132.3977,53.2464 132.4468,53.2312 132.5919,53.2236 132.6472,53.2594 132.7115,53.2408 132.7987,53.2444 132.8899,53.2298 132.9352,53.289 132.981,53.2771 133.1003,53.3067 133.1613,53.2913 133.1782,53.3208 133.1735,53.3571 133.2188,53.429 133.3199,53.4725 133.4078,53.4738 133.4729,53.5149 133.495,53.4915 133.5281,53.4974 133.5599,53.5434 133.6296,53.5461 133.7171,53.4652 133.7654,53.4694 133.7951,53.4916 133.8203,53.4591 133.8866,53.4707 134.0027,53.4317 134.0689,53.4469 134.1083,53.4436 134.1528,53.4895 134.1896,53.4679 134.2138,53.4699 134.2227,53.4809 134.2189,53.521 134.2614,53.5158 134.3703,53.5384 134.3949,53.5166 134.4492,53.5388 134.4423,53.5952 134.5243,53.5993 134.5575,53.6249 134.6398,53.5961 134.7617,53.5326 134.7377,53.4852 134.7772,53.4707 134.8317,53.4799 134.8318,53.4508 134.9136,53.429 134.9288,53.4035 134.9077,53.3688 134.8321,53.3852 134.8082,53.3323 134.8776,53.3214 134.9079,53.2796 134.9622,53.265 134.9412,53.214 134.857,53.1865 134.8332,53.1118 134.8723,53.0772 134.8004,53.0625 134.6545,52.9309 134.6909,52.8672 134.6282,52.8597 134.6349,52.785 134.7185,52.7615 134.6532,52.734 134.6652,52.7121 134.7604,52.7106 134.7636,52.6723 134.7934,52.6523 134.7402,52.6084 134.7017,52.6101 134.6781,52.5827 134.6368,52.5625 134.6196,52.5004 134.6641,52.4769 134.6292,52.4166 134.5347,52.4162 134.4692,52.4505 134.2947,52.4605 134.2142,52.4946 134.1287,52.4775 134.0839,52.4953 134.0573,52.4951 134.0,52.5402 133.9294,52.5213 133.8583,52.5205 133.8307,52.5549 133.7804,52.5543 133.6464,52.5709 133.6097,52.6051 133.5111,52.6257 133.4894,52.6509 133.418,52.6535 133.3753,52.682 133.3158,52.683 133.2372,52.6434 133.2452,52.5924 133.2377,52.5595 133.2831,52.5365 133.2792,52.4872 133.242,52.4555 133.3267,52.4077 133.3083,52.349 133.3982,52.3139 133.4375,52.2871 133.4097,52.2429 133.3573,52.2275 133.3436,52.2017 133.2061,52.1849 133.1807,52.1607 133.1272,52.1744 133.002,52.1502 132.9256,52.1505 132.833,52.1815 132.7681,52.129 132.6526,52.0937 132.5888,52.0813 132.5384,52.0381 132.5085,51.9479 132.3963,51.9653 132.4342,51.8695 132.2758,51.7887 132.2183,51.8219 132.1265,51.7994 132.0852,51.7635 132.0475,51.8044 131.9648,51.7363 131.8613,51.7588 131.739,51.6802 131.6114,51.6761 131.5918,51.6663 131.4095,51.6913 131.4304,51.6499 131.3913,51.5956 131.4259,51.5273 131.4465,51.4878 131.4854,51.4727 131.5059,51.36 131.4557,51.3382 131.3368,51.3798 131.2346,51.3249 131.1721,51.2476 131.1105,51.26 131.0466,51.2337 131.0455,51.1825 130.9827,51.1453 130.9858,51.1107 130.9302,51.028 130.8106,51.0195 130.7665,50.9408 130.8128,50.9354 130.8416,50.8725 130.7937,50.8651 130.7389,50.7804 130.6757,50.7265 130.7064,50.704 130.6454,50.6575 130.7255,50.5931 130.7578,50.6714 130.7939,50.6509 130.899,50.6515 130.9027,50.6736 131.0108,50.5773 130.9575,50.5074 130.8663,50.4506 130.9308,50.4258 130.9205,50.3833 130.9998,50.3809 131.0472,50.4212 131.1309,50.4336 131.1792,50.3311 131.3088,50.3688 131.3349,50.2545 131.4701,50.1458 131.3026,50.0628 131.2849,49.9706 131.4822,49.9521 131.4821,49.7341 131.3576,49.7242 131.3737,49.6606 131.5082,49.6105 131.4787,49.45 131.5084,49.4236 131.3949,49.2454 131.1685,49.2497 131.0388,49.0888 131.0034,49.0525 131.0121,49.0143 130.9726,48.9632 130.8417,48.9871 130.6768,48.9305 130.6233,48.8877 130.6215,48.8473 130.4801,48.806 130.4833,48.8045 130.48,48.7838 130.4436,48.7547 130.3872,48.6574 130.3393,48.5704 130.3339,48.55 130.4199,48.4645 130.5479,48.3742 130.6348,48.2716 130.6421,48.2386 130.565,48.1373 130.4896,48.084 130.4711,48.0533 130.4913,47.9927 130.5696,47.933 130.6096,47.91 130.6653,47.8763 130.6954,47.8515 130.7251,47.8104 130.7418,47.7841 130.7515,47.7629 130.7579,47.743 130.7472,47.6861 130.7521,47.6657 130.7665,47.6516 130.804,47.6328 130.8429,47.6232 130.898,47.6177 130.9714,47.6386 131.009,47.6519 131.0363,47.6634 131.0796,47.6759 131.2278,47.6839 131.2575,47.6834 131.298,47.6775 131.3463,47.6648 131.3584,47.6429 131.4292,47.6096 131.626,47.6204 131.7258,47.6157 131.9319,47.6383 132.021,47.6588 132.0654,47.6734 132.0998,47.6818 132.1508,47.6879 132.1752,47.6874 132.1992,47.6817 132.228,47.6706 132.276,47.6623 132.3307,47.6559 132.352,47.6593 132.3873,47.6789 132.4714,47.8173 132.6725,47.9397 132.8909,48.0437 133.002,48.0546 133.08,48.0493 133.2363,48.0304 133.2566,48.0192 133.2918,48.0139 133.3224,48.0211 133.3481,48.0438 133.3629,48.0659 133.3808,48.0967 133.4032,48.1188 133.5579,48.1944 133.691,48.209 133.817,48.2506 133.8453,48.2679 133.8723,48.2741 134.0127,48.2872 134.2208,48.3356 134.2375,48.3233 134.2692,48.3045 134.288,48.2949 134.4492,48.2363 134.5228,48.2159 134.546,48.2121 134.5218,48.2054 134.486,48.1597 134.4915,48.1277 134.4867,48.1001 134.4666,48.0458 134.4426,48.0331 134.4075,48.0212 134.3875,48.0055 134.3723,47.9771 134.3638,47.9373 134.4001,47.8565 134.4906,47.7461 134.5213,47.7218 134.5751,47.6828 134.5675,47.6459 134.3623,47.4148 134.2935,47.3753 134.2667,47.3735 134.2252,47.3772 134.1954,47.3766 134.1507,47.3719 134.1224,47.3669 134.1036,47.3596 133.9907,47.2692 133.9578,47.1948 133.999,47.1272 134.0316,47.0762 134.0241,47.046 133.9958,47.03 133.9459,47.0231 133.9225,47.002 133.8749,46.9007 133.8489,46.8072 133.853,46.7137 133.8294,46.6133 133.8151,46.591 133.8076,46.5869 133.8076,46.5805 133.7809,46.5582 133.7193,46.525 133.6576,46.426 133.6613,46.3903 133.7136,46.3683 133.7402,46.3289 133.7125,46.2011 133.6414,46.1425 133.556,46.1031 133.5355,46.0167 133.4723,45.8827 133.3918,45.819 133.3627,45.8325 133.3333,45.8314 133.2883,45.7712 133.2872,45.7458 133.3002,45.6262 133.283,45.5728 133.2301,45.5379 133.1952,45.5182 133.0816,45.4736 133.0574,45.4644 133.03,45.4594 133.0057,45.4521 132.9627,45.3993 132.9438,45.3629 132.9157,45.243 132.9133,45.1776 132.9276,45.1459 132.9402,45.1133 132.9316,45.0735 132.889,45.0377 132.8395,45.0058 132.7666,44.9734 132.7454,44.9702 132.6856,44.9869 132.6141,45.0138 132.3828,45.065 132.1791,45.1096 132.1141,45.1238 132.0122,45.146 131.938,45.1623 131.808,45.1901 131.7769,45.2047 131.7393,45.2346 131.726,45.2571 131.7111,45.2861 131.6839,45.2942 131.6517,45.2827 131.5191,45.1649 131.4689,45.0826 131.4625,45.057 131.4443,45.0404 131.2848,44.923 131.157,44.92 131.1304,44.9042 131.1022,44.8808 131.0285,44.8596 130.9934,44.8611 130.9655,44.8773 130.9406,44.8764 130.9083,44.8678 130.8838,44.8587 130.7694,44.7859 130.8171,44.7314 130.8364,44.7225 130.872,44.7026 130.9119,44.6409 130.945,44.5355 131.0723,44.1346 131.1014,44.0439 131.1146,44.002 131.0795,43.9876 131.0613,43.9716 131.048,43.9242 131.0161,43.7693 131.0086,43.4871 131.0401,43.4626 131.0526,43.4565 131.0899,43.4329 131.1004,43.4241 131.1181,43.4081 131.1274,43.3407 131.0815,43.2212 131.0095,43.137 130.9242,42.9903 130.9211,42.9671 130.9217,42.9336 130.933,42.9102 130.9514,42.8911 130.9463,42.8681 130.8397,42.8085 130.7055,42.8036 130.6838,42.8092 130.6601,42.8217 130.6369,42.8278 130.6139,42.8237 130.4568,42.7834 130.3517,42.7418 130.2947,42.7171 130.2517,42.6964 130.2304,42.6547 130.2903,42.6308 130.3165,42.6368 130.3551,42.634 130.4041,42.5968 130.4243,42.5715 130.4379,42.5372 130.4267,42.5155 130.3996,42.4331 130.4236,42.3739 130.4519,42.3636 130.4782,42.3274 130.4721,42.2923 130.4744,42.2703 130.5168,42.2445 130.5432,42.2603 130.5632,42.2831 130.6879,42.4757 130.656,42.5083 130.6091,42.5172 130.5663,42.5384 130.4954,42.6037 130.533,42.6374 130.6238,42.6397 130.7031,42.6062 130.7863,42.5791 130.8097,42.5878 130.9323,42.6143 130.9823,42.5557 130.9855,42.5268 131.0211,42.508 131.0413,42.5104 131.0496,42.5413 131.0513,42.5479 131.0305,42.5667 131.0372,42.603 131.0959,42.7154 131.1216,42.73 131.1742,42.7513 131.2902,42.8237 131.3167,42.8947 131.3421,42.9567 131.4014,42.9969 131.4558,43.0517 131.5702,43.1726 131.5785,43.229 131.5942,43.2549 131.6269,43.2767 131.8669,43.2642 131.8613,43.2317 131.8082,43.1863 131.7793,43.1789 131.7478,43.1653 131.7247,43.1455 131.6614,43.0346 131.7653,43.0151 131.8625,43.075 131.8889,43.1056 131.9138,43.1275 131.9483,43.1435 131.9729,43.1516 132.0035,43.1605 132.045,43.1818 132.103,43.2386 132.1184,43.2682 132.1674,43.2433 132.1848,43.1646 132.1668,43.1182 132.1513,43.0849 132.1214,43.0043 132.101,42.9129 132.1042,42.8313 132.1275,42.7981 132.168,42.8023 132.1679,42.8479 132.2392,42.881 132.2778,42.8853 132.3224,42.8606 132.4052,42.7937 132.5043,42.811 132.5876,42.8214 132.59,42.7723 132.6142,42.7146 132.6336,42.7033 132.6565,42.6928 132.6689,42.6907 132.6933,42.7059 132.7074,42.7494 132.7316,42.7698 132.7515,42.7734 132.81,42.7706 132.8547,42.7224 132.8443,42.6919 132.8164,42.6677 132.8486,42.6364 132.906,42.6336 132.9702,42.6345 133.0043,42.6509 133.0315,42.6797 133.1866,42.7085 133.2574,42.7301 133.3844,42.7707 133.7197,42.827 133.7544,42.8428 133.944,42.9814 133.9992,43.0297 134.0839,43.0534 134.1157,43.0615 134.1611,43.0695 134.2351,43.1029 134.4104,43.1833 134.4587,43.2109 134.6387,43.3229 134.6748,43.3459 134.8119,43.4132 134.8694,43.4395 134.9014,43.4475 134.9429,43.4543 135.0341,43.5892 135.086,43.6383 135.1705,43.6654 135.2336,43.7066 135.2778,43.7522 135.3139,43.799 135.3131,43.829 135.288,43.8264 135.2702,43.894 135.3705,43.9615 135.409,43.9637 135.4405,43.9835 135.4425,43.9995 135.4434,44.0275 135.4578,44.1066 135.5328,44.1838 135.5802,44.1974 135.6117,44.2146 135.6474,44.2669 135.6469,44.299 135.7019,44.3513 135.7918,44.3765 135.8592,44.3954 135.9395,44.4266 135.9935,44.4631 136.0349,44.5477 136.0366,44.5786 136.0531,44.613 136.0667,44.6308 136.1829,44.737 136.2461,44.7358 136.3073,44.7958 136.3683,44.8676 136.3849,44.8998 136.4092,44.93 136.4634,44.9789 136.5046,45.0003 136.6019,45.0869 136.6663,45.162 136.8143,45.2575 136.8511,45.2788 136.8993,45.3031 136.9844,45.3644 137.0667,45.4277 137.0984,45.4734 137.1412,45.5207 137.1843,45.5576 137.2523,45.5977 137.3352,45.6394 137.4704,45.7365 137.4963,45.7706 137.5118,45.8077 137.581,45.8815 137.6001,45.8987 137.659,45.9462 137.7369,46.0119 137.8678,46.1287 137.9063,46.1722 137.9157,46.1951 137.9152,46.2247 137.9617,46.3309 138.0045,46.3938 138.0378,46.4295 138.0576,46.44 138.08,46.4472 138.1095,46.4606 138.1281,46.4724 138.1475,46.496 138.157,46.5299 138.1528,46.5502 138.1486,46.5728 138.1526,46.5925 138.1638,46.6288 138.1874,46.6816 138.1973,46.701 138.358,46.9653 138.3758,46.9893 138.4094,47.0247 138.4361,47.0396 138.4747,47.0596 138.5189,47.0906 138.5653,47.1249 138.6436,47.2018 138.6978,47.2537 138.7884,47.3002 138.8263,47.336 138.845,47.3511 138.8531,47.3855 138.8464,47.4167 138.8998,47.4984 139.0655,47.7354 139.0836,47.7595 139.1709,47.8312 139.2242,47.8674 139.2545,47.8801 139.2726,47.8882 139.3218,47.9134 139.4536,48.0119 139.4727,48.0296 139.5024,48.0654 139.6632,48.1841 139.8027,48.268 139.9729,48.3945 139.9884,48.4594 139.9721,48.4926 139.9805,48.6147 140.0093,48.7077 140.0407,48.7839 140.0619,48.8034 140.0969,48.8214 140.1433,48.8495 140.1836,48.9097 140.188,48.9347 140.1621,48.9543 140.1341,49.2154 140.2281,49.2974 140.3466,49.4998 140.3205,49.6717 140.2626,49.7366 140.2371,49.7592 140.2028,49.8083 140.2783,49.9216 140.3505,49.9449 140.4479,49.9958 140.4788,50.0324 140.4192,50.0327 140.3815,50.0165 140.323,50.0734 140.3053,50.1137 140.3057,50.1321 140.3211,50.1594 140.315,50.3083 140.2963,50.3859 140.2807,50.4118 140.2367,50.4533 140.2266,50.4787 140.2729,50.5511 140.2481,50.6433 140.3141,50.8069 140.3727,50.857 140.4033,50.8711 140.4257,50.8746 140.4622,50.8877 140.4914,50.9682 140.4948,50.9926 140.4813,51.0415 140.46,51.1144 140.4585,51.1451 140.4731,51.2576 140.4915,51.2704 140.5121,51.2765 140.5456,51.2809 140.5679,51.2722 140.6011,51.2766 140.6501,51.3022 140.6682,51.3639 140.5965,51.3536 140.5781,51.3959 140.6174,51.4223 140.6626,51.4199 140.6843,51.4344 140.6887,51.5156 140.6892,51.5527 140.7767,51.5996 140.797,51.6053 140.8619,51.6186 140.9669,51.7337 140.9804,51.763 140.9951,51.777 141.0549,51.8143 141.144,51.8468 141.18,51.8487 141.2013,51.8628 141.2066,51.8836 141.1349,51.9244 141.104,51.9336 141.0832,51.9483 141.0876,51.9728 141.1208,52.0426 141.1757,52.078 141.2634,52.1006 141.2836,52.1513 141.2424,52.1504 141.2113,52.153 141.1724,52.165 141.0537,52.228 140.941,52.3015 140.9066,52.3486 140.9,52.3697 140.9034,52.3997 140.9255,52.4224 140.9445,52.4308 140.9738,52.4355 140.9957,52.4461 141.0301,52.4838 141.0433,52.4999 141.0584,52.5236 141.0869,52.5968 141.0568,52.6551 140.9741,52.7814 140.8528,52.8181 140.7323,52.8794 140.7139,52.9265 140.5725,53.0097 140.4855,53.0539 140.5223,53.0602 140.5726,53.0606 140.6126,53.0581 140.6375,53.0469 140.7341,52.9957 140.8997,52.9233 140.929,52.9175 140.9507,52.9199 140.979,52.9271 141.0255,52.9658 141.0058,52.972 140.962,52.9789 141.0082,53.0158 141.0325,53.0286 141.1252,53.0338 141.2068,53.0917 141.1846,53.2314 141.1644,53.2409 141.0826,53.25 141.0394,53.245 141.0121,53.2457 140.9915,53.2528 140.911,53.2988 140.8042,53.3412 140.6958,53.3737 140.7085,53.4191 140.7334,53.4371 140.6754,53.4544 140.5551,53.4902 140.3517,53.5694 140.3243,53.5851 140.2964,53.6226 140.3073,53.6468 140.2554,53.6785 140.2218,53.6943 140.1779,53.7023 140.1503,53.7066 140.1291,53.7169 140.0471,53.7787 140.0237,53.7997 140.0196,53.8279 140.0256,53.9211 140.0071,53.987 139.9554,54.0069 139.9053,54.025 139.8638,54.0294 139.8329,54.035 139.7942,54.0472 139.7661,54.0582 139.5816,54.1479 139.5586,54.1643 139.5584,54.1873 139.5677,54.2287 139.5176,54.2448 139.4951,54.244 139.4676,54.2346 139.4458,54.224 139.4248,54.2088 139.4019,54.1949 139.3359,54.1778 139.1043,54.1202 139.0094,54.1282 138.976,54.1316 138.8302,54.1548 138.7627,54.1656 138.7402,54.1718 138.6953,54.184 138.6386,54.2 138.5728,54.2242 138.499,54.2509 138.4709,54.2498 138.4256,54.2254 138.4572,54.217 138.4797,54.2095 138.5092,54.1854 138.5477,53.9842 138.5454,53.9615 138.5397,53.9418 138.5266,53.9023 138.4759,53.7689 138.4404,53.6902 138.4206,53.6575 138.394,53.6177 138.3327,53.5323 138.3229,53.5174 138.2598,53.4722 138.2383,53.4589 138.2042,53.4445 138.174,53.4421 138.0232,53.4582 138.0131,53.4968 138.1461,53.6159 138.1626,53.6292 138.2236,53.6749 138.2449,53.6883 138.2788,53.7016 138.3426,53.7521 138.3606,53.7917 138.3436,53.8889 138.3236,53.9264 138.1618,53.8572 138.1124,53.8229 138.0945,53.7685 138.0647,53.68 137.9539,53.6241 137.8787,53.6017 137.7284,53.5376 137.6726,53.5106 137.4801,53.4826 137.4576,53.4802 137.1641,53.4624 137.1424,53.462 137.1205,53.4628 137.0859,53.4704 137.0179,53.4944 136.9871,53.5197 137.004,53.5409 137.0417,53.5471 137.0742,53.578 137.1108,53.5981 137.1437,53.6033 137.1822,53.6033 137.2149,53.6025 137.26,53.6017 137.3376,53.6679 137.3376,53.7153 137.3702,53.7637 137.4238,53.7982 137.4664,53.8148 137.4882,53.8207 137.5101,53.8239 137.5321,53.828 137.5533,53.8341 137.5749,53.8461 137.6271,53.8991 137.4354,53.903 137.3673,53.8909 137.3301,53.9016 137.285,53.9263 137.2609,53.941 137.2358,53.9576 137.1987,53.9725 137.1623,53.9758 137.1402,53.9752 137.1122,53.9778 137.0775,53.9884 137.0647,54.0119 137.0897,54.0584 137.1282,54.0719 137.2,54.0827 137.2227,54.0738 137.2829,54.088 137.3832,54.1673 137.51,54.244 137.4561,54.2569 137.4203,54.2312 137.3088,54.2288 137.286,54.2379 137.2625,54.2472 137.2349,54.2491 137.201,54.248 137.1571,54.2415 137.0647,54.2028 136.9632,54.1543 136.8345,54.0744 136.9283,53.9852 136.9497,53.9719 136.9816,53.9729 137.0253,53.9813 137.0545,53.9746 137.0365,53.9177 136.9737,53.8053 136.9489,53.7754 136.9161,53.7512 136.8866,53.7414 136.8483,53.751 136.8336,53.7693 136.8004,53.7819 136.7333,53.7896 136.7112,53.7892 136.6354,53.7718 136.6157,53.7626 136.5464,53.7038 136.5353,53.706 136.4554,53.7482 136.4276,53.8566 136.4306,53.8766 136.4617,53.9433 136.4864,53.9662 136.5368,54.0067 136.5775,54.0683 136.5816,54.0912 136.5708,54.1107 136.5373,54.1538 136.5182,54.3643 136.5768,54.447 136.6487,54.5194 136.5805,54.5862 136.5368,54.5831 136.4901,54.549 136.3048,54.5258 136.1405,54.5356 136.0185,54.5504 135.9788,54.5532 135.8695,54.5427 135.8085,54.5277 135.7432,54.5106 135.6315,54.5041 135.5414,54.5044 135.5014,54.5079 135.4759,54.5202 135.4534,54.5565 135.4441,54.5762 135.2743,54.6158 135.193,54.6334 135.0557,54.648 135.0317,54.6564 134.9475,54.7408 134.9344,54.7597 134.9258,54.7971 134.9402,54.8223 134.9864,54.8661 135.0675,54.9166 135.2185,55.0011 135.3261,55.0589 135.3539,55.064 135.4215,55.0694 135.4448,55.0675 135.4814,55.0713 135.5115,55.0805 135.693,55.1638 135.7707,55.2018 135.8301,55.2307 135.8525,55.2361 135.8932,55.237 135.9324,55.265 136.0639,55.3694 136.0738,55.3972 136.0938,55.4386 136.1227,55.4693 136.1811,55.5033 136.2085,55.5165 136.2479,55.5249 136.3017,55.5358 136.364,55.5613 136.4301,55.592 136.4524,55.5979 136.4917,55.5958 136.5862,55.6437 136.6081,55.6574 136.7311,55.7249 136.9553,55.8278 136.9891,55.8402 137.0339,55.8569 137.2176,55.9771 137.2839,56.0178 137.323,56.0411 137.3627,56.0547 137.4846,56.1086 137.6006,56.1839 137.6397,56.2227 137.6556,56.2457 137.6741,56.2788 137.7699,56.3158 137.816,56.3326 137.9012,56.3914 137.9058,56.4293 137.8859,56.4547 137.8724,56.5002 137.8941,56.5265 137.929,56.5461 137.9608,56.555 138.0001,56.5701 138.0183,56.5796 138.0287,56.5992 138.0608,56.6496 138.096,56.6578 138.1195,56.6609 138.1557,56.6696 138.2324,56.7784 138.2845,56.7935 138.308,56.7979 138.3409,56.8075 138.3676,56.8795 138.3875,56.906 138.4058,56.9179 138.4293,56.9234 138.5406,56.9446 138.6623,56.9592 138.7176,56.9937 138.8342,57.1019 138.8714,57.1543 138.93,57.1958 138.9954,57.2127 139.1608,57.2499 139.191,57.2483 139.2212,57.2501 139.2697,57.2778 139.3148,57.3123 139.3319,57.3593 139.3457,57.3757 139.3694,57.3876 139.4374,57.4146 139.4795,57.4234 139.5038,57.4263 139.5398,57.4279 139.5701,57.4324 139.5882,57.4409 139.6091,57.4672 139.6183,57.4868 139.6324,57.5094 139.6921,57.5812 139.7318,57.6107 139.7567,57.6273 139.8141,57.6532 139.994,57.6903 140.0367,57.693 140.0599,57.6841 140.1207,57.7011 140.2468,57.7576 140.2517,57.7807 140.2546,57.8266 140.2607,57.8727 140.382,58.073 140.428,58.1611 140.5332,58.2388 140.6443,58.3054 140.7621,58.3624 140.8308,58.3907 140.8555,58.3983 140.8806,58.4009 140.9051,58.4008 140.9609,58.4077 141.0172,58.4264 141.0771,58.4478 141.2325,58.5158 141.2704,58.5323 141.2956,58.5451 141.3557,58.5759 141.4367,58.6207 141.4598,58.6402 141.5777,58.7429 141.6086,58.7817 141.6504,58.8332 141.6902,58.8779 141.7152,58.897 141.7819,58.9356 141.8965,58.9984 141.9559,59.0289 141.9817,59.0415 142.0393,59.0671 142.2773,59.1544 142.3225,59.1669 142.5082,59.2016 142.7161,59.241 142.8093,59.2629 142.8717,59.2859 142.9442,59.3053 143.0435,59.3011 143.0687,59.298 143.1124,59.2853 143.1586,59.2669 143.2064,59.2668 143.2637,59.2699 143.3091,59.2773 143.3579,59.2879 143.3998,59.2999 143.4258,59.3086 143.4521,59.3143 143.5166,59.3284 143.5555,59.3339 143.5812,59.3372 143.6326,59.3413 143.6582,59.3419 143.6863,59.3425 143.7476,59.3422 143.8865,59.3298 144.0585,59.3251 144.1096,59.3262 144.1407,59.323 144.1796,59.3101 144.2841,59.3019 144.3225,59.3008 144.4102,59.3028 144.3687,59.306 144.3482,59.318 144.4918,59.3239 144.5274,59.3163 144.5536,59.3076 144.5917,59.305 144.6145,59.3044 144.6607,59.3044 144.7889,59.3131 144.8149,59.3175 144.8479,59.3267 144.8942,59.3395 144.9333,59.3461 144.9787,59.3518 145.0226,59.3421 145.0442,59.3229 145.0886,59.3225 145.1146,59.3255 145.1949,59.3345 145.2472,59.343 145.394,59.3532 145.5339,59.3308 145.6046,59.3428 145.6364,59.3422 145.6514,59.3136 145.639,59.279 145.6163,59.2739 145.5947,59.2629 145.5554,59.2291 145.5265,59.194 145.5404,59.1743 145.6855,59.0815 145.7195,59.078 145.7585,59.0845 145.8371,59.1007 146.0429,59.1117 146.0701,59.13 146.0647,59.1611 146.0488,59.2218 146.0448,59.2905 146.0524,59.3192 146.0972,59.3468 146.1856,59.3813 146.2123,59.388 146.2382,59.3896 146.271,59.3876 146.391,59.3533 146.4232,59.3268 146.4722,59.3025 146.5534,59.2917 146.6011,59.2871 146.6148,59.2929 146.6279,59.2962 146.6674,59.3021 146.7249,59.3021 146.8051,59.2841 146.8517,59.2597 146.8796,59.2509 146.8836,59.3341 146.8967,59.3825 146.9443,59.4028 147.0458,59.3963 147.1043,59.4112 147.0954,59.4682 147.1303,59.4994 147.1134,59.5346 147.129,59.5655 147.1222,59.6104 147.1688,59.6383 147.0825,59.6942 147.1416,59.7382 147.1449,59.7757 147.0999,59.8049 147.1377,59.8315 147.1393,59.8529 147.1203,59.8829 147.0469,59.8996 147.0413,59.9368 146.9878,59.9495 146.8866,59.932 146.7924,59.9041 146.7345,59.958 146.635,59.9931 146.6795,60.0149 146.6911,60.0948 146.5994,60.1344 146.534,60.1091 146.4529,60.1304 146.4704,60.1795 146.4322,60.2185 146.4198,60.2509 146.3689,60.2727 146.3098,60.2531 146.2288,60.2387 146.1489,60.1896 145.8437,60.2159 145.8205,60.192 145.7805,60.1954 145.7517,60.2129 145.6622,60.23 145.586,60.3407 145.6564,60.3435 145.6449,60.394 145.5223,60.4116 145.5052,60.4721 145.5563,60.5078 145.61,60.5184 145.612,60.557 145.6811,60.5739 145.7734,60.6072 145.8586,60.5936 145.9027,60.6136 145.9036,60.6415 145.9617,60.6571 146.0039,60.6836 146.0528,60.7355 146.111,60.7381 146.1951,60.7082 146.3134,60.6635 146.4059,60.6575 146.4581,60.6863 146.4876,60.7312 146.4501,60.7614 146.4937,60.8083 146.5235,60.8714 146.4777,60.9218 146.5364,60.9608 146.6936,60.9533 146.7318,61.0017 146.6626,61.0608 146.6738,61.0846 146.7319,61.0967 146.7158,61.1369 146.7549,61.2046 146.7284,61.2588 146.7016,61.3184 146.7453,61.3975 146.6614,61.4082 146.6104,61.4342 146.6302,61.4746 146.5776,61.5266 146.5848,61.623 146.5063,61.6557 146.441,61.7055 146.4551,61.7248 146.3666,61.7679 146.3645,61.8231 146.2643,61.8606 146.1994,61.9134 146.1494,61.9143 146.1062,61.9524 146.0345,61.9443 145.9976,61.9936 145.8744,62.0272 145.8011,62.0084 145.7418,62.0604 145.6655,62.0525 145.6394,62.005 145.4833,61.9516 145.4241,61.9853 145.285,62.0002 145.223,61.9727 145.0469,61.9999 144.9943,62.0413 144.853,62.0506 144.7341,62.0442 144.596,61.9843 144.5401,61.8509 144.441,61.8246 144.3785,61.7914 144.2912,61.7803 144.2416,61.7366 144.1329,61.744 144.0145,61.7263 143.9155,61.8132 143.9413,61.893 143.9966,61.9568 143.9456,61.9999 143.7992,61.9516 143.7636,61.8918 143.6904,61.8344 143.6307,61.8318 143.629,61.8897 143.6269,61.9702 143.6003,62.0286 143.4961,62.0234 143.4454,62.0459 143.3763,62.0191 143.254,62.0555 143.2275,62.117 143.125,62.1018 143.0982,62.036 143.0684,62.0099 142.9975,61.966 142.9981,61.9168 142.9312,61.895 142.8754,61.9336 142.6708,61.9688 142.5514,61.9093 142.4209,61.8577 142.4007,61.9422 142.2626,61.9625 142.2717,62.0004 142.1742,62.059 142.1307,62.087 142.0588,62.0234 141.9739,62.0299 141.8747,62.004 141.824,62.0109 141.8601,62.0795 141.742,62.0811 141.662,62.1214 141.5799,62.1627 141.5139,62.2587 141.4207,62.2834 141.2971,62.4363 141.2003,62.4247 141.1057,62.4012 141.0368,62.487 140.8816,62.4884 140.7854,62.5563 140.6911,62.4857 140.5645,62.4243 140.4658,62.4815 140.3865,62.615 140.3334,62.7368 140.149,62.7437 139.809,62.6867 139.6157,62.672 139.629,62.7938 139.6453,62.8598 139.5953,62.9491 139.4481,63.0177 139.4091,63.0694 139.4729,63.179 139.5842,63.3243 139.7929,63.5115 140.2449,63.6046 140.5898,63.565 140.6121,63.6173 140.5289,63.7429 140.5393,63.857 140.7057,63.9037 140.7,63.9944 140.7638,64.1862 140.5302,64.2085 140.2738,64.3377 140.0792,64.3472 139.9207,64.4217 140.4104,64.5642 140.3926,64.5994 139.6651,64.8713 139.4602,64.9174 139.3359,65.0007 139.4208,65.0966 139.5734,65.2143 139.7419,65.342 139.8988,65.4327 140.2935,65.5206 140.4768,65.5993 140.1871,65.6306 140.3657,65.7468 140.0395,65.8988 140.1095,66.0215 139.7325,66.2088 139.7206,66.2863 140.2823,66.3828 140.5675,66.4129 140.6801,66.4994 140.3635,66.5769 140.0317,66.7207 139.6973,66.8345 139.5683,66.9393 139.4904,67.069 139.2944,67.077 139.1524,67.0833 138.9235,67.1421 138.7757,67.2014 138.6964,67.2643 138.9752,67.3747 138.9286,67.4688 138.792,67.5676 139.2312,67.5755 139.5992,67.68 139.8727,67.7866 140.0657,67.9005 140.6587,67.9001 141.0668,67.8938 141.0375,68.0813 141.1361,68.1577 141.219,68.2799 141.0539,68.4164 141.0636,68.48 141.6656,68.6042 141.8055,68.7294 141.7117,68.9305 141.5262,69.1801 141.9302,69.2741 142.7507,69.2534 142.6823,69.422 142.4056,69.4551 142.3999,69.6156 142.1092,69.638 142.2096,69.845 141.5915,69.8684 141.0122,69.9764 140.9119,70.089 141.074,70.1636 140.9161,70.2967 141.5876,70.5488 141.6537,70.6533 141.598,70.778 141.9313,70.8782 142.5778,71.1476 142.3159,71.3074 142.5069,71.3937 142.4422,71.5512 142.6745,71.6065 142.9663,71.6993 142.9747,71.8006 143.1474,71.8847 143.3397,72.0482 143.5384,72.1042 143.6567,72.2278 144.0141,72.2257 144.1994,72.3167 144.4025,72.2953 144.4248,72.3044 144.4547,72.3132 144.5396,72.3314 144.5602,72.3345 144.561,72.3346 144.7287,72.4785 144.6986,72.4802 144.3134,72.5009 144.2528,72.5058 144.2126,72.5111 144.1329,72.5235 144.0929,72.5301 143.992,72.5405 143.7895,72.5548 143.7483,72.5564 143.687,72.5589 143.6053,72.5601 143.564,72.558 143.5222,72.5536 143.4648,72.5544 143.4446,72.5562 143.4245,72.5587 143.3038,72.5775 143.2435,72.5869 143.2231,72.5897 143.2026,72.5922 143.1621,72.5938 143.0799,72.595 143.0389,72.5944 143.018,72.5932 142.9561,72.5928 142.8945,72.5919 142.7711,72.5912 142.7097,72.5918 142.5497,72.596 142.4469,72.5992 142.3653,72.605 142.1389,72.6008 141.9541,72.6056 141.6714,72.621 141.6509,72.6225 141.5276,72.6319 141.5076,72.6342 141.2409,72.6698 141.2203,72.6736 141.1797,72.6834 141.1304,72.6977 141.0731,72.7254 141.0508,72.7408 141.0282,72.75 141.0077,72.7535 140.5937,72.7802 140.4072,72.7918 140.3221,72.7959 140.3016,72.7959 140.2806,72.7945 140.2515,72.7897 140.2375,72.7735 140.325,72.7049 140.4845,72.6613 140.6285,72.6159 140.6612,72.6039 140.6798,72.5884 140.6852,72.4887 140.6605,72.4729 140.469,72.4316 140.3262,72.4049 140.2655,72.3973 140.0622,72.386 139.7577,72.3761 139.7169,72.3783 139.5329,72.3999 139.4512,72.4045 139.3291,72.4042 139.2884,72.4029 139.2072,72.3977 139.1593,72.385 139.1356,72.3762 138.9818,72.3107 138.8343,72.2271 138.8046,72.1987 138.7575,72.1338 138.8052,72.0936 138.8222,72.0814 138.8555,72.0663 138.9154,72.0449 138.9357,72.0386 138.956,72.0339 138.9962,72.0315 139.038,72.0638 139.1549,72.1128 139.2297,72.1365 139.2979,72.1387 139.3989,72.1328 139.4391,72.1328 139.5194,72.133 139.6199,72.1358 139.6799,72.141 139.7,72.1387 139.8175,72.123 139.8619,72.1103 139.8848,72.0859 139.8669,72.0733 139.752,72.0417 139.7321,72.038 139.7119,72.0405 139.6876,72.0498 139.6348,72.0712 139.6144,72.0748 139.5944,72.077 139.5741,72.0783 139.5541,72.0769 139.5284,72.069 139.4104,72.001 139.3832,71.9794 139.3672,71.941 139.3852,71.907 139.3609,71.881 139.3181,71.8594 139.2808,71.8517 139.2316,71.8506 139.1914,71.8556 139.1316,71.8614 139.0817,71.8623 139.052,71.8608 139.0094,71.8499 139.0293,71.8451 139.0694,71.8402 139.2088,71.8323 139.2687,71.8276 139.2887,71.8251 139.3167,71.8159 139.4117,71.7407 139.3632,71.6914 139.3831,71.614 139.4067,71.574 139.4747,71.5096 139.5226,71.4818 139.602,71.4546 139.6088,71.3905 139.4194,71.37 139.3173,71.3856 139.2315,71.3949 139.1243,71.4014 139.0952,71.3966 139.048,71.347 139.032,71.3269 138.9299,71.317 138.8815,71.3181 138.793,71.3335 138.7655,71.3887 138.7217,71.4714 138.7036,71.4797 138.6641,71.4853 138.5048,71.5186 138.41,71.5477 138.381,71.5461 138.333,71.5359 138.2667,71.5177 138.2399,71.5084 138.2673,71.4932 138.2701,71.4562 138.1362,71.4389 138.1144,71.4424 138.0768,71.4766 138.1083,71.4995 138.1351,71.5047 138.1669,71.5164 138.0696,71.5131 137.9183,71.5015 137.7837,71.4841 137.7458,71.4787 137.7143,71.4642 137.7032,71.4423 137.705,71.401 137.6889,71.3745 137.6171,71.3265 137.5959,71.314 137.5569,71.3013 137.5078,71.2926 137.559,71.2688 137.6751,71.2405 137.7656,71.2395 137.8468,71.2389 137.8701,71.2386 137.9151,71.2292 137.8467,71.2282 137.8068,71.2307 137.6687,71.1999 137.733,71.1928 137.7617,71.1973 137.8003,71.1951 137.8878,71.182 137.8982,71.1651 137.8564,71.1465 137.7451,71.1267 137.6971,71.1259 137.6294,71.1298 137.5639,71.1466 137.512,71.1623 137.4672,71.1512 137.4312,71.1274 137.4763,71.1116 137.601,71.1002 137.6943,71.0895 137.7519,71.0423 137.6694,71.0131 137.6389,71.0446 137.5907,71.0482 137.5608,71.0397 137.5442,71.021 137.4886,71.0221 137.4567,71.0316 137.3937,71.0871 137.3803,71.1265 137.3253,71.1616 137.2794,71.1467 137.2222,71.1445 137.1061,71.1853 137.1289,71.2121 137.1598,71.2372 137.1352,71.2469 136.9618,71.2913 136.9217,71.3007 136.8655,71.3121 136.8456,71.3154 136.806,71.3198 136.7578,71.3195 136.569,71.3665 136.5159,71.4013 136.4896,71.4166 136.461,71.4239 136.4008,71.4342 136.3522,71.4344 136.3145,71.4264 136.2483,71.4061 136.1807,71.4727 136.1441,71.4794 136.1055,71.4781 136.0365,71.4804 135.9968,71.4836 135.9372,71.4887 135.8766,71.4985 135.8558,71.503 135.7699,71.5208 135.6889,71.5316 135.6487,71.5372 135.5393,71.5446 135.4552,71.5429 135.2762,71.5202 135.1262,71.4935 135.0397,71.4709 135.0645,71.4575 135.1047,71.4374 135.0443,71.4298 135.0243,71.4306 134.9841,71.4368 134.9648,71.4432 134.9437,71.4487 134.9135,71.453 134.7449,71.4396 134.7075,71.4337 134.497,71.3822 134.473,71.3701 134.3853,71.3207 134.1427,71.2731 133.9645,71.272 133.6973,71.2885 133.6158,71.3004 133.3702,71.3387 133.3085,71.3495 133.2669,71.3569 133.2043,71.3696 133.1614,71.3808 133.0589,71.4072 133.0236,71.4184 132.8486,71.478 132.7984,71.504 132.6791,71.5732 132.6534,71.5895 132.6341,71.6105 132.6157,71.6286 132.5878,71.6401 132.4955,71.6547 132.4319,71.666 132.4054,71.6731 132.3964,71.6976 132.4109,71.7168 132.4453,71.7336 132.4411,71.8388 132.4068,71.8454 132.3412,71.8339 132.3053,71.8226 132.2272,71.7934 132.1992,71.7768 131.9471,71.5754 131.807,71.4258 131.7807,71.3938 131.6433,71.1951 131.6378,71.1605 131.665,71.1548 131.7137,71.1541 131.7541,71.1494 131.7946,71.1447 131.8155,71.1418 131.8363,71.1375 131.8726,71.124 131.7951,71.125 131.7148,71.1318 131.6854,71.1326 131.5756,71.1182 131.784,71.0717 131.9762,71.0511 132.1145,70.9664 132.0461,70.769 132.2015,70.6435 132.0855,70.4956 132.2165,70.4337 132.4409,70.3697 133.1142,70.2807 133.4514,70.1331 133.4227,69.9923 132.9161,69.959 133.1543,69.8291 133.4516,69.7315 133.4859,69.6548 133.043,69.5668 132.7924,69.4936 132.7642,69.3058 132.5866,69.203 132.237,69.0673 131.9498,69.0492 131.6063,69.0216 130.9387,68.916 130.5595,68.9754 130.0314,69.0069 129.8061,68.8814 129.405,68.8645 128.8592,68.9148 128.6042,68.8735 128.3959,68.8062 128.1597,68.7512 127.581,68.7824 127.135,68.7903 126.6586,68.7082 126.6598,68.7077 6,12.0,Russia 144.2416,72.3123 144.4025,72.2953 144.4025,72.2953 144.2416,72.3123 144.1994,72.3167 144.2416,72.3123 4,12.0,Russia 144.561,72.3346 144.621,72.3861 144.561,72.3346 144.561,72.3346 1904,12.0,Russia 155.2774,55.2351 155.2994,55.0828 155.3329,54.8655 155.3677,54.7149 155.4239,54.498 155.4366,54.4486 155.4613,54.3659 155.5335,54.1495 155.56,54.1061 155.58,54.0805 155.6027,54.0208 155.6284,53.9374 155.6731,53.7746 155.6992,53.616 155.7728,53.2787 155.824,53.0706 155.8399,52.8745 155.8515,52.7913 155.8782,52.7308 155.9219,52.645 155.9337,52.6236 155.9597,52.5798 156.0134,52.505 156.0913,52.4631 156.1159,52.4558 156.1549,52.4645 156.1916,52.4546 156.1929,52.4329 156.1744,52.4122 156.1312,52.3892 156.1276,52.4162 156.1123,52.4371 156.0326,52.4601 156.0581,52.4119 156.1055,52.3254 156.1514,52.2186 156.1776,52.1484 156.1815,52.1412 156.1945,52.102 156.201,52.0779 156.2474,51.8645 156.2552,51.7237 156.2515,51.6311 156.2436,51.532 156.2354,51.5064 156.231,51.4738 156.2301,51.4539 156.2386,51.4061 156.2792,51.2563 156.2976,51.2239 156.3144,51.2121 156.3513,51.196 156.3801,51.1954 156.4113,51.1857 156.4322,51.1703 156.4655,51.1321 156.505,51.0187 156.5059,50.9353 156.4875,50.9047 156.4696,50.8876 156.4486,50.8705 156.4244,50.8541 156.4085,50.8296 156.4177,50.8205 156.4291,50.8227 156.4539,50.8326 156.4869,50.8541 156.5588,50.9034 156.5788,50.9209 156.8554,51.0994 156.9294,51.1379 156.9726,51.1471 157.0176,51.1734 157.1247,51.2807 157.293,51.4272 157.3647,51.4632 157.4131,51.4823 157.4379,51.4907 157.4847,51.4995 157.5313,51.5053 157.6667,51.5834 158.0294,51.8812 158.0405,51.9079 158.0358,51.9284 158.0336,51.9491 158.035,51.969 158.0684,52.0678 158.179,52.2051 158.2365,52.2039 158.2758,52.2143 158.2942,52.2316 158.3041,52.2502 158.3047,52.3384 158.2585,52.5064 158.2299,52.5139 158.1828,52.5398 158.1662,52.5909 158.2042,52.5825 158.2229,52.5742 158.2466,52.5642 158.2717,52.5581 158.2943,52.5615 158.3453,52.643 158.3128,52.6714 158.3069,52.7279 158.3781,52.7853 158.3869,52.8404 158.3717,52.8696 158.2559,52.8812 158.2291,52.8742 158.267,52.8454 158.1913,52.841 158.1706,52.8726 158.1628,52.9472 158.1836,52.9654 158.2752,53.0077 158.3282,53.0009 158.3511,52.9891 158.3942,52.9459 158.4035,52.9024 158.4432,52.8381 158.4696,52.8291 158.4875,52.8357 158.573,52.9094 158.6198,52.9422 158.763,53.022 158.8525,53.0549 158.9979,53.0912 159.1098,53.093 159.1333,53.0973 159.1662,53.1255 159.194,53.1544 159.2329,53.1712 159.3554,53.1975 159.3904,53.1936 159.4939,53.157 159.6519,53.0891 159.7915,53.0332 159.799,53.0757 159.753,53.2095 159.7183,53.206 159.598,53.3544 159.5365,53.459 159.5608,53.4687 159.6082,53.4392 159.6338,53.4211 159.6569,53.4102 159.6856,53.4115 159.7002,53.4538 159.7027,53.508 159.6825,53.5516 159.6602,53.5825 159.6276,53.6085 159.617,53.5849 159.6338,53.5654 159.6415,53.5385 159.5716,53.5837 159.5546,53.5959 159.5916,53.7898 159.6342,53.9175 159.7215,54.0583 159.739,54.0761 159.8347,54.1408 159.8728,54.1619 159.9229,54.1681 159.9832,54.1896 160.0818,54.2541 160.103,54.2747 160.1188,54.2919 160.2232,54.3488 160.3088,54.3953 160.4568,54.4656 160.5373,54.4835 160.6024,54.4966 160.6922,54.5126 160.7428,54.52 160.7676,54.5224 160.8414,54.5266 160.8875,54.5252 160.9307,54.5083 160.9438,54.4824 160.9526,54.4603 160.9683,54.4474 161.0126,54.4314 161.0342,54.4276 161.081,54.4274 161.158,54.4409 161.2217,54.4501 161.3502,54.4562 161.3718,54.4525 161.4155,54.4412 161.4655,54.4438 161.4901,54.4591 161.5073,54.4814 161.5267,54.5121 161.6122,54.5561 161.7183,54.6184 161.8372,54.6994 161.8749,54.7948 161.6927,54.9612 161.6418,54.9865 161.5969,55.0029 161.5357,55.0798 161.5198,55.1032 161.5068,55.1293 161.4398,55.3008 161.4321,55.4247 161.4692,55.5619 161.5327,55.646 161.6353,55.7506 161.736,55.8931 161.7658,55.956 161.7535,55.9835 161.8027,56.0347 161.9407,56.0948 161.9607,56.0999 162.0001,56.1053 162.0494,56.1158 162.1593,56.1411 162.2302,56.1703 162.2817,56.2066 162.2681,56.2313 162.206,56.2741 162.1822,56.2862 162.1298,56.3036 162.108,56.3229 162.196,56.3573 162.3191,56.389 162.342,56.4089 162.3716,56.4201 162.4119,56.4251 162.4541,56.4228 162.4869,56.4102 162.543,56.3831 162.611,56.365 162.6355,56.3839 162.6396,56.4191 162.6497,56.4496 162.6754,56.4723 162.6976,56.4806 162.8058,56.4581 162.7865,56.4108 162.4325,56.2606 162.3422,56.1771 162.3605,56.1257 162.4619,56.0372 162.5845,55.9739 162.6049,55.9674 162.7493,55.9517 162.8058,55.9959 162.8223,56.0203 162.9401,56.0736 163.0191,56.107 163.0636,56.1294 163.0538,56.2651 163.0449,56.2873 163.0332,56.3167 162.9749,56.4183 162.9263,56.5618 162.9326,56.5867 162.9587,56.6199 162.9215,56.6745 162.783,56.6786 162.7125,56.6693 162.6312,56.6379 162.614,56.64 162.5897,56.6521 162.5647,56.6661 162.5414,56.6839 162.5257,56.699 162.5012,56.7277 162.4927,56.7871 162.4926,56.8145 162.5009,56.8608 162.5245,56.932 162.5377,56.9567 162.5373,56.9772 162.5329,57.0054 162.5214,57.035 162.5066,57.0648 162.4838,57.103 162.4607,57.1499 162.4576,57.1902 162.4593,57.2137 162.4669,57.2503 162.474,57.2824 162.4503,57.2911 162.4886,57.3159 162.5497,57.3482 162.5899,57.3683 162.6619,57.3996 162.7083,57.4023 162.7597,57.4197 162.7795,57.4334 162.866,57.5247 162.9872,57.6711 162.9139,57.7706 162.8718,57.7753 162.8366,57.7708 162.8035,57.7657 162.7238,57.7771 162.7004,57.781 162.6762,57.7938 162.6516,57.8062 162.5798,57.8363 162.5484,57.8475 162.4066,57.8948 162.3715,57.8956 162.2689,57.8805 162.2485,57.8745 162.2316,57.8638 162.2088,57.8473 162.1799,57.8182 162.1707,57.7991 162.1719,57.7515 162.1735,57.7204 162.1838,57.6929 162.0878,57.6207 162.0463,57.6229 162.0482,57.6467 162.0229,57.729 161.9988,57.7319 161.9524,57.7398 161.9196,57.7491 161.8127,57.7851 161.7467,57.8383 161.7089,57.8786 161.6455,57.9741 161.6442,57.9984 161.6859,58.0934 161.7543,58.2183 161.8464,58.3831 162.107,58.6095 162.2102,58.6705 162.2399,58.6827 162.2916,58.7023 162.3341,58.7157 162.4012,58.7388 162.4651,58.7654 162.4858,58.7942 162.4255,58.7824 162.4595,58.8202 162.519,58.8429 162.5631,58.8588 162.6028,58.8671 162.6809,58.8882 162.707,58.9023 162.7312,58.9257 162.7414,58.9507 162.7184,58.9509 162.697,58.9553 162.6566,58.9861 162.5947,59.0346 162.5798,59.0566 162.6397,59.0724 162.7097,59.0867 162.8722,58.9995 162.8443,58.9717 162.8637,58.9629 162.8848,58.9771 162.8969,58.9955 162.8893,59.0586 162.8757,59.0772 162.853,59.0932 162.807,59.1153 162.7634,59.1233 162.7582,59.1694 162.7793,59.1967 162.8003,59.2069 162.8657,59.225 162.9542,59.2251 162.9527,59.1939 162.9278,59.1691 162.9584,59.1677 162.9928,59.1907 163.003,59.218 163.0078,59.2379 163.0245,59.3168 163.0147,59.3389 162.9967,59.3585 162.9143,59.4079 162.8919,59.4167 162.8615,59.4309 162.8742,59.4951 162.9616,59.5134 162.9989,59.5083 163.0224,59.5134 163.0657,59.5401 163.0839,59.5577 163.0814,59.5782 163.0628,59.6159 163.0497,59.6657 163.0536,59.752 163.1974,59.8266 163.2276,59.8311 163.2542,59.8306 163.3311,59.8229 163.3622,59.8186 163.3915,59.8254 163.4411,59.9048 163.4146,59.8962 163.3684,59.8988 163.3298,59.9285 163.3133,59.9512 163.3323,59.9735 163.4315,59.9781 163.5008,59.9696 163.6602,59.9589 163.7353,59.958 163.7984,59.8995 163.7697,59.871 163.7383,59.8608 163.7316,59.8292 163.7439,59.8021 163.8378,59.7951 163.8271,59.8387 163.8314,59.8605 163.8574,59.8765 163.9094,59.9031 164.0315,59.9565 164.0085,59.9846 164.0087,60.0136 164.1334,60.0408 164.1593,60.0387 164.1829,60.0332 164.2058,60.0264 164.2325,60.0133 164.3651,59.9246 164.3917,59.9035 164.4246,59.8686 164.4696,59.7831 164.4639,59.7566 164.4877,59.7231 164.5142,59.7098 164.6881,59.7668 164.717,59.7856 164.8716,59.909 164.8713,59.935 164.8093,60.0129 164.7654,60.0143 164.7444,60.0022 164.7271,59.9918 164.6961,60.0064 164.6862,60.054 164.8445,60.0486 164.8795,60.0191 164.9244,60.0238 165.0881,60.094 165.1278,60.1142 165.1926,60.138 165.2163,60.1414 165.332,60.1739 165.4553,60.2149 165.6164,60.3077 165.6404,60.3279 165.6686,60.3506 165.6876,60.3608 165.7502,60.3767 165.784,60.3842 165.9089,60.4077 165.954,60.4117 166.0343,60.4132 166.0666,60.3973 166.0326,60.3386 166.0075,60.3192 165.985,60.3129 165.9411,60.3108 165.9459,60.184 165.8656,60.0565 165.8238,59.9529 165.7894,59.842 165.7844,59.7805 165.7883,59.7561 165.8072,59.7464 165.8257,59.7434 165.8565,59.7472 165.9337,59.7587 165.9742,59.7684 165.9933,59.7749 166.0306,59.7956 166.2046,59.9144 166.3187,59.9966 166.356,60.0248 166.3872,60.0465 166.492,60.1164 166.7353,60.251 166.8687,60.2791 166.8899,60.2791 166.9207,60.2826 166.9609,60.2924 167.1385,60.3496 167.2983,60.3741 167.4421,60.4131 167.7571,60.4882 167.791,60.4951 167.8707,60.5083 168.0026,60.5215 168.0825,60.5226 168.1597,60.5214 168.1917,60.5169 168.2161,60.5117 168.256,60.4998 168.3984,60.4879 168.6546,60.4864 168.8335,60.4881 168.885,60.5256 168.8861,60.5466 168.9445,60.546 168.9689,60.5411 169.001,60.5284 169.0243,60.5158 169.0463,60.4901 169.0272,60.4833 168.998,60.4824 169.0072,60.4585 169.0836,60.4312 169.1275,60.4164 169.2173,60.3884 169.2673,60.3731 169.3244,60.3566 169.3537,60.3495 169.383,60.3342 169.3902,60.2759 169.4268,60.2045 169.6122,59.9967 169.6394,59.984 169.7182,59.9729 169.7564,59.9603 169.7891,59.9307 169.7828,59.906 169.8947,59.8466 169.9223,59.8382 170.0493,59.874 170.0733,59.8863 170.0873,59.9086 170.1109,59.9671 170.1243,60.021 170.1369,60.082 170.138,60.1069 170.1399,60.1313 170.1475,60.1507 170.1611,60.1693 170.1777,60.1902 170.2085,60.2119 170.2373,60.2194 170.2608,60.2217 170.3016,60.2306 170.3369,60.253 170.3346,60.2803 170.2958,60.3215 170.3199,60.3444 170.3337,60.3443 170.3645,60.3458 170.4399,60.3621 170.4626,60.371 170.534,60.4326 170.6635,60.45 170.8446,60.4799 171.0421,60.5587 171.0825,60.6404 171.2601,60.6567 171.286,60.6607 171.306,60.6736 171.2932,60.6966 171.284,60.7284 171.3622,60.7517 171.4425,60.7664 171.4802,60.7557 171.5393,60.7529 171.6263,60.7794 171.6121,60.7989 171.6089,60.8227 171.6243,60.8724 171.6451,60.8757 171.675,60.8478 171.675,60.8264 171.6642,60.8024 171.6936,60.7728 171.7413,60.8071 171.7869,60.864 171.8189,60.8654 171.8586,60.8711 171.8735,60.8888 171.8566,60.9254 171.834,60.9534 171.7978,60.9607 171.7227,60.9965 171.6904,61.018 171.8052,60.9891 171.8813,60.9583 171.9131,60.9394 171.9535,60.9353 172.0343,60.9345 172.0564,60.9402 172.1246,60.9669 172.1538,60.9969 172.0653,61.0251 172.0442,61.0261 172.0307,61.0481 172.0141,61.1445 172.0401,61.1543 172.075,61.1446 172.1038,61.136 172.1354,61.1274 172.2156,61.111 172.315,61.1159 172.4398,61.2014 172.4187,61.2196 172.3991,61.2297 172.3416,61.2543 172.3714,61.254 172.4245,61.2398 172.4682,61.2237 172.4887,61.2145 172.5139,61.2028 172.5431,61.2019 172.5668,61.2059 172.6254,61.2283 172.6069,61.266 172.5876,61.2816 172.5681,61.2924 172.5234,61.3072 172.4873,61.316 172.4016,61.3422 172.3831,61.3523 172.462,61.3795 172.4874,61.3865 172.5355,61.3963 172.557,61.3954 172.6286,61.3702 172.6503,61.3507 172.7098,61.3246 172.7318,61.3166 172.7662,61.3134 172.8054,61.3205 172.8294,61.3294 172.9446,61.3777 172.9726,61.4112 172.9608,61.4395 172.9819,61.4596 173.0166,61.4766 173.0405,61.4803 173.1353,61.4769 173.1617,61.4889 173.1575,61.528 173.1633,61.5823 173.194,61.6545 173.2082,61.669 173.2344,61.6764 173.2576,61.6768 173.2843,61.6729 173.4436,61.6219 173.4747,61.6048 173.5401,61.6011 173.6556,61.6366 173.6727,61.6471 173.7139,61.6995 173.6863,61.7162 173.6823,61.7435 173.7443,61.7655 173.7769,61.7668 173.8037,61.7632 173.8314,61.7536 173.9767,61.7454 174.0631,61.7432 174.1181,61.7308 174.126,61.7304 174.1792,61.7392 174.2578,61.7546 174.3384,61.7768 174.3606,61.786 174.3871,61.8098 174.3437,61.8485 174.3106,61.8616 174.2803,61.8765 174.268,61.9029 174.3955,61.8768 174.44,61.8491 174.4496,61.8568 174.4717,61.8659 174.5178,61.8766 174.582,61.8895 174.6167,61.8953 174.8334,61.94 174.8769,61.9545 174.9065,61.9724 174.9795,62.0251 175.2467,62.0939 175.4574,62.1503 175.5529,62.1697 175.6636,62.1915 175.6965,62.1978 175.7705,62.2066 175.8547,62.2215 175.9393,62.2367 176.2513,62.404 176.2984,62.4474 176.342,62.4623 176.3739,62.454 176.471,62.443 176.5015,62.4497 176.6921,62.474 176.7449,62.4778 176.798,62.4818 176.8335,62.4842 176.8989,62.4928 176.9201,62.5022 176.8293,62.5121 176.7763,62.5083 176.7314,62.5019 176.7063,62.5012 176.6848,62.5101 176.6162,62.5599 176.5861,62.5877 176.5769,62.6079 176.6298,62.787 176.6529,62.7895 176.6776,62.7832 176.7681,62.7358 176.8068,62.7009 176.787,62.6711 176.7985,62.6395 176.8474,62.6265 176.8965,62.627 176.9138,62.6437 176.9113,62.6649 176.9308,62.6854 176.9657,62.7137 176.9834,62.7234 177.0072,62.7321 177.0863,62.7433 177.1073,62.7329 177.083,62.702 177.0529,62.6948 177.022,62.6949 176.9969,62.6865 176.9703,62.6601 176.9468,62.5312 176.9941,62.4996 177.0242,62.4974 177.1324,62.4941 177.1681,62.4965 177.2237,62.5024 177.2563,62.5026 177.3187,62.5007 177.3499,62.4995 177.3945,62.4965 177.6391,62.4724 177.6825,62.4677 177.7352,62.4574 177.7951,62.4407 177.8316,62.43 177.9783,62.3925 178.1243,62.3676 178.3789,62.3246 178.4056,62.3199 178.6143,62.2809 178.6433,62.2717 178.6829,62.2463 178.7063,62.2206 178.755,62.2133 178.8029,62.2598 178.7927,62.3482 178.7562,62.3768 178.782,62.4023 178.8312,62.4223 178.8656,62.4262 178.8887,62.4252 178.9226,62.42 178.9722,62.4201 179.0101,62.4302 179.0501,62.4566 179.0646,62.4885 179.1721,62.5402 179.2052,62.5428 179.2552,62.6234 179.2447,62.6718 179.1904,62.765 179.1468,62.7955 179.0704,62.8063 179.001,62.8103 178.9565,62.8266 178.9074,62.8823 178.8862,62.9282 178.9,62.9509 178.9393,62.9737 178.9651,62.9817 179.0156,62.9838 179.0382,62.9756 179.0598,62.9796 179.0611,63.0613 178.9818,63.1137 178.952,63.1286 178.9144,63.1441 178.8919,63.1522 178.8552,63.1624 178.6123,63.2154 178.5791,63.2155 178.5788,63.2364 178.5506,63.2548 178.5261,63.2518 178.5025,63.247 178.472,63.2613 178.4561,63.2747 178.4538,63.3026 178.4778,63.3205 178.5057,63.3213 178.5477,63.2961 178.5752,63.2795 178.5921,63.2677 178.6081,63.2541 178.6266,63.2431 178.6518,63.2421 178.6265,63.2655 178.563,63.3175 178.5044,63.3717 178.4859,63.3914 178.4693,63.413 178.4307,63.4735 178.4278,63.5071 178.4061,63.5139 178.3959,63.4678 178.417,63.4261 178.4225,63.4005 178.4574,63.3636 178.4238,63.3216 178.371,63.3094 178.3306,63.3057 178.3044,63.3113 178.2447,63.3337 178.3171,63.3806 178.371,63.3956 178.3876,63.4227 178.3536,63.495 178.155,63.5003 178.1233,63.4951 178.0999,63.4755 178.0457,63.441 178.0203,63.438 177.9731,63.447 177.9113,63.4962 177.9793,63.5392 178.0037,63.5481 178.1741,63.5632 178.2388,63.5925 178.2584,63.5966 178.3746,63.5672 178.4067,63.5616 178.3942,63.6322 178.3411,63.8175 178.3121,63.8649 178.1708,63.8961 178.1244,63.8908 178.0583,63.8859 178.0256,63.8931 178.0257,63.926 178.0465,63.9526 178.1116,63.984 178.1318,63.9864 178.1256,64.0446 178.0521,64.1457 178.0185,64.1906 177.9937,64.2162 177.9506,64.2602 177.9339,64.2741 177.7238,64.1758 177.7493,64.151 177.7873,64.1379 177.8076,64.134 177.8297,64.1257 177.7892,64.1213 177.7364,64.1203 177.6466,64.13 177.6044,64.1365 177.5278,64.1557 177.4517,64.1753 177.3175,64.2219 177.2809,64.2392 177.0825,64.3507 177.0678,64.3656 177.0355,64.412 177.01,64.4647 177.0244,64.4959 177.0634,64.5314 177.1007,64.5664 177.1354,64.6786 177.0295,64.6937 176.9909,64.6968 176.948,64.6908 176.6587,64.631 176.6262,64.6207 176.5489,64.5842 176.5166,64.5664 176.4789,64.5266 176.4559,64.5074 176.3887,64.4849 176.3668,64.507 176.3471,64.5354 176.2524,64.5811 176.1758,64.6075 176.138,64.6116 176.1029,64.6083 176.0679,64.5873 176.0471,64.5666 176.0271,64.5566 175.9797,64.5423 175.944,64.5388 175.8989,64.5432 175.8673,64.5414 175.7816,64.4961 175.7611,64.4642 175.7648,64.5093 175.7721,64.5153 175.7988,64.5491 175.8222,64.5582 175.8473,64.5628 175.9241,64.5697 175.9521,64.5739 176.0211,64.594 176.0727,64.6239 175.9309,64.7405 175.8492,64.7951 175.7973,64.8109 175.7154,64.8207 175.675,64.8227 175.6243,64.7972 175.5972,64.7616 175.5738,64.749 175.4737,64.7031 175.3631,64.6777 175.3339,64.6737 175.296,64.6709 175.0811,64.6657 174.9403,64.6499 174.8272,64.6543 174.767,64.6607 174.7054,64.6588 174.6456,64.6521 174.616,64.6443 174.5914,64.6356 174.519,64.6157 174.4994,64.6104 174.4359,64.5948 174.3719,64.5896 174.2958,64.5854 174.173,64.5882 174.129,64.5937 174.1043,64.6061 174.1682,64.6021 174.2161,64.6004 174.315,64.598 174.3579,64.5986 174.3964,64.6036 174.5,64.6271 174.5597,64.6427 174.5968,64.6559 174.6951,64.6809 174.7215,64.6828 174.7653,64.6768 174.8455,64.6733 174.9738,64.6733 175.0431,64.6817 175.0759,64.6884 175.1151,64.6977 175.2139,64.7097 175.2384,64.709 175.2743,64.7036 175.3182,64.698 175.3436,64.6978 175.3895,64.7053 175.4246,64.715 175.4994,64.7413 175.5215,64.7508 175.5612,64.7708 175.5879,64.803 175.6572,64.8503 175.6771,64.8603 175.71,64.8672 175.8478,64.8381 176.0683,64.7635 176.076,64.7341 176.1022,64.7256 176.2013,64.7525 176.2633,64.7851 176.2831,64.7885 176.519,64.7673 176.5451,64.7507 176.5759,64.7186 176.6926,64.6897 176.8014,64.7028 176.8449,64.7104 176.8961,64.7241 176.9237,64.7319 176.9467,64.7504 176.8647,64.8284 176.8089,64.8617 176.7858,64.8702 176.7369,64.8858 176.6408,64.9253 176.6232,64.9445 176.6053,64.9572 176.5781,64.9629 176.5291,64.9651 176.4988,64.9621 176.4042,64.9408 176.3587,64.9262 176.3303,64.922 176.2541,64.9166 176.2156,64.9139 176.1672,64.9169 175.9792,64.9565 175.9565,64.9658 176.087,64.9922 176.1226,64.9796 176.2394,64.9434 176.3109,64.9569 176.3905,64.9747 176.4543,64.989 176.4987,64.9972 176.5379,65.0016 176.5637,65.0012 176.8145,64.9441 176.8375,64.9291 176.8594,64.8812 176.8745,64.8662 176.9078,64.8525 176.9462,64.849 176.9829,64.8501 177.0608,64.8498 177.0895,64.8356 177.1336,64.7725 177.1527,64.7243 177.2537,64.6401 177.3755,64.6239 177.6017,64.6043 177.74,64.6063 177.8965,64.6002 177.9162,64.5891 178.021,64.5856 178.1967,64.5942 178.2553,64.605 178.3474,64.6178 178.3948,64.603 178.3909,64.582 178.3333,64.5563 178.3022,64.549 178.2666,64.5472 178.1661,64.5364 178.1418,64.5311 178.1291,64.5272 178.144,64.5091 178.1687,64.508 178.2078,64.5115 178.2693,64.5253 178.4809,64.5941 178.5105,64.6052 178.5541,64.6236 178.5953,64.6428 178.6287,64.6567 178.7192,64.6854 178.8069,64.7075 178.9002,64.7281 179.0154,64.7384 179.0579,64.7349 179.1039,64.7324 179.2922,64.8363 179.3874,64.9014 179.4195,64.9309 179.4381,64.9409 179.4641,64.9486 179.5273,64.9657 179.6412,64.9876 179.6395,65.3167 179.6362,65.8973 179.6298,66.8953 179.623,67.8934 179.6156,68.8913 179.5415,68.8905 179.5025,68.892 179.406,68.8958 179.3662,68.9024 179.3354,68.9146 179.2944,68.9326 179.204,68.9864 179.1658,69.0171 179.1906,69.0206 179.2113,69.0144 179.3089,68.974 179.3929,68.9394 179.4263,68.9229 179.4527,68.9144 179.5008,68.9062 179.5341,68.9019 179.5627,68.9068 179.4779,68.9336 179.3812,68.973 179.19,69.0536 178.9973,69.123 178.9674,69.1356 178.936,69.1536 178.9127,69.1729 178.7481,69.1951 178.4952,69.207 178.4747,69.2072 178.4443,69.2024 178.4048,69.1928 178.3836,69.1899 178.3323,69.19 178.3103,69.1953 178.2682,69.2201 178.2748,69.2453 178.2953,69.2696 178.3594,69.2827 178.3802,69.2828 178.4274,69.2742 178.4648,69.2657 178.4932,69.2488 178.556,69.2306 178.5976,69.2304 178.6812,69.2343 178.6584,69.2468 178.6202,69.2606 178.4892,69.2931 178.386,69.3179 178.2812,69.3413 178.0954,69.3766 178.0591,69.3798 177.9845,69.3857 177.9467,69.388 177.9258,69.3881 177.8856,69.3859 177.8035,69.3597 177.4718,69.4173 177.3517,69.4448 177.3015,69.4594 177.2741,69.4679 177.2097,69.4853 177.053,69.5141 176.9328,69.5281 176.803,69.5313 176.6449,69.5357 176.6102,69.5396 176.3588,69.5769 176.3222,69.5863 176.291,69.5989 176.2536,69.6205 176.2195,69.631 176.1479,69.6507 176.0299,69.6741 175.9483,69.681 175.8527,69.7038 175.8548,69.7363 175.7366,69.798 175.7021,69.8025 175.5759,69.8076 175.3817,69.8133 175.3413,69.8138 175.1409,69.7993 175.1172,69.779 175.0875,69.7704 175.051,69.763 175.0022,69.7579 174.937,69.7559 174.9161,69.7556 174.8352,69.7566 174.775,69.7575 174.6653,69.7609 174.5098,69.7613 174.3446,69.7603 174.2477,69.7636 174.0747,69.7712 174.0246,69.7786 173.9854,69.7864 173.9459,69.7941 173.7107,69.7928 173.6468,69.7893 173.6083,69.7785 173.5813,69.7658 173.5569,69.7561 173.3652,69.7768 173.2967,69.8005 173.1064,69.8581 173.0812,69.8618 173.0586,69.86 172.8601,69.839 172.8288,69.8337 172.7926,69.8028 172.8313,69.8145 172.8944,69.8202 172.9178,69.8155 173.0411,69.7746 173.0994,69.7429 173.0845,69.7211 173.0031,69.697 172.8263,69.6891 172.8028,69.7035 172.8267,69.726 172.79,69.7566 172.6768,69.7692 172.5011,69.8019 172.4506,69.8163 172.4307,69.8238 172.4084,69.8421 172.2628,69.8749 172.1678,69.8695 172.1159,69.8685 172.0327,69.8742 171.9184,69.8848 171.884,69.8891 171.8332,69.8962 171.7793,69.9011 171.7416,69.9027 171.6538,69.9051 171.6015,69.9041 171.5549,69.9066 171.4934,69.9132 171.3345,69.9305 171.2995,69.9346 171.1255,69.9556 171.0421,69.9689 171.0072,69.9729 170.9706,69.9761 170.8008,69.985 170.6004,70.0011 170.5215,70.0026 170.4811,69.9992 170.4405,70.0011 170.4047,70.0036 170.3333,70.0106 170.2553,70.0204 170.2166,70.0292 170.1847,70.0353 170.1423,70.0412 170.0939,70.0426 170.0711,70.0404 170.0429,70.0347 170.0266,70.0233 170.0463,70.014 170.0911,70.0102 170.139,70.0083 170.1809,69.9879 170.1652,69.9517 170.1532,69.9262 170.1511,69.8375 170.1681,69.8185 170.1853,69.8029 170.1977,69.6877 170.1548,69.6671 170.127,69.6579 170.0925,69.6495 170.0701,69.6477 170.0403,69.6472 169.9925,69.6488 169.9499,69.6477 169.9134,69.6383 169.8624,69.6139 169.8306,69.5983 169.8124,69.5871 169.7848,69.5671 169.7699,69.5521 169.7549,69.5236 169.7739,69.5107 169.8037,69.5034 169.8954,69.4983 169.9259,69.499 170.0142,69.5124 170.0569,69.5152 170.0985,69.5173 170.1387,69.5177 170.1825,69.5133 170.212,69.5059 170.2408,69.4905 170.2606,69.4749 170.2975,69.4431 170.3754,69.3549 170.4984,69.244 170.5407,69.2166 170.5625,69.1376 170.5985,69.0625 170.6428,68.9767 170.6669,68.9535 170.6576,68.9344 170.5714,68.9209 170.3983,68.8666 170.3467,68.8154 170.3606,68.7321 170.3422,68.7159 170.2897,68.8149 170.2563,68.8213 170.2364,68.8177 170.0954,68.7751 170.0799,68.7511 170.1888,68.735 170.25,68.6682 170.1821,68.681 170.1592,68.6931 170.1318,68.7094 169.9978,68.732 169.9704,68.7331 169.9502,68.7322 169.9288,68.73 169.8891,68.7253 169.8444,68.7184 169.6948,68.7055 169.4226,68.6876 169.3687,68.6863 169.3203,68.6858 169.2292,68.6889 169.1134,68.7343 169.0931,68.7522 169.0801,68.7746 169.0639,68.818 169.079,68.843 169.0635,68.9088 169.0404,68.9584 169.0255,68.9779 169.0038,68.9915 168.9742,68.9986 168.899,69.0078 168.8451,69.0105 168.692,69.0424 168.5464,69.0806 168.5015,69.0916 168.3718,69.1193 168.2496,69.1213 168.1154,69.1212 168.0598,69.1225 167.9947,69.1323 167.9501,69.1429 167.9225,69.1526 167.8724,69.19 167.8327,69.2922 167.84,69.3146 167.8744,69.3776 167.8951,69.4394 167.8768,69.4616 167.8592,69.4711 167.7377,69.513 167.7074,69.5202 167.6615,69.5306 167.6309,69.5375 167.6308,69.5969 167.6316,69.624 167.4963,69.6646 167.4527,69.6774 167.4138,69.6859 167.3833,69.6847 167.3388,69.6799 167.2903,69.6703 167.2419,69.6535 167.2182,69.6431 167.1799,69.625 167.1613,69.6107 167.1313,69.595 167.0581,69.5645 167.0313,69.5551 166.8522,69.4924 166.5736,69.4087 166.5421,69.403 166.5012,69.4007 166.3923,69.4065 166.3365,69.4199 166.289,69.4338 166.2307,69.4336 166.067,69.4239 166.0112,69.4218 165.984,69.4215 165.7797,69.4213 165.7374,69.4263 165.705,69.4321 165.6119,69.4523 165.567,69.4637 165.5301,69.474 165.4669,69.4861 165.2698,69.5005 165.1782,69.4952 165.1189,69.4936 165.0819,69.4942 165.0196,69.4972 164.9654,69.4999 164.9112,69.5029 164.8754,69.5048 164.839,69.5066 164.7993,69.5073 164.7401,69.5053 164.641,69.4978 164.588,69.4927 164.5027,69.4927 164.4291,69.4954 164.1772,69.5094 164.1354,69.5155 164.0503,69.5344 164.0211,69.5434 163.8773,69.59 163.8032,69.6208 163.7788,69.6344 163.7604,69.6563 163.7369,69.669 163.6954,69.6756 163.6591,69.6774 163.6374,69.6744 163.605,69.6652 163.5728,69.6517 163.5407,69.6424 163.4052,69.6092 163.3727,69.6031 163.3294,69.5975 163.246,69.5905 163.1881,69.5892 163.1531,69.5919 163.093,69.5987 163.0496,69.6128 162.966,69.6247 162.9389,69.6264 162.8638,69.6271 162.825,69.6266 162.7152,69.6063 162.6132,69.5861 162.5034,69.5659 162.4806,69.5621 162.3917,69.5578 162.3661,69.5608 162.346,69.5666 162.3623,69.549 162.3098,69.5152 162.413,69.4359 162.3456,69.3957 162.5024,69.3611 162.5085,69.2954 162.6392,69.2514 162.7888,69.1705 162.4935,69.1016 162.5735,69.0347 162.5383,68.9804 162.7466,68.9118 162.8476,68.8522 162.723,68.7685 162.5915,68.7864 162.6124,68.6758 162.709,68.6414 162.7598,68.568 162.5949,68.4892 162.5294,68.3356 162.4001,68.2776 162.1699,68.3347 161.9785,68.3559 161.7255,68.3472 161.5843,68.3794 161.3437,68.3902 161.2326,68.3685 160.9921,68.2796 160.8306,68.2748 160.5075,68.2493 160.026,68.2656 159.8404,68.2592 159.8084,68.1898 159.7424,68.189 159.7073,68.2206 159.5234,68.2203 159.19,68.1702 159.1273,68.1774 158.9911,68.1499 158.8885,68.1151 158.7875,68.13 158.7318,68.1165 158.6509,68.1283 158.4892,68.1085 158.3614,68.0707 158.2549,68.0471 158.253,67.9846 158.19,67.9244 158.0662,67.9055 158.0795,67.8235 158.2663,67.8203 158.3586,67.7266 158.1535,67.7003 158.1003,67.721 157.9343,67.7212 157.8126,67.6804 157.6956,67.5245 157.7586,67.4571 157.9054,67.4229 157.7918,67.3207 157.8689,67.2512 157.9699,67.2342 158.2004,67.1677 158.2118,67.14 158.3267,67.1207 158.3622,67.0894 158.4735,67.0942 158.7072,67.0326 158.8213,66.9478 158.7887,66.916 158.8157,66.877 158.8637,66.8587 158.8761,66.8221 158.9182,66.7764 158.8046,66.7138 158.717,66.7036 158.6749,66.6125 158.609,66.5686 158.5382,66.5471 158.4917,66.5001 158.5009,66.4597 158.3695,66.4259 158.4264,66.4063 158.5547,66.3322 158.7552,66.2768 158.9782,66.2175 159.2587,66.1462 159.1184,66.0494 159.0421,65.9727 158.9811,65.9109 158.9111,65.8615 158.9407,65.8154 158.9089,65.7338 159.0446,65.7204 159.2176,65.6637 159.5571,65.6203 159.7467,65.5709 159.838,65.5139 160.0291,65.5139 160.1721,65.4717 160.248,65.4213 160.2357,65.3469 160.3904,65.276 160.5993,65.1557 160.6818,65.1388 160.8937,65.1401 161.0336,65.163 161.223,65.1372 161.3024,65.1423 161.4302,65.1033 161.5116,65.0507 161.6787,65.0194 161.7404,64.9636 161.7614,64.9045 161.8311,64.8714 161.8041,64.8412 161.9255,64.8026 162.1798,64.7757 162.3027,64.7341 162.4973,64.7537 162.614,64.7307 162.6304,64.6786 162.741,64.6456 162.8637,64.6522 163.0419,64.6565 163.1947,64.7036 163.2618,64.6789 163.1752,64.6251 163.2047,64.5857 163.1722,64.5566 163.2531,64.5023 163.3615,64.4868 163.4008,64.405 163.4733,64.3811 163.3714,64.3553 163.3395,64.3173 163.2421,64.2905 163.1741,64.1864 162.9432,64.207 162.8095,64.1408 162.862,64.0368 162.9312,64.0248 162.9731,63.9495 162.9193,63.9139 162.9461,63.8817 162.849,63.8816 162.7595,63.8311 162.8067,63.7415 162.8942,63.7235 162.8937,63.6658 163.0202,63.6418 163.0196,63.5129 162.9125,63.4353 162.843,63.4408 162.7968,63.4016 162.7119,63.397 162.7014,63.3726 162.7511,63.3578 162.7827,63.3113 162.9007,63.2711 162.809,63.1926 162.6224,63.1805 162.6456,63.1402 162.4869,63.1111 162.439,63.1321 162.329,63.0773 162.3621,63.0417 162.3099,62.9264 162.4768,62.8873 162.5767,62.8598 162.648,62.8138 162.6436,62.7659 162.717,62.7127 162.7234,62.6803 162.8325,62.6771 162.7027,62.5583 162.792,62.4683 162.7846,62.379 162.7752,62.2923 162.6719,62.2369 162.5994,62.2657 162.5824,62.2339 162.4434,62.2392 162.3259,62.1778 162.2712,62.2005 162.1724,62.1727 162.1789,62.1448 162.3035,62.1008 162.5558,62.0801 162.5277,61.9489 162.3171,61.9476 162.2888,61.9183 162.3944,61.836 162.4932,61.8059 162.4228,61.7525 162.4971,61.7364 162.5095,61.6449 162.5252,61.6444 162.5664,61.6291 162.5975,61.612 162.6188,61.5944 162.631,61.5021 162.693,61.4433 162.7755,61.4802 162.7663,61.5011 162.7525,61.5216 162.7815,61.5423 162.8131,61.5529 162.9016,61.5548 162.9698,61.5865 162.9918,61.6073 162.9895,61.6424 162.9248,61.671 162.8099,61.686 162.7298,61.6947 162.7028,61.6975 162.6715,61.7042 162.6392,61.7259 162.6471,61.7499 162.715,61.8601 162.7563,61.9066 162.8236,61.9697 162.7928,62.0709 162.7658,62.1223 162.8103,62.2078 162.9175,62.2578 163.0108,62.2695 163.0348,62.2858 163.0253,62.3044 162.9953,62.3138 162.9752,62.316 162.9383,62.3158 162.9129,62.321 162.8481,62.3683 162.9114,62.4502 162.9405,62.466 162.9729,62.4738 163.0155,62.4804 163.0714,62.4857 163.2695,62.5109 163.4386,62.5399 163.626,62.5708 163.7513,62.5836 163.7884,62.5838 163.831,62.5913 163.9122,62.6081 164.0164,62.6316 164.0468,62.6348 164.194,62.6228 164.2621,62.6141 164.3342,62.5594 164.3615,62.5312 164.3862,62.5075 164.4437,62.4913 164.7139,62.4362 164.7485,62.4327 164.8276,62.4297 164.9286,62.4264 164.9738,62.4268 165.0169,62.423 165.0714,62.4165 165.2459,62.3933 165.3092,62.3665 165.1913,62.3695 165.1251,62.382 165.0703,62.3967 165.0224,62.4021 164.8662,62.4012 164.8018,62.3947 164.7741,62.3794 164.8005,62.3571 164.8533,62.3394 164.9116,62.3246 164.9702,62.2793 165.0101,62.2397 164.9647,62.2405 164.9426,62.257 164.9115,62.2969 164.7714,62.3445 164.7365,62.3476 164.6963,62.3435 164.6645,62.3406 164.6431,62.3415 164.6017,62.3455 164.4647,62.3693 164.4426,62.378 164.399,62.3939 164.2946,62.3979 164.2142,62.3817 164.196,62.3711 164.1718,62.3509 164.0982,62.3085 164.0787,62.2983 164.0099,62.2715 163.9792,62.266 163.9563,62.2648 163.9147,62.2544 163.803,62.2009 163.7799,62.1757 163.7647,62.1253 163.7475,62.0252 163.7572,61.876 163.756,61.7083 163.7218,61.6354 163.6964,61.6123 163.6702,61.6001 163.6334,61.5968 163.558,61.5782 163.5323,61.5581 163.4349,61.3759 163.4451,61.358 163.4703,61.3494 163.4951,61.3621 163.5244,61.3729 163.6259,61.3654 163.6596,61.3477 163.7067,61.289 163.7013,61.2557 163.6662,61.2342 163.5412,61.1385 163.4518,61.1127 163.4086,61.0994 163.3245,61.0722 163.3021,61.0588 163.1986,60.9729 163.1977,60.9308 163.3012,60.8973 163.4176,60.8626 163.3322,60.8014 163.2743,60.804 163.2507,60.8002 163.1334,60.7743 163.0903,60.7607 163.0593,60.7421 162.9638,60.7392 162.8824,60.7469 162.829,60.7259 162.8008,60.7042 162.705,60.7117 162.6617,60.7089 162.5909,60.6975 162.5661,60.69 162.4943,60.623 162.4671,60.5866 162.4457,60.5729 162.3137,60.5349 162.1521,60.5186 162.06,60.4744 161.8403,60.4194 161.6363,60.3593 161.6066,60.3468 161.5699,60.2445 161.6106,60.2545 161.6235,60.2162 161.6244,60.1953 161.6138,60.1701 161.533,60.1147 161.4888,60.0876 161.4147,60.0517 161.3221,60.0293 161.1964,59.9927 161.162,59.9741 161.0382,59.8693 160.9676,59.8057 160.9448,59.7786 160.7993,59.6905 160.5599,59.5509 160.5191,59.5341 160.3266,59.5033 160.2242,59.4876 160.1838,59.4715 160.1628,59.4426 160.1553,59.403 160.145,59.3844 160.1149,59.3551 160.0423,59.2901 160.0087,59.2698 159.8597,59.216 159.6262,59.105 159.602,59.0917 159.5706,59.0728 159.4938,59.0131 159.4382,58.9484 159.4331,58.9287 159.4482,58.9063 159.4612,58.8742 159.4236,58.7992 159.4076,58.7811 159.2025,58.6435 159.1571,58.6165 159.0464,58.5528 158.9065,58.4718 158.8554,58.4338 158.8374,58.4081 158.7526,58.351 158.4678,58.2279 158.4463,58.2208 158.3753,58.2011 158.3013,58.1573 158.1849,58.0988 158.0703,58.0351 157.996,57.9917 157.9458,57.9501 157.7812,57.923 157.754,57.9185 157.6361,57.9105 157.5733,57.9108 157.5112,57.9195 157.3574,57.9354 157.2735,57.8123 157.2493,57.7823 157.2139,57.7536 157.1912,57.7399 157.1493,57.7218 157.1217,57.7162 157.0406,57.7039 157.0018,57.7011 156.921,57.7024 156.8844,57.704 156.7703,57.7293 156.7453,57.7466 156.6973,57.7818 156.5033,57.6948 156.4767,57.6696 156.533,57.6624 156.5568,57.659 156.6008,57.6252 156.6188,57.6097 156.6347,57.5945 156.6503,57.5754 156.6881,57.494 156.6979,57.4593 156.7051,57.3815 156.6985,57.3527 156.6817,57.3273 156.4909,57.1116 156.4155,57.0407 156.3668,57.0089 156.2663,57.0369 156.2477,56.9922 156.2362,56.9598 156.2028,56.9132 156.171,56.887 156.1447,56.8737 156.1112,56.8577 156.0758,56.8422 155.9244,56.7827 155.7873,56.6553 155.793,56.6868 155.8221,56.7167 155.853,56.7326 155.8805,56.7525 155.8874,56.7739 155.8337,56.7518 155.8,56.728 155.7435,56.6784 155.7242,56.6607 155.6664,56.5863 155.665,56.5667 155.6654,56.5415 155.6205,56.4382 155.571,56.3244 155.5581,56.2929 155.526,56.2035 155.4922,56.1074 155.4825,56.0883 155.4656,56.0571 155.4454,56.0236 155.4229,55.9929 155.4123,55.9675 155.3749,55.846 155.3731,55.7662 155.3748,55.737 155.3745,55.726 155.3694,55.6937 155.335,55.5376 155.3104,55.4408 155.2813,55.2914 155.2774,55.2652 155.2769,55.2386 155.2774,55.2351 1375,11.0,Russia 138.6978,67.2632 138.7757,67.2014 138.9235,67.1421 139.1524,67.0833 139.2944,67.077 139.4904,67.069 139.5683,66.9393 139.6973,66.8345 140.0317,66.7207 140.3635,66.5769 140.6801,66.4994 140.5675,66.4129 140.2823,66.3828 139.7206,66.2863 139.7325,66.2088 140.1095,66.0215 140.0395,65.8988 140.3657,65.7468 140.1871,65.6306 140.4768,65.5993 140.2935,65.5206 139.8988,65.4327 139.7419,65.342 139.5734,65.2143 139.4208,65.0966 139.3359,65.0007 139.4602,64.9174 139.6651,64.8713 140.3926,64.5994 140.4104,64.5642 139.9207,64.4217 140.0792,64.3472 140.2738,64.3377 140.5302,64.2085 140.7638,64.1862 140.7,63.9944 140.7057,63.9037 140.5393,63.857 140.5289,63.7429 140.6121,63.6173 140.5898,63.565 140.2449,63.6046 139.7929,63.5115 139.5842,63.3243 139.4729,63.179 139.4091,63.0694 139.4481,63.0177 139.5953,62.9491 139.6453,62.8598 139.629,62.7938 139.6157,62.672 139.809,62.6867 140.149,62.7437 140.3334,62.7368 140.3865,62.615 140.4658,62.4815 140.5645,62.4243 140.6911,62.4857 140.7854,62.5563 140.8816,62.4884 141.0368,62.487 141.1057,62.4012 141.2003,62.4247 141.2971,62.4363 141.4207,62.2834 141.5139,62.2587 141.5799,62.1627 141.662,62.1214 141.742,62.0811 141.8601,62.0795 141.824,62.0109 141.8747,62.004 141.9739,62.0299 142.0588,62.0234 142.1307,62.087 142.1742,62.059 142.2717,62.0004 142.2626,61.9625 142.4007,61.9422 142.4209,61.8577 142.5514,61.9093 142.6708,61.9688 142.8754,61.9336 142.9312,61.895 142.9981,61.9168 142.9975,61.966 143.0684,62.0099 143.0982,62.036 143.125,62.1018 143.2275,62.117 143.254,62.0555 143.3763,62.0191 143.4454,62.0459 143.4961,62.0234 143.6003,62.0286 143.6269,61.9702 143.629,61.8897 143.6307,61.8318 143.6904,61.8344 143.7636,61.8918 143.7992,61.9516 143.9456,61.9999 143.9966,61.9568 143.9413,61.893 143.9155,61.8132 144.0145,61.7263 144.1329,61.744 144.2416,61.7366 144.2912,61.7803 144.3785,61.7914 144.441,61.8246 144.5401,61.8509 144.596,61.9843 144.7341,62.0442 144.853,62.0506 144.9943,62.0413 145.0469,61.9999 145.223,61.9727 145.285,62.0002 145.4241,61.9853 145.4833,61.9516 145.6394,62.005 145.6655,62.0525 145.7418,62.0604 145.8011,62.0084 145.8744,62.0272 145.9976,61.9936 146.0345,61.9443 146.1062,61.9524 146.1494,61.9143 146.1994,61.9134 146.2643,61.8606 146.3645,61.8231 146.3666,61.7679 146.4551,61.7248 146.441,61.7055 146.5063,61.6557 146.5848,61.623 146.5776,61.5266 146.6302,61.4746 146.6104,61.4342 146.6614,61.4082 146.7453,61.3975 146.7016,61.3184 146.7284,61.2588 146.7549,61.2046 146.7158,61.1369 146.7319,61.0967 146.6738,61.0846 146.6626,61.0608 146.7318,61.0017 146.6936,60.9533 146.5364,60.9608 146.4777,60.9218 146.5235,60.8714 146.4937,60.8083 146.4501,60.7614 146.4876,60.7312 146.4581,60.6863 146.4059,60.6575 146.3134,60.6635 146.1951,60.7082 146.111,60.7381 146.0528,60.7355 146.0039,60.6836 145.9617,60.6571 145.9036,60.6415 145.9027,60.6136 145.8586,60.5936 145.7734,60.6072 145.6811,60.5739 145.612,60.557 145.61,60.5184 145.5563,60.5078 145.5052,60.4721 145.5223,60.4116 145.6449,60.394 145.6564,60.3435 145.586,60.3407 145.6622,60.23 145.7517,60.2129 145.7805,60.1954 145.8205,60.192 145.8437,60.2159 146.1489,60.1896 146.2288,60.2387 146.3098,60.2531 146.3689,60.2727 146.4198,60.2509 146.4322,60.2185 146.4704,60.1795 146.4529,60.1304 146.534,60.1091 146.5994,60.1344 146.6911,60.0948 146.6795,60.0149 146.635,59.9931 146.7345,59.958 146.7924,59.9041 146.8866,59.932 146.9878,59.9495 147.0413,59.9368 147.0469,59.8996 147.1203,59.8829 147.1393,59.8529 147.1377,59.8315 147.0999,59.8049 147.1449,59.7757 147.1416,59.7382 147.0825,59.6942 147.1688,59.6383 147.1222,59.6104 147.129,59.5655 147.1134,59.5346 147.1303,59.4994 147.0954,59.4682 147.1043,59.4112 147.0458,59.3963 146.9443,59.4028 146.8967,59.3825 146.8836,59.3341 146.8796,59.2509 146.8911,59.2472 146.9657,59.2557 146.9914,59.2569 147.0231,59.2546 147.0997,59.2274 147.1313,59.2104 147.1515,59.191 147.215,59.1686 147.2781,59.1776 147.2701,59.2033 147.2882,59.2185 147.3314,59.2281 147.3728,59.2265 147.3988,59.2139 147.4321,59.194 147.4797,59.1933 147.5061,59.1971 147.5545,59.217 147.5389,59.2423 147.5068,59.2781 147.5406,59.3027 147.5679,59.3115 147.6012,59.3173 147.6271,59.3196 147.9106,59.3466 147.9366,59.3475 147.9745,59.3455 148.0116,59.3396 148.0888,59.3227 148.1222,59.2895 148.1351,59.1912 148.1806,59.1827 148.2679,59.1749 148.3336,59.1829 148.4135,59.1977 148.5222,59.2102 148.547,59.206 148.5933,59.1841 148.6213,59.1682 148.635,59.1711 148.6719,59.1877 148.6847,59.3088 148.5839,59.3309 148.545,59.3164 148.5197,59.3015 148.4946,59.2926 148.4447,59.2987 148.426,59.3115 148.4125,59.3502 148.4172,59.3776 148.4369,59.3957 148.4654,59.4203 148.4928,59.4384 148.5577,59.4762 148.5833,59.4811 148.5996,59.4678 148.5702,59.4505 148.5636,59.4282 148.5773,59.4086 148.6247,59.3915 148.7092,59.3894 148.7551,59.4057 148.8102,59.4218 148.8429,59.4202 148.884,59.4066 148.9305,59.3975 148.9312,59.4348 148.8938,59.463 148.8453,59.4692 148.8058,59.4796 148.7545,59.56 148.8574,59.6004 149.067,59.6701 149.092,59.6882 149.2003,59.6955 149.3115,59.6995 149.3595,59.6976 149.5279,59.6676 149.5522,59.6621 149.6868,59.6306 149.7954,59.6013 149.9843,59.5802 150.0156,59.5757 150.135,59.5499 150.1548,59.5212 150.2134,59.4903 150.2436,59.4826 150.2927,59.4789 150.3233,59.4867 150.3512,59.4936 150.3992,59.5033 150.4252,59.504 150.4464,59.485 150.4125,59.4734 150.3462,59.4668 150.3065,59.4627 150.252,59.4526 150.2172,59.4446 150.1987,59.4365 150.1775,59.4252 150.1618,59.4113 150.185,59.4147 150.2718,59.4301 150.3115,59.4348 150.3712,59.4405 150.4029,59.4388 150.4475,59.4223 150.4322,59.4045 150.4002,59.3811 150.432,59.3717 150.5878,59.3813 150.6155,59.3869 150.6553,59.4002 150.6411,59.4355 150.6075,59.4491 150.5877,59.4817 150.6217,59.495 150.7668,59.519 150.8195,59.5202 150.8567,59.5159 150.9057,59.5057 150.9548,59.4964 151.1031,59.4997 151.3228,59.4014 151.3768,59.3541 151.4341,59.2821 151.4662,59.2251 151.6989,59.1937 151.7435,59.2033 151.787,59.218 151.8207,59.2232 151.8588,59.2213 152.0014,59.1491 151.9813,59.135 151.9566,59.1378 151.911,59.1364 151.8839,59.131 151.84,59.1157 151.8125,59.1002 151.7911,59.0887 151.7633,59.0819 151.5188,59.0822 151.3258,59.0967 151.1632,59.0881 151.0546,59.0539 151.0088,59.0426 150.8836,59.0196 150.859,59.0229 150.8364,59.0329 150.7967,59.0352 150.8548,58.96 150.9369,58.8736 150.9631,58.8622 150.9932,58.8501 151.0285,58.8035 151.0344,58.7899 151.0294,58.7686 151.0564,58.7698 151.1224,58.7934 151.1761,58.8048 151.2146,58.8056 151.2378,58.7984 151.2604,58.7887 151.2835,58.7815 151.3086,58.7809 151.3339,58.7814 151.4253,58.7883 151.7404,58.8211 151.7801,58.8256 151.8072,58.8312 151.8403,58.8522 151.8291,58.8924 151.843,58.9186 151.9101,58.9361 151.9437,58.9406 152.0751,58.9525 152.19,58.9268 152.2852,58.8841 152.4555,58.8507 152.5949,58.8469 152.6315,58.8965 152.6885,58.9778 152.7107,59.0042 152.777,59.0146 152.8035,59.0174 152.8297,59.0191 152.8702,59.0215 152.8961,59.0216 152.9474,59.0221 152.9852,59.0198 153.0124,59.072 153.046,59.1546 153.0768,59.1705 153.0967,59.1722 153.1656,59.1669 153.2378,59.1522 153.374,59.1193 153.4858,59.107 153.5097,59.1036 153.5316,59.0921 153.5494,59.0784 153.5713,59.0597 153.6018,59.0272 153.6295,59.007 153.737,58.9753 153.7558,58.9748 153.8697,59.0251 153.9041,59.0241 153.9454,59.0147 153.9694,59.0097 154.004,59.023 154.0594,59.0655 154.0303,59.1066 154.044,59.1318 154.1643,59.1492 154.2014,59.1452 154.2419,59.1279 154.2681,59.1071 154.3271,59.0767 154.362,59.0658 154.4546,59.0561 154.4552,59.0907 154.541,59.1187 154.624,59.1156 154.7097,59.1139 154.8116,59.1161 154.8522,59.133 154.8973,59.2906 154.859,59.3129 154.8351,59.3184 154.7943,59.3222 154.7346,59.3655 154.7146,59.389 154.6986,59.4088 154.6775,59.4215 154.6451,59.4218 154.6041,59.406 154.5598,59.3911 154.4728,59.411 154.4019,59.4459 154.1493,59.4772 154.1284,59.474 154.1433,59.4127 154.169,59.3903 154.1969,59.3784 154.2134,59.3616 154.1318,59.3513 154.0873,59.3946 154.0559,59.4171 154.0037,59.3727 153.9767,59.3705 153.9499,59.3709 153.8436,59.3823 153.8212,59.3917 153.7995,59.4099 153.7774,59.4417 153.7998,59.4626 153.899,59.5189 154.0089,59.5658 153.9525,59.6241 153.9385,59.652 153.934,59.6886 153.9341,59.7117 153.9417,59.8066 153.9627,59.8172 153.9835,59.8206 154.1022,59.8209 154.1775,59.8481 154.1927,59.8862 154.2051,59.9113 154.228,59.9553 154.241,59.9769 154.3329,60.0635 154.509,60.1993 154.5347,60.217 154.5705,60.2397 154.5886,60.2508 154.6064,60.2622 154.6249,60.2737 154.6531,60.2907 154.6736,60.3019 154.9279,60.4035 155.0777,60.4577 155.26,60.55 155.3478,60.5809 155.4164,60.5926 155.4895,60.621 155.6012,60.6884 155.5945,60.7159 155.6011,60.7547 155.6175,60.8132 155.6319,60.8331 155.6427,60.8417 155.6522,60.8505 155.7879,60.9386 156.0565,61.0846 156.1184,61.1074 156.1505,61.1175 156.2114,61.1307 156.2938,61.1444 156.3188,61.1391 156.3572,61.1353 156.3672,61.1534 156.3615,61.2478 156.3366,61.3235 156.3341,61.3467 156.36,61.4003 156.3953,61.459 156.4385,61.4591 156.4709,61.455 156.4976,61.4519 156.5263,61.454 156.5576,61.4612 156.5985,61.4762 156.678,61.527 156.7009,61.5509 156.7253,61.5747 156.8502,61.6175 156.8818,61.6248 156.9598,61.6408 157.0657,61.6778 157.1298,61.7106 157.1837,61.7278 157.221,61.7316 157.2624,61.7309 157.3072,61.7215 157.3337,61.7185 157.4998,61.7137 157.5897,61.7108 157.6264,61.7006 157.6465,61.6801 157.7179,61.6547 157.8052,61.6664 157.8967,61.6979 157.9309,61.7137 157.9478,61.7249 158.0008,61.7474 158.0646,61.7536 158.1067,61.7525 158.3127,61.7576 158.4278,61.7606 158.533,61.7822 158.5787,61.8132 158.5998,61.8202 158.6463,61.8279 158.7984,61.8459 158.8991,61.8481 158.9406,61.8466 159.0574,61.8147 159.0749,61.7839 159.1877,61.6066 159.2192,61.5899 159.2498,61.5964 159.2723,61.6067 159.3092,61.6185 159.4425,61.6441 159.5239,61.6377 159.5622,61.6528 159.6023,61.6946 159.6142,61.7196 159.6583,61.7505 159.7674,61.793 159.8856,61.8332 160.0136,61.875 160.0459,61.8718 160.0669,61.7093 160.0583,61.6904 159.8512,61.4447 159.7023,61.316 159.6365,61.2805 159.5487,61.2383 159.5304,61.1892 159.5686,61.1892 159.6074,61.1774 159.6354,61.0897 159.6415,61.0617 159.6345,61.0251 159.6092,60.9815 159.5985,60.963 159.5722,60.9463 159.516,60.9208 159.4955,60.9068 159.4768,60.8694 159.5536,60.8562 159.5665,60.8546 159.5708,60.8731 159.6297,60.9023 159.7916,60.9613 159.8664,60.9776 160.0266,60.9791 160.0861,60.9518 160.0236,60.8745 159.9822,60.8395 159.9324,60.8162 159.8623,60.7534 159.8993,60.7287 159.9207,60.7106 159.9191,60.6605 159.8787,60.6291 159.8307,60.5835 159.8357,60.5157 159.9036,60.5297 159.9587,60.5536 160.0063,60.5978 160.0945,60.6665 160.3719,60.7017 160.3992,60.6898 160.4202,60.6789 160.4541,60.6658 160.4911,60.6646 160.5047,60.7003 160.5198,60.7387 160.5825,60.8104 160.633,60.8395 160.729,60.8916 160.7589,60.8953 160.7915,60.9027 160.8219,60.912 160.8592,60.9266 161.0219,61.0135 161.0552,61.0357 161.0797,61.052 161.1097,61.0956 161.1602,61.1273 161.1855,61.136 161.2258,61.1357 161.2559,61.1262 161.3031,61.1622 161.4748,61.2677 161.5361,61.2778 161.5564,61.2758 161.63,61.303 161.7177,61.3459 161.9031,61.4644 162.0393,61.5575 162.0977,61.5984 162.1852,61.5924 162.1916,61.5915 162.2241,61.5865 162.2606,61.577 162.2822,61.5666 162.3064,61.5517 162.3472,61.5362 162.4316,61.5238 162.4493,61.5354 162.4401,61.5533 162.4139,61.5563 162.3882,61.5604 162.3593,61.5711 162.3281,61.5933 162.3412,61.618 162.3797,61.6263 162.4513,61.6387 162.4905,61.6454 162.5095,61.6449 162.4971,61.7364 162.4228,61.7525 162.4932,61.8059 162.3944,61.836 162.2888,61.9183 162.3171,61.9476 162.5277,61.9489 162.5558,62.0801 162.3035,62.1008 162.1789,62.1448 162.1724,62.1727 162.2712,62.2005 162.3259,62.1778 162.4434,62.2392 162.5824,62.2339 162.5994,62.2657 162.6719,62.2369 162.7752,62.2923 162.7846,62.379 162.792,62.4683 162.7027,62.5583 162.8325,62.6771 162.7234,62.6803 162.717,62.7127 162.6436,62.7659 162.648,62.8138 162.5767,62.8598 162.4768,62.8873 162.3099,62.9264 162.3621,63.0417 162.329,63.0773 162.439,63.1321 162.4869,63.1111 162.6456,63.1402 162.6224,63.1805 162.809,63.1926 162.9007,63.2711 162.7827,63.3113 162.7511,63.3578 162.7014,63.3726 162.7119,63.397 162.7968,63.4016 162.843,63.4408 162.9125,63.4353 163.0196,63.5129 163.0202,63.6418 162.8937,63.6658 162.8942,63.7235 162.8067,63.7415 162.7595,63.8311 162.849,63.8816 162.9461,63.8817 162.9193,63.9139 162.9731,63.9495 162.9312,64.0248 162.862,64.0368 162.8095,64.1408 162.9432,64.207 163.1741,64.1864 163.2421,64.2905 163.3395,64.3173 163.3714,64.3553 163.4733,64.3811 163.4008,64.405 163.3615,64.4868 163.2531,64.5023 163.1722,64.5566 163.2047,64.5857 163.1752,64.6251 163.2618,64.6789 163.1947,64.7036 163.0419,64.6565 162.8637,64.6522 162.741,64.6456 162.6304,64.6786 162.614,64.7307 162.4973,64.7537 162.3027,64.7341 162.1798,64.7757 161.9255,64.8026 161.8041,64.8412 161.8311,64.8714 161.7614,64.9045 161.7404,64.9636 161.6787,65.0194 161.5116,65.0507 161.4302,65.1033 161.3024,65.1423 161.223,65.1372 161.0336,65.163 160.8937,65.1401 160.6818,65.1388 160.5993,65.1557 160.3904,65.276 160.2357,65.3469 160.248,65.4213 160.1721,65.4717 160.0291,65.5139 159.838,65.5139 159.7467,65.5709 159.5571,65.6203 159.2176,65.6637 159.0446,65.7204 158.9089,65.7338 158.9407,65.8154 158.9111,65.8615 158.9811,65.9109 159.0421,65.9727 159.1184,66.0494 159.2587,66.1462 158.9782,66.2175 158.7552,66.2768 158.5547,66.3322 158.4264,66.4063 158.3695,66.4259 158.5009,66.4597 158.4917,66.5001 158.5382,66.5471 158.609,66.5686 158.6749,66.6125 158.717,66.7036 158.8046,66.7138 158.9182,66.7764 158.8761,66.8221 158.8637,66.8587 158.8157,66.877 158.7887,66.916 158.8213,66.9478 158.7072,67.0326 158.4735,67.0942 158.3622,67.0894 158.3267,67.1207 158.2118,67.14 158.2004,67.1677 157.9699,67.2342 157.8689,67.2512 157.7918,67.3207 157.9054,67.4229 157.7586,67.4571 157.6956,67.5245 157.8126,67.6804 157.9343,67.7212 158.1003,67.721 158.1535,67.7003 158.3586,67.7266 158.2663,67.8203 158.0795,67.8235 158.0662,67.9055 158.19,67.9244 158.253,67.9846 158.2549,68.0471 158.3614,68.0707 158.4892,68.1085 158.6509,68.1283 158.7318,68.1165 158.7875,68.13 158.8885,68.1151 158.9911,68.1499 159.1273,68.1774 159.19,68.1702 159.5234,68.2203 159.7073,68.2206 159.7424,68.189 159.8084,68.1898 159.8404,68.2592 160.026,68.2656 160.5075,68.2493 160.8306,68.2748 160.9921,68.2796 161.2326,68.3685 161.3437,68.3902 161.5843,68.3794 161.7255,68.3472 161.9785,68.3559 162.1699,68.3347 162.4001,68.2776 162.5294,68.3356 162.5949,68.4892 162.7598,68.568 162.709,68.6414 162.6124,68.6758 162.5915,68.7864 162.723,68.7685 162.8476,68.8522 162.7466,68.9118 162.5383,68.9804 162.5735,69.0347 162.4935,69.1016 162.7888,69.1705 162.6392,69.2514 162.5085,69.2954 162.5024,69.3611 162.3456,69.3957 162.413,69.4359 162.3098,69.5152 162.3623,69.549 162.346,69.5666 162.3064,69.578 162.2802,69.5832 162.2583,69.5875 162.2028,69.5881 162.1641,69.5874 162.1437,69.5856 162.0802,69.5796 162.0619,69.579 161.9724,69.5723 161.8835,69.5573 161.8302,69.5355 161.6669,69.4573 161.6268,69.4386 161.5823,69.4303 161.5528,69.4289 161.5219,69.4366 161.4894,69.442 161.462,69.4387 161.3206,69.3773 161.3017,69.3599 161.2616,69.3358 161.2126,69.3194 161.1068,69.2982 161.0882,69.2874 161.0759,69.1517 161.0798,69.1137 161.1052,69.0611 161.1353,69.0014 161.1596,68.9717 161.2012,68.9515 161.2228,68.9232 161.2332,68.8233 161.1962,68.808 161.1084,68.7747 160.9762,68.7025 160.9505,68.6496 160.9335,68.5887 160.8251,68.4959 160.7955,68.4732 160.7191,68.4452 160.6694,68.4369 160.6102,68.4303 160.5754,68.4315 160.498,68.4361 160.4238,68.4505 160.4222,68.4729 160.5325,68.4675 160.6629,68.4627 160.7255,68.4752 160.7517,68.4986 160.8686,68.6105 160.8633,68.6305 160.8733,68.6953 160.9378,68.76 160.9971,68.8071 161.018,68.8209 161.0408,68.8413 161.0572,68.8657 161.0669,68.8876 161.051,68.9061 161.0185,68.9218 160.9189,68.9555 160.8798,68.9636 160.8455,68.9661 160.7649,68.9683 160.6856,68.9832 160.6643,68.9908 160.6245,69.0256 160.645,69.0444 160.6802,69.0603 160.6984,69.078 160.6763,69.1836 160.6691,69.2105 160.6369,69.2761 160.6141,69.2974 160.593,69.312 160.5757,69.3691 160.5856,69.4204 160.6158,69.4561 160.6387,69.47 160.6518,69.4899 160.5719,69.5482 160.3395,69.5722 159.9415,69.6164 159.7862,69.6322 159.7452,69.6372 159.7004,69.6468 159.4581,69.711 159.383,69.7442 159.3374,69.8034 159.3514,69.8263 159.3594,69.832 159.3645,69.8379 159.3984,69.857 159.4306,69.8734 159.4653,69.8861 159.5258,69.986 159.4433,70.0119 159.4405,70.0456 159.6022,70.0432 159.7384,70.1526 159.747,70.1909 159.6772,70.3168 159.5347,70.4401 159.4509,70.5027 159.4157,70.5256 159.3202,70.5768 159.1497,70.6414 159.1038,70.6566 158.9192,70.717 158.8874,70.7262 158.791,70.7517 158.6838,70.7765 158.6034,70.7861 158.5514,70.7949 158.3972,70.8222 158.3461,70.8315 158.295,70.8415 158.0884,70.878 157.7407,70.9283 157.5431,70.9521 157.3008,70.9692 157.2442,70.9726 157.206,70.9745 156.957,70.9827 156.4608,70.9989 156.4122,70.9995 156.3624,70.9986 156.2821,70.996 156.2405,70.9927 156.1602,70.9901 155.9871,70.9938 155.8726,70.9987 155.7753,70.9994 155.5808,71.0009 155.4803,70.9965 155.459,70.9944 155.375,70.9849 155.146,70.96 155.1072,70.9603 155.0672,70.9593 154.7057,70.9414 154.6456,70.9377 154.5412,70.9271 154.4575,70.9176 154.3538,70.9066 154.1473,70.8864 154.0051,70.875 153.8699,70.8623 153.686,70.8251 153.4327,70.7837 153.3492,70.7722 153.2875,70.7818 153.1042,70.7842 152.9864,70.7799 152.965,70.7763 152.8882,70.7619 152.7381,70.7471 152.6555,70.7506 152.5201,70.7514 152.423,70.7498 152.2645,70.7399 152.1925,70.7447 151.951,70.7743 151.8787,70.7836 151.7737,70.8041 151.7319,70.8165 151.7021,70.8303 151.6806,70.8406 151.6261,70.8471 151.4988,70.8628 151.398,70.8724 151.3432,70.8787 151.3144,70.8907 151.4615,70.8843 151.5634,70.8763 151.65,70.8768 151.6708,70.8794 151.7884,70.9014 151.7845,70.9236 151.7605,70.9371 151.7211,70.9582 151.5476,71.0464 151.4552,71.0876 151.411,71.1246 151.3839,71.1487 151.2766,71.2017 151.1132,71.2468 151.0853,71.25 151.0077,71.2516 150.9305,71.2531 150.8375,71.2634 150.7629,71.284 150.6909,71.2976 150.6422,71.2978 150.5092,71.276 150.4703,71.2639 150.347,71.2176 150.3261,71.2062 150.2935,71.1891 150.2603,71.1843 150.2957,71.2478 150.3151,71.266 150.3454,71.2805 150.3817,71.2963 150.3278,71.2939 150.3064,71.2901 150.2781,71.2831 150.2413,71.2662 150.2182,71.2485 150.0531,71.1811 150.0093,71.1791 149.972,71.1829 149.952,71.1816 149.9306,71.1772 149.8877,71.1666 149.852,71.1559 149.8247,71.1417 149.8012,71.1271 149.7797,71.1216 149.7586,71.1176 149.7184,71.1143 149.6797,71.1137 149.7003,71.1306 149.7898,71.1603 149.8568,71.1811 149.9915,71.2151 150.0133,71.2206 150.0865,71.237 150.1073,71.2401 150.1473,71.2429 150.1737,71.25 150.3013,71.3455 150.3194,71.3885 150.2868,71.4105 150.2051,71.4212 149.9117,71.4241 149.892,71.4241 149.8519,71.4218 149.7913,71.4183 149.7712,71.4168 149.7294,71.4108 149.6245,71.3843 149.5602,71.3709 149.5189,71.3686 149.5212,71.3955 149.5985,71.4938 149.6205,71.504 149.6557,71.5038 149.6655,71.4748 149.7496,71.4924 149.613,71.5622 149.5204,71.5672 149.4492,71.5534 149.4212,71.5479 149.3422,71.5474 149.1922,71.5571 149.0781,71.5682 148.9278,71.5873 148.7644,71.6002 148.7357,71.5916 148.7043,71.5807 148.6522,71.5682 148.483,71.5772 148.506,71.6006 148.5596,71.6014 148.6172,71.5965 148.6496,71.6038 148.6895,71.6636 148.6288,71.666 148.5806,71.6696 148.5434,71.6757 148.4928,71.708 148.6066,71.6916 148.7476,71.67 148.7773,71.6704 148.8081,71.6809 148.8453,71.7134 148.8678,71.7313 148.9404,71.786 148.9875,71.8046 149.0192,71.809 149.0554,71.8002 149.2329,71.7039 149.284,71.674 149.3187,71.6664 149.3494,71.6681 149.3929,71.6777 149.6296,71.7367 149.6729,71.7535 149.7194,71.7887 149.71,71.8231 149.6929,71.8393 149.6651,71.8591 149.5792,71.9084 149.3664,72.02 149.1729,72.065 149.0486,72.0821 148.9917,72.0914 148.887,72.1129 148.8313,72.1263 148.6754,72.1418 148.5574,72.1513 148.3606,72.167 148.2648,72.1824 148.1988,72.1958 148.1504,72.2027 147.9141,72.2229 147.7936,72.227 147.5316,72.233 147.2072,72.2333 146.874,72.2317 146.8319,72.2268 146.7807,72.2179 146.7163,72.1918 146.376,72.0118 146.2027,71.918 146.1776,71.9023 145.984,71.794 145.8471,71.7379 145.7382,71.6958 145.4835,71.6516 145.33,71.6358 145.2723,71.6417 145.233,71.6426 145.2047,71.6376 145.1427,71.6144 145.0383,71.5767 145.0008,71.5648 144.9806,71.5629 144.9282,71.5845 144.8999,71.5907 144.7484,71.599 144.6469,71.6033 144.5829,71.5982 144.5552,71.629 144.5499,71.6754 144.5814,71.6852 144.6292,71.6788 144.6878,71.6754 144.7084,71.6782 144.852,71.717 144.8742,71.7441 144.772,71.7748 144.7429,71.7777 144.6971,71.7864 144.6172,71.8255 144.6266,71.87 144.6542,71.8753 144.8691,71.8245 144.9502,71.7926 144.9781,71.7747 145.0073,71.7711 145.1462,71.7927 145.3345,71.8101 145.3643,71.809 145.3844,71.8107 145.4049,71.814 145.4596,71.8315 145.4749,71.8604 145.4627,71.9101 145.4473,71.932 145.4115,71.9414 145.3668,71.9339 145.3332,71.9308 145.3111,71.9466 145.2744,71.986 145.3137,72.0147 145.3379,72.0322 145.3874,72.0742 145.3953,72.0927 145.3964,72.1182 145.3696,72.1201 145.3378,72.122 145.2762,72.1466 145.3454,72.1566 145.3755,72.155 145.4046,72.1502 145.4902,72.1287 145.5556,72.1065 145.6112,72.0367 145.611,72.0161 145.592,72.0045 145.608,71.9793 145.6412,71.9698 145.7142,72.0287 145.7061,72.0579 145.8586,72.0778 145.8877,72.074 145.9951,72.0289 145.9069,71.9886 145.8104,71.9542 145.7621,71.9368 145.7314,71.9332 145.6952,71.942 145.6526,71.9343 145.5925,71.7616 145.6228,71.7517 145.6434,71.756 145.6849,71.7706 145.7219,71.7941 145.7432,71.8092 145.8499,71.8557 145.9273,71.8783 145.993,71.9044 146.056,71.9309 146.083,71.9423 146.2761,72.0359 146.3363,72.0654 146.4777,72.1413 146.4992,72.1538 146.568,72.2034 146.3165,72.2089 146.1954,72.2111 146.1143,72.2109 146.0739,72.2105 146.0332,72.2103 145.7,72.2034 145.6388,72.2013 145.4753,72.1943 145.3322,72.1865 145.2496,72.1807 145.1886,72.1771 145.1271,72.1736 144.9031,72.1635 144.8425,72.1633 144.7823,72.1644 144.7419,72.1627 144.4756,72.1407 144.4344,72.1368 144.4136,72.1334 144.3718,72.1257 144.3314,72.1122 144.3136,72.1001 144.2925,72.085 144.2717,72.0792 144.1899,72.071 144.0896,72.0727 144.0404,72.0778 143.9538,72.1009 143.9344,72.106 143.8503,72.1345 143.801,72.1672 143.9412,72.1991 144.0355,72.1842 144.0808,72.1659 144.1926,72.1346 144.2461,72.1881 144.2655,72.2059 144.3437,72.2602 144.3895,72.29 144.4025,72.2953 144.1994,72.3167 144.0141,72.2257 143.6567,72.2278 143.5384,72.1042 143.3397,72.0482 143.1474,71.8847 142.9747,71.8006 142.9663,71.6993 142.6745,71.6065 142.4422,71.5512 142.5069,71.3937 142.3159,71.3074 142.5778,71.1476 141.9313,70.8782 141.598,70.778 141.6537,70.6533 141.5876,70.5488 140.9161,70.2967 141.074,70.1636 140.9119,70.089 141.0122,69.9764 141.5915,69.8684 142.2096,69.845 142.1092,69.638 142.3999,69.6156 142.4056,69.4551 142.6823,69.422 142.7507,69.2534 141.9302,69.2741 141.5262,69.1801 141.7117,68.9305 141.8055,68.7294 141.6656,68.6042 141.0636,68.48 141.0539,68.4164 141.219,68.2799 141.1361,68.1577 141.0375,68.0813 141.0668,67.8938 140.6587,67.9001 140.0657,67.9005 139.8727,67.7866 139.5992,67.68 139.2312,67.5755 138.792,67.5676 138.9286,67.4688 138.9752,67.3747 138.6964,67.2643 138.6978,67.2632 39,11.0,Russia 144.5807,72.3364 144.622,72.3382 144.6418,72.3368 144.8273,72.318 144.9069,72.2998 144.9256,72.2931 144.9583,72.2738 145.0637,72.2557 145.4476,72.2501 145.5895,72.2504 145.7516,72.2505 145.8724,72.2475 146.0967,72.2519 146.2362,72.2419 146.3153,72.2349 146.3956,72.2328 146.4572,72.236 146.489,72.2472 146.4051,72.2658 146.3659,72.2718 146.3261,72.2753 146.2871,72.2799 146.1787,72.2938 145.9758,72.3346 145.8777,72.3562 145.8481,72.3609 145.7092,72.3752 145.6693,72.3791 145.6289,72.3796 145.5682,72.3835 145.4692,72.3954 145.1806,72.4387 145.122,72.4498 144.9011,72.4689 144.7287,72.4785 144.6532,72.4137 144.621,72.3861 144.561,72.3346 144.5807,72.3364 692,1.0,Zaire 12.2161,-5.7952 12.2213,-5.8064 12.2513,-5.8581 12.4217,-6.0099 12.5106,-6.0001 12.6454,-5.9726 12.6998,-5.9438 12.7083,-5.9053 12.7437,-5.8542 12.8832,-5.8054 12.9601,-5.8208 12.9833,-5.8364 13.093,-5.8624 13.164,-5.8496 13.2299,-5.8545 13.3901,-5.8478 13.4432,-5.8419 13.4981,-5.8476 13.5258,-5.858 13.744,-5.8558 13.923,-5.8339 13.9575,-5.8298 13.9817,-5.8419 14.0645,-5.8597 14.2267,-5.8788 14.3253,-5.8865 14.5799,-5.9012 14.6956,-5.8738 14.7419,-5.8712 14.8344,-5.8659 15.0594,-5.8562 15.6685,-5.8505 15.7948,-5.8631 15.9103,-5.8545 16.0817,-5.8528 16.1248,-5.8497 16.1974,-5.8459 16.3011,-5.8453 16.3499,-5.8465 16.4956,-5.869 16.5608,-5.8942 16.5774,-5.9149 16.5866,-5.9749 16.5872,-6.0203 16.6665,-6.1299 16.6968,-6.1615 16.7063,-6.1905 16.6748,-6.3477 16.6696,-6.3977 16.6893,-6.4596 16.7638,-6.674 16.8151,-6.7846 16.8519,-6.8498 16.8841,-6.8558 16.9109,-6.8843 16.9505,-7.0099 16.9388,-7.0597 16.9159,-7.1045 16.9241,-7.1906 16.9753,-7.2891 17.0455,-7.3306 17.076,-7.3704 17.0862,-7.4139 17.1317,-7.4441 17.1675,-7.5044 17.2643,-7.6705 17.2899,-7.7472 17.3711,-7.8368 17.4004,-7.846 17.4187,-7.8676 17.4856,-7.9943 17.5059,-8.0445 17.5307,-8.0715 17.5356,-8.0737 17.6113,-8.0889 17.6404,-8.0834 17.7368,-8.0573 17.8696,-8.033 17.9022,-8.0373 17.9326,-8.0523 17.9568,-8.074 17.9848,-8.0977 18.0214,-8.0983 18.0951,-8.0977 18.0893,-8.072 18.0923,-8.0193 18.1756,-7.9877 18.3094,-7.9884 18.3829,-7.9999 18.505,-7.9798 18.4983,-7.9485 18.5062,-7.9281 18.7452,-7.9288 18.752,-7.9632 18.7708,-7.9897 18.9806,-7.9902 19.3512,-7.9841 19.3374,-7.926 19.3306,-7.9051 19.3278,-7.884 19.3394,-7.8039 19.3517,-7.7818 19.3657,-7.7542 19.3798,-7.6836 19.3598,-7.6108 19.3507,-7.5924 19.3532,-7.5705 19.3776,-7.5641 19.4464,-7.5604 19.5088,-7.4688 19.5062,-7.4266 19.4805,-7.3614 19.4682,-7.3079 19.4682,-7.2784 19.4768,-7.1711 19.4811,-7.1441 19.5171,-6.9887 19.9401,-6.9875 19.9661,-6.9874 19.9502,-6.8858 19.927,-6.8255 19.8202,-6.7001 19.7366,-6.5724 19.7088,-6.3982 19.6925,-6.1846 19.7018,-6.1474 19.9224,-5.9895 19.9595,-5.9919 20.0106,-5.9454 20.0524,-5.8618 20.1058,-5.8479 20.1151,-5.8015 20.1592,-5.769 20.1732,-5.6947 20.1801,-5.6273 20.1476,-5.5576 20.1453,-5.3556 20.1755,-5.3115 20.1755,-5.2836 20.2033,-5.2744 20.1917,-5.2372 20.1964,-5.1652 20.1731,-5.0677 20.136,-5.0282 20.1499,-5.0027 20.1012,-4.9261 20.0803,-4.7984 20.0547,-4.745 20.0547,-4.6846 20.071,-4.666 20.0594,-4.6103 20.0803,-4.5499 20.1058,-4.5337 20.1151,-4.4988 20.0896,-4.4733 20.0919,-4.4338 20.0408,-4.3642 20.0408,-4.2783 20.1267,-4.2713 20.1778,-4.334 20.2196,-4.3293 20.2451,-4.3804 20.2707,-4.3944 20.3078,-4.3827 20.345,-4.399 20.3682,-4.2992 20.41,-4.2736 20.4402,-4.2829 20.4541,-4.2528 20.5006,-4.2574 20.626,-4.1947 20.6399,-4.1552 20.6724,-4.1576 20.6794,-4.0902 20.6701,-4.0043 20.6724,-3.9695 20.6608,-3.8557 20.6654,-3.7118 20.6446,-3.5585 20.6446,-3.4982 20.6469,-3.3681 20.6585,-3.3078 20.7746,-2.985 20.8675,-2.7876 20.9325,-2.7273 20.965,-2.6646 20.9534,-2.5903 21.0045,-2.4904 21.0788,-2.4997 21.2134,-2.5137 21.362,-2.4835 21.4526,-2.4719 21.4665,-2.3372 21.5524,-2.3627 21.6035,-2.4138 21.643,-2.4185 21.6801,-2.451 21.7591,-2.4835 21.831,-2.5253 21.9004,-2.4963 21.9571,-2.4077 22.0598,-2.3723 22.1378,-2.273 22.1839,-2.2943 22.2016,-2.3404 22.1839,-2.4361 22.2477,-2.4679 22.3008,-2.4254 22.2866,-2.3439 22.2299,-2.1809 22.2158,-2.071 22.1662,-1.9364 22.1874,-1.9045 22.3114,-1.9364 22.4178,-1.9506 22.5241,-1.9541 22.6339,-1.8053 22.6765,-1.7982 22.7721,-1.862 22.8288,-1.862 22.9351,-1.9576 23.0379,-1.9222 23.1371,-1.9612 23.2222,-2.0817 23.2824,-2.0462 23.5801,-2.0037 23.6935,-2.0179 23.69,-1.9435 23.7786,-1.9187 23.7786,-1.8017 23.8388,-1.7627 24.0018,-1.7769 24.0373,-1.7344 24.2782,-1.7769 24.4235,-1.784 24.4205,-1.7498 24.3775,-1.5332 24.3346,-1.4739 24.2999,-1.386 24.1343,-1.3901 24.0546,-1.3656 23.9197,-1.2838 23.8278,-1.1939 23.7685,-1.1796 23.7522,-1.104 23.5355,-0.9834 23.3557,-0.8056 23.4947,-0.6952 23.5866,-0.6728 23.6316,-0.6339 23.556,-0.5747 23.464,-0.4316 23.2535,-0.497 23.229,-0.4316 22.9735,-0.405 23.1452,-0.2783 23.2923,-0.3192 23.3291,-0.2804 23.4027,-0.2599 23.4089,-0.2047 23.2842,-0.031 23.2699,0.0078 23.1166,0.1917 23.0819,0.2817 22.9981,0.3737 22.947,0.4799 22.9327,0.5862 22.855,0.6823 22.855,0.8069 22.8182,0.8907 22.8203,0.9888 22.7753,1.0501 22.7549,1.091 22.7304,1.1727 22.6772,1.232 22.6527,1.3178 22.5832,1.3934 22.4872,1.465 22.3891,1.4977 22.2889,1.5018 22.3257,1.5733 22.4279,1.6367 22.4831,1.7082 22.4954,1.8145 22.5097,1.9044 22.5894,2.0495 22.569,2.1027 22.5894,2.1272 22.6589,2.1047 22.6936,2.0352 22.7304,2.0291 22.7467,2.0107 22.8305,2.0312 22.8837,2.0679 22.8837,2.0986 22.9143,2.0945 22.9409,2.1252 22.9327,2.1436 22.9695,2.1558 22.9797,2.1906 23.0615,2.1027 23.1085,2.0945 23.3456,2.2539 23.5275,2.2192 23.5765,2.1926 23.6297,2.1783 23.6542,2.1947 23.6317,2.3337 23.411,2.4624 23.3844,2.5013 23.3477,2.5319 23.3027,2.534 23.129,2.4992 23.0513,2.5381 22.9573,2.6668 23.0064,2.767 22.9777,2.8467 23.0247,2.91 23.0268,2.9754 23.0656,3.049 23.084,3.1512 23.0329,3.1696 22.9757,3.143 22.9062,3.0613 22.8285,2.9857 22.7856,3.0347 22.7795,3.1144 22.8061,3.2268 22.7816,3.2779 22.7141,3.3004 22.6365,3.325 22.6222,3.3781 22.6692,3.4517 22.8613,3.5048 22.9226,3.5477 22.9819,3.5334 23.0411,3.5477 23.1699,3.6806 23.2333,3.6356 23.3048,3.6397 23.3436,3.609 23.3947,3.6356 23.4335,3.6969 23.4806,3.7255 23.5173,3.8236 23.4806,3.8155 23.4029,3.8339 23.3702,3.8073 23.2108,3.8727 23.1433,3.8952 23.0411,3.8604 22.9941,3.8788 22.894,3.8522 22.7652,3.9033 22.7632,3.9933 22.6896,3.9912 22.5547,4.1057 22.5016,4.1159 22.4607,4.1486 22.4486,4.1561 22.4281,4.14 22.3961,4.1299 22.3611,4.1237 22.3213,4.1228 22.2603,4.1251 22.2269,4.1319 22.188,4.1439 22.168,4.1511 22.126,4.1718 22.0943,4.1995 22.0725,4.2111 22.0125,4.2206 21.9621,4.2416 21.8063,4.2608 21.7121,4.291 21.6306,4.2944 21.6061,4.2879 21.5726,4.2674 21.5519,4.2506 21.5238,4.2417 21.4894,4.2425 21.1847,4.2841 21.1396,4.3007 21.0795,4.3457 21.0541,4.3845 21.0106,4.4041 20.9462,4.4275 20.8502,4.4404 20.8118,4.4441 20.692,4.4219 20.5765,4.403 20.5487,4.4125 20.4535,4.4938 20.4302,4.5187 20.4348,4.6144 20.316,4.7623 20.1553,4.867 19.9795,4.9717 19.9553,4.9783 19.9289,4.9789 19.9046,4.9817 19.8786,4.9896 19.8578,5.0063 19.8356,5.0563 19.8189,5.0791 19.7901,5.0943 19.7376,5.1128 19.6782,5.1309 19.6268,5.1372 19.5349,5.145 19.394,5.1253 19.2061,4.9943 19.1861,4.9637 19.1637,4.9388 19.0845,4.9269 19.0636,4.9093 19.0423,4.8842 19.0069,4.8099 18.9665,4.7353 18.9341,4.707 18.8181,4.5726 18.801,4.5388 18.7825,4.4799 18.7726,4.4554 18.75,4.4106 18.7305,4.3857 18.7117,4.3741 18.6865,4.3623 18.6078,4.3493 18.57,4.3651 18.5462,4.3569 18.5233,4.3354 18.5148,4.3068 18.5226,4.2838 18.5464,4.2563 18.5714,4.2241 18.6094,4.1301 18.623,4.0496 18.6262,4.0229 18.6271,3.9886 18.6223,3.9628 18.5895,3.8627 18.5741,3.765 18.5699,3.7218 18.5717,3.6968 18.5774,3.6622 18.5977,3.5455 18.6038,3.4757 18.6112,3.4497 18.6225,3.315 18.621,3.2042 18.5949,3.1346 18.5773,3.1152 18.5588,3.0998 18.5384,3.0862 18.5202,3.073 18.4494,2.9126 18.3925,2.7733 18.3623,2.6989 18.3222,2.6098 18.2966,2.5746 18.2799,2.561 18.254,2.5463 18.2167,2.519 18.2069,2.4877 18.2068,2.4552 18.2032,2.4134 18.1864,2.3859 18.142,2.3249 18.1067,2.2994 18.0901,2.278 18.0716,2.2202 18.0549,2.0646 18.0523,2.0344 18.0452,1.873 18.0529,1.755 18.0577,1.7271 18.0585,1.6672 18.0557,1.5615 18.0501,1.5271 17.9589,1.2444 17.9326,1.1727 17.9188,1.1385 17.9055,1.1141 17.8791,1.0792 17.865,1.0518 17.8576,1.0289 17.8537,0.9915 17.8556,0.9694 17.8618,0.9323 17.8695,0.8983 17.8792,0.8623 17.8859,0.8282 17.8876,0.7954 17.8836,0.7416 17.8698,0.6869 17.875,0.5996 17.902,0.5571 17.9467,0.4746 17.9484,0.4526 17.9411,0.3994 17.9361,0.3695 17.926,0.3423 17.9113,0.3229 17.8927,0.3009 17.8532,0.2575 17.82,0.2186 17.7823,0.1435 17.7768,0.1193 17.7504,0.0185 17.7234,-0.0639 17.7062,-0.1144 17.6958,-0.1419 17.6904,-0.1738 17.6893,-0.2034 17.6902,-0.2266 17.6957,-0.2589 17.7169,-0.3164 17.7226,-0.3384 17.7262,-0.3759 17.7216,-0.4127 17.7165,-0.4489 17.7023,-0.5094 17.6923,-0.5438 17.6778,-0.574 17.6619,-0.6028 17.5988,-0.694 17.5387,-0.7626 17.5293,-0.7785 17.3783,-0.94 17.3036,-1.003 17.2793,-1.0192 17.2521,-1.0331 17.2295,-1.0382 17.1934,-1.0433 17.1401,-1.0528 17.1028,-1.067 16.9493,-1.1525 16.9276,-1.1721 16.8597,-1.2351 16.8431,-1.253 16.7826,-1.3227 16.7319,-1.4092 16.7199,-1.4316 16.7011,-1.4677 16.6923,-1.4872 16.6594,-1.5708 16.6529,-1.5893 16.6509,-1.597 16.6384,-1.6378 16.6089,-1.6842 16.585,-1.7224 16.5256,-1.8282 16.5143,-1.8511 16.51,-1.8601 16.4951,-1.88 16.4439,-1.935 16.389,-1.9857 16.3493,-2.0214 16.3191,-2.0464 16.2517,-2.0883 16.2259,-2.1106 16.1888,-2.1564 16.176,-2.1784 16.169,-2.2114 16.1659,-2.2433 16.1657,-2.3041 16.1681,-2.3562 16.1701,-2.3919 16.1975,-2.5243 16.1958,-2.699 16.1898,-2.7204 16.1847,-2.7497 16.1644,-2.8752 16.1639,-2.9084 16.1681,-2.9319 16.1694,-2.9386 16.1778,-2.9971 16.1751,-3.0923 16.1705,-3.1298 16.1786,-3.2602 16.2004,-3.2797 16.209,-3.2987 16.2086,-3.3243 16.2009,-3.3444 16.1691,-3.41 16.1103,-3.5175 16.0879,-3.5565 16.0662,-3.5836 16.0403,-3.6024 15.961,-3.7621 15.9064,-3.8804 15.8725,-3.9383 15.8624,-3.9463 15.8443,-3.9558 15.8181,-3.9673 15.7501,-3.9815 15.6744,-3.9907 15.5669,-4.0274 15.5467,-4.0345 15.5179,-4.0536 15.503,-4.0735 15.4987,-4.0917 15.4684,-4.1354 15.4658,-4.1483 15.4707,-4.1723 15.4683,-4.2126 15.4506,-4.2468 15.434,-4.268 15.3986,-4.2908 15.3738,-4.2853 15.3341,-4.2765 15.3153,-4.2733 15.3109,-4.2722 15.2669,-4.2907 15.2556,-4.3017 15.201,-4.329 15.1791,-4.3487 15.1323,-4.4186 15.1165,-4.4448 15.0753,-4.4969 15.0554,-4.5147 14.9984,-4.5542 14.9098,-4.6446 14.8941,-4.6641 14.8762,-4.6946 14.8584,-4.7324 14.8152,-4.8134 14.6896,-4.8869 14.6525,-4.9014 14.6223,-4.9015 14.5698,-4.8791 14.5461,-4.856 14.4718,-4.8352 14.4024,-4.8817 14.398,-4.8682 14.3955,-4.8216 14.4026,-4.751 14.3674,-4.6198 14.3511,-4.5499 14.3771,-4.5192 14.4008,-4.5088 14.4299,-4.4832 14.4604,-4.4512 14.4708,-4.4241 14.3895,-4.2779 14.3558,-4.2784 14.2853,-4.3032 13.9924,-4.4481 13.9445,-4.4896 13.8899,-4.4843 13.8346,-4.4341 13.7996,-4.4166 13.7674,-4.4188 13.7147,-4.4431 13.7134,-4.4713 13.7242,-4.5052 13.7254,-4.5307 13.724,-4.5568 13.6841,-4.7204 13.5849,-4.7761 13.5637,-4.7737 13.5283,-4.7477 13.4884,-4.7697 13.4996,-4.7878 13.397,-4.877 13.1781,-4.6764 13.1684,-4.6521 13.1608,-4.6254 13.1272,-4.5803 13.1046,-4.5681 13.0802,-4.5735 13.0731,-4.6142 13.0766,-4.6278 13.0779,-4.6408 13.0629,-4.6646 13.0276,-4.6631 12.8423,-4.7096 12.8059,-4.732 12.6978,-4.8723 12.6951,-4.9017 12.5928,-4.9923 12.5581,-5.0161 12.518,-5.11 12.5211,-5.2674 12.5125,-5.7176 12.4707,-5.7185 12.3532,-5.724 12.2608,-5.73 12.2161,-5.7484 12.2007,-5.762 12.2161,-5.7952 263,-5.0,Brazil -73.9185,-7.5474 -73.8905,-7.5657 -73.8489,-7.6005 -73.7823,-7.6666 -73.7687,-7.6909 -73.7588,-7.7085 -73.7384,-7.7227 -73.6687,-7.7479 -73.6412,-7.7556 -73.6238,-7.7676 -73.6107,-7.7943 -73.6154,-7.8372 -73.6426,-7.8704 -73.6939,-7.864 -73.6888,-7.9391 -73.6732,-7.9579 -73.627,-7.9746 -73.569,-8.0076 -73.513,-8.1122 -73.474,-8.2399 -73.4588,-8.2933 -73.4509,-8.3429 -73.3964,-8.3892 -73.3224,-8.441 -73.2638,-8.5924 -73.1915,-8.6645 -73.1592,-8.6695 -73.134,-8.6763 -73.1021,-8.69 -73.0851,-8.7044 -73.0709,-8.725 -73.0603,-8.7523 -73.0513,-8.7804 -73.0404,-8.7976 -72.9777,-8.8923 -72.9244,-8.9202 -72.8811,-8.9781 -72.87,-9.0357 -72.867,-9.0562 -72.8682,-9.0799 -72.8744,-9.1089 -72.8854,-9.1325 -72.9428,-9.2105 -73.0385,-9.3028 -73.077,-9.3338 -73.1018,-9.3545 -73.1197,-9.3902 -72.9001,-9.4002 -72.7814,-9.4013 -72.7602,-9.4008 -72.6497,-9.4025 -72.5266,-9.4355 -72.3222,-9.4727 -72.2916,-9.4817 -72.2219,-9.5222 -72.1729,-9.6461 -72.178,-9.6817 -72.1899,-9.7195 -72.1808,-9.7479 -72.1469,-9.7668 -72.1009,-9.7921 -72.0855,-9.8236 -72.0717,-9.8756 -72.0893,-9.9429 -72.1068,-9.9912 -72.0649,-9.9934 -71.9732,-9.9934 -71.9315,-9.9932 -71.9001,-9.9929 -71.8516,-9.9929 -71.5633,-9.9932 -71.3808,-9.9926 -71.29,-9.9923 -71.2184,-9.9841 -71.1025,-9.9209 -71.0808,-9.8789 -71.0606,-9.8524 -70.9358,-9.8096 -70.9071,-9.7856 -70.8914,-9.7528 -70.8038,-9.6588 -70.7657,-9.6346 -70.7011,-9.5947 -70.5653,-9.48 -70.5105,-9.4302 -70.4901,-9.4229 -70.4369,-9.4172 -70.4674,-9.4899 -70.4993,-9.5278 -70.5296,-9.5646 -70.5131,-9.6205 -70.5177,-9.7703 -70.5349,-9.7877 -70.548,-9.8149 -70.5512,-9.8847 -70.5513,-9.937 -70.5518,-10.0576 -70.5517,-10.1749 -70.5518,-10.3268 -70.5526,-10.5966 -70.5532,-10.7693 -70.554,-10.9007 -70.554,-10.9626 -70.5533,-10.9967 -70.504,-10.9586 -70.4487,-10.9234 -70.4216,-10.9409 -70.3934,-10.9687 -70.3792,-10.9891 -70.3588,-11.0143 -70.3248,-11.0328 -70.275,-11.0537 -70.2514,-11.0567 -70.149,-11.0401 -70.0977,-11.025 -70.0769,-11.0174 -69.9745,-10.9667 -69.9226,-10.9343 -69.8923,-10.9162 -69.8727,-10.9074 -69.8488,-10.9015 -69.7032,-10.9124 -69.6611,-10.9493 -69.6117,-10.9462 -69.5893,-10.941 -69.5095,-10.9378 -69.4909,-10.9381 -69.4637,-10.9398 -69.4103,-10.9385 -69.371,-10.9351 -69.3356,-10.9252 -69.1465,-10.9384 -68.9998,-10.9547 -68.7727,-11.0036 -68.6908,-11.1243 -68.6245,-11.1222 -68.5789,-11.1117 -68.5451,-11.1037 -68.5005,-11.0906 -68.4767,-11.0764 -68.4471,-11.0469 -68.327,-11.0053 -68.2687,-10.9945 -68.2376,-10.9842 -68.2054,-10.9673 -68.1551,-10.8994 -68.0497,-10.747 -68.0439,-10.7198 -68.0268,-10.6929 -68.0071,-10.6783 -67.986,-10.6644 -67.9428,-10.6481 -67.7913,-10.6449 -67.762,-10.647 -67.7429,-10.6532 -67.7126,-10.6719 -67.6678,-10.7008 -67.6286,-10.6825 -67.6005,-10.6078 -67.5354,-10.5182 -67.5082,-10.4924 -67.455,-10.4692 -67.4351,-10.461 -67.3755,-10.4297 -67.2527,-10.3471 -67.2492,-10.3119 -67.2262,-10.3049 -67.1515,-10.3002 -67.1093,-10.3119 -67.0033,-10.257 -66.9727,-10.232 -66.8974,-10.1607 -66.8767,-10.1397 -66.852,-10.1116 -66.8204,-10.08 -66.687,-9.9795 -66.6592,-9.9655 -66.6205,-9.9519 -66.5863,-9.9371 -66.5823,-9.9328 -66.8272,-9.8355 -70.1877,-4.3067 -70.4116,-4.169 -70.4196,-4.1749 -70.5039,-4.1906 -70.5454,-4.1558 -70.682,-4.1428 -70.7298,-4.1657 -70.7514,-4.1822 -70.7881,-4.2462 -70.7917,-4.2752 -70.8753,-4.377 -70.9558,-4.377 -70.984,-4.358 -71.0883,-4.3526 -71.2045,-4.376 -71.3008,-4.4256 -71.5689,-4.5036 -71.6447,-4.4879 -71.6654,-4.4852 -71.7999,-4.5056 -71.8203,-4.5128 -71.9458,-4.6071 -72.0468,-4.6881 -72.1525,-4.748 -72.1711,-4.756 -72.1967,-4.7582 -72.2184,-4.7514 -72.2427,-4.7552 -72.2925,-4.7787 -72.3068,-4.8 -72.3079,-4.8328 -72.3206,-4.8687 -72.3939,-4.9352 -72.5345,-5.0143 -72.6733,-5.0712 -72.7033,-5.0828 -72.7687,-5.1189 -72.8152,-5.1667 -72.8348,-5.3154 -72.878,-5.4461 -72.8809,-5.4709 -72.869,-5.5039 -72.8593,-5.5309 -72.8786,-5.6422 -72.9054,-5.7052 -72.9647,-5.7854 -72.9987,-5.8205 -73.0469,-5.8698 -73.1222,-6.0107 -73.1347,-6.0384 -73.1461,-6.0866 -73.142,-6.1143 -73.135,-6.1391 -73.0829,-6.2329 -73.0353,-6.3743 -73.0369,-6.4108 -73.0408,-6.4398 -73.0619,-6.4816 -73.0777,-6.508 -73.1027,-6.5397 -73.1332,-6.5592 -73.1932,-6.5674 -73.2154,-6.5667 -73.2518,-6.5669 -73.2776,-6.5743 -73.5041,-6.7272 -73.5929,-6.7968 -73.6603,-6.869 -73.6708,-6.8864 -73.7161,-7.0729 -73.7114,-7.1145 -73.6919,-7.129 -73.6367,-7.2147 -73.6223,-7.3008 -73.6547,-7.3254 -73.8476,-7.3506 -73.8471,-7.4343 -73.8788,-7.5188 -73.9037,-7.5202 -73.9185,-7.5218 -73.921,-7.5458 -73.9185,-7.5474 1614,-4.0,Brazil -70.3934,-4.1802 -70.1877,-4.3067 -66.8272,-9.8355 -66.5823,-9.9328 -66.5693,-9.9188 -66.5673,-9.907 -66.5572,-9.8946 -66.4725,-9.8768 -66.4063,-9.8704 -66.364,-9.8772 -66.3104,-9.8556 -66.1021,-9.786 -66.0049,-9.7646 -65.8994,-9.7685 -65.7716,-9.7668 -65.7199,-9.7639 -65.6734,-9.7596 -65.5337,-9.8238 -65.4973,-9.8238 -65.4438,-9.7629 -65.4401,-9.7302 -65.4202,-9.708 -65.3701,-9.6682 -65.3349,-9.6752 -65.3051,-9.6921 -65.2699,-9.7513 -65.2302,-9.831 -65.2508,-9.8922 -65.2646,-9.9359 -65.2588,-10.0323 -65.2415,-10.0637 -65.232,-10.0895 -65.217,-10.1837 -65.2174,-10.206 -65.2396,-10.2772 -65.2529,-10.2951 -65.2761,-10.3138 -65.3064,-10.3432 -65.317,-10.3606 -65.3241,-10.3816 -65.3194,-10.4018 -65.3303,-10.4304 -65.3702,-10.4617 -65.366,-10.6068 -65.3181,-10.7435 -65.257,-10.8397 -65.2439,-10.8686 -65.2306,-10.9729 -65.271,-11.0455 -65.3214,-11.1369 -65.3295,-11.1569 -65.3185,-11.2617 -65.2761,-11.3919 -65.2378,-11.481 -65.2173,-11.4921 -65.1692,-11.4928 -65.1506,-11.5057 -65.0972,-11.6014 -65.1158,-11.6431 -65.1285,-11.6724 -65.1365,-11.6983 -65.119,-11.7386 -65.0771,-11.7586 -65.046,-11.6856 -64.9898,-11.7414 -64.971,-11.7964 -64.9631,-11.8682 -64.9444,-11.9564 -64.9357,-11.9758 -64.9119,-11.9974 -64.8238,-12.0096 -64.7634,-12.0097 -64.7374,-12.0151 -64.7188,-12.028 -64.6909,-12.084 -64.6661,-12.1362 -64.5452,-12.197 -64.4442,-12.2284 -64.4246,-12.3521 -64.3489,-12.427 -64.3269,-12.4441 -64.3007,-12.4543 -64.2212,-12.4678 -64.1666,-12.4651 -64.1044,-12.4714 -63.9675,-12.5036 -63.9478,-12.5229 -63.8561,-12.5329 -63.8267,-12.5143 -63.7987,-12.4799 -63.7606,-12.46 -63.7256,-12.4458 -63.6002,-12.4563 -63.3998,-12.5561 -63.3929,-12.5815 -63.3441,-12.6397 -63.3232,-12.654 -63.2535,-12.6897 -63.1757,-12.6915 -63.1447,-12.6667 -63.0923,-12.6346 -63.0623,-12.6216 -62.9959,-12.6456 -62.9911,-12.6835 -62.9778,-12.7329 -62.9228,-12.8246 -62.9024,-12.8383 -62.8256,-12.8858 -62.7728,-12.9276 -62.6983,-12.9909 -62.6172,-12.954 -62.5747,-12.9924 -62.5743,-13.0176 -62.3482,-13.1178 -62.3138,-13.1308 -62.26,-13.1328 -62.1977,-13.1261 -62.1737,-13.1119 -62.1431,-13.1062 -62.0431,-13.1386 -62.039,-13.1684 -62.0148,-13.2564 -61.9318,-13.347 -61.9023,-13.3604 -61.8736,-13.3808 -61.8035,-13.4386 -61.7977,-13.4656 -61.7693,-13.5232 -61.7391,-13.5333 -61.6592,-13.5217 -61.5457,-13.4976 -61.5228,-13.4918 -61.5069,-13.5105 -61.4506,-13.5352 -61.4221,-13.538 -61.1913,-13.5077 -60.9692,-13.4778 -60.9341,-13.5254 -60.8877,-13.5675 -60.7215,-13.6639 -60.7009,-13.6679 -60.6746,-13.6668 -60.6055,-13.7229 -60.5135,-13.7529 -60.4071,-13.7879 -60.3147,-13.9715 -60.3306,-14.0139 -60.3558,-14.0512 -60.3948,-14.086 -60.4118,-14.1518 -60.3801,-14.2749 -60.3568,-14.3082 -60.2758,-14.4669 -60.2102,-14.6067 -60.2052,-14.69 -60.1931,-14.8967 -60.1885,-15.0197 -60.1872,-15.0765 -60.2207,-15.0774 -60.3129,-15.0753 -60.4993,-15.0805 -60.3677,-15.224 -60.1553,-15.4609 -60.1121,-15.9624 -60.0878,-16.2445 -60.0346,-16.2473 -59.9333,-16.2517 -59.4613,-16.2707 -59.4183,-16.2723 -58.902,-16.2924 -58.4715,-16.3082 -58.3688,-16.3114 -58.3449,-16.3014 -58.3304,-16.2873 -58.3188,-16.2646 -58.2573,-16.2608 -58.2557,-16.2881 -58.2544,-16.3777 -58.2763,-16.4873 -58.2917,-16.507 -58.3273,-16.5345 -58.3489,-16.5547 -58.3613,-16.5712 -58.3976,-16.6252 -58.4054,-16.6558 -58.4058,-16.7026 -58.3928,-16.8814 -58.3883,-16.9053 -58.3746,-16.9334 -58.3645,-16.9516 -58.354,-16.9906 -58.3367,-17.0928 -58.3361,-17.119 -58.3388,-17.1712 -58.3325,-17.207 -58.3197,-17.2402 -58.3004,-17.2593 -58.2807,-17.2675 -58.2513,-17.2734 -58.2241,-17.2803 -58.1796,-17.3067 -58.0501,-17.3931 -58.0386,-17.4193 -58.0215,-17.4357 -57.9463,-17.4779 -57.9132,-17.4807 -57.8315,-17.4423 -57.8108,-17.4572 -57.7179,-17.5336 -57.6756,-17.574 -57.6957,-17.5928 -57.7095,-17.6177 -57.6893,-17.667 -57.6593,-17.7007 -57.6475,-17.7077 -57.6482,-17.7185 -57.6511,-17.7547 -57.6487,-17.8249 -57.5118,-18.0755 -57.4514,-18.1835 -57.4824,-18.2263 -57.4933,-18.2542 -57.5569,-18.4473 -57.6998,-18.8849 -57.6529,-18.8924 -57.6466,-18.9132 -57.6343,-19.022 -57.7065,-19.0258 -57.7167,-19.0465 -57.751,-19.1154 -57.7846,-19.1848 -57.8901,-19.3992 -58.0165,-19.655 -58.0502,-19.7191 -58.0324,-19.738 -57.7812,-19.9529 -57.8305,-20.0065 -58.039,-20.1265 -58.0879,-20.1452 -58.0851,-20.2059 -58.066,-20.256 -58.0263,-20.3184 -57.9882,-20.3782 -57.9381,-20.4904 -57.9251,-20.5948 -57.897,-20.6867 -57.8651,-20.6483 -57.8382,-20.6532 -57.7887,-20.7112 -57.7858,-20.8149 -57.7437,-20.9551 -57.7817,-21.3174 -57.8081,-21.3563 -57.8445,-21.405 -57.8614,-21.4373 -57.8831,-21.4898 -57.8665,-21.6121 -57.8551,-21.6321 -57.8645,-21.7475 -57.8918,-21.9474 -57.9126,-22.0009 -57.9155,-22.0358 -57.9134,-22.0669 -57.8573,-22.0927 -57.8206,-22.1042 -57.7536,-22.1191 -57.7205,-22.1043 -57.6963,-22.0882 -57.5687,-22.0963 -57.5382,-22.15 -57.3037,-22.1927 -57.2611,-22.1931 -57.1687,-22.1874 -57.1271,-22.182 -57.0827,-22.1787 -56.9184,-22.2077 -56.8072,-22.2489 -56.7383,-22.2396 -56.6992,-22.2228 -56.688,-22.2162 -56.6279,-22.1911 -56.6079,-22.2086 -56.5643,-22.2268 -56.5042,-22.1644 -56.4862,-22.1417 -56.4763,-22.1194 -56.4565,-22.0905 -56.4256,-22.0635 -56.3871,-22.0509 -56.3269,-22.0437 -56.3013,-22.1012 -56.2912,-22.1328 -56.2597,-22.1616 -56.2395,-22.1781 -56.1336,-22.2496 -56.0988,-22.2588 -56.0163,-22.2669 -55.9773,-22.2532 -55.9197,-22.2481 -55.7808,-22.2638 -55.6755,-22.3724 -55.6721,-22.395 -55.6719,-22.4284 -55.6708,-22.4526 -55.6652,-22.5009 -55.6581,-22.5209 -55.6404,-22.5484 -55.6208,-22.5658 -55.5952,-22.5816 -55.5573,-22.5952 -55.5404,-22.6131 -55.5409,-22.7086 -55.5637,-22.7517 -55.5792,-22.7893 -55.576,-22.8323 -55.5374,-22.9943 -55.5146,-23.0593 -55.4802,-23.1112 -55.4803,-23.2809 -55.4743,-23.3069 -55.433,-23.3535 -55.4657,-23.4327 -55.4515,-23.5787 -55.4357,-23.5976 -55.4157,-23.6114 -55.3935,-23.6349 -55.3729,-23.6758 -55.3637,-23.7236 -55.3583,-23.776 -55.3512,-23.8513 -55.3509,-23.8977 -55.3425,-23.9273 -55.3273,-23.9439 -55.3019,-23.9575 -55.2779,-23.9656 -55.1273,-23.9924 -55.1056,-23.9934 -55.0812,-23.9893 -54.9623,-23.9673 -54.8559,-23.9384 -54.8339,-23.922 -54.8127,-23.8941 -54.5574,-23.7779 -54.4712,-23.8206 -54.3391,-23.8898 -54.2203,-23.993 -54.1882,-24.0171 -54.1584,-23.9958 -54.0908,-23.9637 -54.0712,-23.9227 -54.0676,-23.8693 -54.064,-23.807 -54.0533,-23.7517 -54.0355,-23.7232 -54.0338,-23.7001 -54.0035,-23.6181 -54.007,-23.5879 -53.9892,-23.5505 -53.9857,-23.5148 -53.9732,-23.4899 -53.9732,-23.4685 -53.9643,-23.44 -53.9251,-23.4132 -53.8806,-23.4097 -53.8271,-23.3741 -53.7737,-23.3491 -53.7309,-23.3153 -53.6989,-23.2618 -53.6989,-23.2244 -53.6721,-23.171 -53.6365,-23.1104 -53.6347,-23.0695 -53.6365,-23.0036 -53.6205,-22.984 -53.5831,-22.9002 -53.5546,-22.8717 -53.4922,-22.8361 -53.3497,-22.7791 -53.1546,-22.7039 -53.0768,-22.5915 -53.0011,-22.5244 -52.893,-22.4531 -52.7827,-22.3774 -52.6767,-22.3039 -52.5124,-22.226 -52.4064,-22.146 -52.3394,-22.0465 -52.294,-21.9622 -52.2399,-21.919 -52.1707,-21.8541 -52.1707,-21.8303 -52.1448,-21.7784 -52.0756,-21.7308 -52.0474,-21.7113 -52.0518,-21.6919 -52.0366,-21.653 -52.0518,-21.6357 -52.0712,-21.5773 -52.0929,-21.5643 -52.0842,-21.5405 -52.0518,-21.5016 -51.9999,-21.5081 -51.9653,-21.4951 -51.9134,-21.4064 -51.8723,-21.3545 -51.8485,-21.268 -51.8723,-21.1967 -51.8615,-21.1361 -51.8031,-21.1015 -51.775,-21.0604 -51.7425,-20.9977 -51.7079,-20.9696 -51.6301,-20.8918 -51.6301,-20.8225 -51.6214,-20.7425 -51.6084,-20.6841 -51.5782,-20.5955 -51.5133,-20.5803 -51.4614,-20.5371 -51.3943,-20.4484 -51.3338,-20.3706 -51.2321,-20.3014 -51.1781,-20.3057 -51.1002,-20.2733 -51.0591,-20.256 -51.0332,-20.2257 -51.0224,-20.1543 -51.0072,-20.0916 -51.0072,-20.044 -50.9878,-20.0051 -50.9964,-19.9532 -50.9834,-19.9056 -51.0051,-19.8602 -51.0072,-19.8126 -51.0224,-19.7672 -51.0202,-19.7045 -50.9921,-19.6396 -50.9791,-19.5683 -50.9488,-19.5726 -50.9337,-19.5488 -50.9618,-19.5012 -50.9575,-19.4645 -50.9232,-19.4584 -50.9408,-19.4145 -51.0088,-19.375 -51.1294,-19.2807 -51.1755,-19.2939 -51.2238,-19.2653 -51.2852,-19.2675 -51.3466,-19.2215 -51.4212,-19.16 -51.5485,-19.1381 -51.6625,-19.1271 -51.7942,-19.0657 -51.8359,-19.0547 -51.8775,-18.9998 -51.9412,-18.9757 -51.9938,-18.9757 -52.0662,-18.9362 -52.1167,-18.8726 -52.268,-18.8134 -52.3338,-18.8222 -52.4786,-18.7081 -52.641,-18.7212 -52.7594,-18.7081 -52.8911,-18.6664 -52.8296,-18.5194 -52.7529,-18.4119 -52.9064,-18.3439 -52.9964,-18.3922 -53.0578,-18.3066 -53.0403,-18.1289 -53.0556,-18.0148 -53.1148,-17.8898 -53.1241,-17.8051 -53.117,-17.7587 -53.128,-17.7114 -53.1264,-17.6721 -53.1375,-17.654 -53.1706,-17.5957 -53.1918,-17.5784 -53.1973,-17.5571 -53.2186,-17.5366 -53.2257,-17.5091 -53.2241,-17.4768 -53.2194,-17.4287 -53.2005,-17.3831 -53.1911,-17.3689 -53.195,-17.3405 -53.1958,-17.3201 -53.2045,-17.2988 -53.1824,-17.2452 -53.1541,-17.2248 -53.1509,-17.2043 -53.1226,-17.1578 -53.0966,-17.1334 -53.0839,-17.0987 -53.0595,-17.079 -53.0516,-17.0632 -53.0414,-17.0569 -53.0343,-17.0152 -53.039,-17.0002 -53.0115,-16.8908 -53.0146,-16.8671 -52.9697,-16.8199 -52.8918,-16.7852 -52.8272,-16.7592 -52.7138,-16.6529 -52.6933,-16.5781 -52.6374,-16.5395 -52.624,-16.4521 -52.6099,-16.4001 -52.5752,-16.3379 -52.5343,-16.3016 -52.4957,-16.2851 -52.4587,-16.2835 -52.4366,-16.2725 -52.4264,-16.2315 -52.4437,-16.2134 -52.4484,-16.1874 -52.4539,-16.1481 -52.4405,-16.0953 -52.4106,-16.0748 -52.3783,-16.0646 -52.3587,-16.0488 -52.3461,-16.0504 -52.3311,-16.0449 -52.3035,-15.9866 -52.2838,-15.9583 -52.2681,-15.948 -52.2547,-15.9236 -52.2413,-15.8779 -52.2201,-15.8787 -52.1893,-15.8724 -52.1563,-15.8748 -52.1216,-15.8795 -52.0822,-15.8716 -52.0499,-15.8771 -52.0294,-15.8732 -52.0208,-15.8614 -52.0019,-15.8559 -51.9924,-15.8386 -51.9767,-15.8338 -51.9704,-15.8094 -51.9617,-15.8 -51.9389,-15.8 -51.9074,-15.822 -51.8759,-15.8015 -51.8609,-15.7653 -51.8302,-15.7259 -51.8042,-15.6621 -51.783,-15.6362 -51.7742,-15.6038 -51.7789,-15.581 -51.7915,-15.544 -51.7845,-15.5314 -51.7624,-15.5416 -51.7467,-15.5353 -51.7388,-15.5022 -51.7152,-15.4936 -51.7018,-15.481 -51.7002,-15.4542 -51.6963,-15.4101 -51.686,-15.3936 -51.6742,-15.3565 -51.6844,-15.3337 -51.6718,-15.2872 -51.6506,-15.2762 -51.6466,-15.2589 -51.6641,-15.232 -51.6373,-15.1745 -51.6089,-15.1627 -51.583,-15.1501 -51.5672,-15.1226 -51.5452,-15.1115 -51.5263,-15.0753 -51.5144,-15.0564 -51.4664,-15.0477 -51.4357,-15.0194 -51.4129,-14.9973 -51.3877,-14.995 -51.353,-14.9895 -51.3278,-14.9627 -51.3097,-14.9666 -51.3034,-14.991 -51.2963,-15.0162 -51.2625,-15.0233 -51.2239,-14.9973 -51.1924,-14.9808 -51.1601,-14.9769 -51.1381,-14.9162 -51.1058,-14.8965 -51.0963,-14.8839 -51.0947,-14.8327 -51.0719,-14.806 -51.06,-14.7863 -51.0663,-14.7351 -51.0419,-14.7044 -51.0372,-14.6548 -51.0136,-14.6351 -50.9868,-14.5744 -50.9868,-14.554 -50.9679,-14.5335 -50.9687,-14.5004 -50.9671,-14.4799 -50.9876,-14.439 -51.0009,-14.4059 -50.9931,-14.3862 -50.9899,-14.3469 -50.971,-14.3225 -50.9742,-14.2917 -50.9624,-14.2311 -50.9372,-14.1917 -50.9175,-14.1586 -50.9167,-14.1453 -50.9261,-14.1224 -50.9214,-14.113 -50.9025,-14.1177 -50.8757,-14.1114 -50.8474,-14.0925 -50.8427,-14.0673 -50.8592,-14.0452 -50.8568,-14.0043 -50.8671,-13.9665 -50.8553,-13.9358 -50.8466,-13.9027 -50.8435,-13.8712 -50.8608,-13.8145 -50.86,-13.7491 -50.8711,-13.7176 -50.8262,-13.7019 -50.7884,-13.6672 -50.7805,-13.6334 -50.7647,-13.5932 -50.764,-13.5664 -50.7592,-13.5404 -50.7387,-13.5152 -50.719,-13.4979 -50.6915,-13.4593 -50.6694,-13.4467 -50.6631,-13.4286 -50.6639,-13.3948 -50.6017,-13.3137 -50.5812,-13.2711 -50.567,-13.2215 -50.5828,-13.1939 -50.5796,-13.1585 -50.5725,-13.1286 -50.578,-13.0994 -50.5906,-13.079 -50.5757,-13.0632 -50.5489,-13.0506 -50.5536,-13.0317 -50.567,-13.0254 -50.5662,-13.0152 -50.5143,-12.9845 -50.4954,-12.9333 -50.4765,-12.875 -50.4812,-12.8428 -50.5315,-12.846 -50.5688,-12.8265 -50.5574,-12.8022 -50.5818,-12.8022 -50.6012,-12.8103 -50.598,-12.7795 -50.6126,-12.7649 -50.6093,-12.7455 -50.6223,-12.6919 -50.6239,-12.6562 -50.6677,-12.6433 -50.6742,-12.6206 -50.6694,-12.6011 -50.658,-12.6076 -50.6531,-12.5768 -50.6417,-12.5281 -50.6336,-12.4762 -50.6369,-12.4519 -50.6174,-12.447 -50.6109,-12.4308 -50.6158,-12.3903 -50.6304,-12.3189 -50.6174,-12.2881 -50.632,-12.2686 -50.6417,-12.2297 -50.6596,-12.2281 -50.6742,-12.2005 -50.6742,-12.0837 -50.6823,-12.0529 -50.6823,-11.9978 -50.658,-11.9799 -50.6531,-11.9507 -50.6677,-11.9394 -50.6645,-11.9199 -50.645,-11.915 -50.645,-11.8794 -50.6791,-11.8729 -50.6758,-11.8372 -50.6936,-11.8097 -50.692,-11.7756 -50.7131,-11.7513 -50.7099,-11.714 -50.6596,-11.6702 -50.6482,-11.6021 -50.6596,-11.5842 -50.7147,-11.5599 -50.7212,-11.5404 -50.7374,-11.5226 -50.7439,-11.4918 -50.7423,-11.4658 -50.7261,-11.4026 -50.6953,-11.3004 -50.6758,-11.2647 -50.658,-11.2404 -50.6564,-11.2225 -50.6693,-11.1593 -50.6434,-11.1009 -50.6223,-11.0912 -50.6093,-11.0668 -50.6126,-11.0247 -50.6207,-11.0149 -50.6207,-10.989 -50.6385,-10.9436 -50.6369,-10.9225 -50.611,-10.8803 -50.6288,-10.8333 -50.6207,-10.8073 -50.598,-10.7911 -50.5834,-10.7538 -50.5866,-10.7084 -50.6077,-10.6581 -50.5915,-10.6452 -50.5769,-10.6176 -50.5493,-10.6095 -50.5412,-10.5884 -50.5282,-10.5706 -50.5218,-10.5284 -50.5039,-10.4992 -50.4958,-10.4489 -50.4812,-10.3889 -50.4325,-10.3662 -50.4196,-10.337 -50.405,-10.2754 -50.3904,-10.2283 -50.3936,-10.1521 -50.3774,-10.1051 -50.3352,-10.0661 -50.2901,-9.9967 -50.2901,-9.962 -50.2727,-9.903 -50.2324,-9.8458 -51.3471,-9.7876 -52.1618,-9.7447 -52.6334,-9.7171 -52.6273,-9.6957 -52.6211,-9.662 -52.6089,-9.6467 -52.5936,-9.6467 -52.5783,-9.5916 -52.5384,-9.5793 -52.5017,-9.5946 -52.4803,-9.5916 -52.4435,-9.613 -52.4037,-9.6345 -52.3271,-9.6436 -52.2843,-9.6559 -52.2353,-9.6467 -52.1893,-9.6008 -52.1954,-9.5732 -52.174,-9.515 -52.1709,-9.4538 -52.1495,-9.4293 -52.125,-9.4139 -52.1127,-9.3772 -52.0913,-9.3404 -52.0117,-9.2669 -52.0239,-9.2394 -52.0454,-9.221 -52.0484,-9.1873 -52.076,-9.1444 -52.0362,-9.074 -52.0576,-8.9974 -52.0882,-8.9729 -52.0974,-8.9209 -52.1648,-8.8872 -52.2076,-8.8382 -52.2811,-8.8075 -52.2689,-8.7095 -52.3056,-8.6881 -52.3087,-8.636 -52.3822,-8.5779 -52.4373,-8.5625 -52.4955,-8.5625 -52.5629,-8.5411 -52.5782,-8.4921 -52.615,-8.4523 -52.6732,-8.4339 -52.6456,-8.3359 -52.6517,-8.2257 -52.6762,-8.2073 -52.713,-8.1185 -52.7344,-8.0327 -52.7926,-7.9378 -52.811,-7.8643 -52.814,-7.8367 -52.7865,-7.8152 -52.7803,-7.7478 -52.7558,-7.6437 -52.7068,-7.5763 -52.6732,-7.5733 -52.6487,-7.5457 -52.6732,-7.5212 -52.6946,-7.4875 -52.6946,-7.4355 -52.6088,-7.3344 -52.5874,-7.316 -52.5813,-7.267 -52.5874,-7.2272 -52.5782,-7.1813 -52.5323,-7.1139 -52.5047,-7.1139 -52.4618,-7.0833 -52.4465,-7.0067 -52.4006,-6.9761 -52.3271,-6.9546 -52.2352,-6.9516 -52.1801,-6.9546 -52.0821,-6.924 -52.0025,-6.8199 -52.0025,-6.7831 -51.9871,-6.7127 -52.0086,-6.6606 -52.0362,-6.627 -52.0904,-6.5617 -52.1768,-6.5833 -52.2416,-6.5761 -52.2632,-6.5113 -52.3568,-6.3889 -52.4288,-6.3601 -52.4216,-6.2017 -52.5224,-6.0721 -52.5296,-5.8777 -52.6304,-5.7049 -52.6952,-5.4745 -52.8536,-5.4025 -52.8824,-5.1937 -52.9328,-5.0209 -52.8248,-4.8841 -52.8176,-4.8049 -52.724,-4.6825 -52.6592,-4.4449 -52.7528,-4.3873 -52.724,-4.2433 -52.6232,-4.1569 -52.6016,-3.9697 -52.6016,-3.8617 -52.4648,-3.7609 -52.3513,-3.666 -52.314,-3.5779 -52.2327,-3.5101 -52.2225,-3.4322 -52.1853,-3.4322 -52.1548,-3.3441 -52.1683,-3.2527 -52.1345,-3.2324 -52.0904,-3.2764 -52.0464,-3.2899 -52.0362,-3.334 -51.982,-3.3746 -51.9414,-3.4187 -51.9515,-3.5101 -51.921,-3.5576 -51.8397,-3.6084 -51.7381,-3.5406 -51.6771,-3.4559 -51.7076,-3.395 -51.7483,-3.3577 -51.6975,-3.3374 -51.6297,-3.273 -51.6229,-3.2086 -51.6162,-3.1443 -51.7212,-3.1104 -51.8126,-3.0867 -51.8364,-3.0393 -51.877,-2.958 -51.9448,-2.8699 -52.0227,-2.8089 -52.0362,-2.6971 -51.9888,-2.6429 -52.0053,-2.5386 -52.1324,-2.3085 -52.2354,-2.036 -52.2838,-1.7089 -52.2912,-1.5424 -52.463,-1.5712 -52.6476,-1.6011 -52.6506,-1.5637 -52.5783,-1.5332 -52.5515,-1.5254 -52.5111,-1.5267 -52.4087,-1.48 -52.385,-1.4453 -52.1688,-1.3432 -52.1269,-1.3526 -52.1058,-1.373 -52.0798,-1.3975 -51.9386,-1.3395 -51.9053,-1.1517 -51.9793,-1.1353 -51.9898,-1.1588 -52.0072,-1.1684 -52.0273,-1.1649 -52.0552,-1.178 -52.0517,-1.2068 -52.0613,-1.2173 -52.0822,-1.2129 -52.0927,-1.1754 -52.111,-1.158 -52.1371,-1.1519 -52.2121,-1.1475 -52.2557,-1.1414 -52.2845,-1.1205 -52.3185,-1.0847 -52.3481,-1.0734 -52.3673,-1.0664 -52.3708,-1.0464 -52.3769,-1.0281 -52.3769,-0.9984 -52.3943,-0.9679 -52.3821,-0.9444 -52.3682,-0.9243 -52.3716,-0.9016 -52.3917,-0.8746 -52.4231,-0.8598 -52.451,-0.8668 -52.5085,-0.8824 -52.5216,-0.8694 -52.5103,-0.8293 -52.5207,-0.7987 -52.5146,-0.7796 -52.5059,-0.7386 -52.5225,-0.6941 -52.5216,-0.661 -52.5303,-0.6357 -52.5469,-0.6165 -52.5739,-0.6165 -52.6018,-0.6139 -52.6149,-0.5991 -52.6298,-0.5669 -52.6376,-0.5355 -52.6359,-0.5067 -52.6271,-0.4901 -52.6263,-0.3968 -52.6324,-0.3803 -52.6603,-0.3646 -52.6856,-0.3488 -52.6917,-0.3183 -52.7083,-0.2913 -52.7405,-0.2573 -52.7867,-0.2207 -52.7893,-0.2015 -52.8094,-0.1849 -52.8199,-0.1753 -52.8713,-0.2041 -52.9245,-0.1884 -52.9315,-0.157 -52.9437,-0.1353 -52.955,-0.0934 -52.9698,-0.0472 -52.9716,-0.015 -52.9829,-0.0071 -53.0047,0.0129 -53.0161,0.0347 -53.0161,0.0565 -53.0082,0.0914 -53.0056,0.1141 -53.0099,0.1489 -53.023,0.1768 -53.0335,0.2012 -53.0387,0.2248 -53.0466,0.2579 -53.0736,0.2754 -53.091,0.2972 -53.1041,0.3373 -53.1268,0.3826 -53.132,0.4 -53.1294,0.4707 -53.1407,0.5291 -53.1294,0.5788 -53.1294,0.6163 -53.1102,0.6825 -53.111,0.7069 -53.1163,0.7427 -53.1294,0.7505 -53.2139,0.7662 -53.2741,0.7854 -53.3099,0.8159 -53.3299,0.8464 -53.3526,0.8891 -53.3875,0.91 -53.3962,0.924 -53.4188,0.9379 -53.4249,0.9981 -53.4415,1.0155 -53.4311,1.0426 -53.4607,1.0993 -53.4668,1.1403 -53.4616,1.169 -53.4389,1.1708 -53.4119,1.1777 -53.4058,1.1873 -53.4101,1.2039 -53.4215,1.2135 -53.4284,1.2475 -53.445,1.2649 -53.4973,1.2545 -53.5357,1.2414 -53.5505,1.244 -53.5496,1.2562 -53.5418,1.2763 -53.5427,1.2911 -53.5636,1.3094 -53.5645,1.3242 -53.5636,1.3338 -53.5479,1.3469 -53.5549,1.3687 -53.5758,1.3643 -53.5906,1.373 -53.6054,1.3757 -53.6325,1.3704 -53.6525,1.3608 -53.6612,1.3678 -53.663,1.3861 -53.6595,1.414 -53.6639,1.4297 -53.6761,1.4297 -53.69,1.4114 -53.7118,1.4132 -53.7266,1.4227 -53.7118,1.4288 -53.7136,1.4367 -53.7301,1.4393 -53.7423,1.4341 -53.7406,1.4123 -53.7537,1.3905 -53.7676,1.3966 -53.7763,1.4123 -53.8042,1.4079 -53.8201,1.4135 -53.8211,1.4138 -53.8263,1.3853 -53.8635,1.3853 -53.8521,1.4024 -53.8978,1.4024 -53.8892,1.4224 -53.9169,1.4474 -53.9178,1.4482 -53.9321,1.4625 -53.9521,1.4853 -53.975,1.4911 -53.9779,1.5196 -54.0151,1.5196 -54.0379,1.5054 -54.067,1.5009 -54.0688,1.5006 -54.0751,1.4996 -54.0791,1.5042 -54.08,1.5053 -54.0923,1.5196 -54.0808,1.5482 -54.1123,1.5797 -54.0951,1.6083 -54.1294,1.6111 -54.178,1.6683 -54.1895,1.6455 -54.2867,1.7227 -54.3668,1.7627 -54.4983,1.7513 -54.5898,1.7856 -54.6899,1.7627 -54.7429,1.7613 -54.7628,1.9868 -54.8092,2.0133 -54.7429,2.0863 -54.796,2.1791 -54.7495,2.199 -54.7031,2.2985 -54.7363,2.3913 -54.7615,2.4346 -54.7857,2.4333 -54.8071,2.4392 -54.9075,2.5479 -55.0298,2.5321 -55.0497,2.5243 -55.4407,2.4361 -55.6508,2.3977 -55.801,2.4687 -55.8231,2.4943 -55.8545,2.5178 -55.8786,2.5277 -55.8994,2.5302 -55.9193,2.5193 -55.9372,2.4482 -56.0213,2.3551 -56.0527,2.2469 -55.9731,2.2066 -55.8408,2.0455 -55.8388,1.8991 -55.8795,1.8541 -55.9027,1.8433 -55.933,1.8357 -55.9646,1.8343 -56.0051,1.8437 -56.05,1.8618 -56.1385,1.8896 -56.2634,1.9233 -56.3628,1.932 -56.407,1.9424 -56.462,1.9204 -56.5141,1.9196 -56.5311,1.93 -56.5646,1.9374 -56.6709,1.9119 -56.688,1.895 -56.7066,1.8735 -56.8097,1.8898 -56.9395,1.9209 -56.9865,1.95 -56.9966,1.9821 -57.0101,2.0135 -57.0357,2.0207 -57.0986,1.9945 -57.1346,1.9692 -57.1708,1.9476 -57.2122,1.9772 -57.2337,1.9799 -57.2672,1.9701 -57.3608,1.8992 -57.3632,1.8694 -57.3863,1.8092 -57.4478,1.729 -57.4633,1.7139 -57.4945,1.6981 -57.5685,1.6911 -57.5886,1.695 -57.6226,1.7058 -57.6575,1.7155 -57.6946,1.716 -57.8108,1.6633 -57.9071,1.6118 -57.9175,1.5706 -57.9418,1.5139 -58.0623,1.5161 -58.2027,1.5688 -58.2316,1.5811 -58.3217,1.4763 -58.4364,1.453 -58.4035,1.3571 -58.4018,1.3362 -58.4094,1.3128 -58.4539,1.2684 -58.5067,1.2738 -58.6271,1.2833 -58.643,1.2614 -58.6569,1.231 -58.6857,1.2083 -58.7447,1.1857 -58.7704,1.1889 -58.8036,1.2038 -58.8323,1.2298 -58.8311,1.2606 -58.8588,1.298 -58.8913,1.3132 -58.9065,1.3183 -59.0382,1.3433 -59.1773,1.385 -59.3476,1.5615 -59.4165,1.6487 -59.4404,1.6856 -59.5385,1.7177 -59.5788,1.7332 -59.6083,1.7652 -59.5863,1.8003 -59.5653,1.8403 -59.659,1.8522 -59.6816,1.8596 -59.6889,1.907 -59.6762,2.0705 -59.6596,2.2388 -59.6683,2.2821 -59.7256,2.2953 -59.7824,2.3279 -59.8257,2.3614 -59.834,2.3819 -59.8212,2.4046 -59.8251,2.4516 -59.8581,2.5648 -59.8866,2.6135 -59.9208,2.6852 -59.915,2.8571 -59.9109,2.8959 -59.8951,3.0227 -59.8818,3.0687 -59.8368,3.2005 -59.8021,3.2727 -59.7882,3.2943 -59.7677,3.3185 -59.743,3.3559 -59.7467,3.495 -59.7639,3.5205 -59.7182,3.6165 -59.5976,3.7074 -59.5008,3.895 -59.514,3.9946 -59.6407,4.1662 -59.6542,4.1868 -59.6629,4.2147 -59.6629,4.2888 -59.6071,4.3684 -59.6064,4.3804 -59.6489,4.4094 -59.7228,4.4514 -59.8734,4.5031 -59.8993,4.4968 -59.9769,4.4891 -60.062,4.5049 -60.0797,4.5151 -60.0834,4.5685 -60.0552,4.5915 -60.0227,4.5955 -60.0033,4.6132 -59.9572,4.7019 -59.9518,4.7292 -59.9373,4.8316 -59.9145,5.017 -59.9453,5.1042 -60.0122,5.1558 -60.0132,5.1672 -60.0296,5.2113 -60.0457,5.2398 -60.1333,5.2667 -60.1809,5.2526 -60.1994,5.2296 -60.2488,5.1918 -60.4771,5.1858 -60.5043,5.1915 -60.5282,5.2064 -60.6198,5.2102 -60.661,5.1991 -60.6416,5.1973 -60.6155,5.1914 -60.5859,5.1758 -60.5747,5.1531 -60.5129,4.983 -60.5092,4.9471 -60.523,4.9195 -60.5797,4.8374 -60.6063,4.8087 -60.6509,4.7707 -60.7692,4.7132 -60.7973,4.7082 -60.8168,4.7044 -60.8551,4.6328 -60.8604,4.5868 -60.8822,4.552 -60.8987,4.5335 -60.9175,4.5142 -60.9829,4.5028 -61.094,4.4895 -61.2436,4.5018 -61.4222,4.4017 -61.4372,4.3859 -61.4425,4.357 -61.4372,4.3227 -61.4407,4.2986 -61.4541,4.27 -61.4842,4.244 -61.5549,4.2397 -61.5924,4.2505 -61.629,4.2544 -61.6925,4.2383 -61.7202,4.2112 -61.741,4.1801 -61.7785,4.1561 -61.8443,4.1423 -61.8815,4.1524 -61.9168,4.165 -61.9827,4.1454 -62.0087,4.1205 -62.0341,4.0995 -62.0719,4.0889 -62.1103,4.0952 -62.1499,4.1081 -62.1916,4.1225 -62.2106,4.1317 -62.25,4.148 -62.3211,4.1748 -62.3691,4.178 -62.4686,4.1077 -62.5328,4.0376 -62.5985,4.0425 -62.657,4.0341 -62.6862,4.0159 -62.709,3.9043 -62.7059,3.8781 -62.6869,3.8304 -62.6688,3.7865 -62.6562,3.7272 -62.6559,3.7013 -62.6627,3.6726 -62.6802,3.6345 -62.7101,3.6002 -62.8069,3.5562 -62.8318,3.5591 -62.8522,3.5632 -62.919,3.6002 -63.0925,3.7911 -63.1705,3.8937 -63.2221,3.9352 -63.2635,3.9538 -63.2872,3.9613 -63.3104,3.9663 -63.3469,3.9627 -63.3615,3.9374 -63.3668,3.9108 -63.3734,3.8859 -63.3862,3.8621 -63.4192,3.8537 -63.4578,3.8631 -63.4757,3.8765 -63.5012,3.9053 -63.5167,3.9241 -63.542,3.9404 -63.572,3.9441 -63.7754,3.9547 -63.8362,3.9287 -63.8678,3.9005 -63.8836,3.887 -63.9216,3.8788 -63.9451,3.8819 -63.98,3.9042 -63.9919,3.9508 -64.0147,4.0282 -64.0361,4.0783 -64.0535,4.1049 -64.148,4.1365 -64.1759,4.1436 -64.2624,4.1496 -64.3064,4.1489 -64.3289,4.1447 -64.3571,4.1353 -64.3941,4.1295 -64.4793,4.1177 -64.5185,4.1231 -64.5343,4.1406 -64.5684,4.2191 -64.5784,4.2347 -64.6012,4.2528 -64.6192,4.2624 -64.6506,4.2766 -64.6723,4.2827 -64.7078,4.2815 -64.726,4.2603 -64.7283,4.2061 -64.7121,4.1811 -64.6603,4.1565 -64.6396,4.1395 -64.6311,4.1142 -64.6208,4.0776 -64.5875,4.0122 -64.5686,3.9799 -64.5531,3.9612 -64.4446,3.8501 -64.3731,3.783 -64.3323,3.7632 -64.2926,3.7466 -64.2352,3.7142 -64.1172,3.5857 -64.1095,3.5456 -64.112,3.524 -64.1208,3.4974 -64.1517,3.4633 -64.163,3.4291 -64.1538,3.3338 -64.1325,3.1898 -64.0864,3.0575 -64.0734,3.0365 -64.0164,2.9376 -63.9622,2.8298 -63.9155,2.7157 -63.9232,2.6204 -63.9449,2.5713 -63.9588,2.5469 -63.9743,2.5068 -63.9616,2.4685 -63.7497,2.4232 -63.7101,2.4246 -63.5098,2.4319 -63.294,2.4172 -63.275,2.4035 -63.2893,2.2567 -63.3085,2.2266 -63.3281,2.1473 -63.4169,2.1281 -63.4738,2.1277 -63.5355,2.1038 -63.6467,2.0213 -63.6675,2.0009 -63.7533,1.9755 -63.8645,1.9746 -63.8985,1.9651 -63.9302,1.9476 -63.9581,1.9225 -63.9799,1.8885 -63.9802,1.839 -63.9777,1.805 -63.9906,1.6793 -64.0058,1.6337 -64.0411,1.5813 -64.1921,1.4744 -64.2934,1.5058 -64.3218,1.5104 -64.457,1.4322 -64.4764,1.4136 -64.4906,1.39 -64.5065,1.3482 -64.5227,1.3287 -64.6247,1.2615 -64.6588,1.2457 -64.6843,1.2429 -64.7103,1.2585 -64.7462,1.2783 -64.8702,1.2094 -64.9337,1.1648 -65.0309,1.141 -65.0629,1.1172 -65.0735,1.0967 -65.0806,1.0544 -65.0811,1.0341 -65.0875,0.9882 -65.0926,0.9685 -65.1006,0.9491 -65.1192,0.9258 -65.1545,0.914 -65.1798,0.9143 -65.2183,0.9255 -65.2484,0.9111 -65.3125,0.8362 -65.3217,0.8179 -65.3249,0.7881 -65.3268,0.7532 -65.3628,0.6944 -65.4121,0.6611 -65.4482,0.6485 -65.4686,0.6511 -65.4848,0.6656 -65.5021,0.6957 -65.509,0.7291 -65.4937,0.764 -65.4536,0.8057 -65.4374,0.838 -65.4335,0.8709 -65.4366,0.9011 -65.4486,0.926 -65.4661,0.9491 -65.4856,0.9703 -65.5217,0.9896 -65.5833,0.9886 -65.6615,0.9816 -65.797,0.9074 -65.8388,0.8709 -65.8549,0.8531 -65.8812,0.8176 -65.9056,0.798 -66.0528,0.7334 -66.2127,0.7472 -66.2404,0.7506 -66.2634,0.7651 -66.7121,1.1481 -66.7952,1.2197 -66.8101,1.2198 -66.9575,1.1811 -66.9998,1.1713 -67.0089,1.1926 -67.0125,1.2652 -67.0122,1.2851 -67.0052,1.3839 -66.9983,1.4129 -66.9882,1.4367 -66.9816,1.5187 -66.9956,1.6187 -67.0382,1.733 -67.0853,1.8167 -67.131,1.8738 -67.1524,1.8896 -67.1889,1.945 -67.2331,2.0304 -67.2439,2.0609 -67.2495,2.0863 -67.2638,2.1107 -67.3468,2.1405 -67.4299,2.1045 -67.4899,2.0649 -67.5097,2.0508 -67.59,1.9714 -67.6008,1.9347 -67.6112,1.9174 -67.6946,1.8167 -67.7352,1.7824 -67.7963,1.7534 -67.8384,1.7434 -67.8655,1.7406 -67.8914,1.7439 -67.9142,1.752 -67.9336,1.7665 -67.9589,1.7996 -67.9889,1.8515 -67.9985,1.8701 -68.0117,1.9252 -68.0282,1.9499 -68.0475,1.9618 -68.0976,1.9754 -68.1196,1.9754 -68.1498,1.9317 -68.1603,1.9078 -68.1803,1.8506 -68.1559,1.7738 -68.1349,1.7698 -68.1059,1.7648 -68.0764,1.7224 -68.7515,1.7244 -69.0253,1.7256 -69.1619,1.7261 -69.2945,1.7262 -69.3221,1.7426 -69.381,1.7584 -69.4756,1.782 -69.6221,1.7436 -69.7063,1.7057 -69.7676,1.7087 -69.7635,1.6962 -69.7639,1.0712 -69.6401,1.0714 -69.5353,1.0769 -69.3571,1.0374 -69.299,1.0556 -69.2606,1.072 -69.1872,1.0329 -69.15,0.9979 -69.0626,0.8628 -69.0817,0.7522 -69.0502,0.6435 -69.1321,0.6157 -69.2098,0.6224 -69.2511,0.6559 -69.3813,0.736 -69.6053,0.6767 -69.6715,0.6334 -69.7172,0.6009 -69.8441,0.5973 -69.905,0.5973 -69.966,0.5844 -69.9676,0.5109 -69.9696,0.3681 -69.9708,0.3066 -69.974,0.1436 -69.9771,3.0E-4 -69.9788,-0.0876 -69.9795,-0.157 -69.9429,-0.203 -69.855,-0.3039 -69.6612,-0.4551 -69.6387,-0.4604 -69.6103,-0.4661 -69.5524,-0.4935 -69.5285,-0.5192 -69.4955,-0.6342 -69.5045,-0.6671 -69.518,-0.6994 -69.5371,-0.7233 -69.5346,-0.7549 -69.4396,-0.9323 -69.4028,-0.9539 -69.3562,-0.9999 -69.364,-1.0164 -69.3535,-1.0395 -69.3339,-1.1306 -69.3121,-1.2444 -69.3004,-1.3364 -69.3129,-1.3796 -69.3745,-1.5242 -69.4443,-1.912 -69.5159,-2.3084 -69.5291,-2.3836 -69.5474,-2.4792 -69.5567,-2.5313 -69.7141,-3.4153 -69.8027,-3.9155 -69.8638,-4.2075 -69.8771,-4.2321 -69.8706,-4.2574 -69.881,-4.2783 -69.9,-4.3074 -69.9373,-4.3329 -70.1177,-4.3277 -70.1756,-4.2862 -70.2214,-4.245 -70.2285,-4.2253 -70.2181,-4.1942 -70.2198,-4.1691 -70.24,-4.1347 -70.3492,-4.1273 -70.3852,-4.1498 -70.4116,-4.169 -70.3934,-4.1802 326,-7.0,Mexico -114.8815,27.7541 -114.8746,27.7378 -114.8406,27.6901 -114.7798,27.6573 -114.7411,27.6638 -114.6285,27.564 -114.5206,27.4795 -114.4623,27.4574 -114.3685,27.3847 -114.3387,27.3311 -114.3322,27.2916 -114.3311,27.2413 -114.3279,27.2075 -114.1832,27.132 -114.1345,27.1177 -114.1002,27.1347 -114.0754,27.1331 -114.045,27.1255 -114.0182,27.1147 -113.981,27.0927 -113.945,27.0698 -113.9295,27.0531 -113.9154,27.025 -113.9022,26.9958 -113.852,26.9517 -113.8297,26.9518 -113.8079,26.9684 -113.7583,26.9699 -113.7374,26.9651 -113.6959,26.9486 -113.669,26.9277 -113.6263,26.8843 -113.609,26.8637 -113.595,26.8273 -113.5781,26.7954 -113.453,26.7098 -113.3905,26.7241 -113.3304,26.801 -113.306,26.8133 -113.2857,26.8143 -113.257,26.8019 -113.1296,26.7514 -113.0609,26.7966 -113.038,26.8508 -113.0375,26.8726 -113.0404,26.9096 -113.0222,26.941 -112.9854,26.9298 -112.9788,26.8725 -112.9872,26.844 -113.0375,26.7895 -113.0554,26.7709 -113.068,26.7451 -113.0772,26.6995 -113.0697,26.6737 -113.0415,26.6634 -112.9715,26.6426 -112.959,26.6249 -112.9348,26.6015 -112.8324,26.5213 -112.8026,26.5177 -112.748,26.4922 -112.709,26.452 -112.6378,26.3883 -112.5286,26.3011 -112.3265,26.2356 -112.3063,26.2553 -112.2822,26.2602 -112.2568,26.2469 -112.2342,26.2259 -112.2238,26.2078 -112.2145,26.1892 -112.2021,26.134 -112.1813,26.0514 -112.1044,26.0122 -112.0791,25.9771 -112.0619,25.9519 -112.0496,25.9295 -111.9664,25.7372 -111.9567,25.6992 -111.9591,25.6626 -111.9652,25.6396 -111.969,25.5237 -111.9597,25.4923 -111.944,25.5307 -111.9402,25.5725 -111.9181,25.3404 -111.9247,25.2507 -111.9359,25.2039 -111.9627,25.1852 -111.9837,25.1448 -112.0277,24.9294 -112.0333,24.868 -112.0094,24.8717 -112.0011,24.9032 -111.9925,24.9456 -111.9649,24.9962 -111.9534,24.9107 -111.9742,24.8388 -111.9461,24.7284 -111.8367,24.7261 -111.8279,24.7643 -111.7827,24.729 -111.7226,24.6683 -111.7022,24.6412 -111.6858,24.6152 -111.6528,24.5351 -111.5462,24.5364 -111.5129,24.5218 -111.501,24.4944 -111.4763,24.4536 -111.4622,24.4325 -111.4356,24.4085 -111.4195,24.4021 -111.3957,24.3991 -111.3611,24.3653 -111.3323,24.3175 -111.0823,24.176 -110.9574,24.1128 -110.9074,24.0883 -110.8771,24.0672 -110.6715,23.8833 -110.5559,23.7682 -110.496,23.7053 -110.4325,23.6615 -110.3824,23.6424 -110.3209,23.621 -110.2669,23.6066 -110.236,23.5864 -110.1736,23.5343 -110.0345,23.301 -109.997,23.1972 -109.9896,23.1676 -109.9829,23.124 -109.9788,23.0952 -109.9632,23.0203 -109.9532,22.9867 -109.9437,22.9612 -109.8921,22.8806 -109.8618,22.8566 -109.8424,22.8458 -109.8188,22.8388 -109.7867,22.8413 -109.7177,22.8692 -109.6835,22.8881 -109.5811,22.9551 -109.5651,22.9728 -109.5608,22.9989 -109.5293,23.0282 -109.5002,23.049 -109.467,23.0661 -109.4409,23.0751 -109.4073,23.0845 -109.3827,23.0987 -109.349,23.1335 -109.3027,23.1999 -109.2646,23.3714 -109.2711,23.4352 -109.3418,23.5494 -109.3841,23.5733 -109.4069,23.5835 -109.4381,23.5942 -109.4593,23.5995 -109.521,23.6175 -109.5454,23.6304 -109.5573,23.6533 -109.5629,23.6743 -109.568,23.7131 -109.5635,23.7417 -109.5604,23.7681 -109.5846,23.7974 -109.6129,23.8214 -109.6466,23.8443 -109.6749,23.8663 -109.6868,23.8955 -109.686,23.9182 -109.6742,23.9614 -109.662,23.9856 -109.7341,24.0086 -109.8361,24.0694 -109.8436,24.1023 -109.8655,24.1372 -109.8801,24.1511 -109.9028,24.1654 -110.0269,24.2665 -110.0715,24.3211 -110.0932,24.3289 -110.1511,24.3152 -110.167,24.2763 -110.1469,24.2327 -110.1319,24.198 -110.1325,24.1638 -110.1858,24.0987 -110.2158,24.0888 -110.238,24.0972 -110.257,24.1546 -110.2183,24.1535 -110.2017,24.1332 -110.168,24.1587 -110.2012,24.1705 -110.2819,24.1818 -110.3107,24.1823 -110.3564,24.1903 -110.4757,24.259 -110.5184,24.3069 -110.552,24.3597 -110.5565,24.3996 -110.5559,24.4265 -110.5749,24.4887 -110.5825,24.502 -110.5911,24.5147 -110.5948,24.5511 -110.5942,24.6066 -110.5901,24.6354 -110.5844,24.6547 -110.5586,24.6906 -110.547,24.7116 -110.5357,24.7402 -110.5282,24.7762 -110.5314,24.8059 -110.5462,24.8687 -110.6059,24.992 -110.6295,25.0149 -110.6523,25.0256 -110.6845,25.0354 -110.7188,25.0661 -110.7698,25.1448 -110.8067,25.226 -110.8758,25.3857 -110.8801,25.4079 -110.8755,25.4463 -110.8774,25.4935 -110.9226,25.5157 -110.9767,25.5186 -111.025,25.5509 -111.1574,25.7515 -111.1828,25.816 -111.2188,25.9282 -111.201,25.9981 -111.2074,26.1073 -111.2404,26.1718 -111.2552,26.2156 -111.2656,26.2618 -111.2494,26.2761 -111.2554,26.3094 -111.356,26.5002 -111.4095,26.5289 -111.4172,26.5552 -111.4193,26.596 -111.4163,26.6359 -111.4184,26.69 -111.4547,26.7098 -111.5011,26.731 -111.5539,26.7797 -111.6054,26.8236 -111.6658,26.8633 -111.701,26.872 -111.7125,26.823 -111.6878,26.7283 -111.6601,26.6743 -111.611,26.6407 -111.5787,26.6244 -111.544,26.5709 -111.5664,26.5396 -111.5915,26.5227 -111.622,26.538 -111.7149,26.6323 -111.7642,26.697 -111.7727,26.7179 -111.7591,26.7382 -111.7652,26.7925 -111.7711,26.8144 -111.8275,26.8874 -111.8851,26.9751 -111.8702,27.0111 -111.9505,27.1038 -112.0855,27.2022 -112.1725,27.4721 -112.2019,27.5105 -112.3485,27.5849 -112.3919,27.5968 -112.4275,27.5997 -112.525,27.6879 -112.6076,27.8065 -112.5866,27.952 -112.5776,27.9684 -112.6123,27.9823 -112.6326,28.0 -113.9825,28.0 -113.9811,27.9922 -114.0072,27.9817 -114.0036,27.9882 -114.0041,28.0 -114.0198,28.0 -114.037,27.9858 -114.0603,27.9692 -114.1312,27.9202 -114.1437,27.9035 -114.1599,27.8348 -114.1021,27.8084 -114.0728,27.775 -114.0699,27.7287 -114.0108,27.6851 -113.9677,27.6994 -113.9271,27.7216 -113.8832,27.7379 -113.8378,27.7087 -113.8261,27.6925 -113.8379,27.6701 -113.8589,27.6558 -114.0281,27.664 -114.1398,27.706 -114.1701,27.7291 -114.1868,27.7554 -114.2864,27.7739 -114.3125,27.7568 -114.3366,27.7439 -114.3604,27.7381 -114.4656,27.7362 -114.5341,27.7522 -114.6419,27.7819 -114.6855,27.7905 -114.7768,27.8051 -114.8719,27.8156 -114.8953,27.7867 -114.8815,27.7541 206,-8.0,Mexico -116.9715,32.4281 -116.9136,32.3257 -116.8743,32.2639 -116.8578,32.2436 -116.8388,32.2324 -116.8018,32.2191 -116.7745,32.2085 -116.754,32.1851 -116.7424,32.1578 -116.7248,32.0986 -116.7219,32.0734 -116.7221,32.0506 -116.7187,32.0064 -116.7119,31.9858 -116.691,31.9552 -116.5776,31.8727 -116.5116,31.8332 -116.4759,31.8249 -116.4564,31.8091 -116.4467,31.784 -116.4534,31.7399 -116.4973,31.5692 -116.5237,31.5254 -116.4422,31.4361 -116.3281,31.3554 -116.2008,31.1996 -116.1815,31.1723 -116.1639,31.1369 -116.1574,31.1154 -116.1516,31.0868 -116.111,30.9257 -115.9047,30.762 -115.8871,30.6901 -115.8791,30.5627 -115.8794,30.5366 -115.883,30.4985 -115.8912,30.4396 -115.8883,30.4166 -115.8533,30.3513 -115.8485,30.3765 -115.8607,30.4011 -115.8289,30.4606 -115.7808,30.4229 -115.6984,30.3358 -115.6861,30.3162 -115.6725,30.291 -115.661,30.2639 -115.6542,30.2426 -115.647,30.215 -115.6428,30.1919 -115.6326,30.074 -115.5855,29.9053 -115.5468,29.741 -115.356,29.5924 -115.1901,29.5106 -115.1288,29.485 -115.0832,29.4563 -115.0678,29.4424 -115.0549,29.4265 -115.0405,29.4046 -114.9488,29.3865 -114.8286,29.3583 -114.7972,29.3411 -114.5529,29.0975 -114.4091,28.9428 -114.3558,28.9068 -114.2928,28.881 -114.279,28.8528 -114.264,28.857 -114.2133,28.7915 -114.1672,28.717 -114.1137,28.6816 -114.0663,28.653 -114.0199,28.6399 -113.9328,28.5212 -113.9137,28.4856 -113.9198,28.4415 -113.9371,28.3973 -113.9499,28.367 -113.9623,28.3435 -113.9983,28.279 -113.9809,28.1864 -113.9653,28.1498 -113.9657,28.1127 -113.972,28.076 -113.9877,28.0285 -113.9825,28.0 -112.6326,28.0 -112.6328,28.0002 -112.6461,28.0691 -112.649,28.0965 -112.6449,28.1475 -112.6751,28.1969 -112.7151,28.2271 -112.7212,28.2319 -112.7281,28.2524 -112.7241,28.3302 -112.7171,28.3867 -112.7721,28.4177 -112.811,28.4089 -112.8363,28.4042 -112.8651,28.4047 -112.8931,28.4116 -112.9694,28.4548 -112.9832,28.5272 -112.9924,28.5919 -113.0301,28.7487 -113.0482,28.7818 -113.0834,28.7971 -113.1435,28.7775 -113.2012,28.8505 -113.2015,28.8763 -113.216,28.909 -113.2624,28.9319 -113.3049,28.9206 -113.3153,28.8944 -113.3103,28.8603 -113.3618,28.864 -113.3979,28.9187 -113.3923,29.0083 -113.3979,29.0703 -113.5034,29.229 -113.5206,29.2516 -113.6467,29.3828 -113.7011,29.4312 -113.7388,29.4467 -113.7663,29.464 -113.8859,29.5549 -113.9168,29.5823 -113.9485,29.6159 -114.0641,29.7286 -114.1072,29.7385 -114.1523,29.7298 -114.2274,29.7643 -114.248,29.7953 -114.3105,29.8924 -114.3969,29.9678 -114.4078,29.985 -114.4797,30.1055 -114.5106,30.1648 -114.4931,30.2397 -114.4838,30.3282 -114.4765,30.4496 -114.4975,30.5301 -114.5148,30.5524 -114.5282,30.5708 -114.5435,30.6113 -114.5465,30.6353 -114.5419,30.6997 -114.5365,30.768 -114.54,30.8046 -114.557,30.893 -114.5709,30.9085 -114.6132,30.9301 -114.6371,30.9341 -114.6754,30.9574 -114.7251,31.0918 -114.7311,31.1168 -114.7291,31.1945 -114.7146,31.3911 -114.7057,31.4666 -114.7018,31.4911 -114.6943,31.5193 -114.6836,31.5484 -114.6588,31.5784 -114.6365,31.5965 -114.6372,31.6289 -114.6707,31.7047 -114.7647,31.8265 -114.8077,31.861 -114.8262,31.8706 -114.8637,31.8746 -114.8803,31.921 -114.8816,31.9221 -114.8814,31.9242 -114.8815,31.9244 -114.8814,31.9244 -114.8769,31.984 -114.8459,32.0531 -114.9007,32.1316 -114.8983,32.2007 -114.884,32.2245 -114.9245,32.2864 -114.8626,32.3507 -114.8721,32.3864 -114.8364,32.4293 -114.8197,32.4769 -114.8102,32.515 -114.8007,32.5436 -114.8102,32.5746 -114.8126,32.615 -114.7721,32.6341 -114.75,32.6694 -114.8763,32.6605 -115.0524,32.6481 -115.2538,32.6332 -115.4549,32.6184 -115.7569,32.5955 -116.0913,32.5695 -116.3566,32.5485 -116.561,32.5321 -116.7619,32.5159 -116.9428,32.5003 -116.9701,32.4991 -116.9745,32.4551 -116.9715,32.4281 5,-8.0,Mexico -114.0182,28.0 -114.0041,28.0 -114.0047,28.0124 -114.0198,28.0 -114.0182,28.0 928,-7.0,Mexico -114.9007,32.25 -114.884,32.2245 -114.8983,32.2007 -114.9007,32.1316 -114.8459,32.0531 -114.8769,31.984 -114.8814,31.9244 -114.8675,31.9187 -114.7791,31.8681 -114.6754,31.7999 -114.6592,31.7866 -114.5625,31.7477 -114.4848,31.732 -114.4353,31.7249 -114.3691,31.6761 -114.3533,31.6586 -114.3332,31.6423 -114.2825,31.6096 -114.1061,31.5063 -114.0687,31.487 -114.0212,31.4694 -113.9824,31.4602 -113.9019,31.4576 -113.8724,31.4626 -113.8422,31.4825 -113.8272,31.4971 -113.799,31.5318 -113.8222,31.5374 -113.8265,31.6204 -113.674,31.5455 -113.5197,31.4809 -113.4962,31.4672 -113.4813,31.4463 -113.4777,31.4203 -113.481,31.3959 -113.4743,31.3552 -113.4656,31.3137 -113.4418,31.2967 -113.3632,31.2609 -113.3283,31.2492 -113.1804,31.2255 -112.9899,31.1982 -112.9698,31.2006 -112.9445,31.1948 -112.8918,31.1301 -112.8906,31.0702 -112.9024,31.0191 -112.9487,30.8454 -112.9622,30.8084 -112.9689,30.7803 -112.9344,30.6645 -112.9258,30.6453 -112.9146,30.6246 -112.8954,30.5972 -112.8559,30.5435 -112.7812,30.4576 -112.7114,30.3687 -112.6189,30.1938 -112.608,30.1697 -112.6024,30.1283 -112.603,30.1018 -112.6052,30.0127 -112.5895,29.9377 -112.5595,29.8882 -112.4307,29.6794 -112.3481,29.5799 -112.3258,29.5581 -112.2948,29.5365 -112.2799,29.5213 -112.2304,29.4621 -112.2318,29.427 -112.2441,29.3889 -112.1839,29.2949 -112.1432,29.3024 -112.1041,29.2993 -112.068,29.2733 -112.056,29.2503 -112.0516,29.2276 -112.0444,29.1422 -112.031,29.0261 -112.0167,28.9392 -111.9699,28.934 -111.8922,28.8516 -111.7729,28.7552 -111.8025,28.7297 -111.7901,28.7068 -111.7029,28.6265 -111.6774,28.6076 -111.651,28.589 -111.6221,28.5605 -111.5937,28.5237 -111.5815,28.5041 -111.5681,28.4719 -111.5525,28.4368 -111.5254,28.4211 -111.4962,28.4117 -111.4345,28.3887 -111.3906,28.3719 -111.3193,28.3433 -111.1982,28.1723 -111.1816,28.1463 -111.1627,28.1158 -111.1242,28.0579 -111.1059,28.0366 -111.0725,28.0041 -110.96,27.9058 -110.9389,27.9077 -110.9126,27.9181 -110.8177,27.8764 -110.7286,27.8117 -110.6466,27.8856 -110.454,27.8565 -110.3689,27.824 -110.4124,27.8018 -110.4626,27.7265 -110.4919,27.6313 -110.4913,27.6042 -110.4795,27.5711 -110.3874,27.3405 -110.3041,27.2812 -110.1931,27.1543 -110.16,27.1321 -110.0832,27.1065 -109.9103,27.0665 -109.8822,27.0817 -109.8348,27.0804 -109.8075,27.0631 -109.7794,27.0265 -109.7568,26.9441 -109.746,26.8804 -109.7392,26.8409 -109.7345,26.8185 -109.7254,26.7935 -109.6808,26.7216 -109.6316,26.6775 -109.6129,26.6664 -109.5767,26.65 -109.5511,26.6444 -109.5363,26.6428 -109.5064,26.6676 -109.4134,26.7211 -109.3791,26.7345 -109.3036,26.6859 -109.1243,26.4838 -109.0145,26.3387 -109.0038,26.3088 -108.9642,26.2544 -108.9561,26.1855 -108.9834,26.195 -109.034,26.2333 -109.0202,26.2753 -109.0248,26.2945 -109.065,26.3128 -109.0917,26.2899 -109.0897,26.2337 -109.1439,26.1331 -109.1653,26.1725 -109.2626,26.0355 -109.2818,26.0062 -109.2923,25.9766 -109.3027,25.9176 -109.2977,25.7913 -109.2419,25.7303 -109.168,25.7097 -109.0298,25.615 -109.0144,25.5845 -109.0016,25.5545 -108.9375,25.5718 -108.9023,25.5811 -108.7588,25.6705 -108.7372,25.7147 -108.6957,25.7649 -108.7393,25.6416 -108.763,25.6108 -108.8313,25.5359 -108.852,25.5306 -108.8789,25.5318 -108.9183,25.5354 -108.9454,25.51 -108.9696,25.4978 -108.9292,25.4586 -108.8923,25.4337 -108.7809,25.4279 -108.7473,25.4514 -108.7406,25.4731 -108.738,25.494 -108.757,25.5207 -108.699,25.533 -108.6265,25.5107 -108.625,25.4642 -108.6234,25.4062 -108.59,25.3682 -108.4783,25.3117 -108.4198,25.2863 -108.3177,25.2458 -108.2987,25.2347 -108.2826,25.2223 -108.2689,25.2036 -108.2543,25.1719 -108.256,25.113 -108.2147,25.1391 -108.1054,25.1312 -107.9881,25.0957 -107.9581,25.0809 -107.9229,25.0605 -107.9049,25.0455 -107.884,25.0234 -107.8705,25.0054 -107.8641,24.9801 -107.9593,24.9849 -107.9932,24.9447 -108.0412,24.9537 -108.0836,25.0016 -108.0445,24.9087 -107.9914,24.8126 -107.9676,24.7944 -107.9112,24.7985 -107.8916,24.8922 -107.9077,24.9229 -107.9053,24.9642 -107.8753,24.9548 -107.8535,24.9316 -107.8605,24.7233 -107.8804,24.7076 -107.8703,24.645 -107.8593,24.6216 -107.8059,24.5738 -107.7805,24.5554 -107.6815,24.5 -107.7157,24.528 -107.7581,24.5587 -107.7952,24.6026 -107.7369,24.5861 -107.6727,24.5598 -107.6134,24.5103 -107.6127,24.4896 -107.5462,24.4524 -107.5178,24.4622 -107.5065,24.4838 -107.4825,24.4897 -107.455,24.425 -107.4611,24.401 -107.4957,24.4046 -107.5178,24.4048 -107.5403,24.4195 -107.5922,24.4439 -107.54,24.3967 -107.5146,24.3746 -107.4541,24.345 -107.4307,24.3307 -107.413,24.3192 -107.3874,24.3008 -107.2874,24.2254 -107.2538,24.1976 -106.9368,23.9725 -106.9089,23.9562 -106.8912,23.9414 -106.867,23.9185 -106.8244,23.8755 -106.782,23.8384 -106.7654,23.8162 -106.7345,23.7546 -106.7075,23.6994 -106.6699,23.6232 -106.6517,23.6027 -106.5287,23.4969 -106.3947,23.3808 -106.3787,23.3584 -106.3607,23.3282 -106.3461,23.3002 -106.2378,23.1526 -106.0946,23.0277 -106.0076,22.9309 -105.9785,22.8961 -105.9485,22.8627 -105.8693,22.7906 -105.8429,22.7731 -105.7885,22.7328 -105.6895,22.6389 -105.6681,22.6107 -105.6141,22.5188 -105.5998,22.4879 -105.5839,22.4434 -105.5601,22.4057 -105.5296,22.3446 -105.5193,22.3178 -105.5137,22.2903 -105.5099,22.262 -105.5077,22.2323 -105.5062,22.1985 -105.5085,22.1619 -105.5152,22.1101 -105.5252,22.0316 -105.5259,21.9776 -105.5201,21.9566 -105.4984,21.9262 -105.4796,21.903 -105.466,21.8881 -105.4472,21.8715 -105.4286,21.8493 -105.3788,21.7676 -105.3283,21.6744 -105.312,21.6334 -105.3128,21.6102 -105.3071,21.5851 -105.1476,21.4967 -105.1165,21.4896 -105.0603,21.4134 -105.0991,21.288 -105.0845,21.2101 -105.0963,21.0877 -105.1038,21.0619 -105.1127,21.0413 -105.1302,21.0194 -105.1635,21.0144 -105.1841,20.9992 -105.4074,20.7692 -105.2792,20.7315 -105.2388,20.7467 -105.2149,20.7503 -105.1933,20.7425 -105.1356,20.6737 -105.1302,20.6612 -105.13,20.665 -105.1268,20.6701 -105.1232,20.6732 -105.1217,20.6817 -105.1053,20.7083 -105.1076,20.7137 -105.1079,20.7168 -105.1009,20.7194 -105.0962,20.7303 -105.0913,20.7307 -105.0897,20.7381 -105.0784,20.74 -105.067,20.7457 -105.0677,20.7506 -105.0635,20.7632 -105.0554,20.7676 -105.0533,20.77 -105.0527,20.7766 -105.0557,20.7851 -105.0526,20.7866 -105.0492,20.7919 -105.0417,20.7946 -105.0326,20.8045 -105.0351,20.8195 -105.023,20.846 -105.0171,20.8495 -105.0088,20.8637 -105.0003,20.8641 -104.9976,20.8664 -104.9959,20.8703 -104.9847,20.8764 -104.9803,20.8845 -104.9746,20.8882 -104.9695,20.8892 -104.9579,20.8975 -104.9521,20.8974 -104.9447,20.906 -104.9241,20.9063 -104.9182,20.9064 -104.9099,20.9033 -104.9079,20.8886 -104.8994,20.8853 -104.8817,20.895 -104.8774,20.8965 -104.8738,20.8935 -104.8742,20.8879 -104.8729,20.8833 -104.8662,20.8811 -104.8648,20.882 -104.862,20.8842 -104.8578,20.8835 -104.8379,20.8739 -104.8216,20.8933 -104.8185,20.8947 -104.8056,20.9007 -104.7963,20.9023 -104.7906,20.9054 -104.7799,20.9054 -104.7747,20.9082 -104.771,20.9125 -104.7702,20.9237 -104.7666,20.9307 -104.7433,20.9471 -104.7389,20.9524 -104.7353,20.9612 -104.7288,20.9616 -104.7253,20.9631 -104.7186,20.9717 -104.7057,20.9751 -104.6999,20.9844 -104.6795,20.9825 -104.6735,20.9804 -104.663,20.9832 -104.6565,20.9837 -104.6538,20.9828 -104.6531,20.9831 -104.6435,20.9873 -104.6404,20.9849 -104.6327,20.9744 -104.6258,20.9772 -104.6029,20.9737 -104.593,20.9807 -104.5948,20.9563 -104.5966,20.9493 -104.5887,20.946 -104.5841,20.938 -104.5822,20.9384 -104.5772,20.9326 -104.5729,20.9293 -104.5619,20.9301 -104.5549,20.9226 -104.55,20.9227 -104.5485,20.9216 -104.5485,20.9125 -104.5473,20.908 -104.5353,20.9076 -104.531,20.9097 -104.5293,20.9029 -104.5258,20.8993 -104.5089,20.9009 -104.5036,20.8988 -104.4995,20.891 -104.4962,20.8872 -104.4879,20.8874 -104.4843,20.8863 -104.4716,20.8981 -104.4648,20.8994 -104.459,20.9005 -104.4497,20.9007 -104.4455,20.8992 -104.4319,20.8909 -104.4237,20.8827 -104.4161,20.883 -104.4122,20.8794 -104.4121,20.8676 -104.4105,20.8658 -104.4056,20.8663 -104.4023,20.8641 -104.401,20.851 -104.3949,20.8524 -104.3922,20.8511 -104.3916,20.8428 -104.3794,20.8281 -104.3756,20.8266 -104.3678,20.8059 -104.3547,20.8012 -104.3517,20.7991 -104.3517,20.7954 -104.348,20.787 -104.3316,20.7807 -104.3308,20.7776 -104.3223,20.771 -104.3068,20.7731 -104.3015,20.7706 -104.2963,20.763 -104.2926,20.7598 -104.2882,20.7612 -104.2745,20.755 -104.2647,20.7459 -104.2455,20.7236 -104.2435,20.7068 -104.2409,20.7048 -104.2321,20.7089 -104.2192,20.6953 -104.2047,20.6883 -104.1865,20.6818 -104.1772,20.671 -104.1761,20.6638 -104.1727,20.6605 -104.1613,20.6599 -104.1494,20.6497 -104.1412,20.6487 -104.1385,20.6619 -104.1395,20.6875 -104.1406,20.7185 -104.1453,20.742 -104.1449,20.755 -104.1451,20.7804 -104.1469,20.786 -104.1452,20.7984 -104.1392,20.8105 -104.1397,20.8325 -104.1382,20.8483 -104.1377,20.8528 -104.1371,20.859 -104.1323,20.8746 -104.1285,20.8825 -104.1219,20.8887 -104.1102,20.9029 -104.0856,20.9201 -104.081,20.9225 -104.0881,20.9302 -104.0935,20.9352 -104.0964,20.9401 -104.0992,20.9572 -104.1006,20.9656 -104.103,20.9802 -104.0945,21.021 -104.0938,21.0331 -104.0886,21.0506 -104.0816,21.0611 -104.0851,21.0668 -104.0791,21.0845 -104.0966,21.1026 -104.1002,21.1157 -104.1006,21.1212 -104.0978,21.1408 -104.0957,21.144 -104.088,21.1474 -104.0829,21.1482 -104.0787,21.1508 -104.0723,21.1582 -104.0614,21.1635 -104.0575,21.1628 -104.0562,21.1626 -104.0526,21.1585 -104.0275,21.1564 -104.0241,21.1536 -104.0178,21.1548 -104.0101,21.1596 -104.0029,21.1607 -103.9969,21.1594 -103.9866,21.1632 -103.9755,21.1582 -103.9696,21.1654 -103.9607,21.169 -103.9544,21.1662 -103.9511,21.1732 -103.9491,21.1736 -103.9453,21.1638 -103.9447,21.1613 -103.9354,21.1594 -103.9353,21.1626 -103.9353,21.1667 -103.9332,21.1682 -103.9257,21.1678 -103.9243,21.1664 -103.9197,21.1724 -103.9161,21.1729 -103.9113,21.1713 -103.9102,21.1727 -103.9065,21.1725 -103.8977,21.1667 -103.894,21.1655 -103.8984,21.1753 -103.896,21.1783 -103.8916,21.18 -103.8853,21.1784 -103.8814,21.1945 -103.875,21.1974 -103.86,21.224 -103.8465,21.2378 -103.822,21.3403 -104.0684,21.5014 -104.0183,21.5641 -104.0153,21.5699 -104.0228,21.5912 -104.0238,21.6016 -104.0263,21.6284 -104.0194,21.7956 -104.0631,21.8112 -104.0723,21.8145 -104.0991,21.828 -104.1208,21.8422 -104.1298,21.8513 -104.1538,21.8766 -104.1929,21.9387 -104.2077,21.9733 -104.2326,22.0312 -104.1703,22.2191 -104.184,22.418 -104.1837,22.422 -104.1867,22.4236 -104.347,22.3731 -104.4379,22.3991 -104.4823,22.5574 -104.6546,22.5936 -104.817,22.4999 -104.828,22.5036 -104.8759,22.52 -104.8795,22.5854 -104.8823,22.6356 -104.763,22.7101 -104.8396,22.9076 -104.9874,22.9738 -105.09,23.012 -105.2662,23.0143 -105.2763,23.0991 -105.4416,23.1037 -105.4508,23.1174 -105.4672,23.1471 -105.4831,23.1688 -105.4948,23.1891 -105.4979,23.2021 -105.4989,23.2118 -105.5018,23.2137 -105.5053,23.214 -105.5066,23.2293 -105.5105,23.2317 -105.5084,23.2508 -105.516,23.2564 -105.5247,23.2621 -105.5398,23.2599 -105.5411,23.2621 -105.5518,23.2614 -105.5554,23.2714 -105.5542,23.2788 -105.5581,23.2816 -105.5586,23.2916 -105.5598,23.2933 -105.565,23.3012 -105.5645,23.3062 -105.5654,23.3093 -105.5595,23.3165 -105.5663,23.3169 -105.5718,23.3243 -105.5783,23.3275 -105.5799,23.3371 -105.5922,23.349 -105.5937,23.3505 -105.5945,23.3527 -105.5914,23.3536 -105.588,23.3572 -105.5892,23.3596 -105.5682,23.3865 -105.568,23.3899 -105.5869,23.3997 -105.5949,23.4084 -105.5976,23.4157 -105.6043,23.4222 -105.5989,23.4308 -105.5939,23.4442 -105.5931,23.4483 -105.6198,23.474 -105.6246,23.4826 -105.6243,23.5039 -105.633,23.5166 -105.6393,23.5317 -105.6516,23.5474 -105.6532,23.5495 -105.6586,23.5507 -105.6796,23.5628 -105.6832,23.5673 -105.6824,23.57 -105.7036,23.58 -105.7118,23.5854 -105.7343,23.6203 -105.7432,23.6576 -105.7466,23.6719 -105.748,23.6848 -105.7483,23.6878 -105.7714,23.7149 -105.7872,23.8844 -105.7108,24.0214 -105.7612,24.0175 -105.8278,24.0667 -105.8338,24.0715 -105.8353,24.0789 -105.8588,24.1325 -105.881,24.1669 -105.8927,24.191 -105.8989,24.2007 -105.9186,24.236 -105.9288,24.2503 -105.9372,24.2667 -105.9494,24.2858 -105.9575,24.2919 -106.0009,24.325 -106.0542,24.3474 -106.0666,24.3526 -106.0698,24.3536 -106.1071,24.3647 -106.1154,24.3659 -106.1339,24.3682 -106.1484,24.3639 -106.1729,24.3526 -106.1943,24.3327 -106.2169,24.287 -106.2218,24.2837 -106.2321,24.2812 -106.2446,24.2744 -106.309,24.2558 -106.324,24.2555 -106.3398,24.2575 -106.3682,24.2765 -106.441,24.3621 -106.4446,24.3747 -106.443,24.4218 -106.4432,24.4363 -106.4665,24.4646 -106.4719,24.4692 -106.5249,24.5308 -106.5403,24.5616 -106.5479,24.5822 -106.556,24.5967 -106.575,24.6125 -106.5983,24.6381 -106.6322,24.6674 -106.6397,24.6832 -106.6596,24.7121 -106.6742,24.7187 -106.704,24.736 -106.7239,24.7464 -106.7368,24.7563 -106.747,24.7676 -106.7507,24.7691 -106.7565,24.7774 -106.7752,24.7784 -106.7833,24.7779 -106.823,24.7792 -106.8273,24.7812 -106.8301,24.7869 -106.8334,24.8332 -106.8338,24.8395 -106.8367,24.8494 -106.8591,24.8782 -106.8661,24.8902 -106.8966,24.9233 -106.9261,24.9599 -106.9266,24.9606 -106.9321,24.9696 -106.948,24.9997 -106.954,25.019 -106.9727,25.0578 -106.9879,25.0942 -106.9956,25.1396 -106.9951,25.1666 -106.9967,25.1864 -106.9865,25.2367 -106.9786,25.2675 -106.977,25.2826 -106.9733,25.2941 -106.9681,25.306 -106.9341,25.4698 -106.865,25.5209 -106.8599,25.5267 -106.8162,25.6266 -106.8192,25.6326 -106.8352,25.6533 -106.8438,25.6686 -106.8544,25.6819 -106.8635,25.6869 -106.867,25.6913 -106.8744,25.6954 -107.0062,25.7794 -107.0118,25.7894 -107.0453,25.8292 -107.0513,25.8406 -107.0637,25.8574 -107.0726,25.8574 -107.1067,25.8556 -107.1283,25.866 -107.139,25.8743 -107.145,25.8823 -107.154,25.8994 -107.1682,25.9458 -107.1706,25.9481 -107.1924,25.9488 -107.2013,25.9534 -107.212,25.9645 -107.2157,25.9763 -107.2188,25.987 -107.2275,26.018 -107.2399,26.0662 -107.2476,26.0809 -107.2767,26.1107 -107.2855,26.1167 -107.3211,26.1258 -107.3236,26.126 -107.4403,26.1313 -107.4576,26.1306 -107.4714,26.1327 -107.4976,26.1326 -107.5086,26.1336 -107.6283,26.1382 -107.6726,26.1433 -107.6801,26.1475 -107.6834,26.1524 -107.6863,26.1566 -107.6902,26.1622 -107.781,26.2836 -107.8826,26.7017 -107.8895,26.7454 -107.8813,26.8665 -107.8808,26.8738 -107.8868,26.8875 -107.8953,26.8946 -107.9014,26.8969 -107.9158,26.8985 -107.9285,26.8985 -108.0204,26.8988 -108.0256,26.9 -108.0348,26.902 -108.0586,26.9143 -108.0931,26.9425 -108.103,26.955 -108.1141,26.9833 -108.117,26.9878 -108.1235,26.9926 -108.1302,26.9958 -108.1421,26.9978 -108.1426,26.9977 -108.15,26.9972 -108.1775,27.0002 -108.1964,27.008 -108.2153,27.0305 -108.2979,26.945 -108.3376,26.9835 -108.3427,26.9874 -108.3576,26.9856 -108.3676,26.9844 -108.3821,26.9827 -108.3955,26.9831 -108.4116,26.9992 -108.4287,27.0244 -108.4391,27.0344 -108.4761,27.1022 -108.4795,27.1096 -108.5284,27.1999 -108.5008,27.2582 -108.4903,27.2633 -108.4755,27.285 -108.4715,27.2982 -108.4723,27.3066 -108.5273,27.443 -108.5169,27.5112 -108.5237,27.5167 -108.5279,27.5229 -108.5497,27.5304 -108.5743,27.5451 -108.6189,27.605 -108.5893,27.6547 -108.6012,27.6655 -108.721,27.7737 -108.7417,27.7923 -108.76,27.8593 -108.7696,27.8946 -108.7842,27.8986 -108.8277,27.9194 -108.841,27.9308 -108.8465,27.9355 -108.8625,27.9541 -108.8724,27.9626 -108.8765,27.9749 -108.8802,27.9768 -108.895,27.9946 -108.9839,28.182 -108.9647,28.1996 -108.9085,28.2513 -108.4483,28.2096 -108.4007,28.2544 -108.4518,28.402 -108.4914,28.516 -108.5059,28.5576 -108.4481,28.737 -108.4301,28.7925 -108.4805,28.9706 -108.5059,29.0704 -108.5374,29.2065 -108.5456,29.2376 -108.5704,29.3316 -108.5811,29.3919 -108.5267,29.3808 -108.4855,29.3743 -108.4614,29.3683 -108.4418,29.5727 -108.4243,29.8249 -108.4181,29.9037 -108.4151,29.9411 -108.4141,29.9532 -108.406,30.0564 -108.4195,30.23 -108.422,30.2449 -108.4157,30.3166 -108.4099,30.3829 -108.4019,30.4742 -108.54,30.5587 -108.5803,30.5791 -108.6584,30.5919 -108.7489,30.6538 -108.8582,30.7321 -108.8609,30.7286 -108.9813,30.8166 -108.9094,30.9791 -108.8633,31.0832 -108.8577,31.0714 -108.7601,31.2977 -108.9056,31.2978 -108.9168,31.2979 -109.3698,31.2982 -109.7361,31.2976 -110.1682,31.2976 -110.9015,31.2982 -111.2725,31.4189 -111.8005,31.5884 -112.1532,31.7 -112.3537,31.7628 -112.7204,31.8778 -112.9059,31.9352 -113.1969,32.0252 -113.544,32.1316 -113.7099,32.1823 -113.9129,32.2436 -114.195,32.3288 -114.4364,32.4009 -114.6457,32.4642 -114.6603,32.4707 -114.6423,32.5215 -114.5822,32.6488 -114.5721,32.6747 -114.5699,32.6819 -114.5806,32.681 -114.7218,32.6714 -114.75,32.6694 -114.7721,32.6341 -114.8126,32.615 -114.8102,32.5746 -114.8007,32.5436 -114.8102,32.515 -114.8197,32.4769 -114.8364,32.4293 -114.8721,32.3864 -114.8626,32.3507 -114.9245,32.2864 -114.9007,32.25 5,-7.0,Mexico -114.8815,31.922 -114.8803,31.921 -114.8814,31.9242 -114.8816,31.9221 -114.8815,31.922 6,-7.0,Mexico -114.8007,31.8554 -114.7647,31.8265 -114.7723,31.8363 -114.7949,31.8543 -114.8077,31.861 -114.8007,31.8554 3392,-8.0,United States -124.525,48.3158 -124.5015,48.1972 -124.5067,48.1292 -124.501,48.0715 -124.4925,48.0093 -124.4882,47.9851 -124.4759,47.9419 -124.4649,47.9183 -124.4385,47.8702 -124.3994,47.8306 -124.3691,47.8282 -124.3463,47.8164 -124.3196,47.7974 -124.2841,47.7696 -124.216,47.675 -124.1807,47.6128 -124.1489,47.4817 -124.1292,47.3788 -124.1227,47.3191 -124.0895,47.2877 -124.0503,47.2599 -124.0311,47.2254 -124.0057,47.1673 -123.9757,47.0375 -123.9713,47.007 -123.9719,46.9795 -123.9751,46.954 -123.9805,46.923 -123.9874,46.8928 -123.9755,46.888 -123.9339,46.9219 -123.9454,46.9479 -123.9569,46.9884 -123.9344,47.0058 -123.8979,47.0126 -123.8738,47.0085 -123.845,46.9937 -123.8237,46.9701 -123.8123,46.9471 -123.7851,46.935 -123.7327,46.9372 -123.6248,46.9233 -123.6956,46.8998 -123.7624,46.8838 -123.7953,46.8794 -123.9055,46.8325 -123.9207,46.8079 -123.9016,46.6961 -123.8771,46.6822 -123.783,46.6696 -123.7266,46.6871 -123.7006,46.7017 -123.6706,46.6935 -123.5836,46.6326 -123.614,46.6244 -123.6342,46.6443 -123.6547,46.661 -123.7191,46.6343 -123.7649,46.5836 -123.7459,46.566 -123.7306,46.5528 -123.7064,46.5109 -123.7036,46.4795 -123.7237,46.39 -123.7659,46.34 -123.8079,46.3409 -123.8376,46.446 -123.8376,46.4891 -123.8294,46.5211 -123.8421,46.6032 -123.8624,46.6033 -123.8739,46.5721 -123.8627,46.3569 -123.8244,46.2709 -123.7172,46.2131 -123.6828,46.2078 -123.6472,46.2202 -123.5621,46.2411 -123.5185,46.248 -123.4807,46.2396 -123.4452,46.2237 -123.4148,46.2199 -123.3734,46.2221 -123.3435,46.2285 -123.313,46.2345 -123.2869,46.2369 -123.2558,46.2341 -123.2346,46.2199 -123.2187,46.189 -123.197,46.1701 -123.121,46.1249 -123.084,46.1189 -122.9896,46.1424 -123.03,46.1084 -123.0677,46.0931 -123.0892,46.0925 -123.1932,46.1102 -123.2242,46.1223 -123.2423,46.1339 -123.2555,46.156 -123.2996,46.1936 -123.3317,46.1973 -123.3607,46.1871 -123.3794,46.1721 -123.4211,46.15 -123.5275,46.1354 -123.6539,46.1376 -123.7517,46.1618 -123.7769,46.1286 -123.7523,46.0808 -123.7419,46.043 -123.7365,46.0133 -123.7343,45.9779 -123.7418,45.9452 -123.7623,45.8426 -123.7754,45.7538 -123.7774,45.7136 -123.7553,45.6799 -123.7304,45.6571 -123.7262,45.6226 -123.7568,45.5402 -123.7183,45.5207 -123.6975,45.4772 -123.7701,45.4687 -123.7707,45.4095 -123.7822,45.164 -123.7714,45.1287 -123.8208,44.9267 -123.8289,44.8981 -123.8482,44.8359 -123.8805,44.7863 -123.8854,44.7391 -123.876,44.7187 -123.8668,44.6886 -123.8737,44.5748 -123.884,44.547 -123.894,44.4721 -123.9366,44.1019 -123.9579,43.8713 -123.9805,43.7442 -123.9611,43.7053 -123.9425,43.676 -124.014,43.6249 -124.0305,43.5871 -124.039,43.5474 -124.0488,43.5136 -124.1043,43.3903 -124.1215,43.3604 -124.1291,43.3516 -124.1117,43.3542 -124.0903,43.3666 -124.0647,43.3894 -124.0236,43.4071 -123.9696,43.3228 -124.0153,43.329 -124.0335,43.3433 -124.0747,43.3466 -124.1608,43.3062 -124.2052,43.27 -124.2,43.2401 -124.1965,43.2154 -124.2141,43.1402 -124.2536,42.992 -124.3,42.9161 -124.3151,42.8933 -124.3306,42.8765 -124.3417,42.8573 -124.3514,42.8175 -124.3487,42.7802 -124.3085,42.6998 -124.2601,42.6467 -124.2393,42.6343 -124.22,42.6181 -124.2094,42.5809 -124.212,42.5063 -124.2287,42.469 -124.2471,42.4358 -124.2361,42.327 -124.2244,42.2682 -124.2089,42.1954 -124.1835,42.1206 -124.1673,42.0774 -124.1555,42.0586 -124.1176,42.0256 -124.081,42.0084 -124.0319,41.9713 -124.0141,41.9521 -124.0125,41.9467 -124.0036,41.9024 -124.0188,41.8221 -124.0257,41.8007 -124.0438,41.7729 -124.0098,41.7069 -123.9473,41.6359 -123.8926,41.4683 -123.8758,41.4163 -123.8692,41.3809 -123.8749,41.3477 -123.8905,41.2977 -123.9201,41.2035 -123.9516,41.1112 -123.9421,41.0111 -123.9289,40.9922 -123.9286,40.9459 -123.9727,40.7661 -124.0292,40.6997 -124.059,40.7006 -124.0828,40.6786 -124.1046,40.649 -124.1618,40.5359 -124.182,40.4866 -124.2058,40.402 -124.1844,40.3698 -124.1534,40.2909 -124.1543,40.2664 -124.1612,40.2271 -124.1274,40.1928 -124.0329,40.129 -123.9833,40.1027 -123.9237,40.0713 -123.8931,40.0465 -123.7628,39.9047 -123.6995,39.8243 -123.6526,39.7471 -123.6046,39.6651 -123.5697,39.5105 -123.5961,39.475 -123.6072,39.4523 -123.6289,39.3417 -123.629,39.3093 -123.5875,39.2154 -123.5464,39.1341 -123.5201,39.0779 -123.501,38.9816 -123.5088,38.961 -123.5415,38.9273 -123.5359,38.8866 -123.4546,38.8174 -123.371,38.7526 -123.2825,38.6905 -123.1886,38.5812 -123.1484,38.5306 -123.1024,38.4976 -123.0731,38.4795 -123.0076,38.4488 -122.9651,38.4297 -122.9434,38.4196 -122.7951,38.2423 -122.6675,38.0847 -122.6448,38.0522 -122.6401,38.0391 -122.677,38.0652 -122.7639,38.1196 -122.7934,38.0154 -122.7655,38.0111 -122.7338,38.0116 -122.6542,37.9777 -122.6194,37.9587 -122.4944,37.8681 -122.3435,37.7886 -122.2945,37.7909 -122.2579,37.8406 -122.2811,37.8645 -122.3176,37.8941 -122.3158,38.0769 -122.2285,38.1048 -122.2027,38.1128 -122.1491,38.0935 -122.1297,38.0842 -122.102,38.0673 -121.9477,38.0187 -121.8882,38.0662 -121.8565,38.1053 -121.8161,38.0544 -121.7434,38.0234 -121.6569,38.0386 -121.5614,38.0049 -121.5238,38.024 -121.5008,38.054 -121.4237,38.0728 -121.3918,38.0678 -121.3093,38.0125 -121.2662,37.9705 -121.3371,38.0062 -121.4297,38.0621 -121.4822,38.0364 -121.4929,38.0061 -121.5234,37.9755 -121.6723,37.9942 -121.6958,38.0004 -121.7539,38.0115 -121.8276,38.023 -121.854,38.0235 -121.9659,37.9927 -122.0012,38.0047 -122.0631,38.0217 -122.1906,37.9481 -122.2313,37.9167 -122.1382,37.7841 -122.0813,37.7243 -122.0133,37.6725 -121.9959,37.6526 -121.9771,37.62 -121.9696,37.5902 -121.9646,37.5605 -121.9199,37.4682 -121.8688,37.4373 -121.8451,37.4292 -121.8622,37.4161 -121.9033,37.4175 -122.1963,37.5736 -122.2056,37.6123 -122.1953,37.6455 -122.1898,37.6893 -122.1983,37.7448 -122.2178,37.7715 -122.2861,37.7677 -122.3225,37.7474 -122.3288,37.7101 -122.3377,37.5477 -122.3343,37.5239 -122.3289,37.4878 -122.319,37.4701 -122.2819,37.4625 -122.2645,37.4422 -122.2169,37.3327 -122.2122,37.2874 -122.2234,37.2478 -122.2327,37.2103 -122.2274,37.1785 -122.2182,37.1583 -122.0191,36.976 -121.9869,36.9542 -121.9107,36.921 -121.8813,36.9127 -121.8602,36.9134 -121.8184,36.9276 -121.7537,36.9388 -121.7194,36.9309 -121.6912,36.9092 -121.6396,36.8429 -121.6045,36.7712 -121.6153,36.7182 -121.64,36.6268 -121.6498,36.6076 -121.6663,36.5859 -121.6855,36.5742 -121.7062,36.5788 -121.7401,36.6003 -121.7837,36.5536 -121.7621,36.4773 -121.7385,36.4265 -121.7254,36.3931 -121.7144,36.353 -121.7049,36.3022 -121.7087,36.2747 -121.6374,36.2007 -121.5993,36.189 -121.5066,36.1424 -121.3139,35.9575 -121.3028,35.9391 -121.2839,35.8879 -121.2769,35.8541 -121.2103,35.7891 -121.1636,35.754 -121.1387,35.7259 -121.1111,35.6602 -121.0092,35.6092 -120.8905,35.4851 -120.8425,35.4395 -120.82,35.4261 -120.7629,35.4092 -120.6843,35.3156 -120.7022,35.2679 -120.7113,35.2406 -120.7131,35.2179 -120.7,35.1895 -120.6746,35.1707 -120.582,35.1254 -120.5623,35.1412 -120.5241,35.1318 -120.4617,35.1 -120.4439,35.0607 -120.4574,34.9793 -120.4682,34.8559 -120.4415,34.822 -120.435,34.672 -120.4376,34.6516 -120.4467,34.6308 -120.4673,34.6023 -120.4719,34.5851 -120.4692,34.546 -120.4492,34.5199 -120.4265,34.5236 -120.4019,34.5233 -120.3389,34.4921 -120.3254,34.4709 -120.2925,34.4171 -120.2679,34.4177 -120.1988,34.4275 -120.0888,34.435 -119.9747,34.4403 -119.8478,34.4293 -119.6429,34.3879 -119.4694,34.3862 -119.4443,34.385 -119.4219,34.382 -119.3865,34.3759 -119.2917,34.3349 -119.261,34.3193 -119.1573,34.2454 -119.1008,34.1852 -119.0648,34.1268 -119.0196,34.0979 -118.9743,34.0757 -118.8265,34.0295 -118.8067,34.0242 -118.7817,34.0174 -118.6819,33.9925 -118.6269,33.9951 -118.5981,34.0017 -118.5433,34.0079 -118.5008,34.0115 -118.4005,34.0178 -118.376,34.0097 -118.3549,33.9933 -118.3173,33.9499 -118.3005,33.9298 -118.2784,33.9013 -118.2671,33.8834 -118.2323,33.8033 -118.2446,33.7701 -118.2633,33.7439 -118.2462,33.712 -118.1642,33.683 -118.1439,33.6786 -118.1182,33.6858 -118.1135,33.7199 -118.0684,33.7466 -117.981,33.729 -117.9544,33.7193 -117.9295,33.702 -117.8918,33.6719 -117.8737,33.6565 -117.8415,33.6251 -117.8203,33.6078 -117.8016,33.5953 -117.7828,33.5831 -117.7576,33.5691 -117.7306,33.5632 -117.7105,33.5582 -117.6214,33.5021 -117.5193,33.4331 -117.479,33.4055 -117.3423,33.3049 -117.3281,33.2901 -117.2567,33.2072 -117.1875,33.1048 -117.1768,33.0876 -117.1672,33.0684 -117.1174,32.9401 -117.0973,32.8531 -117.0963,32.8344 -117.1002,32.8243 -117.1277,32.7925 -117.1062,32.7337 -117.1136,32.672 -117.116,32.6521 -117.1022,32.6205 -117.0895,32.6262 -117.0878,32.6483 -117.0763,32.6791 -117.0494,32.691 -116.9888,32.6442 -116.9644,32.6059 -116.9632,32.585 -116.9949,32.5823 -117.0214,32.6385 -117.0479,32.6612 -117.06,32.6604 -117.0602,32.6467 -117.0301,32.6227 -116.9807,32.5295 -116.9701,32.4991 -116.9428,32.5003 -116.7619,32.5159 -116.561,32.5321 -116.3566,32.5485 -116.0913,32.5695 -115.7569,32.5955 -115.4549,32.6184 -115.2538,32.6332 -115.0524,32.6481 -114.8763,32.6605 -114.7218,32.6714 -114.5806,32.681 -114.5806,32.6811 -114.5731,32.6816 -114.5699,32.6819 -114.5693,32.6819 -114.5671,32.6855 -114.5661,32.691 -114.5646,32.6938 -114.5631,32.6957 -114.5622,32.6976 -114.5607,32.6995 -114.5592,32.7009 -114.5565,32.7024 -114.555,32.7039 -114.5518,32.7049 -114.5475,32.7065 -114.5443,32.7067 -114.5405,32.7073 -114.5361,32.7071 -114.5311,32.7064 -114.5233,32.7032 -114.5189,32.7025 -114.5149,32.7013 -114.5115,32.6997 -114.5089,32.7002 -114.5028,32.6992 -114.4978,32.6981 -114.494,32.6982 -114.4907,32.6989 -114.4858,32.6987 -114.4814,32.698 -114.4738,32.6983 -114.4688,32.6972 -114.4609,32.6944 -114.4543,32.6929 -114.4504,32.6922 -114.45,32.7018 -114.4289,32.7028 -114.4295,32.7085 -114.4185,32.7082 -114.4187,32.7147 -114.4162,32.7148 -114.4161,32.7191 -114.4075,32.7185 -114.408,32.7267 -114.3995,32.7267 -114.3993,32.7306 -114.3895,32.7307 -114.3897,32.7371 -114.3851,32.7372 -114.3858,32.7453 -114.3851,32.7517 -114.3809,32.7592 -114.3815,32.7621 -114.3804,32.7651 -114.3785,32.7702 -114.3768,32.7721 -114.3734,32.776 -114.3705,32.778 -114.3667,32.7807 -114.3639,32.7827 -114.3595,32.7861 -114.3561,32.7889 -114.351,32.7922 -114.3488,32.7937 -114.3405,32.7967 -114.3342,32.797 -114.3199,32.8113 -114.3202,32.8177 -114.3188,32.8281 -114.3178,32.8409 -114.3169,32.8522 -114.3171,32.8618 -114.3206,32.8728 -114.3247,32.8829 -114.3261,32.8902 -114.3259,32.8971 -114.3235,32.9034 -114.3223,32.9072 -114.3215,32.9101 -114.3202,32.9131 -114.3196,32.9186 -114.3173,32.923 -114.317,32.925 -114.3159,32.9277 -114.3186,32.9347 -114.3234,32.9403 -114.3298,32.945 -114.3416,32.9511 -114.3485,32.9577 -114.3542,32.9692 -114.3567,32.9756 -114.362,32.9835 -114.37,32.9896 -114.3797,32.9937 -114.3872,32.9938 -114.401,32.9952 -114.4224,32.993 -114.434,32.9905 -114.445,32.9871 -114.4565,32.9869 -114.4685,32.9898 -114.4787,32.996 -114.4868,33.0002 -114.4922,33.0013 -114.4983,32.9991 -114.5055,32.9983 -114.5136,32.9999 -114.5169,33.0013 -114.5232,33.0101 -114.5268,33.017 -114.5293,33.0243 -114.5308,33.0284 -114.5324,33.0326 -114.5376,33.0404 -114.5402,33.0423 -114.5396,33.0449 -114.5415,33.0489 -114.5439,33.0515 -114.5469,33.0541 -114.5503,33.0562 -114.555,33.0567 -114.5568,33.0599 -114.5588,33.0749 -114.5585,33.0781 -114.5556,33.0818 -114.5559,33.0883 -114.554,33.0916 -114.5515,33.0949 -114.5484,33.0982 -114.5447,33.1007 -114.5418,33.1059 -114.5366,33.1075 -114.5353,33.11 -114.5336,33.1111 -114.5319,33.1153 -114.531,33.1176 -114.5288,33.1194 -114.5274,33.1233 -114.5258,33.1276 -114.5246,33.1332 -114.5244,33.1394 -114.5244,33.1424 -114.5246,33.1482 -114.5249,33.156 -114.5259,33.1595 -114.5269,33.1636 -114.5283,33.169 -114.5269,33.1732 -114.5272,33.1777 -114.5265,33.1828 -114.5267,33.185 -114.5265,33.1905 -114.5284,33.1934 -114.5299,33.1957 -114.5322,33.201 -114.5324,33.2053 -114.5326,33.2106 -114.5317,33.2126 -114.53,33.2163 -114.5273,33.2215 -114.5242,33.2275 -114.5242,33.2339 -114.5273,33.2392 -114.5308,33.2427 -114.5354,33.2452 -114.5422,33.2472 -114.5478,33.2492 -114.5539,33.2502 -114.5608,33.2544 -114.566,33.2569 -114.575,33.2606 -114.5763,33.2645 -114.5799,33.2676 -114.5819,33.2716 -114.5812,33.2771 -114.5803,33.2804 -114.5767,33.2833 -114.5727,33.289 -114.569,33.2914 -114.5686,33.2941 -114.5646,33.2989 -114.5612,33.3031 -114.5594,33.3065 -114.5566,33.3116 -114.5529,33.3118 -114.551,33.316 -114.5501,33.3183 -114.5509,33.3229 -114.5523,33.3264 -114.5531,33.3305 -114.5551,33.3349 -114.5576,33.3394 -114.5597,33.3452 -114.5623,33.351 -114.5655,33.3572 -114.5687,33.3621 -114.5696,33.367 -114.5723,33.3705 -114.5714,33.377 -114.5663,33.3765 -114.5547,33.3749 -114.5492,33.377 -114.5397,33.3805 -114.5347,33.3822 -114.52,33.3783 -114.5058,33.3757 -114.498,33.3778 -114.4902,33.3827 -114.4862,33.3868 -114.4842,33.3874 -114.4822,33.3952 -114.4788,33.3952 -114.4773,33.3998 -114.4757,33.4049 -114.4739,33.4105 -114.4681,33.4204 -114.4651,33.4277 -114.462,33.4398 -114.4597,33.442 -114.4579,33.445 -114.4548,33.4466 -114.4534,33.4483 -114.4482,33.4491 -114.4445,33.452 -114.4426,33.4562 -114.4402,33.4609 -114.4394,33.4651 -114.4369,33.4711 -114.4279,33.4756 -114.42,33.4799 -114.416,33.4849 -114.4106,33.4943 -114.4062,33.4996 -114.404,33.5023 -114.4024,33.5043 -114.3983,33.5091 -114.3943,33.5137 -114.3907,33.5175 -114.3865,33.5205 -114.3822,33.5221 -114.3779,33.5236 -114.3759,33.526 -114.3751,33.5301 -114.376,33.536 -114.379,33.5391 -114.3819,33.5412 -114.3848,33.5429 -114.3866,33.547 -114.3858,33.549 -114.3841,33.5533 -114.3841,33.5557 -114.384,33.5579 -114.3838,33.5629 -114.3815,33.5678 -114.3788,33.5753 -114.3775,33.5769 -114.375,33.5843 -114.3774,33.5914 -114.38,33.5974 -114.382,33.6052 -114.3789,33.6142 -114.3755,33.6187 -114.3747,33.6234 -114.3742,33.6268 -114.3717,33.6314 -114.3782,33.6365 -114.3825,33.6411 -114.3819,33.644 -114.3813,33.6463 -114.3817,33.6483 -114.3811,33.6506 -114.3771,33.656 -114.3703,33.6595 -114.3615,33.6602 -114.3551,33.6601 -114.3521,33.66 -114.3493,33.6618 -114.3478,33.6646 -114.3457,33.6686 -114.3421,33.6743 -114.3426,33.6802 -114.3438,33.6829 -114.3447,33.6869 -114.349,33.6926 -114.3527,33.6984 -114.3559,33.7055 -114.3567,33.7091 -114.3586,33.7143 -114.3566,33.7183 -114.3549,33.7218 -114.3538,33.7239 -114.351,33.7376 -114.3516,33.7451 -114.3533,33.753 -114.354,33.7559 -114.3564,33.7648 -114.3575,33.7666 -114.362,33.7733 -114.3637,33.7754 -114.3642,33.7792 -114.365,33.7862 -114.3678,33.7909 -114.366,33.7963 -114.3652,33.8049 -114.3735,33.8215 -114.3688,33.8299 -114.3674,33.8318 -114.3653,33.8347 -114.3633,33.8409 -114.3624,33.8441 -114.359,33.8502 -114.3559,33.8545 -114.3538,33.8564 -114.3515,33.8588 -114.3578,33.8625 -114.3615,33.8667 -114.3625,33.8704 -114.3625,33.8727 -114.3596,33.8762 -114.3557,33.8771 -114.3525,33.8769 -114.3505,33.8802 -114.3469,33.8834 -114.3455,33.8873 -114.3481,33.8896 -114.3526,33.8956 -114.3571,33.8972 -114.3608,33.9008 -114.368,33.9076 -114.3711,33.9151 -114.3721,33.9184 -114.3693,33.9253 -114.3647,33.931 -114.3609,33.9325 -114.3577,33.935 -114.3546,33.9369 -114.3487,33.9409 -114.346,33.9419 -114.3423,33.9434 -114.3368,33.9435 -114.3338,33.9493 -114.3308,33.9536 -114.3284,33.9591 -114.3221,33.9649 -114.3183,33.9655 -114.3129,33.9681 -114.3071,33.9691 -114.3051,33.9695 -114.304,33.9749 -114.2987,33.9768 -114.2914,33.9807 -114.2829,33.9855 -114.2777,33.9909 -114.2768,33.9941 -114.2752,33.9994 -114.2735,34.0038 -114.2717,34.008 -114.2716,34.0103 -114.2702,34.0156 -114.2696,34.0211 -114.2694,34.0235 -114.269,34.0291 -114.268,34.0354 -114.2673,34.0393 -114.2687,34.0507 -114.2646,34.0533 -114.2615,34.0612 -114.2599,34.0653 -114.256,34.0671 -114.2412,34.0737 -114.2321,34.078 -114.2264,34.0802 -114.2209,34.0823 -114.2125,34.0849 -114.2062,34.0888 -114.2019,34.0937 -114.1975,34.0977 -114.1908,34.1012 -114.1838,34.1041 -114.1773,34.1068 -114.1666,34.1102 -114.161,34.1132 -114.1568,34.1155 -114.1498,34.1192 -114.1392,34.1318 -114.1313,34.1362 -114.1252,34.1383 -114.1189,34.1405 -114.1125,34.1424 -114.1045,34.1448 -114.0991,34.1463 -114.0942,34.1478 -114.0872,34.1499 -114.0825,34.1526 -114.0795,34.1544 -114.0773,34.1561 -114.0733,34.1589 -114.0715,34.1611 -114.0692,34.1638 -114.0657,34.1678 -114.0639,34.1707 -114.0619,34.1739 -114.0595,34.1776 -114.0552,34.184 -114.0494,34.1855 -114.0405,34.1932 -114.0362,34.1956 -114.0284,34.2024 -114.0218,34.2061 -114.0185,34.208 -114.0123,34.217 -114.0076,34.2224 -114.0046,34.2282 -114.0001,34.2317 -113.9963,34.2326 -113.9934,34.2333 -113.9884,34.2345 -113.9783,34.2369 -113.977,34.2372 -113.9717,34.2386 -113.9698,34.242 -113.9711,34.2445 -113.9718,34.2469 -113.9755,34.2543 -113.978,34.2583 -113.9783,34.2624 -113.9781,34.2662 -113.978,34.2684 -113.9796,34.2726 -113.9806,34.2772 -113.9806,34.2805 -113.9844,34.2867 -113.9898,34.2933 -113.9952,34.299 -113.9999,34.3024 -114.0048,34.3094 -114.0132,34.3182 -114.0163,34.323 -114.0227,34.3278 -114.0285,34.3311 -114.0332,34.3337 -114.0389,34.3361 -114.0469,34.3374 -114.0514,34.3397 -114.0588,34.3408 -114.0619,34.346 -114.0682,34.3494 -114.0792,34.3553 -114.0857,34.359 -114.0944,34.364 -114.1051,34.3699 -114.112,34.3737 -114.1191,34.3758 -114.1332,34.3835 -114.1358,34.3875 -114.1375,34.3901 -114.1412,34.395 -114.1462,34.3987 -114.1491,34.4021 -114.1527,34.4042 -114.1605,34.4098 -114.1679,34.4113 -114.1709,34.4135 -114.1748,34.4163 -114.1773,34.4173 -114.1826,34.4206 -114.1848,34.4219 -114.1899,34.423 -114.2011,34.4248 -114.2078,34.4215 -114.2099,34.4217 -114.2122,34.4221 -114.2155,34.4227 -114.2183,34.4232 -114.2204,34.4251 -114.2221,34.4266 -114.2269,34.4307 -114.2279,34.4357 -114.2276,34.4434 -114.2262,34.4507 -114.226,34.4584 -114.2251,34.4675 -114.2224,34.4821 -114.2216,34.4862 -114.2209,34.4917 -114.2211,34.4949 -114.2218,34.4971 -114.2233,34.5025 -114.2283,34.5062 -114.2272,34.5101 -114.2291,34.5132 -114.2334,34.5189 -114.2366,34.5246 -114.2416,34.5321 -114.2477,34.5401 -114.2562,34.5497 -114.2638,34.5543 -114.2719,34.5589 -114.2751,34.5611 -114.2808,34.5649 -114.2804,34.5676 -114.2783,34.5691 -114.2761,34.5701 -114.2726,34.5707 -114.2713,34.573 -114.2689,34.5772 -114.2701,34.5804 -114.2726,34.5848 -114.2758,34.5892 -114.2771,34.5928 -114.2798,34.5986 -114.2812,34.6045 -114.2829,34.6112 -114.2856,34.6151 -114.2895,34.6204 -114.2916,34.6246 -114.2938,34.6268 -114.2956,34.6299 -114.2975,34.6365 -114.2991,34.6422 -114.3,34.6451 -114.3028,34.6547 -114.3036,34.6573 -114.3051,34.6599 -114.3076,34.6644 -114.3105,34.6697 -114.3116,34.6718 -114.3132,34.6752 -114.3146,34.678 -114.3173,34.684 -114.3249,34.6928 -114.3303,34.6988 -114.3344,34.701 -114.338,34.703 -114.3406,34.7068 -114.3443,34.7107 -114.3488,34.7119 -114.3561,34.7124 -114.362,34.7121 -114.3658,34.7136 -114.3719,34.715 -114.3768,34.7177 -114.3816,34.7203 -114.3886,34.7258 -114.3911,34.7308 -114.3963,34.7415 -114.4007,34.7472 -114.4041,34.7552 -114.4044,34.7597 -114.4094,34.7668 -114.4097,34.7718 -114.415,34.7796 -114.4121,34.7816 -114.414,34.7925 -114.4167,34.7978 -114.4215,34.8021 -114.4271,34.8037 -114.4293,34.8072 -114.4338,34.8113 -114.4432,34.8196 -114.4443,34.8215 -114.4577,34.83 -114.4658,34.8379 -114.4756,34.8476 -114.4754,34.8527 -114.4752,34.8569 -114.475,34.8603 -114.4747,34.8634 -114.4743,34.8661 -114.4736,34.8706 -114.4731,34.8739 -114.4736,34.8788 -114.4766,34.8814 -114.4769,34.8854 -114.4754,34.8905 -114.4736,34.8938 -114.4727,34.897 -114.4692,34.8994 -114.4683,34.902 -114.4678,34.9063 -114.4675,34.9096 -114.4685,34.9159 -114.4703,34.9249 -114.4729,34.9371 -114.4715,34.9457 -114.4724,34.9521 -114.4734,34.9566 -114.4762,34.9596 -114.4774,34.9616 -114.4787,34.9639 -114.479,34.9668 -114.4786,34.97 -114.4806,34.975 -114.4823,34.9812 -114.4848,34.9851 -114.4861,34.9878 -114.4875,34.9909 -114.488,34.9977 -114.4867,35.0028 -114.4843,35.0088 -114.4823,35.0126 -114.4782,35.0145 -114.4755,35.0159 -114.4689,35.0209 -114.4665,35.0221 -114.4628,35.0252 -114.4609,35.0265 -114.4576,35.0288 -114.4528,35.0322 -114.4493,35.0382 -114.4497,35.0437 -114.4516,35.0468 -114.4553,35.0507 -114.46,35.0541 -114.4654,35.0584 -114.4729,35.0612 -114.48,35.0659 -114.486,35.0706 -114.4868,35.0737 -114.4875,35.076 -114.4872,35.0796 -114.4855,35.087 -114.4841,35.0898 -114.4787,35.0932 -114.4757,35.0986 -114.4729,35.0999 -114.4678,35.1002 -114.4591,35.0994 -114.4487,35.0984 -114.438,35.0991 -114.436,35.0997 -114.4338,35.0993 -114.4287,35.1024 -114.4255,35.1053 -114.4224,35.1096 -114.4197,35.1192 -114.4185,35.1257 -114.4193,35.1293 -114.419,35.1325 -114.4192,35.1352 -114.42,35.1388 -114.4204,35.1438 -114.4212,35.1469 -114.4202,35.1492 -114.4188,35.1529 -114.4185,35.157 -114.4182,35.1598 -114.4179,35.163 -114.4175,35.1662 -114.4172,35.1698 -114.4169,35.1803 -114.4159,35.1908 -114.417,35.198 -114.4191,35.2034 -114.4231,35.2114 -114.4239,35.2154 -114.4266,35.2208 -114.4287,35.2266 -114.4285,35.2311 -114.4303,35.2333 -114.4328,35.2446 -114.4335,35.2532 -114.4353,35.2558 -114.4374,35.2603 -114.4404,35.2633 -114.4414,35.2687 -114.4431,35.2764 -114.4414,35.2842 -114.4414,35.2919 -114.4413,35.2992 -114.4413,35.3069 -114.4396,35.3138 -114.4411,35.3192 -114.4435,35.3286 -114.4497,35.3365 -114.4568,35.348 -114.4646,35.3626 -114.471,35.3728 -114.4774,35.3825 -114.4851,35.3949 -114.493,35.4104 -114.5023,35.429 -114.512,35.4449 -114.5215,35.459 -114.5232,35.4658 -114.5242,35.4725 -114.524,35.4776 -114.5196,35.4858 -114.5181,35.4889 -114.5178,35.4913 -114.5155,35.4939 -114.5125,35.4975 -114.5081,35.4994 -114.5036,35.5072 -114.5034,35.5117 -114.5039,35.5185 -114.5037,35.524 -114.5028,35.5268 -114.5014,35.5305 -114.5,35.5346 -114.5013,35.5377 -114.5026,35.54 -114.5087,35.546 -114.512,35.5513 -114.5133,35.554 -114.5123,35.5563 -114.508,35.5583 -114.5037,35.5617 -114.4955,35.5662 -114.4925,35.5714 -114.4907,35.5783 -114.4918,35.5846 -114.4955,35.5885 -114.4997,35.5919 -114.5037,35.5931 -114.5046,35.5971 -114.509,35.6028 -114.5094,35.6078 -114.5148,35.6121 -114.5215,35.6186 -114.524,35.6221 -114.5255,35.6261 -114.5252,35.6303 -114.5251,35.6357 -114.5254,35.6398 -114.522,35.6481 -114.5185,35.6547 -114.5181,35.657 -114.519,35.6606 -114.5232,35.6635 -114.528,35.6669 -114.5329,35.6722 -114.5391,35.6791 -114.5406,35.6845 -114.5404,35.6886 -114.5391,35.695 -114.5381,35.7037 -114.5368,35.7092 -114.5366,35.7143 -114.5357,35.717 -114.535,35.723 -114.5369,35.7333 -114.5403,35.7413 -114.5399,35.7509 -114.5393,35.7578 -114.5409,35.7636 -114.5446,35.768 -114.5454,35.7711 -114.5463,35.7752 -114.546,35.7793 -114.5441,35.7843 -114.542,35.7863 -114.54,35.7895 -114.539,35.7923 -114.5392,35.795 -114.5401,35.7986 -114.5441,35.8066 -114.5456,35.8111 -114.547,35.8147 -114.5455,35.8184 -114.5435,35.8212 -114.5419,35.8226 -114.5391,35.8228 -114.5368,35.8233 -114.5353,35.8252 -114.5332,35.8285 -114.5272,35.8315 -114.5156,35.8362 -114.513,35.839 -114.5126,35.8422 -114.514,35.8458 -114.5165,35.8479 -114.5225,35.8522 -114.5261,35.8543 -114.5319,35.8567 -114.5367,35.8602 -114.5409,35.8622 -114.5428,35.8658 -114.5467,35.871 -114.5493,35.8755 -114.5512,35.879 -114.5534,35.8853 -114.5537,35.8913 -114.5538,35.8935 -114.5569,35.8942 -114.5611,35.8972 -114.5665,35.9001 -114.5733,35.9075 -114.5766,35.9128 -114.5774,35.9159 -114.578,35.9245 -114.5788,35.9277 -114.5802,35.9312 -114.5831,35.9397 -114.5856,35.9423 -114.5897,35.9508 -114.5906,35.9557 -114.5909,35.9598 -114.5906,35.963 -114.5912,35.9707 -114.5864,35.975 -114.58,35.9812 -114.5721,35.9863 -114.5693,35.9899 -114.568,35.9959 -114.5687,36.0045 -114.572,36.0112 -114.5776,36.0168 -114.5814,36.0225 -114.5823,36.0266 -114.5844,36.0319 -114.5836,36.0365 -114.5831,36.0438 -114.5803,36.0526 -114.5756,36.0583 -114.5679,36.0642 -114.5644,36.0681 -114.5592,36.0712 -114.5442,36.0768 -114.5383,36.0803 -114.5336,36.0831 -114.5303,36.0848 -114.5226,36.0881 -114.5188,36.0887 -114.5129,36.0943 -114.506,36.0964 -114.5015,36.0968 -114.498,36.0971 -114.494,36.0992 -114.4912,36.1006 -114.489,36.1011 -114.4771,36.1058 -114.4747,36.1068 -114.468,36.1079 -114.4618,36.1078 -114.4505,36.1053 -114.4448,36.1032 -114.4378,36.1066 -114.4346,36.1082 -114.4293,36.1103 -114.4184,36.1157 -114.4165,36.1164 -114.4076,36.1179 -114.4016,36.1188 -114.3944,36.1208 -114.3908,36.1205 -114.3856,36.1212 -114.377,36.1211 -114.3697,36.1191 -114.3606,36.1166 -114.3533,36.1133 -114.3472,36.11 -114.336,36.1034 -114.3264,36.0991 -114.3231,36.0968 -114.3181,36.0931 -114.3131,36.0907 -114.3043,36.0914 -114.3004,36.0934 -114.2976,36.0945 -114.2925,36.0947 -114.2846,36.096 -114.28,36.0948 -114.2748,36.0951 -114.2717,36.0946 -114.2674,36.0949 -114.2641,36.096 -114.2608,36.098 -114.2587,36.1008 -114.2533,36.1056 -114.2447,36.1119 -114.2388,36.1136 -114.2353,36.1146 -114.2272,36.117 -114.2211,36.1146 -114.2131,36.1139 -114.2092,36.1125 -114.2002,36.1082 -114.1907,36.1034 -114.1829,36.0965 -114.1808,36.0923 -114.1787,36.0877 -114.1731,36.0849 -114.167,36.0811 -114.1625,36.0774 -114.1598,36.0733 -114.1572,36.0664 -114.1562,36.0632 -114.1534,36.0609 -114.1518,36.0581 -114.1503,36.0531 -114.1504,36.0494 -114.1528,36.0463 -114.1556,36.0455 -114.1559,36.0376 -114.1569,36.0344 -114.1575,36.0322 -114.1555,36.0282 -114.1518,36.0268 -114.1474,36.0231 -114.1378,36.0197 -114.1311,36.0172 -114.1249,36.0139 -114.1177,36.0083 -114.1122,36.0032 -114.1067,35.9994 -114.1,35.9952 -114.0922,35.99 -114.0799,35.9843 -114.0736,35.9803 -114.0696,35.9807 -114.0677,35.9801 -114.0639,35.9815 -114.0604,35.9816 -114.0577,35.9826 -114.0531,35.9827 -114.0499,35.9838 -114.0469,35.9842 -114.041,35.9871 -114.0388,35.9877 -114.0325,35.99 -114.0273,35.993 -114.0209,35.9947 -114.0141,35.9959 -114.0084,35.9962 -114.0004,35.9969 -113.9923,35.9986 -113.9861,36.0011 -113.9852,36.0048 -113.9822,36.0103 -113.9755,36.0302 -113.972,36.0458 -113.9677,36.0659 -113.9626,36.083 -113.9563,36.0914 -113.9509,36.0962 -113.9473,36.1013 -113.9318,36.117 -113.9209,36.1334 -113.9117,36.1501 -113.9052,36.1554 -113.9015,36.1587 -113.8976,36.1607 -113.8949,36.1635 -113.8929,36.1668 -113.8925,36.17 -113.8922,36.1745 -113.8921,36.1895 -113.8944,36.2062 -113.8929,36.2277 -113.8932,36.2477 -113.8933,36.2494 -113.8915,36.2654 -113.8938,36.2839 -113.8929,36.304 -113.8928,36.328 -113.8931,36.3814 -113.8934,36.422 -113.8924,36.5878 -113.8943,36.6413 -113.8927,36.6941 -113.8937,36.8079 -113.8902,36.8078 -113.8906,36.8812 -113.8908,36.9308 -113.8908,36.9643 -113.891,37.2088 -113.8944,37.5169 -113.8937,37.5645 -113.8945,37.7772 -113.8944,37.9259 -113.8937,38.0592 -113.8937,38.1036 -113.8938,38.232 -113.8938,38.3063 -113.8931,38.397 -113.8928,38.4913 -113.8915,38.5371 -113.891,38.5643 -113.8888,38.6055 -113.8912,38.6337 -113.8907,38.645 -113.8918,38.7634 -113.8904,38.8699 -113.8894,38.9837 -113.8882,39.0857 -113.888,39.2077 -113.8882,39.3025 -113.8884,39.3714 -113.8881,39.4226 -113.8865,39.5047 -113.8867,39.5428 -113.8872,39.6054 -113.8867,39.6467 -113.8864,39.6965 -113.8859,39.7523 -113.8862,39.8172 -113.8873,39.8485 -113.8863,39.8748 -113.8875,39.917 -113.8864,39.9288 -113.886,39.9392 -113.8857,39.9909 -113.8854,40.0403 -113.8845,40.0771 -113.8837,40.1696 -113.8842,40.2889 -113.8845,40.3406 -113.8866,40.3819 -113.8866,40.4686 -113.8859,40.5448 -113.8856,40.6092 -113.8862,40.6691 -113.8858,40.6868 -113.885,40.7191 -113.8865,40.8062 -113.8862,40.8402 -113.8858,40.8956 -113.8855,40.912 -113.8846,40.9637 -113.8854,41.1921 -113.8852,41.3551 -113.8852,41.3834 -113.8848,41.5122 -113.8859,41.7193 -113.886,41.8315 -113.8866,41.9356 -113.8855,41.9613 -114.1154,41.9585 -114.4674,41.9587 -114.8701,41.9591 -115.8254,41.9579 -116.0081,41.9595 -116.1434,41.9607 -116.2199,41.9613 -116.2798,41.9614 -116.5151,41.9607 -116.5231,41.9606 -116.6601,41.959 -116.8387,41.957 -116.8658,41.9551 -116.8652,41.9609 -116.8655,42.3696 -118.0529,42.3647 -118.0553,42.8706 -118.0653,42.8705 -118.0661,43.1307 -118.0674,43.1689 -118.0651,43.2854 -118.0668,43.4187 -118.0733,43.7428 -118.0669,43.7433 -118.0715,43.996 -118.0723,44.0808 -118.0711,44.084 -118.0701,44.0945 -118.0722,44.1063 -118.0737,44.1177 -118.0751,44.13 -118.0766,44.14 -118.0748,44.1441 -118.076,44.2125 -118.0422,44.2128 -118.0405,44.2256 -117.9978,44.2273 -117.9989,44.2546 -117.9798,44.2566 -117.98,44.2712 -117.9577,44.2732 -117.9572,44.2851 -117.9349,44.2871 -117.9366,44.3126 -117.9175,44.3141 -117.9189,44.3264 -117.8979,44.3289 -117.8975,44.3457 -117.8777,44.3473 -117.878,44.3696 -117.857,44.3707 -117.8579,44.3889 -117.8099,44.392 -117.8101,44.4048 -117.4371,44.406 -117.4345,44.3919 -117.4108,44.3911 -117.4113,44.3792 -117.3749,44.3776 -117.3735,44.3643 -117.3524,44.3631 -117.3503,44.3462 -117.3318,44.3458 -117.3293,44.2647 -117.1099,44.2664 -117.0637,44.2667 -117.0592,44.2727 -117.0542,44.2809 -117.0497,44.2891 -117.0478,44.2978 -117.0478,44.3055 -117.053,44.3164 -117.062,44.3246 -117.0735,44.3328 -117.0786,44.3401 -117.0812,44.3474 -117.0832,44.3561 -117.0787,44.367 -117.073,44.378 -117.0673,44.3862 -117.0654,44.3894 -117.0635,44.3939 -117.0635,44.3989 -117.0629,44.4053 -117.0642,44.4108 -117.0674,44.4185 -117.0725,44.4263 -117.0738,44.4295 -117.0738,44.4331 -117.0706,44.4391 -117.0662,44.4418 -117.0611,44.4473 -117.0566,44.4496 -117.0502,44.4519 -117.0464,44.456 -117.0425,44.4614 -117.0415,44.464 -117.0406,44.466 -117.0362,44.4756 -117.0346,44.477 -117.0304,44.4797 -117.0202,44.4829 -117.0151,44.4852 -117.0093,44.4884 -117.001,44.4934 -116.9965,44.4971 -116.9914,44.5007 -116.9895,44.5048 -116.9901,44.5103 -116.9902,44.5162 -116.9921,44.5212 -116.9902,44.5254 -116.9876,44.5285 -116.9831,44.5313 -116.9799,44.5331 -116.9787,44.5349 -116.9767,44.5386 -116.9761,44.5432 -116.9697,44.5664 -116.964,44.5765 -116.9595,44.586 -116.9537,44.592 -116.9486,44.5965 -116.9467,44.6016 -116.9454,44.6098 -116.9403,44.6235 -116.9378,44.6285 -116.932,44.6353 -116.9301,44.6422 -116.9269,44.6513 -116.9256,44.6554 -116.9198,44.6591 -116.9128,44.6636 -116.9108,44.6682 -116.9089,44.6791 -116.907,44.6828 -116.9012,44.6933 -116.8961,44.6997 -116.8935,44.7056 -116.8858,44.7152 -116.8755,44.7179 -116.8537,44.7229 -116.8402,44.7243 -116.828,44.7302 -116.8196,44.7339 -116.8125,44.7375 -116.7977,44.7421 -116.7913,44.7462 -116.7862,44.7494 -116.781,44.7572 -116.7784,44.7663 -116.7765,44.7736 -116.7733,44.7781 -116.7688,44.7841 -116.7662,44.7891 -116.7623,44.7914 -116.7559,44.795 -116.7507,44.795 -116.7488,44.8009 -116.7475,44.8101 -116.7436,44.8146 -116.7346,44.8183 -116.7243,44.8265 -116.7133,44.8347 -116.7082,44.8438 -116.7017,44.8547 -116.6939,44.8639 -116.6849,44.8762 -116.6817,44.8862 -116.6816,44.8981 -116.6906,44.9145 -116.6938,44.9209 -116.6919,44.9273 -116.6854,44.93 -116.6809,44.9346 -116.6783,44.9373 -116.6789,44.9424 -116.6822,44.9424 -116.6912,44.941 -116.6944,44.9378 -116.6989,44.9401 -116.7021,44.946 -116.697,44.9565 -116.6944,44.9661 -116.6995,44.9766 -116.7008,44.983 -116.6937,44.9885 -116.684,44.9944 -116.6768,45.0017 -116.6736,45.0072 -116.6665,45.009 -116.6607,45.0122 -116.6536,45.0158 -116.6471,45.0218 -116.6445,45.0263 -116.6406,45.03 -116.6361,45.0336 -116.6341,45.0368 -116.6335,45.0418 -116.6334,45.0523 -116.6283,45.0587 -116.6244,45.0656 -116.6172,45.0692 -116.6075,45.0724 -116.6056,45.0751 -116.603,45.0865 -116.5952,45.0934 -116.5926,45.0965 -116.5874,45.1007 -116.5829,45.1034 -116.5783,45.1143 -116.5763,45.1225 -116.5718,45.1276 -116.5685,45.1344 -116.5659,45.1408 -116.562,45.1508 -116.56,45.1613 -116.5593,45.17 -116.558,45.1814 -116.556,45.1887 -116.5527,45.196 -116.5507,45.2006 -116.5488,45.2065 -116.5468,45.212 -116.5435,45.2184 -116.5396,45.223 -116.5351,45.2284 -116.5312,45.2362 -116.5292,45.2458 -116.5291,45.254 -116.5284,45.2627 -116.5271,45.2736 -116.5251,45.2805 -116.5218,45.2928 -116.5185,45.3015 -116.514,45.3074 -116.5062,45.312 -116.4984,45.3183 -116.4931,45.3297 -116.4872,45.3393 -116.48,45.3484 -116.4722,45.3576 -116.4624,45.3676 -116.4552,45.3744 -116.45,45.3794 -116.4448,45.3863 -116.4434,45.3954 -116.4382,45.4032 -116.429,45.4127 -116.4199,45.4191 -116.412,45.4259 -116.4068,45.4396 -116.4073,45.4506 -116.4008,45.4597 -116.3903,45.4716 -116.3818,45.4789 -116.3694,45.4889 -116.3478,45.5039 -116.3393,45.5134 -116.3327,45.5221 -116.3248,45.5321 -116.3209,45.5394 -116.3156,45.5476 -116.3167,45.5723 -116.3212,45.5774 -116.3257,45.582 -116.3296,45.5888 -116.3348,45.5943 -116.3425,45.604 -116.3483,45.6113 -116.3535,45.6186 -116.3612,45.6306 -116.365,45.6425 -116.3643,45.6498 -116.3655,45.6608 -116.3701,45.6672 -116.3745,45.6768 -116.3784,45.6823 -116.3836,45.6878 -116.3914,45.6974 -116.3952,45.7029 -116.3998,45.708 -116.4069,45.7135 -116.4121,45.7153 -116.418,45.7176 -116.4251,45.7204 -116.433,45.72 -116.4414,45.726 -116.4538,45.7297 -116.4662,45.7329 -116.4746,45.7352 -116.4896,45.7412 -116.5007,45.7467 -116.5111,45.7559 -116.5208,45.7618 -116.5306,45.7692 -116.5358,45.7738 -116.5403,45.7774 -116.5462,45.7839 -116.5495,45.7852 -116.5625,45.7876 -116.571,45.788 -116.5828,45.7867 -116.5919,45.7844 -116.6108,45.7845 -116.62,45.7858 -116.6291,45.7932 -116.6343,45.8005 -116.6349,45.8051 -116.6375,45.8119 -116.6401,45.8165 -116.646,45.8216 -116.6493,45.8248 -116.6525,45.8316 -116.6584,45.8348 -116.6623,45.839 -116.6688,45.8417 -116.6773,45.8472 -116.6812,45.8491 -116.689,45.8541 -116.693,45.8605 -116.6969,45.8651 -116.7027,45.8697 -116.706,45.8797 -116.7079,45.8889 -116.7138,45.8962 -116.7197,45.9077 -116.7255,45.9145 -116.7295,45.92 -116.741,45.9332 -116.7419,45.9352 -116.7425,45.9402 -116.7445,45.9466 -116.7471,45.948 -116.7523,45.9512 -116.7589,45.9539 -116.7607,45.9558 -116.7634,45.959 -116.7654,45.9613 -116.7667,45.9645 -116.768,45.9672 -116.7687,45.9704 -116.77,45.9732 -116.7719,45.9768 -116.7752,45.9805 -116.7772,45.9841 -116.7778,45.9887 -116.7791,45.9951 -116.7811,45.9974 -116.787,46.0011 -116.7929,46.0061 -116.7987,46.0185 -116.8001,46.0231 -116.8007,46.0267 -116.804,46.0318 -116.8066,46.034 -116.8118,46.0382 -116.8158,46.0414 -116.8197,46.0423 -116.8243,46.0432 -116.8276,46.0432 -116.8309,46.0437 -116.8328,46.0441 -116.8335,46.0473 -116.8328,46.0496 -116.8289,46.0519 -116.8243,46.0547 -116.8204,46.0569 -116.8171,46.0579 -116.8138,46.0592 -116.8099,46.0615 -116.8079,46.0634 -116.8059,46.0666 -116.8046,46.073 -116.8046,46.0766 -116.8033,46.0798 -116.8013,46.0858 -116.7994,46.0904 -116.7954,46.094 -116.7895,46.0991 -116.7882,46.1068 -116.7869,46.1119 -116.7842,46.1155 -116.781,46.1197 -116.7783,46.1247 -116.7757,46.127 -116.7757,46.1316 -116.7796,46.1357 -116.7855,46.1421 -116.7921,46.1476 -116.796,46.1531 -116.8105,46.1604 -116.8138,46.1636 -116.8151,46.17 -116.817,46.1751 -116.817,46.1787 -116.8151,46.1966 -116.8157,46.203 -116.817,46.209 -116.819,46.2154 -116.8216,46.2204 -116.8256,46.2264 -116.8302,46.2305 -116.8341,46.2342 -116.8374,46.2406 -116.8394,46.2461 -116.8407,46.2516 -116.8413,46.2575 -116.8433,46.2621 -116.8479,46.2685 -116.8512,46.2703 -116.8565,46.2722 -116.8611,46.2768 -116.8644,46.2855 -116.8668,46.2885 -116.8683,46.2905 -116.8703,46.2946 -116.8729,46.2983 -116.8742,46.3015 -116.8808,46.3061 -116.8867,46.3074 -116.8933,46.3084 -116.8993,46.3093 -116.9032,46.3097 -116.9104,46.3148 -116.9105,46.3194 -116.9078,46.3271 -116.9059,46.3326 -116.9052,46.3391 -116.8999,46.3427 -116.8907,46.3546 -116.8894,46.3597 -116.8894,46.3675 -116.8881,46.3739 -116.8855,46.3785 -116.8842,46.3826 -116.8835,46.3867 -116.8835,46.3918 -116.8848,46.3941 -116.8882,46.5027 -116.5548,46.4996 -116.5521,46.5051 -116.5508,46.5097 -116.5495,46.5157 -116.5481,46.5211 -116.5461,46.5285 -116.5434,46.5344 -116.5408,46.5376 -116.5328,46.544 -116.5262,46.5491 -116.5202,46.5532 -116.5176,46.5568 -116.5149,46.56 -116.5036,46.5646 -116.4937,46.5692 -116.4891,46.5714 -116.4857,46.5774 -116.4771,46.581 -116.4698,46.5856 -116.4632,46.587 -116.4539,46.5865 -116.4534,46.5866 -116.4467,46.5878 -116.3092,46.5878 -116.3023,46.4594 -116.2904,46.4575 -116.2759,46.4566 -116.2198,46.4591 -116.2182,46.4335 -116.2181,46.432 -116.2232,46.432 -116.2267,46.4321 -116.2346,46.4303 -116.2412,46.4296 -116.2486,46.4288 -116.2518,46.4285 -116.2557,46.4276 -116.2577,46.4262 -116.2597,46.4244 -116.2584,46.4203 -116.2539,46.4116 -116.2487,46.4037 -116.2448,46.3982 -116.2383,46.3913 -116.2379,46.3911 -116.2329,46.3878 -116.2284,46.3849 -116.2166,46.3802 -116.2081,46.3756 -116.2086,46.3731 -116.2095,46.3683 -116.2102,46.361 -116.207,46.3509 -116.2064,46.3444 -116.208,46.3409 -116.2085,46.3399 -116.2093,46.3391 -116.2131,46.3358 -116.2138,46.3307 -116.2129,46.3269 -116.2125,46.3252 -116.2124,46.3232 -116.212,46.317 -116.214,46.311 -116.2232,46.3088 -116.2311,46.3088 -116.2476,46.3103 -116.2588,46.3112 -116.2647,46.3103 -116.2805,46.3067 -116.2884,46.3095 -116.2936,46.3118 -116.3015,46.3123 -116.3134,46.311 -116.3167,46.3099 -116.3227,46.308 -116.3246,46.3074 -116.3267,46.3057 -116.3293,46.3037 -116.3332,46.3001 -116.3359,46.2941 -116.3379,46.2891 -116.3393,46.2859 -116.5564,46.287 -116.5565,46.2868 -116.5604,46.2806 -116.5617,46.2733 -116.5598,46.2632 -116.5611,46.2581 -116.5579,46.2522 -116.5506,46.2494 -116.5421,46.2434 -116.5448,46.2366 -116.5428,46.2306 -116.533,46.2237 -116.5291,46.2214 -116.5238,46.2173 -116.5219,46.2127 -116.5219,46.2077 -116.5226,46.2054 -116.5259,46.2022 -116.5325,46.199 -116.5397,46.194 -116.5411,46.1908 -116.5421,45.9577 -116.5382,45.9564 -116.5231,45.9568 -116.5088,45.9535 -116.4989,45.9517 -116.4852,45.9571 -116.4841,45.9645 -116.4838,45.9649 -116.4838,45.9667 -116.4877,45.9754 -116.4857,45.9805 -116.4857,45.9864 -116.4839,45.9891 -116.4824,45.9915 -116.4771,45.9951 -116.4692,45.9965 -116.4614,45.996 -116.4588,45.9941 -116.4561,45.9946 -116.4555,45.9923 -116.4542,45.9905 -116.4529,45.9813 -116.4536,45.9786 -116.4549,45.9754 -116.4563,45.9731 -116.455,45.9712 -116.4543,45.9708 -116.451,45.9703 -116.4471,45.9698 -116.4425,45.9694 -116.436,45.9689 -116.4301,45.9666 -116.4242,45.9652 -116.4177,45.9629 -116.4131,45.9606 -116.4099,45.9578 -116.4066,45.9546 -116.3962,45.9431 -116.3936,45.9399 -116.3897,45.9381 -116.3877,45.9376 -116.3858,45.9367 -116.3832,45.9362 -116.3812,45.9358 -116.3779,45.9362 -116.376,45.9367 -116.3727,45.9371 -116.3688,45.938 -116.3629,45.9389 -116.3556,45.9412 -116.3511,45.9416 -116.3432,45.943 -116.336,45.9434 -116.3281,45.9429 -116.3196,45.9419 -116.3066,45.9373 -116.3007,45.935 -116.2961,45.9327 -116.2922,45.9295 -116.2896,45.9267 -116.2858,45.9221 -116.2825,45.9153 -116.2729,45.8951 -116.2703,45.8905 -116.2697,45.8873 -116.2671,45.8836 -116.2652,45.8813 -116.2639,45.8799 -116.2613,45.8786 -116.2587,45.8781 -116.2567,45.8785 -116.2548,45.8776 -116.2541,45.8767 -116.2548,45.8758 -116.2548,45.874 -116.2541,45.8712 -116.2522,45.8694 -116.247,45.8671 -116.2444,45.8661 -116.2411,45.8666 -116.2398,45.8661 -116.2378,45.8675 -116.2372,45.8688 -116.2352,45.8693 -116.2326,45.8688 -116.23,45.8693 -116.2274,45.8688 -116.2084,45.8646 -116.2013,45.8618 -116.1935,45.859 -116.1883,45.8558 -116.1824,45.853 -116.172,45.8507 -116.1674,45.8484 -116.1622,45.8461 -116.1603,45.8433 -116.1564,45.8396 -116.1551,45.8364 -116.1525,45.8323 -116.1506,45.8291 -116.1468,45.8236 -116.1429,45.8194 -116.1409,45.8176 -116.1397,45.8093 -116.1398,45.8039 -116.1425,45.797 -116.1438,45.7911 -116.1472,45.7856 -116.1492,45.7815 -116.1545,45.771 -116.1565,45.7655 -116.1566,45.76 -116.1586,45.755 -116.1586,45.7504 -116.1619,45.744 -116.1639,45.7408 -116.1653,45.7367 -116.1673,45.7271 -116.1688,45.7171 -116.1675,45.7111 -116.1663,45.7066 -116.163,45.7029 -116.1592,45.6987 -116.1572,45.6955 -116.1566,45.6928 -116.1566,45.6914 -116.1573,45.6896 -116.158,45.6868 -116.1593,45.685 -116.1606,45.6814 -116.162,45.6759 -116.162,45.6718 -116.1595,45.6681 -116.1538,45.6507 -116.1525,45.6475 -116.1525,45.6466 -116.1532,45.6447 -116.1539,45.6438 -116.1558,45.6416 -116.1585,45.6384 -116.1618,45.6343 -116.1624,45.6324 -116.1599,45.6306 -116.156,45.6297 -116.1527,45.6283 -116.1469,45.6273 -116.1404,45.6264 -116.1338,45.6259 -116.1326,45.6241 -116.1319,45.6236 -116.13,45.6208 -116.1307,45.6199 -116.1313,45.6186 -116.132,45.6172 -116.1327,45.6154 -116.1353,45.6117 -116.136,45.609 -116.1353,45.6072 -116.1341,45.6049 -116.1328,45.6035 -116.127,45.5998 -116.127,45.5957 -116.1277,45.5943 -116.1303,45.5939 -116.1335,45.5934 -116.1388,45.593 -116.1433,45.5903 -116.144,45.5885 -116.1447,45.5871 -116.1447,45.5862 -116.144,45.5857 -116.1428,45.5821 -116.1415,45.5839 -116.1369,45.5825 -116.1343,45.5815 -116.1317,45.5802 -116.1285,45.5797 -116.1265,45.5788 -116.1252,45.5774 -116.1233,45.5751 -116.1214,45.5723 -116.1208,45.5691 -116.1202,45.5655 -116.1208,45.5632 -116.1222,45.5618 -116.1248,45.5605 -116.1294,45.5568 -116.1333,45.5523 -116.1445,45.5405 -116.1459,45.5368 -116.1479,45.5318 -116.1466,45.529 -116.146,45.5267 -116.146,45.5249 -116.1454,45.5231 -116.1454,45.5208 -116.1448,45.5185 -116.1461,45.5112 -116.1474,45.5098 -116.1501,45.5067 -116.1527,45.5021 -116.1534,45.4971 -116.1541,45.4957 -116.1535,45.493 -116.1528,45.4916 -116.1496,45.4879 -116.1484,45.4852 -116.1445,45.476 -116.1446,45.4691 -116.1453,45.4678 -116.1466,45.466 -116.1486,45.4637 -116.1512,45.4619 -116.1538,45.4605 -116.1571,45.4587 -116.1597,45.4569 -116.161,45.4546 -116.1611,45.4509 -116.1598,45.4496 -116.1605,45.4464 -116.1579,45.4418 -116.1567,45.4336 -116.1561,45.4253 -116.1568,45.4217 -116.1588,45.4176 -116.1621,45.413 -116.1634,45.4084 -116.1628,45.4071 -116.1615,45.4057 -116.1589,45.4043 -116.1551,45.4002 -116.1512,45.3947 -116.15,45.3887 -116.1507,45.3823 -116.154,45.3782 -116.1508,45.3787 -116.141,45.3782 -116.1293,45.3781 -116.1222,45.3776 -116.1131,45.3766 -116.1086,45.3771 -116.1015,45.3752 -116.0944,45.3729 -116.0892,45.3701 -116.0834,45.3664 -116.0776,45.3632 -116.0724,45.3609 -116.0634,45.359 -116.0569,45.3585 -116.0523,45.3585 -116.0465,45.3594 -116.0406,45.3607 -116.038,45.363 -116.036,45.3639 -116.0295,45.3684 -116.0275,45.3707 -116.0236,45.3743 -116.0203,45.3757 -116.0177,45.3766 -116.0138,45.3774 -116.0099,45.3774 -116.004,45.3801 -115.9995,45.3815 -115.9923,45.3828 -115.9878,45.3837 -115.9832,45.3836 -115.9787,45.3823 -115.9761,45.3809 -115.9735,45.379 -115.9723,45.3758 -115.971,45.3731 -115.9717,45.3703 -115.9711,45.3685 -115.9646,45.3652 -115.9601,45.3638 -115.9517,45.3629 -115.9478,45.3638 -115.9452,45.3651 -115.9412,45.3674 -115.9367,45.3687 -115.9321,45.3691 -115.9269,45.3714 -115.9197,45.3741 -115.9106,45.3781 -115.9015,45.3813 -115.8956,45.3831 -115.8885,45.383 -115.88,45.3834 -115.8755,45.3834 -115.8689,45.3852 -115.8663,45.3851 -115.8585,45.386 -115.8442,45.3877 -115.8318,45.3922 -115.826,45.394 -115.8214,45.3958 -115.8161,45.3994 -115.8122,45.403 -115.8082,45.4062 -115.7997,45.4102 -115.7939,45.4129 -115.7867,45.4152 -115.7808,45.4165 -115.7743,45.4173 -115.7684,45.4182 -115.7632,45.4182 -115.7568,45.4172 -115.749,45.4167 -115.7405,45.4162 -115.7353,45.4157 -115.7276,45.4151 -115.7152,45.4155 -115.7042,45.4168 -115.6924,45.4176 -115.6859,45.4198 -115.6813,45.4211 -115.6742,45.4238 -115.6611,45.4251 -115.6533,45.4264 -115.6442,45.4268 -115.639,45.4263 -115.6345,45.4262 -115.6306,45.4244 -115.6268,45.4229 -115.6222,45.4206 -115.6036,45.4109 -115.5991,45.409 -115.5946,45.4057 -115.5914,45.4053 -115.5849,45.4057 -115.5738,45.4055 -115.5615,45.4045 -115.5544,45.4035 -115.5427,45.403 -115.5362,45.4029 -115.5291,45.4024 -115.5252,45.4019 -115.5207,45.4 -115.5168,45.3986 -115.5123,45.3958 -115.5104,45.3935 -115.5085,45.393 -115.504,45.3902 -115.5008,45.3879 -115.4969,45.3856 -115.4924,45.3833 -115.4834,45.3804 -115.4802,45.3786 -115.4764,45.3763 -115.4738,45.3744 -115.47,45.3707 -115.4681,45.3679 -115.4649,45.3629 -115.4598,45.3596 -115.4534,45.3582 -115.4475,45.3577 -115.4424,45.3572 -115.4371,45.3585 -115.4346,45.3566 -115.432,45.3557 -115.4314,45.3552 -115.4256,45.3538 -115.4197,45.3533 -115.4139,45.3509 -115.4075,45.3499 -115.3997,45.3508 -115.3932,45.3512 -115.3893,45.3516 -115.3867,45.3515 -115.3841,45.3506 -115.3822,45.3488 -115.3718,45.3468 -115.368,45.3459 -115.359,45.3421 -115.3525,45.3393 -115.3468,45.3365 -115.3455,45.3351 -115.3448,45.336 -115.3441,45.3383 -115.3434,45.3415 -115.342,45.3451 -115.34,45.3478 -115.3367,45.3501 -115.3315,45.3523 -115.3275,45.3555 -115.3255,45.3577 -115.3248,45.3605 -115.3248,45.3632 -115.3227,45.3664 -115.3188,45.3682 -115.3142,45.3704 -115.3089,45.3735 -115.3062,45.3785 -115.3042,45.3822 -115.3041,45.3867 -115.3047,45.3899 -115.3,45.3949 -115.296,45.3976 -115.2921,45.4012 -115.2842,45.4062 -115.2703,45.4161 -115.2538,45.4259 -115.2499,45.4282 -115.2446,45.4299 -115.2361,45.4316 -115.2309,45.4334 -115.2263,45.4366 -115.223,45.4365 -115.2204,45.436 -115.2172,45.4355 -115.214,45.4341 -115.2101,45.4345 -115.2048,45.4358 -115.1989,45.4376 -115.1937,45.4384 -115.1898,45.4393 -115.1871,45.4434 -115.1845,45.4452 -115.1812,45.4456 -115.1766,45.4483 -115.1765,45.4524 -115.1751,45.4556 -115.1725,45.4578 -115.1691,45.4601 -115.1652,45.4637 -115.1624,45.4682 -115.1604,45.471 -115.1603,45.4746 -115.1589,45.4782 -115.1576,45.4805 -115.1536,45.4841 -115.1489,45.4877 -115.143,45.4908 -115.1377,45.4935 -115.1305,45.4953 -115.124,45.4952 -115.1182,45.4956 -115.1129,45.4973 -115.1096,45.4987 -115.1057,45.5013 -115.1024,45.504 -115.0971,45.5058 -115.0912,45.5071 -115.0866,45.508 -115.0859,45.5098 -115.0865,45.5125 -115.0851,45.5157 -115.0825,45.518 -115.0759,45.5202 -115.072,45.5219 -115.0687,45.5237 -115.0653,45.5264 -115.0594,45.5291 -115.0522,45.5295 -115.0457,45.5294 -115.034,45.5288 -115.0256,45.5286 -115.021,45.5281 -115.0171,45.5276 -115.0159,45.5267 -115.0146,45.5253 -115.0121,45.5234 -115.0108,45.522 -115.0096,45.5197 -115.007,45.5179 -115.0058,45.516 -115.0038,45.5146 -115.0013,45.5118 -114.9923,45.5076 -114.9859,45.5034 -114.9725,45.4968 -114.9648,45.4935 -114.9564,45.4911 -114.9493,45.4892 -114.9428,45.4877 -114.9363,45.4867 -114.9273,45.4848 -114.9195,45.4833 -114.915,45.4823 -114.9099,45.4795 -114.9054,45.4771 -114.8997,45.4729 -114.8938,45.4724 -114.8925,45.4719 -114.8912,45.4724 -114.888,45.4728 -114.8854,45.4732 -114.8814,45.474 -114.8775,45.4744 -114.873,45.4744 -114.8697,45.4734 -114.8653,45.4715 -114.8588,45.4701 -114.8555,45.47 -114.8491,45.4681 -114.8453,45.4653 -114.8409,45.4611 -114.8364,45.4587 -114.8306,45.4577 -114.8267,45.4568 -114.8241,45.4549 -114.8198,45.4494 -114.8122,45.441 -114.8059,45.4345 -114.7976,45.4298 -114.7893,45.426 -114.7823,45.4223 -114.7746,45.4167 -114.7721,45.4148 -114.7715,45.4139 -114.7657,45.4129 -114.7585,45.4118 -114.754,45.4109 -114.7521,45.409 -114.7503,45.4067 -114.744,45.3993 -114.7389,45.3955 -114.7318,45.3941 -114.7254,45.3926 -114.7196,45.3902 -114.7184,45.3888 -114.7178,45.387 -114.7146,45.3837 -114.7134,45.3801 -114.7102,45.38 -114.707,45.3777 -114.6935,45.3747 -114.6883,45.3737 -114.6826,45.3709 -114.6788,45.3667 -114.6673,45.3615 -114.6609,45.3573 -114.6474,45.3534 -114.6404,45.3515 -114.6358,45.3509 -114.6241,45.3521 -114.6163,45.3538 -114.598,45.3572 -114.5914,45.3593 -114.591,45.3595 -114.5996,45.3663 -114.6053,45.3728 -114.6064,45.3788 -114.6055,45.3838 -114.6074,45.3866 -114.6099,45.3889 -114.6151,45.3904 -114.6196,45.3913 -114.6273,45.3942 -114.6363,45.3962 -114.6453,45.4 -114.6463,45.4064 -114.6416,45.4132 -114.6374,45.4213 -114.6384,45.4305 -114.6386,45.4429 -114.6358,45.4488 -114.6317,45.4578 -114.6282,45.4623 -114.621,45.465 -114.6106,45.4662 -114.5983,45.4623 -114.5881,45.4571 -114.578,45.4496 -114.5722,45.4472 -114.5677,45.4458 -114.5566,45.4465 -114.5489,45.445 -114.5412,45.4412 -114.5362,45.4366 -114.5324,45.4328 -114.5247,45.43 -114.5085,45.4292 -114.5017,45.4369 -114.4976,45.4446 -114.492,45.4546 -114.4865,45.4618 -114.4836,45.4722 -114.4775,45.479 -114.4637,45.4824 -114.4453,45.4867 -114.4355,45.4897 -114.4313,45.4969 -114.4278,45.5033 -114.4225,45.5068 -114.4072,45.5148 -114.4071,45.518 -114.4055,45.5257 -114.402,45.5343 -114.3998,45.5398 -114.3969,45.5498 -114.3928,45.5543 -114.3901,45.5575 -114.3873,45.5624 -114.3941,45.5703 -114.3998,45.575 -114.4062,45.5797 -114.4099,45.5848 -114.411,45.5903 -114.4037,45.5943 -114.3931,45.6 -114.3852,45.6008 -114.3753,45.6038 -114.372,45.6061 -114.3667,45.6087 -114.3593,45.6154 -114.3533,45.6172 -114.3481,45.6184 -114.3446,45.6234 -114.3476,45.6308 -114.3507,45.6354 -114.357,45.6401 -114.3535,45.6474 -114.3481,45.6532 -114.3446,45.6595 -114.3456,45.6655 -114.35,45.6715 -114.3564,45.6744 -114.3635,45.6764 -114.3679,45.6796 -114.3749,45.6843 -114.3794,45.6872 -114.3813,45.689 -114.3855,45.6978 -114.3878,45.7065 -114.3883,45.712 -114.392,45.7162 -114.4002,45.7237 -114.406,45.7261 -114.4099,45.7284 -114.4078,45.7321 -114.3983,45.7401 -114.3934,45.7492 -114.3853,45.7573 -114.3732,45.7671 -114.3637,45.7761 -114.3613,45.787 -114.359,45.7966 -114.3535,45.8034 -114.3455,45.8087 -114.3389,45.8095 -114.3311,45.808 -114.3201,45.8055 -114.3109,45.8076 -114.3009,45.8138 -114.2935,45.8169 -114.2896,45.8187 -114.2771,45.8189 -114.2701,45.816 -114.2636,45.814 -114.2584,45.8126 -114.2539,45.8125 -114.2483,45.8202 -114.2421,45.8292 -114.2392,45.8369 -114.2382,45.8461 -114.2456,45.8558 -114.2551,45.8633 -114.2595,45.8694 -114.2598,45.8767 -114.2668,45.8823 -114.2758,45.8875 -114.2721,45.8975 -114.2545,45.9137 -114.2516,45.92 -114.2515,45.9241 -114.2551,45.932 -114.2588,45.938 -114.2685,45.9409 -114.2945,45.9465 -114.3074,45.9495 -114.3133,45.9509 -114.3237,45.952 -114.3308,45.9558 -114.3252,45.9635 -114.3231,45.9694 -114.3209,45.9758 -114.324,45.9795 -114.333,45.9847 -114.3406,45.9894 -114.3364,45.9972 -114.3315,46.0053 -114.3201,46.0129 -114.3121,46.0168 -114.3086,46.0223 -114.3111,46.026 -114.3142,46.0288 -114.3081,46.0342 -114.3028,46.0364 -114.2987,46.04 -114.3024,46.0483 -114.3067,46.0552 -114.3129,46.0627 -114.318,46.0687 -114.3237,46.0734 -114.3328,46.0754 -114.3438,46.0783 -114.3529,46.0822 -114.3566,46.0873 -114.3609,46.0956 -114.3653,46.1021 -114.3637,46.1094 -114.3615,46.1162 -114.3559,46.1235 -114.3461,46.1242 -114.3369,46.124 -114.3271,46.122 -114.3193,46.1205 -114.3133,46.1213 -114.304,46.1262 -114.2972,46.1301 -114.2939,46.1319 -114.2899,46.1332 -114.2872,46.135 -114.2864,46.1387 -114.2822,46.1629 -114.2853,46.1675 -114.2881,46.1785 -114.2859,46.1863 -114.2909,46.1933 -114.2979,46.1984 -114.3063,46.2022 -114.3134,46.206 -114.3192,46.2098 -114.3201,46.219 -114.3139,46.2276 -114.3017,46.2361 -114.2904,46.2395 -114.283,46.243 -114.2781,46.2507 -114.279,46.2608 -114.2808,46.2673 -114.2786,46.2727 -114.2717,46.2813 -114.2653,46.2936 -114.2615,46.3045 -114.2606,46.3127 -114.2607,46.3247 -114.2631,46.332 -114.2561,46.3589 -114.2521,46.3612 -114.2433,46.3656 -114.241,46.3756 -114.2407,46.382 -114.2338,46.3911 -114.2303,46.3942 -114.2314,46.4011 -114.2357,46.4094 -114.2359,46.4195 -114.241,46.4251 -114.2453,46.4316 -114.2525,46.435 -114.258,46.4443 -114.257,46.4534 -114.2463,46.4582 -114.2316,46.4635 -114.2162,46.4678 -114.2068,46.4722 -114.2013,46.4771 -114.1964,46.4834 -114.1966,46.4949 -114.1987,46.5087 -114.1956,46.5201 -114.1892,46.5314 -114.1915,46.5411 -114.1896,46.5539 -114.1847,46.5602 -114.1777,46.5697 -114.1734,46.5779 -114.171,46.5889 -114.1706,46.599 -114.1748,46.6087 -114.1773,46.6124 -114.181,46.6203 -114.1889,46.6218 -114.1953,46.6251 -114.2012,46.6266 -114.2098,46.6282 -114.2217,46.6284 -114.2303,46.6276 -114.2411,46.6228 -114.2531,46.6203 -114.2618,46.6186 -114.2718,46.6165 -114.2785,46.6139 -114.2878,46.6117 -114.2946,46.6077 -114.3034,46.6033 -114.3068,46.6011 -114.3109,46.598 -114.3149,46.5957 -114.3176,46.5939 -114.3243,46.5922 -114.331,46.5896 -114.3436,46.5898 -114.3461,46.5931 -114.3572,46.5974 -114.3663,46.6008 -114.3802,46.6011 -114.3867,46.6039 -114.3979,46.6041 -114.4087,46.6002 -114.4187,46.5967 -114.4391,46.5934 -114.4393,46.5934 -114.4466,46.5935 -114.4571,46.5951 -114.4611,46.5951 -114.4702,46.5999 -114.4753,46.6046 -114.481,46.6106 -114.4861,46.6167 -114.4892,46.6218 -114.491,46.6269 -114.4913,46.637 -114.4839,46.6423 -114.475,46.6491 -114.4722,46.6531 -114.4799,46.6611 -114.4849,46.6699 -114.4912,46.6787 -114.497,46.6834 -114.5033,46.6904 -114.5091,46.696 -114.515,46.6979 -114.5202,46.7008 -114.5255,46.7008 -114.5328,46.7001 -114.5401,46.6997 -114.5447,46.6998 -114.5522,46.6949 -114.5563,46.6899 -114.5645,46.6841 -114.5712,46.6814 -114.5739,46.6783 -114.5773,46.6769 -114.5828,46.6715 -114.5862,46.6688 -114.5903,46.6638 -114.5944,46.6612 -114.6123,46.6615 -114.6201,46.6657 -114.6292,46.6691 -114.6316,46.6765 -114.63,46.6856 -114.6278,46.6924 -114.6256,46.6979 -114.6221,46.7034 -114.6204,46.7134 -114.6216,46.7185 -114.6241,46.7218 -114.6293,46.7264 -114.6345,46.7297 -114.6403,46.7326 -114.6482,46.7341 -114.6548,46.7351 -114.6648,46.7348 -114.6779,46.7378 -114.6838,46.7401 -114.6871,46.7416 -114.7,46.7509 -114.7058,46.7561 -114.7091,46.7589 -114.7129,46.7631 -114.7201,46.765 -114.7321,46.7634 -114.7388,46.763 -114.7486,46.7655 -114.7491,46.7724 -114.7568,46.7803 -114.7646,46.7841 -114.7731,46.7892 -114.7775,46.7962 -114.778,46.8013 -114.7811,46.8077 -114.7857,46.8101 -114.7929,46.8139 -114.7947,46.8185 -114.7945,46.8258 -114.7868,46.8386 -114.7846,46.8431 -114.7871,46.8487 -114.7869,46.8569 -114.7814,46.8628 -114.7759,46.8664 -114.7712,46.8705 -114.7704,46.8732 -114.7756,46.8779 -114.7868,46.8799 -114.8052,46.887 -114.811,46.8913 -114.8194,46.8992 -114.8279,46.903 -114.8331,46.9076 -114.8396,46.9123 -114.8447,46.9197 -114.8479,46.9248 -114.8531,46.9272 -114.8577,46.9291 -114.8683,46.9288 -114.8737,46.9289 -114.879,46.9285 -114.8836,46.929 -114.8895,46.9319 -114.8948,46.9342 -114.9019,46.9394 -114.9063,46.9473 -114.9133,46.9579 -114.9178,46.9649 -114.9206,46.981 -114.9232,46.9856 -114.9276,46.9926 -114.9322,46.9963 -114.9387,47.001 -114.9426,47.0029 -114.9505,47.008 -114.9564,47.0113 -114.9596,47.0155 -114.9653,47.0229 -114.9726,47.0249 -114.9818,47.0296 -114.9868,47.0388 -114.9906,47.0472 -114.9924,47.0531 -114.995,47.0578 -114.9996,47.0578 -115.0075,47.0612 -115.0188,47.0636 -115.0246,47.0683 -115.029,47.0775 -115.0341,47.0859 -115.0394,47.0901 -115.0532,47.0962 -115.059,47.1013 -115.067,47.1037 -115.0762,47.108 -115.088,47.1132 -115.0965,47.1188 -115.1017,47.1253 -115.1062,47.13 -115.1122,47.1333 -115.1167,47.137 -115.1313,47.1399 -115.1425,47.1456 -115.1457,47.1525 -115.1481,47.1622 -115.1479,47.1705 -115.155,47.1784 -115.1674,47.1872 -115.1678,47.1987 -115.1696,47.2056 -115.1715,47.2112 -115.1899,47.2211 -115.1999,47.2221 -115.2126,47.2236 -115.2239,47.2256 -115.2352,47.2271 -115.2545,47.2296 -115.2616,47.2366 -115.2729,47.2404 -115.2823,47.2396 -115.293,47.2388 -115.3016,47.2407 -115.3082,47.2436 -115.3162,47.2436 -115.3269,47.2447 -115.3369,47.2462 -115.3482,47.2477 -115.3522,47.2496 -115.3614,47.2538 -115.3693,47.258 -115.3772,47.2654 -115.3844,47.2729 -115.3895,47.2812 -115.3954,47.2891 -115.3986,47.2951 -115.4018,47.3006 -115.4057,47.3044 -115.409,47.3071 -115.4143,47.31 -115.4203,47.3114 -115.4255,47.3142 -115.4281,47.3188 -115.4307,47.323 -115.4359,47.3286 -115.4425,47.3332 -115.4458,47.336 -115.4557,47.3403 -115.4644,47.3413 -115.4711,47.3423 -115.4771,47.3432 -115.485,47.3461 -115.4916,47.3503 -115.4975,47.3558 -115.5035,47.36 -115.5127,47.3652 -115.5227,47.3667 -115.5347,47.37 -115.5467,47.3729 -115.5534,47.3743 -115.5613,47.3776 -115.568,47.379 -115.5759,47.3828 -115.5846,47.3852 -115.5913,47.3862 -115.5966,47.3885 -115.5985,47.3917 -115.5978,47.3959 -115.5964,47.4 -115.5916,47.4045 -115.5868,47.4082 -115.5787,47.4113 -115.5666,47.4135 -115.5546,47.4139 -115.5399,47.4137 -115.5318,47.4132 -115.5211,47.4126 -115.5097,47.4139 -115.5023,47.4152 -115.4949,47.4197 -115.4894,47.4238 -115.4866,47.4302 -115.4859,47.4344 -115.4865,47.4367 -115.4864,47.4413 -115.4924,47.4432 -115.5044,47.4451 -115.5177,47.4485 -115.5304,47.4513 -115.539,47.4556 -115.5416,47.4629 -115.5439,47.4804 -115.5478,47.4869 -115.5571,47.4907 -115.5678,47.4922 -115.5891,47.4997 -115.5897,47.5034 -115.5835,47.5135 -115.5773,47.5208 -115.5684,47.5285 -115.5589,47.5353 -115.5487,47.5403 -115.5399,47.548 -115.5383,47.5567 -115.5422,47.566 -115.5407,47.5742 -115.5445,47.5821 -115.5538,47.5882 -115.5658,47.5938 -115.5751,47.5994 -115.5803,47.6059 -115.5829,47.6133 -115.5833,47.6234 -115.5818,47.6335 -115.5789,47.6436 -115.5761,47.6505 -115.578,47.6574 -115.5799,47.6616 -115.5839,47.6662 -115.5925,47.6695 -115.6039,47.6724 -115.6126,47.6734 -115.622,47.6758 -115.6259,47.6809 -115.6258,47.6859 -115.6277,47.6951 -115.6302,47.7025 -115.6328,47.7062 -115.6368,47.7109 -115.6428,47.7137 -115.6502,47.7156 -115.6569,47.7161 -115.6643,47.7162 -115.673,47.7167 -115.683,47.7223 -115.6842,47.7283 -115.6861,47.7375 -115.6886,47.7449 -115.6879,47.7509 -115.6911,47.7587 -115.6956,47.7712 -115.7029,47.7768 -115.7114,47.7875 -115.7161,47.7935 -115.7234,47.7981 -115.7294,47.8014 -115.7368,47.8028 -115.7435,47.8038 -115.7502,47.8071 -115.7554,47.8136 -115.7688,47.8234 -115.7761,47.8271 -115.7841,47.8331 -115.7934,47.8415 -115.7987,47.8471 -115.804,47.8536 -115.8112,47.8633 -115.8198,47.8735 -115.8312,47.8819 -115.8452,47.8912 -115.8524,47.9027 -115.861,47.9157 -115.8636,47.9212 -115.8715,47.931 -115.8796,47.9333 -115.8877,47.9361 -115.8944,47.938 -115.8997,47.9422 -115.9012,48.1063 -115.9017,48.1745 -115.9029,48.4647 -115.9058,48.9435 -116.8303,48.9434 -116.8652,48.947 -116.896,48.9436 -117.0292,48.9432 -117.0631,48.9439 -117.1289,48.9439 -117.3956,48.9437 -117.6621,48.9438 -117.6948,48.9431 -117.8282,48.9431 -117.9611,48.9433 -118.195,48.9433 -118.5938,48.9431 -118.7935,48.9432 -118.9598,48.9434 -119.2928,48.9434 -119.6919,48.9432 -119.7587,48.9434 -119.8584,48.9434 -120.3584,48.9432 -120.9079,48.9434 -121.922,48.9438 -122.1547,48.9438 -122.2543,48.9437 -122.3874,48.9437 -122.5204,48.9439 -122.5806,48.9434 -122.5738,48.9376 -122.5547,48.9061 -122.5906,48.9081 -122.6301,48.8867 -122.5022,48.7396 -122.4707,48.7087 -122.4303,48.6969 -122.409,48.7162 -122.3871,48.7191 -122.3431,48.7058 -122.3213,48.689 -122.2587,48.5349 -122.3085,48.3971 -122.339,48.3977 -122.3583,48.4119 -122.3723,48.4295 -122.4417,48.4558 -122.5203,48.4391 -122.5015,48.363 -122.4803,48.3495 -122.448,48.3476 -122.4293,48.3559 -122.4129,48.3705 -122.2156,48.2541 -122.2007,48.2295 -122.2204,48.1832 -122.2386,48.1919 -122.2566,48.2001 -122.2782,48.1998 -122.321,48.1952 -122.3431,48.1807 -122.3536,48.1498 -122.3513,48.1278 -122.3234,48.0741 -122.2744,48.0598 -122.2531,48.0647 -122.2699,48.0787 -122.2929,48.1148 -122.2654,48.1702 -122.1974,48.1581 -122.1437,48.0192 -122.1148,47.9033 -122.1972,47.7776 -122.2422,47.6176 -122.2228,47.532 -122.2097,47.4925 -122.176,47.4311 -122.1345,47.3503 -122.1383,47.3177 -122.2412,47.2607 -122.284,47.2438 -122.3518,47.2219 -122.3902,47.1707 -122.4164,47.14 -122.435,47.1189 -122.4647,47.0983 -122.5419,47.0664 -122.6175,47.1286 -122.6695,47.1212 -122.7097,47.1027 -122.7033,47.0104 -122.7258,47.0128 -122.7757,47.0814 -122.8501,47.0704 -122.889,47.0603 -122.8866,47.102 -122.8495,47.1158 -122.8045,47.1266 -122.7639,47.1518 -122.7512,47.1968 -122.741,47.2306 -122.7271,47.246 -122.6707,47.2591 -122.6366,47.3138 -122.6216,47.3413 -122.5945,47.318 -122.5918,47.2665 -122.6196,47.2381 -122.6354,47.2167 -122.615,47.1686 -122.5956,47.1477 -122.5734,47.1356 -122.5531,47.1579 -122.5388,47.1986 -122.5675,47.2368 -122.534,47.3014 -122.4433,47.3664 -122.4382,47.3404 -122.4694,47.2948 -122.4973,47.2679 -122.3958,47.2248 -122.3726,47.234 -122.333,47.4462 -122.3605,47.539 -122.3992,47.5243 -122.4268,47.5073 -122.4873,47.4914 -122.5046,47.5848 -122.4949,47.6042 -122.4794,47.5842 -122.4624,47.5653 -122.4222,47.5539 -122.4174,47.5861 -122.422,47.6522 -122.3653,47.6876 -122.284,47.7091 -122.3373,47.8674 -122.3889,47.8831 -122.552,47.6934 -122.5596,47.6671 -122.6598,47.6023 -122.7267,47.5799 -122.766,47.5536 -122.8233,47.491 -122.9079,47.3888 -122.9211,47.3469 -122.8488,47.3259 -122.82,47.336 -122.7785,47.356 -122.7421,47.372 -122.69,47.3909 -122.6644,47.3932 -122.7002,47.3609 -122.7287,47.3498 -122.8305,47.3145 -122.9278,47.3023 -122.9533,47.3053 -122.9715,47.3177 -122.928,47.4152 -122.8406,47.5153 -122.8072,47.5487 -122.7899,47.564 -122.738,47.6042 -122.7174,47.623 -122.6987,47.6491 -122.6745,47.6968 -122.6652,47.7285 -122.6726,47.7515 -122.6724,47.7766 -122.618,47.8055 -122.6079,47.7778 -122.603,47.7574 -122.6114,47.7109 -122.5712,47.7086 -122.4949,47.8021 -122.4535,47.8612 -122.5015,47.9325 -122.5366,47.9555 -122.6008,48.0354 -122.5999,48.0555 -122.5694,48.0726 -122.5717,48.0987 -122.6042,48.103 -122.6478,48.0908 -122.6689,48.0811 -122.6906,48.0572 -122.7923,48.0585 -122.9352,48.1358 -122.9684,48.1243 -123.0095,48.1041 -123.0309,48.0872 -123.0644,48.0745 -123.176,48.0737 -123.2229,48.077 -123.3303,48.0932 -123.4949,48.1156 -123.5794,48.1115 -123.6077,48.1105 -123.628,48.1108 -123.7181,48.1167 -123.7556,48.1207 -123.8376,48.1339 -123.8609,48.1381 -123.9055,48.1566 -123.9195,48.1768 -123.9652,48.1962 -124.0524,48.2207 -124.1294,48.2287 -124.2356,48.2613 -124.2982,48.2869 -124.3662,48.3167 -124.3854,48.3244 -124.4564,48.3447 -124.5334,48.3415 -124.525,48.3158 1162,-7.0,United States -114.6548,32.4683 -114.6457,32.4642 -114.4364,32.4009 -114.195,32.3288 -113.9129,32.2436 -113.7099,32.1823 -113.544,32.1316 -113.1969,32.0252 -112.9059,31.9352 -112.7204,31.8778 -112.3537,31.7628 -112.1532,31.7 -111.8005,31.5884 -111.2725,31.4189 -110.9015,31.2982 -110.1682,31.2976 -109.7361,31.2976 -109.3698,31.2982 -108.9168,31.2979 -108.9056,31.2978 -108.8923,31.2978 -108.8923,31.3093 -108.8912,31.428 -108.8929,31.5608 -108.8946,31.6794 -108.8936,31.7469 -108.8936,31.7975 -108.8953,31.8646 -108.8937,31.9252 -108.8927,32.0333 -108.8933,32.1413 -108.895,32.3068 -108.8961,32.4079 -108.8973,32.4612 -108.8973,32.4799 -108.8967,32.4895 -108.8951,32.515 -108.8946,32.5277 -108.8951,32.546 -108.898,32.7454 -108.8975,32.8115 -108.897,32.8816 -108.8987,32.953 -108.8982,33.0127 -108.8982,33.0527 -108.8979,33.0579 -108.8971,33.0755 -108.8977,33.1092 -108.8971,33.1501 -108.8972,33.1711 -108.8973,33.3221 -108.8984,33.4217 -108.8982,33.5545 -108.898,33.6546 -108.897,33.7492 -108.8971,33.9933 -108.895,34.1306 -108.8952,34.1823 -108.8952,34.1837 -108.8957,34.3178 -108.8953,34.5577 -108.8942,34.6594 -108.8943,34.7923 -108.8943,34.7993 -108.8938,34.8806 -108.8934,34.9071 -108.8932,34.9206 -108.8927,34.9791 -108.8922,35.0536 -108.8928,35.129 -108.8939,35.1991 -108.894,35.2075 -108.8944,35.9626 -108.8939,36.0297 -108.8934,36.0987 -108.894,36.1713 -108.8946,36.2493 -108.8953,36.3627 -108.8953,36.4575 -108.8954,36.476 -108.8955,36.4842 -108.896,36.5545 -108.896,36.6175 -108.8966,36.7114 -108.8967,36.7943 -108.8967,36.8003 -108.8964,36.8284 -108.8956,36.9023 -108.8971,36.9639 -108.8971,36.9642 -108.907,36.9638 -108.9309,36.9629 -108.9423,36.9624 -108.952,36.9621 -108.9654,36.962 -109.0403,36.9616 -109.0816,36.9616 -109.1676,36.9606 -109.1985,36.9607 -109.2724,36.9592 -109.3201,36.9596 -109.3848,36.9587 -109.4218,36.9589 -109.4868,36.9583 -109.516,36.9587 -109.5819,36.9592 -109.6091,36.9594 -109.7858,36.9594 -109.844,36.958 -109.8649,36.9598 -109.9449,36.9594 -109.9504,36.9595 -110.0336,36.9604 -110.0474,36.96 -110.0769,36.9598 -110.0965,36.9594 -110.143,36.9586 -110.1972,36.9576 -110.2173,36.9576 -110.2988,36.9577 -110.305,36.96 -110.3084,36.9612 -110.3206,36.9657 -110.3294,36.9689 -110.3427,36.9699 -110.3553,36.97 -110.4115,36.9696 -110.43,36.9696 -110.4936,36.9698 -110.5882,36.97 -110.6297,36.9703 -110.6587,36.9701 -110.7248,36.9696 -110.7552,36.9695 -110.8175,36.9693 -110.8793,36.9691 -110.9262,36.9691 -110.9809,36.9692 -111.01,36.9692 -111.0958,36.9693 -111.1732,36.9663 -111.192,36.9678 -111.1992,36.9682 -111.2015,36.9684 -111.2062,36.9677 -111.2119,36.9683 -111.2142,36.9685 -111.2182,36.9687 -111.225,36.9708 -111.2323,36.973 -111.2344,36.9735 -111.2391,36.9747 -111.2455,36.9749 -111.2473,36.9734 -111.2547,36.9672 -111.2576,36.9667 -111.305,36.9667 -111.4203,36.9658 -111.4482,36.9656 -111.4537,36.9656 -111.5494,36.9647 -111.5856,36.9643 -111.6439,36.9644 -111.7674,36.9644 -111.7748,36.9645 -111.8595,36.9647 -111.922,36.9639 -112.0497,36.9622 -112.0837,36.9628 -112.1697,36.9645 -112.2493,36.965 -112.2566,36.965 -112.3115,36.9645 -112.3292,36.9648 -112.3825,36.9657 -112.3847,36.9657 -112.4845,36.9636 -112.5099,36.9639 -112.6183,36.9654 -112.7441,36.9659 -112.7464,36.9659 -112.7995,36.9651 -112.8501,36.9643 -112.9412,36.965 -113.0958,36.965 -113.1488,36.9651 -113.2481,36.9661 -113.3693,36.966 -113.4054,36.966 -113.4777,36.9655 -113.5579,36.9649 -113.581,36.9647 -113.7079,36.9638 -113.8908,36.9643 -113.8908,36.9308 -113.8906,36.8812 -113.8902,36.8078 -113.8937,36.8079 -113.8927,36.6941 -113.8943,36.6413 -113.8924,36.5878 -113.8934,36.422 -113.8931,36.3814 -113.8928,36.328 -113.8929,36.304 -113.8938,36.2839 -113.8915,36.2654 -113.8933,36.2494 -113.8932,36.2477 -113.8929,36.2277 -113.8944,36.2062 -113.8921,36.1895 -113.8922,36.1745 -113.8925,36.17 -113.8929,36.1668 -113.8949,36.1635 -113.8976,36.1607 -113.9015,36.1587 -113.9052,36.1554 -113.9117,36.1501 -113.9209,36.1334 -113.9318,36.117 -113.9473,36.1013 -113.9509,36.0962 -113.9563,36.0914 -113.9626,36.083 -113.9677,36.0659 -113.972,36.0458 -113.9755,36.0302 -113.9822,36.0103 -113.9852,36.0048 -113.9861,36.0011 -113.9923,35.9986 -114.0004,35.9969 -114.0084,35.9962 -114.0141,35.9959 -114.0209,35.9947 -114.0273,35.993 -114.0325,35.99 -114.0388,35.9877 -114.041,35.9871 -114.0469,35.9842 -114.0499,35.9838 -114.0531,35.9827 -114.0577,35.9826 -114.0604,35.9816 -114.0639,35.9815 -114.0677,35.9801 -114.0696,35.9807 -114.0736,35.9803 -114.0799,35.9843 -114.0922,35.99 -114.1,35.9952 -114.1067,35.9994 -114.1122,36.0032 -114.1177,36.0083 -114.1249,36.0139 -114.1311,36.0172 -114.1378,36.0197 -114.1474,36.0231 -114.1518,36.0268 -114.1555,36.0282 -114.1575,36.0322 -114.1569,36.0344 -114.1559,36.0376 -114.1556,36.0455 -114.1528,36.0463 -114.1504,36.0494 -114.1503,36.0531 -114.1518,36.0581 -114.1534,36.0609 -114.1562,36.0632 -114.1572,36.0664 -114.1598,36.0733 -114.1625,36.0774 -114.167,36.0811 -114.1731,36.0849 -114.1787,36.0877 -114.1808,36.0923 -114.1829,36.0965 -114.1907,36.1034 -114.2002,36.1082 -114.2092,36.1125 -114.2131,36.1139 -114.2211,36.1146 -114.2272,36.117 -114.2353,36.1146 -114.2388,36.1136 -114.2447,36.1119 -114.2533,36.1056 -114.2587,36.1008 -114.2608,36.098 -114.2641,36.096 -114.2674,36.0949 -114.2717,36.0946 -114.2748,36.0951 -114.28,36.0948 -114.2846,36.096 -114.2925,36.0947 -114.2976,36.0945 -114.3004,36.0934 -114.3043,36.0914 -114.3131,36.0907 -114.3181,36.0931 -114.3231,36.0968 -114.3264,36.0991 -114.336,36.1034 -114.3472,36.11 -114.3533,36.1133 -114.3606,36.1166 -114.3697,36.1191 -114.377,36.1211 -114.3856,36.1212 -114.3908,36.1205 -114.3944,36.1208 -114.4016,36.1188 -114.4076,36.1179 -114.4165,36.1164 -114.4184,36.1157 -114.4293,36.1103 -114.4346,36.1082 -114.4378,36.1066 -114.4448,36.1032 -114.4505,36.1053 -114.4618,36.1078 -114.468,36.1079 -114.4747,36.1068 -114.4771,36.1058 -114.489,36.1011 -114.4912,36.1006 -114.494,36.0992 -114.498,36.0971 -114.5015,36.0968 -114.506,36.0964 -114.5129,36.0943 -114.5188,36.0887 -114.5226,36.0881 -114.5303,36.0848 -114.5336,36.0831 -114.5383,36.0803 -114.5442,36.0768 -114.5592,36.0712 -114.5644,36.0681 -114.5679,36.0642 -114.5756,36.0583 -114.5803,36.0526 -114.5831,36.0438 -114.5836,36.0365 -114.5844,36.0319 -114.5823,36.0266 -114.5814,36.0225 -114.5776,36.0168 -114.572,36.0112 -114.5687,36.0045 -114.568,35.9959 -114.5693,35.9899 -114.5721,35.9863 -114.58,35.9812 -114.5864,35.975 -114.5912,35.9707 -114.5906,35.963 -114.5909,35.9598 -114.5906,35.9557 -114.5897,35.9508 -114.5856,35.9423 -114.5831,35.9397 -114.5802,35.9312 -114.5788,35.9277 -114.578,35.9245 -114.5774,35.9159 -114.5766,35.9128 -114.5733,35.9075 -114.5665,35.9001 -114.5611,35.8972 -114.5569,35.8942 -114.5538,35.8935 -114.5537,35.8913 -114.5534,35.8853 -114.5512,35.879 -114.5493,35.8755 -114.5467,35.871 -114.5428,35.8658 -114.5409,35.8622 -114.5367,35.8602 -114.5319,35.8567 -114.5261,35.8543 -114.5225,35.8522 -114.5165,35.8479 -114.514,35.8458 -114.5126,35.8422 -114.513,35.839 -114.5156,35.8362 -114.5272,35.8315 -114.5332,35.8285 -114.5353,35.8252 -114.5368,35.8233 -114.5391,35.8228 -114.5419,35.8226 -114.5435,35.8212 -114.5455,35.8184 -114.547,35.8147 -114.5456,35.8111 -114.5441,35.8066 -114.5401,35.7986 -114.5392,35.795 -114.539,35.7923 -114.54,35.7895 -114.542,35.7863 -114.5441,35.7843 -114.546,35.7793 -114.5463,35.7752 -114.5454,35.7711 -114.5446,35.768 -114.5409,35.7636 -114.5393,35.7578 -114.5399,35.7509 -114.5403,35.7413 -114.5369,35.7333 -114.535,35.723 -114.5357,35.717 -114.5366,35.7143 -114.5368,35.7092 -114.5381,35.7037 -114.5391,35.695 -114.5404,35.6886 -114.5406,35.6845 -114.5391,35.6791 -114.5329,35.6722 -114.528,35.6669 -114.5232,35.6635 -114.519,35.6606 -114.5181,35.657 -114.5185,35.6547 -114.522,35.6481 -114.5254,35.6398 -114.5251,35.6357 -114.5252,35.6303 -114.5255,35.6261 -114.524,35.6221 -114.5215,35.6186 -114.5148,35.6121 -114.5094,35.6078 -114.509,35.6028 -114.5046,35.5971 -114.5037,35.5931 -114.4997,35.5919 -114.4955,35.5885 -114.4918,35.5846 -114.4907,35.5783 -114.4925,35.5714 -114.4955,35.5662 -114.5037,35.5617 -114.508,35.5583 -114.5123,35.5563 -114.5133,35.554 -114.512,35.5513 -114.5087,35.546 -114.5026,35.54 -114.5013,35.5377 -114.5,35.5346 -114.5014,35.5305 -114.5028,35.5268 -114.5037,35.524 -114.5039,35.5185 -114.5034,35.5117 -114.5036,35.5072 -114.5081,35.4994 -114.5125,35.4975 -114.5155,35.4939 -114.5178,35.4913 -114.5181,35.4889 -114.5196,35.4858 -114.524,35.4776 -114.5242,35.4725 -114.5232,35.4658 -114.5215,35.459 -114.512,35.4449 -114.5023,35.429 -114.493,35.4104 -114.4851,35.3949 -114.4774,35.3825 -114.471,35.3728 -114.4646,35.3626 -114.4568,35.348 -114.4497,35.3365 -114.4435,35.3286 -114.4411,35.3192 -114.4396,35.3138 -114.4413,35.3069 -114.4413,35.2992 -114.4414,35.2919 -114.4414,35.2842 -114.4431,35.2764 -114.4414,35.2687 -114.4404,35.2633 -114.4374,35.2603 -114.4353,35.2558 -114.4335,35.2532 -114.4328,35.2446 -114.4303,35.2333 -114.4285,35.2311 -114.4287,35.2266 -114.4266,35.2208 -114.4239,35.2154 -114.4231,35.2114 -114.4191,35.2034 -114.417,35.198 -114.4159,35.1908 -114.4169,35.1803 -114.4172,35.1698 -114.4175,35.1662 -114.4179,35.163 -114.4182,35.1598 -114.4185,35.157 -114.4188,35.1529 -114.4202,35.1492 -114.4212,35.1469 -114.4204,35.1438 -114.42,35.1388 -114.4192,35.1352 -114.419,35.1325 -114.4193,35.1293 -114.4185,35.1257 -114.4197,35.1192 -114.4224,35.1096 -114.4255,35.1053 -114.4287,35.1024 -114.4338,35.0993 -114.436,35.0997 -114.438,35.0991 -114.4487,35.0984 -114.4591,35.0994 -114.4678,35.1002 -114.4729,35.0999 -114.4757,35.0986 -114.4787,35.0932 -114.4841,35.0898 -114.4855,35.087 -114.4872,35.0796 -114.4875,35.076 -114.4868,35.0737 -114.486,35.0706 -114.48,35.0659 -114.4729,35.0612 -114.4654,35.0584 -114.46,35.0541 -114.4553,35.0507 -114.4516,35.0468 -114.4497,35.0437 -114.4493,35.0382 -114.4528,35.0322 -114.4576,35.0288 -114.4609,35.0265 -114.4628,35.0252 -114.4665,35.0221 -114.4689,35.0209 -114.4755,35.0159 -114.4782,35.0145 -114.4823,35.0126 -114.4843,35.0088 -114.4867,35.0028 -114.488,34.9977 -114.4875,34.9909 -114.4861,34.9878 -114.4848,34.9851 -114.4823,34.9812 -114.4806,34.975 -114.4786,34.97 -114.479,34.9668 -114.4787,34.9639 -114.4774,34.9616 -114.4762,34.9596 -114.4734,34.9566 -114.4724,34.9521 -114.4715,34.9457 -114.4729,34.9371 -114.4703,34.9249 -114.4685,34.9159 -114.4675,34.9096 -114.4678,34.9063 -114.4683,34.902 -114.4692,34.8994 -114.4727,34.897 -114.4736,34.8938 -114.4754,34.8905 -114.4769,34.8854 -114.4766,34.8814 -114.4736,34.8788 -114.4731,34.8739 -114.4736,34.8706 -114.4743,34.8661 -114.4747,34.8634 -114.475,34.8603 -114.4752,34.8569 -114.4754,34.8527 -114.4756,34.8476 -114.4658,34.8379 -114.4577,34.83 -114.4443,34.8215 -114.4432,34.8196 -114.4338,34.8113 -114.4293,34.8072 -114.4271,34.8037 -114.4215,34.8021 -114.4167,34.7978 -114.414,34.7925 -114.4121,34.7816 -114.415,34.7796 -114.4097,34.7718 -114.4094,34.7668 -114.4044,34.7597 -114.4041,34.7552 -114.4007,34.7472 -114.3963,34.7415 -114.3911,34.7308 -114.3886,34.7258 -114.3816,34.7203 -114.3768,34.7177 -114.3719,34.715 -114.3658,34.7136 -114.362,34.7121 -114.3561,34.7124 -114.3488,34.7119 -114.3443,34.7107 -114.3406,34.7068 -114.338,34.703 -114.3344,34.701 -114.3303,34.6988 -114.3249,34.6928 -114.3173,34.684 -114.3146,34.678 -114.3132,34.6752 -114.3116,34.6718 -114.3105,34.6697 -114.3076,34.6644 -114.3051,34.6599 -114.3036,34.6573 -114.3028,34.6547 -114.3,34.6451 -114.2991,34.6422 -114.2975,34.6365 -114.2956,34.6299 -114.2938,34.6268 -114.2916,34.6246 -114.2895,34.6204 -114.2856,34.6151 -114.2829,34.6112 -114.2812,34.6045 -114.2798,34.5986 -114.2771,34.5928 -114.2758,34.5892 -114.2726,34.5848 -114.2701,34.5804 -114.2689,34.5772 -114.2713,34.573 -114.2726,34.5707 -114.2761,34.5701 -114.2783,34.5691 -114.2804,34.5676 -114.2808,34.5649 -114.2751,34.5611 -114.2719,34.5589 -114.2638,34.5543 -114.2562,34.5497 -114.2477,34.5401 -114.2416,34.5321 -114.2366,34.5246 -114.2334,34.5189 -114.2291,34.5132 -114.2272,34.5101 -114.2283,34.5062 -114.2233,34.5025 -114.2218,34.4971 -114.2211,34.4949 -114.2209,34.4917 -114.2216,34.4862 -114.2224,34.4821 -114.2251,34.4675 -114.226,34.4584 -114.2262,34.4507 -114.2276,34.4434 -114.2279,34.4357 -114.2269,34.4307 -114.2221,34.4266 -114.2204,34.4251 -114.2183,34.4232 -114.2155,34.4227 -114.2122,34.4221 -114.2099,34.4217 -114.2078,34.4215 -114.2011,34.4248 -114.1899,34.423 -114.1848,34.4219 -114.1826,34.4206 -114.1773,34.4173 -114.1748,34.4163 -114.1709,34.4135 -114.1679,34.4113 -114.1605,34.4098 -114.1527,34.4042 -114.1491,34.4021 -114.1462,34.3987 -114.1412,34.395 -114.1375,34.3901 -114.1358,34.3875 -114.1332,34.3835 -114.1191,34.3758 -114.112,34.3737 -114.1051,34.3699 -114.0944,34.364 -114.0857,34.359 -114.0792,34.3553 -114.0682,34.3494 -114.0619,34.346 -114.0588,34.3408 -114.0514,34.3397 -114.0469,34.3374 -114.0389,34.3361 -114.0332,34.3337 -114.0285,34.3311 -114.0227,34.3278 -114.0163,34.323 -114.0132,34.3182 -114.0048,34.3094 -113.9999,34.3024 -113.9952,34.299 -113.9898,34.2933 -113.9844,34.2867 -113.9806,34.2805 -113.9806,34.2772 -113.9796,34.2726 -113.978,34.2684 -113.9781,34.2662 -113.9783,34.2624 -113.978,34.2583 -113.9755,34.2543 -113.9718,34.2469 -113.9711,34.2445 -113.9698,34.242 -113.9717,34.2386 -113.977,34.2372 -113.9783,34.2369 -113.9884,34.2345 -113.9934,34.2333 -113.9963,34.2326 -114.0001,34.2317 -114.0046,34.2282 -114.0076,34.2224 -114.0123,34.217 -114.0185,34.208 -114.0218,34.2061 -114.0284,34.2024 -114.0362,34.1956 -114.0405,34.1932 -114.0494,34.1855 -114.0552,34.184 -114.0595,34.1776 -114.0619,34.1739 -114.0639,34.1707 -114.0657,34.1678 -114.0692,34.1638 -114.0715,34.1611 -114.0733,34.1589 -114.0773,34.1561 -114.0795,34.1544 -114.0825,34.1526 -114.0872,34.1499 -114.0942,34.1478 -114.0991,34.1463 -114.1045,34.1448 -114.1125,34.1424 -114.1189,34.1405 -114.1252,34.1383 -114.1313,34.1362 -114.1392,34.1318 -114.1498,34.1192 -114.1568,34.1155 -114.161,34.1132 -114.1666,34.1102 -114.1773,34.1068 -114.1838,34.1041 -114.1908,34.1012 -114.1975,34.0977 -114.2019,34.0937 -114.2062,34.0888 -114.2125,34.0849 -114.2209,34.0823 -114.2264,34.0802 -114.2321,34.078 -114.2412,34.0737 -114.256,34.0671 -114.2599,34.0653 -114.2615,34.0612 -114.2646,34.0533 -114.2687,34.0507 -114.2673,34.0393 -114.268,34.0354 -114.269,34.0291 -114.2694,34.0235 -114.2696,34.0211 -114.2702,34.0156 -114.2716,34.0103 -114.2717,34.008 -114.2735,34.0038 -114.2752,33.9994 -114.2768,33.9941 -114.2777,33.9909 -114.2829,33.9855 -114.2914,33.9807 -114.2987,33.9768 -114.304,33.9749 -114.3051,33.9695 -114.3071,33.9691 -114.3129,33.9681 -114.3183,33.9655 -114.3221,33.9649 -114.3284,33.9591 -114.3308,33.9536 -114.3338,33.9493 -114.3368,33.9435 -114.3423,33.9434 -114.346,33.9419 -114.3487,33.9409 -114.3546,33.9369 -114.3577,33.935 -114.3609,33.9325 -114.3647,33.931 -114.3693,33.9253 -114.3721,33.9184 -114.3711,33.9151 -114.368,33.9076 -114.3608,33.9008 -114.3571,33.8972 -114.3526,33.8956 -114.3481,33.8896 -114.3455,33.8873 -114.3469,33.8834 -114.3505,33.8802 -114.3525,33.8769 -114.3557,33.8771 -114.3596,33.8762 -114.3625,33.8727 -114.3625,33.8704 -114.3615,33.8667 -114.3578,33.8625 -114.3515,33.8588 -114.3538,33.8564 -114.3559,33.8545 -114.359,33.8502 -114.3624,33.8441 -114.3633,33.8409 -114.3653,33.8347 -114.3674,33.8318 -114.3688,33.8299 -114.3735,33.8215 -114.3652,33.8049 -114.366,33.7963 -114.3678,33.7909 -114.365,33.7862 -114.3642,33.7792 -114.3637,33.7754 -114.362,33.7733 -114.3575,33.7666 -114.3564,33.7648 -114.354,33.7559 -114.3533,33.753 -114.3516,33.7451 -114.351,33.7376 -114.3538,33.7239 -114.3549,33.7218 -114.3566,33.7183 -114.3586,33.7143 -114.3567,33.7091 -114.3559,33.7055 -114.3527,33.6984 -114.349,33.6926 -114.3447,33.6869 -114.3438,33.6829 -114.3426,33.6802 -114.3421,33.6743 -114.3457,33.6686 -114.3478,33.6646 -114.3493,33.6618 -114.3521,33.66 -114.3551,33.6601 -114.3615,33.6602 -114.3703,33.6595 -114.3771,33.656 -114.3811,33.6506 -114.3817,33.6483 -114.3813,33.6463 -114.3819,33.644 -114.3825,33.6411 -114.3782,33.6365 -114.3717,33.6314 -114.3742,33.6268 -114.3747,33.6234 -114.3755,33.6187 -114.3789,33.6142 -114.382,33.6052 -114.38,33.5974 -114.3774,33.5914 -114.375,33.5843 -114.3775,33.5769 -114.3788,33.5753 -114.3815,33.5678 -114.3838,33.5629 -114.384,33.5579 -114.3841,33.5557 -114.3841,33.5533 -114.3858,33.549 -114.3866,33.547 -114.3848,33.5429 -114.3819,33.5412 -114.379,33.5391 -114.376,33.536 -114.3751,33.5301 -114.3759,33.526 -114.3779,33.5236 -114.3822,33.5221 -114.3865,33.5205 -114.3907,33.5175 -114.3943,33.5137 -114.3983,33.5091 -114.4024,33.5043 -114.404,33.5023 -114.4062,33.4996 -114.4106,33.4943 -114.416,33.4849 -114.42,33.4799 -114.4279,33.4756 -114.4369,33.4711 -114.4394,33.4651 -114.4402,33.4609 -114.4426,33.4562 -114.4445,33.452 -114.4482,33.4491 -114.4534,33.4483 -114.4548,33.4466 -114.4579,33.445 -114.4597,33.442 -114.462,33.4398 -114.4651,33.4277 -114.4681,33.4204 -114.4739,33.4105 -114.4757,33.4049 -114.4773,33.3998 -114.4788,33.3952 -114.4822,33.3952 -114.4842,33.3874 -114.4862,33.3868 -114.4902,33.3827 -114.498,33.3778 -114.5058,33.3757 -114.52,33.3783 -114.5347,33.3822 -114.5397,33.3805 -114.5492,33.377 -114.5547,33.3749 -114.5663,33.3765 -114.5714,33.377 -114.5723,33.3705 -114.5696,33.367 -114.5687,33.3621 -114.5655,33.3572 -114.5623,33.351 -114.5597,33.3452 -114.5576,33.3394 -114.5551,33.3349 -114.5531,33.3305 -114.5523,33.3264 -114.5509,33.3229 -114.5501,33.3183 -114.551,33.316 -114.5529,33.3118 -114.5566,33.3116 -114.5594,33.3065 -114.5612,33.3031 -114.5646,33.2989 -114.5686,33.2941 -114.569,33.2914 -114.5727,33.289 -114.5767,33.2833 -114.5803,33.2804 -114.5812,33.2771 -114.5819,33.2716 -114.5799,33.2676 -114.5763,33.2645 -114.575,33.2606 -114.566,33.2569 -114.5608,33.2544 -114.5539,33.2502 -114.5478,33.2492 -114.5422,33.2472 -114.5354,33.2452 -114.5308,33.2427 -114.5273,33.2392 -114.5242,33.2339 -114.5242,33.2275 -114.5273,33.2215 -114.53,33.2163 -114.5317,33.2126 -114.5326,33.2106 -114.5324,33.2053 -114.5322,33.201 -114.5299,33.1957 -114.5284,33.1934 -114.5265,33.1905 -114.5267,33.185 -114.5265,33.1828 -114.5272,33.1777 -114.5269,33.1732 -114.5283,33.169 -114.5269,33.1636 -114.5259,33.1595 -114.5249,33.156 -114.5246,33.1482 -114.5244,33.1424 -114.5244,33.1394 -114.5246,33.1332 -114.5258,33.1276 -114.5274,33.1233 -114.5288,33.1194 -114.531,33.1176 -114.5319,33.1153 -114.5336,33.1111 -114.5353,33.11 -114.5366,33.1075 -114.5418,33.1059 -114.5447,33.1007 -114.5484,33.0982 -114.5515,33.0949 -114.554,33.0916 -114.5559,33.0883 -114.5556,33.0818 -114.5585,33.0781 -114.5588,33.0749 -114.5568,33.0599 -114.555,33.0567 -114.5503,33.0562 -114.5469,33.0541 -114.5439,33.0515 -114.5415,33.0489 -114.5396,33.0449 -114.5402,33.0423 -114.5376,33.0404 -114.5324,33.0326 -114.5308,33.0284 -114.5293,33.0243 -114.5268,33.017 -114.5232,33.0101 -114.5169,33.0013 -114.5136,32.9999 -114.5055,32.9983 -114.4983,32.9991 -114.4922,33.0013 -114.4868,33.0002 -114.4787,32.996 -114.4685,32.9898 -114.4565,32.9869 -114.445,32.9871 -114.434,32.9905 -114.4224,32.993 -114.401,32.9952 -114.3872,32.9938 -114.3797,32.9937 -114.37,32.9896 -114.362,32.9835 -114.3567,32.9756 -114.3542,32.9692 -114.3485,32.9577 -114.3416,32.9511 -114.3298,32.945 -114.3234,32.9403 -114.3186,32.9347 -114.3159,32.9277 -114.317,32.925 -114.3173,32.923 -114.3196,32.9186 -114.3202,32.9131 -114.3215,32.9101 -114.3223,32.9072 -114.3235,32.9034 -114.3259,32.8971 -114.3261,32.8902 -114.3247,32.8829 -114.3206,32.8728 -114.3171,32.8618 -114.3169,32.8522 -114.3178,32.8409 -114.3188,32.8281 -114.3202,32.8177 -114.3199,32.8113 -114.3342,32.797 -114.3405,32.7967 -114.3488,32.7937 -114.351,32.7922 -114.3561,32.7889 -114.3595,32.7861 -114.3639,32.7827 -114.3667,32.7807 -114.3705,32.778 -114.3734,32.776 -114.3768,32.7721 -114.3785,32.7702 -114.3804,32.7651 -114.3815,32.7621 -114.3809,32.7592 -114.3851,32.7517 -114.3858,32.7453 -114.3851,32.7372 -114.3897,32.7371 -114.3895,32.7307 -114.3993,32.7306 -114.3995,32.7267 -114.408,32.7267 -114.4075,32.7185 -114.4161,32.7191 -114.4162,32.7148 -114.4187,32.7147 -114.4185,32.7082 -114.4295,32.7085 -114.4289,32.7028 -114.45,32.7018 -114.4504,32.6922 -114.4543,32.6929 -114.4609,32.6944 -114.4688,32.6972 -114.4738,32.6983 -114.4814,32.698 -114.4858,32.6987 -114.4907,32.6989 -114.494,32.6982 -114.4978,32.6981 -114.5028,32.6992 -114.5089,32.7002 -114.5115,32.6997 -114.5149,32.7013 -114.5189,32.7025 -114.5233,32.7032 -114.5311,32.7064 -114.5361,32.7071 -114.5405,32.7073 -114.5443,32.7067 -114.5475,32.7065 -114.5518,32.7049 -114.555,32.7039 -114.5565,32.7024 -114.5592,32.7009 -114.5607,32.6995 -114.5622,32.6976 -114.5631,32.6957 -114.5646,32.6938 -114.5661,32.691 -114.5671,32.6855 -114.5693,32.6819 -114.5705,32.6799 -114.5721,32.6747 -114.5822,32.6488 -114.6423,32.5215 -114.6603,32.4707 -114.6548,32.4683 233,-8.0,United States -116.9104,46.3148 -116.9032,46.3097 -116.8993,46.3093 -116.8933,46.3084 -116.8867,46.3074 -116.8808,46.3061 -116.8742,46.3015 -116.8729,46.2983 -116.8703,46.2946 -116.8683,46.2905 -116.8668,46.2885 -116.8644,46.2855 -116.8611,46.2768 -116.8565,46.2722 -116.8512,46.2703 -116.8479,46.2685 -116.8433,46.2621 -116.8413,46.2575 -116.8407,46.2516 -116.8394,46.2461 -116.8374,46.2406 -116.8341,46.2342 -116.8302,46.2305 -116.8256,46.2264 -116.8216,46.2204 -116.819,46.2154 -116.817,46.209 -116.8157,46.203 -116.8151,46.1966 -116.817,46.1787 -116.817,46.1751 -116.8151,46.17 -116.8138,46.1636 -116.8105,46.1604 -116.796,46.1531 -116.7921,46.1476 -116.7855,46.1421 -116.7796,46.1357 -116.7757,46.1316 -116.7757,46.127 -116.7783,46.1247 -116.781,46.1197 -116.7842,46.1155 -116.7869,46.1119 -116.7882,46.1068 -116.7895,46.0991 -116.7954,46.094 -116.7994,46.0904 -116.8013,46.0858 -116.8033,46.0798 -116.8046,46.0766 -116.8046,46.073 -116.8059,46.0666 -116.8079,46.0634 -116.8099,46.0615 -116.8138,46.0592 -116.8171,46.0579 -116.8204,46.0569 -116.8243,46.0547 -116.8289,46.0519 -116.8328,46.0496 -116.8335,46.0473 -116.8328,46.0441 -116.8309,46.0437 -116.8276,46.0432 -116.8243,46.0432 -116.8197,46.0423 -116.8158,46.0414 -116.8118,46.0382 -116.8066,46.034 -116.804,46.0318 -116.8007,46.0267 -116.8001,46.0231 -116.7987,46.0185 -116.7929,46.0061 -116.787,46.0011 -116.7811,45.9974 -116.7791,45.9951 -116.7778,45.9887 -116.7772,45.9841 -116.7752,45.9805 -116.7719,45.9768 -116.77,45.9732 -116.7687,45.9704 -116.768,45.9672 -116.7667,45.9645 -116.7654,45.9613 -116.7634,45.959 -116.7607,45.9558 -116.7589,45.9539 -116.7523,45.9512 -116.7471,45.948 -116.7445,45.9466 -116.7425,45.9402 -116.7419,45.9352 -116.741,45.9332 -116.7295,45.92 -116.7255,45.9145 -116.7197,45.9077 -116.7138,45.8962 -116.7079,45.8889 -116.706,45.8797 -116.7027,45.8697 -116.6969,45.8651 -116.693,45.8605 -116.689,45.8541 -116.6812,45.8491 -116.6773,45.8472 -116.6688,45.8417 -116.6506,45.8777 -116.6258,45.911 -116.5905,45.9387 -116.5421,45.9577 -116.5411,46.1908 -116.5397,46.194 -116.5325,46.199 -116.5259,46.2022 -116.5226,46.2054 -116.5219,46.2077 -116.5219,46.2127 -116.5238,46.2173 -116.5291,46.2214 -116.533,46.2237 -116.5428,46.2306 -116.5448,46.2366 -116.5421,46.2434 -116.5506,46.2494 -116.5579,46.2522 -116.5611,46.2581 -116.5598,46.2632 -116.5617,46.2733 -116.5604,46.2806 -116.5565,46.2868 -116.5564,46.287 -116.3393,46.2859 -116.3379,46.2891 -116.3359,46.2941 -116.3332,46.3001 -116.3293,46.3037 -116.3267,46.3057 -116.3246,46.3074 -116.3227,46.308 -116.3167,46.3099 -116.3134,46.311 -116.3015,46.3123 -116.2936,46.3118 -116.2884,46.3095 -116.2805,46.3067 -116.2647,46.3103 -116.2588,46.3112 -116.2476,46.3103 -116.2311,46.3088 -116.2232,46.3088 -116.214,46.311 -116.212,46.317 -116.2124,46.3232 -116.2125,46.3252 -116.2129,46.3269 -116.2138,46.3307 -116.2131,46.3358 -116.2093,46.3391 -116.2085,46.3399 -116.208,46.3409 -116.2064,46.3444 -116.207,46.3509 -116.2102,46.361 -116.2095,46.3683 -116.2086,46.3731 -116.2081,46.3756 -116.2166,46.3802 -116.2284,46.3849 -116.2329,46.3878 -116.2379,46.3911 -116.2383,46.3913 -116.2448,46.3982 -116.2487,46.4037 -116.2539,46.4116 -116.2584,46.4203 -116.2597,46.4244 -116.2577,46.4262 -116.2557,46.4276 -116.2518,46.4285 -116.2486,46.4288 -116.2412,46.4296 -116.2346,46.4303 -116.2267,46.4321 -116.2232,46.432 -116.2181,46.432 -116.2182,46.4335 -116.2198,46.4591 -116.2759,46.4566 -116.2904,46.4575 -116.3023,46.4594 -116.3092,46.5878 -116.4467,46.5878 -116.4534,46.5866 -116.4539,46.5865 -116.4632,46.587 -116.4698,46.5856 -116.4771,46.581 -116.4857,46.5774 -116.4891,46.5714 -116.4937,46.5692 -116.5036,46.5646 -116.5149,46.56 -116.5176,46.5568 -116.5202,46.5532 -116.5262,46.5491 -116.5328,46.544 -116.5408,46.5376 -116.5434,46.5344 -116.5461,46.5285 -116.5481,46.5211 -116.5495,46.5157 -116.5508,46.5097 -116.5521,46.5051 -116.5548,46.4996 -116.8882,46.5027 -116.8848,46.3941 -116.8835,46.3918 -116.8835,46.3867 -116.8842,46.3826 -116.8855,46.3785 -116.8881,46.3739 -116.8894,46.3675 -116.8894,46.3597 -116.8907,46.3546 -116.8999,46.3427 -116.9052,46.3391 -116.9059,46.3326 -116.9078,46.3271 -116.9105,46.3194 -116.9104,46.3148 4,-8.0,United States -114.4391,46.5934 -114.4187,46.5967 -114.4393,46.5934 -114.4391,46.5934 2915,-7.0,United States -118.076,44.136 -118.0751,44.13 -118.0737,44.1177 -118.0722,44.1063 -118.0701,44.0945 -118.0711,44.084 -118.0723,44.0808 -118.0715,43.996 -118.0669,43.7433 -118.0733,43.7428 -118.0668,43.4187 -118.0651,43.2854 -118.0674,43.1689 -118.0661,43.1307 -118.0653,42.8705 -118.0553,42.8706 -118.0529,42.3647 -116.8655,42.3696 -116.8652,41.9609 -116.8658,41.9551 -116.8387,41.957 -116.6601,41.959 -116.5231,41.9606 -116.5151,41.9607 -116.2798,41.9614 -116.2199,41.9613 -116.1434,41.9607 -116.0081,41.9595 -115.8254,41.9579 -114.8701,41.9591 -114.4674,41.9587 -114.1154,41.9585 -113.8855,41.9613 -113.8866,41.9356 -113.886,41.8315 -113.8859,41.7193 -113.8848,41.5122 -113.8852,41.3834 -113.8852,41.3551 -113.8854,41.1921 -113.8846,40.9637 -113.8855,40.912 -113.8858,40.8956 -113.8862,40.8402 -113.8865,40.8062 -113.885,40.7191 -113.8858,40.6868 -113.8862,40.6691 -113.8856,40.6092 -113.8859,40.5448 -113.8866,40.4686 -113.8866,40.3819 -113.8845,40.3406 -113.8842,40.2889 -113.8837,40.1696 -113.8845,40.0771 -113.8854,40.0403 -113.8857,39.9909 -113.886,39.9392 -113.8864,39.9288 -113.8875,39.917 -113.8863,39.8748 -113.8873,39.8485 -113.8862,39.8172 -113.8859,39.7523 -113.8864,39.6965 -113.8867,39.6467 -113.8872,39.6054 -113.8867,39.5428 -113.8865,39.5047 -113.8881,39.4226 -113.8884,39.3714 -113.8882,39.3025 -113.888,39.2077 -113.8882,39.0857 -113.8894,38.9837 -113.8904,38.8699 -113.8918,38.7634 -113.8907,38.645 -113.8912,38.6337 -113.8888,38.6055 -113.891,38.5643 -113.8915,38.5371 -113.8928,38.4913 -113.8931,38.397 -113.8938,38.3063 -113.8938,38.232 -113.8937,38.1036 -113.8937,38.0592 -113.8944,37.9259 -113.8945,37.7772 -113.8937,37.5645 -113.8944,37.5169 -113.891,37.2088 -113.8908,36.9643 -113.7079,36.9638 -113.581,36.9647 -113.5579,36.9649 -113.4777,36.9655 -113.4054,36.966 -113.3693,36.966 -113.2481,36.9661 -113.1488,36.9651 -113.0958,36.965 -112.9412,36.965 -112.8501,36.9643 -112.7995,36.9651 -112.7464,36.9659 -112.7441,36.9659 -112.6183,36.9654 -112.5099,36.9639 -112.4845,36.9636 -112.3847,36.9657 -112.3825,36.9657 -112.3292,36.9648 -112.3115,36.9645 -112.2566,36.965 -112.2493,36.965 -112.1697,36.9645 -112.0837,36.9628 -112.0497,36.9622 -111.922,36.9639 -111.8595,36.9647 -111.7748,36.9645 -111.7674,36.9644 -111.6439,36.9644 -111.5856,36.9643 -111.5494,36.9647 -111.4537,36.9656 -111.4482,36.9656 -111.4203,36.9658 -111.305,36.9667 -111.2576,36.9667 -111.2547,36.9672 -111.2473,36.9734 -111.2455,36.9749 -111.2391,36.9747 -111.2323,36.973 -111.225,36.9708 -111.2182,36.9687 -111.2142,36.9685 -111.2119,36.9683 -111.2062,36.9677 -111.2015,36.9684 -111.1992,36.9682 -111.192,36.9678 -111.1732,36.9663 -111.0958,36.9693 -111.01,36.9692 -110.9809,36.9692 -110.9144,36.9691 -110.8793,36.9691 -110.8175,36.9693 -110.7552,36.9695 -110.7248,36.9696 -110.6587,36.9701 -110.6297,36.9703 -110.5882,36.97 -110.4936,36.9698 -110.43,36.9696 -110.4115,36.9696 -110.3553,36.97 -110.3427,36.9699 -110.3294,36.9689 -110.3206,36.9657 -110.3084,36.9612 -110.305,36.96 -110.2988,36.9577 -110.1972,36.9576 -110.143,36.9586 -110.0965,36.9594 -110.0769,36.9598 -110.0474,36.96 -110.0336,36.9604 -109.9504,36.9595 -109.9449,36.9594 -109.8649,36.9598 -109.844,36.958 -109.7858,36.9594 -109.6091,36.9594 -109.5819,36.9592 -109.516,36.9587 -109.4868,36.9583 -109.4218,36.9589 -109.3848,36.9587 -109.3201,36.9596 -109.2724,36.9592 -109.1985,36.9607 -109.1676,36.9606 -109.0816,36.9616 -109.0403,36.9616 -108.9654,36.962 -108.952,36.9621 -108.9423,36.9624 -108.9309,36.9629 -108.907,36.9638 -108.8971,36.9642 -108.8956,36.9023 -108.8967,36.8003 -108.8966,36.7114 -108.896,36.6175 -108.896,36.5545 -108.8955,36.4842 -108.8954,36.476 -108.8953,36.4575 -108.8953,36.3627 -108.8946,36.2493 -108.894,36.1713 -108.8934,36.0987 -108.8939,36.0297 -108.8944,35.9626 -108.894,35.2075 -108.8939,35.1991 -108.8928,35.129 -108.8922,35.0536 -108.8927,34.9791 -108.8932,34.9206 -108.8934,34.9071 -108.8938,34.8806 -108.8943,34.7993 -108.8943,34.7923 -108.8942,34.6594 -108.8953,34.5577 -108.8957,34.3178 -108.8952,34.1837 -108.895,34.1306 -108.8971,33.9933 -108.897,33.7492 -108.898,33.6546 -108.8982,33.5545 -108.8984,33.4217 -108.8973,33.3221 -108.8972,33.1711 -108.8971,33.1501 -108.8977,33.1092 -108.8971,33.0755 -108.8979,33.0579 -108.8982,33.0527 -108.8982,33.0127 -108.8987,32.953 -108.897,32.8816 -108.8975,32.8115 -108.898,32.7454 -108.8951,32.546 -108.8946,32.5277 -108.8951,32.515 -108.8967,32.4895 -108.8973,32.4799 -108.8973,32.4612 -108.8961,32.4079 -108.895,32.3068 -108.8933,32.1413 -108.8927,32.0333 -108.8937,31.9252 -108.8953,31.8646 -108.8936,31.7975 -108.8936,31.7469 -108.8946,31.6794 -108.8929,31.5608 -108.8912,31.428 -108.8923,31.3093 -108.8923,31.2978 -108.6911,31.2976 -108.675,31.2981 -108.6371,31.2978 -108.0674,31.2981 -108.0669,31.3315 -108.0676,31.3984 -108.0671,31.4974 -108.0678,31.5642 -108.067,31.6642 -108.0679,31.748 -108.0341,31.7486 -107.7677,31.7474 -107.5678,31.7483 -107.468,31.7479 -107.4348,31.7485 -107.368,31.7477 -107.3015,31.7486 -107.2351,31.7479 -107.2014,31.7484 -107.1352,31.7478 -107.1022,31.7483 -107.0351,31.7479 -107.0024,31.7486 -106.936,31.7479 -106.4696,31.7482 -106.401,31.7465 -106.3842,31.7451 -106.3577,31.7216 -106.3215,31.7148 -106.3005,31.7161 -106.2781,31.7186 -106.2575,31.7122 -106.196,31.6521 -106.1648,31.6022 -106.1508,31.5623 -106.134,31.524 -106.0718,31.4371 -106.0056,31.3968 -105.9247,31.3675 -105.8735,31.3601 -105.8347,31.3347 -105.7202,31.2475 -105.7042,31.2343 -105.6899,31.2196 -105.6493,31.1734 -105.634,31.1435 -105.5723,31.1093 -105.4628,31.0469 -105.4434,31.0233 -105.404,30.9616 -105.3536,30.9117 -105.2559,30.8315 -105.1163,30.7627 -105.0856,30.7702 -105.0328,30.7441 -104.9882,30.7153 -104.9252,30.6599 -104.8545,30.5981 -104.8344,30.6089 -104.8342,30.6073 -104.7621,30.6476 -104.7628,30.7816 -104.7493,30.781 -104.7492,30.9471 -104.7628,30.9496 -104.769,31.9665 -104.758,31.9663 -104.7265,31.9693 -104.7101,31.969 -104.6981,31.9694 -104.6891,31.9693 -104.6783,31.9692 -104.6348,31.9687 -104.5743,31.9691 -104.5647,31.9692 -104.5289,31.9694 -104.5041,31.9696 -104.4549,31.9699 -104.4256,31.9701 -104.3787,31.9703 -104.3208,31.9704 -104.2721,31.9706 -104.2436,31.9707 -104.1747,31.9709 -103.8661,31.9732 -103.8426,31.9719 -103.8281,31.971 -103.5635,31.9708 -103.1795,31.9655 -103.1689,31.9654 -102.9052,31.9668 -102.9024,32.0509 -102.9054,32.4817 -102.8993,32.4818 -102.8992,32.9174 -102.8955,33.3459 -102.8882,33.5317 -102.888,33.5359 -102.8842,33.7944 -102.8796,34.2152 -102.8803,34.2757 -102.8788,34.5798 -102.8736,34.7181 -102.872,34.9325 -102.8729,35.1432 -102.8729,35.1478 -102.869,35.5896 -102.8691,35.5928 -102.8694,35.7082 -102.8708,36.0254 -102.8741,36.458 -102.8502,36.459 -102.8509,36.9648 -102.8445,36.9648 -102.6143,36.9644 -102.6022,36.9643 -102.5851,36.9643 -102.5819,36.9637 -102.577,36.9627 -102.5702,36.9613 -102.5607,36.9612 -102.5578,36.9611 -102.3826,36.9591 -102.2783,36.958 -101.8877,36.9535 -101.8888,37.3522 -101.8912,37.6074 -101.8908,37.7003 -101.3676,37.6975 -101.37,37.789 -101.384,37.7904 -101.3859,38.2214 -101.4076,38.2228 -101.4103,38.6592 -101.3254,38.6606 -101.32,39.0939 -101.234,39.0952 -101.2321,39.5313 -101.2536,39.5331 -101.8956,39.5288 -101.8962,39.5347 -101.8983,39.9649 -101.2542,39.967 -101.169,39.9678 -101.1693,40.3088 -101.1886,40.3092 -101.1878,40.6634 -101.0902,40.6637 -101.0922,40.9668 -101.0902,41.0071 -101.1097,41.0104 -101.1097,41.3561 -101.2499,41.3577 -101.2556,41.7031 -100.6865,41.7046 -100.6919,42.048 -100.5934,42.0474 -100.5945,42.0475 -100.5945,42.1737 -100.6548,42.1738 -100.6552,42.3185 -100.6644,42.3185 -100.6644,42.3975 -100.6254,42.3975 -100.6266,42.5751 -100.7354,42.5762 -100.7351,42.727 -100.6987,42.7274 -100.6987,42.7526 -100.7045,42.7526 -100.7045,42.7893 -100.7503,42.7893 -100.7516,42.9541 -100.7511,42.9541 -100.0469,42.957 -100.0501,43.1003 -100.0664,43.1003 -100.0647,43.3603 -100.0632,43.444 -100.0809,43.445 -100.0786,43.6809 -100.0914,43.6781 -100.0985,43.676 -100.106,43.678 -100.1111,43.6786 -100.122,43.6758 -100.1291,43.6728 -100.1343,43.6706 -100.1379,43.6739 -100.1403,43.6772 -100.1438,43.6823 -100.1505,43.687 -100.1575,43.6868 -100.1695,43.6871 -100.1809,43.6879 -100.1852,43.6894 -100.1901,43.6927 -100.2025,43.6985 -100.2124,43.7024 -100.22,43.7022 -100.2271,43.6992 -100.2355,43.6967 -100.2437,43.6983 -100.2493,43.7007 -100.2549,43.7022 -100.2619,43.701 -100.2646,43.6975 -100.2643,43.6925 -100.2638,43.6893 -100.2645,43.687 -100.2715,43.6867 -100.2759,43.6873 -100.2815,43.6893 -100.2858,43.6917 -100.2907,43.695 -100.2957,43.6969 -100.3009,43.6948 -100.3042,43.6922 -100.3119,43.6896 -100.3171,43.687 -100.3241,43.6868 -100.324,43.6895 -100.3232,43.6927 -100.3222,43.6986 -100.3232,43.7041 -100.3277,43.7037 -100.3316,43.702 -100.3354,43.7007 -100.3392,43.7018 -100.346,43.7038 -100.3512,43.7021 -100.3564,43.6995 -100.3634,43.6983 -100.3684,43.6998 -100.3693,43.7071 -100.3717,43.7099 -100.3779,43.7123 -100.3837,43.7107 -100.3902,43.7086 -100.3959,43.7069 -100.3998,43.7056 -100.4042,43.7057 -100.406,43.7085 -100.4044,43.7158 -100.4036,43.7189 -100.404,43.7231 -100.4076,43.7263 -100.4127,43.7269 -100.4159,43.7252 -100.4185,43.7239 -100.4223,43.7244 -100.4241,43.7272 -100.4278,43.7291 -100.4308,43.731 -100.4346,43.733 -100.4441,43.7327 -100.4518,43.7302 -100.461,43.7236 -100.4651,43.7169 -100.4742,43.7121 -100.4807,43.7104 -100.4881,43.7129 -100.4944,43.714 -100.5073,43.7107 -100.5087,43.7075 -100.5063,43.7038 -100.5059,43.7006 -100.5078,43.6993 -100.5117,43.6976 -100.5201,43.695 -100.5234,43.6919 -100.5254,43.6888 -100.5268,43.6861 -100.5313,43.6848 -100.5376,43.6864 -100.5439,43.6884 -100.544,43.9512 -100.3679,44.1396 -100.203,44.3161 -100.2076,44.3169 -100.2145,44.3184 -100.2199,44.3245 -100.226,44.3315 -100.23,44.3394 -100.232,44.3508 -100.2346,44.3623 -100.2309,44.37 -100.2278,44.3799 -100.2282,44.3859 -100.229,44.3946 -100.2324,44.4024 -100.2353,44.4084 -100.2382,44.414 -100.2462,44.4201 -100.2594,44.4255 -100.2732,44.43 -100.2911,44.4314 -100.3129,44.4306 -100.3303,44.4288 -100.3464,44.426 -100.364,44.4214 -100.3757,44.4181 -100.3878,44.4179 -100.3974,44.4182 -100.4108,44.4194 -100.4209,44.4234 -100.4334,44.4292 -100.4401,44.4362 -100.4417,44.4421 -100.4425,44.4517 -100.4394,44.4612 -100.4333,44.4693 -100.4266,44.4742 -100.4129,44.4788 -100.4025,44.4813 -100.3922,44.4824 -100.3799,44.4862 -100.374,44.4883 -100.3692,44.4932 -100.3663,44.5009 -100.3658,44.5095 -100.3688,44.5146 -100.3805,44.5236 -100.3939,44.5258 -100.4047,44.5265 -100.4142,44.5295 -100.422,44.527 -100.4305,44.5231 -100.4458,44.5258 -100.4578,44.5293 -100.4698,44.5337 -100.4816,44.5413 -100.4882,44.551 -100.492,44.5643 -100.4934,44.5744 -100.4934,44.5877 -100.489,44.5976 -100.4802,44.6079 -100.4758,44.6182 -100.4722,44.6264 -100.4679,44.6349 -100.4643,44.6435 -100.4638,44.6531 -100.4648,44.6586 -100.4696,44.6656 -100.4725,44.6716 -100.4753,44.6794 -100.4768,44.6886 -100.4777,44.6968 -100.48,44.7028 -100.4861,44.708 -100.4937,44.7109 -100.5013,44.7134 -100.5134,44.7164 -100.521,44.7189 -100.528,44.7204 -100.5387,44.7239 -100.5476,44.7264 -100.5564,44.7303 -100.562,44.7354 -100.5657,44.7369 -100.5738,44.7439 -100.576,44.7499 -100.578,44.7618 -100.5775,44.7723 -100.5753,44.7787 -100.5691,44.7863 -100.5644,44.7916 -100.5577,44.7965 -100.5487,44.7967 -100.5352,44.795 -100.5218,44.7924 -100.5137,44.7881 -100.5056,44.7815 -100.4982,44.7759 -100.4927,44.7693 -100.4793,44.7553 -100.4697,44.7414 -100.4589,44.7374 -100.447,44.7316 -100.4298,44.7285 -100.4138,44.7271 -100.4028,44.7287 -100.3885,44.7315 -100.3753,44.7371 -100.368,44.7424 -100.3598,44.7513 -100.3524,44.7575 -100.3462,44.7651 -100.3394,44.7727 -100.3312,44.7807 -100.3232,44.786 -100.3152,44.7922 -100.3025,44.8 -100.2886,44.807 -100.2781,44.8113 -100.2688,44.8165 -100.2543,44.8216 -100.2501,44.8283 -100.2472,44.8346 -100.2456,44.841 -100.2447,44.846 -100.2457,44.851 -100.2487,44.8548 -100.2534,44.8636 -100.2623,44.8784 -100.2686,44.8923 -100.2752,44.9149 -100.2755,44.9336 -100.2773,44.9469 -100.2772,44.9611 -100.2767,44.9716 -100.2718,44.9778 -100.2583,44.9889 -100.2432,44.9935 -100.2243,44.9976 -100.2017,44.9965 -100.1844,44.9937 -100.1678,44.9905 -100.1492,44.9882 -100.1401,44.9898 -100.1301,44.9954 -100.1277,45.0027 -100.1345,45.0088 -100.1477,45.0156 -100.1565,45.0195 -100.1639,45.0265 -100.1687,45.0331 -100.1783,45.047 -100.179,45.0571 -100.179,45.0699 -100.1764,45.0822 -100.1715,45.0884 -100.1646,45.0965 -100.1539,45.1035 -100.143,45.1123 -100.1375,45.1177 -100.1345,45.1263 -100.1331,45.139 -100.1346,45.1473 -100.1354,45.1569 -100.1265,45.1777 -100.1188,45.1994 -100.1178,45.2168 -100.1233,45.2347 -100.1349,45.2474 -100.149,45.262 -100.1582,45.2709 -100.1692,45.2845 -100.1688,45.2904 -100.1659,45.2976 -100.1595,45.3061 -100.15,45.3146 -100.1386,45.3211 -100.1291,45.3286 -100.1267,45.3368 -100.1267,45.3487 -100.1308,45.3566 -100.1373,45.3673 -100.1426,45.377 -100.153,45.3887 -100.1622,45.3986 -100.1722,45.4071 -100.1779,45.41 -100.1834,45.4161 -100.1856,45.4226 -100.1872,45.4285 -100.1918,45.441 -100.1988,45.4549 -100.2069,45.4606 -100.2176,45.4678 -100.233,45.4728 -100.2426,45.4753 -100.2549,45.4766 -100.275,45.4766 -100.2899,45.4789 -100.3041,45.4811 -100.3128,45.4872 -100.3185,45.4906 -100.3267,45.4958 -100.3322,45.5037 -100.3356,45.5125 -100.3378,45.5208 -100.3369,45.5254 -100.3333,45.5317 -100.3285,45.5366 -100.3197,45.5419 -100.3111,45.5439 -100.3006,45.5473 -100.2972,45.5495 -100.2911,45.553 -100.2897,45.5548 -100.2854,45.5625 -100.2814,45.5761 -100.2794,45.5897 -100.2776,45.5998 -100.2757,45.6107 -100.2734,45.6175 -100.2692,45.6211 -100.2593,45.6245 -100.2404,45.6249 -100.2188,45.6247 -100.2052,45.6248 -100.1893,45.629 -100.1779,45.6337 -100.1685,45.6394 -100.159,45.6465 -100.1532,45.6573 -100.1515,45.6637 -100.1498,45.6714 -100.1519,45.6806 -100.1541,45.6871 -100.1604,45.6914 -100.1692,45.698 -100.1766,45.7051 -100.1846,45.7144 -100.1913,45.7238 -100.1968,45.7299 -100.1997,45.7368 -100.2063,45.7471 -100.2093,45.7522 -100.2137,45.755 -100.2172,45.7574 -100.2187,45.7584 -100.2215,45.7681 -100.222,45.7832 -100.2268,45.7911 -100.2323,45.7981 -100.2346,45.8032 -100.2271,45.809 -100.2221,45.8162 -100.2199,45.8216 -100.2215,45.8271 -100.2246,45.8318 -100.2309,45.8356 -100.2425,45.8387 -100.2548,45.8408 -100.2645,45.8425 -100.2722,45.8459 -100.2753,45.8496 -100.2729,45.8573 -100.2718,45.8646 -100.2766,45.873 -100.285,45.876 -100.2901,45.8775 -100.2975,45.874 -100.314,45.8708 -100.3191,45.8741 -100.3255,45.877 -100.3357,45.8819 -100.3439,45.8876 -100.3503,45.8896 -100.3575,45.8911 -100.3626,45.8936 -100.3663,45.8978 -100.3661,45.9014 -100.3612,45.9063 -100.3604,45.9219 -100.3607,45.9224 -100.3645,45.9289 -100.3712,45.9405 -100.3815,45.9573 -100.3964,45.97 -100.4214,45.9833 -100.439,46.0032 -100.4586,46.0317 -100.4589,46.0324 -100.4618,46.0394 -100.4622,46.0402 -100.4623,46.0484 -100.4686,46.0739 -100.4753,46.0851 -100.4766,46.0975 -100.475,46.1158 -100.4705,46.1271 -100.4632,46.1407 -100.4539,46.1556 -100.4429,46.1654 -100.4297,46.1788 -100.4199,46.1909 -100.4122,46.1999 -100.4086,46.2067 -100.4134,46.2155 -100.4196,46.223 -100.4269,46.2337 -100.4316,46.2449 -100.4278,46.2544 -100.4228,46.263 -100.4101,46.2778 -100.3985,46.2981 -100.4004,46.3133 -100.4015,46.3294 -100.4131,46.3475 -100.4207,46.367 -100.4266,46.3786 -100.436,46.388 -100.4415,46.3968 -100.4452,46.4144 -100.4454,46.4178 -100.4462,46.4217 -100.4456,46.4239 -100.446,46.4373 -100.4444,46.4442 -100.44,46.4523 -100.4344,46.4619 -100.4334,46.4641 -100.4262,46.4758 -100.4195,46.4903 -100.4191,46.4995 -100.4238,46.5221 -100.4236,46.5248 -100.4243,46.5262 -100.4253,46.5317 -100.4243,46.5386 -100.4211,46.541 -100.4192,46.5476 -100.4304,46.5603 -100.4411,46.565 -100.444,46.5657 -100.4604,46.5689 -100.4707,46.5742 -100.4789,46.5817 -100.4853,46.5874 -100.4884,46.5911 -100.4902,46.5939 -100.4964,46.6014 -100.5016,46.6047 -100.5001,46.6079 -100.506,46.6209 -100.5178,46.6244 -100.5312,46.6252 -100.5397,46.6231 -100.5557,46.6203 -100.567,46.6201 -100.578,46.6245 -100.5829,46.6319 -100.5849,46.6427 -100.5907,46.6486 -100.5999,46.6501 -100.6039,46.6503 -100.6191,46.6502 -100.6277,46.6509 -100.6328,46.6547 -100.6377,46.6621 -100.6441,46.6664 -100.6472,46.6711 -100.649,46.6753 -100.6488,46.6794 -100.6434,46.6815 -100.6374,46.6828 -100.6332,46.6864 -100.6311,46.6895 -100.6295,46.6941 -100.6294,46.6973 -100.6312,46.701 -100.6317,46.7033 -100.6356,46.7052 -100.6442,46.7064 -100.6515,46.7056 -100.6587,46.7067 -100.664,46.7073 -100.6698,46.7097 -100.6743,46.7126 -100.675,46.713 -100.6828,46.716 -100.6865,46.7225 -100.6826,46.7334 -100.6789,46.7404 -100.6772,46.7498 -100.6735,46.7584 -100.6723,46.7685 -100.6732,46.7782 -100.8752,46.778 -100.8777,46.7747 -100.8853,46.7721 -100.8904,46.7654 -100.8972,46.7637 -100.9031,46.7637 -100.9065,46.7586 -100.9039,46.7527 -100.9056,46.7459 -100.9132,46.7392 -100.9377,46.7315 -100.9412,46.7308 -100.9412,46.8688 -101.0557,46.8688 -101.0557,46.9501 -101.2591,46.9506 -101.613,46.9499 -101.613,46.9514 -101.6124,46.9514 -101.613,47.2072 -101.1061,47.2114 -101.1073,47.2326 -101.113,47.2387 -101.12,47.2462 -101.1253,47.2491 -101.1285,47.251 -101.1331,47.2524 -101.1365,47.2529 -101.1464,47.2554 -101.1657,47.2577 -101.175,47.2588 -101.1829,47.2607 -101.1895,47.2623 -101.1947,47.2656 -101.1959,47.2697 -101.1964,47.2734 -101.1977,47.2757 -101.1995,47.2795 -101.2021,47.2827 -101.204,47.2837 -101.2053,47.2855 -101.2111,47.2898 -101.2129,47.2963 -101.2124,47.3077 -101.2128,47.3151 -101.2137,47.3257 -101.2158,47.3386 -101.217,47.3432 -101.2228,47.3498 -101.2247,47.3503 -101.2287,47.3527 -101.2313,47.3545 -101.2353,47.3551 -101.2425,47.3584 -101.2451,47.3599 -101.2477,47.3627 -101.2482,47.3654 -101.2611,47.3956 -101.2663,47.4164 -101.2662,47.4187 -101.2688,47.4201 -101.2721,47.4225 -101.2811,47.4277 -101.2838,47.4305 -101.2843,47.4346 -101.2842,47.4374 -101.2834,47.442 -101.2805,47.4461 -101.2714,47.4556 -101.2679,47.4592 -101.261,47.465 -101.2583,47.4664 -101.2534,47.4699 -101.2507,47.4708 -101.2459,47.4735 -101.2418,47.4748 -101.2364,47.4774 -101.2337,47.4783 -101.2316,47.4797 -101.2288,47.4824 -101.2279,47.4879 -101.2312,47.4907 -101.2324,47.493 -101.2519,47.509 -101.2754,47.5242 -101.2787,47.5252 -101.282,47.5266 -101.2854,47.5271 -101.2887,47.5267 -101.2928,47.5268 -101.2961,47.5282 -101.3014,47.5279 -101.3061,47.5284 -101.3135,47.5276 -101.3196,47.5268 -101.3291,47.5247 -101.3365,47.5225 -101.3494,47.52 -101.3568,47.5178 -101.3643,47.5161 -101.3806,47.5109 -101.3941,47.5075 -101.4009,47.5048 -101.4097,47.5036 -101.4643,47.4958 -101.4764,47.4951 -101.4811,47.4947 -101.4898,47.4958 -101.4938,47.4963 -101.4993,47.4974 -101.5071,47.4984 -101.5151,47.4994 -101.5291,47.5006 -101.5385,47.5012 -101.5432,47.5008 -101.5479,47.5 -101.5526,47.5001 -101.5573,47.4997 -101.5641,47.4984 -101.5715,47.4972 -101.5756,47.4963 -101.5918,47.4915 -101.5986,47.4893 -101.6054,47.4876 -101.6128,47.4845 -101.6203,47.4819 -101.6359,47.4752 -101.642,47.4735 -101.6448,47.4712 -101.6489,47.4699 -101.6523,47.4686 -101.657,47.4682 -101.6616,47.4683 -101.6663,47.4688 -101.671,47.4689 -101.6817,47.4699 -101.6857,47.4709 -101.689,47.471 -101.693,47.472 -101.6977,47.472 -101.701,47.4725 -101.7098,47.4718 -101.7245,47.472 -101.7365,47.4731 -101.7432,47.4746 -101.7485,47.4756 -101.7518,47.477 -101.7558,47.4789 -101.7611,47.4813 -101.7651,47.4827 -101.7683,47.4846 -101.7729,47.4879 -101.7768,47.4916 -101.7821,47.4945 -101.7867,47.4968 -101.7894,47.4978 -101.7947,47.4983 -101.7987,47.4989 -101.8041,47.4985 -101.8088,47.4981 -101.8155,47.4991 -101.8215,47.5006 -101.8275,47.5016 -101.8334,47.504 -101.8374,47.5045 -101.8421,47.505 -101.8488,47.5047 -101.8542,47.5043 -101.8609,47.5048 -101.8636,47.5053 -101.8682,47.5082 -101.8695,47.51 -101.8687,47.5123 -101.8673,47.515 -101.8659,47.5173 -101.8657,47.5219 -101.867,47.5242 -101.8703,47.528 -101.8735,47.5303 -101.9047,47.5423 -101.9087,47.5432 -101.9174,47.5438 -101.9235,47.5434 -101.9362,47.5432 -101.9503,47.5415 -101.9772,47.54 -101.988,47.5397 -102.0007,47.5403 -102.0114,47.541 -102.0342,47.5426 -102.0388,47.5436 -102.0442,47.5446 -102.0468,47.5456 -102.0534,47.5521 -102.0635,47.5593 -102.0778,47.5662 -102.097,47.5779 -102.1028,47.5831 -102.1292,47.5765 -102.1608,47.5751 -102.1702,47.5752 -102.1783,47.5739 -102.1851,47.5689 -102.1906,47.5639 -102.2021,47.5594 -102.223,47.5569 -102.237,47.5589 -102.2431,47.559 -102.2565,47.5564 -102.2613,47.5551 -102.266,47.5524 -102.2702,47.5474 -102.2769,47.5451 -102.2811,47.541 -102.2838,47.5379 -102.286,47.5328 -102.2861,47.5264 -102.2849,47.5218 -102.2837,47.5149 -102.2825,47.5098 -102.2833,47.5033 -102.2848,47.4978 -102.2862,47.4937 -102.2857,47.4891 -102.2844,47.4845 -102.2845,47.4822 -102.2859,47.4799 -102.2886,47.4786 -102.298,47.4768 -102.3208,47.4771 -102.3349,47.4777 -102.3496,47.4783 -102.3696,47.4827 -102.3829,47.4874 -102.3896,47.4893 -102.4015,47.4931 -102.4102,47.4955 -102.4215,47.4998 -102.4308,47.5031 -102.4395,47.5046 -102.4515,47.5079 -102.4582,47.5084 -102.4656,47.5076 -102.4724,47.5035 -102.4791,47.5022 -102.4892,47.5014 -102.5013,47.4987 -102.5114,47.4975 -102.5234,47.498 -102.5287,47.5008 -102.5307,47.5041 -102.5313,47.5059 -102.5305,47.5133 -102.5283,47.5215 -102.5275,47.5266 -102.5295,47.5312 -102.5307,47.5344 -102.5347,47.5377 -102.5414,47.5387 -102.5615,47.5398 -102.5756,47.5395 -102.5789,47.5418 -102.5835,47.5455 -102.5875,47.5488 -102.5921,47.5534 -102.5981,47.5567 -102.6027,47.5586 -102.6101,47.5596 -102.6201,47.5606 -102.6342,47.5602 -102.647,47.5608 -102.6543,47.5627 -102.6583,47.5646 -102.6643,47.566 -102.6683,47.5656 -102.6777,47.5647 -102.6905,47.5662 -102.6938,47.5676 -102.6958,47.569 -102.7005,47.5691 -102.7045,47.5686 -102.7126,47.5696 -102.7139,47.5715 -102.7151,47.5752 -102.7158,47.5779 -102.7224,47.5798 -102.7251,47.5821 -102.7271,47.584 -102.7303,47.5886 -102.733,47.5914 -102.737,47.5933 -102.7423,47.5943 -102.7497,47.5952 -102.7544,47.5948 -102.7605,47.5939 -102.7652,47.594 -102.7698,47.5958 -102.7765,47.5982 -102.7811,47.6019 -102.7845,47.601 -102.7899,47.5992 -102.796,47.5993 -102.7979,47.6007 -102.7979,47.6043 -102.7951,47.6085 -102.7943,47.6163 -102.795,47.6177 -102.803,47.6209 -102.8097,47.6224 -102.8103,47.6284 -102.8129,47.6316 -102.8189,47.6326 -102.821,47.6317 -102.8264,47.6299 -102.8324,47.6304 -102.8357,47.6345 -102.841,47.6383 -102.8483,47.6424 -102.8637,47.6458 -102.8785,47.6445 -102.8792,47.644 -102.8826,47.6422 -102.8839,47.6422 -102.8874,47.6367 -102.8888,47.6331 -102.8895,47.6276 -102.8869,47.6229 -102.8837,47.616 -102.8743,47.6104 -102.8703,47.6081 -102.8697,47.6058 -102.8691,47.603 -102.8705,47.6012 -102.8738,47.5989 -102.8779,47.5976 -102.8819,47.5958 -102.884,47.593 -102.8854,47.5866 -102.8869,47.5806 -102.8909,47.5779 -102.897,47.5752 -102.9011,47.5729 -102.9038,47.5683 -102.9052,47.5651 -102.9046,47.5586 -102.9054,47.555 -102.9121,47.5518 -102.9222,47.5491 -102.9309,47.5492 -102.9363,47.5497 -102.941,47.552 -102.9463,47.552 -102.951,47.5511 -102.954,47.55 -102.9557,47.5493 -102.9625,47.5494 -102.9658,47.5517 -102.9711,47.5536 -102.9758,47.5527 -102.9799,47.5504 -102.9819,47.549 -102.986,47.5477 -102.9907,47.5482 -102.9967,47.55 -103.0,47.5505 -103.004,47.5505 -103.0054,47.5483 -103.0048,47.5455 -103.0075,47.5414 -103.0109,47.54 -103.0196,47.5405 -103.023,47.5382 -103.0297,47.5364 -103.0357,47.5379 -103.0411,47.5406 -103.0471,47.5425 -103.0598,47.5458 -103.0711,47.5486 -103.0859,47.5519 -103.0926,47.5529 -103.0972,47.5557 -103.1053,47.5562 -103.112,47.5576 -103.118,47.5599 -103.126,47.5614 -103.1314,47.5605 -103.1341,47.5582 -103.1355,47.554 -103.1389,47.5504 -103.1463,47.5467 -103.1523,47.5454 -103.1557,47.5463 -103.1577,47.5482 -103.1643,47.5528 -103.1697,47.5542 -103.1771,47.5533 -103.1851,47.5534 -103.1871,47.5543 -103.1898,47.5585 -103.1931,47.5635 -103.1951,47.5654 -103.2018,47.5654 -103.2065,47.5631 -103.2132,47.5604 -103.2159,47.5604 -103.2206,47.5618 -103.2239,47.5632 -103.2286,47.5642 -103.2333,47.5642 -103.2387,47.5637 -103.2421,47.5633 -103.2474,47.5606 -103.2522,47.5578 -103.2555,47.556 -103.2596,47.5555 -103.2649,47.5556 -103.2696,47.5565 -103.2743,47.557 -103.2777,47.5579 -103.2791,47.5519 -103.2791,47.5492 -103.2798,47.5418 -103.2819,47.5391 -103.2846,47.5368 -103.2866,47.535 -103.288,47.5308 -103.29,47.5258 -103.2907,47.5216 -103.2914,47.5166 -103.2901,47.5129 -103.2868,47.5101 -103.2815,47.506 -103.2775,47.5027 -103.2768,47.4986 -103.2775,47.4954 -103.2809,47.4931 -103.2896,47.4908 -103.2964,47.4895 -103.2984,47.4876 -103.3018,47.4849 -103.3038,47.4854 -103.3064,47.4877 -103.3098,47.49 -103.3131,47.49 -103.3165,47.4882 -103.3205,47.4882 -103.3285,47.4887 -103.3433,47.4906 -103.3466,47.491 -103.352,47.4924 -103.3573,47.4934 -103.3606,47.4961 -103.366,47.4985 -103.3727,47.4994 -103.3787,47.4985 -103.3828,47.4967 -103.3834,47.4953 -103.3848,47.4907 -103.3875,47.4889 -103.3929,47.488 -103.3989,47.4866 -103.4023,47.4852 -103.407,47.482 -103.4084,47.4765 -103.4111,47.4756 -103.4131,47.4765 -103.4164,47.4793 -103.4191,47.4816 -103.4244,47.4826 -103.4311,47.4789 -103.4351,47.4798 -103.4392,47.4826 -103.4438,47.4845 -103.4472,47.484 -103.4493,47.4833 -103.4492,47.548 -103.5882,47.5481 -103.5886,47.6361 -103.6363,47.6361 -103.6363,47.8168 -103.8121,47.8177 -103.8121,47.8205 -103.8149,47.8275 -103.8149,47.8359 -103.8135,47.8415 -103.8051,47.8583 -103.8071,47.8693 -103.8065,47.8778 -103.8107,47.8876 -103.8121,47.8946 -103.8121,47.9043 -103.8153,47.9238 -103.8173,47.9292 -103.8169,47.9336 -103.8205,47.9379 -103.8211,47.9389 -103.8211,47.9398 -103.8187,47.9423 -103.8178,47.9453 -103.8205,47.9446 -103.8232,47.9434 -103.8282,47.9392 -103.832,47.9388 -103.8363,47.9376 -103.8417,47.9361 -103.8467,47.9361 -103.8513,47.9376 -103.8582,47.9453 -103.8663,47.9581 -103.881,47.9642 -103.8952,47.9658 -103.8952,47.966 -103.8989,48.3569 -103.8991,48.6117 -103.9025,48.944 -103.9829,48.9435 -104.1824,48.9434 -104.6814,48.9432 -104.8475,48.9434 -105.1141,48.9438 -105.5474,48.9434 -105.8796,48.9434 -105.98,48.9431 -106.1131,48.9433 -106.3123,48.9432 -106.5795,48.9434 -107.1782,48.9438 -107.2777,48.9439 -107.4772,48.9432 -107.578,48.9431 -107.6433,48.9433 -108.0107,48.9434 -108.1763,48.9432 -108.3758,48.9433 -108.5086,48.9432 -108.6755,48.9431 -109.1745,48.9433 -109.4744,48.9434 -109.6413,48.9433 -109.8068,48.9436 -109.8388,48.9443 -109.9403,48.9434 -110.04,48.9433 -110.1401,48.944 -110.3393,48.944 -110.5057,48.9439 -110.6065,48.9431 -111.2052,48.9433 -111.6374,48.9432 -111.8709,48.9433 -112.004,48.9434 -112.0706,48.944 -112.1707,48.9438 -112.2703,48.944 -112.3703,48.9439 -112.4367,48.9437 -112.7693,48.9437 -112.869,48.9439 -113.0686,48.9433 -113.2024,48.9432 -113.4013,48.9431 -113.8676,48.9433 -113.8931,48.9444 -114.1675,48.9434 -114.3,48.9432 -114.367,48.9438 -114.4663,48.9438 -114.7328,48.9433 -114.8656,48.9434 -114.999,48.9431 -115.1992,48.9439 -115.2991,48.9438 -115.3982,48.9439 -115.4321,48.9434 -115.5649,48.9434 -115.8786,48.9435 -115.9058,48.9435 -115.9029,48.4647 -115.9017,48.1745 -115.9012,48.1063 -115.8997,47.9422 -115.8944,47.938 -115.8877,47.9361 -115.8796,47.9333 -115.8715,47.931 -115.8636,47.9212 -115.861,47.9157 -115.8524,47.9027 -115.8452,47.8912 -115.8312,47.8819 -115.8198,47.8735 -115.8112,47.8633 -115.804,47.8536 -115.7987,47.8471 -115.7934,47.8415 -115.7841,47.8331 -115.7761,47.8271 -115.7688,47.8234 -115.7554,47.8136 -115.7502,47.8071 -115.7435,47.8038 -115.7368,47.8028 -115.7294,47.8014 -115.7234,47.7981 -115.7161,47.7935 -115.7114,47.7875 -115.7029,47.7768 -115.6956,47.7712 -115.6911,47.7587 -115.6879,47.7509 -115.6886,47.7449 -115.6861,47.7375 -115.6842,47.7283 -115.683,47.7223 -115.673,47.7167 -115.6643,47.7162 -115.6569,47.7161 -115.6502,47.7156 -115.6428,47.7137 -115.6368,47.7109 -115.6328,47.7062 -115.6302,47.7025 -115.6277,47.6951 -115.6258,47.6859 -115.6259,47.6809 -115.622,47.6758 -115.6126,47.6734 -115.6039,47.6724 -115.5925,47.6695 -115.5839,47.6662 -115.5799,47.6616 -115.578,47.6574 -115.5761,47.6505 -115.5789,47.6436 -115.5818,47.6335 -115.5833,47.6234 -115.5829,47.6133 -115.5803,47.6059 -115.5751,47.5994 -115.5658,47.5938 -115.5538,47.5882 -115.5445,47.5821 -115.5407,47.5742 -115.5422,47.566 -115.5383,47.5567 -115.5399,47.548 -115.5487,47.5403 -115.5589,47.5353 -115.5684,47.5285 -115.5773,47.5208 -115.5835,47.5135 -115.5897,47.5034 -115.5891,47.4997 -115.5678,47.4922 -115.5571,47.4907 -115.5478,47.4869 -115.5439,47.4804 -115.5416,47.4629 -115.539,47.4556 -115.5304,47.4513 -115.5177,47.4485 -115.5044,47.4451 -115.4924,47.4432 -115.4864,47.4413 -115.4865,47.4367 -115.4859,47.4344 -115.4866,47.4302 -115.4894,47.4238 -115.4949,47.4197 -115.5023,47.4152 -115.5097,47.4139 -115.5211,47.4126 -115.5318,47.4132 -115.5399,47.4137 -115.5546,47.4139 -115.5666,47.4135 -115.5787,47.4113 -115.5868,47.4082 -115.5916,47.4045 -115.5964,47.4 -115.5978,47.3959 -115.5985,47.3917 -115.5966,47.3885 -115.5913,47.3862 -115.5846,47.3852 -115.5759,47.3828 -115.568,47.379 -115.5613,47.3776 -115.5534,47.3743 -115.5467,47.3729 -115.5347,47.37 -115.5227,47.3667 -115.5127,47.3652 -115.5035,47.36 -115.4975,47.3558 -115.4916,47.3503 -115.485,47.3461 -115.4771,47.3432 -115.4711,47.3423 -115.4644,47.3413 -115.4557,47.3403 -115.4458,47.336 -115.4425,47.3332 -115.4359,47.3286 -115.4307,47.323 -115.4281,47.3188 -115.4255,47.3142 -115.4203,47.3114 -115.4143,47.31 -115.409,47.3071 -115.4057,47.3044 -115.4018,47.3006 -115.3986,47.2951 -115.3954,47.2891 -115.3895,47.2812 -115.3844,47.2729 -115.3772,47.2654 -115.3693,47.258 -115.3614,47.2538 -115.3522,47.2496 -115.3482,47.2477 -115.3369,47.2462 -115.3269,47.2447 -115.3162,47.2436 -115.3082,47.2436 -115.3016,47.2407 -115.293,47.2388 -115.2823,47.2396 -115.2729,47.2404 -115.2616,47.2366 -115.2545,47.2296 -115.2352,47.2271 -115.2239,47.2256 -115.2126,47.2236 -115.1999,47.2221 -115.1899,47.2211 -115.1715,47.2112 -115.1696,47.2056 -115.1678,47.1987 -115.1674,47.1872 -115.155,47.1784 -115.1479,47.1705 -115.1481,47.1622 -115.1457,47.1525 -115.1425,47.1456 -115.1313,47.1399 -115.1167,47.137 -115.1122,47.1333 -115.1062,47.13 -115.1017,47.1253 -115.0965,47.1188 -115.088,47.1132 -115.0762,47.108 -115.067,47.1037 -115.059,47.1013 -115.0532,47.0962 -115.0394,47.0901 -115.0341,47.0859 -115.029,47.0775 -115.0246,47.0683 -115.0188,47.0636 -115.0075,47.0612 -114.9996,47.0578 -114.995,47.0578 -114.9924,47.0531 -114.9906,47.0472 -114.9868,47.0388 -114.9818,47.0296 -114.9726,47.0249 -114.9653,47.0229 -114.9596,47.0155 -114.9564,47.0113 -114.9505,47.008 -114.9426,47.0029 -114.9387,47.001 -114.9322,46.9963 -114.9276,46.9926 -114.9232,46.9856 -114.9206,46.981 -114.9178,46.9649 -114.9133,46.9579 -114.9063,46.9473 -114.9019,46.9394 -114.8948,46.9342 -114.8895,46.9319 -114.8836,46.929 -114.879,46.9285 -114.8737,46.9289 -114.8683,46.9288 -114.8577,46.9291 -114.8531,46.9272 -114.8479,46.9248 -114.8447,46.9197 -114.8396,46.9123 -114.8331,46.9076 -114.8279,46.903 -114.8194,46.8992 -114.811,46.8913 -114.8052,46.887 -114.7868,46.8799 -114.7756,46.8779 -114.7704,46.8732 -114.7712,46.8705 -114.7759,46.8664 -114.7814,46.8628 -114.7869,46.8569 -114.7871,46.8487 -114.7846,46.8431 -114.7868,46.8386 -114.7945,46.8258 -114.7947,46.8185 -114.7929,46.8139 -114.7857,46.8101 -114.7811,46.8077 -114.778,46.8013 -114.7775,46.7962 -114.7731,46.7892 -114.7646,46.7841 -114.7568,46.7803 -114.7491,46.7724 -114.7486,46.7655 -114.7388,46.763 -114.7321,46.7634 -114.7201,46.765 -114.7129,46.7631 -114.7091,46.7589 -114.7058,46.7561 -114.7,46.7509 -114.6871,46.7416 -114.6838,46.7401 -114.6779,46.7378 -114.6648,46.7348 -114.6548,46.7351 -114.6482,46.7341 -114.6403,46.7326 -114.6345,46.7297 -114.6293,46.7264 -114.6241,46.7218 -114.6216,46.7185 -114.6204,46.7134 -114.6221,46.7034 -114.6256,46.6979 -114.6278,46.6924 -114.63,46.6856 -114.6316,46.6765 -114.6292,46.6691 -114.6201,46.6657 -114.6123,46.6615 -114.5944,46.6612 -114.5903,46.6638 -114.5862,46.6688 -114.5828,46.6715 -114.5773,46.6769 -114.5739,46.6783 -114.5712,46.6814 -114.5645,46.6841 -114.5563,46.6899 -114.5522,46.6949 -114.5447,46.6998 -114.5401,46.6997 -114.5328,46.7001 -114.5255,46.7008 -114.5202,46.7008 -114.515,46.6979 -114.5091,46.696 -114.5033,46.6904 -114.497,46.6834 -114.4912,46.6787 -114.4849,46.6699 -114.4799,46.6611 -114.4722,46.6531 -114.475,46.6491 -114.4839,46.6423 -114.4913,46.637 -114.491,46.6269 -114.4892,46.6218 -114.4861,46.6167 -114.481,46.6106 -114.4753,46.6046 -114.4702,46.5999 -114.4611,46.5951 -114.4571,46.5951 -114.4466,46.5935 -114.4393,46.5934 -114.4187,46.5967 -114.4087,46.6002 -114.3979,46.6041 -114.3867,46.6039 -114.3802,46.6011 -114.3663,46.6008 -114.3572,46.5974 -114.3461,46.5931 -114.3436,46.5898 -114.331,46.5896 -114.3243,46.5922 -114.3176,46.5939 -114.3149,46.5957 -114.3109,46.598 -114.3068,46.6011 -114.3034,46.6033 -114.2946,46.6077 -114.2878,46.6117 -114.2785,46.6139 -114.2718,46.6165 -114.2618,46.6186 -114.2531,46.6203 -114.2411,46.6228 -114.2303,46.6276 -114.2217,46.6284 -114.2098,46.6282 -114.2012,46.6266 -114.1953,46.6251 -114.1889,46.6218 -114.181,46.6203 -114.1773,46.6124 -114.1748,46.6087 -114.1706,46.599 -114.171,46.5889 -114.1734,46.5779 -114.1777,46.5697 -114.1847,46.5602 -114.1896,46.5539 -114.1915,46.5411 -114.1892,46.5314 -114.1956,46.5201 -114.1987,46.5087 -114.1966,46.4949 -114.1964,46.4834 -114.2013,46.4771 -114.2068,46.4722 -114.2162,46.4678 -114.2316,46.4635 -114.2463,46.4582 -114.257,46.4534 -114.258,46.4443 -114.2525,46.435 -114.2453,46.4316 -114.241,46.4251 -114.2359,46.4195 -114.2357,46.4094 -114.2314,46.4011 -114.2303,46.3942 -114.2338,46.3911 -114.2407,46.382 -114.241,46.3756 -114.2433,46.3656 -114.2521,46.3612 -114.2561,46.3589 -114.2631,46.332 -114.2607,46.3247 -114.2606,46.3127 -114.2615,46.3045 -114.2653,46.2936 -114.2717,46.2813 -114.2786,46.2727 -114.2808,46.2673 -114.279,46.2608 -114.2781,46.2507 -114.283,46.243 -114.2904,46.2395 -114.3017,46.2361 -114.3139,46.2276 -114.3201,46.219 -114.3192,46.2098 -114.3134,46.206 -114.3063,46.2022 -114.2979,46.1984 -114.2909,46.1933 -114.2859,46.1863 -114.2881,46.1785 -114.2853,46.1675 -114.2822,46.1629 -114.2864,46.1387 -114.2872,46.135 -114.2899,46.1332 -114.2939,46.1319 -114.2972,46.1301 -114.304,46.1262 -114.3133,46.1213 -114.3193,46.1205 -114.3271,46.122 -114.3369,46.124 -114.3461,46.1242 -114.3559,46.1235 -114.3615,46.1162 -114.3637,46.1094 -114.3653,46.1021 -114.3609,46.0956 -114.3566,46.0873 -114.3529,46.0822 -114.3438,46.0783 -114.3328,46.0754 -114.3237,46.0734 -114.318,46.0687 -114.3129,46.0627 -114.3067,46.0552 -114.3024,46.0483 -114.2987,46.04 -114.3028,46.0364 -114.3081,46.0342 -114.3142,46.0288 -114.3111,46.026 -114.3086,46.0223 -114.3121,46.0168 -114.3201,46.0129 -114.3315,46.0053 -114.3364,45.9972 -114.3406,45.9894 -114.333,45.9847 -114.324,45.9795 -114.3209,45.9758 -114.3231,45.9694 -114.3252,45.9635 -114.3308,45.9558 -114.3237,45.952 -114.3133,45.9509 -114.3074,45.9495 -114.2945,45.9465 -114.2685,45.9409 -114.2588,45.938 -114.2551,45.932 -114.2515,45.9241 -114.2516,45.92 -114.2545,45.9137 -114.2721,45.8975 -114.2758,45.8875 -114.2668,45.8823 -114.2598,45.8767 -114.2595,45.8694 -114.2551,45.8633 -114.2456,45.8558 -114.2382,45.8461 -114.2392,45.8369 -114.2421,45.8292 -114.2483,45.8202 -114.2539,45.8125 -114.2584,45.8126 -114.2636,45.814 -114.2701,45.816 -114.2771,45.8189 -114.2896,45.8187 -114.2935,45.8169 -114.3009,45.8138 -114.3109,45.8076 -114.3201,45.8055 -114.3311,45.808 -114.3389,45.8095 -114.3455,45.8087 -114.3535,45.8034 -114.359,45.7966 -114.3613,45.787 -114.3637,45.7761 -114.3732,45.7671 -114.3853,45.7573 -114.3934,45.7492 -114.3983,45.7401 -114.4078,45.7321 -114.4099,45.7284 -114.406,45.7261 -114.4002,45.7237 -114.392,45.7162 -114.3883,45.712 -114.3878,45.7065 -114.3855,45.6978 -114.3813,45.689 -114.3794,45.6872 -114.3749,45.6843 -114.3679,45.6796 -114.3635,45.6764 -114.3564,45.6744 -114.35,45.6715 -114.3456,45.6655 -114.3446,45.6595 -114.3481,45.6532 -114.3535,45.6474 -114.357,45.6401 -114.3507,45.6354 -114.3476,45.6308 -114.3446,45.6234 -114.3481,45.6184 -114.3533,45.6172 -114.3593,45.6154 -114.3667,45.6087 -114.372,45.6061 -114.3753,45.6038 -114.3852,45.6008 -114.3931,45.6 -114.4037,45.5943 -114.411,45.5903 -114.4099,45.5848 -114.4062,45.5797 -114.3998,45.575 -114.3941,45.5703 -114.3873,45.5624 -114.3901,45.5575 -114.3928,45.5543 -114.3969,45.5498 -114.3998,45.5398 -114.402,45.5343 -114.4055,45.5257 -114.4071,45.518 -114.4072,45.5148 -114.4225,45.5068 -114.4278,45.5033 -114.4313,45.4969 -114.4355,45.4897 -114.4453,45.4867 -114.4637,45.4824 -114.4775,45.479 -114.4836,45.4722 -114.4865,45.4618 -114.492,45.4546 -114.4976,45.4446 -114.5017,45.4369 -114.5085,45.4292 -114.5247,45.43 -114.5324,45.4328 -114.5362,45.4366 -114.5412,45.4412 -114.5489,45.445 -114.5566,45.4465 -114.5677,45.4458 -114.5722,45.4472 -114.578,45.4496 -114.5881,45.4571 -114.5983,45.4623 -114.6106,45.4662 -114.621,45.465 -114.6282,45.4623 -114.6317,45.4578 -114.6358,45.4488 -114.6386,45.4429 -114.6384,45.4305 -114.6374,45.4213 -114.6416,45.4132 -114.6463,45.4064 -114.6453,45.4 -114.6363,45.3962 -114.6273,45.3942 -114.6196,45.3913 -114.6151,45.3904 -114.6099,45.3889 -114.6074,45.3866 -114.6055,45.3838 -114.6064,45.3788 -114.6053,45.3728 -114.5996,45.3663 -114.591,45.3595 -114.5914,45.3593 -114.598,45.3572 -114.6163,45.3538 -114.6241,45.3521 -114.6358,45.3509 -114.6404,45.3515 -114.6474,45.3534 -114.6609,45.3573 -114.6673,45.3615 -114.6788,45.3667 -114.6826,45.3709 -114.6883,45.3737 -114.6935,45.3747 -114.707,45.3777 -114.7102,45.38 -114.7134,45.3801 -114.7146,45.3837 -114.7178,45.387 -114.7184,45.3888 -114.7196,45.3902 -114.7254,45.3926 -114.7318,45.3941 -114.7389,45.3955 -114.744,45.3993 -114.7503,45.4067 -114.7521,45.409 -114.754,45.4109 -114.7585,45.4118 -114.7657,45.4129 -114.7715,45.4139 -114.7721,45.4148 -114.7746,45.4167 -114.7823,45.4223 -114.7893,45.426 -114.7976,45.4298 -114.8059,45.4345 -114.8122,45.441 -114.8198,45.4494 -114.8241,45.4549 -114.8267,45.4568 -114.8306,45.4577 -114.8364,45.4587 -114.8409,45.4611 -114.8453,45.4653 -114.8491,45.4681 -114.8555,45.47 -114.8588,45.4701 -114.8653,45.4715 -114.8697,45.4734 -114.873,45.4744 -114.8775,45.4744 -114.8814,45.474 -114.8854,45.4732 -114.888,45.4728 -114.8912,45.4724 -114.8925,45.4719 -114.8938,45.4724 -114.8997,45.4729 -114.9054,45.4771 -114.9099,45.4795 -114.915,45.4823 -114.9195,45.4833 -114.9273,45.4848 -114.9363,45.4867 -114.9428,45.4877 -114.9493,45.4892 -114.9564,45.4911 -114.9648,45.4935 -114.9725,45.4968 -114.9859,45.5034 -114.9923,45.5076 -115.0013,45.5118 -115.0038,45.5146 -115.0058,45.516 -115.007,45.5179 -115.0096,45.5197 -115.0108,45.522 -115.0121,45.5234 -115.0146,45.5253 -115.0159,45.5267 -115.0171,45.5276 -115.021,45.5281 -115.0256,45.5286 -115.034,45.5288 -115.0457,45.5294 -115.0522,45.5295 -115.0594,45.5291 -115.0653,45.5264 -115.0687,45.5237 -115.072,45.5219 -115.0759,45.5202 -115.0825,45.518 -115.0851,45.5157 -115.0865,45.5125 -115.0859,45.5098 -115.0866,45.508 -115.0912,45.5071 -115.0971,45.5058 -115.1024,45.504 -115.1057,45.5013 -115.1096,45.4987 -115.1129,45.4973 -115.1182,45.4956 -115.124,45.4952 -115.1305,45.4953 -115.1377,45.4935 -115.143,45.4908 -115.1489,45.4877 -115.1536,45.4841 -115.1576,45.4805 -115.1589,45.4782 -115.1603,45.4746 -115.1604,45.471 -115.1624,45.4682 -115.1652,45.4637 -115.1691,45.4601 -115.1725,45.4578 -115.1751,45.4556 -115.1765,45.4524 -115.1766,45.4483 -115.1812,45.4456 -115.1845,45.4452 -115.1871,45.4434 -115.1898,45.4393 -115.1937,45.4384 -115.1989,45.4376 -115.2048,45.4358 -115.2101,45.4345 -115.214,45.4341 -115.2172,45.4355 -115.2204,45.436 -115.223,45.4365 -115.2263,45.4366 -115.2309,45.4334 -115.2361,45.4316 -115.2446,45.4299 -115.2499,45.4282 -115.2538,45.4259 -115.2703,45.4161 -115.2842,45.4062 -115.2921,45.4012 -115.296,45.3976 -115.3,45.3949 -115.3047,45.3899 -115.3041,45.3867 -115.3042,45.3822 -115.3062,45.3785 -115.3089,45.3735 -115.3142,45.3704 -115.3188,45.3682 -115.3227,45.3664 -115.3248,45.3632 -115.3248,45.3605 -115.3255,45.3577 -115.3275,45.3555 -115.3315,45.3523 -115.3367,45.3501 -115.34,45.3478 -115.342,45.3451 -115.3434,45.3415 -115.3441,45.3383 -115.3448,45.336 -115.3455,45.3351 -115.3468,45.3365 -115.3525,45.3393 -115.359,45.3421 -115.368,45.3459 -115.3718,45.3468 -115.3822,45.3488 -115.3841,45.3506 -115.3867,45.3515 -115.3893,45.3516 -115.3932,45.3512 -115.3997,45.3508 -115.4075,45.3499 -115.4139,45.3509 -115.4197,45.3533 -115.4256,45.3538 -115.4314,45.3552 -115.432,45.3557 -115.4346,45.3566 -115.4371,45.3585 -115.4424,45.3572 -115.4475,45.3577 -115.4534,45.3582 -115.4598,45.3596 -115.4649,45.3629 -115.4681,45.3679 -115.47,45.3707 -115.4738,45.3744 -115.4764,45.3763 -115.4802,45.3786 -115.4834,45.3804 -115.4924,45.3833 -115.4969,45.3856 -115.5008,45.3879 -115.504,45.3902 -115.5085,45.393 -115.5104,45.3935 -115.5123,45.3958 -115.5168,45.3986 -115.5207,45.4 -115.5252,45.4019 -115.5291,45.4024 -115.5362,45.4029 -115.5427,45.403 -115.5544,45.4035 -115.5615,45.4045 -115.5738,45.4055 -115.5849,45.4057 -115.5914,45.4053 -115.5946,45.4057 -115.5991,45.409 -115.6036,45.4109 -115.6222,45.4206 -115.6268,45.4229 -115.6306,45.4244 -115.6345,45.4262 -115.639,45.4263 -115.6442,45.4268 -115.6533,45.4264 -115.6611,45.4251 -115.6742,45.4238 -115.6813,45.4211 -115.6859,45.4198 -115.6924,45.4176 -115.7042,45.4168 -115.7152,45.4155 -115.7276,45.4151 -115.7353,45.4157 -115.7405,45.4162 -115.749,45.4167 -115.7568,45.4172 -115.7632,45.4182 -115.7684,45.4182 -115.7743,45.4173 -115.7808,45.4165 -115.7867,45.4152 -115.7939,45.4129 -115.7997,45.4102 -115.8082,45.4062 -115.8122,45.403 -115.8161,45.3994 -115.8214,45.3958 -115.826,45.394 -115.8318,45.3922 -115.8442,45.3877 -115.8585,45.386 -115.8663,45.3851 -115.8689,45.3852 -115.8755,45.3834 -115.88,45.3834 -115.8885,45.383 -115.8956,45.3831 -115.9015,45.3813 -115.9106,45.3781 -115.9197,45.3741 -115.9269,45.3714 -115.9321,45.3691 -115.9367,45.3687 -115.9412,45.3674 -115.9452,45.3651 -115.9478,45.3638 -115.9517,45.3629 -115.9601,45.3638 -115.9646,45.3652 -115.9711,45.3685 -115.9717,45.3703 -115.971,45.3731 -115.9723,45.3758 -115.9735,45.379 -115.9761,45.3809 -115.9787,45.3823 -115.9832,45.3836 -115.9878,45.3837 -115.9923,45.3828 -115.9995,45.3815 -116.004,45.3801 -116.0099,45.3774 -116.0138,45.3774 -116.0177,45.3766 -116.0203,45.3757 -116.0236,45.3743 -116.0275,45.3707 -116.0295,45.3684 -116.036,45.3639 -116.038,45.363 -116.0406,45.3607 -116.0465,45.3594 -116.0523,45.3585 -116.0569,45.3585 -116.0634,45.359 -116.0724,45.3609 -116.0776,45.3632 -116.0834,45.3664 -116.0892,45.3701 -116.0944,45.3729 -116.1015,45.3752 -116.1086,45.3771 -116.1131,45.3766 -116.1222,45.3776 -116.1293,45.3781 -116.141,45.3782 -116.1508,45.3787 -116.154,45.3782 -116.1507,45.3823 -116.15,45.3887 -116.1512,45.3947 -116.1551,45.4002 -116.1589,45.4043 -116.1615,45.4057 -116.1628,45.4071 -116.1634,45.4084 -116.1621,45.413 -116.1588,45.4176 -116.1568,45.4217 -116.1561,45.4253 -116.1567,45.4336 -116.1579,45.4418 -116.1605,45.4464 -116.1598,45.4496 -116.1611,45.4509 -116.161,45.4546 -116.1597,45.4569 -116.1571,45.4587 -116.1538,45.4605 -116.1512,45.4619 -116.1486,45.4637 -116.1466,45.466 -116.1453,45.4678 -116.1446,45.4691 -116.1445,45.476 -116.1484,45.4852 -116.1496,45.4879 -116.1528,45.4916 -116.1535,45.493 -116.1541,45.4957 -116.1534,45.4971 -116.1527,45.5021 -116.1501,45.5067 -116.1474,45.5098 -116.1461,45.5112 -116.1448,45.5185 -116.1454,45.5208 -116.1454,45.5231 -116.146,45.5249 -116.146,45.5267 -116.1466,45.529 -116.1479,45.5318 -116.1459,45.5368 -116.1445,45.5405 -116.1333,45.5523 -116.1294,45.5568 -116.1248,45.5605 -116.1222,45.5618 -116.1208,45.5632 -116.1202,45.5655 -116.1208,45.5691 -116.1214,45.5723 -116.1233,45.5751 -116.1252,45.5774 -116.1265,45.5788 -116.1285,45.5797 -116.1317,45.5802 -116.1343,45.5815 -116.1369,45.5825 -116.1415,45.5839 -116.1428,45.5821 -116.144,45.5857 -116.1447,45.5862 -116.1447,45.5871 -116.144,45.5885 -116.1433,45.5903 -116.1388,45.593 -116.1335,45.5934 -116.1303,45.5939 -116.1277,45.5943 -116.127,45.5957 -116.127,45.5998 -116.1328,45.6035 -116.1341,45.6049 -116.1353,45.6072 -116.136,45.609 -116.1353,45.6117 -116.1327,45.6154 -116.132,45.6172 -116.1313,45.6186 -116.1307,45.6199 -116.13,45.6208 -116.1319,45.6236 -116.1326,45.6241 -116.1338,45.6259 -116.1404,45.6264 -116.1469,45.6273 -116.1527,45.6283 -116.156,45.6297 -116.1599,45.6306 -116.1624,45.6324 -116.1618,45.6343 -116.1585,45.6384 -116.1558,45.6416 -116.1539,45.6438 -116.1532,45.6447 -116.1525,45.6466 -116.1525,45.6475 -116.1538,45.6507 -116.1595,45.6681 -116.162,45.6718 -116.162,45.6759 -116.1606,45.6814 -116.1593,45.685 -116.158,45.6868 -116.1573,45.6896 -116.1566,45.6914 -116.1566,45.6928 -116.1572,45.6955 -116.1592,45.6987 -116.163,45.7029 -116.1663,45.7066 -116.1675,45.7111 -116.1688,45.7171 -116.1673,45.7271 -116.1653,45.7367 -116.1639,45.7408 -116.1619,45.744 -116.1586,45.7504 -116.1586,45.755 -116.1566,45.76 -116.1565,45.7655 -116.1545,45.771 -116.1492,45.7815 -116.1472,45.7856 -116.1438,45.7911 -116.1425,45.797 -116.1398,45.8039 -116.1397,45.8093 -116.1409,45.8176 -116.1429,45.8194 -116.1468,45.8236 -116.1506,45.8291 -116.1525,45.8323 -116.1551,45.8364 -116.1564,45.8396 -116.1603,45.8433 -116.1622,45.8461 -116.1674,45.8484 -116.172,45.8507 -116.1824,45.853 -116.1883,45.8558 -116.1935,45.859 -116.2013,45.8618 -116.2084,45.8646 -116.2274,45.8688 -116.23,45.8693 -116.2326,45.8688 -116.2352,45.8693 -116.2372,45.8688 -116.2378,45.8675 -116.2398,45.8661 -116.2411,45.8666 -116.2444,45.8661 -116.247,45.8671 -116.2522,45.8694 -116.2541,45.8712 -116.2548,45.874 -116.2548,45.8758 -116.2541,45.8767 -116.2548,45.8776 -116.2567,45.8785 -116.2587,45.8781 -116.2613,45.8786 -116.2639,45.8799 -116.2652,45.8813 -116.2671,45.8836 -116.2697,45.8873 -116.2703,45.8905 -116.2729,45.8951 -116.2825,45.9153 -116.2858,45.9221 -116.2896,45.9267 -116.2922,45.9295 -116.2961,45.9327 -116.3007,45.935 -116.3066,45.9373 -116.3196,45.9419 -116.3281,45.9429 -116.336,45.9434 -116.3432,45.943 -116.3511,45.9416 -116.3556,45.9412 -116.3629,45.9389 -116.3688,45.938 -116.3727,45.9371 -116.376,45.9367 -116.3779,45.9362 -116.3812,45.9358 -116.3832,45.9362 -116.3858,45.9367 -116.3877,45.9376 -116.3897,45.9381 -116.3936,45.9399 -116.3962,45.9431 -116.4066,45.9546 -116.4099,45.9578 -116.4131,45.9606 -116.4177,45.9629 -116.4242,45.9652 -116.4301,45.9666 -116.436,45.9689 -116.4425,45.9694 -116.4471,45.9698 -116.451,45.9703 -116.4543,45.9708 -116.455,45.9712 -116.4563,45.9731 -116.4549,45.9754 -116.4536,45.9786 -116.4529,45.9813 -116.4542,45.9905 -116.4555,45.9923 -116.4561,45.9946 -116.4588,45.9941 -116.4614,45.996 -116.4692,45.9965 -116.4771,45.9951 -116.4824,45.9915 -116.4839,45.9891 -116.4844,45.9873 -116.4844,45.9791 -116.4838,45.9764 -116.4831,45.9741 -116.4838,45.9713 -116.4831,45.969 -116.4838,45.9663 -116.4838,45.9649 -116.4841,45.9645 -116.4852,45.9571 -116.4989,45.9517 -116.5088,45.9535 -116.5231,45.9568 -116.5382,45.9564 -116.5413,45.9574 -116.5421,45.9573 -116.5421,45.9577 -116.5905,45.9387 -116.6258,45.911 -116.6506,45.8777 -116.6688,45.8417 -116.6623,45.839 -116.6584,45.8348 -116.6525,45.8316 -116.6493,45.8248 -116.646,45.8216 -116.6401,45.8165 -116.6375,45.8119 -116.6349,45.8051 -116.6343,45.8005 -116.6291,45.7932 -116.62,45.7858 -116.6108,45.7845 -116.5919,45.7844 -116.5828,45.7867 -116.571,45.788 -116.5625,45.7876 -116.5495,45.7852 -116.5462,45.7839 -116.5403,45.7774 -116.5358,45.7738 -116.5306,45.7692 -116.5208,45.7618 -116.5111,45.7559 -116.5007,45.7467 -116.4896,45.7412 -116.4746,45.7352 -116.4662,45.7329 -116.4538,45.7297 -116.4414,45.726 -116.433,45.72 -116.4251,45.7204 -116.418,45.7176 -116.4121,45.7153 -116.4069,45.7135 -116.3998,45.708 -116.3952,45.7029 -116.3914,45.6974 -116.3836,45.6878 -116.3784,45.6823 -116.3745,45.6768 -116.3701,45.6672 -116.3655,45.6608 -116.3643,45.6498 -116.365,45.6425 -116.3612,45.6306 -116.3535,45.6186 -116.3483,45.6113 -116.3425,45.604 -116.3348,45.5943 -116.3296,45.5888 -116.3257,45.582 -116.3212,45.5774 -116.3167,45.5723 -116.3156,45.5476 -116.3209,45.5394 -116.3248,45.5321 -116.3327,45.5221 -116.3393,45.5134 -116.3478,45.5039 -116.3694,45.4889 -116.3818,45.4789 -116.3903,45.4716 -116.4008,45.4597 -116.4073,45.4506 -116.4068,45.4396 -116.412,45.4259 -116.4199,45.4191 -116.429,45.4127 -116.4382,45.4032 -116.4434,45.3954 -116.4448,45.3863 -116.45,45.3794 -116.4552,45.3744 -116.4624,45.3676 -116.4722,45.3576 -116.48,45.3484 -116.4872,45.3393 -116.4931,45.3297 -116.4984,45.3183 -116.5062,45.312 -116.514,45.3074 -116.5185,45.3015 -116.5218,45.2928 -116.5251,45.2805 -116.5271,45.2736 -116.5284,45.2627 -116.5291,45.254 -116.5292,45.2458 -116.5312,45.2362 -116.5351,45.2284 -116.5396,45.223 -116.5435,45.2184 -116.5468,45.212 -116.5488,45.2065 -116.5507,45.2006 -116.5527,45.196 -116.556,45.1887 -116.558,45.1814 -116.5593,45.17 -116.56,45.1613 -116.562,45.1508 -116.5659,45.1408 -116.5685,45.1344 -116.5718,45.1276 -116.5763,45.1225 -116.5783,45.1143 -116.5829,45.1034 -116.5874,45.1007 -116.5926,45.0965 -116.5952,45.0934 -116.603,45.0865 -116.6056,45.0751 -116.6075,45.0724 -116.6172,45.0692 -116.6244,45.0656 -116.6283,45.0587 -116.6334,45.0523 -116.6335,45.0418 -116.6341,45.0368 -116.6361,45.0336 -116.6406,45.03 -116.6445,45.0263 -116.6471,45.0218 -116.6536,45.0158 -116.6607,45.0122 -116.6665,45.009 -116.6736,45.0072 -116.6768,45.0017 -116.684,44.9944 -116.6937,44.9885 -116.7008,44.983 -116.6995,44.9766 -116.6944,44.9661 -116.697,44.9565 -116.7021,44.946 -116.6989,44.9401 -116.6944,44.9378 -116.6912,44.941 -116.6822,44.9424 -116.6789,44.9424 -116.6783,44.9373 -116.6809,44.9346 -116.6854,44.93 -116.6919,44.9273 -116.6938,44.9209 -116.6906,44.9145 -116.6816,44.8981 -116.6817,44.8862 -116.6849,44.8762 -116.6939,44.8639 -116.7017,44.8547 -116.7082,44.8438 -116.7133,44.8347 -116.7243,44.8265 -116.7346,44.8183 -116.7436,44.8146 -116.7475,44.8101 -116.7488,44.8009 -116.7507,44.795 -116.7559,44.795 -116.7623,44.7914 -116.7662,44.7891 -116.7688,44.7841 -116.7733,44.7781 -116.7765,44.7736 -116.7784,44.7663 -116.781,44.7572 -116.7862,44.7494 -116.7913,44.7462 -116.7977,44.7421 -116.8125,44.7375 -116.8196,44.7339 -116.828,44.7302 -116.8402,44.7243 -116.8537,44.7229 -116.8755,44.7179 -116.8858,44.7152 -116.8935,44.7056 -116.8961,44.6997 -116.9012,44.6933 -116.907,44.6828 -116.9089,44.6791 -116.9108,44.6682 -116.9128,44.6636 -116.9198,44.6591 -116.9256,44.6554 -116.9269,44.6513 -116.9301,44.6422 -116.932,44.6353 -116.9378,44.6285 -116.9403,44.6235 -116.9454,44.6098 -116.9467,44.6016 -116.9486,44.5965 -116.9537,44.592 -116.9595,44.586 -116.964,44.5765 -116.9697,44.5664 -116.9761,44.5432 -116.9767,44.5386 -116.9787,44.5349 -116.9799,44.5331 -116.9831,44.5313 -116.9876,44.5285 -116.9902,44.5254 -116.9921,44.5212 -116.9902,44.5162 -116.9901,44.5103 -116.9895,44.5048 -116.9914,44.5007 -116.9965,44.4971 -117.001,44.4934 -117.0093,44.4884 -117.0151,44.4852 -117.0202,44.4829 -117.0304,44.4797 -117.0346,44.477 -117.0362,44.4756 -117.0406,44.466 -117.0415,44.464 -117.0425,44.4614 -117.0464,44.456 -117.0502,44.4519 -117.0566,44.4496 -117.0611,44.4473 -117.0662,44.4418 -117.0706,44.4391 -117.0738,44.4331 -117.0738,44.4295 -117.0725,44.4263 -117.0674,44.4185 -117.0642,44.4108 -117.0629,44.4053 -117.0635,44.3989 -117.0635,44.3939 -117.0654,44.3894 -117.0673,44.3862 -117.073,44.378 -117.0787,44.367 -117.0832,44.3561 -117.0812,44.3474 -117.0786,44.3401 -117.0735,44.3328 -117.062,44.3246 -117.053,44.3164 -117.0478,44.3055 -117.0478,44.2978 -117.0497,44.2891 -117.0542,44.2809 -117.0592,44.2727 -117.0637,44.2667 -117.3293,44.2647 -117.3318,44.3458 -117.3503,44.3462 -117.3524,44.3631 -117.3735,44.3643 -117.3749,44.3776 -117.4113,44.3792 -117.4108,44.3911 -117.4345,44.3919 -117.4371,44.406 -117.8101,44.4048 -117.8099,44.392 -117.8579,44.3889 -117.857,44.3707 -117.878,44.3696 -117.8777,44.3473 -117.8975,44.3457 -117.8979,44.3289 -117.9189,44.3264 -117.9175,44.3141 -117.9366,44.3126 -117.9349,44.2871 -117.9572,44.2851 -117.9577,44.2732 -117.98,44.2712 -117.9798,44.2566 -117.9989,44.2546 -117.9978,44.2273 -118.0405,44.2256 -118.0422,44.2128 -118.076,44.2125 -118.0748,44.1441 -118.0766,44.14 -118.076,44.136 6210,-6.0,United States -104.8475,30.595 -104.7981,30.5735 -104.7602,30.5321 -104.7435,30.4908 -104.7285,30.4322 -104.6858,30.352 -104.6408,30.2841 -104.5693,30.1994 -104.5464,30.1536 -104.5388,30.1343 -104.5432,30.0718 -104.5655,30.0255 -104.559,29.9714 -104.5423,29.9076 -104.4062,29.6397 -104.318,29.5627 -104.2838,29.5365 -104.2028,29.4922 -104.1814,29.4979 -104.1498,29.4931 -104.1178,29.4754 -104.0932,29.4617 -104.0673,29.428 -104.0346,29.3898 -103.9459,29.3225 -103.9287,29.3096 -103.9105,29.2979 -103.889,29.2885 -103.8403,29.2733 -103.7547,29.2533 -103.6014,29.1665 -103.3973,29.0935 -103.3509,29.0563 -103.3281,29.0407 -103.2673,29.004 -103.2411,28.9912 -103.1623,28.9648 -103.1572,28.9641 -103.0299,28.9515 -102.9186,29.0618 -102.8215,29.1504 -102.7625,29.2217 -102.7178,29.3194 -102.6716,29.4413 -102.5373,29.7096 -102.4277,29.7344 -102.3633,29.7486 -102.2228,29.8174 -102.1691,29.8545 -102.1288,29.8347 -102.095,29.8138 -101.9895,29.7771 -101.9652,29.7697 -101.9406,29.7651 -101.916,29.7654 -101.8584,29.7724 -101.7602,29.773 -101.6936,29.7713 -101.6427,29.7635 -101.6129,29.7555 -101.5749,29.7448 -101.4971,29.733 -101.4073,29.7378 -101.325,29.7389 -101.2736,29.7396 -101.238,29.6593 -101.2245,29.6276 -101.1793,29.5821 -101.0873,29.5073 -101.0081,29.4576 -100.9756,29.4491 -100.9122,29.4285 -100.8945,29.4048 -100.8062,29.3172 -100.6649,29.226 -100.5353,29.0765 -100.4979,28.9634 -100.504,28.9262 -100.4918,28.901 -100.4602,28.8624 -100.4341,28.8314 -100.3973,28.7906 -100.3619,28.6938 -100.3623,28.6721 -100.3499,28.644 -100.3139,28.5944 -100.2697,28.5394 -100.2292,28.4866 -100.2209,28.463 -100.2,28.3936 -100.2013,28.3686 -100.1518,28.2491 -100.1108,28.2111 -100.0569,28.1659 -99.9791,28.1342 -99.949,28.1241 -99.9216,28.085 -99.833,27.9535 -99.8058,27.9303 -99.752,27.8728 -99.7431,27.8245 -99.7318,27.7741 -99.7039,27.7435 -99.678,27.7406 -99.6694,27.7357 -99.6534,27.7067 -99.6301,27.6962 -99.6127,27.6837 -99.5989,27.6581 -99.5854,27.6382 -99.5676,27.6262 -99.525,27.6105 -99.4776,27.6103 -99.4024,27.5692 -99.3754,27.5373 -99.345,27.4459 -99.3151,27.2275 -99.3305,27.0167 -99.1916,26.8399 -99.1433,26.8301 -99.1256,26.8007 -99.1123,26.7737 -99.073,26.6848 -99.0054,26.4972 -98.9776,26.4056 -98.8487,26.3764 -98.7984,26.3619 -98.6575,26.3194 -98.6033,26.2852 -98.569,26.2603 -98.4783,26.2274 -98.4518,26.2269 -98.3136,26.1942 -98.262,26.1624 -98.2354,26.1243 -98.1792,26.08 -98.1604,26.0686 -98.0743,26.0334 -97.9346,26.0099 -97.9077,26.0186 -97.8544,26.0297 -97.7221,26.0344 -97.6779,26.029 -97.5539,26.0091 -97.523,26.0003 -97.4893,25.9761 -97.4344,25.9222 -97.3897,25.8694 -97.2926,25.8145 -97.2401,25.8109 -97.2204,25.8309 -97.2221,25.8642 -97.1909,25.8912 -97.1407,25.9122 -97.0364,25.9382 -97.0165,25.9373 -97.0168,25.9508 -97.0218,25.9882 -97.0261,26.0113 -97.0433,26.0409 -97.0563,25.9987 -97.085,25.9635 -97.1162,25.9531 -97.1825,26.0935 -97.193,26.132 -97.1946,26.1841 -97.194,26.2169 -97.2445,26.3357 -97.2772,26.3402 -97.2878,26.3825 -97.2979,26.516 -97.3521,26.7095 -97.3667,26.7604 -97.3787,26.7769 -97.4145,26.7869 -97.4348,26.812 -97.4402,26.9517 -97.4318,26.9755 -97.3497,27.0007 -97.3188,27.0976 -97.3038,27.232 -97.3513,27.2273 -97.4084,27.2048 -97.5083,27.2222 -97.5349,27.2463 -97.5509,27.2866 -97.5975,27.3648 -97.6433,27.4191 -97.5972,27.4017 -97.5511,27.3549 -97.5126,27.3405 -97.4989,27.3143 -97.3996,27.3466 -97.3644,27.2758 -97.2876,27.2967 -97.2616,27.3647 -97.1541,27.6253 -97.1901,27.6847 -97.2672,27.7522 -97.3587,27.7946 -97.3912,27.8329 -97.3667,27.8469 -97.2197,27.8216 -97.1008,27.7897 -97.0689,27.7908 -96.897,28.0003 -96.9003,28.0471 -96.9208,28.0605 -96.9726,28.0384 -97.0187,27.9968 -97.0211,28.0088 -97.0574,28.029 -97.088,28.0372 -97.0438,28.1302 -96.9027,28.155 -96.8908,28.1045 -96.8579,28.0897 -96.8056,28.0956 -96.7575,28.109 -96.6558,28.2099 -96.6588,28.3174 -96.7067,28.3563 -96.7198,28.378 -96.6751,28.4398 -96.6217,28.4059 -96.5821,28.3659 -96.577,28.3385 -96.5719,28.3026 -96.5342,28.2835 -96.4998,28.2925 -96.2752,28.41 -96.3653,28.4775 -96.4591,28.5351 -96.5263,28.6536 -96.5195,28.6798 -96.4695,28.6871 -96.4374,28.6656 -96.4378,28.6421 -96.4301,28.616 -96.3706,28.5874 -96.3071,28.5673 -96.2866,28.5696 -96.2508,28.5901 -96.2838,28.6036 -96.3127,28.694 -96.3179,28.7281 -96.2692,28.7042 -96.1428,28.653 -96.0677,28.6634 -96.0162,28.5954 -96.0587,28.571 -96.0829,28.5712 -96.0928,28.5501 -96.0091,28.57 -95.9827,28.5802 -95.9569,28.5907 -95.9349,28.6023 -95.9055,28.6129 -95.8663,28.6191 -95.8574,28.6002 -95.8723,28.572 -95.9012,28.56 -95.9217,28.5525 -95.9482,28.5421 -96.0224,28.5065 -96.071,28.478 -96.0874,28.4564 -96.032,28.4786 -96.0069,28.4902 -95.9399,28.5258 -95.9353,28.5291 -95.9119,28.5419 -95.8762,28.5583 -95.855,28.5667 -95.8274,28.5718 -95.8051,28.5782 -95.7713,28.5894 -95.7341,28.6033 -95.7031,28.6165 -95.6416,28.6603 -95.6928,28.6488 -95.7236,28.636 -95.7519,28.6184 -95.7719,28.608 -95.8173,28.5944 -95.817,28.6544 -95.6733,28.705 -95.6217,28.7051 -95.5661,28.7059 -95.4947,28.7236 -95.2364,28.8638 -95.2084,28.8804 -95.1799,28.8991 -95.0252,29.0187 -94.9639,29.1495 -94.7799,29.2816 -94.7709,29.3051 -94.7645,29.3523 -94.775,29.3879 -94.8925,29.5326 -94.9367,29.6819 -94.884,29.6835 -94.8323,29.6628 -94.7176,29.7159 -94.7013,29.7287 -94.6342,29.7516 -94.5883,29.7234 -94.5838,29.6778 -94.5944,29.6204 -94.5994,29.6007 -94.6074,29.58 -94.6431,29.5351 -94.5527,29.5197 -94.4512,29.5401 -94.354,29.5259 -94.3927,29.4834 -94.4894,29.4617 -94.5693,29.4346 -94.6584,29.3644 -94.6641,29.3409 -94.6313,29.335 -94.6109,29.348 -94.5851,29.3765 -94.5608,29.3963 -94.531,29.4144 -94.4974,29.429 -94.3364,29.4946 -94.1952,29.5513 -94.0121,29.6206 -93.9463,29.6409 -93.9146,29.6461 -93.7986,29.6484 -93.7691,29.6392 -93.7366,29.6485 -93.7689,29.7074 -93.7928,29.7322 -93.8257,29.753 -93.8367,29.7832 -93.7304,29.9516 -93.675,29.9608 -93.6682,29.9614 -93.6465,29.943 -93.6515,29.867 -93.6901,29.8006 -93.7402,29.7973 -93.7703,29.7842 -93.7792,29.758 -93.7639,29.712 -93.7288,29.6758 -93.7016,29.6751 -93.6724,29.6943 -93.6283,29.7166 -93.5979,29.7258 -93.5461,29.7307 -93.1788,29.7536 -93.1514,29.7536 -93.1199,29.7518 -93.0239,29.7361 -92.9977,29.7304 -92.917,29.7058 -92.7849,29.6602 -92.7348,29.6301 -92.6934,29.6107 -92.631,29.5875 -92.5675,29.5671 -92.45,29.5429 -92.2173,29.5094 -92.1887,29.5068 -92.1535,29.5079 -92.0176,29.557 -91.9804,29.5825 -92.0561,29.6573 -92.0292,29.7356 -91.7798,29.8028 -91.7198,29.795 -91.7049,29.7622 -91.5453,29.7153 -91.512,29.7059 -91.4384,29.5976 -91.4325,29.5529 -91.4247,29.5096 -91.4043,29.4993 -91.2964,29.5074 -91.149,29.4342 -91.0082,29.3145 -90.9965,29.2928 -90.9998,29.2299 -91.0311,29.2169 -91.0554,29.2409 -91.0447,29.2604 -91.0441,29.297 -91.1051,29.3276 -91.2208,29.2921 -91.2039,29.2624 -91.1811,29.2389 -91.1595,29.2231 -91.1367,29.2116 -91.1012,29.199 -91.0766,29.1945 -90.9788,29.1698 -90.9598,29.1623 -90.9304,29.1616 -90.9173,29.1804 -90.8811,29.1867 -90.8122,29.1316 -90.7945,29.1182 -90.7606,29.0964 -90.6476,29.077 -90.5845,29.0834 -90.5613,29.0973 -90.5299,29.1254 -90.4722,29.2007 -90.4072,29.2571 -90.3272,29.2932 -90.2765,29.2846 -90.2279,29.2764 -90.1559,29.2271 -90.1387,29.1648 -90.1186,29.086 -90.1189,29.0599 -90.131,29.0499 -90.1205,29.0511 -90.0926,29.0586 -90.019,29.0939 -89.9992,29.1064 -89.9493,29.1509 -89.9349,29.189 -89.9402,29.2791 -89.9097,29.3923 -89.9418,29.4268 -89.9799,29.4283 -90.008,29.4329 -90.055,29.4553 -90.074,29.4778 -90.0864,29.5117 -90.0656,29.5367 -90.0021,29.5183 -89.8685,29.4533 -89.7152,29.411 -89.6571,29.382 -89.6345,29.3279 -89.6543,29.3063 -89.5922,29.2681 -89.4923,29.2185 -89.3625,29.2011 -89.2739,29.0596 -89.2397,29.0544 -89.2157,29.069 -89.208,29.0895 -89.2137,29.1204 -89.2085,29.1455 -89.1562,29.1171 -89.1863,29.0499 -89.2501,28.9714 -89.2656,28.9569 -89.2817,28.9423 -89.2973,28.8988 -89.2891,28.8942 -89.2749,28.8997 -89.2474,28.9212 -89.2227,28.9543 -89.21,28.986 -89.1913,29.0098 -89.1338,29.0637 -89.0385,29.0074 -88.9271,29.078 -88.9063,29.1079 -88.8935,29.1418 -88.8938,29.1636 -88.9136,29.1832 -89.0716,29.3071 -89.1403,29.302 -89.2016,29.3176 -89.3483,29.3702 -89.4032,29.4297 -89.5613,29.4926 -89.6363,29.5999 -89.5463,29.6334 -89.4743,29.7057 -89.3605,29.799 -89.3321,29.7879 -89.3138,29.7749 -89.2961,29.7571 -89.2881,29.7293 -89.2177,29.8447 -89.2834,30.0174 -89.3599,30.041 -89.4498,29.9276 -89.4731,29.8663 -89.5093,29.8402 -89.5417,29.8404 -89.5673,29.8455 -89.7013,29.9121 -89.7189,29.9475 -89.727,29.9737 -89.7112,29.9993 -89.689,30.0108 -89.653,30.0107 -89.6024,30.0246 -89.5263,30.0995 -89.5571,30.1333 -89.6056,30.109 -89.6953,30.0656 -89.917,30.0032 -90.0146,29.9888 -90.0529,29.9901 -90.2323,30.0283 -90.2953,30.0642 -90.3076,30.09 -90.313,30.118 -90.3104,30.145 -90.2974,30.1698 -90.1189,30.3427 -90.0963,30.3532 -90.0704,30.354 -89.9724,30.3316 -89.9466,30.3248 -89.8839,30.2854 -89.8711,30.2673 -89.8626,30.2326 -89.7028,30.1894 -89.5783,30.15 -89.4768,30.1197 -89.4057,30.1531 -89.3824,30.15 -89.3322,30.1505 -89.1956,30.2766 -89.1483,30.2845 -89.0864,30.2934 -88.8692,30.3525 -88.8651,30.3842 -88.717,30.3791 -88.6726,30.3436 -88.6293,30.3203 -88.607,30.3124 -88.5809,30.3117 -88.4991,30.3296 -88.4448,30.3143 -88.3695,30.2892 -88.3431,30.2838 -88.2912,30.3224 -88.2872,30.3539 -88.2387,30.3703 -88.0775,30.326 -88.0795,30.2978 -88.017,30.2853 -87.9966,30.3333 -87.9925,30.3636 -87.9878,30.4361 -87.9864,30.4786 -87.9679,30.5406 -87.9056,30.6667 -87.8346,30.6362 -87.816,30.6069 -87.7989,30.5599 -87.7951,30.5353 -87.8035,30.5 -87.8198,30.4613 -87.794,30.3758 -87.7574,30.3504 -87.7175,30.3269 -87.6494,30.2693 -87.6436,30.2488 -87.6642,30.229 -87.7595,30.2037 -87.8011,30.2113 -87.8381,30.2147 -87.907,30.1916 -87.6632,30.198 -87.6195,30.2014 -87.5421,30.2183 -87.4546,30.2455 -87.3495,30.3257 -87.3092,30.3865 -87.2952,30.4187 -87.3069,30.4469 -87.2414,30.4223 -87.2274,30.4007 -87.3043,30.3043 -87.3452,30.2731 -87.3847,30.2695 -87.4087,30.2454 -87.3394,30.2569 -87.2208,30.2809 -87.1931,30.2874 -87.1886,30.3117 -87.1527,30.3174 -87.0664,30.3978 -87.0433,30.4381 -87.0397,30.4647 -87.0476,30.4836 -86.9885,30.4924 -86.8992,30.4858 -86.8404,30.437 -86.8232,30.4161 -86.8733,30.3831 -86.8962,30.3735 -86.9716,30.3667 -87.0025,30.3606 -87.0622,30.336 -87.0127,30.3298 -86.9849,30.3391 -86.9589,30.3446 -86.8577,30.3596 -86.8135,30.3654 -86.6673,30.3826 -86.596,30.3853 -86.5519,30.3831 -86.5056,30.3809 -86.4853,30.3812 -86.3803,30.4359 -86.3258,30.4622 -86.1479,30.4617 -86.0855,30.4392 -86.0107,30.3921 -85.9924,30.3451 -86.0506,30.357 -86.2252,30.3504 -86.2001,30.3387 -86.1433,30.3246 -86.0527,30.2954 -85.9738,30.2698 -85.9188,30.2501 -85.8181,30.2108 -85.7908,30.1985 -85.7607,30.1834 -85.7187,30.1619 -85.6687,30.1293 -85.6142,30.0922 -85.611,30.1284 -85.6274,30.1652 -85.6527,30.2067 -85.6921,30.2077 -85.7181,30.1937 -85.7339,30.2135 -85.7272,30.2535 -85.6356,30.2635 -85.5523,30.2124 -85.5767,30.157 -85.5359,30.1123 -85.3316,30.0207 -85.3021,30.0219 -85.2828,30.0081 -85.3286,29.9843 -85.3659,29.9925 -85.4106,30.027 -85.4393,30.041 -85.4873,30.0689 -85.518,30.071 -85.5023,30.0366 -85.4351,30.0002 -85.3291,29.9244 -85.2197,29.9854 -85.2171,29.983 -85.2176,29.9785 -85.2171,29.9734 -85.216,29.9689 -85.2144,29.9648 -85.2144,29.9615 -85.2155,29.9593 -85.2181,29.9556 -85.2197,29.9529 -85.2203,29.951 -85.2203,29.9446 -85.214,29.9345 -85.2129,29.9341 -85.2108,29.9322 -85.2082,29.9313 -85.2045,29.9322 -85.2018,29.9327 -85.1981,29.9331 -85.195,29.9331 -85.1908,29.9327 -85.1887,29.9327 -85.1845,29.9313 -85.1813,29.9304 -85.1776,29.929 -85.1745,29.9267 -85.1739,29.9262 -85.1739,29.9267 -85.1729,29.9235 -85.1718,29.9221 -85.1692,29.9198 -85.165,29.9184 -85.1613,29.9171 -85.1587,29.9157 -85.155,29.9143 -85.1518,29.9129 -85.1503,29.9106 -85.1487,29.9079 -85.1482,29.9065 -85.1477,29.9006 -85.1466,29.8964 -85.145,29.8882 -85.1424,29.8868 -85.1387,29.8841 -85.1351,29.8827 -85.1288,29.879 -85.1256,29.8781 -85.1224,29.8762 -85.1203,29.8739 -85.1161,29.8698 -85.1088,29.8634 -85.1067,29.8625 -85.103,29.8606 -85.0999,29.8592 -85.0914,29.8569 -85.0878,29.8565 -85.0809,29.8546 -85.0704,29.8532 -85.0657,29.8523 -85.0609,29.8509 -85.0567,29.8491 -85.0557,29.8472 -85.0546,29.8449 -85.0536,29.8408 -85.0526,29.8371 -85.0531,29.833 -85.0542,29.8262 -85.0558,29.8239 -85.0563,29.8211 -85.0563,29.8193 -85.0553,29.8184 -85.0532,29.8175 -85.0469,29.8142 -85.0432,29.8129 -85.0416,29.811 -85.0406,29.8078 -85.0406,29.806 -85.0385,29.8028 -85.0374,29.8018 -85.0353,29.8005 -85.0301,29.8 -85.0285,29.7991 -85.0269,29.7968 -85.0259,29.7945 -85.0254,29.7931 -85.0175,29.7913 -85.0117,29.7876 -85.0065,29.7839 -84.9955,29.7774 -84.9939,29.7751 -84.9913,29.7715 -84.9735,29.7572 -84.9546,29.7457 -84.9483,29.7461 -84.9409,29.7443 -84.9346,29.7443 -84.9299,29.7438 -84.9262,29.7451 -84.922,29.7483 -84.9209,29.7502 -84.9188,29.7543 -84.9156,29.7565 -84.9109,29.7565 -84.9051,29.7574 -84.9025,29.757 -84.8999,29.7551 -84.8962,29.7537 -84.8931,29.751 -84.891,29.7473 -84.8894,29.7487 -84.8894,29.7519 -84.8878,29.756 -84.8835,29.7624 -84.8798,29.7669 -84.8782,29.7697 -84.876,29.7857 -84.8755,29.7935 -84.8765,29.7985 -84.8775,29.8031 -84.8796,29.8082 -84.8801,29.8136 -84.8801,29.8173 -84.8763,29.8228 -84.8732,29.8269 -84.8695,29.8301 -84.8663,29.8333 -84.8636,29.8356 -84.8626,29.8424 -84.8614,29.8511 -84.8603,29.8644 -84.8608,29.8772 -84.8634,29.8846 -84.8623,29.891 -84.8606,29.8978 -84.8637,29.9116 -84.8663,29.9194 -84.871,29.934 -84.8741,29.9455 -84.8751,29.9478 -84.8788,29.9519 -84.883,29.9542 -84.8872,29.9561 -84.8914,29.9598 -84.8966,29.9639 -84.9003,29.968 -84.904,29.9726 -84.9097,29.9759 -84.915,29.9768 -84.9197,29.9786 -84.9229,29.98 -84.9261,29.98 -84.9313,29.981 -84.9376,29.9837 -84.9413,29.987 -84.9455,29.9916 -84.9502,29.9939 -84.9545,29.9953 -84.9566,29.9962 -84.9602,29.9976 -84.9639,29.9994 -84.9692,30.0035 -84.9739,30.0109 -84.9755,30.015 -84.977,30.0164 -84.9807,30.0246 -84.9822,30.0301 -84.9827,30.0347 -84.9833,30.0411 -84.9838,30.0466 -84.9848,30.0512 -84.9885,30.0562 -84.9932,30.0604 -84.9953,30.0695 -84.9926,30.0769 -84.9899,30.0801 -84.9873,30.0823 -84.9857,30.0869 -84.9846,30.0892 -84.9872,30.0919 -84.9894,30.0929 -84.9925,30.0965 -84.992,30.1002 -84.9882,30.1048 -84.9867,30.107 -84.9835,30.1134 -84.9824,30.1162 -84.9813,30.1198 -84.9813,30.1221 -84.9829,30.129 -84.9839,30.1382 -84.9833,30.1441 -84.9807,30.1496 -84.9769,30.1532 -84.9732,30.1573 -84.9711,30.1605 -84.9705,30.1656 -84.9674,30.1656 -84.9679,30.1678 -84.9647,30.1733 -84.953,30.1838 -84.9493,30.1856 -84.9424,30.1893 -84.9377,30.1929 -84.9334,30.2007 -84.9302,30.2084 -84.9264,30.2189 -84.9238,30.2235 -84.9195,30.2262 -84.9158,30.2294 -84.9137,30.2331 -84.9115,30.2404 -84.9099,30.245 -84.9093,30.2514 -84.9093,30.2628 -84.9055,30.2678 -84.9028,30.2783 -84.8986,30.2806 -84.8928,30.281 -84.8885,30.2838 -84.8896,30.2879 -84.8917,30.2925 -84.8921,30.298 -84.8942,30.3076 -84.892,30.319 -84.8894,30.3231 -84.8862,30.3249 -84.883,30.3258 -84.8803,30.3304 -84.8814,30.3336 -84.8866,30.3382 -84.8856,30.3414 -84.884,30.3427 -84.8797,30.3427 -84.8771,30.3413 -84.8692,30.3363 -84.8654,30.3399 -84.868,30.3486 -84.8664,30.3564 -84.8695,30.3665 -84.8748,30.3692 -84.8737,30.3752 -84.8716,30.3761 -84.8689,30.3774 -84.8673,30.3793 -84.8689,30.3825 -84.871,30.3839 -84.8752,30.3857 -84.8763,30.388 -84.8768,30.3907 -84.8762,30.3939 -84.8678,30.3985 -84.8593,30.4007 -84.8502,30.403 -84.8433,30.4066 -84.8385,30.4093 -84.8364,30.4102 -84.8359,30.4134 -84.8459,30.4148 -84.8432,30.4281 -84.8389,30.4327 -84.84,30.4349 -84.8426,30.4363 -84.8458,30.4377 -84.849,30.44 -84.8457,30.4514 -84.8409,30.4619 -84.8387,30.4702 -84.8365,30.4802 -84.8349,30.488 -84.8332,30.498 -84.831,30.5081 -84.8283,30.5131 -84.8251,30.5167 -84.8171,30.5268 -84.8112,30.534 -84.8091,30.5386 -84.8085,30.5427 -84.8053,30.5477 -84.7995,30.5495 -84.7968,30.5495 -84.7925,30.5504 -84.7915,30.5531 -84.7898,30.5605 -84.7882,30.5632 -84.785,30.5664 -84.7829,30.5686 -84.7781,30.5704 -84.7749,30.5736 -84.7722,30.5759 -84.7674,30.5795 -84.7631,30.585 -84.7599,30.5882 -84.7583,30.5909 -84.7507,30.6055 -84.7464,30.6114 -84.7432,30.6155 -84.7368,30.6223 -84.7325,30.6283 -84.7271,30.6351 -84.7218,30.6405 -84.7196,30.6437 -84.718,30.6488 -84.7174,30.6529 -84.7153,30.6579 -84.7115,30.6675 -84.7132,30.6751 -84.7122,30.6789 -84.7158,30.6839 -84.7235,30.6945 -84.7309,30.7055 -84.7356,30.7096 -84.7399,30.712 -84.7457,30.7147 -84.7521,30.7152 -84.7583,30.7157 -84.7598,30.7172 -84.7627,30.7199 -84.7652,30.7238 -84.7664,30.7257 -84.7667,30.7281 -84.7708,30.7385 -84.7735,30.7471 -84.7755,30.7548 -84.7785,30.7662 -84.7782,30.7686 -84.7788,30.7731 -84.7779,30.777 -84.7775,30.7825 -84.7766,30.7853 -84.7765,30.7896 -84.7754,30.794 -84.7743,30.8022 -84.7748,30.8102 -84.7749,30.8127 -84.7747,30.8156 -84.7751,30.8177 -84.7762,30.8212 -84.7762,30.8233 -84.7784,30.8287 -84.7798,30.8365 -84.7802,30.8386 -84.7807,30.8425 -84.7841,30.852 -84.7846,30.8571 -84.7851,30.8607 -84.7872,30.8639 -84.7925,30.8699 -84.7967,30.8736 -84.8015,30.8782 -84.8084,30.8851 -84.8136,30.8882 -84.8159,30.893 -84.8175,30.8963 -84.8189,30.8993 -84.8198,30.9021 -84.8206,30.9048 -84.8211,30.9075 -84.8208,30.9104 -84.8218,30.9139 -84.8204,30.9262 -84.8209,30.9294 -84.8241,30.9336 -84.8283,30.9359 -84.8347,30.9386 -84.8384,30.94 -84.8437,30.9423 -84.849,30.9463 -84.8512,30.951 -84.8502,30.955 -84.8511,30.9597 -84.85,30.9629 -84.8489,30.967 -84.8433,30.9732 -84.8421,30.9765 -84.841,30.9797 -84.8391,30.9839 -84.8371,30.9883 -84.8397,30.9939 -84.8411,31.0026 -84.8426,31.0066 -84.8458,31.0142 -84.8509,31.0273 -84.8556,31.0339 -84.8597,31.0401 -84.8643,31.0459 -84.8697,31.0557 -84.8704,31.0579 -84.8731,31.0661 -84.8756,31.0728 -84.8769,31.0769 -84.8777,31.08 -84.883,31.088 -84.8854,31.0925 -84.8894,31.0964 -84.8933,31.099 -84.8978,31.1029 -84.9008,31.1078 -84.905,31.1145 -84.9085,31.1211 -84.9098,31.1234 -84.9122,31.1259 -84.9139,31.1276 -84.9199,31.1302 -84.9248,31.1323 -84.9324,31.1338 -84.9384,31.1358 -84.9407,31.138 -84.9425,31.142 -84.9445,31.1483 -84.9447,31.1506 -84.9454,31.1529 -84.9467,31.1565 -84.949,31.1595 -84.9503,31.1627 -84.9499,31.1659 -84.9496,31.1696 -84.9473,31.1723 -84.9456,31.1767 -84.9445,31.1793 -84.9441,31.1817 -84.9429,31.1854 -84.9428,31.1882 -84.9393,31.1927 -84.9393,31.1974 -84.9406,31.1997 -84.9426,31.2033 -84.9434,31.2065 -84.9454,31.2123 -84.9473,31.2177 -84.9483,31.2272 -84.9531,31.243 -84.9519,31.2462 -84.949,31.2497 -84.9417,31.2554 -84.9363,31.257 -84.9318,31.2609 -84.9304,31.2673 -84.9295,31.2693 -84.9279,31.2731 -84.9276,31.2786 -84.9273,31.2836 -84.9283,31.2908 -84.9291,31.294 -84.9322,31.3094 -84.9335,31.3143 -84.9345,31.3207 -84.9342,31.33 -84.9364,31.3342 -84.9339,31.3367 -84.9258,31.3526 -84.9229,31.3583 -84.9203,31.3637 -84.9194,31.3673 -84.92,31.3726 -84.9192,31.375 -84.9172,31.3814 -84.9167,31.3919 -84.9149,31.3934 -84.9135,31.3991 -84.9114,31.4023 -84.9087,31.4064 -84.9093,31.4156 -84.9107,31.4201 -84.9125,31.4328 -84.9121,31.4389 -84.9113,31.447 -84.91,31.4506 -84.9088,31.4539 -84.9035,31.4597 -84.898,31.4663 -84.8945,31.4711 -84.8907,31.4795 -84.8895,31.4864 -84.8852,31.493 -84.8856,31.4962 -84.886,31.499 -84.8894,31.5054 -84.8883,31.5084 -84.8882,31.511 -84.8883,31.5133 -84.89,31.5202 -84.8862,31.5246 -84.8865,31.5283 -84.8885,31.5311 -84.8926,31.5354 -84.8955,31.5414 -84.8996,31.5479 -84.8997,31.553 -84.8987,31.5612 -84.9011,31.5667 -84.9045,31.5735 -84.9024,31.5819 -84.9026,31.5883 -84.9018,31.5933 -84.8998,31.5987 -84.9014,31.6006 -84.9067,31.6008 -84.9138,31.6001 -84.9203,31.6003 -84.9234,31.6064 -84.925,31.6109 -84.9247,31.6175 -84.9301,31.6259 -84.9366,31.6344 -84.9433,31.6415 -84.9494,31.6468 -84.9555,31.6534 -84.9594,31.6609 -84.9613,31.666 -84.9624,31.6756 -84.9626,31.6841 -84.9628,31.6908 -84.962,31.6939 -84.9608,31.6966 -84.9595,31.6997 -84.9585,31.7069 -84.9593,31.722 -84.962,31.7322 -84.9649,31.7378 -84.9684,31.743 -84.9696,31.7452 -84.9723,31.7504 -84.9738,31.7541 -84.9762,31.7588 -84.9774,31.767 -84.9786,31.7835 -84.9797,31.8032 -84.9798,31.811 -84.9779,31.8168 -84.977,31.8227 -84.9723,31.8299 -84.9675,31.8388 -84.9618,31.855 -84.9612,31.8659 -84.9616,31.8745 -84.959,31.8784 -84.9551,31.8854 -84.9515,31.89 -84.9482,31.8937 -84.9427,31.8976 -84.9376,31.9025 -84.9334,31.9105 -84.9303,31.9178 -84.9269,31.926 -84.9237,31.931 -84.9216,31.9344 -84.9192,31.9405 -84.914,31.9465 -84.9104,31.9543 -84.9108,31.9571 -84.9106,31.9607 -84.9116,31.9668 -84.9099,31.9721 -84.9083,31.9756 -84.905,31.9796 -84.9057,31.9836 -84.902,31.9887 -84.9001,31.9941 -84.8992,32.0005 -84.8989,32.005 -84.9007,32.0115 -84.9042,32.0175 -84.9055,32.0231 -84.9071,32.0282 -84.9051,32.0307 -84.9043,32.0353 -84.9026,32.0376 -84.8991,32.0427 -84.8943,32.0521 -84.8935,32.0567 -84.8911,32.059 -84.8892,32.0635 -84.8878,32.0689 -84.8881,32.0726 -84.8945,32.0847 -84.8968,32.0921 -84.8969,32.0976 -84.8932,32.1037 -84.8907,32.1067 -84.8869,32.1112 -84.8821,32.1168 -84.8795,32.1192 -84.8771,32.1227 -84.8744,32.1263 -84.8702,32.1321 -84.8677,32.1364 -84.8619,32.1407 -84.8551,32.1447 -84.8477,32.1464 -84.8423,32.148 -84.8322,32.1498 -84.8209,32.1526 -84.8141,32.1552 -84.8077,32.1577 -84.8074,32.1614 -84.8103,32.1651 -84.8059,32.167 -84.8058,32.1692 -84.8078,32.1711 -84.8115,32.1736 -84.8168,32.1756 -84.8205,32.1762 -84.8221,32.1782 -84.8188,32.1787 -84.8134,32.1789 -84.8069,32.1797 -84.7988,32.18 -84.7896,32.1809 -84.7816,32.1826 -84.7757,32.1838 -84.7705,32.1872 -84.7663,32.1901 -84.7632,32.1921 -84.7633,32.1944 -84.7608,32.1972 -84.7615,32.2019 -84.7592,32.2052 -84.7585,32.2088 -84.7596,32.2132 -84.7569,32.2133 -84.7527,32.2154 -84.7465,32.2206 -84.7413,32.225 -84.7411,32.23 -84.7419,32.2345 -84.7477,32.2398 -84.7516,32.2419 -84.7566,32.243 -84.7589,32.2457 -84.7613,32.2501 -84.764,32.2543 -84.7652,32.2562 -84.7684,32.2589 -84.7703,32.2598 -84.772,32.266 -84.7751,32.2688 -84.7797,32.2736 -84.785,32.2761 -84.7989,32.2794 -84.8229,32.2881 -84.8425,32.2971 -84.8461,32.3 -84.85,32.3083 -84.8484,32.3125 -84.8467,32.3178 -84.8438,32.3218 -84.8382,32.3243 -84.8349,32.3255 -84.8309,32.3286 -84.8291,32.3326 -84.8267,32.3366 -84.8243,32.3392 -84.8222,32.3387 -84.8184,32.3388 -84.8157,32.3389 -84.8145,32.3407 -84.8126,32.3442 -84.8129,32.3488 -84.8139,32.3511 -84.8176,32.3527 -84.8213,32.3537 -84.8234,32.3574 -84.8208,32.3589 -84.8181,32.3618 -84.8185,32.3658 -84.8198,32.3689 -84.8199,32.3712 -84.8199,32.3788 -84.8181,32.3819 -84.8152,32.3854 -84.8117,32.3877 -84.8127,32.3953 -84.8163,32.4001 -84.8242,32.4052 -84.8293,32.4087 -84.8322,32.4108 -84.8352,32.4157 -84.8353,32.4185 -84.8355,32.4215 -84.8368,32.4242 -84.8366,32.4271 -84.837,32.433 -84.8373,32.437 -84.8372,32.4476 -84.8387,32.4593 -84.8383,32.4676 -84.8382,32.4702 -84.8384,32.4727 -84.8394,32.4813 -84.8399,32.4863 -84.8407,32.4922 -84.8469,32.498 -84.8553,32.5033 -84.8583,32.5071 -84.8639,32.5146 -84.8675,32.5179 -84.8744,32.5209 -84.8803,32.523 -84.8854,32.5296 -84.89,32.5343 -84.8934,32.5422 -84.897,32.5465 -84.9022,32.5508 -84.9064,32.5537 -84.9095,32.5565 -84.9135,32.5621 -84.916,32.5663 -84.9164,32.5691 -84.9167,32.5741 -84.9181,32.5778 -84.9183,32.5842 -84.9201,32.5902 -84.9232,32.5935 -84.9258,32.5964 -84.9261,32.6005 -84.928,32.6051 -84.9312,32.6071 -84.9366,32.6077 -84.9431,32.6094 -84.9451,32.6117 -84.9443,32.6158 -84.9415,32.6184 -84.9375,32.621 -84.9341,32.624 -84.9322,32.6276 -84.9325,32.6322 -84.9342,32.6418 -84.9382,32.647 -84.944,32.6509 -84.9497,32.6566 -84.9511,32.6603 -84.957,32.6733 -84.9616,32.6787 -84.9608,32.6806 -84.9599,32.6898 -84.9609,32.6957 -84.9612,32.7002 -84.9631,32.7051 -84.9659,32.7064 -84.9683,32.7098 -84.9722,32.7098 -84.9741,32.7142 -84.977,32.7164 -84.9793,32.7195 -84.9806,32.7221 -84.9804,32.7276 -84.9774,32.7309 -84.9762,32.7347 -84.9704,32.7371 -84.9685,32.7403 -84.9666,32.7452 -84.9675,32.7498 -84.9711,32.7531 -84.9759,32.7551 -84.9791,32.7575 -84.9816,32.7604 -84.9856,32.7669 -84.9889,32.7679 -84.9948,32.77 -85.0017,32.7725 -85.0048,32.7763 -85.0051,32.7804 -85.0049,32.7841 -85.0041,32.7886 -85.0062,32.7905 -85.0105,32.7916 -85.012,32.7939 -85.0127,32.8012 -85.0147,32.8145 -85.0207,32.8375 -85.028,32.8376 -85.0804,33.0755 -85.0808,33.086 -85.0812,33.0951 -85.1411,33.3917 -85.1523,33.4564 -85.1826,33.6208 -85.2313,33.8713 -85.2417,33.9177 -85.243,33.9257 -85.2639,34.0528 -85.2651,34.0585 -85.3076,34.256 -85.3552,34.4713 -85.3592,34.4889 -85.3731,34.5506 -85.382,34.5884 -85.4304,34.8282 -85.4562,34.9565 -85.4507,34.9565 -85.3135,34.9605 -85.3048,34.9652 -85.3007,34.9687 -85.2972,34.9709 -85.2938,34.9721 -85.2909,34.9738 -85.2874,34.9765 -85.2822,34.9795 -85.2793,34.9807 -85.2769,34.9829 -85.2699,34.9881 -85.2664,34.9912 -85.2639,34.9952 -85.2621,34.9974 -85.2597,35.0 -85.2585,35.0023 -85.2578,35.0045 -85.2571,35.0077 -85.2564,35.0099 -85.2545,35.0126 -85.2516,35.0152 -85.247,35.0169 -85.2431,35.0172 -85.2402,35.018 -85.2363,35.0174 -85.2301,35.0172 -85.2273,35.018 -85.2238,35.0201 -85.2195,35.0263 -85.2183,35.029 -85.2152,35.033 -85.2144,35.0371 -85.212,35.0406 -85.2095,35.0451 -85.2092,35.0505 -85.2079,35.0546 -85.2081,35.0618 -85.2096,35.0646 -85.2123,35.0665 -85.2151,35.0675 -85.2184,35.069 -85.2211,35.0705 -85.2249,35.0724 -85.2277,35.0739 -85.2304,35.0758 -85.2342,35.0769 -85.2364,35.0792 -85.2396,35.0816 -85.2406,35.0839 -85.2393,35.087 -85.2392,35.0897 -85.2379,35.0929 -85.2372,35.0951 -85.2353,35.0987 -85.2335,35.1009 -85.2321,35.1054 -85.2314,35.1081 -85.2312,35.1126 -85.2343,35.1173 -85.2347,35.1205 -85.2335,35.1227 -85.2317,35.1249 -85.1259,35.2566 -85.0988,35.2879 -85.0734,35.3292 -85.0316,35.3986 -85.0183,35.4344 -84.9949,35.419 -84.9805,35.4326 -84.9637,35.4492 -84.9758,35.4551 -84.9756,35.4601 -84.9843,35.465 -84.987,35.4678 -84.9662,35.5052 -84.9555,35.5134 -84.9515,35.5251 -84.953,35.5374 -84.9542,35.547 -84.8997,35.5881 -84.8756,35.5936 -84.8392,35.644 -84.827,35.6385 -84.8178,35.6414 -84.8191,35.6482 -84.8221,35.6547 -84.7471,35.7413 -84.7287,35.746 -84.6404,35.7966 -84.6297,35.7953 -84.6268,35.7956 -84.6234,35.795 -84.6201,35.794 -84.6173,35.7925 -84.6145,35.7929 -84.6111,35.7923 -84.6063,35.7962 -84.6022,35.7983 -84.5921,35.8056 -84.5903,35.8078 -84.586,35.8131 -84.5852,35.8162 -84.5803,35.821 -84.5779,35.8237 -84.5761,35.8259 -84.5718,35.8298 -84.5688,35.8328 -84.5634,35.8372 -84.5592,35.8406 -84.5538,35.845 -84.552,35.8471 -84.5489,35.8502 -84.546,35.8524 -84.5447,35.855 -84.5403,35.8612 -84.5354,35.866 -84.5336,35.8687 -84.5305,35.8717 -84.5281,35.8748 -84.5273,35.8775 -84.526,35.8802 -84.5343,35.8937 -84.541,35.9135 -84.5477,35.9328 -84.5547,35.9486 -84.563,35.9607 -84.5737,35.9716 -84.5852,35.9798 -84.5921,35.9869 -84.6009,35.9922 -84.6113,35.9981 -84.6159,36.0078 -84.6245,36.0154 -84.6358,36.0263 -84.6396,36.0382 -84.6434,36.0507 -84.6459,36.0562 -84.6519,36.0519 -84.6617,36.0586 -84.6684,36.0603 -84.6738,36.0573 -84.6767,36.0556 -84.6812,36.0571 -84.6837,36.0622 -84.7065,36.0895 -84.7134,36.0984 -84.7239,36.1042 -84.7294,36.1076 -84.7377,36.1116 -84.7438,36.115 -84.7525,36.1212 -84.7512,36.1234 -84.7494,36.1256 -84.747,36.1283 -84.7455,36.1337 -84.7448,36.1359 -84.7446,36.1382 -84.7455,36.1427 -84.7454,36.145 -84.7463,36.1482 -84.7478,36.1515 -84.7482,36.1547 -84.7486,36.1574 -84.7495,36.162 -84.7487,36.1651 -84.7485,36.1678 -84.7472,36.1719 -84.747,36.1741 -84.7457,36.1768 -84.7432,36.1813 -84.7354,36.1869 -84.7324,36.1899 -84.7299,36.1921 -84.7295,36.1989 -84.7288,36.2011 -84.727,36.2033 -84.7262,36.206 -84.722,36.2195 -84.7211,36.2245 -84.7181,36.2361 -84.718,36.2384 -84.7165,36.2434 -84.7158,36.246 -84.7132,36.25 -84.7068,36.2525 -84.7046,36.252 -84.7006,36.2514 -84.6954,36.2521 -84.6925,36.2529 -84.6879,36.2531 -84.6833,36.2539 -84.6753,36.2536 -84.6719,36.2539 -84.6672,36.2555 -84.6642,36.2572 -84.6614,36.2575 -84.6573,36.2578 -84.6482,36.2575 -84.6453,36.2583 -84.6418,36.26 -84.6389,36.2603 -84.6331,36.2614 -84.634,36.266 -84.6337,36.2701 -84.636,36.2797 -84.6347,36.2819 -84.6282,36.2858 -84.6251,36.2888 -84.6267,36.2911 -84.6265,36.2934 -84.6252,36.2965 -84.6221,36.3 -84.6164,36.3007 -84.6101,36.3 -84.6055,36.2999 -84.6014,36.3015 -84.5962,36.3027 -84.5927,36.3048 -84.5914,36.307 -84.5895,36.3101 -84.5882,36.3123 -84.588,36.315 -84.5845,36.3167 -84.5809,36.3189 -84.5763,36.3196 -84.5733,36.3208 -84.5701,36.327 -84.5688,36.3293 -84.5645,36.3332 -84.5575,36.3365 -84.554,36.3368 -84.5409,36.3363 -84.5367,36.3484 -84.5253,36.3561 -84.5009,36.362 -84.536,36.4038 -84.5627,36.4707 -84.5773,36.4935 -84.6292,36.571 -84.6459,36.5716 -84.631,36.5781 -84.5295,36.7121 -84.5237,36.7305 -84.5184,36.7316 -84.5133,36.7305 -84.5076,36.7303 -84.5042,36.7297 -84.5017,36.7327 -84.4975,36.7353 -84.4934,36.7365 -84.4887,36.7381 -84.4849,36.7425 -84.4835,36.747 -84.4827,36.7497 -84.4798,36.7509 -84.4772,36.7545 -84.4818,36.7556 -84.4816,36.7578 -84.4797,36.7605 -84.4773,36.7622 -84.4727,36.7625 -84.4704,36.7633 -84.4552,36.7658 -84.4545,36.7685 -84.4526,36.7703 -84.4452,36.77 -84.4428,36.7708 -84.4426,36.7739 -84.4436,36.7758 -84.4441,36.7781 -84.4414,36.7834 -84.4378,36.786 -84.4351,36.7913 -84.4366,36.795 -84.4381,36.7983 -84.4403,36.8006 -84.444,36.8053 -84.4438,36.8089 -84.4413,36.8111 -84.4378,36.8119 -84.4343,36.8131 -84.4346,36.8163 -84.4384,36.8205 -84.4429,36.8221 -84.4467,36.8263 -84.4454,36.8281 -84.4412,36.8302 -84.4382,36.8328 -84.4345,36.8367 -84.4349,36.839 -84.437,36.8418 -84.4374,36.8446 -84.4384,36.8469 -84.4405,36.8501 -84.4421,36.8525 -84.4449,36.8535 -84.4495,36.8528 -84.453,36.852 -84.4559,36.8521 -84.4586,36.8545 -84.4614,36.8564 -84.467,36.8589 -84.4698,36.8604 -84.4725,36.8623 -84.4776,36.8643 -84.4803,36.8663 -84.4846,36.8719 -84.4877,36.8766 -84.4908,36.8821 -84.4917,36.8867 -84.4944,36.89 -84.4965,36.8928 -84.4998,36.8952 -84.5025,36.898 -84.5064,36.9005 -84.509,36.9047 -84.5105,36.9074 -84.5121,36.9098 -84.513,36.9134 -84.515,36.9181 -84.5155,36.9203 -84.517,36.9227 -84.5186,36.9259 -84.5207,36.9292 -84.5233,36.9329 -84.5248,36.9357 -84.5264,36.938 -84.5274,36.9403 -84.5301,36.9441 -84.5328,36.9465 -84.5362,36.948 -84.5401,36.949 -84.5436,36.9483 -84.55,36.9485 -84.5558,36.9483 -84.5604,36.948 -84.5633,36.9477 -84.5669,36.9456 -84.5705,36.9439 -84.5718,36.9417 -84.5742,36.9395 -84.5826,36.9344 -84.5879,36.9328 -84.5915,36.9306 -84.5968,36.929 -84.5997,36.9278 -84.6027,36.927 -84.6062,36.9267 -84.6154,36.9257 -84.6196,36.9245 -84.6242,36.9233 -84.627,36.9248 -84.6324,36.9304 -84.6345,36.9337 -84.6361,36.9369 -84.6387,36.9402 -84.6443,36.9441 -84.6482,36.9456 -84.6516,36.9475 -84.655,36.9486 -84.6577,36.95 -84.6617,36.9515 -84.6662,36.9531 -84.6702,36.9541 -84.673,36.9552 -84.677,36.9562 -84.6809,36.9582 -84.6859,36.9602 -84.6888,36.9612 -84.6961,36.9638 -84.7179,36.975 -84.7681,37.0219 -84.7699,37.0678 -84.7659,37.0863 -84.8174,37.076 -84.9006,37.153 -84.9135,37.1685 -84.9173,37.2226 -85.0269,37.2783 -85.0271,37.2751 -85.0306,37.2744 -85.0336,37.2736 -85.0371,37.2723 -85.0395,37.2701 -85.0414,37.2679 -85.0421,37.2657 -85.0417,37.2634 -85.042,37.2584 -85.0415,37.2561 -85.0416,37.2539 -85.0412,37.2516 -85.0415,37.2466 -85.0422,37.2444 -85.0441,37.2422 -85.0448,37.2399 -85.0461,37.2372 -85.0474,37.235 -85.0503,37.2338 -85.0533,37.2321 -85.0574,37.2313 -85.0633,37.2297 -85.0685,37.2294 -85.072,37.2291 -85.0755,37.2283 -85.0814,37.2276 -85.0842,37.2277 -85.0872,37.2273 -85.0918,37.2266 -85.0988,37.2259 -85.1053,37.2248 -85.1122,37.2241 -85.1151,37.2242 -85.1209,37.224 -85.1244,37.2241 -85.1296,37.2247 -85.1314,37.2225 -85.134,37.2181 -85.1377,37.2132 -85.1384,37.211 -85.1403,37.2083 -85.1422,37.2061 -85.1451,37.2058 -85.1491,37.2064 -85.152,37.2065 -85.156,37.2075 -85.1628,37.2096 -85.1658,37.2088 -85.1693,37.2071 -85.1712,37.2044 -85.1719,37.2022 -85.1709,37.1994 -85.1693,37.1971 -85.1671,37.1947 -85.1655,37.192 -85.1663,37.1893 -85.167,37.187 -85.1694,37.1844 -85.1743,37.18 -85.1773,37.1788 -85.1809,37.1762 -85.1845,37.174 -85.1893,37.1705 -85.1935,37.168 -85.1971,37.1654 -85.1996,37.1632 -85.2037,37.1615 -85.2067,37.1598 -85.2085,37.1576 -85.2095,37.1603 -85.2111,37.1627 -85.2133,37.1655 -85.2155,37.1678 -85.2187,37.1725 -85.2236,37.1772 -85.2294,37.1778 -85.2328,37.1784 -85.2357,37.1785 -85.2392,37.1791 -85.2437,37.1806 -85.2489,37.1812 -85.2517,37.1817 -85.2546,37.1818 -85.2592,37.1825 -85.2621,37.183 -85.2614,37.1857 -85.2601,37.1879 -85.2582,37.1901 -85.2558,37.1923 -85.2522,37.1945 -85.2492,37.1962 -85.2462,37.1974 -85.2444,37.2001 -85.2454,37.2029 -85.2502,37.2098 -85.2523,37.2126 -85.2534,37.2154 -85.2561,37.2173 -85.2566,37.22 -85.2588,37.2224 -85.2604,37.2247 -85.2631,37.2284 -85.2647,37.2307 -85.2674,37.234 -85.2707,37.2368 -85.2723,37.2396 -85.2744,37.2424 -85.2772,37.2448 -85.2793,37.248 -85.2809,37.2508 -85.2831,37.254 -85.2835,37.2563 -85.2857,37.2591 -85.2879,37.2615 -85.2889,37.2642 -85.2904,37.2674 -85.2938,37.2698 -85.2948,37.2726 -85.2964,37.2749 -85.2991,37.2782 -85.3002,37.2805 -85.3012,37.2832 -85.3045,37.2865 -85.3049,37.2888 -85.3071,37.2916 -85.3081,37.2944 -85.3113,37.299 -85.3135,37.3018 -85.3162,37.3051 -85.3172,37.3074 -85.3188,37.3101 -85.3199,37.3124 -85.3215,37.3148 -85.3297,37.3232 -85.3352,37.3279 -85.3374,37.3303 -85.3419,37.3336 -85.3452,37.336 -85.348,37.3383 -85.3553,37.3422 -85.3581,37.3441 -85.361,37.3447 -85.3626,37.347 -85.3654,37.3489 -85.3694,37.3508 -85.3721,37.3532 -85.3749,37.3551 -85.3778,37.3556 -85.38,37.358 -85.3845,37.3599 -85.3873,37.3618 -85.3924,37.3652 -85.3952,37.3671 -85.3997,37.3695 -85.4025,37.3719 -85.4058,37.3742 -85.4097,37.3771 -85.4136,37.3795 -85.4193,37.3824 -85.4221,37.3848 -85.4249,37.3867 -85.427,37.3895 -85.4326,37.3933 -85.4348,37.3956 -85.437,37.3984 -85.4386,37.4007 -85.4396,37.4053 -85.4394,37.4075 -85.4416,37.4099 -85.4415,37.4121 -85.442,37.4144 -85.4419,37.4167 -85.4411,37.4194 -85.441,37.4217 -85.4403,37.4239 -85.4377,37.4288 -85.4406,37.4294 -85.444,37.4304 -85.4469,37.4318 -85.4497,37.4328 -85.4526,37.4334 -85.4555,37.433 -85.4619,37.4328 -85.4649,37.4315 -85.4678,37.4307 -85.4702,37.4303 -85.4736,37.4313 -85.4752,37.4336 -85.478,37.4355 -85.4815,37.4357 -85.4849,37.4367 -85.4884,37.4368 -85.4943,37.4342 -85.4956,37.432 -85.4952,37.4288 -85.497,37.4271 -85.4972,37.4226 -85.498,37.4198 -85.5005,37.4154 -85.5041,37.4132 -85.5065,37.411 -85.5095,37.4093 -85.5131,37.4081 -85.5149,37.4059 -85.5162,37.4036 -85.5169,37.4014 -85.5176,37.3982 -85.5183,37.396 -85.5191,37.3933 -85.518,37.3905 -85.517,37.3882 -85.5166,37.3855 -85.5167,37.3832 -85.585,37.3854 -85.6027,37.3909 -85.613,37.393 -85.7372,37.4032 -85.9027,37.412 -85.9055,37.4144 -85.9112,37.4173 -85.9134,37.4196 -85.9154,37.4251 -85.9159,37.4278 -85.9157,37.4324 -85.9144,37.4346 -85.912,37.4368 -85.9085,37.4381 -85.9066,37.4412 -85.9059,37.4434 -85.9069,37.4466 -85.9097,37.449 -85.9125,37.4509 -85.913,37.4532 -85.9117,37.4554 -85.911,37.4576 -85.9103,37.4603 -85.9108,37.4626 -85.9124,37.4649 -85.9152,37.4677 -85.9174,37.4701 -85.9202,37.472 -85.9207,37.4742 -85.9235,37.4775 -85.9257,37.4803 -85.9312,37.4859 -85.9345,37.4896 -85.9362,37.4919 -85.9378,37.4947 -85.9394,37.497 -85.9422,37.4998 -85.9438,37.503 -85.9471,37.5067 -85.9499,37.5077 -85.9504,37.5109 -85.952,37.5132 -85.9542,37.5155 -85.9559,37.5179 -85.9587,37.5202 -85.9602,37.5239 -85.9624,37.5267 -85.9641,37.529 -85.9663,37.5313 -85.9685,37.5341 -85.9701,37.5369 -85.9729,37.5387 -85.9799,37.5389 -85.9864,37.5364 -85.9888,37.5342 -85.9924,37.5325 -85.9959,37.5312 -85.9995,37.529 -86.0024,37.5287 -86.0053,37.5288 -86.0082,37.5293 -86.0111,37.5303 -86.0167,37.5341 -86.0196,37.5346 -86.026,37.5348 -86.029,37.533 -86.0319,37.5322 -86.0348,37.5318 -86.0389,37.5324 -86.0417,37.5338 -86.0446,37.5339 -86.0503,37.5368 -86.0537,37.5382 -86.0594,37.5402 -86.0629,37.5412 -86.0663,37.5427 -86.0709,37.5437 -86.0737,37.5451 -86.0772,37.5461 -86.0806,37.548 -86.084,37.549 -86.0869,37.55 -86.0897,37.5515 -86.0919,37.5542 -86.0936,37.5565 -86.0946,37.5588 -86.0945,37.5611 -86.0968,37.5634 -86.1002,37.564 -86.1043,37.5645 -86.1077,37.5646 -86.1106,37.5652 -86.1176,37.5653 -86.1223,37.565 -86.1287,37.5652 -86.0073,37.7692 -86.1052,37.8489 -86.3504,38.0175 -86.3539,38.0172 -86.3575,38.0163 -86.3604,38.0151 -86.3634,38.0147 -86.3664,38.0129 -86.3676,38.0102 -86.3703,38.0012 -86.3704,37.999 -86.3718,37.9945 -86.3731,37.9918 -86.3732,37.9895 -86.3744,37.9873 -86.3751,37.9846 -86.3752,37.9819 -86.3759,37.9796 -86.3754,37.9773 -86.3761,37.9751 -86.3777,37.9642 -86.3784,37.9611 -86.3785,37.9588 -86.378,37.9565 -86.3781,37.9534 -86.3776,37.9506 -86.3772,37.9474 -86.3767,37.9447 -86.3757,37.9411 -86.3731,37.9328 -86.371,37.9278 -86.3699,37.925 -86.3683,37.9218 -86.3672,37.9191 -86.3667,37.9168 -86.3651,37.9141 -86.3646,37.9118 -86.3642,37.9081 -86.365,37.9032 -86.3656,37.9009 -86.3675,37.8987 -86.3687,37.8965 -86.37,37.8938 -86.3724,37.8916 -86.376,37.8898 -86.379,37.889 -86.3825,37.8886 -86.3854,37.8878 -86.3884,37.8874 -86.3976,37.8885 -86.4006,37.8882 -86.4035,37.8882 -86.4069,37.8897 -86.4098,37.8902 -86.4128,37.8898 -86.4169,37.8895 -86.4203,37.8904 -86.4261,37.8915 -86.4291,37.8916 -86.4331,37.8912 -86.4361,37.8899 -86.4391,37.8891 -86.4426,37.8883 -86.4456,37.887 -86.4462,37.8847 -86.4487,37.8825 -86.4511,37.8794 -86.4518,37.8771 -86.4519,37.874 -86.4528,37.8658 -86.4531,37.8599 -86.4538,37.8559 -86.4533,37.8527 -86.4541,37.8491 -86.4542,37.8464 -86.4549,37.8437 -86.455,37.8405 -86.4557,37.8378 -86.4564,37.8346 -86.4571,37.8319 -86.4596,37.8274 -86.462,37.8239 -86.4656,37.8217 -86.4727,37.8191 -86.4763,37.8169 -86.4793,37.8161 -86.4852,37.8135 -86.4893,37.8127 -86.4928,37.8119 -86.4958,37.8115 -86.5028,37.8108 -86.5057,37.8108 -86.5098,37.8114 -86.5132,37.8133 -86.5143,37.8151 -86.516,37.8174 -86.5181,37.822 -86.5179,37.8265 -86.5167,37.8288 -86.516,37.831 -86.5153,37.8337 -86.5147,37.836 -86.514,37.8387 -86.5133,37.8409 -86.512,37.8432 -86.512,37.8454 -86.5107,37.8477 -86.5106,37.8504 -86.5093,37.8531 -86.5086,37.8562 -86.5084,37.8617 -86.5089,37.864 -86.5076,37.8685 -86.508,37.8712 -86.5109,37.874 -86.5131,37.8763 -86.5159,37.8791 -86.5188,37.8792 -86.5218,37.8788 -86.5252,37.8793 -86.5287,37.8794 -86.5323,37.8786 -86.5364,37.8777 -86.54,37.8756 -86.5429,37.8747 -86.5465,37.8734 -86.5494,37.8731 -86.553,37.8713 -86.556,37.8691 -86.559,37.8674 -86.5631,37.8661 -86.5661,37.8648 -86.5732,37.8614 -86.5761,37.8605 -86.5802,37.8602 -86.589,37.8604 -86.5919,37.8609 -86.5948,37.8618 -86.5982,37.8633 -86.6011,37.8643 -86.6033,37.8666 -86.6062,37.8689 -86.6106,37.8744 -86.6128,37.8781 -86.6151,37.8804 -86.6173,37.8837 -86.6194,37.8901 -86.6216,37.8928 -86.6233,37.8956 -86.6271,37.9011 -86.6276,37.9038 -86.6304,37.9075 -86.6337,37.9135 -86.6354,37.9163 -86.637,37.9186 -86.6381,37.9213 -86.6403,37.9245 -86.642,37.9273 -86.6442,37.9296 -86.6453,37.9323 -86.6464,37.9346 -86.6463,37.9369 -86.6479,37.9397 -86.649,37.9424 -86.6501,37.9447 -86.6535,37.9475 -86.6551,37.9498 -86.658,37.9517 -86.6637,37.955 -86.6672,37.9569 -86.6706,37.9578 -86.6736,37.9575 -86.6717,37.961 -86.6698,37.9642 -86.668,37.9664 -86.665,37.9686 -86.6631,37.9708 -86.659,37.9721 -86.656,37.9738 -86.6537,37.9742 -86.6495,37.9751 -86.6425,37.9758 -86.6396,37.9753 -86.6362,37.973 -86.6321,37.972 -86.6293,37.9701 -86.6263,37.9705 -86.6239,37.9727 -86.6227,37.9749 -86.622,37.9772 -86.6225,37.9795 -86.6224,37.9817 -86.6246,37.9868 -86.6257,37.989 -86.6273,37.9918 -86.6272,37.9941 -86.6277,37.9963 -86.627,37.9991 -86.6266,38.0104 -86.6259,38.014 -86.6252,38.0162 -86.6257,38.0199 -86.6256,38.0226 -86.6261,38.0253 -86.6265,38.0285 -86.6264,38.0312 -86.6269,38.034 -86.6274,38.0362 -86.6285,38.0385 -86.629,38.0413 -86.6306,38.0445 -86.6311,38.0472 -86.6316,38.0495 -86.6304,38.0517 -86.6285,38.054 -86.6278,38.0589 -86.6271,38.0616 -86.6264,38.0639 -86.6274,38.0684 -86.6308,38.073 -86.6336,38.074 -86.6371,38.075 -86.6412,38.0746 -86.6465,38.0752 -86.6499,38.0771 -86.6527,38.0794 -86.6538,38.0817 -86.6555,38.0845 -86.6553,38.0904 -86.6558,38.0931 -86.6574,38.0963 -86.6602,38.0986 -86.6619,38.1014 -86.6618,38.1037 -86.6611,38.1082 -86.661,38.1104 -86.6603,38.1136 -86.6596,38.1163 -86.6607,38.119 -86.6612,38.1218 -86.6617,38.1241 -86.6621,38.1268 -86.6615,38.1295 -86.6608,38.1317 -86.6578,38.1339 -86.6489,38.1378 -86.6452,38.1423 -86.6445,38.1445 -86.6455,38.15 -86.6454,38.1527 -86.6459,38.155 -86.6458,38.1577 -86.6463,38.1604 -86.6474,38.1627 -86.6466,38.1677 -86.8727,38.1688 -86.9266,38.1695 -86.9274,38.198 -87.1506,38.2009 -87.1508,38.2122 -87.169,38.2121 -87.1663,38.344 -87.1914,38.3476 -87.1966,38.3495 -87.2019,38.3482 -87.2085,38.3461 -87.215,38.3448 -87.2208,38.3467 -87.2254,38.3486 -87.2319,38.3478 -87.2361,38.3456 -87.2419,38.3466 -87.2478,38.3472 -87.2513,38.3459 -87.2614,38.3447 -87.2654,38.3452 -87.2668,38.4006 -87.3067,38.4026 -87.3076,38.4325 -87.3241,38.4328 -87.327,38.4981 -87.3294,38.4963 -87.3324,38.4937 -87.3337,38.4914 -87.3361,38.4892 -87.339,38.4879 -87.3446,38.4798 -87.3453,38.4735 -87.346,38.4712 -87.3467,38.4676 -87.3473,38.4654 -87.348,38.4627 -87.3516,38.4604 -87.3568,38.461 -87.3603,38.4628 -87.3632,38.4633 -87.3655,38.4666 -87.369,38.4662 -87.372,38.4649 -87.375,38.464 -87.3808,38.4668 -87.3813,38.47 -87.3824,38.4727 -87.3847,38.4759 -87.3882,38.4769 -87.3911,38.4769 -87.3947,38.4761 -87.3971,38.4739 -87.3989,38.4707 -87.399,38.4662 -87.3986,38.4607 -87.3993,38.458 -87.4011,38.4535 -87.4036,38.4508 -87.4095,38.4491 -87.4124,38.451 -87.4176,38.4551 -87.421,38.4575 -87.4239,38.4598 -87.4268,38.4607 -87.4298,38.4608 -87.4327,38.4599 -87.4352,38.4572 -87.437,38.4527 -87.4377,38.45 -87.4389,38.4469 -87.4396,38.4437 -87.4415,38.4406 -87.4427,38.4379 -87.4452,38.4334 -87.447,38.4302 -87.4507,38.4253 -87.4531,38.4231 -87.4603,38.4186 -87.4632,38.4169 -87.4662,38.4156 -87.4698,38.4147 -87.4727,38.4138 -87.4763,38.4134 -87.481,38.4135 -87.488,38.4145 -87.4909,38.4159 -87.4944,38.4169 -87.5002,38.4197 -87.506,38.4207 -87.5143,38.4208 -87.5184,38.4204 -87.5214,38.4196 -87.5244,38.4173 -87.5262,38.4151 -87.5274,38.4124 -87.5275,38.4101 -87.5258,38.4078 -87.5252,38.4051 -87.5247,38.4019 -87.5289,38.3988 -87.536,38.3989 -87.5419,38.3981 -87.5466,38.3968 -87.5496,38.3959 -87.5526,38.3937 -87.5555,38.392 -87.5585,38.3902 -87.5615,38.3889 -87.5645,38.3871 -87.5686,38.3858 -87.5716,38.384 -87.5769,38.3827 -87.5834,38.3828 -87.5863,38.3833 -87.5904,38.3843 -87.595,38.3857 -87.5938,38.388 -87.592,38.3902 -87.5869,38.4083 -87.5862,38.4114 -87.5879,38.4137 -87.5908,38.416 -87.5943,38.4179 -87.5972,38.4188 -87.6001,38.4207 -87.603,38.423 -87.6059,38.423 -87.6046,38.4276 -87.6046,38.4298 -87.6033,38.4321 -87.5998,38.4334 -87.5956,38.4347 -87.5921,38.4355 -87.5862,38.4373 -87.5826,38.4377 -87.5791,38.4385 -87.5749,38.4403 -87.5708,38.4416 -87.5672,38.4429 -87.5613,38.4446 -87.5572,38.445 -87.5536,38.4459 -87.5507,38.4467 -87.5465,38.4471 -87.5436,38.4475 -87.5401,38.4475 -87.5382,38.4497 -87.5376,38.4524 -87.5351,38.4569 -87.5333,38.4605 -87.532,38.4632 -87.5314,38.4655 -87.5296,38.4677 -87.5272,38.47 -87.5242,38.4708 -87.5212,38.4712 -87.5183,38.4707 -87.5154,38.4698 -87.5125,38.4675 -87.5102,38.4652 -87.5073,38.4638 -87.5044,38.4642 -87.5008,38.4664 -87.4995,38.4686 -87.4988,38.4736 -87.4982,38.4763 -87.4981,38.479 -87.4986,38.4813 -87.5003,38.4841 -87.5026,38.4873 -87.5055,38.49 -87.5112,38.4965 -87.514,38.5015 -87.5174,38.5061 -87.5185,38.5088 -87.5191,38.5111 -87.5202,38.5134 -87.5201,38.5156 -87.5195,38.5179 -87.5177,38.5201 -87.5147,38.5224 -87.5123,38.5246 -87.5116,38.5278 -87.5074,38.5304 -87.505,38.5331 -87.5013,38.5376 -87.5001,38.5412 -87.4988,38.5434 -87.4964,38.5457 -87.494,38.5483 -87.4922,38.5506 -87.4909,38.5528 -87.4903,38.5551 -87.4878,38.5591 -87.4843,38.56 -87.4813,38.5608 -87.4784,38.5608 -87.4748,38.5612 -87.4719,38.5616 -87.4689,38.5629 -87.4671,38.5652 -87.467,38.5674 -87.4693,38.5711 -87.4715,38.5757 -87.4732,38.5789 -87.4748,38.5843 -87.4759,38.5889 -87.4752,38.5911 -87.4746,38.5943 -87.4745,38.5966 -87.4738,38.6015 -87.4731,38.6042 -87.4725,38.6065 -87.4724,38.6088 -87.47,38.611 -87.467,38.6137 -87.4646,38.6159 -87.4633,38.6186 -87.4586,38.6208 -87.4556,38.6221 -87.4526,38.6225 -87.4508,38.6247 -87.4495,38.6284 -87.4477,38.6306 -87.4447,38.6324 -87.4417,38.6346 -87.4387,38.6359 -87.4357,38.6381 -87.4286,38.6407 -87.4256,38.6425 -87.4226,38.6434 -87.4185,38.6446 -87.4155,38.6451 -87.4108,38.6454 -87.4078,38.6463 -87.4048,38.6467 -87.4019,38.6476 -87.3983,38.6493 -87.3911,38.6519 -87.3881,38.6546 -87.3857,38.6573 -87.3784,38.6649 -87.3754,38.6666 -87.3742,38.6693 -87.3723,38.672 -87.3717,38.6747 -87.3704,38.677 -87.3692,38.6797 -87.3679,38.6819 -87.3661,38.6842 -87.3654,38.6869 -87.363,38.69 -87.3611,38.6927 -87.3599,38.6954 -87.358,38.6981 -87.3556,38.7026 -87.3549,38.7048 -87.3548,38.7098 -87.3559,38.7121 -87.3576,38.7144 -87.3581,38.7176 -87.3586,38.7203 -87.3586,38.7226 -87.3579,38.7248 -87.3572,38.728 -87.356,38.7312 -87.3553,38.7334 -87.3552,38.7357 -87.357,38.738 -87.3599,38.7389 -87.3634,38.7408 -87.3663,38.7426 -87.365,38.7453 -87.3644,38.7476 -87.3584,38.7502 -87.3554,38.7511 -87.3548,38.7533 -87.3541,38.7565 -87.3546,38.7592 -87.3551,38.7615 -87.3586,38.7647 -87.3644,38.7694 -87.3666,38.7726 -87.3689,38.7753 -87.37,38.7785 -87.3717,38.7808 -87.3729,38.7831 -87.3775,38.7877 -87.3792,38.7905 -87.3803,38.7927 -87.3801,38.7986 -87.3812,38.8018 -87.3817,38.805 -87.3822,38.8073 -87.3834,38.8096 -87.3851,38.8119 -87.3867,38.816 -87.3884,38.8192 -87.3914,38.8201 -87.3948,38.8233 -87.3983,38.8243 -87.4,38.8266 -87.4029,38.8289 -87.4052,38.8312 -87.4064,38.8335 -87.4063,38.8358 -87.4051,38.8385 -87.4038,38.8407 -87.4025,38.8452 -87.4007,38.8475 -87.3982,38.8497 -87.3952,38.8519 -87.394,38.8546 -87.3939,38.8569 -87.3927,38.8591 -87.392,38.8614 -87.3914,38.8641 -87.3901,38.8663 -87.3883,38.869 -87.3858,38.8713 -87.3846,38.8735 -87.3845,38.8762 -87.385,38.879 -87.3867,38.8817 -87.3873,38.884 -87.3866,38.8862 -87.3866,38.8885 -87.3824,38.8907 -87.3799,38.8929 -87.3787,38.8956 -87.3774,38.8979 -87.3773,38.9019 -87.3784,38.9042 -87.379,38.9065 -87.3786,38.9201 -87.378,38.9224 -87.3791,38.9251 -87.3802,38.9274 -87.3807,38.9297 -87.3824,38.9319 -87.3853,38.9343 -87.387,38.9366 -87.39,38.9384 -87.3929,38.9407 -87.3952,38.943 -87.3987,38.944 -87.4046,38.9459 -87.4081,38.9473 -87.4116,38.9483 -87.4145,38.9488 -87.4181,38.9488 -87.421,38.9502 -87.4239,38.9512 -87.4269,38.9526 -87.4298,38.9545 -87.4333,38.9559 -87.4362,38.9573 -87.4391,38.96 -87.4361,38.9609 -87.4332,38.9608 -87.429,38.9617 -87.4289,38.964 -87.4301,38.9662 -87.4318,38.9685 -87.4311,38.9708 -87.4304,38.9753 -87.4298,38.9776 -87.4297,38.9798 -87.4302,38.9821 -87.4301,38.9875 -87.4294,38.9903 -87.43,38.993 -87.4299,38.9953 -87.431,38.998 -87.4333,39.0003 -87.4356,39.0035 -87.4344,39.0057 -87.4353,39.0139 -87.434,39.0193 -87.432,39.0261 -87.4326,39.0284 -87.4355,39.0307 -87.4396,39.0335 -87.4413,39.0358 -87.4442,39.0385 -87.4488,39.0409 -87.4517,39.0436 -87.454,39.0464 -87.4563,39.0487 -87.4593,39.0506 -87.4622,39.0511 -87.4651,39.052 -87.4722,39.053 -87.4752,39.0535 -87.4781,39.0549 -87.4798,39.0581 -87.4797,39.0631 -87.4784,39.0676 -87.4789,39.0699 -87.4819,39.0708 -87.4854,39.0718 -87.4883,39.0728 -87.4919,39.0733 -87.4948,39.0738 -87.4984,39.0734 -87.5013,39.0743 -87.5055,39.0757 -87.5084,39.0771 -87.5095,39.0794 -87.51,39.0821 -87.5106,39.0844 -87.5105,39.0867 -87.5093,39.0889 -87.5092,39.0917 -87.5074,39.0939 -87.5067,39.0966 -87.5078,39.0993 -87.5101,39.103 -87.5136,39.1044 -87.5159,39.1081 -87.5176,39.1104 -87.5176,39.1126 -87.5157,39.1149 -87.5145,39.1171 -87.5138,39.1194 -87.5102,39.1239 -87.5077,39.1261 -87.5041,39.1274 -87.5005,39.1292 -87.4975,39.1305 -87.4915,39.1345 -87.4874,39.1339 -87.486,39.1389 -87.4836,39.1434 -87.4811,39.1456 -87.4781,39.1474 -87.4751,39.1501 -87.4709,39.1514 -87.4649,39.1531 -87.4613,39.1544 -87.4589,39.1566 -87.4576,39.1589 -87.4552,39.162 -87.4504,39.1629 -87.4474,39.1628 -87.4444,39.1632 -87.4415,39.1641 -87.4396,39.1668 -87.4383,39.1699 -87.4358,39.1744 -87.4352,39.1776 -87.4345,39.1798 -87.4332,39.183 -87.432,39.1857 -87.4313,39.1884 -87.4312,39.1934 -87.4317,39.1957 -87.4334,39.1984 -87.4333,39.2016 -87.432,39.2061 -87.4318,39.2147 -87.4329,39.217 -87.4371,39.2184 -87.44,39.2185 -87.443,39.219 -87.4466,39.2186 -87.4501,39.2204 -87.453,39.2214 -87.4541,39.2241 -87.4565,39.226 -87.4576,39.2292 -87.4604,39.2351 -87.4602,39.2419 -87.463,39.2474 -87.4623,39.2533 -87.4616,39.256 -87.4586,39.26 -87.4579,39.2636 -87.4661,39.2683 -87.4702,39.2692 -87.4731,39.2711 -87.4725,39.2734 -87.4676,39.2765 -87.464,39.2782 -87.4598,39.2818 -87.4561,39.2858 -87.4512,39.2907 -87.4481,39.2975 -87.4468,39.3011 -87.4449,39.3042 -87.4383,39.3068 -87.4329,39.3077 -87.4252,39.3084 -87.4192,39.3079 -87.4127,39.3078 -87.4078,39.3118 -87.4048,39.3145 -87.3994,39.3171 -87.3875,39.3165 -87.3858,39.4434 -87.3828,39.5753 -87.383,39.8533 -87.3826,40.1321 -87.3829,40.4492 -87.3844,40.4606 -87.3799,40.7114 -87.113,40.7097 -86.9492,40.7103 -86.9506,40.8106 -86.8333,40.8129 -86.8338,40.8842 -86.7784,40.8844 -86.7801,41.1404 -86.7826,41.2058 -86.7795,41.2085 -86.7764,41.2098 -86.7732,41.212 -86.7701,41.2133 -86.767,41.216 -86.7632,41.2182 -86.7601,41.2204 -86.757,41.2221 -86.7539,41.223 -86.7501,41.2247 -86.747,41.226 -86.7439,41.2268 -86.7396,41.229 -86.7309,41.232 -86.7272,41.2324 -86.7162,41.234 -86.71,41.2348 -86.7063,41.2356 -86.7033,41.236 -86.6989,41.2368 -86.6952,41.2377 -86.6891,41.2389 -86.686,41.2406 -86.6829,41.241 -86.6798,41.2419 -86.6682,41.2416 -86.6639,41.2424 -86.6602,41.2424 -86.6571,41.2441 -86.6534,41.2449 -86.6509,41.2476 -86.6433,41.2529 -86.6396,41.2546 -86.6358,41.2568 -86.6309,41.2585 -86.6271,41.2616 -86.6233,41.2638 -86.6164,41.2682 -86.6139,41.2704 -86.6107,41.2731 -86.607,41.2757 -86.605,41.2784 -86.6025,41.2802 -86.5999,41.2833 -86.5948,41.2887 -86.5929,41.2909 -86.5891,41.2949 -86.5858,41.3016 -86.5838,41.3052 -86.5824,41.3084 -86.5817,41.3106 -86.5804,41.3133 -86.5778,41.3164 -86.577,41.3214 -86.5763,41.3237 -86.5749,41.3277 -86.5736,41.3304 -86.5723,41.3327 -86.5697,41.3353 -86.5684,41.3376 -86.5659,41.3402 -86.5646,41.3425 -86.5632,41.3452 -86.5606,41.3497 -86.5586,41.3528 -86.5573,41.3559 -86.556,41.3586 -86.554,41.3609 -86.5521,41.3635 -86.5496,41.3658 -86.5452,41.3679 -86.5426,41.3701 -86.5395,41.3719 -86.5357,41.3741 -86.532,41.3758 -86.5282,41.3785 -86.5239,41.3802 -86.5201,41.3828 -86.5175,41.385 -86.5144,41.3868 -86.5112,41.3894 -86.5043,41.3943 -86.5024,41.397 -86.5004,41.3987 -86.4979,41.4014 -86.4948,41.4031 -86.4911,41.4035 -86.488,41.4039 -86.4849,41.4038 -86.4781,41.4046 -86.4714,41.4044 -86.4683,41.4048 -86.4634,41.4052 -86.4365,41.4046 -86.4322,41.404 -86.426,41.4048 -86.4052,41.4043 -86.4015,41.4047 -86.3984,41.4055 -86.385,41.4057 -86.3788,41.4055 -86.3764,41.4059 -86.3776,41.4918 -86.3531,41.4921 -86.3538,41.5048 -86.347,41.5047 -86.3473,41.5278 -86.3458,41.5328 -86.333,41.5466 -86.3332,41.6256 -86.3725,41.627 -86.3724,41.7281 -86.676,41.7289 -86.6932,41.7239 -86.6991,41.7222 -86.7122,41.7166 -86.726,41.7101 -86.7366,41.7066 -86.7435,41.7027 -86.7517,41.6974 -86.7618,41.6903 -86.7711,41.6874 -86.7823,41.6839 -86.7897,41.6824 -86.7923,41.6819 -86.8073,41.6754 -86.8235,41.6693 -86.8391,41.6628 -86.8535,41.6563 -86.8721,41.6498 -86.8834,41.6455 -86.8939,41.6421 -86.9077,41.6355 -86.9257,41.6291 -86.9407,41.6239 -86.9581,41.6183 -86.9767,41.6137 -86.9903,41.6094 -87.0077,41.606 -87.0262,41.6027 -87.0441,41.599 -87.0547,41.5969 -87.067,41.5949 -87.0811,41.5921 -87.0862,41.5911 -87.0979,41.5895 -87.1127,41.5884 -87.1268,41.5882 -87.144,41.5889 -87.1575,41.5896 -87.1722,41.5903 -87.1857,41.5919 -87.201,41.5944 -87.2186,41.5997 -87.2249,41.5948 -87.242,41.6001 -87.259,41.6058 -87.2576,41.6113 -87.2643,41.6127 -87.2693,41.6105 -87.2892,41.624 -87.2665,41.6423 -87.2775,41.6461 -87.2924,41.6386 -87.2901,41.6354 -87.2932,41.6332 -87.3028,41.6406 -87.3109,41.6375 -87.3428,41.6603 -87.3585,41.6714 -87.3706,41.6789 -87.3774,41.6836 -87.3765,41.6871 -87.3774,41.6907 -87.3782,41.694 -87.3792,41.7004 -87.3799,41.7042 -87.3815,41.7086 -87.3851,41.71 -87.3895,41.714 -87.3913,41.7156 -87.3935,41.7174 -87.395,41.7218 -87.3958,41.7251 -87.4007,41.7252 -87.4044,41.7257 -87.4091,41.7317 -87.4115,41.734 -87.4147,41.737 -87.4187,41.7409 -87.423,41.749 -87.4247,41.7522 -87.4282,41.7565 -87.4295,41.7633 -87.4291,41.7674 -87.4333,41.772 -87.438,41.778 -87.445,41.7882 -87.4462,41.79 -87.4523,41.7964 -87.46,41.8087 -87.4647,41.817 -87.4633,41.8229 -87.4625,41.8306 -87.4646,41.8438 -87.4644,41.851 -87.4594,41.8537 -87.4624,41.8583 -87.4648,41.861 -87.4698,41.8658 -87.4756,41.8698 -87.4798,41.8744 -87.4772,41.8794 -87.4796,41.8835 -87.4813,41.8867 -87.4837,41.8913 -87.4854,41.8968 -87.4864,41.9031 -87.4888,41.9086 -87.4912,41.9118 -87.4928,41.9196 -87.4884,41.9218 -87.4865,41.9249 -87.487,41.9281 -87.4907,41.9309 -87.4929,41.9327 -87.4953,41.9346 -87.4959,41.9366 -87.5009,41.9401 -87.5044,41.9439 -87.5043,41.9515 -87.5048,41.9547 -87.5041,41.9597 -87.5057,41.9647 -87.5062,41.9725 -87.5097,41.9745 -87.5103,41.9825 -87.5132,41.9903 -87.5131,41.9926 -87.513,41.9962 -87.5141,42.0035 -87.5175,42.014 -87.5179,42.0208 -87.5178,42.0258 -87.5208,42.0308 -87.5262,42.0354 -87.5292,42.0391 -87.5297,42.0423 -87.5395,42.0461 -87.5487,42.0512 -87.5529,42.0558 -87.5626,42.0623 -87.5698,42.0697 -87.5759,42.0756 -87.5812,42.0834 -87.5872,42.0926 -87.5944,42.1022 -87.6016,42.1123 -87.6075,42.1224 -87.6135,42.1316 -87.6182,42.1407 -87.6237,42.144 -87.6279,42.1468 -87.6346,42.1537 -87.6382,42.1583 -87.6411,42.1642 -87.6478,42.172 -87.6525,42.1789 -87.6567,42.1848 -87.6597,42.1908 -87.6602,42.1967 -87.6631,42.2022 -87.6643,42.2049 -87.6678,42.2132 -87.6701,42.2218 -87.6718,42.2282 -87.6729,42.2346 -87.6752,42.2419 -87.6787,42.2506 -87.6785,42.2583 -87.679,42.2646 -87.6807,42.271 -87.6824,42.276 -87.6842,42.2802 -87.6822,42.2856 -87.6809,42.2878 -87.6777,42.2923 -87.6764,42.2969 -87.6768,42.3028 -87.6786,42.3078 -87.6783,42.3192 -87.6739,42.3214 -87.6714,42.3232 -87.6694,42.3259 -87.6663,42.329 -87.663,42.3344 -87.661,42.3398 -87.6597,42.3457 -87.657,42.353 -87.655,42.3593 -87.6542,42.367 -87.6547,42.3716 -87.6557,42.3793 -87.6575,42.3834 -87.6536,42.3893 -87.6516,42.3952 -87.6509,42.3988 -87.6508,42.4047 -87.6499,42.4133 -87.6479,42.4215 -87.6463,42.4328 -87.6449,42.4419 -87.6443,42.45 -87.6439,42.4545 -87.6427,42.4567 -87.6426,42.4608 -87.643,42.4658 -87.6454,42.4731 -87.6488,42.485 -87.6517,42.4946 -87.654,42.5028 -87.6531,42.5128 -87.6503,42.5259 -87.6495,42.5341 -87.6493,42.5423 -87.6491,42.5477 -87.6521,42.5532 -87.6526,42.5569 -87.6538,42.561 -87.6543,42.566 -87.6554,42.5719 -87.6547,42.5764 -87.6545,42.5828 -87.6531,42.5878 -87.6504,42.5959 -87.647,42.6086 -87.6424,42.6185 -87.6391,42.6271 -87.6377,42.6344 -87.6349,42.643 -87.6323,42.6484 -87.6271,42.6556 -87.6239,42.6628 -87.6212,42.6683 -87.6198,42.6746 -87.6184,42.6828 -87.6182,42.6882 -87.6188,42.6919 -87.6198,42.6996 -87.6209,42.7074 -87.6207,42.7124 -87.6174,42.7205 -87.6116,42.7277 -87.607,42.7363 -87.6037,42.7435 -87.6049,42.7467 -87.6073,42.7513 -87.6141,42.7541 -87.6252,42.7588 -87.6338,42.7639 -87.6418,42.7695 -87.6491,42.7778 -87.6551,42.7865 -87.6611,42.797 -87.6659,42.8057 -87.6672,42.8082 -87.6695,42.8126 -87.6738,42.8176 -87.6774,42.8231 -87.6804,42.8259 -87.684,42.8323 -87.6851,42.8387 -87.6874,42.8469 -87.6877,42.8615 -87.687,42.8655 -87.6863,42.8687 -87.6856,42.8728 -87.6854,42.8787 -87.6859,42.8833 -87.6871,42.8883 -87.6882,42.8947 -87.6874,42.901 -87.6841,42.906 -87.6833,42.9128 -87.6826,42.9169 -87.6831,42.9237 -87.6835,42.9305 -87.6866,42.9351 -87.6889,42.9406 -87.6932,42.9443 -87.6994,42.948 -87.7062,42.9527 -87.7111,42.9549 -87.7142,42.9564 -87.7189,42.9629 -87.7234,42.9656 -87.7265,42.9699 -87.7288,42.9757 -87.7318,42.9821 -87.7349,42.9858 -87.7373,42.9881 -87.7391,42.9917 -87.7396,42.9981 -87.7376,43.0013 -87.7337,43.0071 -87.726,43.0161 -87.7157,43.0251 -87.71,43.0318 -87.7092,43.0359 -87.7085,43.0418 -87.709,43.0464 -87.7094,43.0488 -87.7101,43.0523 -87.7131,43.0578 -87.7174,43.0624 -87.7217,43.0666 -87.7235,43.0702 -87.7246,43.0752 -87.7276,43.0798 -87.7301,43.083 -87.7338,43.0858 -87.7375,43.089 -87.7399,43.0932 -87.7398,43.0968 -87.7391,43.1013 -87.7358,43.1068 -87.7326,43.1108 -87.7274,43.1167 -87.7248,43.1221 -87.7234,43.1271 -87.7233,43.1312 -87.7238,43.1371 -87.7237,43.1421 -87.7254,43.1485 -87.7278,43.1535 -87.7315,43.1568 -87.7345,43.16 -87.737,43.1627 -87.7369,43.1659 -87.7375,43.1691 -87.7359,43.1731 -87.7379,43.1773 -87.7385,43.18 -87.7403,43.1842 -87.7433,43.1892 -87.745,43.1947 -87.7468,43.1993 -87.748,43.2038 -87.7478,43.2093 -87.7483,43.2166 -87.7481,43.2243 -87.7473,43.2325 -87.7459,43.2402 -87.7425,43.2483 -87.7399,43.2538 -87.7379,43.2597 -87.7359,43.2651 -87.7311,43.2727 -87.7302,43.2896 -87.7268,43.3009 -87.7253,43.3118 -87.7225,43.3245 -87.7184,43.3381 -87.7157,43.3431 -87.7092,43.354 -87.7027,43.3612 -87.695,43.3688 -87.6852,43.3805 -87.6723,43.394 -87.6625,43.4084 -87.6501,43.4247 -87.6427,43.4428 -87.6385,43.4596 -87.6357,43.4714 -87.6339,43.4914 -87.633,43.5046 -87.6332,43.5124 -87.6333,43.5164 -87.6337,43.5255 -87.6276,43.5427 -87.6236,43.5504 -87.619,43.5576 -87.6112,43.5653 -87.6027,43.5761 -87.5923,43.5869 -87.5767,43.6035 -87.5676,43.6134 -87.5578,43.6247 -87.5552,43.6301 -87.5499,43.6391 -87.549,43.6464 -87.5474,43.66 -87.5482,43.6778 -87.5479,43.6906 -87.5494,43.7042 -87.5467,43.7115 -87.5453,43.7169 -87.5439,43.7233 -87.5418,43.7292 -87.5411,43.7324 -87.5428,43.7379 -87.5447,43.7402 -87.5484,43.7434 -87.5582,43.7545 -87.563,43.7668 -87.5672,43.7751 -87.5743,43.7957 -87.5725,43.8139 -87.5698,43.822 -87.5702,43.8298 -87.5707,43.8343 -87.5737,43.8417 -87.5761,43.8485 -87.5746,43.8563 -87.5733,43.8597 -87.5712,43.8653 -87.5672,43.873 -87.5631,43.8834 -87.5615,43.898 -87.56,43.9048 -87.5593,43.9075 -87.5561,43.9098 -87.5436,43.9246 -87.5402,43.9341 -87.538,43.9446 -87.5345,43.9555 -87.5303,43.9695 -87.5242,43.9868 -87.5195,43.9954 -87.5148,44.0035 -87.5115,44.0089 -87.5062,44.0148 -87.5016,44.022 -87.4995,44.0274 -87.5006,44.0352 -87.4985,44.0402 -87.4964,44.047 -87.4969,44.0534 -87.4935,44.0602 -87.4915,44.0638 -87.4793,44.07 -87.4741,44.074 -87.4662,44.0808 -87.4617,44.083 -87.4521,44.0865 -87.4424,44.0895 -87.4309,44.093 -87.4167,44.0969 -87.4057,44.1027 -87.3947,44.1089 -87.3875,44.1152 -87.3816,44.1215 -87.3744,44.1291 -87.3697,44.1363 -87.3645,44.1417 -87.3603,44.154 -87.3575,44.1603 -87.3566,44.1708 -87.357,44.1799 -87.3574,44.1858 -87.3603,44.1964 -87.362,44.2041 -87.3649,44.2137 -87.3678,44.2224 -87.3714,44.2307 -87.3769,44.2408 -87.3817,44.25 -87.3847,44.2569 -87.3877,44.266 -87.3881,44.2743 -87.3879,44.2806 -87.3857,44.2893 -87.3846,44.2938 -87.3835,44.2984 -87.3789,44.3047 -87.3754,44.3142 -87.3719,44.3233 -87.3692,44.3282 -87.3677,44.3378 -87.3648,44.3478 -87.3639,44.3578 -87.3624,44.3637 -87.3615,44.3742 -87.3599,44.3846 -87.3559,44.3919 -87.3512,44.3987 -87.3484,44.405 -87.3469,44.4132 -87.3468,44.4182 -87.3383,44.4441 -87.3262,44.4626 -87.3257,44.4817 -87.3248,44.4908 -87.3206,44.4999 -87.3159,44.5094 -87.3092,44.5175 -87.3052,44.5238 -87.2984,44.5365 -87.2935,44.5483 -87.2895,44.556 -87.2872,44.566 -87.2845,44.5714 -87.2819,44.5741 -87.276,44.5781 -87.2708,44.5799 -87.2655,44.5848 -87.2589,44.5916 -87.2517,44.596 -87.2431,44.6027 -87.2371,44.6113 -87.2264,44.6248 -87.2202,44.6429 -87.2186,44.6475 -87.2145,44.6547 -87.2064,44.6617 -87.1999,44.6686 -87.1945,44.6781 -87.1917,44.6849 -87.1912,44.6953 -87.1883,44.7017 -87.186,44.7066 -87.1795,44.7151 -87.1767,44.7187 -87.1739,44.7242 -87.1691,44.7279 -87.1657,44.7338 -87.1649,44.7388 -87.1651,44.7418 -87.1645,44.7498 -87.1638,44.7534 -87.1611,44.7579 -87.1616,44.7607 -87.1641,44.7625 -87.1679,44.7644 -87.1743,44.7664 -87.1819,44.7706 -87.1953,44.7749 -87.2029,44.7773 -87.2125,44.7802 -87.2225,44.7877 -87.2275,44.7919 -87.2331,44.7983 -87.24,44.8044 -87.245,44.8104 -87.2506,44.8155 -87.2562,44.8224 -87.2605,44.828 -87.268,44.8363 -87.2699,44.8391 -87.2743,44.841 -87.2775,44.841 -87.2814,44.8411 -87.2846,44.8407 -87.2904,44.8412 -87.2851,44.8475 -87.2818,44.8489 -87.2721,44.8487 -87.2676,44.8505 -87.2668,44.8541 -87.2687,44.855 -87.2726,44.856 -87.2751,44.8561 -87.2777,44.8565 -87.2809,44.8571 -87.2841,44.8562 -87.2881,44.8549 -87.2913,44.854 -87.3005,44.8473 -87.3058,44.8424 -87.3124,44.8365 -87.3177,44.8334 -87.3235,44.8317 -87.3261,44.8317 -87.3281,44.8308 -87.3314,44.8286 -87.3327,44.8259 -87.3329,44.8213 -87.3349,44.8163 -87.3369,44.815 -87.3389,44.8141 -87.3407,44.816 -87.3426,44.8174 -87.3445,44.8206 -87.3463,44.8234 -87.3488,44.8257 -87.3513,44.8275 -87.3597,44.8295 -87.3616,44.8281 -87.3637,44.8241 -87.3625,44.8199 -87.3613,44.8181 -87.3633,44.8158 -87.3672,44.8154 -87.3729,44.8164 -87.3755,44.8174 -87.378,44.8179 -87.3794,44.8156 -87.3854,44.8075 -87.3862,44.8029 -87.3896,44.7966 -87.3929,44.7921 -87.3956,44.7903 -87.4001,44.789 -87.402,44.7904 -87.4032,44.7932 -87.4018,44.7959 -87.4044,44.7955 -87.4077,44.7946 -87.4109,44.7928 -87.4148,44.7933 -87.4147,44.7956 -87.4146,44.7983 -87.412,44.802 -87.4087,44.8037 -87.4035,44.8064 -87.3936,44.814 -87.3955,44.8163 -87.3999,44.8173 -87.4051,44.8169 -87.4077,44.8165 -87.4174,44.8157 -87.429,44.8141 -87.4348,44.8123 -87.4394,44.8092 -87.4447,44.8056 -87.4531,44.8035 -87.4616,44.799 -87.4669,44.7945 -87.4788,44.7828 -87.4874,44.7743 -87.4947,44.7671 -87.5086,44.7536 -87.5113,44.7468 -87.5167,44.7377 -87.5214,44.7314 -87.5312,44.7238 -87.5425,44.7111 -87.553,44.7026 -87.5596,44.6958 -87.5663,44.6868 -87.5657,44.6827 -87.5607,44.6803 -87.5581,44.6794 -87.5588,44.6767 -87.5634,44.6726 -87.5661,44.6681 -87.569,44.6576 -87.5769,44.6482 -87.5805,44.6433 -87.5829,44.64 -87.5865,44.6356 -87.5961,44.6283 -87.5994,44.6234 -87.6054,44.6152 -87.6126,44.6089 -87.6204,44.6068 -87.6281,44.6069 -87.6326,44.6051 -87.6391,44.6038 -87.6449,44.6025 -87.6538,44.6031 -87.6583,44.6036 -87.6628,44.6027 -87.6674,44.6014 -87.67,44.6001 -87.6758,44.597 -87.6843,44.5911 -87.6888,44.5903 -87.6927,44.5894 -87.7049,44.5877 -87.7159,44.5829 -87.7199,44.5784 -87.7239,44.5734 -87.7285,44.5671 -87.7325,44.5621 -87.7364,44.5571 -87.7436,44.5522 -87.7468,44.5508 -87.7514,44.5495 -87.7565,44.5478 -87.7605,44.5442 -87.7624,44.5424 -87.7586,44.5405 -87.7529,44.5386 -87.7511,44.5354 -87.7524,44.5322 -87.7551,44.5286 -87.7577,44.5263 -87.7649,44.5191 -87.7715,44.5092 -87.7736,44.5051 -87.7768,44.5033 -87.7826,44.502 -87.7871,44.5016 -87.7916,44.5017 -87.7999,44.5008 -87.8134,44.5015 -87.8268,44.5039 -87.8363,44.5058 -87.8421,44.5082 -87.8471,44.5119 -87.8553,44.517 -87.8598,44.5161 -87.8631,44.5152 -87.8657,44.5125 -87.8688,44.5139 -87.8707,44.5181 -87.8706,44.5203 -87.8731,44.5231 -87.8757,44.5245 -87.8763,44.5268 -87.8737,44.5277 -87.8704,44.529 -87.8679,44.5299 -87.8672,44.5326 -87.8735,44.535 -87.8786,44.5359 -87.8837,44.5365 -87.8876,44.5374 -87.8862,44.542 -87.8791,44.5455 -87.8707,44.5477 -87.8642,44.5481 -87.8636,44.5504 -87.8686,44.5568 -87.8671,44.5641 -87.8631,44.5714 -87.8617,44.5773 -87.8609,44.5832 -87.8608,44.5864 -87.8595,44.5882 -87.8539,44.5808 -87.8521,44.5767 -87.8496,44.5739 -87.8439,44.5716 -87.8394,44.5693 -87.835,44.5656 -87.8332,44.5605 -87.8314,44.5569 -87.8281,44.5573 -87.8242,44.56 -87.8229,44.5618 -87.8259,44.57 -87.829,44.5746 -87.8335,44.5765 -87.8468,44.5826 -87.8506,44.5876 -87.8518,44.5913 -87.8542,44.5963 -87.8567,44.6014 -87.8604,44.6064 -87.8577,44.6114 -87.8563,44.6169 -87.8549,44.6237 -87.8529,44.6273 -87.8502,44.631 -87.8476,44.6346 -87.8455,44.6396 -87.843,44.6391 -87.8411,44.6382 -87.8392,44.6372 -87.8373,44.6358 -87.8354,44.6335 -87.8336,44.6303 -87.8317,44.6271 -87.8305,44.6244 -87.8254,44.6238 -87.8239,44.6293 -87.8245,44.6325 -87.827,44.6366 -87.8294,44.6421 -87.8318,44.6452 -87.8338,44.6481 -87.8337,44.6545 -87.8329,44.6586 -87.8322,44.6622 -87.834,44.6682 -87.8384,44.6705 -87.839,44.6733 -87.8364,44.6746 -87.8332,44.6764 -87.8331,44.6796 -87.8336,44.6842 -87.8329,44.6864 -87.8297,44.6891 -87.8264,44.69 -87.8225,44.6932 -87.8166,44.6967 -87.8133,44.7017 -87.8107,44.7049 -87.8067,44.7112 -87.8021,44.7144 -87.7982,44.7162 -87.7917,44.7193 -87.7865,44.7201 -87.7839,44.7219 -87.7838,44.726 -87.7851,44.7283 -87.7856,44.7311 -87.783,44.7338 -87.7757,44.7428 -87.7691,44.751 -87.7624,44.7618 -87.7583,44.7732 -87.7536,44.78 -87.7477,44.7858 -87.7392,44.7917 -87.7242,44.7993 -87.7093,44.8041 -87.7066,44.8073 -87.7072,44.8105 -87.7064,44.815 -87.7051,44.8186 -87.7017,44.8232 -87.699,44.8291 -87.6918,44.8358 -87.684,44.838 -87.6801,44.838 -87.6781,44.8411 -87.6793,44.8434 -87.6793,44.8457 -87.676,44.8484 -87.6727,44.8525 -87.6739,44.8557 -87.6776,44.8603 -87.6782,44.8626 -87.6801,44.8672 -87.6825,44.8718 -87.6862,44.8809 -87.6867,44.8837 -87.688,44.886 -87.6885,44.8896 -87.6871,44.8933 -87.6845,44.896 -87.6819,44.8982 -87.6786,44.9 -87.672,44.9041 -87.6668,44.9086 -87.6648,44.9099 -87.6608,44.9135 -87.6563,44.9157 -87.6517,44.9184 -87.6484,44.9202 -87.6426,44.9215 -87.6336,44.9205 -87.6161,44.9225 -87.6044,44.926 -87.5985,44.9271 -87.5902,44.9286 -87.5779,44.9307 -87.561,44.9341 -87.5403,44.938 -87.5299,44.9383 -87.5196,44.9381 -87.5151,44.9376 -87.5126,44.9371 -87.5099,44.9385 -87.5073,44.9402 -87.5073,44.9425 -87.5123,44.9467 -87.5161,44.95 -87.5186,44.9523 -87.5166,44.9536 -87.5121,44.9531 -87.5064,44.9512 -87.5019,44.9488 -87.4987,44.9479 -87.4943,44.946 -87.4891,44.9468 -87.4865,44.9473 -87.4813,44.949 -87.4761,44.9503 -87.4702,44.953 -87.4688,44.9552 -87.4675,44.958 -87.4668,44.9607 -87.466,44.963 -87.4653,44.9666 -87.4659,44.9698 -87.4657,44.9739 -87.4663,44.978 -87.468,44.984 -87.4678,44.994 -87.4683,44.9995 -87.4681,45.0055 -87.4672,45.015 -87.4657,45.0228 -87.4629,45.0287 -87.4595,45.0359 -87.4581,45.04 -87.4547,45.045 -87.4513,45.0495 -87.45,45.0513 -87.4461,45.0531 -87.4415,45.0539 -87.4383,45.0534 -87.4298,45.0574 -87.4299,45.0627 -87.4314,45.0648 -87.4337,45.0656 -87.4367,45.0667 -87.4406,45.0649 -87.4445,45.0645 -87.4528,45.0655 -87.4554,45.0656 -87.4663,45.068 -87.476,45.0681 -87.4889,45.071 -87.494,45.0716 -87.5011,45.074 -87.5056,45.0745 -87.512,45.075 -87.5132,45.0787 -87.5131,45.0837 -87.5143,45.0869 -87.5175,45.0893 -87.52,45.0916 -87.5225,45.0948 -87.5248,45.1026 -87.5248,45.1049 -87.5196,45.1066 -87.5183,45.1045 -87.5145,45.1029 -87.5126,45.1011 -87.5108,45.0974 -87.5051,45.0905 -87.5007,45.0864 -87.4931,45.0825 -87.488,45.0806 -87.4655,45.0757 -87.4546,45.0729 -87.4462,45.0727 -87.4397,45.0745 -87.4389,45.079 -87.442,45.0832 -87.4438,45.0882 -87.4467,45.0988 -87.4473,45.1029 -87.4446,45.107 -87.4405,45.1115 -87.4358,45.1187 -87.4337,45.1242 -87.431,45.1287 -87.4263,45.1337 -87.4217,45.1377 -87.4117,45.1476 -87.4084,45.1508 -87.4031,45.1553 -87.3997,45.1584 -87.3912,45.1633 -87.3819,45.17 -87.378,45.1727 -87.3759,45.1754 -87.3746,45.1786 -87.3639,45.1903 -87.3559,45.1966 -87.3526,45.1997 -87.3393,45.211 -87.3286,45.2209 -87.3165,45.2353 -87.3072,45.2448 -87.2971,45.256 -87.2892,45.2605 -87.2846,45.2636 -87.2812,45.2686 -87.2792,45.2704 -87.279,45.2768 -87.2755,45.2836 -87.2727,45.2904 -87.2673,45.2962 -87.2607,45.3007 -87.2554,45.3034 -87.2534,45.3056 -87.2533,45.3111 -87.2545,45.3129 -87.253,45.3198 -87.2496,45.3229 -87.247,45.3238 -87.2424,45.3251 -87.2391,45.3278 -87.239,45.3328 -87.2369,45.3374 -87.2308,45.3432 -87.2235,45.3481 -87.2155,45.3548 -87.2088,45.3611 -87.2054,45.3679 -87.2,45.3742 -87.1939,45.3815 -87.1873,45.385 -87.1827,45.3868 -87.1794,45.3899 -87.176,45.3944 -87.1739,45.399 -87.1737,45.4035 -87.1756,45.4072 -87.1792,45.4137 -87.1791,45.4178 -87.1757,45.4219 -87.1709,45.4291 -87.1643,45.4326 -87.161,45.4353 -87.1596,45.4381 -87.1576,45.4408 -87.1516,45.4439 -87.1469,45.4488 -87.1436,45.4515 -87.1422,45.4547 -87.1414,45.4583 -87.1406,45.4629 -87.1343,45.4751 -87.1274,45.4874 -87.1191,45.5023 -87.1108,45.5164 -87.1078,45.5208 -87.1712,45.5201 -87.1717,45.8659 -87.2115,45.867 -87.212,45.9531 -87.4608,45.9554 -87.4574,46.2127 -87.959,46.2146 -87.9612,46.3901 -88.5188,46.3887 -88.8346,46.3843 -88.8345,46.3009 -89.2064,46.3031 -89.2093,46.4718 -89.5815,46.4762 -89.5838,46.5615 -89.7041,46.5654 -89.705,46.7346 -89.7305,46.7371 -89.7347,46.7339 -89.746,46.7253 -89.7691,46.7083 -89.7862,46.6958 -89.808,46.6857 -89.8265,46.6737 -89.8344,46.6677 -89.8495,46.6548 -89.8659,46.6446 -89.8864,46.6372 -89.9022,46.6321 -89.9168,46.6288 -89.93,46.627 -89.9584,46.6222 -89.9742,46.618 -89.9927,46.6138 -90.0191,46.6091 -90.0488,46.6021 -90.0698,46.5956 -90.0916,46.5886 -90.1041,46.5858 -90.1113,46.5825 -90.1179,46.5793 -90.1245,46.5769 -90.1324,46.575 -90.1377,46.5746 -90.1483,46.5759 -90.1569,46.5795 -90.1589,46.5804 -90.1629,46.5804 -90.1675,46.5799 -90.1714,46.578 -90.1787,46.5748 -90.1892,46.5701 -90.2082,46.5595 -90.224,46.5511 -90.2436,46.5414 -90.2553,46.5346 -90.2581,46.533 -90.2659,46.5288 -90.2699,46.5279 -90.2738,46.5269 -90.2778,46.5265 -90.2857,46.5273 -90.291,46.5291 -90.2983,46.5314 -90.3096,46.5354 -90.3189,46.5395 -90.3249,46.5431 -90.3303,46.5467 -90.3343,46.5499 -90.3389,46.5526 -90.3423,46.554 -90.3476,46.5548 -90.3502,46.5544 -90.3548,46.5539 -90.3575,46.5539 -90.3607,46.5529 -90.3654,46.552 -90.3713,46.5524 -90.3879,46.5564 -90.3978,46.5563 -90.4117,46.5603 -90.4317,46.5684 -90.4497,46.5784 -90.4631,46.5865 -90.4767,46.5951 -90.4824,46.5987 -90.4878,46.5996 -90.4923,46.5973 -90.4956,46.5963 -90.5002,46.5949 -90.5029,46.5963 -90.5036,46.599 -90.503,46.6022 -90.5017,46.6059 -90.5005,46.6091 -90.5012,46.6114 -90.5105,46.6178 -90.5152,46.6205 -90.5219,46.6236 -90.5393,46.6349 -90.552,46.644 -90.5728,46.6562 -90.5868,46.6639 -90.5897,46.6635 -90.5874,46.6593 -90.5827,46.6552 -90.5773,46.6525 -90.5699,46.6457 -90.5586,46.6394 -90.5519,46.6348 -90.5472,46.6326 -90.5498,46.6298 -90.5544,46.6302 -90.5591,46.6306 -90.5664,46.6319 -90.5717,46.6333 -90.577,46.6341 -90.5876,46.6345 -90.5949,46.6344 -90.6001,46.6326 -90.6054,46.6293 -90.604,46.6261 -90.6,46.6257 -90.5973,46.6262 -90.5921,46.6262 -90.5808,46.6254 -90.5709,46.6255 -90.5596,46.6242 -90.547,46.6229 -90.5423,46.6207 -90.539,46.6198 -90.5357,46.6162 -90.5389,46.6143 -90.5416,46.6138 -90.5449,46.6129 -90.5468,46.6124 -90.5501,46.6124 -90.5541,46.6137 -90.5608,46.6146 -90.5694,46.6182 -90.5754,46.6181 -90.58,46.6181 -90.5873,46.618 -90.5965,46.6142 -90.5991,46.6128 -90.6056,46.6077 -90.6108,46.604 -90.6128,46.6026 -90.6173,46.5975 -90.6206,46.5948 -90.6245,46.5911 -90.629,46.5892 -90.6343,46.5878 -90.6422,46.5849 -90.6534,46.583 -90.6692,46.5801 -90.6876,46.5762 -90.71,46.5701 -90.7211,46.5654 -90.7283,46.5621 -90.7361,46.5579 -90.7453,46.5532 -90.7532,46.5504 -90.7578,46.5494 -90.7624,46.5489 -90.767,46.5498 -90.771,46.5506 -90.7733,46.5515 -90.7757,46.5524 -90.7784,46.5547 -90.7797,46.5574 -90.7805,46.5602 -90.7799,46.5638 -90.7753,46.5676 -90.7708,46.5713 -90.7618,46.5819 -90.7586,46.5888 -90.7555,46.5967 -90.753,46.6045 -90.7518,46.6114 -90.7505,46.6137 -90.7486,46.616 -90.7434,46.6211 -90.7389,46.6234 -90.731,46.6295 -90.7232,46.6346 -90.7141,46.6402 -90.7056,46.6467 -90.701,46.6509 -90.6978,46.6555 -90.6966,46.6605 -90.6954,46.666 -90.6949,46.6734 -90.697,46.6784 -90.699,46.6807 -90.7031,46.6862 -90.7071,46.6898 -90.7105,46.6939 -90.7166,46.698 -90.72,46.7043 -90.7221,46.7084 -90.7229,46.7126 -90.7216,46.7158 -90.7203,46.7186 -90.7144,46.7214 -90.7072,46.7233 -90.7026,46.7261 -90.6994,46.7293 -90.6974,46.733 -90.6962,46.7358 -90.6969,46.7381 -90.6989,46.7412 -90.6997,46.7458 -90.6964,46.7477 -90.6911,46.7491 -90.6872,46.7501 -90.6832,46.751 -90.6786,46.7525 -90.6753,46.7539 -90.6728,46.7558 -90.6688,46.759 -90.6662,46.7627 -90.6624,46.7678 -90.6584,46.771 -90.6539,46.7747 -90.646,46.7808 -90.6415,46.7845 -90.635,46.7905 -90.6304,46.796 -90.6292,46.7993 -90.6286,46.8039 -90.6286,46.8062 -90.6281,46.8121 -90.6275,46.8153 -90.6262,46.8177 -90.623,46.8218 -90.6197,46.8255 -90.6171,46.8297 -90.6159,46.8343 -90.6186,46.837 -90.6206,46.8384 -90.6247,46.8429 -90.6254,46.847 -90.6242,46.8489 -90.6222,46.8494 -90.6175,46.8499 -90.6136,46.8499 -90.6096,46.849 -90.6049,46.8481 -90.6003,46.8491 -90.5964,46.8533 -90.5971,46.8569 -90.5998,46.8601 -90.6099,46.8665 -90.6139,46.8682 -90.6193,46.871 -90.6247,46.8755 -90.6254,46.8787 -90.6275,46.8856 -90.6296,46.8911 -90.635,46.8965 -90.6418,46.9001 -90.6458,46.9015 -90.6504,46.9 -90.655,46.8995 -90.6616,46.8972 -90.6696,46.8971 -90.6763,46.8993 -90.6758,46.9062 -90.6752,46.9104 -90.6739,46.9145 -90.674,46.9195 -90.6754,46.9214 -90.6867,46.9222 -90.6954,46.9244 -90.704,46.9248 -90.71,46.9256 -90.7166,46.9237 -90.7186,46.9228 -90.7219,46.9191 -90.7225,46.9163 -90.7238,46.9145 -90.727,46.9103 -90.7296,46.9089 -90.7336,46.9079 -90.7376,46.9084 -90.7442,46.9083 -90.7502,46.9059 -90.758,46.9017 -90.7613,46.8999 -90.7679,46.897 -90.7732,46.8965 -90.7772,46.8974 -90.7806,46.8987 -90.7859,46.9001 -90.7906,46.9028 -90.7973,46.9041 -90.8013,46.9054 -90.8046,46.9058 -90.8093,46.9053 -90.8112,46.9044 -90.8165,46.903 -90.8185,46.9011 -90.8204,46.8979 -90.8256,46.8923 -90.8295,46.8886 -90.8314,46.8876 -90.8374,46.8862 -90.8427,46.8852 -90.85,46.8847 -90.8533,46.8837 -90.8598,46.8805 -90.8631,46.8777 -90.867,46.8753 -90.871,46.8739 -90.8729,46.873 -90.8769,46.8706 -90.8801,46.8674 -90.8821,46.8651 -90.8833,46.8609 -90.8845,46.8568 -90.8877,46.8521 -90.8936,46.8484 -90.9002,46.8465 -90.9029,46.846 -90.9068,46.846 -90.9108,46.8455 -90.9155,46.8468 -90.9228,46.8467 -90.9261,46.8453 -90.9313,46.8425 -90.9345,46.8383 -90.9377,46.8332 -90.9416,46.8286 -90.9455,46.8249 -90.9501,46.823 -90.956,46.822 -90.9613,46.8205 -90.9673,46.82 -90.9732,46.82 -90.9773,46.8222 -90.9767,46.8268 -90.9768,46.8314 -90.9776,46.835 -90.9816,46.8359 -90.9869,46.8354 -90.9888,46.834 -90.9894,46.8289 -90.9893,46.8248 -90.9905,46.8225 -90.9998,46.8196 -91.0024,46.8191 -91.0076,46.8154 -91.0155,46.813 -91.0235,46.8134 -91.0328,46.8146 -91.0408,46.8173 -91.0442,46.8191 -91.0456,46.8218 -91.0457,46.8246 -91.0431,46.8278 -91.0372,46.8325 -91.0301,46.839 -91.0269,46.8436 -91.0257,46.8469 -91.0277,46.8482 -91.0304,46.8486 -91.0323,46.8481 -91.0343,46.8472 -91.0395,46.8439 -91.0493,46.8383 -91.0559,46.8346 -91.0605,46.8331 -91.0651,46.8312 -91.0716,46.8284 -91.0763,46.8274 -91.0834,46.8227 -91.0886,46.8172 -91.0951,46.8111 -91.1035,46.805 -91.1094,46.8022 -91.1121,46.8013 -91.1193,46.7998 -91.1252,46.7979 -91.1365,46.7964 -91.1516,46.7929 -91.1628,46.79 -91.172,46.7853 -91.1889,46.7759 -91.1973,46.7671 -91.2045,46.7633 -91.2091,46.7614 -91.2144,46.7604 -91.219,46.7585 -91.2215,46.7562 -91.2235,46.7548 -91.2237,46.7525 -91.224,46.7484 -91.2252,46.7461 -91.2272,46.7451 -91.2318,46.7441 -91.2364,46.7436 -91.2391,46.744 -91.2411,46.7449 -91.2405,46.7477 -91.2373,46.75 -91.2387,46.7528 -91.2427,46.7536 -91.2487,46.7545 -91.2546,46.7521 -91.2605,46.7506 -91.2723,46.7459 -91.2854,46.7411 -91.3031,46.7363 -91.3281,46.7304 -91.3485,46.7251 -91.3637,46.7235 -91.3769,46.7228 -91.3909,46.7231 -91.4001,46.7229 -91.4028,46.7228 -91.4186,46.7203 -91.4252,46.7184 -91.4357,46.7164 -91.4468,46.7126 -91.462,46.7091 -91.479,46.7043 -91.5014,46.6984 -91.5177,46.6922 -91.5341,46.6869 -91.5473,46.6853 -91.5598,46.6837 -91.5703,46.6817 -91.5855,46.6787 -91.5979,46.6744 -91.6142,46.6668 -91.6227,46.6639 -91.6319,46.6619 -91.6457,46.6598 -91.6688,46.6567 -91.6827,46.656 -91.6939,46.6549 -91.6971,46.6525 -91.6997,46.6507 -91.7029,46.6492 -91.7062,46.6487 -91.7083,46.6501 -91.7111,46.6541 -91.7131,46.6564 -91.7151,46.6568 -91.7178,46.6568 -91.725,46.6562 -91.7375,46.6546 -91.7639,46.6509 -91.7849,46.646 -91.7961,46.6458 -91.8029,46.6489 -91.8117,46.6542 -91.8225,46.66 -91.8326,46.6648 -91.8393,46.6665 -91.8433,46.6688 -91.8473,46.6692 -91.8499,46.6677 -91.8498,46.665 -91.8484,46.6627 -91.8436,46.6596 -91.8389,46.6569 -91.8321,46.652 -91.8293,46.6475 -91.8352,46.6469 -91.8425,46.6472 -91.8479,46.6485 -91.8512,46.6498 -91.8527,46.653 -91.8542,46.658 -91.8569,46.6603 -91.8596,46.6602 -91.8622,46.6606 -91.8664,46.666 -91.8704,46.6655 -91.8751,46.6677 -91.8867,46.6767 -91.9024,46.6902 -91.9215,46.7049 -91.9312,46.7144 -91.9337,46.7116 -91.9383,46.7097 -91.941,46.7101 -91.9443,46.7109 -91.9469,46.7095 -91.9488,46.7067 -91.9553,46.7038 -91.9594,46.707 -91.9634,46.7069 -91.9685,46.7036 -91.9722,46.6966 -91.9774,46.6929 -91.9798,46.6882 -91.9816,46.6827 -91.9789,46.6818 -91.9781,46.6777 -91.9813,46.6754 -91.9846,46.6748 -91.9865,46.6734 -91.9884,46.6706 -91.9897,46.6688 -91.9929,46.6673 -91.9948,46.6641 -91.9988,46.6654 -92.0003,46.669 -92.0019,46.6759 -92.0039,46.6763 -92.0065,46.6753 -92.009,46.673 -92.0089,46.6689 -92.0077,46.6663 -92.0059,46.662 -91.9957,46.654 -91.9882,46.65 -91.9795,46.6474 -91.9761,46.6438 -91.9759,46.6397 -91.9812,46.6396 -91.9852,46.6409 -91.9872,46.6413 -91.9913,46.6435 -91.9966,46.6452 -92.0013,46.6465 -92.0067,46.6483 -92.0108,46.6505 -92.0129,46.655 -92.0144,46.6591 -92.0163,46.6577 -92.0182,46.6545 -92.0207,46.6517 -92.0219,46.6489 -92.0218,46.6461 -92.0211,46.6439 -92.0176,46.6398 -92.0215,46.6383 -92.0241,46.6378 -92.0306,46.6349 -92.0351,46.6316 -92.0382,46.6265 -92.0407,46.6224 -92.0439,46.6182 -92.0497,46.6148 -92.0562,46.6129 -92.0628,46.6123 -92.0694,46.6131 -92.0748,46.6134 -92.082,46.6128 -92.0859,46.6118 -92.0919,46.6126 -92.0966,46.6144 -92.1053,46.616 -92.1106,46.6164 -92.1145,46.6199 -92.1194,46.6213 -92.1275,46.6252 -92.1343,46.6248 -92.1502,46.6326 -92.1431,46.6345 -92.1366,46.6356 -92.1279,46.6348 -92.122,46.6359 -92.1173,46.6351 -92.1146,46.6328 -92.1106,46.6311 -92.1071,46.6275 -92.105,46.6257 -92.1017,46.6244 -92.0984,46.6249 -92.0931,46.6245 -92.0852,46.6252 -92.0752,46.6249 -92.0679,46.6241 -92.058,46.6248 -92.0528,46.6258 -92.0477,46.6266 -92.0496,46.6295 -92.0499,46.6364 -92.0474,46.641 -92.0415,46.6414 -92.0384,46.6453 -92.0411,46.648 -92.0446,46.6526 -92.0507,46.657 -92.0535,46.6602 -92.0538,46.6666 -92.0526,46.6703 -92.0501,46.6731 -92.0455,46.675 -92.0403,46.6761 -92.0356,46.6761 -92.0299,46.6808 -92.0307,46.684 -92.0302,46.6891 -92.025,46.6915 -92.0158,46.6931 -92.0065,46.6914 -92.0024,46.6901 -91.9997,46.6892 -91.9971,46.6895 -91.9951,46.6898 -91.9929,46.6905 -91.9913,46.6926 -91.9901,46.6945 -91.9882,46.6977 -91.9909,46.7004 -91.9904,46.7032 -91.9899,46.7078 -91.9854,46.7111 -91.9821,46.7125 -91.9782,46.7123 -91.9744,46.7122 -91.9737,46.7173 -91.9738,46.72 -91.9699,46.7215 -91.9673,46.7215 -91.9639,46.7216 -91.962,46.7219 -91.9588,46.7258 -91.9562,46.7263 -91.9542,46.7259 -91.9476,46.726 -91.945,46.7284 -91.9471,46.732 -91.9493,46.7361 -91.9494,46.7388 -91.9475,46.7416 -91.9463,46.7439 -91.945,46.7458 -91.9445,46.7486 -91.9426,46.7514 -91.9388,46.7551 -91.9356,46.7579 -91.9297,46.7608 -91.9231,46.7623 -91.9043,46.7723 -91.8978,46.7765 -91.8881,46.7836 -91.8758,46.7893 -91.866,46.7941 -91.8537,46.8026 -91.8398,46.8037 -91.8333,46.8066 -91.8229,46.8119 -91.8124,46.8153 -91.804,46.8205 -91.7943,46.8275 -91.7826,46.8346 -91.7741,46.8393 -91.7676,46.8427 -91.754,46.8498 -91.7442,46.8569 -91.7267,46.864 -91.7111,46.8716 -91.7011,46.8764 -91.6926,46.8793 -91.6854,46.8809 -91.679,46.8878 -91.675,46.8902 -91.6724,46.8907 -91.6684,46.8903 -91.6644,46.8895 -91.6571,46.8886 -91.6512,46.891 -91.6481,46.8931 -91.644,46.8958 -91.6375,46.8995 -91.6264,46.9052 -91.6225,46.9085 -91.6116,46.9179 -91.6006,46.9268 -91.5882,46.9339 -91.57,46.9461 -91.5583,46.9545 -91.5519,46.9606 -91.5493,46.9643 -91.5441,46.9681 -91.5369,46.971 -91.5297,46.9729 -91.5231,46.9753 -91.5178,46.9763 -91.5119,46.9796 -91.5093,46.9792 -91.5066,46.9783 -91.5046,46.9788 -91.5021,46.9825 -91.4989,46.989 -91.4923,46.99 -91.4877,46.991 -91.4837,46.9906 -91.4804,46.9916 -91.4765,46.9935 -91.4752,46.9967 -91.4787,47.0022 -91.4755,47.0059 -91.4717,47.0096 -91.4645,47.013 -91.4547,47.0191 -91.4488,47.0224 -91.4455,47.0243 -91.4337,47.0309 -91.4286,47.0356 -91.4241,47.0411 -91.4196,47.0458 -91.4157,47.0491 -91.4104,47.051 -91.4011,47.052 -91.3919,47.0549 -91.3841,47.0606 -91.3762,47.063 -91.3683,47.0663 -91.3597,47.0706 -91.3467,47.0809 -91.3389,47.0851 -91.3283,47.0871 -91.3157,47.091 -91.306,47.098 -91.3014,47.1022 -91.2936,47.1069 -91.2858,47.1153 -91.2793,47.1218 -91.2716,47.1293 -91.2651,47.1367 -91.2586,47.1428 -91.2501,47.147 -91.2382,47.1531 -91.2198,47.1621 -91.2172,47.1626 -91.212,47.1668 -91.2054,47.172 -91.2028,47.1748 -91.1996,47.1794 -91.1952,47.1859 -91.1912,47.1892 -91.1834,47.1939 -91.1676,47.2037 -91.1591,47.2103 -91.1486,47.2164 -91.1413,47.2183 -91.1347,47.2211 -91.1302,47.2249 -91.1309,47.2276 -91.1317,47.2304 -91.1291,47.2332 -91.1258,47.2351 -91.1218,47.2379 -91.1179,47.2411 -91.1023,47.2551 -91.0904,47.2608 -91.0786,47.2674 -91.0707,47.2721 -91.0628,47.2786 -91.0577,47.2855 -91.0525,47.292 -91.0453,47.2976 -91.0361,47.3033 -91.0301,47.3075 -91.0257,47.3154 -91.016,47.3293 -91.0055,47.3372 -90.9957,47.3451 -90.9865,47.3512 -90.9773,47.3596 -90.9662,47.3689 -90.9603,47.3736 -90.9537,47.3774 -90.9444,47.3811 -90.9305,47.3877 -90.9142,47.4045 -90.9023,47.411 -90.8818,47.4228 -90.8686,47.4271 -90.8585,47.4304 -90.8533,47.4341 -90.8487,47.4392 -90.8447,47.442 -90.8348,47.4477 -90.8038,47.4659 -90.7786,47.4809 -90.7608,47.4917 -90.7243,47.5113 -90.6998,47.5245 -90.6779,47.5357 -90.6679,47.5413 -90.6567,47.5483 -90.6401,47.5572 -90.6215,47.5675 -90.6042,47.5774 -90.5902,47.5835 -90.5756,47.59 -90.5556,47.5962 -90.5456,47.6027 -90.5289,47.6061 -90.5149,47.609 -90.5035,47.6132 -90.4982,47.6165 -90.4909,47.6211 -90.4856,47.6248 -90.4803,47.6281 -90.4769,47.6295 -90.4548,47.6334 -90.4475,47.6357 -90.4328,47.6405 -90.4215,47.6451 -90.4128,47.6484 -90.4021,47.6531 -90.3921,47.6573 -90.3874,47.6615 -90.3788,47.6657 -90.3694,47.6699 -90.3568,47.676 -90.3373,47.6798 -90.3166,47.6841 -90.2991,47.6861 -90.2904,47.6871 -90.2844,47.6908 -90.2797,47.6945 -90.2764,47.6968 -90.2717,47.6987 -90.269,47.6992 -90.263,47.6992 -90.2549,47.6979 -90.2334,47.7022 -90.2127,47.7069 -90.2019,47.7079 -90.1925,47.7075 -90.1824,47.7075 -90.1764,47.7085 -90.1724,47.7104 -90.1684,47.7136 -90.1651,47.7173 -90.1591,47.7219 -90.151,47.7243 -90.1396,47.7257 -90.1242,47.7286 -90.0939,47.7334 -90.0711,47.7376 -90.055,47.7418 -90.0463,47.7428 -90.0349,47.7438 -90.0268,47.7443 -90.0194,47.7471 -90.0141,47.7499 -90.0067,47.754 -89.9993,47.7559 -89.9913,47.7569 -89.9819,47.7592 -89.9738,47.7606 -89.9678,47.7625 -89.9429,47.7686 -89.9194,47.7747 -89.9107,47.7747 -89.9032,47.7743 -89.8959,47.7771 -89.8892,47.7817 -89.8858,47.7836 -89.8778,47.785 -89.8636,47.7869 -89.8468,47.7906 -89.8368,47.7966 -89.8328,47.7994 -89.8193,47.8041 -89.8059,47.8073 -89.7958,47.8083 -89.785,47.8148 -89.7804,47.8194 -89.7764,47.8231 -89.769,47.8291 -89.7623,47.8323 -89.7528,47.8337 -89.7353,47.8375 -89.7232,47.8403 -89.7091,47.8422 -89.6943,47.844 -89.6727,47.8492 -89.6613,47.8519 -89.6371,47.8603 -89.6196,47.8704 -89.6129,47.8746 -89.6055,47.8769 -89.5987,47.8788 -89.594,47.8806 -89.5806,47.8889 -89.5691,47.8954 -89.561,47.9 -89.5557,47.9056 -89.5476,47.9093 -89.5382,47.9143 -89.5307,47.9157 -89.5267,47.9171 -89.5226,47.919 -89.5233,47.9217 -89.5274,47.9254 -89.5294,47.9263 -89.5247,47.9305 -89.5132,47.9346 -89.5038,47.936 -89.4998,47.9356 -89.4977,47.9305 -89.4964,47.9282 -89.4937,47.9264 -89.4835,47.9255 -89.4835,47.9278 -89.4829,47.9319 -89.4836,47.9356 -89.4849,47.9374 -89.487,47.9439 -89.4863,47.9499 -89.4816,47.954 -89.4761,47.9569 -89.477,47.9571 -89.6259,47.9747 -89.7092,47.9569 -89.7328,47.9459 -89.77,47.9359 -89.8641,47.9705 -89.9027,48.0148 -89.9355,48.0515 -90.016,48.0663 -90.1494,48.058 -90.6185,48.0377 -90.6426,48.0487 -90.7041,48.1495 -90.7037,48.1718 -90.7369,48.1825 -90.7665,48.1815 -90.7966,48.1735 -90.8375,48.1595 -90.9943,48.1 -91.0175,48.0889 -91.0608,48.06 -91.1085,48.0286 -91.1443,48.0178 -91.1866,48.0146 -91.2153,48.0129 -91.2548,48.004 -91.2863,47.986 -91.3306,48.0029 -91.4411,48.038 -91.5127,48.0435 -91.5547,48.0896 -91.6072,48.1362 -91.651,48.1395 -91.7174,48.1486 -91.8071,48.1752 -91.8304,48.1852 -91.8586,48.206 -91.8747,48.2259 -91.8808,48.2493 -91.906,48.2902 -92.0079,48.3017 -92.0284,48.3013 -92.1233,48.2917 -92.143,48.2795 -92.1659,48.2442 -92.1523,48.2148 -92.1576,48.1936 -92.1978,48.1789 -92.2259,48.1764 -92.2922,48.2562 -92.3212,48.3389 -92.4478,48.3861 -92.5629,48.4298 -92.5804,48.4857 -92.816,48.567 -93.1093,48.5847 -93.18,48.5734 -93.2722,48.5529 -93.3179,48.5286 -93.3284,48.4961 -93.3602,48.483 -93.5244,48.4598 -93.5879,48.4584 -93.6495,48.4614 -93.6682,48.4762 -93.6824,48.5306 -93.6972,48.5609 -93.722,48.5731 -93.7464,48.5745 -93.9268,48.5822 -93.975,48.5854 -93.997,48.5869 -94.1106,48.6053 -94.1299,48.6402 -94.1608,48.6513 -94.2628,48.6549 -94.2957,48.6463 -94.3234,48.6394 -94.3629,48.6411 -94.3863,48.646 -94.4677,48.6686 -94.5023,48.6854 -94.5566,48.7228 -94.5697,48.741 -94.5686,48.8022 -94.5624,48.8465 -94.5673,48.877 -94.5801,48.9185 -94.5913,48.9406 -94.6063,48.9723 -94.6282,49.0194 -94.6591,49.101 -94.6666,49.1304 -94.6783,49.2491 -94.7921,49.3019 -94.8225,49.3045 -94.8586,49.301 -94.886,49.3011 -94.9418,49.3029 -94.9807,49.3085 -95.0024,49.3149 -95.0128,49.3199 -95.014,49.3098 -95.0146,49.2767 -95.0142,49.1171 -95.0148,48.9433 -95.1271,48.9438 -97.0775,48.9437 -97.3599,48.9433 -97.493,48.9432 -97.6586,48.9437 -97.8257,48.9443 -98.1252,48.944 -98.3579,48.9434 -98.724,48.9439 -99.1901,48.9433 -99.6896,48.944 -99.8559,48.9438 -100.3547,48.9434 -100.9213,48.9439 -101.1538,48.9442 -101.219,48.9427 -101.3205,48.9433 -102.0192,48.9437 -102.1857,48.9434 -102.3853,48.9442 -102.6179,48.9433 -102.8845,48.9434 -103.0173,48.9433 -103.1177,48.9438 -103.2841,48.944 -103.3839,48.9434 -103.5833,48.9431 -103.8808,48.9441 -103.9025,48.944 -103.8991,48.6117 -103.8989,48.3569 -103.8952,47.966 -103.8952,47.9658 -103.881,47.9642 -103.8663,47.9581 -103.8582,47.9453 -103.8513,47.9376 -103.8467,47.9361 -103.8417,47.9361 -103.8363,47.9376 -103.832,47.9388 -103.8282,47.9392 -103.8232,47.9434 -103.8205,47.9446 -103.8178,47.9453 -103.8187,47.9423 -103.8211,47.9398 -103.8211,47.9389 -103.8205,47.9379 -103.8169,47.9336 -103.8173,47.9292 -103.8153,47.9238 -103.8121,47.9043 -103.8121,47.8946 -103.8107,47.8876 -103.8065,47.8778 -103.8071,47.8693 -103.8051,47.8583 -103.8135,47.8415 -103.8149,47.8359 -103.8149,47.8275 -103.8121,47.8205 -103.8121,47.8177 -103.6363,47.8168 -103.6363,47.6361 -103.5886,47.6361 -103.5882,47.5481 -103.4492,47.548 -103.4493,47.4833 -103.4472,47.484 -103.4438,47.4845 -103.4392,47.4826 -103.4351,47.4798 -103.4311,47.4789 -103.4244,47.4826 -103.4191,47.4816 -103.4164,47.4793 -103.4131,47.4765 -103.4111,47.4756 -103.4084,47.4765 -103.407,47.482 -103.4023,47.4852 -103.3989,47.4866 -103.3929,47.488 -103.3875,47.4889 -103.3848,47.4907 -103.3834,47.4953 -103.3828,47.4967 -103.3787,47.4985 -103.3727,47.4994 -103.366,47.4985 -103.3606,47.4961 -103.3573,47.4934 -103.352,47.4924 -103.3466,47.491 -103.3433,47.4906 -103.3285,47.4887 -103.3205,47.4882 -103.3165,47.4882 -103.3131,47.49 -103.3098,47.49 -103.3064,47.4877 -103.3038,47.4854 -103.3018,47.4849 -103.2984,47.4876 -103.2964,47.4895 -103.2896,47.4908 -103.2809,47.4931 -103.2775,47.4954 -103.2768,47.4986 -103.2775,47.5027 -103.2815,47.506 -103.2868,47.5101 -103.2901,47.5129 -103.2914,47.5166 -103.2907,47.5216 -103.29,47.5258 -103.288,47.5308 -103.2866,47.535 -103.2846,47.5368 -103.2819,47.5391 -103.2798,47.5418 -103.2791,47.5492 -103.2791,47.5519 -103.2777,47.5579 -103.2743,47.557 -103.2696,47.5565 -103.2649,47.5556 -103.2596,47.5555 -103.2555,47.556 -103.2522,47.5578 -103.2474,47.5606 -103.2421,47.5633 -103.2387,47.5637 -103.2333,47.5642 -103.2286,47.5642 -103.2239,47.5632 -103.2206,47.5618 -103.2159,47.5604 -103.2132,47.5604 -103.2065,47.5631 -103.2018,47.5654 -103.1951,47.5654 -103.1931,47.5635 -103.1898,47.5585 -103.1871,47.5543 -103.1851,47.5534 -103.1771,47.5533 -103.1697,47.5542 -103.1643,47.5528 -103.1577,47.5482 -103.1557,47.5463 -103.1523,47.5454 -103.1463,47.5467 -103.1389,47.5504 -103.1355,47.554 -103.1341,47.5582 -103.1314,47.5605 -103.126,47.5614 -103.118,47.5599 -103.112,47.5576 -103.1053,47.5562 -103.0972,47.5557 -103.0926,47.5529 -103.0859,47.5519 -103.0711,47.5486 -103.0598,47.5458 -103.0471,47.5425 -103.0411,47.5406 -103.0357,47.5379 -103.0297,47.5364 -103.023,47.5382 -103.0196,47.5405 -103.0109,47.54 -103.0075,47.5414 -103.0048,47.5455 -103.0054,47.5483 -103.004,47.5505 -103.0,47.5505 -102.9967,47.55 -102.9907,47.5482 -102.986,47.5477 -102.9819,47.549 -102.9799,47.5504 -102.9758,47.5527 -102.9711,47.5536 -102.9658,47.5517 -102.9625,47.5494 -102.9557,47.5493 -102.954,47.55 -102.951,47.5511 -102.9463,47.552 -102.941,47.552 -102.9363,47.5497 -102.9309,47.5492 -102.9222,47.5491 -102.9121,47.5518 -102.9054,47.555 -102.9046,47.5586 -102.9052,47.5651 -102.9038,47.5683 -102.9011,47.5729 -102.897,47.5752 -102.8909,47.5779 -102.8869,47.5806 -102.8854,47.5866 -102.884,47.593 -102.8819,47.5958 -102.8779,47.5976 -102.8738,47.5989 -102.8705,47.6012 -102.8691,47.603 -102.8697,47.6058 -102.8703,47.6081 -102.8743,47.6104 -102.8837,47.616 -102.8869,47.6229 -102.8895,47.6276 -102.8888,47.6331 -102.8874,47.6367 -102.8839,47.6422 -102.8826,47.6422 -102.8792,47.644 -102.8785,47.6445 -102.8637,47.6458 -102.8483,47.6424 -102.841,47.6383 -102.8357,47.6345 -102.8324,47.6304 -102.8264,47.6299 -102.821,47.6317 -102.8189,47.6326 -102.8129,47.6316 -102.8103,47.6284 -102.8097,47.6224 -102.803,47.6209 -102.795,47.6177 -102.7943,47.6163 -102.7951,47.6085 -102.7979,47.6043 -102.7979,47.6007 -102.796,47.5993 -102.7899,47.5992 -102.7845,47.601 -102.7811,47.6019 -102.7765,47.5982 -102.7698,47.5958 -102.7652,47.594 -102.7605,47.5939 -102.7544,47.5948 -102.7497,47.5952 -102.7423,47.5943 -102.737,47.5933 -102.733,47.5914 -102.7303,47.5886 -102.7271,47.584 -102.7251,47.5821 -102.7224,47.5798 -102.7158,47.5779 -102.7151,47.5752 -102.7139,47.5715 -102.7126,47.5696 -102.7045,47.5686 -102.7005,47.5691 -102.6958,47.569 -102.6938,47.5676 -102.6905,47.5662 -102.6777,47.5647 -102.6683,47.5656 -102.6643,47.566 -102.6583,47.5646 -102.6543,47.5627 -102.647,47.5608 -102.6342,47.5602 -102.6201,47.5606 -102.6101,47.5596 -102.6027,47.5586 -102.5981,47.5567 -102.5921,47.5534 -102.5875,47.5488 -102.5835,47.5455 -102.5789,47.5418 -102.5756,47.5395 -102.5615,47.5398 -102.5414,47.5387 -102.5347,47.5377 -102.5307,47.5344 -102.5295,47.5312 -102.5275,47.5266 -102.5283,47.5215 -102.5305,47.5133 -102.5313,47.5059 -102.5307,47.5041 -102.5287,47.5008 -102.5234,47.498 -102.5114,47.4975 -102.5013,47.4987 -102.4892,47.5014 -102.4791,47.5022 -102.4724,47.5035 -102.4656,47.5076 -102.4582,47.5084 -102.4515,47.5079 -102.4395,47.5046 -102.4308,47.5031 -102.4215,47.4998 -102.4102,47.4955 -102.4015,47.4931 -102.3896,47.4893 -102.3829,47.4874 -102.3696,47.4827 -102.3496,47.4783 -102.3349,47.4777 -102.3208,47.4771 -102.298,47.4768 -102.2886,47.4786 -102.2859,47.4799 -102.2845,47.4822 -102.2844,47.4845 -102.2857,47.4891 -102.2862,47.4937 -102.2848,47.4978 -102.2833,47.5033 -102.2825,47.5098 -102.2837,47.5149 -102.2849,47.5218 -102.2861,47.5264 -102.286,47.5328 -102.2838,47.5379 -102.2811,47.541 -102.2769,47.5451 -102.2702,47.5474 -102.266,47.5524 -102.2613,47.5551 -102.2565,47.5564 -102.2431,47.559 -102.237,47.5589 -102.223,47.5569 -102.2021,47.5594 -102.1906,47.5639 -102.1851,47.5689 -102.1783,47.5739 -102.1702,47.5752 -102.1608,47.5751 -102.1292,47.5765 -102.1028,47.5831 -102.097,47.5779 -102.0778,47.5662 -102.0668,47.5609 -102.0668,47.5609 -102.0635,47.5593 -102.0534,47.5521 -102.0468,47.5456 -102.0442,47.5446 -102.0388,47.5436 -102.0342,47.5426 -102.0114,47.541 -102.0007,47.5403 -101.988,47.5397 -101.9772,47.54 -101.9503,47.5415 -101.9362,47.5432 -101.9235,47.5434 -101.9174,47.5438 -101.9087,47.5432 -101.9047,47.5423 -101.8735,47.5303 -101.8703,47.528 -101.867,47.5242 -101.8657,47.5219 -101.8659,47.5173 -101.8673,47.515 -101.8687,47.5123 -101.8695,47.51 -101.8682,47.5082 -101.8636,47.5053 -101.8609,47.5048 -101.8542,47.5043 -101.8488,47.5047 -101.8421,47.505 -101.8374,47.5045 -101.8334,47.504 -101.8275,47.5016 -101.8215,47.5006 -101.8155,47.4991 -101.8088,47.4981 -101.8041,47.4985 -101.7987,47.4989 -101.7947,47.4983 -101.7894,47.4978 -101.7867,47.4968 -101.7821,47.4945 -101.7768,47.4916 -101.7729,47.4879 -101.7683,47.4846 -101.7651,47.4827 -101.7611,47.4813 -101.7558,47.4789 -101.7518,47.477 -101.7485,47.4756 -101.7432,47.4746 -101.7365,47.4731 -101.7245,47.472 -101.7098,47.4718 -101.701,47.4725 -101.6977,47.472 -101.693,47.472 -101.689,47.471 -101.6857,47.4709 -101.6817,47.4699 -101.671,47.4689 -101.6663,47.4688 -101.6616,47.4683 -101.657,47.4682 -101.6523,47.4686 -101.6489,47.4699 -101.6448,47.4712 -101.642,47.4735 -101.6359,47.4752 -101.6203,47.4819 -101.6128,47.4845 -101.6054,47.4876 -101.5986,47.4893 -101.5918,47.4915 -101.5756,47.4963 -101.5715,47.4972 -101.5641,47.4984 -101.5573,47.4997 -101.5526,47.5001 -101.5479,47.5 -101.5432,47.5008 -101.5385,47.5012 -101.5291,47.5006 -101.5151,47.4994 -101.5071,47.4984 -101.4993,47.4974 -101.4938,47.4963 -101.4898,47.4958 -101.4811,47.4947 -101.4764,47.4951 -101.4643,47.4958 -101.4097,47.5036 -101.4009,47.5048 -101.3941,47.5075 -101.3806,47.5109 -101.3643,47.5161 -101.3568,47.5178 -101.3494,47.52 -101.3365,47.5225 -101.3291,47.5247 -101.3196,47.5268 -101.3135,47.5276 -101.3061,47.5284 -101.3014,47.5279 -101.2961,47.5282 -101.2928,47.5268 -101.2887,47.5267 -101.2854,47.5271 -101.282,47.5266 -101.2787,47.5252 -101.2754,47.5242 -101.2519,47.509 -101.2324,47.493 -101.2312,47.4907 -101.2279,47.4879 -101.2288,47.4824 -101.2316,47.4797 -101.2337,47.4783 -101.2364,47.4774 -101.2418,47.4748 -101.2459,47.4735 -101.2507,47.4708 -101.2534,47.4699 -101.2583,47.4664 -101.261,47.465 -101.2679,47.4592 -101.2714,47.4556 -101.2805,47.4461 -101.2834,47.442 -101.2842,47.4374 -101.2843,47.4346 -101.2838,47.4305 -101.2811,47.4277 -101.2721,47.4225 -101.2688,47.4201 -101.2662,47.4187 -101.2663,47.4164 -101.2611,47.3956 -101.2482,47.3654 -101.2477,47.3627 -101.2451,47.3599 -101.2425,47.3584 -101.2353,47.3551 -101.2313,47.3545 -101.2287,47.3527 -101.2247,47.3503 -101.2228,47.3498 -101.217,47.3432 -101.2158,47.3386 -101.2137,47.3257 -101.2128,47.3151 -101.2124,47.3077 -101.2129,47.2963 -101.2111,47.2898 -101.2053,47.2855 -101.204,47.2837 -101.2021,47.2827 -101.1995,47.2795 -101.1977,47.2757 -101.1964,47.2734 -101.1959,47.2697 -101.1947,47.2656 -101.1895,47.2623 -101.1829,47.2607 -101.175,47.2588 -101.1657,47.2577 -101.1464,47.2554 -101.1365,47.2529 -101.1331,47.2524 -101.1285,47.251 -101.1253,47.2491 -101.12,47.2462 -101.113,47.2387 -101.1073,47.2326 -101.1061,47.2114 -101.613,47.2072 -101.6124,46.9514 -101.613,46.9514 -101.613,46.9499 -101.2591,46.9506 -101.0557,46.9501 -101.0557,46.8688 -100.9412,46.8688 -100.9412,46.7308 -100.9377,46.7315 -100.9132,46.7392 -100.9056,46.7459 -100.9039,46.7527 -100.9065,46.7586 -100.9031,46.7637 -100.8972,46.7637 -100.8904,46.7654 -100.8853,46.7721 -100.8777,46.7747 -100.8752,46.778 -100.6732,46.7782 -100.6723,46.7685 -100.6735,46.7584 -100.6772,46.7498 -100.6789,46.7404 -100.6826,46.7334 -100.6865,46.7225 -100.6828,46.716 -100.675,46.713 -100.6743,46.7126 -100.6698,46.7097 -100.664,46.7073 -100.6587,46.7067 -100.6515,46.7056 -100.6442,46.7064 -100.6356,46.7052 -100.6317,46.7033 -100.6312,46.701 -100.6294,46.6973 -100.6295,46.6941 -100.6311,46.6895 -100.6332,46.6864 -100.6374,46.6828 -100.6434,46.6815 -100.6488,46.6794 -100.649,46.6753 -100.6472,46.6711 -100.6441,46.6664 -100.6377,46.6621 -100.6328,46.6547 -100.6277,46.6509 -100.6191,46.6502 -100.6039,46.6503 -100.5999,46.6501 -100.592,46.6496 -100.5855,46.6462 -100.5849,46.6427 -100.5829,46.6319 -100.578,46.6245 -100.567,46.6201 -100.5557,46.6203 -100.5397,46.6231 -100.5312,46.6252 -100.5178,46.6244 -100.506,46.6209 -100.5001,46.6079 -100.5016,46.6047 -100.4964,46.6014 -100.4902,46.5939 -100.4884,46.5911 -100.4853,46.5874 -100.4789,46.5817 -100.4707,46.5742 -100.4604,46.5689 -100.444,46.5657 -100.4411,46.565 -100.4257,46.5616 -100.4123,46.5525 -100.4099,46.5483 -100.4121,46.5447 -100.4148,46.5429 -100.4211,46.541 -100.4243,46.5386 -100.4253,46.5317 -100.4243,46.5262 -100.4236,46.5248 -100.4238,46.5221 -100.4191,46.4995 -100.4195,46.4903 -100.4262,46.4758 -100.4334,46.4641 -100.4342,46.4622 -100.44,46.4523 -100.4444,46.4442 -100.446,46.4373 -100.4456,46.4239 -100.4462,46.4217 -100.4454,46.4178 -100.4452,46.4144 -100.4415,46.3968 -100.436,46.388 -100.4266,46.3786 -100.4207,46.367 -100.4131,46.3475 -100.4015,46.3294 -100.4004,46.3133 -100.3985,46.2981 -100.4101,46.2778 -100.4228,46.263 -100.4278,46.2544 -100.4316,46.2449 -100.4269,46.2337 -100.4196,46.223 -100.4134,46.2155 -100.4086,46.2067 -100.4122,46.1999 -100.4199,46.1909 -100.4297,46.1788 -100.4429,46.1654 -100.4539,46.1556 -100.4632,46.1407 -100.4705,46.1271 -100.475,46.1158 -100.4766,46.0975 -100.4753,46.0851 -100.4686,46.0739 -100.4671,46.0716 -100.4625,46.0587 -100.4625,46.0518 -100.4623,46.0484 -100.4622,46.0402 -100.4618,46.0394 -100.4589,46.0325 -100.4589,46.0324 -100.4586,46.0317 -100.4433,46.0095 -100.4431,46.0092 -100.439,46.0032 -100.4152,45.98 -100.3964,45.97 -100.3921,45.9685 -100.3877,45.9626 -100.3815,45.9573 -100.3712,45.9405 -100.3645,45.9289 -100.3607,45.9224 -100.3604,45.9219 -100.3612,45.9063 -100.3661,45.9014 -100.3663,45.8978 -100.3626,45.8936 -100.3575,45.8911 -100.3503,45.8896 -100.3439,45.8876 -100.3357,45.8819 -100.3255,45.877 -100.3191,45.8741 -100.314,45.8708 -100.2975,45.874 -100.2901,45.8775 -100.285,45.876 -100.2766,45.873 -100.2718,45.8646 -100.2729,45.8573 -100.2753,45.8496 -100.2722,45.8459 -100.2645,45.8425 -100.2548,45.8408 -100.2425,45.8387 -100.2309,45.8356 -100.2246,45.8318 -100.2215,45.8271 -100.2199,45.8216 -100.2221,45.8162 -100.2271,45.809 -100.2346,45.8032 -100.2323,45.7981 -100.2268,45.7911 -100.222,45.7832 -100.2215,45.7681 -100.2187,45.7584 -100.2172,45.7574 -100.2137,45.755 -100.2093,45.7522 -100.2063,45.7471 -100.1997,45.7368 -100.1968,45.7299 -100.1913,45.7238 -100.1846,45.7144 -100.1766,45.7051 -100.1692,45.698 -100.1604,45.6914 -100.1541,45.6871 -100.1519,45.6806 -100.1498,45.6714 -100.1515,45.6637 -100.1532,45.6573 -100.159,45.6465 -100.1685,45.6394 -100.1779,45.6337 -100.1893,45.629 -100.2052,45.6248 -100.2188,45.6247 -100.2404,45.6249 -100.2593,45.6245 -100.2692,45.6211 -100.2734,45.6175 -100.2757,45.6107 -100.2776,45.5998 -100.2794,45.5897 -100.2814,45.5761 -100.2854,45.5625 -100.2897,45.5548 -100.2911,45.553 -100.2972,45.5495 -100.3006,45.5473 -100.3111,45.5439 -100.3197,45.5419 -100.3285,45.5366 -100.3333,45.5317 -100.3369,45.5254 -100.3378,45.5208 -100.3356,45.5125 -100.3322,45.5037 -100.3267,45.4958 -100.3185,45.4906 -100.3128,45.4872 -100.3041,45.4811 -100.2899,45.4789 -100.275,45.4766 -100.2549,45.4766 -100.2426,45.4753 -100.233,45.4728 -100.2176,45.4678 -100.2069,45.4606 -100.1988,45.4549 -100.1918,45.441 -100.1872,45.4285 -100.1856,45.4226 -100.1834,45.4161 -100.1779,45.41 -100.1722,45.4071 -100.1622,45.3986 -100.153,45.3887 -100.1426,45.377 -100.1373,45.3673 -100.1308,45.3566 -100.1267,45.3487 -100.1267,45.3368 -100.1291,45.3286 -100.1386,45.3211 -100.15,45.3146 -100.1595,45.3061 -100.1659,45.2976 -100.1688,45.2904 -100.1692,45.2845 -100.1582,45.2709 -100.149,45.262 -100.1349,45.2474 -100.1233,45.2347 -100.1178,45.2168 -100.1188,45.1994 -100.1265,45.1777 -100.1354,45.1569 -100.1346,45.1473 -100.1331,45.139 -100.1345,45.1263 -100.1375,45.1177 -100.143,45.1123 -100.1539,45.1035 -100.1646,45.0965 -100.1715,45.0884 -100.1764,45.0822 -100.179,45.0699 -100.179,45.0571 -100.1783,45.047 -100.1687,45.0331 -100.1639,45.0265 -100.1565,45.0195 -100.1477,45.0156 -100.1345,45.0088 -100.1277,45.0027 -100.1301,44.9954 -100.1401,44.9898 -100.1492,44.9882 -100.1678,44.9905 -100.1844,44.9937 -100.2017,44.9965 -100.2243,44.9976 -100.2432,44.9935 -100.2583,44.9889 -100.2718,44.9778 -100.2767,44.9716 -100.2772,44.9611 -100.2773,44.9469 -100.2755,44.9336 -100.2752,44.9149 -100.2686,44.8923 -100.2623,44.8784 -100.2534,44.8636 -100.2487,44.8548 -100.2457,44.851 -100.2447,44.846 -100.2456,44.841 -100.2472,44.8346 -100.2501,44.8283 -100.2543,44.8216 -100.2688,44.8165 -100.2781,44.8113 -100.2886,44.807 -100.3025,44.8 -100.3152,44.7922 -100.3232,44.786 -100.3312,44.7807 -100.3394,44.7727 -100.3462,44.7651 -100.3524,44.7575 -100.3598,44.7513 -100.368,44.7424 -100.3753,44.7371 -100.3885,44.7315 -100.4028,44.7287 -100.4138,44.7271 -100.4298,44.7285 -100.447,44.7316 -100.4589,44.7374 -100.4697,44.7414 -100.4793,44.7553 -100.4927,44.7693 -100.4982,44.7759 -100.5056,44.7815 -100.5137,44.7881 -100.5218,44.7924 -100.5352,44.795 -100.5487,44.7967 -100.5577,44.7965 -100.5644,44.7916 -100.5691,44.7863 -100.5753,44.7787 -100.5775,44.7723 -100.578,44.7618 -100.576,44.7499 -100.5738,44.7439 -100.5657,44.7369 -100.562,44.7354 -100.5564,44.7303 -100.5476,44.7264 -100.5387,44.7239 -100.528,44.7204 -100.521,44.7189 -100.5134,44.7164 -100.5013,44.7134 -100.4937,44.7109 -100.4861,44.708 -100.48,44.7028 -100.4777,44.6968 -100.4768,44.6886 -100.4753,44.6794 -100.4725,44.6716 -100.4696,44.6656 -100.4648,44.6586 -100.4638,44.6531 -100.4643,44.6435 -100.4679,44.6349 -100.4722,44.6264 -100.4758,44.6182 -100.4802,44.6079 -100.489,44.5976 -100.4934,44.5877 -100.4934,44.5744 -100.492,44.5643 -100.4882,44.551 -100.4816,44.5413 -100.4698,44.5337 -100.4578,44.5293 -100.4458,44.5258 -100.4305,44.5231 -100.422,44.527 -100.4142,44.5295 -100.4047,44.5265 -100.3939,44.5258 -100.3805,44.5236 -100.3688,44.5146 -100.3658,44.5095 -100.3663,44.5009 -100.3692,44.4932 -100.374,44.4883 -100.3799,44.4862 -100.3922,44.4824 -100.4025,44.4813 -100.4129,44.4788 -100.4266,44.4742 -100.4333,44.4693 -100.4394,44.4612 -100.4425,44.4517 -100.4417,44.4421 -100.4401,44.4362 -100.4334,44.4292 -100.4209,44.4234 -100.4108,44.4194 -100.3974,44.4182 -100.3878,44.4179 -100.3757,44.4181 -100.364,44.4214 -100.3464,44.426 -100.3303,44.4288 -100.3129,44.4306 -100.2911,44.4314 -100.2732,44.43 -100.2594,44.4255 -100.2462,44.4201 -100.2382,44.414 -100.2353,44.4084 -100.2324,44.4024 -100.229,44.3946 -100.2282,44.3859 -100.2278,44.3799 -100.2309,44.37 -100.2346,44.3623 -100.232,44.3508 -100.23,44.3394 -100.226,44.3315 -100.2199,44.3245 -100.2145,44.3184 -100.2076,44.3169 -100.203,44.3161 -100.3679,44.1396 -100.544,43.9512 -100.5439,43.6884 -100.5438,43.6884 -100.5376,43.6864 -100.5313,43.6848 -100.5268,43.6861 -100.5254,43.6888 -100.5234,43.6919 -100.5201,43.695 -100.5117,43.6976 -100.5078,43.6993 -100.5059,43.7006 -100.5063,43.7038 -100.5087,43.7075 -100.5073,43.7107 -100.4944,43.714 -100.4881,43.7129 -100.4807,43.7104 -100.4742,43.7121 -100.4651,43.7169 -100.461,43.7236 -100.4518,43.7302 -100.4441,43.7327 -100.4346,43.733 -100.4308,43.731 -100.4278,43.7291 -100.4241,43.7272 -100.4223,43.7244 -100.4185,43.7239 -100.4159,43.7252 -100.4127,43.7269 -100.4076,43.7263 -100.404,43.7231 -100.4036,43.7189 -100.4044,43.7158 -100.406,43.7085 -100.4042,43.7057 -100.3998,43.7056 -100.3959,43.7069 -100.3902,43.7086 -100.3837,43.7107 -100.3779,43.7123 -100.3717,43.7099 -100.3693,43.7071 -100.3684,43.6998 -100.3634,43.6983 -100.3564,43.6995 -100.3512,43.7021 -100.346,43.7038 -100.3392,43.7018 -100.3354,43.7007 -100.3316,43.702 -100.3277,43.7037 -100.3232,43.7041 -100.3222,43.6986 -100.3232,43.6927 -100.324,43.6895 -100.3241,43.6868 -100.3171,43.687 -100.3119,43.6896 -100.3042,43.6922 -100.3009,43.6948 -100.2957,43.6969 -100.2907,43.695 -100.2858,43.6917 -100.2815,43.6893 -100.2759,43.6873 -100.2715,43.6867 -100.2645,43.687 -100.2638,43.6893 -100.2643,43.6925 -100.2646,43.6975 -100.2619,43.701 -100.2549,43.7022 -100.2493,43.7007 -100.2437,43.6983 -100.2355,43.6967 -100.2271,43.6992 -100.22,43.7022 -100.2124,43.7024 -100.2025,43.6985 -100.1901,43.6927 -100.1852,43.6894 -100.1809,43.6879 -100.1695,43.6871 -100.1575,43.6868 -100.1505,43.687 -100.1438,43.6823 -100.1403,43.6772 -100.1379,43.6739 -100.1343,43.6706 -100.1291,43.6728 -100.122,43.6758 -100.1111,43.6786 -100.106,43.678 -100.0985,43.676 -100.0914,43.6781 -100.0786,43.6809 -100.0809,43.445 -100.0632,43.444 -100.0647,43.3603 -100.0664,43.1003 -100.0501,43.1003 -100.0469,42.957 -100.7511,42.9541 -100.7516,42.9541 -100.7503,42.7893 -100.7045,42.7893 -100.7045,42.7526 -100.6987,42.7526 -100.6987,42.7274 -100.7351,42.727 -100.7354,42.5762 -100.6266,42.5751 -100.6254,42.3975 -100.6644,42.3975 -100.6644,42.3185 -100.6552,42.3185 -100.6548,42.1738 -100.5945,42.1737 -100.5945,42.0475 -100.5934,42.0474 -100.5945,42.0474 -100.6919,42.048 -100.6865,41.7046 -101.2556,41.7031 -101.2499,41.3577 -101.1097,41.3561 -101.1097,41.0104 -101.0902,41.0071 -101.0922,40.9668 -101.0902,40.6637 -101.1878,40.6634 -101.1886,40.3092 -101.1693,40.3088 -101.169,39.9678 -101.2542,39.967 -101.8983,39.9649 -101.8962,39.5347 -101.8956,39.5288 -101.2536,39.5331 -101.2321,39.5313 -101.234,39.0952 -101.32,39.0939 -101.3254,38.6606 -101.4103,38.6592 -101.4076,38.2228 -101.3859,38.2214 -101.384,37.7904 -101.37,37.789 -101.3676,37.6975 -101.8908,37.7003 -101.8912,37.6074 -101.8888,37.3522 -101.8877,36.9535 -102.2783,36.958 -102.3826,36.9591 -102.5578,36.9611 -102.5607,36.9612 -102.5702,36.9613 -102.577,36.9627 -102.5819,36.9637 -102.5851,36.9643 -102.6022,36.9643 -102.6143,36.9644 -102.8445,36.9648 -102.8509,36.9648 -102.8502,36.459 -102.8741,36.458 -102.8708,36.0254 -102.8694,35.7082 -102.8691,35.5928 -102.869,35.5896 -102.8729,35.1478 -102.8729,35.1432 -102.872,34.9325 -102.8736,34.7181 -102.8788,34.5798 -102.8803,34.2757 -102.8796,34.2152 -102.8842,33.7944 -102.888,33.5359 -102.8882,33.5317 -102.8955,33.3459 -102.8992,32.9174 -102.8993,32.4818 -102.9054,32.4817 -102.9024,32.0509 -102.9052,31.9668 -103.1689,31.9654 -103.1795,31.9655 -103.5635,31.9708 -103.8281,31.971 -103.8426,31.9719 -103.8661,31.9732 -104.1747,31.9709 -104.2436,31.9707 -104.2721,31.9706 -104.3208,31.9704 -104.3787,31.9703 -104.4256,31.9701 -104.4549,31.9699 -104.5041,31.9696 -104.5289,31.9694 -104.5647,31.9692 -104.5743,31.9691 -104.6348,31.9687 -104.6783,31.9692 -104.6891,31.9693 -104.6981,31.9694 -104.7101,31.969 -104.7265,31.9693 -104.758,31.9663 -104.769,31.9665 -104.7628,30.9496 -104.7492,30.9471 -104.7493,30.781 -104.7628,30.7816 -104.7621,30.6476 -104.8342,30.6073 -104.8344,30.6089 -104.8545,30.5981 -104.8475,30.595 2000,-5.0,United States -89.7236,46.7364 -89.705,46.7346 -89.7041,46.5654 -89.5838,46.5615 -89.5815,46.4762 -89.2093,46.4718 -89.2064,46.3031 -88.8345,46.3009 -88.8346,46.3843 -88.5188,46.3887 -87.9612,46.3901 -87.959,46.2146 -87.4574,46.2127 -87.4608,45.9554 -87.212,45.9531 -87.2115,45.867 -87.1717,45.8659 -87.1712,45.5201 -87.1078,45.5208 -87.1047,45.5254 -87.0985,45.534 -87.0898,45.5412 -87.0852,45.5443 -87.0811,45.5497 -87.0783,45.5556 -87.0721,45.5637 -87.062,45.5732 -87.058,45.5772 -87.0506,45.5849 -87.0416,45.5984 -87.0321,45.6092 -87.0295,45.6115 -87.0194,45.6191 -87.0167,45.6213 -87.0127,45.6263 -87.0113,45.629 -87.0066,45.6312 -86.9981,45.6334 -86.9907,45.6396 -86.9834,45.6441 -86.9734,45.6485 -86.9636,45.6506 -86.9485,45.6517 -86.9407,45.6529 -86.938,45.6556 -86.9391,45.6589 -86.9384,45.6616 -86.9337,45.6656 -86.9284,45.6669 -86.9225,45.6682 -86.9192,45.669 -86.9153,45.6699 -86.9126,45.6707 -86.9112,45.673 -86.9145,45.673 -86.9191,45.6727 -86.925,45.6714 -86.9289,45.6719 -86.9315,45.672 -86.9392,45.6744 -86.9339,45.6771 -86.926,45.6783 -86.9228,45.6782 -86.9161,45.6831 -86.9106,45.6904 -86.9059,45.6939 -86.8992,45.6993 -86.8938,45.7029 -86.8903,45.7101 -86.8922,45.7115 -86.8947,45.7143 -86.8966,45.7157 -86.8997,45.7213 -86.9039,45.7296 -86.9025,45.7341 -86.9029,45.7396 -86.9047,45.7438 -86.9064,45.7521 -86.903,45.7561 -86.8989,45.7592 -86.8989,45.7615 -86.8974,45.7661 -86.895,45.7775 -86.8894,45.7865 -86.8853,45.7919 -86.8759,45.8005 -86.8678,45.8067 -86.8625,45.8089 -86.8545,45.8115 -86.8486,45.8128 -86.8446,45.8141 -86.8445,45.8173 -86.8477,45.8192 -86.8516,45.8202 -86.8542,45.8216 -86.8567,45.8225 -86.8586,45.8253 -86.8591,45.8294 -86.8544,45.8326 -86.8497,45.8371 -86.8495,45.8407 -86.8407,45.8488 -86.836,45.8515 -86.8307,45.8536 -86.8279,45.8577 -86.8265,45.8618 -86.8277,45.8646 -86.8302,45.8669 -86.8295,45.8692 -86.8248,45.8723 -86.8234,45.8746 -86.8233,45.8768 -86.8225,45.88 -86.8192,45.8827 -86.8152,45.8826 -86.8106,45.883 -86.8066,45.8848 -86.8048,45.8811 -86.7997,45.8787 -86.7964,45.88 -86.7904,45.8817 -86.7879,45.8798 -86.79,45.8758 -86.7927,45.8735 -86.7967,45.8718 -86.8006,45.8705 -86.8046,45.8701 -86.8092,45.8683 -86.8074,45.8656 -86.801,45.8609 -86.7966,45.8558 -86.7943,45.8493 -86.8096,45.8253 -86.815,45.8204 -86.8217,45.8164 -86.8284,45.811 -86.8272,45.8087 -86.8327,45.802 -86.8353,45.8006 -86.8407,45.798 -86.844,45.7958 -86.8473,45.7949 -86.8493,45.7936 -86.8488,45.7899 -86.847,45.7862 -86.8433,45.7811 -86.8389,45.776 -86.8333,45.7681 -86.8306,45.7543 -86.8315,45.7466 -86.8324,45.7388 -86.8321,45.7319 -86.8316,45.7273 -86.8286,45.7204 -86.8275,45.7154 -86.8263,45.7108 -86.8266,45.7026 -86.8275,45.6966 -86.8285,45.687 -86.83,45.6834 -86.8314,45.6807 -86.8348,45.6753 -86.8357,45.6707 -86.8313,45.667 -86.8262,45.6637 -86.8224,45.6599 -86.8193,45.6553 -86.8182,45.6507 -86.8183,45.6461 -86.8185,45.642 -86.816,45.6388 -86.8122,45.6373 -86.8101,45.6409 -86.8086,45.6441 -86.8092,45.6473 -86.8091,45.6501 -86.8077,45.6519 -86.8009,45.6577 -86.7935,45.6649 -86.7868,45.6698 -86.7794,45.6747 -86.7762,45.6751 -86.7729,45.6745 -86.7724,45.6718 -86.7725,45.6686 -86.7726,45.6659 -86.7715,45.6617 -86.7636,45.662 -86.7603,45.6624 -86.7563,45.6669 -86.7534,45.6723 -86.7474,45.6763 -86.7376,45.6771 -86.7291,45.6778 -86.7107,45.6807 -86.7002,45.6832 -86.6903,45.6858 -86.6876,45.6885 -86.6868,45.6916 -86.6873,45.6962 -86.6903,45.7027 -86.6933,45.7073 -86.6938,45.7115 -86.6918,45.7132 -86.6885,45.7136 -86.6847,45.7117 -86.6814,45.7112 -86.6793,45.7162 -86.6792,45.7185 -86.6777,45.7226 -86.6768,45.7294 -86.674,45.7335 -86.6679,45.7393 -86.6613,45.7419 -86.6567,45.7423 -86.6501,45.7426 -86.6468,45.7444 -86.6467,45.7471 -86.6493,45.7476 -86.6532,45.7486 -86.6557,45.7501 -86.6576,45.7528 -86.6601,45.7556 -86.6573,45.7583 -86.6547,45.7596 -86.6507,45.7605 -86.6454,45.7627 -86.6421,45.7635 -86.6388,45.7639 -86.6362,45.7657 -86.6328,45.7679 -86.6281,45.771 -86.6241,45.7732 -86.6213,45.7764 -86.6205,45.7805 -86.6229,45.7869 -86.624,45.792 -86.627,45.7971 -86.629,45.798 -86.6328,45.7986 -86.6374,45.7996 -86.6406,45.8019 -86.6364,45.8069 -86.6324,45.8095 -86.6304,45.8113 -86.6294,45.8186 -86.63,45.8214 -86.6292,45.825 -86.6225,45.829 -86.6132,45.8325 -86.6026,45.8341 -86.5909,45.832 -86.5877,45.8315 -86.5858,45.8292 -86.5847,45.8251 -86.5842,45.8209 -86.5791,45.8181 -86.5733,45.8152 -86.5695,45.8138 -86.5681,45.8116 -86.5658,45.8082 -86.5639,45.8077 -86.5599,45.8081 -86.5579,45.8089 -86.5526,45.8102 -86.5474,45.8106 -86.5416,45.8095 -86.5351,45.8071 -86.528,45.8051 -86.5177,45.8026 -86.5119,45.7998 -86.5026,45.8032 -86.4981,45.8018 -86.4922,45.8016 -86.4897,45.8007 -86.4882,45.8029 -86.4855,45.8061 -86.4795,45.8096 -86.4781,45.8119 -86.4786,45.8146 -86.479,45.8201 -86.4761,45.8269 -86.4733,45.831 -86.4645,45.8372 -86.4611,45.8413 -86.4596,45.8444 -86.4531,45.8443 -86.4499,45.8428 -86.4467,45.8423 -86.4406,45.8463 -86.4372,45.8499 -86.4284,45.857 -86.419,45.8619 -86.4105,45.8626 -86.402,45.8615 -86.3949,45.8591 -86.3879,45.8539 -86.3836,45.8483 -86.3807,45.8395 -86.3818,45.8304 -86.3835,45.8213 -86.3851,45.8158 -86.3928,45.8041 -86.4046,45.7888 -86.4081,45.7824 -86.4083,45.7788 -86.4118,45.7738 -86.4192,45.768 -86.4246,45.7649 -86.4259,45.7631 -86.4254,45.7608 -86.4242,45.7581 -86.4191,45.7543 -86.4122,45.7487 -86.4066,45.743 -86.4054,45.7407 -86.4081,45.7371 -86.4121,45.7372 -86.416,45.7378 -86.4276,45.7412 -86.4314,45.7422 -86.4385,45.7442 -86.4451,45.7434 -86.4471,45.7421 -86.4497,45.7421 -86.4523,45.7427 -86.4555,45.7441 -86.4594,45.7456 -86.4619,45.747 -86.4671,45.7485 -86.4703,45.7495 -86.4742,45.7495 -86.4788,45.7492 -86.4814,45.7492 -86.4834,45.7484 -86.4822,45.7456 -86.4778,45.7409 -86.4773,45.7386 -86.4793,45.7377 -86.4819,45.7369 -86.4853,45.7338 -86.4821,45.7328 -86.4743,45.7312 -86.4711,45.7302 -86.4686,45.7275 -86.4701,45.7243 -86.4689,45.722 -86.4677,45.7178 -86.4666,45.7146 -86.4673,45.7123 -86.4693,45.7119 -86.4712,45.7124 -86.4731,45.7143 -86.475,45.7161 -86.4769,45.7176 -86.4807,45.7199 -86.4827,45.7195 -86.4841,45.7177 -86.4863,45.7109 -86.4898,45.705 -86.4912,45.7028 -86.4966,45.6997 -86.5019,45.6975 -86.5071,45.6971 -86.5118,45.6959 -86.5144,45.6946 -86.5185,45.6919 -86.5205,45.6901 -86.5188,45.6841 -86.515,45.6804 -86.5127,45.6748 -86.5141,45.6712 -86.5169,45.6676 -86.5248,45.6646 -86.5315,45.6615 -86.5362,45.6589 -86.5447,45.6563 -86.5487,45.6559 -86.5539,45.6551 -86.5579,45.6529 -86.5606,45.6502 -86.562,45.648 -86.5635,45.6439 -86.5644,45.6389 -86.5652,45.6352 -86.5628,45.6301 -86.5605,45.6228 -86.5549,45.6162 -86.551,45.6166 -86.5463,45.6188 -86.5423,45.6206 -86.5392,45.6178 -86.5374,45.6145 -86.5356,45.6108 -86.5325,45.6057 -86.5263,45.5992 -86.5193,45.594 -86.5116,45.5916 -86.5039,45.5887 -86.4924,45.5852 -86.4827,45.5818 -86.475,45.5807 -86.4712,45.5779 -86.4694,45.5747 -86.4662,45.5737 -86.4623,45.5722 -86.4584,45.5717 -86.4558,45.573 -86.4504,45.5761 -86.4477,45.5783 -86.4476,45.5815 -86.4488,45.5834 -86.4507,45.5843 -86.4546,45.5858 -86.4565,45.5867 -86.4597,45.5882 -86.4615,45.591 -86.4651,45.597 -86.4675,45.6025 -86.468,45.6066 -86.4696,45.6135 -86.4705,45.6227 -86.4696,45.6286 -86.4675,45.6327 -86.4628,45.6363 -86.4588,45.6385 -86.4529,45.6393 -86.4503,45.6383 -86.4471,45.6382 -86.4432,45.6377 -86.4379,45.6385 -86.4346,45.6402 -86.4345,45.6425 -86.4343,45.6457 -86.4329,45.6494 -86.4308,45.6516 -86.4293,45.6566 -86.4292,45.6589 -86.429,45.6639 -86.4274,45.6703 -86.4232,45.6761 -86.4179,45.6788 -86.4146,45.6801 -86.4093,45.6813 -86.4041,45.6817 -86.3962,45.6824 -86.3923,45.6833 -86.3864,45.6827 -86.3838,45.6817 -86.3812,45.6821 -86.3787,45.6836 -86.3745,45.6861 -86.3718,45.6892 -86.3691,45.691 -86.371,45.6929 -86.376,45.6962 -86.3753,45.6984 -86.3732,45.7002 -86.3692,45.702 -86.3671,45.7056 -86.3689,45.7088 -86.3715,45.7098 -86.3741,45.7103 -86.376,45.7117 -86.3765,45.7149 -86.3738,45.7158 -86.3719,45.7162 -86.3692,45.7171 -86.3653,45.7179 -86.3587,45.7187 -86.3547,45.7213 -86.3526,45.7231 -86.3481,45.7225 -86.3455,45.722 -86.3416,45.7215 -86.3384,45.721 -86.3358,45.7204 -86.3332,45.7195 -86.3298,45.7217 -86.3278,45.7244 -86.3264,45.7262 -86.3242,45.7312 -86.3202,45.7329 -86.3169,45.7333 -86.315,45.7323 -86.3125,45.7312 -86.3099,45.7299 -86.3054,45.728 -86.3032,45.7291 -86.2995,45.7293 -86.2929,45.7296 -86.2884,45.7295 -86.2863,45.7317 -86.2849,45.7344 -86.2814,45.7389 -86.2799,45.7409 -86.2754,45.7432 -86.268,45.7469 -86.2684,45.7523 -86.2663,45.7541 -86.2623,45.7568 -86.2589,45.759 -86.2437,45.7592 -86.2412,45.7604 -86.2366,45.7621 -86.2274,45.7619 -86.2216,45.7609 -86.217,45.7608 -86.2111,45.7611 -86.2053,45.7614 -86.2013,45.7627 -86.1972,45.7654 -86.1919,45.7666 -86.1874,45.7665 -86.1833,45.7696 -86.1858,45.7719 -86.1897,45.7734 -86.1962,45.774 -86.1993,45.7768 -86.1973,45.7782 -86.1953,45.779 -86.1919,45.7822 -86.1889,45.789 -86.1867,45.7944 -86.1844,45.8026 -86.1821,45.808 -86.1797,45.818 -86.1743,45.8211 -86.1689,45.8246 -86.1721,45.827 -86.1766,45.8276 -86.1785,45.8295 -86.1807,45.8373 -86.1779,45.8427 -86.1744,45.8468 -86.1695,45.854 -86.1673,45.8594 -86.165,45.8653 -86.1627,45.8717 -86.1593,45.8762 -86.1564,45.8802 -86.1503,45.8851 -86.1416,45.8899 -86.1389,45.8922 -86.1309,45.8938 -86.1283,45.8942 -86.1222,45.8973 -86.116,45.9035 -86.1133,45.9067 -86.1098,45.9112 -86.1064,45.9129 -86.0992,45.9132 -86.0972,45.9136 -86.0932,45.9153 -86.0872,45.9179 -86.08,45.9187 -86.076,45.9186 -86.0682,45.9189 -86.0635,45.9201 -86.0549,45.9231 -86.0475,45.9266 -86.0389,45.9282 -86.0311,45.9262 -86.0253,45.9251 -86.0182,45.9227 -86.013,45.9212 -86.0054,45.9178 -85.9968,45.918 -85.9836,45.92 -85.9784,45.9208 -85.971,45.9243 -85.9623,45.9277 -85.953,45.9293 -85.9438,45.9309 -85.93,45.931 -85.915,45.9302 -85.9066,45.9286 -85.8923,45.9264 -85.8748,45.9223 -85.8606,45.9178 -85.8432,45.9132 -85.8373,45.9131 -85.8282,45.9124 -85.8224,45.9109 -85.8166,45.9084 -85.8109,45.9055 -85.8,45.9002 -85.7808,45.8924 -85.7675,45.8852 -85.7642,45.8842 -85.7615,45.8855 -85.7575,45.8886 -85.7573,45.8922 -85.7597,45.895 -85.7628,45.8983 -85.7685,45.9021 -85.771,45.904 -85.7715,45.9072 -85.77,45.9109 -85.7636,45.9194 -85.7621,45.9239 -85.7567,45.9275 -85.7452,45.934 -85.7359,45.9365 -85.728,45.9363 -85.7214,45.9366 -85.707,45.9354 -85.7045,45.9352 -85.6908,45.9344 -85.6863,45.9329 -85.6829,45.9342 -85.6803,45.9355 -85.6748,45.9395 -85.6721,45.9412 -85.6626,45.946 -85.658,45.9468 -85.6502,45.9466 -85.641,45.9454 -85.6352,45.9448 -85.6287,45.9428 -85.6229,45.9413 -85.6178,45.9398 -85.6094,45.9372 -85.6003,45.9341 -85.5966,45.9328 -85.5932,45.9336 -85.59,45.933 -85.5861,45.932 -85.5822,45.9314 -85.5777,45.9309 -85.5744,45.9303 -85.5718,45.9307 -85.5691,45.9311 -85.5658,45.9319 -85.5626,45.9314 -85.5573,45.9326 -85.552,45.9334 -85.5494,45.9333 -85.5396,45.9325 -85.5363,45.9325 -85.5343,45.9333 -85.5323,45.9342 -85.5302,45.9359 -85.521,45.9375 -85.5184,45.937 -85.5124,45.9373 -85.5072,45.9371 -85.5025,45.9388 -85.4985,45.941 -85.4942,45.9468 -85.4914,45.9509 -85.4865,45.9549 -85.4831,45.9575 -85.4749,45.9628 -85.4694,45.9681 -85.4619,45.9734 -85.4507,45.985 -85.4457,45.9913 -85.4422,45.9962 -85.4364,46.0043 -85.4295,46.0105 -85.4252,46.0163 -85.4212,46.018 -85.4185,46.0193 -85.4163,46.0225 -85.4127,46.0283 -85.4097,46.0347 -85.4061,46.0401 -85.4032,46.0446 -85.3997,46.0481 -85.3936,46.0516 -85.3908,46.0543 -85.388,46.0574 -85.3826,46.0605 -85.3785,46.0626 -85.3705,46.0651 -85.3632,46.0658 -85.3541,46.0656 -85.3416,46.0648 -85.3312,46.0631 -85.3086,46.0578 -85.3028,46.0563 -85.2996,46.0548 -85.295,46.0537 -85.2931,46.0532 -85.2878,46.054 -85.2835,46.0598 -85.2827,46.0625 -85.2792,46.0657 -85.2772,46.066 -85.2719,46.0668 -85.2667,46.0667 -85.2602,46.0655 -85.2563,46.064 -85.2524,46.0635 -85.2486,46.0624 -85.2382,46.0598 -85.2363,46.0584 -85.2352,46.0561 -85.234,46.0533 -85.2322,46.0519 -85.2317,46.0491 -85.2284,46.049 -85.2236,46.0516 -85.2216,46.0525 -85.2169,46.0546 -85.2135,46.0563 -85.2048,46.0597 -85.2027,46.0606 -85.1988,46.0614 -85.1915,46.0616 -85.1863,46.0615 -85.1778,46.0598 -85.1713,46.0587 -85.1617,46.0561 -85.1572,46.0542 -85.1527,46.0526 -85.1508,46.0508 -85.149,46.0484 -85.1453,46.0455 -85.1428,46.0432 -85.1364,46.0411 -85.1325,46.0406 -85.1255,46.0371 -85.1222,46.0361 -85.1158,46.0345 -85.1119,46.0335 -85.0918,46.0306 -85.0846,46.0304 -85.0774,46.0297 -85.0709,46.0286 -85.0606,46.0255 -85.0514,46.0252 -85.0482,46.0251 -85.045,46.0236 -85.0412,46.0207 -85.0387,46.0197 -85.0341,46.0187 -85.0315,46.0195 -85.0344,46.0251 -85.0349,46.0274 -85.0322,46.0283 -85.029,46.0268 -85.0226,46.0243 -85.0182,46.0223 -85.0091,46.0197 -84.9943,46.016 -84.9795,46.0119 -84.9712,46.0084 -84.9508,45.9995 -84.9367,45.994 -84.9291,45.9897 -84.9246,45.9881 -84.9156,45.9856 -84.9046,45.9843 -84.8981,45.9836 -84.889,45.9824 -84.8799,45.9803 -84.8696,45.9781 -84.8252,45.9468 -84.8104,45.9331 -84.7968,45.9202 -84.7839,45.9083 -84.7652,45.8949 -84.7661,45.8903 -84.7625,45.8865 -84.7599,45.8851 -84.7547,45.8854 -84.7514,45.8862 -84.748,45.8874 -84.744,45.8891 -84.7407,45.8886 -84.7395,45.8867 -84.7378,45.8839 -84.7334,45.8805 -84.724,45.8752 -84.7151,45.8707 -84.705,45.8653 -84.6993,45.8633 -84.6942,45.8613 -84.6914,45.8543 -84.6888,45.8451 -84.6847,45.8381 -84.6816,45.8348 -84.6784,45.8342 -84.6719,45.834 -84.6693,45.8334 -84.6634,45.8332 -84.6564,45.8312 -84.6519,45.8292 -84.6488,45.8272 -84.6469,45.8258 -84.6445,45.8239 -84.6401,45.821 -84.6337,45.8185 -84.628,45.8164 -84.6228,45.8153 -84.6177,45.8138 -84.6101,45.8098 -84.6083,45.808 -84.6044,45.8074 -84.6017,45.8086 -84.5963,45.8117 -84.5929,45.8129 -84.5862,45.8145 -84.5784,45.8142 -84.5712,45.8144 -84.5666,45.8152 -84.5626,45.8155 -84.5599,45.8163 -84.5579,45.8172 -84.5558,45.8198 -84.5556,45.8226 -84.5587,45.8254 -84.5611,45.8275 -84.5646,45.8306 -84.5715,45.8369 -84.574,45.8393 -84.5758,45.8416 -84.5761,45.8467 -84.5744,45.8512 -84.5733,45.8585 -84.575,45.8618 -84.5798,45.8674 -84.5822,45.8703 -84.5846,45.8735 -84.5851,45.8768 -84.5849,45.8791 -84.5847,45.8823 -84.5819,45.8844 -84.5798,45.8857 -84.5753,45.8851 -84.5721,45.8832 -84.5695,45.8831 -84.5681,45.8853 -84.5685,45.889 -84.5708,45.8928 -84.5739,45.8952 -84.5775,45.8994 -84.5805,45.9036 -84.5841,45.9088 -84.5851,45.9121 -84.5843,45.9152 -84.5819,45.9211 -84.5775,45.9269 -84.5752,45.9314 -84.5718,45.934 -84.5677,45.9362 -84.5629,45.9383 -84.5557,45.9385 -84.5485,45.9383 -84.5452,45.9386 -84.5405,45.9407 -84.5396,45.9444 -84.5399,45.9494 -84.5401,45.9545 -84.5393,45.9572 -84.5376,45.9617 -84.5346,45.968 -84.5352,45.9767 -84.5392,45.986 -84.5396,45.9897 -84.5397,45.9971 -84.5367,46.002 -84.5339,46.0047 -84.5283,46.0095 -84.5234,46.0134 -84.5153,46.0164 -84.5099,46.0185 -84.5052,46.0197 -84.5025,46.0205 -84.4975,46.0176 -84.4912,46.0146 -84.4848,46.0116 -84.4797,46.0096 -84.4754,46.0062 -84.4703,46.0042 -84.462,46.0012 -84.4601,46.0002 -84.4557,45.9968 -84.4546,45.994 -84.4528,45.9926 -84.4488,45.9924 -84.4461,45.9937 -84.4434,45.9945 -84.4414,45.9949 -84.4382,45.9948 -84.4349,45.9951 -84.4303,45.9941 -84.4278,45.9935 -84.4238,45.9934 -84.4198,45.9941 -84.4172,45.994 -84.4099,45.9956 -84.4047,45.9954 -84.3969,45.9933 -84.392,45.9895 -84.3889,45.9866 -84.3865,45.9833 -84.3854,45.9814 -84.3843,45.9782 -84.3833,45.974 -84.3822,45.9717 -84.38,45.9657 -84.3795,45.9633 -84.3798,45.9601 -84.3788,45.9551 -84.3792,45.9505 -84.3807,45.9473 -84.3816,45.9437 -84.3826,45.9392 -84.3806,45.938 -84.3782,45.9367 -84.3736,45.9365 -84.3684,45.9373 -84.3649,45.9394 -84.362,45.943 -84.361,45.948 -84.3614,45.9512 -84.3599,45.9544 -84.3589,45.958 -84.3554,45.9611 -84.3508,45.9614 -84.3456,45.9612 -84.3423,45.9611 -84.3372,45.9595 -84.3358,45.958 -84.3335,45.9557 -84.3344,45.9534 -84.3308,45.9478 -84.3229,45.9406 -84.3171,45.9386 -84.3132,45.938 -84.31,45.9374 -84.3048,45.9372 -84.3032,45.9404 -84.3036,45.9436 -84.308,45.947 -84.3105,45.9484 -84.313,45.9499 -84.3173,45.9533 -84.3151,45.9573 -84.3111,45.9581 -84.3077,45.9598 -84.3081,45.9621 -84.3105,45.9654 -84.3128,45.9696 -84.3138,45.9742 -84.3121,45.9783 -84.3089,45.9782 -84.3056,45.9776 -84.3025,45.9752 -84.3014,45.9733 -84.2982,45.9718 -84.2962,45.9722 -84.2929,45.9721 -84.2883,45.9733 -84.2844,45.9727 -84.2818,45.9726 -84.2773,45.9715 -84.2753,45.971 -84.2729,45.9686 -84.2703,45.9676 -84.2677,45.9675 -84.2606,45.9667 -84.2521,45.966 -84.2444,45.9643 -84.2367,45.9613 -84.2304,45.9583 -84.2254,45.9553 -84.2223,45.952 -84.2198,45.951 -84.2148,45.9476 -84.2124,45.9448 -84.2106,45.9433 -84.2057,45.939 -84.2019,45.937 -84.1985,45.9378 -84.1996,45.9406 -84.2,45.9447 -84.201,45.9484 -84.2033,45.9522 -84.2063,45.956 -84.2074,45.9588 -84.2026,45.9613 -84.1954,45.9611 -84.1928,45.961 -84.1849,45.9616 -84.1796,45.9623 -84.1743,45.9626 -84.171,45.9624 -84.1659,45.9613 -84.1607,45.9607 -84.1536,45.959 -84.1505,45.9571 -84.1474,45.9547 -84.1436,45.9527 -84.1406,45.9498 -84.1394,45.9479 -84.137,45.9455 -84.1332,45.9431 -84.1306,45.9426 -84.1281,45.942 -84.1285,45.9452 -84.1296,45.9476 -84.132,45.9509 -84.1344,45.9532 -84.1381,45.9557 -84.1399,45.958 -84.1371,45.9602 -84.1339,45.9601 -84.1294,45.9585 -84.1257,45.9552 -84.1207,45.9523 -84.1188,45.9513 -84.1162,45.9516 -84.1101,45.9532 -84.105,45.9517 -84.0994,45.9482 -84.0962,45.9476 -84.0935,45.948 -84.0902,45.9483 -84.0817,45.948 -84.0793,45.9456 -84.0769,45.9428 -84.0732,45.939 -84.0701,45.937 -84.0682,45.936 -84.065,45.935 -84.0617,45.9362 -84.0621,45.9385 -84.065,45.9432 -84.0662,45.9451 -84.0627,45.9473 -84.0582,45.9471 -84.055,45.9456 -84.0519,45.9436 -84.0481,45.9417 -84.0424,45.9396 -84.0384,45.9399 -84.0351,45.9407 -84.0331,45.9411 -84.029,45.9427 -84.0253,45.9403 -84.021,45.936 -84.0192,45.9346 -84.017,45.9377 -84.0161,45.9399 -84.0166,45.9422 -84.0178,45.9441 -84.0168,45.9473 -84.0128,45.949 -84.0095,45.9484 -84.0057,45.9478 -83.9978,45.9475 -83.9927,45.9454 -83.9896,45.9439 -83.9877,45.9429 -83.9846,45.9405 -83.9793,45.9417 -83.9753,45.9425 -83.9733,45.9428 -83.9712,45.9437 -83.9692,45.944 -83.9652,45.9448 -83.9598,45.9443 -83.953,45.9425 -83.948,45.9395 -83.9398,45.9355 -83.9334,45.933 -83.9277,45.9309 -83.9206,45.9293 -83.9116,45.9271 -83.9058,45.9264 -83.8999,45.9257 -83.8947,45.9259 -83.8901,45.9262 -83.8802,45.9263 -83.87,45.9231 -83.8636,45.9215 -83.8591,45.9195 -83.8566,45.9185 -83.8547,45.9175 -83.8521,45.9178 -83.8444,45.9239 -83.8421,45.928 -83.8399,45.9306 -83.8378,45.9324 -83.8324,45.934 -83.8225,45.9349 -83.81,45.9344 -83.8029,45.9332 -83.799,45.9331 -83.7944,45.9333 -83.7911,45.9332 -83.7857,45.9357 -83.7789,45.9387 -83.7743,45.9389 -83.7717,45.9388 -83.7692,45.9364 -83.7654,45.9354 -83.7621,45.9352 -83.7596,45.9342 -83.7578,45.9323 -83.7561,45.9286 -83.7537,45.9262 -83.7521,45.9302 -83.7518,45.933 -83.7504,45.9347 -83.7487,45.9388 -83.7471,45.9419 -83.7502,45.9444 -83.7519,45.9481 -83.7527,45.9532 -83.7498,45.9567 -83.748,45.9631 -83.7056,46.0731 -83.7199,46.073 -83.772,46.042 -83.8053,46.0183 -83.8358,46.018 -83.9576,46.1505 -83.9706,46.1678 -83.9834,46.1876 -84.0384,46.3415 -84.0411,46.3722 -84.0352,46.3923 -84.0253,46.4128 -84.0006,46.4539 -84.0059,46.4763 -84.1497,46.4451 -84.1552,46.4508 -84.1588,46.4546 -84.1697,46.4596 -84.184,46.462 -84.1985,46.4625 -84.2126,46.4603 -84.2274,46.4567 -84.2383,46.4525 -84.2492,46.4484 -84.2632,46.4466 -84.2721,46.4423 -84.2886,46.4342 -84.2962,46.4295 -84.2992,46.425 -84.301,46.4182 -84.3023,46.4099 -84.3046,46.4059 -84.3101,46.4029 -84.3208,46.4015 -84.3293,46.4022 -84.3371,46.4043 -84.3429,46.405 -84.3455,46.406 -84.3497,46.4025 -84.3514,46.398 -84.3516,46.3957 -84.355,46.3935 -84.3604,46.3928 -84.3676,46.3926 -84.373,46.3919 -84.379,46.3907 -84.3824,46.3899 -84.3915,46.3829 -84.399,46.3791 -84.4098,46.3762 -84.4199,46.3739 -84.4245,46.374 -84.4309,46.3756 -84.4374,46.3782 -84.4399,46.3801 -84.4442,46.3844 -84.4458,46.3895 -84.4468,46.3936 -84.4451,46.3977 -84.4437,46.4 -84.4416,46.4008 -84.4396,46.4016 -84.4377,46.4007 -84.4358,46.3997 -84.434,46.3964 -84.4309,46.3935 -84.4278,46.3916 -84.4252,46.391 -84.4226,46.3905 -84.4185,46.3917 -84.4202,46.3964 -84.4219,46.3992 -84.4275,46.4044 -84.4358,46.4084 -84.4501,46.4128 -84.4626,46.4257 -84.47,46.4322 -84.4753,46.4369 -84.4796,46.4393 -84.4833,46.4422 -84.4854,46.4437 -84.488,46.4455 -84.4919,46.4474 -84.4937,46.4483 -84.502,46.4507 -84.5065,46.4518 -84.5111,46.4528 -84.5215,46.455 -84.5241,46.4551 -84.5321,46.454 -84.5382,46.452 -84.543,46.4494 -84.5546,46.4443 -84.5643,46.4377 -84.5857,46.4256 -84.5987,46.4197 -84.6243,46.4123 -84.6382,46.4109 -84.6508,46.41 -84.6594,46.4107 -84.6665,46.4119 -84.6781,46.4164 -84.6852,46.419 -84.6903,46.4219 -84.6985,46.4263 -84.7042,46.4302 -84.71,46.4327 -84.7131,46.4346 -84.719,46.4353 -84.7237,46.4345 -84.7264,46.4341 -84.7298,46.4329 -84.7371,46.4322 -84.7509,46.4322 -84.76,46.4348 -84.7671,46.4373 -84.7708,46.4402 -84.7731,46.4453 -84.7766,46.4523 -84.7785,46.4538 -84.7851,46.454 -84.7919,46.451 -84.7975,46.4466 -84.8036,46.4436 -84.8116,46.4425 -84.8163,46.4422 -84.8228,46.4429 -84.8287,46.444 -84.8353,46.4442 -84.838,46.4438 -84.8427,46.4426 -84.8499,46.4428 -84.8573,46.4417 -84.8651,46.4429 -84.8792,46.4498 -84.8867,46.4555 -84.8947,46.4636 -84.8988,46.4715 -84.8987,46.483 -84.8987,46.4931 -84.8982,46.4999 -84.8926,46.5043 -84.8825,46.5081 -84.871,46.5114 -84.8661,46.515 -84.8673,46.5173 -84.8697,46.521 -84.8776,46.5305 -84.881,46.5388 -84.8859,46.5551 -84.8843,46.5683 -84.8788,46.5916 -84.8728,46.6111 -84.8707,46.6225 -84.8713,46.6335 -84.8729,46.6497 -84.8741,46.6603 -84.8697,46.6771 -84.8617,46.6865 -84.8513,46.6944 -84.8421,46.7028 -84.8329,46.7113 -84.8181,46.7236 -84.8069,46.7315 -84.8027,46.7351 -84.8032,46.7374 -84.8065,46.7384 -84.8097,46.7394 -84.8202,46.7412 -84.8268,46.7418 -84.8442,46.7392 -84.8618,46.7343 -84.8753,46.7306 -84.8821,46.7285 -84.9022,46.7259 -84.9148,46.7259 -84.9287,46.7263 -84.9372,46.7275 -84.9629,46.7302 -84.9806,46.7326 -85.0018,46.7337 -85.0152,46.7309 -85.0326,46.7283 -85.0421,46.7258 -85.0609,46.7218 -85.0689,46.7216 -85.0772,46.7227 -85.082,46.7234 -85.0913,46.7241 -85.0972,46.7243 -85.1095,46.7196 -85.1263,46.7156 -85.1649,46.703 -85.2367,46.6776 -85.2652,46.6679 -85.2848,46.6611 -85.3153,46.6492 -85.3368,46.6443 -85.351,46.6401 -85.3696,46.6388 -85.3788,46.64 -85.4005,46.6416 -85.4274,46.646 -85.459,46.6492 -85.4741,46.6524 -85.4881,46.6509 -85.5186,46.649 -85.5438,46.6493 -85.5769,46.6488 -85.6,46.6499 -85.6166,46.6504 -85.6362,46.6536 -85.6579,46.6565 -85.6764,46.6584 -85.6981,46.6604 -85.7047,46.6608 -85.71,46.6611 -85.722,46.6601 -85.7346,46.659 -85.7473,46.6566 -85.7699,46.6544 -85.8033,46.6503 -85.846,46.6436 -85.8789,46.6352 -85.901,46.6303 -85.9177,46.6266 -85.9277,46.625 -85.9438,46.6213 -85.957,46.623 -85.9725,46.6298 -85.9783,46.6336 -85.9847,46.6374 -85.9906,46.6389 -85.9952,46.639 -86.0074,46.6343 -86.0135,46.6312 -86.023,46.6264 -86.0325,46.622 -86.0521,46.6124 -86.0806,46.598 -86.1132,46.5813 -86.1374,46.5736 -86.1596,46.565 -86.1927,46.5506 -86.2189,46.5416 -86.2417,46.5347 -86.2564,46.5319 -86.2726,46.5244 -86.2793,46.5223 -86.2846,46.521 -86.2906,46.5207 -86.2931,46.5235 -86.2983,46.5268 -86.3008,46.5292 -86.3047,46.5293 -86.3095,46.5271 -86.317,46.5222 -86.3239,46.5141 -86.3369,46.5048 -86.3561,46.4891 -86.376,46.474 -86.386,46.471 -86.4,46.4676 -86.4048,46.464 -86.4032,46.4553 -86.406,46.4512 -86.4212,46.4373 -86.4287,46.4306 -86.4467,46.426 -86.4561,46.422 -86.4531,46.4165 -86.456,46.4101 -86.4609,46.4047 -86.4663,46.4002 -86.4738,46.3963 -86.4785,46.3936 -86.4806,46.3905 -86.4853,46.3883 -86.4912,46.3884 -86.4971,46.3894 -86.5029,46.3932 -86.5007,46.3973 -86.4974,46.3981 -86.494,46.3999 -86.4932,46.4031 -86.4944,46.4068 -86.4988,46.4128 -86.5033,46.4143 -86.5118,46.4159 -86.5185,46.4146 -86.5298,46.4126 -86.5403,46.4132 -86.5449,46.4143 -86.5527,46.4167 -86.561,46.4219 -86.5713,46.429 -86.5795,46.437 -86.5807,46.4407 -86.5832,46.443 -86.589,46.4463 -86.5968,46.4506 -86.6066,46.4526 -86.6218,46.452 -86.6331,46.4504 -86.6432,46.446 -86.6493,46.4402 -86.6543,46.4311 -86.6552,46.4261 -86.6567,46.4211 -86.6609,46.4157 -86.6676,46.4121 -86.6829,46.4088 -86.6942,46.4081 -86.7021,46.4078 -86.7185,46.4104 -86.7256,46.4146 -86.7293,46.4193 -86.7298,46.4243 -86.7323,46.429 -86.744,46.4333 -86.7459,46.4338 -86.7498,46.4362 -86.7603,46.4378 -86.7629,46.4374 -86.7662,46.4374 -86.7708,46.4384 -86.778,46.4413 -86.785,46.446 -86.7901,46.4502 -86.7899,46.4562 -86.7923,46.4617 -86.7962,46.4619 -86.807,46.4744 -86.8108,46.4804 -86.8125,46.486 -86.8137,46.4901 -86.8169,46.4925 -86.8201,46.4944 -86.826,46.4954 -86.8326,46.496 -86.8359,46.4969 -86.8398,46.4975 -86.8438,46.498 -86.849,46.5004 -86.8535,46.5023 -86.8575,46.5024 -86.8635,46.5002 -86.8669,46.4961 -86.8717,46.493 -86.8763,46.4926 -86.8789,46.4931 -86.8842,46.4928 -86.8915,46.4915 -86.8963,46.4875 -86.9037,46.4853 -86.9103,46.4841 -86.9169,46.4837 -86.9196,46.4838 -86.9236,46.4825 -86.9256,46.4802 -86.9277,46.4784 -86.9297,46.4771 -86.9418,46.4709 -86.9518,46.4678 -86.9578,46.4675 -86.9637,46.4671 -86.9764,46.4641 -86.9889,46.4639 -87.0001,46.465 -87.0028,46.4651 -87.0086,46.4688 -87.0124,46.4712 -87.0151,46.4699 -87.0178,46.4676 -87.0219,46.4658 -87.0279,46.4646 -87.0391,46.4629 -87.0484,46.4631 -87.0603,46.4619 -87.0676,46.4607 -87.0841,46.4591 -87.1059,46.4604 -87.1355,46.4627 -87.1651,46.4645 -87.1914,46.4672 -87.2013,46.4679 -87.2092,46.4684 -87.2112,46.4694 -87.2137,46.4717 -87.2188,46.4778 -87.2239,46.4847 -87.2328,46.494 -87.2358,46.5032 -87.2337,46.5073 -87.2303,46.5105 -87.2263,46.5127 -87.2255,46.515 -87.23,46.5192 -87.2357,46.5271 -87.2362,46.5335 -87.2353,46.5408 -87.2332,46.5454 -87.2297,46.5485 -87.227,46.5522 -87.2275,46.5568 -87.2294,46.5586 -87.2308,46.5564 -87.2322,46.5536 -87.2369,46.5519 -87.2402,46.551 -87.2462,46.5511 -87.2481,46.552 -87.2507,46.5535 -87.2533,46.5558 -87.2565,46.5604 -87.2577,46.5632 -87.2604,46.5623 -87.2644,46.5601 -87.2664,46.5592 -87.269,46.5597 -87.275,46.5602 -87.2789,46.5608 -87.2821,46.5645 -87.284,46.5668 -87.2879,46.5705 -87.293,46.5743 -87.2996,46.5767 -87.3048,46.5781 -87.3133,46.5819 -87.3165,46.5843 -87.3191,46.5875 -87.3176,46.5934 -87.3155,46.5975 -87.314,46.603 -87.3159,46.6049 -87.3198,46.6059 -87.3257,46.6073 -87.3323,46.6088 -87.3369,46.6107 -87.3401,46.6135 -87.344,46.6163 -87.3485,46.621 -87.351,46.6242 -87.3561,46.6312 -87.3606,46.6349 -87.369,46.6419 -87.3682,46.6483 -87.3674,46.652 -87.3673,46.6547 -87.3705,46.6575 -87.3725,46.6585 -87.3758,46.6594 -87.3809,46.6664 -87.3841,46.6692 -87.386,46.6715 -87.3886,46.6734 -87.3925,46.6771 -87.399,46.6809 -87.4022,46.6837 -87.4081,46.6865 -87.4133,46.6902 -87.4198,46.6931 -87.4237,46.6968 -87.4256,46.6991 -87.4281,46.7037 -87.4299,46.7102 -87.4317,46.7148 -87.4353,46.7286 -87.4372,46.7328 -87.4363,46.7387 -87.4369,46.742 -87.4341,46.746 -87.4327,46.7497 -87.4353,46.7529 -87.4372,46.7539 -87.4425,46.7558 -87.4445,46.7563 -87.4484,46.7573 -87.4575,46.7643 -87.4627,46.7689 -87.4678,46.7727 -87.4731,46.7764 -87.4763,46.7774 -87.4783,46.7783 -87.4816,46.7784 -87.4856,46.7784 -87.4889,46.7785 -87.4916,46.778 -87.4969,46.7776 -87.4995,46.7791 -87.5028,46.78 -87.5054,46.7828 -87.5079,46.7856 -87.5105,46.7898 -87.5124,46.793 -87.5136,46.7981 -87.5187,46.805 -87.5233,46.8069 -87.5312,46.8088 -87.5332,46.8084 -87.5352,46.8066 -87.5355,46.803 -87.5358,46.8007 -87.5361,46.7965 -87.5382,46.7947 -87.5415,46.7934 -87.5442,46.7925 -87.5475,46.793 -87.5535,46.794 -87.562,46.7964 -87.5719,46.7988 -87.5784,46.804 -87.5796,46.8081 -87.5795,46.8127 -87.5781,46.8159 -87.5773,46.8195 -87.5799,46.8214 -87.5812,46.8237 -87.5831,46.8251 -87.5844,46.8279 -87.5863,46.8311 -87.5883,46.8316 -87.5943,46.8312 -87.5996,46.8295 -87.6056,46.8305 -87.6102,46.8319 -87.6134,46.8333 -87.616,46.8361 -87.6192,46.8398 -87.6237,46.8468 -87.627,46.8482 -87.6316,46.8491 -87.6369,46.8501 -87.6435,46.8502 -87.6501,46.8521 -87.6547,46.854 -87.6586,46.8573 -87.6626,46.8587 -87.6691,46.8606 -87.6751,46.8607 -87.6858,46.8567 -87.6959,46.8541 -87.6999,46.8541 -87.7051,46.8551 -87.711,46.8588 -87.7208,46.8645 -87.7274,46.8678 -87.7346,46.8724 -87.7412,46.8748 -87.7478,46.8758 -87.7591,46.8764 -87.7796,46.8762 -87.7962,46.8764 -87.8089,46.876 -87.8175,46.8743 -87.8275,46.8726 -87.8349,46.8717 -87.8388,46.8722 -87.8481,46.8728 -87.8587,46.8734 -87.8719,46.8758 -87.8838,46.8779 -87.8838,46.881 -87.9056,46.8844 -87.9115,46.8877 -87.9175,46.8878 -87.9235,46.8869 -87.9308,46.8856 -87.9422,46.883 -87.9628,46.88 -87.9828,46.8774 -87.9995,46.8748 -88.0148,46.8731 -88.0274,46.8705 -88.0321,46.8683 -88.0341,46.8664 -88.0375,46.8628 -88.0416,46.8605 -88.0476,46.8601 -88.0529,46.8584 -88.0543,46.8561 -88.0551,46.8455 -88.0612,46.8419 -88.0725,46.8383 -88.0786,46.8324 -88.0834,46.8279 -88.0861,46.8206 -88.0909,46.8142 -88.097,46.8078 -88.1017,46.8037 -88.1078,46.8001 -88.1158,46.7942 -88.1252,46.7906 -88.1326,46.787 -88.1385,46.7866 -88.1418,46.7876 -88.1424,46.7913 -88.1384,46.7949 -88.1337,46.7967 -88.1297,46.7989 -88.125,46.8021 -88.1189,46.8062 -88.1122,46.8112 -88.1095,46.8144 -88.1054,46.8212 -88.1033,46.8253 -88.0999,46.8299 -88.0979,46.8317 -88.0952,46.8335 -88.0938,46.8367 -88.0931,46.8413 -88.0909,46.8491 -88.0848,46.8573 -88.0787,46.8646 -88.0733,46.8686 -88.0532,46.8776 -88.0398,46.8807 -88.0224,46.8879 -88.0097,46.8956 -87.9982,46.9046 -87.988,46.9146 -87.9826,46.921 -87.9792,46.9228 -87.9771,46.9269 -87.9797,46.9288 -87.9844,46.9298 -87.9877,46.9298 -87.9937,46.9308 -87.9996,46.9304 -88.0037,46.9295 -88.0063,46.9295 -88.0144,46.9255 -88.021,46.9237 -88.027,46.9233 -88.0317,46.922 -88.035,46.9215 -88.0365,46.9165 -88.0399,46.9124 -88.0453,46.9092 -88.0553,46.9066 -88.066,46.9025 -88.0753,46.8994 -88.0874,46.8949 -88.0927,46.8927 -88.0981,46.8895 -88.1035,46.8854 -88.1156,46.8777 -88.1451,46.8601 -88.1673,46.8465 -88.18,46.8398 -88.1888,46.8334 -88.1981,46.8294 -88.2061,46.8294 -88.21,46.8304 -88.2127,46.8313 -88.2153,46.8341 -88.2179,46.8378 -88.2199,46.8383 -88.2232,46.8378 -88.2259,46.8365 -88.2299,46.8347 -88.2359,46.8297 -88.2413,46.8256 -88.2434,46.8215 -88.2414,46.8187 -88.2388,46.8178 -88.2335,46.8163 -88.2322,46.8145 -88.2302,46.8126 -88.2323,46.8062 -88.2344,46.8026 -88.2418,46.7971 -88.2492,46.7894 -88.26,46.7775 -88.2668,46.7693 -88.2809,46.7543 -88.2938,46.7397 -88.3031,46.7338 -88.3065,46.7307 -88.3099,46.7279 -88.3118,46.7275 -88.3185,46.7262 -88.3218,46.7266 -88.3258,46.7276 -88.3291,46.7285 -88.331,46.7299 -88.3323,46.7322 -88.3336,46.7341 -88.3336,46.7373 -88.3315,46.74 -88.3302,46.7418 -88.3268,46.7455 -88.3248,46.7473 -88.3221,46.7491 -88.3188,46.7505 -88.3141,46.7509 -88.3115,46.7513 -88.3082,46.7518 -88.3055,46.7545 -88.3034,46.7572 -88.3053,46.7618 -88.3092,46.772 -88.3111,46.7775 -88.3129,46.7844 -88.3181,46.7945 -88.3179,46.8041 -88.3224,46.8161 -88.3237,46.818 -88.3236,46.8212 -88.3229,46.8235 -88.3202,46.8285 -88.3175,46.8317 -88.3161,46.834 -88.3141,46.8367 -88.3121,46.8404 -88.312,46.8431 -88.3139,46.8473 -88.3139,46.8509 -88.3132,46.8537 -88.3111,46.8573 -88.3104,46.8596 -88.3084,46.8628 -88.307,46.8665 -88.3027,46.8745 -88.2993,46.8807 -88.2933,46.8939 -88.2893,46.9098 -88.2842,46.9195 -88.2817,46.929 -88.2826,46.9379 -88.2845,46.9466 -88.2883,46.9568 -88.2948,46.9655 -88.3,46.9697 -88.3119,46.9776 -88.3171,46.9818 -88.3198,46.9845 -88.3289,46.9933 -88.3362,46.9989 -88.3428,47.0012 -88.3448,46.9999 -88.3475,46.9976 -88.3489,46.9958 -88.3555,46.9935 -88.3588,46.9963 -88.3601,46.9986 -88.3581,47.0023 -88.3572,47.0133 -88.3538,47.0206 -88.3517,47.027 -88.3503,47.0339 -88.3509,47.0376 -88.3515,47.0436 -88.3527,47.0486 -88.3553,47.0546 -88.3558,47.0647 -88.3564,47.0698 -88.3583,47.0725 -88.3603,47.0744 -88.4054,47.0862 -88.4301,47.0859 -88.4407,47.0873 -88.4652,47.0971 -88.4743,47.1128 -88.475,47.1165 -88.4769,47.1202 -88.4789,47.1239 -88.4808,47.1253 -88.4848,47.1299 -88.4847,47.1345 -88.4833,47.1386 -88.482,47.1418 -88.4792,47.1473 -88.4752,47.1505 -88.4691,47.1569 -88.467,47.1656 -88.4662,47.1711 -88.4675,47.1762 -88.4688,47.1808 -88.4707,47.184 -88.474,47.19 -88.4785,47.1984 -88.49,47.1933 -88.506,47.192 -88.5187,47.1889 -88.5254,47.1852 -88.5335,47.1802 -88.549,47.1679 -88.5685,47.1561 -88.5819,47.1456 -88.6015,47.1255 -88.6048,47.1232 -88.6162,47.1219 -88.6262,47.1224 -88.6368,47.1211 -88.6496,47.1161 -88.6583,47.1097 -88.6657,47.1015 -88.6705,47.0937 -88.6745,47.0878 -88.6805,47.0864 -88.6999,47.0814 -88.7213,47.076 -88.732,47.0706 -88.7407,47.0605 -88.7468,47.0514 -88.7529,47.0371 -88.7563,47.0271 -88.7591,47.0179 -88.7631,47.0087 -88.7705,47.0009 -88.7755,46.9978 -88.7803,46.9942 -88.796,46.9827 -88.8046,46.9781 -88.816,46.9731 -88.8333,46.9668 -88.842,46.9631 -88.8586,46.9618 -88.8639,46.9678 -88.8659,46.9719 -88.8712,46.9729 -88.8738,46.972 -88.8805,46.9683 -88.8899,46.9642 -88.9005,46.9587 -88.9232,46.9524 -88.9318,46.951 -88.9404,46.9534 -88.9471,46.9566 -88.9557,46.9598 -88.9603,46.9621 -88.9637,46.9635 -88.9676,46.9635 -88.9723,46.9626 -88.979,46.9576 -88.9923,46.9498 -89.0037,46.9407 -89.0123,46.932 -89.031,46.9146 -89.0484,46.9004 -89.0617,46.8894 -89.087,46.8775 -89.1123,46.8647 -89.1614,46.8487 -89.1787,46.8391 -89.1913,46.8322 -89.2013,46.829 -89.2132,46.8245 -89.2338,46.8162 -89.2551,46.8126 -89.2736,46.8066 -89.2889,46.8062 -89.3041,46.8066 -89.3147,46.808 -89.33,46.8098 -89.34,46.8098 -89.3499,46.8103 -89.3612,46.8089 -89.3711,46.8071 -89.4076,46.7984 -89.4255,46.7947 -89.4421,46.7915 -89.4533,46.7896 -89.4633,46.7905 -89.4746,46.7928 -89.4839,46.7956 -89.5004,46.801 -89.5157,46.801 -89.5336,46.7992 -89.5628,46.7977 -89.5953,46.7945 -89.6006,46.7922 -89.6284,46.7921 -89.6383,46.7907 -89.6463,46.7893 -89.6549,46.787 -89.6642,46.7833 -89.6741,46.7783 -89.684,46.7732 -89.7064,46.7575 -89.7236,46.7423 -89.7305,46.7371 -89.7236,46.7364 5,-5.0,United States -100.3964,45.97 -100.3921,45.9685 -100.3877,45.9626 -100.3959,45.9696 -100.3964,45.97 5,-5.0,United States -100.439,46.0032 -100.4152,45.98 -100.4214,45.9833 -100.436,45.9998 -100.439,46.0032 6,-5.0,United States -100.44,46.4523 -100.4344,46.4619 -100.4334,46.4641 -100.4342,46.4622 -100.4394,46.4533 -100.44,46.4523 11,-5.0,United States -100.4411,46.565 -100.4257,46.5616 -100.4123,46.5525 -100.4099,46.5483 -100.4121,46.5447 -100.4148,46.5429 -100.4211,46.541 -100.4192,46.5476 -100.4304,46.5603 -100.4401,46.5646 -100.4411,46.565 4,-5.0,United States -100.4609,46.0373 -100.4589,46.0325 -100.4589,46.0324 -100.4609,46.0373 5,-5.0,United States -100.4618,46.0394 -100.461,46.0375 -100.4609,46.0373 -100.461,46.0375 -100.4618,46.0394 7,-5.0,United States -100.4686,46.0739 -100.4671,46.0716 -100.4625,46.0587 -100.4625,46.0518 -100.4623,46.0484 -100.4679,46.0711 -100.4686,46.0739 7,-5.0,United States -100.5999,46.6501 -100.592,46.6496 -100.5855,46.6462 -100.5849,46.6427 -100.5907,46.6486 -100.5945,46.6492 -100.5999,46.6501 5,-5.0,United States -100.6101,42.0475 -100.5934,42.0474 -100.5945,42.0474 -100.5999,42.0474 -100.6101,42.0475 5,-5.0,United States -100.6919,42.048 -100.6865,42.048 -100.6101,42.0475 -100.6865,42.048 -100.6919,42.048 5,-5.0,United States -104.8545,30.5981 -104.8475,30.6019 -104.8344,30.6089 -104.8475,30.6019 -104.8545,30.5981 5,-5.0,United States -108.8952,34.1823 -108.8952,34.1837 -108.895,34.1306 -108.8951,34.1565 -108.8952,34.1823 5,-5.0,United States -108.8967,36.8003 -108.8964,36.8284 -108.8956,36.9023 -108.8966,36.8096 -108.8967,36.8003 4,-5.0,United States -108.8967,36.7943 -108.8967,36.8003 -108.8966,36.7114 -108.8967,36.7943 5,-5.0,United States -108.8971,36.9639 -108.8971,36.9642 -108.8956,36.9023 -108.897,36.9598 -108.8971,36.9639 4,-5.0,United States -110.2988,36.9577 -110.1972,36.9576 -110.2173,36.9576 -110.2988,36.9577 4,-5.0,United States -110.9809,36.9692 -110.9144,36.9691 -110.9262,36.9691 -110.9809,36.9692 4,-5.0,United States -111.2391,36.9747 -111.2323,36.973 -111.2344,36.9735 -111.2391,36.9747 5,-5.0,United States -114.5705,32.6799 -114.5699,32.6819 -114.5693,32.6819 -114.5699,32.6809 -114.5705,32.6799 5,-5.0,United States -114.5806,32.681 -114.5806,32.6811 -114.5731,32.6816 -114.5803,32.681 -114.5806,32.681 14,-5.0,United States -116.4877,45.9754 -116.4857,45.9805 -116.4857,45.9864 -116.4839,45.9891 -116.4844,45.9873 -116.4844,45.9791 -116.4838,45.9764 -116.4831,45.9741 -116.4838,45.9713 -116.4831,45.969 -116.4838,45.9663 -116.4838,45.9667 -116.4872,45.9743 -116.4877,45.9754 5,-5.0,United States -116.5421,45.9573 -116.5421,45.9577 -116.5382,45.9564 -116.5413,45.9574 -116.5421,45.9573 7978,-5.0,United States -86.6742,41.7289 -86.3724,41.7281 -86.0806,41.7302 -85.9155,41.7305 -85.6474,41.7306 -85.5068,41.7253 -85.1452,41.728 -85.0404,41.7288 -84.677,41.7278 -84.6733,41.7278 -84.6451,41.7271 -84.6418,41.6651 -84.6377,41.6652 -84.6386,41.5011 -84.6387,41.4953 -84.6392,41.3966 -84.6393,41.3938 -84.648,41.251 -84.647,41.2283 -84.647,41.2191 -84.6463,40.9639 -84.6464,40.9543 -84.6468,40.9012 -84.6478,40.7032 -84.6478,40.6948 -84.6476,40.5588 -84.6508,40.3269 -84.6512,40.319 -84.6529,40.2865 -84.665,39.9819 -84.6655,39.8912 -84.6656,39.883 -84.6679,39.6979 -84.6697,39.5327 -84.6696,39.5299 -84.6696,39.4783 -84.672,39.2755 -84.6721,39.2689 -84.6752,39.0696 -84.6777,39.0674 -84.6807,39.0662 -84.6832,39.064 -84.684,39.0617 -84.6958,39.0536 -84.6995,39.0514 -84.7031,39.0498 -84.7044,39.048 -84.7075,39.0472 -84.71,39.045 -84.7142,39.0438 -84.7179,39.0421 -84.7198,39.0399 -84.7246,39.0383 -84.729,39.0353 -84.734,39.0309 -84.7367,39.0265 -84.7374,39.0238 -84.7382,39.0216 -84.7377,39.0193 -84.7373,39.0165 -84.7341,39.011 -84.7313,39.0081 -84.728,39.0048 -84.7246,39.002 -84.7236,38.9988 -84.7214,38.9964 -84.7185,38.9945 -84.7157,38.9921 -84.7089,38.9873 -84.706,38.9863 -84.7026,38.9839 -84.6998,38.9811 -84.6966,38.9764 -84.695,38.9732 -84.6915,38.9717 -84.6878,38.9652 -84.6863,38.9606 -84.6853,38.9574 -84.6831,38.9546 -84.6827,38.9519 -84.6817,38.9487 -84.6823,38.9405 -84.6831,38.9369 -84.6844,38.9347 -84.6864,38.932 -84.6877,38.9294 -84.6903,38.9268 -84.6916,38.9241 -84.6936,38.9205 -84.6967,38.9179 -84.6987,38.9153 -84.7018,38.9131 -84.7049,38.9101 -84.7075,38.9079 -84.7094,38.9057 -84.7125,38.9035 -84.7156,38.9009 -84.7181,38.8983 -84.7213,38.8957 -84.7232,38.8935 -84.7245,38.8908 -84.7253,38.8881 -84.7256,38.8831 -84.7246,38.8804 -84.7242,38.8781 -84.7226,38.8753 -84.7215,38.8726 -84.7187,38.8711 -84.7129,38.8691 -84.707,38.8679 -84.7035,38.8673 -84.6911,38.8673 -84.6888,38.8668 -84.6734,38.8662 -84.6698,38.867 -84.6651,38.8668 -84.6581,38.8656 -84.6546,38.8646 -84.6505,38.8631 -84.6471,38.8607 -84.645,38.857 -84.6409,38.8559 -84.6387,38.8536 -84.636,38.8503 -84.6346,38.8443 -84.633,38.8415 -84.6333,38.8366 -84.6347,38.8325 -84.6372,38.8313 -84.6403,38.8296 -84.6428,38.8274 -84.6459,38.8252 -84.649,38.8226 -84.6515,38.8205 -84.6545,38.8192 -84.6576,38.8175 -84.6607,38.8154 -84.6626,38.8132 -84.6657,38.8106 -84.6665,38.8083 -84.669,38.8061 -84.6703,38.8035 -84.6717,38.8004 -84.6725,38.7977 -84.6722,38.7936 -84.6729,38.7904 -84.6725,38.7881 -84.671,38.7844 -84.6689,38.7798 -84.6674,38.7748 -84.6652,38.7724 -84.6637,38.7687 -84.6621,38.766 -84.6623,38.7637 -84.663,38.761 -84.6661,38.7593 -84.6691,38.7585 -84.6727,38.7577 -84.6757,38.7574 -84.6786,38.7575 -84.6816,38.7572 -84.6851,38.7573 -84.6886,38.7579 -84.6916,38.7575 -84.6993,38.7578 -84.7046,38.7576 -84.7088,38.7573 -84.7135,38.757 -84.717,38.758 -84.7206,38.7573 -84.7241,38.7574 -84.7277,38.7566 -84.7343,38.756 -84.7372,38.7556 -84.745,38.755 -84.7491,38.7547 -84.7575,38.7532 -84.7629,38.7525 -84.7664,38.7522 -84.7754,38.7511 -84.7795,38.7504 -84.7825,38.75 -84.7897,38.7489 -84.7938,38.7486 -84.7968,38.7478 -84.8015,38.748 -84.8057,38.7477 -84.8087,38.7474 -84.814,38.7471 -84.8164,38.7472 -84.8193,38.7469 -84.8229,38.7465 -84.8277,38.7453 -84.8325,38.7446 -84.8361,38.7443 -84.8397,38.7426 -84.8451,38.7414 -84.8482,38.7393 -84.8536,38.7377 -84.8566,38.7364 -84.8651,38.7331 -84.8688,38.731 -84.8724,38.7302 -84.8766,38.729 -84.8802,38.7282 -84.8832,38.7278 -84.8862,38.727 -84.8904,38.7258 -84.8933,38.7255 -84.8958,38.7238 -84.8994,38.723 -84.9025,38.7213 -84.9055,38.7205 -84.9115,38.718 -84.9158,38.7163 -84.9182,38.7141 -84.9244,38.7107 -84.9269,38.7085 -84.9305,38.7069 -84.9324,38.7042 -84.9355,38.703 -84.938,38.7008 -84.9411,38.6982 -84.9453,38.696 -84.9473,38.6934 -84.9572,38.686 -84.9608,38.6843 -84.9651,38.6822 -84.967,38.68 -84.9724,38.6784 -84.9765,38.6776 -84.9826,38.6747 -84.9899,38.6713 -84.9936,38.6687 -84.9979,38.6666 -85.0009,38.6644 -85.004,38.6632 -85.0082,38.6611 -85.0136,38.6608 -85.0166,38.66 -85.0201,38.6601 -85.0254,38.6599 -85.0308,38.6591 -85.0373,38.6585 -85.0408,38.6586 -85.0456,38.6583 -85.0496,38.6598 -85.0525,38.6617 -85.0594,38.6642 -85.0623,38.6652 -85.0639,38.6675 -85.0679,38.6695 -85.0736,38.6742 -85.0764,38.6761 -85.0791,38.6799 -85.0831,38.6827 -85.0859,38.6855 -85.0887,38.6875 -85.0921,38.6898 -85.0938,38.6922 -85.096,38.6941 -85.0982,38.6964 -85.1011,38.6983 -85.1061,38.703 -85.1083,38.7054 -85.1118,38.7073 -85.1158,38.7093 -85.1187,38.7103 -85.1222,38.7113 -85.1275,38.711 -85.1305,38.7107 -85.1376,38.7109 -85.1417,38.7101 -85.1453,38.7103 -85.15,38.7095 -85.1548,38.7092 -85.1589,38.7089 -85.1625,38.7081 -85.1667,38.7078 -85.172,38.7071 -85.175,38.7063 -85.1798,38.7046 -85.1823,38.7029 -85.187,38.7031 -85.193,38.7024 -85.1965,38.702 -85.2001,38.7012 -85.2031,38.7009 -85.206,38.701 -85.2089,38.702 -85.2124,38.7025 -85.2154,38.7026 -85.2189,38.7032 -85.2218,38.7038 -85.2248,38.7039 -85.2306,38.705 -85.2335,38.7051 -85.2365,38.7056 -85.243,38.7058 -85.2459,38.7055 -85.2489,38.7056 -85.2518,38.7052 -85.2554,38.7049 -85.2584,38.7045 -85.2625,38.7042 -85.2655,38.7043 -85.2691,38.7031 -85.2721,38.7027 -85.2756,38.7024 -85.2786,38.7011 -85.2829,38.6994 -85.2859,38.6977 -85.289,38.6956 -85.2915,38.6934 -85.294,38.6907 -85.2966,38.6863 -85.2973,38.684 -85.2986,38.6814 -85.2988,38.6791 -85.2995,38.6764 -85.2997,38.6737 -85.3004,38.671 -85.301,38.6606 -85.2994,38.6578 -85.2983,38.655 -85.2967,38.6527 -85.2951,38.6495 -85.2929,38.6462 -85.2925,38.6426 -85.2903,38.6403 -85.2893,38.637 -85.2882,38.6347 -85.2887,38.627 -85.2883,38.6234 -85.2878,38.6211 -85.2879,38.6189 -85.2875,38.6157 -85.2871,38.6129 -85.2861,38.6093 -85.2857,38.6061 -85.2859,38.6034 -85.2855,38.5993 -85.2851,38.5961 -85.2852,38.5934 -85.2848,38.5902 -85.2844,38.5865 -85.2846,38.5834 -85.2837,38.5779 -85.2833,38.5756 -85.2829,38.5724 -85.2812,38.5701 -85.2802,38.5673 -85.2786,38.5641 -85.277,38.5613 -85.2759,38.559 -85.2743,38.5567 -85.2733,38.5535 -85.2717,38.5507 -85.2702,38.5461 -85.2687,38.5411 -85.2682,38.5388 -85.2661,38.5347 -85.2652,38.5301 -85.2647,38.5274 -85.2655,38.5242 -85.2663,38.5206 -85.2682,38.5184 -85.2707,38.5158 -85.2732,38.5127 -85.2764,38.5091 -85.2789,38.5061 -85.2797,38.5029 -85.2833,38.5017 -85.2893,38.4982 -85.293,38.4965 -85.296,38.4957 -85.2984,38.4935 -85.3014,38.4923 -85.3045,38.4901 -85.3075,38.4884 -85.3137,38.4841 -85.3186,38.4797 -85.3224,38.4744 -85.3306,38.4656 -85.3331,38.4629 -85.3357,38.4585 -85.3383,38.4531 -85.3402,38.4509 -85.3427,38.4487 -85.3452,38.4461 -85.3488,38.4439 -85.3545,38.4373 -85.3575,38.4365 -85.3605,38.4352 -85.3641,38.434 -85.3677,38.4332 -85.3742,38.4316 -85.3778,38.4303 -85.3808,38.4291 -85.3838,38.4287 -85.3873,38.4284 -85.3903,38.428 -85.3938,38.4286 -85.3968,38.4273 -85.4038,38.428 -85.4127,38.4269 -85.4198,38.4263 -85.4257,38.4251 -85.4287,38.4238 -85.4323,38.423 -85.4359,38.4227 -85.4395,38.4214 -85.4424,38.4206 -85.4454,38.4194 -85.449,38.4181 -85.4532,38.4169 -85.4569,38.4147 -85.4599,38.4126 -85.4624,38.4104 -85.4643,38.4077 -85.4668,38.4055 -85.4681,38.4028 -85.4706,38.4006 -85.4713,38.3984 -85.4726,38.3957 -85.4733,38.3935 -85.4746,38.3908 -85.4759,38.3886 -85.4766,38.3863 -85.4791,38.3841 -85.4792,38.3819 -85.4811,38.3797 -85.4818,38.3774 -85.4819,38.3747 -85.4832,38.3725 -85.4834,38.3693 -85.4854,38.3644 -85.4867,38.3621 -85.4874,38.3599 -85.4881,38.3572 -85.4888,38.3549 -85.4902,38.3518 -85.4909,38.3496 -85.4929,38.3446 -85.4936,38.3424 -85.4934,38.3356 -85.4948,38.3311 -85.4952,38.3234 -85.4959,38.3202 -85.4966,38.318 -85.4974,38.3148 -85.4982,38.3112 -85.4995,38.3086 -85.5008,38.3063 -85.5015,38.3036 -85.504,38.301 -85.5092,38.2921 -85.5099,38.2898 -85.5118,38.2872 -85.5131,38.2849 -85.515,38.2818 -85.5175,38.2792 -85.5193,38.277 -85.5218,38.2743 -85.5243,38.2721 -85.5268,38.2695 -85.5287,38.2668 -85.5311,38.266 -85.5341,38.2647 -85.5383,38.2626 -85.5413,38.2613 -85.5449,38.2587 -85.5509,38.2562 -85.5546,38.2545 -85.5576,38.2528 -85.5685,38.2463 -85.5715,38.2446 -85.5734,38.2424 -85.5769,38.2416 -85.5799,38.2407 -85.5841,38.2395 -85.5877,38.2383 -85.5912,38.2375 -85.5942,38.2362 -85.5972,38.2358 -85.6065,38.2366 -85.6094,38.2371 -85.6146,38.2386 -85.6203,38.2415 -85.6243,38.2435 -85.6272,38.2458 -85.63,38.2477 -85.6335,38.2483 -85.6347,38.2507 -85.6445,38.2518 -85.6538,38.2521 -85.661,38.2505 -85.6639,38.2501 -85.668,38.2498 -85.671,38.2485 -85.677,38.2469 -85.68,38.2451 -85.6872,38.2422 -85.6879,38.2399 -85.6898,38.2368 -85.6913,38.231 -85.6925,38.2287 -85.6928,38.2242 -85.6942,38.2192 -85.695,38.2156 -85.6963,38.213 -85.697,38.2098 -85.6996,38.2044 -85.7021,38.2018 -85.7046,38.1987 -85.7071,38.196 -85.7101,38.1939 -85.7114,38.1916 -85.7144,38.1904 -85.7169,38.1873 -85.7205,38.1856 -85.7266,38.1798 -85.7291,38.1777 -85.7328,38.1741 -85.7329,38.1719 -85.7359,38.1706 -85.7372,38.1684 -85.7414,38.1662 -85.7444,38.164 -85.7492,38.161 -85.7523,38.1584 -85.7542,38.1553 -85.7561,38.1526 -85.7587,38.1481 -85.7594,38.1459 -85.7608,38.1409 -85.7611,38.1337 -85.7618,38.1314 -85.7625,38.1287 -85.7627,38.126 -85.7634,38.1238 -85.7635,38.1215 -85.763,38.1192 -85.7634,38.1111 -85.7641,38.1084 -85.7644,38.1029 -85.7639,38.1002 -85.7641,38.0975 -85.7636,38.0948 -85.7631,38.0925 -85.7627,38.0893 -85.763,38.0838 -85.7625,38.0807 -85.7615,38.0779 -85.761,38.0756 -85.7606,38.0729 -85.7597,38.0665 -85.7581,38.0642 -85.7588,38.0615 -85.7577,38.0592 -85.7583,38.0479 -85.759,38.0456 -85.7591,38.0434 -85.762,38.0308 -85.7627,38.0285 -85.7634,38.0258 -85.7648,38.0227 -85.7661,38.02 -85.7674,38.0178 -85.7687,38.0146 -85.77,38.0106 -85.7737,38.0071 -85.775,38.0048 -85.7769,38.0026 -85.7782,37.9999 -85.7812,37.9977 -85.7825,37.9951 -85.7843,37.9929 -85.7862,37.9902 -85.7887,37.988 -85.7911,37.9853 -85.7972,37.981 -85.8002,37.9797 -85.8031,37.9789 -85.8061,37.9781 -85.8085,37.9768 -85.8121,37.9755 -85.8198,37.9735 -85.8227,37.9726 -85.8269,37.9714 -85.8304,37.9706 -85.8345,37.9707 -85.8375,37.9703 -85.8474,37.9706 -85.8509,37.9694 -85.8539,37.9676 -85.8658,37.9644 -85.8724,37.9614 -85.8789,37.9588 -85.8832,37.9553 -85.8857,37.9509 -85.8895,37.9451 -85.897,37.9344 -85.9,37.9327 -85.9046,37.9337 -85.9114,37.9389 -85.9158,37.9445 -85.9208,37.9509 -85.9269,37.9566 -85.9325,37.9631 -85.9426,37.9715 -85.9523,37.9772 -85.9615,37.9788 -85.972,37.9809 -85.9813,37.9821 -85.993,37.9811 -86.0059,37.981 -86.0146,37.9807 -86.0263,37.9815 -86.0379,37.9836 -86.0483,37.9862 -86.0598,37.9901 -86.0713,37.9945 -86.0811,37.9984 -86.0903,38.0018 -86.0994,38.0066 -86.1097,38.0128 -86.1176,38.018 -86.125,38.0241 -86.1323,38.0315 -86.1355,38.0375 -86.1387,38.0444 -86.1402,38.0517 -86.1409,38.0617 -86.1411,38.0703 -86.1406,38.0821 -86.1414,38.0898 -86.1411,38.0961 -86.1414,38.1039 -86.1429,38.1098 -86.1449,38.1162 -86.1512,38.1213 -86.1569,38.1242 -86.1742,38.1315 -86.1833,38.1371 -86.1889,38.1432 -86.1882,38.1459 -86.1923,38.1455 -86.1951,38.1474 -86.1986,38.1498 -86.2002,38.1521 -86.2042,38.1545 -86.2088,38.1568 -86.2116,38.1592 -86.2186,38.1603 -86.2215,38.1612 -86.232,38.1615 -86.2356,38.1607 -86.2369,38.158 -86.2364,38.1557 -86.2378,38.1508 -86.2379,38.1481 -86.2374,38.1453 -86.2376,38.1417 -86.2383,38.139 -86.2366,38.1362 -86.2344,38.1339 -86.231,38.1316 -86.2281,38.1297 -86.2246,38.1287 -86.2206,38.1272 -86.2113,38.1256 -86.2078,38.1246 -86.2049,38.1241 -86.202,38.1231 -86.198,38.1225 -86.1944,38.1225 -86.1904,38.1214 -86.1875,38.12 -86.1841,38.1172 -86.1826,38.1131 -86.1827,38.1099 -86.1846,38.1063 -86.1883,38.1019 -86.1913,38.1002 -86.1949,38.0993 -86.1978,38.0985 -86.2013,38.0981 -86.2043,38.0978 -86.2084,38.0974 -86.2143,38.0962 -86.219,38.0959 -86.222,38.0946 -86.2255,38.0947 -86.2296,38.0939 -86.2326,38.093 -86.2368,38.0909 -86.2409,38.0892 -86.244,38.0865 -86.2453,38.0834 -86.249,38.079 -86.252,38.0763 -86.2545,38.0741 -86.2574,38.0742 -86.2608,38.0756 -86.2642,38.078 -86.2671,38.079 -86.2712,38.08 -86.2746,38.0819 -86.2775,38.0838 -86.2809,38.0852 -86.2843,38.0871 -86.2878,38.0895 -86.2894,38.0918 -86.2929,38.0928 -86.2998,38.0956 -86.3045,38.0958 -86.3074,38.0954 -86.3121,38.095 -86.3157,38.0938 -86.3186,38.0929 -86.3205,38.0907 -86.3212,38.0885 -86.3219,38.0853 -86.3221,38.0799 -86.3216,38.0776 -86.32,38.0753 -86.3178,38.0716 -86.3143,38.0693 -86.3052,38.0649 -86.3017,38.063 -86.2995,38.0607 -86.2966,38.0593 -86.2926,38.0574 -86.2898,38.0546 -86.2876,38.0518 -86.2877,38.0491 -86.2884,38.0464 -86.2897,38.0419 -86.291,38.0396 -86.2936,38.0343 -86.299,38.029 -86.302,38.0272 -86.3056,38.025 -86.3098,38.0242 -86.3127,38.0234 -86.3157,38.0221 -86.3193,38.0209 -86.3234,38.0191 -86.3363,38.0195 -86.3404,38.0187 -86.3439,38.0187 -86.3468,38.0184 -86.3454,38.0141 -86.1052,37.8489 -86.0073,37.7692 -86.1287,37.5652 -86.1223,37.565 -86.1176,37.5653 -86.1106,37.5652 -86.1077,37.5646 -86.1043,37.5645 -86.1002,37.564 -86.0968,37.5634 -86.0945,37.5611 -86.0946,37.5588 -86.0936,37.5565 -86.0919,37.5542 -86.0897,37.5515 -86.0869,37.55 -86.084,37.549 -86.0806,37.548 -86.0772,37.5461 -86.0737,37.5451 -86.0709,37.5437 -86.0663,37.5427 -86.0629,37.5412 -86.0594,37.5402 -86.0537,37.5382 -86.0503,37.5368 -86.0446,37.5339 -86.0417,37.5338 -86.0389,37.5324 -86.0348,37.5318 -86.0319,37.5322 -86.029,37.533 -86.026,37.5348 -86.0196,37.5346 -86.0167,37.5341 -86.0111,37.5303 -86.0082,37.5293 -86.0053,37.5288 -86.0024,37.5287 -85.9995,37.529 -85.9959,37.5312 -85.9924,37.5325 -85.9888,37.5342 -85.9864,37.5364 -85.9799,37.5389 -85.9729,37.5387 -85.9701,37.5369 -85.9685,37.5341 -85.9663,37.5313 -85.9641,37.529 -85.9624,37.5267 -85.9602,37.5239 -85.9587,37.5202 -85.9559,37.5179 -85.9542,37.5155 -85.952,37.5132 -85.9504,37.5109 -85.9499,37.5077 -85.9471,37.5067 -85.9438,37.503 -85.9422,37.4998 -85.9394,37.497 -85.9378,37.4947 -85.9362,37.4919 -85.9345,37.4896 -85.9312,37.4859 -85.9257,37.4803 -85.9235,37.4775 -85.9207,37.4742 -85.9202,37.472 -85.9174,37.4701 -85.9152,37.4677 -85.9124,37.4649 -85.9108,37.4626 -85.9103,37.4603 -85.911,37.4576 -85.9117,37.4554 -85.913,37.4532 -85.9125,37.4509 -85.9097,37.449 -85.9069,37.4466 -85.9059,37.4434 -85.9066,37.4412 -85.9085,37.4381 -85.912,37.4368 -85.9144,37.4346 -85.9157,37.4324 -85.9159,37.4278 -85.9154,37.4251 -85.9134,37.4196 -85.9112,37.4173 -85.9055,37.4144 -85.9027,37.412 -85.7372,37.4032 -85.613,37.393 -85.6027,37.3909 -85.585,37.3854 -85.5167,37.3832 -85.5166,37.3855 -85.517,37.3882 -85.518,37.3905 -85.5191,37.3933 -85.5183,37.396 -85.5176,37.3982 -85.5169,37.4014 -85.5162,37.4036 -85.5149,37.4059 -85.5131,37.4081 -85.5095,37.4093 -85.5065,37.411 -85.5041,37.4132 -85.5005,37.4154 -85.498,37.4198 -85.4972,37.4226 -85.497,37.4271 -85.4952,37.4288 -85.4956,37.432 -85.4943,37.4342 -85.4884,37.4368 -85.4849,37.4367 -85.4815,37.4357 -85.478,37.4355 -85.4752,37.4336 -85.4736,37.4313 -85.4702,37.4303 -85.4678,37.4307 -85.4649,37.4315 -85.4619,37.4328 -85.4555,37.433 -85.4526,37.4334 -85.4497,37.4328 -85.4469,37.4318 -85.444,37.4304 -85.4406,37.4294 -85.4377,37.4288 -85.4403,37.4239 -85.441,37.4217 -85.4411,37.4194 -85.4419,37.4167 -85.442,37.4144 -85.4415,37.4121 -85.4416,37.4099 -85.4394,37.4075 -85.4396,37.4053 -85.4386,37.4007 -85.437,37.3984 -85.4348,37.3956 -85.4326,37.3933 -85.427,37.3895 -85.4249,37.3867 -85.4221,37.3848 -85.4193,37.3824 -85.4136,37.3795 -85.4097,37.3771 -85.4058,37.3742 -85.4025,37.3719 -85.3997,37.3695 -85.3952,37.3671 -85.3924,37.3652 -85.3873,37.3618 -85.3845,37.3599 -85.38,37.358 -85.3778,37.3556 -85.3749,37.3551 -85.3721,37.3532 -85.3694,37.3508 -85.3654,37.3489 -85.3626,37.347 -85.361,37.3447 -85.3581,37.3441 -85.3553,37.3422 -85.348,37.3383 -85.3452,37.336 -85.3419,37.3336 -85.3374,37.3303 -85.3352,37.3279 -85.3297,37.3232 -85.3215,37.3148 -85.3199,37.3124 -85.3188,37.3101 -85.3172,37.3074 -85.3162,37.3051 -85.3135,37.3018 -85.3113,37.299 -85.3081,37.2944 -85.3071,37.2916 -85.3049,37.2888 -85.3045,37.2865 -85.3012,37.2832 -85.3002,37.2805 -85.2991,37.2782 -85.2964,37.2749 -85.2948,37.2726 -85.2938,37.2698 -85.2904,37.2674 -85.2889,37.2642 -85.2879,37.2615 -85.2857,37.2591 -85.2835,37.2563 -85.2831,37.254 -85.2809,37.2508 -85.2793,37.248 -85.2772,37.2448 -85.2744,37.2424 -85.2723,37.2396 -85.2707,37.2368 -85.2674,37.234 -85.2647,37.2307 -85.2631,37.2284 -85.2604,37.2247 -85.2588,37.2224 -85.2566,37.22 -85.2561,37.2173 -85.2534,37.2154 -85.2523,37.2126 -85.2502,37.2098 -85.2454,37.2029 -85.2444,37.2001 -85.2462,37.1974 -85.2492,37.1962 -85.2522,37.1945 -85.2558,37.1923 -85.2582,37.1901 -85.2601,37.1879 -85.2614,37.1857 -85.2621,37.183 -85.2592,37.1825 -85.2546,37.1818 -85.2517,37.1817 -85.2489,37.1812 -85.2437,37.1806 -85.2392,37.1791 -85.2357,37.1785 -85.2328,37.1784 -85.2294,37.1778 -85.2236,37.1772 -85.2187,37.1725 -85.2155,37.1678 -85.2133,37.1655 -85.2111,37.1627 -85.2095,37.1603 -85.2085,37.1576 -85.2067,37.1598 -85.2037,37.1615 -85.1996,37.1632 -85.1971,37.1654 -85.1935,37.168 -85.1893,37.1705 -85.1845,37.174 -85.1809,37.1762 -85.1773,37.1788 -85.1743,37.18 -85.1694,37.1844 -85.167,37.187 -85.1663,37.1893 -85.1655,37.192 -85.1671,37.1947 -85.1693,37.1971 -85.1709,37.1994 -85.1719,37.2022 -85.1712,37.2044 -85.1693,37.2071 -85.1658,37.2088 -85.1628,37.2096 -85.156,37.2075 -85.152,37.2065 -85.1491,37.2064 -85.1451,37.2058 -85.1422,37.2061 -85.1403,37.2083 -85.1384,37.211 -85.1377,37.2132 -85.134,37.2181 -85.1314,37.2225 -85.1296,37.2247 -85.1244,37.2241 -85.1209,37.224 -85.1151,37.2242 -85.1122,37.2241 -85.1053,37.2248 -85.0988,37.2259 -85.0918,37.2266 -85.0872,37.2273 -85.0842,37.2277 -85.0814,37.2276 -85.0755,37.2283 -85.072,37.2291 -85.0685,37.2294 -85.0633,37.2297 -85.0574,37.2313 -85.0533,37.2321 -85.0503,37.2338 -85.0474,37.235 -85.0461,37.2372 -85.0448,37.2399 -85.0441,37.2422 -85.0422,37.2444 -85.0415,37.2466 -85.0412,37.2516 -85.0416,37.2539 -85.0415,37.2561 -85.042,37.2584 -85.0417,37.2634 -85.0421,37.2657 -85.0414,37.2679 -85.0395,37.2701 -85.0371,37.2723 -85.0336,37.2736 -85.0306,37.2744 -85.0271,37.2751 -85.0269,37.2783 -84.9173,37.2226 -84.9135,37.1685 -84.9006,37.153 -84.8174,37.076 -84.7659,37.0863 -84.7699,37.0678 -84.7681,37.0219 -84.7179,36.975 -84.6961,36.9638 -84.6888,36.9612 -84.6859,36.9602 -84.6809,36.9582 -84.677,36.9562 -84.673,36.9552 -84.6702,36.9541 -84.6662,36.9531 -84.6617,36.9515 -84.6577,36.95 -84.655,36.9486 -84.6516,36.9475 -84.6482,36.9456 -84.6443,36.9441 -84.6387,36.9402 -84.6361,36.9369 -84.6345,36.9337 -84.6324,36.9304 -84.627,36.9248 -84.6242,36.9233 -84.6196,36.9245 -84.6154,36.9257 -84.6062,36.9267 -84.6027,36.927 -84.5997,36.9278 -84.5968,36.929 -84.5915,36.9306 -84.5879,36.9328 -84.5826,36.9344 -84.5742,36.9395 -84.5718,36.9417 -84.5705,36.9439 -84.5669,36.9456 -84.5633,36.9477 -84.5604,36.948 -84.5558,36.9483 -84.55,36.9485 -84.5436,36.9483 -84.5401,36.949 -84.5362,36.948 -84.5328,36.9465 -84.5301,36.9441 -84.5274,36.9403 -84.5264,36.938 -84.5248,36.9357 -84.5233,36.9329 -84.5207,36.9292 -84.5186,36.9259 -84.517,36.9227 -84.5155,36.9203 -84.515,36.9181 -84.513,36.9134 -84.5121,36.9098 -84.5105,36.9074 -84.509,36.9047 -84.5064,36.9005 -84.5025,36.898 -84.4998,36.8952 -84.4965,36.8928 -84.4944,36.89 -84.4917,36.8867 -84.4908,36.8821 -84.4877,36.8766 -84.4846,36.8719 -84.4803,36.8663 -84.4776,36.8643 -84.4725,36.8623 -84.4698,36.8604 -84.467,36.8589 -84.4614,36.8564 -84.4586,36.8545 -84.4559,36.8521 -84.453,36.852 -84.4495,36.8528 -84.4449,36.8535 -84.4421,36.8525 -84.4405,36.8501 -84.4384,36.8469 -84.4374,36.8446 -84.437,36.8418 -84.4349,36.839 -84.4345,36.8367 -84.4382,36.8328 -84.4412,36.8302 -84.4454,36.8281 -84.4467,36.8263 -84.4429,36.8221 -84.4384,36.8205 -84.4346,36.8163 -84.4343,36.8131 -84.4378,36.8119 -84.4413,36.8111 -84.4438,36.8089 -84.444,36.8053 -84.4403,36.8006 -84.4381,36.7983 -84.4366,36.795 -84.4351,36.7913 -84.4378,36.786 -84.4414,36.7834 -84.4441,36.7781 -84.4436,36.7758 -84.4426,36.7739 -84.4428,36.7708 -84.4452,36.77 -84.4526,36.7703 -84.4545,36.7685 -84.4552,36.7658 -84.4704,36.7633 -84.4727,36.7625 -84.4773,36.7622 -84.4797,36.7605 -84.4816,36.7578 -84.4818,36.7556 -84.4772,36.7545 -84.4798,36.7509 -84.4827,36.7497 -84.4835,36.747 -84.4849,36.7425 -84.4887,36.7381 -84.4934,36.7365 -84.4975,36.7353 -84.5017,36.7327 -84.5042,36.7297 -84.5076,36.7303 -84.5133,36.7305 -84.5184,36.7316 -84.5237,36.7305 -84.5295,36.7121 -84.631,36.5781 -84.6459,36.5716 -84.6292,36.571 -84.5773,36.4935 -84.5627,36.4707 -84.536,36.4038 -84.5009,36.362 -84.5253,36.3561 -84.5367,36.3484 -84.5409,36.3363 -84.554,36.3368 -84.5575,36.3365 -84.5645,36.3332 -84.5688,36.3293 -84.5701,36.327 -84.5733,36.3208 -84.5763,36.3196 -84.5809,36.3189 -84.5845,36.3167 -84.588,36.315 -84.5882,36.3123 -84.5895,36.3101 -84.5914,36.307 -84.5927,36.3048 -84.5962,36.3027 -84.6014,36.3015 -84.6055,36.2999 -84.6101,36.3 -84.6164,36.3007 -84.6221,36.3 -84.6252,36.2965 -84.6265,36.2934 -84.6267,36.2911 -84.6251,36.2888 -84.6282,36.2858 -84.6347,36.2819 -84.636,36.2797 -84.6337,36.2701 -84.634,36.266 -84.6331,36.2614 -84.6389,36.2603 -84.6418,36.26 -84.6453,36.2583 -84.6482,36.2575 -84.6573,36.2578 -84.6614,36.2575 -84.6642,36.2572 -84.6672,36.2555 -84.6719,36.2539 -84.6753,36.2536 -84.6833,36.2539 -84.6879,36.2531 -84.6925,36.2529 -84.6954,36.2521 -84.7006,36.2514 -84.7046,36.252 -84.7068,36.2525 -84.7132,36.25 -84.7158,36.246 -84.7165,36.2434 -84.718,36.2384 -84.7181,36.2361 -84.7211,36.2245 -84.722,36.2195 -84.7262,36.206 -84.727,36.2033 -84.7288,36.2011 -84.7295,36.1989 -84.7299,36.1921 -84.7324,36.1899 -84.7354,36.1869 -84.7432,36.1813 -84.7457,36.1768 -84.747,36.1741 -84.7472,36.1719 -84.7485,36.1678 -84.7487,36.1651 -84.7495,36.162 -84.7486,36.1574 -84.7482,36.1547 -84.7478,36.1515 -84.7463,36.1482 -84.7454,36.145 -84.7455,36.1427 -84.7446,36.1382 -84.7448,36.1359 -84.7455,36.1337 -84.747,36.1283 -84.7494,36.1256 -84.7512,36.1234 -84.7525,36.1212 -84.7438,36.115 -84.7377,36.1116 -84.7294,36.1076 -84.7239,36.1042 -84.7134,36.0984 -84.7065,36.0895 -84.6837,36.0622 -84.6812,36.0571 -84.6767,36.0556 -84.6738,36.0573 -84.6684,36.0603 -84.6617,36.0586 -84.6519,36.0519 -84.6459,36.0562 -84.6434,36.0507 -84.6396,36.0382 -84.6358,36.0263 -84.6245,36.0154 -84.6159,36.0078 -84.6113,35.9981 -84.6009,35.9922 -84.5921,35.9869 -84.5852,35.9798 -84.5737,35.9716 -84.563,35.9607 -84.5547,35.9486 -84.5477,35.9328 -84.541,35.9135 -84.5343,35.8937 -84.526,35.8802 -84.5273,35.8775 -84.5281,35.8748 -84.5305,35.8717 -84.5336,35.8687 -84.5354,35.866 -84.5403,35.8612 -84.5447,35.855 -84.546,35.8524 -84.5489,35.8502 -84.552,35.8471 -84.5538,35.845 -84.5592,35.8406 -84.5634,35.8372 -84.5688,35.8328 -84.5718,35.8298 -84.5761,35.8259 -84.5779,35.8237 -84.5803,35.821 -84.5852,35.8162 -84.586,35.8131 -84.5903,35.8078 -84.5921,35.8056 -84.6022,35.7983 -84.6063,35.7962 -84.6111,35.7923 -84.6145,35.7929 -84.6173,35.7925 -84.6201,35.794 -84.6234,35.795 -84.6268,35.7956 -84.6297,35.7953 -84.6404,35.7966 -84.7287,35.746 -84.7471,35.7413 -84.8221,35.6547 -84.8191,35.6482 -84.8178,35.6414 -84.827,35.6385 -84.8392,35.644 -84.8756,35.5936 -84.8997,35.5881 -84.9542,35.547 -84.953,35.5374 -84.9515,35.5251 -84.9555,35.5134 -84.9662,35.5052 -84.987,35.4678 -84.9843,35.465 -84.9756,35.4601 -84.9758,35.4551 -84.9637,35.4492 -84.9805,35.4326 -84.9949,35.419 -85.0183,35.4344 -85.0316,35.3986 -85.0734,35.3292 -85.0988,35.2879 -85.1259,35.2566 -85.2317,35.1249 -85.2335,35.1227 -85.2347,35.1205 -85.2343,35.1173 -85.2312,35.1126 -85.2314,35.1081 -85.2321,35.1054 -85.2335,35.1009 -85.2353,35.0987 -85.2372,35.0951 -85.2379,35.0929 -85.2392,35.0897 -85.2393,35.087 -85.2406,35.0839 -85.2396,35.0816 -85.2364,35.0792 -85.2342,35.0769 -85.2304,35.0758 -85.2277,35.0739 -85.2249,35.0724 -85.2211,35.0705 -85.2184,35.069 -85.2151,35.0675 -85.2123,35.0665 -85.2096,35.0646 -85.2081,35.0618 -85.2079,35.0546 -85.2092,35.0505 -85.2095,35.0451 -85.212,35.0406 -85.2144,35.0371 -85.2152,35.033 -85.2183,35.029 -85.2195,35.0263 -85.2238,35.0201 -85.2273,35.018 -85.2301,35.0172 -85.2363,35.0174 -85.2402,35.018 -85.2431,35.0172 -85.247,35.0169 -85.2516,35.0152 -85.2545,35.0126 -85.2564,35.0099 -85.2571,35.0077 -85.2578,35.0045 -85.2585,35.0023 -85.2597,35.0 -85.2621,34.9974 -85.2639,34.9952 -85.2664,34.9912 -85.2699,34.9881 -85.2769,34.9829 -85.2793,34.9807 -85.2822,34.9795 -85.2874,34.9765 -85.2909,34.9738 -85.2938,34.9721 -85.2972,34.9709 -85.3007,34.9687 -85.3048,34.9652 -85.3135,34.9605 -85.4507,34.9565 -85.4562,34.9565 -85.4304,34.8282 -85.382,34.5884 -85.3731,34.5506 -85.3592,34.4889 -85.3552,34.4713 -85.3076,34.256 -85.2651,34.0585 -85.2639,34.0528 -85.243,33.9257 -85.2417,33.9177 -85.2313,33.8713 -85.1826,33.6208 -85.1523,33.4564 -85.1411,33.3917 -85.0812,33.0951 -85.0808,33.086 -85.0804,33.0755 -85.028,32.8376 -85.0207,32.8375 -85.0147,32.8145 -85.0127,32.8012 -85.012,32.7939 -85.0105,32.7916 -85.0062,32.7905 -85.0041,32.7886 -85.0049,32.7841 -85.0051,32.7804 -85.0048,32.7763 -85.0017,32.7725 -84.9948,32.77 -84.9889,32.7679 -84.9856,32.7669 -84.9816,32.7604 -84.9791,32.7575 -84.9759,32.7551 -84.9711,32.7531 -84.9675,32.7498 -84.9666,32.7452 -84.9685,32.7403 -84.9704,32.7371 -84.9762,32.7347 -84.9774,32.7309 -84.9804,32.7276 -84.9806,32.7221 -84.9793,32.7195 -84.977,32.7164 -84.9741,32.7142 -84.9722,32.7098 -84.9683,32.7098 -84.9659,32.7064 -84.9631,32.7051 -84.9612,32.7002 -84.9609,32.6957 -84.9599,32.6898 -84.9608,32.6806 -84.9616,32.6787 -84.957,32.6733 -84.9511,32.6603 -84.9497,32.6566 -84.944,32.6509 -84.9382,32.647 -84.9342,32.6418 -84.9325,32.6322 -84.9322,32.6276 -84.9341,32.624 -84.9375,32.621 -84.9415,32.6184 -84.9443,32.6158 -84.9451,32.6117 -84.9431,32.6094 -84.9366,32.6077 -84.9312,32.6071 -84.928,32.6051 -84.9261,32.6005 -84.9258,32.5964 -84.9232,32.5935 -84.9201,32.5902 -84.9183,32.5842 -84.9181,32.5778 -84.9167,32.5741 -84.9164,32.5691 -84.916,32.5663 -84.9135,32.5621 -84.9095,32.5565 -84.9064,32.5537 -84.9022,32.5508 -84.897,32.5465 -84.8934,32.5422 -84.89,32.5343 -84.8854,32.5296 -84.8803,32.523 -84.8744,32.5209 -84.8675,32.5179 -84.8639,32.5146 -84.8583,32.5071 -84.8553,32.5033 -84.8469,32.498 -84.8407,32.4922 -84.8399,32.4863 -84.8394,32.4813 -84.8384,32.4727 -84.8382,32.4702 -84.8383,32.4676 -84.8387,32.4593 -84.8372,32.4476 -84.8373,32.437 -84.837,32.433 -84.8366,32.4271 -84.8368,32.4242 -84.8355,32.4215 -84.8353,32.4185 -84.8352,32.4157 -84.8322,32.4108 -84.8293,32.4087 -84.8242,32.4052 -84.8163,32.4001 -84.8127,32.3953 -84.8117,32.3877 -84.8152,32.3854 -84.8181,32.3819 -84.8199,32.3788 -84.8199,32.3712 -84.8198,32.3689 -84.8185,32.3658 -84.8181,32.3618 -84.8208,32.3589 -84.8234,32.3574 -84.8213,32.3537 -84.8176,32.3527 -84.8139,32.3511 -84.8129,32.3488 -84.8126,32.3442 -84.8145,32.3407 -84.8157,32.3389 -84.8184,32.3388 -84.8222,32.3387 -84.8243,32.3392 -84.8267,32.3366 -84.8291,32.3326 -84.8309,32.3286 -84.8349,32.3255 -84.8382,32.3243 -84.8438,32.3218 -84.8467,32.3178 -84.8484,32.3125 -84.85,32.3083 -84.8461,32.3 -84.8425,32.2971 -84.8229,32.2881 -84.7989,32.2794 -84.785,32.2761 -84.7797,32.2736 -84.7751,32.2688 -84.772,32.266 -84.7703,32.2598 -84.7684,32.2589 -84.7652,32.2562 -84.764,32.2543 -84.7613,32.2501 -84.7589,32.2457 -84.7566,32.243 -84.7516,32.2419 -84.7477,32.2398 -84.7419,32.2345 -84.7411,32.23 -84.7413,32.225 -84.7465,32.2206 -84.7527,32.2154 -84.7569,32.2133 -84.7596,32.2132 -84.7585,32.2088 -84.7592,32.2052 -84.7615,32.2019 -84.7608,32.1972 -84.7633,32.1944 -84.7632,32.1921 -84.7663,32.1901 -84.7705,32.1872 -84.7757,32.1838 -84.7816,32.1826 -84.7896,32.1809 -84.7988,32.18 -84.8069,32.1797 -84.8134,32.1789 -84.8188,32.1787 -84.8221,32.1782 -84.8205,32.1762 -84.8168,32.1756 -84.8115,32.1736 -84.8078,32.1711 -84.8058,32.1692 -84.8059,32.167 -84.8103,32.1651 -84.8074,32.1614 -84.8077,32.1577 -84.8141,32.1552 -84.8209,32.1526 -84.8322,32.1498 -84.8423,32.148 -84.8477,32.1464 -84.8551,32.1447 -84.8619,32.1407 -84.8677,32.1364 -84.8702,32.1321 -84.8744,32.1263 -84.8771,32.1227 -84.8795,32.1192 -84.8821,32.1168 -84.8869,32.1112 -84.8907,32.1067 -84.8932,32.1037 -84.8969,32.0976 -84.8968,32.0921 -84.8945,32.0847 -84.8881,32.0726 -84.8878,32.0689 -84.8892,32.0635 -84.8911,32.059 -84.8935,32.0567 -84.8943,32.0521 -84.8991,32.0427 -84.9026,32.0376 -84.9043,32.0353 -84.9051,32.0307 -84.9071,32.0282 -84.9055,32.0231 -84.9042,32.0175 -84.9007,32.0115 -84.8989,32.005 -84.8992,32.0005 -84.9001,31.9941 -84.902,31.9887 -84.9057,31.9836 -84.905,31.9796 -84.9083,31.9756 -84.9099,31.9721 -84.9116,31.9668 -84.9106,31.9607 -84.9108,31.9571 -84.9104,31.9543 -84.914,31.9465 -84.9192,31.9405 -84.9216,31.9344 -84.9237,31.931 -84.9269,31.926 -84.9303,31.9178 -84.9334,31.9105 -84.9376,31.9025 -84.9427,31.8976 -84.9482,31.8937 -84.9515,31.89 -84.9551,31.8854 -84.959,31.8784 -84.9616,31.8745 -84.9612,31.8659 -84.9618,31.855 -84.9675,31.8388 -84.9723,31.8299 -84.977,31.8227 -84.9779,31.8168 -84.9798,31.811 -84.9797,31.8032 -84.9786,31.7835 -84.9774,31.767 -84.9762,31.7588 -84.9738,31.7541 -84.9723,31.7504 -84.9696,31.7452 -84.9684,31.743 -84.9649,31.7378 -84.962,31.7322 -84.9593,31.722 -84.9585,31.7069 -84.9595,31.6997 -84.9608,31.6966 -84.962,31.6939 -84.9628,31.6908 -84.9626,31.6841 -84.9624,31.6756 -84.9613,31.666 -84.9594,31.6609 -84.9555,31.6534 -84.9494,31.6468 -84.9433,31.6415 -84.9366,31.6344 -84.9301,31.6259 -84.9247,31.6175 -84.925,31.6109 -84.9234,31.6064 -84.9203,31.6003 -84.9138,31.6001 -84.9067,31.6008 -84.9014,31.6006 -84.8998,31.5987 -84.9018,31.5933 -84.9026,31.5883 -84.9024,31.5819 -84.9045,31.5735 -84.9011,31.5667 -84.8987,31.5612 -84.8997,31.553 -84.8996,31.5479 -84.8955,31.5414 -84.8926,31.5354 -84.8885,31.5311 -84.8865,31.5283 -84.8862,31.5246 -84.89,31.5202 -84.8883,31.5133 -84.8882,31.511 -84.8883,31.5084 -84.8894,31.5054 -84.886,31.499 -84.8856,31.4962 -84.8852,31.493 -84.8895,31.4864 -84.8907,31.4795 -84.8945,31.4711 -84.898,31.4663 -84.9035,31.4597 -84.9088,31.4539 -84.91,31.4506 -84.9113,31.447 -84.9121,31.4389 -84.9125,31.4328 -84.9107,31.4201 -84.9093,31.4156 -84.9087,31.4064 -84.9114,31.4023 -84.9135,31.3991 -84.9149,31.3934 -84.9167,31.3919 -84.9172,31.3814 -84.9192,31.375 -84.92,31.3726 -84.9194,31.3673 -84.9203,31.3637 -84.9229,31.3583 -84.9258,31.3526 -84.9339,31.3367 -84.9364,31.3342 -84.9342,31.33 -84.9345,31.3207 -84.9335,31.3143 -84.9322,31.3094 -84.9291,31.294 -84.9283,31.2908 -84.9273,31.2836 -84.9276,31.2786 -84.9279,31.2731 -84.9295,31.2693 -84.9304,31.2673 -84.9318,31.2609 -84.9363,31.257 -84.9417,31.2554 -84.949,31.2497 -84.9519,31.2462 -84.9531,31.243 -84.9483,31.2272 -84.9473,31.2177 -84.9454,31.2123 -84.9434,31.2065 -84.9426,31.2033 -84.9406,31.1997 -84.9393,31.1974 -84.9393,31.1927 -84.9428,31.1882 -84.9429,31.1854 -84.9441,31.1817 -84.9445,31.1793 -84.9456,31.1767 -84.9473,31.1723 -84.9496,31.1696 -84.9499,31.1659 -84.9503,31.1627 -84.949,31.1595 -84.9467,31.1565 -84.9454,31.1529 -84.9447,31.1506 -84.9445,31.1483 -84.9425,31.142 -84.9407,31.138 -84.9384,31.1358 -84.9324,31.1338 -84.9248,31.1323 -84.9199,31.1302 -84.9139,31.1276 -84.9122,31.1259 -84.9098,31.1234 -84.9085,31.1211 -84.905,31.1145 -84.9008,31.1078 -84.8978,31.1029 -84.8933,31.099 -84.8894,31.0964 -84.8854,31.0925 -84.883,31.088 -84.8777,31.08 -84.8769,31.0769 -84.8756,31.0728 -84.8731,31.0661 -84.8704,31.0579 -84.8697,31.0557 -84.8643,31.0459 -84.8597,31.0401 -84.8556,31.0339 -84.8509,31.0273 -84.8458,31.0142 -84.8426,31.0066 -84.8411,31.0026 -84.8397,30.9939 -84.8371,30.9883 -84.8391,30.9839 -84.841,30.9797 -84.8421,30.9765 -84.8433,30.9732 -84.8489,30.967 -84.85,30.9629 -84.8511,30.9597 -84.8502,30.955 -84.8512,30.951 -84.849,30.9463 -84.8437,30.9423 -84.8384,30.94 -84.8347,30.9386 -84.8283,30.9359 -84.8241,30.9336 -84.8209,30.9294 -84.8204,30.9262 -84.8218,30.9139 -84.8208,30.9104 -84.8211,30.9075 -84.8206,30.9048 -84.8198,30.9021 -84.8189,30.8993 -84.8175,30.8963 -84.8159,30.893 -84.8136,30.8882 -84.8084,30.8851 -84.8015,30.8782 -84.7967,30.8736 -84.7925,30.8699 -84.7872,30.8639 -84.7851,30.8607 -84.7846,30.8571 -84.7841,30.852 -84.7807,30.8425 -84.7802,30.8386 -84.7798,30.8365 -84.7784,30.8287 -84.7762,30.8233 -84.7762,30.8212 -84.7751,30.8177 -84.7747,30.8156 -84.7749,30.8127 -84.7748,30.8102 -84.7743,30.8022 -84.7754,30.794 -84.7765,30.7896 -84.7766,30.7853 -84.7775,30.7825 -84.7779,30.777 -84.7788,30.7731 -84.7782,30.7686 -84.7785,30.7662 -84.7755,30.7548 -84.7735,30.7471 -84.7708,30.7385 -84.7667,30.7281 -84.7664,30.7257 -84.7652,30.7238 -84.7627,30.7199 -84.7598,30.7172 -84.7583,30.7157 -84.7521,30.7152 -84.7457,30.7147 -84.7399,30.712 -84.7356,30.7096 -84.7309,30.7055 -84.7235,30.6945 -84.7158,30.6839 -84.7122,30.6789 -84.7132,30.6751 -84.7115,30.6675 -84.7153,30.6579 -84.7174,30.6529 -84.718,30.6488 -84.7196,30.6437 -84.7218,30.6405 -84.7271,30.6351 -84.7325,30.6283 -84.7368,30.6223 -84.7432,30.6155 -84.7464,30.6114 -84.7507,30.6055 -84.7583,30.5909 -84.7599,30.5882 -84.7631,30.585 -84.7674,30.5795 -84.7722,30.5759 -84.7749,30.5736 -84.7781,30.5704 -84.7829,30.5686 -84.785,30.5664 -84.7882,30.5632 -84.7898,30.5605 -84.7915,30.5531 -84.7925,30.5504 -84.7968,30.5495 -84.7995,30.5495 -84.8053,30.5477 -84.8085,30.5427 -84.8091,30.5386 -84.8112,30.534 -84.8171,30.5268 -84.8251,30.5167 -84.8283,30.5131 -84.831,30.5081 -84.8332,30.498 -84.8349,30.488 -84.8365,30.4802 -84.8387,30.4702 -84.8409,30.4619 -84.8457,30.4514 -84.849,30.44 -84.8458,30.4377 -84.8426,30.4363 -84.84,30.4349 -84.8389,30.4327 -84.8432,30.4281 -84.8459,30.4148 -84.8359,30.4134 -84.8364,30.4102 -84.8385,30.4093 -84.8433,30.4066 -84.8502,30.403 -84.8593,30.4007 -84.8678,30.3985 -84.8762,30.3939 -84.8768,30.3907 -84.8763,30.388 -84.8752,30.3857 -84.871,30.3839 -84.8689,30.3825 -84.8673,30.3793 -84.8689,30.3774 -84.8716,30.3761 -84.8737,30.3752 -84.8748,30.3692 -84.8695,30.3665 -84.8664,30.3564 -84.868,30.3486 -84.8654,30.3399 -84.8692,30.3363 -84.8771,30.3413 -84.8797,30.3427 -84.884,30.3427 -84.8856,30.3414 -84.8866,30.3382 -84.8814,30.3336 -84.8803,30.3304 -84.883,30.3258 -84.8862,30.3249 -84.8894,30.3231 -84.892,30.319 -84.8942,30.3076 -84.8921,30.298 -84.8917,30.2925 -84.8896,30.2879 -84.8885,30.2838 -84.8928,30.281 -84.8986,30.2806 -84.9028,30.2783 -84.9055,30.2678 -84.9093,30.2628 -84.9093,30.2514 -84.9099,30.245 -84.9115,30.2404 -84.9137,30.2331 -84.9158,30.2294 -84.9195,30.2262 -84.9238,30.2235 -84.9264,30.2189 -84.9302,30.2084 -84.9334,30.2007 -84.9377,30.1929 -84.9424,30.1893 -84.9493,30.1856 -84.953,30.1838 -84.9647,30.1733 -84.9679,30.1678 -84.9674,30.1656 -84.9705,30.1656 -84.9711,30.1605 -84.9732,30.1573 -84.9769,30.1532 -84.9807,30.1496 -84.9833,30.1441 -84.9839,30.1382 -84.9829,30.129 -84.9813,30.1221 -84.9813,30.1198 -84.9824,30.1162 -84.9835,30.1134 -84.9867,30.107 -84.9882,30.1048 -84.992,30.1002 -84.9925,30.0965 -84.9894,30.0929 -84.9872,30.0919 -84.9846,30.0892 -84.9857,30.0869 -84.9873,30.0823 -84.9899,30.0801 -84.9926,30.0769 -84.9953,30.0695 -84.9932,30.0604 -84.9885,30.0562 -84.9848,30.0512 -84.9838,30.0466 -84.9833,30.0411 -84.9827,30.0347 -84.9822,30.0301 -84.9807,30.0246 -84.977,30.0164 -84.9755,30.015 -84.9739,30.0109 -84.9692,30.0035 -84.9639,29.9994 -84.9602,29.9976 -84.9566,29.9962 -84.9545,29.9953 -84.9502,29.9939 -84.9455,29.9916 -84.9413,29.987 -84.9376,29.9837 -84.9313,29.981 -84.9261,29.98 -84.9229,29.98 -84.9197,29.9786 -84.915,29.9768 -84.9097,29.9759 -84.904,29.9726 -84.9003,29.968 -84.8966,29.9639 -84.8914,29.9598 -84.8872,29.9561 -84.883,29.9542 -84.8788,29.9519 -84.8751,29.9478 -84.8741,29.9455 -84.871,29.934 -84.8663,29.9194 -84.8637,29.9116 -84.8606,29.8978 -84.8623,29.891 -84.8634,29.8846 -84.8608,29.8772 -84.8603,29.8644 -84.8614,29.8511 -84.8626,29.8424 -84.8636,29.8356 -84.8663,29.8333 -84.8695,29.8301 -84.8732,29.8269 -84.8763,29.8228 -84.8801,29.8173 -84.8801,29.8136 -84.8796,29.8082 -84.8775,29.8031 -84.8765,29.7985 -84.8755,29.7935 -84.876,29.7857 -84.8782,29.7697 -84.8798,29.7669 -84.8835,29.7624 -84.8878,29.756 -84.8894,29.7519 -84.8894,29.7487 -84.891,29.7473 -84.8931,29.751 -84.8962,29.7537 -84.8999,29.7551 -84.9025,29.757 -84.9051,29.7574 -84.9109,29.7565 -84.9156,29.7565 -84.9188,29.7543 -84.9209,29.7502 -84.922,29.7483 -84.9262,29.7451 -84.9299,29.7438 -84.9346,29.7443 -84.9409,29.7443 -84.9483,29.7461 -84.9546,29.7457 -84.9735,29.7572 -84.9913,29.7715 -84.9939,29.7751 -84.9955,29.7774 -85.0065,29.7839 -85.0117,29.7876 -85.0175,29.7913 -85.0254,29.7931 -85.0259,29.7945 -85.0269,29.7968 -85.0285,29.7991 -85.0301,29.8 -85.0353,29.8005 -85.0374,29.8018 -85.0385,29.8028 -85.0406,29.806 -85.0406,29.8078 -85.0416,29.811 -85.0432,29.8129 -85.0469,29.8142 -85.0532,29.8175 -85.0553,29.8184 -85.0563,29.8193 -85.0563,29.8211 -85.0558,29.8239 -85.0542,29.8262 -85.0531,29.833 -85.0526,29.8371 -85.0536,29.8408 -85.0546,29.8449 -85.0557,29.8472 -85.0567,29.8491 -85.0609,29.8509 -85.0657,29.8523 -85.0704,29.8532 -85.0809,29.8546 -85.0878,29.8565 -85.0914,29.8569 -85.0999,29.8592 -85.103,29.8606 -85.1067,29.8625 -85.1088,29.8634 -85.1161,29.8698 -85.1203,29.8739 -85.1224,29.8762 -85.1256,29.8781 -85.1288,29.879 -85.1351,29.8827 -85.1387,29.8841 -85.1424,29.8868 -85.145,29.8882 -85.1466,29.8964 -85.1477,29.9006 -85.1482,29.9065 -85.1487,29.9079 -85.1503,29.9106 -85.1518,29.9129 -85.155,29.9143 -85.1587,29.9157 -85.1613,29.9171 -85.165,29.9184 -85.1692,29.9198 -85.1718,29.9221 -85.1729,29.9235 -85.1739,29.9267 -85.1739,29.9262 -85.1745,29.9267 -85.1776,29.929 -85.1813,29.9304 -85.1845,29.9313 -85.1887,29.9327 -85.1908,29.9327 -85.195,29.9331 -85.1981,29.9331 -85.2018,29.9327 -85.2045,29.9322 -85.2082,29.9313 -85.2108,29.9322 -85.2129,29.9341 -85.214,29.9345 -85.2203,29.9446 -85.2203,29.951 -85.2197,29.9529 -85.2181,29.9556 -85.2155,29.9593 -85.2144,29.9615 -85.2144,29.9648 -85.216,29.9689 -85.2171,29.9734 -85.2176,29.9785 -85.2171,29.983 -85.2197,29.9854 -85.3291,29.9244 -85.2952,29.9002 -85.2522,29.8647 -85.1965,29.7828 -85.1917,29.7109 -85.1959,29.6669 -85.2364,29.6538 -85.2616,29.6808 -85.2749,29.7079 -85.286,29.7583 -85.2884,29.788 -85.2883,29.8315 -85.3026,29.7806 -85.3013,29.7605 -85.2898,29.7184 -85.276,29.6779 -85.2635,29.658 -85.2464,29.6445 -85.2308,29.6432 -85.1846,29.6558 -85.0985,29.6664 -84.9496,29.6868 -84.8674,29.7004 -84.805,29.7466 -84.7539,29.7623 -84.775,29.714 -84.7556,29.7042 -84.72,29.7177 -84.6421,29.7479 -84.6129,29.7677 -84.542,29.8124 -84.4649,29.8534 -84.4413,29.866 -84.4062,29.8815 -84.3397,29.8877 -84.3003,29.8836 -84.2671,29.8713 -84.238,29.8611 -84.2254,29.8864 -84.2275,29.9081 -84.2765,29.9246 -84.3028,29.9223 -84.328,29.9246 -84.3493,29.9634 -84.2196,30.0372 -84.1549,30.0629 -84.0963,30.0719 -83.9226,30.0678 -83.9016,30.064 -83.8285,30.0171 -83.7803,29.9841 -83.7156,29.9509 -83.6794,29.9405 -83.6293,29.9192 -83.5607,29.8726 -83.5235,29.8425 -83.4749,29.7723 -83.4699,29.7333 -83.4281,29.6895 -83.3586,29.6473 -83.3197,29.6353 -83.2992,29.5428 -83.2901,29.4926 -83.2663,29.4814 -83.2441,29.4724 -83.1146,29.39 -82.9927,29.2418 -82.9639,29.192 -82.8763,29.1473 -82.8552,29.1536 -82.8255,29.1504 -82.7244,29.1313 -82.6955,29.1224 -82.6624,29.0381 -82.6436,28.9752 -82.5376,28.8629 -82.5226,28.8479 -82.5218,28.8174 -82.5342,28.7938 -82.5686,28.7719 -82.5471,28.7355 -82.5299,28.7203 -82.5218,28.6642 -82.5347,28.5076 -82.5571,28.4051 -82.6092,28.274 -82.6429,28.1989 -82.667,28.0389 -82.6907,27.9385 -82.7023,27.9053 -82.7286,27.8662 -82.7206,27.9106 -82.7453,27.8636 -82.7473,27.8276 -82.7368,27.8018 -82.7281,27.7832 -82.6377,27.6487 -82.6181,27.6273 -82.53,27.6653 -82.5163,27.6917 -82.4883,27.7909 -82.4969,27.842 -82.5307,27.8525 -82.6081,27.8945 -82.5844,27.9986 -82.3369,27.8996 -82.3177,27.8881 -82.3009,27.8493 -82.2823,27.7901 -82.2985,27.7495 -82.3358,27.7142 -82.3593,27.7019 -82.4282,27.6259 -82.4411,27.6096 -82.5095,27.5227 -82.4774,27.5194 -82.4843,27.4663 -82.5396,27.4346 -82.5485,27.4312 -82.4808,27.3791 -82.4652,27.3608 -82.4385,27.2892 -82.4321,27.258 -82.3499,27.0607 -82.3185,26.9919 -82.2905,26.9321 -82.2728,26.9054 -82.2037,26.8143 -82.1853,26.7996 -82.0531,26.7531 -82.0452,26.7891 -82.0586,26.8441 -82.0862,26.908 -81.9946,26.9225 -81.9115,26.9347 -81.9439,26.8178 -81.9743,26.678 -81.9746,26.6543 -81.9615,26.5249 -81.9182,26.4995 -81.8437,26.5113 -81.8147,26.5698 -81.8102,26.5985 -81.7858,26.6304 -81.6807,26.6773 -81.8175,26.5039 -81.8136,26.4827 -81.85,26.4717 -81.8642,26.4521 -81.7766,26.4161 -81.7361,26.3208 -81.7122,26.1365 -81.7063,26.1098 -81.6955,26.0708 -81.6759,26.0577 -81.632,25.9304 -81.5703,25.8855 -81.5137,25.9016 -81.4541,25.8908 -81.2981,25.8201 -81.2725,25.8069 -81.2369,25.7808 -81.2235,25.7594 -81.0685,25.4426 -81.0412,25.3799 -81.0229,25.3514 -81.0043,25.3371 -80.9391,25.3015 -80.8874,25.2943 -80.8513,25.2711 -80.8146,25.2187 -80.8258,25.1918 -80.8742,25.1729 -80.9001,25.183 -80.9881,25.2522 -81.0053,25.2704 -81.0322,25.2924 -81.0739,25.2122 -81.0433,25.1323 -80.9999,25.0983 -80.9846,25.0876 -80.9433,25.0996 -80.7247,25.1343 -80.5794,25.1354 -80.5496,25.1588 -80.4711,25.2124 -80.4375,25.2174 -80.4082,25.2059 -80.4006,25.1705 -80.3862,25.1881 -80.351,25.2138 -80.3128,25.1632 -80.295,25.1584 -80.3169,25.1796 -80.3184,25.2215 -80.2736,25.2913 -80.2367,25.4739 -80.2092,25.5097 -80.2108,25.5141 -80.2103,25.571 -80.1531,25.6554 -80.0889,25.7145 -80.0335,25.8765 -79.9922,26.1714 -79.9647,26.354 -79.9482,26.463 -79.9437,26.4856 -79.9326,26.5233 -79.926,26.6028 -79.9326,26.7657 -79.9488,26.8345 -79.9796,26.9557 -80.002,27.0213 -80.0478,27.1079 -80.1116,27.1634 -80.2084,27.3995 -80.246,27.5073 -80.2524,27.5526 -80.2683,27.6013 -80.282,27.6377 -80.2936,27.6645 -80.3288,27.7382 -80.3381,27.7563 -80.3569,27.7815 -80.3829,27.8232 -80.4725,28.0033 -80.6143,28.3058 -80.6529,28.3889 -80.7186,28.6197 -80.739,28.7488 -80.7083,28.7397 -80.6469,28.6996 -80.6404,28.676 -80.6657,28.6552 -80.6779,28.6039 -80.6507,28.5723 -80.5702,28.5571 -80.5549,28.5764 -80.4953,28.5777 -80.534,28.6372 -80.5767,28.6841 -80.5981,28.715 -80.7252,28.9076 -80.8613,29.1206 -80.909,29.2106 -81.0538,29.5252 -81.08,29.5865 -81.1428,29.7433 -81.1499,29.7633 -81.1816,29.8704 -81.1988,29.9403 -81.2241,30.041 -81.2555,30.1567 -81.2804,30.2274 -81.285,30.2495 -81.2869,30.3241 -81.285,30.351 -81.3067,30.4332 -81.3472,30.4743 -81.3382,30.5388 -81.3293,30.6053 -81.3667,30.6576 -81.4014,30.6793 -81.3891,30.6979 -81.3813,30.7178 -81.3867,30.7436 -81.4039,30.7659 -81.4277,30.815 -81.3953,30.8663 -81.3675,30.8926 -81.3536,30.9075 -81.3133,30.9944 -81.3041,31.0549 -81.3295,31.05 -81.3825,31.0786 -81.3379,31.1723 -81.3024,31.1702 -81.298,31.1428 -81.28,31.1276 -81.1786,31.1862 -81.1633,31.2324 -81.1882,31.2879 -81.1718,31.3221 -81.099,31.4396 -81.1463,31.4668 -81.1783,31.4558 -81.2233,31.5194 -81.1967,31.5324 -81.173,31.5299 -81.1361,31.5249 -81.0604,31.5298 -81.0312,31.578 -81.0213,31.6574 -81.0162,31.693 -80.9498,31.7566 -80.8723,31.8262 -80.8293,31.8589 -80.7496,31.9364 -80.7301,31.9706 -80.7874,31.992 -80.791,32.006 -80.7738,32.0435 -80.7202,32.1207 -80.6957,32.1164 -80.7143,32.0737 -80.6156,32.1208 -80.5672,32.1812 -80.6053,32.2228 -80.635,32.2239 -80.661,32.2486 -80.6782,32.2745 -80.7108,32.3829 -80.7221,32.4264 -80.7272,32.4837 -80.7017,32.4641 -80.693,32.425 -80.6592,32.3367 -80.606,32.2835 -80.5774,32.292 -80.5696,32.3611 -80.5692,32.4142 -80.5485,32.3867 -80.5367,32.3068 -80.538,32.2577 -80.5263,32.2202 -80.4694,32.232 -80.4286,32.25 -80.3602,32.2813 -80.3379,32.316 -80.3249,32.3619 -80.3773,32.4388 -80.4255,32.4548 -80.4499,32.4496 -80.575,32.4639 -80.5644,32.4868 -80.5062,32.4839 -80.4322,32.4787 -80.327,32.4619 -80.3045,32.4353 -80.223,32.444 -80.1183,32.5047 -79.9426,32.5698 -79.8834,32.5821 -79.8132,32.626 -79.7964,32.6372 -79.7738,32.6585 -79.7782,32.6913 -79.8061,32.7085 -79.8458,32.7269 -79.8649,32.7514 -79.8387,32.8168 -79.7915,32.8153 -79.7745,32.8022 -79.7895,32.7816 -79.7798,32.7544 -79.7534,32.7342 -79.712,32.7307 -79.6909,32.7385 -79.6287,32.7677 -79.5086,32.8809 -79.5242,32.9025 -79.4987,32.9495 -79.4677,32.9786 -79.4195,32.9964 -79.3908,32.9724 -79.342,32.9678 -79.2848,32.9712 -79.2684,33.0222 -79.241,33.043 -79.194,33.0622 -79.1299,33.1042 -79.1026,33.1285 -79.1014,33.1486 -79.1218,33.1956 -79.1523,33.2069 -79.1791,33.2294 -79.1913,33.2468 -79.1924,33.268 -79.1862,33.2924 -79.168,33.3362 -79.1228,33.3759 -79.0965,33.3931 -79.1341,33.3398 -79.1604,33.2999 -79.1659,33.277 -79.0935,33.2416 -79.061,33.2772 -79.0457,33.3522 -79.0345,33.3785 -78.878,33.5541 -78.8348,33.6004 -78.8151,33.6199 -78.7788,33.6542 -78.7587,33.6694 -78.725,33.6926 -78.4982,33.8331 -78.48,33.8413 -78.47,33.844 -78.4158,33.8422 -78.335,33.8601 -78.1356,33.8819 -78.0524,33.877 -77.9996,33.8667 -77.968,33.857 -77.9243,33.8516 -77.8746,33.9048 -77.8516,33.9546 -77.845,33.9906 -77.8436,34.0269 -77.8465,34.0535 -77.8496,34.0812 -77.8544,34.1107 -77.826,34.0793 -77.8192,33.9814 -77.8212,33.954 -77.8332,33.8892 -77.8212,33.8993 -77.783,33.9949 -77.7808,34.0238 -77.7685,34.0927 -77.7608,34.1126 -77.7336,34.1536 -77.6562,34.2471 -77.6041,34.3034 -77.5813,34.3273 -77.5633,34.3412 -77.5359,34.3597 -77.5137,34.3737 -77.4726,34.3986 -77.3546,34.4656 -77.3207,34.4758 -77.2812,34.4781 -77.2785,34.5245 -77.285,34.5738 -77.3088,34.6506 -77.3238,34.6742 -77.3285,34.7032 -77.2878,34.6943 -77.2307,34.6012 -77.2499,34.5624 -77.2334,34.5374 -77.2092,34.5213 -77.1726,34.5457 -77.0754,34.6162 -77.0232,34.6545 -76.9939,34.6389 -76.6603,34.7276 -76.5835,34.7586 -76.5612,34.719 -76.5539,34.6785 -76.5264,34.6714 -76.4012,34.6973 -76.3821,34.7377 -76.3123,34.8089 -76.2837,34.8252 -76.2442,34.843 -76.1934,34.898 -76.1726,34.9237 -76.2137,34.9737 -76.2522,34.9832 -76.2345,34.9572 -76.2244,34.9353 -76.3163,34.9022 -76.354,34.8962 -76.3629,34.9239 -76.3347,34.9489 -76.3332,35.0035 -76.3545,35.0275 -76.3901,34.9702 -76.4297,34.9653 -76.5345,34.9435 -76.5975,34.91 -76.6393,34.8798 -76.6535,34.8661 -76.6793,34.8876 -76.7165,34.9003 -76.741,34.9046 -76.79,34.915 -76.8319,34.9306 -76.8652,34.9587 -76.9682,35.1105 -76.8766,35.0289 -76.7674,34.9609 -76.7363,34.9533 -76.7058,34.9465 -76.6616,34.9488 -76.6275,34.9626 -76.5547,35.0042 -76.5047,35.0349 -76.4661,35.0756 -76.4535,35.0985 -76.4736,35.1206 -76.5656,35.1277 -76.4642,35.1942 -76.3884,35.1864 -76.3697,35.232 -76.4036,35.2683 -76.7329,35.3526 -76.9228,35.4471 -76.9494,35.4873 -76.8426,35.4377 -76.8129,35.422 -76.5529,35.3754 -76.5018,35.3919 -76.5167,35.4191 -76.5324,35.4826 -76.5152,35.4961 -76.4886,35.5114 -76.416,35.492 -76.4642,35.4689 -76.4677,35.4452 -76.4231,35.3644 -76.3968,35.3452 -76.3626,35.3325 -76.0502,35.2973 -76.0344,35.3202 -75.9425,35.3844 -75.9034,35.4263 -75.8808,35.477 -75.7949,35.5356 -75.7614,35.5448 -75.7396,35.5273 -75.7183,35.5263 -75.6908,35.5316 -75.6421,35.5786 -75.6224,35.6526 -75.6222,35.7746 -75.6507,35.8378 -75.6845,35.8796 -75.726,35.9246 -75.7519,35.9349 -75.8442,35.8777 -75.8717,35.8574 -75.8906,35.8403 -75.8966,35.7731 -75.8895,35.7509 -75.8951,35.6704 -75.93,35.6142 -76.0044,35.6204 -76.0367,35.6524 -76.0105,35.6514 -75.9459,35.6443 -75.9428,35.709 -75.9539,35.7535 -75.9613,35.807 -75.9538,35.8335 -75.9226,35.8827 -75.9276,35.9218 -75.952,35.9421 -75.9785,35.9529 -76.0753,35.9556 -76.2023,35.9138 -76.1681,35.8786 -76.1798,35.879 -76.2802,35.9174 -76.2931,35.9352 -76.3205,35.9384 -76.3705,35.9248 -76.4302,35.9059 -76.4539,35.8995 -76.5622,35.8928 -76.6296,35.8997 -76.6338,36.0074 -76.6536,36.0543 -76.6603,36.1046 -76.6573,36.1638 -76.646,36.1878 -76.6045,36.206 -76.6187,36.1688 -76.6275,36.127 -76.61,36.077 -76.5912,36.0312 -76.5597,35.9926 -76.4188,35.9668 -76.3954,35.9694 -76.2716,36.0365 -76.268,36.0777 -76.271,36.1094 -76.2346,36.0944 -76.1363,36.0546 -76.1149,36.0544 -75.9717,36.1087 -75.9767,36.1385 -75.993,36.1569 -76.0515,36.218 -76.084,36.2284 -76.1232,36.2517 -76.1002,36.2768 -76.0403,36.2474 -75.9436,36.1792 -75.9333,36.1617 -75.9056,36.1406 -75.8503,36.128 -75.8275,36.1305 -75.8536,36.152 -75.8979,36.2702 -75.8769,36.2708 -75.8396,36.2433 -75.7537,36.0704 -75.6944,36.0335 -75.6976,36.0777 -75.7844,36.255 -75.817,36.3108 -75.8474,36.3314 -75.8878,36.3709 -75.9351,36.4559 -75.9395,36.4774 -75.9294,36.5091 -75.9427,36.5336 -75.92,36.5257 -75.9134,36.5091 -75.8704,36.451 -75.8278,36.4441 -75.8002,36.4519 -75.8099,36.5092 -75.8132,36.5322 -75.8387,36.5227 -75.8441,36.5086 -75.8495,36.5017 -75.8693,36.5086 -75.8763,36.5249 -75.8762,36.58 -75.8672,36.6397 -75.8458,36.6713 -75.8119,36.6241 -75.7828,36.5409 -75.7835,36.5092 -75.7798,36.4918 -75.7709,36.4579 -75.7648,36.4355 -75.7128,36.2788 -75.6695,36.182 -75.6594,36.1616 -75.6525,36.1423 -75.6398,36.0832 -75.6299,36.0206 -75.602,35.9677 -75.5845,35.9514 -75.5623,35.9342 -75.5385,35.9127 -75.4912,35.8575 -75.4906,35.8163 -75.4585,35.7681 -75.4342,35.7616 -75.455,35.8187 -75.4771,35.8685 -75.5372,35.9676 -75.5607,36.0031 -75.6014,36.0563 -75.6135,36.0761 -75.6864,36.2428 -75.7102,36.3303 -75.7287,36.4001 -75.7451,36.4659 -75.7503,36.4907 -75.7525,36.508 -75.7869,36.5997 -75.8632,36.813 -75.8876,36.868 -75.9143,36.8788 -75.9573,36.8652 -76.0607,36.8776 -76.0954,36.8881 -76.1353,36.9093 -76.155,36.9167 -76.2143,36.9036 -76.2181,36.8397 -76.1934,36.8021 -76.2314,36.8225 -76.377,36.8641 -76.3792,36.9164 -76.4749,36.9742 -76.5442,37.0053 -76.6156,37.1059 -76.7639,37.1716 -76.9256,37.2417 -77.0444,37.25 -77.1305,37.2547 -77.1369,37.2944 -76.889,37.2712 -76.8727,37.2572 -76.8026,37.2244 -76.7863,37.2063 -76.6842,37.1933 -76.5774,37.1846 -76.5528,37.1852 -76.5304,37.1745 -76.513,37.1419 -76.5132,37.1146 -76.5122,37.0922 -76.4569,37.0427 -76.336,36.9557 -76.2895,36.9321 -76.1912,36.9637 -76.1675,37.0448 -76.1897,37.0939 -76.2768,37.1725 -76.3422,37.1815 -76.3651,37.1881 -76.4423,37.2273 -76.4849,37.2502 -76.5053,37.2641 -76.5696,37.3448 -76.5815,37.3876 -76.4782,37.282 -76.379,37.2271 -76.3542,37.2201 -76.3476,37.2211 -76.2758,37.2386 -76.303,37.3039 -76.2648,37.3422 -76.1891,37.2938 -76.1606,37.2925 -76.1388,37.3315 -76.1363,37.3868 -76.1447,37.4532 -76.1901,37.5264 -76.3205,37.5611 -76.4177,37.5781 -76.4376,37.588 -76.463,37.6184 -76.4756,37.6505 -76.4883,37.6852 -76.5137,37.7106 -76.5348,37.7187 -76.5625,37.7212 -76.6186,37.7528 -76.7465,37.8851 -76.801,37.9636 -76.8212,38.0111 -76.8458,38.0342 -76.8836,38.0508 -76.9184,38.0536 -77.0081,38.0993 -77.0275,38.1264 -76.952,38.118 -76.83,38.047 -76.809,38.0249 -76.7841,37.9825 -76.7327,37.9107 -76.6011,37.7906 -76.3777,37.6363 -76.2689,37.5913 -76.2526,37.5763 -76.2366,37.5844 -76.1847,37.6547 -76.1274,37.8391 -76.1424,37.8638 -76.1803,37.8884 -76.2481,37.914 -76.3036,37.9321 -76.3998,37.981 -76.4892,38.0799 -76.5877,38.1086 -76.7433,38.1262 -76.7748,38.1357 -76.8301,38.1604 -76.9209,38.2663 -76.966,38.3361 -77.0634,38.3002 -77.1213,38.2906 -77.1437,38.2898 -77.2172,38.3021 -77.2232,38.3593 -77.2012,38.4523 -77.1459,38.5555 -77.0314,38.6554 -76.9926,38.6615 -76.9391,38.6831 -76.9339,38.7997 -76.947,38.8353 -76.9584,38.861 -76.9501,38.8574 -76.9135,38.8206 -76.9184,38.7652 -76.9197,38.7594 -76.9165,38.7527 -76.903,38.7115 -76.9264,38.6554 -76.9614,38.6515 -76.9843,38.6423 -77.0773,38.5625 -77.1315,38.5075 -77.1449,38.481 -77.1603,38.4445 -77.1407,38.3553 -77.0938,38.3251 -76.9727,38.3734 -76.9417,38.3953 -76.8676,38.3155 -76.8133,38.2661 -76.7683,38.2315 -76.6374,38.1907 -76.6001,38.1979 -76.5726,38.1998 -76.5518,38.1989 -76.5282,38.1965 -76.5045,38.1901 -76.48,38.1783 -76.4585,38.1606 -76.447,38.1436 -76.2372,38.0161 -76.211,38.0045 -76.2161,38.1057 -76.2322,38.1353 -76.2461,38.1511 -76.2787,38.177 -76.2895,38.2053 -76.2693,38.2453 -76.3469,38.2571 -76.3803,38.2727 -76.4923,38.3621 -76.5473,38.4102 -76.5611,38.4314 -76.5765,38.6193 -76.5636,38.5933 -76.5648,38.5649 -76.5634,38.5419 -76.5348,38.4478 -76.4771,38.3888 -76.3439,38.2965 -76.3046,38.2942 -76.2769,38.3222 -76.2995,38.3768 -76.3402,38.4141 -76.3764,38.4473 -76.39,38.4625 -76.4029,38.488 -76.4092,38.5144 -76.4353,38.6882 -76.4211,38.8111 -76.3513,38.8698 -76.2915,38.9672 -76.319,39.0644 -76.3381,39.1015 -76.3755,39.1334 -76.4164,39.161 -76.4796,39.1982 -76.5072,39.2065 -76.4734,39.2233 -76.4462,39.2171 -76.4082,39.2037 -76.3863,39.1927 -76.3705,39.1789 -76.3358,39.1684 -76.3134,39.1657 -76.2843,39.1823 -76.2922,39.1858 -76.3049,39.1873 -76.3243,39.195 -76.3489,39.2146 -76.3768,39.2578 -76.3246,39.2727 -76.249,39.3313 -76.2568,39.3559 -76.1541,39.4005 -76.1225,39.3746 -76.1264,39.3427 -76.1098,39.3215 -76.0853,39.3278 -75.9875,39.3868 -75.9605,39.4136 -76.0091,39.4392 -75.9821,39.5047 -75.838,39.5597 -75.7328,39.5274 -75.749,39.4916 -75.8754,39.3458 -75.9934,39.3156 -76.0657,39.2725 -76.1577,39.1096 -76.1183,39.0171 -76.0391,39.0686 -75.9701,39.0979 -76.0541,38.9591 -76.0896,38.941 -76.1179,38.9377 -76.1398,38.9401 -76.1641,38.953 -76.1946,38.9821 -76.2364,38.9232 -76.2453,38.897 -76.2555,38.8515 -76.2577,38.8118 -76.2147,38.8443 -76.1939,38.879 -76.1225,38.9203 -76.0399,38.8424 -76.0024,38.7555 -76.0302,38.7292 -76.0539,38.7199 -76.0841,38.7325 -76.1053,38.7501 -76.1132,38.7696 -76.1532,38.7973 -76.198,38.7752 -76.23,38.7169 -76.2401,38.6449 -76.2187,38.6387 -76.1026,38.6962 -76.0891,38.6406 -75.9662,38.5705 -75.9314,38.5601 -75.9006,38.5636 -75.8779,38.591 -75.8596,38.6084 -75.8612,38.5702 -75.8739,38.5504 -75.9011,38.5367 -75.9268,38.5307 -75.9506,38.5315 -76.0021,38.5428 -76.03,38.5567 -76.0762,38.5685 -76.1634,38.5766 -76.1833,38.5269 -76.1632,38.5085 -76.1231,38.5131 -76.1123,38.5304 -76.0854,38.5361 -76.0646,38.525 -76.0834,38.4911 -76.1068,38.48 -76.1452,38.4671 -76.1958,38.4574 -76.2201,38.4453 -76.1408,38.324 -76.1209,38.3003 -76.1194,38.3415 -76.0597,38.3064 -75.9864,38.2433 -75.9366,38.184 -75.921,38.2009 -75.7454,38.3559 -75.7952,38.2073 -75.8114,38.1027 -75.7525,38.0465 -75.7815,37.9434 -75.7779,37.9049 -75.7513,37.8864 -75.7203,37.9058 -75.6999,37.9209 -75.6739,37.9322 -75.6547,37.937 -75.5929,37.9367 -75.5698,37.9309 -75.5438,37.9186 -75.5457,37.9021 -75.5623,37.7983 -75.5971,37.757 -75.6811,37.6826 -75.7743,37.6146 -75.8165,37.5663 -75.8302,37.5339 -75.8561,37.4556 -75.908,37.2728 -75.9165,37.2293 -75.9026,37.1821 -75.8611,37.1105 -75.7681,37.1754 -75.7513,37.2342 -75.7426,37.3058 -75.7419,37.3308 -75.7039,37.411 -75.6206,37.5058 -75.6013,37.5103 -75.5877,37.4819 -75.5602,37.4553 -75.4968,37.5169 -75.5091,37.5353 -75.47,37.6387 -75.4033,37.7561 -75.3912,37.7724 -75.3124,37.8769 -75.2998,37.9459 -75.2702,37.9816 -75.2685,37.9916 -75.2557,38.0401 -75.2295,38.0663 -75.0835,38.1815 -75.0546,38.1988 -74.9951,38.2858 -74.9793,38.4028 -74.9826,38.4099 -74.9794,38.4143 -74.9652,38.4103 -74.9605,38.4035 -74.9612,38.3649 -74.9734,38.2978 -74.9566,38.3196 -74.9446,38.3742 -74.9436,38.4079 -74.9395,38.4142 -74.9382,38.4364 -74.9635,38.5437 -75.0401,38.5462 -75.0701,38.5352 -75.1006,38.5545 -75.0396,38.6515 -75.0878,38.7731 -75.2014,38.8752 -75.2877,39.0339 -75.3041,39.1135 -75.2911,39.1569 -75.2939,39.2023 -75.3308,39.2666 -75.4253,39.3726 -75.4703,39.4085 -75.5021,39.5694 -75.4864,39.6044 -75.357,39.7438 -75.319,39.7674 -75.3075,39.7771 -75.2589,39.805 -75.207,39.8191 -75.1195,39.8282 -75.0752,39.8508 -75.0363,39.8906 -75.0242,39.9119 -75.0096,39.9284 -74.9577,39.9557 -74.9367,39.9654 -74.9265,39.9673 -74.9633,39.9197 -74.9989,39.8557 -75.0357,39.8293 -75.0938,39.8186 -75.187,39.7982 -75.2426,39.7849 -75.2659,39.7735 -75.2983,39.7552 -75.3222,39.7383 -75.3503,39.7121 -75.4549,39.576 -75.4409,39.4564 -75.4251,39.4211 -75.3141,39.3338 -75.2766,39.3094 -75.2096,39.2698 -75.0631,39.1888 -74.9853,39.1637 -74.9399,39.1698 -74.8231,39.1458 -74.7943,39.1252 -74.782,39.097 -74.7916,39.0602 -74.8071,39.0277 -74.8303,38.9926 -74.8479,38.9657 -74.8568,38.9418 -74.8641,38.8898 -74.8447,38.8794 -74.8078,38.8836 -74.7761,38.8947 -74.7466,38.907 -74.7206,38.9284 -74.6586,38.9943 -74.6108,39.0463 -74.5511,39.1489 -74.4994,39.2136 -74.511,39.2356 -74.5496,39.246 -74.4536,39.2909 -74.415,39.2924 -74.4221,39.2717 -74.3202,39.3098 -74.3284,39.3468 -74.3467,39.356 -74.3622,39.3768 -74.3407,39.3993 -74.322,39.4146 -74.2929,39.3971 -74.276,39.4304 -74.3051,39.4718 -74.219,39.5171 -74.1107,39.5991 -74.0811,39.6261 -74.0509,39.6591 -74.0558,39.6806 -74.078,39.7018 -74.0705,39.7359 -73.9999,39.9059 -73.9704,40.0027 -73.9444,40.008 -73.9436,39.9549 -73.9512,39.9208 -73.966,39.8953 -73.9824,39.8324 -73.9878,39.7304 -73.9203,39.9845 -73.851,40.2545 -73.8553,40.3526 -73.8945,40.4133 -73.9824,40.3926 -74.0985,40.3921 -74.1425,40.4071 -74.1612,40.4207 -74.1574,40.4768 -74.1506,40.5066 -74.0975,40.5953 -74.0323,40.655 -74.007,40.6675 -74.0057,40.647 -74.018,40.6175 -73.9848,40.6233 -73.9195,40.6716 -73.8267,40.8584 -73.8028,40.9134 -73.802,40.9348 -73.8027,40.9432 -73.8112,41.0995 -73.8164,41.1238 -73.8344,41.1411 -73.8583,41.1579 -73.8841,41.222 -73.8493,41.2577 -73.7764,41.1322 -73.7715,41.1125 -73.7647,41.043 -73.7649,41.018 -73.7714,40.9803 -73.7822,40.9279 -73.7901,40.8973 -73.8015,40.8703 -73.822,40.8244 -73.8325,40.7523 -73.7215,40.7801 -73.6805,40.8338 -73.6472,40.879 -73.607,40.9083 -73.5759,40.9077 -73.545,40.9379 -73.5441,40.9614 -73.4583,40.9698 -73.3709,41.005 -73.3328,41.022 -73.2782,41.0483 -73.2221,41.072 -73.176,41.0895 -73.0769,41.1244 -73.0497,41.1112 -73.0029,41.1314 -72.9408,41.1677 -72.8361,41.227 -72.8059,41.2396 -72.79,41.2077 -72.7181,41.2118 -72.5359,41.2309 -72.5069,41.2327 -72.468,41.2278 -72.4317,41.2172 -72.2887,41.2244 -72.1554,41.2405 -72.1358,41.2596 -72.0837,41.2794 -71.8602,41.3009 -71.7796,41.2946 -71.7467,41.2724 -71.7094,41.2749 -71.6834,41.2794 -71.6341,41.2911 -71.5727,41.3072 -71.491,41.3267 -71.465,41.3305 -71.4366,41.3302 -71.4131,41.3235 -71.3763,41.3465 -71.3297,41.4142 -71.3231,41.437 -71.3153,41.558 -71.2909,41.7596 -71.2094,41.6177 -71.1731,41.6061 -71.1363,41.6306 -71.1381,41.6622 -71.1176,41.6782 -71.0164,41.7423 -71.0373,41.702 -71.0584,41.6728 -71.0976,41.6241 -71.1001,41.6205 -71.1079,41.5934 -71.1096,41.5022 -71.1039,41.4516 -71.09,41.4217 -71.0443,41.4474 -71.03,41.4639 -70.9675,41.4638 -70.8287,41.5072 -70.7161,41.5829 -70.6285,41.6806 -70.5365,41.6543 -70.5536,41.5948 -70.5612,41.5555 -70.551,41.4925 -70.3884,41.5131 -70.342,41.5574 -70.3214,41.5865 -70.261,41.5879 -70.1351,41.5972 -70.0885,41.6084 -69.9922,41.6212 -69.9506,41.6232 -69.921,41.6225 -69.891,41.6213 -69.839,41.6255 -69.8316,41.6729 -69.8306,41.7851 -69.838,41.8093 -69.8628,41.873 -69.8805,41.9069 -69.8963,41.9334 -69.9108,41.9494 -69.9364,41.9751 -69.977,42.0115 -70.0153,42.0302 -70.047,42.04 -70.1288,42.0429 -70.1468,42.0264 -70.0901,41.9816 -70.0753,42.0085 -70.0375,42.0114 -70.01,41.992 -69.8918,41.8652 -69.8944,41.7834 -69.9225,41.7453 -69.9884,41.7216 -70.0151,41.7147 -70.0495,41.7123 -70.0751,41.7062 -70.1078,41.6967 -70.1965,41.6617 -70.2358,41.6667 -70.3547,41.7083 -70.4292,41.759 -70.4298,41.7927 -70.424,41.8182 -70.4364,41.8872 -70.476,41.9044 -70.4968,41.9007 -70.5473,41.9167 -70.5842,41.9497 -70.5539,42.0098 -70.6197,42.1661 -70.6589,42.1979 -70.7505,42.2267 -70.7695,42.2097 -70.8591,42.1929 -70.9409,42.257 -70.9462,42.3195 -70.7896,42.4598 -70.7697,42.4927 -70.681,42.5126 -70.5307,42.5474 -70.4838,42.6046 -70.5198,42.6427 -70.5449,42.6322 -70.5665,42.6157 -70.5642,42.5936 -70.6486,42.6066 -70.7077,42.6677 -70.7093,42.6949 -70.7142,42.829 -70.7121,42.8452 -70.6917,42.8902 -70.6608,42.9272 -70.6209,42.9743 -70.606,43.0092 -70.6391,43.0292 -70.625,43.0712 -70.5956,43.0515 -70.5726,43.0359 -70.5031,43.129 -70.4733,43.1777 -70.4855,43.208 -70.4712,43.2486 -70.4507,43.2748 -70.4158,43.3052 -70.3836,43.3078 -70.3531,43.3087 -70.2955,43.354 -70.2557,43.3938 -70.2478,43.4121 -70.1927,43.5073 -70.0938,43.5261 -70.0983,43.5936 -70.118,43.6087 -70.1545,43.603 -70.1328,43.6247 -70.1102,43.6754 -70.0742,43.731 -70.0318,43.757 -69.9939,43.7784 -69.8937,43.8256 -69.8242,43.8151 -69.7594,43.7513 -69.7541,43.7099 -69.7336,43.6668 -69.703,43.7393 -69.7151,43.8166 -69.721,43.8533 -69.7328,43.878 -69.7703,43.9192 -69.7755,43.9425 -69.6739,44.0245 -69.6816,43.9978 -69.6844,43.9134 -69.6545,43.7805 -69.6216,43.7427 -69.6026,43.7917 -69.5952,43.8327 -69.6196,43.8557 -69.5815,43.9173 -69.5671,43.9589 -69.5454,43.9789 -69.5199,43.9891 -69.5291,43.9696 -69.5447,43.9536 -69.5537,43.8513 -69.4898,43.8348 -69.494,43.8698 -69.4915,43.9085 -69.4312,43.9744 -69.4589,43.9259 -69.4537,43.8876 -69.4563,43.848 -69.4433,43.825 -69.4032,43.8007 -69.3896,43.8199 -69.3617,43.8756 -69.273,43.9973 -69.2009,43.9475 -69.1516,43.8884 -69.1024,43.9306 -68.9687,44.0161 -68.9534,44.0512 -68.985,44.0497 -68.9868,44.0788 -68.9258,44.207 -68.8842,44.3916 -68.8055,44.412 -68.7533,44.4229 -68.7145,44.4718 -68.7004,44.5241 -68.6351,44.5053 -68.6546,44.4672 -68.6972,44.4078 -68.7168,44.28 -68.5196,44.2563 -68.4529,44.2711 -68.4628,44.3685 -68.4081,44.3723 -68.3671,44.3492 -68.2829,44.3718 -68.2683,44.3968 -68.2254,44.4157 -68.1743,44.4162 -68.0125,44.4046 -67.9993,44.3546 -67.9642,44.3014 -67.9139,44.3432 -67.8781,44.3554 -67.8409,44.3766 -67.7698,44.4434 -67.6802,44.4965 -67.6406,44.4696 -67.616,44.4621 -67.4681,44.5022 -67.4665,44.5465 -67.4702,44.5837 -67.451,44.6164 -67.4086,44.5994 -67.3212,44.5779 -67.1692,44.5924 -67.0957,44.6098 -66.9029,44.7528 -66.8769,44.7773 -66.8888,44.8156 -66.9637,44.8499 -66.9807,44.8362 -66.9974,44.8186 -67.0276,44.8276 -67.0842,44.8483 -67.0976,44.8748 -67.0325,44.8804 -66.9808,44.9013 -66.94,44.934 -67.0112,45.0473 -67.0686,45.1171 -67.1123,45.1317 -67.142,45.1426 -67.1698,45.1486 -67.1956,45.1287 -67.2114,45.1036 -67.2443,45.0991 -67.3116,45.1452 -67.3278,45.1635 -67.3605,45.2116 -67.3697,45.2326 -67.3561,45.2814 -67.387,45.4443 -67.3263,45.4733 -67.3182,45.5335 -67.3633,45.5619 -67.3827,45.5566 -67.4124,45.5497 -67.479,45.5597 -67.5652,45.5803 -67.6989,45.644 -67.7088,45.6792 -67.7107,45.7327 -67.6911,45.836 -67.6769,45.9051 -67.6831,46.2305 -67.6923,46.7346 -67.6952,46.8679 -67.6983,47.0162 -67.7701,47.0467 -67.7952,47.0606 -67.8528,47.1146 -67.8637,47.1365 -68.0882,47.2787 -68.111,47.2877 -68.1474,47.2979 -68.217,47.3112 -68.245,47.3078 -68.2725,47.2953 -68.4664,47.2359 -68.6636,47.1788 -68.6891,47.171 -68.7331,47.155 -68.793,47.135 -68.8631,47.1648 -68.9335,47.2018 -68.9522,47.2279 -68.9548,47.2396 -68.9563,47.248 -68.957,47.2882 -68.9537,47.3265 -68.9456,47.349 -68.9464,47.3767 -69.0291,47.4049 -69.1368,47.4135 -69.2059,47.3462 -69.3244,47.2293 -69.5546,47.0016 -69.6132,46.9435 -69.7477,46.8086 -69.8931,46.6625 -69.9098,46.6448 -69.9276,46.5343 -69.9393,46.4571 -69.9447,46.4221 -69.9485,46.4009 -69.9579,46.3783 -69.9789,46.3648 -70.0196,46.3408 -70.1009,46.2837 -70.1429,46.2265 -70.1882,46.1506 -70.2063,46.0263 -70.2057,45.9277 -70.1703,45.9211 -70.1458,45.908 -70.1591,45.8567 -70.2946,45.7258 -70.3676,45.6599 -70.4561,45.6208 -70.4776,45.6089 -70.5324,45.5757 -70.5935,45.5202 -70.621,45.4765 -70.6255,45.4456 -70.6134,45.4261 -70.5976,45.4118 -70.7772,45.1895 -70.9214,45.2753 -70.9854,45.2562 -71.0435,45.2013 -71.0799,45.2045 -71.1119,45.2145 -71.1364,45.2251 -71.1726,45.2448 -71.1955,45.2523 -71.2211,45.2454 -71.3241,45.1986 -71.3012,45.1629 -71.3341,45.0764 -71.3593,45.0515 -71.3885,45.0266 -71.3981,44.9984 -71.3939,44.9693 -71.4543,44.969 -71.7919,44.968 -71.9489,44.9683 -72.1702,44.9677 -72.3573,44.9665 -72.4083,44.9661 -72.6768,44.9698 -72.8538,44.9673 -73.2385,44.9606 -73.2498,44.9584 -73.2649,44.9597 -73.5195,44.9555 -73.8078,44.9489 -74.1446,44.9411 -74.5772,44.9558 -74.6462,44.9514 -74.6629,44.9554 -74.6664,44.9538 -74.678,44.9528 -74.6903,44.9546 -74.6993,44.9541 -74.7025,44.9527 -74.7077,44.9526 -74.7128,44.9512 -74.7173,44.9489 -74.7185,44.9448 -74.7089,44.9449 -74.7044,44.9444 -74.7011,44.9426 -74.7075,44.9389 -74.7158,44.9357 -74.7229,44.9324 -74.7287,44.9324 -74.7313,44.9342 -74.7339,44.9369 -74.7442,44.9346 -74.7551,44.9327 -74.7622,44.9308 -74.7654,44.9281 -74.7686,44.9244 -74.782,44.9202 -74.7891,44.9174 -74.8007,44.9155 -74.8059,44.9173 -74.8065,44.92 -74.8033,44.9214 -74.8002,44.9242 -74.8073,44.9246 -74.8137,44.9236 -74.8214,44.9194 -74.8233,44.9167 -74.8329,44.9134 -74.8393,44.9111 -74.8431,44.906 -74.8449,44.9001 -74.8532,44.8923 -74.8576,44.8886 -74.8704,44.8821 -74.8801,44.8825 -74.8891,44.8806 -74.8961,44.8773 -74.9045,44.8768 -74.9167,44.8767 -74.9348,44.8748 -74.9444,44.8742 -74.9502,44.871 -74.9533,44.8668 -74.9578,44.8627 -74.9616,44.8622 -74.968,44.8617 -74.9751,44.8584 -74.9815,44.8547 -74.9923,44.8505 -75.0025,44.8436 -75.0076,44.8422 -75.0173,44.843 -75.0218,44.8412 -75.0507,44.8296 -75.0807,44.8201 -75.0945,44.8122 -75.1011,44.8112 -75.1085,44.8123 -75.1134,44.8129 -75.1204,44.812 -75.1258,44.8091 -75.1364,44.8036 -75.1395,44.8004 -75.1407,44.7976 -75.1397,44.7943 -75.1399,44.7894 -75.1412,44.7871 -75.1552,44.7783 -75.1845,44.7662 -75.1922,44.7629 -75.1979,44.7587 -75.2016,44.7505 -75.204,44.7431 -75.2084,44.7404 -75.2155,44.7371 -75.2224,44.7334 -75.23,44.7278 -75.2561,44.7143 -75.2892,44.6998 -75.3032,44.6905 -75.3126,44.6808 -75.319,44.6785 -75.3346,44.6739 -75.3445,44.6709 -75.3517,44.6622 -75.356,44.6584 -75.3602,44.6548 -75.3644,44.6523 -75.3703,44.6489 -75.378,44.6445 -75.4019,44.6265 -75.4127,44.6199 -75.431,44.6056 -75.4556,44.5893 -75.4778,44.5758 -75.4999,44.5646 -75.5062,44.5604 -75.5106,44.5544 -75.5162,44.5466 -75.5281,44.5369 -75.5395,44.5304 -75.5471,44.5275 -75.5528,44.5238 -75.5559,44.5187 -75.5615,44.5137 -75.5678,44.5104 -75.5716,44.5062 -75.5758,44.4966 -75.5866,44.4919 -75.6062,44.4834 -75.61,44.4793 -75.6098,44.4733 -75.6148,44.4692 -75.6185,44.4646 -75.624,44.4549 -75.6288,44.4412 -75.6319,44.4361 -75.6414,44.4323 -75.6438,44.4286 -75.6393,44.4264 -75.6336,44.4274 -75.6259,44.4271 -75.6207,44.4244 -75.6174,44.4183 -75.6662,44.3769 -75.6742,44.3701 -75.6881,44.3601 -75.6953,44.3563 -75.7051,44.3512 -75.7076,44.3493 -75.7062,44.3443 -75.7017,44.3449 -75.6928,44.3464 -75.6946,44.3436 -75.6958,44.3395 -75.6913,44.3373 -75.6931,44.3336 -75.6963,44.3322 -75.702,44.3307 -75.7077,44.3288 -75.7102,44.3265 -75.7126,44.3219 -75.7157,44.32 -75.7177,44.3218 -75.7197,44.3241 -75.7204,44.3277 -75.7187,44.3341 -75.7257,44.3322 -75.7383,44.3261 -75.761,44.3148 -75.7698,44.3097 -75.7766,44.3023 -75.7846,44.2935 -75.806,44.2818 -75.8136,44.2794 -75.8167,44.2771 -75.8185,44.2721 -75.8242,44.2701 -75.8318,44.2691 -75.8425,44.2626 -75.8492,44.2529 -75.8555,44.2492 -75.8618,44.2454 -75.8642,44.2422 -75.8634,44.234 -75.8697,44.2321 -75.8717,44.2339 -75.8737,44.237 -75.8762,44.2375 -75.8807,44.2356 -75.885,44.2328 -75.8867,44.2241 -75.8949,44.2212 -75.905,44.217 -75.9144,44.2127 -75.9232,44.2089 -75.9335,44.2115 -75.9374,44.2133 -75.9373,44.2096 -75.9377,44.2019 -75.9428,44.2009 -75.9511,44.2021 -75.9575,44.2034 -75.9619,44.2019 -75.9631,44.1987 -75.97,44.194 -75.9751,44.1944 -75.9796,44.1939 -75.9865,44.1906 -75.9928,44.1891 -76.0048,44.1867 -76.0175,44.1837 -76.0289,44.1799 -76.0332,44.1771 -76.0376,44.1752 -76.0434,44.1764 -76.0491,44.175 -76.0528,44.1708 -76.0546,44.1662 -76.0583,44.163 -76.0633,44.1602 -76.0727,44.1559 -76.0778,44.1549 -76.086,44.1507 -76.0941,44.1473 -76.0966,44.1441 -76.0983,44.1381 -76.1077,44.1348 -76.1103,44.1338 -76.1171,44.1296 -76.1253,44.1277 -76.1368,44.127 -76.1393,44.1256 -76.1436,44.121 -76.1498,44.1168 -76.1579,44.1116 -76.1674,44.1078 -76.1794,44.1048 -76.1882,44.101 -76.1944,44.0959 -76.1998,44.0881 -76.2085,44.0815 -76.2128,44.0774 -76.2138,44.07 -76.2118,44.0664 -76.2092,44.0633 -76.2097,44.0606 -76.2038,44.0561 -76.2061,44.0492 -76.2084,44.0405 -76.2089,44.0378 -76.2069,44.0364 -76.1993,44.0361 -76.1923,44.0376 -76.1873,44.0377 -76.1816,44.041 -76.1766,44.0438 -76.1722,44.0439 -76.1708,44.0416 -76.1726,44.0375 -76.1775,44.0324 -76.1755,44.0293 -76.1704,44.028 -76.1565,44.0305 -76.1481,44.0275 -76.1505,44.0242 -76.1516,44.0183 -76.1508,44.0137 -76.1519,44.0096 -76.1543,44.0032 -76.1567,43.9991 -76.1597,43.9944 -76.1583,43.9908 -76.1531,43.9873 -76.151,43.9832 -76.1522,43.9795 -76.1527,43.9772 -76.147,43.9773 -76.1407,43.9788 -76.1332,43.9831 -76.1346,43.9867 -76.1354,43.9898 -76.1335,43.9908 -76.1272,43.9941 -76.1249,43.9991 -76.1287,44.0009 -76.1401,43.9989 -76.1377,44.0021 -76.1314,44.0059 -76.124,44.0101 -76.1191,44.0179 -76.113,44.0244 -76.1049,44.0291 -76.0954,44.0329 -76.0839,44.0313 -76.0769,44.03 -76.0694,44.0356 -76.0602,44.0449 -76.0506,44.0446 -76.0511,44.0391 -76.0529,44.0364 -76.0579,44.0322 -76.0596,44.028 -76.057,44.0254 -76.0532,44.0245 -76.0386,44.0261 -76.0354,44.0271 -76.019,44.0319 -76.0152,44.0311 -76.0062,44.0298 -75.9968,44.0318 -75.9967,44.0286 -75.994,44.0264 -75.9889,44.0237 -75.9868,44.0201 -75.9931,44.0155 -76.0049,44.008 -76.0174,44.0019 -76.009,43.9956 -76.0002,43.9985 -75.9927,44.0036 -75.9808,44.0107 -75.967,44.0154 -75.9599,44.0133 -75.9604,44.0101 -75.9642,44.0077 -75.9679,44.0045 -75.9696,43.9994 -75.9688,43.9926 -75.9749,43.9848 -75.99,43.9781 -76.0032,43.9743 -76.024,43.9671 -76.0341,43.9651 -76.0448,43.9613 -76.0575,43.942 -76.0522,43.9366 -76.0383,43.9386 -76.0307,43.9397 -76.0256,43.9379 -76.0248,43.9334 -76.0176,43.9276 -76.0043,43.9292 -75.9792,43.9391 -75.945,43.962 -75.9471,43.9679 -75.9427,43.9721 -75.9389,43.9726 -75.932,43.9759 -75.9264,43.9783 -75.9194,43.9784 -75.9168,43.9761 -75.9192,43.9729 -75.923,43.9701 -75.9286,43.9661 -75.9215,43.9633 -75.9015,43.9741 -75.883,43.9744 -75.874,43.9698 -75.8791,43.9694 -75.8855,43.9707 -75.8911,43.9697 -75.8962,43.9673 -75.8999,43.9645 -75.9054,43.9585 -75.9097,43.953 -75.9096,43.9503 -75.9063,43.9458 -75.9017,43.9413 -75.9029,43.9381 -75.9067,43.9362 -75.9111,43.9352 -75.913,43.9338 -75.9141,43.9297 -75.9178,43.926 -75.9254,43.9254 -75.9293,43.9272 -75.9307,43.9313 -75.9302,43.9354 -75.929,43.9399 -75.9334,43.9362 -75.939,43.9343 -75.944,43.931 -75.9527,43.9254 -75.9683,43.9165 -75.9853,43.9094 -75.9915,43.9057 -75.9933,43.9016 -75.9875,43.8985 -75.9835,43.8949 -75.9834,43.8894 -75.9812,43.8803 -75.9773,43.8768 -75.9765,43.8736 -75.979,43.8708 -75.9827,43.8685 -75.9838,43.8639 -75.985,43.8598 -75.9912,43.8565 -75.9975,43.8555 -76.0039,43.8549 -76.0095,43.853 -76.0189,43.8483 -76.0294,43.8404 -76.05,43.8291 -76.0518,43.8263 -76.0536,43.8222 -76.0567,43.8199 -76.0599,43.8203 -76.0663,43.8238 -76.0709,43.826 -76.08,43.8327 -76.082,43.8358 -76.0808,43.84 -76.079,43.8436 -76.0741,43.8483 -76.0737,43.8533 -76.0787,43.8528 -76.085,43.8504 -76.0925,43.8475 -76.0982,43.8465 -76.1065,43.8473 -76.1141,43.8476 -76.1222,43.8447 -76.1284,43.8405 -76.135,43.8286 -76.1455,43.8188 -76.1486,43.8165 -76.1484,43.8124 -76.1456,43.8038 -76.1386,43.8034 -76.1273,43.805 -76.1189,43.8024 -76.1194,43.7969 -76.1224,43.7932 -76.1229,43.7878 -76.1064,43.789 -76.1007,43.7891 -76.0961,43.7823 -76.0929,43.7824 -76.0879,43.7843 -76.0847,43.7839 -76.0833,43.7789 -76.0851,43.7752 -76.0867,43.7683 -76.084,43.7611 -76.0777,43.7453 -76.0741,43.7308 -76.0691,43.7126 -76.0646,43.6922 -76.0582,43.6914 -76.0571,43.6793 -76.0554,43.6608 -76.0536,43.6488 -76.0529,43.6441 -76.0544,43.6304 -76.0546,43.6191 -76.0536,43.6072 -76.0522,43.6018 -76.049,43.6005 -76.0459,43.6019 -76.0441,43.6051 -76.0436,43.6115 -76.0438,43.616 -76.0446,43.6229 -76.0462,43.6319 -76.0433,43.6393 -76.0389,43.6416 -76.0369,43.638 -76.038,43.6339 -76.036,43.6303 -76.0302,43.6277 -76.0232,43.6237 -76.0212,43.6228 -76.0162,43.6224 -76.0097,43.6198 -76.0077,43.6148 -76.0095,43.6116 -76.0132,43.6093 -76.0169,43.6065 -76.0194,43.6046 -76.0187,43.6023 -76.0198,43.5987 -76.0243,43.5995 -76.0282,43.6017 -76.0325,43.6007 -76.0356,43.5975 -76.0387,43.5947 -76.0392,43.5906 -76.0333,43.5862 -76.0364,43.5843 -76.0401,43.5801 -76.0426,43.5801 -76.044,43.5833 -76.0512,43.5922 -76.0537,43.5913 -76.0555,43.5876 -76.0565,43.5794 -76.0567,43.5657 -76.0554,43.5457 -76.0515,43.5426 -76.0445,43.54 -76.033,43.5374 -76.026,43.5344 -76.0279,43.533 -76.0335,43.532 -76.0404,43.531 -76.048,43.5322 -76.0506,43.5322 -76.0556,43.5316 -76.0611,43.5261 -76.0654,43.5219 -76.069,43.5145 -76.0738,43.5067 -76.0792,43.5007 -76.0892,43.4951 -76.0986,43.4935 -76.1061,43.4925 -76.1136,43.4906 -76.1306,43.4875 -76.1474,43.48 -76.1543,43.4798 -76.1632,43.4806 -76.1676,43.4814 -76.1701,43.4796 -76.1769,43.4763 -76.1896,43.4783 -76.1992,43.4813 -76.2171,43.4874 -76.2299,43.4921 -76.24,43.4924 -76.2526,43.4917 -76.2683,43.4883 -76.2794,43.4817 -76.2972,43.4677 -76.3053,43.4644 -76.3147,43.4624 -76.3215,43.459 -76.3271,43.4558 -76.3282,43.4521 -76.3299,43.4466 -76.3366,43.4406 -76.3484,43.4358 -76.3689,43.4272 -76.3901,43.42 -76.4119,43.4122 -76.4256,43.4065 -76.4354,43.3995 -76.4539,43.3877 -76.4672,43.3802 -76.4946,43.3642 -76.5054,43.3498 -76.5241,43.329 -76.5363,43.3178 -76.5505,43.3111 -76.5529,43.3093 -76.5528,43.307 -76.552,43.302 -76.5537,43.2961 -76.5566,43.2919 -76.5545,43.2865 -76.557,43.2837 -76.5614,43.2841 -76.5669,43.2908 -76.5695,43.2985 -76.568,43.3026 -76.5655,43.3086 -76.5687,43.3108 -76.575,43.3106 -76.5768,43.307 -76.576,43.3029 -76.5757,43.297 -76.5788,43.2937 -76.5851,43.295 -76.5871,43.2976 -76.5844,43.3086 -76.5912,43.3058 -76.5949,43.3025 -76.6015,43.2946 -76.6119,43.2876 -76.6249,43.2818 -76.6492,43.2763 -76.6723,43.2726 -76.6792,43.2716 -76.6817,43.2692 -76.6816,43.267 -76.6776,43.2616 -76.6741,43.2548 -76.6744,43.2448 -76.6805,43.242 -76.6825,43.2451 -76.6815,43.2506 -76.6831,43.2596 -76.6895,43.2613 -76.6947,43.2653 -76.6974,43.2698 -76.7111,43.2668 -76.7186,43.2639 -76.7267,43.2623 -76.7342,43.2622 -76.7431,43.2633 -76.7544,43.2635 -76.7668,43.2578 -76.7816,43.2502 -76.7921,43.2472 -76.799,43.2457 -76.7995,43.2421 -76.7992,43.2357 -76.7929,43.2367 -76.791,43.2354 -76.7901,43.2291 -76.7869,43.2269 -76.7841,43.2215 -76.7858,43.2169 -76.7868,43.2109 -76.7823,43.2083 -76.7745,43.2035 -76.7699,43.199 -76.7703,43.1917 -76.7724,43.1826 -76.7743,43.1835 -76.7763,43.1852 -76.7778,43.1911 -76.778,43.1952 -76.7795,43.202 -76.793,43.2076 -76.8036,43.2078 -76.8144,43.209 -76.8166,43.2162 -76.8219,43.2229 -76.8264,43.2246 -76.8283,43.2255 -76.829,43.2277 -76.8273,43.231 -76.8242,43.2319 -76.8187,43.2357 -76.8176,43.2394 -76.8196,43.2421 -76.8278,43.2432 -76.838,43.2448 -76.8769,43.2421 -76.8914,43.2431 -76.9009,43.2452 -76.9099,43.2491 -76.9174,43.2485 -76.9263,43.2505 -76.9455,43.2565 -76.9611,43.2543 -76.9781,43.2534 -76.9825,43.2533 -76.9907,43.2554 -77.0014,43.2556 -77.0176,43.2511 -77.0251,43.2505 -77.0347,43.252 -77.0428,43.2518 -77.0559,43.2492 -77.0635,43.2495 -77.0735,43.2479 -77.1024,43.2467 -77.1287,43.2438 -77.1469,43.2443 -77.1533,43.2455 -77.1666,43.247 -77.1767,43.2476 -77.1873,43.2469 -77.2123,43.2431 -77.2248,43.2416 -77.2274,43.2413 -77.2331,43.2421 -77.2368,43.242 -77.2482,43.2421 -77.2513,43.2416 -77.2649,43.2371 -77.2767,43.2346 -77.2897,43.2301 -77.3052,43.2243 -77.3263,43.2182 -77.3487,43.2149 -77.3569,43.2151 -77.3687,43.2126 -77.3762,43.2101 -77.3961,43.2054 -77.4232,43.2074 -77.4361,43.2126 -77.4476,43.2168 -77.4541,43.2212 -77.4615,43.2287 -77.4718,43.2343 -77.4834,43.2399 -77.5008,43.2458 -77.511,43.2496 -77.5273,43.2597 -77.5342,43.2704 -77.5426,43.2752 -77.552,43.274 -77.5653,43.2759 -77.572,43.2834 -77.5571,43.2861 -77.561,43.2897 -77.5662,43.2927 -77.5746,43.2957 -77.5925,43.3011 -77.6117,43.3064 -77.6287,43.3055 -77.6462,43.3041 -77.6633,43.3045 -77.6743,43.3096 -77.6847,43.3157 -77.6966,43.3154 -77.7194,43.317 -77.7398,43.3205 -77.7697,43.3264 -77.7996,43.3301 -77.8149,43.3342 -77.8232,43.3348 -77.8288,43.3342 -77.8356,43.3313 -77.8395,43.3315 -77.8463,43.3318 -77.8522,43.3349 -77.8812,43.3349 -77.8875,43.3356 -77.8931,43.334 -77.8993,43.3316 -77.9111,43.3298 -77.9246,43.3331 -77.9424,43.3371 -77.9653,43.3391 -77.9917,43.3378 -78.0148,43.3344 -78.0367,43.3318 -78.0549,43.3303 -78.0707,43.3307 -78.1075,43.3355 -78.117,43.3365 -78.1296,43.3361 -78.1479,43.336 -78.1763,43.3355 -78.2034,43.3364 -78.2288,43.3388 -78.2439,43.3387 -78.2609,43.3377 -78.2778,43.3358 -78.2999,43.3368 -78.3121,43.3379 -78.3189,43.3385 -78.338,43.3401 -78.3624,43.3384 -78.3787,43.3369 -78.3956,43.3345 -78.4179,43.3291 -78.4311,43.3278 -78.4424,43.3274 -78.4538,43.3274 -78.4626,43.328 -78.4775,43.3248 -78.493,43.3201 -78.5183,43.3124 -78.5432,43.307 -78.5546,43.3084 -78.5635,43.3099 -78.571,43.3087 -78.5807,43.3033 -78.5937,43.2992 -78.5974,43.2986 -78.6063,43.2992 -78.6124,43.2967 -78.6191,43.2933 -78.6267,43.293 -78.6417,43.2925 -78.6548,43.2897 -78.6672,43.2865 -78.6739,43.2836 -78.6811,43.2787 -78.6906,43.2788 -78.6952,43.2819 -78.697,43.2804 -78.7069,43.2787 -78.7113,43.2785 -78.7156,43.277 -78.744,43.2677 -78.7773,43.2583 -78.7997,43.2538 -78.8295,43.2477 -78.8704,43.2393 -78.8941,43.2365 -78.9005,43.2377 -78.9097,43.2341 -78.9114,43.2318 -78.906,43.2261 -78.9014,43.2244 -78.897,43.2241 -78.8937,43.222 -78.8935,43.2193 -78.8963,43.2146 -78.9017,43.2103 -78.9055,43.2024 -78.9009,43.1959 -78.8998,43.1844 -78.8984,43.1744 -78.8952,43.165 -78.8953,43.1577 -78.898,43.1521 -78.8956,43.1449 -78.8931,43.1364 -78.8899,43.1278 -78.8874,43.1184 -78.8868,43.1106 -78.8926,43.104 -78.9033,43.0959 -78.9105,43.091 -78.9133,43.0864 -78.9093,43.0829 -78.9048,43.0735 -78.9091,43.0633 -78.91,43.0592 -78.9086,43.0565 -78.9066,43.0548 -78.9026,43.0517 -78.8923,43.0489 -78.8644,43.0445 -78.836,43.0424 -78.7904,43.0382 -78.7731,43.0325 -78.7626,43.0265 -78.7517,43.0233 -78.7419,43.0173 -78.7365,43.0125 -78.7323,43.0058 -78.7299,42.9995 -78.7297,42.9877 -78.7326,42.984 -78.7343,42.9816 -78.7361,42.9797 -78.7409,42.9773 -78.7537,42.9722 -78.7635,42.9687 -78.7737,42.9628 -78.7831,42.9529 -78.7846,42.9478 -78.784,42.9401 -78.7818,42.9357 -78.7725,42.9278 -78.7644,42.9204 -78.7614,42.9132 -78.7564,42.9047 -78.7514,42.8954 -78.7531,42.8839 -78.7557,42.8761 -78.7534,42.8703 -78.7466,42.8632 -78.7385,42.8549 -78.7368,42.849 -78.7318,42.8406 -78.7276,42.8343 -78.7227,42.8259 -78.7125,42.8153 -78.7065,42.8014 -78.7036,42.7956 -78.7099,42.7963 -78.7135,42.793 -78.7137,42.788 -78.7114,42.7821 -78.7065,42.7655 -78.7067,42.7586 -78.7144,42.7524 -78.731,42.7409 -78.7447,42.7304 -78.7629,42.7137 -78.7727,42.7106 -78.785,42.7079 -78.8034,42.7036 -78.8201,42.6929 -78.823,42.6896 -78.8273,42.689 -78.8316,42.6875 -78.8414,42.6848 -78.8493,42.6822 -78.8597,42.6791 -78.8732,42.6745 -78.8847,42.6695 -78.8912,42.6651 -78.894,42.6605 -78.9002,42.6511 -78.9045,42.6423 -78.906,42.6364 -78.9046,42.6255 -78.9085,42.6199 -78.9122,42.6193 -78.9214,42.6171 -78.9281,42.6146 -78.929,42.6095 -78.9457,42.5998 -78.958,42.5888 -78.9649,42.5799 -78.9779,42.5625 -78.9837,42.5482 -78.9888,42.5412 -78.9941,42.5373 -79.0071,42.535 -79.0129,42.5297 -79.0197,42.529 -79.0265,42.5278 -79.0361,42.5238 -79.0404,42.5218 -79.049,42.521 -79.0545,42.519 -79.0617,42.515 -79.0751,42.5109 -79.0925,42.5029 -79.1062,42.4937 -79.1199,42.4858 -79.1321,42.4817 -79.1388,42.4796 -79.1448,42.4766 -79.1494,42.4728 -79.1605,42.4701 -79.1749,42.4636 -79.1864,42.459 -79.1926,42.4588 -79.1964,42.4591 -79.2026,42.4593 -79.2089,42.4444 -79.2202,42.4367 -79.2365,42.4305 -79.241,42.4244 -79.2513,42.4204 -79.2581,42.4201 -79.2639,42.4148 -79.2749,42.3962 -79.2921,42.385 -79.3114,42.3778 -79.3464,42.3558 -79.3732,42.3411 -79.405,42.326 -79.4385,42.3096 -79.4601,42.3 -79.479,42.2887 -79.5135,42.2699 -79.5254,42.2635 -79.543,42.2577 -79.5606,42.2524 -79.5732,42.2473 -79.5901,42.2411 -79.6094,42.2366 -79.6148,42.2306 -79.6228,42.2264 -79.6344,42.223 -79.6424,42.2206 -79.6522,42.2168 -79.6582,42.2121 -79.6686,42.206 -79.6771,42.2013 -79.6857,42.198 -79.6912,42.1956 -79.7028,42.1922 -79.7089,42.1903 -79.7139,42.1911 -79.7208,42.1932 -79.7295,42.1931 -79.735,42.1903 -79.7435,42.1847 -79.7501,42.1809 -79.7587,42.178 -79.7661,42.176 -79.7772,42.174 -79.7857,42.1707 -79.7906,42.1674 -79.7954,42.1637 -79.8058,42.1599 -79.818,42.1555 -79.8284,42.1508 -79.8363,42.1465 -79.8436,42.1423 -79.8514,42.1372 -79.8593,42.1329 -79.869,42.1277 -79.8733,42.1245 -79.8787,42.1216 -79.8946,42.1168 -79.9038,42.113 -79.9087,42.1106 -79.916,42.1082 -79.919,42.1068 -79.9227,42.1062 -79.9259,42.1071 -79.929,42.1079 -79.9358,42.1073 -79.9381,42.1023 -79.9435,42.0995 -79.9551,42.0951 -79.96,42.0928 -79.966,42.0895 -79.9765,42.0865 -79.9881,42.0827 -79.9923,42.0807 -79.9978,42.0793 -80.004,42.0782 -80.0078,42.0804 -80.0073,42.085 -80.0049,42.0869 -80.0,42.0874 -79.9976,42.0893 -79.9971,42.0929 -79.996,42.0966 -79.9955,42.0998 -79.9906,42.1008 -79.9882,42.1022 -79.9853,42.1068 -79.9822,42.1087 -79.9779,42.1097 -79.9699,42.1098 -79.9637,42.11 -79.9594,42.1105 -79.9557,42.111 -79.952,42.1116 -79.9515,42.1138 -79.9503,42.1161 -79.9485,42.118 -79.9455,42.1194 -79.943,42.1176 -79.9392,42.1159 -79.9336,42.1165 -79.9318,42.1174 -79.9319,42.1197 -79.9332,42.1224 -79.9327,42.1256 -79.9322,42.1292 -79.936,42.1305 -79.9422,42.1295 -79.9471,42.1298 -79.9521,42.1302 -79.9553,42.1324 -79.9596,42.1314 -79.9656,42.1276 -79.9704,42.1239 -79.9746,42.1206 -79.9821,42.1209 -79.9882,42.1195 -79.9937,42.118 -79.9949,42.1157 -79.9959,42.1102 -80.0018,42.101 -80.0059,42.0959 -80.013,42.0876 -80.0165,42.0825 -80.0188,42.0779 -80.0211,42.0738 -80.0241,42.0706 -80.0333,42.0672 -80.0502,42.0582 -80.0661,42.052 -80.0789,42.0485 -80.0948,42.0436 -80.1093,42.0347 -80.1232,42.0276 -80.1402,42.0195 -80.1585,42.0127 -80.1737,42.0074 -80.1927,42.0011 -80.2055,41.9972 -80.2245,41.994 -80.2325,41.9925 -80.2447,41.9886 -80.2526,41.9857 -80.2727,41.9793 -80.2862,41.9767 -80.2979,41.9751 -80.3094,41.9703 -80.3179,41.9674 -80.3234,41.965 -80.3301,41.9621 -80.3375,41.9624 -80.3437,41.964 -80.3511,41.9639 -80.3572,41.9601 -80.3644,41.9554 -80.3668,41.9536 -80.3704,41.9511 -80.3769,41.9455 -80.3847,41.9404 -80.3906,41.9348 -80.4051,41.9272 -80.4156,41.926 -80.4309,41.9238 -80.4432,41.9226 -80.4535,41.9178 -80.4607,41.9136 -80.4741,41.9082 -80.4858,41.9084 -80.4999,41.9067 -80.5109,41.9042 -80.5182,41.9013 -80.5297,41.8964 -80.5376,41.8949 -80.5487,41.8928 -80.5584,41.8894 -80.5663,41.8864 -80.5748,41.8844 -80.5791,41.8843 -80.5871,41.8832 -80.597,41.8829 -80.6056,41.8823 -80.6105,41.8817 -80.6147,41.8798 -80.6177,41.8774 -80.6237,41.875 -80.6251,41.8777 -80.6246,41.8804 -80.6235,41.8836 -80.6273,41.884 -80.6303,41.8821 -80.6344,41.8793 -80.6394,41.88 -80.643,41.8781 -80.6479,41.8771 -80.6515,41.8756 -80.6532,41.872 -80.6579,41.8655 -80.6651,41.863 -80.6719,41.8633 -80.6755,41.8605 -80.6816,41.8585 -80.689,41.8583 -80.6945,41.8577 -80.7018,41.8557 -80.7074,41.856 -80.7116,41.8536 -80.7157,41.8494 -80.7216,41.8447 -80.7326,41.8422 -80.7429,41.8378 -80.7507,41.8344 -80.7544,41.833 -80.7605,41.8315 -80.7709,41.8303 -80.7808,41.8305 -80.7869,41.8289 -80.7972,41.8264 -80.8064,41.8248 -80.8145,41.8259 -80.8248,41.8229 -80.8309,41.8209 -80.8369,41.8185 -80.8448,41.8165 -80.8474,41.8161 -80.8534,41.8153 -80.8607,41.8133 -80.8697,41.8094 -80.891,41.8039 -80.9056,41.7998 -80.9208,41.7953 -80.9317,41.7905 -80.9443,41.7847 -80.9503,41.7809 -80.9599,41.776 -80.9684,41.7744 -80.9873,41.7703 -81.0055,41.7634 -81.0151,41.759 -81.0259,41.7546 -81.0343,41.7503 -81.0403,41.747 -81.0487,41.7426 -81.0566,41.7401 -81.0643,41.7349 -81.0758,41.7314 -81.0849,41.728 -81.0965,41.7262 -81.1087,41.7241 -81.1147,41.7212 -81.1202,41.7206 -81.1276,41.7199 -81.1336,41.7179 -81.1371,41.7142 -81.1455,41.7094 -81.1533,41.7064 -81.1667,41.7028 -81.1794,41.6988 -81.1885,41.6958 -81.2018,41.6927 -81.2097,41.6902 -81.2113,41.6856 -81.2153,41.6809 -81.2205,41.674 -81.2271,41.671 -81.241,41.6665 -81.2445,41.6628 -81.2479,41.6581 -81.2526,41.6544 -81.2574,41.651 -81.2634,41.6486 -81.2699,41.6443 -81.2753,41.6409 -81.2806,41.6371 -81.29,41.63 -81.2971,41.6244 -81.3081,41.6131 -81.32,41.6046 -81.3251,41.5981 -81.338,41.5877 -81.347,41.5829 -81.3603,41.5788 -81.3708,41.5794 -81.3786,41.5773 -81.3826,41.5732 -81.3844,41.5712 -81.3891,41.5661 -81.3949,41.5614 -81.3995,41.5558 -81.409,41.5505 -81.4187,41.547 -81.4313,41.5416 -81.4365,41.5373 -81.4431,41.5335 -81.4502,41.5292 -81.4549,41.5254 -81.4625,41.5197 -81.4651,41.5186 -81.4685,41.5172 -81.4723,41.515 -81.4822,41.5091 -81.4906,41.5027 -81.4981,41.4972 -81.5048,41.4937 -81.5082,41.4919 -81.5148,41.4888 -81.5237,41.4836 -81.5337,41.4774 -81.5391,41.4745 -81.5423,41.4733 -81.5492,41.4706 -81.5552,41.4676 -81.5618,41.4647 -81.567,41.4631 -81.5702,41.4621 -81.5748,41.4606 -81.582,41.4583 -81.5859,41.4571 -81.5884,41.4566 -81.5914,41.4562 -81.5962,41.4554 -81.5999,41.4548 -81.6103,41.4553 -81.6271,41.4589 -81.6408,41.4616 -81.6519,41.463 -81.6623,41.4627 -81.6739,41.4605 -81.6816,41.4566 -81.6887,41.4523 -81.6973,41.4529 -81.7095,41.4511 -81.7168,41.4504 -81.728,41.4523 -81.7619,41.4557 -81.7767,41.457 -81.7873,41.4589 -81.7967,41.4622 -81.8062,41.4664 -81.8091,41.4677 -81.8163,41.471 -81.8289,41.4761 -81.842,41.4788 -81.8513,41.4807 -81.863,41.4812 -81.8733,41.479 -81.8847,41.4746 -81.8961,41.471 -81.9112,41.4673 -81.9258,41.4654 -81.9519,41.4603 -81.9688,41.4566 -81.9851,41.4519 -81.9964,41.4474 -82.0061,41.4448 -82.0146,41.4444 -82.0202,41.4456 -82.0213,41.4424 -82.0205,41.4401 -82.0279,41.4408 -82.0329,41.442 -82.0338,41.4374 -82.0342,41.4337 -82.0419,41.4298 -82.0526,41.4249 -82.0629,41.4222 -82.0737,41.4196 -82.0821,41.4156 -82.0896,41.409 -82.0936,41.4047 -82.1012,41.3995 -82.1175,41.3952 -82.1262,41.3976 -82.1343,41.3991 -82.1421,41.3961 -82.1512,41.3958 -82.1667,41.397 -82.1808,41.3969 -82.19,41.3975 -82.198,41.3976 -82.2071,41.3964 -82.2174,41.3942 -82.2264,41.3925 -82.2348,41.3885 -82.2419,41.3855 -82.2478,41.3826 -82.2578,41.3767 -82.2686,41.3727 -82.2858,41.3643 -82.3002,41.3592 -82.3141,41.3564 -82.3273,41.3531 -82.3419,41.3517 -82.353,41.3521 -82.363,41.3554 -82.3769,41.3603 -82.3888,41.3648 -82.4072,41.3727 -82.4205,41.3786 -82.4344,41.3844 -82.4372,41.3888 -82.4412,41.3941 -82.4832,41.4184 -82.4913,41.4246 -82.5003,41.4316 -82.5092,41.4385 -82.515,41.443 -82.5193,41.4464 -82.5251,41.4508 -82.5284,41.4533 -82.5387,41.4496 -82.5306,41.4445 -82.5254,41.4385 -82.5164,41.432 -82.5087,41.4282 -82.5023,41.4239 -82.4957,41.4228 -82.4907,41.4197 -82.4861,41.4168 -82.485,41.4137 -82.4803,41.4085 -82.4738,41.4037 -82.4688,41.4021 -82.465,41.4009 -82.4607,41.4011 -82.4575,41.3972 -82.4534,41.3927 -82.4508,41.3905 -82.4481,41.3875 -82.4473,41.3843 -82.4508,41.3824 -82.4558,41.384 -82.4591,41.3866 -82.4618,41.3897 -82.4638,41.3928 -82.4671,41.3954 -82.4735,41.3987 -82.479,41.3994 -82.4838,41.3979 -82.4874,41.3964 -82.4912,41.3976 -82.4899,41.4049 -82.4981,41.4091 -82.4997,41.4136 -82.5059,41.4147 -82.5063,41.412 -82.5074,41.4101 -82.5117,41.4104 -82.5216,41.4104 -82.5254,41.4121 -82.5237,41.4149 -82.5166,41.4184 -82.5143,41.4207 -82.5181,41.4215 -82.5254,41.4216 -82.5385,41.4243 -82.5473,41.4262 -82.5542,41.4287 -82.5628,41.4283 -82.5706,41.4271 -82.5735,41.4242 -82.5781,41.4204 -82.581,41.4176 -82.583,41.4193 -82.5828,41.4257 -82.5847,41.4265 -82.5897,41.4272 -82.5927,41.4266 -82.5941,41.4202 -82.5956,41.4161 -82.6012,41.4177 -82.6095,41.4137 -82.6132,41.4131 -82.6202,41.4173 -82.6294,41.4251 -82.6327,41.4282 -82.6386,41.4329 -82.6443,41.4359 -82.6489,41.4389 -82.654,41.4418 -82.6583,41.4417 -82.665,41.4414 -82.6717,41.4407 -82.6732,41.4365 -82.6758,41.4305 -82.682,41.4225 -82.6902,41.4181 -82.7034,41.413 -82.7098,41.4095 -82.7147,41.4089 -82.721,41.4104 -82.7272,41.412 -82.7337,41.409 -82.7419,41.4036 -82.7502,41.3992 -82.7563,41.3954 -82.7642,41.3904 -82.7733,41.3887 -82.7794,41.3884 -82.785,41.3895 -82.7903,41.3952 -82.7962,41.3995 -82.8014,41.4038 -82.8054,41.4073 -82.8074,41.409 -82.8102,41.4135 -82.8177,41.4154 -82.8214,41.4162 -82.8262,41.415 -82.8317,41.4139 -82.8253,41.4105 -82.821,41.4103 -82.8178,41.409 -82.8176,41.4059 -82.82,41.4053 -82.8179,41.4027 -82.814,41.3992 -82.8143,41.396 -82.8146,41.3915 -82.8156,41.3882 -82.8191,41.3867 -82.8218,41.3893 -82.8214,41.3925 -82.8233,41.3933 -82.8259,41.3955 -82.8257,41.4001 -82.8247,41.4028 -82.8255,41.4051 -82.8309,41.4044 -82.8325,41.4007 -82.8348,41.3983 -82.8407,41.3962 -82.8412,41.394 -82.8447,41.3915 -82.8463,41.3965 -82.8454,41.401 -82.845,41.4038 -82.8398,41.4076 -82.843,41.4098 -82.8439,41.4129 -82.8398,41.4154 -82.8357,41.4183 -82.8347,41.4206 -82.8379,41.4232 -82.8438,41.4193 -82.8497,41.4168 -82.8545,41.4152 -82.8612,41.4154 -82.8692,41.4146 -82.8824,41.4113 -82.8902,41.4096 -82.8946,41.4103 -82.8967,41.4129 -82.9016,41.4132 -82.909,41.4138 -82.9122,41.4154 -82.9156,41.4194 -82.9176,41.4216 -82.9182,41.4247 -82.9168,41.4275 -82.9114,41.4287 -82.9002,41.4273 -82.8897,41.4251 -82.8828,41.4252 -82.8772,41.4229 -82.8743,41.4254 -82.8715,41.4254 -82.8664,41.4265 -82.8604,41.4286 -82.8581,41.4305 -82.8545,41.4316 -82.85,41.429 -82.8437,41.427 -82.8358,41.4269 -82.8375,41.4337 -82.8334,41.4357 -82.8297,41.4363 -82.8254,41.4351 -82.8179,41.4336 -82.8175,41.4372 -82.8172,41.4404 -82.8146,41.4469 -82.8125,41.4515 -82.8115,41.4543 -82.8061,41.4559 -82.798,41.4544 -82.7893,41.4534 -82.7807,41.4524 -82.774,41.4532 -82.7655,41.4554 -82.7607,41.456 -82.7558,41.4567 -82.746,41.4566 -82.7368,41.457 -82.727,41.4574 -82.7228,41.459 -82.7168,41.4601 -82.7102,41.4622 -82.7036,41.4639 -82.6994,41.4654 -82.6952,41.4665 -82.6894,41.464 -82.683,41.4606 -82.676,41.4573 -82.6699,41.4571 -82.6634,41.4601 -82.6593,41.4634 -82.657,41.4658 -82.6537,41.47 -82.6476,41.4717 -82.6353,41.4708 -82.6309,41.4692 -82.6255,41.4707 -82.6175,41.4706 -82.6102,41.4723 -82.606,41.4738 -82.6001,41.4763 -82.5941,41.4789 -82.5892,41.4786 -82.5838,41.4802 -82.5789,41.4804 -82.5745,41.4792 -82.5688,41.4763 -82.5643,41.4746 -82.5629,41.4715 -82.5621,41.4688 -82.5587,41.4653 -82.5532,41.4655 -82.5498,41.4684 -82.5501,41.4725 -82.5521,41.4756 -82.5548,41.4777 -82.5561,41.4795 -82.5582,41.4826 -82.559,41.4853 -82.5573,41.4867 -82.5517,41.4951 -82.5516,41.502 -82.5556,41.5054 -82.5565,41.5095 -82.5591,41.5112 -82.5629,41.5124 -82.5672,41.5127 -82.5698,41.5149 -82.5746,41.5137 -82.585,41.5133 -82.5913,41.5144 -82.6028,41.5126 -82.6111,41.5168 -82.6178,41.5165 -82.6177,41.5143 -82.6125,41.5108 -82.6129,41.5081 -82.6196,41.5074 -82.6313,41.5078 -82.6411,41.5065 -82.6459,41.5054 -82.6537,41.5037 -82.661,41.5016 -82.6675,41.4986 -82.673,41.4979 -82.675,41.5001 -82.6728,41.5038 -82.6693,41.5062 -82.6578,41.5081 -82.6524,41.5096 -82.6482,41.5116 -82.6446,41.5131 -82.6431,41.5168 -82.6445,41.5195 -82.6488,41.5189 -82.6559,41.5159 -82.6583,41.5153 -82.6586,41.5189 -82.657,41.5217 -82.6536,41.5255 -82.657,41.5304 -82.6618,41.5293 -82.6654,41.5273 -82.6663,41.5232 -82.6692,41.5212 -82.6728,41.5193 -82.6736,41.5147 -82.6744,41.5087 -82.6778,41.505 -82.682,41.503 -82.688,41.5018 -82.6922,41.4998 -82.6926,41.4971 -82.6967,41.4946 -82.7033,41.4934 -82.7093,41.4914 -82.7201,41.4877 -82.725,41.4875 -82.7281,41.4879 -82.7295,41.4896 -82.7244,41.4953 -82.7178,41.4974 -82.71,41.5 -82.7027,41.5012 -82.6973,41.5032 -82.6963,41.506 -82.688,41.5095 -82.6842,41.5161 -82.6845,41.5197 -82.6781,41.5245 -82.6721,41.5347 -82.663,41.5365 -82.6608,41.5398 -82.6658,41.5414 -82.672,41.542 -82.6741,41.5447 -82.6744,41.5496 -82.6735,41.5538 -82.6769,41.5582 -82.6848,41.5565 -82.6882,41.5527 -82.6938,41.5538 -82.6988,41.5545 -82.7033,41.5498 -82.7057,41.5483 -82.7042,41.5448 -82.6989,41.5395 -82.7024,41.5376 -82.707,41.5333 -82.7014,41.5326 -82.6963,41.5306 -82.6956,41.5283 -82.6984,41.5255 -82.7032,41.5234 -82.7036,41.5207 -82.7038,41.5157 -82.7049,41.5138 -82.7077,41.5105 -82.7131,41.5089 -82.7123,41.5067 -82.7152,41.5043 -82.7194,41.5023 -82.7236,41.5012 -82.7302,41.4987 -82.7354,41.4953 -82.7395,41.4928 -82.7437,41.4908 -82.749,41.4874 -82.7537,41.485 -82.7597,41.4833 -82.7683,41.483 -82.7775,41.4835 -82.7882,41.4862 -82.7926,41.4883 -82.7984,41.4908 -82.8066,41.4941 -82.8123,41.4966 -82.8206,41.5003 -82.8251,41.5033 -82.8307,41.5031 -82.8304,41.5003 -82.8272,41.4978 -82.8325,41.4953 -82.8377,41.4987 -82.843,41.5034 -82.8471,41.5087 -82.8541,41.5125 -82.8611,41.5154 -82.8768,41.527 -82.8851,41.5312 -82.8929,41.5368 -82.9046,41.5449 -82.9102,41.5528 -82.9116,41.5555 -82.9102,41.5606 -82.9198,41.5661 -82.9301,41.572 -82.9404,41.5774 -82.95,41.5816 -82.9619,41.5847 -82.9712,41.5856 -82.9829,41.586 -82.9878,41.5889 -83.0031,41.5924 -83.0176,41.5963 -83.0313,41.598 -83.0382,41.6 -83.0494,41.6017 -83.0564,41.6042 -83.0628,41.6071 -83.0795,41.6163 -83.0874,41.6214 -83.0957,41.6261 -83.1041,41.6307 -83.1137,41.6348 -83.1196,41.6391 -83.1242,41.643 -83.1275,41.6456 -83.1313,41.6472 -83.1349,41.6457 -83.141,41.6445 -83.1502,41.6441 -83.1566,41.6479 -83.1602,41.6532 -83.1623,41.6563 -83.1679,41.6574 -83.1714,41.6545 -83.1768,41.6529 -83.1812,41.655 -83.1784,41.6583 -83.1719,41.6604 -83.1666,41.6638 -83.17,41.6671 -83.1733,41.6703 -83.1797,41.6737 -83.1832,41.6781 -83.1847,41.6816 -83.1888,41.6865 -83.192,41.6881 -83.1937,41.6862 -83.191,41.6832 -83.1887,41.6783 -83.1877,41.6733 -83.1879,41.6688 -83.1905,41.6618 -83.1969,41.6579 -83.2048,41.6571 -83.2116,41.6572 -83.2205,41.6604 -83.23,41.6632 -83.2425,41.6649 -83.2518,41.6658 -83.2572,41.6647 -83.2621,41.664 -83.2712,41.6622 -83.2786,41.6623 -83.2842,41.663 -83.2867,41.6642 -83.2876,41.6669 -83.2891,41.67 -83.2927,41.6694 -83.3084,41.6889 -83.319,41.6911 -83.3295,41.691 -83.3272,41.6958 -83.3253,41.6989 -83.3228,41.6992 -83.3196,41.7009 -83.3193,41.7041 -83.3196,41.7082 -83.3194,41.7105 -83.3195,41.7159 -83.3178,41.7213 -83.3157,41.7244 -83.3129,41.7283 -83.3089,41.7313 -83.3063,41.733 -83.3032,41.7333 -83.3029,41.737 -83.3046,41.7384 -83.3049,41.7421 -83.3041,41.7443 -83.302,41.7474 -83.2982,41.749 -83.2951,41.7489 -83.2934,41.747 -83.2908,41.7419 -83.2894,41.7363 -83.2875,41.7303 -83.2865,41.7271 -83.2852,41.7211 -83.2813,41.7155 -83.2792,41.719 -83.2796,41.7213 -83.281,41.7264 -83.2818,41.7319 -83.2831,41.7374 -83.2833,41.7429 -83.2849,41.7525 -83.2845,41.7639 -83.2835,41.7693 -83.2809,41.7778 -83.2767,41.7831 -83.2709,41.7864 -83.265,41.7902 -83.2598,41.7932 -83.2556,41.7989 -83.2522,41.8019 -83.243,41.8104 -83.2425,41.8147 -83.2397,41.8182 -83.2375,41.8226 -83.2338,41.8293 -83.2289,41.8354 -83.2242,41.8402 -83.2201,41.8445 -83.2135,41.8492 -83.2095,41.8527 -83.2118,41.8546 -83.2141,41.857 -83.2113,41.86 -83.2082,41.8603 -83.2039,41.8597 -83.1985,41.8585 -83.1953,41.8544 -83.1938,41.8487 -83.193,41.8432 -83.1886,41.8448 -83.1858,41.8479 -83.1836,41.8519 -83.1844,41.8569 -83.1876,41.8698 -83.1884,41.8753 -83.1873,41.8803 -83.1855,41.887 -83.1822,41.8891 -83.1748,41.8956 -83.1682,41.9008 -83.1631,41.9023 -83.1534,41.9069 -83.1475,41.9079 -83.1452,41.9084 -83.1415,41.909 -83.1377,41.9098 -83.134,41.9096 -83.1298,41.908 -83.1261,41.9078 -83.1232,41.9063 -83.1217,41.9026 -83.1213,41.8994 -83.1186,41.8952 -83.1154,41.8968 -83.1132,41.9008 -83.1116,41.9044 -83.1107,41.908 -83.1095,41.9139 -83.1123,41.9176 -83.1133,41.92 -83.113,41.9236 -83.1119,41.9285 -83.1116,41.9322 -83.1112,41.9371 -83.1128,41.939 -83.1162,41.9429 -83.1222,41.945 -83.1257,41.9474 -83.1288,41.9476 -83.1335,41.9523 -83.1317,41.9563 -83.1281,41.9557 -83.1251,41.9542 -83.1214,41.9545 -83.1166,41.952 -83.1124,41.9509 -83.1101,41.9489 -83.1059,41.9474 -83.1013,41.9435 -83.0982,41.9433 -83.0949,41.9455 -83.0911,41.9466 -83.0883,41.9501 -83.0849,41.9541 -83.0803,41.957 -83.0756,41.9614 -83.0691,41.9642 -83.0651,41.9677 -83.0654,41.9709 -83.0645,41.9745 -83.0642,41.9781 -83.0624,41.9835 -83.0608,41.9875 -83.0598,41.9925 -83.0593,41.9974 -83.0618,42.0026 -83.0693,42.0179 -83.0657,42.016 -83.0627,42.0144 -83.0608,42.0116 -83.0557,42.0078 -83.0519,42.0057 -83.0475,42.0276 -83.0515,42.0294 -83.053,42.0335 -83.0527,42.0367 -83.054,42.0427 -83.0586,42.0474 -83.0591,42.0548 -83.056,42.0551 -83.0539,42.0533 -83.0495,42.0511 -83.0466,42.0492 -83.0435,42.0474 -83.0413,42.0582 -83.0419,42.0599 -83.0437,42.0672 -83.0439,42.0727 -83.0429,42.0763 -83.0412,42.0817 -83.0375,42.0879 -83.0354,42.0914 -83.0342,42.0931 -83.0219,42.1539 -83.0171,42.1731 -83.0081,42.198 -82.9978,42.2177 -82.9716,42.2528 -82.942,42.2738 -82.936,42.2759 -82.9359,42.2759 -82.9286,42.281 -82.9233,42.2844 -82.9156,42.2876 -82.9058,42.2926 -82.8917,42.2969 -82.881,42.2987 -82.8698,42.3049 -82.8567,42.312 -82.8481,42.3171 -82.8416,42.3208 -82.8369,42.3238 -82.8305,42.3257 -82.8231,42.3254 -82.8143,42.3263 -82.8019,42.3261 -82.792,42.3256 -82.7837,42.3275 -82.7828,42.3266 -82.7728,42.3306 -82.7721,42.3331 -82.7711,42.3388 -82.769,42.3415 -82.764,42.348 -82.7599,42.3502 -82.7585,42.3518 -82.7521,42.3518 -82.7431,42.355 -82.7403,42.3585 -82.7367,42.3638 -82.7361,42.3697 -82.7332,42.3746 -82.7324,42.3787 -82.7319,42.3813 -82.7295,42.3867 -82.7302,42.3926 -82.7274,42.3961 -82.7242,42.3973 -82.7215,42.399 -82.7213,42.4013 -82.721,42.4045 -82.7212,42.4086 -82.7209,42.4117 -82.7205,42.4158 -82.7219,42.4209 -82.7222,42.424 -82.722,42.4264 -82.7237,42.4283 -82.728,42.4285 -82.7322,42.431 -82.7331,42.4342 -82.7357,42.4398 -82.7364,42.4449 -82.7367,42.449 -82.7349,42.4544 -82.7355,42.4617 -82.7344,42.4662 -82.7331,42.4739 -82.7322,42.4761 -82.7286,42.4809 -82.7264,42.4849 -82.7248,42.4885 -82.7224,42.4938 -82.7196,42.4973 -82.7174,42.5008 -82.7138,42.5057 -82.7109,42.5096 -82.7067,42.5144 -82.7027,42.5179 -82.6986,42.5213 -82.6951,42.5248 -82.6904,42.5282 -82.6864,42.5316 -82.6811,42.5345 -82.6703,42.5358 -82.6635,42.5354 -82.6548,42.535 -82.6486,42.5347 -82.6421,42.5307 -82.6369,42.5268 -82.6329,42.5298 -82.6326,42.532 -82.6342,42.5353 -82.6351,42.539 -82.6347,42.5426 -82.6333,42.5448 -82.6305,42.5479 -82.6295,42.5515 -82.6299,42.5538 -82.6328,42.5557 -82.6372,42.5595 -82.6442,42.5656 -82.6467,42.5678 -82.6507,42.5712 -82.6554,42.5747 -82.6606,42.579 -82.6653,42.582 -82.6685,42.5876 -82.6698,42.5932 -82.6695,42.5968 -82.6677,42.6017 -82.6649,42.6052 -82.6608,42.6087 -82.6566,42.6135 -82.6514,42.6155 -82.6451,42.6165 -82.6368,42.6184 -82.6288,42.617 -82.6223,42.619 -82.6166,42.6205 -82.6123,42.6257 -82.6082,42.6292 -82.6026,42.6357 -82.5986,42.6378 -82.5928,42.6393 -82.5858,42.6408 -82.5825,42.6424 -82.5797,42.6459 -82.5771,42.6472 -82.5727,42.6469 -82.5658,42.647 -82.5594,42.6485 -82.5554,42.6515 -82.5527,42.6536 -82.5475,42.6552 -82.5434,42.6531 -82.5349,42.6504 -82.5277,42.6469 -82.5116,42.6387 -82.5062,42.6371 -82.5025,42.6364 -82.4967,42.6379 -82.4924,42.6373 -82.4862,42.6369 -82.4814,42.6353 -82.478,42.631 -82.4759,42.6277 -82.475,42.6236 -82.4754,42.62 -82.4784,42.6146 -82.4831,42.6112 -82.4905,42.6062 -82.4937,42.605 -82.4971,42.6029 -82.4962,42.5992 -82.4932,42.5977 -82.487,42.5969 -82.4808,42.5965 -82.474,42.5962 -82.4696,42.596 -82.4644,42.5925 -82.4575,42.5921 -82.4512,42.5932 -82.4442,42.5946 -82.4323,42.5949 -82.4195,42.5915 -82.4118,42.5874 -82.403,42.5815 -82.402,42.5816 -82.3701,42.6711 -82.3581,42.7124 -82.3592,42.7479 -82.367,42.7779 -82.3487,42.8531 -82.304,42.9702 -82.2893,43.0003 -82.2975,43.0166 -82.3034,43.0261 -82.3091,43.0323 -82.3124,43.0361 -82.3164,43.0464 -82.3184,43.0515 -82.3217,43.0567 -82.3272,43.0643 -82.3311,43.0686 -82.336,43.0762 -82.34,43.08 -82.3395,43.085 -82.3378,43.0963 -82.3406,43.1056 -82.3428,43.1144 -82.3463,43.1237 -82.3493,43.1312 -82.3515,43.1382 -82.3531,43.1496 -82.3549,43.157 -82.3575,43.1622 -82.3597,43.1714 -82.3624,43.1757 -82.3686,43.1828 -82.3716,43.1907 -82.3738,43.2 -82.3754,43.2087 -82.3738,43.2182 -82.3735,43.2273 -82.3736,43.2397 -82.3739,43.2488 -82.3765,43.2544 -82.3778,43.2604 -82.3804,43.2656 -82.379,43.2728 -82.3764,43.2804 -82.3764,43.2859 -82.3782,43.2928 -82.382,43.2999 -82.3832,43.3059 -82.3858,43.3115 -82.3864,43.3183 -82.3877,43.3239 -82.3882,43.3317 -82.3851,43.3438 -82.383,43.3515 -82.3857,43.3566 -82.3905,43.3646 -82.3937,43.3707 -82.3921,43.3802 -82.3909,43.3861 -82.393,43.3899 -82.392,43.3935 -82.3905,43.4021 -82.3875,43.4069 -82.389,43.417 -82.3917,43.4217 -82.3962,43.4275 -82.4037,43.4342 -82.4118,43.4474 -82.4162,43.4541 -82.4228,43.4708 -82.4259,43.4838 -82.433,43.507 -82.4404,43.5284 -82.4437,43.5459 -82.4488,43.5827 -82.4516,43.6179 -82.4515,43.6444 -82.453,43.6605 -82.4536,43.6669 -82.4592,43.6804 -82.4627,43.6966 -82.4654,43.7077 -82.466,43.7205 -82.467,43.7304 -82.4659,43.7379 -82.4646,43.7469 -82.4658,43.7538 -82.4711,43.7582 -82.4731,43.7633 -82.4768,43.7704 -82.4775,43.7763 -82.4836,43.7913 -82.489,43.8007 -82.4914,43.8086 -82.4956,43.8179 -82.4992,43.8263 -82.5072,43.8349 -82.5134,43.8426 -82.5207,43.853 -82.5261,43.8624 -82.5293,43.869 -82.5332,43.8806 -82.5401,43.8878 -82.5478,43.8996 -82.5538,43.9095 -82.5618,43.9195 -82.5704,43.9291 -82.5752,43.9385 -82.581,43.9442 -82.589,43.9533 -82.599,43.9611 -82.6078,43.9689 -82.6194,43.9745 -82.6284,43.98 -82.638,43.9864 -82.6436,43.9935 -82.6532,43.9995 -82.6688,44.0035 -82.6793,44.0063 -82.6887,44.0082 -82.6976,44.009 -82.71,44.0129 -82.7263,44.0155 -82.7375,44.0179 -82.7431,44.0264 -82.7499,44.0281 -82.7583,44.0272 -82.7704,44.0278 -82.78,44.0333 -82.7874,44.0359 -82.796,44.0327 -82.803,44.033 -82.8107,44.0329 -82.8155,44.0364 -82.8194,44.0347 -82.829,44.0279 -82.8357,44.0246 -82.846,44.0173 -82.855,44.0159 -82.8685,44.0148 -82.8781,44.0148 -82.8842,44.0114 -82.8899,44.0049 -82.8958,43.996 -82.9037,43.9864 -82.9093,43.9812 -82.9156,43.976 -82.9198,43.9721 -82.9302,43.9694 -82.9418,43.9681 -82.9518,43.9704 -82.9636,43.9728 -82.9768,43.968 -82.9894,43.9627 -83.0072,43.9567 -83.0181,43.9558 -83.0303,43.9546 -83.0365,43.9567 -83.0454,43.9567 -83.0595,43.9555 -83.0827,43.9534 -83.0968,43.9518 -83.106,43.949 -83.1172,43.9454 -83.1214,43.9406 -83.1237,43.9366 -83.1275,43.9295 -83.1298,43.9259 -83.1309,43.9242 -83.1371,43.908 -83.1422,43.9014 -83.151,43.895 -83.161,43.89 -83.1709,43.8863 -83.1819,43.885 -83.2023,43.8841 -83.2146,43.882 -83.2259,43.8839 -83.2377,43.8862 -83.2485,43.8872 -83.2528,43.8888 -83.255,43.8852 -83.2573,43.8803 -83.2582,43.8781 -83.2564,43.8762 -83.2477,43.8739 -83.24,43.8754 -83.2311,43.8754 -83.2202,43.8763 -83.2114,43.8745 -83.2015,43.8722 -83.1922,43.8695 -83.1879,43.8675 -83.1863,43.8642 -83.188,43.8588 -83.189,43.8552 -83.192,43.8499 -83.1951,43.8441 -83.1985,43.8411 -83.2052,43.8377 -83.2074,43.8342 -83.2103,43.8302 -83.2191,43.8251 -83.2276,43.8223 -83.236,43.8209 -83.2412,43.8189 -83.2417,43.8134 -83.2415,43.8084 -83.2404,43.8065 -83.2403,43.801 -83.2435,43.7939 -83.2471,43.7886 -83.2546,43.7834 -83.2575,43.7794 -83.2614,43.7778 -83.2619,43.7724 -83.266,43.7674 -83.27,43.7656 -83.2734,43.7569 -83.2783,43.7536 -83.2836,43.7501 -83.2884,43.7462 -83.2928,43.7391 -83.2946,43.7304 -83.2982,43.7279 -83.3013,43.7226 -83.3079,43.7188 -83.3122,43.7135 -83.3136,43.7119 -83.3172,43.7074 -83.3189,43.7024 -83.3223,43.6957 -83.3292,43.6905 -83.3311,43.6861 -83.3339,43.683 -83.3368,43.6791 -83.3383,43.6764 -83.3392,43.6741 -83.3415,43.6688 -83.3474,43.6672 -83.3512,43.6674 -83.3543,43.668 -83.3634,43.6648 -83.3698,43.665 -83.3707,43.6683 -83.3701,43.676 -83.3712,43.6847 -83.3745,43.6904 -83.3782,43.6919 -83.3818,43.6866 -83.3863,43.6795 -83.3942,43.6762 -83.4027,43.6729 -83.4075,43.6681 -83.4077,43.6658 -83.4083,43.659 -83.4109,43.6509 -83.4168,43.6445 -83.4194,43.6417 -83.4221,43.6387 -83.4322,43.6317 -83.4392,43.6259 -83.4472,43.6206 -83.4539,43.6148 -83.4619,43.6117 -83.466,43.6082 -83.4601,43.6093 -83.478,43.5937 -83.4835,43.589 -83.4929,43.5825 -83.5019,43.5734 -83.5113,43.5665 -83.5219,43.5619 -83.5295,43.5618 -83.5406,43.5646 -83.5464,43.5656 -83.5512,43.5664 -83.559,43.5722 -83.5669,43.5762 -83.5732,43.5766 -83.5777,43.5776 -83.5784,43.5817 -83.5861,43.5885 -83.5936,43.5902 -83.5991,43.5922 -83.6054,43.5925 -83.6121,43.5951 -83.6207,43.5986 -83.6326,43.601 -83.6433,43.6014 -83.6533,43.6023 -83.6615,43.6027 -83.6688,43.6067 -83.6762,43.6088 -83.6818,43.6109 -83.686,43.6133 -83.6897,43.6148 -83.6935,43.6141 -83.6945,43.6105 -83.691,43.6062 -83.6913,43.6026 -83.695,43.5964 -83.6992,43.6 -83.7038,43.604 -83.7027,43.6104 -83.7042,43.6155 -83.7082,43.6207 -83.7157,43.6219 -83.7219,43.624 -83.7421,43.6289 -83.7502,43.6334 -83.7567,43.6396 -83.7662,43.6473 -83.7735,43.6585 -83.7771,43.6696 -83.7808,43.6789 -83.7841,43.6845 -83.7877,43.6943 -83.7922,43.7022 -83.7946,43.7114 -83.7979,43.717 -83.7983,43.7207 -83.7969,43.7225 -83.795,43.7292 -83.7971,43.7348 -83.7935,43.7401 -83.7893,43.7454 -83.7842,43.7452 -83.7806,43.7505 -83.7786,43.7596 -83.779,43.7705 -83.7787,43.7815 -83.7785,43.7919 -83.7769,43.8033 -83.7775,43.8124 -83.7751,43.8178 -83.7686,43.8194 -83.7645,43.8155 -83.7616,43.8118 -83.7593,43.8098 -83.7554,43.8101 -83.7537,43.8151 -83.7566,43.8193 -83.7601,43.8226 -83.7642,43.8265 -83.7664,43.8316 -83.7678,43.8371 -83.7669,43.8407 -83.7668,43.8498 -83.7665,43.8608 -83.7666,43.8681 -83.7686,43.8736 -83.7668,43.8809 -83.7656,43.8829 -83.7638,43.8862 -83.7604,43.8884 -83.755,43.8904 -83.7462,43.8909 -83.7429,43.8926 -83.742,43.8962 -83.7404,43.8998 -83.7411,43.9062 -83.7428,43.9091 -83.7406,43.9131 -83.7375,43.9198 -83.7339,43.9251 -83.7277,43.9303 -83.719,43.9315 -83.7162,43.9347 -83.713,43.9384 -83.7095,43.9423 -83.7067,43.9459 -83.7013,43.95 -83.6971,43.956 -83.6952,43.9618 -83.693,43.9658 -83.6875,43.9661 -83.6851,43.9687 -83.6805,43.9703 -83.673,43.9716 -83.6614,43.9699 -83.6578,43.9675 -83.6581,43.9643 -83.6547,43.9587 -83.6482,43.9598 -83.6461,43.9629 -83.6429,43.9632 -83.6342,43.9605 -83.6281,43.9566 -83.6185,43.958 -83.6065,43.9566 -83.5999,43.9595 -83.5971,43.9617 -83.5989,43.9709 -83.5974,43.974 -83.5915,43.9756 -83.586,43.9731 -83.5774,43.9695 -83.5666,43.969 -83.5537,43.963 -83.5458,43.959 -83.5396,43.9569 -83.5331,43.9584 -83.5307,43.9638 -83.5331,43.9657 -83.536,43.9695 -83.5373,43.9764 -83.5364,43.98 -83.5354,43.9841 -83.5355,43.9896 -83.5346,43.9932 -83.534,43.9954 -83.5273,43.9965 -83.5249,44.0019 -83.5204,44.0104 -83.5118,44.0141 -83.5015,44.0155 -83.491,44.0182 -83.4807,44.0196 -83.4673,44.0194 -83.4558,44.0203 -83.4465,44.0176 -83.4394,44.0177 -83.434,44.0211 -83.4319,44.0242 -83.4326,44.0302 -83.4372,44.0359 -83.4388,44.0469 -83.4356,44.0541 -83.4294,44.0597 -83.421,44.0685 -83.4173,44.0738 -83.4156,44.0797 -83.4161,44.0884 -83.4161,44.0957 -83.4159,44.1052 -83.4167,44.1108 -83.4177,44.114 -83.4168,44.1168 -83.418,44.1245 -83.4166,44.1336 -83.4155,44.1361 -83.4102,44.1484 -83.4069,44.1573 -83.4055,44.166 -83.4037,44.1791 -83.4027,44.1905 -83.4006,44.1991 -83.396,44.2085 -83.3896,44.215 -83.3834,44.2207 -83.3622,44.2362 -83.3522,44.2412 -83.3437,44.2426 -83.3321,44.2435 -83.32,44.2434 -83.3107,44.2407 -83.303,44.2403 -83.2994,44.2383 -83.3004,44.2334 -83.3014,44.2298 -83.3054,44.2208 -83.3094,44.2187 -83.3123,44.2152 -83.308,44.2136 -83.3053,44.2149 -83.2991,44.2201 -83.2922,44.2252 -83.2839,44.2326 -83.2754,44.2414 -83.2676,44.2497 -83.2597,44.2598 -83.2514,44.2668 -83.2441,44.2769 -83.2372,44.2821 -83.2323,44.2873 -83.2251,44.2888 -83.2185,44.2908 -83.2089,44.2904 -83.2018,44.291 -83.1966,44.2925 -83.192,44.2942 -83.1892,44.2959 -83.1873,44.3031 -83.1871,44.3127 -83.1853,44.3249 -83.1832,44.334 -83.1782,44.3465 -83.1743,44.361 -83.1716,44.3695 -83.1717,44.3755 -83.1752,44.4076 -83.1744,44.4167 -83.1693,44.4306 -83.1667,44.4451 -83.1657,44.4551 -83.1632,44.4635 -83.1667,44.473 -83.1673,44.4814 -83.1676,44.4845 -83.1643,44.4916 -83.1617,44.4988 -83.1614,44.5025 -83.1614,44.5135 -83.1613,44.521 -83.1655,44.5278 -83.1685,44.5375 -83.1683,44.5467 -83.1677,44.5535 -83.1689,44.5613 -83.1672,44.5722 -83.1612,44.5888 -83.1579,44.5965 -83.1515,44.6039 -83.145,44.6114 -83.1402,44.6212 -83.1316,44.6455 -83.1293,44.6564 -83.1281,44.6691 -83.1295,44.6815 -83.1305,44.6852 -83.1344,44.6918 -83.1372,44.6956 -83.1394,44.7003 -83.1433,44.7069 -83.1481,44.7176 -83.1499,44.7264 -83.1469,44.7441 -83.1456,44.7513 -83.146,44.7614 -83.1487,44.7743 -83.1497,44.784 -83.1515,44.7923 -83.1562,44.8044 -83.1612,44.8138 -83.1649,44.8226 -83.167,44.8266 -83.1715,44.8348 -83.1715,44.8412 -83.1738,44.845 -83.1761,44.8479 -83.1841,44.8523 -83.1885,44.8539 -83.1942,44.8542 -83.2034,44.8532 -83.209,44.8553 -83.2151,44.8588 -83.2205,44.8632 -83.2247,44.867 -83.2303,44.8696 -83.2391,44.8722 -83.2482,44.8786 -83.2493,44.8809 -83.2503,44.8837 -83.2525,44.8875 -83.2633,44.8903 -83.2723,44.8898 -83.2766,44.8922 -83.2814,44.897 -83.2853,44.9032 -83.288,44.9097 -83.2928,44.9282 -83.2951,44.9379 -83.296,44.9425 -83.2975,44.9476 -83.3008,44.9542 -83.3057,44.9567 -83.3112,44.9601 -83.3122,44.9638 -83.3112,44.9679 -83.3086,44.9747 -83.303,44.9794 -83.2979,44.9792 -83.2922,44.9776 -83.2812,44.9771 -83.2847,44.9823 -83.2933,44.9863 -83.3002,44.9889 -83.3034,44.9895 -83.3032,44.9918 -83.2999,44.993 -83.297,44.9956 -83.2961,44.9988 -83.2982,45.0039 -83.298,45.0062 -83.2956,45.012 -83.2932,45.0165 -83.2917,45.0187 -83.2846,45.0257 -83.2771,45.0304 -83.2676,45.0355 -83.2529,45.0403 -83.2456,45.0418 -83.2395,45.0452 -83.2324,45.0449 -83.2272,45.0446 -83.2237,45.0413 -83.2234,45.0376 -83.2237,45.0344 -83.2227,45.0302 -83.2193,45.025 -83.2162,45.0235 -83.2127,45.0193 -83.2042,45.0134 -83.1948,45.0102 -83.1823,45.006 -83.1721,45.0037 -83.1664,45.0025 -83.1562,45.0006 -83.1366,44.9965 -83.1296,44.9944 -83.117,44.9911 -83.1137,44.9918 -83.1135,44.9941 -83.1176,44.9989 -83.1227,45.0064 -83.1243,45.0106 -83.1299,45.0127 -83.1349,45.0148 -83.1437,45.0174 -83.15,45.0187 -83.1569,45.0213 -83.1633,45.022 -83.1659,45.0226 -83.1652,45.0294 -83.1674,45.0341 -83.169,45.0374 -83.1686,45.0424 -83.1711,45.0494 -83.1748,45.0523 -83.1752,45.0546 -83.1678,45.0575 -83.1645,45.0578 -83.1526,45.0609 -83.1506,45.0617 -83.1479,45.0629 -83.149,45.0648 -83.1506,45.0681 -83.155,45.0706 -83.1599,45.0727 -83.161,45.0754 -83.1601,45.0782 -83.1612,45.08 -83.163,45.0819 -83.1668,45.083 -83.1718,45.0846 -83.1748,45.0866 -83.1739,45.0893 -83.1712,45.0906 -83.1686,45.0914 -83.1652,45.093 -83.1663,45.0954 -83.1674,45.0972 -83.1697,45.1074 -83.1693,45.1115 -83.1715,45.1162 -83.1733,45.1177 -83.1783,45.1193 -83.1834,45.12 -83.1905,45.1212 -83.2028,45.1277 -83.2083,45.1321 -83.2144,45.136 -83.2168,45.1375 -83.2206,45.139 -83.2252,45.1447 -83.2269,45.148 -83.2278,45.1526 -83.2275,45.1558 -83.2294,45.1632 -83.235,45.1722 -83.2411,45.1766 -83.246,45.1796 -83.2471,45.1819 -83.2488,45.1852 -83.251,45.1894 -83.2546,45.1928 -83.2588,45.1966 -83.2635,45.2019 -83.2667,45.2093 -83.2663,45.2139 -83.2664,45.2194 -83.268,45.2231 -83.2678,45.2259 -83.2657,45.2271 -83.2618,45.227 -83.2581,45.2254 -83.255,45.2234 -83.2512,45.2233 -83.2486,45.2232 -83.2458,45.2253 -83.2437,45.2271 -83.2394,45.231 -83.2392,45.2337 -83.2413,45.2388 -83.2443,45.2417 -83.2504,45.2452 -83.2548,45.2472 -83.2641,45.2527 -83.2728,45.2563 -83.2762,45.2615 -83.2804,45.2658 -83.2821,45.2682 -83.2883,45.2716 -83.2921,45.2727 -83.2964,45.2752 -83.2989,45.2767 -83.3023,45.2823 -83.3091,45.2859 -83.3123,45.2865 -83.316,45.2885 -83.3189,45.2927 -83.3206,45.2946 -83.3225,45.2956 -83.3257,45.2967 -83.3283,45.2959 -83.3323,45.2947 -83.3344,45.2934 -83.3369,45.2949 -83.3371,45.2999 -83.3324,45.3157 -83.3347,45.3186 -83.3376,45.3224 -83.3431,45.3267 -83.3469,45.3278 -83.3498,45.3248 -83.3467,45.3159 -83.3446,45.3099 -83.3486,45.3087 -83.3557,45.3099 -83.3601,45.3115 -83.374,45.3158 -83.3943,45.3208 -83.3982,45.3209 -83.4016,45.3188 -83.4056,45.3176 -83.4199,45.3182 -83.4245,45.3175 -83.427,45.3186 -83.4308,45.3196 -83.434,45.3202 -83.4362,45.3176 -83.4396,45.3154 -83.4484,45.3186 -83.4522,45.3201 -83.4559,45.323 -83.465,45.3303 -83.4741,45.3302 -83.5107,45.3492 -83.5271,45.3559 -83.5315,45.357 -83.5384,45.36 -83.5523,45.3725 -83.5553,45.3749 -83.5596,45.3783 -83.5621,45.3789 -83.5771,45.3791 -83.5825,45.3766 -83.5912,45.3737 -83.5964,45.373 -83.6068,45.3739 -83.6179,45.3735 -83.6301,45.3754 -83.6331,45.3783 -83.6302,45.3818 -83.6272,45.3858 -83.6311,45.386 -83.6377,45.3853 -83.6455,45.3852 -83.6545,45.3865 -83.6613,45.39 -83.6662,45.3934 -83.6724,45.3978 -83.6761,45.3998 -83.6825,45.4014 -83.6913,45.405 -83.6969,45.408 -83.7024,45.4119 -83.706,45.4157 -83.7103,45.4186 -83.7139,45.422 -83.7175,45.4253 -83.7236,45.4301 -83.7297,45.435 -83.7345,45.4402 -83.7394,45.4436 -83.7444,45.4466 -83.7518,45.451 -83.7575,45.4535 -83.7606,45.455 -83.7663,45.4566 -83.7701,45.4577 -83.7746,45.4584 -83.7785,45.459 -83.7998,45.4612 -83.8096,45.4607 -83.8207,45.4603 -83.8331,45.4598 -83.8448,45.4608 -83.8552,45.4607 -83.8689,45.4604 -83.8772,45.4626 -83.8823,45.4628 -83.8849,45.4633 -83.8901,45.4635 -83.896,45.4629 -83.9052,45.4614 -83.9139,45.4595 -83.9283,45.4587 -83.9379,45.46 -83.9455,45.4621 -83.9531,45.4647 -83.9582,45.4672 -83.9625,45.4701 -83.9673,45.4753 -83.97,45.4818 -83.972,45.4893 -83.9747,45.4967 -83.9754,45.504 -83.976,45.5123 -83.9775,45.5183 -83.9777,45.5243 -83.9779,45.5289 -83.979,45.5312 -83.9801,45.534 -83.9825,45.5373 -83.9854,45.5411 -83.9913,45.5486 -84.0041,45.5597 -84.0115,45.565 -84.0245,45.5747 -84.0325,45.5805 -84.0441,45.5905 -84.0495,45.5953 -84.0528,45.5968 -84.0571,45.5988 -84.0659,45.6028 -84.0844,45.6082 -84.1114,45.6138 -84.1348,45.622 -84.1475,45.6275 -84.159,45.6298 -84.1687,45.6316 -84.1811,45.632 -84.1935,45.6307 -84.2034,45.6301 -84.2205,45.6285 -84.229,45.6279 -84.2375,45.6278 -84.2503,45.631 -84.2637,45.6347 -84.269,45.634 -84.2712,45.6304 -84.2688,45.6285 -84.2677,45.6252 -84.2645,45.6237 -84.2627,45.6223 -84.2623,45.6195 -84.265,45.6183 -84.2729,45.6163 -84.2789,45.6156 -84.2852,45.6176 -84.2936,45.6193 -84.3008,45.6187 -84.3047,45.6188 -84.3125,45.6196 -84.3182,45.6221 -84.3244,45.6255 -84.3301,45.6289 -84.3369,45.6329 -84.34,45.6348 -84.3437,45.6386 -84.3481,45.641 -84.3507,45.6411 -84.3532,45.6417 -84.3558,45.6423 -84.3577,45.6437 -84.3601,45.6456 -84.3632,45.648 -84.3657,45.6499 -84.3688,45.6514 -84.3752,45.6535 -84.3809,45.656 -84.3859,45.6589 -84.3927,45.6642 -84.3963,45.6676 -84.3993,45.6718 -84.401,45.6746 -84.4022,45.6765 -84.4079,45.6794 -84.4117,45.6809 -84.4193,45.683 -84.4302,45.6866 -84.441,45.6907 -84.4582,45.6968 -84.4708,45.7032 -84.4929,45.7127 -84.5052,45.7145 -84.5122,45.7166 -84.5295,45.7214 -84.5339,45.7243 -84.5402,45.7272 -84.5441,45.7283 -84.5498,45.7308 -84.5549,45.7323 -84.5631,45.7358 -84.5662,45.7387 -84.5692,45.742 -84.5713,45.749 -84.5757,45.7523 -84.5782,45.7528 -84.5834,45.753 -84.586,45.7536 -84.5938,45.7539 -84.6017,45.7541 -84.6081,45.7557 -84.6165,45.7569 -84.6244,45.7558 -84.6317,45.7547 -84.6352,45.7512 -84.6379,45.7494 -84.6394,45.7477 -84.6384,45.743 -84.6368,45.738 -84.6352,45.7333 -84.634,45.731 -84.635,45.7264 -84.6365,45.7242 -84.642,45.7198 -84.6475,45.7159 -84.6509,45.7137 -84.6542,45.7129 -84.6575,45.7135 -84.6639,45.7155 -84.6677,45.7161 -84.6703,45.7167 -84.6749,45.7168 -84.6796,45.7142 -84.6856,45.7131 -84.6895,45.7137 -84.6927,45.7147 -84.6985,45.7158 -84.7068,45.7179 -84.7138,45.7205 -84.7274,45.7218 -84.7301,45.721 -84.7342,45.718 -84.7376,45.7171 -84.7421,45.7173 -84.7447,45.7183 -84.7472,45.7198 -84.7536,45.7209 -84.7645,45.724 -84.778,45.7272 -84.8,45.7303 -84.8123,45.7316 -84.8353,45.7296 -84.8492,45.7273 -84.8538,45.7266 -84.8559,45.7243 -84.8497,45.72 -84.8439,45.7189 -84.8406,45.7197 -84.8355,45.7182 -84.8253,45.7142 -84.8226,45.7145 -84.8194,45.7135 -84.8157,45.7106 -84.8132,45.7087 -84.8076,45.7053 -84.8033,45.7015 -84.8002,45.6982 -84.7959,45.6944 -84.795,45.6893 -84.7954,45.6834 -84.7976,45.6793 -84.8013,45.6726 -84.8056,45.6682 -84.8104,45.6647 -84.8151,45.6621 -84.8212,45.6586 -84.8262,45.6519 -84.8337,45.648 -84.8363,45.6472 -84.8411,45.6451 -84.8445,45.6429 -84.8466,45.6398 -84.8489,45.6353 -84.8511,45.6312 -84.8534,45.6272 -84.8582,45.6232 -84.8643,45.6202 -84.873,45.6168 -84.8844,45.6122 -84.9049,45.6069 -84.9217,45.5997 -84.9252,45.5961 -84.9267,45.5934 -84.9289,45.5894 -84.9326,45.5822 -84.935,45.5759 -84.94,45.5701 -84.947,45.5625 -84.9526,45.5567 -84.9575,45.551 -84.9625,45.5443 -84.9654,45.5402 -84.9676,45.5357 -84.9685,45.5326 -84.9694,45.528 -84.9685,45.5229 -84.9682,45.517 -84.9673,45.511 -84.9657,45.5059 -84.9642,45.4986 -84.9614,45.4916 -84.9582,45.4814 -84.9554,45.4749 -84.9519,45.4675 -84.9432,45.4517 -84.9367,45.4427 -84.9331,45.4371 -84.929,45.4306 -84.9174,45.4197 -84.9124,45.4159 -84.9082,45.4107 -84.904,45.406 -84.8972,45.4007 -84.8941,45.3983 -84.8846,45.3939 -84.8757,45.3918 -84.8686,45.3906 -84.8635,45.3895 -84.8514,45.3859 -84.8462,45.3853 -84.8385,45.3841 -84.8353,45.3844 -84.8298,45.3849 -84.8317,45.388 -84.8342,45.3895 -84.8341,45.3918 -84.8283,45.3911 -84.8231,45.39 -84.8155,45.3884 -84.8065,45.3863 -84.7923,45.3844 -84.7866,45.3829 -84.7815,45.3818 -84.7776,45.3816 -84.775,45.3806 -84.7725,45.3796 -84.7694,45.3772 -84.7713,45.3695 -84.7741,45.3655 -84.7864,45.3577 -84.7993,45.3494 -84.8205,45.3424 -84.8331,45.3391 -84.8442,45.3381 -84.852,45.3384 -84.8578,45.3381 -84.8644,45.337 -84.8703,45.3358 -84.8827,45.3348 -84.8957,45.3353 -84.9106,45.3362 -84.9248,45.3367 -84.9391,45.3362 -84.9417,45.3361 -84.9489,45.3356 -84.9574,45.3355 -84.9631,45.337 -84.967,45.3376 -84.974,45.3397 -84.9778,45.3411 -84.9849,45.3418 -84.9908,45.3411 -84.996,45.3404 -85.0052,45.3384 -85.0104,45.3381 -85.0145,45.3355 -85.0166,45.3328 -85.0228,45.3275 -85.0268,45.3267 -85.0353,45.3256 -85.0423,45.3268 -85.0489,45.3265 -85.0542,45.3248 -85.0582,45.3222 -85.063,45.3187 -85.0724,45.3131 -85.0785,45.3101 -85.0831,45.3084 -85.0897,45.3072 -85.095,45.3056 -85.097,45.3043 -85.0998,45.3016 -85.1033,45.2976 -85.1082,45.2918 -85.113,45.2878 -85.115,45.2865 -85.1197,45.2839 -85.125,45.2827 -85.1321,45.2829 -85.1353,45.284 -85.1385,45.285 -85.1436,45.2856 -85.1461,45.2866 -85.1494,45.2867 -85.1527,45.2863 -85.1589,45.2806 -85.163,45.2761 -85.1659,45.2721 -85.1701,45.2672 -85.1747,45.2651 -85.1814,45.2621 -85.1855,45.2585 -85.1876,45.2559 -85.1896,45.255 -85.193,45.2524 -85.197,45.2511 -85.2002,45.2512 -85.2042,45.25 -85.2063,45.2482 -85.2117,45.2438 -85.2158,45.2416 -85.2204,45.2395 -85.2226,45.2354 -85.2241,45.2332 -85.2262,45.2305 -85.2271,45.226 -85.2288,45.2192 -85.2303,45.2156 -85.2324,45.2133 -85.2359,45.2084 -85.2401,45.2035 -85.2416,45.2008 -85.2418,45.1967 -85.237,45.1911 -85.2365,45.1883 -85.2383,45.1811 -85.2378,45.1788 -85.2368,45.1728 -85.2397,45.1683 -85.2399,45.1647 -85.2391,45.1573 -85.2349,45.1522 -85.2318,45.1493 -85.2307,45.1461 -85.2266,45.1391 -85.2269,45.1341 -85.2291,45.1305 -85.2306,45.126 -85.2315,45.1219 -85.2311,45.1182 -85.23,45.1154 -85.2282,45.1136 -85.2264,45.1108 -85.2249,45.1029 -85.224,45.097 -85.2231,45.0905 -85.2233,45.0873 -85.2216,45.0841 -85.2205,45.0799 -85.2183,45.0744 -85.2172,45.0716 -85.2173,45.0689 -85.2175,45.0661 -85.2198,45.0607 -85.2213,45.0562 -85.2236,45.0508 -85.2252,45.0458 -85.2241,45.0426 -85.2219,45.0361 -85.2254,45.0317 -85.2292,45.0235 -85.2335,45.0168 -85.233,45.0145 -85.232,44.9985 -85.2318,44.9912 -85.2319,44.9889 -85.2324,44.9811 -85.232,44.9766 -85.2364,44.9694 -85.2409,44.9581 -85.2406,44.9526 -85.2398,44.9453 -85.2411,44.9343 -85.2446,44.9294 -85.2468,44.9258 -85.2495,44.9127 -85.2486,44.9067 -85.2501,44.9031 -85.2539,44.8941 -85.2588,44.8869 -85.263,44.882 -85.274,44.8709 -85.279,44.8629 -85.2839,44.8566 -85.2911,44.844 -85.2949,44.8336 -85.2979,44.8273 -85.309,44.8131 -85.316,44.8041 -85.3195,44.7997 -85.3231,44.7929 -85.326,44.7875 -85.3283,44.7826 -85.329,44.7803 -85.3325,44.7768 -85.3351,44.7764 -85.339,44.7747 -85.3443,44.7721 -85.3497,44.7681 -85.3507,44.7627 -85.3536,44.7578 -85.3551,44.7532 -85.3562,44.7464 -85.3575,44.7446 -85.3597,44.741 -85.3678,44.7344 -85.3733,44.7291 -85.378,44.7256 -85.3806,44.7252 -85.3916,44.7228 -85.3987,44.7235 -85.4083,44.7242 -85.4153,44.7249 -85.4199,44.7276 -85.4244,44.7304 -85.4238,44.7333 -85.421,44.7378 -85.4163,44.7418 -85.4121,44.7467 -85.4066,44.7529 -85.4046,44.7661 -85.4061,44.7726 -85.4044,44.7798 -85.4014,44.7875 -85.3991,44.7929 -85.3964,44.7956 -85.3903,44.8 -85.367,44.813 -85.359,44.8178 -85.3494,44.828 -85.3465,44.8338 -85.3461,44.8398 -85.3452,44.8438 -85.3404,44.8492 -85.3386,44.8569 -85.3389,44.8628 -85.34,44.8661 -85.3412,44.8688 -85.3443,44.8708 -85.3427,44.8753 -85.3387,44.8784 -85.3359,44.8806 -85.3371,44.8829 -85.3388,44.887 -85.3397,44.8926 -85.3396,44.8948 -85.3367,44.9002 -85.3344,44.9061 -85.3335,44.9102 -85.3348,44.9216 -85.3364,44.9272 -85.3362,44.9299 -85.3342,44.9321 -85.3296,44.932 -85.3272,44.9301 -85.3253,44.9287 -85.319,44.9271 -85.3163,44.9284 -85.3167,44.9321 -85.3199,44.9436 -85.3231,44.9556 -85.328,44.9589 -85.3417,44.9575 -85.3522,44.9551 -85.3641,44.949 -85.3715,44.9438 -85.3757,44.9384 -85.3759,44.9357 -85.3757,44.9288 -85.3769,44.9192 -85.3779,44.912 -85.381,44.9034 -85.3834,44.8957 -85.3971,44.8828 -85.408,44.8722 -85.4101,44.87 -85.4143,44.8642 -85.4144,44.8614 -85.4146,44.8587 -85.4103,44.8558 -85.4057,44.8566 -85.4017,44.8588 -85.3983,44.8619 -85.3943,44.864 -85.3916,44.8662 -85.3877,44.8666 -85.3826,44.865 -85.3801,44.8636 -85.3816,44.8609 -85.3843,44.8582 -85.3864,44.8565 -85.3853,44.8523 -85.3835,44.85 -85.3817,44.8486 -85.3805,44.8463 -85.3873,44.841 -85.3934,44.8361 -85.3968,44.833 -85.4043,44.825 -85.4067,44.8178 -85.4075,44.8155 -85.4093,44.8065 -85.4113,44.8047 -85.4142,44.7993 -85.4195,44.7962 -85.4264,44.7882 -85.4327,44.7802 -85.4356,44.7752 -85.4383,44.7621 -85.4428,44.7513 -85.4442,44.7486 -85.4444,44.7454 -85.4445,44.7426 -85.4466,44.74 -85.4493,44.7382 -85.454,44.7351 -85.4669,44.7346 -85.4783,44.7368 -85.4852,44.7444 -85.4861,44.747 -85.4858,44.753 -85.4836,44.7579 -85.4827,44.762 -85.4812,44.7656 -85.4797,44.7697 -85.4808,44.772 -85.4833,44.7744 -85.4875,44.7786 -85.493,44.7842 -85.4966,44.788 -85.499,44.7922 -85.5012,44.7986 -85.5002,44.8054 -85.4979,44.8104 -85.4976,44.8159 -85.4997,44.8242 -85.5,44.831 -85.4949,44.8409 -85.4876,44.8562 -85.481,44.8697 -85.4789,44.8733 -85.478,44.8765 -85.4745,44.8819 -85.4698,44.8854 -85.4672,44.8862 -85.4606,44.8888 -85.4587,44.8878 -85.4555,44.8873 -85.4528,44.8886 -85.4532,44.8927 -85.4522,44.8991 -85.4518,44.9064 -85.4517,44.9192 -85.4499,44.9287 -85.4514,44.9356 -85.4516,44.9443 -85.4526,44.9484 -85.4525,44.9507 -85.4516,44.9539 -85.4535,44.9548 -85.4561,44.9554 -85.4581,44.9541 -85.4609,44.9496 -85.4686,44.9397 -85.4733,44.9371 -85.4798,44.9355 -85.4858,44.9329 -85.4884,44.9321 -85.4904,44.9317 -85.4941,44.9332 -85.4939,44.9368 -85.4911,44.9418 -85.4881,44.9481 -85.4825,44.9561 -85.4788,44.9633 -85.4747,44.9687 -85.4706,44.9722 -85.4644,44.978 -85.4556,44.9851 -85.452,44.9927 -85.4515,45.0014 -85.4491,45.0091 -85.4476,45.0132 -85.444,45.0194 -85.4388,45.0193 -85.4333,45.0141 -85.4316,45.0099 -85.4291,45.0085 -85.4245,45.0097 -85.4236,45.0134 -85.4233,45.0184 -85.4218,45.0234 -85.4209,45.0279 -85.4219,45.0311 -85.4309,45.0328 -85.4335,45.0333 -85.4359,45.0352 -85.4407,45.0422 -85.4471,45.0547 -85.4545,45.0718 -85.4568,45.0769 -85.4598,45.0807 -85.4621,45.0853 -85.459,45.1053 -85.4547,45.1125 -85.4512,45.117 -85.434,45.1238 -85.4309,45.1223 -85.4261,45.1149 -85.4251,45.1098 -85.4228,45.1052 -85.4211,45.1015 -85.4191,45.1019 -85.4177,45.1041 -85.4169,45.1064 -85.4167,45.1091 -85.4172,45.1119 -85.4171,45.1142 -85.4167,45.1206 -85.4145,45.1251 -85.4104,45.1291 -85.4042,45.1348 -85.3981,45.1392 -85.3927,45.1445 -85.3915,45.1747 -85.3933,45.1779 -85.3971,45.1794 -85.4004,45.1786 -85.4057,45.1765 -85.4125,45.1703 -85.4181,45.1636 -85.4255,45.1578 -85.4395,45.1514 -85.4527,45.1477 -85.4566,45.1469 -85.4669,45.1481 -85.4713,45.1505 -85.4751,45.152 -85.479,45.1521 -85.4816,45.1508 -85.4853,45.1436 -85.4882,45.1377 -85.491,45.1337 -85.498,45.1257 -85.509,45.1141 -85.5139,45.1069 -85.5194,45.1011 -85.5217,45.0957 -85.5269,45.0835 -85.5273,45.0771 -85.5309,45.0708 -85.533,45.0663 -85.5398,45.061 -85.5452,45.0575 -85.5486,45.0549 -85.5528,45.0486 -85.5638,45.0375 -85.5724,45.0332 -85.5848,45.0308 -85.5901,45.0291 -85.6001,45.023 -85.6066,45.0122 -85.6082,45.0063 -85.6117,45.0 -85.6186,44.9924 -85.6253,44.9885 -85.6293,44.9854 -85.6327,44.9828 -85.6329,44.9787 -85.6312,44.9754 -85.6295,44.9713 -85.6291,44.9671 -85.6321,44.9585 -85.6323,44.9553 -85.632,44.9498 -85.6349,44.9435 -85.6404,44.9364 -85.6439,44.9319 -85.6473,44.9293 -85.6514,44.9243 -85.6555,44.9203 -85.6616,44.9159 -85.6688,44.9134 -85.6792,44.9114 -85.6916,44.9099 -85.7051,44.9103 -85.7167,44.9111 -85.7269,44.9136 -85.73,44.916 -85.735,44.9184 -85.738,44.9226 -85.7441,44.9287 -85.7497,44.9334 -85.7534,44.9358 -85.7635,44.9402 -85.7686,44.9408 -85.7725,44.9409 -85.7789,44.941 -85.7836,44.9393 -85.7875,44.9372 -85.7904,44.9322 -85.7913,44.9277 -85.7921,44.9249 -85.793,44.9195 -85.7945,44.915 -85.7966,44.9127 -85.8039,44.9088 -85.8078,44.9071 -85.8126,44.9031 -85.816,44.8986 -85.8216,44.8906 -85.825,44.8865 -85.8319,44.8794 -85.8352,44.8763 -85.8445,44.872 -85.8586,44.8737 -85.865,44.8748 -85.8706,44.8772 -85.875,44.8801 -85.8819,44.8834 -85.887,44.8854 -85.8922,44.8851 -85.9018,44.8853 -85.9072,44.8804 -85.9139,44.8765 -85.9206,44.8703 -85.9235,44.864 -85.9267,44.8535 -85.9254,44.8407 -85.9246,44.8179 -85.9227,44.805 -85.9233,44.7927 -85.9229,44.7877 -85.9219,44.7826 -85.9241,44.7768 -85.9257,44.7718 -85.9306,44.7623 -85.9328,44.7573 -85.933,44.7532 -85.9308,44.7468 -85.93,44.7435 -85.9287,44.7381 -85.9265,44.7307 -85.9281,44.7244 -85.9315,44.7208 -85.9383,44.7123 -85.9556,44.7004 -85.9687,44.6971 -85.9821,44.6983 -85.991,44.7008 -86.0006,44.7011 -86.0116,44.6995 -86.0208,44.6956 -86.0379,44.6888 -86.0548,44.6851 -86.0672,44.6808 -86.0815,44.6761 -86.0894,44.674 -86.0953,44.6719 -86.0992,44.6702 -86.1058,44.6667 -86.1072,44.6635 -86.108,44.6613 -86.1095,44.6572 -86.1091,44.6522 -86.1095,44.643 -86.1106,44.6326 -86.1068,44.6192 -86.1039,44.6128 -86.1022,44.6086 -86.101,44.6059 -86.0986,44.6017 -86.0968,44.6003 -86.0937,44.5984 -86.0911,44.5974 -86.0926,44.5942 -86.0921,44.5915 -86.0923,44.5874 -86.0912,44.5824 -86.089,44.575 -86.086,44.5699 -86.0796,44.557 -86.0767,44.5501 -86.0751,44.5436 -86.0736,44.5349 -86.0743,44.5199 -86.0782,44.5072 -86.0819,44.4972 -86.0852,44.4882 -86.0906,44.4824 -86.0962,44.4657 -86.1015,44.448 -86.1021,44.4357 -86.1031,44.4289 -86.1032,44.4261 -86.1021,44.4101 -86.1013,44.3996 -86.1024,44.3905 -86.1048,44.3787 -86.1153,44.3607 -86.1154,44.358 -86.115,44.3534 -86.1173,44.3453 -86.1175,44.3425 -86.1191,44.3339 -86.1199,44.3312 -86.118,44.3302 -86.1134,44.3329 -86.1081,44.3377 -86.1054,44.3395 -86.1023,44.3376 -86.1005,44.3362 -86.0974,44.3338 -86.0955,44.3329 -86.093,44.3324 -86.0909,44.336 -86.0914,44.3387 -86.0894,44.3405 -86.0874,44.3432 -86.0841,44.344 -86.0815,44.3444 -86.0778,44.3416 -86.076,44.3392 -86.0724,44.3355 -86.0655,44.3331 -86.0623,44.3325 -86.0529,44.3291 -86.051,44.3272 -86.0524,44.3254 -86.0564,44.3228 -86.0595,44.3233 -86.064,44.3239 -86.0697,44.3245 -86.0768,44.3242 -86.0807,44.3229 -86.0859,44.3212 -86.0917,44.32 -86.0955,44.3206 -86.1038,44.3203 -86.1089,44.3213 -86.1127,44.321 -86.1153,44.3201 -86.1199,44.3171 -86.1214,44.3134 -86.1229,44.3085 -86.133,44.2973 -86.1378,44.2919 -86.1477,44.2844 -86.1525,44.2772 -86.1572,44.2733 -86.1648,44.2602 -86.1664,44.2539 -86.1705,44.248 -86.1799,44.2373 -86.188,44.2279 -86.1969,44.2154 -86.2025,44.2059 -86.2077,44.1901 -86.2113,44.1797 -86.2148,44.1738 -86.2169,44.1689 -86.2218,44.1608 -86.2277,44.1559 -86.2336,44.1491 -86.2358,44.1465 -86.242,44.1375 -86.25,44.1282 -86.2542,44.1214 -86.2565,44.1133 -86.2579,44.1101 -86.2633,44.102 -86.2707,44.0954 -86.2779,44.0901 -86.2825,44.087 -86.2884,44.0835 -86.3034,44.076 -86.3216,44.0664 -86.3295,44.0616 -86.3386,44.0568 -86.3439,44.0519 -86.3492,44.0479 -86.3519,44.0452 -86.3558,44.0431 -86.3633,44.0314 -86.3648,44.0264 -86.3657,44.0196 -86.3642,44.0118 -86.3601,44.0035 -86.3577,43.9998 -86.3487,43.9882 -86.3438,43.9826 -86.339,43.9766 -86.3298,43.9682 -86.3238,43.9603 -86.3209,43.9538 -86.3192,43.9497 -86.3175,43.9446 -86.3145,43.94 -86.3127,43.9386 -86.3083,43.9371 -86.3045,43.9361 -86.3015,43.9338 -86.2997,43.9301 -86.2968,43.9255 -86.2919,43.9194 -86.2883,43.9166 -86.2853,43.9115 -86.2836,43.9065 -86.2887,43.9075 -86.2968,43.91 -86.3011,43.9137 -86.3029,43.917 -86.3052,43.9216 -86.3066,43.9193 -86.3067,43.9161 -86.3038,43.9106 -86.3023,43.9019 -86.2997,43.8891 -86.2959,43.874 -86.2945,43.863 -86.2912,43.8467 -86.2875,43.8288 -86.2852,43.8171 -86.2812,43.8057 -86.2778,43.7965 -86.2762,43.7888 -86.276,43.7861 -86.2757,43.7723 -86.2765,43.7683 -86.2782,43.7601 -86.2809,43.7565 -86.2823,43.7534 -86.2824,43.7511 -86.2813,43.7474 -86.2769,43.7455 -86.2707,43.7431 -86.2663,43.7416 -86.2607,43.7387 -86.2576,43.7373 -86.2533,43.7349 -86.2515,43.7326 -86.2548,43.7304 -86.2573,43.7305 -86.2617,43.7319 -86.2648,43.7325 -86.2691,43.7348 -86.2754,43.7363 -86.2792,43.7378 -86.2854,43.7398 -86.2904,43.7403 -86.293,43.739 -86.2963,43.7364 -86.301,43.7315 -86.3078,43.7198 -86.3132,43.7144 -86.3245,43.701 -86.3338,43.6912 -86.3469,43.681 -86.3581,43.6722 -86.3661,43.6633 -86.3719,43.6611 -86.3786,43.6517 -86.3814,43.6454 -86.3847,43.6418 -86.3862,43.6377 -86.3876,43.6337 -86.3884,43.6291 -86.3887,43.6241 -86.3888,43.6209 -86.3892,43.6109 -86.3876,43.6059 -86.3837,43.5917 -86.3813,43.5761 -86.3778,43.5679 -86.3744,43.5587 -86.3742,43.5496 -86.3713,43.544 -86.3683,43.539 -86.3641,43.5339 -86.3604,43.5315 -86.3543,43.5277 -86.3507,43.5235 -86.3502,43.5203 -86.3473,43.5134 -86.342,43.506 -86.3344,43.4917 -86.321,43.4668 -86.3124,43.4471 -86.3105,43.4416 -86.3068,43.4305 -86.3,43.4126 -86.2952,43.3939 -86.2897,43.376 -86.2876,43.3664 -86.2842,43.3572 -86.2819,43.3526 -86.2801,43.3507 -86.2782,43.3498 -86.2732,43.3501 -86.2668,43.3509 -86.263,43.3517 -86.2587,43.3502 -86.2543,43.3483 -86.2473,43.3513 -86.2453,43.3522 -86.2428,43.353 -86.239,43.3532 -86.2352,43.3533 -86.2314,43.3541 -86.2294,43.3568 -86.2286,43.36 -86.2251,43.3667 -86.2213,43.3675 -86.2181,43.3688 -86.2155,43.3706 -86.2116,43.3728 -86.209,43.375 -86.2077,43.3768 -86.2049,43.3822 -86.2035,43.384 -86.201,43.3839 -86.1999,43.3807 -86.2001,43.377 -86.2003,43.372 -86.2011,43.368 -86.2019,43.3639 -86.2033,43.3612 -86.2066,43.3576 -86.2106,43.3545 -86.2164,43.3519 -86.2254,43.3471 -86.2318,43.345 -86.2376,43.342 -86.2422,43.338 -86.2479,43.3363 -86.2531,43.3346 -86.2594,43.3343 -86.2637,43.3362 -86.2676,43.3386 -86.2698,43.34 -86.2723,43.3405 -86.2719,43.3364 -86.2672,43.3276 -86.2591,43.3124 -86.2462,43.2921 -86.2324,43.2626 -86.2122,43.2358 -86.2003,43.2209 -86.192,43.2107 -86.1902,43.2088 -86.1878,43.2051 -86.1846,43.2069 -86.182,43.2086 -86.18,43.2109 -86.1836,43.2155 -86.184,43.2196 -86.1808,43.2209 -86.1777,43.2204 -86.1752,43.2189 -86.1715,43.2179 -86.1665,43.2164 -86.159,43.2154 -86.1534,43.2143 -86.1503,43.2129 -86.1454,43.2118 -86.1416,43.2117 -86.1372,43.2121 -86.1344,43.214 -86.1313,43.216 -86.1287,43.2173 -86.1243,43.2191 -86.1204,43.2203 -86.1184,43.2226 -86.1177,43.2248 -86.1144,43.2284 -86.113,43.2315 -86.1097,43.2342 -86.1059,43.235 -86.1021,43.2354 -86.1016,43.2326 -86.0993,43.228 -86.0988,43.2257 -86.0958,43.2215 -86.094,43.2201 -86.0973,43.2179 -86.103,43.2167 -86.1094,43.2146 -86.1102,43.211 -86.1135,43.207 -86.1167,43.2057 -86.1205,43.2049 -86.1263,43.2014 -86.1296,43.1987 -86.1329,43.1965 -86.1349,43.1934 -86.1381,43.1921 -86.1412,43.1931 -86.1437,43.194 -86.1462,43.1946 -86.1494,43.1924 -86.1495,43.1901 -86.1503,43.1874 -86.1528,43.1865 -86.156,43.1857 -86.1617,43.1854 -86.1704,43.1874 -86.1734,43.1907 -86.1764,43.193 -86.1788,43.1958 -86.1825,43.1973 -86.1845,43.1959 -86.1816,43.19 -86.1787,43.184 -86.171,43.1747 -86.1675,43.1687 -86.1618,43.1549 -86.1518,43.1401 -86.1444,43.1253 -86.1361,43.1147 -86.1291,43.1017 -86.1239,43.093 -86.1221,43.0907 -86.121,43.087 -86.1194,43.0819 -86.1143,43.0695 -86.1128,43.0613 -86.1125,43.0549 -86.1108,43.0499 -86.1092,43.0439 -86.1069,43.0411 -86.104,43.0356 -86.1016,43.0337 -86.0996,43.035 -86.0977,43.0368 -86.0937,43.0399 -86.0917,43.0421 -86.091,43.0457 -86.089,43.048 -86.0845,43.0497 -86.0788,43.0509 -86.0743,43.0535 -86.069,43.0579 -86.0645,43.061 -86.0607,43.0614 -86.0563,43.0608 -86.0532,43.0603 -86.0469,43.0619 -86.0454,43.0655 -86.044,43.0705 -86.0425,43.0741 -86.0411,43.0786 -86.0397,43.0809 -86.037,43.0844 -86.0344,43.0877 -86.0262,43.0877 -86.0244,43.0846 -86.0271,43.0815 -86.0292,43.0779 -86.0312,43.0743 -86.0327,43.0702 -86.0341,43.0666 -86.0343,43.0625 -86.0325,43.0616 -86.0287,43.0624 -86.0255,43.0628 -86.0211,43.0626 -86.0251,43.0573 -86.0322,43.0534 -86.0391,43.054 -86.0453,43.0551 -86.0503,43.0556 -86.0547,43.0558 -86.0585,43.0549 -86.0624,43.0523 -86.0614,43.0477 -86.0595,43.0468 -86.0546,43.0439 -86.0503,43.0429 -86.0442,43.0391 -86.037,43.0326 -86.0265,43.0282 -86.0217,43.0249 -86.018,43.0225 -86.0137,43.0201 -86.012,43.0183 -86.0102,43.0159 -86.0079,43.0122 -86.0062,43.0086 -86.0025,43.0071 -85.9987,43.0061 -85.997,43.0029 -85.9997,42.9993 -86.0029,42.998 -86.0055,42.9972 -86.0112,42.9959 -86.0129,42.9983 -86.0153,43.0015 -86.0188,43.0066 -86.0193,43.0093 -86.0222,43.014 -86.0264,43.0182 -86.03,43.0219 -86.0349,43.0243 -86.0441,43.0277 -86.0503,43.0292 -86.0553,43.0307 -86.0596,43.0331 -86.0631,43.0378 -86.0662,43.0387 -86.0692,43.0406 -86.0717,43.0412 -86.0761,43.0417 -86.0786,43.0418 -86.0825,43.0392 -86.0845,43.036 -86.0865,43.0342 -86.0904,43.0312 -86.093,43.0299 -86.0949,43.0285 -86.0968,43.0277 -86.0988,43.0255 -86.0942,43.0167 -86.091,43.0052 -86.087,42.9969 -86.0879,42.9915 -86.0849,42.9751 -86.0835,42.9636 -86.0829,42.95 -86.0797,42.9385 -86.0754,42.9248 -86.0731,42.8918 -86.07,42.8932 -86.0676,42.8782 -86.0688,42.8689 -86.0657,42.8522 -86.0677,42.844 -86.0689,42.8302 -86.0645,42.8103 -86.0662,42.7906 -86.0643,42.7748 -86.0667,42.7635 -86.0674,42.7499 -86.065,42.7407 -86.0621,42.7293 -86.0617,42.7129 -86.062,42.7047 -86.0613,42.6942 -86.0612,42.6833 -86.0605,42.6719 -86.0629,42.6611 -86.0692,42.6462 -86.0726,42.6408 -86.0754,42.6327 -86.0783,42.6246 -86.0819,42.6151 -86.084,42.6088 -86.0856,42.603 -86.0858,42.5971 -86.0868,42.5893 -86.0878,42.5826 -86.0877,42.5707 -86.085,42.562 -86.0842,42.5524 -86.0912,42.5222 -86.0922,42.5154 -86.0938,42.5068 -86.0963,42.4932 -86.098,42.4837 -86.1004,42.4719 -86.1042,42.4588 -86.1082,42.4398 -86.1105,42.4299 -86.1139,42.4227 -86.1175,42.4128 -86.1269,42.3976 -86.1318,42.3889 -86.1371,42.3796 -86.1411,42.372 -86.1478,42.3481 -86.1521,42.3377 -86.1619,42.3125 -86.1721,42.2941 -86.1794,42.2825 -86.187,42.2654 -86.1985,42.2452 -86.2096,42.2332 -86.2168,42.2216 -86.2206,42.2165 -86.2242,42.2117 -86.2328,42.1992 -86.2394,42.1907 -86.2511,42.1774 -86.2635,42.164 -86.2765,42.1494 -86.2875,42.1383 -86.3062,42.1223 -86.3203,42.1118 -86.3311,42.1047 -86.3394,42.099 -86.3459,42.0924 -86.3507,42.0811 -86.3541,42.0726 -86.3558,42.0631 -86.3579,42.0567 -86.3613,42.0509 -86.3679,42.0402 -86.3764,42.0299 -86.385,42.0169 -86.3917,42.0039 -86.3957,41.9976 -86.4041,41.9883 -86.4081,41.982 -86.4108,41.9757 -86.413,41.968 -86.4159,41.9576 -86.42,41.9477 -86.4249,41.9356 -86.4277,41.9275 -86.4337,41.9172 -86.4391,41.9041 -86.4477,41.8907 -86.4542,41.8831 -86.458,41.8795 -86.4632,41.8733 -86.4697,41.8671 -86.4754,41.8622 -86.4824,41.8578 -86.4887,41.8534 -86.5065,41.8402 -86.5179,41.8332 -86.5345,41.8208 -86.5415,41.8132 -86.5454,41.8102 -86.5517,41.8067 -86.561,41.8032 -86.5686,41.7979 -86.5781,41.7927 -86.5863,41.7883 -86.5971,41.7808 -86.6084,41.7747 -86.6203,41.7686 -86.6323,41.7616 -86.6417,41.7563 -86.6493,41.7515 -86.6563,41.7467 -86.6633,41.7413 -86.6715,41.7347 -86.6742,41.7313 -86.676,41.7289 -86.6742,41.7289 1634,-5.0,United States -87.6056,38.423 -87.603,38.423 -87.6001,38.4207 -87.5972,38.4188 -87.5943,38.4179 -87.5908,38.416 -87.5879,38.4137 -87.5862,38.4114 -87.5869,38.4083 -87.592,38.3902 -87.5938,38.388 -87.595,38.3857 -87.5904,38.3843 -87.5863,38.3833 -87.5834,38.3828 -87.5769,38.3827 -87.5716,38.384 -87.5686,38.3858 -87.5645,38.3871 -87.5615,38.3889 -87.5585,38.3902 -87.5555,38.392 -87.5526,38.3937 -87.5496,38.3959 -87.5466,38.3968 -87.5419,38.3981 -87.536,38.3989 -87.5289,38.3988 -87.5247,38.4019 -87.5252,38.4051 -87.5258,38.4078 -87.5275,38.4101 -87.5274,38.4124 -87.5262,38.4151 -87.5244,38.4173 -87.5214,38.4196 -87.5184,38.4204 -87.5143,38.4208 -87.506,38.4207 -87.5002,38.4197 -87.4944,38.4169 -87.4909,38.4159 -87.488,38.4145 -87.481,38.4135 -87.4763,38.4134 -87.4727,38.4138 -87.4698,38.4147 -87.4662,38.4156 -87.4632,38.4169 -87.4603,38.4186 -87.4531,38.4231 -87.4507,38.4253 -87.447,38.4302 -87.4452,38.4334 -87.4427,38.4379 -87.4415,38.4406 -87.4396,38.4437 -87.4389,38.4469 -87.4377,38.45 -87.437,38.4527 -87.4352,38.4572 -87.4327,38.4599 -87.4298,38.4608 -87.4268,38.4607 -87.4239,38.4598 -87.421,38.4575 -87.4176,38.4551 -87.4124,38.451 -87.4095,38.4491 -87.4036,38.4508 -87.4011,38.4535 -87.3993,38.458 -87.3986,38.4607 -87.399,38.4662 -87.3989,38.4707 -87.3971,38.4739 -87.3947,38.4761 -87.3911,38.4769 -87.3882,38.4769 -87.3847,38.4759 -87.3824,38.4727 -87.3813,38.47 -87.3808,38.4668 -87.375,38.464 -87.372,38.4649 -87.369,38.4662 -87.3655,38.4666 -87.3632,38.4633 -87.3603,38.4628 -87.3568,38.461 -87.3516,38.4604 -87.348,38.4627 -87.3473,38.4654 -87.3467,38.4676 -87.346,38.4712 -87.3453,38.4735 -87.3446,38.4798 -87.339,38.4879 -87.3361,38.4892 -87.3337,38.4914 -87.3324,38.4937 -87.3294,38.4963 -87.327,38.4981 -87.3241,38.4328 -87.3076,38.4325 -87.3067,38.4026 -87.2668,38.4006 -87.2654,38.3452 -87.2614,38.3447 -87.2513,38.3459 -87.2478,38.3472 -87.2419,38.3466 -87.2361,38.3456 -87.2319,38.3478 -87.2254,38.3486 -87.2208,38.3467 -87.215,38.3448 -87.2085,38.3461 -87.2019,38.3482 -87.1966,38.3495 -87.1914,38.3476 -87.1663,38.344 -87.169,38.2121 -87.1508,38.2122 -87.1506,38.2009 -86.9274,38.198 -86.9266,38.1695 -86.8727,38.1688 -86.6466,38.1677 -86.6474,38.1627 -86.6463,38.1604 -86.6458,38.1577 -86.6459,38.155 -86.6454,38.1527 -86.6455,38.15 -86.6445,38.1445 -86.6452,38.1423 -86.6489,38.1378 -86.6578,38.1339 -86.6608,38.1317 -86.6615,38.1295 -86.6621,38.1268 -86.6617,38.1241 -86.6612,38.1218 -86.6607,38.119 -86.6596,38.1163 -86.6603,38.1136 -86.661,38.1104 -86.6611,38.1082 -86.6618,38.1037 -86.6619,38.1014 -86.6602,38.0986 -86.6574,38.0963 -86.6558,38.0931 -86.6553,38.0904 -86.6555,38.0845 -86.6538,38.0817 -86.6527,38.0794 -86.6499,38.0771 -86.6465,38.0752 -86.6412,38.0746 -86.6371,38.075 -86.6336,38.074 -86.6308,38.073 -86.6274,38.0684 -86.6264,38.0639 -86.6271,38.0616 -86.6278,38.0589 -86.6285,38.054 -86.6304,38.0517 -86.6316,38.0495 -86.6311,38.0472 -86.6306,38.0445 -86.629,38.0413 -86.6285,38.0385 -86.6274,38.0362 -86.6269,38.034 -86.6264,38.0312 -86.6265,38.0285 -86.6261,38.0253 -86.6256,38.0226 -86.6257,38.0199 -86.6252,38.0162 -86.6259,38.014 -86.6266,38.0104 -86.627,37.9991 -86.6277,37.9963 -86.6272,37.9941 -86.6273,37.9918 -86.6257,37.989 -86.6246,37.9868 -86.6224,37.9817 -86.6225,37.9795 -86.622,37.9772 -86.6227,37.9749 -86.6239,37.9727 -86.6263,37.9705 -86.6293,37.9701 -86.6321,37.972 -86.6362,37.973 -86.6396,37.9753 -86.6425,37.9758 -86.6495,37.9751 -86.6537,37.9742 -86.656,37.9738 -86.659,37.9721 -86.6631,37.9708 -86.665,37.9686 -86.668,37.9664 -86.6698,37.9642 -86.6717,37.961 -86.6736,37.9575 -86.6706,37.9578 -86.6672,37.9569 -86.6637,37.955 -86.658,37.9517 -86.6551,37.9498 -86.6535,37.9475 -86.6501,37.9447 -86.649,37.9424 -86.6479,37.9397 -86.6463,37.9369 -86.6464,37.9346 -86.6453,37.9323 -86.6442,37.9296 -86.642,37.9273 -86.6403,37.9245 -86.6381,37.9213 -86.637,37.9186 -86.6354,37.9163 -86.6337,37.9135 -86.6304,37.9075 -86.6276,37.9038 -86.6271,37.9011 -86.6233,37.8956 -86.6216,37.8928 -86.6194,37.8901 -86.6173,37.8837 -86.6151,37.8804 -86.6128,37.8781 -86.6106,37.8744 -86.6062,37.8689 -86.6033,37.8666 -86.6011,37.8643 -86.5982,37.8633 -86.5948,37.8618 -86.5919,37.8609 -86.589,37.8604 -86.5802,37.8602 -86.5761,37.8605 -86.5732,37.8614 -86.5661,37.8648 -86.5631,37.8661 -86.559,37.8674 -86.556,37.8691 -86.553,37.8713 -86.5494,37.8731 -86.5465,37.8734 -86.5429,37.8747 -86.54,37.8756 -86.5364,37.8777 -86.5323,37.8786 -86.5287,37.8794 -86.5252,37.8793 -86.5218,37.8788 -86.5188,37.8792 -86.5159,37.8791 -86.5131,37.8763 -86.5109,37.874 -86.508,37.8712 -86.5076,37.8685 -86.5089,37.864 -86.5084,37.8617 -86.5086,37.8562 -86.5093,37.8531 -86.5106,37.8504 -86.5107,37.8477 -86.512,37.8454 -86.512,37.8432 -86.5133,37.8409 -86.514,37.8387 -86.5147,37.836 -86.5153,37.8337 -86.516,37.831 -86.5167,37.8288 -86.5179,37.8265 -86.5181,37.822 -86.516,37.8174 -86.5143,37.8151 -86.5132,37.8133 -86.5098,37.8114 -86.5057,37.8108 -86.5028,37.8108 -86.4958,37.8115 -86.4928,37.8119 -86.4893,37.8127 -86.4852,37.8135 -86.4793,37.8161 -86.4763,37.8169 -86.4727,37.8191 -86.4656,37.8217 -86.462,37.8239 -86.4596,37.8274 -86.4571,37.8319 -86.4564,37.8346 -86.4557,37.8378 -86.455,37.8405 -86.4549,37.8437 -86.4542,37.8464 -86.4541,37.8491 -86.4533,37.8527 -86.4538,37.8559 -86.4531,37.8599 -86.4528,37.8658 -86.4519,37.874 -86.4518,37.8771 -86.4511,37.8794 -86.4487,37.8825 -86.4462,37.8847 -86.4456,37.887 -86.4426,37.8883 -86.4391,37.8891 -86.4361,37.8899 -86.4331,37.8912 -86.4291,37.8916 -86.4261,37.8915 -86.4203,37.8904 -86.4169,37.8895 -86.4128,37.8898 -86.4098,37.8902 -86.4069,37.8897 -86.4035,37.8882 -86.4006,37.8882 -86.3976,37.8885 -86.3884,37.8874 -86.3854,37.8878 -86.3825,37.8886 -86.379,37.889 -86.376,37.8898 -86.3724,37.8916 -86.37,37.8938 -86.3687,37.8965 -86.3675,37.8987 -86.3656,37.9009 -86.365,37.9032 -86.3642,37.9081 -86.3646,37.9118 -86.3651,37.9141 -86.3667,37.9168 -86.3672,37.9191 -86.3683,37.9218 -86.3699,37.925 -86.371,37.9278 -86.3731,37.9328 -86.3757,37.9411 -86.3767,37.9447 -86.3772,37.9474 -86.3776,37.9506 -86.3781,37.9534 -86.378,37.9565 -86.3785,37.9588 -86.3784,37.9611 -86.3777,37.9642 -86.3761,37.9751 -86.3754,37.9773 -86.3759,37.9796 -86.3752,37.9819 -86.3751,37.9846 -86.3744,37.9873 -86.3732,37.9895 -86.3731,37.9918 -86.3718,37.9945 -86.3704,37.999 -86.3703,38.0012 -86.3676,38.0102 -86.3664,38.0129 -86.3634,38.0147 -86.3604,38.0151 -86.3575,38.0163 -86.3539,38.0172 -86.3504,38.0175 -86.3454,38.0141 -86.3468,38.0184 -86.3439,38.0187 -86.3404,38.0187 -86.3363,38.0195 -86.3234,38.0191 -86.3193,38.0209 -86.3157,38.0221 -86.3127,38.0234 -86.3098,38.0242 -86.3056,38.025 -86.302,38.0272 -86.299,38.029 -86.2936,38.0343 -86.291,38.0396 -86.2897,38.0419 -86.2884,38.0464 -86.2877,38.0491 -86.2876,38.0518 -86.2898,38.0546 -86.2926,38.0574 -86.2966,38.0593 -86.2995,38.0607 -86.3017,38.063 -86.3052,38.0649 -86.3143,38.0693 -86.3178,38.0716 -86.32,38.0753 -86.3216,38.0776 -86.3221,38.0799 -86.3219,38.0853 -86.3212,38.0885 -86.3205,38.0907 -86.3186,38.0929 -86.3157,38.0938 -86.3121,38.095 -86.3074,38.0954 -86.3045,38.0958 -86.2998,38.0956 -86.2929,38.0928 -86.2894,38.0918 -86.2878,38.0895 -86.2843,38.0871 -86.2809,38.0852 -86.2775,38.0838 -86.2746,38.0819 -86.2712,38.08 -86.2671,38.079 -86.2642,38.078 -86.2608,38.0756 -86.2574,38.0742 -86.2545,38.0741 -86.252,38.0763 -86.249,38.079 -86.2453,38.0834 -86.244,38.0865 -86.2409,38.0892 -86.2368,38.0909 -86.2326,38.093 -86.2296,38.0939 -86.2255,38.0947 -86.222,38.0946 -86.219,38.0959 -86.2143,38.0962 -86.2084,38.0974 -86.2043,38.0978 -86.2013,38.0981 -86.1978,38.0985 -86.1949,38.0993 -86.1913,38.1002 -86.1883,38.1019 -86.1846,38.1063 -86.1827,38.1099 -86.1826,38.1131 -86.1841,38.1172 -86.1875,38.12 -86.1904,38.1214 -86.1944,38.1225 -86.198,38.1225 -86.202,38.1231 -86.2049,38.1241 -86.2078,38.1246 -86.2113,38.1256 -86.2206,38.1272 -86.2246,38.1287 -86.2281,38.1297 -86.231,38.1316 -86.2344,38.1339 -86.2366,38.1362 -86.2383,38.139 -86.2376,38.1417 -86.2374,38.1453 -86.2379,38.1481 -86.2378,38.1508 -86.2364,38.1557 -86.2369,38.158 -86.2356,38.1607 -86.232,38.1615 -86.2215,38.1612 -86.2186,38.1603 -86.2116,38.1592 -86.2088,38.1568 -86.2042,38.1545 -86.2002,38.1521 -86.1986,38.1498 -86.1951,38.1474 -86.1923,38.1455 -86.1882,38.1459 -86.1889,38.1432 -86.1833,38.1371 -86.1742,38.1315 -86.1569,38.1242 -86.1512,38.1213 -86.1449,38.1162 -86.1429,38.1098 -86.1414,38.1039 -86.1411,38.0961 -86.1414,38.0898 -86.1406,38.0821 -86.1411,38.0703 -86.1409,38.0617 -86.1402,38.0517 -86.1387,38.0444 -86.1355,38.0375 -86.1323,38.0315 -86.125,38.0241 -86.1176,38.018 -86.1097,38.0128 -86.0994,38.0066 -86.0903,38.0018 -86.0811,37.9984 -86.0713,37.9945 -86.0598,37.9901 -86.0483,37.9862 -86.0379,37.9836 -86.0263,37.9815 -86.0146,37.9807 -86.0059,37.981 -85.993,37.9811 -85.9813,37.9821 -85.972,37.9809 -85.9615,37.9788 -85.9523,37.9772 -85.9426,37.9715 -85.9325,37.9631 -85.9269,37.9566 -85.9208,37.9509 -85.9158,37.9445 -85.9114,37.9389 -85.9046,37.9337 -85.9,37.9327 -85.897,37.9344 -85.8895,37.9451 -85.8857,37.9509 -85.8832,37.9553 -85.8789,37.9588 -85.8724,37.9614 -85.8658,37.9644 -85.8539,37.9676 -85.8509,37.9694 -85.8474,37.9706 -85.8375,37.9703 -85.8345,37.9707 -85.8304,37.9706 -85.8269,37.9714 -85.8227,37.9726 -85.8198,37.9735 -85.8121,37.9755 -85.8085,37.9768 -85.8061,37.9781 -85.8031,37.9789 -85.8002,37.9797 -85.7972,37.981 -85.7911,37.9853 -85.7887,37.988 -85.7862,37.9902 -85.7843,37.9929 -85.7825,37.9951 -85.7812,37.9977 -85.7782,37.9999 -85.7769,38.0026 -85.775,38.0048 -85.7737,38.0071 -85.77,38.0106 -85.7687,38.0146 -85.7674,38.0178 -85.7661,38.02 -85.7648,38.0227 -85.7634,38.0258 -85.7627,38.0285 -85.762,38.0308 -85.7591,38.0434 -85.759,38.0456 -85.7583,38.0479 -85.7577,38.0592 -85.7588,38.0615 -85.7581,38.0642 -85.7597,38.0665 -85.7606,38.0729 -85.761,38.0756 -85.7615,38.0779 -85.7625,38.0807 -85.763,38.0838 -85.7627,38.0893 -85.7631,38.0925 -85.7636,38.0948 -85.7641,38.0975 -85.7639,38.1002 -85.7644,38.1029 -85.7641,38.1084 -85.7634,38.1111 -85.763,38.1192 -85.7635,38.1215 -85.7634,38.1238 -85.7627,38.126 -85.7625,38.1287 -85.7618,38.1314 -85.7611,38.1337 -85.7608,38.1409 -85.7594,38.1459 -85.7587,38.1481 -85.7561,38.1526 -85.7542,38.1553 -85.7523,38.1584 -85.7492,38.161 -85.7444,38.164 -85.7414,38.1662 -85.7372,38.1684 -85.7359,38.1706 -85.7329,38.1719 -85.7328,38.1741 -85.7291,38.1777 -85.7266,38.1798 -85.7205,38.1856 -85.7169,38.1873 -85.7144,38.1904 -85.7114,38.1916 -85.7101,38.1939 -85.7071,38.196 -85.7046,38.1987 -85.7021,38.2018 -85.6996,38.2044 -85.697,38.2098 -85.6963,38.213 -85.695,38.2156 -85.6942,38.2192 -85.6928,38.2242 -85.6925,38.2287 -85.6913,38.231 -85.6898,38.2368 -85.6879,38.2399 -85.6872,38.2422 -85.68,38.2451 -85.677,38.2469 -85.671,38.2485 -85.668,38.2498 -85.6639,38.2501 -85.661,38.2505 -85.6538,38.2521 -85.6445,38.2518 -85.6347,38.2507 -85.6335,38.2483 -85.63,38.2477 -85.6272,38.2458 -85.6243,38.2435 -85.6203,38.2415 -85.6146,38.2386 -85.6094,38.2371 -85.6065,38.2366 -85.5972,38.2358 -85.5942,38.2362 -85.5912,38.2375 -85.5877,38.2383 -85.5841,38.2395 -85.5799,38.2407 -85.5769,38.2416 -85.5734,38.2424 -85.5715,38.2446 -85.5685,38.2463 -85.5576,38.2528 -85.5546,38.2545 -85.5509,38.2562 -85.5449,38.2587 -85.5413,38.2613 -85.5383,38.2626 -85.5341,38.2647 -85.5311,38.266 -85.5287,38.2668 -85.5268,38.2695 -85.5243,38.2721 -85.5218,38.2743 -85.5193,38.277 -85.5175,38.2792 -85.515,38.2818 -85.5131,38.2849 -85.5118,38.2872 -85.5099,38.2898 -85.5092,38.2921 -85.504,38.301 -85.5015,38.3036 -85.5008,38.3063 -85.4995,38.3086 -85.4982,38.3112 -85.4974,38.3148 -85.4966,38.318 -85.4959,38.3202 -85.4952,38.3234 -85.4948,38.3311 -85.4934,38.3356 -85.4936,38.3424 -85.4929,38.3446 -85.4909,38.3496 -85.4902,38.3518 -85.4888,38.3549 -85.4881,38.3572 -85.4874,38.3599 -85.4867,38.3621 -85.4854,38.3644 -85.4834,38.3693 -85.4832,38.3725 -85.4819,38.3747 -85.4818,38.3774 -85.4811,38.3797 -85.4792,38.3819 -85.4791,38.3841 -85.4766,38.3863 -85.4759,38.3886 -85.4746,38.3908 -85.4733,38.3935 -85.4726,38.3957 -85.4713,38.3984 -85.4706,38.4006 -85.4681,38.4028 -85.4668,38.4055 -85.4643,38.4077 -85.4624,38.4104 -85.4599,38.4126 -85.4569,38.4147 -85.4532,38.4169 -85.449,38.4181 -85.4454,38.4194 -85.4424,38.4206 -85.4395,38.4214 -85.4359,38.4227 -85.4323,38.423 -85.4287,38.4238 -85.4257,38.4251 -85.4198,38.4263 -85.4127,38.4269 -85.4038,38.428 -85.3968,38.4273 -85.3938,38.4286 -85.3903,38.428 -85.3873,38.4284 -85.3838,38.4287 -85.3808,38.4291 -85.3778,38.4303 -85.3742,38.4316 -85.3677,38.4332 -85.3641,38.434 -85.3605,38.4352 -85.3575,38.4365 -85.3545,38.4373 -85.3488,38.4439 -85.3452,38.4461 -85.3427,38.4487 -85.3402,38.4509 -85.3383,38.4531 -85.3357,38.4585 -85.3331,38.4629 -85.3306,38.4656 -85.3224,38.4744 -85.3186,38.4797 -85.3137,38.4841 -85.3075,38.4884 -85.3045,38.4901 -85.3014,38.4923 -85.2984,38.4935 -85.296,38.4957 -85.293,38.4965 -85.2893,38.4982 -85.2833,38.5017 -85.2797,38.5029 -85.2789,38.5061 -85.2764,38.5091 -85.2732,38.5127 -85.2707,38.5158 -85.2682,38.5184 -85.2663,38.5206 -85.2655,38.5242 -85.2647,38.5274 -85.2652,38.5301 -85.2661,38.5347 -85.2682,38.5388 -85.2687,38.5411 -85.2702,38.5461 -85.2717,38.5507 -85.2733,38.5535 -85.2743,38.5567 -85.2759,38.559 -85.277,38.5613 -85.2786,38.5641 -85.2802,38.5673 -85.2812,38.5701 -85.2829,38.5724 -85.2833,38.5756 -85.2837,38.5779 -85.2846,38.5834 -85.2844,38.5865 -85.2848,38.5902 -85.2852,38.5934 -85.2851,38.5961 -85.2855,38.5993 -85.2859,38.6034 -85.2857,38.6061 -85.2861,38.6093 -85.2871,38.6129 -85.2875,38.6157 -85.2879,38.6189 -85.2878,38.6211 -85.2883,38.6234 -85.2887,38.627 -85.2882,38.6347 -85.2893,38.637 -85.2903,38.6403 -85.2925,38.6426 -85.2929,38.6462 -85.2951,38.6495 -85.2967,38.6527 -85.2983,38.655 -85.2994,38.6578 -85.301,38.6606 -85.3004,38.671 -85.2997,38.6737 -85.2995,38.6764 -85.2988,38.6791 -85.2986,38.6814 -85.2973,38.684 -85.2966,38.6863 -85.294,38.6907 -85.2915,38.6934 -85.289,38.6956 -85.2859,38.6977 -85.2829,38.6994 -85.2786,38.7011 -85.2756,38.7024 -85.2721,38.7027 -85.2691,38.7031 -85.2655,38.7043 -85.2625,38.7042 -85.2584,38.7045 -85.2554,38.7049 -85.2518,38.7052 -85.2489,38.7056 -85.2459,38.7055 -85.243,38.7058 -85.2365,38.7056 -85.2335,38.7051 -85.2306,38.705 -85.2248,38.7039 -85.2218,38.7038 -85.2189,38.7032 -85.2154,38.7026 -85.2124,38.7025 -85.2089,38.702 -85.206,38.701 -85.2031,38.7009 -85.2001,38.7012 -85.1965,38.702 -85.193,38.7024 -85.187,38.7031 -85.1823,38.7029 -85.1798,38.7046 -85.175,38.7063 -85.172,38.7071 -85.1667,38.7078 -85.1625,38.7081 -85.1589,38.7089 -85.1548,38.7092 -85.15,38.7095 -85.1453,38.7103 -85.1417,38.7101 -85.1376,38.7109 -85.1305,38.7107 -85.1275,38.711 -85.1222,38.7113 -85.1187,38.7103 -85.1158,38.7093 -85.1118,38.7073 -85.1083,38.7054 -85.1061,38.703 -85.1011,38.6983 -85.0982,38.6964 -85.096,38.6941 -85.0938,38.6922 -85.0921,38.6898 -85.0887,38.6875 -85.0859,38.6855 -85.0831,38.6827 -85.0791,38.6799 -85.0764,38.6761 -85.0736,38.6742 -85.0679,38.6695 -85.0639,38.6675 -85.0623,38.6652 -85.0594,38.6642 -85.0525,38.6617 -85.0496,38.6598 -85.0456,38.6583 -85.0408,38.6586 -85.0373,38.6585 -85.0308,38.6591 -85.0254,38.6599 -85.0201,38.6601 -85.0166,38.66 -85.0136,38.6608 -85.0082,38.6611 -85.004,38.6632 -85.0009,38.6644 -84.9979,38.6666 -84.9936,38.6687 -84.9899,38.6713 -84.9826,38.6747 -84.9765,38.6776 -84.9724,38.6784 -84.967,38.68 -84.9651,38.6822 -84.9608,38.6843 -84.9572,38.686 -84.9473,38.6934 -84.9453,38.696 -84.9411,38.6982 -84.938,38.7008 -84.9355,38.703 -84.9324,38.7042 -84.9305,38.7069 -84.9269,38.7085 -84.9244,38.7107 -84.9182,38.7141 -84.9158,38.7163 -84.9115,38.718 -84.9055,38.7205 -84.9025,38.7213 -84.8994,38.723 -84.8958,38.7238 -84.8933,38.7255 -84.8904,38.7258 -84.8862,38.727 -84.8832,38.7278 -84.8802,38.7282 -84.8766,38.729 -84.8724,38.7302 -84.8688,38.731 -84.8651,38.7331 -84.8566,38.7364 -84.8536,38.7377 -84.8482,38.7393 -84.8451,38.7414 -84.8397,38.7426 -84.8361,38.7443 -84.8325,38.7446 -84.8277,38.7453 -84.8229,38.7465 -84.8193,38.7469 -84.8164,38.7472 -84.814,38.7471 -84.8087,38.7474 -84.8057,38.7477 -84.8015,38.748 -84.7968,38.7478 -84.7938,38.7486 -84.7897,38.7489 -84.7825,38.75 -84.7795,38.7504 -84.7754,38.7511 -84.7664,38.7522 -84.7629,38.7525 -84.7575,38.7532 -84.7491,38.7547 -84.745,38.755 -84.7372,38.7556 -84.7343,38.756 -84.7277,38.7566 -84.7241,38.7574 -84.7206,38.7573 -84.717,38.758 -84.7135,38.757 -84.7088,38.7573 -84.7046,38.7576 -84.6993,38.7578 -84.6916,38.7575 -84.6886,38.7579 -84.6851,38.7573 -84.6816,38.7572 -84.6786,38.7575 -84.6757,38.7574 -84.6727,38.7577 -84.6691,38.7585 -84.6661,38.7593 -84.663,38.761 -84.6623,38.7637 -84.6621,38.766 -84.6637,38.7687 -84.6652,38.7724 -84.6674,38.7748 -84.6689,38.7798 -84.671,38.7844 -84.6725,38.7881 -84.6729,38.7904 -84.6722,38.7936 -84.6725,38.7977 -84.6717,38.8004 -84.6703,38.8035 -84.669,38.8061 -84.6665,38.8083 -84.6657,38.8106 -84.6626,38.8132 -84.6607,38.8154 -84.6576,38.8175 -84.6545,38.8192 -84.6515,38.8205 -84.649,38.8226 -84.6459,38.8252 -84.6428,38.8274 -84.6403,38.8296 -84.6372,38.8313 -84.6347,38.8325 -84.6333,38.8366 -84.633,38.8415 -84.6346,38.8443 -84.636,38.8503 -84.6387,38.8536 -84.6409,38.8559 -84.645,38.857 -84.6471,38.8607 -84.6505,38.8631 -84.6546,38.8646 -84.6581,38.8656 -84.6651,38.8668 -84.6698,38.867 -84.6734,38.8662 -84.6888,38.8668 -84.6911,38.8673 -84.7035,38.8673 -84.707,38.8679 -84.7129,38.8691 -84.7187,38.8711 -84.7215,38.8726 -84.7226,38.8753 -84.7242,38.8781 -84.7246,38.8804 -84.7256,38.8831 -84.7253,38.8881 -84.7245,38.8908 -84.7232,38.8935 -84.7213,38.8957 -84.7181,38.8983 -84.7156,38.9009 -84.7125,38.9035 -84.7094,38.9057 -84.7075,38.9079 -84.7049,38.9101 -84.7018,38.9131 -84.6987,38.9153 -84.6967,38.9179 -84.6936,38.9205 -84.6916,38.9241 -84.6903,38.9268 -84.6877,38.9294 -84.6864,38.932 -84.6844,38.9347 -84.6831,38.9369 -84.6823,38.9405 -84.6817,38.9487 -84.6827,38.9519 -84.6831,38.9546 -84.6853,38.9574 -84.6863,38.9606 -84.6878,38.9652 -84.6915,38.9717 -84.695,38.9732 -84.6966,38.9764 -84.6998,38.9811 -84.7026,38.9839 -84.706,38.9863 -84.7089,38.9873 -84.7157,38.9921 -84.7185,38.9945 -84.7214,38.9964 -84.7236,38.9988 -84.7246,39.002 -84.728,39.0048 -84.7313,39.0081 -84.7341,39.011 -84.7373,39.0165 -84.7377,39.0193 -84.7382,39.0216 -84.7374,39.0238 -84.7367,39.0265 -84.734,39.0309 -84.729,39.0353 -84.7246,39.0383 -84.7198,39.0399 -84.7179,39.0421 -84.7142,39.0438 -84.71,39.045 -84.7075,39.0472 -84.7044,39.048 -84.7031,39.0498 -84.6995,39.0514 -84.6958,39.0536 -84.684,39.0617 -84.6832,39.064 -84.6807,39.0662 -84.6777,39.0674 -84.6752,39.0696 -84.6721,39.2689 -84.672,39.2755 -84.6696,39.4783 -84.6696,39.5299 -84.6697,39.5327 -84.6679,39.6979 -84.6656,39.883 -84.6655,39.8912 -84.665,39.9819 -84.6529,40.2865 -84.6512,40.319 -84.6508,40.3269 -84.6476,40.5588 -84.6478,40.6948 -84.6478,40.7032 -84.6468,40.9012 -84.6464,40.9543 -84.6463,40.9639 -84.647,41.2191 -84.647,41.2283 -84.648,41.251 -84.6393,41.3938 -84.6392,41.3966 -84.6387,41.4953 -84.6386,41.5011 -84.6377,41.6652 -84.6418,41.6651 -84.6451,41.7271 -84.6733,41.7278 -84.677,41.7278 -85.0404,41.7288 -85.1452,41.728 -85.5068,41.7253 -85.6474,41.7306 -85.9155,41.7305 -86.0806,41.7302 -86.3724,41.7281 -86.3725,41.627 -86.3332,41.6256 -86.333,41.5466 -86.3458,41.5328 -86.3473,41.5278 -86.347,41.5047 -86.3538,41.5048 -86.3531,41.4921 -86.3776,41.4918 -86.3764,41.4059 -86.3788,41.4055 -86.385,41.4057 -86.3984,41.4055 -86.4015,41.4047 -86.4052,41.4043 -86.426,41.4048 -86.4322,41.404 -86.4365,41.4046 -86.4634,41.4052 -86.4683,41.4048 -86.4714,41.4044 -86.4781,41.4046 -86.4849,41.4038 -86.488,41.4039 -86.4911,41.4035 -86.4948,41.4031 -86.4979,41.4014 -86.5004,41.3987 -86.5024,41.397 -86.5043,41.3943 -86.5112,41.3894 -86.5144,41.3868 -86.5175,41.385 -86.5201,41.3828 -86.5239,41.3802 -86.5282,41.3785 -86.532,41.3758 -86.5357,41.3741 -86.5395,41.3719 -86.5426,41.3701 -86.5452,41.3679 -86.5496,41.3658 -86.5521,41.3635 -86.554,41.3609 -86.556,41.3586 -86.5573,41.3559 -86.5586,41.3528 -86.5606,41.3497 -86.5632,41.3452 -86.5646,41.3425 -86.5659,41.3402 -86.5684,41.3376 -86.5697,41.3353 -86.5723,41.3327 -86.5736,41.3304 -86.5749,41.3277 -86.5763,41.3237 -86.577,41.3214 -86.5778,41.3164 -86.5804,41.3133 -86.5817,41.3106 -86.5824,41.3084 -86.5838,41.3052 -86.5858,41.3016 -86.5891,41.2949 -86.5929,41.2909 -86.5948,41.2887 -86.5999,41.2833 -86.6025,41.2802 -86.605,41.2784 -86.607,41.2757 -86.6107,41.2731 -86.6139,41.2704 -86.6164,41.2682 -86.6233,41.2638 -86.6271,41.2616 -86.6309,41.2585 -86.6358,41.2568 -86.6396,41.2546 -86.6433,41.2529 -86.6509,41.2476 -86.6534,41.2449 -86.6571,41.2441 -86.6602,41.2424 -86.6639,41.2424 -86.6682,41.2416 -86.6798,41.2419 -86.6829,41.241 -86.686,41.2406 -86.6891,41.2389 -86.6952,41.2377 -86.6989,41.2368 -86.7033,41.236 -86.7063,41.2356 -86.71,41.2348 -86.7162,41.234 -86.7272,41.2324 -86.7309,41.232 -86.7396,41.229 -86.7439,41.2268 -86.747,41.226 -86.7501,41.2247 -86.7539,41.223 -86.757,41.2221 -86.7601,41.2204 -86.7632,41.2182 -86.767,41.216 -86.7701,41.2133 -86.7732,41.212 -86.7764,41.2098 -86.7795,41.2085 -86.7826,41.2058 -86.7801,41.1404 -86.7784,40.8844 -86.8338,40.8842 -86.8333,40.8129 -86.9506,40.8106 -86.9492,40.7103 -87.113,40.7097 -87.3799,40.7114 -87.3844,40.4606 -87.3829,40.4492 -87.3826,40.1321 -87.383,39.8533 -87.3828,39.5753 -87.3858,39.4434 -87.3875,39.3165 -87.3994,39.3171 -87.4048,39.3145 -87.4078,39.3118 -87.4127,39.3078 -87.4192,39.3079 -87.4252,39.3084 -87.4329,39.3077 -87.4383,39.3068 -87.4449,39.3042 -87.4468,39.3011 -87.4481,39.2975 -87.4512,39.2907 -87.4561,39.2858 -87.4598,39.2818 -87.464,39.2782 -87.4676,39.2765 -87.4725,39.2734 -87.4731,39.2711 -87.4702,39.2692 -87.4661,39.2683 -87.4579,39.2636 -87.4586,39.26 -87.4616,39.256 -87.4623,39.2533 -87.463,39.2474 -87.4602,39.2419 -87.4604,39.2351 -87.4576,39.2292 -87.4565,39.226 -87.4541,39.2241 -87.453,39.2214 -87.4501,39.2204 -87.4466,39.2186 -87.443,39.219 -87.44,39.2185 -87.4371,39.2184 -87.4329,39.217 -87.4318,39.2147 -87.432,39.2061 -87.4333,39.2016 -87.4334,39.1984 -87.4317,39.1957 -87.4312,39.1934 -87.4313,39.1884 -87.432,39.1857 -87.4332,39.183 -87.4345,39.1798 -87.4352,39.1776 -87.4358,39.1744 -87.4383,39.1699 -87.4396,39.1668 -87.4415,39.1641 -87.4444,39.1632 -87.4474,39.1628 -87.4504,39.1629 -87.4552,39.162 -87.4576,39.1589 -87.4589,39.1566 -87.4613,39.1544 -87.4649,39.1531 -87.4709,39.1514 -87.4751,39.1501 -87.4781,39.1474 -87.4811,39.1456 -87.4836,39.1434 -87.486,39.1389 -87.4874,39.1339 -87.4915,39.1345 -87.4975,39.1305 -87.5005,39.1292 -87.5041,39.1274 -87.5077,39.1261 -87.5102,39.1239 -87.5138,39.1194 -87.5145,39.1171 -87.5157,39.1149 -87.5176,39.1126 -87.5176,39.1104 -87.5159,39.1081 -87.5136,39.1044 -87.5101,39.103 -87.5078,39.0993 -87.5067,39.0966 -87.5074,39.0939 -87.5092,39.0917 -87.5093,39.0889 -87.5105,39.0867 -87.5106,39.0844 -87.51,39.0821 -87.5095,39.0794 -87.5084,39.0771 -87.5055,39.0757 -87.5013,39.0743 -87.4984,39.0734 -87.4948,39.0738 -87.4919,39.0733 -87.4883,39.0728 -87.4854,39.0718 -87.4819,39.0708 -87.4789,39.0699 -87.4784,39.0676 -87.4797,39.0631 -87.4798,39.0581 -87.4781,39.0549 -87.4752,39.0535 -87.4722,39.053 -87.4651,39.052 -87.4622,39.0511 -87.4593,39.0506 -87.4563,39.0487 -87.454,39.0464 -87.4517,39.0436 -87.4488,39.0409 -87.4442,39.0385 -87.4413,39.0358 -87.4396,39.0335 -87.4355,39.0307 -87.4326,39.0284 -87.432,39.0261 -87.434,39.0193 -87.4353,39.0139 -87.4344,39.0057 -87.4356,39.0035 -87.4333,39.0003 -87.431,38.998 -87.4299,38.9953 -87.43,38.993 -87.4294,38.9903 -87.4301,38.9875 -87.4302,38.9821 -87.4297,38.9798 -87.4298,38.9776 -87.4304,38.9753 -87.4311,38.9708 -87.4318,38.9685 -87.4301,38.9662 -87.4289,38.964 -87.429,38.9617 -87.4332,38.9608 -87.4361,38.9609 -87.4391,38.96 -87.4362,38.9573 -87.4333,38.9559 -87.4298,38.9545 -87.4269,38.9526 -87.4239,38.9512 -87.421,38.9502 -87.4181,38.9488 -87.4145,38.9488 -87.4116,38.9483 -87.4081,38.9473 -87.4046,38.9459 -87.3987,38.944 -87.3952,38.943 -87.3929,38.9407 -87.39,38.9384 -87.387,38.9366 -87.3853,38.9343 -87.3824,38.9319 -87.3807,38.9297 -87.3802,38.9274 -87.3791,38.9251 -87.378,38.9224 -87.3786,38.9201 -87.379,38.9065 -87.3784,38.9042 -87.3773,38.9019 -87.3774,38.8979 -87.3787,38.8956 -87.3799,38.8929 -87.3824,38.8907 -87.3866,38.8885 -87.3866,38.8862 -87.3873,38.884 -87.3867,38.8817 -87.385,38.879 -87.3845,38.8762 -87.3846,38.8735 -87.3858,38.8713 -87.3883,38.869 -87.3901,38.8663 -87.3914,38.8641 -87.392,38.8614 -87.3927,38.8591 -87.3939,38.8569 -87.394,38.8546 -87.3952,38.8519 -87.3982,38.8497 -87.4007,38.8475 -87.4025,38.8452 -87.4038,38.8407 -87.4051,38.8385 -87.4063,38.8358 -87.4064,38.8335 -87.4052,38.8312 -87.4029,38.8289 -87.4,38.8266 -87.3983,38.8243 -87.3948,38.8233 -87.3914,38.8201 -87.3884,38.8192 -87.3867,38.816 -87.3851,38.8119 -87.3834,38.8096 -87.3822,38.8073 -87.3817,38.805 -87.3812,38.8018 -87.3801,38.7986 -87.3803,38.7927 -87.3792,38.7905 -87.3775,38.7877 -87.3729,38.7831 -87.3717,38.7808 -87.37,38.7785 -87.3689,38.7753 -87.3666,38.7726 -87.3644,38.7694 -87.3586,38.7647 -87.3551,38.7615 -87.3546,38.7592 -87.3541,38.7565 -87.3548,38.7533 -87.3554,38.7511 -87.3584,38.7502 -87.3644,38.7476 -87.365,38.7453 -87.3663,38.7426 -87.3634,38.7408 -87.3599,38.7389 -87.357,38.738 -87.3552,38.7357 -87.3553,38.7334 -87.356,38.7312 -87.3572,38.728 -87.3579,38.7248 -87.3586,38.7226 -87.3586,38.7203 -87.3581,38.7176 -87.3576,38.7144 -87.3559,38.7121 -87.3548,38.7098 -87.3549,38.7048 -87.3556,38.7026 -87.358,38.6981 -87.3599,38.6954 -87.3611,38.6927 -87.363,38.69 -87.3654,38.6869 -87.3661,38.6842 -87.3679,38.6819 -87.3692,38.6797 -87.3704,38.677 -87.3717,38.6747 -87.3723,38.672 -87.3742,38.6693 -87.3754,38.6666 -87.3784,38.6649 -87.3857,38.6573 -87.3881,38.6546 -87.3911,38.6519 -87.3983,38.6493 -87.4019,38.6476 -87.4048,38.6467 -87.4078,38.6463 -87.4108,38.6454 -87.4155,38.6451 -87.4185,38.6446 -87.4226,38.6434 -87.4256,38.6425 -87.4286,38.6407 -87.4357,38.6381 -87.4387,38.6359 -87.4417,38.6346 -87.4447,38.6324 -87.4477,38.6306 -87.4495,38.6284 -87.4508,38.6247 -87.4526,38.6225 -87.4556,38.6221 -87.4586,38.6208 -87.4633,38.6186 -87.4646,38.6159 -87.467,38.6137 -87.47,38.611 -87.4724,38.6088 -87.4725,38.6065 -87.4731,38.6042 -87.4738,38.6015 -87.4745,38.5966 -87.4746,38.5943 -87.4752,38.5911 -87.4759,38.5889 -87.4748,38.5843 -87.4732,38.5789 -87.4715,38.5757 -87.4693,38.5711 -87.467,38.5674 -87.4671,38.5652 -87.4689,38.5629 -87.4719,38.5616 -87.4748,38.5612 -87.4784,38.5608 -87.4813,38.5608 -87.4843,38.56 -87.4878,38.5591 -87.4903,38.5551 -87.4909,38.5528 -87.4922,38.5506 -87.494,38.5483 -87.4964,38.5457 -87.4988,38.5434 -87.5001,38.5412 -87.5013,38.5376 -87.505,38.5331 -87.5074,38.5304 -87.5116,38.5278 -87.5123,38.5246 -87.5147,38.5224 -87.5177,38.5201 -87.5195,38.5179 -87.5201,38.5156 -87.5202,38.5134 -87.5191,38.5111 -87.5185,38.5088 -87.5174,38.5061 -87.514,38.5015 -87.5112,38.4965 -87.5055,38.49 -87.5026,38.4873 -87.5003,38.4841 -87.4986,38.4813 -87.4981,38.479 -87.4982,38.4763 -87.4988,38.4736 -87.4995,38.4686 -87.5008,38.4664 -87.5044,38.4642 -87.5073,38.4638 -87.5102,38.4652 -87.5125,38.4675 -87.5154,38.4698 -87.5183,38.4707 -87.5212,38.4712 -87.5242,38.4708 -87.5272,38.47 -87.5296,38.4677 -87.5314,38.4655 -87.532,38.4632 -87.5333,38.4605 -87.5351,38.4569 -87.5376,38.4524 -87.5382,38.4497 -87.5401,38.4475 -87.5436,38.4475 -87.5465,38.4471 -87.5507,38.4467 -87.5536,38.4459 -87.5572,38.445 -87.5613,38.4446 -87.5672,38.4429 -87.5708,38.4416 -87.5749,38.4403 -87.5791,38.4385 -87.5826,38.4377 -87.5862,38.4373 -87.5921,38.4355 -87.5956,38.4347 -87.5998,38.4334 -87.6033,38.4321 -87.6046,38.4298 -87.6046,38.4276 -87.6059,38.423 -87.6056,38.423 631,-4.0,Canada -68.9563,47.248 -68.9548,47.2396 -68.9522,47.2279 -68.9335,47.2018 -68.8631,47.1648 -68.793,47.135 -68.7331,47.155 -68.6891,47.171 -68.6636,47.1788 -68.4664,47.2359 -68.2725,47.2953 -68.245,47.3078 -68.217,47.3112 -68.1474,47.2979 -68.111,47.2877 -68.0882,47.2787 -67.8637,47.1365 -67.8528,47.1146 -67.7952,47.0606 -67.7701,47.0467 -67.6983,47.0162 -67.6952,46.8679 -67.6923,46.7346 -67.6831,46.2305 -67.6769,45.9051 -67.6911,45.836 -67.7107,45.7327 -67.7088,45.6792 -67.6989,45.644 -67.5652,45.5803 -67.479,45.5597 -67.4124,45.5497 -67.3827,45.5566 -67.3633,45.5619 -67.3182,45.5335 -67.3263,45.4733 -67.387,45.4443 -67.3561,45.2814 -67.3697,45.2326 -67.3605,45.2116 -67.3278,45.1635 -67.3116,45.1452 -67.2443,45.0991 -67.2114,45.1036 -67.1956,45.1287 -67.1698,45.1486 -67.142,45.1426 -67.1123,45.1317 -67.0927,45.1408 -67.0354,45.1209 -66.9523,45.0756 -66.9306,45.118 -66.8719,45.1283 -66.6848,45.042 -66.6991,45.0041 -66.6614,45.0044 -66.5519,45.0339 -66.5146,45.053 -66.4927,45.0657 -66.4724,45.0786 -66.4411,45.0948 -66.3994,45.0984 -66.3689,45.0647 -66.3346,45.0339 -66.1185,45.1103 -66.0547,45.1409 -66.021,45.1863 -66.0211,45.2074 -66.0476,45.2128 -66.085,45.2522 -66.0989,45.2798 -65.9072,45.4077 -65.9046,45.3661 -65.9092,45.3463 -65.9295,45.3192 -65.9588,45.2993 -65.9881,45.2926 -65.9996,45.2479 -65.894,45.1699 -65.8208,45.1543 -65.7945,45.1568 -65.4399,45.291 -65.3294,45.3513 -65.3028,45.368 -65.2764,45.3863 -65.2411,45.4032 -65.1291,45.4423 -65.0633,45.4631 -65.013,45.4731 -64.956,45.4872 -64.9237,45.497 -64.9005,45.5092 -64.8778,45.5273 -64.8529,45.5482 -64.8128,45.5759 -64.7933,45.5799 -64.7564,45.5813 -64.7341,45.5815 -64.7149,45.5757 -64.691,45.5584 -64.6653,45.5705 -64.4922,45.7748 -64.5119,45.8169 -64.543,45.8718 -64.6127,45.9404 -64.6593,46.034 -64.6004,45.9978 -64.5904,45.9691 -64.506,45.8697 -64.4009,45.7544 -64.3876,45.6985 -64.3274,45.744 -64.2687,45.8156 -64.2382,45.829 -64.1845,45.7884 -64.1825,45.7837 -64.1793,45.7768 -64.1839,45.7537 -64.1994,45.718 -64.2386,45.7058 -64.3394,45.6636 -64.3797,45.6185 -64.4779,45.5524 -64.6081,45.4795 -64.6744,45.4539 -64.7404,45.4276 -64.8225,45.3616 -64.8421,45.3042 -64.8444,45.2802 -64.7247,45.297 -64.5832,45.3315 -64.4392,45.3564 -64.2674,45.3295 -64.2223,45.3398 -64.1245,45.3481 -64.0734,45.3521 -63.9844,45.3582 -63.9528,45.3511 -63.8983,45.3329 -63.7481,45.3338 -63.7075,45.3411 -63.6577,45.3456 -63.2806,45.3082 -63.3818,45.2702 -63.507,45.2639 -63.7162,45.2505 -63.867,45.2 -63.8925,45.1917 -63.9184,45.185 -63.9759,45.1707 -64.0161,45.1617 -64.0684,45.1376 -64.1059,45.0994 -64.1045,45.0621 -64.0727,45.041 -64.0493,45.0255 -64.0284,45.0012 -64.0267,44.9581 -64.0613,44.9311 -64.059,44.9914 -64.1256,45.056 -64.154,45.0726 -64.2136,45.0901 -64.2366,45.0866 -64.2446,45.0676 -64.2655,45.0484 -64.2929,45.0872 -64.2631,45.1878 -64.2372,45.2155 -64.2309,45.2395 -64.2556,45.2618 -64.35,45.28 -64.3754,45.2831 -64.3952,45.2786 -64.3679,45.2718 -64.3403,45.2708 -64.3137,45.2601 -64.3031,45.2382 -64.3356,45.2108 -64.3696,45.1948 -64.46,45.1652 -64.4996,45.1568 -64.6201,45.1327 -64.6542,45.1269 -64.6863,45.1187 -64.7208,45.1078 -64.7797,45.0841 -64.8352,45.0543 -65.0228,44.9606 -65.1107,44.9228 -65.2082,44.8775 -65.5604,44.7112 -65.617,44.6666 -65.6053,44.645 -65.4564,44.6831 -65.4303,44.6872 -65.5333,44.6085 -65.5971,44.5645 -65.6604,44.5585 -65.7048,44.5669 -65.7198,44.6011 -65.8792,44.5413 -65.9754,44.4745 -66.0103,44.4496 -66.1018,44.3678 -66.0948,44.3379 -66.0304,44.3984 -65.942,44.4645 -65.912,44.4855 -65.8661,44.5171 -65.8447,44.5296 -65.759,44.5308 -65.7732,44.4885 -65.855,44.4412 -65.8794,44.4314 -65.945,44.3732 -65.9991,44.3192 -66.0258,44.2878 -66.0966,44.1063 -66.1118,44.0366 -66.0891,44.0177 -66.0569,43.9564 -66.0577,43.8785 -66.0709,43.8562 -66.0749,43.8114 -66.043,43.74 -66.0293,43.7126 -66.0005,43.7146 -65.9415,43.6897 -65.9284,43.6417 -65.9212,43.6424 -65.8826,43.6597 -65.864,43.7266 -65.8486,43.7726 -65.8256,43.7761 -65.7768,43.7369 -65.6808,43.6344 -65.6763,43.614 -65.6783,43.5836 -65.6839,43.557 -65.6895,43.525 -65.6293,43.4515 -65.5816,43.4568 -65.5543,43.4626 -65.521,43.4779 -65.4963,43.5058 -65.4715,43.5168 -65.4056,43.4417 -65.3898,43.4152 -65.3842,43.4566 -65.3598,43.508 -65.2841,43.526 -65.2345,43.6256 -65.1512,43.6297 -64.9755,43.6469 -64.9395,43.6546 -64.8154,43.7509 -64.7904,43.7894 -64.7416,43.8765 -64.7231,43.8983 -64.6859,43.9012 -64.6494,43.8998 -64.5784,43.9384 -64.528,44.0219 -64.5259,44.0831 -64.3543,44.1404 -64.3398,44.1759 -64.3009,44.2034 -64.2657,44.2231 -64.2294,44.2147 -64.1934,44.203 -64.1657,44.2226 -64.1494,44.2439 -64.1768,44.2769 -64.2125,44.2826 -64.2396,44.2787 -64.2561,44.3098 -64.2472,44.3617 -64.215,44.4828 -64.1107,44.526 -64.0801,44.5356 -64.0561,44.5178 -64.0363,44.4987 -64.0344,44.4687 -64.0263,44.4315 -63.9977,44.4173 -63.9198,44.4602 -63.9465,44.5173 -63.9709,44.5357 -63.9603,44.577 -63.9183,44.5971 -63.8189,44.6274 -63.8293,44.6008 -63.8486,44.5684 -63.8543,44.4855 -63.8422,44.4631 -63.8205,44.4466 -63.5456,44.386 -63.4817,44.4117 -63.4586,44.4226 -63.4403,44.4397 -63.4315,44.46 -63.4568,44.538 -63.4692,44.5617 -63.5056,44.6142 -63.549,44.6232 -63.5644,44.6605 -63.5266,44.652 -63.4621,44.6064 -63.4414,44.5889 -63.406,44.5642 -63.3555,44.5415 -63.1943,44.5767 -63.0519,44.6402 -63.0253,44.6815 -62.966,44.6226 -62.9598,44.6255 -62.9277,44.6541 -62.955,44.6894 -62.9702,44.7121 -62.9282,44.7228 -62.8403,44.6832 -62.7628,44.6677 -62.7235,44.6922 -62.7099,44.7289 -62.5534,44.7583 -62.4581,44.771 -62.4339,44.7999 -62.3885,44.8446 -62.3043,44.8573 -62.1987,44.8772 -62.0003,44.9193 -61.9393,44.9339 -61.8113,44.9738 -61.6381,45.0403 -61.5519,45.0691 -61.4575,45.0902 -61.3685,45.094 -61.3049,45.1064 -61.2646,45.1248 -61.282,45.1452 -61.2325,45.1882 -61.1814,45.1948 -61.1362,45.187 -61.0552,45.1615 -61.0309,45.1583 -60.9984,45.166 -60.9653,45.1797 -60.8848,45.2184 -60.881,45.2608 -60.9027,45.2746 -60.9617,45.284 -61.0534,45.2969 -61.1403,45.2928 -61.3744,45.2939 -61.3887,45.3204 -61.3179,45.3582 -61.2853,45.3639 -61.2788,45.3526 -61.2081,45.3829 -61.1464,45.4097 -61.1738,45.4586 -61.23,45.4812 -61.267,45.518 -61.3053,45.5707 -61.3822,45.6288 -61.4099,45.6351 -61.4394,45.6332 -61.4733,45.6236 -61.517,45.5834 -61.5315,45.5585 -61.643,45.5702 -61.7007,45.5861 -61.7975,45.6392 -61.8358,45.789 -61.8117,45.8161 -61.832,45.8317 -61.8861,45.8151 -61.9274,45.7847 -61.9477,45.7688 -62.0053,45.7292 -62.1625,45.6564 -62.3739,45.5608 -62.4161,45.5754 -62.4692,45.6226 -62.5893,45.7121 -62.6353,45.7123 -62.8696,45.7368 -62.9008,45.7436 -62.9979,45.7447 -63.0318,45.7072 -63.1008,45.6823 -63.1932,45.6815 -63.2245,45.6849 -63.2724,45.6944 -63.2833,45.7121 -63.2275,45.7168 -63.1489,45.7488 -63.1899,45.7555 -63.2467,45.746 -63.3401,45.7471 -63.4281,45.7618 -63.3987,45.7686 -63.3506,45.7684 -63.3191,45.806 -63.3678,45.8219 -63.3889,45.8247 -63.4908,45.8224 -63.5105,45.8176 -63.5418,45.8074 -63.556,45.781 -63.5775,45.7645 -63.625,45.7883 -63.7562,45.8786 -63.7714,45.8988 -63.8228,45.9277 -63.9184,45.9532 -63.9524,45.9397 -63.9745,45.9523 -64.0035,45.9691 -63.9799,46.0045 -63.9329,46.005 -63.8984,45.9995 -63.8329,46.0003 -63.7992,46.0074 -63.7124,46.0376 -63.6864,46.0557 -63.7361,46.0927 -63.872,46.1267 -63.9451,46.1297 -64.0263,46.1295 -64.1467,46.1766 -64.3111,46.1803 -64.4128,46.1877 -64.5216,46.3131 -64.5233,46.3397 -64.5232,46.3624 -64.5645,46.4114 -64.5815,46.4479 -64.613,46.585 -64.6166,46.6167 -64.6257,46.635 -64.6522,46.6495 -64.7258,46.6682 -64.7715,46.7212 -64.7848,46.7379 -64.812,46.7925 -64.814,46.819 -64.8095,46.8397 -64.8018,46.8581 -64.7878,46.877 -64.7719,46.8927 -64.7345,46.9163 -64.714,46.9312 -64.7097,47.0277 -64.9242,47.0377 -65.0081,47.0232 -65.1257,46.9998 -65.2728,47.0319 -65.2465,47.0457 -65.17,47.0705 -65.1392,47.0839 -65.0447,47.1382 -64.8169,47.2989 -64.7904,47.3692 -64.7824,47.4068 -64.7777,47.459 -64.7768,47.482 -64.7666,47.5223 -64.71,47.5763 -64.6104,47.6525 -64.5818,47.6703 -64.6232,47.708 -64.7105,47.7536 -64.8912,47.7866 -64.9271,47.7904 -64.9511,47.7896 -65.0735,47.7708 -65.1089,47.7638 -65.1535,47.7494 -65.2386,47.7122 -65.296,47.6814 -65.5373,47.5677 -65.5753,47.5891 -65.6024,47.6787 -65.6233,47.7602 -65.6517,47.798 -65.6701,47.8163 -65.6986,47.8359 -65.7201,47.8477 -65.749,47.8567 -65.7852,47.8657 -65.8119,47.8686 -65.8343,47.8672 -65.8845,47.8674 -65.947,47.8809 -66.1633,47.9446 -66.2252,47.9901 -66.2531,47.9901 -66.29,47.9989 -66.285,48.0017 -66.2843,48.0042 -66.2961,48.0088 -66.2986,48.0145 -66.3044,48.0144 -66.3097,48.0135 -66.3136,48.0094 -66.3341,48.0118 -66.3403,48.0109 -66.341,48.0111 -66.4443,47.9813 -66.4827,47.9678 -66.5144,47.9562 -66.6325,47.9294 -66.6537,47.9252 -66.7376,47.9341 -66.747,47.9414 -66.7744,47.9438 -66.7966,47.9431 -66.8113,47.9412 -66.8449,47.9328 -66.8607,47.9259 -66.8706,47.9184 -66.8825,47.8999 -66.8947,47.8907 -66.898,47.8837 -66.9014,47.8655 -66.8979,47.8601 -66.8809,47.8542 -66.8771,47.8488 -66.8844,47.8429 -66.8914,47.8399 -66.9031,47.8392 -66.9169,47.8439 -66.9245,47.8486 -66.9802,47.8802 -66.9919,47.8811 -66.9984,47.8801 -67.0032,47.8712 -67.0097,47.8686 -67.023,47.867 -67.0388,47.8608 -67.0434,47.8611 -67.0592,47.862 -67.0637,47.8605 -67.0686,47.8439 -67.0738,47.8399 -67.0805,47.8377 -67.0959,47.8418 -67.1027,47.8394 -67.1084,47.8312 -67.1163,47.8282 -67.1444,47.8224 -67.1504,47.8241 -67.159,47.8326 -67.1637,47.8334 -67.1733,47.8306 -67.1821,47.8309 -67.1843,47.8324 -67.1904,47.8367 -67.2057,47.8376 -67.2218,47.8456 -67.2299,47.8455 -67.2251,47.8381 -67.2313,47.8336 -67.2595,47.834 -67.2729,47.8401 -67.2807,47.8411 -67.2828,47.8396 -67.2815,47.837 -67.2711,47.8326 -67.2674,47.8293 -67.2687,47.8209 -67.2719,47.8152 -67.2753,47.8148 -67.2844,47.8181 -67.2858,47.8166 -67.2859,47.8118 -67.2943,47.8048 -67.2901,47.7977 -67.2905,47.7931 -67.2947,47.7911 -67.3034,47.7928 -67.3086,47.791 -67.321,47.7953 -67.3141,47.8012 -67.3167,47.8049 -67.3224,47.8054 -67.3317,47.8151 -67.3441,47.8207 -67.3556,47.8222 -67.4041,47.8399 -67.4456,47.855 -67.4538,47.861 -67.4902,47.8714 -67.5079,47.871 -67.5234,47.8764 -67.5314,47.8817 -67.535,47.8886 -67.5258,47.9145 -67.5256,47.9223 -67.5352,47.9365 -67.5343,47.9387 -67.5315,47.9461 -67.534,47.95 -68.0405,47.95 -68.0493,47.9491 -68.0499,47.9306 -68.052,47.8658 -68.1424,47.8649 -68.3109,47.863 -68.3109,47.8507 -68.3112,47.7653 -68.3132,47.7384 -68.313,47.7252 -68.3113,47.6233 -68.3115,47.5997 -68.3123,47.5014 -68.3367,47.4848 -68.3381,47.4821 -68.3754,47.4597 -68.5019,47.3752 -68.5089,47.3729 -68.6743,47.3166 -68.7078,47.3051 -68.7704,47.2912 -68.7734,47.2892 -68.7832,47.2885 -68.8411,47.2767 -68.9568,47.2774 -68.9563,47.248 3187,-4.0,Canada -67.7414,53.9654 -67.728,53.9644 -67.7066,53.9584 -67.6872,53.9463 -67.6442,53.9327 -67.6371,53.932 -67.6255,53.9281 -67.6098,53.9167 -67.5984,53.8944 -67.5857,53.8844 -67.5814,53.8842 -67.5557,53.8778 -67.5458,53.8701 -67.5406,53.8583 -67.5392,53.848 -67.5426,53.843 -67.5404,53.8353 -67.5327,53.8246 -67.5178,53.8151 -67.4992,53.8108 -67.4866,53.7971 -67.4893,53.7923 -67.488,53.7874 -67.4792,53.79 -67.4634,53.793 -67.4605,53.7874 -67.4824,53.7443 -67.4874,53.7419 -67.5176,53.7371 -67.5238,53.7328 -67.529,53.7226 -67.5279,53.7142 -67.5225,53.7099 -67.5128,53.7055 -67.4938,53.7032 -67.4607,53.7046 -67.4497,53.7036 -67.4498,53.6951 -67.4488,53.6853 -67.4392,53.6723 -67.4199,53.6614 -67.3976,53.6625 -67.3875,53.6668 -67.3876,53.6851 -67.3757,53.6836 -67.3669,53.6708 -67.3627,53.6552 -67.3525,53.639 -67.3421,53.6346 -67.3363,53.6276 -67.339,53.6231 -67.3556,53.6232 -67.3486,53.6094 -67.3339,53.5936 -67.3254,53.5801 -67.3184,53.5642 -67.3129,53.5567 -67.2978,53.5498 -67.275,53.5448 -67.2692,53.5405 -67.2642,53.5245 -67.2588,53.5152 -67.2453,53.5039 -67.2353,53.4994 -67.2223,53.5027 -67.2,53.5054 -67.1669,53.4874 -67.1593,53.4853 -67.1499,53.487 -67.1394,53.4954 -67.1301,53.4999 -67.1148,53.5006 -67.1078,53.498 -67.1013,53.4915 -67.0918,53.4854 -67.0664,53.4804 -67.0533,53.481 -67.0314,53.4813 -67.0021,53.4858 -66.9929,53.4838 -66.9666,53.4733 -66.9503,53.4584 -66.9328,53.4452 -66.9301,53.4217 -66.9254,53.4186 -66.9176,53.4181 -66.907,53.4192 -66.8933,53.4227 -66.8797,53.4239 -66.872,53.4239 -66.867,53.4217 -66.8632,53.3927 -66.8491,53.377 -66.8386,53.3762 -66.8198,53.3784 -66.8177,53.3754 -66.8287,53.3571 -66.8361,53.3505 -66.8499,53.3435 -66.8709,53.3402 -66.9006,53.3126 -66.9088,53.3135 -66.9251,53.3241 -66.9305,53.3219 -66.9322,53.3106 -66.9388,53.2944 -66.948,53.2899 -66.9558,53.2837 -66.9531,53.2812 -66.9429,53.2771 -66.9242,53.2752 -66.8995,53.2695 -66.8919,53.2629 -66.8898,53.252 -66.9007,53.2293 -66.9113,53.2023 -66.906,53.1689 -66.9007,53.1384 -66.9046,53.129 -66.9143,53.1232 -66.9298,53.1221 -66.9378,53.1173 -66.9398,53.1128 -66.9369,53.1045 -66.9174,53.0803 -66.917,53.0756 -66.9275,53.0621 -66.9261,53.0558 -66.9451,53.0319 -66.9575,53.0232 -66.9663,53.0236 -66.9878,53.0272 -67.0074,53.0373 -67.0093,53.0445 -66.9957,53.0781 -66.9983,53.0851 -67.0059,53.0849 -67.024,53.0783 -67.0535,53.063 -67.0623,53.065 -67.0705,53.0737 -67.0875,53.0792 -67.0949,53.0852 -67.0891,53.0912 -67.0899,53.0939 -67.1376,53.0982 -67.1607,53.0971 -67.1709,53.1013 -67.1872,53.1166 -67.2024,53.1251 -67.2093,53.1277 -67.2204,53.1208 -67.223,53.0998 -67.2299,53.0909 -67.252,53.0765 -67.2781,53.0618 -67.2839,53.0622 -67.2961,53.08 -67.302,53.0833 -67.3156,53.0848 -67.3137,53.076 -67.315,53.0674 -67.3216,53.0594 -67.3195,53.0359 -67.3222,53.0245 -67.3181,53.0116 -67.3038,52.9856 -67.297,52.9723 -67.2978,52.961 -67.2941,52.9529 -67.2813,52.9425 -67.2656,52.9372 -67.2477,52.9394 -67.2344,52.9441 -67.2203,52.9462 -67.1982,52.9417 -67.1827,52.9424 -67.1787,52.9388 -67.1843,52.9313 -67.203,52.9199 -67.2242,52.9147 -67.2443,52.9146 -67.2654,52.9131 -67.2744,52.9082 -67.2838,52.9007 -67.2853,52.8869 -67.2817,52.8678 -67.276,52.8539 -67.2683,52.8443 -67.2593,52.8405 -67.234,52.8434 -67.2243,52.8378 -67.2182,52.8283 -67.2093,52.8251 -67.1793,52.809 -67.1602,52.8037 -67.1417,52.7925 -67.1239,52.7834 -67.1103,52.7838 -67.1032,52.7869 -67.0917,52.7977 -67.0773,52.8096 -67.0437,52.8267 -67.0347,52.8277 -67.03,52.8314 -67.034,52.8397 -67.0334,52.8452 -67.0245,52.8444 -67.0033,52.833 -66.9946,52.8188 -66.996,52.8132 -66.994,52.8053 -66.9917,52.7869 -66.9927,52.7622 -66.9984,52.7484 -66.9837,52.7272 -66.9708,52.713 -66.9606,52.7083 -66.9279,52.7146 -66.9112,52.719 -66.9022,52.7193 -66.8928,52.7148 -66.8853,52.7084 -66.8627,52.6828 -66.8385,52.6489 -66.8255,52.6381 -66.8147,52.6342 -66.8066,52.633 -66.7984,52.6365 -66.7964,52.6455 -66.7993,52.6541 -66.8083,52.6685 -66.8072,52.6736 -66.7983,52.6723 -66.7931,52.6726 -66.7904,52.675 -66.792,52.6848 -66.79,52.6989 -66.7837,52.705 -66.7718,52.7034 -66.7635,52.6942 -66.7415,52.6615 -66.7343,52.6468 -66.7217,52.6312 -66.7116,52.6244 -66.7018,52.6247 -66.6987,52.6267 -66.7012,52.633 -66.7032,52.6435 -66.6912,52.6643 -66.6909,52.6866 -66.6952,52.7075 -66.7141,52.7491 -66.7086,52.7501 -66.6879,52.7386 -66.6673,52.7306 -66.6421,52.7141 -66.635,52.7147 -66.6189,52.7356 -66.6075,52.7431 -66.6021,52.7446 -66.5858,52.7367 -66.5828,52.7399 -66.5919,52.7575 -66.5946,52.7675 -66.5949,52.7823 -66.5869,52.8193 -66.5883,52.8362 -66.5851,52.8455 -66.5715,52.8508 -66.5772,52.881 -66.5661,52.9028 -66.5585,52.9101 -66.5507,52.9139 -66.5257,52.902 -66.5109,52.8973 -66.4937,52.8966 -66.4755,52.9015 -66.463,52.9095 -66.4578,52.9158 -66.4511,52.9141 -66.4373,52.9081 -66.4298,52.9088 -66.4222,52.914 -66.427,52.9461 -66.429,52.9665 -66.4244,52.9747 -66.4142,52.9757 -66.3671,52.9784 -66.3439,52.976 -66.3102,52.969 -66.2882,52.9589 -66.2587,52.9206 -66.2552,52.9121 -66.2436,52.8849 -66.2191,52.8616 -66.2089,52.8487 -66.2046,52.8399 -66.2065,52.8295 -66.214,52.8133 -66.2266,52.8 -66.2363,52.797 -66.2406,52.7977 -66.258,52.805 -66.2751,52.811 -66.315,52.817 -66.3392,52.8166 -66.3362,52.7982 -66.32,52.7754 -66.3092,52.764 -66.2974,52.7557 -66.2796,52.7425 -66.2712,52.731 -66.2578,52.7195 -66.2579,52.7046 -66.2544,52.6878 -66.2583,52.6755 -66.2672,52.661 -66.2653,52.645 -66.2562,52.629 -66.2379,52.6013 -66.2151,52.5816 -66.2138,52.5698 -66.2194,52.5589 -66.2337,52.5483 -66.2409,52.5484 -66.2624,52.5647 -66.2911,52.5912 -66.3175,52.6171 -66.3252,52.6212 -66.3369,52.6211 -66.3479,52.6109 -66.3653,52.5852 -66.3676,52.5775 -66.3633,52.5662 -66.3576,52.5606 -66.3273,52.5282 -66.3091,52.504 -66.3055,52.4895 -66.312,52.4795 -66.322,52.4732 -66.3195,52.4695 -66.3014,52.4583 -66.295,52.4506 -66.2927,52.4294 -66.2992,52.4245 -66.3051,52.4239 -66.3172,52.4295 -66.3214,52.4302 -66.3229,52.4276 -66.3233,52.4255 -66.3188,52.4174 -66.2969,52.411 -66.2921,52.4069 -66.2891,52.3938 -66.2948,52.3651 -66.2928,52.359 -66.2764,52.3491 -66.2726,52.336 -66.2723,52.313 -66.2837,52.3085 -66.3049,52.3104 -66.3139,52.3177 -66.3251,52.3226 -66.335,52.3294 -66.3491,52.333 -66.3575,52.3319 -66.3673,52.3217 -66.3715,52.3121 -66.378,52.3049 -66.3916,52.3002 -66.3978,52.2967 -66.413,52.2828 -66.4151,52.2767 -66.4136,52.269 -66.4053,52.2584 -66.401,52.2568 -66.3905,52.2489 -66.3832,52.2371 -66.3693,52.2264 -66.3654,52.2179 -66.366,52.2142 -66.3724,52.212 -66.3891,52.2159 -66.392,52.205 -66.3867,52.1915 -66.3796,52.1841 -66.3624,52.1738 -66.3555,52.1751 -66.3406,52.186 -66.3261,52.1709 -66.3187,52.1583 -66.2975,52.1376 -66.2957,52.1278 -66.2994,52.1169 -66.2969,52.1101 -66.2849,52.1046 -66.2702,52.1056 -66.2561,52.101 -66.245,52.0915 -66.2393,52.0905 -66.2297,52.091 -66.2146,52.1035 -66.2116,52.114 -66.2167,52.1501 -66.235,52.1767 -66.2395,52.195 -66.2377,52.2062 -66.245,52.2285 -66.2426,52.2433 -66.2374,52.2463 -66.2237,52.2397 -66.223,52.256 -66.2094,52.2677 -66.2021,52.2693 -66.1865,52.2595 -66.1723,52.2252 -66.1622,52.2198 -66.1554,52.2192 -66.1492,52.2124 -66.1394,52.1904 -66.1157,52.1621 -66.1075,52.1621 -66.0934,52.1736 -66.0826,52.1794 -66.0742,52.1805 -66.0601,52.173 -66.0501,52.1655 -66.0318,52.1414 -66.0135,52.1222 -66.0101,52.1157 -66.0108,52.1017 -66.0144,52.0818 -66.024,52.0565 -66.0224,52.0504 -66.0158,52.0484 -65.9969,52.0487 -65.9733,52.0426 -65.9559,52.0345 -65.9377,52.021 -65.9251,52.0161 -65.9154,52.0157 -65.9113,52.0132 -65.9064,52.0127 -65.9039,52.0165 -65.9011,52.0403 -65.8886,52.0521 -65.881,52.0544 -65.8567,52.042 -65.8566,52.0411 -65.8419,52.0373 -65.8341,52.037 -65.8232,52.0453 -65.8202,52.0503 -65.81,52.0634 -65.8024,52.0683 -65.7863,52.0733 -65.7686,52.0714 -65.7538,52.0751 -65.7418,52.0722 -65.717,52.0585 -65.7002,52.0587 -65.689,52.0551 -65.675,52.0562 -65.6609,52.0427 -65.6568,52.0422 -65.6479,52.0488 -65.6438,52.0515 -65.6331,52.0571 -65.6204,52.0628 -65.6146,52.0649 -65.6079,52.0679 -65.6039,52.0684 -65.5995,52.0663 -65.5958,52.0637 -65.5846,52.0427 -65.577,52.0178 -65.5809,52.0043 -65.595,51.9924 -65.5992,51.9725 -65.5979,51.9474 -65.5959,51.9372 -65.5902,51.9365 -65.5806,51.9429 -65.5772,51.9543 -65.5646,51.9785 -65.5494,51.993 -65.539,51.9962 -65.5208,51.9902 -65.5112,51.9911 -65.4889,51.9974 -65.4613,52.0327 -65.4504,52.0407 -65.4383,52.0543 -65.4287,52.0582 -65.4167,52.0544 -65.4116,52.043 -65.4149,52.0123 -65.4142,51.9975 -65.4103,51.9871 -65.3983,51.9703 -65.3837,51.9579 -65.3739,51.9533 -65.334,51.9271 -65.3295,51.9296 -65.3186,51.9416 -65.3099,51.9427 -65.3007,51.9378 -65.2941,51.9292 -65.2923,51.9169 -65.2857,51.908 -65.2853,51.9021 -65.2821,51.8846 -65.2891,51.8652 -65.3135,51.846 -65.3194,51.8336 -65.3135,51.824 -65.2883,51.8025 -65.2816,51.7863 -65.2745,51.7793 -65.2677,51.7819 -65.2588,51.791 -65.259,51.802 -65.2548,51.8161 -65.2504,51.8228 -65.2395,51.8244 -65.2353,51.8241 -65.1932,51.8249 -65.1914,51.822 -65.181,51.8123 -65.1799,51.8062 -65.1838,51.7953 -65.1831,51.7829 -65.177,51.7777 -65.167,51.7749 -65.151,51.7733 -65.1291,51.7732 -65.1176,51.7725 -65.1051,51.757 -65.1037,51.742 -65.1119,51.7267 -65.1131,51.7209 -65.1112,51.7169 -65.1061,51.7146 -65.0901,51.7135 -65.0755,51.7086 -65.0587,51.7064 -65.0387,51.7058 -65.0238,51.7085 -65.007,51.7166 -64.9851,51.7194 -64.9769,51.7181 -64.963,51.713 -64.9373,51.7006 -64.9313,51.6997 -64.93,51.699 -64.9082,51.6878 -64.8933,51.677 -64.8849,51.6739 -64.8685,51.6723 -64.8606,51.6777 -64.8577,51.689 -64.8572,51.7009 -64.8593,51.71 -64.8752,51.7137 -64.8789,51.7174 -64.8717,51.7251 -64.8656,51.7269 -64.8447,51.7283 -64.8093,51.7288 -64.7752,51.7279 -64.7469,51.7291 -64.7378,51.7274 -64.7288,51.719 -64.7205,51.7173 -64.7081,51.7224 -64.6996,51.7223 -64.6838,51.7195 -64.6459,51.7105 -64.6359,51.7061 -64.6314,51.7023 -64.6243,51.6866 -64.6077,51.6545 -64.5773,51.6461 -64.5605,51.6364 -64.5543,51.6266 -64.553,51.6138 -64.5505,51.5961 -64.5456,51.5807 -64.5419,51.5772 -64.5302,51.5811 -64.5189,51.5792 -64.5082,51.5709 -64.4998,51.5534 -64.4937,51.5479 -64.489,51.5453 -64.4689,51.5463 -64.4463,51.5557 -64.434,51.5619 -64.4239,51.5636 -64.4164,51.5694 -64.4089,51.5715 -64.3902,51.5798 -64.3847,51.588 -64.3809,51.6126 -64.3714,51.6215 -64.3542,51.6262 -64.3332,51.6185 -64.3217,51.6171 -64.3143,51.6172 -64.3032,51.6206 -64.2938,51.6221 -64.2842,51.6263 -64.278,51.6304 -64.2689,51.6395 -64.2492,51.6601 -64.2277,51.6865 -64.2209,51.7005 -64.2248,51.7065 -64.2347,51.7092 -64.2418,51.7142 -64.2452,51.7191 -64.2475,51.7389 -64.2452,51.7498 -64.2625,51.7686 -64.2839,51.7951 -64.2913,51.8145 -64.2921,51.8231 -64.2861,51.8369 -64.2798,51.8483 -64.2807,51.862 -64.285,51.8717 -64.2877,51.8842 -64.2837,51.8926 -64.2831,51.8983 -64.2875,51.913 -64.2883,51.929 -64.2918,51.9422 -64.299,51.9552 -64.2988,51.9605 -64.2927,51.9667 -64.2844,51.969 -64.2744,51.9696 -64.2602,51.9646 -64.2318,51.9471 -64.1888,51.9276 -64.1806,51.927 -64.1759,51.9281 -64.1784,51.9355 -64.192,51.9577 -64.208,51.9738 -64.2131,51.992 -64.2228,52.0042 -64.2293,52.0143 -64.2319,52.0252 -64.2286,52.0301 -64.2187,52.0348 -64.1974,52.0376 -64.1947,52.0409 -64.1954,52.0482 -64.1921,52.057 -64.1907,52.0694 -64.1882,52.0858 -64.1781,52.0971 -64.1663,52.098 -64.158,52.0933 -64.155,52.0926 -64.1478,52.0918 -64.1351,52.0877 -64.1166,52.076 -64.1131,52.0786 -64.1117,52.0922 -64.1195,52.107 -64.1335,52.1257 -64.1428,52.146 -64.1626,52.1741 -64.1683,52.187 -64.1662,52.1964 -64.1669,52.2033 -64.1812,52.2199 -64.1822,52.2272 -64.1798,52.2328 -64.1656,52.2413 -64.156,52.2417 -64.1542,52.2463 -64.149,52.2504 -64.1256,52.2567 -64.1145,52.261 -64.1108,52.2659 -64.118,52.2863 -64.1157,52.2907 -64.0976,52.2925 -64.0912,52.308 -64.0801,52.3212 -64.0686,52.3301 -64.0545,52.348 -64.0548,52.3633 -64.0655,52.3734 -64.0745,52.3976 -64.0811,52.4368 -64.0893,52.46 -64.0962,52.4774 -64.1071,52.4935 -64.1272,52.5118 -64.1685,52.5356 -64.169,52.541 -64.1635,52.5419 -64.1554,52.5404 -64.1427,52.5408 -64.1417,52.5502 -64.1334,52.5542 -64.1237,52.5547 -64.105,52.5474 -64.1026,52.55 -64.1039,52.5598 -64.1016,52.5633 -64.1019,52.5827 -64.0969,52.593 -64.0972,52.6003 -64.1029,52.6209 -64.1027,52.6271 -64.0914,52.6353 -64.0824,52.6354 -64.0729,52.6389 -64.0684,52.6425 -64.0707,52.6515 -64.0743,52.6661 -64.0798,52.6762 -64.079,52.6794 -64.069,52.6862 -64.0583,52.6881 -64.0486,52.6852 -64.0352,52.6827 -64.0264,52.6862 -64.0072,52.6866 -63.9922,52.6828 -63.9827,52.6822 -63.9721,52.6903 -63.9606,52.6919 -63.9459,52.6887 -63.9386,52.683 -63.9152,52.6785 -63.8941,52.6787 -63.8801,52.6815 -63.866,52.6888 -63.8517,52.7023 -63.842,52.7072 -63.8212,52.7111 -63.8151,52.719 -63.7999,52.7259 -63.7897,52.7262 -63.7542,52.7175 -63.7394,52.7164 -63.7145,52.7201 -63.6998,52.7249 -63.6999,52.7259 -63.6758,52.7273 -63.6745,52.7383 -63.6684,52.7424 -63.6595,52.7525 -63.6445,52.7632 -63.6207,52.7679 -63.599,52.7697 -63.5865,52.7739 -63.5875,52.786 -63.6006,52.8035 -63.598,52.8077 -63.5835,52.8067 -63.5608,52.7971 -63.5582,52.8027 -63.5599,52.8232 -63.5546,52.8316 -63.5478,52.8323 -63.5439,52.8315 -63.5408,52.811 -63.5275,52.8059 -63.5173,52.7972 -63.5171,52.7899 -63.5259,52.7812 -63.5294,52.7596 -63.527,52.7489 -63.5504,52.7391 -63.5509,52.7272 -63.5455,52.7205 -63.5314,52.7195 -63.495,52.7082 -63.4825,52.6933 -63.4671,52.6846 -63.4523,52.6781 -63.441,52.6782 -63.4185,52.6752 -63.3995,52.673 -63.3996,52.6739 -63.3816,52.6653 -63.3522,52.6417 -63.3319,52.6372 -63.3241,52.6328 -63.3157,52.6166 -63.3186,52.6108 -63.3273,52.6064 -63.3434,52.6099 -63.3616,52.597 -63.382,52.5985 -63.4109,52.5974 -63.4245,52.5984 -63.4399,52.598 -63.4486,52.5986 -63.4645,52.5991 -63.538,52.5967 -63.5379,52.5958 -63.5821,52.5888 -63.6102,52.587 -63.6388,52.5831 -63.6903,52.5827 -63.7454,52.5757 -63.7545,52.5722 -63.7782,52.5717 -63.7866,52.5735 -63.794,52.5728 -63.8035,52.5688 -63.8225,52.5625 -63.8481,52.55 -63.8672,52.5494 -63.9038,52.5347 -63.9156,52.532 -63.9453,52.5191 -63.9659,52.5143 -63.9739,52.507 -63.9751,52.5001 -63.98,52.4841 -63.9972,52.4662 -64.0035,52.4572 -64.0055,52.4505 -64.0141,52.4468 -64.0211,52.4283 -64.0218,52.4113 -64.0074,52.3937 -63.9915,52.383 -63.9632,52.3687 -63.9579,52.3643 -63.9518,52.3503 -63.9589,52.3425 -63.9586,52.3391 -63.937,52.3148 -63.9298,52.3135 -63.9114,52.3091 -63.898,52.3095 -63.8827,52.3015 -63.8415,52.2917 -63.8037,52.2739 -63.794,52.2701 -63.7847,52.2699 -63.7737,52.2726 -63.7616,52.2707 -63.7549,52.275 -63.7609,52.2805 -63.7594,52.2849 -63.7397,52.281 -63.707,52.279 -63.6832,52.2667 -63.6733,52.2641 -63.6724,52.2584 -63.6787,52.2536 -63.6895,52.253 -63.7153,52.2577 -63.7372,52.2566 -63.7506,52.2598 -63.7579,52.258 -63.7569,52.2548 -63.7407,52.2489 -63.7257,52.248 -63.7089,52.2394 -63.7028,52.2336 -63.7031,52.2286 -63.712,52.2237 -63.6971,52.2194 -63.6832,52.2088 -63.682,52.2032 -63.6889,52.1968 -63.6874,52.1881 -63.6784,52.1827 -63.6752,52.1759 -63.6544,52.1544 -63.6468,52.1299 -63.636,52.116 -63.623,52.0803 -63.6337,52.0617 -63.6338,52.0353 -63.6225,52.0387 -63.6161,52.0377 -63.6026,52.0269 -63.5991,52.0158 -63.5803,51.9949 -63.5812,51.9914 -63.6024,51.9919 -63.6158,52.0016 -63.6289,51.9987 -63.6473,51.9972 -63.6654,52.0044 -63.6963,52.0149 -63.6963,52.0139 -63.7083,52.02 -63.7185,52.0226 -63.7401,52.0357 -63.7523,52.0351 -63.7636,52.0324 -63.7711,52.0209 -63.7668,51.9913 -63.7623,51.9823 -63.7463,51.9819 -63.7412,51.9789 -63.7348,51.9695 -63.7342,51.9581 -63.7448,51.9426 -63.3199,50.1879 -63.2764,50.1789 -63.1371,50.1766 -63.0633,50.1994 -63.017,50.2333 -62.6524,50.2266 -62.4778,50.2166 -62.3464,50.2034 -62.3262,50.2222 -62.3066,50.2354 -62.2288,50.2245 -62.1751,50.2017 -62.1085,50.1765 -61.9054,50.1662 -61.8769,50.1762 -61.8095,50.1759 -61.7637,50.1676 -61.7047,50.114 -61.6682,50.0951 -61.6465,50.0865 -61.5209,50.1116 -61.4905,50.1275 -61.4869,50.1055 -61.5279,50.0897 -61.5785,50.0791 -61.6096,50.0668 -61.6491,50.0484 -61.6281,50.0342 -61.558,50.0523 -61.491,50.0748 -61.4131,50.0947 -61.3351,50.1137 -61.1972,50.1412 -60.96,50.1575 -60.7468,50.1572 -60.6189,50.165 -60.583,50.1622 -60.4965,50.1505 -60.4334,50.1742 -60.405,50.1901 -60.3678,50.1931 -60.3132,50.1936 -60.2689,50.1928 -60.2334,50.1868 -60.2043,50.1864 -60.1461,50.2101 -60.0934,50.2216 -60.0569,50.216 -60.0236,50.1753 -59.9144,50.1909 -59.8149,50.2331 -59.77,50.2525 -59.7378,50.2655 -59.7323,50.2881 -59.7585,50.2683 -59.7887,50.3133 -59.7224,50.3769 -59.6879,50.3806 -59.6429,50.3867 -59.4998,50.4199 -59.4286,50.4945 -59.3665,50.5612 -59.3067,50.5987 -59.1387,50.6796 -59.0961,50.6838 -59.0656,50.7126 -59.0285,50.7448 -59.0042,50.7485 -58.9997,50.7237 -58.9749,50.6987 -58.9515,50.6929 -58.9227,50.6927 -58.8571,50.7725 -58.8681,50.9393 -58.9031,50.9472 -58.8307,50.9915 -58.6948,51.029 -58.6365,51.0414 -58.5329,51.0913 -58.5017,51.1255 -58.538,51.1353 -58.5821,51.1639 -58.5882,51.1866 -58.5335,51.2172 -58.3173,51.2363 -58.2344,51.213 -58.2114,51.2093 -58.1214,51.2125 -57.9246,51.2513 -57.8969,51.2602 -57.8813,51.2739 -57.8589,51.2925 -57.7974,51.3313 -57.6498,51.4119 -57.6052,51.4033 -57.5956,51.3735 -57.5052,51.3694 -57.3586,51.39 -57.3323,51.4211 -57.1747,51.4441 -57.1544,51.4426 -57.0535,51.3645 -57.0157,51.3533 -56.9894,51.3548 -56.917,51.36 -56.8632,51.3651 -56.72,51.44 -56.676,51.4891 -56.6014,51.5326 -56.3808,51.6496 -56.2584,51.6998 -56.1477,51.7235 -56.1186,51.7313 -55.9352,51.8416 -55.8089,51.8905 -55.6114,52.025 -55.5984,52.049 -55.589,52.1477 -55.6191,52.1875 -55.769,52.2647 -55.8676,52.2893 -56.0859,52.3588 -56.1002,52.3762 -55.979,52.3465 -55.8397,52.3085 -55.7363,52.2821 -55.6941,52.2732 -55.5605,52.2957 -55.5571,52.3718 -55.588,52.3806 -55.6172,52.3807 -55.6439,52.3811 -55.6782,52.3884 -55.6758,52.393 -55.6465,52.4118 -55.6617,52.4339 -55.7407,52.4513 -55.8996,52.4454 -56.0638,52.465 -56.1077,52.4642 -56.1814,52.4721 -56.3582,52.5063 -56.3974,52.533 -56.3661,52.5318 -56.2661,52.5193 -56.2363,52.5142 -56.2077,52.5026 -56.1631,52.4829 -56.1037,52.4898 -56.0745,52.4945 -55.9497,52.524 -55.8908,52.5486 -55.9712,52.583 -56.0221,52.5839 -55.9851,52.5948 -55.951,52.594 -55.8692,52.5744 -55.8503,52.5672 -55.8043,52.548 -55.7035,52.5405 -55.6742,52.5502 -55.6507,52.5809 -55.6874,52.6187 -55.7853,52.6219 -55.8285,52.6164 -55.8525,52.6152 -55.873,52.6191 -55.9708,52.7047 -55.8908,52.747 -55.7892,52.7629 -55.7514,52.7658 -55.7159,52.7695 -55.7149,52.8157 -55.7442,52.8605 -55.7972,52.9062 -55.8637,52.934 -55.95,52.9441 -56.0737,52.9686 -55.9655,52.9766 -55.939,52.9733 -55.9088,52.9641 -55.8737,52.96 -55.8483,52.9596 -55.8286,52.9642 -55.7894,53.012 -55.7426,53.0362 -55.6609,53.0766 -55.6551,53.1876 -55.7165,53.2229 -55.717,53.2782 -55.79,53.3207 -55.8116,53.3302 -55.8405,53.3335 -55.8649,53.3292 -55.8841,53.3148 -55.9034,53.306 -55.9324,53.3061 -55.9126,53.3258 -55.8777,53.3383 -55.874,53.3452 -55.9409,53.3957 -55.9857,53.4211 -56.0232,53.4294 -56.0536,53.4377 -56.1673,53.4853 -56.1165,53.4971 -56.0537,53.4905 -55.9633,53.4747 -55.9193,53.446 -55.8932,53.4848 -55.9371,53.5132 -55.9818,53.5209 -56.0635,53.529 -56.1211,53.5171 -56.2278,53.5227 -56.248,53.5258 -56.5292,53.5865 -56.5778,53.6137 -56.451,53.6472 -56.4206,53.6531 -56.3894,53.6552 -56.3472,53.6536 -56.323,53.6593 -56.3361,53.6982 -56.3551,53.715 -56.3809,53.7195 -56.5096,53.6965 -56.5329,53.6787 -56.5674,53.6579 -56.7036,53.6573 -56.7669,53.66 -56.8277,53.6668 -56.8725,53.6636 -56.9207,53.6487 -56.9674,53.6089 -57.0174,53.559 -57.0364,53.5313 -57.1491,53.4341 -57.1914,53.4137 -57.1895,53.3763 -57.2076,53.3716 -57.2443,53.3849 -57.2293,53.4064 -57.2114,53.4383 -57.2087,53.466 -57.2208,53.5143 -57.2793,53.544 -57.3568,53.5556 -57.392,53.5487 -57.4407,53.5361 -57.393,53.5679 -57.3347,53.5848 -57.2929,53.5958 -57.2201,53.6136 -57.208,53.6164 -57.0569,53.6733 -56.9858,53.7606 -57.0207,53.7757 -57.1259,53.8553 -57.2276,53.9765 -57.2733,54.041 -57.2897,54.0782 -57.332,54.119 -57.3722,54.1304 -57.5624,54.136 -57.7647,54.1336 -57.8382,54.1483 -57.8701,54.1563 -57.901,54.1691 -57.9336,54.1722 -58.0803,54.1734 -58.1058,54.1706 -58.2576,54.1429 -58.2783,54.1325 -58.3193,54.0771 -58.1472,54.0377 -58.1191,54.0467 -58.0913,54.0591 -58.0626,54.0654 -57.9795,54.0612 -57.7642,54.0383 -57.7005,54.0119 -57.8485,54.0072 -57.9319,54.0166 -58.0566,54.0071 -58.0898,54.0124 -58.1138,54.0099 -58.2289,53.9833 -58.4529,53.9459 -58.7726,53.8416 -58.9452,53.7521 -58.9622,53.7372 -58.9461,53.688 -58.9213,53.6841 -58.9242,53.6539 -58.9794,53.6191 -59.0645,53.6087 -59.2319,53.5914 -59.3805,53.5101 -59.4263,53.4888 -59.4632,53.4782 -59.5157,53.466 -59.6499,53.4532 -59.6702,53.4541 -59.7119,53.4675 -59.7584,53.4739 -59.7997,53.4598 -59.7603,53.4336 -59.7256,53.4309 -59.6924,53.4199 -59.716,53.4092 -59.744,53.4142 -59.8338,53.3634 -59.8558,53.3448 -59.9268,53.2928 -60.0357,53.2217 -60.1914,53.202 -60.2177,53.2022 -60.3094,53.2051 -60.2914,53.2148 -60.269,53.2156 -60.2357,53.2184 -60.1912,53.2259 -60.1044,53.2519 -60.0868,53.2827 -60.1251,53.2824 -60.2028,53.2741 -60.2948,53.2693 -60.3106,53.2892 -60.1038,53.3712 -60.0396,53.3914 -60.0164,53.3945 -60.0051,53.438 -60.1546,53.4876 -60.1798,53.4962 -60.1996,53.5054 -60.2315,53.5245 -60.2581,53.5428 -60.3394,53.5795 -60.4123,53.607 -60.4372,53.6157 -60.5495,53.6351 -60.652,53.6507 -60.7342,53.6588 -60.7797,53.6502 -60.7866,53.6887 -60.7564,53.73 -60.6638,53.7008 -60.6047,53.6822 -60.5702,53.6774 -60.5483,53.6747 -60.4602,53.6557 -60.4074,53.6444 -60.2832,53.5988 -60.2586,53.5747 -60.0372,53.466 -59.97,53.4982 -59.9885,53.5212 -60.0118,53.5396 -59.9836,53.6996 -59.8899,53.7169 -59.7785,53.7659 -59.7537,53.7766 -59.7268,53.7799 -59.7039,53.7809 -59.6564,53.7757 -59.6292,53.7724 -59.6087,53.7679 -59.531,53.7576 -59.4975,53.7562 -59.4368,53.7588 -59.3733,53.7664 -59.3381,53.7747 -59.295,53.7925 -59.2683,53.8068 -59.2404,53.8227 -59.103,53.8644 -59.0746,53.872 -59.0241,53.8824 -59.017,53.8834 -58.9739,53.8844 -58.9496,53.8852 -58.9139,53.8912 -58.8829,53.9032 -58.8603,53.9177 -58.8246,53.9486 -58.8497,53.9519 -58.9085,53.9548 -58.9426,53.9612 -58.9041,53.9694 -58.8393,53.9784 -58.7819,53.9817 -58.7377,53.9841 -58.7094,53.9801 -58.6759,53.9732 -58.6563,53.969 -58.6153,53.9643 -58.5804,53.9661 -58.5574,53.9685 -58.5346,53.9721 -58.5098,53.9797 -58.352,54.0911 -58.2772,54.1635 -58.3225,54.161 -58.6049,54.0611 -58.779,54.0317 -58.9509,53.9942 -59.1671,53.9599 -59.405,53.9333 -59.4822,53.9798 -59.4351,53.9951 -59.4107,53.9962 -59.3712,53.9884 -59.3355,53.9839 -59.2769,53.9838 -59.1806,54.0012 -59.1494,54.0088 -59.0917,54.0241 -59.0155,54.0407 -58.8232,54.0743 -58.7616,54.0815 -58.7398,54.0824 -58.6996,54.0766 -58.6657,54.0772 -58.6264,54.0822 -58.5945,54.0885 -58.5387,54.1042 -58.5085,54.1188 -58.4747,54.1387 -58.3557,54.1739 -58.3246,54.1787 -58.2853,54.1779 -58.2463,54.181 -58.1427,54.1899 -58.0018,54.2633 -58.0995,54.2529 -58.1233,54.2481 -58.1574,54.2476 -58.0809,54.291 -58.0524,54.3009 -57.9526,54.314 -57.8126,54.3218 -57.7786,54.3232 -57.6927,54.3252 -57.6457,54.3174 -57.6184,54.3135 -57.5982,54.3116 -57.5725,54.3124 -57.5283,54.3192 -57.4263,54.3534 -57.3256,54.392 -57.3494,54.4026 -57.3827,54.4095 -57.4906,54.4035 -57.5611,54.3994 -57.6002,54.4015 -57.5755,54.4161 -57.5207,54.4198 -57.4937,54.4204 -57.4221,54.4202 -57.3917,54.4191 -57.3301,54.4239 -57.2931,54.4368 -57.2523,54.511 -57.3516,54.585 -57.4481,54.5964 -57.4743,54.579 -57.5286,54.5662 -57.5533,54.5643 -57.5871,54.5684 -57.6088,54.5762 -57.6895,54.6165 -57.7459,54.6666 -57.812,54.6777 -57.8419,54.6764 -57.9026,54.6693 -58.011,54.6733 -58.0464,54.6755 -58.0794,54.6845 -58.0935,54.72 -58.144,54.7304 -58.2286,54.7282 -58.2881,54.7238 -58.3439,54.7096 -58.4609,54.7119 -58.5897,54.754 -58.7293,54.7691 -58.8035,54.7805 -58.9131,54.8276 -58.8638,54.8531 -58.8001,54.8842 -58.846,54.9213 -58.8714,54.9311 -58.9025,54.9606 -58.879,54.9952 -58.8653,55.0135 -58.856,55.0313 -58.8559,55.0646 -58.9322,55.0909 -59.0318,55.0557 -59.1391,55.0041 -59.1426,54.9775 -59.1672,54.9606 -59.2815,54.9169 -59.267,54.9466 -59.1451,55.0423 -59.1054,55.0658 -59.0711,55.0749 -59.0524,55.0902 -59.0237,55.1285 -59.0337,55.1546 -59.0546,55.1688 -59.1922,55.1049 -59.3094,54.9918 -59.5159,54.8842 -59.5721,54.8555 -59.5941,54.8476 -59.6276,54.843 -59.6526,54.8331 -59.6696,54.8054 -59.6856,54.7881 -59.6913,54.7664 -59.6897,54.7236 -59.7836,54.6801 -59.8124,54.677 -59.8387,54.6864 -59.7219,54.7868 -59.7,54.8231 -59.6142,54.8915 -59.5083,54.9484 -59.4914,54.9561 -59.4369,54.9846 -59.3941,55.0137 -59.3298,55.0706 -59.3857,55.1164 -59.4292,55.1164 -59.468,55.0951 -59.5134,55.0715 -59.6954,55.0443 -59.8631,55.0497 -59.8607,55.0919 -59.8155,55.0903 -59.795,55.0865 -59.7613,55.0894 -59.7368,55.0952 -59.6324,55.1319 -59.6106,55.1996 -59.6745,55.2645 -59.6985,55.2607 -59.7556,55.2335 -59.7879,55.2004 -59.8199,55.1697 -59.8615,55.1704 -59.9106,55.1555 -59.9387,55.134 -59.9856,55.082 -60.0214,55.0554 -60.0492,55.0381 -60.1864,54.9627 -60.1822,54.9909 -60.1134,55.0425 -60.0925,55.0431 -60.0484,55.0682 -60.0203,55.0916 -60.0073,55.1343 -59.9716,55.1818 -60.0727,55.2059 -60.1539,55.1792 -60.3715,55.0594 -60.4889,54.994 -60.5791,54.9304 -60.577,54.9403 -60.5666,54.9799 -60.5323,55.0019 -60.5129,55.0124 -60.4839,55.024 -60.4083,55.0558 -60.252,55.1886 -60.3643,55.1724 -60.3828,55.1628 -60.4339,55.1354 -60.3948,55.1882 -60.3648,55.2206 -60.2506,55.3298 -60.2052,55.3462 -60.1757,55.344 -60.0914,55.3662 -60.1012,55.4172 -60.1568,55.4374 -60.2211,55.4237 -60.2448,55.4106 -60.3146,55.355 -60.3158,55.3197 -60.3472,55.292 -60.3742,55.2825 -60.3335,55.3341 -60.338,55.3623 -60.3219,55.3828 -60.2172,55.4445 -60.215,55.4654 -60.2133,55.5077 -60.3209,55.5518 -60.3831,55.5587 -60.4056,55.5403 -60.4251,55.5312 -60.3955,55.5867 -60.3631,55.5988 -60.3015,55.609 -60.2757,55.6261 -60.2288,55.6891 -60.2279,55.7157 -60.3804,55.7432 -60.4032,55.7326 -60.4195,55.7069 -60.4388,55.6611 -60.4852,55.5791 -60.4991,55.5589 -60.5566,55.5216 -60.5246,55.5727 -60.5107,55.6211 -60.5004,55.6683 -60.4934,55.7423 -60.5139,55.7574 -60.5381,55.7561 -60.5631,55.7298 -60.5961,55.6976 -60.6188,55.6765 -60.6467,55.665 -60.774,55.6754 -60.7021,55.6893 -60.6691,55.7068 -60.6317,55.7334 -60.6298,55.7703 -60.653,55.7845 -60.6765,55.7884 -60.7689,55.7954 -60.8112,55.7985 -60.8398,55.7997 -60.9261,55.7886 -60.9617,55.7797 -60.9841,55.7783 -61.0869,55.8126 -61.054,55.8261 -60.9874,55.8295 -60.969,55.8504 -61.0109,55.8989 -61.0421,55.9048 -61.1477,55.9015 -61.2207,55.8982 -61.2809,55.8935 -61.3113,55.896 -61.3923,55.9467 -61.3213,55.961 -61.2813,55.9559 -61.25,55.9525 -61.2031,55.9523 -61.1689,55.9547 -61.1332,55.9776 -61.2082,55.9992 -61.2347,55.9956 -61.2825,55.9782 -61.3053,55.9714 -61.343,55.9901 -61.2985,56.0796 -61.2827,56.0937 -61.2696,56.1021 -61.2274,56.1091 -61.2405,56.154 -61.263,56.157 -61.3003,56.1497 -61.3425,56.1387 -61.4276,56.1299 -61.4643,56.1355 -61.6612,56.1516 -61.6934,56.1498 -61.8063,56.1458 -61.8387,56.1518 -61.8999,56.1691 -61.9685,56.2253 -61.9204,56.2386 -61.7748,56.2324 -61.6921,56.2227 -61.6539,56.2037 -61.5942,56.1989 -61.5681,56.202 -61.6855,56.3271 -61.8004,56.347 -61.8509,56.3498 -61.8753,56.3486 -61.9686,56.3551 -62.0116,56.3701 -62.0271,56.384 -61.9527,56.3917 -61.9029,56.3836 -61.8623,56.3904 -61.844,56.4011 -61.8615,56.4159 -61.9148,56.4175 -61.9679,56.4164 -61.941,56.4361 -61.8423,56.4385 -61.7687,56.4311 -61.6946,56.4211 -61.6548,56.4181 -61.5758,56.4287 -61.5483,56.4589 -61.5819,56.4813 -61.6044,56.5022 -61.7918,56.5207 -61.9314,56.5285 -61.9951,56.53 -62.0822,56.5356 -62.1219,56.5483 -62.0647,56.557 -62.0074,56.556 -61.8955,56.55 -61.913,56.5606 -62.0524,56.6056 -62.2453,56.6551 -62.3921,56.695 -62.4271,56.7082 -62.4608,56.7282 -62.4343,56.7686 -62.4133,56.7783 -62.3824,56.7817 -62.2709,56.7629 -62.124,56.7697 -61.9486,56.7627 -62.0278,56.7435 -62.0793,56.7458 -62.1169,56.7494 -62.2155,56.7453 -62.3579,56.7313 -62.3846,56.7205 -62.2006,56.6685 -61.9567,56.6114 -61.8915,56.5952 -61.8018,56.5755 -61.7259,56.5646 -61.5762,56.5512 -61.5449,56.5709 -61.5687,56.5863 -61.6229,56.5961 -61.6862,56.6148 -61.7128,56.6376 -61.6938,56.6443 -61.6595,56.6327 -61.6347,56.6301 -61.6065,56.6361 -61.595,56.6597 -61.6677,56.6771 -61.7154,56.6782 -61.7604,56.6596 -61.7799,56.6385 -61.7938,56.7259 -61.72,56.7284 -61.6809,56.7263 -61.5592,56.7387 -61.5386,56.7517 -61.5409,56.7749 -61.5362,56.8081 -61.4314,56.8902 -61.4068,56.9028 -61.3798,56.9136 -61.2745,56.914 -61.246,56.9489 -61.2513,57.0247 -61.2767,57.0533 -61.3402,57.084 -61.3749,57.0915 -61.4053,57.0885 -61.4552,57.0817 -61.5496,57.0756 -61.7451,57.0985 -61.9022,57.1795 -61.8364,57.1824 -61.7831,57.2013 -61.7527,57.2175 -61.6916,57.2944 -61.7056,57.3088 -61.78,57.3438 -61.9278,57.3852 -61.9492,57.3881 -62.0582,57.3958 -62.1184,57.3752 -62.2325,57.3507 -62.2591,57.3525 -62.3485,57.3843 -62.4141,57.4202 -62.4278,57.4368 -62.3141,57.4152 -62.1964,57.422 -62.0799,57.4674 -61.9596,57.495 -61.7863,57.548 -61.7729,57.5646 -61.7782,57.5978 -61.8815,57.7014 -61.9056,57.7147 -61.9273,57.7179 -61.9663,57.7117 -62.006,57.7304 -62.0245,57.7667 -62.0026,57.7852 -61.9488,57.8213 -61.964,57.8685 -62.0087,57.8964 -62.034,57.9054 -62.0873,57.8667 -62.1551,57.8797 -62.2115,57.887 -62.3378,57.8988 -62.3988,57.9034 -62.424,57.9021 -62.4638,57.8931 -62.5063,57.8785 -62.534,57.8635 -62.5547,57.8601 -62.5417,57.8834 -62.423,57.934 -62.3963,57.9383 -62.3304,57.9418 -62.2962,57.9342 -62.2744,57.9368 -62.1969,57.9686 -62.254,58.0411 -62.2991,58.0414 -62.3308,58.0375 -62.3716,58.0278 -62.3724,58.0073 -62.3886,57.9886 -62.4162,58.0297 -62.3978,58.0486 -62.3601,58.0742 -62.3365,58.0991 -62.3778,58.1046 -62.4016,58.0998 -62.4465,58.0873 -62.4917,58.0723 -62.5319,58.05 -62.6582,58.0597 -62.7178,58.0748 -62.7716,58.068 -62.8286,58.0558 -62.9778,57.9892 -62.9857,57.9662 -62.9868,57.9451 -63.0141,57.9287 -63.0368,57.9243 -63.22,57.9109 -63.1896,57.9278 -63.156,57.9373 -63.0783,57.9456 -63.0447,57.9574 -63.026,57.9797 -63.075,57.9838 -63.0942,57.9923 -63.0118,58.0176 -62.9302,58.0395 -62.9041,58.0554 -62.8501,58.0847 -62.7171,58.104 -62.6644,58.1075 -62.6259,58.1025 -62.6052,58.1005 -62.5747,58.1005 -62.5427,58.1047 -62.5204,58.1142 -62.469,58.1475 -62.4733,58.1722 -62.4892,58.1848 -62.5425,58.2006 -62.7133,58.1826 -62.6618,58.1989 -62.5938,58.2067 -62.5131,58.2331 -62.5049,58.3074 -62.4421,58.4105 -62.4578,58.4232 -62.5042,58.4338 -62.6481,58.4108 -62.9217,58.3833 -62.9739,58.3879 -63.0165,58.406 -63.0976,58.3998 -63.1255,58.3967 -63.158,58.3907 -63.2418,58.3448 -63.2692,58.324 -63.312,58.2995 -63.4166,58.245 -63.4391,58.2356 -63.4647,58.2322 -63.4135,58.2881 -63.3702,58.3013 -63.2829,58.3354 -63.2629,58.3443 -63.2193,58.3815 -63.053,58.4332 -62.859,58.5065 -62.8002,58.5301 -62.7297,58.5889 -62.7307,58.6176 -62.7895,58.7319 -62.8048,58.749 -62.9167,58.8034 -62.9959,58.8078 -63.0734,58.7844 -63.1777,58.7805 -63.1988,58.7852 -63.1195,58.8066 -63.0447,58.853 -63.0563,58.9048 -63.0875,58.908 -63.1471,58.9149 -63.2151,58.9534 -63.1214,58.9597 -63.0998,58.9569 -63.059,58.9569 -63.011,58.9756 -63.184,59.022 -63.2538,59.0294 -63.3902,58.9819 -63.6163,58.9442 -63.6446,58.9419 -63.6819,58.9419 -63.7939,58.9299 -63.9252,58.9475 -63.8694,58.9974 -63.8475,59.004 -63.8227,59.0093 -63.6937,58.9951 -63.6338,58.989 -63.4626,58.9972 -63.359,59.0335 -63.3234,59.0486 -63.3014,59.0603 -63.2417,59.1283 -63.2753,59.1941 -63.4205,59.275 -63.5354,59.289 -63.5951,59.24 -63.6093,59.2129 -63.6464,59.194 -63.6991,59.1722 -63.6546,59.2122 -63.6376,59.2371 -63.6293,59.2626 -63.6323,59.3047 -63.6722,59.3001 -63.9408,59.3146 -63.9223,59.3321 -63.8897,59.3414 -63.8284,59.3485 -63.7877,59.3504 -63.747,59.3499 -63.6927,59.3477 -63.6661,59.355 -63.6063,59.4448 -63.7511,59.5412 -63.7731,59.5478 -63.8862,59.5516 -63.9122,59.5197 -63.9192,59.4888 -63.9969,59.4461 -63.9377,59.5536 -64.0096,59.6051 -64.04,59.6119 -64.0848,59.64 -64.1373,59.689 -64.1389,59.7139 -64.1077,59.7053 -64.077,59.7031 -64.057,59.711 -64.0449,59.7787 -64.0291,59.9116 -64.0444,59.9494 -64.0956,59.9678 -64.144,59.9758 -64.1996,59.9458 -64.2455,59.8496 -64.3606,59.8229 -64.3832,59.8262 -64.335,59.852 -64.2811,59.8639 -64.2535,59.9589 -64.2474,60.043 -64.2749,60.048 -64.3695,59.9869 -64.6131,59.9288 -64.6761,59.9129 -64.6693,59.9065 -64.6473,59.9078 -64.6143,59.9063 -64.5978,59.9035 -64.5924,59.8966 -64.5953,59.8883 -64.5899,59.8759 -64.5901,59.8754 -64.5985,59.8511 -64.6015,59.8304 -64.6071,59.8235 -64.629,59.8263 -64.6509,59.8347 -64.6975,59.8362 -64.7031,59.8293 -64.6875,59.8146 -64.6841,59.8113 -64.6732,59.8044 -64.6732,59.8016 -64.7034,59.8003 -64.7227,59.7907 -64.7392,59.7866 -64.7557,59.7797 -64.7503,59.7701 -64.7312,59.7618 -64.7479,59.7259 -64.746,59.7244 -64.7343,59.7149 -64.7373,59.69 -64.7346,59.6776 -64.6909,59.6761 -64.6719,59.6692 -64.6775,59.6582 -64.6939,59.6499 -64.7268,59.6403 -64.7272,59.6396 -64.7434,59.6114 -64.7439,59.5562 -64.7739,59.5397 -64.8093,59.5398 -64.8105,59.54 -64.8447,59.5454 -64.8637,59.5413 -64.8638,59.515 -64.8231,59.5095 -64.7988,59.4901 -64.7798,59.4873 -64.7558,59.4764 -64.7554,59.4762 -64.7419,59.4721 -64.7041,59.4472 -64.6988,59.4292 -64.6396,59.3904 -64.6234,59.3863 -64.6076,59.3908 -64.6044,59.3917 -64.588,59.4013 -64.5851,59.4137 -64.5715,59.4178 -64.52,59.4204 -64.5063,59.4286 -64.4952,59.441 -64.4789,59.4451 -64.4436,59.4463 -64.437,59.4583 -64.4324,59.4669 -64.4106,59.4696 -64.397,59.4695 -64.3777,59.486 -64.3587,59.4845 -64.3155,59.4705 -64.2912,59.4648 -64.2832,59.4607 -64.2834,59.451 -64.3008,59.4397 -64.3109,59.4332 -64.3382,59.4251 -64.3599,59.4224 -64.3684,59.4073 -64.442,59.3814 -64.4475,59.3746 -64.4395,59.369 -64.4206,59.3648 -64.4155,59.3621 -64.4099,59.3592 -64.4128,59.3496 -64.4616,59.3429 -64.4753,59.3305 -64.4755,59.3223 -64.4675,59.3153 -64.446,59.3042 -64.4273,59.2972 -64.4274,59.2876 -64.433,59.2807 -64.4493,59.2752 -64.4504,59.2745 -64.4711,59.2615 -64.4739,59.2519 -64.4687,59.2408 -64.4501,59.2228 -64.4314,59.2172 -64.437,59.2035 -64.4535,59.1842 -64.4539,59.1631 -64.4539,59.1608 -64.4515,59.1442 -64.4462,59.1414 -64.4113,59.1357 -64.4087,59.133 -64.4199,59.1041 -64.4208,59.0572 -64.4143,59.0541 -64.3968,59.046 -64.3567,59.0403 -64.3326,59.0402 -64.3192,59.0373 -64.2982,59.0193 -64.2769,59.0136 -64.245,58.9997 -64.2211,58.9912 -64.218,58.9896 -64.2053,58.9829 -64.2109,58.9719 -64.2272,58.9623 -64.2487,58.9583 -64.2887,58.9613 -64.3156,58.9559 -64.3882,58.937 -64.3933,58.937 -64.4069,58.9371 -64.4094,58.9454 -64.4224,58.9647 -64.4303,58.9703 -64.5079,58.9706 -64.5532,58.986 -64.5809,58.99 -64.5826,58.9902 -64.5987,58.9861 -64.6121,58.9889 -64.6198,59.0152 -64.6331,59.0262 -64.6571,59.0291 -64.7547,59.0049 -64.7565,59.0045 -64.7726,58.9948 -64.7835,58.9714 -64.7997,58.959 -64.7997,58.9507 -64.7839,58.9259 -64.7546,58.9038 -64.7627,58.8996 -64.7736,58.9007 -64.8187,58.9053 -64.8374,58.8998 -64.8402,58.8915 -64.7789,58.8721 -64.7443,58.8637 -64.7229,58.8692 -64.7077,58.8796 -64.7068,58.8802 -64.6987,58.8898 -64.6773,58.8953 -64.6586,58.898 -64.6346,58.8952 -64.6106,58.8868 -64.5735,58.8674 -64.5603,58.8577 -64.5128,58.8526 -64.5071,58.852 -64.4992,58.8437 -64.486,58.8381 -64.4593,58.8394 -64.4084,58.8557 -64.3817,58.8542 -64.3631,58.8513 -64.3472,58.8457 -64.3126,58.8414 -64.2984,58.8413 -64.2913,58.8413 -64.2619,58.8466 -64.2433,58.8451 -64.2064,58.827 -64.1804,58.8006 -64.1753,58.7909 -64.1682,58.7612 -64.1681,58.7605 -64.1713,58.7371 -64.1503,58.7287 -64.1077,58.7298 -64.1003,58.709 -64.0688,58.695 -64.0394,58.7017 -64.0296,58.7052 -64.0207,58.7084 -63.9771,58.7426 -63.9848,58.7537 -63.9766,58.7605 -63.9551,58.7658 -63.9362,58.7767 -63.9068,58.7792 -63.8853,58.7845 -63.8771,58.7855 -63.864,58.7871 -63.8107,58.7866 -63.7923,58.7823 -63.7761,58.789 -63.7519,58.7943 -63.741,58.8011 -63.7298,58.8162 -63.7161,58.8257 -63.7026,58.8311 -63.6826,58.8297 -63.6786,58.8295 -63.6598,58.8334 -63.6412,58.8318 -63.6278,58.8344 -63.6173,58.8302 -63.6125,58.8177 -63.5968,58.8106 -63.5783,58.8077 -63.5384,58.8058 -63.5201,58.7987 -63.489,58.7826 -63.4656,58.7677 -63.4505,58.7482 -63.4274,58.73 -63.409,58.727 -63.3989,58.7145 -63.399,58.7141 -63.402,58.7062 -63.4264,58.6955 -63.4933,58.6839 -63.5444,58.6679 -63.6082,58.666 -63.6108,58.6659 -63.6398,58.669 -63.6666,58.6638 -63.7224,58.6602 -63.8047,58.6583 -63.8364,58.6599 -63.8434,58.6562 -63.8743,58.6396 -63.8876,58.6356 -63.9061,58.6371 -63.9509,58.6458 -63.9723,58.6404 -63.9805,58.6322 -64.0048,58.6159 -64.0207,58.6004 -64.0484,58.5734 -64.0413,58.543 -64.0445,58.5251 -63.998,58.4903 -63.9965,58.4865 -63.9931,58.4778 -63.9748,58.4721 -63.9564,58.4692 -63.9327,58.469 -63.9086,58.4785 -63.8651,58.5181 -63.8517,58.5235 -63.8307,58.5205 -63.8289,58.5193 -63.8204,58.5136 -63.7949,58.4885 -63.7906,58.4608 -63.7576,58.4247 -63.7745,58.4045 -63.7851,58.3918 -63.8011,58.3865 -63.8302,58.3812 -63.8486,58.3841 -63.8563,58.3897 -63.8695,58.3871 -63.9115,58.3888 -63.9382,58.378 -63.9597,58.3644 -63.9614,58.3607 -63.9681,58.3466 -63.9714,58.3245 -63.9794,58.3191 -64.0162,58.3194 -64.0609,58.317 -64.0899,58.3117 -64.1085,58.3021 -64.1143,58.2934 -64.1195,58.2857 -64.1319,58.2113 -64.1508,58.1893 -64.1668,58.1756 -64.1712,58.1747 -64.2167,58.1649 -64.2612,58.1625 -64.3006,58.1558 -64.3163,58.1517 -64.3348,58.1436 -64.364,58.1189 -64.3642,58.1158 -64.3679,58.0486 -64.3735,58.0307 -64.3606,58.021 -64.3425,58.0181 -64.3112,58.0193 -64.3081,58.0191 -64.28,58.0177 -64.2567,58.0107 -64.2413,58.0023 -64.231,57.9995 -64.2152,58.0049 -64.1661,57.9936 -64.1636,57.9867 -64.1745,57.9674 -64.17,57.9546 -64.1696,57.9536 -64.1491,57.9438 -64.1389,57.9368 -64.1398,57.901 -64.1144,57.8815 -64.0841,57.8482 -64.0833,57.8438 -64.0796,57.8247 -64.0623,57.7956 -64.0121,57.7414 -64.0047,57.729 -64.001,57.7277 -63.9919,57.7247 -63.9764,57.7246 -63.966,57.7273 -63.9626,57.7548 -63.9572,57.7617 -63.9392,57.7615 -63.8621,57.747 -63.8494,57.74 -63.8446,57.7332 -63.8445,57.7331 -63.8409,57.6861 -63.8234,57.6708 -63.8079,57.6693 -63.7768,57.6745 -63.7692,57.6717 -63.7566,57.6633 -63.752,57.648 -63.7457,57.6471 -63.7418,57.6466 -63.7365,57.6506 -63.7172,57.6835 -63.7017,57.6847 -63.6865,57.6777 -63.6717,57.6596 -63.6622,57.6374 -63.6499,57.6235 -63.6347,57.6178 -63.6191,57.6204 -63.6137,57.6286 -63.5978,57.6381 -63.5894,57.6545 -63.594,57.6684 -63.604,57.6768 -63.6012,57.6823 -63.5728,57.6819 -63.5573,57.6845 -63.544,57.6926 -63.5311,57.6939 -63.5281,57.6904 -63.5212,57.6827 -63.5192,57.6703 -63.5258,57.6359 -63.5345,57.6125 -63.5503,57.6044 -63.5685,57.5991 -63.5818,57.5896 -63.5909,57.5793 -63.5926,57.5773 -63.6239,57.5653 -63.642,57.5627 -63.6577,57.556 -63.6918,57.5371 -63.6973,57.5261 -63.6861,57.4846 -63.6875,57.4825 -63.7051,57.4559 -63.7055,57.4435 -63.6959,57.4282 -63.6996,57.3965 -63.6898,57.3868 -63.6821,57.3853 -63.6641,57.3879 -63.6514,57.3877 -63.6484,57.3835 -63.6465,57.3808 -63.6478,57.3463 -63.6511,57.3284 -63.6593,57.3133 -63.708,57.307 -63.7211,57.3002 -63.7317,57.2879 -63.7389,57.287 -63.7522,57.2854 -63.7879,57.2844 -63.7889,57.2554 -63.8154,57.2267 -63.8076,57.1892 -63.8023,57.1632 -63.7976,57.1507 -63.7902,57.1465 -63.7796,57.1574 -63.7742,57.1684 -63.7674,57.2152 -63.7599,57.2245 -63.7541,57.2316 -63.7412,57.2356 -63.7235,57.2327 -63.7166,57.2133 -63.7092,57.2077 -63.6915,57.2034 -63.684,57.1992 -63.6792,57.1922 -63.6906,57.1606 -63.7089,57.147 -63.7091,57.1469 -63.7244,57.1389 -63.7304,57.1128 -63.7156,57.1016 -63.7135,57.0906 -63.7164,57.0782 -63.727,57.0659 -63.7427,57.0523 -63.7635,57.0387 -63.7687,57.0379 -63.7889,57.0348 -63.8194,57.0324 -63.818,56.9993 -63.8237,56.9787 -63.8141,56.9648 -63.7945,56.9467 -63.7972,56.9412 -63.7998,56.9403 -63.8049,56.9385 -63.8327,56.9374 -63.8481,56.9293 -63.8522,56.8824 -63.8477,56.8659 -63.8228,56.8546 -63.808,56.8448 -63.8077,56.8435 -63.8058,56.8365 -63.8136,56.8297 -63.8463,56.8286 -63.8944,56.8208 -63.9146,56.821 -63.9477,56.8075 -63.9472,56.7884 -63.9399,56.777 -63.9338,56.7674 -63.9291,56.7564 -63.9294,56.7467 -63.9424,56.7317 -63.9602,56.7236 -64.0053,56.7281 -64.0182,56.7158 -64.0339,56.6939 -64.0359,56.6921 -64.0544,56.6761 -64.07,56.6542 -64.0704,56.6404 -64.0558,56.6251 -64.0335,56.6139 -64.0162,56.6083 -63.9937,56.6053 -63.9838,56.6011 -63.9817,56.5967 -63.9791,56.5914 -63.9819,56.5832 -63.9921,56.575 -63.9924,56.5654 -63.9851,56.5584 -63.9259,56.5303 -63.8891,56.5093 -63.8843,56.4979 -63.8822,56.4927 -63.8801,56.4789 -63.8831,56.4624 -63.8936,56.4474 -63.8814,56.4376 -63.8321,56.422 -63.8199,56.4149 -63.8203,56.4012 -63.826,56.3952 -63.8281,56.393 -63.8555,56.3905 -63.883,56.3852 -63.8931,56.3826 -63.8958,56.3757 -63.9233,56.3691 -63.9432,56.3693 -63.9803,56.3751 -64.0275,56.3796 -64.0318,56.3806 -64.072,56.3896 -64.1093,56.3872 -64.1143,56.3858 -64.1145,56.3803 -64.0972,56.3747 -64.0508,56.3454 -64.0485,56.3371 -64.0606,56.3254 -64.0612,56.3248 -64.0589,56.3179 -64.0467,56.3095 -64.0476,56.2765 -64.085,56.2713 -64.0901,56.263 -64.0829,56.2547 -64.0485,56.2448 -64.0388,56.2365 -64.0383,56.2335 -64.0366,56.224 -64.0295,56.213 -64.0148,56.2087 -63.9873,56.2181 -63.9723,56.2207 -63.9353,56.2163 -63.9009,56.2091 -63.8641,56.1991 -63.8587,56.1966 -63.8397,56.1878 -63.8227,56.178 -63.8132,56.1655 -63.8136,56.1531 -63.8237,56.1463 -63.841,56.1465 -63.8783,56.1414 -63.9131,56.1334 -63.9303,56.1276 -63.9331,56.1267 -63.9607,56.1104 -63.9521,56.0663 -63.9677,56.0375 -63.9583,56.0236 -63.9372,56.0248 -63.9361,56.0248 -63.9113,56.0301 -63.8838,56.0436 -63.8558,56.0695 -63.8283,56.083 -63.806,56.0855 -63.7912,56.084 -63.7791,56.077 -63.7843,56.0702 -63.7849,56.0698 -63.7944,56.0634 -63.8069,56.058 -63.8047,56.0511 -63.7875,56.0495 -63.7483,56.0422 -63.746,56.0367 -63.7464,56.0243 -63.7668,56.0039 -63.7571,56.001 -63.7448,56.0009 -63.7275,56.0034 -63.7214,56.0052 -63.7001,56.0114 -63.6728,56.0166 -63.6312,56.0092 -63.6148,55.9884 -63.5979,55.9786 -63.5661,55.9754 -63.536,55.975 -63.5021,55.9746 -63.4501,55.9836 -63.4009,55.9829 -63.3913,55.9773 -63.3917,55.9676 -63.3494,55.95 -63.3612,55.9476 -63.3715,55.9494 -63.4008,55.9443 -63.43,55.95 -63.4747,55.95 -63.4862,55.9477 -63.5689,55.9252 -63.5851,55.9204 -63.6269,55.906 -63.6507,55.8948 -63.6721,55.8885 -63.7133,55.8809 -63.7442,55.8762 -63.7719,55.869 -63.7758,55.8668 -63.7785,55.8613 -63.774,55.8559 -63.7579,55.8363 -63.7577,55.8299 -63.7617,55.8246 -63.7743,55.8164 -63.7745,55.8139 -63.7699,55.8127 -63.7445,55.8146 -63.729,55.8134 -63.7121,55.8105 -63.7006,55.8051 -63.6953,55.7952 -63.6931,55.7848 -63.6973,55.7692 -63.7047,55.7571 -63.6922,55.7438 -63.6891,55.7411 -63.6667,55.7358 -63.6406,55.7382 -63.6239,55.7373 -63.6087,55.7347 -63.6012,55.7279 -63.6027,55.7175 -63.6117,55.7098 -63.6259,55.7002 -63.6412,55.677 -63.6466,55.6606 -63.6483,55.6483 -63.6728,55.6469 -63.67,55.6428 -63.6517,55.6368 -63.6473,55.6287 -63.6589,55.6053 -63.655,55.6015 -63.6374,55.6038 -63.6132,55.6041 -63.6021,55.6014 -63.5914,55.5905 -63.5945,55.5841 -63.6102,55.5749 -63.6092,55.5542 -63.6047,55.5313 -63.5992,55.515 -63.6003,55.504 -63.6075,55.4899 -63.6276,55.4667 -63.6636,55.4511 -63.686,55.4406 -63.703,55.4335 -63.7182,55.4285 -63.7195,55.4246 -63.716,55.4178 -63.7071,55.4119 -63.6872,55.4061 -63.6504,55.3855 -63.6286,55.3793 -63.5867,55.3775 -63.5741,55.3763 -63.5409,55.3776 -63.5101,55.3739 -63.4928,55.3742 -63.4699,55.3778 -63.4441,55.3776 -63.4062,55.3756 -63.3922,55.3705 -63.3862,55.3666 -63.355,55.3578 -63.3189,55.3585 -63.2944,55.363 -63.2768,55.3637 -63.2693,55.36 -63.2564,55.3496 -63.2524,55.3447 -63.252,55.3399 -63.2642,55.331 -63.3275,55.3113 -63.3503,55.3054 -63.3927,55.2997 -63.4119,55.2997 -63.4318,55.3026 -63.4875,55.2974 -63.5082,55.2918 -63.5148,55.2848 -63.5124,55.2803 -63.4996,55.2758 -63.4834,55.2735 -63.4674,55.2735 -63.4651,55.2704 -63.4773,55.2632 -63.5044,55.2561 -63.5547,55.2458 -63.5688,55.242 -63.5876,55.2325 -63.5978,55.2222 -63.596,55.219 -63.5806,55.2119 -63.5806,55.2129 -63.5699,55.209 -63.5567,55.1905 -63.5529,55.1885 -63.5467,55.1903 -63.5448,55.2056 -63.5423,55.2087 -63.5298,55.2031 -63.5162,55.1934 -63.5006,55.1891 -63.4752,55.1868 -63.4378,55.188 -63.4244,55.19 -63.3934,55.2027 -63.3536,55.2145 -63.3397,55.2153 -63.3343,55.2127 -63.3359,55.2029 -63.3493,55.1858 -63.3676,55.1662 -63.4052,55.1565 -63.4193,55.1541 -63.434,55.1532 -63.4529,55.15 -63.4773,55.1406 -63.4803,55.1387 -63.4757,55.1308 -63.4635,55.1234 -63.4669,55.1217 -63.4745,55.1217 -63.4853,55.1262 -63.4899,55.125 -63.495,55.0958 -63.5042,55.086 -63.5208,55.0757 -63.5186,55.0682 -63.5158,55.0631 -63.5217,55.0529 -63.5315,55.0469 -63.5375,55.0383 -63.5372,55.0255 -63.5322,55.0128 -63.5155,55.0046 -63.5006,54.9932 -63.4982,54.988 -63.5008,54.9808 -63.5166,54.9708 -63.5195,54.9629 -63.511,54.9513 -63.5093,54.95 -63.5007,54.9431 -63.5081,54.9365 -63.52,54.931 -63.5409,54.9292 -63.543,54.9216 -63.5334,54.8972 -63.5199,54.8796 -63.5196,54.8755 -63.5358,54.8659 -63.5429,54.8604 -63.5529,54.857 -63.5641,54.8582 -63.5767,54.8618 -63.6056,54.8614 -63.6362,54.8703 -63.6626,54.8862 -63.6759,54.8936 -63.6899,54.8994 -63.715,54.9048 -63.7439,54.9039 -63.7499,54.8992 -63.7519,54.8955 -63.7386,54.8883 -63.7385,54.8836 -63.7537,54.8715 -63.7675,54.8489 -63.7738,54.8311 -63.782,54.8215 -63.7709,54.8077 -63.7558,54.7944 -63.7499,54.7822 -63.7532,54.7751 -63.765,54.769 -63.8023,54.7578 -63.8101,54.756 -63.8203,54.7557 -63.8351,54.7568 -63.836,54.7499 -63.8316,54.7405 -63.8438,54.7278 -63.8417,54.7258 -63.8223,54.7166 -63.8223,54.7175 -63.7987,54.7102 -63.7747,54.7022 -63.7608,54.6928 -63.74,54.6813 -63.7075,54.6531 -63.6946,54.637 -63.6922,54.6323 -63.6912,54.6252 -63.6843,54.6188 -63.6696,54.6133 -63.6573,54.5988 -63.6497,54.5842 -63.6519,54.5816 -63.6575,54.5782 -63.6673,54.5782 -63.6801,54.5801 -63.7148,54.5978 -63.7339,54.6002 -63.7424,54.5981 -63.7708,54.5815 -63.783,54.5768 -63.7971,54.5761 -63.8349,54.5585 -63.8467,54.5581 -63.8863,54.5645 -63.9076,54.5615 -63.9288,54.5565 -63.9377,54.5548 -63.9415,54.5531 -63.9661,54.5546 -63.9923,54.5613 -64.0099,54.5642 -64.033,54.5708 -64.0433,54.5757 -64.0456,54.5832 -64.0403,54.6057 -64.094,54.6337 -64.1015,54.638 -64.1101,54.6414 -64.1182,54.6548 -64.1179,54.6686 -64.1219,54.6767 -64.1354,54.6732 -64.1407,54.6708 -64.1541,54.6706 -64.1669,54.6763 -64.1777,54.6782 -64.2018,54.6777 -64.213,54.6796 -64.2241,54.687 -64.2352,54.6914 -64.2358,54.7012 -64.2314,54.7082 -64.2517,54.7135 -64.2633,54.7227 -64.2959,54.7323 -64.3036,54.7336 -64.3222,54.7367 -64.328,54.7367 -64.3612,54.7394 -64.3744,54.7373 -64.3971,54.7386 -64.4074,54.735 -64.4117,54.72 -64.4059,54.7095 -64.4007,54.7014 -64.4066,54.6976 -64.4226,54.6998 -64.4564,54.7086 -64.47,54.7102 -64.4759,54.7031 -64.4756,54.6963 -64.4643,54.6795 -64.4783,54.6735 -64.4935,54.6716 -64.513,54.6732 -64.5437,54.6755 -64.5881,54.6842 -64.5972,54.6839 -64.6136,54.6755 -64.6215,54.6754 -64.6262,54.6782 -64.6344,54.6777 -64.6538,54.685 -64.6657,54.6857 -64.6711,54.6837 -64.6946,54.6823 -64.7104,54.6851 -64.7149,54.6873 -64.716,54.6966 -64.707,54.7148 -64.6832,54.7458 -64.6807,54.7585 -64.6829,54.7673 -64.691,54.7764 -64.7032,54.7828 -64.7208,54.7808 -64.7505,54.7941 -64.7579,54.7936 -64.7654,54.7898 -64.7751,54.7911 -64.7816,54.7991 -64.7846,54.8216 -64.7904,54.8344 -64.8078,54.8472 -64.8628,54.8769 -64.8869,54.8858 -64.9003,54.885 -64.9171,54.8786 -64.93,54.88 -64.9331,54.8803 -64.9467,54.8871 -64.9581,54.8994 -64.9694,54.9075 -64.977,54.9081 -64.9915,54.9032 -64.9986,54.9026 -64.9995,54.9136 -65.0052,54.9179 -65.0249,54.9162 -65.0286,54.9143 -65.0381,54.9075 -65.0458,54.8923 -65.0469,54.8877 -65.0585,54.8824 -65.0796,54.8795 -65.0955,54.8699 -65.1039,54.8607 -65.1094,54.844 -65.1204,54.8365 -65.1218,54.8222 -65.1192,54.8109 -65.1301,54.8031 -65.1461,54.8009 -65.1668,54.8014 -65.1807,54.7983 -65.1893,54.7975 -65.2103,54.7877 -65.215,54.7781 -65.2116,54.7664 -65.2384,54.7815 -65.256,54.7952 -65.2626,54.7972 -65.2674,54.7945 -65.2731,54.7828 -65.2735,54.7764 -65.2802,54.7701 -65.3203,54.7739 -65.3393,54.7798 -65.3553,54.7928 -65.3657,54.7969 -65.3803,54.7961 -65.3931,54.7914 -65.401,54.7815 -65.4018,54.7757 -65.3921,54.7652 -65.3885,54.7591 -65.3703,54.7434 -65.3614,54.7331 -65.3572,54.7252 -65.3546,54.7082 -65.3559,54.7026 -65.3642,54.6966 -65.3815,54.6892 -65.3968,54.6858 -65.4331,54.6849 -65.4547,54.684 -65.4825,54.6848 -65.505,54.6873 -65.5156,54.6895 -65.543,54.6931 -65.5595,54.6981 -65.5681,54.6975 -65.58,54.6803 -65.5916,54.6688 -65.6004,54.664 -65.6224,54.6628 -65.6308,54.6636 -65.635,54.6657 -65.6419,54.6754 -65.6627,54.7207 -65.6797,54.7408 -65.6952,54.7529 -65.7356,54.7753 -65.7693,54.79 -65.7707,54.7941 -65.7647,54.7994 -65.7546,54.8042 -65.7515,54.8103 -65.7823,54.8491 -65.7831,54.8548 -65.7791,54.8655 -65.7833,54.8706 -65.8193,54.8802 -65.8401,54.881 -65.8742,54.8808 -65.8904,54.8801 -65.9054,54.8761 -65.9052,54.875 -65.9234,54.8769 -65.9542,54.8869 -65.964,54.8857 -65.9705,54.8866 -65.9797,54.8816 -65.9771,54.8693 -65.9844,54.8674 -66.0183,54.887 -66.0483,54.9078 -66.069,54.9187 -66.0803,54.9223 -66.115,54.9227 -66.1502,54.9319 -66.1593,54.9313 -66.1704,54.9227 -66.1761,54.9238 -66.202,54.95 -66.2151,54.9661 -66.2426,54.9876 -66.2691,55.0144 -66.3155,55.0497 -66.3407,55.0649 -66.3638,55.0775 -66.397,55.106 -66.4083,55.1119 -66.4147,55.112 -66.4228,55.1024 -66.4424,55.125 -66.455,55.1544 -66.4684,55.1663 -66.5017,55.1888 -66.5145,55.2067 -66.5434,55.2247 -66.568,55.2301 -66.5761,55.2305 -66.5911,55.2289 -66.5966,55.226 -66.6023,55.2212 -66.6183,55.2313 -66.6369,55.2393 -66.6456,55.2585 -66.66,55.2678 -66.6905,55.2823 -66.7155,55.3 -66.7327,55.3093 -66.7433,55.3106 -66.7456,55.3025 -66.7359,55.273 -66.7389,55.2687 -66.754,55.2727 -66.7652,55.2774 -66.7674,55.2738 -66.762,55.2604 -66.734,55.2367 -66.7267,55.2311 -66.6975,55.2169 -66.6896,55.2081 -66.6721,55.1994 -66.6512,55.1866 -66.6191,55.1564 -66.6166,55.1458 -66.6179,55.1414 -66.6269,55.1429 -66.6521,55.1549 -66.6872,55.1686 -66.6989,55.1694 -66.696,55.1512 -66.6884,55.134 -66.6909,55.1174 -66.6892,55.1071 -66.6922,55.1036 -66.7111,55.1037 -66.7141,55.0953 -66.7081,55.078 -66.6935,55.0574 -66.6727,55.0421 -66.6408,55.0186 -66.661,55.0246 -66.6767,55.0276 -66.6812,55.0231 -66.6762,55.0098 -66.6656,55.001 -66.6441,54.9886 -66.6277,54.9837 -66.6115,54.9747 -66.5987,54.9644 -66.5862,54.95 -66.5806,54.9436 -66.5695,54.9284 -66.5755,54.9265 -66.585,54.9283 -66.6351,54.95 -66.6406,54.9524 -66.6655,54.9584 -66.6796,54.9544 -66.6867,54.9511 -66.6914,54.9508 -66.7076,54.9596 -66.7116,54.9598 -66.7158,54.9564 -66.713,54.95 -66.712,54.9477 -66.6915,54.9291 -66.657,54.9052 -66.6365,54.8891 -66.6209,54.8716 -66.6128,54.8583 -66.6143,54.8525 -66.593,54.8312 -66.5832,54.812 -66.539,54.771 -66.5368,54.7617 -66.5486,54.7439 -66.5662,54.732 -66.5829,54.7252 -66.6087,54.7202 -66.6461,54.7184 -66.6441,54.7107 -66.6299,54.7016 -66.6076,54.6907 -66.5947,54.6771 -66.5912,54.6647 -66.606,54.6607 -66.6364,54.6779 -66.6714,54.7008 -66.6783,54.7018 -66.6866,54.6966 -66.6884,54.6961 -66.6927,54.6989 -66.6942,54.7003 -66.6978,54.7067 -66.7051,54.7122 -66.7163,54.7175 -66.7285,54.722 -66.7697,54.7382 -66.7766,54.7408 -66.7943,54.7472 -66.8154,54.7505 -66.8265,54.7558 -66.8457,54.7628 -66.8563,54.7652 -66.8995,54.7775 -66.9064,54.7801 -66.9121,54.7835 -66.914,54.7871 -66.9208,54.7896 -66.9553,54.8032 -66.9639,54.8086 -66.9674,54.8136 -66.9724,54.8207 -66.9898,54.8414 -67.0085,54.8504 -67.0338,54.8753 -67.0567,54.8924 -67.088,54.9103 -67.1015,54.9169 -67.1213,54.9233 -67.1454,54.9337 -67.1557,54.9448 -67.1587,54.95 -67.1614,54.9545 -67.1768,54.9672 -67.2031,54.9762 -67.2127,54.9855 -67.206,54.9953 -67.2076,54.9996 -67.2364,55.0204 -67.258,55.0284 -67.2995,55.0316 -67.3235,55.0385 -67.3319,55.0387 -67.3597,55.0286 -67.3711,55.0162 -67.3715,55.0119 -67.38,54.9992 -67.3678,54.9733 -67.3435,54.95 -67.3409,54.9474 -67.3386,54.939 -67.3415,54.9306 -67.3379,54.9171 -67.3325,54.9116 -67.3193,54.9019 -67.2914,54.8909 -67.2784,54.8827 -67.2739,54.8662 -67.2685,54.8603 -67.2422,54.8419 -67.2214,54.8181 -67.1955,54.7974 -67.1754,54.7848 -67.1563,54.7684 -67.1437,54.7435 -67.1366,54.7391 -67.1205,54.7379 -67.0909,54.7272 -67.0594,54.7027 -67.0369,54.6893 -67.0072,54.6636 -67.0031,54.6462 -67.0073,54.629 -67.0164,54.6219 -67.0366,54.6127 -67.0558,54.6022 -67.0622,54.5954 -67.0783,54.5718 -67.0943,54.5636 -67.1148,54.5583 -67.1353,54.5583 -67.1475,54.5578 -67.1623,54.559 -67.1676,54.5461 -67.1794,54.5344 -67.1881,54.5321 -67.2122,54.5391 -67.2097,54.5267 -67.2134,54.5184 -67.2155,54.5075 -67.209,54.4978 -67.181,54.4816 -67.163,54.4755 -67.1603,54.4711 -67.1847,54.4479 -67.213,54.4295 -67.2237,54.4344 -67.2259,54.4402 -67.2366,54.4494 -67.2497,54.459 -67.2632,54.4619 -67.2762,54.4664 -67.3114,54.4737 -67.3276,54.4785 -67.3436,54.4819 -67.3518,54.4771 -67.3581,54.468 -67.3578,54.4547 -67.3609,54.4435 -67.3738,54.4359 -67.4211,54.4337 -67.4394,54.4304 -67.4594,54.4301 -67.4977,54.4369 -67.51,54.4373 -67.5238,54.4305 -67.5284,54.4192 -67.5521,54.4174 -67.5545,54.4174 -67.5649,54.4228 -67.5686,54.4299 -67.5792,54.4469 -67.5899,54.4387 -67.6075,54.403 -67.6175,54.3934 -67.6357,54.3891 -67.6638,54.3924 -67.6804,54.3925 -67.6967,54.3867 -67.7024,54.3838 -67.7063,54.3748 -67.6917,54.3576 -67.6801,54.3524 -67.6692,54.342 -67.6604,54.3263 -67.6684,54.2966 -67.6647,54.2893 -67.652,54.2758 -67.6394,54.2693 -67.6277,54.2672 -67.5987,54.2479 -67.593,54.2384 -67.6089,54.2177 -67.6077,54.2134 -67.6103,54.2036 -67.6086,54.1901 -67.5992,54.179 -67.5533,54.157 -67.546,54.1515 -67.5475,54.1441 -67.5565,54.1355 -67.5733,54.1264 -67.5753,54.1201 -67.5723,54.1125 -67.5745,54.1094 -67.5843,54.1051 -67.6167,54.1024 -67.6231,54.1032 -67.6414,54.1027 -67.6621,54.1026 -67.6826,54.1013 -67.7081,54.0954 -67.7207,54.0895 -67.7318,54.0771 -67.7352,54.0659 -67.7267,54.0561 -67.711,54.0511 -67.6951,54.0434 -67.6941,54.0356 -67.7097,54.0271 -67.7113,54.0141 -67.7169,54.0087 -67.7407,53.981 -67.7465,53.9717 -67.7414,53.9654 80,-4.0,Canada -64.8606,60.0092 -64.8532,59.9992 -64.8367,59.9868 -64.7983,59.95 -64.7983,59.9495 -64.7985,59.9316 -64.7848,59.9233 -64.7655,59.9232 -64.761,59.9239 -64.7076,59.9314 -64.6942,59.9265 -64.6945,59.9288 -64.5333,59.9812 -64.3884,59.9995 -64.3543,60.0079 -64.2555,60.0877 -64.2991,60.1418 -64.4234,60.1877 -64.4527,60.1922 -64.4743,60.1943 -64.5182,60.1944 -64.5636,60.1781 -64.6232,60.1581 -64.6011,60.1867 -64.5211,60.2146 -64.4909,60.2166 -64.4582,60.2134 -64.4355,60.2081 -64.3555,60.1901 -64.3359,60.1851 -64.3144,60.1831 -64.3497,60.2071 -64.4115,60.2296 -64.4545,60.2497 -64.464,60.2536 -64.471,60.2479 -64.4959,60.2549 -64.5181,60.2564 -64.526,60.2541 -64.5516,60.2468 -64.5823,60.2414 -64.6294,60.2526 -64.6572,60.2485 -64.7269,60.2266 -64.7347,60.2266 -64.7718,60.166 -64.7331,60.1577 -64.7055,60.1479 -64.6976,60.1427 -64.6697,60.1244 -64.6559,60.123 -64.6419,60.1312 -64.6142,60.1325 -64.6033,60.1228 -64.5867,60.1173 -64.559,60.1213 -64.5508,60.1158 -64.5482,60.1047 -64.5399,60.0878 -64.5347,60.0771 -64.5349,60.0661 -64.5902,60.0635 -64.6234,60.0594 -64.6621,60.0596 -64.6732,60.0568 -64.6761,60.0486 -64.6651,60.0403 -64.6513,60.0361 -64.6471,60.0295 -64.6459,60.0278 -64.6433,60.0195 -64.6489,60.0126 -64.6903,60.01 -64.7151,60.01 -64.7456,59.9922 -64.8007,60.0047 -64.8338,60.0158 -64.8558,60.0158 -64.8614,60.0103 -64.8606,60.0092 35,-4.0,Canada -63.2642,49.2793 -63.1816,49.257 -63.1547,49.2347 -63.1377,49.2237 -63.1164,49.2145 -63.0012,49.173 -62.8542,49.1425 -62.6902,49.1095 -62.6341,49.0983 -62.2764,49.043 -62.1043,49.0186 -61.9337,49.0134 -61.7053,49.0218 -61.6451,49.0399 -61.6116,49.0548 -61.5744,49.0877 -61.7323,49.2539 -61.7929,49.2915 -61.9518,49.3331 -62.0008,49.3303 -62.0775,49.3446 -62.1132,49.3549 -62.2485,49.4302 -62.3514,49.4903 -62.4532,49.543 -62.6178,49.604 -62.6936,49.6195 -62.9029,49.6795 -62.9809,49.707 -63.0424,49.7236 -63.2157,49.7569 -63.2531,49.7629 -63.2575,49.7636 -63.2663,49.2798 -63.2642,49.2793 95,-4.0,Canada -67.9984,62.1407 -67.982,62.1402 -67.8713,62.1378 -67.667,62.0902 -67.6263,62.0847 -67.6004,62.0823 -67.3695,62.0629 -67.3325,62.0637 -67.215,62.0436 -67.1246,62.0023 -66.9685,61.9557 -66.6821,61.9401 -66.6523,61.9398 -66.6224,61.9337 -66.5328,61.8633 -66.5008,61.8426 -66.421,61.8245 -66.3933,61.8216 -66.2718,61.7965 -66.154,61.7828 -65.9344,61.7936 -65.8321,61.8135 -65.821,61.8323 -65.8683,61.886 -65.9051,61.879 -65.9823,61.9416 -66.0045,62.0136 -65.9194,62.0739 -65.8385,62.1097 -65.8087,62.1236 -65.8688,62.1697 -65.8977,62.1726 -65.9239,62.1515 -65.9535,62.1503 -66.0381,62.1592 -66.0841,62.1692 -66.1257,62.1843 -66.0738,62.1843 -66.0356,62.1866 -66.0372,62.2151 -66.0798,62.2559 -66.1612,62.2677 -66.1838,62.2687 -66.204,62.2658 -66.2291,62.2433 -66.1901,62.1884 -66.2006,62.1913 -66.246,62.2098 -66.3421,62.2681 -66.302,62.273 -66.2021,62.3045 -66.226,62.3688 -66.2961,62.3687 -66.4775,62.5283 -66.6423,62.5635 -66.6104,62.5875 -66.6888,62.6028 -66.7829,62.5932 -66.8276,62.6042 -66.8816,62.6575 -66.9176,62.6943 -67.0636,62.7933 -67.2663,62.8898 -67.3346,62.908 -67.4376,62.8874 -67.5151,62.8468 -67.5373,62.8562 -67.5191,62.8903 -67.4986,62.8989 -67.4615,62.9101 -67.4414,62.9131 -67.4092,62.9162 -67.3731,62.9352 -67.3979,62.9596 -67.4271,62.9717 -67.5274,62.9569 -67.5603,62.9464 -67.5989,62.915 -67.594,62.8829 -67.6313,62.8801 -67.6408,62.9484 -67.5912,62.976 -67.5587,62.98 -67.4978,62.9831 -67.4737,63.0059 -67.5072,63.0222 -67.7801,63.0057 -67.788,63.0577 -67.8191,63.0679 -67.9401,63.0859 -67.9823,63.075 -67.9954,63.0706 -68.0,63.0718 -68.0,62.1407 -67.9984,62.1407 7,-4.0,Canada -66.8795,63.2044 -66.8893,63.2259 -66.9077,63.254 -66.8827,63.3204 -66.8464,63.3186 -66.8792,63.2037 -66.8795,63.2044 345,-4.0,Canada -67.9984,63.4871 -67.9347,63.4653 -67.9046,63.4656 -67.8172,63.4284 -67.7264,63.3788 -67.7043,63.3462 -67.691,63.3248 -67.6088,63.2899 -67.5876,63.2861 -67.5569,63.2896 -67.5372,63.3118 -67.5457,63.3455 -67.5776,63.3804 -67.6868,63.5179 -67.7872,63.6761 -67.764,63.6745 -67.7052,63.6511 -67.5502,63.5412 -67.4886,63.4708 -67.3675,63.3645 -67.2992,63.3349 -67.072,63.2073 -67.0438,63.1969 -66.9112,63.1963 -66.8792,63.2037 -66.8893,63.1691 -66.7333,63.0714 -66.7132,63.0696 -66.6963,63.0741 -66.6711,63.0915 -66.6788,63.1136 -66.7081,63.1432 -66.7147,63.1776 -66.681,63.1949 -66.6585,63.1337 -66.6484,63.0659 -66.6394,63.0145 -66.5472,62.9474 -66.4154,62.9165 -66.4283,63.0099 -66.474,63.1288 -66.5124,63.1597 -66.548,63.1676 -66.595,63.1929 -66.6079,63.2135 -66.5231,63.2955 -66.507,63.2748 -66.516,63.2485 -66.4957,63.1744 -66.4217,63.1017 -66.3916,62.9924 -66.3347,62.9548 -66.3145,62.9433 -66.2711,62.921 -66.2427,62.9153 -66.2188,62.9215 -66.1599,62.9141 -66.0916,62.8921 -66.0628,62.877 -66.0348,62.8607 -66.0125,62.8591 -65.9771,62.8688 -65.9671,62.9091 -65.9925,62.9236 -66.0605,62.9501 -66.0774,62.9636 -66.1613,63.0452 -66.1432,63.0546 -66.0326,63.0096 -66.0203,62.9826 -65.9168,62.9152 -65.8938,62.9045 -65.8516,62.8969 -65.8227,62.9091 -65.7972,62.931 -65.7292,62.9531 -65.708,62.9505 -65.7817,62.8903 -65.8044,62.8786 -65.7809,62.8486 -65.6185,62.8406 -65.4794,62.7431 -65.4452,62.7347 -65.3092,62.7423 -65.2644,62.7665 -65.2123,62.7603 -65.2282,62.6129 -65.2148,62.5946 -65.2008,62.5894 -65.1978,62.6145 -65.1448,62.6148 -65.1655,62.5938 -65.0821,62.4928 -65.0609,62.4855 -65.0183,62.489 -64.9883,62.4952 -64.9446,62.5081 -64.8462,62.552 -64.8225,62.5717 -64.8548,62.6327 -64.9953,62.7557 -65.024,62.7681 -65.0612,62.7969 -65.1418,62.8827 -65.1249,62.8979 -65.1052,62.8802 -65.0348,62.8657 -64.878,62.8304 -64.7968,62.8019 -64.7774,62.7954 -64.7555,62.7904 -64.7289,62.7883 -64.643,62.7851 -64.6075,62.8016 -64.5046,62.8217 -64.5139,62.8398 -64.5503,62.8644 -64.5735,62.8753 -64.6448,62.9062 -64.6361,62.9696 -64.6276,63.0202 -64.6638,63.0487 -64.6849,63.0601 -64.7886,63.1047 -64.8175,63.1056 -64.8802,63.0963 -64.927,63.0957 -64.956,63.1262 -65.0159,63.2089 -64.9836,63.2045 -64.9481,63.1789 -64.919,63.1705 -64.7808,63.1588 -64.7819,63.2028 -64.82,63.2798 -64.8374,63.2915 -64.8993,63.3212 -64.973,63.4599 -64.9611,63.4836 -64.9419,63.4905 -64.9112,63.4957 -64.9251,63.5595 -65.0072,63.6369 -65.0276,63.6469 -65.0871,63.6759 -65.1532,63.7101 -65.1685,63.7314 -65.0761,63.7246 -65.032,63.6956 -65.0387,63.669 -64.9391,63.5917 -64.9183,63.5838 -64.8673,63.5741 -64.8364,63.565 -64.8146,63.5536 -64.7231,63.4328 -64.6997,63.3745 -64.6404,63.246 -64.5316,63.1712 -64.4082,63.1712 -64.3622,63.2089 -64.399,63.2129 -64.4534,63.2197 -64.4908,63.242 -64.4624,63.244 -64.3843,63.23 -64.3691,63.2499 -64.3735,63.3585 -64.3959,63.4365 -64.4026,63.4569 -64.4097,63.5028 -64.3917,63.5378 -64.3808,63.564 -64.4057,63.6013 -64.4325,63.6155 -64.4573,63.6261 -64.5564,63.6677 -64.6506,63.669 -64.8237,63.6966 -64.8572,63.745 -64.8466,63.7732 -64.754,63.8191 -64.6895,63.8445 -64.5672,63.8859 -64.5368,63.8871 -64.5065,63.8956 -64.5455,63.9554 -64.6726,63.9487 -64.8208,63.936 -64.964,63.9301 -65.0614,63.9413 -65.0836,63.9561 -65.0298,63.9592 -65.008,63.9624 -64.9705,63.9714 -64.925,63.9901 -65.0333,64.0589 -65.1359,64.0994 -65.1186,64.1261 -65.2991,64.2183 -65.3362,64.2233 -65.376,64.2228 -65.4522,64.2176 -65.4805,64.2136 -65.5278,64.2256 -65.429,64.2434 -65.3951,64.2438 -65.3693,64.2432 -65.3221,64.2406 -65.2793,64.2329 -65.2522,64.2255 -65.2142,64.2155 -65.1643,64.2116 -65.0716,64.2282 -64.9431,64.3547 -64.9493,64.3925 -65.0151,64.4315 -65.0778,64.455 -65.2454,64.4455 -65.2663,64.4415 -65.3758,64.3889 -65.3833,64.4181 -65.4435,64.4186 -65.513,64.4152 -65.5349,64.4122 -65.5715,64.4062 -65.5971,64.4245 -65.5838,64.4907 -65.5285,64.5202 -65.4496,64.5697 -65.4318,64.6512 -65.4685,64.6762 -65.5045,64.6925 -65.5262,64.6927 -65.5497,64.6829 -65.579,64.6446 -65.5768,64.6113 -65.6013,64.6384 -65.6088,64.664 -65.5896,64.6862 -65.5602,64.7079 -65.538,64.7297 -65.5919,64.7615 -65.7076,64.802 -65.8067,64.81 -65.8263,64.8012 -65.7633,64.646 -65.7208,64.6001 -65.7693,64.593 -65.8813,64.6192 -65.8777,64.7034 -65.889,64.7674 -65.9269,64.7523 -65.9547,64.7341 -65.9857,64.7009 -66.0096,64.667 -66.0186,64.6453 -66.0172,64.6173 -66.0363,64.602 -66.0842,64.608 -66.0874,64.6459 -66.0816,64.6758 -66.0632,64.6978 -66.0457,64.7161 -66.0166,64.7884 -66.0463,64.7997 -66.2027,64.8542 -66.2323,64.8404 -66.2517,64.832 -66.3581,64.8619 -66.3637,64.9023 -66.4006,64.9283 -66.4853,64.9495 -66.5341,64.957 -66.5613,64.9543 -66.5435,64.7957 -66.5092,64.6982 -66.5621,64.6815 -66.602,64.7423 -66.6063,64.7793 -66.596,64.8215 -66.6102,64.8825 -66.6346,64.9435 -66.6685,64.9797 -66.6201,65.0321 -66.5992,65.0988 -66.6229,65.0958 -66.702,65.056 -66.7572,65.0222 -66.9468,64.9761 -66.971,64.9787 -66.9358,65.0177 -66.9161,65.0252 -66.8917,65.0269 -66.8196,65.0364 -66.799,65.1511 -66.9298,65.137 -66.9437,65.1688 -66.9883,65.2291 -67.1506,65.2683 -67.1711,65.2545 -67.19,65.2363 -67.2721,65.2578 -67.1811,65.2767 -67.1208,65.2786 -67.0835,65.2767 -66.9876,65.2798 -66.9439,65.3102 -66.9262,65.3401 -66.9316,65.3747 -67.0141,65.386 -67.0479,65.377 -67.0865,65.3744 -67.2126,65.3765 -67.3205,65.4168 -67.1923,65.5021 -67.1217,65.5247 -67.1425,65.5579 -67.1883,65.5787 -67.26,65.5941 -67.293,65.5942 -67.3304,65.5919 -67.5164,65.569 -67.585,65.5561 -67.7238,65.5024 -67.786,65.456 -67.8056,65.443 -67.8869,65.4064 -67.8176,65.4806 -67.8425,65.491 -67.8684,65.4809 -67.876,65.4757 -67.8906,65.4761 -67.9222,65.4857 -67.8523,65.5369 -67.8057,65.5358 -67.7338,65.6069 -67.6846,65.6854 -67.7491,65.7225 -67.7868,65.7113 -67.8659,65.6957 -67.8916,65.6932 -68.0,65.7139 -68.0,63.4877 -67.9984,63.4871 4,-4.0,Canada -67.9984,65.7435 -68.0,65.7599 -68.0,65.7396 -67.9984,65.7435 8,-4.0,Canada -67.9984,65.8814 -67.9913,65.8804 -67.9172,65.9118 -67.9094,65.9817 -67.9886,66.0235 -68.0,66.0274 -68.0,65.8816 -67.9984,65.8814 993,-4.0,Canada -67.9984,66.0464 -67.9926,66.0436 -67.8887,65.98 -67.8913,65.9133 -67.8014,65.8254 -67.7774,65.8165 -67.7276,65.8048 -67.6871,65.7982 -67.6585,65.7944 -67.6038,65.8112 -67.2936,65.8227 -67.053,65.8297 -67.1076,65.8955 -67.028,65.9529 -67.145,65.9998 -67.2634,66.0432 -67.3177,66.0615 -67.4333,66.1008 -67.535,66.145 -67.5871,66.1772 -67.5674,66.2001 -67.6204,66.272 -67.7403,66.3746 -67.7675,66.3841 -67.7986,66.3922 -67.8504,66.4238 -67.8137,66.4308 -67.785,66.4321 -67.6983,66.4037 -67.6813,66.3822 -67.5836,66.3542 -67.553,66.3515 -67.4963,66.3411 -67.4655,66.335 -67.4268,66.3246 -67.3887,66.2985 -67.3574,66.2733 -67.3147,66.2349 -67.2694,66.2112 -67.1608,66.1927 -67.1456,66.1916 -67.1212,66.2174 -67.0973,66.2206 -67.056,66.2146 -67.0258,66.2153 -66.995,66.2256 -67.0555,66.27 -67.1039,66.2752 -67.1517,66.2853 -67.1766,66.2928 -67.2413,66.3155 -67.2667,66.3429 -67.2063,66.3392 -67.1548,66.3155 -67.0547,66.2809 -67.0301,66.2811 -67.0022,66.2957 -67.0092,66.3566 -67.1516,66.4384 -67.2415,66.4613 -67.2792,66.4576 -67.3623,66.461 -67.563,66.4716 -67.596,66.4847 -67.5017,66.4965 -67.443,66.4913 -67.377,66.4894 -67.3259,66.4946 -67.2668,66.5034 -67.197,66.5125 -67.0562,66.4345 -67.055,66.4091 -66.9889,66.4015 -66.9688,66.4021 -66.7507,66.4824 -66.7715,66.4941 -66.8137,66.508 -66.8795,66.531 -66.9175,66.5515 -66.8958,66.5597 -66.8628,66.5542 -66.8355,66.5446 -66.7155,66.4992 -66.67,66.4478 -66.6853,66.3756 -66.6317,66.297 -66.5921,66.2867 -66.48,66.2875 -66.462,66.3032 -66.3366,66.3306 -66.3086,66.3209 -66.3652,66.3044 -66.4013,66.2942 -66.4366,66.2784 -66.3955,66.1474 -66.3575,66.1211 -66.2671,66.1173 -66.2366,66.142 -66.1165,66.1587 -66.0565,66.1567 -66.0663,66.1117 -66.0086,66.0498 -65.9398,66.0373 -65.8265,66.0252 -65.7934,66.0314 -65.7105,66.0524 -65.5663,66.0958 -65.4714,66.157 -65.4323,66.1997 -65.4242,66.2383 -65.3475,66.3011 -65.338,66.259 -65.4125,66.16 -65.4312,66.1434 -65.5107,66.0843 -65.5415,66.0743 -65.6529,66.043 -65.7798,66.0066 -65.83,65.9559 -65.7966,65.8734 -65.7431,65.865 -65.6946,65.8702 -65.2578,65.8922 -64.9941,65.9547 -64.8096,65.9955 -64.7224,66.032 -64.7257,66.0617 -64.7085,66.1101 -64.6609,66.1504 -64.5851,66.1905 -64.3336,66.2593 -64.3128,66.2611 -64.2314,66.2594 -64.2511,66.2407 -64.2744,66.2324 -64.3208,66.2202 -64.3493,66.213 -64.4745,66.1757 -64.5856,66.1373 -64.6194,66.1021 -64.6906,65.9616 -64.6339,65.905 -64.6067,65.8898 -64.6328,65.8833 -64.6702,65.8866 -64.7156,65.8965 -64.7584,65.9103 -64.7977,65.9189 -64.8234,65.917 -64.9189,65.8977 -65.0134,65.8767 -65.2252,65.8197 -65.3177,65.7557 -65.3698,65.6663 -65.3582,65.6533 -65.3284,65.6587 -65.3173,65.5987 -65.2385,65.5789 -65.0353,65.5743 -65.0105,65.587 -64.9784,65.6076 -64.9358,65.6254 -64.8936,65.6345 -64.8661,65.6389 -64.8421,65.6413 -64.7764,65.6464 -64.6713,65.6393 -64.7717,65.626 -64.8018,65.627 -64.854,65.621 -64.9743,65.5842 -64.9757,65.5603 -64.995,65.5509 -65.0229,65.548 -65.0574,65.5475 -65.0868,65.5477 -65.121,65.5478 -65.1441,65.5491 -65.1705,65.5457 -65.2046,65.4873 -65.1855,65.4689 -65.0221,65.4572 -64.9795,65.4589 -64.8532,65.4677 -64.822,65.4821 -64.7638,65.5405 -64.7419,65.5625 -64.7182,65.5742 -64.6929,65.579 -64.6645,65.5796 -64.6379,65.5778 -64.5812,65.5685 -64.6021,65.5605 -64.6371,65.5577 -64.7067,65.5236 -64.7239,65.5012 -64.7993,65.4426 -64.9518,65.4184 -64.9894,65.416 -65.0311,65.4045 -65.0111,65.3448 -64.9367,65.2981 -64.8785,65.2852 -64.8584,65.2963 -64.8489,65.3205 -64.7286,65.3406 -64.7088,65.334 -64.6856,65.3318 -64.6653,65.3335 -64.5657,65.3458 -64.4223,65.3759 -64.2894,65.3978 -64.3095,65.3436 -64.3406,65.3373 -64.3789,65.3438 -64.458,65.348 -64.4795,65.3444 -64.7736,65.2549 -64.7382,65.258 -64.6768,65.2654 -64.5605,65.253 -64.6252,65.232 -64.6587,65.2316 -64.6992,65.237 -64.7261,65.2329 -64.7809,65.22 -64.7629,65.1891 -64.7348,65.1752 -64.6783,65.1514 -64.6537,65.155 -64.633,65.1686 -64.5891,65.1408 -64.5263,65.0846 -64.5119,65.0686 -64.4826,65.0604 -64.4422,65.0411 -64.4218,65.013 -64.3867,65.0335 -64.3364,65.104 -64.3268,65.1258 -64.3315,65.1718 -64.3443,65.1962 -64.3325,65.2135 -64.3022,65.2451 -64.1531,65.3435 -64.1103,65.3453 -64.1243,65.3068 -64.1763,65.2713 -64.2047,65.2554 -64.2271,65.2434 -64.2704,65.2129 -64.2784,65.1942 -64.2671,65.1256 -64.2485,65.0977 -64.2108,65.08 -64.1786,65.0782 -64.0842,65.1174 -64.0022,65.1065 -64.0485,65.0856 -64.0873,65.0699 -64.1422,65.0162 -64.0012,64.9639 -63.8209,65.0193 -63.7571,65.0046 -63.7428,64.9613 -63.7224,64.9495 -63.6971,64.9465 -63.6747,64.9495 -63.6553,64.9533 -63.6247,64.9644 -63.6052,64.968 -63.5646,64.9677 -63.5377,64.9563 -63.5932,64.9498 -63.6998,64.9308 -63.697,64.9038 -63.6209,64.8815 -63.5332,64.859 -63.5272,64.8312 -63.4207,64.8067 -63.4015,64.8893 -63.3382,64.9373 -63.2979,64.9679 -63.2506,65.0295 -63.2922,65.0638 -63.3453,65.1148 -63.2979,65.1478 -63.2091,65.2165 -63.3565,65.3233 -63.4362,65.354 -63.4998,65.374 -63.5242,65.3886 -63.4484,65.3902 -63.4257,65.3868 -63.3997,65.3808 -63.3715,65.3702 -63.3417,65.3577 -63.275,65.3441 -63.1751,65.3581 -63.2354,65.3815 -63.2649,65.3903 -63.3054,65.4024 -63.4027,65.4303 -63.4844,65.4538 -63.4662,65.5082 -63.4342,65.5047 -63.4137,65.4899 -63.4003,65.4725 -63.3593,65.4462 -63.3361,65.4407 -63.2307,65.4568 -63.2093,65.4747 -63.1962,65.515 -63.2244,65.5354 -63.2443,65.5482 -63.2722,65.5519 -63.3051,65.5495 -63.3256,65.5475 -63.3769,65.5486 -63.5495,65.5671 -63.5724,65.5734 -63.5904,65.5958 -63.3277,65.5984 -63.2785,65.5947 -63.2409,65.5872 -63.2406,65.6113 -63.2517,65.638 -63.3462,65.7502 -63.3116,65.7671 -63.1663,65.6265 -63.0788,65.5547 -63.04,65.5461 -63.0108,65.5619 -62.907,65.5545 -62.8838,65.5465 -62.8455,65.4985 -62.8308,65.5027 -62.7689,65.553 -62.7888,65.6379 -62.8032,65.6525 -62.827,65.6678 -62.8026,65.6712 -62.7773,65.6639 -62.7579,65.6436 -62.7358,65.6028 -62.7333,65.5587 -62.6675,65.513 -62.6329,65.5043 -62.5232,65.5045 -62.497,65.5263 -62.481,65.5499 -62.4682,65.5847 -62.5367,65.6185 -62.5639,65.6266 -62.6,65.6291 -62.6673,65.6275 -62.7034,65.6696 -62.5486,65.6535 -62.4912,65.6411 -62.4586,65.642 -62.4445,65.672 -62.4637,65.6861 -62.5326,65.7094 -62.602,65.7262 -62.6268,65.7307 -62.7461,65.8116 -62.7338,65.8283 -62.7026,65.8172 -62.6808,65.8071 -62.6261,65.7708 -62.5965,65.7451 -62.5581,65.7338 -62.4858,65.7193 -62.3872,65.709 -62.3529,65.7082 -62.3159,65.7111 -62.1916,65.7255 -62.1952,65.7483 -62.2649,65.8603 -62.2856,65.8837 -62.3935,65.9184 -62.5478,65.9327 -62.6228,65.9278 -62.6465,65.9268 -62.6664,65.928 -62.6941,65.9352 -62.7147,65.9443 -62.7415,65.9605 -62.7627,65.9857 -62.8786,66.0339 -62.9115,66.0302 -62.9331,66.0355 -62.9138,66.047 -62.886,66.0556 -62.8373,66.065 -62.8112,66.0645 -62.7778,66.0576 -62.7512,66.0424 -62.7358,66.0247 -62.7285,66.0023 -62.7109,65.9779 -62.6775,65.9588 -62.6421,65.9501 -62.6142,65.9554 -62.5688,65.9592 -62.4068,65.9518 -62.272,65.9302 -62.1816,65.891 -62.1656,65.8973 -62.067,65.9286 -62.0438,65.9262 -62.0153,65.9177 -61.9631,65.9171 -61.8344,65.9384 -61.9119,66.0178 -62.0546,66.0652 -62.2402,66.0918 -62.3612,66.1169 -62.4765,66.1217 -62.52,66.1164 -62.5543,66.1136 -62.5832,66.1175 -62.6777,66.1545 -62.7558,66.2502 -62.7311,66.2507 -62.6936,66.2389 -62.6534,66.2215 -62.6536,66.1982 -62.6272,66.1599 -62.5466,66.1321 -62.5163,66.1336 -62.4948,66.1379 -62.2669,66.191 -62.1934,66.2194 -62.2106,66.2323 -62.351,66.2861 -62.5025,66.3042 -62.546,66.3098 -62.5811,66.3248 -62.499,66.3423 -62.4382,66.3443 -62.329,66.3399 -62.2913,66.3372 -62.1353,66.3252 -62.0958,66.3147 -62.1029,66.2891 -62.0827,66.2369 -61.8029,66.2004 -61.7516,66.1999 -61.5397,66.2412 -61.3399,66.2861 -61.4259,66.3279 -61.4485,66.3317 -61.6291,66.3239 -61.8079,66.317 -61.8515,66.3287 -61.8309,66.3402 -61.7278,66.3624 -61.6054,66.3674 -61.5092,66.376 -61.4885,66.3793 -61.4538,66.3973 -61.6279,66.5044 -61.6665,66.5263 -61.704,66.5373 -61.824,66.5618 -61.8587,66.5638 -61.8917,66.5566 -61.9238,66.5409 -61.9967,66.5424 -61.8888,66.587 -61.8236,66.5927 -61.6037,66.5602 -61.5654,66.5442 -61.5432,66.5321 -61.5107,66.5082 -61.4951,66.4782 -61.4661,66.465 -61.4229,66.4634 -61.336,66.4592 -61.3225,66.4545 -61.2996,66.4755 -61.2711,66.4928 -61.2217,66.4873 -61.1752,66.5093 -61.1394,66.5418 -61.1647,66.5856 -61.1886,66.603 -61.4863,66.7862 -61.6052,66.8488 -61.6228,66.8634 -61.7176,66.8847 -61.7383,66.8858 -61.786,66.886 -61.8232,66.8813 -61.8931,66.8216 -61.9447,66.8228 -61.9764,66.8304 -61.9222,66.9024 -61.8786,66.9488 -61.8983,66.9589 -61.9266,66.9641 -61.9734,66.9696 -62.1509,66.9534 -62.1644,66.9301 -62.1516,66.8943 -62.15,66.8686 -62.2189,66.8488 -62.273,66.8444 -62.2946,66.839 -62.3087,66.7996 -62.2946,66.7618 -62.2345,66.7338 -62.1653,66.6756 -62.1872,66.6447 -62.2711,66.7032 -62.2748,66.7247 -62.3916,66.8262 -62.4213,66.8468 -62.445,66.8613 -62.4713,66.8669 -62.5055,66.8666 -62.6051,66.86 -62.634,66.8426 -62.6393,66.8229 -62.6423,66.751 -62.6187,66.7295 -62.6063,66.7119 -62.6916,66.6001 -62.7223,66.573 -62.7806,66.5624 -62.7392,66.6569 -62.7057,66.6938 -62.6919,66.7372 -62.7133,66.8751 -62.743,66.8798 -62.8107,66.8819 -62.8389,66.8778 -63.095,66.8148 -63.1898,66.7327 -63.2469,66.6499 -63.2817,66.6189 -63.3191,66.6249 -63.3064,66.6435 -63.2861,66.6939 -63.278,66.725 -63.3041,66.8201 -63.3348,66.8237 -63.3537,66.8152 -63.3655,66.7885 -63.3513,66.7547 -63.4129,66.7295 -63.4626,66.7193 -63.4941,66.7176 -63.5224,66.7181 -63.643,66.7339 -63.5946,66.7386 -63.5678,66.738 -63.5148,66.7395 -63.4844,66.7427 -63.4629,66.7471 -63.4334,66.7586 -63.4264,66.7881 -63.4271,66.8114 -63.3901,66.8261 -63.3394,66.8359 -63.3061,66.8409 -63.2321,66.8498 -63.1904,66.8553 -63.1478,66.865 -63.0986,66.8897 -63.0904,66.913 -63.0924,66.9357 -63.1271,66.9843 -63.1486,67.0068 -63.1442,67.0284 -63.1071,67.0457 -63.0601,67.058 -63.0399,67.0619 -63.0038,67.0677 -62.9705,67.0702 -62.9453,67.0738 -62.9102,67.084 -62.8931,67.094 -62.8423,67.1444 -62.8651,67.1934 -62.8883,67.2105 -62.9093,67.2205 -62.9795,67.2446 -63.0066,67.2456 -63.0296,67.2427 -63.1456,67.2224 -63.168,67.2121 -63.2133,67.1881 -63.2866,67.1193 -63.2875,67.0978 -63.2685,67.0666 -63.3663,67.0004 -63.4044,66.9859 -63.4348,66.9774 -63.4697,66.9724 -63.5136,66.9685 -63.5583,66.9573 -63.6113,66.9357 -63.6359,66.9194 -63.6428,66.8893 -63.6714,66.9076 -63.6485,66.9326 -63.6065,66.9595 -63.5867,66.9683 -63.5417,66.9785 -63.5171,66.982 -63.4781,66.9891 -63.4029,67.0173 -63.3215,67.0894 -63.3296,67.1392 -63.423,67.1511 -63.6705,67.1544 -63.7303,67.1404 -63.7908,67.1104 -63.8341,67.0981 -63.8702,67.0941 -63.9548,67.0946 -64.0974,67.0788 -64.3419,67.0498 -64.3735,67.0444 -64.394,67.0391 -64.4144,67.0333 -64.4576,67.0135 -64.4736,67.0001 -64.4851,66.9692 -64.4857,66.949 -64.4992,66.9271 -64.5274,66.9189 -64.5637,66.9243 -64.5541,67.0007 -64.5249,67.028 -64.4788,67.0473 -64.4462,67.0583 -64.4123,67.0673 -64.3685,67.0764 -64.3345,67.0822 -64.0875,67.1164 -63.9561,67.1224 -63.9185,67.1191 -63.885,67.1253 -63.8636,67.1395 -63.8435,67.1666 -63.8389,67.1903 -63.8782,67.1897 -63.9822,67.1818 -64.0316,67.1762 -64.1001,67.1662 -64.1344,67.1559 -64.1548,67.1528 -64.2177,67.1496 -64.292,67.1426 -64.3334,67.1439 -64.5223,67.132 -64.5829,67.1151 -64.6322,67.1049 -64.6689,67.1188 -64.6452,67.1336 -64.5906,67.1437 -64.5349,67.1531 -64.4104,67.171 -64.3759,67.1695 -64.2863,67.1619 -64.259,67.1613 -64.2232,67.1648 -64.1829,67.1745 -64.1125,67.2087 -64.1508,67.2147 -64.2115,67.2121 -64.2394,67.2118 -64.2689,67.2135 -64.3083,67.2174 -64.5541,67.2418 -64.5939,67.2469 -64.6582,67.2697 -64.6148,67.2719 -64.3969,67.2523 -64.2068,67.2341 -64.0846,67.228 -64.0489,67.2268 -63.952,67.2278 -63.9229,67.226 -63.8903,67.2227 -63.8051,67.2074 -63.7759,67.2162 -63.8184,67.3243 -63.8711,67.3703 -63.915,67.3784 -63.9535,67.3818 -63.9843,67.38 -64.012,67.3758 -64.0339,67.3713 -64.0644,67.367 -64.1568,67.3621 -64.2234,67.3681 -64.2513,67.3724 -64.2765,67.3785 -64.299,67.39 -64.2786,67.3916 -64.2535,67.3885 -64.2103,67.3843 -64.1431,67.3795 -64.1116,67.3812 -64.0321,67.3967 -64.0065,67.403 -63.9086,67.4426 -63.937,67.5204 -64.1662,67.6457 -64.1929,67.6435 -64.2206,67.6201 -64.2467,67.6116 -64.3201,67.6069 -64.3813,67.5999 -64.4468,67.5881 -64.4958,67.5761 -64.4827,67.5923 -64.4628,67.6033 -64.4436,67.6108 -64.3319,67.6248 -64.3041,67.6244 -64.268,67.6236 -64.2319,67.6743 -64.3724,67.7209 -64.4331,67.7335 -64.4769,67.74 -64.518,67.7423 -64.6153,67.7342 -64.6272,67.6761 -64.6403,67.6159 -64.6647,67.6045 -64.6854,67.602 -64.7242,67.6034 -64.6887,67.6197 -64.6723,67.6563 -64.6804,67.6926 -64.7861,67.7033 -64.9914,67.6305 -65.0153,67.596 -65.0347,67.5492 -65.068,67.5653 -65.056,67.6151 -65.016,67.648 -64.9856,67.6603 -64.9494,67.663 -64.92,67.6668 -64.8757,67.6965 -64.882,67.7345 -64.8794,67.7761 -64.8067,67.8257 -64.7114,67.8482 -64.5988,67.882 -64.5905,67.9022 -64.8368,67.9635 -64.8647,67.9687 -64.9114,67.9625 -65.0399,67.9273 -65.0104,67.8996 -65.0352,67.8793 -65.065,67.8676 -65.0988,67.8581 -65.1559,67.8475 -65.287,67.8115 -65.414,67.6944 -65.3652,67.6689 -65.3262,67.6557 -65.2663,67.6369 -65.2379,67.621 -65.1921,67.5097 -65.2106,67.5074 -65.2245,67.5102 -65.2486,67.5398 -65.2623,67.5635 -65.269,67.5836 -65.2836,67.6039 -65.3109,67.6231 -65.3373,67.6334 -65.381,67.6467 -65.4279,67.6621 -65.4553,67.6768 -65.4714,67.7039 -65.4294,67.7244 -65.4084,67.7359 -65.3862,67.7539 -65.3239,67.8422 -65.3069,67.9021 -65.326,67.9096 -65.5468,67.9055 -65.6795,67.8777 -65.661,67.8518 -65.6267,67.8303 -65.6623,67.7791 -65.6943,67.7679 -65.7314,67.7577 -65.7887,67.7462 -65.8151,67.7331 -65.8163,67.7121 -65.801,67.6855 -65.8129,67.6364 -65.8238,67.6036 -65.8645,67.5427 -65.8837,67.5567 -65.8911,67.6356 -65.8694,67.7227 -65.8361,67.7616 -65.8479,67.8299 -65.8941,67.8658 -65.8495,67.8969 -65.8222,67.9096 -65.7958,67.9256 -65.7166,67.9872 -65.726,68.0326 -65.7873,68.073 -65.8185,68.0541 -65.8103,68.0056 -65.8054,67.9592 -65.8557,67.9373 -65.9899,67.8919 -66.0822,67.8735 -66.1076,67.8759 -66.1341,67.8696 -66.1572,67.8515 -66.1806,67.8243 -66.194,67.8011 -66.2076,67.7744 -66.218,67.735 -66.2627,67.7247 -66.4224,67.7567 -66.5146,67.7728 -66.5558,67.7767 -66.5956,67.7893 -66.5331,67.7938 -66.4895,67.7899 -66.4551,67.7859 -66.3898,67.7756 -66.2649,67.8066 -66.2057,67.8699 -66.1764,67.8956 -66.1554,67.9047 -66.1197,67.914 -66.0494,67.927 -66.1067,67.9909 -66.1271,68.0 -66.1613,67.998 -66.1869,67.9923 -66.2304,67.9846 -66.2506,67.9824 -66.2986,67.9812 -66.3262,67.9932 -66.2812,67.9999 -66.2408,67.9945 -66.2191,67.9998 -66.1786,68.0366 -66.374,68.0613 -66.4119,68.0609 -66.4705,68.0474 -66.4857,68.0164 -66.4937,67.9831 -66.5075,67.9287 -66.5663,67.8986 -66.5941,67.8952 -66.5739,67.9198 -66.5428,67.9494 -66.5306,68.0346 -66.5408,68.053 -66.5617,68.0549 -66.6077,68.0446 -66.6957,68.0087 -66.7846,67.9592 -66.8063,67.9269 -66.8172,67.9344 -66.8315,67.9568 -66.8125,67.985 -66.7567,68.0026 -66.712,68.0281 -66.6398,68.1206 -66.6358,68.1547 -66.6951,68.1589 -66.7249,68.1626 -66.7898,68.1753 -66.8362,68.1903 -66.862,68.2053 -66.9167,68.2036 -66.9983,68.1926 -67.0375,68.1826 -67.1441,68.1473 -67.1343,68.11 -67.1644,68.07 -67.2124,68.0481 -67.2326,68.0406 -67.261,68.0379 -67.2965,68.0409 -67.332,68.0465 -67.403,68.0608 -67.4336,68.0678 -67.4565,68.0766 -67.4326,68.0818 -67.3793,68.0766 -67.3362,68.068 -67.3151,68.0624 -67.2799,68.0569 -67.2515,68.0582 -67.2297,68.0667 -67.2006,68.0814 -67.1859,68.0965 -67.1958,68.1161 -67.1955,68.1428 -67.182,68.1592 -67.1623,68.1717 -67.0933,68.2042 -67.0109,68.2127 -66.8783,68.2263 -66.9366,68.2436 -66.9889,68.2534 -67.041,68.262 -67.0964,68.2702 -67.2537,68.2657 -67.3518,68.2344 -67.3948,68.203 -67.4101,68.1723 -67.4374,68.1639 -67.5453,68.1551 -67.5125,68.1659 -67.4739,68.1711 -67.4385,68.1804 -67.4408,68.2207 -67.4554,68.2355 -67.6062,68.2322 -67.6761,68.198 -67.6885,68.1758 -67.7288,68.1748 -67.7256,68.2089 -67.7069,68.2225 -67.6892,68.233 -67.6677,68.2412 -67.6385,68.2498 -67.6011,68.2558 -67.4964,68.2575 -67.4528,68.2601 -67.3523,68.2732 -67.3134,68.2804 -67.2719,68.2925 -67.2374,68.3031 -67.1445,68.3082 -67.0961,68.3079 -66.9947,68.2935 -66.9699,68.2827 -66.9341,68.2729 -66.9073,68.2683 -66.8705,68.2667 -66.8024,68.2839 -66.773,68.3184 -66.6417,68.3383 -66.5832,68.3415 -66.5615,68.3487 -66.654,68.3782 -66.6803,68.3776 -66.7667,68.3661 -66.9822,68.3862 -66.9632,68.3706 -66.9656,68.3265 -67.0153,68.3187 -67.1897,68.3282 -67.1656,68.3357 -67.0763,68.3457 -67.0846,68.3898 -67.1834,68.4086 -67.2835,68.4065 -67.3682,68.3954 -67.4078,68.3572 -67.4084,68.327 -67.452,68.294 -67.4605,68.2913 -67.4759,68.2946 -67.48,68.4091 -67.4001,68.4184 -67.3634,68.4269 -67.3536,68.445 -67.3894,68.462 -67.5003,68.4747 -67.5252,68.4739 -67.6657,68.4433 -67.7232,68.4221 -67.7766,68.4466 -67.9214,68.458 -67.9925,68.4844 -68.0,68.4857 -68.0,66.0472 -67.9984,66.0464 6,-4.0,Canada -67.9984,68.5405 -67.9464,68.5404 -67.903,68.5912 -68.0,68.6091 -68.0,68.5405 -67.9984,68.5405 16,-4.0,Canada -67.9984,68.7227 -67.9314,68.7137 -67.8,68.6896 -67.7707,68.6859 -67.7211,68.6831 -67.6675,68.685 -67.6299,68.6942 -67.717,68.7171 -67.7423,68.7206 -67.7726,68.7201 -67.8194,68.7226 -67.8635,68.7282 -67.9887,68.7487 -68.0,68.7523 -68.0,68.7229 -67.9984,68.7227 12,-4.0,Canada -67.9984,68.7822 -67.9842,68.7793 -67.9374,68.7739 -67.8612,68.7663 -67.8421,68.766 -67.8301,68.773 -67.8989,68.8538 -67.9278,68.858 -67.9708,68.8587 -68.0,68.8583 -68.0,68.7825 -67.9984,68.7822 9,-4.0,Canada -67.9984,68.8951 -67.9134,68.8847 -67.8843,68.8825 -67.8297,68.884 -67.574,68.9372 -67.9435,69.0371 -68.0,69.0502 -68.0,68.8953 -67.9984,68.8951 8,-4.0,Canada -67.9984,69.1096 -67.9835,69.1086 -67.9516,69.1149 -67.9366,69.1319 -67.9978,69.1704 -68.0,69.1712 -68.0,69.1097 -67.9984,69.1096 44,-4.0,Canada -67.9984,69.2079 -67.7185,69.1326 -67.5314,69.0803 -67.5037,69.0777 -67.3688,69.0687 -67.3178,69.0724 -67.2765,69.0874 -67.2343,69.0952 -66.989,69.0935 -66.8534,69.0888 -66.8158,69.0842 -66.7772,69.0704 -66.7,69.0481 -66.6172,69.0398 -66.5824,69.0524 -66.5466,69.0727 -66.5205,69.094 -66.5038,69.1143 -66.505,69.1413 -66.5457,69.1868 -66.6272,69.2402 -66.6466,69.2496 -66.7772,69.2895 -67.036,69.3649 -67.0649,69.3716 -67.1133,69.3777 -67.1602,69.3775 -67.2875,69.3737 -67.3305,69.3735 -67.3662,69.3766 -67.4165,69.3824 -67.4591,69.3883 -67.6532,69.3929 -67.6731,69.3874 -67.6944,69.3796 -67.7219,69.3689 -67.7468,69.3649 -67.7801,69.3643 -67.7997,69.3649 -67.8358,69.3677 -67.8789,69.3766 -68.0,69.4015 -68.0,69.2083 -67.9984,69.2079 30,-4.0,Canada -67.9984,69.6434 -67.9402,69.6658 -67.8572,69.683 -67.6637,69.6885 -67.6198,69.6889 -67.456,69.6602 -67.3538,69.6417 -67.2898,69.6289 -67.2529,69.6242 -67.2255,69.6244 -67.048,69.6318 -66.9824,69.6368 -67.0046,69.7235 -67.0735,69.85 -67.0958,69.8678 -67.2299,69.9569 -67.2598,69.9754 -67.3784,70.0423 -67.4067,70.0574 -67.4334,70.07 -67.4974,70.0945 -67.5237,70.102 -67.5465,70.1106 -67.5896,70.1271 -67.6182,70.152 -67.6502,70.169 -67.8874,70.2093 -68.0,70.1922 -68.0,69.6428 -67.9984,69.6434 3130,-5.0,Canada -84.9979,76.1877 -84.992,76.1873 -84.9347,76.1721 -84.6891,76.1783 -84.6591,76.1806 -84.5374,76.1954 -84.4781,76.1988 -84.2953,76.1977 -84.1831,76.1957 -84.1455,76.2076 -84.1596,76.2224 -84.198,76.2303 -84.4884,76.282 -84.6642,76.3035 -84.7207,76.3139 -84.7818,76.3477 -84.81,76.4056 -84.7818,76.4664 -84.7493,76.4739 -84.7286,76.4731 -84.7089,76.469 -84.6131,76.4309 -84.5461,76.3708 -84.4051,76.3278 -84.3802,76.323 -84.3315,76.3205 -84.2795,76.3193 -84.25,76.3207 -83.9982,76.335 -83.9644,76.3444 -83.9416,76.38 -83.9614,76.3937 -83.982,76.4019 -84.0089,76.4237 -83.9773,76.4627 -83.954,76.4995 -83.9715,76.5108 -84.0166,76.5195 -84.0757,76.5449 -84.0437,76.5485 -84.0206,76.5462 -83.8987,76.5288 -83.8707,76.5224 -83.8392,76.5114 -83.8225,76.4762 -83.8196,76.4469 -83.8012,76.4298 -83.7798,76.4207 -83.7465,76.4118 -83.6557,76.393 -83.5011,76.3432 -83.464,76.3226 -83.3832,76.3152 -83.2041,76.3028 -83.0501,76.2979 -83.0213,76.299 -82.9882,76.3022 -82.9545,76.3124 -82.9715,76.397 -83.0134,76.4673 -83.0411,76.4793 -83.0703,76.4866 -83.0937,76.4943 -83.1145,76.5033 -83.2605,76.5674 -83.2806,76.5965 -83.2587,76.6144 -83.1666,76.6493 -83.1261,76.6373 -83.1456,76.6216 -83.1008,76.5549 -82.9614,76.5105 -82.8766,76.4739 -82.8438,76.4307 -82.8277,76.3856 -82.8616,76.364 -82.8272,76.3418 -82.7622,76.3195 -82.5992,76.2894 -82.4709,76.2784 -82.2497,76.288 -82.1156,76.2873 -82.0605,76.2873 -82.0277,76.2902 -81.9767,76.3015 -81.9387,76.311 -81.8989,76.3368 -81.9199,76.3551 -81.9562,76.3779 -81.9858,76.4178 -81.9635,76.434 -81.9415,76.4383 -81.8539,76.4502 -81.8746,76.4616 -81.9738,76.4839 -82.0743,76.5003 -82.1801,76.514 -82.2001,76.5188 -82.2255,76.527 -82.3036,76.5611 -82.3281,76.5946 -82.3199,76.6138 -82.4038,76.657 -82.4616,76.6791 -82.4998,76.692 -82.5254,76.7031 -82.4876,76.7095 -82.4613,76.7029 -82.3516,76.6697 -82.2403,76.5958 -82.2071,76.5756 -82.1424,76.5482 -82.1017,76.5342 -82.0483,76.5254 -81.9657,76.5194 -81.9112,76.519 -81.8815,76.5197 -81.8469,76.522 -81.6594,76.5516 -81.6237,76.5622 -81.5949,76.5713 -81.5522,76.567 -81.5806,76.5494 -81.6178,76.5404 -81.64,76.5367 -81.7195,76.5229 -81.8155,76.4982 -81.753,76.4739 -81.7988,76.4449 -81.8465,76.4123 -81.8164,76.4029 -81.6478,76.3752 -81.5569,76.3662 -81.4851,76.3615 -81.4057,76.3603 -81.2908,76.3601 -81.2615,76.3608 -81.23,76.3626 -81.1804,76.3688 -81.1581,76.3729 -81.114,76.3841 -81.0735,76.4017 -81.0442,76.4247 -80.9584,76.4102 -80.762,76.3743 -80.5498,76.3132 -80.5352,76.2902 -80.5552,76.2665 -80.6757,76.2039 -80.8127,76.1447 -80.868,76.1043 -80.8551,76.0248 -80.8264,76.0205 -80.7232,76.0372 -80.4773,76.049 -80.4371,76.0527 -80.4125,76.0615 -80.4012,76.0794 -80.3801,76.0839 -80.2809,76.0887 -80.194,76.089 -80.1642,76.0971 -80.1455,76.1076 -80.1124,76.1206 -80.0675,76.1273 -80.0355,76.1303 -80.0049,76.132 -79.9781,76.1328 -79.9529,76.1319 -79.9311,76.129 -79.9038,76.1184 -79.882,76.115 -79.8622,76.1158 -79.8364,76.119 -79.6997,76.1457 -79.581,76.1705 -79.3723,76.2007 -79.3492,76.2036 -79.3012,76.2065 -79.2767,76.206 -79.2215,76.1984 -79.1906,76.1931 -79.1421,76.1887 -79.1151,76.1882 -79.0895,76.1893 -79.0367,76.204 -79.0405,76.2341 -78.9698,76.2948 -78.9469,76.3014 -78.9155,76.3034 -78.8664,76.3028 -78.8379,76.3044 -78.78,76.314 -78.746,76.3258 -78.7187,76.339 -78.6772,76.3704 -78.6629,76.3887 -78.6445,76.4124 -78.5578,76.4631 -78.527,76.4634 -78.4037,76.4551 -78.3899,76.4388 -78.3742,76.3977 -78.3892,76.3826 -78.33,76.3555 -78.2965,76.3482 -78.2509,76.3431 -78.2212,76.3437 -78.213,76.3448 -78.149,76.3515 -78.0344,76.3979 -77.9839,76.4302 -77.96,76.4539 -77.8713,76.4987 -77.7979,76.5199 -77.7625,76.5234 -77.7249,76.5205 -77.6961,76.5193 -77.6397,76.5205 -77.6191,76.5241 -77.5884,76.5316 -77.555,76.5453 -77.5891,76.575 -77.5615,76.6771 -77.6657,76.8396 -77.853,76.9057 -77.9148,76.9095 -77.9709,76.9091 -78.0664,76.9043 -78.0939,76.9015 -78.1175,76.8976 -78.158,76.8893 -78.3313,76.8248 -78.3387,76.8001 -78.4901,76.7129 -78.5222,76.7129 -78.6887,76.7298 -78.683,76.7767 -78.6502,76.8136 -78.7265,76.8253 -78.7532,76.8262 -78.778,76.8259 -78.9647,76.8193 -79.0159,76.815 -79.0889,76.8077 -79.1172,76.8082 -79.1581,76.8214 -79.1551,76.8424 -79.1364,76.8533 -79.0998,76.8682 -78.9032,76.943 -78.7925,76.9788 -78.7753,76.9897 -78.8066,77.0465 -78.9861,77.0989 -79.0243,77.1075 -79.1927,77.1219 -79.2139,77.1235 -79.4007,77.1323 -79.4282,77.1334 -79.4933,77.1291 -79.5528,77.1204 -79.7029,77.0959 -79.7806,77.0795 -79.8398,77.0598 -79.8618,77.0502 -79.8942,77.0343 -79.9266,77.0121 -79.9743,76.9981 -80.1043,76.966 -80.1402,76.9607 -80.1707,76.9688 -80.0218,77.0424 -79.9116,77.0731 -79.8822,77.0875 -79.9122,77.096 -79.9723,77.0985 -80.0249,77.1014 -80.0464,77.1027 -80.2918,77.124 -80.3577,77.1315 -80.7238,77.1602 -80.9122,77.1634 -81.1576,77.1205 -81.3699,77.0864 -81.397,77.0829 -81.4685,77.0685 -81.5491,77.0468 -81.5588,77.0468 -81.5962,77.0518 -81.6339,77.0622 -81.6671,77.0833 -81.7399,77.1473 -81.8041,77.1546 -81.8423,77.1618 -81.9188,77.187 -81.852,77.205 -81.7146,77.191 -81.6357,77.1812 -81.3,77.1916 -81.1872,77.1953 -81.0461,77.204 -80.9296,77.2223 -80.9376,77.2459 -80.959,77.2578 -81.0135,77.2578 -81.0986,77.257 -81.1939,77.2568 -81.246,77.2608 -81.2849,77.2665 -81.4608,77.3112 -81.5001,77.3274 -81.4747,77.3608 -81.4501,77.3733 -81.4287,77.3873 -81.433,77.4216 -81.5601,77.4803 -81.6154,77.4866 -81.6615,77.4947 -81.7069,77.5379 -81.6844,77.5711 -81.6435,77.5677 -81.6114,77.5564 -81.6025,77.5293 -81.5882,77.5116 -81.3696,77.464 -81.3676,77.4417 -81.3409,77.4041 -81.2941,77.3951 -81.2027,77.3796 -81.1404,77.3664 -81.1056,77.3543 -81.0794,77.3333 -81.0475,77.3151 -81.0162,77.3088 -80.9694,77.3044 -80.9127,77.3021 -80.8833,77.302 -80.8573,77.3004 -80.7869,77.2819 -80.7684,77.2659 -80.6428,77.2416 -80.5394,77.2232 -80.5171,77.2193 -80.2211,77.1849 -79.8089,77.1616 -79.7856,77.1611 -79.7549,77.1624 -79.7271,77.1656 -79.69,77.174 -79.6556,77.1867 -79.6274,77.1921 -79.6034,77.1955 -79.479,77.2072 -79.4212,77.2074 -79.3985,77.2052 -79.2609,77.193 -79.1416,77.182 -79.09,77.1776 -79.0389,77.1756 -78.976,77.177 -78.9402,77.1795 -78.9084,77.1825 -78.8521,77.1887 -78.7734,77.2025 -78.7309,77.2147 -78.7132,77.2243 -78.6892,77.2394 -78.6669,77.2493 -78.6306,77.2588 -78.6101,77.2629 -78.5856,77.2665 -78.5435,77.2693 -78.498,77.2576 -78.5557,77.2246 -78.605,77.1991 -78.5763,77.1961 -78.5471,77.1958 -78.511,77.1983 -78.4607,77.2042 -78.0744,77.2619 -78.0272,77.2703 -77.759,77.3718 -77.7163,77.3956 -77.7286,77.4176 -77.7224,77.4437 -77.6425,77.4562 -77.4947,77.4917 -77.5129,77.5098 -77.6323,77.5442 -77.6521,77.5491 -77.6895,77.5575 -77.7499,77.5889 -77.7092,77.65 -77.7214,77.6866 -77.7401,77.6942 -77.9065,77.744 -77.941,77.7468 -78.027,77.7483 -78.0493,77.7498 -78.0906,77.7541 -78.1814,77.7968 -78.0266,77.8817 -78.0032,77.8824 -77.9283,77.8749 -77.9069,77.8718 -77.8036,77.8532 -77.7643,77.8437 -77.6064,77.8296 -77.1051,77.8276 -77.0672,77.8293 -77.0411,77.8332 -77.0134,77.8352 -76.9798,77.8359 -76.9293,77.8327 -76.8816,77.8236 -76.8548,77.8063 -76.8063,77.7965 -76.7562,77.7914 -76.73,77.7894 -76.7016,77.7881 -76.6327,77.7896 -76.5807,77.8015 -76.5509,77.8166 -76.5279,77.82 -76.5014,77.8227 -76.4654,77.8239 -76.4409,77.8231 -76.3668,77.8264 -76.3196,77.8317 -76.2973,77.8359 -76.2669,77.85 -76.2451,77.8689 -76.216,77.8752 -76.0744,77.8958 -76.048,77.8992 -76.0176,77.9021 -75.9863,77.9016 -75.929,77.8988 -75.7473,77.8619 -75.6958,77.8432 -75.6113,77.8849 -75.5824,77.8948 -75.5341,77.9091 -75.4882,77.9192 -75.4656,77.9263 -75.367,77.9727 -75.355,77.9975 -75.3946,78.0104 -75.5076,78.0171 -75.5357,78.0176 -75.7926,78.024 -76.3071,78.0442 -76.4108,78.0504 -76.4336,78.0521 -76.4574,78.0548 -76.6515,78.0777 -76.6782,78.0841 -76.6614,78.1011 -76.6232,78.1132 -76.5996,78.1166 -76.3988,78.1336 -76.3768,78.135 -76.3426,78.1354 -76.3169,78.134 -76.2892,78.1312 -76.2436,78.125 -76.1622,78.118 -76.1309,78.1175 -76.0941,78.1185 -76.0614,78.1202 -75.9956,78.1258 -75.9589,78.1268 -75.9273,78.1261 -75.7559,78.1159 -75.6732,78.11 -75.5476,78.0965 -75.4511,78.0843 -75.4219,78.083 -75.3857,78.0838 -75.3545,78.0868 -75.2758,78.1007 -75.2512,78.1079 -75.1669,78.1643 -75.1529,78.1794 -75.1306,78.187 -75.0795,78.1912 -75.0453,78.191 -75.0182,78.1887 -74.9941,78.1856 -74.9623,78.1851 -74.8594,78.1919 -74.83,78.1984 -74.8074,78.214 -74.862,78.2541 -75.0409,78.2892 -75.1815,78.3116 -75.214,78.3158 -75.2691,78.318 -75.387,78.3231 -75.5306,78.3289 -75.8259,78.3469 -75.8594,78.3515 -75.8834,78.3695 -76.0199,78.3979 -76.0568,78.4002 -76.0918,78.4001 -76.1319,78.3983 -76.2351,78.3903 -76.3068,78.3883 -76.412,78.3876 -76.4524,78.3994 -76.409,78.413 -76.2355,78.4304 -76.2038,78.4332 -76.1712,78.4328 -75.9185,78.4232 -75.8878,78.4213 -75.8631,78.4183 -75.841,78.4146 -75.7986,78.4061 -75.758,78.3987 -75.7334,78.3957 -75.6569,78.3911 -75.5989,78.3895 -75.2494,78.395 -75.0607,78.4055 -75.032,78.4081 -74.9981,78.4154 -74.9708,78.4224 -74.9378,78.4243 -74.902,78.4241 -74.8721,78.4227 -74.847,78.4157 -74.819,78.4128 -74.7951,78.4168 -74.6414,78.4494 -74.5613,78.4761 -74.5905,78.5118 -74.6286,78.5206 -74.64,78.5566 -74.6135,78.5773 -74.5934,78.5819 -74.5262,78.5823 -74.4939,78.5886 -74.5261,78.7039 -74.5443,78.7136 -74.7333,78.7399 -74.9483,78.7627 -75.0597,78.774 -75.0833,78.7759 -75.228,78.7751 -75.5576,78.7679 -75.7402,78.7563 -75.8426,78.7566 -75.8983,78.7602 -75.9232,78.7629 -75.943,78.764 -75.9691,78.7647 -75.9963,78.7627 -76.1018,78.7439 -76.147,78.7313 -76.1675,78.7226 -76.2141,78.74 -76.179,78.7576 -76.1396,78.7665 -76.0998,78.7754 -76.0795,78.7796 -76.0513,78.7833 -76.0143,78.7856 -75.8598,78.7938 -75.6612,78.8044 -75.6237,78.8068 -75.5909,78.8096 -75.5546,78.8156 -75.5347,78.8233 -75.4917,78.8507 -75.7538,78.8786 -76.1245,78.9028 -76.1868,78.9057 -76.4452,78.9109 -76.4725,78.9114 -76.5158,78.9108 -76.7213,78.8959 -76.7871,78.89 -76.8397,78.8822 -76.8682,78.8786 -76.9382,78.8729 -77.0187,78.8696 -77.1303,78.8676 -77.2861,78.8626 -77.4486,78.8521 -77.4712,78.8493 -77.511,78.8409 -77.6538,78.7987 -77.795,78.7482 -77.8644,78.7123 -77.8969,78.6903 -77.9231,78.668 -77.965,78.6554 -78.0071,78.6541 -78.0364,78.6583 -78.0501,78.6776 -77.9063,78.7491 -77.799,78.7897 -77.7067,78.8305 -77.5939,78.8629 -77.5548,78.8719 -77.468,78.8924 -77.5509,78.9262 -77.5877,78.9311 -77.6192,78.9323 -77.7239,78.9323 -77.8281,78.9295 -77.8655,78.9298 -77.9169,78.9341 -77.993,78.9481 -78.0406,78.9498 -78.1615,78.948 -78.3441,78.942 -78.448,78.9418 -78.6402,78.9447 -78.6146,78.9501 -78.5731,78.9526 -78.4269,78.955 -78.1814,78.9659 -78.1071,78.9693 -78.0463,78.9662 -77.9809,78.9597 -77.9223,78.953 -77.8919,78.9503 -77.8603,78.9491 -77.7923,78.9487 -77.6774,78.9517 -77.6077,78.9525 -77.5495,78.9475 -77.5008,78.9251 -77.4782,78.9198 -77.4517,78.9167 -77.2885,78.9011 -77.2545,78.9009 -77.2167,78.9133 -77.1893,78.9204 -77.1153,78.9314 -77.0865,78.9346 -76.9828,78.9436 -76.9128,78.9491 -76.8336,78.9536 -76.7567,78.9575 -76.5892,78.9657 -76.4378,78.9724 -76.3989,78.9734 -76.3373,78.9724 -76.2771,78.9689 -76.1223,78.9611 -76.0277,78.9573 -75.9731,78.9578 -75.9334,78.9588 -75.9096,78.9609 -75.8713,78.9683 -75.8468,78.9793 -75.8996,79.0019 -75.9225,79.0051 -75.9539,79.0062 -75.996,79.0045 -76.0224,79.0046 -76.0818,79.0076 -76.1925,79.0149 -76.2464,79.019 -76.3721,79.0319 -76.401,79.0336 -76.4667,79.0359 -76.6023,79.0363 -76.7783,79.0364 -76.9403,79.0364 -76.9678,79.0372 -76.9968,79.0398 -77.2301,79.0504 -77.5997,79.0611 -77.6688,79.062 -77.7456,79.0599 -77.7827,79.0575 -77.8123,79.0545 -77.8409,79.0505 -77.9377,79.0419 -77.9845,79.0434 -78.0024,79.0548 -77.9693,79.0662 -77.9148,79.0727 -77.5743,79.0902 -77.5343,79.0913 -77.507,79.0907 -77.4527,79.0871 -77.4,79.0823 -77.3057,79.0769 -77.2688,79.0774 -77.1473,79.0821 -77.0091,79.0806 -76.9637,79.078 -76.9266,79.0727 -76.8707,79.0674 -76.8423,79.066 -76.8046,79.0661 -76.7332,79.066 -76.619,79.0677 -76.2802,79.0727 -76.0712,79.0734 -75.8949,79.0821 -75.8603,79.0816 -75.8339,79.0785 -75.8104,79.0746 -75.7073,79.0555 -75.6183,79.0268 -75.6474,79.0145 -75.6521,78.9827 -75.5278,78.9635 -75.4203,78.9515 -75.3916,78.9491 -75.0091,78.9262 -74.8828,78.9189 -74.7271,78.9116 -74.4928,78.906 -74.4224,78.9055 -74.3468,78.9066 -74.3124,78.9082 -74.2829,78.9117 -74.2321,78.9222 -74.2114,78.9421 -74.3847,79.0339 -74.4395,79.0397 -74.5338,79.0442 -74.562,79.0461 -74.5867,79.0576 -74.5583,79.0655 -74.5246,79.0683 -74.3691,79.0752 -74.3389,79.0788 -74.2874,79.0856 -74.2364,79.0996 -74.2639,79.1075 -74.2927,79.1098 -74.5434,79.1226 -74.5662,79.1231 -74.6418,79.1205 -74.8483,79.1178 -75.1699,79.12 -75.229,79.1223 -75.3718,79.1224 -75.4012,79.122 -75.4387,79.1189 -75.4974,79.1119 -75.5401,79.11 -75.5703,79.1104 -75.7014,79.1129 -75.7544,79.1187 -75.8055,79.1308 -75.8304,79.1398 -75.8674,79.1483 -75.8979,79.1507 -75.9294,79.1524 -75.999,79.1535 -76.4313,79.1596 -76.7585,79.1557 -76.9502,79.1463 -77.1161,79.1325 -77.1823,79.1285 -77.245,79.1296 -77.2108,79.1347 -77.1798,79.137 -77.1074,79.1411 -77.0834,79.1468 -77.2357,79.179 -77.2859,79.1874 -77.3811,79.1978 -77.4072,79.2 -77.4832,79.1996 -77.5161,79.1984 -77.5661,79.1989 -77.6019,79.1998 -77.6317,79.2017 -77.6589,79.2047 -77.7766,79.2222 -77.8064,79.2328 -77.7123,79.2458 -77.6692,79.2476 -77.5754,79.2336 -77.5257,79.2286 -77.4961,79.2263 -77.4634,79.2253 -77.3903,79.2276 -77.3523,79.2277 -77.2285,79.2282 -77.1704,79.2239 -77.1338,79.2194 -77.0746,79.21 -77.0183,79.2047 -76.9858,79.2037 -76.9454,79.2049 -76.9249,79.2138 -77.0193,79.2546 -77.1468,79.3249 -77.1152,79.3374 -77.0826,79.3357 -76.9693,79.3295 -76.8641,79.3001 -76.8407,79.2836 -76.7766,79.264 -76.7176,79.2493 -76.6525,79.2354 -76.6283,79.2313 -76.5881,79.2328 -76.5494,79.2352 -76.477,79.2354 -76.4418,79.2346 -76.1112,79.2239 -75.8845,79.2132 -75.8478,79.2142 -75.6571,79.2354 -75.82,79.2569 -75.8443,79.2608 -75.8777,79.2664 -75.9229,79.2757 -75.9584,79.3119 -75.909,79.3282 -75.939,79.3415 -75.9645,79.3429 -76.1653,79.3554 -76.3709,79.3564 -76.6249,79.3614 -76.6529,79.3621 -76.8285,79.3685 -76.8911,79.3717 -76.9427,79.388 -76.9075,79.4267 -76.8684,79.4268 -76.8489,79.4211 -76.8264,79.4055 -76.8068,79.4002 -76.663,79.3913 -76.6299,79.3899 -76.5918,79.3902 -76.5526,79.3927 -76.4758,79.4015 -76.4232,79.4023 -76.3942,79.4009 -76.0793,79.3827 -76.0203,79.3792 -75.9634,79.3741 -75.9355,79.3705 -75.8911,79.3603 -75.865,79.3475 -75.8009,79.3224 -75.746,79.3116 -75.7185,79.3078 -75.6922,79.3052 -75.6688,79.3079 -75.5611,79.3133 -75.4571,79.2918 -75.2939,79.2742 -75.1731,79.266 -75.077,79.2618 -74.9776,79.2584 -74.8223,79.256 -74.7727,79.2568 -74.7078,79.2647 -74.6756,79.2756 -74.6482,79.2941 -74.669,79.3083 -74.7126,79.3226 -74.753,79.3333 -74.8148,79.3733 -74.7506,79.3915 -74.7276,79.3946 -74.6977,79.3848 -74.4459,79.3274 -74.3824,79.3205 -74.3094,79.3199 -73.9645,79.3179 -73.9265,79.3182 -73.8828,79.3196 -73.8481,79.3224 -73.7904,79.3285 -73.7576,79.3353 -73.7202,79.3599 -73.7304,79.3943 -73.7589,79.4264 -73.7238,79.4363 -73.6822,79.4337 -73.6367,79.424 -73.6045,79.4088 -73.5842,79.397 -73.553,79.3863 -73.5252,79.3819 -73.4965,79.3801 -73.4603,79.3786 -73.4251,79.3777 -73.2144,79.3806 -73.1222,79.3874 -73.0646,79.3942 -73.0159,79.4024 -72.9405,79.4179 -72.8991,79.4417 -72.9392,79.5297 -72.9653,79.5419 -73.0244,79.5589 -73.0625,79.5696 -73.1304,79.596 -73.1512,79.6296 -73.2766,79.6372 -73.48,79.647 -73.7157,79.6651 -73.87,79.676 -73.9994,79.6823 -74.0722,79.6839 -74.1144,79.683 -74.155,79.6807 -74.2076,79.6753 -74.2513,79.672 -74.417,79.6693 -74.4536,79.6717 -74.4785,79.6773 -74.6007,79.7277 -74.5563,79.7313 -74.429,79.734 -74.3382,79.7373 -74.1773,79.7456 -74.1456,79.7487 -74.0684,79.7573 -74.046,79.7615 -74.0012,79.7674 -73.9196,79.7689 -73.8805,79.7692 -73.7737,79.766 -73.7094,79.762 -73.6547,79.7554 -73.5329,79.7392 -73.5094,79.7308 -73.5658,79.7267 -73.6238,79.7142 -73.5449,79.708 -73.5098,79.7086 -73.4326,79.71 -73.3415,79.7133 -73.1993,79.7163 -73.1625,79.7155 -73.1369,79.7134 -73.1146,79.7107 -73.0509,79.7063 -72.9842,79.703 -72.9447,79.7033 -72.8583,79.7069 -72.8261,79.706 -72.6883,79.6948 -72.713,79.6847 -72.7462,79.6825 -72.7858,79.686 -72.8259,79.6835 -72.7067,79.5892 -72.681,79.583 -72.5249,79.563 -72.499,79.5606 -72.4662,79.5588 -72.4305,79.558 -72.3886,79.5586 -72.3436,79.5601 -72.2371,79.5657 -72.1948,79.5665 -72.1621,79.5646 -72.1276,79.5609 -72.0948,79.5509 -72.0577,79.5411 -72.038,79.5403 -71.9884,79.5409 -71.8678,79.5558 -71.7616,79.57 -71.6941,79.5762 -71.589,79.5844 -71.5527,79.5868 -71.5115,79.588 -71.471,79.5907 -71.2635,79.6141 -71.2265,79.6199 -71.1727,79.638 -71.1486,79.6415 -71.1165,79.6445 -70.986,79.6548 -70.9569,79.6581 -70.9095,79.6656 -70.8898,79.6701 -70.7793,79.7 -70.6865,79.7629 -70.7084,79.7723 -70.8354,79.7917 -70.8818,79.7953 -70.9404,79.7944 -71.1174,79.7679 -71.166,79.7652 -71.1875,79.7668 -71.2099,79.7703 -71.2281,79.7826 -71.1801,79.813 -71.0418,79.8372 -71.013,79.8407 -70.8573,79.8484 -70.7266,79.8527 -70.6884,79.8542 -70.5399,79.8616 -70.4926,79.8664 -70.4519,79.8836 -70.4413,79.9022 -70.4207,79.9098 -70.3714,79.9167 -70.3425,79.9199 -70.2702,79.9297 -70.2798,79.968 -70.4033,80.0026 -70.4283,80.0036 -70.5389,80.0053 -70.5972,80.003 -70.6308,80.0006 -70.7435,79.9881 -70.9602,79.9679 -71.09,79.9567 -71.1491,79.9523 -71.2617,79.9446 -71.3899,79.9402 -71.4735,79.94 -71.6207,79.9437 -71.6568,79.9431 -71.6917,79.9423 -71.8233,79.9338 -71.9077,79.9301 -71.94,79.9305 -72.0758,79.9337 -72.1188,79.9383 -72.1619,79.9585 -72.0211,79.9601 -71.8865,79.9621 -71.7263,79.9703 -71.6981,79.9737 -71.6714,79.984 -71.7498,80.0115 -71.7691,80.0151 -71.8245,80.0217 -71.8546,80.0238 -71.9125,80.0289 -71.96,80.0359 -72.1873,80.0808 -72.1662,80.0916 -72.139,80.097 -72.1005,80.0971 -72.0652,80.0948 -72.0364,80.0885 -72.0036,80.0762 -71.9603,80.0639 -71.9367,80.0607 -71.8995,80.0595 -71.862,80.0651 -71.8289,80.0662 -71.7785,80.0602 -71.7255,80.0525 -71.68,80.0432 -71.6513,80.0345 -71.615,80.0098 -71.5845,79.9959 -71.5628,79.9907 -71.5355,79.9874 -71.5046,79.9852 -71.4675,79.984 -71.4274,79.9845 -71.2746,79.9885 -71.2284,79.9922 -71.1927,80.003 -71.1562,80.0112 -71.0128,80.0308 -70.9553,80.0386 -70.8956,80.0444 -70.5966,80.0672 -70.4217,80.0707 -70.3876,80.0688 -70.0923,80.0594 -70.0264,80.0577 -69.9942,80.0581 -69.9565,80.0607 -69.9148,80.0672 -69.7688,80.1148 -69.7407,80.1254 -69.7603,80.1372 -69.8129,80.1496 -69.9276,80.1701 -70.0294,80.184 -70.0864,80.189 -70.1287,80.1953 -70.2001,80.2069 -70.2199,80.2109 -70.244,80.2288 -70.2299,80.2539 -70.2102,80.2619 -70.1986,80.2916 -70.2584,80.3273 -70.3057,80.344 -70.4115,80.3788 -70.4445,80.3873 -70.515,80.4008 -70.5385,80.4039 -70.5773,80.412 -70.592,80.4282 -70.5558,80.432 -70.5276,80.4285 -70.4791,80.4216 -70.4545,80.4174 -70.3139,80.3914 -70.2734,80.3833 -70.0891,80.3344 -70.0506,80.3178 -70.0032,80.2936 -70.0035,80.2718 -70.0263,80.2544 -70.0617,80.243 -70.084,80.2303 -70.0605,80.2216 -69.9953,80.2171 -69.8498,80.215 -69.7597,80.2155 -69.5077,80.2233 -69.3747,80.2317 -69.3294,80.2367 -69.2581,80.2461 -69.2061,80.2532 -69.1633,80.2623 -69.1043,80.2799 -69.0805,80.2917 -69.0686,80.3162 -69.0514,80.3339 -68.9493,80.387 -68.925,80.3991 -68.7307,80.472 -68.5932,80.4971 -68.5176,80.5156 -68.4511,80.5352 -68.0045,80.629 -67.9822,80.6335 -67.9181,80.6402 -67.8691,80.6438 -67.8453,80.6469 -67.7913,80.6557 -67.746,80.6651 -67.6905,80.6792 -67.6438,80.7012 -67.4247,80.7258 -67.364,80.7435 -67.3201,80.766 -67.3481,80.7753 -67.3777,80.7919 -67.3425,80.8021 -67.2213,80.803 -67.1302,80.803 -67.09,80.8011 -67.0603,80.8021 -66.9897,80.8084 -66.9458,80.815 -66.703,80.857 -66.5354,80.8878 -66.4679,80.9017 -66.3857,80.9208 -66.3196,80.9388 -66.289,80.9574 -66.2651,80.972 -66.2202,80.9888 -66.2006,80.9939 -66.047,81.0342 -66.0268,81.0393 -65.9822,81.0484 -65.7932,81.0845 -65.7636,81.0882 -65.7242,81.0909 -65.5313,81.1001 -65.3557,81.109 -65.312,81.1117 -65.2775,81.1147 -65.226,81.1204 -65.1082,81.1421 -65.0711,81.151 -64.9529,81.1739 -64.8454,81.1896 -64.7801,81.1967 -64.6414,81.216 -64.5945,81.2238 -64.5211,81.2373 -64.4449,81.2563 -64.4027,81.268 -64.3403,81.2888 -64.3007,81.3023 -64.278,81.3115 -64.23,81.3445 -64.3153,81.4037 -64.3513,81.4076 -64.3972,81.407 -64.7866,81.3928 -65.0359,81.3792 -65.2489,81.3687 -65.3396,81.3652 -65.4254,81.3613 -65.5061,81.3561 -65.613,81.347 -65.7663,81.3306 -65.8317,81.3216 -65.9146,81.3134 -65.95,81.3104 -66.0703,81.3031 -66.1457,81.2975 -66.4007,81.2767 -66.7688,81.2487 -66.9021,81.2428 -67.025,81.2353 -67.1338,81.2271 -67.3699,81.2038 -67.4672,81.193 -67.5674,81.1792 -67.5998,81.1739 -67.6632,81.1669 -67.8283,81.1501 -67.8921,81.1441 -68.0222,81.1368 -68.1488,81.1306 -68.5346,81.1035 -68.6494,81.0954 -69.1317,81.0578 -69.2026,81.0519 -69.2353,81.0477 -69.3066,81.0319 -69.3723,81.0115 -69.4041,81.0042 -69.6035,80.9769 -69.6931,80.9673 -69.7266,80.9649 -69.7661,80.9646 -69.7896,80.9707 -69.7478,80.9842 -69.7239,80.9874 -69.6587,80.9941 -69.603,81.0023 -69.414,81.0397 -69.531,81.0376 -69.6352,81.0291 -69.6778,81.0263 -69.7306,81.0254 -69.8208,81.0264 -69.8958,81.0302 -69.9775,81.0414 -69.9279,81.0462 -69.7696,81.0445 -69.6822,81.0471 -69.3132,81.077 -69.0907,81.1055 -69.1381,81.1107 -69.2082,81.1133 -69.2321,81.1253 -69.1981,81.134 -69.1628,81.1344 -69.1318,81.1327 -69.1122,81.128 -69.091,81.1245 -68.8013,81.1226 -68.5702,81.1394 -68.3919,81.1545 -68.2609,81.1677 -68.2032,81.1752 -68.1302,81.1874 -68.0193,81.2035 -67.7699,81.2314 -67.5938,81.2486 -67.5295,81.2549 -67.234,81.2858 -67.0251,81.3126 -66.8206,81.3324 -66.7404,81.3373 -66.6655,81.343 -66.5192,81.3544 -66.4013,81.376 -66.5437,81.3996 -66.5691,81.4027 -66.6369,81.4085 -66.8414,81.4244 -66.8841,81.427 -66.9266,81.4268 -66.9587,81.4267 -67.1592,81.4229 -67.499,81.4132 -67.5938,81.4088 -67.6837,81.4041 -67.7848,81.3952 -67.8245,81.3926 -67.8654,81.3912 -68.0587,81.3891 -68.1485,81.3847 -68.2189,81.3798 -68.3089,81.3754 -68.3513,81.3766 -68.5487,81.3916 -68.5841,81.3953 -68.6201,81.4059 -68.5815,81.4106 -68.4864,81.4017 -68.4089,81.3977 -68.323,81.3948 -68.2765,81.3943 -68.1798,81.3958 -68.1397,81.4095 -68.221,81.4328 -68.3956,81.4659 -68.6718,81.5124 -68.7745,81.5285 -68.8923,81.5446 -68.9822,81.5559 -69.0358,81.5634 -69.0648,81.5753 -69.0149,81.5782 -68.9444,81.5733 -68.9081,81.5695 -68.8276,81.5581 -68.7461,81.5454 -68.4856,81.5035 -68.432,81.4947 -68.2314,81.459 -68.1822,81.4498 -68.1246,81.4348 -68.1026,81.4303 -68.0819,81.4272 -68.047,81.4244 -68.0042,81.4234 -67.9296,81.423 -67.8844,81.4249 -67.5665,81.4512 -67.5404,81.4547 -67.3343,81.4609 -67.2839,81.4622 -66.9328,81.4694 -66.673,81.4734 -66.5817,81.4771 -66.5046,81.4815 -66.3533,81.4874 -66.2561,81.4899 -66.2179,81.4881 -66.172,81.481 -66.1335,81.4788 -65.9977,81.4784 -65.9515,81.4793 -65.9201,81.4819 -65.8728,81.5012 -65.8439,81.5091 -65.813,81.5134 -65.7617,81.5141 -65.7041,81.4987 -65.6517,81.4887 -65.5694,81.4935 -65.3988,81.5097 -65.3044,81.5208 -65.1832,81.5355 -65.1518,81.5398 -65.1259,81.5508 -65.185,81.5518 -65.2683,81.5484 -65.393,81.5418 -65.6014,81.5455 -65.7704,81.5435 -65.8164,81.551 -65.7912,81.5578 -65.7036,81.5623 -65.553,81.5635 -65.5055,81.5626 -65.4481,81.5615 -65.4114,81.5633 -65.1903,81.5889 -65.1183,81.5983 -64.9977,81.6061 -64.7439,81.6127 -64.6921,81.6131 -64.6678,81.6112 -64.6191,81.6012 -64.5895,81.59 -64.5504,81.5864 -64.5028,81.5843 -64.4128,81.5829 -64.2564,81.5819 -64.1394,81.5869 -63.9923,81.6025 -63.9098,81.6243 -64.0167,81.6605 -64.037,81.6659 -64.0943,81.6825 -64.0552,81.6816 -63.9915,81.6745 -63.9619,81.6706 -63.921,81.661 -63.8959,81.6549 -63.8714,81.6518 -63.8375,81.6502 -63.7947,81.6505 -63.7477,81.6524 -63.7099,81.6551 -63.635,81.661 -63.6023,81.6645 -63.5464,81.6715 -63.5006,81.6805 -63.4418,81.6972 -63.1735,81.7273 -63.0789,81.737 -62.8277,81.769 -62.7321,81.7814 -62.3581,81.8346 -62.3014,81.863 -62.1453,81.8685 -62.1018,81.8709 -62.0677,81.874 -62.0427,81.8782 -61.9158,81.9021 -61.8668,81.9116 -61.6666,81.9611 -61.5934,82.0039 -61.389,82.018 -61.3241,82.0226 -61.2537,82.0294 -61.2236,82.0336 -61.1782,82.0401 -61.0967,82.0542 -61.0717,82.0594 -60.9839,82.0802 -60.9475,82.0919 -60.9263,82.1038 -60.9208,82.1092 -60.8982,82.1242 -60.8721,82.1532 -60.8666,82.1767 -60.8953,82.2126 -60.9256,82.2358 -60.9593,82.2507 -61.0741,82.2854 -61.1144,82.2947 -61.2361,82.319 -61.2872,82.3289 -61.3181,82.333 -61.3694,82.3369 -61.478,82.3424 -61.6698,82.3473 -61.8831,82.3564 -61.9987,82.3482 -62.0489,82.3402 -62.0853,82.3371 -62.1373,82.3381 -62.112,82.362 -61.9559,82.3777 -62.0291,82.3823 -62.0711,82.3823 -62.2902,82.3808 -62.3366,82.3787 -62.4612,82.3704 -62.606,82.3586 -62.703,82.3457 -62.7729,82.322 -62.7982,82.3143 -62.8539,82.3069 -62.9307,82.3017 -63.0585,82.2941 -63.1098,82.2926 -63.149,82.2968 -63.1272,82.3041 -63.0665,82.3096 -63.0252,82.3125 -62.9019,82.3183 -62.8711,82.3209 -62.841,82.3663 -62.742,82.4117 -62.7169,82.431 -62.7455,82.4394 -62.7774,82.444 -62.8145,82.4482 -62.852,82.4498 -62.8942,82.4511 -63.01,82.4507 -63.0524,82.4521 -63.0948,82.4546 -63.127,82.4583 -63.1551,82.4698 -63.1191,82.4768 -63.0671,82.4782 -63.0357,82.4806 -63.0112,82.4943 -63.0341,82.5033 -63.0663,82.5077 -63.201,82.5187 -63.2803,82.5355 -63.318,82.5472 -63.4291,82.5674 -63.4565,82.5704 -63.5482,82.5736 -63.4436,82.5839 -63.3686,82.5853 -63.296,82.5839 -63.2572,82.5918 -63.1679,82.6167 -63.1634,82.6534 -63.212,82.6684 -63.2681,82.6769 -63.3065,82.6801 -63.4003,82.6852 -63.4491,82.6864 -63.7482,82.6866 -63.8348,82.6848 -63.8778,82.6834 -63.9147,82.6795 -63.9611,82.6707 -64.1034,82.639 -64.1861,82.615 -64.2198,82.6142 -64.2528,82.6168 -64.4214,82.6515 -64.4798,82.6649 -64.5158,82.6816 -64.4901,82.7005 -64.5186,82.7119 -64.612,82.7132 -64.6556,82.7131 -64.6978,82.7233 -64.6618,82.7291 -64.6017,82.7288 -64.5624,82.7272 -64.5242,82.7263 -64.4861,82.7274 -64.4358,82.7432 -64.4569,82.7528 -64.5016,82.7553 -64.607,82.7577 -64.6562,82.7566 -64.7532,82.7522 -64.8755,82.7426 -65.0285,82.7288 -65.0686,82.7206 -65.0432,82.7126 -64.9437,82.7096 -64.882,82.7025 -64.9929,82.6842 -65.1122,82.6469 -65.0304,82.6337 -64.9348,82.6173 -64.9691,82.6164 -65.2014,82.6294 -65.2293,82.6316 -65.2914,82.645 -65.259,82.6659 -65.2313,82.6828 -65.3165,82.6897 -65.4932,82.695 -65.5366,82.6945 -65.5791,82.6925 -65.8547,82.6683 -65.8908,82.6649 -66.4144,82.599 -66.4378,82.5926 -66.6663,82.5719 -66.7638,82.5648 -66.9763,82.5465 -67.011,82.5424 -67.0405,82.539 -67.0932,82.53 -67.1469,82.5159 -67.1957,82.5086 -67.2357,82.5052 -67.2829,82.5041 -67.3712,82.5087 -67.5764,82.5121 -67.6982,82.5113 -68.088,82.4987 -68.186,82.4953 -68.2264,82.4928 -68.335,82.4822 -68.4037,82.4817 -68.4329,82.491 -68.4165,82.4968 -68.3944,82.5017 -68.1858,82.5325 -68.118,82.5407 -68.0377,82.5476 -67.9967,82.5495 -67.8962,82.5512 -67.844,82.5534 -67.8038,82.5564 -67.6769,82.5725 -67.562,82.5842 -67.4083,82.5941 -67.3614,82.5961 -67.264,82.6018 -67.2217,82.6046 -67.1503,82.6098 -67.0795,82.617 -66.9031,82.6357 -66.7248,82.6525 -66.6419,82.6592 -66.6064,82.6627 -66.5769,82.6671 -66.1356,82.7394 -66.1139,82.7491 -66.0666,82.7813 -66.096,82.7844 -66.4178,82.7871 -66.583,82.7858 -66.7027,82.7997 -66.7285,82.8046 -66.8044,82.8101 -66.8552,82.8117 -66.8818,82.8017 -66.8991,82.7874 -66.9596,82.7869 -67.0043,82.7877 -67.0904,82.7914 -67.1722,82.7971 -67.2377,82.8043 -67.263,82.8076 -67.3056,82.8126 -67.3719,82.8194 -67.4277,82.8201 -67.6421,82.8092 -67.8212,82.7877 -67.8596,82.7844 -67.905,82.7856 -67.9393,82.8019 -67.9105,82.8349 -67.9498,82.845 -68.0743,82.8533 -68.116,82.8562 -68.1628,82.8584 -68.2243,82.858 -68.2722,82.8557 -68.308,82.8519 -68.3373,82.847 -68.3861,82.8364 -68.4225,82.8307 -68.4654,82.8285 -68.6592,82.8384 -68.7314,82.8586 -68.7347,82.8822 -68.7711,82.8905 -68.819,82.8877 -68.8529,82.8765 -68.8759,82.8716 -68.9115,82.8675 -68.9879,82.8602 -69.3162,82.852 -69.2899,82.8645 -69.2672,82.8698 -69.217,82.8827 -69.3895,82.8895 -69.4252,82.891 -69.4972,82.8954 -69.5187,82.9034 -69.469,82.9107 -69.4201,82.9204 -69.4147,82.9548 -69.4541,82.9597 -69.5011,82.9611 -69.5639,82.9614 -69.7528,82.9571 -69.8628,82.9587 -69.9106,82.9607 -70.0101,82.9629 -70.1236,82.9623 -70.2196,82.9567 -70.3344,82.9524 -70.4428,82.9528 -70.6354,82.9472 -70.8728,82.9367 -71.172,82.8793 -71.2283,82.8571 -71.0545,82.8327 -70.83,82.7881 -70.7117,82.7696 -70.6542,82.7589 -70.5933,82.7394 -70.622,82.7321 -70.7024,82.7348 -70.7684,82.7432 -70.8338,82.7517 -70.8934,82.7591 -70.9687,82.7659 -71.0852,82.7655 -71.2416,82.7829 -71.3149,82.7916 -71.5357,82.8608 -71.5207,82.8819 -71.4959,82.8927 -71.4421,82.9075 -71.4001,82.9184 -71.3351,82.9376 -71.3573,82.9456 -71.4582,82.9482 -71.5766,82.9469 -71.7499,82.9483 -71.8559,82.9502 -71.9703,82.9508 -72.0795,82.9471 -72.1089,82.9433 -72.1437,82.936 -72.1671,82.9288 -72.2204,82.9263 -72.2663,82.9266 -72.3087,82.9377 -72.3418,82.9464 -72.3924,82.9455 -72.6687,82.9172 -72.6899,82.9049 -72.7751,82.8863 -73.0027,82.8578 -73.3671,82.7894 -73.3807,82.7748 -73.3482,82.7639 -73.318,82.7591 -73.236,82.7533 -73.202,82.7498 -73.1669,82.7431 -73.143,82.7262 -73.0003,82.6774 -72.9546,82.6658 -72.7711,82.6387 -72.728,82.6357 -72.6568,82.6286 -72.4623,82.608 -72.3946,82.5989 -72.2474,82.574 -72.3456,82.5494 -72.3802,82.5473 -72.4186,82.5512 -72.447,82.5559 -72.4959,82.5672 -72.5811,82.5809 -72.6518,82.5884 -72.6944,82.5913 -72.8192,82.5982 -72.9042,82.6037 -72.9909,82.614 -73.0253,82.6186 -73.2905,82.658 -73.3493,82.6675 -73.5583,82.7042 -73.5921,82.7179 -73.6193,82.7484 -73.7566,82.8075 -73.8224,82.8227 -73.9105,82.8415 -74.0162,82.8601 -74.1444,82.8746 -74.1721,82.8771 -74.4418,82.8909 -74.5324,82.8933 -74.6906,82.8954 -74.7341,82.8938 -74.7812,82.8913 -75.0464,82.8773 -75.3129,82.888 -75.6794,82.9017 -75.7102,82.9029 -75.7592,82.9043 -75.8094,82.9034 -75.8437,82.9003 -75.9366,82.8866 -75.9966,82.8789 -76.0899,82.8714 -76.2883,82.862 -76.5909,82.8608 -76.8624,82.8616 -76.8972,82.8656 -76.8627,82.8802 -76.9106,82.8836 -76.9492,82.8803 -76.9787,82.8751 -77.0025,82.8703 -77.0683,82.8556 -77.1056,82.8403 -77.0715,82.8229 -76.8594,82.7907 -76.7948,82.7814 -76.7542,82.7787 -76.6111,82.7646 -76.5733,82.7601 -76.4824,82.7461 -76.4409,82.7371 -76.3968,82.7239 -76.3597,82.7109 -76.3173,82.69 -76.2767,82.6726 -76.2569,82.6658 -76.2333,82.6596 -76.1794,82.6493 -76.1074,82.6411 -76.0211,82.6369 -75.9742,82.6357 -75.9195,82.6359 -75.7244,82.637 -75.7484,82.6278 -75.7906,82.6239 -75.9098,82.6192 -75.9596,82.6167 -76.0024,82.6131 -76.0369,82.5968 -76.0088,82.577 -75.9898,82.5696 -75.9696,82.5649 -75.8376,82.5389 -75.5433,82.5077 -75.4068,82.4959 -75.3623,82.4864 -75.2944,82.4818 -75.241,82.4821 -75.2063,82.481 -75.1724,82.4773 -75.1404,82.4705 -75.158,82.4603 -75.1892,82.4567 -75.2385,82.454 -75.3437,82.4496 -75.3851,82.4451 -75.4085,82.4405 -75.5109,82.411 -75.5398,82.4005 -75.6242,82.3766 -75.712,82.3541 -75.7748,82.3388 -75.8398,82.3252 -75.921,82.3086 -75.9705,82.2998 -75.9943,82.324 -75.9396,82.3617 -75.7749,82.4113 -75.7088,82.425 -75.6746,82.4296 -75.6548,82.4339 -75.6304,82.4436 -75.6498,82.4511 -75.7943,82.4705 -75.8284,82.4741 -76.1209,82.5045 -76.2716,82.5173 -76.3036,82.5198 -76.3379,82.5454 -76.3766,82.5619 -76.4064,82.574 -76.4406,82.5854 -76.498,82.6031 -76.5206,82.6086 -76.5467,82.6133 -76.582,82.617 -76.629,82.6182 -76.6808,82.6233 -76.6968,82.6564 -76.8276,82.7073 -76.8571,82.7148 -77.0473,82.7246 -77.1329,82.73 -77.1947,82.7349 -77.2553,82.7423 -77.3432,82.7537 -77.425,82.7653 -77.4941,82.7734 -77.5386,82.7754 -77.5888,82.7722 -77.6755,82.7652 -77.7119,82.7611 -77.8053,82.7492 -77.8334,82.7444 -77.9568,82.7081 -77.9196,82.6972 -77.8546,82.688 -77.8337,82.6803 -77.8699,82.6751 -77.9013,82.679 -78.0665,82.7018 -78.2247,82.6969 -78.2748,82.7069 -78.2624,82.7277 -78.2457,82.7402 -78.2312,82.7619 -78.2692,82.7776 -78.3546,82.7919 -78.3934,82.7961 -78.442,82.7972 -78.4784,82.7932 -78.5023,82.7889 -78.5474,82.7788 -78.6501,82.7495 -78.7907,82.7485 -78.898,82.8024 -79.0903,82.8246 -79.134,82.8256 -79.1777,82.8244 -79.5116,82.8081 -79.6226,82.8018 -79.8135,82.7879 -80.1151,82.7507 -80.147,82.7418 -80.1103,82.7269 -79.995,82.7022 -79.9379,82.6931 -79.9125,82.6898 -79.8769,82.6872 -79.8288,82.6863 -79.7257,82.6859 -79.6154,82.6872 -79.5674,82.6866 -79.3982,82.6733 -79.6621,82.6633 -79.6955,82.6602 -79.7165,82.655 -79.6563,82.6242 -79.6336,82.6175 -79.6073,82.6116 -79.5578,82.603 -79.3449,82.5803 -79.1256,82.5591 -79.0549,82.5523 -78.9663,82.5481 -78.6565,82.5347 -78.6197,82.5333 -78.566,82.5337 -78.3023,82.5396 -78.2495,82.531 -78.2916,82.5277 -78.5686,82.5181 -78.874,82.5207 -79.1079,82.5258 -79.1913,82.5304 -79.3395,82.5458 -79.4058,82.5523 -79.4689,82.5575 -79.509,82.5605 -79.5508,82.5617 -79.6069,82.5612 -79.6496,82.5584 -79.6932,82.5454 -79.5704,82.5169 -79.5381,82.5053 -79.5836,82.4972 -79.6632,82.5026 -79.7241,82.5096 -79.7917,82.5185 -79.8806,82.5344 -79.9003,82.5485 -79.8593,82.5706 -79.878,82.5804 -80.0122,82.6267 -80.0374,82.6319 -80.0992,82.6409 -80.1365,82.644 -80.2182,82.6495 -80.5185,82.6641 -80.6929,82.6721 -80.7379,82.6734 -81.0742,82.6794 -81.1257,82.6796 -81.1871,82.6766 -81.2283,82.6727 -81.2502,82.6684 -81.2779,82.6605 -81.2934,82.6449 -81.2234,82.6167 -81.165,82.608 -81.0216,82.5863 -80.9399,82.5683 -80.8418,82.5399 -80.8146,82.5254 -80.7947,82.5199 -80.7675,82.514 -80.7122,82.5035 -80.5922,82.483 -80.3197,82.4082 -80.3005,82.3987 -80.6115,82.3868 -80.669,82.3921 -80.7084,82.4014 -80.8542,82.4316 -81.018,82.4646 -81.0765,82.4741 -81.1491,82.4823 -81.2593,82.4903 -81.6458,82.5168 -81.6864,82.5194 -81.7743,82.5226 -81.8684,82.524 -81.9285,82.5216 -81.9681,82.5174 -82.0011,82.5131 -82.0581,82.5011 -82.0897,82.4903 -82.1052,82.4696 -82.0577,82.4488 -82.035,82.4426 -81.9784,82.4305 -81.6822,82.3832 -81.6437,82.3771 -81.5968,82.3721 -81.5637,82.3699 -81.4682,82.3712 -81.4302,82.3697 -81.2597,82.3549 -81.3874,82.3471 -81.8074,82.3557 -82.0319,82.3611 -82.1209,82.3633 -82.1734,82.3627 -82.2125,82.3606 -82.2444,82.3542 -82.4188,82.2773 -82.4437,82.2538 -82.4267,82.2379 -82.3954,82.2264 -82.3413,82.2147 -82.2294,82.1933 -82.1713,82.1839 -81.8887,82.1429 -81.6075,82.0947 -81.5457,82.0833 -81.5197,82.0795 -81.1453,82.0341 -81.0471,82.0222 -80.9759,82.0167 -80.8943,82.0137 -80.7748,82.0118 -80.6331,82.0139 -80.5955,82.0103 -80.6236,82.0038 -80.6554,81.9997 -80.6808,81.9945 -80.6997,81.9831 -80.6799,81.9707 -80.6465,81.9612 -80.6031,81.952 -80.5474,81.9418 -80.5162,81.9371 -80.4512,81.9296 -80.383,81.9225 -80.3502,81.9199 -80.0956,81.8993 -80.0588,81.8967 -79.9416,81.8902 -79.6452,81.8822 -79.6097,81.88 -79.5824,81.877 -79.5643,81.8689 -79.5741,81.8301 -79.4013,81.7865 -79.3108,81.7726 -79.2527,81.7647 -79.2217,81.7594 -79.1839,81.7494 -78.9701,81.676 -79.2248,81.6796 -79.2665,81.6808 -79.3029,81.6867 -79.3204,81.7009 -79.3417,81.7105 -79.6129,81.7836 -79.7644,81.8219 -79.8139,81.8322 -79.8821,81.8398 -79.9541,81.8447 -80.1599,81.856 -80.3665,81.8765 -80.5937,81.8895 -80.8155,81.9173 -80.8742,81.9269 -80.9728,81.9393 -81.076,81.9493 -81.1481,81.9553 -81.3308,81.9761 -81.6385,82.0123 -81.7313,82.0257 -81.8214,82.0402 -81.8796,82.0503 -81.9299,82.0617 -81.9817,82.0787 -82.0049,82.0857 -82.1704,82.1059 -82.2261,82.1146 -82.3384,82.1344 -82.3708,82.1384 -82.41,82.1407 -82.4515,82.1421 -82.7059,82.1487 -82.7408,82.1346 -82.7437,82.0919 -82.7272,82.0782 -82.7036,82.0718 -82.6567,82.0602 -82.6036,82.0509 -82.5771,82.0446 -82.4899,82.0206 -82.4423,82.0036 -82.411,81.986 -82.3986,81.9704 -82.3706,81.9581 -82.3384,81.9537 -82.3033,81.9505 -82.2655,81.948 -82.1371,81.945 -81.9632,81.9426 -81.823,81.9432 -81.7795,81.9423 -81.742,81.9399 -81.6873,81.9291 -81.6456,81.9168 -81.6077,81.8949 -81.648,81.893 -81.6853,81.8955 -81.7768,81.9089 -81.8431,81.9164 -81.9199,81.9221 -82.0044,81.9242 -82.1416,81.9249 -82.3552,81.9283 -82.3934,81.9308 -82.4767,81.9346 -82.5158,81.9357 -82.6064,81.9304 -82.6921,81.9229 -82.7939,81.92 -82.8404,81.9271 -82.7801,81.9379 -82.7197,81.9469 -82.6831,81.9592 -82.6703,81.9776 -82.6937,81.9957 -82.7169,82.0084 -82.7393,82.0167 -82.8002,82.0329 -82.8467,82.0421 -82.9,82.0517 -82.9576,82.0611 -83.0233,82.075 -83.0594,82.084 -83.0826,82.1061 -83.0785,82.1291 -83.0986,82.1385 -83.2295,82.1727 -83.3192,82.1872 -83.4793,82.2088 -83.5535,82.217 -83.5884,82.2198 -83.6725,82.224 -83.758,82.227 -83.8061,82.2267 -83.8572,82.2252 -83.8907,82.2236 -83.9389,82.2194 -84.0133,82.2113 -84.0544,82.2084 -84.0941,82.2193 -84.1274,82.2363 -84.159,82.2413 -84.1915,82.2446 -84.2684,82.2503 -84.4226,82.2609 -84.5959,82.272 -84.6238,82.2757 -84.6489,82.2838 -84.6022,82.2884 -84.4949,82.29 -84.3279,82.3074 -84.3492,82.3202 -84.3701,82.3231 -84.4011,82.3259 -84.709,82.3352 -84.7529,82.3366 -85.0,82.3327 -85.0,81.8965 -84.8278,81.8911 -84.7515,81.8869 -84.6442,81.8779 -84.6117,81.8734 -84.553,81.8643 -84.5278,81.8592 -84.4646,81.8432 -84.4353,81.8322 -84.3279,81.7476 -84.3495,81.7454 -84.3704,81.7469 -84.4026,81.7512 -84.4607,81.7686 -84.5066,81.7868 -84.5298,81.8207 -84.5444,81.8381 -84.5714,81.8437 -84.6014,81.8488 -84.6412,81.8516 -84.7128,81.8528 -84.7681,81.8483 -84.755,81.8292 -84.7373,81.8197 -84.7072,81.8075 -84.6281,81.777 -84.5775,81.7593 -84.5503,81.7489 -84.5931,81.7468 -84.697,81.7701 -84.7317,81.7784 -84.8084,81.8047 -84.8522,81.8249 -84.8745,81.8412 -84.8996,81.8514 -84.9286,81.8539 -84.9695,81.8554 -85.0,81.8559 -85.0,81.1535 -84.9979,81.1537 -84.7486,81.1694 -84.6954,81.1712 -84.6563,81.1714 -84.62,81.1689 -84.4581,81.1484 -84.4967,81.1301 -84.5232,81.1256 -84.5533,81.1224 -84.5969,81.1187 -84.6965,81.1129 -84.7406,81.109 -84.9415,81.0907 -85.0,81.0848 -85.0,80.9205 -84.9716,80.9208 -84.9336,80.9227 -84.7876,80.9318 -84.5203,80.9438 -84.309,80.9516 -84.0967,80.9577 -83.8408,80.9629 -83.483,80.9787 -83.1797,80.9973 -82.877,81.0163 -82.6908,81.023 -82.6547,81.0261 -82.6222,81.0301 -82.5947,81.0344 -82.556,81.0381 -82.3937,81.0391 -82.2943,81.0308 -82.2522,81.0312 -82.2135,81.0347 -82.1502,81.0441 -82.1193,81.0451 -82.0979,81.0418 -82.1964,81.0134 -82.2324,81.0129 -82.2607,81.0149 -82.3282,81.0178 -82.3732,81.0166 -82.4267,81.0112 -82.4676,80.9991 -82.489,80.9942 -82.5138,80.9906 -82.5552,80.9882 -82.5978,80.9865 -82.6719,80.986 -82.7811,80.9885 -82.8509,80.988 -82.8781,80.9856 -83.0387,80.9684 -83.2566,80.9555 -83.5497,80.9389 -83.6335,80.9368 -83.7503,80.9362 -83.8449,80.9329 -83.9315,80.9262 -84.0927,80.9119 -84.1293,80.9097 -84.45,80.8969 -84.6516,80.8966 -84.7254,80.8943 -85.0,80.8714 -85.0,80.3804 -84.9597,80.3785 -84.7947,80.3748 -84.7549,80.3769 -84.6924,80.3839 -84.6185,80.3906 -84.5749,80.3928 -84.4921,80.3954 -84.4179,80.3942 -84.2804,80.3872 -84.2191,80.3838 -84.1107,80.3816 -84.0434,80.3831 -83.7041,80.4014 -83.6658,80.4038 -83.6021,80.4107 -83.5716,80.4146 -83.5521,80.4197 -83.518,80.4345 -83.4665,80.4817 -83.4549,80.5099 -83.4872,80.5382 -83.5222,80.5562 -83.5466,80.5703 -83.566,80.5876 -83.5903,80.6261 -83.5564,80.629 -83.4341,80.6152 -83.3848,80.6225 -83.3604,80.6348 -83.3403,80.6394 -83.317,80.6429 -83.2231,80.6555 -83.1373,80.6667 -83.1113,80.6714 -83.0841,80.6809 -83.0568,80.6961 -83.0274,80.7035 -82.987,80.7059 -82.9215,80.7029 -82.8885,80.701 -82.8603,80.6897 -82.9926,80.6539 -83.122,80.6259 -83.153,80.6215 -83.1868,80.6189 -83.2598,80.6155 -83.2961,80.6094 -83.2745,80.5738 -83.2466,80.5694 -83.0884,80.5537 -83.0432,80.5562 -82.6727,80.5823 -82.3349,80.6061 -82.3005,80.6089 -82.2729,80.6138 -82.253,80.6258 -82.0657,80.6489 -81.9277,80.6642 -81.88,80.6709 -81.8339,80.681 -81.7862,80.6902 -81.7303,80.6974 -81.6868,80.7002 -81.4982,80.6813 -81.6437,80.6354 -81.6835,80.6268 -81.7601,80.6143 -81.8706,80.5975 -81.9509,80.5871 -81.9855,80.5844 -82.1658,80.5768 -82.2614,80.5714 -82.5061,80.5549 -82.789,80.5175 -82.8202,80.5109 -82.8902,80.4711 -82.9023,80.4393 -82.8916,80.4185 -82.8303,80.411 -82.7614,80.4077 -82.6906,80.4055 -82.6153,80.4059 -82.5333,80.4088 -82.1707,80.4223 -82.0897,80.4256 -81.7027,80.4488 -81.5459,80.4621 -81.3135,80.4729 -81.2714,80.4762 -81.0746,80.4922 -80.6961,80.5204 -80.6587,80.524 -80.5952,80.5319 -80.4603,80.5523 -80.3917,80.5602 -80.2512,80.5739 -79.9885,80.605 -79.8066,80.6276 -79.6252,80.6507 -79.3517,80.6891 -79.0077,80.7908 -78.904,80.8413 -78.9266,80.8524 -78.9471,80.8537 -79.0001,80.8506 -79.0331,80.8512 -79.0761,80.8628 -79.0537,80.8914 -78.9961,80.9245 -78.9681,80.9284 -78.8835,80.9348 -78.8227,80.9543 -78.9132,80.9693 -78.9593,80.9764 -79.0155,80.9887 -79.2279,81.0559 -79.2025,81.058 -79.1384,81.0393 -78.983,81.0048 -78.9583,81.0021 -78.9032,80.9973 -78.8162,80.9879 -78.7563,80.9809 -78.7049,80.973 -78.683,80.9662 -78.6585,80.9634 -78.6367,80.9644 -78.5595,80.9712 -78.4517,80.9835 -78.4923,81.002 -78.4665,81.0342 -78.4435,81.0465 -78.4169,81.0564 -78.3942,81.0617 -78.3465,81.0709 -78.2291,81.0876 -78.176,81.0964 -78.1518,81.1007 -78.1031,81.1119 -78.0678,81.1255 -78.0407,81.1395 -78.0155,81.1474 -77.9702,81.1554 -77.9161,81.1644 -77.6388,81.1992 -77.5719,81.2058 -77.3529,81.2277 -77.3147,81.2298 -77.1611,81.2438 -77.0084,81.2638 -76.953,81.2724 -76.7734,81.296 -76.6958,81.3032 -76.601,81.3084 -76.5486,81.3081 -76.508,81.3008 -76.7006,81.2569 -76.8618,81.2312 -76.9782,81.2144 -77.1109,81.1996 -77.247,81.1921 -77.3207,81.186 -77.3565,81.1827 -77.5942,81.141 -77.6188,81.1368 -77.7204,81.1135 -77.7563,81.1001 -77.7874,81.0855 -77.9027,81.0583 -77.9683,81.0465 -77.9978,81.0426 -78.0337,81.0394 -78.1542,81.0321 -78.1812,81.0296 -78.2095,81.0164 -78.1415,81.0056 -78.1642,80.988 -78.2005,80.9729 -78.2443,80.957 -78.272,80.9472 -78.3798,80.9242 -78.5005,80.9014 -78.5428,80.8924 -78.5824,80.8822 -78.6725,80.8522 -78.6795,80.7454 -78.6592,80.7295 -78.6347,80.7211 -78.6135,80.7194 -78.5807,80.721 -78.1665,80.7463 -77.7269,80.7677 -77.5134,80.7736 -77.3289,80.7781 -77.2031,80.7721 -77.1767,80.7699 -77.0579,80.7598 -76.9509,80.7547 -76.9184,80.7537 -76.592,80.7523 -76.548,80.753 -76.4897,80.755 -76.4502,80.7581 -76.4078,80.7648 -76.372,80.7674 -76.2782,80.7533 -76.2379,80.7364 -76.2633,80.7214 -76.3084,80.7134 -76.3425,80.7098 -76.4328,80.7057 -76.4804,80.7053 -76.5959,80.7084 -76.6771,80.7089 -77.0371,80.7023 -77.3875,80.6975 -77.481,80.6927 -77.5538,80.6861 -77.6421,80.6805 -77.9836,80.6607 -78.2516,80.6449 -78.331,80.6397 -78.3698,80.637 -78.5549,80.6147 -78.7359,80.5975 -78.9172,80.5812 -79.036,80.5722 -79.0977,80.5648 -79.3031,80.5385 -79.591,80.5004 -79.6502,80.4926 -79.7034,80.4802 -79.6774,80.4751 -79.6067,80.472 -79.3781,80.4643 -79.3098,80.465 -79.1369,80.4687 -79.0922,80.4698 -79.0004,80.4746 -78.8599,80.4811 -78.7273,80.4848 -78.6713,80.4854 -78.5984,80.4812 -78.4881,80.4781 -78.1058,80.4707 -77.8377,80.466 -77.7689,80.4611 -77.7875,80.4363 -77.8132,80.4337 -77.8483,80.4318 -78.0938,80.4337 -78.2137,80.433 -78.3404,80.4314 -78.5628,80.4252 -78.7578,80.4225 -78.9363,80.423 -78.9787,80.4227 -79.0854,80.4191 -79.2356,80.4091 -79.3031,80.4056 -79.6841,80.3983 -79.802,80.3964 -79.8595,80.397 -79.8963,80.3957 -79.9385,80.393 -79.9705,80.389 -80.0924,80.3666 -80.0455,80.3553 -80.0707,80.3381 -80.1106,80.332 -80.1549,80.3305 -80.2239,80.3325 -80.4021,80.3307 -80.5767,80.3225 -80.7275,80.3136 -80.8205,80.3062 -80.9453,80.2971 -81.0747,80.2905 -81.4132,80.2762 -81.6294,80.2722 -81.7258,80.2704 -81.7698,80.2686 -82.0109,80.2478 -82.3165,80.2289 -82.4433,80.2232 -82.5242,80.2228 -82.5908,80.2216 -82.6787,80.2162 -82.8674,80.2014 -82.9021,80.1977 -82.9324,80.1854 -82.9023,80.1725 -82.8569,80.1637 -82.6848,80.1188 -82.3579,80.0227 -82.0888,79.9425 -82.0232,79.9233 -81.9276,79.8974 -81.9048,79.8925 -81.7418,79.8729 -81.5704,79.8536 -81.4807,79.8461 -81.4483,79.8446 -81.3794,79.842 -81.3279,79.8426 -81.296,79.8408 -81.1592,79.8237 -81.1404,79.8153 -81.156,79.8073 -81.2547,79.8052 -81.2795,79.803 -81.3821,79.7899 -81.3986,79.773 -81.3703,79.7524 -81.3432,79.7354 -81.3246,79.7196 -81.309,79.7002 -81.2605,79.6115 -81.1656,79.5936 -81.1267,79.5944 -81.0333,79.5943 -80.9694,79.5901 -80.914,79.5841 -80.8185,79.5699 -80.7174,79.5531 -80.6929,79.5388 -80.6539,79.5329 -80.5709,79.5294 -80.5389,79.5291 -80.403,79.5333 -80.3621,79.535 -80.2604,79.5452 -80.2182,79.5505 -80.1767,79.5586 -80.1344,79.564 -80.1014,79.5663 -79.7869,79.5782 -79.5075,79.5796 -79.6453,79.5289 -79.6828,79.5256 -79.7191,79.5256 -79.7714,79.5282 -79.8026,79.5279 -79.8463,79.5256 -80.2466,79.4929 -80.3141,79.4863 -80.3427,79.4824 -80.3746,79.471 -80.3422,79.4522 -80.3753,79.4456 -80.435,79.4497 -80.7564,79.48 -80.9959,79.5057 -81.0222,79.5093 -81.1102,79.5155 -81.1664,79.5178 -81.2086,79.5164 -81.2438,79.5079 -81.2865,79.4901 -81.3127,79.4764 -81.3473,79.4696 -81.3809,79.4661 -81.4167,79.4664 -81.4481,79.4677 -81.4695,79.4709 -81.5006,79.4785 -81.5237,79.4933 -81.4988,79.5018 -81.475,79.5009 -81.4339,79.4911 -81.3929,79.4913 -81.361,79.5009 -81.4255,79.5567 -81.4741,79.5672 -81.5077,79.5657 -81.5396,79.5674 -81.5929,79.5744 -81.6563,79.5841 -81.7176,79.6093 -81.7847,79.6821 -81.8007,79.6964 -81.8347,79.7174 -81.8905,79.7393 -82.0207,79.7732 -82.341,79.8443 -82.4705,79.8721 -82.5377,79.8856 -82.6326,79.9037 -82.765,79.9298 -82.8745,79.9536 -82.9811,79.9774 -83.1395,80.0141 -83.161,80.0205 -83.2055,80.0337 -83.2889,80.0645 -83.3615,80.0852 -83.4507,80.1053 -83.5159,80.1172 -83.5453,80.1205 -83.6601,80.1308 -83.7229,80.1355 -83.7825,80.1389 -83.9293,80.1427 -84.3212,80.1446 -84.4336,80.1446 -84.5099,80.1438 -84.6289,80.1408 -84.6678,80.1385 -84.8258,80.1335 -84.9862,80.1382 -85.0,80.1389 -85.0,79.7981 -84.9928,79.7972 -85.0,79.7941 -85.0,79.5504 -84.9835,79.548 -84.7901,79.5049 -84.7561,79.4944 -84.7023,79.4214 -84.622,79.3708 -84.5537,79.3547 -84.4421,79.3335 -84.3935,79.3259 -84.3395,79.3196 -84.3146,79.3156 -84.2283,79.2914 -84.1811,79.2384 -84.1873,79.2174 -84.1642,79.1724 -84.1367,79.1574 -84.0896,79.1438 -84.0715,79.1346 -84.0571,79.0801 -84.0399,79.0692 -83.9305,79.0658 -83.8959,79.066 -83.8592,79.0673 -83.8141,79.0727 -83.7848,79.083 -83.7542,79.0954 -83.7172,79.1043 -83.6866,79.1018 -83.6824,79.067 -83.7498,79.0464 -83.7676,79.037 -83.7417,79.0312 -83.7144,79.0239 -83.4464,78.9608 -83.2865,78.9257 -83.2618,78.9245 -83.2346,78.9265 -83.2024,78.9352 -83.1637,78.9421 -83.1401,78.9426 -83.1128,78.9309 -83.1957,78.9087 -83.2156,78.9073 -83.245,78.9066 -83.3408,78.9082 -83.4848,78.911 -83.6356,78.9212 -83.6898,78.9267 -83.7293,78.9346 -83.7791,78.9586 -83.8073,78.9803 -83.8735,79.0046 -83.9016,79.0071 -84.2096,79.0259 -84.2402,79.027 -84.2728,79.0252 -84.3882,78.9975 -84.5245,78.951 -84.5096,78.925 -84.4847,78.915 -84.4638,78.9107 -84.4167,78.9049 -84.3886,78.9025 -84.311,78.8933 -84.2111,78.8789 -84.1682,78.8711 -84.1153,78.8584 -84.0676,78.8486 -83.9983,78.8426 -83.9397,78.8404 -83.9047,78.8402 -83.774,78.8399 -83.5534,78.8293 -83.528,78.8259 -83.4358,78.818 -83.3786,78.8143 -83.3119,78.8136 -83.2556,78.8138 -83.0065,78.8227 -82.8695,78.8245 -82.806,78.8232 -82.6678,78.8186 -82.5831,78.8098 -82.5577,78.8065 -82.4259,78.7867 -82.3043,78.7682 -82.2482,78.7664 -82.0929,78.7779 -81.8475,78.7994 -81.7455,78.8435 -81.7128,78.8672 -81.6652,78.8856 -81.6116,78.8968 -81.3642,78.9342 -81.2951,78.9443 -81.2587,78.943 -81.2309,78.929 -81.3004,78.9072 -81.4396,78.8615 -81.5016,78.7985 -81.482,78.7898 -81.422,78.7813 -81.4067,78.7656 -81.4537,78.725 -81.4894,78.723 -81.5766,78.7328 -81.5086,78.7395 -81.6611,78.7496 -81.6944,78.7495 -81.826,78.7435 -81.8594,78.7411 -82.0007,78.7242 -82.036,78.721 -82.1752,78.7169 -82.2084,78.7171 -82.3666,78.7211 -82.3954,78.7226 -82.4207,78.7258 -82.5555,78.7317 -82.7354,78.7394 -82.8005,78.7398 -82.8292,78.7392 -82.9308,78.7309 -82.9614,78.7275 -82.9959,78.7174 -82.9631,78.6855 -82.8527,78.6804 -82.8137,78.676 -82.6565,78.6502 -82.5805,78.6239 -82.5551,78.6183 -82.527,78.6152 -82.498,78.6139 -82.4095,78.6123 -82.3652,78.6122 -82.3105,78.617 -82.2804,78.6239 -82.2525,78.6297 -82.2271,78.6324 -82.203,78.6332 -82.1428,78.6331 -82.0579,78.6311 -82.0262,78.6283 -82.0018,78.6249 -81.974,78.6071 -82.0025,78.6007 -82.027,78.602 -82.0977,78.6103 -82.1544,78.6151 -82.1823,78.6158 -82.2033,78.6151 -82.329,78.5886 -82.3091,78.5681 -82.2729,78.5541 -82.2433,78.5462 -82.1643,78.5273 -82.0583,78.5011 -81.9869,78.4776 -82.0107,78.4625 -82.0567,78.4536 -82.0962,78.4516 -82.122,78.4531 -82.1654,78.4586 -82.2548,78.4755 -82.3577,78.496 -82.443,78.5391 -82.5683,78.5796 -82.5905,78.5817 -82.6563,78.5788 -82.6873,78.5799 -82.7399,78.5838 -82.8461,78.5985 -82.981,78.6246 -83.033,78.6371 -83.0519,78.6477 -83.0801,78.6556 -83.1376,78.6627 -83.1719,78.6632 -83.2289,78.6655 -83.2558,78.6679 -83.2811,78.671 -83.3221,78.6804 -83.3444,78.6861 -83.3827,78.6976 -83.4094,78.7064 -83.4363,78.7135 -83.4885,78.7206 -83.5922,78.7289 -83.8851,78.7392 -83.9529,78.7406 -84.1518,78.7391 -84.3022,78.7437 -84.451,78.7515 -84.4789,78.7537 -84.5046,78.7568 -84.5264,78.7616 -84.5836,78.7724 -84.7459,78.7967 -84.773,78.8003 -84.8009,78.8027 -84.8365,78.8012 -84.9937,78.7939 -85.0,78.7926 -85.0,78.0813 -84.9307,78.114 -84.7858,78.1848 -84.7127,78.2377 -84.7199,78.3001 -84.5837,78.399 -84.4094,78.475 -84.3672,78.474 -84.4459,78.4198 -84.4729,78.4066 -84.5171,78.3925 -84.609,78.2558 -84.5583,78.2346 -84.5152,78.2275 -84.478,78.2258 -84.4505,78.2265 -84.4195,78.2317 -84.3741,78.2502 -84.3453,78.2541 -84.3216,78.2368 -84.3488,78.2228 -84.3732,78.2187 -84.4021,78.2149 -84.4745,78.2109 -84.5355,78.2106 -84.5584,78.2071 -84.5777,78.2004 -84.6929,78.1239 -84.7135,78.0967 -84.6885,78.0799 -84.6537,78.0769 -84.6213,78.0789 -84.5216,78.0962 -84.4667,78.1029 -84.4381,78.1031 -84.2515,78.1035 -84.2248,78.1029 -84.1988,78.1007 -83.8737,78.0613 -83.9202,78.0437 -83.9477,78.0429 -83.969,78.0447 -84.0303,78.0524 -84.0614,78.0596 -84.176,78.0722 -84.2944,78.0831 -84.3758,78.0858 -84.4024,78.0832 -84.4331,78.073 -84.4531,78.0686 -84.5057,78.0602 -84.5382,78.0571 -84.574,78.0548 -84.6461,78.0566 -84.739,78.049 -84.8284,77.9817 -84.7388,77.9603 -84.6271,77.9456 -84.601,77.9433 -84.5444,77.9414 -84.5111,77.9429 -84.4827,77.9446 -84.4194,77.9506 -84.3688,77.9577 -84.3033,77.9699 -84.279,77.9719 -84.1563,77.9731 -84.0702,77.9692 -84.0438,77.9627 -84.0755,77.9567 -84.1068,77.9567 -84.2708,77.9585 -84.2936,77.9573 -84.3216,77.9537 -84.4,77.9354 -84.4273,77.9281 -84.4481,77.9179 -84.4729,77.9124 -84.5075,77.9102 -84.5338,77.9107 -84.5626,77.9129 -84.6297,77.9193 -84.7081,77.9307 -84.7548,77.9414 -84.7838,77.9435 -84.8103,77.9427 -85.0,77.9131 -85.0,77.7856 -84.9461,77.7887 -84.9121,77.7891 -84.8029,77.7872 -84.594,77.7956 -84.5636,77.7983 -84.41,77.8121 -84.3817,77.8137 -84.315,77.8101 -84.1496,77.7969 -84.1279,77.7931 -84.0673,77.7772 -84.091,77.7718 -84.1252,77.7759 -84.177,77.7838 -84.2458,77.787 -84.3586,77.7906 -84.4117,77.789 -84.4397,77.7853 -84.5842,77.7744 -84.6722,77.7778 -84.9538,77.7708 -84.9776,77.7685 -85.0,77.7653 -85.0,77.6903 -84.8908,77.7046 -84.8003,77.7176 -84.8022,77.684 -84.937,77.6674 -85.0,77.648 -85.0,77.5427 -84.9065,77.5295 -84.7216,77.4942 -84.7016,77.4892 -84.6716,77.4893 -84.4643,77.5272 -84.2903,77.5706 -84.2703,77.5767 -84.2423,77.5931 -84.2364,77.6322 -84.1825,77.6135 -84.1916,77.5935 -84.2697,77.5522 -84.3775,77.5156 -84.4149,77.5067 -84.4571,77.4977 -84.5233,77.4857 -84.5651,77.4769 -84.5869,77.4718 -84.6187,77.4551 -84.609,77.4307 -84.5203,77.4091 -84.3306,77.4007 -84.3067,77.4007 -84.2431,77.408 -84.2037,77.413 -84.1715,77.4158 -84.1381,77.4165 -83.982,77.4094 -83.9446,77.4036 -83.8961,77.3976 -83.6735,77.38 -83.6515,77.3787 -83.6265,77.3815 -83.4883,77.4069 -83.4017,77.4287 -83.2813,77.4608 -83.1809,77.4885 -83.1403,77.5044 -82.9445,77.5998 -82.9099,77.6323 -82.8759,77.6676 -82.7019,77.7617 -82.6049,77.7837 -82.522,77.8019 -82.4849,77.8222 -82.5326,77.8538 -82.5413,77.893 -82.4445,77.9315 -82.4244,77.9379 -82.4041,77.9425 -82.3015,77.9581 -82.2706,77.9606 -82.0781,77.9588 -82.1266,77.9239 -82.1625,77.9204 -82.2232,77.921 -82.2501,77.9207 -82.2906,77.9175 -82.3242,77.9119 -82.3368,77.8954 -82.2793,77.8486 -82.2951,77.8075 -82.409,77.7349 -82.4281,77.7239 -82.6493,77.6049 -82.7653,77.5535 -82.9707,77.4658 -83.118,77.406 -83.1441,77.3957 -83.1805,77.3878 -83.3483,77.3637 -83.375,77.3602 -83.4363,77.3562 -83.522,77.3553 -83.555,77.3528 -83.583,77.3402 -83.5327,77.3118 -83.4747,77.2948 -83.4099,77.284 -83.3083,77.2816 -83.2278,77.2757 -83.2232,77.2378 -83.2615,77.2332 -83.2877,77.2352 -83.5484,77.2578 -83.6224,77.2654 -83.7038,77.2774 -83.739,77.2839 -83.7597,77.2859 -83.8153,77.2869 -83.907,77.2836 -84.0232,77.2736 -84.0873,77.2717 -84.1393,77.2724 -84.1819,77.2775 -84.2228,77.285 -84.2484,77.2878 -84.2729,77.2901 -84.3024,77.29 -84.3468,77.2845 -84.3659,77.2746 -84.314,77.2244 -84.2733,77.213 -84.2415,77.2082 -84.221,77.19 -84.2329,77.1834 -84.2822,77.1845 -84.3548,77.1894 -84.402,77.1932 -84.472,77.2003 -84.5115,77.2071 -84.5771,77.223 -84.627,77.2404 -84.6972,77.2611 -84.7244,77.2656 -84.9061,77.276 -85.0,77.2753 -85.0,76.1878 -84.9979,76.1877 14,-5.0,Canada -84.9997,79.0852 -84.9741,79.0983 -84.9451,79.1058 -84.8927,79.1143 -84.8336,79.1217 -84.6651,79.1408 -84.6397,79.1534 -84.66,79.179 -84.7725,79.2328 -84.8628,79.2607 -84.8828,79.2643 -85.0,79.2947 -85.0,79.085 -84.9997,79.0852 14,-5.0,Canada -84.9984,78.8648 -84.9825,78.8673 -84.9616,78.8717 -84.9451,78.8769 -84.9222,78.886 -84.912,78.892 -84.9041,78.9008 -84.9179,78.9146 -84.9349,78.9204 -84.9515,78.9245 -84.9984,78.9319 -85.0,78.932 -85.0,78.8645 -84.9984,78.8648 25,-5.0,Canada -84.9977,77.4154 -84.9195,77.3999 -84.902,77.3957 -84.8906,77.385 -84.9089,77.3725 -84.922,77.3618 -84.9283,77.3525 -84.918,77.3454 -84.9036,77.3428 -84.8767,77.3414 -84.8456,77.3427 -84.7774,77.3479 -84.711,77.3548 -84.6848,77.3583 -84.5934,77.3752 -84.5749,77.3802 -84.5643,77.3853 -84.5727,77.3932 -84.7447,77.4572 -84.7603,77.4618 -84.856,77.4689 -84.9838,77.4746 -85.0,77.4746 -85.0,77.4157 -84.9977,77.4154 266,-5.0,Canada -84.9946,74.3904 -84.9055,74.397 -84.8767,74.4017 -84.8544,74.4072 -84.8195,74.4303 -84.8242,74.5103 -84.8474,74.5445 -84.7758,74.5956 -84.7406,74.586 -84.7334,74.5634 -84.7545,74.5157 -84.7641,74.4732 -84.6951,74.4078 -84.6753,74.4011 -84.6522,74.3997 -84.6312,74.4004 -84.423,74.4051 -84.1784,74.406 -84.138,74.4026 -84.1151,74.4022 -84.0678,74.402 -84.0214,74.4039 -83.999,74.4055 -83.9285,74.4138 -83.8903,74.4216 -83.8462,74.4293 -83.8207,74.4326 -83.6904,74.4453 -83.6382,74.4492 -83.6142,74.4495 -83.5888,74.449 -83.569,74.447 -83.5045,74.4437 -83.3891,74.4404 -83.2632,74.4755 -83.2384,74.4891 -83.1087,74.6502 -83.1057,74.6747 -83.1373,74.682 -83.1669,74.6863 -83.212,74.695 -83.2476,74.7091 -83.3045,74.74 -83.3401,74.7815 -83.3186,74.7969 -83.2923,74.7989 -83.2567,74.7942 -83.1837,74.7726 -83.1624,74.764 -83.1188,74.7471 -83.0818,74.7331 -83.0311,74.7213 -83.0101,74.718 -82.9854,74.7185 -82.9385,74.7247 -82.8936,74.725 -82.8717,74.7184 -82.8127,74.6749 -82.8664,74.6576 -82.8911,74.6459 -82.9136,74.6108 -82.9099,74.5862 -82.8753,74.5388 -82.8411,74.5137 -82.8034,74.4927 -82.739,74.4641 -82.6999,74.4475 -82.6577,74.4369 -82.5697,74.4184 -82.5339,74.4163 -82.4019,74.4096 -82.3702,74.4093 -82.3442,74.413 -82.2979,74.4256 -82.1148,74.4087 -81.8797,74.3769 -81.8489,74.374 -81.6439,74.3578 -81.6,74.3554 -81.5743,74.3563 -81.5486,74.3597 -81.4601,74.3769 -81.3005,74.4127 -81.0684,74.4626 -81.009,74.4696 -80.8496,74.4777 -80.8201,74.4748 -80.7748,74.4666 -80.7424,74.4644 -80.6349,74.461 -80.5443,74.4614 -80.383,74.4626 -80.2805,74.4737 -80.2534,74.4783 -80.1767,74.4798 -80.1319,74.4786 -80.0459,74.4742 -80.0323,74.4752 -79.9461,74.5281 -79.9829,74.5959 -79.9505,74.6279 -79.8927,74.6867 -79.8938,74.7199 -79.9439,74.7341 -79.9766,74.7409 -80.0141,74.7469 -80.0509,74.7502 -80.0867,74.7546 -80.1283,74.7608 -80.1508,74.7663 -80.2038,74.7921 -80.1801,74.8086 -80.1513,74.8208 -80.1176,74.8327 -80.0869,74.8263 -80.0679,74.783 -80.043,74.7682 -79.8585,74.7341 -79.7218,74.7111 -79.6717,74.7107 -79.6477,74.7144 -79.5242,74.7341 -79.3716,74.7558 -79.3223,74.7552 -79.2937,74.7568 -79.183,74.7701 -79.1625,74.7737 -79.1332,74.7977 -79.1837,74.8086 -79.226,74.8168 -79.2561,74.8306 -79.3355,74.8854 -79.2957,74.8934 -79.3798,74.9128 -79.4036,74.9167 -79.4817,74.9247 -79.5053,74.9257 -79.5748,74.9246 -79.7081,74.9076 -79.7321,74.9041 -79.7649,74.8964 -79.8162,74.8763 -80.03,74.844 -80.0589,74.8577 -80.0321,74.8701 -80.005,74.8731 -79.9727,74.882 -80.0276,74.8917 -80.086,74.8939 -80.0991,74.8936 -80.1161,74.8958 -80.1897,74.9178 -80.2209,74.9307 -80.0819,74.9552 -80.0008,74.9597 -79.9369,74.9616 -79.9147,74.964 -79.7462,74.9935 -79.7398,75.016 -79.7213,75.0339 -79.6201,75.0557 -79.5586,75.0626 -79.5168,75.0599 -79.4364,75.068 -79.4144,75.0703 -79.3559,75.0944 -79.2917,75.1252 -79.2275,75.1753 -79.3331,75.1761 -79.3634,75.1805 -79.3923,75.2028 -79.3471,75.2135 -79.3176,75.215 -79.294,75.2331 -79.2752,75.2733 -79.3035,75.2859 -79.3449,75.2896 -79.3969,75.2949 -79.4569,75.3326 -79.4182,75.3405 -79.3652,75.346 -79.4268,75.357 -79.5061,75.3656 -79.7106,75.3741 -79.7818,75.3713 -79.8894,75.3636 -80.0874,75.3505 -80.1369,75.3581 -80.0331,75.3801 -79.9725,75.3844 -79.8658,75.4022 -79.7339,75.4306 -79.8487,75.473 -79.882,75.4809 -79.9791,75.5028 -80.045,75.5174 -80.0961,75.5246 -80.2525,75.5442 -80.281,75.5462 -80.3259,75.5448 -80.5578,75.5319 -80.6354,75.5288 -80.7615,75.5273 -80.7875,75.5272 -81.0407,75.5443 -81.0563,75.5583 -80.9972,75.5983 -80.9882,75.665 -81.2255,75.6943 -81.3112,75.7027 -81.4349,75.7049 -81.6592,75.7044 -81.73,75.7086 -81.9127,75.7203 -82.0514,75.7299 -82.0992,75.7301 -82.2382,75.7215 -82.436,75.705 -82.5707,75.6797 -82.5914,75.6753 -82.7309,75.6496 -82.836,75.6329 -82.8941,75.628 -83.0626,75.6313 -83.1962,75.643 -83.2225,75.6565 -83.2416,75.6725 -83.2643,75.6799 -83.2844,75.6834 -83.3351,75.6852 -83.389,75.6829 -83.4416,75.6822 -83.4672,75.6837 -83.5152,75.696 -83.476,75.7075 -83.4999,75.717 -83.5354,75.7176 -83.6462,75.7123 -83.6972,75.7044 -83.8386,75.6557 -84.0667,75.5967 -84.0903,75.5929 -84.1181,75.5916 -84.2501,75.5881 -84.4211,75.5803 -84.4214,75.5395 -84.3985,75.5344 -84.3754,75.5331 -84.3161,75.5323 -84.272,75.5272 -84.2923,75.5219 -84.34,75.5203 -84.3673,75.5205 -84.3898,75.5222 -84.4513,75.5283 -84.4855,75.5366 -84.53,75.544 -84.564,75.5467 -84.6456,75.5507 -84.6934,75.5527 -84.8128,75.5508 -84.8403,75.5457 -84.956,75.5058 -85.0,75.4892 -85.0,74.3902 -84.9946,74.3904 2609,-5.0,Canada -84.9883,70.0014 -84.9807,70.0009 -84.5982,69.928 -84.5437,69.9196 -84.4721,69.9117 -84.3764,69.9031 -84.1303,69.8891 -83.9784,69.8944 -83.8995,69.8947 -83.8584,69.8908 -83.8234,69.8849 -83.7618,69.8752 -83.7157,69.8702 -83.5329,69.857 -83.472,69.8557 -83.4317,69.8583 -83.1607,69.8876 -83.0574,69.908 -82.9686,69.9188 -82.8695,69.9133 -82.8541,69.8975 -82.5614,69.8195 -82.4644,69.802 -82.3955,69.7803 -82.347,69.7702 -82.2316,69.7685 -82.1298,69.7668 -82.0355,69.7374 -82.0632,69.7375 -82.0928,69.736 -82.0651,69.7114 -82.0116,69.6999 -81.9531,69.6931 -81.9403,69.7222 -81.8831,69.7688 -81.8288,69.7837 -81.7854,69.7595 -81.7024,69.7619 -81.6764,69.7651 -81.5623,69.7838 -81.5421,69.8502 -81.5875,69.8623 -81.6635,69.8727 -81.7973,69.9212 -81.9217,69.9742 -82.1171,70.0274 -82.2323,70.0513 -82.3104,70.0672 -82.3898,70.0799 -82.4998,70.0981 -82.6377,70.1292 -82.7129,70.1569 -82.8625,70.2148 -82.8144,70.2123 -82.7925,70.2101 -82.7605,70.2024 -82.729,70.1908 -82.5549,70.146 -82.4262,70.1156 -82.2914,70.0877 -82.2632,70.0832 -82.1785,70.0699 -82.0317,70.0436 -81.9187,70.0164 -81.883,70.0045 -81.7721,69.9546 -81.6168,69.8977 -81.5047,69.8739 -81.4211,69.862 -81.309,69.8376 -81.256,69.8224 -81.1775,69.7897 -81.0404,69.7431 -80.9968,69.7328 -80.9695,69.7222 -80.9534,69.7076 -80.9332,69.6825 -80.9076,69.6708 -80.8467,69.6562 -80.7786,69.6432 -80.7771,69.6238 -80.7636,69.6245 -80.6591,69.6408 -80.5927,69.6801 -80.6161,69.7004 -80.7639,69.7724 -80.8238,69.7957 -80.8521,69.8032 -80.9131,69.8233 -80.9621,69.8454 -80.9768,69.8747 -80.9928,69.8919 -81.0118,69.9005 -81.0845,69.9257 -81.1353,69.9412 -81.2861,69.9339 -81.356,69.9608 -81.3785,69.9658 -81.4457,69.9716 -81.499,69.9753 -81.5335,69.9854 -81.5563,70.0023 -81.5751,70.0334 -81.5384,70.0399 -81.5173,70.0369 -81.4218,70.0223 -81.2817,70.0049 -81.2493,70.0022 -81.1975,70.0009 -81.1051,70.0039 -81.0455,70.0054 -80.8824,69.9943 -80.7276,69.9796 -80.6097,69.9594 -80.4841,69.9485 -80.4203,69.9569 -80.3919,69.9566 -80.3705,69.953 -80.3038,69.9359 -80.286,69.9248 -80.2595,69.9143 -80.156,69.8905 -80.1265,69.8929 -80.093,69.9104 -80.0574,69.9168 -80.0217,69.9171 -79.993,69.9156 -79.8786,69.9066 -79.7171,69.883 -79.6596,69.8586 -79.6229,69.8204 -79.6035,69.7975 -79.5186,69.7606 -79.4631,69.7578 -79.4319,69.7595 -79.3974,69.7673 -79.3744,69.7763 -79.354,69.7814 -79.302,69.7881 -79.2354,69.7944 -79.2053,69.7955 -79.0282,69.794 -79.0065,69.7935 -78.8943,69.7879 -78.6782,69.7955 -78.6204,69.8006 -78.5246,69.8386 -78.4992,69.8625 -78.4912,69.8872 -78.4926,69.9135 -78.5118,69.9581 -78.5627,70.0235 -78.5758,70.0742 -78.5947,70.0978 -78.6153,70.114 -78.7453,70.2088 -78.7629,70.2193 -78.7903,70.2313 -78.8118,70.2393 -78.8563,70.248 -78.8871,70.249 -78.9111,70.2358 -78.9277,70.2149 -78.9493,70.2126 -79.0403,70.2226 -79.061,70.2298 -79.0822,70.2454 -79.1141,70.2593 -79.1398,70.268 -79.187,70.2783 -79.2094,70.2796 -79.2392,70.2694 -79.3916,70.2958 -79.4108,70.3187 -79.3971,70.3374 -79.2385,70.398 -79.2175,70.4006 -79.1272,70.3845 -79.1132,70.3595 -79.0914,70.3443 -79.0524,70.3292 -79.0324,70.3258 -79.0022,70.3336 -78.9821,70.3457 -78.9663,70.3616 -78.89,70.523 -78.9196,70.5178 -78.9727,70.5291 -78.8708,70.5828 -78.8391,70.5873 -78.8205,70.5732 -78.8072,70.5469 -78.7872,70.54 -78.7343,70.5289 -78.6859,70.5373 -78.5492,70.4549 -78.5889,70.4577 -78.6106,70.4634 -78.636,70.4796 -78.6497,70.4996 -78.6926,70.503 -78.7159,70.4979 -78.897,70.4409 -78.9202,70.4035 -78.893,70.3773 -78.8545,70.3626 -78.7673,70.358 -78.7262,70.3572 -78.6816,70.3615 -78.5709,70.3466 -78.5285,70.2828 -78.4829,70.2569 -78.3921,70.2217 -78.3965,70.2498 -78.3532,70.265 -78.3199,70.2655 -78.2559,70.2573 -78.2222,70.2387 -78.3057,70.1967 -78.2289,70.1214 -78.1771,70.1064 -78.0652,70.112 -77.9595,70.1236 -77.7147,70.1665 -77.6373,70.1539 -77.504,70.0926 -77.5014,70.0282 -77.4946,70.0186 -77.4927,69.9966 -77.5009,69.9575 -77.5196,69.9237 -77.5253,69.9035 -77.5227,69.8723 -77.4994,69.7463 -77.4792,69.6751 -77.4639,69.6593 -77.4366,69.6499 -77.3911,69.6551 -77.2832,69.7024 -77.3399,69.7364 -77.2697,69.7667 -77.0924,69.7971 -77.0589,69.8043 -77.0202,69.8156 -76.9964,69.8246 -76.9653,69.8336 -76.8225,69.8462 -76.9487,69.8108 -77.0406,69.796 -77.0805,69.7888 -77.1234,69.7655 -77.137,69.7434 -76.9829,69.7258 -76.8593,69.7215 -76.766,69.7195 -76.6767,69.7245 -76.6148,69.6557 -76.6265,69.63 -76.6547,69.6096 -76.7014,69.5947 -76.7303,69.5891 -76.7682,69.5886 -76.7829,69.6053 -76.9902,69.5885 -77.0242,69.5529 -76.97,69.5365 -76.6788,69.4861 -76.5647,69.4705 -76.5261,69.4735 -76.3919,69.5326 -76.3632,69.5555 -76.3585,69.5776 -76.3847,69.5839 -76.4157,69.5768 -76.4673,69.588 -76.379,69.6057 -76.285,69.6001 -76.2252,69.5867 -76.1305,69.5702 -76.0609,69.5748 -76.0206,69.5719 -76.0621,69.5472 -76.0963,69.5367 -76.1826,69.5501 -76.2853,69.5637 -76.318,69.5601 -76.4556,69.4953 -76.4741,69.4612 -76.4423,69.44 -76.2531,69.3576 -76.1336,69.3183 -76.0776,69.3236 -76.0385,69.3243 -76.0046,69.3218 -75.7997,69.278 -75.6206,69.2244 -75.597,69.2158 -75.5074,69.1817 -75.449,69.1549 -75.4296,69.1326 -75.4081,69.068 -75.4426,68.9999 -75.4849,68.9914 -75.6518,68.9787 -75.7429,68.9481 -75.8067,68.9216 -75.8345,68.9144 -75.9204,68.9198 -75.9565,68.9405 -75.978,68.9457 -76.0451,68.9553 -76.0774,68.9595 -76.1775,68.9657 -76.2052,68.9663 -76.2593,68.9618 -76.338,68.9539 -76.3798,68.9494 -76.4147,68.9434 -76.4399,68.9371 -76.4742,68.9199 -76.492,68.8391 -76.4807,68.8226 -76.4451,68.7953 -76.422,68.7955 -76.3885,68.7953 -76.3624,68.7841 -76.3788,68.749 -76.4067,68.7248 -76.4458,68.7057 -76.4738,68.6933 -76.5099,68.6753 -76.5235,68.6459 -76.5047,68.6166 -76.4661,68.5987 -76.4205,68.5872 -76.3876,68.585 -76.2946,68.5872 -76.2663,68.59 -76.214,68.5994 -76.1652,68.6095 -76.0652,68.6328 -75.8878,68.676 -75.8406,68.689 -75.8177,68.6999 -75.6479,68.7484 -75.4865,68.7806 -75.4429,68.7913 -75.4043,68.8028 -75.3776,68.8128 -75.341,68.8473 -75.3766,68.8625 -75.41,68.8977 -75.3672,68.9171 -75.3254,68.9294 -75.2919,68.9303 -75.2614,68.9131 -75.2393,68.8966 -75.2176,68.8829 -75.155,68.8534 -75.037,68.8044 -75.0098,68.7979 -74.9717,68.798 -74.9527,68.8043 -74.9133,68.8298 -74.8766,68.9001 -74.8874,68.9221 -74.7884,68.9602 -74.6704,68.9923 -74.6257,68.9873 -74.4931,68.9513 -74.4857,68.9254 -74.5154,68.918 -74.5953,68.9169 -74.5724,68.9317 -74.5968,68.9315 -74.7514,68.9046 -74.7978,68.8869 -74.8612,68.8642 -74.8779,68.839 -74.8424,68.8452 -74.768,68.8556 -74.733,68.8648 -74.7082,68.8659 -74.5627,68.8457 -74.5811,68.7843 -74.6051,68.7834 -74.6285,68.7658 -74.6782,68.7524 -74.7564,68.7211 -74.6126,68.686 -74.498,68.6996 -74.478,68.7128 -74.5072,68.7288 -74.5384,68.7322 -74.5603,68.7337 -74.5237,68.751 -74.4986,68.7582 -74.4754,68.758 -74.4455,68.7534 -74.3892,68.7375 -74.4125,68.7092 -74.4335,68.7007 -74.4622,68.6943 -74.5056,68.6858 -74.5632,68.6802 -74.5683,68.6456 -74.5485,68.6328 -74.4406,68.5936 -74.3741,68.5361 -74.3623,68.5173 -74.2279,68.4564 -74.2013,68.4503 -74.0641,68.4375 -74.0148,68.4339 -73.8716,68.4258 -73.834,68.4049 -73.7857,68.417 -73.7652,68.4241 -73.7473,68.4399 -73.7284,68.4697 -73.8352,68.5365 -73.9488,68.6023 -73.9366,68.6316 -73.7368,68.6194 -73.7091,68.6176 -73.6046,68.5978 -73.5485,68.5685 -73.5803,68.4302 -73.6589,68.416 -73.7125,68.4022 -73.7334,68.357 -73.7401,68.3047 -73.698,68.2571 -73.4735,68.1599 -73.439,68.166 -73.3517,68.2041 -73.1951,68.2541 -73.2035,68.2786 -73.1558,68.3071 -73.1246,68.3073 -73.0985,68.3034 -73.076,68.2965 -73.0574,68.2892 -73.1651,68.2414 -73.2,68.2417 -73.2498,68.2254 -73.3415,68.1881 -73.2411,68.1714 -73.2006,68.1803 -73.1822,68.1883 -73.1547,68.1909 -73.117,68.1944 -73.0408,68.1721 -73.0074,68.1418 -72.8398,68.1182 -72.828,68.0519 -72.804,68.0079 -72.7882,67.9913 -72.7593,67.9705 -72.7435,67.9272 -72.7507,67.875 -72.7736,67.864 -72.7904,67.8432 -72.6841,67.7647 -72.5829,67.755 -72.4611,67.7027 -72.4451,67.6561 -72.5224,67.6143 -72.515,67.5979 -72.4467,67.5534 -72.3448,67.5441 -72.3302,67.5235 -72.2861,67.3865 -72.2137,67.2677 -72.1374,67.2053 -72.1091,67.1627 -72.13,67.079 -72.1665,67.0542 -72.1956,67.0381 -72.2196,67.0273 -72.2502,67.0184 -72.2819,67.0109 -72.3148,67.0049 -72.3763,66.9983 -72.4013,66.9976 -72.4763,66.9997 -72.5354,66.9911 -72.5668,66.9834 -72.589,66.9781 -72.6492,66.9551 -72.679,66.9367 -72.688,66.9132 -72.7029,66.8838 -72.7241,66.8472 -72.8514,66.7308 -72.9591,66.639 -73.1172,66.5886 -73.1463,66.5815 -73.1785,66.5759 -73.202,66.5658 -73.2296,66.5482 -73.2486,66.5294 -73.2684,66.4976 -73.2873,66.4706 -73.3105,66.4605 -73.38,66.4388 -73.4567,66.4112 -73.5161,66.3879 -73.5947,66.3541 -73.7105,66.3045 -73.9274,66.2173 -74.0366,66.1864 -74.1605,66.1537 -74.1912,66.1419 -74.2155,66.1307 -74.255,66.1123 -74.2896,66.09 -74.3197,66.0516 -74.2994,66.0181 -74.2747,66.0015 -74.2303,65.9747 -74.1875,65.9537 -74.1467,65.9355 -74.1086,65.9185 -73.9797,65.8418 -73.9085,65.7926 -73.8711,65.7755 -73.7811,65.7429 -73.7361,65.7389 -73.6923,65.7373 -73.6621,65.7283 -73.5616,65.6793 -73.536,65.6403 -73.514,65.5763 -73.4703,65.5376 -73.4158,65.48 -73.353,65.3924 -73.4126,65.3807 -73.5075,65.3739 -73.5574,65.3865 -73.5935,65.4276 -73.6196,65.4387 -73.6431,65.4422 -73.697,65.4502 -73.9572,65.453 -74.0337,65.443 -74.1644,65.3791 -74.1724,65.3606 -74.2038,65.321 -74.3538,65.2568 -74.3751,65.2515 -74.3973,65.2497 -74.44,65.2506 -74.4803,65.2559 -74.5038,65.2621 -74.6738,65.2957 -74.9544,65.3068 -74.9406,65.2738 -74.9207,65.2484 -74.9323,65.2076 -74.956,65.188 -75.0035,65.1753 -75.0365,65.1705 -75.0616,65.169 -75.339,65.1871 -75.4099,65.1928 -75.4326,65.2008 -75.4519,65.2139 -75.7139,65.2383 -75.7526,65.2404 -75.7915,65.2377 -75.7898,65.2122 -75.7387,65.1876 -75.7126,65.1767 -75.684,65.1736 -75.6302,65.1614 -75.6107,65.1563 -75.5767,65.1427 -75.3655,65.0574 -75.2944,65.0103 -75.275,64.9959 -75.2558,64.9789 -75.2278,64.9373 -75.2062,64.9239 -75.1499,64.9438 -75.13,64.9542 -75.1121,64.9746 -75.1129,65.0044 -75.0999,65.024 -75.0688,65.0281 -75.0404,65.0202 -75.0429,64.993 -75.1143,64.8855 -75.199,64.901 -75.2354,64.9003 -75.3237,64.8551 -75.4112,64.7973 -75.3082,64.7923 -75.2727,64.8096 -75.2073,64.8173 -75.2241,64.7526 -75.1845,64.6841 -75.1486,64.6674 -75.1487,64.6471 -75.1671,64.6391 -75.2235,64.6348 -75.2393,64.656 -75.3114,64.7311 -75.4114,64.7692 -75.446,64.7824 -75.5147,64.8623 -75.4942,64.8663 -75.407,64.8595 -75.376,64.8564 -75.3518,64.8587 -75.2699,64.893 -75.2605,64.944 -75.2761,64.965 -75.3015,64.989 -75.3202,65.0027 -75.378,65.0274 -75.4199,65.0396 -75.5893,65.0896 -75.6185,65.1362 -75.6539,65.1483 -75.7621,65.1751 -75.8084,65.1738 -75.9204,65.1954 -76.0119,65.2144 -76.0826,65.2311 -76.2091,65.2605 -76.4733,65.3169 -76.6706,65.3432 -76.6959,65.3465 -76.7666,65.3476 -76.8013,65.3351 -76.9464,65.331 -76.9672,65.3505 -76.9999,65.3637 -77.0831,65.3876 -77.1103,65.39 -77.1817,65.3895 -77.2305,65.3861 -77.2693,65.3662 -77.2433,65.3446 -77.2126,65.3308 -77.1721,65.314 -77.1372,65.2877 -77.1599,65.2768 -77.1871,65.2762 -77.2531,65.2886 -77.3078,65.2934 -77.3543,65.2386 -77.29,65.194 -77.2681,65.183 -77.2351,65.1696 -77.1622,65.1107 -77.1823,65.0948 -77.339,65.0581 -77.3889,65.0585 -77.5249,65.0419 -77.8177,64.9602 -77.9919,64.8675 -77.9697,64.807 -77.9547,64.7918 -77.9121,64.774 -77.9183,64.733 -78.0291,64.6508 -78.0054,64.6103 -78.0134,64.5462 -78.0258,64.4901 -77.8159,64.3748 -77.6774,64.3329 -77.5933,64.2582 -77.5259,64.2414 -77.5062,64.3013 -77.4347,64.2888 -77.2809,64.2408 -77.2239,64.1687 -77.1989,64.1646 -77.1744,64.1671 -77.1433,64.1724 -77.1231,64.1769 -76.9858,64.2099 -76.8162,64.1804 -76.6951,64.1511 -76.5189,64.1049 -76.5058,64.1162 -76.5199,64.1439 -76.5645,64.1559 -76.5805,64.2079 -76.554,64.2213 -76.4405,64.2311 -76.3901,64.2252 -76.3535,64.2071 -76.3377,64.188 -76.1497,64.1994 -76.0509,64.227 -76.1137,64.2395 -76.1028,64.2781 -75.8934,64.2887 -75.8001,64.3194 -75.7113,64.2913 -75.688,64.2896 -75.5713,64.2985 -75.7161,64.3912 -75.7649,64.4028 -75.745,64.4081 -75.7245,64.4069 -75.6193,64.3867 -75.5967,64.3733 -75.5778,64.3626 -75.5527,64.3587 -75.4885,64.3797 -75.5789,64.4233 -75.6679,64.452 -75.6868,64.4815 -75.6945,64.526 -75.6737,64.5316 -75.6465,64.5321 -75.6184,64.5264 -75.5919,64.5103 -75.5625,64.4958 -75.5433,64.49 -75.5165,64.484 -75.4163,64.47 -75.3355,64.4595 -75.2597,64.4429 -75.2324,64.4337 -75.1974,64.4208 -75.179,64.4067 -75.1462,64.3867 -75.0626,64.3495 -75.0011,64.3756 -75.0331,64.4022 -74.9936,64.4036 -74.9077,64.3723 -74.8618,64.3502 -74.8314,64.3377 -74.6497,64.3011 -74.538,64.2916 -74.5376,64.3121 -74.4381,64.4003 -74.3692,64.453 -74.3251,64.4788 -74.3649,64.5036 -74.3972,64.5223 -74.465,64.5601 -74.5196,64.5869 -74.5463,64.596 -74.5851,64.6054 -74.6861,64.6361 -74.8301,64.7103 -74.8006,64.7235 -74.7641,64.7131 -74.7447,64.7044 -74.7194,64.7015 -74.6885,64.6981 -74.5741,64.6919 -74.5599,64.7166 -74.5699,64.7384 -74.5883,64.7664 -74.5058,64.8182 -74.4825,64.823 -74.3988,64.8109 -74.3321,64.757 -74.3528,64.7531 -74.4191,64.7522 -74.535,64.678 -74.5536,64.6549 -74.5093,64.6201 -74.3872,64.5421 -74.2403,64.4904 -74.0854,64.5063 -74.0634,64.5282 -74.0478,64.5829 -73.9702,64.6636 -73.9456,64.6711 -73.9067,64.6476 -73.9087,64.5304 -73.9269,64.4542 -73.9588,64.4557 -73.981,64.4531 -73.9554,64.2879 -73.9162,64.2548 -73.853,64.2484 -73.8264,64.3506 -73.7791,64.3805 -73.6984,64.4221 -73.7817,64.5163 -73.7637,64.5259 -73.7354,64.5223 -73.709,64.511 -73.6915,64.4995 -73.6746,64.4873 -73.6489,64.4715 -73.6084,64.4563 -73.5212,64.4972 -73.5095,64.5475 -73.4489,64.5494 -73.3216,64.5325 -73.3031,64.4854 -73.3275,64.4737 -73.3263,64.4268 -73.2786,64.43 -73.1673,64.4542 -73.1535,64.4724 -73.1596,64.5084 -73.1747,64.524 -73.1988,64.5563 -73.1562,64.5776 -73.0209,64.5271 -73.0209,64.4983 -73.1816,64.3962 -73.27,64.3661 -73.2725,64.2916 -73.2342,64.1908 -73.1946,64.1784 -73.1267,64.1949 -73.0788,64.2321 -72.7587,64.0826 -72.733,64.0128 -72.7783,64.005 -72.7942,63.9815 -72.6923,63.9406 -72.6357,63.9316 -72.6124,63.9231 -72.5764,63.8821 -72.5527,63.8867 -72.5236,63.9105 -72.5592,63.9291 -72.539,63.9983 -72.518,63.9994 -72.4494,63.941 -72.4685,63.864 -72.4978,63.8255 -72.4945,63.7949 -72.4918,63.7739 -72.4427,63.7741 -72.3862,63.7636 -72.3217,63.7313 -72.354,63.7248 -72.382,63.7137 -72.2936,63.703 -72.2249,63.7093 -72.2318,63.7316 -72.2221,63.7668 -72.0995,63.8706 -72.0807,63.8507 -72.0672,63.8142 -72.0725,63.7891 -72.1275,63.7086 -72.1546,63.6965 -72.1788,63.6986 -72.2166,63.6776 -72.1796,63.5976 -72.1447,63.5933 -72.0884,63.5932 -72.0712,63.603 -72.0275,63.6699 -72.0122,63.6571 -71.9103,63.6003 -71.8222,63.5706 -71.7857,63.5741 -71.7395,63.6013 -71.7087,63.6809 -71.802,63.6914 -71.8281,63.671 -71.857,63.6737 -71.8437,63.7032 -71.8227,63.7206 -71.7968,63.7295 -71.7588,63.7305 -71.6856,63.704 -71.5594,63.6177 -71.5218,63.6251 -71.4837,63.6436 -71.4422,63.6373 -71.4251,63.6022 -71.443,63.5712 -71.4346,63.5063 -71.3226,63.5001 -71.3047,63.5125 -71.2682,63.5557 -71.237,63.5544 -71.2278,63.526 -71.2705,63.4908 -71.2396,63.4871 -71.1902,63.4985 -71.1855,63.5254 -71.161,63.5337 -71.1132,63.5334 -71.09,63.5243 -71.1767,63.4526 -71.2713,63.4078 -71.4669,63.3459 -71.4943,63.3416 -71.5426,63.3418 -71.5703,63.3448 -71.6073,63.3501 -71.6446,63.3539 -71.6849,63.3572 -71.7921,63.3651 -71.8817,63.37 -71.9986,63.3649 -71.93,63.3198 -71.8679,63.3129 -71.66,63.3056 -71.6542,63.2488 -71.6296,63.1787 -71.5701,63.0996 -71.4848,63.0633 -71.4657,63.0574 -71.3201,63.0249 -71.2713,62.9822 -71.1199,62.9255 -71.0991,62.9243 -71.0606,62.945 -70.9938,62.9952 -70.8969,62.9931 -70.8532,63.0277 -70.862,63.0505 -70.8448,63.0749 -70.8231,63.0833 -70.7759,63.0921 -70.7176,63.0618 -70.7253,63.0345 -70.8726,62.9665 -70.9523,62.9525 -70.9884,62.9528 -71.0113,62.9112 -70.982,62.902 -70.9272,62.903 -70.8744,62.9125 -70.8374,62.9094 -70.7095,62.87 -70.7177,62.8479 -70.7478,62.8362 -70.7151,62.8227 -70.692,62.8194 -70.5276,62.8035 -70.3663,62.7879 -70.3404,62.7712 -70.2224,62.713 -70.0981,62.673 -70.0806,62.671 -69.9853,62.672 -69.7702,62.6917 -69.5918,62.7032 -69.3472,62.6866 -69.3684,62.6643 -69.3988,62.6583 -69.4258,62.6453 -69.4552,62.5813 -69.3841,62.5258 -69.3017,62.4737 -69.2954,62.5076 -69.2734,62.4932 -69.226,62.4599 -69.136,62.402 -69.0971,62.3789 -69.0587,62.3616 -69.0258,62.349 -68.9871,62.3344 -68.9051,62.3051 -68.8618,62.2972 -68.7889,62.2892 -68.7486,62.2843 -68.6259,62.2517 -68.591,62.228 -68.483,62.1876 -68.4236,62.1743 -68.3871,62.1686 -68.3367,62.1666 -68.2691,62.1634 -68.193,62.159 -68.1673,62.1561 -68.1308,62.1459 -68.101,62.1437 -68.0,62.1407 -68.0,63.0718 -68.0162,63.0761 -68.0529,63.1107 -68.0718,63.1432 -68.1368,63.2072 -68.1546,63.2203 -68.2254,63.2668 -68.3614,63.3433 -68.4232,63.3742 -68.5829,63.4503 -68.6254,63.4744 -68.6582,63.5107 -68.6746,63.5501 -68.6895,63.5655 -68.7908,63.6299 -68.8574,63.6678 -68.8267,63.6807 -68.7843,63.6796 -68.7405,63.6661 -68.6644,63.6507 -68.579,63.6594 -68.5109,63.6688 -68.4077,63.6539 -68.2937,63.6177 -68.2612,63.5826 -68.2313,63.567 -68.0,63.4877 -68.0,65.7139 -68.0098,65.7158 -68.0,65.7396 -68.0,65.7599 -68.0082,65.8439 -68.0565,65.8383 -68.1223,65.8287 -68.1585,65.8255 -68.1904,65.8396 -68.1856,65.9209 -68.166,65.945 -68.1397,65.931 -68.0658,65.8938 -68.0356,65.8865 -68.0,65.8816 -68.0,66.0274 -68.0192,66.0341 -68.0602,66.0451 -68.0815,66.0452 -68.1072,66.0232 -68.0921,65.9935 -68.1396,66.0005 -68.1617,66.0095 -68.2487,66.0499 -68.2704,66.0698 -68.4294,66.0952 -68.5292,66.0956 -68.7043,66.1055 -68.6687,66.1123 -68.5732,66.1154 -68.3989,66.1173 -68.2015,66.1137 -68.1062,66.0994 -68.0,66.0472 -68.0,68.4857 -68.071,68.4975 -68.0997,68.5001 -68.193,68.5055 -68.2514,68.505 -68.2806,68.4886 -68.3088,68.4748 -68.5109,68.4718 -68.5638,68.4821 -68.5434,68.4868 -68.5087,68.4904 -68.4604,68.4911 -68.3814,68.4967 -68.3588,68.502 -68.333,68.5226 -68.3879,68.537 -68.4178,68.5413 -68.4487,68.5454 -68.4924,68.5474 -68.5344,68.5427 -68.5653,68.5331 -68.6044,68.5148 -68.6584,68.5019 -68.6899,68.5013 -68.7518,68.5172 -68.632,68.5551 -68.6021,68.5609 -68.5345,68.5675 -68.512,68.5681 -68.4764,68.5677 -68.4167,68.564 -68.1995,68.5407 -68.0,68.5405 -68.0,68.6091 -68.0517,68.6187 -68.7972,68.6977 -68.8186,68.7023 -69.0462,68.7157 -69.2248,68.7334 -69.1676,68.7432 -69.1467,68.7436 -69.0828,68.7388 -69.0105,68.7409 -69.0312,68.7519 -69.0982,68.7628 -69.1318,68.7666 -69.1839,68.7686 -69.2225,68.7663 -69.2425,68.7761 -69.2141,68.7855 -69.1752,68.788 -69.1331,68.7874 -69.1037,68.7841 -68.9587,68.76 -68.8555,68.7336 -68.8209,68.7263 -68.7537,68.7187 -68.6547,68.7114 -68.5326,68.7081 -68.4566,68.7067 -68.3811,68.707 -68.4118,68.7329 -68.4549,68.7505 -68.4103,68.7585 -68.2805,68.7508 -68.2067,68.744 -68.0256,68.7264 -68.0,68.7229 -68.0,68.7523 -68.0345,68.7633 -68.1213,68.7814 -68.1476,68.7865 -68.2178,68.7932 -68.2868,68.7949 -68.3347,68.8051 -68.2282,68.8087 -68.1437,68.8063 -68.1037,68.8027 -68.0383,68.7902 -68.0,68.7825 -68.0,68.8583 -68.0155,68.8581 -68.0461,68.8603 -68.1184,68.8762 -68.1449,68.8913 -68.1831,68.8973 -68.2946,68.8841 -68.401,68.8868 -68.1892,68.9202 -68.1682,68.9219 -68.1224,68.9139 -68.0955,68.908 -68.0656,68.9033 -68.0,68.8953 -68.0,69.0502 -68.0321,69.0576 -68.205,69.0826 -68.2349,69.0863 -68.2662,69.0879 -68.3243,69.0774 -68.6063,69.0209 -68.7258,68.9942 -68.7454,68.9671 -68.7781,68.9091 -68.8072,68.8897 -68.8257,68.8822 -68.8546,68.876 -68.8754,68.8819 -68.853,68.8918 -68.8134,68.9132 -68.7807,69.0057 -68.8183,69.0189 -68.7255,69.0315 -68.5517,69.0506 -68.3621,69.1081 -68.4708,69.1199 -68.5096,69.1212 -68.5572,69.1199 -68.5903,69.1146 -68.6198,69.1105 -68.6502,69.1093 -68.715,69.1126 -68.7652,69.1184 -68.796,69.1239 -68.8198,69.1317 -68.7751,69.1316 -68.6921,69.1255 -68.5424,69.1343 -68.517,69.139 -68.4964,69.1403 -68.403,69.1376 -68.264,69.1321 -68.1165,69.1222 -68.017,69.1109 -68.0,69.1097 -68.0,69.1712 -68.0196,69.1788 -68.0523,69.1853 -68.0841,69.1884 -68.1055,69.1881 -68.1836,69.1859 -68.3574,69.1908 -68.39,69.1959 -68.5106,69.211 -68.783,69.2427 -68.8084,69.2424 -68.8651,69.238 -68.9996,69.2105 -69.0278,69.1981 -69.0602,69.1787 -69.0992,69.1823 -69.0544,69.2137 -69.0281,69.2215 -68.8916,69.2602 -68.8665,69.2655 -68.8359,69.2675 -68.8053,69.2663 -68.6965,69.2565 -68.6639,69.2525 -68.5924,69.2411 -68.5276,69.2328 -68.3174,69.2121 -68.2187,69.2051 -68.189,69.2061 -68.164,69.2092 -68.1385,69.215 -68.0955,69.221 -68.0691,69.2224 -68.0379,69.2185 -68.0,69.2083 -68.0,69.4015 -68.0348,69.4086 -68.1458,69.434 -68.1699,69.4406 -68.3884,69.4885 -68.4636,69.4976 -68.5199,69.501 -68.6122,69.4986 -68.777,69.4767 -68.8152,69.4682 -68.8483,69.4498 -69.0025,69.4304 -69.0573,69.4253 -69.1504,69.4162 -69.1836,69.4156 -69.2262,69.4201 -69.3002,69.429 -69.3569,69.4398 -69.4634,69.4533 -69.5127,69.4585 -69.5413,69.4589 -69.582,69.4554 -69.6458,69.4468 -69.6695,69.4391 -69.6935,69.4276 -69.7257,69.4187 -69.7487,69.4173 -69.8136,69.4243 -69.8522,69.4293 -69.8776,69.4427 -69.6876,69.4691 -69.5938,69.4778 -69.5383,69.4795 -69.4805,69.4774 -69.3992,69.4708 -69.2688,69.4573 -69.2144,69.4479 -69.1843,69.4425 -69.0612,69.447 -69.0391,69.4521 -68.8316,69.4991 -68.6909,69.526 -68.4966,69.551 -68.4718,69.5472 -68.3697,69.536 -68.348,69.5357 -68.2049,69.537 -68.1711,69.541 -68.088,69.5895 -68.071,69.6155 -68.0,69.6428 -68.0,70.1922 -68.0079,70.191 -68.164,70.1285 -68.1961,70.0826 -68.1754,70.0458 -68.1477,70.0446 -68.117,70.0461 -68.0779,70.0439 -68.0486,70.029 -68.0701,70.0112 -68.0901,70.0043 -68.1875,69.9729 -68.3212,69.9557 -68.4732,69.8918 -68.6095,69.8572 -68.6519,69.8614 -68.7201,69.8625 -68.7895,69.8599 -68.9261,69.8331 -68.9514,69.8254 -69.0437,69.7951 -69.1104,69.7669 -69.1349,69.7464 -69.1633,69.726 -69.2309,69.6922 -69.252,69.6868 -69.3008,69.6853 -69.3392,69.6893 -69.402,69.7069 -69.4218,69.7139 -69.4516,69.7192 -69.4918,69.7206 -69.5706,69.7165 -69.6049,69.7084 -69.6316,69.6954 -69.6607,69.6725 -69.6599,69.6409 -69.7931,69.5596 -69.8392,69.5252 -69.8488,69.5296 -69.8477,69.5749 -69.7207,69.6909 -69.6982,69.7064 -69.6763,69.719 -69.6541,69.7295 -69.6139,69.7432 -69.5934,69.7475 -69.5623,69.7494 -69.5323,69.7496 -69.4221,69.7452 -69.3923,69.7365 -69.3658,69.7296 -69.3167,69.7232 -69.2826,69.7276 -69.2471,69.7382 -69.2199,69.7495 -69.1955,69.7652 -69.1623,69.7918 -69.0026,69.8626 -68.938,69.8844 -68.8039,69.914 -68.7497,69.9208 -68.7173,69.9259 -68.6558,69.9442 -68.6318,69.9532 -68.5922,69.9726 -68.493,70.0613 -68.5307,70.1111 -68.6959,70.1118 -68.7834,70.1015 -68.8576,70.0868 -69.0086,70.093 -69.0285,70.0956 -69.0655,70.0965 -69.2496,70.0863 -69.2715,70.0843 -69.4986,70.0535 -69.521,70.0482 -69.586,70.0228 -69.6351,69.9926 -69.6504,69.9529 -69.6224,69.9322 -69.5998,69.922 -69.5905,69.8909 -69.625,69.873 -69.6609,69.8646 -69.6852,69.8623 -69.716,69.8627 -69.7446,69.8655 -69.7812,69.8713 -69.826,69.8736 -69.9152,69.8681 -69.9459,69.8624 -69.9789,69.8463 -70.0398,69.8172 -70.1024,69.7887 -70.1967,69.753 -70.2255,69.7474 -70.2513,69.7472 -70.2837,69.7489 -70.3125,69.7532 -70.2942,69.7683 -70.2741,69.771 -70.2397,69.7693 -70.1386,69.7991 -70.068,69.8376 -70.0117,69.871 -69.9462,69.8828 -69.9047,69.8905 -69.8503,69.8991 -69.8199,69.9008 -69.7841,69.8987 -69.7451,69.8925 -69.6923,69.8878 -69.6638,69.8981 -69.6771,69.925 -69.7004,69.9386 -69.7409,69.9551 -69.8699,69.9677 -69.9042,69.9643 -69.9361,69.9472 -69.9598,69.9328 -69.9993,69.9247 -70.0274,69.9378 -69.987,69.9522 -69.9277,69.976 -69.883,69.9809 -69.8356,69.9831 -69.8135,69.9833 -69.792,69.985 -69.7627,69.994 -69.7206,70.0105 -69.692,70.0291 -69.6751,70.0602 -69.5128,70.1068 -69.4848,70.1129 -69.3189,70.147 -69.1292,70.1728 -69.0804,70.1785 -68.9176,70.1963 -68.7876,70.2011 -68.753,70.202 -68.6306,70.2183 -68.582,70.2259 -68.5042,70.2499 -68.506,70.2844 -68.5167,70.3143 -68.5046,70.3412 -68.4677,70.3607 -68.4196,70.3731 -68.3991,70.3541 -68.4213,70.3291 -68.4189,70.3037 -68.3597,70.2806 -68.337,70.2761 -68.2988,70.2833 -68.2976,70.3124 -68.2184,70.3637 -68.1694,70.3884 -68.1395,70.4049 -68.1275,70.4333 -68.1398,70.4589 -68.1658,70.4724 -68.2364,70.4896 -68.3302,70.5115 -68.361,70.5167 -68.395,70.521 -68.428,70.5251 -68.4637,70.528 -68.5094,70.5341 -68.7725,70.5888 -68.8021,70.5956 -68.9753,70.6447 -69.0338,70.6741 -69.064,70.6851 -69.086,70.6893 -69.3031,70.6983 -69.3808,70.6855 -69.4116,70.6791 -69.4624,70.6651 -69.4885,70.6433 -69.6182,70.5896 -69.718,70.5845 -69.8297,70.5562 -69.8655,70.518 -69.9346,70.5197 -70.0001,70.5229 -70.186,70.5205 -70.2127,70.481 -70.1903,70.4673 -70.1632,70.4431 -70.1516,70.4057 -70.292,70.3839 -70.3298,70.3915 -70.309,70.4014 -70.2467,70.4324 -70.2594,70.4546 -70.2842,70.4695 -70.302,70.4815 -70.3168,70.5205 -70.2959,70.5352 -70.2566,70.5453 -70.1871,70.5455 -70.1185,70.5433 -70.0767,70.5475 -70.0523,70.5536 -69.9633,70.5787 -69.9208,70.5928 -69.8069,70.635 -69.7572,70.6562 -69.7211,70.675 -69.644,70.7229 -69.6161,70.7641 -69.675,70.7839 -69.7108,70.7898 -69.7482,70.7866 -69.8289,70.7605 -69.9158,70.7372 -70.0696,70.7042 -70.0957,70.7008 -70.1654,70.6928 -70.206,70.6895 -70.2374,70.6854 -70.2623,70.6791 -70.4522,70.6309 -70.6115,70.5762 -70.7532,70.5451 -70.8089,70.5397 -70.8416,70.5286 -70.8909,70.4588 -70.871,70.448 -70.9334,70.3682 -70.9763,70.3182 -71.0126,70.276 -71.0718,70.1962 -71.0538,70.1778 -71.1734,70.0369 -71.2082,70.0204 -71.2351,70.013 -71.2797,69.9954 -71.3178,69.9767 -71.3362,69.9593 -71.3431,69.9474 -71.3765,69.9362 -71.3655,69.961 -71.3332,69.9931 -71.2759,70.0353 -71.2044,70.0906 -71.1581,70.127 -71.1235,70.1655 -71.1335,70.1896 -71.1619,70.216 -71.1009,70.2857 -71.013,70.4398 -71.0928,70.4574 -71.2369,70.4817 -71.2669,70.4856 -71.3446,70.4819 -71.3437,70.4562 -71.3644,70.4322 -71.3827,70.4224 -71.4804,70.3557 -71.5203,70.2708 -71.5805,70.2197 -71.6465,70.2041 -71.6833,70.2015 -71.6563,70.2112 -71.6228,70.2219 -71.5988,70.2344 -71.5858,70.2557 -71.5703,70.3197 -71.5947,70.3343 -71.642,70.3362 -71.5826,70.3746 -71.4224,70.4589 -71.4307,70.5035 -71.3972,70.5168 -71.3007,70.5152 -71.2541,70.5116 -71.229,70.5079 -71.185,70.4989 -71.1518,70.4947 -71.1212,70.4916 -71.0643,70.4895 -71.023,70.4906 -70.9853,70.5019 -70.9683,70.5248 -70.9528,70.5518 -70.931,70.5657 -70.8947,70.5762 -70.8641,70.5824 -70.8054,70.5914 -70.7215,70.6084 -70.6387,70.6325 -70.6131,70.6415 -70.5839,70.6572 -70.5185,70.7475 -70.4289,70.7828 -70.3931,70.8019 -70.3547,70.8322 -70.4415,70.9602 -70.4739,70.9787 -70.5627,71.0108 -70.6014,71.0229 -70.6377,71.0251 -70.6741,71.0205 -70.7332,71.006 -70.9999,70.9349 -71.0231,70.926 -71.0457,70.9114 -71.1262,70.8154 -71.1924,70.7895 -71.3814,70.7792 -71.5262,70.757 -71.6561,70.7301 -71.7339,70.7138 -71.8414,70.6938 -71.9825,70.6819 -72.0219,70.6733 -72.0472,70.6652 -72.0696,70.6539 -72.0838,70.6368 -72.1079,70.6108 -72.1429,70.5846 -72.1709,70.572 -72.2086,70.5622 -72.3334,70.5393 -72.3882,70.5155 -72.4057,70.5174 -72.4476,70.5413 -72.4145,70.5485 -72.3787,70.5522 -72.336,70.554 -72.3039,70.5588 -72.2183,70.5843 -72.1997,70.5935 -72.0067,70.7449 -72.0929,70.772 -72.1384,70.7739 -72.1918,70.7673 -72.2368,70.7566 -72.3124,70.7403 -72.347,70.734 -72.489,70.7312 -72.3601,70.7502 -72.159,70.7939 -72.1519,70.8279 -72.1294,70.8557 -72.105,70.8639 -72.0704,70.8684 -72.0357,70.8679 -72.0081,70.8717 -71.9411,70.9323 -71.9446,70.9583 -71.9128,70.9791 -71.7461,71.014 -71.7257,71.0156 -71.7045,71.0158 -71.6844,71.0147 -71.6482,71.0104 -71.5502,70.9943 -71.477,70.9802 -71.4444,70.9749 -71.3877,70.9711 -71.3164,70.968 -71.2949,70.9717 -71.2526,70.9998 -71.1811,71.0666 -71.1609,71.0839 -71.0643,71.1208 -71.0425,71.1267 -71.0058,71.1392 -70.9842,71.148 -70.9601,71.1671 -71.0769,71.2553 -71.131,71.2904 -71.2822,71.375 -71.3883,71.4093 -71.4194,71.4154 -71.4693,71.4233 -71.5138,71.4285 -71.6811,71.4518 -71.9844,71.4952 -72.1327,71.5174 -72.2758,71.5411 -72.306,71.5477 -72.3342,71.5552 -72.3618,71.5648 -72.4044,71.5603 -72.4247,71.5477 -72.4405,71.5063 -72.444,71.4754 -72.4812,71.4422 -72.5114,71.4299 -72.5986,71.361 -72.5918,71.3357 -72.6679,71.3188 -72.6897,71.3187 -72.7285,71.3223 -72.8173,71.2994 -72.7949,71.2667 -72.7841,71.2195 -72.8137,71.1734 -72.8317,71.1507 -72.8516,71.1367 -72.8776,71.1317 -72.9057,71.137 -72.9405,71.137 -72.9741,71.1305 -73.013,71.1045 -73.0032,71.07 -73.2063,70.8899 -73.2813,70.9392 -73.2587,70.9542 -73.2116,70.9646 -73.1517,70.9832 -73.1266,70.9988 -73.0846,71.0454 -73.0689,71.0657 -73.0715,71.0872 -73.0896,71.1067 -73.1008,71.1288 -73.0718,71.142 -73.0462,71.1466 -72.9873,71.1525 -72.8892,71.1724 -72.9153,71.1915 -73.1517,71.2466 -73.187,71.2512 -73.213,71.2511 -73.2653,71.2434 -73.2618,71.2204 -73.2854,71.2059 -73.3798,71.176 -73.4504,71.134 -73.5022,71.074 -73.4925,71.0378 -73.5004,71.0 -73.5241,70.9857 -73.5557,70.9759 -73.5845,70.9721 -73.6776,70.9684 -73.7038,70.9538 -73.7169,70.9658 -73.6736,70.9806 -73.6191,70.9866 -73.5845,70.9928 -73.5634,71.0024 -73.5461,71.0392 -73.5463,71.076 -73.5093,71.1439 -73.4938,71.1601 -73.4529,71.1968 -73.4209,71.2109 -73.3314,71.2428 -73.2141,71.2933 -73.2679,71.3435 -73.3076,71.3419 -73.33,71.3322 -73.3444,71.3117 -73.3479,71.2867 -73.3706,71.2784 -73.4343,71.2624 -73.4588,71.2636 -73.4597,71.3623 -73.4467,71.4233 -73.4276,71.4337 -73.395,71.4535 -73.4206,71.479 -73.4595,71.49 -73.4823,71.4926 -73.5179,71.4931 -73.5684,71.4914 -73.5901,71.4861 -73.6937,71.4339 -73.7998,71.322 -73.8374,71.2697 -73.8688,71.208 -73.9479,71.1491 -73.9829,71.1324 -74.0203,71.117 -74.0611,71.1103 -74.042,71.1232 -74.0174,71.1353 -73.9744,71.1579 -73.9286,71.186 -73.893,71.2425 -73.8658,71.3447 -73.912,71.3466 -73.95,71.344 -73.9876,71.3381 -74.0201,71.3312 -74.1357,71.3197 -73.9984,71.3512 -73.9235,71.3682 -73.8392,71.3969 -73.8163,71.4363 -73.719,71.5146 -73.6194,71.5663 -73.599,71.5757 -73.5608,71.5887 -73.5224,71.5953 -73.4914,71.6021 -73.4663,71.6113 -73.4442,71.6241 -73.4203,71.6574 -73.4352,71.677 -73.5464,71.6815 -73.5755,71.6816 -73.7554,71.674 -73.798,71.6662 -73.8239,71.6561 -73.8441,71.6444 -73.8666,71.627 -73.9733,71.5425 -73.9906,71.4443 -74.0466,71.4618 -74.0734,71.4812 -74.0809,71.508 -74.0711,71.533 -74.0537,71.5448 -74.0298,71.5507 -74.0002,71.5563 -73.9736,71.5645 -73.9535,71.5814 -73.9357,71.6391 -73.9736,71.6437 -74.0948,71.635 -74.1274,71.6254 -74.1442,71.6093 -74.167,71.5969 -74.2086,71.582 -74.3704,71.5365 -74.4065,71.4937 -74.4509,71.4616 -74.4904,71.4626 -74.5206,71.4582 -74.5456,71.4497 -74.566,71.4264 -74.5564,71.3748 -74.4792,71.3412 -74.4621,71.3285 -74.4557,71.3012 -74.4735,71.281 -74.4992,71.2655 -74.6973,71.156 -74.8215,71.1076 -74.8926,71.0871 -74.9093,71.0855 -74.9026,71.1103 -74.7161,71.1929 -74.5326,71.2892 -74.544,71.3245 -74.6597,71.4249 -74.6836,71.429 -74.7038,71.4294 -74.7704,71.4268 -74.8225,71.4239 -74.8775,71.4142 -74.9154,71.4008 -74.9368,71.3815 -74.9704,71.3723 -74.9422,71.403 -74.9074,71.4206 -74.858,71.4367 -74.8212,71.4414 -74.7968,71.4424 -74.7573,71.4432 -74.6959,71.4468 -74.6381,71.4532 -74.5602,71.4809 -74.5352,71.491 -74.5084,71.5085 -74.4725,71.5372 -74.4575,71.5609 -74.5143,71.6002 -74.5441,71.5987 -74.6175,71.5859 -74.6818,71.5573 -74.8255,71.5122 -75.0307,71.4517 -75.2277,71.4254 -75.0257,71.4987 -74.9394,71.5161 -74.8809,71.5275 -74.8344,71.5372 -74.7656,71.5692 -74.8422,71.6016 -74.8683,71.6047 -74.9099,71.6057 -75.003,71.599 -75.0664,71.591 -75.2142,71.582 -75.1953,71.594 -75.1668,71.6007 -74.9827,71.6201 -74.9612,71.6219 -74.9153,71.6229 -74.8716,71.621 -74.825,71.617 -74.7101,71.6133 -74.5303,71.6417 -74.5036,71.6501 -74.4304,71.6895 -74.3959,71.7142 -74.3328,71.7187 -74.2948,71.7085 -74.2656,71.7065 -74.2289,71.7085 -74.0895,71.7203 -74.0626,71.7252 -73.9979,71.7731 -73.9439,71.8673 -73.9477,71.8879 -74.0023,71.936 -74.0505,71.9667 -74.0764,71.9788 -74.1311,71.9856 -74.359,71.9936 -74.449,71.9952 -74.4827,71.9953 -74.5878,71.9988 -74.6245,72.0024 -74.6578,72.0078 -74.7743,72.0271 -74.8147,72.0321 -74.8351,72.0323 -74.8658,72.028 -74.9099,72.0145 -74.9364,72.0028 -74.9549,71.9877 -74.9771,71.9539 -74.9971,71.9362 -75.0203,71.9274 -75.0713,71.917 -75.1503,71.9036 -75.1718,71.9024 -75.1941,71.9018 -75.2365,71.904 -75.2988,71.9052 -75.3278,71.9013 -75.3605,71.8908 -75.3907,71.8674 -75.3905,71.8357 -75.4023,71.8107 -75.4777,71.7307 -75.4977,71.7152 -75.6141,71.6332 -75.6424,71.6218 -75.6698,71.6133 -75.7032,71.6076 -75.7244,71.6061 -75.9145,71.6012 -75.8959,71.6104 -75.8628,71.6145 -75.8199,71.6142 -75.7666,71.6155 -75.7213,71.6195 -75.6951,71.6261 -75.6529,71.6413 -75.6253,71.6552 -75.5161,71.7545 -75.5088,71.7874 -75.4331,71.8894 -75.4023,71.9057 -75.3698,71.9155 -75.337,71.9225 -75.3162,71.9257 -75.2716,71.9296 -75.2261,71.9297 -75.1604,71.9332 -75.1396,71.9358 -75.1041,71.9429 -75.0776,71.9501 -75.0483,71.9789 -75.2545,72.0169 -75.3092,72.0227 -75.3497,72.0247 -75.407,72.0257 -75.4515,72.0238 -75.5313,72.0174 -75.6173,72.0077 -75.649,72.0011 -75.7152,71.9861 -75.7768,71.9714 -75.819,71.9584 -75.845,71.9476 -75.8681,71.9267 -75.8889,71.899 -75.9105,71.8831 -76.1318,71.7893 -76.1686,71.7963 -76.1389,71.8245 -76.1224,71.8348 -76.0889,71.8514 -76.0553,71.8617 -76.0131,71.8722 -75.9855,71.8845 -75.9555,71.9029 -75.9262,71.9278 -75.9016,71.9588 -75.8749,71.9773 -75.8443,71.9878 -75.6873,72.0177 -75.6345,72.0265 -75.5539,72.0382 -75.5306,72.0405 -75.4283,72.0472 -75.3411,72.05 -75.2988,72.0485 -75.2619,72.045 -75.2089,72.0384 -75.1451,72.0294 -75.1034,72.0222 -75.0675,72.0215 -75.0473,72.0266 -74.8902,72.083 -74.8669,72.0922 -74.7678,72.1634 -74.802,72.1919 -74.8212,72.2021 -74.8553,72.2209 -74.8753,72.2322 -74.9528,72.2971 -74.9807,72.3245 -75.0194,72.3674 -75.0098,72.3907 -75.0429,72.4021 -75.1212,72.4126 -75.189,72.4192 -75.2542,72.4255 -75.2912,72.4305 -75.3481,72.441 -75.3778,72.4563 -75.577,72.4821 -75.6167,72.4849 -75.6597,72.486 -75.7027,72.4869 -75.7494,72.4866 -75.8146,72.4828 -75.8363,72.4775 -75.8885,72.4415 -75.8699,72.4145 -75.8596,72.3912 -75.8963,72.3763 -75.9322,72.3788 -75.9767,72.4253 -75.9801,72.4467 -75.9737,72.4787 -75.9991,72.4927 -76.0317,72.4988 -76.1049,72.508 -76.1445,72.5103 -76.2443,72.5168 -76.4002,72.5314 -76.4612,72.5426 -76.473,72.5708 -76.504,72.5956 -76.5676,72.623 -76.6142,72.6302 -76.761,72.6463 -76.8162,72.6518 -76.8692,72.6554 -77.0729,72.6543 -77.2256,72.6546 -77.3354,72.6585 -77.3888,72.6579 -77.4331,72.6527 -77.4605,72.6425 -77.4824,72.6346 -77.5136,72.6272 -77.5869,72.6109 -77.6571,72.6014 -77.6819,72.6001 -77.8136,72.585 -77.975,72.5581 -78.2481,72.4873 -78.3683,72.4077 -78.372,72.3446 -78.3331,72.3181 -78.3117,72.3082 -78.2859,72.2982 -78.1945,72.2747 -78.1401,72.2626 -78.0333,72.2414 -77.9684,72.229 -77.9353,72.2231 -77.8864,72.2159 -77.7644,72.1997 -77.6808,72.1848 -77.6377,72.1756 -77.5761,72.1608 -77.4742,72.1354 -77.4394,72.125 -77.42,72.1157 -77.3948,72.108 -77.3659,72.1018 -77.3302,72.0975 -77.2933,72.0952 -77.2719,72.0945 -77.2137,72.0965 -77.1235,72.1019 -77.0945,72.1006 -77.0683,72.097 -76.8859,72.0562 -76.8242,72.0333 -76.857,72.0357 -76.9332,72.0522 -77.057,72.0783 -77.106,72.087 -77.1409,72.0899 -77.1974,72.0888 -77.3571,72.0808 -77.4692,72.1006 -77.6088,72.1457 -77.6424,72.1524 -77.7085,72.163 -77.827,72.1784 -78.1187,72.217 -78.2215,72.2292 -78.2584,72.2289 -78.2786,72.2205 -78.2799,72.1418 -78.2285,72.1233 -78.2043,72.0753 -78.2294,72.0724 -78.3432,72.1437 -78.3425,72.215 -78.3269,72.231 -78.393,72.2574 -78.4223,72.2625 -78.5471,72.2319 -78.6825,72.1319 -78.6612,72.1156 -78.623,72.1011 -78.51,72.0676 -78.4138,72.0491 -78.329,72.0354 -78.2832,72.028 -78.245,72.0195 -78.209,72.0042 -78.1902,71.99 -78.1718,71.9625 -78.1571,71.92 -78.1437,71.8929 -78.1057,71.8801 -78.078,71.8771 -78.0119,71.883 -77.9688,71.885 -77.9204,71.876 -77.7768,71.7862 -77.6253,71.7276 -77.6033,71.6924 -77.7919,71.7647 -77.8354,71.7955 -77.9653,71.8705 -77.9948,71.8714 -78.0748,71.8609 -78.095,71.8578 -78.1275,71.8345 -77.9956,71.753 -77.9569,71.7351 -77.9243,71.724 -77.9028,71.7181 -77.847,71.7036 -77.8149,71.698 -77.7842,71.6914 -77.726,71.6743 -77.7422,71.6693 -77.877,71.6988 -77.9078,71.7054 -77.94,71.7112 -77.9745,71.7152 -78.0019,71.722 -78.0354,71.7342 -78.134,71.7928 -78.1895,71.8271 -78.2046,71.8429 -78.2069,71.864 -78.2106,71.8867 -78.2475,71.9422 -78.2753,71.9773 -78.2964,71.9939 -78.3267,72.0051 -78.3687,72.0152 -78.6713,72.0742 -78.6907,72.0573 -78.7333,71.9171 -78.6698,71.884 -78.5551,71.8625 -78.506,71.854 -78.4301,71.8446 -78.4108,71.8378 -78.3286,71.7724 -78.3671,71.7657 -78.3939,71.7687 -78.448,71.7864 -78.4683,71.7984 -78.4989,71.8141 -78.5376,71.8234 -78.5835,71.8315 -78.6325,71.8397 -78.8405,71.875 -78.8804,71.8793 -78.9089,71.874 -78.9447,71.8611 -78.9823,71.8593 -79.0101,71.8645 -79.045,71.8826 -79.0198,71.8911 -78.957,71.9079 -78.8495,71.9735 -78.7581,72.0987 -78.8249,72.1776 -78.8938,72.2173 -78.9249,72.2344 -78.9578,72.2492 -78.9936,72.2616 -79.0543,72.2777 -79.1563,72.3024 -79.2954,72.2289 -79.3765,72.1787 -79.5176,72.1174 -79.5521,72.1175 -79.5765,72.1468 -79.5362,72.1708 -79.5159,72.1772 -79.4783,72.1846 -79.4493,72.1926 -79.4057,72.2381 -79.4976,72.2877 -79.5779,72.315 -79.5055,72.3729 -79.5432,72.3875 -79.5845,72.4012 -79.6078,72.4046 -79.6375,72.4029 -79.6794,72.3815 -79.7662,72.3117 -79.8007,72.306 -79.8763,72.2856 -79.924,72.2629 -79.9426,72.253 -79.9687,72.2279 -79.8551,72.146 -79.7427,72.0971 -79.6656,72.0749 -79.6218,72.0641 -79.601,72.0598 -79.5302,72.0521 -79.4969,72.0383 -79.5723,72.0379 -79.6015,72.0417 -79.6511,72.0492 -79.7102,72.0594 -79.7655,72.071 -79.8019,72.0805 -79.8315,72.0933 -79.8955,72.1302 -79.9226,72.1478 -79.9443,72.1664 -79.9652,72.1773 -80.0033,72.1913 -80.0421,72.2003 -80.0755,72.1961 -80.1016,72.1808 -80.1131,72.1555 -80.0856,72.1259 -80.0501,72.1059 -80.1407,72.0799 -80.1649,72.0781 -80.1947,72.0798 -80.2268,72.094 -80.2889,72.0804 -80.2517,72.042 -80.22,72.0252 -80.1863,72.0145 -80.1602,71.9859 -80.1954,71.9524 -80.2207,71.9434 -80.259,71.9335 -80.3453,71.9203 -80.44,71.9103 -80.4691,71.9072 -80.5614,71.8765 -80.5594,71.8473 -80.5774,71.834 -80.6782,71.7977 -80.7138,71.7896 -80.7363,71.7874 -80.7604,71.7854 -80.7877,71.793 -80.7432,71.8135 -80.6958,71.8252 -80.6512,71.8446 -80.6313,71.8608 -80.6028,71.9292 -80.666,71.9613 -80.7001,71.9511 -80.7364,71.9421 -80.7993,71.9419 -80.8643,71.9451 -80.891,71.953 -80.7498,71.9916 -80.551,71.9982 -80.4959,71.977 -80.4477,71.967 -80.3839,71.9748 -80.3848,71.9955 -80.5188,72.0359 -80.5705,72.045 -80.6253,72.0544 -80.7092,72.0912 -80.6621,72.1393 -80.6088,72.1829 -80.5911,72.194 -80.4826,72.2483 -80.463,72.2555 -80.4105,72.2664 -80.3723,72.27 -80.3414,72.2759 -80.3219,72.2829 -80.3015,72.3602 -80.3129,72.3941 -80.3278,72.409 -80.3538,72.4153 -80.3871,72.4131 -80.4071,72.4099 -80.5217,72.376 -80.6284,72.3425 -80.7362,72.3035 -80.8443,72.2545 -80.9711,72.1908 -81.0512,72.158 -81.1004,72.1503 -81.179,72.1452 -81.1111,72.1721 -81.0376,72.1834 -80.998,72.199 -80.7946,72.3328 -80.7542,72.3562 -80.5714,72.4199 -80.4827,72.4502 -80.4549,72.4578 -80.3622,72.5167 -80.3475,72.5316 -80.2708,72.5678 -80.2508,72.5761 -80.1675,72.6087 -80.1381,72.6149 -80.0586,72.6299 -80.0973,72.6852 -80.1317,72.7035 -80.1545,72.7089 -80.2108,72.7155 -80.2453,72.7211 -80.2926,72.7311 -80.3184,72.7413 -80.3415,72.7534 -80.4451,72.8327 -80.4376,72.8424 -80.4548,72.874 -80.4478,72.8952 -80.4208,72.9073 -80.3963,72.9278 -80.3534,72.9974 -80.3985,73.0498 -80.4194,73.0592 -80.4429,73.0669 -80.4668,73.0727 -80.5146,73.0819 -80.7012,73.111 -80.8749,73.1337 -80.902,73.1397 -80.9848,73.1599 -81.0069,73.1711 -81.0145,73.1991 -81.0133,73.2216 -80.9872,73.2906 -80.9957,73.3781 -81.022,73.4291 -81.0376,73.4474 -81.0799,73.481 -81.2532,73.5913 -81.2722,73.5982 -81.341,73.6156 -81.3679,73.6198 -81.4137,73.6213 -81.7852,73.6315 -82.0133,73.6254 -82.1612,73.6195 -82.2075,73.6191 -82.2684,73.6202 -82.3233,73.6223 -82.429,73.628 -82.6131,73.6338 -82.6393,73.6317 -82.6618,73.6198 -82.6884,73.6031 -82.7237,73.5909 -82.8109,73.5665 -82.8776,73.5581 -83.0111,73.5569 -83.237,73.5162 -83.3689,73.4967 -83.5321,73.4683 -83.7826,73.4055 -83.7462,73.3936 -83.6026,73.3715 -83.5467,73.3641 -83.4806,73.3563 -83.4508,73.3482 -83.4304,73.3351 -83.4177,73.3163 -83.3858,73.213 -83.4008,73.1982 -83.4332,73.1999 -83.455,73.2067 -83.4829,73.2247 -83.5003,73.2467 -83.517,73.2746 -83.5143,73.3041 -83.5443,73.3282 -83.9051,73.3699 -83.9622,73.376 -83.9854,73.3755 -84.0199,73.3711 -84.0753,73.3621 -84.2248,73.3362 -84.3744,73.3101 -84.4241,73.3003 -84.4443,73.2907 -84.3835,73.2282 -84.3613,73.217 -84.2813,73.2008 -84.2476,73.1914 -84.205,73.1733 -84.1419,73.1277 -84.1771,73.1265 -84.2092,73.1318 -84.4459,73.2068 -84.4811,73.2248 -84.5078,73.2565 -84.5395,73.2798 -84.577,73.289 -84.598,73.2894 -84.7697,73.2577 -84.8069,73.2496 -84.8677,73.2305 -84.9056,73.2157 -84.9264,73.204 -84.9681,73.1174 -84.9287,73.1059 -84.8914,73.1028 -84.8493,73.102 -84.811,73.0984 -84.7763,73.0921 -84.7336,73.0833 -84.7042,73.0772 -84.6565,73.0651 -84.5816,73.0473 -84.5286,73.039 -84.377,73.0174 -84.332,73.0125 -84.227,73.0077 -84.0689,72.9886 -84.0362,72.9839 -83.9914,72.9705 -83.8894,72.96 -83.8543,72.9583 -83.8342,72.9582 -83.7598,72.9628 -83.7293,72.9628 -83.7085,72.9601 -83.6746,72.9539 -83.5718,72.9329 -83.4882,72.9074 -83.4337,72.8875 -83.5148,72.891 -83.5569,72.9082 -83.6364,72.9276 -83.6628,72.9316 -83.7183,72.9356 -83.8719,72.9358 -84.0066,72.942 -84.3496,72.9662 -84.5653,72.983 -84.622,72.9873 -84.7047,72.9986 -84.7876,73.0209 -84.8446,73.0338 -84.8806,73.0391 -84.9395,73.0433 -84.983,73.0433 -85.0,73.034 -85.0,73.0139 -84.9784,72.9988 -84.9582,72.9665 -84.9797,72.9616 -85.0,72.9648 -85.0,72.9151 -84.8523,72.8985 -84.6634,72.8442 -84.6493,72.8395 -84.5846,72.8234 -84.5459,72.8146 -84.5003,72.8078 -84.4467,72.8016 -84.3714,72.7943 -84.3236,72.7846 -84.214,72.7555 -84.1307,72.7325 -84.1075,72.7225 -84.0869,72.715 -84.0429,72.7021 -84.0147,72.6973 -83.9043,72.6876 -83.8702,72.6839 -83.8375,72.6799 -83.7863,72.6714 -83.7525,72.6532 -83.7785,72.6475 -83.9843,72.6767 -84.0535,72.6877 -84.0867,72.6939 -84.1165,72.7031 -84.1927,72.7265 -84.2324,72.7358 -84.2992,72.7482 -84.4054,72.7637 -84.4631,72.7698 -84.5016,72.7724 -84.6134,72.7824 -84.6682,72.7876 -84.7259,72.7985 -84.7599,72.8073 -84.8083,72.8182 -84.8702,72.832 -84.9203,72.8424 -85.0,72.8549 -85.0,72.2769 -84.9416,72.2628 -84.8119,72.3005 -84.7154,72.3287 -84.5693,72.3542 -84.5907,72.3109 -84.6245,72.3108 -84.6673,72.3024 -84.6666,72.2722 -84.3697,72.2647 -84.2605,72.2842 -84.2352,72.2812 -84.2911,72.2592 -84.3193,72.2538 -84.3633,72.2522 -84.46,72.2574 -84.513,72.2593 -84.5674,72.2598 -84.6065,72.2572 -84.6271,72.2516 -84.7152,72.2031 -84.7323,72.1905 -84.5208,72.1168 -84.4515,72.0827 -84.4129,72.0676 -84.2646,72.0386 -84.1806,72.0198 -84.1528,71.9773 -84.1205,71.9659 -84.0789,71.9566 -84.0194,71.9483 -83.9692,71.927 -83.9603,71.8814 -83.9767,71.8414 -83.9869,71.8348 -84.0037,71.837 -84.0293,71.8542 -84.0416,71.8782 -84.0611,71.9161 -84.0822,71.9306 -84.3124,72.0181 -84.4037,72.0434 -84.5097,72.0557 -84.6081,72.0835 -84.642,72.1037 -84.6629,72.1231 -84.7265,72.138 -84.8191,72.1539 -85.0,72.1606 -85.0,71.5622 -84.9883,71.5612 -84.8994,71.5601 -84.7773,71.5495 -84.729,71.541 -84.6885,71.5591 -84.6693,71.5732 -84.6297,71.5802 -84.5803,71.5835 -84.5133,71.5811 -84.4374,71.5742 -84.4149,71.5475 -84.4545,71.5183 -84.4483,71.4806 -84.4139,71.4681 -84.3667,71.4565 -84.3543,71.4396 -84.3361,71.403 -84.3306,71.379 -84.3486,71.3557 -84.3758,71.3462 -84.4607,71.3373 -84.4897,71.3402 -84.5305,71.3321 -84.5601,71.3171 -84.6015,71.2064 -84.5878,71.1717 -84.572,71.1036 -84.607,71.0548 -84.6343,70.9832 -84.6176,70.9586 -84.5776,70.9441 -84.5551,70.8884 -84.6124,70.8286 -84.7477,70.8249 -84.774,70.8323 -84.7759,70.8571 -84.7524,70.8748 -84.7354,70.9013 -84.7742,70.9804 -84.7978,70.984 -84.8669,70.9826 -84.9183,70.9854 -84.95,70.9909 -84.8066,71.0069 -84.7792,71.0071 -84.749,71.0009 -84.7102,70.9843 -84.6804,70.978 -84.6535,71.0575 -84.6805,71.079 -84.7578,71.0939 -84.8037,71.0937 -84.8444,71.0884 -84.9155,71.0676 -85.0,71.0655 -85.0,70.0021 -84.9883,70.0014 11,-5.0,Canada -84.9883,71.173 -84.9784,71.1764 -84.8464,71.1844 -84.7262,71.1767 -84.6733,71.1749 -84.6414,71.1869 -84.6634,71.2269 -84.7442,71.3245 -85.0,71.3658 -85.0,71.169 -84.9883,71.173 14,-5.0,Canada -84.9883,73.4958 -84.7727,73.556 -84.7438,73.5658 -84.7145,73.5784 -84.653,73.6135 -84.6274,73.639 -84.7568,73.6777 -84.8212,73.6949 -84.8555,73.7018 -84.8992,73.7091 -84.9492,73.7132 -85.0,73.7159 -85.0,73.4926 -84.9883,73.4958 74,-5.0,Canada -84.9943,66.1889 -84.9588,66.2083 -84.8291,66.1719 -84.8006,66.1622 -84.7767,66.1627 -84.7551,66.1753 -84.7332,66.1836 -84.7032,66.1838 -84.4692,66.1326 -84.3381,66.0948 -84.3075,66.0799 -84.2834,66.0754 -84.2026,66.0802 -84.211,66.1016 -84.2244,66.1206 -84.2446,66.1368 -84.3554,66.1949 -84.459,66.2481 -84.447,66.266 -84.3825,66.3081 -84.3424,66.3196 -84.2626,66.2841 -84.1459,66.2162 -84.0513,66.2377 -84.0136,66.2334 -83.9856,66.2209 -83.9765,66.1967 -83.9559,66.176 -83.8073,66.1159 -83.6736,66.0712 -83.62,66.0801 -83.5979,66.0852 -83.5145,66.1243 -83.5538,66.1523 -83.5993,66.1808 -83.6034,66.2062 -83.6343,66.2238 -83.6986,66.3042 -83.7222,66.3442 -83.7453,66.3627 -83.796,66.3898 -83.9565,66.4705 -84.0116,66.52 -83.969,66.568 -83.9766,66.5994 -84.0317,66.607 -84.1705,66.6153 -84.2315,66.6213 -84.2652,66.6354 -84.294,66.7033 -84.4842,66.7411 -84.5013,66.7574 -84.4605,66.757 -84.4072,66.7438 -84.3682,66.7369 -84.3392,66.7426 -84.3848,66.7661 -84.4122,66.7741 -84.5327,66.8041 -84.5724,66.813 -84.5081,66.8182 -84.4765,66.8161 -84.4434,66.8088 -84.3946,66.8155 -84.4285,66.8512 -84.5873,66.8671 -84.6845,66.8556 -84.7736,66.8234 -84.7329,66.8158 -84.7701,66.7766 -84.9617,66.7534 -85.0,66.7643 -85.0,66.1857 -84.9943,66.1889 324,-5.0,Canada -84.9943,66.828 -84.9677,66.8455 -84.8793,66.8767 -84.8354,66.8798 -84.7852,66.8793 -84.7113,66.8819 -84.5385,66.8878 -84.4716,66.8944 -84.5258,66.9109 -84.6065,66.9197 -84.6368,66.9069 -84.6654,66.8985 -84.6981,66.9015 -84.7567,66.9727 -84.7332,66.9741 -84.7088,66.9615 -84.6696,66.9457 -84.5587,66.9296 -84.5199,66.9248 -84.444,66.9216 -84.3143,66.9039 -84.2627,66.8966 -84.2034,66.8815 -84.2479,66.8761 -84.2632,66.7338 -84.1184,66.6409 -84.0943,66.633 -83.9775,66.6182 -83.9385,66.6223 -83.7699,66.734 -83.7565,66.7784 -83.7399,66.7943 -83.7239,66.7802 -83.7122,66.7441 -83.7168,66.7245 -83.7737,66.6183 -83.8168,66.6177 -83.8409,66.6038 -83.8397,66.5795 -83.8037,66.4983 -83.6862,66.4602 -83.655,66.4586 -83.6241,66.4581 -83.5618,66.4508 -83.5362,66.4467 -83.5061,66.4386 -83.4095,66.3478 -83.3648,66.2943 -83.3754,66.2978 -83.4296,66.326 -83.4323,66.3478 -83.4618,66.3554 -83.4831,66.3264 -83.3975,66.2839 -83.3456,66.2703 -83.281,66.2629 -83.2325,66.2637 -83.1932,66.2674 -82.8851,66.3892 -82.8489,66.4206 -82.8485,66.4559 -82.7009,66.4833 -82.6128,66.4826 -82.5256,66.474 -82.4125,66.4925 -82.3956,66.531 -82.3123,66.5854 -82.2012,66.6415 -82.0136,66.6819 -81.8583,66.8412 -81.8205,66.8648 -81.7842,66.8831 -81.7611,66.8936 -81.6653,66.9127 -81.6345,66.9127 -81.6093,66.9051 -81.5893,66.896 -81.5379,66.8851 -81.3623,66.9044 -81.3344,66.9162 -81.2647,66.9817 -81.2461,67.0064 -81.2125,67.0855 -81.2072,67.1 -81.2071,67.1121 -81.1983,67.1535 -81.1795,67.2074 -81.1299,67.3069 -81.0824,67.3358 -81.0701,67.353 -81.0739,67.3843 -81.2556,67.5204 -81.2882,67.5346 -81.3285,67.546 -81.3686,67.5576 -81.4227,67.5755 -81.4753,67.5986 -81.493,67.6128 -81.5143,67.6315 -81.5373,67.6453 -81.5567,67.6544 -81.6669,67.6975 -81.9035,67.8042 -81.9282,67.8182 -82.0025,67.9131 -81.9422,67.9958 -81.8777,68.0241 -81.8586,68.0333 -81.8419,68.0531 -81.8208,68.0855 -81.8167,68.1168 -81.8458,68.1281 -81.8698,68.1247 -81.8879,68.1152 -81.9079,68.0927 -81.9269,68.0679 -81.9733,68.0383 -82.0004,68.026 -82.0266,68.0271 -82.0583,68.0349 -82.0998,68.0462 -82.1417,68.0595 -82.1709,68.0758 -82.1544,68.0992 -82.1218,68.1232 -82.1015,68.1434 -82.0886,68.1634 -82.0912,68.1923 -82.1138,68.2024 -82.1383,68.1956 -82.1939,68.179 -82.2203,68.1801 -82.2527,68.1892 -82.3099,68.2119 -82.329,68.2268 -82.3012,68.2337 -82.2749,68.2332 -82.2487,68.2313 -82.2151,68.2293 -82.1839,68.2369 -82.1855,68.2597 -82.3164,68.3148 -82.3167,68.366 -82.4577,68.4133 -82.4341,68.4298 -82.4028,68.4374 -82.3715,68.4309 -82.3258,68.4068 -82.3025,68.3976 -82.2746,68.3908 -82.2144,68.38 -82.0805,68.3667 -82.0477,68.3686 -82.0154,68.3808 -82.0043,68.4009 -82.0621,68.4192 -82.0869,68.4411 -82.0556,68.444 -81.911,68.4176 -81.8919,68.4092 -81.8621,68.3722 -81.8527,68.3518 -81.8317,68.3376 -81.7915,68.3344 -81.6635,68.37 -81.6436,68.382 -81.6259,68.402 -81.5145,68.4218 -81.3875,68.4537 -81.1853,68.511 -81.0869,68.5539 -81.0633,68.6817 -81.1808,68.7691 -81.2096,68.778 -81.258,68.7868 -81.4114,68.7789 -81.4819,68.8123 -81.5055,68.8163 -81.652,68.8195 -81.8026,68.7911 -81.8282,68.7858 -81.8748,68.7888 -81.8304,68.8069 -81.7913,68.8158 -81.7396,68.8257 -81.7134,68.8304 -81.635,68.844 -81.581,68.8528 -81.5425,68.8603 -81.4217,68.8953 -81.3961,68.9038 -81.1567,69.0062 -81.1253,69.0312 -81.1613,69.0957 -81.1793,69.105 -81.2209,69.1169 -81.2419,69.1188 -81.3376,69.1121 -81.4752,69.1623 -81.5114,69.1725 -81.5324,69.1754 -81.739,69.1802 -81.8151,69.1655 -81.8585,69.1547 -81.8785,69.1522 -82.0339,69.144 -82.0754,69.1444 -82.0964,69.1482 -82.1141,69.1598 -82.0519,69.3044 -82.1181,69.3243 -82.1469,69.3294 -82.5064,69.3898 -82.6066,69.4044 -82.6707,69.4108 -82.6916,69.4105 -82.7757,69.4137 -82.8462,69.4183 -82.9033,69.4244 -83.0482,69.4489 -82.9747,69.4539 -82.9459,69.45 -82.8884,69.4432 -82.8031,69.4343 -82.7608,69.4317 -82.7184,69.4292 -82.5637,69.4203 -82.3509,69.4057 -82.3104,69.4081 -82.3571,69.4453 -82.428,69.4747 -82.476,69.4789 -82.4752,69.5332 -82.3862,69.5445 -82.3025,69.5367 -82.2122,69.5288 -82.1567,69.5295 -82.1296,69.5322 -82.081,69.547 -82.1135,69.5498 -82.2791,69.5654 -82.3136,69.5693 -82.3397,69.5741 -82.3606,69.5822 -82.5176,69.6058 -82.6475,69.5986 -82.8353,69.5894 -82.9426,69.599 -83.0003,69.605 -83.0658,69.6148 -83.1068,69.6108 -83.126,69.6036 -83.1593,69.5871 -83.1799,69.5862 -83.4156,69.6028 -83.5235,69.6135 -83.5597,69.6177 -83.7598,69.6528 -83.7897,69.6595 -83.9153,69.6931 -83.935,69.7114 -83.9868,69.7319 -84.1559,69.7632 -84.1924,69.7671 -84.2501,69.7708 -84.2932,69.7719 -84.3627,69.7688 -84.3905,69.7669 -84.6813,69.7307 -84.8872,69.6803 -84.9091,69.6829 -84.9861,69.7004 -85.0,69.7048 -85.0,69.0521 -84.9943,69.0547 -84.9683,69.0752 -84.8825,69.0877 -84.8229,69.0762 -84.9263,69.0243 -84.7722,68.9967 -84.5643,68.9509 -84.383,68.9371 -84.3539,68.926 -84.4013,68.9064 -84.5391,68.9181 -84.655,68.9241 -84.7698,68.9291 -84.8028,68.9147 -84.7474,68.8867 -84.7258,68.8831 -84.6774,68.8805 -84.6484,68.875 -84.6176,68.8616 -84.629,68.8411 -84.7336,68.8495 -84.7926,68.8581 -84.9061,68.8695 -84.9457,68.8562 -84.9065,68.8399 -84.8721,68.8377 -84.8245,68.8398 -84.8228,68.7915 -84.8656,68.7708 -84.9437,68.7818 -84.9717,68.7845 -85.0,68.7728 -85.0,68.7682 -84.9816,68.7507 -84.9567,68.74 -84.8509,68.7224 -84.8226,68.7201 -84.7963,68.7212 -84.7254,68.7309 -84.6638,68.7342 -84.5769,68.6801 -84.5912,68.654 -84.6142,68.6457 -84.7108,68.653 -84.7324,68.6586 -84.8867,68.6615 -84.9673,68.6616 -85.0,68.6467 -85.0,66.8243 -84.9943,66.828 776,-2.0,Greenland -72.8268,78.0411 -72.8193,78.0389 -72.7935,78.0365 -72.7254,78.0363 -72.6945,78.0354 -72.6697,78.034 -72.6503,78.0316 -72.4391,77.972 -72.2874,77.9446 -72.1646,77.9429 -72.1059,77.9403 -72.076,77.9347 -72.0937,77.9218 -72.1037,77.9181 -72.1362,77.8991 -72.1302,77.89 -72.0197,77.8335 -71.9043,77.8186 -71.8669,77.8136 -71.8111,77.8016 -71.7622,77.7867 -71.7505,77.7804 -71.7247,77.7732 -71.7071,77.7715 -71.687,77.7706 -71.6555,77.7731 -71.622,77.7809 -71.6119,77.7845 -71.5931,77.79 -71.5625,77.7975 -71.5453,77.8007 -71.5198,77.8024 -71.4138,77.8058 -71.3902,77.8054 -71.3754,77.7973 -71.3857,77.7398 -71.355,77.7385 -71.2854,77.7426 -71.2582,77.7456 -71.211,77.7525 -71.1942,77.7568 -71.1592,77.7627 -71.1315,77.7659 -71.0749,77.769 -71.0557,77.7697 -71.0385,77.7689 -71.0163,77.7655 -71.0023,77.7495 -71.0152,77.7418 -71.0431,77.7354 -71.1113,77.7205 -71.1681,77.7091 -71.207,77.6956 -71.2225,77.6877 -71.2265,77.6782 -71.1303,77.6544 -71.1081,77.651 -71.05,77.6473 -71.0263,77.6462 -70.9909,77.6466 -70.907,77.653 -70.8725,77.6546 -70.7676,77.658 -70.6945,77.657 -70.4911,77.6646 -70.4604,77.6671 -70.4405,77.672 -70.4273,77.6763 -70.4181,77.682 -70.3447,77.7129 -70.3108,77.7258 -70.2759,77.7324 -70.2246,77.7386 -70.1628,77.7446 -69.8578,77.7352 -69.7957,77.7296 -69.7666,77.7217 -69.7749,77.7131 -69.8056,77.7095 -69.9144,77.7066 -69.9719,77.7089 -69.9972,77.7075 -70.0178,77.7041 -70.035,77.7003 -70.051,77.6951 -70.1025,77.6738 -70.1649,77.6555 -70.3019,77.6217 -70.4051,77.601 -70.3938,77.5658 -70.1381,77.5458 -70.1012,77.5433 -70.0752,77.5444 -69.9197,77.5531 -69.8422,77.5684 -69.8252,77.5718 -69.804,77.5744 -69.7379,77.5772 -69.6997,77.578 -69.6407,77.5779 -69.6061,77.5787 -69.5503,77.5826 -69.4982,77.5882 -69.461,77.5954 -69.4237,77.6037 -69.3727,77.6184 -69.3287,77.6347 -69.3118,77.6388 -69.2874,77.6415 -69.2751,77.64 -69.2862,77.5796 -69.2954,77.5722 -69.6207,77.5238 -69.7188,77.5108 -69.7668,77.5051 -69.8423,77.4975 -69.8929,77.4913 -70.0412,77.4668 -70.0815,77.4549 -70.0731,77.4464 -70.0399,77.4401 -69.8798,77.4245 -69.8134,77.4259 -69.7709,77.4301 -69.7237,77.4306 -69.3967,77.3909 -69.2948,77.375 -69.2043,77.362 -69.0942,77.3468 -69.0467,77.3415 -69.0035,77.3377 -68.9848,77.3383 -68.9577,77.3409 -68.9377,77.3451 -68.8496,77.3581 -68.7479,77.3694 -68.6533,77.3764 -68.5393,77.384 -68.497,77.3878 -68.4551,77.3932 -68.4349,77.397 -68.4211,77.4006 -68.4036,77.4072 -68.3919,77.4184 -68.394,77.4351 -68.4628,77.4813 -68.502,77.4956 -68.5261,77.5047 -68.5547,77.5156 -68.6121,77.539 -68.6013,77.5436 -68.581,77.5472 -68.5625,77.5493 -68.5345,77.5505 -68.4962,77.5515 -68.4694,77.5494 -68.4206,77.5426 -68.2165,77.4697 -68.1932,77.4613 -68.1814,77.4566 -68.1665,77.4395 -68.1661,77.4251 -68.1751,77.4083 -68.1892,77.3955 -68.1693,77.3875 -68.1438,77.3867 -68.0268,77.3887 -67.9349,77.3957 -67.7439,77.4011 -67.6086,77.3971 -67.5892,77.3966 -67.5612,77.3975 -67.3819,77.4096 -67.3278,77.4162 -67.0991,77.4487 -67.0816,77.4519 -67.047,77.4611 -67.0193,77.4716 -67.0014,77.4821 -66.9862,77.4927 -66.9477,77.5237 -66.9436,77.5376 -66.9219,77.5565 -66.8412,77.5634 -66.5257,77.566 -66.3306,77.5271 -66.1219,77.5072 -66.0878,77.5007 -66.0556,77.491 -65.968,77.4558 -65.8696,77.3861 -65.8614,77.3796 -65.8818,77.34 -65.9078,77.3268 -65.9193,77.3231 -65.9374,77.3194 -65.9762,77.3133 -66.0253,77.3097 -66.0949,77.3102 -66.1811,77.3151 -66.2679,77.3197 -66.3256,77.3227 -66.3567,77.3207 -66.4407,77.3087 -66.4613,77.3011 -66.3504,77.2219 -66.3062,77.2012 -66.2665,77.1862 -66.2494,77.1806 -66.2225,77.1753 -66.1736,77.1693 -66.1229,77.1668 -66.0731,77.1657 -66.0545,77.1663 -66.0314,77.1631 -66.0106,77.156 -66.0047,77.1463 -66.0154,77.1408 -66.0272,77.1393 -66.0452,77.1376 -66.0611,77.1381 -66.269,77.1574 -66.3317,77.1665 -66.3514,77.1702 -66.3857,77.1793 -66.4287,77.1947 -66.4617,77.2089 -66.5017,77.2241 -66.516,77.2292 -66.5503,77.2382 -66.5736,77.241 -66.6253,77.246 -66.8775,77.2573 -67.1173,77.2678 -67.3237,77.2736 -67.4219,77.2748 -67.4912,77.2747 -67.5532,77.2735 -67.6158,77.2722 -67.7176,77.2681 -67.7786,77.2639 -67.8957,77.2583 -68.035,77.2539 -68.0598,77.2533 -68.1085,77.2564 -68.3107,77.2399 -68.4312,77.2229 -68.5018,77.2136 -68.687,77.1903 -68.7986,77.1823 -68.8191,77.1794 -68.8861,77.1645 -68.8998,77.1609 -68.8927,77.1532 -68.8464,77.1429 -68.8259,77.1393 -68.756,77.1315 -68.6839,77.1241 -68.4673,77.1091 -68.3297,77.1014 -68.2696,77.0989 -68.1024,77.0934 -67.9614,77.0906 -67.9279,77.0922 -67.9046,77.095 -67.8646,77.1032 -67.8174,77.1089 -67.7871,77.1105 -67.7529,77.1105 -67.6863,77.1079 -67.5032,77.1 -67.4371,77.0904 -67.411,77.0884 -67.3036,77.0854 -67.2923,77.0852 -67.2378,77.0815 -66.9187,77.0579 -66.8484,77.051 -66.78,77.0418 -66.7602,77.0381 -66.7379,77.0358 -66.7126,77.035 -66.6783,77.0343 -66.5523,77.0345 -66.5152,77.0353 -66.4575,77.0372 -66.1588,77.0673 -66.0003,77.084 -65.9788,77.0792 -65.9851,77.07 -66.0078,77.058 -66.0343,77.0549 -66.092,77.0511 -66.2,77.0413 -66.2501,77.0317 -66.2554,77.023 -66.5415,77.0131 -66.7101,77.0108 -66.7415,77.0125 -66.8798,77.0282 -67.0335,77.0433 -67.2104,77.0518 -67.5543,77.0832 -67.6004,77.0892 -67.6601,77.091 -67.6974,77.0905 -67.7457,77.0879 -67.8086,77.0823 -67.8755,77.0724 -67.8951,77.0685 -67.948,77.062 -68.0353,77.0563 -68.1783,77.0527 -68.3411,77.0553 -68.4112,77.0592 -68.4561,77.062 -68.5052,77.0669 -68.5829,77.0733 -68.663,77.078 -68.7769,77.0829 -68.915,77.0909 -69.1567,77.1055 -69.3758,77.1125 -69.4807,77.1105 -69.5933,77.1167 -69.7144,77.1259 -69.7406,77.128 -69.8009,77.1296 -69.9448,77.1294 -70.1978,77.1146 -70.3086,77.1076 -70.7041,77.0773 -70.7188,77.0695 -70.705,77.0608 -70.6877,77.0579 -70.6078,77.0499 -70.6437,77.0344 -70.7829,77.0378 -70.9871,77.0225 -71.1602,76.9516 -71.1687,76.9458 -71.1721,76.9333 -71.1741,76.9141 -71.1697,76.8992 -71.1461,76.8832 -71.1213,76.8748 -71.0454,76.8539 -70.977,76.839 -70.956,76.835 -70.9315,76.8327 -70.9121,76.8379 -70.872,76.8469 -70.8442,76.8506 -70.794,76.8494 -70.7683,76.8476 -70.7511,76.8447 -70.7053,76.831 -70.6828,76.8248 -70.6486,76.8195 -70.5999,76.8157 -70.5007,76.8271 -70.4793,76.8226 -70.6177,76.8001 -70.7651,76.7924 -70.7784,76.7876 -70.7718,76.7773 -70.6378,76.729 -70.6231,76.7246 -70.4948,76.6959 -70.345,76.679 -70.3165,76.6769 -70.2792,76.6753 -70.252,76.6756 -70.2234,76.6777 -70.1982,76.6808 -70.1571,76.6884 -69.9017,76.767 -69.8048,76.7983 -69.5896,76.8682 -69.5769,76.8729 -69.5644,76.8812 -69.5679,76.8943 -69.5555,76.8997 -69.5294,76.9023 -69.4711,76.9021 -69.3818,76.8965 -69.3564,76.8946 -69.3424,76.8916 -69.3483,76.8836 -69.3686,76.8784 -69.3944,76.8756 -69.4531,76.8713 -69.4795,76.8681 -69.5177,76.8599 -69.5487,76.8511 -69.5862,76.8369 -69.6378,76.8097 -69.6649,76.7936 -69.6829,76.7719 -69.6912,76.7658 -69.7036,76.7606 -69.7562,76.7475 -69.7886,76.7401 -69.8326,76.7328 -69.8837,76.712 -69.8986,76.6919 -69.8632,76.6723 -69.8358,76.6616 -69.8074,76.6541 -69.7669,76.6472 -69.7313,76.6427 -69.566,76.6269 -69.4404,76.618 -69.4145,76.6149 -69.2106,76.5928 -69.1741,76.5862 -69.0138,76.5662 -68.8735,76.5667 -68.6886,76.5557 -68.6418,76.5514 -68.5891,76.548 -68.5591,76.5475 -68.3989,76.5489 -68.3658,76.5492 -68.3365,76.55 -68.1914,76.5581 -68.0881,76.5678 -67.9861,76.5795 -67.9499,76.5855 -67.9236,76.5934 -67.8976,76.5956 -67.8212,76.5783 -67.7878,76.57 -67.7862,76.4935 -67.7983,76.484 -67.8078,76.4789 -67.8207,76.4739 -67.8366,76.4701 -67.8624,76.4682 -68.2005,76.4625 -68.2304,76.4632 -68.255,76.4647 -68.28,76.4668 -68.3458,76.4753 -68.4006,76.478 -68.4926,76.4778 -68.5159,76.4772 -68.5388,76.4753 -68.6058,76.4603 -68.6216,76.4414 -68.7504,76.3997 -68.7813,76.3912 -68.8696,76.3729 -68.9382,76.3635 -69.0489,76.3494 -69.1237,76.3413 -69.2814,76.3272 -69.3049,76.3275 -69.3559,76.3293 -69.3723,76.3274 -69.4203,76.3107 -69.4349,76.2655 -69.4191,76.2568 -69.2143,76.2068 -69.1302,76.1907 -69.1148,76.189 -69.0803,76.19 -69.0315,76.1854 -68.9283,76.1717 -68.8876,76.1654 -68.8329,76.1549 -68.8166,76.1505 -68.736,76.1147 -68.7191,76.1062 -68.6441,76.088 -68.6316,76.086 -68.5541,76.0747 -68.616,76.053 -68.5973,76.0503 -68.5764,76.0492 -68.4302,76.0498 -68.3336,76.0528 -68.3067,76.0514 -68.2827,76.049 -68.2641,76.0456 -68.2463,76.0376 -68.2569,76.029 -68.278,76.0253 -68.3489,76.0171 -68.3677,76.0137 -68.3808,76.0084 -68.3757,75.9999 -68.3253,75.984 -68.309,75.9797 -68.229,75.9667 -68.1997,75.9661 -68.1858,75.9672 -68.1723,75.9682 -68.1184,75.9689 -68.0125,75.9626 -67.6763,75.9364 -67.6524,75.9343 -67.5683,75.9239 -67.4399,75.9147 -67.3119,75.9106 -67.1621,75.9019 -67.138,75.8996 -67.0403,75.8878 -66.873,75.8714 -66.5633,75.8429 -66.5045,75.8354 -66.4627,75.8296 -66.4415,75.8237 -66.4249,75.8164 -66.407,75.8129 -66.3653,75.8069 -66.3424,75.8043 -66.3188,75.8019 -66.2994,75.8017 -66.269,75.8075 -66.3014,75.8361 -66.3201,75.8434 -66.4632,75.8837 -66.5254,75.9012 -66.5959,75.9166 -66.6537,75.9274 -66.6926,75.9342 -66.7555,75.9434 -66.8032,75.9741 -66.8238,75.9919 -66.8298,76.0018 -66.8388,76.0145 -66.853,76.0256 -66.8655,76.0295 -66.9045,76.0349 -66.9961,76.0417 -67.0196,76.0425 -67.0725,76.0462 -67.0906,76.0487 -67.1167,76.0575 -67.1018,76.0793 -67.0922,76.0836 -66.9462,76.1348 -66.9332,76.1383 -66.9142,76.1423 -66.8978,76.1454 -66.8434,76.1548 -66.8238,76.1558 -66.7715,76.1557 -66.7237,76.1509 -66.6309,76.1334 -66.5862,76.1029 -66.3391,75.9861 -66.3235,75.9816 -66.3081,75.978 -66.2755,75.9741 -66.2472,75.9752 -66.2078,75.9807 -66.1814,75.9932 -66.1782,76.0103 -66.1861,76.0223 -66.1788,76.0502 -66.0207,76.1672 -66.0076,76.1724 -65.9888,76.1737 -65.9671,76.1716 -65.7493,76.1583 -65.6161,76.1664 -65.5842,76.1676 -65.5401,76.1634 -65.4768,76.1541 -65.4195,76.143 -65.389,76.1364 -65.3726,76.1287 -65.3823,76.1219 -65.4618,76.1156 -65.5286,76.108 -65.5508,76.1051 -65.57,76.1012 -65.5858,76.0947 -65.5697,76.0894 -65.5443,76.0904 -65.521,76.0898 -65.5068,76.0837 -65.5665,76.0328 -65.5766,76.027 -65.5893,76.0223 -65.6084,76.0181 -65.6527,76.012 -65.6716,76.0085 -65.6877,76.0041 -65.7024,75.9932 -65.6944,75.9872 -65.6391,75.9716 -65.4655,75.9268 -65.4473,75.9229 -65.3806,75.917 -65.3258,75.9123 -65.2973,75.9115 -65.2308,75.919 -65.1859,75.934 -65.126,75.9581 -65.1142,75.9681 -65.1217,75.9775 -65.1387,75.9885 -65.1618,76.0018 -65.1786,76.0183 -65.1715,76.0631 -65.1451,76.067 -65.0521,76.0744 -65.0262,76.0724 -65.0176,76.0603 -65.0249,76.0476 -65.0495,76.0272 -65.0135,76.0154 -64.9915,76.0121 -64.9589,76.0138 -64.8506,76.0282 -64.8401,76.0635 -64.8188,76.069 -64.7931,76.0691 -64.7128,76.069 -64.6866,76.0678 -64.6633,76.0648 -64.6483,76.0613 -64.6076,76.045 -64.5824,76.0307 -64.5577,76.0208 -64.5132,76.0122 -64.4928,76.0107 -64.4644,76.0121 -64.4421,76.0152 -64.4192,76.022 -64.4249,76.0305 -64.4429,76.0349 -64.4813,76.0415 -64.4967,76.0461 -64.5062,76.0522 -64.5162,76.061 -64.5034,76.1472 -64.4905,76.1549 -64.4711,76.1587 -64.451,76.1594 -64.4307,76.1584 -64.4123,76.1521 -64.4049,76.1434 -64.3954,76.1372 -64.3825,76.1315 -64.2798,76.1201 -64.2599,76.121 -64.1954,76.1487 -64.1847,76.1712 -64.1939,76.2013 -64.2125,76.2165 -64.2246,76.2221 -64.2304,76.2391 -64.1624,76.2463 -64.1358,76.2447 -67.8295,78.9562 -67.8693,78.9561 -67.9371,78.9541 -68.093,78.9478 -68.1279,78.9461 -68.5368,78.8968 -68.5799,78.8908 -68.6268,78.8846 -68.833,78.8562 -68.8744,78.8479 -68.8932,78.8432 -68.908,78.8389 -68.9194,78.834 -68.9299,78.8272 -68.9542,78.8052 -68.936,78.797 -68.9155,78.7934 -68.819,78.782 -68.7894,78.7798 -68.7462,78.7795 -68.6712,78.762 -68.5809,78.7231 -68.5745,78.7155 -68.5954,78.7123 -68.6312,78.7125 -68.6607,78.7148 -68.6874,78.7174 -68.7111,78.7211 -68.7418,78.7306 -68.7533,78.7378 -68.9239,78.7665 -68.9626,78.7546 -69.0616,78.7191 -69.0718,78.7132 -69.2037,78.6916 -69.4075,78.6831 -69.4425,78.6822 -69.628,78.684 -69.6659,78.6823 -69.7128,78.6788 -69.7358,78.676 -69.7577,78.6718 -69.8012,78.6601 -69.7418,78.6458 -69.7554,78.6378 -69.943,78.6228 -70.1722,78.6074 -70.3711,78.5949 -70.4832,78.5843 -70.5477,78.572 -70.565,78.5669 -70.5857,78.557 -70.6548,78.4956 -70.7967,78.5023 -70.8818,78.508 -70.9378,78.5124 -70.9646,78.516 -71.0022,78.523 -71.0435,78.5267 -71.1313,78.5256 -71.3351,78.5181 -71.3681,78.5151 -71.4158,78.5092 -71.458,78.5009 -71.4962,78.4919 -71.5619,78.4742 -71.6042,78.4623 -71.6664,78.4449 -71.6844,78.4416 -71.8845,78.4254 -71.9207,78.4236 -72.0195,78.4245 -72.157,78.4225 -72.331,78.4059 -72.3547,78.4016 -72.3886,78.3928 -72.4014,78.3873 -72.4141,78.3765 -72.4027,78.3701 -72.3636,78.3012 -72.3705,78.2912 -72.3834,78.2866 -72.4577,78.2615 -72.4728,78.2592 -72.5285,78.2521 -72.5878,78.2417 -72.6007,78.2369 -72.6288,78.1997 -72.6093,78.1972 -72.5655,78.1944 -72.5376,78.1942 -72.4493,78.1912 -72.3601,78.1871 -72.3194,78.1834 -72.2956,78.1803 -72.2375,78.1721 -72.2704,78.1707 -72.3755,78.1696 -72.4195,78.1728 -72.4365,78.1732 -72.4541,78.1693 -72.4705,78.1648 -72.5782,78.127 -72.5949,78.104 -72.5772,78.0973 -72.5512,78.0949 -72.5342,78.0914 -72.5158,78.0781 -72.6026,78.0577 -72.6263,78.0541 -72.6594,78.0526 -72.72,78.06 -72.7491,78.0616 -72.7785,78.0607 -72.8028,78.0576 -72.8268,78.0505 -72.8335,78.0431 -72.8268,78.0411 118,-6.0,Canada -101.8733,78.1666 -101.8486,78.1679 -101.8243,78.1685 -101.5253,78.1507 -101.19,78.1229 -101.1588,78.1194 -101.1222,78.1041 -101.0369,78.0753 -101.0111,78.071 -100.9842,78.0684 -100.9263,78.0697 -100.7846,78.0839 -100.7581,78.0846 -100.7163,78.0718 -100.7123,78.0372 -100.6948,78.0179 -100.5726,77.9863 -100.5507,77.9829 -100.5338,77.919 -100.5187,77.8885 -100.4847,77.8609 -100.4541,77.8423 -100.3064,77.7669 -100.1997,77.7387 -100.0312,77.7122 -99.9121,77.6973 -99.6101,77.6658 -99.5642,77.6755 -99.4164,77.6978 -99.2533,77.6996 -99.229,77.7008 -99.101,77.7111 -98.9426,77.725 -98.7295,77.7783 -98.778,77.8065 -98.797,77.85 -98.7252,77.8681 -98.6934,77.876 -98.6708,77.8901 -98.649,77.9449 -98.672,77.9548 -98.692,77.9592 -98.89,78.0192 -99.1064,78.0883 -99.1283,78.0976 -99.1474,78.1098 -99.179,78.135 -99.2211,78.1654 -99.2498,78.1718 -99.3192,78.176 -99.3716,78.1764 -99.4395,78.1757 -99.4896,78.1861 -99.4763,78.2178 -99.4503,78.2707 -99.4783,78.297 -99.4979,78.3061 -99.5178,78.3125 -99.5593,78.3242 -99.5278,78.3357 -99.4737,78.3462 -99.4089,78.3544 -99.3656,78.3662 -99.2325,78.4655 -99.269,78.4799 -99.5117,78.515 -99.5475,78.5173 -99.6038,78.5084 -99.6573,78.4994 -99.6829,78.4982 -99.7105,78.5012 -99.7562,78.5235 -99.6664,78.5445 -99.6068,78.5641 -99.5885,78.5771 -99.6375,78.6068 -99.6978,78.6198 -99.7249,78.6235 -99.826,78.6351 -99.9195,78.6444 -99.9747,78.6518 -100.0166,78.6738 -100.0383,78.7113 -100.2204,78.7005 -100.2451,78.691 -100.278,78.6832 -100.3042,78.6821 -100.3955,78.6834 -100.4901,78.6771 -100.5199,78.6735 -100.5532,78.6652 -100.6808,78.6728 -100.8679,78.6857 -100.8877,78.7021 -100.8406,78.7239 -100.805,78.7405 -100.6735,78.8176 -100.6928,78.8266 -100.7806,78.8468 -100.8321,78.8487 -100.8634,78.8371 -100.8914,78.8374 -100.918,78.8429 -100.9941,78.8593 -101.2049,78.9213 -101.2265,78.9278 -101.3121,78.9549 -101.3328,78.9589 -101.565,78.9689 -101.5856,78.9692 -101.6249,78.9677 -101.6671,78.9615 -101.6977,78.948 -101.7325,78.9374 -101.7766,78.9271 -101.9303,78.9055 -101.9303,78.1628 -101.8733,78.1666 40,-6.0,Canada -101.8391,77.5785 -101.7656,77.5699 -101.7149,77.5673 -101.5248,77.5638 -101.4974,77.5641 -101.351,77.5818 -101.3212,77.5862 -101.3049,77.5912 -101.2887,77.6 -101.2634,77.6078 -101.2341,77.611 -101.206,77.6123 -101.0177,77.6136 -100.9675,77.6132 -100.9167,77.6092 -100.797,77.6069 -100.6651,77.613 -100.6411,77.6143 -100.6273,77.6261 -100.6606,77.6465 -100.8602,77.7098 -100.8903,77.7181 -100.9365,77.7258 -100.9639,77.7298 -101.0665,77.7409 -101.1478,77.7482 -101.2218,77.7569 -101.3179,77.7714 -101.3687,77.7804 -101.4079,77.7886 -101.4459,77.7867 -101.4758,77.7831 -101.5281,77.7806 -101.6117,77.7807 -101.7447,77.7838 -101.7792,77.7839 -101.8352,77.7832 -101.9303,77.7785 -101.9303,77.5907 -101.8391,77.5785 531,-6.0,Canada -101.9268,75.4475 -101.8792,75.4492 -101.8566,75.4477 -101.7876,75.4404 -101.7171,75.4414 -101.6933,75.4426 -101.6193,75.4503 -101.4705,75.4685 -101.217,75.4962 -101.1931,75.4964 -101.1045,75.4935 -101.0284,75.4854 -100.9713,75.4812 -100.948,75.4817 -100.5527,75.5069 -100.5278,75.509 -100.3777,75.5256 -100.3525,75.5288 -100.264,75.5394 -100.1211,75.5485 -100.0975,75.5485 -99.9809,75.5454 -99.7565,75.5583 -99.5748,75.5713 -99.4662,75.5847 -99.3694,75.5881 -99.3455,75.588 -99.2832,75.5857 -99.056,75.589 -98.699,75.6042 -98.6777,75.6036 -98.6443,75.5998 -98.6257,75.5874 -98.6572,75.5801 -98.7101,75.5749 -98.7604,75.5712 -98.811,75.5697 -98.9294,75.5693 -98.9535,75.5692 -99.1851,75.5665 -99.5138,75.5524 -99.5459,75.5472 -99.5884,75.5108 -99.5666,75.5065 -99.5168,75.5106 -99.401,75.5033 -99.4391,75.4834 -99.473,75.4818 -99.5267,75.4806 -99.55,75.4784 -99.7623,75.4467 -99.7164,75.4387 -99.6728,75.439 -99.6265,75.4419 -99.5696,75.4375 -99.6931,75.4276 -99.7605,75.4236 -99.856,75.42 -100.0321,75.3669 -99.9416,75.3621 -99.9183,75.3621 -99.8272,75.365 -99.7402,75.3589 -99.7896,75.3488 -99.838,75.3457 -99.9032,75.3435 -99.9974,75.3431 -100.0659,75.3419 -100.1597,75.3403 -100.3988,75.3333 -100.4233,75.3309 -100.4455,75.3253 -100.4009,75.3215 -100.3327,75.3226 -100.3007,75.3189 -100.1638,75.273 -100.3214,75.2423 -100.3411,75.2408 -100.3646,75.2405 -100.4112,75.2527 -100.37,75.2593 -100.3442,75.2691 -100.3782,75.2733 -100.4023,75.2713 -100.4958,75.2446 -100.3426,75.2025 -100.2504,75.1879 -100.2275,75.1874 -100.0871,75.1948 -100.0606,75.1972 -100.01,75.2052 -99.9824,75.1992 -100.0148,75.179 -100.0399,75.1721 -100.0624,75.1695 -100.1322,75.1648 -100.1126,75.1527 -100.0824,75.1466 -100.0429,75.1458 -99.9547,75.1491 -99.932,75.1486 -99.8484,75.1439 -99.7312,75.1279 -99.7607,75.1222 -99.9544,75.1182 -99.9772,75.1192 -100.0086,75.124 -100.0309,75.126 -100.0537,75.1256 -100.1457,75.1228 -100.1669,75.122 -100.1916,75.1187 -100.2677,75.0917 -100.2394,75.0795 -100.2057,75.0748 -100.182,75.0724 -100.1611,75.069 -100.1343,75.0587 -100.1087,75.0033 -100.1209,74.9827 -100.1297,74.9572 -100.1258,74.9322 -100.0907,74.9159 -99.989,74.8997 -99.9468,74.8943 -99.8822,74.8881 -99.7942,74.8841 -99.7276,74.8817 -99.4394,74.8707 -99.3578,74.8684 -99.3408,74.8683 -99.3009,74.8695 -99.2769,74.8715 -99.1712,74.8952 -99.2304,74.9147 -99.2185,74.9343 -99.1803,74.9544 -99.0657,75.0112 -99.0403,75.0182 -99.0107,75.008 -99.0325,74.9884 -99.07,74.9667 -99.1273,74.929 -99.1388,74.8878 -99.1151,74.8827 -99.093,74.8817 -98.8063,74.8936 -98.7245,74.8973 -98.5249,74.8923 -98.4643,74.8865 -98.3753,74.8895 -98.209,74.9001 -98.1851,74.9019 -98.11,74.9114 -98.0402,74.9179 -98.0082,74.9193 -97.8494,74.9194 -97.7528,74.914 -97.7238,74.9121 -97.6914,74.9197 -97.6809,74.9698 -97.7104,75.0029 -97.739,75.0085 -97.7684,75.0107 -97.8169,75.026 -97.864,75.0462 -97.8814,75.0669 -97.8266,75.1181 -97.7965,75.1154 -97.7684,75.109 -97.7603,75.0871 -97.7646,75.0624 -97.6081,75.0097 -97.5803,75.0059 -97.4836,75.0071 -97.3769,75.012 -97.3564,75.014 -97.311,75.0446 -97.3404,75.0507 -97.365,75.0466 -97.4131,75.0596 -97.4956,75.0838 -97.4717,75.1012 -97.4851,75.1225 -97.6086,75.1654 -97.6477,75.1591 -97.7989,75.1808 -97.8354,75.1869 -97.8586,75.1949 -97.8982,75.2267 -97.881,75.2458 -97.8636,75.2593 -97.841,75.2668 -97.8078,75.2623 -97.7763,75.2539 -97.724,75.2506 -97.652,75.251 -97.6143,75.2629 -97.6445,75.2751 -97.6937,75.2795 -97.7543,75.3004 -97.7178,75.3035 -97.6677,75.3022 -97.5348,75.3055 -97.5121,75.3201 -97.6438,75.3407 -97.6662,75.3426 -97.6902,75.3416 -97.7179,75.3518 -97.7746,75.3768 -97.6841,75.4017 -97.6647,75.4069 -97.6405,75.4075 -97.5939,75.3869 -97.5721,75.3586 -97.5406,75.3513 -97.5165,75.3522 -97.4806,75.3643 -97.4865,75.3851 -97.5147,75.408 -97.5482,75.4336 -97.4852,75.4639 -97.4527,75.4626 -97.3068,75.4073 -97.2315,75.3688 -97.2243,75.3303 -97.2035,75.3172 -97.1762,75.3098 -97.0766,75.2884 -97.0481,75.2853 -97.0232,75.2936 -97.0654,75.3087 -97.0842,75.3147 -97.1128,75.3286 -97.1337,75.3502 -97.1536,75.3951 -97.1573,75.423 -97.1434,75.5123 -97.1219,75.5348 -97.1031,75.5589 -97.1276,75.5793 -97.1572,75.5861 -97.4211,75.6144 -97.5575,75.6207 -97.6007,75.6244 -97.6642,75.6376 -97.6429,75.6452 -97.5672,75.659 -97.4307,75.678 -97.389,75.6893 -97.3276,75.7404 -97.3341,75.789 -97.3741,75.833 -97.3848,75.8659 -97.3155,75.9734 -97.2907,75.99 -97.2696,76.001 -97.2374,76.0157 -97.2216,76.0363 -97.2444,76.0923 -97.3093,76.1262 -97.336,76.1344 -97.3737,76.1423 -97.4246,76.1585 -97.4525,76.1725 -97.4856,76.227 -97.4451,76.2897 -97.3881,76.3128 -97.4119,76.3709 -97.4799,76.4002 -97.5301,76.4056 -97.6198,76.4069 -97.6665,76.4092 -97.8019,76.4222 -98.0431,76.4521 -98.078,76.4568 -98.0981,76.4633 -98.118,76.4815 -98.0824,76.4845 -98.0396,76.4796 -98.0185,76.4764 -97.9985,76.472 -97.971,76.4635 -97.9056,76.4746 -98.0016,76.4933 -98.0867,76.5009 -98.1413,76.5286 -98.1301,76.5556 -98.1588,76.5639 -98.1989,76.57 -98.2234,76.5719 -98.4304,76.5739 -98.4517,76.5733 -98.539,76.5677 -98.5722,76.5577 -98.5322,76.5446 -98.4626,76.5349 -98.393,76.5348 -98.3419,76.5379 -98.3131,76.5474 -98.2658,76.5487 -98.208,76.5388 -98.2338,76.5142 -98.258,76.5075 -98.2857,76.5045 -98.3084,76.5023 -98.33,76.5014 -98.4336,76.5053 -98.579,76.5054 -98.6899,76.4988 -98.7171,76.496 -98.7452,76.4922 -98.7631,76.425 -98.6731,76.3903 -98.6181,76.3726 -98.5807,76.3578 -98.5723,76.3251 -98.6028,76.3229 -98.636,76.3264 -98.667,76.3423 -98.6746,76.3606 -98.707,76.3627 -98.8517,76.347 -98.8337,76.3214 -98.7981,76.2995 -98.8199,76.2896 -98.843,76.2925 -98.883,76.3006 -98.904,76.3073 -98.9762,76.3563 -99.0848,76.4175 -99.2951,76.5133 -99.4002,76.5242 -99.4495,76.5247 -99.4861,76.5187 -99.5192,76.5039 -99.5533,76.4996 -99.6005,76.5014 -99.6266,76.5041 -99.6966,76.5133 -99.7671,76.5221 -99.9062,76.533 -99.9308,76.5341 -100.0327,76.5263 -100.0779,76.5218 -100.0978,76.5183 -100.1722,76.5047 -100.3666,76.4673 -100.4336,76.4444 -100.4512,76.4225 -100.5192,76.4135 -100.5434,76.411 -100.6063,76.4107 -100.6529,76.4057 -100.6763,76.4014 -100.6946,76.3873 -100.6662,76.3661 -100.4102,76.2666 -100.3893,76.2635 -100.2695,76.2628 -100.1974,76.2657 -100.0907,76.2744 -100.067,76.2761 -100.0401,76.2757 -100.0184,76.2744 -99.9941,76.2703 -99.7565,76.2108 -99.5658,76.174 -99.5889,76.1679 -99.6144,76.1666 -99.8295,76.1584 -99.9009,76.1627 -99.9869,76.1707 -100.084,76.1738 -100.1342,76.1722 -100.1553,76.1709 -100.1823,76.1671 -100.2266,76.1491 -100.216,76.1299 -100.19,76.1185 -100.157,76.1048 -99.9442,76.083 -99.9204,76.0824 -99.8974,76.083 -99.8693,76.0855 -99.6683,76.0818 -99.6358,76.0727 -99.5945,76.063 -99.4376,76.032 -99.4138,76.0311 -99.3888,76.0323 -99.27,76.0459 -99.2201,76.05 -99.1664,76.0536 -99.1452,76.0489 -99.2141,76.0389 -99.2775,76.0341 -99.3304,76.0283 -99.3718,76.0199 -99.4019,76.011 -99.4519,76.0098 -99.5888,76.0323 -99.7412,76.047 -99.7914,76.0482 -99.8236,76.0456 -99.8447,76.0413 -99.8724,76.025 -99.862,76.0049 -99.8032,75.9368 -99.621,75.8433 -99.5838,75.8285 -99.5336,75.8415 -99.508,75.8442 -99.3804,75.8545 -99.2176,75.8667 -99.172,75.861 -99.2068,75.8516 -99.2318,75.8505 -99.3107,75.843 -99.4012,75.8244 -99.4462,75.8064 -99.4768,75.7997 -99.6113,75.7796 -99.7052,75.7836 -99.7693,75.8071 -99.8533,75.8456 -100.0327,75.9426 -100.1589,75.9978 -100.3485,76.0258 -100.4283,76.0588 -100.4685,76.0745 -100.5005,76.0833 -100.5825,76.1043 -100.6359,76.116 -100.6972,76.1275 -100.7207,76.1299 -100.8093,76.1752 -100.7783,76.2213 -100.8517,76.2426 -100.9206,76.2531 -100.9484,76.2612 -100.9938,76.2846 -101.0106,76.2967 -101.0294,76.3059 -101.1248,76.3225 -101.1476,76.326 -101.1696,76.3278 -101.3832,76.3406 -101.4949,76.3459 -101.5199,76.3456 -101.5738,76.3416 -101.5973,76.3365 -101.7302,76.3012 -101.7606,76.2866 -101.7411,76.2725 -101.7133,76.2446 -101.7738,76.1494 -101.7951,76.1431 -101.8464,76.1386 -101.8758,76.1326 -101.854,76.1154 -101.8276,76.1078 -101.7655,76.1057 -101.4891,76.1077 -101.4641,76.1082 -101.4134,76.1115 -101.2118,76.1259 -101.1567,76.1336 -101.1062,76.1389 -101.1808,76.111 -101.2038,76.106 -101.2485,76.0976 -101.3232,76.0868 -101.4001,76.08 -101.426,76.0772 -101.4757,76.0665 -101.6105,76.0058 -101.6211,75.9739 -101.6091,75.9529 -101.5566,75.9134 -101.5227,75.9005 -101.4455,75.8805 -101.3979,75.873 -101.3589,75.8725 -101.3342,75.8736 -101.1177,75.8911 -101.0935,75.9066 -101.0431,75.9127 -101.0235,75.9036 -101.1118,75.8685 -101.17,75.8565 -101.205,75.8507 -101.283,75.8227 -101.2971,75.8019 -101.2528,75.7547 -101.2078,75.7474 -101.1351,75.7495 -101.1044,75.7464 -101.0792,75.7389 -101.0572,75.7212 -101.0489,75.698 -101.0736,75.676 -101.0483,75.6681 -100.9516,75.6708 -100.9028,75.6732 -100.9231,75.6609 -100.9678,75.6406 -101.0223,75.6396 -101.1342,75.646 -101.1585,75.6493 -101.1872,75.6617 -101.2752,75.7146 -101.4629,75.7515 -101.4898,75.7619 -101.5201,75.7825 -101.544,75.7916 -101.5818,75.7955 -101.8548,75.7742 -101.8798,75.772 -101.9303,75.7639 -101.9303,75.6801 -101.8246,75.6799 -101.8102,75.6157 -101.7275,75.5978 -101.7465,75.5904 -101.7767,75.5845 -101.7976,75.5823 -101.8798,75.6013 -101.9303,75.6084 -101.9303,75.4472 -101.9268,75.4475 12,-6.0,Canada -101.9128,75.7928 -101.8628,75.7963 -101.8113,75.8047 -101.7373,75.8187 -101.7053,75.8273 -101.7028,75.8415 -101.7944,75.8642 -101.8801,75.8833 -101.9068,75.8824 -101.9303,75.8788 -101.9303,75.792 -101.9128,75.7928 429,-6.0,Canada -101.8874,72.4287 -101.8354,72.4192 -101.7368,72.3813 -101.6978,72.3553 -101.6454,72.2619 -101.595,72.2252 -101.5345,72.2032 -101.4476,72.1916 -101.4203,72.2046 -101.3928,72.2104 -101.3436,72.205 -101.2676,72.1867 -101.2282,72.1692 -101.16,72.1862 -101.0838,72.2184 -101.0354,72.2316 -100.9883,72.2367 -100.9602,72.2305 -100.8772,72.188 -100.8149,72.1379 -100.7775,72.0975 -100.7283,72.078 -100.7119,72.075 -100.6843,72.103 -100.6483,72.1112 -100.4808,72.1056 -100.4005,72.0909 -100.3413,72.0584 -100.0976,71.9062 -100.0821,71.8868 -99.867,71.7894 -99.8247,71.7727 -99.7339,71.7595 -99.6081,71.7396 -99.4423,71.6604 -99.4435,71.6384 -99.3534,71.5341 -99.3347,71.5213 -99.2983,71.5105 -99.2314,71.4984 -99.0836,71.345 -99.0587,71.3085 -99.0007,71.2493 -98.8872,71.2564 -98.8402,71.2618 -98.8149,71.2769 -98.7766,71.2878 -98.7411,71.2869 -98.7099,71.2748 -98.6542,71.2395 -98.6094,71.2054 -98.5888,71.1951 -98.5237,71.1802 -98.498,71.1761 -98.4745,71.178 -98.321,71.1942 -98.2786,71.205 -98.2391,71.2192 -97.9623,71.3247 -97.8936,71.3661 -97.8121,71.4342 -97.952,71.4773 -98.1453,71.5556 -98.2656,71.6226 -98.263,71.646 -98.2476,71.6718 -98.2261,71.6936 -98.0561,71.8013 -98.0303,71.8077 -97.9824,71.7914 -97.9984,71.7669 -98.029,71.7492 -98.0487,71.7393 -98.0939,71.7043 -98.1263,71.6308 -98.1016,71.6132 -98.0177,71.5679 -97.9842,71.5528 -97.9589,71.5477 -97.8936,71.5427 -97.8444,71.5467 -97.8159,71.556 -97.7529,71.5663 -97.5596,71.5493 -97.4926,71.531 -97.4695,71.5248 -97.4293,71.52 -97.2783,71.5167 -97.2438,71.5178 -97.2079,71.5228 -96.9833,71.5687 -96.9385,71.5806 -96.8575,71.6052 -96.7864,71.6539 -96.7569,71.6807 -96.5644,71.7323 -96.5115,71.7296 -96.5181,71.6971 -96.5003,71.6982 -96.3872,71.712 -96.3598,71.7177 -96.3381,71.7291 -96.2993,71.7734 -96.268,71.8272 -96.2891,71.8383 -96.3386,71.8365 -96.3802,71.8315 -96.418,71.8221 -96.4736,71.8044 -96.5029,71.8034 -96.5322,71.8161 -96.5138,71.8307 -96.4108,71.862 -96.3826,71.8634 -96.3543,71.8556 -96.3328,71.8522 -96.2838,71.8717 -96.2644,71.9107 -96.2616,71.9307 -96.2836,71.9427 -96.3398,71.9377 -96.3768,71.93 -96.3987,71.9203 -96.4447,71.917 -96.6006,71.9348 -96.6318,71.9429 -96.5526,71.9568 -96.4931,71.9568 -96.329,71.9758 -96.3009,71.9816 -96.2752,71.9917 -96.2569,72.0114 -96.2575,72.0371 -96.3279,72.1734 -96.3486,72.1822 -96.4389,72.1828 -96.5407,72.2026 -96.6375,72.224 -96.6008,72.2269 -96.5457,72.2268 -96.5082,72.2244 -96.4665,72.2142 -96.4381,72.2132 -96.3083,72.2466 -96.0696,72.3294 -96.1003,72.3976 -96.1433,72.4375 -96.1737,72.4623 -96.2274,72.5104 -96.289,72.5769 -96.2842,72.6171 -96.3781,72.6496 -96.5128,72.6192 -96.6816,72.5811 -96.7417,72.5606 -96.7718,72.5476 -96.8056,72.5288 -96.8496,72.5092 -96.9414,72.5045 -96.9636,72.5102 -96.9559,72.5435 -96.9391,72.5729 -96.8999,72.5909 -96.8714,72.5988 -96.845,72.6045 -96.7922,72.632 -96.8466,72.6826 -96.9677,72.7281 -97.0292,72.7513 -97.0258,72.7831 -96.9905,72.8434 -97.0545,72.8689 -97.2045,72.9012 -97.2893,72.9133 -97.4377,72.934 -97.6163,72.9498 -97.7483,72.9405 -97.9374,72.9004 -97.9876,72.8896 -98.0213,72.877 -98.1615,72.7944 -98.1859,72.7619 -98.2092,72.7725 -98.2142,72.8008 -98.2188,72.8951 -98.2098,72.9221 -98.1255,72.9396 -98.0792,72.9524 -97.9938,72.9845 -97.9822,73.0015 -97.9621,73.0121 -97.911,73.0325 -97.8718,73.0442 -97.836,73.0529 -97.7885,73.0668 -97.7428,73.0825 -97.6108,73.1472 -97.6019,73.172 -97.4677,73.2058 -97.4116,73.2182 -97.1349,73.2484 -96.9996,73.2529 -96.9674,73.2493 -96.9335,73.2553 -96.91,73.2911 -96.9167,73.2965 -96.9279,73.3582 -96.9488,73.3681 -96.9908,73.3752 -97.1676,73.3941 -97.1951,73.3927 -97.2711,73.3817 -97.2921,73.3748 -97.3289,73.3578 -97.373,73.3565 -97.404,73.3645 -97.4242,73.3805 -97.3886,73.4382 -97.1936,73.4264 -96.9518,73.4603 -96.7533,73.5228 -96.724,73.537 -96.6927,73.597 -96.7228,73.6399 -96.9789,73.7561 -97.0152,73.7601 -97.0914,73.7653 -97.1124,73.7624 -97.1544,73.7589 -97.2187,73.7578 -97.2617,73.7649 -97.2794,73.7767 -97.3076,73.7884 -97.3357,73.7938 -97.5152,73.8117 -97.55,73.8116 -97.6408,73.7991 -97.6664,73.7923 -97.6943,73.7664 -97.7076,73.7493 -97.7303,73.7426 -97.825,73.7194 -97.8483,73.7156 -97.8874,73.7099 -97.9384,73.7039 -97.9604,73.7052 -98.0437,73.7018 -98.1772,73.6938 -98.2672,73.6876 -98.3943,73.6771 -98.4406,73.6722 -98.4689,73.6666 -98.5085,73.6561 -98.5812,73.652 -98.7238,73.6505 -98.8666,73.6487 -98.9863,73.6378 -99.2369,73.7239 -99.281,73.732 -99.339,73.7376 -99.4722,73.7481 -99.5557,73.7977 -99.5556,73.8284 -99.6039,73.8406 -99.6444,73.8439 -99.6861,73.8458 -99.7283,73.8456 -99.7849,73.842 -99.8517,73.8359 -99.8821,73.8312 -99.9951,73.806 -100.0195,73.7941 -100.0445,73.7644 -100.0032,73.7359 -99.9231,73.728 -99.8848,73.7273 -99.7976,73.7329 -99.7658,73.7391 -99.7423,73.7482 -99.7282,73.7622 -99.71,73.773 -99.6241,73.7712 -99.6105,73.7403 -99.8121,73.665 -100.0909,73.7168 -100.1177,73.728 -100.14,73.7398 -100.1652,73.7455 -100.2769,73.7535 -100.3011,73.7548 -100.403,73.7467 -100.4536,73.7231 -100.4807,73.7152 -100.5018,73.7124 -100.5321,73.7122 -100.5749,73.7154 -100.6843,73.7101 -100.706,73.7092 -100.7359,73.704 -100.7601,73.6971 -100.8656,73.6255 -100.7901,73.5733 -100.7307,73.5792 -100.6038,73.5649 -100.6191,73.5402 -100.6547,73.5252 -100.516,73.5044 -100.3776,73.4939 -100.3227,73.4973 -100.3001,73.4975 -100.2963,73.4603 -100.3581,73.4127 -100.3453,73.3899 -100.282,73.3668 -100.2445,73.3556 -100.2057,73.343 -100.1744,73.3179 -100.1955,73.3075 -100.2158,73.308 -100.26,73.3158 -100.423,73.3653 -100.4479,73.3862 -100.4618,73.405 -100.5202,73.4408 -100.6324,73.4936 -100.6662,73.5003 -100.9559,73.5054 -100.9917,73.493 -101.0069,73.4665 -101.0286,73.4532 -101.0634,73.4514 -101.1482,73.4544 -101.1815,73.4513 -101.3667,73.3885 -101.3287,73.3513 -101.3066,73.3475 -101.2191,73.3369 -101.0618,73.2948 -101.0585,73.2674 -100.7287,73.1814 -100.6408,73.1657 -100.5833,73.1614 -100.3357,73.1848 -100.3136,73.188 -100.1397,73.2396 -100.1575,73.2625 -100.1378,73.2968 -100.1177,73.2957 -100.0802,73.2871 -100.0242,73.2596 -99.9521,73.2196 -99.9122,73.1906 -99.8396,73.1556 -99.7089,73.1194 -99.68,73.1165 -99.6406,73.1147 -99.6039,73.1166 -99.5666,73.1171 -99.5295,73.108 -99.5562,73.097 -99.5957,73.0929 -99.7671,73.0848 -99.7997,73.0864 -99.8883,73.1223 -100.034,73.1803 -100.1221,73.1913 -100.1547,73.1836 -100.2435,73.1323 -100.3362,73.0719 -100.3581,73.0452 -100.3402,73.0345 -100.2724,72.9995 -100.197,72.9889 -100.1684,73.0064 -100.1407,73.0222 -100.0995,73.0317 -100.0776,73.035 -100.043,73.0374 -99.995,73.0372 -99.9244,72.9802 -99.8684,72.9276 -99.8039,72.8591 -99.7877,72.8371 -99.8238,72.8045 -99.8531,72.7886 -99.9532,72.7801 -99.9737,72.7787 -100.0416,72.776 -100.0793,72.7921 -100.137,72.8513 -100.1055,72.914 -100.0696,72.9314 -100.1131,72.9488 -100.1764,72.9367 -100.212,72.9194 -100.2546,72.8553 -100.2332,72.8517 -100.1091,72.7562 -100.0718,72.7014 -100.1001,72.6765 -100.1696,72.6446 -100.1917,72.6395 -100.2054,72.6381 -100.2327,72.6452 -100.2606,72.6512 -100.2899,72.654 -100.4637,72.6584 -100.5545,72.6462 -100.5745,72.6154 -100.6388,72.5922 -100.6724,72.5908 -100.7894,72.5922 -101.0528,72.6125 -101.1244,72.6289 -101.1682,72.6509 -101.1591,72.6849 -101.2689,72.7771 -101.3482,72.8043 -101.4279,72.8118 -101.5006,72.8295 -101.5659,72.8655 -101.6354,72.9267 -101.7214,72.9723 -101.7647,72.9815 -101.8344,72.9858 -101.8874,72.9886 -101.9303,72.9874 -101.9303,72.4365 -101.8874,72.4287 24,-6.0,Canada -101.9199,68.8653 -101.9015,68.8833 -101.8789,68.8997 -101.8372,68.9083 -101.8096,68.9036 -101.7797,68.8816 -101.7523,68.8781 -101.7312,68.879 -101.6819,68.8865 -101.6338,68.8956 -101.5923,68.9109 -101.5351,69.0738 -101.5595,69.1035 -101.7113,69.172 -101.7385,69.1692 -101.7924,69.1527 -101.822,69.1396 -101.8384,69.1165 -101.8493,69.0992 -101.8686,69.0902 -101.8943,69.0924 -101.9303,69.1075 -101.9303,68.8617 -101.9199,68.8653 9,-6.0,Canada -101.9199,69.1845 -101.8162,69.1977 -101.7144,69.3214 -101.7319,69.3439 -101.8324,69.3922 -101.8728,69.398 -101.9303,69.401 -101.9303,69.1832 -101.9199,69.1845 66,-6.0,Canada -101.9199,69.7936 -101.8437,69.7599 -101.8014,69.7275 -101.7348,69.6571 -101.7143,69.6451 -101.6761,69.6418 -101.6422,69.6534 -101.545,69.6304 -101.4743,69.5925 -101.4326,69.5925 -101.3878,69.6158 -101.3418,69.6652 -101.3232,69.7033 -101.2993,69.738 -101.2535,69.7965 -101.2303,69.8169 -101.1993,69.8026 -101.2171,69.7659 -101.2468,69.7439 -101.2344,69.7087 -101.2181,69.6794 -101.1072,69.5809 -101.0643,69.5737 -100.8456,69.5586 -100.7445,69.5712 -100.7244,69.5798 -100.7056,69.6023 -100.7043,69.6262 -100.6813,69.6637 -100.6594,69.6813 -100.651,69.6979 -100.6508,69.724 -100.6674,69.7937 -100.7021,69.8747 -100.738,69.9619 -100.7505,70.0484 -100.7541,70.0685 -100.7752,70.0812 -100.8152,70.0913 -100.8867,70.1008 -100.9076,70.0715 -101.0057,70.0411 -101.0349,70.0503 -101.0617,70.0607 -101.1415,70.0854 -101.1694,70.0536 -101.3077,70.0162 -101.3307,70.0201 -101.3925,70.066 -101.4202,70.1118 -101.4143,70.1371 -101.379,70.1558 -101.365,70.1783 -101.463,70.2145 -101.4877,70.217 -101.5774,70.208 -101.5943,70.1834 -101.6165,70.1666 -101.6419,70.1619 -101.6664,70.1627 -101.6984,70.1686 -101.7604,70.1912 -101.8892,70.2473 -101.9303,70.2586 -101.9303,69.7982 -101.9199,69.7936 27,-6.0,Canada -95.1529,66.9981 -95.0936,66.9399 -95.029,66.8932 -95.0676,66.8325 -95.1007,66.8112 -95.1313,66.8067 -95.1933,66.8263 -95.2763,66.8269 -95.2972,66.8204 -95.3207,66.8176 -95.5347,66.8166 -95.5612,66.8281 -95.5807,66.8489 -95.6175,66.8565 -95.6776,66.8596 -95.6421,66.8633 -95.5467,66.8751 -95.5243,66.8797 -95.4178,66.8853 -95.4014,66.864 -95.3386,66.8562 -95.2205,66.8672 -95.158,66.8771 -95.1442,66.8979 -95.1311,66.9371 -95.1562,67.0013 -95.1529,66.9981 1761,-6.0,Canada -109.93,48.9435 -109.8388,48.9443 -109.8068,48.9436 -109.6413,48.9433 -109.4744,48.9434 -109.1745,48.9433 -108.6755,48.9431 -108.5086,48.9432 -108.3758,48.9433 -108.1763,48.9432 -108.0107,48.9434 -107.6433,48.9433 -107.578,48.9431 -107.4772,48.9432 -107.2777,48.9439 -107.1782,48.9438 -106.5795,48.9434 -106.3123,48.9432 -106.1131,48.9433 -105.98,48.9431 -105.8796,48.9434 -105.5474,48.9434 -105.1141,48.9438 -104.8475,48.9434 -104.6814,48.9432 -104.1824,48.9434 -103.9829,48.9435 -103.8808,48.9441 -103.5833,48.9431 -103.3839,48.9434 -103.2841,48.944 -103.1177,48.9438 -103.0173,48.9433 -102.8845,48.9434 -102.6179,48.9433 -102.3853,48.9442 -102.1857,48.9434 -102.0192,48.9437 -101.3205,48.9433 -101.219,48.9427 -101.1538,48.9442 -100.9213,48.9439 -100.3547,48.9434 -99.8559,48.9438 -99.6896,48.944 -99.1901,48.9433 -98.724,48.9439 -98.3579,48.9434 -98.1252,48.944 -97.8257,48.9443 -97.6586,48.9437 -97.493,48.9432 -97.3599,48.9433 -97.0775,48.9437 -95.1271,48.9438 -95.0148,48.9433 -95.0142,49.1171 -95.0146,49.2767 -95.014,49.3098 -95.0128,49.3199 -95.0024,49.3149 -94.9807,49.3085 -94.9418,49.3029 -94.886,49.3011 -94.8586,49.301 -94.8225,49.3045 -94.7921,49.3019 -94.6783,49.2491 -94.6666,49.1304 -94.6591,49.101 -94.6282,49.0194 -94.6063,48.9723 -94.5913,48.9406 -94.5801,48.9185 -94.5673,48.877 -94.5624,48.8465 -94.5686,48.8022 -94.5697,48.741 -94.5566,48.7228 -94.5023,48.6854 -94.4677,48.6686 -94.3863,48.646 -94.3629,48.6411 -94.3234,48.6394 -94.2957,48.6463 -94.2628,48.6549 -94.1608,48.6513 -94.1299,48.6402 -94.1106,48.6053 -93.997,48.5869 -93.975,48.5854 -93.9268,48.5822 -93.7464,48.5745 -93.722,48.5731 -93.6972,48.5609 -93.6824,48.5306 -93.6682,48.4762 -93.6495,48.4614 -93.5879,48.4584 -93.5244,48.4598 -93.3602,48.483 -93.3284,48.4961 -93.3179,48.5286 -93.2722,48.5529 -93.18,48.5734 -93.1093,48.5847 -92.816,48.567 -92.5804,48.4857 -92.5629,48.4298 -92.4478,48.3861 -92.3212,48.3389 -92.2922,48.2562 -92.2259,48.1764 -92.1978,48.1789 -92.1576,48.1936 -92.1523,48.2148 -92.1659,48.2442 -92.143,48.2795 -92.1233,48.2917 -92.0284,48.3013 -92.0079,48.3017 -91.906,48.2902 -91.8808,48.2493 -91.8747,48.2259 -91.8586,48.206 -91.8304,48.1852 -91.8071,48.1752 -91.7174,48.1486 -91.651,48.1395 -91.6072,48.1362 -91.5547,48.0896 -91.5127,48.0435 -91.4411,48.038 -91.3306,48.0029 -91.2863,47.986 -91.2548,48.004 -91.2153,48.0129 -91.1866,48.0146 -91.1443,48.0178 -91.1085,48.0286 -91.0608,48.06 -91.0175,48.0889 -90.9943,48.1 -90.8375,48.1595 -90.7966,48.1735 -90.7665,48.1815 -90.7369,48.1825 -90.7037,48.1718 -90.7041,48.1495 -90.6426,48.0487 -90.6185,48.0377 -90.1494,48.058 -90.016,48.0663 -90.0,48.0634 -90.0,56.1247 -88.934,56.7895 -88.9743,56.7974 -89.2798,56.8562 -89.362,56.8618 -89.5552,56.8895 -89.6727,56.9109 -89.8099,56.9364 -89.8397,56.9487 -89.8642,56.9637 -90.0642,57.0366 -90.1494,57.067 -90.2281,57.1058 -90.2467,57.1139 -90.2891,57.1258 -90.4009,57.1444 -90.5518,57.1591 -90.5755,57.1646 -90.5961,57.1696 -90.6246,57.1785 -90.6619,57.1884 -90.8341,57.1933 -90.8823,57.189 -90.9261,57.1831 -90.9924,57.1721 -91.0778,57.1543 -91.6161,57.0323 -91.6649,57.0196 -91.7879,56.9897 -91.8234,56.9849 -91.8672,56.9789 -91.8935,56.976 -91.9286,56.9732 -91.982,56.9699 -92.0156,56.9631 -92.0478,56.954 -92.0706,56.9451 -92.1007,56.9257 -92.1195,56.9092 -92.1385,56.8999 -92.2102,56.8823 -92.3032,56.8662 -92.2608,56.8912 -92.2254,56.8995 -92.1958,56.9043 -92.1764,56.9119 -92.0541,56.9921 -92.08,56.9979 -92.2111,56.9888 -92.2355,56.9846 -92.278,56.9771 -92.3188,56.9674 -92.3495,56.956 -92.3876,56.937 -92.4241,56.9189 -92.4486,56.9044 -92.491,56.8796 -92.5261,56.8661 -92.5662,56.8549 -92.5919,56.8512 -92.6253,56.8465 -92.6758,56.8403 -92.7029,56.839 -92.7069,56.8439 -92.6719,56.8569 -92.6063,56.8704 -92.5563,56.8786 -92.5299,56.894 -92.4047,56.9953 -92.3841,57.0176 -92.2756,57.1627 -92.2629,57.1895 -92.2526,57.2646 -92.2821,57.3693 -92.4536,57.6021 -92.5049,57.6644 -92.5567,57.7325 -92.5854,57.782 -92.6267,57.8999 -92.6365,57.9377 -92.6325,57.9806 -92.6425,58.0023 -92.6996,58.0736 -92.7614,58.1421 -92.7949,58.1914 -92.8648,58.3013 -92.9243,58.3974 -92.9472,58.4391 -92.9554,58.4602 -92.9681,58.5839 -92.9695,58.6218 -92.9819,58.6689 -93.0245,58.6882 -93.0445,58.6937 -93.0646,58.6965 -93.1511,58.6875 -93.1751,58.678 -93.3031,58.6622 -93.4029,58.6936 -93.5003,58.7105 -93.5458,58.7145 -93.6254,58.7033 -93.6707,58.6976 -93.7759,58.6923 -93.8225,58.6905 -93.9404,58.6918 -93.9701,58.6935 -94.0716,58.5178 -94.0657,58.4242 -94.0585,58.361 -94.0569,58.326 -94.0868,58.2819 -94.1856,58.1539 -94.1775,58.212 -94.1538,58.2797 -94.1182,58.3562 -94.1121,58.4427 -94.0786,58.58 -94.0609,58.6444 -94.0551,58.7147 -94.1052,58.7007 -94.1172,58.6735 -94.1613,58.6482 -94.1874,58.6426 -94.242,58.6452 -94.2723,58.6652 -94.2808,58.6982 -94.3058,58.7386 -94.4171,58.8061 -94.501,58.8638 -94.5054,58.9031 -94.6139,59.0216 -94.6052,59.1901 -94.5961,59.2247 -94.5387,59.2521 -94.5038,59.286 -94.5583,59.3551 -94.6115,59.444 -94.6413,59.5648 -94.6255,59.6393 -94.6247,59.8058 -94.6422,59.8836 -94.6216,59.9274 -94.6251,59.9339 -94.5903,59.986 -94.5715,59.9968 -94.5319,60.012 -94.4951,60.1183 -94.5035,60.1512 -94.4374,60.3045 -94.4489,60.343 -94.4927,60.3931 -94.4939,60.4491 -94.4321,60.4545 -94.3902,60.448 -94.328,60.4736 -94.2726,60.5978 -94.2356,60.6858 -94.2117,60.7253 -94.1717,60.7823 -94.0476,60.8687 -93.9686,60.9695 -93.8777,61.104 -93.7568,61.2215 -93.6659,61.2424 -93.6398,61.2781 -93.6828,61.3126 -93.7195,61.3132 -93.7472,61.3115 -93.7884,61.3218 -93.8047,61.3804 -93.6764,61.4741 -93.4749,61.5541 -93.4141,61.573 -93.363,61.5883 -93.2699,61.6071 -93.1773,61.632 -93.076,61.6674 -93.065,61.7031 -93.1032,61.7136 -93.2559,61.7337 -93.3765,61.7725 -93.4366,61.7865 -93.4198,61.8037 -93.4356,61.8642 -93.2816,61.8469 -93.2622,61.8396 -93.1508,61.8107 -93.1247,61.8091 -93.1021,61.8158 -93.0435,61.8804 -93.0646,61.8937 -93.1389,61.9223 -93.172,61.9299 -93.2064,61.9356 -93.2317,61.9528 -93.1449,61.9755 -93.1227,61.9738 -93.0975,61.9671 -93.0619,61.9542 -92.9608,61.934 -92.8114,61.9918 -92.7887,62.0014 -92.757,62.0351 -92.8435,62.0487 -92.8932,62.0286 -92.9426,62.0573 -92.9321,62.0796 -92.8924,62.0975 -92.7746,62.1168 -92.6693,62.0999 -92.615,62.0992 -92.5854,62.1459 -92.6008,62.1609 -92.6545,62.1826 -92.6867,62.1868 -92.7184,62.1848 -92.9419,62.2586 -92.895,62.256 -92.6657,62.2333 -92.5647,62.2122 -92.5212,62.1895 -92.4599,62.1377 -92.4465,62.1158 -92.419,62.0797 -92.3033,62.0786 -92.3578,62.0995 -92.3901,62.1169 -92.4246,62.1604 -92.4265,62.1873 -92.4091,62.2246 -92.4272,62.2385 -92.4486,62.246 -92.4861,62.2565 -92.5399,62.2751 -92.5493,62.3597 -92.5301,62.3892 -92.432,62.3895 -92.3592,62.4558 -92.2883,62.4679 -92.2514,62.4593 -92.211,62.454 -92.1856,62.4569 -92.1462,62.4641 -92.0942,62.4925 -92.0912,62.5165 -92.0121,62.5264 -91.9791,62.5226 -91.8746,62.45 -91.7662,62.4565 -91.7063,62.5262 -91.7042,62.5476 -91.7384,62.5637 -91.7701,62.5751 -91.7926,62.5764 -91.8555,62.5736 -91.8885,62.5749 -92.0042,62.5808 -92.0534,62.5963 -92.1538,62.6331 -92.2763,62.7224 -92.2667,62.7422 -92.2315,62.7573 -92.2074,62.7637 -92.182,62.7672 -92.1601,62.7665 -92.0426,62.7507 -91.908,62.7419 -91.811,62.7698 -91.6612,62.7494 -91.4008,62.7231 -91.2836,62.7056 -91.2622,62.7059 -91.1836,62.7112 -91.0326,62.78 -91.019,62.8118 -91.0,62.8299 -90.8657,62.8661 -90.8394,62.869 -90.7575,62.8676 -90.6928,62.8572 -90.6704,62.8557 -90.6484,62.856 -90.6056,62.8623 -90.5628,62.8848 -90.472,62.959 -90.4502,62.9819 -90.5131,63.1506 -90.564,63.283 -90.6386,63.2913 -90.747,63.3096 -90.7715,63.3193 -90.7897,63.3421 -90.7607,63.3424 -90.7372,63.3326 -90.6764,63.3306 -90.7672,63.362 -90.9542,63.4 -91.0951,63.4241 -91.2187,63.4468 -91.424,63.5045 -91.4377,63.5304 -91.4336,63.562 -91.4907,63.5997 -91.5148,63.6119 -91.5893,63.6359 -91.6417,63.6351 -91.7902,63.6015 -91.9841,63.5459 -92.0211,63.5313 -92.0988,63.4777 -92.1551,63.4787 -92.2476,63.4688 -92.2994,63.4489 -92.3113,63.4626 -92.3081,63.4891 -92.2034,63.5141 -92.0761,63.5444 -92.0231,63.5597 -91.9225,63.6195 -91.9666,63.6382 -92.0754,63.6625 -92.1248,63.6601 -92.1671,63.6553 -92.2072,63.657 -92.2349,63.6672 -92.2504,63.7078 -92.2963,63.7333 -92.2523,63.7262 -91.9993,63.6783 -91.9612,63.6682 -91.8852,63.6632 -91.7296,63.6618 -91.401,63.6367 -91.3758,63.6495 -91.3546,63.6518 -91.2318,63.6287 -91.1694,63.6072 -91.1918,63.6072 -91.2213,63.5942 -91.1963,63.5805 -91.0539,63.5515 -91.0174,63.5504 -90.979,63.557 -90.9585,63.5523 -90.8562,63.5206 -90.8056,63.4998 -90.758,63.4871 -90.6711,63.4816 -90.6497,63.4835 -90.5556,63.4957 -90.3792,63.5219 -90.3635,63.5363 -90.3789,63.5779 -90.425,63.5959 -90.4406,63.5805 -90.4775,63.5763 -90.5128,63.5787 -90.4611,63.6233 -90.4398,63.6249 -90.3166,63.596 -90.287,63.568 -90.2517,63.5376 -90.0811,63.5287 -90.0589,63.5289 -90.0278,63.5338 -89.9755,63.5493 -89.9128,63.6203 -89.8804,63.666 -89.7952,63.7024 -89.7902,63.7356 -89.9363,63.8519 -90.0281,63.9075 -90.0493,63.9152 -90.094,63.9225 -90.0713,63.9284 -90.0104,63.93 -89.8224,63.9051 -89.7775,63.8928 -89.7718,63.8701 -89.7922,63.8555 -89.8156,63.846 -89.7679,63.8322 -89.6488,63.8454 -89.6367,63.8633 -89.6521,63.8985 -89.6897,63.9108 -89.7269,63.9366 -89.7685,63.9784 -89.7729,64.0079 -89.8807,64.0305 -89.9398,64.0466 -89.7993,64.0811 -89.7385,64.0808 -89.7083,64.0647 -89.6679,64.0636 -89.6427,64.0668 -89.6256,64.143 -89.6117,64.1637 -89.5823,64.1504 -89.5675,64.0593 -89.6033,64.0553 -89.6285,64.0513 -89.6435,64.0267 -89.6083,63.9976 -89.55,63.9683 -89.5307,63.9976 -89.4642,63.9724 -89.4101,63.929 -89.3478,63.8791 -89.3207,63.8641 -89.3091,63.8634 -89.3106,63.874 -89.3478,63.9044 -89.3746,63.9192 -89.3877,63.9353 -89.3787,63.9952 -89.3306,63.9915 -89.2197,63.9595 -89.1452,63.9178 -89.0747,63.8824 -88.8601,63.8677 -88.8782,63.8815 -88.9208,63.8948 -89.0066,63.9576 -89.1088,64.0601 -89.074,64.0782 -89.0374,64.0473 -89.0254,64.0204 -89.0066,64.0022 -88.9748,63.9801 -88.9426,63.9631 -88.9019,63.9472 -88.8184,63.9195 -88.5842,63.8904 -88.5618,63.8895 -88.5044,63.8998 -88.3782,63.9438 -88.1111,64.0273 -87.9444,64.0555 -87.8136,64.1091 -87.6912,64.2949 -87.6814,64.3546 -87.6203,64.4381 -87.5906,64.441 -87.5241,64.4473 -87.4094,64.4853 -87.3482,64.5408 -87.2566,64.6318 -86.9365,64.9183 -86.8671,64.9501 -86.8244,64.96 -86.7973,64.9746 -86.7616,65.0614 -86.7779,65.0798 -86.9009,65.1549 -87.0361,65.1725 -87.183,65.1894 -87.4269,65.2088 -87.4978,65.2099 -87.5558,65.2087 -87.7679,65.2045 -87.8023,65.2018 -87.84,65.195 -87.8858,65.1772 -87.9271,65.1949 -87.9571,65.1967 -88.0388,65.1954 -88.188,65.1934 -88.2123,65.1955 -88.3134,65.2115 -88.4298,65.2252 -88.4995,65.2288 -88.5269,65.2248 -88.5564,65.2244 -88.5937,65.226 -88.8791,65.2489 -88.9675,65.3186 -89.1297,65.3876 -89.249,65.4472 -89.4765,65.5988 -89.5398,65.6305 -89.5643,65.6422 -89.7509,65.6988 -89.7788,65.7061 -89.8119,65.7134 -89.8324,65.7178 -89.8963,65.7297 -90.3488,65.7979 -90.5093,65.8035 -90.5587,65.8051 -90.7311,65.8215 -90.7651,65.8279 -90.7998,65.836 -90.8801,65.8381 -90.9098,65.8376 -90.9357,65.8222 -90.8709,65.7639 -90.8285,65.7282 -90.8703,65.7286 -91.0053,65.7705 -91.1503,65.8019 -91.1737,65.8087 -91.2596,65.848 -91.2446,65.8683 -91.141,65.8869 -90.8844,65.8574 -90.6669,65.8323 -90.5505,65.8212 -90.5255,65.8197 -90.4132,65.8138 -90.3912,65.8139 -90.2364,65.8181 -90.178,65.8251 -90.111,65.8356 -90.0766,65.8398 -90.0382,65.8265 -90.0904,65.8148 -90.151,65.8146 -90.1754,65.8154 -90.2106,65.8134 -90.2434,65.798 -90.222,65.7884 -90.1329,65.7793 -90.0836,65.7777 -90.0597,65.7785 -90.0253,65.7816 -89.9809,65.7896 -89.9382,65.8013 -89.8978,65.8071 -89.867,65.8056 -89.7149,65.7725 -89.6474,65.7451 -89.6121,65.7399 -89.5882,65.74 -89.5539,65.7499 -89.5553,65.7885 -89.6182,65.8154 -89.6527,65.8276 -89.6895,65.8382 -89.7177,65.8456 -89.7512,65.8522 -89.7823,65.8539 -89.8138,65.8632 -89.7854,65.8659 -89.528,65.8592 -89.487,65.8542 -89.4165,65.828 -89.3447,65.8043 -89.1996,65.7635 -88.9858,65.692 -88.9676,65.6735 -88.9512,65.654 -88.9202,65.6427 -88.8219,65.6161 -88.7774,65.6053 -88.601,65.5936 -88.3352,65.5622 -88.3208,65.5447 -88.4442,65.5549 -88.5783,65.5605 -88.6506,65.5606 -88.5076,65.5198 -88.4647,65.5103 -88.4015,65.5081 -88.3764,65.5027 -88.1565,65.4104 -88.1363,65.3971 -88.0674,65.3457 -88.0404,65.3233 -87.9182,65.2814 -87.8939,65.2742 -87.8539,65.2634 -87.8284,65.2576 -87.7906,65.2515 -87.7658,65.2491 -87.7172,65.245 -87.6933,65.2437 -87.6577,65.242 -87.2558,65.239 -87.2209,65.2396 -87.1845,65.2438 -86.9372,65.3086 -86.9391,65.3541 -86.9355,65.3765 -86.9167,65.3949 -86.889,65.4046 -86.8609,65.3972 -86.8464,65.4024 -86.7981,65.4383 -86.7793,65.4572 -86.709,65.4743 -86.6849,65.4738 -86.6528,65.4753 -86.5418,65.5353 -86.3561,65.6131 -86.2787,65.6624 -86.2852,65.7044 -86.3194,65.7222 -86.2979,65.7572 -86.2459,65.8097 -86.1802,65.8166 -86.1519,65.8221 -86.0701,65.8514 -86.0475,65.8695 -85.9472,65.9015 -85.9031,65.9129 -85.8057,65.9485 -85.8026,65.9923 -85.7251,66.0872 -85.7466,66.1008 -85.9012,66.1403 -85.9674,66.1564 -86.1306,66.1928 -86.2207,66.2063 -86.3215,66.2158 -86.4368,66.2279 -86.4688,66.236 -86.6313,66.3558 -86.6131,66.364 -86.5802,66.3574 -86.5539,66.3532 -86.502,66.3489 -86.4625,66.354 -86.4861,66.3655 -86.5244,66.3827 -86.5671,66.4045 -86.6015,66.4345 -86.5809,66.4445 -86.5557,66.4392 -86.5154,66.4275 -86.4895,66.423 -86.4524,66.4223 -86.4289,66.4257 -86.4046,66.4402 -86.1075,66.4345 -86.0806,66.4292 -85.9589,66.4146 -85.9276,66.4128 -85.9032,66.4131 -85.8261,66.4237 -85.7071,66.4265 -85.6794,66.4167 -85.5355,66.4522 -85.4239,66.4853 -85.401,66.4905 -85.3774,66.4935 -85.3113,66.4975 -85.2873,66.4922 -85.1704,66.4031 -85.1718,66.3689 -85.1661,66.3154 -85.1306,66.2257 -85.0876,66.1941 -85.0483,66.1799 -85.0145,66.1778 -85.0,66.1857 -85.0,66.7643 -85.0156,66.7687 -85.0523,66.79 -85.0,66.8243 -85.0,68.6467 -85.0386,68.6291 -85.1403,68.6357 -85.1984,68.6566 -85.1851,68.6718 -85.2336,68.6826 -85.2764,68.6896 -85.3322,68.6957 -85.3701,68.6903 -85.3262,68.6784 -85.2878,68.6624 -85.3128,68.6485 -85.3822,68.639 -85.417,68.6505 -85.4547,68.6515 -85.4877,68.6307 -85.5517,68.5106 -85.5456,68.3985 -85.5318,68.324 -85.66,68.232 -85.7074,68.1027 -85.7338,68.0051 -85.7148,67.9643 -85.8154,67.9225 -85.8552,67.9161 -85.9177,67.8912 -86.1068,67.7836 -86.1746,67.7442 -86.3278,67.6111 -86.3431,67.5903 -86.3044,67.5265 -86.2764,67.5135 -86.3056,67.431 -86.3157,67.4112 -86.2943,67.3891 -86.3269,67.287 -86.3503,67.2649 -86.4068,67.2594 -86.4677,67.2726 -86.5052,67.2856 -86.5301,67.3024 -86.5925,67.335 -86.6184,67.3358 -86.6944,67.3192 -86.9069,67.2613 -86.8955,67.2417 -86.829,67.1968 -86.7873,67.1638 -86.8898,67.134 -86.938,67.1273 -87.0607,67.1307 -87.1426,67.0776 -87.3302,67.0297 -87.3261,67.0949 -87.3061,67.1089 -87.2544,67.1214 -87.1785,67.1681 -87.2797,67.2585 -87.3555,67.2934 -87.4037,67.3096 -87.4332,67.3227 -87.6071,67.4193 -87.6519,67.4459 -87.6989,67.482 -87.7778,67.5235 -87.7971,67.5299 -87.826,67.5367 -87.8828,67.5485 -87.9125,67.5563 -87.9487,67.5739 -87.9725,67.5919 -88.0887,67.7117 -88.101,67.7307 -88.1865,67.8761 -88.1889,67.9417 -88.1625,67.9505 -88.1545,67.9808 -88.1384,67.9943 -88.0944,68.0219 -88.1517,68.1323 -88.176,68.1465 -88.1949,68.1581 -88.2155,68.1842 -88.2029,68.2012 -88.036,68.2782 -87.9213,68.1553 -87.7505,68.11 -87.6623,68.1588 -87.6154,68.2246 -87.6073,68.2468 -87.6072,68.3078 -87.6485,68.3392 -87.6966,68.4048 -87.7427,68.4803 -87.7587,68.5202 -87.7436,68.5379 -87.7305,68.5639 -87.7353,68.5851 -87.7608,68.6436 -87.7811,68.675 -87.8579,68.7301 -87.8949,68.7529 -87.9282,68.772 -88.0152,68.8205 -88.0826,68.8465 -88.2173,68.8941 -88.2684,68.9039 -88.2914,68.9103 -88.4344,68.9538 -88.5875,69.0121 -88.6745,69.0564 -88.7464,69.1296 -88.778,69.1523 -88.8084,69.162 -88.8527,69.1738 -88.8992,69.1828 -88.9328,69.1859 -88.9827,69.1841 -89.0289,69.1774 -89.067,69.1708 -89.1228,69.16 -89.2022,69.1211 -89.2078,69.0941 -89.267,69.0445 -89.2949,69.0239 -89.3378,69.0016 -89.3694,68.9883 -89.3912,68.9797 -89.4526,68.9595 -89.4743,68.9496 -89.5007,68.9353 -89.5204,68.9217 -89.5642,68.8593 -89.5452,68.7985 -89.5239,68.7584 -89.4958,68.7279 -89.5026,68.6757 -89.5389,68.611 -89.5672,68.5959 -89.5943,68.62 -89.6153,68.623 -89.7042,68.5642 -89.7588,68.5145 -89.7335,68.4708 -89.712,68.4574 -89.7224,68.3793 -89.7956,68.3084 -89.8487,68.2648 -89.9335,68.1679 -89.9547,68.1565 -89.9891,68.1485 -90.0175,68.1438 -90.0428,68.1432 -90.0733,68.1485 -90.1769,68.2579 -90.1533,68.2779 -90.1307,68.285 -90.1712,68.2966 -90.2759,68.3163 -90.3328,68.3268 -90.3687,68.3358 -90.4132,68.362 -90.3933,68.3778 -90.3664,68.3868 -90.3253,68.4024 -90.2829,68.4431 -90.2875,68.6184 -90.3147,68.6369 -90.3305,68.6543 -90.3,68.6805 -90.2613,68.6867 -90.2269,68.7522 -90.2437,68.7859 -90.2815,68.8019 -90.3439,68.8211 -90.3906,68.8403 -90.4713,68.9663 -90.4631,68.988 -90.6206,69.0445 -90.7002,69.0618 -90.724,69.0718 -90.8362,69.129 -90.9351,69.1527 -91.1392,69.2149 -91.2373,69.2602 -91.1541,69.2408 -91.1002,69.2224 -91.019,69.2009 -90.8857,69.1778 -90.731,69.1578 -90.709,69.1571 -90.6152,69.1659 -90.617,69.2011 -90.6166,69.2494 -90.5951,69.2733 -90.546,69.2932 -90.5084,69.2991 -90.3935,69.3252 -90.4418,69.3399 -90.5069,69.3615 -90.4226,69.3626 -90.3605,69.333 -90.2983,69.3511 -90.2622,69.3596 -90.2385,69.3552 -90.2093,69.3404 -90.1567,69.3414 -90.1187,69.3584 -90.2417,69.3998 -90.2983,69.4145 -90.3414,69.424 -90.4555,69.4447 -90.5117,69.4496 -90.5594,69.4039 -90.6342,69.3953 -90.7734,69.4215 -90.912,69.42 -90.9428,69.4329 -90.9588,69.452 -90.989,69.4708 -91.1303,69.4472 -91.2051,69.4324 -91.365,69.4277 -91.3072,69.4459 -91.2633,69.45 -91.1911,69.4519 -91.1635,69.4555 -91.1372,69.4631 -90.9005,69.5408 -90.9979,69.5645 -91.0236,69.5634 -91.1166,69.5629 -91.221,69.5654 -91.2529,69.5687 -91.2907,69.5713 -91.6041,69.4143 -91.7401,69.428 -91.8854,69.4547 -91.9256,69.4653 -92.0931,69.5501 -92.0441,69.5401 -91.9292,69.5225 -91.8938,69.5313 -92.0058,69.5556 -92.1062,69.5756 -92.1408,69.6042 -92.3151,69.6029 -92.3622,69.5972 -92.4291,69.5827 -92.494,69.5662 -92.6309,69.5656 -92.6964,69.5756 -92.7178,69.587 -92.6638,69.5927 -92.5765,69.586 -92.5356,69.5816 -92.5089,69.5836 -92.3346,69.6172 -92.3578,69.6224 -92.5759,69.6241 -92.4578,69.6707 -92.3424,69.6902 -92.1686,69.7572 -92.0034,69.8299 -91.9483,69.8562 -91.914,69.8657 -91.742,69.9273 -91.7866,69.9651 -91.8232,69.975 -91.8838,69.9884 -91.926,69.9935 -91.973,69.997 -92.0723,69.9987 -92.237,69.9819 -92.1877,70.059 -92.0629,70.1172 -92.0293,70.1204 -91.8491,70.0432 -91.8244,70.0336 -91.7995,70.0297 -91.7585,70.0271 -91.7127,70.0284 -91.3745,70.0458 -91.3326,70.0502 -91.31,70.0647 -91.3206,70.0873 -91.3614,70.1087 -91.4319,70.1398 -91.4951,70.2505 -91.5285,70.2656 -91.6547,70.2686 -91.6921,70.2505 -91.715,70.2045 -91.7455,70.167 -91.7801,70.1977 -91.7886,70.2268 -91.782,70.2638 -91.7909,70.2989 -91.9067,70.3773 -92.0369,70.4018 -92.0574,70.4574 -92.0306,70.4794 -91.9887,70.4786 -91.9572,70.4909 -91.9958,70.5159 -92.2156,70.5719 -92.3838,70.5929 -92.4129,70.5909 -92.4315,70.6187 -92.4729,70.6808 -92.6028,70.7129 -92.7093,70.7176 -92.7479,70.7243 -92.7715,70.7326 -92.827,70.7781 -92.6956,70.8192 -92.6768,70.9765 -92.6533,71.0401 -92.6416,71.0574 -92.7162,71.1219 -92.7226,71.1533 -92.7262,71.1855 -92.769,71.2525 -92.8223,71.2718 -92.8479,71.2752 -92.887,71.2731 -92.9206,71.2775 -92.9748,71.3162 -92.9718,71.3368 -92.9921,71.3697 -93.0148,71.3792 -93.2035,71.4377 -93.2688,71.4464 -93.2959,71.45 -93.3721,71.4666 -93.4005,71.4739 -93.4408,71.487 -93.5912,71.5538 -93.5461,71.5845 -93.5193,71.5945 -93.4787,71.6169 -93.4904,71.6631 -93.5152,71.6727 -93.5737,71.6796 -93.6053,71.6781 -93.6309,71.668 -93.6601,71.6554 -93.6902,71.6498 -93.7229,71.6486 -93.7529,71.6506 -93.7802,71.663 -93.7916,71.6826 -93.8103,71.6914 -93.977,71.6955 -94.0151,71.6809 -94.0419,71.6441 -94.1487,71.5802 -94.1971,71.5674 -94.1697,71.6226 -94.1401,71.7031 -94.1711,71.7189 -94.2706,71.7262 -94.3032,71.6851 -94.3165,71.6647 -94.3416,71.6522 -94.3851,71.6524 -94.4226,71.7231 -94.3466,71.7531 -94.3088,71.7552 -94.2849,71.7523 -94.2449,71.7531 -94.1689,71.8379 -94.2707,71.8899 -94.3074,71.8985 -94.3489,71.9012 -94.4385,71.8994 -94.4747,71.8977 -94.5179,71.8963 -94.7482,71.88 -94.992,71.8486 -95.0313,71.8 -95.0305,71.7681 -95.0128,71.7562 -94.9903,71.7477 -94.9602,71.747 -94.9342,71.7505 -94.8877,71.7554 -94.6815,71.7547 -94.6313,71.754 -94.6037,71.7521 -94.5568,71.7449 -94.528,71.7429 -94.484,71.7528 -94.4339,71.7664 -94.3919,71.7677 -94.4318,71.7498 -94.5129,71.7287 -94.5731,71.7381 -94.6251,71.7469 -94.6679,71.7494 -94.8503,71.7458 -95.0099,71.7291 -95.074,71.6685 -95.079,71.6259 -95.1769,71.6235 -95.3166,71.6085 -95.4562,71.5516 -95.5218,71.5291 -95.5891,71.5269 -95.6473,71.5239 -95.6775,71.5112 -95.7172,71.4554 -95.6107,71.4212 -95.558,71.4094 -95.3265,71.3931 -95.2329,71.2774 -95.3233,71.1962 -95.4389,71.1913 -95.4527,71.1935 -95.5713,71.234 -95.6092,71.2486 -95.6382,71.2608 -95.6581,71.2816 -95.6725,71.2966 -95.7047,71.3063 -95.8151,71.3236 -95.9121,71.3154 -95.9461,71.3054 -95.9711,71.2956 -95.9961,71.2815 -96.0231,71.2594 -96.0562,71.2322 -96.2785,71.1847 -96.2405,71.1615 -96.2365,71.1018 -96.2461,71.0715 -96.3344,71.0399 -96.3241,71.0228 -96.2847,71.0037 -96.2486,70.9892 -96.2104,70.9867 -96.1934,71.0004 -96.1929,71.0229 -96.1513,70.9992 -96.1903,70.9623 -96.23,70.9514 -96.2682,70.9483 -96.2828,70.9036 -96.2923,70.8595 -96.308,70.8333 -96.3256,70.8117 -96.3554,70.7875 -96.3773,70.7652 -96.3954,70.7196 -96.3892,70.6983 -96.362,70.6846 -96.3185,70.6704 -96.2225,70.6467 -96.2009,70.6278 -96.1877,70.6039 -96.1656,70.5839 -95.986,70.529 -95.9423,70.525 -95.9321,70.5427 -95.8986,70.5632 -95.7158,70.6082 -95.6853,70.6149 -95.6341,70.6159 -95.7359,70.5868 -95.8353,70.5525 -95.8387,70.5132 -95.7843,70.4876 -95.7486,70.4763 -95.7071,70.4685 -95.6402,70.4607 -95.5849,70.4419 -95.7134,70.4538 -95.7793,70.4672 -95.825,70.487 -95.8581,70.4951 -96.0162,70.4695 -96.0784,70.4301 -96.3191,70.2522 -96.3409,70.2228 -96.3541,70.1679 -96.3554,70.1377 -96.3412,70.1004 -96.314,70.0355 -96.2905,70.0136 -96.2462,69.9842 -96.1907,69.9489 -96.17,69.9365 -96.0555,69.8764 -96.0314,69.8675 -96.0019,69.8701 -95.9767,69.8743 -95.8978,69.8597 -95.8758,69.8207 -95.8761,69.7807 -95.8659,69.7516 -95.8194,69.7187 -95.7601,69.6896 -95.6554,69.6819 -95.5503,69.6846 -95.5191,69.6987 -95.4404,69.69 -95.3379,69.6369 -95.2089,69.5937 -95.1895,69.5886 -94.9628,69.5405 -94.8732,69.5265 -94.802,69.5302 -94.8053,69.5132 -94.7469,69.4945 -94.6499,69.4762 -94.6207,69.4768 -94.5964,69.4824 -94.5649,69.493 -94.5254,69.5159 -94.5375,69.5385 -94.5505,69.5684 -94.5078,69.5814 -94.4651,69.5875 -94.4245,69.5929 -94.3875,69.5472 -94.2984,69.4665 -94.2479,69.429 -94.1404,69.3694 -94.1032,69.3552 -94.0762,69.3505 -93.8426,69.3496 -93.6674,69.362 -93.6067,69.399 -93.5076,69.4265 -93.4818,69.4326 -93.4199,69.4376 -93.3851,69.4381 -93.3348,69.4324 -93.308,69.4232 -93.286,69.4131 -93.239,69.3882 -93.2946,69.3416 -93.3202,69.3341 -93.3365,69.3208 -93.3616,69.2862 -93.3041,69.2597 -93.2654,69.2678 -93.1667,69.2846 -93.2613,69.2309 -93.4338,69.1625 -93.6475,69.0807 -93.6271,69.1764 -93.5487,69.2329 -93.4842,69.2557 -93.3319,69.342 -93.3671,69.3524 -93.4252,69.3428 -93.535,69.3104 -93.7533,69.2733 -93.8318,69.2693 -93.9642,69.2529 -94.0564,69.2374 -94.0852,69.227 -94.1045,69.2092 -94.121,69.0638 -94.0399,69.0309 -94.0192,69.0314 -93.9361,69.043 -93.8711,69.0469 -93.956,68.9658 -94.023,68.9388 -94.1722,68.9144 -94.3517,68.8851 -94.3972,68.8731 -94.3791,68.8118 -94.3562,68.8043 -94.3454,68.7984 -94.3591,68.7688 -94.3848,68.7551 -94.4076,68.7309 -94.424,68.6729 -94.2902,68.6405 -94.1852,68.6411 -93.9596,68.6593 -93.8935,68.6704 -93.7344,68.7364 -93.6172,68.7978 -93.6383,68.7969 -93.7339,68.7667 -93.8277,68.7462 -93.8751,68.7572 -93.862,68.8078 -93.8346,68.8277 -93.7251,68.8861 -93.5314,68.8862 -93.4672,68.8836 -93.4386,68.8727 -93.3701,68.7511 -93.4402,68.6923 -93.4973,68.6622 -93.5065,68.569 -93.4517,68.5386 -93.4236,68.5364 -93.3615,68.5236 -93.3553,68.4985 -93.4212,68.4562 -93.461,68.4342 -93.613,68.4001 -93.6862,68.3882 -93.7311,68.3872 -93.7623,68.3826 -93.8018,68.3731 -93.9153,68.3328 -94.0096,68.2774 -94.0113,68.2383 -94.0009,68.2184 -94.0002,68.1856 -94.1742,68.134 -94.4062,68.0525 -94.4967,67.9938 -94.5179,67.9717 -94.5895,67.9537 -94.6408,67.9474 -94.6686,67.9473 -94.8173,67.9584 -94.85,67.9665 -94.8724,67.9784 -95.1463,67.9874 -95.2043,67.9824 -95.2703,67.9726 -95.2273,67.9458 -95.2171,67.9408 -95.2525,67.8945 -95.3277,67.7856 -95.3245,67.7585 -95.3401,67.729 -95.3552,67.7144 -95.378,67.7011 -95.4416,67.6822 -95.477,67.6725 -95.5069,67.643 -95.4936,67.618 -95.343,67.5622 -95.294,67.5573 -95.268,67.5512 -95.1487,67.4712 -95.1269,67.4433 -95.1401,67.4155 -95.1865,67.3585 -95.1374,67.2604 -95.1134,67.2432 -95.0827,67.2338 -95.0202,67.2208 -94.9712,67.1977 -95.0693,67.1273 -95.1529,67.0658 -95.1562,67.0013 -95.1827,67.0697 -95.2388,67.1085 -95.3112,67.1232 -95.3468,67.1271 -95.3715,67.1252 -95.4539,67.1136 -95.5149,67.1032 -95.5446,67.0914 -95.5773,67.0825 -95.5993,67.0778 -95.6297,67.0813 -95.6097,67.1008 -95.5655,67.1276 -95.499,67.1596 -95.4797,67.1686 -95.4403,67.1855 -95.4206,67.1928 -95.3601,67.2246 -95.3368,67.2733 -95.3735,67.2927 -95.3984,67.2974 -95.5501,67.2866 -95.6194,67.2466 -95.7228,67.1931 -95.8984,67.1305 -95.924,67.1296 -96.0507,67.1636 -96.0167,67.2378 -95.9729,67.2536 -95.925,67.2914 -95.8707,67.3454 -95.9112,67.3812 -95.9392,67.3659 -95.9588,67.3509 -95.992,67.335 -96.0172,67.335 -96.0946,67.3588 -96.1639,67.3921 -96.255,67.3888 -96.2642,67.4174 -96.2376,67.4555 -96.1294,67.5243 -96.0619,67.5428 -96.0386,67.5355 -96.0098,67.5326 -95.9884,67.5378 -95.9747,67.5569 -95.9753,67.6056 -96.0146,67.605 -96.0131,67.7372 -95.9431,67.8369 -95.8822,67.9155 -95.8203,68.0277 -95.8385,68.0443 -95.8711,68.0674 -95.8414,68.0923 -95.7664,68.1435 -95.7784,68.1673 -95.9341,68.1413 -95.9691,68.1345 -96.0858,68.1105 -96.1083,68.1051 -96.2297,68.0689 -96.2604,68.057 -96.2799,68.0476 -96.3076,68.0323 -96.3369,67.9978 -96.3081,68.0059 -96.2832,68.0054 -96.2485,67.9663 -96.2643,67.952 -96.3321,67.9441 -96.3542,67.9466 -96.4737,67.9317 -96.5059,67.9219 -96.5203,67.9227 -96.5784,67.9288 -96.6071,67.9485 -96.6003,67.9683 -96.5761,67.9844 -96.537,67.9907 -96.4938,67.9919 -96.4203,68.0287 -96.3228,68.0968 -96.3001,68.115 -96.2041,68.2261 -96.2367,68.2264 -96.2675,68.2181 -96.3297,68.1946 -96.3501,68.1864 -96.4218,68.1644 -96.481,68.1923 -96.5641,68.183 -96.6068,68.1736 -96.7149,68.1526 -96.7351,68.1523 -96.8838,68.1774 -96.8613,68.2128 -96.8487,68.266 -96.9554,68.3018 -97.0536,68.3791 -97.0771,68.3864 -97.1477,68.4034 -97.1798,68.4075 -97.3178,68.4139 -97.3382,68.4137 -97.3671,68.407 -97.3914,68.3958 -97.4077,68.3686 -97.3753,68.3577 -97.3356,68.3603 -97.3091,68.3586 -97.2973,68.3399 -97.3247,68.3298 -97.4056,68.347 -97.4413,68.3683 -97.4532,68.4101 -97.4863,68.429 -97.5172,68.4352 -97.6374,68.4536 -97.7897,68.4505 -97.8033,68.4141 -97.6967,68.3343 -97.671,68.3275 -97.5975,68.3229 -97.5689,68.3147 -97.5515,68.2989 -97.5398,68.2801 -97.5631,68.2775 -97.6505,68.2966 -97.6933,68.2979 -97.8673,68.2476 -97.8901,68.2305 -97.987,68.2136 -98.0127,68.215 -98.0819,68.2469 -98.1045,68.2672 -98.2873,68.3218 -98.2899,68.3006 -98.259,68.2709 -98.3087,68.2415 -98.3327,68.2477 -98.3681,68.2686 -98.3923,68.2834 -98.4293,68.2916 -98.466,68.2935 -98.5019,68.2746 -98.4001,68.2059 -98.3536,68.1867 -98.3285,68.1414 -98.2862,68.1197 -98.2628,68.1159 -98.2329,68.1136 -98.2014,68.1095 -98.1707,68.1029 -98.1231,68.0849 -98.1133,68.0566 -98.1389,68.0111 -98.1572,67.9964 -98.1808,67.9922 -98.2061,67.9974 -98.2314,68.0199 -98.2215,68.053 -98.2237,68.0772 -98.2484,68.0946 -98.2726,68.0983 -98.3767,68.0591 -98.1994,67.9215 -98.1721,67.9097 -98.1348,67.8995 -98.1141,67.8917 -98.0777,67.8761 -98.0458,67.8598 -98.0138,67.8384 -97.9925,67.8153 -97.9779,67.7916 -97.9063,67.7525 -97.8823,67.7452 -97.8591,67.7427 -97.8554,67.805 -97.8453,67.8372 -97.8248,67.8551 -97.798,67.8633 -97.6729,67.8767 -97.5003,67.9205 -97.4785,67.9318 -97.4436,67.9235 -97.2383,67.8296 -97.2155,67.808 -97.1942,67.7916 -97.1662,67.7876 -97.1272,67.7893 -97.0849,67.8021 -97.0664,67.8265 -97.044,67.8409 -96.9173,67.7022 -96.9368,67.5881 -96.9648,67.5893 -97.0869,67.5755 -97.1141,67.5682 -97.1321,67.5577 -97.1507,67.5485 -97.1847,67.5335 -97.2126,67.5272 -97.2831,67.5162 -97.307,67.513 -97.3447,67.5105 -97.3663,67.5116 -97.3953,67.5174 -97.4166,67.5275 -97.4497,67.5528 -97.5958,67.5992 -97.7527,67.6416 -97.89,67.6796 -97.9182,67.7015 -97.965,67.7543 -98.0279,67.8153 -98.0613,67.8367 -98.1234,67.8694 -98.3384,67.9743 -98.4089,67.9879 -98.5258,67.9835 -98.54,67.961 -98.5153,67.8646 -98.4907,67.8499 -98.4542,67.8315 -98.3345,67.7856 -98.3009,67.7778 -98.275,67.7788 -98.2436,67.778 -98.1547,67.7093 -98.1805,67.6995 -98.3236,67.6912 -98.6075,67.6556 -98.7808,67.6319 -99.0038,67.6208 -99.0296,67.6272 -99.183,67.6843 -99.2005,67.6999 -99.2929,67.7131 -99.3758,67.7158 -99.4056,67.7041 -99.6116,67.7096 -99.8746,67.7284 -99.9325,67.7403 -99.9531,67.753 -99.975,67.7564 -100.1861,67.761 -100.3718,67.7478 -100.5099,67.7481 -100.601,67.7083 -100.688,67.6721 -100.7173,67.667 -100.7959,67.6567 -100.8915,67.6537 -101.2288,67.6465 -101.3039,67.5934 -101.3313,67.5932 -101.4601,67.6056 -101.5526,67.6372 -101.7135,67.6739 -101.9303,67.6808 -101.9303,59.95 -105.6817,59.95 -105.7649,59.9501 -105.8482,59.9499 -105.9317,59.9497 -106.0149,59.9495 -106.4394,59.9486 -107.181,59.9495 -107.2643,59.9496 -107.3477,59.9496 -107.4309,59.9497 -107.5145,59.9498 -107.5978,59.9499 -107.6809,59.95 -107.7641,59.9501 -108.1807,59.9501 -108.264,59.95 -108.885,59.95 -108.9303,59.9501 -109.0137,59.95 -109.93,59.95 -109.93,55.7829 -109.9297,55.6164 -109.93,55.533 -109.93,48.9497 -109.9305,48.9435 -109.93,48.9435 47,-6.0,Canada -96.255,66.977 -96.2055,66.9234 -96.0757,66.8655 -95.949,66.8101 -95.9308,66.797 -95.9194,66.7743 -95.9127,66.7509 -95.8101,66.7098 -95.7839,66.703 -95.7597,66.6979 -95.7159,66.6911 -95.6872,66.6846 -95.6659,66.6765 -95.6488,66.6662 -95.5889,66.5897 -95.5823,66.5616 -95.5459,66.5538 -95.4561,66.5782 -95.4331,66.5967 -95.4632,66.6454 -95.5887,66.6529 -95.7961,66.7581 -95.8917,66.8286 -95.8696,66.8518 -95.8422,66.8621 -95.8031,66.8659 -95.7045,66.8607 -95.7351,66.8698 -95.791,66.929 -95.7636,66.9588 -95.7405,66.9832 -95.7654,66.9826 -95.8067,66.9607 -95.8495,66.9217 -95.8338,66.8856 -95.9131,66.866 -95.9336,66.8673 -96.0429,66.8986 -96.0646,66.9064 -96.0861,66.9212 -96.0717,66.9428 -96.0656,66.9621 -96.0899,66.9832 -96.1789,66.9995 -96.1996,67.0011 -96.2568,66.979 -96.255,66.977 43,-6.0,Canada -93.5858,64.1095 -93.4776,64.006 -93.4193,63.9654 -93.4701,63.9136 -93.5467,63.9082 -93.5742,63.9053 -93.5858,63.8788 -93.4697,63.8178 -93.4152,63.7913 -93.3693,63.7717 -93.3425,63.7624 -93.1511,63.7302 -93.04,63.7655 -93.0928,63.7645 -93.1581,63.7844 -93.2612,63.8462 -93.261,63.8831 -93.234,63.8923 -93.2057,63.8927 -93.1806,63.8884 -93.0892,63.849 -92.9388,63.8136 -92.777,63.777 -92.659,63.7565 -92.4697,63.7087 -92.3605,63.7346 -92.3194,63.7371 -92.4015,63.7507 -92.4306,63.7519 -92.4867,63.7612 -92.5243,63.768 -92.7558,63.8282 -92.7775,63.8558 -93.0352,63.9006 -93.0873,63.9017 -93.1106,63.9028 -93.2525,63.9364 -93.4273,64.0139 -93.4464,64.0329 -93.5049,64.0767 -93.5663,64.1095 -93.5874,64.111 -93.5858,64.1095 47,-6.0,Canada -85.3822,69.7415 -85.3754,69.7342 -85.3328,69.7332 -85.3044,69.7326 -85.2756,69.7323 -85.2479,69.7333 -85.1842,69.7326 -85.1615,69.7248 -85.1522,69.6825 -85.1879,69.6656 -85.2189,69.664 -85.2064,69.6876 -85.2307,69.6983 -85.2649,69.6944 -85.3291,69.6776 -85.3621,69.5597 -85.3564,69.3819 -85.3339,69.3584 -85.3119,69.3481 -85.2868,69.3489 -85.2479,69.3709 -85.2024,69.3691 -85.1601,69.3525 -85.206,69.3239 -85.2405,69.3239 -85.2762,69.3276 -85.3182,69.3122 -85.3192,69.2252 -85.2921,69.1847 -85.2049,69.1185 -85.1548,69.1048 -85.0652,69.1033 -85.0474,69.0895 -85.1071,69.0746 -85.1295,69.0616 -85.0766,69.0428 -85.0478,69.0395 -85.0216,69.0423 -85.0,69.0521 -85.0,69.7048 -85.0294,69.7142 -85.0891,69.7348 -85.1301,69.7478 -85.184,69.7597 -85.369,69.7691 -85.394,69.7543 -85.3822,69.7415 4,-6.0,Canada -85.0,68.7682 -85.0,68.7728 -85.0034,68.7714 -85.0,68.7682 31,-6.0,Canada -101.9195,68.539 -101.8958,68.5356 -101.7899,68.526 -101.6895,68.4959 -101.6696,68.4884 -101.6445,68.4817 -101.63,68.4789 -101.6155,68.4791 -101.4861,68.5496 -101.4669,68.5736 -101.465,68.5842 -101.4839,68.6497 -101.4777,68.6797 -101.5621,68.6954 -101.695,68.7276 -101.7224,68.7341 -101.7393,68.7356 -101.7682,68.7359 -101.7815,68.7347 -101.8059,68.7311 -101.8297,68.7201 -101.8385,68.7087 -101.8326,68.6938 -101.837,68.6828 -101.8562,68.6686 -101.8758,68.6607 -101.8968,68.6542 -101.9195,68.6488 -101.9303,68.647 -101.9303,68.5405 -101.9195,68.539 8594,-5.0,Canada -89.9891,48.0614 -89.9355,48.0515 -89.9027,48.0148 -89.8641,47.9705 -89.77,47.9359 -89.7328,47.9459 -89.7092,47.9569 -89.6259,47.9747 -89.4779,47.9572 -89.4761,47.9584 -89.4811,47.9604 -89.4873,47.9601 -89.4877,47.9603 -89.4885,47.9635 -89.4737,47.9666 -89.4673,47.966 -89.4422,47.9698 -89.4336,47.9723 -89.4331,47.9748 -89.4426,47.9755 -89.4492,47.9793 -89.4479,47.985 -89.4437,47.9886 -89.4263,47.9884 -89.4261,47.9795 -89.4231,47.9783 -89.4032,47.9806 -89.398,47.9832 -89.3879,47.9816 -89.3854,47.9838 -89.3863,47.9927 -89.3962,47.9918 -89.4126,47.9979 -89.4094,48.0001 -89.3902,48.0027 -89.3839,48.0066 -89.3753,48.0087 -89.3658,48.0076 -89.3486,48.0097 -89.3444,48.0135 -89.3364,48.0158 -89.3373,48.0176 -89.3577,48.0193 -89.3619,48.0173 -89.3725,48.0169 -89.3757,48.0131 -89.388,48.0122 -89.3939,48.01 -89.399,48.0108 -89.3934,48.0141 -89.3872,48.0151 -89.3697,48.0243 -89.3692,48.0264 -89.376,48.0274 -89.3773,48.0291 -89.3754,48.0324 -89.3562,48.035 -89.3554,48.0297 -89.3538,48.0279 -89.3501,48.0278 -89.3369,48.0327 -89.3304,48.0321 -89.3087,48.0364 -89.2981,48.0439 -89.2923,48.0447 -89.2806,48.0403 -89.2753,48.0429 -89.2737,48.0486 -89.2612,48.059 -89.2859,48.0553 -89.2892,48.0579 -89.288,48.0624 -89.2817,48.0641 -89.2766,48.071 -89.2696,48.0738 -89.2648,48.0749 -89.2607,48.0741 -89.2542,48.0691 -89.251,48.0704 -89.2374,48.0833 -89.24,48.0864 -89.25,48.0889 -89.2536,48.0929 -89.2433,48.1072 -89.2258,48.1146 -89.2211,48.1204 -89.2229,48.1234 -89.2296,48.1268 -89.2438,48.1296 -89.2454,48.1357 -89.2458,48.137 -89.2426,48.1451 -89.2359,48.1495 -89.229,48.1496 -89.2262,48.145 -89.2361,48.1326 -89.2232,48.1316 -89.2074,48.1388 -89.2037,48.1444 -89.207,48.1525 -89.2018,48.1731 -89.2036,48.1837 -89.1951,48.2012 -89.1909,48.2099 -89.1739,48.2259 -89.1696,48.2363 -89.1712,48.2444 -89.1717,48.2469 -89.169,48.2527 -89.1513,48.2459 -89.1437,48.2468 -89.1418,48.255 -89.1354,48.2546 -89.1332,48.2566 -89.1407,48.2694 -89.1371,48.2789 -89.1454,48.2834 -89.1489,48.2885 -89.1473,48.2917 -89.1492,48.3009 -89.1592,48.2993 -89.1732,48.3138 -89.1789,48.3146 -89.1879,48.3135 -89.1741,48.3335 -89.1632,48.3392 -89.1517,48.3421 -89.1512,48.3446 -89.1551,48.3495 -89.1562,48.3591 -89.1615,48.3697 -89.148,48.3842 -89.1328,48.3916 -89.1227,48.3943 -89.1173,48.3981 -89.1118,48.4006 -89.1032,48.4044 -89.0922,48.4171 -89.0745,48.4267 -89.0476,48.4333 -89.0261,48.4316 -89.0152,48.4348 -88.9962,48.4368 -88.9876,48.443 -88.9563,48.4494 -88.9445,48.4519 -88.9268,48.4592 -88.9101,48.4574 -88.9052,48.4591 -88.8914,48.4591 -88.8867,48.4629 -88.8919,48.4672 -88.8873,48.4693 -88.8818,48.4696 -88.8746,48.4751 -88.8637,48.4682 -88.8606,48.4686 -88.8572,48.4731 -88.8593,48.4786 -88.8439,48.4882 -88.8158,48.4916 -88.8113,48.491 -88.8068,48.4874 -88.7997,48.4959 -88.7829,48.5048 -88.7584,48.5069 -88.7487,48.5132 -88.7375,48.5159 -88.7322,48.519 -88.7267,48.5222 -88.7061,48.5221 -88.6917,48.5107 -88.6899,48.5063 -88.7058,48.4789 -88.7371,48.4476 -88.7518,48.437 -88.7565,48.4316 -88.7633,48.4238 -88.7741,48.4068 -88.7664,48.3977 -88.7723,48.3908 -88.7928,48.3666 -88.7973,48.3549 -88.7961,48.3523 -88.7883,48.3503 -88.7878,48.3469 -88.8052,48.3263 -88.8065,48.3225 -88.8063,48.3219 -88.802,48.3123 -88.8046,48.3094 -88.8097,48.3102 -88.8179,48.3155 -88.8268,48.3155 -88.8393,48.3076 -88.8501,48.2949 -88.8637,48.2683 -88.8764,48.2518 -88.8738,48.2483 -88.8687,48.2481 -88.8598,48.2534 -88.8449,48.2683 -88.8397,48.2679 -88.8342,48.2636 -88.8305,48.2628 -88.8273,48.2589 -88.8225,48.2596 -88.8172,48.2673 -88.8019,48.2707 -88.7865,48.2705 -88.7656,48.282 -88.7608,48.2817 -88.7539,48.276 -88.7503,48.2747 -88.7468,48.2756 -88.7366,48.2844 -88.7295,48.2828 -88.7244,48.2884 -88.7207,48.2867 -88.7205,48.2794 -88.7074,48.2858 -88.7084,48.2918 -88.7033,48.2958 -88.6971,48.2913 -88.6916,48.2916 -88.6842,48.2955 -88.6826,48.2984 -88.6837,48.3028 -88.6752,48.3011 -88.6699,48.3042 -88.6694,48.3069 -88.6761,48.3087 -88.6773,48.3117 -88.6762,48.3142 -88.6752,48.3164 -88.6678,48.3208 -88.664,48.3257 -88.6552,48.3289 -88.6578,48.3367 -88.6514,48.3445 -88.6516,48.3528 -88.6393,48.3675 -88.6308,48.3864 -88.6288,48.3909 -88.6292,48.3946 -88.6209,48.4106 -88.622,48.4211 -88.6242,48.423 -88.6311,48.4228 -88.6358,48.4252 -88.6372,48.4294 -88.6325,48.4384 -88.624,48.4424 -88.6131,48.4453 -88.6083,48.4408 -88.608,48.4344 -88.5983,48.4353 -88.5928,48.4456 -88.5737,48.4537 -88.5718,48.4567 -88.5756,48.4616 -88.5742,48.4672 -88.5821,48.467 -88.5832,48.47 -88.5697,48.4877 -88.5745,48.4924 -88.5729,48.5063 -88.5674,48.5203 -88.5604,48.5276 -88.5587,48.5378 -88.5637,48.5442 -88.5641,48.549 -88.5578,48.56 -88.5487,48.5682 -88.5466,48.5683 -88.5359,48.5689 -88.526,48.5673 -88.519,48.5682 -88.51,48.5736 -88.5017,48.5738 -88.4938,48.5793 -88.4814,48.5785 -88.4723,48.5898 -88.4732,48.5924 -88.4812,48.5965 -88.4842,48.6028 -88.4854,48.6046 -88.4792,48.615 -88.4919,48.6261 -88.4897,48.6324 -88.4827,48.6386 -88.4738,48.6425 -88.4677,48.6438 -88.4556,48.6465 -88.4509,48.6497 -88.4508,48.66 -88.4557,48.6648 -88.4676,48.6674 -88.4752,48.6763 -88.4819,48.6802 -88.4836,48.6848 -88.4793,48.6966 -88.4791,48.7094 -88.4724,48.7217 -88.4627,48.7308 -88.4616,48.7372 -88.4496,48.7459 -88.4273,48.7576 -88.4212,48.7656 -88.4193,48.7818 -88.4218,48.7814 -88.4293,48.7732 -88.4319,48.7753 -88.4261,48.7843 -88.4054,48.7928 -88.3891,48.7932 -88.3656,48.7915 -88.3428,48.7821 -88.3339,48.7807 -88.3161,48.7781 -88.3033,48.7729 -88.2946,48.7733 -88.2717,48.7645 -88.2628,48.7553 -88.2602,48.7525 -88.2581,48.7479 -88.2631,48.7361 -88.2668,48.7326 -88.2764,48.7293 -88.2696,48.7274 -88.2399,48.7134 -88.2342,48.7071 -88.2337,48.7 -88.2532,48.6601 -88.2593,48.6528 -88.2634,48.6486 -88.2636,48.648 -88.266,48.6379 -88.2698,48.6323 -88.2726,48.6189 -88.3035,48.6062 -88.3191,48.5955 -88.3327,48.5898 -88.3572,48.5744 -88.3805,48.5565 -88.3835,48.5542 -88.3927,48.5414 -88.4325,48.5155 -88.4577,48.4943 -88.4778,48.4828 -88.4805,48.4827 -88.481,48.4911 -88.4849,48.4899 -88.4918,48.4772 -88.5002,48.4616 -88.4987,48.454 -88.5014,48.4493 -88.5153,48.4433 -88.5268,48.4354 -88.5331,48.4288 -88.5319,48.4271 -88.5168,48.4269 -88.507,48.4334 -88.5036,48.4329 -88.5013,48.4273 -88.5024,48.4162 -88.5102,48.4029 -88.5044,48.4025 -88.5042,48.3946 -88.5041,48.3863 -88.501,48.3862 -88.4984,48.3821 -88.4979,48.3813 -88.4914,48.3813 -88.4886,48.3776 -88.4954,48.3636 -88.4917,48.3573 -88.486,48.3608 -88.473,48.3741 -88.4696,48.3733 -88.4675,48.3701 -88.4613,48.3751 -88.4588,48.3808 -88.4632,48.3871 -88.4564,48.3958 -88.4588,48.4004 -88.4526,48.4103 -88.4426,48.4155 -88.4372,48.4146 -88.4324,48.4099 -88.4252,48.4092 -88.422,48.4102 -88.4227,48.4249 -88.4316,48.4309 -88.4362,48.4431 -88.4284,48.4557 -88.4158,48.4686 -88.4114,48.4686 -88.4079,48.4592 -88.4052,48.4579 -88.4017,48.4594 -88.3885,48.475 -88.3864,48.4834 -88.3857,48.4861 -88.3734,48.4992 -88.37,48.5076 -88.357,48.5163 -88.3501,48.5161 -88.3543,48.4968 -88.3512,48.4919 -88.3506,48.4861 -88.3475,48.4851 -88.3386,48.4903 -88.3267,48.4922 -88.3255,48.4904 -88.3353,48.4788 -88.3335,48.4749 -88.3296,48.4761 -88.3238,48.4846 -88.3224,48.4857 -88.3173,48.4894 -88.3157,48.4873 -88.3198,48.4781 -88.3178,48.478 -88.3078,48.488 -88.297,48.5025 -88.2659,48.5234 -88.2625,48.5185 -88.2645,48.514 -88.2637,48.5066 -88.2603,48.5017 -88.2565,48.5014 -88.2536,48.5029 -88.2532,48.5088 -88.2482,48.5203 -88.2461,48.5214 -88.244,48.5206 -88.244,48.5201 -88.2433,48.5119 -88.2376,48.5149 -88.2336,48.5217 -88.2337,48.5258 -88.2426,48.5357 -88.246,48.5362 -88.2524,48.5332 -88.261,48.534 -88.2648,48.538 -88.265,48.554 -88.2697,48.5642 -88.2674,48.5678 -88.2726,48.5769 -88.2746,48.5872 -88.2728,48.5927 -88.2581,48.5956 -88.2555,48.5937 -88.2547,48.5912 -88.2532,48.5868 -88.2466,48.5824 -88.2414,48.5743 -88.2332,48.5687 -88.2298,48.5634 -88.2284,48.5453 -88.2264,48.5452 -88.2201,48.5502 -88.2171,48.5497 -88.2175,48.5389 -88.2108,48.5408 -88.2075,48.5391 -88.205,48.5406 -88.2026,48.5487 -88.1965,48.5526 -88.1911,48.56 -88.1777,48.5687 -88.1644,48.5664 -88.1687,48.5647 -88.1746,48.5643 -88.1809,48.5581 -88.1861,48.5493 -88.1846,48.5417 -88.1909,48.5317 -88.1902,48.5273 -88.1825,48.5286 -88.1688,48.5266 -88.1443,48.5454 -88.1398,48.5457 -88.1345,48.5426 -88.1336,48.5368 -88.1293,48.5396 -88.1282,48.544 -88.132,48.5525 -88.1265,48.5634 -88.1251,48.5662 -88.0975,48.5799 -88.094,48.5896 -88.0849,48.6001 -88.0721,48.6097 -88.0561,48.6245 -88.0483,48.6349 -88.0418,48.6386 -88.0365,48.6446 -88.0361,48.6503 -88.0301,48.6604 -88.0369,48.6815 -88.0373,48.6828 -88.0382,48.6929 -88.0242,48.7258 -88.0294,48.7344 -88.0378,48.7414 -88.0432,48.7431 -88.0571,48.7429 -88.0639,48.7443 -88.0924,48.7643 -88.1071,48.7719 -88.1132,48.7723 -88.15,48.7802 -88.1512,48.781 -88.1563,48.7845 -88.1715,48.8028 -88.1734,48.8141 -88.1788,48.8246 -88.172,48.8408 -88.1593,48.8534 -88.1595,48.8685 -88.162,48.8718 -88.1694,48.8746 -88.1759,48.8848 -88.1858,48.8923 -88.1904,48.8956 -88.1918,48.9089 -88.2008,48.9225 -88.1985,48.9256 -88.1923,48.9291 -88.1903,48.9324 -88.1944,48.9479 -88.1922,48.9576 -88.1882,48.9607 -88.1854,48.9563 -88.188,48.9452 -88.1874,48.9426 -88.1831,48.9233 -88.1761,48.9095 -88.1716,48.9055 -88.1648,48.903 -88.1569,48.902 -88.1481,48.9077 -88.1393,48.9101 -88.1261,48.9104 -88.1138,48.907 -88.1057,48.8999 -88.1001,48.9004 -88.0976,48.9096 -88.089,48.9174 -88.0752,48.926 -88.0667,48.9235 -88.0675,48.9267 -88.0602,48.9351 -88.0475,48.9415 -88.0443,48.9426 -88.0354,48.9416 -88.021,48.9383 -88.0174,48.9362 -88.0052,48.9275 -87.9967,48.9432 -87.9886,48.9523 -87.9787,48.9586 -87.9694,48.9537 -87.9683,48.9463 -87.9726,48.9351 -87.9714,48.9288 -87.9662,48.9241 -87.9536,48.9211 -87.9401,48.9108 -87.9305,48.907 -87.9268,48.9014 -87.92,48.8989 -87.9122,48.8922 -87.9064,48.892 -87.8918,48.8832 -87.8797,48.8787 -87.8731,48.8791 -87.865,48.8761 -87.8491,48.8755 -87.84,48.8802 -87.833,48.8807 -87.8187,48.8776 -87.7825,48.8605 -87.772,48.8555 -87.7608,48.8563 -87.737,48.867 -87.7266,48.8664 -87.7109,48.8599 -87.7053,48.8565 -87.7045,48.853 -87.7083,48.8456 -87.7014,48.8417 -87.6962,48.8408 -87.6785,48.8495 -87.664,48.8483 -87.6475,48.8424 -87.6192,48.8372 -87.6119,48.8333 -87.5957,48.8091 -87.5877,48.8012 -87.5857,48.8003 -87.5824,48.799 -87.5731,48.7984 -87.5571,48.803 -87.5459,48.8081 -87.5291,48.8092 -87.5236,48.8122 -87.5232,48.8172 -87.5169,48.8211 -87.5083,48.8212 -87.5019,48.8187 -87.492,48.8176 -87.4855,48.805 -87.4869,48.7995 -87.4929,48.7762 -87.4881,48.7722 -87.481,48.7705 -87.4647,48.7749 -87.458,48.7753 -87.4553,48.7791 -87.4454,48.7842 -87.4271,48.7841 -87.4165,48.786 -87.3756,48.7823 -87.3658,48.7796 -87.3543,48.7736 -87.3469,48.7706 -87.3376,48.7556 -87.3304,48.7511 -87.3107,48.7432 -87.2955,48.7431 -87.28,48.7454 -87.2666,48.7448 -87.2567,48.7469 -87.2416,48.7454 -87.2303,48.744 -87.2261,48.7413 -87.2243,48.7378 -87.2383,48.7219 -87.238,48.7178 -87.2288,48.7131 -87.217,48.71 -87.1961,48.7073 -87.1946,48.7091 -87.201,48.7144 -87.1987,48.7168 -87.1942,48.7168 -87.177,48.7109 -87.164,48.7064 -87.1502,48.7065 -87.1365,48.7048 -87.1343,48.7093 -87.1265,48.711 -87.1238,48.718 -87.1207,48.7176 -87.117,48.7131 -87.114,48.715 -87.1155,48.7181 -87.1122,48.7227 -87.1112,48.7295 -87.0897,48.7263 -87.0826,48.7178 -87.0797,48.7188 -87.0696,48.7165 -87.0677,48.7185 -87.0618,48.7178 -87.0543,48.7136 -87.053,48.7202 -87.0501,48.7209 -87.0473,48.7178 -87.0345,48.7216 -87.0256,48.7203 -87.0211,48.7238 -87.0155,48.7245 -87.0025,48.723 -86.9957,48.7282 -86.9848,48.7302 -86.9785,48.7338 -86.9695,48.7343 -86.9724,48.7365 -86.9721,48.7386 -86.9646,48.7378 -86.9635,48.7414 -86.9607,48.7417 -86.9503,48.7351 -86.9537,48.7261 -86.9509,48.7232 -86.9389,48.7218 -86.9313,48.7248 -86.9275,48.7318 -86.9296,48.7361 -86.9355,48.7481 -86.9355,48.755 -86.93,48.758 -86.9238,48.7536 -86.916,48.7523 -86.9097,48.7529 -86.9002,48.758 -86.8951,48.7633 -86.8913,48.7631 -86.8874,48.768 -86.8941,48.7566 -86.9015,48.7517 -86.9059,48.7459 -86.905,48.7411 -86.8924,48.7329 -86.8846,48.7248 -86.8784,48.7243 -86.8709,48.7194 -86.856,48.7207 -86.8475,48.7215 -86.8344,48.7209 -86.8272,48.7174 -86.8242,48.7127 -86.8247,48.7074 -86.8108,48.6986 -86.7945,48.6951 -86.7891,48.6976 -86.7628,48.7007 -86.7335,48.716 -86.7352,48.7195 -86.7288,48.7273 -86.7234,48.7291 -86.712,48.7292 -86.6977,48.7233 -86.6804,48.7296 -86.6737,48.7343 -86.6723,48.7402 -86.666,48.7376 -86.6612,48.7406 -86.6599,48.743 -86.6645,48.7458 -86.6432,48.7498 -86.6389,48.7519 -86.6358,48.7575 -86.6251,48.7476 -86.6248,48.7443 -86.6245,48.7404 -86.6146,48.7363 -86.6036,48.7385 -86.594,48.7378 -86.5811,48.7347 -86.5707,48.7383 -86.5673,48.7372 -86.5501,48.7272 -86.5515,48.7053 -86.5532,48.7024 -86.5616,48.7017 -86.5646,48.6991 -86.5723,48.686 -86.572,48.6823 -86.5683,48.6787 -86.5611,48.6776 -86.5323,48.6815 -86.5218,48.6792 -86.515,48.6754 -86.5081,48.6783 -86.493,48.6769 -86.491,48.6771 -86.4842,48.678 -86.4809,48.6774 -86.4755,48.6728 -86.471,48.673 -86.4689,48.6764 -86.4722,48.6836 -86.4713,48.6886 -86.4731,48.6937 -86.4682,48.7004 -86.4682,48.7068 -86.4643,48.7048 -86.4581,48.6953 -86.452,48.6968 -86.4379,48.7087 -86.4307,48.7104 -86.4158,48.7202 -86.4135,48.7096 -86.4104,48.7067 -86.4052,48.7069 -86.3989,48.713 -86.389,48.7123 -86.384,48.715 -86.3779,48.7183 -86.3735,48.7177 -86.3661,48.7127 -86.364,48.7218 -86.3598,48.7225 -86.3569,48.7198 -86.3569,48.7077 -86.3506,48.7053 -86.3512,48.703 -86.3597,48.7021 -86.3575,48.6972 -86.3625,48.6928 -86.3759,48.6901 -86.379,48.687 -86.379,48.6845 -86.3708,48.6862 -86.3614,48.6843 -86.3567,48.6855 -86.3459,48.6984 -86.344,48.6988 -86.3434,48.699 -86.3416,48.6934 -86.3389,48.6928 -86.3346,48.6972 -86.3247,48.6896 -86.3183,48.6792 -86.3176,48.6732 -86.3186,48.6709 -86.3234,48.6684 -86.3311,48.6709 -86.3375,48.6694 -86.3405,48.6643 -86.3381,48.6607 -86.3236,48.6575 -86.3118,48.6491 -86.3052,48.6343 -86.2901,48.621 -86.2882,48.6156 -86.2847,48.6053 -86.2798,48.603 -86.279,48.6009 -86.2858,48.6015 -86.2871,48.5991 -86.2808,48.5974 -86.2785,48.5933 -86.2737,48.5931 -86.2617,48.598 -86.237,48.6018 -86.2358,48.6008 -86.2371,48.5924 -86.2401,48.5905 -86.2473,48.5906 -86.2617,48.5853 -86.2593,48.58 -86.2481,48.5778 -86.2446,48.5756 -86.2473,48.5728 -86.2707,48.572 -86.2709,48.5698 -86.2616,48.5689 -86.2595,48.5665 -86.2658,48.5625 -86.2391,48.5547 -86.2339,48.5492 -86.2319,48.5454 -86.2339,48.5402 -86.2284,48.5372 -86.215,48.5427 -86.209,48.5431 -86.2048,48.5408 -86.2045,48.5376 -86.2064,48.5379 -86.2133,48.5389 -86.2159,48.5375 -86.211,48.5354 -86.2119,48.5334 -86.2219,48.5337 -86.2287,48.5317 -86.2281,48.5303 -86.1868,48.5293 -86.1811,48.5279 -86.1803,48.526 -86.1828,48.5252 -86.2007,48.5262 -86.2109,48.5244 -86.2146,48.5218 -86.2112,48.5189 -86.207,48.5189 -86.2023,48.521 -86.199,48.5194 -86.1968,48.5154 -86.1985,48.5098 -86.2069,48.5052 -86.2037,48.4972 -86.1988,48.4984 -86.1969,48.4882 -86.1897,48.4729 -86.1737,48.4506 -86.178,48.4496 -86.183,48.4506 -86.183,48.4451 -86.1794,48.4344 -86.1661,48.4188 -86.1659,48.4115 -86.1627,48.4065 -86.163,48.3957 -86.1511,48.3766 -86.1534,48.3746 -86.1657,48.3757 -86.1652,48.3734 -86.158,48.3703 -86.1565,48.3631 -86.1474,48.356 -86.1458,48.351 -86.1456,48.3504 -86.142,48.3486 -86.1324,48.3518 -86.1154,48.3442 -86.1143,48.3417 -86.121,48.3347 -86.1327,48.3291 -86.13,48.3256 -86.1246,48.3246 -86.1236,48.3154 -86.1136,48.3098 -86.1128,48.3079 -86.1184,48.3075 -86.1207,48.3049 -86.1129,48.2844 -86.1091,48.277 -86.1007,48.2606 -86.0995,48.2582 -86.0967,48.256 -86.089,48.2542 -86.0869,48.2427 -86.0803,48.232 -86.0801,48.2224 -86.0779,48.2207 -86.0731,48.2211 -86.0613,48.2109 -86.0625,48.2093 -86.0699,48.2127 -86.073,48.2103 -86.0696,48.201 -86.0762,48.1975 -86.0769,48.195 -86.0593,48.1842 -86.0592,48.1824 -86.0627,48.1816 -86.064,48.1796 -86.0526,48.1715 -86.0486,48.1644 -86.0472,48.162 -86.0341,48.154 -86.0455,48.1478 -86.0327,48.1407 -86.0314,48.1337 -86.0249,48.1313 -86.02,48.1233 -86.0183,48.1177 -86.013,48.1133 -86.0177,48.1087 -86.0015,48.0978 -85.9944,48.0857 -85.9833,48.0817 -85.9765,48.0701 -85.9712,48.0657 -85.9711,48.0609 -85.9625,48.0533 -85.9458,48.0439 -85.9339,48.0405 -85.9163,48.0313 -85.9168,48.03 -85.9274,48.0326 -85.943,48.039 -85.9628,48.0396 -85.9624,48.037 -85.9508,48.0314 -85.9567,48.0308 -85.9583,48.0288 -85.9559,48.0277 -85.9366,48.0189 -85.926,48.0186 -85.9116,48.0134 -85.9041,48.0078 -85.8998,48.0068 -85.8978,48.0063 -85.8948,47.9999 -85.8919,47.9988 -85.8671,47.9892 -85.8651,47.9864 -85.8817,47.9875 -85.8808,47.9838 -85.8726,47.9779 -85.8799,47.9744 -85.8795,47.9723 -85.8649,47.9687 -85.8597,47.9689 -85.863,47.9727 -85.8622,47.9741 -85.8475,47.9737 -85.8371,47.964 -85.8412,47.9617 -85.8406,47.9584 -85.8346,47.957 -85.8283,47.953 -85.8247,47.95 -85.8172,47.9466 -85.8112,47.9384 -85.8064,47.9359 -85.7819,47.9209 -85.7413,47.9019 -85.7166,47.8923 -85.6875,47.8859 -85.6687,47.8806 -85.6521,47.8808 -85.6335,47.8727 -85.6254,47.8755 -85.5968,47.8705 -85.5583,47.8671 -85.5365,47.8682 -85.5273,47.8665 -85.5084,47.866 -85.4977,47.8658 -85.4844,47.8638 -85.4613,47.8667 -85.4521,47.8638 -85.4062,47.8635 -85.3702,47.8692 -85.3349,47.869 -85.3243,47.8701 -85.3216,47.8704 -85.2773,47.8873 -85.2569,47.892 -85.2148,47.8975 -85.1944,47.8981 -85.1825,47.9011 -85.175,47.9009 -85.1637,47.8959 -85.1491,47.8972 -85.1359,47.8983 -85.1288,47.9027 -85.1128,47.9041 -85.0774,47.9032 -85.0661,47.9 -85.0423,47.9028 -84.9909,47.9032 -84.9617,47.9027 -84.9464,47.9052 -84.93,47.9046 -84.9229,47.9044 -84.9147,47.9058 -84.9103,47.9081 -84.8946,47.9035 -84.8821,47.9125 -84.8552,47.9052 -84.8432,47.8929 -84.8357,47.8888 -84.8316,47.8893 -84.8344,47.8959 -84.8398,47.8998 -84.8392,47.9023 -84.8324,47.9044 -84.8208,47.9055 -84.8044,47.9024 -84.7908,47.9026 -84.7827,47.9003 -84.7762,47.8946 -84.7765,47.8841 -84.7741,47.8816 -84.771,47.8816 -84.7724,47.8741 -84.7655,47.8659 -84.7662,47.8606 -84.775,47.8599 -84.7801,47.8576 -84.7943,47.8416 -84.8062,47.8359 -84.8262,47.8126 -84.8329,47.802 -84.8397,47.7998 -84.8529,47.7988 -84.8573,47.7963 -84.8604,47.7881 -84.8637,47.7796 -84.8721,47.7688 -84.8673,47.7641 -84.867,47.7577 -84.8581,47.7538 -84.8465,47.7415 -84.8404,47.7397 -84.8289,47.7413 -84.8207,47.739 -84.8234,47.7349 -84.8292,47.731 -84.8404,47.7271 -84.8468,47.7221 -84.8632,47.6933 -84.8722,47.688 -84.8727,47.6878 -84.8757,47.6793 -84.8872,47.6784 -84.9011,47.6797 -84.9045,47.6781 -84.9106,47.6696 -84.9231,47.6632 -84.93,47.6549 -84.9345,47.6494 -84.9307,47.6458 -84.93,47.6456 -84.9161,47.642 -84.9117,47.6395 -84.9042,47.6269 -84.9062,47.6173 -84.9132,47.6079 -84.9211,47.6019 -84.93,47.5952 -84.9415,47.5864 -84.9452,47.5786 -84.9414,47.569 -84.9448,47.5628 -84.9396,47.5544 -84.9427,47.5523 -84.9525,47.5539 -84.9606,47.5532 -84.9615,47.5434 -84.9666,47.5424 -84.9696,47.5395 -84.9649,47.536 -84.9554,47.5358 -84.9435,47.5288 -84.9334,47.5295 -84.93,47.5286 -84.9195,47.5257 -84.912,47.5239 -84.8971,47.5136 -84.8846,47.5139 -84.8761,47.5077 -84.8754,47.5036 -84.8835,47.4906 -84.8841,47.4855 -84.8807,47.4812 -84.8726,47.478 -84.8658,47.4776 -84.8614,47.4744 -84.8594,47.4701 -84.8496,47.4671 -84.8442,47.4632 -84.8323,47.4626 -84.811,47.4483 -84.8032,47.4478 -84.7951,47.4423 -84.762,47.4351 -84.7546,47.4332 -84.7458,47.4273 -84.7174,47.423 -84.71,47.4125 -84.6934,47.3984 -84.6877,47.3947 -84.6769,47.3927 -84.6698,47.3833 -84.6553,47.3758 -84.6475,47.3705 -84.6408,47.3692 -84.635,47.357 -84.628,47.3495 -84.6293,47.3399 -84.6259,47.333 -84.6303,47.3289 -84.6306,47.3196 -84.6276,47.3164 -84.6161,47.3091 -84.6108,47.3084 -84.6033,47.304 -84.5811,47.3075 -84.572,47.3059 -84.5633,47.2992 -84.5545,47.2917 -84.5434,47.2864 -84.529,47.2547 -84.5266,47.2521 -84.5165,47.2505 -84.5132,47.248 -84.5132,47.2444 -84.5165,47.2416 -84.5186,47.2307 -84.5283,47.2256 -84.5337,47.2179 -84.5438,47.2101 -84.5525,47.2085 -84.5591,47.2013 -84.5603,47.2 -84.5744,47.1923 -84.5821,47.1834 -84.5855,47.1708 -84.5912,47.1664 -84.5918,47.16 -84.5972,47.1562 -84.6039,47.1539 -84.6059,47.1463 -84.613,47.1418 -84.62,47.1404 -84.6264,47.1342 -84.6338,47.1317 -84.6375,47.1251 -84.6351,47.1221 -84.623,47.1203 -84.6207,47.1173 -84.6277,47.1045 -84.6403,47.0969 -84.6522,47.0896 -84.6656,47.0871 -84.6683,47.0839 -84.6646,47.0807 -84.6562,47.0802 -84.6538,47.0775 -84.6575,47.0727 -84.6585,47.0668 -84.6508,47.0569 -84.6424,47.056 -84.6394,47.0521 -84.6394,47.0469 -84.6451,47.0389 -84.6635,47.0233 -84.6672,47.0169 -84.6795,47.0112 -84.6835,47.0073 -84.6929,46.9979 -84.7003,46.997 -84.706,46.9929 -84.7096,46.9853 -84.7096,46.9787 -84.7076,46.9718 -84.7005,46.962 -84.7099,46.9613 -84.7142,46.9531 -84.7196,46.9499 -84.7206,46.9442 -84.7138,46.9279 -84.7071,46.9204 -84.6904,46.9177 -84.6821,46.9123 -84.6599,46.898 -84.6462,46.8976 -84.6315,46.912 -84.6255,46.9145 -84.6155,46.9148 -84.6001,46.9118 -84.5881,46.9033 -84.5821,46.872 -84.5777,46.8642 -84.544,46.8352 -84.5396,46.8356 -84.5283,46.8475 -84.5239,46.8482 -84.5216,46.8507 -84.5296,46.858 -84.5333,46.8644 -84.5306,46.8737 -84.5299,46.8761 -84.5253,46.8788 -84.5182,46.8788 -84.5129,46.8823 -84.5045,46.8919 -84.5035,46.893 -84.4968,46.8935 -84.4801,46.8891 -84.4628,46.8809 -84.4571,46.8765 -84.4464,46.8676 -84.4411,46.8671 -84.4367,46.8728 -84.4223,46.8815 -84.4056,46.8815 -84.3689,46.8743 -84.3639,46.8693 -84.3613,46.8647 -84.3559,46.862 -84.3511,46.8616 -84.3299,46.8599 -84.3196,46.853 -84.3103,46.8424 -84.2936,46.8355 -84.2883,46.83 -84.285,46.8206 -84.2863,46.8158 -84.2961,46.809 -84.3011,46.8022 -84.3038,46.7903 -84.3095,46.7846 -84.3222,46.7766 -84.3274,46.7711 -84.3299,46.7684 -84.326,46.7643 -84.3266,46.7617 -84.345,46.7618 -84.347,46.7654 -84.3459,46.7702 -84.3593,46.7755 -84.3639,46.779 -84.3659,46.7851 -84.3695,46.7888 -84.3869,46.7882 -84.3999,46.7914 -84.4096,46.7912 -84.4159,46.7882 -84.43,46.7665 -84.4343,46.7665 -84.4427,46.7714 -84.4433,46.7718 -84.4653,46.7761 -84.4747,46.775 -84.4823,46.7707 -84.4867,46.7617 -84.482,46.7574 -84.4723,46.7569 -84.4687,46.7519 -84.4694,46.7402 -84.4714,46.7261 -84.4777,46.7197 -84.4811,46.7126 -84.4878,46.7071 -84.4858,46.7037 -84.4758,46.6959 -84.4718,46.6895 -84.4721,46.6851 -84.4751,46.6831 -84.4818,46.6842 -84.4885,46.6835 -84.4934,46.6879 -84.4971,46.6874 -84.5004,46.6845 -84.5025,46.6733 -84.5018,46.6449 -84.4975,46.6364 -84.4912,46.6323 -84.4855,46.6307 -84.4749,46.6309 -84.4596,46.6362 -84.4516,46.6405 -84.4493,46.6433 -84.4487,46.6523 -84.4482,46.6599 -84.4399,46.6686 -84.4282,46.6945 -84.4142,46.7018 -84.3928,46.702 -84.3699,46.6923 -84.3683,46.6859 -84.3589,46.6802 -84.3596,46.6765 -84.3636,46.6729 -84.367,46.661 -84.3717,46.6587 -84.3727,46.6537 -84.3684,46.6486 -84.3508,46.636 -84.3505,46.6314 -84.3538,46.6262 -84.3618,46.6244 -84.3672,46.6203 -84.3928,46.6118 -84.3981,46.6066 -84.4091,46.6073 -84.4141,46.6057 -84.4211,46.592 -84.4298,46.5851 -84.4418,46.5787 -84.4422,46.5784 -84.4807,46.5463 -84.4973,46.5369 -84.5189,46.5203 -84.5222,46.5129 -84.5252,46.4928 -84.5198,46.4799 -84.5186,46.4789 -84.514,46.4759 -84.5097,46.4731 -84.4888,46.4672 -84.4699,46.4507 -84.4603,46.4509 -84.4573,46.4488 -84.4553,46.4397 -84.456,46.4303 -84.4537,46.4244 -84.4468,46.4186 -84.4163,46.4111 -84.3953,46.4313 -84.3786,46.4446 -84.3635,46.453 -84.3368,46.4602 -84.315,46.4647 -84.2894,46.4664 -84.2537,46.4669 -84.2444,46.4634 -84.1807,46.4747 -84.1757,46.4786 -84.159,46.4942 -84.1501,46.5009 -84.1378,46.5037 -84.125,46.5043 -84.1122,46.5004 -84.1033,46.4909 -84.0909,46.4905 -84.0731,46.4936 -84.0721,46.4933 -84.0704,46.4937 -84.0537,46.4948 -84.0331,46.4876 -84.0281,46.482 -84.0059,46.4763 -84.0008,46.4549 -83.9821,46.4527 -83.9811,46.4515 -83.9779,46.4428 -83.9846,46.438 -83.9932,46.4369 -83.9969,46.4349 -84.021,46.4067 -84.026,46.3737 -84.0263,46.3692 -84.0317,46.3614 -84.0341,46.3527 -84.0394,46.3525 -84.0384,46.3415 -84.0207,46.292 -84.0175,46.2889 -84.0138,46.2779 -84.0101,46.2798 -84.0106,46.2878 -84.0081,46.2899 -84.0004,46.2823 -83.9922,46.2775 -83.9807,46.2648 -83.9738,46.2623 -83.9639,46.2616 -83.9566,46.2643 -83.9513,46.2642 -83.9401,46.2619 -83.9328,46.2632 -83.9221,46.2677 -83.9188,46.2696 -83.9043,46.2704 -83.8809,46.2682 -83.8801,46.2741 -83.8689,46.2716 -83.8643,46.2727 -83.8533,46.2813 -83.8486,46.2815 -83.844,46.2785 -83.8312,46.2764 -83.8238,46.2795 -83.8169,46.2797 -83.8093,46.2778 -83.8054,46.2741 -83.8036,46.2599 -83.7945,46.2489 -83.7794,46.241 -83.7712,46.2403 -83.7645,46.2437 -83.7562,46.2443 -83.7339,46.237 -83.7194,46.2362 -83.715,46.2424 -83.7143,46.2433 -83.6929,46.2402 -83.6863,46.2403 -83.6819,46.244 -83.6734,46.238 -83.6781,46.2311 -83.6739,46.227 -83.669,46.2263 -83.6636,46.2306 -83.6523,46.2341 -83.6461,46.2329 -83.6343,46.2242 -83.6248,46.2229 -83.6153,46.216 -83.6014,46.2154 -83.599,46.2209 -83.5878,46.2183 -83.5804,46.2178 -83.5654,46.2167 -83.5531,46.2201 -83.541,46.2309 -83.5374,46.2309 -83.5254,46.2214 -83.5128,46.2192 -83.5056,46.2157 -83.4946,46.2051 -83.4911,46.1978 -83.4939,46.1893 -83.491,46.1847 -83.4867,46.1849 -83.4849,46.1956 -83.4802,46.2 -83.4679,46.2019 -83.4578,46.2007 -83.4548,46.2004 -83.439,46.1943 -83.4087,46.1922 -83.384,46.1887 -83.3778,46.1855 -83.3579,46.1878 -83.3352,46.1859 -83.3069,46.1808 -83.2838,46.175 -83.2738,46.1725 -83.2578,46.1656 -83.2462,46.1651 -83.2361,46.1617 -83.2251,46.1637 -83.2159,46.1624 -83.2133,46.1608 -83.2141,46.1571 -83.2115,46.1537 -83.1999,46.1579 -83.19,46.1582 -83.1762,46.1542 -83.1466,46.1506 -83.127,46.1428 -83.1236,46.143 -83.1194,46.1432 -83.1147,46.1473 -83.0992,46.1466 -83.0809,46.1404 -83.078,46.1372 -83.0759,46.1289 -83.0704,46.1263 -83.058,46.1312 -83.0558,46.1298 -83.0515,46.13 -83.035,46.1419 -83.032,46.1426 -83.0188,46.1424 -83.0146,46.1407 -83.0101,46.1352 -83.0046,46.1326 -82.9776,46.1313 -82.9833,46.127 -82.9871,46.1207 -82.9924,46.118 -83.0297,46.1167 -83.0324,46.1146 -83.0302,46.1123 -83.0167,46.1108 -82.9946,46.1116 -82.9817,46.1142 -82.9592,46.1148 -82.938,46.1175 -82.9293,46.1126 -82.8925,46.118 -82.8908,46.1205 -82.8923,46.1249 -82.8663,46.1254 -82.8623,46.124 -82.8477,46.1277 -82.8395,46.128 -82.809,46.1216 -82.7978,46.1212 -82.7862,46.1228 -82.7747,46.1204 -82.774,46.1203 -82.7468,46.1181 -82.737,46.123 -82.7281,46.1238 -82.7237,46.1287 -82.7144,46.1313 -82.6886,46.1316 -82.6716,46.1371 -82.6392,46.1398 -82.603,46.1461 -82.5794,46.1502 -82.5506,46.1534 -82.5481,46.151 -82.5741,46.1419 -82.5943,46.1418 -82.6006,46.1398 -82.6058,46.133 -82.6063,46.1273 -82.6238,46.1166 -82.6255,46.1155 -82.6176,46.1154 -82.6116,46.1182 -82.6036,46.119 -82.6027,46.1163 -82.6122,46.11 -82.6113,46.1075 -82.5995,46.1032 -82.5662,46.1031 -82.5617,46.1005 -82.5578,46.1006 -82.5524,46.1024 -82.5496,46.1087 -82.5289,46.1136 -82.5241,46.1115 -82.5175,46.1109 -82.5131,46.1154 -82.5068,46.116 -82.4923,46.1154 -82.485,46.1152 -82.4709,46.1131 -82.4635,46.1175 -82.4477,46.1163 -82.4259,46.1281 -82.4186,46.1279 -82.4129,46.1299 -82.4044,46.1371 -82.3957,46.1396 -82.3886,46.1457 -82.3744,46.1447 -82.3722,46.1429 -82.3746,46.1397 -82.3813,46.1375 -82.3859,46.1182 -82.3773,46.1215 -82.3717,46.1197 -82.3615,46.1294 -82.3485,46.1335 -82.3299,46.1345 -82.3241,46.1341 -82.3049,46.1327 -82.3028,46.1281 -82.2707,46.13 -82.2459,46.1336 -82.2222,46.1322 -82.1956,46.1358 -82.1653,46.135 -82.1527,46.1278 -82.1564,46.1263 -82.1721,46.1307 -82.1836,46.1307 -82.2001,46.1299 -82.2105,46.1262 -82.2182,46.1253 -82.2405,46.1284 -82.2462,46.1263 -82.2483,46.1226 -82.2449,46.1164 -82.2476,46.1142 -82.2539,46.1138 -82.2808,46.1178 -82.2901,46.1157 -82.2972,46.1112 -82.3009,46.1043 -82.3011,46.1038 -82.2991,46.098 -82.2938,46.0974 -82.2913,46.1017 -82.2903,46.1102 -82.282,46.1112 -82.2781,46.1015 -82.2662,46.1033 -82.2618,46.0973 -82.2239,46.0826 -82.214,46.0819 -82.2099,46.085 -82.2288,46.0948 -82.2252,46.0971 -82.21,46.091 -82.1855,46.0944 -82.1727,46.0921 -82.1659,46.0885 -82.1561,46.0883 -82.1518,46.0882 -82.1474,46.0826 -82.1384,46.0779 -82.1334,46.0773 -82.1375,46.0864 -82.1196,46.0768 -82.1199,46.0699 -82.0915,46.0561 -82.0876,46.056 -82.091,46.0615 -82.0882,46.0633 -82.08,46.0624 -82.0776,46.0509 -82.0738,46.047 -82.0666,46.0455 -82.0655,46.0489 -82.0685,46.0549 -82.0651,46.0576 -82.0572,46.0498 -82.046,46.0489 -82.0459,46.0517 -82.0517,46.0545 -82.0522,46.0565 -82.0502,46.0582 -82.0187,46.0559 -82.0011,46.0585 -81.9959,46.0574 -81.9783,46.0465 -81.9727,46.0462 -81.964,46.0494 -81.9541,46.0487 -81.9415,46.0432 -81.9268,46.0406 -81.9042,46.0389 -81.8835,46.0404 -81.8222,46.0448 -81.8066,46.0406 -81.7998,46.0454 -81.7672,46.0504 -81.7551,46.0503 -81.7466,46.0476 -81.7307,46.0491 -81.7166,46.048 -81.7093,46.0498 -81.6919,46.0541 -81.6711,46.0549 -81.6537,46.0534 -81.6464,46.0498 -81.6455,46.0474 -81.6516,46.0446 -81.6678,46.0436 -81.6646,46.0404 -81.6551,46.0388 -81.6546,46.0362 -81.6611,46.032 -81.6612,46.0291 -81.679,46.0304 -81.6835,46.0243 -81.7085,46.0151 -81.7121,46.0138 -81.7134,46.0077 -81.6974,45.9787 -81.6978,45.9626 -81.6954,45.9587 -81.689,45.9551 -81.6803,45.9551 -81.6711,45.9574 -81.6693,45.9641 -81.6683,45.9681 -81.6733,45.9739 -81.6731,45.9778 -81.6607,45.9871 -81.6575,45.9935 -81.6592,45.9981 -81.6707,46.0039 -81.6716,46.0073 -81.6616,46.0094 -81.624,46.011 -81.6003,46.0097 -81.5909,46.0143 -81.5789,46.0143 -81.5774,46.0107 -81.574,46.0106 -81.5735,46.0116 -81.5711,46.0171 -81.5778,46.0196 -81.5889,46.0211 -81.5927,46.0235 -81.5819,46.0287 -81.584,46.0317 -81.5929,46.0317 -81.5945,46.0336 -81.5919,46.0381 -81.5933,46.0434 -81.5908,46.047 -81.5844,46.0494 -81.5843,46.0526 -81.5909,46.0584 -81.5884,46.062 -81.566,46.061 -81.5593,46.0629 -81.5542,46.0605 -81.539,46.0606 -81.536,46.0561 -81.5445,46.0504 -81.5227,46.0512 -81.512,46.0429 -81.4963,46.0391 -81.4846,46.0388 -81.4811,46.0407 -81.4702,46.0354 -81.4671,46.031 -81.468,46.0271 -81.4748,46.0219 -81.4791,46.0208 -81.49,46.0169 -81.4898,46.0142 -81.4856,46.012 -81.4898,46.008 -81.4862,46.0063 -81.4767,46.007 -81.4786,46.0022 -81.4752,45.9982 -81.4769,45.9962 -81.5023,45.9895 -81.5191,45.986 -81.5283,45.984 -81.5524,45.9762 -81.56,45.9752 -81.5698,45.9771 -81.5747,45.9763 -81.5901,45.9778 -81.5969,45.9741 -81.6055,45.9736 -81.6386,45.9623 -81.6421,45.9597 -81.6386,45.9566 -81.6259,45.9545 -81.6152,45.9572 -81.5985,45.9563 -81.5888,45.9529 -81.5765,45.9493 -81.5413,45.9496 -81.5184,45.9519 -81.5021,45.9506 -81.4891,45.9461 -81.4887,45.9429 -81.5056,45.9342 -81.5113,45.9323 -81.5182,45.9322 -81.5496,45.9159 -81.556,45.9126 -81.5637,45.9114 -81.5744,45.9062 -81.581,45.9059 -81.5916,45.8927 -81.5959,45.8921 -81.6013,45.8957 -81.6185,45.8927 -81.6206,45.8907 -81.6194,45.8886 -81.6065,45.8839 -81.5953,45.8845 -81.5785,45.8912 -81.5656,45.8996 -81.553,45.9006 -81.54,45.9046 -81.5178,45.9148 -81.4919,45.9306 -81.4771,45.9314 -81.4697,45.9342 -81.4626,45.939 -81.4597,45.9433 -81.4615,45.9461 -81.4591,45.949 -81.445,45.9539 -81.4227,45.9584 -81.4168,45.9582 -81.416,45.9552 -81.4293,45.9464 -81.4205,45.9439 -81.42,45.9418 -81.4325,45.9339 -81.441,45.9309 -81.4433,45.9236 -81.4413,45.9188 -81.4356,45.9152 -81.4405,45.9149 -81.4506,45.917 -81.4572,45.9169 -81.4596,45.9154 -81.4581,45.9062 -81.4603,45.9012 -81.4566,45.8972 -81.4515,45.8952 -81.4468,45.8953 -81.4246,45.906 -81.4225,45.9087 -81.4253,45.9115 -81.4318,45.913 -81.4326,45.9158 -81.4075,45.9167 -81.3922,45.9202 -81.3867,45.9242 -81.3895,45.9286 -81.3853,45.9326 -81.3735,45.9321 -81.3565,45.9364 -81.3249,45.9365 -81.3205,45.93 -81.322,45.9286 -81.3189,45.9265 -81.3082,45.9232 -81.2921,45.9237 -81.2836,45.9223 -81.2792,45.9189 -81.2766,45.9129 -81.2675,45.9101 -81.2557,45.9153 -81.2491,45.9213 -81.2461,45.9219 -81.243,45.9198 -81.2398,45.9126 -81.2234,45.9107 -81.2193,45.9134 -81.2185,45.9132 -81.2158,45.9128 -81.2107,45.909 -81.2064,45.8983 -81.2019,45.8968 -81.1889,45.9006 -81.1839,45.8961 -81.1595,45.9087 -81.1523,45.9082 -81.1455,45.9055 -81.1396,45.8994 -81.1325,45.898 -81.1246,45.8987 -81.1242,45.9102 -81.121,45.9204 -81.1172,45.9228 -81.0982,45.9251 -81.0963,45.9254 -81.0933,45.9271 -81.0962,45.932 -81.0832,45.9408 -81.0844,45.9436 -81.0882,45.9446 -81.1083,45.9445 -81.1384,45.9417 -81.148,45.9356 -81.1634,45.9202 -81.1705,45.9168 -81.1738,45.9171 -81.1746,45.9196 -81.1714,45.9244 -81.1624,45.9314 -81.1601,45.9373 -81.1622,45.9404 -81.1535,45.9424 -81.142,45.9531 -81.1354,45.9533 -81.1215,45.9499 -81.0778,45.9486 -81.0737,45.9459 -81.0702,45.9436 -81.0692,45.9282 -81.0747,45.9245 -81.0787,45.9175 -81.0859,45.9132 -81.0922,45.9115 -81.1009,45.9042 -81.1049,45.892 -81.1017,45.8852 -81.1035,45.8825 -81.1144,45.8815 -81.1152,45.8792 -81.1114,45.8766 -81.0892,45.8748 -81.0719,45.8667 -81.0644,45.8658 -81.064,45.8674 -81.0603,45.8799 -81.0535,45.8895 -81.0494,45.8915 -81.0428,45.8864 -81.0379,45.8852 -81.028,45.8915 -81.0196,45.8848 -81.016,45.8843 -80.9978,45.8867 -80.9764,45.8975 -80.958,45.8976 -80.9411,45.8946 -80.9275,45.9008 -80.9241,45.8975 -80.9138,45.8914 -80.9087,45.8917 -80.9031,45.8939 -80.9025,45.8963 -80.8931,45.8947 -80.8947,45.8838 -80.8901,45.8799 -80.8776,45.8798 -80.8707,45.8743 -80.8603,45.8731 -80.8525,45.8765 -80.8485,45.872 -80.8455,45.8724 -80.8368,45.8842 -80.8349,45.8814 -80.8315,45.8825 -80.8287,45.8894 -80.8219,45.8923 -80.8205,45.8885 -80.8143,45.8872 -80.8039,45.8804 -80.7921,45.8908 -80.7872,45.8849 -80.7902,45.8843 -80.7935,45.8744 -80.7716,45.8668 -80.7648,45.8719 -80.7612,45.8718 -80.7611,45.8661 -80.756,45.8688 -80.7503,45.8805 -80.7513,45.8851 -80.7485,45.8866 -80.7468,45.8789 -80.7419,45.8832 -80.7355,45.9055 -80.7267,45.9004 -80.7243,45.887 -80.7174,45.8861 -80.7196,45.8788 -80.7219,45.8734 -80.7283,45.8558 -80.7261,45.8451 -80.7234,45.8457 -80.7195,45.8504 -80.7134,45.8489 -80.7041,45.8747 -80.6992,45.8805 -80.6968,45.8852 -80.6888,45.901 -80.6776,45.8972 -80.6798,45.8929 -80.6835,45.8925 -80.694,45.8828 -80.6938,45.8801 -80.6941,45.8755 -80.69,45.8731 -80.6864,45.8732 -80.6817,45.8778 -80.6653,45.8943 -80.6627,45.8927 -80.673,45.8746 -80.6735,45.8698 -80.6701,45.8667 -80.6643,45.8649 -80.6585,45.859 -80.6669,45.8457 -80.6642,45.8417 -80.6563,45.8419 -80.6546,45.8391 -80.6535,45.8326 -80.6597,45.831 -80.6614,45.8261 -80.6573,45.8133 -80.6579,45.8046 -80.6557,45.8025 -80.6518,45.8019 -80.6426,45.8078 -80.6383,45.8076 -80.6353,45.7982 -80.6265,45.7928 -80.6004,45.7897 -80.5931,45.7896 -80.5937,45.7858 -80.594,45.7835 -80.6015,45.7801 -80.6141,45.7832 -80.6417,45.7823 -80.6467,45.7809 -80.6482,45.7775 -80.6376,45.7657 -80.6344,45.7642 -80.6176,45.7646 -80.605,45.757 -80.6014,45.7615 -80.5981,45.7621 -80.5928,45.7585 -80.5827,45.7581 -80.5805,45.7564 -80.5859,45.7539 -80.6041,45.7515 -80.6052,45.7499 -80.6059,45.7488 -80.6031,45.7467 -80.5956,45.7469 -80.5897,45.7421 -80.5805,45.7425 -80.577,45.74 -80.578,45.7353 -80.5841,45.7318 -80.5838,45.7222 -80.5696,45.696 -80.5679,45.6925 -80.5786,45.6837 -80.5778,45.6816 -80.5747,45.6808 -80.5685,45.6847 -80.5659,45.6846 -80.5651,45.6821 -80.5715,45.6804 -80.5748,45.6779 -80.5733,45.6751 -80.5665,45.6752 -80.5536,45.6798 -80.5556,45.6764 -80.5658,45.672 -80.5665,45.6698 -80.5643,45.6681 -80.5557,45.6692 -80.5529,45.6677 -80.5591,45.6629 -80.5513,45.6574 -80.5438,45.6569 -80.5375,45.6484 -80.5199,45.6476 -80.5194,45.6448 -80.5237,45.6408 -80.5219,45.6378 -80.5079,45.6366 -80.5071,45.6341 -80.5089,45.6323 -80.5219,45.6332 -80.526,45.6308 -80.5295,45.6321 -80.5331,45.6368 -80.5374,45.6367 -80.538,45.6322 -80.5346,45.6278 -80.5257,45.6164 -80.5188,45.612 -80.5065,45.6155 -80.4995,45.621 -80.4907,45.6204 -80.4873,45.6178 -80.4958,45.6176 -80.5018,45.6119 -80.498,45.6099 -80.4764,45.6108 -80.4739,45.6091 -80.4776,45.6067 -80.5107,45.6065 -80.5129,45.6031 -80.5071,45.6011 -80.5051,45.598 -80.5068,45.5919 -80.5059,45.5906 -80.5047,45.5888 -80.4953,45.5883 -80.4982,45.5843 -80.4925,45.5808 -80.4759,45.58 -80.4665,45.5744 -80.4608,45.5816 -80.4578,45.5819 -80.4556,45.5761 -80.4469,45.5701 -80.436,45.5711 -80.4327,45.5668 -80.4183,45.5621 -80.4344,45.5614 -80.4371,45.5564 -80.4494,45.5489 -80.4479,45.5458 -80.4405,45.5442 -80.438,45.5422 -80.4394,45.5411 -80.4468,45.5419 -80.4487,45.5404 -80.4481,45.5351 -80.4407,45.5332 -80.4377,45.5296 -80.41,45.5504 -80.408,45.5469 -80.4127,45.5407 -80.412,45.5365 -80.4254,45.5317 -80.4307,45.527 -80.4204,45.5254 -80.4227,45.5237 -80.428,45.5232 -80.4377,45.5156 -80.4342,45.5149 -80.4271,45.5174 -80.4263,45.5164 -80.4309,45.5122 -80.4286,45.5062 -80.4245,45.5037 -80.415,45.5036 -80.3941,45.5134 -80.3818,45.5153 -80.367,45.5216 -80.3512,45.5236 -80.3431,45.5265 -80.3366,45.5315 -80.334,45.5358 -80.3349,45.5457 -80.3633,45.5547 -80.367,45.5578 -80.3671,45.5613 -80.3643,45.5635 -80.3557,45.5641 -80.3415,45.5709 -80.3383,45.5708 -80.3378,45.5678 -80.3474,45.562 -80.3302,45.551 -80.3246,45.5513 -80.3169,45.5414 -80.314,45.5416 -80.305,45.5425 -80.3033,45.5397 -80.312,45.5371 -80.3142,45.5296 -80.3206,45.5307 -80.3218,45.5234 -80.331,45.5268 -80.3347,45.5262 -80.3382,45.5227 -80.3361,45.5203 -80.3303,45.5185 -80.3166,45.518 -80.3108,45.5132 -80.3102,45.5072 -80.3074,45.5055 -80.2993,45.505 -80.2917,45.5065 -80.2901,45.5114 -80.282,45.5011 -80.2876,45.5002 -80.3012,45.5014 -80.3078,45.4954 -80.3062,45.4906 -80.3094,45.4872 -80.309,45.4801 -80.3045,45.4742 -80.3041,45.4705 -80.3073,45.4674 -80.3142,45.4675 -80.3162,45.4625 -80.3122,45.4539 -80.3138,45.445 -80.3117,45.438 -80.3161,45.4327 -80.3226,45.4322 -80.323,45.4274 -80.3199,45.4203 -80.3185,45.4172 -80.3169,45.4031 -80.3095,45.3848 -80.3039,45.3811 -80.2867,45.3793 -80.2819,45.3734 -80.2769,45.3716 -80.2754,45.3824 -80.2714,45.3843 -80.264,45.3831 -80.2512,45.3702 -80.218,45.3695 -80.2157,45.3676 -80.2153,45.3673 -80.219,45.3649 -80.2322,45.3638 -80.2346,45.3616 -80.2316,45.3542 -80.2332,45.3372 -80.2383,45.3292 -80.2355,45.3238 -80.2257,45.3189 -80.2289,45.3114 -80.2192,45.3023 -80.2088,45.3013 -80.2031,45.2992 -80.1999,45.3037 -80.1935,45.3023 -80.1807,45.3025 -80.1746,45.2981 -80.1685,45.3026 -80.1673,45.3034 -80.1618,45.3027 -80.1583,45.2975 -80.1629,45.2929 -80.1628,45.2899 -80.1594,45.2875 -80.1439,45.2867 -80.1388,45.2933 -80.1329,45.294 -80.1192,45.2903 -80.096,45.2791 -80.0898,45.2786 -80.0837,45.2818 -80.0929,45.2978 -80.1018,45.3026 -80.1067,45.31 -80.1249,45.3116 -80.1429,45.3267 -80.1427,45.3286 -80.1322,45.3234 -80.1248,45.3231 -80.1238,45.3265 -80.1158,45.3223 -80.1124,45.3178 -80.0926,45.3017 -80.0879,45.2997 -80.0744,45.2886 -80.0488,45.2617 -80.044,45.2613 -80.0404,45.2577 -80.0368,45.2578 -80.0433,45.2534 -80.0514,45.254 -80.0513,45.2602 -80.0698,45.2636 -80.0859,45.2702 -80.0924,45.2709 -80.1083,45.2709 -80.1095,45.2675 -80.1133,45.2646 -80.1255,45.2641 -80.1436,45.2479 -80.1486,45.2373 -80.1544,45.2336 -80.1536,45.2313 -80.142,45.2306 -80.1474,45.2235 -80.1473,45.2198 -80.1462,45.2182 -80.1415,45.2194 -80.1344,45.2252 -80.1311,45.2233 -80.1368,45.2176 -80.1266,45.2101 -80.1287,45.2081 -80.1349,45.2084 -80.135,45.2077 -80.1355,45.2049 -80.1326,45.2 -80.1294,45.1992 -80.1215,45.2046 -80.1172,45.1974 -80.12,45.194 -80.1171,45.1852 -80.1138,45.1828 -80.1064,45.1857 -80.0946,45.1871 -80.0922,45.184 -80.0937,45.1813 -80.1039,45.1803 -80.1114,45.1751 -80.1103,45.1723 -80.1019,45.1727 -80.1025,45.1688 -80.0987,45.1669 -80.0919,45.1714 -80.0778,45.1945 -80.0769,45.2054 -80.0839,45.2115 -80.0828,45.2142 -80.0663,45.2121 -80.0642,45.215 -80.0713,45.2229 -80.0699,45.2249 -80.0405,45.2263 -80.0371,45.2243 -80.0296,45.2247 -80.0158,45.2332 -80.0128,45.2278 -80.0048,45.2289 -80.0015,45.2217 -80.0128,45.2108 -80.026,45.2087 -80.0328,45.2061 -80.0402,45.2008 -80.0422,45.197 -80.053,45.1949 -80.0674,45.198 -80.0685,45.1882 -80.0606,45.1812 -80.0594,45.1752 -80.0516,45.176 -80.0495,45.1734 -80.0501,45.162 -80.0459,45.1618 -80.0372,45.1688 -80.0326,45.1693 -80.0309,45.1663 -80.0254,45.1665 -80.0227,45.1712 -80.0233,45.1763 -80.0202,45.1783 -80.0159,45.1751 -80.0079,45.1739 -80.0069,45.1699 -80.0121,45.1582 -80.0208,45.1588 -80.0323,45.148 -80.0353,45.1516 -80.0321,45.1549 -80.0348,45.1584 -80.0432,45.1581 -80.0503,45.1501 -80.0589,45.149 -80.0577,45.1469 -80.0404,45.1398 -80.0401,45.1281 -80.0359,45.1294 -80.0343,45.1332 -80.0304,45.1355 -80.0322,45.1324 -80.0292,45.1263 -80.02,45.1269 -80.0204,45.1342 -80.0135,45.1351 -80.011,45.1387 -80.013,45.1417 -80.0181,45.1426 -80.0202,45.145 -80.0129,45.1475 -80.0068,45.1465 -79.9996,45.1513 -79.9947,45.1637 -79.9915,45.1631 -79.9877,45.1577 -79.9808,45.159 -79.9798,45.1551 -79.9827,45.1511 -79.9894,45.1491 -79.9894,45.1454 -79.9855,45.145 -79.9767,45.1334 -79.9764,45.1247 -79.9741,45.1212 -79.9678,45.1221 -79.9636,45.1258 -79.9618,45.1328 -79.9563,45.1326 -79.9494,45.1411 -79.9436,45.1406 -79.9428,45.1346 -79.9382,45.1319 -79.9413,45.129 -79.942,45.124 -79.9503,45.126 -79.9514,45.1239 -79.9498,45.1195 -79.9465,45.1171 -79.9397,45.1159 -79.9379,45.1142 -79.9393,45.0971 -79.9366,45.0947 -79.9354,45.0946 -79.93,45.094 -79.9249,45.0951 -79.9151,45.0989 -79.9112,45.1031 -79.9116,45.1072 -79.9161,45.1115 -79.9251,45.1123 -79.9269,45.114 -79.9227,45.1226 -79.9184,45.1229 -79.9045,45.1147 -79.902,45.1084 -79.8992,45.1081 -79.8957,45.1107 -79.8895,45.1107 -79.9094,45.0931 -79.8997,45.0776 -79.892,45.0755 -79.8915,45.075 -79.8869,45.0709 -79.888,45.0657 -79.8853,45.0628 -79.865,45.0567 -79.8569,45.0566 -79.8439,45.0536 -79.8359,45.0564 -79.8288,45.0557 -79.8035,45.0443 -79.8119,45.0442 -79.8275,45.0511 -79.834,45.0518 -79.8394,45.049 -79.8607,45.0506 -79.8782,45.054 -79.8942,45.0602 -79.8987,45.0691 -79.9045,45.0737 -79.911,45.0742 -79.9276,45.0728 -79.93,45.0694 -79.9357,45.0612 -79.9383,45.0598 -79.9394,45.0592 -79.9555,45.0606 -79.9721,45.0555 -79.9825,45.0555 -80.0075,45.0585 -80.0106,45.0687 -80.021,45.0687 -80.029,45.066 -80.0321,45.0634 -80.032,45.0602 -80.0274,45.0568 -80.0091,45.0505 -80.0035,45.0526 -79.9944,45.0523 -79.9884,45.0497 -79.9881,45.0458 -79.9826,45.0415 -79.9762,45.0359 -79.9939,45.0343 -80.0123,45.0348 -80.0167,45.0327 -79.9704,45.0199 -79.969,45.0166 -79.9928,45.0187 -79.9949,45.0172 -79.9653,45.0066 -79.9478,45.0057 -79.9453,45.0081 -79.9422,45.011 -79.93,45.0068 -79.9262,45.0055 -79.9238,45.0009 -79.93,44.9995 -79.9253,44.9914 -79.9271,44.9856 -79.93,44.9821 -79.9372,44.9732 -79.9345,44.9698 -79.93,44.9698 -79.9073,44.9699 -79.8984,44.9672 -79.889,44.9598 -79.8981,44.9551 -79.8921,44.95 -79.8879,44.9508 -79.8829,44.95 -79.8785,44.9492 -79.8793,44.9442 -79.8855,44.9392 -79.8802,44.9326 -79.8744,44.9326 -79.8685,44.9328 -79.8712,44.9274 -79.8695,44.9252 -79.8597,44.9262 -79.8543,44.9242 -79.8537,44.9202 -79.8578,44.906 -79.8505,44.8912 -79.8468,44.8897 -79.8462,44.8913 -79.8437,44.8843 -79.8443,44.8802 -79.8366,44.8792 -79.8271,44.8854 -79.8134,44.8906 -79.81,44.8964 -79.8042,44.8967 -79.8007,44.9034 -79.7938,44.9054 -79.7831,44.9017 -79.7754,44.901 -79.7706,44.896 -79.7659,44.8937 -79.7592,44.8856 -79.7554,44.8917 -79.751,44.8901 -79.7495,44.8813 -79.7453,44.8772 -79.7513,44.8747 -79.7537,44.87 -79.7504,44.8647 -79.7491,44.8627 -79.7519,44.8599 -79.7641,44.8574 -79.764,44.8542 -79.7582,44.8498 -79.7334,44.8373 -79.72,44.839 -79.7174,44.8433 -79.7129,44.8433 -79.7127,44.8378 -79.7149,44.8351 -79.727,44.8288 -79.7282,44.8261 -79.7258,44.8234 -79.7142,44.8232 -79.7074,44.8273 -79.7007,44.8265 -79.6938,44.8203 -79.6962,44.8185 -79.7071,44.8198 -79.7084,44.8199 -79.7034,44.8135 -79.708,44.8126 -79.721,44.8191 -79.7342,44.8197 -79.7402,44.8213 -79.7438,44.8171 -79.7405,44.8066 -79.7357,44.8025 -79.7157,44.7982 -79.7001,44.7987 -79.6972,44.7954 -79.7001,44.7909 -79.6954,44.7864 -79.6961,44.7811 -79.7022,44.7779 -79.712,44.7625 -79.7126,44.7616 -79.7118,44.7591 -79.708,44.7585 -79.7008,44.7602 -79.6979,44.7594 -79.694,44.7526 -79.6833,44.7526 -79.6786,44.7439 -79.6734,44.7405 -79.6605,44.7365 -79.6586,44.7398 -79.6611,44.7443 -79.6603,44.7463 -79.6507,44.7455 -79.6497,44.7493 -79.6539,44.7536 -79.6526,44.7575 -79.6313,44.7765 -79.622,44.7796 -79.6179,44.7789 -79.6157,44.774 -79.6244,44.771 -79.6324,44.7596 -79.6389,44.7548 -79.643,44.7447 -79.6363,44.732 -79.6361,44.7267 -79.6404,44.7184 -79.6344,44.7127 -79.6321,44.7093 -79.6391,44.7067 -79.6554,44.6851 -79.6641,44.6811 -79.6694,44.6836 -79.6736,44.6879 -79.6783,44.6964 -79.6802,44.7052 -79.6787,44.7113 -79.6806,44.7153 -79.6838,44.7161 -79.688,44.7154 -79.6998,44.7053 -79.7056,44.7056 -79.7062,44.7024 -79.7027,44.6974 -79.7219,44.6801 -79.7244,44.6807 -79.7247,44.6853 -79.715,44.6975 -79.7266,44.7056 -79.7276,44.7076 -79.7293,44.7109 -79.7296,44.719 -79.7334,44.7198 -79.739,44.7148 -79.7464,44.7151 -79.7565,44.7093 -79.7633,44.7092 -79.7671,44.707 -79.7705,44.6959 -79.7737,44.6933 -79.7809,44.6952 -79.7937,44.7049 -79.799,44.7061 -79.8113,44.7022 -79.8134,44.7043 -79.8146,44.7085 -79.8105,44.7152 -79.8057,44.7192 -79.7996,44.7194 -79.7947,44.7238 -79.7894,44.73 -79.7868,44.7374 -79.7915,44.7516 -79.7968,44.7576 -79.8021,44.7599 -79.8098,44.7599 -79.8293,44.7548 -79.8321,44.7547 -79.851,44.7538 -79.8556,44.7476 -79.8553,44.7396 -79.8599,44.7225 -79.867,44.7146 -79.8718,44.7152 -79.8744,44.7185 -79.8738,44.7227 -79.8687,44.7254 -79.8655,44.7331 -79.8651,44.7427 -79.8692,44.7516 -79.8686,44.755 -79.8637,44.7555 -79.8604,44.7611 -79.8518,44.7598 -79.8484,44.7611 -79.8441,44.7659 -79.8254,44.7865 -79.831,44.7975 -79.8389,44.8068 -79.8599,44.8072 -79.8694,44.8135 -79.8745,44.8144 -79.9106,44.803 -79.9241,44.8029 -79.93,44.8 -79.9336,44.7982 -79.9406,44.7974 -79.9437,44.797 -79.9514,44.8008 -79.9543,44.7977 -79.9533,44.7887 -79.9602,44.7835 -79.9633,44.7733 -79.9705,44.7632 -79.9695,44.7556 -79.9737,44.7512 -79.9816,44.7497 -79.9883,44.7465 -79.9918,44.7469 -79.998,44.7547 -79.9999,44.7672 -80.0018,44.7677 -80.0086,44.7671 -80.0231,44.7587 -80.0334,44.7598 -80.0378,44.7572 -80.0454,44.7579 -80.0547,44.7168 -80.0538,44.7 -80.0484,44.695 -80.0324,44.6932 -80.0261,44.6877 -80.0153,44.6889 -80.0078,44.6858 -79.9974,44.6746 -79.9936,44.6738 -79.9901,44.675 -79.9837,44.6771 -79.972,44.6709 -79.9577,44.6717 -79.9447,44.6533 -79.9354,44.6522 -79.93,44.6451 -79.9287,44.6434 -79.9205,44.6369 -79.9124,44.6224 -79.8991,44.615 -79.9007,44.5944 -79.9036,44.5887 -79.9076,44.5807 -79.9197,44.5662 -79.93,44.5496 -79.933,44.5447 -79.9326,44.5411 -79.93,44.5385 -79.9193,44.5343 -79.9152,44.5294 -79.9145,44.5224 -79.9193,44.5141 -79.9181,44.5049 -79.921,44.4966 -79.93,44.4845 -79.9354,44.4772 -79.9514,44.4619 -79.9559,44.4576 -79.9809,44.4373 -80.0028,44.4241 -80.0286,44.413 -80.036,44.4126 -80.0464,44.4153 -80.0778,44.4287 -80.0909,44.4363 -80.1045,44.4442 -80.1242,44.4514 -80.134,44.4527 -80.1429,44.45 -80.1531,44.4507 -80.157,44.4536 -80.1569,44.4593 -80.1661,44.4574 -80.1709,44.4663 -80.1743,44.4668 -80.1803,44.4648 -80.1863,44.4659 -80.1901,44.4702 -80.1992,44.4696 -80.2034,44.4728 -80.2072,44.4688 -80.2105,44.4689 -80.2129,44.4754 -80.2162,44.4781 -80.2217,44.4774 -80.2226,44.4765 -80.2307,44.4683 -80.2353,44.4666 -80.2473,44.4701 -80.2667,44.4811 -80.2752,44.4833 -80.2925,44.4832 -80.3036,44.4855 -80.309,44.4815 -80.3158,44.4816 -80.3403,44.4923 -80.371,44.5086 -80.3925,44.5176 -80.4076,44.5219 -80.4129,44.5246 -80.4142,44.5322 -80.4333,44.54 -80.4452,44.5395 -80.4589,44.5363 -80.4755,44.5376 -80.4789,44.5398 -80.4811,44.5456 -80.4854,44.548 -80.4944,44.5488 -80.5042,44.5556 -80.5111,44.5579 -80.5251,44.5643 -80.5357,44.5732 -80.5451,44.5827 -80.552,44.5935 -80.5547,44.6021 -80.5489,44.6106 -80.5474,44.6234 -80.5495,44.631 -80.5634,44.653 -80.5624,44.6638 -80.5666,44.6671 -80.5674,44.6673 -80.5746,44.6686 -80.608,44.6693 -80.6344,44.6649 -80.6645,44.6675 -80.6713,44.6719 -80.6767,44.6718 -80.6792,44.6692 -80.677,44.6631 -80.6801,44.6603 -80.6977,44.6572 -80.7041,44.6526 -80.7112,44.6524 -80.7202,44.6475 -80.7243,44.6429 -80.7335,44.6407 -80.7512,44.6305 -80.7672,44.6164 -80.7963,44.5788 -80.8095,44.5687 -80.8268,44.5654 -80.8344,44.5617 -80.8365,44.559 -80.8554,44.5342 -80.8642,44.5272 -80.8678,44.5266 -80.8667,44.5593 -80.8645,44.5678 -80.853,44.5919 -80.8523,44.5933 -80.8399,44.6311 -80.8359,44.6386 -80.8336,44.6557 -80.8134,44.6793 -80.8099,44.6934 -80.8132,44.7118 -80.8137,44.7147 -80.8209,44.7277 -80.8308,44.7391 -80.8402,44.7442 -80.8453,44.7446 -80.8569,44.7392 -80.8634,44.7383 -80.8733,44.7395 -80.9047,44.7529 -80.9149,44.7548 -80.9348,44.752 -80.9519,44.7453 -80.9836,44.7327 -80.9996,44.7293 -81.0083,44.7247 -81.0484,44.69 -81.0572,44.688 -81.062,44.6886 -81.0653,44.6926 -81.0576,44.7026 -81.0552,44.7214 -81.0035,44.7509 -80.9733,44.7745 -80.9595,44.7801 -80.952,44.7862 -80.9428,44.8029 -80.9382,44.8113 -80.9312,44.8202 -80.9302,44.8254 -80.9319,44.8301 -80.9383,44.8346 -80.9504,44.8373 -80.9523,44.8438 -80.9484,44.8542 -80.9427,44.8632 -80.9266,44.8776 -80.8942,44.8908 -80.8884,44.8947 -80.8866,44.8978 -80.8848,44.9008 -80.8862,44.9036 -80.8979,44.9079 -80.9038,44.9119 -80.9089,44.9185 -80.9131,44.9191 -80.928,44.9019 -80.9341,44.903 -80.9411,44.9156 -80.9465,44.9167 -80.9648,44.9088 -80.977,44.8993 -80.9766,44.8952 -80.9804,44.891 -80.9763,44.8792 -80.973,44.8783 -80.9699,44.8776 -80.9645,44.8712 -80.961,44.8707 -80.9545,44.8757 -80.9505,44.8726 -80.9497,44.8698 -80.9529,44.8658 -80.9595,44.8626 -80.9741,44.8628 -80.9817,44.8596 -80.9862,44.8549 -80.9827,44.8475 -80.9853,44.8434 -80.9916,44.8402 -81.0036,44.839 -81.021,44.839 -81.0232,44.8403 -81.024,44.843 -81.0209,44.8471 -81.0118,44.853 -81.0091,44.8598 -81.0113,44.8625 -81.0145,44.8666 -81.0218,44.8693 -81.0357,44.8684 -81.0456,44.8648 -81.0659,44.8505 -81.0808,44.8491 -81.0832,44.8524 -81.0674,44.8728 -81.0578,44.8716 -81.0553,44.8814 -81.0493,44.8846 -81.0398,44.8857 -81.0373,44.8909 -81.0382,44.896 -81.0392,44.9015 -81.0416,44.905 -81.0472,44.9079 -81.0553,44.9084 -81.1067,44.9031 -81.123,44.9047 -81.1342,44.9076 -81.1401,44.9119 -81.14,44.9178 -81.1253,44.9369 -81.1176,44.9419 -81.1166,44.9474 -81.1187,44.949 -81.12,44.95 -81.1219,44.9514 -81.1323,44.951 -81.1414,44.9545 -81.1493,44.9529 -81.1539,44.95 -81.1594,44.9463 -81.1691,44.9354 -81.1743,44.9346 -81.1768,44.9411 -81.1874,44.95 -81.1885,44.9509 -81.1996,44.9668 -81.1987,44.9716 -81.192,44.9808 -81.1916,44.9874 -81.1949,44.9985 -81.1936,45.0037 -81.1881,45.0256 -81.195,45.0402 -81.204,45.0524 -81.206,45.0625 -81.2111,45.0645 -81.2282,45.0664 -81.2406,45.0706 -81.2594,45.0872 -81.2611,45.1041 -81.2619,45.1118 -81.2587,45.1225 -81.2482,45.1366 -81.2244,45.1556 -81.2113,45.169 -81.2065,45.1785 -81.2095,45.1884 -81.2151,45.1923 -81.2215,45.1876 -81.2241,45.1877 -81.2267,45.1937 -81.2396,45.1919 -81.2516,45.1901 -81.2677,45.186 -81.3128,45.1877 -81.3307,45.1797 -81.3874,45.1765 -81.3986,45.1789 -81.4107,45.1838 -81.4177,45.1867 -81.443,45.1874 -81.4596,45.192 -81.4677,45.1924 -81.4714,45.1898 -81.4698,45.1842 -81.4743,45.1841 -81.4821,45.1907 -81.4876,45.1913 -81.4951,45.1847 -81.5075,45.1893 -81.5068,45.195 -81.5096,45.1979 -81.5182,45.1956 -81.5352,45.194 -81.5443,45.1997 -81.55,45.1993 -81.556,45.1989 -81.5662,45.1964 -81.5671,45.203 -81.5578,45.2078 -81.559,45.2099 -81.5635,45.2116 -81.5739,45.2105 -81.5852,45.2117 -81.5874,45.2075 -81.5864,45.2022 -81.5903,45.2007 -81.5931,45.2039 -81.6003,45.2034 -81.6059,45.207 -81.6219,45.1923 -81.6119,45.1847 -81.6193,45.1794 -81.6293,45.181 -81.6382,45.1782 -81.6458,45.1757 -81.6523,45.1699 -81.6533,45.1631 -81.6432,45.1573 -81.6373,45.1572 -81.6241,45.1621 -81.6236,45.1589 -81.628,45.1485 -81.6269,45.1455 -81.6234,45.1435 -81.6114,45.143 -81.6068,45.1454 -81.6001,45.161 -81.5959,45.1614 -81.594,45.1602 -81.5939,45.1561 -81.5968,45.1445 -81.5838,45.1448 -81.5809,45.1443 -81.5805,45.1437 -81.5791,45.1413 -81.5826,45.1365 -81.5893,45.1326 -81.5882,45.1287 -81.5643,45.1384 -81.5591,45.1384 -81.5566,45.1368 -81.5568,45.1333 -81.56,45.1282 -81.5552,45.1264 -81.5484,45.1393 -81.5445,45.1397 -81.5408,45.1357 -81.5396,45.1265 -81.5371,45.1248 -81.5118,45.1384 -81.5053,45.1375 -81.5049,45.1334 -81.5068,45.1284 -81.5086,45.1238 -81.5139,45.1171 -81.5189,45.1005 -81.5182,45.0959 -81.5066,45.0958 -81.5022,45.0978 -81.4981,45.0963 -81.4956,45.0877 -81.5042,45.0845 -81.5059,45.0828 -81.5048,45.0807 -81.498,45.08 -81.4921,45.0812 -81.4896,45.0791 -81.4907,45.0711 -81.4816,45.0711 -81.4781,45.0635 -81.4749,45.0636 -81.4705,45.0674 -81.4667,45.0599 -81.4577,45.0634 -81.4571,45.0574 -81.451,45.0552 -81.4415,45.0396 -81.4435,45.0263 -81.4408,45.0226 -81.4356,45.0224 -81.4325,45.0208 -81.4333,45.0171 -81.4286,45.0142 -81.4208,45.0212 -81.4187,45.0211 -81.4204,45.0166 -81.4175,45.0165 -81.4138,45.0134 -81.4168,45.0114 -81.4239,45.0114 -81.4254,45.008 -81.4233,45.0049 -81.4129,45.0001 -81.4084,44.9935 -81.4052,44.9918 -81.3926,44.9931 -81.3894,44.9919 -81.3883,44.9758 -81.3808,44.9703 -81.3815,44.9641 -81.377,44.9516 -81.3761,44.95 -81.3744,44.947 -81.3593,44.9333 -81.3614,44.9291 -81.364,44.9242 -81.363,44.9189 -81.3595,44.9172 -81.355,44.9173 -81.3489,44.9213 -81.3395,44.9396 -81.3348,44.944 -81.3276,44.9452 -81.3268,44.9418 -81.334,44.9351 -81.3339,44.9312 -81.3286,44.9271 -81.3234,44.9265 -81.3138,44.9322 -81.3113,44.9365 -81.3109,44.9434 -81.3049,44.9466 -81.2977,44.9474 -81.2952,44.9455 -81.2957,44.9377 -81.2897,44.9323 -81.2886,44.9313 -81.2914,44.9277 -81.302,44.9227 -81.3042,44.9187 -81.3012,44.9135 -81.298,44.9125 -81.2864,44.9131 -81.2832,44.9121 -81.2825,44.9075 -81.2951,44.884 -81.3002,44.8677 -81.3009,44.862 -81.2978,44.8539 -81.2947,44.8515 -81.2883,44.8508 -81.2775,44.8533 -81.2756,44.8521 -81.2751,44.8491 -81.2771,44.8475 -81.2835,44.8456 -81.289,44.844 -81.292,44.8411 -81.2809,44.8325 -81.2826,44.8252 -81.2808,44.8234 -81.2738,44.8215 -81.2702,44.8162 -81.269,44.8093 -81.2652,44.8078 -81.2553,44.8224 -81.2478,44.824 -81.2464,44.8201 -81.2562,44.8071 -81.2581,44.8012 -81.2556,44.7947 -81.2449,44.7739 -81.2422,44.7688 -81.2326,44.769 -81.2223,44.7674 -81.2199,44.7643 -81.22,44.7579 -81.2113,44.7521 -81.2099,44.7482 -81.2137,44.743 -81.2225,44.7421 -81.2246,44.7395 -81.2218,44.7323 -81.2233,44.7284 -81.2103,44.7196 -81.2106,44.7138 -81.2025,44.7026 -81.2039,44.6958 -81.2117,44.6834 -81.2112,44.6811 -81.2068,44.681 -81.2019,44.6457 -81.21,44.6396 -81.2151,44.6402 -81.2207,44.6431 -81.2268,44.643 -81.2302,44.6401 -81.2226,44.6223 -81.2149,44.6156 -81.2152,44.6099 -81.2113,44.6059 -81.2027,44.6047 -81.2034,44.5974 -81.1983,44.5851 -81.2009,44.5577 -81.2129,44.5388 -81.2196,44.5339 -81.2273,44.5216 -81.2521,44.4925 -81.2561,44.4912 -81.2609,44.4898 -81.279,44.4761 -81.2873,44.4591 -81.2989,44.4468 -81.3121,44.4337 -81.3103,44.4263 -81.3193,44.4087 -81.3293,44.4019 -81.3326,44.3942 -81.3286,44.3842 -81.3321,44.3783 -81.3497,44.3685 -81.3599,44.3688 -81.3664,44.366 -81.3737,44.3671 -81.3797,44.3632 -81.386,44.3663 -81.3897,44.3642 -81.3952,44.3611 -81.4084,44.3603 -81.4238,44.3527 -81.43,44.3455 -81.4369,44.3416 -81.4509,44.3255 -81.4543,44.3157 -81.4613,44.3092 -81.4743,44.3057 -81.4774,44.301 -81.4774,44.289 -81.4792,44.2847 -81.4825,44.2825 -81.4924,44.2842 -81.4972,44.2861 -81.4999,44.2871 -81.5057,44.2866 -81.5107,44.2817 -81.5232,44.2749 -81.5291,44.2666 -81.5309,44.2566 -81.5242,44.249 -81.5293,44.2435 -81.5278,44.2411 -81.5199,44.2398 -81.5176,44.2349 -81.5205,44.229 -81.5281,44.2223 -81.5327,44.2147 -81.5269,44.2028 -81.5296,44.1935 -81.5351,44.186 -81.5365,44.1841 -81.5439,44.1581 -81.5647,44.1323 -81.5701,44.1196 -81.5873,44.1008 -81.6005,44.0913 -81.6219,44.0717 -81.6555,44.0487 -81.6653,44.038 -81.677,44.0263 -81.6802,44.0182 -81.6789,44.0119 -81.6683,43.9947 -81.6609,43.9776 -81.6583,43.9601 -81.6599,43.9464 -81.6548,43.918 -81.6539,43.913 -81.6456,43.8818 -81.6443,43.8623 -81.6481,43.8299 -81.6465,43.7718 -81.6527,43.7562 -81.6524,43.7493 -81.6449,43.7397 -81.645,43.7253 -81.649,43.7062 -81.6504,43.6993 -81.6533,43.6991 -81.6538,43.6941 -81.6495,43.6594 -81.6521,43.6441 -81.6395,43.5791 -81.6392,43.5761 -81.6337,43.518 -81.6347,43.5102 -81.6318,43.4723 -81.6359,43.4589 -81.635,43.4453 -81.6447,43.4156 -81.645,43.3933 -81.6451,43.3872 -81.643,43.3731 -81.6374,43.3572 -81.6361,43.3406 -81.6584,43.2956 -81.6741,43.2754 -81.6755,43.2742 -81.6928,43.2591 -81.6991,43.2531 -81.7431,43.2255 -81.7727,43.2093 -81.7915,43.1965 -81.8228,43.1844 -81.824,43.1801 -81.8372,43.1795 -81.8423,43.1771 -81.864,43.1689 -81.8719,43.1674 -81.8827,43.1653 -81.9088,43.1565 -81.9211,43.1547 -81.9333,43.1557 -81.9382,43.159 -81.9425,43.1685 -81.9454,43.1663 -81.9476,43.1597 -81.9525,43.1536 -81.9538,43.1454 -81.9621,43.1431 -81.9606,43.1405 -81.9514,43.1371 -81.9484,43.134 -81.948,43.1283 -81.9529,43.1174 -81.9534,43.1168 -81.9598,43.1095 -81.9847,43.092 -82.0147,43.0634 -82.0272,43.0554 -82.0429,43.0487 -82.0625,43.0443 -82.0752,43.0391 -82.0767,43.0343 -82.077,43.0332 -82.0764,43.0253 -82.0788,43.019 -82.0824,43.0152 -82.1055,43.0015 -82.1211,42.9947 -82.1736,42.9812 -82.2141,42.9775 -82.2689,42.9676 -82.2817,42.9676 -82.2971,42.9652 -82.3071,42.9622 -82.3487,42.8531 -82.367,42.7779 -82.3592,42.7479 -82.3581,42.7124 -82.3701,42.6711 -82.4027,42.5797 -82.4075,42.5724 -82.4043,42.5654 -82.4037,42.55 -82.4077,42.5407 -82.4098,42.5342 -82.4172,42.527 -82.4168,42.5102 -82.4134,42.501 -82.4157,42.4967 -82.4299,42.4907 -82.4298,42.5095 -82.4263,42.5235 -82.4257,42.5268 -82.4204,42.5302 -82.4135,42.5388 -82.4084,42.5517 -82.4111,42.5653 -82.4116,42.5661 -82.4212,42.5514 -82.4645,42.5156 -82.5005,42.5083 -82.5038,42.5054 -82.5055,42.502 -82.5042,42.4877 -82.493,42.4739 -82.4913,42.4669 -82.494,42.4572 -82.5013,42.4524 -82.5038,42.4495 -82.4977,42.4469 -82.4866,42.4453 -82.4871,42.4504 -82.4744,42.4499 -82.4668,42.4451 -82.4633,42.4474 -82.4635,42.4509 -82.478,42.4548 -82.483,42.4629 -82.4788,42.4897 -82.4758,42.4907 -82.474,42.491 -82.4743,42.4844 -82.4769,42.461 -82.4728,42.4578 -82.461,42.4548 -82.4581,42.4518 -82.4576,42.4449 -82.4573,42.4418 -82.4507,42.4364 -82.447,42.4354 -82.4372,42.4494 -82.4312,42.453 -82.4216,42.4535 -82.4092,42.4619 -82.4026,42.4632 -82.3989,42.4624 -82.3969,42.458 -82.405,42.4481 -82.403,42.4451 -82.39,42.4439 -82.3802,42.4394 -82.3743,42.4326 -82.3665,42.4327 -82.3621,42.4347 -82.3487,42.4374 -82.3426,42.4338 -82.3374,42.4243 -82.3356,42.4153 -82.3357,42.4016 -82.3389,42.3842 -82.3369,42.3519 -82.3423,42.3252 -82.3407,42.3174 -82.3416,42.3085 -82.3593,42.2825 -82.375,42.2651 -82.3734,42.2589 -82.3789,42.2595 -82.387,42.2603 -82.3902,42.2556 -82.3948,42.2564 -82.4042,42.2533 -82.4182,42.2516 -82.4339,42.2516 -82.4584,42.2587 -82.4781,42.2603 -82.4924,42.2594 -82.5394,42.2486 -82.5412,42.2482 -82.5645,42.2442 -82.5809,42.2457 -82.6131,42.2417 -82.6372,42.2412 -82.6854,42.2425 -82.7133,42.2482 -82.7929,42.2715 -82.7999,42.2724 -82.8056,42.2731 -82.8151,42.2762 -82.836,42.2795 -82.8602,42.2856 -82.8676,42.2857 -82.8836,42.2768 -82.9023,42.2746 -82.9107,42.271 -82.9246,42.2717 -82.946,42.2681 -82.952,42.2667 -82.9716,42.2528 -82.9978,42.2177 -83.0081,42.198 -83.0171,42.1731 -83.0219,42.1539 -83.0306,42.1108 -83.0239,42.1188 -82.9877,42.1331 -83.0113,42.1193 -83.0077,42.1158 -83.0188,42.1127 -83.0224,42.1064 -83.0338,42.095 -83.0392,42.0683 -83.0374,42.0619 -83.0374,42.0477 -83.0344,42.0332 -83.0394,42.017 -83.0369,41.9946 -83.0341,41.992 -83.033,41.9911 -83.0126,41.9841 -82.9918,41.9797 -82.9907,41.9841 -82.9854,41.9892 -82.9788,41.9818 -82.9792,41.9775 -82.9289,41.9623 -82.903,41.95 -82.9,41.9486 -82.8628,41.9279 -82.8454,41.923 -82.8297,41.9244 -82.8194,41.9299 -82.7528,41.9364 -82.7486,41.9379 -82.7205,41.9475 -82.6735,41.9692 -82.6493,41.9734 -82.6312,41.9737 -82.6024,41.9803 -82.5927,41.981 -82.5897,41.9812 -82.5677,41.9788 -82.5503,41.9743 -82.5364,41.975 -82.5188,41.9678 -82.4698,41.9252 -82.4615,41.9149 -82.4583,41.911 -82.4456,41.8885 -82.4396,41.8756 -82.4382,41.8552 -82.4352,41.8517 -82.4271,41.8808 -82.428,41.9097 -82.4276,41.9214 -82.4205,41.948 -82.4118,41.9683 -82.3974,41.993 -82.3755,42.0186 -82.3683,42.0253 -82.3577,42.035 -82.3264,42.0587 -82.3122,42.0675 -82.2987,42.0737 -82.2807,42.0788 -82.2622,42.0864 -82.2433,42.0968 -82.2349,42.1001 -82.2245,42.1042 -82.1381,42.1307 -82.1009,42.1512 -82.0875,42.16 -82.0844,42.1621 -82.0609,42.1718 -82.047,42.1793 -82.03,42.1865 -81.9819,42.2005 -81.966,42.2042 -81.9327,42.2072 -81.9052,42.2097 -81.8785,42.207 -81.8515,42.2017 -81.8334,42.2004 -81.8378,42.2041 -81.8553,42.208 -81.8585,42.2106 -81.859,42.2152 -81.8616,42.2189 -81.8565,42.2277 -81.852,42.2318 -81.8458,42.2346 -81.8388,42.2378 -81.8284,42.2497 -81.8188,42.2571 -81.8109,42.2594 -81.808,42.2634 -81.8036,42.2647 -81.7962,42.2707 -81.7815,42.2745 -81.7722,42.2747 -81.7711,42.2724 -81.7904,42.2431 -81.7961,42.2393 -81.7945,42.2335 -81.7984,42.2302 -81.8029,42.231 -81.8054,42.2315 -81.8051,42.2104 -81.8025,42.1991 -81.8163,42.2015 -81.8278,42.2016 -81.826,42.1988 -81.8193,42.1973 -81.7922,42.1952 -81.7791,42.1981 -81.7737,42.2014 -81.7701,42.2063 -81.7681,42.2175 -81.7681,42.2293 -81.7683,42.2592 -81.7634,42.2843 -81.7531,42.3074 -81.7406,42.3236 -81.7177,42.3454 -81.7067,42.3534 -81.6446,42.3844 -81.6057,42.4118 -81.5853,42.4239 -81.5464,42.4471 -81.5051,42.4794 -81.4591,42.5082 -81.449,42.5145 -81.434,42.5216 -81.4201,42.5258 -81.3938,42.5308 -81.3845,42.5425 -81.3742,42.5493 -81.3635,42.5519 -81.3312,42.5515 -81.3234,42.5531 -81.3189,42.5605 -81.3171,42.5617 -81.2854,42.5831 -81.2726,42.5903 -81.2577,42.5951 -81.2435,42.5989 -81.2257,42.5999 -81.1698,42.6108 -81.1651,42.6108 -81.1567,42.6107 -81.1469,42.6081 -81.1437,42.6105 -81.1385,42.6083 -81.1331,42.6102 -81.0984,42.6089 -81.0638,42.6108 -81.0312,42.6084 -80.9902,42.6075 -80.9748,42.6058 -80.9507,42.603 -80.8964,42.607 -80.8046,42.6041 -80.7949,42.6038 -80.7331,42.5925 -80.7128,42.5891 -80.6837,42.5775 -80.6556,42.5689 -80.5794,42.5389 -80.5445,42.5251 -80.5282,42.5227 -80.4601,42.5183 -80.4141,42.519 -80.3855,42.5194 -80.3539,42.5231 -80.3058,42.5226 -80.2524,42.5127 -80.1988,42.5022 -80.1683,42.4991 -80.145,42.4943 -80.1191,42.4921 -80.1063,42.4884 -80.0809,42.4858 -80.0771,42.4854 -80.0482,42.4856 -80.0268,42.4886 -79.9954,42.4894 -79.9744,42.4917 -79.9671,42.4944 -79.97,42.4971 -79.9986,42.4962 -80.0138,42.502 -80.0185,42.5024 -80.0186,42.4998 -80.0134,42.498 -80.0142,42.4954 -80.0271,42.4964 -80.0268,42.5012 -80.0339,42.5024 -80.0393,42.5006 -80.0539,42.4998 -80.054,42.5028 -80.0502,42.5045 -80.0455,42.5043 -80.0445,42.5063 -80.0461,42.5091 -80.0555,42.5164 -80.0626,42.5254 -80.0715,42.5304 -80.0835,42.5344 -80.0711,42.5269 -80.0643,42.5147 -80.0689,42.5114 -80.0704,42.5083 -80.0769,42.5124 -80.0812,42.505 -80.0888,42.5031 -80.0935,42.5104 -80.1014,42.5093 -80.1135,42.505 -80.1298,42.5025 -80.1493,42.5005 -80.1511,42.5022 -80.1471,42.5048 -80.1365,42.5065 -80.1276,42.5069 -80.1215,42.5092 -80.1261,42.5108 -80.1321,42.5106 -80.152,42.5099 -80.158,42.5127 -80.1679,42.5126 -80.1702,42.5157 -80.1746,42.5152 -80.1775,42.5178 -80.1837,42.514 -80.1984,42.5122 -80.2059,42.5116 -80.2101,42.509 -80.2188,42.5108 -80.2177,42.5129 -80.2063,42.5176 -80.1885,42.5192 -80.1842,42.5268 -80.1902,42.527 -80.2037,42.5233 -80.2272,42.5131 -80.2348,42.5156 -80.2525,42.5164 -80.2533,42.5268 -80.2601,42.5273 -80.2627,42.5188 -80.2759,42.5272 -80.2699,42.5327 -80.2634,42.5322 -80.2597,42.5376 -80.2575,42.5422 -80.2619,42.5463 -80.2695,42.5431 -80.2701,42.5387 -80.2742,42.5347 -80.2792,42.5337 -80.2822,42.5357 -80.2889,42.532 -80.3143,42.5296 -80.3169,42.5322 -80.3178,42.5412 -80.3207,42.5406 -80.3284,42.5313 -80.3327,42.5287 -80.3376,42.5289 -80.3384,42.5319 -80.3358,42.5368 -80.3368,42.5412 -80.3402,42.5413 -80.3433,42.5372 -80.3461,42.5382 -80.3462,42.5412 -80.351,42.542 -80.3499,42.5309 -80.3513,42.5292 -80.3598,42.5274 -80.3668,42.5343 -80.373,42.5481 -80.3745,42.5578 -80.3609,42.5781 -80.3457,42.592 -80.3265,42.6044 -80.3103,42.6081 -80.2989,42.6077 -80.2899,42.6023 -80.2817,42.5994 -80.2719,42.5974 -80.2662,42.5981 -80.2605,42.5963 -80.2583,42.6004 -80.2576,42.6017 -80.2602,42.6085 -80.257,42.6138 -80.2529,42.633 -80.2434,42.6482 -80.2384,42.6533 -80.2144,42.6668 -80.1859,42.6948 -80.1751,42.7015 -80.1732,42.7022 -80.1652,42.7052 -80.1544,42.7211 -80.1449,42.7271 -80.1366,42.7291 -80.1116,42.7306 -80.0923,42.7342 -80.0559,42.7327 -80.0447,42.7366 -80.0218,42.7371 -80.0057,42.7373 -79.9941,42.7419 -79.9861,42.7443 -79.9727,42.7447 -79.967,42.7463 -79.9571,42.7537 -79.9501,42.7543 -79.9404,42.7509 -79.93,42.7502 -79.9262,42.7499 -79.9064,42.739 -79.9036,42.7395 -79.8961,42.7512 -79.8928,42.7531 -79.8827,42.7556 -79.8656,42.7545 -79.8582,42.7569 -79.8563,42.7614 -79.8516,42.7628 -79.8417,42.7656 -79.8088,42.7624 -79.8056,42.7639 -79.8041,42.7677 -79.7942,42.77 -79.7747,42.7715 -79.7656,42.769 -79.7612,42.7695 -79.755,42.7766 -79.7459,42.7813 -79.7316,42.7799 -79.7265,42.7811 -79.7156,42.7887 -79.6989,42.7905 -79.698,42.7906 -79.6845,42.7912 -79.6777,42.7872 -79.6742,42.7873 -79.6644,42.7967 -79.6579,42.8001 -79.6409,42.8015 -79.6271,42.8061 -79.6209,42.8056 -79.6159,42.8024 -79.6079,42.8002 -79.5934,42.7987 -79.5895,42.7964 -79.5887,42.7879 -79.5843,42.7872 -79.5815,42.7912 -79.578,42.792 -79.5651,42.7822 -79.5622,42.7817 -79.5595,42.7813 -79.5209,42.7954 -79.4986,42.8082 -79.4943,42.8036 -79.4807,42.7945 -79.4787,42.7887 -79.4701,42.7876 -79.471,42.7913 -79.4695,42.7938 -79.4643,42.7926 -79.4626,42.7978 -79.4592,42.8013 -79.4558,42.8016 -79.4404,42.7984 -79.4063,42.7879 -79.4019,42.7884 -79.3928,42.8079 -79.3843,42.8142 -79.3744,42.8217 -79.3693,42.8233 -79.3584,42.8224 -79.3512,42.8188 -79.346,42.8181 -79.3399,42.8203 -79.3235,42.8175 -79.3156,42.8151 -79.3087,42.8081 -79.3034,42.8081 -79.2956,42.8125 -79.2828,42.8124 -79.2753,42.8086 -79.2701,42.8031 -79.2574,42.8167 -79.2519,42.8192 -79.2378,42.8192 -79.2267,42.8244 -79.2205,42.8239 -79.2096,42.8169 -79.1984,42.8157 -79.1929,42.8219 -79.1863,42.8261 -79.1822,42.8264 -79.1732,42.8255 -79.1533,42.8204 -79.1432,42.8153 -79.1388,42.8183 -79.1109,42.8163 -79.104,42.8205 -79.093,42.8225 -79.089,42.8232 -79.0787,42.8232 -79.07,42.8159 -79.0364,42.8039 -79.0286,42.7978 -79.0223,42.7839 -79.0184,42.786 -79.0141,42.7915 -79.0188,42.8019 -79.0146,42.8072 -78.9859,42.8062 -78.9783,42.8074 -78.9771,42.8085 -78.9718,42.8135 -78.959,42.8209 -78.9527,42.8213 -78.9414,42.8182 -78.9302,42.8174 -78.9175,42.8264 -78.8981,42.8273 -78.8929,42.832 -78.8861,42.8319 -78.8778,42.8271 -78.8725,42.8296 -78.8575,42.833 -78.843,42.8474 -78.8396,42.8509 -78.8353,42.8633 -78.8372,42.876 -78.8422,42.883 -78.8526,42.8915 -78.8588,42.8953 -78.8646,42.8965 -78.8917,42.8981 -78.8983,42.9007 -78.9088,42.9132 -78.9148,42.916 -78.9313,42.9194 -78.941,42.9229 -78.9469,42.9269 -78.9514,42.9328 -78.9563,42.9447 -78.9591,42.9584 -78.9577,42.97 -78.9522,42.9803 -78.9461,42.9879 -78.9462,42.9885 -78.9544,43.0044 -78.9584,43.0085 -78.9632,43.0078 -78.9679,43.0083 -78.9721,43.0062 -78.9861,42.996 -78.9913,42.9942 -78.9981,42.9926 -79.0156,42.9932 -79.0316,42.9905 -79.0383,42.9916 -79.0429,42.9944 -79.0356,42.9942 -79.0243,42.9973 -78.9932,42.9973 -78.9747,43.0094 -78.9747,43.0127 -78.977,43.0145 -78.9932,43.016 -79.0085,43.0181 -79.0153,43.0236 -79.0167,43.0311 -79.0126,43.0386 -79.0037,43.0434 -78.9975,43.0503 -78.9948,43.0572 -78.9982,43.0606 -79.0009,43.0668 -79.0002,43.075 -78.9954,43.0798 -78.9865,43.0853 -78.9797,43.0915 -78.9817,43.1052 -78.9865,43.1141 -78.9879,43.121 -78.9858,43.1395 -78.9845,43.1463 -78.9852,43.1518 -78.9879,43.1601 -78.9865,43.169 -78.9879,43.182 -78.9906,43.1964 -78.9961,43.2067 -78.9989,43.2108 -79.0159,43.2086 -79.0402,43.2036 -79.0585,43.2038 -79.1083,43.1816 -79.1277,43.175 -79.1314,43.1759 -79.1333,43.1861 -79.1363,43.1906 -79.1388,43.189 -79.1377,43.1796 -79.141,43.1769 -79.1425,43.1875 -79.1452,43.1873 -79.1472,43.1826 -79.1457,43.1779 -79.1469,43.1716 -79.176,43.1548 -79.1854,43.1518 -79.2121,43.1451 -79.2236,43.139 -79.2414,43.1329 -79.2562,43.1325 -79.2984,43.1347 -79.3235,43.1428 -79.339,43.1451 -79.3612,43.1459 -79.4182,43.1437 -79.4312,43.1432 -79.4496,43.1438 -79.4608,43.1459 -79.4806,43.153 -79.5171,43.1555 -79.5471,43.172 -79.552,43.1734 -79.5792,43.1721 -79.5798,43.1722 -79.5879,43.1734 -79.6011,43.177 -79.6166,43.1836 -79.6447,43.1894 -79.6535,43.193 -79.6712,43.1956 -79.6811,43.2007 -79.6899,43.2086 -79.7115,43.2373 -79.7131,43.2399 -79.7213,43.2527 -79.7224,43.258 -79.7175,43.2676 -79.6947,43.2818 -79.655,43.3129 -79.6438,43.3188 -79.6318,43.3387 -79.616,43.3504 -79.6103,43.3619 -79.5906,43.3865 -79.5656,43.4145 -79.5531,43.4213 -79.5371,43.4387 -79.531,43.447 -79.5269,43.4587 -79.527,43.4759 -79.5085,43.4969 -79.4715,43.5235 -79.4678,43.5302 -79.4631,43.5332 -79.448,43.5394 -79.4233,43.5442 -79.4207,43.5487 -79.4083,43.5601 -79.4072,43.5658 -79.3942,43.5808 -79.3878,43.5848 -79.3802,43.5849 -79.3516,43.579 -79.3403,43.5787 -79.3277,43.5809 -79.321,43.585 -79.308,43.5862 -79.2959,43.5902 -79.2871,43.5901 -79.2783,43.5848 -79.2686,43.5841 -79.2575,43.5917 -79.2543,43.5922 -79.2509,43.5879 -79.2532,43.5834 -79.2571,43.5797 -79.2694,43.5679 -79.2669,43.5643 -79.2598,43.566 -79.2483,43.5774 -79.2436,43.591 -79.2435,43.6027 -79.2339,43.6004 -79.2322,43.6026 -79.2334,43.6064 -79.2216,43.6147 -79.2056,43.6195 -79.1949,43.6261 -79.1848,43.6374 -79.1595,43.6536 -79.1544,43.6607 -79.1066,43.6986 -79.0825,43.7057 -79.0692,43.7117 -79.0604,43.7184 -79.0582,43.7206 -79.0404,43.739 -79.0127,43.7604 -79.0202,43.7646 -79.02,43.7708 -79.018,43.7714 -79.0141,43.7687 -79.0064,43.7669 -79.0061,43.7635 -78.9957,43.7586 -78.9767,43.7581 -78.9668,43.762 -78.9569,43.7631 -78.942,43.7661 -78.9215,43.7745 -78.9077,43.7767 -78.8975,43.7804 -78.8926,43.7845 -78.8605,43.7987 -78.8628,43.8048 -78.8619,43.8073 -78.859,43.8074 -78.854,43.8034 -78.8252,43.796 -78.8203,43.8006 -78.8173,43.8016 -78.8144,43.8026 -78.7907,43.8009 -78.7602,43.8079 -78.7477,43.815 -78.7356,43.8183 -78.7258,43.8183 -78.7165,43.8155 -78.7084,43.8176 -78.6772,43.8183 -78.6506,43.8167 -78.6408,43.8162 -78.6135,43.8258 -78.6064,43.8295 -78.5915,43.8418 -78.5883,43.8396 -78.581,43.8392 -78.5428,43.8461 -78.4912,43.8457 -78.4649,43.8454 -78.4561,43.8479 -78.4242,43.8488 -78.4114,43.8467 -78.3986,43.8471 -78.3835,43.8518 -78.3724,43.8579 -78.3648,43.8602 -78.3446,43.8617 -78.3268,43.8648 -78.3239,43.8662 -78.2994,43.8775 -78.2896,43.8795 -78.2708,43.8796 -78.2514,43.8855 -78.2178,43.8907 -78.2141,43.8955 -78.185,43.8994 -78.1614,43.901 -78.1552,43.9014 -78.1358,43.8985 -78.1255,43.9021 -78.1091,43.9039 -78.0407,43.9059 -78.0339,43.9074 -78.0175,43.9147 -78.001,43.914 -77.9921,43.9155 -77.9796,43.9176 -77.9669,43.9171 -77.946,43.9124 -77.933,43.9119 -77.911,43.9214 -77.8959,43.9249 -77.8867,43.9244 -77.864,43.9196 -77.8551,43.9195 -77.8355,43.9236 -77.8265,43.9273 -77.8222,43.929 -77.8023,43.9269 -77.785,43.9365 -77.7432,43.9505 -77.722,43.952 -77.7067,43.9548 -77.6683,43.9534 -77.6634,43.9506 -77.653,43.9449 -77.6487,43.9384 -77.6289,43.9363 -77.6108,43.9434 -77.6037,43.9444 -77.5963,43.9474 -77.5988,43.9507 -77.6051,43.9516 -77.6273,43.9495 -77.6379,43.9462 -77.6481,43.9466 -77.6541,43.9523 -77.6645,43.9584 -77.6557,43.9662 -77.6535,43.9661 -77.6471,43.9661 -77.6435,43.9691 -77.6427,43.9762 -77.6368,43.9751 -77.631,43.9782 -77.6235,43.9768 -77.6051,43.984 -77.606,43.9767 -77.614,43.9735 -77.6164,43.9661 -77.6143,43.9623 -77.6081,43.9614 -77.5982,43.9666 -77.5926,43.9678 -77.5691,43.9673 -77.5583,43.9699 -77.5474,43.9779 -77.5346,43.981 -77.526,43.981 -77.5209,43.9786 -77.5201,43.9743 -77.5197,43.9721 -77.5122,43.9712 -77.5115,43.9638 -77.4986,43.9565 -77.4943,43.9553 -77.4885,43.9582 -77.4629,43.9541 -77.4542,43.9494 -77.4506,43.942 -77.4539,43.939 -77.464,43.9394 -77.4688,43.9367 -77.4797,43.936 -77.4866,43.9394 -77.4924,43.9389 -77.4908,43.934 -77.494,43.9337 -77.5077,43.9449 -77.5088,43.9459 -77.5123,43.9459 -77.5133,43.9434 -77.4863,43.9208 -77.4756,43.9194 -77.4561,43.9127 -77.4478,43.9067 -77.4399,43.8905 -77.4299,43.8917 -77.4371,43.8977 -77.4344,43.8994 -77.4298,43.9003 -77.4211,43.9064 -77.4108,43.9092 -77.4072,43.9084 -77.4184,43.9 -77.4199,43.8953 -77.4249,43.8912 -77.4232,43.889 -77.4178,43.8889 -77.4069,43.8892 -77.4025,43.8861 -77.4066,43.8818 -77.4117,43.8816 -77.4176,43.8855 -77.4164,43.8739 -77.4094,43.8739 -77.393,43.8779 -77.3604,43.8761 -77.3513,43.8803 -77.3405,43.8799 -77.3174,43.8842 -77.2797,43.8953 -77.2654,43.8987 -77.2469,43.9031 -77.2281,43.906 -77.217,43.9055 -77.2123,43.9018 -77.2119,43.8976 -77.2207,43.8881 -77.2127,43.8885 -77.2024,43.8968 -77.196,43.8998 -77.1869,43.8985 -77.1693,43.9068 -77.1667,43.9048 -77.1734,43.8866 -77.1771,43.8852 -77.1795,43.8886 -77.1889,43.8849 -77.1964,43.8838 -77.1974,43.881 -77.1828,43.8808 -77.1807,43.877 -77.1889,43.8649 -77.1931,43.8614 -77.1992,43.8614 -77.2088,43.8687 -77.2218,43.8741 -77.2322,43.8842 -77.2198,43.8956 -77.2236,43.8963 -77.2385,43.8911 -77.2526,43.8986 -77.2541,43.8968 -77.2079,43.8553 -77.2016,43.847 -77.2009,43.8396 -77.1978,43.8394 -77.1914,43.8441 -77.1783,43.8451 -77.1671,43.8508 -77.1596,43.8515 -77.1539,43.8492 -77.1492,43.8457 -77.1388,43.8377 -77.1379,43.8342 -77.1415,43.8286 -77.1528,43.8197 -77.1637,43.8138 -77.1674,43.8094 -77.1653,43.8058 -77.1399,43.8032 -77.1321,43.8046 -77.1285,43.808 -77.107,43.8146 -77.0939,43.8145 -77.0851,43.8063 -77.0841,43.7975 -77.0837,43.7943 -77.0793,43.7887 -77.0757,43.7875 -77.0645,43.7928 -77.0526,43.7936 -77.0371,43.8036 -77.0132,43.8133 -77.0046,43.8138 -76.9659,43.8373 -76.9608,43.8374 -76.9545,43.8347 -76.9434,43.8341 -76.9427,43.8343 -76.93,43.8377 -76.9247,43.8456 -76.913,43.8551 -76.8952,43.8648 -76.8768,43.868 -76.871,43.8769 -76.8632,43.8779 -76.8377,43.8751 -76.8206,43.883 -76.8068,43.8825 -76.7999,43.8859 -76.7957,43.8879 -76.795,43.8923 -76.8002,43.9002 -76.8175,43.8986 -76.8728,43.8853 -76.8785,43.8851 -76.8844,43.8891 -76.8884,43.895 -76.8948,43.895 -76.9139,43.8881 -76.9256,43.8894 -76.93,43.8908 -76.9345,43.8911 -76.9369,43.8898 -76.9421,43.8768 -76.9475,43.8689 -76.9574,43.8613 -76.9616,43.8664 -76.9674,43.868 -76.9686,43.871 -76.9607,43.8806 -76.9614,43.8972 -76.9443,43.9087 -76.9513,43.914 -76.9491,43.9162 -76.93,43.9162 -76.93,43.9372 -76.9325,43.9385 -76.944,43.9315 -76.9481,43.9318 -76.9491,43.936 -76.9457,43.9403 -76.9388,43.9443 -76.93,43.9472 -76.9187,43.9561 -76.9035,43.962 -76.8955,43.9683 -76.891,43.9753 -76.8872,43.9689 -76.8829,43.9678 -76.8685,43.9698 -76.8325,43.9845 -76.8311,43.9876 -76.8328,43.9946 -76.8331,43.9955 -76.8271,44.0102 -76.8176,44.0136 -76.8081,44.0209 -76.7873,44.0279 -76.7819,44.0326 -76.7756,44.0452 -76.7746,44.0547 -76.7759,44.0595 -76.78,44.062 -76.7865,44.0606 -76.8069,44.0477 -76.816,44.0466 -76.8239,44.0431 -76.8305,44.0403 -76.8353,44.0335 -76.8487,44.0261 -76.8699,44.0083 -76.8784,44.0052 -76.8961,44.0012 -76.9269,43.9905 -76.93,43.991 -76.93,44.0109 -76.924,44.0121 -76.9123,44.0099 -76.9042,44.0117 -76.8936,44.0163 -76.8903,44.02 -76.8897,44.0269 -76.8814,44.0319 -76.874,44.0386 -76.8732,44.0421 -76.8657,44.0459 -76.8585,44.0544 -76.8553,44.0548 -76.8519,44.0551 -76.8471,44.0594 -76.8391,44.0597 -76.8276,44.0642 -76.8177,44.0713 -76.8048,44.0752 -76.7934,44.0808 -76.7836,44.0884 -76.7472,44.1079 -76.7225,44.1172 -76.7141,44.1247 -76.7111,44.1274 -76.7025,44.1278 -76.6992,44.1319 -76.6915,44.1322 -76.6814,44.135 -76.673,44.1395 -76.6544,44.1513 -76.636,44.1549 -76.6295,44.1615 -76.6244,44.1618 -76.619,44.1542 -76.6083,44.1558 -76.6027,44.1622 -76.5672,44.1692 -76.5562,44.1784 -76.5529,44.1846 -76.554,44.1912 -76.5429,44.1869 -76.5532,44.1722 -76.5542,44.1677 -76.5526,44.1651 -76.5582,44.1544 -76.554,44.1539 -76.5453,44.1607 -76.5356,44.1602 -76.5277,44.1635 -76.5213,44.163 -76.5155,44.168 -76.499,44.1567 -76.4949,44.157 -76.4884,44.1611 -76.4846,44.1613 -76.4818,44.1544 -76.4767,44.1547 -76.4727,44.1592 -76.4705,44.1616 -76.4669,44.163 -76.4588,44.1624 -76.4361,44.1696 -76.4235,44.1693 -76.4126,44.1737 -76.3992,44.1766 -76.3953,44.1783 -76.3863,44.1809 -76.3867,44.1765 -76.385,44.1753 -76.3836,44.1761 -76.3769,44.1802 -76.3645,44.1831 -76.3458,44.1916 -76.3429,44.1969 -76.338,44.2009 -76.3186,44.2072 -76.3121,44.2164 -76.2958,44.2172 -76.2914,44.2202 -76.2758,44.2235 -76.2473,44.2415 -76.2477,44.2442 -76.2478,44.2451 -76.2458,44.2473 -76.1939,44.2571 -76.1746,44.259 -76.1579,44.2715 -76.1523,44.2728 -76.1496,44.2718 -76.1441,44.2637 -76.1355,44.2619 -76.1297,44.2563 -76.1172,44.2663 -76.1061,44.2728 -76.0964,44.277 -76.0825,44.2791 -76.0449,44.2913 -76.0388,44.291 -76.0313,44.2981 -76.0232,44.3019 -76.0098,44.3029 -75.9866,44.2993 -75.9778,44.3005 -75.9608,44.3108 -75.9506,44.3153 -75.9471,44.3169 -75.933,44.3194 -75.9087,44.32 -75.9053,44.3211 -75.8951,44.3249 -75.8826,44.3273 -75.8709,44.3342 -75.8549,44.348 -75.8405,44.356 -75.8398,44.3584 -75.846,44.3589 -75.8044,44.3984 -75.7952,44.4062 -75.7632,44.4331 -75.7614,44.4369 -75.7554,44.4404 -75.7463,44.4424 -75.7398,44.4584 -75.7346,44.4628 -75.7303,44.4644 -75.7118,44.4796 -75.7066,44.4819 -75.6929,44.4938 -75.6843,44.4947 -75.6826,44.4966 -75.6777,44.502 -75.67,44.5016 -75.6673,44.5033 -75.6635,44.5093 -75.6575,44.5131 -75.6543,44.5215 -75.6288,44.5403 -75.6104,44.5482 -75.5735,44.5745 -75.5611,44.5812 -75.5481,44.5916 -75.5398,44.5953 -75.5268,44.6087 -75.5173,44.6124 -75.5058,44.622 -75.5027,44.6291 -75.497,44.6327 -75.4895,44.6342 -75.4851,44.6441 -75.477,44.6496 -75.4486,44.6609 -75.4407,44.6677 -75.4342,44.6732 -75.4203,44.6758 -75.4132,44.6815 -75.4052,44.696 -75.3939,44.7019 -75.3852,44.7111 -75.3778,44.7136 -75.3765,44.7107 -75.3789,44.706 -75.3769,44.7031 -75.3696,44.7122 -75.3649,44.7286 -75.3614,44.7313 -75.356,44.7325 -75.339,44.7327 -75.336,44.7327 -75.3242,44.7396 -75.3134,44.7415 -75.3049,44.7578 -75.2816,44.7752 -75.268,44.7746 -75.2552,44.7785 -75.2478,44.7789 -75.2439,44.784 -75.2418,44.7949 -75.2318,44.8039 -75.2204,44.8087 -75.219,44.8087 -75.2104,44.809 -75.2012,44.8132 -75.1939,44.8142 -75.1843,44.8214 -75.1567,44.8319 -75.1353,44.8376 -75.1235,44.8449 -75.104,44.8533 -75.0906,44.8547 -75.0845,44.8578 -75.0696,44.8699 -75.0609,44.877 -75.0401,44.8788 -75.0352,44.8811 -75.0313,44.8836 -75.0068,44.8849 -75.0025,44.8865 -75.001,44.8914 -74.9741,44.9024 -74.9522,44.913 -74.944,44.9185 -74.9363,44.9315 -74.9311,44.9348 -74.93,44.935 -74.8987,44.9406 -74.8922,44.9408 -74.8678,44.9417 -74.8329,44.9494 -74.8318,44.95 -74.8262,44.9526 -74.8212,44.9549 -74.8197,44.9561 -74.7915,44.9778 -74.7831,44.9812 -74.7709,44.9825 -74.7623,44.9806 -74.7495,44.9723 -74.7369,44.9727 -74.7303,44.9712 -74.7258,44.9667 -74.7155,44.9673 -74.7031,44.9645 -74.6734,44.9649 -74.6692,44.9653 -74.6564,44.9667 -74.6364,44.9711 -74.6036,44.9842 -74.6071,44.9539 -74.5772,44.9558 -74.1446,44.9411 -73.8078,44.9489 -73.5195,44.9555 -73.2649,44.9597 -73.2498,44.9584 -73.2385,44.9606 -72.8538,44.9673 -72.6768,44.9698 -72.4083,44.9661 -72.3573,44.9665 -72.1702,44.9677 -71.9489,44.9683 -71.7919,44.968 -71.4543,44.969 -71.3939,44.9693 -71.3981,44.9984 -71.3885,45.0266 -71.3593,45.0515 -71.3341,45.0764 -71.3012,45.1629 -71.3241,45.1986 -71.2211,45.2454 -71.1955,45.2523 -71.1726,45.2448 -71.1364,45.2251 -71.1119,45.2145 -71.0799,45.2045 -71.0435,45.2013 -70.9854,45.2562 -70.9214,45.2753 -70.7772,45.1895 -70.5976,45.4118 -70.6134,45.4261 -70.6255,45.4456 -70.621,45.4765 -70.5935,45.5202 -70.5324,45.5757 -70.4776,45.6089 -70.4561,45.6208 -70.3676,45.6599 -70.2946,45.7258 -70.1591,45.8567 -70.1458,45.908 -70.1703,45.9211 -70.2057,45.9277 -70.2063,46.0263 -70.1882,46.1506 -70.1429,46.2265 -70.1009,46.2837 -70.0196,46.3408 -69.9789,46.3648 -69.9579,46.3783 -69.9485,46.4009 -69.9447,46.4221 -69.9393,46.4571 -69.9276,46.5343 -69.9098,46.6448 -69.8931,46.6625 -69.7477,46.8086 -69.6132,46.9435 -69.5546,47.0016 -69.3244,47.2293 -69.2059,47.3462 -69.1368,47.4135 -69.0291,47.4049 -68.9464,47.3767 -68.9456,47.349 -68.9537,47.3265 -68.957,47.2882 -68.9568,47.2774 -68.8411,47.2767 -68.7832,47.2885 -68.7734,47.2892 -68.7704,47.2912 -68.7078,47.3051 -68.6743,47.3166 -68.5089,47.3729 -68.5019,47.3752 -68.3754,47.4597 -68.3381,47.4821 -68.3367,47.4848 -68.3123,47.5014 -68.3115,47.5997 -68.3113,47.6233 -68.313,47.7252 -68.3132,47.7384 -68.3112,47.7653 -68.3109,47.8507 -68.3109,47.863 -68.1424,47.8649 -68.052,47.8658 -68.0499,47.9306 -68.0493,47.9491 -68.0405,47.95 -67.534,47.95 -67.5315,47.9461 -67.5343,47.9387 -67.5352,47.9365 -67.5256,47.9223 -67.5258,47.9145 -67.535,47.8886 -67.5314,47.8817 -67.5234,47.8764 -67.5079,47.871 -67.4902,47.8714 -67.4538,47.861 -67.4456,47.855 -67.4041,47.8399 -67.3556,47.8222 -67.3441,47.8207 -67.3317,47.8151 -67.3224,47.8054 -67.3167,47.8049 -67.3141,47.8012 -67.321,47.7953 -67.3086,47.791 -67.3034,47.7928 -67.2947,47.7911 -67.2905,47.7931 -67.2901,47.7977 -67.2943,47.8048 -67.2859,47.8118 -67.2858,47.8166 -67.2844,47.8181 -67.2753,47.8148 -67.2719,47.8152 -67.2687,47.8209 -67.2674,47.8293 -67.2711,47.8326 -67.2815,47.837 -67.2828,47.8396 -67.2807,47.8411 -67.2729,47.8401 -67.2595,47.834 -67.2313,47.8336 -67.2251,47.8381 -67.2299,47.8455 -67.2218,47.8456 -67.2057,47.8376 -67.1904,47.8367 -67.1843,47.8324 -67.1821,47.8309 -67.1733,47.8306 -67.1637,47.8334 -67.159,47.8326 -67.1504,47.8241 -67.1444,47.8224 -67.1163,47.8282 -67.1084,47.8312 -67.1027,47.8394 -67.0959,47.8418 -67.0805,47.8377 -67.0738,47.8399 -67.0686,47.8439 -67.0637,47.8605 -67.0592,47.862 -67.0434,47.8611 -67.0388,47.8608 -67.023,47.867 -67.0097,47.8686 -67.0032,47.8712 -66.9984,47.8801 -66.9919,47.8811 -66.9802,47.8802 -66.9245,47.8486 -66.9169,47.8439 -66.9031,47.8392 -66.8914,47.8399 -66.8844,47.8429 -66.8771,47.8488 -66.8809,47.8542 -66.8979,47.8601 -66.9014,47.8655 -66.898,47.8837 -66.8947,47.8907 -66.8825,47.8999 -66.8706,47.9184 -66.8607,47.9259 -66.8449,47.9328 -66.8113,47.9412 -66.7966,47.9431 -66.7744,47.9438 -66.747,47.9414 -66.7473,47.9416 -66.6673,47.9513 -66.5741,47.9723 -66.4317,48.028 -66.41,48.0471 -66.3858,48.0604 -66.3363,48.0634 -66.3055,48.0608 -66.147,48.0543 -66.034,48.0521 -65.9293,48.084 -65.9114,48.1042 -65.8577,48.135 -65.801,48.1472 -65.6691,48.0549 -65.5942,48.0387 -65.4015,47.9887 -65.381,47.9608 -65.3653,47.9465 -65.2327,47.9474 -65.2116,47.9507 -65.1758,47.9579 -65.1056,47.9774 -65.059,47.9971 -64.8786,48.0802 -64.8378,48.1166 -64.7793,48.1256 -64.6805,48.1422 -64.6625,48.18 -64.6374,48.2193 -64.5924,48.2829 -64.493,48.313 -64.4062,48.3377 -64.3327,48.3489 -64.229,48.3816 -64.1531,48.4325 -64.1258,48.4727 -64.1523,48.4912 -64.1754,48.4941 -64.1877,48.5099 -64.1788,48.5432 -64.1621,48.5613 -64.0994,48.5681 -64.0721,48.5721 -64.1679,48.6538 -64.2803,48.7319 -64.3703,48.7686 -64.4362,48.8179 -64.2925,48.7929 -64.2217,48.773 -64.2008,48.7667 -64.1433,48.7446 -64.1172,48.7288 -64.0641,48.7041 -64.1178,48.8291 -64.1345,48.8482 -64.2822,48.9417 -64.5026,49.0585 -64.5461,49.0626 -64.5661,49.0666 -64.6455,49.0888 -64.674,49.1009 -64.7012,49.1193 -64.7302,49.1312 -64.8212,49.1501 -64.9013,49.1637 -65.2637,49.2 -65.2981,49.2033 -65.3511,49.2058 -65.4007,49.2051 -65.5819,49.1892 -65.7356,49.1749 -65.9847,49.1627 -66.1279,49.1446 -66.2085,49.1307 -66.3241,49.1066 -66.6245,49.0336 -66.8216,48.9715 -66.8629,48.9556 -66.8935,48.943 -66.9178,48.9307 -66.9695,48.9107 -66.9896,48.9049 -67.1113,48.8797 -67.4325,48.8031 -67.6104,48.7378 -67.8746,48.6396 -68.0194,48.594 -68.0578,48.5936 -68.0799,48.5908 -68.1028,48.5842 -68.1377,48.5697 -68.184,48.5445 -68.2431,48.5022 -68.2621,48.4937 -68.2762,48.4908 -68.3083,48.4925 -68.3287,48.488 -68.3542,48.4771 -68.3719,48.4624 -68.3975,48.4346 -68.4167,48.4112 -68.4358,48.3987 -68.5953,48.3412 -68.7318,48.2892 -68.8407,48.2399 -68.8688,48.2249 -68.9162,48.199 -68.954,48.1733 -68.9943,48.1439 -69.0162,48.1237 -69.175,48.0127 -69.3173,47.9458 -69.3504,47.9242 -69.3693,47.9072 -69.4031,47.8742 -69.4265,47.8492 -69.4439,47.8288 -69.4561,47.8067 -69.4929,47.7542 -69.5397,47.7081 -69.5592,47.69 -69.7055,47.5587 -69.7986,47.4849 -69.8671,47.4516 -69.9431,47.3403 -69.9786,47.3071 -70.0106,47.2864 -70.1726,47.1597 -70.2097,47.123 -70.2337,47.1019 -70.3604,46.9998 -70.3857,46.98 -70.4064,46.9667 -70.438,46.9502 -70.4742,46.9399 -70.511,46.9354 -70.5371,46.9279 -70.6427,46.8896 -70.6683,46.8637 -70.8859,46.8007 -70.9821,46.7939 -71.0076,46.7975 -70.9808,46.7999 -70.936,46.808 -70.9078,46.8177 -70.803,46.8601 -70.7865,46.87 -70.7761,46.8774 -70.7133,46.9446 -70.708,46.9548 -70.7152,46.9673 -70.7398,46.975 -70.759,46.9743 -70.771,46.9706 -70.7955,46.9598 -70.8359,46.9388 -70.9772,46.86 -70.9977,46.8445 -71.0202,46.8206 -71.0271,46.8045 -71.0132,46.7965 -71.0439,46.7901 -71.0712,46.7696 -71.0854,46.7462 -71.1028,46.7324 -71.1844,46.6933 -71.1977,46.6889 -71.0927,46.7988 -71.0122,46.8588 -70.8723,46.9499 -70.8217,46.9784 -70.7922,46.9917 -70.7659,46.9978 -70.7196,47.0041 -70.6912,47.0147 -70.6263,47.0448 -70.5985,47.0724 -70.4852,47.204 -70.4718,47.2238 -70.4664,47.247 -70.4546,47.2687 -70.4014,47.3367 -70.3609,47.3759 -70.2408,47.4063 -70.1988,47.4126 -70.1254,47.4432 -70.1072,47.4759 -70.1059,47.5166 -70.0841,47.5492 -70.0319,47.5907 -69.9821,47.6168 -69.9082,47.653 -69.83,47.714 -69.7385,47.8523 -69.6857,47.94 -69.6317,48.0526 -69.8273,48.1638 -69.894,48.1849 -69.9241,48.1901 -69.96,48.1848 -70.1024,48.2109 -70.1358,48.2274 -70.1708,48.2431 -70.2302,48.2612 -70.2809,48.276 -70.3621,48.294 -70.3965,48.2979 -70.4457,48.3009 -70.6725,48.2939 -70.682,48.3321 -70.8033,48.368 -70.9362,48.3884 -70.9154,48.404 -70.8774,48.4068 -70.8516,48.4043 -70.677,48.3803 -70.6537,48.3749 -70.6309,48.3642 -70.5323,48.3353 -70.3219,48.3058 -70.1707,48.2703 -70.0662,48.2248 -70.0399,48.2168 -69.9984,48.2121 -69.9422,48.2118 -69.8881,48.2195 -69.867,48.2169 -69.7804,48.1673 -69.7657,48.1505 -69.7392,48.1211 -69.7045,48.0996 -69.5905,48.0824 -69.5776,48.0858 -69.497,48.1522 -69.3541,48.2367 -69.3344,48.2501 -69.1961,48.3968 -69.1821,48.4323 -69.1805,48.4544 -69.1645,48.486 -69.1273,48.5307 -69.0922,48.5309 -69.0533,48.5331 -69.0232,48.559 -69.0112,48.5769 -69.002,48.5986 -68.9943,48.6276 -68.9863,48.6598 -68.9584,48.7104 -68.7763,48.7961 -68.5957,48.8841 -68.5254,48.9676 -68.5064,48.9864 -68.4902,48.998 -68.4709,49.0048 -68.342,49.0394 -68.2693,49.0133 -68.1215,49.0439 -68.0942,49.0539 -68.0438,49.1743 -68.0341,49.203 -67.8754,49.2283 -67.8392,49.2313 -67.6068,49.2563 -67.4743,49.273 -67.3744,49.2701 -67.3301,49.2664 -67.2952,49.2653 -67.273,49.2733 -67.1329,49.4184 -67.1297,49.4533 -67.1398,49.4961 -67.1403,49.5278 -67.0746,49.7075 -67.0571,49.7414 -67.0425,49.7598 -67.0193,49.7778 -66.9964,49.7863 -66.969,49.7884 -66.9169,49.7974 -66.8648,49.8596 -66.8761,49.8803 -66.8757,49.8861 -66.8653,49.9087 -66.8509,49.9228 -66.8208,49.9428 -66.7897,49.957 -66.7622,49.9651 -66.6232,50.0207 -66.6006,50.0448 -66.4118,50.1811 -66.3945,50.1915 -66.3693,50.2038 -66.3488,50.2099 -66.3211,50.2077 -66.3065,50.1848 -66.2144,50.1519 -66.0637,50.1394 -65.9869,50.1346 -65.9437,50.1643 -65.925,50.1936 -65.8992,50.2138 -65.8809,50.2231 -65.8529,50.2308 -65.8185,50.2304 -65.7987,50.2271 -65.7709,50.2146 -65.7384,50.1983 -65.6485,50.1988 -65.5913,50.2033 -65.4911,50.2174 -65.4226,50.2277 -65.3877,50.2373 -65.3655,50.2415 -65.1766,50.2499 -65.1379,50.2461 -65.0869,50.2282 -64.8022,50.2128 -64.6273,50.2166 -64.562,50.2194 -64.5223,50.2222 -64.4125,50.2449 -64.3734,50.2599 -64.3527,50.2609 -64.3128,50.2521 -64.2723,50.2355 -64.1658,50.2135 -64.1282,50.2079 -64.0612,50.2043 -64.0372,50.2116 -63.9704,50.2341 -63.8796,50.2474 -63.7159,50.2539 -63.6007,50.2338 -63.5536,50.2146 -63.5206,50.2085 -63.4697,50.2062 -63.3735,50.1991 -63.3199,50.1879 -63.7448,51.9426 -63.7342,51.9581 -63.7348,51.9695 -63.7412,51.9789 -63.7463,51.9819 -63.7623,51.9823 -63.7668,51.9913 -63.7711,52.0209 -63.7636,52.0324 -63.7523,52.0351 -63.7401,52.0357 -63.7185,52.0226 -63.7083,52.02 -63.6963,52.0139 -63.6963,52.0149 -63.6654,52.0044 -63.6473,51.9972 -63.6289,51.9987 -63.6158,52.0016 -63.6024,51.9919 -63.5812,51.9914 -63.5803,51.9949 -63.5991,52.0158 -63.6026,52.0269 -63.6161,52.0377 -63.6225,52.0387 -63.6338,52.0353 -63.6337,52.0617 -63.623,52.0803 -63.636,52.116 -63.6468,52.1299 -63.6544,52.1544 -63.6752,52.1759 -63.6784,52.1827 -63.6874,52.1881 -63.6889,52.1968 -63.682,52.2032 -63.6832,52.2088 -63.6971,52.2194 -63.712,52.2237 -63.7031,52.2286 -63.7028,52.2336 -63.7089,52.2394 -63.7257,52.248 -63.7407,52.2489 -63.7569,52.2548 -63.7579,52.258 -63.7506,52.2598 -63.7372,52.2566 -63.7153,52.2577 -63.6895,52.253 -63.6787,52.2536 -63.6724,52.2584 -63.6733,52.2641 -63.6832,52.2667 -63.707,52.279 -63.7397,52.281 -63.7594,52.2849 -63.7609,52.2805 -63.7549,52.275 -63.7616,52.2707 -63.7737,52.2726 -63.7847,52.2699 -63.794,52.2701 -63.8037,52.2739 -63.8415,52.2917 -63.8827,52.3015 -63.898,52.3095 -63.9114,52.3091 -63.9298,52.3135 -63.937,52.3148 -63.9586,52.3391 -63.9589,52.3425 -63.9518,52.3503 -63.9579,52.3643 -63.9632,52.3687 -63.9915,52.383 -64.0074,52.3937 -64.0218,52.4113 -64.0211,52.4283 -64.0141,52.4468 -64.0055,52.4505 -64.0035,52.4572 -63.9972,52.4662 -63.98,52.4841 -63.9751,52.5001 -63.9739,52.507 -63.9659,52.5143 -63.9453,52.5191 -63.9156,52.532 -63.9038,52.5347 -63.8672,52.5494 -63.8481,52.55 -63.8225,52.5625 -63.8035,52.5688 -63.794,52.5728 -63.7866,52.5735 -63.7782,52.5717 -63.7545,52.5722 -63.7454,52.5757 -63.6903,52.5827 -63.6388,52.5831 -63.6102,52.587 -63.5821,52.5888 -63.5379,52.5958 -63.538,52.5967 -63.4645,52.5991 -63.4486,52.5986 -63.4399,52.598 -63.4245,52.5984 -63.4109,52.5974 -63.382,52.5985 -63.3616,52.597 -63.3434,52.6099 -63.3273,52.6064 -63.3186,52.6108 -63.3157,52.6166 -63.3241,52.6328 -63.3319,52.6372 -63.3522,52.6417 -63.3816,52.6653 -63.3996,52.6739 -63.3995,52.673 -63.4185,52.6752 -63.441,52.6782 -63.4523,52.6781 -63.4671,52.6846 -63.4825,52.6933 -63.495,52.7082 -63.5314,52.7195 -63.5455,52.7205 -63.5509,52.7272 -63.5504,52.7391 -63.527,52.7489 -63.5294,52.7596 -63.5259,52.7812 -63.5171,52.7899 -63.5173,52.7972 -63.5275,52.8059 -63.5408,52.811 -63.5439,52.8315 -63.5478,52.8323 -63.5546,52.8316 -63.5599,52.8232 -63.5582,52.8027 -63.5608,52.7971 -63.5835,52.8067 -63.598,52.8077 -63.6006,52.8035 -63.5875,52.786 -63.5865,52.7739 -63.599,52.7697 -63.6207,52.7679 -63.6445,52.7632 -63.6595,52.7525 -63.6684,52.7424 -63.6745,52.7383 -63.6758,52.7273 -63.6999,52.7259 -63.6998,52.7249 -63.7145,52.7201 -63.7394,52.7164 -63.7542,52.7175 -63.7897,52.7262 -63.7999,52.7259 -63.8151,52.719 -63.8212,52.7111 -63.842,52.7072 -63.8517,52.7023 -63.866,52.6888 -63.8801,52.6815 -63.8941,52.6787 -63.9152,52.6785 -63.9386,52.683 -63.9459,52.6887 -63.9606,52.6919 -63.9721,52.6903 -63.9827,52.6822 -63.9922,52.6828 -64.0072,52.6866 -64.0264,52.6862 -64.0352,52.6827 -64.0486,52.6852 -64.0583,52.6881 -64.069,52.6862 -64.079,52.6794 -64.0798,52.6762 -64.0743,52.6661 -64.0707,52.6515 -64.0684,52.6425 -64.0729,52.6389 -64.0824,52.6354 -64.0914,52.6353 -64.1027,52.6271 -64.1029,52.6209 -64.0972,52.6003 -64.0969,52.593 -64.1019,52.5827 -64.1016,52.5633 -64.1039,52.5598 -64.1026,52.55 -64.105,52.5474 -64.1237,52.5547 -64.1334,52.5542 -64.1417,52.5502 -64.1427,52.5408 -64.1554,52.5404 -64.1635,52.5419 -64.169,52.541 -64.1685,52.5356 -64.1272,52.5118 -64.1071,52.4935 -64.0962,52.4774 -64.0893,52.46 -64.0811,52.4368 -64.0745,52.3976 -64.0655,52.3734 -64.0548,52.3633 -64.0545,52.348 -64.0686,52.3301 -64.0801,52.3212 -64.0912,52.308 -64.0976,52.2925 -64.1157,52.2907 -64.118,52.2863 -64.1108,52.2659 -64.1145,52.261 -64.1256,52.2567 -64.149,52.2504 -64.1542,52.2463 -64.156,52.2417 -64.1656,52.2413 -64.1798,52.2328 -64.1822,52.2272 -64.1812,52.2199 -64.1669,52.2033 -64.1662,52.1964 -64.1683,52.187 -64.1626,52.1741 -64.1428,52.146 -64.1335,52.1257 -64.1195,52.107 -64.1117,52.0922 -64.1131,52.0786 -64.1166,52.076 -64.1351,52.0877 -64.1478,52.0918 -64.155,52.0926 -64.158,52.0933 -64.1663,52.098 -64.1781,52.0971 -64.1882,52.0858 -64.1907,52.0694 -64.1921,52.057 -64.1954,52.0482 -64.1947,52.0409 -64.1974,52.0376 -64.2187,52.0348 -64.2286,52.0301 -64.2319,52.0252 -64.2293,52.0143 -64.2228,52.0042 -64.2131,51.992 -64.208,51.9738 -64.192,51.9577 -64.1784,51.9355 -64.1759,51.9281 -64.1806,51.927 -64.1888,51.9276 -64.2318,51.9471 -64.2602,51.9646 -64.2744,51.9696 -64.2844,51.969 -64.2927,51.9667 -64.2988,51.9605 -64.299,51.9552 -64.2918,51.9422 -64.2883,51.929 -64.2875,51.913 -64.2831,51.8983 -64.2837,51.8926 -64.2877,51.8842 -64.285,51.8717 -64.2807,51.862 -64.2798,51.8483 -64.2861,51.8369 -64.2921,51.8231 -64.2913,51.8145 -64.2839,51.7951 -64.2625,51.7686 -64.2452,51.7498 -64.2475,51.7389 -64.2452,51.7191 -64.2418,51.7142 -64.2347,51.7092 -64.2248,51.7065 -64.2209,51.7005 -64.2277,51.6865 -64.2492,51.6601 -64.2689,51.6395 -64.278,51.6304 -64.2842,51.6263 -64.2938,51.6221 -64.3032,51.6206 -64.3143,51.6172 -64.3217,51.6171 -64.3332,51.6185 -64.3542,51.6262 -64.3714,51.6215 -64.3809,51.6126 -64.3847,51.588 -64.3902,51.5798 -64.4089,51.5715 -64.4164,51.5694 -64.4239,51.5636 -64.434,51.5619 -64.4463,51.5557 -64.4689,51.5463 -64.489,51.5453 -64.4937,51.5479 -64.4998,51.5534 -64.5082,51.5709 -64.5189,51.5792 -64.5302,51.5811 -64.5419,51.5772 -64.5456,51.5807 -64.5505,51.5961 -64.553,51.6138 -64.5543,51.6266 -64.5605,51.6364 -64.5773,51.6461 -64.6077,51.6545 -64.6243,51.6866 -64.6314,51.7023 -64.6359,51.7061 -64.6459,51.7105 -64.6838,51.7195 -64.6996,51.7223 -64.7081,51.7224 -64.7205,51.7173 -64.7288,51.719 -64.7378,51.7274 -64.7469,51.7291 -64.7752,51.7279 -64.8093,51.7288 -64.8447,51.7283 -64.8656,51.7269 -64.8717,51.7251 -64.8789,51.7174 -64.8752,51.7137 -64.8593,51.71 -64.8572,51.7009 -64.8577,51.689 -64.8606,51.6777 -64.8685,51.6723 -64.8849,51.6739 -64.8933,51.677 -64.9082,51.6878 -64.93,51.699 -64.9313,51.6997 -64.9373,51.7006 -64.963,51.713 -64.9769,51.7181 -64.9851,51.7194 -65.007,51.7166 -65.0238,51.7085 -65.0387,51.7058 -65.0587,51.7064 -65.0755,51.7086 -65.0901,51.7135 -65.1061,51.7146 -65.1112,51.7169 -65.1131,51.7209 -65.1119,51.7267 -65.1037,51.742 -65.1051,51.757 -65.1176,51.7725 -65.1291,51.7732 -65.151,51.7733 -65.167,51.7749 -65.177,51.7777 -65.1831,51.7829 -65.1838,51.7953 -65.1799,51.8062 -65.181,51.8123 -65.1914,51.822 -65.1932,51.8249 -65.2353,51.8241 -65.2395,51.8244 -65.2504,51.8228 -65.2548,51.8161 -65.259,51.802 -65.2588,51.791 -65.2677,51.7819 -65.2745,51.7793 -65.2816,51.7863 -65.2883,51.8025 -65.3135,51.824 -65.3194,51.8336 -65.3135,51.846 -65.2891,51.8652 -65.2821,51.8846 -65.2853,51.9021 -65.2857,51.908 -65.2923,51.9169 -65.2941,51.9292 -65.3007,51.9378 -65.3099,51.9427 -65.3186,51.9416 -65.3295,51.9296 -65.334,51.9271 -65.3739,51.9533 -65.3837,51.9579 -65.3983,51.9703 -65.4103,51.9871 -65.4142,51.9975 -65.4149,52.0123 -65.4116,52.043 -65.4167,52.0544 -65.4287,52.0582 -65.4383,52.0543 -65.4504,52.0407 -65.4613,52.0327 -65.4889,51.9974 -65.5112,51.9911 -65.5208,51.9902 -65.539,51.9962 -65.5494,51.993 -65.5646,51.9785 -65.5772,51.9543 -65.5806,51.9429 -65.5902,51.9365 -65.5959,51.9372 -65.5979,51.9474 -65.5992,51.9725 -65.595,51.9924 -65.5809,52.0043 -65.577,52.0178 -65.5846,52.0427 -65.5958,52.0637 -65.5995,52.0663 -65.6039,52.0684 -65.6079,52.0679 -65.6146,52.0649 -65.6204,52.0628 -65.6331,52.0571 -65.6438,52.0515 -65.6479,52.0488 -65.6568,52.0422 -65.6609,52.0427 -65.675,52.0562 -65.689,52.0551 -65.7002,52.0587 -65.717,52.0585 -65.7418,52.0722 -65.7538,52.0751 -65.7686,52.0714 -65.7863,52.0733 -65.8024,52.0683 -65.81,52.0634 -65.8202,52.0503 -65.8232,52.0453 -65.8341,52.037 -65.8419,52.0373 -65.8566,52.0411 -65.8567,52.042 -65.881,52.0544 -65.8886,52.0521 -65.9011,52.0403 -65.9039,52.0165 -65.9064,52.0127 -65.9113,52.0132 -65.9154,52.0157 -65.9251,52.0161 -65.9377,52.021 -65.9559,52.0345 -65.9733,52.0426 -65.9969,52.0487 -66.0158,52.0484 -66.0224,52.0504 -66.024,52.0565 -66.0144,52.0818 -66.0108,52.1017 -66.0101,52.1157 -66.0135,52.1222 -66.0318,52.1414 -66.0501,52.1655 -66.0601,52.173 -66.0742,52.1805 -66.0826,52.1794 -66.0934,52.1736 -66.1075,52.1621 -66.1157,52.1621 -66.1394,52.1904 -66.1492,52.2124 -66.1554,52.2192 -66.1622,52.2198 -66.1723,52.2252 -66.1865,52.2595 -66.2021,52.2693 -66.2094,52.2677 -66.223,52.256 -66.2237,52.2397 -66.2374,52.2463 -66.2426,52.2433 -66.245,52.2285 -66.2377,52.2062 -66.2395,52.195 -66.235,52.1767 -66.2167,52.1501 -66.2116,52.114 -66.2146,52.1035 -66.2297,52.091 -66.2393,52.0905 -66.245,52.0915 -66.2561,52.101 -66.2702,52.1056 -66.2849,52.1046 -66.2969,52.1101 -66.2994,52.1169 -66.2957,52.1278 -66.2975,52.1376 -66.3187,52.1583 -66.3261,52.1709 -66.3406,52.186 -66.3555,52.1751 -66.3624,52.1738 -66.3796,52.1841 -66.3867,52.1915 -66.392,52.205 -66.3891,52.2159 -66.3724,52.212 -66.366,52.2142 -66.3654,52.2179 -66.3693,52.2264 -66.3832,52.2371 -66.3905,52.2489 -66.401,52.2568 -66.4053,52.2584 -66.4136,52.269 -66.4151,52.2767 -66.413,52.2828 -66.3978,52.2967 -66.3916,52.3002 -66.378,52.3049 -66.3715,52.3121 -66.3673,52.3217 -66.3575,52.3319 -66.3491,52.333 -66.335,52.3294 -66.3251,52.3226 -66.3139,52.3177 -66.3049,52.3104 -66.2837,52.3085 -66.2723,52.313 -66.2726,52.336 -66.2764,52.3491 -66.2928,52.359 -66.2948,52.3651 -66.2891,52.3938 -66.2921,52.4069 -66.2969,52.411 -66.3188,52.4174 -66.3233,52.4255 -66.3229,52.4276 -66.3214,52.4302 -66.3172,52.4295 -66.3051,52.4239 -66.2992,52.4245 -66.2927,52.4294 -66.295,52.4506 -66.3014,52.4583 -66.3195,52.4695 -66.322,52.4732 -66.312,52.4795 -66.3055,52.4895 -66.3091,52.504 -66.3273,52.5282 -66.3576,52.5606 -66.3633,52.5662 -66.3676,52.5775 -66.3653,52.5852 -66.3479,52.6109 -66.3369,52.6211 -66.3252,52.6212 -66.3175,52.6171 -66.2911,52.5912 -66.2624,52.5647 -66.2409,52.5484 -66.2337,52.5483 -66.2194,52.5589 -66.2138,52.5698 -66.2151,52.5816 -66.2379,52.6013 -66.2562,52.629 -66.2653,52.645 -66.2672,52.661 -66.2583,52.6755 -66.2544,52.6878 -66.2579,52.7046 -66.2578,52.7195 -66.2712,52.731 -66.2796,52.7425 -66.2974,52.7557 -66.3092,52.764 -66.32,52.7754 -66.3362,52.7982 -66.3392,52.8166 -66.315,52.817 -66.2751,52.811 -66.258,52.805 -66.2406,52.7977 -66.2363,52.797 -66.2266,52.8 -66.214,52.8133 -66.2065,52.8295 -66.2046,52.8399 -66.2089,52.8487 -66.2191,52.8616 -66.2436,52.8849 -66.2552,52.9121 -66.2587,52.9206 -66.2882,52.9589 -66.3102,52.969 -66.3439,52.976 -66.3671,52.9784 -66.4142,52.9757 -66.4244,52.9747 -66.429,52.9665 -66.427,52.9461 -66.4222,52.914 -66.4298,52.9088 -66.4373,52.9081 -66.4511,52.9141 -66.4578,52.9158 -66.463,52.9095 -66.4755,52.9015 -66.4937,52.8966 -66.5109,52.8973 -66.5257,52.902 -66.5507,52.9139 -66.5585,52.9101 -66.5661,52.9028 -66.5772,52.881 -66.5715,52.8508 -66.5851,52.8455 -66.5883,52.8362 -66.5869,52.8193 -66.5949,52.7823 -66.5946,52.7675 -66.5919,52.7575 -66.5828,52.7399 -66.5858,52.7367 -66.6021,52.7446 -66.6075,52.7431 -66.6189,52.7356 -66.635,52.7147 -66.6421,52.7141 -66.6673,52.7306 -66.6879,52.7386 -66.7086,52.7501 -66.7141,52.7491 -66.6952,52.7075 -66.6909,52.6866 -66.6912,52.6643 -66.7032,52.6435 -66.7012,52.633 -66.6987,52.6267 -66.7018,52.6247 -66.7116,52.6244 -66.7217,52.6312 -66.7343,52.6468 -66.7415,52.6615 -66.7635,52.6942 -66.7718,52.7034 -66.7837,52.705 -66.79,52.6989 -66.792,52.6848 -66.7904,52.675 -66.7931,52.6726 -66.7983,52.6723 -66.8072,52.6736 -66.8083,52.6685 -66.7993,52.6541 -66.7964,52.6455 -66.7984,52.6365 -66.8066,52.633 -66.8147,52.6342 -66.8255,52.6381 -66.8385,52.6489 -66.8627,52.6828 -66.8853,52.7084 -66.8928,52.7148 -66.9022,52.7193 -66.9112,52.719 -66.9279,52.7146 -66.9606,52.7083 -66.9708,52.713 -66.9837,52.7272 -66.9984,52.7484 -66.9927,52.7622 -66.9917,52.7869 -66.994,52.8053 -66.996,52.8132 -66.9946,52.8188 -67.0033,52.833 -67.0245,52.8444 -67.0334,52.8452 -67.034,52.8397 -67.03,52.8314 -67.0347,52.8277 -67.0437,52.8267 -67.0773,52.8096 -67.0917,52.7977 -67.1032,52.7869 -67.1103,52.7838 -67.1239,52.7834 -67.1417,52.7925 -67.1602,52.8037 -67.1793,52.809 -67.2093,52.8251 -67.2182,52.8283 -67.2243,52.8378 -67.234,52.8434 -67.2593,52.8405 -67.2683,52.8443 -67.276,52.8539 -67.2817,52.8678 -67.2853,52.8869 -67.2838,52.9007 -67.2744,52.9082 -67.2654,52.9131 -67.2443,52.9146 -67.2242,52.9147 -67.203,52.9199 -67.1843,52.9313 -67.1787,52.9388 -67.1827,52.9424 -67.1982,52.9417 -67.2203,52.9462 -67.2344,52.9441 -67.2477,52.9394 -67.2656,52.9372 -67.2813,52.9425 -67.2941,52.9529 -67.2978,52.961 -67.297,52.9723 -67.3038,52.9856 -67.3181,53.0116 -67.3222,53.0245 -67.3195,53.0359 -67.3216,53.0594 -67.315,53.0674 -67.3137,53.076 -67.3156,53.0848 -67.302,53.0833 -67.2961,53.08 -67.2839,53.0622 -67.2781,53.0618 -67.252,53.0765 -67.2299,53.0909 -67.223,53.0998 -67.2204,53.1208 -67.2093,53.1277 -67.2024,53.1251 -67.1872,53.1166 -67.1709,53.1013 -67.1607,53.0971 -67.1376,53.0982 -67.0899,53.0939 -67.0891,53.0912 -67.0949,53.0852 -67.0875,53.0792 -67.0705,53.0737 -67.0623,53.065 -67.0535,53.063 -67.024,53.0783 -67.0059,53.0849 -66.9983,53.0851 -66.9957,53.0781 -67.0093,53.0445 -67.0074,53.0373 -66.9878,53.0272 -66.9663,53.0236 -66.9575,53.0232 -66.9451,53.0319 -66.9261,53.0558 -66.9275,53.0621 -66.917,53.0756 -66.9174,53.0803 -66.9369,53.1045 -66.9398,53.1128 -66.9378,53.1173 -66.9298,53.1221 -66.9143,53.1232 -66.9046,53.129 -66.9007,53.1384 -66.906,53.1689 -66.9113,53.2023 -66.9007,53.2293 -66.8898,53.252 -66.8919,53.2629 -66.8995,53.2695 -66.9242,53.2752 -66.9429,53.2771 -66.9531,53.2812 -66.9558,53.2837 -66.948,53.2899 -66.9388,53.2944 -66.9322,53.3106 -66.9305,53.3219 -66.9251,53.3241 -66.9088,53.3135 -66.9006,53.3126 -66.8709,53.3402 -66.8499,53.3435 -66.8361,53.3505 -66.8287,53.3571 -66.8177,53.3754 -66.8198,53.3784 -66.8386,53.3762 -66.8491,53.377 -66.8632,53.3927 -66.867,53.4217 -66.872,53.4239 -66.8797,53.4239 -66.8933,53.4227 -66.907,53.4192 -66.9176,53.4181 -66.9254,53.4186 -66.9301,53.4217 -66.9328,53.4452 -66.9503,53.4584 -66.9666,53.4733 -66.9929,53.4838 -67.0021,53.4858 -67.0314,53.4813 -67.0533,53.481 -67.0664,53.4804 -67.0918,53.4854 -67.1013,53.4915 -67.1078,53.498 -67.1148,53.5006 -67.1301,53.4999 -67.1394,53.4954 -67.1499,53.487 -67.1593,53.4853 -67.1669,53.4874 -67.2,53.5054 -67.2223,53.5027 -67.2353,53.4994 -67.2453,53.5039 -67.2588,53.5152 -67.2642,53.5245 -67.2692,53.5405 -67.275,53.5448 -67.2978,53.5498 -67.3129,53.5567 -67.3184,53.5642 -67.3254,53.5801 -67.3339,53.5936 -67.3486,53.6094 -67.3556,53.6232 -67.339,53.6231 -67.3363,53.6276 -67.3421,53.6346 -67.3525,53.639 -67.3627,53.6552 -67.3669,53.6708 -67.3757,53.6836 -67.3876,53.6851 -67.3875,53.6668 -67.3976,53.6625 -67.4199,53.6614 -67.4392,53.6723 -67.4488,53.6853 -67.4498,53.6951 -67.4497,53.7036 -67.4607,53.7046 -67.4938,53.7032 -67.5128,53.7055 -67.5225,53.7099 -67.5279,53.7142 -67.529,53.7226 -67.5238,53.7328 -67.5176,53.7371 -67.4874,53.7419 -67.4824,53.7443 -67.4605,53.7874 -67.4634,53.793 -67.4792,53.79 -67.488,53.7874 -67.4893,53.7923 -67.4866,53.7971 -67.4992,53.8108 -67.5178,53.8151 -67.5327,53.8246 -67.5404,53.8353 -67.5426,53.843 -67.5392,53.848 -67.5406,53.8583 -67.5458,53.8701 -67.5557,53.8778 -67.5814,53.8842 -67.5857,53.8844 -67.5984,53.8944 -67.6098,53.9167 -67.6255,53.9281 -67.6371,53.932 -67.6442,53.9327 -67.6872,53.9463 -67.7066,53.9584 -67.728,53.9644 -67.7414,53.9654 -67.7465,53.9717 -67.7407,53.981 -67.7169,54.0087 -67.7113,54.0141 -67.7097,54.0271 -67.6941,54.0356 -67.6951,54.0434 -67.711,54.0511 -67.7267,54.0561 -67.7352,54.0659 -67.7318,54.0771 -67.7207,54.0895 -67.7081,54.0954 -67.6826,54.1013 -67.6621,54.1026 -67.6414,54.1027 -67.6231,54.1032 -67.6167,54.1024 -67.5843,54.1051 -67.5745,54.1094 -67.5723,54.1125 -67.5753,54.1201 -67.5733,54.1264 -67.5565,54.1355 -67.5475,54.1441 -67.546,54.1515 -67.5533,54.157 -67.5992,54.179 -67.6086,54.1901 -67.6103,54.2036 -67.6077,54.2134 -67.6089,54.2177 -67.593,54.2384 -67.5987,54.2479 -67.6277,54.2672 -67.6394,54.2693 -67.652,54.2758 -67.6647,54.2893 -67.6684,54.2966 -67.6604,54.3263 -67.6692,54.342 -67.6801,54.3524 -67.6917,54.3576 -67.7063,54.3748 -67.7024,54.3838 -67.6967,54.3867 -67.6804,54.3925 -67.6638,54.3924 -67.6357,54.3891 -67.6175,54.3934 -67.6075,54.403 -67.5899,54.4387 -67.5792,54.4469 -67.5686,54.4299 -67.5649,54.4228 -67.5545,54.4174 -67.5521,54.4174 -67.5284,54.4192 -67.5238,54.4305 -67.51,54.4373 -67.4977,54.4369 -67.4594,54.4301 -67.4394,54.4304 -67.4211,54.4337 -67.3738,54.4359 -67.3609,54.4435 -67.3578,54.4547 -67.3581,54.468 -67.3518,54.4771 -67.3436,54.4819 -67.3276,54.4785 -67.3114,54.4737 -67.2762,54.4664 -67.2632,54.4619 -67.2497,54.459 -67.2366,54.4494 -67.2259,54.4402 -67.2237,54.4344 -67.213,54.4295 -67.1847,54.4479 -67.1603,54.4711 -67.163,54.4755 -67.181,54.4816 -67.209,54.4978 -67.2155,54.5075 -67.2134,54.5184 -67.2097,54.5267 -67.2122,54.5391 -67.1881,54.5321 -67.1794,54.5344 -67.1676,54.5461 -67.1623,54.559 -67.1475,54.5578 -67.1353,54.5583 -67.1148,54.5583 -67.0943,54.5636 -67.0783,54.5718 -67.0622,54.5954 -67.0558,54.6022 -67.0366,54.6127 -67.0164,54.6219 -67.0073,54.629 -67.0031,54.6462 -67.0072,54.6636 -67.0369,54.6893 -67.0594,54.7027 -67.0909,54.7272 -67.1205,54.7379 -67.1366,54.7391 -67.1437,54.7435 -67.1563,54.7684 -67.1754,54.7848 -67.1955,54.7974 -67.2214,54.8181 -67.2422,54.8419 -67.2685,54.8603 -67.2739,54.8662 -67.2784,54.8827 -67.2914,54.8909 -67.3193,54.9019 -67.3325,54.9116 -67.3379,54.9171 -67.3415,54.9306 -67.3386,54.939 -67.3409,54.9474 -67.3435,54.95 -67.3678,54.9733 -67.38,54.9992 -67.3715,55.0119 -67.3711,55.0162 -67.3597,55.0286 -67.3319,55.0387 -67.3235,55.0385 -67.2995,55.0316 -67.258,55.0284 -67.2364,55.0204 -67.2076,54.9996 -67.206,54.9953 -67.2127,54.9855 -67.2031,54.9762 -67.1768,54.9672 -67.1614,54.9545 -67.1587,54.95 -67.1557,54.9448 -67.1454,54.9337 -67.1213,54.9233 -67.1015,54.9169 -67.088,54.9103 -67.0567,54.8924 -67.0338,54.8753 -67.0085,54.8504 -66.9898,54.8414 -66.9724,54.8207 -66.9674,54.8136 -66.9639,54.8086 -66.9553,54.8032 -66.9208,54.7896 -66.914,54.7871 -66.9121,54.7835 -66.9064,54.7801 -66.8995,54.7775 -66.8563,54.7652 -66.8457,54.7628 -66.8265,54.7558 -66.8154,54.7505 -66.7943,54.7472 -66.7766,54.7408 -66.7697,54.7382 -66.7285,54.722 -66.7163,54.7175 -66.7051,54.7122 -66.6978,54.7067 -66.6942,54.7003 -66.6927,54.6989 -66.6884,54.6961 -66.6866,54.6966 -66.6783,54.7018 -66.6714,54.7008 -66.6364,54.6779 -66.606,54.6607 -66.5912,54.6647 -66.5947,54.6771 -66.6076,54.6907 -66.6299,54.7016 -66.6441,54.7107 -66.6461,54.7184 -66.6087,54.7202 -66.5829,54.7252 -66.5662,54.732 -66.5486,54.7439 -66.5368,54.7617 -66.539,54.771 -66.5832,54.812 -66.593,54.8312 -66.6143,54.8525 -66.6128,54.8583 -66.6209,54.8716 -66.6365,54.8891 -66.657,54.9052 -66.6915,54.9291 -66.712,54.9477 -66.713,54.95 -66.7158,54.9564 -66.7116,54.9598 -66.7076,54.9596 -66.6914,54.9508 -66.6867,54.9511 -66.6796,54.9544 -66.6655,54.9584 -66.6406,54.9524 -66.6351,54.95 -66.585,54.9283 -66.5755,54.9265 -66.5695,54.9284 -66.5806,54.9436 -66.5862,54.95 -66.5987,54.9644 -66.6115,54.9747 -66.6277,54.9837 -66.6441,54.9886 -66.6656,55.001 -66.6762,55.0098 -66.6812,55.0231 -66.6767,55.0276 -66.661,55.0246 -66.6408,55.0186 -66.6727,55.0421 -66.6935,55.0574 -66.7081,55.078 -66.7141,55.0953 -66.7111,55.1037 -66.6922,55.1036 -66.6892,55.1071 -66.6909,55.1174 -66.6884,55.134 -66.696,55.1512 -66.6989,55.1694 -66.6872,55.1686 -66.6521,55.1549 -66.6269,55.1429 -66.6179,55.1414 -66.6166,55.1458 -66.6191,55.1564 -66.6512,55.1866 -66.6721,55.1994 -66.6896,55.2081 -66.6975,55.2169 -66.7267,55.2311 -66.734,55.2367 -66.762,55.2604 -66.7674,55.2738 -66.7652,55.2774 -66.754,55.2727 -66.7389,55.2687 -66.7359,55.273 -66.7456,55.3025 -66.7433,55.3106 -66.7327,55.3093 -66.7155,55.3 -66.6905,55.2823 -66.66,55.2678 -66.6456,55.2585 -66.6369,55.2393 -66.6183,55.2313 -66.6023,55.2212 -66.5966,55.226 -66.5911,55.2289 -66.5761,55.2305 -66.568,55.2301 -66.5434,55.2247 -66.5145,55.2067 -66.5017,55.1888 -66.4684,55.1663 -66.455,55.1544 -66.4424,55.125 -66.4228,55.1024 -66.4147,55.112 -66.4083,55.1119 -66.397,55.106 -66.3638,55.0775 -66.3407,55.0649 -66.3155,55.0497 -66.2691,55.0144 -66.2426,54.9876 -66.2151,54.9661 -66.202,54.95 -66.1761,54.9238 -66.1704,54.9227 -66.1593,54.9313 -66.1502,54.9319 -66.115,54.9227 -66.0803,54.9223 -66.069,54.9187 -66.0483,54.9078 -66.0183,54.887 -65.9844,54.8674 -65.9771,54.8693 -65.9797,54.8816 -65.9705,54.8866 -65.964,54.8857 -65.9542,54.8869 -65.9234,54.8769 -65.9052,54.875 -65.9054,54.8761 -65.8904,54.8801 -65.8742,54.8808 -65.8401,54.881 -65.8193,54.8802 -65.7833,54.8706 -65.7791,54.8655 -65.7831,54.8548 -65.7823,54.8491 -65.7515,54.8103 -65.7546,54.8042 -65.7647,54.7994 -65.7707,54.7941 -65.7693,54.79 -65.7356,54.7753 -65.6952,54.7529 -65.6797,54.7408 -65.6627,54.7207 -65.6419,54.6754 -65.635,54.6657 -65.6308,54.6636 -65.6224,54.6628 -65.6004,54.664 -65.5916,54.6688 -65.58,54.6803 -65.5681,54.6975 -65.5595,54.6981 -65.543,54.6931 -65.5156,54.6895 -65.505,54.6873 -65.4825,54.6848 -65.4547,54.684 -65.4331,54.6849 -65.3968,54.6858 -65.3815,54.6892 -65.3642,54.6966 -65.3559,54.7026 -65.3546,54.7082 -65.3572,54.7252 -65.3614,54.7331 -65.3703,54.7434 -65.3885,54.7591 -65.3921,54.7652 -65.4018,54.7757 -65.401,54.7815 -65.3931,54.7914 -65.3803,54.7961 -65.3657,54.7969 -65.3553,54.7928 -65.3393,54.7798 -65.3203,54.7739 -65.2802,54.7701 -65.2735,54.7764 -65.2731,54.7828 -65.2674,54.7945 -65.2626,54.7972 -65.256,54.7952 -65.2384,54.7815 -65.2116,54.7664 -65.215,54.7781 -65.2103,54.7877 -65.1893,54.7975 -65.1807,54.7983 -65.1668,54.8014 -65.1461,54.8009 -65.1301,54.8031 -65.1192,54.8109 -65.1218,54.8222 -65.1204,54.8365 -65.1094,54.844 -65.1039,54.8607 -65.0955,54.8699 -65.0796,54.8795 -65.0585,54.8824 -65.0469,54.8877 -65.0458,54.8923 -65.0381,54.9075 -65.0286,54.9143 -65.0249,54.9162 -65.0052,54.9179 -64.9995,54.9136 -64.9986,54.9026 -64.9915,54.9032 -64.977,54.9081 -64.9694,54.9075 -64.9581,54.8994 -64.9467,54.8871 -64.9331,54.8803 -64.93,54.88 -64.9171,54.8786 -64.9003,54.885 -64.8869,54.8858 -64.8628,54.8769 -64.8078,54.8472 -64.7904,54.8344 -64.7846,54.8216 -64.7816,54.7991 -64.7751,54.7911 -64.7654,54.7898 -64.7579,54.7936 -64.7505,54.7941 -64.7208,54.7808 -64.7032,54.7828 -64.691,54.7764 -64.6829,54.7673 -64.6807,54.7585 -64.6832,54.7458 -64.707,54.7148 -64.716,54.6966 -64.7149,54.6873 -64.7104,54.6851 -64.6946,54.6823 -64.6711,54.6837 -64.6657,54.6857 -64.6538,54.685 -64.6344,54.6777 -64.6262,54.6782 -64.6215,54.6754 -64.6136,54.6755 -64.5972,54.6839 -64.5881,54.6842 -64.5437,54.6755 -64.513,54.6732 -64.4935,54.6716 -64.4783,54.6735 -64.4643,54.6795 -64.4756,54.6963 -64.4759,54.7031 -64.47,54.7102 -64.4564,54.7086 -64.4226,54.6998 -64.4066,54.6976 -64.4007,54.7014 -64.4059,54.7095 -64.4117,54.72 -64.4074,54.735 -64.3971,54.7386 -64.3744,54.7373 -64.3612,54.7394 -64.328,54.7367 -64.3222,54.7367 -64.3036,54.7336 -64.2959,54.7323 -64.2633,54.7227 -64.2517,54.7135 -64.2314,54.7082 -64.2358,54.7012 -64.2352,54.6914 -64.2241,54.687 -64.213,54.6796 -64.2018,54.6777 -64.1777,54.6782 -64.1669,54.6763 -64.1541,54.6706 -64.1407,54.6708 -64.1354,54.6732 -64.1219,54.6767 -64.1179,54.6686 -64.1182,54.6548 -64.1101,54.6414 -64.1015,54.638 -64.094,54.6337 -64.0403,54.6057 -64.0456,54.5832 -64.0433,54.5757 -64.033,54.5708 -64.0099,54.5642 -63.9923,54.5613 -63.9661,54.5546 -63.9415,54.5531 -63.9377,54.5548 -63.9288,54.5565 -63.9076,54.5615 -63.8863,54.5645 -63.8467,54.5581 -63.8349,54.5585 -63.7971,54.5761 -63.783,54.5768 -63.7708,54.5815 -63.7424,54.5981 -63.7339,54.6002 -63.7148,54.5978 -63.6801,54.5801 -63.6673,54.5782 -63.6575,54.5782 -63.6519,54.5816 -63.6497,54.5842 -63.6573,54.5988 -63.6696,54.6133 -63.6843,54.6188 -63.6912,54.6252 -63.6922,54.6323 -63.6946,54.637 -63.7075,54.6531 -63.74,54.6813 -63.7608,54.6928 -63.7747,54.7022 -63.7987,54.7102 -63.8223,54.7175 -63.8223,54.7166 -63.8417,54.7258 -63.8438,54.7278 -63.8316,54.7405 -63.836,54.7499 -63.8351,54.7568 -63.8203,54.7557 -63.8101,54.756 -63.8023,54.7578 -63.765,54.769 -63.7532,54.7751 -63.7499,54.7822 -63.7558,54.7944 -63.7709,54.8077 -63.782,54.8215 -63.7738,54.8311 -63.7675,54.8489 -63.7537,54.8715 -63.7385,54.8836 -63.7386,54.8883 -63.7519,54.8955 -63.7499,54.8992 -63.7439,54.9039 -63.715,54.9048 -63.6899,54.8994 -63.6759,54.8936 -63.6626,54.8862 -63.6362,54.8703 -63.6056,54.8614 -63.5767,54.8618 -63.5641,54.8582 -63.5529,54.857 -63.5429,54.8604 -63.5358,54.8659 -63.5196,54.8755 -63.5199,54.8796 -63.5334,54.8972 -63.543,54.9216 -63.5409,54.9292 -63.52,54.931 -63.5081,54.9365 -63.5007,54.9431 -63.5093,54.95 -63.511,54.9513 -63.5195,54.9629 -63.5166,54.9708 -63.5008,54.9808 -63.4982,54.988 -63.5006,54.9932 -63.5155,55.0046 -63.5322,55.0128 -63.5372,55.0255 -63.5375,55.0383 -63.5315,55.0469 -63.5217,55.0529 -63.5158,55.0631 -63.5186,55.0682 -63.5208,55.0757 -63.5042,55.086 -63.495,55.0958 -63.4899,55.125 -63.4853,55.1262 -63.4745,55.1217 -63.4669,55.1217 -63.4635,55.1234 -63.4757,55.1308 -63.4803,55.1387 -63.4773,55.1406 -63.4529,55.15 -63.434,55.1532 -63.4193,55.1541 -63.4052,55.1565 -63.3676,55.1662 -63.3493,55.1858 -63.3359,55.2029 -63.3343,55.2127 -63.3397,55.2153 -63.3536,55.2145 -63.3934,55.2027 -63.4244,55.19 -63.4378,55.188 -63.4752,55.1868 -63.5006,55.1891 -63.5162,55.1934 -63.5298,55.2031 -63.5423,55.2087 -63.5448,55.2056 -63.5467,55.1903 -63.5529,55.1885 -63.5567,55.1905 -63.5699,55.209 -63.5806,55.2129 -63.5806,55.2119 -63.596,55.219 -63.5978,55.2222 -63.5876,55.2325 -63.5688,55.242 -63.5547,55.2458 -63.5044,55.2561 -63.4773,55.2632 -63.4651,55.2704 -63.4674,55.2735 -63.4834,55.2735 -63.4996,55.2758 -63.5124,55.2803 -63.5148,55.2848 -63.5082,55.2918 -63.4875,55.2974 -63.4318,55.3026 -63.4119,55.2997 -63.3927,55.2997 -63.3503,55.3054 -63.3275,55.3113 -63.2642,55.331 -63.252,55.3399 -63.2524,55.3447 -63.2564,55.3496 -63.2693,55.36 -63.2768,55.3637 -63.2944,55.363 -63.3189,55.3585 -63.355,55.3578 -63.3862,55.3666 -63.3922,55.3705 -63.4062,55.3756 -63.4441,55.3776 -63.4699,55.3778 -63.4928,55.3742 -63.5101,55.3739 -63.5409,55.3776 -63.5741,55.3763 -63.5867,55.3775 -63.6286,55.3793 -63.6504,55.3855 -63.6872,55.4061 -63.7071,55.4119 -63.716,55.4178 -63.7195,55.4246 -63.7182,55.4285 -63.703,55.4335 -63.686,55.4406 -63.6636,55.4511 -63.6276,55.4667 -63.6075,55.4899 -63.6003,55.504 -63.5992,55.515 -63.6047,55.5313 -63.6092,55.5542 -63.6102,55.5749 -63.5945,55.5841 -63.5914,55.5905 -63.6021,55.6014 -63.6132,55.6041 -63.6374,55.6038 -63.655,55.6015 -63.6589,55.6053 -63.6473,55.6287 -63.6517,55.6368 -63.67,55.6428 -63.6728,55.6469 -63.6483,55.6483 -63.6466,55.6606 -63.6412,55.677 -63.6259,55.7002 -63.6117,55.7098 -63.6027,55.7175 -63.6012,55.7279 -63.6087,55.7347 -63.6239,55.7373 -63.6406,55.7382 -63.6667,55.7358 -63.6891,55.7411 -63.6922,55.7438 -63.7047,55.7571 -63.6973,55.7692 -63.6931,55.7848 -63.6953,55.7952 -63.7006,55.8051 -63.7121,55.8105 -63.729,55.8134 -63.7445,55.8146 -63.7699,55.8127 -63.7745,55.8139 -63.7743,55.8164 -63.7617,55.8246 -63.7577,55.8299 -63.7579,55.8363 -63.774,55.8559 -63.7785,55.8613 -63.7758,55.8668 -63.7719,55.869 -63.7442,55.8762 -63.7133,55.8809 -63.6721,55.8885 -63.6507,55.8948 -63.6269,55.906 -63.5851,55.9204 -63.5689,55.9252 -63.4862,55.9477 -63.4747,55.95 -63.43,55.95 -63.4008,55.9443 -63.3715,55.9494 -63.3612,55.9476 -63.3494,55.95 -63.3917,55.9676 -63.3913,55.9773 -63.4009,55.9829 -63.4501,55.9836 -63.5021,55.9746 -63.536,55.975 -63.5661,55.9754 -63.5979,55.9786 -63.6148,55.9884 -63.6312,56.0092 -63.6728,56.0166 -63.7001,56.0114 -63.7214,56.0052 -63.7275,56.0034 -63.7448,56.0009 -63.7571,56.001 -63.7668,56.0039 -63.7464,56.0243 -63.746,56.0367 -63.7483,56.0422 -63.7875,56.0495 -63.8047,56.0511 -63.8069,56.058 -63.7944,56.0634 -63.7849,56.0698 -63.7843,56.0702 -63.7791,56.077 -63.7912,56.084 -63.806,56.0855 -63.8283,56.083 -63.8558,56.0695 -63.8838,56.0436 -63.9113,56.0301 -63.9361,56.0248 -63.9372,56.0248 -63.9583,56.0236 -63.9677,56.0375 -63.9521,56.0663 -63.9607,56.1104 -63.9331,56.1267 -63.9303,56.1276 -63.9131,56.1334 -63.8783,56.1414 -63.841,56.1465 -63.8237,56.1463 -63.8136,56.1531 -63.8132,56.1655 -63.8227,56.178 -63.8397,56.1878 -63.8587,56.1966 -63.8641,56.1991 -63.9009,56.2091 -63.9353,56.2163 -63.9723,56.2207 -63.9873,56.2181 -64.0148,56.2087 -64.0295,56.213 -64.0366,56.224 -64.0383,56.2335 -64.0388,56.2365 -64.0485,56.2448 -64.0829,56.2547 -64.0901,56.263 -64.085,56.2713 -64.0476,56.2765 -64.0467,56.3095 -64.0589,56.3179 -64.0612,56.3248 -64.0606,56.3254 -64.0485,56.3371 -64.0508,56.3454 -64.0972,56.3747 -64.1145,56.3803 -64.1143,56.3858 -64.1093,56.3872 -64.072,56.3896 -64.0318,56.3806 -64.0275,56.3796 -63.9803,56.3751 -63.9432,56.3693 -63.9233,56.3691 -63.8958,56.3757 -63.8931,56.3826 -63.883,56.3852 -63.8555,56.3905 -63.8281,56.393 -63.826,56.3952 -63.8203,56.4012 -63.8199,56.4149 -63.8321,56.422 -63.8814,56.4376 -63.8936,56.4474 -63.8831,56.4624 -63.8801,56.4789 -63.8822,56.4927 -63.8843,56.4979 -63.8891,56.5093 -63.9259,56.5303 -63.9851,56.5584 -63.9924,56.5654 -63.9921,56.575 -63.9819,56.5832 -63.9791,56.5914 -63.9817,56.5967 -63.9838,56.6011 -63.9937,56.6053 -64.0162,56.6083 -64.0335,56.6139 -64.0558,56.6251 -64.0704,56.6404 -64.07,56.6542 -64.0544,56.6761 -64.0359,56.6921 -64.0339,56.6939 -64.0182,56.7158 -64.0053,56.7281 -63.9602,56.7236 -63.9424,56.7317 -63.9294,56.7467 -63.9291,56.7564 -63.9338,56.7674 -63.9399,56.777 -63.9472,56.7884 -63.9477,56.8075 -63.9146,56.821 -63.8944,56.8208 -63.8463,56.8286 -63.8136,56.8297 -63.8058,56.8365 -63.8077,56.8435 -63.808,56.8448 -63.8228,56.8546 -63.8477,56.8659 -63.8522,56.8824 -63.8481,56.9293 -63.8327,56.9374 -63.8049,56.9385 -63.7998,56.9403 -63.7972,56.9412 -63.7945,56.9467 -63.8141,56.9648 -63.8237,56.9787 -63.818,56.9993 -63.8194,57.0324 -63.7889,57.0348 -63.7687,57.0379 -63.7635,57.0387 -63.7427,57.0523 -63.727,57.0659 -63.7164,57.0782 -63.7135,57.0906 -63.7156,57.1016 -63.7304,57.1128 -63.7244,57.1389 -63.7091,57.1469 -63.7089,57.147 -63.6906,57.1606 -63.6792,57.1922 -63.684,57.1992 -63.6915,57.2034 -63.7092,57.2077 -63.7166,57.2133 -63.7235,57.2327 -63.7412,57.2356 -63.7541,57.2316 -63.7599,57.2245 -63.7674,57.2152 -63.7742,57.1684 -63.7796,57.1574 -63.7902,57.1465 -63.7976,57.1507 -63.8023,57.1632 -63.8076,57.1892 -63.8154,57.2267 -63.7889,57.2554 -63.7879,57.2844 -63.7522,57.2854 -63.7389,57.287 -63.7317,57.2879 -63.7211,57.3002 -63.708,57.307 -63.6593,57.3133 -63.6511,57.3284 -63.6478,57.3463 -63.6465,57.3808 -63.6484,57.3835 -63.6514,57.3877 -63.6641,57.3879 -63.6821,57.3853 -63.6898,57.3868 -63.6996,57.3965 -63.6959,57.4282 -63.7055,57.4435 -63.7051,57.4559 -63.6875,57.4825 -63.6861,57.4846 -63.6973,57.5261 -63.6918,57.5371 -63.6577,57.556 -63.642,57.5627 -63.6239,57.5653 -63.5926,57.5773 -63.5909,57.5793 -63.5818,57.5896 -63.5685,57.5991 -63.5503,57.6044 -63.5345,57.6125 -63.5258,57.6359 -63.5192,57.6703 -63.5212,57.6827 -63.5281,57.6904 -63.5311,57.6939 -63.544,57.6926 -63.5573,57.6845 -63.5728,57.6819 -63.6012,57.6823 -63.604,57.6768 -63.594,57.6684 -63.5894,57.6545 -63.5978,57.6381 -63.6137,57.6286 -63.6191,57.6204 -63.6347,57.6178 -63.6499,57.6235 -63.6622,57.6374 -63.6717,57.6596 -63.6865,57.6777 -63.7017,57.6847 -63.7172,57.6835 -63.7365,57.6506 -63.7418,57.6466 -63.7457,57.6471 -63.752,57.648 -63.7566,57.6633 -63.7692,57.6717 -63.7768,57.6745 -63.8079,57.6693 -63.8234,57.6708 -63.8409,57.6861 -63.8445,57.7331 -63.8446,57.7332 -63.8494,57.74 -63.8621,57.747 -63.9392,57.7615 -63.9572,57.7617 -63.9626,57.7548 -63.966,57.7273 -63.9764,57.7246 -63.9919,57.7247 -64.001,57.7277 -64.0047,57.729 -64.0121,57.7414 -64.0623,57.7956 -64.0796,57.8247 -64.0833,57.8438 -64.0841,57.8482 -64.1144,57.8815 -64.1398,57.901 -64.1389,57.9368 -64.1491,57.9438 -64.1696,57.9536 -64.17,57.9546 -64.1745,57.9674 -64.1636,57.9867 -64.1661,57.9936 -64.2152,58.0049 -64.231,57.9995 -64.2413,58.0023 -64.2567,58.0107 -64.28,58.0177 -64.3081,58.0191 -64.3112,58.0193 -64.3425,58.0181 -64.3606,58.021 -64.3735,58.0307 -64.3679,58.0486 -64.3642,58.1158 -64.364,58.1189 -64.3348,58.1436 -64.3163,58.1517 -64.3006,58.1558 -64.2612,58.1625 -64.2167,58.1649 -64.1712,58.1747 -64.1668,58.1756 -64.1508,58.1893 -64.1319,58.2113 -64.1195,58.2857 -64.1143,58.2934 -64.1085,58.3021 -64.0899,58.3117 -64.0609,58.317 -64.0162,58.3194 -63.9794,58.3191 -63.9714,58.3245 -63.9681,58.3466 -63.9614,58.3607 -63.9597,58.3644 -63.9382,58.378 -63.9115,58.3888 -63.8695,58.3871 -63.8563,58.3897 -63.8486,58.3841 -63.8302,58.3812 -63.8011,58.3865 -63.7851,58.3918 -63.7745,58.4045 -63.7576,58.4247 -63.7906,58.4608 -63.7949,58.4885 -63.8204,58.5136 -63.8289,58.5193 -63.8307,58.5205 -63.8517,58.5235 -63.8651,58.5181 -63.9086,58.4785 -63.9327,58.469 -63.9564,58.4692 -63.9748,58.4721 -63.9931,58.4778 -63.9965,58.4865 -63.998,58.4903 -64.0445,58.5251 -64.0413,58.543 -64.0484,58.5734 -64.0207,58.6004 -64.0048,58.6159 -63.9805,58.6322 -63.9723,58.6404 -63.9509,58.6458 -63.9061,58.6371 -63.8876,58.6356 -63.8743,58.6396 -63.8434,58.6562 -63.8364,58.6599 -63.8047,58.6583 -63.7224,58.6602 -63.6666,58.6638 -63.6398,58.669 -63.6108,58.6659 -63.6082,58.666 -63.5444,58.6679 -63.4933,58.6839 -63.4264,58.6955 -63.402,58.7062 -63.399,58.7141 -63.3989,58.7145 -63.409,58.727 -63.4274,58.73 -63.4505,58.7482 -63.4656,58.7677 -63.489,58.7826 -63.5201,58.7987 -63.5384,58.8058 -63.5783,58.8077 -63.5968,58.8106 -63.6125,58.8177 -63.6173,58.8302 -63.6278,58.8344 -63.6412,58.8318 -63.6598,58.8334 -63.6786,58.8295 -63.6826,58.8297 -63.7026,58.8311 -63.7161,58.8257 -63.7298,58.8162 -63.741,58.8011 -63.7519,58.7943 -63.7761,58.789 -63.7923,58.7823 -63.8107,58.7866 -63.864,58.7871 -63.8771,58.7855 -63.8853,58.7845 -63.9068,58.7792 -63.9362,58.7767 -63.9551,58.7658 -63.9766,58.7605 -63.9848,58.7537 -63.9771,58.7426 -64.0207,58.7084 -64.0296,58.7052 -64.0394,58.7017 -64.0688,58.695 -64.1003,58.709 -64.1077,58.7298 -64.1503,58.7287 -64.1713,58.7371 -64.1681,58.7605 -64.1682,58.7612 -64.1753,58.7909 -64.1804,58.8006 -64.2064,58.827 -64.2433,58.8451 -64.2619,58.8466 -64.2913,58.8413 -64.2984,58.8413 -64.3126,58.8414 -64.3472,58.8457 -64.3631,58.8513 -64.3817,58.8542 -64.4084,58.8557 -64.4593,58.8394 -64.486,58.8381 -64.4992,58.8437 -64.5071,58.852 -64.5128,58.8526 -64.5603,58.8577 -64.5735,58.8674 -64.6106,58.8868 -64.6346,58.8952 -64.6586,58.898 -64.6773,58.8953 -64.6987,58.8898 -64.7068,58.8802 -64.7077,58.8796 -64.7229,58.8692 -64.7443,58.8637 -64.7789,58.8721 -64.8402,58.8915 -64.8374,58.8998 -64.8187,58.9053 -64.7736,58.9007 -64.7627,58.8996 -64.7546,58.9038 -64.7839,58.9259 -64.7997,58.9507 -64.7997,58.959 -64.7835,58.9714 -64.7726,58.9948 -64.7565,59.0045 -64.7547,59.0049 -64.6571,59.0291 -64.6331,59.0262 -64.6198,59.0152 -64.6121,58.9889 -64.5987,58.9861 -64.5826,58.9902 -64.5809,58.99 -64.5532,58.986 -64.5079,58.9706 -64.4303,58.9703 -64.4224,58.9647 -64.4094,58.9454 -64.4069,58.9371 -64.3933,58.937 -64.3882,58.937 -64.3156,58.9559 -64.2887,58.9613 -64.2487,58.9583 -64.2272,58.9623 -64.2109,58.9719 -64.2053,58.9829 -64.218,58.9896 -64.2211,58.9912 -64.245,58.9997 -64.2769,59.0136 -64.2982,59.0193 -64.3192,59.0373 -64.3326,59.0402 -64.3567,59.0403 -64.3968,59.046 -64.4143,59.0541 -64.4208,59.0572 -64.4199,59.1041 -64.4087,59.133 -64.4113,59.1357 -64.4462,59.1414 -64.4515,59.1442 -64.4539,59.1608 -64.4539,59.1631 -64.4535,59.1842 -64.437,59.2035 -64.4314,59.2172 -64.4501,59.2228 -64.4687,59.2408 -64.4739,59.2519 -64.4711,59.2615 -64.4504,59.2745 -64.4493,59.2752 -64.433,59.2807 -64.4274,59.2876 -64.4273,59.2972 -64.446,59.3042 -64.4675,59.3153 -64.4755,59.3223 -64.4753,59.3305 -64.4616,59.3429 -64.4128,59.3496 -64.4099,59.3592 -64.4155,59.3621 -64.4206,59.3648 -64.4395,59.369 -64.4475,59.3746 -64.442,59.3814 -64.3684,59.4073 -64.3599,59.4224 -64.3382,59.4251 -64.3109,59.4332 -64.3008,59.4397 -64.2834,59.451 -64.2832,59.4607 -64.2912,59.4648 -64.3155,59.4705 -64.3587,59.4845 -64.3777,59.486 -64.397,59.4695 -64.4106,59.4696 -64.4324,59.4669 -64.437,59.4583 -64.4436,59.4463 -64.4789,59.4451 -64.4952,59.441 -64.5063,59.4286 -64.52,59.4204 -64.5715,59.4178 -64.5851,59.4137 -64.588,59.4013 -64.6044,59.3917 -64.6076,59.3908 -64.6234,59.3863 -64.6396,59.3904 -64.6988,59.4292 -64.7041,59.4472 -64.7419,59.4721 -64.7554,59.4762 -64.7558,59.4764 -64.7798,59.4873 -64.7988,59.4901 -64.8231,59.5095 -64.8638,59.515 -64.8637,59.5413 -64.8447,59.5454 -64.8105,59.54 -64.8093,59.5398 -64.7739,59.5397 -64.7439,59.5562 -64.7434,59.6114 -64.7272,59.6396 -64.7268,59.6403 -64.6939,59.6499 -64.6775,59.6582 -64.6719,59.6692 -64.6909,59.6761 -64.7346,59.6776 -64.7373,59.69 -64.7343,59.7149 -64.746,59.7244 -64.7479,59.7259 -64.7312,59.7618 -64.7503,59.7701 -64.7557,59.7797 -64.7392,59.7866 -64.7227,59.7907 -64.7034,59.8003 -64.6732,59.8016 -64.6732,59.8044 -64.6841,59.8113 -64.6875,59.8146 -64.7031,59.8293 -64.6975,59.8362 -64.6509,59.8347 -64.629,59.8263 -64.6071,59.8235 -64.6015,59.8304 -64.5985,59.8511 -64.5901,59.8754 -64.5899,59.8759 -64.5953,59.8883 -64.5924,59.8966 -64.5978,59.9035 -64.6143,59.9063 -64.6473,59.9078 -64.6693,59.9065 -64.6761,59.9129 -64.6918,59.9089 -64.6942,59.9265 -64.7076,59.9314 -64.761,59.9239 -64.7655,59.9232 -64.7848,59.9233 -64.7985,59.9316 -64.7983,59.9495 -64.7983,59.95 -64.8367,59.9868 -64.8532,59.9992 -64.8614,60.0103 -64.8558,60.0158 -64.8338,60.0158 -64.8007,60.0047 -64.7456,59.9922 -64.7151,60.01 -64.6903,60.01 -64.6489,60.0126 -64.6433,60.0195 -64.6459,60.0278 -64.6471,60.0295 -64.6513,60.0361 -64.6651,60.0403 -64.6761,60.0486 -64.6732,60.0568 -64.6621,60.0596 -64.6234,60.0594 -64.5902,60.0635 -64.5349,60.0661 -64.5347,60.0771 -64.5399,60.0878 -64.5482,60.1047 -64.5508,60.1158 -64.559,60.1213 -64.5867,60.1173 -64.6033,60.1228 -64.6142,60.1325 -64.6419,60.1312 -64.6559,60.123 -64.6697,60.1244 -64.6976,60.1427 -64.7055,60.1479 -64.7331,60.1577 -64.7718,60.166 -64.7986,60.1223 -64.9074,60.0048 -64.9874,59.9706 -65.0032,59.9391 -65.0206,59.8781 -65.1011,59.8139 -65.081,59.7664 -65.0387,59.7458 -65.0102,59.7252 -64.9331,59.7064 -64.8677,59.6925 -64.9107,59.6895 -64.9307,59.6918 -65.0136,59.705 -65.0332,59.7093 -65.0783,59.7319 -65.1052,59.7452 -65.2058,59.7746 -65.2521,59.7561 -65.3104,59.7261 -65.379,59.6756 -65.4049,59.6451 -65.3751,59.5614 -65.3403,59.5064 -65.2935,59.4418 -65.2666,59.436 -65.2076,59.4382 -65.1775,59.4368 -65.099,59.4168 -65.0425,59.396 -65.0273,59.3703 -64.9934,59.3511 -64.9544,59.3367 -64.9098,59.3217 -64.868,59.3032 -64.8905,59.3012 -64.9293,59.3104 -65.0055,59.3374 -65.0519,59.3661 -65.0749,59.3776 -65.1385,59.3952 -65.2315,59.41 -65.4268,59.4166 -65.3727,59.3624 -65.3155,59.3226 -65.2421,59.2075 -65.3311,59.246 -65.3514,59.2619 -65.3689,59.2776 -65.4468,59.3054 -65.4917,59.1727 -65.4655,59.1315 -65.5238,59.1736 -65.5584,59.1919 -65.5844,59.1971 -65.6186,59.1932 -65.62,59.1516 -65.5945,59.0798 -65.5302,59.0085 -65.4617,59.0007 -65.434,59.0003 -65.4134,59.0056 -65.2282,58.9953 -65.2064,58.9758 -65.3333,58.9714 -65.3711,58.9906 -65.3952,58.9952 -65.4491,58.9731 -65.4261,58.9464 -65.3914,58.9391 -65.3764,58.9177 -65.4434,58.9231 -65.4924,58.9487 -65.5118,58.9614 -65.5385,58.9733 -65.5733,58.9729 -65.6553,58.9593 -65.7635,58.9314 -65.8664,58.8332 -65.839,58.8178 -65.7494,58.7934 -65.7116,58.7944 -65.6742,58.7905 -65.7211,58.7564 -65.8304,58.7664 -65.8655,58.7816 -65.9153,58.7813 -65.9598,58.7395 -65.9805,58.7021 -65.9103,58.6405 -65.8241,58.595 -65.7588,58.5573 -65.7601,58.5105 -65.8573,58.4077 -65.8114,58.3871 -65.8474,58.3221 -65.8998,58.3104 -65.9269,58.288 -65.9381,58.2507 -65.9484,58.2543 -65.9698,58.2883 -65.9005,58.417 -65.819,58.5186 -65.8175,58.5411 -65.9463,58.5801 -65.9886,58.6223 -66.2286,58.7664 -66.2659,58.7801 -66.3446,58.7478 -66.4293,58.6411 -66.529,58.4727 -66.5073,58.4336 -66.6784,58.4038 -66.7567,58.4069 -66.8149,58.4312 -66.8561,58.3984 -66.868,58.3788 -66.9701,58.2799 -66.9888,58.2896 -67.0218,58.3053 -67.0474,58.3076 -67.2095,58.2467 -67.3507,58.2074 -67.4428,58.1542 -67.4617,58.1387 -67.5217,58.065 -67.5331,58.0473 -67.5861,57.9099 -67.591,57.8541 -67.6054,57.9075 -67.5297,58.1433 -67.5244,58.1844 -67.5741,58.2156 -67.6124,58.2492 -67.5754,58.3258 -67.5474,58.3536 -67.5995,58.3891 -67.6529,58.3986 -67.6914,58.338 -67.7039,58.2617 -67.6844,58.2332 -67.7527,58.1736 -67.8544,58.0943 -67.8677,58.0769 -67.8826,58.0625 -67.9941,58.0067 -67.9741,58.0664 -67.9414,58.0899 -67.9231,58.101 -67.8508,58.1516 -67.8167,58.1692 -67.7916,58.1854 -67.7712,58.2148 -67.7374,58.2559 -67.7786,58.2849 -67.799,58.3383 -67.7911,58.3791 -67.7733,58.4024 -67.7688,58.4231 -67.834,58.4882 -67.8514,58.4995 -67.8832,58.5051 -68.0119,58.4526 -68.0496,58.4152 -68.0503,58.3927 -68.0434,58.3713 -68.0423,58.35 -68.0608,58.2909 -68.1059,58.1992 -68.1651,58.1454 -68.1801,58.1129 -68.1778,58.0699 -68.1829,58.0418 -68.2859,57.968 -68.371,57.9441 -68.4205,57.9314 -68.5036,57.92 -68.5525,57.9206 -68.7789,57.8806 -68.84,57.8649 -68.9864,57.8168 -69.0471,57.7828 -69.0653,57.7717 -69.0847,57.7607 -69.1762,57.7194 -69.2142,57.7047 -69.238,57.6991 -69.1368,57.7648 -69.0957,57.7901 -69.077,57.7998 -69.0556,57.809 -69.0055,57.8291 -68.7489,57.9001 -68.6047,57.9306 -68.4038,57.9603 -68.3788,57.9623 -68.3474,57.9737 -68.2218,58.0569 -68.2217,58.087 -68.1978,58.1575 -68.1844,58.184 -68.1631,58.2226 -68.1258,58.2609 -68.1017,58.3066 -68.079,58.3726 -68.0844,58.3928 -68.0912,58.4208 -68.1651,58.471 -68.1972,58.5154 -68.2199,58.5567 -68.2405,58.6175 -68.2324,58.6999 -68.267,58.7437 -68.4748,58.8152 -68.5199,58.8279 -68.6296,58.842 -68.7143,58.8205 -68.8647,58.8135 -68.9038,58.8229 -68.9706,58.8285 -69.0021,58.8312 -69.026,58.8296 -69.1509,58.8177 -69.2207,58.8013 -69.2602,58.7887 -69.2834,58.7663 -69.3171,58.7378 -69.375,58.7063 -69.4164,58.7032 -69.448,58.6973 -69.4795,58.6845 -69.4966,58.6735 -69.5958,58.5988 -69.6681,58.5314 -69.6873,58.519 -69.7343,58.5462 -69.7815,58.6177 -69.8021,58.663 -69.8457,58.6851 -69.9203,58.6734 -70.0267,58.699 -69.8434,58.7383 -69.687,58.7534 -69.7034,58.881 -69.7362,58.9072 -69.7444,58.9626 -69.7344,58.9801 -69.5803,58.902 -69.5411,58.8577 -69.5403,58.8288 -69.5823,58.7916 -69.5522,58.7298 -69.535,58.7197 -69.4825,58.7221 -69.4592,58.7264 -69.4239,58.7356 -69.3296,58.8111 -69.3265,58.8322 -69.3465,58.9013 -69.3644,58.967 -69.3374,58.9736 -69.3032,58.9546 -69.2239,59.01 -69.2207,59.0303 -69.2469,59.0469 -69.3322,59.0576 -69.3607,59.0447 -69.3793,59.0329 -69.4003,59.0405 -69.4081,59.0997 -69.3828,59.122 -69.3408,59.143 -69.3147,59.1525 -69.2913,59.1492 -69.2863,59.1245 -69.2411,59.1192 -69.1567,59.1372 -69.1092,59.161 -69.1095,59.1885 -69.1256,59.2542 -69.2829,59.284 -69.3112,59.2839 -69.4207,59.2586 -69.5,59.2293 -69.616,59.2402 -69.6103,59.2732 -69.5476,59.2858 -69.5134,59.289 -69.5017,59.3053 -69.5172,59.3527 -69.5373,59.3821 -69.5689,59.4098 -69.5978,59.4082 -69.6281,59.4093 -69.6235,59.4305 -69.5936,59.4612 -69.5677,59.4816 -69.549,59.4921 -69.5286,59.5008 -69.4882,59.5146 -69.4104,59.5993 -69.4794,59.6569 -69.4747,59.7056 -69.4696,59.7611 -69.5916,59.8897 -69.6275,59.8957 -69.8159,59.8868 -69.899,59.8761 -69.9235,59.8732 -69.954,59.8742 -69.9804,59.8775 -70.0324,59.8904 -70.0653,59.902 -70.0927,59.9132 -70.2053,59.9043 -70.343,59.8963 -70.3744,59.8945 -70.4429,59.898 -70.4774,59.9087 -70.4979,59.9135 -70.7666,59.9678 -70.8122,59.9905 -70.6376,59.9558 -70.4534,59.9234 -70.424,59.9206 -70.4015,59.9196 -70.3636,59.9209 -70.2034,59.9322 -70.1638,59.9389 -70.0847,59.9349 -69.7604,59.9274 -69.7056,59.9474 -69.5755,59.9851 -69.4996,59.9938 -69.4724,60.0306 -69.4649,60.1061 -69.5056,60.1064 -69.4791,60.1387 -69.5648,60.2059 -69.6328,60.2376 -69.6227,60.2602 -69.593,60.2864 -69.617,60.3884 -69.646,60.4029 -69.6873,60.4529 -69.6166,60.4663 -69.5643,60.4737 -69.5235,60.5106 -69.5637,60.5903 -69.5776,60.6056 -69.4836,60.6567 -69.4596,60.6654 -69.401,60.6835 -69.3646,60.6909 -69.3064,60.7013 -69.2808,60.7069 -69.2516,60.719 -69.2384,60.734 -69.2359,60.8291 -69.3214,60.9008 -69.3346,60.9187 -69.36,60.9578 -69.3806,60.9919 -69.4214,61.0065 -69.4738,61.0062 -69.5224,60.9811 -69.5455,60.9473 -69.5534,60.8799 -69.5196,60.8441 -69.5122,60.8242 -69.5217,60.8065 -69.5504,60.7974 -69.5777,60.8 -69.6115,60.8149 -69.6137,60.844 -69.6458,60.8373 -69.6966,60.8178 -69.7562,60.7767 -69.7251,60.7738 -69.7551,60.7454 -69.7749,60.7366 -69.7945,60.7341 -69.9545,60.8241 -69.9521,60.8811 -69.9734,60.9903 -70.0144,61.0102 -70.1812,61.0207 -70.2823,61.0119 -70.4029,60.9836 -70.4183,60.9511 -70.5217,60.9765 -70.6382,61.0075 -70.7939,61.0258 -70.8313,61.0395 -70.8756,61.0475 -71.0388,61.0659 -71.149,61.0759 -71.2536,61.0635 -71.3941,61.1391 -71.4619,61.1797 -71.5348,61.2558 -71.5386,61.2976 -71.5553,61.3306 -71.7157,61.3397 -71.7422,61.3517 -71.6724,61.3699 -71.6092,61.3937 -71.6516,61.447 -71.6135,61.463 -71.5159,61.4684 -71.4923,61.4736 -71.4128,61.4886 -71.4356,61.5321 -71.5069,61.5644 -71.6573,61.6072 -71.6813,61.6135 -71.7906,61.6305 -71.8104,61.6185 -71.7978,61.584 -71.8353,61.5302 -71.9188,61.5116 -71.9453,61.5074 -72.1644,61.4936 -72.1238,61.5373 -72.0934,61.5448 -72.0553,61.5408 -72.0212,61.5304 -71.976,61.521 -71.9457,61.5253 -71.8994,61.5497 -71.8715,61.6001 -71.9027,61.6472 -72.0641,61.7862 -72.0959,61.7968 -72.1177,61.8014 -72.1826,61.8083 -72.2062,61.8088 -72.252,61.8131 -72.3088,61.8259 -72.3799,61.8448 -72.4487,61.846 -72.4703,61.8212 -72.4856,61.7918 -72.4546,61.7378 -72.5844,61.77 -72.6083,61.7809 -72.5496,61.8163 -72.5254,61.8528 -72.479,61.8968 -72.4559,61.9733 -72.4814,62.0363 -72.5832,62.0663 -72.7583,62.0626 -72.9287,62.1216 -72.9905,62.1494 -73.0431,62.1736 -73.0657,62.1996 -73.0706,62.2347 -73.2278,62.2873 -73.3602,62.3103 -73.5053,62.3911 -73.5402,62.4035 -73.6948,62.3811 -73.7455,62.3643 -73.7967,62.3357 -73.8304,62.3099 -73.9979,62.2503 -74.2397,62.1826 -74.2753,62.1733 -74.3232,62.1677 -74.3815,62.171 -74.4348,62.1758 -74.5011,62.1775 -74.5337,62.1776 -74.5558,62.1746 -74.5768,62.1702 -74.612,62.1297 -74.5487,62.0833 -74.5179,62.0708 -74.4747,62.0566 -74.4112,62.032 -74.4276,62.027 -74.4538,62.0283 -74.4764,62.0315 -74.5244,62.0432 -74.5523,62.0535 -74.6225,62.0851 -74.7409,62.1581 -74.7737,62.1694 -74.7931,62.174 -74.8626,62.1876 -75.0386,62.2159 -75.1687,62.2346 -75.2103,62.2342 -75.2559,62.2303 -75.3366,62.2209 -75.4034,62.1834 -75.4303,62.167 -75.5106,62.1403 -75.5586,62.1273 -75.615,62.1094 -75.6847,62.0825 -75.7421,62.0854 -75.6733,62.1295 -75.593,62.16 -75.5725,62.1664 -75.563,62.2202 -75.9953,62.303 -76.1697,62.3358 -76.2538,62.3509 -76.3502,62.3648 -76.5069,62.3935 -76.6029,62.4295 -76.7762,62.4499 -76.9237,62.4576 -77.2046,62.4815 -77.3576,62.4852 -77.3846,62.4702 -77.4049,62.4596 -77.5363,62.4003 -77.5605,62.3916 -77.8117,62.3163 -77.8319,62.3119 -77.8601,62.3151 -77.9336,62.2771 -77.9518,62.2611 -78.0017,62.2039 -78.0094,62.0836 -77.9907,61.9473 -77.9642,61.9122 -77.9411,61.8895 -77.9286,61.8702 -77.9237,61.8416 -77.8587,61.6656 -77.8478,61.6463 -77.8291,61.6296 -77.7813,61.6166 -77.7417,61.6111 -77.667,61.6097 -77.5947,61.5653 -77.5544,61.5293 -77.5182,61.5281 -77.4731,61.5311 -77.436,61.5275 -77.3282,61.4664 -77.3683,61.4648 -77.4238,61.4752 -77.447,61.4807 -77.4651,61.4293 -77.3967,61.4089 -77.4133,61.3924 -77.4721,61.3878 -77.5299,61.3862 -77.6119,61.3357 -77.5977,61.2631 -77.5913,61.2239 -77.5759,61.18 -77.5531,61.1431 -77.7095,60.9764 -77.7405,60.9639 -77.7771,60.9448 -77.8062,60.9267 -78.0169,60.7871 -78.0311,60.7143 -77.9729,60.7231 -77.9302,60.7323 -77.8268,60.7489 -77.7475,60.7474 -77.7723,60.7175 -77.7084,60.6909 -77.5604,60.7219 -77.4241,60.7545 -77.3715,60.7589 -77.4624,60.6819 -77.5719,60.6198 -77.6283,60.5977 -77.6814,60.5691 -77.6396,60.5231 -77.5572,60.4885 -77.5285,60.4775 -77.4916,60.4774 -77.4517,60.4903 -77.4264,60.4973 -77.4025,60.4982 -77.3747,60.497 -77.3392,60.4929 -77.3177,60.4887 -77.2832,60.4746 -77.3333,60.4673 -77.4205,60.4566 -77.545,60.3934 -77.5723,60.3739 -77.5919,60.3532 -77.5985,60.3247 -77.5447,60.2971 -77.4994,60.2914 -77.4563,60.2572 -77.3259,60.1424 -77.3508,60.0835 -77.4074,60.0551 -77.4481,60.0394 -77.4462,59.9916 -77.4027,59.978 -77.373,59.9717 -77.1701,59.9584 -77.127,59.9678 -77.0869,59.9814 -77.0499,60.0715 -77.0285,60.0777 -76.9668,60.0743 -76.9196,60.0679 -76.8862,60.0572 -76.8588,60.0492 -76.8119,60.0403 -76.7795,60.0389 -76.7449,60.0398 -76.7146,60.0486 -76.7095,60.0731 -76.6738,60.0858 -76.6142,60.0865 -76.6289,60.0615 -76.7033,60.0266 -76.9251,59.9918 -77.0615,59.9704 -77.2815,59.8428 -77.2281,59.8259 -77.1551,59.726 -77.1881,59.7135 -77.244,59.7169 -77.2673,59.716 -77.2874,59.7122 -77.392,59.68 -77.3569,59.6064 -77.2912,59.5506 -77.1994,59.5053 -77.1714,59.4945 -77.2088,59.4921 -77.2818,59.5 -77.311,59.51 -77.3691,59.548 -77.3841,59.5756 -77.4398,59.5974 -77.5648,59.633 -77.586,59.6361 -77.622,59.6383 -77.6532,59.6047 -77.6174,59.561 -77.5792,59.5222 -77.5759,59.4683 -77.6044,59.4606 -77.6287,59.4574 -77.6532,59.4537 -77.6948,59.4418 -77.7199,59.4287 -77.7643,59.3407 -77.7465,59.3268 -77.686,59.3434 -77.6453,59.3552 -77.5345,59.3282 -77.6817,59.2113 -77.7066,59.2029 -77.7395,59.201 -77.785,59.1944 -77.8102,59.189 -77.9509,59.1361 -77.9416,59.0856 -77.9824,59.0377 -78.0603,58.9798 -78.1629,58.8588 -78.1933,58.8422 -78.2135,58.8427 -78.204,58.8788 -78.251,58.8941 -78.4183,58.8925 -78.3932,58.8165 -78.3673,58.7698 -78.3434,58.7162 -78.3238,58.6283 -78.3702,58.6092 -78.4138,58.6063 -78.4283,58.5588 -78.4121,58.5368 -78.2457,58.4749 -78.2039,58.4669 -78.2792,58.5521 -78.2531,58.5508 -78.2114,58.5315 -77.9871,58.3929 -77.9195,58.3477 -77.8812,58.3154 -77.8045,58.2861 -77.7716,58.2761 -77.7412,58.2705 -77.7093,58.2655 -77.6727,58.2577 -77.5037,58.209 -77.4298,58.1786 -77.3462,58.1433 -77.3193,58.1306 -77.3044,58.1095 -77.303,58.0832 -77.2086,58.0327 -77.1764,58.0226 -77.139,58.0152 -77.1061,58.0046 -77.0068,57.9535 -76.7838,57.7175 -76.7228,57.6505 -76.6697,57.5688 -76.5984,57.4284 -76.55,57.3621 -76.5177,57.3357 -76.4649,57.23 -76.4541,57.2065 -76.4273,57.1393 -76.3946,57.0242 -76.4104,56.9977 -76.4178,56.9763 -76.4181,56.9405 -76.3944,56.8391 -76.3717,56.744 -76.3692,56.724 -76.3698,56.7177 -76.3687,56.7048 -76.3692,56.6666 -76.3714,56.6436 -76.391,56.5387 -76.3912,56.4309 -76.3843,56.398 -76.3825,56.3626 -76.3841,56.3394 -76.3968,56.2522 -76.4038,56.2312 -76.4923,56.0517 -76.5203,56.0 -76.5455,55.9702 -76.5765,55.9466 -76.6107,55.9336 -76.6773,55.905 -76.8791,55.7372 -76.9342,55.6891 -76.953,55.6398 -76.9761,55.6132 -77.0035,55.5884 -77.0864,55.5264 -77.283,55.4208 -77.4883,55.3176 -77.6149,55.2358 -77.7386,55.1785 -77.8387,55.1399 -77.9853,55.0853 -78.048,55.0606 -78.0734,55.047 -78.1222,55.0176 -78.2396,54.9655 -78.4265,54.9134 -78.598,54.8666 -78.7037,54.8502 -78.7774,54.8197 -78.8161,54.7914 -78.8377,54.7798 -78.9661,54.763 -79.1808,54.7159 -79.2027,54.7084 -79.3227,54.688 -79.3587,54.6807 -79.4963,54.6386 -79.6264,54.5877 -79.5456,54.5626 -79.4839,54.56 -79.4308,54.5462 -79.39,54.5263 -79.354,54.3919 -79.3709,54.3622 -79.3428,54.3052 -79.292,54.2188 -79.2124,54.1361 -79.1436,54.1035 -79.1057,54.0957 -79.0672,54.0981 -79.05,54.1107 -78.9181,54.1178 -78.9794,54.0441 -78.9873,54.0156 -78.8363,53.9433 -78.8697,53.9368 -78.9048,53.9441 -78.9383,53.938 -78.9722,53.8407 -78.9256,53.8101 -78.8809,53.7936 -78.8581,53.7918 -78.839,53.7886 -78.7789,53.7588 -78.8099,53.7554 -78.8503,53.7731 -78.8895,53.7766 -78.9169,53.7714 -79.0178,53.6422 -78.9592,53.6291 -78.8731,53.5792 -78.8208,53.5371 -78.7892,53.5003 -78.8334,53.4466 -78.8786,53.4345 -78.9081,53.4569 -78.883,53.4688 -78.9153,53.4698 -78.9543,53.4601 -78.9777,53.4401 -78.9622,53.4103 -78.9279,53.3778 -78.8707,53.3746 -78.8169,53.3303 -78.7668,53.2005 -78.7597,53.1628 -78.7953,53.007 -78.7883,52.9382 -78.7374,52.9019 -78.7514,52.8464 -78.7541,52.8383 -78.7292,52.8163 -78.6677,52.7997 -78.6115,52.8109 -78.599,52.7582 -78.6013,52.7246 -78.6383,52.7163 -78.6705,52.7124 -78.6644,52.676 -78.6269,52.6227 -78.5875,52.5678 -78.5661,52.5351 -78.5954,52.5257 -78.6351,52.5072 -78.5588,52.4902 -78.529,52.486 -78.4653,52.4776 -78.4456,52.4723 -78.4201,52.4538 -78.3822,52.3964 -78.3922,52.307 -78.3998,52.2502 -78.3769,52.1953 -78.4133,52.1203 -78.4553,52.051 -78.572,51.9477 -78.6185,51.9161 -78.6458,51.9059 -78.6865,51.8988 -78.7324,51.8915 -78.7682,51.8754 -78.7375,51.8188 -78.7153,51.8016 -78.7186,51.7769 -78.7565,51.7512 -78.789,51.7364 -78.8295,51.7328 -78.8573,51.7407 -78.8783,51.7389 -78.9094,51.7133 -78.8212,51.6105 -78.7364,51.5744 -78.6715,51.5466 -78.6859,51.5168 -78.7002,51.4882 -78.7003,51.457 -78.6569,51.4155 -78.7101,51.3792 -78.7658,51.3353 -78.7956,51.1695 -78.7232,51.1046 -78.7961,51.1236 -78.8156,51.1386 -78.8329,51.1637 -78.8381,51.1896 -78.8282,51.233 -78.841,51.2938 -78.8862,51.398 -78.8997,51.4154 -79.0095,51.4773 -79.0349,51.4674 -79.0561,51.4607 -79.0794,51.4593 -79.1487,51.4673 -79.1618,51.4999 -79.152,51.5181 -79.1164,51.5678 -79.2031,51.6025 -79.2302,51.5961 -79.2525,51.5825 -79.3503,51.5193 -79.4101,51.4455 -79.4237,51.4004 -79.4626,51.393 -79.5452,51.339 -79.5598,51.2349 -79.5786,51.2049 -79.5975,51.1845 -79.6211,51.1523 -79.6281,51.1231 -79.5792,51.0211 -79.5456,50.9901 -79.4492,50.9437 -79.4154,50.9248 -79.3931,50.8978 -79.3429,50.8543 -79.3184,50.8361 -79.2993,50.8211 -79.2097,50.7057 -79.225,50.6763 -79.2917,50.7861 -79.323,50.8167 -79.3447,50.8307 -79.3963,50.8695 -79.4158,50.8994 -79.4906,50.9491 -79.5627,50.9865 -79.5939,51.0227 -79.6141,51.0603 -79.6711,51.0939 -79.8728,51.1955 -79.8934,51.2037 -80.0014,51.2377 -80.0666,51.2382 -80.0959,51.2422 -80.206,51.2669 -80.2472,51.2772 -80.2808,51.2757 -80.3558,51.248 -80.388,51.2335 -80.4115,51.2207 -80.4409,51.201 -80.4855,51.1549 -80.5673,51.0983 -80.6203,51.0786 -80.6407,51.0744 -80.6694,51.0738 -80.7035,51.0695 -80.7318,51.0602 -80.7509,51.0442 -80.7638,51.0238 -80.8038,50.987 -80.8846,50.9743 -80.8636,50.9985 -80.8328,51.0187 -80.7072,51.0968 -80.575,51.1822 -80.5279,51.219 -80.4439,51.2548 -80.416,51.2638 -80.3783,51.2726 -80.3472,51.2803 -80.3065,51.2967 -80.3134,51.4066 -80.3349,51.4273 -80.3836,51.4584 -80.4494,51.5813 -80.4623,51.6092 -80.4635,51.635 -80.4869,51.6682 -80.5723,51.7346 -80.6832,51.7972 -80.7705,51.8331 -80.7972,51.857 -80.8475,51.9314 -80.864,51.9495 -80.9903,51.9852 -81.0396,51.9839 -81.0584,51.9931 -81.0847,52.0052 -81.1368,52.0222 -81.1724,52.0295 -81.2168,52.0381 -81.237,52.0468 -81.2857,52.0846 -81.3103,52.1247 -81.3436,52.1603 -81.3825,52.1739 -81.4258,52.1767 -81.5896,52.18 -81.6335,52.1768 -81.6661,52.155 -81.7052,52.1365 -81.7493,52.1275 -81.7281,52.1798 -81.6928,52.1937 -81.5337,52.2315 -81.4319,52.2558 -81.4132,52.2782 -81.4235,52.3878 -81.4433,52.4029 -81.4845,52.417 -81.509,52.4297 -81.5753,52.4686 -81.5961,52.4829 -81.8198,52.6757 -81.8438,52.7213 -81.8695,52.7431 -81.8939,52.7626 -81.9185,52.7814 -81.9696,52.8184 -81.9959,52.8305 -82.0637,52.8517 -82.1032,52.8624 -82.1269,52.8732 -82.1412,52.8946 -82.1636,52.9569 -82.1675,52.9923 -82.1398,53.0937 -82.1147,53.132 -82.077,53.1581 -82.0075,53.1925 -81.9834,53.2095 -81.9811,53.2306 -81.9857,53.2537 -81.9918,53.282 -82.0038,53.3268 -82.0135,53.3592 -82.0326,53.3914 -82.0599,53.4348 -82.0754,53.468 -82.0796,53.5509 -82.0704,53.5849 -82.0588,53.6067 -82.0544,53.6115 -82.0132,53.665 -81.998,53.6954 -81.9942,53.721 -81.9962,53.7551 -82.0238,53.8358 -82.1087,54.0052 -82.1467,54.0294 -82.1639,54.04 -82.225,54.0802 -82.2523,54.1049 -82.2899,54.1399 -82.3029,54.2675 -82.2933,54.3069 -82.2651,54.347 -82.1815,54.5075 -82.0809,54.7234 -82.1034,54.8163 -82.1283,54.8613 -82.1445,54.975 -82.1247,54.9985 -82.1067,55.0231 -82.1131,55.0466 -82.1666,55.0839 -82.2018,55.0908 -82.1693,55.0583 -82.1945,55.0062 -82.2598,55.0179 -82.2699,55.0456 -82.308,55.068 -82.3669,55.0879 -82.5209,55.1039 -82.5627,55.093 -82.5978,55.0826 -82.6364,55.0765 -82.6679,55.0775 -82.6962,55.0818 -82.7324,55.0896 -82.7591,55.1197 -82.7708,55.1366 -82.7936,55.1569 -82.8139,55.1664 -82.8424,55.1714 -82.8637,55.1734 -82.8904,55.1737 -82.9394,55.1643 -82.9812,55.1442 -83.0166,55.134 -83.0369,55.1324 -83.3506,55.1698 -83.3828,55.182 -83.4304,55.1973 -83.557,55.2076 -83.5339,55.1865 -83.5054,55.1782 -83.4771,55.1776 -83.447,55.168 -83.4143,55.1172 -83.4159,55.0678 -83.4419,55.0873 -83.426,55.1195 -83.5121,55.1706 -83.7531,55.2517 -83.7817,55.254 -83.8156,55.2507 -83.8617,55.2364 -83.9052,55.221 -83.9396,55.209 -83.9735,55.207 -84.0178,55.215 -84.0557,55.2299 -84.1778,55.225 -84.2433,55.2175 -84.2915,55.2052 -84.3962,55.1823 -84.421,55.1792 -84.4539,55.1768 -84.4901,55.1774 -84.5424,55.1801 -84.5725,55.1837 -84.6056,55.1909 -84.7233,55.2146 -84.8283,55.2307 -84.8556,55.2316 -84.8977,55.2276 -84.9217,55.2223 -84.9702,55.2116 -85.0017,55.2022 -85.0405,55.184 -85.0737,55.1596 -85.1692,55.0653 -85.1892,55.0367 -85.2014,55.016 -85.2163,54.976 -85.2223,54.9626 -85.2467,54.9385 -85.2735,54.9347 -85.2516,54.9824 -85.2375,55.0027 -85.252,55.0322 -85.1289,55.1515 -85.0686,55.2034 -84.99,55.229 -84.9719,55.2469 -84.9833,55.2799 -85.0265,55.2984 -85.0789,55.2997 -85.125,55.3095 -85.2411,55.3418 -85.3266,55.3894 -85.3653,55.427 -85.3811,55.4581 -85.4151,55.4889 -85.5831,55.5707 -85.7182,55.5919 -86.1226,55.662 -86.1687,55.6776 -86.1895,55.6933 -86.2224,55.7091 -86.2483,55.7185 -86.2983,55.7343 -86.3316,55.7444 -86.3937,55.7585 -86.422,55.7645 -86.466,55.7728 -86.6865,55.8255 -86.7305,55.8411 -86.8229,55.8647 -86.8451,55.8656 -86.8797,55.8638 -86.9053,55.861 -86.9487,55.8624 -87.0462,55.8744 -87.1956,55.911 -87.2076,55.9306 -87.3261,55.9631 -87.3954,55.9839 -87.5561,56.0942 -87.5666,56.1328 -87.6866,56.2488 -87.824,56.3726 -87.8686,56.3914 -87.8934,56.3987 -87.9145,56.402 -87.9474,56.4093 -87.9937,56.4202 -88.0629,56.4377 -88.1679,56.476 -88.2095,56.4945 -88.2587,56.5193 -88.284,56.5367 -88.427,56.6034 -88.4784,56.6196 -88.4974,56.6293 -88.5146,56.6421 -88.5852,56.697 -88.6571,56.7571 -88.7882,56.7761 -88.857,56.7805 -88.9096,56.7848 -88.934,56.7895 -90.0,56.1247 -90.0,48.0634 -89.9891,48.0614 9,-5.0,Canada -66.3407,48.011 -66.3403,48.0109 -66.3341,48.0118 -66.3136,48.0094 -66.3097,48.0135 -66.3044,48.0144 -66.3312,48.0139 -66.341,48.0111 -66.3407,48.011 10,-5.0,Canada -66.2975,48.012 -66.2961,48.0088 -66.2843,48.0042 -66.285,48.0017 -66.29,47.9989 -66.2531,47.9901 -66.2252,47.9901 -66.2594,48.0152 -66.2986,48.0145 -66.2975,48.012 17,-5.0,Canada -64.7346,60.2266 -64.7269,60.2266 -64.6572,60.2485 -64.6294,60.2526 -64.5823,60.2414 -64.5516,60.2468 -64.526,60.2541 -64.5181,60.2564 -64.4959,60.2549 -64.471,60.2479 -64.464,60.2536 -64.4882,60.2635 -64.5253,60.2729 -64.7221,60.2882 -64.7142,60.26 -64.7347,60.2266 -64.7346,60.2266 15,-8.0,Canada -124.4402,50.3439 -124.4389,50.3443 -124.4045,50.3552 -124.3298,50.3742 -124.2389,50.4041 -124.2121,50.4214 -124.168,50.4376 -124.2024,50.3983 -124.2389,50.3761 -124.3316,50.3417 -124.3534,50.3367 -124.3861,50.3405 -124.4137,50.3448 -124.4419,50.3433 -124.4402,50.3439 15,-8.0,Canada -126.2843,50.8651 -126.269,50.8686 -126.2257,50.8785 -126.1153,50.8665 -126.0525,50.8643 -126.0289,50.8699 -126.0096,50.8817 -125.9859,50.8892 -125.9865,50.8635 -126.0181,50.8443 -126.0531,50.8399 -126.1699,50.843 -126.269,50.851 -126.2987,50.8618 -126.2843,50.8651 9,-8.0,Canada -127.2701,52.0415 -127.3892,51.9763 -127.4128,51.9737 -127.3856,52.0314 -127.3662,52.0395 -127.343,52.0395 -127.312,52.0336 -127.2684,52.0424 -127.2701,52.0415 14,-8.0,Canada -126.6921,52.1409 -126.6861,52.1368 -126.6632,52.1213 -126.6238,52.1084 -126.5635,52.0719 -126.5383,52.0524 -126.4675,51.9751 -126.4763,51.9304 -126.4933,51.9661 -126.5126,51.9839 -126.5521,52.018 -126.6273,52.0674 -126.7053,52.1498 -126.6921,52.1409 4124,-8.0,Canada -140.7344,60.2937 -140.7296,60.2343 -140.6803,60.2248 -140.2564,60.1493 -140.2326,60.1786 -140.2071,60.211 -140.1856,60.2369 -139.7416,60.1212 -139.7157,60.1152 -139.6494,60.1482 -139.6026,60.1717 -139.5081,60.2198 -139.4129,60.2676 -139.256,60.2718 -138.8043,60.2716 -138.8196,60.2148 -138.8672,60.1285 -138.8932,60.0824 -138.9244,60.0228 -138.8997,59.9977 -138.8546,59.9689 -138.7857,59.9254 -138.71,59.9065 -138.4291,59.8351 -138.4142,59.7948 -138.4064,59.7665 -138.3904,59.7382 -138.3555,59.7025 -138.2788,59.6603 -138.2311,59.6368 -138.0446,59.5414 -137.8595,59.4453 -137.6529,59.3367 -137.335,59.1675 -137.3104,59.1161 -137.29,59.0722 -137.2441,58.9708 -137.2292,58.9197 -137.2425,58.8934 -137.2517,58.8674 -137.2434,58.844 -137.2175,58.8361 -137.1907,58.8369 -137.1698,58.8422 -137.1386,58.8579 -137.0846,58.8951 -137.0597,58.9106 -137.0418,58.9194 -136.9974,58.9353 -136.8159,58.9947 -136.779,59.0067 -136.7154,59.0274 -136.6877,59.0386 -136.6343,59.061 -136.5549,59.0942 -136.4658,59.0944 -136.3577,59.0937 -136.3302,59.0923 -136.3045,59.1154 -136.2327,59.1847 -136.2086,59.225 -136.208,59.3011 -136.2094,59.343 -136.2086,59.3982 -136.1169,59.3811 -136.0417,59.4022 -135.9793,59.4545 -135.9843,59.49 -136.0433,59.5121 -136.0898,59.53 -136.0554,59.5411 -135.9525,59.5677 -135.9049,59.5749 -135.8659,59.5799 -135.8163,59.5857 -135.6943,59.5975 -135.5684,59.634 -135.2517,59.7222 -135.2191,59.7301 -135.0823,59.6548 -134.9243,59.5654 -134.901,59.5556 -134.8733,59.5507 -134.8442,59.5499 -134.7619,59.4962 -134.7624,59.4689 -134.7656,59.4276 -134.7759,59.3981 -134.8111,59.3867 -134.8274,59.3734 -134.8393,59.3555 -134.7005,59.2091 -134.4881,59.1793 -134.4376,59.1724 -134.4232,59.1366 -134.4005,59.1146 -134.3164,59.0596 -134.2824,59.0613 -134.2172,59.0582 -134.1337,58.9827 -134.0769,58.9006 -134.0791,58.8549 -133.9902,58.7841 -133.84,58.7378 -133.5801,58.656 -133.5619,58.6398 -133.4897,58.5745 -133.3135,58.458 -133.1853,58.3892 -133.1434,58.3422 -133.1645,58.3305 -133.1861,58.2905 -133.1172,58.2109 -133.0624,58.1877 -132.9904,58.1418 -132.9682,58.127 -132.9469,58.1107 -132.8944,58.0666 -132.866,58.0166 -132.8491,57.9714 -132.8286,57.9431 -132.8136,57.9278 -132.7968,57.9137 -132.7534,57.8825 -132.7234,57.8643 -132.6919,57.8404 -132.6363,57.7906 -132.5755,57.7291 -132.5556,57.7026 -132.5465,57.6832 -132.5227,57.6516 -132.3801,57.515 -132.2597,57.4021 -132.2336,57.3828 -132.2127,57.3669 -132.1366,57.307 -132.1165,57.2863 -131.99,57.1368 -132.0246,57.1009 -132.0878,57.0214 -131.9852,57.0003 -131.7917,56.9686 -131.801,56.9453 -131.8267,56.8921 -131.8569,56.8262 -131.8683,56.7991 -131.6276,56.7286 -131.6242,56.6515 -131.5911,56.5315 -131.3784,56.5352 -131.3463,56.5363 -131.3161,56.5323 -131.0826,56.4433 -131.0583,56.4336 -130.9819,56.4022 -130.9334,56.3783 -130.9134,56.3678 -130.8947,56.3575 -130.8318,56.334 -130.6894,56.3157 -130.6169,56.3077 -130.5443,56.2995 -130.5258,56.2863 -130.4908,56.2588 -130.3979,56.1922 -130.3314,56.1835 -130.3037,56.1798 -130.2555,56.1731 -130.233,56.1688 -130.2186,56.1399 -130.137,56.0574 -130.0013,56.0242 -129.8608,56.0518 -129.8262,56.0094 -129.7873,55.9585 -129.7884,55.8431 -129.7686,55.8605 -129.7395,55.8564 -129.8129,55.7723 -129.8349,55.7538 -129.8589,55.7381 -129.8887,55.7107 -129.9024,55.6702 -129.8773,55.4962 -129.7844,55.3056 -129.737,55.2437 -129.7228,55.2202 -129.8189,55.1412 -129.8492,55.1249 -129.8932,55.0805 -129.9376,55.0157 -129.9047,54.9492 -129.8858,54.9296 -129.8557,54.928 -129.8055,54.9719 -129.6921,55.0936 -129.5922,55.2216 -129.5578,55.2915 -129.5479,55.4139 -129.5582,55.4329 -129.5623,55.5011 -129.4839,55.3877 -129.4588,55.4048 -129.4046,55.3927 -129.2545,55.4052 -129.2849,55.3793 -129.309,55.3736 -129.3609,55.3784 -129.3899,55.3787 -129.4166,55.3707 -129.4393,55.347 -129.5034,55.2736 -129.6245,55.1454 -129.7364,55.0309 -129.7531,55.0021 -129.7587,54.9488 -129.6871,54.9328 -129.6542,54.9412 -129.5775,54.9423 -129.4013,54.9357 -129.4233,54.9195 -129.6922,54.9023 -129.7188,54.9064 -129.8092,54.9008 -129.8294,54.8921 -129.9456,54.7897 -129.978,54.6647 -129.8074,54.578 -129.7841,54.5687 -129.748,54.5579 -129.6901,54.5415 -129.7397,54.5438 -129.7606,54.546 -129.7802,54.5507 -129.8065,54.559 -129.8453,54.5828 -129.8802,54.6077 -129.9391,54.6363 -130.0113,54.6445 -130.1109,54.6258 -130.1342,54.6155 -130.1502,54.5974 -130.1485,54.576 -130.0931,54.5223 -129.9282,54.3784 -129.8188,54.2787 -129.764,54.2617 -129.7419,54.2562 -129.7695,54.2481 -129.8106,54.2597 -129.842,54.2745 -130.0031,54.4082 -130.0613,54.4647 -130.1116,54.5148 -130.1615,54.556 -130.1909,54.5648 -130.2166,54.5564 -130.2091,54.4988 -130.2133,54.4328 -130.255,54.3696 -130.2641,54.338 -130.2615,54.3011 -130.236,54.2741 -130.1724,54.2668 -130.122,54.2648 -130.0564,54.2827 -130.0199,54.2315 -130.0099,54.1952 -129.9738,54.1298 -129.9003,54.0918 -129.8202,54.1096 -129.774,54.1296 -129.7559,54.1406 -129.6537,54.1718 -129.6281,54.175 -129.5593,54.1715 -129.4682,54.159 -129.3477,54.1622 -129.298,54.1797 -129.2574,54.1758 -129.3753,54.1227 -129.3973,54.1156 -129.4221,54.1177 -129.4753,54.1294 -129.5094,54.1373 -129.5649,54.1472 -129.6145,54.156 -129.6387,54.1521 -129.832,54.0876 -129.8529,54.0615 -129.8742,54.0059 -129.8844,53.8812 -129.8321,53.8222 -129.6982,53.7357 -129.6467,53.7025 -129.6164,53.6844 -129.4728,53.5678 -129.4161,53.5252 -129.3061,53.4527 -129.1423,53.3455 -129.1224,53.3353 -129.0922,53.3228 -129.0615,53.3169 -129.0263,53.3713 -129.023,53.3967 -129.0198,53.4386 -129.0249,53.4749 -129.025,53.5482 -129.0049,53.5778 -128.9046,53.6511 -128.7704,53.6996 -128.719,53.7119 -128.7023,53.7245 -128.586,53.8121 -128.5128,53.8758 -128.4732,53.9306 -128.392,53.9665 -128.43,53.8919 -128.4504,53.8628 -128.4655,53.8461 -128.4496,53.8233 -128.404,53.8058 -128.3286,53.796 -128.2891,53.7944 -128.264,53.7755 -128.3859,53.778 -128.4331,53.7748 -128.4566,53.7799 -128.5575,53.7331 -128.5795,53.7095 -128.5602,53.6705 -128.5719,53.6128 -128.6025,53.5908 -128.6031,53.5589 -128.3338,53.4174 -128.2753,53.4242 -128.244,53.4367 -128.0913,53.4161 -127.9643,53.4217 -127.9172,53.4186 -127.8842,53.3897 -127.8621,53.369 -127.7792,53.2919 -127.7163,53.2622 -127.7247,53.2311 -127.7144,53.2115 -127.663,53.175 -127.7405,53.1923 -127.7477,53.2115 -127.7433,53.2534 -127.7973,53.285 -127.8257,53.3071 -127.8617,53.3317 -127.8899,53.3744 -127.9222,53.3866 -127.9444,53.3923 -127.9797,53.3977 -128.2195,53.3677 -128.2357,53.3525 -128.3138,53.3345 -128.3483,53.3518 -128.4818,53.423 -128.5749,53.499 -128.7579,53.4906 -128.7478,53.4403 -128.7109,53.3914 -128.6772,53.3627 -128.675,53.3122 -128.6683,53.2542 -128.658,53.2327 -128.6439,53.2176 -128.5819,53.1796 -128.4921,53.1336 -128.463,53.1295 -128.4166,53.1402 -128.3314,53.07 -128.308,52.9584 -128.2989,52.9014 -128.287,52.8254 -128.2323,52.7594 -128.2197,52.7561 -128.1337,52.744 -128.0943,52.7387 -128.0682,52.7382 -128.0282,52.7457 -127.9662,52.7927 -127.9254,52.8148 -127.915,52.6958 -127.9404,52.6585 -127.9802,52.6098 -128.0357,52.4996 -128.0303,52.473 -128.0177,52.4091 -128.0561,52.3396 -128.0822,52.3396 -128.1258,52.3196 -128.1903,52.2308 -128.0928,52.2117 -128.0259,52.2655 -127.9447,52.3614 -127.9143,52.4045 -127.8983,52.4368 -127.8309,52.4776 -127.6795,52.5164 -127.6869,52.4867 -127.762,52.4583 -127.8055,52.4476 -127.8332,52.4305 -127.8515,52.4138 -127.864,52.3897 -127.8549,52.3365 -127.8041,52.2768 -127.7638,52.2626 -127.7062,52.3447 -127.7238,52.3684 -127.6894,52.4505 -127.6663,52.4419 -127.7027,52.2181 -127.6708,52.1626 -127.6552,52.1518 -127.6404,52.1637 -127.6023,52.1881 -127.5392,52.2158 -127.5191,52.214 -127.4128,52.2327 -127.2869,52.3012 -127.2631,52.3346 -127.1981,52.3634 -127.1309,52.3731 -127.0586,52.4095 -127.0756,52.4409 -127.0542,52.4846 -127.0377,52.4966 -126.9311,52.5482 -126.8438,52.584 -126.7783,52.6571 -126.809,52.7549 -126.8152,52.775 -126.7699,52.7721 -126.7192,52.6614 -126.7822,52.5748 -126.8015,52.5658 -126.8706,52.5547 -126.9887,52.493 -127.0331,52.4489 -127.0256,52.3921 -126.9845,52.3201 -126.9476,52.2896 -126.881,52.2744 -126.8014,52.2743 -126.7699,52.2822 -126.7432,52.3044 -126.7168,52.3115 -126.5915,52.3347 -126.5561,52.3301 -126.5332,52.3107 -126.578,52.3092 -126.616,52.3039 -126.6722,52.2902 -126.731,52.2629 -126.7396,52.2432 -126.7053,52.1498 -126.738,52.1844 -126.7633,52.2108 -126.806,52.2431 -126.8415,52.2485 -126.973,52.2485 -126.9914,52.2302 -127.0408,52.19 -127.0928,52.169 -127.1299,52.1696 -127.1526,52.1641 -127.1745,52.1564 -127.2503,52.1159 -127.2261,52.0653 -127.2684,52.0424 -127.2701,52.0843 -127.298,52.091 -127.3243,52.0866 -127.3791,52.0688 -127.4245,52.0325 -127.4504,51.9895 -127.4641,51.8937 -127.5374,51.8894 -127.5654,51.8865 -127.5925,51.8797 -127.6263,51.8631 -127.6642,51.8407 -127.6852,51.7952 -127.6896,51.7428 -127.6768,51.6088 -127.5885,51.5004 -127.5144,51.4448 -127.5532,51.4329 -127.5211,51.3994 -127.4611,51.3981 -127.4402,51.4001 -127.3795,51.4546 -127.3618,51.4816 -127.3476,51.5676 -127.3865,51.6177 -127.373,51.6469 -127.2491,51.7171 -127.1478,51.7978 -127.1624,51.7136 -127.2284,51.6718 -127.239,51.6155 -127.2095,51.608 -127.0757,51.6234 -126.9424,51.6346 -126.8766,51.638 -126.8555,51.6378 -126.773,51.6287 -126.7172,51.6224 -126.5006,51.6049 -126.4474,51.6436 -126.4603,51.68 -126.468,51.7093 -126.4621,51.732 -126.4395,51.7118 -126.4088,51.656 -126.4226,51.6203 -126.462,51.5902 -126.5107,51.582 -126.6861,51.5897 -126.7462,51.597 -126.8976,51.608 -127.0349,51.6025 -127.1273,51.5914 -127.1775,51.585 -127.2458,51.5703 -127.2978,51.5546 -127.3172,51.531 -127.323,51.5043 -127.3163,51.4733 -127.354,51.4087 -127.4528,51.3486 -127.4912,51.3312 -127.5365,51.3235 -127.5859,51.2905 -127.5703,51.2619 -127.3649,51.2712 -127.2657,51.2823 -127.2554,51.2564 -127.1991,51.2427 -127.1706,51.2397 -127.0888,51.2413 -127.051,51.2469 -127.012,51.2566 -126.9888,51.2658 -126.9477,51.2986 -126.9242,51.324 -126.9212,51.2981 -126.936,51.269 -127.0074,51.2391 -127.024,51.2293 -127.1737,51.2151 -127.2071,51.223 -127.2547,51.2326 -127.3431,51.2352 -127.3685,51.2337 -127.3992,51.2309 -127.565,51.19 -127.589,51.1694 -127.5991,51.1406 -127.5931,51.1063 -127.4767,51.039 -127.4446,51.0328 -127.36,51.0411 -127.3376,51.049 -127.3051,51.0569 -127.1931,51.0091 -127.1636,51.0043 -127.1382,51.0011 -127.0429,50.9979 -127.0044,50.9979 -126.9459,51.0011 -126.7328,51.0257 -126.6547,51.0339 -126.5226,51.0737 -126.4924,51.1016 -126.4848,51.1285 -126.4626,51.1311 -126.4567,51.0953 -126.4946,51.0535 -126.6271,51.0067 -126.6753,51.0139 -126.7536,51.008 -126.7942,51.0017 -126.9009,50.985 -127.0232,50.9818 -127.0439,50.9821 -127.1351,50.9895 -127.1589,50.9927 -127.1792,50.9985 -127.2052,51.0094 -127.2402,51.0237 -127.2815,51.0384 -127.3028,51.0394 -127.3418,50.9467 -127.2353,50.8815 -127.2038,50.8677 -127.1398,50.8481 -127.0489,50.8378 -126.9384,50.8034 -126.8709,50.775 -126.8462,50.7611 -126.8245,50.7596 -126.7747,50.8077 -126.8192,50.8092 -126.8683,50.8265 -126.9787,50.8635 -126.9176,50.8723 -126.891,50.8625 -126.8538,50.8513 -126.8203,50.8449 -126.7164,50.845 -126.6189,50.8537 -126.528,50.8174 -126.4761,50.8083 -126.3794,50.8433 -126.2987,50.8618 -126.3401,50.841 -126.3622,50.8201 -126.3641,50.7815 -126.3004,50.7577 -126.2386,50.7666 -126.2073,50.7883 -126.1831,50.7967 -126.0763,50.7994 -126.0062,50.7972 -125.9194,50.6951 -126.0199,50.6449 -125.9438,50.6231 -125.7721,50.63 -125.6238,50.6488 -125.5396,50.6768 -125.4994,50.7126 -125.4181,50.8402 -125.3908,50.9158 -125.4453,51.0069 -125.4441,51.0311 -125.418,51.0285 -125.3943,51.0165 -125.3657,50.9903 -125.3155,50.8824 -125.3487,50.8093 -125.4287,50.6935 -125.5025,50.6463 -125.5471,50.6237 -125.717,50.6056 -125.8256,50.6034 -126.0782,50.569 -126.0599,50.5512 -126.0465,50.5331 -125.9947,50.499 -126.0351,50.4778 -126.0856,50.458 -126.0022,50.432 -125.9682,50.4267 -125.8723,50.4125 -125.7698,50.4105 -125.7394,50.4154 -125.665,50.4408 -125.5136,50.3714 -125.4541,50.3854 -125.4209,50.4295 -125.3958,50.4784 -125.3913,50.507 -125.3801,50.5538 -125.3701,50.5842 -125.3517,50.6076 -125.2771,50.6525 -125.2416,50.6525 -125.2627,50.6185 -125.2839,50.6081 -125.3189,50.5988 -125.3413,50.5688 -125.3583,50.4395 -125.2983,50.3983 -125.2616,50.4002 -125.2227,50.4111 -125.1464,50.4215 -125.0564,50.4038 -125.0152,50.361 -124.9935,50.3547 -124.928,50.38 -124.9274,50.4191 -124.9121,50.4402 -124.8372,50.4825 -124.739,50.5381 -124.7149,50.5632 -124.7221,50.641 -124.7546,50.7168 -124.7336,50.776 -124.6655,50.8732 -124.6161,50.8609 -124.597,50.8273 -124.682,50.7557 -124.6785,50.7063 -124.6643,50.6329 -124.6692,50.5296 -124.6912,50.5022 -124.7789,50.4414 -124.8288,50.4259 -124.8558,50.4229 -124.8982,50.2894 -124.8864,50.2631 -124.8752,50.2599 -124.7504,50.2673 -124.662,50.2518 -124.6416,50.2514 -124.6212,50.257 -124.5508,50.2938 -124.5233,50.3176 -124.4419,50.3433 -124.4664,50.3296 -124.5247,50.2659 -124.4771,50.2459 -124.4472,50.2254 -124.4151,50.1826 -124.4294,50.1213 -124.4811,50.0127 -124.5182,49.9381 -124.5805,49.9787 -124.6307,50.0063 -124.6174,49.9628 -124.5876,49.9284 -124.5568,49.9009 -124.5178,49.8775 -124.4474,49.8421 -124.4066,49.8256 -124.3872,49.8172 -124.3452,49.7824 -124.3366,49.7485 -124.2485,49.7107 -124.2247,49.7064 -124.0864,49.711 -123.9974,49.7159 -123.9615,49.7227 -123.9035,49.7405 -123.8762,49.7832 -123.8865,49.8153 -123.851,49.8608 -123.8244,49.7901 -123.8204,49.7535 -123.7986,49.7465 -123.7405,49.773 -123.7302,49.8154 -123.7673,49.8384 -123.7894,49.8544 -123.8079,49.8858 -123.814,49.9446 -123.7696,49.9717 -123.7307,49.9822 -123.6844,50.0 -123.6277,50.0331 -123.691,50.0904 -123.7105,50.0967 -123.7443,50.1031 -123.7672,50.117 -123.8007,50.1531 -123.6605,50.1056 -123.6399,50.0966 -123.5633,50.0272 -123.6169,49.9849 -123.6651,49.9654 -123.6928,49.9592 -123.7419,49.9343 -123.7727,49.9003 -123.7611,49.8825 -123.7405,49.8727 -123.7084,49.8662 -123.6892,49.8151 -123.6964,49.7767 -123.7363,49.7352 -123.7513,49.7191 -123.6236,49.5865 -123.5621,49.5885 -123.5002,49.5949 -123.3962,49.6216 -123.3726,49.6335 -123.3531,49.6399 -123.3726,49.6151 -123.4323,49.5822 -123.4563,49.5781 -123.4992,49.568 -123.554,49.5486 -123.5881,49.5192 -123.5712,49.4809 -123.5827,49.453 -123.6091,49.4532 -123.6403,49.5272 -123.648,49.5654 -123.6936,49.6264 -123.7544,49.6837 -123.7828,49.6887 -123.8092,49.6838 -123.8296,49.674 -123.847,49.6596 -123.8757,49.614 -123.8867,49.5845 -123.8056,49.485 -123.7789,49.4553 -123.708,49.412 -123.6759,49.4112 -123.5925,49.4017 -123.4935,49.3684 -123.4216,49.3422 -123.3585,49.3257 -123.3347,49.3289 -123.2985,49.3578 -123.2917,49.3892 -123.3057,49.4052 -123.3096,49.4517 -123.248,49.4816 -123.2058,49.4976 -123.1612,49.5044 -123.0863,49.545 -123.0643,49.5902 -122.9836,49.6441 -122.9717,49.6259 -123.0195,49.5589 -123.0692,49.4695 -123.0726,49.3282 -123.0551,49.2825 -122.8909,49.2578 -122.8601,49.2565 -122.8246,49.2631 -122.7506,49.2715 -122.7346,49.2856 -122.7207,49.304 -122.7014,49.3437 -122.6946,49.3914 -122.6741,49.3816 -122.6962,49.2885 -122.7372,49.2345 -122.7626,49.2278 -122.8286,49.2254 -122.9137,49.2275 -123.0667,49.2161 -123.0268,49.069 -122.9633,49.0516 -122.9329,48.9804 -122.9134,48.9431 -122.8544,48.9431 -122.8589,48.949 -122.8677,48.9692 -122.8502,48.9907 -122.7614,49.0261 -122.7293,49.031 -122.6874,49.0227 -122.6926,48.9979 -122.6952,48.9756 -122.6426,48.9506 -122.5806,48.9434 -122.5204,48.9439 -122.3874,48.9437 -122.2543,48.9437 -122.1547,48.9438 -121.922,48.9438 -120.9079,48.9434 -120.3584,48.9432 -119.8584,48.9434 -119.7587,48.9434 -119.6919,48.9432 -119.2928,48.9434 -118.9598,48.9434 -118.7935,48.9432 -118.5938,48.9431 -118.195,48.9433 -117.9611,48.9433 -117.8282,48.9431 -117.6948,48.9431 -117.6621,48.9438 -117.3956,48.9437 -117.1289,48.9439 -117.0631,48.9439 -117.0292,48.9432 -116.896,48.9436 -116.8652,48.947 -116.8303,48.9434 -115.8786,48.9435 -115.5649,48.9434 -115.4321,48.9434 -115.3982,48.9439 -115.2991,48.9438 -115.1992,48.9439 -114.999,48.9431 -114.8656,48.9434 -114.7328,48.9433 -114.4663,48.9438 -114.367,48.9438 -114.3,48.9432 -114.1675,48.9434 -113.9971,48.944 -113.9971,48.9489 -113.998,48.9508 -113.9948,48.9606 -113.982,48.977 -113.9893,48.9962 -113.9907,48.9999 -113.9981,49.0053 -114.0286,49.0158 -114.0498,49.0303 -114.0686,49.039 -114.0843,49.0759 -114.0862,49.0848 -114.0803,49.0934 -114.0794,49.0945 -114.083,49.1012 -114.0944,49.1108 -114.1326,49.1251 -114.14,49.1369 -114.1538,49.1404 -114.1611,49.1402 -114.1721,49.1332 -114.1834,49.131 -114.2182,49.1386 -114.2274,49.1425 -114.2395,49.1475 -114.2631,49.1503 -114.2725,49.1455 -114.2946,49.156 -114.3235,49.1631 -114.3198,49.17 -114.3236,49.194 -114.3035,49.2043 -114.3065,49.2077 -114.3102,49.2084 -114.3707,49.22 -114.376,49.2236 -114.3729,49.2337 -114.3758,49.2442 -114.3865,49.2514 -114.3966,49.2617 -114.4104,49.266 -114.4141,49.2719 -114.4043,49.2853 -114.405,49.2901 -114.4053,49.2925 -114.4165,49.3037 -114.4509,49.3144 -114.457,49.3331 -114.4678,49.334 -114.4841,49.3313 -114.4981,49.334 -114.5105,49.3453 -114.5232,49.3685 -114.5301,49.3896 -114.5232,49.4199 -114.5235,49.4508 -114.5169,49.4598 -114.5066,49.4693 -114.4949,49.4865 -114.4945,49.4883 -114.4924,49.4998 -114.5036,49.511 -114.5137,49.5158 -114.524,49.5126 -114.5406,49.5021 -114.5586,49.4972 -114.5733,49.4967 -114.6042,49.5071 -114.6194,49.5035 -114.6277,49.505 -114.6351,49.5127 -114.6532,49.5315 -114.6713,49.5599 -114.6702,49.5704 -114.6608,49.5773 -114.644,49.5801 -114.6332,49.5893 -114.5897,49.5941 -114.5881,49.5952 -114.5835,49.5983 -114.584,49.6049 -114.593,49.6203 -114.5989,49.6513 -114.5954,49.6605 -114.5728,49.6699 -114.5607,49.6807 -114.5632,49.6915 -114.5696,49.6961 -114.5699,49.7044 -114.5714,49.7053 -114.5806,49.7105 -114.583,49.7172 -114.5774,49.7226 -114.5665,49.7271 -114.5615,49.7343 -114.5622,49.7503 -114.5587,49.7588 -114.5669,49.7689 -114.5641,49.7834 -114.5807,49.7971 -114.5859,49.8081 -114.5917,49.8156 -114.613,49.8432 -114.6163,49.8499 -114.6115,49.8717 -114.6162,49.8855 -114.6159,49.9012 -114.6055,49.9179 -114.5795,49.9242 -114.578,49.9245 -114.5746,49.943 -114.5795,49.95 -114.5882,49.9621 -114.5829,49.9804 -114.5959,50.003 -114.5893,50.0089 -114.5896,50.0171 -114.6121,50.023 -114.6191,50.0332 -114.632,50.052 -114.6578,50.0645 -114.6607,50.0735 -114.656,50.0842 -114.6509,50.1113 -114.6561,50.1222 -114.6561,50.1269 -114.6509,50.1352 -114.6505,50.1422 -114.6529,50.1466 -114.662,50.1635 -114.6938,50.1981 -114.694,50.2063 -114.6829,50.2171 -114.6774,50.2272 -114.6764,50.2324 -114.6793,50.2507 -114.6922,50.2552 -114.6964,50.2549 -114.707,50.254 -114.7133,50.2592 -114.7089,50.2682 -114.717,50.2804 -114.7135,50.2891 -114.7057,50.2917 -114.6966,50.3011 -114.6994,50.3088 -114.7068,50.3117 -114.7191,50.3119 -114.7328,50.3204 -114.739,50.3263 -114.7385,50.3326 -114.7508,50.339 -114.7609,50.3407 -114.7817,50.3441 -114.789,50.3509 -114.7858,50.3718 -114.7985,50.3826 -114.8028,50.3923 -114.8313,50.3976 -114.8423,50.4047 -114.8585,50.4333 -114.8799,50.4538 -114.907,50.4903 -114.9271,50.5078 -114.93,50.5137 -114.9419,50.5383 -114.9479,50.5391 -114.9504,50.5368 -114.956,50.5319 -114.9697,50.531 -114.9751,50.5282 -114.9793,50.5289 -114.9923,50.5385 -114.9988,50.5402 -115.0216,50.5297 -115.0319,50.5269 -115.0519,50.5257 -115.0714,50.5263 -115.0822,50.5247 -115.092,50.5215 -115.1062,50.5077 -115.1086,50.5022 -115.1092,50.5009 -115.1061,50.4944 -115.1106,50.4896 -115.1247,50.4898 -115.1298,50.4855 -115.1377,50.4861 -115.1503,50.4944 -115.1542,50.5006 -115.1553,50.5113 -115.1644,50.526 -115.161,50.5414 -115.1664,50.5457 -115.1852,50.5506 -115.2029,50.5585 -115.2052,50.5595 -115.2174,50.57 -115.2216,50.5799 -115.2321,50.5873 -115.2349,50.5933 -115.2271,50.6003 -115.2123,50.5988 -115.2032,50.6056 -115.2042,50.6149 -115.2168,50.6329 -115.2217,50.657 -115.2401,50.6754 -115.2559,50.679 -115.277,50.6784 -115.2907,50.6752 -115.3003,50.6692 -115.3122,50.6651 -115.3392,50.672 -115.3354,50.6863 -115.3542,50.7075 -115.3552,50.7085 -115.3611,50.7123 -115.3654,50.7101 -115.3748,50.7091 -115.3795,50.7119 -115.3901,50.7118 -115.3921,50.7078 -115.4002,50.7104 -115.4064,50.7159 -115.4082,50.7285 -115.4263,50.7414 -115.4439,50.7385 -115.4543,50.7392 -115.4661,50.7513 -115.4844,50.7634 -115.4845,50.7664 -115.4852,50.7851 -115.4899,50.7888 -115.526,50.7971 -115.532,50.7967 -115.5382,50.7913 -115.547,50.7898 -115.5611,50.792 -115.5705,50.8176 -115.5714,50.8277 -115.5478,50.8334 -115.5419,50.8348 -115.525,50.8412 -115.5054,50.8403 -115.4925,50.846 -115.4897,50.8508 -115.4916,50.8555 -115.5007,50.8637 -115.5285,50.8743 -115.5283,50.8797 -115.5319,50.8854 -115.5322,50.8988 -115.5407,50.9132 -115.5454,50.9185 -115.5562,50.9307 -115.5908,50.9549 -115.6074,50.9593 -115.6224,50.9763 -115.6291,50.9775 -115.6401,50.9673 -115.6487,50.9679 -115.6755,50.9839 -115.6783,50.9861 -115.6929,50.9971 -115.6895,51.0137 -115.6803,51.017 -115.6818,51.0219 -115.6874,51.023 -115.7,51.0169 -115.724,51.0222 -115.7336,51.0272 -115.7385,51.0322 -115.7479,51.0314 -115.7628,51.0255 -115.7719,51.0297 -115.7855,51.0313 -115.7914,51.0367 -115.7956,51.0404 -115.8171,51.0433 -115.8215,51.041 -115.8241,51.0324 -115.8305,51.0321 -115.8445,51.0389 -115.8664,51.053 -115.8809,51.0671 -115.9449,51.082 -115.9405,51.1089 -115.964,51.1162 -115.9627,51.1242 -115.9344,51.1465 -115.9342,51.1701 -115.9411,51.1728 -115.9573,51.1744 -115.9664,51.1776 -115.9833,51.1836 -115.9938,51.1975 -116.0044,51.2005 -116.0163,51.2001 -116.0326,51.2017 -116.0476,51.2055 -116.0612,51.2121 -116.0762,51.2154 -116.0829,51.2193 -116.0787,51.2345 -116.0913,51.2474 -116.1,51.2492 -116.1152,51.2523 -116.1335,51.2472 -116.1447,51.2461 -116.1731,51.2519 -116.1952,51.2631 -116.2136,51.2918 -116.2078,51.3053 -116.2131,51.3183 -116.2148,51.3187 -116.2291,51.3221 -116.2327,51.3338 -116.2287,51.3416 -116.2127,51.3619 -116.2135,51.3683 -116.2227,51.3798 -116.2184,51.3893 -116.2163,51.4087 -116.2257,51.4133 -116.2527,51.4169 -116.2735,51.4197 -116.2849,51.4233 -116.3222,51.456 -116.3205,51.4784 -116.3083,51.4857 -116.3177,51.4966 -116.3461,51.5035 -116.3772,51.5111 -116.3936,51.5184 -116.3962,51.5249 -116.3938,51.5444 -116.397,51.552 -116.4051,51.5611 -116.4298,51.5758 -116.4443,51.5798 -116.467,51.5885 -116.5024,51.602 -116.524,51.6135 -116.5223,51.6204 -116.5142,51.6277 -116.5154,51.6329 -116.5111,51.6362 -116.5148,51.6571 -116.5213,51.668 -116.53,51.6732 -116.5508,51.6811 -116.5517,51.6826 -116.5544,51.6868 -116.5538,51.6946 -116.5644,51.7034 -116.5752,51.7072 -116.5797,51.7148 -116.5782,51.7499 -116.5891,51.7572 -116.6055,51.7613 -116.6172,51.7588 -116.6385,51.7515 -116.6505,51.7534 -116.6628,51.7579 -116.6736,51.7574 -116.7038,51.7239 -116.7292,51.7098 -116.7425,51.6879 -116.7395,51.6822 -116.7338,51.6788 -116.7273,51.6714 -116.7322,51.6642 -116.7345,51.6608 -116.7465,51.656 -116.7638,51.6586 -116.7795,51.6591 -116.7912,51.6558 -116.8102,51.6553 -116.8306,51.658 -116.8475,51.6625 -116.8591,51.6827 -116.8897,51.7016 -116.9024,51.7113 -116.896,51.7234 -116.8956,51.7479 -116.8998,51.7563 -116.9135,51.7738 -116.9147,51.7831 -116.9149,51.7854 -116.923,51.7887 -116.9392,51.7892 -116.9563,51.7997 -116.9589,51.819 -116.947,51.8428 -116.9538,51.8494 -116.9744,51.8678 -116.9967,51.8791 -117.0222,51.892 -117.039,51.9054 -117.0572,51.914 -117.0747,51.927 -117.0882,51.9253 -117.099,51.9259 -117.1247,51.9311 -117.1343,51.9455 -117.1478,51.9508 -117.1527,51.9527 -117.1586,51.9607 -117.1467,51.9735 -117.146,51.9787 -117.1497,51.9856 -117.1759,51.9933 -117.1942,51.9957 -117.1971,52.0025 -117.2033,52.0086 -117.2187,52.0157 -117.2255,52.0227 -117.2308,52.0448 -117.2408,52.0856 -117.2458,52.1381 -117.2515,52.1406 -117.2591,52.1136 -117.2611,52.1066 -117.2654,52.1016 -117.2762,52.0987 -117.3002,52.097 -117.3424,52.1014 -117.3577,52.1007 -117.3833,52.0964 -117.4209,52.0938 -117.4272,52.1012 -117.4372,52.1046 -117.443,52.1065 -117.4477,52.1037 -117.4511,52.0964 -117.4694,52.0913 -117.4843,52.0804 -117.4906,52.0789 -117.5081,52.085 -117.5307,52.0895 -117.5447,52.1037 -117.5499,52.1156 -117.5744,52.1333 -117.585,52.141 -117.5902,52.148 -117.5979,52.1499 -117.6148,52.1473 -117.6445,52.1394 -117.6642,52.1381 -117.671,52.1519 -117.7349,52.1751 -117.7364,52.1757 -117.7463,52.1844 -117.7523,52.1993 -117.7625,52.2058 -117.7692,52.2163 -117.7693,52.2253 -117.7386,52.24 -117.7246,52.2442 -117.7214,52.2553 -117.6995,52.2689 -117.6905,52.2696 -117.6883,52.2698 -117.6781,52.2678 -117.6753,52.2801 -117.6661,52.2946 -117.6542,52.3034 -117.6375,52.3047 -117.6394,52.3166 -117.65,52.3227 -117.6519,52.3301 -117.6497,52.338 -117.6582,52.3429 -117.6756,52.3487 -117.6898,52.3576 -117.6935,52.3599 -117.7065,52.3609 -117.7146,52.3599 -117.7265,52.356 -117.7381,52.3582 -117.7542,52.366 -117.7705,52.3674 -117.8165,52.3773 -117.8382,52.3859 -117.8417,52.3944 -117.8502,52.399 -117.8655,52.4015 -117.8864,52.4108 -117.892,52.4162 -117.8964,52.4307 -117.9074,52.4343 -117.9165,52.448 -117.9255,52.4487 -117.9372,52.442 -117.9447,52.4322 -117.9524,52.4159 -117.9508,52.4054 -117.9536,52.401 -117.9632,52.4064 -117.9691,52.4097 -117.9781,52.4104 -117.9826,52.4058 -117.985,52.3958 -117.9808,52.3928 -117.9653,52.3897 -117.9611,52.386 -117.9618,52.3805 -117.966,52.3744 -117.977,52.3631 -117.9796,52.351 -117.9859,52.3465 -118.0435,52.3498 -118.0474,52.3505 -118.068,52.3543 -118.0813,52.3518 -118.1051,52.3341 -118.1121,52.3222 -118.1199,52.3188 -118.1365,52.3181 -118.1463,52.322 -118.1502,52.3274 -118.1478,52.3381 -118.1649,52.3566 -118.1653,52.3638 -118.1664,52.383 -118.176,52.3977 -118.1699,52.4013 -118.155,52.4024 -118.1494,52.4112 -118.1234,52.4239 -118.1222,52.4291 -118.1261,52.4352 -118.1337,52.4379 -118.1454,52.4405 -118.1647,52.441 -118.1757,52.4443 -118.1785,52.4461 -118.189,52.4525 -118.2097,52.4847 -118.209,52.4955 -118.1958,52.506 -118.1952,52.5112 -118.2078,52.5211 -118.2345,52.5249 -118.2549,52.5306 -118.2609,52.5389 -118.261,52.5396 -118.2622,52.5551 -118.2817,52.5621 -118.2773,52.5728 -118.277,52.5823 -118.2718,52.5869 -118.2636,52.5903 -118.2563,52.599 -118.2294,52.6021 -118.2226,52.6071 -118.2163,52.6268 -118.2223,52.636 -118.2241,52.6368 -118.2513,52.6487 -118.2662,52.6617 -118.2686,52.6746 -118.2639,52.6815 -118.2657,52.6868 -118.2873,52.6958 -118.2996,52.7049 -118.3201,52.71 -118.3431,52.7219 -118.3449,52.7259 -118.3481,52.7326 -118.3445,52.75 -118.3263,52.7721 -118.3208,52.7865 -118.3227,52.7971 -118.3269,52.8015 -118.333,52.8027 -118.36,52.8005 -118.377,52.8022 -118.3872,52.8098 -118.3879,52.815 -118.3884,52.8193 -118.3774,52.8331 -118.3864,52.8444 -118.3966,52.8515 -118.4083,52.8515 -118.4244,52.8488 -118.4419,52.8533 -118.4549,52.8496 -118.4693,52.8545 -118.4802,52.8554 -118.4874,52.8542 -118.506,52.8351 -118.5107,52.8333 -118.5224,52.8291 -118.5347,52.8315 -118.5433,52.8385 -118.5342,52.8571 -118.5456,52.868 -118.5466,52.8728 -118.5425,52.888 -118.5745,52.9013 -118.5882,52.9126 -118.5925,52.9231 -118.5967,52.9332 -118.5694,52.948 -118.57,52.9549 -118.5832,52.9843 -118.5947,52.9908 -118.6047,52.9903 -118.6103,52.985 -118.6204,52.9841 -118.6251,52.9873 -118.6349,53.0014 -118.6473,53.0045 -118.653,53.006 -118.6692,53.0084 -118.6756,53.0022 -118.6883,52.9966 -118.6983,52.9966 -118.7034,53.0028 -118.6984,53.0297 -118.6812,53.0359 -118.6579,53.0669 -118.6673,53.0724 -118.669,53.0728 -118.6952,53.0791 -118.7053,53.0851 -118.7089,53.0921 -118.7069,53.0972 -118.708,53.1067 -118.7162,53.1109 -118.737,53.1169 -118.7442,53.1232 -118.754,53.1253 -118.7596,53.1336 -118.7788,53.1352 -118.794,53.1466 -118.8009,53.154 -118.8018,53.155 -118.8336,53.1588 -118.8426,53.1622 -118.8619,53.1835 -118.8738,53.1866 -118.8853,53.1861 -118.9128,53.1906 -118.9283,53.186 -118.9412,53.18 -118.9415,53.1693 -118.9279,53.1609 -118.9267,53.1601 -118.9211,53.1522 -118.9262,53.1442 -118.9372,53.1347 -118.9466,53.1196 -118.9478,53.1076 -118.9322,53.0992 -118.9271,53.093 -118.9498,53.081 -118.9569,53.0743 -118.9669,53.0816 -118.9754,53.0931 -118.9763,53.0944 -119.0007,53.1086 -119.0168,53.1118 -119.0526,53.1126 -119.0799,53.1399 -119.0886,53.1393 -119.0979,53.1343 -119.1172,53.1343 -119.1332,53.1359 -119.1423,53.1388 -119.1546,53.1427 -119.1612,53.141 -119.1706,53.1265 -119.1772,53.1251 -119.1822,53.1285 -119.183,53.1431 -119.2018,53.1711 -119.2106,53.1805 -119.2236,53.2019 -119.2331,53.2105 -119.2409,53.2176 -119.2545,53.222 -119.2632,53.2271 -119.2657,53.2343 -119.262,53.2393 -119.2651,53.2469 -119.2766,53.2505 -119.2865,53.2595 -119.2766,53.2727 -119.2769,53.2808 -119.2842,53.2891 -119.3191,53.3098 -119.32,53.3103 -119.3327,53.3133 -119.3402,53.3136 -119.3487,53.3093 -119.3625,53.3056 -119.3783,53.3042 -119.4078,53.3113 -119.4313,53.3133 -119.4487,53.3184 -119.4563,53.3174 -119.4599,53.3136 -119.4719,53.3124 -119.4836,53.3134 -119.5085,53.3249 -119.524,53.3321 -119.5316,53.3323 -119.5329,53.3292 -119.5227,53.3163 -119.5366,53.3119 -119.5735,53.3159 -119.6057,53.3169 -119.6135,53.3327 -119.6244,53.3385 -119.6329,53.3394 -119.6412,53.3371 -119.6494,53.3373 -119.652,53.3374 -119.6549,53.3496 -119.6791,53.3684 -119.6849,53.3752 -119.7019,53.4092 -119.7149,53.4201 -119.7167,53.4268 -119.7093,53.4346 -119.7151,53.4419 -119.7271,53.4444 -119.7339,53.4458 -119.7555,53.4581 -119.7613,53.4659 -119.7699,53.4671 -119.7824,53.4511 -119.7905,53.4499 -119.7994,53.453 -119.8053,53.4582 -119.8164,53.4594 -119.8263,53.4654 -119.8283,53.4695 -119.8238,53.4806 -119.7965,53.4895 -119.7925,53.4975 -119.7924,53.5072 -119.7972,53.5146 -119.8096,53.5207 -119.8275,53.5341 -119.8367,53.5466 -119.8543,53.5568 -119.8531,53.5628 -119.8282,53.5678 -119.8106,53.5664 -119.789,53.5561 -119.7868,53.5561 -119.7672,53.5559 -119.7228,53.5501 -119.7047,53.5382 -119.6768,53.5378 -119.6744,53.5425 -119.6454,53.5627 -119.6444,53.5667 -119.6533,53.5735 -119.6593,53.5829 -119.6635,53.5896 -119.6615,53.6057 -119.6678,53.6108 -119.6852,53.6153 -119.6994,53.6247 -119.7101,53.6355 -119.7154,53.6454 -119.7264,53.6522 -119.7441,53.6519 -119.7515,53.6457 -119.7645,53.6452 -119.7709,53.6503 -119.7753,53.6574 -119.7781,53.6618 -119.787,53.6617 -119.7975,53.6588 -119.8161,53.6565 -119.8324,53.6577 -119.8415,53.6633 -119.8382,53.6692 -119.8305,53.6719 -119.8253,53.6774 -119.8274,53.6847 -119.8177,53.695 -119.8106,53.7069 -119.8114,53.7211 -119.8165,53.7257 -119.8339,53.7276 -119.8477,53.729 -119.8947,53.7308 -119.9062,53.7404 -119.9109,53.7507 -119.93,53.7544 -119.93,59.9503 -119.9319,59.9503 -120.0152,59.95 -120.0986,59.9497 -120.1819,59.95 -121.0981,59.95 -121.1815,59.9495 -121.2648,59.9495 -121.348,59.9496 -121.4314,59.9496 -121.5147,59.9497 -121.5979,59.9497 -121.6812,59.9498 -121.7646,59.9499 -121.8479,59.9499 -121.9311,59.95 -122.0145,59.95 -122.0978,59.9501 -122.181,59.9501 -122.2643,59.9502 -122.3477,59.9502 -122.4309,59.9503 -122.5142,59.9503 -122.5976,59.9504 -122.6809,59.95 -123.94,59.95 -123.9476,59.9563 -123.9554,59.9626 -123.9663,59.9682 -123.9717,59.9718 -123.9735,59.9789 -123.9726,59.9841 -123.9683,59.992 -123.9577,60.0027 -123.947,60.0179 -123.9348,60.0289 -123.9326,60.0332 -123.9313,60.0406 -123.9327,60.0592 -123.9395,60.0677 -123.9477,60.0765 -123.947,60.0806 -123.9504,60.0959 -123.9578,60.1007 -123.9666,60.1059 -123.9805,60.1117 -123.9962,60.1249 -124.009,60.1332 -124.0186,60.1384 -124.0347,60.1495 -124.0479,60.1597 -124.0551,60.1703 -124.0594,60.1809 -124.0633,60.1937 -124.072,60.2044 -124.0792,60.2151 -124.0927,60.2238 -124.103,60.239 -124.1145,60.2506 -124.1234,60.2606 -124.1284,60.2712 -124.1384,60.2835 -124.1417,60.291 -124.1477,60.2998 -124.1532,60.3126 -124.1609,60.3207 -124.1619,60.333 -124.1592,60.3407 -124.1563,60.3446 -124.1531,60.3549 -124.1495,60.3681 -124.1505,60.3759 -124.1478,60.3877 -124.148,60.3959 -124.1515,60.4019 -124.1554,60.4058 -124.1654,60.4092 -124.1754,60.4121 -124.1855,60.4148 -124.2054,60.417 -124.2301,60.418 -124.2683,60.4187 -124.2932,60.4182 -124.3144,60.4171 -124.3393,60.4162 -124.3516,60.4145 -124.3602,60.417 -124.3603,60.4218 -124.361,60.4267 -124.3611,60.436 -124.3596,60.4452 -124.3577,60.4525 -124.3552,60.4591 -124.3571,60.471 -124.3633,60.4794 -124.3691,60.4863 -124.3812,60.4953 -124.3888,60.5 -124.3992,60.5056 -124.403,60.5102 -124.4165,60.5204 -124.4284,60.5312 -124.4402,60.5427 -124.4641,60.5592 -124.4823,60.5688 -124.5017,60.5754 -124.5239,60.5929 -124.5401,60.6061 -124.5598,60.6305 -124.5645,60.6396 -124.5649,60.6474 -124.5576,60.6556 -124.5475,60.662 -124.5378,60.6661 -124.5355,60.6712 -124.5301,60.6769 -124.5141,60.683 -124.4952,60.6879 -124.4787,60.6962 -124.4528,60.7071 -124.4441,60.7145 -124.4339,60.7216 -124.4218,60.7308 -124.4201,60.737 -124.4228,60.7442 -124.4311,60.7493 -124.4451,60.7524 -124.4567,60.7558 -124.465,60.7609 -124.4682,60.7647 -124.472,60.7745 -124.4759,60.7791 -124.4778,60.7866 -124.4768,60.7929 -124.4776,60.7977 -124.4811,60.8049 -124.4856,60.8199 -124.4929,60.8372 -124.4986,60.8544 -124.5061,60.8699 -124.5146,60.8895 -124.5271,60.9022 -124.5324,60.9076 -124.5425,60.9116 -124.5522,60.9131 -124.5613,60.9134 -124.5652,60.9124 -124.5681,60.9088 -124.5741,60.9042 -124.5809,60.8993 -124.5875,60.8962 -124.5983,60.8951 -124.6135,60.8956 -124.6283,60.8987 -124.6432,60.9007 -124.6548,60.9 -124.6729,60.901 -124.6896,60.902 -124.7057,60.9062 -124.7106,60.9094 -124.7192,60.9134 -124.7304,60.9201 -124.7383,60.9233 -124.7436,60.9235 -124.7467,60.9232 -124.754,60.9201 -124.7562,60.9154 -124.7613,60.9067 -124.7658,60.902 -124.7744,60.8949 -124.7858,60.8849 -124.7927,60.8792 -124.8019,60.8736 -124.8069,60.8656 -124.8083,60.8605 -124.8049,60.8526 -124.7994,60.8383 -124.7955,60.8278 -124.7955,60.8174 -124.7982,60.8094 -124.8018,60.805 -124.8097,60.8031 -124.822,60.802 -124.8425,60.8023 -124.8689,60.8036 -124.889,60.8065 -124.9092,60.8094 -124.93,60.8098 -124.9357,60.8099 -124.9492,60.8111 -124.96,60.81 -124.9724,60.8081 -124.9975,60.8027 -125.0136,60.8017 -125.034,60.802 -125.0553,60.8019 -125.0721,60.8017 -125.0958,60.8003 -125.1171,60.8002 -125.1273,60.7976 -125.1337,60.7952 -125.1396,60.7909 -125.1449,60.7851 -125.1501,60.7809 -125.1561,60.7755 -125.1713,60.7693 -125.1865,60.7635 -125.193,60.76 -125.2014,60.7543 -125.2156,60.7436 -125.2231,60.7391 -125.238,60.7347 -125.2474,60.7328 -125.2642,60.7318 -125.2764,60.7307 -125.2916,60.7308 -125.3142,60.7322 -125.3276,60.7334 -125.3411,60.7349 -125.3619,60.7385 -125.3766,60.7419 -125.392,60.7464 -125.4126,60.7514 -125.4301,60.7571 -125.4447,60.7613 -125.4792,60.7712 -125.5008,60.774 -125.5091,60.775 -125.5129,60.7744 -125.5206,60.7735 -125.5299,60.7723 -125.5407,60.7707 -125.5574,60.7705 -125.5686,60.7719 -125.5867,60.7731 -125.6086,60.7738 -125.621,60.7719 -125.6405,60.7732 -125.6515,60.7764 -125.6681,60.7843 -125.678,60.7905 -125.6923,60.7983 -125.7242,60.8114 -125.7457,60.816 -125.751,60.8228 -125.7705,60.8319 -125.7848,60.8397 -125.7996,60.843 -125.8117,60.8434 -125.8322,60.8372 -125.8479,60.8325 -125.8629,60.8277 -125.8815,60.817 -125.8989,60.8108 -125.9096,60.8037 -125.9167,60.7943 -125.9184,60.7851 -125.9228,60.7729 -125.9293,60.762 -125.9279,60.7538 -125.9336,60.7503 -125.9443,60.7494 -125.9541,60.7493 -125.9622,60.7514 -125.971,60.7546 -125.9798,60.7577 -125.9901,60.7602 -126.003,60.7606 -126.0159,60.7598 -126.0301,60.762 -126.0401,60.7678 -126.0473,60.7717 -126.0512,60.7777 -126.052,60.7851 -126.0513,60.7917 -126.0432,60.7967 -126.0394,60.8033 -126.0359,60.8076 -126.0401,60.8115 -126.0453,60.8127 -126.0568,60.8111 -126.0774,60.8102 -126.112,60.8066 -126.1317,60.8063 -126.1501,60.8053 -126.1716,60.8028 -126.1772,60.7992 -126.1768,60.7959 -126.1703,60.7928 -126.1649,60.786 -126.1597,60.7777 -126.156,60.7695 -126.1585,60.7592 -126.1685,60.7505 -126.1784,60.7426 -126.1926,60.7363 -126.2097,60.7323 -126.2368,60.7263 -126.2843,60.7203 -126.3055,60.7208 -126.3174,60.7226 -126.3307,60.7258 -126.3404,60.7275 -126.3524,60.7285 -126.3605,60.7317 -126.3692,60.7352 -126.3795,60.7388 -126.3891,60.7416 -126.4033,60.7434 -126.4144,60.7466 -126.4261,60.7509 -126.4376,60.7575 -126.4456,60.7613 -126.4546,60.7623 -126.4622,60.7617 -126.4678,60.7588 -126.4756,60.7564 -126.4873,60.7522 -126.4952,60.7487 -126.5164,60.7407 -126.5393,60.73 -126.555,60.7237 -126.5738,60.7086 -126.585,60.7014 -126.5916,60.6956 -126.6024,60.6929 -126.6091,60.6938 -126.6135,60.6953 -126.6201,60.6984 -126.6264,60.7041 -126.6311,60.7105 -126.6412,60.7159 -126.6582,60.7218 -126.6711,60.7294 -126.6815,60.7322 -126.6921,60.7317 -126.7159,60.7277 -126.7298,60.7251 -126.7362,60.7204 -126.7387,60.7175 -126.7407,60.7123 -126.7463,60.7084 -126.7562,60.7071 -126.7652,60.708 -126.7719,60.7096 -126.7814,60.7146 -126.7975,60.7208 -126.8129,60.7271 -126.8205,60.7357 -126.823,60.7428 -126.8239,60.7502 -126.8216,60.7605 -126.8138,60.7718 -126.8057,60.7791 -126.8035,60.7864 -126.8062,60.7909 -126.8128,60.7936 -126.8203,60.7953 -126.833,60.7977 -126.8455,60.802 -126.8512,60.8066 -126.8508,60.8118 -126.849,60.8158 -126.8424,60.8216 -126.8343,60.8281 -126.833,60.8347 -126.8348,60.8418 -126.8371,60.8507 -126.8409,60.8597 -126.8417,60.8693 -126.8375,60.8737 -126.8357,60.8768 -126.8338,60.8819 -126.8327,60.8867 -126.8329,60.8937 -126.8331,60.8997 -126.8384,60.9105 -126.8424,60.9176 -126.8476,60.9282 -126.8553,60.9373 -126.8629,60.9463 -126.8728,60.9564 -126.8817,60.9692 -126.8828,60.9744 -126.88,60.9808 -126.8789,60.9849 -126.8754,60.9903 -126.8719,60.9966 -126.87,61.0013 -126.8712,61.0058 -126.8773,61.0098 -126.8855,61.0125 -126.8922,61.0145 -126.9013,61.0154 -126.9124,61.0158 -126.9189,61.0157 -126.9258,61.0148 -126.9358,61.0135 -126.9487,61.0096 -126.9575,61.0053 -126.9729,60.9986 -126.9842,60.9899 -126.9936,60.9871 -127.0014,60.985 -127.0074,60.9855 -127.0126,60.9875 -127.0163,60.9901 -127.0183,60.9938 -127.0202,60.9992 -127.0251,61.0045 -127.0335,61.0098 -127.037,61.0136 -127.0437,61.0163 -127.0456,61.0215 -127.0452,61.0267 -127.0412,61.0338 -127.038,61.0371 -127.0316,61.0399 -127.023,61.0428 -127.0001,61.0475 -126.9831,61.0502 -126.9729,61.0533 -126.9673,61.0569 -126.9632,61.0606 -126.9596,61.0668 -126.9539,61.0767 -126.9568,61.0832 -126.9607,61.0875 -126.9703,61.0921 -126.9761,61.0967 -126.9812,61.0999 -126.9829,61.1033 -126.9783,61.1073 -126.967,61.1148 -126.9551,61.1213 -126.9442,61.1281 -126.9414,61.1343 -126.9402,61.1393 -126.938,61.1485 -126.9389,61.1563 -126.9412,61.1615 -126.9463,61.1653 -126.9527,61.1721 -126.9601,61.1796 -126.9664,61.1875 -126.9692,61.1916 -126.9695,61.1972 -126.9698,61.2035 -126.9707,61.2124 -126.9738,61.2211 -126.9755,61.2293 -126.9774,61.2343 -126.9781,61.236 -126.9789,61.2399 -126.9817,61.244 -126.9873,61.2511 -126.9912,61.261 -126.9997,61.2704 -127.0008,61.2763 -127.003,61.2828 -127.0017,61.29 -126.999,61.294 -126.9949,61.2984 -126.993,61.3021 -126.9935,61.3058 -126.9971,61.3095 -127.0055,61.3156 -127.0143,61.3209 -127.0238,61.3233 -127.0355,61.3267 -127.0492,61.3287 -127.059,61.3326 -127.064,61.3373 -127.0652,61.3421 -127.0647,61.3484 -127.0642,61.3562 -127.0642,61.3614 -127.0649,61.3664 -127.0672,61.3727 -127.0685,61.3812 -127.0703,61.3879 -127.077,61.4065 -127.0817,61.4162 -127.087,61.4178 -127.0962,61.4187 -127.1036,61.4184 -127.1111,61.4163 -127.1213,61.415 -127.1352,61.4152 -127.1479,61.416 -127.1538,61.4194 -127.1574,61.4228 -127.1639,61.4294 -127.169,61.4335 -127.1726,61.4384 -127.1795,61.4444 -127.1845,61.4501 -127.1958,61.4543 -127.2188,61.4584 -127.2341,61.4605 -127.2476,61.4614 -127.2654,61.4613 -127.277,61.4615 -127.2902,61.4606 -127.2996,61.4596 -127.309,61.4579 -127.3188,61.4558 -127.3251,61.4539 -127.338,61.4534 -127.3484,61.4535 -127.3588,61.4544 -127.3734,61.4565 -127.3833,61.4581 -127.3934,61.4586 -127.4054,61.4575 -127.418,61.4547 -127.4296,61.4541 -127.4367,61.4524 -127.4514,61.4526 -127.4591,61.4527 -127.4683,61.4543 -127.4824,61.4577 -127.4931,61.4604 -127.5007,61.4631 -127.5066,61.4672 -127.514,61.4745 -127.5183,61.4787 -127.5248,61.4804 -127.5325,61.4809 -127.5441,61.4816 -127.5521,61.4838 -127.5613,61.4854 -127.5763,61.4885 -127.5873,61.4924 -127.5949,61.4947 -127.6002,61.4973 -127.6042,61.5011 -127.6063,61.5055 -127.6099,61.51 -127.6131,61.5149 -127.6134,61.5158 -127.6148,61.5195 -127.6179,61.526 -127.6215,61.5312 -127.6297,61.5365 -127.6381,61.5392 -127.6474,61.5404 -127.6624,61.5417 -127.6733,61.5421 -127.6875,61.5448 -127.7067,61.5477 -127.7178,61.5504 -127.7278,61.5527 -127.7323,61.555 -127.7391,61.5584 -127.7498,61.5626 -127.7698,61.5734 -127.7815,61.5803 -127.794,61.5868 -127.8056,61.5947 -127.8138,61.6014 -127.8257,61.6125 -127.8343,61.619 -127.8392,61.6226 -127.8457,61.6245 -127.855,61.6261 -127.8678,61.6275 -127.8755,61.6291 -127.8873,61.6331 -127.8946,61.6359 -127.9034,61.639 -127.9102,61.6431 -127.9169,61.6488 -127.9298,61.6568 -127.9344,61.6672 -127.9365,61.6724 -127.937,61.6787 -127.9359,61.6843 -127.9349,61.6964 -127.9315,61.7034 -127.9324,61.7088 -127.9345,61.7142 -127.9351,61.7173 -127.9388,61.7214 -127.9433,61.7259 -127.9507,61.7345 -127.9529,61.7388 -127.9558,61.7425 -127.958,61.7466 -127.9631,61.7544 -127.9675,61.7589 -127.974,61.7634 -127.98,61.7675 -127.9845,61.7724 -127.9881,61.7787 -127.9933,61.7857 -127.9993,61.7902 -128.005,61.7938 -128.0154,61.7991 -128.0207,61.8021 -128.0323,61.8052 -128.0429,61.8058 -128.0507,61.8055 -128.0624,61.8053 -128.075,61.8054 -128.0836,61.8047 -128.093,61.8033 -128.1045,61.8005 -128.118,61.7966 -128.1334,61.7913 -128.1406,61.7896 -128.1476,61.7904 -128.1514,61.7926 -128.1544,61.7956 -128.1574,61.7997 -128.1595,61.8049 -128.1627,61.8121 -128.1648,61.818 -128.1654,61.8245 -128.166,61.829 -128.1667,61.8312 -128.1673,61.8349 -128.1687,61.8393 -128.17,61.8452 -128.1721,61.851 -128.1758,61.8573 -128.1802,61.864 -128.1854,61.8716 -128.1922,61.8787 -128.1982,61.8854 -128.2035,61.8908 -128.2088,61.8953 -128.2154,61.8979 -128.2239,61.901 -128.234,61.9042 -128.2429,61.9076 -128.2486,61.9111 -128.2555,61.9184 -128.2607,61.9236 -128.2705,61.9267 -128.2767,61.9286 -128.2876,61.9318 -128.2992,61.9348 -128.3073,61.9386 -128.3127,61.9421 -128.3162,61.9444 -128.3192,61.9474 -128.3183,61.9525 -128.3141,61.9593 -128.3124,61.9626 -128.3107,61.966 -128.3098,61.9689 -128.3113,61.9719 -128.3167,61.9741 -128.3257,61.9764 -128.3326,61.9798 -128.3396,61.983 -128.3505,61.9879 -128.3601,61.9942 -128.3709,61.9998 -128.3786,62.0051 -128.393,62.0115 -128.4046,62.016 -128.4162,62.0231 -128.4279,62.0287 -128.4355,62.0369 -128.4404,62.0434 -128.4466,62.0486 -128.4488,62.053 -128.4545,62.0581 -128.4631,62.0624 -128.4763,62.068 -128.4888,62.072 -128.4951,62.074 -128.5022,62.0756 -128.5132,62.0767 -128.5215,62.0768 -128.5274,62.0765 -128.5329,62.0756 -128.5381,62.0745 -128.5453,62.0727 -128.5544,62.0702 -128.5607,62.0709 -128.5634,62.0713 -128.5721,62.0738 -128.5815,62.0764 -128.5913,62.0783 -128.6007,62.0789 -128.6094,62.0793 -128.6138,62.0794 -128.6189,62.0785 -128.6225,62.0774 -128.6257,62.0752 -128.6406,62.0634 -128.6735,62.04 -128.6816,62.033 -128.6845,62.0278 -128.6857,62.0234 -128.6883,62.0164 -128.6892,62.0112 -128.6909,62.0063 -128.6941,62.003 -128.698,62.0019 -128.7075,62.0019 -128.7154,62.0031 -128.7236,62.0042 -128.7295,62.0061 -128.7373,62.0087 -128.7447,62.0106 -128.7553,62.0121 -128.764,62.0127 -128.7711,62.0131 -128.7765,62.0153 -128.7792,62.0189 -128.7815,62.0226 -128.7861,62.0278 -128.7883,62.0342 -128.7905,62.0424 -128.7963,62.0498 -128.8057,62.0561 -128.8178,62.0591 -128.8265,62.0603 -128.8367,62.0603 -128.8474,62.0596 -128.8605,62.0574 -128.8703,62.0567 -128.8743,62.0569 -128.8786,62.0584 -128.8841,62.0607 -128.8926,62.0664 -128.9004,62.072 -128.9098,62.0805 -128.9207,62.0854 -128.9278,62.0867 -128.9314,62.0858 -128.937,62.0836 -128.9417,62.0803 -128.9501,62.0748 -128.958,62.0729 -128.9675,62.0726 -128.977,62.075 -128.9844,62.0773 -128.9896,62.0773 -128.9975,62.0751 -128.9999,62.0721 -129.0039,62.0688 -129.011,62.0653 -129.0209,62.0617 -129.0359,62.0602 -129.047,62.0595 -129.0592,62.0595 -129.0738,62.0603 -129.0837,62.0618 -129.0931,62.0628 -129.1041,62.065 -129.1104,62.0676 -129.1159,62.0706 -129.1206,62.0748 -129.1277,62.0789 -129.1324,62.083 -129.1379,62.0883 -129.1461,62.0946 -129.1532,62.0995 -129.163,62.1019 -129.1713,62.1028 -129.1808,62.1019 -129.1875,62.1015 -129.1946,62.1008 -129.2013,62.101 -129.2069,62.1018 -129.21,62.1051 -129.2108,62.108 -129.2115,62.1125 -129.2083,62.1193 -129.1956,62.1256 -129.1861,62.1291 -129.1687,62.1368 -129.1587,62.1419 -129.1512,62.1454 -129.1428,62.1502 -129.1364,62.1554 -129.1281,62.1607 -129.1225,62.1648 -129.1201,62.1688 -129.1221,62.1701 -129.1292,62.1703 -129.1363,62.1707 -129.1466,62.1711 -129.1581,62.1719 -129.1688,62.1739 -129.1751,62.175 -129.1806,62.1769 -129.1853,62.1799 -129.1877,62.1832 -129.1892,62.1869 -129.1916,62.1921 -129.1947,62.197 -129.1971,62.2011 -129.2026,62.2048 -129.2097,62.2081 -129.2172,62.2131 -129.2247,62.2168 -129.2294,62.222 -129.229,62.2274 -129.2266,62.2333 -129.2214,62.2375 -129.2178,62.242 -129.2158,62.2464 -129.2158,62.2488 -129.2181,62.2521 -129.2209,62.2562 -129.224,62.2582 -129.2312,62.2627 -129.2359,62.2671 -129.2359,62.2708 -129.2351,62.2754 -129.2327,62.2798 -129.2259,62.2857 -129.2219,62.2905 -129.2186,62.2942 -129.2151,62.2972 -129.2047,62.3023 -129.1947,62.3064 -129.1879,62.3097 -129.1863,62.3123 -129.1819,62.3174 -129.1787,62.3204 -129.1739,62.3215 -129.1652,62.3218 -129.1548,62.3226 -129.1508,62.324 -129.152,62.3255 -129.1619,62.3285 -129.1726,62.3322 -129.1786,62.334 -129.1949,62.3367 -129.2116,62.3385 -129.2215,62.3411 -129.2283,62.345 -129.233,62.3495 -129.2354,62.3535 -129.237,62.3576 -129.2405,62.36 -129.2417,62.3628 -129.2409,62.3661 -129.2393,62.3687 -129.2353,62.3716 -129.2341,62.3725 -129.2277,62.3747 -129.2221,62.3773 -129.2073,62.3825 -129.2057,62.3841 -129.2085,62.3858 -129.2117,62.3873 -129.2156,62.3891 -129.2164,62.3921 -129.2172,62.3958 -129.2156,62.4 -129.2144,62.4024 -129.2084,62.4046 -129.2036,62.4057 -129.1956,62.4068 -129.1892,62.4072 -129.174,62.4068 -129.1581,62.4062 -129.1505,62.4069 -129.1425,62.4095 -129.1361,62.4108 -129.1265,62.413 -129.1185,62.4159 -129.1125,62.4179 -129.1093,62.42 -129.1093,62.4222 -129.1112,62.4261 -129.1136,62.4288 -129.1151,62.4318 -129.1175,62.4362 -129.1211,62.4407 -129.1242,62.4436 -129.1286,62.4457 -129.1409,62.4485 -129.1489,62.4522 -129.1545,62.4559 -129.1624,62.4611 -129.1724,62.4659 -129.1783,62.4694 -129.1911,62.4716 -129.2107,62.4733 -129.2207,62.4748 -129.2295,62.4763 -129.2394,62.4778 -129.247,62.4789 -129.2538,62.4808 -129.2642,62.4834 -129.273,62.4867 -129.285,62.4908 -129.2902,62.4937 -129.2993,62.5004 -129.3081,62.5063 -129.3181,62.5142 -129.3277,62.5205 -129.3397,62.5268 -129.3517,62.5327 -129.3629,62.536 -129.3769,62.5384 -129.3897,62.5388 -129.3969,62.5388 -129.4034,62.5381 -129.4098,62.5355 -129.413,62.5333 -129.4158,62.5301 -129.4198,62.5261 -129.4238,62.5231 -129.4286,62.5209 -129.4342,62.518 -129.4526,62.5126 -129.4638,62.5122 -129.4702,62.5137 -129.475,62.5152 -129.479,62.5166 -129.4814,62.5189 -129.4838,62.5222 -129.4855,62.5255 -129.4855,62.5299 -129.4839,62.5336 -129.4815,62.5369 -129.4759,62.5406 -129.4711,62.5429 -129.4643,62.5451 -129.4611,62.5458 -129.4522,62.5477 -129.4454,62.549 -129.439,62.5517 -129.433,62.5549 -129.4262,62.5586 -129.4238,62.5623 -129.4214,62.5682 -129.4186,62.5743 -129.4194,62.5768 -129.4218,62.5794 -129.4254,62.5822 -129.4298,62.5839 -129.4338,62.5857 -129.4406,62.5883 -129.4507,62.5918 -129.4619,62.5953 -129.4668,62.599 -129.4684,62.6021 -129.4619,62.6045 -129.4563,62.6064 -129.4499,62.6086 -129.4451,62.6106 -129.4423,62.6125 -129.4423,62.6156 -129.4431,62.6188 -129.4463,62.621 -129.4491,62.623 -129.4519,62.6243 -129.4592,62.6256 -129.4688,62.6271 -129.4785,62.6282 -129.4817,62.6322 -129.4841,62.6366 -129.4869,62.6424 -129.4914,62.6448 -129.497,62.6459 -129.5058,62.6468 -129.5147,62.646 -129.5235,62.6453 -129.5304,62.646 -129.5344,62.6488 -129.5408,62.6543 -129.5469,62.6595 -129.5493,62.6632 -129.5526,62.6698 -129.5562,62.6778 -129.5587,62.6814 -129.5635,62.6851 -129.5696,62.6888 -129.5752,62.6918 -129.5805,62.6949 -129.5797,62.6975 -129.5724,62.699 -129.5676,62.6999 -129.5624,62.7014 -129.5584,62.7029 -129.5584,62.7056 -129.5608,62.7082 -129.5648,62.7108 -129.5697,62.7126 -129.5754,62.7159 -129.5806,62.7193 -129.5855,62.7233 -129.5911,62.7277 -129.5944,62.7318 -129.596,62.7362 -129.5968,62.7395 -129.6009,62.7443 -129.609,62.748 -129.6171,62.751 -129.6203,62.7535 -129.6212,62.7583 -129.6212,62.7624 -129.622,62.7657 -129.6253,62.769 -129.6301,62.7724 -129.6382,62.7734 -129.6435,62.7755 -129.6492,62.7768 -129.6568,62.7793 -129.665,62.7819 -129.6755,62.7859 -129.6836,62.7907 -129.6885,62.7955 -129.6926,62.8007 -129.6995,62.808 -129.7044,62.8114 -129.7069,62.8173 -129.7069,62.8224 -129.7054,62.83 -129.703,62.8342 -129.7006,62.8365 -129.6966,62.8372 -129.6885,62.8372 -129.6848,62.8369 -129.68,62.8361 -129.6718,62.8343 -129.6597,62.8319 -129.6475,62.8308 -129.6403,62.8308 -129.637,62.8325 -129.6338,62.8347 -129.6355,62.8364 -129.6363,62.839 -129.6395,62.8412 -129.6444,62.8441 -129.6517,62.8478 -129.6586,62.8526 -129.6635,62.8563 -129.6684,62.8611 -129.6681,62.8655 -129.6624,62.8683 -129.656,62.872 -129.6495,62.8761 -129.6386,62.8818 -129.633,62.8883 -129.6298,62.8931 -129.6282,62.8975 -129.6274,62.9016 -129.6262,62.9032 -129.623,62.9053 -129.6197,62.9066 -129.6056,62.9114 -129.6003,62.9138 -129.5979,62.9156 -129.5979,62.918 -129.5987,62.9201 -129.6,62.9236 -129.6016,62.9276 -129.6029,62.9326 -129.6037,62.937 -129.6017,62.9437 -129.5993,62.9488 -129.5961,62.9537 -129.5872,62.9616 -129.5783,62.966 -129.5694,62.9716 -129.558,62.976 -129.5438,62.9812 -129.5365,62.986 -129.5341,62.9897 -129.5333,62.993 -129.5349,62.9967 -129.5402,63.0022 -129.5451,63.0082 -129.5476,63.0142 -129.5493,63.0198 -129.5509,63.024 -129.5542,63.027 -129.557,63.0288 -129.5636,63.0301 -129.5709,63.0305 -129.579,63.029 -129.5855,63.0275 -129.5908,63.0254 -129.6022,63.0236 -129.6164,63.0206 -129.6213,63.0199 -129.6307,63.0189 -129.6445,63.0189 -129.6596,63.0193 -129.6787,63.0196 -129.686,63.0192 -129.6925,63.0186 -129.7015,63.0186 -129.7096,63.0193 -129.7121,63.0212 -129.715,63.0241 -129.7166,63.0278 -129.7208,63.0308 -129.7269,63.0322 -129.7419,63.0337 -129.7607,63.0344 -129.775,63.0351 -129.7823,63.0358 -129.7831,63.0384 -129.7796,63.045 -129.776,63.0517 -129.7687,63.0596 -129.768,63.064 -129.7688,63.0657 -129.7737,63.0686 -129.779,63.0701 -129.7831,63.0716 -129.7897,63.0738 -129.795,63.0762 -129.7979,63.078 -129.8008,63.0811 -129.8021,63.0841 -129.8038,63.0889 -129.8038,63.0935 -129.8039,63.0986 -129.8064,63.1031 -129.8113,63.1079 -129.8167,63.1137 -129.8217,63.1163 -129.8242,63.1196 -129.8234,63.1226 -129.8218,63.1259 -129.8194,63.1292 -129.8194,63.1311 -129.8219,63.1329 -129.8244,63.1336 -129.8289,63.1349 -129.8362,63.1364 -129.8436,63.1376 -129.8469,63.141 -129.8519,63.1457 -129.8552,63.1487 -129.8601,63.15 -129.8675,63.151 -129.8712,63.151 -129.8777,63.1479 -129.885,63.1434 -129.8907,63.1412 -129.898,63.1395 -129.9004,63.1378 -129.9085,63.1319 -129.9142,63.1286 -129.9182,63.1282 -129.9231,63.1282 -129.9264,63.1289 -129.93,63.1309 -129.93,63.1318 -129.9306,63.1346 -129.9307,63.1368 -129.9307,63.1409 -129.93,63.1464 -129.9317,63.1495 -129.9351,63.1573 -129.9384,63.1604 -129.943,63.1626 -129.9463,63.1666 -129.9493,63.1731 -129.951,63.1794 -129.9557,63.1862 -129.9627,63.1926 -129.971,63.1974 -129.9789,63.2014 -129.9854,63.2032 -129.9957,63.2046 -130.0072,63.2052 -130.0166,63.2049 -130.0248,63.2042 -130.0342,63.203 -130.044,63.2015 -130.0554,63.2 -130.0701,63.1977 -130.0844,63.1956 -130.1,63.1955 -130.1073,63.1962 -130.1106,63.1969 -130.1123,63.1984 -130.1124,63.2003 -130.1116,63.2019 -130.1075,63.2042 -130.1027,63.2064 -130.0949,63.2086 -130.0909,63.2112 -130.0865,63.2155 -130.0849,63.2181 -130.0842,63.2223 -130.0851,63.2268 -130.0869,63.2328 -130.0878,63.2373 -130.0863,63.2421 -130.0869,63.2498 -130.0837,63.2541 -130.0796,63.258 -130.0739,63.2598 -130.0654,63.2615 -130.0563,63.262 -130.0481,63.262 -130.0342,63.2617 -130.0223,63.2638 -130.017,63.2658 -130.0146,63.269 -130.0114,63.2716 -130.0094,63.274 -130.0078,63.2777 -130.0067,63.2812 -129.9994,63.2869 -129.9941,63.2884 -129.9887,63.2892 -129.9817,63.2886 -129.9706,63.288 -129.9604,63.288 -129.9547,63.291 -129.9465,63.2939 -129.9359,63.2968 -129.93,63.2979 -129.924,63.299 -129.9158,63.2998 -129.894,63.3008 -129.8842,63.3019 -129.8793,63.3034 -129.8752,63.3053 -129.8732,63.3075 -129.8703,63.311 -129.8679,63.3143 -129.8639,63.3162 -129.8536,63.3179 -129.8425,63.319 -129.836,63.3209 -129.8302,63.3227 -129.8262,63.325 -129.8246,63.3287 -129.8246,63.3307 -129.8255,63.3355 -129.8288,63.3393 -129.8313,63.3427 -129.8355,63.346 -129.8426,63.3515 -129.8492,63.3574 -129.8551,63.3621 -129.8638,63.368 -129.8697,63.3735 -129.8689,63.3774 -129.8656,63.3804 -129.8595,63.3835 -129.8526,63.3874 -129.8514,63.3913 -129.8498,63.3946 -129.8482,63.3994 -129.8475,63.4053 -129.845,63.4087 -129.8406,63.4133 -129.8365,63.4162 -129.8278,63.4174 -129.8208,63.4174 -129.8113,63.4167 -129.8026,63.415 -129.7878,63.4125 -129.7745,63.4092 -129.7596,63.4041 -129.7439,63.3999 -129.7369,63.4005 -129.7328,63.4018 -129.7307,63.4031 -129.7299,63.4049 -129.7316,63.4075 -129.7341,63.4101 -129.7374,63.4121 -129.7437,63.4146 -129.7495,63.417 -129.7594,63.4207 -129.7656,63.4244 -129.7727,63.4303 -129.7761,63.4347 -129.7819,63.4393 -129.7927,63.4466 -129.8011,63.4532 -129.8028,63.4599 -129.8066,63.465 -129.8099,63.4674 -129.8149,63.47 -129.8216,63.4724 -129.8286,63.4746 -129.8308,63.479 -129.83,63.4819 -129.8292,63.4854 -129.8292,63.4884 -129.8314,63.493 -129.836,63.4968 -129.8402,63.5011 -129.8464,63.5051 -129.8514,63.5081 -129.8606,63.5113 -129.8681,63.5132 -129.8776,63.515 -129.8905,63.5175 -129.9092,63.5202 -129.9233,63.5231 -129.9275,63.5257 -129.93,63.5294 -129.9303,63.5318 -129.9302,63.5334 -129.93,63.5386 -129.9294,63.5421 -129.9271,63.5524 -129.9276,63.5572 -129.9285,63.5602 -129.93,63.5626 -129.9315,63.5652 -129.9357,63.5664 -129.9423,63.5664 -129.9464,63.5662 -129.9547,63.5654 -129.963,63.5639 -129.9712,63.5624 -129.9828,63.5602 -129.9919,63.559 -130.0002,63.5594 -130.0044,63.5597 -130.0135,63.5623 -130.0177,63.5659 -130.0237,63.5722 -130.0296,63.5775 -130.0372,63.5852 -130.0411,63.5909 -130.0449,63.5948 -130.0508,63.5986 -130.055,63.6015 -130.0617,63.6063 -130.0626,63.6096 -130.0619,63.6115 -130.0611,63.6141 -130.0595,63.6154 -130.0557,63.617 -130.0516,63.6185 -130.0467,63.6211 -130.0409,63.6239 -130.0344,63.6267 -130.0286,63.6301 -130.0253,63.6334 -130.0246,63.6371 -130.0255,63.64 -130.028,63.6422 -130.0314,63.6428 -130.0489,63.6442 -130.0593,63.6449 -130.0692,63.6439 -130.0837,63.6412 -130.0945,63.6382 -130.1039,63.6356 -130.1151,63.6326 -130.1258,63.6268 -130.1356,63.622 -130.1545,63.6123 -130.1652,63.6093 -130.1726,63.6071 -130.1813,63.6067 -130.1938,63.607 -130.2009,63.6069 -130.2071,63.608 -130.2151,63.61 -130.2222,63.6129 -130.2344,63.6196 -130.2403,63.6233 -130.2523,63.633 -130.2603,63.6381 -130.2667,63.6449 -130.2686,63.6508 -130.2704,63.6561 -130.2697,63.6606 -130.2656,63.6639 -130.2599,63.6662 -130.2557,63.6671 -130.2499,63.6679 -130.2366,63.6687 -130.2204,63.6695 -130.1951,63.67 -130.171,63.6716 -130.1614,63.6724 -130.1577,63.6735 -130.1552,63.675 -130.1536,63.6771 -130.152,63.6796 -130.1513,63.6843 -130.1531,63.6887 -130.1516,63.6953 -130.1513,63.7001 -130.1489,63.7034 -130.1435,63.7046 -130.1377,63.7053 -130.1297,63.7047 -130.1172,63.7031 -130.1034,63.7016 -130.0788,63.701 -130.0672,63.7025 -130.0589,63.7052 -130.0527,63.7085 -130.0474,63.7139 -130.045,63.717 -130.0426,63.7209 -130.0402,63.725 -130.0403,63.7298 -130.0416,63.7351 -130.043,63.7421 -130.0465,63.7454 -130.0519,63.748 -130.057,63.7502 -130.065,63.7523 -130.0684,63.7549 -130.0752,63.76 -130.079,63.7652 -130.0816,63.7696 -130.0826,63.7759 -130.0802,63.7814 -130.0786,63.7855 -130.0763,63.7903 -130.0713,63.7949 -130.0656,63.799 -130.064,63.803 -130.0645,63.8047 -130.0645,63.8069 -130.0671,63.8091 -130.0696,63.8113 -130.0743,63.8131 -130.0789,63.8155 -130.0869,63.8157 -130.0881,63.816 -130.0952,63.8156 -130.1019,63.8147 -130.1127,63.812 -130.1202,63.8113 -130.1269,63.8116 -130.1336,63.813 -130.1417,63.8167 -130.1573,63.8214 -130.1652,63.8228 -130.1698,63.8232 -130.1757,63.8228 -130.179,63.8213 -130.1823,63.82 -130.1843,63.8178 -130.1859,63.8146 -130.1863,63.8117 -130.1845,63.8084 -130.1836,63.8052 -130.1831,63.8016 -130.1868,63.798 -130.1913,63.7949 -130.1971,63.7926 -130.2054,63.7907 -130.2158,63.789 -130.2266,63.7871 -130.2382,63.7859 -130.2474,63.7844 -130.2532,63.7826 -130.259,63.7805 -130.2647,63.7766 -130.2709,63.7751 -130.2759,63.7743 -130.2789,63.7747 -130.2831,63.7756 -130.2894,63.7777 -130.2928,63.7796 -130.2963,63.7836 -130.2977,63.7887 -130.3003,63.7935 -130.3042,63.799 -130.3068,63.802 -130.3128,63.8051 -130.3183,63.8072 -130.328,63.8105 -130.3378,63.816 -130.349,63.8253 -130.3541,63.8297 -130.3593,63.8341 -130.3636,63.8374 -130.3687,63.8412 -130.3747,63.8449 -130.3866,63.8498 -130.3934,63.8534 -130.4045,63.8581 -130.4155,63.8617 -130.4244,63.8643 -130.4366,63.8666 -130.4425,63.868 -130.4489,63.872 -130.4549,63.8764 -130.4592,63.8791 -130.4668,63.8811 -130.4736,63.8814 -130.4798,63.8812 -130.4886,63.8799 -130.496,63.877 -130.5047,63.8744 -130.5122,63.8732 -130.5148,63.8732 -130.5198,63.8743 -130.5237,63.8757 -130.5322,63.8786 -130.5407,63.8822 -130.5467,63.8855 -130.5552,63.8895 -130.5697,63.896 -130.5752,63.898 -130.5854,63.8998 -130.5926,63.9008 -130.606,63.9005 -130.6202,63.9002 -130.6295,63.9005 -130.6354,63.9012 -130.6443,63.9041 -130.6537,63.9092 -130.6589,63.9119 -130.6644,63.9141 -130.6763,63.9165 -130.6882,63.9194 -130.6959,63.9241 -130.7029,63.9292 -130.7081,63.9332 -130.7193,63.9401 -130.7246,63.9456 -130.7255,63.95 -130.7179,63.9648 -130.7079,63.9732 -130.682,63.9845 -130.6792,63.9937 -130.7612,64.0002 -130.7917,63.9916 -130.8195,63.9922 -130.8314,63.9957 -130.824,64.0099 -130.8239,64.0325 -130.8411,64.04 -130.8443,64.0548 -130.8722,64.0554 -130.902,64.0604 -130.8913,64.0749 -130.9212,64.0798 -130.9059,64.0992 -130.8667,64.1041 -130.8054,64.129 -130.8466,64.1511 -130.8938,64.1409 -130.9058,64.152 -130.8805,64.1647 -130.921,64.2079 -130.9817,64.2268 -130.9783,64.2195 -130.987,64.2157 -131.001,64.2311 -131.0144,64.2299 -131.0277,64.2288 -131.0198,64.2566 -130.985,64.2717 -130.9777,64.2784 -131.0486,64.3038 -131.0339,64.3097 -131.0159,64.3157 -131.0628,64.3418 -131.0851,64.367 -131.1582,64.3742 -131.2054,64.4002 -131.2484,64.4024 -131.3088,64.3971 -131.3378,64.4066 -131.3539,64.4036 -131.3805,64.3862 -131.3906,64.349 -131.4536,64.3494 -131.4681,64.336 -131.5063,64.3356 -131.5428,64.3172 -131.5702,64.3162 -131.5987,64.3317 -131.643,64.3367 -131.665,64.3317 -131.7146,64.3332 -131.7499,64.3269 -131.7869,64.331 -131.7959,64.3423 -131.7635,64.3544 -131.7656,64.3799 -131.7306,64.4012 -131.6866,64.4113 -131.6642,64.43 -131.6215,64.443 -131.6343,64.469 -131.6217,64.4792 -131.6835,64.4977 -131.7796,64.4859 -131.7865,64.4928 -131.7699,64.5019 -131.781,64.51 -131.8372,64.5169 -131.8425,64.5346 -131.8603,64.542 -131.8822,64.5506 -131.9056,64.562 -131.9054,64.5756 -131.9259,64.6025 -131.93,64.6049 -131.9333,64.6148 -131.9365,64.6193 -131.9421,64.6245 -131.9443,64.6283 -131.9506,64.6347 -131.9543,64.6463 -131.9608,64.6499 -131.9688,64.653 -131.9751,64.6542 -131.9864,64.6564 -131.995,64.6584 -131.999,64.6588 -132.0087,64.6585 -132.0353,64.6551 -132.0477,64.6551 -132.0603,64.6574 -132.0742,64.6599 -132.0884,64.6618 -132.0953,64.6672 -132.1021,64.6702 -132.1112,64.6739 -132.1172,64.6757 -132.1253,64.6788 -132.1287,64.6803 -132.1315,64.6829 -132.1324,64.6865 -132.1339,64.689 -132.139,64.6924 -132.1461,64.6949 -132.1743,64.7046 -132.1883,64.707 -132.2104,64.7096 -132.2537,64.7278 -132.2675,64.7361 -132.2693,64.738 -132.2783,64.7394 -132.2965,64.7417 -132.3101,64.7394 -132.3319,64.7343 -132.3447,64.7337 -132.3623,64.7371 -132.3875,64.7447 -132.4114,64.7439 -132.4284,64.7431 -132.4361,64.7414 -132.4409,64.7401 -132.4458,64.7358 -132.4521,64.7287 -132.4611,64.7272 -132.4657,64.7264 -132.4736,64.7271 -132.4767,64.7291 -132.4862,64.7324 -132.4915,64.7411 -132.4908,64.7481 -132.486,64.7524 -132.4848,64.7546 -132.4837,64.7569 -132.4877,64.7572 -132.5096,64.7633 -132.5177,64.7664 -132.5296,64.7704 -132.5468,64.7831 -132.5443,64.7853 -132.5336,64.7931 -132.5218,64.7944 -132.4909,64.8011 -132.463,64.821 -132.4553,64.8226 -132.4024,64.8314 -132.3975,64.8357 -132.394,64.8484 -132.3804,64.8589 -132.3797,64.863 -132.398,64.8682 -132.399,64.88 -132.4227,64.8881 -132.4292,64.8945 -132.4333,64.9002 -132.4313,64.9071 -132.426,64.9149 -132.4143,64.9244 -132.4084,64.9251 -132.3974,64.9276 -132.3896,64.9293 -132.3778,64.9306 -132.365,64.9312 -132.3545,64.9326 -132.3475,64.9355 -132.3476,64.9408 -132.3427,64.9451 -132.3428,64.95 -132.3429,64.9557 -132.3345,64.9614 -132.33,64.9675 -132.3254,64.9712 -132.3118,64.9759 -132.2638,64.9881 -132.2602,64.9925 -132.2569,64.9963 -132.2529,65.0042 -132.2549,65.0085 -132.2574,65.0146 -132.2556,65.018 -132.2488,65.0233 -132.2476,65.0255 -132.2534,65.0278 -132.2672,65.0338 -132.2718,65.0383 -132.2744,65.0415 -132.2872,65.0438 -132.2964,65.0423 -132.3045,65.0401 -132.3094,65.0388 -132.3201,65.0368 -132.3396,65.0397 -132.3589,65.0403 -132.3798,65.0404 -132.3972,65.0419 -132.406,65.041 -132.4179,65.0397 -132.4305,65.0396 -132.4379,65.0414 -132.4478,65.0441 -132.455,65.0465 -132.4596,65.054 -132.459,65.0551 -132.4632,65.0578 -132.4651,65.0598 -132.4723,65.0622 -132.4738,65.0647 -132.4793,65.0705 -132.4827,65.0749 -132.4801,65.08 -132.4741,65.0836 -132.4665,65.0876 -132.4505,65.0944 -132.4439,65.0991 -132.4421,65.1084 -132.4352,65.1137 -132.4297,65.1191 -132.4322,65.1252 -132.4335,65.1283 -132.4436,65.1333 -132.4508,65.1357 -132.4574,65.1392 -132.4635,65.1439 -132.4672,65.1478 -132.4682,65.1484 -132.4808,65.1513 -132.4902,65.1522 -132.4945,65.1519 -132.501,65.1502 -132.5114,65.1434 -132.5234,65.1362 -132.5397,65.1318 -132.5548,65.1296 -132.5741,65.1301 -132.5902,65.1315 -132.5957,65.129 -132.599,65.1223 -132.6066,65.1182 -132.6107,65.1156 -132.6207,65.1153 -132.6308,65.1174 -132.6416,65.1183 -132.6469,65.1188 -132.659,65.1199 -132.6665,65.1246 -132.6723,65.1299 -132.6814,65.1342 -132.691,65.1374 -132.7004,65.1411 -132.7006,65.1435 -132.7059,65.1469 -132.6911,65.1486 -132.6851,65.1492 -132.6662,65.1535 -132.6522,65.1534 -132.649,65.1543 -132.629,65.1549 -132.6255,65.1564 -132.6265,65.16 -132.6318,65.1664 -132.6438,65.1704 -132.6551,65.1761 -132.6625,65.1808 -132.6663,65.1817 -132.6773,65.1821 -132.6843,65.1821 -132.6897,65.1826 -132.6932,65.1841 -132.6929,65.1876 -132.6847,65.1898 -132.6799,65.1912 -132.6736,65.1924 -132.6626,65.192 -132.6467,65.19 -132.6349,65.1884 -132.6249,65.1887 -132.6203,65.1895 -132.6152,65.1914 -132.6081,65.1943 -132.6064,65.1977 -132.61,65.2045 -132.6106,65.2063 -132.6094,65.2086 -132.607,65.2107 -132.598,65.2147 -132.5893,65.218 -132.5811,65.2232 -132.5756,65.2257 -132.5703,65.2334 -132.5665,65.2355 -132.5551,65.2386 -132.5405,65.2397 -132.5348,65.2397 -132.5148,65.2403 -132.5051,65.2401 -132.4908,65.2406 -132.4821,65.241 -132.4723,65.2437 -132.4703,65.2476 -132.4664,65.2526 -132.4627,65.2599 -132.4653,65.266 -132.4651,65.2719 -132.4655,65.2767 -132.4708,65.283 -132.4625,65.2882 -132.453,65.3015 -132.4438,65.3113 -132.4381,65.3226 -132.4314,65.3302 -132.4108,65.3319 -132.3976,65.3355 -132.3867,65.3404 -132.3729,65.3457 -132.3479,65.3499 -132.3424,65.3524 -132.3292,65.3589 -132.317,65.3661 -132.3011,65.3694 -132.2847,65.3738 -132.2801,65.3828 -132.275,65.3871 -132.2638,65.3896 -132.2524,65.3898 -132.2404,65.3911 -132.2351,65.3959 -132.2385,65.4003 -132.2402,65.4052 -132.2405,65.4129 -132.2358,65.4219 -132.2291,65.4266 -132.2285,65.4278 -132.2311,65.4339 -132.2287,65.4384 -132.23,65.4415 -132.2309,65.4451 -132.2217,65.4519 -132.2095,65.4591 -132.2002,65.4742 -132.1844,65.4881 -132.1798,65.4971 -132.1702,65.5046 -132.1546,65.5126 -132.1412,65.5138 -132.1249,65.5176 -132.1043,65.5352 -132.092,65.5424 -132.0851,65.55 -132.0838,65.5552 -132.0833,65.5617 -132.0932,65.5673 -132.1052,65.5743 -132.1138,65.5851 -132.1287,65.5893 -132.1324,65.6015 -132.1374,65.6137 -132.138,65.6179 -132.1412,65.62 -132.1442,65.6226 -132.1536,65.6264 -132.2106,65.6432 -132.2094,65.6455 -132.2131,65.6494 -132.2071,65.6553 -132.1999,65.6582 -132.1968,65.6615 -132.1944,65.666 -132.1979,65.6675 -132.2082,65.6725 -132.2221,65.6814 -132.2314,65.6911 -132.2563,65.7039 -132.2726,65.7166 -132.2877,65.7262 -132.2979,65.7341 -132.3208,65.7426 -132.3605,65.752 -132.3758,65.7557 -132.3883,65.7621 -132.3966,65.7681 -132.4018,65.7721 -132.4151,65.7768 -132.436,65.781 -132.45,65.7845 -132.4708,65.7887 -132.4821,65.792 -132.4889,65.7956 -132.4915,65.8017 -132.4896,65.811 -132.4832,65.8234 -132.4719,65.8342 -132.46,65.8432 -132.4538,65.8497 -132.4403,65.8562 -132.432,65.8584 -132.4302,65.8618 -132.3915,65.8726 -132.3812,65.8729 -132.3573,65.8744 -132.3418,65.8766 -132.3364,65.8814 -132.3206,65.8895 -132.2874,65.9031 -132.2617,65.9026 -132.2445,65.9023 -132.2403,65.9049 -132.2382,65.9088 -132.2389,65.913 -132.2481,65.9173 -132.2626,65.9257 -132.2602,65.9302 -132.2511,65.9365 -132.2453,65.9419 -132.2455,65.9443 -132.2533,65.9461 -132.2574,65.9465 -132.2705,65.9464 -132.2827,65.9451 -132.2955,65.9457 -132.3099,65.9457 -132.3245,65.9429 -132.3383,65.9441 -132.3477,65.9455 -132.3633,65.9433 -132.374,65.9395 -132.3846,65.9357 -132.3976,65.9274 -132.4062,65.9276 -132.4122,65.9328 -132.4212,65.9377 -132.4321,65.9445 -132.4435,65.9561 -132.4445,65.9597 -132.4556,65.969 -132.4619,65.9736 -132.4796,65.9787 -132.4961,65.983 -132.5129,65.9815 -132.5368,65.98 -132.5524,65.9778 -132.5686,65.9745 -132.5826,65.9698 -132.5994,65.9653 -132.6112,65.9593 -132.6231,65.9473 -132.6382,65.9403 -132.648,65.9382 -132.673,65.9344 -132.6825,65.9329 -132.6982,65.9248 -132.7099,65.9187 -132.7095,65.9081 -132.7153,65.8968 -132.7216,65.8844 -132.7267,65.8742 -132.7395,65.8717 -132.7536,65.8694 -132.7899,65.8689 -132.8066,65.8644 -132.8301,65.8634 -132.8536,65.8625 -132.8771,65.8644 -132.8984,65.868 -132.9036,65.8719 -132.9097,65.8772 -132.9102,65.8819 -132.9041,65.8884 -132.8924,65.8945 -132.8817,65.9043 -132.8673,65.9101 -132.8561,65.9151 -132.8461,65.9237 -132.8404,65.935 -132.8333,65.9432 -132.8294,65.9511 -132.829,65.9576 -132.8231,65.9635 -132.8289,65.9664 -132.8391,65.9719 -132.8574,65.9788 -132.8685,65.9797 -132.8783,65.9805 -132.8947,65.9766 -132.9042,65.975 -132.9275,65.9746 -132.9442,65.9759 -132.9634,65.9781 -132.9831,65.9792 -133.0198,65.9839 -133.0331,65.9862 -133.0434,65.9829 -133.0484,65.9816 -133.064,65.9764 -133.0712,65.9734 -133.0996,65.9687 -133.1157,65.9653 -133.1379,65.9612 -133.1557,65.9574 -133.174,65.9553 -133.1801,65.9517 -133.1879,65.9476 -133.2001,65.9404 -133.2112,65.9354 -133.2237,65.9364 -133.2481,65.9366 -133.2648,65.938 -133.2747,65.9352 -133.2736,65.9257 -133.2735,65.9199 -133.2796,65.9133 -133.282,65.9082 -133.3003,65.9003 -133.3089,65.8974 -133.3205,65.8942 -133.3446,65.892 -133.3587,65.8896 -133.3687,65.8928 -133.3748,65.898 -133.3893,65.9038 -133.399,65.9076 -133.4085,65.9118 -133.4202,65.9145 -133.4421,65.9139 -133.4576,65.9116 -133.4853,65.9079 -133.5011,65.908 -133.518,65.9117 -133.5309,65.9151 -133.5362,65.919 -133.543,65.9289 -133.5428,65.963 -133.5425,65.9665 -133.541,65.9728 -133.5306,65.9826 -133.5207,65.9912 -133.5203,65.9982 -133.5204,66.0041 -133.5255,66.0116 -133.5325,66.0121 -133.5562,66.014 -133.5851,66.0139 -133.599,66.015 -133.6089,66.0216 -133.6079,66.0268 -133.6019,66.0487 -133.5907,66.0601 -133.5787,66.0733 -133.5643,66.0792 -133.5381,66.0854 -133.5092,66.0914 -133.4939,66.099 -133.4762,66.1117 -133.4688,66.1182 -133.4662,66.1356 -133.4702,66.1424 -133.4793,66.1478 -133.4885,66.162 -133.4752,66.2168 -133.4765,66.2234 -133.4811,66.232 -133.4958,66.2407 -133.5136,66.2492 -133.5264,66.2531 -133.5407,66.2566 -133.5641,66.2596 -133.5839,66.2611 -133.6024,66.2619 -133.6294,66.2605 -133.6518,66.2563 -133.6703,66.2542 -133.6962,66.255 -133.7154,66.2577 -133.7368,66.2617 -133.7454,66.2682 -133.7473,66.2766 -133.7399,66.2924 -133.727,66.295 -133.7225,66.2982 -133.697,66.315 -133.6902,66.3233 -133.6836,66.331 -133.6832,66.338 -133.6838,66.3551 -133.6833,66.3562 -133.6834,66.3621 -133.6798,66.3759 -133.6758,66.3845 -133.6612,66.3904 -133.6489,66.3947 -133.6331,66.397 -133.6138,66.3944 -133.5899,66.389 -133.5645,66.3871 -133.5453,66.3903 -133.5352,66.393 -133.5276,66.3966 -133.5249,66.4022 -133.5287,66.4096 -133.5339,66.417 -133.549,66.4223 -133.5836,66.442 -133.5952,66.4546 -133.6027,66.4634 -133.6068,66.4702 -133.6053,66.4795 -133.6,66.4844 -133.5913,66.4872 -133.5839,66.4902 -133.5279,66.4994 -133.5016,66.505 -133.4925,66.5084 -133.4887,66.5164 -133.495,66.5216 -133.518,66.5351 -133.5365,66.5365 -133.5504,66.5382 -133.583,66.5442 -133.5907,66.5465 -133.601,66.5497 -133.6111,66.5563 -133.6175,66.5644 -133.6148,66.5731 -133.615,66.5789 -133.6236,66.5855 -133.6308,66.589 -133.6458,66.5948 -133.6681,66.6006 -133.6819,66.6028 -133.6982,66.6058 -133.7034,66.6074 -133.7015,66.6113 -133.6936,66.6154 -133.6794,66.6202 -133.6631,66.6296 -133.6653,66.6374 -133.6734,66.645 -133.6821,66.6516 -133.6951,66.6555 -133.7081,66.6623 -133.7357,66.6697 -133.7439,66.6744 -133.7542,66.6776 -133.7603,66.6804 -133.759,66.6832 -133.756,66.6894 -133.7412,66.6954 -133.7265,66.7013 -133.7089,66.707 -133.6965,66.7143 -133.6884,66.7219 -133.684,66.731 -133.6805,66.7413 -133.6768,66.7551 -133.6782,66.7646 -133.688,66.7689 -133.7083,66.7763 -133.7441,66.7825 -133.7491,66.7905 -133.7621,66.8009 -133.768,66.8072 -133.7649,66.8105 -133.7758,66.8189 -133.7969,66.8246 -133.8031,66.8274 -133.805,66.8358 -133.8018,66.8426 -133.8112,66.8509 -133.8321,66.8571 -133.8458,66.8599 -133.8602,66.861 -133.8876,66.863 -133.9107,66.8647 -133.9281,66.866 -133.9362,66.8677 -133.9421,66.8711 -133.9624,66.8819 -133.9875,66.892 -134.0168,66.8965 -134.0256,66.9 -134.0306,66.9086 -134.0229,66.9186 -134.0026,66.9265 -133.9815,66.9332 -133.9614,66.9376 -133.9366,66.9394 -133.9037,66.9393 -133.8741,66.9383 -133.8388,66.9369 -133.8059,66.9368 -133.7757,66.9434 -133.7532,66.9464 -133.7406,66.9508 -133.7444,66.9522 -133.7853,66.9547 -133.82,66.9543 -133.8524,66.9555 -133.8825,66.9554 -133.9553,66.9536 -134.0954,66.9555 -134.5937,66.9571 -134.6377,66.9583 -134.93,66.9572 -136.0062,66.9533 -136.055,66.9544 -136.0749,66.9568 -136.0773,66.9662 -136.0841,66.9795 -136.0891,66.9897 -136.0928,66.9957 -136.1135,67.004 -136.1293,67.0095 -136.1265,67.0246 -136.1246,67.0373 -136.13,67.0428 -136.1343,67.0472 -136.1394,67.0574 -136.1392,67.0656 -136.1269,67.0742 -136.1176,67.083 -136.1124,67.0885 -136.111,67.1001 -136.114,67.1038 -136.1242,67.1084 -136.1351,67.1114 -136.1417,67.1176 -136.1511,67.1246 -136.1421,67.1322 -136.1268,67.1407 -136.0992,67.1461 -136.0918,67.1573 -136.0853,67.1663 -136.0705,67.1736 -136.059,67.1799 -136.0486,67.191 -136.0502,67.1986 -136.0482,67.2114 -136.0442,67.2216 -136.0411,67.2296 -136.0299,67.2389 -136.0104,67.2541 -136.0105,67.2576 -136.0112,67.2635 -136.0208,67.2699 -136.0374,67.2813 -136.0487,67.2913 -136.0544,67.2998 -136.0665,67.3076 -136.0736,67.3126 -136.0718,67.3172 -136.0616,67.3201 -136.0489,67.3217 -136.0441,67.3261 -136.0462,67.3285 -136.0577,67.3339 -136.0683,67.338 -136.086,67.3431 -136.0895,67.3456 -136.0928,67.3528 -136.1086,67.3549 -136.1203,67.3562 -136.1296,67.3596 -136.1282,67.3631 -136.1178,67.3741 -136.1123,67.3884 -136.1105,67.393 -136.1039,67.4019 -136.0949,67.4096 -136.0922,67.4164 -136.0982,67.4243 -136.1006,67.4338 -136.1039,67.441 -136.1016,67.4467 -136.0904,67.4519 -136.0837,67.4614 -136.0857,67.4639 -136.0878,67.4663 -136.1024,67.4718 -136.1035,67.4731 -136.0987,67.4775 -136.096,67.4843 -136.1023,67.4917 -136.1173,67.5194 -136.1124,67.5319 -136.1141,67.5355 -136.1244,67.5443 -136.1396,67.5522 -136.145,67.5618 -136.1509,67.5703 -136.1553,67.5746 -136.1715,67.5802 -136.1813,67.5825 -136.1979,67.5911 -136.2096,67.5923 -136.2186,67.5928 -136.232,67.5901 -136.2399,67.5894 -136.2617,67.5923 -136.2703,67.594 -136.2756,67.596 -136.2871,67.5978 -136.3021,67.5987 -136.3257,67.6012 -136.3462,67.6035 -136.3595,67.6089 -136.3555,67.6191 -136.3516,67.6294 -136.3455,67.6373 -136.3429,67.6441 -136.3473,67.6456 -136.3599,67.9955 -136.3619,68.0464 -136.3689,68.4765 -136.369,68.4922 -136.3714,68.7883 -136.3915,68.7835 -136.4543,68.7869 -136.4983,68.7934 -136.6763,68.8369 -136.838,68.8564 -136.8996,68.8554 -136.9337,68.8562 -136.9622,68.8595 -137.126,68.9002 -137.3007,68.9388 -137.4021,68.9608 -137.7057,69.0263 -137.7442,69.0347 -137.7678,69.0404 -137.8475,69.0616 -137.8812,69.0708 -137.9229,69.0842 -137.9651,69.1031 -138.1529,69.14 -138.3087,69.1638 -138.3216,69.1814 -138.3463,69.2019 -138.4619,69.2605 -138.5007,69.2747 -138.535,69.2837 -138.5838,69.2952 -138.6403,69.3104 -138.6671,69.3217 -138.7557,69.3653 -138.7969,69.3968 -138.8125,69.414 -138.8428,69.4212 -139.0508,69.4465 -139.2337,69.4641 -139.2716,69.4662 -139.3053,69.4697 -139.4298,69.491 -139.4618,69.5012 -139.3755,69.4903 -139.3006,69.4833 -139.479,69.5123 -139.5084,69.5165 -139.5861,69.5266 -139.6328,69.5287 -139.7897,69.5277 -139.8262,69.525 -139.8765,69.5163 -139.9158,69.5107 -139.9583,69.5066 -140.0929,69.5063 -140.1849,69.5093 -140.3115,69.5184 -140.434,69.5276 -140.4655,69.5315 -140.4908,69.5373 -140.5199,69.5444 -140.6047,69.549 -140.6772,69.5528 -140.6981,69.5522 -140.6968,69.4425 -140.6971,69.343 -140.7,68.8768 -140.7035,68.4449 -140.7054,68.1453 -140.7064,67.979 -140.7076,67.7791 -140.7064,67.6464 -140.7079,67.4467 -140.7109,67.2137 -140.7116,66.9814 -140.7115,66.7815 -140.7126,66.5821 -140.7144,66.4156 -140.7165,66.0164 -140.7181,65.617 -140.7187,65.1513 -140.7191,65.0848 -140.7208,65.0515 -140.7217,64.1202 -140.7224,63.8874 -140.7242,63.7541 -140.7259,63.0223 -140.7259,62.6562 -140.733,60.8925 -140.7317,60.8592 -140.7347,60.3264 -140.7344,60.2937 20,-2.0,Greenland -21.8349,73.8218 -21.8171,73.8188 -21.7569,73.8088 -21.7449,73.8046 -21.7259,73.7916 -21.7044,73.761 -21.6516,73.5954 -21.6674,73.5815 -21.7012,73.5602 -21.7125,73.5542 -21.7227,73.5529 -21.767,73.5516 -21.788,73.5703 -21.7989,73.6662 -21.7803,73.7179 -21.761,73.7399 -21.7661,73.7566 -21.8075,73.7983 -21.8357,73.8219 -21.8349,73.8218 1380,-2.0,Greenland -29.2419,69.9615 -29.2408,69.9329 -28.5105,69.9815 -28.5261,69.9981 -28.5122,70.0042 -28.2984,70.0205 -28.212,70.0464 -28.2016,70.0481 -28.1794,70.0497 -28.1482,70.0513 -28.1198,70.0525 -28.0866,70.0524 -28.0589,70.0516 -28.0177,70.0466 -28.003,70.0433 -27.9547,70.0273 -27.9429,70.0219 -27.9179,70.0142 -27.9024,70.0098 -27.8736,70.0034 -27.8149,69.9968 -27.7916,69.9968 -27.7597,70.0018 -27.7443,70.0048 -27.7307,70.0084 -27.7172,70.0128 -27.6951,70.022 -27.6823,70.0261 -27.6591,70.0332 -27.4463,70.0718 -27.309,70.1138 -27.2686,70.1386 -27.2554,70.1437 -27.2325,70.1514 -27.1984,70.1603 -27.0204,70.2043 -27.0076,70.2073 -26.8934,70.2317 -26.8703,70.2322 -26.8441,70.2271 -26.834,70.2222 -26.8253,70.2171 -26.8039,70.2104 -26.6829,70.1968 -26.6677,70.1954 -26.6532,70.1954 -26.6362,70.1967 -26.5392,70.2104 -26.5145,70.2159 -26.3146,70.2631 -26.2816,70.272 -26.268,70.2865 -26.4226,70.3714 -26.4415,70.3761 -26.4923,70.3808 -26.5637,70.3846 -26.6124,70.3858 -26.6642,70.3861 -26.7144,70.3844 -26.7632,70.3789 -26.7798,70.3753 -26.8374,70.3605 -26.8825,70.3523 -26.9606,70.3454 -26.9782,70.3453 -27.006,70.3474 -27.0184,70.3484 -27.1996,70.3523 -27.4955,70.3323 -27.7796,70.3076 -28.0968,70.2841 -28.1534,70.276 -28.1619,70.2761 -28.1787,70.2789 -28.2043,70.2869 -28.2278,70.2962 -28.2615,70.3114 -28.2737,70.3196 -28.2834,70.3366 -28.2792,70.3506 -28.2667,70.3605 -28.2494,70.3668 -28.2362,70.3775 -28.2166,70.413 -28.234,70.415 -28.4227,70.4078 -28.4368,70.4058 -28.4486,70.3995 -28.4652,70.3864 -28.485,70.3806 -28.5018,70.3789 -28.5555,70.3799 -28.5931,70.3834 -28.6251,70.3826 -28.6726,70.3809 -28.6894,70.3792 -28.7564,70.3709 -28.7862,70.3651 -28.8516,70.3522 -28.866,70.3479 -28.8901,70.3379 -28.8988,70.3307 -28.909,70.324 -28.922,70.3193 -29.0638,70.2943 -29.138,70.3008 -29.1712,70.3533 -29.1643,70.3623 -29.1399,70.37 -28.8729,70.4011 -28.7214,70.4264 -28.6784,70.431 -28.6528,70.4308 -28.63,70.4273 -28.6139,70.4231 -28.5992,70.4208 -28.5754,70.4188 -28.5609,70.419 -28.5396,70.4203 -28.3632,70.4399 -28.3445,70.4435 -28.2414,70.4672 -27.9702,70.6134 -27.9593,70.6214 -27.8559,70.7638 -27.8521,70.7765 -27.8685,70.7877 -28.033,70.8374 -28.0765,70.8482 -28.1197,70.8539 -28.2272,70.8611 -28.2777,70.8642 -28.3119,70.8657 -28.3253,70.8676 -28.345,70.8748 -28.3406,70.8835 -28.2526,70.8994 -28.2362,70.9019 -28.0362,70.8907 -27.9763,70.8985 -27.9536,70.8986 -27.7922,70.878 -27.7548,70.8718 -27.7278,70.8627 -27.7158,70.8579 -27.7013,70.8535 -27.6749,70.8479 -27.6495,70.8458 -27.6014,70.8434 -27.5665,70.8462 -27.5543,70.8579 -27.5622,70.8701 -27.5833,70.8825 -27.6342,70.9005 -27.6962,70.9172 -27.7147,70.9224 -27.7368,70.9331 -27.7516,70.9421 -27.7688,70.9546 -27.8451,71.0186 -27.8564,71.0361 -27.7614,71.0543 -27.7351,71.0558 -27.709,71.0521 -27.6967,71.036 -27.6929,71.0237 -27.6843,71.0122 -27.6742,71.0063 -27.5401,70.9287 -27.5089,70.913 -27.4817,70.8959 -27.4648,70.8789 -27.4581,70.8684 -27.4502,70.8526 -27.438,70.8441 -27.2052,70.8388 -27.1588,70.8395 -27.1124,70.845 -26.9252,70.849 -26.7232,70.8374 -26.7084,70.8382 -26.4186,70.867 -26.398,70.8704 -26.3862,70.8736 -26.2899,70.9058 -26.2166,70.9337 -26.2028,70.9427 -26.0595,70.9601 -25.9802,70.9587 -25.9502,70.9621 -25.9384,70.9654 -25.6072,71.0551 -25.5388,71.0753 -25.5249,71.0867 -25.5382,71.0992 -25.5845,71.1125 -25.68,71.1435 -25.7115,71.1576 -25.6871,71.1639 -25.6511,71.1579 -25.5755,71.1422 -25.5224,71.1277 -25.4785,71.1193 -25.4584,71.1185 -25.3518,71.1807 -25.3537,71.2568 -25.3831,71.278 -25.3964,71.28 -25.4318,71.2778 -25.4509,71.2786 -25.468,71.2819 -25.494,71.2901 -25.5135,71.3014 -25.5493,71.3169 -25.5596,71.3221 -25.5857,71.3359 -25.6067,71.3495 -25.6351,71.3682 -25.66,71.3771 -25.6796,71.3817 -25.8177,71.4055 -25.8358,71.4057 -25.9433,71.4047 -25.9608,71.4024 -26.1198,71.3933 -26.2509,71.4039 -26.3596,71.408 -26.4436,71.3955 -26.4683,71.3903 -26.4826,71.3886 -26.6132,71.3811 -26.793,71.41 -26.9177,71.4321 -26.9381,71.4349 -26.9568,71.4352 -26.9736,71.4347 -27.0465,71.4241 -27.1035,71.4114 -27.1163,71.4067 -27.1284,71.4014 -27.1719,71.389 -27.253,71.4147 -27.2603,71.4215 -27.2488,71.4253 -27.232,71.4256 -27.1998,71.4237 -27.1829,71.4242 -27.1696,71.4281 -27.08,71.4557 -27.063,71.4677 -27.0773,71.4766 -27.3097,71.5066 -27.3213,71.5075 -27.4754,71.5167 -27.5297,71.518 -27.5668,71.518 -27.5829,71.5163 -27.6067,71.5125 -27.6844,71.4972 -27.8603,71.4707 -27.9064,71.4648 -27.9736,71.4582 -27.9888,71.4573 -28.0063,71.4561 -28.2999,71.447 -28.3291,71.4464 -28.3883,71.4549 -28.4008,71.4577 -28.4157,71.463 -28.4252,71.4682 -28.4212,71.4835 -28.4027,71.4852 -28.3814,71.4812 -28.3698,71.478 -28.3308,71.472 -28.3,71.4678 -28.2808,71.4676 -28.2656,71.4673 -28.0814,71.477 -28.0,71.4816 -27.9358,71.488 -27.9073,71.492 -27.7245,71.5204 -27.691,71.5263 -27.6749,71.5302 -27.6648,71.534 -27.6528,71.5396 -27.6229,71.5467 -27.6064,71.5496 -27.5887,71.5515 -27.5408,71.555 -27.5071,71.5535 -27.4673,71.5505 -27.3925,71.5402 -27.376,71.5395 -27.3439,71.5408 -27.329,71.5444 -27.308,71.5631 -27.263,71.6176 -27.2958,71.6291 -27.3234,71.6361 -27.3412,71.6372 -27.3752,71.6411 -27.4697,71.6558 -27.5068,71.6643 -27.5409,71.6727 -27.8066,71.75 -27.7476,71.7728 -27.7368,71.7802 -27.7441,71.7886 -27.7639,71.7993 -27.7808,71.8035 -27.8723,71.8162 -27.9092,71.82 -27.9682,71.8196 -28.029,71.8202 -28.1418,71.824 -28.3755,71.8374 -28.394,71.841 -28.4129,71.8517 -28.4261,71.8638 -28.4232,71.8779 -28.4144,71.8831 -28.4035,71.8859 -28.3635,71.8879 -28.3454,71.8898 -28.3065,71.8975 -28.2897,71.9062 -28.2912,71.9193 -28.3224,71.9365 -28.4016,71.9644 -28.4368,71.9725 -28.4776,71.9808 -28.4986,71.9831 -28.5501,71.985 -28.5926,71.9799 -28.6064,71.9769 -28.6289,71.9819 -28.635,71.9924 -28.5716,72.0284 -28.5493,72.0353 -28.5285,72.0377 -28.5101,72.0351 -28.2443,71.9502 -28.2159,71.9396 -28.1936,71.9304 -28.182,71.9218 -28.1719,71.911 -28.1558,71.9042 -28.141,71.9013 -28.0328,71.8814 -28.0028,71.8794 -27.9329,71.8798 -27.9031,71.8821 -27.8166,71.8777 -27.739,71.862 -27.6953,71.853 -27.6285,71.8347 -27.5668,71.8129 -27.5418,71.7985 -27.5638,71.7796 -27.5477,71.7666 -27.4034,71.7118 -27.3922,71.7084 -27.3145,71.6855 -27.2812,71.6828 -27.2587,71.6797 -27.2345,71.6741 -27.1489,71.6411 -27.1452,71.625 -27.1382,71.6111 -27.1294,71.5943 -27.1165,71.5801 -27.1033,71.5733 -26.9434,71.5016 -26.9191,71.4922 -26.8873,71.4839 -26.7547,71.4572 -26.7235,71.4522 -26.6861,71.449 -26.6489,71.447 -26.5927,71.4462 -26.5571,71.4482 -26.5077,71.4543 -26.4539,71.4631 -26.4153,71.4742 -26.2673,71.4842 -25.761,71.4572 -25.5858,71.4448 -25.5641,71.4424 -25.5255,71.4279 -25.5052,71.4191 -25.4943,71.4088 -25.4841,71.3956 -25.4147,71.3642 -25.3894,71.3568 -25.2702,71.3171 -25.223,71.2974 -25.2025,71.2726 -25.1914,71.2658 -25.0557,71.209 -25.0412,71.204 -25.0244,71.2012 -25.0091,71.2008 -24.8146,71.2081 -24.803,71.2094 -24.7727,71.2158 -24.695,71.2349 -24.6828,71.2379 -24.6277,71.1895 -24.5166,71.1161 -24.4762,71.1001 -24.4505,71.092 -24.4083,71.0783 -24.3646,71.0628 -24.3191,71.0426 -24.2234,70.9975 -24.2148,70.9919 -24.1838,70.9632 -24.1372,70.9196 -24.14,70.8991 -24.1509,70.8881 -24.1598,70.8803 -24.1686,70.8627 -24.1764,70.8403 -24.1736,70.8204 -24.1281,70.7048 -24.1163,70.6877 -23.9786,70.5682 -23.9676,70.5596 -23.9566,70.5542 -23.8875,70.523 -23.7746,70.4744 -23.4417,70.3878 -23.3207,70.354 -23.2966,70.3477 -23.2794,70.3451 -23.1146,70.3354 -23.0569,70.3325 -23.0001,70.3357 -22.9369,70.3407 -22.9022,70.3415 -22.7978,70.341 -22.7503,70.3389 -22.6974,70.3351 -22.6626,70.3358 -22.6264,70.3387 -22.5836,70.3501 -22.5721,70.3545 -22.5518,70.3708 -22.5446,70.3827 -22.5396,70.3944 -22.5148,70.4687 -22.514,70.4866 -22.5355,70.5225 -22.5475,70.5322 -22.5726,70.5445 -22.5968,70.5645 -22.5983,70.6079 -22.5935,70.6255 -22.5629,70.67 -22.5323,70.7109 -22.4754,70.7537 -22.4558,70.7572 -22.4381,70.7581 -22.4138,70.757 -22.3808,70.7481 -22.3775,70.7161 -22.3877,70.6869 -22.3939,70.6788 -22.4068,70.6568 -22.42,70.6097 -22.4202,70.5647 -22.3938,70.5448 -22.379,70.5308 -22.3632,70.5019 -22.3601,70.4811 -22.3613,70.4668 -22.3674,70.433 -22.3669,70.4071 -22.3591,70.3841 -22.3501,70.3668 -22.335,70.3544 -22.3226,70.3483 -22.3055,70.3462 -22.2691,70.3506 -22.2081,70.3576 -22.1746,70.3617 -22.1626,70.365 -22.0722,70.3992 -22.0448,70.404 -22.0112,70.4074 -21.9858,70.4057 -21.958,70.4008 -21.9329,70.3941 -21.9166,70.3889 -21.8926,70.3771 -21.8908,70.3626 -21.9081,70.3531 -21.9271,70.341 -21.9412,70.3297 -21.9501,70.3173 -21.9474,70.3046 -21.9327,70.2995 -21.9192,70.2975 -21.9092,70.2975 -21.8349,70.3135 -21.7101,70.3296 -21.6957,70.3263 -21.6735,70.3291 -21.6198,70.3383 -21.5953,70.3451 -21.5165,70.3797 -21.4947,70.3948 -21.4732,70.4102 -21.4272,70.4493 -21.4367,70.4537 -21.568,70.4921 -21.69,70.4821 -21.7013,70.4809 -21.7156,70.4816 -21.728,70.4897 -21.7232,70.4992 -21.7079,70.5106 -21.6049,70.5698 -21.6936,70.6008 -21.7104,70.6081 -21.6975,70.6153 -21.6017,70.6176 -21.583,70.6178 -21.5006,70.6132 -21.5051,70.6234 -21.5904,70.7023 -21.6145,70.7062 -21.6302,70.7043 -21.6438,70.7007 -21.6753,70.6891 -21.6998,70.6827 -21.7359,70.6806 -21.7802,70.681 -21.8303,70.6901 -21.8614,70.6999 -21.877,70.7128 -21.853,70.719 -21.8409,70.7184 -21.8281,70.7157 -21.8076,70.7057 -21.7913,70.7015 -21.779,70.7001 -21.7438,70.7004 -21.7061,70.7025 -21.6797,70.7076 -21.6529,70.7295 -21.5438,70.8692 -21.6294,70.9728 -21.6463,70.9785 -21.6892,70.9865 -21.7103,70.9875 -21.7416,70.9862 -21.9272,70.97 -22.0511,70.955 -22.0853,70.9498 -22.1142,70.9476 -22.2428,70.9479 -22.2771,70.96 -22.0531,70.9798 -21.9954,70.977 -21.904,70.9889 -21.7396,71.0081 -21.6489,71.0485 -21.6333,71.0601 -21.6153,71.0945 -21.6748,71.153 -21.7328,71.1692 -21.7538,71.1709 -21.775,71.1652 -21.7881,71.1547 -21.8037,71.1463 -21.8169,71.1411 -21.8523,71.1378 -21.863,71.1425 -21.9111,71.17 -21.8724,71.1766 -21.804,71.1799 -21.7673,71.1834 -21.7575,71.1854 -21.558,71.2301 -21.5738,71.2342 -21.6472,71.2376 -21.6655,71.2368 -21.7331,71.2211 -21.7641,71.2195 -21.7496,71.263 -21.719,71.2813 -21.6483,71.2977 -21.6221,71.3084 -21.6644,71.3432 -21.7548,71.4148 -21.966,71.3917 -22.0283,71.3997 -22.0419,71.3989 -22.0643,71.3933 -22.08,71.3892 -22.1293,71.3737 -22.2298,71.3384 -22.2466,71.3271 -22.2787,71.2782 -22.2803,71.2243 -22.287,71.2006 -22.3032,71.1761 -22.3166,71.1628 -22.3302,71.1587 -22.3856,71.1528 -22.3981,71.1542 -22.4194,71.1665 -22.4401,71.2997 -22.4821,71.3642 -22.4877,71.3894 -22.4605,71.4471 -22.4511,71.457 -22.4405,71.4634 -22.402,71.4802 -22.3714,71.4891 -22.1982,71.4952 -22.119,71.4935 -22.1014,71.4951 -22.0677,71.5041 -22.0525,71.5151 -22.0617,71.523 -22.0746,71.5242 -22.1048,71.5233 -22.1175,71.5238 -22.1664,71.5363 -22.1338,71.5521 -22.1136,71.557 -22.0271,71.5735 -21.9909,71.5767 -21.9632,71.5768 -21.9434,71.5814 -21.8927,71.6098 -21.8467,71.643 -22.1249,71.6597 -22.1591,71.6592 -22.1769,71.6567 -22.2452,71.6355 -22.2571,71.6295 -22.2584,71.6168 -22.3453,71.5408 -22.5451,71.4766 -22.5697,71.4767 -22.5834,71.4823 -22.6092,71.5524 -22.6064,71.5622 -22.5944,71.5704 -22.5697,71.5802 -22.5529,71.5845 -22.4881,71.6096 -22.3851,71.6494 -22.3729,71.6583 -22.3573,71.6744 -22.3517,71.6846 -22.3554,71.695 -22.3772,71.6995 -22.3999,71.6972 -22.6641,71.6333 -22.8278,71.5909 -22.9076,71.5541 -22.9318,71.5452 -22.9434,71.5419 -22.9573,71.5396 -23.0342,71.5306 -23.0755,71.5328 -23.0796,71.5434 -23.0777,71.5588 -23.0714,71.5744 -22.9772,71.6275 -22.9365,71.6425 -22.9238,71.6463 -22.8719,71.6563 -22.8412,71.6644 -22.7278,71.6962 -22.7098,71.7023 -22.6924,71.7115 -22.6851,71.7193 -22.5469,71.7701 -22.4904,71.7771 -22.4754,71.7795 -22.4491,71.7889 -22.4415,71.7972 -22.4504,71.8046 -22.4691,71.813 -22.4871,71.8192 -22.5186,71.8276 -22.6014,71.848 -22.6834,71.8655 -22.758,71.8788 -22.8055,71.8869 -22.9741,71.9155 -22.989,71.9171 -23.0095,71.9113 -23.0228,71.9027 -23.0474,71.8983 -23.0699,71.8994 -23.1096,71.9083 -23.138,71.9197 -23.1303,71.9269 -23.0606,71.9379 -23.0449,71.9455 -23.037,71.9582 -23.0565,71.9696 -23.0703,71.9729 -23.1992,71.9941 -23.4494,72.0342 -23.5905,72.0521 -23.649,72.0842 -23.6555,72.1115 -23.6906,72.1402 -23.6995,72.1456 -23.762,72.1592 -23.7814,72.1603 -23.8565,72.1638 -24.0061,72.1757 -24.2673,72.2316 -24.3537,72.2536 -24.3658,72.2577 -24.3781,72.2632 -24.4118,72.2794 -24.4417,72.2982 -24.4507,72.3087 -24.4617,72.3152 -24.4985,72.3206 -24.5292,72.3245 -24.7481,72.3309 -24.8638,72.3017 -25.0709,72.2712 -25.1033,72.2679 -25.1332,72.2611 -25.1579,72.2498 -25.301,72.1776 -25.3121,72.163 -25.3442,72.1131 -25.3449,72.0906 -25.3323,72.0724 -25.3295,72.0562 -25.3398,72.0455 -25.3528,72.0399 -25.3664,72.0355 -25.3953,72.0302 -25.4244,72.0256 -25.4527,72.0244 -25.4669,72.0269 -25.4386,72.1185 -25.4327,72.1305 -25.4245,72.1422 -25.4059,72.1607 -25.2737,72.2488 -25.2354,72.273 -25.2276,72.2863 -25.2375,72.2924 -25.2506,72.2949 -25.2904,72.3002 -25.4279,72.3093 -25.4474,72.309 -25.4821,72.307 -25.5344,72.3015 -25.5837,72.2947 -25.6156,72.2917 -25.6538,72.2896 -25.6925,72.2896 -25.7335,72.2932 -25.8304,72.3098 -25.8455,72.3187 -25.8338,72.3237 -25.7893,72.3286 -25.7544,72.3294 -25.7344,72.3287 -25.5742,72.3292 -25.4478,72.3392 -25.4165,72.3409 -25.3563,72.3406 -25.3169,72.3395 -25.2801,72.3378 -25.2387,72.3339 -25.2008,72.332 -25.0993,72.3328 -25.0596,72.3343 -25.0238,72.3373 -24.8492,72.3636 -24.6531,72.3981 -24.6381,72.401 -24.5509,72.4274 -24.5437,72.4521 -24.6024,72.4743 -24.6626,72.4902 -24.6818,72.5412 -24.6801,72.552 -24.6704,72.559 -24.6396,72.572 -24.655,72.5859 -24.6671,72.5901 -24.7669,72.6178 -24.7825,72.622 -25.0717,72.6512 -25.1302,72.6588 -25.4109,72.7316 -25.4311,72.735 -25.4691,72.737 -25.5045,72.7355 -25.541,72.7297 -25.56,72.725 -25.5811,72.7188 -25.6659,72.6905 -25.7206,72.6711 -25.778,72.6527 -25.8072,72.6465 -25.8399,72.6397 -25.9567,72.6222 -26.0126,72.6166 -26.0487,72.6153 -26.0703,72.6159 -26.1869,72.5717 -26.2599,72.526 -26.2832,72.5158 -26.3582,72.4833 -26.3895,72.4758 -26.3991,72.4752 -26.4114,72.4817 -26.4023,72.4906 -26.3539,72.5105 -26.3272,72.5208 -26.3055,72.5336 -26.2414,72.6282 -26.2519,72.6377 -26.2671,72.6404 -26.2813,72.6415 -26.4542,72.6251 -26.5962,72.6113 -26.646,72.6069 -26.6763,72.6069 -26.6974,72.6085 -26.7133,72.6147 -26.6353,72.6311 -26.6171,72.634 -26.5526,72.6417 -26.4739,72.6451 -26.438,72.6489 -26.4002,72.6544 -26.3322,72.6708 -26.3643,72.6804 -26.6136,72.7277 -26.6325,72.7307 -26.6781,72.7339 -26.855,72.7239 -26.9755,72.715 -27.0428,72.7083 -27.0609,72.7078 -27.1036,72.7073 -27.2779,72.7213 -27.3057,72.7251 -27.3152,72.7295 -27.3211,72.7429 -27.3166,72.7532 -27.3035,72.7583 -27.2894,72.7599 -27.2791,72.7603 -27.2554,72.7597 -27.216,72.755 -27.1789,72.7478 -27.1685,72.7441 -27.1069,72.7297 -27.0684,72.7241 -27.035,72.7241 -27.0196,72.7264 -26.8868,72.7452 -26.7126,72.7699 -26.6678,72.7733 -26.6512,72.7735 -26.6185,72.7715 -26.5972,72.7698 -26.5679,72.7655 -26.5304,72.754 -26.5058,72.7465 -26.4742,72.7386 -26.24,72.6884 -26.1969,72.6804 -26.1427,72.6781 -26.1216,72.679 -25.964,72.6898 -25.9262,72.6961 -25.8816,72.7077 -25.8385,72.7214 -25.813,72.7297 -25.7887,72.7385 -25.7688,72.7471 -25.7434,72.7611 -25.7185,72.7751 -25.6921,72.7871 -25.6501,72.7976 -25.6312,72.7997 -25.5777,72.7995 -25.4668,72.797 -25.3485,72.7942 -25.3116,72.794 -25.2582,72.7936 -25.2458,72.7954 -25.0983,72.8297 -25.0842,72.8341 -25.0706,72.8399 -24.9598,72.8881 -24.9318,72.907 -24.9248,72.9185 -24.9897,72.9826 -25.0,72.9852 -25.0381,72.9849 -25.092,72.9841 -25.1639,72.9829 -25.3245,72.9905 -25.3675,72.9954 -25.5666,73.0193 -25.6592,73.0353 -25.7007,73.0432 -25.7136,73.0476 -25.7236,73.0528 -25.7429,73.0658 -25.7564,73.0739 -25.792,73.0835 -25.8187,73.0872 -25.9067,73.0976 -25.9281,73.0993 -25.9496,73.1013 -25.9903,73.101 -26.0292,73.0982 -26.1411,73.0921 -26.2176,73.0902 -26.2584,73.0902 -26.3417,73.0959 -26.3624,73.096 -26.3841,73.095 -26.4013,73.0929 -26.4156,73.089 -26.4299,73.0817 -26.4699,73.0565 -26.5022,73.0333 -26.5178,73.0231 -26.5297,73.0179 -26.5785,73.0045 -26.5989,73.0019 -26.6443,73.0021 -26.6642,73.0032 -26.806,73.0131 -26.8906,73.0207 -26.9347,73.0259 -26.9884,73.0348 -27.0238,73.0427 -27.0429,73.0455 -27.081,73.0488 -27.092,73.0474 -27.1052,73.0443 -27.198,73.0215 -27.2208,73.0151 -27.2306,73.0096 -27.2464,72.9979 -27.2478,72.9429 -27.2458,72.8772 -27.2576,72.8707 -27.2773,72.8634 -27.3787,72.83 -27.4139,72.8264 -27.4304,72.8267 -27.453,72.8327 -27.4474,72.8416 -27.4179,72.8469 -27.3989,72.8492 -27.3737,72.8568 -27.3033,72.8883 -27.2968,72.9043 -27.3391,73.0117 -27.3511,73.0223 -27.3621,73.0276 -27.3822,73.0321 -27.4007,73.0341 -27.4201,73.0355 -27.4519,73.0351 -27.4732,73.0332 -27.4915,73.0302 -27.522,73.0276 -27.5908,73.0248 -27.6252,73.0248 -27.647,73.0272 -27.6602,73.0332 -27.6478,73.0421 -27.6131,73.051 -27.5857,73.0559 -27.5702,73.0576 -27.5284,73.0611 -27.4693,73.0621 -27.264,73.0701 -27.1678,73.0838 -27.0453,73.091 -27.0292,73.0906 -27.0079,73.0885 -26.9909,73.0861 -26.846,73.0604 -26.8047,73.0522 -26.695,73.0349 -26.6622,73.0319 -26.6461,73.0327 -26.6303,73.0346 -26.5502,73.0798 -26.5467,73.0914 -26.5414,73.103 -26.519,73.1143 -26.5013,73.1183 -26.4824,73.1212 -26.4349,73.1268 -26.3991,73.1285 -26.3508,73.1333 -26.3318,73.1362 -26.3246,73.15 -26.3573,73.1702 -26.371,73.1753 -26.3876,73.1804 -26.4102,73.1842 -26.4369,73.1878 -26.4563,73.1892 -26.6227,73.1979 -26.7616,73.2009 -26.7743,73.2016 -26.7896,73.204 -27.016,73.2445 -27.0812,73.2608 -27.3897,73.3428 -27.3852,73.3561 -27.2839,73.3894 -27.2694,73.3934 -27.2595,73.3939 -27.1936,73.3946 -27.1757,73.391 -27.1624,73.3843 -27.1458,73.373 -27.1269,73.3598 -27.091,73.341 -26.9525,73.2911 -26.9219,73.2808 -26.8725,73.2662 -26.7794,73.2424 -26.751,73.2361 -26.7049,73.2288 -26.6867,73.2265 -26.6466,73.2241 -26.5659,73.2205 -26.5042,73.221 -26.4771,73.2265 -26.4656,73.2299 -26.4396,73.2402 -26.4227,73.2432 -26.3922,73.2412 -26.3699,73.2383 -26.3292,73.2288 -26.2236,73.202 -26.2044,73.1966 -26.1768,73.1833 -26.1622,73.1698 -26.1466,73.1582 -26.1333,73.153 -26.1208,73.1495 -26.1028,73.1453 -26.0704,73.1431 -25.9483,73.1435 -25.8002,73.1459 -25.7638,73.1478 -25.7232,73.1512 -25.7058,73.1537 -25.6758,73.16 -25.6578,73.165 -25.4334,73.2384 -25.431,73.2998 -25.2969,73.3504 -25.2521,73.3625 -25.2201,73.3671 -25.18,73.369 -25.0428,73.3729 -24.8639,73.3792 -24.6501,73.3917 -24.6339,73.3961 -24.6139,73.419 -24.6313,73.4264 -24.7701,73.4528 -24.8822,73.474 -24.9617,73.4922 -25.0052,73.5077 -25.0287,73.5183 -25.0497,73.537 -25.0244,73.5596 -25.024,73.588 -25.0391,73.5947 -25.0594,73.5995 -25.156,73.6184 -25.2449,73.6361 -25.3071,73.6495 -25.4868,73.7064 -25.4998,73.7137 -25.5067,73.7248 -25.4983,73.7356 -25.5002,73.7462 -25.5072,73.755 -25.522,73.7644 -25.6166,73.8007 -25.6418,73.8102 -25.6728,73.8247 -25.6561,73.8443 -25.6384,73.8503 -25.6235,73.8522 -25.6071,73.8508 -25.5909,73.8477 -25.4572,73.8089 -25.4434,73.8038 -25.4298,73.7959 -25.4229,73.7878 -25.4005,73.759 -25.3802,73.7339 -25.371,73.7247 -25.3561,73.7174 -25.1354,73.6496 -25.1206,73.6452 -25.1013,73.6421 -24.9903,73.6278 -24.9467,73.6191 -24.9157,73.606 -24.8989,73.5875 -24.9065,73.5735 -24.9144,73.5654 -24.9262,73.549 -24.9324,73.5386 -24.9291,73.5269 -24.8974,73.5135 -24.842,73.4955 -24.7852,73.4865 -24.6686,73.4702 -24.6298,73.4686 -24.6012,73.4729 -24.5805,73.4735 -24.5505,73.4715 -24.4765,73.4599 -24.4564,73.4549 -24.4258,73.4458 -24.4022,73.4363 -24.3894,73.4356 -24.3779,73.4365 -24.3374,73.4452 -24.3193,73.4546 -24.3233,73.4643 -24.3417,73.4791 -24.3513,73.4846 -24.3707,73.5012 -24.3957,73.5268 -24.4038,73.5414 -24.407,73.5532 -24.4041,73.5725 -24.3983,73.5862 -24.3913,73.5989 -24.2758,73.6753 -24.0893,73.7017 -23.9836,73.7146 -23.9668,73.7154 -23.9486,73.7117 -23.9366,73.6994 -23.8697,73.6591 -23.8565,73.6536 -23.8321,73.6471 -23.7878,73.6385 -23.7435,73.6331 -23.7024,73.6317 -23.6444,73.6337 -23.5052,73.6344 -23.4674,73.6313 -23.4303,73.627 -23.1051,73.555 -22.8498,73.4973 -22.8318,73.4918 -22.8044,73.4837 -22.7904,73.4799 -22.762,73.4732 -22.6904,73.4635 -22.6506,73.4638 -22.6053,73.4657 -22.5889,73.4674 -22.4846,73.4815 -22.4437,73.4896 -22.4164,73.5035 -22.3976,73.5092 -22.3616,73.514 -22.2354,73.5269 -22.2173,73.528 -22.1761,73.5293 -22.1554,73.5292 -22.1299,73.5237 -22.1477,73.5183 -22.1676,73.5161 -22.2008,73.513 -22.3866,73.4865 -22.4869,73.4629 -22.6175,73.4459 -22.6379,73.445 -22.7573,73.4519 -22.7721,73.453 -22.7908,73.4563 -22.8546,73.4732 -22.9532,73.4976 -23.0692,73.5244 -23.1034,73.5322 -23.3253,73.5696 -23.4032,73.5952 -23.4264,73.5999 -23.449,73.604 -23.4893,73.6087 -23.529,73.6106 -23.5465,73.611 -23.6628,73.6112 -23.7961,73.6159 -23.9011,73.6213 -23.9226,73.6225 -23.9349,73.6206 -23.9559,73.6121 -23.9718,73.6026 -23.9751,73.5606 -23.9365,73.5015 -23.9235,73.4934 -23.9072,73.4884 -23.6594,73.4147 -23.5285,73.3855 -23.4968,73.3767 -23.4757,73.369 -23.4624,73.3628 -23.4544,73.3534 -23.448,73.3454 -23.4335,73.3416 -23.3176,73.3122 -23.3028,73.3099 -23.2237,73.3089 -23.1651,73.2992 -23.1293,73.2878 -23.1077,73.2741 -23.0868,73.2612 -23.0708,73.2557 -23.0551,73.2517 -22.8818,73.2241 -22.8389,73.2188 -22.7701,73.2209 -22.7122,73.2201 -22.6806,73.2174 -22.5755,73.2015 -22.5608,73.1988 -22.5249,73.189 -22.5074,73.1833 -22.4681,73.1742 -22.4443,73.1697 -22.4074,73.1622 -22.3661,73.1563 -22.3241,73.1518 -22.2306,73.1459 -22.1931,73.1454 -22.1716,73.1467 -22.1345,73.1512 -22.1084,73.1576 -22.0489,73.1786 -22.0138,73.1935 -21.9728,73.2096 -21.9216,73.2275 -21.8947,73.2368 -21.8794,73.2413 -21.8589,73.2454 -21.7093,73.2732 -21.6235,73.2852 -21.5597,73.3639 -21.5199,73.3765 -21.5073,73.3787 -21.471,73.3827 -21.4353,73.3843 -21.4008,73.3831 -21.3833,73.3817 -21.3636,73.379 -21.3341,73.3732 -21.1811,73.3541 -21.0379,73.3541 -20.88,73.3609 -20.7498,73.3602 -20.7295,73.3598 -20.6384,73.3514 -20.6,73.3483 -20.5829,73.3477 -20.5608,73.3478 -20.5151,73.3494 -20.4799,73.351 -20.4648,73.3518 -20.4501,73.3538 -20.426,73.3585 -20.4019,73.3642 -20.3864,73.3694 -20.3775,73.3747 -20.3202,73.4254 -20.333,73.4339 -20.3703,73.4338 -20.3947,73.4343 -20.4198,73.4377 -20.4606,73.449 -20.4727,73.4596 -20.4697,73.4694 -20.4618,73.4764 -20.4394,73.4881 -20.4228,73.4966 -20.41,73.5296 -20.4083,73.5422 -20.4424,73.5824 -20.4554,73.5906 -20.4673,73.5961 -20.477,73.6056 -20.4815,73.621 -20.4297,73.658 -20.4212,73.6642 -20.4024,73.6705 -20.3692,73.676 -20.2962,73.6813 -20.2825,73.6813 -20.2398,73.6884 -20.2307,73.696 -20.2121,73.7403 -20.2281,73.7769 -20.2447,73.7832 -20.2578,73.7852 -20.3134,73.7905 -20.3731,73.7919 -20.4164,73.7905 -20.4911,73.7829 -20.5617,73.7789 -20.5824,73.7783 -20.6252,73.7812 -20.6648,73.7853 -20.7086,73.7909 -20.9902,73.8371 -21.2169,73.8795 -21.2635,73.8927 -21.3538,73.9142 -21.4338,73.9304 -21.4795,73.9387 -21.5133,73.9446 -21.6305,73.9607 -21.6521,73.9618 -21.6665,73.9612 -21.6934,73.9576 -21.8071,73.9355 -21.8329,73.9255 -21.8507,73.9162 -21.8587,73.9101 -21.861,73.8783 -21.8357,73.8219 -21.9303,73.8997 -22.0054,73.9178 -22.0273,73.9201 -22.049,73.9196 -22.0636,73.9187 -22.1299,73.9202 -22.1917,73.9249 -22.2066,73.9272 -22.4238,73.9678 -22.4341,73.9758 -22.4204,73.9815 -23.4705,74.2638 -25.1706,74.2265 -25.8655,74.0652 -27.1312,73.755 -27.7765,73.4448 -28.2481,72.9856 -28.6824,72.5016 -28.8685,72.1542 -29.0299,71.6454 -29.1788,71.087 -29.216,70.7023 -29.2532,70.2555 -29.2419,69.9615 594,-2.0,Greenland -22.7994,76.4456 -22.7135,76.2245 -22.5149,76.026 -22.3164,75.8274 -22.1054,75.7902 -21.8324,75.7281 -21.5346,75.7033 -21.1127,75.6537 -20.7528,75.6289 -20.4922,75.6164 -20.2068,75.5668 -19.9834,75.5296 -19.7476,75.4799 -19.7153,75.4745 -19.7353,75.5544 -19.6907,75.7773 -19.7023,75.7825 -19.727,75.7915 -19.7699,75.8024 -19.8798,75.8236 -19.9328,75.8275 -20.0812,75.8235 -20.1516,75.819 -20.1846,75.8163 -20.2289,75.8162 -20.2768,75.8165 -20.3042,75.8186 -20.3176,75.8194 -20.3407,75.8234 -20.3656,75.8322 -20.4284,75.8416 -20.4534,75.8438 -20.5275,75.8495 -20.5516,75.8508 -20.649,75.8544 -20.7659,75.8569 -21.0285,75.862 -21.0986,75.8617 -21.1616,75.8594 -21.2403,75.8555 -21.3028,75.8522 -21.3459,75.8492 -21.4091,75.8476 -21.5294,75.8465 -21.7983,75.8479 -21.8152,75.8503 -21.9096,75.8772 -21.9203,75.8834 -21.8911,75.9288 -21.8785,75.9346 -21.8646,75.9353 -21.8247,75.9277 -21.7985,75.9083 -21.7942,75.8988 -21.7869,75.891 -21.7725,75.8855 -21.7587,75.882 -21.7195,75.8746 -21.6597,75.8664 -21.616,75.8628 -21.5819,75.8622 -21.3587,75.8658 -21.3244,75.8696 -21.3052,75.8728 -21.2648,75.8827 -21.2423,75.8862 -21.2244,75.8872 -20.8576,75.893 -20.7951,75.8924 -20.6434,75.8835 -20.3788,75.8715 -20.3409,75.8718 -20.3035,75.8741 -20.2266,75.8833 -20.1575,75.8941 -20.0994,75.9064 -20.0559,75.9155 -20.0226,75.9238 -20.0123,75.9298 -20.0016,75.935 -19.9833,75.9403 -19.9491,75.9476 -19.9259,75.9512 -19.871,75.9557 -19.8493,75.9566 -19.8068,75.9558 -19.7821,75.9535 -19.7306,75.9437 -19.7144,75.943 -19.6901,75.9433 -19.6753,75.9466 -19.6608,75.9525 -19.6137,76.0108 -19.6121,76.0221 -19.7101,76.0961 -19.7379,76.1137 -19.7502,76.1206 -19.7776,76.1299 -19.8172,76.1409 -19.848,76.1483 -19.8733,76.1506 -19.8899,76.1512 -20.0952,76.143 -20.1314,76.1402 -20.1548,76.1378 -20.1919,76.132 -20.2502,76.1178 -20.3172,76.1106 -20.3419,76.1111 -20.377,76.1126 -20.4274,76.1178 -20.5135,76.1298 -20.6227,76.1495 -20.727,76.173 -20.7547,76.1802 -20.7949,76.1891 -20.8211,76.1935 -20.8466,76.1969 -20.8896,76.2007 -20.9313,76.2029 -20.9556,76.2032 -20.9798,76.202 -21.0053,76.1987 -21.0258,76.1878 -20.9718,76.1592 -20.9481,76.1508 -20.9344,76.1475 -20.8088,76.1173 -20.7564,76.1073 -20.6235,76.089 -20.3648,76.0287 -20.5038,76.0263 -20.5128,76.0344 -20.5461,76.0494 -20.6672,76.0689 -20.8402,76.1084 -20.885,76.1187 -20.9531,76.1378 -20.972,76.1433 -20.9859,76.1486 -20.9963,76.1542 -21.0089,76.1629 -21.0308,76.1694 -21.0527,76.1725 -21.0981,76.1734 -21.1373,76.1698 -21.3189,76.152 -21.4372,76.1122 -21.4612,76.1109 -21.4753,76.1109 -21.6032,76.1286 -21.6213,76.1311 -21.643,76.1428 -21.5931,76.2148 -21.5851,76.225 -21.5688,76.2349 -21.5366,76.2509 -21.516,76.2602 -21.4999,76.2684 -21.4944,76.2773 -21.5097,76.3256 -21.5236,76.3311 -21.5433,76.3331 -21.5576,76.3333 -21.584,76.3322 -21.6079,76.33 -21.6293,76.3268 -21.6485,76.3222 -21.6837,76.3178 -22.0793,76.3049 -22.127,76.304 -22.1437,76.3047 -22.3158,76.3133 -22.3413,76.3147 -22.3658,76.3181 -22.3889,76.3236 -22.423,76.3323 -22.44,76.3383 -22.3668,76.3876 -22.3386,76.3901 -22.2883,76.3895 -22.2563,76.3834 -22.2401,76.3776 -22.2178,76.3598 -22.2071,76.3506 -22.1943,76.3456 -22.1757,76.3411 -22.1524,76.336 -22.125,76.3308 -22.0816,76.3272 -21.898,76.3194 -21.858,76.3182 -21.8335,76.3191 -21.7755,76.3237 -21.6954,76.3307 -21.6837,76.333 -21.6659,76.3392 -21.6137,76.376 -21.6393,76.3868 -21.6517,76.3865 -21.7653,76.3709 -21.7966,76.3623 -21.8333,76.3559 -21.9475,76.351 -21.9717,76.3592 -21.9437,76.3698 -21.9201,76.3732 -21.7612,76.394 -21.7015,76.4005 -21.6771,76.4019 -21.6375,76.407 -21.6174,76.413 -21.7523,76.4813 -21.7872,76.4932 -21.8445,76.5094 -21.8696,76.5132 -22.0573,76.5321 -22.0967,76.5306 -22.1209,76.528 -22.14,76.5249 -22.1532,76.5208 -22.2753,76.4702 -22.2625,76.4391 -22.2441,76.4266 -22.2243,76.4139 -22.2452,76.4041 -22.27,76.4035 -22.3704,76.4368 -22.4356,76.5134 -22.5324,76.5504 -22.5795,76.5521 -22.6161,76.5578 -22.6424,76.5634 -22.6558,76.5681 -22.6705,76.5766 -22.6769,76.5852 -22.6736,76.595 -22.6549,76.6074 -22.6267,76.6187 -22.5872,76.6282 -22.5476,76.6342 -22.5112,76.637 -22.4857,76.6378 -22.3442,76.6347 -22.2961,76.6659 -22.3121,76.6766 -22.3547,76.724 -22.2614,76.7418 -22.2234,76.7473 -22.2028,76.7486 -22.1764,76.7476 -22.1062,76.7374 -22.0877,76.732 -21.8749,76.6576 -21.8557,76.6476 -21.807,76.6157 -21.7605,76.5876 -21.6865,76.5498 -21.653,76.5413 -21.6041,76.5356 -21.5611,76.5337 -21.5431,76.5355 -21.3782,76.5983 -21.2655,76.6315 -21.2278,76.6733 -21.2462,76.683 -21.2229,76.6929 -21.1603,76.6985 -21.1355,76.6966 -21.0987,76.6908 -21.0888,76.6872 -21.0514,76.6782 -21.0334,76.6758 -21.0079,76.6761 -20.9898,76.6791 -20.9605,76.6861 -20.8881,76.7121 -20.8791,76.7328 -20.9324,76.7492 -20.9512,76.7534 -20.9647,76.7552 -20.9905,76.7557 -21.012,76.7553 -21.1644,76.7517 -21.3848,76.7471 -21.4066,76.7478 -21.6451,76.7652 -21.6651,76.7716 -21.6544,76.7766 -21.5142,76.789 -21.489,76.7896 -21.4299,76.7873 -21.3741,76.7823 -21.14,76.7863 -21.0985,76.7893 -21.0557,76.7892 -20.8716,76.7783 -20.845,76.7761 -20.7903,76.7674 -20.7666,76.7619 -20.7396,76.7588 -20.7189,76.7603 -20.5326,76.8052 -20.5209,76.8117 -20.5275,76.8201 -20.5437,76.8241 -20.6394,76.8444 -20.6898,76.8465 -20.7943,76.844 -20.8886,76.8379 -20.9342,76.8339 -20.9577,76.8329 -20.9727,76.8359 -20.917,76.8719 -20.9023,76.8726 -20.6631,76.878 -20.6413,76.8774 -20.35,76.8588 -20.2426,76.8475 -20.1327,76.8332 -20.1132,76.8321 -20.0658,76.8317 -20.0406,76.8344 -20.0162,76.8386 -20.0028,76.8431 -19.9869,76.8463 -19.968,76.8482 -19.9464,76.8483 -19.8416,76.8495 -19.8136,76.8496 -19.6925,76.8331 -19.4848,76.7988 -19.3918,76.7794 -19.348,76.7686 -19.2412,76.7518 -19.1296,76.7492 -18.9372,76.7463 -18.8907,76.7475 -18.8562,76.7464 -18.755,76.7312 -18.5023,76.6749 -18.4854,76.6645 -18.476,76.6598 -18.4196,76.6341 -18.4004,76.6329 -18.3926,76.6436 -18.4387,76.6753 -18.4527,76.6818 -18.4644,76.6897 -18.4654,76.6999 -18.4537,76.7049 -18.4413,76.7081 -18.4208,76.7103 -18.4038,76.7104 -18.3861,76.7067 -18.3715,76.6973 -18.3536,76.6924 -18.3275,76.6917 -18.2774,76.6933 -18.2525,76.6965 -18.1306,76.7712 -18.0787,76.8245 -18.0696,76.8356 -18.0919,76.977 -18.1787,77.1664 -18.1897,77.1777 -18.2052,77.1894 -18.342,77.2316 -18.3624,77.2337 -18.469,77.2373 -18.5633,77.2349 -18.5793,77.2351 -18.651,77.2399 -18.7594,77.2496 -18.8366,77.2572 -18.8597,77.2608 -18.9131,77.2615 -19.0059,77.2268 -19.0173,77.2197 -19.0163,77.2079 -18.9943,77.1919 -18.9795,77.1863 -18.9694,77.1809 -18.9613,77.1742 -18.9564,77.1178 -18.9809,77.1142 -19.0009,77.1162 -19.0786,77.1279 -19.1618,77.1435 -19.2115,77.1493 -19.2387,77.1509 -19.2621,77.1485 -19.28,77.1416 -19.3007,77.1366 -19.3445,77.1296 -19.364,77.129 -19.3916,77.1335 -19.4042,77.1422 -19.399,77.151 -19.3897,77.1568 -19.353,77.1749 -19.342,77.1891 -19.3524,77.2029 -19.3998,77.2213 -19.4269,77.2311 -19.4658,77.2423 -19.4917,77.2472 -19.5924,77.2666 -19.6489,77.2756 -19.7476,77.2861 -19.7772,77.288 -19.8015,77.2881 -20.0085,77.2825 -20.061,77.2792 -20.1382,77.2718 -20.1668,77.2709 -20.2424,77.2717 -20.2926,77.2745 -20.3731,77.2832 -20.4301,77.2922 -20.5945,77.2975 -20.6354,77.293 -20.6613,77.2917 -20.7111,77.302 -20.6897,77.3074 -20.6617,77.3107 -20.6382,77.3126 -20.5029,77.3209 -20.479,77.3217 -20.4633,77.3213 -20.4382,77.3194 -20.366,77.3119 -20.2919,77.3032 -20.2393,77.2997 -20.215,77.2995 -20.1442,77.3019 -20.079,77.3069 -20.0196,77.3145 -19.9864,77.3207 -19.9653,77.3254 -19.9505,77.3379 -19.9815,77.3464 -20.0088,77.349 -20.2953,77.3614 -20.5483,77.3737 -20.6515,77.3811 -20.8704,77.4108 -20.9875,77.433 -20.9705,77.4352 -20.9258,77.4362 -20.8708,77.434 -20.8027,77.427 -20.6937,77.4128 -20.5579,77.3991 -20.505,77.3955 -20.4226,77.3912 -20.3928,77.3902 -20.3684,77.39 -20.3437,77.3953 -20.3152,77.4037 -20.2998,77.4139 -20.3141,77.426 -20.3345,77.4315 -20.3781,77.4406 -20.4244,77.4436 -20.4464,77.4423 -20.5158,77.4351 -20.5907,77.4362 -20.5526,77.4428 -20.5116,77.4476 -20.4683,77.4523 -20.4204,77.4561 -20.3664,77.4569 -20.311,77.4532 -20.2991,77.4509 -20.226,77.4421 -20.1987,77.4417 -20.1868,77.4461 -20.1992,77.4553 -20.2853,77.487 -20.3057,77.4925 -20.33,77.4981 -20.3869,77.5047 -20.4449,77.5092 -20.5026,77.5112 -20.6103,77.5212 -20.8519,77.5538 -20.836,77.5626 -20.8071,77.5688 -20.5909,77.5979 -20.478,77.6003 -20.429,77.5914 -20.403,77.5885 -20.3748,77.5871 -20.3495,77.587 -20.3231,77.5885 -20.2969,77.5918 -20.2715,77.597 -20.255,77.6017 -20.2439,77.608 -20.2189,77.6143 -20.1968,77.6165 -20.1421,77.6164 -20.0868,77.6155 -20.0287,77.613 -19.9748,77.6085 -19.908,77.5999 -19.5592,77.5178 -19.5193,77.5068 -19.4952,77.5012 -19.3807,77.4816 -19.2964,77.4702 -19.2735,77.4686 -19.2464,77.4682 -19.2245,77.4713 -19.2117,77.4744 -19.1793,77.4866 -19.1582,77.4924 -19.1327,77.4976 -19.1067,77.5019 -19.0535,77.5057 -18.9971,77.5065 -18.9508,77.5086 -18.9241,77.5109 -18.9026,77.5176 -18.979,77.5654 -18.9983,77.5764 -19.0218,77.5879 -19.1518,77.6394 -19.1828,77.6505 -19.2313,77.6606 -19.26,77.665 -19.3683,77.6761 -19.429,77.6792 -19.5074,77.6799 -19.5655,77.6837 -19.787,77.7017 -19.8699,77.7084 -20.0377,77.728 -20.2513,77.7578 -20.3013,77.7676 -20.542,77.8202 -20.5568,77.8326 -20.5388,77.8475 -20.5396,77.8586 -20.5645,77.8652 -20.7696,77.8983 -20.7918,77.9014 -20.8037,77.9017 -20.8172,77.9005 -20.8392,77.8973 -20.856,77.8928 -20.9801,77.8566 -21.0261,77.8387 -21.0645,77.8208 -21.1101,77.7986 -21.2562,77.7227 -21.2673,77.7164 -21.3034,77.6945 -21.3183,77.6777 -21.3307,77.6594 -21.3351,77.6488 -21.3385,77.6369 -21.3403,77.6256 -21.3396,77.6088 -21.3332,77.5749 -21.3243,77.5652 -21.3504,77.5229 -21.501,77.4568 -21.5144,77.452 -21.658,77.4189 -21.661,77.4371 -21.6222,77.4507 -21.4661,77.5035 -21.3671,77.5403 -21.365,77.5452 -21.3659,77.5623 -21.4006,77.5682 -21.4429,77.571 -21.4712,77.5727 -21.7456,77.5753 -21.7724,77.5736 -21.7914,77.571 -21.8266,77.5636 -21.946,77.5658 -21.958,77.5692 -21.9689,77.5647 -22.3784,77.4282 -22.5273,77.2545 -22.6266,77.0807 -22.7507,76.8946 -22.8003,76.6836 -22.8003,76.4479 -22.7994,76.4456 21,-2.0,Greenland -19.7306,75.5356 -19.7153,75.4745 -19.5987,75.4551 -19.425,75.4179 -19.3219,75.4179 -19.3221,75.4187 -19.3306,75.437 -19.34,75.4514 -19.361,75.4656 -19.4561,75.5237 -19.5486,75.5619 -19.5574,75.5698 -19.524,75.6177 -19.5139,75.6235 -19.5031,75.6265 -19.5018,75.6651 -19.6454,75.7561 -19.6548,75.7614 -19.6907,75.7773 -19.7353,75.5544 -19.7306,75.5356 67,1.0,Norway 18.083,80.3113 18.0685,80.2929 18.0928,80.2845 18.1169,80.2886 18.1685,80.2895 18.2119,80.2884 18.2276,80.287 18.2516,80.2758 18.3019,80.2711 18.3607,80.272 18.3749,80.2693 18.3855,80.2578 18.3852,80.2431 18.3949,80.2423 18.422,80.2472 18.4357,80.2539 18.4494,80.2557 18.52,80.2561 18.5679,80.2593 18.5972,80.2638 18.6086,80.2706 18.6127,80.2863 18.6331,80.2891 18.6869,80.2903 18.7059,80.2925 18.722,80.2995 18.7238,80.3078 18.7186,80.3101 18.696,80.3068 18.6934,80.3029 18.6774,80.3014 18.6463,80.3016 18.6197,80.2998 18.6181,80.2999 18.5895,80.3011 18.5444,80.3158 18.5316,80.3166 18.503,80.307 18.4827,80.3048 18.4753,80.3074 18.4946,80.314 18.4947,80.3195 18.5751,80.3326 18.5786,80.337 18.542,80.3353 18.5254,80.337 18.5186,80.342 18.5323,80.3465 18.5318,80.3544 18.5201,80.3578 18.4402,80.3622 18.4335,80.3634 18.4119,80.3673 18.392,80.3764 18.3783,80.3774 18.3581,80.3726 18.3435,80.3724 18.3285,80.3784 18.3099,80.3778 18.2536,80.3707 18.2308,80.3708 18.1686,80.3657 18.0855,80.3441 18.0844,80.3401 18.1059,80.34 18.083,80.3113 18.083,80.3113 52,1.0,Norway 24.9635,76.4633 24.9448,76.445 24.9473,76.4409 24.9586,76.4393 24.9759,76.4368 24.9981,76.4362 25.0,76.4368 25.0233,76.4443 25.0401,76.4462 25.0424,76.4491 25.0169,76.4553 25.0336,76.4806 25.0578,76.4875 25.0792,76.5035 25.1206,76.5149 25.1755,76.534 25.225,76.5513 25.237,76.5598 25.2343,76.5692 25.3087,76.6032 25.3946,76.6262 25.4158,76.6297 25.4338,76.6404 25.4905,76.6737 25.5294,76.6889 25.5436,76.6972 25.5895,76.7114 25.5863,76.7164 25.5494,76.7149 25.5056,76.7066 25.4589,76.6924 25.458,76.6919 25.4347,76.6764 25.4396,76.6764 25.3861,76.655 25.3812,76.655 25.3347,76.6267 25.3216,76.6248 25.2878,76.6084 25.2519,76.5971 25.2174,76.5835 25.1609,76.5613 25.1166,76.5523 25.1035,76.5487 25.0676,76.5273 25.0422,76.5193 25.0387,76.5068 25.0,76.497 24.9965,76.4961 24.9934,76.4779 24.9635,76.4633 24.9635,76.4633 42,1.0,Norway 26.3992,78.781 26.4039,78.7637 26.428,78.7402 26.4621,78.726 26.4657,78.7246 26.469,78.7027 26.5093,78.6973 26.6094,78.6736 26.6525,78.6706 26.6994,78.6567 26.6886,78.6393 26.709,78.6318 26.7233,78.6303 26.7247,78.6402 26.7551,78.6456 26.8138,78.6449 26.878,78.6471 26.9167,78.6564 26.9481,78.6681 26.9389,78.676 26.9502,78.6861 26.9928,78.6926 27.006,78.6977 27.0012,78.7007 26.9091,78.6996 26.9026,78.7002 26.8573,78.7048 26.7812,78.722 26.7524,78.731 26.7077,78.7531 26.6446,78.7691 26.6234,78.7805 26.6038,78.798 26.6126,78.8043 26.6078,78.8049 26.5765,78.809 26.5468,78.816 26.5026,78.8173 26.4535,78.8048 26.4154,78.7979 26.3992,78.781 26.3992,78.781 43,1.0,Norway 19.621,79.3978 19.6492,79.391 19.6581,79.372 19.6364,79.3599 19.6532,79.3539 19.6625,79.3445 19.6813,79.3399 19.7151,79.3378 19.748,79.3389 19.818,79.3465 19.8901,79.3516 19.9838,79.3508 20.0,79.3491 20.0293,79.346 20.041,79.3448 20.0669,79.3402 20.0871,79.3288 20.0891,79.3277 20.1248,79.3233 20.1427,79.3248 20.1579,79.3357 20.1503,79.3406 20.1316,79.3418 20.1172,79.3487 20.0961,79.3496 20.0294,79.3681 20.0289,79.3683 20.0,79.3733 19.9365,79.3842 19.8865,79.39 19.8629,79.3907 19.8117,79.3999 19.7784,79.4021 19.7713,79.4026 19.7153,79.4111 19.6813,79.413 19.6471,79.4117 19.6484,79.4079 19.6676,79.4058 19.6689,79.4022 19.6268,79.4024 19.621,79.3978 19.621,79.3978 170,1.0,Norway 10.4907,78.8982 10.4983,78.8853 10.5386,78.8637 10.5323,78.843 10.5435,78.83 10.5205,78.8115 10.506,78.7997 10.5349,78.7816 10.5399,78.773 10.5648,78.7668 10.5635,78.7617 10.5988,78.7504 10.6288,78.7321 10.6579,78.7231 10.6807,78.7202 10.7006,78.7046 10.7085,78.6936 10.7368,78.6874 10.7248,78.679 10.7472,78.6683 10.791,78.6618 10.8288,78.6445 10.8269,78.6301 10.837,78.6235 10.8712,78.6149 10.9108,78.5928 10.9258,78.5844 10.929,78.5706 10.9459,78.5604 10.9809,78.5561 10.99,78.5476 10.9762,78.5354 10.9941,78.5157 11.022,78.4957 11.035,78.4758 11.066,78.4629 11.1622,78.4398 11.1889,78.4392 11.209,78.4464 11.2455,78.4531 11.3058,78.4575 11.3198,78.4508 11.3453,78.4486 11.3741,78.4339 11.402,78.4316 11.4717,78.4108 11.521,78.4087 11.5745,78.3946 11.5984,78.379 11.6671,78.3387 11.7289,78.3271 11.7501,78.3207 11.8199,78.3054 11.8239,78.2988 11.8197,78.2822 11.7807,78.2748 11.7745,78.2737 11.7723,78.2666 11.8119,78.2668 11.8226,78.264 11.8475,78.2407 11.8756,78.2316 11.9235,78.2254 11.9378,78.226 11.9413,78.2294 11.9555,78.23 11.9844,78.2223 12.0491,78.2186 12.0783,78.2116 12.1208,78.211 12.1469,78.2052 12.15,78.2149 12.1241,78.2255 12.1504,78.2276 12.1227,78.2474 12.0801,78.2696 12.0881,78.2887 12.0444,78.3095 12.018,78.3198 11.9766,78.3359 11.9492,78.3666 11.9084,78.3841 11.8741,78.3966 11.862,78.4042 11.8944,78.4382 11.9088,78.4448 11.9033,78.4469 11.7994,78.4467 11.6753,78.4519 11.6284,78.4615 11.5843,78.4815 11.5605,78.4871 11.534,78.4925 11.5243,78.4968 11.5176,78.5092 11.5015,78.5125 11.4778,78.5134 11.4512,78.5364 11.4613,78.5448 11.4574,78.5485 11.4206,78.5503 11.3054,78.5477 11.2748,78.5502 11.2841,78.5524 11.2848,78.5585 11.2975,78.5597 11.2954,78.5751 11.27,78.5815 11.2446,78.5979 11.2708,78.6143 11.2604,78.6193 11.2468,78.6214 11.1983,78.6218 11.1668,78.6249 11.1577,78.6374 11.1785,78.6549 11.1634,78.6643 11.15,78.6706 11.1022,78.6756 11.0597,78.6858 11.0459,78.6966 11.0449,78.7009 11.0568,78.7076 11.0786,78.715 11.107,78.7196 11.1319,78.7265 11.1522,78.7293 11.1909,78.7309 11.1915,78.7369 11.1217,78.7641 11.1148,78.7703 11.095,78.7744 11.0867,78.7743 11.0847,78.7728 11.0924,78.7678 11.0845,78.764 11.0741,78.7636 11.0675,78.7643 11.0671,78.7703 11.0363,78.7656 11.0276,78.7659 11.0145,78.7705 11.0187,78.7732 11.0056,78.7755 10.9847,78.7716 10.9601,78.7746 10.9558,78.7781 10.9171,78.7891 10.8951,78.8004 10.9195,78.8009 10.9318,78.8039 10.9291,78.8075 10.9184,78.8096 10.9579,78.8161 10.9764,78.8243 11.0092,78.825 11.0215,78.8313 10.8513,78.8724 10.8306,78.8736 10.8059,78.8796 10.7803,78.8799 10.7413,78.8878 10.705,78.888 10.6774,78.8895 10.6438,78.8913 10.6005,78.8934 10.5433,78.9039 10.5133,78.9027 10.4907,78.8982 10.4907,78.8982 23,1.0,Norway 19.8358,80.5105 19.8316,80.4945 19.848,80.4881 19.9137,80.4769 19.9312,80.4756 19.954,80.4766 20.0,80.482 20.0186,80.4842 20.1063,80.503 20.1104,80.5086 20.1031,80.5125 20.0843,80.5159 20.0199,80.5372 20.0,80.5394 19.9986,80.5395 19.9822,80.5388 19.9311,80.5289 19.9305,80.5209 19.8737,80.5135 19.8496,80.5133 19.8407,80.5115 19.8358,80.5105 19.8358,80.5105 22,1.0,Norway 10.6603,79.7549 10.684,79.7504 10.7543,79.742 10.8122,79.7393 10.9241,79.7394 10.9285,79.7381 10.9794,79.7366 11.0163,79.732 11.0467,79.7327 11.0475,79.7352 11.0123,79.7418 10.9428,79.7518 10.9296,79.7632 10.9237,79.7668 10.9143,79.7725 10.8776,79.7716 10.7926,79.7834 10.7551,79.7799 10.7545,79.775 10.7051,79.7705 10.6603,79.7549 10.6603,79.7549 34,1.0,Norway 19.9234,79.242 19.9392,79.234 19.9943,79.2291 20.0,79.2306 20.0214,79.236 20.0288,79.2396 20.0436,79.2469 20.0753,79.247 20.1112,79.2449 20.1121,79.2583 20.1252,79.2596 20.1303,79.2669 20.1205,79.2754 20.0905,79.2779 20.0785,79.2853 20.1126,79.2897 20.0994,79.2973 20.0704,79.2961 20.041,79.3042 20.0291,79.3041 20.0154,79.304 20.0,79.3018 19.9931,79.3008 19.9844,79.2965 19.9814,79.295 19.9421,79.2916 19.9486,79.2864 19.9984,79.2833 20.0,79.2828 20.0162,79.2771 20.0,79.2719 19.9384,79.2522 19.9234,79.242 19.9234,79.242 97,1.0,Norway 27.8725,78.8557 27.8646,78.8508 27.9101,78.8378 28.0512,78.8349 28.0923,78.832 28.0897,78.8283 28.0806,78.8152 28.0781,78.798 28.0856,78.7974 28.0871,78.7959 28.0961,78.7974 28.1072,78.8186 28.1227,78.8288 28.1723,78.8433 28.2704,78.8577 28.2895,78.8638 28.3398,78.871 28.3894,78.8818 28.4279,78.8832 28.4486,78.8871 28.4543,78.8876 28.5113,78.8925 28.5473,78.8909 28.599,78.88 28.6298,78.8804 28.654,78.8841 28.6329,78.892 28.6424,78.8946 28.7061,78.8994 28.7281,78.903 28.7595,78.9069 28.8043,78.909 28.9242,78.9071 28.9554,78.9031 29.0668,78.8702 29.0884,78.8686 29.1195,78.8623 29.194,78.8556 29.2462,78.8538 29.2647,78.8531 29.3273,78.8466 29.3576,78.8458 29.342,78.8544 29.3566,78.8641 29.3849,78.8706 29.4403,78.8791 29.5231,78.888 29.6265,78.8886 29.6544,78.8919 29.6924,78.9025 29.6914,78.9055 29.6898,78.9106 29.6651,78.9175 29.6149,78.9169 29.5663,78.9127 29.51,78.9051 29.4512,78.9038 29.3742,78.8974 29.3333,78.8961 29.2786,78.899 29.194,78.9039 29.1102,78.9045 29.0547,78.9097 29.0553,78.9108 28.9928,78.9186 28.9689,78.9303 28.9786,78.9331 29.014,78.9326 29.0147,78.934 28.963,78.9422 28.9501,78.9571 28.9308,78.9565 28.9145,78.95 28.9064,78.95 28.873,78.9503 28.8479,78.9548 28.7357,78.9566 28.6487,78.9613 28.5559,78.9613 28.5293,78.9552 28.4533,78.9608 28.4276,78.9701 28.4015,78.965 28.4032,78.9614 28.4342,78.9589 28.4549,78.9512 28.4463,78.9374 28.4173,78.9256 28.3301,78.9161 28.2326,78.9126 28.1417,78.9131 28.1277,78.9024 28.1124,78.898 28.0257,78.8732 27.9334,78.8607 27.8725,78.8557 27.8725,78.8557 56,1.0,Norway 20.0945,79.0501 20.0667,79.0471 20.0672,79.0455 20.098,79.0424 20.1282,79.0329 20.1516,79.0304 20.1531,79.0252 20.1963,79.0245 20.2368,79.0206 20.2905,79.0118 20.2889,79.0043 20.3921,79.0062 20.4233,79.0096 20.4365,79.0186 20.4522,79.0202 20.454,79.0204 20.4756,79.0197 20.4959,79.0242 20.5733,79.0299 20.6035,79.0294 20.6294,79.029 20.6455,79.021 20.6551,79.0206 20.6689,79.0288 20.6864,79.0311 20.7592,79.052 20.7793,79.0528 20.8029,79.0648 20.7892,79.0725 20.6662,79.0906 20.5711,79.1011 20.5485,79.1052 20.5136,79.1051 20.4879,79.1119 20.473,79.1125 20.4443,79.1131 20.4177,79.1187 20.3982,79.1195 20.4188,79.114 20.4076,79.1105 20.3824,79.1106 20.2287,79.1097 20.1968,79.1119 20.1476,79.1242 20.1069,79.1233 20.096,79.1191 20.1247,79.1076 20.1138,79.0995 20.0939,79.0936 20.0869,79.0844 20.0727,79.0799 20.0883,79.0634 20.0927,79.0612 20.1052,79.0548 20.0945,79.0501 20.0945,79.0501 39,1.0,Norway 10.7913,79.717 10.7461,79.7166 10.7468,79.7117 10.7743,79.7051 10.8693,79.6974 10.8777,79.6947 10.8215,79.6918 10.8226,79.691 10.7714,79.6904 10.7624,79.6849 10.7769,79.6794 10.7724,79.6735 10.75,79.6631 10.7932,79.654 10.7868,79.6487 10.797,79.6477 10.8617,79.6497 10.8686,79.6495 10.9193,79.648 10.9455,79.652 10.9883,79.6627 11.0422,79.6685 11.0707,79.6619 11.0877,79.6627 11.0971,79.6724 11.0937,79.6797 11.0713,79.6876 11.0136,79.6894 11.0125,79.6947 11.0436,79.698 11.0319,79.7013 10.9943,79.7056 10.9879,79.7189 10.9636,79.7216 10.9293,79.7199 10.861,79.7238 10.8283,79.7174 10.7913,79.717 10.7913,79.717 153,1.0,Norway 20.1691,78.4842 20.1958,78.4781 20.2299,78.4782 20.2675,78.4736 20.2836,78.4685 20.3294,78.4719 20.3502,78.4662 20.3876,78.4666 20.4721,78.4563 20.5653,78.4458 20.5916,78.4401 20.6143,78.4157 20.6748,78.3935 20.6626,78.3765 20.6697,78.3701 20.6519,78.3634 20.6616,78.3599 20.6619,78.3531 20.6544,78.3512 20.6319,78.3506 20.6223,78.3482 20.6403,78.343 20.6739,78.3423 20.6676,78.3413 20.6653,78.3363 20.6655,78.3204 20.5575,78.3243 20.5627,78.321 20.5803,78.3175 20.6222,78.3158 20.6141,78.3117 20.6158,78.3085 20.6424,78.3049 20.6441,78.3078 20.6321,78.3111 20.6757,78.3126 20.7053,78.3108 20.7344,78.3051 20.7741,78.2949 20.7784,78.2801 20.7915,78.2766 20.7805,78.2654 20.7561,78.259 20.7375,78.2574 20.7138,78.2586 20.7129,78.2522 20.7323,78.2401 20.7152,78.2368 20.7298,78.231 20.7666,78.2308 20.8173,78.234 20.8832,78.2332 20.9858,78.2272 21.0129,78.2195 20.9886,78.2127 20.9996,78.2078 21.0677,78.2063 21.1017,78.2149 21.1622,78.2188 21.1894,78.2273 21.1959,78.2293 21.3041,78.2349 21.3963,78.2439 21.5446,78.251 21.6111,78.2619 21.6578,78.2637 21.6758,78.2622 21.6883,78.2612 21.7229,78.2529 21.7534,78.2501 21.8047,78.2504 21.8737,78.264 21.9595,78.2619 22.0444,78.2618 22.075,78.2679 22.1108,78.2782 22.1407,78.2813 22.1321,78.2829 22.141,78.3007 22.1971,78.3452 22.2067,78.3619 22.2011,78.3862 22.187,78.4032 22.1799,78.4056 22.1425,78.4185 22.1324,78.4285 22.1392,78.4508 22.1316,78.4741 22.1165,78.4837 22.0977,78.4872 22.0926,78.4938 22.0758,78.4992 22.0123,78.5194 22.001,78.5287 22.0109,78.5419 21.9979,78.5558 21.94,78.5805 21.8999,78.5889 21.8759,78.5882 21.8686,78.582 21.8422,78.5828 21.8332,78.5851 21.8127,78.5841 21.7951,78.5871 21.7831,78.5921 21.7859,78.5978 21.8034,78.606 21.7865,78.6134 21.7747,78.6054 21.7484,78.6037 21.7404,78.6065 21.6957,78.6218 21.6391,78.6212 21.6135,78.6172 21.5987,78.6149 21.4905,78.6081 21.4694,78.6032 21.4687,78.598 21.4672,78.5871 21.4613,78.576 21.4042,78.5876 21.3445,78.6211 21.3185,78.6311 21.2327,78.6344 21.2171,78.6377 21.2022,78.6372 21.1948,78.6337 21.1788,78.6329 21.1669,78.6287 21.1132,78.6206 21.1015,78.6153 21.0973,78.6011 21.1161,78.5872 21.0666,78.5704 20.999,78.5533 20.9588,78.5536 20.9281,78.5579 20.8871,78.5569 20.8523,78.5531 20.7709,78.5439 20.7267,78.5419 20.6802,78.5449 20.6542,78.5436 20.6449,78.5394 20.5628,78.5334 20.4928,78.525 20.4236,78.5232 20.2886,78.515 20.2798,78.5136 20.2207,78.5041 20.1896,78.4883 20.1691,78.4842 20.1691,78.4842 23,1.0,Norway 30.0802,79.0061 30.0759,78.9989 30.1252,78.9795 30.1237,78.9703 30.1517,78.9706 30.1621,78.9674 30.2071,78.9669 30.2111,78.9714 30.1869,78.9735 30.1839,78.9738 30.1818,78.9782 30.2165,78.9802 30.2371,78.9866 30.3346,78.9903 30.3397,78.9928 30.3006,78.9945 30.3042,79.0022 30.2782,79.0046 30.2336,79.0043 30.1964,79.0021 30.1209,79.0061 30.0802,79.0061 30.0802,79.0061 29,1.0,Norway 20.5048,80.6681 20.4896,80.6605 20.5096,80.6507 20.562,80.6381 20.6314,80.6339 20.6638,80.6286 20.6928,80.6214 20.7112,80.6128 20.7307,80.6104 20.7641,80.6204 20.7598,80.6249 20.7371,80.631 20.7396,80.637 20.7612,80.6422 20.8452,80.6544 20.8318,80.6606 20.8167,80.6643 20.7898,80.6663 20.7688,80.6656 20.6924,80.6578 20.6636,80.6577 20.6617,80.6669 20.6506,80.6698 20.6069,80.6704 20.5831,80.6668 20.5373,80.6691 20.5188,80.6701 20.5048,80.6681 20.5048,80.6681 44,1.0,Norway 20.5402,80.7521 20.5341,80.7483 20.5418,80.7446 20.5783,80.7396 20.6168,80.7367 20.6358,80.7321 20.658,80.7138 20.654,80.7099 20.6527,80.7085 20.664,80.7063 20.6821,80.7057 20.7544,80.7111 20.7769,80.7104 20.789,80.7042 20.7903,80.6819 20.8026,80.6777 20.8201,80.6756 20.8452,80.6747 20.8621,80.676 20.8717,80.6818 20.8723,80.6938 20.9047,80.6971 20.9734,80.6948 21.0016,80.6964 21.0576,80.7055 21.0576,80.7092 20.9844,80.7152 20.9553,80.7261 20.938,80.7277 20.8815,80.7159 20.8273,80.7143 20.8026,80.7166 20.7942,80.7207 20.7812,80.727 20.7164,80.7309 20.7261,80.7398 20.6892,80.7434 20.6738,80.7495 20.6588,80.7514 20.6579,80.7598 20.6299,80.762 20.5896,80.7592 20.5402,80.7521 20.5402,80.7521 311,1.0,Norway 20.8062,78.0805 20.8408,78.073 20.8971,78.0664 20.9511,78.0437 21.0486,78.0267 21.127,78.0055 21.179,77.9853 21.2231,77.9682 21.425,77.9532 21.474,77.9458 21.5306,77.9321 21.5428,77.9292 21.5499,77.9183 21.5533,77.9094 21.5198,77.8939 21.4885,77.886 21.476,77.8825 21.4705,77.8759 21.4742,77.8588 21.3923,77.8298 21.3431,77.8079 21.3242,77.7913 21.287,77.771 21.2749,77.7643 21.23,77.7513 21.2086,77.7386 21.1793,77.7099 21.1743,77.6896 21.1918,77.656 21.1637,77.6337 21.1703,77.6203 21.1562,77.6107 21.1358,77.605 21.0752,77.5926 21.0417,77.5888 21.0269,77.5889 21.0031,77.5921 20.9731,77.5876 20.9636,77.5875 20.9606,77.5925 20.9511,77.5927 20.9138,77.5876 20.9163,77.5854 20.9335,77.5835 20.9203,77.5804 20.9158,77.5756 20.8999,77.5755 20.8993,77.5729 20.8796,77.5705 20.8788,77.569 20.8953,77.5657 20.8853,77.5617 20.9012,77.5555 20.8918,77.5488 20.8763,77.5469 20.8633,77.5488 20.8528,77.5483 20.8419,77.5441 20.813,77.5462 20.815,77.541 20.8289,77.5387 20.8313,77.5384 20.845,77.5384 20.8603,77.5413 20.8808,77.5385 20.8752,77.5346 20.8508,77.5353 20.8281,77.5322 20.8528,77.524 20.8748,77.5222 20.8832,77.5209 20.8939,77.5144 20.8831,77.4995 20.8593,77.487 20.8405,77.4652 20.8453,77.4511 20.8683,77.4404 20.9022,77.4436 20.9061,77.4455 21.0052,77.4468 21.0277,77.4441 21.0364,77.4443 21.1203,77.4469 21.1201,77.448 21.1696,77.452 21.2405,77.4665 21.4352,77.4884 21.4761,77.4957 21.536,77.5008 21.5373,77.5009 21.576,77.5018 21.6709,77.4988 21.6828,77.4986 21.7824,77.4972 21.7969,77.4985 22.007,77.5179 22.0208,77.5266 22.0199,77.5357 22.0331,77.5403 22.0467,77.5425 22.2232,77.5696 22.2866,77.5815 22.3611,77.5883 22.4233,77.6052 22.4469,77.6157 22.4818,77.6169 22.4907,77.616 22.5202,77.613 22.5569,77.6024 22.6045,77.5843 22.6364,77.5805 22.6615,77.5801 22.6664,77.5733 22.6631,77.57 22.6494,77.5562 22.6537,77.5481 22.6552,77.5453 22.6456,77.5291 22.7174,77.5036 22.7538,77.4937 22.7673,77.49 22.7902,77.4702 22.7846,77.4543 22.7653,77.4418 22.7404,77.4344 22.6994,77.4254 22.6743,77.4281 22.6607,77.4255 22.6501,77.4298 22.6345,77.4289 22.6388,77.4264 22.6346,77.4241 22.6181,77.4198 22.6288,77.4121 22.6135,77.401 22.6199,77.3967 22.6159,77.3914 22.6284,77.3915 22.6314,77.3949 22.6836,77.3918 22.7026,77.388 22.7173,77.3786 22.6739,77.3328 22.6496,77.3222 22.5987,77.3103 22.5966,77.3089 22.5541,77.2933 22.561,77.2821 22.5519,77.2778 22.5545,77.2751 22.5574,77.2721 22.5956,77.2543 22.6818,77.2406 22.6991,77.245 22.7047,77.255 22.7443,77.2687 22.7872,77.2779 22.8805,77.2931 22.9157,77.2949 22.9496,77.2966 23.0186,77.3058 23.0573,77.3348 23.0912,77.3468 23.1163,77.3655 23.1343,77.3724 23.152,77.3758 23.177,77.3769 23.2207,77.3755 23.2011,77.3862 23.2972,77.4018 23.3139,77.4027 23.3327,77.4018 23.3596,77.4114 23.4612,77.4313 23.5335,77.4513 23.5719,77.4691 23.5913,77.4697 23.6384,77.4712 23.6503,77.473 23.6523,77.4806 23.6392,77.4891 23.6791,77.5056 23.7088,77.5123 23.7396,77.5234 23.7409,77.5309 23.8029,77.5539 23.8147,77.5585 23.8389,77.5613 23.8853,77.5623 23.9442,77.559 23.9758,77.5596 24.0022,77.5591 24.0933,77.565 24.1476,77.573 24.1714,77.5825 24.1756,77.5984 24.1668,77.608 24.1441,77.6179 24.1186,77.6214 24.102,77.6237 23.999,77.6279 23.9677,77.6293 23.943,77.6285 23.9271,77.6383 24.0596,77.6412 24.1403,77.642 24.2021,77.6464 24.2354,77.6506 24.2853,77.6648 24.3108,77.6783 24.2973,77.6886 24.2896,77.6946 24.2316,77.718 24.2078,77.7222 24.1942,77.7347 24.1493,77.751 24.1799,77.7782 24.2638,77.8093 24.2935,77.8174 24.3566,77.8252 24.3713,77.8335 24.3535,77.84 24.3233,77.841 24.288,77.8452 24.2234,77.8515 24.1679,77.8563 24.155,77.857 24.1391,77.8621 24.0921,77.8713 24.0416,77.8769 23.9603,77.8719 23.8876,77.8663 23.805,77.8528 23.7489,77.8465 23.7219,77.855 23.6036,77.877 23.5616,77.8893 23.5208,77.9085 23.4429,77.9351 23.4136,77.9397 23.3853,77.9418 23.3842,77.9421 23.3244,77.9609 23.2641,78.0118 23.248,78.0207 23.2234,78.0344 23.1331,78.0586 23.1364,78.0778 23.1282,78.088 23.128,78.1005 23.1531,78.1176 23.1838,78.1278 23.2378,78.1404 23.2631,78.1583 23.2542,78.1634 23.2031,78.177 23.1774,78.1881 23.1718,78.1898 23.1116,78.2074 23.0781,78.2126 23.0525,78.214 22.9989,78.2235 22.9798,78.2305 22.8405,78.2585 22.8171,78.258 22.7928,78.2525 22.7282,78.2454 22.7008,78.2423 22.5943,78.2332 22.5546,78.2272 22.5292,78.2283 22.4953,78.232 22.4541,78.2324 22.4398,78.2284 22.4302,78.2239 22.4435,78.2109 22.4338,78.2066 22.4009,78.2001 22.3822,78.1985 22.2943,78.2005 22.2521,78.1996 22.2095,78.1929 22.1628,78.1938 22.0611,78.1995 21.9736,78.2078 21.9713,78.208 21.7757,78.2164 21.7191,78.2151 21.6053,78.2018 21.5293,78.1976 21.5027,78.1975 21.4473,78.1896 21.3988,78.1888 21.3864,78.1885 21.328,78.1793 21.2537,78.1728 21.1026,78.1562 21.0599,78.1538 21.0182,78.1462 20.977,78.1418 20.8916,78.1268 20.8806,78.1257 20.8428,78.122 20.8245,78.1143 20.8248,78.108 20.8193,78.1079 20.8078,78.0996 20.8196,78.0849 20.8089,78.0835 20.8062,78.0805 20.8062,78.0805 30,1.0,Norway 21.0635,80.6902 21.0538,80.6869 21.0664,80.6719 21.1175,80.6528 21.1299,80.6518 21.1474,80.6533 21.1579,80.6588 21.1822,80.6643 21.2328,80.6688 21.2371,80.6729 21.2555,80.6754 21.282,80.6752 21.3217,80.6698 21.3449,80.67 21.3711,80.6744 21.3675,80.6808 21.3308,80.6837 21.3016,80.6842 21.2871,80.6869 21.2862,80.6901 21.3493,80.6953 21.3583,80.6976 21.3487,80.7005 21.2891,80.7076 21.2676,80.7063 21.2295,80.699 21.2166,80.6992 21.16,80.7003 21.0635,80.6902 21.0635,80.6902 2607,1.0,Norway 10.6752,79.5544 10.6644,79.5388 10.6835,79.5336 10.7117,79.5335 10.7208,79.5301 10.6995,79.5277 10.6952,79.5217 10.7336,79.5088 10.7794,79.5046 10.8088,79.5042 10.9094,79.4759 10.9375,79.4501 10.9211,79.436 10.9091,79.4223 10.8944,79.4187 10.8615,79.4176 10.8601,79.4113 10.8987,79.3933 10.9258,79.3862 10.9291,79.3773 10.8694,79.3719 10.8564,79.3679 10.8776,79.3476 10.9051,79.3304 10.9211,79.3267 10.9531,79.3214 10.9849,79.3134 10.9976,79.3111 11.0069,79.3041 11.0205,79.3021 11.0253,79.2985 11.0242,79.2923 11.0468,79.2846 11.0422,79.2813 11.0349,79.2753 11.0432,79.2692 11.1111,79.2522 11.1251,79.2479 11.1334,79.2361 11.1526,79.2258 11.18,79.1955 11.1899,79.1502 11.1998,79.1346 11.1825,79.1214 11.1918,79.1169 11.2326,79.1135 11.2455,79.1132 11.2553,79.111 11.3192,79.1098 11.4031,79.1117 11.4358,79.1141 11.5305,79.1349 11.6204,79.1499 11.6135,79.154 11.5861,79.1532 11.5542,79.1599 11.5634,79.1674 11.5823,79.1693 11.6077,79.1675 11.6054,79.165 11.5878,79.1641 11.6116,79.1581 11.6355,79.1588 11.6653,79.1666 11.6812,79.1795 11.6728,79.193 11.6996,79.2014 11.6912,79.2167 11.6466,79.2433 11.6275,79.2484 11.5917,79.27 11.5434,79.2733 11.5093,79.2783 11.5511,79.2822 11.563,79.2884 11.5454,79.2965 11.5467,79.3079 11.5797,79.3108 11.6052,79.3092 11.6293,79.311 11.6699,79.314 11.6785,79.3116 11.6941,79.3074 11.7437,79.2627 11.8057,79.2265 11.8256,79.2207 11.8323,79.2193 11.8654,79.2196 11.8907,79.2272 11.8915,79.23 11.8886,79.2456 11.8759,79.2588 11.8355,79.273 11.8473,79.2938 11.8726,79.2934 11.8979,79.286 11.9262,79.2832 11.9423,79.2817 11.961,79.2898 12.0352,79.2986 12.0683,79.3051 12.0726,79.3073 12.1316,79.2976 12.0713,79.2806 12.0729,79.2741 12.1023,79.263 12.1011,79.2612 12.0267,79.2365 12.0238,79.2273 12.0839,79.2163 12.0862,79.215 12.0869,79.2111 12.086,79.205 12.0848,79.2036 12.0776,79.2029 11.9943,79.207 11.9595,79.2048 11.8902,79.1946 11.8718,79.1621 11.8608,79.1575 11.8659,79.1553 11.85,79.1515 11.847,79.1437 11.8506,79.1401 11.8868,79.1346 11.8831,79.1261 11.8457,79.1251 11.8191,79.1227 11.8103,79.1171 11.7902,79.1129 11.7553,79.0972 11.672,79.0741 11.6883,79.068 11.7389,79.0639 11.7755,79.0558 11.8166,79.0398 11.8884,79.0339 11.9283,79.0282 11.9398,79.0246 11.9831,79.0114 12.0328,79.0091 12.0529,79.0108 12.1048,79.0074 12.1137,79.001 12.0931,78.9986 12.0369,78.9979 11.9936,78.994 11.9835,78.9885 11.9966,78.9745 12.0216,78.9677 12.0649,78.9631 12.1276,78.9668 12.1857,78.9751 12.2053,78.9761 12.2298,78.983 12.2371,78.9897 12.2425,78.9946 12.2897,79.0018 12.3613,79.0005 12.3999,78.9966 12.4241,78.9872 12.4547,78.9754 12.4492,78.9724 12.4487,78.9532 12.4596,78.9431 12.4624,78.9291 12.5027,78.9149 12.496,78.9119 12.4284,78.9073 12.3713,78.9018 12.3591,78.899 12.3538,78.8977 12.2976,78.8963 12.2695,78.8956 12.1894,78.9086 12.1308,78.9155 11.9845,78.9258 11.9584,78.9313 11.9241,78.9319 11.8921,78.9302 11.8725,78.9329 11.8654,78.9457 11.8095,78.9542 11.7868,78.9557 11.7447,78.9585 11.6494,78.9699 11.5187,78.9779 11.481,78.978 11.4264,78.9736 11.3838,78.9726 11.3454,78.9734 11.3409,78.9674 11.3564,78.9576 11.3601,78.9485 11.385,78.9407 11.5964,78.8744 11.7447,78.8563 11.8122,78.8538 11.8243,78.8533 11.8595,78.8493 11.9307,78.8336 11.9357,78.8226 11.9112,78.8191 11.8892,78.8183 11.7961,78.826 11.7756,78.825 11.7747,78.8259 11.7299,78.8126 11.6929,78.8068 11.6854,78.799 11.6907,78.7881 11.6594,78.7688 11.6423,78.7624 11.6288,78.7563 11.5673,78.7443 11.5771,78.7416 11.6321,78.7484 11.6403,78.7378 11.6183,78.7372 11.6382,78.728 11.6587,78.7253 11.6685,78.7273 11.676,78.7269 11.6902,78.721 11.7117,78.7168 11.7606,78.7069 11.7959,78.7094 11.8114,78.7105 11.854,78.694 11.8638,78.6827 11.8395,78.6803 11.8313,78.6779 11.8414,78.6679 11.8948,78.6486 11.9132,78.6384 11.9535,78.6321 12.0366,78.6084 12.0711,78.6079 12.1267,78.5989 12.1764,78.5971 12.1882,78.594 12.1967,78.5918 12.2522,78.5948 12.2769,78.5923 12.3479,78.5949 12.3627,78.5923 12.362,78.5652 12.376,78.5494 12.3931,78.5461 12.5865,78.5408 12.6374,78.5422 12.7159,78.5365 12.7645,78.5366 12.8663,78.528 12.9015,78.5289 12.9067,78.529 12.9313,78.5336 12.9532,78.5373 12.9864,78.538 13.0159,78.54 13.0396,78.5446 13.0851,78.5483 13.0914,78.5527 13.1278,78.553 13.1682,78.5469 13.2173,78.544 13.2176,78.5408 13.2185,78.5388 13.1641,78.5329 13.1513,78.5306 13.1533,78.5286 13.1263,78.5167 13.0487,78.5146 13.009,78.5074 12.9841,78.5078 12.9589,78.5047 12.7452,78.5006 12.7311,78.5017 12.7201,78.5026 12.6459,78.5048 12.5029,78.5021 12.4176,78.498 12.383,78.4916 12.3838,78.4859 12.4197,78.4699 12.446,78.4516 12.5042,78.427 12.5728,78.3979 12.6263,78.3871 12.6318,78.3873 12.6514,78.3797 12.6905,78.373 12.6912,78.3697 12.7088,78.3644 12.7178,78.3645 12.735,78.3695 12.7764,78.3669 12.7871,78.3691 12.807,78.3692 12.8109,78.3666 12.8421,78.3624 12.9037,78.3574 12.8907,78.3515 12.881,78.3419 12.8846,78.3401 12.8889,78.334 12.9189,78.3261 12.9054,78.3208 12.8839,78.3269 12.8695,78.3264 12.873,78.3175 12.8788,78.3161 12.9151,78.3152 12.9282,78.3121 12.9613,78.2921 12.946,78.2862 12.9443,78.2714 12.9342,78.2673 12.9595,78.2618 12.915,78.253 12.9525,78.2303 12.9764,78.2164 12.9975,78.2102 12.9978,78.2021 13.0811,78.2088 13.1039,78.2181 13.1267,78.2265 13.1403,78.2291 13.1617,78.2303 13.2016,78.2301 13.2371,78.2231 13.3213,78.2168 13.4029,78.2118 13.4736,78.2111 13.5205,78.2037 13.6579,78.1986 13.6856,78.2005 13.7407,78.2008 13.8493,78.21 13.8663,78.214 13.8726,78.2199 13.8542,78.2269 13.8385,78.2372 13.8026,78.2468 13.7862,78.2461 13.758,78.2559 13.7587,78.2623 13.7688,78.2678 13.807,78.2696 13.882,78.2478 13.9323,78.2285 13.9503,78.2314 13.9589,78.2377 13.9538,78.2599 13.9661,78.273 13.9597,78.2799 14.0118,78.2926 14.0212,78.2926 14.0336,78.2904 14.0635,78.2771 14.0772,78.2798 14.0887,78.2924 14.104,78.2955 14.1143,78.2916 14.0862,78.2728 14.0858,78.253 14.1063,78.2468 14.1344,78.2558 14.1202,78.2639 14.1403,78.2744 14.1788,78.2846 14.2966,78.2994 14.3193,78.3053 14.3262,78.3171 14.3013,78.32 14.2766,78.327 14.2713,78.3343 14.2993,78.345 14.2694,78.3468 14.2427,78.3495 14.2538,78.3586 14.2347,78.3679 14.2222,78.3747 14.2135,78.3819 14.208,78.3918 14.2314,78.3983 14.2656,78.4028 14.2774,78.4017 14.299,78.4018 14.3898,78.388 14.4179,78.377 14.4619,78.3687 14.4649,78.3723 14.4473,78.3832 14.4469,78.3896 14.4556,78.3905 14.5307,78.393 14.6343,78.3794 14.6578,78.38 14.6748,78.3845 14.6864,78.3858 14.7143,78.3852 14.7303,78.3866 14.732,78.389 14.7376,78.3891 14.7698,78.3828 14.778,78.3748 14.7864,78.3743 14.7924,78.3784 14.7913,78.3876 14.7783,78.3897 14.7685,78.394 14.6744,78.4256 14.6614,78.4432 14.6003,78.4623 14.5754,78.4664 14.5033,78.472 14.4446,78.4737 14.4249,78.4783 14.4156,78.4868 14.4051,78.4924 14.3892,78.5019 14.3947,78.5095 14.455,78.5172 14.4611,78.5225 14.4551,78.5301 14.4658,78.5328 14.4865,78.5343 14.5002,78.545 14.5137,78.5434 14.5398,78.5456 14.607,78.5426 14.6195,78.5444 14.6186,78.5471 14.5657,78.5496 14.5495,78.5525 14.5509,78.5537 14.5665,78.5544 14.6007,78.5523 14.6222,78.5559 14.6218,78.5579 14.5975,78.5609 14.5678,78.5678 14.5593,78.5726 14.5402,78.5895 14.5463,78.6228 14.536,78.6393 14.5548,78.6483 14.5393,78.661 14.5006,78.6688 14.4727,78.6716 14.4583,78.6751 14.4413,78.6849 14.5037,78.6879 14.53,78.6879 14.5708,78.6927 14.6295,78.7006 14.6412,78.7083 14.6664,78.7169 14.6623,78.7305 14.6683,78.7334 14.686,78.7332 14.7068,78.7338 14.7359,78.7352 14.7676,78.7325 14.7775,78.7351 14.7726,78.7386 14.7798,78.7407 14.8253,78.7288 14.8307,78.7183 14.8261,78.7182 14.8484,78.6913 14.834,78.6775 14.8439,78.6688 14.7833,78.6499 14.7847,78.6426 14.7849,78.6415 14.8276,78.6326 14.8301,78.6276 14.8474,78.6214 14.8699,78.6193 14.8929,78.6068 14.9315,78.6033 14.9486,78.5942 14.9684,78.594 14.972,78.5971 15.0,78.6037 15.0087,78.6057 15.0173,78.6115 15.0,78.6188 14.9888,78.6235 14.9867,78.6329 15.0,78.6332 15.0553,78.6346 15.0558,78.6371 15.0673,78.6455 15.1016,78.6529 15.1773,78.6595 15.2408,78.6563 15.2502,78.6622 15.2033,78.6887 15.2177,78.6948 15.1893,78.7035 15.1846,78.7151 15.2058,78.7174 15.2139,78.7184 15.2136,78.7236 15.1782,78.7323 15.1752,78.7398 15.1896,78.7673 15.2255,78.7781 15.2233,78.7861 15.2506,78.7974 15.2774,78.8296 15.288,78.8349 15.3196,78.8412 15.3317,78.8464 15.3431,78.8472 15.3696,78.8465 15.3841,78.8425 15.4427,78.8349 15.4569,78.8248 15.4445,78.7984 15.4373,78.7902 15.4176,78.7846 15.4216,78.7788 15.4646,78.7693 15.4883,78.7512 15.4984,78.7356 15.4784,78.7135 15.4895,78.7041 15.4693,78.6995 15.4921,78.6831 15.4858,78.6735 15.4711,78.6695 15.4525,78.6541 15.4501,78.6508 15.4547,78.6509 15.468,78.6366 15.4498,78.6308 15.4019,78.6245 15.3812,78.6157 15.2813,78.6102 15.2327,78.6089 15.2029,78.6099 15.1803,78.6074 15.1959,78.6051 15.2032,78.5998 15.2141,78.5992 15.225,78.6034 15.2331,78.6034 15.2461,78.5967 15.2201,78.5941 15.1917,78.5965 15.1607,78.6055 15.1485,78.6047 15.2091,78.5838 15.2423,78.5762 15.2391,78.5727 15.2468,78.5671 15.2834,78.5061 15.3011,78.4972 15.3431,78.4855 15.4229,78.4615 15.4755,78.4564 15.5543,78.4585 15.5549,78.4576 15.6075,78.4576 15.6963,78.4708 15.7913,78.4725 15.8652,78.4788 15.9065,78.4823 15.9528,78.4835 16.037,78.5028 16.0001,78.5365 16.0612,78.5261 16.0641,78.5256 16.1099,78.5261 16.2035,78.546 16.2509,78.5494 16.2666,78.5558 16.2967,78.5595 16.311,78.5758 16.3733,78.6009 16.3979,78.6195 16.3829,78.637 16.3415,78.6511 16.3857,78.6536 16.4509,78.6631 16.4709,78.6743 16.4596,78.6972 16.5042,78.7183 16.5398,78.7253 16.5639,78.724 16.5963,78.7147 16.6497,78.6891 16.6426,78.6793 16.6559,78.6744 16.8364,78.6781 16.8658,78.6776 16.8632,78.6603 16.8427,78.6496 16.8328,78.6487 16.8023,78.6484 16.7705,78.6449 16.7451,78.6446 16.7119,78.6317 16.6956,78.6217 16.6618,78.6141 16.6598,78.6035 16.6334,78.5951 16.5406,78.5759 16.5358,78.5586 16.5227,78.5494 16.5208,78.5488 16.4639,78.532 16.4577,78.5113 16.4123,78.4852 16.3713,78.4636 16.3473,78.4599 16.3062,78.4598 16.3141,78.4543 16.3633,78.4454 16.3946,78.4397 16.409,78.4348 16.4302,78.4355 16.4409,78.4426 16.4943,78.443 16.5508,78.4479 16.5691,78.4399 16.5873,78.4359 16.5924,78.4251 16.586,78.4203 16.6073,78.4149 16.7417,78.3964 16.7718,78.3944 16.8089,78.392 16.8235,78.3882 16.8599,78.3901 16.8544,78.398 16.9092,78.3997 16.9358,78.4051 16.9361,78.4129 16.9733,78.4198 17.0424,78.4225 17.1512,78.4406 17.1909,78.4453 17.2327,78.446 17.2397,78.4371 17.2644,78.4338 17.2935,78.4262 17.2919,78.4228 17.3001,78.4203 17.2345,78.4185 17.1993,78.4118 17.1013,78.3993 17.0728,78.3931 17.0284,78.3805 17.0332,78.3802 16.9391,78.3612 16.8811,78.3533 16.8519,78.3426 16.8392,78.3429 16.8142,78.3433 16.7915,78.3394 16.6416,78.3346 16.607,78.3377 16.5663,78.3377 16.5575,78.3453 16.4914,78.3383 16.422,78.3428 16.3735,78.3444 16.3246,78.3524 16.2902,78.3506 16.2767,78.3492 16.242,78.3504 16.1742,78.3595 16.1125,78.3639 16.0705,78.3622 16.0253,78.3546 15.9939,78.3547 15.9481,78.3548 15.9004,78.3494 15.8492,78.3497 15.797,78.3463 15.5949,78.3086 15.5728,78.2957 15.574,78.287 15.5849,78.2821 15.6043,78.2734 15.6876,78.249 15.7571,78.2405 15.7703,78.2342 15.7134,78.2297 15.7002,78.2234 15.6393,78.2314 15.6094,78.2324 15.5476,78.2432 15.5067,78.2503 15.4307,78.2496 15.3911,78.2465 15.3232,78.232 15.2959,78.2209 15.2142,78.2023 15.1487,78.1836 15.0114,78.1503 15.0,78.1412 14.9956,78.1377 15.0,78.1334 15.006,78.1274 15.0346,78.1216 15.0487,78.1107 15.0235,78.1054 15.0,78.1046 14.98,78.1039 14.9356,78.1021 14.8661,78.1139 14.8205,78.1185 14.7945,78.1175 14.7727,78.1136 14.7464,78.113 14.7001,78.1153 14.6545,78.1121 14.6231,78.1063 14.589,78.1041 14.5681,78.1053 14.5349,78.1034 14.5064,78.0967 14.4499,78.0964 14.4407,78.0972 14.3743,78.1036 14.2848,78.101 14.2346,78.1041 14.2121,78.1029 14.1994,78.0946 14.2414,78.0433 14.2665,78.0438 14.2848,78.0357 14.288,78.0353 14.3303,78.0298 14.3392,78.0158 14.3212,78.0046 14.3303,77.9909 14.3554,77.9749 14.3597,77.975 14.3549,77.968 14.3208,77.965 14.2862,77.9685 14.2516,77.9789 14.2306,77.9889 14.2258,77.9958 14.2229,78.0104 14.1788,78.0189 14.1541,78.029 14.1339,78.0403 14.1399,78.0469 14.1276,78.0543 14.0573,78.0808 14.0213,78.0914 13.9925,78.0941 13.9129,78.0961 13.8369,78.0933 13.8316,78.0874 13.7849,78.0858 13.783,78.0855 13.7512,78.0806 13.7188,78.0792 13.7136,78.0738 13.7092,78.0698 13.684,78.0607 13.6775,78.0605 13.6538,78.0666 13.6337,78.0652 13.6096,78.0561 13.6075,78.0517 13.6442,78.0331 13.6476,78.0246 13.6454,78.0069 13.6642,77.9916 13.6366,77.9597 13.6453,77.9363 13.6753,77.9094 13.6749,77.9016 13.7053,77.8881 13.7129,77.8798 13.7446,77.8814 13.7583,77.8708 13.7052,77.8722 13.6941,77.8709 13.6832,77.8668 13.6834,77.8611 13.6934,77.8582 13.7095,77.8655 13.7236,77.8643 13.7309,77.8621 13.7303,77.8464 13.7296,77.8445 13.7166,77.8436 13.7049,77.8453 13.7034,77.8512 13.6961,77.8535 13.6731,77.8439 13.6802,77.8352 13.6855,77.834 13.7533,77.8328 13.7827,77.8278 13.8438,77.8113 13.8375,77.7903 13.8125,77.783 13.7975,77.7758 13.7708,77.771 13.7571,77.7732 13.7376,77.7716 13.7561,77.7608 13.7473,77.7568 13.751,77.7521 13.7802,77.7331 13.7907,77.7307 13.808,77.7295 13.8194,77.7315 13.8192,77.7359 13.8365,77.7388 13.8508,77.7441 13.8628,77.7454 13.8878,77.7454 13.9166,77.7391 13.933,77.7301 13.9487,77.7216 13.9719,77.7196 13.9849,77.721 13.9999,77.7254 14.0088,77.7321 14.0027,77.7358 14.0056,77.7392 14.0605,77.7482 14.0516,77.7541 14.0543,77.7576 14.0898,77.7648 14.1191,77.7694 14.1614,77.7724 14.2019,77.7728 14.2088,77.7728 14.2511,77.7655 14.2783,77.7565 14.3521,77.7579 14.4051,77.7564 14.4573,77.7517 14.5309,77.7579 14.554,77.7589 14.5995,77.7573 14.6219,77.7594 14.6536,77.7614 14.6096,77.7666 14.5415,77.7815 14.5373,77.7876 14.5483,77.7913 14.5655,77.7927 14.5934,77.7903 14.6968,77.7638 14.7221,77.7648 14.7591,77.7803 14.7953,77.7846 14.842,77.7878 14.9201,77.7891 14.9207,77.7882 15.0,77.7906 15.0111,77.7909 15.0518,77.7965 15.1017,77.7998 15.1371,77.8103 15.138,77.8089 15.1863,77.8181 15.2073,77.8245 15.2511,77.8304 15.2823,77.8375 15.3308,77.8584 15.3427,77.8636 15.3783,77.871 15.4165,77.8726 15.4636,77.8739 15.4816,77.8679 15.5044,77.8681 15.5395,77.8765 15.5489,77.8808 15.5682,77.8848 15.5946,77.8846 15.6263,77.8761 15.6195,77.8681 15.6281,77.8604 15.6397,77.854 15.675,77.8464 15.6912,77.843 15.7549,77.8349 15.8765,77.8297 15.9145,77.8298 15.9917,77.8423 16.0229,77.8448 16.0404,77.839 16.0704,77.8398 16.0697,77.841 16.099,77.841 16.1125,77.8451 16.1268,77.8493 16.1988,77.8525 16.2215,77.851 16.2839,77.8522 16.3235,77.8571 16.3663,77.8524 16.4095,77.8473 16.4719,77.8505 16.5003,77.8539 16.513,77.8585 16.5347,77.8604 16.5575,77.8587 16.6378,77.8588 16.6769,77.8609 16.6914,77.8683 16.7139,77.8892 16.7671,77.9058 16.7967,77.9118 16.8323,77.9135 16.8562,77.9147 16.9062,77.9278 16.9368,77.9298 17.0198,77.9303 16.9995,77.9249 16.9505,77.916 16.9521,77.911 16.9685,77.9085 16.9803,77.9067 16.9838,77.9042 16.9419,77.8898 16.8827,77.8735 16.855,77.8758 16.8266,77.885 16.7952,77.8909 16.7807,77.8915 16.7629,77.8902 16.7569,77.8868 16.7586,77.8814 16.7667,77.8784 16.8059,77.872 16.814,77.8475 16.8187,77.8457 16.8495,77.8343 16.8868,77.8253 16.8933,77.8254 16.9232,77.8199 16.9537,77.8174 16.976,77.8132 17.0076,77.8106 17.0313,77.8054 17.0656,77.7996 17.0907,77.7923 17.1022,77.7858 17.1004,77.7834 17.0766,77.7824 17.05,77.7825 17.0292,77.7849 16.9751,77.7872 16.8405,77.8055 16.7876,77.8101 16.7422,77.8101 16.6956,77.81 16.6632,77.8079 16.6473,77.8031 16.6048,77.8037 16.5591,77.8021 16.5439,77.8004 16.5284,77.795 16.462,77.7984 16.41,77.803 16.3941,77.8068 16.3741,77.8072 16.3531,77.8058 16.3223,77.7979 16.295,77.7869 16.2309,77.7761 16.2,77.7735 16.1615,77.7727 16.148,77.7698 16.081,77.7663 16.0572,77.77 16.027,77.7681 15.9996,77.7596 15.9635,77.7586 15.913,77.76 15.8788,77.7593 15.8405,77.7583 15.7689,77.7465 15.6773,77.7479 15.6219,77.745 15.6226,77.7438 15.5326,77.7376 15.4404,77.735 15.3883,77.7236 15.3454,77.7221 15.2682,77.7193 15.0593,77.688 15.0,77.6848 14.8901,77.6788 14.8435,77.6651 14.8425,77.6649 14.7634,77.6597 14.7477,77.6543 14.7747,77.6462 14.8531,77.6383 14.8576,77.6361 14.8999,77.6133 14.9235,77.61 14.9397,77.6194 15.0,77.6101 15.035,77.6048 15.0344,77.6057 15.1534,77.6084 15.1542,77.6072 15.2078,77.607 15.2402,77.6047 15.2815,77.597 15.3242,77.5987 15.3627,77.6003 15.4425,77.5939 15.4786,77.5873 15.5206,77.5883 15.5886,77.5801 15.6501,77.5823 15.7033,77.5772 15.728,77.5767 15.769,77.576 15.8365,77.5646 15.8358,77.5657 15.9165,77.5606 15.9473,77.5515 15.9473,77.5497 15.9496,77.5419 15.9986,77.5242 16.0383,77.5097 16.0732,77.5079 16.1118,77.5034 16.1308,77.4958 16.1966,77.4838 16.2311,77.4827 16.2675,77.4837 16.3008,77.4755 16.3388,77.471 16.3143,77.4704 16.2541,77.4759 16.2139,77.4778 16.1954,77.4732 16.2208,77.4563 16.216,77.45 16.2336,77.4388 16.2295,77.4328 16.2213,77.4324 16.1656,77.4419 16.1123,77.4448 16.0847,77.4552 16.0341,77.4698 16.0016,77.478 15.9755,77.4812 15.9594,77.4906 15.9442,77.4934 15.8839,77.5059 15.8381,77.5187 15.8146,77.5208 15.7828,77.528 15.6836,77.5341 15.6604,77.5356 15.581,77.5301 15.5516,77.5261 15.5159,77.5255 15.4547,77.5283 15.4045,77.534 15.402,77.5325 15.3256,77.5395 15.2538,77.5404 15.2062,77.5433 15.1405,77.5429 15.0421,77.5568 15.0276,77.5609 15.0,77.5615 14.9887,77.5618 14.8814,77.5462 14.8722,77.5449 14.7998,77.5465 14.7811,77.5285 14.7856,77.5155 14.7898,77.5156 14.8096,77.4941 14.782,77.4881 14.7165,77.4846 14.6957,77.4869 14.6717,77.4944 14.6637,77.4961 14.6356,77.4968 14.6148,77.4902 14.5314,77.4885 14.525,77.4961 14.5295,77.4958 14.6001,77.5119 14.6121,77.5238 14.6053,77.529 14.6036,77.5327 14.5835,77.5462 14.5557,77.5636 14.4993,77.571 14.4364,77.5724 14.3735,77.5798 14.3192,77.581 14.252,77.5778 14.034,77.5485 14.0235,77.5471 13.9416,77.5281 13.9452,77.5075 13.9356,77.4975 13.9455,77.49 13.9767,77.4837 14.0441,77.4786 14.0701,77.4706 14.0849,77.4541 14.085,77.4473 14.0524,77.4469 14.0176,77.4526 13.996,77.4516 13.984,77.4436 13.9881,77.4438 13.9834,77.4358 13.9611,77.4315 13.963,77.4175 13.9951,77.4127 14.0236,77.401 14.0648,77.3923 14.076,77.3863 14.1177,77.363 14.1447,77.3585 14.1566,77.3539 14.1738,77.3168 14.1652,77.3087 14.171,77.2979 14.1976,77.2928 14.1959,77.2861 14.2065,77.2844 14.2447,77.2911 14.2711,77.2923 14.2839,77.2874 14.3108,77.2841 14.3276,77.2826 14.3335,77.2757 14.3218,77.2656 14.3195,77.2554 14.3314,77.2475 14.3498,77.2373 14.3625,77.225 14.3848,77.2079 14.4097,77.2024 14.4118,77.1966 14.4243,77.1929 14.4544,77.1893 14.4773,77.1781 14.4867,77.175 14.4964,77.1744 14.5122,77.1756 14.5139,77.1855 14.5238,77.1863 14.5379,77.1821 14.5701,77.1836 14.5786,77.1856 14.6145,77.1907 14.6586,77.1915 14.7143,77.1884 14.8013,77.1766 14.8338,77.1704 14.8686,77.1591 14.8692,77.1591 14.8854,77.1575 14.8955,77.1565 14.91,77.155 14.9126,77.1544 14.9502,77.1459 14.9503,77.1459 14.9522,77.1458 14.9937,77.1436 15.0,77.1433 15.012,77.1428 15.021,77.1363 15.0381,77.1329 15.066,77.1326 15.0807,77.1255 15.0663,77.1169 15.068,77.1078 15.0941,77.0941 15.1191,77.0935 15.1247,77.0915 15.1458,77.0845 15.1586,77.0741 15.1316,77.0634 15.1447,77.0606 15.1494,77.055 15.1662,77.0496 15.1604,77.0441 15.1513,77.0425 15.1526,77.0372 15.1753,77.0354 15.2054,77.0288 15.2741,77.0169 15.3701,77.0068 15.4016,77.002 15.4694,77.0045 15.4796,77.0023 15.5582,77.005 15.5947,77.0016 15.6296,77.0114 15.6411,77.0111 15.6832,77.0005 15.7166,77.0045 15.789,77.0181 15.8486,77.0205 15.8966,77.0186 15.919,77.0259 15.9128,77.0333 15.8576,77.0512 15.8473,77.059 15.853,77.0673 15.8606,77.07 15.8906,77.0706 15.8961,77.0681 15.9309,77.0572 15.9541,77.0542 15.9701,77.0549 15.9702,77.0705 15.9758,77.0818 16.0352,77.0831 16.0598,77.0653 16.0688,77.0378 16.0789,77.0314 16.0891,77.0281 16.1507,77.0258 16.1908,77.0243 16.201,77.0216 16.215,77.0169 16.2416,76.9981 16.2693,76.9963 16.2814,77.0 16.2759,77.0106 16.2848,77.0153 16.3336,77.0202 16.3516,77.0196 16.3795,77.0112 16.4759,77.0138 16.5011,77.0103 16.5099,77.0032 16.5141,76.9907 16.5064,76.9878 16.4673,76.9847 16.4369,76.9846 16.3808,76.9773 16.3137,76.9791 16.2862,76.9741 16.2959,76.9657 16.2919,76.9656 16.3406,76.9432 16.2998,76.9369 16.2876,76.9316 16.2507,76.9306 16.2433,76.9358 16.239,76.9388 16.2484,76.9424 16.2463,76.9465 16.2298,76.962 16.186,76.9754 16.1476,76.9802 16.1297,76.9794 16.1122,76.981 16.0965,76.9806 16.0567,76.9766 15.9868,76.9684 15.9412,76.9637 15.9319,76.9601 15.9171,76.9497 15.8979,76.9459 15.8587,76.9453 15.8401,76.9478 15.8232,76.953 15.789,76.9541 15.7773,76.9498 15.7855,76.9446 15.7586,76.9436 15.7404,76.9305 15.7314,76.9273 15.7079,76.9252 15.6329,76.9219 15.5884,76.9163 15.5489,76.9082 15.528,76.8993 15.5137,76.8778 15.5256,76.8731 15.5725,76.8693 15.6177,76.868 15.6372,76.8642 15.6494,76.8607 15.6416,76.8534 15.6517,76.85 15.6684,76.8491 15.6857,76.8506 15.689,76.845 15.6981,76.8432 15.7157,76.8442 15.7292,76.8418 15.7454,76.8349 15.7577,76.8296 15.7699,76.8229 15.7794,76.8176 15.8122,76.8076 15.8702,76.799 15.946,76.7725 16.0318,76.7471 16.0898,76.7378 16.1381,76.7364 16.1434,76.731 16.1725,76.7231 16.3023,76.7129 16.3254,76.7106 16.3298,76.7101 16.3229,76.7056 16.3191,76.6906 16.3018,76.6746 16.3035,76.6713 16.3241,76.6641 16.3362,76.6599 16.3464,76.6468 16.3492,76.6303 16.3308,76.6175 16.3432,76.6108 16.3412,76.6052 16.3181,76.6002 16.2973,76.5912 16.3036,76.5756 16.2905,76.5725 16.2988,76.5699 16.3278,76.5692 16.363,76.5643 16.38,76.5642 16.3917,76.5641 16.3999,76.5653 16.398,76.567 16.3872,76.5764 16.3944,76.5871 16.39,76.5897 16.4031,76.593 16.4549,76.5996 16.4629,76.6071 16.461,76.6182 16.4741,76.6197 16.4854,76.6177 16.4959,76.6138 16.4986,76.6129 16.533,76.6135 16.5344,76.6136 16.56,76.6141 16.5592,76.6059 16.5586,76.6035 16.5624,76.5975 16.5681,76.5884 16.5642,76.5883 16.5659,76.5774 16.5941,76.5696 16.6345,76.5677 16.6457,76.5689 16.6647,76.5685 16.6671,76.5682 16.6888,76.5658 16.7197,76.565 16.7988,76.5705 16.8306,76.5759 16.8564,76.5778 16.8662,76.5838 16.9056,76.588 16.9491,76.6039 16.9891,76.6052 17.0018,76.6035 17.011,76.609 16.9989,76.6196 17.0141,76.623 17.0162,76.6308 17.0271,76.6332 17.0872,76.6393 17.093,76.6401 17.0982,76.6457 17.0879,76.6505 17.0867,76.653 17.0894,76.6643 17.1015,76.6802 17.1697,76.6998 17.1839,76.7097 17.1836,76.7188 17.1769,76.7223 17.1657,76.7227 17.1548,76.7313 17.0811,76.7634 17.0206,76.7754 16.9422,76.7762 16.928,76.7788 16.9043,76.7906 16.8948,76.802 16.9071,76.812 16.9421,76.8206 17.0509,76.8301 17.0737,76.8307 17.0531,76.8426 17.0627,76.8584 17.0761,76.865 17.1287,76.8928 17.1456,76.9003 17.1835,76.9146 17.2324,76.94 17.263,76.9416 17.2634,76.9407 17.2888,76.947 17.3112,76.9663 17.315,76.9696 17.304,76.9849 17.2894,76.9868 17.2626,76.9977 17.2259,77.0074 17.1528,77.037 17.1293,77.0415 17.0845,77.0436 17.068,77.059 17.1164,77.0622 17.1431,77.064 17.2177,77.0573 17.2172,77.0584 17.2602,77.0514 17.2846,77.0494 17.314,77.0496 17.3255,77.0559 17.316,77.0744 17.3339,77.0809 17.3363,77.0929 17.347,77.105 17.3707,77.1229 17.3892,77.1347 17.3988,77.136 17.4115,77.1378 17.4249,77.1433 17.4328,77.1523 17.4296,77.1689 17.424,77.1836 17.4193,77.2204 17.4093,77.2223 17.4112,77.2251 17.4707,77.2411 17.4758,77.2408 17.4797,77.2438 17.4883,77.2573 17.4619,77.29 17.4606,77.3002 17.4744,77.3086 17.481,77.3157 17.4692,77.3284 17.4764,77.3324 17.502,77.3442 17.5398,77.3559 17.582,77.3649 17.5999,77.3744 17.5961,77.3792 17.6012,77.3878 17.6038,77.3923 17.6221,77.4 17.6555,77.4155 17.6625,77.4171 17.6522,77.4265 17.6345,77.4264 17.622,77.4284 17.599,77.4382 17.5982,77.4498 17.6037,77.4543 17.6376,77.4611 17.6956,77.4584 17.7183,77.4595 17.725,77.4612 17.7302,77.4663 17.7218,77.4687 17.7146,77.4783 17.729,77.4868 17.7277,77.49 17.7076,77.5001 17.7063,77.505 17.7292,77.5042 17.7505,77.4986 17.7889,77.5028 17.8088,77.5029 17.8555,77.4998 17.8928,77.5016 17.9301,77.5086 17.9836,77.5067 18.0476,77.4942 18.099,77.5031 18.1188,77.5037 18.176,77.5031 18.2215,77.4992 18.235,77.5006 18.2725,77.5123 18.3093,77.5367 18.2953,77.5611 18.3081,77.5876 18.3087,77.6075 18.3261,77.6177 18.3484,77.6306 18.3513,77.6416 18.3409,77.6494 18.3203,77.6611 18.3244,77.6659 18.3351,77.6739 18.3417,77.6959 18.3779,77.7124 18.3943,77.7172 18.4161,77.7337 18.4368,77.7669 18.424,77.804 18.4158,77.8184 18.4225,77.8308 18.4137,77.839 18.4003,77.845 18.4134,77.85 18.4339,77.8529 18.4244,77.859 18.3449,77.881 18.3235,77.8898 18.324,77.8905 18.3286,77.8971 18.3453,77.9005 18.3493,77.9053 18.3543,77.9113 18.3665,77.9136 18.3674,77.9175 18.3684,77.9221 18.3611,77.9333 18.3715,77.9388 18.4064,77.9442 18.4191,77.9506 18.4444,77.9556 18.4568,77.9602 18.4779,77.9621 18.4831,77.9656 18.4711,77.9736 18.4767,77.9763 18.455,77.9839 18.402,78.0149 18.369,78.0258 18.3722,78.0395 18.382,78.0411 18.3929,78.0428 18.4135,78.0462 18.4544,78.0485 18.4931,78.0515 18.5613,78.0594 18.611,78.0591 18.6589,78.0546 18.6666,78.0518 18.7027,78.0467 18.7352,78.039 18.7501,78.0352 18.7648,78.0341 18.8019,78.0349 18.8562,78.0454 18.9238,78.0528 18.9542,78.0673 19.0137,78.0905 19.0506,78.1173 19.0485,78.1234 19.0006,78.1396 18.946,78.1629 18.9296,78.1762 18.9258,78.1839 18.9679,78.1991 18.9819,78.2007 19.0171,78.2015 19.0516,78.2102 19.0689,78.2191 19.078,78.2311 19.0651,78.2455 18.9966,78.2616 18.978,78.2697 18.9365,78.2954 18.9384,78.3041 19.0022,78.3108 19.0036,78.3158 18.9769,78.3268 18.9926,78.3343 19.002,78.3376 19.0161,78.339 19.024,78.345 19.0641,78.3493 19.0691,78.3541 19.0505,78.386 19.0158,78.4254 18.9815,78.4481 18.9556,78.4651 18.9608,78.4727 19.0298,78.4739 19.1285,78.4783 19.2137,78.479 19.2866,78.4892 19.2862,78.4903 19.4153,78.5037 19.5548,78.5096 19.6836,78.5103 19.6909,78.5126 19.6877,78.5192 19.586,78.5578 19.5774,78.5697 19.5761,78.5715 19.5799,78.5804 19.5845,78.5836 19.6302,78.5949 19.6404,78.6021 19.62,78.6043 19.6044,78.6028 19.565,78.5968 19.5549,78.5928 19.5427,78.5913 19.5333,78.5952 19.5353,78.5993 19.5985,78.6134 19.6557,78.6216 19.7275,78.6244 19.7658,78.6214 19.9139,78.6167 19.929,78.6151 19.9544,78.615 20.0,78.6174 20.0043,78.6176 20.0259,78.6202 20.0352,78.6213 20.0621,78.6213 20.0833,78.616 20.1186,78.6137 20.1493,78.6152 20.1571,78.6199 20.154,78.6225 20.1358,78.6258 20.1041,78.6274 20.1049,78.6322 20.1183,78.6324 20.1625,78.6331 20.2003,78.6419 20.2011,78.6471 20.1784,78.6526 20.2655,78.6596 20.3015,78.6545 20.3205,78.6546 20.2782,78.6681 20.276,78.6722 20.3369,78.6779 20.4391,78.6818 20.4708,78.6846 20.493,78.6897 20.5141,78.6923 20.5411,78.6955 20.5801,78.6977 20.6208,78.6921 20.7026,78.694 20.7179,78.698 20.7511,78.7001 20.7735,78.7068 20.7881,78.7111 20.8171,78.7109 20.8726,78.7061 20.8678,78.7018 20.8752,78.6943 20.9056,78.6877 20.9261,78.688 20.9504,78.6842 20.9622,78.6827 20.9958,78.6711 21.0259,78.6711 21.0459,78.6636 21.0803,78.659 21.1048,78.6602 21.1513,78.6677 21.1528,78.6718 21.1626,78.6744 21.1376,78.683 21.1489,78.6845 21.1969,78.6767 21.2121,78.6761 21.2348,78.6781 21.254,78.6751 21.2733,78.677 21.2513,78.6828 21.2226,78.6866 21.2164,78.6889 21.222,78.69 21.2371,78.6895 21.2588,78.6858 21.2841,78.6864 21.3113,78.6782 21.3348,78.6766 21.3395,78.6736 21.393,78.6751 21.383,78.696 21.3651,78.7095 21.3773,78.7262 21.4099,78.7374 21.4262,78.7402 21.4968,78.749 21.5226,78.7553 21.5253,78.7605 21.51,78.7686 21.4905,78.7754 21.4668,78.7829 21.4644,78.7906 21.4984,78.8118 21.5294,78.8226 21.5246,78.8308 21.5123,78.8344 21.4696,78.8375 21.419,78.8386 21.3925,78.8462 21.3972,78.8491 21.3921,78.8514 21.3151,78.8567 21.2743,78.8595 21.2521,78.8589 21.2412,78.8543 21.2459,78.8481 21.1841,78.8457 21.1741,78.8551 21.1618,78.859 21.1553,78.8609 21.1072,78.8608 21.0536,78.8698 21.0539,78.8766 21.0697,78.8805 21.0244,78.8895 20.9981,78.8911 20.9927,78.8952 20.9688,78.8964 20.9741,78.9 20.9656,78.9013 20.9384,78.9011 20.936,78.8952 20.9169,78.8963 20.9032,78.8936 20.888,78.8933 20.8746,78.895 20.875,78.8991 20.8556,78.9019 20.8515,78.9046 20.8378,78.902 20.8257,78.9035 20.812,78.9011 20.7929,78.9039 20.7925,78.9059 20.7591,78.9127 20.6978,78.917 20.6493,78.9175 20.5953,78.9254 20.5448,78.9291 20.5083,78.937 20.4885,78.9388 20.4929,78.9404 20.5095,78.9406 20.5114,78.9424 20.492,78.9443 20.4856,78.9465 20.4633,78.9454 20.4474,78.9473 20.4316,78.9538 20.4028,78.9603 20.3277,78.9734 20.3145,78.9888 20.2836,78.9906 20.2395,78.9933 20.2059,78.9987 20.1786,79.0066 20.1468,79.0097 20.1299,79.0063 20.1185,78.9921 20.111,78.9908 20.0723,78.9881 20.0332,78.9905 20.0276,78.991 20.0,78.9937 19.94,78.9995 19.9045,79.0066 19.8954,79.0168 19.9208,79.0275 19.9018,79.0428 19.9167,79.0525 19.9251,79.0526 19.9265,79.0597 19.8816,79.0731 19.8471,79.0723 19.8159,79.0781 19.8152,79.0783 19.7922,79.094 19.7791,79.1153 19.7799,79.1221 19.7618,79.1382 19.7846,79.1427 19.7947,79.1496 19.79,79.1532 19.7369,79.1569 19.6912,79.1519 19.665,79.1505 19.6359,79.1509 19.5564,79.1618 19.5296,79.1626 19.4869,79.1671 19.4452,79.1755 19.405,79.1832 19.3608,79.1881 19.3126,79.1872 19.2947,79.1834 19.2726,79.1806 19.2666,79.1705 19.245,79.1602 19.1356,79.149 18.9823,79.1566 18.9493,79.1579 18.9072,79.1669 18.8894,79.1755 18.9185,79.1949 18.9244,79.2084 18.9378,79.2181 18.9369,79.2204 18.8836,79.2303 18.8657,79.2366 18.8383,79.2408 18.8176,79.2439 18.7928,79.2411 18.7412,79.2458 18.7018,79.2438 18.6683,79.2405 18.6484,79.2416 18.6507,79.2448 18.6198,79.249 18.6084,79.2529 18.6091,79.2572 18.6238,79.2633 18.6149,79.2647 18.6261,79.2668 18.6421,79.2666 18.6824,79.2698 18.6735,79.2736 18.6449,79.2718 18.6338,79.2748 18.6381,79.2765 18.6625,79.2768 18.6627,79.2793 18.6989,79.2805 18.7096,79.2784 18.7088,79.2741 18.7151,79.2737 18.778,79.2845 18.8095,79.293 18.8068,79.306 18.8058,79.3107 18.83,79.3186 18.8426,79.3226 18.8471,79.3327 18.834,79.3494 18.8361,79.3622 18.8424,79.3628 18.8507,79.373 18.8483,79.3825 18.8588,79.3855 18.8855,79.3919 18.8806,79.4016 18.8622,79.4071 18.8506,79.4344 18.8573,79.4367 18.8641,79.4411 18.8565,79.4447 18.8294,79.4536 18.8033,79.4567 18.7855,79.4608 18.7685,79.466 18.7595,79.4735 18.7576,79.4782 18.7577,79.4828 18.7577,79.4865 18.7578,79.4951 18.7628,79.4952 18.7444,79.5254 18.7273,79.5398 18.6639,79.5617 18.5978,79.5746 18.5472,79.5809 18.3946,79.606 18.3695,79.6084 18.3573,79.6076 18.3554,79.6116 18.3026,79.6244 18.2612,79.6291 18.2122,79.6283 18.1828,79.6237 18.094,79.5963 18.0568,79.5925 18.0721,79.5745 18.0487,79.566 18.0454,79.5611 18.0424,79.5565 18.0349,79.5244 18.0263,79.4874 18.0044,79.4713 17.9638,79.4503 17.9358,79.4416 17.9153,79.423 17.8581,79.4061 17.7634,79.3924 17.705,79.3765 17.6805,79.3667 17.6599,79.3682 17.6331,79.3887 17.6397,79.3949 17.7576,79.4256 17.7746,79.4359 17.7789,79.4509 17.7835,79.4669 17.7744,79.5012 17.7714,79.5118 17.7658,79.5441 17.7479,79.5495 17.6223,79.5459 17.5757,79.5497 17.5619,79.5528 17.5719,79.5568 17.6138,79.5561 17.6519,79.5577 17.7489,79.5739 17.7497,79.5797 17.7486,79.5938 17.7118,79.5989 17.7024,79.6071 17.7428,79.6094 17.7573,79.6139 17.818,79.6228 17.8384,79.6346 17.8465,79.6522 17.8646,79.6548 17.8924,79.6674 17.9194,79.6692 18.0125,79.6937 18.0572,79.7134 18.0459,79.7265 18.0418,79.7312 17.9849,79.7553 17.8856,79.7909 17.8741,79.798 17.8578,79.8008 17.8344,79.8124 17.7631,79.8348 17.7565,79.8369 17.6693,79.8578 17.6218,79.8746 17.5687,79.8896 17.4535,79.896 17.436,79.8971 17.3883,79.9077 17.3935,79.9121 17.3693,79.9181 17.3799,79.9267 17.368,79.9315 17.3371,79.9284 17.3108,79.9289 17.1038,79.9544 17.0382,79.9527 17.0195,79.9576 16.9727,79.9523 16.9706,79.9521 16.9371,79.9451 16.9094,79.9414 16.8936,79.9269 16.846,79.9178 16.8497,79.9154 16.922,79.8649 16.902,79.8615 16.8622,79.863 16.7982,79.8741 16.7854,79.8835 16.7447,79.8847 16.7296,79.894 16.687,79.9058 16.6614,79.9231 16.6703,79.9315 16.752,79.9467 16.7029,79.9476 16.6761,79.9505 16.62,79.9625 16.5818,79.9807 16.5687,79.9894 16.5529,80.0 16.5411,80.0265 16.5281,80.0315 16.5605,80.0395 16.5455,80.0479 16.4958,80.0463 16.4622,80.0491 16.4494,80.0588 16.4362,80.0576 16.4199,80.0516 16.3883,80.0509 16.346,80.0534 16.2898,80.066 16.2654,80.0677 16.2307,80.0653 16.2202,80.0631 16.2004,80.059 16.1627,80.0603 16.1461,80.0571 16.1463,80.0503 16.1348,80.0468 16.1486,80.0406 16.0922,80.0289 16.048,80.0271 16.0183,80.0156 15.9966,80.0118 15.9717,80.0 16.0024,79.9956 16.0122,79.9917 16.0098,79.9893 16.0014,79.9812 15.9848,79.9769 15.9555,79.9756 15.9397,79.9558 15.939,79.9386 15.9218,79.9335 15.953,79.9156 15.9764,79.9074 15.9966,79.9003 16.0586,79.8881 16.0893,79.8851 16.0693,79.8804 16.1028,79.8728 16.1336,79.8646 16.1004,79.8639 16.062,79.8631 15.9752,79.8664 15.8571,79.8681 15.7476,79.8739 15.6928,79.8724 15.6477,79.8632 15.6411,79.8545 15.6445,79.8448 15.6123,79.8445 15.6405,79.83 15.6438,79.8283 15.6375,79.8281 15.6332,79.8235 15.6386,79.8192 15.6425,79.8161 15.6146,79.8068 15.6284,79.7986 15.6304,79.7906 15.6878,79.7794 15.6814,79.7792 15.6415,79.7758 15.638,79.77 15.6578,79.7658 15.6412,79.7604 15.6541,79.7447 15.6881,79.7228 15.688,79.7132 15.6845,79.7041 15.6638,79.6996 15.6591,79.6931 15.7195,79.6727 15.7145,79.6726 15.7328,79.6613 15.7158,79.6481 15.7223,79.6445 15.7346,79.6438 15.7463,79.6472 15.7751,79.635 15.8244,79.5652 15.8473,79.5596 15.874,79.5593 15.8734,79.5578 15.8699,79.55 15.8354,79.5497 15.8288,79.5465 15.8446,79.5277 15.8456,79.5119 15.8535,79.5088 15.8658,79.4972 15.8904,79.4387 15.9332,79.3838 15.9305,79.3731 15.9266,79.3573 15.9473,79.3269 15.9395,79.3221 15.9471,79.3001 16.038,79.2729 16.0659,79.2542 16.0756,79.2477 16.1247,79.2216 16.1086,79.207 16.1396,79.1672 16.1573,79.1532 16.1588,79.1322 16.2007,79.1216 16.2244,79.1188 16.2321,79.1104 16.2623,79.1011 16.2893,79.0605 16.283,79.0496 16.3333,79.0347 16.3508,79.0176 16.3548,79.0137 16.3695,78.9785 16.3889,78.9705 16.4235,78.9667 16.4352,78.9612 16.4483,78.9514 16.4263,78.9485 16.4478,78.9386 16.5067,78.9319 16.5227,78.9133 16.4467,78.9093 16.3896,78.9076 16.3833,78.9088 16.3668,78.9119 16.3023,78.9257 16.2751,78.9461 16.2439,78.956 16.2272,78.9579 16.1724,78.9708 16.1237,78.9983 16.125,79.0093 16.0878,79.0167 16.0856,79.0194 16.0697,79.0389 16.0729,79.0507 16.0274,79.0814 15.9811,79.1076 15.9114,79.1388 15.8824,79.1518 15.824,79.1696 15.7987,79.1693 15.7682,79.1605 15.7376,79.1572 15.7199,79.1476 15.7201,79.1316 15.7001,79.1201 15.7366,79.1022 15.7351,79.098 15.6928,79.0991 15.6476,79.1067 15.6336,79.1233 15.6021,79.1388 15.6355,79.1501 15.6252,79.1593 15.6196,79.1642 15.626,79.1708 15.6622,79.1852 15.7543,79.2355 15.7413,79.2437 15.7182,79.2486 15.6958,79.258 15.6521,79.2624 15.5865,79.2874 15.5763,79.3 15.5871,79.3039 15.5314,79.3144 15.5015,79.3252 15.467,79.3488 15.4596,79.3539 15.425,79.3636 15.4159,79.3662 15.4201,79.3977 15.4124,79.4083 15.3856,79.4243 15.4058,79.4324 15.3938,79.4571 15.3972,79.4728 15.3654,79.4733 15.3435,79.4792 15.3398,79.4959 15.349,79.5021 15.3422,79.5094 15.2947,79.5124 15.2703,79.5166 15.2129,79.5263 15.2379,79.5458 15.2221,79.5764 15.2364,79.5974 15.263,79.6091 15.206,79.6138 15.1924,79.6167 15.1638,79.6224 15.0899,79.6511 15.0614,79.6654 15.0352,79.6728 15.0304,79.6869 15.0132,79.6973 15.0,79.7025 14.9421,79.7253 14.939,79.7307 14.9188,79.7398 14.8714,79.7541 14.8268,79.7675 14.7364,79.7863 14.6705,79.794 14.6013,79.7963 14.574,79.7949 14.5579,79.8032 14.522,79.8013 14.4852,79.7944 14.4219,79.7686 14.3733,79.7486 14.345,79.7277 14.2225,79.6832 14.2073,79.6777 14.2173,79.6692 14.2379,79.6661 14.2791,79.6673 14.3056,79.6632 14.257,79.6602 14.1465,79.6477 14.1181,79.6393 14.1436,79.6262 14.165,79.6236 14.1933,79.6233 14.2196,79.6164 14.2511,79.6139 14.2466,79.6103 14.2071,79.6104 14.193,79.6104 14.1443,79.6152 14.1063,79.6135 14.0562,79.6068 14.0472,79.6018 14.0374,79.5963 13.9958,79.5873 13.9529,79.5812 13.9142,79.5691 13.8735,79.5465 13.84,79.5372 13.875,79.5334 13.8843,79.5272 13.8792,79.5216 13.9008,79.5073 13.9245,79.499 13.9213,79.4941 13.8863,79.4923 13.898,79.4862 13.9662,79.473 13.9853,79.4584 14.0138,79.4503 13.9792,79.4325 13.9726,79.427 14.0061,79.4188 14.0063,79.4128 13.9846,79.4018 13.9968,79.3964 14.0674,79.3883 14.0944,79.3801 14.1158,79.3668 14.1115,79.3616 14.1441,79.3409 14.1307,79.3348 14.09,79.3244 14.0815,79.3154 14.0893,79.3018 14.076,79.2855 14.0604,79.272 14.0653,79.2691 14.0185,79.2661 13.9886,79.2694 13.9849,79.2736 14.0201,79.2801 14.0003,79.2873 13.997,79.2883 13.9282,79.2807 13.8817,79.2869 13.8731,79.2943 13.8796,79.3053 13.9018,79.3168 13.8906,79.3268 13.9073,79.3418 13.9089,79.377 13.8705,79.3796 13.8136,79.4031 13.8114,79.404 13.7484,79.4201 13.769,79.4292 13.7337,79.4351 13.7238,79.4406 13.7037,79.4434 13.7023,79.4519 13.6478,79.4622 13.5898,79.4858 13.5544,79.4858 13.5084,79.4893 13.4507,79.4866 13.4093,79.4846 13.3992,79.4806 13.4134,79.4721 13.4545,79.4605 13.4676,79.4408 13.4591,79.4378 13.4127,79.4363 13.388,79.4413 13.3534,79.4568 13.3286,79.4615 13.2472,79.4627 13.2242,79.4684 13.2232,79.4774 13.2671,79.4963 13.2701,79.5052 13.2467,79.5192 13.26,79.5226 13.2883,79.5221 13.3304,79.5177 13.3609,79.5202 13.3996,79.5343 13.4107,79.5439 13.4157,79.5482 13.4933,79.5644 13.4931,79.574 13.468,79.5779 13.381,79.5838 13.2755,79.5965 13.1838,79.5963 13.1443,79.5916 13.0438,79.5874 12.9689,79.5842 12.9435,79.5741 12.923,79.5716 12.8677,79.5721 12.8092,79.5606 12.7951,79.5594 12.7533,79.5629 12.7233,79.5623 12.7202,79.5578 12.7084,79.5565 12.6873,79.5563 12.6649,79.5517 12.6563,79.5468 12.6397,79.544 12.614,79.5428 12.5801,79.5485 12.5301,79.5478 12.4928,79.5591 12.4479,79.5606 12.4371,79.5711 12.3924,79.5795 12.4114,79.5858 12.4386,79.5887 12.4682,79.5918 12.5069,79.5914 12.5731,79.5868 12.6331,79.5924 12.686,79.5997 12.6892,79.6053 12.7183,79.6107 12.7726,79.6127 12.7695,79.6197 12.7913,79.6231 12.8115,79.6313 12.8404,79.6331 12.9034,79.6534 12.9877,79.6641 13.0165,79.6701 13.0205,79.6765 12.993,79.6848 13.0171,79.693 13.0373,79.6959 13.0742,79.6964 13.1635,79.6906 13.2098,79.6927 13.2186,79.6974 13.2523,79.7051 13.27,79.7054 13.2853,79.7057 13.3161,79.699 13.3497,79.7003 13.3464,79.705 13.3559,79.706 13.4162,79.6993 13.4552,79.6989 13.4921,79.6965 13.5797,79.6964 13.6251,79.6947 13.6977,79.6899 13.7217,79.689 13.7401,79.69 13.7669,79.6987 13.7406,79.698 13.7128,79.6931 13.6973,79.6947 13.6838,79.6968 13.7034,79.7064 13.7103,79.7095 13.7822,79.718 13.8853,79.7364 13.898,79.7508 13.9085,79.752 13.9509,79.7701 13.9691,79.7779 13.9485,79.792 13.9731,79.8079 13.9284,79.8271 13.9112,79.8473 13.8546,79.8678 13.8182,79.8704 13.7861,79.8769 13.7532,79.8756 13.7432,79.8752 13.6882,79.8669 13.6048,79.8571 13.4664,79.8531 13.398,79.8549 13.3451,79.8462 13.2813,79.8394 13.2691,79.8292 13.2544,79.8283 13.2374,79.8323 13.219,79.8311 13.198,79.8239 13.1075,79.824 13.0649,79.8222 12.9512,79.7968 12.8462,79.7759 12.8178,79.7732 12.7411,79.7721 12.6965,79.7776 12.6728,79.7729 12.6587,79.7681 12.6488,79.7647 12.6191,79.7608 12.5813,79.7597 12.572,79.7537 12.5416,79.7555 12.5265,79.7539 12.5089,79.7504 12.5061,79.7457 12.4953,79.7449 12.4871,79.7453 12.4803,79.7518 12.4999,79.7549 12.5061,79.7584 12.5549,79.7676 12.5275,79.7764 12.5245,79.7868 12.5036,79.7955 12.4784,79.7935 12.4651,79.7839 12.4419,79.7809 12.4201,79.789 12.4293,79.7956 12.4885,79.8013 12.4596,79.8089 12.4277,79.8231 12.4297,79.8279 12.4313,79.832 12.42,79.839 12.3963,79.8391 12.3765,79.8319 12.3485,79.8324 12.3,79.8385 12.26,79.8397 12.2248,79.844 12.1984,79.8406 12.203,79.8292 12.1897,79.8258 12.2318,79.8207 12.1599,79.804 12.1512,79.7993 12.155,79.79 12.1837,79.771 12.1802,79.7638 12.1793,79.7618 12.2309,79.7525 12.2261,79.7472 12.2058,79.7484 12.1929,79.7506 12.1725,79.75 12.1735,79.747 12.2057,79.7425 12.2795,79.7361 12.3562,79.6929 12.3353,79.6675 12.325,79.6639 12.3005,79.6603 12.227,79.6617 12.2666,79.6765 12.247,79.6804 12.1928,79.705 12.1529,79.7057 12.1492,79.7007 12.159,79.6855 12.1553,79.6651 12.1479,79.663 12.1162,79.66 12.0976,79.6606 12.0893,79.6623 12.0834,79.6654 12.0873,79.6761 12.0546,79.6824 12.045,79.6889 12.0446,79.6971 12.0587,79.702 12.0541,79.705 12.0591,79.7052 12.0232,79.7109 12.0412,79.7153 12.0421,79.722 12.0233,79.7328 12.0012,79.7341 11.9866,79.7354 11.9629,79.7469 11.9585,79.7688 11.9821,79.7722 11.9398,79.7846 11.8904,79.786 11.8479,79.7857 11.8351,79.7866 11.8306,79.7894 11.8075,79.7914 11.8836,79.8051 11.869,79.8192 11.8404,79.8391 11.7909,79.8411 11.7518,79.8339 11.7104,79.8334 11.6761,79.8278 11.6723,79.8311 11.6599,79.8316 11.6295,79.8261 11.6255,79.8193 11.6084,79.8159 11.6301,79.8095 11.5951,79.7998 11.5832,79.8047 11.5875,79.8079 11.5536,79.8141 11.4935,79.8078 11.546,79.7786 11.5538,79.7691 11.5069,79.7642 11.4552,79.7656 11.445,79.7659 11.3848,79.7797 11.271,79.78 11.2341,79.7814 11.2113,79.7796 11.2124,79.7665 11.2631,79.76 11.2602,79.7557 11.2293,79.7488 11.1958,79.7484 11.1771,79.7278 11.2017,79.7257 11.2044,79.7206 11.205,79.7196 11.1941,79.7122 11.229,79.7027 11.2466,79.6984 11.2488,79.6947 11.2435,79.6876 11.2756,79.6744 11.3153,79.6691 11.3154,79.6657 11.3574,79.6549 11.3688,79.6473 11.391,79.6515 11.419,79.6507 11.4856,79.6385 11.4302,79.6284 11.42,79.6284 11.3715,79.6336 11.2951,79.6341 11.2745,79.6327 11.1941,79.6356 11.1268,79.6331 11.1039,79.6446 11.0793,79.6469 11.0382,79.6467 11.0077,79.643 10.9674,79.6422 10.9351,79.6281 10.884,79.6148 10.8826,79.6159 10.8263,79.6049 10.8277,79.6005 10.9436,79.5851 11.0426,79.5772 11.0563,79.5775 11.1049,79.5711 11.1641,79.5636 11.1685,79.5597 11.1589,79.554 11.0678,79.5578 11.047,79.5614 11.0421,79.5605 10.9962,79.5557 10.96,79.5571 10.9232,79.5621 10.8788,79.5606 10.7591,79.5631 10.7037,79.5604 10.6752,79.5544 10.6752,79.5544 8,1.0,Norway 15.6203,77.8964 15.611,77.9012 15.6185,77.9033 15.6392,77.9015 15.6552,77.8964 15.6479,77.8939 15.6203,77.8964 15.6203,77.8964 1277,1.0,Norway 17.6992,80.1301 17.7411,80.1286 17.7672,80.1333 17.8432,80.1393 17.9356,80.1421 17.9573,80.1389 18.0011,80.1298 18.0587,80.0982 18.0873,80.0825 18.1278,80.0678 18.1187,80.0612 18.1465,80.0436 18.1733,80.0396 18.1884,80.0416 18.1876,80.0496 18.1975,80.0553 18.2076,80.0568 18.2233,80.0564 18.2846,80.0383 18.2841,80.0311 18.2965,80.0304 18.3349,80.0355 18.3745,80.0408 18.4838,80.0412 18.5153,80.0451 18.5471,80.0422 18.5629,80.0424 18.5943,80.0326 18.6109,80.0325 18.641,80.0384 18.6639,80.0394 18.6825,80.0375 18.6856,80.0282 18.6961,80.0251 18.711,80.0249 18.7232,80.0268 18.7199,80.0347 18.7444,80.0378 18.7643,80.038 18.8167,80.0343 18.8326,80.0353 18.8434,80.0391 18.8539,80.0429 18.8853,80.0446 18.9278,80.0523 18.9349,80.049 18.8836,80.0283 18.9113,80.0275 18.9137,80.024 18.8804,80.0226 18.8502,80.0236 18.8104,80.0205 18.7745,80.022 18.7588,80.0183 18.765,80.0 18.7671,79.9966 18.7779,79.9899 18.7913,79.9817 18.7881,79.9746 18.8274,79.9649 18.8148,79.9604 18.7824,79.9632 18.7669,79.9689 18.7754,79.9736 18.7565,79.9772 18.728,79.9789 18.7135,79.9848 18.6923,79.9849 18.6595,79.9881 18.6593,79.9899 18.6592,79.9917 18.6847,79.9932 18.6792,80.0 18.6543,80.0067 18.6557,80.0121 18.6272,80.0173 18.6195,80.0149 18.6303,80.0065 18.6413,80.0051 18.6428,80.0 18.6434,79.9979 18.6291,79.9899 18.6255,79.9879 18.6084,79.9852 18.5808,79.9847 18.5728,79.9839 18.565,79.9769 18.5336,79.9753 18.5228,79.9701 18.6296,79.9795 18.667,79.9836 18.6924,79.9737 18.6831,79.9713 18.6433,79.9698 18.618,79.9651 18.6303,79.9583 18.6646,79.9574 18.6596,79.9541 18.6364,79.9533 18.5828,79.9512 18.4608,79.9499 18.3734,79.9421 18.2442,79.9399 18.2108,79.9312 18.1838,79.9201 18.1364,79.9109 18.0981,79.9096 18.0892,79.9068 18.0957,79.9016 18.113,79.8993 18.1249,79.8978 18.1706,79.8946 18.2235,79.8794 18.3046,79.8353 18.3234,79.831 18.3261,79.8256 18.3489,79.8237 18.3765,79.8252 18.4057,79.8179 18.4065,79.8125 18.4725,79.7976 18.4619,79.7954 18.4666,79.7907 18.4782,79.7818 18.4904,79.7804 18.499,79.7841 18.4991,79.7928 18.5113,79.7941 18.5215,79.7915 18.5211,79.7835 18.5442,79.7777 18.5537,79.7853 18.5366,79.7892 18.5451,79.7963 18.5564,79.7967 18.5674,79.7951 18.5768,79.7913 18.5929,79.7921 18.6307,79.7811 18.6598,79.7788 18.6923,79.7785 18.6985,79.774 18.6889,79.7711 18.6843,79.7637 18.7269,79.7452 18.7557,79.7379 18.7502,79.7324 18.7296,79.7274 18.7281,79.7231 18.7399,79.7191 18.7859,79.7125 18.8014,79.7122 18.8243,79.7154 18.8474,79.7151 18.8506,79.723 18.8754,79.7281 18.9769,79.733 19.0409,79.7305 19.1727,79.7306 19.3085,79.7355 19.3931,79.7311 19.4503,79.7181 19.4791,79.7135 19.5051,79.7119 19.5299,79.7179 19.5798,79.7198 19.6681,79.721 19.733,79.7283 19.7562,79.7347 19.8016,79.7472 19.8282,79.7484 20.0,79.7496 20.0141,79.7497 20.0312,79.7516 20.0684,79.7557 20.0681,79.7568 20.11,79.7574 20.1349,79.7638 20.1972,79.7696 20.2658,79.7748 20.2941,79.7736 20.3176,79.7726 20.3864,79.7734 20.4068,79.7784 20.474,79.7803 20.4663,79.7759 20.517,79.7679 20.5368,79.7799 20.5871,79.7883 20.6282,79.7898 20.6784,79.7915 20.7207,79.7877 20.7719,79.7861 20.8406,79.7878 20.8771,79.7919 20.914,79.7935 20.9448,79.796 20.9964,79.7953 21.0549,79.7978 21.1181,79.8029 21.2024,79.8021 21.2403,79.8048 21.2503,79.7999 21.2778,79.8035 21.2748,79.8123 21.3817,79.8166 21.4416,79.8236 21.4586,79.8241 21.5415,79.82 21.6048,79.8176 21.6341,79.8107 21.6522,79.8099 21.6644,79.8061 21.6363,79.805 21.5667,79.7926 21.5595,79.7823 21.526,79.769 21.5278,79.7657 21.5549,79.7663 21.5995,79.774 21.6264,79.7761 21.6356,79.7796 21.6351,79.7838 21.6545,79.7838 21.7058,79.7785 21.7002,79.7764 21.648,79.7748 21.6415,79.7655 21.5586,79.7573 21.5306,79.7536 21.5334,79.7263 21.5493,79.7223 21.5629,79.7097 21.5541,79.7019 21.5625,79.6972 21.5491,79.6941 21.5093,79.6894 21.4662,79.6894 21.362,79.6979 21.3305,79.7034 21.278,79.7053 21.2188,79.7033 21.1336,79.7037 21.1225,79.7018 21.114,79.7004 21.1138,79.7013 21.0473,79.6979 20.9525,79.6961 20.8934,79.6956 20.7569,79.6869 20.7013,79.686 20.6669,79.6816 20.6175,79.6815 20.5544,79.676 20.478,79.6726 20.4556,79.6667 20.5354,79.6519 20.5516,79.6434 20.5559,79.6343 20.5583,79.6289 20.6079,79.6202 20.6369,79.6093 20.6695,79.6157 20.6883,79.6163 20.7176,79.6149 20.7784,79.6077 20.8442,79.6065 20.9035,79.6001 20.9385,79.5886 20.9587,79.5885 20.9956,79.5926 21.0161,79.5907 21.0231,79.5869 21.0413,79.5843 21.0392,79.5818 21.0575,79.5783 21.0586,79.5774 21.0664,79.5711 21.0895,79.5685 21.1283,79.5688 21.1436,79.5675 21.1707,79.5706 21.2166,79.5677 21.2557,79.5565 21.1943,79.5507 21.1186,79.5468 21.0865,79.5383 21.0376,79.5451 20.9874,79.5459 20.9473,79.5519 20.8802,79.5553 20.8693,79.5645 20.8207,79.5687 20.6716,79.568 20.5556,79.5707 20.5126,79.5736 20.4328,79.5792 20.3359,79.5892 20.2814,79.6037 20.2791,79.6062 20.2685,79.6179 20.1839,79.6269 20.1338,79.6301 20.1016,79.6304 20.0306,79.633 20.0265,79.6331 20.0,79.6341 19.9757,79.6351 19.9371,79.6295 19.8931,79.6274 19.8908,79.6283 19.7553,79.6254 19.6881,79.6231 19.6459,79.614 19.6199,79.6056 19.6318,79.593 19.6616,79.5689 19.7005,79.5578 19.7948,79.5456 19.8313,79.5274 19.8323,79.5269 19.8645,79.5202 19.8818,79.5197 19.9242,79.5186 19.9377,79.5156 20.0,79.4937 20.0267,79.4843 20.0286,79.4743 20.0299,79.474 20.0778,79.4637 20.1533,79.4646 20.2932,79.4487 20.4046,79.4413 20.4498,79.4383 20.5034,79.4324 20.5331,79.4324 20.5633,79.4354 20.6068,79.4301 20.6454,79.4291 20.6664,79.4243 20.694,79.4226 20.7362,79.4116 20.765,79.4101 20.7766,79.4021 20.7842,79.397 20.7784,79.3858 20.7505,79.3831 20.7534,79.3606 20.7962,79.3616 20.8422,79.3597 20.9099,79.3538 20.9393,79.3486 20.9922,79.3481 21.1171,79.3563 21.2205,79.3666 21.2618,79.3715 21.3132,79.373 21.4499,79.3752 21.5032,79.3744 21.5516,79.3724 21.6361,79.369 21.7046,79.3634 21.7774,79.3533 21.8318,79.3506 21.85,79.3525 21.9026,79.3536 21.9027,79.3527 22.0103,79.3668 22.1153,79.3741 22.152,79.379 22.1868,79.3836 22.259,79.3894 22.4484,79.3922 22.5014,79.3919 22.5138,79.391 22.5283,79.3922 22.5628,79.3952 22.6071,79.3967 22.6637,79.3986 22.7583,79.4042 22.8236,79.405 22.8105,79.397 22.7801,79.3911 22.6949,79.3711 22.6518,79.3531 22.6551,79.3395 22.721,79.3248 22.7646,79.3101 22.8707,79.2901 22.8815,79.289 23.0629,79.2701 23.1678,79.2658 23.2897,79.2443 23.3201,79.2456 23.3201,79.247 23.3578,79.2468 23.4447,79.2338 23.4573,79.232 23.5784,79.2222 23.5825,79.2218 23.5846,79.2217 23.6307,79.2203 23.6429,79.2248 23.6891,79.2275 23.864,79.2283 23.9141,79.2344 23.999,79.2324 24.0426,79.2314 24.1034,79.2321 24.1548,79.2373 24.2463,79.2724 24.1964,79.2943 24.2109,79.3026 24.2649,79.3047 24.3736,79.317 24.4512,79.3216 24.4874,79.328 24.5214,79.3372 24.5413,79.3406 24.6202,79.3539 24.7202,79.3771 24.7511,79.3783 24.8285,79.377 24.8588,79.3733 24.8825,79.3672 24.8868,79.3627 24.8768,79.3529 24.8846,79.3472 24.9316,79.3411 24.9848,79.3386 25.0,79.3379 25.107,79.3329 25.1267,79.3337 25.1909,79.3506 25.4722,79.3886 25.5192,79.3981 25.5416,79.4026 25.62,79.4116 25.6885,79.4314 25.7575,79.4413 25.7353,79.4531 25.6866,79.4687 25.7503,79.4759 25.8136,79.4861 25.8161,79.4889 25.8268,79.5001 25.8503,79.5052 25.8787,79.5197 25.8353,79.5642 25.7881,79.5825 25.7109,79.6022 25.7095,79.6041 25.7003,79.617 25.7133,79.6242 25.7509,79.6349 25.8636,79.6474 25.9493,79.6618 26.0101,79.6674 26.1149,79.6808 26.148,79.6906 26.1644,79.6954 26.2163,79.6995 26.3309,79.719 26.3625,79.7271 26.3953,79.7477 26.4264,79.7583 26.5447,79.7693 26.5074,79.7771 26.5179,79.7801 26.5495,79.7892 26.6651,79.8065 26.6805,79.8184 26.6705,79.8233 26.6733,79.8321 26.8213,79.8476 26.9472,79.8579 26.9714,79.8626 26.9998,79.868 27.0425,79.8901 27.1236,79.903 27.1238,79.9108 27.0864,79.9221 27.0703,79.935 27.0493,79.938 27.0026,79.9492 26.9698,79.9707 26.9645,79.9742 26.9737,79.9854 26.9771,79.9868 26.9946,79.9937 27.0073,79.9909 27.0404,79.9914 27.1186,79.9935 27.1904,79.9927 27.2123,80.0 27.1936,80.0075 27.181,80.0088 27.1261,80.0145 27.1255,80.0187 27.1567,80.0323 27.2243,80.0485 27.2373,80.0561 27.2306,80.0703 27.188,80.0778 27.1723,80.0834 27.1326,80.0826 27.0792,80.0842 27.0494,80.083 26.9816,80.0782 26.9711,80.0796 26.993,80.0881 27.0028,80.0919 27.0024,80.0981 26.9562,80.1113 26.9179,80.1379 26.8963,80.146 26.8578,80.1525 26.8055,80.158 26.7506,80.1616 26.7215,80.1624 26.6446,80.1608 26.6157,80.1631 26.5984,80.1666 26.5858,80.1691 26.5771,80.1687 26.5494,80.1675 26.4914,80.1721 26.4432,80.172 26.3822,80.1781 26.3442,80.1799 26.2041,80.1786 26.1678,80.179 26.1256,80.1813 26.0528,80.179 26.0024,80.1675 25.9944,80.1552 25.9723,80.1518 25.9056,80.1448 25.8825,80.1466 25.8588,80.1511 25.8321,80.1522 25.7506,80.1503 25.6835,80.1522 25.6603,80.1539 25.6459,80.1622 25.6221,80.1653 25.5287,80.1668 25.4648,80.174 25.4148,80.1961 25.4006,80.2023 25.4143,80.2239 25.3884,80.2268 25.3727,80.2307 25.2788,80.2281 25.2673,80.2293 25.2412,80.2244 25.2295,80.2193 25.185,80.2126 25.16,80.2112 25.1402,80.2121 25.033,80.2386 25.0327,80.2427 25.0499,80.246 25.0,80.2517 24.9924,80.2525 24.9517,80.2508 24.907,80.254 24.889,80.2534 24.8799,80.2549 24.8494,80.2536 24.8226,80.2573 24.8228,80.2611 24.8531,80.2712 24.8627,80.2783 24.8434,80.2919 24.8435,80.2972 24.8771,80.319 24.8844,80.3325 24.8768,80.3362 24.8443,80.3406 24.8393,80.3483 24.8191,80.3502 24.7781,80.3363 24.7699,80.3272 24.7315,80.2841 24.7136,80.2762 24.6901,80.2711 24.6683,80.2728 24.6525,80.2794 24.6468,80.2874 24.634,80.2882 24.5967,80.2824 24.5586,80.264 24.5458,80.261 24.5283,80.266 24.5181,80.2655 24.5048,80.2602 24.4901,80.2544 24.4633,80.2485 24.4483,80.2485 24.4354,80.2503 24.4148,80.269 24.419,80.2737 24.4376,80.2782 24.4367,80.2811 24.4013,80.2844 24.4316,80.2878 24.5139,80.3086 24.5254,80.3085 24.5341,80.3063 24.555,80.3079 24.5557,80.3123 24.5824,80.3165 24.5748,80.3196 24.5516,80.321 24.556,80.3301 24.5569,80.3319 24.5486,80.3353 24.5205,80.3375 24.5148,80.344 24.4882,80.3479 24.482,80.3584 24.4714,80.3606 24.4517,80.3536 24.4366,80.3525 24.3864,80.3602 24.3564,80.3618 24.3047,80.3584 24.2322,80.3636 24.1975,80.3608 24.1687,80.3547 24.1451,80.3543 24.1327,80.352 24.1315,80.3446 24.1165,80.3402 24.1196,80.336 24.1237,80.3356 24.2694,80.3232 24.3192,80.3218 24.3895,80.3127 24.409,80.3117 24.4196,80.3091 24.3834,80.3047 24.361,80.3052 24.3558,80.3114 24.3247,80.3093 24.3148,80.3149 24.2975,80.3172 24.2774,80.3143 24.2909,80.3095 24.2756,80.3062 24.282,80.3041 24.3434,80.2973 24.3581,80.2917 24.3651,80.289 24.3797,80.2879 24.383,80.2859 24.3567,80.2844 24.3492,80.2823 24.351,80.2781 24.3265,80.2768 24.2649,80.2975 24.2455,80.298 24.212,80.2961 24.1773,80.2981 24.1633,80.2952 24.1624,80.2895 24.1782,80.2812 24.231,80.2638 24.2343,80.2504 24.2201,80.2485 24.1819,80.2471 24.1716,80.2485 24.1691,80.2488 24.151,80.26 24.0405,80.29 24.0161,80.3017 23.9824,80.3046 23.9524,80.3001 23.9363,80.2866 23.9428,80.2804 23.9612,80.2757 23.9431,80.2723 23.9992,80.2652 24.0162,80.2611 24.0229,80.2563 24.0237,80.2558 24.0201,80.2528 24.0078,80.251 23.983,80.2582 23.9416,80.2642 23.9021,80.2665 23.8875,80.2644 23.8873,80.2589 23.878,80.2576 23.8452,80.2684 23.8491,80.2731 23.8224,80.2802 23.8067,80.2832 23.7771,80.2837 23.7533,80.2793 23.737,80.2706 23.7306,80.2551 23.7403,80.2488 23.7814,80.2449 23.796,80.242 23.8413,80.2332 23.8137,80.2301 23.7922,80.2298 23.7595,80.2346 23.7433,80.2346 23.7121,80.2317 23.7069,80.2194 23.7786,80.1876 23.8022,80.1827 23.7626,80.1751 23.7344,80.1733 23.7223,80.177 23.6984,80.1773 23.6771,80.1737 23.6625,80.1611 23.6366,80.1569 23.6245,80.1523 23.6391,80.126 23.5672,80.1159 23.5423,80.1158 23.5142,80.1202 23.5042,80.1218 23.5113,80.1322 23.5336,80.1362 23.5431,80.1415 23.5133,80.1522 23.4863,80.1536 23.4697,80.1584 23.4975,80.1821 23.4933,80.19 23.4711,80.1959 23.4401,80.1981 23.4112,80.1965 23.3701,80.1887 23.3564,80.1835 23.3723,80.1712 23.4041,80.1462 23.4008,80.1305 23.3809,80.1268 23.363,80.1294 23.3479,80.1381 23.3266,80.1616 23.3106,80.1638 23.2976,80.1706 23.2864,80.1724 23.2681,80.1716 23.2398,80.1753 23.229,80.1733 23.222,80.1612 23.2371,80.1577 23.2447,80.1559 23.243,80.1536 23.228,80.1518 23.2079,80.1535 23.1945,80.1568 23.1765,80.1577 23.1496,80.1535 23.1335,80.1602 23.1081,80.1639 23.0879,80.1616 23.084,80.1585 23.1145,80.149 23.1794,80.1214 23.1821,80.1157 23.1599,80.1121 23.1232,80.1209 23.0871,80.1227 23.0692,80.1275 23.0415,80.1298 23.031,80.1307 23.0316,80.1433 22.9969,80.1631 22.9988,80.1756 23.0228,80.1815 23.0293,80.1902 23.0251,80.2032 23.0488,80.2168 23.0507,80.2383 23.1033,80.2471 23.1363,80.2525 23.1667,80.2557 23.1824,80.2555 23.2107,80.2506 23.2212,80.2519 23.2896,80.2783 23.2991,80.2908 23.2904,80.2942 23.2522,80.2971 23.2491,80.302 23.3145,80.3088 23.3133,80.3111 23.2551,80.3165 23.254,80.3206 23.3071,80.3283 23.3101,80.3383 23.3002,80.3435 23.2809,80.3457 23.2535,80.3461 23.2131,80.3448 23.1828,80.3401 23.1749,80.3405 23.158,80.3492 23.1381,80.3529 23.1497,80.3551 23.176,80.3543 23.2075,80.3572 23.2308,80.3632 23.2368,80.3682 23.2281,80.3733 23.2056,80.3755 23.1173,80.3759 23.0978,80.3803 23.0983,80.385 23.1222,80.3889 23.1544,80.391 23.1779,80.3925 23.2515,80.3933 23.2658,80.3947 23.2735,80.3981 23.2746,80.4102 23.292,80.4139 23.3255,80.4169 23.3273,80.4193 23.3188,80.4284 23.2651,80.4446 23.1324,80.4544 23.0852,80.4519 23.0446,80.4564 23.0274,80.4566 23.0054,80.454 23.0038,80.453 22.9885,80.4426 22.9652,80.4383 22.9485,80.4388 22.9316,80.4544 22.9504,80.4678 22.9415,80.4751 22.8512,80.4909 22.7938,80.5106 22.7778,80.5086 22.7641,80.5011 22.7604,80.4895 22.7646,80.4873 22.7855,80.4763 22.7948,80.4542 22.824,80.4432 22.8299,80.4318 22.8197,80.4251 22.7949,80.4202 22.7981,80.4158 22.8281,80.4118 22.825,80.4061 22.7941,80.3893 22.7427,80.3764 22.7352,80.3716 22.6835,80.3388 22.6893,80.3376 22.7187,80.3387 22.7365,80.3359 22.7588,80.3228 22.7453,80.3194 22.7023,80.3215 22.681,80.3293 22.6527,80.3343 22.6253,80.3517 22.617,80.3622 22.633,80.3729 22.6415,80.3785 22.6443,80.3905 22.6434,80.4141 22.6225,80.4198 22.5982,80.4213 22.5343,80.4219 22.4654,80.4178 22.4011,80.4107 22.3651,80.4054 22.3376,80.3866 22.3313,80.377 22.3277,80.3717 22.341,80.3532 22.3633,80.3417 22.3988,80.3319 22.4456,80.314 22.4678,80.3111 22.5546,80.3065 22.58,80.301 22.578,80.2962 22.5564,80.2901 22.5027,80.2828 22.4763,80.2771 22.4674,80.2696 22.4705,80.2248 22.4465,80.2107 22.4641,80.1975 22.4622,80.1927 22.4248,80.1848 22.409,80.1785 22.3861,80.1563 22.3809,80.1511 22.4158,80.1149 22.4071,80.1074 22.3911,80.1056 22.3612,80.1063 22.3546,80.1031 22.4476,80.0873 22.4586,80.0826 22.4256,80.063 22.4396,80.0583 22.4309,80.0542 22.4053,80.0504 22.3855,80.0474 22.3879,80.0421 22.4022,80.038 22.4626,80.0335 22.4711,80.0289 22.4752,80.0105 22.4759,80.0073 22.458,80.0047 22.4433,80.005 22.4205,80.0105 22.3915,80.0175 22.3533,80.0298 22.3348,80.0321 22.3226,80.0318 22.3037,80.0253 22.3133,80.0106 22.3186,80.0023 22.3209,80.0 22.3197,79.9949 22.26,79.9919 22.2542,79.9856 22.2386,79.9839 22.2121,79.981 22.1946,79.982 22.1939,79.9823 22.1908,79.9839 22.1849,79.9867 22.2031,79.9991 22.2321,80.0 22.2251,80.0066 22.2175,80.0106 22.2006,80.0193 22.1974,80.0267 22.2163,80.0362 22.2132,80.0401 22.1978,80.0437 22.1889,80.0429 22.159,80.0402 22.1247,80.039 22.1164,80.0408 22.1316,80.0523 22.1294,80.0648 22.1126,80.0784 22.079,80.0892 22.0533,80.1027 22.051,80.1181 22.0077,80.1151 21.9413,80.1133 21.9039,80.1179 21.899,80.1209 21.8876,80.1277 21.8656,80.1322 21.841,80.1434 21.8298,80.1447 21.8157,80.1442 21.7754,80.1377 21.7317,80.1356 21.6918,80.1299 21.6575,80.1281 21.6326,80.1321 21.6304,80.1347 21.7104,80.1642 21.7814,80.1804 21.7863,80.182 21.803,80.1875 21.8221,80.1994 21.8619,80.2481 21.8596,80.2524 21.7503,80.2725 21.7244,80.2738 21.6857,80.2681 21.6668,80.2645 21.6616,80.2583 21.6632,80.257 21.6802,80.2439 21.6808,80.2311 21.6899,80.2265 21.6816,80.2248 21.5982,80.2346 21.581,80.2383 21.5479,80.2509 21.4897,80.2629 21.4724,80.2623 21.4406,80.2552 21.395,80.2276 21.39,80.2246 21.3813,80.2119 21.3361,80.2045 21.3239,80.2061 21.3301,80.2201 21.344,80.2241 21.3453,80.2463 21.3371,80.2484 21.2951,80.2417 21.288,80.2297 21.2748,80.2284 21.2498,80.2331 21.2363,80.2335 21.1918,80.2245 21.1951,80.2169 21.197,80.2121 21.1733,80.2064 21.0366,80.2077 20.9939,80.2043 20.9711,80.2043 20.9084,80.1978 20.895,80.1982 20.8408,80.207 20.8278,80.2138 20.8321,80.2255 20.8231,80.229 20.7785,80.2352 20.8037,80.2436 20.8066,80.2497 20.8058,80.2522 20.7989,80.273 20.8147,80.2822 20.8101,80.3055 20.7865,80.3066 20.7725,80.3056 20.6455,80.281 20.6225,80.2799 20.5827,80.2808 20.5565,80.2857 20.5481,80.2901 20.551,80.297 20.5344,80.2961 20.521,80.2954 20.5019,80.2971 20.5003,80.3001 20.5196,80.3047 20.5212,80.3073 20.4935,80.3103 20.4929,80.3126 20.5233,80.3157 20.5337,80.319 20.527,80.3392 20.5321,80.3476 20.4875,80.3535 20.4058,80.3722 20.4083,80.3752 20.4334,80.3785 20.4326,80.3832 20.3874,80.397 20.384,80.398 20.3388,80.4075 20.3034,80.4125 20.2816,80.4132 20.2508,80.4113 20.2236,80.4128 20.1989,80.4109 20.109,80.396 20.0883,80.3958 20.0513,80.4199 20.0084,80.4369 20.0131,80.4434 20.0319,80.451 20.0249,80.4536 20.0208,80.4551 20.0156,80.4688 20.0,80.4707 19.989,80.472 19.9689,80.4715 19.8845,80.4622 19.8541,80.4566 19.829,80.4553 19.7888,80.4769 19.668,80.5053 19.6448,80.5068 19.6024,80.5004 19.6018,80.4992 19.589,80.4736 19.6412,80.4434 19.6242,80.443 19.5723,80.4518 19.5334,80.4612 19.5054,80.4644 19.4791,80.4612 19.4189,80.4479 19.4006,80.4346 19.3998,80.434 19.4187,80.4149 19.4655,80.3888 19.4871,80.3848 19.5085,80.3839 19.5828,80.3873 19.6266,80.3868 19.6752,80.3923 19.7085,80.3928 19.7626,80.3975 19.7713,80.3904 19.756,80.3816 19.7888,80.38 19.7946,80.38 19.8933,80.3793 19.9112,80.3769 19.9143,80.3738 19.8307,80.3638 19.8556,80.36 19.853,80.3582 19.7612,80.3528 19.7323,80.3464 19.7244,80.3416 19.7307,80.3392 19.7761,80.3446 19.7927,80.3443 19.8286,80.3396 19.8621,80.3385 19.8591,80.3345 19.8415,80.3325 19.8078,80.3368 19.7818,80.3349 19.749,80.3325 19.7151,80.3264 19.7257,80.3182 19.7476,80.3131 19.7761,80.3143 19.8246,80.3056 19.7964,80.304 19.7936,80.3008 19.7454,80.2934 19.7486,80.2903 19.7903,80.2825 19.7952,80.2795 19.7673,80.2669 19.7515,80.2689 19.7297,80.2662 19.6885,80.2547 19.6898,80.2463 19.6908,80.2395 19.7065,80.2337 19.7239,80.2318 19.812,80.2277 19.8204,80.2257 19.8168,80.2228 19.78,80.2151 19.7576,80.2134 19.7439,80.2189 19.6538,80.2188 19.6184,80.2196 19.5871,80.2223 19.4569,80.2557 19.4506,80.2573 19.4027,80.2669 19.3855,80.2754 19.3791,80.2962 19.368,80.301 19.2325,80.3379 19.0556,80.3504 19.0523,80.3506 19.0194,80.3488 18.9986,80.3444 18.9968,80.3322 19.0186,80.3169 19.0473,80.3062 19.0561,80.2989 19.0711,80.2965 19.0562,80.2856 19.0695,80.2603 19.092,80.2461 19.1224,80.2363 19.1416,80.23 19.172,80.2129 19.1781,80.1985 19.1891,80.1937 19.2218,80.1871 19.2566,80.1827 19.2815,80.1758 19.3112,80.1718 19.3333,80.1709 19.3741,80.1727 19.4448,80.1653 19.4955,80.1646 19.565,80.1539 19.5837,80.151 19.5911,80.1459 19.5756,80.1439 19.4424,80.1485 19.3632,80.1564 19.3425,80.1534 19.3537,80.1481 19.3838,80.1469 19.3906,80.1409 19.4022,80.1397 19.4229,80.1427 19.4433,80.1417 19.4395,80.1373 19.3846,80.1309 19.375,80.1264 19.3722,80.1178 19.3828,80.1162 19.4104,80.1178 19.4214,80.1164 19.4216,80.1146 19.4217,80.1133 19.3534,80.1011 19.2845,80.0919 19.2601,80.0838 19.2489,80.0837 19.2368,80.0939 19.1329,80.1227 19.0979,80.1374 19.0852,80.1395 19.0628,80.1389 19.048,80.1405 19.0115,80.1491 18.9801,80.1566 18.9525,80.167 18.9153,80.1755 18.9136,80.1815 18.937,80.1892 18.8619,80.1899 18.8434,80.1966 18.7228,80.2054 18.7124,80.2031 18.7165,80.1983 18.7342,80.1945 18.7673,80.192 18.7754,80.1891 18.7729,80.1859 18.7441,80.185 18.729,80.1818 18.7288,80.1795 18.7283,80.172 18.7058,80.1632 18.6858,80.161 18.6581,80.1613 18.6411,80.164 18.6345,80.169 18.5751,80.173 18.5524,80.1874 18.526,80.1842 18.4922,80.1835 18.4658,80.1858 18.4344,80.1933 18.3425,80.1884 18.3249,80.1846 18.2696,80.1831 18.2232,80.1835 18.155,80.1843 18.1134,80.1874 18.0955,80.1841 18.0781,80.1734 18.0612,80.1713 18.0427,80.1726 18.0613,80.1825 18.0483,80.1831 18.0139,80.1778 17.9587,80.1777 17.9468,80.1745 17.9422,80.1616 17.9206,80.1585 17.898,80.1634 17.846,80.1669 17.8287,80.166 17.7922,80.1551 17.7539,80.1437 17.7005,80.1357 17.6993,80.1306 17.6992,80.1301 17.6992,80.1301 65,1.0,Norway 18.7671,74.4844 18.7716,74.4809 18.7883,74.4819 18.7894,74.4724 18.8104,74.4705 18.808,74.4611 18.84,74.4503 18.8396,74.4472 18.8363,74.4393 18.8601,74.4332 18.8916,74.421 18.8913,74.416 18.9172,74.4083 18.9331,74.4089 18.9608,74.3918 18.9798,74.3936 18.995,74.3843 19.0415,74.369 19.0353,74.3636 19.0573,74.3574 19.0621,74.3491 19.0866,74.3457 19.0931,74.3497 19.1226,74.3498 19.1185,74.3559 19.1271,74.3615 19.1737,74.3645 19.168,74.3701 19.1901,74.3808 19.1942,74.3893 19.2072,74.3961 19.2114,74.3983 19.2093,74.4062 19.2077,74.4121 19.239,74.4189 19.2633,74.4298 19.2937,74.4603 19.2831,74.4651 19.2934,74.468 19.2808,74.4774 19.2106,74.4952 19.1951,74.499 19.1813,74.5093 19.1819,74.5136 19.1718,74.5163 19.1571,74.5168 19.144,74.5243 19.1054,74.5234 19.0957,74.5232 19.0732,74.5179 19.0178,74.5208 19.0147,74.5166 18.9867,74.5161 18.9731,74.5158 18.9629,74.5217 18.9412,74.514 18.925,74.511 18.8669,74.5111 18.8537,74.5125 18.8486,74.5094 18.8301,74.5087 18.8085,74.5036 18.7802,74.4863 18.7671,74.4844 18.7671,74.4844 ================================================ FILE: POST/hr2day/scripts/bldit_hr2day.csh ================================================ #! /bin/csh -f # ==================== HR2DAYv5.5.X Build Script =====================# # Usage: bldit_hr2day.csh >&! bldit_hr2day.log # # Requirements: I/O API & netCDF libraries; a Fortran compiler # # # # To report problems or request help with this script/program: # # http://www.cmascenter.org # # =================================================================== # # ======================================================================= #> Preliminary error checking and environment configuration # ======================================================================= #> Check that the host system is Linux-based set BLD_OS = `uname -s` if ($BLD_OS != 'Linux') then echo " $BLD_OS -> wrong bldit script for host!" exit 1 endif #> Set Compiler Identity by User Input: Options -> intel | pgi | gcc if ( $#argv == 1 ) then setenv compiler $argv[1] setenv compilerVrsn Empty else if ( $#argv == 2 ) then #> Compiler Name and Version have been provided setenv compiler $1 setenv compilerVrsn $2 else echo "usage: $0 " echo " where is intel, pgi or gcc" exit(2) endif #> Source the config.cmaq file to set the build environment cd ../../.. source ./config_cmaq.csh #> Source Code Repository setenv REPOROOT ${CMAQ_REPO}/POST/hr2day #> location of the source code for HR2DAY #=============================================================================== #> Begin User Input Section #=============================================================================== #> User choices: working directory and application ID set VRSN = v55 #> model version set EXEC = hr2day_${VRSN}.exe #> executable name for this application set CFG = hr2day_${VRSN}.cfg #> BLDMAKE configuration file name setenv BLDER ${CMAQ_HOME}/UTIL/bldmake/bldmake_${compilerString}.exe #> location of makefile builder executable #> user choice: copy source files set CopySrc #> copy the source files into the BLD directory #set MakeFileOnly # builds a Makefile to make the model, but does not compile - # comment out to also compile the model (default if not set) # set CompileBLDMAKE #> Recompile the BLDMAKE utility from source #> comment out to use an existing BLDMAKE executable set ModDriver = src #> HR2DAY Modules #============================================================================================ #> Computing System Configuration: #> Most of these settings are done in config.cmaq #============================================================================================ #> Set full path of Fortran 90 compiler setenv FC ${myFC} set FP = $FC #> Set IO/API version set IOAPI = ioapi_3.1 #> Set compiler flags set FSTD = "${myFSTD}" set DBG = "${myDBG}" setenv F_FLAGS "${myFFLAGS}" set F90_FLAGS = "${myFRFLAGS}" set CPP_FLAGS = "" #> Fortran Preprocessor Flags set LINK_FLAGS = "${myLINK_FLAG}" #> Link Flags set LIB2 = "${ioapi_lib}" #============================================================================================ #> Set up the hr2day build directory under the Tools directory #> for checking out and compiling source code #============================================================================================ set Bld = ${CMAQ_HOME}/POST/hr2day/scripts/BLD_hr2day_${VRSN}_${compilerString} if ( ! -e "$Bld" ) then mkdir -pv $Bld else if ( ! -d "$Bld" ) then echo " *** target exists, but not a directory ***" exit 1 endif endif cd $Bld #> Check for previous run if ( -e "$Bld/${CFG}" ) then echo " >>> previous ${CFG} exists, re-naming to ${CFG}.old <<<" mv $Bld/${CFG} $Bld/${CFG}.old endif #============================================================================================ #> Make the config file #============================================================================================ set Cfile = ${Bld}/$CFG set quote = '"' echo > $Cfile echo "model $EXEC;" >> $Cfile echo >> $Cfile echo "repo $REPOROOT;" >> $Cfile echo >> $Cfile echo "lib_base ${CMAQ_LIB};" >> $Cfile echo >> $Cfile echo "lib_1 ioapi/lib;" >> $Cfile echo >> $Cfile echo "lib_2 ioapi/include_files;" >> $Cfile echo >> $Cfile echo "lib_3 netcdf/include;" >> $Cfile echo >> $Cfile echo "lib_4 ioapi/lib;" >> $Cfile echo >> $Cfile echo "lib_5 netcdff/include;" >> $Cfile echo >> $Cfile set text = "$quote$CPP_FLAGS$quote;" echo "cpp_flags $text" >> $Cfile echo >> $Cfile echo "f_compiler $FC;" >> $Cfile echo >> $Cfile echo "fstd $quote$FSTD$quote;" >> $Cfile echo >> $Cfile echo "dbg $quote$DBG$quote;" >> $Cfile echo >> $Cfile echo "f_flags $quote$F_FLAGS$quote;" >> $Cfile echo >> $Cfile echo "f90_flags $quote$F90_FLAGS$quote;" >> $Cfile echo >> $Cfile echo "link_flags $quote$LINK_FLAGS$quote;" >> $Cfile echo >> $Cfile #echo "libraries $quote$LIBS$quote;" >> $Cfile echo "ioapi $quote$LIB2$quote;" >> $Cfile echo >> $Cfile echo "netcdf $quote$netcdf_lib$quote;" >> $Cfile echo >> $Cfile echo "netcdff $quote$netcdff_lib$quote;" >> $Cfile set text = "hr2day" echo "// options are" $text >> $Cfile echo "Module ${ModDriver};" >> $Cfile echo >> $Cfile #============================================================================================ #> Use BLDMAKE to create the Makefile and model executable if desired #============================================================================================ unalias mv rm #> Recompile BLDMAKE from source if requested or if it does not exist if ( $?CompileBLDMAKE || ! -f $BLDER ) then cd ${CMAQ_REPO}/UTIL/bldmake/scripts ./bldit_bldmake.csh endif #> Relocate to the BLD_* directory cd $Bld #> Set serial options for BLDMAKE execution set Blder = "$BLDER -serial -verbose" #> Run BLDMAKE Utility if ( $?MakeFileOnly ) then #> Just create the Makefile if ( $?CopySrc ) then $Blder -makefo $Cfile else $Blder -makefo -git_local $Cfile endif else # Also compile the model if ( $?CopySrc ) then $Blder $Cfile else $Blder -git_local $Cfile endif endif #> Save Makefile with Compiler-dependent name and create symbolic #> link back to generic name. mv Makefile Makefile.$compilerString if ( -e Makefile.$compilerString && -e Makefile ) rm Makefile ln -s Makefile.$compilerString Makefile #> Check for error during makefile generation if ( $status != 0 ) then echo " *** failure in $Blder ***" exit 1 endif exit ================================================ FILE: POST/hr2day/scripts/run_hr2day.csh ================================================ #! /bin/csh -f # ====================== HR2DAYv5.5.X Run Script ====================== # Usage: run.hr2day.csh >&! hr2day.log & # # To report problems or request help with this script/program: # http://www.epa.gov/cmaq (EPA CMAQ Website) # http://www.cmascenter.org # =================================================================== # ================================================================== #> Runtime Environment Options # ================================================================== #> Choose compiler and set up CMAQ environment with correct #> libraries using config.cmaq. Options: intel | gcc | pgi setenv compiler intel cd ../../.. source ./config_cmaq.csh #> Set General Parameters for Configuring the Simulation set VRSN = v55 #> Code Version set PROC = mpi #> serial or mpi set MECH = cb6r5_ae7_aq #> Mechanism ID set APPL = Bench_2016_12SE1 #> Application Name (e.g. Gridname) #> Define RUNID as any combination of parameters above or others. By default, #> this information will be collected into this one string, $RUNID, for easy #> referencing in output binaries and log files as well as in other scripts. set RUNID = ${VRSN}_${compilerString}_${APPL} #> Set the build directory if this was not set above #> (this is where the executable is located by default). if ( ! $?BINDIR ) then set BINDIR = ${CMAQ_HOME}/POST/hr2day/scripts/BLD_hr2day_${VRSN}_${compilerString} endif #> Set the name of the executable. set EXEC = hr2day_${VRSN}.exe #> Set location of CMAQ repo. This will be used to point to the time zone file #> needed to run bldoverlay. set REPO_HOME = ${CMAQ_REPO} #> Set output directory set POSTDIR = ${CMAQ_DATA}/POST #> Location where hr2day file will be written if ( ! -e $POSTDIR ) then mkdir $POSTDIR endif # ===================================================================== #> HR2DAY Configuration Options # ===================================================================== #> set to use local time (default is GMT) setenv USELOCAL Y #> set to use daylight savings time (default is N) setenv USEDST N #> location of time zone data file, tz.csv (this is a required input file #> when using USELOCAL Y to shift from GMT to local time) setenv TZFILE ${REPO_HOME}/POST/hr2day/inputs/tz.csv # You can use the old tz.csv file by uncommenting out this line # setenv TZFILE ${REPO_HOME}/POST/hr2day/inputs/tz_legacy.csv #> partial day calculation (computes value for last day) setenv PARTIAL_DAY Y #> starting hour for daily metrics (default is 0) setenv START_HOUR 0 #> ending hour for daily metrics (default is 23) setenv END_HOUR 23 #> Number of 8hr values to use when computing daily maximum 8hr ozone. #> Allowed values are 24 (use all 8-hr averages with starting hours #> from 0 - 23 hr local time) and 17 (use only the 17 8-hr averages #> with starting hours from 7 - 23 hr local time) setenv HOURS_8HRMAX 24 # setenv HOURS_8HRMAX 17 #> define species (format: "Name, units, From_species, Operation") #> operations : {SUM, AVG, MIN, MAX, HR@MIN, HR@MAX, @MAXT, MAXDIF, #> 8HRMAX, W126, @8HRMAXO3, HR@8HRMAX, SUM06} setenv SPECIES_1 "O3,ppbV,O3,8HRMAX" #> Optional desired first and last processing date. The program will #> adjust the requested dates if the desired range is not covered by #> the input file(s). If these dates are not specified, the processing #> will be performed for the longest possible time record that can be #> derived from the model input file(s) setenv START_DATE 2016182 setenv END_DATE 2016195 #> set input and output files setenv M3_FILE_1 ${CMAQ_DATA}/POST/COMBINE_ACONC_${RUNID}_201607.nc # setenv M3_FILE_2 ${CMAQ_DATA}/POST/COMBINE_ACONC_${RUNID}_201608.nc #[Add location of one or more (up to 366) input files, e.g. COMBINE_ACONC file.] setenv OUTFILE ${POSTDIR}/dailymaxozone_${RUNID}.nc #> Executable call: ${BINDIR}/${EXEC} set progstat = ${status} if ( ${progstat} ) then echo "ERROR ${progstat} in $BINDIR/$EXEC" exit( ${progstat} ) endif exit() ================================================ FILE: POST/hr2day/src/ck_ctms.F ================================================ !-----------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !-----------------------------------------------------------------------! ! RCS file, release, date & time of last delta, author, state, [and locker] ! $Header: /home/sjr/cvs2git/TOOLS/src/sitecmp/ck_ctms.F,v 1.4 2011/10/21 14:41:31 sjr Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% C************************************************************************* C C FUNCTION: To check multiple input CTM conc files for consistent C header data C C C************************************************************************* SUBROUTINE CK_M3FLS() USE M3FILES USE M3UTILIO IMPLICIT NONE C..ARGUMENTS: C..PARAMETERS: None C..SAVED LOCAL VARIABLES: None C..SCRATCH LOCAL VARIABLES: CHARACTER*80 MSG ! Log message CHARACTER*16 PNAME ! Program Name CHARACTER*15 VAL1 ! Character value of real CHARACTER*15 VAL2 ! Character value of real INTEGER L, N ! Loop indices INTEGER FTYPE1 ! File 1 file type INTEGER NCOLS1 ! File 1 number of columns INTEGER NROWS1 ! File 1 number of rows INTEGER NLAYS1 ! File 1 number of levels INTEGER SDATE1 ! File 1 start date INTEGER STIME1 ! File 1 start time INTEGER TSTEP1 ! File 1 time step INTEGER MXREC1 ! File 1 number of time steps INTEGER NTHIK1 ! File 1 boundary thickness INTEGER GDTYP1 ! File 1 horizontal grid type INTEGER VGTYP1 ! File 1 Vertical coordinate type LOGICAL LERROR ! Error Flag LOGICAL LSTOP ! Exit Flag REAL P_ALP1 ! File 1 map projection parameter REAL P_BET1 ! File 1 map projection parameter REAL P_GAM1 ! File 1 map projection parameter REAL XORIG1 ! File 1 X-origin REAL YORIG1 ! File 1 Y-origin REAL XCELL1 ! File 1 X-dimension of cells REAL YCELL1 ! File 1 Y-dimension of cells REAL XCENT1 ! File 1 X-center of coordinate system REAL YCENT1 ! File 1 Y-center of coordinate system REAL VGTOP1 ! File 1 model top REAL VGLVS1( MXLAYS3 + 1 ) ! File vertical layer heights C********************************************************************** DATA PNAME / 'CK_M3FLS' / LSTOP = .FALSE. ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Get header data for CTM file 1 ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF( .NOT. DESC3 ( M3_FLNAME( 1 ) ) ) THEN MSG = 'Could not read DESC of ' // M3_FLNAME( 1 ) & // ' file' CALL M3ERR( PNAME, 0, 0, MSG, .TRUE. ) ENDIF FTYPE1 = FTYPE3D NCOLS1 = NCOLS3D NROWS1 = NROWS3D NLAYS1 = NLAYS3D SDATE1 = SDATE3D STIME1 = STIME3D TSTEP1 = TSTEP3D MXREC1 = MXREC3D NTHIK1 = NTHIK3D GDTYP1 = GDTYP3D P_ALP1 = P_ALP3D P_BET1 = P_BET3D P_GAM1 = P_GAM3D XORIG1 = XORIG3D YORIG1 = YORIG3D XCELL1 = XCELL3D YCELL1 = YCELL3D XCENT1 = XCENT3D YCENT1 = YCENT3D VGTYP1 = VGTYP3D VGTOP1 = VGTOP3D DO N = 1 , NLAYS3D + 1 VGLVS1( N ) = VGLVS3D( N ) ENDDO ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Check to see that requested variable is on all files ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc DO N = 1, N_M3FILES IF( .NOT. DESC3 ( M3_FLNAME( N ) ) ) THEN MSG = 'Could not read DESC of ' // M3_FLNAME( N ) & // ' file' CALL M3ERR( PNAME, 0, 0, MSG, .TRUE. ) ENDIF ENDDO ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Write out report data ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF( N_M3FILES .GT. 1 ) THEN MSG = 'Multiple Models-3 files being used' CALL M3MESG( MSG ) MSG = 'Files being checked for consistent header data' CALL M3MESG( MSG ) ENDIF ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Compare header data on file 1 with header data on other CTM files ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc DO N = 2, N_M3FILES WRITE( MSG, '( ''Differences found between files '', A, & '' and '', A )' ) & TRIM( M3_FLNAME( 1 ) ), & TRIM( M3_FLNAME( N ) ) CALL M3MESG( MSG ) LERROR = .FALSE. IF( .NOT. DESC3 ( M3_FLNAME( N ) ) ) THEN MSG = 'Could not read DESC of ' // M3_FLNAME( N ) & // ' file' CALL M3ERR( PNAME, 0, 0, MSG, .TRUE. ) ENDIF IF( FTYPE1 .NE. FTYPE3D ) THEN WRITE( LOGUNIT, 94020 ) FTYPE1, N, FTYPE3D LERROR = .TRUE. ENDIF IF( NCOLS1 .NE. NCOLS3D ) THEN WRITE( LOGUNIT, 94040 ) NCOLS1, N, NCOLS3D LERROR = .TRUE. ENDIF IF( NROWS1 .NE. NROWS3D ) THEN WRITE( LOGUNIT, 94060 ) NROWS1, N, NROWS3D LERROR = .TRUE. ENDIF IF( NLAYS1 .NE. NLAYS3D ) THEN WRITE( LOGUNIT, 94080 ) NLAYS1, N, NLAYS3D LERROR = .TRUE. ENDIF IF( TSTEP1 .NE. TSTEP3D ) THEN WRITE( LOGUNIT, 94140 ) TSTEP1, N, TSTEP3D LERROR = .TRUE. ENDIF IF( NTHIK1 .NE. NTHIK3D ) THEN WRITE( LOGUNIT, 94180 ) NTHIK1, N, NTHIK3D LERROR = .TRUE. ENDIF IF( GDTYP1 .NE. GDTYP3D ) THEN WRITE( LOGUNIT, 94200 ) GDTYP1, N, GDTYP3D LERROR = .TRUE. ENDIF WRITE( VAL1, 94000 ) P_ALP1 WRITE( VAL2, 94000 ) P_ALP3D IF( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94220 ) P_ALP1, N, P_ALP3D LERROR = .TRUE. ENDIF WRITE( VAL1, 94000 ) P_BET1 WRITE( VAL2, 94000 ) P_BET3D IF( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94240 ) P_BET1, N, P_BET3D LERROR = .TRUE. ENDIF WRITE( VAL1, 94000 ) P_GAM1 WRITE( VAL2, 94000 ) P_GAM3D IF( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94260 ) P_GAM1, N, P_GAM3D LERROR = .TRUE. ENDIF WRITE( VAL1, 94000 ) XORIG1 WRITE( VAL2, 94000 ) XORIG3D IF( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94280 ) XORIG1, N, XORIG3D LERROR = .TRUE. ENDIF WRITE( VAL1, 94000 ) YORIG1 WRITE( VAL2, 94000 ) YORIG3D IF( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94300 ) YORIG1, N, YORIG3D LERROR = .TRUE. ENDIF WRITE( VAL1, 94000 ) XCELL1 WRITE( VAL2, 94000 ) XCELL3D IF( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94320 ) XCELL1, N, XCELL3D LERROR = .TRUE. ENDIF WRITE( VAL1, 94000 ) YCELL1 WRITE( VAL2, 94000 ) YCELL3D IF( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94340 ) YCELL1, N, YCELL3D LERROR = .TRUE. ENDIF WRITE( VAL1, 94000 ) XCENT1 WRITE( VAL2, 94000 ) XCENT3D IF( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94360 ) XCENT1, N, XCENT3D LERROR = .TRUE. ENDIF WRITE( VAL1, 94000 ) YCENT1 WRITE( VAL2, 94000 ) YCENT3D IF( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94380 ) YCENT1, N, YCENT3D LERROR = .TRUE. ENDIF WRITE( VAL1, 94000 ) VGTOP1 WRITE( VAL2, 94000 ) VGTOP3D IF( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94420 ) VGTOP1, N, VGTOP3D LERROR = .TRUE. ENDIF DO L = 1 , NLAYS1 + 1 WRITE( VAL1, 94000 ) VGLVS1( L ) WRITE( VAL2, 94000 ) VGLVS3D( L ) IF( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94440 ) L, VGLVS1( L ), N, L, & VGLVS3D( L ) LERROR = .TRUE. ENDIF ENDDO IF( .NOT. LERROR ) THEN WRITE( LOGUNIT, 94460 ) ELSE LSTOP = .TRUE. ENDIF ENDDO IF( LSTOP ) THEN MSG = 'Missing variable or file inconsistencies detected: stopping' CALL M3ERR( PNAME, 0, 0, MSG, .TRUE. ) ENDIF RETURN C************************* FORMAT STATEMENTS *************************** 94000 FORMAT( E15.5 ) 94020 FORMAT(10X, 'FTYPE1 = ', I3, ' FTYPE', I1, ' = ', I3 ) 94040 FORMAT(10X, 'NCOLS1 = ', I3, ' NCOLS', I1, ' = ', I3 ) 94060 FORMAT(10X, 'NROWS1 = ', I3, ' NROWS', I1, ' = ', I3 ) 94080 FORMAT(10X, 'NLAYS1 = ', I3, ' NLAYS', I1, ' = ', I3 ) 94100 FORMAT(10X, 'SDATE1 = ', I3, ' SDATE', I1, ' = ', I3 ) 94120 FORMAT(10X, 'STIME1 = ', I3, ' STIME', I1, ' = ', I3 ) 94140 FORMAT(10X, 'TSTEP1 = ', I3, ' TSTEP', I1, ' = ', I3 ) 94160 FORMAT(10X, 'MXREC1 = ', I3, ' MXREC', I1, ' = ', I3 ) 94180 FORMAT(10X, 'NTHIK1 = ', I3, ' NTHIK', I1, ' = ', I3 ) 94200 FORMAT(10X, 'GDTYP1 = ', I3, ' GDTYP', I1, ' = ', I3 ) 94220 FORMAT(10X, 'P_ALP1 = ', 1PE12.5, ' P_ALP', I1, ' = ', 1PE12.5 ) 94240 FORMAT(10X, 'P_BET1 = ', 1PE12.5, ' P_BET', I1, ' = ', 1PE12.5 ) 94260 FORMAT(10X, 'P_GAM1 = ', 1PE12.5, ' P_GAM', I1, ' = ', 1PE12.5 ) 94280 FORMAT(10X, 'XORIG1 = ', 1PE12.5, ' XORIG', I1, ' = ', 1PE12.5 ) 94300 FORMAT(10X, 'YORIG1 = ', 1PE12.5, ' YORIG', I1, ' = ', 1PE12.5 ) 94320 FORMAT(10X, 'XCELL1 = ', 1PE12.5, ' XCELL', I1, ' = ', 1PE12.5 ) 94340 FORMAT(10X, 'YCELL1 = ', 1PE12.5, ' YCELL', I1, ' = ', 1PE12.5 ) 94360 FORMAT(10X, 'XCENT1 = ', 1PE12.5, ' XCENT', I1, ' = ', 1PE12.5 ) 94380 FORMAT(10X, 'YCENT1 = ', 1PE12.5, ' YCENT', I1, ' = ', 1PE12.5 ) 94420 FORMAT(10X, 'VGTOP1 = ', 1PE12.5, ' VGTOP', I1, ' = ', 1PE12.5 ) 94440 FORMAT(10X, 'VGLVS1(', I2, ' ) = ', 1PE12.5, ' VGLVS', I1, & '(', I2, ' ) = ', 1PE12.5 ) 94445 FORMAT(10X, 'Variable ', A, ' not on file ', A ) 94460 FORMAT(10X, 'NONE' ) END ================================================ FILE: POST/hr2day/src/getTZ.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC C function to compute time zone offset from lat/lon C C The routine requires file "tz.csv" for timezone data C CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC Real Function getTZ(longitude, latitude) result(tzoffset) Implicit None ! defined type for line curve TYPE LINE Integer npts Character*(20) name Real offset Real xmin, xmax, ymin, ymax Real, Pointer :: x(:) Real, Pointer :: y(:) End TYPE LINE ! defined type for array points used for different size arrays TYPE POINTS Real, Pointer :: x(:,:) Real, Pointer :: y(:,:) End TYPE POINTS ! arguments Real latitude, longitude ! function Real getValue Logical inArea ! default Timezone data file Character*(256), Parameter :: defaultTZ = 'tz.csv' ! saved variables Logical, save :: firstime=.true. Integer, save :: nlines TYPE (LINE),allocatable,save :: lines(:) TYPE (POINTS),allocatable,save :: pts(:) !pointer used for differsize arrays ! create different size arrays for storing line points Real,target,allocatable,save :: lon1(:,:) Real,target,allocatable,save :: lat1(:,:) Real,target,allocatable,save :: lon2(:,:) Real,target,allocatable,save :: lat2(:,:) Real,target,allocatable,save :: lon3(:,:) Real,target,allocatable,save :: lat3(:,:) Real,target,allocatable,save :: lon4(:,:) Real,target,allocatable,save :: lat4(:,:) Real,target,allocatable,save :: lon5(:,:) Real,target,allocatable,save :: lat5(:,:) Real,target,allocatable,save :: lon6(:,:) Real,target,allocatable,save :: lat6(:,:) Real,target,allocatable,save :: lon7(:,:) Real,target,allocatable,save :: lat7(:,:) Real,target,allocatable,save :: lon8(:,:) Real,target,allocatable,save :: lat8(:,:) Real,target,allocatable,save :: lon9(:,:) Real,target,allocatable,save :: lat9(:,:) ! local variables Character*(256) tzfile Character*(120) record Character*(32) field Integer npts Integer i, j, status Real lat(20000), lon(20000), long Integer count(9), sizes(9) Integer nx, nfound, nsort Real xsec(1000), ysec(1000), temp Integer :: lfn=15 Data sizes/50,100,200,500,1000,2000,5000,10000,20000/ if( firstime ) then firstime = .false. ! get tz file name CALL ENVSTR('TZFILE','Time zone data file',defaultTZ,tzFile,status) ! open tz boundary file open(unit=lfn,file=tzFile,status='OLD',iostat=status) if(status.ne.0) then write(*,'(//''**ERROR** Cannot open time zone data file:'',a,//)') TRIM(tzFile) Stop endif count = 0 nlines = 0 ! read tz data file and count number of lines needed do read(lfn,'(a)',iostat=status) record if(status.ne.0) exit if ( ADJUSTL(record(1:1)).eq.'#' ) then write(*,*) '# Comments are not used', record cycle endif Call getField( record, ',', 1, field ) read(field,'(i16)') npts nlines = nlines+1 ! update count do i=1,SIZE(count) if(npts.le.sizes(i)) then count(i) = count(i) + 1 EXIT endif enddo ! read point records do i=1,npts read(lfn,'(a)',iostat=status) record if(status.ne.0) then write(*,'(''Read error on record:'',a)') trim(record) stop endif enddo enddo rewind(lfn) ! allocate lines and pointers Allocate( lines(nlines) ) Allocate( pts(SIZE(count)) ) ! asign pointers to size arrays pts(1)%x => lon1 pts(1)%y => lat1 pts(2)%x => lon2 pts(2)%y => lat2 pts(3)%x => lon3 pts(3)%y => lat3 pts(4)%x => lon4 pts(4)%y => lat4 pts(5)%x => lon5 pts(5)%y => lat5 pts(6)%x => lon6 pts(6)%y => lat6 pts(7)%x => lon7 pts(7)%y => lat7 pts(8)%x => lon8 pts(8)%y => lat8 pts(9)%x => lon9 pts(9)%y => lat9 ! allocate point arrays for each size using pointers do i=1,SIZE(count) Allocate( pts(i)%x(sizes(i),count(i)) ) Allocate( pts(i)%y(sizes(i),count(i)) ) enddo ! read each line and set pointers nlines = 0 count = 0 do read(lfn,'(a)',iostat=status) record if(status.ne.0) exit if ( ADJUSTL(record(1:1)).eq.'#' ) then ! write(*,*) '# Comments are not used', record cycle endif nlines = nlines+1 Call getField( record, ',', 1, field ) read(field,'(i16)') lines(nlines)%npts Call getField( record, ',', 2, field ) read(field,'(f16.0)') lines(nlines)%offset Call getField( record, ',', 3, field ) lines(nlines)%name = field ! read points into lat and lon arrays do i=1,lines(nlines)%npts read(lfn,'(a)',iostat=status) record if(status.ne.0) then write(*,'(''Read error on record:'',a)') trim(record) stop endif Call getField( record, ',', 1, field ) read(field,'(f32.0)') lon(i) Call getField( record, ',', 2, field ) read(field,'(f32.0)') lat(i) enddo ! compute min and max for each line lines(nlines)%xmin = lon(1) lines(nlines)%xmax = lon(1) lines(nlines)%ymin = lat(1) lines(nlines)%ymax = lat(1) do i=1,lines(nlines)%npts if(lon(i) .lt. lines(nlines)%xmin) lines(nlines)%xmin = lon(i) if(lon(i) .gt. lines(nlines)%xmax) lines(nlines)%xmax = lon(i) if(lat(i) .lt. lines(nlines)%ymin) lines(nlines)%ymin = lat(i) if(lat(i) .gt. lines(nlines)%ymax) lines(nlines)%ymax = lat(i) enddo ! copy arrays to correct size array using pointers do i=1,SIZE(count) if(lines(nlines)%npts.le.sizes(i)) then count(i) = count(i) + 1 pts(i)%x(1:lines(nlines)%npts,count(i)) = lon(1:lines(nlines)%npts) pts(i)%y(1:lines(nlines)%npts,count(i)) = lat(1:lines(nlines)%npts) lines(nlines)%x => pts(i)%x(:,count(i)) lines(nlines)%y => pts(i)%y(:,count(i)) EXIT endif enddo enddo close(lfn) endif ! firstime ! find all intersecting points at longitude nx = 0 do i = 1, nlines if(lines(i)%xmin.le.longitude .and. longitude.le.lines(i)%xmax) then Call getValues(longitude, lines(i)%npts, lines(i)%x, lines(i)%y, nfound, lat) ! check if point lies in line area if( nfound.ge.2 .and. lines(i)%ymin.le.latitude .and. latitude.le.lines(i)%ymax ) then if( inArea( latitude, nfound, lat) ) then !write(*,'(''point lies in area'',i5)') i tzoffset = -lines(i)%offset return endif endif ! add lat values to array do j=1,nfound nx = nx+1 xsec(nx) = lat(j) ysec(nx) = lines(i)%offset enddo endif enddo ! if more than 1 intersecting point found, sort them if( nx.gt.1 ) then nsort = nx do nfound=0 nsort = nsort-1 do i=1,nsort if( xsec(i).gt.xsec(i+1) ) then temp = xsec(i) xsec(i) = xsec(i+1) xsec(i+1) = temp temp = ysec(i) ysec(i) = ysec(i+1) ysec(i+1) = temp nfound=1 endif enddo if(nfound.eq.0) EXIT enddo ! check for within 1.0 degrees ! commented out by chogrefe; this part does not seem to work for hemispheric grids ! if( latitude+1.0 .ge. xsec(1) ) then ! tzoffset = -ysec(i) ! return ! endif ! if( latitude-1.0 .le. xsec(nx) ) then ! tzoffset = -ysec(nx) ! return ! endif if( latitude .ge. xsec(i) .and. latitude .le. xsec(nx) ) then do i=1,nx-1 if(latitude.ge.xsec(i) .and. latitude.le.xsec(i+1)) then if( ysec(i).eq.ysec(i+1) .and. xsec(i+1)-xsec(i).lt.2.0 ) then tzoffset = -ysec(i) !write(*,'(''point lies between areas'')') return endif endif enddo endif endif ! compute tzoffset from longitude long = abs(longitude) tzoffset = (long+7.5) / 15 if(longitude.gt.0) tzoffset = -tzoffset !write(*,'(''offset computed by longitude'',F16.6,F6.2)') longitude,tzoffset return end Function getTZ CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC C Subroutine to get intersecting values from array CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC Subroutine getValues(xx, npts, x, y, nfound, yy) Implicit None ! arguments Real xx Integer npts Real x(*) Real y(*) Integer nfound Real yy(*) Real slope Integer i nfound = 0 do i=1,npts-1 ! BHH: Using same ordering exclusion to prevent double counting ! For example, if a target point (xx, yy) shares an x position ! with a vertex of the polygon, the old code would intersect ! both the line segment coming to and going away from the ! vertex. This violates the assumptions in inArea and leads ! to an odd number of intersections (one is a complete ! duplicate). Because inArea does not check for duplicates, ! double counting can potentially result in a incorrect ! result. if( (xx.ge.x(i) .and. xx.lt.x(i+1)) .or. & (xx.ge.x(i+1) .and. xx.lt.x(i)) ) then nfound = nfound+1 slope = 1.0 if( x(i).ne.x(i+1) ) slope = (y(i)-y(i+1)) / (x(i)-x(i+1)) yy(nfound) = y(i) + slope * (xx - x(i)) endif enddo return end Subroutine getValues CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC C function to get value from array table CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC Real Function getValue(xx, npts, x, y) result(yy) Implicit None Real xx Integer npts Real x(*) Real y(*) Real slope Integer i do i=1,npts-1 if( (xx.ge.x(i) .and. xx.lt.x(i+1)) .or. & (xx.le.x(i) .and. xx.gt.x(i+1)) ) then slope = 1.0 if( x(i).ne.x(i+1) ) slope = (y(i)-y(i+1)) / (x(i)-x(i+1)) yy = y(i) + slope * (xx - x(i)) return endif enddo yy = 0.0 return end Function getValue CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC C function to check if latitude is in line area CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC Logical Function inArea( x, nval, values) result(result) Implicit None ! arguments Real x Integer nval Real values(*) ! local variables Integer nsort Integer i, ltv, gtv, eqv logical sorted Real temp result = .false. ! sort the values nsort = nval do sorted = .true. nsort = nsort-1 do i=1,nsort if( values(i).gt.values(i+1) ) then temp = values(i) values(i) = values(i+1) values(i+1) = temp sorted=.false. endif enddo if(sorted) EXIT enddo ! check if x is between values do i=1,nval-1,2 if( x.ge.values(i) .and. x.le.values(i+1) ) result = .true. enddo ! BHH: alternative method is to check for odd/even intersections ! does not require sorting, but also requires only unique ! vertices. Put in for posterity. Future revisions may choose ! this method ! !ltv = 0 !gtv = 0 !do i=1,nval ! if ( x.gt.values(i) ) gtv = gtv + 1 ! if ( x.lt.values(i) ) ltv = ltv + 1 ! if ( x.eq.values(i) ) eqv = ltv + 1 !enddo ! ! odd intersections in both directions means inside. ! even intersections in both directions means outside. !if ( (MOD(gtv, 2).eq.1).and.(MOD(ltv, 2).eq.1) ) result = .true. ! ! if on an exteror linearring abutting another, it could be assigned ! to either polygon. This would assign true to both. !if ( eqv.gt.0 ) result = .true. return end Function inArea ================================================ FILE: POST/hr2day/src/hr2day.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! PROGRAM HR2DAY C**************************************************************************************** C Converts hourly data values to daily C C Using 11 different operations C [sum, avg, min, max, hr@min, hr@max, @maxT, maxdif, 8hrmax, w126, C @8hrmaxO3, hr@8hrmax, sum06] C C sum - sums the 24 hour values C avg - sums the 24 values and divides by 24 C min - uses the minimum hourly value C max - uses the maximum hourly value C hr@min - hour at the minimum hourly value C hr@max - hour at the maximum hourly value C @maxT - uses the hourly value at maximum temperature C maxdif - uses the maximum hourly change C 8hrmax - uses the maximum 8 hour period C w126 - calculates daily w126 index values for use in secondary C ozone standard calculations C @8hrmaxO3 - averages the value within the 8-hr-max ozone period C hr@8hrmax - Starting hour of the 8-hr-max period C sum06 - sums all values>=0.06ppm between 8am & 8pm C C A daily value is marked as missing when fewer then 18 hourly values C are valid. For 8-hr-max calculations, each 8-hour period must have C six or more valid hourly values. C C USELOCAL using local time, else uses GMT C c PROGRAM hr2day.exe c C******************************************************************************* USE M3UTILIO USE species_def USE evaluator USE ENV_VARS USE M3FILES USE GRID_DATA USE TIME_STEP IMPLICIT NONE C External functions real getTZ C local variables integer status logical rstatus integer logdev integer c, r, n, h, i integer tzadj, hr1 integer curdate, curtime, cdate, ctime integer first_date, first_time, last_date, last_time, runlen real x,y,longitude,latitude character*(256) MSG character*(16) PNAME DATA PNAME / 'hr2day' / C Array to store hourly input values real, allocatable :: hrValues (:, :, :) real, allocatable :: dayValues (:, :) integer, allocatable :: tzoffset(:,:) real, allocatable :: ftzoffset(:,:) integer, allocatable :: offset(:,:) C... start program logdev = init3 () ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Get the Models-3 file(s) to process and the other environment c variables ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc CALL OPEN_M3FILES ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Check the file(s) for consistency and make sure the requested c species is on the file(s) ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc CALL CK_M3FLS() ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Get the grid definition and the tsteps from the M3 files ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc CALL GET_M3GRID CALL GET_TSTEPS C... load file description from first INFILE IF( .NOT. DESC3 ( M3_FLNAME( 1 ) ) ) THEN MSG = 'Could not read DESC of ' // M3_FLNAME( 1 ) & // ' file' CALL M3ERR( PNAME, 0, 0, MSG, .TRUE. ) ENDIF C... check for 1 hour time step if( TSTEP3D.ne.10000 ) then Call m3err(PNAME, 0, 0, 'Input file must have One hour time step', .TRUE.) endif C... get environment variables call GET_ENVS c c... set up the correct projection c if (GDTYP3D.eq.1) then !lat/lon, nothing to initialize continue elseif (GDTYP3D.eq.2) then !initialize Lambert projection if( .NOT. SETLAM( Real(P_ALP3D), Real(P_BET3D), Real(P_GAM3D), & Real(XCENT3D), Real(YCENT3D) )) then Call m3exit (PNAME, 0, 0, 'Lambert projection setup error', xstat2) endif elseif (GDTYP3D.eq.6) then !initialize polar stereographic projection if( .NOT. SETPOL( Real(P_ALP3D), Real(P_BET3D), Real(P_GAM3D), & Real(XCENT3D), Real(YCENT3D) )) then Call m3exit (PNAME, 0, 0, 'Polar Stereographic projection setup error', xstat2) endif elseif (GDTYP3D.eq.7) then !initialize equatorial mercator projection if( .NOT. SETEQM( Real(P_ALP3D), Real(P_BET3D), Real(P_GAM3D), & Real(XCENT3D), Real(YCENT3D) )) then Call m3exit (PNAME, 0, 0, 'Equatorial mercator projection setup error', xstat2) endif else Call m3exit (PNAME, 0, 0, 'Grid projection not supported', xstat2) endif C... store first and last day/time to process from module_tstep (across all input files) first_date = STEP_DATE(1) first_time = STEP_TIME(1) last_date = STEP_DATE(NSTEPS) last_time = STEP_TIME(NSTEPS) c... adjust first and last date based on START_DATE and END_DATE envvars first_date = MAX( first_date, START_DATE) last_date = MIN( last_date, END_DATE) C... get species definitions from system variables Call loadSpecies() C... create output file NLAYS3D = 1 SDATE3D = first_date STIME3D = 000000 TSTEP3D = 240000 NVARS3D = NSPECVAR do n = 1, NSPECVAR VNAME3D(n) = SPECVARS(n)%NAME VDESC3D(n) = SPECVARS(n)%DESCRIPTION UNITS3D(n) = SPECVARS(n)%UNITS VTYPE3D(n) = M3REAL enddo if(.not. open3('OUTFILE',3,PNAME)) then if(.not. open3('OUTFILE',2,PNAME)) then Call m3err('average', 0, 0, 'Could not open OUTFILE file',.TRUE.) endif endif C... Allocate memory for data arrays Allocate( tzoffset(NCOLS3D, NROWS3D) ) Allocate( ftzoffset(NCOLS3D, NROWS3D) ) Allocate( offset(NCOLS3D, NROWS3D) ) Allocate( hrValues (-36:66, NCOLS3D, NROWS3D) ) Allocate( dayValues (NCOLS3D, NROWS3D) ) ! set tzoffset array values ftzoffset = 0 tzoffset = 0 if( useLocal ) then write(*,'(/,''Computing timezone offsets for grid cells'',/)') do r=1,NROWS3D do c=1,NCOLS3D x = XORIG3D + (c-0.5) * XCELL3D y = YORIG3D + (r-0.5) * YCELL3D if (GDTYP3D.eq.1) then !lat/lon grid, x/y already lon/lat longitude=x latitude=y elseif (GDTYP3D.eq.2) then ! convert Lambert coordinates to lat/lon if( .NOT. LAM2LL(x, y, longitude, latitude) ) then Call m3exit (PNAME, 0, 0, 'Lat/Lon conversion error', xstat2) endif elseif (GDTYP3D.eq.6) then !convert polar stereographic coordinates to lat/lon if( .NOT. POL2LL(x, y, longitude, latitude) ) then Call m3exit (PNAME, 0, 0, 'Lat/Lon conversion error', xstat2) endif elseif (GDTYP3D.eq.7) then !convert equatorial mercator coordinates to lat/lon if( .NOT. EQM2LL(x, y, longitude, latitude) ) then Call m3exit (PNAME, 0, 0, 'Lat/Lon conversion error', xstat2) endif else Call m3exit (PNAME, 0, 0, 'Grid projection not supported', xstat2) endif ftzoffset(c,r) = getTZ(longitude, latitude) tzoffset(c,r) = ftzoffset(c,r) enddo enddo endif C... reload file description from INFILE IF( .NOT. DESC3 ( M3_FLNAME( 1 ) ) ) THEN MSG = 'Could not read DESC of ' // M3_FLNAME( 1 ) & // ' file' CALL M3ERR( PNAME, 0, 0, MSG, .TRUE. ) ENDIF C... start loop to read and process each variable do n = 1, NSPECVAR hr1 = -36 curDate = first_date curTime = first_time hrValues = BADVAL3 dayValues = BADVAL3 ! start loops to read hourly values for each day Do cDate = curDate cTime = hr1 * 10000 offset = tzoffset if(useDST .and. isDSTime(cDate)) offset = offset - 1 ! adjustment for daylight savings time call NEXTIME(cDate,cTime,0) !reformat to make sure hours are between 0 and 23 Do h=hr1,66 rstatus = .false. hrValues(h,:,:) = BADVAL3 if( (SECSDIFF(STEP_DATE(1), STEP_TIME(1), cdate, ctime) .ge. 0) & .and. (SECSDIFF(cdate, ctime, STEP_DATE(NSTEPS), STEP_TIME(NSTEPS)) .ge. 0) ) then Call evaluate(SPECVARS(n)%EXPRESSION, cdate, ctime, 1, NCOLS3D*NROWS3D, hrValues(h,:,:)) endif Call NEXTIME(cDate, cTime, 10000) enddo ! compute daily values if( SPECVARS(n)%OPERATION .eq. 'SUM' ) then Call sumValues(hrValues, dayValues, offset) endif if( SPECVARS(n)%OPERATION .eq. 'AVG' ) then Call avgValues(hrValues, dayValues, offset) endif if( SPECVARS(n)%OPERATION .eq. 'MIN' ) then Call minValues(hrValues, dayValues, offset) endif if( SPECVARS(n)%OPERATION .eq. 'MAX' ) then Call maxValues(hrValues, dayValues, offset) endif if( SPECVARS(n)%OPERATION .eq. 'HR@MIN' ) then Call minHrValues(hrValues, dayValues, offset) endif if( SPECVARS(n)%OPERATION .eq. 'HR@MAX' ) then Call maxHrValues(hrValues, dayValues, offset) endif if( SPECVARS(n)%OPERATION .eq. '@MAXT' ) then Call maxTValues(hrValues, dayValues, offset, curDate) endif if( SPECVARS(n)%OPERATION .eq. 'MAXDIF' ) then Call maxDifValues(hrValues, dayValues, offset) endif if( SPECVARS(n)%OPERATION .eq. '8HRMAX' ) then Call max8hr(hrValues, dayValues, offset) endif if( SPECVARS(n)%OPERATION .eq. 'W126' ) then Call w126_daily(hrValues, dayValues, offset, SPECVARS(n)%UNITS) endif if( SPECVARS(n)%OPERATION .eq. '@8HRMAXO3' ) then Call maxO3Values(hrValues, dayValues, offset, curDate) endif if( SPECVARS(n)%OPERATION .eq. 'HR@8HRMAX' ) then Call max8hrHour(hrValues, dayValues, offset) endif if( SPECVARS(n)%OPERATION .eq. 'SUM06' ) then Call sum06(hrValues, dayValues, offset, SPECVARS(n)%UNITS) endif if( SPECVARS(n)%OPERATION .eq. 'TZ' ) then dayValues(:,:) = -REAL(ftzoffset(:,:)) endif ! write daily values to output if(.not.write3('OUTFILE',SPECVARS(n)%NAME,curDate,000000,dayValues)) then Call m3err (PNAME, curDate, 0, 'Write Error for ' // SPECVARS(n)%NAME, .TRUE.) endif ! copy current day's values to next day do h = -36, 42 hrValues( h,:,:) = hrvalues(h+24,:,:) enddo ! go to next time step Call NEXTIME(curdate, curtime, 240000) ! if current date at noon is past last date and time, then exit loop if(SECSDIFF(curDate, 120000, last_date, last_time) .le. 0) EXIT hr1 = 43 endDo ! end (time-step-loop) enddo ! var loop rstatus = SHUT3 () stop END Program HR2DAY cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c c Routine to sum hourly values at each cell c cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc Subroutine sumValues(hrValues, dayValues, tzoffset) USE M3UTILIO USE ENV_VARS IMPLICIT NONE C... arguments Real hrValues(-36:66, NCOLS3D, NROWS3D) Real dayValues(NCOLS3D, NROWS3D) Integer tzoffset(NCOLS3D, NROWS3D) C... local variables Integer c, r, h, count Real sum C... start loops to find daily sum Do r = 1, NROWS3D Do c = 1, NCOLS3D dayValues(c,r) = BADVAL3 sum = 0.0 count = 0 Do h = tzoffset(c,r)+startHr ,tzoffset(c,r)+endHr if( hrValues(h,c,r) .gt. BADVAL3 ) then count = count+1 sum = sum + hrValues(h,c,r) endif endDo ! end hour loop if(partDay .or. count.ge.18) dayValues(c,r) = sum endDo ! end column loop endDo ! end row loop return end Subroutine sumValues cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c c Routine to average hourly values at each cell c cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc Subroutine avgValues(hrValues, dayValues, tzoffset) USE M3UTILIO USE ENV_VARS IMPLICIT NONE C... arguments Real hrValues(-36:66, NCOLS3D, NROWS3D) Real dayValues(NCOLS3D, NROWS3D) Integer tzoffset(NCOLS3D, NROWS3D) C... local variables Integer c, r, h, count Real sum C... start loops to find daily sum Do r = 1, NROWS3D Do c = 1, NCOLS3D dayValues(c,r) = BADVAL3 sum = 0.0 count = 0 Do h = tzoffset(c,r)+startHr ,tzoffset(c,r)+endHr if( hrValues(h,c,r) .gt. BADVAL3 ) then count = count+1 sum = sum + hrValues(h,c,r) endif endDo ! end hour loop if( count.ge.18 ) dayValues(c,r) = sum/count if(partDay .and. count.ge.1) dayValues(c,r) = sum/count endDo ! end column loop endDo ! end row loop return end Subroutine avgValues cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c c Routine to find the minimum hourly value at each cell c cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc Subroutine minValues(hrValues, dayValues, tzoffset) USE M3UTILIO USE ENV_VARS IMPLICIT NONE C... arguments Real hrValues(-36:66, NCOLS3D, NROWS3D) Real dayValues(NCOLS3D, NROWS3D) Integer tzoffset(NCOLS3D, NROWS3D) C... local variables Integer c, r, h, count Real minValue C... start loops to find daily sum Do r = 1, NROWS3D Do c = 1, NCOLS3D count = 0 dayValues(c,r) = BADVAL3 minValue = 1.0E32 Do h = tzoffset(c,r)+startHr ,tzoffset(c,r)+endHr if( hrValues(h,c,r) .gt. BADVAL3 ) then count = count+1 if( hrValues(h,c,r).lt.minValue ) minValue = hrValues(h,c,r) endif endDo ! end hour loop if(partDay .or. count.ge.18) dayValues(c,r) = minValue endDo ! end column loop endDo ! end row loop return end Subroutine minValues cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c c Routine to find the hour at the minimum hourly value at each cell c cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc Subroutine minHrValues(hrValues, dayValues, tzoffset) USE M3UTILIO USE ENV_VARS IMPLICIT NONE C... arguments Real hrValues(-36:66, NCOLS3D, NROWS3D) Real dayValues(NCOLS3D, NROWS3D) Integer tzoffset(NCOLS3D, NROWS3D) C... local variables Integer c, r, h, count Real minValue Real minHour C... start loops to find daily sum Do r = 1, NROWS3D Do c = 1, NCOLS3D count = 0 dayValues(c,r) = BADVAL3 minValue = 1.0E32 minHour = BADVAL3 Do h = tzoffset(c,r)+startHr ,tzoffset(c,r)+endHr if( hrValues(h,c,r) .gt. BADVAL3 ) then count = count+1 if( hrValues(h,c,r).lt.minValue ) then minValue = hrValues(h,c,r) minHour = h - tzoffset(c,r) endif endif endDo ! end hour loop if(partDay .or. count.ge.18) dayValues(c,r) = minHour endDo ! end column loop endDo ! end row loop return end Subroutine minHrValues cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c c Routine to find the maximum hourly value at each cell c cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc Subroutine maxValues(hrValues, dayValues, tzoffset) USE M3UTILIO USE ENV_VARS IMPLICIT NONE C... arguments Real hrValues(-36:66, NCOLS3D, NROWS3D) Real dayValues(NCOLS3D, NROWS3D) Integer tzoffset(NCOLS3D, NROWS3D) C... local variables Integer c, r, h, count Real maxValue C... start loops to find daily sum Do r = 1, NROWS3D Do c = 1, NCOLS3D maxValue = BADVAL3 dayValues(c,r) = BADVAL3 count = 0 Do h = tzoffset(c,r)+startHr ,tzoffset(c,r)+endHr if( hrValues(h,c,r) .gt. BADVAL3 ) then count = count+1 if( hrValues(h,c,r) .gt. maxValue ) maxValue = hrValues(h,c,r) endif endDo ! end hour loop if(partDay .or. count.ge.18) dayValues(c,r) = maxValue endDo ! end column loop endDo ! end row loop return end Subroutine maxValues cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c c Routine to find the hour at the maximum hourly value at each cell c cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc Subroutine maxHrValues(hrValues, dayValues, tzoffset) USE M3UTILIO USE ENV_VARS IMPLICIT NONE C... arguments Real hrValues(-36:66, NCOLS3D, NROWS3D) Real dayValues(NCOLS3D, NROWS3D) Integer tzoffset(NCOLS3D, NROWS3D) C... local variables Integer c, r, h, count Real maxValue Real maxHour C... start loops to find daily sum Do r = 1, NROWS3D Do c = 1, NCOLS3D maxValue = BADVAL3 maxHour = BADVAL3 dayValues(c,r) = BADVAL3 count = 0 Do h = tzoffset(c,r)+startHr ,tzoffset(c,r)+endHr if( hrValues(h,c,r) .gt. BADVAL3 ) then count = count+1 if( hrValues(h,c,r) .gt. maxValue ) then maxValue = hrValues(h,c,r) maxHour = h - tzoffset(c,r) endif endif endDo ! end hour loop if(partDay .or. count.ge.18) dayValues(c,r) = maxHour endDo ! end column loop endDo ! end row loop return end Subroutine maxHrValues cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c c Routine to find the value when at maximum temperature c cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc Subroutine maxTValues(hrValues, dayValues, tzoffset, curDate) USE M3UTILIO USE ENV_VARS USE M3FILES USE TIME_STEP IMPLICIT NONE C... arguments Real hrValues(-36:66, NCOLS3D, NROWS3D) Real dayValues(NCOLS3D, NROWS3D) Integer tzoffset(NCOLS3D, NROWS3D) Integer curDate C... local variables Integer status Logical, save :: first=.true. Integer, save :: first_date Integer, save :: first_time Integer, save :: last_date Integer, save :: last_time Real, save,allocatable :: tvalues(:,:,:) Integer runlen INTEGER ISTEP Integer c, r, h, count Integer cdate, ctime Real maxTemp, value C... first pass if( first ) then first = .false. Allocate ( tvalues(-36:66, NCOLS3D, NROWS3D) ) C... store first and last day/time to process from module_tstep (across all input files) first_date = STEP_DATE(1) first_time = STEP_TIME(1) last_date = STEP_DATE(NSTEPS) last_time = STEP_TIME(NSTEPS) c... adjust first and last date based on START_DATE and END_DATE envvars first_date = MAX( first_date, START_DATE) last_date = MIN( last_date, END_DATE) endif ! first pass C... read temperature values and fill tvalues array cdate = curDate ctime = -36 * 10000 call NEXTIME(cDate,cTime,0) !reformat to make sure hours are between 0 and 23 tvalues = BADVAL3 do h=-36,66 if( (SECSDIFF(STEP_DATE(1), STEP_TIME(1), cdate, ctime) .ge. 0) & .and. (SECSDIFF(cdate, ctime, STEP_DATE(NSTEPS), STEP_TIME(NSTEPS)) .ge. 0) ) then ISTEP = FIND2( CDATE, CTIME, NSTEPS, STEP_DATE, STEP_TIME) if(.not.READ3(M3_FLNAME(STEP_FILE(ISTEP)), tempvar, 1, cdate, ctime, tvalues(h,:,:)) ) then Write(*,'(''Cannot read temperature data for @MAXT operation'')') endif endif Call NEXTIME(cDate, cTime, 10000) enddo C... start loops to find maximum temperature for each cell Do r = 1, NROWS3D Do c = 1, NCOLS3D dayValues(c,r) = BADVAL3 maxTemp = BADVAL3 value = BADVAL3 count = 0 Do h = tzoffset(c,r)+startHr ,tzoffset(c,r)+endHr if( hrValues(h,c,r) .gt. BADVAL3 ) then count = count+1 if( tvalues(h,c,r) .gt. maxTemp ) then maxTemp = tvalues(h,c,r) value = hrValues(h,c,r) endif endif endDo ! end hour loop if(partDay .or. count.ge.18) dayValues(c,r) = value endDo ! end column loop endDo ! end row loop return end Subroutine maxTValues cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c c Routine to find the value in 8-hour-max ozone period c cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc Subroutine maxO3Values(hrValues, dayValues, tzoffset, curDate) USE M3UTILIO USE ENV_VARS USE M3FILES USE TIME_STEP IMPLICIT NONE C... arguments Real hrValues(-36:66, NCOLS3D, NROWS3D) Real dayValues(NCOLS3D, NROWS3D) Integer tzoffset(NCOLS3D, NROWS3D) Integer curDate INTEGER ISTEP C... local variables Logical, save :: first=.true. Integer, save :: first_date Integer, save :: first_time Integer, save :: last_date Integer, save :: last_time c Character*(16) ozonevar Real, save,allocatable :: O3values(:,:,:) Integer runlen Integer c, r, h, i Integer cdate, ctime Integer count, nperiods Real o3sum, sum, maxValue, sumValue, avg INTEGER STATUS ! Status code c INTEGER HOURS_8HRMAX ! number of 8hr values to compute 8hr max CHARACTER*16 ENV_DESC ! message string CHARACTER*16 PNAME ! Program Name CHARACTER*80 MSG ! Error message DATA PNAME / 'HR2DAY' / C... first pass if( first ) then first = .false. Allocate ( O3values(-36:66, NCOLS3D, NROWS3D) ) C... store first and last day/time to process from module_tstep (across all input files) first_date = STEP_DATE(1) first_time = STEP_TIME(1) last_date = STEP_DATE(NSTEPS) last_time = STEP_TIME(NSTEPS) c... adjust first and last date based on START_DATE and END_DATE envvars first_date = MAX( first_date, START_DATE) last_date = MIN( last_date, END_DATE) endif ! first pass C... read ozone values and fill tvalues array cdate = curDate ctime = -36 * 10000 call NEXTIME(cDate,cTime,0) !reformat to make sure hours are between 0 and 23 O3values = BADVAL3 do h=-36,66 if( (SECSDIFF(STEP_DATE(1), STEP_TIME(1), cdate, ctime) .ge. 0) & .and. (SECSDIFF(cdate, ctime, STEP_DATE(NSTEPS), STEP_TIME(NSTEPS)) .ge. 0) ) then ISTEP = FIND2( CDATE, CTIME, NSTEPS, STEP_DATE, STEP_TIME) if(.not.READ3(M3_FLNAME(STEP_FILE(ISTEP)), ozonevar, 1, cdate, ctime, O3values(h,:,:)) ) then Write(*,'(''Cannot read Ozone data for @8HRMAXO3 operation'')') endif endif Call NEXTIME(cDate, cTime, 10000) enddo C... start loops to find max 8-hr and save sum of hrValues Do r = 1, NROWS3D Do c = 1, NCOLS3D dayValues(c,r) = BADVAL3 maxValue = BADVAL3 sumValue = BADVAL3 nperiods = 0 if ( HOURS_8HRMAX .eq. 24 ) then ! use 24 8hr values Do h = tzoffset(c,r),tzoffset(c,r)+23 o3sum = 0 sum = 0 count = 0 Do i = 0,7 if(( O3values(h+i,c,r) .gt. BADVAL3 ) .and. * ( hrValues(h+i,c,r) .gt. BADVAL3 )) then o3sum = o3sum + O3values(h+i,c,r) sum = sum + hrValues(h+i,c,r) count = count + 1 endif enddo ! end 8 hour loop if(count.ge.6) then nperiods = nperiods + 1 avg = o3sum / count if( avg.gt.maxValue) then maxvalue = avg sumvalue = sum/count endif endif endDo ! end hour loop if(partDay .or. nperiods.ge.18) dayValues(c,r) = sumValue !require 18/24 else !use only 17 8hr values, from 7 am to 11 pm LT Do h = tzoffset(c,r)+7,tzoffset(c,r)+23 o3sum = 0 sum = 0 count = 0 Do i = 0,7 if(( O3values(h+i,c,r) .gt. BADVAL3 ) .and. * ( hrValues(h+i,c,r) .gt. BADVAL3 )) then o3sum = o3sum + O3values(h+i,c,r) sum = sum + hrValues(h+i,c,r) count = count + 1 endif enddo ! end 8 hour loop if(count.ge.6) then nperiods = nperiods + 1 avg = o3sum / count if( avg.gt.maxValue) then maxvalue = avg sumvalue = sum/count endif endif endDo ! end hour loop if(partDay .or. nperiods.ge.13) dayValues(c,r) = sumValue !require 13/17 endif endDo ! end column loop endDo ! end row loop return end Subroutine maxO3Values cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c c Routine to find the maximum hourly change c cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc Subroutine maxDifValues(hrValues, dayValues, tzoffset) USE M3UTILIO USE ENV_VARS IMPLICIT NONE C... arguments Real hrValues(-36:66, NCOLS3D, NROWS3D) Real dayValues(NCOLS3D, NROWS3D) Integer tzoffset(NCOLS3D, NROWS3D) C... local variables Integer c, r, h, count Real diff Real maxValue C... start loops to find daily sum Do r = 1, NROWS3D Do c = 1, NCOLS3D count = 0 dayValues(c,r) = BADVAL3 maxValue = BADVAL3 Do h = tzoffset(c,r)+startHr ,tzoffset(c,r)+endHr-1 if( hrValues(h,c,r).gt.BADVAL3 .and. hrValues(h+1,c,r).gt.BADVAL3) then count = count + 1 diff = ABS( hrValues(h+1,c,r) - hrValues(h,c,r) ) if( diff .gt. maxValue ) then maxValue = diff endif endif endDo ! end hour loop if(partDay .or. count.ge.18) dayValues(c,r) = maxValue endDo ! end column loop endDo ! end row loop return end Subroutine maxDifValues cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c c Routine to find the 8-hour maximum value at each cell c cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc Subroutine max8hr(hrValues, dayValues, tzoffset) USE M3UTILIO USE ENV_VARS IMPLICIT NONE C... arguments Real hrValues(-36:66, NCOLS3D, NROWS3D) Real dayValues(NCOLS3D, NROWS3D) Integer tzoffset(NCOLS3D, NROWS3D) C... local variables Integer c, r, h, i, count, nperiods Real sum, maxValue, avg INTEGER STATUS ! Status code c INTEGER HOURS_8HRMAX ! number of 8hr values to compute 8hr max CHARACTER*16 ENV_DESC ! message string CHARACTER*16 PNAME ! Program Name CHARACTER*80 MSG ! Error message DATA PNAME / 'HR2DAY' / C... Get the HOURS_8HRMAX environment variable (default is 24) c ENV_DESC = 'Number of 8hr values to use when computing DM8HR' c HOURS_8HRMAX= ENVINT( 'HOURS_8HRMAX', ENV_DESC, 24, STATUS) c if ( ( HOURS_8HRMAX .NE. 24) .AND. ( HOURS_8HRMAX .NE. 17) ) THEN c MSG = '**Error** Invalid value for HOURS_8HRMAX, use 24 or 17' c CALL M3ERR( PNAME, 0, 0, MSG, .TRUE. ) c Stop c Endif C... start loops to find max 8-hr Do r = 1, NROWS3D Do c = 1, NCOLS3D dayValues(c,r) = BADVAL3 maxValue = BADVAL3 nperiods = 0 if ( HOURS_8HRMAX .eq. 24 ) then ! use 24 8hr values Do h = tzoffset(c,r),tzoffset(c,r)+23 sum = 0 count = 0 Do i = 0,7 if( hrValues(h+i,c,r) .gt. BADVAL3 ) then sum = sum + hrValues(h+i,c,r) count = count + 1 endif enddo ! end 8 hour loop if(count.ge.6) then nperiods = nperiods + 1 avg = sum/count if( avg .gt. maxValue ) maxValue = avg endif endDo ! end hour loop if(partDay .or. nperiods.ge.18) dayValues(c,r) = maxValue !require 18/24 else !use only 17 8hr values, from 7 am to 11 pm LT Do h = tzoffset(c,r)+7,tzoffset(c,r)+23 sum = 0 count = 0 Do i = 0,7 if( hrValues(h+i,c,r) .gt. BADVAL3 ) then sum = sum + hrValues(h+i,c,r) count = count + 1 endif enddo ! end 8 hour loop if(count.ge.6) then nperiods = nperiods + 1 avg = sum/count if( avg .gt. maxValue ) maxValue = avg endif endDo ! end hour loop if(partDay .or. nperiods.ge.13) dayValues(c,r) = maxValue !require 13/17 endif endDo ! end column loop endDo ! end row loop return end Subroutine max8hr cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c c Routine to find the starting hour of the 8-hour maximum period c cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc Subroutine max8hrHour(hrValues, dayValues, tzoffset) USE M3UTILIO USE ENV_VARS IMPLICIT NONE C... arguments Real hrValues(-36:66, NCOLS3D, NROWS3D) Real dayValues(NCOLS3D, NROWS3D) Integer tzoffset(NCOLS3D, NROWS3D) C... local variables Integer c, r, h, i, count, nperiods Real sum, maxValue, avg Integer maxHour INTEGER STATUS ! Status code c INTEGER HOURS_8HRMAX ! number of 8hr values to compute 8hr max CHARACTER*16 ENV_DESC ! message string CHARACTER*16 PNAME ! Program Name CHARACTER*80 MSG ! Error message DATA PNAME / 'HR2DAY' / C... Get the HOURS_8HRMAX environment variable (default is 24) c ENV_DESC = 'Number of 8hr values to use when computing DM8HR' c HOURS_8HRMAX= ENVINT( 'HOURS_8HRMAX', ENV_DESC, 24, STATUS) c if ( ( HOURS_8HRMAX .NE. 24) .AND. ( HOURS_8HRMAX .NE. 17) ) THEN c MSG = '**Error** Invalid value for HOURS_8HRMAX, use 24 or 17' c CALL M3ERR( PNAME, 0, 0, MSG, .TRUE. ) c Stop c Endif C... start loops to find max 8-hr Do r = 1, NROWS3D Do c = 1, NCOLS3D dayValues(c,r) = BADVAL3 maxValue = BADVAL3 maxHour = 0 nperiods = 0 if ( HOURS_8HRMAX .eq. 24 ) then ! use 24 8hr values Do h = tzoffset(c,r),tzoffset(c,r)+23 sum = 0 count = 0 Do i = 0,7 if( hrValues(h+i,c,r) .gt. BADVAL3 ) then sum = sum + hrValues(h+i,c,r) count = count + 1 endif enddo ! end 8 hour loop if(count.ge.6) then nperiods = nperiods + 1 avg = sum/count if( avg .gt. maxValue ) then maxValue = avg maxHour = h - tzoffset(c,r) !! maxHour is in local time (0-23) endif endif endDo ! end hour loop if(partDay .or. nperiods.ge.18) dayValues(c,r) = 1.0 * maxHour !require 18/24 else !use only 17 8hr values, from 7 am to 11 pm LT Do h = tzoffset(c,r)+7,tzoffset(c,r)+23 sum = 0 count = 0 Do i = 0,7 if( hrValues(h+i,c,r) .gt. BADVAL3 ) then sum = sum + hrValues(h+i,c,r) count = count + 1 endif enddo ! end 8 hour loop if(count.ge.6) then nperiods = nperiods + 1 avg = sum/count if( avg .gt. maxValue ) then maxValue = avg maxHour = h - tzoffset(c,r) !! maxHour is in local time (0-23) endif endif endDo ! end hour loop if(partDay .or. nperiods.ge.13) dayValues(c,r) = 1.0 * maxHour !require 13/17 endif endDo ! end column loop endDo ! end row loop return end Subroutine max8hrHour cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c c Routine to compute to daily W126 values, sums the weighted concentrations c in ppm between 8am & 8pm at each cell c These daily W126 index values can then be used in subsequent calculations c for the secondary ozone standard by summing the daily index values over c consecutive 3 month periods and determining the maximum of these 3 months c sums. c cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc Subroutine w126_daily(hrValues, dayValues, tzoffset, units) USE M3UTILIO USE ENV_VARS IMPLICIT NONE C... arguments Real hrValues(-36:66, NCOLS3D, NROWS3D) Real dayValues(NCOLS3D, NROWS3D) Integer tzoffset(NCOLS3D, NROWS3D) Character*(*) units C... local variables Integer c, r, h, count Real ozone Real sum Real factor C... set factor value to covert to ppm factor = 1.0 if( INDEX(units,'ppb') .gt.0 ) factor = 0.001 ! to convert from ppb to ppm C... start loops to find daily sum Do r = 1, NROWS3D Do c = 1, NCOLS3D sum = 0.0 count = 0 Do h = tzoffset(c,r)+8,tzoffset(c,r)+19 ! go from 8am to 7pm local time if( hrValues(h,c,r) .ge. 0.0 ) then count = count+1 ozone = factor * hrValues(h,c,r) sum = sum + ozone / (1.0 + 4403.0 * EXP( -126.0 * ozone )) endif endDo ! end hour loop if( partDay .or. count.ge.9 ) then dayValues(c,r) = sum / factor endif endDo ! end column loop endDo ! end row loop return end Subroutine w126_daily cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c c Routine to sum hourly values >= 0.06ppm between 8am & 8pm at each cell c cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc Subroutine sum06(hrValues, dayValues, tzoffset, units) USE M3UTILIO USE ENV_VARS IMPLICIT NONE C... arguments Real hrValues(-36:66, NCOLS3D, NROWS3D) Real dayValues(NCOLS3D, NROWS3D) Integer tzoffset(NCOLS3D, NROWS3D) Character*(*) units C... local variables Integer c, r, h, count Real sum Real minValue C... set minimum cutoff value minValue = 0.06 ! default is 0.06 ppm if( INDEX(units,'ppb') .gt.0 ) minValue = 1000.0 * minValue C... start loops to find daily sum Do r = 1, NROWS3D Do c = 1, NCOLS3D sum = 0.0 count = 0 Do h = tzoffset(c,r)+8,tzoffset(c,r)+20 if( hrValues(h,c,r) .ge. minValue ) then count = count+1 sum = sum + hrValues(h,c,r) endif endDo ! end hour loop dayValues(c,r) = sum endDo ! end column loop endDo ! end row loop return end Subroutine sum06 ================================================ FILE: POST/hr2day/src/module_envvar.F ================================================ !-----------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !-----------------------------------------------------------------------! C************************************************************************* C C MODULE: defines and gets environment variables C C************************************************************************* MODULE ENV_VARS INTEGER START_DATE ! starting date of period to process INTEGER END_DATE ! ending date of period to process INTEGER STARTHR ! starting hour of the daily time period to process INTEGER ENDHR ! ending hour of the daily time period to process INTEGER HOURS_8HRMAX ! Number of hours to use for 8HR Max LOGICAL PARTDAY ! Compute partial day for last day LOGICAL USELOCAL ! Use local time LOGICAL USEDST ! Daylight Savings flag CHARACTER*(16) OZONEVAR ! Ozone variable CHARACTER*(16) TEMPVAR ! Temperature variable CONTAINS SUBROUTINE GET_ENVS C************************************************************************* C C FUNCTION: To get environment variables C C C************************************************************************* USE M3UTILIO USE TIME_STEP IMPLICIT NONE C..SAVED LOCAL VARIABLES: None C..SCRATCH LOCAL VARIABLES: CHARACTER*16 PNAME ! Program Name CHARACTER*80 MSG ! Error message INTEGER STATUS ! Status code INTEGER I C********************************************************************** DATA PNAME / 'GET_ENVS' / cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Get the starting and ending dates and times cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C...get starting date and time start_date = ENVINT('START_DATE','Start date for output period', STEP_DATE(1), STATUS) C...get ending date and time end_date = ENVINT('END_DATE','End date for output period', STEP_DATE(NSTEPS), STATUS) if( start_date .gt. end_date ) then MSG = '**Error** Invalid time window defined, START_DATE > END_DATE' CALL M3ERR( PNAME, 0, 0, MSG, .TRUE. ) Stop Endif C... get starting and ending hours for time window startHr = ENVINT('START_HOUR',"Starting Hour of daily time window", 0, status) endHr = ENVINT('END_HOUR',"Ending Hour of daily time window", 23, status) if( startHr .gt. endHr ) then MSG = '**Error** Invalid time window defined, START_HOUR > END_HOUR' CALL M3ERR( PNAME, 0, 0, MSG, .TRUE. ) Stop Endif C... get compute partial day switch partDay = ENVYN('PARTIAL_DAY',"Compute partial day values", .FALSE., status) C... get use local time switch useLocal = ENVYN('USELOCAL',"Use local time", .FALSE., status) C... get use daylight savings time switch id uselocal useDST = .false. if( useLocal ) then useDST = ENVYN('USEDST',"Use Daylight Savings time", .FALSE., status) endif C... Get the HOURS_8HRMAX environment variable (default is 24) HOURS_8HRMAX = ENVINT( 'HOURS_8HRMAX', & 'Number of 8hr values to use when computing DM8HR', 24, STATUS) if ( ( HOURS_8HRMAX .NE. 24) .AND. ( HOURS_8HRMAX .NE. 17) ) THEN MSG = '**Error** Invalid value for HOURS_8HRMAX, use 24 or 17' CALL M3ERR( PNAME, 0, 0, MSG, .TRUE. ) Stop Endif C... get temperature variable Call ENVSTR('TEMPERATURE','Temperature species used in @MAXT operation', & 'TEMP2', tempvar, status) C... get ozone variable Call ENVSTR('OZONE','Ozone species used in @8HRMAXO3 operation', & 'O3', ozonevar, status) RETURN END SUBROUTINE GET_ENVS END MODULE ENV_VARS ================================================ FILE: POST/hr2day/src/module_evaluator.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/work/rep/TOOLS/src/combine/module_evaluator.F,v 1.1.1.1 2005/07/27 12:55:20 sjr Exp $ C*********************************************************************** C C MODULE: evaluates species expressions C C*********************************************************************** MODULE evaluator Real, Private, Allocatable :: parseBuffer(:,:) Integer, Private :: idate Integer, Private :: itime Integer, Private :: ilayer Integer, Private :: isize CONTAINS C subroutine to evaluate species expression at date C returns buffer array values Subroutine evaluate(expression,jdate,jtime,jlayer,jsize,buffer) IMPLICIT NONE ! arguments Character*(*) expression Integer jdate, jtime Integer jlayer Integer jsize Real buffer(jsize) ! local variables Character*(512) expresscp Character*(512) express Integer nparen Integer depth, maxdepth Integer i, n, pos1, pos2 Character*(5) nstring Logical KSWIT ! set module variables idate = jdate itime = jtime ilayer = jlayer isize = jsize ! find number of parentheses and depth nparen = 0 depth = 0 maxdepth = 0 Do i=1,len_trim(expression) if( expression(i:i).eq.'(' ) then nparen = nparen + 1 depth = depth + 1 endif if( expression(i:i).eq.')' ) then depth = depth - 1 endif if( depth.gt.maxdepth ) maxdepth = depth enddo ! allocate memory for parseBuffer if needed if( nparen.gt.0 ) then if( Allocated(parseBuffer) .and. & SIZE(parseBuffer,DIM=2).lt.nparen ) then deAllocate(parseBuffer) endif if( .NOT.Allocated(parseBuffer) ) then Allocate( parseBuffer(isize,nparen) ) endif parseBuffer = 0.0 endif ! make copy of expression to modify expresscp = expression depth = maxDepth Do n=1,nparen ! build buffer number as string write(nstring, '(i5)') n Call leftTrim(nstring) ! try to find parentheses at depth Call findDepth( expresscp, depth, pos1, pos2 ) if( pos1.eq.0 ) then depth = depth - 1 Call findDepth( expresscp, depth, pos1, pos2 ) endif ! if parentheses found, evaluate sub expression if( pos1.gt.0 ) then ! extract expression within parentheses and ! evaluate to parsebuffer(1:isize,n) express = expresscp(pos1+1:pos2-1) call eval1(express, parsebuffer(1:isize,n) ) ! replace expression within parentheses with "buffer[n]" express = '' if( pos1.gt.1 ) express = expresscp(1:pos1-1) express = TRIM(express) // 'buffer[' // TRIM(nstring) // & ']' // TRIM(expresscp(pos2+1:)) expresscp = express endif enddo call eval1(expresscp, buffer) end Subroutine evaluate C subroutine to find location of parentheses depth Subroutine findDepth(expression, depth, pos1, pos2) IMPLICIT NONE Character*(*) expression Integer depth, pos1, pos2 Integer i, dep pos1 = 0 pos2 = 0 dep = 0 ! try to find parentheses at depth Do i = 1, len_trim(expression) if( expression(i:i).eq.'(' ) then dep = dep+1 if(dep.eq.depth) pos1 = i endif if( expression(i:i).eq.')' ) then if(dep.eq.depth) then pos2 = i return endif dep = dep-1 endif enddo return end Subroutine findDepth C subroutine to return buffer array value Subroutine getBuffer(field, buffer) IMPLICIT NONE Character*(*) field Real buffer(isize) Integer pos1, pos2, nbuf Character*(10) string Character*(10) func Logical KSWIT Logical SHUT3 Call leftTrim(field) ! parse field to find buffer number pos1 = index(field, '[') pos2 = index(field, ']') string = field(pos1+1:pos2-1) read(string,'(i10)') nbuf buffer = parsebuffer(1:isize,nbuf) ! check for function pos1 = index(field, 'buffer[') Call UCASE(field) if( pos1.gt.1 ) then func = field(1:pos1-1) if( func.eq.'LOG' ) then buffer = LOG(buffer) return endif if( func.eq.'EXP' ) then buffer = EXP(buffer) return endif if( func.eq.'SQRT' ) then buffer = SQRT(buffer) return endif if( func.eq.'ABS' ) then buffer = ABS(buffer) return endif write(*,'(/''**ERROR** Invalid function name: '',a)') trim(func) KSWIT = SHUT3() stop endif return end Subroutine getBuffer cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C subroutine to evaluate species expression C parses conditional and three argument function statments if found cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc Subroutine eval1(expression, buffer) IMPLICIT NONE ! arguments Character*(*) expression Real buffer(isize) ! functions Integer getFldCount ! local variables Logical, Allocatable :: flags(:) Real, Allocatable :: value1(:) Real, Allocatable :: value2(:) Real, Allocatable :: value3(:) Character*(512) field Character*(16) func Character operator Integer nmajor Integer i Logical badopr ! parse major fields (?:) nmajor = getFldCount(expression, '?:') ! if function or conditional statement if( nmajor.ge.3 ) then Allocate( flags(isize), value1(isize), value2(isize), value3(isize) ) ! if conditional statement if( nmajor.eq.3 .and. index(expression,'?') .gt. 0 ) then badopr = .false. call getFld( expression, '?:', 1, operator, field ) if(operator.ne.'?') badopr = .true. call eval1b( field, flags) call getFld( expression, '?:', 2, operator, field ) if(operator.ne.'?') badopr = .true. call eval2( field, value1) call getFld( expression, '?:', 3, operator, field ) if(operator.ne.':') badopr = .true. call eval2( field, value2) if( badopr ) then Write(*,'(/''**Error** Syntax error encountered at: '',a)') trim(expression) stop endif ! set buffer values by logical flags do i=1,isize if( flags(i) ) then buffer(i) = value1(i) else buffer(i) = value2(i) endif enddo endif ! if function statement ( FunctionName:arg1:arg2:arg3 ) if( nmajor.eq.4 .and. index(expression,'?') .le. 0 ) then badopr = .false. call getFld( expression, ':', 1, operator, func ) call UCASE(func) if( func.ne.'CALCRH' .and. func.ne.'CALCHI' ) badopr = .true. call getFld( expression, ':', 2, operator, field ) call eval2( field, value1) call getFld( expression, ':', 3, operator, field ) call eval2( field, value2) call getFld( expression, ':', 4, operator, field ) call eval2( field, value3) if( badopr ) then Write(*,'(/''**Error** Syntax error encountered at: '',a)') trim(expression) stop endif ! set buffer values by logical flags do i=1,isize if( func.eq.'CALCRH' ) buffer(i) = CALCRH( value1(i), value2(i), value3(i) ) if( func.eq.'CALCHI' ) buffer(i) = CALCHI( value1(i), value2(i), value3(i) ) enddo endif Deallocate (flags, value1, value2, value3) return endif ! if no conditional if( nmajor.eq.1 ) then call eval2( trim(expression), buffer ) return endif ! syntax error Write(*,'(/''**Error** Syntax error encountered at: '',a)') trim(expression) stop end Subroutine eval1 C subroutine to evaluate condition expression (called from eval1) Subroutine eval1b(expression, flags) IMPLICIT NONE ! arguments Character*(*) expression Logical flags(isize) ! functions Integer getFldCount ! local variables Real, Allocatable :: value1(:) Real, Allocatable :: value2(:) Character*(512) field Character operator Integer nflds Integer i ! verify that expression contains a parse major fields (<=>) nflds = getFldCount(expression, '<=>') if( nflds.eq.0 ) then Write(*,'(/''**Error** Syntax error encountered at: '',a)') trim(expression) stop endif ! parse conditional expression Allocate( value1(isize), value2(isize) ) ! determine conditional operator is <= if( index(expression,'<=').gt.0 ) then call getFld( expression, '<=', 1, operator, field ) call eval2( field, value1) call getFld( expression, '<=', 3, operator, field ) call eval2( field, value2) flags = ( value1 .le. value2 ) Deallocate (value1, value2) return endif ! determine conditional operator is >= if( index(expression,'>=').gt.0 ) then call getFld( expression, '>=', 1, operator, field ) call eval2( field, value1) call getFld( expression, '>=', 3, operator, field ) call eval2( field, value2) flags = ( value1 .ge. value2 ) Deallocate (value1, value2) return endif ! determine conditional operator is > if( index(expression,'>').gt.0 ) then call getFld( expression, '>', 1, operator, field ) call eval2( field, value1) call getFld( expression, '>', 2, operator, field ) call eval2( field, value2) flags = ( value1 .gt. value2 ) Deallocate (value1, value2) return endif ! determine conditional operator is < if( index(expression,'<').gt.0 ) then call getFld( expression, '<', 1, operator, field ) call eval2( field, value1) call getFld( expression, '<', 2, operator, field ) call eval2( field, value2) flags = ( value1 .lt. value2 ) Deallocate (value1, value2) return endif ! determine conditional operator is = if( index(expression,'=').gt.0 ) then call getFld( expression, '=', 1, operator, field ) call eval2( field, value1) call getFld( expression, '=', 2, operator, field ) call eval2( field, value2) flags = ( value1 .eq. value2 ) Deallocate (value1, value2) return endif ! syntax error Write(*,'(/''**Error** Syntax error encountered at: '',a)') trim(expression) stop end Subroutine eval1b C subroutine to evaluate species expression (parses major fields (+-)) Subroutine eval2(expression, buffer) USE M3UTILIO IMPLICIT NONE ! arguments Character*(*) expression Real buffer(isize) ! functions Integer getFldCount ! local variables Real, Allocatable :: value(:) Character*(512) field Character operator Integer nmajor Integer n buffer = 0.0 Allocate ( value(isize) ) ! parse major fields (+-) nmajor = getFldCount(expression, '+-') ! loop thru and parse each major field and evaluate do n=1,nmajor call getFld( expression, '+-', n, operator, field ) !write(*,'(''major field:'',a)') TRIM(field) call eval3( field, value) if( value(1).eq.AMISS3 ) then buffer = AMISS3 EXIT endif if( operator.eq.'+' ) then buffer = buffer + value else buffer = buffer - value endif enddo Deallocate (value) return end Subroutine eval2 C routine to compute a field of the expression (parses minor fields (*/)) Subroutine eval3(expression, value) USE M3UTILIO IMPLICIT NONE ! arguments CHARACTER*(*) expression Real value(isize) ! local variables Real, allocatable :: specValue(:) Integer getFldCount Character*(512) field Character operator Integer n, nflds, status real constant Logical KSWIT Allocate ( specValue(isize) ) nflds = getFldCount(trim(expression), '*/') value = 1.0 do n=1,nflds call getFld( trim(expression), '*/', n, operator, field ) ! check for buffer array if( index(field,'buffer[') .gt.0 ) then Call getBuffer(field, specValue) if( operator.eq.'*' ) then value = value * specValue else value = value / specValue endif cycle endif ! check for species variable if( INDEX1(TRIM(field), NVARS3D, VNAME3D) .gt.0 ) then Call readSpecies(field, specValue) if(specValue(1).eq.AMISS3) then value = specValue EXIT endif if( operator.eq.'*' ) then value = value * specValue else value = value / specValue endif cycle endif !try to read field as number read(field,'(f20.0)',iostat=status) constant if( status.eq.0 ) then if( operator.eq.'*' ) then value = value * constant else value = value / constant endif else Write(*,'(''**Error** Invalid field encountered:'',a)') field KSWIT = SHUT3() stop endif enddo Deallocate (specValue) return end Subroutine eval3 C Routine to read species value array for given date and time Subroutine readSpecies( field, specValue) USE M3UTILIO USE M3FILES USE TIME_STEP IMPLICIT NONE ! arguments Character*(*) field Real specValue(isize) ! local variables Logical KSWIT INTEGER ISTEP ISTEP = FIND2( IDATE, ITIME, NSTEPS, STEP_DATE, STEP_TIME) KSWIT = READ3(M3_FLNAME(STEP_FILE(ISTEP)), field, ilayer, idate, itime, specValue) !! check read status if( .NOT.KSWIT ) then Write(*,'(/''**ERROR** Cannot read variable '',a,'' from input file.'')') & trim(field) specValue = AMISS3 !KSWIT = SHUT3() !stop endif return end Subroutine readSpecies ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c c function to compute relative humidity c cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc Real Function CALCRH(ta, psa, qva) result(rh) Implicit None ! arguments Real ta ! surface temperature (K) Real psa ! surface pressure (pascal) Real qva ! water vapor mixing ratio (kg/kg) ! local variables Real es, w ! compute es if( ta .le. 273.15 ) es = 611.29 * EXP(22.514 - (6150.0 / ta)) if( ta .gt. 273.15 ) es = 611.29 * EXP(17.67 * (ta-273.15) / (ta-29.65)) ! compute rh w = 0.622 * es / (psa - es) rh = 100.0 * qva / w if( rh.gt.100.0 ) rh = 100.0 return end Function CALCRH ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c c function to compute heat index c cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc Real Function CALCHI(ta, psa, qva) result(hi) Implicit None ! arguments Real ta ! surface temperature (K) Real psa ! surface pressure (pascal) Real qva ! water vapor mixing ratio (kg/kg) ! local variables Real rh, tempF ! compute temperature to F tempF = 1.8*(ta-273.15) + 32.0 ! compute RH rh = CALCRH(ta, psa, qva) ! check lower rh limit if( rh .lt. 40.0 ) then hi = tempF return endif ! check lower tempF limit if( tempF .lt. 80.0 ) then hi = tempF return endif ! compute HI hi = -42.379 + 2.04901523*tempF + 10.14333127*rh hi = hi - 0.22475541*tempF*rh - 6.83783E-3 * tempF**2 hi = hi - 5.481717E-2 * rh**2 + 1.22874E-3 * tempF**2 * rh hi = hi + 8.5282E-4 * tempF * rh**2 - 1.99E-6 * tempF**2 * rh**2 return end Function CALCHI END MODULE evaluator ================================================ FILE: POST/hr2day/src/module_file.F ================================================ !-----------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !-----------------------------------------------------------------------! ! RCS file, release, date & time of last delta, author, state, [and locker] ! $Header: /home/sjr/cvs2git/TOOLS/src/sitecmp/module_file.F,v 1.4 2011/10/21 14:41:32 sjr Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% C************************************************************************* C C MODULE: sets up file data C C************************************************************************* MODULE M3FILES USE M3UTILIO INTEGER LOGUNIT ! Logdevice INTEGER N_M3FILES ! No. of input Models-3 files INTEGER, PARAMETER :: MXM3FLS = MXFILE3 - 1 ! Max no. of input files - use IOAPI parameter ! MXFILE3 - 1 to also allow one output file CHARACTER*16 M3_FLNAME( MXM3FLS ) ! Names of Models-3 file CHARACTER*256 M3FILE ! first filename CONTAINS SUBROUTINE OPEN_M3FILES C************************************************************************* C C FUNCTION: To provide site data C C************************************************************************* USE M3UTILIO IMPLICIT NONE C..ARGUMENTS: None C..PARAMETERS: None C..EXTERNAL FUNCTIONS: None C..SAVED LOCAL VARIABLES: None C..SCRATCH LOCAL VARIABLES: CHARACTER*16 ENV_DFLT ! Environment variable default value CHARACTER*16 FL_NAME ! Input Models-3 file name CHARACTER*16 PNAME ! Program Name CHARACTER*80 ENV_DESC ! Environment variable description CHARACTER*80 MSG ! Error message CHARACTER*256 RET_VAL ! Returned value of environment variable INTEGER N ! Loop index INTEGER STATUS ! Status code C********************************************************************** DATA PNAME / 'OPEN_M3FILES' / ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Determine the number of input CTM conc files that need to be read ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc LOGUNIT = INIT3() N_M3FILES = 0 WRITE( LOGUNIT, 92020 ) DO N = 1, MXM3FLS IF( N .LT. 10 ) THEN WRITE( FL_NAME, '( ''M3_FILE_'', I1 )' ) N WRITE( ENV_DESC, '( ''CTM Concentration file no. '', I1 )' ) N ELSEIF( N .LT. 100 ) THEN WRITE( FL_NAME, '( ''M3_FILE_'', I2 )' ) N WRITE( ENV_DESC, '( ''CTM Concentration file no. '', I2 )' ) N ELSE WRITE( FL_NAME, '( ''M3_FILE_'', I3 )' ) N WRITE( ENV_DESC, '( ''CTM Concentration file no. '', I3 )' ) N ENDIF ENV_DFLT = ' ' CALL ENVSTR( FL_NAME, ENV_DESC, ENV_DFLT, RET_VAL, STATUS) IF( STATUS .EQ. 0 ) THEN If( N_M3FILES .eq. 0) M3FILE = RET_VAL N_M3FILES = N_M3FILES + 1 M3_FLNAME( N_M3FILES ) = FL_NAME ELSE IF ( N_M3FILES .eq. 0) THEN !TRY CHECKING FOR 'INFILE' INSTEAD - BACKWARD COMPATIBILITY ENV_DFLT = ' ' CALL ENVSTR( 'INFILE', ENV_DESC, ENV_DFLT, RET_VAL, STATUS) IF( STATUS .EQ. 0 ) THEN N_M3FILES = N_M3FILES + 1 M3_FLNAME( N_M3FILES ) = 'INFILE' ELSE EXIT ENDIF ELSE !NOT FIRST FILE, EXIT LOOP EXIT ENDIF ENDIF ENDDO IF( N_M3FILES .EQ. 0 ) THEN MSG = 'No CTM CONC files found' CALL M3ERR( PNAME, 0, 0, MSG, .TRUE. ) ENDIF ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Open the files ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc DO N = 1, N_M3FILES IF( .NOT. OPEN3( M3_FLNAME( N ), 1, PNAME) )THEN CALL M3EXIT( PNAME, 0 , 0, & 'Could not open input file ' // M3_FLNAME( N ), & XSTAT1 ) ENDIF ENDDO RETURN C****************** FORMAT STATEMENTS ****************************** 92020 FORMAT( //5X, A, // ) END SUBROUTINE OPEN_M3FILES END MODULE M3FILES ================================================ FILE: POST/hr2day/src/module_grid.F ================================================ !-----------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !-----------------------------------------------------------------------! ! RCS file, release, date & time of last delta, author, state, [and locker] ! $Header: /home/sjr/cvs2git/TOOLS/src/sitecmp/module_grid.F,v 1.4 2011/10/21 14:41:32 sjr Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% C************************************************************************* C C MODULE: defines a grid class C C************************************************************************* MODULE GRID_DATA TYPE GRID INTEGER :: NCOLS INTEGER :: NROWS INTEGER :: NLAYS INTEGER :: GDTYP REAL*8 :: P_ALP REAL*8 :: P_BET REAL*8 :: P_GAM REAL*8 :: XCENT REAL*8 :: YCENT REAL*8 :: XORIG REAL*8 :: YORIG REAL*8 :: XCELL REAL*8 :: YCELL END TYPE GRID TYPE ( GRID ) M3GRID CONTAINS SUBROUTINE GET_M3GRID C************************************************************************* C C FUNCTION: To set grid data C C************************************************************************* USE M3FILES USE M3UTILIO IMPLICIT NONE C..ARGUMENTS: None C..PARAMETERS: None C..EXTERNAL FUNCTIONS: None C..SAVED LOCAL VARIABLES: None C..SCRATCH LOCAL VARIABLES: CHARACTER*16 PNAME ! Program Name INTEGER N ! Loop index INTEGER STATUS ! Status code C********************************************************************** DATA PNAME / 'GET_GRID' / IF ( .NOT. DESC3( M3_FLNAME( 1 ) ) ) THEN CALL M3EXIT( PNAME, 0, 0, & 'Could not get ' // M3_FLNAME( 1 ) // & ' file description', XSTAT1 ) ENDIF M3GRID % NCOLS = NCOLS3D M3GRID % NROWS = NROWS3D M3GRID % NLAYS = NLAYS3D M3GRID % GDTYP = GDTYP3D M3GRID % P_ALP = P_ALP3D M3GRID % P_BET = P_BET3D M3GRID % P_GAM = P_GAM3D M3GRID % XCENT = XCENT3D M3GRID % YCENT = YCENT3D M3GRID % XORIG = XORIG3D M3GRID % YORIG = YORIG3D M3GRID % XCELL = XCELL3D M3GRID % YCELL = YCELL3D RETURN END SUBROUTINE GET_M3GRID END MODULE GRID_DATA ================================================ FILE: POST/hr2day/src/module_spec.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C************************************************************************* C C MODULE: defines a set of species variables for daily output C C************************************************************************* MODULE SPECIES_DEF TYPE SPECIES CHARACTER(len=16) NAME CHARACTER(len=512) EXPRESSION CHARACTER(len=16) UNITS CHARACTER(len=16) DESCRIPTION CHARACTER(len=10) OPERATION END TYPE SPECIES TYPE ( SPECIES ), Allocatable :: SPECVARS(:) INTEGER NSPECVAR CONTAINS cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C ROUTINE TO GET SPECIES DEFINITIONS FROM ENVIRONMENT VARIABLES C C VARIABLE FORMAT name, expression, operation C CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC SUBROUTINE LoadSpecies USE M3UTILIO IMPLICIT NONE !Extrenal functions Integer getNumberOfFields ! local variables Integer k, i Integer status Integer nflds, idx CHARACTER(LEN=16) VARNAME CHARACTER(LEN=512) RECORD CHARACTER(LEN=5) FIELD CHARACTER(LEN=10) opcode(14) CHARACTER(LEN=16) opname(14) data opcode/'SUM', 'AVG', 'MIN', 'MAX', 'HR@MIN', 'HR@MAX', '@MAXT', & 'MAXDIF', '8HRMAX', 'W126', '@8HRMAXO3', 'HR@8HRMAX', & 'SUM06', 'TZ'/ data opname/'Daily-total', 'Daily-average', 'Min-hour', 'Max-hour', & 'Hour of Minimum', 'Hour of Maximum', & 'Value@Max-Temp', 'Max-hour-change', & 'Max-8-hour', 'W126', 'Value@8HrMax', 'Hour@8HrMax', & 'Sum-06', 'TIMEZONE'/ ! allocate memory for SPECVARS array Allocate( SPECVARS( MXVARS3 ) ) NSPECVAR = 0 do k=1,MXVARS3 ! build VARNAME write(field,'(i5)') k Call leftTrim(field) varname = 'SPECIES_' // TRIM(field) ! GET DEFINITION RECORD CALL ENVSTR( varname, 'Species Variable definition', 'Not Used', record, status) IF( status .ne. 0 ) EXIT NSPECVAR = NSPECVAR + 1 nflds = getNumberOfFields( record, ',' ) if( nflds.ne.4 ) then write(*,'(//,''**ERROR** Wrong number of fields in '',a,'' = '',a)') TRIM(varname),TRIM(record) write(*,'(''4 fields required for species definition'')') write(*,'(''Required fields are: "name, units, from_species, operation"'')') stop endif Call getField( record, ',', 1, SPECVARS(k)%NAME ) Call getField( record, ',', 2, SPECVARS(k)%UNITS ) Call getField( record, ',', 3, SPECVARS(k)%EXPRESSION ) Call getField( record, ',', 4, SPECVARS(k)%OPERATION ) Call UCASE( SPECVARS(k)%OPERATION ) ! check for duplicate name do i=1,NSPECVAR-1 if( SPECVARS(k)%NAME .eq. SPECVARS(i)%NAME ) then Write(*,'(''**ERROR** Duplicate Species name:'',a)') TRIM(SPECVARS(k)%NAME) stop endif enddo ! verify operation idx = INDEX1(SPECVARS(k)%OPERATION, SIZE(opcode), opcode) if( idx.gt.0 ) then SPECVARS(k)%DESCRIPTION = opname(idx) else Write(*,'(''INVALID Operation code:'',a)') TRIM(SPECVARS(k)%OPERATION) stop endif enddo end Subroutine LoadSpecies END MODULE SPECIES_DEF ================================================ FILE: POST/hr2day/src/module_tstep.F ================================================ !-----------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !-----------------------------------------------------------------------! ! RCS file, release, date & time of last delta, author, state, [and locker] ! $Header: /home/sjr/cvs2git/TOOLS/src/sitecmp/module_tstep.F,v 1.4 2011/10/21 14:41:33 sjr Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% C************************************************************************* C C MODULE TIME_STEP: defines a time class C C************************************************************************* MODULE TIME_STEP INTEGER :: NSTEPS INTEGER , ALLOCATABLE :: STEP_DATE( : ) INTEGER , ALLOCATABLE :: STEP_TIME( : ) INTEGER , ALLOCATABLE :: STEP_FILE( : ) INTEGER :: TIMESTEP CONTAINS SUBROUTINE GET_TSTEPS C************************************************************************* C C FUNCTION: Set-up time step sequence for reading files and writing C output records C C************************************************************************* USE M3FILES USE M3UTILIO IMPLICIT NONE C..ARGUMENTS: None C..PARAMETERS: None C..SAVED LOCAL VARIABLES: None C..SCRATCH LOCAL VARIABLES: CHARACTER*80 MSG ! Log message CHARACTER*16 PNAME ! Program Name INTEGER D0, D1 ! Differences betwwen two times, seconds INTEGER INDX ! Array location to insert new index INTEGER MXSTEPS ! max possible no. of time steps INTEGER N, NFL, NS, N2 ! Loop indices INTEGER JDATE ! Current date INTEGER JTIME ! Current time C********************************************************************** DATA PNAME / 'GET_TSTEPS' / cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Get the maximum number of time steps cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc MXSTEPS = 0 DO N = 1, N_M3FILES IF( .NOT. DESC3( M3_FLNAME( N ) ) ) THEN CALL M3EXIT( PNAME, 0, 0, 'Could not get ' // & M3_FLNAME( N ) // ' file description', & XSTAT1 ) ENDIF MXSTEPS = MXSTEPS + MXREC3D ENDDO ALLOCATE( STEP_DATE( MXSTEPS ), STEP_TIME( MXSTEPS ), & STEP_FILE( MXSTEPS ) ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Load all steps from first file cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF( .NOT. DESC3( M3_FLNAME( 1 ) ) ) THEN CALL M3EXIT( PNAME, 0, 0, 'Could not get ' // & M3_FLNAME( 1 ) // ' file description', & XSTAT1 ) ENDIF JDATE = SDATE3D JTIME = STIME3D TIMESTEP = TSTEP3D NSTEPS = MXREC3D DO NS = 1, NSTEPS STEP_DATE( NS ) = JDATE STEP_TIME( NS ) = JTIME STEP_FILE( NS ) = 1 CALL NEXTIME( JDATE, JTIME, TSTEP3D ) ENDDO IF( N_M3FILES .EQ. 1 ) RETURN cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Insert non-duplicative time steps from remaining files in the array cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc MSG = 'Multiple CTM Concentration files being used' CALL M3MESG( MSG ) MSG = 'Duplicate time steps will be eliminated' CALL M3MESG( MSG ) DO NFL = 2, N_M3FILES IF ( .NOT. DESC3( M3_FLNAME( NFL ) ) ) THEN CALL M3EXIT( PNAME, 0, 0, & 'Could not get ' // M3_FLNAME( NFL ) // & ' file description', XSTAT1 ) ENDIF JDATE = SDATE3D JTIME = STIME3D DO NS = 1, MXREC3D DO N = 1, NSTEPS INDX = 0 D1 = SECSDIFF( STEP_DATE( N ), STEP_TIME( N ), & JDATE, JTIME ) IF( N .EQ. 1 .AND. D1 .LT. 0 ) THEN INDX = 1 ELSEIF( N .EQ. NSTEPS .AND. D1 .GT. 0 ) THEN INDX = NSTEPS + 1 ELSEIF( N .GT. 1 ) THEN D0 = SECSDIFF( STEP_DATE( N - 1 ), STEP_TIME( N - 1 ), & JDATE, JTIME ) IF( D0 .GT. 0 .AND. D1 .LT. 0 ) INDX = N ENDIF IF( INDX .GT. 0 ) THEN DO N2 = NSTEPS, INDX, -1 STEP_DATE( N2 + 1 ) = STEP_DATE( N2 ) STEP_TIME( N2 + 1 ) = STEP_TIME( N2 ) ENDDO STEP_DATE( INDX ) = JDATE STEP_TIME( INDX ) = JTIME STEP_FILE( INDX ) = NFL NSTEPS = NSTEPS + 1 ENDIF ENDDO IF( INDX .EQ. 0 ) WRITE( LOGUNIT, 93000) JDATE, JTIME, & M3_FLNAME( NFL ) CALL NEXTIME( JDATE, JTIME, TSTEP3D ) ENDDO ENDDO RETURN 93000 FORMAT( 10X, 'Duplicate time step ignored: ', I7, 1X, I6, 1X, A ) END SUBROUTINE GET_TSTEPS END MODULE TIME_STEP ================================================ FILE: POST/hr2day/src/parser.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C*********************************************************************** C routines for parsing a delimited text record C*********************************************************************** C Return the number of fields in record INTEGER FUNCTION getNumberOfFields( record, delimiter ) result( nfields ) CHARACTER*(*) record CHARACTER*(1) delimiter Integer getFieldCount Integer i ! if delimiter is space, use getFieldCount function if( delimiter.eq.' ') then nfields = getFieldCount(record, delimiter) return endif nfields = 1 Do i=1, LEN(record) if( record(i:i) .eq. delimiter ) nfields = nfields+1 EndDo Return End C Return the number of parsed fields in record C this method considers duplicate delimiters as one INTEGER FUNCTION getFieldCount(record, delimiter) & result(nfields) CHARACTER*(*) record CHARACTER*(*) delimiter Integer i Logical infield Logical isDel nfields = 0 infield = .false. Do i=1,LEN(record) isDel = (record(i:i).eq.delimiter) ! check for start of field if( .NOT.infield .and. .NOT.isDel ) then nfields = nfields+1 infield = .true. cycle endif ! check for end of field if( infield .and. isDel ) then infield = .false. cycle endif enddo Return end C Return the nth field of record Subroutine getField( record, delimiter, nth, field ) CHARACTER*(*) record CHARACTER*(1) delimiter Integer nth CHARACTER*(*) field Integer nfields Integer i, pos1 ! if delimiter is space, use method 2 if( delimiter.eq.' ' ) then call getField2( record, delimiter, nth, field ) call RightTrim(field) return endif pos1 = 1 nfields = 0 field = '' Do i=1, LEN(record) if( record(i:i) .eq. delimiter ) then nfields = nfields+1 if( nfields .eq. nth ) then if(pos1.lt.i) field = record(pos1:i-1) call RightTrim(field) return Endif pos1 = i+1 Endif Enddo nfields = nfields+1 ! check if last field if( nfields .eq. nth ) then field = record(pos1:) Endif Call RightTrim(field) Return End C Return the nth field in record (method 2) C this method considers duplicate delimiters as one C Subroutine getField2( record, delimiter, nth, field ) CHARACTER*(*) record CHARACTER*(*) delimiter Integer nth CHARACTER*(*) field Integer nfields Integer i, pos1 Logical infield Logical isDel nfields = 0 field = '' infield = .false. Do i=1,LEN(record) isDel = (record(i:i).eq.delimiter) ! check for start of field if( .NOT.infield .and. .NOT.isDel ) then nfields = nfields+1 pos1 = i infield = .true. endif ! check for end of field if( infield .and. isDel ) then infield = .false. endif ! if end of nth field, return if( nfields.eq.nth .and. .not.infield ) then if(pos1.lt.i) field = record(pos1:i-1) return endif enddo ! check for last field if( nfields.eq.nth ) field = record(pos1:) Return End C Return the number of parsed fields in record INTEGER FUNCTION getParsedNumber( record, delimiter ) result( nfields ) CHARACTER*(*) record CHARACTER*(*) delimiter Integer i nfields = 1 Do i=1, LEN(record) if( index(delimiter,record(i:i)) .gt. 0 ) nfields = nfields+1 EndDo Return End C Return the nth field of record Subroutine getParsedField( record, delimiter, nth, field, includeDel ) CHARACTER*(*) record CHARACTER*(*) delimiter Integer nth CHARACTER*(*) field Logical includeDel Integer nfields Integer i, pos1 pos1 = 1 nfields = 0 field = '' Do i=1, LEN(record) if( index(delimiter,record(i:i)) .gt. 0 ) then nfields = nfields+1 if( nfields .eq. nth ) then if( pos1.lt.i ) field = record(pos1:i-1) return Endif ! define starting point of next field pos1 = i+1 if( includeDel ) pos1 = i Endif Enddo nfields = nfields+1 ! check if last field if( nfields .eq. nth ) then field = record(pos1:) Endif Return End C*********************************************************************** C Returns the nth field of record C*********************************************************************** Subroutine getFld( record, delimiter, nth, del, field ) IMPLICIT NONE CHARACTER*(*) record CHARACTER*(*) delimiter CHARACTER del Integer nth CHARACTER*(*) field Integer nfields Integer i, pos1 pos1 = 1 nfields = 0 del = delimiter(1:1) field = '' Do i=1, LEN(record) if( index( delimiter,record(i:i) ) .gt. 0 ) then nfields = nfields+1 if( nfields .eq. nth ) then if(pos1.le.i) field = record(pos1:i-1) call LeftTrim(field) call RightTrim(field) return Endif del = record(i:i) pos1 = i+1 Endif Enddo nfields = nfields+1 ! check if last field if( nfields .eq. nth ) then field = record(pos1:) Endif Call LeftTrim(field) Call RightTrim(field) Return End C*********************************************************************** C Returns the number of parsed fields in record C*********************************************************************** INTEGER FUNCTION getFldCount(record, delimiter) & result(nfields) IMPLICIT NONE CHARACTER*(*) record CHARACTER*(*) delimiter Integer i Logical isDel nfields = 0 if( LEN_TRIM(record).gt.0 ) nfields = 1 Do i=1,LEN(record) isDel = ( index(delimiter, record(i:i)) .gt. 0 ) if( isDel ) then nfields = nfields+1 cycle endif enddo Return end C**************************************************************************** C routine to remove leading blank spaces from Character String C**************************************************************************** Subroutine LeftTrim( STRING ) CHARACTER*(*) STRING Integer I Do I=1,LEN(STRING) if(STRING(I:I) .ne. CHAR(32)) Then STRING = STRING(I:) RETURN EndIf EndDo Return End Subroutine LeftTrim C**************************************************************************** C routine to remove trailing white spaces from Character String C**************************************************************************** Subroutine RightTrim( STRING ) CHARACTER*(*) STRING Integer I Do I=LEN(STRING),1,-1 if(STRING(I:I) .lt. CHAR(32)) STRING(I:I) = CHAR(32) if(STRING(I:I) .gt. CHAR(32)) Exit EndDo Return End Subroutine RightTrim C**************************************************************************** C routine to remove quotation marks from character field C**************************************************************************** Subroutine rmQuots( string ) Implicit none ! arguments Character*(*) string Integer last, i call LeftTrim(string) last = LEN_TRIM(string) ! if no quot marks, return if( string(1:1).ne.'"' .and. string(last:last).ne.'"') return ! remove last quot mark string(last:last) = ' ' do i=1,last-1 string(i:i) = string(i+1:i+1) enddo Return End Subroutine rmQuots C*********************************************************************** C Routine to change character string to upper characters C*********************************************************************** SUBROUTINE UCASE ( STR ) IMPLICIT NONE CHARACTER STR*( * ) INTEGER I INTEGER K DO I = 1, LEN(STR) K = ICHAR(STR(I:I)) IF ( ( K .GE. 97 ) .AND. ( K .LE. 122 ) ) & STR( I:I ) = CHAR( K - 32 ) END DO RETURN END SUBROUTINE UCASE ================================================ FILE: POST/sitecmp/README.md ================================================ sitecmp ======== This Fortran program generates a csv (comma separated values) file that compares CMAQ generated concentrations with an observed dataset. ## Environment Run Time Variables: ``` TABLE_TYPE dataset type {IMPROVE, CASTNET, STN, NADP, MDN, SEARCH, DEARS, AIRMON, OUT_TABLE} M3_FILE_# ioapi input files containing modeled species data. The maximum number of IOAPI files is set to be one less than the global IOAPI parameter MXFILE3. Since this parameter is currently set to 64 (https://www.cmascenter.org/ioapi/documentation/all_versions/html/TUTORIAL.html), the maximum number of IOAPI input files is 63. [Note: Supported map projections are Lambert conformal, polar stereographic, and lat/lon. If an ioapi file is supplied that has a projection not in this list the program will stop with an error message.] SITE_FILE csv-formatted input file containing the station ID, latitude, longitude, and optionally GMT offset, state, county, and elevation for each monitor. The column headings for the required variables need to be stat_id, lat, and lon. The column headings for the optional variables (if present) need to be gmt_offset, state, county, and elevation. The column headings are case insensitve and the order of the columns does not matter. For legacy purposes, SITE_FILE can also be a tab delimited file with no header and three or four columns that contains site information for each monitor in the following fixed order: site-id, longitude, latitude, and optionally time zone offset between local time and GMT IN_TABLE input file with observed data (comma delimited with header) OUT_TABLE file for output data with columns of paired observed and modeled values ``` ## Environment Variables (not required): ``` PRECIP defines the precipitation field used in WETDEP and WETCON calculations (default="Precip") IOAPI_ISPH projection sphere type (use type #20 to match WRF/CMAQ) (ioapi default is 8) MISSING string to indicate missing output data values (default="-999") START_DATE starting date of time period to process (YYYYJJJ) START_TIME starting time of time period to process (HHMMSS) END_DATE ending date of time period to process (YYYYJJJ) END_TIME ending time of time period to process (HHMMSS) APPLY_DLS apply daylight savings time (default N) TIME_SHIFT number of hours to add when retrieving time steps from M3_FILE_n files during processing. This should only be non-zero if the M3_FILE_n files were pre-processed with a utility like m3tshift (default 0) ``` ## Species definitions: Defines the data columns for your output file. Each can specify the observed and modeled variables of the species you are analyzing. These definitions are specified by environment variables [species-type]_[1-50], where species type is one of the following {AERO, GAS, WETCON, WETDEP, PREC}. See the sample run scripts for additional examples beyond those listed below. ``` format: [Obs_expression], [Obs_units], [Mod_expression], [Mod_unit], [Variable_name] expression format: [factor1]*Obs_name1 [+][-] [factor2]*Obs_name2 ... types: AERO_n (AEROSOL Variables (1-50) - compute average over time) GAS_n (GAS Variables (1-50) - compute average over time) WETCON_n (Wet Concentration Variables (1-50) - compute volume-weighted average) WETDEP_n (Wet Deposition Variables (1-50) - compute accumulated wet deposition) PREC_n (Precipitation Variables (1-50) - compute accumulated precipitation) CHAR_n (Character fields (1-50), copies from Obs file) examples: AERO_1="SO4f_val,ug/m3, ASO4T,,sulfate" (this defines an aerosol species where the observed values are obtained from the "SO4f_val" column setting its units to ug/m3, the modeled values are obtained from the "ASO4T" variable using its predefined units, both columns will be named "sulfate") PREC_1="Sub Ppt,mm,10*RT,mm,Precip" (this defines a precipitation species where the observed values are obtained from the "Sub Ppt" column setting its units to mm, the modeled values are obtained by multiplying 10 times the "RT" variable and setting its units to mm, both columns will be named "Precip") AERO_2="NH4f_val,ug/m3,,,ammonium" (this defines an aerosol species where the observed values are obtained from the "NH4f_val" column setting its units to ug/m3, there is no modeled values column, the column will be named ammonium) CHAR_1="NH4f_flag" (this defines a character field to copy only from the observed field, no units or modeled species are used) ``` ## File formats: ``` SITE_FILE - csv-formatted input file containing the station ID, latitude, longitude, and optionally GMT offset, state, county, and elevation for each monitor. The column headings for the required variables need to be stat_id, lat, and lon. The column headings for the optional variables (if present) need to be gmt_offset, state, county, and elevation. The column headings are case insensitve and the order of the columns does not matter. For legacy purposes, SITE_FILE can also be a tab delimited file with no header and three or four columns that contains site information for each monitor in the following fixed order: site-id, longitude, latitude, and optionally time zone offset between local time and GMT M3_FILE_n - IOAPI file containing modeled species data (n=1->12) IN_TABLE - text (csv) file containing observed data values Each type of dataset requires a site field and fields that define the data record's time period. These are the required fields for each type. IMPROVE - site field: "site_code" date field: "obs_date" (YYYYMMDD) The time period is 24 hours (midnight to midnight) NADP - site field: "Site" starting date: "DateOn" (MM/DD/YYYY) ending date: "DateOff" (MM/DD/YYYY) The time period is 9:00am to 8:59am STN - (Use with CSN data) site field: "airs_site_code" date field: "DATETIME" (MM/DD/YYYY) The time period is 24 hours (9:00am to 8:59am) MDN - site field: "SITE" starting date: "START" (MM/DD/YYYY) ending date: "STOP" (MM/DD/YYYY) The time period is 9:00am to 8:59am CASTNET - site field: "Site_id" starting date: "DateOn" ("YYYY-MM-DD hh:mm:ss") ending date: "DateOff" ("YYYY-MM-DD hh:mm:ss") MET - site field" "site_id" starting date: "date_time" ("YYYY-MM-DD hh:mm:ss") ending date: 59 minutes added to starting time SEARCH - site field: "Site_id" starting date: "DateOn" (MM/DD/YYYY hh:mm) ending date: "DateOff" (MM/DD/YYYY hh:mm) DEARS - site field: "PID" starting date: "StartDate" (MM/DD/YY) The time period is 24 hours (9:00am to 8:59am) AIRMON - site field: "Site" starting date: "Date/Time On" (MM/DD/YYYY hh:mm) ending date: "Date/Time Off" (MM/DD/YYYY hh:mm) OUT_TABLE - output (csv) text file containing columns of paired observed and modeled values ``` ## Compile sitecmp source code: Execute the build script to compile sitecmp: ``` cd $CMAQ_HOME/POST/sitecmp/scripts ./bldit_sitecmp.csh [compiler] [version] |& tee build_sitecmp.log ``` ## Run sitecmp: Edit the sample run script (run_sitecmp_AQS_Hourly.csh*), then run: ``` ./run_sitecmp_AQS_Hourly.csh |& tee sitecmp.log ``` Check the log file to ensure complete and correct execution without errors. *A sample run scripts has been provided for matching model data to hourly observations from AQS. The README.txt file in the scripts folder shows the changes need to adapt this run script to one of the following networks: AERONET, AMON, CASTNET (hourly and weekly data), CSN, IMPROVE, NADP, and SEARCH (hourly and daily data). The formatted observation data files needed for running the sitecmp utility are available starting in 2000 from the CMAS Data Warehouse Google Drive: [North America Air Quaility Observation Files](https://drive.google.com/drive/folders/1QUlUXnHXvXz9qwePi5APzzHkiH5GWACw?usp=drive_link) Note that the run scripts rely on model output that has already been processed using the combine utility. The user should first run combine on ACONC and DEP output files to create the necessary COMBINE_ACONC and COMBINE_DEP files that contain the model species that can be matched to available observations. See the sample run scripts for the combine utility for examples on creating COMBINE_ACONC and COMBINE_DEP. ================================================ FILE: POST/sitecmp/scripts/README.md ================================================ # Species List for sitecmp: Matching model and observed variables The environment variables that control how CMAQ and observed values are matched using sitecmp will change depending on the observation network. Sitecmp requires observation data to be in a specific format. Sitecmp-ready observation data files going back to 2000 are available on the CMAS Data Warehouse Google Drive: [North America Air Quaility Observation Files](https://drive.google.com/drive/folders/1QUlUXnHXvXz9qwePi5APzzHkiH5GWACw?usp=drive_link). Data files are provided in AMET_OBSDATA_YYYY.tar.gz for year YYYY. These should be used when setting environment variable IN_TABLE. A site meta data file (SITE_FILE) is also needed for sitecmp. These can be found within the .tar.gz files under the *site_metadata_files* folder. The variable names in these observation files can change over time. This README file provides the environment variables needed for the species list in the sitecmp run script for different networks and years. This species information was generated using the [Atmospheric Model Evaluation Tool (AMET)](https://github.com/USEPA/AMET) which is also available github.com/USEPA. For further information on the mapping of observation species from each network to CMAQ model species, please see the section **AQ Species List Input File** of the [AMETv1.4 User's Guide](https://github.com/USEPA/AMET/blob/1.4b/docs/AMET_Users_Guide_v14.md). Note that the configuration options below are just for the species definition part of the sitecmp run script. See the run scripts within this folder for AQS, CSN, IMPROVE, NADP and SEARCH for examples of complete run scripts for sitecmp that include all necessary environment variables. ### SITECMP Configuration Options for AERONET ``` # ===================================================================== #> SITECMP Species List Configuration Options for AERONET # ===================================================================== #> Set TABLE TYPE setenv TABLE_TYPE CASTNET #> Specify the variable names used in your observation inputs #> and model output files for each of the species you are analyzing below. #> #> variable format: #> Obs_expression, Obs_units, [Mod_expression], [Mod_unit], [Variable_name] #> #> The expression is in the form: #> [factor1]*Obs_name1 [+][-] [factor2]*Obs_name2 ... setenv AERO_1 "AOT_340,none,SW_AOD_340,none,AOD_340" setenv AERO_2 "AOT_380,none,SW_AOD_380,none,AOD_380" setenv AERO_3 "AOT_440,none,SW_AOD_440,none,AOD_440" setenv AERO_4 "AOT_500,none,SW_AOD_500,none,AOD_500" setenv AERO_5 "AOT_555,none,SW_AOD_555,none,AOD_555" setenv AERO_6 "AOT_675,none,SW_AOD_675,none,AOD_675" setenv AERO_7 "AOT_870,none,SW_AOD_870,none,AOD_870" setenv AERO_8 "AOT_1020,none,SW_AOD_1020,none,AOD_1020" setenv AERO_9 "AOT_1640,none,SW_AOD_1640,none,AOD_1640" #>> End Species List <<# #> file containing meta data (e.g., site-id, longitude, latitude, time zone) about each site. setenv SITE_FILE AERONET_sites.txt #> input table containing site-id, time-period, and data fields setenv IN_TABLE AERONET_hourly_data_2011.csv # ===================================================================== #> END Options for AERONET # ===================================================================== ``` ### SITECMP Configuration Options for AMON ``` # ===================================================================== #> SITECMP Species List Configuration Options for AMON # ===================================================================== #> Set TABLE TYPE setenv TABLE_TYPE CASTNET #> Specify the variable names used in your observation inputs #> and model output files for each of the species you are analyzing below. #> #> variable format: #> Obs_expression, Obs_units, [Mod_expression], [Mod_unit], [Variable_name] #> #> The expression is in the form: #> [factor1]*Obs_name1 [+][-] [factor2]*Obs_name2 ... setenv AERO_1 "NH3,ug/m3,NH3_UGM3,ug/m3,NH3" # Ammonia #>> End Species List <<# #> file containing site-id, longitude, latitude, time zone (tab delimited) setenv SITE_FILE AMON_sites.txt #> input table containing site-id, time-period, and data fields setenv IN_TABLE AMON_data.csv # ===================================================================== #> END Options for AMON # ===================================================================== ``` ### SITECMP Configuration Options for Hourly CASTNET data ``` # ===================================================================== #> SITECMP Species List Configuration Options for Hourly CASTNET data # ===================================================================== #> Set TABLE TYPE setenv TABLE_TYPE MET #> Specify the variable names used in your observation inputs #> and model output files for each of the species you are analyzing below. #> #> variable format: #> Obs_expression, Obs_units, [Mod_expression], [Mod_unit], [Variable_name] #> #> The expression is in the form: #> [factor1]*Obs_name1 [+][-] [factor2]*Obs_name2 ... setenv GAS_1 "ozone,ppb,O3,ppb,O3" setenv GAS_2 "temperature,C,SFC_TMP,C,SFC_TMP" setenv GAS_3 "relative_humidity,%,RH,%,RH" setenv GAS_4 "solar_radiation,watts/m2,SOL_RAD,watts/m2,Solar_Rad" setenv GAS_5 "precipitation,mm/hr,precip,mm/hr,precip" setenv GAS_6 "windspeed,m/s,WSPD10,m/s,WSPD10" # setenv GAS_7 "wind_direction,deg,WDIR10,deg,WDIR10" #>> End Species List <<# #> file containing site-id, longitude, latitude, time zone (tab delimited) setenv SITE_FILE CASTNET_sites.txt #> input table containing site-id, time-period, and data fields setenv IN_TABLE CASTNET_hourly_data_2011.csv # ===================================================================== #> END Options for Hourly CASTNET # ===================================================================== ``` ### SITECMP Configuration Options for Weekly CASTNET data ``` # ===================================================================== #> SITECMP Species List Configuration Options for Weekly CASTNET data # ===================================================================== #> Set TABLE TYPE setenv TABLE_TYPE CASTNET #> Specify the variable names used in your observation inputs #> and model output files for each of the species you are analyzing below. #> #> variable format: #> Obs_expression, Obs_units, [Mod_expression], [Mod_unit], [Variable_name] #> #> The expression is in the form: #> [factor1]*Obs_name1 [+][-] [factor2]*Obs_name2 ... #> GAS Variables (1-10) - compute average over time #> Model output was originally in ppm, but conversions were already #> made in the combine extract to convert to ug/m3. setenv GAS_1 "nhno3,ug/m3,HNO3_UGM3,,HNO3" # nitric acid setenv GAS_2 "total_so2,ug/m3,SO2_UGM3,,SO2" # sulfur dioxide (total SO2 = Whatman Filter + 0.667*Nylon Filter) setenv GAS_3 "1.15*total_so2,ug/m3,SO2_UGM3,,SO2_adj" # adjusted SO2 value to account for observation bias (experimental) #> AEROSOL Variables - compute average over time setenv AERO_1 "tso4,ug/m3,ASO4IJ,ug/m3,SO4" # sulfate setenv AERO_2 "tno3,ug/m3,ANO3IJ,ug/m3,NO3" # nitrate setenv AERO_3 "tnh4,ug/m3,ANH4IJ,ug/m3,NH4" # ammonium setenv AERO_4 "tno3+nhno3,ug/m3,ANO3IJ+HNO3_UGM3,ug/m3,TNO3" # total nitrate #> PM2.5 Sharp Cutoff Species #> Requires preprocessing using AERODIAM file setenv AERO_5 "tso4,ug/m3,PM25_SO4,ug/m3,PM25_SO4" # sulfate using sharp cutoff setenv AERO_6 "tno3,ug/m3,PM25_NO3,ug/m3,PM25_NO3" # nitrate using sharp cutoff setenv AERO_7 "tnh4,ug/m3,PM25_NH4,ug/m3,PM25_NH4" # ammonium using sharp cutoff setenv AERO_8 "tno3+nhno3,ug/m3,PM25_NO3+HNO3_UGM3,ug/m3,PM25_TNO3" # total nitrate using sharp cutoff #> AERO6 species setenv AERO_9 "MG,ug/m3,AMGJ,ug/m3,MG" # ammonium using sharp cutoff setenv AERO_10 "CA,ug/m3,ACAJ,ug/m3,CA" # calcium using sharp cutoff setenv AERO_11 "K,ug/m3,AKJ,ug/m3,K" # potassium using sharp cutoff setenv AERO_12 "NA,ug/m3,ANAIJ,ug/m3,NA" # sodium using sharp cutoff setenv AERO_13 "CL,ug/m3,ACLIJ,ug/m3,CL" # chloride using sharp cutoff #>> End Species List <<# #> file containing site-id, longitude, latitude, time zone (tab delimited) setenv SITE_FILE CASTNET_sites.txt #> input table containing site-id, time-period, and data fields setenv IN_TABLE CASTNET_weekly_data_2011.csv # ===================================================================== #> END Options for Weekly CASTNET # ===================================================================== ``` ### Runtime Environment Options for CSN (formally STN) #### CSN for 2009 and earlier ``` # ================================================================== #> Runtime Species List Environment Options for CSN (formally STN) # #> There are three formats of the CSN observed data .csv files. #> The number of columns and the column names changes across the #> time series provided (2001-2009, 2010, 2011-2013, 2014 and later). #> As a result the species defintions with the run script for the #> sitecmp program need to be changed accordingly. # ================================================================== # ================================================================== #> CSN for 2009 and earlier # ================================================================== #> Set TABLE TYPE setenv TABLE_TYPE STN #> Specify the variable names used in your observation inputs #> and model output files for each of the species you are analyzing below. #> #> variable format: #> Obs_expression, Obs_units, [Mod_expression], [Mod_unit], [Variable_name] #> #> The expression is in the form: #> [factor1]*Obs_name1 [+][-] [factor2]*Obs_name2 ... setenv AERO_1 "m_so4,ug/m3, ASO4IJ,,SO4" setenv AERO_2 "m_no3,ug/m3, ANO3IJ,,NO3" setenv AERO_3 "m_nh4,ug/m3, ANH4IJ,,NH4" setenv AERO_4 "FRM PM2.5 Mass,ug/m3,ATOTIJ,,PM_TOT" setenv AERO_5 "FRM PM2.5 Mass,ug/m3,PMIJ_FRM,,PM_FRM" setenv AERO_6 "oc_adj,ug/m3, AOCIJ,,OC" setenv AERO_7 "ec_niosh,ug/m3, AECIJ,,EC" setenv AERO_8 "oc_adj+ec_niosh,ug/m3,AOCIJ+AECIJ,,TC" ## PM2.5 Sharp Cutoff Species ## Requires preprocessing using AERODIAM file setenv AERO_9 "m_so4,ug/m3, PM25_SO4,,PM25_SO4" setenv AERO_10 "m_no3,ug/m3, PM25_NO3,,PM25_NO3" setenv AERO_11 "m_nh4,ug/m3, PM25_NH4,,PM25_NH4" setenv AERO_12 "oc_adj,ug/m3, PM25_OC,,PM25_OC" setenv AERO_13 "ec_niosh,ug/m3, PM25_EC,,PM25_EC" setenv AERO_14 "oc_adj+ec_niosh,ug/m3,PM25_OC+PM25_EC,,PM25_TC" setenv AERO_15 "FRM PM2.5 Mass,ug/m3,PM25_TOT,ug/m3,PM25_TOT" setenv AERO_16 "FRM PM2.5 Mass,ug/m3,PM25_FRM,ug/m3,PM25_FRM" # AERO6 species ## note we use Sodium Ion instead of sodium (XRF) becasue XRF is not reliable for sodium ## all other elemental concentrations (including Cl and K) come from XRF setenv AERO_17 "Sodium Ion,ug/m3, ANAIJ,,Na" setenv AERO_18 "chlorine,ug/m3, ACLIJ,,Cl" setenv AERO_19 "iron,ug/m3, AFEJ,,Fe" setenv AERO_20 "aluminum,ug/m3,AALJ,,Al" setenv AERO_21 "silicon,ug/m3, ASIJ,,Si" setenv AERO_22 "titanium,ug/m3, ATIJ,,Ti" setenv AERO_23 "calcium,ug/m3,ACAJ,,Ca" setenv AERO_24 "magnesium,ug/m3,AMGJ,,Mg" setenv AERO_25 "potassium,ug/m3,AKJ,,K" setenv AERO_26 "manganese,ug/m3,AMNJ,,Mn" setenv AERO_27 "2.2*aluminum+2.49*silicon+1.63*calcium+2.42*iron+1.94*titanium,ug/m3,ASOILJ,,soil" setenv AERO_28 "Sodium Ion + chlorine, ug/m3, ANAIJ+ACLIJ,,NaCl" setenv AERO_29 "FRM PM2.5 Mass - m_so4 - m_no3 - m_nh4 - oc_adj - ec_niosh - [Sodium Ion] - [chlorine] - 2.2*aluminum - 2.49*silicon - 1.63*calcium - 2.42*iron - 1.94*titanium , ug/m3, AUNSPEC1IJ,,OTHER" setenv AERO_30 "0.8*oc_adj, ug/m3, ANCOMIJ,,NCOM" setenv AERO_31 "FRM PM2.5 Mass - m_so4 - m_no3 - m_nh4 - oc_adj - ec_niosh - [Sodium Ion] - [chlorine] - 2.2*aluminum - 2.49*silicon - 1.63*calcium - 2.42*iron - 1.94*titanium - 0.8*oc_adj, ug/m3, AUNSPEC2IJ,,OTHER_REM" #>> End Species List <<# #> file containing site-id, longitude, latitude, time zone (tab delimited) setenv SITE_FILE AQS_sites.txt #> input table containing site-id, time-period, and data fields setenv IN_TABLE CSN_hourly_data_2009.csv ``` #### CSN for 2010 ``` # ================================================================== #> Runtime Species List Environment Options for CSN (formally STN) # #> There are three formats of the CSN observed data .csv files. #> The number of columns and the column names changes across the #> time series provided (2001-2009, 2010, 2011-2013, 2014 and later). #> As a result the species defintions with the run script for the #> sitecmp program need to be changed accordingly. # ================================================================== # ================================================================== #> CSN for 2010 # ================================================================== #> Set TABLE TYPE setenv TABLE_TYPE STN #> Specify the variable names used in your observation inputs #> and model output files for each of the species you are analyzing below. #> #> variable format: #> Obs_expression, Obs_units, [Mod_expression], [Mod_unit], [Variable_name] #> #> The expression is in the form: #> [factor1]*Obs_name1 [+][-] [factor2]*Obs_name2 ... setenv AERO_1 "m_so4,ug/m3, ASO4IJ,,SO4" setenv AERO_2 "m_no3,ug/m3, ANO3IJ,,NO3" setenv AERO_3 "m_nh4,ug/m3, ANH4IJ,,NH4" setenv AERO_4 "PM2.5 Mass,ug/m3,ATOTIJ,,PM_TOT" setenv AERO_5 "PM2.5 Mass,ug/m3,PMIJ_FRM,,PM_FRM" setenv AERO_6 "oc_adj,ug/m3, AOCIJ,,OC" setenv AERO_7 "ec_tor,ug/m3, AECIJ,,EC" setenv AERO_8 "oc_adj+ec_tor,ug/m3,AOCIJ+AECIJ,,TC" ## PM2.5 Sharp Cutoff Species ## Requires preprocessing using AERODIAM file setenv AERO_9 "m_so4,ug/m3, PM25_SO4,,PM25_SO4" setenv AERO_10 "m_no3,ug/m3, PM25_NO3,,PM25_NO3" setenv AERO_11 "m_nh4,ug/m3, PM25_NH4,,PM25_NH4" setenv AERO_12 "oc_adj,ug/m3, PM25_OC,,PM25_OC" setenv AERO_13 "ec_tor,ug/m3, PM25_EC,,PM25_EC" setenv AERO_14 "oc_adj+ec_tor,ug/m3,PM25_OC+PM25_EC,,PM25_TC" setenv AERO_15 "PM2.5 Mass,ug/m3,PM25_TOT,ug/m3,PM25_TOT" setenv AERO_16 "PM2.5 Mass,ug/m3,PM25_FRM,ug/m3,PM25_FRM" # AERO6 species ## note we use Sodium Ion instead of sodium (XRF) becasue XRF is not reliable for sodium ## all other elemental concentrations (including Cl and K) come from XRF setenv AERO_17 "Sodium Ion,ug/m3, ANAIJ,,Na" setenv AERO_18 "chlorine,ug/m3, ACLIJ,,Cl" setenv AERO_19 "iron,ug/m3, AFEJ,,Fe" setenv AERO_20 "aluminum,ug/m3,AALJ,,Al" setenv AERO_21 "silicon,ug/m3, ASIJ,,Si" setenv AERO_22 "titanium,ug/m3, ATIJ,,Ti" setenv AERO_23 "calcium,ug/m3,ACAJ,,Ca" setenv AERO_24 "magnesium,ug/m3,AMGJ,,Mg" setenv AERO_25 "potassium,ug/m3,AKJ,,K" setenv AERO_26 "manganese,ug/m3,AMNJ,,Mn" setenv AERO_27 "2.2*aluminum+2.49*silicon+1.63*calcium+2.42*iron+1.94*titanium,ug/m3,ASOILJ,,soil" setenv AERO_28 "Sodium Ion + chlorine, ug/m3, ANAIJ+ACLIJ,,NaCl" setenv AERO_29 "PM2.5 Mass - m_so4 - m_no3 - m_nh4 - oc_adj - ec_tor - [Sodium Ion] - [chlorine] - 2.2*aluminum - 2.49*silicon - 1.63*calcium - 2.42*iron - 1.94*titanium , ug/m3, AUNSPEC1IJ,,OTHER" setenv AERO_30 "0.8*oc_adj, ug/m3, ANCOMIJ,,NCOM" setenv AERO_31 "PM2.5 Mass - m_so4 - m_no3 - m_nh4 - oc_adj - ec_niosh - [Sodium Ion] - [chlorine] - 2.2*aluminum - 2.49*silicon - 1.63*calcium - 2.42*iron - 1.94*titanium - 0.8*oc_adj, ug/m3, AUNSPEC2IJ,,OTHER_REM" #>> End Species List <<# #> file containing site-id, longitude, latitude, time zone (tab delimited) setenv SITE_FILE AQS_sites.txt #> input table containing site-id, time-period, and data fields setenv IN_TABLE CSN_hourly_data_2010.csv ``` #### CSN for 2011-2013 ``` # ================================================================== #> Runtime Species List Environment Options for CSN (formally STN) # #> There are three formats of the CSN observed data .csv files. #> The number of columns and the column names changes across the #> time series provided (2001-2009, 2010, 2011-2013, 2014 and later). #> As a result the species defintions with the run script for the #> sitecmp program need to be changed accordingly. # ================================================================== # ================================================================== #> CSN for 2011-2013 # ================================================================== #> Set TABLE TYPE setenv TABLE_TYPE STN #> Specify the variable names used in your observation inputs #> and model output files for each of the species you are analyzing below. #> #> variable format: #> Obs_expression, Obs_units, [Mod_expression], [Mod_unit], [Variable_name] #> #> The expression is in the form: #> [factor1]*Obs_name1 [+][-] [factor2]*Obs_name2 ... setenv AERO_1 "SO4f_val,ug/m3, ASO4IJ,,SO4" setenv AERO_2 "NO3f_val,ug/m3, ANO3IJ,,NO3" setenv AERO_3 "NH4f_val,ug/m3, ANH4IJ,,NH4" setenv AERO_4 "88502_val,ug/m3,ATOTIJ,,PM_TOT" setenv AERO_5 "88502_val,ug/m3,PMIJ_FRM,,PM_FRM" setenv AERO_6 "88370_val-blank,ug/m3, AOCIJ,,OC" setenv AERO_7 "88380_val,ug/m3, AECIJ,,EC" setenv AERO_8 "88370_val-blank+88380_val,ug/m3,AOCIJ+AECIJ,,TC" #> PM2.5 Sharp Cutoff Species #> Requires preprocessing using AERODIAM file setenv AERO_9 "SO4f_val,ug/m3, PM25_SO4,,PM25_SO4" setenv AERO_10 "NO3f_val,ug/m3, PM25_NO3,,PM25_NO3" setenv AERO_11 "NH4f_val,ug/m3, PM25_NH4,,PM25_NH4" setenv AERO_12 "88370_val-blank,ug/m3, PM25_OC,,PM25_OC" setenv AERO_13 "88380_val,ug/m3, PM25_EC,,PM25_EC" setenv AERO_14 "88370_val-blank+88380_val,ug/m3,PM25_OC+PM25_EC,,PM25_TC" setenv AERO_15 "88502_val,ug/m3,PM25_TOT,ug/m3,PM25_TOT" setenv AERO_16 "88502_val,ug/m3,PM25_FRM,ug/m3,PM25_FRM" #> AERO6 species #> note we use Sodium Ion instead of sodium (XRF) becasue XRF is not reliable for sodium #> all other elemental concentrations (including Cl and K) come from XRF setenv AERO_17 "NAf_val,ug/m3, ANAIJ,,Na" setenv AERO_18 "CLf_val,ug/m3, ACLIJ,,Cl" setenv AERO_19 "FEf_val,ug/m3, AFEJ,,Fe" setenv AERO_20 "ALf_val,ug/m3,AALJ,,Al" setenv AERO_21 "SIf_val,ug/m3, ASIJ,,Si" setenv AERO_22 "TIf_val,ug/m3, ATIJ,,Ti" setenv AERO_23 "CAf_val,ug/m3,ACAJ,,Ca" setenv AERO_24 "MGf_val,ug/m3,AMGJ,,Mg" setenv AERO_25 "Kf_val,ug/m3,AKJ,,K" setenv AERO_26 "MNf_val,ug/m3,AMNJ,,Mn" setenv AERO_27 "2.2*ALf_val+2.49*SIf_val+1.63*CAf_val+2.42*FEf_val+1.94*TIf_val,ug/m3,ASOILJ,,soil" setenv AERO_28 "NAf_val + CLf_val, ug/m3, ANAIJ+ACLIJ,,NaCl" setenv AERO_29 "88502_val-SO4f_val-NO3f_val-NH4f_val-88370_val-blank-88380_val-[NAf_val]-[CLf_val]-2.2*ALf_val-2.49*SIf_val-1.63*CAf_val-2.42*FEf_val-1.94*TIf_val , ug/m3, AUNSPEC1IJ,,OTHER" setenv AERO_30 "0.8*88370_val-blank,ug/m3, ANCOMIJ,,NCOM" setenv AERO_31 "88502_val-SO4f_val-NO3f_val-NH4f_val-88370_val-blank-88380_val-[NAf_val]-[CLf_val]-2.2*ALf_val-2.49*SIf_val-1.63*CAf_val-2.42*FEf_val-1.94*TIf_val-0.8*88370_val-blank,ug/m3, AUNSPEC2IJ,,OTHER_REM" #>> End Species List <<# #> file containing site-id, longitude, latitude, time zone (tab delimited) setenv SITE_FILE AQS_sites.txt #> input table containing site-id, time-period, and data fields setenv IN_TABLE CSN_data_2011_VIEWS.csv ``` #### CSN for 2014 and later ``` # ================================================================== #> Runtime Species List Environment Options for CSN (formally STN) # #> There are three formats of the CSN observed data .csv files. #> The number of columns and the column names changes across the #> time series provided (2001-2009, 2010, 2011-2013, 2014 and later). #> As a result the species defintions with the run script for the #> sitecmp program need to be changed accordingly. # ================================================================== # ================================================================== #> CSN for 2014 and later # ================================================================== #> Set TABLE TYPE setenv TABLE_TYPE STN #> Specify the variable names used in your observation inputs #> and model output files for each of the species you are analyzing below. #> #> variable format: #> Obs_expression, Obs_units, [Mod_expression], [Mod_unit], [Variable_name] #> #> The expression is in the form: #> [factor1]*Obs_name1 [+][-] [factor2]*Obs_name2 ... setenv AERO_1 "SO4f_val,ug/m3, ASO4IJ,,SO4" setenv AERO_2 "NO3f_val,ug/m3, ANO3IJ,,NO3" setenv AERO_3 "NH4f_val,ug/m3, ANH4IJ,,NH4" setenv AERO_4 "PM25,ug/m3,ATOTIJ,,PM_TOT" setenv AERO_5 "PM25,ug/m3,PMIJ_FRM,,PM_FRM" setenv AERO_6 "88370_val-blank,ug/m3, AOCIJ,,OC" setenv AERO_7 "88380_val,ug/m3, AECIJ,,EC" setenv AERO_8 "88370_val-blank+88380_val,ug/m3,AOCIJ+AECIJ,,TC" #> PM2.5 Sharp Cutoff Species #> Requires preprocessing using AERODIAM file setenv AERO_9 "SO4f_val,ug/m3, PM25_SO4,,PM25_SO4" setenv AERO_10 "NO3f_val,ug/m3, PM25_NO3,,PM25_NO3" setenv AERO_11 "NH4f_val,ug/m3, PM25_NH4,,PM25_NH4" setenv AERO_12 "88370_val-blank,ug/m3, PM25_OC,,PM25_OC" setenv AERO_13 "88380_val,ug/m3, PM25_EC,,PM25_EC" setenv AERO_14 "88370_val-blank+88380_val,ug/m3,PM25_OC+PM25_EC,,PM25_TC" setenv AERO_15 "PM25,ug/m3,PM25_TOT,ug/m3,PM25_TOT" setenv AERO_16 "PM25,ug/m3,PM25_FRM,ug/m3,PM25_FRM" #> AERO6 species #> note we use Sodium Ion instead of sodium (XRF) becasue XRF is not reliable for sodium #> all other elemental concentrations (including Cl and K) come from XRF setenv AERO_17 "NAf_val,ug/m3, ANAIJ,,Na" setenv AERO_18 "CLf_val,ug/m3, ACLIJ,,Cl" setenv AERO_19 "FEf_val,ug/m3, AFEJ,,Fe" setenv AERO_20 "ALf_val,ug/m3,AALJ,,Al" setenv AERO_21 "SIf_val,ug/m3, ASIJ,,Si" setenv AERO_22 "TIf_val,ug/m3, ATIJ,,Ti" setenv AERO_23 "CAf_val,ug/m3,ACAJ,,Ca" setenv AERO_24 "MGf_val,ug/m3,AMGJ,,Mg" setenv AERO_25 "Kf_val,ug/m3,AKJ,,K" setenv AERO_26 "MNf_val,ug/m3,AMNJ,,Mn" setenv AERO_27 "2.2*ALf_val+2.49*SIf_val+1.63*CAf_val+2.42*FEf_val+1.94*TIf_val,ug/m3,ASOILJ,,soil" setenv AERO_28 "NAf_val + CLf_val, ug/m3, ANAIJ+ACLIJ,,NaCl" setenv AERO_29 "PM25-SO4f_val-NO3f_val-NH4f_val-88370_val-blank-88380_val-[NAf_val]-[CLf_val]-2.2*ALf_val-2.49*SIf_val-1.63*CAf_val-2.42*FEf_val-1.94*TIf_val , ug/m3, AUNSPEC1IJ,,OTHER" setenv AERO_30 "0.8*88370_val-blank,ug/m3, ANCOMIJ,,NCOM" setenv AERO_31 "PM25-SO4f_val-NO3f_val-NH4f_val-88370_val-blank-88380_val-[NAf_val]-[CLf_val]-2.2*ALf_val-2.49*SIf_val-1.63*CAf_val-2.42*FEf_val-1.94*TIf_val-0.8*88370_val-blank,ug/m3, AUNSPEC2IJ,,OTHER_REM" #>> End Species List <<# #> file containing site-id, longitude, latitude, time zone (tab delimited) setenv SITE_FILE AQS_sites.txt #> input table containing site-id, time-period, and data fields setenv IN_TABLE CSN_data_2011_VIEWS.csv # ===================================================================== #> END Options for CSN # ===================================================================== ``` ### SITECMP Configuration Options for IMPROVE ``` # ===================================================================== #> SITECMP Species List Configuration Options for IMPROVE # ===================================================================== #> Set TABLE TYPE setenv TABLE_TYPE IMPROVE #> Specify the variable names used in your observation inputs #> and model output files for each of the species you are analyzing below. #> #> variable format: #> Obs_expression, Obs_units, [Mod_expression], [Mod_unit], [Variable_name] #> #> The expression is in the form: #> [factor1]*Obs_name1 [+][-] [factor2]*Obs_name2 ... setenv AERO_1 "SO4f_val,ug/m3,ASO4IJ,,SO4" # sulfate setenv AERO_2 "NO3f_val,ug/m3,ANO3IJ,,NO3" # nitrate setenv AERO_3 "0.2903*NO3f_val+0.375*SO4f_val,ug/m3,ANH4IJ,,NH4" # ammonium (estimated assuming fully neutralized SO4 and NO3) setenv AERO_4 "MF_val,ug/m3,ATOTIJ,ug/m3,PM_TOT" # Total PM2.5 mass setenv AERO_5 "OCf_val,ug/m3,AOCIJ,,OC" # Organic Carbon setenv AERO_6 "ECf_val,ug/m3,AECIJ,,EC" # Elemental Carbon setenv AERO_7 "OCf_val+ECf_val,ug/m3,AOCIJ+AECIJ,,TC" # Total Carbon setenv AERO_8 "CHLf_val,ug/m3,ACLIJ,ug/m3,Cl" # CL Ion setenv AERO_9 "MT_val,ug/m3,PM10,ug/m3,PM10" # PM10 setenv AERO_10 "CM_calculated_val,ug/m3,PMC_TOT,ug/m3,PMC_TOT" # PM Course #> PM2.5 Sharp Cutoff Species #> Requires preprocessing using AERODIAM file setenv AERO_11 "SO4f_val,ug/m3,PM25_SO4,,PM25_SO4" # sulfate (< 2.5um) setenv AERO_12 "NO3f_val,ug/m3,PM25_NO3,,PM25_NO3" # nitrate (< 2.5um) setenv AERO_13 "0.2903*NO3f_val+0.375*SO4f_val,ug/m3,PM25_NH4,,PM25_NH4" # ammonium (< 2.5um) setenv AERO_14 "OCf_val,ug/m3,PM25_OC,,PM25_OC" # Organic Carbon (< 2.5um) setenv AERO_15 "ECf_val,ug/m3,PM25_EC,,PM25_EC" # Elemental Carbon (< 2.5um) setenv AERO_16 "OCf_val+ECf_val,ug/m3,PM25_OC+PM25_EC,,PM25_TC" # Total Carbon (< 2.5um) setenv AERO_17 "MF_val,ug/m3,PM25_TOT,ug/m3,PM25_TOT" # Total PM2.5 mass (< 2.5um) setenv AERO_18 "CHLf_val,ug/m3,PM25_CL,ug/m3,PM25_Cl" # CL Ion (< 2.5um) #> New AE6 species #> note: we use XRF sodium because there is not IC sodium mesaurement #> we use IC measurement for chlorid (CHLf_val) instead of XRF chlroine (CLf_Val) setenv AERO_19 "NAf_val,ug/m3, ANAIJ,,Na" # sodium setenv AERO_20 "NAf_val + CHLf_val,ug/m3,ACLIJ + ANAIJ,,NaCl" # sodium chloride setenv AERO_21 "FEf_val,ug/m3, AFEJ,,Fe" # iron setenv AERO_22 "ALf_val,ug/m3,AALJ,,Al" # aluminum setenv AERO_23 "SIf_val,ug/m3, ASIJ,,Si" # silicon setenv AERO_24 "TIf_val,ug/m3, ATIJ,,Ti" # titanium setenv AERO_25 "CAf_val,ug/m3,ACAJ,,Ca" # calcium setenv AERO_26 "MGf_val,ug/m3,AMGJ,,Mg" # magnesium setenv AERO_27 "Kf_val,ug/m3,AKJ,,K" # potassium setenv AERO_28 "MNf_val,ug/m3,AMNJ,,Mn" # manganese setenv AERO_29 "2.20*ALf_val+2.49*SIf_val+1.63*CAf_val+2.42*FEf_val+1.94*TIf_val,ug/m3,ASOILJ,,soil" # IMPROVE soil eqn. setenv AERO_30 "MF_val-SO4f_val-NO3f_val-0.2903*NO3f_val-0.375*SO4f_val-OCf_val-ECf_val-NAf_val-CHLf_val-2.2*ALf_val-2.49*SIf_val-1.63*CAf_val-2.42*FEf_val-1.94*TIf_val,ug/m3,AUNSPEC1IJ,,OTHER" # PM Other setenv AERO_31 ",ug/m3, ANCOMIJ,,NCOM" # PM Other setenv AERO_32 ",ug/m3, AUNSPEC2IJ,,OTHER_REM" # PM Other #>> End Species List <<# #> file containing site-id, longitude, latitude, time zone (tab delimited) setenv SITE_FILE IMPROVE_sites.txt #> input table containing site-id, time-period, and data fields setenv IN_TABLE IMPROVE_data_2011.csv # ===================================================================== #> END Options for IMPROVE # ===================================================================== ``` ### SITECMP Configuration Options for NADP ``` # ===================================================================== #> SITECMP Species List Configuration Options for NADP # ===================================================================== #> Set TABLE TYPE setenv TABLE_TYPE NADP #> Specify the variable names used in your observation inputs #> and model output files for each of the species you are analyzing below. #> #> variable format: #> Obs_expression, Obs_units, [Mod_expression], [Mod_unit], [Variable_name] #> #> The expression is in the form: #> [factor1]*Obs_name1 [+][-] [factor2]*Obs_name2 ... setenv CHAR_1 "Valcode" setenv CHAR_2 "Invalcode" #> Wet Concentration Variables (1-10) - compute volume-weighted average (VWAVG) in mg/l #> Observed values are already volume-weighted averages for the collection #> period. Original model output is hourly wet deposition. To calculate #> VWAVG, the modeled wet deposition is accumulated for the collection time #> period, divided by the total precipitation (mm), and * 100. Resultingi #> units are mg/l. setenv WETCON_1 "NH4,mg/l,WDEP_NHX,mg/l,NH4_conc" setenv WETCON_2 "NO3,mg/l,WDEP_TNO3,mg/l,NO3_conc" setenv WETCON_3 "SO4,mg/l,WDEP_TSO4,mg/l,SO4_conc" setenv WETCON_4 "Cl,mg/l,WDEP_TCL,mg/l,Cl_conc" setenv WETCON_5 "Na,mg/l,WDEP_ANAJK,mg/l,Na_conc" #> Wet Deposition Variables (1-10) - compute accumulated wet deposition in kg/ha #> Observed values are volume-weighted average wet concentrations for thei #> collection period (mg/l). To convert to wet deposition, multiply the wet #> concentration values by the total observed precip (Sub Ppt in mm), and then #> divide by 100. Original model output is hourly wet deposition. The modeled #> wet deposition is accumulated for the collection time period. setenv WETDEP_1 "NH4,kg/ha,WDEP_NHX,kg/ha,NH4_dep" # Ammonium wet deposition setenv WETDEP_2 "NO3,kg/ha,WDEP_TNO3,kg/ha,NO3_dep" # Nitrate wet deposition setenv WETDEP_3 "SO4,kg/ha,WDEP_TSO4,kg/ha,SO4_dep" # Sulfate wet deposition setenv WETDEP_4 "Cl,kg/ha,WDEP_TCL,kg/ha,Cl_dep" # Chloride wet deposition setenv WETDEP_5 "Na,kg/ha,WDEP_ANAJK,kg/ha,Na_dep" # Sodium wet deposition #> Precipitation Variables (1-10) - compute accumulated precipitation setenv PREC_1 "Sub Ppt,mm,10*RT,mm,Precip" #> AERO6 species setenv WETCON_6 "Ca,mg/l,WDEP_CAJK,mg/l,CA_conc" setenv WETCON_7 "Mg,mg/l,WDEP_MGJK,mg/l,MG_conc" setenv WETCON_8 "K,mg/l,WDEP_KJK,mg/l,K_conc" setenv WETDEP_6 "Ca,kg/ha,WDEP_CAJK,kg/ha,CA_dep" setenv WETDEP_7 "Mg,kg/ha,WDEP_MGJK,kg/ha,MG_dep" setenv WETDEP_8 "K,kg/ha,WDEP_KJK,kg/ha,K_dep" #>> End Species List <<# #> site containing site-id, longitude, latitude, time zone (tab delimited) setenv SITE_FILE NADP_sites.txt #> input table containing site-id, time-period, and data fields setenv IN_TABLE NADP_data_2011.csv # ===================================================================== #> END Options for NADP # ===================================================================== ``` ### Runtime Environment Options for Hourly SEARCH #### Hourly SEARCH for 2004 and earlier ``` # ================================================================== #> Runtime Species List Environment Options for Hourly SEARCH # #> There are four formats of the SEARCH observed hourly data .csv files. #> The number of columns and the column names changes across the time #> series provided (2001-2004, 2005, 2006-2010, 2011-2014). #> As a result the species defintions with the run script for the #> sitecmp program need to be changed accordingly. # ================================================================== # ================================================================== #> Hourly SEARCH for 2004 and earlier # ================================================================== #> Set TABLE TYPE setenv TABLE_TYPE CASTNET #> Specify the variable names used in your observation inputs #> and model output files for each of the species you are analyzing below. #> #> variable format: #> Obs_expression, Obs_units, [Mod_expression], [Mod_unit], [Variable_name] #> #> The expression is in the form: #> [factor1]*Obs_name1 [+][-] [factor2]*Obs_name2 ... setenv AERO_1 "o3,ppb,O3,,O3" setenv AERO_2 "co,ppb,CO,,CO" setenv AERO_3 "so2,ppb,SO2,,SO2" setenv AERO_4 "no,ppb,NO,,NO" setenv AERO_5 "no2,ppb,NO2,,NO2" setenv AERO_6 "noy,ppb,NOY,ppb,NOY" setenv AERO_7 "wsp,m/s,WSPD10,m/s,WSPD10" setenv AERO_8 "wdr,m/s,WDIR10,m/s,WDIR10" setenv AERO_9 "rh,%,RH,%,RH" setenv AERO_10 "temp,C,SFC_TMP,C,SFC_TMP" setenv AERO_12 "sr,w/m2,SOL_RAD,watts/m2,Solar_Rad" #>> End Species List <<# #> file containing site-id, longitude, latitude, time zone (tab delimited) setenv SITE_FILE SEARCH_sites.txt #> input table containing site-id, time-period, and data fields setenv IN_TABLE SEARCH_hourly_data_2004.csv ``` #### Hourly SEARCH for 2005 ``` # ================================================================== #> Runtime Environment Options for Hourly SEARCH # #> There are four formats of the SEARCH observed hourly data .csv files. #> The number of columns and the column names changes across the time #> series provided (2001-2004, 2005, 2006-2010, 2011-2014). #> As a result the species defintions with the run script for the #> sitecmp program need to be changed accordingly. # ================================================================== # ================================================================== #> Hourly Species List SEARCH for 2005 # ================================================================== #> Set TABLE TYPE setenv TABLE_TYPE CASTNET #> Specify the variable names used in your observation inputs #> and model output files for each of the species you are analyzing below. #> #> variable format: #> Obs_expression, Obs_units, [Mod_expression], [Mod_unit], [Variable_name] #> #> The expression is in the form: #> [factor1]*Obs_name1 [+][-] [factor2]*Obs_name2 ... setenv AERO_1 "average o3[ppb],ppb,O3,,O3" setenv AERO_2 "average co[ppb],ppb,CO,,CO" setenv AERO_3 "average so2[ppb],ppb,SO2,,SO2" setenv AERO_4 "average no[ppb],ppb,NO,,NO" setenv AERO_5 "average no2[ppb],ppb,NO2,,NO2" setenv AERO_6 "average noy[ppb],ppb,NOY,ppb,NOY" setenv AERO_7 "average wsp[m/s],m/s,WSPD10,m/s,WSPD10" setenv AERO_8 "average wdr[deg],m/s,WDIR10,m/s,WDIR10" setenv AERO_9 "average rh[%],%,RH,%,RH" setenv AERO_10 "average temp[deg c],C,SFC_TMP,C,SFC_TMP" setenv AERO_11 "25.4*average rainfall[inches],mm,precip,mm,precip" setenv AERO_12 "average sr[w/m2],w/m2,SOL_RAD,watts/m2,Solar_Rad" #>> End Species List <<# #> file containing site-id, longitude, latitude, time zone (tab delimited) setenv SITE_FILE SEARCH_sites.txt #> input table containing site-id, time-period, and data fields setenv IN_TABLE SEARCH_hourly_data_2005.csv ``` #### Hourly SEARCH for 2006 to 2010 ``` # ================================================================== #> Runtime Environment Options for Hourly SEARCH # #> There are four formats of the SEARCH observed hourly data .csv files. #> The number of columns and the column names changes across the time #> series provided (2001-2004, 2005, 2006-2010, 2011-2014). #> As a result the species defintions with the run script for the #> sitecmp program need to be changed accordingly. # ================================================================== # ================================================================== #> Hourly Species List SEARCH for 2006 to 2010 # ================================================================== #> Set TABLE TYPE setenv TABLE_TYPE CASTNET #> Specify the variable names used in your observation inputs #> and model output files for each of the species you are analyzing below. #> #> variable format: #> Obs_expression, Obs_units, [Mod_expression], [Mod_unit], [Variable_name] #> #> The expression is in the form: #> [factor1]*Obs_name1 [+][-] [factor2]*Obs_name2 ... setenv AERO_1 "Average O3[ppb],ppb,O3,,O3" setenv AERO_2 "Average CO[ppb],ppb,CO,,CO" setenv AERO_3 "Average SO2[ppb],ppb,SO2,,SO2" setenv AERO_4 "Average NO[ppb],ppb,NO,,NO" setenv AERO_5 "Average NO2[ppb],ppb,NO2,,NO2" setenv AERO_6 "Average NOy[ppb],ppb,NOY,ppb,NOY" setenv AERO_7 "Average HNO3[ppb],ppb,HNO3,ppb,HNO3" setenv AERO_8 "Average NH3[ppb],ug/m3,NH3,,NH3" setenv AERO_9 "Average OptEC[ug/m3],ug/m3,AECIJ,ug/m3,EC" setenv AERO_10 "Average OC[ug/m3],ug/m3,AOCIJ,ug/m3,OC" setenv AERO_11 "Average TC[ug/m3],ug/m3,AECIJ+AOCIJ,ug/m3,TC" setenv AERO_12 "Average WSP[m/s],m/s,WSPD10,m/s,WSPD10" setenv AERO_13 "Average WDR[Deg],m/s,WDIR10,m/s,WDIR10" setenv AERO_14 "Average RH[%],%,RH,%,RH" setenv AERO_15 "Average TEMP[Deg C],C,SFC_TMP,C,SFC_TMP" setenv AERO_16 "25.4*Average RAINFALL[Inches],mm,precip,mm,precip" setenv AERO_17 "Average SR[W/m2],w/m2,SOL_RAD,watts/m2,Solar_Rad" setenv AERO_18 "Average TEOM[ug/m3],ug/m3,ATOTIJ,,PM_TOT" setenv AERO_19 "Average NH4[ug/m3],ug/m3,ANH4IJ,,NH4" setenv AERO_20 "Average SO4[ug/m3],ug/m3,ASO4IJ,,SO4" setenv AERO_21 "Average OptEC[ug/m3],ug/m3,PM25_EC,ug/m3,PM25_EC" setenv AERO_22 "Average OC[ug/m3],ug/m3,PM25_OC,ug/m3,PM25_OC" setenv AERO_23 "Average TC[ug/m3],ug/m3,PM25_EC+PM25_OC,ug/m3,PM25_TC" setenv AERO_24 "Average NH4[ug/m3],ug/m3,PM25_NH4,,PM25_NH4" setenv AERO_25 "Average NO3[ug/m3],ug/m3,PM25_NO3,,PM25_NO3" setenv AERO_26 "Average SO4[ug/m3],ug/m3,PM25_SO4,,PM25_SO4" #>> End Species List <<# #> SITE FILE containing site-id, longitude, latitude, time zone (tab delimited) #> This file can be downloaded from the CMAS Center Data clearinghouse #> under the heading "2000-2014 North American Air Quality Observation Data": #> https://www.cmascenter.org/download/data.cfm #> AQS site file is located in AMET12_SITE_FILES.tar.gz setenv SITE_FILE SEARCH_sites.txt #> input table containing site-id, time-period, and data fields setenv IN_TABLE SEARCH_hourly_data_2011.csv ``` #### Hourly SEARCH for 2011 and later ``` # ================================================================== #> Runtime Environment Options for Hourly SEARCH # #> There are four formats of the SEARCH observed hourly data .csv files. #> The number of columns and the column names changes across the time #> series provided (2001-2004, 2005, 2006-2010, 2011-2014). #> As a result the species defintions with the run script for the #> sitecmp program need to be changed accordingly. # ================================================================== # ================================================================== #> Hourly Species List SEARCH for 2011 and later # ================================================================== #> Set TABLE TYPE setenv TABLE_TYPE CASTNET #> Specify the variable names used in your observation inputs #> and model output files for each of the species you are analyzing below. #> #> variable format: #> Obs_expression, Obs_units, [Mod_expression], [Mod_unit], [Variable_name] #> #> The expression is in the form: #> [factor1]*Obs_name1 [+][-] [factor2]*Obs_name2 ... setenv AERO_1 "Average O3[ppb],ppb,O3,,O3" setenv AERO_2 "Average CO[ppb],ppb,CO,,CO" setenv AERO_3 "Average SO2[ppb],ppb,SO2,,SO2" setenv AERO_4 "Average NO[ppb],ppb,NO,,NO" setenv AERO_5 "Average NO2[ppb],ppb,NO2,,NO2" setenv AERO_6 "Average NOy[ppb],ppb,NOY,ppb,NOY" setenv AERO_7 "Average HNO3[ppb],ppb,HNO3,ppb,HNO3" setenv AERO_8 "Average NH3[ppb],ug/m3,NH3,,NH3" setenv AERO_9 "Average WSP[m/s],m/s,WSPD10,m/s,WSPD10" setenv AERO_10 "Average WDR[Deg],m/s,WDIR10,m/s,WDIR10"; setenv AERO_11 "Average RH[%],%,RH,%,RH" setenv AERO_12 "Average TEMP[Deg C],C,SFC_TMP,C,SFC_TMP" setenv AERO_13 "25.4*Average RAINFALL[Inches],mm,precip,mm,precip" setenv AERO_14 "Average SR[W/m2],w/m2,SOL_RAD,watts/m2,Solar_Rad" #>> End Species List <<# #> site file containing site-id, longitude, latitude, time zone (tab delimited) setenv SITE_FILE SEARCH_sites.txt #> input table containing site-id, time-period, and data fields setenv IN_TABLE SEARCH_hourly_data_2013.csv # ===================================================================== #> END Options for Hourly SEARCH # ===================================================================== ``` ### Runtime Environment Options for Daily SEARCH #### Daily SEARCH for 2007 and earlier ``` # ================================================================== #> Runtime Species List Environment Options for Daily SEARCH # #> There are two formats of the SEARCH observed daily data .csv files. #> The number of columns and the column names changes across the time #> series provided (2001-2007, 2008-2014). #> As a result the species defintions with the run script for the sitecmp #> program need to be changed accordingly. # ================================================================== # ================================================================== #> Daily SEARCH for 2007 and earlier # ================================================================== #> Set TABLE TYPE setenv TABLE_TYPE CASTNET #> Specify the variable names used in your observation inputs #> and model output files for each of the species you are analyzing below. #> #> variable format: #> Obs_expression, Obs_units, [Mod_expression], [Mod_unit], [Variable_name] #> #> The expression is in the form: #> [factor1]*Obs_name1 [+][-] [factor2]*Obs_name2 ... setenv AERO_1 "pcm1 so4,ug/m3,ASO4IJ,ug/m3,SO4" setenv AERO_2 "pcm1 no3+pcm1 teflon no3,ug/m3,ANO3IJ,ug/m3,NO3" setenv AERO_3 "pcm1 teflon nh4+pcm1 vol nh4,ug/m3,ANH4IJ,ug/m3,NH4" setenv AERO_4 "pcm3 ec,ug/m3,AECIJ,ug/m3,EC" setenv AERO_5 "pcm3 oc,ug/m3,AOCIJ,ug/m3,OC" setenv AERO_6 "pcm1 mass,ug/m3,ATOTIJ,ug/m3,PM_TOT" #>> End Species List <<# #> file containing site-id, longitude, latitude, time zone (tab delimited) setenv SITE_FILE SEARCH_sites.txt #> input table containing site-id, time-period, and data fields #> AQS obs data in the format needed for sitecmp are available #> from the CMAS Center Data clearinghouse under the heading "2000-2014 North American Air Quality Observation Data": #> https://www.cmascenter.org/download/data.cfm #> Hourly AQS observations are located in AMET12_OBSDATA_YYYY.tar.gz for year YYYY. setenv IN_TABLE SEARCH_daily_data_2007.csv ``` ### Runtime Environment Options for Daily SEARCH #### Daily SEARCH for 2008 and later ``` # ================================================================== #> Runtime Environment Options for Daily SEARCH # #> There are two formats of the SEARCH observed daily data .csv files. #> The number of columns and the column names changes across the time #> series provided (2001-2007, 2008-2014). #> As a result the species defintions with the run script for the sitecmp #> program need to be changed accordingly. # ================================================================== # ================================================================== #> Daily Species List SEARCH for 2008 and later # ================================================================== #> Set TABLE TYPE setenv TABLE_TYPE CASTNET #> Specify the variable names used in your observation inputs #> and model output files for each of the species you are analyzing below. #> #> variable format: #> Obs_expression, Obs_units, [Mod_expression], [Mod_unit], [Variable_name] #> #> The expression is in the form: #> [factor1]*Obs_name1 [+][-] [factor2]*Obs_name2 ... setenv AERO_1 "PM25_Tef_Sulfate [ug/m3],ug/m3,ASO4IJ,ug/m3,SO4" setenv AERO_2 "PM25_Tef_Nitrate [ug/m3],ug/m3,ANO3IJ,ug/m3,NO3" setenv AERO_3 "PM25_Tef_Ammonium [ug/m3],ug/m3,ANH4IJ,ug/m3,NH4" setenv AERO_4 "PM25_Total_Nitrate [ug/m3],ug/m3,ANO3IJ+HNO3_UGM3,ug/m3,TNO3" setenv AERO_5 "PM25_Tef_Sodium [ug/m3],ug/m3,ANAIJ,ug/m3,Na" setenv AERO_6 "OCTC [ug/m3],ug/m3,AOCIJ,ug/m3,OC" setenv AERO_7 "ECTC [ug/m3],ug/m3,AECIJ,ug/m3,EC" setenv AERO_8 "FRM PM2.5 Mass [ug/m3],ug/m3,ATOTIJ,ug/m3,PM_TOT" setenv AERO_9 "XRF Al [ug/m3],ug/m3,AALJ,ug/m3,Al" setenv AERO_10 "XRF Si [ug/m3],ug/m3,ASIJ,ug/m3,Si" setenv AERO_11 "XRF K [ug/m3],ug/m3,AKJ,ug/m3,K" setenv AERO_12 "XRF Ca [ug/m3],ug/m3,ACAJ,ug/m3,Ca" setenv AERO_13 "XRF Ti [ug/m3],ug/m3,ATIJ,ug/m3,Ti" setenv AERO_14 "XRF Mn [ug/m3],ug/m3,AMNJ,ug/m3,Mn" setenv AERO_15 "XRF Fe [ug/m3],ug/m3,AFEJ,ug/m3,Fe" #>> End Species List <<# #> file containing site-id, longitude, latitude, time zone (tab delimited) setenv SITE_FILE SEARCH_sites.txt #> input table containing site-id, time-period, and data fields setenv IN_TABLE SEARCH_daily_data_2011.csv # ===================================================================== #> END Options for Daily SEARCH # ===================================================================== ``` ================================================ FILE: POST/sitecmp/scripts/bldit_sitecmp.csh ================================================ #! /bin/csh -f # ==================== SITECMPv5.5.X Build Script ===================== # # Usage: bldit_sitecmp.csh >&! bldit_sitecmp.log # # Requirements: I/O API & netCDF libraries; a Fortran compiler # # # # To report problems or request help with this script/program: # # http://www.cmascenter.org # # =================================================================== # # ======================================================================= #> Preliminary error checking and environment configuration # ======================================================================= #> Check that the host system is Linux-based set BLD_OS = `uname -s` if ($BLD_OS != 'Linux') then echo " $BLD_OS -> wrong bldit script for host!" exit 1 endif #> Set Compiler Identity by User Input: Options -> intel | pgi | gcc if ( $#argv == 1 ) then setenv compiler $argv[1] setenv compilerVrsn Empty else if ( $#argv == 2 ) then #> Compiler Name and Version have been provided setenv compiler $1 setenv compilerVrsn $2 else echo "usage: $0 " echo " where is intel, pgi or gcc" exit(2) endif #> Source the config.cmaq file to set the build environment cd ../../.. source ./config_cmaq.csh #> Source Code Repository setenv REPOROOT ${CMAQ_REPO}/POST/sitecmp #> location of the source code for SITECMP #=============================================================================== #> Begin User Input Section #=============================================================================== #> User choices: working directory and application ID set VRSN = v55 #> model version set EXEC = sitecmp_${VRSN}.exe #> executable name for this application set CFG = sitecmp_${VRSN}.cfg #> BLDMAKE configuration file name setenv BLDER ${CMAQ_HOME}/UTIL/bldmake/bldmake_${compilerString}.exe #> location of makefile builder executable #> user choice: copy source files set CopySrc #> copy the source files into the BLD directory #set MakeFileOnly # builds a Makefile to make the model, but does not compile - # comment out to also compile the model (default if not set) # set CompileBLDMAKE #> Recompile the BLDMAKE utility from source #> comment out to use an existing BLDMAKE executable set ModDriver = src #> SITECMP Modules #============================================================================================ #> Computing System Configuration: #> Most of these settings are done in config.cmaq #============================================================================================ #> Set full path of Fortran 90 compiler setenv FC ${myFC} set FP = $FC #> Set IO/API version set IOAPI = ioapi_3.1 #> Set compiler flags set FSTD = "${myFSTD}" set DBG = "${myDBG}" setenv F_FLAGS "${myFFLAGS}" set F90_FLAGS = "${myFRFLAGS}" set CPP_FLAGS = "" #> Fortran Preprocessor Flags set LINK_FLAGS = "${myLINK_FLAG}" #> Link Flags set LIB2 = "${ioapi_lib}" #============================================================================================ #> Set up the sitecmp build directory under the Tools directory #> for checking out and compiling source code #============================================================================================ set Bld = ${CMAQ_HOME}/POST/sitecmp/scripts/BLD_sitecmp_${VRSN}_${compilerString} if ( ! -e "$Bld" ) then mkdir -pv $Bld else if ( ! -d "$Bld" ) then echo " *** target exists, but not a directory ***" exit 1 endif endif cd $Bld #> Check for previous run if ( -e "$Bld/${CFG}" ) then echo " >>> previous ${CFG} exists, re-naming to ${CFG}.old <<<" mv $Bld/${CFG} $Bld/${CFG}.old endif #============================================================================================ #> Make the config file #============================================================================================ set Cfile = ${Bld}/$CFG set quote = '"' echo > $Cfile echo "model $EXEC;" >> $Cfile echo >> $Cfile echo "repo $REPOROOT;" >> $Cfile echo >> $Cfile echo "lib_base ${CMAQ_LIB};" >> $Cfile echo >> $Cfile echo "lib_1 ioapi/lib;" >> $Cfile echo >> $Cfile echo "lib_2 ioapi/include_files;" >> $Cfile echo >> $Cfile echo "lib_3 netcdf/include;" >> $Cfile echo >> $Cfile echo "lib_4 ioapi/lib;" >> $Cfile echo >> $Cfile echo "lib_5 netcdff/include;" >> $Cfile echo >> $Cfile set text = "$quote$CPP_FLAGS$quote;" echo "cpp_flags $text" >> $Cfile echo >> $Cfile echo "f_compiler $FC;" >> $Cfile echo >> $Cfile echo "fstd $quote$FSTD$quote;" >> $Cfile echo >> $Cfile echo "dbg $quote$DBG$quote;" >> $Cfile echo >> $Cfile echo "f_flags $quote$F_FLAGS$quote;" >> $Cfile echo >> $Cfile echo "f90_flags $quote$F90_FLAGS$quote;" >> $Cfile echo >> $Cfile echo "link_flags $quote$LINK_FLAGS$quote;" >> $Cfile echo >> $Cfile #echo "libraries $quote$LIBS$quote;" >> $Cfile echo "ioapi $quote$LIB2$quote;" >> $Cfile echo >> $Cfile echo "netcdf $quote$netcdf_lib$quote;" >> $Cfile echo >> $Cfile echo "netcdff $quote$netcdff_lib$quote;" >> $Cfile set text = "sitecmp" echo "// options are" $text >> $Cfile echo "Module ${ModDriver};" >> $Cfile echo >> $Cfile #============================================================================================ #> Use BLDMAKE to create the Makefile and model executable if desired #============================================================================================ unalias mv rm #> Recompile BLDMAKE from source if requested or if it does not exist if ( $?CompileBLDMAKE || ! -f $BLDER ) then cd ${CMAQ_REPO}/UTIL/bldmake/scripts ./bldit_bldmake.csh endif #> Relocate to the BLD_* directory cd $Bld #> Set serial options for BLDMAKE execution set Blder = "$BLDER -serial -verbose" #> Run BLDMAKE Utility if ( $?MakeFileOnly ) then #> Just create the Makefile if ( $?CopySrc ) then $Blder -makefo $Cfile else $Blder -makefo -git_local $Cfile endif else # Also compile the model if ( $?CopySrc ) then $Blder $Cfile else $Blder -git_local $Cfile endif endif #> Save Makefile with Compiler-dependent name and create symbolic #> link back to generic name. mv Makefile Makefile.$compilerString if ( -e Makefile.$compilerString && -e Makefile ) rm Makefile ln -s Makefile.$compilerString Makefile #> Check for error during makefile generation if ( $status != 0 ) then echo " *** failure in $Blder ***" exit 1 endif exit ================================================ FILE: POST/sitecmp/scripts/run_sitecmp_AQS_Daily.csh ================================================ #! /bin/csh -f # ===================== SITECMP_v5.5.X Run Script ===================== # Usage: run_sitecmp_AQS_Daily.csh >&! sitecmp_AQS_Daily.log & # # To report problems or request help with this script/program: # http://www.epa.gov/cmaq (EPA CMAQ Website) # http://www.cmascenter.org # =================================================================== # ================================================================== #> Runtime Environment Options # ================================================================== #> Choose compiler and set up CMAQ environment with correct #> libraries using config.cmaq. Options: intel | gcc | pgi setenv compiler intel cd ../../.. source ./config_cmaq.csh #> Set General Parameters for Configuring the Simulation set VRSN = v55 #> Code Version set PROC = mpi #> serial or mpi set MECH = cb6r3_ae7_aq #> Mechanism ID set APPL = Bench_2016_12SE1 #> Application Name (e.g. Gridname) #> Define RUNID as any combination of parameters above or others. By default, #> this information will be collected into this one string, $RUNID, for easy #> referencing in output binaries and log files as well as in other scripts. set RUNID = ${VRSN}_${compilerString}_${APPL} #> Set the build directory if this was not set above #> (this is where the executable is located by default). if ( ! $?BINDIR ) then set BINDIR = ${CMAQ_HOME}/POST/sitecmp/scripts/BLD_sitecmp_${VRSN}_${compilerString} endif #> Set the name of the executable. set EXEC = sitecmp_${VRSN}.exe #> Set output directory set POSTDIR = ${CMAQ_DATA}/POST #> Location where sitecmp file will be written if ( ! -e $POSTDIR ) then mkdir $POSTDIR endif # ===================================================================== #> SITECMP Configuration Options # ===================================================================== # ~~~~~~~~~~~~ START NETWORK SPECIFIC SECTION ~~~~~~~~~~~~~~~~~~~~~~~~~ #> The following environment variables will change depending on what #> observation network is being matched with CMAQ output. #> See the README.md file in this folder for the settings to use for #> the following networks: IMPROVE, CASTNET, CSN (formally STN), NADP #> SEARCH, AIRMON #> Set TABLE TYPE setenv TABLE_TYPE CASTNET #> Specify the variable names used in your observation inputs #> and model output files for each of the species you are analyzing below. #> #> variable format: #> Obs_expression, Obs_units, [Mod_expression], [Mod_unit], [Variable_name] #> #> The expression is in the form: #> [factor1]*Obs_name1 [+][-] [factor2]*Obs_name2 ... setenv AERO_1 "PM25,ug/m3,ATOTIJ,ug/m3,PM_TOT" # PM2.5 Total Mass setenv AERO_2 "PM25,ug/m3,PMIJ_FRM,ug/m3,PM_FRM" # PM2.5 Total Mass (I+J with FRM adjustment) setenv AERO_3 "PM10,ug/m3,ATOTIJK,ug/m3,PM10" # PM10 Total Mass setenv AERO_4 "Isoprene,ppb,ISOP,ppb,Isoprene" # Isoprene setenv AERO_5 "Ethylene,ppb,ETH,ppb,Ethylene" # Ethene (Ethylene) setenv AERO_6 "Ethane,ppb,ETHA,ppb,Ethane" # Ethane setenv AERO_7 "Toluene,ppb,TOL,ppb,Toluene" # Toluene setenv AERO_8 "Acetaldehyde,ppb,ALD2,ppb,Acetaldehyde" # Acetaldehyde setenv AERO_9 "Formaldehyde,ppb,FORM,ppb,Formaldehyde" # Formaldehyde setenv AERO_10 "OC+OC_Blank,ug/m3,AOCIJ,ug/m3,OC" # OC blank adjusted Mass setenv AERO_11 "EC,ug/m3,AECIJ,ug/m3,EC" # EC Mass setenv AERO_12 "OC+OC_Blank+EC,ug/m3,AOCIJ+AECIJ,,TC" # Total Carbon setenv AERO_13 "Na,ug/m3, ANAIJ,,Na" # sodium setenv AERO_14 "Cl,ug/m3, ACLIJ,,Cl" # chlorine setenv AERO_15 "Na+Cl,ug/m3,ACLIJ+ANAIJ,,NaCl" # sodium chloride setenv AERO_16 "SO4,ug/m3,ASO4IJ,ug/m3,SO4" # PM2.5 Total Mass setenv AERO_17 "NO3,ug/m3,ANO3IJ,ug/m3,NO3" # PM2.5 Total Mass setenv AERO_18 "NH4,ug/m3,ANH4IJ,ug/m3,NH4" # PM2.5 Total Mass #> PM2.5 Sharp Cutoff Species #> Requires preprocessing using setenv CCTM_AELMO file setenv AERO_19 "PM25,ug/m3,PM25_TOT,ug/m3,PM25_TOT" # PM2.5 Total Mass with sharp cutoff setenv AERO_20 "PM25,ug/m3,PM25_FRM,,PM25_FRM" # PM2.5 Total Mass (cutoff with FRM adjustment) setenv AERO_21 "SO4,ug/m3, PM25_SO4,,PM25_SO4" # sulfate (sharp cutoff) setenv AERO_22 "NO3,ug/m3, PM25_NO3,,PM25_NO3" # nitrate (sharp cutoff) setenv AERO_23 "NH4,ug/m3, PM25_NH4,,PM25_NH4" # ammonium (sharp cutoff) setenv AERO_24 "OC+OC_Blank,ug/m3, PM25_OC,,PM25_OC" # Organic Carbon (sharp cutoff) setenv AERO_25 "EC,ug/m3, PM25_EC,,PM25_EC" # Elemental Carbon (sharp cutoff) setenv AERO_26 "OC+OC_Blank+EC,ug/m3,PM25_OC+PM25_EC,,PM25_TC" # Total Carbon (sharp cutoff) #> setenv AERO6 species #> note we use Sodium Ion instead of sodium (XRF) becasue XRF is not reliable for sodium #> all other elemental concentrations (including Cl and K) come from XRF setenv AERO_27 "Fe,ug/m3, AFEJ,,Fe" # iron setenv AERO_28 "Al,ug/m3,AALJ,,Al" # aluminum setenv AERO_29 "Si,ug/m3, ASIJ,,Si" # silicon setenv AERO_30 "Ti,ug/m3, ATIJ,,Ti" # titanium setenv AERO_31 "Ca,ug/m3,ACAJ,,Ca" # calcium setenv AERO_32 "Mg,ug/m3,AMGJ,,Mg" # magnesium setenv AERO_33 "K,ug/m3,AKJ,,K" # potassium setenv AERO_34 "Mg,ug/m3,AMNJ,,Mn" # manganese setenv AERO_35 "2.2*Al+2.49*Si+1.63*Ca+2.42*Fe+1.94*Ti,ug/m3,ASOILJ,,soil" setenv AERO_36 "PM25-SO4-NO3-NH4-OC-EC-[Na]-[Cl]-2.2*Al-2.49*Si-1.63*Ca-2.42*Fe-1.94*Ti , ug/m3, AUNSPEC1IJ,,OTHER" # PM Other setenv AERO_37 "0.8*OC,ug/m3, ANCOMIJ,,NCOM" # PM Other setenv AERO_38 "PM25-SO4-NO3-NH4-OC-EC-[Na]-[Cl]-2.2*Al-2.49*Si-1.63*Ca-2.42*Fe-1.94*Ti-0.8*OC,ug/m3, AUNSPEC2IJ,,OTHER_REM" # PM Other no NCOM #>> End Species List <<# # ~~~~~~~~~~~~ END NETWORK SPECIFIC SECTION ~~~~~~~~~~~~~~~~~~~~~~~~~ #> define time window set SDATE = "2016-07-01" #> beginning date (July 1, 2016) set EDATE = "2016-07-14" #> ending date (July 14, 2016) setenv START_TIME 0 setenv END_TIME 230000 #> Convert SDATE and EDATE to Julian day. #> (required format for sitecmp START_DATE and END_DATE environment variables) setenv START_DATE `date -ud "${SDATE}" +%Y%j` setenv END_DATE `date -ud "${EDATE}" +%Y%j` #> define the PRECIP variable setenv PRECIP RT #> adjust for daylight savings setenv APPLY_DLS N #> set missing value string setenv MISSING '-999' #> Projection sphere type (use type 20 to match WRF/CMAQ) setenv IOAPI_ISPH 20 #> Number of hours to add when retrieving time steps from M3_FILE_n files during processing. #> This should only be non-zero if the M3_FILE_n files were pre-processed with a utility like m3tshift (default 0). setenv TIME_SHIFT 0 ############################################################# # Input files ############################################################# #> ioapi input files containing VNAMES (max of 10) setenv M3_FILE_1 ${CMAQ_DATA}/POST/COMBINE_ACONC_${RUNID}_201607.nc #[Add location of input file, e.g. COMBINE_ACONC file.] #> SITE FILE containing site-id, longitude, latitude, and optionally #> GMT offset, state, county, and elevation (csv format) #> The column headings for the required variables need to be #> stat_id, lon, and lat (case insensitive) #> The column headings for the optional variables need to be #> gmt_offset, state, county, and elevation (case insensitive) #> See the README.md file in this folder for the information on #> where to download this file. setenv SITE_FILE AQS_full_site_list.csv #> On EPA system: # setenv SITE_FILE /work/MOD3EVAL/aq_obs/routine/site_metadata_files/AQS_full_site_list.csv #> input table containing site-id, time-period, and data fields #> AQS obs data in the format needed for sitecmp are available online. #> See the README.md file in this folder for the information on #> where to download this file. #> Hourly AQS observations are located in AMET12_OBSDATA_YYYY.tar.gz for year YYYY. setenv IN_TABLE AQS_daily_data_2016.csv #> One EPA system: # setenv IN_TABLE /work/MOD3EVAL/aq_obs/routine/2016/AQS_daily_data_2016.csv ############################################################# # Output files ############################################################# #> output table (comma delimited text file importable to Excel) setenv OUT_TABLE ${POSTDIR}/AQS_Daily_CMAQ_${RUNID}_201607.csv #> Executable call: ${BINDIR}/${EXEC} set progstat = ${status} if ( ${progstat} ) then echo "ERROR ${progstat} in $BINDIR/$EXEC" exit( ${progstat} ) endif exit() ================================================ FILE: POST/sitecmp/scripts/run_sitecmp_AQS_Hourly.csh ================================================ #! /bin/csh -f # ===================== SITECMP_v5.5.X Run Script ===================== # Usage: run_sitecmp_AQS_Hourly.csh >&! sitecmp_AQS_Hourly.log & # # To report problems or request help with this script/program: # http://www.epa.gov/cmaq (EPA CMAQ Website) # http://www.cmascenter.org # =================================================================== # ================================================================== #> Runtime Environment Options # ================================================================== #> Choose compiler and set up CMAQ environment with correct #> libraries using config.cmaq. Options: intel | gcc | pgi setenv compiler intel cd ../../.. source ./config_cmaq.csh #> Set General Parameters for Configuring the Simulation set VRSN = v55 #> Code Version set PROC = mpi #> serial or mpi set MECH = cb6r3_ae7_aq #> Mechanism ID set APPL = Bench_2016_12SE1 #> Application Name (e.g. Gridname) #> Define RUNID as any combination of parameters above or others. By default, #> this information will be collected into this one string, $RUNID, for easy #> referencing in output binaries and log files as well as in other scripts. set RUNID = ${VRSN}_${compilerString}_${APPL} #> Set the build directory if this was not set above #> (this is where the executable is located by default). if ( ! $?BINDIR ) then set BINDIR = ${CMAQ_HOME}/POST/sitecmp/scripts/BLD_sitecmp_${VRSN}_${compilerString} endif #> Set the name of the executable. set EXEC = sitecmp_${VRSN}.exe #> Set output directory set POSTDIR = ${CMAQ_DATA}/POST #> Location where sitecmp file will be written if ( ! -e $POSTDIR ) then mkdir $POSTDIR endif # ===================================================================== #> SITECMP Configuration Options # ===================================================================== # ~~~~~~~~~~~~ START NETWORK SPECIFIC SECTION ~~~~~~~~~~~~~~~~~~~~~~~~~ #> The following environment variables will change depending on what #> observation network is being matched with CMAQ output. #> This sample run script is set up for hourly data from AQS. #> See the README.md file in this folder for the settings to use for #> the following networks: IMPROVE, CASTNET, CSN (formally STN), NADP #> SEARCH, AIRMON #> Set TABLE TYPE setenv TABLE_TYPE CASTNET #> Specify the variable names used in your observation inputs #> and model output files for each of the species you are analyzing below. #> #> variable format: #> Obs_expression, Obs_units, [Mod_expression], [Mod_unit], [Variable_name] #> #> The expression is in the form: #> [factor1]*Obs_name1 [+][-] [factor2]*Obs_name2 ... setenv GAS_1 "O3,ppb,O3,ppb,O3" setenv GAS_2 "NO,ppb,NO,ppb,NO" setenv GAS_3 "NOY,ppb,NOY,ppb,NOY" setenv GAS_4 "NO2,ppb,NO2,ppb,NO2" setenv GAS_5 "NOX,ppb,NO+NO2,ppb,NOX" setenv GAS_6 "CO,ppb,CO,ppb,CO" setenv GAS_7 "SO2,ppb,SO2,ppb,SO2" setenv GAS_8 "PM25,ug/m3,ATOTIJ,ug/m3,PM_TOT" setenv GAS_9 "PM25,ug/m3,PMIJ_FRM,ug/m3,PM_FRM" setenv GAS_10 "PM10,ug/m3,PM10,ug/m3,PM10" setenv GAS_11 "Isoprene,ppb,ISOP,ppb,Isoprene" setenv GAS_12 "Ethylene,ppb,ETH,ppb,Ethylene" setenv GAS_13 "Ethane,ppb,ETHA,ppb,Ethane" setenv GAS_14 "Toluene,ppb,TOL,ppb,Toluene" setenv GAS_15 "Temperature,C,SFC_TMP,C,SFC_TMP" setenv GAS_16 "RH,%,RH,%,RH" setenv GAS_17 "Wind_Speed,m/s,WSPD10,m/s,WSPD10" setenv GAS_18 ",,PBLH,m,PBLH" setenv GAS_19 ",,SOL_RAD,watts/m2,Solar_Rad" setenv GAS_20 ",,10*precip,mm/hr,precip" #> PM2.5 Sharp Cutoff Species #> Requires preprocessing using CCTM_AELMO file setenv GAS_21 "PM25,ug/m3,PM25_TOT,ug/m3,PM25_TOT" setenv GAS_22 "PM25,ug/m3,PM25_FRM,,PM25_FRM" #>> End Species List <<# # ~~~~~~~~~~~~ END NETWORK SPECIFIC SECTION ~~~~~~~~~~~~~~~~~~~~~~~~~ #> define time window set SDATE = "2016-07-01" #> beginning date (July 1, 2016) set EDATE = "2016-07-14" #> ending date (July 14, 2016) setenv START_TIME 0 setenv END_TIME 230000 #> Convert SDATE and EDATE to Julian day. #> (required format for sitecmp START_DATE and END_DATE environment variables) setenv START_DATE `date -ud "${SDATE}" +%Y%j` setenv END_DATE `date -ud "${EDATE}" +%Y%j` #> define the PRECIP variable setenv PRECIP RT #> adjust for daylight savings setenv APPLY_DLS N #> set missing value string setenv MISSING '-999' #> Projection sphere type (use type 20 to match WRF/CMAQ) setenv IOAPI_ISPH 20 #> Number of hours to add when retrieving time steps from M3_FILE_n files during processing. #> This should only be non-zero if the M3_FILE_n files were pre-processed with a utility like m3tshift (default 0). setenv TIME_SHIFT 0 ############################################################# # Input files ############################################################# #> ioapi input files containing VNAMES (max of 10) setenv M3_FILE_1 ${CMAQ_DATA}/POST/COMBINE_ACONC_${RUNID}_201607.nc #[Add location of input file, e.g. COMBINE_ACONC file.] #> SITE FILE containing site-id, longitude, latitude, and optionally #> GMT offset, state, county, and elevation (csv format) #> The column headings for the required variables need to be #> stat_id, lon, and lat (case insensitive) #> The column headings for the optional variables need to be #> gmt_offset, state, county, and elevation (case insensitive) #> See the README.md file in this folder for the information on #> where to download this file. setenv SITE_FILE AQS_full_site_list.csv #> On EPA system: # setenv SITE_FILE /work/MOD3EVAL/aq_obs/routine/site_metadata_files/AQS_full_site_list.csv #> input table containing site-id, time-period, and data fields #> AQS obs data in the format needed for sitecmp are available online. #> See the README.md file in this folder for the information on #> where to download this file. setenv IN_TABLE AQS_hourly_data_2016.csv #> One EPA system: # setenv IN_TABLE /work/MOD3EVAL/aq_obs/routine/2016/AQS_hourly_data_2016.csv ############################################################# # Output files ############################################################# #> output table (comma delimited text file importable to Excel) setenv OUT_TABLE ${POSTDIR}/AQS_Hourly_CMAQ_${RUNID}_201607.csv #> Executable call: ${BINDIR}/${EXEC} set progstat = ${status} if ( ${progstat} ) then echo "ERROR ${progstat} in $BINDIR/$EXEC" exit( ${progstat} ) endif exit() ================================================ FILE: POST/sitecmp/scripts/run_sitecmp_CSN.csh ================================================ #! /bin/csh -f # ===================== SITECMP_v5.5.X Run Script ===================== # Usage: run_sitecmp_CSN.csh >&! sitecmp_CSN.log & # # To report problems or request help with this script/program: # http://www.epa.gov/cmaq (EPA CMAQ Website) # http://www.cmascenter.org # =================================================================== # ================================================================== #> Runtime Environment Options # ================================================================== #> Choose compiler and set up CMAQ environment with correct #> libraries using config.cmaq. Options: intel | gcc | pgi setenv compiler intel cd ../../.. source ./config_cmaq.csh #> Set General Parameters for Configuring the Simulation set VRSN = v55 #> Code Version set PROC = mpi #> serial or mpi set MECH = cb6r3_ae7_aq #> Mechanism ID set APPL = Bench_2016_12SE1 #> Application Name (e.g. Gridname) #> Define RUNID as any combination of parameters above or others. By default, #> this information will be collected into this one string, $RUNID, for easy #> referencing in output binaries and log files as well as in other scripts. set RUNID = ${VRSN}_${compilerString}_${APPL} #> Set the build directory if this was not set above #> (this is where the executable is located by default). if ( ! $?BINDIR ) then set BINDIR = ${CMAQ_HOME}/POST/sitecmp/scripts/BLD_sitecmp_${VRSN}_${compilerString} endif #> Set the name of the executable. set EXEC = sitecmp_${VRSN}.exe #> Set output directory set POSTDIR = ${CMAQ_DATA}/POST #> Location where sitecmp file will be written if ( ! -e $POSTDIR ) then mkdir $POSTDIR endif # ===================================================================== #> SITECMP Configuration Options # ===================================================================== # ~~~~~~~~~~~~ START NETWORK SPECIFIC SECTION ~~~~~~~~~~~~~~~~~~~~~~~~~ #> The following environment variables will change depending on what #> observation network is being matched with CMAQ output. #> See the README.md file in this folder for the settings to use for #> the following networks: IMPROVE, CASTNET, CSN (formally STN), NADP #> SEARCH, AIRMON #> Set TABLE TYPE setenv TABLE_TYPE CASTNET #> Specify the variable names used in your observation inputs #> and model output files for each of the species you are analyzing below. #> #> variable format: #> Obs_expression, Obs_units, [Mod_expression], [Mod_unit], [Variable_name] #> #> The expression is in the form: #> [factor1]*Obs_name1 [+][-] [factor2]*Obs_name2 ... setenv AERO_1 "SO4,ug/m3, ASO4IJ,,SO4" # sulfate setenv AERO_2 "NO3,ug/m3, ANO3IJ,,NO3" # nitrate setenv AERO_3 "NH4,ug/m3, ANH4IJ,,NH4" # ammonium setenv AERO_4 "PM25,ug/m3,ATOTIJ,,PM_TOT" # PM2.5 setenv AERO_5 "PM25,ug/m3,PMIJ_FRM,,PM_FRM" # FRM Equivalent PM2.5 setenv AERO_6 "88320,ug/m3, AOCIJ,,OC" # Organic Carbon setenv AERO_7 "88321,ug/m3, AECIJ,,EC" # Elemental Carbon setenv AERO_8 "88320+88321,ug/m3,AOCIJ+AECIJ,,TC" # Total Carbon #> PM2.5 Sharp Cutoff Species #> Requires preprocessing using setenv CCTM_AELMO file setenv AERO_9 "SO4,ug/m3, PM25_SO4,,PM25_SO4" # sulfate (sharp cutoff) setenv AERO_10 "NO3,ug/m3, PM25_NO3,,PM25_NO3" # nitrate (sharp cutoff) setenv AERO_11 "NH4,ug/m3, PM25_NH4,,PM25_NH4" # ammonium (sharp cutoff) setenv AERO_12 "88320,ug/m3, PM25_OC,,PM25_OC" # Organic Carbon (sharp cutoff) setenv AERO_13 "88321,ug/m3, PM25_EC,,PM25_EC" # Elemental Carbon (sharp cutoff) setenv AERO_14 "88320+88321,ug/m3,PM25_OC+PM25_EC,,PM25_TC" # Total Carbon (sharp cutoff) setenv AERO_15 "PM25,ug/m3,PM25_TOT,ug/m3,PM25_TOT" # Total PM2.5 (sharp cutoff) setenv AERO_16 "PM25,ug/m3,PM25_FRM,ug/m3,PM25_FRM" # FRM Equivalent PM2.5 (sharp cutoff) #> setenv AERO6 species #> note we use Sodium Ion instead of sodium (XRF) becasue XRF is not reliable for sodium #> all other elemental concentrations (including Cl and K) come from XRF setenv AERO_17 "Na,ug/m3, ANAIJ,,Na" # sodium setenv AERO_18 "Cl,ug/m3, ACLIJ,,Cl" # chlorine setenv AERO_19 "Fe,ug/m3, AFEJ,,Fe" # iron setenv AERO_20 "Al,ug/m3,AALJ,,Al" # aluminum setenv AERO_21 "Si,ug/m3, ASIJ,,Si" # silicon setenv AERO_22 "Ti,ug/m3, ATIJ,,Ti" # titanium setenv AERO_23 "Ca,ug/m3,ACAJ,,Ca" # calcium setenv AERO_24 "Mg,ug/m3,AMGJ,,Mg" # magnesium setenv AERO_25 "K,ug/m3,AKJ,,K" # potassium setenv AERO_26 "Mn,ug/m3,AMNJ,,Mn" # manganese setenv AERO_27 "2.2*Al+2.49*Si+1.63*Ca+2.42*Fe+1.94*Ti,ug/m3,ASOILJ,,soil" # SOIL_OLD setenv AERO_28 "Na + Cl, ug/m3, ANAIJ+ACLIJ,,NaCl" # NaCl setenv AERO_29 "PM25-SO4-NO3-NH4-88320-88321-[Na]-[Cl]-2.2*Al-2.49*Si-1.63*Ca-2.42*Fe-1.94*Ti , ug/m3, AUNSPEC1IJ,,OTHER" # PM Other setenv AERO_30 "0.8*88320,ug/m3, ANCOMIJ,,NCOM" # PM Other setenv AERO_31 "PM25-SO4-NO3-NH4-88320-88321-[Na]-[Cl]-2.2*Al-2.49*Si-1.63*Ca-2.42*Fe-1.94*Ti-0.8*88320,ug/m3, AUNSPEC2IJ,,OTHER_REM" # PM Other no NCOM #>> End Species List <<# # ~~~~~~~~~~~~ END NETWORK SPECIFIC SECTION ~~~~~~~~~~~~~~~~~~~~~~~~~ #> define time window set SDATE = "2016-07-01" #> beginning date (July 1, 2016) set EDATE = "2016-07-14" #> ending date (July 14, 2016) setenv START_TIME 0 setenv END_TIME 230000 #> Convert SDATE and EDATE to Julian day. #> (required format for sitecmp START_DATE and END_DATE environment variables) setenv START_DATE `date -ud "${SDATE}" +%Y%j` setenv END_DATE `date -ud "${EDATE}" +%Y%j` #> define the PRECIP variable setenv PRECIP RT #> adjust for daylight savings setenv APPLY_DLS N #> set missing value string setenv MISSING '-999' #> Projection sphere type (use type 20 to match WRF/CMAQ) setenv IOAPI_ISPH 20 #> Number of hours to add when retrieving time steps from M3_FILE_n files during processing. #> This should only be non-zero if the M3_FILE_n files were pre-processed with a utility like m3tshift (default 0). setenv TIME_SHIFT 0 ############################################################# # Input files ############################################################# #> ioapi input files containing VNAMES (max of 10) setenv M3_FILE_1 ${CMAQ_DATA}/POST/COMBINE_ACONC_${RUNID}_201607.nc #[Add location of input file, e.g. COMBINE_ACONC file.] #> SITE FILE containing site-id, longitude, latitude, and optionally #> GMT offset, state, county, and elevation (csv format) #> The column headings for the required variables need to be #> stat_id, lon, and lat (case insensitive) #> The column headings for the optional variables need to be #> gmt_offset, state, county, and elevation (case insensitive) #> See the README.md file in this folder for the information on #> where to download this file. setenv SITE_FILE AQS_full_site_list.csv #> On EPA system: # setenv SITE_FILE /work/MOD3EVAL/aq_obs/routine/site_metadata_files/AQS_full_site_list.csv #> input table containing site-id, time-period, and data fields #> AQS obs data in the format needed for sitecmp are available online. #> See the README.md file in this folder for the information on #> where to download this file. setenv IN_TABLE AQS_CSN_data_2016.csv #> One EPA system: # setenv IN_TABLE /work/MOD3EVAL/aq_obs/routine/2016/AQS_CSN_data_2016.csv ############################################################# # Output files ############################################################# #> output table (comma delimited text file importable to Excel) setenv OUT_TABLE ${POSTDIR}/CSN_CMAQ_${RUNID}_201607.csv #> Executable call: ${BINDIR}/${EXEC} set progstat = ${status} if ( ${progstat} ) then echo "ERROR ${progstat} in $BINDIR/$EXEC" exit( ${progstat} ) endif exit() ================================================ FILE: POST/sitecmp/scripts/run_sitecmp_IMPROVE.csh ================================================ #! /bin/csh -f # ===================== SITECMP_v5.5.X Run Script ===================== # Usage: run_sitecmp_IMPROVE.csh >&! sitecmp_IMPROVE.log & # # To report problems or request help with this script/program: # http://www.epa.gov/cmaq (EPA CMAQ Website) # http://www.cmascenter.org # =================================================================== # ================================================================== #> Runtime Environment Options # ================================================================== #> Choose compiler and set up CMAQ environment with correct #> libraries using config.cmaq. Options: intel | gcc | pgi setenv compiler intel cd ../../.. source ./config_cmaq.csh #> Set General Parameters for Configuring the Simulation set VRSN = v55 #> Code Version set PROC = mpi #> serial or mpi set MECH = cb6r3_ae7_aq #> Mechanism ID set APPL = Bench_2016_12SE1 #> Application Name (e.g. Gridname) #> Define RUNID as any combination of parameters above or others. By default, #> this information will be collected into this one string, $RUNID, for easy #> referencing in output binaries and log files as well as in other scripts. set RUNID = ${VRSN}_${compilerString}_${APPL} #> Set the build directory if this was not set above #> (this is where the executable is located by default). if ( ! $?BINDIR ) then set BINDIR = ${CMAQ_HOME}/POST/sitecmp/scripts/BLD_sitecmp_${VRSN}_${compilerString} endif #> Set the name of the executable. set EXEC = sitecmp_${VRSN}.exe #> Set output directory set POSTDIR = ${CMAQ_DATA}/POST #> Location where sitecmp file will be written if ( ! -e $POSTDIR ) then mkdir $POSTDIR endif # ===================================================================== #> SITECMP Configuration Options # ===================================================================== # ~~~~~~~~~~~~ START NETWORK SPECIFIC SECTION ~~~~~~~~~~~~~~~~~~~~~~~~~ #> The following environment variables will change depending on what #> observation network is being matched with CMAQ output. #> See the README.md file in this folder for the settings to use for #> the following networks: IMPROVE, CASTNET, CSN (formally STN), NADP #> SEARCH, AIRMON #> Set TABLE TYPE setenv TABLE_TYPE IMPROVE #> Specify the variable names used in your observation inputs #> and model output files for each of the species you are analyzing below. #> #> variable format: #> Obs_expression, Obs_units, [Mod_expression], [Mod_unit], [Variable_name] #> #> The expression is in the form: #> [factor1]*Obs_name1 [+][-] [factor2]*Obs_name2 ... setenv AERO_1 "SO4f_val,ug/m3,ASO4IJ,,SO4" # sulfate setenv AERO_2 "NO3f_val,ug/m3,ANO3IJ,,NO3" # nitrate setenv AERO_3 "0.2903*NO3f_val+0.375*SO4f_val,ug/m3,ANH4IJ,,NH4" # ammonium (estimated assuming fully neutralized SO4 and NO3) setenv AERO_4 "MF_val,ug/m3,ATOTIJ,ug/m3,PM_TOT" # Total PM2.5 mass setenv AERO_5 "OCf_val,ug/m3,AOCIJ,,OC" # Organic Carbon setenv AERO_6 "ECf_val,ug/m3,AECIJ,,EC" # Elemental Carbon setenv AERO_7 "OCf_val+ECf_val,ug/m3,AOCIJ+AECIJ,,TC" # Total Carbon setenv AERO_8 "CHLf_val,ug/m3,ACLIJ,ug/m3,Cl" # CL Ion setenv AERO_9 "MT_val,ug/m3,ATOTIJK,ug/m3,PM10" # PM10 setenv AERO_10 "CM_calculated_val,ug/m3,ATOTK,ug/m3,PMC_TOT" # PM Course #> PM2.5 Sharp Cutoff Species #> Requires preprocessing using setenv CCTM_AELMO file setenv AERO_11 "SO4f_val,ug/m3,PM25_SO4,,PM25_SO4" # sulfate (< 2.5um) setenv AERO_12 "NO3f_val,ug/m3,PM25_NO3,,PM25_NO3" # nitrate (< 2.5um) setenv AERO_13 "0.2903*NO3f_val+0.375*SO4f_val,ug/m3,PM25_NH4,,PM25_NH4" # ammonium (< 2.5um) setenv AERO_14 "OCf_val,ug/m3,PM25_OC,,PM25_OC" # Organic Carbon (< 2.5um) setenv AERO_15 "ECf_val,ug/m3,PM25_EC,,PM25_EC" # Elemental Carbon (< 2.5um) setenv AERO_16 "OCf_val+ECf_val,ug/m3,PM25_OC+PM25_EC,,PM25_TC" # Total Carbon (< 2.5um) setenv AERO_17 "MF_val,ug/m3,PM25_TOT,ug/m3,PM25_TOT" # Total PM2.5 mass (< 2.5um) setenv AERO_18 "CHLf_val,ug/m3,PM25_CL,ug/m3,PM25_Cl" # CL Ion (< 2.5um) setenv AERO_19 "CM_calculated_val,ug/m3,PMC_TOT,ug/m3,PMC_TOT_CUT" # PM Course #> new AE6 species #> note: we use XRF sodium because there is not IC sodium mesaurement #> we use IC measurement for chlorid (CHLf_val) instead of XRF chlroine (CLf_Val) setenv AERO_20 "NAf_val,ug/m3, ANAIJ,,Na" # sodium setenv AERO_21 "NAf_val + CHLf_val,ug/m3,ACLIJ + ANAIJ,,NaCl" # sodium chloride setenv AERO_22 "FEf_val,ug/m3, AFEJ,,Fe" # iron setenv AERO_23 "ALf_val,ug/m3,AALJ,,Al" # aluminum setenv AERO_24 "SIf_val,ug/m3, ASIJ,,Si" # silicon setenv AERO_25 "TIf_val,ug/m3, ATIJ,,Ti" # titanium setenv AERO_26 "CAf_val,ug/m3,ACAJ,,Ca" # calcium setenv AERO_27 "MGf_val,ug/m3,AMGJ,,Mg" # magnesium setenv AERO_28 "Kf_val,ug/m3,AKJ,,K" # potassium setenv AERO_29 "MNf_val,ug/m3,AMNJ,,Mn" # manganese setenv AERO_30 "2.20*ALf_val+2.49*SIf_val+1.63*CAf_val+2.42*FEf_val+1.94*TIf_val,ug/m3,ASOILJ,,soil" # IMPROVE soil eqn. setenv AERO_31 "MF_val-SO4f_val-NO3f_val-0.2903*NO3f_val-0.375*SO4f_val-OCf_val-ECf_val-NAf_val-CHLf_val-2.2*ALf_val-2.49*SIf_val-1.63*CAf_val-2.42*FEf_val-1.94*TIf_val,ug/m3,AUNSPEC1IJ,,OTHER" # PM Other setenv AERO_32 "0.8*OCf_val,ug/m3, ANCOMIJ,,NCOM" # NCOM setenv AERO_33 "MF_val-SO4f_val-NO3f_val-0.2903*NO3f_val-0.375*SO4f_val-OCf_val-ECf_val-NAf_val-CHLf_val-2.2*ALf_val-2.49*SIf_val-1.63*CAf_val-2.42*FEf_val-1.94*TIf_val,ug/m3, AUNSPEC2IJ,,OTHER_REM" # PM Other remaining #>> End Species List <<# # ~~~~~~~~~~~~ END NETWORK SPECIFIC SECTION ~~~~~~~~~~~~~~~~~~~~~~~~~ #> define time window set SDATE = "2016-07-01" #> beginning date (July 1, 2016) set EDATE = "2016-07-14" #> ending date (July 14, 2016) setenv START_TIME 0 setenv END_TIME 230000 #> Convert SDATE and EDATE to Julian day. #> (required format for sitecmp START_DATE and END_DATE environment variables) setenv START_DATE `date -ud "${SDATE}" +%Y%j` setenv END_DATE `date -ud "${EDATE}" +%Y%j` #> define the PRECIP variable setenv PRECIP RT #> adjust for daylight savings setenv APPLY_DLS N #> set missing value string setenv MISSING '-999' #> Projection sphere type (use type 20 to match WRF/CMAQ) setenv IOAPI_ISPH 20 #> Number of hours to add when retrieving time steps from M3_FILE_n files during processing. #> This should only be non-zero if the M3_FILE_n files were pre-processed with a utility like m3tshift (default 0). setenv TIME_SHIFT 0 ############################################################# # Input files ############################################################# #> ioapi input files containing VNAMES (max of 10) setenv M3_FILE_1 ${CMAQ_DATA}/POST/COMBINE_ACONC_${RUNID}_201607.nc #[Add location of input file, e.g. COMBINE_ACONC file.] #> SITE FILE containing site-id, longitude, latitude, and optionally #> GMT offset, state, county, and elevation (csv format) #> The column headings for the required variables need to be #> stat_id, lon, and lat (case insensitive) #> The column headings for the optional variables need to be #> gmt_offset, state, county, and elevation (case insensitive) #> See the README.md file in this folder for the information on #> where to download this file. setenv SITE_FILE IMPROVE_full_site_list.csv #> On EPA system: # setenv SITE_FILE /work/MOD3EVAL/aq_obs/routine/site_metadata_files/IMPROVE_full_site_list.csv #> input table containing site-id, time-period, and data fields #> AQS obs data in the format needed for sitecmp are available online. #> See the README.md file in this folder for the information on #> where to download this file. setenv IN_TABLE IMPROVE_data_2016.csv #> One EPA system: # setenv IN_TABLE /work/MOD3EVAL/aq_obs/routine/2016/IMPROVE_data_2016.csv ############################################################# # Output files ############################################################# #> output table (comma delimited text file importable to Excel) setenv OUT_TABLE ${POSTDIR}/IMPROVE_CMAQ_${RUNID}_201607.csv #> Executable call: ${BINDIR}/${EXEC} set progstat = ${status} if ( ${progstat} ) then echo "ERROR ${progstat} in $BINDIR/$EXEC" exit( ${progstat} ) endif exit() ================================================ FILE: POST/sitecmp/scripts/run_sitecmp_NADP.csh ================================================ #! /bin/csh -f # ===================== SITECMP_v5.5.X Run Script =================== # Usage: run_sitecmp_NADP.csh >&! sitecmp_NADP.log & # # To report problems or request help with this script/program: # http://www.epa.gov/cmaq (EPA CMAQ Website) # http://www.cmascenter.org # =================================================================== # ================================================================== #> Runtime Environment Options # ================================================================== #> Choose compiler and set up CMAQ environment with correct #> libraries using config.cmaq. Options: intel | gcc | pgi setenv compiler intel cd ../../.. source ./config_cmaq.csh #> Set General Parameters for Configuring the Simulation set VRSN = v55 #> Code Version set PROC = mpi #> serial or mpi set MECH = cb6r3_ae7_aq #> Mechanism ID set APPL = Bench_2016_12SE1 #> Application Name (e.g. Gridname) #> Define RUNID as any combination of parameters above or others. By default, #> this information will be collected into this one string, $RUNID, for easy #> referencing in output binaries and log files as well as in other scripts. set RUNID = ${VRSN}_${compilerString}_${APPL} #> Set the build directory if this was not set above #> (this is where the executable is located by default). if ( ! $?BINDIR ) then set BINDIR = ${CMAQ_HOME}/POST/sitecmp/scripts/BLD_sitecmp_${VRSN}_${compilerString} endif #> Set the name of the executable. set EXEC = sitecmp_${VRSN}.exe #> Set output directory set POSTDIR = ${CMAQ_DATA}/POST #> Location where sitecmp file will be written if ( ! -e $POSTDIR ) then mkdir $POSTDIR endif # ===================================================================== #> SITECMP Configuration Options # ===================================================================== # ~~~~~~~~~~~~ START NETWORK SPECIFIC SECTION ~~~~~~~~~~~~~~~~~~~~~~~~~ #> The following environment variables will change depending on what #> observation network is being matched with CMAQ output. #> See the README.md file in this folder for the settings to use for #> the following networks: IMPROVE, CASTNET, CSN (formally STN), NADP #> SEARCH, AIRMON #> Set TABLE TYPE setenv TABLE_TYPE NADP #> Specify the variable names used in your observation inputs #> and model output files for each of the species you are analyzing below. #> #> variable format: #> Obs_expression, Obs_units, [Mod_expression], [Mod_unit], [Variable_name] #> #> The expression is in the form: #> [factor1]*Obs_name1 [+][-] [factor2]*Obs_name2 ... setenv CHAR_1 "Valcode" setenv CHAR_2 "Invalcode" # Wet Concentration Variables (1-10) - compute volume-weighted average (VWAVG) in mg/l # Observed values are already volume-weighted averages for the collection # period. Original model output is hourly wet deposition. To calculate # VWAVG, the modeled wet deposition is accumulated for the collection time # period, divided by the total precipitation (mm), and * 100. Resultingi # units are mg/l. setenv WETCON_1 "NH4,mg/l,WDEP_NHX,mg/l,NH4_conc" setenv WETCON_2 "NO3,mg/l,WDEP_TNO3,mg/l,NO3_conc" setenv WETCON_3 "SO4,mg/l,WDEP_TSO4,mg/l,SO4_conc" setenv WETCON_4 "Cl,mg/l,WDEP_TCL,mg/l,Cl_conc" setenv WETCON_5 "Na,mg/l,WDEP_ANAJK,mg/l,Na_conc" # Wet Deposition Variables (1-10) - compute accumulated wet deposition in kg/ha # Observed values are volume-weighted average wet concentrations for thei # collection period (mg/l). To convert to wet deposition, multiply the wet # concentration values by the total observed precip (Sub Ppt in mm), and then # divide by 100. Original model output is hourly wet deposition. The modeled # wet deposition is accumulated for the collection time period. setenv WETDEP_1 "NH4,kg/ha,WDEP_NHX,kg/ha,NH4_dep" # Ammonium wet deposition setenv WETDEP_2 "NO3,kg/ha,WDEP_TNO3,kg/ha,NO3_dep" # Nitrate wet deposition setenv WETDEP_3 "SO4,kg/ha,WDEP_TSO4,kg/ha,SO4_dep" # Sulfate wet deposition setenv WETDEP_4 "Cl,kg/ha,WDEP_TCL,kg/ha,Cl_dep" # Chloride wet deposition setenv WETDEP_5 "Na,kg/ha,WDEP_ANAJK,kg/ha,Na_dep" # Sodium wet deposition # Precipitation Variables (1-10) - compute accumulated precipitation setenv PREC_1 "Sub Ppt,mm,10*RT,mm,Precip" # setenv AERO6 species setenv WETCON_6 "Ca,mg/l,WDEP_CAJK,mg/l,CA_conc" setenv WETCON_7 "Mg,mg/l,WDEP_MGJK,mg/l,MG_conc" setenv WETCON_8 "K,mg/l,WDEP_KJK,mg/l,K_conc" setenv WETDEP_6 "Ca,kg/ha,WDEP_CAJK,kg/ha,CA_dep" setenv WETDEP_7 "Mg,kg/ha,WDEP_MGJK,kg/ha,MG_dep" setenv WETDEP_8 "K,kg/ha,WDEP_KJK,kg/ha,K_dep" #>> End Species List <<# # ~~~~~~~~~~~~ END NETWORK SPECIFIC SECTION ~~~~~~~~~~~~~~~~~~~~~~~~~ #> define time window set SDATE = "2016-07-01" #> beginning date (July 1, 2016) set EDATE = "2016-07-14" #> ending date (July 14, 2016) setenv START_TIME 0 setenv END_TIME 230000 #> Convert SDATE and EDATE to Julian day. #> (required format for sitecmp START_DATE and END_DATE environment variables) setenv START_DATE `date -ud "${SDATE}" +%Y%j` setenv END_DATE `date -ud "${EDATE}" +%Y%j` #> define the PRECIP variable setenv PRECIP RT #> adjust for daylight savings setenv APPLY_DLS N #> set missing value string setenv MISSING '-999' #> Projection sphere type (use type 20 to match WRF/CMAQ) setenv IOAPI_ISPH 20 #> Number of hours to add when retrieving time steps from M3_FILE_n files during processing. #> This should only be non-zero if the M3_FILE_n files were pre-processed with a utility like m3tshift (default 0). setenv TIME_SHIFT 0 ############################################################# # Input files ############################################################# #> ioapi input files containing VNAMES (max of 10) setenv M3_FILE_1 ${CMAQ_DATA}/POST/COMBINE_DEP_${RUNID}_201607.nc #[Add location of input file, e.g. COMBINE_DEP file.] #> SITE FILE containing site-id, longitude, latitude, and optionally #> GMT offset, state, county, and elevation (csv format) #> The column headings for the required variables need to be #> stat_id, lon, and lat (case insensitive) #> The column headings for the optional variables need to be #> gmt_offset, state, county, and elevation (case insensitive) #> See the README.md file in this folder for the information on #> where to download this file. setenv SITE_FILE NADP_full_site_list.csv #> On EPA system: # setenv SITE_FILE /work/MOD3EVAL/aq_obs/routine/site_metadata_files/NADP_full_site_list.csv #> input table containing site-id, time-period, and data fields #> AQS obs data in the format needed for sitecmp are available online. #> See the README.md file in this folder for the information on #> where to download this file. setenv IN_TABLE NADP_data_2016.csv #> One EPA system: # setenv IN_TABLE /work/MOD3EVAL/aq_obs/routine/2016/NADP_data_2016.csv ############################################################# # Output files ############################################################# #> output table (comma delimited text file importable to Excel) setenv OUT_TABLE ${POSTDIR}/NADP_CMAQ_${RUNID}_201607.csv #> Executable call: ${BINDIR}/${EXEC} set progstat = ${status} if ( ${progstat} ) then echo "ERROR ${progstat} in $BINDIR/$EXEC" exit( ${progstat} ) endif exit() ================================================ FILE: POST/sitecmp/scripts/run_sitecmp_SEARCH_Hourly.csh ================================================ #! /bin/csh -f # ===================== SITECMP_v5.5.X Run Script ================== # Usage: run_sitecmp_SEARCH.csh >&! sitecmp_SEARCH.log & # # To report problems or request help with this script/program: # http://www.epa.gov/cmaq (EPA CMAQ Website) # http://www.cmascenter.org # =================================================================== # ================================================================== #> Runtime Environment Options # ================================================================== #> Choose compiler and set up CMAQ environment with correct #> libraries using config.cmaq. Options: intel | gcc | pgi setenv compiler intel cd ../../.. source ./config_cmaq.csh #> Set General Parameters for Configuring the Simulation set VRSN = v55 #> Code Version set PROC = mpi #> serial or mpi set MECH = cb6r3_ae7_aq #> Mechanism ID set APPL = Bench_2016_12SE1 #> Application Name (e.g. Gridname) #> Define RUNID as any combination of parameters above or others. By default, #> this information will be collected into this one string, $RUNID, for easy #> referencing in output binaries and log files as well as in other scripts. set RUNID = ${VRSN}_${compilerString}_${APPL} #> Set the build directory if this was not set above #> (this is where the executable is located by default). if ( ! $?BINDIR ) then set BINDIR = ${CMAQ_HOME}/POST/sitecmp/scripts/BLD_sitecmp_${VRSN}_${compilerString} endif #> Set the name of the executable. set EXEC = sitecmp_${VRSN}.exe #> Set output directory set POSTDIR = ${CMAQ_DATA}/POST #> Location where sitecmp file will be written if ( ! -e $POSTDIR ) then mkdir $POSTDIR endif # ===================================================================== #> SITECMP Configuration Options # ===================================================================== # ~~~~~~~~~~~~ START NETWORK SPECIFIC SECTION ~~~~~~~~~~~~~~~~~~~~~~~~~ #> The following environment variables will change depending on what #> observation network is being matched with CMAQ output. #> See the README.md file in this folder for the settings to use for #> the following networks: IMPROVE, CASTNET, CSN (formally STN), NADP #> SEARCH, AIRMON #> Set TABLE TYPE setenv TABLE_TYPE CASTNET #> Specify the variable names used in your observation inputs #> and model output files for each of the species you are analyzing below. #> #> variable format: #> Obs_expression, Obs_units, [Mod_expression], [Mod_unit], [Variable_name] #> #> The expression is in the form: #> [factor1]*Obs_name1 [+][-] [factor2]*Obs_name2 ... setenv AERO_1 "Average O3[ppb],ppb,O3,,O3" setenv AERO_2 "Average CO[ppb],ppb,CO,,CO" setenv AERO_3 "Average SO2[ppb],ppb,SO2,,SO2" setenv AERO_4 "Average NO[ppb],ppb,NO,,NO" setenv AERO_5 "Average NO2[ppb],ppb,NO2,,NO2" setenv AERO_6 "Average NOy[ppb],ppb,NOY,ppb,NOY" setenv AERO_7 "Average HNO3[ppb],ppb,HNO3,ppb,HNO3" setenv AERO_8 "Average NH3[ppb],ug/m3,NH3,,NH3" setenv AERO_9 "Average WSP[m/s],m/s,WSPD10,m/s,WSPD10" setenv AERO_10 "Average WDR[Deg],m/s,WDIR10,m/s,WDIR10" setenv AERO_11 "Average RH[%],%,RH,%,RH" setenv AERO_12 "Average TEMP[Deg C],C,SFC_TMP,C,SFC_TMP" setenv AERO_13 "25.4*Average RAINFALL[Inches],mm,precip,mm,precip" setenv AERO_14 "Average SR[W/m2],w/m2,SOL_RAD,watts/m2,Solar_Rad" setenv AERO_15 "Average OptEC[ug/m3],ug/m3,PM25_EC,ug/m3,PM25_EC" setenv AERO_16 "Average OC[ug/m3],ug/m3,PM25_OC,ug/m3,PM25_OC" setenv AERO_17 "Average TC[ug/m3],ug/m3,PM25_EC+PM25_OC,ug/m3,PM25_TC" setenv AERO_18 "Average NH4[ug/m3],ug/m3,PM25_NH4,,PM25_NH4" setenv AERO_19 "Average NO3[ug/m3],ug/m3,PM25_NO3,,PM25_NO3" setenv AERO_20 "Average SO4[ug/m3],ug/m3,PM25_SO4,,PM25_SO4" #> End Species List ### # ~~~~~~~~~~~~ END NETWORK SPECIFIC SECTION ~~~~~~~~~~~~~~~~~~~~~~~~~ #> define time window set SDATE = "2016-07-01" #> beginning date (July 1, 2016) set EDATE = "2016-07-14" #> ending date (July 14, 2016) setenv START_TIME 0 setenv END_TIME 230000 #> Convert SDATE and EDATE to Julian day. #> (required format for sitecmp START_DATE and END_DATE environment variables) setenv START_DATE `date -ud "${SDATE}" +%Y%j` setenv END_DATE `date -ud "${EDATE}" +%Y%j` #> define the PRECIP variable setenv PRECIP RT #> adjust for daylight savings setenv APPLY_DLS N #> set missing value string setenv MISSING '-999' #> Projection sphere type (use type 20 to match WRF/CMAQ) setenv IOAPI_ISPH 20 #> Number of hours to add when retrieving time steps from M3_FILE_n files during processing. #> This should only be non-zero if the M3_FILE_n files were pre-processed with a utility like m3tshift (default 0). setenv TIME_SHIFT 0 ############################################################# # Input files ############################################################# #> ioapi input files containing VNAMES (max of 10) setenv M3_FILE_1 ${CMAQ_DATA}/POST/COMBINE_ACONC_${RUNID}_201607.nc #[Add location of input file, e.g. COMBINE_ACONC file.] #> SITE FILE containing site-id, longitude, latitude, and optionally #> GMT offset, state, county, and elevation (csv format) #> The column headings for the required variables need to be #> stat_id, lon, and lat (case insensitive) #> The column headings for the optional variables need to be #> gmt_offset, state, county, and elevation (case insensitive) #> See the README.md file in this folder for the information on #> where to download this file. setenv SITE_FILE SEARCH_full_site_list.csv #> On EPA system: # setenv SITE_FILE /work/MOD3EVAL/aq_obs/routine/site_metadata_files/SEARCH_full_site_list.csv #> input table containing site-id, time-period, and data fields #> AQS obs data in the format needed for sitecmp are available online. #> See the README.md file in this folder for the information on #> where to download this file. setenv IN_TABLE SEARCH_hourly_data_2016.csv #> One EPA system: # setenv IN_TABLE /work/MOD3EVAL/aq_obs/routine/2016/SEARCH_hourly_data_2016.csv ############################################################# # Output files ############################################################# #> output table (comma delimited text file importable to Excel) setenv OUT_TABLE ${POSTDIR}/SEARCH_Hourly_CMAQ_${RUNID}_201607.csv #> Executable call: ${BINDIR}/${EXEC} set progstat = ${status} if ( ${progstat} ) then echo "ERROR ${progstat} in $BINDIR/$EXEC" exit( ${progstat} ) endif exit() ================================================ FILE: POST/sitecmp/src/ck_ctms.F ================================================ !-----------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !-----------------------------------------------------------------------! ! RCS file, release, date & time of last delta, author, state, [and locker] ! $Header: /home/sjr/cvs2git/TOOLS/src/sitecmp/ck_ctms.F,v 1.4 2011/10/21 14:41:31 sjr Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% C************************************************************************* C C FUNCTION: To check multiple input CTM conc files for consistent C header data C C C************************************************************************* SUBROUTINE CK_M3FLS() USE M3FILES USE M3UTILIO IMPLICIT NONE C..ARGUMENTS: C..PARAMETERS: None C..SAVED LOCAL VARIABLES: None C..SCRATCH LOCAL VARIABLES: CHARACTER*80 MSG ! Log message CHARACTER*16 PNAME ! Program Name CHARACTER*15 VAL1 ! Character value of real CHARACTER*15 VAL2 ! Character value of real INTEGER L, N ! Loop indices INTEGER FTYPE1 ! File 1 file type INTEGER NCOLS1 ! File 1 number of columns INTEGER NROWS1 ! File 1 number of rows INTEGER NLAYS1 ! File 1 number of levels INTEGER SDATE1 ! File 1 start date INTEGER STIME1 ! File 1 start time INTEGER TSTEP1 ! File 1 time step INTEGER MXREC1 ! File 1 number of time steps INTEGER NTHIK1 ! File 1 boundary thickness INTEGER GDTYP1 ! File 1 horizontal grid type INTEGER VGTYP1 ! File 1 Vertical coordinate type LOGICAL LERROR ! Error Flag LOGICAL LSTOP ! Exit Flag REAL P_ALP1 ! File 1 map projection parameter REAL P_BET1 ! File 1 map projection parameter REAL P_GAM1 ! File 1 map projection parameter REAL XORIG1 ! File 1 X-origin REAL YORIG1 ! File 1 Y-origin REAL XCELL1 ! File 1 X-dimension of cells REAL YCELL1 ! File 1 Y-dimension of cells REAL XCENT1 ! File 1 X-center of coordinate system REAL YCENT1 ! File 1 Y-center of coordinate system REAL VGTOP1 ! File 1 model top REAL VGLVS1( MXLAYS3 + 1 ) ! File vertical layer heights C********************************************************************** DATA PNAME / 'CK_M3FLS' / LSTOP = .FALSE. ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Get header data for CTM file 1 ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF( .NOT. DESC3 ( M3_FLNAME( 1 ) ) ) THEN MSG = 'Could not read DESC of ' // M3_FLNAME( 1 ) & // ' file' CALL M3ERR( PNAME, 0, 0, MSG, .TRUE. ) ENDIF FTYPE1 = FTYPE3D NCOLS1 = NCOLS3D NROWS1 = NROWS3D NLAYS1 = NLAYS3D SDATE1 = SDATE3D STIME1 = STIME3D TSTEP1 = TSTEP3D MXREC1 = MXREC3D NTHIK1 = NTHIK3D GDTYP1 = GDTYP3D P_ALP1 = P_ALP3D P_BET1 = P_BET3D P_GAM1 = P_GAM3D XORIG1 = XORIG3D YORIG1 = YORIG3D XCELL1 = XCELL3D YCELL1 = YCELL3D XCENT1 = XCENT3D YCENT1 = YCENT3D VGTYP1 = VGTYP3D VGTOP1 = VGTOP3D DO N = 1 , NLAYS3D + 1 VGLVS1( N ) = VGLVS3D( N ) ENDDO ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Check to see that requested variable is on all files ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc DO N = 1, N_M3FILES IF( .NOT. DESC3 ( M3_FLNAME( N ) ) ) THEN MSG = 'Could not read DESC of ' // M3_FLNAME( N ) & // ' file' CALL M3ERR( PNAME, 0, 0, MSG, .TRUE. ) ENDIF ENDDO ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Write out report data ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF( N_M3FILES .GT. 1 ) THEN MSG = 'Multiple Models-3 files being used' CALL M3MESG( MSG ) MSG = 'Files being checked for consistent header data' CALL M3MESG( MSG ) ENDIF ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Compare header data on file 1 with header data on other CTM files ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc DO N = 2, N_M3FILES WRITE( MSG, '( ''Differences found between files '', A, & '' and '', A )' ) & TRIM( M3_FLNAME( 1 ) ), & TRIM( M3_FLNAME( N ) ) CALL M3MESG( MSG ) LERROR = .FALSE. IF( .NOT. DESC3 ( M3_FLNAME( N ) ) ) THEN MSG = 'Could not read DESC of ' // M3_FLNAME( N ) & // ' file' CALL M3ERR( PNAME, 0, 0, MSG, .TRUE. ) ENDIF IF( FTYPE1 .NE. FTYPE3D ) THEN WRITE( LOGUNIT, 94020 ) FTYPE1, N, FTYPE3D LERROR = .TRUE. ENDIF IF( NCOLS1 .NE. NCOLS3D ) THEN WRITE( LOGUNIT, 94040 ) NCOLS1, N, NCOLS3D LERROR = .TRUE. ENDIF IF( NROWS1 .NE. NROWS3D ) THEN WRITE( LOGUNIT, 94060 ) NROWS1, N, NROWS3D LERROR = .TRUE. ENDIF IF( NLAYS1 .NE. NLAYS3D ) THEN WRITE( LOGUNIT, 94080 ) NLAYS1, N, NLAYS3D LERROR = .TRUE. ENDIF IF( TSTEP1 .NE. TSTEP3D ) THEN WRITE( LOGUNIT, 94140 ) TSTEP1, N, TSTEP3D LERROR = .TRUE. ENDIF IF( NTHIK1 .NE. NTHIK3D ) THEN WRITE( LOGUNIT, 94180 ) NTHIK1, N, NTHIK3D LERROR = .TRUE. ENDIF IF( GDTYP1 .NE. GDTYP3D ) THEN WRITE( LOGUNIT, 94200 ) GDTYP1, N, GDTYP3D LERROR = .TRUE. ENDIF WRITE( VAL1, 94000 ) P_ALP1 WRITE( VAL2, 94000 ) P_ALP3D IF( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94220 ) P_ALP1, N, P_ALP3D LERROR = .TRUE. ENDIF WRITE( VAL1, 94000 ) P_BET1 WRITE( VAL2, 94000 ) P_BET3D IF( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94240 ) P_BET1, N, P_BET3D LERROR = .TRUE. ENDIF WRITE( VAL1, 94000 ) P_GAM1 WRITE( VAL2, 94000 ) P_GAM3D IF( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94260 ) P_GAM1, N, P_GAM3D LERROR = .TRUE. ENDIF WRITE( VAL1, 94000 ) XORIG1 WRITE( VAL2, 94000 ) XORIG3D IF( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94280 ) XORIG1, N, XORIG3D LERROR = .TRUE. ENDIF WRITE( VAL1, 94000 ) YORIG1 WRITE( VAL2, 94000 ) YORIG3D IF( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94300 ) YORIG1, N, YORIG3D LERROR = .TRUE. ENDIF WRITE( VAL1, 94000 ) XCELL1 WRITE( VAL2, 94000 ) XCELL3D IF( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94320 ) XCELL1, N, XCELL3D LERROR = .TRUE. ENDIF WRITE( VAL1, 94000 ) YCELL1 WRITE( VAL2, 94000 ) YCELL3D IF( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94340 ) YCELL1, N, YCELL3D LERROR = .TRUE. ENDIF WRITE( VAL1, 94000 ) XCENT1 WRITE( VAL2, 94000 ) XCENT3D IF( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94360 ) XCENT1, N, XCENT3D LERROR = .TRUE. ENDIF WRITE( VAL1, 94000 ) YCENT1 WRITE( VAL2, 94000 ) YCENT3D IF( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94380 ) YCENT1, N, YCENT3D LERROR = .TRUE. ENDIF WRITE( VAL1, 94000 ) VGTOP1 WRITE( VAL2, 94000 ) VGTOP3D IF( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94420 ) VGTOP1, N, VGTOP3D LERROR = .TRUE. ENDIF DO L = 1 , NLAYS1 + 1 WRITE( VAL1, 94000 ) VGLVS1( L ) WRITE( VAL2, 94000 ) VGLVS3D( L ) IF( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94440 ) L, VGLVS1( L ), N, L, & VGLVS3D( L ) LERROR = .TRUE. ENDIF ENDDO IF( .NOT. LERROR ) THEN WRITE( LOGUNIT, 94460 ) ELSE LSTOP = .TRUE. ENDIF ENDDO IF( LSTOP ) THEN MSG = 'Missing variable or file inconsistencies detected: stopping' CALL M3ERR( PNAME, 0, 0, MSG, .TRUE. ) ENDIF RETURN C************************* FORMAT STATEMENTS *************************** 94000 FORMAT( E15.5 ) 94020 FORMAT(10X, 'FTYPE1 = ', I3, ' FTYPE', I1, ' = ', I3 ) 94040 FORMAT(10X, 'NCOLS1 = ', I3, ' NCOLS', I1, ' = ', I3 ) 94060 FORMAT(10X, 'NROWS1 = ', I3, ' NROWS', I1, ' = ', I3 ) 94080 FORMAT(10X, 'NLAYS1 = ', I3, ' NLAYS', I1, ' = ', I3 ) 94100 FORMAT(10X, 'SDATE1 = ', I3, ' SDATE', I1, ' = ', I3 ) 94120 FORMAT(10X, 'STIME1 = ', I3, ' STIME', I1, ' = ', I3 ) 94140 FORMAT(10X, 'TSTEP1 = ', I3, ' TSTEP', I1, ' = ', I3 ) 94160 FORMAT(10X, 'MXREC1 = ', I3, ' MXREC', I1, ' = ', I3 ) 94180 FORMAT(10X, 'NTHIK1 = ', I3, ' NTHIK', I1, ' = ', I3 ) 94200 FORMAT(10X, 'GDTYP1 = ', I3, ' GDTYP', I1, ' = ', I3 ) 94220 FORMAT(10X, 'P_ALP1 = ', 1PE12.5, ' P_ALP', I1, ' = ', 1PE12.5 ) 94240 FORMAT(10X, 'P_BET1 = ', 1PE12.5, ' P_BET', I1, ' = ', 1PE12.5 ) 94260 FORMAT(10X, 'P_GAM1 = ', 1PE12.5, ' P_GAM', I1, ' = ', 1PE12.5 ) 94280 FORMAT(10X, 'XORIG1 = ', 1PE12.5, ' XORIG', I1, ' = ', 1PE12.5 ) 94300 FORMAT(10X, 'YORIG1 = ', 1PE12.5, ' YORIG', I1, ' = ', 1PE12.5 ) 94320 FORMAT(10X, 'XCELL1 = ', 1PE12.5, ' XCELL', I1, ' = ', 1PE12.5 ) 94340 FORMAT(10X, 'YCELL1 = ', 1PE12.5, ' YCELL', I1, ' = ', 1PE12.5 ) 94360 FORMAT(10X, 'XCENT1 = ', 1PE12.5, ' XCENT', I1, ' = ', 1PE12.5 ) 94380 FORMAT(10X, 'YCENT1 = ', 1PE12.5, ' YCENT', I1, ' = ', 1PE12.5 ) 94420 FORMAT(10X, 'VGTOP1 = ', 1PE12.5, ' VGTOP', I1, ' = ', 1PE12.5 ) 94440 FORMAT(10X, 'VGLVS1(', I2, ' ) = ', 1PE12.5, ' VGLVS', I1, & '(', I2, ' ) = ', 1PE12.5 ) 94445 FORMAT(10X, 'Variable ', A, ' not on file ', A ) 94460 FORMAT(10X, 'NONE' ) END ================================================ FILE: POST/sitecmp/src/get_gridval.F ================================================ !-----------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !-----------------------------------------------------------------------! ! RCS file, release, date & time of last delta, author, state, [and locker] ! $Header: /home/sjr/cvs2git/TOOLS/src/sitecmp/get_gridval.F,v 1.4 2011/10/21 14:41:32 sjr Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% C************************************************************************* C C FUNCTION: Gets avg concentration for each grid cell C C C************************************************************************* SUBROUTINE GET_GRIDVAL( GRIDVAL,VNAME, N ) USE M3FILES USE ENV_VARS USE GRID_DATA USE TIME_STEP USE M3UTILIO IMPLICIT NONE C..ARGUMENTS: INTEGER N CHARACTER*16 VNAME REAL GRIDVAL( M3GRID % NCOLS, M3GRID % NROWS ) C..PARAMETERS: None C..EXTERNAL FUNCTIONS: C..SAVED LOCAL VARIABLES: None C..SCRATCH LOCAL VARIABLES: CHARACTER*16 PNAME ! Program Name CHARACTER*80 MSG ! Error message INTEGER ESTEP ! Last time step for averaging INTEGER JDATE ! Time step date, coded YYYYDDD INTEGER JTIME ! Time step time, coded HHMMSS INTEGER JFILE ! No. of file containing jdate & jtime INTEGER AVG_TIME INTEGER NAVG ! Loop index C..SAVED LOCAL VARIABLES: LOGICAL LFIRST SAVE LFIRST REAL, SAVE, ALLOCATABLE :: CHOUR( : , :, : ) C********************************************************************** DATA PNAME / 'GET_GRIDVAL' / DATA LFIRST / .TRUE. / DATA AVG_TIME / 1 / IF( AVG_TIME .EQ. 1 ) THEN JDATE = STEP_DATE( N ) JTIME = STEP_TIME( N ) JFILE = STEP_FILE( N ) IF( .NOT. READ3( M3_FLNAME( JFILE ) , VNAME, 1, JDATE, & JTIME, GRIDVAL( 1, 1 ) ) ) THEN MSG = 'Could not read input Models-3 file ' // & M3_FLNAME( JFILE ) CALL M3ERR( PNAME, JDATE, JTIME, MSG, .TRUE. ) ENDIF RETURN ELSE IF( LFIRST ) THEN c..allocate array and read first n values ALLOCATE( CHOUR( M3GRID % NCOLS, M3GRID % NROWS, AVG_TIME ) ) DO NAVG = 1, AVG_TIME JDATE = STEP_DATE( NAVG ) JTIME = STEP_TIME( NAVG ) JFILE = STEP_FILE( NAVG ) IF( .NOT. READ3( M3_FLNAME( JFILE ) , VNAME, 1, JDATE, & JTIME, CHOUR( 1, 1, NAVG ) ) ) THEN MSG = 'Could not read input Models-3 file ' // & M3_FLNAME( JFILE ) CALL M3ERR( PNAME, JDATE, JTIME, MSG, .TRUE. ) ENDIF ENDDO LFIRST = .FALSE. ELSE c..drop the first hour and add an hour at the end DO NAVG = 2, AVG_TIME CHOUR( : , : , NAVG - 1 ) = CHOUR( : , : , NAVG ) ENDDO ESTEP = N + AVG_TIME - 1 JDATE = STEP_DATE( ESTEP ) JTIME = STEP_TIME( ESTEP ) JFILE = STEP_FILE( ESTEP ) IF( .NOT. READ3( M3_FLNAME( JFILE ) , VNAME, 1, JDATE, & JTIME, CHOUR( 1, 1, AVG_TIME ) ) ) THEN MSG = 'Could not read input Models-3 file ' // & M3_FLNAME( JFILE ) CALL M3ERR( PNAME, JDATE, JTIME, MSG, .TRUE. ) ENDIF ENDIF c..comput the n-hour average GRIDVAL = ( SUM ( CHOUR( : , : , 1 : AVG_TIME ) , DIM = 3 ) ) / & FLOAT( AVG_TIME ) ENDIF RETURN END ================================================ FILE: POST/sitecmp/src/get_units.F ================================================ !-----------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !-----------------------------------------------------------------------! ! RCS file, release, date & time of last delta, author, state, [and locker] ! $Header: /home/sjr/cvs2git/TOOLS/src/sitecmp/get_units.F,v 1.4 2011/10/21 14:41:32 sjr Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC C C Routine to return the units of a variable for file M3_FLNAME(1) C CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC SUBROUTINE GET_UNITS( VARNAME, UNITS ) USE M3FILES USE ENV_VARS USE M3UTILIO IMPLICIT NONE C..ARGUMENTS: CHARACTER*(*) VARNAME CHARACTER*(*) UNITS C..SCRATCH LOCAL VARIABLES: CHARACTER*16 PNAME ! Program Name CHARACTER*256 MSG INTEGER I DATA PNAME / 'CK_M3FLS' / UNITS = 'na' ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Get header data for CTM file 1 ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF( .NOT. DESC3 ( M3_FLNAME( 1 ) ) ) THEN MSG = 'Could not read DESC of ' // M3_FLNAME( 1 ) & // ' file' CALL M3ERR( PNAME, 0, 0, MSG, .TRUE. ) RETURN ENDIF ! find matching variable, and return it's units DO I=1,MXVARS3 if( VNAME3D(i) .eq. VARNAME ) UNITS = UNITS3D(I) EndDo RETURN END ================================================ FILE: POST/sitecmp/src/module_envvar.F ================================================ !-----------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !-----------------------------------------------------------------------! ! RCS file, release, date & time of last delta, author, state, [and locker] ! $Header: /home/sjr/cvs2git/TOOLS/src/sitecmp/module_envvar.F,v 1.5 2011/10/21 14:41:32 sjr Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% C************************************************************************* C C MODULE: defines and gets environment variables C C************************************************************************* MODULE ENV_VARS CHARACTER*256 SITE_FILE ! Site info file CHARACTER*16 TABLE_TYPE ! Table type on input (IMPROVE, CASTNET, MDN, NADP, STN) CHARACTER*256 IN_TABLE ! Input table of actual values CHARACTER*256 OUT_TABLE ! Output table containing both actual and modeled values INTEGER START_DATE ! starting date of period to process INTEGER START_TIME ! starting time of period to process INTEGER END_DATE ! ending date of period to process INTEGER END_TIME ! ending time of period to process INTEGER TIME_SHIFT ! hours to adjust model data LOGICAL APPLYDLS ! Daylight Savings flag CHARACTER*16 PRECIP_FIELD ! name of precip species in wet concentration calculations CHARACTER*10 MISSING_VALUE ! indicates missing value in output CONTAINS SUBROUTINE GET_ENVS C************************************************************************* C C FUNCTION: To get environment variables C C C************************************************************************* USE M3UTILIO IMPLICIT NONE C..SAVED LOCAL VARIABLES: None C..SCRATCH LOCAL VARIABLES: CHARACTER*16 PNAME ! Program Name CHARACTER*16 TABLETYPE ! Env var for table type CHARACTER*16 INTABLE ! Env var for input table file name CHARACTER*16 OUTTABLE ! Env var for output table file name CHARACTER*16 APPLY_DLS ! Env var that indicates if DLS should apply CHARACTER*16 MISSING ! Env var to use to indicate missing values CHARACTER*80 MSG ! Error message CHARACTER*256 RET_VAL ! Returned value of env var CHARACTER*16 ENV_DFLT ! default env value CHARACTER*16 ENV_DESC ! message string INTEGER STATUS ! Status code LOGICAL LERROR ! Error flag CHARACTER*16 VARS(20) ! Env var for list of variables INTEGER I C********************************************************************** DATA PNAME / 'GET_ENVS' / DATA TABLETYPE / 'TABLE_TYPE' / DATA INTABLE / 'IN_TABLE' / DATA OUTTABLE / 'OUT_TABLE' / DATA APPLY_DLS / 'APPLY_DLS' / DATA MISSING / 'MISSING' / LERROR = .FALSE. cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Get the table type cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc ENV_DFLT = '' ENV_DESC = 'Table type (AVG_DAILY or AVG_PERIOD)' CALL ENVSTR( TABLETYPE, ENV_DESC, ENV_DFLT, TABLE_TYPE, STATUS) IF( STATUS .NE. 0 ) THEN MSG = 'WARNING: No table type assigned' CALL M3MESG( MSG ) ENDIF IF( TABLE_TYPE.ne.'IMPROVE' .and. & TABLE_TYPE.ne.'CASTNET' .and. & TABLE_TYPE.ne.'SEARCH' .and. & TABLE_TYPE.ne.'STN' .and. & TABLE_TYPE.ne.'MDN' .and. & TABLE_TYPE.ne.'MET' .and. & TABLE_TYPE.ne.'OUTPUT' .and. & TABLE_TYPE.ne.'AIRMON' .and. & TABLE_TYPE.ne.'DEARS' .and. & TABLE_TYPE.ne.'NADP') THEN MSG = 'ERROR: Invalid table type defined, must be '// & '(IMPROVE, CASTNET, SEARCH, STN, MDN, MET, NADP, DEARS, AIRMON, OUTPUT)' CALL M3MESG( MSG ) LERROR = .TRUE. ENDIF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Get the name of the input table file cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc ENV_DFLT = 'INTABLE' ENV_DESC = 'Input Table name' CALL ENVSTR( INTABLE, ENV_DESC, ENV_DFLT, IN_TABLE, STATUS) IF( STATUS .NE. 0 ) THEN MSG = 'ERROR: no file name assigned to '//INTABLE CALL M3MESG( MSG ) LERROR = .TRUE. ENDIF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Get the name of the site file cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc ENV_DFLT = 'SITEFILE' ENV_DESC = 'Site file name' CALL ENVSTR( 'SITE_FILE', ENV_DESC, ENV_DFLT, SITE_FILE, STATUS) IF( STATUS .NE. 0 ) THEN MSG = 'ERROR: no file name assigned to SITEFILE ' CALL M3MESG( MSG ) LERROR = .TRUE. ENDIF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Get the name of the output table file cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc ENV_DFLT = 'OUTTABLE' ENV_DESC = 'Output Table name' CALL ENVSTR( OUTTABLE, ENV_DESC, ENV_DFLT, OUT_TABLE, STATUS) IF( STATUS .NE. 0 ) THEN MSG = 'ERROR: no file name assigned to '//OUTTABLE CALL M3MESG( MSG ) LERROR = .TRUE. ENDIF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Get the starting and ending dates and times cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C...get starting date and time start_date = ENVINT('START_DATE','Start date for average period', 0, STATUS) start_time = ENVINT('START_TIME','Start time for average period', 0, STATUS) C...get ending date and time end_date = ENVINT('END_DATE','End date for average period', 0, STATUS) end_time = ENVINT('END_TIME','End time for average period', 0, STATUS) if(( start_date .gt. end_date ) .or. & ( start_date .eq. end_date .and. start_time .gt. end_time )) then MSG = '**Error** Invalid time window defined, start_time > end_time' CALL M3ERR( PNAME, 0, 0, MSG, .TRUE. ) Stop Endif cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Get the TIME Shift adjustment in hours cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc ENV_DESC = 'Hours added to model data read' TIME_SHIFT= ENVINT( 'TIME_SHIFT', ENV_DESC, 0, STATUS) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Get the DLS apply flag (default is false) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc ENV_DESC = 'Flag to apply Daylight Saving adjustment' APPLYDLS = ENVYN( APPLY_DLS, ENV_DESC, .FALSE., STATUS) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Get the Precip species to use in Volume_Weight calculations cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc ENV_DESC = 'Precip species used in wet concentrations' CALL ENVSTR('PRECIP', ENV_DESC, 'Precip', PRECIP_FIELD, STATUS) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Get the Character string to use for missing values cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc ENV_DESC = 'String to indicate missing values' CALL ENVSTR( MISSING, ENV_DESC, '-999', MISSING_VALUE, STATUS) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Stop if errors detected cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF( LERROR ) THEN MSG = 'Error in assigning environment variables -- stopping' CALL M3ERR( PNAME, 0, 0, MSG, .TRUE. ) ENDIF RETURN END SUBROUTINE GET_ENVS END MODULE ENV_VARS ================================================ FILE: POST/sitecmp/src/module_file.F ================================================ !-----------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !-----------------------------------------------------------------------! ! RCS file, release, date & time of last delta, author, state, [and locker] ! $Header: /home/sjr/cvs2git/TOOLS/src/sitecmp/module_file.F,v 1.4 2011/10/21 14:41:32 sjr Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% C************************************************************************* C C MODULE: sets up file data C C************************************************************************* MODULE M3FILES USE M3UTILIO INTEGER LOGUNIT ! Logdevice INTEGER N_M3FILES ! No. of input Models-3 files INTEGER, PARAMETER :: MXM3FLS = MXFILE3 - 1 ! Max no. of input files - use IOAPI parameter ! MXFILE3 - 1 to also allow one output file CHARACTER*16 M3_FLNAME( MXM3FLS ) ! Names of Models-3 file CHARACTER*256 M3FILE ! first filename CONTAINS SUBROUTINE OPEN_M3FILES C************************************************************************* C C FUNCTION: To provide site data C C************************************************************************* USE M3UTILIO IMPLICIT NONE C..ARGUMENTS: None C..PARAMETERS: None C..EXTERNAL FUNCTIONS: None C..SAVED LOCAL VARIABLES: None C..SCRATCH LOCAL VARIABLES: CHARACTER*16 ENV_DFLT ! Environment variable default value CHARACTER*16 FL_NAME ! Input Models-3 file name CHARACTER*16 PNAME ! Program Name CHARACTER*80 ENV_DESC ! Environment variable description CHARACTER*80 MSG ! Error message CHARACTER*256 RET_VAL ! Returned value of environment variable INTEGER N ! Loop index INTEGER STATUS ! Status code C********************************************************************** DATA PNAME / 'OPEN_M3FILES' / ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Determine the number of input CTM conc files that need to be read ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc LOGUNIT = INIT3() N_M3FILES = 0 WRITE( LOGUNIT, 92020 ) DO N = 1, MXM3FLS IF( N .LT. 10 ) THEN WRITE( FL_NAME, '( ''M3_FILE_'', I1 )' ) N WRITE( ENV_DESC, '( ''CTM Concentration file no. '', I1 )' ) N ELSEIF( N .LT. 100 ) THEN WRITE( FL_NAME, '( ''M3_FILE_'', I2 )' ) N WRITE( ENV_DESC, '( ''CTM Concentration file no. '', I2 )' ) N ELSE WRITE( FL_NAME, '( ''M3_FILE_'', I3 )' ) N WRITE( ENV_DESC, '( ''CTM Concentration file no. '', I3 )' ) N ENDIF ENV_DFLT = ' ' CALL ENVSTR( FL_NAME, ENV_DESC, ENV_DFLT, RET_VAL, STATUS) IF( STATUS .EQ. 0 ) THEN If( N_M3FILES .eq. 0) M3FILE = RET_VAL N_M3FILES = N_M3FILES + 1 M3_FLNAME( N_M3FILES ) = FL_NAME Else Exit ENDIF ENDDO IF( N_M3FILES .EQ. 0 ) THEN MSG = 'No CTM CONC files found' CALL M3ERR( PNAME, 0, 0, MSG, .TRUE. ) ENDIF ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Open the files ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc DO N = 1, N_M3FILES IF( .NOT. OPEN3( M3_FLNAME( N ), 1, PNAME) )THEN CALL M3EXIT( PNAME, 0 , 0, & 'Could not open input file ' // M3_FLNAME( N ), & XSTAT1 ) ENDIF ENDDO RETURN C****************** FORMAT STATEMENTS ****************************** 92020 FORMAT( //5X, A, // ) END SUBROUTINE OPEN_M3FILES END MODULE M3FILES ================================================ FILE: POST/sitecmp/src/module_grid.F ================================================ !-----------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !-----------------------------------------------------------------------! ! RCS file, release, date & time of last delta, author, state, [and locker] ! $Header: /home/sjr/cvs2git/TOOLS/src/sitecmp/module_grid.F,v 1.4 2011/10/21 14:41:32 sjr Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% C************************************************************************* C C MODULE: defines a grid class C C************************************************************************* MODULE GRID_DATA TYPE GRID INTEGER :: NCOLS INTEGER :: NROWS INTEGER :: GDTYP REAL*8 :: P_ALP REAL*8 :: P_BET REAL*8 :: P_GAM REAL*8 :: XCENT REAL*8 :: YCENT REAL*8 :: XORIG REAL*8 :: YORIG REAL*8 :: XCELL REAL*8 :: YCELL END TYPE GRID TYPE ( GRID ) M3GRID CONTAINS SUBROUTINE GET_M3GRID C************************************************************************* C C FUNCTION: To set grid data C C************************************************************************* USE M3FILES USE M3UTILIO IMPLICIT NONE C..ARGUMENTS: None C..PARAMETERS: None C..EXTERNAL FUNCTIONS: None C..SAVED LOCAL VARIABLES: None C..SCRATCH LOCAL VARIABLES: CHARACTER*16 PNAME ! Program Name INTEGER N ! Loop index INTEGER STATUS ! Status code C********************************************************************** DATA PNAME / 'GET_GRID' / IF ( .NOT. DESC3( M3_FLNAME( 1 ) ) ) THEN CALL M3EXIT( PNAME, 0, 0, & 'Could not get ' // M3_FLNAME( 1 ) // & ' file description', XSTAT1 ) ENDIF M3GRID % NCOLS = NCOLS3D c M3GRID % NROWS = NCOLS3D M3GRID % NROWS = NROWS3D M3GRID % GDTYP = GDTYP3D M3GRID % P_ALP = P_ALP3D M3GRID % P_BET = P_BET3D M3GRID % P_GAM = P_GAM3D M3GRID % XCENT = XCENT3D M3GRID % YCENT = YCENT3D M3GRID % XORIG = XORIG3D M3GRID % YORIG = YORIG3D M3GRID % XCELL = XCELL3D M3GRID % YCELL = YCELL3D RETURN END SUBROUTINE GET_M3GRID END MODULE GRID_DATA ================================================ FILE: POST/sitecmp/src/module_sites.F ================================================ C*********************************************************************** C Portions of Models-3/CMAQ software were developed or based on * C information from various groups: Federal Government employees, * C contractors working on a United States Government contract, and * C non-Federal sources (including research institutions). These * C research institutions have given the Government permission to * C use, prepare derivative works, and distribute copies of their * C work in Models-3/CMAQ to the public and to permit others to do * C so. EPA therefore grants similar permissions for use of the * C Models-3/CMAQ software, but users are requested to provide copies * C of derivative works to the Government without restrictions as to * C use by others. Users are responsible for acquiring their own * C copies of commercial software associated with Models-3/CMAQ and * C for complying with vendor requirements. Software copyrights by * C the MCNC Environmental Modeling Center are used with their * C permissions subject to the above restrictions. * C*********************************************************************** C************************************************************************* C C MODULE: defines site data C C************************************************************************* MODULE SITE_DATA INTEGER NSITES CHARACTER*256 SITE_FNAME CHARACTER*20, ALLOCATABLE :: SITE( : ) CHARACTER*25, ALLOCATABLE :: STATE( : ) CHARACTER*25, ALLOCATABLE :: COUNTY( : ) INTEGER, ALLOCATABLE :: POC( : ) INTEGER, ALLOCATABLE :: TZ( : ) INTEGER, ALLOCATABLE :: COL( : ) INTEGER, ALLOCATABLE :: ROW( : ) REAL, ALLOCATABLE :: LAT( : ) REAL, ALLOCATABLE :: LON( : ) REAL, ALLOCATABLE :: SX( : ) REAL, ALLOCATABLE :: SY( : ) REAL, ALLOCATABLE :: ELEV( : ) CONTAINS cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Subroutine to get data from file type 1 cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc SUBROUTINE FL_TYP1 C************************************************************************* C C FUNCTION: To provide site data C C************************************************************************* USE ENV_VARS USE M3UTILIO IMPLICIT NONE C..ARGUMENTS: None C..PARAMETERS: None C..EXTERNAL FUNCTIONS: INTEGER getNumberOfFields C..SAVED LOCAL VARIABLES: None C..SCRATCH LOCAL VARIABLES: CHARACTER*300 RECORD ! input record buffer CHARACTER*80 FIELD ! input field CHARACTER*80 FIELD1 CHARACTER*80 FIELD2 CHARACTER*16 ENV_DFLT ! Environment variable default value CHARACTER*16 PNAME ! Program Name CHARACTER*80 ENV_DESC ! Environment variable description CHARACTER*80 MSG ! Error message CHARACTER*256 RET_VAL ! Returned value of environment variable INTEGER NFIELDS INTEGER LFN INTEGER N, J INTEGER NN INTEGER STATUS INTEGER TZONE Integer numsites Character*(20) :: prevSite Integer :: prevPOC Character*(20), allocatable :: idfld(:) Character*(25), allocatable :: statefld(:) Character*(25), allocatable :: countyfld(:) Integer , allocatable :: pocfld(:,:) Real, allocatable :: lonfld(:) Real, allocatable :: latfld(:) Real, allocatable :: elevfld(:) Integer, allocatable :: npoc(:) Integer, allocatable :: tzfld(:) Logical, allocatable :: active(:) LOGICAL IS_CSV Integer :: siteField Integer :: latField Integer :: lonField Integer :: stateField Integer :: countyField Integer :: elevField Integer :: tzField Integer :: pocField Integer :: iPOC Integer :: t Character*(10) :: ftypes(10) Character*(10) :: sitehdrs(10) Data ftypes /'CASTNET', 'SEARCH', 'IMPROVE', 'NADP', 'AIRMON', 'STN', & 'MDN', 'MET', 'DEARS', 'OUTPUT'/ Data sitehdrs /'SITE_ID', 'SITE_ID', 'SITE_CODE', 'SITEID', 'SITE', 'SITE', & 'SITEID', 'SITE_ID', 'PID', 'SITEID'/ C********************************************************************** DATA PNAME / 'FL_TYP1' / LFN = JUNIT() SITE_FNAME = SITE_FILE OPEN(unit=lfn, file=SITE_FNAME, status='old', iostat=status) if(status.ne.0) then MSG = 'Cannot open site file:' // trim(SITE_FNAME) CALL M3ERR( PNAME, 0, 0, MSG, .TRUE. ) endif ! read the first line to determine whether this site file ! is using tab-delimited (no header line) or csv format READ( LFN, '(A)', iostat=status ) RECORD if(status.ne.0) then MSG = 'Cannot read first line of site file:' // trim(SITE_FNAME) CALL M3ERR( PNAME, 0, 0, MSG, .TRUE. ) endif nfields = getNumberOfFields(record, ",") if (nfields .le. 1) then IS_CSV = .FALSE. !assume tab delimited site file, no comma in first line else IS_CSV = .TRUE. !assume csv site file, commas in first line. !find columns for stat_id, lat, lon, !timezone, elevation, state, county endif REWIND( LFN ) ! read file to determine number of sites and metadata IF (.NOT.IS_CSV) THEN write(*,'(''ASSUMING TAB-DELIMITED SITE FILE: '',a)') trim(SITE_FNAME) numsites = 0 DO READ( LFN, '(A)', iostat=status ) RECORD if(status.ne.0) EXIT Call getField(record, char(9), 1, field) nfields = getNumberOfFields(record, char(9)) IF(nfields.ge.3 .and. LEN_TRIM(field).ge.2) numsites = numsites + 1 ENDDO if( numsites.eq.0 ) then write(*,'(''**ERROR**, No sites found in site file:'',a)') trim(SITE_FNAME) Stop endif ALLOCATE( idfld( numsites ), lonfld( numsites ), latfld( numsites ) ) ALLOCATE( tzfld( numsites ), active( numsites), pocfld( numsites , 99) ) ALLOCATE( npoc( numsites ) , elevfld (numsites), statefld (numsites) ) ALLOCATE( countyfld( numsites ) ) npoc = 0 active = .false. pocfld = 1 !default POC is 1 elevfld = -999. !default elevation is missing statefld = "NotAvailable" !default state name countyfld = "NotAvailable" !default state name REWIND( LFN ) ! read all site data from LFN N = 0 DO READ( LFN, '(A)', iostat=status ) RECORD if( status.ne.0 ) EXIT nfields = getNumberOfFields(record, char(9)) Call getField(record, char(9), 1, field) IF(nfields.ge.3 .and. LEN_TRIM(field).ge.2) THEN N = N + 1 idfld( N ) = field Call getField(record, char(9), 2, field) read(field,'(f16.0)',iostat=status) lonfld(n) if( status.ne.0 ) then write(*,'(''**WARNING** Invalid site record:'',a)') TRIM(record) CYCLE endif Call getField(record, char(9), 3, field) read(field,'(f16.0)',iostat=status) latfld(n) if( status.ne.0 ) then write(*,'(''**WARNING** Invalid site record:'',a)') TRIM(record) CYCLE endif ! compute Time zone offset from longitude tzfld(n) = -(lonfld(n)+7.5) / 15 ! try to read Time zone offset from field 4 if(nfields.eq.4) then Call getField(record, char(9), 4, field) READ(field, '(BN,i10)', iostat=status) tzone if(status.eq.0 .and. field.ne.' ') tzfld(n) = tzone endif endif enddo close(unit=LFN) ELSE !csv-formatted site file write(*,'(''ASSUMING CSV SITE FILE: '',a)') trim(SITE_FNAME) numsites = 0 ! read header line first to find the position of the ! lat, lon, time zone, state,county, and elevation fields siteField = 0 stateField = 0 countyField = 0 latField = 0 lonField = 0 elevField = 0 tzField = 0 read(lfn,'(a)',iostat=status) record if( status.ne.0 ) then write(*,'(''**ERROR** Invalid table header in table file'')') Stop endif call UCASE( record ) call rmCommas(record) nfields = getNumberOfFields(record, ',') Do n=1,nfields call getField(record, ',', n, field) call rmQuots( field ) call LeftTrim(field) if( INDEX(field,'STAT_ID').gt.0 ) then siteField = n exit endif EndDo Do n=1,nfields call getField(record, ',', n, field) call rmQuots( field ) call LeftTrim(field) if( INDEX(field,'LAT').gt.0 ) then latField = n exit endif EndDo Do n=1,nfields call getField(record, ',', n, field) call rmQuots( field ) call LeftTrim(field) if( INDEX(field,'LON').gt.0 ) then lonField = n exit endif EndDo Do n=1,nfields call getField(record, ',', n, field) call rmQuots( field ) call LeftTrim(field) if( INDEX(field,'ELEVATION').gt.0 ) then elevField = n exit endif EndDo Do n=1,nfields call getField(record, ',', n, field) call rmQuots( field ) call LeftTrim(field) if( INDEX(field,'STATE').gt.0 ) then stateField = n exit endif EndDo Do n=1,nfields call getField(record, ',', n, field) call rmQuots( field ) call LeftTrim(field) if( INDEX(field,'COUNTY').gt.0 ) then countyField = n exit endif EndDo Do n=1,nfields call getField(record, ',', n, field) call rmQuots( field ) call LeftTrim(field) if( INDEX(field,'GMT_OFFSET').gt.0 ) then tzField = n exit endif EndDo if( ( siteField .eq. 0 ) .or. ( latField .eq. 0 ) .or. * ( lonField .eq. 0 ) ) then write(*,'(''**ERROR**, stat_id, lat, and/or lon column ''//'' * missing in:'',a)') trim(SITE_FNAME) Stop endif ! done reading and processing header line, now read station data DO READ( LFN, '(A)', iostat=status ) RECORD if(status.ne.0) EXIT Call getField(record, ',' , siteField, field) nfields = getNumberOfFields(record, ',' ) IF(nfields.ge.3 .and. LEN_TRIM(field).ge.2) numsites = numsites + 1 ENDDO if( numsites.eq.0 ) then write(*,'(''**ERROR**, No sites found in site file:'',a)') trim(SITE_FNAME) Stop endif ALLOCATE( idfld( numsites ), lonfld( numsites ), latfld( numsites ) ) ALLOCATE( tzfld( numsites ), active( numsites), pocfld( numsites , 99) ) ALLOCATE( npoc( numsites ) , elevfld (numsites), statefld (numsites) ) ALLOCATE( countyfld( numsites ) ) npoc = 0 active = .false. pocfld = 1 !default POC is 1 elevfld = -999. !default elevation is missing statefld = "NotAvailable" !default state name countyfld = "NotAvailable" !default state name REWIND( LFN ) ! read header line read(lfn,'(a)',iostat=status) record if( status.ne.0 ) then write(*,'(''**ERROR** Invalid table header in table file'')') Stop endif ! read all site data from LFN N = 0 DO READ( LFN, '(A)', iostat=status ) RECORD if( status.ne.0 ) EXIT Call getField(record, ',', siteField, field) call rmQuots( field ) IF(LEN_TRIM(field).ge.2) THEN N = N + 1 idfld( N ) = field Call getField(record, ',', lonField, field) call rmQuots( field ) read(field,'(f16.0)',iostat=status) lonfld(n) if( status.ne.0 ) then write(*,'(''**WARNING** Invalid site record for lon:'',a)') TRIM(record) write(*,'(''**WARNING** field = '',a)') TRIM(field) CYCLE endif Call getField(record, ',', latField, field) call rmQuots( field ) read(field,'(f16.0)',iostat=status) latfld(n) if( status.ne.0 ) then write(*,'(''**WARNING** Invalid site record for lat:'',a)') TRIM(record) write(*,'(''**WARNING** field = '',a)') TRIM(field) CYCLE endif if (stateField .gt. 0) then Call getField(record, ',', stateField, field) call rmQuots( field ) statefld( N ) = field endif if (countyField .gt. 0) then Call getField(record, ',', countyField, field) call rmQuots( field ) countyfld( N ) = field endif if (elevField .gt. 0) then Call getField(record, ',', elevField, field) call rmQuots( field ) read(field,'(f16.0)',iostat=status) elevfld(n) if( status.ne.0 ) then write(*,'(''**WARNING** Invalid site record for elev:'',a)') TRIM(record) write(*,'(''**WARNING** field = '',a)') TRIM(field) CYCLE endif endif ! compute Time zone offset from longitude tzfld(n) = -(lonfld(n)+7.5) / 15 ! try to read Time zone offset from field 4 if (tzField .gt. 0) then Call getField(record, ',', tzField, field) call rmQuots( field ) READ(field, '(BN,i10)', iostat=status) tzone if(status.eq.0 .and. field.ne.' ') tzfld(n) = tzone endif endif enddo close(unit=LFN) ENDIF !tab-delimited or csv site file write(*,'(i6,'' total sites read'')') numsites OPEN(unit=lfn, file=IN_TABLE, status='old', iostat=status) if(status.ne.0) then MSG = 'Cannot open IN_TABLE:' // trim(IN_TABLE) CALL M3ERR( PNAME, 0, 0, MSG, .TRUE. ) endif ! find table type index t do n=1,SIZE(ftypes) if( TABLE_TYPE.eq.ftypes(n) ) t = n enddo ! determine location of site field in table file siteField = 0 pocField = 0 do read(lfn,'(a)',iostat=status) record if( status.ne.0 ) then write(*,'(''**ERROR** Invalid table header in table file'')') Stop endif call UCASE( record ) call rmCommas(record) nfields = getNumberOfFields(record, ',') if( nfields.lt.3 ) CYCLE if( INDEX(record,TRIM(sitehdrs(t))).gt.0 ) then Do n=1,nfields call getField(record, ',', n, field) call rmQuots( field ) call LeftTrim(field) if( INDEX(field,TRIM(sitehdrs(t))).gt.0 ) siteField = n if( INDEX(field,'POCODE').gt.0 ) pocField = n EndDo EndIf if( siteField.gt.0 ) EXIT enddo ! read table file and check for active sites prevSite = ' ' prevPOC = 0 do read(lfn,'(a)',iostat=status) record if( status.ne.0 ) EXIT call rmCommas(record) Call getField(record, ',', siteField, field1 ) if ( pocField .gt. 0 ) then Call getField(record, ',', pocField, field2 ) else field2 = '1' !use 1 as default parameter occurrence code endif call rmQuots( field1 ) call rmQuots( field2 ) read(field2,*) iPOC if (( TRIM(field1) .eq. TRIM(prevSite) ) .and. ( iPOC .eq. prevPOC )) CYCLE do n=1,numsites if( TRIM(field1) .eq. TRIM(idfld(n)) ) then active(n) = .true. npoc(n) = npoc(n) + 1 pocfld(n,npoc(n)) = iPOC EXIT endif enddo prevSite = field1 prevPOC = iPOC enddo ! count number of active sites nsites = 0 do n=1,numsites if( active(n) ) then do j = 1, npoc(n) nsites = nsites + 1 enddo !nn endif enddo ! build list of active sites ALLOCATE( SITE( nsites ), POC( nsites ), TZ( nsites ), LON( nsites ), LAT( nsites ) ) ALLOCATE( STATE( nsites ), COUNTY( nsites ), ELEV( nsites ) ) nn = 0 do n=1,numsites if( active(n) ) then do j = 1, npoc(n) nn = nn + 1 SITE(nn) = idfld(n) STATE(nn) = statefld(n) COUNTY(nn) = countyfld(n) POC(nn) = pocfld(n,j) TZ(nn) = tzfld(n) LON(nn) = lonfld(n) LAT(nn) = latfld(n) ELEV(nn) = elevfld(n) enddo !j endif enddo !n write(*,'(i6,'' active sites loaded'')') NSITES close(lfn) RETURN END SUBROUTINE FL_TYP1 SUBROUTINE SET_SITE_LOC C************************************************************************* C C FUNCTION: Finds the col and row location of each site C C************************************************************************* USE ENV_VARS USE M3FILES USE M3UTILIO USE GRID_DATA IMPLICIT NONE C..ARGUMENTS: None C..PARAMETERS: None C..SAVED LOCAL VARIABLES: None C..SCRATCH LOCAL VARIABLES: CHARACTER*24 CRDATE ! Create date CHARACTER*80 MSG ! Log message CHARACTER*16 PNAME ! Program Name CHARACTER*256 RET_VAL ! Returned value of environment variable INTEGER C, R, N ! Loop indices INTEGER IOUT ! Output file unit number INTEGER JDATE ! Create date YYYYDDD INTEGER JTIME ! Create timeHHMMSS REAL LATIN ! Input lat REAL LONIN ! Input lon REAL X ! x-coordinate for lambert projection REAL Y ! y-coordinate for lambert projection REAL XW, XE ! X-coordinates of grid cell edges REAL YS, YN ! Y-coordinates of grid cell edges LOGICAL PROJ ! projection is supported C********************************************************************** DATA PNAME / 'SET_SITE_LOC' / DATA PROJ / .FALSE. / ALLOCATE( COL( NSITES ), ROW( NSITES ), SX( NSITES ), SY( NSITES ) ) Call SETPROJ( GDTYP3D, Real(M3GRID%P_ALP),Real(M3GRID%P_BET), & Real(M3GRID%P_GAM),Real(M3GRID%XCENT),Real(M3GRID%YCENT) ) C process each site DO N = 1, NSITES c..for now make sure longitude is negative LONIN = LON( N ) LATIN = LAT( N ) c..get the x,y coordinates Call ToProj(GDTYP3D, LONIN, LATIN, X, Y) c..save x,y cooridinates SX( N ) = X SY( N ) = Y c..find the column location COL( N ) = 0 DO C = 1, NCOLS3D XW = M3GRID % XORIG + FLOAT( C - 1 ) * M3GRID % XCELL XE = XW + M3GRID % XCELL IF( X .GE. XW .AND. X .LT. XE ) COL( N ) = C ENDDO c..find the row location ROW( N ) = 0 DO R = 1, NROWS3D YS = M3GRID % YORIG + FLOAT( R - 1 ) * M3GRID % YCELL YN = YS + M3GRID % YCELL IF( Y .GE. YS .AND. Y .LT. YN ) ROW( N ) = R ENDDO ! Write(*,'(a,2f10.4,2i5)') SITE(N),LON(N),LAT(N), COL(N), ROW(N) ENDDO RETURN 92000 FORMAT( '! INPUT M3 FILE ', I2, ': ', A ) 92020 FORMAT( '! INPUT SITE FILE: ', A ) 92040 FORMAT( '! SITEID STATE REGION LON LAT COL ROW X Y ' ) 92060 FORMAT( A9, 1X, A2, 1X, A2, F8.3, 1X, F8.3, 1X, I3, 1X, I3, 2F15.2 ) END SUBROUTINE SET_SITE_LOC C function to find the index number of a site Integer Function getSiteNumber( id1, id2 ) result (siteNo) CHARACTER*(*) :: id1, id2 Integer :: i ! local variables Character*(20), save :: prevId1 Integer, save :: prevId2 Integer, save :: prevNo Integer :: iPOC siteNo = -1 read(id2,*) iPOC ! check for repeat if (( id1 .eq. prevId1 ) .and. ( iPOC .eq. prevId2 )) then siteNo = prevNo return endif ! search list for match do i=1,NSITES if (( TRIM(id1) .eq. TRIM(SITE(I)) ) .and. * ( iPOC .eq. POC(I) )) then siteNo = i ! save for next lookup prevId1 = id1 prevId2 = iPOC prevNo = siteNo return endif Enddo !Write(*,'('' cannot find match for site '',a)') id1 Return End Function getSiteNumber C function to return latitude value for site n Real Function getLatitude( id ) result (latitude) if(id .le. size(LAT)) Then latitude = lat(id) else latitude = -999 endif Return End Function getLatitude C function to return longitude value for site n Real Function getLongitude( id ) result (longitude) if(id .le. size(LON)) Then longitude = lon(id) else longitude = -999 endif Return End Function getLongitude !**************************************************************************** ! routine to set map projection !**************************************************************************** Subroutine SetProj(gdtype, alpha, beta, gamma, xcent, ycent) USE M3UTILIO IMPLICIT NONE ! arguments Integer gdtype Real alpha, beta, gamma, xcent, ycent ! check for LAT/LON projection if( gdtype .eq. 1 ) then return endif ! check for lambert projection if( gdtype .eq. 2 ) then if( .NOT. SETLAM( alpha, beta, gamma, xcent, ycent) ) then Call m3exit ('sitecmp', 0, 0, 'Lambert projection setup error', xstat2) endif return endif ! check for Polar projection if( gdtype .eq. 6 ) then if( .NOT. SETPOL( alpha, beta, gamma, xcent, ycent) ) then Call m3exit ('sitecmp', 0, 0, 'Polar projection setup error', xstat2) endif return endif ! check for equatorial mercator projection if( gdtype .eq. 7 ) then if( .NOT. SETEQM( alpha, beta, gamma, xcent, ycent) ) then Call m3exit ('sitecmp', 0, 0, 'Equatorial mercator projection setup error', xstat2) endif return endif Call m3exit ('sitecmp', 0, 0, 'Unsupported map projection', xstat2) end Subroutine SetProj !C**************************************************************************** !C routine to compute map projection from LAT/LON !C**************************************************************************** Subroutine ToProj(gdtype, longitude, latitude, x, y) USE M3UTILIO IMPLICIT NONE ! arguments Integer gdtype Real longitude, latitude, x, y ! check for LAT/LON projection if( gdtype .eq. 1 ) then x = longitude y = latitude return endif ! check for lambert projection if( gdtype .eq. 2 ) then if(.NOT.LL2LAM(longitude, latitude, x, y) ) then Call m3exit('sitecmp', 0, 0, 'Lat/Lon to Lambert error', xstat2) endif return endif ! check for polar projection if( gdtype .eq. 6 ) then if(.NOT.LL2POL(longitude, latitude, x, y) ) then Call m3exit('sitecmp', 0, 0, 'Lat/Lon to Polar error', xstat2) endif return endif ! check for polar projection if( gdtype .eq. 7 ) then if(.NOT.LL2EQM(longitude, latitude, x, y) ) then Call m3exit('sitecmp', 0, 0, 'Lat/Lon to equatorial mercator error', xstat2) endif return endif Call m3exit ('sitecmp', 0, 0, 'Unsupported map projection', xstat2) end Subroutine ToProj !C**************************************************************************** !C routine to compute LAT/LON from map projection !C**************************************************************************** Subroutine ToLL(gdtype, x, y, longitude, latitude) USE M3UTILIO IMPLICIT NONE ! arguments Integer gdtype Real longitude, latitude, x, y ! check for LAT/LON projection if( gdtype .eq. 1 ) then longitude = x latitude = y return endif ! check for lambert projection if( gdtype .eq. 2 ) then if(.NOT.LAM2LL(x, y, longitude, latitude) ) then Call m3exit('sitecmp', 0, 0, 'Lat/Lon to Lambert error', xstat2) endif return endif ! check for polar projection if( gdtype .eq. 6 ) then if(.NOT.POL2LL(x, y, longitude, latitude) ) then Call m3exit('sitecmp', 0, 0, 'Lat/Lon to Polar error', xstat2) endif return endif ! check for equatorial mercator projection if( gdtype .eq. 7 ) then if(.NOT.EQM2LL(x, y, longitude, latitude) ) then Call m3exit('sitecmp', 0, 0, 'Lat/Lon to equatorial mercator error', xstat2) endif return endif Call m3exit ('sitecmp', 0, 0, 'Unsupported map projection', xstat2) end Subroutine ToLL END MODULE SITE_DATA ================================================ FILE: POST/sitecmp/src/module_spec.F ================================================ !-----------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !-----------------------------------------------------------------------! ! RCS file, release, date & time of last delta, author, state, [and locker] ! $Header: /home/sjr/cvs2git/TOOLS/src/sitecmp/module_spec.F,v 1.4 2011/10/21 14:41:32 sjr Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% C************************************************************************* C C MODULE: defines a set of species variables for output C C************************************************************************* MODULE SPECIES_DEF TYPE SPEC_VAR CHARACTER(len=512) OBS_EXPRESSION CHARACTER(len=16) OBS_UNITS INTEGER OBS_NUMSPEC CHARACTER(len=36) OBS_NAME(20) REAL OBS_FACTOR(20) INTEGER OBS_FIELD(20) LOGICAL OBS_OPTNAL(20) CHARACTER(len=512) MOD_EXPRESSION CHARACTER(len=16) MOD_UNITS INTEGER MOD_NUMSPEC CHARACTER(len=36) MOD_NAME(20) REAL MOD_FACTOR(20) CHARACTER(len=2) OP_CODE END TYPE SPEC_VAR TYPE ( SPEC_VAR ) SPECVARS(300) INTEGER NSPECVAR CONTAINS cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C ROUTINE TO GET SPECIES DEFINITIONS FROM ENVIRONMENT VARIABLES C C VARIABLE FORMAT obs_expression, obs_units, mod_expression, mod_units, [output name] C C expressions are in the format (f1*s1 + f2*s2 +...+f10*s10) CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC SUBROUTINE GET_SPECS IMPLICIT NONE !Extrenal functions INTEGER getParsedNumber ! local variables INTEGER N, I, K INTEGER STATUS, split CHARACTER(LEN=32) VARNAME CHARACTER(LEN=1024) RECORD CHARACTER(LEN=1024) FIELD CHARACTER(LEN=2) operation(6) CHARACTER(LEN=6) varType(6) ! OPERATION codes ! AV - average ! AC - accumulate ! WD - wet deposition ! WC - wet concentration DATA OPERATION/'CH','AV','AV','WD','WC','AC'/ DATA varType/'CHAR','AERO','GAS','WETDEP','WETCON','PREC'/ NSPECVAR = 0 DO k=1,SIZE(varType) DO N=1,300 ! build VARNAME IF( N.le.9 ) THEN WRITE(VARNAME,'(A,''_'',I1)') TRIM(varType(k)), N ELSE WRITE(VARNAME,'(A,''_'',I2)') TRIM(varType(k)), N ENDIF ! GET DEFINITION RECORD CALL ENVSTR( VARNAME, 'Species Variable definition', 'Not Used', RECORD, STATUS) IF( STATUS .NE. 0 ) EXIT NSPECVAR = NSPECVAR + 1 ! truncate record at ! character split = index(record, '!') if( split.gt.0 ) then record = record(1:split-1) endif !PARSE RECORD if( getParsedNumber(record, ',') .eq. 0 ) Then CALL M3ERR( 'GET_SPECS', 0, 0,'Syntax error on variable definition '// & TRIM(varname), .TRUE. ) Endif ! parse field 1 of record to get obs_name Call getParsedField( record, ',', 1, field, .false. ) SPECVARS(NSPECVAR)%OBS_EXPRESSION = TRIM(field) ! check for Character species if( varType(k).eq.'CHAR' ) then SPECVARS(NSPECVAR)%OBS_UNITS = ' ' SPECVARS(NSPECVAR)%OBS_NUMSPEC = 1 SPECVARS(NSPECVAR)%OBS_NAME(1) = field SPECVARS(NSPECVAR)%OBS_FACTOR(1) = 1.0 SPECVARS(NSPECVAR)%OBS_OPTNAL(1) = .FALSE. SPECVARS(NSPECVAR)%MOD_EXPRESSION = ' ' SPECVARS(NSPECVAR)%MOD_UNITS = ' ' SPECVARS(NSPECVAR)%OP_CODE = OPERATION(K) CYCLE endif Call parseObsSpecies(SPECVARS(NSPECVAR), status) if( status .ne. 0 ) Then CALL M3ERR( 'GET_SPECS', 0, 0,'Syntax error on variable definition '// & TRIM(varname), .TRUE. ) Endif ! parse field 2 of record to get obs_units Call getParsedField( record, ',', 2, field, .false. ) if( LEN_TRIM(field) .gt. 0 ) then SPECVARS(NSPECVAR)%OBS_UNITS = field Else SPECVARS(NSPECVAR)%OBS_UNITS = ' ' Endif ! parse field 3 of record to model species Call getParsedField( record, ',', 3, field, .false. ) SPECVARS(NSPECVAR)%MOD_EXPRESSION = field Call parseModSpecies(SPECVARS(NSPECVAR), status) if( status .ne. 0 ) Then CALL M3ERR( 'GET_SPECS', 0, 0,'Syntax error on variable definition '// & TRIM(varname), .TRUE. ) Endif ! parse field 4 of record to get model_units Call getParsedField( record, ',', 4, field, .false. ) if( LEN_TRIM(field) .gt. 0 ) then SPECVARS(NSPECVAR)%MOD_UNITS = field Else SPECVARS(NSPECVAR)%MOD_UNITS = ' ' Endif ! parse field 5 of record to get output name Call getParsedField( record, ',', 5, field, .false. ) if( LEN_TRIM(field) .gt. 0 ) then SPECVARS(NSPECVAR)%MOD_EXPRESSION = field SPECVARS(NSPECVAR)%OBS_EXPRESSION = field endif ! set operation code SPECVARS(NSPECVAR)%OP_CODE = OPERATION(K) ENDDO ENDDO END SUBROUTINE GET_SPECS C************************************************************************* C routine to parse observed species from character record C************************************************************************* SUBROUTINE parseObsSpecies(VAR, status) IMPLICIT NONE !Extrenal functions INTEGER getParsedNumber !arguments TYPE (SPEC_VAR) VAR INTEGER STATUS ! local variables INTEGER N INTEGER I CHARACTER(LEN=36) VARNAME CHARACTER(LEN=256) FIELD CHARACTER(LEN=36) factorFld CHARACTER(LEN=36) speciesFld ! set status flag to zero status = 0 ! if record is blank, set NUMSPEC to zero and return if( VAR%OBS_EXPRESSION.eq.' ' ) Then VAR%OBS_NUMSPEC = 0 return Endif ! find number of model species for variable NSPECVAR VAR%OBS_NUMSPEC = getParsedNumber(VAR%OBS_EXPRESSION, '+-') ! check if maximum number of species execeeded if( VAR%OBS_NUMSPEC .gt. SIZE(VAR%OBS_NAME) ) Then Write(*,'(/''**ERROR** The maximum number of species in an expression exceeded'')') Write(*,'(a)') TRIM(VAR%OBS_EXPRESSION) Stop endif ! if no model species defined, return with error status if( VAR%OBS_NUMSPEC .eq. 0 ) goto 50 Do N=1,VAR%OBS_NUMSPEC Call getParsedField( VAR%OBS_EXPRESSION, '+-', N, field, .true. ) ! determine if spec field has a factor if( getParsedNumber(field, '*') .gt. 1 ) then Call getParsedField( field, '*', 1, factorFld, .true. ) Call getParsedField( field, '*', 2, speciesFld, .false. ) Else ! check first character for sign if( Index('+-',field(1:1)) .gt.0 ) then factorFld = field(1:1) // '1.0' speciesFld = field(2:) Else factorFld = '1.0' speciesFld = field Endif Endif ! check for Optional species ( in brackets [] ) VAR%OBS_OPTNAL(N) = .FALSE. Call leftTrim(speciesFld) if( speciesFld(1:1) .eq. '[' ) then VAR%OBS_OPTNAL(N) = .TRUE. ! remove brackets do i=1,LEN_TRIM( speciesFld ) if( speciesFld(i:i).eq.'[' .or. speciesFld(i:i).eq.']' ) speciesFld(i:i) = ' ' enddo endif ! speciesFld and factorFld should be defined at this point Call leftTrim(speciesFld) VAR%OBS_NAME(N) = TRIM(speciesFld) Read(factorFld,'(BN,f16.0)', err=50) VAR%OBS_FACTOR(N) EndDo Return 50 status = 1 return END SUBROUTINE parseObsSpecies C************************************************************************* C routine to parse model species from character record C************************************************************************* SUBROUTINE parseModSpecies(VAR, status) IMPLICIT NONE !Extrenal functions INTEGER getParsedNumber !arguments TYPE (SPEC_VAR) VAR INTEGER STATUS ! local variables INTEGER N CHARACTER(LEN=36) VARNAME CHARACTER(LEN=256) FIELD CHARACTER(LEN=36) factorFld CHARACTER(LEN=36) speciesFld ! set status flag to zero status = 0 ! if record is blank, set NUMSPEC to zero and return if( VAR%MOD_EXPRESSION.eq.' ' ) Then VAR%MOD_NUMSPEC = 0 return Endif ! find number of model species for variable NSPECVAR VAR%MOD_NUMSPEC = getParsedNumber(VAR%MOD_EXPRESSION, '+-') ! if no model species defined, return with error status if( VAR%MOD_NUMSPEC .eq. 0 ) goto 50 ! check if number of species exceed max if( VAR%MOD_NUMSPEC .gt. SIZE( VAR%MOD_NAME ) ) Then Write(*,'(/''**ERROR** The maximum number of species in an expression exceeded'')') Write(*,'(a)') TRIM(VAR%MOD_EXPRESSION) Stop endif Do N=1,VAR%MOD_NUMSPEC Call getParsedField( VAR%MOD_EXPRESSION, '+-', N, field, .true. ) ! determine if spec field has a factor if( getParsedNumber(field, '*') .gt. 1 ) then Call getParsedField( field, '*', 1, factorFld, .true. ) Call getParsedField( field, '*', 2, speciesFld, .false. ) Else ! check first character for sign if( Index('+-',field(1:1)) .gt.0 ) then factorFld = field(1:1) // '1.0' speciesFld = field(2:) Else factorFld = '1.0' speciesFld = field Endif Endif ! speciesFld and factorFld should be defined at this point Call leftTrim(speciesFld) VAR%MOD_NAME(N) = TRIM(speciesFld) Read(factorFld,'(BN,f16.0)', err=50) VAR%MOD_FACTOR(N) EndDo Return 50 status = 1 return END SUBROUTINE parseModSpecies END MODULE SPECIES_DEF ================================================ FILE: POST/sitecmp/src/module_tstep.F ================================================ !-----------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !-----------------------------------------------------------------------! ! RCS file, release, date & time of last delta, author, state, [and locker] ! $Header: /home/sjr/cvs2git/TOOLS/src/sitecmp/module_tstep.F,v 1.4 2011/10/21 14:41:33 sjr Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% C************************************************************************* C C MODULE TIME_STEP: defines a time class C C************************************************************************* MODULE TIME_STEP INTEGER :: NSTEPS INTEGER , ALLOCATABLE :: STEP_DATE( : ) INTEGER , ALLOCATABLE :: STEP_TIME( : ) INTEGER , ALLOCATABLE :: STEP_FILE( : ) INTEGER :: TIMESTEP CONTAINS SUBROUTINE GET_TSTEPS C************************************************************************* C C FUNCTION: Set-up time step sequence for reading files and writing C output records C C************************************************************************* USE M3FILES USE M3UTILIO IMPLICIT NONE C..ARGUMENTS: None C..PARAMETERS: None C..SAVED LOCAL VARIABLES: None C..SCRATCH LOCAL VARIABLES: CHARACTER*80 MSG ! Log message CHARACTER*16 PNAME ! Program Name INTEGER D0, D1 ! Differences betwwen two times, seconds INTEGER INDX ! Array location to insert new index INTEGER MXSTEPS ! max possible no. of time steps INTEGER N, NFL, NS, N2 ! Loop indices INTEGER JDATE ! Current date INTEGER JTIME ! Current time C********************************************************************** DATA PNAME / 'GET_TSTEPS' / cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Get the maximum number of time steps cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc MXSTEPS = 0 DO N = 1, N_M3FILES IF( .NOT. DESC3( M3_FLNAME( N ) ) ) THEN CALL M3EXIT( PNAME, 0, 0, 'Could not get ' // & M3_FLNAME( N ) // ' file description', & XSTAT1 ) ENDIF MXSTEPS = MXSTEPS + MXREC3D ENDDO ALLOCATE( STEP_DATE( MXSTEPS ), STEP_TIME( MXSTEPS ), & STEP_FILE( MXSTEPS ) ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Load all steps from first file cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF( .NOT. DESC3( M3_FLNAME( 1 ) ) ) THEN CALL M3EXIT( PNAME, 0, 0, 'Could not get ' // & M3_FLNAME( 1 ) // ' file description', & XSTAT1 ) ENDIF JDATE = SDATE3D JTIME = STIME3D TIMESTEP = TSTEP3D NSTEPS = MXREC3D DO NS = 1, NSTEPS STEP_DATE( NS ) = JDATE STEP_TIME( NS ) = JTIME STEP_FILE( NS ) = 1 CALL NEXTIME( JDATE, JTIME, TSTEP3D ) ENDDO IF( N_M3FILES .EQ. 1 ) RETURN cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Insert non-duplicative time steps from remaining files in the array cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc MSG = 'Multiple CTM Concentration files being used' CALL M3MESG( MSG ) MSG = 'Duplicate time steps will be eliminated' CALL M3MESG( MSG ) DO NFL = 2, N_M3FILES IF ( .NOT. DESC3( M3_FLNAME( NFL ) ) ) THEN CALL M3EXIT( PNAME, 0, 0, & 'Could not get ' // M3_FLNAME( NFL ) // & ' file description', XSTAT1 ) ENDIF JDATE = SDATE3D JTIME = STIME3D DO NS = 1, MXREC3D DO N = 1, NSTEPS INDX = 0 D1 = SECSDIFF( STEP_DATE( N ), STEP_TIME( N ), & JDATE, JTIME ) IF( N .EQ. 1 .AND. D1 .LT. 0 ) THEN INDX = 1 ELSEIF( N .EQ. NSTEPS .AND. D1 .GT. 0 ) THEN INDX = NSTEPS + 1 ELSEIF( N .GT. 1 ) THEN D0 = SECSDIFF( STEP_DATE( N - 1 ), STEP_TIME( N - 1 ), & JDATE, JTIME ) IF( D0 .GT. 0 .AND. D1 .LT. 0 ) INDX = N ENDIF IF( INDX .GT. 0 ) THEN DO N2 = NSTEPS, INDX, -1 STEP_DATE( N2 + 1 ) = STEP_DATE( N2 ) STEP_TIME( N2 + 1 ) = STEP_TIME( N2 ) ENDDO STEP_DATE( INDX ) = JDATE STEP_TIME( INDX ) = JTIME STEP_FILE( INDX ) = NFL NSTEPS = NSTEPS + 1 ENDIF ENDDO IF( INDX .EQ. 0 ) WRITE( LOGUNIT, 93000) JDATE, JTIME, & M3_FLNAME( NFL ) CALL NEXTIME( JDATE, JTIME, TSTEP3D ) ENDDO ENDDO RETURN 93000 FORMAT( 10X, 'Duplicate time step ignored: ', I7, 1X, I6, 1X, A ) END SUBROUTINE GET_TSTEPS END MODULE TIME_STEP ================================================ FILE: POST/sitecmp/src/parser.F ================================================ !-----------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !-----------------------------------------------------------------------! ! RCS file, release, date & time of last delta, author, state, [and locker] ! $Header: /home/sjr/cvs2git/TOOLS/src/sitecmp/parser.F,v 1.5 2011/10/21 14:41:33 sjr Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% C*********************************************************************** C routines for parsing a delimited text record C*********************************************************************** C Return the number of fields in record INTEGER FUNCTION getNumberOfFields( record, delimiter ) result( nfields ) CHARACTER*(*) record CHARACTER*(1) delimiter Integer getFieldCount Integer i ! if delimiter is space, use getFieldCount function if( delimiter.eq.' ') then nfields = getFieldCount(record, delimiter) return endif nfields = 1 Do i=1, LEN(record) if( record(i:i) .eq. delimiter ) nfields = nfields+1 EndDo Return End C Return the number of parsed fields in record C this method considers duplicate delimiters as one INTEGER FUNCTION getFieldCount(record, delimiter) & result(nfields) CHARACTER*(*) record CHARACTER*(*) delimiter Integer i Logical infield Logical isDel nfields = 0 infield = .false. Do i=1,LEN(record) isDel = (record(i:i).eq.delimiter) ! check for start of field if( .NOT.infield .and. .NOT.isDel ) then nfields = nfields+1 infield = .true. cycle endif ! check for end of field if( infield .and. isDel ) then infield = .false. cycle endif enddo Return end C Return the nth field of record Subroutine getField( record, delimiter, nth, field ) CHARACTER*(*) record CHARACTER*(1) delimiter Integer nth CHARACTER*(*) field Integer nfields Integer i, pos1 ! if delimiter is space, use method 2 if( delimiter.eq.' ' ) then call getField2( record, delimiter, nth, field ) call RightTrim(field) return endif pos1 = 1 nfields = 0 field = '' Do i=1, LEN(record) if( record(i:i) .eq. delimiter ) then nfields = nfields+1 if( nfields .eq. nth ) then if(pos1.lt.i) field = record(pos1:i-1) call RightTrim(field) return Endif pos1 = i+1 Endif Enddo nfields = nfields+1 ! check if last field if( nfields .eq. nth ) then field = record(pos1:) Endif Call RightTrim(field) Return End C Return the nth field in record (method 2) C this method considers duplicate delimiters as one C Subroutine getField2( record, delimiter, nth, field ) CHARACTER*(*) record CHARACTER*(*) delimiter Integer nth CHARACTER*(*) field Integer nfields Integer i, pos1 Logical infield Logical isDel nfields = 0 field = '' infield = .false. Do i=1,LEN(record) isDel = (record(i:i).eq.delimiter) ! check for start of field if( .NOT.infield .and. .NOT.isDel ) then nfields = nfields+1 pos1 = i infield = .true. endif ! check for end of field if( infield .and. isDel ) then infield = .false. endif ! if end of nth field, return if( nfields.eq.nth .and. .not.infield ) then if(pos1.lt.i) field = record(pos1:i-1) return endif enddo ! check for last field if( nfields.eq.nth ) field = record(pos1:) Return End C Return the number of parsed fields in record INTEGER FUNCTION getParsedNumber( record, delimiter ) result( nfields ) CHARACTER*(*) record CHARACTER*(*) delimiter Integer i nfields = 1 Do i=1, LEN(record) if( index(delimiter,record(i:i)) .gt. 0 ) nfields = nfields+1 EndDo Return End C Return the nth field of record Subroutine getParsedField( record, delimiter, nth, field, includeDel ) CHARACTER*(*) record CHARACTER*(*) delimiter Integer nth CHARACTER*(*) field Logical includeDel Integer nfields Integer i, pos1 pos1 = 1 nfields = 0 field = '' Do i=1, LEN(record) if( index(delimiter,record(i:i)) .gt. 0 ) then nfields = nfields+1 if( nfields .eq. nth ) then if( pos1.lt.i ) field = record(pos1:i-1) return Endif ! define starting point of next field pos1 = i+1 if( includeDel ) pos1 = i Endif Enddo nfields = nfields+1 ! check if last field if( nfields .eq. nth ) then field = record(pos1:) Endif Return End C**************************************************************************** C routine to remove leading blank spaces from Character String C**************************************************************************** Subroutine LeftTrim( STRING ) CHARACTER*(*) STRING Integer I Do I=1,LEN(STRING) if(STRING(I:I) .ne. CHAR(32)) Then STRING = STRING(I:) RETURN EndIf EndDo Return End Subroutine LeftTrim C**************************************************************************** C routine to remove trailing white spaces from Character String C**************************************************************************** Subroutine RightTrim( STRING ) CHARACTER*(*) STRING Integer I Do I=LEN(STRING),1,-1 if(STRING(I:I) .lt. CHAR(32)) STRING(I:I) = CHAR(32) if(STRING(I:I) .gt. CHAR(32)) Exit EndDo Return End Subroutine RightTrim C**************************************************************************** C routine to remove quotation marks from character field C**************************************************************************** Subroutine rmQuots( string ) Implicit none ! arguments Character*(*) string Integer last, i call LeftTrim(string) last = LEN_TRIM(string) ! check for blank string if( last.le.0 ) return ! if no quot marks, return if( string(1:1).ne.'"' .and. string(last:last).ne.'"') return ! remove last quot mark string(last:last) = ' ' do i=1,last-1 string(i:i) = string(i+1:i+1) enddo Return End Subroutine rmQuots C**************************************************************************** C routine to remove commas within quotation marks C**************************************************************************** Subroutine rmCommas( string ) Implicit none ! arguments Character*(*) string Integer last, i Logical infield ! if no quot marks, return if( index(string, '"').le.0 ) return call LeftTrim(string) last = LEN_TRIM(string) ! check for blank string if( last.le.0 ) return infield = .false. do i=1,last if(string(i:i).eq.'"') infield = .NOT.infield if( infield .and. string(i:i).eq.',') string(i:i) = ' ' enddo Return End Subroutine rmCommas C*********************************************************************** C Routine to change character string to upper characters C*********************************************************************** SUBROUTINE UCASE ( STR ) IMPLICIT NONE CHARACTER STR*( * ) INTEGER I INTEGER K DO I = 1, LEN(STR) K = ICHAR(STR(I:I)) IF ( ( K .GE. 97 ) .AND. ( K .LE. 122 ) ) & STR( I:I ) = CHAR( K - 32 ) END DO RETURN END SUBROUTINE UCASE ================================================ FILE: POST/sitecmp/src/process.F ================================================ !-----------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !-----------------------------------------------------------------------! ! RCS file, release, date & time of last delta, author, state, [and locker] ! $Header: /home/sjr/cvs2git/TOOLS/src/sitecmp/process.F,v 1.5 2011/10/21 14:41:33 sjr Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% C************************************************************************* C C code for running the site compare process C C************************************************************************* SUBROUTINE PROCESS USE M3FILES USE ENV_VARS USE GRID_DATA USE TIME_STEP USE SITE_DATA USE SPECIES_DEF USE M3UTILIO IMPLICIT NONE C..ARGUMENTS: None C..PARAMETERS: None C..EXTERNAL FUNCTIONS: INTEGER getNumberOfFields INTEGER str2Date INTEGER str2Time LOGICAL ISLOCAL Character*16 date2Str Character*16 date2Str_csv Real getSpeciesValue Character*16 real2Str C..SAVED LOCAL VARIABLES: None C..SCRATCH LOCAL VARIABLES: CHARACTER*16 PNAME ! Program Name CHARACTER*80 MSG ! Error message CHARACTER*3200 RECORD ! input buffer CHARACTER*3200 OUTRECORD ! output buffer CHARACTER*3200 FIELD ! field buffer CHARACTER*3200 FIELD1 ! field buffer CHARACTER*3200 FIELD2 ! field buffer CHARACTER*16 FLAG ! field code CHARACTER*1 delimiter ! field delimiter INTEGER n, i, j, k, index, in, out, siteNo, status CHARACTER*16 UNITS ! variable units CHARACTER*20 DATESTR ! date string CHARACTER*16 dfield, tfield CHARACTER*36 obsName INTEGER startDate INTEGER startTime INTEGER endDate INTEGER endTime INTEGER siteField, pocField, sDateField, eDateField INTEGER istep1, istep2, TIMEZONE INTEGER stepsec, periodsec, neededSteps, nfields INTEGER SubPptFld Real fieldValue Real ppValue LOGICAL zeroPrecip LOGICAL WET_DEP REAL, ALLOCATABLE :: VARDATA( : ) LOGICAL DATACHECK LOGICAL DATECHECK C********************************************************************** DATA PNAME / 'PROCESS' / C**************************************************************** C open input and output table files C**************************************************************** in = 10 out = 11 open(unit=in, file=IN_TABLE, status='old', err=900) open(unit=out, file=OUT_TABLE, err=901) C**************************************************************** C read input table file and search for header line C**************************************************************** delimiter = ',' ISLOCAL = .TRUE. siteField = -1 pocField = -1 sDateField = -1 eDateField = -1 ! read until record contains "site_id" Do Read(in,'(a)', iostat=status) record call rmCommas(record) call ucase(record) if(status.ne.0) then Write(*,'(''Total data file read without finding a matching site_id'')') CALL M3ERR( PNAME, 0, 0,'No matching site records found in data file:'//IN_TABLE, .TRUE. ) endif nfields = getNumberOfFields(record, delimiter) if( TABLE_TYPE .eq. 'CASTNET' ) then if( INDEX(record,'SITE_ID').gt.0 .AND. nfields.gt.3 ) then Do i=1,nfields call getField(record, delimiter, i, field) call rmQuots( field ) call LeftTrim(field) if( Trim(field) .eq. 'SITE_ID') siteField = i if( Trim(field) .eq. 'POCODE') pocField = i if( Trim(field) .eq. 'DATEON') sdateField = i if( Trim(field) .eq. 'DATEOFF') edateField = i EndDo EXIT EndIf else if( TABLE_TYPE .eq. 'SEARCH' ) then if( INDEX(record,'SITE_ID').gt.0 .AND. nfields.gt.3 ) then Do i=1,nfields call getField(record, delimiter, i, field) call rmQuots( field ) call LeftTrim(field) if( Trim(field) .eq. 'SITE_ID') siteField = i if( Trim(field) .eq. 'POCODE') pocField = i if( Trim(field) .eq. 'DATEON') sdateField = i if( Trim(field) .eq. 'DATEOFF') edateField = i EndDo EXIT EndIf else if( TABLE_TYPE .eq. 'IMPROVE' ) then if( INDEX(record,'SITE_CODE').gt.0 .AND. nfields.gt.2 ) then Do i=1,nfields call getField(record, delimiter, i, field) call rmQuots( field ) call LeftTrim(field) if( Trim(field) .eq. 'SITE_CODE') siteField = i if( Trim(field) .eq. 'POCODE') pocField = i if( Trim(field) .eq. 'OBS_DATE') sdateField = i EndDo Exit EndIf else if( TABLE_TYPE .eq. 'NADP' ) then if( INDEX(record,'SITEID').gt.0 .AND. nfields.gt.2 ) then Do i=1,nfields call getField(record, delimiter, i, field) call rmQuots( field ) call LeftTrim(field) if( Trim(field) .eq. 'SITEID') siteField = i if( Trim(field) .eq. 'POCODE') pocField = i if( Trim(field).eq.'DATEON' .or. Trim(field).eq.'DATE ON') sdateField = i if( Trim(field).eq.'DATEOFF' .or. Trim(field).eq.'DATE OFF') edateField = i EndDo Exit EndIf else if( TABLE_TYPE .eq. 'AIRMON' ) then if( INDEX(record,'SITE').gt.0 .AND. nfields.gt.4 ) then Do i=1,nfields call getField(record, delimiter, i, field) call rmQuots( field ) call LeftTrim(field) if( Trim(field) .eq. 'SITE') siteField = i if( Trim(field) .eq. 'POCODE') pocField = i if( Trim(field) .eq. 'DATE/TIME ON') sdateField = i if( Trim(field) .eq. 'DATE/TIME OFF') edateField = i EndDo Exit EndIf else if( TABLE_TYPE .eq. 'STN' ) then if( INDEX(record,'SITE').gt.0 .AND. nfields.gt.2 ) then Do i=1,nfields call getField(record, delimiter, i, field) call rmQuots( field ) call LeftTrim(field) if( Trim(field) .eq. 'SITE') siteField = i if( Trim(field) .eq. 'POCODE') pocField = i if( Trim(field) .eq. 'DATE') sdateField = i EndDo Exit EndIf else if( TABLE_TYPE .eq. 'MDN' ) then if( INDEX(record,'SITEID').gt.0 ) then delimiter = ',' ISLOCAL = .FALSE. Do i=1,nfields call getField(record, delimiter, i, field) call rmQuots( field ) call LeftTrim(field) if( Trim(field) .eq. 'SITEID') siteField = i if( Trim(field) .eq. 'POCODE') pocField = i if( Trim(field) .eq. 'DATEON') sdateField = i if( Trim(field) .eq. 'DATEOFF') edateField = i EndDo Exit EndIf else if( TABLE_TYPE .eq. 'MET' ) then if( INDEX(record,'SITE_ID').gt.0 ) then delimiter = ',' ISLOCAL = .TRUE. Do i=1,nfields call getField(record, delimiter, i, field) call rmQuots( field ) call LeftTrim(field) if( Trim(field) .eq. 'SITE_ID') siteField = i if( Trim(field) .eq. 'POCODE') pocField = i if( Trim(field) .eq. 'DATE_TIME') sdateField = i EndDo Exit EndIf else if( TABLE_TYPE .eq. 'DEARS' ) then if( INDEX(record,'PID').gt.0 ) then delimiter = ',' ISLOCAL = .TRUE. Do i=1,nfields call getField(record, delimiter, i, field) call rmQuots( field ) call LeftTrim(field) if( Trim(field) .eq. 'PID') siteField = i if( Trim(field) .eq. 'POCODE') pocField = i if( Trim(field) .eq. 'STARTDATE') sdateField = i EndDo Exit EndIf else if( TABLE_TYPE .eq. 'OUTPUT' ) then if( INDEX(record,'SITEID').gt.0 .AND. nfields.gt.3 ) then Do i=1,nfields call getField(record, delimiter, i, field) call rmQuots( field ) call LeftTrim(field) if( Trim(field) .eq. 'SITEID') siteField = i if( Trim(field) .eq. 'POCODE') pocField = i if( Trim(field) .eq. 'TIME ON') sdateField = i if( Trim(field) .eq. 'TIME OFF') edateField = i EndDo EXIT EndIf else CALL M3ERR( PNAME, 0, 0,'Invalid Table type', .TRUE. ) Exit EndIf EndDo ! check for missing site and date fields if( siteField.le.0 ) then CALL M3ERR( PNAME, 0, 0,'Cannot find Site field in header record', .TRUE. ) endif if( sdateField.le.0 ) then CALL M3ERR( PNAME, 0, 0,'Cannot find Date fields in header record', .TRUE. ) endif C********************************************************************* C* determine field numbers for species variables from header record C********************************************************************* SubPptFld = 0 WET_DEP = .FALSE. Do i=1,NSPECVAR ! use units of first model species for model units if( SPECVARS(i)%MOD_UNITS .eq. '' ) then Call get_units( SPECVARS(i)%MOD_NAME(1), SPECVARS(i)%MOD_UNITS ) Endif ! check for wet deposition operation if( SPECVARS(i)%OP_CODE .eq. 'WD' ) WET_DEP = .TRUE. ! check for null obs_name If(SPECVARS(i)%OBS_NAME(1).eq.'null' .or. SPECVARS(i)%OBS_NAME(1).eq.' ') then SPECVARS(i)%OBS_NUMSPEC = 0 cycle Endif ! match OBS_NAME with header field Do j=nfields,1,-1 call getField(record, delimiter, j, field) call rmQuots( field ) call LeftTrim(field) Do k=1, SPECVARS(i)%OBS_NUMSPEC obsName = SPECVARS(i)%OBS_NAME(k) Call ucase( obsName ) if( Trim(field) .eq. Trim(obsname) ) then SPECVARS(i)%OBS_FIELD(k) = j endif enddo ! if field = "Sub Ppt", set SubPptFld value if( Trim(field) .eq. 'SUB PPT' ) SubPptFld = j Enddo ! verify that all observered names exists Do k=1, SPECVARS(i)%OBS_NUMSPEC if( SPECVARS(i)%OBS_FIELD(k) .eq. 0) then Write(*,'('' Observed Species ['',a,''] not found in header ['',a,'']'')') & Trim(SPECVARS(i)%OBS_NAME(k)), Trim(record) CALL M3ERR( PNAME, 0, 0, 'Observed Speices ['//Trim(SPECVARS(i)%OBS_NAME(k))//'] not found', .TRUE. ) Endif EndDo EndDo if(WET_DEP .and. SubPptFld.eq.0) Then Write(*,'(''Error, WET_DEP requires precip field "Sub Ppt" which was not found'')') CALL M3ERR( PNAME, 0, 0, 'Observed Speices [Sub Ppt] not found', .TRUE. ) Endif C********************************************************************* C* build headers with variable names and units and write to output C********************************************************************* if( TABLE_TYPE .eq. 'OUTPUT' ) then Call bldOPheader(in,out,record) else Call bldRegHeader(out) endif C********************************************************************** C* Allocate memory to store data values for Variables C********************************************************************** Allocate( VARDATA( NSPECVAR ) ) C********************************************************************** C* read each record, get site and time period C********************************************************************** Do While(.true.) Read(in,'(a)', end=200) record if(LEN_TRIM(record).eq.0) CYCLE call rmCommas(record) call getField(record, delimiter, siteField, field1) if ( pocField .gt. 0 ) then call getField(record, delimiter, pocField, field2) else field2 = '1' !use 1 as default parameter occurrence code endif call rmQuots( field1 ) call rmQuots( field2 ) outRecord = trim(field1)//","//trim(field2) siteNo = getSiteNumber( field1, field2 ) if( siteNo .gt. 0 ) Then if( TABLE_TYPE .eq. 'IMPROVE' ) then call getField(record, delimiter, sDateField, DateStr) call rmQuots( DateStr ) startDate = str2Date( DateStr ) startTime = 0 endDate = startDate endTime = 235959 else if( TABLE_TYPE .eq. 'CASTNET' ) then call getField(record, delimiter, sDateField, DateStr) call rmQuots( DateStr ) call getField(DateStr, ' ', 1, dfield) call getField(DateStr, ' ', 2, tfield) startDate = str2Date(dfield) startTime = str2Time(tfield) call getField(record, delimiter, eDateField, DateStr) call rmQuots( DateStr ) call getField(DateStr, ' ', 1, dfield) call getField(DateStr, ' ', 2, tfield) endDate = str2Date(dfield) endTime = str2Time(tfield) else if( TABLE_TYPE .eq. 'SEARCH' ) then call getField(record, delimiter, sDateField, DateStr) call rmQuots( DateStr ) call getField(DateStr, ' ', 1, dfield) call getField(DateStr, ' ', 2, tfield) startDate = str2Date(dfield) startTime = str2Time(tfield) call getField(record, delimiter, eDateField, DateStr) call rmQuots( DateStr ) call getField(DateStr, ' ', 1, dfield) call getField(DateStr, ' ', 2, tfield) endDate = str2Date(dfield) endTime = str2Time(tfield) else if( TABLE_TYPE .eq. 'STN' ) then call getField(record, delimiter, sDateField, DateStr) call rmQuots( DateStr ) startDate = str2Date( DateStr ) startTime = 000000 ! changed from 090000 on 02/24/2006 endDate = startDate endTime = 235959 else if( TABLE_TYPE .eq. 'NADP' ) then call getField(record, delimiter, sDateField, DateStr) call rmQuots( DateStr ) if(index(DateStr, ' ').gt.1 .and. index(DateStr, ':').gt.1) then call getField(DateStr, ' ', 1, dfield) call getField(DateStr, ' ', 2, tfield) startDate = str2Date(dfield) startTime = str2Time(tfield) else startDate = str2Date( DateStr ) startTime = 90001 endif call getField(record, delimiter, eDateField, DateStr) call rmQuots( DateStr ) if(index(DateStr, ' ').gt.1 .and. index(DateStr, ':').gt.1) then call getField(DateStr, ' ', 1, dfield) call getField(DateStr, ' ', 2, tfield) endDate = str2Date(dfield) endTime = str2Time(tfield) else endDate = str2Date( DateStr ) endTime = 90000 endif else if( TABLE_TYPE .eq. 'AIRMON' ) then call getField(record, delimiter, sDateField, DateStr) call rmQuots( DateStr ) if(index(DateStr, ' ').gt.1 .and. index(DateStr, ':').gt.1) then call getField(DateStr, ' ', 1, dfield) call getField(DateStr, ' ', 2, tfield) startDate = str2Date(dfield) startTime = str2Time(tfield) else startDate = str2Date( DateStr ) startTime = 90000 endif call getField(record, delimiter, eDateField, DateStr) call rmQuots( DateStr ) if(index(DateStr, ' ').gt.1 .and. index(DateStr, ':').gt.1) then call getField(DateStr, ' ', 1, dfield) call getField(DateStr, ' ', 2, tfield) endDate = str2Date(dfield) endTime = str2Time(tfield) else endDate = str2Date( DateStr ) endTime = 90000 endif Call Nextime( endDate, endTime, -1 ) else if( TABLE_TYPE .eq. 'MDN' ) then call getField(record, delimiter, sDateField, DateStr) call rmQuots( DateStr ) call getField(DateStr, ' ', 1, dfield) call getField(DateStr, ' ', 2, tfield) startDate = str2Date(dfield) startTime = str2Time(tfield) call getField(record, delimiter, eDateField, DateStr) call rmQuots( DateStr ) call getField(DateStr, ' ', 1, dfield) call getField(DateStr, ' ', 2, tfield) endDate = str2Date(dfield) endTime = str2Time(tfield) else if( TABLE_TYPE .eq. 'MET' ) then call getField(record, delimiter, sDateField, DateStr) call rmQuots( DateStr ) call getField(DateStr, ' ', 1, dfield) call getField(DateStr, ' ', 2, tfield) startDate = str2Date(dfield) startTime = str2Time(tfield) endDate = startDate endTime = startTime CALL NEXTIME( endDate, endTime, 5900 ) else if( TABLE_TYPE .eq. 'DEARS' ) then call getField(record, delimiter, sDateField, DateStr) call rmQuots( DateStr ) startDate = str2Date(DateStr) startTime = 090000 endDate = startDate endTime = startTime CALL NEXTIME( endDate, endTime, 235900 ) else if( TABLE_TYPE .eq. 'OUTPUT' ) then call getField(record, delimiter, sDateField, DateStr) call rmQuots( DateStr ) call getField(DateStr, ' ', 1, dfield) call getField(DateStr, ' ', 2, tfield) startDate = str2Date(dfield) startTime = str2Time(tfield) call getField(record, delimiter, eDateField, DateStr) call rmQuots( DateStr ) call getField(DateStr, ' ', 1, dfield) call getField(DateStr, ' ', 2, tfield) endDate = str2Date(dfield) endTime = str2Time(tfield) else Write(*,'(''Error, Invalid table type:'', a)') TRIM(TABLE_TYPE) Stop Endif ! add state to outRecord field = STATE(siteno) Call LeftTrim(field) outRecord = Trim(outRecord) // ',"' // trim(field) // '"' ! add county to outRecord field = COUNTY(siteno) Call LeftTrim(field) outRecord = Trim(outRecord) // ',"' // trim(field) // '"' ! add elevation to outRecord Write(field,'(f7.0)') ELEV(siteno) Call LeftTrim(field) outRecord = Trim(outRecord) // ',' // trim(field) ! add lat and long fields to outRecord Write(field,'(f12.4)') getLatitude(siteno) Call LeftTrim(field) outRecord = Trim(outRecord) // ',' // trim(field) Write(field,'(f12.4)') getLongitude(siteno) Call LeftTrim(field) outRecord = Trim(outRecord) // ',' // trim(field) ! add cell column and row to outRecord Write(field,'(i5)') COL(siteno) Call LeftTrim(field) outRecord = Trim(outRecord) // ',' // trim(field) Write(field,'(i5)') ROW(siteno) Call LeftTrim(field) outRecord = Trim(outRecord) // ',' // trim(field) ! add date/time fields to outRecord outRecord = Trim(outRecord) // ',' // date2Str(startDate,startTime) outRecord = Trim(outRecord) // ',' // date2Str(endDate,endTime) ! add date/time fields to outRecord in MM,DD,YYYY,HH,SS format outRecord = Trim(outRecord) // ',' // date2Str_csv(startDate,startTime) outRecord = Trim(outRecord) // ',' // date2Str_csv(endDate,endTime) ! adjust time to GMT if ISLOCAL if( ISLOCAL ) then ! adjust timezone for day light saving only if APPLYDLS is true TIMEZONE = TZ(siteNo) if( APPLYDLS .AND. ISDSTIME( startDate ) ) TIMEZONE = TIMEZONE-1 ! adjust time by TIME_SHIFT (default is no shift) TIMEZONE = TIMEZONE + TIME_SHIFT ! adjust starting date and time for timezone CALL NEXTIME( startDate, startTime, 10000*TIMEZONE ) CALL NEXTIME( endDate, endTime, 10000*TIMEZONE ) endif DATACHECK = .TRUE. ! check if site is outside of grid domain if( COL(siteno).eq.0 .or. ROW(siteno).eq.0 ) DATACHECK = .FALSE. ! check if dates are within time window if( START_DATE .gt. 0 ) Then if(SECSDIFF(START_DATE, START_TIME, startDate, startTime).lt.0) & DATACHECK = .FALSE. Endif if( END_DATE .gt. 0 ) Then if(SECSDIFF(END_DATE, END_TIME, startDate, startTime).gt.0) & DATACHECK = .FALSE. Endif if( DATACHECK ) then Call startEndSteps(startDate, startTime, endDate, endTime, istep1, istep2) DATECHECK = .TRUE. if( istep1.lt.0 .or.istep2.lt.0 ) DATECHECK = .FALSE. Endif if( DATACHECK .and. DATECHECK ) then stepsec = TIME2SEC( TIMESTEP ) periodsec = SECSDIFF( startDate, startTime, endDate, endTime ) neededSteps = periodsec / stepsec if( neededSteps .gt. istep2-istep1+1 ) DATACHECK = .FALSE. EndIF ! Read values for each variable and compute it's period value if( DATACHECK ) then VARDATA = -999.0 ! init to missing if( DATECHECK ) then Do i=1,NSPECVAR VARDATA(i) = getSpeciesValue(siteNo, SPECVARS(i), istep1, istep2) EndDo EndIf Endif ! build output record and write to out Table if( DATACHECK ) then ! set flag for zero precip zeroPrecip = .false. if( SubPptFld.gt.0 ) then call getField(record, delimiter, SubPptFld, field) call rmQuots( field ) zeroPrecip = ( Trim(field) .eq. '0' ) Endif Do i=1,NSPECVAR if( SPECVARS(i)%OBS_NUMSPEC .gt. 0 ) Then if( SPECVARS(i)%OP_CODE.eq.'CH' ) Then Call getField(record, delimiter, SPECVARS(i)%OBS_FIELD(1), field) Call rmQuots( field ) Endif if( SPECVARS(i)%OP_CODE.ne.'CH' ) Then Call getObsField(record, delimiter, TABLE_TYPE, SPECVARS(i), fieldvalue) if(fieldvalue.le.-999.0) then field = MISSING_VALUE else field = Real2Str(fieldValue) Endif Endif ! check for WET_DEP operation if(SPECVARS(i)%OP_CODE.eq.'WD') then if( fieldvalue.lt.0.0 ) field = MISSING_VALUE if( fieldvalue.ge.0.0 ) then Call getField(record, delimiter, SubPptFld, field) read(field,'(g16.0)',iostat=status) ppvalue if( status.ne.0 .or. ppvalue.lt.0 ) ppvalue = 0.0 fieldvalue = fieldvalue * ppvalue / 100.0 field = Real2Str(fieldValue) Endif Endif outRecord = Trim(outRecord) // ',' // Trim(field) Endif if( SPECVARS(i)%Mod_NUMSPEC .gt. 0 ) Then field = Real2Str(VARDATA(i)) outRecord = Trim(outRecord) // ',' // Trim(field) Endif EndDo ! print status line to screen Write(*,'(''Writing values for site '',a,'' starting at '',a,'' GMT'')') & TRIM(SITE(siteNo)), DT2STR(startDate, startTime) ! write output record to out table Write(out,'(a)') TRIM(outRecord) EndIf Else Write(*,'(''No site found for site = '',a)') TRIM(field1) !!Write(*,'('' field'',i3,'' in record = '',a)') siteField,TRIM(record) EndIf EndDo 200 continue RETURN 900 write(*,'('' Cannot open input table file ['',a,'']'')') TRIM(IN_TABLE) return 901 write(*,'('' Cannot open output table file ['',a,'']'')') TRIM(OUT_TABLE) return END C**************************************************************************** C routine to build and write header lines for all TABLE_TYPEs != OUTPUT C**************************************************************************** Subroutine bldRegheader(out) USE M3FILES USE SPECIES_DEF USE ENV_VARS ! arguments Integer out ! local variables CHARACTER*(80) obsTitle CHARACTER*(80) modTitle Character*(3200) header1 Character*(3200) header2 Character*(3200) header3 header1 = 'SiteId,POCode,State,County,Elevation,Latitude,Longitude' header1 = Trim(header1) // ',Column,Row,Time On,Time Off' header1 = Trim(header1) // ',SMM,SDD,SYYYY,Shh,Smm,EMM,EDD,EYYYY,Ehh,Emm' header2 = ',,,,(m),(deg),(deg)' header2 = Trim(header2) // ',,,(MM/DD/YYYY hh:mm),(MM/DD/YYYY hh:mm)' header2 = Trim(header2) // ',MM,DD,YYYY,hh,mm,MM,DD,YYYY,hh,mm' header3 = ',,,,,,' header3 = Trim(header3) // ',,,,' header3 = Trim(header3) // ',,,,,,,,,,' Do i=1,NSPECVAR if( SPECVARS(i)%OBS_NUMSPEC .gt. 0 ) Then obsTitle = SPECVARS(i)%OBS_Expression header1 = Trim(header1) // ',' // TRIM(obsTitle) // '_ob' header2 = Trim(header2) // ',' // TRIM(SPECVARS(i)%OBS_UNITS) header3 = Trim(header3) // ',' // 'Observed' Endif if( SPECVARS(i)%Mod_NUMSPEC .gt. 0 ) Then modTitle = SPECVARS(i)%MOD_EXPRESSION header1 = Trim(header1) // ',' // TRIM(modTitle) // '_mod' header2 = Trim(header2) // ',' // TRIM(SPECVARS(i)%MOD_UNITS) header3 = Trim(header3) // ',' // 'Modeled' Endif EndDo Write(out,'(''Observed values read from file:'',a)') TRIM(IN_TABLE) Write(out,'(''Modeled values read from file:'',a,/)') TRIM(M3FILE) Write(out,'(a)') TRIM(header2) Write(out,'(a)') TRIM(header3) Write(out,'(a)') TRIM(header1) return end C**************************************************************************** C routine to build and write header lines for TABLE_TYPE OUTPUT C**************************************************************************** Subroutine bldOPheader(in,out,record) USE M3FILES USE SPECIES_DEF USE ENV_VARS ! arguments Integer in, out Character*(*) record ! local variables CHARACTER*(80) obsTitle CHARACTER*(80) modTitle Character*(3200) header1 Character*(3200) header2 Character*(3200) header3 Character*(3200) unitsRec Character*(3200) sourceRec Character*(80) field TYPE ( SPEC_VAR ) newSpecs(50) INTEGER nspecs header1 = 'SiteId,POCode,Latitude,Longitude,Column,Row,Time On,Time Off' header1 = Trim(header1) // ',SMM,SDD,SYYYY,Shh,Smm,EMM,EDD,EYYYY,Ehh,Emm' header2 = ',,(deg),(deg),,,(MM/DD/YYYY hh:mm),(MM/DD/YYYY hh:mm)' header2 = Trim(header2) // ',MM,DD,YYYY,hh,mm,MM,DD,YYYY,hh,mm' header3 = ',,,,,,,' header3 = Trim(header3) // ',,,,,,,,,,' ! read units header line read(in,'(a)') unitsRec ! read observed, modeled line read(in,'(a)') sourceRec ! build new set of species variables nspecs = 0 Do i=1,NSPECVAR nspecs = nspecs + 1 newSpecs(nspecs) = SPECVARS(i) ! check for no old modeled field call getField(sourceRec, ',', SPECVARS(i)%OBS_FIELD(1)+1, field) if( field.ne.'Modeled' ) CYCLE ! remove mod field from spec and add new spec using old modeled and new modeled newSpecs(nspecs)%MOD_NUMSPEC = 0 nspecs = nspecs + 1 call getField(record, ',', SPECVARS(i)%OBS_FIELD(1)+1, field) newSpecs(nspecs) = SPECVARS(i) newSpecs(nspecs)%OBS_NUMSPEC = 1 newSpecs(nspecs)%OBS_EXPRESSION = field newSpecs(nspecs)%OBS_NAME(1) = field newSpecs(nspecs)%OBS_FIELD(1) = SPECVARS(i)%OBS_FIELD(1)+1 newSpecs(nspecs)%OBS_FACTOR = 1.0 call getField(unitsRec, ',', SPECVARS(i)%OBS_FIELD(1)+1, field) newSpecs(nspecs)%OBS_UNITS = field enddo ! replace SPECVARS with new specs NSPECVAR = nspecs Do i=1,nspecs SPECVARS(i) = newSpecs(i) enddo ! build header records with new species Do i=1,NSPECVAR if( SPECVARS(i)%OBS_NUMSPEC .gt. 0 ) Then obsTitle = SPECVARS(i)%OBS_Expression call getField(sourceRec, ',', SPECVARS(i)%OBS_FIELD(1), field) if( field.eq.'Modeled' ) field = trim(field) // '(A)' header1 = Trim(header1) // ',' // TRIM(obsTitle) // '_ob' header2 = Trim(header2) // ',' // TRIM(SPECVARS(i)%OBS_UNITS) header3 = Trim(header3) // ',' // trim(field) Endif if( SPECVARS(i)%Mod_NUMSPEC .gt. 0 ) Then modTitle = SPECVARS(i)%MOD_EXPRESSION header1 = Trim(header1) // ',' // TRIM(modTitle) // '_mod' header2 = Trim(header2) // ',' // TRIM(SPECVARS(i)%MOD_UNITS) header3 = Trim(header3) // ',' // 'Modeled(B)' Endif EndDo Write(out,'(''Observed values read from file:'',a)') TRIM(IN_TABLE) Write(out,'(''Modeled values read from file:'',a,/)') TRIM(M3FILE) Write(out,'(a)') TRIM(header2) Write(out,'(a)') TRIM(header3) Write(out,'(a)') TRIM(header1) return end C**************************************************************************** C routine to read and compute observed values from input record C**************************************************************************** Subroutine getObsField(record, delimiter, TABLE_TYPE, VAR, resultValue) USE SPECIES_DEF ! arguments Character*(*) record Character*(*) delimiter Character*(*) TABLE_TYPE TYPE (SPEC_VAR) VAR Real resultValue ! local variables Integer n, status Real fieldValue Character*(32) field Character*(32) flag resultValue = 0 Do n=1,VAR%OBS_NUMSPEC Call getField(record, delimiter, VAR%OBS_FIELD(n), field) Call rmQuots( field ) ! check for a code flag field following data field if(TABLE_TYPE .eq. 'CASTNET' .or. TABLE_TYPE .eq. 'SEARCH') then Call getField(record, delimiter, VAR%OBS_FIELD(n)+1, flag) Call rmQuots( flag ) if( INDEX('#IJKLMNBCDFP', flag(1:1)) .gt. 0 ) field = ' ' endif ! check for a code flag field following data field if(TABLE_TYPE .eq. 'MET') then Call getField(record, delimiter, VAR%OBS_FIELD(n)+1, flag) Call rmQuots( flag ) if( LEN_TRIM(flag).eq.1 .and. INDEX('BCDFIMP',flag(1:1)).gt.0 ) field = ' ' endif ! read fieldValue and check if missing read(field,'(g16.0)',iostat=status) fieldValue if(status.ne.0.or.TRIM(field).eq.' '.or.TRIM(field).eq.'.'.or.fieldvalue.le.-999.0) then if( .NOT.VAR%OBS_OPTNAL(n) ) then resultValue = -999.0 Return endif fieldValue = 0.0 ! if missing and optional, set to zero Endif ! missing condition ! update resultValue resultValue = resultValue + VAR%OBS_FACTOR(n) * fieldValue Enddo return End Subroutine getObsField C**************************************************************************** C routine to convert date string "yyyy-mm-dd" to an Integer value yyyyDDD C**************************************************************************** Integer Function str2Date( dString ) result(IDATE) Character*(*) dString C..EXTERNAL FUNCTIONS: INTEGER JULIAN Character*10 monStr Character*10 dayStr Character*10 yrStr Integer mo, dy, yr, jday Integer i,nchar ! remove quote marks Call rmQuots( dString ) if( index(dString,'-') .gt. 0 ) then ! yyyy-mm-dd Call getField(dString,'-',1,yrStr) Call getField(dString,'-',2,monStr) Call getField(dString,'-',3,dayStr) elseif( index(dString,'/') .gt. 0 ) then ! mm/dd/yyyy Call getField(dString,'/',3,yrStr) Call getField(dString,'/',1,monStr) Call getField(dString,'/',2,dayStr) else !yyyymmdd yrStr = dString(1:4) monStr = dString(5:6) dayStr = dString(7:8) Endif Read(monStr,'(i10)',err=500) mo Read(dayStr,'(i10)',err=500) dy Read(yrStr,'(i10)',err=500) yr ! check for 2 digit year if( yr.gt.0 .and. yr.lt.100 ) Then if( yr.ge.50 ) yr = yr + 1900 if( yr.lt.50 ) yr = yr + 2000 Endif jday = JULIAN( yr, mo, dy ) IDATE = 1000*yr + jday Return 500 Write(*,'(''Error converting date string '',a)') TRIM(dString) IDATE = 9999999 Return End Function str2Date C**************************************************************************** C routine to convert time string "HH:MM" or "HH:MM:SS" to an Integer value HHMMSS C**************************************************************************** Integer Function str2Time( timeStr ) result(ITIME) Character*(*) timeStr Character*10 tString Character*10 hhStr Character*10 mmStr Character*10 ssStr Integer hh, mm, ss Integer i,nchar nchar = min(LEN(timeStr), 10 ) Do i=1,nchar tString(i:i) = timeStr(i:i) EndDo Call getField(tString,':',1,hhStr) Call getField(tString,':',2,mmStr) Call getField(tString,':',3,ssStr) Read(hhStr,'(i10)',err=500) hh if( hh.gt.24 ) go to 500 Read(mmStr,'(i2)',err=501) mm if( mm.lt.0 .or. mm.gt.59 ) go to 501 Read(ssStr,'(i2)',err=502) ss if( ss.lt.0 .or. ss.gt.59 ) go to 502 ITIME = 10000 * hh + 100 * mm + ss Return 500 Write(*,'(''Error converting hour string '',a)') hhStr ITIME = 0 Return 501 Write(*,'(''Error converting minute string '',a)') mmStr ITIME = 0 Return 502 Write(*,'(''Error converting seconds string '',a)') ssStr ITIME = 0 Return End Function str2Time C**************************************************************************** C routine to convert date and time to string as "mm/dd/yyyy HH:MM" C**************************************************************************** Character*16 Function date2Str( date, time ) result(dateStr) Integer date, time C.. local variables Integer month, day, year, hour, minutes call DayMon( date, month, day ) year = date/1000 hour = time/10000 minutes = (time - 10000*hour)/100 write(dateStr,'(i2.2,''/'',i2.2,''/'',i4.4,'' '',i2.2,'':'',i2.2)') & month,day,year,hour,minutes return End Function date2Str C**************************************************************************** C routine to convert date and time to string as "MM,DD,YYYY,HH,MM" C**************************************************************************** Character*16 Function date2Str_csv( date, time ) result(dateStr) Integer date, time C.. local variables Integer month, day, year, hour, minutes call DayMon( date, month, day ) year = date/1000 hour = time/10000 minutes = (time - 10000*hour)/100 write(dateStr,'(i2.2,'','',i2.2,'','',i4.4,'','',i2.2,'','',i2.2)') & month,day,year,hour,minutes return End Function date2Str_csv C**************************************************************************** C routine to find the starting and ending time steps C**************************************************************************** Subroutine startEndSteps(startDate, startTime, endDate, endTime, istep1, istep2) USE TIME_STEP INTEGER startDate, startTime, endDate, endTime, istep1, istep2 INTEGER I istep1 = -1 istep2 = -1 ! find starting step Do I=1,NSTEPS if( STEP_DATE(I).gt.startDate ) istep1=I if( STEP_DATE(I).eq.startDate .AND. STEP_TIME(I).ge.startTime ) istep1=I if(istep1.gt.0) EXIT EndDo ! if starting point not found return -1's if(istep1.lt.0) return ! find ending step Do I=istep1,NSTEPS if( STEP_DATE(I).gt.endDate ) EXIT if( STEP_DATE(I).eq.endDate .AND. STEP_TIME(I).gt.endTime ) EXIT istep2=I EndDo Return End Subroutine startEndSteps C**************************************************************************** C routine to get values for species from ioapi files for time period C**************************************************************************** Real Function getSpeciesValue(siteNo, Species, istep1, istep2) & result(value) USE ENV_VARS USE SITE_DATA USE SPECIES_DEF IMPLICIT NONE C..ARGUMENTS: INTEGER siteNo TYPE ( SPEC_VAR ) Species INTEGER istep1, istep2 C..Local variables Real, Allocatable :: specValues(:) Real, Allocatable :: RTValues(:) Real*8 :: RTtotal Real*8 specValue1 Real*8 specValue2 Character*16 :: PrecipUnits Integer nvalues Integer n, i, nm, ns C.. allocate array to store values read from ioapi files nvalues = istep2 - istep1 + 1 Allocate( specValues(nvalues) ) C.. if OP_CODE.eq.'WC', then read RT values for volumn-weighted calculations if( Species%OP_CODE.eq.'WC' ) then Allocate( RTValues(nvalues) ) Call getValues(siteNo, PRECIP_FIELD, istep1, istep2, RTValues) RTtotal = 0.0 Do i=1,nvalues if (RTValues(i) .ge. 0.) then RTtotal = RTtotal + RTValues(i) endif EndDo ! if units of Precip == mm, adjust total to cm Call get_units( PRECIP_FIELD, PrecipUnits ) if( PrecipUnits .eq. 'mm' ) then RTtotal = RTtotal /10.0 EndIf Endif C.. initialize specValue1 (sum over time) and specValue2 (sum over specs) to zero specValue1 = 0.0 specValue2 = 0.0 ns = 0 C.. read each model species from file and update values Do n=1,species%Mod_NUMSPEC Call getValues(siteNo, species%MOD_NAME(n), istep1, istep2, specValues) nm = 0 specValue1 = 0.0 ! update values array Do i=1,nvalues if ( specValues(i) .ne. -999. ) then nm = nm + 1 ! adjust value by factor specValues(i) = specValues(i) * species%MOD_FACTOR(n) ! perform operation defined by Species%OP_CODE if( Species%OP_CODE .eq. 'AV' ) then specValues(i) = specValues(i) ElseIf( Species%OP_CODE .eq. 'AC' ) then specValues(i) = specValues(i) ElseIf( Species%OP_CODE .eq. 'WD' ) then specValues(i) = specValues(i) ElseIf( Species%OP_CODE .eq. 'WC' ) then if( RTtotal.gt.0.001 ) Then specValues(i) = specValues(i) * 10.0 / RTtotal Else specValues(i) = 0.0 Endif Endif specValue1 = specValue1 + specValues(i) endif !specValues(i) not missing EndDo !loop over time steps if ( nm .ge. 1 ) then if( Species%OP_CODE .eq. 'AV' ) then specValue1 = specValue1 / float(nm) endif else specValue1 = -999. endif if (specValue1 .ne. -999.) then specValue2 = specValue2 + specValue1 ns = ns + 1 endif EndDo !loop over species if (ns .eq. 0 ) specValue2 = -999. !no non-missing values found for any species value = specValue2 Return End Function getSpeciesValue C**************************************************************************** C routine to read values from files at site for variable for time period C**************************************************************************** SUBROUTINE getValues(siteNo, VARNAME, istep1, istep2, VALUES) USE M3FILES USE ENV_VARS USE GRID_DATA USE TIME_STEP USE SITE_DATA USE SPECIES_DEF USE M3UTILIO IMPLICIT NONE C..ARGUMENTS: INTEGER siteNo Character*(*) VARNAME INTEGER istep1, istep2 REAL VALUES(*) C..SCRATCH LOCAL VARIABLES: INTEGER N, I, K, KK, S, ALLOCSTAT CHARACTER*16 PNAME ! Program Name CHARACTER*80 MSG ! Error message REAL, Allocatable, Save :: GRIDVAL(:,:) REAL, Allocatable, Save :: SITESPECVAL(:,:,:) INTEGER, Save :: NMODSPEC_ALL CHARACTER(len=16), Save :: MODSPEC_ALL(100) LOGICAL, Save :: LFIRST LOGICAL, Save :: LFAST DATA LFIRST / .true. / DATA PNAME / 'SITE_EXTRACT' / ! on first time called, allocate memory for GRIDVAL array if ( LFIRST ) then Allocate ( GRIDVAL( M3GRID % NCOLS, M3GRID % NROWS ) ) LFIRST = .false. ! first, need to build a masterlist of all needed model species ! the master list is stored in MODSPEC_ALL ! these species are then read in for each site and time step ! and stored in SITESPECVAL NMODSPEC_ALL = 0 do n = 1, 100 !initialize the array of model species to blank MODSPEC_ALL(n) = ' ' enddo !n do n = 1, NSPECVAR !total number of species expressions from module SPECIES_DEF do k = 1, SPECVARS(n)%MOD_NUMSPEC !number of model species for this expression if (NMODSPEC_ALL .eq. 0) then !no elements in master list yet NMODSPEC_ALL = NMODSPEC_ALL + 1 MODSPEC_ALL(NMODSPEC_ALL) = SPECVARS(n)%MOD_NAME(k)(1:16) else if (INDEX1 (SPECVARS(n)%MOD_NAME(k)(1:16), NMODSPEC_ALL, & MODSPEC_ALL) .eq. 0) then !species not found, add to master list NMODSPEC_ALL = NMODSPEC_ALL + 1 MODSPEC_ALL(NMODSPEC_ALL) = SPECVARS(n)%MOD_NAME(k)(1:16) endif endif enddo !k enddo !n c try to add the precipitation variable to the list if available c in file and not already part of the master list IF ( INDEX1 (PRECIP_FIELD(1:16), NMODSPEC_ALL, & MODSPEC_ALL) .eq. 0) THEN !precip variable not found, check in file IF ( DESC3( M3_FLNAME( 1 ) ) ) THEN IF (INDEX1 (PRECIP_FIELD(1:16), NVARS3D, & VNAME3D) .ne. 0) THEN !precip variable found, add to master list NMODSPEC_ALL = NMODSPEC_ALL + 1 MODSPEC_ALL(NMODSPEC_ALL) = PRECIP_FIELD(1:16) ENDIF ENDIF ENDIF Write(*,'(''master list of required model species:'')') do k = 1, NMODSPEC_ALL Write(*,'(i0,1x,a)') k,MODSPEC_ALL(k) enddo !k Allocate ( SITESPECVAL( NSITES, NSTEPS , NMODSPEC_ALL ), * STAT = ALLOCSTAT) if ( ALLOCSTAT .eq. 0 ) then !enough memory for fast approach lfast = .true. Write(*,'(''enough memory, using data prefetch approach'')') Write(*,'(''reading model values for all sites and time steps'')') SITESPECVAL = -999. do N = 1, NSTEPS !number of time steps across all model files from module_tstep Write(*,'(''Reading model data for '',i0,1x,i0)') & STEP_DATE(N), STEP_TIME(N) do K = 1, NMODSPEC_ALL IF( .NOT. READ3( M3_FLNAME(STEP_FILE(N)), MODSPEC_ALL (k), & 1, STEP_DATE(N), & STEP_TIME(N), GRIDVAL ) ) THEN MSG = 'Could not read input Models-3 file ' // M3_FLNAME(STEP_FILE(N)) CALL M3ERR( PNAME, STEP_DATE(N), STEP_TIME(N), MSG, .FALSE. ) ELSE do S = 1, NSITES if ( ( ROW(S) .ne. 0 ) .and. ( COL(S) .ne. 0 ) ) then SITESPECVAL(S,N,K) = GRIDVAL( COL(S), ROW(S) ) endif ! site within domain enddo !S ENDIF enddo !K enddo !N Write(*,'(''finished reading model values'')') else ! not enough memory for fast approach lfast = .false. Write(*,'(''not enough memory, not using data prefetch approach'')') endif EndIf !Lfirst c return the values for argument VARNAME at site siteno c between istep1 and istep2 c use fast or slow approach depending on memory if (lfast) then !enough memory for fast approach k = INDEX1 (VARNAME(1:16), NMODSPEC_ALL, MODSPEC_ALL) ! loop to read each value in time period I = 0 Do N=istep1, istep2 I = I + 1 VALUES(I) = SITESPECVAL(siteno,n,k) enddo ! N else !not enough memory for fast approach, use old approach ! loop to read each value in time period I = 0 Do N=istep1, istep2 I = I + 1 IF( .NOT. READ3( M3_FLNAME(STEP_FILE(N)), VARNAME, 1, STEP_DATE(N), & STEP_TIME(N), GRIDVAL ) ) THEN MSG = 'Could not read input Models-3 file ' // M3_FLNAME(STEP_FILE(N)) CALL M3ERR( PNAME, STEP_DATE(N), STEP_TIME(N), MSG, .FALSE. ) GRIDVAL = -999. ENDIF VALUES(I) = GRIDVAL( COL(siteNo), ROW(siteNo) ) EndDo endif Return End SUBROUTINE getValues C**************************************************************************** C routine to convert real to string C**************************************************************************** Character*16 Function real2Str( value ) result(realStr) IMPLICIT NONE ! argument Real value ! local variables Character*16 MISSING_VALUE Character*80 record Integer status MISSING_VALUE = '-999' if( value.gt.-999.001 .AND. value.lt.-998.999 ) then realStr = MISSING_VALUE Call LeftTrim(realStr) return endif Write(record,'(E16.5)',iostat=status) value Call LeftTrim(record) realStr = record return End Function real2Str ================================================ FILE: POST/sitecmp/src/sitecmp.F ================================================ !-----------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !-----------------------------------------------------------------------! ! RCS file, release, date & time of last delta, author, state, [and locker] ! $Header: /home/sjr/cvs2git/TOOLS/src/sitecmp/sitecmp.F,v 1.4 2011/10/21 14:41:34 sjr Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% PROGRAM sitecmp C********************************************************************** C C PROGRAM: To compare model concentrations at an observed site C C C********************************************************************** USE M3FILES USE ENV_VARS USE GRID_DATA USE TIME_STEP USE SITE_DATA USE SPECIES_DEF USE M3UTILIO IMPLICIT NONE C..ARGUMENTS: C..PARAMETERS: None C..EXTERNAL FUNCTIONS: None C..SAVED LOCAL VARIABLES: None C..SCRATCH LOCAL VARIABLES: CHARACTER*16 PNAME ! Program Name CHARACTER*80 MSG ! Error message CHARACTER*5 Version ! Version number INTEGER N ! Loop index C********************************************************************** DATA PNAME / 'sitecmp' / DATA Version / '1.0' / C... write program name and version number WRITE( LOGUNIT, 92020 ) & '>>----> Program ' // TRIM(PNAME) // ' (Version ' // TRIM(Version) // ') <----<<' ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Get the Models-3 file(s) to process and the other environment c variables ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc CALL OPEN_M3FILES Call GET_SPECS CALL GET_ENVS ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Check the file(s) for consistency and make sure the requested c species is on the file(s) ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc CALL CK_M3FLS() ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Get the grid definition and the tsteps from the M3 files ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc CALL GET_M3GRID CALL GET_TSTEPS ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Get the site data ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc CALL FL_TYP1 CALL SET_SITE_LOC ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Call the routine to extract the data and generate the output file ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc CALL PROCESS WRITE( LOGUNIT, 92020 ) & '>>----> Program ' // TRIM(PNAME) // ' completed successfully <----<<' CALL EXIT( 0 ) C****************** FORMAT STATEMENTS ****************************** 92020 FORMAT( //5X, A, // ) END ================================================ FILE: POST/sitecmp_dailyo3/README.md ================================================ sitecmp_dailyo3 ======== This Fortran program generates a csv (comma separated values) file that compares various daily ozone metrics computed from hourly CMAQ generated and observed ozone concentrations. The metrics included in the output file are daily maximum 1-hr ozone concentrations, daily maximum 1-hr ozone concentrations in the nine cells surrounding a monitor, time of occurrence of daily maximum 1-hr ozone concentrations, daily maximum 8-hr ozone concentrations, daily maximum 8-hr ozone concentrations in the nine cells surrounding a monitor, time of occurrence of daily maximum 8-hr ozone concentrations, the daily W126 ozone value, and the daily SUM06 ozone value. ## Run Time Environment variables used: ``` M3_FILE_# IOAPI input file(s) containing hourly modeled ozone values. The maximum number of IOAPI files is set to be one less than the global IOAPI parameter MXFILE3. Since this parameter is currently set to 64 (https://www.cmascenter.org/ioapi/documentation/all_versions/html/TUTORIAL.html), the maximum number of IOAPI input files is 63. [Note: Supported map projections are Lambert conformal, polar stereographic, and lat/lon. If an ioapi file is supplied that has a projection not in this list the program will stop with an error message.] SITE_FILE csv-formatted input file containing the station ID, latitude, longitude, and optionally GMT offset, state, county, and elevation for each monitor. The column headings for the required variables need to be stat_id, lat, and lon. The column headings for the optional variables (if present) need to be gmt_offset, state, county, and elevation. The column headings are case insensitve and the order of the columns does not matter. For legacy purposes, SITE_FILE can also be a tab delimited file with no header and three or four columns that contains site information for each monitor in the following fixed order: site-id, longitude, latitude, and optionally time zone offset between local time and GMT IN_TABLE input file containing hourly observed ozone data (comma delimited with header). The file can contain columns with species other than ozone, these will be ignored by sitecmp_dailyo3 OBS_SPECIES name of the ozone species in the header line of IN_TABLE (default "O3" for AQS; use "OZONE" for CASTNET) OZONE comma separated string with expression and units for model ozone in M3_FILE_n, i.e. "[Mod_expression], [Mod_unit]" [Mod_expression] format: [factor1]*Mod_name1 [+][-] [factor2]*Mod_name2 ... [Mod_unit] is used in OUT_TABLE for the daily maximum 1-hr and 8-hr ozone metrics Example: setenv OZONE "1000*O3,ppbV" OBS_FACTOR conversion factor needed to convert OBS_SPECIES from IN_TABLE to [Mod_unit] specified in OZONE (default 1) OUT_TABLE file for output data with columns of paired observed and modeled daily ozone metrics ``` ## Run Time Environment Variables (not required): ``` START_DATE starting date of time period to process (YYYYJJJ) START_TIME starting time of time period to process (HHMMSS) END_DATE ending date of time period to process (YYYYJJJ) END_TIME ending time of time period to process (HHMMSS) PARTIAL_DAY start and end hours for partial day calculations (HH,HH). Leave unset/blank for full day calculations. (default '') Example: setenv PARTIAL_DAY "10,17" APPLY_DLS apply daylight savings time (default N) HOURS_8HRMAX Number of 8hr values to use when computing daily maximum 8hr ozone. Allowed values are 24 (use all 8-hr averages with starting hours from 0 - 23 hr local time) and 17 (use only the 17 8-hr averages with starting hours from 7 - 23 hr local time) (default is 24) TIME_SHIFT number of hours to add when retrieving time steps from M3_FILE_n files during processing. This should only be non-zero if the M3_FILE_n files were pre-processed with a utility like m3tshift (default 0) QA_FLAG_CHECK does IN_TABLE include a QA flag for ozone values, and should it be used? (Default N because not present in AQS data. Should set to Y for CASTNET) QA_FLAG_HEADER if QA_FLAG_CHECK is Y, name of the ozone QA flag in the header line of IN_TABLE (default "OZONE_F" to correspond to CASTNET data) QA_FLAG_VALUES if QA_FLAG_CHECK is Y, string composed of single-character QA flags that should be treated as missing values (default "BCDFIMP" to correspond to CASTNET data) MISSING string to indicate missing output data values (default "m") IOAPI_ISPH projection sphere type (use type #20 to match WRF/CMAQ)(IOAPI default 8) LAMBXY include x/y projection values for each site in OUT_TABLE (default N) ``` ## Run Time File formats: ``` SITE_FILE - csv-formatted input file containing the station ID, latitude, longitude, and optionally GMT offset, state, county, and elevation for each monitor. The column headings for the required variables need to be stat_id, lat, and lon. The column headings for the optional variables (if present) need to be gmt_offset, state, county, and elevation. The column headings are case insensitve and the order of the columns does not matter. For legacy purposes, SITE_FILE can also be a tab delimited file with no header and three or four columns that contains site information for each monitor in the following fixed order: site-id, longitude, latitude, and optionally time zone offset between local time and GMT M3_FILE_n - IOAPI file containing hourly modeled ozone data (n=1->12) IN_TABLE - text (csv) file containing observed hourly ozone values in CASTNET table type format CASTNET - site field: "Site_id" starting date: "DateOn" ("YYYY-MM-DD hh:mm:ss") ending date: "DateOff" ("YYYY-MM-DD hh:mm:ss") OUT_TABLE - output (csv) text file containing columns of paired observed and modeled values ``` ## Compile sitecmp_dailyo3 source code: Execute the build script to compile sitecmp_dailyo3: ``` cd $CMAQ_HOME/POST/sitecmp_dailyo3/scripts ./bldit_sitecmp_dailyo3.csh [compiler] [version] |& tee build_sitecmp_dailyo3.log ``` ## Run sitecmp_dailyo3: Edit the sample run script (run.sitecmp_dailyo3), then run: ``` ./run.sitecmp_dailyo3|& tee sitecmp_dailyo3.log ``` Check the log file to ensure complete and correct execution without errors. Sample run scripts has been provided for matching model data to ozone observations from AQS and CASTNET. The formatted observation data files needed for running the sitecmp_dailyo3 utility are available starting in 2000 from the CMAS Data Warehouse Google Drive: [North America Air Quaility Observation Files](https://drive.google.com/drive/folders/1QUlUXnHXvXz9qwePi5APzzHkiH5GWACw?usp=drive_link) ================================================ FILE: POST/sitecmp_dailyo3/scripts/bldit_sitecmp_dailyo3.csh ================================================ #! /bin/csh -f # ==================== SITECMP_DAILYO3v5.5.X Build Script ============# # Usage: bldit_sitecmp_dailyo3.csh >&! bldit_sitecmp_dailyo3.log # # Requirements: I/O API & netCDF libraries; a Fortran compiler # # # # To report problems or request help with this script/program: # # http://www.cmascenter.org # # =================================================================== # # ======================================================================= #> Preliminary error checking and environment configuration # ======================================================================= #> Check that the host system is Linux-based set BLD_OS = `uname -s` if ($BLD_OS != 'Linux') then echo " $BLD_OS -> wrong bldit script for host!" exit 1 endif #> Set Compiler Identity by User Input: Options -> intel | pgi | gcc if ( $#argv == 1 ) then setenv compiler $argv[1] setenv compilerVrsn Empty else if ( $#argv == 2 ) then #> Compiler Name and Version have been provided setenv compiler $1 setenv compilerVrsn $2 else echo "usage: $0 " echo " where is intel, pgi or gcc" exit(2) endif #> Source the config.cmaq file to set the build environment cd ../../.. source ./config_cmaq.csh #> Source Code Repository setenv REPOROOT ${CMAQ_REPO}/POST/sitecmp_dailyo3 #> location of the source code for SITECMP_DAILYO3 #=============================================================================== #> Begin User Input Section #=============================================================================== #> User choices: working directory and application ID set VRSN = v55 #> model version set EXEC = sitecmp_dailyo3_${VRSN}.exe #> executable name for this application set CFG = sitecmp_dailyo3_${VRSN}.cfg #> BLDMAKE configuration file name setenv BLDER ${CMAQ_HOME}/UTIL/bldmake/bldmake_${compilerString}.exe #> location of makefile builder executable #> user choice: copy source files set CopySrc #> copy the source files into the BLD directory #set MakeFileOnly # builds a Makefile to make the model, but does not compile - # comment out to also compile the model (default if not set) # set CompileBLDMAKE #> Recompile the BLDMAKE utility from source #> comment out to use an existing BLDMAKE executable set ModDriver = src #> SITECMP_DAILYO3 Modules #============================================================================================ #> Computing System Configuration: #> Most of these settings are done in config.cmaq #============================================================================================ #> Set full path of Fortran 90 compiler setenv FC ${myFC} set FP = $FC #> Set IO/API version set IOAPI = ioapi_3.1 #> Set compiler flags set FSTD = "${myFSTD}" set DBG = "${myDBG}" setenv F_FLAGS "${myFFLAGS}" set F90_FLAGS = "${myFRFLAGS}" set CPP_FLAGS = "" #> Fortran Preprocessor Flags set LINK_FLAGS = "${myLINK_FLAG}" #> Link Flags set LIB2 = "${ioapi_lib}" #============================================================================================ #> Set up the sitecmp_dailyo3 build directory under the Tools directory #> for checking out and compiling source code #============================================================================================ set Bld = ${CMAQ_HOME}/POST/sitecmp_dailyo3/scripts/BLD_sitecmp_dailyo3_${VRSN}_${compilerString} if ( ! -e "$Bld" ) then mkdir -pv $Bld else if ( ! -d "$Bld" ) then echo " *** target exists, but not a directory ***" exit 1 endif endif cd $Bld #> Check for previous run if ( -e "$Bld/${CFG}" ) then echo " >>> previous ${CFG} exists, re-naming to ${CFG}.old <<<" mv $Bld/${CFG} $Bld/${CFG}.old endif #============================================================================================ #> Make the config file #============================================================================================ set Cfile = ${Bld}/$CFG set quote = '"' echo > $Cfile echo "model $EXEC;" >> $Cfile echo >> $Cfile echo "repo $REPOROOT;" >> $Cfile echo >> $Cfile echo "lib_base ${CMAQ_LIB};" >> $Cfile echo >> $Cfile echo "lib_1 ioapi/lib;" >> $Cfile echo >> $Cfile echo "lib_2 ioapi/include_files;" >> $Cfile echo >> $Cfile echo "lib_3 netcdf/include;" >> $Cfile echo >> $Cfile echo "lib_4 ioapi/lib;" >> $Cfile echo >> $Cfile echo "lib_5 netcdff/include;" >> $Cfile echo >> $Cfile set text = "$quote$CPP_FLAGS$quote;" echo "cpp_flags $text" >> $Cfile echo >> $Cfile echo "f_compiler $FC;" >> $Cfile echo >> $Cfile echo "fstd $quote$FSTD$quote;" >> $Cfile echo >> $Cfile echo "dbg $quote$DBG$quote;" >> $Cfile echo >> $Cfile echo "f_flags $quote$F_FLAGS$quote;" >> $Cfile echo >> $Cfile echo "f90_flags $quote$F90_FLAGS$quote;" >> $Cfile echo >> $Cfile echo "link_flags $quote$LINK_FLAGS$quote;" >> $Cfile echo >> $Cfile #echo "libraries $quote$LIBS$quote;" >> $Cfile echo "ioapi $quote$LIB2$quote;" >> $Cfile echo >> $Cfile echo "netcdf $quote$netcdf_lib$quote;" >> $Cfile echo >> $Cfile echo "netcdff $quote$netcdff_lib$quote;" >> $Cfile set text = "sitecmp_dailyo3" echo "// options are" $text >> $Cfile echo "Module ${ModDriver};" >> $Cfile echo >> $Cfile #============================================================================================ #> Use BLDMAKE to create the Makefile and model executable if desired #============================================================================================ unalias mv rm #> Recompile BLDMAKE from source if requested or if it does not exist if ( $?CompileBLDMAKE || ! -f $BLDER ) then cd ${CMAQ_REPO}/UTIL/bldmake/scripts ./bldit_bldmake.csh endif #> Relocate to the BLD_* directory cd $Bld #> Set serial options for BLDMAKE execution set Blder = "$BLDER -serial -verbose" #> Run BLDMAKE Utility if ( $?MakeFileOnly ) then #> Just create the Makefile if ( $?CopySrc ) then $Blder -makefo $Cfile else $Blder -makefo -git_local $Cfile endif else # Also compile the model if ( $?CopySrc ) then $Blder $Cfile else $Blder -git_local $Cfile endif endif #> Save Makefile with Compiler-dependent name and create symbolic #> link back to generic name. mv Makefile Makefile.$compilerString if ( -e Makefile.$compilerString && -e Makefile ) rm Makefile ln -s Makefile.$compilerString Makefile #> Check for error during makefile generation if ( $status != 0 ) then echo " *** failure in $Blder ***" exit 1 endif exit ================================================ FILE: POST/sitecmp_dailyo3/scripts/run_sitecmp_dailyo3_AQS.csh ================================================ #! /bin/csh -f # ===================== SITECMP_DAILYO3_v5.5.X Run Script =========== # Usage: run_sitecmp_dailyo3_AQS.csh >&! sitecmp_dailyo3_AQS.log & # # To report problems or request help with this script/program: # http://www.epa.gov/cmaq (EPA CMAQ Website) # http://www.cmascenter.org # =================================================================== # ================================================================== #> Runtime Environment Options # ================================================================== #> Choose compiler and set up CMAQ environment with correct #> libraries using config.cmaq. Options: intel | gcc | pgi setenv compiler intel cd ../../.. source ./config_cmaq.csh #> Set General Parameters for Configuring the Simulation set VRSN = v55 #> Code Version set PROC = mpi #> serial or mpi set MECH = cb6r3_ae7_aq #> Mechanism ID set APPL = Bench_2016_12SE1 #> Application Name (e.g. Gridname) #> Define RUNID as any combination of parameters above or others. By default, #> this information will be collected into this one string, $RUNID, for easy #> referencing in output binaries and log files as well as in other scripts. set RUNID = ${VRSN}_${compilerString}_${APPL} #> Set the build directory if this was not set above #> (this is where the executable is located by default). if ( ! $?BINDIR ) then set BINDIR = ${CMAQ_HOME}/POST/sitecmp_dailyo3/scripts/BLD_sitecmp_dailyo3_${VRSN}_${compilerString} endif #> Set the name of the executable. set EXEC = sitecmp_dailyo3_${VRSN}.exe #> Set output directory set POSTDIR = ${CMAQ_DATA}/POST #> Location where sitecmp_dailyo3 file will be written if ( ! -e $POSTDIR ) then mkdir $POSTDIR endif # ===================================================================== #> SITECMP_DAILYO3 Configuration Options # ===================================================================== #> Projection sphere type used by I/OAPI (use type #20 to match WRF/CMAQ) setenv IOAPI_ISPH 20 #> define obs species setenv OBS_SPECIES O3 #> define model species setenv OZONE "1*O3,ppb" #> Ozone convert factor (ppm to ppb) setenv OBS_FACTOR "1" # Multiply by 1000 to convert ppm to ppb #> define time window set SDATE = "2016-07-01" #> beginning date (July 1, 2011) set EDATE = "2016-07-14" #> ending date (July 14, 2011) setenv START_TIME 0 setenv END_TIME 230000 #> Convert SDATE and EDATE to Julian day. #> (required format for sitecmp START_DATE and END_DATE environment variables) setenv START_DATE `date -ud "${SDATE}" +%Y%j` setenv END_DATE `date -ud "${EDATE}" +%Y%j` #> Number of 8hr values to use when computing daily maximum 8hr ozone. #> Allowed values are 24 (use all 8-hr averages with starting hours #> from 0 - 23 hr local time) and 17 (use only the 17 8-hr averages #> with starting hours from 7 - 23 hr local time) setenv HOURS_8HRMAX 24 # setenv HOURS_8HRMAX 17 #> Start and end hours for partial days. (do not use for full day calculations) # setenv PARTIAL_DAY "10,17" #> adjust for daylight savings setenv APPLY_DLS N #> Number of hours to add when retrieving time steps from M3_FILE_n files during processing. #> This should only be non-zero if the M3_FILE_n files were pre-processed with a utility like m3tshift (default 0). setenv TIME_SHIFT 0 #> indicate whether or not to check QA flag setenv QA_FLAG_CHECK N #> set missing value string setenv MISSING '-999' #> Indicates whether the Lambert x/y information should be included in the output file setenv LAMBXY N ############################################################# # Input files ############################################################# #> ioapi input files containing VNAMES (max of 10) setenv M3_FILE_1 ${CMAQ_DATA}/POST/COMBINE_ACONC_${RUNID}_201607.nc #[Add location of input file, e.g. COMBINE_ACONC file.] #> SITE FILE containing site-id, longitude, latitude, and optionally #> GMT offset, state, county, and elevation (csv format) #> The column headings for the required variables need to be #> stat_id, lon, and lat (case insensitive) #> The column headings for the optional variables need to be #> gmt_offset, state, county, and elevation (case insensitive) #> This file can be downloaded from #> https://github.com/USEPA/AMET/tree/master/obs/AQ/site_metadata_files setenv SITE_FILE AQS_full_site_list.csv #> On EPA system: # setenv SITE_FILE /work/MOD3EVAL/aq_obs/routine/site_metadata_files/AQS_full_site_list.csv #> input table containing site-id, time-period, and data fields #> AQS obs data in the format needed for sitecmp_dailyo3 are #> available starting in 2000 from the CMAS Data Warehouse Google Drive: #> https://drive.google.com/drive/folders/1QUlUXnHXvXz9qwePi5APzzHkiH5GWACw?usp=drive_link #> Hourly AQS observations are located in AMET_OBSDATA_YYYY.tar.gz for year YYYY. setenv IN_TABLE AQS_hourly_data_2016.csv #> One EPA system: # setenv IN_TABLE /work/MOD3EVAL/aq_obs/routine/2016/AQS_hourly_data_2016.csv ############################################################# # Output files ############################################################# #> output table (comma delimited text file importable to Excel) setenv OUT_TABLE ${POSTDIR}/AQS_Daily_CMAQ_${RUNID}_201607.csv #> Executable call: ${BINDIR}/${EXEC} set progstat = ${status} if ( ${progstat} ) then echo "ERROR ${progstat} in $BINDIR/$EXEC" exit( ${progstat} ) endif exit() ================================================ FILE: POST/sitecmp_dailyo3/scripts/run_sitecmp_dailyo3_CASTNET.csh ================================================ #! /bin/csh -f # ===================== SITECMP_DAILYO3_v5.5.X Run Script =========== # Usage: run_sitecmp_dailyo3_CASTNET.csh >&! sitecmp_dailyo3_CASTNET.log & # # To report problems or request help with this script/program: # http://www.epa.gov/cmaq (EPA CMAQ Website) # http://www.cmascenter.org # =================================================================== # ================================================================== #> Runtime Environment Options # ================================================================== #> Choose compiler and set up CMAQ environment with correct #> libraries using config.cmaq. Options: intel | gcc | pgi setenv compiler intel cd ../../.. source ./config_cmaq.csh #> Set General Parameters for Configuring the Simulation set VRSN = v55 #> Code Version set PROC = mpi #> serial or mpi set MECH = cb6r3_ae7_aq #> Mechanism ID set APPL = Bench_2016_12SE1 #> Application Name (e.g. Gridname) #> Define RUNID as any combination of parameters above or others. By default, #> this information will be collected into this one string, $RUNID, for easy #> referencing in output binaries and log files as well as in other scripts. set RUNID = ${VRSN}_${compilerString}_${APPL} #> Set the build directory if this was not set above #> (this is where the executable is located by default). if ( ! $?BINDIR ) then set BINDIR = ${CMAQ_HOME}/POST/sitecmp_dailyo3/scripts/BLD_sitecmp_dailyo3_${VRSN}_${compilerString} endif #> Set the name of the executable. set EXEC = sitecmp_dailyo3_${VRSN}.exe #> Set output directory set POSTDIR = ${CMAQ_DATA}/POST #> Location where sitecmp_dailyo3 file will be written if ( ! -e $POSTDIR ) then mkdir $POSTDIR endif # ===================================================================== #> SITECMP_DAILYO3 Configuration Options # ===================================================================== #> Projection sphere type used by I/OAPI (use type #20 to match WRF/CMAQ) setenv IOAPI_ISPH 20 #> define obs species setenv OBS_SPECIES OZONE #> define model species setenv OZONE "1*O3,ppb" #> Ozone convert factor (ppm to ppb) setenv OBS_FACTOR "1" # Multiply by 1000 to convert ppm to ppb #> define time window set SDATE = "2016-07-01" #> beginning date (July 1, 2016) set EDATE = "2016-07-14" #> ending date (July 14, 2016) setenv START_TIME 0 setenv END_TIME 230000 #> Convert SDATE and EDATE to Julian day. #> (required format for sitecmp START_DATE and END_DATE environment variables) setenv START_DATE `date -ud "${SDATE}" +%Y%j` setenv END_DATE `date -ud "${EDATE}" +%Y%j` #> Number of 8hr values to use when computing daily maximum 8hr ozone. #> Allowed values are 24 (use all 8-hr averages with starting hours #> from 0 - 23 hr local time) and 17 (use only the 17 8-hr averages #> with starting hours from 7 - 23 hr local time) setenv HOURS_8HRMAX 24 # setenv HOURS_8HRMAX 17 #> Start and end hours for partial days. (do not use for full day calculations) # setenv PARTIAL_DAY "10,17" #> adjust for daylight savings setenv APPLY_DLS N #> Number of hours to add when retrieving time steps from M3_FILE_n files during processing. #> This should only be non-zero if the M3_FILE_n files were pre-processed with a utility like m3tshift (default 0). setenv TIME_SHIFT 0 #> indicate whether or not to check QA flag setenv QA_FLAG_CHECK Y setenv QA_FLAG_HEADER "OZONE_F" setenv QA_FLAG_VALUES "BCDFIMP" #> set missing value string setenv MISSING '-999' #> Indicates whether the Lambert x/y information should be included in the output file setenv LAMBXY N ############################################################# # Input files ############################################################# #> ioapi input files containing VNAMES (max of 10) setenv M3_FILE_1 ${CMAQ_DATA}/POST/COMBINE_ACONC_${RUNID}_201607.nc #[Add location of input file, e.g. COMBINE_ACONC file.] #> SITE FILE containing site-id, longitude, latitude, and optionally #> GMT offset, state, county, and elevation (csv format) #> The column headings for the required variables need to be #> stat_id, lon, and lat (case insensitive) #> The column headings for the optional variables need to be #> gmt_offset, state, county, and elevation (case insensitive) #> This file can be downloaded from #> https://github.com/USEPA/AMET/tree/master/obs/AQ/site_metadata_files setenv SITE_FILE CASTNET_full_site_list.csv #> On EPA system: # setenv SITE_FILE /work/MOD3EVAL/aq_obs/routine/site_metadata_files/CASTNET_full_site_list.csv #> input table containing site-id, time-period, and data fields #> CASTNET obs data in the format needed for sitecmp_dailyo3 are #> available starting in 2000 from the CMAS Data Warehouse Google Drive: #> https://drive.google.com/drive/folders/1QUlUXnHXvXz9qwePi5APzzHkiH5GWACw?usp=drive_link #> Hourly CASTNET observations are located in AMET_OBSDATA_YYYY.tar.gz for year YYYY. setenv IN_TABLE CASTNET_hourly_data_2016.csv #> One EPA system: # setenv IN_TABLE /work/MOD3EVAL/aq_obs/routine/2016/CASTNET_hourly_data_2016.csv ############################################################# # Output files ############################################################# #> output table (comma delimited text file importable to Excel) setenv OUT_TABLE ${POSTDIR}/CASTNET_Daily_CMAQ_${RUNID}_201607.csv #> Executable call: ${BINDIR}/${EXEC} set progstat = ${status} if ( ${progstat} ) then echo "ERROR ${progstat} in $BINDIR/$EXEC" exit( ${progstat} ) endif exit() ================================================ FILE: POST/sitecmp_dailyo3/src/ck_ctms.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE CK_M3FLS() C************************************************************************* C C FUNCTION: To check multiple input CTM conc files for consistent C header data C C PRECONDITIONS: None C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Prototype created by Jerry Gipson, January, 1998 C Modified by JG May, 1999 to change way reals are C checked C C************************************************************************* USE M3FILES USE M3UTILIO IMPLICIT NONE C..INCLUDE FILES: C INCLUDE SUBST_IOPARMS ! IOAPI parameters C INCLUDE SUBST_IOFDESC ! IOAPI file description C INCLUDE SUBST_IODECL ! IOAPI declarations C..ARGUMENTS: C..PARAMETERS: None C..EXTERNAL FUNCTIONS: C INTEGER INDEX1 ! Get index on string in a list of strings INTEGER TRIMLEN ! Get last non-blank character pos in string C..SAVED LOCAL VARIABLES: None C..SCRATCH LOCAL VARIABLES: CHARACTER*80 MSG ! Log message CHARACTER*16 PNAME ! Program Name CHARACTER*15 VAL1 ! Character value of real CHARACTER*15 VAL2 ! Character value of real INTEGER L, N ! Loop indices INTEGER FTYPE1 ! File 1 file type INTEGER NCOLS1 ! File 1 number of columns INTEGER NROWS1 ! File 1 number of rows INTEGER NLAYS1 ! File 1 number of levels INTEGER SDATE1 ! File 1 start date INTEGER STIME1 ! File 1 start time INTEGER TSTEP1 ! File 1 time step INTEGER MXREC1 ! File 1 number of time steps INTEGER NTHIK1 ! File 1 boundary thickness INTEGER GDTYP1 ! File 1 horizontal grid type INTEGER VGTYP1 ! File 1 Vertical coordinate type LOGICAL LERROR ! Error Flag LOGICAL LSTOP ! Exit Flag REAL P_ALP1 ! File 1 map projection parameter REAL P_BET1 ! File 1 map projection parameter REAL P_GAM1 ! File 1 map projection parameter REAL XORIG1 ! File 1 X-origin REAL YORIG1 ! File 1 Y-origin REAL XCELL1 ! File 1 X-dimension of cells REAL YCELL1 ! File 1 Y-dimension of cells REAL XCENT1 ! File 1 X-center of coordinate system REAL YCENT1 ! File 1 Y-center of coordinate system REAL VGTOP1 ! File 1 model top REAL VGLVS1( MXLAYS3 + 1 ) ! File vertical layer heights C********************************************************************** DATA PNAME / 'CK_M3FLS' / LSTOP = .FALSE. ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Get header data for CTM file 1 ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF( .NOT. DESC3 ( M3_FLNAME( 1 ) ) ) THEN MSG = 'Could not read DESC of ' // M3_FLNAME( 1 ) & // ' file' CALL M3ERR( PNAME, 0, 0, MSG, .TRUE. ) ENDIF FTYPE1 = FTYPE3D NCOLS1 = NCOLS3D NROWS1 = NROWS3D NLAYS1 = NLAYS3D SDATE1 = SDATE3D STIME1 = STIME3D TSTEP1 = TSTEP3D MXREC1 = MXREC3D NTHIK1 = NTHIK3D GDTYP1 = GDTYP3D P_ALP1 = P_ALP3D P_BET1 = P_BET3D P_GAM1 = P_GAM3D XORIG1 = XORIG3D YORIG1 = YORIG3D XCELL1 = XCELL3D YCELL1 = YCELL3D XCENT1 = XCENT3D YCENT1 = YCENT3D VGTYP1 = VGTYP3D VGTOP1 = VGTOP3D DO N = 1 , NLAYS3D + 1 VGLVS1( N ) = VGLVS3D( N ) ENDDO ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Check to see that requested variable is on all files ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc DO N = 1, N_M3FILES IF( .NOT. DESC3 ( M3_FLNAME( N ) ) ) THEN MSG = 'Could not read DESC of ' // M3_FLNAME( N ) & // ' file' CALL M3ERR( PNAME, 0, 0, MSG, .TRUE. ) ENDIF ENDDO ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Write out report data ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF( N_M3FILES .GT. 1 ) THEN MSG = 'Multiple Models-3 files being used' CALL M3MESG( MSG ) MSG = 'Files being checked for consistent header data' CALL M3MESG( MSG ) ENDIF ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Compare header data on file 1 with header data on other CTM files ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc DO N = 2, N_M3FILES WRITE( MSG, '( ''Differences found between files '', A, & '' and '', A )' ) & M3_FLNAME( 1 ) ( 1 : TRIMLEN( M3_FLNAME( 1 ) ) ), & M3_FLNAME( N ) ( 1 : TRIMLEN( M3_FLNAME( N ) ) ) CALL M3MESG( MSG ) LERROR = .FALSE. IF( .NOT. DESC3 ( M3_FLNAME( N ) ) ) THEN MSG = 'Could not read DESC of ' // M3_FLNAME( N ) & // ' file' CALL M3ERR( PNAME, 0, 0, MSG, .TRUE. ) ENDIF IF( FTYPE1 .NE. FTYPE3D ) THEN WRITE( LOGUNIT, 94020 ) FTYPE1, N, FTYPE3D LERROR = .TRUE. ENDIF IF( NCOLS1 .NE. NCOLS3D ) THEN WRITE( LOGUNIT, 94040 ) NCOLS1, N, NCOLS3D LERROR = .TRUE. ENDIF IF( NROWS1 .NE. NROWS3D ) THEN WRITE( LOGUNIT, 94060 ) NROWS1, N, NROWS3D LERROR = .TRUE. ENDIF IF( NLAYS1 .NE. NLAYS3D ) THEN WRITE( LOGUNIT, 94080 ) NLAYS1, N, NLAYS3D LERROR = .TRUE. ENDIF IF( TSTEP1 .NE. TSTEP3D ) THEN WRITE( LOGUNIT, 94140 ) TSTEP1, N, TSTEP3D LERROR = .TRUE. ENDIF IF( NTHIK1 .NE. NTHIK3D ) THEN WRITE( LOGUNIT, 94180 ) NTHIK1, N, NTHIK3D LERROR = .TRUE. ENDIF IF( GDTYP1 .NE. GDTYP3D ) THEN WRITE( LOGUNIT, 94200 ) GDTYP1, N, GDTYP3D LERROR = .TRUE. ENDIF WRITE( VAL1, 94000 ) P_ALP1 WRITE( VAL2, 94000 ) P_ALP3D IF( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94220 ) P_ALP1, N, P_ALP3D LERROR = .TRUE. ENDIF WRITE( VAL1, 94000 ) P_BET1 WRITE( VAL2, 94000 ) P_BET3D IF( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94240 ) P_BET1, N, P_BET3D LERROR = .TRUE. ENDIF WRITE( VAL1, 94000 ) P_GAM1 WRITE( VAL2, 94000 ) P_GAM3D IF( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94260 ) P_GAM1, N, P_GAM3D LERROR = .TRUE. ENDIF WRITE( VAL1, 94000 ) XORIG1 WRITE( VAL2, 94000 ) XORIG3D IF( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94280 ) XORIG1, N, XORIG3D LERROR = .TRUE. ENDIF WRITE( VAL1, 94000 ) YORIG1 WRITE( VAL2, 94000 ) YORIG3D IF( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94300 ) YORIG1, N, YORIG3D LERROR = .TRUE. ENDIF WRITE( VAL1, 94000 ) XCELL1 WRITE( VAL2, 94000 ) XCELL3D IF( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94320 ) XCELL1, N, XCELL3D LERROR = .TRUE. ENDIF WRITE( VAL1, 94000 ) YCELL1 WRITE( VAL2, 94000 ) YCELL3D IF( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94340 ) YCELL1, N, YCELL3D LERROR = .TRUE. ENDIF WRITE( VAL1, 94000 ) XCENT1 WRITE( VAL2, 94000 ) XCENT3D IF( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94360 ) XCENT1, N, XCENT3D LERROR = .TRUE. ENDIF WRITE( VAL1, 94000 ) YCENT1 WRITE( VAL2, 94000 ) YCENT3D IF( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94380 ) YCENT1, N, YCENT3D LERROR = .TRUE. ENDIF WRITE( VAL1, 94000 ) VGTOP1 WRITE( VAL2, 94000 ) VGTOP3D IF( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94420 ) VGTOP1, N, VGTOP3D LERROR = .TRUE. ENDIF DO L = 1 , NLAYS1 + 1 WRITE( VAL1, 94000 ) VGLVS1( L ) WRITE( VAL2, 94000 ) VGLVS3D( L ) IF( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94440 ) L, VGLVS1( L ), N, L, & VGLVS3D( L ) LERROR = .TRUE. ENDIF ENDDO IF( .NOT. LERROR ) THEN WRITE( LOGUNIT, 94460 ) ELSE LSTOP = .TRUE. ENDIF ENDDO IF( LSTOP ) THEN MSG = 'Missing variable or file inconsistencies detected: stopping' CALL M3ERR( PNAME, 0, 0, MSG, .TRUE. ) ENDIF RETURN C************************* FORMAT STATEMENTS *************************** 94000 FORMAT( E15.5 ) 94020 FORMAT(10X, 'FTYPE1 = ', I3, ' FTYPE', I1, ' = ', I3 ) 94040 FORMAT(10X, 'NCOLS1 = ', I3, ' NCOLS', I1, ' = ', I3 ) 94060 FORMAT(10X, 'NROWS1 = ', I3, ' NROWS', I1, ' = ', I3 ) 94080 FORMAT(10X, 'NLAYS1 = ', I3, ' NLAYS', I1, ' = ', I3 ) 94100 FORMAT(10X, 'SDATE1 = ', I3, ' SDATE', I1, ' = ', I3 ) 94120 FORMAT(10X, 'STIME1 = ', I3, ' STIME', I1, ' = ', I3 ) 94140 FORMAT(10X, 'TSTEP1 = ', I3, ' TSTEP', I1, ' = ', I3 ) 94160 FORMAT(10X, 'MXREC1 = ', I3, ' MXREC', I1, ' = ', I3 ) 94180 FORMAT(10X, 'NTHIK1 = ', I3, ' NTHIK', I1, ' = ', I3 ) 94200 FORMAT(10X, 'GDTYP1 = ', I3, ' GDTYP', I1, ' = ', I3 ) 94220 FORMAT(10X, 'P_ALP1 = ', 1PE12.5, ' P_ALP', I1, ' = ', 1PE12.5 ) 94240 FORMAT(10X, 'P_BET1 = ', 1PE12.5, ' P_BET', I1, ' = ', 1PE12.5 ) 94260 FORMAT(10X, 'P_GAM1 = ', 1PE12.5, ' P_GAM', I1, ' = ', 1PE12.5 ) 94280 FORMAT(10X, 'XORIG1 = ', 1PE12.5, ' XORIG', I1, ' = ', 1PE12.5 ) 94300 FORMAT(10X, 'YORIG1 = ', 1PE12.5, ' YORIG', I1, ' = ', 1PE12.5 ) 94320 FORMAT(10X, 'XCELL1 = ', 1PE12.5, ' XCELL', I1, ' = ', 1PE12.5 ) 94340 FORMAT(10X, 'YCELL1 = ', 1PE12.5, ' YCELL', I1, ' = ', 1PE12.5 ) 94360 FORMAT(10X, 'XCENT1 = ', 1PE12.5, ' XCENT', I1, ' = ', 1PE12.5 ) 94380 FORMAT(10X, 'YCENT1 = ', 1PE12.5, ' YCENT', I1, ' = ', 1PE12.5 ) 94420 FORMAT(10X, 'VGTOP1 = ', 1PE12.5, ' VGTOP', I1, ' = ', 1PE12.5 ) 94440 FORMAT(10X, 'VGLVS1(', I2, ' ) = ', 1PE12.5, ' VGLVS', I1, & '(', I2, ' ) = ', 1PE12.5 ) 94445 FORMAT(10X, 'Variable ', A, ' not on file ', A ) 94460 FORMAT(10X, 'NONE' ) END ================================================ FILE: POST/sitecmp_dailyo3/src/get_units.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C Routine to return the units of a variable for file M3_FLNAME(1) SUBROUTINE GET_UNITS( VARNAME, UNITS ) USE M3FILES USE ENV_VARS USE M3UTILIO IMPLICIT NONE C..INCLUDE FILES: C INCLUDE SUBST_IOPARMS ! IOAPI parameters C INCLUDE SUBST_IOFDESC ! IOAPI file description C INCLUDE SUBST_IODECL ! IOAPI declarations C..ARGUMENTS: CHARACTER*(*) VARNAME CHARACTER*(*) UNITS C..SCRATCH LOCAL VARIABLES: CHARACTER*16 PNAME ! Program Name CHARACTER*256 MSG INTEGER I DATA PNAME / 'CK_M3FLS' / UNITS = 'na' ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Get header data for CTM file 1 ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF( .NOT. DESC3 ( M3_FLNAME( 1 ) ) ) THEN MSG = 'Could not read DESC of ' // M3_FLNAME( 1 ) & // ' file' CALL M3ERR( PNAME, 0, 0, MSG, .TRUE. ) RETURN ENDIF ! find matching variable, and return it's units DO I=1,MXVARS3 if( VNAME3D(i) .eq. VARNAME ) UNITS = UNITS3D(I) EndDo RETURN END ================================================ FILE: POST/sitecmp_dailyo3/src/module_envvar.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! MODULE ENV_VARS C************************************************************************* C C FUNCTION: To get environment variables C C PRECONDITIONS: None C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Prototype created by Jerry Gipson, July, 1999 C C************************************************************************* CHARACTER*256 IN_TABLE ! Input table of actual values CHARACTER*256 OUT_TABLE ! Output table containing both actual and modeled values CHARACTER*256 AVG_TABLE ! Output table containing averages over time period INTEGER START_DATE ! starting date of period to process INTEGER START_TIME ! starting time of period to process INTEGER END_DATE ! ending date of period to process INTEGER END_TIME ! ending time of period to process INTEGER HOUR_START ! starting hour for partial day INTEGER HOUR_END ! ending hour for partial day INTEGER HOURS_8HRMAX ! number of 8hr values to compute 8hr max INTEGER TIME_SHIFT ! hours to adjust model data LOGICAL APPLYDLS ! Daylight Savings flag ! LOGICAL COMPUTE_MAX ! Output maximun hourly values flag ! LOGICAL COMPUTE_SUM06 ! Output SUM06 values flag LOGICAL LAMBXY ! Output Lambert x,y flag CHARACTER*16 MISSING_VALUE ! indicates missing value in output ! CHARACTER*16 NETWORK_OBS ! indicates observational network (AQS or CASTNET) CHARACTER*16 OBS_SPECIES_NAME! name of the observed species in the header line CHARACTER*16 QA_FLAG_NAME ! name of the qa flag field in the header line CHARACTER*16 QA_FLAG_STRING ! string of QA flags indicating invalid obs LOGICAL FILL_MISSING ! Fill total period even if observed data is missing LOGICAL MISS_CHECK ! check for incomplete number of values in day LOGICAL QAFLAG_CHECK ! does the observation file include a QA flag? CONTAINS SUBROUTINE GET_ENVS C************************************************************************* C C FUNCTION: To get environment variables C C C************************************************************************* USE M3UTILIO IMPLICIT NONE C..INCLUDES: C INCLUDE SUBST_IOPARMS ! IOAPI parameters C INCLUDE SUBST_IOFDESC ! IOAPI file description C INCLUDE SUBST_IODECL ! IOAPI declarations C..EXTERNAL FUNCTIONS: C INTEGER INDEX1 C INTEGER ENVINT C LOGICAL ENVYN C LOGICAL STRLIST INTEGER getParsedNumber C..SAVED LOCAL VARIABLES: None C..SCRATCH LOCAL VARIABLES: CHARACTER*16 PNAME ! Program Name CHARACTER*16 INTABLE ! Env var for input table file name CHARACTER*16 OUTTABLE ! Env var for output table file name CHARACTER*16 APPLY_DLS ! Env var that indicates if DLS should apply CHARACTER*16 MISSING ! Env var to use to indicate missing values CHARACTER*16 NETWORK ! Env var to use to indicate network CHARACTER*16 PARTIAL_DAY ! Env var to use to define hours for partial day CHARACTER*16 OBS_SPECIES ! name of the observed species in the header line CHARACTER*16 QA_FLAG_CHECK ! name of the qa flag field in the header line CHARACTER*16 QA_FLAG_HEADER ! name of the qa flag field in the header line CHARACTER*16 QA_FLAG_VALUES ! string of QA flags indicating invalid obs CHARACTER*80 MSG ! Error message CHARACTER*256 RET_VAL ! Returned value of env var CHARACTER*16 ENV_DFLT ! default env value CHARACTER*16 ENV_DESC ! message string INTEGER STATUS ! Status code LOGICAL LERROR ! Error flag CHARACTER*80 RECORD CHARACTER*16 FIELD CHARACTER*16 VARS(20) ! Env var for list of variables INTEGER I C********************************************************************** DATA PNAME / 'GET_ENVS' / DATA INTABLE / 'IN_TABLE' / DATA OUTTABLE / 'OUT_TABLE' / DATA APPLY_DLS / 'APPLY_DLS' / DATA MISSING / 'MISSING' / DATA NETWORK / 'NETWORK' / DATA PARTIAL_DAY / 'PARTIAL_DAY' / DATA OBS_SPECIES / 'OBS_SPECIES' / DATA QA_FLAG_HEADER / 'QA_FLAG_HEADER' / DATA QA_FLAG_VALUES / 'QA_FLAG_VALUES' / DATA QA_FLAG_CHECK / 'QA_FLAG_CHECK' / LERROR = .FALSE. cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Get the name of the input table file cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc ENV_DFLT = 'INTABLE' ENV_DESC = 'Input Table name' CALL ENVSTR( INTABLE, ENV_DESC, ENV_DFLT, IN_TABLE, STATUS) IF( STATUS .NE. 0 ) THEN MSG = 'ERROR: no file name assigned to '//INTABLE CALL M3MESG( MSG ) LERROR = .TRUE. ENDIF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Get the name of the output table file cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc ENV_DFLT = 'out.csv' ENV_DESC = 'Output Table name' CALL ENVSTR( OUTTABLE, ENV_DESC, ENV_DFLT, OUT_TABLE, STATUS) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Get the Character string to indicate the name of the obs variable cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc ENV_DFLT = 'O3' ENV_DESC = 'String to indicate observed species name' CALL ENVSTR( OBS_SPECIES, ENV_DESC, ENV_DFLT, OBS_SPECIES_NAME, STATUS) IF( STATUS .NE. 0 ) THEN MSG = 'WARNING: no value assigned to '//OBS_SPECIES CALL M3MESG( MSG ) MSG = 'USING DEFAULT '//ENV_DFLT CALL M3MESG( MSG ) ENDIF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Get the starting and ending dates and times cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C...get starting date and time start_date = ENVINT('START_DATE','Start date for average period', 0, STATUS) start_time = ENVINT('START_TIME','Start time for average period', 0, STATUS) C...get ending date and time end_date = ENVINT('END_DATE','End date for average period', 0, STATUS) end_time = ENVINT('END_TIME','End time for average period', 0, STATUS) if(( start_date .gt. end_date ) .or. & ( start_date .eq. end_date .and. start_time .gt. end_time )) then MSG = '**Error** Invalid time window defined, start_time > end_time' CALL M3ERR( PNAME, 0, 0, MSG, .TRUE. ) Stop Endif cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Get the TIME Shift adjustment in hours cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc ENV_DESC = 'Hours added to model data read' TIME_SHIFT= ENVINT( 'TIME_SHIFT', ENV_DESC, 0, STATUS) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Get the HOURS_8HRMAX environment variable (default is 24) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc ENV_DESC = 'Number of 8hr values to use when computing DM8HR' HOURS_8HRMAX= ENVINT( 'HOURS_8HRMAX', ENV_DESC, 24, STATUS) if ( ( HOURS_8HRMAX .NE. 24) .AND. ( HOURS_8HRMAX .NE. 17) ) THEN MSG = '**Error** Invalid value for HOURS_8HRMAX, use 24 or 17' CALL M3ERR( PNAME, 0, 0, MSG, .TRUE. ) Stop Endif cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Get the DLS apply flag (default is false) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc ENV_DESC = 'Flag to apply Daylight Saving adjustment' APPLYDLS = ENVYN( APPLY_DLS, ENV_DESC, .FALSE., STATUS) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Get the COMPUTE_MAX flag (default is false) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c ENV_DESC = 'Flag to output maximun hourly values' c COMPUTE_MAX = ENVYN( 'COMPUTE_MAX', ENV_DESC, .FALSE., STATUS) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Get the HOUR_VALUES flag (default is false) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c ENV_DESC = 'Flag to output SUM06 values' c COMPUTE_SUM06 = ENVYN( 'COMPUTE_SUM06', ENV_DESC, .FALSE., STATUS) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Get the LAMBXY flag (default is false) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc ENV_DESC = 'Flag to output Lambert X,Y values' LAMBXY = ENVYN( 'LAMBXY', ENV_DESC, .FALSE., STATUS) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Get the Character string to use for missing values cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc ENV_DESC = 'String to indicate missing values' CALL ENVSTR( MISSING, ENV_DESC, 'm', MISSING_VALUE, STATUS) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Get the Character string to indicate CASTNET or AQS observations (default AQS) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c ENV_DFLT = 'AQS' c ENV_DESC = 'String to indicate network (AQS or CASTNET)' c CALL ENVSTR( NETWORK, ENV_DESC, ENV_DFLT, NETWORK_OBS, STATUS) c if(( TRIM(NETWORK_OBS) .ne. 'AQS' ) .and. c & ( TRIM(NETWORK_OBS) .ne. 'CASTNET' )) then c MSG = '**Error** NETWORK MUST BE SET TO AQS OR CASTNET' c CALL M3ERR( PNAME, 0, 0, MSG, .TRUE. ) c Stop c Endif cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Get the flag to see if a QA field is present in obs file (default is false) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc ENV_DESC = 'Flag to indicate whether QA flag field is present' QAFLAG_CHECK = ENVYN( QA_FLAG_CHECK, ENV_DESC, .FALSE., STATUS) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Get the Character strings for the QA flag header and QA flag strings cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF (QAFLAG_CHECK) THEN ENV_DFLT = 'OZONE_F' ENV_DESC = 'Header string to indicate QA flag' CALL ENVSTR( QA_FLAG_HEADER, ENV_DESC, ENV_DFLT, QA_FLAG_NAME, STATUS) IF( STATUS .NE. 0 ) THEN MSG = 'WARNING: no value assigned to '//QA_FLAG_HEADER CALL M3MESG( MSG ) MSG = 'USING DEFAULT '//ENV_DFLT CALL M3MESG( MSG ) ENDIF ENV_DFLT = 'BCDFIMP' ENV_DESC = 'String containing the QA flag values to indicate bad data' CALL ENVSTR( QA_FLAG_VALUES, ENV_DESC, ENV_DFLT, QA_FLAG_STRING, STATUS) IF( STATUS .NE. 0 ) THEN MSG = 'WARNING: no value assigned to '//QA_FLAG_VALUES CALL M3MESG( MSG ) MSG = 'USING DEFAULT '//ENV_DFLT CALL M3MESG( MSG ) ENDIF ENDIF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Get the switch for filling total time period cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc ENV_DESC = 'Flag to indicate to fill missing data records' FILL_MISSING = ENVYN('FILL_MISSING', ENV_DESC, .FALSE., STATUS) MISS_CHECK = ENVYN('MISS_CHECK', 'Set Incomplete days to missing', .TRUE., STATUS) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Get the partial day hours cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc ENV_DFLT = '' ENV_DESC = 'partial day start and end hours' CALL ENVSTR( PARTIAL_DAY, ENV_DESC, ENV_DFLT, RECORD, STATUS) HOUR_START = -1 HOUR_END = -1 if( getParsedNumber(record, ',') .eq. 2 ) Then Call getParsedField( record, ',', 1, field, .false. ) read(field,*,iostat=status) hour_start if(status.ne.0) hour_start = -1 Call getParsedField( record, ',', 2, field, .false. ) read(field,*,iostat=status) hour_end if(status.ne.0) hour_end = -1 IF( hour_end .lt. hour_start ) THEN MSG = 'Error invalid partial day hours -- stopping' CALL M3ERR( PNAME, 0, 0, MSG, .TRUE. ) ENDIF endif cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Stop if errors detected cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF( LERROR ) THEN MSG = 'Error in assigning environment variables -- stopping' CALL M3ERR( PNAME, 0, 0, MSG, .TRUE. ) ENDIF RETURN END SUBROUTINE GET_ENVS END MODULE ENV_VARS ================================================ FILE: POST/sitecmp_dailyo3/src/module_file.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! MODULE M3FILES C************************************************************************* C C FUNCTION: To set-up file data C C PRECONDITIONS: None C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Prototype created by Jerry Gipson, July, 1999 C C************************************************************************* USE M3UTILIO INTEGER LOGUNIT ! Logdevice INTEGER N_M3FILES ! No. of input Models-3 files INTEGER, PARAMETER :: MXM3FLS = MXFILE3 - 1 ! Max no. of input files - use IOAPI parameter ! MXFILE3 - 1 to also allow one output file CHARACTER*16 M3_FLNAME( MXM3FLS ) ! Names of Models-3 file CHARACTER*256 M3FILE ! first filename CONTAINS SUBROUTINE OPEN_M3FILES C************************************************************************* C C FUNCTION: To provide site data C C PRECONDITIONS: None C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Prototype created by Jerry Gipson, July, 1999 C C************************************************************************* USE M3UTILIO IMPLICIT NONE C..INCLUDES: C INCLUDE SUBST_IOPARMS ! IOAPI parameters C INCLUDE SUBST_IOFDESC ! IOAPI file description C INCLUDE SUBST_IODECL ! IOAPI declarations C..ARGUMENTS: None C..PARAMETERS: None C..EXTERNAL FUNCTIONS: None C..SAVED LOCAL VARIABLES: None C..SCRATCH LOCAL VARIABLES: CHARACTER*16 ENV_DFLT ! Environment variable default value CHARACTER*16 FL_NAME ! Input Models-3 file name CHARACTER*16 PNAME ! Program Name CHARACTER*80 ENV_DESC ! Environment variable description CHARACTER*80 MSG ! Error message CHARACTER*256 RET_VAL ! Returned value of environment variable INTEGER N ! Loop index INTEGER STATUS ! Status code C********************************************************************** DATA PNAME / 'OPEN_M3FILES' / ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Determine the number of input CTM conc files that need to be read ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc LOGUNIT = INIT3() N_M3FILES = 0 WRITE( LOGUNIT, 92020 ) DO N = 1, MXM3FLS IF( N .LT. 10 ) THEN WRITE( FL_NAME, '( ''M3_FILE_'', I1 )' ) N WRITE( ENV_DESC, '( ''CTM Concentration file no. '', I1 )' ) N ELSEIF( N .LT. 100 ) THEN WRITE( FL_NAME, '( ''M3_FILE_'', I2 )' ) N WRITE( ENV_DESC, '( ''CTM Concentration file no. '', I2 )' ) N ELSE WRITE( FL_NAME, '( ''M3_FILE_'', I3 )' ) N WRITE( ENV_DESC, '( ''CTM Concentration file no. '', I3 )' ) N ENDIF ENV_DFLT = ' ' CALL ENVSTR( FL_NAME, ENV_DESC, ENV_DFLT, RET_VAL, STATUS) IF( STATUS .EQ. 0 ) THEN If( N_M3FILES .eq. 0) M3FILE = RET_VAL N_M3FILES = N_M3FILES + 1 M3_FLNAME( N_M3FILES ) = FL_NAME Else Exit ENDIF ENDDO IF( N_M3FILES .EQ. 0 ) THEN MSG = 'No CTM CONC files found' CALL M3ERR( PNAME, 0, 0, MSG, .TRUE. ) ENDIF ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Open the files ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc DO N = 1, N_M3FILES IF( .NOT. OPEN3( M3_FLNAME( N ), FSREAD3, PNAME) )THEN CALL M3EXIT( PNAME, 0 , 0, & 'Could not open input file ' // M3_FLNAME( N ), & XSTAT1 ) ENDIF ENDDO RETURN C****************** FORMAT STATEMENTS ****************************** 92020 FORMAT( //5X, A, // ) END SUBROUTINE OPEN_M3FILES END MODULE M3FILES ================================================ FILE: POST/sitecmp_dailyo3/src/module_grid.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! MODULE GRID_DATA C************************************************************************* C C FUNCTION: To define a grid class C C PRECONDITIONS: None C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Prototype created by Jerry Gipson, July, 1999 C C************************************************************************* TYPE GRID INTEGER :: NCOLS INTEGER :: NROWS INTEGER :: GDTYP REAL*8 :: P_ALP REAL*8 :: P_BET REAL*8 :: P_GAM REAL*8 :: XCENT REAL*8 :: YCENT REAL*8 :: XORIG REAL*8 :: YORIG REAL*8 :: XCELL REAL*8 :: YCELL END TYPE GRID TYPE ( GRID ) M3GRID CONTAINS SUBROUTINE GET_M3GRID C************************************************************************* C C FUNCTION: To set grid data C C PRECONDITIONS: None C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Prototype created by Jerry Gipson, July, 1999 C JG corrected setting of M3GRID % NROWS 02/02/00 C C************************************************************************* USE M3FILES USE M3UTILIO IMPLICIT NONE C..INCLUDES: C INCLUDE SUBST_IOPARMS ! IOAPI parameters C INCLUDE SUBST_IOFDESC ! IOAPI file description C INCLUDE SUBST_IODECL ! IOAPI declarations C..ARGUMENTS: None C..PARAMETERS: None C..EXTERNAL FUNCTIONS: None C..SAVED LOCAL VARIABLES: None C..SCRATCH LOCAL VARIABLES: CHARACTER*16 PNAME ! Program Name INTEGER N ! Loop index INTEGER STATUS ! Status code C********************************************************************** DATA PNAME / 'GET_GRID' / IF ( .NOT. DESC3( M3_FLNAME( 1 ) ) ) THEN CALL M3EXIT( PNAME, 0, 0, & 'Could not get ' // M3_FLNAME( 1 ) // & ' file description', XSTAT1 ) ENDIF M3GRID % NCOLS = NCOLS3D c M3GRID % NROWS = NCOLS3D M3GRID % NROWS = NROWS3D M3GRID % GDTYP = GDTYP3D M3GRID % P_ALP = P_ALP3D M3GRID % P_BET = P_BET3D M3GRID % P_GAM = P_GAM3D M3GRID % XCENT = XCENT3D M3GRID % YCENT = YCENT3D M3GRID % XORIG = XORIG3D M3GRID % YORIG = YORIG3D M3GRID % XCELL = XCELL3D M3GRID % YCELL = YCELL3D RETURN END SUBROUTINE GET_M3GRID END MODULE GRID_DATA ================================================ FILE: POST/sitecmp_dailyo3/src/module_sites.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! MODULE SITE_DATA TYPE SITE character*20 :: site_id CHARACTER*25 :: STATE CHARACTER*25 :: COUNTY REAL :: LAT REAL :: LON REAL :: LAMBX REAL :: LAMBY REAL :: ELEV Integer :: TZ Integer :: row Integer :: column END TYPE SITE c TYPE ( SITE ), PRIVATE, ALLOCATABLE :: SITES(:) TYPE ( SITE ), ALLOCATABLE :: SITES(:) CONTAINS cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Subroutine to get data from file type 1 cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc SUBROUTINE LOAD_SITES USE M3UTILIO IMPLICIT NONE C..INCLUDES: C INCLUDE SUBST_IOPARMS ! IOAPI parameters C INCLUDE SUBST_IOFDESC ! IOAPI file description C INCLUDE SUBST_IODECL ! IOAPI declarations C..ARGUMENTS: None C..PARAMETERS: None C..EXTERNAL FUNCTIONS: C INTEGER JUNIT ! Get a Fortran unit number INTEGER getNumberOfFields C..SAVED LOCAL VARIABLES: None C..SCRATCH LOCAL VARIABLES: CHARACTER*256 SITE_FNAME CHARACTER*300 RECORD ! input record buffer CHARACTER*80 FIELD ! input field CHARACTER*16 ENV_DFLT ! Environment variable default value CHARACTER*16 PNAME ! Program Name CHARACTER*16 SITEFILE ! Env var for site file name CHARACTER*80 ENV_DESC ! Environment variable description CHARACTER*80 MSG ! Error message CHARACTER*256 RET_VAL ! Returned value of environment variable INTEGER nsites ! number of sites INTEGER NFIELDS ! number of fields in record INTEGER lfn ! Unit no. of input site file INTEGER tzone ! time zone offset number read from field 4 INTEGER N ! Loop index INTEGER STATUS ! Status code Integer :: siteField Integer :: latField Integer :: lonField Integer :: stateField Integer :: countyField Integer :: elevField Integer :: tzField LOGICAL IS_CSV ! CHARACTER*16 site,lonfld,latfld,tzfld C********************************************************************** DATA PNAME / 'LOAD_SITES'/ DATA SITEFILE / 'SITE_FILE' / ENV_DFLT = ' ' ENV_DESC = 'Input site file' CALL ENVSTR( SITEFILE, ENV_DESC, ENV_DFLT, SITE_FNAME, STATUS) IF( STATUS .NE. 0 ) THEN MSG = 'No input site file assigned to SITEFILE' CALL M3ERR( PNAME, 0, 0, MSG, .TRUE. ) ENDIF ! open file lfn = 10 OPEN(unit=lfn, file=SITE_FNAME, status='old', iostat=status) if(status.ne.0) then MSG = 'Cannot open site file:' // trim(SITE_FNAME) CALL M3ERR( PNAME, 0, 0, MSG, .TRUE. ) endif ! read the first line to determine whether this site file ! is using tab-delimited (no header line) or csv format READ( LFN, '(A)', iostat=status ) RECORD if(status.ne.0) then MSG = 'Cannot read first line of site file:' // trim(SITE_FNAME) CALL M3ERR( PNAME, 0, 0, MSG, .TRUE. ) endif nfields = getNumberOfFields(record, ",") if (nfields .le. 1) then IS_CSV = .FALSE. !assume tab delimited site file, no comma in first line else IS_CSV = .TRUE. !assume csv site file, commas in first line. !find columns for stat_id, lat, lon, !timezone, elevation, state, county endif REWIND( LFN ) ! read file to determine number of sites IF (.NOT.IS_CSV) THEN write(*,'(''ASSUMING TAB-DELIMITED SITE FILE: '',a)') trim(SITE_FNAME) NSITES = 0 DO read(lfn, '(a)', iostat=status ) RECORD if(status.ne.0) EXIT Call getField(record, char(9), 1, field) nfields = getNumberOfFields(record, char(9)) IF(nfields.ge.3 .and. LEN_TRIM(field).ge.4) NSITES = NSITES + 1 ENDDO if( NSITES.eq.0 ) then write(*,'(''**ERROR**, No sites found in site file:'',a)') trim(SITE_FNAME) Stop endif ALLOCATE( SITES( nsites ) ) SITES%ELEV = -999. !default elevation is missing SITES%STATE = "NotAvailable" !default state name SITES%COUNTY = "NotAvailable" !default state name REWIND( lfn ) ! read in site data N = 0 DO READ( LFN, '(A)', iostat=status ) RECORD if( status.ne.0 ) EXIT nfields = getNumberOfFields(record, char(9)) Call getField(record, char(9), 1, field) IF(nfields.ge.3 ) THEN N = N + 1 SITES(N)%site_id = field Call getField(record, char(9), 2, field) READ(field, '(BN,f15.0)', iostat=status) SITES(N)%LON if( status.ne.0 ) then write(*,'(''**ERROR** Cannot read longitude from record:'',a)') trim(record) stop endif Call getField(record, char(9), 3, field) READ(field, '(BN,f15.0)', iostat=status) SITES(N)%LAT if( status.ne.0 ) then write(*,'(''**ERROR** Cannot read latitude from record:'',a)') trim(record) stop endif ! compute Time zone offset from longitude SITES(N)%TZ = -(SITES(N)%LON) / 15 ! try to read Time zone offset from field 4 if(nfields.eq.4) then Call getField(record, char(9), 4, field) READ(field, '(BN,i10)', iostat=status) tzone if(status.eq.0 .and. tzone.gt.0) SITES(N)%TZ = tzone endif ENDIF ENDDO close(lfn) ELSE !csv-formatted site file write(*,'(''ASSUMING CSV SITE FILE: '',a)') trim(SITE_FNAME) nsites = 0 ! read header line first to find the position of the ! lat, lon, time zone, state,county, and elevation fields siteField = 0 stateField = 0 countyField = 0 latField = 0 lonField = 0 elevField = 0 tzField = 0 read(lfn,'(a)',iostat=status) record if( status.ne.0 ) then write(*,'(''**ERROR** Invalid table header in table file'')') Stop endif call UCASE( record ) call rmCommas(record) nfields = getNumberOfFields(record, ',') Do n=1,nfields call getField(record, ',', n, field) call rmQuots( field ) call LeftTrim(field) if( INDEX(field,'STAT_ID').gt.0 ) then siteField = n exit endif EndDo Do n=1,nfields call getField(record, ',', n, field) call rmQuots( field ) call LeftTrim(field) if( INDEX(field,'LAT').gt.0 ) then latField = n exit endif EndDo Do n=1,nfields call getField(record, ',', n, field) call rmQuots( field ) call LeftTrim(field) if( INDEX(field,'LON').gt.0 ) then lonField = n exit endif EndDo Do n=1,nfields call getField(record, ',', n, field) call rmQuots( field ) call LeftTrim(field) if( INDEX(field,'ELEVATION').gt.0 ) then elevField = n exit endif EndDo Do n=1,nfields call getField(record, ',', n, field) call rmQuots( field ) call LeftTrim(field) if( INDEX(field,'STATE').gt.0 ) then stateField = n exit endif EndDo Do n=1,nfields call getField(record, ',', n, field) call rmQuots( field ) call LeftTrim(field) if( INDEX(field,'COUNTY').gt.0 ) then countyField = n exit endif EndDo Do n=1,nfields call getField(record, ',', n, field) call rmQuots( field ) call LeftTrim(field) if( INDEX(field,'GMT_OFFSET').gt.0 ) then tzField = n exit endif EndDo if( ( siteField .eq. 0 ) .or. ( latField .eq. 0 ) .or. * ( lonField .eq. 0 ) ) then write(*,'(''**ERROR**, stat_id, lat, and/or lon column ''//'' * missing in:'',a)') trim(SITE_FNAME) Stop endif ! done reading and processing header line, now read station data DO READ( LFN, '(A)', iostat=status ) RECORD if(status.ne.0) EXIT Call getField(record, ',' , siteField, field) nfields = getNumberOfFields(record, ',' ) IF(nfields.ge.3 .and. LEN_TRIM(field).ge.3) nsites = nsites + 1 ENDDO if( nsites.eq.0 ) then write(*,'(''**ERROR**, No sites found in site file:'',a)') trim(SITE_FNAME) Stop endif ALLOCATE( SITES( nsites ) ) SITES%ELEV = -999. !default elevation is missing SITES%STATE = "NotAvailable" !default state name SITES%COUNTY = "NotAvailable" !default state name REWIND( LFN ) ! read header line read(lfn,'(a)',iostat=status) record if( status.ne.0 ) then write(*,'(''**ERROR** Invalid table header in table file'')') Stop endif ! read all site data from LFN N = 0 DO READ( LFN, '(A)', iostat=status ) RECORD if( status.ne.0 ) EXIT Call getField(record, ',', siteField, field) call rmQuots( field ) IF(LEN_TRIM(field).ge.3) THEN N = N + 1 SITES( N )%site_id = field Call getField(record, ',', lonField, field) call rmQuots( field ) read(field,'(f16.0)',iostat=status) SITES( N )%LON if( status.ne.0 ) then write(*,'(''**WARNING** Invalid site record for lon:'',a)') TRIM(record) write(*,'(''**WARNING** field = '',a)') TRIM(field) CYCLE endif Call getField(record, ',', latField, field) call rmQuots( field ) read(field,'(f16.0)',iostat=status) SITES( N )%LAT if( status.ne.0 ) then write(*,'(''**WARNING** Invalid site record for lat:'',a)') TRIM(record) write(*,'(''**WARNING** field = '',a)') TRIM(field) CYCLE endif if (stateField .gt. 0) then Call getField(record, ',', stateField, field) call rmQuots( field ) SITES( N )%STATE = field endif if (countyField .gt. 0) then Call getField(record, ',', countyField, field) call rmQuots( field ) SITES( N )%COUNTY = field endif if (elevField .gt. 0) then Call getField(record, ',', elevField, field) call rmQuots( field ) read(field,'(f16.0)',iostat=status) SITES( N )%ELEV if( status.ne.0 ) then write(*,'(''**WARNING** Invalid site record for elev:'',a)') TRIM(record) write(*,'(''**WARNING** field = '',a)') TRIM(field) CYCLE endif endif ! compute Time zone offset from longitude SITES( N )%TZ = -( SITES( N )%LON + 7.5 ) / 15 ! try to read Time zone offset from field 4 if (tzField .gt. 0) then Call getField(record, ',', tzField, field) call rmQuots( field ) READ(field, '(BN,i10)', iostat=status) tzone if(status.eq.0 .and. field.ne.' ') SITES( N )%TZ = tzone endif endif enddo close(unit=LFN) ENDIF !tab-delimited or csv site file RETURN END SUBROUTINE LOAD_SITES C************************************************************************* SUBROUTINE SET_SITE_LOC C************************************************************************* USE ENV_VARS USE M3FILES USE GRID_DATA USE M3UTILIO IMPLICIT NONE C..INCLUDE FILES: C INCLUDE SUBST_IOPARMS ! IOAPI parameters C INCLUDE SUBST_IOFDESC ! IOAPI file description C INCLUDE SUBST_IODECL ! IOAPI declarations C..ARGUMENTS: None C..PARAMETERS: None C..SAVED LOCAL VARIABLES: None C..SCRATCH LOCAL VARIABLES: CHARACTER*24 CRDATE ! Create date CHARACTER*80 MSG ! Log message CHARACTER*16 PNAME ! Program Name CHARACTER*256 RET_VAL ! Returned value of environment variable INTEGER C, R, N ! Loop indices INTEGER IOUT ! Output file unit number INTEGER JDATE ! Create date YYYYDDD INTEGER JTIME ! Create timeHHMMSS REAL LATIN ! Input lat REAL LONIN ! Input lon REAL X ! x-coordinate for lambert projection REAL Y ! y-coordinate for lambert projection REAL XW, XE ! X-coordinates of grid cell edges REAL YS, YN ! Y-coordinates of grid cell edges C********************************************************************** DATA PNAME / 'SET_SITE_LOC' / DO N = 1, size(SITES) c..for now make sure longitude is negative c LONIN = MIN( SITES(N)%LON, -1.0 * SITES(N)%LON ) LONIN = SITES(N)%LON LATIN = SITES(N)%LAT IF ( M3GRID % GDTYP . eq . 2 ) THEN ! Lambert IF( .NOT. SETLAM( SNGL( M3GRID % P_ALP ), ! first, initialize & SNGL( M3GRID % P_BET ), ! for LL2LAM() & SNGL( M3GRID % P_GAM ), & SNGL( M3GRID % XCENT ), & SNGL( M3GRID % YCENT ) ) ) THEN MSG = 'Lambert projection setup error' CALL M3EXIT( PNAME, 0, 0, MSG, 2 ) ENDIF c..get the x,y coordinates using lat/lon to lambert conversion IF( .NOT. LL2LAM( LONIN, LATIN, X, Y ) ) THEN MSG = 'Lat/Lon to Lambert to conversion error' CALL M3EXIT( PNAME, 0, 0, MSG, 2 ) ENDIF SITES(N)%LAMBX = X SITES(N)%LAMBY = Y c..find the column location SITES(N)%column = 0 DO C = 1, NCOLS3D XW = M3GRID % XORIG + FLOAT( C - 1 ) * M3GRID % XCELL XE = XW + M3GRID % XCELL IF( X .GE. XW .AND. X .LT. XE ) SITES(N)%column = C ENDDO c..find the row location SITES(N)%row = 0 DO R = 1, NROWS3D YS = M3GRID % YORIG + FLOAT( R - 1 ) * M3GRID % YCELL YN = YS + M3GRID % YCELL IF( Y .GE. YS .AND. Y .LT. YN ) SITES(N)%row = R ENDDO ELSEIF ( M3GRID % GDTYP . eq . 6 ) THEN ! Polar Stereographic IF( .NOT. SETPOL( SNGL( M3GRID % P_ALP ), ! first, initialize & SNGL( M3GRID % P_BET ), ! for LL2POL() & SNGL( M3GRID % P_GAM ), & SNGL( M3GRID % XCENT ), & SNGL( M3GRID % YCENT ) ) ) THEN MSG = 'Polar stereographic projection setup error' CALL M3EXIT( PNAME, 0, 0, MSG, 2 ) ENDIF c..get the x,y coordinates using lat/lon to lambert conversion IF( .NOT. LL2POL( LONIN, LATIN, X, Y ) ) THEN MSG = 'Lat/Lon to polar stereographic to conversion error' CALL M3EXIT( PNAME, 0, 0, MSG, 2 ) ENDIF SITES(N)%LAMBX = X SITES(N)%LAMBY = Y c..find the column location SITES(N)%column = 0 DO C = 1, NCOLS3D XW = M3GRID % XORIG + FLOAT( C - 1 ) * M3GRID % XCELL XE = XW + M3GRID % XCELL IF( X .GE. XW .AND. X .LT. XE ) SITES(N)%column = C ENDDO c..find the row location SITES(N)%row = 0 DO R = 1, NROWS3D YS = M3GRID % YORIG + FLOAT( R - 1 ) * M3GRID % YCELL YN = YS + M3GRID % YCELL IF( Y .GE. YS .AND. Y .LT. YN ) SITES(N)%row = R ENDDO ELSEIF ( M3GRID % GDTYP . eq . 7 ) THEN ! Equatorial mercator IF( .NOT. SETEQM( SNGL( M3GRID % P_ALP ), ! first, initialize & SNGL( M3GRID % P_BET ), ! for LL2EQM() & SNGL( M3GRID % P_GAM ), & SNGL( M3GRID % XCENT ), & SNGL( M3GRID % YCENT ) ) ) THEN MSG = 'Equatorial mercator projection setup error' CALL M3EXIT( PNAME, 0, 0, MSG, 2 ) ENDIF c..get the x,y coordinates using lat/lon to equatorial mercator conversion IF( .NOT. LL2EQM( LONIN, LATIN, X, Y ) ) THEN MSG = 'Lat/Lon to equatorial mercator to conversion error' CALL M3EXIT( PNAME, 0, 0, MSG, 2 ) ENDIF SITES(N)%LAMBX = X SITES(N)%LAMBY = Y c..find the column location SITES(N)%column = 0 DO C = 1, NCOLS3D XW = M3GRID % XORIG + FLOAT( C - 1 ) * M3GRID % XCELL XE = XW + M3GRID % XCELL IF( X .GE. XW .AND. X .LT. XE ) SITES(N)%column = C ENDDO c..find the row location SITES(N)%row = 0 DO R = 1, NROWS3D YS = M3GRID % YORIG + FLOAT( R - 1 ) * M3GRID % YCELL YN = YS + M3GRID % YCELL IF( Y .GE. YS .AND. Y .LT. YN ) SITES(N)%row = R ENDDO ELSEIF ( M3GRID % GDTYP . eq . 1 ) THEN ! LAT/LON GRID X = LONIN Y = LATIN SITES(N)%LAMBX = X SITES(N)%LAMBY = Y c..find the column location SITES(N)%column = 0 DO C = 1, NCOLS3D XW = M3GRID % XORIG + FLOAT( C - 1 ) * M3GRID % XCELL XE = XW + M3GRID % XCELL IF( X .GE. XW .AND. X .LT. XE ) SITES(N)%column = C ENDDO c..find the row location SITES(N)%row = 0 DO R = 1, NROWS3D YS = M3GRID % YORIG + FLOAT( R - 1 ) * M3GRID % YCELL YN = YS + M3GRID % YCELL IF( Y .GE. YS .AND. Y .LT. YN ) SITES(N)%row = R ENDDO ELSE MSG = 'Unknown grid type' CALL M3EXIT( PNAME, 0, 0, MSG, 2 ) ENDIF ENDDO RETURN 92000 FORMAT( '! INPUT M3 FILE ', I2, ': ', A ) 92020 FORMAT( '! INPUT SITE FILE: ', A ) 92040 FORMAT( '! SITEID STATE REGION LON LAT COL ROW X Y ' ) 92060 FORMAT( A9, 1X, A2, 1X, A2, F8.3, 1X, F8.3, 1X, I3, 1X, I3, 2F15.2 ) END SUBROUTINE SET_SITE_LOC C function to find the index number of a site Integer Function getSiteNumber( site ) result (siteNo) CHARACTER*(*) :: site Integer :: i siteNo = -1 do i=1,size(SITES) if( TRIM(site) .eq. TRIM(SITES(I)%site_id) ) Then siteNo = i return endif Enddo Write(*,'('' cannot find match for site '',a)') site Return End Function getSiteNumber C function to return the site id from it's index number Character*(20) Function getSiteId( siteNo ) result (siteId) Integer siteNo siteId = '-999' if(siteNo.gt.0 .and. siteNo .le. size(SITES)) Then siteId = TRIM(SITES(siteNo)%site_id) endif Return End Function getSiteId C function to return latitude value for site n Real Function getLatitude( id ) result (latitude) Integer id if(id .le. size(SITES)) Then latitude = SITES(id)%LAT else latitude = -99 endif Return End Function getLatitude C function to return longitude value for site n Real Function getLongitude( id ) result (longitude) Integer id if(id .le. size(SITES)) Then longitude = SITES(id)%LON else longitude = -99 endif Return End Function getLongitude C function to return Lambert X value for site n Real Function getLambertX( id ) result (X) Integer id if(id .le. size(SITES)) Then X = SITES(id)%LAMBX else X = -99 endif Return End Function getLambertX C function to return Lambert Y value for site n Real Function getLambertY( id ) result (Y) Integer id if(id .le. size(SITES)) Then Y = SITES(id)%LAMBY else Y = -99 endif Return End Function getLambertY C function to return time zone value for site n Integer Function getTimeZone( id ) result (tz) Integer id if(id .le. size(SITES)) Then tz = SITES(id)%TZ else tz = 0 endif Return End Function getTimeZone C function to return the grid column for site n Integer Function getColumn( id ) result (column) Integer id if(id.gt.0 .and. id.le.size(SITES)) Then column = SITES(id)%column else column = 0 endif Return End Function getColumn C function to return the grid row for site n Integer Function getRow( id ) result (row) Integer id if(id.gt.0 .and. id.le.size(SITES)) Then row = SITES(id)%row else row = 0 endif Return End Function getRow C function to return the number of sites Integer Function getNumSites() result (nsites) nsites = 0 if( Allocated(SITES) ) nsites = size(SITES) Return End Function getNumSites END MODULE SITE_DATA ================================================ FILE: POST/sitecmp_dailyo3/src/module_spec.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! MODULE SPECIES_DEF C************************************************************************* C C FUNCTION: To define a ozone species variable C C PRECONDITIONS: Species read from environment variables OZONE C C KEY SUBROUTINES/FUNCTIONS CALLED: GET_SPECS C C C************************************************************************* TYPE SPEC_VAR CHARACTER(len=16) OBS_NAME CHARACTER(len=16) OBS_UNITS REAL OBS_FACTOR INTEGER NUMSPEC CHARACTER(len=80) MOD_EXPRESSION CHARACTER(len=16) MOD_UNITS CHARACTER(len=16) MOD_NAME(10) REAL MOD_FACTOR(10) END TYPE SPEC_VAR TYPE ( SPEC_VAR ) SPECIES CONTAINS cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C ROUTINE TO GET SPECIES DEFINITIONS FROM ENVIRONMENT VARIABLES C C VARIABLES NAMES OZONE C CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC SUBROUTINE GET_SPECS IMPLICIT NONE !Extrenal functions INTEGER getParsedNumber REAL ENVREAL ! local variables INTEGER N INTEGER STATUS CHARACTER(LEN=256) RECORD CHARACTER(LEN=256) FIELD SPECIES%OBS_NAME = 'OZONE' SPECIES%OBS_UNITS = ' ' ! GET FACTOR FOR OBSERVED VALUES SPECIES%OBS_FACTOR = ENVREAL('OBS_FACTOR','Multiplier factor for observed ozone', & 1.0, STATUS) ! GET DEFINITION RECORD for OZONE CALL ENVSTR( 'OZONE', 'OZONE Variable definition', '', RECORD, STATUS) IF( STATUS .NE. 0 ) then SPECIES%NUMSPEC = 1 SPECIES%MOD_NAME(1) = 'O3' SPECIES%MOD_FACTOR(1) = 1.00 SPECIES%MOD_EXPRESSION = 'O3' Return Endif !PARSE RECORD if( getParsedNumber(record, ',') .eq. 0 ) Then CALL M3ERR( 'GET_SPECS', 0, 0,'Syntax error on variable definition [OZONE]', .TRUE. ) Endif ! parse field 1 of record to model species Call getParsedField( record, ',', 1, field, .false. ) SPECIES%MOD_EXPRESSION = field Call parseModelSpecies(field, status) if( status .ne. 0 ) Then CALL M3ERR( 'GET_SPECS', 0, 0,'Syntax error on variable definition [OZONE]', .TRUE. ) Endif ! parse field 4 of record to get model_units Call getParsedField( record, ',', 2, field, .false. ) if( LEN_TRIM(field) .gt. 0 ) then SPECIES%MOD_UNITS = field Else SPECIES%MOD_UNITS = ' ' Endif END SUBROUTINE GET_SPECS C************************************************************************* C routine to parse model species from character record C************************************************************************* SUBROUTINE parseModelSpecies(record, status) IMPLICIT NONE !Extrenal functions INTEGER getParsedNumber !arguments CHARACTER(LEN=256) RECORD INTEGER STATUS ! local variables INTEGER N CHARACTER(LEN=16) VARNAME CHARACTER(LEN=256) FIELD CHARACTER(LEN=20) factorFld CHARACTER(LEN=20) speciesFld ! set status flag to zero status = 0 ! if record is blank, set NUMSPEC to zero and return if( record.eq.' ' ) Then SPECIES%NUMSPEC = 0 return Endif ! find number of model species for variable NSPECVAR SPECIES%NUMSPEC = getParsedNumber(record, '+-') ! if no model species defined, return with error status if( SPECIES%NUMSPEC .eq. 0 ) goto 50 Do N=1,SPECIES%NUMSPEC Call getParsedField( record, '+-', N, field, .true. ) ! determine if spec field has a factor if( getParsedNumber(field, '*') .gt. 1 ) then Call getParsedField( field, '*', 1, factorFld, .true. ) Call getParsedField( field, '*', 2, speciesFld, .false. ) Else ! check first character for sign if( Index('+-',field(1:1)) .gt.0 ) then factorFld = field(1:1) // '1.0' speciesFld = field(2:) Else factorFld = '1.0' speciesFld = field Endif Endif ! speciesFld and factorFld should be defined at this point Call leftTrim(speciesFld) SPECIES%MOD_NAME(N) = TRIM(speciesFld) Read(factorFld,'(BN,f16.0)', err=50) SPECIES%MOD_FACTOR(N) EndDo Return 50 status = 1 return END SUBROUTINE parseModelSpecies END MODULE SPECIES_DEF ================================================ FILE: POST/sitecmp_dailyo3/src/module_tstep.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! MODULE TIME_STEP C************************************************************************* C C FUNCTION: To define a time class C C PRECONDITIONS: None C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Prototype created by Jerry Gipson, July, 1999 C C************************************************************************* INTEGER :: NSTEPS INTEGER , ALLOCATABLE :: STEP_DATE( : ) INTEGER , ALLOCATABLE :: STEP_TIME( : ) INTEGER , ALLOCATABLE :: STEP_FILE( : ) INTEGER :: TIMESTEP CONTAINS SUBROUTINE GET_TSTEPS C************************************************************************* C C FUNCTION: Set-up time step sequence for reading files and writing C output records C C PRECONDITIONS: None C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Prototype created by Jerry Gipson, July, 1999 C C************************************************************************* USE M3FILES USE M3UTILIO IMPLICIT NONE C..INCLUDE FILES: C INCLUDE SUBST_IOPARMS ! IOAPI parameters C INCLUDE SUBST_IOFDESC ! IOAPI file description C INCLUDE SUBST_IODECL ! IOAPI declarations C..ARGUMENTS: None C..PARAMETERS: None C..EXTERNAL FUNCTIONS: C INTEGER SECSDIFF ! Gets difference between two times in seconds C..SAVED LOCAL VARIABLES: None C..SCRATCH LOCAL VARIABLES: CHARACTER*80 MSG ! Log message CHARACTER*16 PNAME ! Program Name INTEGER D0, D1 ! Differences betwwen two times, seconds INTEGER INDX ! Array location to insert new index INTEGER MXSTEPS ! max possible no. of time steps INTEGER N, NFL, NS, N2 ! Loop indices INTEGER JDATE ! Current date INTEGER JTIME ! Current time C********************************************************************** DATA PNAME / 'GET_TSTEPS' / cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Get the maximum number of time steps cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc MXSTEPS = 0 DO N = 1, N_M3FILES IF( .NOT. DESC3( M3_FLNAME( N ) ) ) THEN CALL M3EXIT( PNAME, 0, 0, 'Could not get ' // & M3_FLNAME( N ) // ' file description', & XSTAT1 ) ENDIF MXSTEPS = MXSTEPS + MXREC3D ENDDO ALLOCATE( STEP_DATE( MXSTEPS ), STEP_TIME( MXSTEPS ), & STEP_FILE( MXSTEPS ) ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Load all steps from first file cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF( .NOT. DESC3( M3_FLNAME( 1 ) ) ) THEN CALL M3EXIT( PNAME, 0, 0, 'Could not get ' // & M3_FLNAME( 1 ) // ' file description', & XSTAT1 ) ENDIF JDATE = SDATE3D JTIME = STIME3D TIMESTEP = TSTEP3D NSTEPS = MXREC3D DO NS = 1, NSTEPS STEP_DATE( NS ) = JDATE STEP_TIME( NS ) = JTIME STEP_FILE( NS ) = 1 CALL NEXTIME( JDATE, JTIME, TSTEP3D ) ENDDO IF( N_M3FILES .EQ. 1 ) RETURN cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Insert non-duplicative time steps from remaining files in the array cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc MSG = 'Multiple CTM Concentration files being used' CALL M3MESG( MSG ) MSG = 'Duplicate time steps will be eliminated' CALL M3MESG( MSG ) DO NFL = 2, N_M3FILES IF ( .NOT. DESC3( M3_FLNAME( NFL ) ) ) THEN CALL M3EXIT( PNAME, 0, 0, & 'Could not get ' // M3_FLNAME( NFL ) // & ' file description', XSTAT1 ) ENDIF JDATE = SDATE3D JTIME = STIME3D DO NS = 1, MXREC3D DO N = 1, NSTEPS INDX = 0 D1 = SECSDIFF( STEP_DATE( N ), STEP_TIME( N ), & JDATE, JTIME ) IF( N .EQ. 1 .AND. D1 .LT. 0 ) THEN INDX = 1 ELSEIF( N .EQ. NSTEPS .AND. D1 .GT. 0 ) THEN INDX = NSTEPS + 1 ELSEIF( N .GT. 1 ) THEN D0 = SECSDIFF( STEP_DATE( N - 1 ), STEP_TIME( N - 1 ), & JDATE, JTIME ) IF( D0 .GT. 0 .AND. D1 .LT. 0 ) INDX = N ENDIF IF( INDX .GT. 0 ) THEN DO N2 = NSTEPS, INDX, -1 STEP_DATE( N2 + 1 ) = STEP_DATE( N2 ) STEP_TIME( N2 + 1 ) = STEP_TIME( N2 ) ENDDO STEP_DATE( INDX ) = JDATE STEP_TIME( INDX ) = JTIME STEP_FILE( INDX ) = NFL NSTEPS = NSTEPS + 1 ENDIF ENDDO IF( INDX .EQ. 0 ) WRITE( LOGUNIT, 93000) JDATE, JTIME, & M3_FLNAME( NFL ) CALL NEXTIME( JDATE, JTIME, TSTEP3D ) ENDDO ENDDO RETURN 93000 FORMAT( 10X, 'Duplicate time step ignored: ', I7, 1X, I6, 1X, A ) END SUBROUTINE GET_TSTEPS END MODULE TIME_STEP ================================================ FILE: POST/sitecmp_dailyo3/src/parser.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C*********************************************************************** C routines for parsing a delimited text record C*********************************************************************** C Return the number of fields in record INTEGER FUNCTION getNumberOfFields( record, delimiter ) result( nfields ) CHARACTER*(*) record CHARACTER*(1) delimiter Integer getFieldCount Integer i ! if delimiter is space, use getFieldCount function if( delimiter.eq.' ') then nfields = getFieldCount(record, delimiter) return endif nfields = 1 Do i=1, LEN(record) if( record(i:i) .eq. delimiter ) nfields = nfields+1 EndDo Return End C Return the number of parsed fields in record C this method considers duplicate delimiters as one INTEGER FUNCTION getFieldCount(record, delimiter) & result(nfields) CHARACTER*(*) record CHARACTER*(*) delimiter Integer i Logical infield Logical isDel nfields = 0 infield = .false. Do i=1,LEN(record) isDel = (record(i:i).eq.delimiter) ! check for start of field if( .NOT.infield .and. .NOT.isDel ) then nfields = nfields+1 infield = .true. cycle endif ! check for end of field if( infield .and. isDel ) then infield = .false. cycle endif enddo Return end C Return the nth field of record Subroutine getField( record, delimiter, nth, field ) CHARACTER*(*) record CHARACTER*(1) delimiter Integer nth CHARACTER*(*) field Integer nfields Integer i, pos1 ! if delimiter is space, use method 2 if( delimiter.eq.' ' ) then call getField2( record, delimiter, nth, field ) call RightTrim(field) return endif pos1 = 1 nfields = 0 field = '' Do i=1, LEN(record) if( record(i:i) .eq. delimiter ) then nfields = nfields+1 if( nfields .eq. nth ) then if(pos1.lt.i) field = record(pos1:i-1) call RightTrim(field) return Endif pos1 = i+1 Endif Enddo nfields = nfields+1 ! check if last field if( nfields .eq. nth ) then field = record(pos1:) Endif Call RightTrim(field) Return End C Return the nth field in record (method 2) C this method considers duplicate delimiters as one C Subroutine getField2( record, delimiter, nth, field ) CHARACTER*(*) record CHARACTER*(*) delimiter Integer nth CHARACTER*(*) field Integer nfields Integer i, pos1 Logical infield Logical isDel nfields = 0 field = '' infield = .false. Do i=1,LEN(record) isDel = (record(i:i).eq.delimiter) ! check for start of field if( .NOT.infield .and. .NOT.isDel ) then nfields = nfields+1 pos1 = i infield = .true. endif ! check for end of field if( infield .and. isDel ) then infield = .false. endif ! if end of nth field, return if( nfields.eq.nth .and. .not.infield ) then if(pos1.lt.i) field = record(pos1:i-1) return endif enddo ! check for last field if( nfields.eq.nth ) field = record(pos1:) Return End C Return the number of parsed fields in record INTEGER FUNCTION getParsedNumber( record, delimiter ) result( nfields ) CHARACTER*(*) record CHARACTER*(*) delimiter Integer i nfields = 1 Do i=1, LEN(record) if( index(delimiter,record(i:i)) .gt. 0 ) nfields = nfields+1 EndDo Return End C Return the nth field of record Subroutine getParsedField( record, delimiter, nth, field, includeDel ) CHARACTER*(*) record CHARACTER*(*) delimiter Integer nth CHARACTER*(*) field Logical includeDel Integer nfields Integer i, pos1 pos1 = 1 nfields = 0 field = '' Do i=1, LEN(record) if( index(delimiter,record(i:i)) .gt. 0 ) then nfields = nfields+1 if( nfields .eq. nth ) then if( pos1.lt.i ) field = record(pos1:i-1) return Endif ! define starting point of next field pos1 = i+1 if( includeDel ) pos1 = i Endif Enddo nfields = nfields+1 ! check if last field if( nfields .eq. nth ) then field = record(pos1:) Endif Return End C**************************************************************************** C routine to remove leading blank spaces from Character String C**************************************************************************** Subroutine LeftTrim( STRING ) CHARACTER*(*) STRING Integer I Do I=1,LEN(STRING) if(STRING(I:I) .ne. CHAR(32)) Then STRING = STRING(I:) RETURN EndIf EndDo Return End Subroutine LeftTrim C**************************************************************************** C routine to remove trailing white spaces from Character String C**************************************************************************** Subroutine RightTrim( STRING ) CHARACTER*(*) STRING Integer I Do I=LEN(STRING),1,-1 if(STRING(I:I) .lt. CHAR(32)) STRING(I:I) = CHAR(32) if(STRING(I:I) .gt. CHAR(32)) Exit EndDo Return End Subroutine RightTrim C**************************************************************************** C routine to remove quotation marks from character field C**************************************************************************** Subroutine rmQuots( string ) Implicit none ! arguments Character*(*) string Integer last, i call LeftTrim(string) last = LEN_TRIM(string) ! check for blank string if( last.le.0 ) return ! if no quot marks, return if( string(1:1).ne.'"' .and. string(last:last).ne.'"') return ! remove last quot mark string(last:last) = ' ' do i=1,last-1 string(i:i) = string(i+1:i+1) enddo Return End Subroutine rmQuots C**************************************************************************** C routine to remove commas within quotation marks C**************************************************************************** Subroutine rmCommas( string ) Implicit none ! arguments Character*(*) string Integer last, i Logical infield ! if no quot marks, return if( index(string, '"').le.0 ) return call LeftTrim(string) last = LEN_TRIM(string) ! check for blank string if( last.le.0 ) return infield = .false. do i=1,last if(string(i:i).eq.'"') infield = .NOT.infield if( infield .and. string(i:i).eq.',') string(i:i) = ' ' enddo Return End Subroutine rmCommas C*********************************************************************** C Routine to change character string to upper characters C*********************************************************************** SUBROUTINE UCASE ( STR ) IMPLICIT NONE CHARACTER STR*( * ) INTEGER I INTEGER K DO I = 1, LEN(STR) K = ICHAR(STR(I:I)) IF ( ( K .GE. 97 ) .AND. ( K .LE. 122 ) ) & STR( I:I ) = CHAR( K - 32 ) END DO RETURN END SUBROUTINE UCASE ================================================ FILE: POST/sitecmp_dailyo3/src/process.F ================================================ SUBROUTINE PROCESS C************************************************************************* C C code for comparing CASTNET data with model data C C C############################################################# C# Input files C############################################################# C C ioapi input files containing VNAMES (Max of 10 files) C set M3_FILE_1=example1.ioapi C set M3_FILE_2=example2.ioapi C set M3_FILE_3 C C C############################################################# C# Output files C############################################################# C C output table (delimited text file importable to Excel) C set OUT_TABLE=outTable.txt C C************************************************************************* USE M3FILES USE ENV_VARS USE GRID_DATA USE TIME_STEP USE SITE_DATA USE SPECIES_DEF USE M3UTILIO IMPLICIT NONE C..INCLUDE FILES: C INCLUDE SUBST_IOPARMS ! IOAPI parameters C INCLUDE SUBST_IOFDESC ! IOAPI file description C INCLUDE SUBST_IODECL ! IOAPI declarations C..ARGUMENTS: None C..PARAMETERS: None C..EXTERNAL FUNCTIONS: C LOGICAL ISDSTIME C INTEGER TIME2SEC C INTEGER SECSDIFF C INTEGER JULIAN C Character*10 HHMMSS Character*16 date2Str Character*16 date2Str_csv Character*16 real2Str Character*16 int2Str C..SAVED LOCAL VARIABLES: None C..SCRATCH LOCAL VARIABLES: CHARACTER*16 PNAME ! Program Name CHARACTER*80 MSG ! Error message CHARACTER*256 RECORD ! input buffer CHARACTER*256 OUTRECORD ! output buffer CHARACTER*256 FIELD ! field buffer CHARACTER*16 CELLCOLUMN ! field for cell column value CHARACTER*16 CELLROW ! field for cell row value CHARACTER*1 delimiter ! field delimiter INTEGER n, i, j, index, in, out, siteNo CHARACTER*2560 HEADER1 ! first header line (variable names) CHARACTER*2560 HEADER2 ! second header line CHARACTER*2560 HEADER3 ! third header line (units) CHARACTER*2560 tpRecord ! time period record Character*20 siteid, siteid2 Character*2 cpoc Integer poc, poc2 REAL values(32), values2(24) Integer iyear, imonth, iday, status, julian1 Integer iyear2, imonth2, iday2, status2, julian2 Integer stepsec, periodsec, neededsteps, istep1, istep2 Integer startDate, startTime, endDate, endTime, tz Integer recDate Real lat, lon, lambX, lambY Real valmax, varmax, val8max, var8max Real valSum,varSum Real valmin,varmin Real varmax9, var8max9 Real w126_mod, w126_obs Integer valcount, varcount Real vardata(32,9) ! species data (tsteps, cells) Integer hrMaxVal, hrMaxVar, hrMax9Var Integer hr8MaxVal, hr8MaxVar, hr8Max9Var Integer valcnt, varcnt Integer nfields Character*16 :: fields(28) LOGICAL DATACHECK C********************************************************************** DATA PNAME / 'PROCESS' / DATA delimiter / ',' / C**************************************************************** C set units for model species if( SPECIES%MOD_UNITS .eq. '' ) then Call get_units( SPECIES%MOD_NAME(1), SPECIES%MOD_UNITS ) Endif varMin = 0.06 if( INDEX(SPECIES%MOD_UNITS,'ppb') .gt. 0 ) varMin = 1000.0 * varMin SPECIES%OBS_UNITS = SPECIES%MOD_UNITS valMin = varMin C**************************************************************** C open input and output table files C**************************************************************** in = 20 out = 30 open(unit=in, file=IN_TABLE, status='old', err=900) open(unit=out, file=OUT_TABLE, err=901) C********************************************************************* C* build headers with variable names and units to headers and write to output C********************************************************************* ! build time period record if( START_DATE.gt.0 .and. END_DATE.gt.0 ) then tpRecord = ' Output generated for period ' // TRIM(date2Str(START_DATE)) tpRecord = TRIM(tpRecord) // ' ' // HHMMSS(START_TIME) tpRecord = TRIM(tpRecord) // ' thru ' // TRIM(date2Str(END_DATE)) tpRecord = TRIM(tpRecord) // ' ' // HHMMSS(END_TIME) else tpRecord = ' Output generated for all observed readings' Endif header1 = 'SiteId,POCode,State,County,Elevation,Latitude,Longitude,' if( LAMBXY ) header1 = TRIM(header1) // 'Lambert-X,LAMBERT-Y,' header1 = TRIM(header1) // 'Column,Row,Time On,Time Off,' header1 = TRIM(header1) // 'SMM,SDD,SYYYY,EMM,EDD,EYYYY,' header1 = TRIM(header1) // 'O3_1hrmax_ob,O3_1hrmax_mod,' header1 = TRIM(header1) // 'O3_1hrmax_9cell_ob,O3_1hrmax_9cell_mod,' header1 = TRIM(header1) // 'O3_1hrmax_time_ob,O3_1hrmax_time_mod,' header1 = TRIM(header1) // 'O3_8hrmax_ob,O3_8hrmax_mod,' header1 = TRIM(header1) // 'O3_8hrmax_9cell_ob,O3_8hrmax_9cell_mod,' header1 = TRIM(header1) // 'O3_8hrmax_time_ob,O3_8hrmax_time_mod,' header1 = TRIM(header1) // 'W126_ob,W126_mod,SUM06_ob,SUM06_mod' header2 = ',,,,(m),(deg),(deg),,,mm/dd/yyyy hh:mm,mm/dd/yyyy hh:mm' if( LAMBXY ) header2 = ',,,,(m),(deg),(deg),(meters),(meters),,,mm/dd/yyyy hh:mm,mm/dd/yyyy hh:mm' header2 = TRIM(header2) // ',MM,DD,YYYY,MM,DD,YYYY' header2 = TRIM(header2) // ',' // TRIM(SPECIES%OBS_UNITS) header2 = TRIM(header2) // ',' // SPECIES%MOD_UNITS header2 = TRIM(header2) // ',' // TRIM(SPECIES%OBS_UNITS) header2 = TRIM(header2) // ',' // SPECIES%MOD_UNITS header2 = TRIM(header2) // ',hour,hour' header2 = TRIM(header2) // ',' // TRIM(SPECIES%OBS_UNITS) header2 = TRIM(header2) // ',' // SPECIES%MOD_UNITS header2 = TRIM(header2) // ',' // TRIM(SPECIES%OBS_UNITS) header2 = TRIM(header2) // ',' // SPECIES%MOD_UNITS header2 = TRIM(header2) // ',hour,hour' header2 = TRIM(header2) // ',ppm-hours,ppm-hours' header2 = TRIM(header2) // ',ppm-hours,ppm-hours' header3 = 'id,,,,,,,,,,,,,,,,,observed,modeled,observed,modeled,observed,'// & 'modeled,observed,modeled,'// & 'observed,modeled,observed,modeled,observed,modeled,observed,modeled' if( LAMBXY ) header3 = & 'id,,,,,,,,,,,,,,,,,,,observed,modeled,observed,modeled,observed,'// & 'modeled,observed,modeled,'// & 'observed,modeled,observed,modeled,observed,modeled,observed,modeled' c Write(out,'(''Maximum Observed and Modeled Ozone Values'',/)') c Write(out,'(a,/)') TRIM(tpRecord) c Write(out,'(''Maximum Observed and Modeled Ozone Values'')') c Write(out,'(a)') TRIM(tpRecord) Write(out,'(''Modeled values read from file:'',a)') TRIM(M3FILE) c Write(out,'(''Observed values read from file:'',a,/)') TRIM(IN_TABLE) Write(out,'(''Observed values read from file:'',a)') TRIM(IN_TABLE) Write(out,'(a)') TRIM(tpRecord) c Write(out,'(a)') TRIM(header1) Write(out,'(a)') TRIM(header2) Write(out,'(a)') TRIM(header3) Write(out,'(a)') TRIM(header1) C********************************************************************** C* read each record, get site and time period C********************************************************************** ! read values for day 1 Call readInput(in, siteid, poc, iyear, imonth, iday, values, status) if(status.lt.0) goto 200 julian1 = JULIAN(iyear, imonth, iday) do i=1,24 if (values(i).ge.0) then values(i) = SPECIES%OBS_FACTOR * values (i) endif enddo !i Do While(.true.) DATACHECK = (status.eq.0) ! read next day and append 8 hours to day 1 Call readInput(in, siteid2, poc2, iyear2, imonth2, iday2, values2, status2) julian2 = JULIAN(iyear2, imonth2, iday2) do i=1,24 if (values2(i).ge.0) then values2(i) = SPECIES%OBS_FACTOR * values2 (i) endif enddo !i if(status2.eq.0 .and. siteid2.eq.siteid .and. poc2.eq.poc .and. * julian1+1.eq.julian2 )then do i=1,8 values(24+i) = values2(i) enddo else do i=1,8 values(24+i) = -999 enddo endif valcnt = 0 do i=1,24 if (values(i).ge.0) then valcnt = valcnt + 1 endif enddo !i if (valcnt .eq. 0) DATACHECK = .FALSE. siteno = getSiteNumber( siteid ) ! check if site is located in grid domain if(getColumn(siteno).eq.0 .OR. getRow(siteno).eq.0) DATACHECK = .FALSE. if( DATACHECK .and. siteno.gt.0 ) then lat = getLatitude( siteno ) lon = getLongitude( siteno ) lambX = getLambertX( siteno ) lambY = getLambertY( siteno ) tz = getTimeZone( siteno ) Write(cellColumn,'(i5)') getColumn(siteno) Call LeftTrim(cellColumn) Write(cellRow,'(i5)') getRow(siteno) Call LeftTrim(cellRow) ! compute date of input record recDate = 1000*iyear + JULIAN( iyear, imonth, iday ) ! find start and end dates and times startDate = recDate startTime = 0 ! adjust timezone for day light saving only if APPLYDLS is true if( APPLYDLS .AND. ISDSTIME( startDate ) ) tz = tz-1 ! adjust starting date and time for timezone CALL NEXTIME( startDate, startTime, 10000*tz ) endDate = startDate endTime = startTime CALL NEXTIME( endDate, endTime, 235959 ) ! check if dates are within time window if( START_DATE .gt. 0 ) Then if( startDate .lt. START_DATE ) DATACHECK = .FALSE. if( startDate .eq. START_DATE .and. startTime .lt. START_TIME) DATACHECK = .FALSE. Endif if( END_DATE .gt. 0 ) Then if( startDate .gt. END_DATE ) DATACHECK = .FALSE. Endif if( DATACHECK ) then Call startEndSteps(startDate, startTime, endDate, endTime, istep1, istep2) if( istep1.lt.0 .or.istep2.lt.0 ) DATACHECK = .FALSE. Endif if( DATACHECK ) then stepsec = TIME2SEC( TIMESTEP ) periodsec = SECSDIFF( startDate, startTime, endDate, endTime ) neededSteps = periodsec / stepsec if( neededSteps .gt. istep2-istep1+1 ) then Write(*,'(''**Warning** not all values found for day '',i8)') startDate endif EndIF ! Read values for SPECIES if( DATACHECK ) then vardata = 0 Call getSpeciesValue(siteNo, Species, istep1, istep2+8, vardata ) ! find max value over 24 hour period valmax = -99.0 varmax = -99.0 hrMaxVal = -99 hrMaxVar = -99 valcnt = 0 varcnt = 0 Do i=1,24 if( values(i) .ge. 0 ) valcnt = valcnt+1 if( values(i) .gt. valmax ) then valmax = values(i) hrMaxVal = i - 1 endif if( vardata(i,5) .ge. 0 ) varcnt = varcnt+1 if( vardata(i,5) .gt. varmax ) then varmax = VARDATA(i,5) hrMaxVar = i - 1 endif Enddo ! check for incomplete days if( MISS_CHECK ) then if( valcnt.lt.18 ) valmax = -99.0 if( valcnt.lt.18 ) hrMaxVal = -99 if( varcnt.lt.18 ) varmax = -99.0 if( varcnt.lt.18 ) hrMaxVar = -99 endif Call get8hourMax(values, val8max, hr8MaxVal, MISS_CHECK) Call get8hourMax(vardata(:,5), var8max, hr8MaxVar, MISS_CHECK) Call getMax9(vardata, varmax9, hrMax9var) Call get8hrMax9(vardata, var8max9, hr8Max9var, MISS_CHECK) Call getW126(values, SPECIES%OBS_UNITS, w126_obs) Call getW126(vardata(:,5), SPECIES%MOD_UNITS, w126_mod) ! find sum06 value, sum over values (8am-8pm) valSum = 0.0 varSum = 0.0 valCnt = 0 varCnt = 0 Do i=8,20 if( values(i) .ge. 0.0 ) valCnt = valCnt + 1 if( vardata(i,5) .ge. 0.0 ) varCnt = varCnt + 1 if( values(i) .ge. valMin ) valSum = valSum + values(i) if( vardata(i,5) .ge. varMin ) varSum = varSum + vardata(i,5) Enddo ! check for missing values if( valCnt .lt. 8 ) valSum = -99.0 if( varCnt .lt. 8 ) varSum = -99.0 if( INDEX(SPECIES%MOD_UNITS,'ppb') .gt. 0 ) then !convert sum06 back to ppm-hours for output if (valSum.ge.0.) valSum = valSum / 1000. if (varSum.ge.0.) varSum = varSum / 1000. endif !build output fields if( LAMBXY ) then nfields = 26 fields(1) = real2Str(lat, .false.) fields(2) = real2Str(lon, .false.) fields(3) = real2Str(lambX, .false.) fields(4) = real2Str(lambY, .false.) fields(5) = cellColumn fields(6) = cellRow write (fields(7),'(a,a)') Trim(date2Str(recDate)),' 00:00' write (fields(8),'(a,a)') Trim(date2Str(recDate)),' 23:59' write (fields(9),'(a)') Trim(date2Str_csv(recDate)) write (fields(10),'(a)') Trim(date2Str_csv(recDate)) fields(11) = real2Str(valmax, .true.) fields(12) = real2Str(varmax, .true.) fields(13) = real2Str(valmax, .true.) fields(14) = real2Str(varmax9, .true.) fields(15) = int2Str(hrMaxVal, .true.) fields(16) = int2Str(hrMaxVar, .true.) fields(17) = real2Str(val8max, .true.) fields(18) = real2Str(var8max, .true.) fields(19) = real2Str(val8max, .true.) fields(20) = real2Str(var8max9, .true.) fields(21) = int2Str(hr8MaxVal, .true.) fields(22) = int2Str(hr8MaxVar, .true.) fields(23) = real2Str(w126_obs, .true.) fields(24) = real2Str(w126_mod, .true.) fields(25) = real2Str(valSum, .true.) fields(26) = real2Str(varSum, .true.) else nfields = 24 fields(1) = real2Str(lat, .false.) fields(2) = real2Str(lon, .false.) fields(3) = cellColumn fields(4) = cellRow write (fields(5),'(a,a)') Trim(date2Str(recDate)),' 00:00' write (fields(6),'(a,a)') Trim(date2Str(recDate)),' 23:59' write (fields(7),'(a)') Trim(date2Str_csv(recDate)) write (fields(8),'(a)') Trim(date2Str_csv(recDate)) fields(9) = real2Str(valmax, .true.) fields(10) = real2Str(varmax, .true.) fields(11) = real2Str(valmax, .true.) fields(12) = real2Str(varmax9, .true.) fields(13) = int2Str(hrMaxVal, .true.) fields(14) = int2Str(hrMaxVar, .true.) fields(15) = real2Str(val8max, .true.) fields(16) = real2Str(var8max, .true.) fields(17) = real2Str(val8max, .true.) fields(18) = real2Str(var8max9, .true.) fields(19) = int2Str(hr8MaxVal, .true.) fields(20) = int2Str(hr8MaxVar, .true.) fields(21) = real2Str(w126_obs, .true.) fields(22) = real2Str(w126_mod, .true.) fields(23) = real2Str(valSum, .true.) fields(24) = real2Str(varSum, .true.) endif write(cpoc,'(i0)') poc ! write output record to out table Write(out,'(70a)') Trim(siteid),delimiter,Trim(cpoc), & delimiter,trim(SITES(siteno)%state), & delimiter,trim(SITES(siteno)%county), & delimiter,trim(real2Str(SITES(siteno)%elev, .true.)), & (delimiter,Trim(fields(i)), i=1,nfields) Write(*,'(''values for site '',a,'' written for '',a)') & Trim(siteid), Trim(fields(5)) Endif Else If(siteno .le. 0 ) then Write(*,'(''Site not found in SITE_FILE: '',a)') Trim(siteid) endif EndIf ! exit loop at eof if( status2.lt.0 ) go to 200 ! copy values from day2 to day1 siteid = siteid2 poc = poc2 iyear = iyear2 imonth = imonth2 iday = iday2 julian1 = julian2 status = status2 do i=1,24 values(i) = values2(i) enddo EndDo 200 continue RETURN 900 write(*,'('' Cannot open input table file ['',a,'']'')') TRIM(IN_TABLE) return 901 write(*,'('' Cannot open output table file ['',a,'']'')') TRIM(OUT_TABLE) return END C**************************************************************************** C routine to find the starting and ending time steps C**************************************************************************** Subroutine startEndSteps(startDate, startTime, endDate, endTime, istep1, istep2) USE TIME_STEP INTEGER startDate, startTime, endDate, endTime, istep1, istep2 INTEGER I istep1 = -1 istep2 = -1 ! find starting step Do I=1,NSTEPS if( STEP_DATE(I).gt.startDate ) istep1=I if( STEP_DATE(I).eq.startDate .AND. STEP_TIME(I).ge.startTime ) istep1=I if(istep1.gt.0) EXIT EndDo ! if starting point not found return -1's if(istep1.lt.0) return istep2 = NSTEPS ! find ending step Do I=istep1,NSTEPS if( STEP_DATE(I).gt.endDate ) EXIT if( STEP_DATE(I).eq.endDate .AND. STEP_TIME(I).gt.endTime ) EXIT istep2=I EndDo Return End Subroutine startEndSteps C**************************************************************************** C routine to get values for species from ioapi files for time period C**************************************************************************** Subroutine getSpeciesValue(siteNo, Spec, istep1, istep2, values) USE ENV_VARS USE SITE_DATA USE SPECIES_DEF USE TIME_STEP IMPLICIT NONE C..ARGUMENTS: INTEGER siteNo TYPE ( SPEC_VAR ) Spec INTEGER istep1, istep2 Real values(32,9) C..Local variables Real specValues(32,9) Real*8 specValue Integer nvalues, nv Integer n, i, c Integer lastStep C.. allocate array to store values read from ioapi files nvalues = istep2 - istep1 + 1 lastStep = istep2 C.. check if last step is past end of data if(istep2.gt.NSTEPS) then ! initialize values past end of data to -99 nv = NSTEPS - istep1 + 1 if(nv.lt.0) nv=0 Do i=nv+1,nvalues values(i,:) = -99.0 enddo ! set the number of values to read lastStep = NSTEPS nvalues = nv endif C.. initialize specValue to zero specValue = 0.0 C.. read each model species from file and update values Do n=1,spec%NUMSPEC Call getValues(siteNo, spec%MOD_NAME(n), istep1, lastStep, specValues) ! update each cell 1-9 do c = 1,9 ! update values array Do i=1,nvalues ! adjust value by factor if ( (values(i,c) .ge. 0.) .and. (specValues(i,c) .ge. 0.) )then values(i,c) = values(i,c) + specValues(i,c) * spec%MOD_FACTOR(n) endif Enddo EndDo EndDo Return End Subroutine getSpeciesValue C**************************************************************************** C routine to read values from files at site for variable for time period C**************************************************************************** SUBROUTINE getValues(siteNo, VARNAME, istep1, istep2, VALUES) USE SITE_DATA USE M3FILES USE ENV_VARS USE GRID_DATA USE TIME_STEP USE M3UTILIO IMPLICIT NONE C..INCLUDE FILES: C INCLUDE SUBST_IOPARMS ! IOAPI parameters C INCLUDE SUBST_IOFDESC ! IOAPI file description C INCLUDE SUBST_IODECL ! IOAPI declarations C..ARGUMENTS: INTEGER siteNo Character*(*) VARNAME INTEGER istep1, istep2 REAL VALUES(32,9) C..SCRATCH LOCAL VARIABLES: INTEGER N, I, J, C, R, C1, R1, S INTEGER row, col CHARACTER*16 PNAME ! Program Name CHARACTER*80 MSG ! Error message REAL, Allocatable, Save :: GRIDVAL(:,:) REAL, Allocatable, Save :: SITEVAL(:,:,:) LOGICAL, Save :: LFIRST DATA LFIRST / .true. / DATA PNAME / 'SITE_EXTRACT' / ! on first time called, allocate memory for GRIDVAL array if( LFIRST ) then Allocate ( GRIDVAL( M3GRID % NCOLS, M3GRID % NROWS ) ) Allocate ( SITEVAL( size(SITES), NSTEPS , 9 ) ) SITEVAL = -999. LFIRST = .false. do N = 1, NSTEPS !number of time steps across all model files from module_tstep IF( .NOT. READ3( M3_FLNAME(STEP_FILE(N)), VARNAME, 1, STEP_DATE(N), & STEP_TIME(N), GRIDVAL ) ) THEN MSG = 'Could not read input Models-3 file ' // M3_FLNAME(STEP_FILE(N)) CALL M3WARN( PNAME, STEP_DATE(N), STEP_TIME(N), MSG) ELSE do S = 1, size(SITES) row = getRow(S) col = getColumn(S) if ( ( row .ne. 0 ) .and. ( col .ne. 0 ) ) then j = 0 Do c = col-1,col+1 Do r = row-1, row+1 j = j+1 ! check for edge of grid c1 = c r1 = r if(c1.le.0 .or. c1.gt.NCOLS3D) c1 = col if(r1.le.0 .or. r1.gt.NROWS3D) r1 = row SITEVAL(S,N,J) = GRIDVAL( c1, r1 ) endDo ! row loop enddo ! column loop endif ! site within domain enddo !S ENDIF enddo !N EndIf !first time ! loop to read each value in time period I = 0 Do N=istep1, istep2 I = I + 1 do J = 1, 9 VALUES(I,J) = SITEVAL(siteno,n,j) endDo ! J enddo ! N Return End SUBROUTINE getValues C**************************************************************************** C routine to compute the 8 hour max from array of hourly values C**************************************************************************** Subroutine get8hourMax(values,sumMax,hourMax,missChk) USE ENV_VARS Implicit None ! arguments Real values(*) Real sumMax Integer hourMax Logical missChk Integer i,j,count,tcount Real sum tcount = 0 summax = -99.0 hourMax = -99 if ( HOURS_8HRMAX .eq. 24 ) then ! use 24 8hr values do i=1,24 sum = 0 count = 0 do j=1,8 if( values(i+j-1).ge.0.0 ) then count = count + 1 sum = sum + values(i+j-1) endif enddo if( count .ge. 6 ) then tcount = tcount + 1 sum = sum / count if( sum .gt. summax ) then summax = sum hourMax = i - 1 endif Endif enddo if( missChk .and. tcount.lt.18 ) then !require 18/24 summax = -99.0 hourMax = -99 endif else !use only 17 8hr values, from 7 am to 11 pm do i=8,24 sum = 0 count = 0 do j=1,8 if( values(i+j-1).ge.0.0 ) then count = count + 1 sum = sum + values(i+j-1) endif enddo if( count .ge. 6 ) then tcount = tcount + 1 sum = sum / count if( sum .gt. summax ) then summax = sum hourMax = i - 1 endif Endif enddo if( missChk .and. tcount.lt.13 ) then !require 13/17 summax = -99.0 hourMax = -99 endif endif return End Subroutine get8hourMax C**************************************************************************** C routine to compute the W126 value from array of hourly values C**************************************************************************** Subroutine getW126(values, units, w126) Implicit None ! arguments Real values(*) Character*(*) units Real w126 Integer i,count Real ozone Real sum Real factor Character*(10) lunits count = 0 sum = 0.0 w126 = -999.0 factor = 1.0 ! units = ppm ! if units contain ppb, then set factor to 0.001 lunits = TRIM(units) Call UCASE(lunits) if( INDEX(lunits,'PPB') .gt. 0 ) factor = 0.001 do i=8,19 ! go from 8am to 7pm local time if( values(i).ge.0.0 ) then ozone = factor * values(i) count = count + 1 sum = sum + ozone / (1.0 + 4403.0 * EXP( -126*ozone )) endif enddo if( count .ge. 9 ) then w126 = sum endif return End Subroutine getW126 C**************************************************************************** C**************************************************************************** C routine to compute the max hourly of all 9 cells C**************************************************************************** Subroutine getMax9(values, max9, hourMax) Implicit None ! arguments Real values(32,9) Real max9 Integer hourMax ! local variables Integer i,j max9 = 0.0 hourMax = 0 do i=1,24 do j=1,9 if( values(i,j).ge.max9 ) then max9 = values(i,j) hourMax = i - 1 endif enddo enddo if( max9.le.0 ) then max9 = -999.0 hourMax = -99 endif return End Subroutine getMax9 C**************************************************************************** C routine to compute the 8 hour max for each 9 cells C**************************************************************************** Subroutine get8hrMax9(values, max9, hourMax, missChk) Implicit None ! arguments Real values(32,9) Real max9 Integer hourMax Logical missChk ! local variables Integer i, hr Real cellMax max9 = -99.0 do i=1,9 Call get8hourMax(values(:,i), cellMax, hr, missChk) if( cellMax.ge.max9 ) then max9 = cellMax hourMax = hr endif enddo return End Subroutine get8hrMax9 C**************************************************************************** C routine to convert date to string as "mm/dd/yyyy" C**************************************************************************** Character*16 Function date2Str( idate ) result(dateStr) Integer idate Integer status C.. local variables Integer month, day, year call DayMon( idate, month, day ) year = idate/1000 write(dateStr,'(i2.2,''/'',i2.2,''/'',i4.4)',iostat=status) month,day,year return End Function date2Str C**************************************************************************** C routine to convert date and time to string as "MM,DD,YYYY" C**************************************************************************** Character*16 Function date2Str_csv( idate ) result(dateStr) Integer idate Integer status C.. local variables Integer month, day, year call DayMon( idate, month, day ) year = idate/1000 write(dateStr,'(i2.2,'','',i2.2,'','',i4.4)',iostat=status) month,day,year return End Function date2Str_csv C**************************************************************************** C routine to convert real to string C**************************************************************************** Character*16 Function real2Str( value, chk4miss ) result(realStr) USE ENV_VARS Real value Logical chk4miss Character*80 record Integer status if( chk4miss .and. value.lt.0.0 ) then realStr = MISSING_VALUE Call LeftTrim(realStr) return endif Write(record,'(G14.5)',iostat=status) value Call LeftTrim(record) realStr = record return End Function real2Str C**************************************************************************** C routine to convert integer to string C**************************************************************************** Character*16 Function int2Str( value, chk4miss ) result(intStr) USE ENV_VARS Implicit None Integer value Logical chk4miss Character*80 record Integer status if( chk4miss .and. value.lt.0 ) then intStr = MISSING_VALUE Call LeftTrim(intStr) return endif Write(record,'(I15)',iostat=status) value Call LeftTrim(record) intStr = record return End Function int2Str ================================================ FILE: POST/sitecmp_dailyo3/src/sitecmp_dailyo3.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! PROGRAM SITECMP_DAILYO3 C********************************************************************** C C program to generate a table comparing AIRS and modeled ozone values C C********************************************************************** USE M3FILES USE ENV_VARS USE GRID_DATA USE TIME_STEP USE SITE_DATA USE SPECIES_DEF USE M3UTILIO IMPLICIT NONE C..INCLUDES: C INCLUDE SUBST_IOPARMS ! IOAPI parameters C INCLUDE SUBST_IOFDESC ! IOAPI file description C INCLUDE SUBST_IODECL ! IOAPI declarations C..ARGUMENTS: C..PARAMETERS: None C..EXTERNAL FUNCTIONS: None C..SAVED LOCAL VARIABLES: None C..SCRATCH LOCAL VARIABLES: CHARACTER*16 PNAME ! Program Name CHARACTER*80 MSG ! Error message INTEGER N ! Loop index C********************************************************************** DATA PNAME / 'SITECMP_DAILYO3' / ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Get the Models-3 file(s) to process and the other environment c variables ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc CALL OPEN_M3FILES !Write(*,'('' M3FILES opened'')') Call GET_SPECS !Write(*,'('' Species defined'')') CALL GET_ENVS !Write(*,'('' Environment values defined'')') ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Check the file(s) for consistency and make sure the requested c species is on the file(s) ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc CALL CK_M3FLS() ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Get the grid definition and the tsteps from the M3 files ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc CALL GET_M3GRID CALL GET_TSTEPS !Write(*,'('' M3FILE grid and time steps defined'')') ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Get the site data ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc CALL LOAD_SITES CALL SET_SITE_LOC !Write(*,'('' Sites read'')') ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Call the routine to extract the data and generate the output file ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc ! if( COMPUTE_SUM06 ) Then ! Write(*,'('' extracting daily SUM06 values'')') ! Call process3 ! CALL EXIT( 0 ) ! endif ! if( COMPUTE_MAX ) Then Write(*,'('' extracting daily maximum values'')') Call process WRITE( LOGUNIT, 92020 ) & '>>----> Program ' // PNAME // ' completed successfully <----<<' CALL EXIT( 0 ) ! endif ! Write(*,'('' extracting hourly values'')') ! Call process1 ! CALL EXIT( 0 ) WRITE( LOGUNIT, 92020 ) & '>>----> Program ' // PNAME // ' completed successfully <----<<' CALL EXIT( 0 ) C****************** FORMAT STATEMENTS ****************************** 92020 FORMAT( //5X, A, // ) END ================================================ FILE: POST/sitecmp_dailyo3/src/utilities.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C****************************************************************************** C subroutine to read values for day from observed hourly hourly file C Assumptions: labels for species and optional QA flag label /strings are C defined by environment variables OBS_SPECIES, QA_FLAG_HEADER, C QA_FLAG_VALUES, and QA_FLAG_CHECK C****************************************************************************** Subroutine readInput(in, site, poc, iyear, imonth, iday, values, status) USE ENV_VARS IMPLICIT NONE ! arguments Integer in, iyear, imonth, iday, status Character*(*) site Integer poc Real values(24) ! functions Integer getNumberOfFields ! saved Logical, save :: firstime=.TRUE. Integer, save :: ozoneFld Integer, save :: flagFld Integer, save :: pocFld Integer, save :: siteFld Integer, save :: sdateFld ! local Integer i, ihour, stat Character*256 record Character*256 field Character*256 field2 Integer poc2 Character*16 flag Integer iyr, imon, idy, ihr Integer f, nflds status = 0 values = -99.0 !! first pass if( firstime ) then firstime = .false. Read(in,'(a)',iostat=status) record if(status.ne.0) then status = -1 return endif nflds = getNumberOfFields(record,',') siteFld = -1 pocFld = -1 sdateFld = -1 ozoneFld = -1 flagFld = -1 Do f=1,nflds Call getField(record, ',', f, field) Call UCASE(field) Call LeftTrim(field) Call UCASE(OBS_SPECIES_NAME) Call UCASE(QA_FLAG_NAME) if ( TRIM(field) .eq. 'SITE_ID' ) siteFld = f if (( TRIM(field) .eq. 'DATEON' ) .or. * ( TRIM(field) .eq. 'DATE_TIME' )) sdateFld = f if( TRIM(field) .eq. 'POCODE' ) pocFld = f if( TRIM(field) .eq. 'POCODE' ) pocFld = f if( TRIM(field) .eq. TRIM(OBS_SPECIES_NAME) ) ozoneFld = f if (QAFLAG_CHECK) then if( TRIM(field) .eq. TRIM(QA_FLAG_NAME) ) flagFld = f endif enddo ! check if ozone field was found if( ozoneFld.lt.1 ) then write(*,'(''**ERROR** Cannot locate observed ozone field '',a)') OBS_SPECIES_NAME Stop endif endif !! read first record to get site and date Read(in,'(a)',iostat=status) record if(status.ne.0) then status = -1 return endif Call getField(record, ',', siteFld, field) Call LeftTrim(field) Call rmQuots(field) site = field Call getField(record, ',', sdateFld, field) Call LeftTrim(field) Call rmQuots(field) Call str2Date(field, iyear, imonth, iday, ihour) if(iyear.le.0) then status = 1 return endif if (pocFld .gt. 0) then Call getField(record, ',', pocFld, field) Call LeftTrim(field) Call rmQuots(field) read(field,*) poc else poc = 1 !default POC endif Call getField(record, ',', ozoneFld, field) Call LeftTrim(field) Call rmQuots(field) read(field,'(f16.0)',iostat=stat) values(ihour) flag = ' ' if( flagFld.gt.0 ) Call getField(record, ',', flagFld, flag) Call LeftTrim(flag) Call rmQuots(flag) Call UCASE(QA_FLAG_STRING) if(stat.ne.0 .or. values(ihour).le.0 .or. INDEX(TRIM(QA_FLAG_STRING),flag(1:1)).gt.0) values(ihour)=-99.0 ! read next 23 records to complete day Do i=1,23 Read(in,'(a)',iostat=status) record if(status.ne.0) then status = -1 return endif ! check for new year Call getField(record, ',', sdateFld, field) Call LeftTrim(field) Call rmQuots(field) Call str2Date(field, iyr, imon, idy, ihr) if(iyear.le.0) then status = 1 return endif ! read site field Call getField(record, ',', siteFld, field) Call LeftTrim(field) Call rmQuots(field) ! attempt to read POC field if (pocFld .gt. 0) then Call getField(record, ',', pocFld, field2) Call LeftTrim(field2) Call rmQuots(field2) read(field2,*) poc2 else poc2 = 1 !default POC endif ! check for new site or date if(iyr.ne.iyear .or. imon.ne.imonth .or. & idy.ne.iday .or. field.ne.site .or. & poc2.ne.poc ) Then backspace in endif Call getField(record, ',', ozoneFld, field) Call LeftTrim(field) Call rmQuots(field) read(field,'(f16.0)',iostat=stat) values(ihr) flag = ' ' if(flagFld.gt.0) Call getField(record, ',', flagFld, flag) Call LeftTrim(flag) Call rmQuots(flag) Call UCASE(QA_FLAG_STRING) if(stat.ne.0 .or. values(ihr).le.0 .or. INDEX(TRIM(QA_FLAG_STRING),flag(1:1)).gt.0) values(ihr)=-99.0 endDo return End **************************************************************************** C routine to convert date string "yyyy-mm-dd" to an Integer value yyyyDDD C**************************************************************************** Subroutine str2Date( dateStr, yr, mo, dy, hr ) Character*(*) dateStr Integer yr, mo, dy, hr Character*22 cString Character*10 dString Character*10 tString Character*10 monStr Character*10 dayStr Character*10 yrStr Character*10 hhStr Integer i,j,nchar ! adjust for quote mark j = 0 if(dateStr(1:1).eq.'"') j=1 nchar = min( LEN(dateStr), 20+j ) Do i=1,nchar cString(i:i) = dateStr(i+j:i+j) EndDo Call getField(cString,' ',1,dstring) Call getField(cString,' ',2,tstring) if( index(dString,'-') .gt. 0 ) then ! yyyy-mm-dd Call getField(dString,'-',1,yrStr) Call getField(dString,'-',2,monStr) Call getField(dString,'-',3,dayStr) elseif( index(dString,'/') .gt. 0 ) then ! mm/dd/yyyy Call getField(dString,'/',3,yrStr) Call getField(dString,'/',1,monStr) Call getField(dString,'/',2,dayStr) else !yyyymmdd yrStr = dString(1:4) monStr = dString(5:6) dayStr = dString(7:8) Endif Read(monStr,'(i10)',err=500) mo Read(dayStr,'(i10)',err=500) dy Read(yrStr,'(i10)',err=500) yr ! check for 2 digit year if( yr.gt.0 .and. yr.lt.100 ) Then if( yr.ge.50 ) yr = yr + 1900 if( yr.lt.50 ) yr = yr + 2000 Endif Call getField(tString,':',1,hhStr) Read(hhStr,'(i10)',err=501) hr hr = hr+1 return 500 Write(*,'(''Error converting date string '',a)') TRIM(dString) yr = -99 Return 501 Write(*,'(''Error converting hour string '',a)') Trim(tString) yr = -99 Return End Subroutine str2Date ================================================ FILE: POST/writesite/README.md ================================================ writesite ======== This Fortran program generates a csv file from an IOAPI data file for a set of species at defined site locations. ## Options:
  1. Program can shift to local standard time for hourly data based on default time zone file
  2. Data at all cells or at defined site locations can be specified
  3. Date range can be specified
  4. Grid layer can be specified
## Run Time Environment variables used: ``` INFILE name of IOAPI input file. Supported map projections are Lambert conformal, polar stereographic, and lat/lon SITE_FILE name of input file containing sites to process (default is all cells) DELIMITER delimiter used in site file (default is ) USECOLROW site file contains column/row values (default is N, meaning lon/lat values will be used) TZFILE location of time zone data file, tz.csv (this is a required input file) OUTFILE name of output file LAYER grid layer to output (default is 1) USELOCAL adjust to local standard time (default is N) TIMESHIFT shifts time of data (default is 0) PRTHEAD switch to output header records (default is Y) PRT_XY switch to output map projection coordinates (default is Y) STARTDATE first date to process (default is starting date of input file) ENDDATE last date to process (default is ending date of input file) SPECIES_# list of species to output (e.g. setenv SPECIES_1 O3). To extract all species use: setenv SPECIES_1 ALL ``` ## Format of SITE_FILE: The SITE_FILE file has one line per location with the following format: `LABEL` `DELIMITER` `X` `DELIMITER` `Y` where * `LABEL` is a user-defined text string used to label each location. The text string is then used in the 'sideid' column of OUTFILE. It can represent a station ID associated with a given pair of latitude and longitude values, a string consisting of column and row numbers if `USECOLROW` is T, or any other unique string with a length up to 10 characters. * `DELIMITER` is defined by the associated environment variable. * `X`/`Y` are: * By default, longitude/latitude in decimal degrees * If `USECOLROW` is T, then `X` should be between (1, `NCOLS`) and `Y` should be between (1, `NROWS`). ## Run Time Environment variables (not required): ``` IOAPI_ISPH projection sphere type (use type #20 to match WRF/CMAQ) (ioapi default is 8) ``` ## Compile writesite source code: Execute the build script to compile writesite: ``` cd $CMAQ_HOME/POST/writesite/scripts ./bldit_writesite.csh [compiler] [version] |& tee build_writesite.log ``` ## Run writesite: Edit the sample run script (run.writesite), then run: ``` ./run.writesite|& tee writesite.log ``` Check the log file to ensure complete and correct execution without errors. ================================================ FILE: POST/writesite/inputs/sites.txt ================================================ 7440, -74.75, 40.75 ================================================ FILE: POST/writesite/inputs/tz.csv ================================================ 20,-2.0,Greenland -50.4764,69.3971 -50.4639,69.4027 -50.4282,69.4131 -50.4025,69.4208 -50.3918,69.4256 -50.3685,69.4387 -50.12,69.4393 -50.1046,69.4381 -50.0964,69.4321 -50.1068,69.4244 -50.1234,69.4166 -50.1787,69.3995 -50.193,69.402 -50.2115,69.4109 -50.2263,69.4134 -50.2965,69.4192 -50.3155,69.4198 -50.4072,69.3985 -50.4776,69.3966 -50.4764,69.3971 10056,-2.0,Greenland -67.8212,78.9501 -64.1358,76.2447 -64.0369,76.2245 -64.0187,76.2206 -63.991,76.2086 -64.0267,76.195 -64.0386,76.1883 -64.039,76.1423 -64.0098,76.0831 -63.9559,76.0479 -63.9404,76.0403 -63.8591,76.0283 -63.8328,76.027 -63.7906,76.0302 -63.621,76.0479 -63.6099,76.0492 -63.5461,76.0683 -63.3253,76.203 -63.3088,76.214 -63.3038,76.2253 -63.3078,76.248 -63.3162,76.258 -63.3005,76.2616 -63.2616,76.2651 -63.2063,76.2646 -63.1802,76.2627 -63.0108,76.2499 -62.967,76.2453 -62.8587,76.2287 -62.7062,76.1993 -62.6885,76.1938 -62.6619,76.1842 -62.6499,76.1761 -62.6434,76.1646 -62.6487,76.1562 -62.6784,76.1388 -62.6764,76.1289 -62.6142,76.0896 -62.6025,76.086 -62.5849,76.0877 -62.5668,76.0934 -62.5551,76.1032 -62.5691,76.1145 -62.5809,76.1189 -62.599,76.127 -62.5681,76.1471 -62.5536,76.1505 -62.4501,76.1547 -62.3838,76.1513 -62.3635,76.1481 -62.3171,76.1429 -62.2393,76.137 -62.1912,76.1365 -62.1893,76.1469 -62.1708,76.1611 -62.145,76.1689 -62.125,76.1726 -62.0845,76.1771 -62.0644,76.1785 -62.0439,76.1747 -61.9764,76.1511 -61.982,76.1424 -61.9977,76.1358 -62.0095,76.1303 -62.0175,76.1221 -62.0061,76.1144 -61.9948,76.1131 -61.9516,76.114 -61.903,76.1184 -61.8572,76.1241 -61.8307,76.1264 -61.802,76.1275 -61.7734,76.1272 -61.7476,76.1255 -61.7248,76.122 -61.5288,76.0817 -61.5191,76.0733 -61.5018,76.0706 -61.3731,76.0629 -61.253,76.0669 -61.2359,76.0695 -61.2127,76.0708 -61.1755,76.0701 -61.0986,76.0662 -60.7618,76.0486 -60.7366,76.0471 -60.7078,76.0448 -60.6741,76.0402 -60.6602,76.0352 -60.662,76.0002 -60.6828,75.9732 -60.6548,75.9206 -60.569,75.8863 -60.5519,75.8861 -60.5376,75.8897 -60.4347,75.9226 -60.3635,75.9547 -60.3419,75.9581 -60.315,75.9561 -60.2974,75.9492 -60.2858,75.939 -60.1,75.9257 -60.0688,75.9251 -59.9621,75.918 -59.9401,75.9149 -59.9214,75.9066 -59.9512,75.8918 -59.9666,75.8811 -59.9466,75.8671 -59.8374,75.822 -59.8237,75.8191 -59.8043,75.8165 -59.7473,75.8141 -59.6952,75.8322 -59.6412,75.8512 -59.624,75.8551 -59.5992,75.8585 -59.5668,75.8573 -59.5445,75.8542 -59.5257,75.8504 -59.427,75.8011 -59.4451,75.7949 -59.4877,75.7919 -59.5108,75.7896 -59.5254,75.7847 -59.5827,75.7607 -59.5921,75.7553 -59.5984,75.7513 -59.6493,75.7129 -59.6454,75.7014 -59.6193,75.6899 -59.5949,75.687 -59.5752,75.6869 -59.5612,75.6872 -59.4493,75.7036 -59.4375,75.7087 -59.4296,75.7221 -59.4159,75.7357 -59.4013,75.7404 -59.3803,75.7467 -59.3458,75.7529 -59.3028,75.7575 -59.1048,75.7661 -59.052,75.7656 -59.0299,75.7624 -59.0165,75.7589 -58.9868,75.7469 -58.9764,75.7363 -59.0091,75.7267 -59.0672,75.7013 -59.0627,75.669 -58.9121,75.6017 -58.899,75.598 -58.8549,75.5958 -58.6818,75.6008 -58.6538,75.6023 -58.6354,75.6112 -58.6236,75.6136 -58.5395,75.6275 -58.5145,75.6293 -58.409,75.6282 -58.3756,75.6273 -58.3566,75.6257 -58.2785,75.6161 -58.2626,75.6133 -58.2477,75.6056 -58.2585,75.5958 -58.2704,75.5934 -58.2846,75.5914 -58.3125,75.5909 -58.3647,75.5919 -58.3821,75.5898 -58.3999,75.5857 -58.4143,75.5814 -58.437,75.5654 -58.4186,75.5544 -58.3585,75.5394 -58.3395,75.5369 -58.32,75.5387 -58.2999,75.5421 -58.2746,75.5435 -58.1879,75.5471 -58.1719,75.5452 -58.1525,75.5395 -58.1654,75.5262 -58.1781,75.5209 -58.1931,75.5162 -58.2177,75.5058 -58.2276,75.4998 -58.251,75.483 -58.2649,75.471 -58.2711,75.4571 -58.2507,75.4506 -58.2285,75.4516 -58.2117,75.4541 -58.1841,75.4541 -58.1657,75.4515 -58.0327,75.424 -58.0128,75.4162 -58.0003,75.403 -58.052,75.3347 -58.1304,75.3228 -58.1423,75.3208 -58.2337,75.3146 -58.4097,75.2909 -58.4639,75.2813 -58.519,75.2595 -58.5373,75.2448 -58.5285,75.2371 -58.5103,75.2332 -58.4942,75.2328 -58.3828,75.2335 -58.364,75.2338 -58.343,75.2425 -58.3338,75.2472 -58.3066,75.2692 -58.2956,75.2801 -58.2703,75.2895 -58.2435,75.2929 -58.1971,75.2814 -58.1641,75.2824 -58.1412,75.282 -58.131,75.2782 -58.1445,75.2243 -58.1744,75.2124 -58.1912,75.2101 -58.1765,75.1603 -58.0766,75.1087 -57.8024,75.0807 -57.7758,75.0709 -57.7617,75.0578 -57.7713,75.048 -57.7832,75.0426 -57.7949,75.0388 -57.8239,75.0314 -57.9177,75.0096 -57.9946,74.9734 -57.9996,74.9565 -57.9851,74.9435 -57.962,74.9404 -57.9513,74.9399 -57.9406,74.9413 -57.9231,74.9451 -57.8819,74.9591 -57.773,74.9492 -57.7528,74.9461 -57.7371,74.9334 -57.7249,74.9248 -57.7042,74.9143 -57.6871,74.9107 -57.6633,74.9096 -57.6368,74.9095 -57.463,74.8976 -57.2515,74.8528 -57.1762,74.8316 -57.1777,74.8108 -57.1434,74.8017 -57.1252,74.8008 -57.1072,74.7998 -57.0589,74.8022 -57.0153,74.806 -56.9932,74.8091 -56.9309,74.8147 -56.8993,74.8152 -56.8767,74.8112 -56.8453,74.795 -56.763,74.7499 -56.7124,74.7047 -56.8186,74.6609 -56.8301,74.6572 -56.8568,74.6562 -56.908,74.6678 -56.9222,74.6723 -56.9363,74.6807 -56.9484,74.6918 -56.9728,74.6939 -56.9896,74.6903 -57.0379,74.6699 -56.9288,74.6023 -56.8667,74.5693 -56.8525,74.5661 -56.8286,74.5686 -56.8127,74.5794 -56.8001,74.5913 -56.7818,74.599 -56.7543,74.6039 -56.716,74.6046 -56.6979,74.6007 -56.4871,74.542 -56.451,74.4932 -56.4227,74.4813 -56.2885,74.453 -56.228,74.4407 -56.2094,74.4429 -56.1288,74.4517 -56.0766,74.4542 -56.0611,74.4536 -56.0474,74.4487 -56.1041,74.3789 -56.1797,74.37 -56.38,74.3468 -56.4503,74.344 -56.5368,74.3458 -56.5947,74.3481 -56.6482,74.3444 -56.6224,74.3358 -56.4421,74.3012 -56.4199,74.3001 -56.2889,74.3013 -56.2708,74.3018 -56.1696,74.3127 -56.1362,74.3139 -56.0674,74.3127 -56.0479,74.3108 -56.0174,74.3033 -55.9984,74.2924 -55.9855,74.2793 -55.9945,74.2682 -56.0084,74.2649 -56.2169,74.2534 -56.2621,74.2546 -56.329,74.2596 -56.503,74.2511 -56.5447,74.2477 -56.5666,74.2414 -56.4275,74.1865 -56.4086,74.1847 -56.3984,74.1852 -56.3747,74.1879 -56.3023,74.1993 -56.2859,74.2031 -56.2436,74.2073 -56.2107,74.2071 -56.1783,74.2051 -56.1558,74.1954 -56.1651,74.1861 -56.1896,74.1806 -56.2693,74.1703 -56.3955,74.1569 -56.4147,74.1535 -56.4426,74.1449 -56.4533,74.1362 -56.4393,74.1263 -56.5332,74.1026 -56.5493,74.0998 -56.5701,74.0975 -56.6287,74.0955 -56.679,74.0952 -56.7342,74.0964 -56.7598,74.0959 -56.7782,74.0937 -56.9087,74.0629 -57.0726,74.0454 -57.0976,74.0446 -57.1185,74.0424 -57.1376,74.0386 -57.1511,74.0349 -57.1603,74.0287 -57.1777,74.0039 -57.166,73.997 -57.1497,73.9969 -57.0204,74.0023 -56.9389,74.0086 -56.9009,74.0155 -56.7906,74.0313 -56.7698,74.0336 -56.668,74.0382 -56.6173,74.0394 -56.5298,74.0455 -56.4636,74.0552 -56.4288,74.061 -56.3993,74.0672 -56.1528,74.1219 -56.0707,74.1604 -56.0521,74.1712 -56.0283,74.1785 -56.0153,74.1784 -55.9853,74.1773 -55.9759,74.1687 -56.0221,74.093 -56.1434,74.0083 -56.1979,73.9821 -56.2227,73.9816 -56.2469,73.9776 -56.2665,73.9685 -56.2097,73.9451 -56.1015,73.9438 -56.0519,73.9424 -55.8892,73.9367 -55.8621,73.9351 -55.8312,73.931 -55.8182,73.9224 -55.8291,73.9105 -55.8431,73.9061 -55.8538,73.905 -55.8831,73.9123 -55.8964,73.9169 -55.9213,73.9177 -55.9363,73.9169 -55.9704,73.9121 -55.9804,73.9061 -55.9597,73.8641 -55.7978,73.8282 -55.6991,73.8138 -55.5531,73.7875 -55.5283,73.7805 -55.5009,73.769 -55.4919,73.7557 -55.5038,73.7433 -55.5149,73.7395 -55.5313,73.7359 -55.5544,73.7345 -55.5787,73.7344 -55.6026,73.7366 -55.6596,73.7486 -55.7855,73.7563 -55.8041,73.754 -55.7396,73.6876 -55.6071,73.6225 -55.5866,73.6187 -55.5702,73.6172 -55.5524,73.6187 -55.5283,73.6235 -55.5169,73.6266 -55.4988,73.6296 -55.4866,73.6301 -55.4717,73.6239 -55.491,73.5992 -55.5002,73.5946 -55.6345,73.6153 -55.7114,73.6313 -55.7541,73.6488 -55.7802,73.6585 -55.8055,73.6626 -55.8209,73.6612 -55.8984,73.5907 -55.8932,73.582 -55.8791,73.5777 -55.8569,73.5761 -55.8112,73.5816 -55.7875,73.5866 -55.7613,73.5907 -55.7468,73.5876 -55.7233,73.5826 -55.734,73.572 -55.8304,73.5561 -55.8457,73.5553 -55.8808,73.559 -55.9097,73.5607 -55.93,73.5577 -55.9318,73.5462 -55.9149,73.5391 -55.9015,73.5356 -55.8113,73.5159 -55.5577,73.4817 -55.5415,73.4822 -55.5235,73.4787 -55.5019,73.4715 -55.3881,73.4045 -55.3807,73.3964 -55.3866,73.3881 -55.3919,73.3775 -55.3552,73.3632 -55.2912,73.3479 -55.2779,73.3453 -55.1717,73.3269 -55.0917,73.3161 -55.0486,73.3152 -55.033,73.3126 -55.0232,73.3075 -54.9639,73.2752 -54.9532,73.2553 -54.967,73.2504 -55.0019,73.253 -55.0156,73.2554 -55.0408,73.2632 -55.0536,73.268 -55.0677,73.2747 -55.0926,73.2837 -55.1058,73.2876 -55.1171,73.2894 -55.1337,73.2875 -55.3198,73.1562 -55.3024,73.1494 -55.2157,73.1397 -55.1782,73.1373 -55.1551,73.1364 -55.1376,73.1372 -55.1076,73.1411 -55.0047,73.1092 -55.0075,73.0859 -55.0206,73.0796 -55.2015,73.0733 -55.3215,73.0293 -55.341,73.0232 -55.3543,73.0221 -55.373,73.0229 -55.3902,73.0246 -55.4737,73.0201 -55.4916,73.022 -55.5152,73.0229 -55.5256,73.0201 -55.5714,72.9927 -55.5588,72.9658 -55.5397,72.9577 -55.5285,72.9551 -55.517,72.9539 -55.5028,72.9552 -55.4851,72.958 -55.4251,72.9645 -55.4045,72.9663 -55.3785,72.9681 -55.3461,72.9689 -55.2996,72.9677 -55.2793,72.9588 -55.2525,72.9492 -55.2245,72.9427 -55.1951,72.9388 -55.058,72.9335 -54.9672,72.9435 -54.9131,72.919 -54.7662,72.9136 -54.7438,72.9186 -54.7322,72.9181 -54.7165,72.9162 -54.6852,72.9015 -54.5548,72.7998 -54.4729,72.7287 -54.5448,72.708 -54.5617,72.7059 -54.6108,72.7055 -54.6697,72.7107 -54.6858,72.7108 -54.7457,72.6949 -54.7913,72.6779 -54.7785,72.6727 -54.6926,72.6613 -54.6205,72.661 -54.5225,72.6676 -54.5103,72.6138 -54.5867,72.6039 -54.6026,72.6039 -54.7472,72.5721 -54.7383,72.5453 -54.7288,72.5398 -54.7013,72.534 -54.599,72.5256 -54.5736,72.5248 -54.5633,72.5273 -54.5447,72.5337 -54.5305,72.5347 -54.5106,72.5318 -54.4987,72.5223 -54.5112,72.5146 -54.5584,72.5062 -54.6103,72.5041 -54.654,72.5082 -54.7742,72.5079 -54.8641,72.4734 -54.8751,72.4572 -54.8819,72.4401 -54.8854,72.4263 -54.8722,72.4136 -54.8506,72.4103 -54.6716,72.4229 -54.6547,72.4134 -54.6307,72.4042 -54.6007,72.4001 -54.4865,72.3885 -54.4728,72.3885 -54.4495,72.3891 -54.4304,72.3911 -54.3871,72.4018 -54.3722,72.4049 -54.3407,72.4087 -54.3017,72.4093 -54.2787,72.408 -54.2588,72.4068 -54.1818,72.3939 -54.1693,72.3842 -54.185,72.3747 -54.2038,72.3758 -54.2173,72.3808 -54.226,72.3903 -54.2596,72.3949 -54.2796,72.3966 -54.2957,72.3965 -54.3073,72.3961 -54.4043,72.3833 -54.4155,72.3786 -54.8621,72.3871 -55.1475,72.3994 -55.2405,72.4081 -55.2829,72.4169 -55.2946,72.4216 -55.3097,72.424 -55.3404,72.4241 -55.3655,72.4158 -55.4414,72.383 -55.4931,72.3606 -55.514,72.3453 -55.4956,72.3262 -55.4687,72.3153 -55.4395,72.3073 -55.3746,72.293 -55.3564,72.293 -55.286,72.299 -55.1729,72.3276 -55.1512,72.2745 -55.1399,72.2707 -55.1149,72.2646 -55.0999,72.2624 -55.0887,72.2624 -55.0754,72.2644 -55.0339,72.2805 -54.9864,72.2981 -54.8886,72.3264 -54.757,72.3261 -54.7695,72.3166 -54.7799,72.314 -54.7918,72.3125 -54.8293,72.3142 -54.8394,72.3073 -54.8184,72.2914 -54.8093,72.2862 -54.7952,72.2815 -54.7826,72.2792 -54.6674,72.2658 -54.6521,72.2645 -54.6383,72.2656 -54.6109,72.2706 -54.5939,72.2728 -54.576,72.273 -54.5564,72.2704 -54.6167,72.2569 -54.6336,72.2542 -54.6627,72.2549 -54.7854,72.2661 -54.8082,72.266 -54.8173,72.2603 -54.81,72.2043 -54.8009,72.142 -55.0764,72.0477 -55.1019,72.0394 -55.282,71.9888 -55.4194,71.9358 -55.4309,71.9286 -55.4488,71.9033 -55.4377,71.8911 -55.3376,71.8668 -55.1682,71.833 -55.1368,71.8281 -55.1132,71.8267 -55.0888,71.8265 -55.0479,71.8295 -54.9487,71.8338 -54.8818,71.8341 -54.8558,71.8333 -54.811,71.8345 -54.7903,71.8356 -54.7573,71.8414 -54.733,71.8471 -54.7099,71.8546 -54.5494,71.9159 -54.522,71.9446 -54.5156,71.9688 -54.4033,72.0803 -54.3931,72.0882 -54.3012,72.1236 -54.288,72.128 -54.2781,72.1304 -54.2601,72.1267 -54.3034,72.1042 -54.3227,72.0926 -54.3961,72.0058 -54.3911,71.9917 -54.3842,71.9757 -54.391,71.9642 -54.4078,71.9454 -54.417,71.9397 -54.4452,71.9257 -54.4805,71.9096 -54.5131,71.896 -54.6976,71.8214 -54.7138,71.8169 -54.7522,71.8088 -54.7666,71.8067 -54.8823,71.7932 -54.9048,71.7924 -54.9547,71.7951 -54.9897,71.7961 -55.1213,71.7928 -55.1619,71.7906 -55.1899,71.7862 -55.2202,71.7767 -55.2513,71.7457 -55.3139,71.7076 -55.4287,71.6749 -55.6105,71.6503 -55.6447,71.6461 -55.657,71.642 -55.7218,71.6186 -55.7378,71.6106 -55.7618,71.5975 -55.7749,71.5849 -55.7534,71.5781 -55.6575,71.57 -55.5288,71.5574 -55.4451,71.5457 -55.4615,71.5327 -55.4933,71.5282 -55.5493,71.5322 -55.5388,71.5102 -55.5143,71.4781 -55.4266,71.3844 -55.4149,71.3736 -55.3865,71.357 -55.368,71.3474 -55.3151,71.3261 -55.256,71.3043 -55.2143,71.2951 -55.1959,71.2924 -55.1706,71.2911 -55.0633,71.2842 -55.0379,71.2833 -55.003,71.2846 -54.9901,71.2941 -54.9985,71.3086 -55.0192,71.3215 -55.0766,71.3423 -55.0948,71.3517 -55.1395,71.3919 -55.1304,71.3961 -55.0986,71.3938 -55.0781,71.3851 -55.0625,71.3748 -55.0487,71.3645 -55.0176,71.3437 -54.9934,71.3339 -54.7512,71.2676 -54.7172,71.2614 -54.6991,71.2585 -54.6732,71.2578 -54.5175,71.255 -54.4816,71.258 -54.4658,71.2603 -54.4497,71.2636 -54.3973,71.2698 -54.3799,71.2706 -54.2923,71.2691 -54.2704,71.2696 -54.2205,71.2755 -54.0788,71.2958 -54.0487,71.3008 -53.7906,71.3474 -53.7739,71.354 -53.7607,71.3642 -53.7503,71.38 -53.7427,71.3928 -53.7312,71.4139 -53.7221,71.4347 -53.7224,71.4488 -53.7301,71.4611 -53.7402,71.4679 -53.7598,71.4772 -53.8401,71.5026 -53.8902,71.5133 -53.9204,71.5183 -53.9323,71.5218 -53.9747,71.5402 -53.9739,71.6124 -53.9646,71.6189 -53.9508,71.6204 -53.9352,71.6206 -53.9253,71.6192 -53.9066,71.6164 -53.8848,71.6107 -53.8627,71.5944 -53.8592,71.5794 -53.8465,71.5676 -53.8291,71.5571 -53.8188,71.5518 -53.8075,71.5476 -53.794,71.5433 -53.7777,71.5405 -53.7277,71.5349 -53.676,71.5335 -53.6497,71.5386 -53.622,71.546 -53.6055,71.5543 -53.5966,71.5635 -53.5954,71.5808 -53.5996,71.5908 -53.61,71.6024 -53.6392,71.6203 -53.6525,71.6241 -53.6666,71.6266 -53.6856,71.629 -53.7518,71.6332 -53.7707,71.6354 -53.7806,71.6373 -53.7902,71.6431 -53.7781,71.6491 -53.7501,71.6517 -53.6694,71.6508 -53.6193,71.6487 -53.5283,71.6413 -53.5104,71.6419 -53.4975,71.6454 -53.4058,71.6776 -53.3872,71.6849 -53.3564,71.6984 -53.2834,71.7408 -53.2721,71.7529 -53.2764,71.7647 -53.3974,71.8991 -53.4283,71.9282 -53.4547,71.9485 -53.4744,71.9583 -53.5105,71.9724 -53.5382,71.9805 -53.5637,71.9885 -53.5887,71.9969 -53.6225,72.0109 -53.6742,72.0354 -53.6831,72.0405 -53.7005,72.0545 -53.7059,72.0691 -53.7082,72.0989 -53.7789,72.1908 -53.8058,72.2057 -53.823,72.2184 -53.8254,72.2283 -53.8141,72.2384 -53.787,72.2472 -53.7451,72.2547 -53.7261,72.2563 -53.494,72.2657 -53.4827,72.266 -53.4299,72.2565 -53.4497,72.2491 -53.5495,72.2446 -53.6548,72.2434 -53.6951,72.2404 -53.7098,72.2367 -53.7212,72.2316 -53.7283,72.2225 -53.721,72.2131 -53.6228,72.1077 -53.5939,72.0482 -53.5873,72.0382 -53.5746,72.027 -53.5633,72.0222 -53.5497,72.0182 -53.4788,72.006 -53.4129,71.9933 -53.3967,71.99 -53.3403,71.9766 -53.3155,71.9677 -53.3064,71.9639 -53.2798,71.9489 -53.2653,71.935 -53.2622,71.9249 -53.2717,71.9141 -53.2797,71.9074 -53.2912,71.8906 -53.2848,71.8683 -53.2477,71.8062 -53.1969,71.7269 -53.1145,71.7101 -52.8821,71.7418 -52.8588,71.7503 -52.8864,71.7869 -52.8961,71.7987 -52.8281,71.8451 -52.6562,71.9154 -52.6306,71.921 -52.6119,71.9232 -52.5845,71.9196 -52.5715,71.9149 -52.5628,71.9043 -52.5764,71.8965 -52.6106,71.8866 -52.655,71.8744 -52.666,71.8704 -52.6749,71.8659 -52.7863,71.8108 -52.7899,71.7976 -52.7773,71.7766 -52.7381,71.7718 -52.7333,71.7624 -52.7435,71.7531 -52.7969,71.7213 -52.8104,71.7163 -52.8233,71.7129 -52.8738,71.7051 -52.9358,71.6912 -52.9914,71.6771 -53.0438,71.6604 -53.0791,71.6462 -53.1221,71.6254 -53.1392,71.6148 -53.1263,71.6075 -53.0895,71.6019 -53.0473,71.5987 -52.9578,71.5928 -52.8227,71.5899 -52.7182,71.5882 -52.6293,71.5898 -52.5169,71.5862 -52.4508,71.5526 -52.2761,71.5296 -52.053,71.5154 -52.0371,71.5167 -52.0019,71.5211 -51.8664,71.54 -51.7921,71.5513 -51.743,71.5603 -51.723,71.5687 -51.7069,71.5837 -51.698,71.5991 -51.6935,71.6139 -51.6852,71.6206 -51.672,71.6245 -51.6622,71.6265 -51.647,71.6293 -51.6126,71.6316 -51.5573,71.6321 -51.5226,71.6137 -51.5377,71.5929 -51.5513,71.5804 -51.5882,71.5463 -51.5961,71.5397 -51.6115,71.5281 -51.6311,71.5168 -51.6541,71.5072 -51.6822,71.4995 -51.699,71.497 -51.7193,71.4961 -51.9293,71.4848 -52.1127,71.4776 -52.1913,71.4742 -52.3083,71.4681 -52.364,71.4617 -52.5446,71.4331 -52.5759,71.4271 -52.628,71.4104 -52.7783,71.3618 -52.8199,71.347 -52.8496,71.3356 -52.8635,71.3235 -52.8405,71.3143 -52.8205,71.3106 -52.7879,71.307 -52.5854,71.2872 -52.5484,71.2841 -52.4659,71.2794 -52.364,71.2797 -52.3223,71.2812 -52.2779,71.2832 -52.2596,71.2846 -52.2439,71.2866 -52.1821,71.2967 -52.1404,71.306 -52.0259,71.3333 -51.8456,71.3697 -51.6224,71.4067 -51.5918,71.4107 -51.4958,71.4141 -51.4366,71.4147 -51.4054,71.4121 -51.2508,71.3952 -51.2268,71.3897 -51.2654,71.3478 -51.2875,71.3435 -51.3042,71.3443 -51.3245,71.347 -51.3578,71.3537 -51.3919,71.3591 -51.4859,71.3625 -51.5262,71.3603 -51.7499,71.3412 -51.8787,71.3253 -52.035,71.2921 -52.065,71.2847 -52.1481,71.2622 -52.1644,71.2558 -52.1714,71.2468 -52.1646,71.2353 -52.1484,71.2249 -52.1367,71.2139 -52.1255,71.1988 -52.1286,71.1868 -52.1531,71.1666 -52.1625,71.1608 -52.1935,71.1466 -52.2192,71.1381 -52.2357,71.1355 -52.2697,71.1325 -52.3159,71.1339 -52.338,71.1335 -52.3683,71.1286 -52.3914,71.121 -52.4288,71.102 -52.4345,71.0822 -52.4248,71.0633 -52.4138,71.0552 -52.4025,71.0517 -52.3895,71.0491 -52.3637,71.0469 -52.3453,71.0473 -52.3275,71.0484 -52.2933,71.0527 -52.2784,71.0563 -52.1399,71.0885 -51.9669,71.14 -51.8091,71.1968 -51.7639,71.2165 -51.7124,71.2357 -51.687,71.2426 -51.6273,71.2559 -51.5944,71.2617 -51.5438,71.2665 -51.5263,71.2671 -51.4068,71.205 -51.4074,71.1839 -51.4181,71.1707 -51.4451,71.161 -51.4613,71.1587 -51.5037,71.1559 -51.5585,71.1589 -51.6159,71.16 -51.7264,71.1584 -51.7442,71.158 -51.7606,71.1552 -51.8951,71.1254 -51.9077,71.122 -51.9187,71.1171 -51.928,71.1113 -51.9468,71.0942 -51.9684,71.0761 -51.9976,71.0655 -52.0103,71.062 -52.025,71.0585 -52.0723,71.0499 -52.1159,71.04 -52.1263,71.028 -52.0986,71.0153 -52.0468,71.0085 -52.0043,71.0041 -51.9423,71.0008 -51.9138,71.0017 -51.8979,71.0037 -51.8684,71.0105 -51.8451,71.0182 -51.7719,71.0348 -51.7467,71.0386 -51.7269,71.0392 -51.6611,71.0419 -51.6168,71.0391 -51.5983,71.03 -51.5908,71.0216 -51.5801,71.0177 -51.5354,71.0137 -51.4907,71.0133 -51.4376,71.0159 -51.3706,71.025 -51.3442,71.0303 -51.311,71.0353 -51.1562,71.0515 -51.1393,71.0516 -51.1222,71.0505 -51.1068,71.046 -51.1252,71.0348 -51.1432,71.0333 -51.1819,71.0327 -51.2017,71.0317 -51.2508,71.0242 -51.2608,71.0221 -51.2716,71.0186 -51.3559,70.9828 -51.3662,70.9733 -51.3624,70.9634 -51.3512,70.9602 -51.3114,70.9551 -51.1729,70.9392 -51.0095,70.9241 -50.9721,70.9258 -50.8391,70.9299 -50.8201,70.9305 -50.8017,70.9268 -50.8126,70.895 -50.8241,70.8835 -50.8337,70.8775 -50.8664,70.8727 -51.0562,70.8607 -51.0734,70.8606 -51.0978,70.8618 -51.1291,70.8664 -51.1419,70.8709 -51.1989,70.8859 -51.2141,70.8895 -51.262,70.8989 -51.319,70.9072 -51.4042,70.915 -51.4244,70.9174 -51.4787,70.9266 -51.5946,70.9488 -51.6682,70.9661 -51.6832,70.9695 -51.7115,70.9726 -51.7331,70.9723 -51.7509,70.9707 -51.7633,70.9681 -51.7793,70.962 -51.8339,70.9274 -51.732,70.9033 -51.6141,70.8811 -51.5493,70.8676 -51.5366,70.8637 -51.5263,70.8589 -51.5067,70.8446 -51.4907,70.8354 -51.4774,70.8323 -51.3261,70.8102 -51.2147,70.805 -51.1967,70.804 -51.1745,70.8019 -51.1084,70.7913 -51.0894,70.7746 -51.0781,70.7664 -51.0663,70.7617 -51.04,70.7553 -51.0301,70.7538 -50.9854,70.7511 -50.943,70.7511 -50.9054,70.7536 -50.8912,70.7573 -50.8579,70.7668 -50.7857,70.778 -50.7578,70.7822 -50.7425,70.7831 -50.7289,70.7775 -50.742,70.7697 -50.7523,70.7656 -50.7863,70.7556 -50.8007,70.7467 -50.807,70.7379 -50.8019,70.7243 -50.7833,70.7094 -50.767,70.7014 -50.6974,70.6941 -50.652,70.6921 -50.6329,70.6895 -50.517,70.644 -50.521,70.6288 -50.5382,70.6174 -50.5524,70.6149 -50.6031,70.6147 -50.6462,70.6164 -50.6679,70.619 -50.6849,70.622 -50.8393,70.6677 -51.1223,70.7186 -51.1415,70.7173 -51.1545,70.7099 -51.1548,70.7 -51.1544,70.682 -51.1603,70.6737 -51.1734,70.6648 -51.186,70.6613 -51.2186,70.6592 -51.313,70.6595 -51.3231,70.6527 -51.3245,70.6327 -51.31,70.6104 -51.3011,70.6052 -51.2863,70.6014 -51.091,70.5953 -51.0711,70.596 -51.0601,70.5975 -50.9708,70.563 -50.951,70.5643 -50.8932,70.574 -50.84,70.5858 -50.8216,70.589 -50.8038,70.5907 -50.7848,70.5909 -50.7358,70.5884 -50.718,70.5865 -50.6718,70.5796 -50.5385,70.553 -50.5267,70.5488 -50.5042,70.5335 -50.5119,70.5239 -50.5221,70.5213 -50.5444,70.5221 -50.5642,70.5247 -50.5786,70.5275 -50.5912,70.5312 -50.6131,70.5403 -50.6255,70.5445 -50.6546,70.5519 -50.7083,70.5602 -50.7522,70.5645 -50.7748,70.565 -50.7995,70.5627 -50.8113,70.5592 -50.864,70.5337 -50.8738,70.521 -50.8453,70.511 -50.83,70.5078 -50.8053,70.5045 -50.7519,70.492 -50.6527,70.4657 -50.6422,70.4621 -50.6271,70.4526 -50.7632,70.4152 -50.7745,70.4133 -50.7873,70.4166 -50.8817,70.4471 -51.0634,70.4984 -51.1142,70.5122 -51.2055,70.487 -51.2161,70.4832 -51.2296,70.4717 -51.2186,70.4616 -51.0948,70.4242 -51.0097,70.4169 -50.9936,70.4194 -50.9734,70.418 -50.9428,70.4133 -50.8576,70.3892 -50.8276,70.373 -50.8406,70.3703 -50.9148,70.3706 -50.9791,70.37 -50.9721,70.361 -50.9449,70.3474 -50.9226,70.3385 -50.8911,70.3325 -50.8334,70.3279 -50.7286,70.3232 -50.664,70.3243 -50.6487,70.3259 -50.6346,70.3288 -50.6187,70.3345 -50.5364,70.3742 -50.5352,70.3902 -50.5042,70.4105 -50.4687,70.4277 -50.4476,70.4345 -50.4248,70.4386 -50.3963,70.4338 -50.3868,70.4283 -50.3779,70.419 -50.3902,70.4051 -50.4178,70.3976 -50.4432,70.3897 -50.4542,70.3849 -50.4738,70.3736 -50.5578,70.3144 -50.5644,70.303 -50.5537,70.2951 -50.5369,70.2938 -50.5226,70.3008 -50.5015,70.3044 -50.4823,70.3017 -50.4592,70.2954 -50.4434,70.2893 -50.4331,70.2833 -50.4221,70.2602 -50.4334,70.248 -50.446,70.2411 -50.4587,70.2373 -50.4839,70.2324 -50.5009,70.2306 -50.5205,70.2299 -50.563,70.2306 -50.5865,70.2329 -50.6034,70.2354 -50.6376,70.2484 -50.6628,70.2548 -50.6796,70.2578 -50.6973,70.2596 -50.8186,70.2667 -50.9848,70.2835 -51.0096,70.2906 -51.0824,70.3083 -51.2344,70.3253 -51.3608,70.3324 -51.472,70.3486 -51.639,70.3881 -51.7548,70.4207 -51.9001,70.4641 -52.1102,70.5294 -52.2579,70.5788 -52.279,70.5875 -52.3164,70.6 -52.3437,70.6084 -52.6029,70.6517 -52.8508,70.6715 -52.983,70.6802 -53.0685,70.6716 -53.213,70.6622 -53.2913,70.6602 -53.3487,70.6624 -53.3908,70.6664 -53.4443,70.6737 -53.4725,70.6805 -53.4981,70.6887 -53.5808,70.7017 -53.8955,70.7337 -53.9407,70.7366 -53.9635,70.7367 -54.0058,70.736 -54.0252,70.7348 -54.0578,70.7315 -54.1057,70.7226 -54.1332,70.716 -54.1842,70.7039 -54.2122,70.6967 -54.4207,70.6382 -54.4491,70.6242 -54.5039,70.5605 -54.493,70.5581 -54.4477,70.5636 -54.4305,70.5644 -54.4173,70.561 -54.4062,70.5574 -54.2308,70.4927 -54.1889,70.4734 -54.1698,70.4643 -54.0737,70.4121 -54.0729,70.3924 -54.0637,70.3847 -54.043,70.3743 -54.0327,70.3699 -53.8962,70.3212 -53.8819,70.3168 -53.801,70.2939 -53.7725,70.2885 -53.7263,70.2856 -53.4024,70.2673 -53.1931,70.2587 -53.1052,70.254 -53.0758,70.2503 -52.9892,70.2338 -52.759,70.1879 -52.7294,70.1808 -52.5752,70.1404 -52.5349,70.1297 -52.476,70.109 -52.4551,70.0971 -52.4467,70.085 -52.4321,70.0706 -52.2241,69.963 -52.2143,69.9582 -52.1976,69.9556 -52.0993,69.9465 -52.0587,69.943 -52.0265,69.9457 -51.9076,69.9301 -51.8875,69.9209 -51.8752,69.918 -51.8589,69.9147 -51.8376,69.913 -51.8171,69.9127 -51.7832,69.9165 -51.7396,69.9263 -51.7224,69.928 -51.7082,69.9279 -51.4907,69.9188 -51.4569,69.8881 -51.4422,69.8805 -51.3586,69.8703 -51.343,69.8692 -51.3246,69.8736 -51.2669,69.8984 -51.2306,69.9167 -51.2134,69.926 -51.1951,69.9372 -51.1741,69.9527 -51.1572,69.9714 -51.1429,69.9758 -51.1297,69.9775 -50.9729,69.981 -50.9526,69.9815 -50.9341,69.9781 -50.7806,69.9447 -50.7621,69.9389 -50.7495,69.9323 -50.7607,69.9265 -50.7869,69.9201 -50.8632,69.904 -50.8738,69.9033 -50.8864,69.9114 -50.8983,69.924 -50.9127,69.9348 -50.9224,69.9387 -50.947,69.9449 -50.9674,69.9449 -50.9798,69.941 -51.1481,69.8729 -51.0564,69.8692 -50.8504,69.8684 -50.8297,69.8692 -50.5677,69.9069 -50.4597,69.9281 -50.3766,69.9477 -50.3321,69.9504 -50.2592,69.9504 -50.1642,69.9493 -50.1446,69.9482 -50.1322,69.945 -50.1206,69.9411 -50.1076,69.9335 -50.1019,69.9244 -50.1098,69.9182 -50.1214,69.9126 -50.1745,69.8916 -50.1964,69.8857 -50.229,69.8817 -50.3204,69.881 -50.4429,69.8833 -50.4556,69.8825 -50.4672,69.8799 -50.4751,69.8664 -50.4792,69.8331 -50.4587,69.8244 -50.4113,69.8157 -50.3469,69.8086 -50.3064,69.8087 -50.2895,69.8095 -50.2705,69.8076 -50.2005,69.7801 -50.0828,69.6674 -50.098,69.665 -50.1182,69.6651 -50.2208,69.6678 -50.3917,69.6846 -50.4481,69.6921 -50.4711,69.6931 -50.4873,69.6929 -50.5014,69.6898 -50.5114,69.676 -50.5203,69.6635 -50.5375,69.6522 -50.5778,69.6395 -50.6055,69.6332 -50.6377,69.6289 -50.6565,69.6275 -50.6875,69.6225 -50.7054,69.6175 -50.7147,69.6078 -50.7035,69.5863 -50.6895,69.5825 -50.6645,69.5775 -50.6305,69.5738 -50.6107,69.574 -50.5923,69.5746 -50.5415,69.5795 -50.4641,69.5756 -50.3372,69.5532 -50.3072,69.5228 -50.2981,69.506 -50.3086,69.5019 -50.3194,69.5034 -50.3748,69.5182 -50.4091,69.5246 -50.5338,69.5436 -50.6377,69.5533 -50.6575,69.5543 -50.6906,69.552 -50.7151,69.5439 -50.7325,69.529 -50.6862,69.492 -50.6848,69.4614 -50.7173,69.4458 -50.7277,69.4417 -50.7563,69.4312 -50.7652,69.4241 -50.7729,69.4056 -50.7647,69.3938 -50.7547,69.3885 -50.5847,69.4062 -50.4776,69.3966 -50.6119,69.3926 -50.7326,69.3746 -50.7462,69.3713 -50.7563,69.368 -50.7864,69.3089 -50.8611,69.2101 -50.9014,69.1771 -50.9846,69.1436 -51.0106,69.1113 -50.9955,69.1049 -50.9032,69.0874 -50.8383,69.0855 -50.7768,69.0839 -50.6055,69.1271 -50.5482,69.1312 -50.4509,69.1723 -50.4546,69.1908 -50.4073,69.2262 -50.3636,69.2411 -50.3519,69.244 -50.3239,69.2488 -50.289,69.2513 -50.2656,69.244 -50.2712,69.2346 -50.2834,69.2299 -50.2953,69.2267 -50.3468,69.2151 -50.3612,69.2069 -50.3592,69.1089 -50.3433,69.1031 -50.3086,69.102 -50.1928,69.1029 -50.1656,69.103 -50.1491,69.1046 -50.1235,69.1083 -50.1033,69.1181 -50.0931,69.1269 -50.0647,69.1325 -50.0496,69.1348 -50.0374,69.1355 -50.0232,69.1296 -50.0218,69.1148 -50.0268,69.1001 -50.0342,69.0849 -50.0516,69.0698 -50.0725,69.0611 -50.0834,69.0589 -50.1705,69.0466 -50.2481,69.0394 -50.3559,69.038 -50.444,69.0405 -50.5516,69.0394 -50.5657,69.0391 -50.5784,69.0318 -50.5716,69.0136 -50.4715,68.9906 -50.3722,68.9707 -50.3266,68.9625 -50.3068,68.9625 -50.297,68.9634 -50.216,68.976 -50.162,68.9855 -50.1474,68.9871 -50.1363,68.9864 -50.1251,68.9824 -50.1071,68.9723 -50.0949,68.9634 -50.0771,68.9468 -50.07,68.9314 -50.1003,68.8737 -50.1104,68.8679 -50.1297,68.8681 -50.1438,68.8724 -50.1763,68.8881 -50.1863,68.8969 -50.1728,68.9051 -50.1591,68.9189 -50.1523,68.9306 -50.1468,68.9504 -50.1543,68.9656 -50.1783,68.9672 -50.226,68.9615 -50.3549,68.9355 -50.3684,68.9324 -50.3849,68.9218 -50.378,68.9046 -50.3701,68.8939 -50.3586,68.8838 -50.3496,68.8789 -50.3383,68.8753 -50.3268,68.8751 -50.2725,68.8824 -50.2573,68.8786 -50.2035,68.8331 -50.2147,68.8213 -50.2332,68.8145 -50.2541,68.8115 -50.2725,68.8121 -50.4135,68.8579 -50.4381,68.9075 -50.4185,68.9313 -50.4246,68.9395 -50.4728,68.9613 -50.5508,68.9881 -50.5839,68.9882 -50.5941,68.9868 -50.6646,68.9759 -50.7846,68.9532 -50.7969,68.9466 -50.7945,68.9366 -50.8096,68.936 -50.8603,68.9418 -50.8771,68.9491 -50.7945,68.9821 -50.781,68.9853 -50.7551,68.991 -50.7269,68.996 -50.6928,68.9978 -50.6908,69.0378 -50.9649,69.0412 -51.0095,68.9563 -51.0053,68.8382 -50.9507,68.8223 -50.9254,68.8293 -50.8918,68.8387 -50.8573,68.8439 -50.8644,68.836 -50.9728,68.7835 -50.995,68.7774 -51.0351,68.7698 -51.0957,68.7564 -51.1058,68.7524 -51.1797,68.6586 -51.1326,68.6511 -51.0154,68.6454 -50.9269,68.658 -50.9125,68.6621 -50.8911,68.6757 -50.8813,68.6796 -50.8217,68.7021 -50.7233,68.7369 -50.7094,68.7411 -50.6691,68.7494 -50.5959,68.7451 -50.5597,68.7412 -50.5475,68.7348 -50.5572,68.7279 -50.6594,68.688 -50.7273,68.6809 -50.7935,68.6688 -50.8788,68.6442 -50.8678,68.6195 -50.8188,68.5842 -50.8084,68.5786 -50.7901,68.5775 -50.7557,68.5851 -50.7264,68.5896 -50.7023,68.585 -50.7479,68.5315 -50.758,68.5265 -50.7684,68.5252 -50.7864,68.5264 -50.7974,68.5309 -50.8242,68.5451 -50.8954,68.5575 -50.9249,68.4915 -50.9372,68.4877 -51.0358,68.4722 -51.238,68.4612 -51.3627,68.4723 -51.4249,68.4462 -51.4362,68.4385 -51.4937,68.4334 -51.509,68.4321 -51.5471,68.4353 -51.5648,68.4379 -51.5919,68.4437 -51.6095,68.4464 -51.6335,68.4476 -51.6676,68.4473 -51.682,68.4445 -51.7014,68.4396 -51.7216,68.431 -51.7381,68.4257 -51.754,68.4279 -51.8274,68.4404 -51.8462,68.446 -51.8513,68.4692 -51.8333,68.4717 -51.7933,68.4722 -51.7298,68.4788 -51.707,68.4863 -51.7177,68.4919 -51.754,68.4952 -51.7709,68.4961 -51.8385,68.4945 -51.8739,68.4933 -52.0048,68.4608 -52.0891,68.4765 -52.2856,68.4636 -52.3504,68.4571 -52.398,68.4514 -52.5123,68.4317 -52.5306,68.426 -52.5075,68.4166 -52.4863,68.4126 -52.4743,68.4112 -52.4927,68.3655 -52.7404,68.2894 -52.9677,68.2354 -53.0288,68.2389 -53.0991,68.2599 -53.1147,68.2631 -53.1293,68.2637 -53.1465,68.2628 -53.2629,68.2466 -53.2761,68.2414 -53.2603,68.2038 -53.2544,68.1928 -53.2413,68.1814 -53.2292,68.1819 -53.2177,68.1877 -53.205,68.191 -53.1235,68.2051 -53.0651,68.2068 -53.0554,68.2033 -53.0049,68.1969 -52.9772,68.1947 -52.847,68.2088 -52.7971,68.2089 -52.7663,68.2158 -52.6564,68.2325 -52.633,68.2351 -52.6205,68.2292 -52.6531,68.2118 -52.6772,68.2105 -52.6922,68.214 -52.7025,68.2141 -52.7491,68.2089 -52.7679,68.2054 -52.8072,68.1932 -52.8155,68.1819 -52.8257,68.1715 -52.7889,68.1397 -52.6945,68.1272 -52.6219,68.1234 -52.6089,68.1235 -52.5948,68.1251 -52.5214,68.1511 -52.5394,68.1646 -52.5501,68.1684 -52.5589,68.1688 -52.5884,68.1729 -52.6188,68.1778 -52.602,68.1809 -52.5853,68.1832 -52.5629,68.1805 -52.5236,68.1763 -52.4473,68.1659 -52.3841,68.1498 -52.3584,68.1244 -52.3758,68.1146 -52.387,68.1055 -52.3747,68.099 -52.3593,68.0941 -52.3362,68.0918 -52.3089,68.0932 -52.2721,68.0974 -52.1135,68.1242 -51.9713,68.1432 -51.8855,68.1517 -51.8093,68.1515 -51.7095,68.1548 -51.6559,68.1605 -51.5666,68.1783 -51.5046,68.1864 -51.4394,68.1924 -51.4088,68.1928 -51.3822,68.1923 -51.3521,68.19 -51.3245,68.1894 -51.2991,68.1896 -51.2341,68.1931 -51.2201,68.1941 -51.1475,68.2011 -51.1329,68.2025 -51.1151,68.2077 -51.1144,68.2299 -51.1181,68.2396 -51.131,68.2477 -51.1659,68.2625 -51.1873,68.2707 -51.2188,68.2776 -51.2367,68.2768 -51.2597,68.2659 -51.2742,68.264 -51.3579,68.2648 -51.3743,68.2652 -51.3904,68.2684 -51.5361,68.3203 -51.527,68.3257 -51.4929,68.3372 -51.4787,68.3397 -51.4424,68.34 -51.4181,68.3369 -51.398,68.3307 -51.2946,68.3172 -51.1682,68.3233 -51.0741,68.3366 -51.0191,68.3509 -50.7536,68.4112 -50.7333,68.4147 -50.7123,68.416 -50.6634,68.399 -50.678,68.391 -50.7376,68.3754 -50.7491,68.3731 -50.9153,68.3501 -50.9885,68.3447 -51.007,68.3406 -51.0436,68.3275 -51.0676,68.3175 -51.0745,68.3068 -51.0703,68.2966 -51.0577,68.2908 -51.0375,68.2792 -51.0168,68.2602 -51.0375,68.2029 -51.113,68.1863 -51.0779,68.1564 -50.9355,68.1343 -50.9226,68.1318 -50.8988,68.124 -50.8697,68.1129 -50.8495,68.0993 -50.864,68.0905 -50.8818,68.0891 -50.9907,68.0938 -51.0196,68.0968 -51.0789,68.1055 -51.0957,68.1127 -51.1171,68.118 -51.1464,68.1208 -51.1872,68.1229 -51.24,68.1219 -51.2794,68.1204 -51.3158,68.117 -51.3265,68.1129 -51.2851,68.0878 -51.2742,68.084 -51.2604,68.0806 -51.1856,68.0638 -50.9698,68.012 -50.8937,67.9933 -50.8361,67.9646 -50.8254,67.9609 -50.6951,67.9429 -50.5661,67.9278 -50.5581,67.9081 -50.4055,67.8759 -50.2062,67.8456 -50.1897,67.8446 -50.1659,67.8465 -50.1172,67.8542 -50.0493,67.8572 -50.0391,67.8528 -50.0523,67.8445 -50.1107,67.8208 -50.2111,67.8277 -50.2509,67.8311 -50.2789,67.8384 -50.3356,67.8435 -50.3811,67.842 -50.446,67.8318 -50.4663,67.8237 -50.4637,67.8142 -50.5326,67.8374 -50.9337,67.9347 -50.944,67.9403 -51.0507,67.9705 -51.0656,67.9743 -51.0813,67.9768 -51.109,67.9786 -51.1498,67.9788 -51.2219,67.9735 -51.3314,67.9669 -51.3689,67.9651 -51.3955,67.9654 -51.4102,67.9666 -51.4247,67.9695 -51.4517,67.972 -51.4796,67.9712 -51.5674,67.9673 -51.6347,67.9607 -51.6585,67.9577 -51.7353,67.9544 -51.7489,67.9552 -51.8472,67.9623 -51.8626,67.9643 -52.0187,68.0005 -52.2008,68.0359 -52.3901,68.0821 -52.4392,68.0954 -52.469,68.1021 -52.4839,68.1029 -52.622,68.1085 -52.636,68.1086 -52.6481,68.1074 -52.6644,68.1036 -52.6863,68.0909 -52.6885,68.0802 -52.6783,68.076 -52.5327,68.0469 -52.4733,68.0397 -52.2831,67.9836 -52.3,67.9767 -52.3175,67.9768 -52.6161,68.0237 -52.646,68.03 -52.7536,68.0588 -52.7867,68.0656 -52.9653,68.1008 -53.0364,68.112 -53.0581,68.1109 -53.2089,68.0971 -53.2792,68.0846 -53.3375,68.0642 -53.179,68.0437 -53.1678,68.0432 -53.1563,68.044 -53.0226,68.0508 -52.9648,68.0066 -52.7795,67.9383 -52.7083,67.9117 -52.6809,67.905 -52.6198,67.8944 -52.5802,67.8878 -52.5278,67.8815 -52.4715,67.8781 -52.3892,67.8747 -52.1313,67.8642 -52.092,67.8632 -52.0661,67.8644 -52.0277,67.8713 -52.0168,67.8748 -51.986,67.8868 -51.9721,67.8909 -51.9534,67.8898 -51.9755,67.8637 -51.9945,67.8544 -52.0351,67.8446 -52.0586,67.839 -52.0788,67.8363 -52.1029,67.8365 -52.114,67.8387 -52.1254,67.8422 -52.1363,67.8521 -52.3971,67.8631 -52.4107,67.8636 -52.4446,67.8626 -52.5809,67.8727 -52.6378,67.8816 -52.6725,67.8886 -52.6983,67.895 -52.8063,67.9325 -52.8839,67.9602 -52.9086,67.9672 -52.9703,67.9759 -52.983,67.9751 -53.08,67.9548 -53.0929,67.9483 -53.1329,67.9216 -53.1477,67.8989 -53.1287,67.8958 -53.1173,67.8965 -53.0537,67.9019 -52.9857,67.9058 -52.8964,67.9018 -52.8793,67.8999 -52.8482,67.8911 -52.8624,67.8879 -52.8981,67.8763 -52.9129,67.8766 -53.0075,67.8792 -53.1216,67.8738 -53.1457,67.859 -53.1661,67.8268 -53.1593,67.8158 -53.1493,67.8033 -53.1018,67.8132 -53.0569,67.8232 -53.0302,67.8246 -53.005,67.821 -52.9675,67.8129 -52.9495,67.7921 -52.9693,67.7964 -52.9828,67.8013 -52.9973,67.8026 -53.0182,67.8032 -53.0293,67.8027 -53.0531,67.7985 -53.141,67.775 -53.1626,67.7693 -53.1772,67.7606 -53.1708,67.7533 -53.1876,67.7564 -53.1949,67.7644 -53.1807,67.7732 -53.1814,67.7876 -53.1944,67.7935 -53.271,67.8118 -53.2986,67.8125 -53.312,67.8111 -53.3234,67.8087 -53.3426,67.8035 -53.353,67.8001 -53.3706,67.7896 -53.3137,67.7448 -53.3006,67.7423 -53.2283,67.7319 -53.2374,67.7257 -53.2153,67.728 -53.191,67.7238 -53.2142,67.7172 -53.2302,67.7147 -53.323,67.7059 -53.3777,67.7142 -53.3916,67.724 -53.3791,67.7282 -53.3553,67.7269 -53.3451,67.7319 -53.3482,67.7461 -53.358,67.7626 -53.3723,67.7688 -53.4414,67.7574 -53.5158,67.7282 -53.5276,67.7006 -53.4656,67.6752 -53.4326,67.6371 -53.4277,67.6245 -53.4525,67.5653 -53.5068,67.5471 -53.5728,67.5329 -53.6094,67.528 -53.6394,67.5186 -53.6178,67.4507 -53.5717,67.4148 -53.561,67.4136 -53.4886,67.4211 -53.478,67.423 -53.4561,67.4295 -53.217,67.5013 -53.1221,67.5432 -53.0958,67.5587 -53.0821,67.5705 -53.0687,67.5837 -53.0377,67.6019 -52.9248,67.653 -52.8949,67.6658 -52.8596,67.6776 -52.7296,67.7021 -52.6963,67.7029 -52.6575,67.7016 -52.5207,67.7001 -52.3658,67.7282 -52.3515,67.7325 -52.3347,67.7435 -52.3262,67.7496 -52.3149,67.7624 -52.3024,67.7712 -52.2299,67.7872 -52.0904,67.8119 -52.0158,67.8186 -52.0047,67.8196 -51.9657,67.8127 -51.9391,67.8093 -51.8795,67.8133 -51.803,67.8209 -51.7816,67.8258 -51.7595,67.8329 -51.7276,67.8472 -51.7132,67.8515 -51.6889,67.8557 -51.5054,67.8874 -51.4942,67.8878 -51.4823,67.8861 -51.4659,67.8785 -51.4957,67.8495 -51.506,67.8477 -51.5933,67.838 -51.7699,67.8051 -51.7891,67.799 -51.8113,67.7946 -51.8344,67.7924 -51.9224,67.7877 -51.9476,67.7874 -52.0293,67.7886 -52.044,67.79 -52.0893,67.7892 -52.194,67.7603 -52.2239,67.7478 -52.2308,67.7357 -52.1583,67.6854 -52.1469,67.6832 -52.1339,67.6821 -52.0397,67.6786 -51.8817,67.6748 -51.7235,67.6827 -51.7113,67.6891 -51.6039,67.7022 -51.5498,67.6989 -51.5395,67.696 -51.5213,67.6822 -51.5298,67.674 -51.541,67.6718 -51.5543,67.6714 -51.5674,67.6717 -51.6075,67.6755 -51.6178,67.6751 -51.6919,67.6702 -51.7025,67.6668 -51.7218,67.6575 -51.7329,67.6487 -51.7135,67.6225 -51.7021,67.6191 -51.6875,67.6153 -51.6405,67.6097 -51.6054,67.6087 -51.5868,67.6116 -51.5769,67.6147 -51.5671,67.6188 -51.5489,67.6272 -51.514,67.6479 -51.4944,67.6611 -51.4809,67.6641 -51.413,67.6707 -51.3968,67.6718 -51.3735,67.671 -51.3582,67.6634 -51.383,67.6527 -51.396,67.651 -51.421,67.641 -51.4048,67.6379 -51.3761,67.6422 -51.3548,67.6474 -51.3178,67.6591 -51.2878,67.6758 -51.2131,67.7274 -51.2155,67.737 -51.2257,67.7454 -51.3632,67.7858 -51.4629,67.8371 -51.4565,67.8468 -51.4096,67.8551 -51.3808,67.8537 -51.352,67.8513 -51.3366,67.8473 -51.3031,67.8365 -51.2909,67.8336 -51.2807,67.8323 -51.2672,67.8316 -51.2526,67.8319 -51.241,67.8328 -51.2199,67.8393 -51.182,67.857 -51.1654,67.8645 -51.1452,67.8725 -51.1345,67.8759 -51.1022,67.8824 -51.0768,67.8858 -51.0519,67.8873 -51.0014,67.888 -50.9531,67.8873 -50.9307,67.8742 -50.867,67.8301 -50.867,67.7967 -50.8818,67.791 -50.8931,67.7886 -50.9093,67.7888 -50.9225,67.7941 -50.9335,67.8033 -50.9505,67.8113 -50.9613,67.8152 -50.9772,67.8183 -50.9909,67.819 -51.0985,67.8202 -51.2094,67.7993 -51.2238,67.7825 -51.1276,67.6941 -51.093,67.6771 -51.0769,67.6737 -51.067,67.6721 -51.0551,67.6724 -50.9279,67.6839 -50.8693,67.7064 -50.7434,67.724 -50.7159,67.7246 -50.6577,67.7275 -50.645,67.7282 -50.6085,67.7322 -50.579,67.7539 -50.572,67.7641 -50.5989,67.7767 -50.6213,67.7836 -50.6521,67.7891 -50.6639,67.7871 -50.6739,67.7829 -50.692,67.7825 -50.7014,67.7761 -50.711,67.7735 -50.7297,67.7738 -50.7464,67.7783 -50.7232,67.8058 -50.7137,67.8104 -50.692,67.817 -50.673,67.82 -50.6595,67.8193 -50.6332,67.8163 -50.3451,67.7661 -50.3122,67.7578 -50.3234,67.7307 -50.3891,67.7336 -50.4933,67.7369 -50.5205,67.7362 -50.5432,67.7332 -50.5541,67.7301 -50.6403,67.7045 -50.6529,67.6979 -50.6682,67.6876 -50.6858,67.6818 -50.8811,67.6357 -50.8925,67.6336 -50.9168,67.6307 -50.9787,67.6286 -51.1243,67.6262 -51.124,67.6111 -51.0153,67.5692 -50.9049,67.5387 -50.8635,67.536 -50.8388,67.5365 -50.7787,67.5404 -50.6951,67.5489 -50.5448,67.5656 -50.5222,67.57 -50.489,67.577 -50.3835,67.6077 -50.2838,67.6378 -50.2623,67.6444 -50.1838,67.6587 -50.1723,67.6592 -50.1586,67.6587 -49.9887,67.6477 -49.9594,67.641 -49.837,67.606 -49.8486,67.5997 -49.8732,67.5973 -49.8987,67.5978 -49.9807,67.602 -49.9931,67.6112 -49.977,67.6244 -50.0015,67.6322 -50.0154,67.6336 -50.1495,67.6444 -50.1695,67.6449 -50.1923,67.6416 -50.2421,67.6272 -50.3361,67.6007 -50.5009,67.5593 -50.547,67.5513 -50.5808,67.5491 -50.5986,67.5485 -50.6437,67.5424 -50.669,67.5376 -50.7441,67.5176 -50.7463,67.5047 -50.6798,67.4723 -50.669,67.4684 -50.6194,67.4552 -50.561,67.442 -50.4659,67.4209 -50.4358,67.4223 -50.3469,67.4263 -50.3099,67.4252 -50.2832,67.4241 -50.2566,67.4218 -50.2162,67.4145 -50.0256,67.4211 -50.0055,67.4235 -49.9671,67.4256 -50.0105,67.409 -50.0918,67.3816 -50.1489,67.3853 -50.1787,67.39 -50.2936,67.3974 -50.3834,67.4027 -50.4412,67.3932 -50.4662,67.3932 -50.4795,67.3938 -50.5952,67.4058 -50.6107,67.4092 -50.6631,67.4245 -50.6737,67.4286 -50.7421,67.4543 -50.7806,67.4726 -50.824,67.4917 -50.8443,67.4988 -50.968,67.5255 -51.0226,67.5384 -51.1839,67.5761 -51.2235,67.5896 -51.2689,67.5931 -51.283,67.592 -51.3073,67.586 -51.3609,67.5684 -51.6026,67.5446 -51.6896,67.5396 -51.7018,67.5398 -51.7744,67.5485 -51.7779,67.5611 -51.7726,67.572 -51.7796,67.5808 -51.7939,67.5852 -51.9235,67.6194 -51.9793,67.6133 -51.9918,67.6097 -52.0055,67.6098 -52.0182,67.6124 -52.1562,67.6427 -52.2647,67.6695 -52.2928,67.6796 -52.3069,67.6826 -52.3487,67.6846 -52.3864,67.6832 -52.6601,67.6612 -52.6964,67.6566 -52.7103,67.6511 -52.6607,67.6397 -52.6361,67.6373 -52.6083,67.6373 -52.5831,67.6392 -52.5592,67.6422 -52.5478,67.6449 -52.5133,67.6494 -52.4763,67.6513 -52.4534,67.6523 -52.426,67.6497 -52.4799,67.6324 -52.514,67.6252 -52.5385,67.622 -52.6152,67.6143 -52.6279,67.615 -52.6416,67.6171 -52.6533,67.6215 -52.6682,67.6285 -52.6777,67.6318 -52.7091,67.6369 -52.7231,67.6383 -52.7366,67.6387 -52.7499,67.638 -52.785,67.6343 -52.8665,67.6212 -52.9228,67.6078 -52.9331,67.6045 -52.9609,67.5922 -52.9792,67.582 -52.9939,67.5701 -52.9808,67.564 -52.9464,67.5687 -52.9126,67.5762 -52.8706,67.5867 -52.8365,67.594 -52.816,67.5978 -52.8025,67.5942 -52.8122,67.5871 -52.8322,67.5792 -52.873,67.5671 -52.9642,67.5508 -53.0012,67.5441 -53.0335,67.5361 -53.2155,67.4677 -53.3551,67.423 -53.4661,67.4033 -53.4908,67.398 -53.6019,67.3662 -53.6922,67.3289 -53.7094,67.32 -53.7496,67.2684 -53.7693,67.1752 -53.7423,67.1386 -53.6976,67.1184 -53.6873,67.1177 -53.6661,67.1204 -53.5897,67.1343 -53.555,67.1413 -53.3285,67.1867 -53.142,67.2352 -53.1155,67.2125 -53.0841,67.1997 -53.0314,67.1929 -53.0181,67.1926 -52.9929,67.1938 -52.9582,67.1976 -52.9236,67.2031 -52.8711,67.2136 -52.8467,67.2172 -52.7322,67.2334 -52.5189,67.2582 -52.1182,67.3037 -51.9434,67.2871 -51.8099,67.2686 -51.5054,67.2724 -51.484,67.2735 -51.4591,67.2769 -51.2487,67.3056 -51.0696,67.335 -51.0456,67.3375 -51.0318,67.3372 -51.0105,67.3322 -51.0257,67.322 -51.048,67.3172 -51.1603,67.2989 -51.1974,67.2937 -51.2216,67.2924 -51.284,67.2877 -51.3763,67.2804 -51.3984,67.276 -51.4092,67.2728 -51.4174,67.2641 -51.2779,67.1678 -51.265,67.1596 -51.1449,67.0845 -51.1192,67.0728 -51.0676,67.0543 -51.0424,67.0511 -51.0285,67.0524 -51.0076,67.0548 -50.9855,67.0579 -50.9536,67.0635 -50.9065,67.0728 -50.8737,67.0806 -50.8074,67.0936 -50.7167,67.1099 -50.6933,67.1134 -50.6323,67.1199 -50.5134,67.1317 -50.4284,67.1368 -50.4025,67.1365 -50.3885,67.1351 -50.2587,67.1096 -50.2466,67.0991 -50.2602,67.0889 -50.2756,67.0855 -50.3127,67.0833 -50.3511,67.0846 -50.3784,67.0863 -50.4074,67.0912 -50.4551,67.1012 -50.4969,67.1057 -50.5333,67.1049 -50.6463,67.1018 -50.6808,67.0999 -50.7283,67.0944 -50.7497,67.0906 -50.7842,67.0834 -50.8269,67.0729 -50.8583,67.0635 -50.9134,67.051 -50.9698,67.0406 -51.0189,67.0378 -51.0443,67.0372 -51.0839,67.0385 -51.1095,67.043 -51.1293,67.0487 -51.1834,67.0671 -51.2026,67.0771 -51.3021,67.1573 -51.3116,67.1663 -51.3197,67.1776 -51.3317,67.1935 -51.3462,67.2075 -51.3603,67.2158 -51.4057,67.2335 -51.4181,67.2374 -51.4335,67.2407 -51.4653,67.245 -51.5809,67.2524 -51.7831,67.2518 -51.8836,67.2467 -51.9238,67.2476 -51.9386,67.2502 -51.9602,67.2545 -51.9717,67.2576 -51.9845,67.2616 -51.9999,67.2693 -52.0193,67.2772 -52.0435,67.2844 -52.0811,67.2828 -52.1098,67.2793 -52.2248,67.2635 -52.5046,67.2318 -52.68,67.2102 -52.7676,67.1903 -52.8334,67.1789 -52.9821,67.1614 -53.0232,67.1615 -53.155,67.166 -53.3667,67.1537 -53.4039,67.1496 -53.4747,67.1327 -53.4159,67.1203 -53.4037,67.1208 -53.3689,67.1245 -53.3442,67.1262 -53.3205,67.1261 -53.2698,67.1168 -53.286,67.1132 -53.3459,67.1062 -53.3704,67.1054 -53.4601,67.1028 -53.4857,67.1027 -53.5366,67.1038 -53.5999,67.1016 -53.6955,67.0954 -53.7054,67.0938 -53.716,67.0903 -53.808,67.0579 -53.8454,67.0122 -53.85,66.9891 -53.5432,66.9979 -53.3499,67.0164 -53.3282,67.0212 -53.3063,67.0246 -53.2823,67.0217 -53.3206,67.0061 -53.4091,66.9868 -53.4323,66.9839 -53.4695,66.9824 -53.5463,66.9832 -53.6274,66.9863 -53.6798,66.9866 -53.7164,66.9821 -53.725,66.9761 -53.7107,66.9466 -53.7027,66.9374 -53.6887,66.9299 -53.6702,66.9266 -53.6436,66.9247 -53.5512,66.921 -53.4793,66.9194 -53.4486,66.9238 -53.3748,66.927 -53.3102,66.9274 -53.122,66.9148 -53.1125,66.906 -53.1359,66.8981 -53.1458,66.8961 -53.157,66.8953 -53.1952,66.8945 -53.2434,66.8947 -53.4761,66.8972 -53.6226,66.9108 -53.6372,66.9111 -53.6916,66.9096 -53.7051,66.9055 -53.715,66.8931 -53.7059,66.8797 -53.6888,66.8719 -53.5759,66.8326 -53.5645,66.8289 -53.5391,66.8249 -53.5183,66.823 -53.4093,66.8237 -53.371,66.826 -53.2914,66.8309 -53.0936,66.8403 -53.0054,66.8362 -52.7628,66.8226 -52.7517,66.8104 -52.7393,66.808 -52.7,66.804 -52.662,66.8033 -52.6497,66.8035 -52.5053,66.8219 -52.4848,66.8269 -52.3904,66.8278 -52.3582,66.8213 -52.3458,66.7935 -52.3547,66.7884 -52.2353,66.7533 -52.2229,66.7523 -52.21,66.7519 -52.1751,66.7536 -52.1252,66.7528 -52.1472,66.7347 -52.1677,66.7295 -52.1892,66.7279 -52.2288,66.7259 -52.2422,66.7273 -52.2693,66.7334 -52.2868,66.7424 -52.3142,66.7528 -52.3508,66.7617 -52.4384,66.7765 -52.4514,66.7785 -52.4777,66.7791 -52.643,66.7761 -52.862,66.7698 -52.8738,66.7683 -52.885,66.766 -52.9446,66.7511 -52.9539,66.7473 -52.9717,66.7291 -52.9472,66.7205 -52.9874,66.6969 -52.9919,66.6787 -52.9685,66.6849 -52.9424,66.6952 -52.9334,66.7001 -52.9214,66.7039 -52.9024,66.7082 -52.8879,66.7103 -52.7633,66.7147 -52.7474,66.7092 -52.7441,66.6951 -52.7537,66.6861 -52.833,66.6709 -52.8489,66.6685 -52.8633,66.6672 -52.968,66.6625 -53.0203,66.6607 -53.0394,66.6617 -53.0581,66.6661 -53.0857,66.6649 -53.0957,66.6601 -52.9393,66.6445 -52.9164,66.6397 -52.8511,66.6345 -52.8366,66.6353 -52.7808,66.6422 -52.7671,66.6442 -52.7359,66.6523 -52.713,66.6567 -52.49,66.6541 -52.4775,66.6485 -52.4789,66.6188 -52.5673,66.6093 -52.7691,66.5948 -52.8643,66.5884 -53.0101,66.5958 -53.1181,66.6093 -53.15,66.612 -53.1663,66.6096 -53.3328,66.5565 -53.3428,66.5534 -53.3688,66.5194 -53.2086,66.4805 -53.1415,66.4672 -53.1153,66.4632 -53.0643,66.4615 -53.0154,66.4624 -52.9741,66.4644 -52.946,66.4688 -52.8849,66.4863 -52.8745,66.4889 -52.8524,66.4912 -52.8416,66.4919 -52.7399,66.4906 -52.726,66.4892 -52.713,66.4861 -52.6347,66.4752 -52.5202,66.4658 -52.4824,66.4627 -52.4026,66.4584 -52.3655,66.4607 -52.3311,66.4653 -52.3194,66.465 -52.3103,66.4603 -52.3346,66.4379 -52.3761,66.4347 -52.4251,66.4353 -52.5615,66.4383 -52.6172,66.4395 -52.647,66.4436 -52.6582,66.4464 -52.6785,66.4546 -52.6899,66.4577 -52.703,66.4597 -52.8135,66.4658 -52.8389,66.4626 -52.8496,66.4603 -52.8618,66.4536 -52.8791,66.4455 -52.9516,66.4264 -52.9621,66.4242 -53.0496,66.4084 -53.0619,66.4076 -53.1347,66.4098 -53.1623,66.4124 -53.2279,66.4256 -53.241,66.4323 -53.1747,66.4332 -53.1368,66.4298 -53.1242,66.4295 -53.104,66.4325 -53.25,66.4522 -53.2622,66.4516 -53.4039,66.4445 -53.5194,66.4222 -53.5858,66.2676 -53.5881,66.2458 -53.547,66.1911 -53.507,66.1585 -53.4804,66.1581 -53.3903,66.1705 -53.2523,66.1841 -53.1315,66.1933 -53.0143,66.201 -53.0626,66.1922 -53.2268,66.1651 -53.2381,66.1636 -53.273,66.1616 -53.3212,66.1592 -53.3574,66.1574 -53.3821,66.1554 -53.402,66.1518 -53.4707,66.1273 -53.5161,66.0712 -53.5121,66.0605 -53.4659,66.0324 -53.4201,66.0191 -53.406,66.0172 -53.3683,66.0156 -53.3232,66.0186 -53.2336,66.0304 -53.1994,66.0358 -53.1787,66.0398 -52.9383,66.0983 -52.8991,66.1099 -52.8892,66.1132 -52.8232,66.1404 -52.7637,66.1667 -52.7371,66.18 -52.6935,66.2052 -52.6787,66.2168 -52.6586,66.2328 -52.6348,66.25 -52.617,66.2626 -52.6034,66.2688 -52.4001,66.338 -52.3531,66.3533 -52.2492,66.3788 -52.0917,66.4154 -52.0723,66.4171 -52.0506,66.4216 -52.0196,66.4317 -51.9943,66.4498 -51.9738,66.4716 -51.946,66.5028 -51.936,66.5191 -51.9269,66.5315 -51.9011,66.5554 -51.8887,66.5652 -51.8753,66.5723 -51.805,66.5886 -51.7515,66.5996 -51.6641,66.6183 -51.6416,66.6239 -51.6208,66.6299 -51.5576,66.653 -51.4896,66.6853 -51.4695,66.6992 -51.3403,66.7496 -51.1998,66.7977 -51.1171,66.8237 -51.0797,66.834 -51.0649,66.836 -51.0242,66.8379 -50.9888,66.8395 -50.9022,66.8646 -50.8727,66.8808 -50.8611,66.8885 -50.8438,66.8936 -50.8118,66.901 -50.4574,66.9597 -50.4351,66.9629 -50.291,66.9813 -50.2553,66.9852 -50.2308,66.9868 -50.187,66.9825 -50.3102,66.9597 -50.383,66.956 -50.4064,66.9566 -50.4431,66.9546 -50.467,66.95 -50.5069,66.9386 -50.5175,66.9353 -50.5258,66.9291 -50.3933,66.911 -50.3796,66.9097 -50.3691,66.9095 -50.3212,66.9153 -50.298,66.9189 -50.2885,66.9216 -50.2518,66.9251 -50.2264,66.9259 -50.2132,66.9253 -50.1753,66.9201 -50.1333,66.9063 -50.1079,66.9017 -50.0831,66.9009 -50.0575,66.9019 -49.9927,66.9076 -49.9771,66.9095 -49.8984,66.8916 -49.9229,66.8833 -49.9782,66.8839 -50.0617,66.8852 -50.1382,66.892 -50.2727,66.9102 -50.3378,66.8982 -50.3889,66.9001 -50.4248,66.9054 -50.4848,66.9147 -50.5746,66.9203 -50.588,66.9181 -50.8518,66.8501 -50.8614,66.8456 -50.8969,66.8258 -50.9025,66.8175 -50.7331,66.7696 -50.6669,66.7602 -50.6498,66.7598 -50.6289,66.7661 -50.5968,66.779 -50.5685,66.7825 -50.558,66.7828 -50.312,66.7724 -50.3008,66.7711 -50.244,66.7577 -50.2279,66.7486 -50.251,66.743 -50.3106,66.743 -50.4252,66.7429 -50.438,66.7434 -50.4625,66.7472 -50.6407,66.7494 -50.7067,66.7406 -50.8216,66.7494 -50.8328,66.7515 -50.8791,66.7605 -50.9403,66.7774 -50.9508,66.7813 -50.9786,66.7881 -51.0079,66.7942 -51.0193,66.7943 -51.0306,66.7924 -51.1661,66.7591 -51.3925,66.6668 -51.4098,66.6596 -51.5036,66.6163 -51.7732,66.5526 -51.7849,66.5496 -51.7943,66.5455 -51.8117,66.5356 -51.8469,66.5091 -51.9207,66.4447 -51.9236,66.433 -51.9149,66.424 -51.9612,66.3976 -52.0666,66.3746 -52.1846,66.3529 -52.2079,66.3499 -52.2323,66.3506 -52.257,66.3503 -52.267,66.3487 -52.298,66.338 -52.4953,66.2678 -52.5249,66.2555 -52.6047,66.214 -52.6176,66.1911 -52.6359,66.1775 -52.6511,66.1685 -52.6922,66.1508 -52.7371,66.135 -52.8354,66.1048 -52.8855,66.0904 -52.9483,66.0735 -53.0133,66.0597 -53.0666,66.0466 -53.0978,66.0387 -53.2,66.0121 -53.2202,66.0063 -53.2684,65.99 -53.3101,65.9743 -53.3289,65.9653 -53.3532,65.9458 -53.3312,65.9377 -53.3073,65.9357 -53.2907,65.937 -53.2377,65.9482 -53.2175,65.9509 -53.2031,65.9502 -53.1848,65.9437 -53.2002,65.9252 -53.0653,65.9418 -53.0315,65.9421 -53.0215,65.9342 -53.0381,65.9281 -53.0668,65.9193 -53.0903,65.9172 -53.1943,65.9119 -53.2075,65.9116 -53.2219,65.9141 -53.2325,65.9188 -53.2471,65.923 -53.2743,65.9215 -53.3588,65.8894 -53.3529,65.8743 -53.3369,65.8686 -53.2772,65.8503 -53.2658,65.8492 -53.2461,65.8472 -53.1474,65.8543 -53.1213,65.8573 -53.0771,65.8689 -53.0119,65.8905 -52.9966,65.8961 -52.9839,65.9003 -52.9299,65.9168 -52.918,65.9197 -52.8624,65.936 -52.8294,65.9416 -52.7941,65.9457 -52.7835,65.9452 -52.7716,65.9364 -52.7815,65.9288 -52.8125,65.9235 -52.8796,65.9107 -52.9198,65.9005 -53.1257,65.8401 -53.1353,65.8259 -53.1194,65.7848 -53.1093,65.7794 -53.0977,65.7782 -53.0554,65.7733 -53.0444,65.7733 -53.0315,65.7742 -53.0126,65.7777 -52.8509,65.8148 -52.7474,65.839 -52.6176,65.874 -52.5116,65.8969 -52.4925,65.8699 -52.4594,65.8415 -52.4357,65.8304 -52.419,65.8232 -52.3994,65.819 -52.2117,65.8163 -52.1964,65.8195 -52.1839,65.8268 -52.1704,65.8458 -52.1641,65.8539 -52.1517,65.8667 -52.1295,65.8839 -52.1037,65.9024 -52.0887,65.9096 -52.0741,65.9145 -51.9658,65.9257 -51.817,65.9518 -51.7269,65.9726 -51.7108,65.9051 -51.7092,65.8818 -51.7734,65.9078 -51.7837,65.9119 -51.8079,65.9192 -51.8229,65.9222 -51.8363,65.9238 -51.8695,65.9213 -51.9301,65.9084 -52.0599,65.8744 -52.0904,65.8658 -52.1063,65.8592 -52.1246,65.8508 -52.1514,65.8358 -52.1632,65.8252 -52.1637,65.8128 -52.2144,65.7861 -52.3344,65.7937 -52.3742,65.7977 -52.4027,65.8019 -52.4589,65.8126 -52.4862,65.819 -52.5319,65.8393 -52.5429,65.8453 -52.5558,65.8503 -52.5672,65.8526 -52.5805,65.854 -52.592,65.8526 -52.6259,65.8451 -52.902,65.7813 -52.9229,65.7746 -52.9505,65.7628 -52.9785,65.7313 -52.9624,65.7232 -52.9749,65.7098 -53.081,65.68 -53.1304,65.668 -53.1578,65.6603 -53.1143,65.6461 -53.0087,65.6596 -52.9925,65.664 -52.89,65.6931 -52.8697,65.6986 -52.8513,65.7051 -52.8311,65.7123 -52.8134,65.72 -52.799,65.7235 -52.7683,65.7204 -52.7527,65.7143 -52.8989,65.6608 -52.9366,65.6553 -52.969,65.6532 -53.0026,65.6483 -53.0539,65.6382 -53.073,65.6304 -53.1262,65.6005 -53.1153,65.5956 -53.055,65.5859 -53.0437,65.5844 -52.9675,65.5817 -52.8923,65.5841 -52.7952,65.6014 -52.7726,65.6041 -52.7623,65.6038 -52.7515,65.6007 -52.7334,65.5915 -52.7212,65.5891 -52.7042,65.5894 -52.6803,65.598 -52.6478,65.6295 -52.6368,65.6421 -52.6204,65.6672 -52.6166,65.6779 -52.6113,65.6993 -52.6007,65.7203 -52.582,65.7219 -52.5701,65.7086 -52.5803,65.6366 -52.6126,65.6084 -52.6387,65.5886 -52.6569,65.5723 -52.6627,65.5533 -52.6534,65.5512 -52.5791,65.5674 -52.535,65.5723 -52.5721,65.557 -52.6776,65.5209 -52.6955,65.5123 -52.6987,65.4663 -52.6929,65.4547 -52.6141,65.4168 -52.5806,65.4197 -52.5702,65.4256 -52.5131,65.4619 -52.5069,65.4764 -52.4995,65.4868 -52.3927,65.5593 -52.3636,65.5585 -52.3943,65.5223 -52.4085,65.5067 -52.4225,65.4951 -52.4423,65.4839 -52.4567,65.4793 -52.4758,65.4695 -52.4887,65.459 -52.4985,65.4447 -52.5066,65.3988 -52.3906,65.3062 -52.3705,65.3099 -52.3534,65.3176 -52.2218,65.3551 -52.118,65.3823 -51.9944,65.4138 -51.9717,65.4172 -51.9512,65.4217 -51.8821,65.4423 -51.8302,65.4644 -51.8129,65.48 -51.8304,65.5134 -51.8505,65.5551 -51.8434,65.5764 -51.6018,65.628 -51.3808,65.6806 -51.2091,65.7054 -51.1519,65.7131 -51.1287,65.7147 -51.1059,65.7135 -50.8792,65.6981 -50.6204,65.672 -50.5921,65.6363 -50.445,65.6252 -50.4435,65.6095 -50.4586,65.6024 -50.5892,65.5937 -50.6144,65.5945 -50.6277,65.5959 -50.6415,65.5983 -50.6616,65.603 -50.6953,65.6132 -50.7144,65.6215 -50.7223,65.6282 -50.7405,65.6379 -50.8071,65.6638 -50.8195,65.6674 -50.8441,65.6732 -50.8793,65.6778 -50.8941,65.6781 -51.1406,65.6771 -51.1646,65.676 -51.2542,65.6696 -51.2887,65.6663 -51.3858,65.6522 -51.4294,65.6449 -51.5905,65.6162 -51.6093,65.6104 -51.7741,65.5578 -51.7838,65.5545 -51.7948,65.5396 -51.7748,65.5189 -51.7489,65.5204 -51.7386,65.5229 -51.7045,65.526 -51.6821,65.5275 -51.6677,65.5259 -51.6154,65.5011 -51.627,65.4978 -51.6597,65.4941 -51.7436,65.4823 -51.8199,65.4388 -51.9593,65.3975 -52.0489,65.3825 -52.284,65.3143 -52.3025,65.3082 -52.4301,65.2592 -52.4567,65.2385 -52.426,65.1096 -52.4141,65.1036 -52.4049,65.1053 -52.3527,65.1181 -52.3373,65.1275 -52.2817,65.1739 -52.2272,65.2106 -52.1182,65.2461 -52.0992,65.2481 -52.0899,65.2437 -52.0827,65.2322 -52.0841,65.1963 -52.1181,65.17 -52.1344,65.1597 -52.1611,65.147 -52.1806,65.1386 -52.1957,65.1333 -52.2057,65.1204 -52.1912,65.1167 -52.1506,65.117 -52.1263,65.12 -52.0919,65.1287 -52.0698,65.1401 -52.0263,65.1666 -51.9956,65.1575 -52.1685,65.014 -52.1793,65.0056 -52.1761,64.9949 -52.0568,64.9185 -52.0445,64.9216 -52.0182,64.9356 -51.9947,64.9381 -51.9819,64.9368 -51.9718,64.9333 -51.9078,64.8984 -51.9122,64.8815 -51.9714,64.8645 -52.0444,64.847 -52.1117,64.8305 -52.1212,64.8205 -52.121,64.7494 -52.1169,64.7326 -52.1075,64.7262 -52.0817,64.7238 -52.0717,64.7229 -52.0223,64.738 -52.0087,64.7433 -51.9499,64.7741 -51.9401,64.7844 -51.9402,64.7992 -51.9249,64.8244 -51.8422,64.797 -51.8532,64.7781 -51.8837,64.7565 -51.8934,64.7536 -51.9144,64.7496 -51.9339,64.7485 -51.9656,64.7419 -51.9821,64.7339 -51.999,64.7174 -51.9871,64.7097 -51.9742,64.7084 -51.9526,64.7094 -51.8755,64.7194 -51.8386,64.7301 -51.7703,64.757 -51.7627,64.7681 -51.7701,64.7807 -51.7668,64.7951 -51.7206,64.847 -51.6114,64.9319 -51.5996,64.9375 -51.5757,64.9406 -51.5514,64.9383 -51.5334,64.935 -51.4601,64.9096 -51.4692,64.8948 -51.487,64.8879 -51.5156,64.8854 -51.5256,64.8875 -51.5387,64.889 -51.5473,64.8834 -51.6008,64.8058 -51.5781,64.8052 -51.5459,64.8104 -51.5358,64.8126 -51.4811,64.8289 -51.4627,64.8345 -51.3452,64.8888 -51.3221,64.9099 -51.1726,64.9522 -51.1569,64.948 -51.1477,64.9347 -51.1565,64.9232 -51.2025,64.9055 -51.2177,64.9005 -51.2534,64.8916 -51.2924,64.8798 -51.3113,64.8706 -51.385,64.8195 -51.4124,64.7977 -51.4333,64.777 -51.4464,64.7754 -51.5427,64.7824 -51.7256,64.7513 -51.7569,64.7452 -51.7838,64.7335 -51.8343,64.7017 -51.9503,64.6628 -52.0127,64.6425 -52.0337,64.6129 -52.0181,64.5624 -51.954,64.5189 -51.9993,64.4719 -52.0133,64.3734 -51.9974,64.3027 -51.9822,64.3007 -51.9624,64.3139 -51.942,64.3222 -51.9222,64.2826 -51.9022,64.1873 -51.903,64.1763 -51.9237,64.1665 -51.9303,64.1557 -51.9017,64.1223 -51.8822,64.1206 -51.7435,64.1367 -51.7329,64.1381 -51.7215,64.1416 -51.6905,64.1571 -51.5625,64.2267 -51.5737,64.2684 -51.5641,64.2908 -51.5281,64.3049 -51.5169,64.3086 -51.501,64.3159 -51.3912,64.396 -51.3406,64.4374 -51.3329,64.4607 -51.3277,64.487 -51.3295,64.5087 -51.3241,64.5192 -51.3139,64.5333 -51.1932,64.6501 -51.1845,64.6557 -51.1751,64.66 -51.1225,64.6817 -51.0945,64.6925 -51.0651,64.6997 -51.0445,64.7026 -51.0224,64.7045 -50.963,64.7053 -50.9361,64.6992 -50.9225,64.6742 -50.9357,64.6698 -50.9562,64.6665 -50.9725,64.6716 -50.9914,64.6752 -51.0536,64.6357 -51.0715,64.6141 -51.117,64.5455 -51.1089,64.539 -51.0587,64.5343 -51.0416,64.5334 -50.9319,64.5417 -50.9101,64.5525 -50.9056,64.5634 -50.852,64.5925 -50.7225,64.6356 -50.6007,64.6621 -50.5873,64.6615 -50.5335,64.6779 -50.5443,64.751 -50.5877,64.7728 -50.6086,64.8305 -50.628,64.9157 -50.6418,64.9222 -50.6547,64.9234 -50.6771,64.9215 -50.6959,64.9173 -50.7053,64.9127 -50.7206,64.9039 -50.7505,64.8888 -50.7655,64.8876 -50.7793,64.8939 -50.7851,64.9022 -50.8323,65.0075 -50.8586,65.068 -50.8802,65.1354 -50.8651,65.1355 -50.7455,65.077 -50.7184,65.0296 -50.685,64.959 -50.5921,64.9133 -50.5907,64.8747 -50.586,64.8248 -50.4633,64.6902 -50.4427,64.6827 -50.2165,64.661 -50.2016,64.6626 -50.1815,64.6701 -50.1591,64.6827 -50.1419,64.6972 -50.1252,64.7138 -50.108,64.728 -50.0926,64.7402 -50.0757,64.7489 -50.0488,64.7565 -49.92,64.7879 -49.9095,64.7904 -49.8993,64.7843 -49.9119,64.7736 -49.9224,64.7684 -49.9495,64.7551 -49.9599,64.7516 -49.9877,64.7443 -50.0167,64.7363 -50.0263,64.733 -50.036,64.7272 -50.1101,64.6615 -50.1115,64.6419 -50.1023,64.6335 -50.0696,64.6163 -50.0537,64.6135 -50.0296,64.6179 -50.0122,64.6255 -49.9931,64.6303 -49.971,64.6304 -49.9457,64.6275 -49.8922,64.6193 -49.8896,64.6096 -49.8984,64.6034 -49.9405,64.5911 -49.9848,64.585 -49.9951,64.5829 -50.0043,64.5786 -50.0228,64.555 -50.0209,64.5388 -49.9645,64.4478 -49.9314,64.4325 -49.8508,64.4108 -49.7287,64.3706 -49.6655,64.3458 -49.649,64.3471 -49.5933,64.3487 -49.5797,64.3457 -49.4894,64.2739 -49.4858,64.2601 -49.5152,64.2503 -49.5443,64.2491 -49.5678,64.2531 -49.5998,64.2603 -49.6203,64.2672 -49.6601,64.2821 -49.7552,64.3175 -49.9503,64.3777 -49.978,64.3845 -50.0349,64.3967 -50.0647,64.415 -50.0731,64.4219 -50.0969,64.444 -50.1173,64.4641 -50.151,64.5212 -50.1487,64.5311 -50.149,64.5462 -50.155,64.5558 -50.1811,64.5798 -50.1912,64.5854 -50.2011,64.5893 -50.223,64.5962 -50.3545,64.6229 -50.4248,64.6246 -50.5511,64.6116 -50.5615,64.6051 -50.5014,64.5783 -50.4899,64.5784 -50.4699,64.583 -50.453,64.5899 -50.4339,64.5966 -50.4186,64.5972 -50.4041,64.5971 -50.3923,64.5963 -50.3802,64.5945 -50.3664,64.5913 -50.3541,64.585 -50.3602,64.5752 -50.4656,64.5536 -50.4844,64.5504 -50.5185,64.5494 -50.5295,64.5496 -50.5802,64.5554 -50.6348,64.5653 -50.6475,64.5681 -50.6728,64.5709 -50.6946,64.572 -50.7556,64.5529 -50.7791,64.5433 -50.807,64.515 -50.7912,64.5053 -50.778,64.5029 -50.7431,64.5021 -50.6414,64.5005 -50.587,64.4603 -50.5752,64.4488 -50.5618,64.4408 -50.5501,64.4377 -50.5377,64.4363 -50.5255,64.437 -50.4875,64.4483 -50.3534,64.4676 -50.3417,64.4667 -50.3609,64.4532 -50.38,64.447 -50.4204,64.4369 -50.4507,64.4302 -50.4828,64.4237 -50.5119,64.4149 -50.5336,64.4078 -50.5487,64.3991 -50.5404,64.3898 -50.4735,64.3684 -50.4256,64.3593 -50.3017,64.3398 -50.271,64.347 -50.2442,64.3588 -50.1643,64.3866 -50.1436,64.3926 -50.1251,64.3973 -50.1113,64.3994 -50.0941,64.3944 -50.0767,64.3669 -50.1494,64.3293 -50.1831,64.3191 -50.2418,64.304 -50.2526,64.303 -50.2631,64.3032 -50.356,64.3139 -50.4847,64.2975 -50.4994,64.2936 -50.5219,64.2941 -50.5616,64.3014 -50.6361,64.3214 -50.6496,64.3357 -50.6606,64.3412 -50.6723,64.3451 -50.6939,64.346 -50.7406,64.3393 -50.7555,64.3359 -50.7816,64.3281 -50.805,64.3191 -50.8636,64.2773 -50.9361,64.1915 -50.9227,64.1847 -50.9091,64.1813 -50.8836,64.1776 -50.861,64.1754 -50.8492,64.1749 -50.8377,64.1754 -50.8154,64.1776 -50.7855,64.1857 -50.7722,64.1862 -50.7606,64.1829 -50.7459,64.1727 -50.8363,64.1425 -50.8502,64.1387 -51.1299,64.0977 -51.1596,64.0936 -51.1709,64.093 -51.2023,64.0951 -51.2483,64.1077 -51.2598,64.1111 -51.2712,64.1167 -51.2895,64.1277 -51.3221,64.1379 -51.3419,64.1396 -51.3667,64.1396 -51.5039,64.1379 -51.5153,64.1373 -51.6462,64.1227 -51.6595,64.1092 -51.5925,64.0655 -51.5828,64.0617 -51.5574,64.0696 -51.5283,64.0801 -51.4958,64.0939 -51.4806,64.1006 -51.4445,64.1139 -51.4167,64.1161 -51.3186,64.0901 -51.294,64.0724 -51.281,64.0602 -51.2956,64.066 -51.3086,64.0749 -51.3232,64.078 -51.374,64.086 -51.4168,64.0879 -51.4327,64.0882 -51.4695,64.0832 -51.4904,64.075 -51.544,64.0393 -51.5289,64.0318 -51.4593,64.012 -51.344,63.999 -51.2442,64.0137 -51.1675,64.024 -51.1355,64.0281 -51.1137,64.0301 -51.0282,64.0363 -51.0048,64.0376 -50.9592,64.0384 -50.8594,64.06 -50.7281,64.0892 -50.5009,64.1501 -50.4858,64.1573 -50.3756,64.2115 -50.3826,64.1781 -50.4435,64.1288 -50.4521,64.1003 -50.4404,64.0989 -50.2918,64.1153 -50.2754,64.1185 -50.2525,64.1239 -50.1516,64.1437 -50.1285,64.1476 -50.0597,64.1573 -50.044,64.1581 -50.0215,64.1535 -49.9583,64.1274 -49.949,64.1164 -49.9805,64.0848 -50.0028,64.1054 -50.0126,64.1092 -50.0404,64.1154 -50.0742,64.1199 -50.1055,64.1219 -50.1515,64.1154 -50.2822,64.0833 -50.2971,64.0784 -50.372,64.0582 -50.5256,64.0868 -50.619,64.0709 -50.6426,64.0596 -50.6667,64.0488 -50.6829,64.0425 -50.7602,64.0168 -50.7726,64.0144 -50.7926,64.0122 -50.8283,64.0137 -50.883,64.0142 -51.1633,63.9945 -51.1755,63.9934 -51.4594,63.9641 -51.4816,63.9605 -51.4999,63.9558 -51.5362,63.9431 -51.5558,63.9316 -51.5214,63.9202 -51.4905,63.911 -51.4782,63.9078 -51.4082,63.8916 -51.3977,63.89 -51.3824,63.8912 -51.3692,63.8947 -51.3547,63.9021 -51.3439,63.9051 -51.3215,63.906 -51.2847,63.8991 -51.2729,63.8954 -51.261,63.8879 -51.2755,63.8083 -51.2967,63.7653 -51.3273,63.7687 -51.3366,63.7738 -51.3516,63.7761 -51.3625,63.7733 -51.3738,63.7618 -51.3547,63.7311 -51.3418,63.7261 -51.3293,63.7248 -51.2283,63.7386 -51.2171,63.7408 -51.1979,63.7467 -51.1804,63.7549 -51.1582,63.7686 -51.14,63.7775 -51.0803,63.8048 -51.0534,63.8139 -50.8956,63.8498 -50.8816,63.8527 -50.8238,63.8521 -50.8348,63.8436 -50.856,63.8364 -50.928,63.8194 -51.0083,63.7975 -51.0524,63.7816 -51.12,63.7569 -51.4017,63.6917 -51.4257,63.6832 -51.4386,63.6735 -51.4464,63.6621 -51.4565,63.6286 -51.4328,63.6021 -51.4018,63.587 -51.3788,63.5814 -51.362,63.5802 -51.3483,63.5795 -51.3277,63.5734 -51.2529,63.5384 -51.1086,63.4461 -51.068,63.4246 -51.0401,63.4266 -51.0205,63.438 -51.0261,63.4495 -51.0427,63.4613 -51.0637,63.4888 -51.0812,63.5134 -51.085,63.5226 -51.0838,63.5441 -50.9813,63.5871 -50.9542,63.5854 -50.8971,63.5676 -50.8712,63.5616 -50.8574,63.5589 -50.8201,63.5521 -50.7861,63.5493 -50.764,63.5501 -50.6618,63.5653 -50.6419,63.5695 -50.5598,63.5806 -50.4531,63.5912 -50.4339,63.5929 -50.4082,63.5906 -50.4089,63.5789 -50.4329,63.5439 -50.4496,63.5313 -50.4695,63.5346 -50.4978,63.5639 -50.6142,63.5528 -50.8135,63.5367 -50.8262,63.5415 -50.8372,63.5437 -50.9343,63.5603 -51.0313,63.5419 -51.0471,63.5196 -51.0462,63.506 -51.0412,63.4959 -51.0113,63.4545 -50.9991,63.4478 -50.9534,63.4392 -50.9155,63.45 -50.8323,63.4624 -50.7066,63.4763 -50.6848,63.4768 -50.6469,63.4722 -50.6486,63.4601 -50.6732,63.4493 -50.7235,63.443 -50.8769,63.4243 -51.0197,63.41 -51.0401,63.408 -51.0614,63.4007 -51.1194,63.3631 -51.0696,63.306 -51.058,63.3002 -51.0458,63.2974 -51.0266,63.2956 -50.9538,63.2911 -50.6766,63.298 -50.4793,63.3094 -50.4576,63.3118 -50.4286,63.3178 -50.3919,63.3282 -50.3325,63.3392 -50.3137,63.3418 -50.2809,63.344 -50.2613,63.3426 -50.181,63.3224 -50.4227,63.2891 -50.4833,63.2838 -50.7358,63.2735 -50.7559,63.2727 -50.8666,63.2745 -50.8895,63.2754 -50.9112,63.2767 -50.9424,63.2749 -51.0072,63.2626 -51.0026,63.227 -50.9593,63.1065 -50.9451,63.0962 -50.9323,63.0906 -50.9086,63.083 -50.8959,63.0806 -50.8844,63.0803 -50.8675,63.0867 -50.8489,63.1008 -50.8378,63.1108 -50.8133,63.1259 -50.7625,63.1507 -50.7363,63.1622 -50.7038,63.1719 -50.6806,63.1724 -50.7104,63.1527 -50.7342,63.1405 -50.7491,63.1389 -50.8125,63.1054 -50.8288,63.0912 -50.8321,63.0804 -50.821,63.0643 -50.8029,63.0612 -50.7422,63.0924 -50.6948,63.1191 -50.6382,63.1213 -50.4711,63.1494 -50.4557,63.1472 -50.4188,63.114 -50.4026,63.1066 -50.3637,63.104 -50.3437,63.108 -50.3018,63.1236 -50.2728,63.139 -50.2636,63.1477 -50.086,63.1521 -49.9966,63.1541 -49.9619,63.1511 -49.9812,63.1397 -49.9943,63.1374 -50.017,63.1379 -50.0384,63.1368 -50.122,63.1314 -50.2474,63.12 -50.2689,63.1168 -50.2874,63.113 -50.3157,63.1043 -50.3418,63.0928 -50.3527,63.0828 -50.3288,63.0801 -50.3232,63.0688 -50.3368,63.0587 -50.3672,63.0483 -50.4324,63.0356 -50.5072,63.0169 -50.5138,62.9624 -50.4949,62.8928 -50.3096,62.863 -50.2036,62.8904 -50.1858,62.896 -50.1609,62.9413 -50.1308,62.9611 -50.0643,62.9416 -50.0521,62.9378 -50.0723,62.9241 -50.1425,62.8984 -50.2211,62.8573 -50.2909,62.787 -50.3017,62.7744 -50.285,62.7107 -50.2715,62.7047 -50.2566,62.7063 -50.2451,62.7136 -50.2352,62.7262 -50.2306,62.7381 -50.2245,62.7514 -50.0956,62.8555 -50.0795,62.858 -50.015,62.8855 -49.9626,62.8917 -49.9331,62.8974 -49.8759,62.9127 -49.8402,62.9244 -49.8139,62.9358 -49.7174,62.9757 -49.6946,62.983 -49.6718,62.984 -49.6167,62.9826 -49.6026,62.9778 -49.6163,62.9677 -49.7097,62.9281 -49.7363,62.919 -49.7581,62.915 -49.7784,62.9117 -49.8259,62.907 -49.8669,62.9003 -49.9674,62.8778 -50.0445,62.8594 -50.0527,62.8534 -50.1453,62.7532 -50.2185,62.664 -50.18,62.6266 -50.1579,62.627 -49.9858,62.7185 -49.8488,62.793 -49.8501,62.7502 -49.9678,62.6966 -50.1148,62.6004 -50.1259,62.5929 -50.2179,62.4176 -50.114,62.3449 -49.9289,62.257 -49.8355,62.2558 -49.8116,62.2434 -49.7739,62.209 -49.7519,62.1879 -49.7406,62.1614 -49.7113,62.1742 -49.6159,62.1875 -49.5943,62.1855 -49.4212,62.1787 -49.3065,62.1798 -49.2992,62.1709 -49.3433,62.1589 -49.4606,62.1526 -49.4754,62.1505 -49.5045,62.1277 -49.5421,62.0747 -49.3759,62.0689 -49.3605,62.0723 -49.3488,62.0773 -49.342,62.088 -49.3023,62.1027 -49.2911,62.1128 -49.2784,62.1165 -49.2627,62.1151 -49.1986,62.0962 -49.2011,62.0582 -49.2962,62.0212 -49.3253,62.0141 -49.3493,62.0191 -49.4011,62.0293 -49.4287,62.0341 -49.4666,62.0407 -49.4989,62.0445 -49.5098,62.0449 -49.5502,62.044 -49.5924,62.0412 -49.6018,62.0364 -49.5992,61.9335 -49.583,61.9232 -49.5733,61.92 -49.5295,61.9105 -49.5064,61.9074 -49.3093,61.9079 -49.2897,61.9092 -49.2689,61.9106 -49.0773,61.9404 -49.0631,61.9448 -49.0521,61.958 -49.0521,61.9719 -49.0559,61.9843 -49.0597,62.0007 -49.0596,62.0159 -49.0537,62.0318 -49.006,62.0934 -48.9887,62.1081 -48.9371,62.1371 -48.9263,62.1377 -48.913,62.1299 -48.9185,62.1193 -48.9321,62.1083 -48.946,62.0972 -48.979,62.0602 -48.9908,62.0437 -49.001,62.0276 -49.005,62.0122 -48.997,62.001 -48.9755,62.0013 -48.8854,62.006 -48.7481,62.0003 -48.7701,61.9829 -48.8023,61.9718 -48.8318,61.9694 -48.9038,61.9698 -48.9759,61.9351 -49.0422,61.8988 -49.0591,61.8911 -49.0704,61.8903 -49.0892,61.8915 -49.1318,61.8977 -49.1431,61.8982 -49.1546,61.8983 -49.173,61.8968 -49.1897,61.8945 -49.2787,61.8709 -49.3434,61.766 -49.3174,61.7371 -49.287,61.7297 -49.2629,61.7306 -49.2434,61.7353 -49.232,61.7412 -49.2206,61.7513 -49.1945,61.7879 -49.1199,61.8081 -49.1742,61.7613 -49.2592,61.6902 -49.1658,61.641 -49.1433,61.6363 -49.1323,61.6395 -49.0899,61.6674 -49.0905,61.7119 -49.099,61.7298 -49.101,61.7445 -49.0981,61.7545 -49.0938,61.7638 -49.0702,61.7821 -48.9063,61.8785 -48.87,61.8924 -48.8492,61.8994 -48.825,61.9046 -48.7948,61.9082 -48.7348,61.9133 -48.7034,61.9139 -48.6924,61.9134 -48.6812,61.9117 -48.6649,61.9058 -48.6585,61.8984 -48.6528,61.8821 -48.6618,61.8767 -48.6722,61.8767 -48.6824,61.8779 -48.7046,61.8793 -48.7255,61.8788 -48.7956,61.8705 -48.8077,61.8659 -49.0093,61.7522 -49.0219,61.7415 -49.0292,61.7314 -49.0545,61.6445 -48.9933,61.6537 -48.9523,61.6477 -48.9556,61.6255 -48.9752,61.6089 -48.9725,61.5798 -48.9587,61.544 -48.8874,61.5284 -48.8622,61.527 -48.8518,61.5271 -48.8349,61.5286 -48.6488,61.5497 -48.6208,61.5548 -48.6109,61.5575 -48.5936,61.5657 -48.5666,61.5745 -48.5531,61.5738 -48.5414,61.5713 -48.5183,61.5655 -48.5058,61.5614 -48.5727,61.5381 -48.5885,61.5337 -48.6089,61.5304 -48.8305,61.5035 -48.8527,61.5052 -48.9309,61.5135 -48.9597,61.5222 -48.9963,61.5276 -49.1316,61.5287 -49.1553,61.527 -49.1704,61.5188 -49.2028,61.4826 -49.0071,61.4148 -48.855,61.3908 -48.7406,61.4093 -48.4378,61.4681 -48.4196,61.4731 -48.3764,61.4864 -48.3476,61.496 -48.3003,61.5149 -48.2912,61.5197 -48.2669,61.5291 -48.2512,61.53 -48.14,61.4609 -48.1522,61.4542 -48.186,61.451 -48.3163,61.4419 -48.585,61.4029 -48.7084,61.3885 -48.7191,61.3892 -48.7378,61.387 -48.7644,61.3803 -48.8926,61.348 -48.9514,61.332 -48.971,61.3246 -48.8872,61.2813 -48.7454,61.3042 -48.6524,61.3218 -48.5802,61.3199 -48.556,61.3152 -48.3914,61.298 -48.2859,61.2893 -48.2879,61.227 -48.3033,61.2219 -48.3389,61.22 -48.3945,61.2068 -48.4189,61.2059 -48.4631,61.2091 -48.4743,61.2109 -48.4891,61.209 -48.5218,61.1862 -48.5416,61.1674 -48.5462,61.1361 -48.3832,61.0985 -48.3372,61.1057 -48.2702,61.1324 -48.2293,61.1321 -48.2367,61.1104 -48.246,61.1057 -48.2652,61.0977 -48.2846,61.0955 -48.3467,61.0826 -48.3397,61.0638 -48.3179,61.0581 -48.2952,61.0548 -48.2616,61.0512 -48.2283,61.0499 -48.2089,61.0515 -48.1851,61.0542 -48.1255,61.0617 -48.1429,61.0739 -48.174,61.1079 -48.1692,61.1214 -48.1592,61.1395 -48.152,61.1675 -48.0299,61.2408 -47.9011,61.2572 -47.8628,61.2574 -47.8413,61.257 -47.8289,61.2479 -47.8403,61.2417 -47.8594,61.2425 -47.88,61.2422 -47.923,61.2372 -47.9853,61.2218 -48.0154,61.2046 -48.1149,61.1305 -48.127,61.1168 -48.1241,61.106 -48.1153,61.097 -48.002,61.0148 -47.9879,61.0116 -47.8909,61.0212 -47.8581,61.0299 -47.8018,61.0476 -47.742,60.9753 -47.7454,60.9662 -47.7568,60.9619 -47.7671,60.96 -47.7879,60.9583 -47.8668,60.961 -47.9991,60.9545 -48.1379,60.9461 -48.2169,60.9396 -48.3067,60.9259 -48.3145,60.9179 -48.3057,60.9089 -48.2816,60.9031 -48.2241,60.905 -48.212,60.9134 -48.1997,60.9182 -48.1733,60.9214 -48.1628,60.9207 -48.1516,60.919 -48.1012,60.9065 -48.0663,60.8949 -48.0403,60.8906 -47.997,60.8977 -47.9133,60.9173 -47.805,60.9389 -47.614,60.9381 -47.5987,60.9328 -47.6388,60.8988 -47.8257,60.8513 -47.9142,60.8335 -47.9578,60.8247 -48.052,60.8004 -48.0856,60.7891 -48.1022,60.7824 -48.1431,60.7639 -48.1505,60.7506 -48.135,60.7424 -48.1159,60.7382 -48.1006,60.7369 -48.0013,60.7446 -47.9825,60.7461 -47.9641,60.7494 -47.9379,60.7564 -47.9226,60.7674 -47.8642,60.7672 -47.8068,60.7665 -47.6986,60.7505 -47.563,60.7348 -47.5193,60.7386 -47.3576,60.7467 -47.2615,60.7752 -47.2308,60.7909 -47.2724,60.8093 -47.3858,60.8152 -47.5191,60.8037 -47.7138,60.7935 -47.7182,60.8054 -47.6737,60.8321 -47.6511,60.8262 -47.4996,60.8182 -47.4876,60.8174 -47.4645,60.8204 -47.4042,60.8254 -47.3832,60.8326 -47.4006,60.8399 -47.3837,60.8481 -47.2279,60.8783 -47.2043,60.8748 -47.0736,60.8653 -46.9483,60.9007 -46.9334,60.902 -46.9218,60.8992 -46.8586,60.8787 -46.8428,60.8729 -46.826,60.8587 -46.8548,60.8338 -46.8693,60.7897 -46.8209,60.7287 -46.7732,60.7237 -46.66,60.7659 -46.6265,60.7809 -46.6208,60.8123 -46.7245,60.8409 -46.7464,60.846 -46.7458,60.8563 -46.5426,60.8358 -46.493,60.8318 -46.4947,60.8494 -46.4793,60.8778 -46.4345,60.9414 -46.3756,60.9243 -46.358,60.9244 -46.3316,60.9311 -46.2903,60.9744 -46.2959,60.9851 -46.3154,60.9947 -46.3172,61.0083 -46.3036,61.009 -46.2677,61.0018 -46.2572,60.9994 -46.1794,60.9734 -46.1673,60.9522 -46.1601,60.9269 -46.1656,60.912 -46.1548,60.9037 -46.1411,60.9009 -46.05,60.9252 -46.0402,60.9279 -45.8274,61.0162 -45.7507,61.0621 -45.7518,61.0886 -45.7594,61.0967 -45.7687,61.1022 -45.7893,61.1094 -45.9216,61.1486 -45.9049,61.1621 -45.7203,61.2582 -45.7023,61.2604 -45.6865,61.2595 -45.6321,61.2447 -45.6618,61.2315 -45.676,61.2261 -45.7027,61.2139 -45.7271,61.2017 -45.7438,61.1898 -45.7822,61.1514 -45.779,61.1409 -45.768,61.1356 -45.6113,61.0945 -45.5663,61.0678 -45.6903,61.0163 -45.8652,60.9515 -45.9918,60.907 -46.0148,60.8936 -45.9776,60.8472 -45.966,60.8418 -45.9394,60.8358 -45.9189,60.8382 -45.9019,60.8434 -45.8869,60.8495 -45.8706,60.8556 -45.8525,60.8617 -45.7447,60.8956 -45.7306,60.8829 -45.7136,60.8789 -45.5671,60.9225 -45.5444,60.9333 -45.5292,60.9415 -45.5153,60.9494 -45.3946,61.0332 -45.41,61.0545 -45.4312,61.0894 -45.4341,61.1014 -45.4283,61.1481 -45.4134,61.159 -45.3585,61.0935 -45.3005,61.0223 -45.2841,61.0158 -45.268,61.019 -45.2587,61.0236 -45.2502,61.0296 -45.2385,61.0406 -45.2202,61.0603 -45.2064,61.0764 -45.1972,61.0843 -45.1583,61.1162 -45.1483,61.1237 -45.1293,61.1295 -45.1141,61.1154 -45.1656,61.0331 -45.1781,61.0261 -45.2194,61.015 -45.2578,61.0018 -45.3547,60.968 -45.3686,60.9579 -45.3766,60.9471 -45.3804,60.9342 -45.387,60.9231 -45.403,60.9153 -45.429,60.9069 -45.4837,60.892 -45.5259,60.8808 -45.5677,60.8717 -45.6263,60.8609 -45.6426,60.8589 -45.6537,60.8583 -45.6918,60.8601 -45.708,60.8617 -45.7232,60.8618 -45.7774,60.8574 -45.7943,60.8545 -45.8799,60.8287 -45.9169,60.8171 -45.9951,60.7872 -46.0115,60.78 -46.0703,60.7582 -46.1052,60.7362 -46.0945,60.7288 -46.084,60.7264 -46.0473,60.7326 -45.9598,60.7622 -45.9409,60.7756 -45.8886,60.7836 -45.9101,60.7668 -45.9766,60.7403 -46.0967,60.707 -46.1233,60.7005 -46.1338,60.6945 -46.1346,60.6846 -46.1209,60.6697 -46.0889,60.6569 -46.0682,60.6516 -45.9933,60.645 -45.9717,60.644 -45.9562,60.6466 -45.9354,60.6544 -45.9225,60.6637 -45.9165,60.6728 -45.9147,60.6853 -45.9153,60.6951 -45.8811,60.7253 -45.8558,60.7516 -45.8063,60.7596 -45.744,60.7755 -45.6932,60.7662 -45.6786,60.7625 -45.6671,60.7543 -45.6775,60.7479 -45.7095,60.7426 -45.8053,60.6948 -45.7962,60.6802 -45.7791,60.6765 -45.7324,60.6711 -45.7197,60.6725 -45.6236,60.6941 -45.5996,60.7012 -45.3984,60.8092 -45.3471,60.8582 -45.3163,60.9007 -45.3227,60.9083 -45.3272,60.9233 -45.3106,60.9333 -45.2976,60.9332 -45.2468,60.9083 -45.1718,60.8443 -45.1666,60.832 -45.1827,60.8263 -45.2352,60.8261 -45.2897,60.8185 -45.3064,60.8148 -45.3226,60.8094 -45.5053,60.7187 -45.5023,60.6945 -45.5675,60.6751 -45.6434,60.6595 -45.765,60.622 -45.7485,60.612 -45.6596,60.5922 -45.6471,60.5929 -45.6043,60.605 -45.5913,60.5996 -45.6147,60.5883 -45.7221,60.5589 -45.8386,60.5265 -45.8907,60.5047 -45.8037,60.4825 -45.7402,60.4843 -45.7028,60.5192 -45.6953,60.5295 -45.6845,60.536 -45.6739,60.5404 -45.6349,60.5526 -45.5947,60.5636 -45.5941,60.5445 -45.6159,60.5385 -45.6455,60.5147 -45.5071,60.3994 -45.4884,60.3959 -45.4769,60.4208 -45.4702,60.4309 -45.3772,60.5437 -45.3666,60.5517 -45.2823,60.6007 -45.2273,60.6265 -45.1933,60.5931 -45.1836,60.5744 -45.2744,60.5381 -45.2876,60.5319 -45.401,60.4188 -45.357,60.4271 -45.3398,60.4313 -45.308,60.4399 -45.1903,60.4779 -45.1324,60.5036 -45.1204,60.5152 -45.1238,60.5269 -45.0872,60.5481 -45.0136,60.5722 -45.0262,60.5517 -45.0623,60.529 -45.1362,60.4757 -45.1494,60.4612 -45.1787,60.4245 -45.1938,60.3862 -45.1733,60.3731 -45.1484,60.3642 -45.1322,60.3611 -45.1179,60.3623 -45.0899,60.3678 -44.9309,60.4014 -44.9179,60.4085 -44.8261,60.4685 -44.7801,60.5073 -44.7643,60.5223 -44.7545,60.5317 -44.7466,60.5512 -44.7454,60.5691 -44.7376,60.5894 -44.7285,60.5975 -44.7162,60.6041 -44.6335,60.6421 -44.6214,60.6471 -44.5647,60.6623 -44.5447,60.6604 -44.5471,60.6485 -44.5594,60.6382 -44.5759,60.6348 -44.5935,60.633 -44.6105,60.6277 -44.6593,60.6027 -44.6737,60.5936 -44.684,60.5861 -44.6911,60.5734 -44.81,60.3431 -44.8623,60.2713 -44.9559,60.2228 -44.9983,60.2075 -45.0183,60.1964 -45.0607,60.1671 -45.084,60.15 -45.0946,60.1397 -45.1172,60.1144 -45.1176,60.0956 -45.0857,60.093 -45.1059,60.0843 -45.1148,60.079 -45.1177,60.0624 -45.1012,60.0565 -45.0876,60.0586 -45.0743,60.0621 -45.0616,60.0722 -45.0472,60.092 -45.0177,60.1138 -45.0,60.1226 -44.9845,60.1253 -44.9576,60.1256 -44.9432,60.1235 -44.9167,60.1192 -44.897,60.118 -44.8737,60.119 -44.8025,60.1426 -44.7932,60.1492 -44.7874,60.1571 -44.7871,60.1779 -44.7807,60.189 -44.763,60.2045 -44.4003,60.4773 -44.3865,60.484 -44.3832,60.4463 -44.4177,60.4021 -44.4527,60.385 -44.4895,60.3666 -44.5118,60.3542 -44.5911,60.2732 -44.6436,60.214 -44.7211,60.1357 -44.74,60.1172 -44.8507,60.0965 -44.915,60.0891 -44.972,60.0888 -44.982,60.0891 -44.9953,60.0852 -45.0838,60.0195 -45.0794,60.008 -45.0679,60.0016 -45.0491,59.9944 -45.0328,59.9907 -45.0199,59.9937 -45.0086,60.0037 -45.0302,60.0198 -45.0229,60.0305 -44.9452,60.0333 -44.9142,60.0219 -44.8867,59.9624 -44.8773,59.9581 -44.8464,59.9554 -44.7219,59.9457 -44.5579,59.9169 -44.5264,59.9092 -44.52,59.9102 -44.5024,59.9163 -44.4863,59.9231 -44.4677,59.9344 -44.4381,59.961 -44.425,59.9755 -44.4166,59.9901 -44.4124,60.0002 -44.4104,60.0129 -44.4036,60.0314 -44.3821,60.0676 -44.3703,60.0768 -44.3598,60.08 -44.345,60.0826 -44.3339,60.0825 -44.2947,60.0792 -44.2742,60.077 -44.2546,60.0742 -44.2293,60.0767 -44.2166,60.0812 -44.2013,60.0924 -44.1849,60.1071 -44.1475,60.1508 -44.14,60.1622 -44.0569,60.1923 -44.0215,60.2019 -43.999,60.2147 -44.0009,60.2611 -44.0054,60.2705 -44.0231,60.3008 -44.0195,60.3107 -44.007,60.3089 -43.9953,60.3052 -43.9841,60.2964 -43.9107,60.2345 -43.9254,60.2229 -43.9896,60.1874 -44.0308,60.1108 -43.7489,60.0863 -43.5774,60.0742 -43.5675,60.0767 -43.3726,60.0516 -43.3197,60.038 -43.0562,60.0069 -43.0431,60.0098 -43.0132,60.0203 -43.0061,60.0278 -43.0054,60.0375 -43.0277,60.1015 -43.04,60.1256 -43.0481,60.1329 -43.0627,60.1368 -43.0735,60.1374 -43.1526,60.1367 -43.2403,60.1411 -43.1471,60.1794 -43.0703,60.171 -43.0424,60.1652 -43.0112,60.1844 -43.0236,60.2349 -43.0844,60.3233 -43.102,60.328 -43.1306,60.3297 -43.1491,60.3293 -43.1676,60.3283 -43.2138,60.3236 -43.2578,60.3182 -43.2839,60.3136 -43.3175,60.3007 -43.3516,60.2828 -43.5054,60.2324 -43.5154,60.2347 -43.51,60.2452 -43.4986,60.2511 -43.4802,60.2588 -43.3826,60.2995 -43.2477,60.3545 -43.2328,60.3678 -43.2446,60.3779 -43.2597,60.3831 -43.3713,60.4094 -43.4111,60.418 -43.5273,60.4357 -43.9757,60.4938 -44.0082,60.4958 -44.0707,60.5022 -44.0926,60.5061 -44.1155,60.5177 -44.11,60.5604 -44.1003,60.5641 -44.0771,60.5641 -44.052,60.5608 -44.043,60.5477 -44.039,60.5381 -44.0281,60.5292 -44.0163,60.5252 -43.9759,60.5165 -43.964,60.5143 -43.943,60.5109 -43.9221,60.509 -43.8957,60.5111 -43.7395,60.497 -43.5717,60.4762 -43.5614,60.475 -43.5468,60.4757 -43.5395,60.4803 -43.5397,60.494 -43.5653,60.5216 -43.575,60.5299 -43.5908,60.5477 -43.5995,60.5618 -43.605,60.5713 -43.6132,60.5857 -43.6243,60.6087 -43.6268,60.6332 -43.6147,60.6421 -43.6005,60.6394 -43.5863,60.6265 -43.5848,60.6155 -43.5852,60.5922 -43.5755,60.5676 -43.559,60.5478 -43.538,60.5272 -43.4861,60.4768 -43.4721,60.466 -43.4529,60.4585 -43.4427,60.4557 -43.162,60.3945 -43.1266,60.3911 -43.1005,60.3931 -43.0859,60.3963 -43.0662,60.4101 -43.0801,60.418 -43.0998,60.4232 -43.121,60.4275 -43.141,60.4299 -43.1635,60.4344 -43.1857,60.4414 -43.2101,60.4511 -43.2279,60.4621 -43.2328,60.4775 -43.2197,60.4808 -43.0924,60.453 -43.0619,60.441 -43.0281,60.4289 -43.0074,60.4242 -42.9868,60.4256 -42.7534,60.4979 -42.7629,60.5063 -42.8237,60.5154 -42.8553,60.5201 -42.7738,60.5237 -42.7565,60.5301 -42.7445,60.5333 -42.6707,60.6109 -42.6872,60.6159 -42.697,60.615 -42.732,60.6089 -42.7414,60.6046 -42.8039,60.5779 -42.8104,60.564 -42.8266,60.5626 -42.8512,60.5653 -43.0004,60.5813 -43.0116,60.5836 -43.0265,60.5931 -43.0047,60.5955 -42.969,60.5933 -42.8888,60.5863 -42.851,60.5797 -42.8323,60.5793 -42.7941,60.5913 -42.7682,60.6015 -42.6991,60.6405 -42.6892,60.6519 -42.6964,60.6652 -42.706,60.6713 -42.8669,60.7037 -42.8777,60.7054 -43.0258,60.7212 -43.0414,60.7214 -43.1907,60.7293 -43.4279,60.7531 -43.4416,60.7633 -43.4239,60.7712 -43.2976,60.7637 -43.1044,60.7472 -42.9687,60.733 -42.9472,60.7288 -42.9281,60.7266 -42.8356,60.7167 -42.8163,60.7168 -42.7197,60.7253 -42.7094,60.7272 -42.6996,60.7358 -42.7086,60.7465 -42.8026,60.7651 -43.026,60.7941 -43.1167,60.8119 -43.1821,60.8243 -43.1998,60.8274 -43.3275,60.8357 -43.3838,60.8351 -43.3985,60.8348 -43.4007,60.8616 -43.3927,60.8693 -43.3763,60.871 -43.3552,60.8688 -43.1785,60.8444 -43.087,60.8304 -43.0368,60.8222 -43.0163,60.8184 -42.9955,60.8136 -42.9845,60.8117 -42.9553,60.8092 -42.9267,60.8101 -42.7188,60.8456 -42.5906,60.9097 -42.5757,60.9196 -42.5843,60.9428 -42.5834,60.9486 -42.6261,60.985 -42.6391,60.9881 -42.922,61.009 -43.0697,61.0279 -43.1325,61.0276 -43.1907,61.0254 -43.2706,61.0232 -43.5155,61.0462 -43.5291,61.0523 -43.5183,61.0595 -43.497,61.0626 -43.4779,61.0637 -43.4474,61.0635 -43.0879,61.0542 -42.9032,61.0342 -42.8221,61.028 -42.5524,61.0269 -42.615,61.0666 -42.6259,61.0695 -42.636,61.0698 -42.7625,61.0835 -43.0073,61.1232 -43.005,61.134 -42.8703,61.1273 -42.7404,61.1147 -42.6133,61.1142 -42.4965,61.119 -42.5066,61.1399 -42.5824,61.1822 -42.6275,61.1937 -42.6415,61.1919 -42.6971,61.1752 -42.7928,61.1721 -42.8199,61.1769 -42.8101,61.1833 -42.7861,61.1887 -42.7667,61.1909 -42.7365,61.19 -42.7147,61.1883 -42.6956,61.1961 -42.7076,61.2067 -42.7597,61.2203 -42.825,61.2331 -42.9468,61.2428 -42.9779,61.2443 -43.0089,61.2447 -43.0611,61.2475 -43.1315,61.2522 -43.1464,61.2542 -43.1614,61.2628 -43.1431,61.2687 -43.0854,61.2709 -42.803,61.2678 -42.7846,61.2646 -42.7663,61.2592 -42.7518,61.2525 -42.737,61.245 -42.7274,61.2407 -42.7067,61.2333 -42.6735,61.224 -42.6518,61.2196 -42.5903,61.2102 -42.5802,61.21 -42.5629,61.2122 -42.551,61.2166 -42.4259,61.2805 -42.3458,61.3289 -42.3734,61.3562 -42.3912,61.3523 -42.411,61.3524 -42.4322,61.3584 -42.4459,61.3685 -42.4537,61.4023 -42.4498,61.4293 -42.4466,61.452 -42.5258,61.4482 -42.6758,61.4532 -42.699,61.4543 -42.7915,61.4611 -42.8648,61.4767 -42.9402,61.496 -42.9726,61.5052 -42.9868,61.5119 -42.9964,61.5186 -42.9836,61.5242 -42.9615,61.5232 -42.9052,61.5149 -42.8431,61.5021 -42.8328,61.4991 -42.7767,61.4894 -42.7234,61.484 -42.6928,61.4818 -42.5522,61.4718 -42.3682,61.4774 -42.3531,61.4824 -42.2376,61.5544 -42.2361,61.5674 -42.2509,61.5736 -42.3157,61.5812 -42.3379,61.6158 -42.5029,61.621 -42.5421,61.6302 -42.6067,61.6658 -42.6807,61.703 -42.691,61.7079 -42.7002,61.7112 -42.7215,61.709 -42.7374,61.7007 -42.7487,61.6918 -42.7842,61.6925 -42.7817,61.704 -42.7717,61.7109 -42.705,61.7393 -42.6864,61.7425 -42.668,61.7352 -42.6601,61.7237 -42.636,61.7115 -42.5258,61.6652 -42.5086,61.6592 -42.4984,61.6575 -42.4768,61.6566 -42.428,61.6594 -42.3967,61.6623 -42.2696,61.6785 -42.2439,61.686 -42.2107,61.7007 -42.1404,61.7517 -42.1102,61.7865 -42.1454,61.8086 -42.2527,61.8129 -42.2828,61.8188 -42.3253,61.8308 -42.3344,61.8398 -42.2479,61.8457 -42.2188,61.845 -42.1978,61.8415 -42.1644,61.8371 -42.1374,61.8374 -42.1227,61.8408 -42.1091,61.8504 -42.0363,61.9196 -42.0344,61.9311 -42.042,61.938 -42.0553,61.9432 -42.0745,61.9447 -42.1635,61.9489 -42.2489,61.9419 -42.2587,61.94 -42.2846,61.9304 -42.3087,61.9183 -42.3509,61.8953 -42.3987,61.8692 -42.4263,61.8642 -42.4366,61.8638 -42.4616,61.8701 -42.4554,61.8803 -42.4032,61.9049 -42.3365,61.9352 -42.2239,62.0288 -42.1766,62.1207 -42.1716,62.1384 -42.18,62.1663 -42.2389,62.2323 -42.3007,62.2593 -42.3183,62.2645 -42.3566,62.2658 -42.4178,62.2625 -42.5525,62.2817 -42.5551,62.2951 -42.5647,62.3025 -42.6195,62.3326 -42.6468,62.3446 -42.6984,62.3615 -42.8287,62.397 -42.8438,62.3964 -42.8622,62.3901 -42.8826,62.3898 -42.8919,62.3955 -42.8967,62.4344 -42.891,62.4439 -42.8812,62.4455 -42.6576,62.4253 -42.6339,62.4217 -42.6222,62.4188 -42.5285,62.3759 -42.4899,62.3553 -42.468,62.3469 -42.456,62.3432 -42.236,62.2864 -42.1619,62.2828 -42.0833,62.3064 -42.1727,62.3557 -42.2397,62.3609 -42.2581,62.362 -42.2736,62.3598 -42.3151,62.3512 -42.4673,62.4013 -42.4003,62.3962 -42.2975,62.3905 -42.255,62.3987 -42.2439,62.4041 -42.2418,62.4273 -42.2821,62.483 -42.2916,62.4893 -42.4886,62.5425 -42.5194,62.5499 -42.5344,62.5498 -42.551,62.5459 -42.5946,62.5341 -42.5907,62.5113 -42.6008,62.5119 -42.6177,62.5187 -42.6301,62.5259 -42.6488,62.5393 -42.6434,62.5538 -42.6669,62.5644 -42.7047,62.5742 -42.7939,62.5914 -42.8712,62.6038 -42.8936,62.6072 -42.916,62.6094 -42.9372,62.6113 -42.9782,62.6128 -43.0203,62.6114 -43.0457,62.6209 -43.0604,62.6817 -43.041,62.6856 -43.025,62.682 -42.9726,62.6526 -42.962,62.648 -42.9504,62.645 -42.7712,62.623 -42.6427,62.6102 -42.6331,62.6671 -42.6072,62.6939 -42.5337,62.6646 -42.4447,62.6463 -42.3279,62.7373 -42.3349,62.7543 -42.357,62.7597 -42.3726,62.7836 -42.3519,62.8297 -42.3434,62.8354 -42.2524,62.8588 -42.231,62.8628 -42.2209,62.8642 -42.204,62.8599 -42.2334,62.838 -42.2463,62.8314 -42.2609,62.8269 -42.2812,62.8124 -42.274,62.7653 -42.2524,62.7369 -42.2415,62.7321 -42.23,62.7302 -42.1763,62.7322 -42.1466,62.7381 -42.1264,62.7372 -42.0865,62.7341 -42.0651,62.7309 -42.0196,62.7216 -41.9575,62.7065 -42.0609,62.7212 -42.1803,62.7253 -42.2437,62.7226 -42.2918,62.717 -42.3506,62.6858 -42.3618,62.6778 -42.3357,62.6334 -42.3219,62.618 -42.3046,62.6044 -42.2931,62.6025 -42.2326,62.6183 -42.2228,62.621 -42.1464,62.6342 -42.1043,62.6341 -42.0922,62.6332 -42.0809,62.6313 -42.0697,62.6239 -42.0601,62.6154 -42.0489,62.6085 -42.0387,62.6068 -41.9841,62.6059 -41.9616,62.6122 -41.9384,62.6358 -41.9473,62.6487 -41.962,62.6522 -41.9722,62.6504 -41.982,62.6479 -42.0024,62.6455 -42.0225,62.6443 -42.0652,62.6445 -42.088,62.6454 -42.1098,62.6474 -42.1212,62.6523 -42.1109,62.6566 -41.9668,62.6723 -41.9458,62.6739 -41.9227,62.6686 -41.9067,62.6606 -41.8954,62.654 -41.8812,62.6469 -41.8697,62.6441 -41.8477,62.6416 -41.8271,62.644 -41.817,62.6464 -41.7813,62.66 -41.812,62.6632 -41.8365,62.6588 -41.8638,62.6584 -41.914,62.6981 -41.9402,62.7067 -41.9298,62.716 -41.926,62.7264 -41.923,62.7504 -41.8816,62.7677 -41.8282,62.7657 -41.7845,62.7493 -41.7719,62.742 -41.759,62.7408 -41.6702,62.7634 -41.5554,62.8443 -41.5352,62.8597 -41.5309,62.874 -41.5299,62.9031 -41.5367,62.9119 -41.6618,62.9372 -41.6848,62.9405 -41.7042,62.9423 -41.7716,62.9426 -41.9176,62.9538 -42.0333,63.014 -42.0501,63.0433 -42.0906,63.1255 -42.0681,63.1282 -42.0578,63.1274 -42.045,63.1251 -42.0028,63.0992 -41.9897,63.0895 -41.9677,63.0717 -41.9606,63.0526 -41.9571,63.0403 -41.944,63.0253 -41.8996,62.9975 -41.8796,62.9882 -41.7305,62.9629 -41.6487,62.9525 -41.6274,62.9567 -41.6041,62.9647 -41.5204,62.957 -41.4712,62.9505 -41.4574,62.9546 -41.4622,62.9663 -41.54,63.0205 -41.5521,63.0282 -41.5647,63.0343 -41.5834,63.0409 -41.7014,63.0794 -41.8479,63.1281 -41.9141,63.1507 -41.9252,63.1554 -41.9408,63.1693 -41.7051,63.1221 -41.5366,63.0628 -41.5283,63.0573 -41.5178,63.0488 -41.5124,63.0386 -41.5049,63.0293 -41.4913,63.0195 -41.4775,63.014 -41.4662,63.0127 -41.4418,63.0157 -41.3515,63.0434 -41.4062,63.0918 -41.3895,63.14 -41.5956,63.2626 -41.7556,63.3126 -41.7736,63.3193 -41.7881,63.3311 -41.827,63.3791 -41.8139,63.3922 -41.773,63.4068 -41.6647,63.4434 -41.6054,63.4466 -41.599,63.4378 -41.5874,63.426 -41.4996,63.3695 -41.4752,63.3589 -41.451,63.3517 -41.4296,63.3462 -41.3039,63.3257 -41.2105,63.2877 -41.0519,63.2301 -41.0327,63.2295 -41.0467,63.247 -41.0665,63.2612 -41.0949,63.2741 -41.3751,63.3673 -41.446,63.3877 -41.4645,63.3936 -41.5004,63.4103 -41.4898,63.4119 -41.4116,63.4139 -41.3659,63.4071 -41.3499,63.39 -41.3367,63.3837 -41.2313,63.3439 -41.217,63.3399 -41.1999,63.3359 -41.1589,63.3283 -41.1679,63.3427 -41.2223,63.3775 -41.333,63.4713 -41.3127,63.4739 -41.2101,63.4084 -41.16,63.3788 -41.1507,63.3636 -41.1086,63.3282 -41.0968,63.3109 -41.0375,63.3072 -40.9207,63.3279 -40.9366,63.3456 -40.9782,63.3488 -40.9987,63.3526 -41.0354,63.3766 -41.0753,63.4056 -41.093,63.434 -41.059,63.4251 -41.047,63.42 -41.0373,63.4146 -41.0146,63.3963 -40.9989,63.3768 -40.9861,63.3674 -40.9686,63.3628 -40.9549,63.3618 -40.9319,63.3644 -40.9195,63.3803 -40.9695,63.4192 -40.9674,63.4295 -40.9189,63.4511 -40.8932,63.4548 -40.7848,63.4223 -40.7105,63.4183 -40.6894,63.4201 -40.678,63.4228 -40.6683,63.431 -40.6652,63.4424 -40.6649,63.4529 -40.6647,63.4924 -40.6725,63.5036 -40.763,63.5151 -40.7971,63.5729 -40.8118,63.578 -40.8429,63.5858 -40.9682,63.6033 -41.045,63.6101 -41.2156,63.6379 -41.3448,63.6818 -41.3571,63.6845 -41.3687,63.6854 -41.434,63.6867 -41.4534,63.6821 -41.4705,63.6724 -41.4849,63.6693 -41.5015,63.6732 -41.512,63.6775 -41.5273,63.6842 -41.5435,63.6934 -41.5491,63.7053 -41.5359,63.7137 -41.4036,63.7562 -41.3366,63.7544 -41.3233,63.7372 -41.3066,63.7196 -41.2896,63.7071 -41.2689,63.6985 -40.9223,63.6252 -40.8757,63.6174 -40.7844,63.606 -40.7628,63.6041 -40.5238,63.602 -40.4936,63.6039 -40.4717,63.6058 -40.4614,63.6084 -40.4516,63.6122 -40.4361,63.621 -40.4314,63.6303 -40.4341,63.6424 -40.5397,63.8437 -40.5516,63.8481 -40.5908,63.8597 -40.6149,63.8555 -40.6791,63.8557 -40.7115,63.8559 -40.7354,63.8582 -40.7569,63.8654 -40.7483,63.8709 -40.5691,63.9288 -40.4606,63.9837 -40.4628,63.9979 -40.4687,64.0069 -40.4794,64.0204 -40.4874,64.0301 -40.6182,64.072 -40.6834,64.0803 -40.6938,64.0808 -40.8051,64.0825 -40.8308,64.0794 -40.8705,64.0695 -40.9762,64.0571 -41.1777,64.0775 -41.2958,64.0921 -41.3185,64.1005 -41.4735,64.1734 -41.4857,64.1844 -41.4814,64.1962 -41.4722,64.2094 -41.4399,64.2423 -41.4248,64.2461 -41.2441,64.2617 -41.0284,64.2245 -41.0103,64.2228 -40.9881,64.2248 -40.8713,64.2419 -40.8502,64.2463 -40.8263,64.2566 -40.8098,64.2729 -40.7966,64.2807 -40.7683,64.2915 -40.729,64.3027 -40.7071,64.3047 -40.5716,64.2966 -40.4612,64.2774 -40.4209,64.2652 -40.3398,64.257 -40.2906,64.2643 -40.2772,64.2745 -40.2818,64.3118 -40.3039,64.3261 -40.3403,64.3393 -40.3523,64.3427 -40.4117,64.3575 -40.4455,64.3643 -40.5016,64.3708 -40.5312,64.3754 -40.5562,64.3858 -40.5403,64.4018 -40.5252,64.4114 -40.5121,64.4163 -40.4858,64.4254 -40.4857,64.4423 -40.489,64.4521 -40.495,64.466 -40.5012,64.4783 -40.505,64.4829 -40.5122,64.5919 -40.5203,64.6008 -40.5313,64.6038 -40.6062,64.6227 -40.7458,64.6828 -40.7859,64.7009 -40.8415,64.7364 -40.9088,64.7788 -40.9814,64.7951 -40.9917,64.801 -41.0683,64.8679 -41.0733,64.8818 -41.0633,64.8942 -41.0526,64.8975 -41.0412,64.8986 -41.0268,64.8963 -40.9747,64.8869 -40.9262,64.9299 -40.9035,64.9983 -40.6196,64.9773 -40.5148,65.0535 -40.4258,64.9998 -40.3475,64.9539 -40.3285,64.9482 -40.1761,64.9355 -40.1116,64.9591 -40.0642,65.0023 -40.0389,65.0495 -39.9463,65.0658 -39.8564,65.086 -39.8386,65.1292 -39.6935,65.1563 -39.6759,65.1611 -39.7024,65.1856 -39.7256,65.2039 -39.7468,65.2107 -39.7845,65.229 -39.8318,65.2604 -39.8617,65.283 -39.7998,65.3319 -39.7842,65.3307 -39.7588,65.3191 -39.7456,65.3145 -39.7218,65.3109 -39.7018,65.3155 -39.7135,65.3335 -39.8217,65.3618 -39.8462,65.3604 -39.8584,65.3587 -39.8884,65.3515 -39.9053,65.3503 -39.9285,65.3537 -40.0112,65.3696 -40.0374,65.3754 -40.0865,65.3869 -40.1245,65.3988 -40.1342,65.4115 -40.1366,65.4213 -40.0157,65.4849 -39.9993,65.4916 -39.9778,65.4954 -39.9499,65.4965 -39.9361,65.4842 -39.9244,65.4735 -39.9084,65.4666 -39.8067,65.4266 -39.7834,65.4178 -39.7731,65.4159 -39.7615,65.4145 -39.7493,65.4138 -39.6853,65.4573 -39.7171,65.4902 -39.747,65.4995 -39.7073,65.5345 -39.6942,65.5429 -39.6196,65.5869 -39.5988,65.5957 -39.5805,65.5977 -39.5662,65.5942 -39.4594,65.5542 -39.4664,65.542 -39.4652,65.5316 -39.3841,65.4675 -39.3731,65.4624 -39.3312,65.4512 -39.2554,65.457 -39.1399,65.4931 -39.1222,65.5015 -39.1163,65.5101 -39.1231,65.5228 -39.2118,65.6011 -39.2453,65.633 -39.1572,65.6127 -39.0652,65.581 -39.044,65.5667 -39.0346,65.5571 -39.0252,65.5384 -39.02,65.5242 -39.0131,65.5148 -38.9899,65.4888 -38.9789,65.4772 -38.858,65.485 -38.8121,65.4899 -38.7734,65.5294 -38.6967,65.5057 -38.5345,65.4844 -38.5218,65.4956 -38.5515,65.5449 -38.5784,65.5491 -38.5954,65.5428 -38.608,65.5441 -38.6367,65.5488 -38.6655,65.5545 -38.6757,65.5581 -38.6871,65.5656 -38.7013,65.577 -38.7083,65.5934 -38.6739,65.6085 -38.6593,65.6063 -38.6465,65.5922 -38.6344,65.5841 -38.5051,65.5515 -38.4806,65.5502 -38.4689,65.5581 -38.4697,65.5916 -38.4623,65.623 -38.4521,65.6254 -38.3587,65.5947 -38.3661,65.5849 -38.3798,65.5796 -38.3496,65.5396 -38.1696,65.5462 -38.1536,65.5528 -38.1321,65.5725 -38.1022,65.602 -38.0337,65.6887 -38.0259,65.7196 -38.1029,65.745 -38.1288,65.7402 -38.1382,65.7409 -38.1951,65.7508 -38.3752,65.8298 -38.3834,65.8407 -38.4027,65.9305 -38.3784,65.9374 -38.3545,65.9377 -38.3294,65.9323 -38.2645,65.8735 -38.2701,65.8496 -38.246,65.833 -38.2251,65.8249 -38.206,65.8204 -38.1905,65.8186 -38.1461,65.8169 -38.1188,65.8168 -38.0892,65.8182 -38.0737,65.8262 -38.066,65.8423 -38.0794,65.8529 -38.1018,65.8569 -38.1147,65.8638 -38.1174,65.8768 -38.099,65.886 -37.9996,65.877 -37.9915,65.8638 -37.9975,65.8464 -37.9988,65.8313 -37.9889,65.8271 -37.9749,65.8297 -37.9329,65.8482 -37.918,65.8553 -37.9086,65.8628 -37.8985,65.8766 -37.9381,65.9972 -37.9394,66.0171 -37.9187,66.0218 -37.902,66.0267 -37.804,66.075 -37.7863,66.0868 -37.7785,66.1147 -37.8026,66.1181 -37.8439,66.1276 -37.9097,66.1475 -37.9155,66.158 -37.8919,66.1664 -37.8813,66.1669 -37.7765,66.1645 -37.7322,66.1581 -37.7329,66.1454 -37.7354,66.1317 -37.7181,66.1262 -37.7062,66.1276 -37.687,66.1332 -37.6765,66.1376 -37.6227,66.1686 -37.6178,66.1808 -37.6607,66.201 -37.6802,66.2063 -37.7003,66.2105 -37.795,66.2255 -37.8501,66.2326 -37.9587,66.2446 -37.9797,66.2462 -38.0037,66.246 -38.0356,66.2477 -38.0613,66.2509 -38.0712,66.2655 -38.0636,66.2823 -38.0436,66.2996 -38.0284,66.3032 -38.0073,66.3039 -37.8824,66.3012 -37.7134,66.2835 -37.5404,66.2392 -37.4992,66.2346 -37.305,66.2339 -37.2704,66.2347 -37.2405,66.2414 -37.2058,66.249 -37.1852,66.2539 -37.1493,66.2607 -37.1217,66.2616 -37.1082,66.2571 -37.0919,66.2315 -37.1018,66.2261 -37.1587,66.2107 -37.1993,66.2134 -37.2145,66.213 -37.2328,66.2084 -37.2505,66.2007 -37.2669,66.1933 -37.4139,66.1195 -37.4773,66.0835 -37.4856,66.0722 -37.4822,66.0553 -37.5832,65.9912 -37.6445,65.9871 -37.6564,65.9876 -37.6703,65.9852 -37.7005,65.9759 -37.7104,65.9723 -37.7239,65.9646 -37.7342,65.9461 -37.6823,65.8281 -37.6158,65.8551 -37.5793,65.8463 -37.4788,65.817 -37.4671,65.8108 -37.4583,65.8043 -37.4397,65.7944 -37.4296,65.7899 -37.3302,65.7477 -37.314,65.7427 -37.3039,65.74 -37.2559,65.7297 -37.232,65.7232 -37.2095,65.7152 -37.1996,65.7117 -37.18,65.703 -37.16,65.6962 -37.1387,65.6894 -37.1182,65.6867 -37.1057,65.6878 -37.0931,65.6904 -37.0321,65.7324 -37.0138,65.7727 -37.0619,65.8709 -37.0929,65.9217 -37.0053,65.9782 -36.9906,65.9804 -36.9634,65.973 -36.9589,65.9562 -36.9633,65.9415 -36.9699,65.9321 -37.0173,65.8542 -36.9724,65.7675 -36.9624,65.7595 -36.9104,65.7551 -36.8964,65.7561 -36.7813,65.7938 -36.7702,65.8037 -36.6805,65.8465 -36.5501,65.8776 -36.4405,65.9066 -36.4044,65.9636 -36.4451,65.9657 -36.4702,65.9679 -36.4915,65.9731 -36.5013,65.9833 -36.495,65.9918 -36.463,65.9975 -36.3119,66.0038 -36.3002,66.0041 -36.2733,65.9998 -36.2692,65.9899 -36.3006,65.97 -36.3202,65.9405 -36.3202,65.9135 -36.3155,65.8555 -36.312,65.8399 -36.301,65.8317 -36.28,65.8247 -36.2585,65.8243 -36.1948,65.8737 -36.1483,65.8545 -36.023,65.8437 -36.0099,65.8456 -35.9905,65.8512 -35.8236,65.9319 -35.7132,65.9925 -35.6506,66.0344 -35.6256,66.0374 -35.5684,66.0353 -35.5316,66.0214 -35.5262,66.0227 -35.5151,66.0269 -35.5001,66.0494 -35.5498,66.121 -35.4792,66.1599 -35.6058,66.2187 -35.8065,66.3312 -35.7995,66.3383 -35.7828,66.3487 -35.7619,66.3513 -35.698,66.3509 -35.6894,66.3412 -35.6542,66.3042 -35.5505,66.2364 -35.4264,66.2109 -35.3212,66.2035 -35.1613,66.1585 -35.1321,66.1542 -35.0315,66.1509 -34.9915,66.1554 -34.9709,66.1674 -34.9713,66.1778 -34.9824,66.1851 -35.0935,66.2154 -35.1293,66.2213 -35.161,66.2284 -35.1538,66.2783 -35.0734,66.3255 -35.0533,66.333 -35.0378,66.3319 -35.0345,66.3097 -35.0399,66.2826 -35.0453,66.2734 -35.0568,66.2626 -35.0553,66.2517 -35.0393,66.2414 -34.923,66.2035 -34.913,66.2006 -34.8995,66.1994 -34.8747,66.2027 -34.7394,66.2271 -34.7064,66.2359 -34.6491,66.2548 -34.5695,66.2884 -34.5484,66.3236 -34.3392,66.4549 -34.3484,66.4684 -34.3741,66.4811 -34.3875,66.4875 -34.4137,66.5479 -34.409,66.5653 -34.3671,66.6498 -34.3559,66.6579 -34.3366,66.6523 -34.3189,66.5925 -34.3298,66.5657 -34.3287,66.5454 -34.324,66.5319 -34.2943,66.5113 -34.2742,66.5193 -34.2388,66.5548 -34.2,66.5478 -34.2131,66.4883 -34.2003,66.4905 -34.1837,66.5003 -34.0227,66.6152 -33.9767,66.656 -33.9311,66.7954 -33.9268,66.8545 -33.9032,66.9058 -33.8824,66.9081 -33.8577,66.9063 -33.8201,66.9011 -33.7974,66.8986 -33.7638,66.8972 -33.6632,66.9048 -33.6649,66.9194 -33.6039,67.002 -33.5934,67.0063 -33.5793,67.0078 -33.567,67.0085 -33.4828,67.0274 -33.4479,67.1046 -33.2973,67.162 -33.3552,67.2489 -33.3732,67.257 -33.3913,67.2596 -33.4235,67.2625 -33.4541,67.2616 -33.4804,67.2587 -33.5263,67.2858 -33.5062,67.2879 -33.4307,67.2877 -33.3484,67.2754 -33.3366,67.2678 -33.3217,67.2655 -33.309,67.2662 -33.2706,67.2723 -33.2563,67.2798 -33.204,67.3179 -33.2011,67.3952 -33.1682,67.4508 -33.1475,67.4559 -33.1341,67.4608 -33.1097,67.4727 -33.0357,67.5086 -32.9891,67.5489 -33.0037,67.5541 -33.0409,67.5612 -33.056,67.5634 -33.0688,67.5643 -33.0789,67.5625 -33.1016,67.561 -33.1192,67.5629 -33.1283,67.5679 -33.1359,67.5802 -33.1386,67.5939 -33.1292,67.602 -33.1169,67.6063 -33.0954,67.6088 -33.0719,67.6096 -33.0465,67.6075 -33.0274,67.6033 -32.9827,67.592 -32.9546,67.5906 -32.855,67.6042 -32.7979,67.6155 -32.772,67.621 -32.7111,67.6362 -32.4796,67.7298 -32.4641,67.7532 -32.4715,67.7575 -32.4784,67.7707 -32.4698,67.7789 -32.4528,67.7827 -32.2866,67.7975 -32.2538,67.7947 -32.241,67.792 -32.2258,67.7829 -32.2028,67.7734 -32.1735,67.7667 -32.1281,67.7586 -32.1023,67.7561 -32.0879,67.7566 -32.0646,67.7623 -32.0575,67.7741 -32.0439,67.8449 -32.0048,67.909 -31.9679,67.9604 -31.9389,67.9592 -31.9294,67.9624 -31.9293,67.9973 -31.9321,68.0084 -31.9654,68.0536 -31.976,68.061 -31.988,68.0658 -32.1251,68.0814 -32.2269,68.11 -32.256,68.117 -32.2844,68.1202 -32.3017,68.1212 -32.3222,68.1171 -32.3321,68.1124 -32.3234,68.1393 -32.1641,68.1354 -32.1383,68.1316 -32.0657,68.109 -32.0698,68.1577 -32.1225,68.2375 -32.2339,68.2641 -32.2501,68.2659 -32.3624,68.292 -32.3848,68.3009 -32.398,68.3084 -32.4582,68.3626 -32.4885,68.3998 -32.4955,68.4165 -32.4515,68.4049 -32.4371,68.4046 -32.364,68.4114 -32.3525,68.4196 -32.356,68.4531 -32.389,68.4638 -32.423,68.4891 -32.4338,68.501 -32.4363,68.523 -32.4204,68.5303 -32.4069,68.5337 -32.3768,68.5354 -32.36,68.5338 -32.3402,68.5262 -32.2964,68.4819 -32.2875,68.4707 -32.2628,68.4184 -32.2587,68.3581 -32.2429,68.348 -32.1959,68.3317 -32.176,68.3308 -32.152,68.3376 -32.0108,68.2475 -32.0079,68.2312 -31.9511,68.1822 -31.9396,68.1746 -31.9271,68.172 -31.9061,68.169 -31.8891,68.1678 -31.8706,68.1687 -31.8465,68.1724 -31.7562,68.1794 -31.5702,68.1684 -31.5533,68.1674 -31.5355,68.1652 -31.4639,68.1471 -31.4711,68.1398 -31.4877,68.137 -31.5247,68.1364 -31.561,68.1379 -31.6003,68.1407 -31.6344,68.136 -31.6788,68.12 -31.6232,68.1005 -31.6121,68.0913 -31.6262,68.0853 -31.6338,68.0098 -31.5174,67.9819 -31.5054,67.9801 -31.4769,67.9821 -31.4064,67.9874 -31.394,67.9887 -31.3523,68.0003 -31.3564,68.0101 -31.3793,68.0176 -31.3953,68.0192 -31.425,68.0271 -31.434,68.0336 -31.434,68.0503 -31.4153,68.0621 -31.3899,68.0666 -31.3627,68.0678 -31.3228,68.0677 -31.3089,68.0675 -31.2762,68.0582 -31.2966,68.0547 -31.3213,68.0551 -31.3494,68.0535 -31.3721,68.051 -31.3851,68.0431 -31.3721,68.0347 -31.3372,68.0257 -31.2668,68.0099 -31.0528,67.9637 -30.9569,67.9526 -30.9327,67.9617 -30.8506,67.9846 -30.829,67.9876 -30.803,67.9883 -30.6545,67.981 -30.6346,67.9759 -30.618,67.9747 -30.5975,67.974 -30.4467,67.9708 -30.4183,67.9701 -30.3896,67.9709 -30.3698,67.9728 -30.3588,67.9783 -30.4019,68.078 -30.4102,68.0859 -30.4207,68.0916 -30.5007,68.109 -30.6241,68.1327 -30.7487,68.1573 -30.7383,68.1654 -30.6887,68.1711 -30.6449,68.1734 -30.6288,68.1732 -30.3507,68.1352 -30.3361,68.1313 -30.328,68.1188 -30.329,68.1076 -30.3325,68.0892 -30.3398,68.0786 -30.3464,68.0673 -30.3447,68.0552 -30.3199,68.0283 -30.2999,68.0127 -30.2885,68.0055 -30.2772,68.0043 -30.2061,68.0052 -29.9821,68.0231 -29.9627,68.026 -29.9488,68.0332 -29.9505,68.0446 -30.0472,68.1304 -30.056,68.1355 -30.0785,68.1454 -30.0946,68.1487 -30.1332,68.1551 -29.9336,68.2873 -29.8028,68.3254 -29.7885,68.326 -29.779,68.3222 -29.7162,68.2809 -29.7215,68.2618 -29.7276,68.2411 -29.7246,68.2314 -29.7102,68.2219 -29.5496,68.1545 -29.4425,68.1283 -29.4274,68.1259 -29.4028,68.124 -29.3893,68.1244 -29.3721,68.1263 -29.3151,68.1123 -29.2826,68.1676 -29.2796,68.1942 -29.2808,68.2108 -29.2718,68.2181 -29.2419,68.2274 -29.2214,68.229 -29.1696,68.208 -29.1539,68.1985 -29.1452,68.1855 -29.134,68.1741 -29.12,68.1712 -29.0679,68.1887 -29.0573,68.1948 -29.0385,68.2188 -29.0411,68.2371 -29.0534,68.244 -29.103,68.2543 -29.1133,68.2588 -29.1246,68.2676 -29.1464,68.2951 -29.1255,68.3031 -29.096,68.3074 -29.0858,68.3083 -28.8709,68.2682 -28.8432,68.2579 -28.7867,68.2313 -28.7878,68.2763 -28.7786,68.2852 -28.5776,68.3037 -28.5432,68.3206 -28.4353,68.3587 -28.3778,68.3589 -28.3592,68.3566 -28.2005,68.3416 -27.9495,68.3639 -27.9461,68.3753 -27.9528,68.3874 -27.9636,68.4013 -27.9775,68.4663 -27.9565,68.475 -27.8981,68.4816 -27.8862,68.4806 -27.8759,68.4736 -27.8746,68.4512 -27.8731,68.4397 -27.864,68.4255 -27.845,68.4143 -27.826,68.4065 -27.7329,68.3818 -27.7225,68.3801 -27.5615,68.3885 -27.546,68.3972 -27.5572,68.4068 -27.6475,68.4244 -27.6245,68.4483 -27.5332,68.4841 -27.5189,68.4895 -27.5005,68.4932 -27.4581,68.4911 -27.4317,68.4842 -27.4515,68.4714 -27.4658,68.4633 -27.4439,68.4532 -27.3988,68.4489 -27.3189,68.4453 -27.2569,68.4451 -27.1658,68.4507 -27.1579,68.4573 -27.1671,68.4636 -27.1948,68.4753 -27.2081,68.48 -27.2336,68.4875 -27.2738,68.4973 -27.2822,68.5056 -27.2717,68.5127 -27.2476,68.516 -27.219,68.5174 -27.1161,68.5132 -27.0445,68.4977 -27.0132,68.4888 -27.0006,68.4884 -26.9777,68.491 -26.9559,68.4998 -26.9511,68.5115 -26.837,68.5589 -26.6629,68.581 -26.647,68.5685 -26.6361,68.5656 -26.5958,68.5634 -26.4011,68.5657 -26.3743,68.568 -26.3461,68.571 -26.3074,68.5793 -26.2344,68.5997 -26.2133,68.6117 -26.1948,68.6465 -26.0964,68.6935 -25.9674,68.695 -25.9024,68.6965 -25.8816,68.7013 -25.844,68.7148 -25.8166,68.7256 -25.7291,68.7598 -25.5722,68.7797 -25.5552,68.7873 -25.5267,68.8122 -25.5247,68.8222 -25.5329,68.8279 -25.5672,68.8236 -25.5789,68.8246 -25.6587,68.8428 -25.6492,68.8645 -25.6327,68.87 -25.6073,68.8738 -25.5406,68.876 -25.5021,68.8754 -25.4471,68.8681 -25.425,68.8675 -25.4088,68.869 -25.3892,68.8761 -25.3826,68.8856 -25.3904,68.8951 -25.4025,68.9009 -25.4825,68.9405 -25.5869,68.9935 -25.5808,69.0037 -25.5545,69.0146 -25.5439,69.0152 -25.5297,69.0066 -25.5134,68.9942 -25.4929,68.9879 -25.2903,68.9372 -25.2513,68.9298 -25.2371,68.9311 -25.1774,68.9469 -24.9865,69.0292 -24.9389,69.0742 -24.9324,69.1084 -24.9399,69.1208 -24.9509,69.1254 -24.976,69.1325 -25.0024,69.1356 -25.0164,69.1368 -25.0398,69.1373 -25.0681,69.1359 -25.0828,69.1346 -25.1046,69.1342 -25.1938,69.137 -25.2213,69.1481 -25.1644,69.1805 -25.1555,69.185 -25.0766,69.2053 -25.0475,69.2078 -25.0339,69.2075 -24.9965,69.205 -24.9704,69.2014 -24.9338,69.1942 -24.8382,69.1709 -24.7625,69.1524 -24.7518,69.1497 -24.7298,69.1495 -24.6407,69.1539 -24.6112,69.1576 -24.5923,69.1622 -24.5718,69.1689 -24.5601,69.1764 -24.5555,69.1857 -24.5608,69.2325 -24.5889,69.2717 -24.6019,69.2792 -24.6164,69.284 -24.5992,69.305 -24.4262,69.2717 -24.4023,69.2682 -24.3802,69.2687 -24.367,69.2724 -24.3008,69.3156 -24.2898,69.3229 -24.1161,69.333 -24.0216,69.39 -24.0241,69.4092 -24.0345,69.4251 -24.0513,69.4387 -24.0681,69.4489 -24.0812,69.4531 -24.0988,69.4562 -24.1131,69.4575 -24.153,69.4628 -24.1784,69.4669 -24.2128,69.4767 -24.2647,69.4924 -24.2877,69.5012 -24.2943,69.5119 -24.2791,69.5142 -24.2655,69.508 -24.2245,69.4966 -24.2076,69.4928 -24.1807,69.4885 -24.0233,69.4655 -23.8063,69.4236 -23.7869,69.4201 -23.7679,69.4176 -23.7539,69.4181 -23.7414,69.4212 -23.7214,69.4269 -23.6092,69.4638 -23.5975,69.4691 -23.581,69.4819 -23.5294,69.5357 -23.6372,69.6198 -23.6503,69.6252 -23.6777,69.6307 -23.6952,69.6327 -23.7705,69.6379 -23.8619,69.6522 -23.8774,69.6621 -23.8488,69.6651 -23.6582,69.6442 -23.6056,69.6365 -23.4257,69.6608 -23.345,69.665 -23.2869,69.6667 -23.2385,69.6615 -23.2114,69.6571 -23.1943,69.662 -23.1987,69.6763 -23.2062,69.6851 -23.2191,69.6982 -23.2536,69.7285 -23.266,69.7387 -23.2744,69.7459 -23.2932,69.75 -23.3334,69.7531 -23.3439,69.7584 -23.3343,69.7629 -23.3142,69.7649 -23.2781,69.7634 -23.2508,69.7589 -23.2352,69.7544 -23.2064,69.7451 -23.1942,69.7386 -23.1617,69.7079 -23.1491,69.7006 -23.0426,69.6747 -22.9952,69.668 -22.9665,69.6655 -22.9504,69.6664 -22.9351,69.6718 -22.8791,69.6964 -22.8608,69.7079 -22.8591,69.7198 -22.8766,69.7283 -22.8987,69.7355 -22.9268,69.7431 -23.0132,69.7567 -23.0316,69.7569 -23.0543,69.7529 -23.1772,69.7572 -23.2069,69.7619 -23.2231,69.7694 -23.2119,69.775 -23.1932,69.7811 -23.1456,69.7925 -23.1105,69.7825 -23.0822,69.7794 -23.0564,69.7775 -23.031,69.7775 -23.0129,69.778 -22.988,69.7859 -22.9929,69.7965 -23.0044,69.8051 -23.0329,69.8168 -23.0428,69.8247 -23.0183,69.8483 -22.9956,69.8509 -22.974,69.8496 -22.9547,69.8468 -22.9363,69.8428 -22.9184,69.8321 -22.9095,69.8226 -22.8965,69.8104 -22.8865,69.8063 -22.8584,69.7998 -22.8166,69.7937 -22.7989,69.7913 -22.7575,69.7889 -22.7463,69.7894 -22.7314,69.7913 -22.7194,69.7978 -22.7277,69.804 -22.7426,69.8076 -22.7605,69.8096 -22.792,69.8112 -22.8064,69.8123 -22.8584,69.8338 -22.8642,69.8592 -22.8512,69.8627 -22.8302,69.8655 -22.8094,69.8678 -22.7964,69.8679 -22.7637,69.8633 -22.6992,69.8522 -22.6187,69.8442 -22.5927,69.8434 -22.5646,69.8434 -22.5261,69.8467 -22.4496,69.8801 -22.4304,69.8906 -22.3468,69.8764 -22.3334,69.8786 -22.3124,69.8836 -22.2755,69.8972 -22.2458,69.9097 -22.2163,69.9234 -22.116,69.9791 -22.0626,70.0123 -22.0522,70.019 -22.0319,70.0456 -22.0534,70.0577 -22.0683,70.06 -22.1209,70.0594 -22.1508,70.059 -22.1684,70.0569 -22.1872,70.0526 -22.2022,70.046 -22.2188,70.0405 -22.3287,70.0201 -22.452,70.0068 -22.5031,70.0042 -22.5408,69.9978 -22.5963,69.9937 -22.7351,69.9879 -22.8113,69.9889 -23.11,69.9992 -23.5081,70.0146 -23.5385,70.0183 -23.5576,70.0232 -23.7486,70.0511 -23.8715,70.0603 -24.4781,70.1631 -24.7121,70.2176 -24.9155,70.2625 -24.9444,70.2681 -24.9748,70.2711 -24.9905,70.2674 -25.0503,70.2506 -25.1392,70.2084 -25.1543,70.1914 -25.1623,70.1847 -25.1781,70.1801 -25.2472,70.181 -25.2728,70.1821 -25.2898,70.1903 -25.297,70.2086 -25.2921,70.2207 -25.2842,70.2291 -25.2712,70.2381 -25.2046,70.2802 -25.1803,70.2873 -25.1618,70.2936 -25.1425,70.3138 -25.1559,70.3208 -25.1727,70.3223 -25.2045,70.3213 -25.2213,70.3205 -25.235,70.3189 -25.58,70.2633 -25.6479,70.2486 -25.936,70.1851 -26.0243,70.1605 -26.2184,70.112 -26.2488,70.106 -26.2831,70.1048 -26.3177,70.1054 -26.4103,70.1105 -26.4629,70.117 -26.5075,70.1242 -26.5213,70.1298 -26.531,70.1388 -26.551,70.1456 -26.5679,70.1496 -26.5996,70.1543 -26.6371,70.1591 -26.6732,70.1614 -26.737,70.1613 -26.8074,70.1601 -26.8215,70.1594 -26.8388,70.1569 -27.0091,70.114 -27.0453,70.104 -27.0868,70.0884 -27.1097,70.0779 -27.1219,70.0691 -27.1342,70.0269 -27.1214,70.0138 -27.1194,70.0038 -27.1252,69.9951 -27.224,69.8931 -27.2356,69.8848 -27.2492,69.879 -27.2627,69.8744 -27.2824,69.8718 -27.3556,69.8645 -27.3749,69.8636 -27.436,69.8698 -27.4462,69.872 -27.4572,69.8763 -27.4671,69.8833 -27.4623,69.8946 -27.4598,69.9436 -27.4696,69.9557 -27.4819,69.9597 -27.5076,69.9619 -27.547,69.9602 -27.5786,69.9573 -27.736,69.9407 -27.7637,69.937 -27.7908,69.932 -27.8803,69.9177 -27.9112,69.9169 -27.9498,69.9305 -27.988,69.9453 -28.0261,69.9676 -28.0365,69.9748 -28.0631,69.9806 -28.1086,69.9817 -28.1361,69.9787 -28.2837,69.9612 -28.3115,69.9565 -28.3283,69.9561 -28.4532,69.9529 -28.4676,69.9525 -28.48,69.9536 -28.492,69.9618 -28.5105,69.9815 -29.2408,69.9329 -29.2532,70.2555 -29.216,70.7023 -29.1788,71.087 -29.0299,71.6454 -28.8685,72.1542 -28.6824,72.5016 -28.2481,72.9856 -27.7765,73.4448 -27.1312,73.755 -25.8655,74.0652 -25.1706,74.2265 -23.4705,74.2638 -22.4204,73.9815 -22.4057,73.9875 -22.3927,73.9907 -22.3721,73.9933 -22.3338,73.9944 -22.2938,73.9926 -22.2332,73.9919 -22.1946,73.9931 -22.1541,73.998 -22.1392,74.0011 -22.1218,74.0061 -22.1067,74.0121 -22.0976,74.0172 -22.1498,74.062 -22.1426,74.084 -22.0438,74.1134 -22.0109,74.1247 -21.9877,74.1405 -21.9814,74.1549 -21.9989,74.1845 -22.0176,74.1912 -22.0412,74.1954 -22.0854,74.1989 -22.1034,74.1991 -22.1455,74.1962 -22.1624,74.1934 -22.1936,74.186 -22.2285,74.1796 -22.2606,74.1796 -22.2881,74.1839 -22.4095,74.2038 -22.4215,74.2087 -22.4097,74.2126 -22.3812,74.2135 -22.3682,74.2125 -22.1944,74.2099 -22.0329,74.211 -22.0113,74.2117 -21.9426,74.2198 -21.9074,74.2261 -21.8744,74.2338 -21.7709,74.2679 -21.7211,74.3075 -21.7082,74.321 -21.7234,74.337 -21.8684,74.4195 -21.9649,74.4554 -22.0449,74.4812 -22.0536,74.4888 -22.043,74.4949 -22.0255,74.4963 -21.9954,74.4941 -21.9676,74.4892 -21.8407,74.4503 -21.8251,74.4437 -21.7818,74.413 -21.7723,74.3953 -21.7611,74.3824 -21.7272,74.3707 -21.6715,74.3584 -21.6053,74.3456 -21.5603,74.3422 -21.5366,74.3423 -21.4783,74.3464 -21.368,74.3564 -21.2853,74.3641 -21.2043,74.37 -20.9642,74.3638 -20.8772,74.3577 -20.6983,74.3544 -20.5642,74.3533 -20.4508,74.3501 -20.418,74.3492 -20.3256,74.3436 -20.3106,74.3415 -20.2967,74.3375 -20.1866,74.2638 -20.1586,74.205 -20.08,74.1713 -19.7799,74.1452 -19.6344,74.1366 -19.5465,74.1339 -19.5254,74.135 -19.3281,74.1599 -19.3182,74.164 -19.126,74.2456 -19.1178,74.2527 -19.1141,74.2695 -19.1265,74.2935 -19.1107,74.3013 -19.0387,74.3203 -18.9291,74.3817 -18.9563,74.3921 -18.9757,74.3963 -19.0814,74.3991 -19.2003,74.4113 -19.2153,74.4152 -19.2326,74.423 -19.2654,74.4969 -19.2587,74.5076 -19.2463,74.5174 -19.2368,74.5234 -19.2266,74.5335 -19.2215,74.5443 -19.2344,74.5529 -19.245,74.5584 -19.3024,74.5769 -19.3234,74.5808 -19.3423,74.5825 -19.3607,74.5832 -19.3825,74.5821 -19.3997,74.5789 -19.5771,74.5254 -19.6351,74.5023 -19.649,74.4914 -19.6634,74.4833 -19.746,74.4788 -19.7648,74.4814 -19.9567,74.5248 -19.9732,74.5409 -19.9977,74.5513 -20.0835,74.569 -20.1399,74.5726 -20.4736,74.5715 -20.4957,74.5708 -20.5376,74.5642 -20.6066,74.5518 -20.7935,74.5335 -20.8443,74.5377 -20.8592,74.5381 -20.8777,74.5389 -20.9281,74.5365 -20.9627,74.5396 -21.0474,74.5534 -21.0622,74.5584 -21.0625,74.5719 -21.0396,74.5728 -21.0156,74.5667 -20.9872,74.5584 -20.9236,74.5552 -20.8575,74.555 -20.8011,74.5566 -20.7429,74.5636 -20.6979,74.5719 -20.6295,74.5991 -20.5616,74.6287 -20.5525,74.6424 -20.5851,74.6618 -20.6107,74.6726 -20.6493,74.6893 -20.6678,74.6997 -20.6997,74.7239 -20.7063,74.7332 -20.7076,74.7475 -20.6945,74.7593 -20.6291,74.8145 -20.5793,74.9322 -20.5745,74.9536 -20.5835,74.958 -20.6076,74.9624 -20.6311,74.9648 -20.6541,74.9659 -20.6748,74.966 -20.801,74.9602 -20.846,74.9597 -20.8885,74.9623 -20.9366,74.9707 -20.9896,74.9819 -21.0127,74.9845 -21.036,74.9856 -21.0728,74.9829 -21.0911,74.9807 -21.1188,74.9741 -21.1666,74.9606 -21.1816,74.955 -21.2208,74.9389 -21.2625,74.9235 -21.3575,74.891 -21.398,74.8795 -21.419,74.8745 -21.4642,74.8648 -21.4926,74.861 -21.6105,74.851 -21.6305,74.8498 -21.6851,74.8509 -21.7083,74.8521 -21.7557,74.8586 -21.7922,74.8654 -21.8089,74.8696 -21.8393,74.8796 -21.8827,74.903 -21.9016,74.9257 -21.8871,74.9347 -21.8852,74.9464 -21.8994,74.9531 -21.9122,74.9568 -22.0947,75.0045 -22.1119,75.009 -22.1564,75.0157 -22.2277,75.0228 -22.3341,75.0448 -22.3653,75.0547 -22.3742,75.0615 -22.3578,75.0634 -22.3304,75.0616 -22.2859,75.056 -22.1164,75.0326 -22.0675,75.0252 -21.8701,74.9742 -21.8274,74.9602 -21.8099,74.9416 -21.8061,74.9275 -21.8105,74.9153 -21.801,74.9049 -21.7011,74.8773 -21.683,74.8738 -21.5809,74.8904 -21.5039,74.9052 -21.4163,74.9227 -21.3794,74.9342 -21.3553,74.946 -21.3423,74.951 -21.3174,74.9608 -21.2352,74.9884 -21.1722,75.0076 -21.1341,75.012 -20.919,75.0345 -20.8782,75.0375 -20.8558,75.0378 -20.8331,75.0375 -20.7979,75.0343 -20.7582,75.0293 -20.7179,75.0223 -20.6524,75.0127 -20.6331,75.0113 -20.6143,75.0118 -20.4983,75.0276 -20.477,75.0313 -20.4595,75.0363 -20.465,75.0473 -20.4741,75.0585 -20.4913,75.0757 -20.5063,75.087 -20.5324,75.0969 -20.553,75.1022 -20.5979,75.1112 -20.6705,75.1239 -20.7611,75.1379 -20.8005,75.1472 -20.8198,75.1583 -20.841,75.1782 -20.9084,75.1988 -20.9505,75.2094 -20.9772,75.2142 -21.1553,75.2454 -21.18,75.2485 -21.2427,75.2519 -21.2672,75.2561 -21.281,75.2619 -21.2928,75.2679 -21.3099,75.2875 -21.3134,75.2992 -21.3392,75.3128 -21.3564,75.3182 -21.3813,75.3228 -21.4079,75.3262 -21.4886,75.3348 -21.5525,75.3393 -21.7692,75.3532 -21.838,75.356 -21.9045,75.3568 -21.993,75.3558 -22.0153,75.3577 -22.321,75.3906 -22.367,75.3973 -22.4139,75.4065 -22.4367,75.4156 -22.4496,75.425 -22.4489,75.435 -22.4408,75.4453 -22.4292,75.4482 -22.412,75.4492 -22.4034,75.4427 -22.405,75.4292 -22.393,75.4205 -22.3533,75.41 -22.2595,75.3958 -22.2366,75.3931 -22.0523,75.372 -22.0281,75.3698 -21.9349,75.3696 -21.7959,75.366 -21.6385,75.3604 -21.5669,75.3561 -21.4384,75.345 -21.3918,75.3444 -21.3688,75.345 -21.3481,75.3487 -21.4714,75.3986 -21.4847,75.4028 -21.5497,75.4189 -21.7784,75.4681 -21.8809,75.4886 -21.9742,75.5056 -22.0492,75.5162 -22.0999,75.5233 -22.1649,75.5284 -22.1944,75.5335 -22.2148,75.5399 -22.2221,75.5514 -22.201,75.5567 -22.1899,75.5579 -22.0961,75.5554 -22.0513,75.5515 -22.0285,75.5491 -21.9819,75.5413 -21.8485,75.5136 -21.7977,75.5055 -21.7483,75.4988 -21.6488,75.4893 -21.6276,75.4859 -21.5847,75.4763 -21.4427,75.4441 -21.4036,75.4332 -21.2166,75.3813 -21.175,75.3652 -21.1654,75.3593 -21.158,75.3499 -21.1499,75.3239 -21.1276,75.3046 -21.1113,75.2976 -21.0987,75.2937 -20.9081,75.2523 -20.6494,75.1907 -20.6288,75.1873 -20.6052,75.185 -20.5859,75.1846 -20.5635,75.185 -20.4802,75.1887 -20.4244,75.1926 -20.3841,75.1986 -20.3523,75.2068 -20.3312,75.2134 -20.2964,75.2238 -20.2522,75.2306 -20.1258,75.2308 -20.1045,75.23 -20.0808,75.2265 -20.0561,75.2212 -19.9116,75.1848 -19.9011,75.1723 -19.9205,75.1624 -19.9522,75.1564 -19.9686,75.1443 -19.9603,75.1029 -19.9492,75.0802 -19.9406,75.0739 -19.861,75.0461 -19.8446,75.0426 -19.829,75.0412 -19.595,75.029 -19.5703,75.0281 -19.5569,75.0285 -19.5357,75.0334 -19.4107,75.092 -19.4007,75.0971 -19.3574,75.1313 -19.3321,75.1579 -19.3257,75.1786 -19.3171,75.2125 -19.3156,75.223 -19.3134,75.2598 -19.2922,75.2825 -19.2841,75.2966 -19.3219,75.4179 -19.425,75.4179 -19.5987,75.4551 -19.7476,75.4799 -19.9834,75.5296 -20.2068,75.5668 -20.4922,75.6164 -20.7528,75.6289 -21.1127,75.6537 -21.5346,75.7033 -21.8324,75.7281 -22.1054,75.7902 -22.3164,75.8274 -22.5149,76.026 -22.7135,76.2245 -22.8003,76.4479 -22.8003,76.6836 -22.7507,76.8946 -22.6266,77.0807 -22.5273,77.2545 -22.3784,77.4282 -21.9689,77.5647 -21.958,77.5692 -21.9717,77.5731 -21.966,77.5868 -21.8318,77.6937 -21.7173,77.7366 -21.7019,77.743 -21.6577,77.7654 -21.6266,77.783 -21.5218,77.8488 -21.5143,77.8604 -21.53,77.8662 -21.5616,77.8643 -21.5826,77.8592 -21.6057,77.8501 -21.6249,77.8409 -21.6488,77.8279 -21.6579,77.8226 -21.6888,77.81 -21.7186,77.8047 -21.7504,77.8028 -21.771,77.8068 -21.6716,77.888 -21.6419,77.899 -21.5484,77.9186 -21.5228,77.9231 -21.4804,77.9328 -21.388,77.9614 -21.3449,77.9936 -21.3666,78.0002 -21.3853,77.9998 -21.4036,77.9982 -21.4592,77.9961 -21.5015,77.9966 -21.6923,78.0185 -21.6726,78.0266 -21.6499,78.0292 -21.6268,78.0296 -21.6029,78.0292 -21.5784,78.0277 -21.5076,78.0232 -21.4479,78.0162 -21.4239,78.016 -21.3525,78.0345 -21.3342,78.0405 -21.2237,78.098 -21.2124,78.1066 -21.2116,78.1182 -21.2248,78.1266 -21.2679,78.1365 -21.2993,78.1418 -21.3122,78.1495 -21.3127,78.1801 -21.3081,78.1911 -21.2972,78.2026 -21.2331,78.2502 -21.0658,78.3989 -20.9027,78.4751 -20.8742,78.4883 -20.8456,78.5056 -20.8408,78.5168 -20.8492,78.5248 -20.862,78.5309 -20.8728,78.5337 -20.9037,78.5358 -20.9306,78.5359 -21.0774,78.5288 -21.1066,78.5271 -21.1887,78.5185 -21.2459,78.5099 -21.2722,78.508 -21.2823,78.5089 -21.2935,78.5116 -21.3585,78.5336 -21.3369,78.5398 -21.3183,78.542 -21.199,78.5503 -21.145,78.5506 -21.063,78.5448 -21.0436,78.5453 -20.8639,78.5758 -20.9265,78.5913 -20.9481,78.5949 -21.0124,78.6582 -21.0339,78.6821 -21.0635,78.6818 -21.094,78.6824 -21.1183,78.691 -20.9426,78.7217 -20.9138,78.7244 -20.8911,78.7239 -20.8576,78.7225 -20.8336,78.7194 -20.8102,78.7174 -20.7599,78.7169 -20.7311,78.7194 -20.7087,78.725 -20.6984,78.7356 -20.6846,78.7451 -20.6186,78.7717 -20.6006,78.7752 -20.5557,78.7769 -20.5325,78.7756 -20.4151,78.7655 -20.2608,78.751 -20.2017,78.7474 -20.1459,78.7464 -20.0961,78.747 -20.0375,78.751 -19.9773,78.7571 -19.9562,78.761 -19.9372,78.7648 -19.9147,78.7709 -19.8968,78.7773 -19.8711,78.7889 -19.8555,78.8009 -19.8445,78.8125 -19.8442,78.8242 -19.8529,78.8475 -19.8618,78.858 -19.9324,78.9091 -19.9671,78.9201 -20.0144,78.9371 -20.0283,78.9464 -19.8679,79.0005 -19.7906,79.0071 -19.6652,79.0084 -19.6009,79.0073 -19.5787,79.0018 -19.558,79.0014 -19.5375,79.0027 -19.514,79.0077 -19.4924,79.0198 -19.4707,79.0315 -19.4624,79.0404 -19.4661,79.0511 -19.4754,79.0595 -19.5038,79.0737 -19.5054,79.0854 -19.3317,79.1533 -19.3174,79.1572 -19.2977,79.1594 -19.2542,79.1622 -19.178,79.1671 -19.1608,79.1597 -19.1776,79.1561 -19.2114,79.1506 -19.2254,79.1456 -19.234,79.1397 -19.2432,79.0881 -19.2496,79.0535 -19.2305,79.0507 -19.0441,79.0686 -19.0198,79.0851 -19.0456,79.106 -19.0641,79.1037 -19.078,79.0985 -19.0883,79.0897 -19.1045,79.0826 -19.1268,79.0816 -19.1426,79.0899 -19.1461,79.1005 -19.1191,79.1296 -19.1,79.1374 -19.0444,79.1559 -19.0316,79.1823 -19.1309,79.1992 -19.1636,79.2029 -19.4754,79.2131 -19.4964,79.2134 -19.5122,79.213 -19.5364,79.2093 -19.5504,79.2033 -19.5584,79.1971 -19.5873,79.1621 -19.6157,79.1155 -19.7402,79.0441 -19.7765,79.031 -19.8023,79.0348 -19.8118,79.0491 -19.8125,79.0646 -19.8089,79.0822 -19.7336,79.1371 -19.7172,79.1485 -19.6671,79.1669 -19.6291,79.1917 -19.6171,79.2011 -19.606,79.2131 -19.5946,79.2321 -19.5853,79.2858 -19.6197,79.314 -19.6739,79.311 -19.7374,79.3398 -19.6713,79.4021 -19.6627,79.408 -19.651,79.4122 -19.6221,79.4204 -19.5834,79.4306 -19.5634,79.4337 -19.5357,79.4427 -19.5296,79.451 -19.5237,79.4647 -19.5153,79.4997 -19.5179,79.5136 -19.5717,79.5288 -19.569,79.5422 -19.5595,79.5464 -19.4546,79.5909 -19.3835,79.6196 -19.3643,79.6258 -19.2543,79.6527 -19.2289,79.6587 -19.1984,79.6652 -19.167,79.6694 -19.1379,79.6712 -19.105,79.6704 -18.8786,79.6623 -18.8015,79.6592 -18.7036,79.6509 -18.6056,79.6397 -18.5377,79.6305 -18.4377,79.6216 -18.3719,79.6194 -18.3071,79.6208 -18.2404,79.6258 -18.217,79.6285 -18.1645,79.6356 -18.133,79.6417 -17.9638,79.6864 -17.9335,79.697 -17.8159,79.7466 -17.7968,79.7599 -17.7749,79.7745 -17.6558,79.8262 -17.5574,79.8611 -17.542,79.867 -17.3948,79.9331 -17.4602,79.9584 -17.5115,79.9747 -17.5905,79.9904 -17.6371,79.9984 -17.6716,80.0017 -17.7429,80.007 -17.877,80.0133 -17.9108,80.014 -17.9791,80.0153 -18.0802,80.0147 -18.3443,80.0003 -18.4047,79.9967 -18.6675,79.9727 -18.8518,79.9545 -18.9742,79.9594 -19.1365,79.9731 -19.1715,79.9757 -19.2281,79.9771 -19.3008,79.9692 -19.3301,79.965 -19.3716,79.957 -19.4009,79.9471 -19.4099,79.9412 -19.4216,79.9352 -19.439,79.93 -19.4648,79.9243 -19.5288,79.9171 -19.6455,79.9089 -19.8041,79.8957 -19.8364,79.8929 -19.8681,79.8888 -19.8989,79.8828 -19.9538,79.8685 -19.989,79.8596 -20.0029,79.8536 -20.1923,79.7616 -20.1462,79.7 -20.12,79.6959 -20.093,79.6969 -20.0826,79.6983 -20.0573,79.7036 -19.911,79.7207 -19.8444,79.7261 -19.8139,79.7245 -19.8226,79.7193 -19.8639,79.7118 -19.9073,79.705 -19.9785,79.6986 -20.0052,79.6974 -20.0677,79.6888 -20.0979,79.6828 -20.1216,79.675 -20.13,79.6684 -20.1502,79.6527 -20.17,79.6478 -20.2039,79.6448 -20.2619,79.6411 -20.2888,79.6448 -20.2837,79.6533 -20.3071,79.6992 -20.3468,79.7256 -20.4304,79.7344 -20.5151,79.7392 -20.6438,79.7378 -20.6595,79.7363 -20.6858,79.7426 -20.675,79.7566 -20.6644,79.763 -20.6398,79.7744 -20.5039,79.8259 -20.4184,79.8564 -20.402,79.8663 -20.4106,79.8747 -20.429,79.8792 -20.5329,79.9042 -20.5139,79.9128 -20.4866,79.9149 -20.4594,79.9163 -20.3987,79.9181 -20.3675,79.9229 -20.3014,79.9606 -20.3286,79.9673 -20.4308,79.9695 -20.4657,79.9721 -20.4897,79.9769 -20.4552,79.9838 -20.3951,79.9873 -20.3089,79.9949 -20.2129,80.0077 -20.1606,80.0157 -20.1347,80.0218 -20.0854,80.0384 -20.0714,80.044 -20.0624,80.0503 -20.0509,80.0615 -20.0391,80.0732 -20.0186,80.0857 -19.9983,80.097 -19.9796,80.107 -19.9325,80.1225 -19.9032,80.1283 -19.783,80.1475 -19.7557,80.1504 -19.6382,80.157 -19.6011,80.1577 -19.5352,80.1573 -19.3926,80.1514 -19.2899,80.1443 -19.1882,80.1319 -19.1274,80.1217 -19.0568,80.1148 -19.0214,80.1125 -18.8871,80.1103 -18.782,80.1118 -18.7161,80.1112 -18.6816,80.1095 -18.6467,80.1068 -18.5286,80.0936 -18.4563,80.0876 -18.39,80.084 -18.3215,80.0823 -18.253,80.0829 -18.1025,80.0927 -18.0442,80.0996 -17.983,80.1048 -17.9125,80.1078 -17.8814,80.1082 -17.7789,80.1079 -17.6389,80.1057 -17.5107,80.1018 -17.3732,80.0977 -17.2254,80.0982 -17.0906,80.1058 -17.0596,80.1083 -16.9219,80.1236 -16.8548,80.1317 -16.7936,80.1437 -16.7543,80.152 -16.5649,80.1972 -16.5369,80.2068 -16.5286,80.214 -16.5438,80.2174 -16.5955,80.2213 -16.6539,80.2276 -16.6749,80.2342 -16.7027,80.2502 -16.7155,80.2633 -16.7079,80.273 -16.6827,80.2774 -16.6014,80.2786 -16.5725,80.2775 -16.5577,80.2724 -16.5884,80.2624 -16.6054,80.2586 -16.6325,80.2424 -16.6007,80.2397 -16.569,80.2401 -16.546,80.2424 -16.4891,80.2511 -16.4667,80.2572 -16.448,80.2672 -16.4242,80.2814 -16.4002,80.2925 -16.3545,80.3041 -16.3093,80.3138 -16.2572,80.3207 -16.211,80.3285 -16.1828,80.3344 -16.0733,80.3669 -16.0676,80.3765 -16.089,80.3849 -16.1607,80.408 -16.1724,80.41 -16.4496,80.4283 -16.4847,80.429 -16.7263,80.4323 -16.9208,80.4355 -17.0166,80.4467 -17.1832,80.4743 -17.2435,80.4844 -17.3162,80.4941 -17.3824,80.4983 -17.4206,80.4978 -17.4763,80.495 -17.5021,80.4915 -17.6392,80.4669 -17.8037,80.4388 -17.8742,80.4387 -17.9093,80.4376 -17.9466,80.4338 -18.0723,80.4185 -18.107,80.4162 -18.1714,80.4158 -18.4528,80.4146 -18.5674,80.424 -18.6419,80.4362 -18.8302,80.4539 -18.8636,80.4558 -18.9791,80.4582 -19.0463,80.455 -19.1106,80.4534 -19.1462,80.4541 -19.1823,80.4556 -19.4091,80.4692 -19.427,80.4719 -19.4483,80.4795 -19.4546,80.4875 -19.4687,80.4931 -19.4944,80.4978 -19.5923,80.5043 -19.7384,80.5134 -19.8716,80.5184 -20.0039,80.5155 -20.062,80.5127 -20.0755,80.5101 -20.0915,80.5053 -20.1015,80.5011 -20.1076,80.4897 -20.1764,80.4596 -20.1969,80.4536 -20.2329,80.4481 -20.2635,80.4443 -20.2978,80.4419 -20.4009,80.4358 -20.5762,80.4217 -20.5865,80.4185 -20.6011,80.4095 -20.6388,80.3832 -20.6533,80.3774 -20.6766,80.3716 -20.7102,80.3683 -20.7448,80.3678 -20.7713,80.373 -20.7771,80.3837 -20.7688,80.3904 -20.7594,80.3946 -20.7437,80.418 -20.7756,80.4253 -20.8058,80.4267 -20.8639,80.4252 -20.893,80.4235 -20.957,80.4225 -21.0226,80.4235 -21.1221,80.4271 -21.153,80.4298 -21.1807,80.4406 -21.1463,80.4491 -21.1118,80.4508 -21.0762,80.4512 -21.0052,80.4504 -20.9658,80.4485 -20.8993,80.4465 -20.7891,80.4448 -20.7218,80.4451 -20.614,80.4483 -20.5133,80.454 -20.446,80.4605 -20.4131,80.4658 -20.3924,80.4717 -20.3762,80.4809 -20.3629,80.4901 -20.3449,80.4955 -20.3186,80.5016 -20.1813,80.5322 -20.1241,80.5437 -20.0574,80.5532 -20.0226,80.5554 -19.9869,80.5559 -19.7206,80.5478 -19.5618,80.5387 -19.528,80.5359 -19.4157,80.5234 -19.3402,80.5129 -19.3033,80.5102 -19.0532,80.508 -18.9065,80.5037 -18.8354,80.4958 -18.7991,80.492 -18.7626,80.4896 -18.6907,80.4869 -18.617,80.4883 -18.518,80.4938 -18.4837,80.497 -18.4094,80.5073 -18.3872,80.5113 -18.3544,80.522 -18.3221,80.5341 -18.3,80.5398 -18.2498,80.5508 -18.1638,80.5649 -18.1114,80.569 -18.0585,80.5711 -18.017,80.5747 -17.9791,80.5779 -17.9595,80.5823 -17.9413,80.5957 -17.9548,80.6104 -17.9751,80.6207 -17.964,80.6596 -17.901,80.6728 -17.7565,80.6497 -17.6917,80.6278 -17.6475,80.6164 -17.6369,80.614 -17.6073,80.6106 -17.5827,80.6098 -17.5469,80.6098 -17.4094,80.6113 -17.1702,80.6128 -17.0768,80.6107 -17.0106,80.608 -16.8081,80.5949 -16.7358,80.5873 -16.6993,80.5818 -16.6624,80.5772 -16.6206,80.5744 -16.5846,80.5744 -16.4429,80.5872 -16.3569,80.5936 -16.3241,80.5952 -16.2644,80.5971 -16.1658,80.5981 -16.0999,80.5972 -16.0309,80.5939 -16.0009,80.5938 -15.9772,80.5946 -15.9531,80.5965 -15.8699,80.6663 -15.7784,80.6974 -15.6247,80.7142 -15.5881,80.7179 -15.5156,80.7227 -15.2365,80.7321 -15.0389,80.7343 -15.0055,80.7347 -14.9081,80.7422 -14.8221,80.7516 -14.7607,80.7603 -14.7328,80.7653 -14.6302,80.7865 -14.6028,80.8133 -14.6142,80.8172 -14.7285,80.8432 -14.7617,80.849 -14.8316,80.8554 -14.862,80.8593 -14.8923,80.8668 -14.9045,80.8707 -15.0891,80.95 -14.9259,80.9934 -14.8255,80.9999 -14.5791,80.9991 -14.327,80.9911 -14.2211,80.9905 -14.1143,80.9938 -14.0576,80.9976 -13.9812,81.0071 -13.9288,81.0163 -13.722,81.0777 -13.6537,81.1245 -13.6238,81.138 -13.6072,81.1423 -13.5536,81.1535 -13.5005,81.1639 -13.4672,81.1693 -13.4347,81.1719 -13.3647,81.1705 -13.3265,81.1706 -13.2973,81.1717 -13.2029,81.1811 -13.1758,81.186 -13.1579,81.194 -13.1781,81.2011 -13.1959,81.2121 -13.177,81.2293 -13.1624,81.2346 -13.0905,81.2611 -13.0699,81.2667 -13.022,81.275 -12.9409,81.2883 -12.8048,81.3081 -12.7115,81.3184 -12.5618,81.3381 -12.5409,81.3415 -12.4668,81.358 -12.3244,81.3894 -12.2812,81.4006 -12.1288,81.454 -12.117,81.4624 -12.1251,81.4708 -12.1752,81.4779 -12.2445,81.486 -12.3018,81.4924 -12.3565,81.4961 -12.4091,81.4967 -12.451,81.4993 -12.4931,81.5028 -12.5181,81.5071 -12.542,81.523 -12.5532,81.5286 -12.5677,81.5341 -12.7368,81.5853 -12.7897,81.5966 -12.853,81.6078 -13.1249,81.6409 -13.1965,81.6481 -13.2365,81.6513 -13.3156,81.6566 -13.5911,81.6744 -13.7956,81.6818 -13.8227,81.6809 -13.8633,81.682 -14.009,81.6958 -14.0387,81.6994 -14.055,81.704 -14.0802,81.7153 -14.1131,81.7203 -14.1532,81.7235 -14.1869,81.7243 -14.2687,81.7243 -14.3359,81.7266 -14.3962,81.7343 -14.4488,81.7463 -14.5157,81.757 -14.5559,81.7618 -14.7181,81.7774 -14.7931,81.7817 -14.9324,81.7852 -15.0486,81.7869 -15.1242,81.7852 -15.1997,81.7815 -15.4324,81.7704 -15.5074,81.7663 -15.569,81.7615 -15.6099,81.7604 -15.6849,81.7624 -15.9379,81.7717 -16.1126,81.7799 -16.2386,81.7763 -16.399,81.7738 -16.43,81.7742 -16.4643,81.7761 -16.4915,81.7779 -16.6096,81.7902 -16.644,81.7908 -16.6847,81.789 -16.8259,81.7721 -16.8568,81.7609 -16.7905,81.7396 -16.7839,81.7298 -16.8049,81.7213 -16.8181,81.7188 -16.8382,81.7167 -16.8585,81.7157 -16.9395,81.7141 -16.9936,81.7152 -17.0693,81.7187 -17.1971,81.7047 -17.2076,81.6973 -17.2209,81.6962 -17.2615,81.6959 -17.3032,81.7006 -17.3313,81.7064 -17.3743,81.7177 -17.3889,81.7223 -17.4032,81.7243 -17.4238,81.7238 -17.4433,81.722 -17.4628,81.7173 -17.4756,81.713 -17.4805,81.608 -17.4706,81.6011 -17.4559,81.5966 -17.3831,81.584 -17.3143,81.5749 -17.2955,81.5628 -17.373,81.5521 -17.3928,81.5507 -17.4198,81.5528 -17.443,81.5599 -17.4706,81.5714 -17.4923,81.5772 -17.5338,81.586 -17.6024,81.5923 -17.7243,81.5981 -17.7575,81.5978 -17.7708,81.5968 -17.7995,81.5922 -17.8675,81.5334 -17.8325,81.5014 -17.786,81.4872 -17.7481,81.4821 -17.7116,81.4802 -17.6314,81.4776 -17.5647,81.4733 -17.5499,81.467 -17.7246,81.4142 -17.7439,81.4121 -17.8,81.4133 -17.89,81.42 -17.9786,81.4019 -17.9493,81.3488 -17.9571,81.3308 -18.1889,81.3015 -18.2151,81.3029 -18.3608,81.3137 -18.3881,81.3171 -18.4155,81.3217 -18.4366,81.3266 -18.4446,81.332 -18.4521,81.3489 -18.6333,81.3894 -18.6605,81.3917 -18.6735,81.3918 -18.6864,81.3906 -18.7011,81.3864 -18.7122,81.3812 -18.7086,81.3709 -18.7141,81.359 -18.7314,81.3445 -18.7433,81.3408 -18.7736,81.3352 -18.8132,81.3363 -18.8316,81.3424 -18.8808,81.3756 -18.9015,81.398 -18.9104,81.4039 -18.9312,81.4075 -19.0317,81.4123 -19.1645,81.4167 -19.4912,81.414 -19.8579,81.3581 -19.8746,81.3532 -19.897,81.339 -19.9327,81.3258 -20.0147,81.3014 -20.041,81.2958 -20.1679,81.2853 -20.1849,81.2863 -20.2287,81.3078 -20.2382,81.3137 -20.1838,81.3834 -20.1495,81.4239 -20.1638,81.4628 -20.073,81.4793 -20.0589,81.4775 -20.0331,81.4787 -20.0093,81.484 -19.9891,81.4895 -19.9749,81.4936 -19.8416,81.5384 -19.874,81.5439 -19.9021,81.5399 -20.1528,81.5041 -20.4395,81.4712 -20.5105,81.4685 -20.6636,81.4481 -20.6997,81.4423 -20.8928,81.3916 -21.0317,81.347 -21.1017,81.328 -21.1617,81.3153 -21.2086,81.3079 -21.3041,81.2949 -21.3579,81.2832 -21.3754,81.2712 -21.3677,81.2589 -21.3786,81.2212 -21.3918,81.2064 -21.4095,81.1945 -21.4467,81.1835 -21.4767,81.1805 -21.5143,81.1787 -21.5523,81.1783 -21.6201,81.1743 -21.6542,81.168 -21.6754,81.1618 -21.6906,81.1556 -21.6992,81.1498 -21.7038,81.1383 -21.6897,81.1267 -21.6795,81.1215 -21.6878,81.1099 -21.7128,81.1043 -21.7351,81.0999 -21.7729,81.0951 -21.949,81.0795 -21.9836,81.0752 -22.0178,81.0696 -22.2905,81.0022 -22.3358,80.9866 -22.3441,80.9811 -22.389,80.9701 -22.5955,80.9209 -22.6495,80.9102 -22.6704,80.9049 -22.6856,80.8964 -22.6769,80.885 -22.6698,80.8685 -22.6872,80.8588 -22.7109,80.853 -22.9577,80.8057 -22.9902,80.8002 -23.0264,80.7953 -23.1895,80.7729 -23.2517,80.7658 -23.2805,80.7641 -23.4187,80.7639 -23.4589,80.7612 -23.4826,80.7564 -23.5003,80.7504 -23.5057,80.7335 -23.4705,80.7128 -23.4533,80.7074 -23.4293,80.6935 -23.4292,80.6822 -23.4403,80.67 -23.4541,80.665 -23.4689,80.6607 -23.4995,80.6542 -23.5522,80.6443 -23.5838,80.6079 -23.5956,80.5847 -23.6115,80.579 -23.7059,80.5523 -23.7821,80.5328 -23.8487,80.5164 -23.966,80.4931 -24.0868,80.468 -24.1509,80.4527 -24.2146,80.4375 -24.3037,80.418 -24.3292,80.4136 -24.3961,80.4091 -24.4328,80.41 -24.4631,80.4219 -24.4385,80.4385 -24.238,80.4997 -24.1022,80.5349 -24.0771,80.5404 -23.9871,80.5562 -24.0215,80.5595 -24.0611,80.5598 -24.0941,80.5593 -24.158,80.5571 -24.2263,80.5524 -24.2588,80.5488 -24.2907,80.5442 -24.3251,80.5424 -24.3529,80.5462 -24.3404,80.5529 -24.3089,80.5573 -24.0774,80.581 -23.9438,80.5873 -23.9128,80.5926 -23.8981,80.5968 -23.7302,80.6717 -23.7668,80.706 -23.7826,80.7175 -23.7925,80.7216 -23.8019,80.7558 -23.5968,80.8314 -23.5792,80.8361 -23.527,80.8478 -23.4598,80.8627 -23.3809,80.8798 -23.3554,80.8863 -23.3002,80.902 -23.2866,80.9079 -23.2716,80.9196 -23.2662,80.9339 -23.2681,80.9452 -23.2252,80.9616 -23.1171,80.982 -23.0005,81.0082 -22.9303,81.0265 -22.9035,81.0361 -22.8791,81.0454 -22.69,81.128 -22.7724,81.1488 -22.8118,81.15 -22.8813,81.1487 -22.892,81.1543 -22.8771,81.1593 -22.8463,81.1609 -22.6674,81.1614 -22.6373,81.1639 -22.5692,81.1713 -22.51,81.1813 -22.4887,81.1866 -22.4525,81.1981 -22.4223,81.2094 -22.4078,81.215 -22.1959,81.3106 -22.157,81.3282 -22.1249,81.3463 -22.0469,81.4168 -21.8997,81.5937 -21.8857,81.6281 -21.9359,81.7751 -21.9423,81.7921 -21.9563,81.8104 -21.9712,81.8205 -22.024,81.8525 -22.1745,81.9314 -22.1932,81.9371 -22.2255,81.942 -22.2686,81.9434 -22.3097,81.9421 -22.463,81.9327 -22.7189,81.9208 -22.7598,81.9192 -22.8011,81.9185 -23.0394,81.9148 -23.4349,81.9072 -23.5334,81.9037 -23.6081,81.8982 -23.9207,81.8681 -23.945,81.8645 -23.9554,81.8613 -24.036,81.8095 -24.0708,81.7247 -24.0331,81.6575 -24.0233,81.6261 -24.088,81.5813 -24.1022,81.5754 -24.1294,81.5692 -24.1676,81.5671 -24.2188,81.5672 -24.2906,81.5718 -24.4187,81.5777 -24.4635,81.5791 -24.4968,81.5784 -24.5464,81.5747 -24.5691,81.5702 -24.5845,81.5661 -24.5962,81.5614 -24.6298,81.5548 -24.6661,81.5508 -24.7131,81.5508 -24.839,81.5545 -24.863,81.5524 -24.9131,81.5458 -24.9709,81.5342 -24.9856,81.529 -25.0021,81.5184 -25.0517,81.5042 -25.2681,81.4771 -25.4408,81.4556 -25.9761,81.3965 -26.2181,81.3748 -26.2556,81.3731 -26.3649,81.365 -26.4593,81.3556 -26.5158,81.3482 -26.5493,81.3437 -26.5972,81.3345 -26.6247,81.3248 -26.6496,81.3135 -26.6651,81.3075 -26.6791,81.3031 -26.733,81.2941 -26.7928,81.2846 -26.8211,81.2806 -26.8997,81.2703 -26.9465,81.2665 -27.1825,81.2469 -27.2379,81.2441 -27.3918,81.2462 -27.4621,81.2499 -27.4797,81.2528 -27.4625,81.2599 -27.4248,81.261 -27.3642,81.2599 -27.3201,81.2562 -27.2848,81.2544 -27.2127,81.2528 -27.121,81.2616 -27.0961,81.269 -27.1446,81.3138 -27.162,81.3172 -27.1826,81.3177 -27.2155,81.3175 -27.269,81.3128 -27.3002,81.3121 -27.3611,81.3133 -27.3892,81.3142 -27.426,81.3172 -27.4857,81.3271 -27.5302,81.3399 -27.5367,81.3514 -27.5229,81.3608 -27.5051,81.367 -27.4837,81.3706 -27.4238,81.3778 -27.3649,81.3836 -27.0635,81.4044 -26.8401,81.4167 -26.7759,81.421 -26.7522,81.4235 -26.6034,81.4423 -26.5461,81.4495 -26.3841,81.4723 -26.2694,81.4904 -26.129,81.5069 -26.0554,81.5124 -25.8173,81.5439 -25.78,81.549 -25.7153,81.5601 -25.6807,81.5648 -25.5762,81.5789 -25.4712,81.5908 -25.4374,81.5941 -25.3732,81.6025 -25.3429,81.6085 -25.2718,81.6261 -25.2321,81.6364 -25.2219,81.642 -25.1839,81.6621 -25.1585,81.6836 -25.1171,81.8449 -25.1373,81.8533 -25.153,81.855 -25.2393,81.8567 -25.3152,81.8561 -25.4003,81.8567 -25.5705,81.8586 -25.9433,81.8655 -26.2282,81.8737 -26.3138,81.8743 -26.383,81.8734 -26.5186,81.8701 -26.856,81.8796 -27.0233,81.8782 -27.2771,81.883 -27.3596,81.8814 -27.4516,81.877 -27.7029,81.8745 -27.9574,81.8725 -28.2452,81.8671 -28.328,81.8653 -28.4961,81.8555 -28.5658,81.8527 -28.776,81.8558 -28.8222,81.8558 -28.8988,81.8531 -29.3182,81.8145 -29.3469,81.8103 -29.3761,81.8048 -29.3872,81.7978 -29.3782,81.7916 -29.367,81.7891 -29.3369,81.7796 -29.4107,81.7571 -29.5181,81.7301 -29.5389,81.7278 -29.6059,81.7278 -29.6419,81.7285 -29.6584,81.7299 -29.6721,81.7521 -29.6345,81.7665 -29.5891,81.7934 -29.6011,81.8001 -29.6226,81.8007 -29.6668,81.7999 -29.7725,81.7938 -30.2649,81.7613 -30.4297,81.7478 -30.4847,81.7411 -30.5028,81.7396 -30.6076,81.7319 -30.6783,81.7285 -30.9056,81.7258 -30.9761,81.7221 -31.056,81.7163 -31.1228,81.7105 -31.2685,81.7006 -31.4468,81.6929 -31.4811,81.6929 -31.5207,81.6913 -31.6087,81.6844 -31.7289,81.6704 -31.9,81.6492 -32.1854,81.6119 -32.2427,81.6045 -32.3025,81.5943 -32.3817,81.5734 -32.3923,81.565 -32.4024,81.5595 -32.4287,81.5471 -32.4552,81.5416 -32.5089,81.5375 -32.5429,81.5369 -32.7754,81.5302 -32.8228,81.5233 -32.8572,81.5195 -32.9077,81.5176 -32.9217,81.5206 -32.9355,81.5274 -32.9869,81.634 -32.95,81.6725 -32.938,81.6788 -32.8913,81.6883 -32.8273,81.6982 -32.7918,81.7031 -32.6616,81.7201 -32.5587,81.7282 -32.3186,81.7491 -32.1516,81.7682 -32.0736,81.7751 -32.0053,81.78 -31.8445,81.7813 -31.7456,81.7919 -31.5885,81.8134 -31.3616,81.8263 -31.2564,81.8266 -31.1267,81.8266 -31.095,81.8287 -31.065,81.8352 -31.0323,81.8477 -30.9995,81.8531 -30.8883,81.8619 -30.6384,81.8809 -30.3691,81.9014 -30.2901,81.9052 -30.2093,81.9082 -30.1039,81.9152 -29.831,81.9446 -29.8165,81.9466 -29.8062,81.953 -29.9233,81.9958 -29.9484,81.9992 -30.0197,82.0067 -30.0623,82.0104 -30.3513,82.033 -30.4815,82.0363 -30.9163,82.0399 -31.321,82.045 -31.4417,82.0503 -31.4636,82.052 -31.512,82.0618 -31.4832,82.0652 -31.4453,82.0647 -31.343,82.0577 -31.2945,82.0556 -31.2564,82.0548 -31.2137,82.0555 -31.0969,82.0614 -31.0515,82.0624 -30.9713,82.0625 -30.84,82.059 -30.6128,82.0474 -30.5638,82.0466 -30.3886,82.0467 -30.2552,82.0454 -30.2165,82.0426 -30.1965,82.0374 -29.9854,82.0275 -29.8962,82.0267 -29.8527,82.0247 -29.8156,82.0201 -29.7986,82.0145 -29.7876,82.0065 -29.7811,81.9988 -29.7521,81.9913 -29.7118,81.9884 -29.6856,81.9879 -29.6074,81.9886 -29.5057,82.001 -29.4622,82.0029 -29.4248,82.0021 -29.3579,81.9986 -29.2731,81.9957 -29.1832,81.9936 -29.1404,81.994 -29.0237,82.0017 -28.8481,82.0129 -28.5788,82.0294 -28.4622,82.0351 -28.3765,82.0354 -28.2863,82.0335 -28.1707,82.0289 -28.1361,82.0302 -28.0318,82.0371 -28.0002,82.04 -27.915,82.0429 -27.8718,82.0433 -27.7848,82.0428 -27.6225,82.0406 -27.355,82.0354 -27.3065,82.0343 -27.0922,82.0275 -26.8701,82.0228 -26.7002,82.0197 -26.6105,82.017 -26.429,82.0098 -26.0746,82.0013 -26.032,82.0016 -25.8217,82.0045 -25.6101,82.0065 -25.3202,82.0085 -25.0686,82.0098 -24.9834,82.0096 -24.9426,82.0117 -24.8635,82.0171 -24.6369,82.034 -24.521,82.0452 -24.4459,82.0546 -24.3414,82.0699 -24.2346,82.0872 -24.1718,82.0985 -24.0933,82.1095 -24.0582,82.1135 -23.6835,82.1476 -23.6152,82.1516 -23.5739,82.15 -23.5581,82.1452 -23.5259,82.1415 -23.4824,82.1416 -23.0562,82.1447 -22.9708,82.1461 -22.8845,82.1498 -22.5581,82.1725 -22.4404,82.1828 -22.4227,82.1846 -22.4042,82.1866 -22.3685,82.1915 -22.2989,82.203 -22.1485,82.2312 -22.1318,82.2372 -22.1215,82.2465 -22.1393,82.2546 -22.1922,82.2655 -22.2154,82.2713 -22.2308,82.2762 -22.1394,82.3022 -22.0834,82.3145 -22.0413,82.3168 -21.9518,82.3198 -21.9131,82.3215 -21.8719,82.3252 -21.7733,82.3399 -21.3568,82.4039 -21.3244,82.4099 -21.3063,82.416 -21.2461,82.4499 -21.2419,82.4643 -21.2635,82.4728 -21.2901,82.4782 -21.3235,82.4824 -21.483,82.5047 -21.702,82.5418 -21.9412,82.5644 -21.9901,82.5687 -22.0297,82.5745 -22.2097,82.6011 -22.3265,82.6206 -22.442,82.6371 -22.5201,82.6466 -22.5602,82.6423 -22.5771,82.6239 -22.7537,82.6107 -22.7838,82.6132 -22.7994,82.6217 -22.8316,82.6353 -22.8636,82.6402 -22.8922,82.6418 -23.0026,82.6404 -23.0349,82.6423 -23.079,82.6473 -23.0918,82.6528 -23.0858,82.669 -23.0968,82.6761 -23.1136,82.6815 -23.1778,82.6905 -23.2292,82.6958 -23.2965,82.7003 -23.3402,82.701 -23.3826,82.7007 -23.6044,82.6837 -23.6146,82.6823 -23.6673,82.6575 -23.6548,82.6418 -23.664,82.636 -23.6847,82.6303 -23.7645,82.6193 -23.8626,82.6109 -23.9066,82.6093 -23.938,82.6094 -23.9418,82.7141 -23.9168,82.7229 -23.8764,82.7285 -23.7934,82.7377 -23.7583,82.7462 -23.7779,82.7514 -23.8741,82.7602 -23.908,82.7625 -23.9443,82.76 -24.0493,82.7498 -24.0768,82.7463 -24.0931,82.7404 -24.1018,82.7341 -24.1215,82.7309 -24.1609,82.7312 -24.2101,82.733 -24.2602,82.7362 -24.3101,82.7416 -24.3429,82.7463 -24.3948,82.7503 -24.4508,82.7511 -24.5001,82.7497 -24.5315,82.7464 -24.5596,82.7406 -24.6336,82.725 -24.7031,82.7119 -24.7769,82.6994 -24.9109,82.6787 -24.9931,82.6704 -25.143,82.6605 -25.1711,82.6582 -25.1848,82.6568 -25.2717,82.6464 -25.3245,82.6396 -25.3983,82.6312 -25.4838,82.6253 -25.5422,82.6232 -25.6476,82.621 -25.7101,82.6215 -25.7621,82.6231 -25.7877,82.6301 -25.7011,82.6289 -25.6516,82.63 -25.5172,82.636 -25.4782,82.6415 -25.4335,82.6542 -25.246,82.6858 -25.1544,82.6957 -25.0479,82.7337 -25.0451,82.7431 -25.0359,82.7481 -25.0024,82.7585 -24.9375,82.7752 -24.8866,82.7878 -24.8057,82.8043 -24.6958,82.8332 -24.6796,82.8391 -24.663,82.854 -24.67,82.8627 -24.6852,82.868 -24.7078,82.8734 -24.7738,82.8805 -24.8042,82.8858 -24.8423,82.8971 -24.8578,82.9025 -24.8902,82.921 -24.8987,82.9317 -24.8829,82.9394 -24.8561,82.9436 -24.786,82.952 -24.7549,82.959 -24.8515,82.989 -24.8717,82.9951 -24.8954,83.0004 -24.9288,83.0043 -24.9748,83.0081 -25.0526,83.0116 -25.0985,83.0121 -25.2339,83.0069 -25.5349,82.9894 -25.7335,82.9781 -25.9824,82.9653 -26.1658,82.9527 -26.2862,82.9436 -26.3904,82.9348 -26.4249,82.9314 -26.4551,82.9271 -26.4713,82.922 -26.4984,82.916 -26.5174,82.9127 -26.5702,82.9106 -27.0772,82.9067 -27.1763,82.9086 -27.5188,82.9149 -27.622,82.918 -27.72,82.9235 -27.7666,82.9269 -27.8264,82.9287 -27.8652,82.9277 -27.9071,82.9234 -27.9378,82.918 -27.9602,82.9125 -28.0024,82.8997 -28.0313,82.8931 -28.0777,82.8917 -28.1168,82.8957 -28.1526,82.9067 -28.1665,82.9194 -28.4037,82.9508 -28.4516,82.9541 -28.6622,82.9597 -28.8172,82.9658 -29.0865,82.9778 -29.1908,82.9809 -29.3314,82.9835 -29.4355,82.9835 -29.5298,82.9833 -29.771,82.9805 -29.9525,82.9744 -30.035,82.9688 -30.0766,82.9629 -30.1082,82.9568 -30.1718,82.94 -30.2082,82.9342 -30.2489,82.9297 -30.2949,82.9285 -30.3962,82.9279 -30.4434,82.9288 -30.5917,82.9291 -30.6678,82.928 -30.7361,82.9236 -30.7729,82.9197 -30.8466,82.9089 -30.9181,82.8965 -31.0312,82.8808 -31.1152,82.8731 -31.2603,82.8536 -31.3124,82.8506 -31.3358,82.8479 -31.3582,82.8448 -31.3781,82.8406 -31.392,82.8358 -31.4033,82.8238 -31.4707,82.7972 -31.4813,82.7882 -31.5185,82.7817 -31.532,82.78 -31.5544,82.7792 -31.5973,82.782 -31.6103,82.7942 -31.6029,82.808 -31.6072,82.8186 -31.6179,82.8233 -31.6629,82.834 -31.7301,82.8398 -31.8204,82.8438 -31.8626,82.8443 -31.95,82.8433 -32.062,82.8405 -32.0912,82.839 -32.2342,82.8326 -32.4286,82.8301 -32.6934,82.8229 -32.8368,82.823 -32.8841,82.8224 -33.0639,82.8158 -33.2387,82.8073 -33.3532,82.8009 -33.4186,82.7959 -33.4532,82.7921 -33.5491,82.7782 -33.5716,82.7745 -33.592,82.7698 -33.6158,82.7583 -33.6129,82.7395 -33.5959,82.7236 -33.5826,82.7122 -33.5673,82.6973 -33.5688,82.6854 -33.5803,82.6759 -33.6399,82.6619 -33.7193,82.6456 -33.7632,82.6409 -33.795,82.6407 -33.8067,82.6428 -33.7932,82.6543 -33.7193,82.6675 -33.6862,82.6798 -33.6866,82.6989 -33.6924,82.7109 -33.7124,82.728 -33.7362,82.7369 -33.7666,82.7475 -33.7786,82.7504 -33.8049,82.7542 -33.827,82.7567 -33.8999,82.7613 -33.9469,82.7619 -34.1995,82.7587 -34.2954,82.7591 -34.5041,82.7638 -34.5849,82.7638 -34.6785,82.7616 -34.7641,82.7573 -34.8446,82.7494 -34.908,82.7411 -35.1473,82.7039 -35.164,82.7013 -35.1835,82.6963 -35.2539,82.6472 -35.2739,82.6095 -35.3108,82.5936 -35.3639,82.5952 -35.4008,82.6002 -35.4156,82.6055 -35.4266,82.6135 -35.4203,82.6228 -35.2948,82.7171 -35.2708,82.7232 -35.1916,82.7354 -35.1719,82.7375 -35.1898,82.7439 -35.2292,82.7462 -35.3077,82.748 -35.3939,82.7495 -35.438,82.7489 -35.4723,82.7531 -35.4198,82.761 -35.3803,82.7622 -35.2821,82.7621 -35.1788,82.7603 -35.0442,82.7619 -34.8333,82.769 -34.6391,82.7819 -34.5873,82.7828 -34.4175,82.7819 -34.2849,82.7814 -34.1961,82.7817 -34.0557,82.7844 -34.0112,82.7862 -33.8875,82.7919 -33.8106,82.7988 -33.715,82.8094 -33.6548,82.8177 -33.5998,82.8246 -33.4867,82.8352 -33.4414,82.8381 -33.1832,82.8516 -32.8388,82.8671 -32.6363,82.8698 -32.5686,82.8707 -32.4077,82.8825 -32.3795,82.886 -32.3569,82.8935 -32.3825,82.9075 -32.4038,82.9129 -32.4787,82.9298 -32.5321,82.9381 -32.6401,82.9481 -32.7659,82.9601 -32.8499,82.967 -32.8974,82.9692 -33.0006,82.9703 -33.0924,82.9672 -33.1354,82.9675 -33.3594,82.9933 -33.2687,82.9994 -33.2152,82.9983 -33.1095,82.9951 -32.9564,82.9875 -32.677,82.9698 -32.3994,82.9518 -32.3475,82.9476 -32.2774,82.9391 -32.2225,82.9301 -32.1863,82.9255 -32.0236,82.909 -31.9081,82.9022 -31.8158,82.9014 -31.5477,82.9065 -31.5296,82.9091 -31.5016,82.915 -31.4718,82.9198 -31.3927,82.9285 -31.1991,82.945 -31.0216,82.9557 -30.9468,82.959 -30.8627,82.9607 -30.8201,82.9597 -30.731,82.9605 -30.6962,82.9637 -30.66,82.9696 -30.6255,82.9766 -30.5865,82.9835 -30.5125,82.9929 -30.435,82.9994 -30.3526,83.0052 -30.2657,83.0094 -30.0811,83.0159 -29.9404,83.0199 -29.8426,83.021 -29.6871,83.0199 -29.5386,83.0206 -29.4477,83.0224 -29.2397,83.0242 -28.7071,83.0182 -28.4977,83.0122 -28.3867,83.0076 -28.1756,82.998 -28.1203,82.9943 -28.0616,82.9915 -27.9604,82.988 -27.6582,82.9837 -27.5106,82.9836 -27.2783,82.9888 -27.1304,82.991 -26.9907,82.9899 -26.8602,82.9925 -26.7732,82.9971 -26.616,83.0114 -26.2104,83.0455 -26.0288,83.0503 -25.9459,83.055 -25.6118,83.1187 -25.58,83.1251 -25.5615,83.1379 -25.5778,83.1462 -25.5927,83.1509 -25.683,83.1722 -25.7075,83.1777 -26.006,83.2166 -26.1052,83.2258 -26.1633,83.2306 -26.2457,83.2347 -26.6551,83.2675 -27.0785,83.2962 -27.3335,83.3125 -27.6507,83.3238 -27.76,83.3268 -27.8129,83.3276 -27.8607,83.3257 -27.9032,83.3206 -27.9491,83.3177 -27.9935,83.316 -28.0954,83.3129 -28.2894,83.3087 -28.3376,83.3026 -28.3131,83.2943 -28.2646,83.2892 -28.0989,83.2742 -28.2154,83.2659 -28.4568,83.2625 -28.4993,83.2625 -28.5614,83.2701 -28.6154,83.278 -28.7918,83.3083 -28.8,83.3171 -28.7654,83.323 -28.6013,83.3208 -28.5503,83.3211 -28.4568,83.3239 -28.4261,83.3281 -28.4102,83.3368 -28.4208,83.3456 -28.44,83.3508 -28.464,83.3539 -28.5092,83.3571 -28.6689,83.3591 -28.7226,83.3598 -28.7719,83.3582 -28.9167,83.3529 -28.9524,83.3489 -28.922,83.334 -28.9516,83.3274 -28.9947,83.3232 -29.0516,83.3257 -29.0739,83.328 -29.1299,83.3384 -29.1514,83.3468 -29.1397,83.3554 -29.1086,83.3639 -29.1273,83.3707 -29.1485,83.3747 -29.3089,83.3864 -29.5916,83.4122 -29.6885,83.42 -29.7485,83.4235 -30.1051,83.441 -30.2217,83.4454 -30.2779,83.447 -30.3321,83.4472 -30.4861,83.4449 -30.5251,83.4428 -30.5662,83.4375 -30.5803,83.4325 -30.5968,83.4281 -30.6395,83.4237 -30.7322,83.4181 -30.8345,83.4144 -31.0408,83.4124 -31.148,83.4144 -31.3209,83.4201 -31.3735,83.4237 -31.5382,83.4363 -31.5851,83.4407 -31.7562,83.4411 -31.8447,83.4361 -32.0476,83.4231 -32.0704,83.42 -32.1125,83.4155 -32.1598,83.4132 -32.1829,83.4154 -32.1838,83.4344 -32.1575,83.4415 -32.1124,83.4447 -32.0898,83.4514 -32.1162,83.4566 -32.1779,83.4595 -32.4039,83.467 -32.4604,83.4681 -32.7883,83.4649 -33.0255,83.4613 -33.3151,83.4554 -33.566,83.4488 -33.6617,83.4446 -33.7764,83.4373 -33.8201,83.4336 -33.905,83.4245 -33.9462,83.4154 -33.9576,83.4092 -33.9536,83.3962 -33.9117,83.3801 -33.8907,83.3744 -33.8177,83.3596 -33.693,83.347 -33.6617,83.3421 -33.6385,83.337 -33.6248,83.329 -33.6382,83.3211 -33.663,83.3144 -33.7148,83.3028 -33.7366,83.2997 -33.7605,83.2985 -33.7945,83.3014 -34.0712,83.3675 -34.1581,83.3941 -34.1737,83.3998 -34.1814,83.4114 -34.1825,83.4288 -34.2014,83.4381 -34.2176,83.4403 -34.2394,83.4417 -34.2856,83.4388 -34.3154,83.4323 -34.3307,83.4254 -34.3322,83.4122 -34.3367,83.3965 -34.3586,83.387 -34.3872,83.3853 -34.4163,83.3876 -34.4474,83.3949 -34.4581,83.4103 -34.5102,83.4345 -34.524,83.4386 -34.5564,83.4436 -34.5999,83.4463 -34.643,83.4455 -34.6866,83.4419 -34.7245,83.4363 -34.7594,83.4301 -34.7753,83.4248 -34.7858,83.4196 -34.8077,83.4149 -34.8448,83.4094 -35.072,83.3802 -35.1065,83.3799 -35.2308,83.3853 -35.3446,83.3931 -35.404,83.3932 -35.5485,83.389 -35.656,83.389 -35.7155,83.3905 -35.8382,83.3976 -35.9514,83.3992 -36.1578,83.3961 -36.3986,83.3892 -36.5388,83.3821 -36.5962,83.3763 -36.632,83.3709 -36.6647,83.3644 -36.7674,83.3383 -36.7559,83.3321 -36.5919,83.3098 -36.479,83.2969 -36.4428,83.272 -36.5232,83.2665 -36.5487,83.2635 -36.5605,83.259 -36.4531,83.2342 -36.4199,83.2294 -36.3131,83.2209 -36.2858,83.2181 -36.2688,83.2126 -36.2913,83.2086 -36.3069,83.2079 -36.3544,83.2093 -36.397,83.2115 -36.5155,83.2234 -36.5787,83.2335 -36.6133,83.2461 -36.6186,83.256 -36.6419,83.2664 -36.6925,83.2763 -36.7091,83.2787 -36.739,83.281 -36.7819,83.2831 -36.9057,83.2878 -37.0755,83.2958 -37.1171,83.3002 -37.1534,83.3058 -37.2768,83.3274 -37.3534,83.3375 -37.393,83.3428 -37.4316,83.3462 -37.4895,83.3498 -37.5461,83.3502 -37.7727,83.337 -37.8132,83.3335 -37.9214,83.2778 -37.9103,83.2723 -37.8637,83.2624 -37.7382,83.2497 -37.7046,83.2454 -37.6528,83.2353 -37.6067,83.2157 -37.6351,83.2096 -37.6602,83.2061 -37.7065,83.2042 -37.76,83.2068 -37.7939,83.2115 -37.9211,83.2301 -37.9349,83.2365 -37.9847,83.2422 -38.4563,83.2686 -38.6592,83.2796 -38.7037,83.2798 -38.7163,83.278 -38.7264,83.2732 -38.6829,83.1896 -38.7118,83.1088 -38.7162,83.0975 -38.5711,83.0587 -38.54,83.0537 -38.5019,83.0504 -38.4569,83.0475 -38.4072,83.0456 -38.3788,83.0449 -38.0051,83.0453 -37.8566,83.0503 -37.8086,83.0463 -37.6641,83.0267 -37.492,83.0192 -37.4796,83.0009 -37.459,82.9997 -37.3963,82.9967 -37.2375,82.9925 -37.0926,82.9932 -36.9997,82.9948 -36.7788,83.0038 -36.7534,82.9964 -36.7778,82.9925 -36.8124,82.99 -36.8949,82.9861 -37.0223,82.9802 -37.0723,82.9787 -37.2007,82.9761 -37.5025,82.9711 -37.6927,82.9715 -37.8678,82.9676 -38.0075,82.9628 -38.2295,82.9522 -38.2928,82.9479 -38.5167,82.9277 -38.6317,82.9137 -38.6598,82.9059 -38.6406,82.8989 -38.6214,82.896 -38.5816,82.8919 -38.5372,82.8888 -38.4077,82.8855 -38.2056,82.883 -38.1534,82.8825 -37.9745,82.8849 -37.6712,82.8946 -37.6262,82.8953 -37.5882,82.8939 -37.1636,82.8634 -37.1385,82.8552 -37.1603,82.8544 -37.1849,82.8541 -37.336,82.8643 -37.4415,82.8724 -37.4852,82.8756 -37.5817,82.8789 -37.6753,82.8764 -37.954,82.8634 -38.1437,82.864 -38.3749,82.8624 -38.5142,82.8566 -38.5537,82.856 -38.7237,82.8607 -38.7764,82.8612 -38.8693,82.8587 -38.9352,82.8514 -38.9601,82.8478 -38.9799,82.8437 -39.0089,82.8297 -38.9987,82.8219 -38.8868,82.7966 -38.8672,82.7938 -38.8166,82.7911 -38.7771,82.7868 -38.6723,82.7635 -38.6463,82.7481 -38.6433,82.7263 -38.6481,82.7123 -38.6405,82.7025 -38.6262,82.691 -38.6156,82.6851 -38.5983,82.6799 -38.5609,82.6734 -38.515,82.6696 -38.4804,82.6695 -38.4543,82.6705 -38.4004,82.6743 -38.4007,82.6513 -38.4152,82.6052 -38.4394,82.5966 -38.475,82.5961 -38.5052,82.6002 -38.5158,82.6065 -38.5199,82.6298 -38.5344,82.6342 -38.551,82.638 -38.6134,82.6458 -38.6975,82.6536 -38.7265,82.6573 -38.7689,82.6674 -38.8156,82.6817 -38.8624,82.703 -38.8847,82.7174 -38.8969,82.7318 -39.3075,82.8083 -39.3412,82.8104 -39.5341,82.8135 -39.7027,82.8093 -39.9283,82.8056 -40.3341,82.8138 -40.4101,82.8179 -40.4575,82.8217 -40.5099,82.8275 -40.5382,82.8319 -40.5597,82.8362 -40.576,82.8408 -40.5966,82.8472 -40.6089,82.8532 -40.6281,82.8583 -40.6608,82.8669 -40.6871,82.872 -40.7749,82.886 -40.8959,82.9029 -40.9316,82.9066 -41.0776,82.9252 -41.1027,82.9306 -41.1177,82.9357 -41.1317,82.9436 -41.1702,82.9537 -41.3062,82.9684 -41.388,82.9766 -41.4214,82.9794 -41.4783,82.9825 -41.539,82.9825 -41.5759,82.9782 -41.6023,82.9717 -41.6551,82.9537 -41.6703,82.9511 -41.7704,82.9386 -41.7121,82.9767 -41.6671,82.988 -41.6356,82.9945 -41.6088,83.0012 -41.5733,83.0114 -41.5598,83.0208 -41.5716,83.0297 -41.5831,83.0337 -41.6042,83.0388 -41.8271,83.0697 -41.9271,83.0766 -42.1043,83.0824 -42.2026,83.0824 -42.2499,83.0807 -42.2935,83.0802 -42.3224,83.0829 -42.3332,83.0852 -42.3903,83.1009 -42.4158,83.1094 -42.46,83.1166 -42.4982,83.1201 -42.5421,83.1222 -42.5947,83.1229 -42.7996,83.1218 -42.9018,83.1199 -43.0005,83.1171 -43.059,83.1138 -43.0881,83.11 -43.1692,83.0834 -43.138,83.0793 -43.0818,83.0777 -42.9308,83.0797 -42.7371,83.0565 -42.7773,83.0513 -42.8191,83.0491 -42.8729,83.0492 -42.9346,83.051 -43.1679,83.0577 -43.4239,83.0633 -43.5269,83.063 -43.6135,83.0599 -43.8117,83.0508 -43.7835,83.0413 -43.6194,83.0289 -43.4218,83.0135 -43.3337,83.0108 -43.2399,83.0124 -43.1788,83.0108 -43.1391,83.0077 -42.8446,82.9744 -42.7025,82.9456 -42.7203,82.9422 -42.7454,82.9418 -42.7842,82.9449 -42.8201,82.949 -42.8641,82.9565 -42.8879,82.961 -43.0146,82.9775 -43.072,82.9822 -43.1079,82.9845 -43.2515,82.9866 -43.4268,82.9836 -43.4553,82.9818 -43.495,82.9737 -43.5073,82.9648 -43.5323,82.964 -43.5989,82.9679 -43.6354,82.9723 -43.697,82.9803 -43.7383,82.9847 -43.8202,82.9918 -43.9886,83.0045 -44.107,83.0117 -44.4979,83.0146 -44.5513,83.0125 -44.5855,82.9986 -44.549,82.9879 -44.5206,82.9579 -44.5467,82.9535 -44.604,82.9565 -44.6573,82.9613 -44.8182,82.9819 -44.8671,82.9907 -44.9169,83.0013 -45.0566,82.983 -45.0874,82.978 -45.1189,82.9747 -45.1706,82.9763 -45.1812,82.9764 -45.203,82.9774 -45.216,82.9822 -45.2347,82.9899 -45.2235,82.9998 -45.2493,83.0009 -45.3197,82.9915 -45.3378,82.9864 -45.359,82.97 -45.3207,82.9522 -45.0384,82.9045 -44.9719,82.884 -44.944,82.8787 -44.9239,82.8752 -44.711,82.8505 -44.5871,82.8399 -44.4943,82.8329 -44.323,82.818 -44.2002,82.8073 -44.0563,82.7911 -43.9553,82.7812 -43.8288,82.7719 -43.7695,82.7701 -43.7242,82.7698 -43.533,82.7704 -43.5017,82.7709 -43.4258,82.7757 -43.3807,82.7776 -43.2725,82.7768 -43.2412,82.7759 -43.2237,82.7737 -43.2335,82.7654 -43.2787,82.7638 -43.4387,82.7622 -43.6033,82.7609 -43.695,82.7608 -43.8342,82.7629 -43.9571,82.7687 -44.3644,82.7901 -44.425,82.7957 -44.4976,82.8084 -44.5547,82.8134 -44.5969,82.8148 -44.6282,82.8141 -44.7459,82.7963 -44.8451,82.7817 -44.8725,82.7801 -44.923,82.7806 -44.9511,82.7872 -44.9402,82.7971 -44.92,82.8137 -44.9278,82.8213 -44.9615,82.8287 -45.0166,82.8372 -45.0527,82.8411 -45.2299,82.8564 -45.3131,82.8632 -45.486,82.883 -45.5458,82.8919 -45.6672,82.9125 -45.7446,82.9288 -45.7752,82.9331 -45.7936,82.9355 -45.8191,82.9368 -45.8694,82.9379 -45.9199,82.9299 -45.9115,82.9173 -45.9722,82.9111 -46.1444,82.9121 -46.2305,82.9099 -46.265,82.9078 -46.3023,82.904 -46.3316,82.8984 -46.521,82.8627 -46.536,82.8531 -46.5159,82.8467 -46.4733,82.8423 -46.4211,82.8398 -46.3121,82.8398 -46.1879,82.8366 -46.0999,82.8294 -46.0632,82.8258 -46.0374,82.8219 -46.0177,82.8176 -45.9058,82.7935 -45.8871,82.7897 -45.8728,82.7855 -45.824,82.7683 -45.8471,82.7644 -45.8975,82.7649 -45.9513,82.7685 -46.0033,82.7762 -46.0262,82.7812 -46.0547,82.786 -46.1704,82.8033 -46.2509,82.8108 -46.3013,82.8138 -46.6433,82.8173 -46.6885,82.8175 -46.7234,82.8131 -46.681,82.8023 -46.5481,82.7823 -46.3915,82.7458 -46.3731,82.7373 -46.2572,82.723 -46.221,82.7191 -45.9336,82.701 -45.8838,82.6978 -45.8315,82.6961 -45.772,82.6946 -45.6721,82.6941 -45.525,82.6966 -45.2198,82.7013 -44.9557,82.7002 -44.853,82.7004 -44.8047,82.7016 -44.7642,82.7043 -44.7306,82.7085 -44.7102,82.7184 -44.8414,82.7407 -44.8537,82.7427 -44.8987,82.7572 -44.8414,82.7574 -44.8299,82.7574 -44.7804,82.7542 -44.7502,82.7503 -44.6977,82.7412 -44.6829,82.7378 -44.641,82.722 -44.6077,82.7124 -44.5806,82.7072 -44.5154,82.7014 -44.4762,82.7001 -44.3373,82.6973 -44.1945,82.6974 -43.9842,82.6951 -43.6464,82.6889 -43.4234,82.6937 -43.2308,82.6975 -42.8226,82.702 -42.518,82.7061 -42.3201,82.7007 -42.2323,82.701 -42.0996,82.7034 -42.0429,82.7032 -41.9313,82.6999 -41.6037,82.6831 -41.4576,82.6739 -41.1312,82.6474 -41.0493,82.6403 -40.9762,82.6317 -40.8756,82.6248 -40.5809,82.593 -40.5277,82.584 -40.5153,82.5804 -40.5033,82.5751 -40.4937,82.5686 -40.4593,82.5648 -40.3817,82.5644 -40.2865,82.5713 -40.2021,82.5742 -40.0981,82.5728 -39.995,82.5671 -39.9661,82.5634 -39.8769,82.5495 -39.82,82.5403 -39.7949,82.5352 -39.7656,82.5246 -39.7292,82.4801 -39.7338,82.465 -39.7466,82.459 -39.7696,82.455 -39.817,82.4451 -39.8284,82.4414 -39.8524,82.4316 -39.8678,82.4229 -39.8729,82.4138 -39.7363,82.3242 -39.6339,82.2644 -39.6162,82.2566 -39.6195,82.2455 -39.6277,82.2335 -39.637,82.2268 -39.6575,82.2201 -39.6766,82.2174 -39.7153,82.2172 -39.7751,82.221 -39.7934,82.2241 -39.9398,82.2767 -39.9493,82.2868 -39.9512,82.299 -39.9411,82.3077 -39.921,82.3185 -40.0635,82.4142 -40.0953,82.4185 -40.1341,82.4206 -40.2367,82.4218 -40.3466,82.4207 -40.4326,82.4222 -40.4649,82.4244 -40.5017,82.4291 -40.5189,82.4329 -40.542,82.4442 -40.5532,82.4497 -40.5901,82.4602 -40.6916,82.4796 -40.8152,82.5026 -41.0982,82.5531 -41.1827,82.5673 -41.235,82.5746 -41.3112,82.5819 -41.4049,82.5889 -41.5558,82.5977 -41.6084,82.5997 -41.6421,82.5996 -41.6732,82.5989 -41.7037,82.5958 -41.7315,82.592 -41.7525,82.5827 -41.7413,82.5748 -41.7265,82.5697 -41.6006,82.5362 -41.5046,82.5104 -41.4731,82.4995 -41.4639,82.495 -41.4119,82.3942 -41.413,82.382 -41.4284,82.3523 -41.4422,82.3394 -41.4659,82.335 -41.4994,82.333 -41.5384,82.3327 -41.5742,82.3357 -41.6025,82.3433 -41.7062,82.3939 -41.6606,82.4581 -41.6629,82.4759 -41.6841,82.4985 -41.7009,82.5084 -41.7205,82.5137 -41.7463,82.5182 -41.8063,82.5254 -41.9191,82.5354 -41.9488,82.5391 -41.9753,82.5435 -41.9952,82.5488 -42.0202,82.5631 -42.0124,82.5707 -41.9893,82.5794 -41.9734,82.5848 -41.9455,82.5911 -41.9125,82.5968 -41.9033,82.6021 -41.9231,82.6068 -41.942,82.6101 -41.995,82.614 -42.0565,82.6168 -42.3821,82.6305 -42.4227,82.6324 -42.5389,82.6336 -42.7642,82.6282 -42.8203,82.6285 -42.9173,82.6304 -43.0062,82.6335 -43.1973,82.6342 -43.4837,82.633 -43.5758,82.6303 -43.6962,82.6253 -43.8757,82.6187 -44.0096,82.6149 -44.0611,82.6145 -44.29,82.6203 -44.4536,82.6222 -44.6703,82.6234 -44.7666,82.6254 -44.844,82.6286 -45.0635,82.633 -45.448,82.6341 -45.5289,82.6308 -45.5649,82.6271 -45.588,82.6243 -45.6031,82.6143 -45.5254,82.5832 -45.5099,82.5776 -45.4258,82.5631 -45.2799,82.5418 -45.2452,82.5377 -45.1938,82.5357 -45.142,82.5317 -44.9763,82.5102 -44.9485,82.5057 -44.9265,82.5008 -44.9117,82.4952 -44.8951,82.4831 -44.8544,82.4677 -44.8261,82.463 -44.6746,82.4409 -44.6075,82.4322 -44.5654,82.429 -44.4697,82.4161 -44.4425,82.4116 -44.4214,82.4066 -44.2969,82.3597 -44.1526,82.3317 -43.9729,82.3113 -43.6384,82.2707 -43.6058,82.2665 -43.5777,82.2594 -43.5947,82.2509 -43.6142,82.2479 -43.6362,82.2451 -43.6748,82.2425 -43.7085,82.2377 -43.7321,82.2301 -43.7163,82.2043 -43.6994,82.1966 -43.6795,82.1917 -43.5658,82.177 -43.4429,82.1661 -43.2914,82.1516 -43.1534,82.1365 -43.0544,82.1358 -42.9712,82.1391 -42.8815,82.1408 -42.8337,82.1408 -42.792,82.1401 -42.6802,82.1362 -42.6039,82.1302 -42.5658,82.1265 -42.2477,82.0928 -42.1929,82.083 -42.1728,82.0785 -42.156,82.0716 -42.1847,82.0699 -42.2368,82.0724 -42.3269,82.0743 -42.419,82.0735 -42.4794,82.0707 -42.5354,82.0901 -42.5666,82.0988 -42.5924,82.1016 -42.7005,82.107 -42.7511,82.1079 -42.8433,82.1068 -42.885,82.1055 -42.9327,82.1055 -43.1237,82.1073 -43.1653,82.1078 -43.2095,82.109 -43.2768,82.1119 -43.3934,82.1185 -43.7248,82.1437 -43.7831,82.1525 -43.8545,82.1606 -43.9288,82.1654 -43.9771,82.1675 -44.0387,82.1684 -44.1152,82.1675 -44.1981,82.1639 -44.2742,82.1585 -44.3374,82.1519 -44.4307,82.1388 -44.465,82.1329 -44.5139,82.1228 -44.5552,82.1091 -44.6402,82.0455 -44.4676,81.9922 -44.4124,81.9776 -44.3653,81.9685 -44.3511,81.9473 -44.4662,81.921 -44.5172,81.912 -44.584,81.9047 -44.6209,81.902 -44.7016,81.9027 -44.7448,81.9013 -44.7814,81.8916 -44.7696,81.8466 -44.7344,81.8402 -44.6048,81.8323 -44.4271,81.8294 -44.3868,81.8294 -44.3439,81.8281 -44.3151,81.8216 -44.3334,81.8052 -44.3477,81.7988 -44.3721,81.797 -44.4596,81.7987 -44.5153,81.8007 -44.546,81.801 -44.5722,81.794 -44.4572,81.7533 -44.438,81.7481 -44.3949,81.745 -44.2622,81.7453 -44.2363,81.7436 -44.0811,81.702 -44.0513,81.6969 -44.0857,81.691 -44.1124,81.6877 -44.3003,81.6522 -44.4902,81.6146 -44.5324,81.6157 -44.5444,81.6168 -44.5818,81.6227 -44.629,81.6333 -44.6719,81.6365 -44.7112,81.6367 -44.8331,81.6328 -44.8486,81.633 -44.8816,81.6333 -44.9394,81.6364 -44.9825,81.6418 -45.1869,81.6897 -45.203,81.7037 -45.2112,81.7118 -45.2215,81.7164 -45.2515,81.7261 -45.3868,81.7556 -45.4396,81.764 -45.5922,81.7878 -45.6303,81.7916 -45.7089,81.7972 -45.8888,81.8113 -45.8272,81.8189 -45.7953,81.8256 -45.8172,81.8751 -45.8442,81.8831 -45.9731,81.91 -46.0206,81.9194 -46.1481,81.9424 -46.2347,81.9554 -46.2996,81.9614 -46.3448,81.9644 -46.4501,81.9685 -46.64,81.9784 -46.7185,81.9859 -46.7756,81.9935 -46.8508,82.0051 -46.884,82.0093 -46.9634,82.016 -47.032,82.0203 -47.1814,82.0285 -47.2298,82.0301 -47.3083,82.0291 -47.3981,82.057 -47.4001,82.0685 -47.4234,82.0758 -47.4667,82.0855 -47.5173,82.0947 -47.6985,82.126 -47.7775,82.1396 -47.8699,82.1487 -47.9748,82.1572 -48.0179,82.159 -48.1253,82.1606 -48.1624,82.1631 -48.2241,82.1688 -48.4502,82.1912 -48.5436,82.2071 -48.5959,82.2166 -48.6548,82.2371 -48.6813,82.2552 -48.697,82.2674 -48.7077,82.2732 -48.7251,82.2788 -48.7705,82.2889 -48.8196,82.2974 -48.9508,82.3165 -49.0217,82.3247 -49.1368,82.3349 -49.4384,82.3575 -49.5796,82.366 -49.6346,82.368 -49.6918,82.3691 -49.8286,82.3663 -50.0267,82.3689 -50.0817,82.3709 -50.1433,82.3727 -50.1964,82.3724 -50.3229,82.3663 -50.4125,82.3631 -50.6247,82.3629 -50.8633,82.3592 -50.907,82.3579 -50.932,82.3558 -50.9404,82.3457 -50.8768,82.2879 -50.839,82.2706 -50.8253,82.2653 -50.8069,82.2603 -50.7435,82.246 -50.7066,82.2358 -50.6891,82.2296 -50.6695,82.2184 -50.6466,82.1983 -50.6261,82.1694 -50.6163,82.155 -50.6161,82.1445 -50.6133,82.1322 -50.6002,82.1056 -50.5845,82.088 -50.5599,82.061 -50.5384,82.0454 -50.5218,82.0394 -50.5037,82.0342 -50.2698,81.9828 -50.1543,81.9583 -50.0436,81.9341 -50.0092,81.9238 -49.9842,81.9131 -49.9616,81.9018 -49.944,81.8963 -49.7775,81.8709 -49.644,81.8505 -49.5247,81.8339 -49.3946,81.8181 -49.3669,81.8136 -49.3443,81.8091 -49.2678,81.7879 -49.4033,81.7548 -49.5289,81.74 -49.5861,81.7347 -49.6524,81.7296 -49.6993,81.7309 -49.7388,81.7346 -49.8286,81.7467 -49.8672,81.7506 -49.9756,81.7607 -50.0256,81.7633 -50.2783,81.7692 -50.5114,81.7745 -50.5914,81.7811 -50.6486,81.7897 -50.6719,81.7943 -50.7159,81.8016 -50.7898,81.8093 -50.8323,81.8104 -50.8589,81.8088 -50.8835,81.8052 -50.8936,81.7942 -50.8738,81.7797 -50.8623,81.7737 -50.7461,81.7329 -50.7231,81.7279 -50.6492,81.7211 -50.5114,81.7149 -50.4764,81.7118 -50.4528,81.7062 -50.4649,81.6955 -50.4699,81.6867 -50.4454,81.6745 -50.4105,81.661 -50.3854,81.6516 -50.3674,81.6466 -50.3224,81.6371 -50.2944,81.633 -50.1383,81.6202 -49.9582,81.6041 -49.8916,81.5966 -49.843,81.5902 -49.8091,81.5836 -49.7511,81.5701 -49.7348,81.565 -49.7244,81.5574 -49.7319,81.5421 -49.7294,81.532 -49.7134,81.5236 -49.6862,81.5193 -49.6335,81.5127 -49.5894,81.5101 -49.5401,81.5077 -49.498,81.5072 -49.4537,81.5013 -49.6565,81.4739 -49.6983,81.4713 -49.7371,81.4709 -49.7859,81.4731 -50.0086,81.4975 -50.0305,81.5024 -50.0457,81.5154 -50.0455,81.5258 -50.0459,81.5387 -50.0548,81.5529 -50.0749,81.5661 -50.1119,81.5808 -50.1563,81.5904 -50.1893,81.5942 -50.2283,81.5973 -50.3233,81.6021 -50.3535,81.6045 -50.387,81.6077 -50.5434,81.6348 -50.5906,81.6431 -50.6306,81.6636 -50.6475,81.6686 -50.8464,81.702 -50.9884,81.7159 -51.0503,81.7245 -51.0738,81.7293 -51.1499,81.7454 -51.2918,81.7642 -51.4059,81.7671 -51.5088,81.7712 -51.7348,81.7831 -51.8254,81.7925 -52.1521,81.8316 -52.2419,81.8434 -52.2889,81.8536 -52.3682,81.8661 -52.5833,81.89 -52.6252,81.8924 -52.6736,81.8935 -52.7194,81.8925 -52.7565,81.8902 -52.7841,81.8876 -52.8098,81.8826 -52.831,81.877 -52.8479,81.8702 -52.8365,81.8541 -52.8212,81.8461 -52.781,81.8288 -52.7735,81.8224 -52.7607,81.7988 -52.7504,81.7595 -52.7523,81.7225 -52.7602,81.716 -52.7862,81.7009 -52.8127,81.6899 -52.8871,81.6612 -52.9263,81.6474 -52.9479,81.6403 -53.016,81.631 -53.0426,81.6281 -53.072,81.6233 -53.1162,81.6136 -53.1286,81.6103 -53.1633,81.6001 -53.3614,81.5369 -53.3685,81.5295 -53.3677,81.5071 -53.3407,81.3793 -53.2952,81.3641 -53.3534,81.3666 -53.4274,81.3717 -53.4562,81.3755 -53.4796,81.3803 -53.5669,81.4002 -53.6203,81.4176 -53.6287,81.4283 -53.6412,81.5564 -53.5916,81.5971 -53.5791,81.6053 -53.5569,81.6174 -53.541,81.6243 -53.4864,81.6401 -53.4617,81.6457 -53.4484,81.6495 -53.4184,81.6601 -53.4017,81.6671 -53.3838,81.6845 -53.3652,81.7073 -53.3276,81.7531 -53.32,81.7653 -53.317,81.7772 -53.319,81.8036 -53.3704,81.9658 -53.3772,81.9737 -53.3859,81.9797 -53.6212,82.0716 -53.6612,82.0867 -53.8897,82.1713 -53.9341,82.1785 -54.1929,82.2122 -54.2247,82.2162 -54.2626,82.2198 -54.3177,82.221 -54.3955,82.2151 -54.544,82.2051 -54.7353,82.1925 -54.9406,82.1803 -55.3546,82.1443 -55.3872,82.1416 -55.4068,82.138 -55.3657,82.1311 -55.1653,82.1395 -55.1105,82.138 -55.0971,82.1355 -55.0807,82.1314 -55.012,82.1105 -55.0014,82.1057 -54.9748,82.0895 -54.9097,82.043 -54.8998,82.0313 -54.9084,82.0156 -54.9252,82.0137 -54.9494,82.0149 -55.1147,82.0502 -55.1333,82.058 -55.147,82.0774 -55.1353,82.0852 -55.0665,82.083 -55.0457,82.084 -55.0473,82.0934 -55.0683,82.0986 -55.0816,82.1007 -55.1602,82.1034 -55.2561,82.0977 -55.303,82.0966 -55.3634,82.0962 -55.4371,82.0991 -55.5038,82.1041 -55.5799,82.1101 -55.6422,82.1183 -55.6564,82.1225 -55.671,82.1237 -55.7109,82.1243 -55.8583,82.1174 -55.8959,82.1146 -55.9201,82.1096 -55.9374,82.0796 -55.9922,82.0436 -56.0708,82.021 -56.0944,82.0162 -56.1171,82.0198 -56.1331,82.0254 -56.1461,82.035 -56.1693,82.0585 -56.2312,82.0773 -56.2486,82.0818 -56.2666,82.0846 -56.3155,82.087 -56.3927,82.0843 -56.4947,82.0752 -56.628,82.0638 -56.8083,82.0494 -56.8819,82.0437 -57.0635,82.0332 -57.1463,82.0286 -57.3129,82.0257 -57.5219,82.0188 -57.6706,82.011 -58.1041,81.9796 -58.1349,81.977 -58.1469,81.9729 -58.2376,81.9581 -58.4388,81.9514 -58.7627,81.9192 -59.0237,81.8903 -59.0899,81.8828 -59.1724,81.8715 -59.2443,81.86 -59.2643,81.8511 -59.241,81.8404 -59.2088,81.8353 -59.0725,81.8211 -58.9681,81.8125 -58.8438,81.8068 -58.806,81.8035 -58.736,81.7963 -58.5783,81.7787 -58.3457,81.7445 -58.3014,81.7362 -58.2842,81.7312 -58.2718,81.7262 -58.2544,81.7114 -58.259,81.7007 -58.1638,81.6235 -58.1408,81.6111 -58.0468,81.5769 -57.9327,81.5383 -57.8558,81.5218 -57.805,81.5204 -57.6204,81.5134 -57.5573,81.5077 -57.536,81.5034 -57.5155,81.4981 -57.4087,81.4688 -57.1687,81.4206 -57.0215,81.394 -56.9962,81.3889 -56.983,81.3799 -56.9957,81.3659 -56.896,81.3055 -56.8763,81.3002 -56.8313,81.2907 -56.7924,81.2869 -56.6599,81.2785 -56.4968,81.269 -56.4662,81.2664 -56.4363,81.2629 -56.3873,81.2541 -56.3677,81.2487 -56.2651,81.2026 -56.2916,81.1962 -56.3333,81.1945 -56.3724,81.1972 -56.4018,81.2016 -56.421,81.2067 -56.5095,81.2405 -56.5249,81.2457 -56.5492,81.2498 -56.6974,81.2622 -56.9209,81.2784 -56.9555,81.2816 -57.0155,81.2892 -57.0555,81.2991 -57.0712,81.3047 -57.087,81.3171 -57.0736,81.3244 -57.0283,81.3241 -56.9954,81.325 -56.9871,81.3318 -57.0278,81.3416 -57.1549,81.3704 -57.2059,81.3786 -57.2935,81.3875 -57.3108,81.3899 -57.3317,81.3939 -57.3478,81.399 -57.3425,81.4171 -57.4317,81.4427 -57.4525,81.4479 -57.4882,81.4508 -57.5343,81.4515 -57.5771,81.4497 -57.6242,81.4489 -57.6754,81.4485 -57.7251,81.4517 -58.2351,81.5028 -58.3765,81.5228 -58.4461,81.5363 -58.4679,81.5416 -58.5113,81.5515 -58.5275,81.5568 -58.5397,81.5631 -58.5513,81.5694 -58.5621,81.5834 -58.5646,81.5942 -58.551,81.6053 -58.5449,81.6453 -58.5716,81.686 -58.5785,81.6927 -58.6024,81.705 -58.6194,81.7107 -58.6414,81.7155 -58.7009,81.7242 -58.7605,81.7314 -58.8402,81.7375 -58.9253,81.7414 -59.1111,81.7478 -59.3075,81.7521 -59.3551,81.7536 -59.4029,81.7558 -59.4407,81.759 -59.6279,81.7793 -59.7778,81.7993 -59.8161,81.8019 -59.8591,81.8037 -59.8885,81.8025 -59.9628,81.7968 -60.1261,81.7804 -60.2684,81.7697 -60.4003,81.7617 -60.4935,81.7526 -60.6016,81.7392 -60.6606,81.7315 -60.7145,81.722 -60.9053,81.6916 -61.0121,81.6781 -61.0604,81.6699 -61.1528,81.6491 -61.1964,81.6389 -61.2362,81.6205 -61.2459,81.6133 -61.2472,81.5973 -61.1657,81.5499 -61.1522,81.5438 -60.9885,81.4887 -60.8279,81.4267 -60.7113,81.3985 -60.6524,81.3901 -60.6299,81.386 -60.6074,81.3815 -60.5902,81.3758 -60.577,81.3696 -60.5669,81.3592 -60.5766,81.3404 -60.5918,81.3316 -60.6204,81.3223 -60.6492,81.3148 -60.6915,81.3056 -60.762,81.2918 -60.7899,81.2874 -60.8643,81.2741 -61.018,81.2425 -61.1086,81.2167 -60.894,81.0886 -60.8812,81.0826 -60.8389,81.0633 -60.8262,81.0584 -60.7522,81.0457 -60.709,81.0358 -60.692,81.0304 -60.7658,81.0076 -60.8565,80.9847 -60.875,80.9808 -60.9015,80.9795 -61.0198,80.9866 -61.0506,80.9861 -61.294,80.9686 -61.3163,80.9654 -61.3237,80.9574 -61.3065,80.9438 -61.3008,80.9354 -61.3139,80.9337 -61.3494,80.9334 -61.4103,80.94 -61.6414,80.9831 -61.7827,81.0137 -61.933,81.0464 -62.0086,81.0599 -62.0665,81.0666 -62.1113,81.0678 -62.1555,81.0665 -62.2311,81.0614 -62.2578,81.0614 -62.4939,81.0661 -62.5298,81.0674 -62.5523,81.0725 -62.566,81.0781 -62.5776,81.0835 -62.5983,81.0883 -62.6254,81.0917 -62.7675,81.0878 -62.8298,81.0837 -62.8559,81.0808 -63.0002,81.0578 -63.087,81.0414 -63.1472,81.0285 -63.1632,81.0172 -63.1551,80.9924 -63.1244,80.9312 -63.0282,80.8434 -62.9927,80.8217 -62.9701,80.8106 -62.767,80.7277 -62.652,80.6836 -62.5725,80.6544 -62.5471,80.6499 -62.5359,80.6431 -62.5459,80.6337 -62.5623,80.6235 -62.5783,80.619 -62.5917,80.619 -62.753,80.6676 -62.78,80.682 -62.7982,80.6935 -63.0096,80.7846 -63.0868,80.8109 -63.1007,80.8171 -63.1931,80.8879 -63.2168,80.9154 -63.2172,80.9352 -63.2336,80.9575 -63.2638,80.9811 -63.2779,80.9872 -63.3102,80.9958 -63.3655,81.0099 -63.4059,81.0115 -63.4364,81.011 -63.4719,81.0089 -63.4976,81.0043 -63.6031,80.9806 -63.6197,80.9748 -63.6486,80.963 -63.6717,80.9475 -63.6827,80.9371 -63.6986,80.9285 -63.7187,80.92 -63.7399,80.9166 -63.7657,80.9135 -64.0317,80.8912 -64.0662,80.8896 -64.2191,80.8895 -64.2488,80.886 -64.2667,80.8784 -64.2928,80.8693 -64.3087,80.8658 -64.3382,80.862 -64.3682,80.859 -64.4071,80.8574 -64.5064,80.8565 -64.5496,80.8545 -64.5741,80.8498 -64.5912,80.841 -64.5906,80.8313 -64.574,80.8193 -64.528,80.8101 -64.5137,80.8052 -64.4987,80.7991 -64.5238,80.7795 -64.5393,80.7739 -64.5645,80.7718 -64.5943,80.7706 -64.6801,80.7693 -64.7228,80.7679 -64.7815,80.7618 -64.8242,80.7483 -64.81,80.7294 -64.7774,80.7146 -64.7762,80.7043 -64.8527,80.662 -64.864,80.6578 -64.8992,80.6488 -64.9391,80.64 -64.9637,80.636 -64.9878,80.6328 -65.0211,80.6301 -65.1139,80.6276 -65.1914,80.6195 -65.4341,80.5874 -65.4625,80.5836 -65.486,80.5794 -65.4996,80.5702 -65.4727,80.5557 -65.4411,80.5498 -65.3631,80.5437 -65.2962,80.533 -65.345,80.5297 -65.4209,80.5304 -65.4983,80.5337 -65.6558,80.5379 -65.6981,80.5394 -65.7276,80.5394 -65.7736,80.5385 -65.8138,80.534 -65.8489,80.5272 -65.8668,80.519 -65.8689,80.5044 -65.8684,80.4933 -65.8976,80.482 -65.9362,80.4752 -66.025,80.4679 -66.0887,80.4612 -66.1512,80.4509 -66.185,80.4417 -66.2079,80.4374 -66.2316,80.4345 -66.4159,80.4272 -66.4656,80.4267 -66.5019,80.4242 -66.5399,80.4168 -66.5755,80.4048 -66.579,80.3943 -66.5643,80.3898 -66.5345,80.3883 -66.5121,80.3761 -66.5091,80.3623 -66.5614,80.3327 -66.575,80.327 -66.8269,80.2785 -66.9881,80.2498 -67.148,80.2269 -67.205,80.2194 -67.2194,80.2155 -67.2528,80.2027 -67.2671,80.1948 -67.2842,80.0716 -67.27,80.0625 -67.2178,80.0478 -67.1521,80.0372 -67.1051,80.0317 -67.0348,80.0282 -67.0121,80.0296 -67.0021,80.0342 -66.9819,80.0343 -66.9689,80.0325 -66.9554,80.0285 -66.9167,80.0157 -66.8868,79.9823 -66.8657,79.9453 -66.8531,79.9363 -66.836,79.9338 -66.8122,79.9342 -66.5182,79.9403 -66.3745,79.9465 -66.3141,79.9523 -66.2743,79.9601 -66.2611,79.9653 -66.2441,79.979 -66.1969,79.9802 -65.9546,79.9477 -65.934,79.9412 -65.9114,79.9183 -65.9044,79.9068 -65.894,79.9019 -65.8768,79.8984 -65.8553,79.8947 -65.8303,79.8918 -65.7978,79.8895 -65.6866,79.8869 -65.5927,79.8891 -65.5583,79.8911 -65.5282,79.8946 -65.3399,79.9175 -65.3177,79.9203 -65.2543,79.9303 -65.2181,79.9395 -65.1533,79.9559 -65.0816,79.9761 -65.0614,79.9758 -65.0475,79.9699 -65.0202,79.961 -64.9989,79.9568 -64.9701,79.9536 -64.7589,79.9387 -64.727,79.9376 -64.6956,79.9394 -64.6695,79.9427 -64.628,79.9499 -64.4068,79.964 -64.3586,79.9645 -64.3238,79.9658 -64.3048,79.9688 -64.2673,79.9768 -64.1444,80.0074 -64.1227,80.018 -64.1121,80.0403 -64.0654,80.101 -64.0478,80.1144 -64.0289,80.1198 -64.0012,80.1218 -63.9655,80.1149 -63.9629,80.1029 -63.9877,80.0784 -64.0004,80.0607 -63.9579,80.0319 -63.9413,80.0277 -63.7559,80.0169 -63.7356,80.0162 -63.6961,80.0161 -63.6286,80.0199 -63.583,80.0167 -63.6033,80.0107 -63.6855,80.0036 -63.7211,80.0013 -63.7646,80.0 -63.829,80.0044 -63.8496,80.0074 -63.8819,80.0097 -63.9176,80.0103 -63.9492,80.0089 -63.9728,80.0058 -63.9917,80.0008 -64.0062,79.9957 -64.0812,79.9648 -64.1103,79.9545 -64.1289,79.9497 -64.1703,79.9427 -64.5229,79.9182 -64.8165,79.8992 -64.8429,79.8959 -64.861,79.8847 -64.8443,79.8759 -64.8055,79.8095 -64.8346,79.7752 -64.8688,79.7181 -64.8215,79.6331 -64.7753,79.5504 -64.7224,79.5242 -64.6989,79.5207 -64.6744,79.5148 -64.649,79.5037 -64.6126,79.4805 -64.6081,79.4629 -64.6171,79.4173 -64.6306,79.4033 -64.6462,79.3914 -64.6618,79.38 -64.675,79.3743 -64.7101,79.3642 -64.7529,79.3565 -64.8248,79.3464 -64.8425,79.3412 -64.8558,79.3355 -64.8758,79.3266 -64.9423,79.2787 -64.9305,79.2634 -64.9515,79.2529 -65.0451,79.2305 -65.1466,79.2236 -65.1753,79.2202 -65.1995,79.2158 -65.2171,79.2119 -65.2304,79.2069 -65.3158,79.1492 -65.4367,79.138 -65.4649,79.1345 -65.4785,79.1314 -65.6898,79.0419 -65.6975,79.033 -65.6864,79.0225 -65.7714,78.9844 -65.7877,78.9805 -65.8092,78.9789 -65.8379,78.9786 -65.9078,78.9913 -65.93,78.9925 -65.9696,78.9927 -66.0333,78.9884 -66.1218,79.0112 -66.1366,79.0214 -66.1595,79.0244 -66.3965,79.0265 -66.5222,79.0054 -66.6074,78.9916 -66.768,79.011 -66.8967,79.0143 -67.0063,79.0156 -67.0379,78.9971 -67.123,79.0005 -67.2344,79.0131 -67.2897,79.0156 -67.5044,78.9718 -67.5202,78.967 -67.5288,78.9563 -67.531,78.9459 -67.5109,78.9415 -67.4588,78.9353 -67.4721,78.9293 -67.5117,78.9224 -67.5399,78.9201 -67.6858,78.9373 -67.7803,78.9523 -67.8033,78.9548 -67.8295,78.9562 -67.8212,78.9501 18,-2.0,Greenland -39.4397,83.1942 -39.3295,83.2311 -39.2783,83.244 -39.2559,83.2465 -39.2255,83.2479 -39.0824,83.2436 -39.0326,83.2398 -38.9461,83.2285 -38.9304,83.224 -38.7659,83.14 -38.8905,83.1341 -39.0336,83.1341 -39.0981,83.1372 -39.1749,83.1439 -39.4235,83.1713 -39.4657,83.1833 -39.4397,83.1942 -39.4397,83.1942 62,-2.0,Greenland -38.8099,82.9628 -38.9189,82.9753 -38.9617,82.9788 -39.0728,82.9821 -39.3524,82.9968 -39.4419,83.0048 -39.6836,83.0425 -39.7437,83.0609 -39.782,83.0807 -39.8739,83.0994 -39.9087,83.1039 -39.9407,83.1052 -39.9685,83.1045 -40.0079,83.1022 -40.0558,83.1005 -40.1102,83.1008 -40.3247,83.1033 -40.3895,83.1064 -40.4814,83.1141 -40.5195,83.1201 -40.5276,83.1278 -40.5232,83.1485 -40.5022,83.17 -40.4888,83.1763 -40.4599,83.1848 -40.3631,83.2063 -40.1528,83.1966 -40.1303,83.192 -40.1199,83.1857 -40.1075,83.1798 -40.0873,83.1747 -40.0599,83.1702 -39.9502,83.1562 -39.9078,83.1523 -39.8609,83.1495 -39.7423,83.1441 -39.6227,83.141 -39.5841,83.1376 -39.5515,83.1325 -39.5376,83.1275 -39.5139,83.1162 -39.501,83.1071 -39.486,83.0989 -39.4472,83.0884 -39.4015,83.0782 -39.3482,83.0685 -39.2879,83.0593 -39.2538,83.0547 -39.2125,83.0505 -39.0403,83.0345 -38.939,83.0281 -38.8232,83.0222 -38.7251,83.0205 -38.6936,83.0189 -38.6611,83.0158 -38.5061,82.9671 -38.5254,82.962 -38.702,82.9566 -38.761,82.9577 -38.7983,82.9605 -38.8099,82.9628 -38.8099,82.9628 12,-2.0,Greenland -41.5248,83.1604 -41.348,83.1732 -41.3076,83.1744 -41.2566,83.1708 -41.0835,83.1515 -41.0942,83.1371 -41.1046,83.1329 -41.2418,83.1402 -41.3579,83.1446 -41.4656,83.1495 -41.5248,83.1604 -41.5248,83.1604 15,-2.0,Greenland -42.2645,83.1004 -42.258,83.115 -42.2278,83.1209 -42.1984,83.1226 -42.0129,83.1171 -41.9473,83.1144 -41.8971,83.1109 -41.8097,83.1014 -41.8297,83.097 -41.9472,83.0901 -41.9983,83.0893 -42.2302,83.0931 -42.2556,83.0948 -42.2645,83.1004 -42.2645,83.1004 16,-2.0,Greenland -41.4487,83.064 -41.4543,83.0713 -41.4191,83.0835 -41.3675,83.0882 -41.2758,83.0902 -41.0553,83.0842 -40.991,83.0814 -40.943,83.0772 -40.8708,83.0692 -40.8565,83.062 -40.8906,83.0568 -41.0124,83.055 -41.1679,83.0559 -41.3884,83.0597 -41.4487,83.064 -41.4487,83.064 24,-2.0,Greenland -38.4328,82.9886 -38.4705,82.9948 -38.4914,82.9992 -38.5133,83.0073 -38.5219,83.0135 -38.5,83.0197 -38.4701,83.0212 -38.3685,83.022 -38.1217,83.0232 -38.0785,83.0235 -38.0217,83.0219 -37.9479,83.0184 -37.9003,83.0146 -37.8827,83.0091 -37.8738,83.0013 -37.8935,82.9943 -37.9173,82.991 -38.0243,82.9871 -38.1822,82.9824 -38.2222,82.9819 -38.3241,82.9823 -38.3575,82.9835 -38.4328,82.9886 -38.4328,82.9886 40,-2.0,Greenland -39.7343,82.8291 -39.7474,82.8301 -39.7931,82.8309 -40.041,82.8333 -40.0784,82.8328 -40.3148,82.848 -40.4519,82.8593 -40.4851,82.864 -40.6527,82.8925 -40.9061,82.9285 -40.9334,82.9331 -40.9508,82.9409 -40.9916,82.9607 -41.0317,82.9714 -41.0607,82.9753 -41.1379,82.9838 -41.2637,82.9959 -41.2987,83.0001 -41.3349,83.0109 -41.2685,83.0194 -41.2289,83.0209 -41.1785,83.0213 -40.8547,83.0203 -40.733,83.0163 -40.6912,83.0123 -40.6749,83.0078 -40.6327,82.9924 -40.6241,82.982 -40.6,82.9722 -40.5803,82.967 -40.3876,82.931 -40.3253,82.9222 -40.2786,82.9178 -40.1727,82.9114 -39.9847,82.9031 -39.9437,82.899 -39.7637,82.849 -39.7198,82.8295 -39.7343,82.8291 -39.7343,82.8291 42,-2.0,Greenland -39.4738,82.8446 -39.5625,82.8467 -39.6983,82.862 -39.7245,82.8668 -39.7588,82.8765 -39.7864,82.8863 -39.801,82.8927 -39.8299,82.908 -39.8562,82.9131 -39.8974,82.9166 -39.9526,82.9201 -39.9943,82.9224 -40.1661,82.9287 -40.22,82.9323 -40.2413,82.9373 -40.3823,82.9854 -40.3991,82.9984 -40.3884,83.011 -40.3676,83.0164 -40.3344,83.019 -40.2865,83.0209 -40.1861,83.0197 -40.022,83.0158 -39.9691,83.0134 -39.8863,83.0055 -39.8108,82.997 -39.7841,82.9918 -39.765,82.9869 -39.7226,82.9772 -39.64,82.9692 -39.5057,82.9586 -39.3876,82.9522 -39.2055,82.9448 -39.1651,82.9407 -39.1421,82.933 -39.1894,82.9013 -39.2691,82.8737 -39.3636,82.8545 -39.3904,82.8497 -39.4304,82.8467 -39.4738,82.8446 -39.4738,82.8446 354,-6.0,Canada -91.6483,81.4483 -91.5575,81.417 -91.5318,81.4132 -91.4957,81.4106 -91.4561,81.4099 -91.4129,81.4111 -91.3683,81.4145 -91.3382,81.4192 -91.3149,81.4245 -91.283,81.4371 -91.4186,81.4576 -91.4832,81.4647 -91.5229,81.4719 -91.4411,81.4707 -91.3484,81.4672 -91.1695,81.4505 -91.1392,81.4451 -91.1043,81.4069 -91.1241,81.3986 -91.1534,81.3894 -91.0974,81.3885 -91.0099,81.3962 -90.9332,81.4051 -90.7975,81.3974 -90.7684,81.3993 -90.6853,81.4195 -90.6979,81.4541 -90.6875,81.4777 -90.663,81.4825 -90.6201,81.4868 -90.5746,81.4889 -90.5313,81.4925 -90.5005,81.4975 -90.4683,81.5045 -90.4349,81.5192 -90.4154,81.5277 -90.3754,81.53 -90.3355,81.529 -90.3018,81.5258 -90.2085,81.5187 -90.0528,81.5127 -90.035,81.5235 -90.0532,81.5459 -90.0278,81.557 -89.9944,81.5593 -89.9692,81.5581 -89.9029,81.5471 -89.8103,81.5179 -89.7685,81.4948 -89.6616,81.487 -89.614,81.4897 -89.568,81.4914 -89.499,81.4912 -89.2932,81.4832 -89.3333,81.4662 -89.3751,81.4633 -89.4978,81.4642 -89.575,81.4607 -89.8302,81.4264 -90.0117,81.3933 -90.2395,81.3638 -90.282,81.3598 -90.4692,81.3322 -90.4994,81.3277 -90.5461,81.3043 -90.5105,81.293 -90.4792,81.2884 -90.4459,81.2852 -90.3779,81.2803 -90.3434,81.2793 -90.2171,81.2657 -90.1823,81.259 -90.2216,81.2521 -90.245,81.2443 -90.2013,81.2347 -90.1682,81.2311 -90.1438,81.2298 -90.0719,81.2386 -89.713,81.2798 -89.4125,81.3178 -89.2883,81.3354 -89.251,81.3395 -88.9858,81.3675 -88.8492,81.3852 -88.7765,81.3944 -88.7017,81.4025 -88.6042,81.4101 -88.5539,81.4124 -88.4737,81.4132 -88.3743,81.4125 -88.347,81.4136 -88.2571,81.4207 -88.1522,81.4338 -88.0975,81.4396 -88.0575,81.4415 -88.0121,81.4432 -87.9851,81.4411 -87.6222,81.4145 -87.4597,81.3974 -87.4299,81.3944 -87.3543,81.3897 -87.1982,81.3854 -87.0881,81.3793 -87.0251,81.3755 -86.9973,81.3681 -86.9583,81.3511 -86.9868,81.3484 -87.0211,81.3512 -87.0527,81.3551 -87.1084,81.363 -87.1408,81.3669 -87.1993,81.3711 -87.3878,81.376 -87.5095,81.3778 -87.6011,81.3869 -87.6468,81.3936 -87.667,81.3969 -87.6914,81.3978 -87.737,81.3979 -87.8681,81.3922 -88.077,81.3889 -88.1121,81.3903 -88.2004,81.3895 -88.2506,81.3875 -88.4209,81.3754 -88.5518,81.362 -88.6233,81.3505 -88.7638,81.3184 -88.9469,81.2858 -89.3308,81.2201 -89.406,81.2139 -89.5855,81.2039 -89.6194,81.2003 -89.6514,81.1914 -89.6113,81.1762 -89.5717,81.1698 -89.4789,81.1602 -89.3919,81.1539 -89.1491,81.1248 -89.0413,81.1069 -89.0132,81.1047 -88.9713,81.1087 -88.9048,81.1173 -88.8686,81.1201 -88.6863,81.1224 -88.6533,81.1111 -88.6894,81.1062 -88.7514,81.1071 -88.795,81.1067 -88.8435,81.1032 -88.9876,81.086 -89.0633,81.0789 -89.1531,81.0728 -89.1969,81.0709 -89.2409,81.0707 -89.2786,81.0714 -89.3404,81.0765 -89.3742,81.0826 -89.4508,81.101 -89.5748,81.1066 -89.6767,81.1068 -89.7149,81.106 -89.7469,81.1037 -89.806,81.0945 -89.9805,81.0619 -90.0291,81.0467 -90.0555,81.0322 -90.0416,81.0166 -89.9089,80.9379 -89.8544,80.9204 -89.8011,80.9104 -89.7694,80.9054 -89.718,80.899 -89.5806,80.8822 -89.528,80.8766 -89.4948,80.8756 -89.454,80.8749 -89.3367,80.8752 -89.05,80.886 -88.9642,80.8898 -88.9195,80.8925 -88.7509,80.907 -88.6741,80.9152 -88.5994,80.9175 -88.4507,80.9155 -88.3687,80.9169 -88.2824,80.9205 -88.1461,80.9299 -88.051,80.9354 -87.9292,80.9369 -87.7747,80.9355 -87.5541,80.9285 -87.4334,80.9251 -87.3923,80.9242 -87.3509,80.9251 -87.0117,80.9424 -86.8265,80.9531 -86.6716,80.9649 -86.3672,80.981 -86.2379,80.9847 -86.1894,80.9879 -86.1549,80.9913 -86.1218,80.9948 -86.0555,81.0036 -86.0166,81.0137 -85.9659,81.0306 -85.9421,81.0388 -85.871,81.0581 -85.7944,81.072 -85.7356,81.0802 -85.668,81.0889 -85.4861,81.109 -85.0802,81.1466 -85.0,81.1535 -85.0,81.8559 -85.2692,81.8599 -85.3603,81.8568 -85.4032,81.8534 -85.4398,81.8447 -85.3649,81.8098 -85.277,81.784 -85.1807,81.7589 -85.1534,81.7532 -85.1038,81.7376 -85.085,81.7212 -85.0915,81.7166 -85.1347,81.7171 -85.1791,81.7268 -85.3394,81.7751 -85.4412,81.8088 -85.4771,81.8207 -85.5243,81.8327 -85.6231,81.856 -85.669,81.8657 -85.7242,81.875 -85.8763,81.8998 -85.9099,81.9036 -85.9463,81.9067 -85.9849,81.9089 -86.063,81.9115 -86.2894,81.9117 -86.497,81.9162 -86.5483,81.9153 -86.5974,81.912 -86.6362,81.9073 -86.6989,81.8962 -86.8336,81.8248 -86.8031,81.8171 -86.7715,81.8138 -86.6254,81.8018 -86.5697,81.7925 -86.5412,81.7866 -86.4405,81.7587 -86.4755,81.7494 -86.511,81.7524 -86.5355,81.7568 -86.5839,81.7686 -86.6457,81.778 -86.769,81.7934 -86.807,81.7965 -86.8742,81.8042 -86.9705,81.8178 -87.0102,81.8334 -86.9625,81.8478 -86.9369,81.8518 -86.8896,81.8748 -86.9345,81.8951 -86.975,81.906 -87.0463,81.923 -87.105,81.9318 -87.2037,81.942 -87.3018,81.947 -87.3437,81.9478 -87.3679,81.9473 -87.412,81.943 -87.6129,81.9484 -87.7384,81.9614 -87.7892,81.9564 -87.8137,81.9481 -87.8449,81.9447 -87.9496,81.9385 -87.9964,81.9382 -88.1424,81.9328 -88.2418,81.9286 -88.2885,81.9245 -88.3243,81.9206 -88.4716,81.8977 -88.6623,81.8663 -88.7195,81.8563 -88.7462,81.8429 -88.7105,81.8175 -88.6883,81.8071 -88.6977,81.7775 -88.7324,81.7714 -88.7736,81.7709 -88.8485,81.7826 -88.9478,81.7999 -88.9868,81.8019 -89.0369,81.7993 -89.0696,81.7947 -89.1111,81.781 -89.0956,81.7684 -89.0653,81.7649 -89.0263,81.7613 -88.9025,81.7425 -88.9353,81.7089 -89.0558,81.6709 -89.1239,81.6752 -89.1601,81.678 -89.3278,81.7159 -89.3471,81.723 -89.377,81.7599 -89.3977,81.7746 -89.4325,81.7766 -89.4799,81.7763 -89.6869,81.7647 -89.8499,81.7559 -89.9406,81.7552 -90.0331,81.7522 -90.1313,81.747 -90.2597,81.7376 -90.3044,81.7333 -90.3292,81.7285 -90.3842,81.7106 -90.4217,81.7008 -90.5462,81.702 -90.6946,81.6926 -90.7451,81.6886 -90.7944,81.6786 -90.8381,81.6606 -90.8116,81.6447 -90.7843,81.6374 -90.7446,81.6285 -90.9063,81.6197 -90.9487,81.6194 -90.9808,81.6224 -91.0446,81.6304 -91.079,81.634 -91.1781,81.6302 -91.4173,81.575 -91.4301,81.5477 -91.464,81.5242 -91.4939,81.5197 -91.5319,81.5196 -91.5604,81.5245 -91.5946,81.5281 -91.6194,81.5262 -91.6454,81.5214 -91.6365,81.4897 -91.584,81.4729 -91.5972,81.4698 -91.6256,81.4674 -91.6516,81.4594 -91.6483,81.4483 229,-6.0,Canada -89.4125,76.4571 -89.2867,76.4328 -89.253,76.4354 -89.2358,76.4485 -89.1533,76.407 -89.1001,76.3712 -88.97,76.3232 -88.914,76.3161 -88.7424,76.3007 -88.6958,76.2969 -88.6598,76.2985 -88.5397,76.3625 -88.5391,76.4044 -88.4845,76.482 -88.4574,76.4861 -88.4365,76.4822 -88.3969,76.4594 -88.4017,76.3754 -88.4305,76.3284 -88.4377,76.3032 -88.4059,76.29 -88.3813,76.2888 -88.353,76.2994 -88.3521,76.338 -88.3207,76.3651 -88.2417,76.3916 -88.2441,76.4432 -88.3354,76.5302 -88.3966,76.575 -88.4392,76.5955 -88.2949,76.7002 -88.2649,76.7064 -88.2291,76.6991 -88.2262,76.6692 -88.2563,76.5882 -88.2629,76.527 -88.1908,76.4825 -88.102,76.4091 -88.1015,76.3756 -88.1213,76.3673 -88.1415,76.3457 -88.182,76.2916 -88.14,76.2814 -88.1016,76.2768 -87.7492,76.2501 -87.7001,76.2496 -87.6607,76.2533 -87.6157,76.2815 -87.569,76.2823 -87.5407,76.2582 -87.5041,76.2411 -87.4723,76.2349 -87.4018,76.2299 -87.3441,76.2331 -87.1626,76.2422 -87.1826,76.3094 -87.2077,76.3156 -87.2609,76.3223 -87.2996,76.3377 -87.3483,76.4285 -87.323,76.5032 -87.2791,76.506 -87.2169,76.4804 -87.1787,76.3602 -86.9783,76.3394 -86.9009,76.2839 -86.8374,76.2712 -86.5257,76.2427 -86.4691,76.2387 -86.4196,76.3113 -86.4035,76.3504 -86.2627,76.3792 -86.097,76.4036 -86.1166,76.433 -86.2664,76.4779 -86.3543,76.511 -86.3811,76.523 -86.3473,76.5257 -86.2862,76.5141 -85.9736,76.4132 -86.0114,76.395 -86.033,76.3913 -86.0628,76.3867 -86.125,76.377 -86.159,76.3682 -86.1749,76.3545 -86.169,76.3018 -86.1282,76.278 -86.0867,76.2724 -86.038,76.2686 -85.8914,76.2612 -85.8671,76.2599 -85.7614,76.2627 -85.7352,76.2623 -85.7096,76.2604 -85.4564,76.2408 -85.3031,76.2219 -85.2729,76.2161 -85.1216,76.1954 -85.0,76.1878 -85.0,77.2753 -85.0201,77.2751 -85.0495,77.2761 -85.1264,77.2809 -85.1496,77.2845 -85.186,77.2925 -85.2426,77.3186 -85.2792,77.3503 -85.3001,77.3465 -85.5389,77.3105 -85.5206,77.33 -85.4967,77.3351 -85.4677,77.3519 -85.6304,77.5203 -85.7262,77.5962 -85.9428,77.6735 -85.9663,77.6816 -86.1206,77.7099 -86.1649,77.7181 -86.2042,77.7232 -86.3936,77.7471 -86.5653,77.7664 -86.6168,77.7705 -86.9146,77.7842 -86.9711,77.7859 -87.0342,77.785 -87.3794,77.7493 -87.5743,77.7274 -87.8058,77.7075 -87.9008,77.6456 -87.9596,77.5507 -87.94,77.5303 -87.9108,77.5172 -87.803,77.5065 -87.6098,77.4665 -87.4443,77.4276 -87.3865,77.3716 -87.403,77.3605 -87.4817,77.3422 -87.5214,77.3155 -87.4481,77.247 -87.1607,77.2197 -87.1354,77.2191 -87.1034,77.2199 -87.0706,77.2226 -87.0319,77.2328 -87.0077,77.2404 -86.9859,77.2449 -86.8361,77.2549 -86.8091,77.2556 -86.7087,77.2549 -86.5875,77.2436 -86.6462,77.2307 -86.6802,77.2277 -86.7084,77.2279 -86.7831,77.2307 -86.8137,77.231 -86.8475,77.228 -86.9922,77.1895 -86.9743,77.1745 -86.9361,77.1632 -86.8822,77.1612 -86.8517,77.1609 -86.8241,77.1623 -86.7582,77.1638 -86.7307,77.1637 -86.6937,77.1606 -86.6682,77.1482 -86.6954,77.1446 -86.7231,77.1465 -86.7535,77.1448 -86.8875,77.1272 -86.9166,77.1208 -86.9493,77.0918 -86.9289,77.0861 -86.898,77.086 -86.7071,77.0851 -86.5213,77.0749 -86.4876,77.0633 -86.5461,77.0185 -86.5772,77.0172 -86.6232,77.0214 -86.699,77.0433 -86.7914,77.0696 -86.8157,77.072 -87.0587,77.0699 -87.0825,77.0682 -87.1025,77.0646 -87.1561,77.0478 -87.1781,77.039 -87.2013,77.0183 -87.1093,77.0052 -87.0899,76.9974 -87.2022,76.9913 -87.3151,76.9887 -87.3689,77.0035 -87.3951,77.017 -87.4157,77.0231 -87.436,77.0244 -87.7118,77.0168 -87.8985,77.0054 -87.9167,77.0174 -88.022,77.0191 -88.051,77.018 -88.1698,77.0103 -88.2886,76.9884 -88.2166,76.9862 -88.2448,76.9613 -88.4547,76.8996 -88.4838,76.8925 -88.5125,76.8886 -88.6421,76.8752 -88.7246,76.8472 -88.8911,76.8156 -88.9818,76.8061 -89.0224,76.7971 -89.1605,76.7769 -89.2672,76.7391 -89.2398,76.7105 -89.2158,76.6751 -89.1785,76.6149 -89.1584,76.5683 -89.1822,76.5518 -89.2251,76.5402 -89.2729,76.5317 -89.3167,76.5224 -89.3535,76.5099 -89.4177,76.4581 -89.4125,76.4571 85,-6.0,Canada -89.1605,80.7745 -89.1003,80.7399 -89.0451,80.7247 -89.0008,80.7167 -88.837,80.6931 -88.7457,80.6839 -88.6795,80.6759 -88.4194,80.6404 -88.2808,80.6165 -88.203,80.6 -88.1214,80.5849 -88.0638,80.5767 -87.9376,80.5594 -87.9024,80.5562 -87.8555,80.5534 -87.6715,80.5402 -87.5813,80.5278 -87.4946,80.5174 -87.3463,80.501 -87.3128,80.4973 -87.2776,80.496 -87.2081,80.4962 -87.1767,80.4964 -87.0343,80.498 -86.9922,80.4996 -86.9599,80.5029 -86.9342,80.5071 -86.9,80.5175 -86.8407,80.546 -86.7989,80.5797 -86.7809,80.5954 -86.0711,80.7971 -86.0289,80.8074 -85.8628,80.8444 -85.7081,80.8725 -85.5374,80.8986 -85.4755,80.9071 -85.4016,80.915 -85.2927,80.9221 -85.2033,80.924 -85.1254,80.9233 -85.0126,80.9203 -85.0,80.9205 -85.0,81.0848 -85.017,81.0831 -85.1446,81.0664 -85.2024,81.0573 -85.282,81.044 -85.606,80.984 -85.6327,80.9737 -85.7796,80.948 -86.1374,80.9018 -86.2594,80.8861 -86.3531,80.8754 -86.3892,80.8713 -86.4289,80.8686 -86.4719,80.867 -86.6624,80.8702 -86.6993,80.8698 -86.7468,80.8681 -86.781,80.865 -86.8054,80.8601 -86.8356,80.8558 -86.8753,80.853 -86.995,80.8481 -87.1613,80.843 -87.239,80.8434 -87.312,80.847 -87.3423,80.8508 -87.4034,80.8568 -87.4688,80.8609 -87.5401,80.864 -87.7242,80.8692 -87.8026,80.8694 -87.9954,80.8681 -88.2252,80.8642 -88.3016,80.8626 -88.4775,80.8529 -88.5689,80.8477 -88.6158,80.8439 -88.8962,80.8196 -88.9449,80.8149 -89.0902,80.7994 -89.1639,80.7765 -89.1605,80.7745 93,-6.0,Canada -87.2609,78.0229 -87.2425,78.0143 -87.1766,78.0077 -86.9344,77.9922 -86.8476,77.9892 -86.818,77.9888 -86.5023,78.0011 -86.4673,78.0061 -86.3086,78.0581 -86.282,78.0749 -86.2454,78.0995 -86.2155,78.1016 -86.1926,78.0977 -86.051,78.0793 -86.0249,78.0794 -85.9989,78.0823 -85.8092,78.1416 -85.7961,78.1774 -85.6173,78.2624 -85.5926,78.2644 -85.5725,78.2652 -85.5661,78.2316 -85.5774,78.2146 -85.6716,78.1222 -85.6905,78.114 -85.8462,78.059 -85.876,78.0514 -85.9831,78.0447 -86.0289,77.9651 -86.0083,77.9526 -85.9646,77.9437 -85.9195,77.9413 -85.8898,77.9409 -85.8614,77.9427 -85.7521,77.9524 -85.6276,77.9662 -85.5468,77.9751 -85.4832,77.9791 -85.3515,77.987 -85.2598,77.986 -85.2293,77.9887 -85.1851,77.9982 -85.1614,78.005 -85.0,78.0813 -85.0,78.7926 -85.0337,78.7858 -85.066,78.7759 -85.0865,78.7709 -85.3133,78.7397 -85.3433,78.7354 -85.3824,78.7324 -85.7719,78.7051 -85.802,78.7037 -85.8726,78.7004 -86.1112,78.6937 -86.3491,78.687 -86.3722,78.6833 -86.5898,78.619 -86.6697,78.5928 -86.8541,78.4641 -86.8292,78.4533 -86.8002,78.4521 -86.7659,78.4539 -86.692,78.4595 -86.6329,78.4604 -86.5981,78.4406 -86.6259,78.4302 -86.7475,78.439 -86.8833,78.433 -87.0355,78.3965 -87.2106,78.3329 -87.2442,78.3168 -87.2592,78.2985 -87.2438,78.1979 -87.2296,78.1841 -87.2521,78.1216 -87.2335,78.1057 -87.2117,78.1022 -87.1593,78.1019 -87.1322,78.1029 -87.104,78.1062 -87.03,78.1118 -86.9986,78.1125 -86.8342,78.0902 -86.904,78.0814 -87.0267,78.0806 -87.0509,78.0796 -87.0889,78.0768 -87.1441,78.069 -87.1671,78.0642 -87.2202,78.0505 -87.269,78.0267 -87.2609,78.0229 60,-6.0,Canada -86.5697,82.0533 -86.4564,81.9986 -86.4357,81.9937 -86.4106,81.9893 -86.3421,81.9817 -86.2705,81.9763 -86.1903,81.9716 -85.9851,81.9649 -85.7979,81.962 -85.7693,81.9616 -85.7072,81.9518 -85.6235,81.9353 -85.5598,81.9252 -85.4642,81.9167 -85.3872,81.9125 -85.1158,81.9002 -85.0,81.8965 -85.0,82.3327 -85.0035,82.3326 -85.207,82.3258 -85.4122,82.3183 -85.4508,82.316 -85.4982,82.3134 -85.5231,82.309 -85.6142,82.2839 -85.5708,82.2768 -85.3741,82.2646 -85.2297,82.2605 -85.207,82.2516 -85.2373,82.2253 -85.2208,82.199 -85.1921,82.1727 -85.1638,82.1633 -85.1032,82.1531 -85.0715,82.1404 -85.1211,82.1323 -85.2152,82.1294 -85.2643,82.1257 -85.2874,82.1208 -85.308,82.1082 -85.3268,82.1 -85.369,82.0961 -85.4127,82.0947 -85.4603,82.0941 -85.5052,82.0941 -85.5474,82.0957 -85.6401,82.0956 -85.69,82.094 -85.8428,82.0837 -85.8864,82.082 -85.934,82.0815 -86.0212,82.0813 -86.2238,82.0863 -86.2754,82.0868 -86.323,82.0863 -86.3727,82.0849 -86.4672,82.0783 -86.5465,82.0694 -86.5716,82.0542 -86.5697,82.0533 51,-6.0,Canada -86.4564,80.4702 -86.4396,80.4618 -86.3616,80.4522 -86.151,80.4294 -85.9013,80.4033 -85.8723,80.4012 -85.8051,80.3978 -85.7616,80.4001 -85.7361,80.4026 -85.707,80.4067 -85.6778,80.42 -85.6494,80.4316 -85.614,80.442 -85.579,80.4512 -85.5175,80.4657 -85.4693,80.4752 -85.419,80.4824 -85.361,80.4878 -85.3193,80.4888 -85.2932,80.4859 -85.3378,80.4752 -85.3899,80.4675 -85.422,80.4606 -85.5376,80.4281 -85.5896,80.4076 -85.5342,80.4013 -85.3205,80.3987 -85.1882,80.3944 -85.1521,80.3925 -85.0933,80.3868 -85.0613,80.3832 -85.0,80.3804 -85.0,80.8714 -85.2771,80.8482 -85.3268,80.8422 -85.4196,80.8291 -85.495,80.8153 -85.558,80.7978 -85.6849,80.7538 -85.7711,80.7238 -85.8953,80.6819 -85.9562,80.6642 -86.0592,80.6432 -86.1307,80.6286 -86.1869,80.6135 -86.2269,80.6001 -86.3588,80.5449 -86.3808,80.5346 -86.4013,80.5235 -86.4602,80.4721 -86.4564,80.4702 31,-6.0,Canada -86.3811,79.9927 -86.3678,79.9721 -86.2957,79.917 -86.1972,79.8857 -86.1652,79.8794 -86.1359,79.8779 -86.064,79.8768 -86.0247,79.8783 -85.9138,79.8797 -85.3663,79.8427 -85.167,79.8183 -85.0,79.7981 -85.0,80.1389 -85.0199,80.1399 -85.0829,80.1443 -85.2077,80.154 -85.2374,80.157 -85.3445,80.17 -85.3996,80.1777 -85.4447,80.1872 -85.4723,80.1911 -85.6239,80.2038 -85.8023,80.2044 -85.842,80.2042 -86.0702,80.19 -86.1595,80.1834 -86.1933,80.1796 -86.2179,80.1754 -86.2396,80.1702 -86.384,79.9972 -86.3811,79.9927 37,-6.0,Canada -86.2179,79.65 -86.2037,79.6423 -86.1707,79.6346 -86.1409,79.631 -86.1124,79.6281 -85.9292,79.6166 -85.6755,79.5891 -85.4906,79.5862 -85.4119,79.5901 -85.3435,79.5893 -85.2795,79.5865 -85.2216,79.5815 -85.1013,79.5654 -85.0,79.5504 -85.0,79.7941 -85.0257,79.783 -85.0928,79.7764 -85.1166,79.7775 -85.1432,79.7815 -85.1865,79.7911 -85.2457,79.8052 -85.3823,79.8181 -85.4366,79.8173 -85.5103,79.8181 -85.5447,79.8185 -85.6105,79.821 -85.808,79.8375 -85.9536,79.8478 -85.9866,79.8492 -86.0233,79.8484 -86.0901,79.8425 -86.1125,79.838 -86.1532,79.8254 -86.1783,79.8055 -86.1953,79.7706 -86.2224,79.6525 -86.2179,79.65 14,-6.0,Canada -85.4127,77.8238 -85.2602,77.7707 -85.22,77.7557 -85.1682,77.7615 -85.1235,77.7691 -85.0772,77.7779 -85.0491,77.7816 -85.0131,77.7848 -85.0,77.7856 -85.0,77.9131 -85.0311,77.9083 -85.1947,77.8775 -85.4173,77.8254 -85.4127,77.8238 12,-6.0,Canada -85.1446,77.7025 -85.128,77.695 -85.0742,77.6857 -85.044,77.6845 -85.0,77.6903 -85.0,77.7653 -85.0271,77.7614 -85.0705,77.753 -85.0988,77.7424 -85.1408,77.7262 -85.1472,77.7037 -85.1446,77.7025 6,-6.0,Canada -85.0915,77.6177 -85.0524,77.5501 -85.0,77.5427 -85.0,77.648 -85.0926,77.6196 -85.0915,77.6177 17,-5.0,Canada -78.1434,82.7501 -78.1392,82.7893 -78.129,82.7982 -78.1132,82.804 -78.0849,82.8093 -78.0469,82.8123 -77.9973,82.8136 -77.9475,82.8116 -77.8693,82.8053 -77.8447,82.7918 -77.8753,82.7777 -77.9372,82.7624 -78.0608,82.739 -78.09,82.7348 -78.1076,82.7347 -78.1434,82.7501 -78.1434,82.7501 23,-2.0,Greenland -46.2839,82.6895 -46.3695,82.6822 -46.4691,82.6826 -46.5111,82.684 -46.5623,82.6863 -46.5928,82.6881 -46.6356,82.6917 -46.6999,82.706 -46.8233,82.7305 -46.96,82.7543 -47.022,82.7622 -47.088,82.7791 -47.0544,82.7848 -47.022,82.7839 -46.8677,82.7763 -46.7366,82.7685 -46.7032,82.7656 -46.6537,82.7569 -46.5917,82.741 -46.5161,82.7208 -46.4054,82.7068 -46.2839,82.6895 -46.2839,82.6895 36,-2.0,Greenland -48.1338,82.6382 -48.1761,82.6447 -48.2232,82.6552 -48.2414,82.6705 -48.2453,82.6994 -48.2426,82.7124 -48.2341,82.7198 -48.2218,82.7264 -48.1986,82.733 -48.1674,82.7375 -48.1318,82.7412 -48.0882,82.7431 -48.0282,82.742 -47.9712,82.7401 -47.6809,82.7217 -47.6066,82.7138 -47.5601,82.7035 -47.5348,82.6991 -47.4677,82.6905 -47.3922,82.6834 -47.2963,82.6729 -47.2801,82.6538 -47.3075,82.6454 -47.3744,82.6369 -47.4019,82.6345 -47.4881,82.6299 -47.6227,82.6297 -47.7353,82.6316 -47.7986,82.6334 -47.8586,82.634 -47.9081,82.6339 -48.0022,82.6313 -48.0466,82.6313 -48.1217,82.6356 -48.1338,82.6382 -48.1338,82.6382 97,-2.0,Greenland -44.887,81.9118 -44.9235,81.9138 -44.958,81.9216 -44.9747,81.9257 -45.1131,81.9666 -45.129,81.9712 -45.157,81.9823 -45.1698,81.9893 -45.1679,82.0001 -45.1771,82.0118 -45.1947,82.0204 -45.2303,82.0302 -45.2835,82.0395 -45.3962,82.057 -45.4624,82.0653 -45.5397,82.073 -45.8004,82.1057 -45.9785,82.1282 -46.0117,82.1325 -46.1511,82.1484 -46.2759,82.1619 -46.3378,82.1679 -46.4055,82.1758 -46.7247,82.2165 -46.7796,82.2258 -46.8199,82.2349 -46.8357,82.2406 -46.8441,82.2572 -46.8487,82.2713 -46.8702,82.2928 -46.88,82.2983 -46.9676,82.3407 -47.0157,82.357 -47.0671,82.3633 -47.1133,82.3698 -47.1813,82.3845 -47.2025,82.3903 -47.2191,82.3958 -47.3516,82.4437 -47.58,82.4815 -47.5142,82.4912 -47.3934,82.4973 -47.0027,82.5041 -46.9538,82.504 -46.9025,82.5024 -46.6927,82.4923 -46.687,82.5118 -46.6728,82.5233 -46.6055,82.5264 -46.5121,82.5289 -46.4528,82.5285 -46.2012,82.5227 -46.0883,82.5185 -45.9966,82.5129 -45.9496,82.5091 -45.9131,82.5056 -45.8428,82.4978 -45.7723,82.4892 -45.6779,82.4773 -45.5914,82.4646 -45.1635,82.4019 -45.0113,82.3896 -44.8072,82.3603 -44.7588,82.3505 -44.6979,82.337 -44.6741,82.3249 -44.606,82.3063 -44.5682,82.2974 -44.4058,82.2698 -44.3396,82.2613 -44.3079,82.2567 -44.2856,82.2522 -44.2709,82.2404 -44.2655,82.225 -44.2758,82.2128 -44.2874,82.2077 -44.3088,82.2007 -44.3479,82.1932 -44.4851,82.1702 -44.6165,82.1545 -44.7111,82.1407 -44.7756,82.1236 -44.7965,82.1168 -44.8959,82.0809 -44.912,82.0701 -44.9033,82.0608 -44.8691,82.0506 -44.7811,82.0244 -44.7081,82.003 -44.6929,81.9982 -44.6059,81.965 -44.5852,81.9509 -44.601,81.9412 -44.6232,81.9363 -44.705,81.9267 -44.887,81.9118 -44.887,81.9118 35,-2.0,Greenland -48.1286,82.2668 -48.1276,82.273 -48.1345,82.2853 -48.1549,82.293 -48.2601,82.3228 -48.299,82.3311 -48.4105,82.3488 -48.5303,82.3657 -48.5662,82.3696 -48.6305,82.3783 -48.6554,82.3823 -48.6777,82.3879 -48.694,82.3953 -48.6858,82.4046 -48.6523,82.4086 -48.6208,82.4111 -48.5889,82.4111 -48.428,82.4046 -48.3805,82.4013 -48.1517,82.3855 -48.12,82.3825 -47.9704,82.3589 -47.9516,82.3549 -47.9382,82.3502 -47.8815,82.3293 -47.8699,82.3211 -47.9586,82.2589 -47.9744,82.2559 -48.0113,82.2528 -48.0461,82.2512 -48.0722,82.2511 -48.1175,82.2552 -48.1266,82.2589 -48.1286,82.2668 -48.1286,82.2668 66,-2.0,Greenland -51.0675,81.8409 -51.0967,81.8341 -51.1382,81.8326 -51.2946,81.8271 -51.4007,81.8248 -51.4639,81.8255 -51.5677,81.8293 -51.7585,81.8389 -51.9005,81.8519 -52.0712,81.8704 -52.1313,81.8781 -52.24,81.8946 -52.3654,81.9103 -52.401,81.9141 -52.4368,81.9175 -52.4833,81.9208 -52.6698,81.9313 -52.8863,81.952 -52.9835,81.9636 -53.0321,81.9733 -53.0465,81.9784 -53.1545,82.0498 -53.1625,82.056 -53.1737,82.0782 -53.1686,82.0966 -53.1429,82.1239 -53.1317,82.1297 -53.0887,82.1451 -53.055,82.1569 -52.9852,82.1732 -52.9596,82.1776 -52.9293,82.182 -52.8944,82.1851 -52.8476,82.1855 -52.7217,82.179 -52.6369,82.1725 -52.6051,82.1688 -52.5689,82.1647 -52.4138,82.1401 -52.3781,82.1285 -52.4186,82.1174 -52.3628,82.0771 -52.3352,82.0661 -52.3204,82.0617 -52.3009,82.0571 -52.252,82.0472 -52.1918,82.038 -52.1352,82.0309 -52.0991,82.0274 -52.0355,82.0216 -51.9722,82.0198 -51.9177,82.0192 -51.8312,82.0156 -51.7592,82.0083 -51.7293,82.0042 -51.6701,81.9954 -51.646,81.9909 -51.181,81.8944 -51.1196,81.88 -51.0823,81.8713 -51.049,81.8627 -51.0312,81.8575 -51.0214,81.85 -51.0453,81.8432 -51.0675,81.8409 -51.0675,81.8409 22,-2.0,Greenland -52.0135,82.0721 -52.0445,82.0754 -52.0655,82.0791 -52.0842,82.0842 -52.0982,82.0895 -52.1146,82.1335 -52.0879,82.1387 -52.0088,82.1486 -51.9573,82.149 -51.9091,82.1465 -51.8173,82.1339 -51.7623,82.1252 -51.7059,82.1095 -51.6247,82.0729 -51.6545,82.0664 -51.7109,82.0655 -51.83,82.0643 -51.9096,82.0653 -51.9578,82.0678 -51.9854,82.0698 -52.0135,82.0721 -52.0135,82.0721 31,-2.0,Greenland -18.9405,81.8624 -18.9268,81.8711 -18.9291,81.8852 -18.9476,81.8966 -18.9638,81.9023 -19.0043,81.9162 -19.1007,81.9452 -19.1474,81.9555 -19.1771,81.9597 -19.2002,81.9647 -19.256,81.9946 -19.3462,82.0601 -19.3316,82.0667 -19.3184,82.0685 -19.2759,82.0693 -19.2461,82.0666 -19.2231,82.0621 -19.1728,82.0448 -19.1569,82.0369 -19.1047,82.0027 -18.9771,81.9428 -18.8578,81.9148 -18.8189,81.9042 -18.7308,81.8479 -18.7944,81.833 -18.8076,81.8319 -18.8356,81.8329 -18.8936,81.8401 -18.9398,81.8515 -18.9405,81.8624 -18.9405,81.8624 41,-2.0,Greenland -20.1459,81.7519 -20.1769,81.7594 -20.4232,81.8351 -20.654,81.9126 -20.675,81.9234 -20.6988,81.9555 -20.7076,81.9751 -20.7111,81.9914 -20.6974,82.0032 -20.68,82.0088 -20.6555,82.015 -20.6241,82.0209 -20.5917,82.0263 -20.5593,82.0305 -20.526,82.0337 -20.4844,82.0349 -20.4468,82.0317 -20.4082,82.0266 -20.3836,82.0211 -20.2618,81.9935 -20.2371,81.9879 -20.2202,81.9824 -20.124,81.9498 -20.1104,81.9374 -20.1119,81.9237 -20.1053,81.9154 -20.0951,81.9098 -20.0163,81.8935 -19.9451,81.8769 -19.8184,81.8335 -19.7947,81.8216 -19.6832,81.7594 -19.6778,81.7345 -19.7109,81.7296 -19.7819,81.7286 -19.8991,81.7309 -19.9826,81.734 -20.0674,81.7401 -20.1192,81.7469 -20.1459,81.7519 -20.1459,81.7519 36,3.0,Russia 57.8673,81.5487 57.7866,81.5495 57.7458,81.5532 57.7195,81.5574 57.6961,81.5706 57.7437,81.6567 57.7531,81.6631 57.7817,81.6677 57.8485,81.6733 57.9204,81.677 58.4303,81.7007 58.5026,81.7039 58.8886,81.7104 58.9658,81.7116 59.0092,81.7101 59.0573,81.7065 59.222,81.6869 59.2356,81.6791 59.1734,81.6187 59.1466,81.6127 59.0886,81.6031 59.0264,81.5956 58.9615,81.5894 58.9255,81.5877 58.6896,81.5887 58.5087,81.5931 58.4683,81.597 58.4253,81.5985 58.3897,81.5964 58.2894,81.5888 58.128,81.573 58.0356,81.5616 58.0071,81.5565 57.9409,81.5511 57.8673,81.5487 57.8673,81.5487 30,-2.0,Greenland -18.5233,81.508 -18.5432,81.5078 -18.5976,81.5112 -18.6179,81.514 -18.6966,81.5295 -18.8995,81.5719 -19.0799,81.6044 -19.1085,81.6098 -19.1313,81.6155 -19.1506,81.6215 -19.1626,81.6263 -19.1788,81.641 -19.1522,81.6494 -19.114,81.6548 -18.9701,81.6657 -18.9268,81.6675 -18.8466,81.6687 -18.7721,81.6684 -18.734,81.6664 -18.6919,81.662 -18.5699,81.6237 -18.4612,81.5893 -18.3212,81.55 -18.2598,81.5336 -18.2463,81.5231 -18.2937,81.5152 -18.4116,81.5106 -18.4901,81.5082 -18.5233,81.508 -18.5233,81.508 29,-2.0,Greenland -20.8605,81.4678 -20.7476,81.4887 -20.7234,81.4982 -20.698,81.5391 -20.7095,81.5414 -20.7447,81.5447 -20.8288,81.5562 -20.8983,81.5745 -20.8708,81.5862 -20.8333,81.5907 -20.7873,81.5923 -20.7325,81.5904 -20.7031,81.5866 -20.5412,81.5619 -20.5589,81.5401 -20.528,81.5333 -20.4511,81.5269 -20.4081,81.5278 -20.2052,81.5391 -20.1611,81.5446 -20.1287,81.546 -20.0971,81.5401 -20.1389,81.5277 -20.3845,81.4857 -20.4399,81.4838 -20.5123,81.4829 -20.6485,81.4782 -20.8605,81.4678 -20.8605,81.4678 49,3.0,Russia 62.5785,81.5643 62.7546,81.5692 62.8944,81.5778 63.0055,81.5809 63.0842,81.5806 63.1242,81.5798 63.2505,81.5745 63.3878,81.5627 63.4266,81.5587 63.4887,81.5498 63.5363,81.5403 63.5693,81.5304 63.5786,81.5253 63.5898,81.5145 63.5789,81.5027 63.5537,81.4907 63.5339,81.4845 63.4803,81.4711 63.3276,81.4489 63.2953,81.4456 63.2593,81.4441 63.218,81.4458 63.1743,81.4486 62.976,81.4526 62.8603,81.4524 62.8189,81.4542 62.5173,81.4717 62.4716,81.4754 62.4017,81.484 62.322,81.4977 62.2964,81.5049 62.2359,81.5145 62.0579,81.5265 62.0139,81.5292 61.9336,81.5304 61.8986,81.5362 61.929,81.545 61.9542,81.5479 61.9768,81.5526 62.0073,81.5568 62.0393,81.5606 62.18,81.5682 62.4707,81.5795 62.5068,81.5807 62.5451,81.5816 62.5784,81.5804 62.5952,81.5752 62.5785,81.5643 62.5785,81.5643 18,3.0,Russia 58.1054,81.4527 58.1015,81.4608 58.112,81.4697 58.1449,81.4727 58.1827,81.4733 58.3734,81.476 58.4534,81.4752 58.4934,81.471 58.5217,81.4596 58.505,81.4492 58.4793,81.4433 58.2961,81.4207 58.261,81.4187 58.226,81.4208 58.0778,81.4339 58.0352,81.4403 58.1054,81.4527 58.1054,81.4527 21,3.0,Russia 61.5709,81.4699 61.6426,81.4664 61.7906,81.4579 61.9138,81.4461 61.9454,81.4416 61.9695,81.437 61.9865,81.432 61.9942,81.4238 61.9714,81.4156 61.9081,81.4087 61.8745,81.4062 61.8009,81.4043 61.7616,81.4051 61.7178,81.4076 61.6862,81.4118 61.638,81.4211 61.4589,81.4594 61.4491,81.4644 61.4786,81.4691 61.5709,81.4699 61.5709,81.4699 15,-5.0,Canada -66.1119,81.4476 -66.1728,81.4366 -66.2089,81.4339 -66.2899,81.4292 -66.3861,81.426 -66.4225,81.4239 -66.593,81.4302 -66.6666,81.4361 -66.6961,81.4393 -66.6734,81.4492 -66.5166,81.4521 -66.3068,81.4529 -66.2087,81.4516 -66.1119,81.4476 -66.1119,81.4476 53,3.0,Russia 57.8888,81.2295 57.8476,81.2309 57.6421,81.2398 57.6022,81.2439 57.4906,81.2549 57.3833,81.2696 57.3687,81.2775 57.3494,81.2822 57.2978,81.2911 57.251,81.2946 57.2117,81.2948 57.1748,81.2938 57.1379,81.2914 56.9179,81.2925 56.6614,81.3019 56.6172,81.3043 56.5793,81.3067 56.5534,81.3114 56.5859,81.3236 56.6397,81.3333 56.7186,81.3653 56.7551,81.384 56.7802,81.3862 56.8572,81.3868 57.0586,81.3847 57.2329,81.3939 57.2801,81.4098 57.3077,81.4148 57.4849,81.4228 57.5222,81.4233 57.5623,81.4234 57.6001,81.4204 57.619,81.4153 57.6314,81.4104 57.6044,81.3922 57.6543,81.3542 57.6802,81.3498 57.7243,81.3476 57.8432,81.3466 57.9271,81.3442 58.137,81.337 58.1832,81.3341 58.2162,81.3299 58.2416,81.3253 58.2602,81.3205 58.3557,81.2853 58.3777,81.2719 58.3537,81.2623 58.1348,81.2396 58.0707,81.2342 58.0358,81.2324 57.8888,81.2295 57.8888,81.2295 24,3.0,Russia 58.269,81.2022 58.278,81.2084 58.5036,81.2449 58.5657,81.2515 58.6605,81.2604 58.76,81.2678 58.8014,81.2663 58.8911,81.2601 58.9325,81.2556 59.0719,81.2335 59.0968,81.229 59.1441,81.2142 59.1775,81.1989 59.1846,81.185 59.1736,81.1757 59.1548,81.17 59.125,81.1666 58.8591,81.1488 58.7837,81.1487 58.4478,81.1666 58.2968,81.1832 58.2785,81.1877 58.269,81.2022 58.269,81.2022 81,3.0,Russia 55.3738,81.0834 55.4006,81.102 55.4274,81.1358 55.3969,81.1386 55.3607,81.1375 55.2908,81.1345 55.2497,81.1389 55.2831,81.1833 55.3074,81.1859 55.6751,81.1843 55.7095,81.183 55.9298,81.1536 56.0452,81.1378 56.2702,81.1213 56.3456,81.1187 56.3845,81.1184 56.4165,81.1242 56.3932,81.1322 56.2893,81.1498 56.2701,81.1546 56.2577,81.1595 56.2019,81.1855 56.1472,81.2425 56.1795,81.248 56.253,81.25 56.444,81.251 56.5224,81.2505 56.5645,81.2496 56.8359,81.2398 56.922,81.2329 56.9547,81.2288 56.9807,81.2243 57.0839,81.2068 57.2685,81.1773 57.3081,81.1733 57.3446,81.1742 57.3738,81.1782 57.3984,81.1839 57.4255,81.1887 57.4598,81.191 57.5038,81.1884 57.7006,81.1594 57.7122,81.1542 57.6968,81.1478 57.6674,81.1438 57.5993,81.1388 57.5261,81.1372 57.4441,81.1398 57.3273,81.1408 57.2229,81.1362 57.189,81.1342 56.922,81.1178 56.8906,81.1146 56.6833,81.0895 56.5705,81.073 56.4387,81.0484 56.3912,81.0364 56.365,81.0316 56.334,81.0287 56.298,81.0276 56.2569,81.0288 56.2244,81.0327 56.2028,81.0401 56.2046,81.0522 56.2095,81.0613 56.1986,81.072 56.186,81.0773 56.1599,81.0816 56.1275,81.0854 56.0839,81.0877 56.0452,81.088 56.0115,81.0862 55.9804,81.0831 55.8352,81.0646 55.7419,81.0556 55.6727,81.0527 55.4332,81.0583 55.4028,81.0612 55.387,81.069 55.3738,81.0834 55.3738,81.0834 1051,-6.0,Canada -96.4737,79.9521 -96.4291,79.9342 -96.3902,79.9241 -96.3673,79.9191 -96.3188,79.9169 -96.2824,79.9234 -96.2408,79.9298 -96.2042,79.9315 -96.1713,79.9303 -96.121,79.9274 -96.0888,79.9226 -96.1113,79.9194 -96.1747,79.9184 -96.3189,79.9028 -96.3629,79.8919 -96.2916,79.8395 -96.271,79.8327 -96.247,79.8289 -96.2147,79.8254 -96.1836,79.8232 -96.0902,79.8209 -96.017,79.8215 -95.954,79.8171 -95.925,79.8132 -95.8482,79.7948 -95.8305,79.7865 -95.8513,79.7831 -95.8868,79.7814 -96.078,79.7894 -96.1142,79.7962 -96.15,79.7946 -96.2647,79.7802 -96.3025,79.762 -96.274,79.7317 -96.1823,79.7166 -96.0764,79.7067 -96.0533,79.7028 -96.028,79.6961 -95.9753,79.6792 -95.7269,79.5879 -95.676,79.5635 -95.6501,79.553 -95.6285,79.5452 -95.5966,79.5355 -95.5493,79.5271 -95.4956,79.5235 -95.4371,79.5223 -95.1824,79.5189 -95.1172,79.5184 -95.0531,79.5194 -94.889,79.5253 -94.8519,79.5284 -94.79,79.5379 -94.6835,79.5461 -94.6448,79.5479 -94.5771,79.5489 -94.5134,79.5512 -94.4758,79.5545 -94.4475,79.5594 -94.3043,79.592 -94.2851,79.6129 -94.0834,79.6587 -94.0608,79.6625 -94.0261,79.6603 -93.9876,79.6422 -94.0299,79.5691 -94.0605,79.5588 -94.1074,79.5486 -94.3994,79.4932 -94.5024,79.4816 -94.5395,79.4785 -94.7509,79.4633 -94.8692,79.4564 -95.0081,79.4506 -95.2634,79.4405 -95.3337,79.4389 -95.3549,79.4346 -95.4338,79.419 -95.4774,79.3012 -95.4612,79.2889 -95.3546,79.2737 -95.1772,79.2626 -95.0942,79.2695 -94.9962,79.2612 -94.9905,79.227 -95.0132,79.2118 -94.8635,79.1634 -94.7898,79.153 -94.7211,79.1491 -94.679,79.1564 -94.6549,79.1722 -94.4678,79.1939 -94.4229,79.2036 -94.4005,79.2087 -94.3729,79.2134 -94.3419,79.2145 -94.2769,79.2132 -94.2413,79.2155 -94.2102,79.2194 -94.0975,79.2542 -94.1358,79.2673 -94.162,79.2641 -94.1947,79.2598 -94.2046,79.3005 -94.0793,79.3023 -93.9493,79.2859 -93.7608,79.2615 -93.7931,79.2357 -93.8242,79.2268 -93.86,79.2102 -93.9146,79.1567 -93.7528,79.14 -93.7032,79.1394 -93.6755,79.1398 -93.6127,79.143 -93.5762,79.1461 -93.5083,79.1568 -93.4638,79.1658 -93.3478,79.1938 -93.1917,79.236 -93.1351,79.2784 -93.0521,79.3259 -93.026,79.3302 -92.9907,79.3291 -92.9436,79.3151 -92.9504,79.292 -93.0191,79.2547 -92.9714,79.2357 -92.8325,79.2416 -92.7203,79.2742 -92.7409,79.2864 -92.7684,79.2978 -92.7884,79.308 -92.8124,79.3211 -92.8315,79.3327 -92.8467,79.354 -92.8054,79.3638 -92.7603,79.3599 -92.7381,79.3461 -92.6806,79.3053 -92.6582,79.2983 -92.6372,79.2943 -92.6094,79.2905 -92.5838,79.2895 -92.5621,79.2897 -92.5111,79.2947 -92.482,79.2997 -92.388,79.3189 -92.3422,79.3276 -92.3133,79.3321 -92.2891,79.3339 -92.1283,79.3387 -92.047,79.3348 -91.9926,79.331 -91.9482,79.3181 -92.0229,79.3005 -92.1211,79.2935 -92.1802,79.2876 -92.2787,79.2569 -92.2194,79.2463 -92.1217,79.2465 -92.0619,79.2448 -92.001,79.2399 -91.9203,79.2304 -91.8918,79.2277 -91.8616,79.2264 -91.6093,79.2214 -91.5764,79.2214 -91.5469,79.223 -91.5003,79.2283 -91.4785,79.2353 -91.4416,79.2414 -91.4142,79.2432 -91.2929,79.2511 -91.221,79.2552 -91.1351,79.2559 -90.9436,79.2715 -90.9044,79.2751 -90.8698,79.2762 -90.8379,79.2705 -90.8719,79.238 -90.9453,79.23 -90.9813,79.2279 -91.1806,79.2158 -91.2067,79.2145 -91.2415,79.2152 -91.3022,79.2141 -91.3714,79.2121 -91.4398,79.2082 -91.5077,79.2014 -91.5415,79.1969 -91.5773,79.1878 -91.606,79.1832 -91.6444,79.1793 -91.6737,79.1777 -91.7067,79.1776 -91.8426,79.182 -91.9656,79.1868 -92.0138,79.1887 -92.1052,79.1909 -92.1647,79.1906 -92.2332,79.1899 -92.2818,79.1862 -92.3137,79.1832 -92.3354,79.1774 -92.3953,79.1377 -92.3323,79.1268 -92.2209,79.1152 -91.9506,79.0882 -91.9259,79.0865 -91.893,79.0855 -91.8,79.0867 -91.7661,79.0879 -91.7387,79.0898 -91.5742,79.0979 -91.1849,79.1111 -90.9134,79.1237 -90.8549,79.1267 -90.6015,79.1264 -90.4485,79.1209 -90.2192,79.1316 -90.1896,79.1333 -90.1226,79.1344 -90.088,79.1281 -90.108,79.1189 -90.2099,79.1032 -90.2455,79.1 -90.2811,79.0981 -90.3187,79.0966 -90.5283,79.0907 -90.7249,79.0854 -90.9204,79.0746 -91.1538,79.0662 -91.4059,79.0558 -91.6112,79.0442 -91.9553,79.0295 -92.0217,79.0281 -92.1194,79.0287 -92.19,79.0386 -92.2183,79.041 -92.4576,79.0467 -92.4976,79.0412 -92.5194,79.0308 -92.5517,79.0237 -92.5801,79.0225 -92.6058,79.0265 -92.7131,79.0373 -92.937,79.0494 -92.9681,79.05 -93.0039,79.0494 -93.0386,79.0472 -93.075,79.0442 -93.1637,79.0139 -93.1817,78.9917 -93.3111,78.9515 -93.4927,78.9212 -93.5225,78.9187 -93.5633,78.9238 -93.5863,78.9257 -93.6184,78.9251 -93.7132,78.9129 -93.9492,78.8799 -93.9959,78.8669 -93.984,78.8489 -93.9612,78.8401 -93.805,78.7946 -93.7618,78.7862 -93.6694,78.762 -93.6492,78.7552 -93.6222,78.7387 -93.6079,78.7242 -93.585,78.7172 -93.5534,78.7162 -93.4904,78.7174 -93.4577,78.7186 -93.3616,78.7193 -93.3009,78.7184 -93.2719,78.717 -93.1282,78.7086 -93.1036,78.7047 -93.0813,78.6998 -93.0587,78.694 -92.9846,78.6801 -92.8833,78.6639 -92.8325,78.6563 -92.7573,78.6338 -92.8134,78.6212 -92.877,78.6198 -92.9041,78.6204 -92.9605,78.6259 -93.013,78.6326 -93.0641,78.6402 -93.0893,78.6447 -93.1418,78.6513 -93.2466,78.6629 -93.3016,78.6677 -93.362,78.6687 -93.3959,78.6664 -93.5196,78.6521 -93.4831,78.6347 -93.1481,78.5182 -92.9927,78.4704 -92.9574,78.4672 -92.9254,78.4686 -92.8921,78.471 -92.7074,78.4841 -92.6577,78.4961 -92.6228,78.5077 -92.5448,78.5162 -92.5218,78.5182 -92.4737,78.5125 -92.4491,78.508 -92.414,78.4985 -92.3119,78.4818 -92.2742,78.4793 -92.0695,78.4715 -91.8695,78.4639 -91.6644,78.457 -91.384,78.4496 -91.358,78.4296 -91.3737,78.4131 -91.4026,78.4107 -91.4465,78.4155 -91.638,78.419 -91.6694,78.4149 -91.7303,78.4115 -91.7898,78.4102 -91.9353,78.4129 -91.9657,78.4124 -92.247,78.4063 -92.2809,78.4054 -92.2096,78.3934 -92.2382,78.3834 -92.2944,78.3753 -92.3185,78.373 -92.3397,78.3723 -92.364,78.3726 -92.4081,78.3806 -92.5731,78.3901 -92.6894,78.3707 -92.6978,78.3411 -92.6669,78.3172 -92.3088,78.2092 -92.2668,78.198 -92.0292,78.1642 -91.8277,78.1036 -91.8056,78.0984 -91.7804,78.0946 -91.7536,78.0933 -91.7168,78.0979 -91.6912,78.1112 -91.6687,78.1184 -91.6426,78.1228 -91.6098,78.1251 -91.5802,78.1254 -91.5542,78.1225 -91.5306,78.1186 -91.4393,78.098 -91.3854,78.0855 -91.3378,78.078 -91.2641,78.0674 -91.214,78.063 -91.0517,78.0547 -90.9637,78.0524 -90.7563,78.0341 -90.6935,78.0289 -90.4381,78.022 -90.3519,78.0207 -90.2254,78.021 -90.1928,78.0215 -90.1619,78.0225 -90.0818,78.0295 -90.0582,78.0323 -90.0255,78.0436 -89.9988,78.0705 -90.0903,78.1425 -90.137,78.1623 -90.188,78.1643 -90.2711,78.1688 -90.3244,78.1729 -90.3485,78.1767 -90.441,78.1948 -90.4651,78.2064 -90.393,78.2128 -90.3458,78.2112 -90.3198,78.2082 -90.2338,78.2062 -90.2048,78.2066 -90.1375,78.21 -90.0668,78.2166 -90.0005,78.2206 -89.9689,78.2217 -89.9403,78.2207 -89.9059,78.2176 -89.7877,78.1937 -89.7508,78.1834 -89.7081,78.1635 -89.6855,78.1271 -89.6486,78.1067 -89.6157,78.1011 -89.5765,78.099 -89.5124,78.1001 -89.478,78.103 -89.4301,78.1049 -89.3879,78.0962 -89.3736,78.0697 -89.3551,78.052 -89.3261,78.0431 -89.2867,78.0354 -89.2609,78.0345 -89.2381,78.0362 -89.1923,78.0545 -89.3396,78.1825 -89.4758,78.2654 -89.5072,78.281 -89.5369,78.29 -89.5968,78.3028 -89.6366,78.3114 -89.6626,78.3154 -89.6868,78.3177 -89.7112,78.3211 -89.79,78.398 -89.8253,78.4371 -89.8151,78.4773 -89.7757,78.4903 -89.7394,78.494 -89.7054,78.4941 -89.6764,78.4869 -89.6468,78.4627 -89.6166,78.4374 -89.5379,78.3822 -89.4037,78.3324 -89.2466,78.2774 -89.0923,78.2284 -88.9947,78.1544 -88.9578,78.1309 -88.847,78.0868 -88.8037,78.0726 -88.7345,78.0555 -88.711,78.0517 -88.5801,78.0373 -88.5505,78.0404 -88.5151,78.0575 -88.4836,78.0828 -88.4517,78.1227 -88.4402,78.15 -88.3992,78.2043 -88.3459,78.2339 -88.2971,78.2618 -88.2734,78.283 -88.2706,78.3047 -88.2878,78.3262 -88.3255,78.3449 -88.389,78.3758 -88.4542,78.4088 -88.4753,78.4204 -88.5247,78.4956 -88.4516,78.5003 -88.296,78.4902 -88.1199,78.4063 -87.9729,78.3401 -87.9369,78.3375 -87.7876,78.3578 -87.7439,78.3665 -87.7164,78.377 -87.6399,78.4332 -87.6254,78.4571 -87.6329,78.4755 -87.7183,78.5269 -87.7477,78.5391 -87.7743,78.5428 -87.8617,78.5653 -87.9298,78.6412 -87.9522,78.6718 -87.9384,78.8462 -87.8891,78.8736 -87.8207,78.8876 -87.788,78.889 -87.7597,78.887 -87.7277,78.8868 -87.6568,78.89 -87.6191,78.9084 -87.5999,78.9282 -87.5761,78.9382 -87.5333,78.953 -87.4999,78.9639 -87.4763,78.9689 -87.4563,78.9571 -87.5221,78.89 -87.5411,78.8802 -87.5612,78.8755 -87.6218,78.8629 -87.7076,78.8436 -87.7313,78.6994 -87.723,78.6791 -87.6808,78.6323 -87.6029,78.5793 -87.4157,78.5292 -87.3944,78.5269 -87.3473,78.5298 -87.3139,78.5363 -87.2696,78.5516 -87.2616,78.5713 -87.085,78.6679 -87.059,78.6788 -87.0137,78.6943 -86.9106,78.7145 -86.7836,78.7465 -86.7528,78.7568 -86.7287,78.766 -86.7021,78.7795 -86.6771,78.8025 -86.7109,78.8281 -86.7336,78.8676 -86.7163,78.9351 -86.687,78.9404 -86.6607,78.9263 -86.6401,78.8964 -86.5395,78.8506 -86.5162,78.8407 -86.4962,78.8371 -86.4727,78.8353 -86.4336,78.8385 -86.4085,78.8431 -86.3383,78.8591 -86.3193,78.8668 -86.2861,78.9212 -86.2165,78.9463 -86.1538,78.9585 -86.0729,78.9713 -86.0028,78.9784 -85.8906,78.9861 -85.7362,78.9942 -85.6096,79.0046 -85.5128,79.0139 -85.3244,79.0367 -85.0227,79.0722 -85.0,79.085 -85.0,79.2947 -85.0096,79.2972 -85.0382,79.3101 -85.1328,79.3552 -85.2152,79.4001 -85.2607,79.4406 -85.3206,79.4665 -85.3604,79.4828 -85.4103,79.4944 -85.4718,79.498 -85.5094,79.4966 -85.569,79.4819 -85.6228,79.4315 -85.6204,79.3897 -85.699,79.3335 -85.7195,79.3266 -85.741,79.322 -85.7642,79.3182 -85.7996,79.316 -85.8278,79.3175 -85.8571,79.3241 -85.8923,79.3425 -85.7833,79.3522 -85.7568,79.3563 -85.772,79.4483 -85.8365,79.4766 -85.9855,79.5159 -86.0058,79.5214 -86.0292,79.5239 -86.0602,79.5267 -86.2731,79.5375 -86.3004,79.5383 -86.3383,79.537 -86.3658,79.5344 -86.4124,79.5264 -86.4944,79.5105 -86.5292,79.4956 -86.4718,79.481 -86.4427,79.4721 -86.4197,79.452 -86.5093,79.422 -86.5424,79.421 -86.5622,79.4352 -86.5467,79.4633 -86.5664,79.4741 -86.657,79.4827 -86.6912,79.4827 -86.7255,79.48 -86.7501,79.4766 -86.8011,79.4685 -86.8894,79.4502 -86.9102,79.4288 -86.98,79.3957 -87.0048,79.3885 -87.0342,79.3839 -87.0695,79.3844 -87.0907,79.3877 -87.1228,79.395 -87.1658,79.408 -87.1862,79.4162 -87.168,79.4525 -87.1487,79.4604 -87.068,79.4776 -86.9822,79.4915 -86.8878,79.5124 -86.8626,79.5227 -86.7787,79.6127 -86.6852,79.7853 -86.7157,79.7979 -86.7461,79.796 -86.7728,79.7866 -86.8009,79.7762 -86.8775,79.7536 -86.9123,79.7464 -87.0595,79.7212 -87.1336,79.7138 -87.16,79.7125 -87.1845,79.7119 -87.2029,79.7243 -87.1673,79.7364 -87.0891,79.7375 -87.0569,79.7416 -87.0352,79.7464 -86.8145,79.8094 -86.7642,79.8448 -86.9461,79.9305 -86.9889,79.9414 -87.0221,79.9453 -87.0868,79.9484 -87.363,79.9516 -87.4018,79.9515 -87.4408,79.9501 -87.4838,79.9466 -87.5498,79.9365 -87.5797,79.9301 -87.6109,79.9319 -87.6671,79.9429 -87.7775,79.9951 -87.6887,80.0113 -87.6611,80.0157 -87.4438,80.0249 -87.4005,80.0283 -87.2875,80.0523 -87.2862,80.1046 -87.3286,80.1948 -87.3569,80.2376 -87.3953,80.2771 -87.4386,80.2815 -87.6383,80.2911 -87.829,80.3029 -88.0262,80.3126 -88.1014,80.3136 -88.1379,80.3121 -88.1807,80.3082 -88.2051,80.3038 -88.2278,80.2989 -88.3323,80.2741 -88.366,80.2641 -88.401,80.2367 -88.3797,80.1436 -88.343,80.1174 -88.3143,80.1082 -88.2263,80.09 -88.1997,80.0852 -88.1426,80.0821 -88.0707,80.0804 -88.0143,80.0729 -87.9876,80.0633 -87.8746,79.9679 -87.9556,79.9763 -88.0836,79.9969 -88.1345,79.9798 -88.1613,79.9742 -88.2181,79.9728 -88.2537,79.9729 -88.4696,79.999 -88.496,80.0033 -88.7906,80.067 -88.8101,80.0724 -88.8314,80.0798 -88.8974,80.1094 -88.9748,80.1604 -88.9582,80.175 -88.9367,80.1802 -88.8856,80.189 -88.8509,80.1963 -88.8261,80.207 -88.7954,80.2659 -88.8156,80.2726 -88.8516,80.2729 -88.8832,80.2696 -88.9051,80.2643 -88.9323,80.2602 -88.9577,80.272 -88.9192,80.2898 -88.8915,80.2968 -88.8307,80.3038 -88.803,80.3087 -88.7742,80.3313 -88.9589,80.3866 -88.9868,80.3927 -89.04,80.4014 -89.0678,80.4043 -89.1603,80.4116 -89.1957,80.4143 -89.2587,80.4166 -89.2997,80.4146 -89.4608,80.4022 -89.4967,80.3704 -89.464,80.3342 -89.4754,80.335 -89.5031,80.3394 -89.5291,80.3447 -89.5529,80.3509 -89.6661,80.3854 -89.7063,80.4027 -89.7279,80.4075 -89.7575,80.4108 -89.888,80.418 -89.9139,80.419 -89.9495,80.4197 -90.1282,80.4215 -90.2923,80.4305 -90.3164,80.4307 -90.4149,80.4305 -90.4503,80.4314 -90.4771,80.4435 -90.451,80.4638 -90.4243,80.4743 -90.3866,80.4844 -90.3107,80.5135 -90.3665,80.5498 -90.4201,80.5735 -90.4615,80.5829 -90.4843,80.5858 -90.612,80.5924 -90.6792,80.5983 -90.7409,80.6053 -90.805,80.616 -90.8272,80.6224 -90.8543,80.643 -91.0171,80.7462 -91.1842,80.7859 -91.2249,80.8026 -91.2292,80.8232 -91.234,80.8443 -91.4228,80.908 -91.4676,80.9148 -91.5655,80.9241 -91.6071,80.9378 -91.5875,80.9474 -91.5321,80.9459 -91.486,80.9518 -91.5565,81.0326 -91.6536,81.0609 -91.7499,81.0832 -91.8215,81.0969 -91.8449,81.1007 -91.9096,81.1098 -92.2251,81.1488 -92.422,81.1692 -92.5255,81.1813 -92.6212,81.1944 -92.7084,81.2047 -92.8694,81.2219 -93.0314,81.2354 -93.2081,81.248 -93.2498,81.2366 -93.2242,81.212 -93.1787,81.1863 -93.2066,81.1741 -93.2446,81.1692 -93.2941,81.1772 -93.3215,81.188 -93.3565,81.1965 -93.385,81.201 -93.4452,81.2083 -93.4796,81.2114 -93.7242,81.2267 -93.757,81.2268 -93.8427,81.223 -93.8893,81.219 -93.9295,81.2142 -93.9623,81.2074 -94.0673,81.1428 -94.0749,81.1186 -93.9921,81.0991 -93.9719,81.0955 -93.8908,81.0856 -93.8566,81.0825 -93.7224,81.0734 -93.6202,81.0683 -93.5439,81.0675 -93.4205,81.0719 -93.3797,81.0748 -93.2073,81.0822 -93.1122,81.0843 -92.9533,81.0767 -92.8155,81.0474 -92.7894,81.0234 -92.8183,80.9805 -92.8529,80.9586 -92.9506,80.948 -92.9947,80.945 -93.2114,80.95 -93.3827,80.9585 -93.4882,80.9646 -93.559,80.9684 -93.5998,80.9668 -93.6279,80.9637 -93.6535,80.9593 -93.6822,80.9578 -93.8222,80.9579 -93.8465,80.9592 -93.8969,80.9687 -93.9224,80.9757 -93.9465,80.9808 -93.9694,80.9824 -94.004,80.9807 -94.0459,80.9682 -94.0201,80.9549 -93.8744,80.9336 -93.7351,80.9211 -93.706,80.9193 -93.6004,80.9056 -93.7647,80.891 -93.8365,80.8818 -94.03,80.843 -94.0582,80.8352 -94.1011,80.832 -94.1265,80.8317 -94.165,80.8353 -94.1915,80.8549 -94.1856,80.8832 -94.2374,80.8992 -94.2641,80.9045 -94.3539,80.9143 -94.5042,80.9197 -94.6333,80.9144 -94.8724,80.8854 -94.9104,80.8774 -94.9373,80.8672 -94.9507,80.8409 -94.9735,80.8165 -95.0017,80.8056 -95.0241,80.801 -95.1124,80.7876 -95.162,80.7631 -95.1037,80.752 -94.9913,80.7522 -94.8678,80.7465 -94.9037,80.7352 -95.062,80.7205 -95.1309,80.7134 -95.1913,80.7057 -95.2177,80.6865 -95.1921,80.6745 -95.1665,80.6705 -95.1339,80.6672 -95.0258,80.6564 -94.9743,80.6537 -94.935,80.6554 -94.7178,80.6691 -94.7286,80.6412 -94.589,80.6155 -94.4169,80.5967 -94.3889,80.5947 -94.354,80.5934 -94.2444,80.5929 -94.1862,80.5948 -94.1444,80.5982 -94.1182,80.6031 -94.0001,80.6018 -93.8365,80.5899 -93.8047,80.5868 -93.7782,80.5758 -93.8138,80.5669 -93.8961,80.5611 -93.9277,80.5604 -94.0271,80.5619 -94.1347,80.5657 -94.2099,80.5646 -94.2488,80.563 -94.2921,80.5589 -94.3235,80.5539 -94.3593,80.5319 -94.2489,80.4718 -94.2205,80.4673 -94.1812,80.4674 -94.1538,80.4693 -94.1341,80.4745 -94.0052,80.4752 -93.7915,80.4622 -93.7032,80.4544 -93.6717,80.4508 -93.6476,80.4471 -93.5935,80.4351 -93.5099,80.4105 -93.486,80.398 -93.5387,80.3879 -93.5662,80.3879 -93.5983,80.3884 -93.6643,80.4029 -93.7092,80.4186 -93.9285,80.4254 -94.0721,80.4265 -94.2517,80.4236 -94.355,80.4249 -94.3928,80.4261 -94.4583,80.43 -94.5193,80.4387 -94.5426,80.4439 -94.5978,80.4557 -94.6575,80.4685 -94.6896,80.4719 -94.7255,80.4723 -94.7616,80.4701 -94.8266,80.4629 -94.8666,80.4605 -94.9407,80.4591 -95.012,80.4596 -95.1172,80.4626 -95.1912,80.4614 -95.2295,80.4598 -95.3646,80.4537 -95.6336,80.4555 -95.6716,80.4539 -95.7114,80.4446 -95.65,80.3744 -95.5459,80.3239 -95.4161,80.283 -95.3897,80.2762 -95.3487,80.267 -95.3202,80.262 -95.2594,80.2561 -95.1941,80.2542 -95.1542,80.2474 -95.1352,80.2105 -95.1563,80.2078 -95.1843,80.2089 -95.2097,80.2116 -95.2386,80.2163 -95.2624,80.2229 -95.3077,80.2307 -95.3323,80.2347 -95.3927,80.2404 -95.4273,80.2431 -95.6726,80.259 -95.7416,80.2603 -95.7743,80.2576 -95.9337,80.2433 -95.969,80.2329 -95.9483,80.2247 -95.9193,80.2085 -95.9483,80.2064 -96.0572,80.2128 -96.1019,80.2241 -96.1335,80.2272 -96.2907,80.233 -96.3262,80.2277 -96.3637,80.2153 -96.3383,80.2038 -96.3066,80.2006 -96.1576,80.1839 -96.1289,80.1408 -95.9115,80.1073 -95.6803,80.072 -95.6243,80.0661 -95.5806,80.0708 -95.4072,80.0992 -95.3867,80.104 -95.3422,80.1109 -95.2837,80.1083 -95.2545,80.0938 -95.1941,80.0909 -95.1587,80.0913 -95.096,80.0951 -95.0234,80.1035 -94.9803,80.1139 -94.9364,80.1084 -94.9593,80.0917 -94.9937,80.0842 -95.0255,80.0801 -95.0684,80.0765 -95.1017,80.0753 -95.1687,80.0753 -95.2402,80.0739 -95.278,80.0713 -95.3186,80.0669 -95.3835,80.0516 -95.356,80.0403 -95.1187,79.9951 -95.0661,79.991 -95.032,79.9908 -94.9621,79.9912 -94.8043,80.001 -94.7329,80.007 -94.517,80.0316 -94.4486,80.0414 -94.4047,80.05 -94.3462,80.0688 -94.1854,80.0816 -94.0553,80.0624 -93.9193,80.0596 -93.886,80.0585 -93.822,80.0546 -93.7931,80.0466 -93.8234,80.0422 -93.9873,80.037 -94.0884,80.0353 -94.1175,80.0354 -94.1815,80.0311 -94.2117,80.0262 -94.3127,80.0075 -94.3335,80.0032 -94.4285,79.9792 -94.4477,79.9549 -94.3694,79.9332 -94.3187,79.9201 -94.223,79.9011 -94.1487,79.889 -94.1109,79.8774 -94.0826,79.8648 -94.1138,79.8586 -94.2659,79.8772 -94.304,79.8822 -94.4142,79.8993 -94.523,79.9178 -94.5498,79.9212 -94.5847,79.9231 -94.6185,79.9233 -94.648,79.9227 -94.6856,79.9202 -94.708,79.9163 -94.7339,79.91 -94.7594,79.9081 -94.8892,79.9094 -95.0201,79.9115 -95.1137,79.9144 -95.2406,79.918 -95.5422,79.9301 -95.7121,79.9464 -95.7722,79.9531 -95.8579,79.9675 -96.0184,79.9997 -96.0468,80.0046 -96.0765,80.0086 -96.1053,80.0109 -96.3703,80.0175 -96.4053,80.0168 -96.4357,80.0094 -96.4948,79.9633 -96.4737,79.9521 16,3.0,Russia 54.0809,81.1557 54.0517,81.1649 53.9374,81.2133 53.975,81.2169 54.0199,81.2147 54.06,81.2111 54.101,81.2019 54.1144,81.1967 54.2428,81.1372 54.2148,81.1301 54.1757,81.1303 54.1385,81.1325 54.1184,81.137 54.0913,81.1473 54.0809,81.1557 54.0809,81.1557 30,3.0,Russia 59.6646,81.1641 59.6901,81.1663 59.7632,81.1676 59.9124,81.1689 59.9902,81.1678 60.2269,81.1628 60.311,81.1587 60.356,81.1553 60.3939,81.1512 60.4252,81.1469 60.4366,81.1346 60.4118,81.1237 60.3814,81.12 60.2844,81.1118 60.2521,81.1096 60.179,81.1084 60.1363,81.111 60.0102,81.121 59.9476,81.1296 59.9094,81.1333 59.8687,81.1347 59.7957,81.1337 59.677,81.1362 59.6366,81.1376 59.5502,81.1427 59.5255,81.1471 59.5514,81.153 59.5816,81.1568 59.6646,81.1641 59.6646,81.1641 259,7.0,Russia 95.1749,81.0827 94.9703,81.0972 94.828,81.0984 94.7832,81.1004 94.75,81.1033 94.7226,81.1071 94.7526,81.1234 94.7802,81.1317 94.8093,81.135 94.8795,81.1387 95.1379,81.1504 95.2129,81.1533 95.3378,81.1546 95.3843,81.154 95.4174,81.1513 95.4724,81.1441 95.5155,81.1352 95.6329,81.1076 95.6434,81.0818 95.8361,81.0586 95.9611,81.0198 96.2118,80.915 96.222,80.8922 96.3412,80.8435 96.429,80.816 96.47,80.8071 96.6395,80.7721 97.1038,80.7113 97.1716,80.7045 97.2076,80.7061 97.2506,80.704 97.3917,80.6875 97.5688,80.632 97.6502,80.578 97.4389,80.5448 97.1724,80.5339 96.9599,80.5368 96.8523,80.5325 96.8166,80.5313 96.7376,80.4534 96.7064,80.3991 96.7681,80.3774 96.8017,80.3676 96.8344,80.3547 96.8987,80.292 96.8917,80.268 96.8769,80.2535 96.8909,80.2243 96.9203,80.211 96.9723,80.2082 97.0071,80.2094 97.0477,80.2078 97.1115,80.1846 97.0937,80.168 97.0552,80.1581 96.8509,80.1052 96.6883,80.0976 96.5368,80.0971 96.4985,80.0966 96.4681,80.0938 96.3459,80.0944 96.0536,80.0885 95.7867,80.0845 95.6604,80.085 95.6264,80.0837 95.2623,80.064 95.2047,80.0541 95.1852,80.0446 95.1366,80.0371 95.0766,80.032 94.773,80.0085 94.7312,80.0083 94.5479,80.0128 94.5033,80.0088 94.483,79.9953 94.4162,79.988 94.382,79.9864 94.3417,79.9878 94.3066,79.9903 94.1818,79.9773 94.1629,79.9685 94.0911,79.9487 93.9624,79.9328 93.881,79.9239 93.8218,79.9188 93.7034,79.9094 93.525,79.8867 93.4818,79.878 93.4522,79.8755 93.4191,79.874 93.3779,79.874 93.1016,79.8991 92.9942,79.9094 92.8434,79.9434 92.696,79.9771 92.6707,79.9803 92.6399,79.9831 92.5791,79.9886 92.5183,79.9943 92.4671,80.0009 92.3846,80.0111 92.3284,80.0179 92.2249,80.0237 92.0193,80.0295 91.814,80.0365 91.785,80.0415 91.8083,80.0519 91.8925,80.0619 91.961,80.0665 92.2978,80.0532 92.3341,80.0509 92.3649,80.0477 92.4423,80.037 92.4728,80.0344 92.5089,80.0322 92.5506,80.0322 92.5873,80.0424 92.5673,80.0513 92.4798,80.0613 92.4487,80.064 92.4076,80.0655 92.3667,80.0668 92.3306,80.0691 92.1556,80.0809 92.1247,80.0838 92.0418,80.0936 91.9634,80.1045 91.8146,80.1521 91.8437,80.1587 91.9733,80.1549 92.0662,80.1532 92.1085,80.1537 92.1764,80.1572 92.2358,80.1624 92.2997,80.1668 92.4356,80.1741 92.5243,80.1731 92.6384,80.167 92.7108,80.1627 92.8092,80.1545 92.8402,80.1517 92.9593,80.1392 92.9796,80.1348 93.0169,80.1452 92.9762,80.1728 92.9506,80.1764 92.852,80.1849 92.5546,80.1915 92.5165,80.1909 92.4234,80.1854 92.3635,80.1798 92.2619,80.1745 92.1555,80.17 92.1172,80.1689 91.9143,80.1667 91.7847,80.1703 91.7421,80.1704 91.6659,80.1683 91.522,80.1627 91.2778,80.154 91.2502,80.1542 91.1345,80.1812 91.1839,80.2096 91.2345,80.2253 91.3654,80.251 91.4121,80.2589 91.4548,80.259 91.4916,80.257 91.5342,80.257 91.5725,80.2581 91.7136,80.2645 91.7847,80.2738 91.8334,80.2751 91.8803,80.2746 91.9167,80.2724 92.0731,80.2635 92.1463,80.2593 92.2193,80.2549 92.2613,80.2534 92.3089,80.2607 92.2494,80.2734 92.2182,80.2759 92.1393,80.2801 92.0457,80.2812 91.831,80.288 91.7941,80.29 91.7676,80.2936 91.6714,80.309 91.6097,80.3286 92.0051,80.3761 92.0399,80.3782 92.0784,80.3791 92.1165,80.3783 92.2104,80.3752 92.3651,80.3774 92.4428,80.3791 92.4776,80.3854 92.4962,80.4035 92.5165,80.4511 92.4809,80.4678 92.5111,80.5039 92.5295,80.5178 92.6149,80.5599 92.7735,80.5934 92.948,80.6385 92.9713,80.6469 93.0236,80.6733 92.9935,80.6723 92.9311,80.667 92.877,80.6602 92.8514,80.6481 92.8193,80.64 92.6111,80.6287 92.3599,80.619 92.2278,80.6191 92.195,80.6353 92.2522,80.6617 92.3373,80.6842 92.3864,80.7076 92.3865,80.738 92.4475,80.7569 92.6124,80.7732 92.6437,80.7762 92.7197,80.7786 92.756,80.7805 92.8579,80.8004 92.8255,80.8244 92.7734,80.8353 92.7564,80.8578 92.8474,80.8707 93.1635,80.906 93.3791,80.9184 93.4151,80.9201 93.5144,80.9183 93.5556,80.919 93.5922,80.9205 93.7594,80.9283 93.7914,80.9309 93.821,80.943 93.8593,80.9528 93.8873,80.9564 94.0446,80.9698 94.0814,80.9713 94.126,80.9696 94.2267,80.9692 94.3329,80.975 94.4346,80.9811 94.4911,80.9879 94.5147,80.9924 94.6062,81.0095 94.6652,81.0247 94.74,81.046 94.8261,81.0735 94.8546,81.077 94.8876,81.0793 94.9841,81.0781 95.1175,81.0783 95.1749,81.0827 95.1749,81.0827 23,3.0,Russia 56.8959,81.0462 56.9994,81.0522 57.272,81.0823 57.5432,81.0965 57.6839,81.1015 57.7202,81.1025 57.7589,81.1021 57.7909,81.0981 57.8783,81.0794 57.89,81.0742 57.8676,81.0674 57.586,81.0142 57.5328,81.0049 57.5038,81.001 57.3768,80.9904 57.3427,80.9889 57.1899,80.9897 56.9664,81.0115 56.8079,81.0303 56.8228,81.0368 56.8803,81.0448 56.8959,81.0462 56.8959,81.0462 38,7.0,Russia 90.7324,80.9211 90.5931,80.9227 90.5485,80.9242 90.3812,80.9309 89.7748,80.958 89.7069,80.9635 89.6831,80.9677 89.6654,80.9725 89.6524,80.9779 89.6189,80.9953 89.599,81.0333 89.7781,81.0752 89.8368,81.0815 89.8729,81.0834 90.2022,81.0907 90.2481,81.091 90.6053,81.0914 90.7314,81.0893 90.8162,81.0859 90.9748,81.0778 91.0435,81.0724 91.072,81.069 91.1001,81.0647 91.1698,81.0522 91.2771,81.0079 91.2765,80.9981 91.2569,80.9898 91.1483,80.9758 91.0764,80.9634 91.0536,80.9591 91.0402,80.9529 91.0332,80.939 91.0063,80.9355 90.9523,80.9285 90.8845,80.924 90.8049,80.925 90.7324,80.9211 90.7324,80.9211 21,3.0,Russia 58.8218,81.0765 58.9017,81.0848 58.9811,81.0834 59.2167,81.0785 59.4477,81.0762 59.4885,81.0748 59.5313,81.0722 59.5674,81.0691 59.5919,81.0648 59.6466,81.0475 59.6368,81.0394 59.6046,81.0368 59.5706,81.0351 59.534,81.0346 59.3808,81.0362 59.3017,81.038 58.8915,81.058 58.8461,81.0619 58.8193,81.0691 58.8218,81.0765 58.8218,81.0765 85,3.0,Russia 62.3549,80.7114 62.3731,80.7133 62.7091,80.7694 62.7621,80.7806 62.7806,80.7872 62.8032,80.7995 62.8324,80.8124 62.8823,80.8254 62.9108,80.8302 63.0999,80.8471 63.1342,80.8482 63.1698,80.8486 63.4594,80.8487 63.6152,80.8443 63.6936,80.8405 63.7311,80.8397 63.765,80.8408 63.8569,80.8515 63.8861,80.8558 63.9135,80.8616 63.9389,80.8681 63.9577,80.8744 63.9846,80.8894 64.0064,80.9215 63.9895,80.9324 63.9184,80.947 63.9091,80.9552 64.0232,81.0183 64.0351,81.0246 64.0545,81.0308 64.0826,81.0366 64.2077,81.0501 64.2722,81.0559 64.3383,81.0606 64.4505,81.0617 64.4889,81.0611 64.6083,81.0551 64.6513,81.0509 64.8227,81.0303 64.8588,81.0258 64.9742,81.0077 65.0032,81.003 65.0251,80.998 65.0558,80.9852 65.0652,80.9715 65.0811,80.961 65.1357,80.9293 65.2392,80.8936 65.2545,80.7918 65.2323,80.7824 65.1798,80.7694 65.024,80.7346 64.8357,80.6879 64.8233,80.6816 64.7975,80.6753 64.7686,80.6709 64.708,80.6638 64.5774,80.6539 64.4861,80.6437 64.4574,80.6393 64.4068,80.6261 64.3782,80.6214 64.0958,80.5979 64.0307,80.5945 63.9953,80.594 63.9588,80.5949 63.7166,80.5892 63.5521,80.5814 63.3827,80.5814 63.2619,80.5686 63.1694,80.5602 63.0091,80.5501 62.9378,80.5503 62.8996,80.5523 62.8845,80.559 62.8752,80.567 62.807,80.5871 62.7297,80.6012 62.5257,80.6384 62.3363,80.6698 62.3071,80.6742 62.304,80.6887 62.3173,80.6979 62.3549,80.7114 62.3549,80.7114 33,3.0,Russia 50.2507,80.905 50.2935,80.9165 50.3126,80.9257 50.3031,80.9338 50.2818,80.9384 50.2538,80.9423 50.2197,80.9461 50.1917,80.9502 50.1828,80.9555 50.2,80.983 50.3274,81.0214 50.351,81.0267 50.383,81.0291 50.572,81.0317 50.6162,81.03 50.6508,81.0262 50.758,81.0038 50.7728,80.9989 50.7812,80.9935 50.8064,80.977 50.8158,80.9688 50.8118,80.9595 50.7889,80.9542 50.7186,80.9518 50.5837,80.9443 50.4323,80.9116 50.2711,80.875 50.246,80.8752 50.2245,80.8802 50.2116,80.8881 50.2244,80.8979 50.2507,80.905 50.2507,80.905 24,3.0,Russia 58.0251,81.0013 58.13,81.0052 58.1543,81.0109 58.1813,81.0162 58.2153,81.0176 58.2917,81.0171 58.3753,81.0131 58.4207,81.0096 58.4452,81.0051 58.4566,81.0001 58.4477,80.9938 58.4206,80.989 58.389,80.9864 58.2858,80.9822 58.2539,80.9795 58.2205,80.9777 58.1798,80.9789 58.1372,80.9815 58.0156,80.9855 57.9705,80.9891 57.959,80.9939 57.9767,80.9998 58.0251,81.0013 58.0251,81.0013 37,3.0,Russia 59.9054,80.8733 59.9638,80.8777 60.0225,80.8851 60.0498,80.8898 60.1983,80.9232 60.432,80.9545 60.4618,80.9579 60.5578,80.966 60.8666,80.9806 60.969,80.9852 61.0393,80.9874 61.184,80.9894 61.2962,80.9884 61.3361,80.9869 61.4525,80.9762 61.4547,80.9594 61.4302,80.9164 61.4072,80.9011 61.383,80.8944 61.1809,80.8453 60.9448,80.796 60.8857,80.7884 60.8543,80.7859 60.7873,80.7826 60.7165,80.7821 60.6417,80.7829 60.2864,80.7971 60.2028,80.8021 60.136,80.8107 59.8701,80.8449 59.8463,80.8494 59.8294,80.8577 59.8393,80.8639 59.8556,80.8708 59.8874,80.873 59.9054,80.8733 59.9054,80.8733 105,3.0,Russia 54.2521,80.8901 54.2632,80.9017 54.2761,80.9086 54.4307,80.9757 54.4557,80.9806 54.5114,80.9886 54.5705,80.9751 54.7603,80.945 54.7983,80.9451 54.936,80.9356 55.0053,80.9296 55.1224,80.913 55.2453,80.8908 55.2833,80.8813 55.3028,80.8769 55.3418,80.8731 55.3846,80.8708 55.4174,80.873 55.6377,80.8906 55.7953,80.9034 55.8285,80.9051 55.8663,80.9052 55.9069,80.9042 55.9457,80.9002 56.227,80.8672 56.2588,80.8635 56.4157,80.8443 56.4403,80.8371 56.4339,80.8205 56.4603,80.8062 56.4909,80.7962 56.565,80.7768 56.5899,80.7724 56.6715,80.7594 56.7477,80.7523 56.8363,80.7458 56.9185,80.7423 56.998,80.7397 57.0401,80.7373 57.1158,80.7297 57.3222,80.7065 57.4157,80.6942 57.44,80.6894 57.5323,80.6584 57.5176,80.6475 57.3559,80.6079 57.3279,80.6041 57.1844,80.5867 57.069,80.5733 56.9791,80.5626 56.9469,80.5607 56.9125,80.56 56.8758,80.5602 56.8343,80.5628 56.8047,80.5726 56.7468,80.5983 56.6507,80.628 56.498,80.666 56.4485,80.6747 56.3625,80.6805 56.2854,80.6818 56.1147,80.6921 56.0388,80.699 55.9968,80.7015 55.9196,80.7027 55.8521,80.6998 55.8127,80.7009 55.6281,80.7191 55.5964,80.7235 55.584,80.7284 55.5833,80.749 55.5445,80.7542 55.5069,80.7546 55.4743,80.7522 55.3969,80.7537 55.3763,80.7561 55.351,80.7603 55.243,80.7832 55.2241,80.7879 55.196,80.801 55.2201,80.8201 55.2081,80.8283 55.182,80.8325 55.1392,80.8344 55.1116,80.8306 55.0597,80.8197 55.0292,80.817 54.9918,80.8168 54.9162,80.8169 54.8055,80.8162 54.7762,80.8191 54.7373,80.8283 54.7051,80.8412 54.6929,80.8611 54.6669,80.8653 54.6341,80.8692 54.5466,80.8593 54.4811,80.855 54.4409,80.8562 54.3169,80.8601 54.2806,80.8627 54.2542,80.867 54.241,80.8719 54.2521,80.8901 54.2521,80.8901 70,3.0,Russia 55.9209,80.9684 55.9406,80.9806 55.9716,80.9835 56.0014,80.9808 56.0587,80.9664 56.104,80.9629 56.1423,80.9632 56.1759,80.9649 56.2039,80.9687 56.237,80.9708 56.4484,80.971 56.4868,80.9708 56.5298,80.9686 56.6008,80.9608 56.6649,80.9527 56.6902,80.9484 56.7087,80.9435 56.7345,80.9391 56.7663,80.9351 56.8047,80.9314 56.9431,80.9203 57.0293,80.9254 57.0602,80.9282 57.0943,80.9265 57.2991,80.9122 57.3244,80.9076 57.4724,80.8706 57.4982,80.8567 57.5096,80.8518 57.5395,80.8415 57.5822,80.8323 57.6761,80.8198 57.7143,80.8161 57.8008,80.8104 57.8808,80.8079 57.965,80.803 58.0468,80.7955 58.078,80.7917 58.0894,80.7862 58.0632,80.7812 57.8897,80.7594 57.6785,80.7213 57.5871,80.7131 57.5495,80.7133 57.4235,80.7238 57.3484,80.7313 57.204,80.7462 57.0407,80.7664 57.0166,80.774 57.032,80.7837 57.0478,80.7961 57.0379,80.8068 57.0194,80.8121 56.9947,80.8162 56.9564,80.82 56.8764,80.8226 56.7912,80.827 56.7533,80.8309 56.7244,80.8467 56.7075,80.8603 56.684,80.877 56.6015,80.89 56.4804,80.9061 56.2207,80.9298 56.016,80.9467 55.975,80.9477 55.9389,80.95 55.9134,80.9573 55.9209,80.9684 55.9209,80.9684 20,3.0,Russia 57.6591,80.9051 57.6463,80.914 57.8231,80.9725 57.8612,80.972 57.8952,80.9706 58.1491,80.9573 58.1785,80.9543 58.4675,80.9068 58.492,80.902 58.5051,80.89 58.4004,80.8272 58.374,80.8221 58.3431,80.8195 58.2102,80.8124 58.0884,80.8174 58.0573,80.8216 58.008,80.8306 57.6772,80.8999 57.6591,80.9051 57.6591,80.9051 43,6.0,Russia 78.9603,80.8209 79.1313,80.8176 79.176,80.817 79.2148,80.8191 79.2812,80.8245 79.3091,80.8282 79.3266,80.833 79.3715,80.8415 79.3995,80.845 79.4492,80.8455 79.4853,80.8438 79.6011,80.8312 79.6546,80.824 79.7171,80.8189 79.8198,80.8122 79.8558,80.8103 79.8957,80.8093 79.9851,80.8086 80.1108,80.8066 80.1461,80.8044 80.1747,80.7968 80.1488,80.746 80.0566,80.7222 80.0339,80.718 80.0062,80.7149 79.8121,80.6992 79.6315,80.6877 79.555,80.6835 79.094,80.6731 78.9169,80.6742 78.8773,80.675 78.8371,80.6761 78.8019,80.6781 78.775,80.6811 78.7306,80.69 78.7193,80.701 78.7184,80.7187 78.7307,80.7314 78.7536,80.7428 78.8394,80.7815 78.8708,80.7947 78.9603,80.8209 78.9603,80.8209 298,3.0,Russia 49.1538,80.6024 49.0973,80.6035 49.0356,80.5987 49.0049,80.5964 48.9802,80.5917 48.9369,80.5811 48.9029,80.5797 48.8632,80.5801 48.8037,80.5982 48.9583,80.6565 49.1449,80.6833 49.1731,80.6864 49.2633,80.6947 49.3256,80.6996 49.3599,80.701 49.4003,80.7001 49.4316,80.7028 49.4593,80.7062 49.5069,80.7159 49.6031,80.7475 49.627,80.7534 49.6526,80.7578 49.8667,80.7763 50.0216,80.7891 50.0532,80.7915 50.0878,80.793 50.1338,80.7902 50.2481,80.7804 50.2765,80.7734 50.2493,80.7672 50.1799,80.7644 50.1053,80.764 50.0706,80.7627 49.9793,80.7548 49.9535,80.7501 49.8496,80.7276 49.9705,80.7139 50.0044,80.7125 50.5006,80.7534 50.5578,80.7603 50.5836,80.7646 50.6436,80.7834 50.6811,80.7834 50.7158,80.7772 50.8732,80.7144 50.8537,80.7004 50.5581,80.6766 50.5268,80.6743 50.4865,80.675 50.4005,80.6781 50.3663,80.677 50.335,80.6747 50.3061,80.6687 50.3739,80.6546 50.3448,80.6428 50.2602,80.6328 50.2291,80.6302 50.1608,80.6276 50.1328,80.6244 50.1075,80.6201 50.0862,80.6116 50.1543,80.5832 50.1809,80.5791 50.2117,80.5792 50.2401,80.5826 50.3071,80.5985 50.4532,80.6263 50.4783,80.6309 50.764,80.6395 50.8658,80.6408 51.0084,80.644 51.1014,80.6529 51.1483,80.6446 51.2836,80.6086 51.31,80.6042 51.3426,80.6005 51.4139,80.6021 51.5193,80.5942 51.5587,80.5907 51.5795,80.583 51.5648,80.5519 51.5394,80.5436 51.3351,80.5093 51.2505,80.4993 51.1913,80.494 51.1545,80.4937 51.0761,80.4953 51.0417,80.4938 51.0166,80.49 50.9944,80.4842 50.9438,80.4625 50.9103,80.448 50.8613,80.4231 50.8366,80.413 50.7864,80.4046 50.7586,80.4011 50.7278,80.3987 50.6469,80.4014 50.6109,80.401 50.4293,80.3993 50.1809,80.3951 50.0376,80.3921 49.9706,80.3892 49.9401,80.3868 49.9164,80.3794 49.8928,80.3695 49.6934,80.3617 49.5937,80.3573 49.5635,80.3551 49.5295,80.3467 49.5644,80.3314 49.6368,80.3221 49.6712,80.2756 49.648,80.2671 49.6235,80.2626 49.4722,80.2382 49.4456,80.2346 49.4125,80.2333 49.3052,80.232 49.2638,80.2335 49.2224,80.2351 49.1249,80.2459 49.0864,80.2486 49.0443,80.2502 48.7467,80.253 48.7112,80.253 48.6811,80.2502 48.6453,80.2435 48.4734,80.1731 48.4875,80.1575 48.5156,80.1503 48.5601,80.1476 48.6928,80.1529 48.7284,80.1532 48.7637,80.1511 48.7932,80.141 48.8397,80.1205 48.9518,80.0571 48.8337,80.0194 48.8045,80.0168 48.7664,80.0171 48.6438,80.0219 48.6117,80.0254 48.5856,80.0294 48.5446,80.0387 48.5074,80.0523 48.4508,80.0677 48.4127,80.0706 48.3749,80.0712 48.341,80.0664 48.3661,80.0468 48.3853,80.0392 48.3927,80.018 48.3579,79.994 48.3283,79.9859 48.244,79.9661 48.2206,79.9618 48.1944,79.9635 48.1744,79.9676 48.0933,79.995 48.0514,80.005 48.0107,80.0064 47.9554,80.0006 47.909,79.9919 47.8886,79.9867 47.8435,79.9752 47.7498,79.9588 47.5691,79.9454 47.5374,79.9437 47.5025,79.9434 47.4646,79.9463 47.4443,79.9546 47.4908,79.9909 47.604,80.0406 47.6238,80.0458 47.6501,80.0497 47.7906,80.0517 47.8487,80.0568 47.9042,80.0626 47.9303,80.0688 47.8979,80.0745 47.7572,80.0724 47.7054,80.0786 47.7882,80.094 47.8105,80.1029 47.7724,80.1137 47.7278,80.1162 47.6896,80.1167 47.547,80.1136 47.3356,80.1079 47.3034,80.106 47.0083,80.0468 46.9651,80.036 46.7845,80.0511 46.7635,80.0555 46.7433,80.0631 46.7527,80.0892 46.7328,80.1031 46.5779,80.1333 46.5509,80.1374 46.5005,80.1484 46.4782,80.1661 46.5352,80.1855 46.806,80.2316 46.8614,80.2378 46.8909,80.2406 46.9264,80.2408 46.9655,80.2384 46.9928,80.2345 47.0237,80.2246 47.043,80.2139 47.0815,80.1999 47.161,80.1796 47.3263,80.1865 47.4957,80.1822 47.6975,80.1723 47.7244,80.171 47.8248,80.172 47.8513,80.1755 48.0323,80.2042 48.0007,80.2094 47.7766,80.2337 47.7377,80.2369 47.6664,80.2359 47.5536,80.2362 47.5178,80.238 47.4718,80.269 47.4994,80.2776 47.5647,80.2807 47.6006,80.2814 47.8902,80.2846 48.0395,80.2848 48.075,80.2902 47.9761,80.3349 47.9351,80.3385 47.5572,80.3361 47.468,80.3284 47.3162,80.3168 47.2837,80.3152 47.2402,80.3199 47.2665,80.3326 47.6557,80.3896 47.6824,80.3929 47.8567,80.4098 47.8863,80.4125 47.9262,80.4094 47.9686,80.4006 47.996,80.397 48.0291,80.3956 48.0683,80.4015 48.0947,80.4149 48.1247,80.4238 48.1487,80.4281 48.1758,80.4315 48.2394,80.4354 48.2791,80.4324 48.3878,80.402 48.5926,80.3644 48.6318,80.3614 48.6679,80.3619 48.6923,80.3662 48.7377,80.3758 48.7497,80.3918 48.7954,80.3944 48.8825,80.3904 48.9609,80.3893 49.0349,80.3909 49.0631,80.3997 49.0193,80.4187 49.1008,80.4466 49.1224,80.4496 49.1771,80.4515 49.2339,80.4637 49.2503,80.4773 49.1946,80.4885 49.1613,80.492 49.1352,80.5005 49.158,80.5117 49.2806,80.5214 49.3197,80.5187 49.347,80.5145 49.3801,80.5112 49.4255,80.5084 49.4681,80.5068 49.5036,80.5112 49.5214,80.5855 49.5001,80.5898 49.4665,80.5909 49.4354,80.5887 49.4104,80.5844 49.3505,80.5778 49.2607,80.5697 49.0766,80.5552 49.0493,80.5615 49.0697,80.5786 49.0997,80.5878 49.1538,80.6024 49.1538,80.6024 52,3.0,Russia 57.7568,80.6972 57.8375,80.7091 57.9157,80.7237 57.9394,80.7294 57.9962,80.7372 58.0598,80.7419 58.3256,80.755 58.4602,80.7605 58.5285,80.7633 58.5659,80.7627 58.6036,80.7591 58.6342,80.755 58.7195,80.7418 58.768,80.7328 58.7854,80.7277 58.8343,80.6897 58.7958,80.6592 58.7519,80.6449 58.7257,80.6403 58.6951,80.6372 58.6556,80.6392 58.5816,80.6468 58.545,80.6472 58.4753,80.6457 58.449,80.6408 58.4314,80.6352 58.4227,80.6293 58.4076,80.6225 58.3792,80.6187 58.349,80.616 58.3162,80.6138 58.2813,80.6135 58.2446,80.6135 58.2053,80.6149 58.164,80.6174 58.1356,80.6207 58.0874,80.6295 58.0571,80.6339 58.0198,80.6375 57.9761,80.6409 57.9345,80.6435 57.8953,80.6449 57.8581,80.6452 57.7379,80.6499 57.6763,80.6583 57.652,80.6627 57.6317,80.6703 57.6377,80.6796 57.655,80.685 57.681,80.6901 57.7568,80.6972 57.7568,80.6972 55,3.0,Russia 53.8299,80.6938 53.8638,80.7085 53.8853,80.7146 53.9148,80.7175 54.0857,80.724 54.1582,80.7251 54.2485,80.7131 54.2882,80.7118 54.5965,80.7289 54.7827,80.7515 54.8101,80.7559 54.8401,80.7586 54.8771,80.7604 54.9521,80.7605 54.992,80.7591 55.0756,80.7525 55.1075,80.7487 55.1269,80.7437 55.2705,80.7186 55.4204,80.6992 55.4523,80.6953 55.6309,80.6826 55.799,80.666 55.7745,80.6595 55.7447,80.6566 55.6476,80.6507 55.3504,80.636 55.1926,80.6312 55.1283,80.6271 54.9659,80.6164 54.937,80.6117 54.888,80.602 54.8289,80.5958 54.7016,80.5874 54.6642,80.5876 54.625,80.5885 54.4888,80.6089 54.5064,80.6231 54.5161,80.6358 54.4973,80.6435 54.4651,80.6472 54.4205,80.6505 54.3861,80.6491 54.2554,80.6425 54.0852,80.636 54.0481,80.636 54.006,80.6384 53.9287,80.645 53.9032,80.6494 53.832,80.6626 53.8016,80.673 53.8011,80.6847 53.816,80.6908 53.8299,80.6938 53.8299,80.6938 114,3.0,Russia 59.1234,80.4108 59.1668,80.4208 59.1798,80.4303 59.085,80.4513 59.0661,80.4594 59.0316,80.5145 59.0894,80.5644 59.1784,80.6024 59.3554,80.6658 59.4205,80.6839 59.4449,80.6898 59.4718,80.6946 59.5008,80.6982 59.5314,80.7012 59.6813,80.7098 59.7148,80.7112 59.8842,80.7173 59.9218,80.7169 59.9628,80.7144 60.0063,80.7109 60.0364,80.7065 60.0613,80.699 60.0342,80.6924 59.9663,80.6902 59.9289,80.6908 59.8631,80.6877 59.8319,80.6848 59.8027,80.6814 59.7737,80.6738 59.8083,80.671 59.9073,80.6758 59.9424,80.6765 60.0867,80.6766 60.1237,80.6762 60.1556,80.6691 60.3651,80.6787 60.6963,80.6945 60.9229,80.7084 61.1622,80.7177 61.2135,80.7214 61.2789,80.727 61.3347,80.7438 61.3622,80.7528 61.3956,80.7541 61.6513,80.7528 61.7277,80.7509 61.8451,80.7454 61.8878,80.7417 61.9201,80.7316 61.9986,80.689 62.017,80.6783 62.0829,80.6385 62.0759,80.6238 62.0505,80.6058 62.0183,80.5868 62.0009,80.5807 61.9494,80.5691 61.9069,80.557 61.8385,80.5308 61.8476,80.5258 61.87,80.5208 61.8985,80.5165 61.9211,80.5117 61.9368,80.5068 61.9438,80.4982 61.8874,80.4862 61.8583,80.4826 61.7404,80.4692 61.6752,80.4663 61.6061,80.4653 61.57,80.466 61.537,80.4643 61.5063,80.4621 61.3826,80.4237 61.1904,80.35 61.1724,80.3402 61.1495,80.3336 61.1247,80.3278 61.0506,80.3101 60.8995,80.2775 60.8715,80.2738 60.8393,80.2722 60.8055,80.2718 60.7642,80.2754 60.4189,80.3083 60.3034,80.3257 60.2355,80.3395 60.219,80.3445 60.1969,80.349 60.1384,80.3581 60.0567,80.364 60.024,80.3625 59.9959,80.3492 59.9785,80.3381 59.9524,80.3335 59.8963,80.326 59.7542,80.3079 59.6946,80.3027 59.6624,80.3012 59.469,80.2922 59.4355,80.2952 59.3746,80.3267 59.3482,80.3371 59.3316,80.3419 59.3086,80.3465 59.2559,80.3554 59.1673,80.3681 59.1214,80.3774 59.0814,80.3868 59.0647,80.3921 59.0555,80.4001 59.1124,80.4108 59.1234,80.4108 59.1234,80.4108 167,3.0,Russia 45.9371,80.3069 45.909,80.3109 45.893,80.3158 45.8802,80.3334 45.873,80.3515 45.8702,80.3642 45.879,80.3776 45.8865,80.3845 45.9075,80.3992 45.9333,80.4216 45.9052,80.4364 45.8886,80.4411 45.8523,80.4433 45.6299,80.4219 45.4799,80.3957 45.4274,80.3882 45.3913,80.3879 45.3487,80.3889 45.3264,80.393 45.3054,80.4038 45.296,80.4156 45.2854,80.4212 45.2583,80.4315 45.2417,80.4362 45.1745,80.449 45.1461,80.4525 45.1058,80.4553 45.0136,80.4594 44.9278,80.4615 44.8388,80.4652 44.758,80.4702 44.7353,80.4748 44.7158,80.4823 44.7363,80.49 44.8553,80.5015 45.0158,80.516 45.0819,80.5196 45.3185,80.5314 45.388,80.5339 45.5869,80.5329 45.8064,80.5346 45.8396,80.5364 46.1494,80.5598 46.2096,80.5651 46.2363,80.5687 46.3672,80.5899 46.2799,80.5974 46.2528,80.6022 46.2872,80.6072 46.3878,80.6119 46.5348,80.6146 46.6125,80.6096 46.6494,80.6103 46.6827,80.6118 46.8479,80.6213 46.875,80.6247 47.0422,80.6635 47.0504,80.6705 47.0409,80.6761 47.0182,80.68 46.9778,80.6831 46.9493,80.6872 46.9393,80.6921 46.9602,80.6976 47.0457,80.7075 47.3109,80.7216 47.3481,80.7227 47.495,80.711 47.6175,80.6899 47.7429,80.6709 47.7832,80.6677 47.8201,80.6683 47.8543,80.6698 47.9462,80.6774 48.0051,80.683 48.0295,80.688 48.0573,80.6912 48.0879,80.6937 48.1285,80.693 48.1844,80.6855 48.3735,80.6576 48.4601,80.6394 48.4968,80.6182 48.4816,80.6132 48.4476,80.6119 48.4015,80.6144 48.3644,80.6136 48.34,80.6091 48.3216,80.6028 48.3066,80.5956 48.2973,80.5884 48.3064,80.5829 48.3372,80.5805 48.3743,80.581 48.4049,80.5785 48.4261,80.5743 48.4784,80.5597 48.5972,80.5263 48.6082,80.5181 48.6032,80.4898 48.5939,80.4829 48.5667,80.4794 48.5269,80.4822 48.442,80.4929 48.3414,80.5055 48.1842,80.5159 48.1114,80.5147 47.9828,80.5214 47.9431,80.5243 47.9092,80.5279 47.8815,80.5319 47.8599,80.5362 47.7519,80.5785 47.6253,80.6302 47.5975,80.6341 47.5055,80.6262 47.4783,80.6232 47.4509,80.6195 47.4266,80.615 47.4059,80.6096 47.3599,80.5757 47.2582,80.5524 47.2247,80.5509 47.2009,80.5465 47.1802,80.541 47.1502,80.5227 47.1589,80.5141 47.2061,80.4996 47.234,80.4956 47.2812,80.4811 47.2923,80.468 47.2713,80.4579 47.2323,80.4581 47.2043,80.4619 47.1547,80.4703 47.1331,80.4748 47.1171,80.4793 47.0398,80.4914 47.015,80.4946 46.9101,80.4606 46.893,80.454 46.8847,80.4472 46.8807,80.4343 46.8725,80.4273 46.8553,80.421 46.6948,80.4232 46.5792,80.4256 46.499,80.4257 46.4849,80.4206 46.534,80.3902 46.5153,80.3832 46.3786,80.3896 46.3585,80.384 46.3448,80.3769 46.3529,80.3647 46.363,80.3598 46.3717,80.3531 46.38,80.3417 46.3689,80.3358 46.3428,80.332 46.2832,80.3294 46.1723,80.3281 46.1399,80.3264 46.0806,80.3214 46.0022,80.3104 45.9371,80.3069 45.9371,80.3069 42,3.0,Russia 55.3215,80.5912 55.3738,80.5987 55.6039,80.6254 55.7443,80.6301 56.1554,80.6428 56.2946,80.6461 56.3314,80.6458 56.3712,80.6448 56.5956,80.6037 56.7473,80.5656 56.7653,80.561 56.7525,80.5309 56.7273,80.5259 56.5557,80.5052 56.5261,80.5026 56.2588,80.4927 56.1699,80.506 56.1584,80.5115 56.1273,80.515 56.0883,80.5163 56.0196,80.5146 55.9555,80.5109 55.926,80.5079 55.8352,80.5001 55.7255,80.5002 55.6073,80.5073 55.4643,80.5187 55.4331,80.5225 55.4245,80.5311 55.4524,80.5391 55.4795,80.5429 55.5017,80.5493 55.5249,80.5593 55.5165,80.568 55.4915,80.5723 55.4521,80.5732 55.3415,80.5736 55.27,80.5728 55.254,80.5765 55.2673,80.5835 55.3215,80.5912 55.3215,80.5912 31,-6.0,Canada -94.7591,80.5489 -94.7397,80.5452 -94.7247,80.5387 -94.6643,80.5063 -94.6757,80.5007 -94.7014,80.4954 -94.8841,80.4776 -94.92,80.4781 -95.1467,80.4979 -95.3035,80.5166 -95.369,80.522 -95.4038,80.5228 -95.441,80.5225 -95.4796,80.5207 -95.5152,80.517 -95.5548,80.5145 -95.7526,80.5251 -95.8086,80.5288 -95.8396,80.5332 -95.8296,80.5382 -95.7669,80.5513 -95.7188,80.5555 -95.6968,80.5563 -95.1836,80.5682 -95.1166,80.5677 -94.8934,80.5658 -94.8599,80.5635 -94.8221,80.5603 -94.7902,80.557 -94.7591,80.5489 -94.7591,80.5489 17,-2.0,Greenland -66.6638,80.5065 -66.6796,80.5414 -66.6686,80.5501 -66.6456,80.5542 -66.6124,80.5562 -66.5505,80.5494 -66.5316,80.5465 -66.3185,80.4873 -66.3323,80.4809 -66.3811,80.4774 -66.4682,80.4753 -66.5522,80.4756 -66.5744,80.4792 -66.6367,80.4947 -66.6469,80.4984 -66.6638,80.5065 -66.6638,80.5065 28,3.0,Russia 53.044,80.3852 53.0318,80.3927 53.0273,80.4075 53.0438,80.4267 53.0557,80.4337 53.0918,80.4481 53.1127,80.4541 53.1302,80.4643 53.1044,80.4715 52.9799,80.48 52.9479,80.4836 52.9346,80.4888 52.9705,80.5173 52.9875,80.5223 53.0164,80.5253 53.0459,80.5225 53.2271,80.4953 53.3726,80.3959 53.3626,80.3852 53.2714,80.3546 53.2583,80.3514 53.2194,80.3523 53.1815,80.3559 53.1307,80.3642 53.086,80.373 53.0665,80.378 53.044,80.3852 53.044,80.3852 11,3.0,Russia 58.3606,80.4867 58.412,80.4963 58.6168,80.5153 58.6556,80.5142 58.6662,80.509 58.6177,80.4518 58.5813,80.4519 58.3776,80.4646 58.3508,80.4775 58.3606,80.4867 58.3606,80.4867 26,3.0,Russia 57.0989,80.4834 57.1307,80.487 57.1858,80.4947 57.2,80.5018 57.2079,80.5076 57.2316,80.5106 57.4172,80.508 57.6579,80.5099 57.7896,80.5124 57.824,80.5095 57.8348,80.5044 57.8485,80.4879 57.845,80.4762 57.7383,80.4312 57.715,80.4254 57.6854,80.4226 57.6171,80.4212 57.3439,80.4167 57.3051,80.4183 57.0811,80.4519 57.0568,80.4566 57.032,80.4698 57.0455,80.478 57.0732,80.482 57.0989,80.4834 57.0989,80.4834 48,3.0,Russia 53.6222,80.3376 53.6588,80.3451 53.6847,80.3522 53.6593,80.3697 53.7716,80.3874 53.7949,80.3956 53.7822,80.4039 53.7568,80.4079 53.7253,80.4119 53.6998,80.416 53.6806,80.4208 53.6678,80.432 53.6666,80.4496 53.6719,80.468 53.6983,80.4722 53.7299,80.4742 53.7951,80.4775 53.8342,80.4763 54.0312,80.4618 54.1007,80.4544 54.1385,80.445 54.1124,80.4412 54.0471,80.4379 54.0158,80.4357 53.9867,80.4326 53.9628,80.4236 53.9784,80.4152 54.016,80.412 54.1277,80.4108 54.2054,80.409 54.237,80.4051 54.2849,80.3676 54.2878,80.3411 54.157,80.2925 54.1285,80.2891 54.0949,80.2886 54.0566,80.2892 54.0194,80.2929 53.9944,80.2971 53.9696,80.3016 53.9567,80.3066 53.9377,80.3115 53.8816,80.3195 53.8003,80.326 53.6771,80.3321 53.6396,80.3352 53.6222,80.3376 53.6222,80.3376 23,3.0,Russia 54.4907,80.3888 54.4788,80.3925 54.4692,80.4006 54.4813,80.4089 54.5005,80.4164 54.529,80.4196 54.6748,80.4191 54.7087,80.4205 54.7401,80.4222 54.7931,80.4305 54.8208,80.431 54.8396,80.4262 54.9503,80.3857 54.9868,80.3675 54.9738,80.3578 54.8782,80.3372 54.8444,80.3361 54.7721,80.3364 54.6962,80.3408 54.6715,80.3453 54.5121,80.3815 54.4907,80.3888 54.4907,80.3888 82,3.0,Russia 57.4528,79.9839 57.3964,79.9937 57.355,79.9972 57.2521,79.9971 57.2209,79.9985 57.091,80.0379 57.0568,80.2069 57.0748,80.2513 57.0887,80.2599 57.0211,80.2947 57.0038,80.2993 56.8969,80.3228 56.8123,80.3352 56.7644,80.3443 56.7829,80.3489 57.0812,80.3592 57.1831,80.3618 57.2215,80.3605 57.4282,80.3572 57.5298,80.3614 57.5979,80.3625 57.6338,80.3623 57.7445,80.3604 57.783,80.3591 57.8617,80.3554 58.2085,80.3382 58.2937,80.3314 58.34,80.3225 58.4905,80.3073 58.6133,80.299 58.9641,80.2511 59.0101,80.2416 59.0575,80.2207 59.0866,80.2019 59.0579,80.1952 59.0284,80.1925 58.6053,80.2023 58.5213,80.2089 58.4503,80.2098 58.4208,80.2072 58.4126,80.1949 58.396,80.1847 58.3621,80.1837 58.247,80.1892 58.2156,80.1877 58.1862,80.1849 57.9987,80.1562 57.9492,80.1463 57.9079,80.1322 57.8928,80.1227 57.9085,80.115 57.9441,80.1112 57.9797,80.1106 58.0464,80.1122 58.1587,80.1079 58.2772,80.1006 58.2932,80.0929 58.2593,80.0466 58.2511,80.0404 58.2224,80.0375 58.1851,80.0392 57.9856,80.0558 57.8796,80.067 57.8691,80.0727 57.8357,80.0719 57.8071,80.0687 57.758,80.0592 57.7356,80.0533 57.7205,80.0433 57.7302,80.0351 57.7806,80.0202 57.7912,80.0149 57.8316,79.9803 57.8114,79.9718 57.7825,79.9692 57.7165,79.9677 57.5725,79.971 57.5357,79.9723 57.4942,79.9753 57.4654,79.9795 57.4528,79.9839 57.4528,79.9839 21,3.0,Russia 54.2781,80.2858 54.3222,80.3164 54.3345,80.3233 54.4458,80.3521 54.4982,80.36 54.5394,80.3583 54.5583,80.3534 54.6881,80.32 54.6874,80.3083 54.6749,80.2957 54.6559,80.2884 54.6324,80.2834 54.4943,80.2657 54.4631,80.264 54.3915,80.264 54.2813,80.2651 54.2407,80.2671 54.2002,80.2733 54.2231,80.2801 54.2781,80.2858 54.2781,80.2858 20,3.0,Russia 54.9275,80.2935 54.9463,80.293 54.9777,80.2949 55.004,80.2988 55.031,80.3072 55.0497,80.3164 55.0763,80.3201 55.1097,80.3211 55.1482,80.32 55.1667,80.3153 55.1872,80.3017 55.1367,80.2638 55.1278,80.2583 55.0252,80.2411 54.9918,80.2399 54.8051,80.2844 54.8136,80.2915 54.8422,80.2945 54.9275,80.2935 54.9275,80.2935 18,3.0,Russia 55.625,80.2871 55.6417,80.2971 55.6946,80.3051 55.7354,80.3032 55.8512,80.2962 56.0276,80.281 56.1077,80.274 56.1315,80.2698 56.1457,80.2617 56.1286,80.2516 56.0803,80.2415 56.0445,80.2417 55.8016,80.2551 55.6443,80.2678 55.6112,80.2745 55.615,80.2838 55.625,80.2871 55.625,80.2871 73,3.0,Russia 52.1534,80.0899 52.0974,80.1004 52.0846,80.1055 52.0157,80.1431 52.0323,80.1477 52.1455,80.1598 52.1757,80.1623 52.2086,80.1632 52.2467,80.1623 52.3466,80.1599 52.421,80.1703 52.5,80.1845 52.5146,80.2094 52.5126,80.2216 52.53,80.2288 52.5501,80.2349 52.6158,80.2516 52.7069,80.2726 52.7322,80.277 52.763,80.2791 52.9883,80.2815 53.0604,80.2819 53.1013,80.2798 53.133,80.2759 53.1681,80.2636 53.1473,80.2532 53.1485,80.241 53.1682,80.2306 53.1812,80.2251 53.2128,80.2157 53.2635,80.2009 53.2823,80.1962 53.4258,80.1705 53.451,80.1658 53.5128,80.1582 53.632,80.1534 53.663,80.1495 53.6818,80.1447 53.6992,80.1322 53.6891,80.1213 53.6303,80.1015 53.6095,80.0955 53.5847,80.0913 53.5539,80.0891 53.5139,80.0952 53.5071,80.1065 53.479,80.1139 53.4462,80.1128 53.4206,80.1086 53.3827,80.0949 53.3567,80.078 53.3489,80.0594 53.3438,80.0502 53.3235,80.0442 53.2629,80.0397 53.2279,80.0397 53.197,80.0436 53.1785,80.048 53.1479,80.0521 52.9587,80.0563 52.9285,80.0544 52.7675,80.0478 52.5449,80.0401 52.4703,80.0442 52.4566,80.0523 52.4496,80.0608 52.4263,80.066 52.3828,80.0684 52.3124,80.0683 52.1666,80.0722 52.1529,80.0804 52.1534,80.0899 52.1534,80.0899 50,3.0,Russia 55.6269,79.9993 55.6481,80.0037 55.6719,80.0088 55.783,80.0375 55.8477,80.0558 55.8669,80.0658 55.8144,80.0832 55.7774,80.1285 55.7917,80.1945 55.8051,80.2015 55.8293,80.2065 55.8575,80.2097 56.0111,80.2202 56.0846,80.2189 56.2676,80.2064 56.3598,80.1967 56.5059,80.2202 56.5203,80.23 56.5446,80.2354 56.5759,80.237 56.7189,80.2364 56.7955,80.2304 56.8679,80.2227 56.8978,80.2188 56.9154,80.2139 56.9488,80.1833 56.9482,80.1684 56.9236,80.0844 56.9099,80.0445 56.9373,79.9888 56.9567,79.9819 56.9512,79.9729 56.8911,79.9564 56.8691,79.9504 56.843,79.9465 56.8145,79.9438 56.782,79.9434 56.5809,79.9404 56.4823,79.9412 56.3627,79.9489 56.3253,79.95 56.0298,79.9491 55.9274,79.9486 55.8293,79.9458 55.7878,79.9473 55.7522,79.9509 55.5406,79.9778 55.5809,79.9919 55.6269,79.9993 55.6269,79.9993 24,3.0,Russia 54.72,80.134 54.7398,80.1437 54.7682,80.1467 54.8348,80.1484 54.8983,80.1516 54.9298,80.1599 54.9227,80.1765 55.1217,80.2132 55.1527,80.2151 55.1953,80.2122 55.3288,80.1928 55.3448,80.1873 55.3675,80.165 55.3664,80.1527 55.3476,80.1455 55.1934,80.1203 55.1133,80.1092 54.9766,80.0918 54.9461,80.09 54.8451,80.0998 54.6954,80.1184 54.6837,80.1238 54.72,80.134 54.72,80.134 22,3.0,Russia 54.0055,80.0899 54.0449,80.1242 53.9766,80.1554 53.9765,80.1674 53.9912,80.1774 54.0279,80.1916 54.0487,80.1981 54.0769,80.201 54.1126,80.2012 54.1497,80.1977 54.2235,80.1847 54.2636,80.1723 54.2732,80.1519 54.273,80.134 54.2638,80.1067 54.2488,80.0966 54.2232,80.0925 54.0504,80.0759 54.0148,80.0758 53.9966,80.0836 54.0055,80.0899 54.0055,80.0899 27,-2.0,Greenland -19.0249,80.0229 -19.2846,79.9998 -19.3087,79.997 -19.4553,79.9765 -19.7209,79.9471 -19.8446,79.9354 -19.8769,79.9335 -19.9118,79.9355 -19.9497,79.969 -19.8575,80.054 -19.8486,80.0596 -19.8074,80.0834 -19.7727,80.0956 -19.7264,80.1078 -19.6939,80.1127 -19.6614,80.1162 -19.5942,80.1195 -19.5319,80.1206 -19.486,80.1192 -19.4152,80.1143 -19.38,80.1105 -19.0075,80.0467 -18.971,80.0392 -18.9586,80.0355 -18.9736,80.0295 -19.0249,80.0229 -19.0249,80.0229 42,3.0,Russia 49.7156,79.9397 49.6528,79.9688 49.5384,79.9828 49.4267,80.0037 49.3824,80.0156 49.3759,80.0242 49.3853,80.0311 49.4029,80.0374 49.4452,80.0485 49.4691,80.053 49.7373,80.0991 49.7642,80.1027 49.7939,80.105 49.8617,80.1068 49.9412,80.1046 49.9848,80.102 50.0226,80.0985 50.0744,80.0907 50.1144,80.0815 50.1479,80.0721 50.1663,80.0642 50.1727,80.0464 50.1547,80.0354 50.118,80.0228 50.0941,80.0185 50.0615,80.0168 50.0239,80.0177 49.9916,80.0163 49.962,80.0138 49.9439,80.0078 49.934,80.0004 49.9204,79.9878 49.8896,79.9563 49.9268,79.9448 49.9067,79.9353 49.8801,79.9322 49.8478,79.9309 49.8134,79.9309 49.7728,79.9325 49.7356,79.9353 49.7156,79.9397 49.7156,79.9397 22,3.0,Russia 59.7196,80.0532 59.7095,80.0662 59.7383,80.0729 59.7697,80.0748 59.8031,80.0754 59.8737,80.0761 59.9085,80.0755 59.9498,80.072 59.9844,80.0676 60.0413,80.0594 60.0856,80.0497 60.097,80.0417 60.0711,80.0352 60.0398,80.0335 60.0031,80.0349 59.9619,80.0386 59.9338,80.0429 59.8948,80.0455 59.7541,80.0476 59.7276,80.0509 59.7196,80.0532 59.7196,80.0532 309,7.0,Russia 95.9952,78.8745 96.0576,78.8989 96.0119,78.9052 95.9735,78.9052 95.9077,78.9035 95.8837,78.9 95.8628,78.8956 95.787,78.8857 95.7043,78.8781 95.6732,78.877 95.6388,78.876 95.3988,78.8804 95.3585,78.8895 95.3483,78.9322 95.3703,78.9501 95.2722,78.9789 95.2359,78.9883 95.1986,78.9902 95.1671,78.9885 95.112,78.9835 95.0881,78.9799 95.0594,78.973 95.0377,78.9643 94.9878,78.9484 94.8555,78.9253 94.8279,78.9226 94.7934,78.9221 94.713,78.9234 94.6898,78.9272 94.4826,78.9673 94.4054,78.992 94.3518,79.0592 94.3284,79.0775 94.2728,79.0877 94.2115,79.0932 94.1554,79.099 94.1317,79.103 94.0712,79.1157 94.0297,79.133 94.0155,79.2267 94.0238,79.2783 94.0422,79.2919 94.0593,79.3113 94.0543,79.3392 94.0356,79.3471 93.9973,79.3562 93.9736,79.3598 93.9386,79.3606 93.7991,79.3566 93.7602,79.3461 93.7821,79.3204 93.7571,79.3123 93.6932,79.309 93.6537,79.3091 93.6203,79.3113 93.5914,79.3146 93.4187,79.3385 93.5123,79.3493 93.6403,79.3562 93.6646,79.3595 93.6893,79.3738 93.6122,79.3807 93.5303,79.3906 93.3924,79.4205 93.4234,79.4241 93.4517,79.427 93.4844,79.4328 93.557,79.4662 93.5819,79.4808 93.5032,79.4858 93.4747,79.4832 93.4503,79.4796 93.4213,79.4729 93.2329,79.4169 93.1543,79.3863 93.1694,79.3574 93.0633,79.3347 93.0393,79.3312 92.959,79.3223 92.931,79.3196 92.9003,79.3196 92.8643,79.325 92.8337,79.3478 92.9197,79.3672 92.9519,79.369 93.0163,79.3769 92.983,79.3987 92.9418,79.4037 92.8622,79.4037 92.7511,79.4101 92.5618,79.4388 92.6303,79.4461 92.6694,79.4444 92.7278,79.4387 92.7861,79.4289 92.8204,79.4231 92.8543,79.421 92.8942,79.421 92.9624,79.4233 92.9867,79.4268 93.3416,79.4947 93.4873,79.5576 93.5015,79.5724 93.5521,79.5884 93.7798,79.6458 93.8046,79.6492 93.9816,79.6638 94.0473,79.667 94.1129,79.6703 94.2116,79.6754 94.3144,79.6925 94.3298,79.7071 94.2366,79.7229 94.1233,79.7359 94.0444,79.7464 93.9228,79.7801 94.058,79.8291 94.1296,79.8461 94.1707,79.8457 94.31,79.8603 94.3354,79.8638 94.4477,79.884 94.4696,79.8883 94.6332,79.9387 94.6096,79.9676 94.6357,79.9731 94.6696,79.9748 94.7058,79.974 94.7999,79.9413 94.9283,79.8961 94.9644,79.8951 94.9945,79.8976 95.0295,79.903 95.0491,79.9122 95.0542,79.942 95.0909,79.9632 95.1355,79.9713 95.188,79.9773 95.2778,79.9845 95.6644,79.9797 95.7954,79.9657 95.8334,79.962 95.8714,79.9626 96.0646,79.9697 96.1326,79.9727 96.4224,79.9867 96.6081,79.9992 96.754,80.0267 96.7783,80.0352 96.8049,80.0386 96.8353,80.0409 96.877,80.0404 97.0089,80.0356 97.1841,80.0418 97.2259,80.0416 97.3063,80.0373 97.395,80.0276 97.5178,79.9971 97.7225,79.9434 97.657,79.886 97.5155,79.8062 97.3371,79.7141 97.3164,79.6647 97.228,79.6396 97.1391,79.6228 97.0879,79.6167 96.981,79.6042 96.9518,79.6022 96.9262,79.5988 96.8933,79.5863 96.9306,79.5793 97.2392,79.6182 97.3388,79.6322 97.4073,79.6543 97.4213,79.6863 97.5092,79.7082 97.5541,79.7166 97.569,79.7569 97.5837,79.7733 97.6286,79.7818 97.6588,79.784 97.7296,79.7859 97.7636,79.7833 97.8628,79.7679 97.9191,79.7574 97.9752,79.7474 98.0034,79.744 98.0408,79.7443 98.0786,79.7495 98.125,79.7722 98.2636,79.8549 98.2263,79.8673 98.2028,79.8716 98.1273,79.8842 98.162,79.9185 98.1914,79.9255 98.2145,79.929 98.2562,79.9285 98.2903,79.9261 98.3189,79.923 98.355,79.9143 98.3784,79.9105 98.4129,79.9079 98.4541,79.9075 98.4879,79.9084 98.5903,79.9161 98.7071,79.9235 98.7458,79.9248 98.8321,79.9229 98.8714,79.9209 98.9002,79.9177 98.9234,79.9139 99.055,79.8773 99.1267,79.8544 99.1818,79.824 99.2317,79.813 99.2709,79.811 99.3421,79.8122 99.365,79.8079 99.4821,79.7814 99.6963,79.7046 99.7497,79.6533 99.7253,79.6432 99.6474,79.6237 99.5809,79.6213 99.4599,79.5161 99.4104,79.4562 99.3708,79.3486 99.3912,79.2594 99.4271,79.2468 99.3712,79.1918 99.3472,79.1781 99.2895,79.1736 99.2751,79.1562 99.1449,79.1295 99.0777,79.1439 99.0097,79.1629 98.9705,79.1716 98.9043,79.1839 98.877,79.1875 98.8434,79.1885 98.8075,79.1883 98.779,79.1862 98.7537,79.183 98.7348,79.1698 99.1069,79.0768 99.1285,79.0726 99.1772,79.065 99.2042,79.0616 99.2865,79.0419 99.2642,79.0282 99.2006,79.0259 99.1848,79.0139 99.2193,79.006 99.2506,79.0033 99.3927,78.9939 99.4243,78.991 99.5043,78.9802 99.5432,78.9682 99.6331,78.8439 99.6135,78.8257 99.5878,78.818 99.5661,78.8137 99.5418,78.8107 99.4768,78.7983 99.4159,78.7851 99.3798,78.7751 99.3363,78.7532 99.2116,78.7201 99.1687,78.7119 99.1197,78.7057 99.0891,78.7044 99.0546,78.7042 98.9826,78.7085 98.9042,78.7107 98.8733,78.7095 98.8452,78.707 98.7137,78.6943 98.5517,78.6977 98.3493,78.6944 98.2876,78.692 98.2585,78.6861 98.2897,78.6676 98.2569,78.6602 98.0402,78.6631 97.9865,78.6699 97.9551,78.6851 97.9192,78.6872 97.8815,78.6878 97.7149,78.6903 97.5694,78.6928 97.4422,78.7022 97.3459,78.714 97.292,78.7254 97.2553,78.7297 97.1112,78.7297 97.0049,78.7288 96.9733,78.7316 96.9467,78.7352 96.8198,78.7652 96.7338,78.7885 96.6567,78.813 96.5675,78.8485 96.3934,78.875 96.2295,78.8734 96.0493,78.8723 96.0079,78.8736 95.9952,78.8745 95.9952,78.8745 59,-6.0,Canada -99.8574,79.7929 -99.8382,79.7787 -99.8234,79.7734 -99.801,79.7667 -99.7778,79.7614 -99.7505,79.757 -99.7158,79.7551 -99.686,79.7547 -99.4816,79.7568 -99.4135,79.7592 -99.3819,79.763 -99.3608,79.7681 -99.3289,79.7734 -99.2955,79.7735 -99.2659,79.772 -99.2383,79.769 -99.0513,79.7381 -98.9984,79.7288 -98.9851,79.7254 -98.979,79.7166 -98.9807,79.693 -98.9872,79.6655 -98.9965,79.6567 -99.0059,79.6454 -98.9853,79.6352 -98.9576,79.6319 -98.9273,79.6291 -98.8244,79.6215 -98.6529,79.605 -98.6215,79.6006 -98.554,79.5818 -98.5162,79.5453 -98.4653,79.5829 -98.3587,79.6526 -98.3342,79.6641 -98.3295,79.6777 -98.3891,79.8459 -98.458,79.8941 -98.5422,79.948 -98.5545,79.9529 -98.7684,79.9971 -98.7972,80.0028 -98.8235,80.005 -98.984,79.9916 -99.0897,79.9812 -99.1215,79.9805 -99.1568,79.9831 -99.2565,80.0049 -99.282,80.0142 -99.3104,80.0207 -99.4114,80.0225 -99.4438,80.0216 -99.4797,80.0199 -99.5116,80.0155 -99.7063,79.9736 -99.7479,79.9646 -99.7637,79.9594 -99.873,79.9115 -99.8574,79.7929 37,3.0,Russia 58.6111,79.886 58.5733,79.9027 58.5883,79.9132 58.6127,79.9178 58.7184,79.9337 58.7447,79.9374 58.8277,79.9471 59.1368,79.9827 59.1657,79.9854 59.263,79.9878 59.3655,79.9845 59.5976,79.9631 59.6195,79.959 59.6354,79.9538 59.6544,79.944 59.6686,79.8677 59.5519,79.839 59.5272,79.834 59.5004,79.8302 59.4431,79.825 59.3531,79.8184 59.2407,79.8064 59.2322,79.8004 59.1749,79.7947 59.0237,79.8041 58.9954,79.8082 58.9854,79.8135 59.007,79.8236 58.9923,79.8313 58.9701,79.8362 58.8911,79.8492 58.8628,79.8538 58.8305,79.8567 58.7206,79.8609 58.6924,79.8652 58.6111,79.886 58.6111,79.886 52,3.0,Russia 49.9059,79.8592 49.9467,79.8624 50.0954,79.8734 50.1269,79.8746 50.1645,79.8741 50.2015,79.8708 50.2449,79.8611 50.282,79.8582 50.3513,79.8587 50.383,79.86 50.4097,79.8637 50.4279,79.8701 50.4437,79.8865 50.4857,79.9155 50.5041,79.9217 50.5281,79.9259 50.5549,79.9293 50.5845,79.9314 50.6809,79.9348 50.708,79.9383 50.7455,79.9503 50.7655,79.9634 50.7819,79.9705 50.8089,79.9734 50.8463,79.9729 50.8658,79.9686 51.0415,79.9157 51.2211,79.8457 51.3371,79.8118 51.3268,79.8046 51.3031,79.8004 51.2737,79.798 51.21,79.7956 51.1759,79.7955 50.9077,79.8035 50.791,79.8077 50.7512,79.8096 50.6774,79.816 50.5924,79.8217 50.555,79.822 50.4863,79.8218 50.4545,79.8203 50.3855,79.8196 50.3481,79.8204 50.1286,79.8307 50.0058,79.8393 49.926,79.8451 49.8946,79.8486 49.8837,79.853 49.896,79.8588 49.9059,79.8592 49.9059,79.8592 17,3.0,Russia 49.1982,79.9248 49.1744,79.9351 49.2745,79.967 49.3039,79.967 49.3353,79.9638 49.4188,79.9527 49.4386,79.9483 49.5162,79.9192 49.5226,79.9111 49.4915,79.9057 49.3084,79.8947 49.2736,79.8943 49.2568,79.8975 49.2426,79.9026 49.2205,79.9124 49.1982,79.9248 49.1982,79.9248 105,7.0,Russia 90.7963,79.9254 90.7607,79.9275 90.6325,79.9291 90.591,79.9289 90.5748,79.9337 90.5871,79.9397 90.6203,79.9415 90.7576,79.9395 90.8341,79.9363 90.8858,79.9298 90.9474,79.9244 91.0341,79.9239 91.1837,79.9278 91.2465,79.933 91.3172,79.9358 91.4003,79.9361 91.5651,79.9351 91.6283,79.9327 91.6587,79.9298 91.7152,79.9238 91.9271,79.9167 92.094,79.9121 92.1343,79.9105 92.17,79.9084 92.2003,79.9057 92.2461,79.8917 92.3249,79.8922 92.5286,79.9016 92.57,79.9017 92.6105,79.9003 92.7313,79.8891 92.9533,79.8633 93.2399,79.8314 93.4347,79.8013 93.4745,79.7921 93.4895,79.7869 93.5089,79.7718 93.4772,79.7482 93.4245,79.7236 93.4079,79.7187 93.3659,79.7099 93.3194,79.7013 93.2409,79.6917 93.1834,79.6864 93.1204,79.6733 93.1036,79.6679 93.0947,79.661 93.0818,79.6548 93.0613,79.6502 93.0364,79.647 92.8471,79.6169 92.7521,79.5932 92.711,79.5843 92.6257,79.5763 92.5609,79.5732 92.476,79.5649 92.3421,79.5498 92.2934,79.5427 92.2614,79.541 92.1045,79.54 91.9839,79.5397 91.9445,79.5409 91.6301,79.5544 91.6236,79.5854 91.6394,79.5909 91.6594,79.5951 91.6876,79.5978 91.8619,79.6136 91.9013,79.612 91.9214,79.6077 91.9368,79.6028 91.9472,79.597 91.9722,79.5932 92.0036,79.5935 92.0358,79.5952 92.0483,79.6014 92.0567,79.6085 92.0454,79.6213 91.9943,79.643 91.9482,79.6582 91.8721,79.6763 91.8268,79.6843 91.8018,79.6878 91.7568,79.6887 91.7241,79.6867 91.7,79.6832 91.6633,79.6821 91.542,79.6833 91.2075,79.6911 90.9968,79.7039 90.8286,79.721 90.8034,79.7247 90.7825,79.729 90.7666,79.7387 90.7757,79.7547 90.8317,79.7688 90.8764,79.777 90.905,79.78 90.9479,79.8141 90.8897,79.8855 90.8481,79.9108 90.8371,79.9161 90.8214,79.9209 90.7963,79.9254 90.7963,79.9254 21,7.0,Russia 93.687,79.889 93.7325,79.8875 93.7618,79.8899 93.8466,79.8982 93.9019,79.904 93.9278,79.9071 93.9456,79.9121 93.9699,79.9138 94.005,79.9116 94.0216,79.9035 94.006,79.8959 93.8697,79.8612 93.8481,79.8568 93.745,79.847 93.716,79.8448 93.6826,79.8428 93.6414,79.843 93.6264,79.8481 93.6619,79.8854 93.687,79.889 93.687,79.889 32,3.0,Russia 58.1757,79.8182 58.2122,79.8185 58.2386,79.8224 58.263,79.8276 58.3072,79.8393 58.4436,79.8569 58.4762,79.8558 58.463,79.8431 58.4822,79.8293 58.4986,79.8247 58.5691,79.805 58.5913,79.8005 58.6262,79.7964 58.6623,79.7949 58.7393,79.7902 58.7739,79.7858 58.7975,79.7786 58.706,79.7537 58.6777,79.751 58.6434,79.7512 58.607,79.7528 58.5728,79.7568 58.5506,79.7612 58.5187,79.7711 58.4516,79.7851 58.3385,79.8023 58.2977,79.8057 58.2612,79.8071 58.1293,79.8052 58.0935,79.8097 58.1757,79.8182 58.1757,79.8182 28,7.0,Russia 91.3285,79.5304 91.2893,79.5317 91.1997,79.5401 91.1444,79.5466 90.9433,79.5752 90.8616,79.5926 90.8456,79.5973 90.835,79.6033 90.8424,79.6102 90.8709,79.6131 90.907,79.6141 90.9516,79.6136 90.9958,79.6119 91.0124,79.6094 91.0732,79.605 91.2222,79.5981 91.3413,79.5942 91.4259,79.5935 91.4964,79.5907 91.5459,79.5643 91.5673,79.5493 91.5475,79.5414 91.5237,79.5376 91.4953,79.5349 91.4551,79.5345 91.3607,79.5321 91.3285,79.5304 91.3285,79.5304 15,7.0,Russia 99.6268,79.4602 99.5909,79.4781 99.6139,79.5437 99.6251,79.5653 99.6799,79.5771 99.7061,79.5799 99.7359,79.5823 99.9872,79.5481 99.8696,79.5372 99.8433,79.5341 99.7523,79.5181 99.71,79.5091 99.6942,79.5031 99.6268,79.4602 99.6268,79.4602 57,6.0,Russia 76.376,79.4248 76.3343,79.4204 76.2908,79.4196 76.1293,79.4281 76.0117,79.4372 75.9546,79.4422 75.93,79.4456 75.9125,79.4506 75.8683,79.4682 75.8143,79.4928 75.8021,79.5084 75.8033,79.5188 75.8139,79.528 75.8331,79.5325 75.857,79.5362 75.8962,79.538 75.9726,79.5375 76.0361,79.5247 75.9679,79.5198 75.9292,79.5178 75.9027,79.5116 75.9319,79.4963 75.9912,79.4824 76.0201,79.4802 76.0637,79.4807 76.1556,79.5043 76.1648,79.5142 76.1836,79.5187 76.2174,79.5209 76.2539,79.52 76.2864,79.5183 76.3149,79.5159 76.6278,79.4774 76.755,79.4608 76.8776,79.4432 76.923,79.4353 76.9471,79.432 77.004,79.4266 77.0647,79.4223 77.2249,79.4137 77.3286,79.4103 77.3495,79.4059 77.3659,79.4005 77.3727,79.3905 77.3604,79.3813 77.3461,79.376 77.2736,79.3719 77.2337,79.3719 77.2021,79.374 77.1659,79.375 76.9319,79.3755 76.6546,79.3676 76.5387,79.3628 76.4534,79.3896 76.3923,79.4204 76.376,79.4248 76.376,79.4248 20,7.0,Russia 91.5396,79.292 91.6019,79.301 91.6326,79.3014 91.6668,79.2988 91.7251,79.2933 91.7682,79.2922 91.8156,79.2994 91.8356,79.3039 91.8632,79.3157 91.9621,79.3291 91.994,79.3312 92.0327,79.3296 92.1766,79.3118 92.0089,79.2673 91.9852,79.2635 91.9541,79.262 91.9105,79.2623 91.6616,79.2795 91.5396,79.292 91.5396,79.292 18,7.0,Russia 92.3065,79.284 92.2926,79.2911 92.3138,79.298 92.4525,79.3185 92.4801,79.321 92.6178,79.3162 92.642,79.3124 92.6933,79.2952 92.6631,79.2806 92.6432,79.2765 92.6154,79.2737 92.514,79.2642 92.4155,79.2595 92.3855,79.2609 92.3661,79.2657 92.3174,79.2801 92.3065,79.284 92.3065,79.284 255,7.0,Russia 101.0667,78.8901 100.9196,78.9198 100.8935,78.9235 100.8626,78.9262 100.7434,78.9321 100.7125,78.9353 100.6777,78.946 100.7092,79.0027 100.8815,79.0884 100.9262,79.1073 100.9706,79.1148 101.0296,79.1198 101.0617,79.1208 101.1326,79.1211 101.1648,79.1222 101.1938,79.1243 101.2279,79.1304 101.2377,79.1668 101.2094,79.187 101.2257,79.2267 101.2519,79.2354 101.3074,79.2405 101.4571,79.2494 101.4892,79.2502 101.5216,79.2409 101.6336,79.1805 101.6475,79.1652 101.6386,79.1477 101.6653,79.1373 101.8882,79.1214 101.9239,79.1217 101.9433,79.13 101.9007,79.148 101.8527,79.1627 101.8359,79.1876 101.8241,79.2126 101.8196,79.2419 101.8564,79.2751 101.8833,79.2888 101.9112,79.2966 101.9575,79.3045 101.9838,79.3073 102.0427,79.3115 102.077,79.3098 102.1033,79.306 102.2117,79.2931 102.3554,79.2798 102.4869,79.2679 102.5191,79.2648 102.5793,79.2553 102.6054,79.2284 102.6499,79.2136 102.6816,79.2101 102.7853,79.2112 102.8168,79.2079 102.8316,79.1934 102.7678,79.1657 102.7217,79.158 102.6859,79.1582 102.6392,79.1627 102.5826,79.1475 102.5554,79.1338 102.5043,79.1053 102.4253,79.0444 102.3718,78.9689 102.3795,78.9246 102.3106,78.8714 102.2583,78.8438 102.2256,78.8323 102.1602,78.7917 102.0846,78.7364 102.0842,78.7103 102.1464,78.7123 102.2131,78.7244 102.2512,78.7338 102.2703,78.7388 102.3438,78.7662 102.4856,78.8387 102.5419,78.8884 102.5632,78.9203 102.5952,78.9355 102.621,78.9386 102.6498,78.9406 102.7197,78.9403 102.7986,78.9373 102.85,78.9433 102.9271,78.961 102.9729,78.9822 103.1298,78.9876 103.1527,78.9914 103.1796,78.9996 103.1972,79.014 103.3166,79.0396 103.6235,79.0162 103.6766,79.0052 103.6951,78.9778 103.6974,78.9284 103.7486,78.8805 103.773,78.8795 103.805,78.8803 103.8335,78.8822 103.8682,78.882 103.9091,78.8799 103.9801,78.8745 104.0106,78.8712 104.0608,78.8636 104.1081,78.8522 104.1633,78.8221 104.1762,78.8039 104.2013,78.761 104.3334,78.7077 104.3151,78.6745 104.2843,78.6598 104.3599,78.663 104.3824,78.6663 104.4092,78.6749 104.4315,78.6962 104.4144,78.7224 104.445,78.7311 104.5939,78.738 104.6483,78.7305 104.6978,78.7231 104.7473,78.715 104.8345,78.6952 104.8717,78.6765 104.9046,78.6473 105.0914,78.4558 105.0442,78.3898 104.9965,78.3773 104.9324,78.3648 104.9101,78.3612 104.8669,78.3518 104.7723,78.321 104.6811,78.289 104.6342,78.2709 104.5849,78.2533 104.5377,78.2376 104.5019,78.2266 104.4632,78.2173 104.4417,78.2137 104.401,78.2172 104.3688,78.232 104.3304,78.2391 104.1083,78.2266 104.0536,78.2228 103.9517,78.2124 103.8531,78.2009 103.7881,78.1893 103.7035,78.1732 103.6821,78.1692 103.617,78.1575 103.568,78.1517 103.5163,78.1472 103.4258,78.1441 103.3542,78.1466 103.263,78.1464 103.0034,78.1341 102.884,78.1211 102.8536,78.1203 102.7475,78.134 102.7165,78.1357 102.6837,78.1358 102.6619,78.1318 102.6251,78.1222 102.5738,78.092 102.5093,78.0675 102.409,78.0459 102.3811,78.0464 102.352,78.0531 102.3672,78.0903 102.337,78.1015 102.3079,78.1045 102.2334,78.1077 102.1731,78.1057 102.1492,78.1027 101.8228,78.0873 101.6891,78.0919 101.6639,78.0918 101.5146,78.0864 101.4546,78.0841 101.4069,78.0782 101.3473,78.0759 101.1895,78.0735 101.1531,78.0742 101.0757,78.078 101.0038,78.0798 100.9714,78.0795 100.87,78.0691 100.8214,78.0581 100.7907,78.0412 100.764,78.0282 100.7288,78.0183 100.6908,78.009 100.6079,77.993 100.2425,77.9303 100.0443,77.8986 99.8238,77.8628 99.7171,77.8443 99.668,77.8392 99.6416,77.837 99.612,77.8357 99.58,77.8352 99.4826,77.8402 99.4637,77.8468 99.4389,77.8506 99.3498,77.8496 99.3203,77.8482 99.3006,77.8438 99.2645,77.8295 99.2238,77.8265 99.1945,77.8293 99.1338,77.8413 99.0438,77.9066 99.0557,77.9398 99.1014,77.9516 99.1379,77.9664 99.1627,77.9794 99.2306,78.025 99.2218,78.049 99.4829,78.1522 99.6042,78.1951 99.6918,78.2207 99.7007,78.2535 99.7768,78.319 99.8478,78.359 99.8463,78.3657 99.8282,78.3839 99.9467,78.5427 100.0642,78.6259 100.094,78.6376 100.2421,78.6696 100.285,78.678 100.3226,78.6771 100.5958,78.6502 100.6257,78.6434 100.7158,78.6247 100.8286,78.6338 100.8535,78.6395 100.8256,78.652 100.7843,78.6606 100.6852,78.6801 100.6638,78.6815 100.5843,78.6859 100.5611,78.6914 100.4701,78.7477 100.4709,78.7747 100.5756,78.8565 100.6835,78.8992 100.7244,78.9082 100.7588,78.912 100.8502,78.9086 100.8868,78.9063 100.975,78.8969 101.0667,78.8901 101.0667,78.8901 9,7.0,Russia 101.1399,78.8768 101.2038,78.8635 101.2349,78.8606 101.2727,78.8596 101.3052,78.8636 101.2838,78.869 101.222,78.875 101.1399,78.8768 101.1399,78.8768 224,-7.0,Canada -105.2751,78.9292 -105.2582,78.9154 -105.2254,78.9055 -105.186,78.8991 -105.1565,78.8962 -105.0991,78.8941 -105.0684,78.895 -104.8301,78.9026 -104.799,78.9044 -104.773,78.9071 -104.6872,78.9212 -104.6604,78.9262 -104.5767,78.9326 -104.4121,78.9151 -104.3761,78.9084 -104.3562,78.8869 -104.5097,78.8102 -104.6883,78.7286 -104.7035,78.7038 -104.6883,78.6873 -104.6552,78.6818 -104.5859,78.6804 -104.5557,78.6821 -104.4945,78.6859 -104.4629,78.6904 -104.2489,78.7453 -104.2154,78.7657 -104.188,78.7939 -104.1401,78.8368 -103.9424,78.8718 -103.9108,78.8751 -103.8806,78.875 -103.8554,78.8734 -103.8068,78.8689 -103.7587,78.8629 -103.7264,78.8422 -103.6765,78.8175 -103.6413,78.8133 -103.5464,78.7997 -103.5047,78.7788 -103.5397,78.7602 -103.6658,78.734 -103.7274,78.7228 -103.812,78.7112 -103.8462,78.7003 -103.8905,78.6643 -103.8499,78.6497 -103.7537,78.6416 -103.7295,78.6406 -103.7018,78.6416 -103.6712,78.6428 -103.6407,78.6453 -103.6093,78.6491 -103.577,78.661 -103.5871,78.6806 -103.5496,78.6895 -103.4075,78.6862 -103.3801,78.6763 -103.4773,78.6198 -103.3915,78.6341 -103.3503,78.6446 -103.3207,78.6491 -103.1497,78.6715 -103.1206,78.6691 -103.0982,78.6627 -103.0044,78.6155 -103.0404,78.6026 -103.071,78.601 -103.0946,78.6045 -103.1216,78.6043 -103.1707,78.5999 -103.2032,78.5849 -103.1729,78.558 -103.1919,78.5509 -103.222,78.5494 -103.311,78.5487 -103.3406,78.5492 -103.4542,78.5556 -103.5078,78.5563 -103.5335,78.5539 -103.6704,78.5304 -103.7215,78.5112 -103.6917,78.5017 -103.6673,78.5016 -103.4235,78.5043 -103.1891,78.506 -103.1301,78.5059 -103.0834,78.5002 -103.0619,78.4706 -103.1501,78.4025 -103.2118,78.3815 -103.2727,78.3887 -103.3496,78.3974 -103.4062,78.402 -103.4658,78.4045 -103.5545,78.4028 -103.6135,78.4011 -103.7165,78.4046 -103.7709,78.4088 -103.8252,78.4143 -103.8481,78.4174 -103.8942,78.4249 -103.9443,78.4341 -103.9691,78.4398 -104.0362,78.4511 -104.0787,78.4546 -104.3469,78.4643 -104.3762,78.4634 -104.4858,78.457 -104.5112,78.4548 -104.5483,78.4454 -104.6332,78.4224 -104.6918,78.4063 -104.7289,78.3791 -104.6768,78.3257 -104.5026,78.2412 -104.1787,78.1561 -104.1515,78.151 -104.0969,78.1433 -104.0484,78.14 -103.9897,78.1379 -103.8754,78.1373 -103.7962,78.1322 -103.762,78.1289 -103.7284,78.1227 -103.7083,78.1199 -103.6778,78.1187 -103.6492,78.1194 -103.6194,78.1231 -103.5856,78.1335 -103.5632,78.1578 -103.5154,78.1706 -103.4939,78.1762 -103.4677,78.1815 -103.4371,78.187 -103.3659,78.1975 -103.2708,78.2073 -103.2137,78.2119 -103.1846,78.2131 -103.0978,78.2147 -103.0679,78.217 -102.9516,78.2307 -102.9254,78.2358 -102.9013,78.2419 -102.8508,78.2521 -102.8211,78.2543 -102.712,78.2506 -102.6544,78.2496 -102.6169,78.2507 -102.5778,78.2545 -102.5238,78.2618 -102.4942,78.2631 -102.466,78.2615 -102.4109,78.2566 -102.3836,78.2531 -102.357,78.2462 -102.3752,78.236 -102.4316,78.226 -102.503,78.191 -102.4927,78.1709 -102.4704,78.1618 -102.4217,78.1494 -102.3352,78.1312 -102.3087,78.1269 -102.2806,78.1253 -102.2518,78.1267 -102.1921,78.1316 -102.1617,78.1346 -102.0795,78.1464 -102.0377,78.1534 -101.9896,78.1588 -101.9303,78.1628 -101.9303,78.9055 -101.962,78.901 -102.0454,78.8981 -102.0807,78.8703 -102.0613,78.8378 -102.0752,78.8151 -102.2121,78.7568 -102.2393,78.7531 -102.2705,78.7583 -102.4028,78.8219 -102.3802,78.8551 -102.3523,78.8635 -102.3362,78.8775 -102.2903,78.9453 -102.2951,78.9733 -102.4482,79.0215 -102.5715,79.0517 -102.6023,79.0915 -102.753,79.1589 -102.7748,79.1647 -102.8167,79.17 -102.939,79.1822 -103.0115,79.1821 -103.0743,79.1821 -103.2689,79.208 -103.2954,79.2128 -103.3696,79.2343 -103.3967,79.239 -103.5088,79.2464 -103.6226,79.25 -103.6511,79.2508 -103.6803,79.2499 -103.8546,79.241 -104.1331,79.2242 -104.1629,79.2211 -104.2204,79.2134 -104.2554,79.2116 -104.4143,79.2045 -104.5301,79.2011 -104.6256,79.1976 -104.6867,79.1928 -104.7885,79.1803 -104.8315,79.1798 -104.8677,79.1818 -105.0026,79.2015 -105.0524,79.2091 -105.0778,79.2109 -105.1092,79.2112 -105.1288,79.2064 -105.1519,79.1886 -105.295,79.0497 -105.2751,78.9292 19,-2.0,Greenland -19.2432,79.0881 -19.2753,79.0391 -19.3054,79.014 -19.3145,79.0092 -19.3344,79.008 -19.3561,79.0115 -19.3786,79.0173 -19.4048,79.0332 -19.4186,79.0447 -19.4394,79.0671 -19.4355,79.0784 -19.4227,79.0864 -19.3456,79.1099 -19.3116,79.1171 -19.2917,79.1181 -19.2757,79.1173 -19.2537,79.1139 -19.2432,79.0881 -19.2432,79.0881 31,-2.0,Greenland -17.666,79.1021 -17.5486,79.0694 -17.5162,79.0586 -17.5046,79.0496 -17.5019,79.0357 -17.5287,78.9981 -17.5434,78.9784 -17.5521,78.9706 -17.6457,78.9516 -17.6809,78.9495 -17.8151,78.9321 -17.9104,78.8866 -17.9245,78.8828 -17.9541,78.8783 -17.9813,78.8761 -18.0113,78.8746 -18.0418,78.8754 -18.0635,78.8811 -18.0573,78.9451 -18.0525,78.9594 -18.0289,78.979 -17.8277,79.0842 -17.8083,79.0921 -17.7942,79.0979 -17.7695,79.1061 -17.76,79.1087 -17.7305,79.1151 -17.6993,79.1161 -17.6819,79.1128 -17.666,79.1021 -17.666,79.1021 32,-6.0,Canada -86.2019,78.7732 -86.1775,78.7706 -86.1479,78.7679 -86.1211,78.7668 -86.0528,78.7673 -86.0174,78.7688 -85.9786,78.772 -85.9474,78.7752 -85.761,78.7937 -85.5001,78.8174 -85.2818,78.836 -85.2015,78.8415 -85.037,78.8587 -85.0,78.8645 -85.0,78.932 -85.0563,78.9368 -85.3797,78.9474 -85.4462,78.947 -85.5532,78.9442 -85.629,78.9399 -85.6572,78.9367 -85.7236,78.9298 -85.7797,78.9217 -86.017,78.8788 -86.0253,78.8664 -86.0614,78.8342 -86.0788,78.8232 -86.0989,78.8132 -86.1192,78.8083 -86.1689,78.7946 -86.2132,78.778 -86.2019,78.7732 49,-2.0,Greenland -19.3561,78.6086 -19.4155,78.6087 -19.4464,78.6114 -19.4697,78.6143 -19.4963,78.6199 -19.6583,78.6584 -19.6753,78.6638 -19.6873,78.6693 -19.695,78.6769 -19.6888,78.688 -19.6541,78.7029 -19.6277,78.713 -19.3469,78.8088 -19.3028,78.8205 -19.2748,78.8268 -19.2412,78.8318 -19.1818,78.8368 -19.1492,78.8375 -19.1289,78.8333 -19.1457,78.7612 -19.2288,78.7471 -19.2656,78.7369 -19.2879,78.6976 -19.2768,78.6944 -19.2573,78.6945 -19.2325,78.6959 -19.1608,78.7056 -19.1454,78.7048 -19.135,78.7017 -19.1228,78.6876 -19.1312,78.6818 -19.1527,78.6795 -19.1818,78.6782 -19.2122,78.6787 -19.2372,78.6792 -19.2682,78.6827 -19.2979,78.6825 -19.3512,78.6768 -19.3588,78.6702 -19.3418,78.6634 -19.296,78.661 -19.2666,78.6613 -19.1954,78.6659 -19.1262,78.6582 -19.1021,78.6527 -19.2155,78.6255 -19.2839,78.6142 -19.3561,78.6086 -19.3561,78.6086 23,-2.0,Greenland -18.2365,78.6237 -18.2699,78.6841 -18.2686,78.6986 -18.264,78.7107 -18.2527,78.7283 -18.2406,78.7398 -18.2313,78.744 -18.2149,78.749 -18.1884,78.7527 -18.1737,78.7529 -18.1538,78.753 -18.128,78.7514 -18.1123,78.7487 -18.0956,78.7412 -18.0196,78.7015 -18.0279,78.6868 -18.0401,78.6784 -18.0562,78.6718 -18.0742,78.6659 -18.1373,78.6464 -18.1867,78.6349 -18.2365,78.6237 -18.2365,78.6237 189,-6.0,Canada -98.0887,78.3523 -98.058,78.3314 -97.9,78.2938 -97.8739,78.2903 -97.8502,78.2892 -97.746,78.2746 -97.7651,78.1917 -97.7161,78.1823 -97.6342,78.1764 -97.608,78.1735 -97.5785,78.1674 -97.4766,78.1287 -97.5221,78.1187 -97.5541,78.1204 -97.5343,78.1051 -97.341,78.0924 -97.1139,78.0938 -97.0553,78.0944 -97.0276,78.0932 -97.0061,78.0905 -96.9135,78.0726 -96.8971,78.0607 -96.8719,78.0549 -96.8453,78.0518 -96.7668,78.0437 -96.6918,78.0369 -96.5864,78.0219 -96.565,77.9922 -96.5963,77.9694 -96.6193,77.9654 -96.7063,77.9614 -96.7329,77.961 -97.0054,77.9625 -97.0315,77.9631 -97.14,77.9667 -97.2203,77.9727 -97.2744,77.9758 -97.3251,77.978 -97.3641,77.9757 -97.4705,77.915 -97.381,77.908 -97.3102,77.9021 -97.2798,77.8989 -97.211,77.889 -97.163,77.8793 -97.1402,77.8734 -97.089,77.8566 -97.0633,77.8489 -97.0189,77.8376 -96.9909,77.8351 -96.8527,77.8218 -96.7057,77.8023 -96.7261,77.791 -96.7916,77.7734 -96.8272,77.7563 -96.8107,77.6926 -96.7765,77.6921 -96.7257,77.6912 -96.6456,77.6846 -96.6196,77.6779 -96.6023,77.6748 -96.5622,77.6746 -96.5416,77.6764 -96.4535,77.7198 -96.4236,77.7266 -96.3994,77.7277 -96.3406,77.7274 -96.2554,77.7289 -96.228,77.7324 -96.2042,77.7572 -96.2283,77.7563 -96.2614,77.749 -96.2974,77.7434 -96.3792,77.7363 -96.4153,77.74 -96.4463,77.7568 -96.2531,77.7842 -96.1689,77.7885 -96.1385,77.783 -96.122,77.77 -96.1078,77.7525 -96.0683,77.7464 -96.0303,77.7452 -95.9985,77.7464 -95.9026,77.7532 -95.6524,77.7728 -95.5448,77.7857 -95.4722,77.7987 -95.2641,77.8208 -95.1645,77.8302 -95.134,77.8404 -95.115,77.8495 -95.0948,77.8532 -95.0361,77.8542 -94.981,77.8529 -94.9522,77.8507 -94.9269,77.8476 -94.9016,77.8443 -94.878,77.8401 -94.8531,77.8371 -94.822,77.8393 -94.8008,77.8455 -94.7662,77.8587 -94.727,77.8779 -94.6269,77.9414 -94.6033,77.992 -94.6214,78.0033 -94.6975,78.0191 -94.7818,78.0341 -94.8185,78.0506 -94.8281,78.0726 -94.9403,78.1023 -94.9678,78.1037 -95.0579,78.1035 -95.0811,78.1046 -95.1057,78.1149 -95.0757,78.1272 -94.8088,78.176 -94.6794,78.1968 -94.6542,78.202 -94.5472,78.2427 -94.5812,78.2733 -94.6068,78.281 -94.7977,78.323 -94.9166,78.3465 -95.1168,78.382 -95.1906,78.3939 -95.2457,78.3995 -95.3104,78.4045 -95.3606,78.4061 -95.3927,78.406 -95.4249,78.4046 -95.4545,78.3998 -95.5281,78.3871 -95.5655,78.3798 -95.7167,78.3773 -95.8846,78.4035 -95.9226,78.4453 -95.8613,78.4987 -95.8814,78.5104 -95.9079,78.5146 -95.9407,78.5123 -95.9704,78.5035 -95.999,78.4999 -96.0212,78.5027 -96.061,78.5123 -96.092,78.5218 -96.1708,78.5463 -96.2147,78.5567 -96.2374,78.5611 -96.2886,78.5674 -96.3166,78.5696 -96.3486,78.5703 -96.4124,78.567 -96.471,78.5683 -96.5979,78.5833 -96.6206,78.5945 -96.6567,78.6106 -96.7016,78.621 -96.727,78.626 -96.7794,78.6337 -96.8614,78.6431 -96.9743,78.6485 -97.0597,78.657 -97.0857,78.6607 -97.1369,78.671 -97.1618,78.6768 -97.1882,78.6805 -97.2989,78.6914 -97.356,78.6952 -97.4765,78.6992 -97.7592,78.7027 -97.8419,78.7004 -97.8706,78.6967 -98.0626,78.6498 -98.0693,78.6042 -98.0201,78.5319 -97.9342,78.5035 -97.8689,78.4874 -97.8399,78.4841 -97.8151,78.4785 -97.7803,78.4673 -97.7355,78.451 -97.7214,78.4244 -97.7554,78.4183 -97.872,78.4144 -98.0087,78.4186 -98.1106,78.381 -98.0887,78.3523 21,-5.0,Canada -74.1061,78.5594 -74.1392,78.5604 -74.1912,78.5658 -74.3852,78.5868 -74.4785,78.6137 -74.4151,78.6566 -74.4025,78.6611 -74.3861,78.6625 -74.3614,78.6628 -74.3261,78.6602 -74.1284,78.6399 -74.0835,78.634 -74.0534,78.6303 -73.9643,78.6138 -73.9414,78.5987 -74.0084,78.5714 -74.0287,78.5671 -74.0566,78.563 -74.079,78.5608 -74.1061,78.5594 -74.1061,78.5594 106,-7.0,Canada -111.1682,78.1526 -111.2381,78.1563 -111.3149,78.1584 -111.4004,78.1582 -111.4286,78.1572 -111.4574,78.1569 -111.4821,78.1593 -111.5261,78.182 -111.5501,78.2006 -111.5796,78.2183 -111.6003,78.2238 -111.793,78.251 -111.8747,78.2504 -112.097,78.2399 -112.242,78.2291 -112.343,78.2168 -112.3976,78.2085 -112.4458,78.1962 -112.5494,78.1782 -112.6034,78.1694 -112.685,78.1583 -112.7131,78.1569 -112.8001,78.1539 -112.8363,78.155 -112.8755,78.1633 -112.9364,78.1842 -112.9899,78.2162 -112.8723,78.2704 -112.776,78.3071 -112.6945,78.3222 -112.3682,78.3698 -112.2645,78.3844 -112.0201,78.418 -111.9689,78.4246 -111.8952,78.4319 -111.7874,78.4365 -111.6461,78.4374 -111.562,78.4335 -111.5314,78.4293 -111.5117,78.4275 -111.4685,78.4298 -111.4112,78.4354 -111.3368,78.4477 -111.3009,78.4589 -111.2596,78.4699 -111.2313,78.4732 -111.1149,78.4772 -111.0449,78.5006 -111.0219,78.5271 -110.8193,78.5759 -110.6152,78.6024 -110.4505,78.6193 -110.2975,78.6328 -110.1207,78.6415 -110.0908,78.6426 -110.0708,78.6417 -110.0502,78.6376 -109.9323,78.612 -109.8261,78.5935 -109.7399,78.5791 -109.6598,78.5681 -109.5224,78.5392 -109.3354,78.4759 -109.3128,78.4728 -109.2247,78.4712 -109.1657,78.4673 -109.0713,78.4418 -109.0007,78.4088 -108.9251,78.3686 -108.9279,78.341 -108.9912,78.2405 -109.0737,78.1918 -109.0974,78.1887 -109.2643,78.1881 -109.4349,78.1798 -109.4921,78.1796 -109.5208,78.1823 -109.5567,78.191 -109.5843,78.2058 -109.6223,78.2111 -109.6507,78.2112 -109.6792,78.209 -109.8628,78.1894 -109.8908,78.1856 -109.919,78.1812 -109.955,78.1686 -110.0207,78.1624 -110.078,78.1628 -110.1507,78.1699 -110.2372,78.1753 -110.3235,78.1788 -110.3805,78.1779 -110.4524,78.1925 -110.5217,78.218 -110.6384,78.2491 -110.6659,78.2533 -110.804,78.2713 -110.8324,78.2695 -110.9402,78.2577 -110.934,78.2314 -110.969,78.2066 -111.073,78.1629 -111.094,78.1562 -111.1254,78.1531 -111.1682,78.1526 -111.1682,78.1526 20,-2.0,Greenland -18.2668,78.552 -18.279,78.5403 -18.3065,78.5314 -18.5151,78.4625 -18.5386,78.4585 -18.5654,78.4587 -18.5931,78.462 -18.6709,78.4785 -18.6778,78.4915 -18.6593,78.5014 -18.5366,78.5476 -18.5184,78.5538 -18.4717,78.565 -18.421,78.5696 -18.4041,78.5702 -18.384,78.5695 -18.2792,78.5627 -18.2611,78.5593 -18.2668,78.552 -18.2668,78.552 21,-6.0,Canada -87.7848,78.3306 -87.7754,78.3217 -87.7782,78.3061 -87.7897,78.2925 -87.8996,78.1936 -87.9207,78.1774 -87.979,78.1385 -87.9885,78.1328 -88.0207,78.129 -88.0932,78.1236 -88.1151,78.1283 -88.1264,78.1345 -88.1387,78.1479 -88.1437,78.1595 -88.1394,78.1806 -87.9669,78.312 -87.8448,78.3404 -87.8264,78.3418 -87.798,78.3386 -87.7848,78.3306 -87.7848,78.3306 20,-2.0,Greenland -19.1537,78.2959 -19.1329,78.2914 -19.1164,78.2859 -19.0235,78.2468 -19.0947,78.227 -19.1819,78.2064 -19.2063,78.2017 -19.2297,78.1992 -19.2515,78.1995 -19.2789,78.2027 -19.2947,78.2072 -19.3138,78.2151 -19.3412,78.2783 -19.3277,78.2916 -19.3129,78.2971 -19.2671,78.3053 -19.2479,78.3057 -19.1939,78.3024 -19.1537,78.2959 -19.1537,78.2959 21,-2.0,Greenland -19.5239,78.2642 -19.4739,78.2445 -19.4511,78.2332 -19.4333,78.2186 -19.4308,78.2073 -19.4529,78.1871 -19.4752,78.1737 -19.495,78.169 -19.5203,78.1665 -19.5736,78.1624 -19.5996,78.1607 -19.6288,78.1622 -19.6377,78.1683 -19.6504,78.184 -19.6582,78.2071 -19.6572,78.2186 -19.6216,78.2698 -19.5989,78.2731 -19.5695,78.2724 -19.5239,78.2642 -19.5239,78.2642 41,7.0,Russia 105.871,78.0759 105.8355,78.0771 105.6892,78.0937 105.6734,78.0998 105.6994,78.1421 105.7251,78.1496 105.7498,78.1525 105.8791,78.1522 105.9408,78.1456 105.9738,78.1453 106.0177,78.1555 106.0435,78.1634 106.061,78.1754 106.0641,78.1887 106.0711,78.1962 106.0825,78.2037 106.0967,78.2106 106.1139,78.2161 106.1361,78.2201 106.1865,78.2255 106.2171,78.2261 106.2527,78.2247 106.3246,78.2192 106.4368,78.1922 106.4245,78.155 106.4126,78.1475 106.3926,78.1426 106.3702,78.1416 106.3472,78.1456 106.3295,78.1536 106.3194,78.1647 106.2008,78.1625 106.1536,78.1494 106.1433,78.1419 106.1757,78.1376 106.2053,78.135 106.1875,78.126 106.168,78.1214 105.9209,78.0814 105.871,78.0759 105.871,78.0759 17,-2.0,Greenland -19.1564,78.1205 -19.1777,78.1209 -19.2023,78.1239 -19.2183,78.1288 -19.2502,78.1403 -19.2923,78.1658 -19.2796,78.1746 -19.2568,78.1788 -19.0557,78.2095 -18.9881,78.2153 -18.9708,78.2132 -18.8394,78.1865 -18.8288,78.1788 -18.8447,78.1709 -19.1007,78.1259 -19.1564,78.1205 -19.1564,78.1205 22,-6.0,Canada -94.2293,78.1637 -94.1962,78.1539 -94.0763,78.1075 -94.0601,78.1004 -94.0288,78.0801 -94.0237,78.0681 -94.0824,78.0451 -94.0938,78.0437 -94.1202,78.046 -94.2214,78.0588 -94.2352,78.0636 -94.385,78.1267 -94.3971,78.1329 -94.4068,78.1475 -94.3947,78.1598 -94.3747,78.1646 -94.3494,78.1693 -94.3159,78.1728 -94.2861,78.1734 -94.2603,78.1701 -94.2293,78.1637 -94.2293,78.1637 32,-7.0,Canada -102.963,78.0301 -102.948,78.0209 -102.9199,78.0101 -102.9023,78.0068 -102.8842,78.0053 -102.8043,78.0039 -102.7472,78.0057 -102.7319,78.0085 -102.7078,78.0198 -102.6671,78.0363 -102.6218,78.053 -102.5879,78.0641 -102.5453,78.0747 -102.4833,78.0854 -102.4687,78.0946 -102.47,78.1186 -102.4751,78.1273 -102.488,78.136 -102.502,78.1414 -102.5146,78.1445 -102.5864,78.1548 -102.6228,78.1582 -102.6756,78.1584 -102.73,78.1493 -102.7512,78.1437 -102.8133,78.1224 -102.8588,78.1057 -102.916,78.0838 -102.9278,78.078 -102.9598,78.0587 -102.9701,78.0468 -102.963,78.0301 16,-6.0,Canada -101.5526,78.0411 -101.3692,78.0304 -101.3453,78.0307 -101.32,78.034 -101.3071,78.0397 -101.2966,78.0478 -101.2942,78.0657 -101.3129,78.0878 -101.3271,78.0966 -101.3747,78.1131 -101.4003,78.1185 -101.4241,78.1183 -101.4463,78.113 -101.4688,78.1022 -101.5738,78.0464 -101.5526,78.0411 21,-2.0,Greenland -20.2933,78.0875 -20.3365,78.0824 -20.3623,78.0762 -20.4119,78.0578 -20.4377,78.052 -20.4647,78.0472 -20.4894,78.0456 -20.5183,78.0458 -20.5379,78.0477 -20.563,78.0511 -20.7068,78.0721 -20.7181,78.0796 -20.5818,78.1037 -20.5008,78.114 -20.4731,78.1154 -20.4421,78.1153 -20.2567,78.1026 -20.2444,78.0962 -20.2703,78.0901 -20.2933,78.0875 -20.2933,78.0875 15,7.0,Russia 93.4581,78.0373 93.3837,78.0397 93.3346,78.0451 93.2905,78.0526 93.2556,78.0616 93.2404,78.0702 93.2425,78.0893 93.2542,78.0953 93.2727,78.1001 93.295,78.1036 93.346,78.1087 93.3579,78.1084 93.4341,78.073 93.4581,78.0373 93.4581,78.0373 35,7.0,Russia 107.1168,77.9356 107.1022,77.9721 106.9425,77.9679 106.7095,77.9757 106.4939,77.9836 106.4559,77.9863 106.1729,78.0079 106.1745,78.0448 106.2426,78.0432 106.3828,78.0504 106.5752,78.0622 106.8311,78.0524 106.9322,78.0475 106.9573,78.0501 106.9642,78.0573 106.9761,78.0651 107.0487,78.074 107.0736,78.0763 107.1063,78.0761 107.1823,78.0711 107.215,78.0679 107.2706,78.0609 107.2935,78.0568 107.3115,78.0519 107.36,78.0327 107.3752,78.0213 107.3759,78.0084 107.3638,78.001 107.2781,77.9593 107.2607,77.9538 107.241,77.9492 107.1967,77.9416 107.1717,77.9392 107.1168,77.9356 107.1168,77.9356 23,-2.0,Greenland -18.8111,78.0454 -18.8375,78.0393 -18.8552,78.0334 -18.8672,78.0275 -18.8846,78.013 -18.8943,78.005 -18.9395,77.9813 -18.9519,77.9752 -18.9861,77.9631 -19.0038,77.96 -19.0183,77.9608 -19.0477,77.9655 -19.079,77.9767 -19.1168,77.9926 -19.1309,78.0057 -19.1135,78.0151 -18.8663,78.0658 -18.8229,78.0727 -18.799,78.0719 -18.7835,78.0672 -18.7744,78.0587 -18.8111,78.0454 -18.8111,78.0454 135,-7.0,Canada -111.756,77.2117 -111.8091,77.2122 -111.8384,77.214 -112.0842,77.2446 -112.1098,77.2495 -112.1616,77.2631 -112.1903,77.28 -112.2153,77.3041 -112.2636,77.3405 -112.296,77.3477 -112.3228,77.3471 -112.3586,77.3445 -112.408,77.334 -112.4331,77.3299 -112.4655,77.3301 -112.597,77.3523 -112.6289,77.3601 -112.6389,77.383 -112.6707,77.3989 -112.7049,77.404 -112.7323,77.4055 -112.8132,77.406 -112.8407,77.4076 -112.8681,77.4147 -112.905,77.4721 -112.8283,77.4968 -112.8608,77.6293 -112.9263,77.6429 -112.9522,77.6513 -112.9754,77.6701 -112.9817,77.6971 -112.9692,77.7243 -112.8949,77.7896 -112.8718,77.7959 -112.7893,77.799 -112.762,77.7997 -112.7342,77.7989 -112.7058,77.7916 -112.6064,77.7988 -112.468,77.8199 -112.438,77.8265 -112.4048,77.8382 -112.2375,77.8662 -112.1302,77.8791 -111.9587,77.8969 -111.7895,77.8925 -111.6439,77.9051 -111.4467,77.9171 -111.4215,77.9108 -111.3958,77.9108 -111.3706,77.9134 -111.2976,77.9272 -111.0116,77.9631 -110.9842,77.9666 -110.9541,77.9682 -110.7595,77.9786 -110.7148,77.9799 -110.6939,77.9795 -110.6647,77.9688 -110.5703,77.9485 -110.5283,77.9479 -110.5004,77.9495 -110.4731,77.9514 -110.4418,77.9663 -110.4038,77.9826 -110.3381,77.9871 -110.2175,77.9922 -110.1337,77.9948 -109.9065,77.9971 -109.7697,77.9949 -109.6285,77.9907 -109.4594,77.9859 -109.3483,77.978 -109.3245,77.9744 -109.2763,77.9575 -109.2553,77.9479 -109.2544,77.9247 -109.3485,77.8554 -109.3773,77.8466 -109.4321,77.8377 -109.4872,77.8295 -109.5142,77.8257 -109.5692,77.8195 -109.6787,77.8081 -109.816,77.7986 -109.8359,77.7909 -109.8675,77.7836 -109.8924,77.7809 -109.9201,77.7808 -110.1605,77.7709 -110.2968,77.76 -110.3242,77.7587 -110.4623,77.7577 -110.5165,77.7532 -110.5436,77.7492 -110.569,77.7386 -110.5659,77.7167 -110.4147,77.6607 -110.3866,77.656 -110.3303,77.647 -110.3025,77.6452 -110.2729,77.646 -110.1917,77.6505 -110.0879,77.658 -110.0651,77.6601 -110.0408,77.6638 -109.9616,77.6698 -109.8339,77.6713 -109.8059,77.6677 -109.778,77.6622 -109.7585,77.6537 -109.7152,77.5252 -109.7598,77.4471 -109.7931,77.4278 -109.879,77.3993 -109.9007,77.3932 -109.9463,77.384 -109.9726,77.3799 -110.1776,77.3485 -110.496,77.3105 -110.5256,77.303 -110.5521,77.2998 -110.631,77.2961 -110.6842,77.2944 -110.7395,77.2944 -110.7915,77.2972 -110.846,77.3047 -110.9737,77.3075 -111.1366,77.2815 -111.2913,77.2624 -111.4979,77.2375 -111.7038,77.2134 -111.7297,77.2122 -111.756,77.2117 -111.756,77.2117 46,-7.0,Canada -113.8548,77.5856 -113.8845,77.5864 -113.9385,77.5898 -113.9923,77.5973 -114.0758,77.6189 -114.1741,77.6526 -114.3214,77.691 -114.3678,77.7007 -114.3888,77.7061 -114.5063,77.7419 -114.7335,77.8255 -114.7684,77.8442 -114.7466,77.8504 -114.7164,77.8504 -114.6898,77.8487 -114.5864,77.8472 -114.4762,77.8597 -114.4542,77.8623 -114.4342,77.8682 -114.3966,77.8867 -114.2622,77.917 -114.0575,77.9539 -114.0118,77.9567 -113.9838,77.9572 -113.9601,77.9568 -113.9439,77.9524 -113.7318,77.8683 -113.6377,77.8196 -113.632,77.8095 -113.618,77.8016 -113.5837,77.7976 -113.555,77.795 -113.5005,77.7928 -113.3873,77.7831 -113.3671,77.7787 -113.2442,77.7099 -113.2382,77.7014 -113.2496,77.6951 -113.2815,77.683 -113.3221,77.6707 -113.4506,77.6328 -113.5707,77.6137 -113.5968,77.6113 -113.7761,77.5942 -113.8548,77.5856 -113.8548,77.5856 26,-2.0,Greenland -21.0562,77.8857 -21.1176,77.8673 -21.1297,77.858 -21.1225,77.8466 -21.1943,77.7899 -21.206,77.785 -21.2465,77.7724 -21.2729,77.7689 -21.3013,77.7702 -21.3264,77.7754 -21.343,77.7809 -21.3651,77.7983 -21.3616,77.8131 -21.3458,77.8268 -21.3354,77.8335 -21.3262,77.8391 -21.3128,77.846 -21.2717,77.8627 -21.183,77.8881 -21.1642,77.8927 -21.1469,77.8963 -21.0783,77.904 -21.0636,77.9033 -21.0466,77.8961 -21.0562,77.8857 -21.0562,77.8857 44,-2.0,Greenland -19.6979,77.7795 -19.6834,77.7769 -19.64,77.7716 -19.6166,77.7701 -19.5512,77.7692 -19.5008,77.7705 -19.4286,77.7756 -19.3615,77.782 -19.3293,77.7827 -19.2917,77.7795 -19.2768,77.7764 -19.2541,77.7691 -19.2112,77.7498 -19.1724,77.7269 -19.1718,77.7166 -19.1814,77.7023 -19.2016,77.6934 -19.2237,77.689 -19.2941,77.6887 -19.4042,77.6943 -19.7169,77.7175 -19.8029,77.728 -20.0038,77.7544 -20.2967,77.8033 -20.3424,77.8142 -20.4045,77.8309 -20.4181,77.8359 -20.4257,77.8439 -20.4015,77.8527 -20.3707,77.8576 -20.3262,77.8628 -20.3032,77.864 -20.2804,77.8642 -19.9431,77.8583 -19.9053,77.8569 -19.8777,77.8509 -19.8874,77.8464 -19.9584,77.849 -19.9883,77.8491 -20.0092,77.8455 -19.964,77.8322 -19.7725,77.7949 -19.6979,77.7795 -19.6979,77.7795 30,-2.0,Greenland -17.622,77.7865 -17.5528,77.7421 -17.5323,77.7223 -17.551,77.7015 -17.6801,77.596 -17.7184,77.5822 -17.7647,77.5709 -17.8044,77.5655 -17.8491,77.5614 -17.9838,77.5536 -18.0376,77.5521 -18.067,77.5523 -18.1857,77.5688 -18.0642,77.6428 -18.0495,77.6494 -18.018,77.6604 -17.9855,77.6711 -17.8888,77.7314 -17.8903,77.751 -17.883,77.7631 -17.8745,77.769 -17.8574,77.7746 -17.8062,77.7843 -17.7521,77.7925 -17.6978,77.7969 -17.6518,77.7999 -17.6289,77.7992 -17.6132,77.7887 -17.622,77.7865 -17.622,77.7865 13,-7.0,Canada -102.2128,77.6906 -102.2063,77.6734 -102.1366,77.6182 -101.9303,77.5907 -101.9303,77.7785 -102.0823,77.771 -102.1111,77.769 -102.1372,77.7637 -102.1536,77.758 -102.1936,77.7427 -102.2128,77.7311 -102.2243,77.7211 -102.2128,77.6906 22,-5.0,Canada -77.4444,77.7517 -77.3912,77.7499 -77.365,77.7477 -77.3478,77.7435 -77.3376,77.7369 -77.3465,77.7084 -77.3619,77.7003 -77.3972,77.6913 -77.4279,77.6842 -77.4496,77.6801 -77.6207,77.6615 -77.6439,77.6615 -77.6566,77.6688 -77.6986,77.696 -77.7217,77.7187 -77.7042,77.7263 -77.6744,77.7315 -77.6481,77.7351 -77.5893,77.7413 -77.486,77.7501 -77.4444,77.7517 -77.4444,77.7517 104,-6.0,Canada -92.8986,77.5917 -92.8289,77.549 -92.8728,77.5331 -92.8887,77.5281 -92.9208,77.525 -92.9468,77.5264 -92.9735,77.5294 -93.0014,77.5314 -93.0271,77.5311 -93.0836,77.5235 -93.1036,77.5184 -93.1178,77.5104 -93.2109,77.4335 -93.2274,77.391 -93.2013,77.378 -93.203,77.3586 -93.2631,77.3342 -93.2782,77.329 -93.2957,77.3262 -93.631,77.3218 -93.6581,77.322 -93.9747,77.3436 -94.0421,77.3568 -94.0679,77.3608 -94.1911,77.3651 -94.5223,77.3685 -94.7531,77.3583 -94.8439,77.3521 -94.9249,77.3492 -94.9729,77.349 -95.0148,77.3548 -95.0661,77.3584 -95.1968,77.3622 -95.2518,77.3617 -95.4449,77.3585 -95.5421,77.3548 -95.5571,77.3506 -95.5824,77.3503 -95.6075,77.3528 -95.7177,77.3682 -95.779,77.38 -95.8006,77.3858 -95.8168,77.3926 -95.9752,77.4598 -96.0341,77.4869 -96.0444,77.4928 -95.9704,77.5774 -95.9559,77.5824 -95.9095,77.5923 -95.7924,77.6145 -95.6495,77.6402 -95.6332,77.6428 -95.6126,77.6449 -95.5849,77.6446 -95.5633,77.6426 -95.4585,77.6497 -95.3466,77.6585 -95.2998,77.6669 -95.2828,77.6764 -95.2686,77.6834 -95.2449,77.6884 -95.2122,77.6929 -95.1812,77.6952 -95.144,77.6906 -95.1309,77.683 -95.1234,77.6746 -95.1209,77.6635 -95.1226,77.6511 -95.1243,77.6365 -95.1067,77.627 -95.081,77.6245 -95.0608,77.6253 -94.8361,77.6372 -94.8053,77.6396 -94.777,77.6438 -94.747,77.6543 -94.7286,77.6652 -94.6994,77.6679 -94.6696,77.6698 -94.4707,77.6758 -94.4471,77.6757 -94.3419,77.6707 -94.2919,77.6677 -94.2614,77.661 -94.2402,77.6551 -94.1969,77.652 -94.1681,77.6524 -94.0763,77.6548 -93.9726,77.6594 -93.8107,77.6531 -93.7509,77.6479 -93.6724,77.6231 -93.6549,77.6198 -93.5448,77.6297 -93.5391,77.6382 -93.5283,77.6436 -93.5082,77.6484 -93.4079,77.6613 -93.3786,77.664 -93.3511,77.6633 -93.2683,77.658 -92.9613,77.6205 -92.8986,77.5917 -92.8986,77.5917 76,-7.0,Canada -105.7732,77.6002 -105.7006,77.5761 -105.6662,77.5669 -105.6344,77.5565 -105.6172,77.5508 -105.5759,77.5329 -105.5654,77.5273 -105.5455,77.5147 -105.5217,77.4982 -105.3803,77.3852 -105.3688,77.3358 -105.2635,77.2121 -105.2417,77.2004 -105.2235,77.1939 -105.1986,77.1879 -105.1732,77.1838 -105.1475,77.1808 -105.1052,77.1721 -104.9407,77.0831 -104.8458,77.0607 -104.8318,77.0651 -104.8141,77.066 -104.7903,77.0652 -104.739,77.0606 -104.6885,77.0543 -104.6402,77.0465 -104.6178,77.0417 -104.6018,77.0368 -104.5877,77.0311 -104.5787,77.0248 -104.5647,77.0128 -104.549,77.0067 -104.5282,77.0025 -104.4863,76.9981 -104.4363,76.9981 -104.219,77.0197 -104.1965,77.0223 -104.1691,77.027 -104.1347,77.0397 -104.1133,77.051 -104.1013,77.0617 -104.0624,77.1164 -104.0762,77.1519 -104.0873,77.1628 -104.1833,77.2074 -104.2327,77.227 -104.4299,77.3013 -104.4642,77.3049 -104.5183,77.302 -104.6005,77.2955 -104.6542,77.2927 -104.6787,77.2928 -104.7063,77.2984 -104.7025,77.344 -104.6589,77.3571 -104.6387,77.3689 -104.64,77.3841 -104.6504,77.3963 -104.6595,77.4024 -104.7181,77.4344 -104.7302,77.4403 -104.8463,77.4939 -104.8631,77.4999 -105.0778,77.5715 -105.1575,77.5967 -105.1937,77.6073 -105.2396,77.6168 -105.3354,77.636 -105.3868,77.641 -105.5995,77.6496 -105.6271,77.6471 -105.6976,77.6377 -105.7258,77.6323 -105.7646,77.6201 -105.7774,77.6141 -105.7732,77.6002 33,-2.0,Greenland -20.0595,77.5574 -20.0538,77.5411 -20.0215,77.5143 -20.0001,77.5176 -19.9864,77.5177 -19.9675,77.514 -19.9517,77.4941 -19.962,77.4852 -19.9984,77.4741 -20.0193,77.4697 -20.0374,77.4686 -20.0622,77.4684 -20.0863,77.4739 -20.1166,77.4896 -20.1678,77.506 -20.1882,77.5117 -20.2173,77.5169 -20.2452,77.5203 -20.2726,77.5201 -20.3159,77.5142 -20.3354,77.5123 -20.356,77.5125 -20.3766,77.5195 -20.355,77.5284 -20.3053,77.5402 -20.2294,77.556 -20.1823,77.5645 -20.1084,77.5735 -20.0819,77.576 -20.059,77.5754 -20.0484,77.5714 -20.0595,77.5574 -20.0595,77.5574 20,7.0,Russia 91.6606,77.4875 91.631,77.4898 91.5655,77.4993 91.5089,77.5117 91.4919,77.5165 91.4783,77.5216 91.4688,77.5313 91.4757,77.5424 91.4891,77.5479 91.5061,77.5515 91.5262,77.5536 91.5461,77.5547 91.5758,77.5525 91.6275,77.5466 91.7658,77.5139 91.7577,77.4988 91.7402,77.494 91.6951,77.488 91.6606,77.4875 91.6606,77.4875 54,-6.0,Canada -90.1041,77.0869 -90.1534,77.1023 -90.4188,77.1609 -90.4399,77.1651 -90.4625,77.1689 -90.5776,77.1817 -90.644,77.1917 -90.6807,77.1982 -90.8799,77.2506 -90.9176,77.277 -90.9415,77.3036 -90.9379,77.4564 -90.9149,77.4965 -90.9041,77.5007 -90.889,77.505 -90.84,77.5127 -90.6374,77.5407 -90.6119,77.5419 -90.5577,77.5422 -90.533,77.5394 -90.4592,77.5297 -90.4155,77.5212 -90.3353,77.516 -90.2537,77.514 -90.2251,77.5137 -90.1711,77.5184 -90.1473,77.5187 -90.1208,77.5172 -90.072,77.5116 -89.9758,77.5004 -89.9525,77.4966 -89.9422,77.4868 -89.9304,77.475 -89.9118,77.4704 -89.7941,77.4544 -89.6721,77.4208 -89.6524,77.4153 -89.5766,77.3924 -89.5425,77.3808 -89.4898,77.3611 -89.4557,77.3467 -89.3762,77.225 -89.4125,77.1992 -89.4456,77.1831 -89.5876,77.1389 -89.6209,77.129 -89.6578,77.1191 -89.7423,77.1019 -89.8268,77.0889 -89.8556,77.0876 -89.8669,77.0898 -89.9964,77.0902 -90.1041,77.0869 -90.1041,77.0869 12,-6.0,Canada -85.1476,77.422 -85.0929,77.4202 -85.0685,77.4203 -85.0195,77.4179 -85.0,77.4157 -85.0,77.4746 -85.0079,77.4746 -85.0334,77.4755 -85.0597,77.4745 -85.1005,77.4705 -85.2847,77.4298 -85.1476,77.422 21,-2.0,Greenland -19.7885,77.4323 -19.7619,77.4131 -19.7606,77.4017 -19.7758,77.3936 -19.8013,77.3902 -19.8301,77.3947 -19.854,77.4002 -19.8766,77.4061 -19.9504,77.4324 -19.9659,77.4381 -19.9814,77.4515 -19.972,77.4617 -19.954,77.4684 -19.9384,77.4699 -19.9184,77.4709 -19.8977,77.4689 -19.8834,77.4671 -19.7864,77.4464 -19.7733,77.4405 -19.7885,77.4323 -19.7885,77.4323 409,-7.0,Canada -122.3453,76.0089 -122.2439,76.0265 -122.1532,76.0313 -122.2305,76.0584 -122.252,76.063 -122.2765,76.0666 -122.3027,76.068 -122.3265,76.0669 -122.3498,76.0627 -122.3897,76.0549 -122.499,76.0236 -122.55,75.9939 -122.5778,75.9852 -122.6678,75.9761 -122.6939,75.9772 -122.635,76.0183 -122.5038,76.101 -122.3762,76.1234 -122.2889,76.1597 -122.2962,76.1858 -122.2838,76.2251 -122.2626,76.2371 -122.2329,76.2455 -122.0531,76.2887 -121.9635,76.3006 -121.6694,76.3242 -121.4819,76.3142 -121.4374,76.312 -121.3936,76.3128 -121.206,76.3264 -121.1797,76.332 -121.0777,76.3851 -120.9671,76.4637 -120.9617,76.4693 -120.9661,76.4829 -120.8666,76.5406 -120.7639,76.5615 -120.734,76.5592 -120.711,76.5622 -120.5777,76.5808 -120.5468,76.5869 -120.5162,76.6025 -120.4943,76.6185 -120.4664,76.6276 -120.4204,76.6341 -120.3235,76.6417 -120.288,76.6382 -120.2589,76.6368 -120.2358,76.64 -120.0562,76.6876 -120.0292,76.6985 -120.0195,76.7263 -119.7443,76.8929 -119.7221,76.8976 -119.6839,76.9038 -119.6504,76.9062 -119.6301,76.9031 -119.609,76.9008 -119.5734,76.9131 -119.4882,76.9582 -119.4716,76.9832 -119.4289,76.9957 -119.2532,77.0351 -119.086,77.0626 -119.0636,77.0676 -119.0418,77.0734 -119.0083,77.0983 -118.9921,77.1228 -118.9677,77.147 -118.9477,77.1656 -118.9123,77.1809 -118.874,77.1951 -118.853,77.2017 -118.8051,77.2147 -118.766,77.2162 -118.7387,77.2154 -118.6531,77.2099 -118.5939,77.2085 -118.5694,77.2113 -118.5463,77.216 -118.5225,77.2226 -118.4097,77.2411 -118.3852,77.244 -118.3037,77.2493 -118.1032,77.2473 -117.8786,77.2448 -117.8513,77.2434 -117.8201,77.2437 -117.7843,77.2546 -117.7515,77.2673 -117.5656,77.2754 -117.5134,77.2749 -117.4299,77.249 -117.4095,77.2377 -117.3872,77.2287 -117.268,77.2166 -117.1077,77.2009 -116.934,77.1779 -116.6788,77.1882 -116.7186,77.2154 -116.7755,77.2269 -116.8114,77.221 -116.8348,77.2325 -116.8078,77.2488 -116.7765,77.2484 -116.7183,77.2421 -116.6654,77.2316 -116.6047,77.2183 -116.5348,77.2069 -116.5069,77.2045 -116.4461,77.2071 -116.3117,77.2738 -116.3991,77.2839 -116.5284,77.2892 -116.5566,77.2879 -116.6329,77.282 -116.6602,77.2852 -116.8048,77.3435 -116.7295,77.3636 -116.6945,77.3591 -116.648,77.3548 -116.5763,77.3586 -116.551,77.3615 -116.4417,77.3871 -116.4196,77.4023 -116.5073,77.4046 -116.5351,77.4057 -116.5632,77.4157 -116.5307,77.4231 -116.4888,77.4216 -116.4101,77.4223 -116.3038,77.4258 -116.2422,77.4285 -116.1926,77.4324 -116.1445,77.4383 -116.0082,77.4271 -115.8614,77.4082 -115.7409,77.3764 -115.5401,77.3218 -115.1823,77.2531 -115.1573,77.248 -115.1144,77.2345 -115.0524,77.1981 -115.2064,77.1545 -115.2539,77.1489 -115.2798,77.1473 -115.332,77.1457 -115.3575,77.1442 -115.4351,77.1369 -115.4879,77.1245 -115.531,77.1071 -115.6093,77.098 -115.7748,77.0831 -115.8003,77.0815 -115.8524,77.0808 -115.8798,77.0819 -115.9368,77.076 -115.9765,77.0339 -115.9824,77.0072 -115.9381,76.9509 -115.9062,76.9339 -115.8378,76.917 -115.7284,76.8971 -115.6708,76.8874 -115.6152,76.8813 -115.5263,76.8691 -115.4211,76.8506 -115.4007,76.8336 -115.4735,76.7966 -115.4958,76.7909 -115.5199,76.7873 -115.5697,76.7841 -115.5949,76.7833 -115.6483,76.7857 -115.7297,76.7929 -115.7807,76.7991 -115.919,76.8225 -115.9708,76.826 -115.9918,76.8255 -116.0163,76.8229 -116.0278,76.8035 -116.0029,76.7858 -115.8497,76.7362 -115.8303,76.732 -115.7742,76.7239 -115.698,76.7105 -115.6674,76.7016 -115.5632,76.5897 -115.7407,76.5169 -115.7621,76.5102 -115.7852,76.5052 -115.8298,76.502 -115.9011,76.494 -115.9236,76.4898 -115.9914,76.4721 -116.0425,76.473 -116.4008,76.4635 -116.4268,76.4609 -116.6385,76.4396 -116.6621,76.4369 -116.685,76.4334 -116.7075,76.4286 -116.7287,76.4208 -116.7433,76.4031 -116.7184,76.3806 -116.6788,76.3715 -116.6522,76.3465 -116.6097,76.2755 -116.6072,76.2408 -116.7658,76.1873 -116.8101,76.1787 -116.9897,76.1499 -117.0154,76.1483 -117.0389,76.149 -117.1934,76.1555 -117.2443,76.1608 -117.2721,76.1659 -117.3002,76.1735 -117.3263,76.1852 -117.325,76.206 -117.3674,76.216 -117.3924,76.2163 -117.5509,76.2408 -117.5713,76.2614 -117.6638,76.2887 -117.6879,76.2936 -117.7186,76.2986 -117.7131,76.3332 -117.6928,76.3759 -117.6373,76.4872 -117.5915,76.5676 -117.5761,76.582 -117.5465,76.5913 -117.5193,76.597 -117.4765,76.61 -117.4554,76.6196 -117.4004,76.667 -117.4697,76.71 -117.5038,76.7143 -117.5283,76.7125 -117.5581,76.7059 -117.5838,76.6845 -117.6225,76.6606 -117.668,76.652 -117.6918,76.6492 -117.7439,76.6474 -117.7679,76.6481 -117.8185,76.6529 -117.875,76.6597 -117.9547,76.6637 -117.9894,76.6613 -118.1562,76.6029 -118.1288,76.5674 -118.0908,76.5548 -118.065,76.5485 -118.0204,76.5396 -118.0007,76.5314 -117.9795,76.4659 -118.1663,76.401 -118.1875,76.3952 -118.2098,76.3914 -118.2346,76.3904 -118.2603,76.3915 -118.2869,76.3933 -118.3149,76.3969 -118.3411,76.4012 -118.3778,76.4183 -118.4239,76.4381 -118.477,76.4442 -118.5038,76.4461 -118.6064,76.4095 -118.6323,76.3873 -118.5938,76.3704 -118.485,76.3626 -118.3459,76.3368 -118.3129,76.3205 -118.2772,76.2918 -118.259,76.2754 -118.2359,76.2285 -118.2917,76.1862 -118.3126,76.1782 -118.3452,76.174 -118.3714,76.1736 -118.4465,76.1744 -118.4939,76.1741 -118.542,76.1695 -118.5691,76.1608 -118.5873,76.148 -118.606,76.1 -118.5846,76.0834 -118.5713,76.0616 -118.6274,76.022 -118.7431,75.9759 -118.7684,75.9767 -118.7919,75.9808 -118.8965,75.9996 -118.9191,76.0069 -118.9485,76.0201 -118.9717,76.0452 -118.9636,76.0755 -119.0337,76.1218 -119.2121,76.2161 -119.2493,76.2103 -119.318,76.195 -119.3387,76.1471 -119.3095,76.1225 -119.2513,76.0897 -119.2333,76.0642 -119.3087,76.0048 -119.4101,76.0091 -119.4351,76.0089 -119.4619,76.0029 -119.4378,75.9921 -119.4096,75.9901 -119.3128,75.9744 -119.2927,75.9694 -119.1642,75.931 -119.1429,75.914 -119.1413,75.8844 -119.1527,75.8613 -119.1775,75.8536 -119.203,75.8556 -119.2212,75.8664 -119.2459,75.8803 -119.2796,75.8852 -119.31,75.8825 -119.3648,75.8377 -119.2806,75.8033 -119.4788,75.7628 -119.5378,75.7509 -119.6035,75.7416 -119.6476,75.7365 -119.6935,75.7332 -119.7168,75.7321 -119.7477,75.7633 -119.7878,75.7837 -119.8159,75.7895 -119.84,75.7795 -119.8573,75.7607 -119.8876,75.7387 -119.9369,75.7155 -119.956,75.7094 -119.9763,75.7044 -119.9996,75.7008 -120.0227,75.6997 -120.045,75.7002 -120.0709,75.7017 -120.0972,75.7046 -120.1297,75.7132 -120.1542,75.7403 -120.1243,75.8159 -120.0711,75.856 -120.0995,75.8959 -120.1275,75.9048 -120.1974,75.8959 -120.2262,75.8814 -120.2483,75.8714 -120.2777,75.875 -120.3073,75.8852 -120.3679,75.9107 -120.3925,75.932 -120.4102,75.9996 -120.3739,76.0217 -120.3892,76.0511 -120.518,76.0887 -120.554,76.0895 -120.6231,76.0675 -120.673,76.0294 -120.6862,75.9587 -120.6559,75.9197 -120.6376,75.9092 -120.5994,75.8495 -120.654,75.8338 -120.6795,75.8384 -120.6746,75.8639 -120.6565,75.8736 -120.6784,75.8835 -120.7556,75.8862 -120.7768,75.8844 -120.9252,75.8542 -120.9381,75.8299 -121.0117,75.8211 -121.0868,75.8345 -121.1412,75.8695 -121.2504,75.8973 -121.4949,75.927 -121.7988,75.9265 -121.8045,75.89 -121.8296,75.8711 -121.9959,75.8356 -122.0367,75.8269 -122.0763,75.8215 -122.1021,75.8205 -122.1489,75.8202 -122.1762,75.8215 -122.2232,75.8249 -122.3352,75.8445 -122.3552,75.8484 -122.3842,75.8639 -122.3277,75.8699 -122.3079,75.8753 -122.2497,75.8946 -122.2281,75.9036 -122.1309,76.0009 -122.1491,76.0129 -122.2583,76.0076 -122.2792,76.0039 -122.3453,76.0089 -122.3453,76.0089 20,6.0,Russia 81.9261,77.404 81.9636,77.4076 81.9935,77.4093 82.0316,77.4102 82.1745,77.4006 82.2013,77.3982 82.2251,77.3953 82.261,77.3869 82.3329,77.3693 82.3352,77.3587 82.3179,77.35 82.2957,77.3466 82.2614,77.3473 81.964,77.3717 81.9171,77.3778 81.8968,77.3815 81.8815,77.3909 81.8929,77.3996 81.9261,77.404 81.9261,77.404 17,-2.0,Greenland -66.0653,77.3753 -66.2135,77.3822 -66.437,77.3789 -66.4646,77.3769 -66.484,77.377 -66.503,77.3783 -66.5179,77.3836 -66.5264,77.3888 -66.5351,77.3955 -66.5239,77.3996 -66.1293,77.4052 -66.0974,77.4054 -66.0717,77.4032 -66.0002,77.3935 -66.0379,77.3775 -66.0653,77.3753 -66.0653,77.3753 17,7.0,Russia 106.2118,77.2753 106.1925,77.2783 106.2474,77.3206 106.2609,77.3274 106.4187,77.3546 106.4422,77.357 106.4685,77.3589 106.4995,77.3583 106.5869,77.3476 106.5907,77.3334 106.5737,77.3105 106.5575,77.3045 106.3344,77.2648 106.3112,77.2619 106.2821,77.264 106.2118,77.2753 106.2118,77.2753 33,-2.0,Greenland -71.0292,77.3442 -71.0054,77.3465 -70.8827,77.3534 -70.651,77.3549 -70.5192,77.3529 -70.499,77.3514 -70.4818,77.3493 -70.4602,77.3461 -70.4052,77.3353 -70.3626,77.3292 -70.2216,77.312 -70.1269,77.3024 -70.1,77.3005 -70.0717,77.301 -69.9695,77.3047 -69.9375,77.3041 -69.8881,77.3008 -69.8695,77.2964 -69.8509,77.2877 -69.8637,77.2823 -69.9311,77.2789 -70.0959,77.2746 -70.4296,77.2673 -70.7348,77.2604 -70.7722,77.2591 -70.8381,77.2589 -70.8674,77.2601 -70.8879,77.2619 -70.9095,77.2654 -71.0859,77.3399 -71.0494,77.3459 -71.0292,77.3442 -71.0292,77.3442 32,-2.0,Greenland -72.0234,77.3423 -71.9942,77.3379 -71.8354,77.3309 -71.7071,77.326 -71.4919,77.3074 -71.3844,77.2819 -71.2237,77.2794 -71.1659,77.2789 -71.1393,77.2686 -71.1401,77.2515 -71.1493,77.2467 -71.1651,77.2426 -71.353,77.2139 -71.4828,77.2017 -71.5607,77.1961 -71.7321,77.1931 -71.7981,77.1925 -71.8866,77.2014 -71.9041,77.2036 -71.9194,77.2068 -72.1218,77.2463 -72.255,77.2662 -72.2959,77.2729 -72.3149,77.2767 -72.3319,77.2817 -72.3457,77.2878 -72.3606,77.2999 -72.3496,77.3076 -72.1363,77.3435 -72.0471,77.3443 -72.0234,77.3423 -72.0234,77.3423 14,7.0,Russia 107.042,77.1177 106.9802,77.124 106.9495,77.1246 106.9074,77.1199 106.8909,77.1234 107.0144,77.2211 107.0394,77.2357 107.0819,77.2431 107.1008,77.2452 107.3522,77.2197 107.3758,77.1532 107.2484,77.144 107.042,77.1177 107.042,77.1177 45,7.0,Russia 88.9091,77.0538 88.884,77.0756 88.8767,77.094 88.8841,77.127 88.8949,77.1416 88.9166,77.1539 88.9544,77.1706 89.0025,77.185 89.0221,77.1891 89.0456,77.1919 89.1186,77.2001 89.1796,77.2025 89.2135,77.2032 89.3021,77.197 89.3497,77.1907 89.3928,77.1835 89.4103,77.1792 89.423,77.1701 89.4095,77.1621 89.3793,77.1604 89.3498,77.1627 89.3282,77.1659 89.3147,77.1712 89.2779,77.1681 89.2892,77.1601 89.3204,77.1504 89.3382,77.1462 89.3636,77.1435 89.3928,77.1415 89.4107,77.1369 89.3834,77.1177 89.3613,77.1053 89.3362,77.0945 89.3039,77.0847 89.2252,77.0693 89.2025,77.0661 89.1561,77.0602 89.1295,77.058 89.0959,77.0574 89.0624,77.0591 89.0497,77.0679 89.0038,77.0785 88.8979,77.0871 88.9091,77.0538 88.9091,77.0538 32,-6.0,Canada -90.8067,77.1424 -90.7917,77.1435 -90.7221,77.1438 -90.668,77.1434 -90.644,77.1407 -90.5501,77.1294 -90.5078,77.1204 -90.4719,77.11 -90.4519,77.0933 -90.4642,77.0698 -90.5153,77.0457 -90.5477,77.036 -90.5716,77.0314 -90.6043,77.0277 -90.6359,77.0263 -90.7143,77.027 -90.7853,77.0348 -90.9197,77.053 -90.9564,77.0595 -90.9735,77.0636 -90.9969,77.0734 -91.0208,77.0856 -91.0307,77.0944 -91.0334,77.1067 -91.0114,77.1167 -90.9817,77.1249 -90.9238,77.137 -90.8964,77.1402 -90.8417,77.1436 -90.8192,77.1435 -90.8067,77.1424 -90.8067,77.1424 22,-6.0,Canada -95.0943,77.1269 -95.078,77.1253 -95.0359,77.1181 -94.9669,77.1029 -94.9391,77.0908 -94.9298,77.0781 -94.9337,77.0643 -94.9475,77.0563 -94.9683,77.0535 -95.0145,77.0543 -95.0375,77.0557 -95.0854,77.061 -95.1423,77.0712 -95.2942,77.1021 -95.3347,77.1109 -95.3555,77.1258 -95.3295,77.1298 -95.2325,77.1322 -95.1598,77.1334 -95.1096,77.1296 -95.0943,77.1269 -95.0943,77.1269 53,7.0,Russia 96.2404,77.0906 96.2608,77.0796 96.3043,77.0269 96.2956,77.0195 96.1763,76.9567 96.1554,76.9535 95.9873,76.9101 95.8885,76.8791 95.6607,76.8659 95.4366,76.8357 95.4106,76.8378 95.5089,76.8787 95.5296,76.8819 95.611,76.887 95.6346,76.8894 95.6559,76.8928 95.6703,76.8984 95.6638,76.908 95.6281,76.913 95.5977,76.9124 95.5706,76.9109 95.5258,76.9047 95.4841,76.8976 95.4391,76.8916 95.3912,76.8868 95.3642,76.8849 95.334,76.8843 95.2209,76.8813 94.9881,76.8768 94.966,76.8779 94.9565,76.8864 94.9696,76.8959 94.9842,76.9014 95.037,76.9146 95.1284,76.936 95.191,76.9465 95.2535,76.9571 95.3162,76.9677 95.3486,76.9656 95.4919,76.9675 95.8027,77.0017 95.8868,77.0155 95.9652,77.031 96.005,77.0398 96.0378,77.0494 96.0681,77.0602 96.0798,77.0665 96.1396,77.0873 96.158,77.0917 96.1791,77.0956 96.2119,77.0935 96.2404,77.0906 96.2404,77.0906 26,-7.0,Canada -104.1202,76.9776 -104.1194,76.9766 -104.0995,76.9705 -104.0747,76.9661 -104.0519,76.9632 -104.0005,76.9619 -103.9506,76.9622 -103.8947,76.9669 -103.8484,76.976 -103.746,76.9963 -103.7223,77.002 -103.7075,77.0075 -103.6972,77.0134 -103.699,77.0252 -103.7176,77.0354 -103.7288,77.0403 -103.7688,77.0508 -103.8111,77.0554 -103.8808,77.0566 -103.9703,77.0491 -103.9976,77.0447 -104.0165,77.0411 -104.1026,77.017 -104.1202,77.0086 -104.1289,76.9885 -104.1202,76.9776 23,-7.0,Canada -113.4486,76.9935 -113.4767,76.9936 -113.523,76.9948 -113.5504,76.9973 -113.5786,77.0025 -113.5972,77.0108 -113.5984,77.0218 -113.59,77.0305 -113.5701,77.0355 -113.55,77.0389 -113.5287,77.0407 -113.4678,77.0418 -113.4437,77.0409 -113.3921,77.0375 -113.3691,77.034 -113.3456,77.0294 -113.3328,77.017 -113.3495,77.0061 -113.3733,77.0009 -113.3978,76.9975 -113.423,76.995 -113.4486,76.9935 -113.4486,76.9935 37,7.0,Russia 88.6762,77.0305 88.6981,77.0188 88.6834,77.0104 88.6574,77.0082 88.5936,77.0063 88.4895,77.0056 88.4261,77.0041 88.3998,77.0015 88.3886,76.9923 88.408,76.9857 88.4332,76.9833 88.4593,76.9838 88.505,76.99 88.5308,76.9889 88.5713,76.9704 88.5352,76.9009 88.5266,76.8949 88.5052,76.8979 88.4488,76.9104 88.4211,76.9205 88.4113,76.9261 88.3753,76.9508 88.3708,76.9654 88.3732,76.9787 88.38,76.9944 88.3937,77.0084 88.4061,77.014 88.4374,77.0239 88.4531,77.0284 88.4727,77.0322 88.4954,77.0352 88.5221,77.0375 88.5855,77.0397 88.6187,77.0385 88.6444,77.0355 88.6762,77.0305 88.6762,77.0305 21,11.0,Russia 156.0428,77.0365 156.1011,77.0374 156.1487,77.0363 156.1985,77.0325 156.223,77.0297 156.2461,77.0263 156.2683,77.0216 156.2771,77.0121 156.2661,77.0038 156.2497,76.9984 156.22,76.9954 156.1638,76.9934 156.1364,76.9926 156.1108,76.9937 156.062,76.9987 156.0154,77.0057 155.9944,77.0117 155.9824,77.0213 155.9962,77.0297 156.0428,77.0365 156.0428,77.0365 737,-6.0,Canada -96.6388,76.605 -96.603,76.5965 -96.5808,76.5928 -96.5398,76.5881 -96.5131,76.5867 -96.4877,76.5863 -96.4603,76.588 -96.3854,76.5952 -96.36,76.595 -96.3357,76.593 -96.252,76.5838 -96.1889,76.5676 -96.1749,76.5507 -96.1375,76.5338 -96.1066,76.5268 -96.0729,76.5237 -95.9959,76.5236 -95.951,76.5168 -95.9046,76.485 -95.8849,76.4742 -95.7439,76.4403 -95.7197,76.4391 -95.5083,76.4401 -95.4868,76.4449 -95.4279,76.4678 -95.3879,76.4903 -95.3568,76.496 -95.319,76.491 -95.3858,76.4525 -95.4155,76.4391 -95.5066,76.4102 -95.5343,76.4077 -95.6727,76.4097 -95.7247,76.4105 -95.7864,76.414 -95.8275,76.394 -95.8092,76.3694 -95.724,76.3283 -95.5803,76.2926 -95.4667,76.2857 -95.4455,76.2838 -95.3979,76.2777 -95.3751,76.276 -95.1777,76.2575 -95.1253,76.2444 -95.0624,76.2583 -95.0302,76.264 -95.0056,76.264 -94.8641,76.2532 -94.6972,76.2393 -94.6272,76.2336 -94.567,76.2263 -94.5394,76.2114 -94.5775,76.2006 -94.5907,76.2161 -94.6475,76.2216 -94.691,76.2239 -94.7161,76.2245 -94.7426,76.223 -94.7999,76.2082 -94.825,76.1946 -94.8506,76.1898 -94.9906,76.1746 -95.011,76.1733 -95.0498,76.1829 -95.0815,76.1935 -95.1021,76.1916 -95.1195,76.1755 -95.1135,76.1273 -95.0871,76.1264 -94.7623,76.1284 -94.5716,76.1605 -94.5216,76.1768 -94.3751,76.1853 -94.2048,76.1731 -93.9474,76.1728 -93.8951,76.1681 -93.8636,76.1564 -93.8328,76.1516 -93.6914,76.1499 -93.5206,76.1451 -93.4337,76.1561 -93.4569,76.1598 -93.4957,76.1738 -93.4611,76.2016 -93.4146,76.214 -93.3812,76.2179 -93.3602,76.2003 -93.3952,76.1894 -93.363,76.1835 -93.3244,76.1849 -93.2986,76.1891 -93.1865,76.2183 -93.1178,76.2381 -93.0817,76.2477 -93.052,76.252 -92.9765,76.2583 -92.9494,76.2597 -92.9239,76.26 -92.8751,76.2583 -92.8525,76.2556 -92.8151,76.2475 -92.7946,76.2271 -92.8145,76.209 -92.805,76.1912 -92.6855,76.1378 -92.5412,76.1021 -92.3772,76.001 -92.3257,75.9016 -92.1817,75.8317 -92.1519,75.8215 -92.0708,75.8 -91.9826,75.7847 -91.959,75.7814 -91.9172,75.7788 -91.8815,75.7723 -91.8526,75.7463 -91.848,75.7076 -91.8615,75.6855 -91.8851,75.6719 -91.9206,75.641 -91.9026,75.6249 -91.8835,75.6149 -91.8363,75.5941 -91.7969,75.5822 -91.7553,75.5554 -91.7571,75.4863 -91.8107,75.4651 -91.8407,75.4581 -91.9033,75.4507 -91.9601,75.4437 -92.0758,75.3836 -92.1362,75.3365 -92.1768,75.2891 -92.2181,75.1799 -92.2405,75.109 -92.0765,75.0472 -91.9445,75.0388 -91.8567,75.0472 -91.8285,75.0487 -91.8053,75.0441 -91.7636,74.9938 -91.7911,74.9814 -91.8649,74.9779 -91.9053,74.9799 -91.9393,74.9773 -91.9779,74.969 -91.965,74.9351 -91.9217,74.8953 -91.8566,74.8715 -91.8076,74.8538 -91.7728,74.8084 -91.7655,74.7853 -91.7742,74.7496 -91.8068,74.7312 -91.8225,74.71 -91.8114,74.691 -91.7673,74.6734 -91.722,74.6617 -91.6526,74.6485 -91.62,74.6189 -91.6361,74.6099 -91.6326,74.6026 -91.6031,74.5953 -91.5672,74.6095 -91.5405,74.6235 -91.5154,74.6254 -91.4698,74.6254 -91.4053,74.6155 -91.3867,74.6006 -91.4295,74.5894 -91.4425,74.5729 -91.309,74.5455 -91.2187,74.5377 -91.0197,74.5267 -90.8967,74.5226 -90.8722,74.5368 -90.9181,74.5636 -90.9444,74.5792 -90.9869,74.6283 -90.9426,74.6529 -90.9046,74.6473 -90.8647,74.6488 -90.8379,74.659 -90.7624,74.6873 -90.7375,74.6972 -90.6376,74.7521 -90.612,74.7733 -90.5789,74.7812 -90.5271,74.7802 -90.5084,74.7468 -90.5206,74.7287 -90.6142,74.6738 -90.6529,74.6575 -90.6955,74.6488 -90.7184,74.6472 -90.7415,74.6375 -90.7818,74.6044 -90.6544,74.5801 -90.6352,74.5949 -90.5135,74.6076 -90.4993,74.566 -90.4726,74.5462 -90.3786,74.5161 -90.355,74.5114 -90.2953,74.5034 -90.2619,74.4998 -90.2224,74.4991 -90.129,74.4928 -90.0207,74.4668 -89.9904,74.4617 -89.8735,74.4475 -89.7049,74.4298 -89.3491,74.4386 -89.2585,74.4438 -89.2158,74.4481 -88.96,74.4841 -88.9194,74.4977 -88.8975,74.5121 -88.8641,74.5828 -88.8821,74.5924 -88.9093,74.5961 -88.964,74.6089 -88.9843,74.6191 -89.0352,74.6533 -89.0105,74.6531 -88.9905,74.6502 -88.9501,74.6358 -88.8701,74.6173 -88.8459,74.6152 -88.8146,74.6234 -88.7792,74.6746 -88.8214,74.6922 -88.8563,74.7334 -88.68,74.6728 -88.6804,74.647 -88.6859,74.6174 -88.6555,74.566 -88.6372,74.5575 -88.6111,74.5581 -88.5859,74.5671 -88.5205,74.618 -88.5196,74.6517 -88.5151,74.6787 -88.4385,74.7384 -88.3303,74.8012 -88.3033,74.802 -88.2532,74.7551 -88.1168,74.6825 -88.176,74.6338 -88.3125,74.514 -88.3316,74.4913 -88.342,74.4513 -88.3021,74.4012 -88.2686,74.396 -88.1281,74.3874 -88.0359,74.3821 -87.8091,74.3754 -87.677,74.3708 -87.6215,74.3747 -87.5286,74.3777 -87.5062,74.365 -87.4848,74.3593 -87.4442,74.3585 -87.3491,74.3605 -87.2922,74.365 -87.2488,74.3744 -87.1274,74.3938 -87.0875,74.3727 -87.0453,74.3666 -87.001,74.3654 -86.682,74.359 -86.47,74.3663 -86.4819,74.3985 -86.5736,74.4452 -86.5753,74.5116 -86.5513,74.5146 -86.532,74.4958 -86.4906,74.4531 -86.4668,74.4424 -86.44,74.4328 -86.4093,74.4244 -86.2301,74.3818 -86.2006,74.3771 -86.1763,74.3777 -86.1099,74.3886 -86.0563,74.407 -86.0133,74.4331 -86.0023,74.4671 -86.0147,74.491 -85.9968,74.5072 -85.9642,74.5135 -85.9304,74.5071 -85.8589,74.4407 -85.8789,74.4097 -85.8998,74.383 -85.8604,74.3776 -85.8376,74.3768 -85.7917,74.3779 -85.3831,74.3941 -85.3598,74.3966 -85.3307,74.4018 -85.3065,74.4085 -85.2831,74.419 -85.2624,74.4515 -85.298,74.4907 -85.3242,74.5822 -85.3015,74.5865 -85.2776,74.5792 -85.2515,74.5613 -85.1451,74.4412 -85.1395,74.4006 -85.0394,74.389 -85.0,74.3902 -85.0,75.4892 -85.0696,75.4629 -85.0953,75.4551 -85.2098,75.4546 -85.5281,75.4403 -85.6302,75.4391 -85.6735,75.4381 -85.7686,75.4255 -85.8695,75.4109 -85.9106,75.3933 -85.882,75.3781 -85.7715,75.3665 -85.6739,75.3548 -85.444,75.3079 -85.5997,75.3106 -85.7968,75.3171 -85.8478,75.3161 -85.9351,75.3131 -85.9638,75.3108 -86.0105,75.2966 -86.132,75.2728 -86.2567,75.2575 -86.2851,75.255 -86.3092,75.2541 -86.3728,75.2606 -86.3411,75.2721 -86.3182,75.2763 -86.271,75.2829 -86.1629,75.2987 -86.1357,75.3188 -86.2381,75.3493 -86.3392,75.3679 -86.3653,75.3707 -86.4004,75.3724 -86.4855,75.3695 -86.5341,75.3701 -86.5704,75.3738 -86.6253,75.3861 -86.6852,75.4002 -86.7294,75.4126 -86.7736,75.4258 -86.817,75.4411 -86.8373,75.4577 -86.8491,75.4742 -87.0031,75.5138 -87.0237,75.5152 -87.046,75.5141 -87.1149,75.5072 -87.1472,75.501 -87.2231,75.4573 -87.2272,75.4156 -87.1964,75.4005 -87.1785,75.3768 -87.2013,75.3617 -87.221,75.3559 -87.2611,75.3467 -87.3022,75.3397 -87.3367,75.3385 -87.3589,75.3461 -87.3249,75.3537 -87.2911,75.3597 -87.2595,75.375 -87.4145,75.4586 -87.4663,75.4684 -87.5106,75.4707 -87.7172,75.4385 -87.8269,75.4162 -87.8816,75.3953 -87.9072,75.3833 -87.9662,75.3658 -87.9878,75.3657 -88.0219,75.3704 -88.057,75.3851 -87.9995,75.4035 -87.9611,75.4169 -87.9874,75.4337 -88.074,75.4507 -88.1218,75.463 -88.1569,75.4732 -88.2063,75.4895 -88.2648,75.5136 -88.2995,75.5298 -88.3307,75.5427 -88.3571,75.5535 -88.3876,75.5612 -88.4343,75.5693 -88.4864,75.5733 -88.5109,75.5705 -88.6219,75.4801 -88.5581,75.4258 -88.5066,75.3675 -88.5321,75.3283 -88.5547,75.3295 -88.5764,75.3317 -88.5995,75.331 -88.6288,75.3286 -88.679,75.3218 -88.7146,75.3255 -88.8562,75.3785 -88.902,75.4225 -88.9113,75.4413 -88.9326,75.4677 -88.9819,75.48 -89.0574,75.4833 -89.1066,75.4831 -89.158,75.4815 -89.1914,75.4782 -89.2209,75.4711 -89.251,75.4562 -89.2755,75.4473 -89.3057,75.443 -89.3314,75.4419 -89.4,75.4424 -89.4583,75.4493 -89.4386,75.4559 -89.3828,75.4554 -89.3069,75.4638 -89.3513,75.4832 -89.404,75.4812 -89.436,75.474 -89.485,75.468 -89.5181,75.4706 -89.4031,75.5094 -89.2972,75.5046 -89.0913,75.5218 -89.0162,75.5236 -88.9177,75.6441 -88.921,75.6694 -88.9549,75.6804 -89.0305,75.692 -89.0731,75.6972 -89.1378,75.7124 -89.169,75.729 -89.1914,75.7387 -89.3103,75.7507 -89.3393,75.7524 -89.3672,75.7486 -89.4419,75.6953 -89.4908,75.6801 -89.5252,75.6832 -89.528,75.7259 -89.5015,75.7399 -89.4682,75.7618 -89.4429,75.7868 -89.5751,75.836 -89.659,75.8578 -89.6767,75.8965 -89.7064,75.9009 -89.7642,75.903 -89.7942,75.9011 -89.8153,75.893 -89.8626,75.8413 -90.0059,75.8599 -90.0903,75.8514 -90.2495,75.7895 -90.2773,75.7958 -90.2716,75.825 -90.2408,75.8388 -90.1883,75.8626 -90.2219,75.8723 -90.3174,75.873 -90.4644,75.8821 -90.503,75.8877 -90.5328,75.8883 -90.5528,75.8786 -90.5779,75.8564 -90.5952,75.8452 -90.6445,75.8203 -90.6876,75.8083 -90.8009,75.7745 -90.8333,75.7389 -90.8551,75.7337 -90.8806,75.7383 -90.8731,75.7508 -90.8834,75.796 -90.8565,75.8092 -90.8174,75.8156 -90.7642,75.8187 -90.7151,75.8241 -90.6936,75.8481 -90.816,75.8831 -90.8974,75.9113 -90.7517,75.9176 -90.6756,75.9082 -90.6507,75.9085 -90.4655,75.9156 -90.3831,75.9209 -90.1524,75.9237 -90.0768,75.9241 -90.0497,75.9253 -90.0225,75.9272 -89.9725,75.9361 -89.9434,75.9502 -90.1559,75.9788 -90.1766,75.9808 -90.2212,75.9821 -90.2952,75.9841 -90.3219,75.9828 -90.3523,75.9789 -90.4092,75.9678 -90.4562,75.9569 -90.5496,75.9597 -90.5316,75.9656 -90.5041,75.9691 -90.4187,76.0074 -90.4464,76.0121 -90.6281,76.0295 -90.8612,76.0488 -90.9078,76.0519 -90.9561,76.0538 -91.0164,76.0484 -91.0804,76.0709 -91.0762,76.1064 -91.1598,76.1175 -91.322,76.1437 -91.3441,76.1543 -91.3136,76.1572 -91.1888,76.1487 -91.1667,76.146 -91.0093,76.1207 -90.9561,76.1078 -90.8566,76.0841 -90.682,76.0732 -90.5316,76.0639 -90.4122,76.0593 -90.1952,76.0472 -90.056,76.0307 -89.8585,76.0168 -89.833,76.017 -89.8081,76.0259 -89.8991,76.034 -89.9694,76.0368 -90.0041,76.0394 -90.1612,76.0525 -90.1913,76.0632 -90.1539,76.0721 -90.1197,76.0735 -89.724,76.0661 -89.6443,76.0599 -89.5803,76.0531 -89.3372,76.0581 -89.1274,76.0727 -89.0991,76.076 -89.0756,76.0816 -89.045,76.0899 -88.9476,76.1232 -88.9541,76.1496 -88.973,76.1617 -89.0475,76.1894 -89.1159,76.196 -89.2913,76.2087 -89.5779,76.2322 -89.8093,76.2532 -90.0262,76.281 -90.062,76.2865 -90.113,76.2916 -90.1587,76.2946 -90.3858,76.3022 -90.5409,76.3183 -90.7248,76.3385 -90.7993,76.3419 -90.8894,76.3423 -91.0124,76.3453 -91.1503,76.3504 -91.3057,76.3913 -91.1815,76.4039 -91.1552,76.4041 -91.1143,76.4025 -91.0906,76.4009 -91.0449,76.3956 -90.8323,76.3695 -90.5691,76.3544 -90.5219,76.3525 -90.3816,76.3472 -90.3595,76.3478 -90.2813,76.3528 -90.2543,76.3555 -90.2157,76.3663 -90.2436,76.4195 -90.3154,76.4535 -90.3684,76.4611 -90.4165,76.4644 -90.4829,76.4715 -90.5216,76.4769 -90.559,76.4845 -90.5876,76.4978 -90.6185,76.5157 -90.7267,76.5402 -90.7493,76.5425 -90.8726,76.5552 -91.1242,76.579 -91.1495,76.58 -91.2742,76.5795 -91.4069,76.5753 -91.5133,76.5703 -91.6474,76.5615 -91.6762,76.5592 -91.7073,76.5551 -91.7356,76.5501 -91.7809,76.5376 -91.8149,76.5279 -91.9205,76.5056 -92.068,76.4881 -92.1147,76.4851 -92.1375,76.4862 -92.1578,76.4889 -92.1776,76.4943 -92.2049,76.5041 -92.2426,76.5084 -92.2772,76.5086 -92.3008,76.5072 -92.3479,76.5001 -92.3823,76.4886 -92.4197,76.4837 -92.4412,76.4855 -92.5254,76.5001 -92.5927,76.5093 -92.6155,76.5119 -92.6381,76.5127 -92.6808,76.5134 -92.7814,76.507 -92.8357,76.4835 -92.8585,76.4641 -93.0991,76.36 -93.1281,76.3529 -93.1576,76.3498 -93.1893,76.3478 -93.2118,76.3461 -93.2452,76.3416 -93.268,76.3345 -93.3061,76.311 -93.2645,76.2982 -93.2406,76.3002 -93.2029,76.297 -93.2396,76.2794 -93.2645,76.2763 -93.2838,76.2779 -93.384,76.3322 -93.3648,76.3432 -93.3302,76.354 -93.1962,76.3896 -93.0382,76.4406 -92.9144,76.5588 -92.9035,76.5778 -92.9326,76.6367 -93.0342,76.6589 -93.2202,76.73 -93.3767,76.7954 -93.4768,76.8118 -93.6292,76.8233 -93.6726,76.824 -93.6939,76.8226 -93.7229,76.8163 -93.7543,76.7988 -93.7843,76.7849 -93.8182,76.7798 -93.8888,76.7775 -93.9361,76.778 -93.981,76.7833 -94.1301,76.8084 -94.2193,76.8479 -94.2452,76.8577 -94.3198,76.8654 -94.3629,76.8669 -94.4151,76.865 -94.4481,76.8632 -94.5403,76.8611 -94.6325,76.866 -94.7256,76.8804 -94.8411,76.8856 -94.9003,76.885 -94.9496,76.896 -95.0125,76.9123 -95.0613,76.9295 -95.1013,76.9402 -95.1415,76.9465 -95.1887,76.948 -95.284,76.9431 -95.309,76.9428 -95.3829,76.9483 -95.4302,76.9565 -95.4664,76.958 -95.6103,76.9506 -95.6889,76.9427 -95.8248,76.9344 -95.9571,76.9321 -96.0002,76.9296 -96.107,76.9186 -96.0757,76.8827 -96.2051,76.8611 -96.3436,76.8697 -96.3942,76.8719 -96.4628,76.8721 -96.4926,76.8707 -96.5359,76.8593 -96.4862,76.855 -96.4397,76.8529 -96.4085,76.849 -96.3834,76.8393 -96.4247,76.8238 -96.4451,76.8253 -96.4875,76.8276 -96.5172,76.8273 -96.5545,76.8229 -96.5862,76.8055 -96.5784,76.7827 -96.5272,76.7549 -96.27,76.7131 -96.2241,76.7084 -96.1769,76.7056 -96.0902,76.703 -96.0418,76.6948 -96.0331,76.6433 -96.0543,76.641 -96.1502,76.6352 -96.3158,76.6493 -96.4025,76.6606 -96.4474,76.6737 -96.5694,76.7019 -96.6027,76.6985 -96.6224,76.6857 -96.6769,76.6181 -96.6388,76.605 17,-6.0,Canada -96.9617,76.9273 -96.9178,76.9275 -96.8737,76.9199 -96.8558,76.9153 -96.8118,76.8977 -96.9505,76.8612 -96.9758,76.8572 -97.0034,76.8555 -97.0542,76.8579 -97.1283,76.8629 -97.1771,76.8671 -97.1917,76.8702 -97.1423,76.8954 -97.0931,76.9123 -97.0048,76.923 -96.9617,76.9273 -96.9617,76.9273 908,3.0,Russia 55.181,74.3201 55.2223,74.3332 55.2729,74.3396 55.2944,74.3378 55.7492,74.3541 55.9059,74.3619 56.0173,74.3683 56.1049,74.3742 56.1364,74.3859 56.1129,74.3996 56.0885,74.3993 56.0579,74.3959 55.9905,74.3872 55.8808,74.393 55.931,74.4127 55.8924,74.4332 55.8636,74.4401 55.7602,74.4453 55.5621,74.4502 55.3834,74.4604 55.3546,74.4673 55.3841,74.5454 55.4276,74.5575 55.5044,74.5718 55.5338,74.5766 55.6285,74.5866 55.6531,74.5863 55.7032,74.5786 55.7201,74.562 55.7452,74.5561 55.7699,74.5557 55.8107,74.5611 55.8395,74.5667 55.8878,74.5754 56.0287,74.5958 56.1567,74.6082 56.2419,74.6164 56.2756,74.604 56.3505,74.5874 56.4381,74.5764 56.4642,74.5751 56.6137,74.5715 56.6385,74.5717 56.8366,74.5852 56.798,74.601 56.7747,74.6042 56.752,74.6033 56.683,74.6006 56.663,74.5972 56.6166,74.587 56.5823,74.5858 56.4795,74.59 56.4537,74.5914 56.4296,74.6017 56.4274,74.6207 56.4034,74.6313 56.337,74.6906 56.1772,74.6952 56.1529,74.6952 56.0791,74.6958 56.0558,74.6948 56.0268,74.6895 55.9587,74.6777 55.9138,74.6747 55.8423,74.6723 55.7927,74.6724 55.7681,74.6762 55.6722,74.702 55.6894,74.7223 55.7743,74.7398 56.1739,74.8028 56.1939,74.8061 56.2352,74.8111 56.2872,74.8058 56.3316,74.809 56.3737,74.8142 56.5275,74.846 56.5122,74.8636 56.4828,74.8656 56.4274,74.8526 56.3872,74.8461 56.364,74.8452 56.3395,74.8457 56.2865,74.848 56.1486,74.8552 56.2163,74.8837 56.2532,74.8922 56.2749,74.8945 56.3042,74.8998 56.324,74.9097 56.2931,74.9289 56.2694,74.9318 56.0681,74.9176 55.9633,74.9033 55.9269,74.8946 55.9068,74.8914 55.8633,74.8872 55.8403,74.8865 55.7424,74.8858 55.7147,74.8928 55.7505,74.9235 55.7908,74.9608 55.7676,74.9776 55.731,74.9823 55.7061,74.9825 55.6593,74.9807 55.6392,74.9772 55.6027,74.9689 55.5798,74.9721 55.5966,75.0024 55.6529,75.045 55.7748,75.0892 55.8825,75.1093 55.9046,75.111 55.9271,75.1094 55.9482,75.105 55.9682,75.0813 55.9888,75.0485 56.01,75.0442 56.0371,75.0426 56.0587,75.045 56.088,75.05 56.133,75.0641 56.1727,75.0793 56.2027,75.0843 56.232,75.0744 56.3156,74.9993 56.3086,74.9645 56.33,74.9574 56.3587,74.9632 56.4879,75.0101 56.5142,75.0247 56.6083,75.0771 56.644,75.0958 56.6692,75.1045 56.7102,75.1108 56.7544,75.1319 56.7517,75.1604 56.7211,75.1765 56.6971,75.1793 56.6748,75.1772 56.6513,75.1766 56.6261,75.1767 56.5979,75.1793 56.5785,75.1931 56.6016,75.2114 56.6873,75.2476 56.7149,75.2546 56.8732,75.2841 56.8969,75.285 56.9243,75.2837 57.1065,75.2684 57.2724,75.2495 57.3745,75.2264 57.3985,75.2236 57.4253,75.2222 57.5553,75.2182 57.5806,75.2178 57.5765,75.2429 57.4981,75.3213 57.4657,75.3372 57.388,75.3461 57.3552,75.3887 57.4139,75.4103 57.4722,75.4227 57.4929,75.4259 57.802,75.4578 57.9651,75.4641 57.995,75.4642 58.0222,75.472 58.034,75.4965 57.9936,75.5168 57.9665,75.5181 57.9421,75.5175 57.8865,75.5117 57.8258,75.51 57.7969,75.5128 57.7672,75.5194 57.7755,75.5388 57.8,75.5525 57.833,75.5653 57.8842,75.5742 57.9265,75.5762 57.9506,75.577 58.0723,75.583 58.3547,75.6177 58.3818,75.6519 58.4063,75.6619 58.6068,75.7282 58.6268,75.7321 58.7296,75.7504 58.7742,75.7553 58.825,75.7558 58.8529,75.7542 58.9107,75.7489 58.96,75.7501 58.9815,75.7534 59.0019,75.7571 59.1008,75.7786 59.1895,75.8101 59.21,75.8197 59.23,75.8236 59.252,75.8265 59.2752,75.8284 59.2999,75.8293 59.4539,75.8287 59.4913,75.8233 59.5305,75.8169 59.5785,75.8194 59.6003,75.8224 59.7977,75.8572 59.8228,75.8697 59.8746,75.8793 59.8981,75.881 59.9942,75.8858 60.019,75.8863 60.076,75.8817 60.1021,75.8813 60.1271,75.8818 60.1598,75.8862 60.1753,75.903 60.1409,75.9113 60.0887,75.9198 60.029,75.9265 59.9543,75.9248 59.9283,75.9251 59.9021,75.9293 59.8771,75.937 59.8989,75.9499 60.0851,75.995 60.1058,75.9991 60.1278,76.0021 60.2913,76.0154 60.3385,76.0184 60.3887,76.0196 60.6388,76.0132 60.6653,76.0065 60.5571,75.9838 60.4772,75.9657 60.3003,75.9068 60.464,75.8902 60.4897,75.89 60.515,75.8902 60.5383,75.8923 60.5602,75.8951 60.5897,75.9023 60.6125,75.9185 60.6256,75.9411 60.6494,75.9508 60.6999,75.9538 60.7746,75.9553 60.8935,75.9628 60.9131,75.9675 60.9852,76.0239 60.9481,76.0356 60.8977,76.0342 60.8267,76.0293 60.8016,76.0289 60.775,76.0293 60.7346,76.0407 60.8242,76.1395 60.8738,76.1621 60.8946,76.1657 60.9187,76.1677 61.0009,76.1702 61.1306,76.174 61.4371,76.1954 61.4564,76.2002 61.4805,76.2019 61.5059,76.2023 61.534,76.2006 61.5551,76.1956 61.5904,76.1798 61.6111,76.175 61.8247,76.1477 61.8542,76.1444 62.0069,76.1461 62.1321,76.1497 62.1968,76.1068 62.2176,76.082 62.2523,76.0764 62.3045,76.0713 62.3276,76.0688 62.3702,76.0987 62.5172,76.1413 62.5588,76.1501 62.5813,76.1527 62.6295,76.1555 62.6667,76.1502 62.6866,76.1391 62.6715,76.1231 62.7282,76.0999 62.803,76.1021 62.8481,76.1073 62.9771,76.1298 63.1882,76.171 63.343,76.2036 63.5152,76.2348 63.5384,76.2372 63.7006,76.2297 63.8342,76.2131 63.8555,76.2049 63.8798,76.2015 63.9051,76.2019 63.9293,76.2033 63.976,76.2101 63.9967,76.2151 64.0157,76.2211 64.128,76.2516 64.2901,76.284 64.4835,76.3089 64.5376,76.3394 64.6145,76.3657 64.7536,76.3818 64.7769,76.3841 64.8014,76.3854 64.8829,76.3816 64.8929,76.3613 64.9266,76.3584 64.9771,76.3596 65.1491,76.3946 65.1728,76.405 65.2027,76.4424 65.2288,76.4507 65.3397,76.4698 65.3623,76.4731 65.3891,76.4721 65.4384,76.4591 65.7357,76.4191 65.7625,76.4181 65.7874,76.4191 65.8319,76.4326 65.7203,76.5171 65.6992,76.5281 65.645,76.5462 65.6169,76.5538 65.5699,76.5725 65.6966,76.6232 65.7374,76.6348 65.7593,76.6392 65.81,76.644 65.8361,76.6438 65.8634,76.6426 65.9626,76.649 66.1946,76.7253 66.2154,76.7367 66.2363,76.7427 66.2603,76.7451 66.3106,76.7473 66.4063,76.7581 66.4406,76.7723 66.4685,76.7871 66.4906,76.7921 66.7544,76.833 66.8008,76.8401 66.8254,76.8425 66.8525,76.8409 66.9098,76.8365 67.0947,76.8604 67.1376,76.8722 67.1606,76.8754 67.3506,76.9006 67.3751,76.9027 67.4018,76.9029 67.4813,76.9029 67.5079,76.9026 67.72,76.8964 67.7473,76.8951 67.8046,76.8902 67.834,76.8869 67.8644,76.8824 67.8893,76.8744 67.9044,76.8599 67.9296,76.8553 68.0695,76.8486 68.1709,76.8469 68.2203,76.8512 68.3108,76.8436 68.4889,76.7659 68.5584,76.7245 68.7338,76.673 68.6914,76.5607 68.6602,76.5476 68.594,76.476 68.6182,76.4683 68.6714,76.4655 68.6655,76.433 68.2053,76.2557 68.0211,76.219 68.0988,76.1912 68.1265,76.1801 68.0987,76.1719 68.0741,76.171 67.9982,76.1713 67.9004,76.1667 67.8063,76.158 67.7385,76.1478 67.5187,76.1074 67.3366,76.0834 67.2903,76.0787 67.2678,76.0752 67.2253,76.0659 67.2045,76.0603 67.0626,76.0197 66.9142,75.9874 66.8478,75.9766 66.7304,75.9672 66.6842,75.9627 66.6623,75.959 66.5171,75.9502 66.4938,75.9477 66.4718,75.9441 66.39,75.9232 66.2879,75.8974 66.2668,75.8925 66.2232,75.8857 66.0224,75.8581 65.8393,75.8398 65.7892,75.8398 65.5611,75.8166 65.2277,75.7731 65.0327,75.7393 65.0122,75.7347 64.9863,75.7204 64.9566,75.7016 64.8442,75.689 64.8207,75.6878 64.7963,75.6878 64.7423,75.6917 64.6663,75.6936 64.5564,75.6785 64.3622,75.6488 64.1959,75.6267 64.011,75.613 63.9622,75.6126 63.9385,75.6112 63.6883,75.5651 63.6577,75.5584 63.6359,75.5485 63.5386,75.5656 63.501,75.5943 63.4805,75.6055 63.4549,75.6062 63.4068,75.6044 63.3814,75.6003 63.4058,75.5959 63.4415,75.5843 63.3629,75.5302 63.314,75.5175 63.1513,75.4839 63.1311,75.4802 63.109,75.4775 63.086,75.4762 63.0127,75.475 62.9351,75.4785 62.9084,75.4805 62.85,75.4795 62.8215,75.4668 62.795,75.4571 62.6343,75.423 62.6136,75.4189 62.5716,75.4126 62.4109,75.4019 62.3673,75.3962 62.3471,75.3923 62.2187,75.3632 62.1122,75.3351 62.0716,75.3272 62.0476,75.3266 62.0012,75.3422 61.9745,75.3439 61.8488,75.3353 61.6859,75.2765 61.531,75.2619 61.5199,75.2327 61.5102,75.2109 61.4832,75.1744 61.348,75.1192 61.3163,75.1148 61.2924,75.1142 61.2555,75.121 61.2314,75.1314 61.2172,75.146 61.2228,75.1777 61.2147,75.2255 61.1171,75.2132 61.1361,75.1898 61.0748,75.145 61.0076,75.1117 60.9826,75.1018 60.9455,75.0917 60.8047,75.0644 60.7216,75.0519 60.7005,75.0492 60.6719,75.0423 60.647,75.0323 60.5863,74.9971 60.6098,74.9895 60.6426,74.9768 60.5995,74.9301 60.5761,74.9218 60.5555,74.9189 60.5335,74.9171 60.5085,74.9178 60.4548,74.9257 60.4269,74.9331 60.4071,74.9533 60.439,74.9958 60.353,75.0095 60.3262,75.0058 60.2814,74.9591 60.2793,74.9371 60.2984,74.9202 60.266,74.9082 60.1393,74.8934 59.9968,74.8832 59.9733,74.8829 59.9456,74.8856 59.8588,74.8971 59.8325,74.8991 59.7727,74.8945 59.918,74.8681 59.947,74.8642 59.9961,74.8632 60.1189,74.8618 60.2605,74.8603 60.4244,74.8646 60.4503,74.8629 60.4704,74.858 60.5037,74.8416 60.5236,74.8245 60.4244,74.7675 60.3974,74.7597 60.3768,74.757 60.3545,74.7551 60.3313,74.7543 60.2344,74.7555 60.0892,74.7566 60.0466,74.7438 60.1045,74.7149 60.1835,74.7005 60.21,74.6839 60.1615,74.6583 60.1162,74.6455 60.0865,74.6409 59.8944,74.6213 59.8509,74.618 59.8294,74.6163 59.7819,74.6159 59.567,74.6398 59.4621,74.6711 59.4308,74.6812 59.3821,74.69 59.355,74.6925 59.4501,74.6377 59.4726,74.6269 59.4971,74.6226 59.5471,74.6205 59.5707,74.6213 59.5965,74.6196 59.6206,74.6155 59.7141,74.5786 59.7164,74.523 59.6093,74.4873 59.5541,74.4835 59.528,74.4853 59.5011,74.4883 59.4444,74.4958 59.4201,74.5003 59.3805,74.5093 59.3342,74.5243 59.2453,74.5551 59.2183,74.5652 59.0716,74.6033 59.0157,74.6177 59.0339,74.5913 59.082,74.573 59.1341,74.5392 59.036,74.4746 58.987,74.4507 58.9693,74.4395 58.9408,74.3816 58.9951,74.337 58.9001,74.3372 58.876,74.338 58.7342,74.3458 58.6324,74.3597 58.5974,74.3725 58.5849,74.3904 58.5657,74.3979 58.5116,74.4036 58.4049,74.4129 58.2636,74.4345 58.2377,74.4419 58.1919,74.4535 58.0986,74.4705 58.0741,74.4748 58.0414,74.4733 58.0313,74.455 58.1125,74.428 58.1726,74.4145 58.2737,74.3981 58.4633,74.3263 58.4619,74.3045 58.4747,74.2618 58.5114,74.2208 58.572,74.2019 58.5928,74.1657 58.5742,74.1349 58.4273,74.0739 58.3577,74.0646 58.335,74.0676 58.233,74.0899 58.2086,74.1011 58.1817,74.1156 58.1623,74.1206 58.1311,74.1171 58.1045,74.0916 58.1169,74.0724 58.1711,74.0544 58.2102,74.0502 58.2363,74.0305 58.1811,73.9902 58.1502,74.0029 58.1038,74.0323 58.084,74.0368 58.0599,74.0407 58.0126,74.0415 57.9892,74.0365 57.9919,73.9759 58.0262,73.9505 58.0497,73.944 58.0694,73.907 57.9889,73.8848 57.9682,73.8831 57.7984,73.9004 57.7709,73.9038 57.5791,73.9492 57.5603,73.957 57.4866,74.0075 57.4583,74.0367 57.413,74.074 57.3874,74.0811 57.3621,74.0825 57.3144,74.0832 57.2685,74.0785 57.3239,74.0432 57.3737,74.0193 57.3831,74.0009 57.3723,73.9818 57.3448,73.9759 57.3228,73.9751 57.2976,73.9764 57.2693,73.9803 57.2163,73.9853 57.1908,73.9868 57.1671,73.9873 57.1369,73.9837 57.1124,73.9754 57.1332,73.9735 57.2044,73.9725 57.379,73.964 57.4083,73.9571 57.4285,73.943 57.4814,73.9161 57.5271,73.8948 57.5847,73.8749 57.6157,73.865 57.6624,73.8535 57.7432,73.8262 57.7657,73.8155 57.794,73.6997 57.7685,73.685 57.6127,73.6259 57.5798,73.6153 57.5531,73.613 57.4772,73.6408 57.4682,73.659 57.4543,73.6741 57.3644,73.7165 57.3449,73.7212 57.2821,73.7339 57.2585,73.7381 57.1298,73.7487 57.0274,73.7567 56.9031,73.7636 56.8092,73.7644 56.7874,73.7635 56.6689,73.7641 56.6188,73.7664 56.5926,73.7692 56.5251,73.7818 56.4256,73.7798 56.5319,73.7553 56.5557,73.7514 56.6026,73.7506 56.7197,73.7496 56.8402,73.7403 56.9151,73.7326 56.9414,73.73 57.0948,73.7182 57.1438,73.725 57.1866,73.7241 57.2172,73.7142 57.3376,73.6555 57.4397,73.6012 57.4699,73.5627 57.4613,73.5196 57.4425,73.5109 57.2084,73.4502 57.1855,73.4507 57.0226,73.4734 56.9511,73.4816 56.9112,73.4869 56.8108,73.5186 56.7011,73.5488 56.6753,73.5686 56.6482,73.5757 56.6218,73.5782 56.5854,73.572 56.6137,73.4994 56.6475,73.4944 56.7678,73.4741 56.8627,73.4578 56.9787,73.4307 57.0051,73.4238 57.1105,73.3921 57.0859,73.3512 56.8956,73.2645 56.8373,73.2393 56.7662,73.2101 56.7153,73.2398 56.6472,73.2649 56.618,73.2614 56.6081,73.2344 56.61,73.1465 56.5796,73.1442 56.4317,73.1548 56.406,73.1571 56.3792,73.1606 56.3328,73.1687 56.2543,73.1772 56.1572,73.1827 56.1089,73.185 56.0862,73.1853 56.0647,73.1842 56.0178,73.1861 55.9905,73.1891 55.9519,73.1985 55.9252,73.2085 55.9029,73.2255 55.8966,73.2488 55.8946,73.2995 55.8705,73.3194 55.834,73.3319 55.7692,73.3411 55.7397,73.3348 55.7876,73.3172 55.837,73.293 55.8449,73.2684 55.8423,73.228 55.7887,73.2052 55.7674,73.208 55.7328,73.2244 55.7019,73.2337 55.6592,73.2423 55.6117,73.2476 55.5216,73.2465 55.4789,73.2448 55.4393,73.2402 55.4182,73.2392 55.3045,73.2379 55.2812,73.2382 55.2557,73.2402 55.2072,73.2516 55.1711,73.2642 55.1479,73.2746 55.0934,73.2947 55.0621,73.3042 55.0426,73.3089 54.8853,73.3368 54.8615,73.3407 54.8354,73.3429 54.7683,73.342 54.7252,73.34 54.6659,73.3334 54.4004,73.3018 54.3724,73.2975 54.3409,73.2875 54.2945,73.2714 54.2329,73.2499 54.2016,73.2401 54.1654,73.233 54.0808,73.2252 53.9131,73.266 53.9035,73.284 53.9265,73.2921 53.9643,73.2978 54.0612,73.3102 54.1039,73.3124 54.1399,73.3116 54.1644,73.3183 54.1984,73.3593 54.1585,73.3649 54.1108,73.3788 54.1119,73.4104 54.2154,73.4596 54.2393,73.4666 54.3411,73.4926 54.4325,73.5114 54.4941,73.5172 54.5309,73.5238 54.5779,73.5424 54.6153,73.5591 54.685,73.5593 55.0358,73.6112 54.852,73.6132 54.7179,73.6278 54.4059,73.6023 54.3574,73.5956 54.322,73.577 54.2953,73.5561 54.2616,73.5394 54.1304,73.5061 54.0529,73.5052 53.9263,73.5062 53.822,73.5271 53.802,73.5441 53.6623,73.6045 53.626,73.6166 53.5369,73.6359 53.4984,73.6589 53.5153,73.7032 53.5496,73.7047 53.5825,73.6857 53.6109,73.6791 53.666,73.6736 53.6911,73.6727 53.714,73.6726 53.7636,73.679 53.8063,73.6897 53.9022,73.7202 53.9291,73.7458 53.9485,73.762 54.0793,73.8013 54.1131,73.8106 54.206,73.8275 54.2435,73.8343 54.3229,73.8443 54.3432,73.8468 54.3651,73.8478 54.4122,73.8479 54.6619,73.8769 54.6378,73.8904 54.6173,73.8947 54.5619,73.9004 54.5183,73.8982 54.4942,73.8981 54.4526,73.9076 54.5549,73.9692 54.6111,73.9875 54.8812,74.0716 55.0033,74.0839 55.0261,74.0851 55.0628,74.0794 55.0826,74.0715 55.107,74.0549 55.1271,74.0504 55.2268,74.0404 55.2793,74.0366 55.5273,74.0147 55.6583,73.9986 55.6834,73.9972 55.7204,74.0075 55.6697,74.0381 55.6345,74.0427 55.611,74.0428 55.5854,74.0443 55.5317,74.0488 55.4872,74.0603 55.4751,74.0835 55.4479,74.0919 55.3828,74.1047 55.1541,74.1387 55.1252,74.1424 55.1012,74.1421 55.0788,74.1412 55.0375,74.1367 55.0151,74.1358 54.9898,74.1371 54.9345,74.1603 55.0755,74.2034 55.1113,74.2001 55.1273,74.1859 55.1656,74.1757 55.2565,74.1785 55.4165,74.1837 55.5269,74.1713 55.5611,74.1668 55.5993,74.1915 55.5224,74.2249 55.402,74.2356 55.2778,74.2458 55.1748,74.2507 55.1173,74.2575 55.0925,74.2649 55.181,74.3201 55.181,74.3201 16,7.0,Russia 96.0659,76.8067 96.0363,76.7951 96.0008,76.7864 95.9454,76.7759 95.7853,76.7739 95.753,76.7758 95.7141,76.784 95.6669,76.7964 95.6776,76.8068 95.7668,76.8187 95.91,76.8283 95.9359,76.8279 96.0237,76.8206 96.0714,76.8141 96.0659,76.8067 96.0659,76.8067 37,-7.0,Canada -113.7286,76.5942 -113.8353,76.6077 -113.8878,76.6112 -114.1736,76.6248 -114.4057,76.6373 -114.4582,76.6407 -114.4963,76.6441 -114.5299,76.6486 -114.5459,76.6574 -114.5259,76.685 -114.5078,76.6919 -114.4751,76.7036 -114.437,76.714 -114.2946,76.7523 -114.2769,76.756 -114.2563,76.7575 -114.0081,76.7672 -113.8098,76.7744 -113.6342,76.78 -113.5578,76.7816 -113.4801,76.7796 -113.4351,76.7746 -113.4073,76.7691 -113.1721,76.7238 -113.1618,76.7182 -113.1264,76.6653 -113.141,76.6568 -113.2888,76.6038 -113.3039,76.5988 -113.3276,76.5953 -113.3552,76.5953 -113.3791,76.597 -113.4592,76.608 -113.5112,76.6106 -113.5634,76.6092 -113.7286,76.5942 -113.7286,76.5942 798,-7.0,Canada -117.3488,75.1389 -117.1491,75.0859 -117.1018,75.0777 -117.0671,75.0739 -116.8523,75.0528 -116.4027,75.0123 -116.3723,75.0123 -116.349,75.0181 -116.3038,75.048 -116.2746,75.0662 -116.2457,75.0744 -116.2124,75.0802 -115.9636,75.101 -115.9266,75.0956 -115.9296,75.0613 -115.9661,75.0302 -115.9662,74.9951 -115.8545,74.9367 -115.5431,74.8827 -115.4529,74.8672 -115.4309,74.8644 -115.3771,74.8618 -115.3541,74.8646 -115.3066,74.8794 -115.2708,74.8953 -115.2437,74.9096 -115.2339,74.9383 -115.2935,75.0041 -115.3122,75.0168 -115.2083,75.0133 -115.1726,75.0015 -115.1411,74.9945 -115.1161,74.9938 -115.0852,74.9962 -115.0623,75.0014 -115.0341,75.0095 -114.9744,75.0331 -114.9447,75.0658 -114.9153,75.0665 -114.8643,75.0001 -114.8824,74.9817 -114.9161,74.9548 -114.8874,74.8849 -114.8576,74.8766 -114.7562,74.8587 -114.7301,74.8587 -114.6472,74.8671 -114.5866,74.8747 -114.5232,74.8852 -114.4613,74.8994 -114.4214,74.9089 -114.2968,74.9349 -114.2141,74.9467 -114.1699,74.9545 -114.1236,74.9692 -114.0878,74.9862 -114.0595,75.0025 -114.034,75.0207 -114.0063,75.0444 -113.9893,75.0709 -114.0953,75.1387 -114.1331,75.1525 -114.1578,75.1573 -114.1863,75.1606 -114.2364,75.162 -114.2658,75.159 -114.298,75.1655 -114.2245,75.2086 -114.1956,75.2084 -114.0427,75.1687 -114.0367,75.1498 -114.0098,75.1399 -113.9756,75.1301 -113.9546,75.1248 -113.9039,75.1172 -113.87,75.1205 -113.8489,75.1287 -113.8285,75.1401 -113.7333,75.2582 -113.7509,75.281 -113.7765,75.2971 -113.77,75.3575 -113.7213,75.3571 -113.6741,75.3316 -113.6482,75.3057 -113.5991,75.2726 -113.5617,75.269 -113.5241,75.2716 -113.4348,75.2806 -113.3508,75.2931 -113.2685,75.3065 -113.1618,75.3222 -113.0719,75.3131 -113.0319,75.3081 -113.2647,75.2617 -113.3423,75.2474 -113.4188,75.2406 -113.4737,75.2325 -113.5043,75.2155 -113.6237,75.0845 -113.6654,74.9791 -113.6421,74.955 -113.6141,74.95 -113.5909,74.9484 -113.3874,74.948 -113.3075,74.9589 -113.0409,74.9682 -112.9959,74.9691 -112.9515,74.9723 -112.6529,74.9927 -112.5901,74.9988 -112.5029,75.0113 -112.3959,75.0336 -112.3889,75.0704 -112.424,75.0905 -112.4108,75.1485 -112.3671,75.1734 -112.3464,75.1702 -112.3078,75.1545 -112.2879,75.1325 -112.3263,75.1091 -112.3257,75.0887 -112.2964,75.0787 -112.2571,75.0735 -112.1628,75.0752 -112.1328,75.0859 -112.1559,75.1064 -112.1325,75.1258 -112.0989,75.1362 -112.0357,75.1187 -111.9916,75.0958 -112.0599,75.0663 -112.1087,75.0546 -112.1601,75.0475 -112.1409,75.0265 -112.1166,75.0198 -112.0878,75.0185 -111.9259,75.0201 -111.6563,75.0304 -111.4854,75.0622 -111.3992,75.0438 -111.2855,75.039 -111.26,75.0416 -111.1742,75.0571 -111.0908,75.0764 -111.0331,75.0928 -110.9767,75.1157 -110.9514,75.1436 -110.9294,75.1593 -110.7592,75.166 -110.6158,75.1265 -110.7293,75.0665 -110.9914,74.9821 -111.2489,74.9103 -111.2958,74.9036 -111.3326,74.901 -111.4246,74.8837 -111.4651,74.8789 -111.5464,74.8836 -111.5709,74.8853 -111.6043,74.8922 -111.6406,74.8961 -111.6677,74.8985 -111.7201,74.8995 -112.0788,74.8955 -112.157,74.8939 -112.2039,74.893 -112.2281,74.8928 -112.276,74.89 -112.5484,74.8742 -112.5708,74.8728 -112.6143,74.8681 -112.7106,74.8514 -112.8235,74.8298 -112.8551,74.8222 -112.9259,74.7938 -112.9569,74.771 -112.9866,74.7463 -113.1218,74.7402 -113.2602,74.7365 -113.4128,74.7272 -113.4343,74.7247 -113.7126,74.688 -113.8039,74.6744 -113.9169,74.6534 -114.1034,74.6043 -114.1267,74.5928 -114.1446,74.5625 -114.1002,74.5372 -114.0779,74.5271 -114.0523,74.517 -114.0024,74.5007 -113.8261,74.4484 -113.7592,74.4292 -113.6477,74.402 -113.5486,74.378 -113.4035,74.3445 -113.3484,74.3359 -113.1799,74.3175 -113.1364,74.3134 -113.1144,74.312 -112.9662,74.3039 -112.7183,74.2967 -112.6298,74.2959 -112.5668,74.297 -112.4633,74.2998 -112.2527,74.3081 -112.149,74.313 -112.0815,74.3172 -112.0042,74.3263 -111.7985,74.3506 -111.6956,74.3672 -111.657,74.3728 -111.5355,74.3817 -111.4123,74.3896 -111.3893,74.3915 -111.3543,74.3996 -111.2708,74.4258 -111.1425,74.4586 -111.1211,74.4609 -111.0992,74.4614 -110.9925,74.466 -110.6935,74.5196 -110.5463,74.5501 -110.5142,74.561 -110.4914,74.5755 -110.4689,74.583 -110.3033,74.6219 -110.3016,74.6756 -110.1483,74.6908 -110.1082,74.704 -110.1155,74.7244 -110.0766,74.7393 -110.0571,74.7443 -110.0363,74.7452 -110.0158,74.7437 -109.8519,74.7305 -109.7288,74.7396 -109.7071,74.7459 -109.6671,74.7547 -109.6469,74.7584 -109.5847,74.7665 -109.5461,74.7671 -109.5169,74.7634 -109.4821,74.7568 -109.3745,74.754 -109.291,74.7545 -109.2286,74.7622 -109.1338,74.7904 -109.1166,74.8119 -109.068,74.8396 -108.8328,74.8767 -108.714,74.902 -108.6603,74.9369 -108.6379,74.9482 -108.5415,74.9659 -108.5041,74.9652 -108.3622,74.9502 -108.3399,74.9426 -108.2444,74.9016 -108.2357,74.8715 -108.2744,74.8735 -108.329,74.8769 -108.3532,74.8781 -108.4597,74.8816 -108.502,74.8815 -108.3939,74.8673 -108.2667,74.8511 -108.2503,74.8359 -108.1613,74.8143 -108.0982,74.8083 -107.9269,74.8208 -107.8504,74.825 -107.7407,74.8263 -107.6941,74.8247 -107.6655,74.8269 -107.611,74.9005 -107.4925,74.9263 -107.4555,74.9421 -107.4842,74.9639 -107.4885,74.9907 -107.4591,74.9922 -107.4224,74.9843 -107.407,74.9713 -107.3944,74.9432 -107.433,74.92 -107.4086,74.8764 -107.3795,74.864 -107.3479,74.8584 -107.2249,74.8371 -107.1821,74.8316 -106.9253,74.8089 -106.879,74.8077 -106.7926,74.8172 -106.7703,74.8188 -106.7294,74.82 -106.6917,74.8236 -106.6498,74.8311 -106.5114,74.8752 -106.497,74.891 -106.4444,74.8992 -106.3823,74.9011 -106.2747,74.8982 -106.1746,74.9027 -105.979,74.9161 -105.9542,74.9183 -105.7182,74.9554 -105.7349,74.9703 -105.7881,74.9949 -105.7255,75.0302 -105.6401,75.0306 -105.6196,75.032 -105.5957,75.0384 -105.5865,75.0672 -105.6062,75.0862 -105.6492,75.1013 -105.5841,75.1685 -105.5303,75.1925 -105.5065,75.1973 -105.4756,75.1998 -105.4456,75.206 -105.3636,75.2548 -105.314,75.363 -105.3906,75.3767 -105.4555,75.3826 -105.3966,75.4138 -105.3474,75.428 -105.3153,75.4342 -105.2519,75.441 -105.2277,75.4446 -105.2031,75.4524 -105.1004,75.5415 -105.1101,75.5883 -105.1576,75.7296 -105.18,75.7506 -105.3167,75.8289 -105.3745,75.8484 -105.4409,75.8681 -105.5426,75.8899 -105.605,75.8983 -105.6421,75.903 -105.7205,75.9126 -106.0042,75.944 -106.0398,75.9474 -106.0715,75.9486 -106.2881,75.9512 -106.3084,75.9505 -106.3414,75.9459 -106.5724,75.8573 -106.5986,75.8329 -106.5963,75.7329 -106.5648,75.716 -106.5339,75.7101 -106.4907,75.7067 -106.4315,75.7074 -106.3843,75.7059 -106.3278,75.6946 -106.3512,75.6876 -106.3846,75.6871 -106.4276,75.6893 -106.4496,75.6891 -106.4992,75.6853 -106.5354,75.6793 -106.5852,75.6595 -106.6021,75.6139 -106.6686,75.6321 -106.7361,75.6645 -106.805,75.7224 -106.7913,75.7633 -106.7831,75.7859 -106.8892,75.7972 -107.0395,75.8047 -107.0712,75.8047 -107.2171,75.7931 -107.4407,75.7724 -107.4609,75.7655 -107.4796,75.7479 -107.5224,75.7227 -107.5755,75.6916 -107.6149,75.6829 -107.6585,75.6783 -107.7079,75.673 -107.7239,75.676 -107.7449,75.6956 -107.7323,75.7157 -107.6246,75.7818 -107.6025,75.7892 -107.5429,75.7932 -107.4864,75.8131 -107.3389,75.8808 -107.4302,75.9302 -107.5111,75.9486 -107.5373,75.954 -107.6155,75.9556 -107.6998,75.9559 -107.7241,75.9548 -108.0497,75.9417 -108.0935,75.9387 -108.1048,76.04 -108.0825,76.0548 -108.0277,76.0741 -107.9483,76.0892 -107.8105,76.1533 -107.7731,76.1725 -107.9633,76.2667 -107.9838,76.2762 -108.0176,76.2872 -108.0575,76.2918 -108.1686,76.2987 -108.2512,76.3003 -108.2736,76.3307 -108.2761,76.3688 -108.3098,76.4637 -108.3851,76.494 -108.4096,76.5311 -108.3711,76.5386 -108.3438,76.5382 -108.3189,76.5363 -108.2978,76.5332 -108.2768,76.5325 -108.2559,76.5327 -108.2349,76.5371 -108.149,76.5753 -108.1319,76.6019 -108.1488,76.627 -108.1855,76.6442 -108.2164,76.6508 -108.2415,76.6519 -108.2859,76.6514 -108.3704,76.6637 -108.3414,76.7012 -108.4354,76.7462 -108.4685,76.7478 -108.5055,76.7255 -108.5324,76.714 -108.5769,76.7044 -108.6146,76.6999 -108.6383,76.702 -108.6615,76.7064 -108.7129,76.713 -108.8147,76.7097 -108.9093,76.6984 -108.9892,76.6875 -109.1965,76.5988 -109.2483,76.5315 -109.3345,76.4844 -109.3942,76.4784 -109.4432,76.4637 -109.5251,76.4236 -109.4994,76.4184 -109.4375,76.4227 -109.4037,76.4125 -109.435,76.3967 -109.4956,76.382 -109.7839,76.3455 -109.9773,76.3247 -110.0722,76.3168 -110.081,76.2836 -110.0674,76.1879 -110.0471,76.1842 -110.0209,76.1828 -109.9553,76.1834 -109.9305,76.1825 -109.8916,76.1777 -109.8433,76.1659 -109.8137,76.1583 -109.7673,76.1451 -109.7057,76.122 -109.6321,76.0947 -109.611,76.089 -109.579,76.0889 -109.587,76.1198 -109.5501,76.1278 -109.5255,76.1284 -109.5007,76.1267 -109.4142,76.1142 -109.3918,76.1112 -109.0899,76.0255 -109.0028,75.9967 -109.1161,75.9284 -109.3597,75.8388 -109.393,75.8334 -109.5215,75.8235 -109.6209,75.8208 -109.7465,75.7867 -109.6316,75.7498 -109.6035,75.7432 -109.5794,75.7432 -109.547,75.7552 -109.4295,75.7699 -109.3563,75.762 -109.3288,75.72 -109.3265,75.6934 -109.1497,75.6764 -109.0034,75.6647 -108.9637,75.6637 -108.9086,75.6563 -108.8253,75.6431 -108.7589,75.6254 -108.6448,75.5889 -108.6136,75.5849 -108.582,75.5861 -108.5351,75.5827 -108.5374,75.507 -108.6225,75.4131 -108.5992,75.3721 -108.6389,75.371 -108.7764,75.3929 -108.8851,75.4031 -108.9549,75.4086 -109.0053,75.4093 -109.2532,75.4161 -109.4495,75.4241 -109.6729,75.4317 -109.7666,75.4347 -109.8941,75.434 -110.0317,75.4336 -110.1248,75.4451 -110.1633,75.461 -110.1928,75.4632 -110.2393,75.4629 -110.4681,75.4607 -110.4914,75.4596 -110.5955,75.4443 -110.6685,75.4267 -110.6912,75.4234 -110.9175,75.4111 -110.9427,75.4122 -110.967,75.4167 -111.0138,75.4394 -111.0482,75.4668 -111.1019,75.512 -111.0835,75.5568 -111.0478,75.6142 -111.1401,75.728 -111.1677,75.7327 -111.1878,75.7332 -111.2309,75.7315 -111.2957,75.7201 -111.3359,75.715 -111.3818,75.7163 -111.5492,75.7205 -111.7183,75.7086 -111.8824,75.6991 -111.909,75.7028 -111.8635,75.7426 -111.7644,75.767 -111.7326,75.7723 -111.6988,75.7748 -111.6338,75.7781 -111.5609,75.7806 -111.4674,75.7878 -111.4197,75.8064 -111.4476,75.8378 -111.4737,75.8428 -111.6669,75.8743 -111.7311,75.8917 -111.7566,75.896 -111.8416,75.9078 -111.9856,75.9223 -112.0723,75.9293 -112.1044,75.9375 -112.2109,75.9986 -112.1839,76.0352 -112.1621,76.0438 -112.1149,76.0565 -112.1429,76.0696 -112.1665,76.0737 -112.2742,76.0889 -112.3055,76.0904 -112.4011,76.0907 -112.4342,76.0926 -112.5451,76.1332 -112.5837,76.1477 -112.6391,76.1555 -112.6814,76.1597 -112.9421,76.1566 -113.0045,76.1548 -113.0463,76.1506 -113.2056,76.1278 -113.2969,76.1107 -113.32,76.1048 -113.366,76.0983 -113.3898,76.0958 -113.6339,76.0816 -113.6702,76.0836 -113.7394,76.11 -113.808,76.204 -113.7896,76.2462 -113.7715,76.2878 -113.7899,76.3214 -113.8184,76.3405 -113.8511,76.3515 -113.8837,76.3596 -113.928,76.3663 -113.9696,76.3717 -114.1268,76.3881 -114.2853,76.3796 -114.3882,76.3866 -114.3763,76.4042 -114.4149,76.4085 -114.5834,76.407 -114.6056,76.3989 -114.6252,76.3812 -114.653,76.3729 -114.6857,76.3673 -114.9428,76.3524 -115.1394,76.3472 -115.18,76.3447 -115.2992,76.3175 -115.321,76.3119 -115.5333,76.2542 -115.5785,76.2396 -115.5928,76.1715 -115.5484,76.1423 -115.5223,76.1353 -115.5019,76.1317 -115.4566,76.1273 -115.4315,76.1262 -115.2249,76.1227 -115.0488,76.123 -114.9486,76.1224 -114.8363,76.1107 -114.7664,76.101 -114.7226,76.0943 -114.6873,76.082 -114.6226,76.0683 -114.5766,76.0647 -114.5287,76.0627 -114.4789,76.061 -114.385,76.0597 -114.3558,76.0512 -114.4068,76.0455 -114.4692,76.0435 -114.5295,76.042 -114.5539,76.0422 -114.6996,76.0486 -114.8076,76.058 -114.8316,76.0616 -114.9498,76.0744 -115.004,76.0772 -115.1234,76.0793 -115.2707,76.0802 -115.3189,76.0785 -115.4909,76.0791 -115.5407,76.0805 -115.5835,76.0843 -115.6335,76.0862 -115.7338,76.0901 -115.7586,76.0904 -115.8378,76.0895 -115.8875,76.0874 -115.97,76.081 -116.0161,76.0754 -116.1985,76.0481 -116.3153,76.0059 -116.3771,75.9497 -116.3745,75.9296 -116.344,75.9187 -116.3202,75.916 -116.2771,75.9151 -116.2036,75.9202 -116.1473,75.8671 -116.1919,75.8639 -116.2129,75.8656 -116.2369,75.8656 -116.2609,75.8648 -116.3079,75.8619 -116.3531,75.8568 -116.3823,75.8512 -116.4044,75.8412 -116.4095,75.8188 -116.3956,75.7966 -116.376,75.788 -116.353,75.7828 -116.3263,75.7781 -116.3003,75.7753 -116.1597,75.767 -115.821,75.7577 -115.7847,75.7575 -115.7315,75.7587 -115.6831,75.7619 -115.5476,75.7777 -115.509,75.781 -115.4259,75.7825 -115.3615,75.7816 -115.2203,75.7745 -115.0748,75.7709 -114.973,75.7715 -114.9023,75.7733 -114.7861,75.7819 -114.745,75.7878 -114.6989,75.792 -114.5883,75.7996 -114.5626,75.8007 -114.5116,75.7983 -114.489,75.7832 -114.5202,75.7676 -114.5934,75.7529 -114.6142,75.7499 -114.6623,75.7464 -114.6822,75.7468 -114.7313,75.7491 -114.7541,75.7512 -114.8205,75.7526 -114.994,75.7485 -115.0387,75.7416 -115.0625,75.7332 -115.0856,75.7315 -115.1875,75.7282 -115.2745,75.7267 -115.3028,75.7279 -115.3463,75.7352 -115.3714,75.7417 -115.4109,75.7473 -115.4366,75.7479 -115.4613,75.742 -115.4788,75.7253 -115.5025,75.7205 -115.7164,75.7033 -115.7846,75.7003 -116.0027,75.6983 -116.2082,75.6963 -116.2662,75.6968 -116.3971,75.695 -116.44,75.6935 -116.4936,75.6898 -116.5366,75.6852 -116.5637,75.6803 -116.6004,75.6681 -116.6326,75.6557 -116.6938,75.631 -116.7009,75.626 -116.717,75.6195 -116.7488,75.6045 -116.8917,75.5273 -116.915,75.5117 -116.9265,75.4861 -116.9026,75.4701 -116.8737,75.4676 -116.5233,75.4592 -116.1668,75.4521 -116.1411,75.4515 -116.071,75.452 -116.0286,75.4534 -115.7952,75.4675 -115.7732,75.4745 -115.5708,75.5083 -115.3963,75.5366 -115.3496,75.5411 -115.2885,75.5452 -115.2013,75.544 -115.1545,75.5442 -115.0751,75.547 -115.0075,75.5539 -114.962,75.5615 -114.9,75.573 -114.8286,75.5878 -114.786,75.5945 -114.759,75.5962 -114.736,75.5969 -114.7113,75.5954 -114.684,75.5879 -114.7259,75.5834 -114.7592,75.5835 -114.7797,75.5809 -114.878,75.554 -114.9634,75.5219 -115.0495,75.4969 -115.1463,75.4859 -115.1895,75.4814 -115.2137,75.479 -115.2483,75.4781 -115.3026,75.4729 -115.3293,75.4678 -115.3717,75.4588 -115.5014,75.4241 -115.6054,75.3981 -115.6562,75.3871 -115.705,75.3795 -115.8079,75.371 -116.4344,75.374 -116.5583,75.3759 -116.5786,75.3768 -116.7218,75.3779 -116.7832,75.3766 -116.8265,75.3748 -116.8988,75.3708 -116.9205,75.3679 -116.9412,75.3632 -117.001,75.3432 -117.0335,75.3319 -117.1006,75.3081 -117.1355,75.2949 -117.2169,75.2564 -117.3488,75.1873 -117.3588,75.1416 -117.3488,75.1389 17,-2.0,Greenland -19.6165,76.7373 -19.5437,76.7074 -19.5338,76.702 -19.5435,76.6921 -19.555,76.687 -19.595,76.6795 -19.6354,76.6723 -19.6604,76.6719 -19.712,76.6729 -19.7293,76.6745 -19.751,76.6821 -19.6996,76.7296 -19.6851,76.7382 -19.6691,76.7426 -19.6442,76.745 -19.6165,76.7373 -19.6165,76.7373 15,7.0,Russia 97.5714,76.6565 97.4598,76.7031 97.449,76.7085 97.4553,76.7167 97.4639,76.7232 97.4839,76.7301 97.5134,76.7347 97.6151,76.7323 97.6385,76.7286 97.6458,76.719 97.6234,76.6802 97.6167,76.6722 97.5897,76.6607 97.5714,76.6565 97.5714,76.6565 50,-6.0,Canada -89.7238,76.3612 -89.7446,76.3615 -89.7857,76.3683 -89.8263,76.3762 -89.8952,76.3959 -89.9284,76.4065 -89.9581,76.4199 -89.9701,76.4266 -90.1544,76.527 -90.2196,76.553 -90.2461,76.5661 -90.3045,76.6005 -90.3144,76.6063 -90.3381,76.6231 -90.3397,76.6374 -90.3232,76.6548 -90.3107,76.6622 -90.2849,76.6735 -90.2505,76.6838 -90.215,76.6899 -89.9714,76.7184 -89.8441,76.7263 -89.7668,76.7295 -89.7246,76.7271 -89.6694,76.7192 -89.6074,76.7064 -89.568,76.6966 -89.5221,76.6756 -89.4171,76.6252 -89.4315,76.5996 -89.446,76.5805 -89.4731,76.5641 -89.4878,76.5601 -89.5118,76.5589 -89.5632,76.558 -89.5824,76.5508 -89.6065,76.4916 -89.6025,76.482 -89.5622,76.4383 -89.5392,76.4244 -89.501,76.4161 -89.4669,76.411 -89.4446,76.4083 -89.4298,76.4029 -89.418,76.3943 -89.5029,76.3773 -89.5291,76.3743 -89.6795,76.3681 -89.7238,76.3612 -89.7238,76.3612 17,7.0,Russia 97.1613,76.624 97.1043,76.6365 97.0809,76.6401 97.0541,76.6383 96.9617,76.6379 96.8987,76.6421 96.8273,76.6548 96.8533,76.6605 97.2266,76.6676 97.2893,76.6679 97.3363,76.6667 97.3212,76.6373 97.2686,76.6399 97.239,76.6394 97.215,76.6371 97.1613,76.624 97.1613,76.624 26,11.0,Russia 147.9782,76.5251 147.9704,76.5315 147.9927,76.5517 148.0185,76.5628 148.0493,76.5738 148.0672,76.5789 148.2413,76.6206 148.3211,76.6365 148.5564,76.6428 148.6871,76.6462 148.8744,76.6589 148.8873,76.644 148.7931,76.5576 148.7852,76.5518 148.7438,76.5415 148.7231,76.5406 148.7002,76.5462 148.6529,76.5543 148.6292,76.5576 148.6042,76.5592 148.5538,76.5607 148.3281,76.5505 148.2206,76.5401 148.061,76.5282 147.9782,76.5251 147.9782,76.5251 84,-2.0,Greenland -18.5962,76.056 -18.5762,76.0367 -18.5208,75.9741 -18.5125,75.9631 -18.5057,75.9517 -18.5015,75.9398 -18.497,75.9162 -18.5016,75.8813 -18.5091,75.8376 -18.5363,75.7958 -18.5471,75.7898 -18.57,75.7847 -18.5833,75.7833 -18.5938,75.7844 -18.6034,75.7922 -18.5976,75.8107 -18.5813,75.8408 -18.5792,75.8587 -18.5846,75.8743 -18.6146,75.9042 -18.627,75.9152 -18.6455,75.9266 -18.6691,75.9437 -18.7228,75.9867 -18.7407,76.0044 -18.7779,76.0434 -18.8259,76.0951 -18.8402,76.113 -18.8504,76.13 -18.855,76.1418 -18.8514,76.1564 -18.8326,76.1728 -18.8384,76.1854 -18.8489,76.1945 -18.9233,76.2509 -18.9832,76.302 -19.0468,76.3583 -19.0744,76.3868 -19.0815,76.3985 -19.0874,76.4207 -19.0815,76.4313 -19.0621,76.454 -19.0467,76.4663 -19.0241,76.4763 -19.0088,76.4812 -18.9909,76.485 -18.9446,76.4845 -18.8929,76.4774 -18.8672,76.4749 -18.7743,76.4715 -18.7351,76.4721 -18.7252,76.4739 -18.7094,76.4787 -18.7289,76.5012 -18.7509,76.5051 -18.7764,76.5074 -18.9267,76.5141 -19.0157,76.6018 -19.0264,76.6175 -19.0148,76.6321 -19.0017,76.6384 -18.9763,76.6467 -18.9647,76.6498 -18.9309,76.6524 -18.9183,76.6518 -18.8875,76.6473 -18.8762,76.6438 -18.7118,76.5905 -18.6814,76.5791 -18.67,76.5736 -18.6336,76.5512 -18.6059,76.5218 -18.5967,76.5078 -18.5985,76.4955 -18.6354,76.4524 -18.6655,76.4128 -18.6696,76.3983 -18.6426,76.2247 -18.6063,76.1787 -18.5955,76.1676 -18.5584,76.1272 -18.5526,76.1112 -18.5962,76.056 -18.5962,76.056 15,-2.0,Greenland -19.6435,76.6432 -19.6186,76.637 -19.5502,76.6095 -19.5714,76.5913 -19.5919,76.5891 -19.663,76.588 -19.6891,76.5916 -19.7803,76.6132 -19.7991,76.6255 -19.7807,76.6421 -19.7696,76.6463 -19.7384,76.6483 -19.7042,76.6479 -19.6435,76.6432 -19.6435,76.6432 36,-6.0,Canada -101.3341,76.4639 -101.2757,76.4547 -101.2522,76.452 -101.1653,76.4452 -101.116,76.4441 -101.0924,76.4447 -101.0387,76.4475 -100.9859,76.4521 -100.9048,76.4624 -100.6356,76.5013 -100.4737,76.5269 -100.2002,76.5753 -100.0303,76.6072 -100.0104,76.6127 -99.976,76.6179 -99.9619,76.6252 -99.982,76.6276 -100.197,76.6452 -100.2213,76.6467 -100.2463,76.6477 -100.4034,76.6454 -100.4554,76.644 -100.6137,76.6268 -100.6687,76.6196 -100.6947,76.6155 -100.7169,76.6097 -100.7479,76.5959 -100.7524,76.5842 -100.7711,76.5766 -100.9248,76.5426 -101.029,76.5338 -101.0966,76.5333 -101.2325,76.5149 -101.2862,76.5053 -101.3989,76.4776 -101.3341,76.4639 34,-6.0,Canada -99.8152,76.6085 -99.8113,76.6078 -99.7652,76.6062 -99.7441,76.6064 -99.7251,76.6096 -99.6298,76.6106 -99.6145,76.6109 -99.6027,76.6094 -99.4481,76.5931 -99.3733,76.5684 -99.3424,76.5638 -99.2975,76.561 -99.2717,76.5612 -99.244,76.5652 -99.1481,76.5878 -99.1635,76.5966 -99.244,76.6163 -99.3371,76.6356 -99.361,76.6384 -99.4084,76.6383 -99.4352,76.6363 -99.4627,76.6334 -99.5338,76.6287 -99.584,76.6269 -99.6902,76.6242 -99.7112,76.6276 -99.6872,76.6352 -99.7129,76.6418 -99.7512,76.6419 -99.7686,76.6413 -99.7961,76.6384 -99.8152,76.6351 -99.8403,76.6127 -99.8152,76.6085 14,7.0,Russia 97.2428,76.4718 97.0404,76.4943 97.0803,76.5834 97.0928,76.6057 97.1165,76.6082 97.1412,76.6071 97.1623,76.6058 97.1728,76.6002 97.3166,76.4884 97.3105,76.4799 97.293,76.4759 97.2692,76.4731 97.2428,76.4718 97.2428,76.4718 25,7.0,Russia 95.3755,76.5643 95.4114,76.5806 95.429,76.5849 95.4616,76.5844 95.5431,76.5809 95.5578,76.5727 95.4388,76.5365 95.4094,76.5362 95.2607,76.537 95.2251,76.5382 95.2013,76.5414 95.1786,76.5485 95.1661,76.5611 95.1404,76.5902 95.1537,76.5939 95.2104,76.6039 95.24,76.6044 95.2709,76.595 95.2797,76.5855 95.2999,76.5707 95.3109,76.5655 95.3264,76.5607 95.3538,76.558 95.3755,76.5643 95.3755,76.5643 31,7.0,Russia 94.8525,76.6031 94.8615,76.5934 94.9531,76.5638 94.9682,76.5592 95.0526,76.5481 95.0332,76.5396 95.013,76.5357 94.9892,76.533 94.9601,76.5325 94.9274,76.5327 94.8203,76.5361 94.7555,76.5362 94.6763,76.5316 94.6527,76.5288 94.6123,76.5218 94.5829,76.521 94.5689,76.5221 94.5535,76.5269 94.5447,76.5366 94.5504,76.547 94.5646,76.5524 94.6049,76.5597 94.689,76.5731 94.7044,76.5739 94.7318,76.5714 94.7554,76.5681 94.7804,76.5666 94.8005,76.5703 94.8115,76.5766 94.8525,76.6031 94.8525,76.6031 28,7.0,Russia 96.1887,76.5965 96.1955,76.5848 96.084,76.5218 95.9683,76.5007 95.941,76.5036 95.9178,76.5067 95.8902,76.5094 95.7319,76.5119 95.7083,76.509 95.6796,76.4983 95.6269,76.501 95.6176,76.5089 95.6185,76.5387 95.627,76.5462 95.6412,76.5515 95.6588,76.5561 95.6995,76.563 95.7261,76.5646 95.7535,76.562 95.7985,76.5611 95.8202,76.559 95.8305,76.5618 95.8979,76.5762 95.9125,76.5817 96.0342,76.595 96.1367,76.5946 96.1887,76.5965 96.1887,76.5965 20,-7.0,Canada -102.5204,75.4719 -102.3921,75.409 -102.2537,75.4057 -102.2189,75.4154 -102.168,75.4247 -102.1189,75.4314 -102.0715,75.4366 -101.9303,75.4472 -101.9303,75.6084 -101.9818,75.6156 -102.0293,75.6203 -102.0698,75.6229 -102.095,75.6228 -102.2564,75.6149 -102.29,75.6093 -102.4068,75.5643 -102.4193,75.5229 -102.5204,75.5247 -102.592,75.507 -102.5204,75.4719 12,-7.0,Canada -102.0715,75.6842 -102.0526,75.6743 -101.9995,75.6753 -101.9504,75.6801 -101.9303,75.6801 -101.9303,75.7639 -101.9829,75.7554 -102.0067,75.7504 -102.0334,75.74 -102.0562,75.7284 -102.085,75.6912 -102.0715,75.6842 73,-7.0,Canada -104.3392,76.4225 -104.2674,76.3737 -104.2264,76.3719 -104.2011,76.3726 -104.1845,76.3803 -104.1526,76.3826 -104.1377,76.3762 -104.0953,76.3525 -104.0345,76.2528 -104.0487,76.246 -104.0676,76.2439 -104.0813,76.2401 -104.0953,76.2346 -104.1101,76.2261 -104.1018,76.2196 -104.0846,76.2152 -104.0411,76.2103 -103.8181,76.2083 -103.7686,76.2092 -103.5559,76.2022 -103.4595,76.1955 -103.4085,76.1962 -103.2626,76.2021 -103.0866,76.2173 -102.9902,76.2288 -102.9134,76.2464 -102.8813,76.2545 -102.8069,76.2764 -102.7513,76.2978 -102.7384,76.3039 -102.7236,76.3121 -102.7131,76.3242 -102.7195,76.3361 -102.7449,76.3455 -102.766,76.3492 -102.9521,76.377 -103.0281,76.3864 -103.0912,76.3834 -103.1112,76.3861 -103.2762,76.4125 -103.2958,76.4204 -103.2906,76.4362 -103.4918,76.5114 -103.5082,76.5128 -103.5307,76.5092 -103.5636,76.498 -103.5735,76.491 -103.5722,76.4733 -103.5835,76.4646 -103.7379,76.4507 -103.7571,76.457 -103.7317,76.4703 -103.6627,76.49 -103.6424,76.5017 -103.6301,76.5127 -103.6283,76.5269 -103.6432,76.5355 -103.6668,76.5407 -103.734,76.5526 -103.7563,76.5556 -103.837,76.5604 -103.919,76.5593 -103.97,76.5579 -104.0172,76.5546 -104.0542,76.5511 -104.0762,76.5467 -104.1089,76.5364 -104.1473,76.5266 -104.2388,76.5082 -104.2652,76.5036 -104.3392,76.4944 -104.3648,76.4399 -104.3392,76.4225 39,7.0,Russia 112.2566,76.3333 112.1634,76.3395 112.1306,76.3426 112.1067,76.3467 112.0514,76.3795 112.0254,76.4089 112.0151,76.4142 111.9856,76.4244 111.962,76.4283 111.9,76.4349 111.8729,76.4347 111.8142,76.4368 111.786,76.44 111.7615,76.4442 111.638,76.4897 111.6491,76.5163 111.6701,76.5195 111.7715,76.5245 111.7989,76.5249 111.8285,76.5238 111.8526,76.5199 111.9099,76.5126 111.9433,76.5095 111.9727,76.5088 111.9895,76.5116 111.997,76.5283 112.0044,76.545 112.0279,76.5474 112.0546,76.5451 112.1867,76.5184 112.2043,76.5105 112.2463,76.441 112.3645,76.4182 112.3839,76.4138 112.3941,76.4051 112.2901,76.3417 112.2749,76.3351 112.2566,76.3333 112.2566,76.3333 24,-2.0,Greenland -21.1139,76.4468 -21.1766,76.4524 -21.2497,76.4578 -21.3218,76.4599 -21.3425,76.4595 -21.3693,76.4627 -21.3926,76.4682 -21.4595,76.4887 -21.4857,76.5031 -21.4659,76.5119 -21.39,76.5322 -21.3747,76.5356 -21.3342,76.5391 -20.9938,76.5349 -20.9046,76.517 -20.9128,76.511 -20.9826,76.5011 -21.0644,76.4779 -21.0357,76.4664 -21.0255,76.4591 -21.0358,76.4564 -21.0873,76.4487 -21.1139,76.4468 -21.1139,76.4468 27,-2.0,Greenland -69.424,76.4978 -69.3933,76.5006 -69.3608,76.501 -69.3343,76.4959 -69.3202,76.4925 -69.2681,76.4672 -69.2811,76.4584 -69.2963,76.454 -69.3829,76.4334 -69.4238,76.4264 -69.4714,76.4216 -69.5353,76.4198 -69.565,76.4199 -69.7527,76.4369 -69.7752,76.4397 -69.808,76.4456 -69.8367,76.4585 -69.8263,76.4672 -69.7736,76.4779 -69.7481,76.4808 -69.6791,76.4848 -69.6296,76.4866 -69.5092,76.4892 -69.4689,76.4919 -69.4352,76.4958 -69.424,76.4978 -69.424,76.4978 15,7.0,Russia 93.6845,76.5007 93.7931,76.4939 94.0261,76.4765 94.0537,76.4741 94.0775,76.4707 94.0889,76.4655 94.0718,76.4612 93.8754,76.4642 93.6154,76.4726 93.6051,76.4803 93.6178,76.4909 93.6313,76.4961 93.6546,76.4987 93.6845,76.5007 93.6845,76.5007 22,-2.0,Greenland -20.6637,76.4053 -20.6527,76.3985 -20.6377,76.3801 -20.6367,76.3052 -20.6467,76.2964 -20.6864,76.2866 -20.7346,76.2818 -20.783,76.2798 -20.8332,76.281 -20.8869,76.287 -21.0206,76.3174 -21.0414,76.3222 -21.0622,76.3282 -21.0776,76.3359 -21.0723,76.3462 -20.7763,76.4159 -20.7542,76.4187 -20.7354,76.4187 -20.6959,76.4136 -20.6736,76.4094 -20.6637,76.4053 -20.6637,76.4053 15,-5.0,Canada -83.8586,76.3981 -83.7754,76.3893 -83.7542,76.3864 -83.7387,76.3823 -83.6806,76.3609 -83.6704,76.3563 -83.7252,76.3178 -83.7486,76.3148 -83.7713,76.3175 -83.8714,76.336 -83.8855,76.3424 -83.9008,76.3987 -83.8893,76.4011 -83.8586,76.3981 -83.8586,76.3981 18,-2.0,Greenland -69.7857,76.3504 -69.7637,76.3478 -69.7094,76.3351 -69.6973,76.3273 -69.7216,76.305 -69.7384,76.2933 -69.7533,76.289 -69.7783,76.2858 -69.8106,76.2857 -69.9137,76.2965 -69.9533,76.3036 -69.9711,76.3096 -69.9882,76.3289 -69.9654,76.3396 -69.9456,76.3412 -69.8065,76.3505 -69.7857,76.3504 -69.7857,76.3504 18,-2.0,Greenland -20.1201,76.3083 -20.0621,76.2945 -20.0462,76.2871 -20.0592,76.2799 -20.0855,76.2789 -20.1273,76.2799 -20.1742,76.284 -20.201,76.2849 -20.2692,76.2841 -20.5279,76.2701 -20.5045,76.2909 -20.4702,76.293 -20.3121,76.3078 -20.2741,76.3121 -20.2237,76.3217 -20.145,76.3413 -20.1201,76.3083 -20.1201,76.3083 22,7.0,Russia 112.7995,76.2617 112.803,76.2724 112.8209,76.287 112.8477,76.3023 112.8939,76.3224 112.9134,76.3265 112.9386,76.3278 112.9669,76.324 112.9837,76.3161 112.9771,76.3061 112.9441,76.2893 112.9514,76.2806 113.0119,76.2737 113.0681,76.2729 113.0959,76.2689 113.1151,76.2646 113.1221,76.2558 113.0967,76.2501 112.9874,76.2507 112.841,76.257 112.7995,76.2617 112.7995,76.2617 31,-2.0,Greenland -20.9002,76.263 -20.8858,76.2522 -20.8703,76.248 -20.8527,76.2454 -20.8271,76.2429 -20.7765,76.2402 -20.6602,76.2196 -20.4511,76.1806 -20.4243,76.1735 -20.4102,76.1671 -20.373,76.1423 -20.3903,76.1333 -20.4321,76.1367 -20.4601,76.1411 -20.4725,76.1463 -20.5179,76.1602 -20.6843,76.2015 -20.7228,76.2107 -20.7657,76.2166 -20.8288,76.221 -20.8474,76.2211 -20.9042,76.2243 -20.9257,76.2268 -20.9525,76.2321 -20.9763,76.2401 -20.9865,76.2459 -20.9945,76.2558 -20.9585,76.269 -20.9241,76.2705 -20.9002,76.263 -20.9002,76.263 26,-2.0,Greenland -20.1256,76.2302 -20.1652,76.2255 -20.2222,76.181 -20.2858,76.1561 -20.3187,76.1514 -20.3354,76.153 -20.349,76.1557 -20.3584,76.1591 -20.3783,76.1696 -20.3945,76.1821 -20.4076,76.1908 -20.4178,76.1964 -20.4361,76.2017 -20.4766,76.212 -20.5631,76.2236 -20.6022,76.2306 -20.5873,76.2348 -20.5336,76.2456 -20.427,76.2571 -20.3983,76.2589 -20.1447,76.2448 -20.1155,76.2422 -20.1015,76.2386 -20.1123,76.2325 -20.1256,76.2302 -20.1256,76.2302 34,7.0,Russia 96.4879,76.0661 96.4632,76.066 96.4525,76.0713 96.4449,76.0918 96.4398,76.1057 96.4663,76.1453 96.5528,76.2315 96.5613,76.2388 96.5846,76.2411 96.6096,76.2411 96.7481,76.2342 96.7652,76.2326 96.7999,76.1949 96.7594,76.1779 96.7247,76.1694 96.6989,76.1676 96.6671,76.1678 96.6092,76.1669 96.5862,76.1643 96.5746,76.1582 96.5663,76.1506 96.5558,76.1195 96.5702,76.1218 96.5958,76.1318 96.6097,76.1392 96.6182,76.1454 96.6505,76.1493 96.6731,76.1457 96.7554,76.1307 96.7659,76.1252 96.7457,76.1218 96.6012,76.093 96.4879,76.0661 96.4879,76.0661 56,-7.0,Canada -104.1711,76.0181 -104.1166,75.9748 -104.0995,75.9709 -103.84,75.9491 -103.7966,75.9522 -103.77,75.9547 -103.693,75.95 -103.5908,75.9379 -103.6341,75.9334 -103.6803,75.9323 -103.6248,75.9244 -103.5768,75.9237 -103.5306,75.9242 -103.391,75.927 -103.0764,75.9286 -103.054,75.9295 -102.646,75.9636 -102.5704,75.9716 -102.5189,75.9781 -102.4935,75.9822 -102.4495,75.991 -102.3843,76.0068 -102.3635,76.0126 -102.3487,76.0179 -102.2932,76.0449 -102.2424,76.1081 -102.2523,76.1217 -102.2701,76.128 -102.3152,76.1376 -102.3411,76.1467 -102.3539,76.1619 -102.3631,76.1796 -102.3782,76.1871 -102.4375,76.1978 -102.4759,76.2034 -102.5272,76.2042 -102.5749,76.203 -102.7697,76.1983 -102.8195,76.1966 -102.841,76.1948 -103.046,76.1719 -103.3032,76.1575 -103.5596,76.142 -103.6259,76.132 -103.6649,76.1252 -103.7824,76.1144 -103.8557,76.1148 -103.8797,76.1165 -103.9544,76.1109 -103.9797,76.1082 -104.0052,76.1048 -104.0229,76.1002 -104.1616,76.0568 -104.1711,76.0511 -104.1879,76.0314 -104.1711,76.0181 66,7.0,Russia 96.0815,75.9901 96.0649,75.9916 96.0501,75.9965 95.9812,76.0208 95.9305,76.0413 95.9078,76.0446 95.8762,76.0449 95.7415,76.0389 95.7099,76.039 95.57,76.0469 95.5432,76.0493 95.4482,76.0621 95.4327,76.0652 95.3996,76.0777 95.3658,76.0869 95.2969,76.0924 95.2635,76.093 95.2118,76.0919 95.1346,76.0871 95.1031,76.0874 95.0683,76.0885 95.0453,76.0918 95.0263,76.0957 94.9965,76.1051 95.0438,76.1684 95.0517,76.1758 95.0776,76.1777 95.1095,76.1773 95.2103,76.1732 95.2252,76.1683 95.265,76.1458 95.3002,76.146 95.4308,76.1679 95.4481,76.1726 95.5159,76.1901 95.5406,76.1904 95.7734,76.1696 95.9534,76.1829 95.9901,76.1912 96.0366,76.1961 96.0682,76.1957 96.0952,76.193 96.3737,76.1529 96.3779,76.1408 96.3241,76.0485 96.299,76.0428 96.2765,76.0458 96.2657,76.0516 96.2522,76.082 96.2638,76.1023 96.2805,76.117 96.2691,76.1266 96.193,76.1575 96.1783,76.162 96.1546,76.1641 96.1285,76.1622 96.1056,76.1597 96.0916,76.1541 96.0801,76.148 96.0398,76.0854 96.1143,76.0689 96.1358,76.0582 96.1248,76.0357 96.0985,75.9943 96.0815,75.9901 96.0815,75.9901 27,7.0,Russia 94.4848,76.1461 94.5416,76.147 94.5814,76.1542 94.6116,76.1638 94.6252,76.1696 94.6328,76.177 94.6486,76.1796 94.6676,76.1758 94.7304,76.1613 94.5971,76.0744 94.5747,76.0717 94.4267,76.079 94.2356,76.0782 94.2156,76.0804 94.1464,76.1001 94.1767,76.1137 94.2097,76.1227 94.2287,76.1248 94.2517,76.1215 94.271,76.1177 94.3714,76.1078 94.4949,76.1004 94.5235,76.1012 94.5362,76.105 94.522,76.1175 94.4848,76.1461 94.4848,76.1461 481,10.0,Russia 136.691,75.5262 136.7688,75.5474 136.7865,75.5708 136.7707,75.5883 136.7421,75.5971 136.7173,75.6015 136.694,75.6144 136.7963,75.6707 136.8263,75.6775 136.8504,75.6792 136.9226,75.6809 137.1323,75.6726 137.1819,75.6647 137.2342,75.6575 137.2571,75.6507 137.3078,75.639 137.3323,75.6357 137.3605,75.6393 137.3415,75.6727 137.3093,75.682 137.2144,75.7041 137.0492,75.7717 137.0314,75.831 137.0682,75.8477 137.1143,75.86 137.1848,75.875 137.3031,75.8975 137.3267,75.9016 137.3508,75.904 137.3993,75.9066 137.5216,75.9091 137.5704,75.9083 137.5947,75.9098 137.6188,75.9122 137.6837,75.9367 137.7155,75.9515 137.7275,75.9697 137.6969,75.9759 137.6497,75.9612 137.6078,75.9492 137.584,75.9442 137.7509,76.0051 137.7839,76.0145 137.8319,76.0243 137.953,76.0379 137.9569,76.0123 138.0023,75.9636 138.0297,75.9534 138.0594,75.9521 138.0874,75.9953 138.0723,76.0161 138.1086,76.0575 138.1359,76.0726 138.1739,76.0849 138.2465,76.0969 138.3197,76.106 138.3443,76.1083 138.3932,76.1111 138.4425,76.1123 138.4805,76.112 138.567,76.0907 138.5698,76.0643 138.5922,76.0407 138.6345,76.0173 138.7064,75.9882 138.8025,75.9647 138.9022,75.95 138.9518,75.9428 138.9766,75.9406 139.0014,75.9376 139.076,75.9247 139.1213,75.9126 139.1616,75.9013 139.1914,75.8897 139.2565,75.872 139.2815,75.8686 139.3059,75.8664 139.3792,75.8665 139.4035,75.8653 139.4284,75.863 139.4481,75.8573 139.4781,75.8454 139.5173,75.8228 139.4944,75.8143 139.4697,75.8182 139.4457,75.819 139.407,75.7772 139.5483,75.7296 139.6458,75.7118 139.7725,75.6944 139.8323,75.7124 139.8565,75.7174 139.8804,75.7175 140.0021,75.7093 140.0506,75.7047 140.1091,75.6869 140.1431,75.672 140.1546,75.6452 140.0939,75.6124 140.0724,75.5979 140.0449,75.5444 140.0694,75.5337 140.0934,75.5302 140.2613,75.5158 140.4766,75.5039 140.5008,75.5025 140.5246,75.5028 140.5486,75.5058 140.5965,75.5158 140.6444,75.5275 140.6687,75.5361 140.5922,75.5738 140.4814,75.6326 140.5056,75.6784 140.5199,75.7347 140.4874,75.7911 140.5104,75.874 140.5298,75.8974 140.557,75.9201 140.5792,75.9319 140.5988,75.9378 140.6233,75.9424 140.6479,75.9446 140.7955,75.9503 140.8198,75.9489 140.9909,75.9284 141.1131,75.9117 141.1372,75.9079 141.1639,75.9002 141.1855,75.8924 141.2182,75.9099 141.0927,75.9608 140.9894,76.0441 140.911,76.0679 140.9358,76.0727 140.9606,76.0728 141.0097,76.0636 141.186,76.0201 141.3669,75.9922 141.6136,75.9262 141.734,75.8926 141.9681,75.8262 142.006,75.8138 142.0372,75.7945 142.0635,75.7752 142.1183,75.7612 142.1656,75.751 142.2617,75.7399 142.3582,75.7345 142.4783,75.7251 142.5019,75.7226 142.5973,75.7077 142.6931,75.6996 142.7415,75.6993 142.7658,75.7 142.8398,75.7079 142.9681,75.7261 142.989,75.7346 143.0139,75.7404 143.1625,75.759 143.1868,75.7602 143.2351,75.7596 143.2596,75.7584 143.5026,75.7304 143.5259,75.7266 143.6194,75.7068 143.8276,75.6542 144.0778,75.6034 144.1246,75.5953 144.2195,75.5894 144.2438,75.59 144.2915,75.5883 144.3239,75.5833 144.3665,75.5562 144.4054,75.5378 144.428,75.5317 144.4982,75.5236 144.6156,75.512 144.7093,75.5044 144.756,75.499 144.8024,75.4912 144.8248,75.4861 144.8958,75.4642 144.9846,75.4098 144.9525,75.4053 144.8822,75.409 144.8341,75.4085 144.8099,75.4066 144.6868,75.3892 144.6618,75.3854 144.5912,75.3685 144.5307,75.3527 144.4823,75.3488 144.4093,75.34 144.3843,75.3356 144.3518,75.3273 144.3171,75.3101 144.295,75.2954 144.2807,75.2229 144.3106,75.214 144.3964,75.1956 144.419,75.1931 144.4658,75.1912 144.4887,75.1887 144.5176,75.1793 144.5438,75.1615 144.4424,75.1488 144.3344,75.1276 144.3283,75.0976 144.3188,75.065 144.298,75.0532 144.2416,75.0416 144.2175,75.0387 144.1975,75.0326 144.1233,75.01 144.0728,74.9856 144.0203,74.9548 143.9649,74.941 143.942,74.9402 143.9184,74.9402 143.8956,74.942 143.8729,74.9446 143.8498,74.9462 143.8035,74.9465 143.7329,74.9405 143.6854,74.9295 143.6383,74.923 143.6151,74.9221 143.5917,74.9224 143.569,74.9238 143.5234,74.9303 143.4778,74.9424 143.442,74.9548 143.3966,74.967 143.3738,74.9711 143.2121,74.9846 143.1892,74.9862 143.1659,74.9864 143.1191,74.9821 143.0954,74.9765 143.0759,74.9693 143.053,74.966 143.0062,74.9618 142.983,74.9634 142.9597,74.9658 142.9371,74.9696 142.9138,74.9746 142.8682,74.9869 142.822,74.9945 142.6566,75.0149 142.5874,75.0214 142.5641,75.0218 142.5411,75.0243 142.5121,75.0326 142.4861,75.0506 142.4813,75.0717 142.4484,75.1135 142.4255,75.1175 142.4021,75.1188 142.3787,75.1176 142.3553,75.1189 142.3256,75.126 142.2935,75.1588 142.2745,75.2003 142.2519,75.2094 142.2285,75.2154 142.1825,75.2254 142.1459,75.2376 142.1098,75.2571 142.1207,75.3527 142.2425,75.4072 142.2869,75.4248 142.3414,75.4412 142.4143,75.4537 142.5015,75.4672 142.5697,75.4762 142.6237,75.4891 142.6462,75.5157 142.649,75.5576 142.6298,75.5782 142.6114,75.5877 142.5563,75.6058 142.5325,75.6106 142.5087,75.6119 142.2736,75.6212 142.201,75.6181 142.1526,75.6136 142.0553,75.6047 142.0357,75.567 142.0077,75.5563 141.9833,75.554 141.8391,75.5491 141.7508,75.4851 141.7256,75.3957 141.7667,75.2734 141.8269,75.2284 141.9005,75.2039 141.9324,75.1918 142.0052,75.1639 142.0327,75.1519 142.203,75.0432 142.2258,75.0027 142.2523,74.9894 142.2984,74.9816 142.368,74.9728 142.4373,74.9653 142.4628,74.9633 142.5092,74.9632 142.579,74.966 142.6486,74.9618 142.718,74.9542 142.7863,74.9391 142.9697,74.9055 143.0157,74.8995 143.0388,74.8978 143.062,74.8987 143.1321,74.9088 143.1555,74.9108 143.1785,74.9115 143.2016,74.909 143.2241,74.9027 143.2595,74.8904 143.29,74.8753 143.3216,74.8343 143.268,74.8211 143.0787,74.7873 143.0554,74.7849 142.9414,74.7922 142.8954,74.7926 142.8033,74.7912 142.7573,74.7903 142.5813,74.7815 142.4023,74.7854 142.371,74.7912 142.3155,74.7899 142.2829,74.7823 142.2494,74.7438 142.2739,74.7396 142.3306,74.7408 142.2074,74.7145 142.1845,74.7112 142.1157,74.7092 142.07,74.7108 142.0246,74.7149 142.0018,74.7173 141.9793,74.7211 141.6994,74.7873 141.6452,74.8056 141.601,74.8359 141.6249,74.8541 141.6482,74.8571 141.6714,74.8594 141.6947,74.8606 141.7407,74.8579 141.7634,74.8555 141.8453,74.8358 141.8858,74.8248 141.9084,74.8186 141.9312,74.8136 141.9542,74.815 141.983,74.8269 141.8541,74.8948 141.8197,74.9011 141.7964,74.9013 141.6114,74.8942 141.4258,74.8829 141.3185,74.862 141.2119,74.8442 141.1655,74.8382 141.1423,74.8363 141.0729,74.8305 140.8654,74.8142 140.7507,74.8085 140.6812,74.8075 140.6124,74.8051 140.5477,74.803 140.4559,74.7887 140.3873,74.7814 140.3181,74.7756 140.2725,74.7719 140.2263,74.7694 140.089,74.7551 139.9292,74.7343 139.6927,74.7289 139.6124,74.7927 139.4908,74.8289 139.3924,74.855 139.3265,74.8715 139.3032,74.8764 139.2803,74.8764 139.1669,74.8468 139.0968,74.8261 139.1083,74.7689 139.1322,74.7583 139.1556,74.7535 139.2017,74.7504 139.1715,74.6953 139.1353,74.6594 139.024,74.5985 138.9819,74.5836 138.9596,74.5777 138.8705,74.5579 138.8482,74.554 138.8033,74.5492 138.7354,74.5452 138.713,74.5451 138.6902,74.5462 138.6672,74.5482 138.6442,74.5519 138.574,74.5692 138.5321,74.5813 138.4942,74.5929 138.4521,74.6046 138.4051,74.6164 138.382,74.6208 138.3127,74.6276 138.1049,74.6478 137.8969,74.665 137.8485,74.6689 137.8256,74.67 137.8023,74.6721 137.779,74.6756 137.7557,74.6803 137.7083,74.6904 137.665,74.7019 137.514,74.7502 137.4721,74.789 137.4563,74.8128 137.445,74.8547 137.4279,74.8725 137.4053,74.8831 137.3812,74.8888 137.3134,74.9033 137.2601,74.9125 137.2367,74.9147 137.165,74.923 137.1407,74.9265 137.1168,74.931 136.9573,74.9703 136.7714,75.0277 136.7506,75.0392 136.6051,75.1274 136.5402,75.1668 136.489,75.2468 136.505,75.2593 136.5362,75.2684 136.5584,75.2737 136.6042,75.2812 136.6276,75.2827 136.6511,75.2831 136.675,75.281 136.6965,75.2694 136.7259,75.2429 136.7513,75.2344 136.7761,75.23 136.8001,75.2265 136.8475,75.2248 136.8943,75.2275 137.0095,75.241 137.0319,75.2472 137.0524,75.2741 137.0453,75.2983 137.0206,75.3054 136.9713,75.3143 136.9231,75.3175 136.8994,75.317 136.8761,75.3156 136.8536,75.3109 136.8246,75.3014 136.8008,75.2921 136.7765,75.2942 136.7582,75.3119 136.765,75.348 136.8138,75.365 136.8325,75.4234 136.9113,75.4859 136.8334,75.5302 136.7878,75.5417 136.7543,75.5392 136.691,75.5262 136.691,75.5262 18,11.0,Russia 152.1332,76.0124 152.09,76.0228 152.0392,76.043 152.0307,76.0521 152.0585,76.0779 152.0859,76.0889 152.1131,76.0912 152.3282,76.1043 152.3432,76.0971 152.3754,76.0507 152.358,76.0122 152.3421,76.0043 152.3145,76.0004 152.2374,75.9976 152.2132,75.9985 152.1903,76.0019 152.1332,76.0124 152.1332,76.0124 22,3.0,Russia 59.7651,76.0273 59.8732,76.0494 60.2717,76.0811 60.297,76.0818 60.3251,76.0755 60.323,76.0632 60.3033,76.0522 60.2826,76.0483 60.2295,76.0497 60.1337,76.0438 60.1142,76.0388 60.0969,76.0282 60.1008,76.0129 60.0802,76.009 59.989,75.9998 59.7128,75.994 59.7,75.9997 59.7125,76.0104 59.7253,76.0159 59.7431,76.0223 59.7651,76.0273 59.7651,76.0273 17,10.0,Russia 140.5026,75.952 140.4574,75.9868 140.4685,75.9999 140.5227,76.0226 140.5424,76.0281 140.5673,76.0329 140.5918,76.0367 140.6164,76.0362 140.6413,76.0315 140.6828,76.005 140.685,75.9785 140.6604,75.9747 140.562,75.9705 140.5374,75.9656 140.5175,75.9594 140.5026,75.952 140.5026,75.952 23,-6.0,Canada -94.5888,76.029 -94.5782,76.0148 -94.5661,75.9894 -94.6054,75.9615 -94.6244,75.9509 -94.6408,75.9466 -94.6637,75.9437 -94.7416,75.9403 -94.7621,75.9405 -94.7838,75.9435 -94.797,75.9488 -94.8208,75.9608 -94.8364,75.9703 -94.8778,76.0066 -94.855,76.0111 -94.8286,76.006 -94.811,76.0008 -94.7947,75.9984 -94.7647,75.9971 -94.7473,75.9984 -94.7269,76.0018 -94.5888,76.029 -94.5888,76.029 60,-5.0,Canada -78.6724,76.0082 -78.6011,75.9907 -78.5854,75.9858 -78.5783,75.9758 -78.6097,75.9479 -78.6254,75.9402 -78.6413,75.9362 -78.7016,75.9245 -78.7783,75.9078 -78.8494,75.8911 -78.8647,75.8868 -78.9243,75.8683 -78.9357,75.8629 -78.9492,75.8543 -78.9563,75.8424 -78.9515,75.8288 -78.9205,75.8118 -78.8924,75.8033 -78.81,75.7814 -78.7912,75.778 -78.7703,75.775 -78.7246,75.7712 -78.7074,75.7689 -78.6955,75.7664 -78.6853,75.7604 -78.6607,75.7411 -78.6792,75.7331 -78.7024,75.7308 -78.8301,75.7304 -78.8506,75.7386 -78.8386,75.7467 -78.8233,75.7512 -78.8124,75.7639 -78.8356,75.7659 -79.0491,75.7687 -79.0994,75.7667 -79.1231,75.7645 -79.1415,75.7601 -79.1883,75.746 -79.2042,75.7387 -79.2389,75.7043 -79.3775,75.7546 -79.3997,75.756 -79.485,75.7539 -79.5061,75.7543 -79.5189,75.7576 -79.5312,75.7718 -79.3589,75.8381 -79.3462,75.8421 -79.1759,75.8947 -79.1539,75.8983 -79.0518,75.9208 -78.9125,75.9727 -78.9006,75.981 -78.8919,75.9929 -78.8654,76.0079 -78.703,76.0135 -78.6832,76.0121 -78.6724,76.0082 -78.6724,76.0082 78,-7.0,Canada -117.2942,76.0071 -117.1909,75.9923 -117.1632,75.9876 -117.1396,75.9786 -117.1614,75.9396 -117.246,75.8749 -117.3543,75.8143 -117.3775,75.8099 -117.42,75.8038 -117.4486,75.7921 -117.512,75.7531 -117.6151,75.6756 -117.6298,75.6581 -117.646,75.6227 -117.6908,75.5931 -117.7372,75.5795 -117.772,75.5726 -117.789,75.5677 -117.8177,75.5579 -117.8973,75.528 -117.9416,75.5064 -117.9439,75.4856 -117.9921,75.4668 -118.0304,75.453 -118.2588,75.3939 -118.2805,75.3908 -118.3792,75.3974 -118.3979,75.3987 -118.5021,75.4271 -118.55,75.4448 -118.6023,75.4571 -118.627,75.4589 -118.7557,75.462 -118.8043,75.461 -118.8702,75.4568 -118.8958,75.4593 -119.0131,75.4736 -119.04,75.4784 -119.0558,75.4832 -119.0679,75.4887 -119.0791,75.4971 -119.0733,75.509 -119.0476,75.5252 -118.9469,75.5684 -118.86,75.5963 -118.7855,75.6141 -118.6262,75.6722 -118.4598,75.7363 -118.4278,75.7561 -118.3879,75.7759 -118.2898,75.8088 -118.2522,75.818 -118.2347,75.8218 -118.0752,75.8539 -118.0386,75.8592 -118.0111,75.8604 -117.8653,75.8606 -117.8396,75.8613 -117.8236,75.8645 -117.8058,75.8754 -117.8005,75.8874 -117.7756,75.9167 -117.7593,75.9224 -117.742,75.927 -117.7084,75.9312 -117.6688,75.9327 -117.6283,75.9359 -117.6047,75.9403 -117.5708,75.9501 -117.5581,75.956 -117.5596,75.9698 -117.4495,76.001 -117.3967,76.008 -117.3777,76.0099 -117.3332,76.0101 -117.3121,76.009 -117.2942,76.0071 -117.2942,76.0071 20,7.0,Russia 97.0656,75.9948 97.0552,75.9849 97.0407,75.9795 96.844,75.9138 96.8127,75.9043 96.7957,75.8996 96.7559,75.8929 96.6451,75.8794 96.6226,75.8769 96.498,75.8683 96.4694,75.8678 96.451,75.8718 96.4333,75.8797 96.4259,75.9005 96.4408,75.9093 96.4574,75.9137 96.4973,75.9208 96.931,75.9788 97.0656,75.9948 97.0656,75.9948 90,-7.0,Canada -103.6534,75.8196 -103.6475,75.8174 -103.6369,75.8121 -103.6277,75.8025 -103.6138,75.7918 -103.5997,75.7912 -103.5236,75.7926 -103.4831,75.7895 -103.4354,75.7825 -103.4119,75.7808 -103.3681,75.782 -103.3473,75.7843 -103.3258,75.7886 -103.3054,75.7904 -103.2371,75.7919 -103.1664,75.795 -103.1459,75.7965 -103.1092,75.7974 -103.0932,75.7994 -103.0525,75.8012 -103.0025,75.8061 -102.9782,75.8077 -102.9323,75.8132 -102.8705,75.819 -102.7988,75.8289 -102.7239,75.8362 -102.6498,75.841 -102.5256,75.8531 -102.5048,75.8542 -102.454,75.8612 -102.429,75.8633 -102.4095,75.8662 -102.2824,75.8784 -102.2317,75.884 -102.1315,75.8932 -102.0805,75.8987 -102.0585,75.9029 -102.0443,75.9086 -102.0332,75.9223 -102.0362,75.9464 -102.0501,75.9603 -102.0673,75.9665 -102.0846,75.971 -102.1142,75.9797 -102.1416,75.9821 -102.1816,75.9827 -102.2447,75.982 -102.3209,75.9786 -102.3712,75.9747 -102.3946,75.9717 -102.4216,75.97 -102.4696,75.9657 -102.5728,75.9599 -102.6023,75.9569 -102.6281,75.9528 -102.6683,75.9428 -102.6938,75.9398 -102.7188,75.9374 -102.7636,75.9364 -102.8323,75.9359 -102.8489,75.9343 -102.869,75.9296 -102.8911,75.9179 -102.9091,75.9133 -102.9335,75.9119 -102.9757,75.9122 -103.0024,75.9115 -103.0271,75.91 -103.0524,75.9067 -103.0777,75.9024 -103.1034,75.8989 -103.1249,75.8947 -103.1689,75.8838 -103.1868,75.8783 -103.2087,75.8731 -103.2342,75.8685 -103.2664,75.8683 -103.2861,75.8696 -103.31,75.87 -103.3992,75.8668 -103.4196,75.8656 -103.4698,75.8598 -103.4827,75.8561 -103.4965,75.8504 -103.514,75.8467 -103.537,75.8438 -103.613,75.8368 -103.6534,75.8356 -103.6794,75.8295 -103.6534,75.8196 21,-2.0,Greenland -64.8501,75.9706 -64.832,75.9662 -64.7865,75.9529 -64.775,75.9447 -64.8327,75.9148 -64.846,75.9097 -64.8679,75.9069 -64.8989,75.9059 -64.9249,75.9076 -64.9427,75.9115 -65.0115,75.9279 -65.0268,75.9328 -65.039,75.9381 -65.0199,75.9412 -64.9667,75.945 -64.9345,75.954 -64.9106,75.9686 -64.8938,75.9764 -64.8742,75.9788 -64.8501,75.9706 -64.8501,75.9706 24,-2.0,Greenland -19.9127,75.8675 -19.9695,75.8562 -19.9912,75.8541 -20.0133,75.855 -20.0582,75.8593 -20.0927,75.8601 -20.2239,75.845 -20.2433,75.8428 -20.2771,75.8371 -20.2881,75.8332 -20.2994,75.8319 -20.3127,75.8397 -20.2981,75.8512 -20.287,75.8554 -20.2724,75.8588 -20.2496,75.8628 -20.0496,75.8888 -20.0174,75.8897 -19.9795,75.89 -19.9533,75.8888 -19.9365,75.8862 -19.8999,75.8728 -19.9127,75.8675 -19.9127,75.8675 44,6.0,Russia 82.6624,75.8024 82.6164,75.829 82.5425,75.8373 82.242,75.8395 82.2253,75.8354 82.1944,75.8342 82.1386,75.8365 82.0828,75.8393 82.058,75.8419 82.0401,75.8456 82.0296,75.8555 82.0509,75.8628 82.0744,75.8639 82.124,75.8593 82.2633,75.8717 82.3091,75.8855 82.3332,75.8883 82.3958,75.8872 82.4237,75.886 82.5427,75.8792 82.5949,75.8756 82.6165,75.8727 82.6655,75.8679 82.7424,75.8622 82.8473,75.8542 82.9,75.8509 82.9587,75.8489 83.018,75.8467 83.0422,75.8442 83.0635,75.841 83.0684,75.8311 83.0559,75.8218 83.0227,75.813 83.0023,75.8098 82.9785,75.8072 82.9478,75.8074 82.8918,75.8104 82.8282,75.8201 82.7972,75.8207 82.7699,75.8188 82.7262,75.8124 82.6822,75.806 82.6624,75.8024 82.6624,75.8024 39,-7.0,Canada -103.0835,75.6474 -103.0386,75.6409 -103.016,75.6385 -102.9219,75.6365 -102.8531,75.6365 -102.7309,75.641 -102.5826,75.6471 -102.3527,75.6583 -102.3282,75.6607 -102.3071,75.6641 -102.2621,75.6731 -102.226,75.6828 -102.2136,75.6892 -102.1995,75.6999 -102.1881,75.7116 -102.1761,75.7406 -102.1688,75.7486 -102.1569,75.7575 -102.1467,75.7632 -102.1101,75.7742 -102.0626,75.7825 -102.0353,75.7862 -102.0124,75.7881 -101.9303,75.792 -101.9303,75.8788 -101.9329,75.8784 -102.0067,75.8702 -102.1487,75.857 -102.2377,75.8509 -102.3135,75.8465 -102.4106,75.8397 -102.7012,75.8026 -102.7261,75.7993 -102.7517,75.7947 -102.7736,75.7895 -102.7914,75.7841 -103.0258,75.6988 -103.0965,75.6561 -103.0835,75.6474 19,3.0,Russia 58.6306,75.8146 58.6877,75.8268 58.7079,75.8311 59.0331,75.8755 59.0798,75.8791 59.0963,75.8744 59.099,75.8591 59.08,75.848 59.0629,75.8419 59.0442,75.8367 59.0223,75.8337 58.7074,75.7993 58.6627,75.7944 58.5917,75.7902 58.5427,75.7888 58.5321,75.7927 58.5504,75.7977 58.6306,75.8146 58.6306,75.8146 36,-6.0,Canada -94.2189,75.8673 -94.2042,75.8615 -94.1888,75.8514 -94.1809,75.8313 -94.1587,75.7617 -94.1487,75.7552 -94.1096,75.7356 -94.0612,75.7084 -94.0448,75.6966 -94.0273,75.6743 -94.0337,75.6629 -94.0498,75.6549 -94.0659,75.6507 -94.0936,75.6475 -94.145,75.6444 -94.3216,75.6396 -94.3679,75.6399 -94.4149,75.6415 -94.4592,75.6474 -94.4777,75.6511 -94.5156,75.6621 -94.5335,75.6692 -94.547,75.6762 -94.5601,75.6877 -94.6354,75.8057 -94.6404,75.8154 -94.6415,75.827 -94.6314,75.8351 -94.6162,75.8386 -94.602,75.8406 -94.55,75.8435 -94.4745,75.8451 -94.4362,75.8487 -94.275,75.8792 -94.2189,75.8673 -94.2189,75.8673 31,-7.0,Canada -120.5324,75.8064 -120.5352,75.7717 -120.55,75.7385 -120.564,75.7194 -120.5866,75.6967 -120.6037,75.684 -120.6598,75.6513 -120.6846,75.638 -120.6988,75.6313 -120.7187,75.6266 -120.7592,75.6196 -120.7763,75.6185 -120.809,75.6197 -120.9409,75.6412 -120.9522,75.6495 -120.9326,75.666 -120.7821,75.6892 -120.7084,75.7025 -120.6946,75.7047 -120.6822,75.7149 -120.6655,75.7498 -120.6631,75.761 -120.6748,75.7756 -120.709,75.7901 -120.7047,75.8001 -120.6615,75.8195 -120.6441,75.8225 -120.542,75.8293 -120.5321,75.8177 -120.5324,75.8064 -120.5324,75.8064 17,6.0,Russia 81.4098,75.821 81.5127,75.8093 81.5588,75.8038 81.7554,75.7863 81.9261,75.7791 82.0243,75.7701 82.0262,75.7594 82.0033,75.752 81.9726,75.7529 81.7781,75.762 81.6242,75.7738 81.3609,75.8091 81.3394,75.8119 81.3259,75.8162 81.3739,75.8283 81.4098,75.821 81.4098,75.821 15,-7.0,Canada -122.2926,75.8128 -122.2418,75.8149 -122.197,75.8155 -122.0394,75.8088 -122.0132,75.8077 -121.9981,75.8046 -121.9869,75.796 -121.9989,75.7591 -122.0239,75.7513 -122.0594,75.7528 -122.3243,75.7871 -122.3535,75.7978 -122.3421,75.8048 -122.2926,75.8128 -122.2926,75.8128 22,-7.0,Canada -103.5539,75.7486 -103.5398,75.7434 -103.5066,75.736 -103.4218,75.7274 -103.3298,75.7245 -103.3042,75.7245 -103.28,75.726 -103.2529,75.7287 -103.0817,75.7526 -103.0623,75.7576 -103.0456,75.7653 -103.0443,75.7738 -103.0731,75.7775 -103.14,75.7788 -103.2769,75.7748 -103.3257,75.7717 -103.3506,75.7693 -103.4113,75.7648 -103.457,75.7653 -103.5471,75.77 -103.5746,75.7673 -103.5539,75.7486 55,10.0,Russia 135.0793,75.269 135.0763,75.3386 135.098,75.3541 135.1177,75.3663 135.159,75.3877 135.2186,75.4574 135.223,75.4757 135.2195,75.4872 135.2046,75.5049 135.1846,75.5224 135.1763,75.5344 135.1658,75.5608 135.2263,75.654 135.303,75.7275 135.3325,75.7434 135.3931,75.7029 135.4356,75.6738 135.4438,75.6623 135.449,75.6441 135.4806,75.603 135.4938,75.5917 135.5163,75.58 135.5482,75.5687 135.5739,75.5631 135.6454,75.5488 135.6963,75.5387 135.788,75.5185 135.805,75.5102 135.7995,75.4952 135.7737,75.4827 135.7517,75.4767 135.7168,75.4642 135.5985,75.4083 135.5909,75.4023 135.5814,75.3845 135.5881,75.3696 135.6023,75.3607 135.6293,75.3493 135.6453,75.3435 135.6565,75.338 135.6598,75.3259 135.6425,75.3195 135.5603,75.2909 135.5381,75.2859 135.5153,75.2816 135.4482,75.2697 135.4251,75.2671 135.402,75.2657 135.3089,75.2603 135.2854,75.2598 135.1391,75.2574 135.1153,75.258 135.0948,75.2637 135.0793,75.269 135.0793,75.269 17,-6.0,Canada -96.1889,75.7111 -96.1908,75.6947 -96.1926,75.683 -96.2735,75.637 -96.2871,75.6323 -96.3126,75.6306 -96.4298,75.6245 -96.4472,75.6302 -96.4116,75.6711 -96.3968,75.6815 -96.2741,75.7157 -96.2582,75.7196 -96.2405,75.7217 -96.2175,75.7208 -96.2013,75.716 -96.1889,75.7111 -96.1889,75.7111 13,10.0,Russia 140.3594,75.5456 140.2588,75.5426 140.2106,75.5462 140.1912,75.5521 140.1767,75.558 140.1325,75.5967 140.1471,75.6052 140.1709,75.6078 140.195,75.6043 140.3828,75.5709 140.3833,75.559 140.3594,75.5456 140.3594,75.5456 54,-6.0,Canada -95.7619,75.497 -95.6945,75.4777 -95.676,75.4718 -95.6573,75.4631 -95.6476,75.4516 -95.6722,75.4348 -95.9085,75.3526 -95.9575,75.3502 -95.9762,75.3511 -95.9923,75.3559 -96.1356,75.4106 -96.1569,75.4203 -96.1868,75.4241 -96.1771,75.4302 -96.1504,75.4421 -96.1668,75.4496 -96.1823,75.4485 -96.2417,75.4282 -96.2576,75.417 -96.2888,75.4006 -96.2836,75.3893 -96.2733,75.38 -96.2539,75.3723 -96.2385,75.3626 -96.2445,75.3525 -96.3953,75.2833 -96.5704,75.2473 -96.5877,75.2452 -96.5989,75.2457 -96.6127,75.2483 -96.6689,75.2708 -96.7659,75.3489 -96.7877,75.389 -96.7416,75.4026 -96.6757,75.4161 -96.6482,75.4208 -96.6265,75.4235 -96.4023,75.4469 -96.2033,75.4843 -96.2041,75.4949 -96.1576,75.5177 -96.1594,75.5297 -96.1501,75.5407 -96.1312,75.5439 -96.1147,75.5449 -96.0822,75.5455 -96.0707,75.5446 -96.0495,75.5416 -95.9766,75.5239 -95.8695,75.5006 -95.8521,75.4979 -95.8383,75.4978 -95.7619,75.497 -95.7619,75.497 129,-6.0,Canada -93.1618,74.781 -93.2182,74.6084 -93.2472,74.5826 -93.2876,74.5659 -93.3204,74.5573 -93.4487,74.538 -93.4741,74.535 -93.4983,74.5337 -93.7963,74.5389 -94.0055,74.5444 -94.143,74.5331 -94.226,74.5248 -94.2667,74.5212 -94.3025,74.5194 -94.3981,74.5216 -94.4421,74.5264 -94.7778,74.5711 -94.8316,74.5898 -94.8565,74.6421 -95.0177,74.6908 -95.0421,74.6968 -95.1542,74.7016 -95.1851,74.6991 -95.2083,74.6959 -95.232,74.6825 -95.2198,74.661 -95.2983,74.6587 -95.3759,74.7052 -95.4555,74.7274 -95.4906,74.7213 -95.5211,74.721 -95.6136,74.7235 -95.7082,74.7538 -95.751,74.7704 -95.8252,74.8003 -95.882,74.8591 -95.8419,74.8884 -95.8074,74.909 -95.8246,74.9208 -95.8909,74.9126 -95.9503,74.8481 -95.9576,74.8179 -95.9954,74.8029 -96.0158,74.8012 -96.0626,74.7999 -96.0846,74.801 -96.1047,74.804 -96.1275,74.8098 -96.1468,74.8202 -96.1328,74.871 -96.1043,74.8687 -96.0737,74.8744 -96.0728,74.9003 -96.2226,74.9014 -96.2467,74.9 -96.2746,74.8939 -96.3058,74.8831 -96.3362,74.8811 -96.3613,74.8854 -96.3469,74.9597 -96.3114,74.9967 -96.1989,75.0904 -96.1177,75.1118 -95.8173,75.1675 -95.6879,75.1782 -95.6547,75.1845 -95.674,75.1921 -95.7178,75.1938 -95.7661,75.194 -95.7895,75.1921 -95.8011,75.2103 -95.7426,75.2381 -95.6698,75.2442 -95.6283,75.2497 -95.5736,75.2677 -95.6457,75.2823 -95.6666,75.2928 -95.7717,75.2959 -95.7937,75.2957 -95.8238,75.2828 -95.8643,75.2715 -95.8895,75.2698 -95.9151,75.2766 -95.9,75.2903 -95.8805,75.2984 -95.8339,75.3123 -95.8007,75.3196 -95.7046,75.3308 -95.6747,75.3289 -95.6128,75.3185 -95.568,75.3046 -95.5088,75.2952 -95.4239,75.3099 -95.464,75.3223 -95.4976,75.32 -95.53,75.3245 -95.5676,75.3386 -95.5706,75.3623 -95.5386,75.3859 -95.4939,75.4049 -95.2084,75.4613 -95.0084,75.4906 -94.9734,75.479 -94.9515,75.4766 -94.9175,75.4786 -94.8636,75.4893 -94.8433,75.4945 -94.8237,75.5026 -94.793,75.5142 -94.649,75.5312 -94.481,75.518 -94.3002,75.5067 -94.2516,75.505 -94.2061,75.5024 -94.145,75.4933 -94.105,75.4851 -94.0682,75.4738 -93.9858,75.444 -93.9474,75.4241 -93.7537,75.3367 -93.7333,75.3294 -93.5843,75.2827 -93.4875,75.2593 -93.2416,75.1533 -93.2765,75.0718 -93.2389,74.9684 -93.1885,74.8637 -93.1618,74.781 -93.1618,74.781 9,10.0,Russia 136.691,75.5262 136.6538,75.5186 136.6321,75.5118 136.5992,75.4887 136.5928,75.5001 136.6259,75.5155 136.6714,75.5259 136.691,75.5262 136.691,75.5262 40,-6.0,Canada -100.749,75.4552 -100.7464,75.4542 -100.7178,75.449 -100.6737,75.444 -100.6321,75.4406 -100.6094,75.4399 -100.5891,75.4416 -100.4738,75.4523 -100.2522,75.4715 -100.0878,75.4845 -100.0639,75.4854 -100.0446,75.4849 -100.0186,75.4784 -100.0283,75.4718 -100.0427,75.4671 -100.0862,75.4598 -100.1316,75.4554 -100.1568,75.4525 -100.1775,75.4452 -100.1085,75.4478 -99.9585,75.4635 -99.9017,75.4741 -99.8829,75.4814 -99.8974,75.4955 -99.9294,75.5117 -99.9425,75.5158 -99.9597,75.5172 -100.0008,75.517 -100.1187,75.5171 -100.2349,75.5131 -100.3225,75.5043 -100.344,75.5002 -100.3655,75.4901 -100.3797,75.4858 -100.4044,75.4834 -100.4263,75.4832 -100.566,75.4809 -100.749,75.4646 -100.7595,75.4594 -100.749,75.4552 6,10.0,Russia 136.5992,75.4887 136.6541,75.4745 136.6937,75.4578 136.6061,75.4758 136.5992,75.4887 136.5992,75.4887 157,10.0,Russia 146.1059,75.4812 146.2236,75.4549 146.2547,75.4464 146.3713,75.3954 146.3485,75.3841 146.3235,75.3812 146.2993,75.379 146.2783,75.3736 146.2356,75.3191 146.3707,75.2654 146.4376,75.2518 146.5733,75.2333 146.6191,75.2298 146.712,75.2251 146.7361,75.2256 146.7846,75.2295 146.9388,75.2434 146.9254,75.2596 146.897,75.2649 146.8734,75.2657 146.8402,75.2599 146.8068,75.253 146.7712,75.2578 146.812,75.2788 146.93,75.3234 146.9551,75.3276 147.0044,75.3324 147.0524,75.3336 147.1912,75.3348 147.2622,75.3331 147.3302,75.3255 147.4413,75.3043 147.4648,75.304 147.7013,75.3012 147.7418,75.3007 147.7897,75.3019 147.8985,75.3071 147.9363,75.3107 147.96,75.3112 147.9836,75.3109 148.0067,75.3086 148.0287,75.3045 148.1668,75.269 148.1304,75.2284 148.0942,75.2129 148.0644,75.2048 148.0442,75.1767 148.0618,75.1598 148.1543,75.1116 148.1767,75.1085 148.1993,75.1067 148.3643,75.1066 148.3878,75.1073 148.485,75.114 148.5102,75.1166 148.5459,75.1336 148.5716,75.1374 148.6526,75.1495 148.8727,75.1762 148.8979,75.179 148.9215,75.1793 149.0582,75.1678 149.1944,75.1562 149.2386,75.1503 149.4891,75.1265 149.5344,75.1228 149.5577,75.1219 149.6066,75.1248 149.653,75.1233 149.6987,75.1206 149.7504,75.1108 149.8061,75.0816 150.0698,74.9864 150.093,74.9868 150.1179,74.9893 150.1433,74.9932 150.2296,75.0109 150.257,75.0371 150.2781,75.0519 150.4205,75.0542 150.4669,75.0525 150.4883,75.0489 150.5465,75.035 150.495,75.0273 150.46,75.0193 150.4142,74.9999 150.2479,74.8883 150.2891,74.8698 150.2937,74.8393 150.2393,74.7899 150.2095,74.782 150.1822,74.7788 150.1148,74.7824 150.0665,74.7792 149.9695,74.7712 149.7484,74.7464 149.6504,74.7353 149.4403,74.7024 149.3795,74.6915 149.3518,74.6774 149.3356,74.6626 149.3058,74.6586 149.2593,74.6575 149.1452,74.659 148.8452,74.657 148.8213,74.6554 148.7752,74.6543 148.6376,74.655 148.5917,74.6554 148.317,74.6578 148.2944,74.6584 148.2494,74.6611 147.9138,74.6831 147.8696,74.6869 147.8475,74.6897 147.7409,74.7109 147.6387,74.732 147.4477,74.7876 147.3388,74.8236 147.3226,74.8361 147.2715,74.848 147.2052,74.8565 147.16,74.8604 147.0681,74.8628 147.022,74.8627 146.9982,74.8618 146.9525,74.8635 146.9299,74.8648 146.8856,74.871 146.7536,74.8909 146.7314,74.8953 146.7099,74.9003 146.6668,74.9134 146.5852,74.9376 146.4987,74.9633 146.3448,74.9991 146.2788,75.011 146.0772,75.0392 145.9856,75.0461 145.963,75.0491 145.9185,75.0561 145.7856,75.0805 145.7415,75.0907 145.6795,75.1189 145.6992,75.1394 145.7309,75.1506 145.7595,75.1681 145.7742,75.186 145.7898,75.2392 145.8464,75.3172 145.9572,75.4527 145.9827,75.4726 146.0139,75.4803 146.0631,75.4851 146.0876,75.4857 146.1059,75.4812 146.1059,75.4812 75,6.0,Russia 81.926,75.3921 81.9007,75.3493 81.8022,75.3377 81.7863,75.3335 81.7942,75.3269 81.8056,75.3211 81.8586,75.309 81.8824,75.3069 81.9094,75.3055 81.9729,75.3056 81.9906,75.3012 81.9984,75.2948 82.0663,75.2294 82.0563,75.2202 82.0298,75.2184 82.0029,75.2196 81.9855,75.2239 81.9743,75.2297 81.9568,75.2335 81.9365,75.2367 81.8326,75.2378 81.8164,75.2351 81.8217,75.2099 81.8262,75.1882 81.8234,75.1535 81.7908,75.0676 81.7744,75.0666 81.7538,75.0696 81.7366,75.0737 81.7225,75.0785 81.7115,75.084 81.689,75.0958 81.6689,75.1127 81.6724,75.1279 81.6744,75.1656 81.6497,75.2044 81.6354,75.2091 81.6179,75.2133 81.5941,75.2156 81.5792,75.2066 81.5891,75.1916 81.4971,75.1704 81.4702,75.1716 81.429,75.178 81.4151,75.1808 81.4005,75.1858 81.3348,75.2118 81.2742,75.2493 81.2801,75.2591 81.3168,75.2752 81.4266,75.3219 81.4386,75.327 81.4789,75.3422 81.4946,75.3464 81.5139,75.3499 81.5565,75.3565 81.57,75.3557 81.5596,75.3423 81.5506,75.3361 81.5298,75.325 81.5172,75.3199 81.5062,75.3103 81.5171,75.2766 81.5283,75.271 81.5522,75.2688 81.6555,75.2854 81.7085,75.3198 81.6753,75.3819 81.6843,75.3878 81.7232,75.395 81.8223,75.4045 81.9151,75.4117 81.9445,75.4074 81.926,75.3921 81.926,75.3921 33,-7.0,Canada -104.5646,75.0049 -104.3831,74.9586 -104.1828,74.9255 -103.9858,74.9153 -103.9537,74.9148 -103.6408,74.9512 -103.6132,74.9544 -103.54,74.9684 -103.5215,74.9736 -103.4855,74.9848 -103.4511,74.9958 -103.3293,75.0447 -103.3073,75.0615 -103.4605,75.1811 -103.5282,75.2435 -103.5657,75.2596 -103.6521,75.2898 -103.6879,75.2992 -103.8303,75.325 -103.8677,75.3292 -103.898,75.3301 -104.0454,75.3278 -104.093,75.3227 -104.1434,75.3155 -104.2127,75.301 -104.3935,75.2345 -104.4266,75.2172 -104.4846,75.177 -104.461,75.1411 -104.5135,75.0873 -104.5371,75.0731 -104.5742,75.0601 -104.5646,75.0049 100,-2.0,Greenland -17.9211,75.2951 -17.8959,75.2817 -17.8114,75.2533 -17.7991,75.2476 -17.7573,75.2033 -17.8029,75.1834 -17.8214,75.1773 -17.8981,75.1583 -17.9202,75.1532 -17.9427,75.15 -17.9844,75.1485 -18.0075,75.1503 -18.0543,75.1563 -18.0799,75.1578 -18.0974,75.1539 -18.1564,75.1311 -18.1653,75.1223 -17.9384,75.0351 -17.8267,74.9959 -17.782,74.9851 -17.7132,74.9775 -17.6906,74.9755 -17.6681,74.975 -17.6453,74.9761 -17.55,74.9941 -17.5357,75.0026 -17.5453,75.0171 -17.4879,75.04 -17.4027,75.0541 -17.3858,75.0569 -17.3673,75.0569 -17.348,75.0541 -17.2973,75.0439 -17.2799,75.0376 -17.2734,75.0293 -17.3544,74.9079 -17.493,74.8462 -17.5596,74.8305 -17.5746,74.8283 -17.5953,74.8329 -17.5596,74.8582 -17.556,74.8886 -17.5772,74.8938 -17.8004,74.9247 -17.8248,74.926 -17.9899,74.9283 -18.0105,74.9287 -18.0609,74.9265 -18.0831,74.9243 -18.1796,74.9085 -18.2764,74.8924 -18.3057,74.8892 -18.3607,74.8834 -18.4158,74.8791 -18.4606,74.8776 -18.5012,74.8851 -18.5307,74.8911 -18.5535,74.8951 -18.5992,74.8983 -18.6633,74.9002 -18.6952,74.9002 -18.7752,74.8977 -18.8194,74.8952 -18.8574,74.898 -18.8734,74.9386 -18.8755,74.968 -18.8742,74.9789 -18.863,74.9937 -18.7904,75.0382 -18.7829,75.0469 -18.7807,75.0983 -18.7841,75.1423 -18.7928,75.1735 -18.8076,75.1909 -18.7878,75.2234 -18.6798,75.2474 -18.6597,75.2499 -18.5149,75.2671 -18.5019,75.2684 -18.4786,75.2659 -18.4084,75.2517 -18.3923,75.2464 -18.3563,75.2258 -18.346,75.2125 -18.3355,75.2024 -18.3124,75.1962 -18.2664,75.1947 -18.2072,75.1962 -18.1945,75.1975 -18.1007,75.2195 -18.083,75.2284 -18.0809,75.2384 -18.0862,75.2578 -18.0861,75.273 -18.0524,75.3115 -18.034,75.3164 -18.0147,75.3156 -17.9394,75.3011 -17.9211,75.2951 -17.9211,75.2951 67,-2.0,Greenland -20.1771,74.9381 -20.1672,74.938 -20.1287,74.9337 -19.9641,74.9093 -19.9402,74.906 -19.9201,74.9004 -19.9097,74.8921 -19.9116,74.8805 -19.9253,74.8729 -19.9832,74.8514 -19.997,74.848 -20.0256,74.8438 -20.0476,74.8423 -20.0654,74.8389 -20.1287,74.8252 -20.145,74.818 -20.1304,74.8005 -20.114,74.7947 -20.098,74.7914 -20.0797,74.7959 -20.0791,74.8116 -20.0582,74.8202 -20.0005,74.8211 -19.9777,74.8203 -19.9319,74.8155 -19.7293,74.7823 -19.6935,74.7742 -19.6808,74.7651 -19.6794,74.7536 -19.6914,74.7449 -19.8104,74.6847 -19.975,74.6141 -20.0022,74.6057 -20.016,74.6025 -20.0319,74.6005 -20.1365,74.5996 -20.1793,74.6015 -20.3976,74.6287 -20.4176,74.634 -20.6312,74.708 -20.6145,74.7255 -20.5954,74.7348 -20.565,74.7442 -20.5406,74.7549 -20.5294,74.7607 -20.5175,74.7696 -20.4998,74.796 -20.4927,74.808 -20.4867,74.8255 -20.4977,74.837 -20.509,74.8483 -20.5354,74.8659 -20.5581,74.8784 -20.5425,74.8889 -20.5219,74.8995 -20.5086,74.9056 -20.4595,74.9222 -20.4384,74.9277 -20.4068,74.935 -20.3609,74.9435 -20.3258,74.9468 -20.3016,74.9477 -20.2657,74.947 -20.2411,74.9463 -20.1888,74.9411 -20.1771,74.9381 -20.1771,74.9381 51,7.0,Russia 86.7864,74.8854 86.8212,74.8763 86.9077,74.8362 86.8744,74.808 86.8539,74.7964 86.8271,74.7864 86.7252,74.7711 86.6682,74.7898 86.6427,74.8002 86.578,74.8092 86.5489,74.8099 86.5164,74.8103 86.477,74.8034 86.4635,74.7985 86.4596,74.7876 86.4723,74.7778 86.5809,74.7473 86.5969,74.7429 86.6191,74.74 86.6086,74.7239 86.3404,74.7364 86.162,74.7393 86.1101,74.7429 86.0909,74.7463 86.0651,74.7568 85.9949,74.7899 85.9854,74.7958 86.0021,74.8083 86.0119,74.8146 86.0313,74.8128 86.1058,74.7982 86.2288,74.7872 86.3396,74.792 86.3593,74.7954 86.3696,74.8038 86.3506,74.8117 86.3053,74.8169 86.2891,74.8211 86.2762,74.8263 86.2686,74.8738 86.2983,74.877 86.3955,74.868 86.4116,74.8638 86.4224,74.857 86.4472,74.8496 86.5255,74.8522 86.5519,74.8541 86.5715,74.8573 86.743,74.8798 86.7864,74.8854 86.7864,74.8854 15,7.0,Russia 86.242,74.7164 86.2712,74.7161 86.3163,74.7124 86.5225,74.6949 86.5418,74.6913 86.5571,74.6785 86.5472,74.6727 86.5173,74.6636 86.472,74.6586 86.3747,74.6489 86.3302,74.6624 86.2855,74.6761 86.2449,74.7008 86.242,74.7164 86.242,74.7164 32,7.0,Russia 85.2478,74.7099 85.2899,74.7012 85.4,74.6978 85.4196,74.6943 85.4322,74.6893 85.479,74.6234 85.4615,74.6152 85.4388,74.6128 85.4197,74.6163 85.41,74.6221 85.3968,74.6274 85.3776,74.6309 85.3517,74.6326 85.1485,74.6432 85.1162,74.6434 85.0291,74.6408 85.0032,74.6392 84.9808,74.6365 84.9551,74.6362 84.9001,74.6388 84.8841,74.6412 84.8756,74.6493 84.8932,74.6576 84.9771,74.6696 85.0382,74.6687 85.0608,74.6662 85.0899,74.6656 85.1123,74.668 85.209,74.6935 85.2349,74.7038 85.2478,74.7099 85.2478,74.7099 22,-2.0,Greenland -18.2918,74.5967 -18.2906,74.5883 -18.3069,74.5819 -18.2893,74.5681 -18.2709,74.5517 -18.2683,74.539 -18.3207,74.5196 -18.3354,74.5183 -18.425,74.5215 -18.4491,74.5275 -18.5426,74.6167 -18.511,74.6198 -18.4993,74.617 -18.4815,74.6099 -18.4103,74.6032 -18.3694,74.6034 -18.3562,74.6033 -18.33,74.6048 -18.2718,74.6085 -18.2567,74.6042 -18.2918,74.5967 -18.2918,74.5967 25,-2.0,Greenland -18.6908,74.5071 -18.6791,74.4846 -18.6771,74.4742 -18.6846,74.465 -18.7163,74.4511 -18.7756,74.4387 -18.7897,74.4365 -18.8111,74.4355 -18.9617,74.4412 -19.1085,74.4486 -19.1614,74.4732 -19.1688,74.4825 -19.1548,74.4921 -19.1379,74.4982 -19.0195,74.5324 -18.9678,74.546 -18.9468,74.5512 -18.8175,74.5728 -18.7729,74.5708 -18.7583,74.569 -18.7016,74.5523 -18.6742,74.5247 -18.6806,74.512 -18.6908,74.5071 -18.6908,74.5071 47,6.0,Russia 78.9595,74.5032 79.0232,74.4954 79.0469,74.484 79.0554,74.4772 79.0698,74.4725 79.0981,74.4742 79.0847,74.4933 79.0688,74.5068 79.0585,74.5094 79.0462,74.5109 79.0287,74.5112 78.9919,74.5209 78.9803,74.5297 79.012,74.5465 79.0482,74.5542 79.0738,74.5546 79.097,74.5525 79.1117,74.5476 79.1236,74.5357 79.1128,74.53 79.1267,74.5259 79.1389,74.5243 79.1806,74.5154 79.2064,74.514 79.2358,74.5143 79.3139,74.511 79.3633,74.5075 79.3804,74.5036 79.395,74.4988 79.4062,74.4931 79.3912,74.4808 79.3473,74.467 79.3123,74.4476 79.316,74.4318 79.3247,74.4188 79.2937,74.4162 79.2743,74.4178 79.2309,74.4229 79.1902,74.4286 79.1183,74.443 79.0487,74.4585 79.0172,74.4669 78.9882,74.4768 78.9531,74.4937 78.9445,74.5012 78.9595,74.5032 78.9595,74.5032 32,-6.0,Canada -95.3805,74.5387 -95.2699,74.5285 -95.2497,74.5253 -95.1935,74.512 -95.1566,74.5013 -95.0877,74.4791 -95.0712,74.472 -95.0455,74.4586 -95.0141,74.4388 -95.0021,74.4292 -95.0028,74.4172 -95.0134,74.4089 -95.025,74.404 -95.0434,74.3999 -95.0651,74.3962 -95.0853,74.3943 -95.1072,74.3946 -95.2126,74.397 -95.2343,74.3984 -95.2764,74.4033 -95.3563,74.4139 -95.4145,74.4221 -95.4507,74.428 -95.4694,74.432 -95.5618,74.4525 -95.5969,74.4621 -95.6136,74.4743 -95.4344,74.5329 -95.4055,74.5402 -95.3897,74.5414 -95.3805,74.5387 -95.3805,74.5387 28,-6.0,Canada -97.1155,74.5209 -97.1054,74.5196 -97.0392,74.5032 -97.0124,74.4942 -97.0076,74.4854 -97.0485,74.4496 -97.1247,74.41 -97.1363,74.4049 -97.3547,74.3604 -97.4011,74.3542 -97.4241,74.3536 -97.4404,74.3536 -97.4572,74.3556 -97.5251,74.3747 -97.5389,74.3813 -97.5292,74.3955 -97.5128,74.4085 -97.5014,74.4138 -97.3656,74.4503 -97.2796,74.5043 -97.2607,74.5094 -97.2171,74.519 -97.1933,74.5241 -97.1701,74.5275 -97.1544,74.5264 -97.1372,74.5245 -97.1155,74.5209 -97.1155,74.5209 21,-2.0,Greenland -56.8128,74.5057 -56.7908,74.5088 -56.7578,74.507 -56.7357,74.5046 -56.7207,74.5014 -56.6943,74.4867 -56.7071,74.4727 -56.7315,74.4628 -56.748,74.4587 -56.7673,74.4558 -56.7884,74.4534 -56.8353,74.4517 -56.8819,74.4516 -56.9333,74.4525 -56.9474,74.4569 -56.939,74.4672 -56.9228,74.4775 -56.9112,74.4811 -56.8462,74.4983 -56.8128,74.5057 -56.8128,74.5057 22,7.0,Russia 85.4192,74.4393 85.429,74.4244 85.4037,74.4015 85.264,74.3571 85.2197,74.352 85.1656,74.3497 85.137,74.3505 85.1148,74.353 84.9998,74.3733 84.987,74.3784 84.9775,74.3842 84.9253,74.4257 84.9267,74.4423 85.0231,74.4716 85.0613,74.4786 85.0901,74.4797 85.1479,74.4779 85.2822,74.4714 85.3076,74.4696 85.3304,74.4666 85.4192,74.4393 85.4192,74.4393 26,7.0,Russia 85.6354,74.338 85.6037,74.3381 85.5466,74.3403 85.5245,74.3426 85.4403,74.3722 85.5504,74.4479 85.5697,74.4599 85.5827,74.465 85.6016,74.4685 85.6273,74.4702 85.6849,74.4719 85.7166,74.4714 85.7426,74.47 85.7648,74.4674 85.9842,74.4318 85.9902,74.4209 85.9834,74.4048 85.9127,74.3843 85.8749,74.3963 85.8499,74.4067 85.8243,74.4086 85.7703,74.4111 85.7444,74.4061 85.6677,74.3552 85.6354,74.338 85.6354,74.338 30,-2.0,Greenland -57.1984,74.4109 -57.1596,74.4107 -57.1058,74.4106 -57.08,74.4114 -56.7097,74.4346 -56.6669,74.4392 -56.648,74.4428 -56.6046,74.4555 -56.5835,74.4576 -56.5578,74.4572 -56.4014,74.4329 -56.3847,74.4287 -56.3187,74.401 -56.3329,74.3939 -56.4663,74.3788 -56.4819,74.3782 -56.5047,74.3794 -56.5492,74.3848 -56.7505,74.382 -56.7997,74.3804 -57.0783,74.3757 -57.3214,74.3769 -57.3842,74.3805 -57.4061,74.3892 -57.3906,74.3946 -57.2575,74.411 -57.2335,74.4126 -57.2158,74.4126 -57.1984,74.4109 -57.1984,74.4109 363,-7.0,Canada -123.1648,71.1636 -123.1822,71.1913 -123.2289,71.2548 -123.2815,71.3116 -123.3478,71.3781 -123.3863,71.4062 -123.556,71.4884 -123.6049,71.5336 -123.6601,71.5633 -123.6871,71.5753 -123.7295,71.5923 -123.7811,71.607 -123.8219,71.6149 -123.8473,71.6195 -124.0942,71.6594 -124.1672,71.6711 -124.3183,71.6928 -124.361,71.6999 -124.3869,71.7055 -124.4083,71.7111 -124.5392,71.7454 -124.5738,71.7551 -124.7831,71.8136 -124.866,71.8292 -124.9507,71.8524 -124.754,71.86 -124.681,71.8463 -124.6492,71.8559 -124.6934,71.8739 -124.7283,71.8766 -124.9381,71.8799 -125.0571,71.8788 -125.1212,71.8784 -125.1828,71.8769 -125.2953,71.8706 -125.3309,71.8681 -125.3905,71.8594 -125.4257,71.8566 -125.4654,71.8552 -125.5056,71.8567 -125.6396,71.8629 -125.6852,71.8765 -125.6044,71.8668 -125.5841,71.8677 -125.5537,71.8717 -125.5137,71.8799 -125.487,71.8885 -125.4633,71.9053 -125.4406,71.9327 -125.4242,71.9654 -125.4204,71.9972 -125.4366,72.0126 -125.4166,72.0612 -125.2756,72.1512 -125.2156,72.1947 -125.1687,72.2544 -125.1346,72.3097 -124.9876,72.3909 -124.9528,72.3983 -124.8717,72.4166 -124.8392,72.4272 -124.7278,72.4688 -124.6992,72.508 -124.6391,72.6052 -124.6695,72.6583 -124.7231,72.7236 -124.6559,72.7586 -124.5828,72.7774 -124.4987,72.7897 -124.4638,72.7928 -124.4243,72.7906 -124.3757,72.7903 -124.3336,72.7949 -124.2961,72.8008 -124.1801,72.828 -124.1917,72.8762 -124.3173,72.9033 -124.4241,72.9098 -124.4652,72.9234 -124.5235,72.95 -124.5572,72.9802 -124.4837,73.0384 -124.4076,73.051 -124.2861,73.1343 -124.262,73.1549 -124.2006,73.2276 -124.1298,73.3187 -124.0974,73.3352 -123.9909,73.381 -123.9437,73.3843 -123.9105,73.3832 -123.8732,73.3835 -123.8522,73.3875 -123.7611,73.4468 -123.7313,73.4851 -123.7653,73.5209 -123.758,73.5517 -123.6356,73.5818 -123.5515,73.596 -123.5239,73.6004 -123.4643,73.6646 -123.4935,73.6968 -123.5317,73.7232 -123.6247,73.7404 -123.6463,73.7413 -123.6685,73.7409 -123.708,73.7384 -123.764,73.7403 -123.8216,73.7484 -123.8505,73.7541 -123.886,73.7644 -123.9044,73.7727 -124.0537,73.9141 -124.0959,73.9556 -124.1103,74.0089 -124.1177,74.0338 -124.2907,74.1661 -124.3419,74.1638 -124.368,74.1668 -124.4581,74.2302 -124.4358,74.2416 -124.3774,74.2461 -124.0853,74.2678 -123.7895,74.2912 -123.5767,74.295 -123.5385,74.2981 -123.3589,74.3167 -123.3203,74.32 -123.2565,74.3227 -123.1014,74.3269 -122.8888,74.3416 -122.7058,74.3431 -122.374,74.3524 -122.1224,74.3636 -122.0221,74.3695 -121.8037,74.3901 -121.7513,74.3964 -121.6238,74.4167 -121.4521,74.4379 -121.4154,74.4415 -121.3373,74.4468 -121.296,74.4489 -121.2499,74.4494 -121.2043,74.447 -120.9973,74.4301 -120.9404,74.424 -120.8234,74.4054 -120.7717,74.392 -120.7454,74.3849 -120.695,74.3686 -120.6694,74.3426 -120.5954,74.3137 -120.396,74.2724 -120.1727,74.2286 -119.9097,74.1813 -119.8427,74.1713 -119.5489,74.1356 -119.4893,74.1334 -119.4191,74.1327 -119.3036,74.1325 -119.3407,74.0866 -119.3676,74.0648 -119.3919,74.0543 -119.4182,74.0441 -119.4941,74.0122 -119.5272,73.9786 -119.5233,73.9584 -119.4702,73.9315 -119.4278,73.9327 -119.4339,73.9573 -119.3459,74.018 -119.1925,74.1135 -119.1527,74.1207 -118.9529,74.1175 -118.8707,74.1149 -118.8391,74.1093 -118.8144,74.0963 -118.7918,74.0646 -118.7654,74.0084 -118.7736,73.9831 -118.7924,73.9705 -118.8172,73.9674 -118.8474,73.9585 -118.8857,73.8907 -118.866,73.8866 -118.6711,73.9018 -118.5023,73.9925 -118.4901,74.0189 -118.513,74.0344 -118.54,74.0405 -118.5645,74.0505 -118.5798,74.0729 -118.5408,74.0873 -118.4172,74.112 -118.3711,74.1189 -118.3045,74.1272 -118.2031,74.1391 -117.8776,74.1713 -117.8202,74.1749 -117.7999,74.1751 -117.7293,74.174 -117.6719,74.1679 -117.6173,74.1611 -117.3277,74.1441 -117.2123,74.1376 -117.1305,74.127 -117.0763,74.1174 -116.9904,74.0989 -116.8589,74.067 -116.5317,73.972 -116.4888,73.9591 -116.4397,73.939 -116.3275,73.8903 -116.2336,73.8494 -116.1472,73.8134 -116.05,73.7735 -116.0284,73.766 -116.0058,73.7614 -115.9155,73.7382 -115.7644,73.6928 -115.7144,73.6734 -115.6853,73.6555 -115.6239,73.6265 -115.6041,73.6188 -115.5275,73.5985 -115.3151,73.5525 -115.1149,73.469 -115.0798,73.4466 -115.062,73.4328 -115.0453,73.4123 -115.0329,73.378 -115.1693,73.3257 -115.4135,73.2699 -115.5485,73.2411 -115.576,73.2354 -115.9808,73.1742 -116.049,73.1685 -116.0857,73.1667 -116.1384,73.1629 -116.176,73.1573 -116.4061,73.1055 -116.5226,73.0696 -116.6615,73.0266 -116.7397,73.0087 -116.8823,72.9837 -117.1071,72.9503 -117.1393,72.9466 -117.1792,72.9383 -117.4212,72.8799 -117.5496,72.8408 -117.6051,72.8221 -117.6383,72.811 -117.6881,72.7984 -117.7291,72.7904 -117.8285,72.7731 -117.9312,72.7569 -117.9865,72.7469 -118.0275,72.7384 -118.0791,72.7269 -118.103,72.72 -118.1687,72.6938 -118.2038,72.6679 -118.2554,72.6561 -118.2986,72.6527 -118.371,72.6507 -118.4215,72.6463 -118.466,72.6396 -118.4917,72.6338 -118.8274,72.542 -118.8505,72.5354 -118.8762,72.5254 -119.0275,72.3357 -119.0443,72.2882 -119.0219,72.2635 -119.1199,72.229 -119.1445,72.2233 -119.2308,72.2095 -119.342,72.1819 -119.3729,72.1709 -119.3937,72.163 -119.4762,72.1325 -119.5168,72.125 -119.5532,72.1236 -119.6875,72.125 -119.8472,72.1466 -119.8493,72.1695 -119.8808,72.1731 -119.9604,72.1643 -119.9738,72.1423 -119.943,72.1175 -119.9104,72.1058 -119.8608,72.0505 -119.8918,71.9985 -119.9103,71.9824 -120.0218,71.9173 -120.055,71.8993 -120.1001,71.8859 -120.1348,71.8738 -120.1632,71.8527 -120.1681,71.8292 -120.1528,71.8147 -120.1016,71.7907 -120.1374,71.6752 -120.1406,71.647 -120.1234,71.6267 -120.098,71.5959 -120.156,71.517 -120.1934,71.4707 -120.2172,71.4494 -120.2638,71.4218 -120.3223,71.3988 -120.3568,71.391 -120.5006,71.3628 -120.5279,71.3579 -120.5975,71.3467 -120.6424,71.3409 -120.8533,71.3152 -121.0525,71.2926 -121.1142,71.2858 -121.1585,71.2847 -121.3094,71.3065 -121.2561,71.3212 -121.2609,71.3434 -121.2883,71.3571 -121.315,71.3626 -121.3489,71.3662 -121.387,71.3684 -121.4219,71.3663 -121.4679,71.3574 -121.4949,71.3487 -121.5392,71.328 -121.5644,71.3154 -121.6204,71.2844 -121.6839,71.2485 -121.794,71.1928 -121.8408,71.173 -121.8632,71.1667 -121.9298,71.1541 -121.9736,71.1484 -122.0175,71.1424 -122.0741,71.1338 -122.1491,71.1202 -122.2244,71.1039 -122.3268,71.0801 -122.3728,71.0623 -122.3974,71.0497 -122.426,71.0306 -122.4617,71.0074 -122.4948,70.9941 -122.5153,70.9905 -122.5684,70.9879 -122.8041,70.986 -122.8445,70.9901 -122.881,70.9991 -122.9414,71.0204 -122.9774,71.0359 -123.0105,71.0522 -123.0345,71.0647 -123.0872,71.0951 -123.1121,71.1138 -123.1464,71.1428 -123.1648,71.1636 -123.1648,71.1636 94,9.0,Russia 112.5016,73.9913 112.4526,73.9919 112.4254,73.9942 112.3461,74.0025 112.2319,74.0141 112.2109,74.017 112.1217,74.0262 112.0096,74.0369 111.9821,74.0388 111.9212,74.0318 111.8994,74.0303 111.8744,74.0338 111.8317,74.0486 111.7929,74.0638 111.7845,74.0695 111.7625,74.0801 111.741,74.0906 111.728,74.0959 111.677,74.1097 111.6561,74.1136 111.6059,74.1209 111.5198,74.1291 111.4374,74.1352 111.4078,74.138 111.3285,74.1485 111.3073,74.1525 111.29,74.1571 111.1983,74.1926 111.1804,74.2036 111.1706,74.2202 111.1928,74.2431 111.2078,74.2488 111.2248,74.2533 111.2619,74.2605 111.2821,74.2627 111.3251,74.2669 111.3899,74.2718 111.4142,74.2719 111.4417,74.2701 111.4632,74.2659 111.4802,74.2612 111.5065,74.2512 111.5235,74.2468 111.545,74.2427 111.5705,74.2419 111.5909,74.2438 111.6817,74.2784 111.6949,74.2898 111.6879,74.2986 111.6781,74.3107 111.6826,74.377 111.6869,74.3939 111.7115,74.4196 111.7232,74.4274 111.7363,74.4344 111.7517,74.44 111.7893,74.4469 111.8381,74.4473 111.8642,74.4461 111.8918,74.4444 111.9215,74.441 111.943,74.4368 112.0837,74.4226 112.4228,74.3974 112.4936,74.394 112.5406,74.3951 112.7067,74.3981 112.7584,74.3963 112.8107,74.3937 112.9215,74.3853 112.9972,74.3741 113.06,74.3614 113.0773,74.3568 113.1024,74.3466 113.1196,74.3355 113.1284,74.3235 113.1421,74.2926 113.134,74.2852 113.0693,74.2452 113.0328,74.2218 112.9271,74.1372 112.8858,74.1169 112.8658,74.1145 112.821,74.1119 112.7974,74.1117 112.736,74.1053 112.7171,74.1014 112.6832,74.0924 112.671,74.0845 112.6552,74.0649 112.5416,73.9981 112.5286,73.993 112.5016,73.9913 112.5016,73.9913 35,7.0,Russia 84.4739,74.4011 84.4867,74.4028 84.5123,74.4044 84.5435,74.4048 84.6746,74.4025 84.7032,74.3954 84.7197,74.3833 84.7233,74.3726 84.7012,74.3658 84.6791,74.3631 84.6541,74.3614 84.5935,74.3622 84.4947,74.3694 84.4662,74.3686 84.3426,74.3591 84.3271,74.3519 84.3816,74.3455 84.4007,74.3421 84.5194,74.3142 84.5357,74.3102 84.5457,74.3018 84.5267,74.2938 84.4445,74.2973 84.3934,74.3004 84.282,74.3127 84.2371,74.3176 84.2211,74.322 84.1889,74.3301 84.1628,74.3403 84.1575,74.351 84.2153,74.3652 84.275,74.3749 84.3159,74.3809 84.4739,74.4011 84.4739,74.4011 63,-2.0,Greenland -20.9042,74.3415 -20.8774,74.3202 -20.8581,74.3179 -20.841,74.3202 -20.8106,74.3268 -20.775,74.3276 -20.753,74.3271 -20.4816,74.3007 -20.4105,74.2657 -20.3954,74.2569 -20.3812,74.2454 -20.3859,74.2343 -20.4094,74.2169 -20.4109,74.2067 -20.3754,74.1724 -20.2742,74.1326 -20.2073,74.1235 -20.1725,74.1199 -20.0891,74.1092 -20.0737,74.1009 -20.091,74.0773 -20.1095,74.067 -20.1261,74.0622 -20.141,74.0593 -20.1621,74.0568 -20.1773,74.0561 -20.3119,74.054 -20.4566,74.0437 -20.6457,74.0185 -20.7104,74.0102 -20.7278,74.0088 -21.0157,73.9892 -21.058,73.9879 -21.1561,73.9855 -21.2402,73.9907 -21.2616,74.003 -21.2739,74.0088 -21.3018,74.0176 -21.3417,74.0282 -21.3757,74.0343 -21.5843,74.0607 -21.6151,74.0619 -21.6603,74.0687 -21.7225,74.0778 -21.9119,74.1097 -21.9335,74.1235 -21.9316,74.1354 -21.9058,74.1719 -21.8983,74.18 -21.8099,74.2392 -21.7851,74.2491 -21.6244,74.2865 -21.5405,74.3043 -21.5017,74.3115 -21.3329,74.3392 -21.3122,74.3423 -21.2913,74.345 -21.2074,74.3509 -21.1197,74.3522 -21.0032,74.3513 -20.9179,74.3446 -20.9042,74.3415 -20.9042,74.3415 15,7.0,Russia 84.9823,74.3198 85.0012,74.3283 85.0454,74.3334 85.1056,74.3342 85.2867,74.3332 85.312,74.3315 85.3343,74.329 85.35,74.3251 85.3659,74.3163 85.3595,74.307 85.3405,74.3035 85.1855,74.2874 85.1634,74.2898 84.9823,74.3198 84.9823,74.3198 24,9.0,Russia 115.6207,74.1949 115.5873,74.1997 115.5892,74.2191 115.6037,74.2399 115.6125,74.247 115.6254,74.2548 115.642,74.2604 115.6955,74.2734 115.7197,74.2729 115.7452,74.2716 115.7699,74.2679 115.786,74.2629 115.8165,74.2402 115.8271,74.222 115.8302,74.2097 115.821,74.202 115.8065,74.1956 115.7899,74.1901 115.7721,74.1858 115.7515,74.1837 115.7016,74.1852 115.675,74.1878 115.6207,74.1949 115.6207,74.1949 17,-6.0,Canada -98.5784,74.1979 -98.5571,74.1971 -98.4941,74.1969 -98.4046,74.1982 -98.3161,74.2036 -98.2726,74.2092 -98.2607,74.2149 -98.2693,74.2234 -98.2827,74.2278 -98.321,74.2337 -98.3329,74.2374 -98.3636,74.2406 -98.3779,74.2412 -98.4653,74.2354 -98.4993,74.2329 -98.6066,74.2067 -98.5784,74.1979 44,10.0,Russia 140.0948,73.8014 140.0175,73.8177 139.9953,73.8221 139.9514,73.8344 139.8985,73.8585 139.7641,73.9248 139.7553,73.9309 139.7271,73.967 139.7179,73.9851 139.7171,73.997 139.7316,74.0756 139.7396,74.0876 139.7572,74.0999 139.8534,74.1362 139.8711,74.1422 139.9148,74.1546 139.9592,74.1615 140.0256,74.1676 140.1362,74.1774 140.2032,74.181 140.3367,74.181 140.3812,74.1798 140.448,74.1762 140.5143,74.17 140.559,74.1641 140.6034,74.1567 140.6256,74.1516 140.6965,74.1277 140.7187,74.1156 140.7277,74.1094 140.7579,74.0641 140.7263,73.9648 140.6928,73.9134 140.6639,73.8924 140.6114,73.874 140.5896,73.8739 140.5674,73.8754 140.502,73.8754 140.458,73.8706 140.2661,73.8384 140.2227,73.8261 140.2054,73.8201 140.0948,73.8014 140.0948,73.8014 44,10.0,Russia 135.0719,74.1467 135.158,74.1336 135.3044,74.1028 135.5446,74.0334 135.5636,74.0275 135.689,73.9876 135.7183,73.9762 135.876,73.9073 135.9114,73.8899 135.9244,73.8809 135.927,73.8326 135.8982,73.7985 135.8207,73.7753 135.808,73.774 135.7846,73.7794 135.7281,73.7969 135.7149,73.8055 135.7102,73.824 135.6972,73.8328 135.5488,73.8913 135.5337,73.897 135.4764,73.9141 135.4534,73.9182 135.4067,73.9296 135.3875,73.9352 135.3564,73.9529 135.3441,73.9649 135.3366,73.9769 135.3333,73.9888 135.3256,74.0006 135.2259,74.0411 135.2109,74.0469 135.1882,74.049 135.1668,74.0472 135.1445,74.0468 135.1222,74.0478 135.099,74.0519 135.0885,74.0578 135.0717,74.0697 135.0078,74.1519 135.0244,74.156 135.0477,74.1527 135.0719,74.1467 135.0719,74.1467 251,-6.0,Canada -90.9612,73.2413 -91.0137,73.1811 -91.0329,73.168 -91.1433,73.1023 -91.3454,72.9651 -91.4207,72.9159 -91.5475,72.8151 -91.5808,72.7968 -91.5909,72.7762 -91.6267,72.7485 -91.8435,72.655 -91.873,72.6455 -91.9047,72.6369 -91.9437,72.6279 -92.0095,72.6157 -92.052,72.6102 -92.0916,72.6075 -92.1123,72.607 -92.1701,72.6098 -92.2077,72.6132 -92.301,72.6231 -92.5211,72.6424 -92.6735,72.6529 -92.8523,72.6718 -93.0229,72.6921 -93.1116,72.7102 -93.1318,72.7025 -93.1657,72.6965 -93.186,72.6946 -93.3533,72.6805 -93.4533,72.682 -93.4991,72.6837 -93.5374,72.6839 -93.7055,72.6766 -93.811,72.6689 -93.8715,72.6668 -93.9046,72.6671 -93.9487,72.671 -94.0261,72.6765 -94.0784,72.6692 -94.0966,72.6593 -94.1055,72.6377 -94.0864,72.6196 -94.0363,72.629 -94.0085,72.6376 -93.9326,72.632 -93.871,72.6192 -93.7663,72.6065 -93.6599,72.6073 -93.6128,72.6198 -93.5717,72.6047 -93.5942,72.5503 -93.5678,72.5346 -93.5379,72.5268 -93.4549,72.5232 -93.3647,72.4843 -93.3436,72.4739 -93.2745,72.4249 -93.242,72.3572 -93.4132,72.2432 -93.4431,72.2369 -93.4649,72.2347 -93.5345,72.2319 -93.5707,72.2237 -93.6,72.2082 -93.6962,72.1412 -93.7914,72.0677 -93.8157,72.0439 -93.8213,72.0243 -93.831,71.9917 -93.8641,71.9682 -93.9134,71.961 -93.9571,71.9607 -93.97,71.9427 -93.9138,71.9367 -93.8695,71.9418 -93.839,71.9393 -93.808,71.9037 -93.8509,71.8814 -93.9697,71.8984 -94.1405,71.923 -94.1955,71.927 -94.227,71.9276 -94.5206,71.9156 -94.5569,71.9104 -94.6022,71.9018 -94.6788,71.8935 -94.898,71.8705 -94.9372,71.8689 -94.9517,71.8713 -94.9863,71.8958 -94.9785,72.0052 -94.8146,72.0351 -94.7566,72.0435 -94.705,72.0477 -94.6751,72.0483 -94.6433,72.0494 -94.532,72.058 -94.5814,72.0629 -94.6145,72.0625 -94.7364,72.0592 -94.8024,72.0489 -94.9054,72.0401 -94.9398,72.0415 -94.9832,72.0877 -94.9857,72.109 -94.9653,72.1489 -94.9446,72.1869 -94.9055,72.3634 -94.9718,72.4274 -94.998,72.4348 -95.0543,72.4385 -95.0899,72.446 -95.1126,72.4928 -95.0854,72.5066 -95.1301,72.5434 -95.2365,72.5871 -95.2686,72.5897 -95.3033,72.5845 -95.3455,72.5926 -95.3654,72.6015 -95.4385,72.7127 -95.4415,72.749 -95.4214,72.779 -95.413,72.8147 -95.422,72.9218 -95.4493,72.9775 -95.3481,73.0292 -95.3402,73.0664 -95.3648,73.1852 -95.4127,73.229 -95.3775,73.2439 -95.3873,73.2621 -95.4166,73.3136 -95.4454,73.3482 -95.4618,73.4544 -95.4298,73.4822 -95.3738,73.5113 -95.4172,73.5323 -95.4368,73.5653 -95.4377,73.6177 -95.4127,73.6342 -95.2112,73.6712 -95.1888,73.6728 -95.0605,73.6711 -95.036,73.6666 -94.9981,73.6523 -94.9151,73.6089 -94.8688,73.5921 -94.8384,73.5835 -94.7865,73.572 -94.7191,73.5595 -94.6534,73.5494 -94.6084,73.5447 -94.5837,73.5437 -94.4066,73.5494 -94.382,73.5531 -94.4071,73.5686 -94.4396,73.5771 -94.4958,73.5816 -94.536,73.5804 -94.5775,73.5812 -94.6371,73.5901 -94.8436,73.6784 -94.873,73.7051 -94.8318,73.7229 -94.7977,73.7294 -94.7665,73.7326 -94.7364,73.7391 -94.7753,73.7539 -94.8061,73.7553 -94.8372,73.7524 -94.8761,73.738 -94.9058,73.7235 -95.023,73.7628 -95.0703,73.7856 -95.0883,73.8143 -95.0832,73.851 -95.0572,73.8804 -95.0039,73.9099 -94.9827,73.914 -94.9425,73.9086 -94.7998,73.9257 -94.6662,73.9468 -94.6094,73.9584 -94.5562,73.9699 -94.5065,73.9898 -94.3779,73.9898 -94.2204,73.9937 -94.1846,74.0039 -94.1589,74.0196 -93.9776,74.0307 -93.9383,74.0329 -93.8537,74.0358 -93.7531,74.038 -93.713,74.0382 -93.6689,74.0338 -93.5202,73.9962 -93.5207,74.0346 -93.492,74.0535 -93.452,74.0613 -93.4025,74.0668 -93.345,74.07 -93.2767,74.0721 -93.1936,74.0712 -93.0895,74.0692 -93.0062,74.0641 -92.7921,74.049 -92.7429,74.0452 -92.5604,74.0244 -92.4026,74.0023 -92.1287,73.9391 -92.1002,73.931 -92.0704,73.9174 -92.0524,73.9058 -92.0395,73.887 -92.0531,73.872 -92.0837,73.8451 -91.8864,73.8545 -91.8743,73.8824 -91.6925,73.9122 -91.6443,73.9166 -91.6056,73.9182 -91.3389,73.9254 -91.2964,73.924 -90.9092,73.9097 -90.8668,73.908 -90.8255,73.9046 -90.506,73.8678 -90.4309,73.8535 -90.4041,73.8481 -90.2132,73.8194 -90.1783,73.8145 -90.1235,73.8137 -90.1056,73.8235 -89.9975,73.8085 -89.9702,73.7979 -90.009,73.757 -90.0308,73.7439 -90.052,73.7385 -90.133,73.7008 -90.2482,73.6219 -90.3549,73.5581 -90.4987,73.4837 -90.6235,73.4409 -90.7003,73.39 -90.8639,73.2851 -90.9267,73.262 -90.9507,73.2495 -90.9612,73.2413 -90.9612,73.2413 24,7.0,Russia 82.3547,74.0585 82.4134,74.0447 82.4295,74.0407 82.4562,74.0307 82.4927,74.0149 82.5165,74.0042 82.5238,73.9948 82.498,73.9808 82.4151,73.9524 82.4003,73.9479 82.3878,73.9482 82.378,73.952 82.3291,73.9645 82.291,73.9708 82.15,73.9732 82.1341,73.9776 82.1206,73.9824 82.111,73.993 82.1082,74.0173 82.1274,74.0329 82.1422,74.0371 82.1784,74.0446 82.3547,74.0585 82.3547,74.0585 38,7.0,Russia 82.6193,73.9828 82.6084,73.994 82.6226,74.0028 82.6528,74.0115 82.707,74.0222 82.9317,74.0477 82.9912,74.0489 83.0385,74.0449 83.1272,74.0356 83.2601,74.021 83.3264,74.0138 83.3907,73.9972 83.4035,73.9922 83.4062,73.9809 83.3934,73.972 83.378,73.9675 83.3566,73.9645 83.332,73.963 83.3134,73.9643 83.3277,73.973 83.3207,73.9826 83.2891,73.982 83.1871,73.977 83.1777,73.9679 83.1893,73.9581 83.2024,73.9531 83.2346,73.9451 83.2537,73.9416 83.2384,73.9373 83.1514,73.9384 83.0883,73.9462 82.9647,73.9633 82.9263,73.9698 82.8633,73.9776 82.7655,73.9845 82.7404,73.9861 82.6193,73.9828 82.6193,73.9828 50,-6.0,Canada -99.1792,73.7916 -99.1315,73.7691 -99.1132,73.7643 -98.8914,73.7179 -98.8549,73.7146 -98.7129,73.7052 -98.67,73.7061 -98.5289,73.7135 -98.231,73.7373 -98.1452,73.7453 -97.9208,73.7705 -97.8978,73.7734 -97.8767,73.7785 -97.5755,73.8682 -97.5164,73.8877 -97.4806,73.9038 -97.4699,73.9092 -97.4255,73.9352 -97.4053,73.9491 -97.3904,73.9631 -97.39,73.9748 -97.3941,73.9866 -97.4054,73.9994 -97.4423,74.0106 -97.4553,74.0132 -97.4887,74.0167 -97.5096,74.0177 -97.5574,74.0189 -97.7454,74.0087 -97.7906,74.005 -97.9213,73.992 -97.9809,73.9826 -98.0055,73.978 -98.0263,73.9732 -98.1062,73.957 -98.1757,73.9435 -98.2422,73.9338 -98.2828,73.9317 -98.326,73.9307 -98.412,73.9308 -98.5513,73.9174 -98.6875,73.898 -98.7699,73.8792 -98.8422,73.8517 -98.9731,73.84 -99.0318,73.8367 -99.1552,73.815 -99.1752,73.8094 -99.1861,73.7992 -99.1792,73.7916 20,-6.0,Canada -89.78,73.8845 -89.8301,73.8919 -89.9305,73.9008 -89.9894,73.9038 -90.0216,73.9097 -90.0362,73.9143 -90.0553,73.9262 -90.0448,73.9404 -90.0115,73.9532 -89.9772,73.9573 -89.7635,73.9661 -89.7436,73.9639 -89.7131,73.957 -89.6863,73.9468 -89.6748,73.934 -89.6909,73.9101 -89.7005,73.9052 -89.7612,73.888 -89.78,73.8845 -89.78,73.8845 28,7.0,Russia 83.7604,73.9271 83.8634,73.922 83.9179,73.9167 83.9328,73.9156 83.9494,73.915 84.0176,73.9125 84.0389,73.9153 84.1151,73.9368 84.155,73.943 84.1829,73.9426 84.2037,73.9352 84.2036,73.8645 84.1914,73.8595 84.1762,73.8551 84.1206,73.8533 84.09,73.8531 84.0652,73.8545 84.0432,73.8571 83.8028,73.884 83.7467,73.8854 83.7219,73.8872 83.7027,73.8904 83.6866,73.8945 83.6741,73.8996 83.6701,73.9097 83.7093,73.9204 83.7604,73.9271 83.7604,73.9271 41,9.0,Russia 124.1964,73.7377 124.1878,73.7448 124.1385,73.7503 124.1163,73.75 124.099,73.744 124.0789,73.7413 124.0577,73.7451 124.0405,73.75 124.0215,73.7614 124.0057,73.7641 123.9793,73.7687 123.9764,73.7873 123.9963,73.7958 124.0163,73.7982 124.0386,73.7984 124.0577,73.8077 124.0104,73.8207 124.0312,73.8277 124.1121,73.838 124.1333,73.8393 124.1537,73.8417 124.2385,73.8474 124.2556,73.8475 124.2302,73.8418 124.1914,73.8343 124.1731,73.8294 124.154,73.8259 124.1612,73.8176 124.2078,73.8156 124.305,73.8071 124.3299,73.8037 124.3464,73.7947 124.3392,73.7848 124.3229,73.7778 124.3046,73.7725 124.2701,73.7605 124.2524,73.7558 124.2322,73.7533 124.2206,73.7458 124.1964,73.7377 124.1964,73.7377 24,-7.0,Canada -102.5072,72.664 -102.4907,72.6248 -102.3745,72.5676 -102.2191,72.5075 -102.1312,72.4805 -102.0129,72.4522 -101.9769,72.445 -101.9303,72.4365 -101.9303,72.9874 -101.9968,72.9855 -102.0257,72.9842 -102.1178,72.9691 -102.1375,72.9647 -102.2565,72.93 -102.3197,72.8875 -102.3432,72.8466 -102.3453,72.8203 -102.3631,72.7987 -102.3975,72.7668 -102.4143,72.7557 -102.4496,72.7389 -102.4961,72.7214 -102.5151,72.6902 -102.5072,72.664 121,10.0,Russia 140.8056,73.777 140.8203,73.7721 140.8702,73.7629 140.9573,73.7603 141.0006,73.76 141.0222,73.7611 141.0442,73.7639 141.0749,73.7716 141.1187,73.784 141.1625,73.7933 141.2068,73.7982 141.3401,73.8093 141.646,73.8198 141.6678,73.8193 141.6898,73.8171 141.7328,73.8072 141.7542,73.802 141.797,73.7897 141.9823,73.7571 142.047,73.7542 142.0903,73.7502 142.1118,73.7475 142.1546,73.7389 142.2183,73.7202 142.2562,73.7078 142.3089,73.6876 142.3442,73.6721 142.3776,73.6596 142.6576,73.5613 142.6999,73.5534 142.7638,73.5458 142.7847,73.5419 142.8222,73.5293 142.855,73.5169 143.0757,73.4233 143.1141,73.3923 143.1735,73.3399 143.1525,73.3249 143.1302,73.3164 143.0814,73.304 143.0958,73.2642 143.1219,73.2183 143.1547,73.1784 143.1531,73.1315 142.8758,73.1054 142.8333,73.1048 142.7919,73.1088 142.7294,73.1156 142.6667,73.1235 142.5457,73.1357 142.2922,73.1592 142.2717,73.1609 142.229,73.1585 142.101,73.1437 142.0588,73.1419 142.0358,73.1424 142.0144,73.1454 141.9733,73.1526 141.9317,73.1652 141.9108,73.1701 141.8687,73.1739 141.7849,73.1808 141.7426,73.1834 141.7003,73.185 141.6791,73.1839 141.6582,73.1841 141.616,73.1852 141.4935,73.1909 141.451,73.1938 141.2825,73.2063 141.2403,73.2115 141.198,73.218 141.1562,73.2263 140.8859,73.2749 140.6312,73.319 140.4607,73.3473 140.4392,73.3499 140.3969,73.3521 140.3542,73.3524 140.2901,73.3507 140.226,73.3471 140.0771,73.3339 139.938,73.3136 139.9059,73.3063 139.7473,73.2716 139.7055,73.2628 139.6636,73.2557 139.6213,73.2506 139.5368,73.2468 139.494,73.2465 139.4301,73.2488 139.4092,73.2499 139.3879,73.2522 139.3662,73.2557 139.3269,73.2726 139.3081,73.3032 139.3131,73.3244 139.3406,73.3338 139.3615,73.3385 139.3826,73.3411 139.425,73.3437 139.7228,73.3565 139.8079,73.3591 139.8291,73.3581 139.9156,73.359 139.9398,73.3579 139.9654,73.3623 140.0677,73.384 140.1353,73.4079 140.2546,73.4507 140.2949,73.4678 140.3291,73.4925 140.3928,73.5651 140.4701,73.6438 140.5393,73.6923 140.5698,73.7101 140.5958,73.7224 140.722,73.7675 140.7742,73.7778 140.8056,73.777 140.8056,73.777 49,-2.0,Greenland -56.1819,73.6835 -56.2034,73.6846 -56.2166,73.6892 -56.2129,73.6994 -56.1891,73.7188 -56.1752,73.7309 -56.1862,73.734 -56.2038,73.7337 -56.2713,73.7306 -56.357,73.7248 -56.3981,73.7204 -56.4632,73.7101 -56.4849,73.7114 -56.5097,73.7179 -56.5364,73.7262 -56.6324,73.7728 -56.6165,73.7834 -56.5571,73.806 -56.5431,73.8104 -56.517,73.8155 -56.4748,73.8155 -56.3425,73.7964 -56.2814,73.7872 -56.1009,73.7797 -56.0223,73.778 -56.0005,73.7754 -55.886,73.7581 -55.8512,73.7521 -55.8248,73.7435 -55.8147,73.7313 -55.8148,73.7202 -55.8263,73.7121 -55.8429,73.7076 -55.861,73.7054 -55.8875,73.707 -55.9245,73.7134 -55.9567,73.7213 -55.9727,73.7239 -55.992,73.7249 -56.0123,73.7234 -56.0309,73.72 -56.0559,73.7126 -56.0696,73.7071 -56.079,73.7018 -56.0996,73.6924 -56.1135,73.6878 -56.1319,73.685 -56.1819,73.6835 -56.1819,73.6835 391,-6.0,Canada -89.8152,71.7971 -89.7465,71.727 -89.6832,71.6941 -89.6228,71.6665 -89.5985,71.6526 -89.6078,71.6297 -89.6809,71.5872 -89.723,71.5729 -89.7549,71.561 -89.7929,71.5397 -89.8038,71.5056 -89.8014,71.4831 -89.775,71.3526 -89.7587,71.3198 -89.696,71.2586 -89.6164,71.2329 -89.497,71.2218 -89.2228,71.2004 -89.0936,71.1932 -89.0012,71.189 -88.853,71.1821 -88.6458,71.1658 -88.5029,71.1539 -88.3801,71.1409 -88.1187,71.1344 -87.9286,71.1251 -87.8266,71.139 -87.7698,71.1563 -87.7037,71.1737 -87.6259,71.1656 -87.6224,71.1265 -87.6489,71.1001 -87.559,71.0491 -87.5062,71.0309 -87.3725,71.0016 -87.2727,70.9805 -87.1992,70.9528 -87.0799,70.9334 -86.9766,70.9212 -86.9363,70.9178 -86.841,70.9074 -86.8066,70.8994 -86.827,70.8932 -86.8528,70.8941 -86.9176,70.9014 -86.9476,70.9054 -87.0134,70.9139 -87.048,70.9155 -87.0776,70.9121 -87.1048,70.9041 -87.1343,70.8818 -87.1476,70.8588 -87.1724,70.8512 -87.2368,70.8518 -87.36,70.854 -87.4193,70.8571 -87.4649,70.8614 -87.5004,70.862 -87.5528,70.8604 -87.598,70.8564 -87.6577,70.8482 -87.7214,70.837 -87.7686,70.8353 -87.7998,70.8358 -87.825,70.8372 -88.0599,70.8545 -88.0886,70.8567 -88.1244,70.862 -88.1546,70.8806 -88.171,70.912 -88.2308,70.9283 -88.2824,70.9367 -88.4152,70.9509 -88.4867,70.9535 -88.7015,70.9516 -88.7768,70.9474 -88.8362,70.9418 -88.8727,70.9366 -88.9059,70.9337 -88.9309,70.9335 -88.9841,70.9397 -89.0083,70.9543 -89.0165,70.976 -89.2651,70.9982 -89.2865,70.9985 -89.3448,70.995 -89.2904,70.964 -89.1439,70.9061 -89.1115,70.898 -89.0669,70.8902 -88.9913,70.8726 -89.0123,70.8448 -89.0955,70.8397 -89.1681,70.8323 -89.2209,70.8235 -89.2435,70.8123 -89.1694,70.7239 -89.1283,70.6991 -89.0832,70.6767 -89.0592,70.6666 -89.0021,70.6443 -88.9423,70.6245 -88.9109,70.6166 -88.8753,70.6042 -88.8027,70.555 -88.8034,70.5323 -88.7855,70.5157 -88.7146,70.4537 -88.6975,70.4405 -88.5984,70.3972 -88.4795,70.3619 -88.3807,70.3579 -88.2419,70.3462 -88.1764,70.3398 -87.9694,70.3022 -87.9148,70.2919 -87.8867,70.286 -87.7183,70.2397 -87.689,70.2225 -87.7128,70.2112 -87.7981,70.2201 -87.8394,70.2249 -87.8617,70.2365 -88.0134,70.2599 -88.0615,70.2353 -87.9418,70.2042 -87.8918,70.1932 -87.8167,70.1855 -87.726,70.1515 -87.6707,70.147 -87.638,70.1464 -87.6014,70.1486 -87.5812,70.1515 -87.5087,70.1653 -87.4206,70.1918 -87.4407,70.2026 -87.4742,70.2067 -87.4779,70.2272 -87.3668,70.2306 -87.06,70.2147 -86.9897,70.2038 -86.9132,70.1962 -86.8104,70.1888 -86.7871,70.1911 -86.7897,70.2677 -86.8159,70.2797 -86.853,70.2881 -86.9886,70.3019 -86.9413,70.345 -86.8858,70.3632 -86.8391,70.372 -86.8013,70.375 -86.7655,70.3752 -86.7304,70.3603 -86.7503,70.3507 -86.7933,70.3422 -86.6761,70.233 -86.6458,70.2282 -86.4515,70.2299 -86.4621,70.2749 -86.4337,70.3033 -86.3805,70.3304 -86.3216,70.3414 -86.2136,70.3676 -86.1748,70.3797 -86.1488,70.3976 -86.1869,70.4253 -86.1638,70.4285 -86.1405,70.4194 -86.112,70.406 -86.0975,70.3862 -86.1196,70.3703 -86.1792,70.3537 -86.2544,70.3396 -86.2873,70.3325 -86.3246,70.3218 -86.348,70.3094 -86.3648,70.2948 -86.3854,70.269 -86.3611,70.1481 -86.1347,70.0406 -86.1103,70.0303 -86.0634,70.014 -86.0396,70.0071 -85.9033,69.9714 -85.6646,69.9149 -85.6289,69.9088 -85.5399,69.9 -85.5002,69.9024 -85.4564,69.9149 -85.427,69.919 -85.3906,69.9193 -85.2598,69.9106 -85.2271,69.9065 -85.0601,69.9008 -85.1632,69.9356 -85.1897,69.9411 -85.2808,69.9583 -85.3967,69.9764 -85.4379,69.9799 -85.5024,69.9794 -85.5436,69.9757 -85.6044,69.9651 -85.644,69.953 -85.6646,69.9484 -85.6847,69.9881 -85.6569,69.9973 -85.5622,70.0104 -85.5294,70.0122 -85.4762,70.0131 -85.1719,70.0121 -85.1461,70.0108 -85.0,70.0021 -85.0,71.0655 -85.0859,71.0634 -85.2057,71.0807 -85.309,71.0643 -85.4639,71.0553 -85.5828,71.0452 -85.6056,71.0422 -85.6358,71.0333 -85.8301,70.9777 -86.0273,70.9209 -86.0733,70.9091 -86.0952,70.9069 -86.233,70.8955 -86.3504,70.8855 -86.4046,70.8782 -86.5156,70.8806 -86.5602,70.8833 -86.6184,70.8943 -86.594,70.9048 -86.5722,70.9105 -86.552,70.9141 -86.4463,70.9261 -86.3202,70.938 -86.2533,70.9379 -86.2109,70.9417 -86.0913,70.9585 -86.0518,70.9649 -86.0132,70.9939 -85.9737,71.0132 -85.7694,71.0772 -85.7357,71.0849 -85.6415,71.0937 -85.5647,71.0981 -85.4665,71.1003 -85.3276,71.0827 -85.304,71.0833 -85.199,71.1012 -85.0,71.169 -85.0,71.3658 -85.0313,71.3709 -85.1854,71.3856 -85.3024,71.4165 -85.6719,71.582 -85.705,71.6047 -85.7465,71.6319 -85.8232,71.6704 -85.8504,71.6766 -85.8774,71.6804 -85.909,71.6878 -85.9313,71.7004 -85.9643,71.7295 -86.1334,71.8561 -86.2193,71.9229 -86.2294,71.9507 -86.2502,72.111 -86.2264,72.1797 -86.1902,72.2128 -86.1718,72.227 -86.1448,72.2428 -86.1021,72.2624 -86.0695,72.2772 -86.0459,72.2932 -86.0348,72.3166 -86.0547,72.353 -86.0729,72.3689 -86.1383,72.4103 -86.1982,72.4415 -86.2435,72.4559 -86.2585,72.4595 -86.272,72.4633 -86.2963,72.4716 -86.4028,72.5118 -86.4296,72.5235 -86.4534,72.5343 -86.4888,72.5564 -86.5232,72.6187 -86.4858,72.7204 -86.4412,72.7718 -86.4167,72.7856 -86.3607,72.8112 -86.2899,72.843 -86.2642,72.8552 -86.2437,72.8655 -86.1174,72.9385 -86.0751,72.9816 -86.0826,73.0005 -85.926,73.1301 -85.8345,73.1884 -85.718,73.2562 -85.6384,73.2919 -85.5538,73.3261 -85.3836,73.3873 -85.1281,73.4568 -85.0,73.4926 -85.0,73.7159 -85.093,73.7209 -85.207,73.7242 -85.2475,73.7208 -85.305,73.7201 -85.3377,73.7209 -85.4909,73.7321 -85.5318,73.7365 -85.8924,73.7498 -85.9916,73.75 -86.0223,73.7491 -86.1839,73.7457 -86.2753,73.7444 -86.3787,73.745 -86.4984,73.7407 -86.8307,73.7084 -86.9647,73.6929 -87.2373,73.6603 -87.32,73.6469 -87.5204,73.6115 -87.5606,73.6034 -87.5972,73.5946 -87.7035,73.5681 -87.7545,73.5551 -87.8549,73.5283 -88.0431,73.4746 -88.0663,73.4674 -88.1894,73.4242 -88.2136,73.4147 -88.2481,73.3926 -88.4699,73.3158 -88.6376,73.2372 -88.7761,73.1822 -88.8204,73.1562 -89.0094,73.0273 -89.0907,72.9503 -89.1432,72.8935 -89.1406,72.8673 -89.1156,72.8525 -89.0778,72.6998 -89.1146,72.6583 -89.1486,72.6647 -89.2298,72.6781 -89.2626,72.6822 -89.3552,72.6886 -89.3641,72.6171 -89.3549,72.5987 -89.3331,72.5939 -89.3024,72.594 -89.2561,72.5719 -89.3509,72.5221 -89.3902,72.5181 -89.4343,72.5313 -89.4625,72.532 -89.4839,72.5279 -89.5209,72.5193 -89.5377,72.5084 -89.5709,72.4631 -89.5572,72.426 -89.5609,72.3992 -89.5899,72.3622 -89.6511,72.3532 -89.6756,72.3483 -89.6954,72.3303 -89.7412,72.2153 -89.7255,72.1654 -89.6827,72.0929 -89.5895,72.0657 -89.5549,72.0626 -89.5192,72.0745 -89.4932,72.0787 -89.4641,72.0809 -89.3958,72.0822 -89.3665,72.0707 -89.3852,72.0524 -89.4614,72.0161 -89.4861,72.0156 -89.5125,72.0264 -89.5385,72.0271 -89.5997,72.0158 -89.7502,71.9816 -89.7846,71.9708 -89.8366,71.8584 -89.8152,71.7971 31,-6.0,Canada -85.8386,71.8965 -85.8222,71.8854 -85.8001,71.8825 -85.761,71.8787 -85.7378,71.8772 -85.6987,71.8735 -85.6437,71.8667 -85.5432,71.8459 -85.3549,71.803 -85.234,71.7145 -85.2541,71.7 -85.3504,71.6999 -85.3736,71.6887 -85.0868,71.5755 -85.0651,71.5704 -85.0321,71.5648 -85.0,71.5622 -85.0,72.1606 -85.069,72.1632 -85.0893,72.1636 -85.2941,72.1584 -85.2987,72.088 -85.2791,72.0772 -85.2466,72.062 -85.2381,72.0365 -85.3003,71.9775 -85.3364,71.9634 -85.5765,71.9312 -85.7781,71.9328 -85.8462,71.9168 -85.8386,71.8965 23,-6.0,Canada -85.5002,72.5901 -85.4981,72.5409 -85.4533,72.5048 -85.4269,72.4926 -85.3542,72.4853 -85.2766,72.4742 -85.3027,72.4642 -85.4054,72.4427 -85.3302,72.3729 -85.3104,72.3622 -85.1661,72.3179 -85.135,72.3096 -85.0,72.2769 -85.0,72.8549 -85.0498,72.8627 -85.0751,72.8663 -85.1709,72.8731 -85.2823,72.8763 -85.3404,72.8715 -85.3756,72.8644 -85.4767,72.7993 -85.5023,72.6393 -85.5002,72.5901 15,-6.0,Canada -85.3104,72.9224 -85.3051,72.921 -85.0154,72.9168 -85.0,72.9151 -85.0,72.9648 -85.0422,72.9715 -85.0914,72.9799 -85.1247,72.9942 -85.1605,73.0268 -85.1919,73.0374 -85.2133,73.0347 -85.2347,73.0244 -85.2624,72.9996 -85.3274,72.9268 -85.3104,72.9224 5,-6.0,Canada -85.0154,73.0247 -85.0,73.0139 -85.0,73.034 -85.0161,73.0252 -85.0154,73.0247 26,7.0,Russia 86.6618,73.5236 86.6503,73.5289 86.6461,73.5395 86.667,73.555 86.7046,73.5703 86.7582,73.5879 86.7752,73.5934 86.8512,73.6148 86.9048,73.6383 86.9317,73.6702 86.9462,73.7009 86.9595,73.7144 86.9783,73.7177 86.9995,73.7148 87.0081,73.7062 87.0357,73.666 86.967,73.6143 86.9575,73.6084 86.8939,73.5743 86.8718,73.5633 86.8474,73.5618 86.8002,73.5563 86.7778,73.5524 86.6936,73.5372 86.6618,73.5236 86.6618,73.5236 222,9.0,Russia 123.2516,73.1098 123.2298,73.1146 123.0759,73.1983 122.9169,73.3028 122.9344,73.4518 123.0053,73.486 123.0643,73.5186 123.0653,73.5594 123.0961,73.5697 123.2379,73.5971 123.2803,73.5502 123.2939,73.51 123.3137,73.5073 123.3773,73.5008 123.6566,73.5204 123.6821,73.5407 123.635,73.5578 123.5992,73.568 123.5742,73.6662 123.6008,73.6726 123.624,73.6717 123.6549,73.6645 123.7448,73.6149 123.7245,73.6026 123.6892,73.5925 123.7253,73.5815 123.7473,73.5817 123.7759,73.5867 123.8561,73.62 123.9117,73.6481 123.9296,73.6583 124.0264,73.7012 124.0465,73.7035 124.0784,73.7002 124.1933,73.6623 124.2157,73.6511 124.2924,73.6286 124.388,73.6053 124.4096,73.6054 124.43,73.608 124.5248,73.6002 124.6103,73.5661 124.6777,73.5242 124.717,73.5328 124.7466,73.555 124.7403,73.5805 124.7888,73.5862 124.8231,73.5846 124.8449,73.5714 124.8741,73.5242 124.8615,73.462 124.9188,73.4413 124.9402,73.4365 124.9776,73.4339 124.9991,73.4341 125.1042,73.4537 125.2716,73.4413 125.3166,73.4232 125.3095,73.394 125.2734,73.3804 125.2254,73.3713 125.2072,73.3517 125.2556,73.3033 125.2892,73.3088 125.3181,73.331 125.3734,73.3598 125.5581,73.3994 125.6599,73.4029 125.7043,73.4084 125.9289,73.4526 125.9503,73.4537 125.9737,73.4515 126.0031,73.4437 126.0883,73.4086 126.0326,73.3614 126.0043,73.3487 125.8861,73.355 125.8454,73.2782 125.9317,73.2758 125.962,73.2788 126.0087,73.2893 126.0539,73.3029 126.1107,73.3071 126.2177,73.258 126.2347,73.2464 126.277,73.1934 126.2524,73.1709 126.2517,73.1314 126.292,73.1099 126.3087,73.1047 126.3293,73.0938 126.3692,73.0554 126.401,72.9826 126.3727,72.9591 126.2656,72.891 126.1822,72.8732 126.1279,72.8601 126.0567,72.841 126.0167,72.8255 125.9873,72.802 125.9717,72.7758 125.9804,72.7579 125.997,72.7465 126.022,72.7355 126.0507,72.7184 126.076,72.6981 126.0726,72.6762 126.0565,72.6629 126.037,72.6489 125.9889,72.5684 125.9435,72.4281 125.9465,72.4036 125.9714,72.3798 126.0321,72.3398 126.0472,72.2833 125.9111,72.2236 125.8659,72.2053 125.8189,72.205 125.7519,72.2206 125.7155,72.2342 125.6792,72.2476 125.6314,72.257 125.6081,72.2606 125.5638,72.2652 125.5427,72.2652 125.505,72.2602 125.4844,72.2599 125.4488,72.2641 125.4244,72.2688 125.2728,72.3177 125.2478,72.335 125.1827,72.3495 125.136,72.3567 125.1144,72.3574 125.0679,72.3642 125.0437,72.3689 125.0151,72.3765 124.9881,72.3906 124.9593,72.4259 124.942,72.4377 124.8926,72.4533 124.8559,72.4631 124.8119,72.4714 124.6714,72.4911 124.6494,72.4921 124.6003,72.5013 124.5633,72.5112 124.5343,72.5216 124.5003,72.5383 124.4783,72.5648 124.4177,72.5791 124.3952,72.5814 124.373,72.5824 124.3521,72.5821 124.2122,72.5723 124.1733,72.5685 124.1517,72.5692 124.0829,72.576 124.0622,72.5809 124.0248,72.5908 123.9865,72.6071 123.9513,72.6294 123.8668,72.655 123.8212,72.6645 123.6554,72.6901 123.6315,72.6935 123.6093,72.6947 123.5442,72.6963 123.5013,72.6968 123.459,72.6962 123.4371,72.6973 123.3711,72.7 123.3473,72.7031 123.2327,72.7227 123.1573,72.736 123.1363,72.7408 123.0598,72.7603 123.0293,72.7704 122.8881,72.7901 122.8038,72.7893 122.7381,72.7903 122.6718,72.7931 122.6253,72.7972 122.2867,72.8392 122.237,72.8467 122.2154,72.8515 122.1806,72.8616 122.1342,72.8793 122.1665,72.9148 122.2229,72.924 122.2855,72.9262 122.3076,72.9256 122.3311,72.9237 122.4024,72.9162 122.5235,72.9015 122.5565,72.8957 122.5674,72.8714 122.5929,72.8577 122.7888,72.8157 122.8111,72.8147 122.8321,72.8151 122.8819,72.8193 122.9179,72.8271 122.9564,72.8446 123.0154,72.8752 123.0261,72.9049 123.0088,72.9228 123.0745,73.0646 123.0964,73.0716 123.1898,73.0884 123.228,73.0863 123.2123,73.0674 123.2336,73.0609 123.2773,73.0601 123.2976,73.0616 123.3558,73.0697 123.3625,73.1046 123.3364,73.1121 123.314,73.1129 123.2721,73.1115 123.2516,73.1098 123.2516,73.1098 138,-5.0,Canada -76.8976,72.7419 -76.9147,72.7425 -76.9567,72.7442 -77.0396,72.7485 -77.0783,72.7517 -77.1268,72.7577 -77.178,72.7665 -77.2201,72.7748 -77.259,72.7823 -77.3344,72.7884 -77.5246,72.7993 -77.6706,72.7953 -77.7149,72.794 -77.8082,72.7906 -77.9173,72.7884 -78.0461,72.795 -78.0828,72.7926 -78.1068,72.79 -78.2954,72.7678 -78.433,72.7505 -78.6745,72.7067 -78.8562,72.6737 -78.9706,72.653 -79.0177,72.6473 -79.1043,72.6401 -79.1673,72.636 -79.1994,72.6357 -79.2371,72.6384 -79.351,72.6509 -79.431,72.6656 -79.7338,72.7448 -79.7785,72.7569 -79.8095,72.7701 -79.9255,72.8808 -79.9559,72.914 -79.985,72.949 -79.9681,72.9635 -79.9395,72.9866 -79.9264,73.0161 -79.9154,73.0847 -79.9439,73.116 -80.0195,73.1445 -80.0405,73.1455 -80.2174,73.1454 -80.4214,73.1656 -80.5609,73.176 -80.5983,73.1782 -80.6763,73.2345 -80.6721,73.3258 -80.6195,73.3898 -80.6081,73.545 -80.6551,73.6419 -80.5689,73.65 -80.481,73.656 -80.3582,73.6679 -80.2331,73.6664 -80.1716,73.6617 -80.1514,73.6597 -80.1107,73.6512 -80.0639,73.6303 -80.0223,73.6161 -79.9921,73.6074 -79.9495,73.5984 -79.9082,73.594 -79.8739,73.5979 -79.7015,73.5985 -79.4263,73.5713 -79.387,73.563 -79.3245,73.5472 -79.2861,73.5362 -79.2536,73.5311 -79.1755,73.5313 -78.7645,73.5332 -78.743,73.5371 -78.7269,73.5488 -78.6904,73.5569 -78.6642,73.5586 -78.4477,73.557 -78.2124,73.5621 -78.011,73.5683 -77.971,73.5682 -77.9253,73.5643 -77.8693,73.5525 -77.8147,73.5378 -77.7706,73.5286 -77.6288,73.5042 -77.5448,73.4925 -77.4145,73.4749 -77.3419,73.4661 -77.2608,73.4605 -77.2316,73.4552 -77.2029,73.4466 -77.1756,73.4278 -77.1524,73.4191 -77.1024,73.4136 -77.045,73.4109 -77.0056,73.4043 -76.9606,73.3707 -76.8615,73.2653 -76.8093,73.2469 -76.7795,73.2383 -76.7237,73.2255 -76.6976,73.2232 -76.6688,73.2275 -76.6473,73.2285 -76.5469,73.226 -76.5255,73.2211 -76.3923,73.1114 -76.4226,73.0811 -76.4171,73.0606 -76.3965,73.0467 -76.3137,73.0201 -76.1946,73.0077 -76.1267,73.0022 -76.1288,72.9656 -76.1385,72.8612 -76.0975,72.8499 -76.0262,72.8477 -75.9766,72.8483 -75.9257,72.8404 -75.8891,72.8253 -75.8757,72.8062 -75.9052,72.7632 -75.9249,72.7535 -75.9557,72.7463 -76.0664,72.7286 -76.1303,72.7194 -76.1548,72.7175 -76.3863,72.7149 -76.4161,72.7164 -76.4407,72.7211 -76.4859,72.7326 -76.5453,72.7362 -76.5813,72.7362 -76.7052,72.7333 -76.7504,72.7331 -76.8976,72.7419 -76.8976,72.7419 72,-7.0,Canada -106.748,73.3753 -106.743,73.3721 -106.6721,73.3635 -106.6417,73.3623 -106.616,73.3642 -106.4556,73.351 -106.1908,73.2972 -106.0595,73.2399 -105.8207,73.1426 -105.8318,73.1013 -105.6863,73.0618 -105.654,73.047 -105.4742,72.9496 -105.3173,72.8863 -105.2025,72.8359 -105.1866,72.8044 -105.127,72.7687 -105.0274,72.7489 -105.0066,72.7509 -104.9524,72.7685 -104.99,72.7792 -105.0235,72.7877 -105.0715,72.8105 -105.0908,72.8551 -105.0547,72.8546 -104.9697,72.8352 -104.8855,72.8784 -104.8252,72.8975 -104.7753,72.906 -104.7265,72.9253 -104.7223,72.9785 -104.6107,73.0384 -104.5368,73.0695 -104.5047,73.1008 -104.4372,73.1534 -104.3912,73.182 -104.344,73.2075 -104.314,73.2272 -104.2971,73.3042 -104.2532,73.3938 -104.2282,73.4491 -104.2615,73.4778 -104.32,73.5006 -104.4218,73.527 -104.4498,73.5312 -104.5812,73.5512 -104.6978,73.589 -104.8349,73.6397 -104.885,73.6544 -104.9061,73.6557 -105.0298,73.662 -105.2612,73.663 -105.3122,73.6591 -105.3477,73.6524 -105.3728,73.6447 -105.4085,73.6367 -105.4616,73.6288 -105.5355,73.627 -105.7734,73.6315 -105.9195,73.6338 -106.0608,73.6268 -106.3055,73.6123 -106.3514,73.6057 -106.3848,73.5976 -106.4334,73.5764 -106.4786,73.5485 -106.627,73.4632 -106.6633,73.451 -106.7049,73.4325 -106.748,73.4084 -106.7651,73.3862 -106.748,73.3753 28,-2.0,Greenland -56.3486,73.5836 -56.3172,73.6047 -56.3019,73.6057 -56.2898,73.6047 -56.2661,73.6029 -56.2479,73.5995 -56.2164,73.5917 -56.2012,73.5825 -56.2033,73.573 -56.2227,73.5651 -56.4428,73.5277 -56.4984,73.5222 -56.6916,73.512 -56.7141,73.5135 -56.8215,73.5601 -56.7934,73.5683 -56.7577,73.5762 -56.7363,73.5785 -56.7039,73.5804 -56.6842,73.5812 -56.6552,73.5803 -56.6312,73.5785 -56.576,73.5688 -56.5568,73.567 -56.5366,73.5677 -56.3712,73.5815 -56.3486,73.5836 -56.3486,73.5836 21,7.0,Russia 86.6792,73.5933 86.5766,73.5142 86.5636,73.5095 86.5363,73.5002 86.5208,73.4959 86.4717,73.4928 86.2041,73.4885 86.1797,73.4889 86.27,73.5337 86.2853,73.5382 86.3192,73.5456 86.3563,73.5522 86.4781,73.5604 86.4997,73.5627 86.5367,73.5695 86.599,73.5865 86.6082,73.5922 86.6211,73.5973 86.667,73.6015 86.6792,73.5933 86.6792,73.5933 16,-2.0,Greenland -56.2697,73.4425 -56.2894,73.4424 -56.3296,73.4451 -56.4159,73.4548 -56.3997,73.4893 -56.3733,73.5039 -56.1893,73.5563 -56.1748,73.556 -56.0974,73.5473 -56.0583,73.5331 -56.05,73.5264 -56.187,73.457 -56.201,73.4526 -56.214,73.4494 -56.2697,73.4425 -56.2697,73.4425 9,9.0,Russia 125.4797,73.4075 125.3973,73.4432 125.3953,73.4913 125.4898,73.5394 125.5246,73.426 125.517,73.413 125.4997,73.4072 125.4797,73.4075 125.4797,73.4075 21,-7.0,Canada -123.9973,73.5327 -123.9932,73.5271 -123.972,73.5194 -123.958,73.5166 -123.9003,73.5118 -123.8837,73.5095 -123.8698,73.507 -123.8581,73.5034 -123.8398,73.4954 -123.814,73.4788 -123.8056,73.4679 -123.8174,73.4613 -123.998,73.4569 -124.0223,73.4569 -124.0338,73.4605 -124.0422,73.4716 -124.0481,73.5305 -124.0358,73.5341 -124.0208,73.5367 -123.9973,73.5327 -123.9973,73.5327 27,-7.0,Canada -107.8105,73.4818 -107.7541,73.452 -107.7404,73.4485 -107.7032,73.4434 -107.6835,73.4411 -107.6619,73.4402 -107.6271,73.4421 -107.481,73.4564 -107.3891,73.4691 -107.377,73.471 -107.3339,73.4759 -107.3201,73.4839 -107.3163,73.5021 -107.332,73.5119 -107.346,73.5151 -107.4125,73.522 -107.5354,73.5244 -107.5551,73.5249 -107.5936,73.5245 -107.63,73.5232 -107.7381,73.5191 -107.7712,73.516 -107.7849,73.5128 -107.7966,73.5091 -107.8105,73.5008 -107.8123,73.4827 -107.8105,73.4818 27,-2.0,Greenland -55.8036,73.4708 -55.7637,73.4373 -55.7367,73.4288 -55.7025,73.4232 -55.6098,73.4081 -55.5734,73.4044 -55.4663,73.3817 -55.3963,73.3631 -55.3857,73.3593 -55.3524,73.3458 -55.3359,73.3297 -55.4522,73.282 -55.4652,73.2789 -55.4887,73.2798 -55.5902,73.2847 -55.6057,73.2891 -55.6142,73.2969 -55.6054,73.3058 -55.5747,73.3127 -55.5482,73.3766 -55.6915,73.3855 -55.9761,73.4573 -55.965,73.4643 -55.9107,73.4768 -55.8965,73.4763 -55.8036,73.4708 -55.8036,73.4708 18,7.0,Russia 80.1369,73.4006 80.1152,73.4025 80.0118,73.4152 79.9364,73.4255 79.8577,73.4563 79.8782,73.4594 79.9698,73.4696 79.9967,73.4709 80.0241,73.4707 80.1171,73.4639 80.1388,73.4618 80.177,73.4556 80.1902,73.4527 80.2038,73.4469 80.1878,73.4023 80.1611,73.4012 80.1369,73.4006 80.1369,73.4006 35,5.0,Russia 75.1199,73.3193 75.121,73.3289 75.1338,73.3447 75.1699,73.367 75.185,73.3732 75.2351,73.3927 75.3331,73.4255 75.3923,73.4424 75.433,73.4508 75.4746,73.4553 75.5166,73.4588 75.6866,73.4661 75.8168,73.4696 75.8605,73.468 75.8855,73.4617 75.7076,73.3648 75.6923,73.3583 75.6087,73.3515 75.4395,73.344 75.3536,73.346 75.3317,73.3466 75.3101,73.3487 75.3255,73.3538 75.3487,73.3624 75.3564,73.3962 75.3463,73.394 75.2521,73.3638 75.1938,73.3443 75.1706,73.3284 75.1606,73.3205 75.1666,73.3086 75.1525,73.305 75.1329,73.3104 75.1199,73.3193 75.1199,73.3193 36,5.0,Russia 75.8925,73.4281 75.9352,73.453 75.9557,73.4568 75.9771,73.4572 75.9987,73.4565 76.0209,73.4543 76.0436,73.4489 76.0886,73.4399 76.2005,73.4217 76.2449,73.4151 76.2894,73.4089 76.3557,73.4 76.3776,73.3967 76.4226,73.3894 76.4675,73.3802 76.5126,73.3703 76.5351,73.3645 76.5636,73.3527 76.5743,73.3333 76.5612,73.3249 76.539,73.3293 76.5248,73.335 76.5148,73.341 76.4863,73.3529 76.4638,73.3585 76.4185,73.3687 76.3289,73.3864 76.1498,73.4115 76.1273,73.4147 76.1056,73.4153 75.9768,73.4155 75.913,73.4139 75.8952,73.4163 75.8854,73.422 75.8925,73.4281 75.8925,73.4281 16,9.0,Russia 127.7241,73.3882 127.6717,73.3852 127.3585,73.3985 127.1084,73.4149 127.0837,73.4183 127.0717,73.421 127.0894,73.4266 127.15,73.4339 127.1913,73.4375 127.2543,73.4406 127.3448,73.4386 127.3905,73.4361 127.4363,73.4325 127.5074,73.4239 127.7241,73.3882 127.7241,73.3882 126,9.0,Russia 126.4622,72.9783 126.4658,72.9974 126.4539,73.0722 126.4267,73.0922 126.2931,73.1546 126.3002,73.228 126.3132,73.2786 126.3458,73.318 126.3834,73.3413 126.4129,73.3452 126.4551,73.3203 126.4774,73.2857 126.5153,73.2828 126.5912,73.3518 126.6077,73.3929 126.5909,73.4046 126.5571,73.4118 126.516,73.4204 126.5377,73.4266 126.5982,73.4339 126.6401,73.4362 126.7259,73.4383 126.7478,73.4384 126.8762,73.4356 126.9215,73.4333 126.9803,73.4179 127.1488,73.381 127.2778,73.3833 127.4102,73.3804 127.4677,73.3782 127.6595,73.3712 127.7505,73.2989 127.7666,73.2592 127.8755,73.2575 128.0357,73.2541 128.0203,73.2362 127.9901,73.2225 127.9421,73.1693 128.0745,73.1498 128.2005,73.157 128.2515,73.161 128.3161,73.1606 128.3387,73.1591 128.4102,73.1467 128.5761,73.1124 128.6506,73.0685 128.6319,73.0475 128.5496,73.0212 128.4663,72.9745 128.5491,72.9793 128.5934,72.9942 128.6232,73.0082 128.65,73.0174 128.6973,73.0272 128.7267,73.031 128.7818,73.0301 128.8029,72.9994 128.766,72.9422 128.7381,72.9251 128.6992,72.9077 128.6729,72.8984 128.6359,72.8894 128.3194,72.8359 128.189,72.8249 128.1066,72.822 128.064,72.8222 128.0247,72.8177 127.9874,72.8098 127.9376,72.7883 127.9016,72.7665 127.9264,72.7281 127.8638,72.71 127.8249,72.7055 127.7655,72.6999 127.6646,72.6934 127.6254,72.6887 127.5875,72.6828 127.512,72.669 127.4679,72.6558 127.4391,72.6425 127.3756,72.6266 127.3383,72.6195 127.2553,72.6187 127.2117,72.6213 127.1884,72.6248 127.145,72.6271 127.1239,72.6277 127.0845,72.624 127.0198,72.6108 126.7879,72.5348 126.6533,72.4866 126.6194,72.4749 126.5642,72.4642 126.4624,72.4543 126.4424,72.4532 126.3496,72.4518 126.286,72.4389 126.2257,72.4176 126.1917,72.3705 126.218,72.3502 126.2564,72.3369 126.2811,72.3231 126.2533,72.3079 126.2249,72.3038 126.1883,72.3072 126.1256,72.3307 126.0654,72.3583 126.0287,72.3812 126.0007,72.4058 126.0379,72.5938 126.1397,72.6923 126.1145,72.7236 126.0982,72.7351 126.0612,72.7513 126.0343,72.7687 126.0253,72.7928 126.0488,72.8162 126.0904,72.8293 126.1454,72.8414 126.2017,72.8523 126.3089,72.8809 126.35,72.8945 126.3729,72.9139 126.4256,72.9572 126.4622,72.9783 126.4622,72.9783 104,5.0,Russia 69.7028,72.9522 69.7151,72.9837 69.7451,73.0281 69.7543,73.035 69.7808,73.0487 69.8153,73.0624 69.842,73.0761 69.8601,73.0892 69.8803,73.1147 69.8909,73.1337 69.8925,73.1614 69.848,73.2183 69.8371,73.2298 69.807,73.2529 69.7959,73.2649 69.7849,73.277 69.7826,73.292 69.7883,73.3014 69.8015,73.3082 69.8163,73.3127 70.0275,73.3592 70.0669,73.366 70.229,73.3852 70.3105,73.3938 70.332,73.39 70.5451,73.4032 70.6896,73.4165 70.7108,73.4173 70.7545,73.4169 70.7999,73.4125 70.8708,73.4006 71.0711,73.3551 71.0884,73.342 70.9663,73.2895 70.8244,73.1901 70.8636,73.1707 71.0355,73.1695 71.1008,73.1843 71.2065,73.2118 71.2252,73.2174 71.2416,73.2274 71.2467,73.2428 71.2563,73.2496 71.2786,73.2476 71.2984,73.2424 71.3097,73.2368 71.4257,73.1738 71.444,73.162 71.4866,73.127 71.5016,73.1122 71.5008,73.0783 71.4816,73.0738 71.4382,73.0717 71.3755,73.0704 71.3313,73.0738 71.2244,73.0754 71.1825,73.0736 71.1631,73.0705 71.1494,73.0638 71.1304,73.0506 71.1166,73.044 71.0984,73.0384 71.0785,73.0353 71.0183,73.0288 70.9161,73.021 70.8955,73.0201 70.8319,73.0198 70.7642,73.0284 70.7421,73.0296 70.7209,73.0299 70.5618,73.0095 70.4062,72.983 70.3675,72.9764 70.3313,72.965 70.2784,72.944 70.2599,72.9396 70.2399,72.9374 70.1775,72.9361 70.1136,72.9367 70.0697,72.9395 70.0464,72.9434 70.0268,72.9488 69.9921,72.9656 69.9816,72.9805 69.9706,72.9895 69.959,72.9951 69.9351,73.0 69.9156,72.9965 69.8311,72.9657 69.8298,72.9536 69.8452,72.9479 69.8664,72.9475 69.8892,72.9448 69.9091,72.9394 69.9247,72.9343 69.9396,72.9225 69.9295,72.9171 69.7564,72.9251 69.7345,72.9266 69.7116,72.9294 69.6958,72.9345 69.6977,72.947 69.7028,72.9522 69.7028,72.9522 15,-2.0,Greenland -55.8249,73.3799 -55.7029,73.3756 -55.673,73.3723 -55.6459,73.3356 -55.6568,73.3256 -55.6684,73.3202 -55.6886,73.3182 -55.8952,73.3452 -55.9149,73.3518 -55.9087,73.362 -55.8996,73.3676 -55.8858,73.372 -55.8702,73.3759 -55.8249,73.3799 -55.8249,73.3799 11,9.0,Russia 126.1796,73.293 126.1687,73.2959 126.1546,73.3448 126.2929,73.364 126.3134,73.3664 126.3317,73.3651 126.3445,73.3596 126.2997,73.3005 126.2611,73.2936 126.1796,73.293 126.1796,73.293 130,-2.0,Greenland -24.3369,73.3155 -24.2993,73.3127 -24.1356,73.3003 -23.7909,73.2631 -23.6528,73.2418 -23.5802,73.2284 -23.4518,73.2045 -23.2108,73.159 -23.1866,73.1504 -23.1553,73.1312 -23.1736,73.1215 -23.1928,73.1187 -23.2127,73.1181 -23.56,73.1207 -23.5995,73.1218 -23.6827,73.1261 -23.7628,73.134 -23.9507,73.1556 -24.0087,73.1625 -24.0663,73.1761 -24.1441,73.1892 -24.1658,73.1923 -24.1874,73.1941 -24.229,73.1958 -24.3085,73.1922 -24.3498,73.1924 -24.4339,73.1976 -24.5821,73.2075 -24.7456,73.22 -24.7883,73.224 -24.8458,73.2255 -24.8646,73.2253 -24.8987,73.2233 -24.9355,73.218 -24.9449,73.2134 -24.9238,73.2031 -24.9013,73.2061 -24.8898,73.2094 -24.8624,73.2158 -24.8498,73.2172 -24.8263,73.218 -24.8108,73.215 -24.7332,73.1969 -24.6158,73.1814 -24.5021,73.172 -24.3595,73.1653 -24.2271,73.1592 -24.1853,73.1573 -24.1306,73.1523 -24.102,73.1498 -24.0874,73.1474 -24.0059,73.1329 -23.8887,73.1155 -23.7768,73.1041 -23.6985,73.0963 -23.5725,73.0855 -23.5517,73.0847 -23.4966,73.0862 -23.44,73.0907 -23.3435,73.0938 -23.2369,73.0899 -23.074,73.0829 -23.0347,73.0775 -22.8879,73.0487 -22.8822,73.0363 -22.9112,73.0095 -22.9227,73.0046 -22.94,72.9992 -22.9528,72.9967 -23.0021,72.9948 -23.0505,72.9982 -23.0705,72.998 -23.1506,72.9974 -23.2845,72.9926 -23.3135,72.9907 -23.3261,72.9889 -23.433,72.9774 -23.5361,72.9674 -23.7288,72.9538 -23.8333,72.9486 -23.8644,72.9478 -23.8834,72.948 -23.9058,72.9498 -23.9254,72.9524 -24.1144,72.945 -24.1887,72.9362 -24.3272,72.9253 -24.3442,72.9258 -24.6254,72.9581 -24.7245,72.9711 -24.9077,72.9985 -24.9495,73.01 -24.967,73.0145 -24.985,73.0167 -25.0061,73.0179 -25.0411,73.0175 -25.0914,73.0136 -25.1258,73.0088 -25.1626,73.0092 -25.3683,73.0208 -25.3899,73.0229 -25.4302,73.0285 -25.551,73.056 -25.615,73.0725 -25.6468,73.0847 -25.6479,73.0969 -25.383,73.1961 -25.2916,73.2143 -25.257,73.2199 -25.2392,73.2244 -25.2255,73.2314 -25.2223,73.2413 -25.2288,73.2508 -25.2386,73.2646 -25.2365,73.2797 -25.2221,73.2922 -25.2099,73.2986 -25.1939,73.3036 -25.1805,73.3066 -25.1403,73.3119 -25.1063,73.3125 -25.0053,73.3094 -24.9873,73.3107 -24.8721,73.3198 -24.8153,73.3258 -24.6662,73.3296 -24.5953,73.3247 -24.4063,73.3177 -24.3369,73.3155 -24.3369,73.3155 533,3.0,Russia 56.0373,70.4977 55.9967,70.5019 55.8983,70.5364 55.8427,70.5623 55.8018,70.574 55.7278,70.5793 55.7446,70.5596 55.7651,70.5425 55.8197,70.5294 55.8403,70.5255 55.8809,70.5106 55.9066,70.4884 55.7497,70.4876 55.5831,70.5264 55.5844,70.5469 55.6058,70.5453 55.6527,70.5394 55.6602,70.5596 55.6371,70.5887 55.6256,70.605 55.5089,70.6367 55.4775,70.6306 55.5399,70.5889 55.4677,70.6063 55.3287,70.6467 55.2819,70.6551 55.125,70.5828 55.1085,70.5652 55.1293,70.5382 55.1479,70.5302 55.1675,70.5136 55.1439,70.4906 55.0824,70.4611 55.0626,70.4597 55.0411,70.4607 55.0182,70.4632 54.9909,70.4727 54.8708,70.5207 54.7741,70.5582 54.7229,70.5675 54.7015,70.5686 54.6783,70.5711 54.6577,70.575 54.6248,70.5874 54.5769,70.6231 54.5863,70.6482 54.564,70.6648 54.4501,70.6884 54.3762,70.6909 54.356,70.6411 54.3754,70.6334 54.4226,70.6229 54.4937,70.6092 54.6098,70.5761 54.6329,70.5596 54.5491,70.5561 54.4353,70.5838 54.4125,70.5911 54.3347,70.6202 54.1595,70.6777 54.1397,70.6674 54.1638,70.6485 54.1296,70.6356 54.092,70.6336 53.9286,70.6476 53.8899,70.6594 53.8442,70.6768 53.7094,70.7162 53.6885,70.7068 53.6077,70.6997 53.5496,70.7156 53.5221,70.7274 53.4353,70.7393 53.4084,70.7411 53.3859,70.7268 53.3424,70.7208 53.2586,70.7656 53.4511,70.7933 53.4724,70.7891 53.5239,70.7842 53.5547,70.772 53.6175,70.8559 53.5775,70.8906 53.5238,70.9169 53.3818,70.9681 53.386,70.9923 53.5524,71.0011 53.6924,71.037 53.8156,71.046 53.8594,71.0438 53.8844,71.0408 53.9058,71.0366 53.9334,71.024 53.8992,71.0224 53.8314,71.0336 53.8056,71.0306 53.7924,71.0059 53.8141,71.0047 53.9654,70.9992 53.995,71.0002 54.0865,71.0176 54.112,71.0309 54.0787,71.0421 54.0254,71.0272 54.0047,71.0269 53.8726,71.0581 53.8296,71.0808 53.6871,71.0592 53.6337,71.0738 53.5977,71.0933 53.5177,71.1091 53.4971,71.1089 53.459,71.1066 53.4367,71.1075 53.3823,71.127 53.3348,71.1658 53.392,71.1805 53.4859,71.2303 53.5572,71.2933 53.6122,71.3154 53.7078,71.3144 53.7689,71.3238 53.8167,71.364 53.7827,71.3761 53.7568,71.3721 53.5918,71.3168 53.4726,71.2955 53.4332,71.2858 53.4186,71.2517 53.4236,71.2254 53.4,71.2053 53.3575,71.1975 53.3235,71.2029 53.2415,71.232 53.1329,71.3514 53.2323,71.4195 53.2771,71.4335 53.3112,71.4479 53.2412,71.4702 53.1206,71.4324 53.088,71.4171 53.0597,71.3988 52.9285,71.4054 52.9063,71.4061 52.8866,71.3894 52.8605,71.349 52.7972,71.3111 52.6719,71.3544 52.5003,71.4017 52.4655,71.4709 52.4305,71.4997 52.3901,71.4983 52.3106,71.4535 52.2599,71.3957 52.2129,71.395 52.1677,71.4121 52.1424,71.4341 52.0952,71.4682 52.0202,71.4424 52.0438,71.4221 52.101,71.3963 52.0455,71.3875 51.8425,71.3806 51.6776,71.3805 51.5196,71.4349 51.4324,71.4997 51.2987,71.6361 51.2817,71.6946 51.2747,71.7533 51.2852,71.7817 51.2971,71.8038 51.3213,71.8407 51.3367,71.8629 51.3681,71.901 51.4526,71.9748 51.4792,71.9865 51.5393,72.0058 51.7192,72.0626 51.7418,72.0633 51.7999,72.0278 51.8943,72.011 51.9291,72.005 51.9962,72.0098 52.1279,71.994 52.1801,71.9711 52.207,71.9659 52.2286,71.9659 52.2796,71.9836 52.2951,72.108 52.2855,72.129 52.3554,72.155 52.4026,72.1652 52.427,72.163 52.4555,72.1634 52.6205,72.2404 52.5867,72.2657 52.5653,72.2732 52.5394,72.3357 52.6655,72.4123 52.747,72.4174 52.7453,72.4402 52.7836,72.4728 52.8539,72.4852 52.9104,72.4924 52.9565,72.497 52.8862,72.5001 52.8457,72.4975 52.7875,72.4918 52.7415,72.485 52.6983,72.4763 52.6433,72.4606 52.6079,72.4586 52.6096,72.5242 52.6284,72.5391 52.796,72.5697 52.837,72.5723 52.8607,72.5714 52.8875,72.5682 52.9434,72.5586 53.0031,72.5494 53.0489,72.5486 53.0862,72.552 52.901,72.5806 52.8743,72.5838 52.8489,72.5857 52.762,72.5839 52.7416,72.5828 52.6871,72.5727 52.6057,72.5703 52.4415,72.5756 52.4176,72.5769 52.2542,72.6243 52.2597,72.6453 52.4687,72.7558 52.5011,72.7646 52.6022,72.7801 52.7318,72.8006 52.7683,72.8067 52.848,72.8218 52.8802,72.8233 52.9038,72.8225 52.9294,72.82 53.0081,72.8036 53.1952,72.776 53.2445,72.7808 53.2624,72.83 53.2351,72.8367 53.211,72.8375 53.1598,72.834 53.104,72.8336 53.0705,72.8397 53.0151,72.8594 53.0115,72.9058 53.1025,72.9195 53.152,72.9167 53.2308,72.9088 53.2514,72.9103 53.1323,72.9619 53.1048,72.9635 53.0743,72.961 53.0483,72.9631 52.9957,72.9931 53.023,73.055 53.1277,73.0955 53.1981,73.1183 53.3106,73.1424 53.3346,73.1412 53.3743,73.1328 53.3984,73.1293 53.4289,73.1316 53.4833,73.1572 53.5094,73.1706 53.5655,73.1872 53.627,73.2002 53.6571,73.2033 53.8113,73.1912 53.8374,73.1889 53.8592,73.1816 53.8968,73.1696 53.9224,73.1674 54.0138,73.1676 54.0347,73.1686 54.0933,73.1757 54.1922,73.2027 54.3133,73.2404 54.3925,73.2716 54.435,73.2823 54.6762,73.3141 54.7787,73.3233 54.8012,73.3229 54.8273,73.3206 54.8511,73.3168 54.9847,73.2925 55.024,73.2837 55.0594,73.2747 55.1097,73.2607 55.1477,73.2468 55.1854,73.2332 55.3196,73.216 55.3411,73.2172 55.3807,73.2213 55.4235,73.2237 55.5785,73.2261 55.6013,73.2262 55.6256,73.2249 55.6527,73.2181 55.6702,73.2002 55.9721,73.1569 56.0656,73.1542 56.248,73.1344 56.2984,73.1271 56.329,73.117 56.4474,73.0338 56.415,73.0193 56.282,73.0078 56.0134,72.9906 55.8885,72.9835 55.7291,72.9686 55.676,72.9596 55.7465,72.9586 55.7884,72.9606 55.8711,72.966 56.1086,72.9723 56.155,72.9706 56.2971,72.9574 56.3224,72.9488 56.2425,72.9085 56.203,72.8956 56.1718,72.8945 56.1197,72.9004 56.0703,72.9044 56.003,72.9046 55.972,72.9029 55.9263,72.8952 55.8678,72.8887 55.7299,72.8749 55.6881,72.8727 55.6194,72.8746 55.5116,72.8699 55.4863,72.8656 55.5292,72.8494 55.5532,72.8483 55.8024,72.8444 55.8474,72.8441 55.8695,72.8439 55.9102,72.8472 55.9339,72.8542 55.9626,72.8669 56.0514,72.8756 56.0932,72.8774 56.1192,72.8703 56.1039,72.7953 56.0801,72.734 56.0284,72.6946 56.0057,72.6863 55.9387,72.6781 55.8975,72.6764 55.875,72.6765 55.8466,72.6835 55.8049,72.6936 55.7269,72.703 55.7048,72.703 55.6515,72.6841 55.605,72.6757 55.5548,72.6803 55.5172,72.6892 55.4674,72.697 55.3511,72.7117 55.3029,72.6839 55.3324,72.6816 55.4872,72.6784 55.7024,72.6458 55.7311,72.6324 55.8091,72.5671 55.7855,72.5652 55.6675,72.5714 55.5886,72.5423 55.5368,72.4647 55.4751,72.4391 55.4559,72.4368 55.3513,72.473 55.3195,72.4789 55.2663,72.486 55.2209,72.4872 55.1341,72.485 55.2333,72.4742 55.2805,72.4716 55.3154,72.4669 55.419,72.4215 55.4091,72.3778 55.3881,72.369 55.2591,72.3593 55.2385,72.3581 55.2151,72.3594 55.1888,72.3628 55.1657,72.3642 55.1437,72.3641 55.037,72.3622 55.0014,72.3538 55.224,72.3356 55.3102,72.3397 55.3313,72.3316 55.3515,72.2814 55.3319,72.2509 55.347,72.1737 55.3984,72.1537 55.4441,72.0932 55.4178,72.0729 55.3925,72.0675 55.3559,72.054 55.314,72.0359 55.2527,72.006 55.2138,71.9687 55.2385,71.9661 55.2726,71.9322 55.1924,71.8528 55.1672,71.8566 55.1425,71.8588 55.118,71.8563 55.0913,71.8301 55.1364,71.8262 55.1578,71.8265 55.2247,71.8237 55.2717,71.8202 55.2971,71.8166 55.3517,71.8032 55.3752,71.7962 55.3977,71.761 55.3884,71.7222 55.394,71.6896 55.4078,71.6651 55.4315,71.6282 55.5455,71.5103 55.5803,71.4814 55.6509,71.4466 55.6756,71.4335 55.7031,71.4099 55.7231,71.3861 55.7848,71.3342 55.905,71.2498 55.9123,71.2294 55.9279,71.1985 55.9482,71.1807 56.0684,71.1164 56.0992,71.1003 56.1464,71.0785 56.1674,71.0714 56.209,71.0597 56.2646,71.0432 56.2956,71.0304 56.4013,70.9839 56.4252,70.9734 56.4452,70.9626 56.5094,70.9239 56.798,70.8129 56.8249,70.8031 56.9354,70.7665 56.9849,70.7559 57.1127,70.734 57.3361,70.7128 57.5029,70.6353 57.4815,70.63 57.421,70.6309 57.3539,70.5727 57.3212,70.5359 57.3224,70.5125 57.2574,70.5102 57.1283,70.5344 57.0336,70.5564 56.8732,70.5795 56.6621,70.6087 56.6407,70.6099 56.6165,70.6065 56.7384,70.5462 56.8572,70.5352 56.9004,70.5326 56.967,70.5333 57.1136,70.5017 57.204,70.4768 57.1855,70.4681 57.1402,70.4734 57.035,70.4796 56.9514,70.4906 56.7866,70.5146 56.6022,70.5411 56.5637,70.5348 56.5149,70.5375 56.4689,70.5484 56.3775,70.577 56.3684,70.5996 56.3871,70.6289 56.4236,70.6328 56.4469,70.6434 56.4181,70.6558 56.3871,70.6567 56.3333,70.6508 56.1943,70.6089 56.0928,70.5672 56.1125,70.5572 56.1416,70.5543 56.2049,70.5512 56.2485,70.5601 56.2098,70.5818 56.2383,70.586 56.2979,70.5823 56.3274,70.5775 56.5255,70.4864 56.414,70.4483 56.366,70.4474 56.3431,70.4496 56.2752,70.4613 56.245,70.4704 56.297,70.4668 56.3664,70.4643 56.4274,70.4799 56.4133,70.4961 56.3824,70.5009 56.3527,70.5005 56.3081,70.4956 56.2709,70.4938 56.249,70.4952 56.1527,70.5138 56.1302,70.5195 56.0935,70.5383 56.0322,70.5572 56.0114,70.5614 55.9325,70.5694 55.9213,70.5497 55.9587,70.5461 55.9977,70.5417 56.053,70.5137 56.0373,70.4977 56.0373,70.4977 14,-2.0,Greenland -55.4125,73.2161 -55.4296,73.2191 -55.4542,73.2487 -55.2958,73.3062 -55.2379,73.3178 -55.223,73.3198 -55.2102,73.3157 -55.1926,73.2934 -55.232,73.2728 -55.2552,73.2629 -55.3789,73.2228 -55.3944,73.2192 -55.4125,73.2161 -55.4125,73.2161 19,5.0,Russia 70.968,73.2395 70.9729,73.2509 70.9908,73.2668 70.9999,73.2737 71.0573,73.3052 71.071,73.3119 71.0864,73.3149 71.109,73.3135 71.156,73.3055 71.1712,73.3003 71.1826,73.2942 71.1754,73.2359 71.1652,73.2262 71.0454,73.183 70.9791,73.1878 70.9649,73.191 70.9661,73.2218 70.968,73.2395 70.968,73.2395 17,-2.0,Greenland -55.8259,73.3046 -55.7685,73.2906 -55.7086,73.2834 -55.696,73.2725 -55.7743,73.2149 -55.7976,73.2046 -55.8159,73.2003 -55.9719,73.1905 -55.9866,73.1908 -56.0081,73.1972 -56.0139,73.2081 -55.954,73.2759 -55.8788,73.3109 -55.8494,73.3126 -55.8341,73.3087 -55.8259,73.3046 -55.8259,73.3046 1228,-7.0,Canada -118.8465,71.6355 -118.8279,71.5909 -118.8021,71.5541 -118.7733,71.5316 -118.6275,71.4846 -118.5977,71.4903 -118.6238,71.5143 -118.5737,71.5676 -118.3288,71.569 -118.2903,71.5676 -118.21,71.5604 -118.179,71.556 -118.1109,71.5218 -118.0901,71.4944 -118.0513,71.4889 -118.025,71.4887 -117.909,71.5003 -117.8904,71.5086 -117.9,71.53 -117.8465,71.5558 -117.7437,71.5769 -117.4621,71.5799 -117.4374,71.5691 -117.5893,71.5445 -117.6344,71.5201 -117.6061,71.5179 -117.3855,71.4741 -117.4079,71.4566 -117.4338,71.4547 -117.5622,71.4598 -117.7804,71.4483 -117.8121,71.4454 -117.8521,71.4385 -117.9102,71.4266 -117.9334,71.4203 -117.9893,71.3994 -118.0121,71.3892 -118.0382,71.3643 -118.0395,71.3395 -118.0171,71.3146 -117.9768,71.2972 -117.9126,71.2856 -117.8395,71.2793 -117.8182,71.2786 -117.7515,71.2785 -117.676,71.2833 -117.5557,71.2777 -117.5228,71.2737 -117.4848,71.2817 -117.4097,71.2853 -117.3226,71.2775 -117.254,71.2825 -117.2101,71.3339 -117.2347,71.3448 -117.2743,71.3501 -117.3326,71.353 -117.3574,71.3648 -117.2819,71.4045 -117.2454,71.3986 -117.2221,71.3922 -117.1759,71.3792 -117.1137,71.3484 -117.1355,71.2952 -117.0974,71.2887 -117.0571,71.2919 -116.9375,71.303 -116.9058,71.3102 -116.7156,71.3329 -116.536,71.3417 -116.174,71.3889 -116.1441,71.392 -116.0642,71.3989 -116.0129,71.401 -115.9387,71.4011 -115.8909,71.4049 -115.6961,71.4276 -115.6075,71.4381 -115.5233,71.4489 -115.4377,71.4611 -115.3866,71.4633 -115.3503,71.4607 -115.2464,71.435 -115.2761,71.4177 -115.1836,71.3941 -115.0551,71.3979 -114.9856,71.4042 -114.8963,71.4233 -114.8467,71.4299 -114.8001,71.4293 -114.9085,71.3904 -114.9333,71.385 -115.1115,71.3552 -115.1486,71.3553 -115.2682,71.3757 -115.3166,71.3926 -115.3447,71.4027 -115.4949,71.3958 -115.5598,71.3886 -115.7961,71.344 -115.7496,71.3165 -115.6587,71.2935 -115.618,71.2947 -115.5812,71.299 -115.523,71.302 -115.4836,71.2963 -115.4631,71.2842 -115.4867,71.2727 -115.5094,71.2703 -115.543,71.2683 -115.7849,71.2616 -115.8139,71.2724 -115.8741,71.2733 -115.9092,71.2724 -115.9409,71.2699 -116.1376,71.2486 -116.2494,71.2321 -116.333,71.2195 -116.401,71.2085 -116.4445,71.2032 -116.5318,71.1921 -116.5641,71.1797 -116.7166,71.1422 -117.0193,71.1127 -117.1179,71.0985 -117.1474,71.095 -117.225,71.0882 -117.2733,71.0845 -117.3706,71.0781 -117.4207,71.0756 -117.459,71.0759 -117.5265,71.0724 -117.5795,71.0631 -117.7104,71.0308 -118.0025,70.9551 -118.0692,70.936 -118.1007,70.9257 -118.1407,70.9068 -118.1438,70.8833 -118.0475,70.8085 -118.0039,70.7826 -117.9288,70.7468 -117.8995,70.7353 -117.8678,70.7248 -117.8252,70.7116 -117.7802,70.6985 -117.7418,70.6902 -117.6785,70.6756 -117.6314,70.663 -117.4753,70.6205 -117.4474,70.6036 -117.4688,70.5785 -117.4666,70.5542 -117.4392,70.5416 -117.406,70.5319 -117.3481,70.5159 -117.287,70.5037 -117.2478,70.5178 -117.1031,70.532 -117.0835,70.525 -116.837,70.5108 -116.7959,70.5089 -116.6471,70.5047 -116.452,70.5105 -116.3996,70.5156 -116.3693,70.5223 -116.2671,70.5397 -116.1101,70.5465 -116.0014,70.5422 -115.9048,70.5324 -115.8241,70.4952 -115.7946,70.4798 -115.715,70.4927 -115.6609,70.5009 -115.6286,70.5026 -115.1302,70.5122 -114.9928,70.5087 -114.8776,70.5053 -114.7301,70.5112 -114.3829,70.5297 -114.3129,70.5389 -114.2869,70.5436 -114.2367,70.5541 -114.1954,70.5644 -114.1585,70.5784 -114.1194,70.5832 -114.0648,70.5823 -114.0041,70.5788 -113.9507,70.5729 -113.9133,70.5719 -113.8861,70.5757 -113.8633,70.5819 -113.8319,70.5926 -113.8105,70.5997 -113.758,70.6171 -113.7245,70.6222 -113.6807,70.6224 -113.6247,70.6173 -113.5051,70.6034 -113.4718,70.5988 -113.4273,70.5854 -113.4007,70.574 -113.3742,70.5621 -113.3431,70.5547 -113.3068,70.5522 -113.2715,70.5622 -113.2591,70.583 -113.2362,70.5846 -113.0475,70.5493 -112.8875,70.5136 -112.7542,70.4854 -112.6836,70.4746 -112.5986,70.4729 -112.5609,70.4755 -112.4651,70.4754 -112.4214,70.4624 -112.3993,70.4527 -112.3689,70.4419 -112.3331,70.4325 -112.2662,70.4215 -112.245,70.4226 -112.1746,70.4339 -111.9473,70.41 -111.9027,70.4006 -111.8636,70.3817 -111.8312,70.3515 -111.8184,70.3258 -111.8032,70.3089 -111.7502,70.2859 -111.7301,70.2788 -111.5538,70.2589 -111.4933,70.2578 -111.4442,70.2634 -111.4149,70.2661 -111.3816,70.2664 -111.2877,70.2575 -111.245,70.2476 -111.204,70.1911 -111.2987,70.1781 -111.4943,70.1774 -111.6074,70.1794 -111.6406,70.1758 -111.6698,70.1633 -111.859,70.1856 -111.9894,70.2066 -112.0245,70.2083 -112.0484,70.2004 -111.9922,70.1919 -111.9051,70.1787 -111.9543,70.174 -112.0451,70.1749 -112.2987,70.1444 -112.3184,70.1272 -112.2741,70.1132 -112.3059,70.1068 -112.4161,70.1122 -112.8388,70.1556 -112.9162,70.1672 -113.0435,70.182 -113.0807,70.1853 -113.1385,70.1885 -113.1752,70.1898 -113.2069,70.1885 -113.2523,70.1855 -113.2963,70.1815 -113.3385,70.1768 -113.3971,70.1718 -113.4304,70.1713 -113.5877,70.1776 -113.8032,70.1906 -113.8358,70.1949 -113.8564,70.2021 -113.8806,70.2138 -113.9148,70.2207 -113.9632,70.2243 -113.9997,70.2254 -114.0684,70.2248 -114.2555,70.2228 -114.2872,70.2214 -114.3324,70.2179 -114.3613,70.2145 -114.4029,70.2096 -114.4572,70.2021 -114.4853,70.1989 -114.5458,70.1942 -114.6108,70.1918 -114.7738,70.188 -114.8272,70.1879 -114.9105,70.186 -114.9724,70.1821 -115.0509,70.1735 -115.191,70.1605 -115.2393,70.1586 -115.3894,70.1548 -115.4357,70.1519 -115.5441,70.1447 -115.6501,70.1369 -115.8134,70.1217 -115.8417,70.1185 -115.9078,70.1081 -115.9775,70.0995 -116.3242,70.0654 -116.6178,70.0377 -116.7513,70.0253 -116.822,70.0175 -116.8612,70.0108 -116.9101,70.001 -116.9347,69.9962 -116.9864,69.9831 -117.0251,69.9722 -117.0679,69.9588 -117.0987,69.9486 -117.1281,69.9377 -117.1589,69.9191 -117.1769,69.8927 -117.1118,69.8293 -117.0528,69.7542 -117.0164,69.6967 -116.989,69.6647 -116.8642,69.6214 -116.8225,69.6084 -116.7891,69.6019 -116.7644,69.5993 -116.7344,69.5949 -116.7087,69.5893 -116.5966,69.5567 -116.5993,69.5297 -116.6279,69.5191 -116.6449,69.4976 -116.5217,69.4712 -116.5026,69.4832 -116.4817,69.4855 -116.3847,69.4804 -116.3466,69.4753 -116.3268,69.4682 -116.3135,69.3982 -116.3742,69.3757 -116.3061,69.328 -116.2813,69.3192 -115.9694,69.2588 -115.9255,69.2524 -115.8068,69.2407 -115.7725,69.2343 -115.7539,69.2236 -115.7335,69.211 -115.713,69.2041 -115.6726,69.2011 -115.5466,69.1933 -115.3964,69.1841 -115.1531,69.1676 -115.0063,69.156 -114.8421,69.1554 -114.5178,69.1631 -114.4235,69.1665 -114.2724,69.1742 -114.2467,69.1779 -114.2017,69.1887 -114.1757,69.1926 -114.1472,69.1949 -114.0745,69.1959 -114.0302,69.1925 -113.6647,69.1527 -113.3797,69.1105 -113.3366,69.1034 -113.3101,69.098 -113.2725,69.0833 -113.2955,69.0796 -113.3785,69.089 -113.4172,69.1003 -113.443,69.1015 -113.4525,69.0658 -113.4096,68.9976 -113.3806,68.9811 -113.3054,68.9575 -113.3359,68.8626 -113.3731,68.8494 -113.4346,68.8107 -113.43,68.7182 -113.2834,68.6367 -113.2065,68.5602 -113.126,68.5072 -113.0942,68.4975 -113.0293,68.4842 -112.9658,68.4732 -112.9021,68.4626 -112.8787,68.4566 -112.8334,68.4327 -112.8028,68.4061 -112.9545,68.4086 -113.0239,68.4075 -113.0627,68.3841 -113.0211,68.3652 -112.9816,68.3651 -112.853,68.3726 -112.813,68.3765 -112.5694,68.379 -112.5356,68.3777 -112.4893,68.3779 -112.4322,68.3813 -112.4002,68.3912 -112.2714,68.4102 -112.1636,68.4113 -112.1216,68.4143 -111.9995,68.4229 -111.9728,68.4257 -111.8233,68.4353 -111.6147,68.4463 -111.3645,68.4556 -111.2869,68.4537 -111.2322,68.449 -111.146,68.4373 -111.1231,68.4338 -111.0105,68.4265 -110.9789,68.4374 -110.9805,68.4627 -111.0147,68.4693 -111.0626,68.4697 -111.1699,68.4822 -111.1499,68.4954 -111.0927,68.4984 -111.0401,68.4939 -110.9972,68.4901 -110.9309,68.4878 -110.9,68.4879 -110.8513,68.4912 -110.8286,68.4962 -110.7889,68.5096 -110.6151,68.5149 -110.6287,68.4995 -110.6625,68.4939 -110.6907,68.4924 -110.7393,68.4911 -110.7949,68.4694 -110.7156,68.4642 -110.6876,68.466 -110.6618,68.4693 -110.4472,68.4982 -110.4227,68.5022 -110.3831,68.5159 -110.3489,68.528 -110.3267,68.5285 -110.2159,68.5241 -110.1899,68.5183 -110.1609,68.4908 -110.137,68.4867 -110.1033,68.4921 -110.0539,68.5161 -110.0338,68.5276 -110.0107,68.5373 -109.9864,68.5413 -109.9582,68.5426 -109.9271,68.5424 -109.8907,68.5391 -109.7372,68.5393 -109.5243,68.5406 -109.451,68.5425 -109.4175,68.5454 -109.365,68.5559 -109.3215,68.5673 -109.2908,68.5768 -109.259,68.5853 -109.2027,68.5978 -109.1677,68.6051 -109.142,68.608 -109.1135,68.6097 -109.08,68.6075 -109.032,68.6063 -109.0023,68.6068 -108.9597,68.6089 -108.8732,68.6223 -108.741,68.6457 -108.7008,68.6543 -108.4432,68.7412 -108.3659,68.7708 -108.3055,68.8028 -108.3088,68.8247 -108.3321,68.8421 -108.2991,68.8563 -108.2608,68.859 -108.197,68.8573 -108.0675,68.8528 -108.0337,68.8507 -107.9787,68.8447 -107.9448,68.8424 -107.7468,68.842 -107.7164,68.8445 -107.5162,68.872 -107.4441,68.8748 -107.4166,68.877 -107.3245,68.8868 -107.2739,68.8939 -107.2023,68.9075 -107.1451,68.9207 -107.1129,68.9301 -107.0796,68.9416 -107.0424,68.9635 -107.0197,68.9792 -106.9972,68.9954 -106.9623,69.0235 -106.933,69.0454 -106.9036,69.0634 -106.8105,69.0918 -106.7342,69.1092 -106.7108,69.1197 -106.696,69.1419 -106.7317,69.2088 -106.7609,69.2497 -106.7304,69.2664 -106.7007,69.2722 -106.6328,69.2797 -106.5157,69.318 -106.5077,69.3476 -106.3812,69.4072 -106.3334,69.4077 -106.3117,69.4034 -106.2919,69.3962 -106.2656,69.3846 -106.0875,69.2971 -106.0402,69.2055 -106.0527,69.1862 -106.0795,69.1731 -106.1529,69.1545 -106.1773,69.1348 -106.1799,69.0954 -106.0613,69.0712 -106.0292,69.0659 -105.9583,69.0552 -105.812,69.0646 -105.6843,69.0784 -105.6474,69.0818 -105.6037,69.0833 -105.5415,69.0823 -105.3907,69.0719 -105.3545,69.0673 -105.3279,69.0635 -105.2854,69.0465 -105.2542,69.0249 -104.9354,68.9831 -104.898,69.0023 -104.8651,69.0168 -104.8403,69.0152 -104.6965,68.9834 -104.7052,68.9477 -104.815,68.9015 -104.8403,68.898 -104.9134,68.9024 -104.9537,68.9014 -105.0245,68.8568 -104.969,68.8289 -104.9419,68.8176 -104.9128,68.8091 -104.6266,68.7819 -104.3609,68.7713 -104.3211,68.775 -104.2939,68.7827 -104.2724,68.7947 -104.2518,68.8131 -104.2383,68.8395 -104.2152,68.8494 -104.1801,68.8426 -104.0655,68.8133 -103.9165,68.7772 -103.8809,68.7697 -103.6149,68.7478 -103.289,68.713 -103.1831,68.6888 -103.1442,68.7229 -103.1214,68.7337 -103.1011,68.7412 -102.9821,68.7555 -102.9356,68.7535 -102.8282,68.7214 -102.7792,68.7066 -102.6761,68.7117 -102.6003,68.7456 -102.5442,68.7892 -102.4214,68.7772 -102.3934,68.7723 -102.3711,68.772 -102.3176,68.7758 -102.2672,68.7828 -102.172,68.8285 -102.1053,68.8484 -101.9451,68.8566 -101.9303,68.8617 -101.9303,69.1075 -101.998,69.136 -102.0113,69.1734 -101.9778,69.1896 -101.935,69.1826 -101.9303,69.1832 -101.9303,69.401 -102.085,69.4089 -102.2452,69.3913 -102.2688,69.3798 -102.289,69.3529 -102.5016,69.2908 -102.5328,69.2856 -102.5791,69.2891 -102.6108,69.2947 -102.6513,69.2712 -102.7259,69.2041 -102.7541,69.1759 -102.7814,69.1424 -102.8082,69.1221 -102.8531,69.0985 -102.884,69.0871 -102.9145,69.0727 -102.9613,69.0221 -102.9853,69.0343 -102.9848,69.1082 -102.9452,69.123 -102.8979,69.1332 -102.8508,69.1494 -102.8235,69.1631 -102.8,69.188 -102.7863,69.2374 -102.7694,69.3324 -102.7918,69.3844 -102.8128,69.4184 -102.8437,69.4321 -102.8666,69.4321 -103.1122,69.4851 -103.282,69.5253 -103.2576,69.5991 -103.1993,69.6156 -103.0983,69.6022 -103.0427,69.58 -103.0053,69.5566 -102.9823,69.5469 -102.9635,69.5393 -102.8626,69.5074 -102.7215,69.4697 -102.5988,69.4416 -102.3817,69.4485 -102.2925,69.4713 -102.2761,69.5054 -102.259,69.5971 -102.2785,69.6071 -102.3041,69.6031 -102.3457,69.6002 -102.374,69.6058 -102.4357,69.6468 -102.4493,69.6704 -102.4263,69.6715 -102.3886,69.6532 -102.3619,69.6476 -102.288,69.6679 -102.1536,69.7191 -102.013,69.8245 -101.9896,69.8244 -101.9303,69.7982 -101.9303,70.2586 -102.0524,70.292 -102.1043,70.3058 -102.1793,70.3252 -102.228,70.3342 -102.2906,70.3461 -102.3779,70.3664 -102.5139,70.4022 -102.6045,70.4555 -102.6157,70.4962 -102.77,70.56 -102.7927,70.5674 -102.8434,70.5784 -102.8797,70.5815 -102.9194,70.5687 -102.9077,70.517 -102.8942,70.4814 -102.8723,70.4661 -102.8234,70.4494 -102.7986,70.4426 -102.735,70.4338 -102.6919,70.4106 -102.7376,70.3971 -102.7806,70.3999 -102.8642,70.4055 -102.8956,70.4117 -102.918,70.4214 -102.9726,70.4555 -103.007,70.477 -103.0326,70.4891 -103.0856,70.5034 -103.1102,70.5039 -103.1656,70.4981 -103.209,70.4948 -103.2488,70.4945 -103.2822,70.499 -103.3231,70.5084 -103.3655,70.5232 -103.4014,70.5468 -103.4967,70.5987 -103.5714,70.6302 -103.6972,70.6488 -103.728,70.6514 -103.7597,70.6609 -103.7869,70.6848 -103.8071,70.7109 -103.8134,70.7368 -103.8402,70.7698 -103.8633,70.7983 -103.8828,70.8191 -103.9937,70.8701 -104.0999,70.8862 -104.2183,70.9201 -104.2506,70.9312 -104.2978,70.9504 -104.3391,70.9688 -104.3657,70.9861 -104.4091,71.0254 -104.384,71.0399 -104.3447,71.0527 -104.3165,71.0615 -104.2858,71.0749 -104.2564,71.089 -104.2309,71.1057 -104.2066,71.128 -104.2002,71.1476 -104.2042,71.1709 -104.2222,71.1871 -104.2535,71.2252 -104.2475,71.2457 -104.2256,71.259 -104.2035,71.267 -104.1576,71.27 -104.1237,71.2649 -104.0977,71.309 -104.1601,71.4144 -104.1372,71.4466 -104.1192,71.4655 -104.1181,71.4868 -104.1335,71.5031 -104.2907,71.6245 -104.4216,71.7237 -104.4479,71.7329 -104.538,71.743 -104.5748,71.7761 -104.5769,71.8027 -104.5804,71.8366 -104.6249,71.8944 -104.6819,71.9383 -104.7705,71.9709 -104.785,72.024 -104.7451,72.0447 -104.718,72.0602 -104.7075,72.0799 -104.7425,72.1071 -104.7752,72.1236 -104.7898,72.1461 -104.8892,72.2481 -104.9096,72.261 -104.9389,72.2732 -104.972,72.2894 -104.99,72.3032 -105.0404,72.3602 -105.0098,72.3622 -104.9731,72.3494 -104.9498,72.3593 -104.9438,72.3857 -104.9785,72.4463 -105.041,72.5346 -105.1027,72.5771 -105.1281,72.5842 -105.1978,72.6036 -105.2488,72.6814 -105.216,72.6801 -105.1761,72.6645 -105.1608,72.6506 -105.143,72.6396 -105.123,72.6318 -105.092,72.6294 -105.0687,72.6415 -105.1902,72.7405 -105.3053,72.815 -105.3718,72.8421 -105.4307,72.8596 -105.4799,72.8716 -105.5029,72.8787 -105.5415,72.8941 -105.5684,72.9158 -105.5717,72.9477 -105.5966,72.9588 -105.6175,72.9601 -105.6512,72.9607 -105.69,72.9551 -105.7786,72.9464 -105.8048,72.9495 -105.9804,72.9876 -106.1377,73.0506 -106.3201,73.1167 -106.3409,73.1179 -106.3808,73.1223 -106.4025,73.1273 -106.4339,73.1387 -106.4713,73.1631 -106.4917,73.1913 -106.5975,73.2119 -106.6187,73.2132 -106.7605,73.1985 -106.8544,73.1396 -106.8268,73.1246 -106.7891,73.1139 -106.7554,73.0911 -106.7808,73.0766 -106.807,73.0755 -106.8426,73.0811 -106.9171,73.0939 -106.9468,73.1031 -106.9862,73.1188 -107.0717,73.1492 -107.1387,73.172 -107.3571,73.2197 -107.4091,73.2245 -107.5052,73.225 -107.6805,73.2493 -107.7241,73.2526 -107.7952,73.2547 -107.8172,73.2509 -107.8869,73.2037 -107.8502,73.1659 -107.8184,73.1488 -107.7857,73.1375 -107.7445,73.1276 -107.6805,73.1154 -107.6394,73.1054 -107.6111,73.0885 -107.6593,73.0877 -107.7584,73.1026 -107.8082,73.1068 -107.8591,73.1085 -107.908,73.1044 -107.9642,73.0888 -108.0029,73.0729 -108.0274,73.0509 -108.0281,73.0219 -107.9985,72.9936 -107.9013,72.9128 -107.8882,72.8732 -107.8491,72.7931 -107.7929,72.6886 -107.7658,72.6224 -107.7653,72.5741 -107.7393,72.5181 -107.6627,72.5019 -107.6205,72.4777 -107.6215,72.4265 -107.6194,72.3278 -107.5868,72.2576 -107.5223,72.1119 -107.5314,72.0884 -107.5248,72.0434 -107.4966,72.0388 -107.4743,72.0413 -107.4358,72.0414 -107.3806,72.0258 -107.3613,71.9904 -107.3943,71.9732 -107.374,71.9283 -107.3513,71.9125 -107.1653,71.8584 -107.0095,71.7941 -107.0385,71.7798 -107.1028,71.7763 -107.1995,71.7621 -107.2434,71.6912 -107.3788,71.6369 -107.4926,71.6298 -107.5452,71.6321 -107.5676,71.6248 -107.5789,71.5836 -107.5247,71.5531 -107.4947,71.5446 -107.4802,71.5262 -107.5025,71.5153 -107.5863,71.5093 -107.6648,71.5302 -107.7157,71.5593 -107.7305,71.5759 -107.7772,71.6065 -107.8138,71.6225 -107.8427,71.6242 -107.8834,71.6174 -107.9325,71.6052 -107.9618,71.6089 -107.986,71.6199 -108.0286,71.6944 -108.0324,71.7652 -107.9795,71.804 -107.9385,71.8345 -107.9368,71.8609 -108.0614,71.8886 -108.1393,71.9427 -108.1423,72.0174 -108.1466,72.0483 -108.1663,72.0601 -108.1926,72.0632 -108.2667,72.1035 -108.4015,72.2445 -108.4042,72.2661 -108.391,72.3067 -108.3811,72.3388 -108.3577,72.3671 -108.3394,72.382 -108.3284,72.4032 -108.358,72.4505 -108.3838,72.4655 -108.4155,72.4767 -108.4519,72.4844 -108.5575,72.4938 -108.5849,72.4731 -108.6123,72.4676 -108.7785,72.4726 -108.7866,72.5071 -108.7674,72.55 -108.788,72.583 -108.9636,72.664 -109.1149,72.673 -109.3926,72.747 -109.4808,72.7836 -109.4581,72.7929 -109.4282,72.7967 -109.3947,72.7989 -109.3584,72.81 -109.3926,72.8269 -109.6509,72.8702 -109.7828,72.8867 -109.8975,72.8982 -110.1214,72.9144 -110.163,72.9164 -110.2414,72.9171 -110.3486,72.9134 -110.4162,72.9076 -110.4383,72.9044 -110.4736,72.8889 -110.4791,72.8649 -110.2868,72.7572 -110.2673,72.7493 -110.217,72.7388 -110.0987,72.7295 -110.059,72.7288 -109.9781,72.7259 -109.9443,72.7208 -109.9084,72.6785 -109.7652,72.6502 -109.5448,72.6305 -109.5082,72.6227 -109.5601,72.5667 -109.5874,72.5686 -109.7268,72.6027 -109.7702,72.6232 -109.8121,72.6298 -109.9135,72.629 -109.9387,72.6227 -110.0162,72.5655 -109.9828,72.5506 -109.9555,72.5479 -109.9133,72.5504 -109.8479,72.5601 -109.8278,72.5592 -109.6861,72.5114 -109.5204,72.4038 -109.5393,72.3959 -109.6336,72.389 -109.7073,72.4113 -109.7396,72.4225 -109.7668,72.4342 -109.8044,72.4501 -109.8329,72.4591 -109.8564,72.463 -109.9568,72.469 -109.9849,72.4628 -109.965,72.4503 -109.7788,72.4079 -109.5676,72.3553 -109.5431,72.3486 -109.5231,72.3357 -109.5512,72.3314 -109.6566,72.3579 -109.6984,72.3634 -109.7356,72.3586 -109.7586,72.3511 -109.79,72.3399 -109.8914,72.3834 -109.9371,72.4087 -109.9561,72.4169 -110.0536,72.4528 -110.0784,72.457 -110.1095,72.4585 -110.1311,72.4552 -110.2612,72.4034 -110.244,72.39 -110.1461,72.3654 -110.0499,72.3327 -110.0868,72.3314 -110.2663,72.37 -110.2875,72.3769 -110.3327,72.3998 -110.3098,72.4168 -110.2611,72.4301 -110.2699,72.4496 -110.4074,72.4769 -110.4424,72.4773 -110.4668,72.4705 -110.562,72.4163 -110.5375,72.3883 -110.5588,72.3823 -110.6037,72.3766 -110.7386,72.3683 -110.8261,72.3054 -110.83,72.283 -110.8479,72.2386 -111.0121,72.2734 -111.0354,72.3075 -111.0061,72.3319 -110.9727,72.3385 -110.9419,72.3568 -110.9622,72.3689 -110.9908,72.3691 -111.0351,72.3651 -111.0837,72.3566 -111.1079,72.3499 -111.3221,72.2796 -111.3444,72.2676 -111.3314,72.2504 -111.3038,72.2415 -111.2538,72.2375 -111.2214,72.2402 -111.1763,72.2504 -111.156,72.2438 -111.1795,72.2324 -111.2389,72.2156 -111.3984,72.18 -111.5905,72.2324 -111.6321,72.2562 -111.5928,72.2767 -111.5451,72.2899 -111.5107,72.2961 -111.4692,72.2984 -111.4081,72.3054 -111.3844,72.3121 -111.2608,72.3531 -111.1853,72.381 -111.0024,72.4764 -110.9357,72.5703 -110.9613,72.626 -111.2634,72.7002 -111.3239,72.7091 -111.3967,72.7158 -111.5122,72.737 -111.676,72.7727 -111.7893,72.7915 -111.8259,72.7962 -111.8694,72.7986 -111.9649,72.7978 -112.0063,72.7992 -112.0802,72.8058 -112.1088,72.8115 -112.1403,72.8263 -112.1722,72.8372 -112.1976,72.844 -112.2335,72.8515 -112.2893,72.8612 -112.3264,72.8655 -112.369,72.8689 -112.434,72.8718 -112.4878,72.876 -112.5151,72.8824 -112.5419,72.8991 -112.7312,72.9107 -112.7523,72.9113 -112.787,72.9092 -112.8725,72.8968 -112.9926,72.8622 -113.0267,72.851 -113.0556,72.8374 -113.111,72.8097 -113.3156,72.6902 -113.3323,72.6664 -113.3143,72.6556 -113.2608,72.6513 -113.1658,72.6465 -113.1393,72.6359 -113.1647,72.5794 -113.1927,72.5679 -113.3839,72.5142 -113.4187,72.5079 -113.4542,72.5145 -113.4355,72.5269 -113.4139,72.5348 -113.3691,72.5495 -113.3457,72.5565 -113.2986,72.5701 -113.2768,72.578 -113.2409,72.6003 -113.2727,72.6005 -113.3135,72.5928 -113.3388,72.5864 -113.3972,72.5693 -113.4342,72.5595 -113.488,72.549 -113.5323,72.5421 -113.5838,72.5384 -113.6124,72.5485 -113.627,72.5624 -113.7157,72.554 -113.788,72.5429 -113.8282,72.5349 -113.8531,72.529 -114.0621,72.4666 -114.1104,72.4583 -114.152,72.4592 -114.2833,72.4638 -114.3216,72.5069 -114.3011,72.5118 -114.2559,72.5179 -114.2201,72.519 -114.1829,72.5246 -114.0901,72.5655 -114.0551,72.5937 -114.0776,72.6456 -113.9534,72.6959 -113.9319,72.6994 -113.8751,72.7006 -113.7919,72.6982 -113.7283,72.7003 -113.6988,72.7225 -113.7662,72.7663 -113.7779,72.7859 -113.7695,72.857 -113.7573,72.907 -113.7214,72.9728 -113.6765,73.021 -113.6797,73.0494 -113.7363,73.1079 -113.7756,73.1349 -113.8294,73.165 -113.8815,73.1908 -113.916,73.2074 -113.9441,73.2194 -113.9927,73.2335 -114.0225,73.2393 -114.0552,73.2443 -114.2221,73.2698 -114.2574,73.2746 -114.2783,73.2764 -114.3829,73.2736 -114.4234,73.2689 -114.527,73.2439 -114.5471,73.2351 -114.5829,73.2246 -114.6105,73.2192 -114.6673,73.2088 -114.7303,73.2012 -114.8183,73.1955 -114.8654,73.1896 -115.0321,73.1628 -115.0623,73.1547 -115.157,73.1252 -115.3258,73.0957 -115.6161,73.0557 -115.8708,73.0263 -115.9174,73.0203 -115.9575,73.012 -116.0343,72.9934 -116.2479,72.9599 -116.2958,72.9545 -116.3747,72.933 -116.4223,72.9191 -116.4903,72.897 -116.5531,72.8807 -116.5775,72.874 -116.6148,72.8661 -116.664,72.8574 -116.842,72.8344 -116.9638,72.8259 -117.0295,72.8235 -117.0682,72.8186 -117.0945,72.8128 -117.1166,72.8054 -117.1352,72.7966 -117.151,72.7785 -117.1965,72.7482 -117.2344,72.7312 -117.3172,72.6993 -117.3481,72.6876 -117.5843,72.6028 -117.6128,72.5939 -117.7984,72.5524 -117.841,72.5451 -117.9228,72.5214 -118.2441,72.4016 -118.2663,72.3864 -118.2867,72.3671 -118.303,72.3418 -118.3053,72.3198 -118.2927,72.2976 -118.2718,72.284 -118.2403,72.2674 -118.2085,72.2563 -118.1644,72.2487 -118.1245,72.2458 -118.0819,72.2447 -118.0431,72.2452 -117.9981,72.2474 -117.9695,72.248 -117.9187,72.2451 -117.8891,72.2397 -117.8565,72.226 -117.84,72.2117 -117.8269,72.1483 -117.8434,72.1283 -117.8769,72.1216 -118.1168,72.0877 -118.1615,72.0853 -118.2728,72.086 -118.3015,72.0813 -118.4111,72.0345 -118.4372,72.0124 -118.4261,71.9866 -118.4468,71.9648 -118.4845,71.9505 -118.5213,71.9414 -118.5621,71.9338 -118.5868,71.9279 -118.6574,71.9001 -118.8099,71.8097 -118.8249,71.7845 -118.8559,71.6793 -118.8465,71.6355 17,-2.0,Greenland -55.5801,73.2613 -55.5299,73.2598 -55.5124,73.2551 -55.5012,73.2478 -55.4907,73.2001 -55.5001,73.1944 -55.5313,73.1872 -55.5492,73.1839 -55.6093,73.1761 -55.6258,73.1774 -55.6694,73.1819 -55.7317,73.2312 -55.6604,73.2583 -55.6474,73.2612 -55.618,73.2619 -55.5801,73.2613 -55.5801,73.2613 27,-2.0,Greenland -55.7069,73.1515 -55.6778,73.1244 -55.6825,73.1146 -55.7063,73.1069 -55.758,73.0999 -55.8108,73.0753 -55.842,73.0471 -55.8386,73.0261 -55.9605,72.9881 -55.9946,72.9838 -55.9797,72.9936 -55.9585,73.0007 -55.9303,73.0126 -55.916,73.0192 -55.9017,73.0372 -55.8888,73.0656 -55.8893,73.0825 -55.9158,73.0872 -55.9226,73.0981 -55.8794,73.13 -55.8684,73.134 -55.8195,73.1502 -55.7934,73.1573 -55.7531,73.1624 -55.7238,73.1606 -55.7069,73.1515 -55.7069,73.1515 30,5.0,Russia 75.9976,73.0726 75.9814,73.0788 75.9368,73.1055 75.9472,73.1149 75.9632,73.1176 76.006,73.116 76.1572,73.1022 76.2652,73.0919 76.3288,73.0895 76.3521,73.0896 76.3941,73.0902 76.4146,73.0916 76.4352,73.0944 76.4565,73.0937 76.4784,73.0907 76.5009,73.085 76.5284,73.073 76.5384,73.0675 76.5479,73.052 76.5312,73.0426 76.5109,73.0387 76.449,73.0338 76.2818,73.0306 76.2177,73.0332 76.1748,73.037 76.1531,73.0403 76.0648,73.057 76.0428,73.0617 75.9976,73.0726 75.9976,73.0726 39,-6.0,Canada -96.5341,73.0832 -96.5176,73.0775 -96.416,73.0379 -96.3658,73.0009 -96.3416,72.9798 -96.3312,72.961 -96.329,72.9496 -96.3377,72.9353 -96.4046,72.8655 -96.4229,72.856 -96.4619,72.8437 -96.5076,72.8356 -96.5296,72.833 -96.5728,72.8285 -96.6793,72.82 -96.7195,72.8228 -96.7323,72.8259 -96.7546,72.8332 -96.7814,72.8427 -96.7959,72.8486 -96.8249,72.8652 -96.853,72.8836 -96.8717,72.9036 -96.901,72.9507 -96.9045,72.9658 -96.9049,72.9771 -96.9033,72.9873 -96.8898,72.9974 -96.8316,73.0385 -96.8215,73.0436 -96.8073,73.0492 -96.7653,73.0611 -96.7088,73.074 -96.6665,73.0813 -96.6101,73.0891 -96.5715,73.0907 -96.5484,73.0895 -96.5341,73.0832 -96.5341,73.0832 23,9.0,Russia 119.707,72.9399 119.6722,72.9334 119.6089,72.9317 119.5165,72.9358 119.3397,73.0196 119.4406,73.0548 119.4581,73.059 119.5385,73.0661 119.6023,73.068 119.646,73.068 119.7056,73.0635 119.7927,73.0539 119.8189,73.0501 119.8412,73.0455 119.8775,73.0362 119.9317,73.0217 119.9498,73.0168 119.9641,73.0115 119.9811,72.9969 119.9203,72.9444 119.8432,72.9369 119.707,72.9399 119.707,72.9399 42,5.0,Russia 73.915,72.9288 73.9921,72.997 74.0027,73.0033 74.041,73.0143 74.0812,73.0192 74.1018,73.0209 74.2244,73.032 74.2449,73.0334 74.3089,73.0314 74.6797,72.9915 74.7019,72.9884 74.7243,72.984 74.7429,72.9784 74.7744,72.964 74.7796,72.9548 74.7613,72.9593 74.7325,72.9707 74.7099,72.9765 74.6443,72.9845 74.6011,72.9881 74.5796,72.9891 74.5593,72.9868 74.5397,72.9827 74.5203,72.976 74.5069,72.9665 74.4604,72.8644 74.4546,72.8429 74.4678,72.8279 74.4881,72.8161 74.5168,72.8047 74.5274,72.7989 74.5039,72.7676 74.4932,72.761 74.4735,72.758 74.4521,72.7601 74.43,72.764 74.2227,72.8123 74.0274,72.8583 73.9236,72.9045 73.9101,72.9193 73.915,72.9288 73.915,72.9288 41,7.0,Russia 78.4848,72.804 78.632,72.8565 78.6798,72.8752 78.7236,72.8937 78.7513,72.9064 78.8266,72.9439 78.9024,72.9808 78.9182,72.9874 78.9389,72.9922 78.9592,72.996 78.98,72.9988 79.001,72.9977 79.0225,72.9942 79.0397,72.9879 79.1793,72.9284 79.1968,72.916 79.348,72.8072 79.3202,72.7915 79.3439,72.7058 79.3887,72.6497 79.3787,72.6329 79.3631,72.6267 79.3428,72.6228 79.2253,72.6025 79.2046,72.6023 79.1838,72.6034 79.1214,72.6129 78.9962,72.6278 78.9551,72.6297 78.8932,72.6294 78.8521,72.6314 78.7396,72.6427 78.6555,72.6562 78.4146,72.7055 78.393,72.7265 78.39,72.751 78.4065,72.7663 78.4183,72.7726 78.4692,72.7975 78.4848,72.804 78.4848,72.804 84,-2.0,Greenland -21.8629,72.5783 -21.9114,72.5814 -21.9559,72.5876 -21.9937,72.5932 -22.2128,72.6061 -22.4429,72.6106 -22.4748,72.608 -22.6176,72.6444 -22.7341,72.7091 -22.8499,72.7386 -22.8927,72.7456 -23.0583,72.7704 -23.0757,72.7729 -23.0978,72.7736 -23.342,72.7721 -23.4092,72.7708 -23.6236,72.7839 -23.6851,72.7948 -23.7558,72.8037 -23.8177,72.8089 -23.971,72.8163 -24.0131,72.817 -24.1107,72.8161 -24.1661,72.8138 -24.2613,72.8048 -24.3126,72.8014 -24.4304,72.7976 -24.4485,72.7972 -24.4689,72.798 -24.4816,72.8001 -24.5077,72.8147 -24.5279,72.8564 -24.5197,72.874 -24.5047,72.8807 -24.4675,72.8862 -24.1151,72.9035 -23.9612,72.9087 -23.8857,72.9084 -23.7344,72.9131 -23.5418,72.9267 -23.3996,72.9442 -23.3286,72.9544 -23.2703,72.9608 -23.2164,72.9647 -23.1471,72.9662 -23.1066,72.9655 -23.0652,72.9632 -23.026,72.9578 -23.0081,72.9544 -22.8862,72.9348 -22.6745,72.9192 -22.494,72.9091 -22.4733,72.9082 -22.4449,72.9058 -22.4135,72.9036 -22.3924,72.9012 -22.251,72.8834 -22.188,72.8747 -22.1272,72.8552 -22.0919,72.8408 -22.0656,72.832 -22.0476,72.828 -22.0337,72.8273 -21.9775,72.8261 -21.925,72.8363 -21.9148,72.8359 -21.8508,72.82 -21.838,72.7957 -21.9554,72.7437 -22.0023,72.7332 -22.0206,72.7297 -22.0799,72.7285 -22.0982,72.726 -22.1356,72.7113 -22.0809,72.6967 -22.0298,72.6911 -21.9958,72.6885 -21.9556,72.6859 -21.9376,72.6826 -21.9076,72.6719 -21.8176,72.6147 -21.8479,72.5822 -21.8629,72.5783 -21.8629,72.5783 28,-2.0,Greenland -55.1711,72.8203 -55.1882,72.8377 -55.2529,72.8644 -55.2726,72.8619 -55.3466,72.8522 -55.3658,72.8509 -55.384,72.8527 -55.4911,72.8728 -55.5484,72.8937 -55.5381,72.9051 -55.5019,72.9199 -55.4631,72.9344 -55.4345,72.9418 -55.4194,72.9448 -55.383,72.9477 -55.3691,72.9466 -55.1022,72.907 -55.0587,72.8976 -55.0005,72.8843 -54.9534,72.8729 -54.9411,72.8677 -54.9395,72.8557 -55.0,72.833 -55.0176,72.8305 -55.0641,72.8257 -55.0854,72.8242 -55.1711,72.8203 -55.1711,72.8203 16,9.0,Russia 121.7193,72.834 121.7074,72.8402 121.73,72.8549 121.7455,72.8614 121.7878,72.8621 121.857,72.8576 121.8802,72.8556 121.9058,72.8513 122.077,72.7965 122.0549,72.7921 122.0315,72.7943 121.9596,72.8023 121.7948,72.8224 121.7705,72.8256 121.7193,72.834 121.7193,72.834 19,9.0,Russia 128.643,72.8089 128.6009,72.8092 128.4944,72.8112 128.469,72.8145 128.4767,72.8267 128.4939,72.8333 128.5304,72.8427 128.5877,72.853 128.6272,72.8572 128.6478,72.8582 128.756,72.8536 128.8127,72.8427 128.8812,72.8265 128.8689,72.8183 128.8492,72.8163 128.7881,72.8133 128.685,72.8097 128.643,72.8089 128.643,72.8089 43,9.0,Russia 122.0196,72.8469 122.0703,72.8434 122.209,72.8255 122.2598,72.817 122.2812,72.8125 122.2985,72.8074 122.4254,72.7856 122.4738,72.7791 122.5205,72.7754 122.6576,72.7654 122.7019,72.7635 122.7653,72.7647 122.8453,72.7709 122.8664,72.771 122.8888,72.7701 122.9311,72.7607 122.9733,72.7516 123.0248,72.7361 123.1536,72.7104 123.303,72.6774 123.2811,72.6707 123.2412,72.6678 123.1581,72.6655 123.0742,72.6642 123.0281,72.6683 123.0028,72.6729 122.9859,72.6779 122.9728,72.6831 122.9386,72.6932 122.8752,72.7073 122.8027,72.7169 122.7366,72.7196 122.6934,72.7201 122.6103,72.7176 122.5701,72.7144 122.503,72.718 122.4555,72.7236 122.4313,72.7267 122.3847,72.7355 122.0267,72.828 122.0068,72.8362 122.0196,72.8469 122.0196,72.8469 20,-2.0,Greenland -24.7178,72.7975 -24.8055,72.7529 -24.8056,72.741 -24.8141,72.6879 -24.8242,72.6828 -24.8364,72.6803 -24.8523,72.6794 -24.9738,72.6869 -24.9938,72.6901 -25.1535,72.7251 -25.1494,72.7541 -25.0953,72.7792 -25.0844,72.7838 -25.0719,72.7855 -24.9225,72.8045 -24.884,72.8073 -24.725,72.8144 -24.7102,72.8057 -24.7178,72.7975 -24.7178,72.7975 22,9.0,Russia 128.8286,72.684 128.7436,72.6859 128.4848,72.6992 128.2467,72.7122 128.0162,72.7113 128.0025,72.713 127.9808,72.7719 128.0658,72.7957 128.1043,72.8012 128.1248,72.8025 128.2096,72.8017 128.2306,72.8014 128.4458,72.794 128.4675,72.7923 128.6007,72.7805 128.8041,72.7559 128.9173,72.7344 128.9851,72.7028 128.9293,72.6902 128.9095,72.6881 128.8286,72.684 128.8286,72.684 23,-6.0,Canada -96.5128,72.6192 -96.5366,72.6221 -96.7207,72.6368 -96.7349,72.6403 -96.7433,72.6477 -96.7753,72.679 -96.6863,72.7381 -96.6758,72.7432 -96.5632,72.7836 -96.5219,72.795 -96.5019,72.7974 -96.4905,72.797 -96.4782,72.7954 -96.4534,72.7856 -96.4573,72.7649 -96.4327,72.7136 -96.4175,72.7066 -96.4073,72.6972 -96.4067,72.687 -96.4942,72.6331 -96.5075,72.628 -96.5128,72.6192 -96.5128,72.6192 17,-2.0,Greenland -55.4241,72.7901 -55.402,72.7917 -55.3793,72.7909 -55.2398,72.7643 -55.2227,72.752 -55.2341,72.7434 -55.2498,72.7396 -55.2668,72.737 -55.334,72.7264 -55.3791,72.7244 -55.4017,72.7248 -55.4192,72.7282 -55.431,72.7349 -55.4721,72.7865 -55.4511,72.7925 -55.4241,72.7901 -55.4241,72.7901 86,-2.0,Greenland -22.2583,72.0168 -22.2776,72.0169 -22.3149,72.0192 -22.4308,72.0324 -22.4889,72.0398 -22.5169,72.0442 -22.6605,72.0733 -22.9184,72.1455 -22.9425,72.1576 -22.9707,72.1832 -22.9898,72.1984 -23.0252,72.2134 -23.107,72.2332 -23.2153,72.2576 -23.4696,72.2986 -23.8175,72.3544 -23.945,72.3773 -23.9453,72.3999 -24.0034,72.439 -24.0363,72.4504 -24.0845,72.4556 -24.1115,72.4538 -24.2887,72.4865 -24.3126,72.5018 -24.4169,72.7358 -24.3373,72.758 -24.2416,72.7689 -24.2038,72.7727 -24.1194,72.7737 -23.9485,72.776 -23.9285,72.7759 -23.8913,72.7748 -23.8709,72.7735 -23.7288,72.7601 -23.5988,72.7444 -23.5513,72.7374 -23.5102,72.7341 -23.4549,72.7364 -23.2936,72.7457 -23.0928,72.7391 -23.0676,72.7305 -23.0213,72.6999 -23.0052,72.6811 -22.9974,72.662 -22.9758,72.6504 -22.904,72.6202 -22.8823,72.6152 -22.7894,72.5958 -22.6739,72.5692 -22.6482,72.5578 -22.6328,72.5368 -22.5558,72.5101 -22.532,72.5059 -22.4105,72.5007 -22.2661,72.472 -22.1289,72.4436 -21.9321,72.3949 -21.8943,72.3843 -21.8757,72.3679 -21.8808,72.3042 -21.9086,72.2929 -21.9375,72.2885 -21.9603,72.2885 -22.0077,72.2915 -22.0405,72.2978 -22.1676,72.3285 -22.2048,72.342 -22.2643,72.3331 -22.3033,72.33 -22.4946,72.3492 -22.5559,72.358 -22.5751,72.3641 -22.6024,72.3698 -22.685,72.35 -22.7063,72.3408 -22.6816,72.2869 -22.6214,72.2631 -22.5149,72.2443 -22.4144,72.2368 -22.0813,72.1752 -22.0749,72.0634 -22.1037,72.0391 -22.1366,72.0297 -22.2245,72.0179 -22.2583,72.0168 -22.2583,72.0168 50,-2.0,Greenland -55.0636,72.7474 -55.0384,72.7484 -55.018,72.7478 -54.9276,72.7342 -54.8562,72.7214 -54.841,72.7182 -54.8316,72.7104 -54.9649,72.6335 -55.0065,72.6195 -55.0236,72.6166 -55.0812,72.6119 -55.0987,72.6082 -55.1116,72.6046 -55.1361,72.595 -55.1519,72.5837 -55.2379,72.529 -55.3459,72.4741 -55.3865,72.4576 -55.3993,72.4548 -55.4169,72.4565 -55.4335,72.4673 -55.4497,72.4878 -55.4078,72.4991 -55.3869,72.5004 -55.3718,72.503 -55.3513,72.5121 -55.366,72.519 -55.4905,72.5299 -55.5349,72.5269 -55.5515,72.5212 -55.5627,72.5163 -55.5796,72.5134 -55.6029,72.513 -55.7011,72.5138 -55.7138,72.5168 -55.689,72.5511 -55.6771,72.5586 -55.5745,72.5717 -55.5473,72.5774 -55.5079,72.5892 -55.4887,72.5978 -55.4691,72.61 -55.4651,72.6246 -55.4753,72.6374 -55.4826,72.6548 -55.4702,72.6595 -55.2671,72.6944 -55.0945,72.7226 -55.0636,72.7474 -55.0636,72.7474 47,9.0,Russia 127.0118,72.5536 127.0141,72.559 127.0535,72.5748 127.0872,72.5879 127.1129,72.5963 127.1607,72.6033 127.1809,72.6047 127.2226,72.6043 127.2442,72.6031 127.267,72.6008 127.2888,72.5994 127.3305,72.5989 127.3786,72.6025 127.4676,72.6235 127.5092,72.6402 127.6108,72.6657 127.8307,72.6821 127.9688,72.6898 127.9914,72.6901 128.2018,72.6885 128.2236,72.6872 128.3794,72.6718 128.5349,72.6559 128.6539,72.6383 128.9166,72.6163 129.0314,72.6067 128.9016,72.5587 128.8759,72.5564 128.8549,72.5562 128.8125,72.5581 128.615,72.5754 128.4385,72.5925 128.3722,72.5993 128.3242,72.6032 128.2008,72.6003 128.0763,72.5779 128.0181,72.5709 127.939,72.5645 127.8581,72.5602 127.698,72.5565 127.677,72.5565 127.6101,72.5629 127.3966,72.5709 127.1145,72.5554 127.0741,72.5532 127.0118,72.5536 127.0118,72.5536 25,-2.0,Greenland -55.5219,72.6712 -55.5729,72.6145 -55.5851,72.6064 -55.6369,72.584 -55.6522,72.5865 -55.7062,72.603 -55.8012,72.5903 -55.827,72.5755 -55.9015,72.5529 -55.9264,72.5537 -56.0349,72.5611 -56.0466,72.5662 -56.0894,72.6069 -56.0776,72.6125 -56.0288,72.6122 -56.0056,72.6133 -55.9669,72.6174 -55.935,72.6234 -55.8388,72.6463 -55.758,72.6662 -55.6179,72.6812 -55.5282,72.6859 -55.5087,72.6762 -55.5219,72.6712 -55.5219,72.6712 16,-2.0,Greenland -54.8136,72.6655 -54.7397,72.6595 -54.7139,72.6546 -54.6899,72.6451 -54.6736,72.6346 -54.6685,72.6209 -54.6745,72.6097 -54.7,72.5981 -54.7249,72.5944 -54.8991,72.5978 -54.917,72.6049 -54.9269,72.6241 -54.8483,72.6659 -54.8339,72.6671 -54.8136,72.6655 -54.8136,72.6655 16,-2.0,Greenland -54.8683,72.5885 -54.8165,72.5774 -54.8201,72.5598 -54.9185,72.5213 -54.9292,72.5177 -54.9423,72.5135 -54.9754,72.5058 -54.9994,72.5037 -55.1251,72.4994 -55.0801,72.5741 -55.0635,72.5803 -54.9884,72.5891 -54.9494,72.5935 -54.9015,72.5924 -54.8683,72.5885 -54.8683,72.5885 41,9.0,Russia 127.7925,72.5349 127.918,72.5402 128.135,72.5603 128.1931,72.5672 128.2289,72.57 128.316,72.574 128.3783,72.5749 128.4229,72.5696 128.4908,72.5609 128.5593,72.5491 128.5832,72.5443 128.5988,72.5387 128.6518,72.5042 128.6625,72.4938 128.6227,72.4902 128.5824,72.4884 128.5436,72.4838 128.5296,72.4794 128.4681,72.4491 128.4537,72.4433 128.4219,72.4365 128.3836,72.4311 128.3449,72.4266 128.3232,72.4279 128.3012,72.4304 128.2665,72.4476 128.2213,72.4539 128.1783,72.4562 128.1582,72.4555 128.1386,72.4531 128.0764,72.4537 128.0542,72.4561 128.0302,72.4608 127.9597,72.4824 127.9279,72.493 127.9123,72.4985 127.8772,72.5151 127.8614,72.5205 127.8416,72.5257 127.7925,72.5349 127.7925,72.5349 101,9.0,Russia 126.3732,72.3322 126.3492,72.3369 126.3469,72.3833 126.3625,72.3966 126.3887,72.4045 126.4174,72.4072 126.4593,72.4073 126.4809,72.4061 126.5222,72.4063 126.5624,72.4085 126.6006,72.4135 126.6532,72.4273 126.7395,72.4539 126.782,72.4683 126.8239,72.4836 126.8592,72.4932 126.8958,72.5004 126.934,72.5063 126.9722,72.5113 127.0124,72.5135 127.1154,72.5154 127.1771,72.5166 127.4212,72.5419 127.4712,72.5454 127.4931,72.5441 127.5378,72.5387 127.6506,72.5251 127.7698,72.5005 127.8353,72.4816 128.263,72.3901 128.4002,72.3672 128.4216,72.366 128.4423,72.3655 128.5624,72.3718 128.6988,72.3787 128.7188,72.3798 128.7787,72.3829 128.7995,72.3827 128.8209,72.381 128.9082,72.3727 128.9298,72.3702 128.9529,72.3663 128.9648,72.3487 128.952,72.3153 129.0135,72.3009 129.0367,72.2959 129.082,72.2884 129.1396,72.2725 129.1775,72.2555 129.1912,72.231 129.1743,72.2194 129.1453,72.2168 129.1234,72.2194 129.1023,72.2211 129.0729,72.2183 129.0169,72.196 129.0482,72.1587 129.0846,72.1557 129.1256,72.1551 129.2174,72.1475 129.2513,72.1257 129.2295,72.1172 129.1787,72.1166 129.15,72.1139 128.9429,72.0385 128.9882,72.0299 129.026,72.0351 129.0816,72.0449 129.1336,72.0422 129.1553,72.0399 129.1786,72.0332 129.082,72.0023 129.054,71.9979 128.9283,71.9872 128.7051,71.9737 128.665,71.9728 128.6041,71.9733 128.4599,71.9784 128.3885,71.9892 128.1743,72.0448 128.199,72.0611 128.2387,72.0737 128.0981,72.1048 127.8945,72.1386 127.7371,72.1901 127.6409,72.2226 127.5745,72.2441 127.3742,72.3078 127.3352,72.3178 127.2917,72.3281 127.2448,72.3364 127.1997,72.3427 127.1566,72.3453 127.1153,72.3453 127.0126,72.3443 126.8881,72.3414 126.7673,72.3367 126.7074,72.3335 126.5014,72.3322 126.3732,72.3322 126.3732,72.3322 62,5.0,Russia 76.6852,72.2473 76.7051,72.2581 76.7619,72.2776 76.8002,72.2893 76.916,72.3207 76.9542,72.3323 77.0115,72.3506 77.0496,72.3633 77.0718,72.376 77.0834,72.3916 77.0856,72.4014 77.0977,72.4232 77.108,72.4324 77.1193,72.4387 77.1303,72.445 77.1452,72.4517 77.1647,72.4581 77.3739,72.5227 77.3937,72.5277 77.4335,72.5332 77.4537,72.5347 77.4951,72.5329 77.6201,72.5226 77.6825,72.5159 77.9744,72.4818 77.9972,72.479 78.0395,72.4699 78.061,72.464 78.1385,72.4344 78.1685,72.4225 78.1955,72.4041 78.2036,72.3889 78.1951,72.3796 78.0071,72.326 77.873,72.3012 77.8141,72.2892 77.7555,72.2737 77.7364,72.2674 77.6759,72.2417 77.6534,72.2292 77.6391,72.217 77.6171,72.2041 77.5976,72.2001 77.5778,72.1988 77.3577,72.187 77.2555,72.1928 77.1947,72.1951 77.0313,72.1931 77.0115,72.1915 76.992,72.189 76.9532,72.1809 76.933,72.1792 76.9132,72.1789 76.8926,72.1796 76.7907,72.1854 76.7498,72.1893 76.7287,72.1926 76.7079,72.1973 76.6796,72.2153 76.6725,72.2305 76.6852,72.2473 76.6852,72.2473 16,-2.0,Greenland -54.9,72.4811 -54.9283,72.4302 -54.9475,72.4261 -55.054,72.4284 -55.0808,72.4298 -55.2119,72.4399 -55.2341,72.4423 -55.2474,72.4465 -55.2322,72.4539 -55.1178,72.4768 -55.1003,72.4803 -55.0521,72.4862 -54.9441,72.4919 -54.9008,72.491 -54.9,72.4811 -54.9,72.4811 15,-5.0,Canada -79.845,72.4195 -79.7277,72.3637 -79.7355,72.351 -79.7478,72.3398 -79.7657,72.3295 -79.7877,72.3211 -79.8025,72.3167 -79.8183,72.314 -79.8309,72.317 -79.9351,72.4125 -79.9395,72.4242 -79.9238,72.4298 -79.8713,72.427 -79.845,72.4195 -79.845,72.4195 21,-5.0,Canada -79.362,72.3541 -79.3511,72.348 -79.3387,72.3429 -79.3124,72.3333 -79.2793,72.3264 -79.2433,72.3183 -79.2541,72.271 -79.2659,72.2634 -79.2806,72.2588 -79.3183,72.2521 -79.3441,72.2496 -79.366,72.2502 -79.3823,72.2526 -79.3919,72.255 -79.4045,72.2603 -79.4196,72.2705 -79.4342,72.2828 -79.4928,72.3336 -79.3908,72.3582 -79.362,72.3541 -79.362,72.3541 23,-5.0,Canada -78.7511,72.3391 -78.6583,72.319 -78.6454,72.3154 -78.5529,72.2776 -78.5453,72.2707 -78.5658,72.2666 -78.6239,72.2685 -78.6427,72.2682 -78.6659,72.2656 -78.6864,72.2623 -78.7011,72.2582 -78.729,72.247 -78.7466,72.24 -78.7619,72.2386 -78.8642,72.2644 -78.8861,72.3095 -78.8798,72.321 -78.8552,72.3297 -78.8124,72.3417 -78.7818,72.3486 -78.761,72.3448 -78.7511,72.3391 -78.7511,72.3391 30,-2.0,Greenland -54.8839,72.2804 -54.878,72.2668 -54.9,72.1973 -54.9902,72.1779 -55.0613,72.1579 -55.0735,72.1539 -55.0848,72.1488 -55.0962,72.1394 -55.1128,72.1225 -55.1491,72.0988 -55.1793,72.084 -55.2134,72.0707 -55.2429,72.0636 -55.3552,72.0454 -55.3748,72.0471 -55.5348,72.082 -55.5463,72.0864 -55.5566,72.0997 -55.5529,72.1102 -55.5182,72.1294 -55.3911,72.1737 -55.3052,72.193 -55.1747,72.2271 -55.0071,72.2735 -54.9673,72.2832 -54.9525,72.2851 -54.9179,72.2876 -54.9005,72.2857 -54.8839,72.2804 -54.8839,72.2804 33,9.0,Russia 126.3732,72.0912 126.3528,72.0913 126.3252,72.1015 126.3345,72.1238 126.3209,72.1442 126.2788,72.1705 126.2549,72.1818 126.2427,72.1872 126.2268,72.1987 126.2225,72.2109 126.2223,72.2236 126.2276,72.2458 126.2372,72.2556 126.2498,72.2615 126.2681,72.2649 126.287,72.2675 126.3075,72.2676 126.3297,72.2651 126.3497,72.2602 126.3617,72.2512 126.3463,72.2409 126.3344,72.234 126.3246,72.2241 126.3439,72.1922 126.3584,72.1819 126.3791,72.1679 126.391,72.1626 126.4108,72.1386 126.4171,72.1234 126.3987,72.1017 126.3911,72.0948 126.3732,72.0912 126.3732,72.0912 18,-6.0,Canada -85.8625,72.1974 -85.8003,72.2004 -85.6594,72.2006 -85.6428,72.1977 -85.6328,72.1926 -85.633,72.1664 -85.6477,72.145 -85.6735,72.1252 -85.6853,72.1218 -85.7042,72.1213 -85.7768,72.14 -85.8013,72.1474 -85.8566,72.1653 -85.8917,72.1801 -85.9037,72.1902 -85.8925,72.1979 -85.8625,72.1974 -85.8625,72.1974 19,-5.0,Canada -74.5304,72.1108 -74.567,72.0883 -74.5858,72.0792 -74.6009,72.0754 -74.6193,72.0717 -74.664,72.0704 -74.7559,72.0746 -74.7694,72.0791 -74.7546,72.0917 -74.7382,72.101 -74.7283,72.1058 -74.7045,72.1146 -74.673,72.1214 -74.6358,72.1268 -74.5974,72.1309 -74.5264,72.1342 -74.4968,72.1283 -74.5304,72.1108 -74.5304,72.1108 15,9.0,Russia 126.7056,71.9042 126.7332,71.8966 126.8423,71.8655 126.8576,71.86 126.8752,71.844 126.8458,71.8086 126.6649,71.8586 126.6491,71.8637 126.6334,71.8722 126.604,71.9274 126.6249,71.9263 126.6434,71.9224 126.6631,71.9172 126.7056,71.9042 126.7056,71.9042 4623,-7.0,Canada -136.369,68.4922 -136.3689,68.4765 -136.3619,68.0464 -136.3599,67.9955 -136.3473,67.6456 -136.3429,67.6441 -136.3455,67.6373 -136.3516,67.6294 -136.3555,67.6191 -136.3595,67.6089 -136.3462,67.6035 -136.3257,67.6012 -136.3021,67.5987 -136.2871,67.5978 -136.2756,67.596 -136.2703,67.594 -136.2617,67.5923 -136.2399,67.5894 -136.232,67.5901 -136.2186,67.5928 -136.2096,67.5923 -136.1979,67.5911 -136.1813,67.5825 -136.1715,67.5802 -136.1553,67.5746 -136.1509,67.5703 -136.145,67.5618 -136.1396,67.5522 -136.1244,67.5443 -136.1141,67.5355 -136.1124,67.5319 -136.1173,67.5194 -136.1023,67.4917 -136.096,67.4843 -136.0987,67.4775 -136.1035,67.4731 -136.1024,67.4718 -136.0878,67.4663 -136.0857,67.4639 -136.0837,67.4614 -136.0904,67.4519 -136.1016,67.4467 -136.1039,67.441 -136.1006,67.4338 -136.0982,67.4243 -136.0922,67.4164 -136.0949,67.4096 -136.1039,67.4019 -136.1105,67.393 -136.1123,67.3884 -136.1178,67.3741 -136.1282,67.3631 -136.1296,67.3596 -136.1203,67.3562 -136.1086,67.3549 -136.0928,67.3528 -136.0895,67.3456 -136.086,67.3431 -136.0683,67.338 -136.0577,67.3339 -136.0462,67.3285 -136.0441,67.3261 -136.0489,67.3217 -136.0616,67.3201 -136.0718,67.3172 -136.0736,67.3126 -136.0665,67.3076 -136.0544,67.2998 -136.0487,67.2913 -136.0374,67.2813 -136.0208,67.2699 -136.0112,67.2635 -136.0105,67.2576 -136.0104,67.2541 -136.0299,67.2389 -136.0411,67.2296 -136.0442,67.2216 -136.0482,67.2114 -136.0502,67.1986 -136.0486,67.191 -136.059,67.1799 -136.0705,67.1736 -136.0853,67.1663 -136.0918,67.1573 -136.0992,67.1461 -136.1268,67.1407 -136.1421,67.1322 -136.1511,67.1246 -136.1417,67.1176 -136.1351,67.1114 -136.1242,67.1084 -136.114,67.1038 -136.111,67.1001 -136.1124,67.0885 -136.1176,67.083 -136.1269,67.0742 -136.1392,67.0656 -136.1394,67.0574 -136.1343,67.0472 -136.13,67.0428 -136.1246,67.0373 -136.1265,67.0246 -136.1293,67.0095 -136.1135,67.004 -136.0928,66.9957 -136.0891,66.9897 -136.0841,66.9795 -136.0773,66.9662 -136.0749,66.9568 -136.055,66.9544 -136.0062,66.9533 -134.93,66.9572 -134.6377,66.9583 -134.5937,66.9571 -134.0954,66.9555 -133.9553,66.9536 -133.8825,66.9554 -133.8524,66.9555 -133.82,66.9543 -133.7853,66.9547 -133.7444,66.9522 -133.7406,66.9508 -133.7532,66.9464 -133.7757,66.9434 -133.8059,66.9368 -133.8388,66.9369 -133.8741,66.9383 -133.9037,66.9393 -133.9366,66.9394 -133.9614,66.9376 -133.9815,66.9332 -134.0026,66.9265 -134.0229,66.9186 -134.0306,66.9086 -134.0256,66.9 -134.0168,66.8965 -133.9875,66.892 -133.9624,66.8819 -133.9421,66.8711 -133.9362,66.8677 -133.9281,66.866 -133.9107,66.8647 -133.8876,66.863 -133.8602,66.861 -133.8458,66.8599 -133.8321,66.8571 -133.8112,66.8509 -133.8018,66.8426 -133.805,66.8358 -133.8031,66.8274 -133.7969,66.8246 -133.7758,66.8189 -133.7649,66.8105 -133.768,66.8072 -133.7621,66.8009 -133.7491,66.7905 -133.7441,66.7825 -133.7083,66.7763 -133.688,66.7689 -133.6782,66.7646 -133.6768,66.7551 -133.6805,66.7413 -133.684,66.731 -133.6884,66.7219 -133.6965,66.7143 -133.7089,66.707 -133.7265,66.7013 -133.7412,66.6954 -133.756,66.6894 -133.759,66.6832 -133.7603,66.6804 -133.7542,66.6776 -133.7439,66.6744 -133.7357,66.6697 -133.7081,66.6623 -133.6951,66.6555 -133.6821,66.6516 -133.6734,66.645 -133.6653,66.6374 -133.6631,66.6296 -133.6794,66.6202 -133.6936,66.6154 -133.7015,66.6113 -133.7034,66.6074 -133.6982,66.6058 -133.6819,66.6028 -133.6681,66.6006 -133.6458,66.5948 -133.6308,66.589 -133.6236,66.5855 -133.615,66.5789 -133.6148,66.5731 -133.6175,66.5644 -133.6111,66.5563 -133.601,66.5497 -133.5907,66.5465 -133.583,66.5442 -133.5504,66.5382 -133.5365,66.5365 -133.518,66.5351 -133.495,66.5216 -133.4887,66.5164 -133.4925,66.5084 -133.5016,66.505 -133.5279,66.4994 -133.5839,66.4902 -133.5913,66.4872 -133.6,66.4844 -133.6053,66.4795 -133.6068,66.4702 -133.6027,66.4634 -133.5952,66.4546 -133.5836,66.442 -133.549,66.4223 -133.5339,66.417 -133.5287,66.4096 -133.5249,66.4022 -133.5276,66.3966 -133.5352,66.393 -133.5453,66.3903 -133.5645,66.3871 -133.5899,66.389 -133.6138,66.3944 -133.6331,66.397 -133.6489,66.3947 -133.6612,66.3904 -133.6758,66.3845 -133.6798,66.3759 -133.6834,66.3621 -133.6833,66.3562 -133.6838,66.3551 -133.6832,66.338 -133.6836,66.331 -133.6902,66.3233 -133.697,66.315 -133.7225,66.2982 -133.727,66.295 -133.7399,66.2924 -133.7473,66.2766 -133.7454,66.2682 -133.7368,66.2617 -133.7154,66.2577 -133.6962,66.255 -133.6703,66.2542 -133.6518,66.2563 -133.6294,66.2605 -133.6024,66.2619 -133.5839,66.2611 -133.5641,66.2596 -133.5407,66.2566 -133.5264,66.2531 -133.5136,66.2492 -133.4958,66.2407 -133.4811,66.232 -133.4765,66.2234 -133.4752,66.2168 -133.4885,66.162 -133.4793,66.1478 -133.4702,66.1424 -133.4662,66.1356 -133.4688,66.1182 -133.4762,66.1117 -133.4939,66.099 -133.5092,66.0914 -133.5381,66.0854 -133.5643,66.0792 -133.5787,66.0733 -133.5907,66.0601 -133.6019,66.0487 -133.6079,66.0268 -133.6089,66.0216 -133.599,66.015 -133.5851,66.0139 -133.5562,66.014 -133.5325,66.0121 -133.5255,66.0116 -133.5204,66.0041 -133.5203,65.9982 -133.5207,65.9912 -133.5306,65.9826 -133.541,65.9728 -133.5425,65.9665 -133.5428,65.963 -133.543,65.9289 -133.5362,65.919 -133.5309,65.9151 -133.518,65.9117 -133.5011,65.908 -133.4853,65.9079 -133.4576,65.9116 -133.4421,65.9139 -133.4202,65.9145 -133.4085,65.9118 -133.399,65.9076 -133.3893,65.9038 -133.3748,65.898 -133.3687,65.8928 -133.3587,65.8896 -133.3446,65.892 -133.3205,65.8942 -133.3089,65.8974 -133.3003,65.9003 -133.282,65.9082 -133.2796,65.9133 -133.2735,65.9199 -133.2736,65.9257 -133.2747,65.9352 -133.2648,65.938 -133.2481,65.9366 -133.2237,65.9364 -133.2112,65.9354 -133.2001,65.9404 -133.1879,65.9476 -133.1801,65.9517 -133.174,65.9553 -133.1557,65.9574 -133.1379,65.9612 -133.1157,65.9653 -133.0996,65.9687 -133.0712,65.9734 -133.064,65.9764 -133.0484,65.9816 -133.0434,65.9829 -133.0331,65.9862 -133.0198,65.9839 -132.9831,65.9792 -132.9634,65.9781 -132.9442,65.9759 -132.9275,65.9746 -132.9042,65.975 -132.8947,65.9766 -132.8783,65.9805 -132.8685,65.9797 -132.8574,65.9788 -132.8391,65.9719 -132.8289,65.9664 -132.8231,65.9635 -132.829,65.9576 -132.8294,65.9511 -132.8333,65.9432 -132.8404,65.935 -132.8461,65.9237 -132.8561,65.9151 -132.8673,65.9101 -132.8817,65.9043 -132.8924,65.8945 -132.9041,65.8884 -132.9102,65.8819 -132.9097,65.8772 -132.9036,65.8719 -132.8984,65.868 -132.8771,65.8644 -132.8536,65.8625 -132.8301,65.8634 -132.8066,65.8644 -132.7899,65.8689 -132.7536,65.8694 -132.7395,65.8717 -132.7267,65.8742 -132.7216,65.8844 -132.7153,65.8968 -132.7095,65.9081 -132.7099,65.9187 -132.6982,65.9248 -132.6825,65.9329 -132.673,65.9344 -132.648,65.9382 -132.6382,65.9403 -132.6231,65.9473 -132.6112,65.9593 -132.5994,65.9653 -132.5826,65.9698 -132.5686,65.9745 -132.5524,65.9778 -132.5368,65.98 -132.5129,65.9815 -132.4961,65.983 -132.4796,65.9787 -132.4619,65.9736 -132.4556,65.969 -132.4445,65.9597 -132.4435,65.9561 -132.4321,65.9445 -132.4212,65.9377 -132.4122,65.9328 -132.4062,65.9276 -132.3976,65.9274 -132.3846,65.9357 -132.374,65.9395 -132.3633,65.9433 -132.3477,65.9455 -132.3383,65.9441 -132.3245,65.9429 -132.3099,65.9457 -132.2955,65.9457 -132.2827,65.9451 -132.2705,65.9464 -132.2574,65.9465 -132.2533,65.9461 -132.2455,65.9443 -132.2453,65.9419 -132.2511,65.9365 -132.2602,65.9302 -132.2626,65.9257 -132.2481,65.9173 -132.2389,65.913 -132.2382,65.9088 -132.2403,65.9049 -132.2445,65.9023 -132.2617,65.9026 -132.2874,65.9031 -132.3206,65.8895 -132.3364,65.8814 -132.3418,65.8766 -132.3573,65.8744 -132.3812,65.8729 -132.3915,65.8726 -132.4302,65.8618 -132.432,65.8584 -132.4403,65.8562 -132.4538,65.8497 -132.46,65.8432 -132.4719,65.8342 -132.4832,65.8234 -132.4896,65.811 -132.4915,65.8017 -132.4889,65.7956 -132.4821,65.792 -132.4708,65.7887 -132.45,65.7845 -132.436,65.781 -132.4151,65.7768 -132.4018,65.7721 -132.3966,65.7681 -132.3883,65.7621 -132.3758,65.7557 -132.3605,65.752 -132.3208,65.7426 -132.2979,65.7341 -132.2877,65.7262 -132.2726,65.7166 -132.2563,65.7039 -132.2314,65.6911 -132.2221,65.6814 -132.2082,65.6725 -132.1979,65.6675 -132.1944,65.666 -132.1968,65.6615 -132.1999,65.6582 -132.2071,65.6553 -132.2131,65.6494 -132.2094,65.6455 -132.2106,65.6432 -132.1536,65.6264 -132.1442,65.6226 -132.1412,65.62 -132.138,65.6179 -132.1374,65.6137 -132.1324,65.6015 -132.1287,65.5893 -132.1138,65.5851 -132.1052,65.5743 -132.0932,65.5673 -132.0833,65.5617 -132.0838,65.5552 -132.0851,65.55 -132.092,65.5424 -132.1043,65.5352 -132.1249,65.5176 -132.1412,65.5138 -132.1546,65.5126 -132.1702,65.5046 -132.1798,65.4971 -132.1844,65.4881 -132.2002,65.4742 -132.2095,65.4591 -132.2217,65.4519 -132.2309,65.4451 -132.23,65.4415 -132.2287,65.4384 -132.2311,65.4339 -132.2285,65.4278 -132.2291,65.4266 -132.2358,65.4219 -132.2405,65.4129 -132.2402,65.4052 -132.2385,65.4003 -132.2351,65.3959 -132.2404,65.3911 -132.2524,65.3898 -132.2638,65.3896 -132.275,65.3871 -132.2801,65.3828 -132.2847,65.3738 -132.3011,65.3694 -132.317,65.3661 -132.3292,65.3589 -132.3424,65.3524 -132.3479,65.3499 -132.3729,65.3457 -132.3867,65.3404 -132.3976,65.3355 -132.4108,65.3319 -132.4314,65.3302 -132.4381,65.3226 -132.4438,65.3113 -132.453,65.3015 -132.4625,65.2882 -132.4708,65.283 -132.4655,65.2767 -132.4651,65.2719 -132.4653,65.266 -132.4627,65.2599 -132.4664,65.2526 -132.4703,65.2476 -132.4723,65.2437 -132.4821,65.241 -132.4908,65.2406 -132.5051,65.2401 -132.5148,65.2403 -132.5348,65.2397 -132.5405,65.2397 -132.5551,65.2386 -132.5665,65.2355 -132.5703,65.2334 -132.5756,65.2257 -132.5811,65.2232 -132.5893,65.218 -132.598,65.2147 -132.607,65.2107 -132.6094,65.2086 -132.6106,65.2063 -132.61,65.2045 -132.6064,65.1977 -132.6081,65.1943 -132.6152,65.1914 -132.6203,65.1895 -132.6249,65.1887 -132.6349,65.1884 -132.6467,65.19 -132.6626,65.192 -132.6736,65.1924 -132.6799,65.1912 -132.6847,65.1898 -132.6929,65.1876 -132.6932,65.1841 -132.6897,65.1826 -132.6843,65.1821 -132.6773,65.1821 -132.6663,65.1817 -132.6625,65.1808 -132.6551,65.1761 -132.6438,65.1704 -132.6318,65.1664 -132.6265,65.16 -132.6255,65.1564 -132.629,65.1549 -132.649,65.1543 -132.6522,65.1534 -132.6662,65.1535 -132.6851,65.1492 -132.6911,65.1486 -132.7059,65.1469 -132.7006,65.1435 -132.7004,65.1411 -132.691,65.1374 -132.6814,65.1342 -132.6723,65.1299 -132.6665,65.1246 -132.659,65.1199 -132.6469,65.1188 -132.6416,65.1183 -132.6308,65.1174 -132.6207,65.1153 -132.6107,65.1156 -132.6066,65.1182 -132.599,65.1223 -132.5957,65.129 -132.5902,65.1315 -132.5741,65.1301 -132.5548,65.1296 -132.5397,65.1318 -132.5234,65.1362 -132.5114,65.1434 -132.501,65.1502 -132.4945,65.1519 -132.4902,65.1522 -132.4808,65.1513 -132.4682,65.1484 -132.4672,65.1478 -132.4635,65.1439 -132.4574,65.1392 -132.4508,65.1357 -132.4436,65.1333 -132.4335,65.1283 -132.4322,65.1252 -132.4297,65.1191 -132.4352,65.1137 -132.4421,65.1084 -132.4439,65.0991 -132.4505,65.0944 -132.4665,65.0876 -132.4741,65.0836 -132.4801,65.08 -132.4827,65.0749 -132.4793,65.0705 -132.4738,65.0647 -132.4723,65.0622 -132.4651,65.0598 -132.4632,65.0578 -132.459,65.0551 -132.4596,65.054 -132.455,65.0465 -132.4478,65.0441 -132.4379,65.0414 -132.4305,65.0396 -132.4179,65.0397 -132.406,65.041 -132.3972,65.0419 -132.3798,65.0404 -132.3589,65.0403 -132.3396,65.0397 -132.3201,65.0368 -132.3094,65.0388 -132.3045,65.0401 -132.2964,65.0423 -132.2872,65.0438 -132.2744,65.0415 -132.2718,65.0383 -132.2672,65.0338 -132.2534,65.0278 -132.2476,65.0255 -132.2488,65.0233 -132.2556,65.018 -132.2574,65.0146 -132.2549,65.0085 -132.2529,65.0042 -132.2569,64.9963 -132.2602,64.9925 -132.2638,64.9881 -132.3118,64.9759 -132.3254,64.9712 -132.33,64.9675 -132.3345,64.9614 -132.3429,64.9557 -132.3428,64.95 -132.3427,64.9451 -132.3476,64.9408 -132.3475,64.9355 -132.3545,64.9326 -132.365,64.9312 -132.3778,64.9306 -132.3896,64.9293 -132.3974,64.9276 -132.4084,64.9251 -132.4143,64.9244 -132.426,64.9149 -132.4313,64.9071 -132.4333,64.9002 -132.4292,64.8945 -132.4227,64.8881 -132.399,64.88 -132.398,64.8682 -132.3797,64.863 -132.3804,64.8589 -132.394,64.8484 -132.3975,64.8357 -132.4024,64.8314 -132.4553,64.8226 -132.463,64.821 -132.4909,64.8011 -132.5218,64.7944 -132.5336,64.7931 -132.5443,64.7853 -132.5468,64.7831 -132.5296,64.7704 -132.5177,64.7664 -132.5096,64.7633 -132.4877,64.7572 -132.4837,64.7569 -132.4848,64.7546 -132.486,64.7524 -132.4908,64.7481 -132.4915,64.7411 -132.4862,64.7324 -132.4767,64.7291 -132.4736,64.7271 -132.4657,64.7264 -132.4611,64.7272 -132.4521,64.7287 -132.4458,64.7358 -132.4409,64.7401 -132.4361,64.7414 -132.4284,64.7431 -132.4114,64.7439 -132.3875,64.7447 -132.3623,64.7371 -132.3447,64.7337 -132.3319,64.7343 -132.3101,64.7394 -132.2965,64.7417 -132.2783,64.7394 -132.2693,64.738 -132.2675,64.7361 -132.2537,64.7278 -132.2104,64.7096 -132.1883,64.707 -132.1743,64.7046 -132.1461,64.6949 -132.139,64.6924 -132.1339,64.689 -132.1324,64.6865 -132.1315,64.6829 -132.1287,64.6803 -132.1253,64.6788 -132.1172,64.6757 -132.1112,64.6739 -132.1021,64.6702 -132.0953,64.6672 -132.0884,64.6618 -132.0742,64.6599 -132.0603,64.6574 -132.0477,64.6551 -132.0353,64.6551 -132.0087,64.6585 -131.999,64.6588 -131.995,64.6584 -131.9864,64.6564 -131.9751,64.6542 -131.9688,64.653 -131.9608,64.6499 -131.9543,64.6463 -131.9506,64.6347 -131.9443,64.6283 -131.9421,64.6245 -131.9365,64.6193 -131.9333,64.6148 -131.93,64.6049 -131.9259,64.6025 -131.9054,64.5756 -131.9056,64.562 -131.8822,64.5506 -131.8603,64.542 -131.8425,64.5346 -131.8372,64.5169 -131.781,64.51 -131.7699,64.5019 -131.7865,64.4928 -131.7796,64.4859 -131.6835,64.4977 -131.6217,64.4792 -131.6343,64.469 -131.6215,64.443 -131.6642,64.43 -131.6866,64.4113 -131.7306,64.4012 -131.7656,64.3799 -131.7635,64.3544 -131.7959,64.3423 -131.7869,64.331 -131.7499,64.3269 -131.7146,64.3332 -131.665,64.3317 -131.643,64.3367 -131.5987,64.3317 -131.5702,64.3162 -131.5428,64.3172 -131.5063,64.3356 -131.4681,64.336 -131.4536,64.3494 -131.3906,64.349 -131.3805,64.3862 -131.3539,64.4036 -131.3378,64.4066 -131.3088,64.3971 -131.2484,64.4024 -131.2054,64.4002 -131.1582,64.3742 -131.0851,64.367 -131.0628,64.3418 -131.0159,64.3157 -131.0339,64.3097 -131.0486,64.3038 -130.9777,64.2784 -130.985,64.2717 -131.0198,64.2566 -131.0277,64.2288 -131.0144,64.2299 -131.001,64.2311 -130.987,64.2157 -130.9783,64.2195 -130.9817,64.2268 -130.921,64.2079 -130.8805,64.1647 -130.9058,64.152 -130.8938,64.1409 -130.8466,64.1511 -130.8054,64.129 -130.8667,64.1041 -130.9059,64.0992 -130.9212,64.0798 -130.8913,64.0749 -130.902,64.0604 -130.8722,64.0554 -130.8443,64.0548 -130.8411,64.04 -130.8239,64.0325 -130.824,64.0099 -130.8314,63.9957 -130.8195,63.9922 -130.7917,63.9916 -130.7612,64.0002 -130.6792,63.9937 -130.682,63.9845 -130.7079,63.9732 -130.7179,63.9648 -130.7255,63.95 -130.7246,63.9456 -130.7193,63.9401 -130.7081,63.9332 -130.7029,63.9292 -130.6959,63.9241 -130.6882,63.9194 -130.6763,63.9165 -130.6644,63.9141 -130.6589,63.9119 -130.6537,63.9092 -130.6443,63.9041 -130.6354,63.9012 -130.6295,63.9005 -130.6202,63.9002 -130.606,63.9005 -130.5926,63.9008 -130.5854,63.8998 -130.5752,63.898 -130.5697,63.896 -130.5552,63.8895 -130.5467,63.8855 -130.5407,63.8822 -130.5322,63.8786 -130.5237,63.8757 -130.5198,63.8743 -130.5148,63.8732 -130.5122,63.8732 -130.5047,63.8744 -130.496,63.877 -130.4886,63.8799 -130.4798,63.8812 -130.4736,63.8814 -130.4668,63.8811 -130.4592,63.8791 -130.4549,63.8764 -130.4489,63.872 -130.4425,63.868 -130.4366,63.8666 -130.4244,63.8643 -130.4155,63.8617 -130.4045,63.8581 -130.3934,63.8534 -130.3866,63.8498 -130.3747,63.8449 -130.3687,63.8412 -130.3636,63.8374 -130.3593,63.8341 -130.3541,63.8297 -130.349,63.8253 -130.3378,63.816 -130.328,63.8105 -130.3183,63.8072 -130.3128,63.8051 -130.3068,63.802 -130.3042,63.799 -130.3003,63.7935 -130.2977,63.7887 -130.2963,63.7836 -130.2928,63.7796 -130.2894,63.7777 -130.2831,63.7756 -130.2789,63.7747 -130.2759,63.7743 -130.2709,63.7751 -130.2647,63.7766 -130.259,63.7805 -130.2532,63.7826 -130.2474,63.7844 -130.2382,63.7859 -130.2266,63.7871 -130.2158,63.789 -130.2054,63.7907 -130.1971,63.7926 -130.1913,63.7949 -130.1868,63.798 -130.1831,63.8016 -130.1836,63.8052 -130.1845,63.8084 -130.1863,63.8117 -130.1859,63.8146 -130.1843,63.8178 -130.1823,63.82 -130.179,63.8213 -130.1757,63.8228 -130.1698,63.8232 -130.1652,63.8228 -130.1573,63.8214 -130.1417,63.8167 -130.1336,63.813 -130.1269,63.8116 -130.1202,63.8113 -130.1127,63.812 -130.1019,63.8147 -130.0952,63.8156 -130.0881,63.816 -130.0869,63.8157 -130.0789,63.8155 -130.0743,63.8131 -130.0696,63.8113 -130.0671,63.8091 -130.0645,63.8069 -130.0645,63.8047 -130.064,63.803 -130.0656,63.799 -130.0713,63.7949 -130.0763,63.7903 -130.0786,63.7855 -130.0802,63.7814 -130.0826,63.7759 -130.0816,63.7696 -130.079,63.7652 -130.0752,63.76 -130.0684,63.7549 -130.065,63.7523 -130.057,63.7502 -130.0519,63.748 -130.0465,63.7454 -130.043,63.7421 -130.0416,63.7351 -130.0403,63.7298 -130.0402,63.725 -130.0426,63.7209 -130.045,63.717 -130.0474,63.7139 -130.0527,63.7085 -130.0589,63.7052 -130.0672,63.7025 -130.0788,63.701 -130.1034,63.7016 -130.1172,63.7031 -130.1297,63.7047 -130.1377,63.7053 -130.1435,63.7046 -130.1489,63.7034 -130.1513,63.7001 -130.1516,63.6953 -130.1531,63.6887 -130.1513,63.6843 -130.152,63.6796 -130.1536,63.6771 -130.1552,63.675 -130.1577,63.6735 -130.1614,63.6724 -130.171,63.6716 -130.1951,63.67 -130.2204,63.6695 -130.2366,63.6687 -130.2499,63.6679 -130.2557,63.6671 -130.2599,63.6662 -130.2656,63.6639 -130.2697,63.6606 -130.2704,63.6561 -130.2686,63.6508 -130.2667,63.6449 -130.2603,63.6381 -130.2523,63.633 -130.2403,63.6233 -130.2344,63.6196 -130.2222,63.6129 -130.2151,63.61 -130.2071,63.608 -130.2009,63.6069 -130.1938,63.607 -130.1813,63.6067 -130.1726,63.6071 -130.1652,63.6093 -130.1545,63.6123 -130.1356,63.622 -130.1258,63.6268 -130.1151,63.6326 -130.1039,63.6356 -130.0945,63.6382 -130.0837,63.6412 -130.0692,63.6439 -130.0593,63.6449 -130.0489,63.6442 -130.0314,63.6428 -130.028,63.6422 -130.0255,63.64 -130.0246,63.6371 -130.0253,63.6334 -130.0286,63.6301 -130.0344,63.6267 -130.0409,63.6239 -130.0467,63.6211 -130.0516,63.6185 -130.0557,63.617 -130.0595,63.6154 -130.0611,63.6141 -130.0619,63.6115 -130.0626,63.6096 -130.0617,63.6063 -130.055,63.6015 -130.0508,63.5986 -130.0449,63.5948 -130.0411,63.5909 -130.0372,63.5852 -130.0296,63.5775 -130.0237,63.5722 -130.0177,63.5659 -130.0135,63.5623 -130.0044,63.5597 -130.0002,63.5594 -129.9919,63.559 -129.9828,63.5602 -129.9712,63.5624 -129.963,63.5639 -129.9547,63.5654 -129.9464,63.5662 -129.9423,63.5664 -129.9357,63.5664 -129.9315,63.5652 -129.93,63.5626 -129.9285,63.5602 -129.9276,63.5572 -129.9271,63.5524 -129.9294,63.5421 -129.93,63.5386 -129.9302,63.5334 -129.9303,63.5318 -129.93,63.5294 -129.9275,63.5257 -129.9233,63.5231 -129.9092,63.5202 -129.8905,63.5175 -129.8776,63.515 -129.8681,63.5132 -129.8606,63.5113 -129.8514,63.5081 -129.8464,63.5051 -129.8402,63.5011 -129.836,63.4968 -129.8314,63.493 -129.8292,63.4884 -129.8292,63.4854 -129.83,63.4819 -129.8308,63.479 -129.8286,63.4746 -129.8216,63.4724 -129.8149,63.47 -129.8099,63.4674 -129.8066,63.465 -129.8028,63.4599 -129.8011,63.4532 -129.7927,63.4466 -129.7819,63.4393 -129.7761,63.4347 -129.7727,63.4303 -129.7656,63.4244 -129.7594,63.4207 -129.7495,63.417 -129.7437,63.4146 -129.7374,63.4121 -129.7341,63.4101 -129.7316,63.4075 -129.7299,63.4049 -129.7307,63.4031 -129.7328,63.4018 -129.7369,63.4005 -129.7439,63.3999 -129.7596,63.4041 -129.7745,63.4092 -129.7878,63.4125 -129.8026,63.415 -129.8113,63.4167 -129.8208,63.4174 -129.8278,63.4174 -129.8365,63.4162 -129.8406,63.4133 -129.845,63.4087 -129.8475,63.4053 -129.8482,63.3994 -129.8498,63.3946 -129.8514,63.3913 -129.8526,63.3874 -129.8595,63.3835 -129.8656,63.3804 -129.8689,63.3774 -129.8697,63.3735 -129.8638,63.368 -129.8551,63.3621 -129.8492,63.3574 -129.8426,63.3515 -129.8355,63.346 -129.8313,63.3427 -129.8288,63.3393 -129.8255,63.3355 -129.8246,63.3307 -129.8246,63.3287 -129.8262,63.325 -129.8302,63.3227 -129.836,63.3209 -129.8425,63.319 -129.8536,63.3179 -129.8639,63.3162 -129.8679,63.3143 -129.8703,63.311 -129.8732,63.3075 -129.8752,63.3053 -129.8793,63.3034 -129.8842,63.3019 -129.894,63.3008 -129.9158,63.2998 -129.924,63.299 -129.93,63.2979 -129.9359,63.2968 -129.9465,63.2939 -129.9547,63.291 -129.9604,63.288 -129.9706,63.288 -129.9817,63.2886 -129.9887,63.2892 -129.9941,63.2884 -129.9994,63.2869 -130.0067,63.2812 -130.0078,63.2777 -130.0094,63.274 -130.0114,63.2716 -130.0146,63.269 -130.017,63.2658 -130.0223,63.2638 -130.0342,63.2617 -130.0481,63.262 -130.0563,63.262 -130.0654,63.2615 -130.0739,63.2598 -130.0796,63.258 -130.0837,63.2541 -130.0869,63.2498 -130.0863,63.2421 -130.0878,63.2373 -130.0869,63.2328 -130.0851,63.2268 -130.0842,63.2223 -130.0849,63.2181 -130.0865,63.2155 -130.0909,63.2112 -130.0949,63.2086 -130.1027,63.2064 -130.1075,63.2042 -130.1116,63.2019 -130.1124,63.2003 -130.1123,63.1984 -130.1106,63.1969 -130.1073,63.1962 -130.1,63.1955 -130.0844,63.1956 -130.0701,63.1977 -130.0554,63.2 -130.044,63.2015 -130.0342,63.203 -130.0248,63.2042 -130.0166,63.2049 -130.0072,63.2052 -129.9957,63.2046 -129.9854,63.2032 -129.9789,63.2014 -129.971,63.1974 -129.9627,63.1926 -129.9557,63.1862 -129.951,63.1794 -129.9493,63.1731 -129.9463,63.1666 -129.943,63.1626 -129.9384,63.1604 -129.9351,63.1573 -129.9317,63.1495 -129.93,63.1464 -129.9307,63.1409 -129.9307,63.1368 -129.9306,63.1346 -129.93,63.1318 -129.93,63.1309 -129.9264,63.1289 -129.9231,63.1282 -129.9182,63.1282 -129.9142,63.1286 -129.9085,63.1319 -129.9004,63.1378 -129.898,63.1395 -129.8907,63.1412 -129.885,63.1434 -129.8777,63.1479 -129.8712,63.151 -129.8675,63.151 -129.8601,63.15 -129.8552,63.1487 -129.8519,63.1457 -129.8469,63.141 -129.8436,63.1376 -129.8362,63.1364 -129.8289,63.1349 -129.8244,63.1336 -129.8219,63.1329 -129.8194,63.1311 -129.8194,63.1292 -129.8218,63.1259 -129.8234,63.1226 -129.8242,63.1196 -129.8217,63.1163 -129.8167,63.1137 -129.8113,63.1079 -129.8064,63.1031 -129.8039,63.0986 -129.8038,63.0935 -129.8038,63.0889 -129.8021,63.0841 -129.8008,63.0811 -129.7979,63.078 -129.795,63.0762 -129.7897,63.0738 -129.7831,63.0716 -129.779,63.0701 -129.7737,63.0686 -129.7688,63.0657 -129.768,63.064 -129.7687,63.0596 -129.776,63.0517 -129.7796,63.045 -129.7831,63.0384 -129.7823,63.0358 -129.775,63.0351 -129.7607,63.0344 -129.7419,63.0337 -129.7269,63.0322 -129.7208,63.0308 -129.7166,63.0278 -129.715,63.0241 -129.7121,63.0212 -129.7096,63.0193 -129.7015,63.0186 -129.6925,63.0186 -129.686,63.0192 -129.6787,63.0196 -129.6596,63.0193 -129.6445,63.0189 -129.6307,63.0189 -129.6213,63.0199 -129.6164,63.0206 -129.6022,63.0236 -129.5908,63.0254 -129.5855,63.0275 -129.579,63.029 -129.5709,63.0305 -129.5636,63.0301 -129.557,63.0288 -129.5542,63.027 -129.5509,63.024 -129.5493,63.0198 -129.5476,63.0142 -129.5451,63.0082 -129.5402,63.0022 -129.5349,62.9967 -129.5333,62.993 -129.5341,62.9897 -129.5365,62.986 -129.5438,62.9812 -129.558,62.976 -129.5694,62.9716 -129.5783,62.966 -129.5872,62.9616 -129.5961,62.9537 -129.5993,62.9488 -129.6017,62.9437 -129.6037,62.937 -129.6029,62.9326 -129.6016,62.9276 -129.6,62.9236 -129.5987,62.9201 -129.5979,62.918 -129.5979,62.9156 -129.6003,62.9138 -129.6056,62.9114 -129.6197,62.9066 -129.623,62.9053 -129.6262,62.9032 -129.6274,62.9016 -129.6282,62.8975 -129.6298,62.8931 -129.633,62.8883 -129.6386,62.8818 -129.6495,62.8761 -129.656,62.872 -129.6624,62.8683 -129.6681,62.8655 -129.6684,62.8611 -129.6635,62.8563 -129.6586,62.8526 -129.6517,62.8478 -129.6444,62.8441 -129.6395,62.8412 -129.6363,62.839 -129.6355,62.8364 -129.6338,62.8347 -129.637,62.8325 -129.6403,62.8308 -129.6475,62.8308 -129.6597,62.8319 -129.6718,62.8343 -129.68,62.8361 -129.6848,62.8369 -129.6885,62.8372 -129.6966,62.8372 -129.7006,62.8365 -129.703,62.8342 -129.7054,62.83 -129.7069,62.8224 -129.7069,62.8173 -129.7044,62.8114 -129.6995,62.808 -129.6926,62.8007 -129.6885,62.7955 -129.6836,62.7907 -129.6755,62.7859 -129.665,62.7819 -129.6568,62.7793 -129.6492,62.7768 -129.6435,62.7755 -129.6382,62.7734 -129.6301,62.7724 -129.6253,62.769 -129.622,62.7657 -129.6212,62.7624 -129.6212,62.7583 -129.6203,62.7535 -129.6171,62.751 -129.609,62.748 -129.6009,62.7443 -129.5968,62.7395 -129.596,62.7362 -129.5944,62.7318 -129.5911,62.7277 -129.5855,62.7233 -129.5806,62.7193 -129.5754,62.7159 -129.5697,62.7126 -129.5648,62.7108 -129.5608,62.7082 -129.5584,62.7056 -129.5584,62.7029 -129.5624,62.7014 -129.5676,62.6999 -129.5724,62.699 -129.5797,62.6975 -129.5805,62.6949 -129.5752,62.6918 -129.5696,62.6888 -129.5635,62.6851 -129.5587,62.6814 -129.5562,62.6778 -129.5526,62.6698 -129.5493,62.6632 -129.5469,62.6595 -129.5408,62.6543 -129.5344,62.6488 -129.5304,62.646 -129.5235,62.6453 -129.5147,62.646 -129.5058,62.6468 -129.497,62.6459 -129.4914,62.6448 -129.4869,62.6424 -129.4841,62.6366 -129.4817,62.6322 -129.4785,62.6282 -129.4688,62.6271 -129.4592,62.6256 -129.4519,62.6243 -129.4491,62.623 -129.4463,62.621 -129.4431,62.6188 -129.4423,62.6156 -129.4423,62.6125 -129.4451,62.6106 -129.4499,62.6086 -129.4563,62.6064 -129.4619,62.6045 -129.4684,62.6021 -129.4668,62.599 -129.4619,62.5953 -129.4507,62.5918 -129.4406,62.5883 -129.4338,62.5857 -129.4298,62.5839 -129.4254,62.5822 -129.4218,62.5794 -129.4194,62.5768 -129.4186,62.5743 -129.4214,62.5682 -129.4238,62.5623 -129.4262,62.5586 -129.433,62.5549 -129.439,62.5517 -129.4454,62.549 -129.4522,62.5477 -129.4611,62.5458 -129.4643,62.5451 -129.4711,62.5429 -129.4759,62.5406 -129.4815,62.5369 -129.4839,62.5336 -129.4855,62.5299 -129.4855,62.5255 -129.4838,62.5222 -129.4814,62.5189 -129.479,62.5166 -129.475,62.5152 -129.4702,62.5137 -129.4638,62.5122 -129.4526,62.5126 -129.4342,62.518 -129.4286,62.5209 -129.4238,62.5231 -129.4198,62.5261 -129.4158,62.5301 -129.413,62.5333 -129.4098,62.5355 -129.4034,62.5381 -129.3969,62.5388 -129.3897,62.5388 -129.3769,62.5384 -129.3629,62.536 -129.3517,62.5327 -129.3397,62.5268 -129.3277,62.5205 -129.3181,62.5142 -129.3081,62.5063 -129.2993,62.5004 -129.2902,62.4937 -129.285,62.4908 -129.273,62.4867 -129.2642,62.4834 -129.2538,62.4808 -129.247,62.4789 -129.2394,62.4778 -129.2295,62.4763 -129.2207,62.4748 -129.2107,62.4733 -129.1911,62.4716 -129.1783,62.4694 -129.1724,62.4659 -129.1624,62.4611 -129.1545,62.4559 -129.1489,62.4522 -129.1409,62.4485 -129.1286,62.4457 -129.1242,62.4436 -129.1211,62.4407 -129.1175,62.4362 -129.1151,62.4318 -129.1136,62.4288 -129.1112,62.4261 -129.1093,62.4222 -129.1093,62.42 -129.1125,62.4179 -129.1185,62.4159 -129.1265,62.413 -129.1361,62.4108 -129.1425,62.4095 -129.1505,62.4069 -129.1581,62.4062 -129.174,62.4068 -129.1892,62.4072 -129.1956,62.4068 -129.2036,62.4057 -129.2084,62.4046 -129.2144,62.4024 -129.2156,62.4 -129.2172,62.3958 -129.2164,62.3921 -129.2156,62.3891 -129.2117,62.3873 -129.2085,62.3858 -129.2057,62.3841 -129.2073,62.3825 -129.2221,62.3773 -129.2277,62.3747 -129.2341,62.3725 -129.2353,62.3716 -129.2393,62.3687 -129.2409,62.3661 -129.2417,62.3628 -129.2405,62.36 -129.237,62.3576 -129.2354,62.3535 -129.233,62.3495 -129.2283,62.345 -129.2215,62.3411 -129.2116,62.3385 -129.1949,62.3367 -129.1786,62.334 -129.1726,62.3322 -129.1619,62.3285 -129.152,62.3255 -129.1508,62.324 -129.1548,62.3226 -129.1652,62.3218 -129.1739,62.3215 -129.1787,62.3204 -129.1819,62.3174 -129.1863,62.3123 -129.1879,62.3097 -129.1947,62.3064 -129.2047,62.3023 -129.2151,62.2972 -129.2186,62.2942 -129.2219,62.2905 -129.2259,62.2857 -129.2327,62.2798 -129.2351,62.2754 -129.2359,62.2708 -129.2359,62.2671 -129.2312,62.2627 -129.224,62.2582 -129.2209,62.2562 -129.2181,62.2521 -129.2158,62.2488 -129.2158,62.2464 -129.2178,62.242 -129.2214,62.2375 -129.2266,62.2333 -129.229,62.2274 -129.2294,62.222 -129.2247,62.2168 -129.2172,62.2131 -129.2097,62.2081 -129.2026,62.2048 -129.1971,62.2011 -129.1947,62.197 -129.1916,62.1921 -129.1892,62.1869 -129.1877,62.1832 -129.1853,62.1799 -129.1806,62.1769 -129.1751,62.175 -129.1688,62.1739 -129.1581,62.1719 -129.1466,62.1711 -129.1363,62.1707 -129.1292,62.1703 -129.1221,62.1701 -129.1201,62.1688 -129.1225,62.1648 -129.1281,62.1607 -129.1364,62.1554 -129.1428,62.1502 -129.1512,62.1454 -129.1587,62.1419 -129.1687,62.1368 -129.1861,62.1291 -129.1956,62.1256 -129.2083,62.1193 -129.2115,62.1125 -129.2108,62.108 -129.21,62.1051 -129.2069,62.1018 -129.2013,62.101 -129.1946,62.1008 -129.1875,62.1015 -129.1808,62.1019 -129.1713,62.1028 -129.163,62.1019 -129.1532,62.0995 -129.1461,62.0946 -129.1379,62.0883 -129.1324,62.083 -129.1277,62.0789 -129.1206,62.0748 -129.1159,62.0706 -129.1104,62.0676 -129.1041,62.065 -129.0931,62.0628 -129.0837,62.0618 -129.0738,62.0603 -129.0592,62.0595 -129.047,62.0595 -129.0359,62.0602 -129.0209,62.0617 -129.011,62.0653 -129.0039,62.0688 -128.9999,62.0721 -128.9975,62.0751 -128.9896,62.0773 -128.9844,62.0773 -128.977,62.075 -128.9675,62.0726 -128.958,62.0729 -128.9501,62.0748 -128.9417,62.0803 -128.937,62.0836 -128.9314,62.0858 -128.9278,62.0867 -128.9207,62.0854 -128.9098,62.0805 -128.9004,62.072 -128.8926,62.0664 -128.8841,62.0607 -128.8786,62.0584 -128.8743,62.0569 -128.8703,62.0567 -128.8605,62.0574 -128.8474,62.0596 -128.8367,62.0603 -128.8265,62.0603 -128.8178,62.0591 -128.8057,62.0561 -128.7963,62.0498 -128.7905,62.0424 -128.7883,62.0342 -128.7861,62.0278 -128.7815,62.0226 -128.7792,62.0189 -128.7765,62.0153 -128.7711,62.0131 -128.764,62.0127 -128.7553,62.0121 -128.7447,62.0106 -128.7373,62.0087 -128.7295,62.0061 -128.7236,62.0042 -128.7154,62.0031 -128.7075,62.0019 -128.698,62.0019 -128.6941,62.003 -128.6909,62.0063 -128.6892,62.0112 -128.6883,62.0164 -128.6857,62.0234 -128.6845,62.0278 -128.6816,62.033 -128.6735,62.04 -128.6406,62.0634 -128.6257,62.0752 -128.6225,62.0774 -128.6189,62.0785 -128.6138,62.0794 -128.6094,62.0793 -128.6007,62.0789 -128.5913,62.0783 -128.5815,62.0764 -128.5721,62.0738 -128.5634,62.0713 -128.5607,62.0709 -128.5544,62.0702 -128.5453,62.0727 -128.5381,62.0745 -128.5329,62.0756 -128.5274,62.0765 -128.5215,62.0768 -128.5132,62.0767 -128.5022,62.0756 -128.4951,62.074 -128.4888,62.072 -128.4763,62.068 -128.4631,62.0624 -128.4545,62.0581 -128.4488,62.053 -128.4466,62.0486 -128.4404,62.0434 -128.4355,62.0369 -128.4279,62.0287 -128.4162,62.0231 -128.4046,62.016 -128.393,62.0115 -128.3786,62.0051 -128.3709,61.9998 -128.3601,61.9942 -128.3505,61.9879 -128.3396,61.983 -128.3326,61.9798 -128.3257,61.9764 -128.3167,61.9741 -128.3113,61.9719 -128.3098,61.9689 -128.3107,61.966 -128.3124,61.9626 -128.3141,61.9593 -128.3183,61.9525 -128.3192,61.9474 -128.3162,61.9444 -128.3127,61.9421 -128.3073,61.9386 -128.2992,61.9348 -128.2876,61.9318 -128.2767,61.9286 -128.2705,61.9267 -128.2607,61.9236 -128.2555,61.9184 -128.2486,61.9111 -128.2429,61.9076 -128.234,61.9042 -128.2239,61.901 -128.2154,61.8979 -128.2088,61.8953 -128.2035,61.8908 -128.1982,61.8854 -128.1922,61.8787 -128.1854,61.8716 -128.1802,61.864 -128.1758,61.8573 -128.1721,61.851 -128.17,61.8452 -128.1687,61.8393 -128.1673,61.8349 -128.1667,61.8312 -128.166,61.829 -128.1654,61.8245 -128.1648,61.818 -128.1627,61.8121 -128.1595,61.8049 -128.1574,61.7997 -128.1544,61.7956 -128.1514,61.7926 -128.1476,61.7904 -128.1406,61.7896 -128.1334,61.7913 -128.118,61.7966 -128.1045,61.8005 -128.093,61.8033 -128.0836,61.8047 -128.075,61.8054 -128.0624,61.8053 -128.0507,61.8055 -128.0429,61.8058 -128.0323,61.8052 -128.0207,61.8021 -128.0154,61.7991 -128.005,61.7938 -127.9993,61.7902 -127.9933,61.7857 -127.9881,61.7787 -127.9845,61.7724 -127.98,61.7675 -127.974,61.7634 -127.9675,61.7589 -127.9631,61.7544 -127.958,61.7466 -127.9558,61.7425 -127.9529,61.7388 -127.9507,61.7345 -127.9433,61.7259 -127.9388,61.7214 -127.9351,61.7173 -127.9345,61.7142 -127.9324,61.7088 -127.9315,61.7034 -127.9349,61.6964 -127.9359,61.6843 -127.937,61.6787 -127.9365,61.6724 -127.9344,61.6672 -127.9298,61.6568 -127.9169,61.6488 -127.9102,61.6431 -127.9034,61.639 -127.8946,61.6359 -127.8873,61.6331 -127.8755,61.6291 -127.8678,61.6275 -127.855,61.6261 -127.8457,61.6245 -127.8392,61.6226 -127.8343,61.619 -127.8257,61.6125 -127.8138,61.6014 -127.8056,61.5947 -127.794,61.5868 -127.7815,61.5803 -127.7698,61.5734 -127.7498,61.5626 -127.7391,61.5584 -127.7323,61.555 -127.7278,61.5527 -127.7178,61.5504 -127.7067,61.5477 -127.6875,61.5448 -127.6733,61.5421 -127.6624,61.5417 -127.6474,61.5404 -127.6381,61.5392 -127.6297,61.5365 -127.6215,61.5312 -127.6179,61.526 -127.6148,61.5195 -127.6134,61.5158 -127.6131,61.5149 -127.6099,61.51 -127.6063,61.5055 -127.6042,61.5011 -127.6002,61.4973 -127.5949,61.4947 -127.5873,61.4924 -127.5763,61.4885 -127.5613,61.4854 -127.5521,61.4838 -127.5441,61.4816 -127.5325,61.4809 -127.5248,61.4804 -127.5183,61.4787 -127.514,61.4745 -127.5066,61.4672 -127.5007,61.4631 -127.4931,61.4604 -127.4824,61.4577 -127.4683,61.4543 -127.4591,61.4527 -127.4514,61.4526 -127.4367,61.4524 -127.4296,61.4541 -127.418,61.4547 -127.4054,61.4575 -127.3934,61.4586 -127.3833,61.4581 -127.3734,61.4565 -127.3588,61.4544 -127.3484,61.4535 -127.338,61.4534 -127.3251,61.4539 -127.3188,61.4558 -127.309,61.4579 -127.2996,61.4596 -127.2902,61.4606 -127.277,61.4615 -127.2654,61.4613 -127.2476,61.4614 -127.2341,61.4605 -127.2188,61.4584 -127.1958,61.4543 -127.1845,61.4501 -127.1795,61.4444 -127.1726,61.4384 -127.169,61.4335 -127.1639,61.4294 -127.1574,61.4228 -127.1538,61.4194 -127.1479,61.416 -127.1352,61.4152 -127.1213,61.415 -127.1111,61.4163 -127.1036,61.4184 -127.0962,61.4187 -127.087,61.4178 -127.0817,61.4162 -127.077,61.4065 -127.0703,61.3879 -127.0685,61.3812 -127.0672,61.3727 -127.0649,61.3664 -127.0642,61.3614 -127.0642,61.3562 -127.0647,61.3484 -127.0652,61.3421 -127.064,61.3373 -127.059,61.3326 -127.0492,61.3287 -127.0355,61.3267 -127.0238,61.3233 -127.0143,61.3209 -127.0055,61.3156 -126.9971,61.3095 -126.9935,61.3058 -126.993,61.3021 -126.9949,61.2984 -126.999,61.294 -127.0017,61.29 -127.003,61.2828 -127.0008,61.2763 -126.9997,61.2704 -126.9912,61.261 -126.9873,61.2511 -126.9817,61.244 -126.9789,61.2399 -126.9781,61.236 -126.9774,61.2343 -126.9755,61.2293 -126.9738,61.2211 -126.9707,61.2124 -126.9698,61.2035 -126.9695,61.1972 -126.9692,61.1916 -126.9664,61.1875 -126.9601,61.1796 -126.9527,61.1721 -126.9463,61.1653 -126.9412,61.1615 -126.9389,61.1563 -126.938,61.1485 -126.9402,61.1393 -126.9414,61.1343 -126.9442,61.1281 -126.9551,61.1213 -126.967,61.1148 -126.9783,61.1073 -126.9829,61.1033 -126.9812,61.0999 -126.9761,61.0967 -126.9703,61.0921 -126.9607,61.0875 -126.9568,61.0832 -126.9539,61.0767 -126.9596,61.0668 -126.9632,61.0606 -126.9673,61.0569 -126.9729,61.0533 -126.9831,61.0502 -127.0001,61.0475 -127.023,61.0428 -127.0316,61.0399 -127.038,61.0371 -127.0412,61.0338 -127.0452,61.0267 -127.0456,61.0215 -127.0437,61.0163 -127.037,61.0136 -127.0335,61.0098 -127.0251,61.0045 -127.0202,60.9992 -127.0183,60.9938 -127.0163,60.9901 -127.0126,60.9875 -127.0074,60.9855 -127.0014,60.985 -126.9936,60.9871 -126.9842,60.9899 -126.9729,60.9986 -126.9575,61.0053 -126.9487,61.0096 -126.9358,61.0135 -126.9258,61.0148 -126.9189,61.0157 -126.9124,61.0158 -126.9013,61.0154 -126.8922,61.0145 -126.8855,61.0125 -126.8773,61.0098 -126.8712,61.0058 -126.87,61.0013 -126.8719,60.9966 -126.8754,60.9903 -126.8789,60.9849 -126.88,60.9808 -126.8828,60.9744 -126.8817,60.9692 -126.8728,60.9564 -126.8629,60.9463 -126.8553,60.9373 -126.8476,60.9282 -126.8424,60.9176 -126.8384,60.9105 -126.8331,60.8997 -126.8329,60.8937 -126.8327,60.8867 -126.8338,60.8819 -126.8357,60.8768 -126.8375,60.8737 -126.8417,60.8693 -126.8409,60.8597 -126.8371,60.8507 -126.8348,60.8418 -126.833,60.8347 -126.8343,60.8281 -126.8424,60.8216 -126.849,60.8158 -126.8508,60.8118 -126.8512,60.8066 -126.8455,60.802 -126.833,60.7977 -126.8203,60.7953 -126.8128,60.7936 -126.8062,60.7909 -126.8035,60.7864 -126.8057,60.7791 -126.8138,60.7718 -126.8216,60.7605 -126.8239,60.7502 -126.823,60.7428 -126.8205,60.7357 -126.8129,60.7271 -126.7975,60.7208 -126.7814,60.7146 -126.7719,60.7096 -126.7652,60.708 -126.7562,60.7071 -126.7463,60.7084 -126.7407,60.7123 -126.7387,60.7175 -126.7362,60.7204 -126.7298,60.7251 -126.7159,60.7277 -126.6921,60.7317 -126.6815,60.7322 -126.6711,60.7294 -126.6582,60.7218 -126.6412,60.7159 -126.6311,60.7105 -126.6264,60.7041 -126.6201,60.6984 -126.6135,60.6953 -126.6091,60.6938 -126.6024,60.6929 -126.5916,60.6956 -126.585,60.7014 -126.5738,60.7086 -126.555,60.7237 -126.5393,60.73 -126.5164,60.7407 -126.4952,60.7487 -126.4873,60.7522 -126.4756,60.7564 -126.4678,60.7588 -126.4622,60.7617 -126.4546,60.7623 -126.4456,60.7613 -126.4376,60.7575 -126.4261,60.7509 -126.4144,60.7466 -126.4033,60.7434 -126.3891,60.7416 -126.3795,60.7388 -126.3692,60.7352 -126.3605,60.7317 -126.3524,60.7285 -126.3404,60.7275 -126.3307,60.7258 -126.3174,60.7226 -126.3055,60.7208 -126.2843,60.7203 -126.2368,60.7263 -126.2097,60.7323 -126.1926,60.7363 -126.1784,60.7426 -126.1685,60.7505 -126.1585,60.7592 -126.156,60.7695 -126.1597,60.7777 -126.1649,60.786 -126.1703,60.7928 -126.1768,60.7959 -126.1772,60.7992 -126.1716,60.8028 -126.1501,60.8053 -126.1317,60.8063 -126.112,60.8066 -126.0774,60.8102 -126.0568,60.8111 -126.0453,60.8127 -126.0401,60.8115 -126.0359,60.8076 -126.0394,60.8033 -126.0432,60.7967 -126.0513,60.7917 -126.052,60.7851 -126.0512,60.7777 -126.0473,60.7717 -126.0401,60.7678 -126.0301,60.762 -126.0159,60.7598 -126.003,60.7606 -125.9901,60.7602 -125.9798,60.7577 -125.971,60.7546 -125.9622,60.7514 -125.9541,60.7493 -125.9443,60.7494 -125.9336,60.7503 -125.9279,60.7538 -125.9293,60.762 -125.9228,60.7729 -125.9184,60.7851 -125.9167,60.7943 -125.9096,60.8037 -125.8989,60.8108 -125.8815,60.817 -125.8629,60.8277 -125.8479,60.8325 -125.8322,60.8372 -125.8117,60.8434 -125.7996,60.843 -125.7848,60.8397 -125.7705,60.8319 -125.751,60.8228 -125.7457,60.816 -125.7242,60.8114 -125.6923,60.7983 -125.678,60.7905 -125.6681,60.7843 -125.6515,60.7764 -125.6405,60.7732 -125.621,60.7719 -125.6086,60.7738 -125.5867,60.7731 -125.5686,60.7719 -125.5574,60.7705 -125.5407,60.7707 -125.5299,60.7723 -125.5206,60.7735 -125.5129,60.7744 -125.5091,60.775 -125.5008,60.774 -125.4792,60.7712 -125.4447,60.7613 -125.4301,60.7571 -125.4126,60.7514 -125.392,60.7464 -125.3766,60.7419 -125.3619,60.7385 -125.3411,60.7349 -125.3276,60.7334 -125.3142,60.7322 -125.2916,60.7308 -125.2764,60.7307 -125.2642,60.7318 -125.2474,60.7328 -125.238,60.7347 -125.2231,60.7391 -125.2156,60.7436 -125.2014,60.7543 -125.193,60.76 -125.1865,60.7635 -125.1713,60.7693 -125.1561,60.7755 -125.1501,60.7809 -125.1449,60.7851 -125.1396,60.7909 -125.1337,60.7952 -125.1273,60.7976 -125.1171,60.8002 -125.0958,60.8003 -125.0721,60.8017 -125.0553,60.8019 -125.034,60.802 -125.0136,60.8017 -124.9975,60.8027 -124.9724,60.8081 -124.96,60.81 -124.9492,60.8111 -124.9357,60.8099 -124.93,60.8098 -124.9092,60.8094 -124.889,60.8065 -124.8689,60.8036 -124.8425,60.8023 -124.822,60.802 -124.8097,60.8031 -124.8018,60.805 -124.7982,60.8094 -124.7955,60.8174 -124.7955,60.8278 -124.7994,60.8383 -124.8049,60.8526 -124.8083,60.8605 -124.8069,60.8656 -124.8019,60.8736 -124.7927,60.8792 -124.7858,60.8849 -124.7744,60.8949 -124.7658,60.902 -124.7613,60.9067 -124.7562,60.9154 -124.754,60.9201 -124.7467,60.9232 -124.7436,60.9235 -124.7383,60.9233 -124.7304,60.9201 -124.7192,60.9134 -124.7106,60.9094 -124.7057,60.9062 -124.6896,60.902 -124.6729,60.901 -124.6548,60.9 -124.6432,60.9007 -124.6283,60.8987 -124.6135,60.8956 -124.5983,60.8951 -124.5875,60.8962 -124.5809,60.8993 -124.5741,60.9042 -124.5681,60.9088 -124.5652,60.9124 -124.5613,60.9134 -124.5522,60.9131 -124.5425,60.9116 -124.5324,60.9076 -124.5271,60.9022 -124.5146,60.8895 -124.5061,60.8699 -124.4986,60.8544 -124.4929,60.8372 -124.4856,60.8199 -124.4811,60.8049 -124.4776,60.7977 -124.4768,60.7929 -124.4778,60.7866 -124.4759,60.7791 -124.472,60.7745 -124.4682,60.7647 -124.465,60.7609 -124.4567,60.7558 -124.4451,60.7524 -124.4311,60.7493 -124.4228,60.7442 -124.4201,60.737 -124.4218,60.7308 -124.4339,60.7216 -124.4441,60.7145 -124.4528,60.7071 -124.4787,60.6962 -124.4952,60.6879 -124.5141,60.683 -124.5301,60.6769 -124.5355,60.6712 -124.5378,60.6661 -124.5475,60.662 -124.5576,60.6556 -124.5649,60.6474 -124.5645,60.6396 -124.5598,60.6305 -124.5401,60.6061 -124.5239,60.5929 -124.5017,60.5754 -124.4823,60.5688 -124.4641,60.5592 -124.4402,60.5427 -124.4284,60.5312 -124.4165,60.5204 -124.403,60.5102 -124.3992,60.5056 -124.3888,60.5 -124.3812,60.4953 -124.3691,60.4863 -124.3633,60.4794 -124.3571,60.471 -124.3552,60.4591 -124.3577,60.4525 -124.3596,60.4452 -124.3611,60.436 -124.361,60.4267 -124.3603,60.4218 -124.3602,60.417 -124.3516,60.4145 -124.3393,60.4162 -124.3144,60.4171 -124.2932,60.4182 -124.2683,60.4187 -124.2301,60.418 -124.2054,60.417 -124.1855,60.4148 -124.1754,60.4121 -124.1654,60.4092 -124.1554,60.4058 -124.1515,60.4019 -124.148,60.3959 -124.1478,60.3877 -124.1505,60.3759 -124.1495,60.3681 -124.1531,60.3549 -124.1563,60.3446 -124.1592,60.3407 -124.1619,60.333 -124.1609,60.3207 -124.1532,60.3126 -124.1477,60.2998 -124.1417,60.291 -124.1384,60.2835 -124.1284,60.2712 -124.1234,60.2606 -124.1145,60.2506 -124.103,60.239 -124.0927,60.2238 -124.0792,60.2151 -124.072,60.2044 -124.0633,60.1937 -124.0594,60.1809 -124.0551,60.1703 -124.0479,60.1597 -124.0347,60.1495 -124.0186,60.1384 -124.009,60.1332 -123.9962,60.1249 -123.9805,60.1117 -123.9666,60.1059 -123.9578,60.1007 -123.9504,60.0959 -123.947,60.0806 -123.9477,60.0765 -123.9395,60.0677 -123.9327,60.0592 -123.9313,60.0406 -123.9326,60.0332 -123.9348,60.0289 -123.947,60.0179 -123.9577,60.0027 -123.9683,59.992 -123.9726,59.9841 -123.9735,59.9789 -123.9717,59.9718 -123.9663,59.9682 -123.9554,59.9626 -123.9476,59.9563 -123.94,59.95 -122.6809,59.95 -122.5976,59.9504 -122.5142,59.9503 -122.4309,59.9503 -122.3477,59.9502 -122.2643,59.9502 -122.181,59.9501 -122.0978,59.9501 -122.0145,59.95 -121.9311,59.95 -121.8479,59.9499 -121.7646,59.9499 -121.6812,59.9498 -121.5979,59.9497 -121.5147,59.9497 -121.4314,59.9496 -121.348,59.9496 -121.2648,59.9495 -121.1815,59.9495 -121.0981,59.95 -120.1819,59.95 -120.0986,59.9497 -120.0152,59.95 -119.9319,59.9503 -119.93,59.9503 -119.93,53.7544 -119.9109,53.7507 -119.9062,53.7404 -119.8947,53.7308 -119.8477,53.729 -119.8339,53.7276 -119.8165,53.7257 -119.8114,53.7211 -119.8106,53.7069 -119.8177,53.695 -119.8274,53.6847 -119.8253,53.6774 -119.8305,53.6719 -119.8382,53.6692 -119.8415,53.6633 -119.8324,53.6577 -119.8161,53.6565 -119.7975,53.6588 -119.787,53.6617 -119.7781,53.6618 -119.7753,53.6574 -119.7709,53.6503 -119.7645,53.6452 -119.7515,53.6457 -119.7441,53.6519 -119.7264,53.6522 -119.7154,53.6454 -119.7101,53.6355 -119.6994,53.6247 -119.6852,53.6153 -119.6678,53.6108 -119.6615,53.6057 -119.6635,53.5896 -119.6593,53.5829 -119.6533,53.5735 -119.6444,53.5667 -119.6454,53.5627 -119.6744,53.5425 -119.6768,53.5378 -119.7047,53.5382 -119.7228,53.5501 -119.7672,53.5559 -119.7868,53.5561 -119.789,53.5561 -119.8106,53.5664 -119.8282,53.5678 -119.8531,53.5628 -119.8543,53.5568 -119.8367,53.5466 -119.8275,53.5341 -119.8096,53.5207 -119.7972,53.5146 -119.7924,53.5072 -119.7925,53.4975 -119.7965,53.4895 -119.8238,53.4806 -119.8283,53.4695 -119.8263,53.4654 -119.8164,53.4594 -119.8053,53.4582 -119.7994,53.453 -119.7905,53.4499 -119.7824,53.4511 -119.7699,53.4671 -119.7613,53.4659 -119.7555,53.4581 -119.7339,53.4458 -119.7271,53.4444 -119.7151,53.4419 -119.7093,53.4346 -119.7167,53.4268 -119.7149,53.4201 -119.7019,53.4092 -119.6849,53.3752 -119.6791,53.3684 -119.6549,53.3496 -119.652,53.3374 -119.6494,53.3373 -119.6412,53.3371 -119.6329,53.3394 -119.6244,53.3385 -119.6135,53.3327 -119.6057,53.3169 -119.5735,53.3159 -119.5366,53.3119 -119.5227,53.3163 -119.5329,53.3292 -119.5316,53.3323 -119.524,53.3321 -119.5085,53.3249 -119.4836,53.3134 -119.4719,53.3124 -119.4599,53.3136 -119.4563,53.3174 -119.4487,53.3184 -119.4313,53.3133 -119.4078,53.3113 -119.3783,53.3042 -119.3625,53.3056 -119.3487,53.3093 -119.3402,53.3136 -119.3327,53.3133 -119.32,53.3103 -119.3191,53.3098 -119.2842,53.2891 -119.2769,53.2808 -119.2766,53.2727 -119.2865,53.2595 -119.2766,53.2505 -119.2651,53.2469 -119.262,53.2393 -119.2657,53.2343 -119.2632,53.2271 -119.2545,53.222 -119.2409,53.2176 -119.2331,53.2105 -119.2236,53.2019 -119.2106,53.1805 -119.2018,53.1711 -119.183,53.1431 -119.1822,53.1285 -119.1772,53.1251 -119.1706,53.1265 -119.1612,53.141 -119.1546,53.1427 -119.1423,53.1388 -119.1332,53.1359 -119.1172,53.1343 -119.0979,53.1343 -119.0886,53.1393 -119.0799,53.1399 -119.0526,53.1126 -119.0168,53.1118 -119.0007,53.1086 -118.9763,53.0944 -118.9754,53.0931 -118.9669,53.0816 -118.9569,53.0743 -118.9498,53.081 -118.9271,53.093 -118.9322,53.0992 -118.9478,53.1076 -118.9466,53.1196 -118.9372,53.1347 -118.9262,53.1442 -118.9211,53.1522 -118.9267,53.1601 -118.9279,53.1609 -118.9415,53.1693 -118.9412,53.18 -118.9283,53.186 -118.9128,53.1906 -118.8853,53.1861 -118.8738,53.1866 -118.8619,53.1835 -118.8426,53.1622 -118.8336,53.1588 -118.8018,53.155 -118.8009,53.154 -118.794,53.1466 -118.7788,53.1352 -118.7596,53.1336 -118.754,53.1253 -118.7442,53.1232 -118.737,53.1169 -118.7162,53.1109 -118.708,53.1067 -118.7069,53.0972 -118.7089,53.0921 -118.7053,53.0851 -118.6952,53.0791 -118.669,53.0728 -118.6673,53.0724 -118.6579,53.0669 -118.6812,53.0359 -118.6984,53.0297 -118.7034,53.0028 -118.6983,52.9966 -118.6883,52.9966 -118.6756,53.0022 -118.6692,53.0084 -118.653,53.006 -118.6473,53.0045 -118.6349,53.0014 -118.6251,52.9873 -118.6204,52.9841 -118.6103,52.985 -118.6047,52.9903 -118.5947,52.9908 -118.5832,52.9843 -118.57,52.9549 -118.5694,52.948 -118.5967,52.9332 -118.5925,52.9231 -118.5882,52.9126 -118.5745,52.9013 -118.5425,52.888 -118.5466,52.8728 -118.5456,52.868 -118.5342,52.8571 -118.5433,52.8385 -118.5347,52.8315 -118.5224,52.8291 -118.5107,52.8333 -118.506,52.8351 -118.4874,52.8542 -118.4802,52.8554 -118.4693,52.8545 -118.4549,52.8496 -118.4419,52.8533 -118.4244,52.8488 -118.4083,52.8515 -118.3966,52.8515 -118.3864,52.8444 -118.3774,52.8331 -118.3884,52.8193 -118.3879,52.815 -118.3872,52.8098 -118.377,52.8022 -118.36,52.8005 -118.333,52.8027 -118.3269,52.8015 -118.3227,52.7971 -118.3208,52.7865 -118.3263,52.7721 -118.3445,52.75 -118.3481,52.7326 -118.3449,52.7259 -118.3431,52.7219 -118.3201,52.71 -118.2996,52.7049 -118.2873,52.6958 -118.2657,52.6868 -118.2639,52.6815 -118.2686,52.6746 -118.2662,52.6617 -118.2513,52.6487 -118.2241,52.6368 -118.2223,52.636 -118.2163,52.6268 -118.2226,52.6071 -118.2294,52.6021 -118.2563,52.599 -118.2636,52.5903 -118.2718,52.5869 -118.277,52.5823 -118.2773,52.5728 -118.2817,52.5621 -118.2622,52.5551 -118.261,52.5396 -118.2609,52.5389 -118.2549,52.5306 -118.2345,52.5249 -118.2078,52.5211 -118.1952,52.5112 -118.1958,52.506 -118.209,52.4955 -118.2097,52.4847 -118.189,52.4525 -118.1785,52.4461 -118.1757,52.4443 -118.1647,52.441 -118.1454,52.4405 -118.1337,52.4379 -118.1261,52.4352 -118.1222,52.4291 -118.1234,52.4239 -118.1494,52.4112 -118.155,52.4024 -118.1699,52.4013 -118.176,52.3977 -118.1664,52.383 -118.1653,52.3638 -118.1649,52.3566 -118.1478,52.3381 -118.1502,52.3274 -118.1463,52.322 -118.1365,52.3181 -118.1199,52.3188 -118.1121,52.3222 -118.1051,52.3341 -118.0813,52.3518 -118.068,52.3543 -118.0474,52.3505 -118.0435,52.3498 -117.9859,52.3465 -117.9796,52.351 -117.977,52.3631 -117.966,52.3744 -117.9618,52.3805 -117.9611,52.386 -117.9653,52.3897 -117.9808,52.3928 -117.985,52.3958 -117.9826,52.4058 -117.9781,52.4104 -117.9691,52.4097 -117.9632,52.4064 -117.9536,52.401 -117.9508,52.4054 -117.9524,52.4159 -117.9447,52.4322 -117.9372,52.442 -117.9255,52.4487 -117.9165,52.448 -117.9074,52.4343 -117.8964,52.4307 -117.892,52.4162 -117.8864,52.4108 -117.8655,52.4015 -117.8502,52.399 -117.8417,52.3944 -117.8382,52.3859 -117.8165,52.3773 -117.7705,52.3674 -117.7542,52.366 -117.7381,52.3582 -117.7265,52.356 -117.7146,52.3599 -117.7065,52.3609 -117.6935,52.3599 -117.6898,52.3576 -117.6756,52.3487 -117.6582,52.3429 -117.6497,52.338 -117.6519,52.3301 -117.65,52.3227 -117.6394,52.3166 -117.6375,52.3047 -117.6542,52.3034 -117.6661,52.2946 -117.6753,52.2801 -117.6781,52.2678 -117.6883,52.2698 -117.6905,52.2696 -117.6995,52.2689 -117.7214,52.2553 -117.7246,52.2442 -117.7386,52.24 -117.7693,52.2253 -117.7692,52.2163 -117.7625,52.2058 -117.7523,52.1993 -117.7463,52.1844 -117.7364,52.1757 -117.7349,52.1751 -117.671,52.1519 -117.6642,52.1381 -117.6445,52.1394 -117.6148,52.1473 -117.5979,52.1499 -117.5902,52.148 -117.585,52.141 -117.5744,52.1333 -117.5499,52.1156 -117.5447,52.1037 -117.5307,52.0895 -117.5081,52.085 -117.4906,52.0789 -117.4843,52.0804 -117.4694,52.0913 -117.4511,52.0964 -117.4477,52.1037 -117.443,52.1065 -117.4372,52.1046 -117.4272,52.1012 -117.4209,52.0938 -117.3833,52.0964 -117.3577,52.1007 -117.3424,52.1014 -117.3002,52.097 -117.2762,52.0987 -117.2654,52.1016 -117.2611,52.1066 -117.2591,52.1136 -117.2515,52.1406 -117.2458,52.1381 -117.2408,52.0856 -117.2308,52.0448 -117.2255,52.0227 -117.2187,52.0157 -117.2033,52.0086 -117.1971,52.0025 -117.1942,51.9957 -117.1759,51.9933 -117.1497,51.9856 -117.146,51.9787 -117.1467,51.9735 -117.1586,51.9607 -117.1527,51.9527 -117.1478,51.9508 -117.1343,51.9455 -117.1247,51.9311 -117.099,51.9259 -117.0882,51.9253 -117.0747,51.927 -117.0572,51.914 -117.039,51.9054 -117.0222,51.892 -116.9967,51.8791 -116.9744,51.8678 -116.9538,51.8494 -116.947,51.8428 -116.9589,51.819 -116.9563,51.7997 -116.9392,51.7892 -116.923,51.7887 -116.9149,51.7854 -116.9147,51.7831 -116.9135,51.7738 -116.8998,51.7563 -116.8956,51.7479 -116.896,51.7234 -116.9024,51.7113 -116.8897,51.7016 -116.8591,51.6827 -116.8475,51.6625 -116.8306,51.658 -116.8102,51.6553 -116.7912,51.6558 -116.7795,51.6591 -116.7638,51.6586 -116.7465,51.656 -116.7345,51.6608 -116.7322,51.6642 -116.7273,51.6714 -116.7338,51.6788 -116.7395,51.6822 -116.7425,51.6879 -116.7292,51.7098 -116.7038,51.7239 -116.6736,51.7574 -116.6628,51.7579 -116.6505,51.7534 -116.6385,51.7515 -116.6172,51.7588 -116.6055,51.7613 -116.5891,51.7572 -116.5782,51.7499 -116.5797,51.7148 -116.5752,51.7072 -116.5644,51.7034 -116.5538,51.6946 -116.5544,51.6868 -116.5517,51.6826 -116.5508,51.6811 -116.53,51.6732 -116.5213,51.668 -116.5148,51.6571 -116.5111,51.6362 -116.5154,51.6329 -116.5142,51.6277 -116.5223,51.6204 -116.524,51.6135 -116.5024,51.602 -116.467,51.5885 -116.4443,51.5798 -116.4298,51.5758 -116.4051,51.5611 -116.397,51.552 -116.3938,51.5444 -116.3962,51.5249 -116.3936,51.5184 -116.3772,51.5111 -116.3461,51.5035 -116.3177,51.4966 -116.3083,51.4857 -116.3205,51.4784 -116.3222,51.456 -116.2849,51.4233 -116.2735,51.4197 -116.2527,51.4169 -116.2257,51.4133 -116.2163,51.4087 -116.2184,51.3893 -116.2227,51.3798 -116.2135,51.3683 -116.2127,51.3619 -116.2287,51.3416 -116.2327,51.3338 -116.2291,51.3221 -116.2148,51.3187 -116.2131,51.3183 -116.2078,51.3053 -116.2136,51.2918 -116.1952,51.2631 -116.1731,51.2519 -116.1447,51.2461 -116.1335,51.2472 -116.1152,51.2523 -116.1,51.2492 -116.0913,51.2474 -116.0787,51.2345 -116.0829,51.2193 -116.0762,51.2154 -116.0612,51.2121 -116.0476,51.2055 -116.0326,51.2017 -116.0163,51.2001 -116.0044,51.2005 -115.9938,51.1975 -115.9833,51.1836 -115.9664,51.1776 -115.9573,51.1744 -115.9411,51.1728 -115.9342,51.1701 -115.9344,51.1465 -115.9627,51.1242 -115.964,51.1162 -115.9405,51.1089 -115.9449,51.082 -115.8809,51.0671 -115.8664,51.053 -115.8445,51.0389 -115.8305,51.0321 -115.8241,51.0324 -115.8215,51.041 -115.8171,51.0433 -115.7956,51.0404 -115.7914,51.0367 -115.7855,51.0313 -115.7719,51.0297 -115.7628,51.0255 -115.7479,51.0314 -115.7385,51.0322 -115.7336,51.0272 -115.724,51.0222 -115.7,51.0169 -115.6874,51.023 -115.6818,51.0219 -115.6803,51.017 -115.6895,51.0137 -115.6929,50.9971 -115.6783,50.9861 -115.6755,50.9839 -115.6487,50.9679 -115.6401,50.9673 -115.6291,50.9775 -115.6224,50.9763 -115.6074,50.9593 -115.5908,50.9549 -115.5562,50.9307 -115.5454,50.9185 -115.5407,50.9132 -115.5322,50.8988 -115.5319,50.8854 -115.5283,50.8797 -115.5285,50.8743 -115.5007,50.8637 -115.4916,50.8555 -115.4897,50.8508 -115.4925,50.846 -115.5054,50.8403 -115.525,50.8412 -115.5419,50.8348 -115.5478,50.8334 -115.5714,50.8277 -115.5705,50.8176 -115.5611,50.792 -115.547,50.7898 -115.5382,50.7913 -115.532,50.7967 -115.526,50.7971 -115.4899,50.7888 -115.4852,50.7851 -115.4845,50.7664 -115.4844,50.7634 -115.4661,50.7513 -115.4543,50.7392 -115.4439,50.7385 -115.4263,50.7414 -115.4082,50.7285 -115.4064,50.7159 -115.4002,50.7104 -115.3921,50.7078 -115.3901,50.7118 -115.3795,50.7119 -115.3748,50.7091 -115.3654,50.7101 -115.3611,50.7123 -115.3552,50.7085 -115.3542,50.7075 -115.3354,50.6863 -115.3392,50.672 -115.3122,50.6651 -115.3003,50.6692 -115.2907,50.6752 -115.277,50.6784 -115.2559,50.679 -115.2401,50.6754 -115.2217,50.657 -115.2168,50.6329 -115.2042,50.6149 -115.2032,50.6056 -115.2123,50.5988 -115.2271,50.6003 -115.2349,50.5933 -115.2321,50.5873 -115.2216,50.5799 -115.2174,50.57 -115.2052,50.5595 -115.2029,50.5585 -115.1852,50.5506 -115.1664,50.5457 -115.161,50.5414 -115.1644,50.526 -115.1553,50.5113 -115.1542,50.5006 -115.1503,50.4944 -115.1377,50.4861 -115.1298,50.4855 -115.1247,50.4898 -115.1106,50.4896 -115.1061,50.4944 -115.1092,50.5009 -115.1086,50.5022 -115.1062,50.5077 -115.092,50.5215 -115.0822,50.5247 -115.0714,50.5263 -115.0519,50.5257 -115.0319,50.5269 -115.0216,50.5297 -114.9988,50.5402 -114.9923,50.5385 -114.9793,50.5289 -114.9751,50.5282 -114.9697,50.531 -114.956,50.5319 -114.9504,50.5368 -114.9479,50.5391 -114.9419,50.5383 -114.93,50.5137 -114.9271,50.5078 -114.907,50.4903 -114.8799,50.4538 -114.8585,50.4333 -114.8423,50.4047 -114.8313,50.3976 -114.8028,50.3923 -114.7985,50.3826 -114.7858,50.3718 -114.789,50.3509 -114.7817,50.3441 -114.7609,50.3407 -114.7508,50.339 -114.7385,50.3326 -114.739,50.3263 -114.7328,50.3204 -114.7191,50.3119 -114.7068,50.3117 -114.6994,50.3088 -114.6966,50.3011 -114.7057,50.2917 -114.7135,50.2891 -114.717,50.2804 -114.7089,50.2682 -114.7133,50.2592 -114.707,50.254 -114.6964,50.2549 -114.6922,50.2552 -114.6793,50.2507 -114.6764,50.2324 -114.6774,50.2272 -114.6829,50.2171 -114.694,50.2063 -114.6938,50.1981 -114.662,50.1635 -114.6529,50.1466 -114.6505,50.1422 -114.6509,50.1352 -114.6561,50.1269 -114.6561,50.1222 -114.6509,50.1113 -114.656,50.0842 -114.6607,50.0735 -114.6578,50.0645 -114.632,50.052 -114.6191,50.0332 -114.6121,50.023 -114.5896,50.0171 -114.5893,50.0089 -114.5959,50.003 -114.5829,49.9804 -114.5882,49.9621 -114.5795,49.95 -114.5746,49.943 -114.578,49.9245 -114.5795,49.9242 -114.6055,49.9179 -114.6159,49.9012 -114.6162,49.8855 -114.6115,49.8717 -114.6163,49.8499 -114.613,49.8432 -114.5917,49.8156 -114.5859,49.8081 -114.5807,49.7971 -114.5641,49.7834 -114.5669,49.7689 -114.5587,49.7588 -114.5622,49.7503 -114.5615,49.7343 -114.5665,49.7271 -114.5774,49.7226 -114.583,49.7172 -114.5806,49.7105 -114.5714,49.7053 -114.5699,49.7044 -114.5696,49.6961 -114.5632,49.6915 -114.5607,49.6807 -114.5728,49.6699 -114.5954,49.6605 -114.5989,49.6513 -114.593,49.6203 -114.584,49.6049 -114.5835,49.5983 -114.5881,49.5952 -114.5897,49.5941 -114.6332,49.5893 -114.644,49.5801 -114.6608,49.5773 -114.6702,49.5704 -114.6713,49.5599 -114.6532,49.5315 -114.6351,49.5127 -114.6277,49.505 -114.6194,49.5035 -114.6042,49.5071 -114.5733,49.4967 -114.5586,49.4972 -114.5406,49.5021 -114.524,49.5126 -114.5137,49.5158 -114.5036,49.511 -114.4924,49.4998 -114.4945,49.4883 -114.4949,49.4865 -114.5066,49.4693 -114.5169,49.4598 -114.5235,49.4508 -114.5232,49.4199 -114.5301,49.3896 -114.5232,49.3685 -114.5105,49.3453 -114.4981,49.334 -114.4841,49.3313 -114.4678,49.334 -114.457,49.3331 -114.4509,49.3144 -114.4165,49.3037 -114.4053,49.2925 -114.405,49.2901 -114.4043,49.2853 -114.4141,49.2719 -114.4104,49.266 -114.3966,49.2617 -114.3865,49.2514 -114.3758,49.2442 -114.3729,49.2337 -114.376,49.2236 -114.3707,49.22 -114.3102,49.2084 -114.3065,49.2077 -114.3035,49.2043 -114.3236,49.194 -114.3198,49.17 -114.3235,49.1631 -114.2946,49.156 -114.2725,49.1455 -114.2631,49.1503 -114.2395,49.1475 -114.2274,49.1425 -114.2182,49.1386 -114.1834,49.131 -114.1721,49.1332 -114.1611,49.1402 -114.1538,49.1404 -114.14,49.1369 -114.1326,49.1251 -114.0944,49.1108 -114.083,49.1012 -114.0794,49.0945 -114.0803,49.0934 -114.0862,49.0848 -114.0843,49.0759 -114.0686,49.039 -114.0498,49.0303 -114.0286,49.0158 -113.9981,49.0053 -113.9907,48.9999 -113.9893,48.9962 -113.982,48.977 -113.9948,48.9606 -113.998,48.9508 -113.9971,48.9489 -113.9971,48.944 -113.8931,48.9444 -113.8676,48.9433 -113.4013,48.9431 -113.2024,48.9432 -113.0686,48.9433 -112.869,48.9439 -112.7693,48.9437 -112.4367,48.9437 -112.3703,48.9439 -112.2703,48.944 -112.1707,48.9438 -112.0706,48.944 -112.004,48.9434 -111.8709,48.9433 -111.6374,48.9432 -111.2052,48.9433 -110.6065,48.9431 -110.5057,48.9439 -110.3393,48.944 -110.1401,48.944 -110.04,48.9433 -109.9403,48.9434 -109.9305,48.9435 -109.93,48.9497 -109.93,55.533 -109.9297,55.6164 -109.93,55.7829 -109.93,59.95 -109.0137,59.95 -108.9303,59.9501 -108.885,59.95 -108.264,59.95 -108.1807,59.9501 -107.7641,59.9501 -107.6809,59.95 -107.5978,59.9499 -107.5145,59.9498 -107.4309,59.9497 -107.3477,59.9496 -107.2643,59.9496 -107.181,59.9495 -106.4394,59.9486 -106.0149,59.9495 -105.9317,59.9497 -105.8482,59.9499 -105.7649,59.9501 -105.6817,59.95 -101.9303,59.95 -101.9303,67.6808 -101.9335,67.6809 -102.007,67.6498 -102.038,67.6389 -102.1265,67.6583 -102.1797,67.6762 -102.2329,67.6938 -102.2571,67.7004 -102.2906,67.7057 -102.3221,67.7087 -102.4641,67.7176 -102.5857,67.7342 -102.6149,67.7454 -102.7061,67.8098 -102.733,67.8344 -102.7619,67.8375 -102.7899,67.8279 -102.8905,67.8409 -102.9192,67.8692 -102.9623,67.8753 -102.9902,67.8747 -103.0047,67.8755 -103.0381,67.8795 -103.1511,67.9214 -103.1557,67.9816 -103.125,68.0236 -103.1582,68.0661 -103.1797,68.0757 -103.2044,68.0795 -103.2447,68.0715 -103.2822,68.0553 -103.3039,68.0439 -103.3354,68.0142 -103.3179,67.9868 -103.3329,67.9718 -103.5495,67.9416 -103.5741,67.9383 -103.6255,67.9339 -103.6595,67.9339 -103.6803,67.9373 -103.7167,67.9498 -103.7602,67.9572 -103.7873,67.9563 -103.8468,67.9407 -103.9004,67.9319 -103.9485,67.9305 -103.9891,67.936 -104.1482,67.9471 -104.2383,67.9429 -104.2817,67.9465 -104.3729,67.9968 -104.4489,68.0572 -104.4348,68.0755 -104.3993,68.1044 -104.3838,68.1472 -104.42,68.1595 -104.4677,68.1628 -104.5106,68.1629 -104.5772,68.157 -104.6594,68.1389 -104.6868,68.1388 -104.7121,68.1472 -104.728,68.1668 -104.6473,68.1839 -104.6225,68.1997 -104.6166,68.2258 -104.635,68.2411 -104.6639,68.2524 -104.8051,68.2222 -104.7922,68.1811 -104.8431,68.1719 -104.8798,68.1789 -105.0692,68.2498 -105.1252,68.288 -105.1679,68.3218 -105.1938,68.3195 -105.3028,68.3199 -105.3238,68.3361 -105.3123,68.3587 -105.216,68.3996 -105.1931,68.4043 -105.158,68.3989 -105.1915,68.4408 -105.2761,68.5335 -105.2633,68.6022 -105.2564,68.6354 -105.4929,68.7566 -105.5513,68.784 -105.5806,68.792 -105.8546,68.8304 -105.9231,68.8449 -105.9815,68.8524 -106.0129,68.8456 -106.0331,68.8231 -106.0892,68.8041 -106.4083,68.73 -106.5386,68.7265 -106.5671,68.7255 -106.5935,68.7231 -106.7113,68.6999 -106.734,68.6948 -106.8807,68.6603 -107.0038,68.6308 -107.2039,68.6024 -107.41,68.5775 -107.5763,68.5575 -107.7044,68.5521 -107.9412,68.5386 -108.0224,68.5326 -108.0496,68.5304 -108.0848,68.5234 -108.1156,68.5139 -108.1468,68.494 -108.1747,68.4723 -108.2022,68.4506 -108.301,68.3627 -108.3448,68.3242 -108.3872,68.2973 -108.4109,68.2879 -108.4419,68.2783 -108.4775,68.2695 -108.5158,68.2526 -108.587,68.1788 -108.5324,68.1499 -108.5091,68.1443 -108.4869,68.1443 -108.3379,68.1808 -108.2766,68.2114 -108.256,68.2179 -108.2232,68.221 -108.1708,68.2046 -108.0992,68.1134 -108.105,68.0696 -108.1186,68.0538 -108.1469,68.051 -108.1379,68.0702 -108.1755,68.0753 -108.205,68.0564 -108.1905,68.0334 -108.1669,68.027 -108.1427,68.0257 -108.105,68.03 -108.0734,68.0389 -108.0223,68.0545 -107.9929,68.065 -107.9648,68.0812 -107.9343,68.0858 -107.807,68.0813 -107.6453,68.0843 -107.5992,68.0935 -107.5668,68.0963 -107.4637,68.0872 -107.3981,68.0772 -107.3784,68.0854 -107.5154,68.1299 -107.6036,68.1538 -107.6274,68.1602 -107.6565,68.1779 -107.625,68.2356 -107.595,68.2536 -107.327,68.2608 -107.1064,68.2266 -107.0729,68.2112 -107.0545,68.1929 -107.0285,68.1744 -106.9068,68.196 -106.794,68.2712 -106.5622,68.3231 -106.4165,68.2578 -106.382,68.2209 -106.3654,68.2077 -106.3401,68.2032 -106.3088,68.2096 -106.2668,68.3179 -106.2972,68.3275 -106.338,68.3301 -106.3649,68.3359 -106.3937,68.3522 -106.4021,68.3742 -106.3187,68.424 -106.2856,68.4306 -106.1451,68.4574 -106.0114,68.4786 -105.983,68.4798 -105.8289,68.5127 -105.8106,68.5304 -105.7037,68.5444 -105.6776,68.5472 -105.428,68.5481 -105.5011,68.4862 -105.5193,68.4769 -105.4851,68.4184 -105.4761,68.3919 -105.5034,68.3344 -105.5224,68.3266 -105.5508,68.3257 -105.5702,68.3324 -105.9367,68.2906 -105.9559,68.3009 -105.9865,68.3046 -106.0261,68.3014 -106.2022,68.2632 -106.2349,68.2504 -106.2675,68.1367 -106.2449,68.1272 -106.197,68.12 -106.169,68.1143 -106.1279,68.0984 -106.2032,68.0673 -106.2283,68.0739 -106.245,68.1032 -106.3699,68.1586 -106.3968,68.1601 -106.5773,68.1191 -106.6245,68.0295 -106.7347,68.0268 -106.8944,67.9976 -106.8838,68.0377 -106.9233,68.0407 -107.0014,68.0073 -107.0265,67.9939 -107.0628,67.9781 -107.1016,67.9662 -107.1309,67.9609 -107.1639,67.9584 -107.2253,67.9602 -107.3127,67.9705 -107.353,67.9729 -107.3846,67.9716 -107.4593,67.9571 -107.5033,67.9365 -107.538,67.9135 -107.57,67.9143 -107.6061,67.9223 -107.5789,67.967 -107.5542,67.9703 -107.507,67.968 -107.4734,67.9821 -107.4952,67.9957 -107.6184,68.0183 -107.6447,68.0119 -107.6617,67.9979 -107.6883,67.9052 -107.5857,67.8849 -107.5451,67.8786 -107.4332,67.8539 -107.4497,67.8293 -107.4845,67.8075 -107.5315,67.7942 -107.6301,67.7712 -107.6586,67.7659 -107.7116,67.7618 -107.7671,67.7017 -107.786,67.6758 -107.7892,67.6476 -107.7718,67.6096 -107.7443,67.5903 -107.6662,67.5565 -107.6203,67.5383 -107.5891,67.5284 -107.5495,67.5144 -107.5165,67.4994 -107.4945,67.4872 -107.3553,67.4006 -107.4259,67.2743 -107.3106,67.129 -107.2811,67.1076 -107.2558,67.0936 -107.2183,67.0768 -107.1666,67.0594 -107.0901,67.0422 -107.0808,66.9191 -107.013,66.881 -106.9838,66.86 -106.9354,66.8152 -106.8698,66.7348 -106.9122,66.7377 -106.9339,66.7562 -106.9675,66.7889 -106.9941,66.808 -107.0138,66.8176 -107.1387,66.8746 -107.1589,66.8811 -107.1933,66.8871 -107.2198,66.8806 -107.2053,66.8597 -107.1731,66.8116 -107.2003,66.722 -107.2927,66.7375 -107.3469,66.7511 -107.4142,66.8074 -107.4466,66.8538 -107.4136,66.8602 -107.3751,66.8363 -107.2665,66.8363 -107.2993,66.9306 -107.3621,66.9666 -107.3862,66.9783 -107.4219,66.9901 -107.4442,66.982 -107.4167,66.9395 -107.4674,66.8924 -107.5255,66.8379 -107.4733,66.6715 -107.4293,66.6095 -107.4041,66.5767 -107.3506,66.5357 -107.3451,66.5122 -107.2197,66.4292 -107.1234,66.3776 -107.0174,66.3237 -106.9843,66.2774 -107.0105,66.2651 -107.0359,66.268 -107.0727,66.2847 -107.2142,66.3697 -107.3438,66.445 -107.3815,66.4621 -107.4083,66.478 -107.4277,66.4905 -107.5041,66.5457 -107.5447,66.6026 -107.6031,66.6561 -107.6398,66.6731 -107.664,66.6698 -107.6471,66.6272 -107.6499,66.5827 -107.6737,66.5874 -107.726,66.6436 -107.7197,66.6739 -107.7188,66.6986 -107.764,66.7439 -107.8928,66.8443 -107.936,66.8736 -107.9747,66.8874 -108.0061,66.892 -108.036,66.8929 -108.067,66.8952 -108.1015,66.9006 -108.1288,66.9139 -108.1694,66.9438 -108.2259,66.9816 -108.2592,66.9827 -108.2641,66.9588 -108.2949,66.9519 -108.3974,67.0669 -108.3654,67.067 -108.3247,67.0496 -108.2937,67.0287 -108.2714,67.0173 -108.2319,66.9999 -108.0163,66.9358 -107.979,66.9368 -107.9688,66.9594 -107.9301,66.9895 -107.8062,66.9959 -107.786,66.9923 -107.7279,66.977 -107.6772,66.9636 -107.6559,66.9657 -107.6525,67.0555 -107.7198,67.1488 -107.7625,67.1865 -107.7974,67.2092 -107.8403,67.2197 -107.9105,67.2438 -108.0727,67.3102 -108.0899,67.3344 -108.1149,67.3509 -108.1596,67.3588 -108.2126,67.3438 -108.2124,67.3023 -108.204,67.2756 -108.2335,67.2618 -108.2471,67.2612 -108.2681,67.2715 -108.2957,67.3695 -108.2887,67.404 -108.3564,67.5216 -108.3895,67.537 -108.4369,67.5424 -108.4751,67.5389 -108.4965,67.5278 -108.5117,67.5141 -108.511,67.4753 -108.5105,67.3982 -108.5173,67.3655 -108.5363,67.3187 -108.576,67.2701 -108.603,67.2661 -108.6245,67.3031 -108.768,67.3542 -108.7922,67.3768 -108.791,67.405 -108.7726,67.415 -108.7325,67.4243 -108.6943,67.4469 -108.7819,67.5834 -108.8356,67.6259 -108.9318,67.641 -108.9829,67.6458 -109.0262,67.6457 -109.1424,67.643 -109.2674,67.6127 -109.289,67.6025 -109.3154,67.6005 -109.5029,67.6323 -109.517,67.6497 -109.5003,67.6813 -109.5021,67.7057 -109.538,67.7411 -109.5875,67.7767 -109.6325,67.7883 -109.6606,67.7933 -109.7184,67.7936 -109.6851,67.7617 -109.7014,67.7472 -109.7262,67.7437 -109.7559,67.7542 -109.7728,67.7816 -109.7617,67.8049 -109.744,67.8338 -109.7415,67.8684 -109.7707,67.8928 -109.8183,67.9108 -109.847,67.9186 -109.8931,67.9215 -109.9266,67.9172 -109.9455,67.91 -109.9686,67.8856 -110.1093,67.8787 -110.1836,67.8609 -110.5061,67.7762 -110.5275,67.7661 -110.5546,67.7501 -110.5787,67.7323 -110.6052,67.7159 -110.7808,67.6778 -110.803,67.6778 -110.889,67.6946 -110.9175,67.7441 -110.9439,67.751 -110.9681,67.7475 -111.0588,67.729 -111.0853,67.7223 -111.1387,67.6948 -111.2263,67.6767 -111.3402,67.6583 -111.4274,67.6472 -111.5668,67.6645 -111.6499,67.6681 -111.6796,67.6679 -111.9496,67.6414 -112.109,67.6043 -112.1361,67.5959 -112.1619,67.5931 -112.505,67.5833 -112.7299,67.5837 -112.8146,67.58 -112.8325,67.5812 -112.8779,67.5904 -112.9201,67.606 -112.9425,67.6116 -112.9713,67.6164 -113.0125,67.6181 -113.3145,67.6116 -113.472,67.6056 -113.5318,67.605 -113.6087,67.6053 -113.6554,67.6107 -113.7122,67.6252 -113.7527,67.6354 -113.8768,67.6476 -113.9104,67.6508 -113.9503,67.6514 -113.9821,67.6476 -114.0077,67.6401 -114.0396,67.6321 -114.0597,67.6325 -114.4094,67.697 -114.4426,67.7162 -114.4739,67.7254 -114.5059,67.7284 -114.5435,67.7281 -114.5703,67.7259 -114.6094,67.7215 -114.6469,67.7165 -114.6964,67.7091 -114.766,67.7005 -114.7888,67.7004 -114.8687,67.7111 -114.9551,67.7337 -115.0382,67.7773 -115.2812,67.8074 -115.2942,67.8344 -115.2618,67.8479 -115.1008,67.8714 -114.9696,67.8903 -114.8797,67.9282 -114.9227,67.9346 -114.9711,67.936 -114.9994,67.951 -114.9901,68.0946 -114.9286,68.0935 -114.8351,68.0817 -114.7661,68.0702 -114.736,68.0661 -114.6885,68.0606 -114.6551,68.0599 -114.6255,68.0652 -114.519,68.1006 -114.4614,68.1628 -114.2326,68.1764 -114.193,68.1755 -114.171,68.172 -114.1399,68.1596 -114.1045,68.1448 -114.0797,68.1417 -114.0478,68.1418 -113.7814,68.1568 -113.8257,68.3818 -113.8476,68.4086 -113.8727,68.4257 -113.9918,68.4816 -114.0623,68.499 -114.1575,68.525 -114.2185,68.5742 -114.2016,68.5997 -114.2994,68.6314 -114.3352,68.6399 -114.4222,68.6535 -114.4624,68.6533 -114.4857,68.656 -114.5054,68.6632 -114.531,68.6859 -114.5478,68.711 -114.5775,68.7212 -114.7391,68.7724 -114.7808,68.7799 -114.8127,68.7797 -115.2001,68.8491 -115.3464,68.8829 -115.5859,68.9037 -115.5626,68.8634 -115.5275,68.85 -115.6287,68.8351 -115.7209,68.8499 -115.7602,68.8577 -115.8212,68.8717 -115.9495,68.8952 -115.9915,68.8966 -116.0134,68.8911 -116.0715,68.8678 -115.8746,68.7841 -115.7005,68.7258 -115.7135,68.7163 -115.7471,68.7182 -115.8676,68.7292 -115.9752,68.7474 -116.0381,68.7714 -116.0927,68.7866 -116.1254,68.7931 -116.1585,68.7851 -116.1803,68.7703 -116.2596,68.7692 -116.4959,68.7919 -116.6376,68.8204 -116.69,68.8223 -116.7218,68.8139 -116.8959,68.797 -116.9414,68.8053 -117.0191,68.8267 -117.1654,68.8651 -117.3118,68.8799 -117.3454,68.8831 -117.3828,68.885 -117.491,68.8895 -117.5856,68.8939 -117.6189,68.8969 -117.7584,68.9256 -117.7833,68.9311 -117.8296,68.9427 -117.9335,68.9748 -118.1791,69.0232 -118.2044,69.0286 -118.2403,69.0418 -118.2924,69.0701 -118.3275,69.0911 -118.3937,69.1239 -118.439,69.1345 -118.5452,69.1541 -118.5932,69.1623 -118.6857,69.1701 -118.9738,69.205 -119.0691,69.2122 -119.2049,69.214 -119.3782,69.2264 -119.6685,69.2494 -119.7241,69.2553 -119.9731,69.3022 -120.0162,69.3146 -120.1342,69.3502 -120.356,69.4305 -120.4181,69.4564 -120.4405,69.4689 -120.4752,69.4918 -120.4996,69.5083 -120.5353,69.5232 -120.5645,69.5335 -120.6197,69.549 -120.6725,69.5585 -120.7471,69.5684 -120.7738,69.5733 -120.8244,69.5837 -120.8579,69.5926 -120.9206,69.6122 -121.0231,69.639 -121.0703,69.6504 -121.1176,69.6621 -121.1533,69.6704 -121.1795,69.6754 -121.4199,69.7033 -121.4552,69.7055 -121.6318,69.715 -121.7882,69.7232 -121.8627,69.712 -121.9779,69.7119 -122.2021,69.7123 -122.3222,69.7171 -122.3494,69.722 -122.3981,69.7276 -122.4843,69.7115 -122.5068,69.7053 -122.5341,69.7031 -122.5592,69.7062 -122.5872,69.7128 -122.6101,69.7199 -122.6381,69.7317 -122.6942,69.7417 -122.7487,69.728 -122.8383,69.6889 -122.8427,69.6562 -122.8299,69.5885 -122.8632,69.4757 -122.9002,69.4085 -122.9206,69.4018 -122.9978,69.4127 -123.0352,69.4168 -123.0738,69.4125 -123.0991,69.4084 -123.1338,69.4006 -123.1731,69.3773 -123.1847,69.3601 -123.1706,69.3357 -123.1475,69.3207 -123.2062,69.2928 -123.2372,69.2876 -123.4074,69.2643 -123.4317,69.2745 -123.4642,69.2881 -123.5576,69.2992 -123.6956,69.2937 -123.7497,69.2896 -123.8284,69.2655 -123.8533,69.262 -123.895,69.2599 -123.952,69.2582 -123.9964,69.2591 -124.0585,69.2624 -124.1791,69.2776 -124.2085,69.2866 -124.2483,69.3124 -124.1269,69.397 -124.1096,69.4072 -124.0661,69.4272 -124.012,69.4438 -123.9769,69.458 -123.9436,69.4963 -123.7866,69.5803 -123.7724,69.6112 -123.8011,69.6335 -123.9348,69.6382 -123.9695,69.6268 -124.0058,69.6068 -124.026,69.6052 -124.0922,69.611 -124.1897,69.6208 -124.2268,69.6337 -124.2316,69.6943 -124.2096,69.7132 -124.1797,69.736 -124.1593,69.7591 -124.1885,69.8656 -124.1509,69.896 -124.101,69.9382 -124.0841,69.9773 -124.1151,70.0427 -124.1598,70.0593 -124.4189,70.0555 -124.4687,70.0328 -124.452,69.9988 -124.405,70.003 -124.3498,70.0137 -124.3159,70.0232 -124.2726,70.0186 -124.2374,70.0104 -124.17,69.9867 -124.1496,69.9653 -124.1804,69.9468 -124.29,69.9213 -124.3249,69.9258 -124.3648,69.9763 -124.3998,69.9808 -124.4389,69.9779 -124.5388,69.9704 -124.6595,69.9533 -124.6737,69.938 -124.5893,69.9383 -124.6281,69.9303 -124.7616,69.928 -124.7206,69.9471 -124.7031,69.9705 -124.7184,69.9878 -124.7405,69.9848 -124.9246,69.9118 -124.9357,69.8458 -124.8402,69.8551 -124.8139,69.8777 -124.7743,69.8994 -124.7529,69.9074 -124.7176,69.9152 -124.6143,69.9209 -124.5541,69.9216 -124.5228,69.9182 -124.4929,69.88 -124.6215,69.8498 -124.672,69.8231 -124.7379,69.755 -124.7609,69.727 -124.7855,69.705 -124.8926,69.7083 -124.8854,69.7306 -124.8929,69.7613 -124.9263,69.7614 -124.9534,69.7494 -125.0044,69.7177 -124.987,69.6938 -124.963,69.6695 -124.7431,69.6603 -124.6209,69.6589 -124.5911,69.6455 -124.5555,69.6268 -124.6113,69.5804 -124.6362,69.564 -124.6546,69.5546 -124.6653,69.5883 -124.7032,69.6395 -124.7374,69.6493 -124.7787,69.6528 -124.8012,69.6529 -125.0922,69.599 -125.1408,69.5458 -124.9901,69.4352 -124.9461,69.4232 -124.9156,69.4175 -124.8625,69.3985 -125.0369,69.4104 -125.1868,69.4227 -125.212,69.419 -125.3073,69.3819 -125.3464,69.3312 -125.2602,69.3455 -125.1925,69.3629 -124.8484,69.3764 -124.8201,69.3601 -124.8425,69.3262 -124.862,69.3034 -124.8962,69.2921 -124.9408,69.2924 -125.1078,69.3064 -125.1261,69.283 -125.0994,69.2497 -125.1513,69.2233 -125.2814,69.2478 -125.5689,69.2995 -125.614,69.3097 -125.6395,69.3161 -125.6916,69.3315 -125.7177,69.3409 -125.7652,69.3599 -125.7782,69.3631 -125.8169,69.3728 -125.8406,69.3797 -125.9891,69.4426 -126.0178,69.4687 -126.1861,69.554 -126.3276,69.6224 -126.3464,69.6299 -126.402,69.6558 -126.4303,69.6757 -126.4687,69.7236 -126.5332,69.8112 -126.6092,69.914 -126.7521,70.0574 -126.7725,70.0864 -126.7936,70.1046 -126.8419,70.1454 -126.8973,70.1845 -126.965,70.2222 -126.9904,70.234 -127.1434,70.3012 -127.2302,70.3337 -127.3938,70.3936 -127.5482,70.4484 -127.6161,70.4698 -127.6834,70.4913 -127.7135,70.4972 -127.8479,70.4307 -127.8687,70.405 -127.89,70.3685 -127.9035,70.3445 -127.9108,70.3049 -127.8657,70.2898 -127.7785,70.2853 -127.7354,70.2827 -127.6959,70.2939 -127.6679,70.3019 -127.6458,70.3048 -127.6226,70.303 -127.6618,70.2606 -127.6949,70.2536 -127.7409,70.2487 -127.7639,70.2531 -127.7856,70.2546 -127.781,70.2153 -127.7469,70.1965 -127.5822,70.172 -127.5071,70.168 -127.4396,70.1686 -127.3288,70.1558 -127.2937,70.1511 -127.2667,70.1445 -127.2324,70.132 -127.266,70.1349 -127.3011,70.1376 -127.3307,70.137 -127.564,70.1171 -127.6838,70.0911 -127.7181,70.0873 -127.7721,70.0863 -127.8169,70.0907 -127.9592,70.0546 -128.0259,70.0355 -128.0582,70.0255 -128.0784,70.0133 -128.0748,69.9603 -128.0301,69.9194 -128.0378,69.8628 -128.1626,69.8314 -128.2654,69.7947 -128.3605,69.7525 -128.5067,69.6704 -128.6461,69.5908 -128.691,69.585 -128.8506,69.598 -128.8717,69.6105 -128.8842,69.7391 -128.8591,69.7514 -128.8294,69.7572 -128.8022,69.7601 -128.7579,69.7616 -128.6839,69.7528 -128.6606,69.7526 -128.5769,69.8665 -128.6133,69.8796 -128.6601,69.8792 -128.6887,69.8694 -128.7138,69.8489 -128.7404,69.8114 -128.77,69.7883 -128.819,69.7685 -128.8682,69.7596 -128.8995,69.7586 -128.9621,69.7595 -129.0346,69.7561 -129.1322,69.7478 -129.3207,69.7283 -129.3427,69.722 -129.3717,69.7102 -129.3913,69.7022 -129.4105,69.6941 -129.7512,69.6419 -129.999,69.6101 -130.0821,69.5899 -130.107,69.5587 -130.1967,69.4847 -130.2344,69.4582 -130.4334,69.3724 -130.4661,69.3595 -130.3766,69.3669 -130.3763,69.3432 -130.4138,69.3148 -130.4419,69.3132 -130.4847,69.3108 -130.5357,69.2878 -130.6626,69.1781 -130.658,69.143 -130.6482,69.0563 -130.6568,69.0455 -130.7269,69.0479 -130.7439,69.1206 -130.7196,69.1675 -130.6824,69.196 -130.6548,69.2131 -130.6292,69.2343 -130.6195,69.2573 -130.6211,69.2917 -130.6407,69.2958 -130.6753,69.2824 -130.7252,69.2393 -130.7424,69.2201 -130.7486,69.2532 -130.7041,69.2935 -130.6625,69.3265 -130.6422,69.3591 -130.6638,69.4451 -130.7027,69.4518 -130.7092,69.413 -130.7079,69.3595 -130.7447,69.2944 -130.769,69.2651 -130.8241,69.237 -130.7884,69.2781 -130.7533,69.3366 -130.7456,69.3742 -130.7476,69.3961 -130.7632,69.4346 -130.8094,69.5171 -130.8474,69.5246 -130.8975,69.5132 -130.9105,69.492 -130.8735,69.4747 -130.8446,69.4645 -130.8261,69.4538 -130.8065,69.4421 -130.7811,69.4228 -130.7836,69.4013 -130.7784,69.3811 -130.8029,69.351 -130.819,69.3044 -130.8527,69.2753 -130.8661,69.3141 -130.8479,69.3398 -130.8279,69.3957 -130.8472,69.4266 -130.8674,69.4289 -130.9237,69.4673 -130.9422,69.491 -130.9703,69.4821 -130.9478,69.4539 -130.8804,69.4034 -130.884,69.3155 -130.909,69.2775 -131.0479,69.2288 -131.1326,69.2097 -131.1169,69.227 -131.0356,69.2693 -130.9842,69.2862 -130.9547,69.294 -130.9293,69.3072 -130.9292,69.3277 -130.9366,69.3611 -130.9565,69.4016 -130.9813,69.4116 -131.0386,69.4037 -131.0945,69.3379 -131.1073,69.3147 -131.1295,69.2794 -131.217,69.2429 -131.2476,69.2421 -131.1977,69.3168 -131.1742,69.3292 -131.1497,69.3434 -131.1689,69.358 -131.3157,69.3822 -131.3621,69.3829 -131.6805,69.3102 -131.5232,69.302 -131.4435,69.3106 -131.5132,69.2336 -131.5869,69.1919 -131.6808,69.1675 -131.713,69.1625 -131.7746,69.153 -131.8337,69.1528 -131.8847,69.1246 -131.9395,69.0528 -131.9403,69.1244 -132.0297,69.145 -132.0551,69.1312 -132.0816,69.0759 -132.0985,69.0532 -132.1245,69.0356 -132.1451,69.0287 -132.1798,69.0257 -132.257,69.0464 -132.3891,68.9955 -132.4788,68.9962 -132.5263,68.9991 -132.584,68.9751 -132.5845,68.9327 -132.5763,68.9004 -132.5505,68.8293 -132.4902,68.7712 -132.4112,68.7522 -132.3894,68.7528 -132.2732,68.7899 -132.2582,68.8077 -132.2855,68.8183 -132.2159,68.8195 -132.1161,68.7693 -132.1964,68.7163 -132.4714,68.7143 -132.5036,68.73 -132.5789,68.7558 -132.6537,68.7666 -132.6757,68.7587 -132.7225,68.7267 -132.7792,68.7144 -132.8087,68.7139 -132.8319,68.716 -132.8745,68.7389 -132.9047,68.7606 -132.9462,68.7713 -132.988,68.7696 -133.049,68.7554 -133.0703,68.7439 -133.0713,68.7136 -133.047,68.7003 -133.01,68.7032 -132.9595,68.7084 -132.9284,68.7024 -132.8641,68.6732 -132.92,68.6759 -132.9378,68.6863 -132.959,68.6986 -132.9806,68.6938 -132.9741,68.6726 -132.865,68.6315 -132.8301,68.6267 -132.7583,68.6265 -132.7324,68.6316 -132.6665,68.6259 -132.645,68.6144 -132.6365,68.6023 -132.6688,68.6093 -132.706,68.6095 -132.7349,68.6042 -132.7635,68.6029 -132.8078,68.6069 -132.8816,68.6189 -133.0384,68.658 -133.122,68.6839 -133.1756,68.7032 -133.1937,68.716 -133.208,68.7357 -133.2008,68.7616 -133.1794,68.8021 -133.1048,68.8217 -133.0804,68.8136 -133.1113,68.7942 -133.0863,68.7794 -133.0579,68.7772 -133.0346,68.7816 -132.9461,68.8226 -132.9291,68.8493 -132.9159,68.8925 -132.9298,68.9104 -132.9169,68.9414 -132.8933,68.9531 -132.8218,68.9617 -132.7666,68.9658 -132.6623,68.9487 -132.6213,68.954 -132.623,69.0328 -132.4794,69.1625 -132.4547,69.1715 -132.4273,69.1782 -132.3015,69.1981 -132.2689,69.1951 -132.2436,69.1898 -132.0447,69.2251 -131.8325,69.2679 -131.8029,69.289 -131.845,69.3146 -131.7954,69.3913 -131.758,69.4162 -131.7171,69.4394 -131.464,69.4775 -131.4366,69.4754 -131.4141,69.466 -131.3029,69.4777 -131.1238,69.4967 -131.0448,69.4901 -130.9049,69.534 -130.8799,69.5377 -130.7695,69.5472 -130.7539,69.5137 -130.6618,69.4755 -130.6411,69.4752 -130.5579,69.5128 -130.554,69.5212 -130.5564,69.5333 -130.502,69.5846 -130.4744,69.5925 -130.421,69.598 -130.3643,69.6013 -130.3386,69.6053 -130.2955,69.618 -130.2812,69.6336 -130.2128,69.6912 -129.9454,69.75 -129.7104,69.8021 -129.6071,69.8265 -129.313,69.9007 -129.2914,69.9069 -129.2142,69.9295 -129.1483,69.9768 -129.1206,70.0118 -129.1716,70.056 -129.3209,70.1214 -129.3584,70.1599 -129.3934,70.1735 -129.4422,70.1612 -129.5011,70.1282 -129.5437,70.104 -129.5578,70.0633 -129.5761,70.0352 -129.603,70.0013 -129.6389,69.9872 -129.6822,69.9794 -129.8899,69.9623 -130.0376,70.0147 -130.0644,70.0407 -130.1175,70.0489 -130.1429,70.0342 -130.204,70.0114 -130.2404,70.014 -130.2563,70.0277 -130.2269,70.0688 -130.1895,70.0764 -130.2583,70.0753 -130.3663,70.0171 -130.4591,69.9907 -130.6018,70.0076 -130.6405,69.9916 -130.7293,69.9347 -130.7247,69.8963 -130.7463,69.8587 -130.7927,69.798 -130.906,69.7346 -130.9299,69.7482 -130.9286,69.7722 -130.9186,69.7972 -130.9504,69.8353 -130.9835,69.8472 -131.0629,69.8619 -131.1309,69.8635 -131.1617,69.8282 -131.3377,69.7808 -131.3589,69.7747 -131.4746,69.734 -131.475,69.713 -131.5542,69.6768 -131.5808,69.6734 -131.6683,69.6644 -131.7971,69.6383 -131.8272,69.63 -131.8609,69.5951 -131.877,69.5952 -131.9196,69.5992 -132.0026,69.6347 -132.1128,69.6616 -132.1861,69.6574 -132.2486,69.65 -132.2955,69.5974 -132.2647,69.5943 -132.231,69.5934 -132.1717,69.6123 -132.0483,69.5826 -132.0865,69.5571 -132.1075,69.5504 -132.1312,69.5457 -132.2573,69.5407 -132.3308,69.5543 -132.3753,69.5613 -132.5006,69.5698 -132.5337,69.5704 -132.5771,69.5683 -132.6063,69.5638 -132.6258,69.5563 -132.6967,69.5089 -132.6695,69.4812 -132.6795,69.422 -132.7127,69.3923 -132.7866,69.3454 -132.9191,69.3093 -132.9393,69.3072 -133.032,69.3141 -133.077,69.3214 -133.1207,69.3253 -133.2633,69.3163 -133.3767,69.2982 -133.5844,69.2338 -133.604,69.204 -133.6412,69.193 -133.7415,69.1777 -133.7742,69.174 -133.8475,69.1726 -133.8705,69.1674 -133.9313,69.1305 -133.9353,69.0939 -134.06,69.0154 -134.1681,69.017 -134.2041,69.0153 -134.2496,69.0048 -134.2707,68.9962 -134.3395,68.9218 -134.3318,68.8994 -134.2712,68.8446 -134.255,68.8313 -134.137,68.7432 -134.032,68.6814 -134.0051,68.6634 -134.0655,68.6765 -134.0904,68.6825 -134.1224,68.6925 -134.15,68.7091 -134.1663,68.731 -134.1832,68.7607 -134.2022,68.7818 -134.2241,68.7966 -134.3104,68.843 -134.3783,68.8704 -134.3826,68.884 -134.3871,68.9242 -134.2889,69.0133 -134.2432,69.0236 -134.1894,69.029 -134.1613,69.0309 -134.103,69.0289 -133.9915,69.0956 -133.9902,69.1292 -133.9268,69.1841 -133.7974,69.2512 -133.6763,69.3106 -133.6531,69.3155 -133.6326,69.3228 -133.5885,69.3433 -133.5621,69.356 -133.5296,69.3743 -133.5101,69.3914 -133.4609,69.4549 -133.4962,69.4866 -133.528,69.4737 -133.5828,69.4262 -133.6295,69.4185 -133.6653,69.418 -133.6885,69.4388 -133.7155,69.4642 -133.7395,69.4699 -133.7724,69.4659 -133.8006,69.4545 -133.8237,69.449 -133.9529,69.4868 -133.9101,69.5287 -133.8872,69.5502 -133.9133,69.5789 -134.0188,69.6255 -134.1954,69.6217 -134.1516,69.5906 -134.1125,69.5552 -134.1786,69.4529 -134.1526,69.4198 -134.1202,69.3969 -134.1276,69.376 -134.1486,69.365 -134.1855,69.3541 -134.2063,69.3522 -134.2412,69.356 -134.2752,69.3626 -134.3186,69.379 -134.3452,69.386 -134.3958,69.3914 -134.6245,69.3955 -134.7055,69.3944 -134.8614,69.3859 -134.9922,69.3308 -134.9492,69.2424 -134.8737,69.1868 -134.886,69.1702 -134.9467,69.1779 -134.9675,69.182 -135.0328,69.1959 -135.0914,69.2139 -135.1222,69.2336 -135.1576,69.2428 -135.1946,69.2458 -135.2726,69.2493 -135.5066,69.2285 -135.5527,69.2095 -135.559,69.1821 -135.5194,69.1537 -135.3448,69.0643 -135.3169,69.0561 -135.2014,69.0297 -135.2702,69.0283 -135.3711,69.0564 -135.4557,69.0887 -135.5304,69.1262 -135.6035,69.1643 -135.629,69.1669 -135.6616,69.1446 -135.675,69.1171 -135.6604,69.0537 -135.6326,69.0019 -135.4308,68.9574 -135.2353,68.9343 -135.2892,68.9173 -135.3452,68.9042 -135.3595,68.903 -135.4804,68.9004 -135.5128,68.9005 -135.5415,68.907 -135.56,68.9187 -135.5984,68.9373 -135.6712,68.9561 -135.695,68.9451 -135.7098,68.8571 -135.6582,68.8361 -135.6161,68.8228 -135.5931,68.8168 -135.554,68.8088 -135.5189,68.8068 -135.4799,68.8079 -135.1621,68.8493 -135.1326,68.8401 -135.1032,68.8382 -135.0725,68.8382 -134.9743,68.845 -134.945,68.8461 -134.9133,68.8442 -134.8863,68.8276 -134.8462,68.8117 -134.7162,68.8036 -134.6805,68.8035 -134.6428,68.818 -134.6308,68.8568 -134.6132,68.8814 -134.5652,68.8876 -134.538,68.89 -134.4957,68.8765 -134.4736,68.8603 -134.4543,68.8467 -134.3827,68.8058 -134.2505,68.6986 -134.1742,68.6334 -134.1509,68.6255 -134.1034,68.6191 -134.072,68.6147 -133.9831,68.6078 -133.9402,68.6094 -133.998,68.5934 -134.023,68.5899 -134.0551,68.5909 -134.089,68.5943 -134.1159,68.5997 -134.1612,68.612 -134.184,68.6211 -134.203,68.647 -134.3551,68.768 -134.3828,68.7849 -134.4219,68.8042 -134.4588,68.8191 -134.523,68.8358 -134.5644,68.8401 -134.5988,68.8282 -134.6299,68.8095 -134.6638,68.7927 -134.69,68.7896 -134.8341,68.8049 -134.9027,68.8152 -134.9238,68.8316 -134.9464,68.8376 -135.0475,68.829 -135.3286,68.798 -135.311,68.7828 -135.272,68.7718 -135.2397,68.7677 -135.2063,68.7663 -135.1335,68.7603 -135.057,68.7473 -135.117,68.7436 -135.1579,68.7482 -135.2069,68.749 -135.1939,68.721 -135.0563,68.6494 -134.9668,68.6187 -134.9276,68.6049 -134.8603,68.5732 -134.8735,68.569 -134.9239,68.5733 -135.0783,68.5877 -135.1197,68.592 -135.1663,68.6211 -135.2007,68.645 -135.2319,68.6577 -135.2528,68.6642 -135.5429,68.7435 -135.5699,68.7505 -135.6971,68.7763 -135.7381,68.7847 -135.8073,68.7936 -135.8549,68.7973 -135.9658,68.8007 -136.0683,68.8053 -136.1026,68.8088 -136.13,68.8129 -136.1866,68.8221 -136.2246,68.8211 -136.3291,68.8033 -136.3517,68.793 -136.3714,68.7883 -136.369,68.4922 24,-2.0,Greenland -55.3901,71.8324 -55.3499,71.8212 -55.2881,71.803 -55.2831,71.7914 -55.2953,71.7822 -55.315,71.7714 -55.3856,71.734 -55.3964,71.7289 -55.4106,71.7262 -55.429,71.724 -55.4731,71.7223 -55.538,71.7275 -55.5565,71.7303 -55.5806,71.7367 -55.6022,71.7447 -55.6654,71.7785 -55.67,71.7906 -55.6251,71.8057 -55.5919,71.8118 -55.557,71.8174 -55.4355,71.8348 -55.4177,71.8354 -55.3901,71.8324 -55.3901,71.8324 20,-6.0,Canada -95.074,71.6685 -95.0877,71.6422 -95.1019,71.6376 -95.1173,71.6362 -95.1752,71.6344 -95.2128,71.6349 -95.2481,71.6383 -95.2636,71.6472 -95.2267,71.7234 -95.2168,71.7288 -95.1972,71.7335 -95.1607,71.7409 -95.1254,71.7451 -95.1051,71.7469 -95.0784,71.7486 -95.0633,71.7478 -95.0523,71.7448 -95.0383,71.7358 -95.074,71.6685 -95.074,71.6685 17,10.0,Russia 138.1465,71.5585 138.1269,71.5607 138.1106,71.5651 138.0511,71.5879 138.1881,71.6129 138.2072,71.6143 138.3056,71.6112 138.3453,71.6068 138.3855,71.5975 138.3981,71.5912 138.3793,71.5851 138.3598,71.5812 138.3403,71.5782 138.3017,71.5734 138.2048,71.5635 138.1465,71.5585 138.1465,71.5585 28,-5.0,Canada -73.0425,71.6037 -73.0197,71.6022 -72.9968,71.5972 -72.9805,71.5839 -73.0,71.5733 -73.0506,71.5651 -73.0787,71.5576 -73.0917,71.5529 -73.112,71.543 -73.1331,71.5269 -73.1521,71.5075 -73.1613,71.4934 -73.1687,71.4734 -73.182,71.4629 -73.2,71.4598 -73.2238,71.4597 -73.2361,71.4615 -73.2478,71.4662 -73.2581,71.4721 -73.2663,71.4784 -73.2792,71.4921 -73.2743,71.5015 -73.2176,71.5393 -73.1773,71.5634 -73.1051,71.5968 -73.0725,71.6015 -73.0425,71.6037 -73.0425,71.6037 28,-2.0,Greenland -53.0943,71.4316 -53.1177,71.4329 -53.2816,71.4508 -53.311,71.4576 -53.3261,71.4702 -53.3419,71.5088 -53.347,71.5619 -53.3082,71.5715 -53.2672,71.5744 -53.2235,71.5748 -53.1615,71.5751 -53.1245,71.574 -53.0099,71.5668 -52.7658,71.5585 -52.7438,71.559 -52.7031,71.5613 -52.65,71.5668 -52.6343,71.5625 -52.6764,71.5399 -52.7107,71.525 -52.7523,71.5152 -52.8255,71.5007 -52.9765,71.4526 -52.9907,71.4438 -53.0053,71.4406 -53.0527,71.433 -53.0943,71.4316 -53.0943,71.4316 30,-5.0,Canada -72.7547,71.5544 -72.6369,71.564 -72.6116,71.5658 -72.5757,71.5648 -72.5572,71.5635 -72.5396,71.5601 -72.5264,71.556 -72.515,71.548 -72.4924,71.5064 -72.5022,71.4908 -72.5135,71.4801 -72.5324,71.4627 -72.5469,71.4501 -72.5585,71.4437 -72.5738,71.4396 -72.592,71.4374 -72.6174,71.4357 -72.6617,71.4366 -72.6798,71.4375 -72.6983,71.4393 -72.7806,71.4523 -72.8131,71.4589 -72.8394,71.4662 -72.851,71.4711 -72.8632,71.479 -72.8666,71.4932 -72.7983,71.5419 -72.7785,71.5499 -72.7547,71.5544 -72.7547,71.5544 68,12.0,Russia -179.5889,70.9036 -179.582,71.4413 -179.5098,71.4407 -179.4831,71.4541 -179.2112,71.4822 -179.0855,71.4714 -178.8892,71.4568 -178.8062,71.47 -178.7794,71.4864 -178.6278,71.5025 -178.3331,71.4854 -178.1541,71.4695 -178.0154,71.4463 -177.981,71.4404 -177.9254,71.4282 -177.9097,71.4155 -177.8253,71.3827 -177.7949,71.3807 -177.7702,71.3813 -177.7493,71.3843 -177.7199,71.3841 -177.6497,71.3678 -177.5997,71.3526 -177.5813,71.3314 -177.551,71.3016 -177.4234,71.2519 -177.3409,71.225 -177.2855,71.2071 -177.2205,71.1884 -177.1926,71.1854 -177.169,71.1876 -177.1483,71.1905 -177.0947,71.1833 -177.0528,71.1548 -177.034,71.1353 -177.0815,71.0803 -177.1069,71.067 -177.2206,71.0205 -177.3044,70.9994 -177.5243,70.9457 -177.5823,70.9399 -177.6309,70.9388 -177.6709,70.9413 -177.7152,70.9421 -177.7639,70.9406 -177.8165,70.9371 -177.837,70.9342 -177.8907,70.9232 -177.9508,70.9141 -178.0561,70.9072 -178.1071,70.9044 -178.2039,70.9018 -178.3356,70.8928 -178.4113,70.8867 -178.4574,70.8817 -178.4774,70.8783 -178.5445,70.8633 -178.6244,70.8505 -178.8437,70.8174 -178.8669,70.8146 -178.9172,70.8119 -179.0871,70.8204 -179.1696,70.8415 -179.3355,70.8713 -179.5196,70.9036 -179.5618,70.9051 -179.5889,70.9036 -179.5889,70.9036 44,10.0,Russia 137.6452,71.4132 137.6416,71.4084 137.6019,71.3918 137.4869,71.3449 137.4723,71.3395 137.3779,71.3201 137.3592,71.3171 137.2786,71.3348 137.2497,71.3466 137.2217,71.3678 137.2104,71.377 137.1941,71.3818 137.0009,71.3997 136.9619,71.3991 136.9519,71.3906 137.0175,71.3693 137.0375,71.3645 137.0571,71.3637 137.0765,71.3641 137.0886,71.3592 137.0729,71.3382 137.0542,71.3327 137.0345,71.3325 137.0152,71.3334 136.9954,71.3355 136.8098,71.3796 136.7892,71.3858 136.6756,71.4238 136.6912,71.4335 136.7104,71.4374 136.9138,71.4789 136.9523,71.4843 136.9711,71.486 137.1074,71.4906 137.4109,71.4995 137.4303,71.4995 137.5099,71.4881 137.5299,71.485 137.5701,71.4756 137.583,71.4692 137.5913,71.4633 137.6266,71.433 137.6452,71.4132 137.6452,71.4132 48,-5.0,Canada -72.8924,71.2007 -72.921,71.2196 -72.9946,71.2381 -73.0299,71.2423 -73.0762,71.2546 -73.1029,71.2683 -73.1072,71.2849 -73.0959,71.3019 -73.0857,71.3178 -73.1277,71.3626 -73.1508,71.375 -73.1777,71.3832 -73.1925,71.3864 -73.2041,71.3913 -73.2085,71.4266 -73.1967,71.4327 -73.0199,71.4706 -73.007,71.4715 -72.9775,71.4695 -72.9622,71.4667 -72.9204,71.4517 -72.9066,71.4409 -72.9474,71.3881 -72.9603,71.3563 -72.9084,71.3717 -72.8702,71.387 -72.847,71.4054 -72.8325,71.4197 -72.8161,71.4267 -72.7979,71.4259 -72.7651,71.4144 -72.6552,71.3579 -72.6519,71.348 -72.6633,71.3414 -72.6813,71.3384 -72.704,71.3362 -72.753,71.3339 -72.8241,71.325 -72.841,71.321 -72.859,71.3096 -72.8392,71.258 -72.8084,71.2332 -72.8044,71.2213 -72.8156,71.2146 -72.8286,71.2099 -72.8571,71.2034 -72.8924,71.2007 -72.8924,71.2007 67,12.0,Russia 179.5823,71.4412 179.5892,70.9036 179.5672,70.9022 179.5475,70.8988 179.4949,70.8875 179.3963,70.8639 179.383,70.8596 179.3727,70.8435 179.3394,70.8249 179.316,70.8149 179.3032,70.8104 179.2705,70.8024 179.1108,70.7839 179.0349,70.7789 178.9988,70.7831 178.9844,70.7875 178.9724,70.7927 178.9562,70.7963 178.9381,70.7984 178.8918,70.7977 178.8657,70.7952 178.6893,70.7741 178.6502,70.7678 178.5789,70.7529 178.5142,70.7369 178.4851,70.7283 178.4459,70.714 178.4299,70.7104 178.4103,70.7066 178.3865,70.7032 178.3787,70.7123 178.3786,70.7415 178.343,70.7991 178.2967,70.8412 178.2408,70.8955 178.2121,70.9381 178.2117,70.9597 178.2232,70.9757 178.2428,70.9932 178.2654,71.0104 178.4482,71.1162 178.4618,71.1235 178.5478,71.1502 178.5971,71.162 178.683,71.1815 178.7854,71.209 178.7984,71.2137 178.8118,71.2183 178.9685,71.2816 179.048,71.3136 179.0552,71.323 179.1155,71.3438 179.1492,71.3514 179.1891,71.3582 179.2384,71.3603 179.2838,71.3598 179.3052,71.3614 179.3486,71.371 179.4478,71.3969 179.4415,71.4092 179.433,71.4167 179.4434,71.422 179.4772,71.4297 179.5144,71.4368 179.5643,71.4415 179.5823,71.4412 179.5823,71.4412 93,3.0,Russia 52.8805,70.8839 52.8968,70.9027 52.8926,70.9123 52.8401,70.9557 52.6848,71.012 52.6582,71.0588 52.6487,71.0676 52.5244,71.1251 52.5097,71.1297 52.4653,71.1441 52.4507,71.1489 52.4271,71.1508 52.4113,71.1497 52.3941,71.1475 52.3794,71.143 52.3411,71.14 52.273,71.1442 52.249,71.1461 52.2275,71.15 52.2091,71.1539 52.176,71.1628 52.1614,71.1675 52.1353,71.1777 52.1128,71.188 52.0973,71.1993 52.0885,71.2147 52.0908,71.2253 52.0972,71.2331 52.109,71.2398 52.1509,71.2551 52.2922,71.2768 52.3099,71.2792 52.5886,71.3068 52.6315,71.3034 52.6565,71.3002 52.7003,71.2926 52.7367,71.2838 52.7696,71.2751 52.8028,71.2631 52.8749,71.2089 52.8899,71.1977 52.8918,71.1841 52.8811,71.1788 52.8628,71.1831 52.8481,71.1877 52.7857,71.2163 52.773,71.2411 52.696,71.2678 52.6593,71.2762 52.6373,71.2798 52.6212,71.2764 52.662,71.2207 52.677,71.2129 52.6915,71.208 52.8413,71.1683 52.9427,71.1415 52.9645,71.1378 52.9869,71.137 53.006,71.138 53.0221,71.1414 53.0339,71.1485 53.0228,71.1539 53.005,71.1516 52.9842,71.1512 52.9595,71.1561 53.0026,71.1726 53.0215,71.1736 53.0453,71.1716 53.0636,71.1672 53.0818,71.1597 53.0957,71.1048 53.0961,71.0657 53.0279,70.9975 53.0149,70.9917 52.9986,70.9881 52.9848,70.9859 52.9625,70.9964 52.9434,70.9953 52.9335,70.9872 52.9274,70.9729 52.9215,70.9285 52.9451,70.9147 52.981,70.9064 53.0025,70.9028 53.0204,70.8948 53.021,70.885 53.008,70.8792 52.9381,70.8693 52.9203,70.8672 52.9001,70.8668 52.8783,70.8742 52.8805,70.8839 52.8805,70.8839 40,-2.0,Greenland -53.0321,71.2486 -53.0077,71.2584 -52.9523,71.2716 -52.8786,71.285 -52.8437,71.2903 -52.8045,71.2905 -52.7818,71.2885 -52.6086,71.2719 -52.5515,71.2646 -52.5338,71.2611 -52.4501,71.2519 -52.4009,71.25 -52.3412,71.2533 -52.3107,71.2577 -52.2974,71.2584 -52.277,71.2543 -52.2079,71.1955 -52.2156,71.1868 -52.2271,71.1809 -52.2402,71.1766 -52.2732,71.1713 -52.2913,71.1699 -52.333,71.1684 -52.3691,71.1648 -52.4714,71.1408 -52.4819,71.1374 -52.4994,71.1278 -52.5173,71.112 -52.5181,71.0945 -52.5189,71.0777 -52.8146,71.0534 -52.8421,71.0558 -52.9556,71.0934 -52.9789,71.1031 -52.9938,71.1121 -53.029,71.1584 -53.0607,71.2266 -53.0467,71.241 -53.0321,71.2486 -53.0321,71.2486 3108,-9.0,United States -164.326,62.3512 -164.3581,62.3886 -164.4568,62.4136 -164.5274,62.4928 -164.4715,62.5125 -164.4263,62.5217 -164.369,62.5374 -164.3295,62.5545 -164.3087,62.5657 -164.1733,62.6696 -164.3382,62.5977 -164.426,62.5813 -164.4657,62.5757 -164.5576,62.6587 -164.5666,62.7044 -164.5556,62.7609 -164.4904,62.8503 -164.4328,62.905 -164.3768,62.9419 -164.3406,62.9502 -164.2413,62.9555 -164.131,62.9533 -164.0567,62.9433 -164.0228,62.931 -163.9972,62.9322 -164.006,62.966 -164.0436,62.9904 -164.1287,63.0008 -164.207,63.0073 -164.263,63.0566 -164.0796,63.1374 -163.984,63.1614 -163.9581,63.1654 -163.8311,63.1817 -163.6733,63.175 -163.4252,63.1407 -163.4051,63.1368 -163.3562,63.0881 -163.2594,63.0624 -163.2202,63.0508 -163.0539,62.9794 -163.0097,62.9563 -162.7931,62.9745 -162.7488,62.9815 -162.5881,63.0515 -162.5572,63.0651 -162.3231,63.17 -162.3031,63.1815 -162.1775,63.2628 -162.0442,63.3687 -161.9874,63.4625 -161.9522,63.4643 -161.9215,63.4623 -161.7628,63.4286 -161.7162,63.4044 -161.7654,63.3734 -161.8244,63.3473 -161.7879,63.354 -161.6434,63.3723 -161.4123,63.3841 -161.2738,63.3748 -161.2511,63.3726 -161.1248,63.3796 -160.9848,63.3989 -160.9467,63.4044 -160.9006,63.4133 -160.8792,63.4185 -160.8597,63.4244 -160.8356,63.4341 -160.502,63.6377 -160.4743,63.6581 -160.4559,63.6872 -160.4481,63.7143 -160.4542,63.7699 -160.4647,63.7957 -160.4987,63.8407 -160.5292,63.8718 -160.557,63.9045 -160.6118,63.9707 -160.6244,63.9921 -160.6305,64.0207 -160.6394,64.0666 -160.6363,64.0983 -160.6302,64.1199 -160.7336,64.2031 -160.7724,64.2208 -160.8492,64.2672 -160.86,64.2955 -160.8698,64.3346 -161.0768,64.3487 -161.1013,64.3498 -161.138,64.3477 -161.177,64.3299 -161.203,64.3092 -161.2093,64.339 -161.1435,64.4294 -161.124,64.4386 -161.0655,64.4566 -161.019,64.4454 -160.9878,64.4394 -160.9005,64.426 -160.8768,64.4234 -160.7987,64.4205 -160.7702,64.4216 -160.7388,64.4239 -160.6981,64.4305 -160.4888,64.5465 -160.4684,64.5784 -160.4637,64.6388 -160.5521,64.7135 -160.639,64.7536 -160.7379,64.7863 -160.7696,64.8005 -160.7909,64.8128 -160.8273,64.8384 -160.8034,64.8404 -160.7741,64.8327 -160.7444,64.8313 -160.6774,64.8579 -160.7184,64.8607 -160.8542,64.8572 -160.8772,64.8525 -160.9907,64.7831 -161.0499,64.7254 -161.0587,64.7058 -161.1051,64.6905 -161.1956,64.6794 -161.2317,64.6841 -161.3163,64.6999 -161.3454,64.7075 -161.369,64.718 -161.4233,64.7153 -161.5193,64.6887 -161.5896,64.6625 -161.6116,64.6409 -161.5753,64.6458 -161.5489,64.6586 -161.5103,64.6707 -161.4761,64.6746 -161.5705,64.6309 -161.6082,64.6257 -161.6651,64.6226 -161.7084,64.6233 -161.7507,64.6333 -161.786,64.636 -161.8655,64.602 -161.8866,64.5905 -161.911,64.5714 -162.0827,64.5021 -162.1719,64.4752 -162.1991,64.4654 -162.2318,64.4516 -162.2608,64.4368 -162.2844,64.4175 -162.2973,64.3922 -162.291,64.3669 -162.3098,64.3078 -162.438,64.2639 -162.4682,64.2565 -162.4941,64.3318 -162.5525,64.4284 -162.6344,64.471 -162.8465,64.5751 -162.9005,64.5747 -162.9415,64.5594 -162.9902,64.5384 -163.0288,64.5108 -162.986,64.4816 -162.9593,64.4729 -162.8355,64.4352 -162.7983,64.4333 -162.7661,64.4402 -162.7174,64.4382 -162.7205,64.4114 -162.8159,64.3329 -162.8684,64.3309 -162.8887,64.3391 -162.926,64.3673 -162.9418,64.3873 -162.9556,64.4045 -163.1008,64.4543 -163.1667,64.4726 -163.2395,64.4865 -163.2845,64.4924 -163.3438,64.4973 -163.4971,64.5092 -163.5268,64.5071 -163.57,64.5019 -163.6105,64.4927 -163.6489,64.4842 -163.6762,64.4819 -163.79,64.4909 -163.9532,64.504 -163.987,64.5045 -164.0249,64.5005 -164.0671,64.4921 -164.2159,64.4527 -164.257,64.4411 -164.3174,64.439 -164.3392,64.4432 -164.3593,64.4472 -164.6057,64.4526 -164.6342,64.4188 -164.5792,64.3764 -164.5183,64.3807 -164.4901,64.387 -164.452,64.3886 -164.4813,64.3797 -164.5334,64.3711 -164.5787,64.3672 -164.7018,64.3641 -164.7137,64.365 -164.7457,64.37 -164.8192,64.3833 -164.8903,64.3979 -164.9328,64.4049 -164.9544,64.408 -165.0093,64.416 -165.0529,64.422 -165.1529,64.435 -165.1873,64.4386 -165.3277,64.4506 -165.5028,64.4661 -165.7922,64.4946 -165.8261,64.4996 -165.858,64.5045 -165.8786,64.5086 -165.9074,64.5159 -166.0184,64.5492 -166.0437,64.5592 -166.0728,64.576 -166.1282,64.621 -166.1592,64.6562 -166.1354,64.7235 -166.0882,64.7358 -166.0746,64.7546 -166.0565,64.8078 -166.0914,64.8385 -166.1843,64.8685 -166.2082,64.8647 -166.365,64.9151 -166.3716,64.9378 -166.3737,64.9577 -166.3906,64.9741 -166.413,64.9844 -166.4329,64.9892 -166.4869,64.9981 -166.5146,65.0068 -166.5596,65.0316 -166.5869,65.0502 -166.6048,65.0654 -166.6265,65.0985 -166.6196,65.14 -166.6025,65.1623 -166.578,65.1817 -166.5389,65.2002 -166.5154,65.1954 -166.5312,65.1749 -166.5704,65.1567 -166.5865,65.1452 -166.6028,65.1211 -166.6034,65.0988 -166.5914,65.0678 -166.4775,65.0408 -166.4556,65.0377 -166.4191,65.0351 -166.3521,65.0352 -166.2793,65.0397 -166.2322,65.0449 -166.2074,65.0527 -166.1364,65.1096 -166.1496,65.1512 -166.0355,65.1889 -165.8797,65.1752 -165.8529,65.1702 -165.8203,65.1604 -165.7878,65.155 -165.7223,65.1685 -165.8225,65.2118 -165.8423,65.2167 -165.8741,65.2223 -165.9073,65.2273 -166.2936,65.2823 -166.4646,65.2944 -166.489,65.296 -166.5888,65.2945 -166.497,65.2731 -166.4656,65.2716 -166.4304,65.2731 -166.4,65.2621 -166.4648,65.2648 -166.4894,65.2661 -166.5229,65.2712 -166.5861,65.2836 -166.6381,65.2938 -166.7138,65.3069 -166.7373,65.3094 -166.8831,65.3208 -166.9566,65.3218 -167.0773,65.3307 -167.1268,65.3382 -167.2546,65.3716 -167.2827,65.3952 -167.399,65.4343 -167.5263,65.468 -167.5786,65.4796 -167.6225,65.4866 -167.6459,65.4888 -167.7016,65.4924 -167.7357,65.5016 -167.7553,65.5165 -167.7921,65.5664 -167.7939,65.5808 -167.7884,65.5876 -167.7641,65.6042 -167.735,65.6195 -167.7097,65.6305 -167.6015,65.6661 -167.5706,65.6729 -167.512,65.6792 -167.5338,65.6525 -167.5929,65.6331 -167.615,65.6271 -167.6547,65.6198 -167.6859,65.6106 -167.7112,65.5941 -167.7251,65.5672 -167.7088,65.5537 -167.6823,65.5536 -167.6508,65.5598 -167.5224,65.5966 -167.2227,65.6413 -167.1643,65.655 -167.1699,65.6865 -167.2137,65.6926 -167.2333,65.7112 -167.1744,65.7467 -167.1529,65.7528 -167.0931,65.7719 -166.9436,65.8071 -166.8854,65.7833 -166.8603,65.7771 -166.8235,65.7742 -166.7837,65.7779 -166.7091,65.7933 -166.6009,65.8292 -166.5438,65.8551 -166.5942,65.8756 -166.6256,65.8872 -166.5715,65.9108 -166.3595,65.9857 -166.272,66.0098 -166.2495,66.0159 -165.9548,66.0904 -165.9229,66.0967 -165.9004,66.0986 -165.8742,66.0976 -165.8285,66.0911 -165.7999,66.0842 -165.7639,66.0693 -165.8069,66.0652 -165.7443,66.0413 -165.7217,66.0378 -165.471,66.02 -165.4448,66.0192 -165.3914,66.0222 -165.176,66.074 -165.321,66.113 -165.378,66.1261 -165.4122,66.1315 -165.4375,66.1328 -165.4944,66.1321 -165.5345,66.1382 -165.5508,66.1531 -165.5325,66.1745 -165.5166,66.1878 -165.498,66.2 -165.4618,66.2196 -165.4204,66.2378 -165.3053,66.2773 -165.1298,66.3167 -164.9877,66.3419 -164.8165,66.3603 -164.7816,66.36 -164.7473,66.3548 -164.6796,66.34 -164.4061,66.4402 -164.3764,66.4567 -164.0808,66.5038 -164.0264,66.5096 -163.9551,66.5138 -163.8245,66.5185 -163.5991,66.5244 -163.504,66.5207 -163.4403,66.5156 -163.3705,66.5055 -163.3491,66.501 -163.3278,66.496 -163.3084,66.4828 -163.3681,66.4838 -163.4935,66.5038 -163.5194,66.5058 -163.5974,66.494 -163.5774,66.4864 -163.5439,66.4846 -163.4956,66.4838 -163.4641,66.4805 -163.4444,66.4723 -163.4224,66.4317 -163.4328,66.3994 -163.4563,66.3768 -163.4875,66.3647 -163.5209,66.3519 -163.5609,66.3087 -163.5569,66.2485 -163.5364,66.225 -163.5247,66.1926 -163.6119,66.148 -163.6474,66.1398 -163.6931,66.1381 -163.7583,66.1309 -163.8413,66.1075 -163.7296,66.106 -163.6584,66.1084 -163.6158,66.112 -163.5565,66.0772 -163.5041,66.0325 -163.4731,66.0189 -163.4035,66.0002 -163.3826,65.9958 -163.3251,65.9876 -163.2962,65.9876 -163.2051,65.9968 -163.1123,66.0034 -163.0117,66.0041 -162.9724,65.9934 -162.9327,65.9872 -162.8335,65.9824 -162.7964,65.9834 -162.6872,65.9971 -162.4624,66.0172 -162.4329,66.0161 -162.3745,66.0012 -162.2329,65.9646 -162.0502,65.9492 -162.0271,65.9504 -162.0004,65.9526 -161.9738,65.9566 -161.9128,65.9687 -161.8808,65.9774 -161.8082,65.9866 -161.7279,65.9857 -161.6551,65.9676 -161.6076,65.9529 -161.57,65.9244 -161.5279,65.8948 -161.4893,65.8921 -161.5133,65.9256 -161.4411,66.0034 -161.3999,66.0272 -161.3524,66.0549 -161.3316,66.0696 -161.2927,66.1145 -161.269,66.1437 -161.2474,66.168 -161.1956,66.1851 -161.1577,66.1866 -161.07,66.1866 -161.0361,66.1777 -161.0087,66.1508 -160.9784,66.1431 -160.9284,66.1383 -160.8674,66.1397 -160.8247,66.1483 -160.8036,66.1569 -160.7783,66.1605 -160.7518,66.1505 -160.7655,66.0871 -160.7915,66.0469 -160.8506,66.0402 -160.8231,66.0327 -160.7902,66.035 -160.7649,66.0392 -160.7303,66.0546 -160.689,66.1005 -160.6761,66.1238 -160.674,66.1631 -160.6924,66.1837 -160.7956,66.2537 -160.831,66.2631 -160.9581,66.2834 -161.1676,66.315 -161.1913,66.3185 -161.2192,66.319 -161.3996,66.3197 -161.543,66.2874 -161.5614,66.2278 -161.5312,66.2012 -161.5477,66.1891 -161.5846,66.1932 -161.6324,66.2519 -161.6222,66.2695 -161.5998,66.2927 -161.5744,66.315 -161.5474,66.3462 -161.5399,66.3702 -161.5398,66.4027 -161.5488,66.4245 -161.5704,66.4463 -161.5996,66.4673 -161.849,66.6085 -161.8922,66.6263 -161.9121,66.6319 -161.9463,66.6376 -161.9701,66.6407 -162.0468,66.6472 -162.1523,66.6502 -162.1723,66.6559 -162.3003,66.781 -162.3,66.8127 -162.2722,66.8257 -162.1785,66.8338 -161.996,66.8709 -161.9693,66.8606 -161.7853,66.7157 -161.7434,66.6185 -161.7468,66.5792 -161.5906,66.4758 -161.5549,66.454 -161.5036,66.433 -161.4759,66.424 -161.3013,66.3721 -161.2654,66.3632 -161.2435,66.3633 -161.1298,66.3753 -161.0139,66.3989 -160.9709,66.4181 -160.949,66.4298 -160.91,66.4481 -160.879,66.4545 -160.8574,66.4547 -160.7262,66.3969 -160.692,66.3789 -160.6095,66.3383 -160.4904,66.2932 -160.4564,66.2873 -160.4202,66.2872 -160.3868,66.2893 -160.3504,66.289 -160.3118,66.2817 -160.207,66.2899 -159.9346,66.3098 -159.9091,66.3145 -159.8891,66.3434 -159.8825,66.4374 -159.9128,66.5599 -159.9367,66.5634 -159.9845,66.5658 -160.0065,66.5644 -160.1791,66.533 -160.1934,66.5117 -160.2214,66.5029 -160.3435,66.5138 -160.3705,66.5192 -160.3908,66.5287 -160.4158,66.5479 -160.4566,66.567 -160.4875,66.5742 -160.51,66.5784 -160.5422,66.5813 -160.6198,66.5797 -160.8112,66.5634 -160.844,66.5549 -160.8667,66.5437 -160.9038,66.4978 -160.9119,66.4696 -160.9515,66.456 -160.9844,66.4503 -161.0522,66.4486 -161.1681,66.4493 -161.3863,66.5443 -161.4822,66.5906 -161.5413,66.6202 -161.5666,66.6439 -161.5569,66.7156 -161.4684,66.8152 -161.3888,66.8657 -161.312,66.8791 -161.2848,66.8731 -161.2619,66.869 -161.2363,66.8667 -161.2002,66.8663 -161.1669,66.8758 -161.1788,66.8993 -161.2051,66.908 -161.3353,66.9355 -161.3584,66.9396 -161.4832,66.9624 -161.5274,66.9665 -161.5659,66.9662 -161.9245,66.9344 -162.1269,66.9132 -162.1083,66.9459 -162.0888,66.9654 -162.0698,66.9833 -162.0181,67.0357 -162.0072,67.0715 -162.049,67.0786 -162.0779,67.074 -162.0425,67.0606 -162.0675,67.0275 -162.1361,66.9774 -162.2252,66.9254 -162.318,66.9259 -162.352,66.9454 -162.3853,66.9669 -162.4178,66.9696 -162.4429,66.9681 -162.4818,66.9608 -162.6176,66.9452 -162.6777,66.9456 -162.7038,66.9477 -162.8078,66.9647 -162.8956,66.9739 -162.9218,66.9758 -163.1269,66.9951 -163.3279,67.0156 -163.3627,67.0214 -163.3899,67.0272 -163.4193,67.0404 -163.4323,67.0647 -163.4402,67.0898 -163.4379,67.1213 -163.4369,67.1439 -163.4434,67.1839 -163.4549,67.2154 -163.4878,67.2754 -163.6177,67.4088 -163.6476,67.4356 -163.6797,67.4608 -163.708,67.48 -163.7597,67.5113 -163.7832,67.5241 -163.8199,67.5379 -163.9097,67.5647 -163.9706,67.5822 -164.1553,67.6413 -164.2098,67.6693 -164.3664,67.7424 -164.4155,67.735 -164.4524,67.7403 -164.7534,67.8564 -164.8641,67.8997 -164.8973,67.9144 -164.9256,67.9244 -164.9947,67.9465 -165.0152,67.9523 -165.0464,67.961 -165.133,67.9812 -165.2038,67.9934 -165.2392,67.9992 -165.2634,68.0027 -165.3411,68.0104 -165.3787,68.0139 -165.4466,68.0186 -165.4729,68.021 -165.5136,68.0279 -165.5408,68.0346 -165.5709,68.0439 -165.6282,68.0642 -165.651,68.078 -165.6675,68.092 -165.6878,68.1124 -165.7247,68.1314 -165.7522,68.142 -165.7814,68.1523 -165.8683,68.1823 -165.9072,68.1955 -165.9435,68.2061 -165.9943,68.2166 -166.029,68.2232 -166.0771,68.2307 -166.2578,68.2498 -166.2961,68.2535 -166.3235,68.2551 -166.3991,68.2551 -166.4417,68.2566 -166.4722,68.2613 -166.3986,68.275 -166.3646,68.2685 -166.3123,68.2636 -166.2383,68.2627 -166.1975,68.2655 -166.0215,68.3292 -166.0374,68.3463 -165.9508,68.411 -165.8921,68.4658 -165.874,68.4845 -165.8457,68.6085 -165.8359,68.6662 -165.84,68.7014 -165.8512,68.7237 -165.8735,68.7571 -165.8784,68.7837 -165.8535,68.7949 -165.8144,68.7955 -165.7399,68.7938 -165.5284,68.7814 -165.4625,68.7746 -165.3779,68.7687 -165.0939,68.7719 -164.958,68.7786 -164.5991,68.7994 -164.4492,68.812 -164.3947,68.8166 -164.3626,68.821 -164.2106,68.8325 -164.0617,68.837 -164.0093,68.8395 -163.9746,68.8421 -163.9219,68.8469 -163.8896,68.8506 -163.8086,68.8666 -163.7575,68.8775 -163.6435,68.9028 -163.5543,68.928 -163.3527,68.9967 -163.2954,69.0181 -163.2497,69.0362 -163.2108,69.056 -163.1762,69.0771 -163.1561,69.0898 -163.1384,69.103 -163.0912,69.1323 -163.0143,69.1794 -162.9921,69.1916 -162.9581,69.2067 -162.9312,69.218 -162.8897,69.2517 -162.8659,69.2902 -162.8489,69.3155 -162.8279,69.3312 -162.8069,69.3313 -162.9067,69.2117 -162.8062,69.2626 -162.7692,69.2952 -162.7134,69.4194 -162.7119,69.4719 -162.6498,69.5852 -162.6205,69.5838 -162.5878,69.604 -162.5872,69.6272 -162.6091,69.633 -162.6297,69.6349 -162.6698,69.6403 -162.6504,69.6624 -162.6053,69.6901 -162.4881,69.7416 -162.414,69.7693 -162.3183,69.8056 -162.2214,69.8473 -162.1603,69.8802 -162.1437,69.8939 -162.1256,69.9226 -161.9908,70.0189 -161.9258,70.0419 -161.8851,70.0559 -161.8358,70.0739 -161.7261,70.1245 -161.702,70.1367 -161.6808,70.1526 -161.656,70.1765 -161.6325,70.1917 -161.6001,70.2079 -161.5808,70.2154 -161.5214,70.2269 -161.4976,70.2261 -161.4065,70.1655 -161.4919,70.1179 -161.5075,70.0857 -161.544,70.0829 -161.5813,70.0855 -161.624,70.0981 -161.6537,70.0993 -161.6747,70.0957 -161.7108,70.0834 -161.754,70.0626 -161.5053,70.0696 -161.4503,70.0886 -161.4256,70.104 -161.3317,70.1387 -161.2807,70.1588 -161.2444,70.1639 -161.1144,70.1596 -160.9815,70.163 -160.9471,70.1661 -160.8574,70.1799 -160.8147,70.1875 -160.5414,70.2439 -160.5157,70.2492 -160.4923,70.2556 -160.4143,70.2783 -160.3909,70.2853 -160.116,70.3824 -159.9933,70.4305 -159.9746,70.438 -159.9554,70.4455 -159.8033,70.4972 -159.5693,70.4944 -159.5648,70.4373 -159.5852,70.4228 -159.7114,70.39 -159.752,70.3872 -159.8347,70.378 -159.8012,70.37 -159.7373,70.3713 -159.6599,70.3798 -159.6478,70.3278 -159.624,70.2761 -159.4798,70.1763 -159.5283,70.3026 -159.505,70.3455 -159.4609,70.392 -159.4025,70.3815 -159.3345,70.374 -159.2964,70.3794 -159.1991,70.3994 -159.0429,70.4126 -158.9478,70.4382 -159.2061,70.432 -159.299,70.4111 -159.3717,70.4011 -159.3888,70.4055 -159.487,70.4685 -159.4987,70.4988 -159.5587,70.5325 -159.5845,70.5411 -159.616,70.5438 -159.636,70.5425 -159.6755,70.5372 -159.7609,70.5197 -159.7491,70.5387 -159.6619,70.5701 -159.5863,70.5936 -159.5629,70.5998 -159.4579,70.6273 -159.3105,70.7029 -159.267,70.7134 -159.1611,70.7349 -158.98,70.7648 -159.0062,70.7529 -158.9867,70.7478 -158.873,70.7523 -158.8296,70.7598 -158.8036,70.756 -158.7861,70.73 -158.8338,70.7206 -158.9088,70.7191 -158.9466,70.7165 -158.9753,70.7118 -159.0844,70.685 -159.0557,70.6726 -158.9357,70.6328 -158.8642,70.6118 -158.7491,70.667 -158.6311,70.6943 -158.5608,70.7032 -158.4795,70.6993 -158.3309,70.6925 -158.2841,70.6947 -158.2527,70.6989 -158.1797,70.7176 -158.1429,70.7392 -158.0537,70.7416 -157.9944,70.7357 -157.8761,70.7317 -157.8026,70.7319 -157.695,70.736 -157.6211,70.7445 -157.5222,70.763 -157.4283,70.7854 -157.4058,70.7917 -157.1853,70.8579 -157.1131,70.8826 -156.916,70.9551 -156.8714,70.9748 -156.8317,70.9955 -156.7654,71.0358 -156.7218,71.0628 -156.6872,71.0882 -156.6637,71.1039 -156.6409,71.1167 -156.481,71.1941 -156.4255,71.2173 -156.3954,71.2281 -156.337,71.2441 -156.2358,71.257 -156.1861,71.2109 -156.0805,71.1681 -155.9793,71.1704 -155.9156,71.1738 -155.8906,71.1721 -155.8346,71.1644 -155.7804,71.1556 -155.7485,71.1491 -155.6888,71.1139 -155.6287,71.0986 -155.564,71.1047 -155.4886,71.1092 -155.4494,71.1111 -155.4085,71.1084 -155.281,71.0907 -155.236,71.0743 -155.1874,71.0178 -155.1945,70.992 -155.3807,70.9066 -155.4754,70.8866 -155.5391,70.8789 -155.6021,70.8796 -155.6407,70.8789 -155.7307,70.8744 -155.8223,70.8243 -155.7854,70.8206 -155.7288,70.8271 -155.7032,70.8265 -155.6327,70.8071 -155.5924,70.7545 -155.6292,70.733 -155.6207,70.6629 -155.6006,70.6638 -155.5499,70.6777 -155.5597,70.6955 -155.5715,70.7145 -155.5573,70.7294 -155.5343,70.7358 -155.3009,70.7515 -155.264,70.7513 -155.1826,70.838 -155.0375,70.9083 -154.9387,70.9242 -154.8941,70.9034 -154.8612,70.894 -154.8328,70.9008 -154.8246,70.9241 -154.8439,70.9466 -154.9017,70.9731 -154.9191,70.9928 -154.8427,71.0247 -154.739,71.0563 -154.719,71.0549 -154.6936,71.0278 -154.6873,70.9537 -154.7298,70.9283 -154.7086,70.9168 -154.6615,70.9287 -154.6473,71.0074 -154.6199,71.0234 -154.569,71.0168 -154.4671,71.0012 -154.2613,70.928 -154.2432,70.9085 -154.3065,70.8218 -154.3291,70.7908 -154.2621,70.7344 -154.2175,70.7314 -154.1972,70.732 -154.0708,70.7397 -154.0341,70.739 -154.0009,70.7372 -153.9531,70.7297 -153.9038,70.7017 -153.8543,70.6836 -153.8157,70.6873 -153.781,70.6964 -153.6519,70.7461 -153.6171,70.7621 -153.5883,70.7862 -153.5655,70.7961 -153.5335,70.7991 -153.5131,70.7997 -153.3789,70.8008 -153.2741,70.7969 -153.2414,70.7947 -153.1533,70.7941 -153.0357,70.8019 -153.0087,70.807 -152.9738,70.8194 -152.9383,70.8285 -152.9023,70.8339 -152.8741,70.8351 -152.8535,70.8357 -152.8187,70.834 -152.5974,70.8088 -152.3902,70.7409 -152.3877,70.7888 -152.3003,70.793 -152.2636,70.7922 -152.1978,70.7875 -152.1649,70.785 -152.1341,70.7819 -152.0891,70.7769 -152.0334,70.7686 -151.9316,70.7476 -151.902,70.7406 -151.8723,70.7199 -152.0291,70.655 -152.1645,70.5947 -152.1488,70.5533 -152.0917,70.5296 -152.0608,70.5195 -152.0288,70.5133 -151.8871,70.5025 -151.8422,70.504 -151.8217,70.5045 -151.7878,70.5026 -151.7513,70.4981 -151.7353,70.4858 -151.7623,70.4762 -151.9729,70.4831 -152.0738,70.4889 -152.1506,70.4945 -152.1789,70.495 -152.2004,70.4912 -152.2762,70.4657 -152.1826,70.4511 -152.1524,70.4522 -152.0087,70.4602 -151.8843,70.4565 -151.7578,70.4599 -151.7174,70.4636 -151.6912,70.4752 -151.6582,70.4773 -151.3953,70.4662 -151.4297,70.4056 -151.4633,70.4009 -151.5657,70.3906 -151.6252,70.3731 -151.6297,70.3534 -151.5418,70.348 -151.4879,70.349 -151.458,70.353 -151.3982,70.3534 -151.2734,70.3532 -151.1823,70.347 -151.1364,70.3423 -151.0481,70.3318 -151.0196,70.328 -150.9957,70.323 -150.9347,70.3022 -150.8915,70.2809 -150.8415,70.2824 -150.859,70.3027 -150.8683,70.3302 -150.8378,70.3506 -150.6765,70.3687 -150.4414,70.4098 -150.2776,70.4138 -150.1876,70.4127 -150.0303,70.3832 -150.06,70.3386 -149.9754,70.3341 -149.7879,70.3447 -149.6225,70.395 -149.5695,70.415 -149.5435,70.4226 -149.2071,70.4191 -149.1337,70.4073 -149.048,70.3882 -149.0239,70.3973 -148.9855,70.4069 -148.8399,70.3985 -148.7114,70.372 -148.6586,70.3507 -148.489,70.3191 -148.469,70.3185 -148.4351,70.3206 -148.4047,70.3239 -148.3612,70.3214 -148.3395,70.3185 -148.2627,70.3034 -148.1872,70.2744 -148.1665,70.2512 -148.1678,70.2296 -148.0417,70.2186 -148.0102,70.2251 -147.9714,70.2394 -147.939,70.2576 -147.8916,70.2671 -147.8084,70.2627 -147.7814,70.2551 -147.7508,70.2381 -147.4856,70.1761 -147.4345,70.1337 -147.3864,70.1225 -147.3609,70.1173 -147.3061,70.1156 -147.162,70.1131 -147.0083,70.1082 -146.9421,70.1015 -146.8596,70.0758 -146.8292,70.072 -146.6971,70.0715 -146.6535,70.0727 -146.4361,70.09 -146.2127,70.1029 -146.132,70.1 -145.9365,70.0879 -145.8449,70.0815 -145.8011,70.0725 -145.779,70.0629 -145.7559,70.0606 -145.6677,70.0573 -145.6398,70.0572 -145.5804,70.0588 -145.4798,70.0588 -145.4245,70.0366 -145.3636,70.0164 -145.2787,69.9903 -145.1058,69.9499 -144.8801,69.9113 -144.7091,69.8962 -144.6882,69.893 -144.6658,69.8869 -144.6366,69.8775 -144.5623,69.8922 -144.3924,69.8815 -144.3572,69.8819 -144.3251,69.8836 -144.2971,69.887 -144.2721,69.8919 -144.251,69.8981 -144.2029,69.9203 -144.0696,69.9482 -144.0227,69.9478 -143.8843,69.9489 -143.8461,69.952 -143.8205,69.9643 -143.7465,69.9879 -143.7231,69.9933 -143.4123,70.0052 -143.3863,69.997 -143.3485,69.9921 -143.2848,69.9956 -143.2022,70.0058 -143.0934,70.0056 -142.9849,69.9813 -142.976,70.0209 -142.8979,70.0189 -142.7079,69.9937 -142.5725,69.984 -142.3306,69.9253 -142.2127,69.8729 -142.1134,69.8285 -142.0601,69.7998 -141.9528,69.757 -141.9122,69.759 -141.8547,69.7628 -141.8103,69.7608 -141.7899,69.7571 -141.758,69.7473 -141.7269,69.7298 -141.6399,69.7048 -141.5714,69.705 -141.4745,69.696 -141.4237,69.6854 -141.4005,69.6793 -141.2591,69.6383 -141.2274,69.6285 -141.187,69.6088 -141.1511,69.5815 -141.1287,69.5659 -141.0765,69.5497 -141.0551,69.5464 -141.0214,69.5435 -140.9846,69.5421 -140.955,69.5444 -140.9142,69.5803 -140.9407,69.5875 -141.0049,69.5983 -140.9586,69.5994 -140.9355,69.5965 -140.8489,69.5831 -140.6981,69.5522 -140.6968,69.4425 -140.6971,69.343 -140.7,68.8768 -140.7035,68.4449 -140.7054,68.1453 -140.7064,67.979 -140.7076,67.7791 -140.7064,67.6464 -140.7079,67.4467 -140.7109,67.2137 -140.7116,66.9814 -140.7115,66.7815 -140.7126,66.5821 -140.7144,66.4156 -140.7165,66.0164 -140.7181,65.617 -140.7187,65.1513 -140.7191,65.0848 -140.7208,65.0515 -140.7217,64.1202 -140.7224,63.8874 -140.7242,63.7541 -140.7259,63.0223 -140.7259,62.6562 -140.733,60.8925 -140.7317,60.8592 -140.7347,60.3264 -140.7344,60.2937 -140.7296,60.2343 -140.6803,60.2248 -140.2564,60.1493 -140.2326,60.1786 -140.2071,60.211 -140.1856,60.2369 -139.7416,60.1212 -139.7157,60.1152 -139.6494,60.1482 -139.6026,60.1717 -139.5081,60.2198 -139.4129,60.2676 -139.256,60.2718 -138.8043,60.2716 -138.8196,60.2148 -138.8672,60.1285 -138.8932,60.0824 -138.9244,60.0228 -138.8997,59.9977 -138.8546,59.9689 -138.7857,59.9254 -138.71,59.9065 -138.4291,59.8351 -138.4142,59.7948 -138.4064,59.7665 -138.3904,59.7382 -138.3555,59.7025 -138.2788,59.6603 -138.2311,59.6368 -138.0446,59.5414 -137.8595,59.4453 -137.6529,59.3367 -137.335,59.1675 -137.3104,59.1161 -137.29,59.0722 -137.2441,58.9708 -137.2292,58.9197 -137.2425,58.8934 -137.2517,58.8674 -137.2434,58.844 -137.2175,58.8361 -137.1907,58.8369 -137.1698,58.8422 -137.1386,58.8579 -137.0846,58.8951 -137.0597,58.9106 -137.0418,58.9194 -136.9974,58.9353 -136.8159,58.9947 -136.7967,58.9646 -136.7236,58.9184 -136.7529,58.8607 -136.7872,58.8356 -136.8608,58.7764 -136.8655,58.7524 -136.7928,58.7905 -136.7755,58.8033 -136.7332,58.8174 -136.6551,58.8185 -136.4824,58.7977 -136.3259,58.7692 -136.3064,58.7618 -136.2861,58.7528 -136.2532,58.7186 -136.2964,58.7016 -136.3154,58.7236 -136.3321,58.738 -136.3834,58.7439 -136.3304,58.6988 -136.2382,58.677 -136.1271,58.6488 -136.0919,58.6101 -136.2133,58.5446 -136.2371,58.5396 -136.2681,58.5401 -136.234,58.5229 -136.2096,58.5245 -136.1258,58.5501 -136.0778,58.572 -136.0363,58.5916 -136.0047,58.5797 -135.9388,58.5447 -135.8724,58.4944 -135.831,58.4419 -135.7951,58.3578 -135.7791,58.3155 -135.8018,58.2915 -135.8339,58.2706 -136.0053,58.2382 -136.0288,58.2576 -136.0223,58.2877 -136.0526,58.3118 -136.2295,58.3462 -136.2866,58.2893 -136.2307,58.2685 -136.2304,58.2898 -136.1959,58.2988 -136.1624,58.295 -136.1349,58.2808 -136.1049,58.2679 -136.118,58.229 -136.2462,58.2392 -136.282,58.264 -136.3326,58.2814 -136.3976,58.2649 -136.3793,58.2462 -136.351,58.2345 -136.3107,58.1923 -136.3234,58.1704 -136.3491,58.1516 -136.3708,58.1474 -136.4095,58.1472 -136.4378,58.1575 -136.4553,58.1684 -136.5843,58.2868 -136.6108,58.3103 -136.6991,58.3265 -136.7394,58.3327 -136.7672,58.3326 -136.8057,58.3259 -136.8966,58.3462 -137.0131,58.3862 -137.1341,58.4365 -137.2739,58.4979 -137.3325,58.5237 -137.3216,58.5425 -137.2819,58.5551 -137.1896,58.5831 -137.2078,58.6003 -137.238,58.6092 -137.3499,58.5787 -137.4222,58.5874 -137.441,58.607 -137.4952,58.6378 -137.5191,58.6496 -137.5797,58.6776 -137.617,58.6936 -137.656,58.7148 -137.6729,58.7356 -137.6632,58.7634 -137.6716,58.7908 -137.6907,58.8166 -137.7098,58.8341 -137.7662,58.8645 -137.7871,58.8746 -137.9236,58.9489 -137.9442,58.9592 -138.1325,59.0333 -138.2137,59.04 -138.2582,59.0345 -138.2879,59.0351 -138.3174,59.0392 -138.3421,59.0525 -138.2964,59.0539 -138.2411,59.0489 -138.182,59.1137 -138.203,59.1217 -138.2657,59.1147 -138.3668,59.0962 -138.3937,59.0901 -138.5021,59.125 -138.5346,59.1368 -138.6923,59.1919 -138.7197,59.1982 -138.7403,59.203 -138.8219,59.2148 -138.9029,59.2324 -138.9368,59.2473 -138.9011,59.2539 -138.9707,59.3079 -138.9954,59.3067 -139.0311,59.2882 -139.0751,59.2874 -139.1448,59.3071 -139.1797,59.3203 -139.1499,59.3148 -139.1156,59.305 -139.0736,59.3221 -139.1754,59.3535 -139.2534,59.3636 -139.4495,59.4243 -139.4693,59.4748 -139.3738,59.5092 -139.3289,59.5424 -139.2694,59.6043 -139.2621,59.6687 -139.3137,59.718 -139.3474,59.7833 -139.3525,59.8216 -139.2182,59.9129 -139.1948,59.9115 -139.1732,59.9013 -139.0984,59.8414 -139.055,59.7979 -139.0512,59.6437 -139.0687,59.5288 -139.0294,59.5011 -139.0021,59.5014 -138.9638,59.5444 -138.9987,59.6134 -139.0163,59.6712 -139.0091,59.729 -138.9564,59.7602 -138.9214,59.7654 -138.886,59.7679 -138.7871,59.7732 -138.7435,59.7654 -138.7219,59.7494 -138.7045,59.7377 -138.6765,59.7333 -138.6386,59.7334 -138.7255,59.7712 -138.7799,59.7858 -138.865,59.7956 -138.9123,59.7969 -138.9405,59.8007 -139.0106,59.8229 -139.0977,59.8833 -139.1165,59.9094 -139.1352,59.923 -139.2372,59.9608 -139.2789,59.9582 -139.3228,59.9311 -139.4187,59.8595 -139.515,59.7863 -139.6561,59.7277 -139.7363,59.7091 -139.8239,59.6874 -139.8827,59.6704 -139.9681,59.6394 -139.9963,59.6342 -140.0475,59.6285 -140.1163,59.6265 -140.14,59.6263 -140.1922,59.6296 -140.3488,59.642 -140.5746,59.6675 -140.6133,59.6741 -140.6681,59.6911 -140.7478,59.7151 -140.7775,59.722 -140.9455,59.7608 -141.1106,59.7943 -141.1296,59.837 -141.0885,59.8417 -141.0073,59.8724 -140.9938,59.9013 -140.9908,59.9238 -140.9944,59.9466 -141.0164,60.0012 -141.1186,60.0652 -141.1476,60.0648 -141.2077,60.0401 -141.1896,60.0066 -141.1529,59.992 -141.1147,59.96 -141.1341,59.9461 -141.1593,59.9391 -141.3438,59.8916 -141.3739,59.8874 -141.4641,59.8813 -141.5782,59.9265 -141.6121,59.9377 -141.6313,59.9424 -141.6632,59.9484 -141.7114,59.9542 -141.8872,59.9697 -142.2685,60.0162 -142.3865,60.031 -142.4485,60.0375 -142.4995,60.0379 -142.553,60.0327 -142.6155,60.0253 -142.6469,60.0213 -142.7369,60.0073 -142.7769,60.0014 -142.8627,59.9926 -142.8948,59.9899 -142.9171,59.9879 -142.9463,59.9881 -143.0037,59.9891 -143.051,59.9876 -143.143,59.9824 -143.4013,59.9633 -143.4688,59.9546 -143.5159,59.9451 -143.5641,59.9289 -143.5972,59.9203 -143.6293,59.9191 -143.6611,59.9247 -143.6941,59.9359 -143.7357,59.9706 -143.7599,59.9896 -143.8837,60.0498 -143.9819,60.1182 -144.0687,60.1269 -144.1064,60.113 -144.1737,60.1 -144.3016,60.1131 -144.3482,60.1251 -144.3696,60.1409 -144.3826,60.1675 -144.4305,60.206 -144.5178,60.2269 -144.5578,60.2275 -144.5992,60.2272 -144.6296,60.2123 -144.6469,60.2164 -144.6581,60.2245 -144.6409,60.3058 -144.5588,60.4441 -144.4793,60.554 -144.3395,60.6068 -144.3368,60.6421 -144.3887,60.6346 -144.4134,60.63 -144.4341,60.6236 -144.4793,60.6045 -144.5827,60.5451 -144.6857,60.4705 -144.8225,60.3638 -144.9557,60.2926 -144.9743,60.2844 -145.0143,60.2777 -145.0748,60.2793 -145.1014,60.284 -145.2053,60.3223 -145.2211,60.3477 -145.2694,60.3669 -145.3783,60.3942 -145.3996,60.3977 -145.4475,60.399 -145.4864,60.3948 -145.5835,60.4183 -145.4914,60.4658 -145.4636,60.4835 -145.3492,60.5935 -145.3821,60.596 -145.4118,60.5803 -145.4415,60.5714 -145.5542,60.55 -145.5896,60.5515 -145.6111,60.6021 -145.7225,60.5614 -145.9379,60.5588 -145.967,60.5625 -145.9844,60.581 -145.8779,60.6254 -145.8577,60.6319 -145.8264,60.641 -145.7397,60.6717 -145.7607,60.722 -145.7833,60.7121 -145.8637,60.6866 -145.8982,60.6685 -146.1485,60.6231 -146.1797,60.6185 -146.2153,60.6147 -146.3658,60.6204 -146.4107,60.6697 -146.3249,60.6878 -146.2494,60.6987 -146.228,60.7015 -146.1876,60.7006 -146.1508,60.7012 -145.9766,60.7367 -145.8474,60.7715 -145.8701,60.7867 -145.9566,60.8168 -145.9836,60.7965 -145.9996,60.78 -146.0322,60.7616 -146.0853,60.747 -146.1153,60.7416 -146.115,60.7659 -146.1543,60.7555 -146.1765,60.7458 -146.1993,60.7438 -146.2404,60.7433 -146.2706,60.7478 -146.4115,60.8045 -146.4508,60.8443 -146.4759,60.8786 -146.3602,60.9963 -146.3316,61.0061 -146.1462,61.0107 -146.0428,61.0098 -146.0161,61.01 -145.9652,61.0146 -145.9938,61.0427 -146.0177,61.0551 -146.1335,61.0616 -146.2996,61.0576 -146.3215,61.0512 -146.5059,60.9683 -146.5665,60.9304 -146.5777,60.912 -146.6004,60.8972 -146.6644,60.8709 -146.6892,60.8661 -146.7429,60.8822 -146.7083,60.905 -146.7003,60.9266 -146.768,60.9358 -146.8115,60.9378 -146.9283,60.9131 -146.9737,60.8604 -147.0867,60.814 -147.2563,60.8433 -147.2605,60.9038 -147.245,60.9593 -147.229,61.019 -147.2377,61.0772 -147.2692,61.0787 -147.2917,61.0657 -147.3355,60.8861 -147.3235,60.8219 -147.3874,60.7792 -147.4686,60.7639 -147.5065,60.748 -147.5793,60.7577 -147.6114,60.7724 -147.6331,60.8159 -147.6782,60.8414 -147.7684,60.8734 -147.6419,60.9969 -147.4755,61.1102 -147.4332,61.2009 -147.4551,61.1999 -147.477,61.1865 -147.6767,61.0422 -147.7132,61.0023 -147.7325,60.978 -147.7579,60.9627 -147.7895,60.9438 -147.8377,60.9801 -147.857,61.0049 -147.9055,61.0207 -147.9648,61.0185 -147.9928,61.015 -148.0997,60.9901 -148.1212,60.9805 -148.1595,60.9145 -148.1352,60.909 -148.1137,60.912 -148.092,60.922 -148.0718,60.9327 -148.0426,60.9515 -147.9815,60.9814 -147.9598,60.988 -147.9168,60.9942 -147.8816,60.9827 -147.8903,60.9431 -148.0221,60.7741 -148.0628,60.7388 -148.0914,60.7348 -148.1195,60.7484 -148.1525,60.763 -148.1859,60.7659 -148.3189,60.7532 -148.41,60.7143 -148.3895,60.7104 -148.3577,60.7151 -148.3148,60.7283 -148.2847,60.7338 -148.1774,60.7238 -148.2471,60.7085 -148.3037,60.6958 -148.3488,60.6768 -148.3665,60.6644 -148.3884,60.6408 -148.418,60.6002 -148.3785,60.5977 -148.3021,60.6367 -148.2943,60.6598 -148.2138,60.6897 -148.1601,60.6961 -148.1122,60.7042 -147.9481,60.6921 -147.971,60.6681 -147.9705,60.6294 -147.9235,60.5439 -148.0476,60.4636 -148.1183,60.4815 -148.1496,60.5051 -148.2,60.5046 -148.2278,60.4929 -148.3277,60.4465 -148.3659,60.4244 -148.3992,60.3996 -148.406,60.3783 -148.3919,60.3739 -148.2967,60.4233 -148.2684,60.4369 -148.2159,60.456 -148.1672,60.4672 -148.0569,60.4331 -148.0053,60.4171 -147.9808,60.4098 -147.9546,60.439 -147.9069,60.4813 -147.8551,60.5074 -147.8048,60.5268 -147.6789,60.4372 -147.6581,60.3783 -147.6703,60.3585 -147.7243,60.3383 -147.7632,60.3266 -147.8329,60.3273 -147.8623,60.306 -147.8875,60.276 -147.9569,60.2277 -148.0307,60.19 -148.0862,60.1743 -148.1468,60.1083 -148.0572,60.1284 -148.019,60.1459 -147.9937,60.1625 -147.9669,60.1706 -147.9206,60.1812 -147.8341,60.1554 -147.8197,60.1332 -147.8543,60.0938 -147.8739,60.0719 -147.7776,60.1212 -147.7569,60.1143 -147.7581,60.1113 -147.7986,60.0554 -147.8081,60.0359 -147.8103,60.019 -147.8258,60.001 -147.8758,59.9678 -147.9295,59.9508 -147.9499,59.9473 -147.9719,59.9454 -148.0077,59.9484 -148.0279,59.9555 -148.0213,59.9831 -147.9455,60.0359 -147.8944,60.0616 -147.932,60.0534 -147.9754,60.0445 -148.0089,60.0519 -148.0106,60.0828 -148.0449,60.0906 -148.0858,60.0515 -148.0962,59.9886 -148.1214,59.9147 -148.1588,59.8765 -148.3768,59.8808 -148.4811,59.89 -148.6123,59.8781 -148.7391,59.8856 -148.7898,59.8896 -148.8315,59.9115 -148.7891,59.9495 -148.7629,59.9736 -148.7971,59.984 -148.8272,59.9785 -148.8667,59.9678 -148.9203,59.9178 -148.9293,59.8805 -148.9519,59.8309 -148.9833,59.8003 -148.9944,59.7956 -149.0099,59.8031 -149.0147,59.9008 -149.0141,59.9323 -149.0905,60.0435 -149.1385,60.0435 -149.1526,60.0198 -149.1575,59.979 -149.2485,59.8541 -149.2818,59.8324 -149.3468,59.7501 -149.3119,59.7175 -149.2704,59.6837 -149.2432,59.6549 -149.2697,59.6484 -149.3058,59.6677 -149.3855,59.7408 -149.382,59.761 -149.3637,59.7997 -149.364,59.8205 -149.3739,59.8448 -149.41,59.8827 -149.4521,59.8824 -149.4772,59.7641 -149.4833,59.7082 -149.4651,59.6441 -149.4701,59.5874 -149.5057,59.5945 -149.5255,59.6132 -149.6072,59.6805 -149.6382,59.7024 -149.746,59.7244 -149.753,59.7015 -149.6928,59.6747 -149.637,59.6414 -149.6537,59.6184 -149.6784,59.5934 -149.7326,59.5559 -149.969,59.4237 -150.0161,59.4087 -150.0638,59.395 -150.1009,59.3979 -150.0985,59.4241 -150.0786,59.4617 -150.0099,59.5345 -149.9427,59.6436 -149.9711,59.6353 -149.9972,59.6146 -150.0183,59.591 -150.052,59.5469 -150.076,59.5178 -150.2058,59.3926 -150.257,59.4469 -150.2583,59.4759 -150.219,59.5196 -150.2599,59.5203 -150.3351,59.4831 -150.347,59.4633 -150.3251,59.4468 -150.304,59.4136 -150.3221,59.3611 -150.3964,59.348 -150.441,59.3501 -150.4553,59.3239 -150.471,59.3109 -150.5921,59.2563 -150.6114,59.2223 -150.6052,59.1837 -150.6266,59.1722 -150.6705,59.1672 -150.7155,59.2033 -150.7597,59.2248 -150.861,59.2193 -150.8995,59.2104 -150.8167,59.1595 -150.8395,59.141 -150.873,59.1371 -150.896,59.139 -150.9858,59.1491 -151.0758,59.1707 -151.1159,59.1873 -151.1376,59.1866 -151.2014,59.1608 -151.2724,59.1306 -151.2944,59.1023 -151.3254,59.0962 -151.4413,59.0898 -151.464,59.0917 -151.618,59.1489 -151.6935,59.2047 -151.7,59.2313 -151.6156,59.3367 -151.5789,59.3525 -151.555,59.3606 -151.3996,59.4054 -151.3795,59.4093 -151.3541,59.4091 -151.3078,59.4068 -151.2026,59.3999 -151.17,59.3961 -151.1653,59.4373 -151.152,59.4639 -151.0682,59.4871 -150.9894,59.5075 -150.9329,59.5231 -150.7142,59.7091 -150.7342,59.7207 -150.7698,59.7205 -150.8273,59.7029 -150.9163,59.6723 -151.1511,59.5853 -151.1855,59.565 -151.2912,59.5746 -151.344,59.5834 -151.445,59.603 -151.4725,59.6122 -151.4964,59.6208 -151.5512,59.6479 -151.5792,59.6678 -151.5932,59.6881 -151.5942,59.7105 -151.4387,59.9425 -151.3834,59.9923 -151.3611,60.0084 -151.2836,60.0523 -151.2232,60.0832 -151.2042,60.0944 -151.1679,60.1172 -151.1418,60.1382 -151.1192,60.1675 -151.0168,60.3153 -151.0029,60.3757 -150.9914,60.4369 -150.9918,60.4697 -151.0212,60.4949 -151.0463,60.5137 -151.085,60.5849 -151.0954,60.5933 -151.1291,60.6353 -151.1192,60.6544 -150.9631,60.7017 -150.8547,60.7095 -150.8014,60.7109 -150.7608,60.7153 -150.5708,60.804 -150.3825,60.8898 -150.152,60.956 -150.1176,60.9625 -150.0843,60.963 -150.0506,60.9558 -150.0362,60.925 -150.0141,60.902 -149.9913,60.8856 -149.9335,60.8598 -149.8695,60.8509 -149.7596,60.8371 -149.6188,60.8712 -149.5933,60.8793 -149.5694,60.8916 -149.551,60.8995 -149.5298,60.9004 -149.4819,60.8963 -149.4467,60.8925 -149.2767,60.8645 -149.1436,60.842 -149.0803,60.8348 -148.9442,60.818 -148.8866,60.8119 -148.8659,60.8082 -148.8363,60.8017 -148.8081,60.7952 -148.769,60.7781 -148.7465,60.7779 -148.7624,60.8075 -148.8128,60.841 -148.8695,60.868 -148.8989,60.8745 -148.9257,60.8739 -149.1167,60.8827 -149.3309,60.9163 -149.4067,60.9377 -149.4345,60.9479 -149.5178,60.9804 -149.5437,60.9986 -149.5641,61.0092 -149.6572,61.0359 -149.7756,61.0834 -149.7087,61.1421 -149.5337,61.2459 -149.5077,61.2608 -149.4203,61.309 -149.3312,61.3319 -149.2433,61.3478 -149.1992,61.3571 -148.966,61.4178 -149.1362,61.4333 -149.3201,61.416 -149.3478,61.4127 -149.4006,61.3999 -149.4826,61.364 -149.5951,61.3053 -149.6245,61.2682 -149.6618,61.2245 -149.6768,61.195 -149.7077,61.1846 -149.7846,61.1706 -149.8173,61.1754 -149.8498,61.18 -149.8753,61.1812 -149.9923,61.1811 -150.0425,61.1765 -150.0702,61.1728 -150.1115,61.1719 -150.1656,61.1732 -150.1899,61.1749 -150.2185,61.1817 -150.2573,61.2106 -150.3382,61.212 -150.4399,61.1714 -150.4612,61.1643 -150.5839,61.1346 -150.6041,61.1305 -150.6407,61.1303 -150.7126,61.1111 -150.7379,61.1027 -150.7798,61.0786 -150.7934,61.0616 -150.8494,60.9952 -150.873,60.9793 -150.9096,60.9679 -151.0189,60.9563 -151.1571,60.943 -151.1963,60.9374 -151.2395,60.924 -151.2948,60.9028 -151.452,60.8309 -151.5113,60.781 -151.5161,60.7603 -151.4998,60.7333 -151.4826,60.7143 -151.4423,60.6856 -151.4219,60.6584 -151.4419,60.6438 -151.485,60.647 -151.5262,60.6605 -151.56,60.6671 -151.639,60.6448 -151.7505,60.5964 -151.7664,60.5796 -151.7688,60.574 -151.8165,60.529 -151.8786,60.5001 -151.9368,60.4842 -152.0396,60.4183 -152.0511,60.3941 -152.0458,60.3632 -152.0133,60.3379 -152.0484,60.291 -152.1344,60.2203 -152.2614,60.1798 -152.3424,60.1565 -152.4403,60.171 -152.5302,60.1922 -152.5949,60.2234 -152.6235,60.235 -152.6541,60.2372 -152.679,60.238 -152.7178,60.2384 -152.74,60.2355 -152.7899,60.2253 -152.8136,60.2057 -152.7923,60.2064 -152.7636,60.2167 -152.7169,60.2214 -152.6775,60.2178 -152.6482,60.2083 -152.6399,60.1695 -152.6069,60.1491 -152.5768,60.1368 -152.5416,60.1276 -152.5194,60.1249 -152.4809,60.1167 -152.3982,60.072 -152.3091,60.0218 -152.2905,60.0007 -152.3003,59.974 -152.3271,59.9453 -152.4289,59.8446 -152.5384,59.8093 -152.5847,59.8042 -152.6571,59.8059 -152.7028,59.8145 -152.7411,59.8156 -152.9378,59.793 -152.9894,59.747 -152.9667,59.7444 -152.9473,59.7519 -152.9222,59.7568 -152.7658,59.7616 -152.7142,59.7475 -152.7131,59.7194 -152.7554,59.6376 -152.8706,59.593 -152.9178,59.5756 -152.939,59.5723 -153.0354,59.5584 -153.0609,59.5569 -153.1156,59.5806 -153.0805,59.6315 -153.0422,59.6533 -153.0589,59.6645 -153.1325,59.6944 -153.1528,59.6476 -153.1822,59.5863 -153.3055,59.4832 -153.3251,59.48 -153.4776,59.4492 -153.4337,59.4013 -153.4565,59.366 -153.5106,59.3548 -153.6542,59.3283 -153.7953,59.3031 -153.8235,59.3023 -153.8562,59.3049 -153.832,59.2887 -153.8128,59.2782 -153.7923,59.2745 -153.78,59.2744 -153.7098,59.2826 -153.7799,59.2514 -153.8219,59.2345 -153.8444,59.2158 -153.9705,59.0619 -153.8946,58.9589 -153.8612,58.9551 -153.831,58.97 -153.802,58.9923 -153.7775,59.0036 -153.7547,59.0087 -153.7322,59.0074 -153.636,58.9972 -153.4267,59.0 -153.3883,58.9829 -153.348,58.9447 -153.3141,58.9279 -153.2808,58.9182 -153.2536,58.9155 -153.2321,58.9185 -153.2039,58.9284 -153.1392,58.9101 -153.0476,58.8588 -152.9779,58.7891 -153.1651,58.6442 -153.3261,58.5647 -153.4071,58.5476 -153.4811,58.5398 -153.6224,58.5129 -153.6434,58.4416 -153.6772,58.42 -153.7167,58.421 -153.7861,58.4222 -153.8198,58.4101 -153.7872,58.3506 -153.7529,58.3345 -153.7229,58.3122 -153.7777,58.2872 -153.8368,58.2808 -153.8666,58.2838 -153.8978,58.2869 -153.9238,58.2827 -154.0407,58.2369 -154.0719,58.2088 -154.0556,58.1901 -154.0035,58.1981 -153.9279,58.2268 -153.9035,58.2477 -153.8724,58.2424 -153.833,58.2108 -153.9544,58.0615 -154.0456,58.0367 -154.1028,58.0412 -154.1615,58.0753 -154.2162,58.0234 -154.2894,57.9555 -154.3166,57.954 -154.3559,57.9634 -154.4542,57.9502 -154.5012,57.9331 -154.5435,57.951 -154.6129,57.9599 -154.6837,57.9601 -154.7515,57.9453 -154.7668,57.8885 -154.7849,57.8227 -154.8024,57.8122 -154.9755,57.7603 -155.014,57.6804 -155.0301,57.6657 -155.1085,57.6486 -155.1829,57.6811 -155.2754,57.7236 -155.3014,57.7256 -155.3251,57.7206 -155.3419,57.7094 -155.4255,57.573 -155.4536,57.483 -155.4736,57.4774 -155.5185,57.4722 -155.5349,57.4907 -155.5594,57.496 -155.6838,57.468 -155.7574,57.4407 -155.7501,57.3733 -155.7857,57.3638 -155.8175,57.366 -155.843,57.3823 -155.9019,57.4079 -155.9252,57.4081 -156.2091,57.2628 -156.2203,57.2193 -156.1421,57.2349 -156.1223,57.2389 -156.0751,57.2409 -156.0547,57.2163 -156.0618,57.1029 -156.0864,57.0765 -156.1735,57.0154 -156.2731,56.9111 -156.401,56.9284 -156.4799,56.9236 -156.5726,56.8544 -156.6116,56.8891 -156.6613,56.895 -156.7049,56.841 -156.8084,56.7561 -156.9064,56.7064 -156.9278,56.7033 -156.9416,56.7054 -157.013,56.7314 -157.0318,56.7511 -157.0612,56.7707 -157.0833,56.7828 -157.1242,56.7934 -157.148,56.7899 -157.1749,56.7773 -157.3039,56.64 -157.2757,56.6119 -157.223,56.6038 -157.2007,56.6024 -157.1761,56.5708 -157.1915,56.5531 -157.2228,56.5461 -157.401,56.5415 -157.4317,56.5627 -157.4732,56.6079 -157.5079,56.611 -157.5367,56.605 -157.636,56.5785 -157.6636,56.561 -157.6913,56.5402 -157.7715,56.5098 -157.8361,56.4935 -157.843,56.462 -157.7852,56.4692 -157.7407,56.4806 -157.6959,56.4952 -157.6664,56.504 -157.6462,56.507 -157.6106,56.5012 -157.5648,56.4843 -157.5582,56.4433 -157.6042,56.4006 -157.7024,56.4213 -157.8358,56.4443 -157.8625,56.4454 -157.8818,56.43 -157.8518,56.4206 -157.8572,56.3953 -157.9202,56.385 -157.9788,56.3891 -158.004,56.3988 -158.0294,56.4058 -158.0572,56.4096 -158.1492,56.3734 -158.1665,56.3534 -158.24,56.285 -158.2634,56.2768 -158.2897,56.2663 -158.3309,56.2403 -158.372,56.2123 -158.3588,56.1924 -158.2639,56.1856 -158.2813,56.2036 -158.2584,56.2305 -158.2356,56.2473 -158.2075,56.2582 -158.169,56.2736 -158.0539,56.2536 -157.9375,56.2108 -157.9755,56.1835 -158.0019,56.1745 -158.0561,56.1614 -158.0561,56.1078 -157.9995,56.1186 -157.9673,56.1291 -157.9273,56.1485 -157.9055,56.1635 -157.8489,56.1687 -157.9302,56.1162 -158.0797,56.0792 -158.1218,56.1088 -158.2221,56.0307 -158.2124,55.9769 -158.2233,55.9379 -158.2285,55.9228 -158.3079,55.9763 -158.3226,56.0346 -158.26,56.0843 -158.2063,56.1135 -158.2217,56.1274 -158.2612,56.1267 -158.323,56.1215 -158.3779,56.0434 -158.3801,56.0214 -158.3683,55.9554 -158.3673,55.9287 -158.3985,55.8881 -158.4757,55.8916 -158.4535,55.9084 -158.4654,55.9365 -158.4967,55.943 -158.5724,55.9451 -158.5913,55.9326 -158.628,55.8935 -158.6627,55.8631 -158.7442,55.8541 -158.7969,55.855 -158.8608,55.8482 -159.0838,55.8084 -159.193,55.7567 -159.2334,55.7256 -159.2267,55.6966 -159.2713,55.594 -159.2844,55.5754 -159.3538,55.524 -159.3907,55.5118 -159.4236,55.5016 -159.4437,55.4979 -159.4545,55.4976 -159.4647,55.5429 -159.4,55.6192 -159.3463,55.7463 -159.3668,55.7593 -159.4341,55.7774 -159.47,55.7825 -159.5645,55.7843 -159.6971,55.7497 -159.7577,55.7237 -159.7785,55.6968 -159.753,55.6758 -159.7495,55.6557 -159.7874,55.6311 -159.8665,55.5945 -160.0029,55.5714 -160.0317,55.5709 -160.1426,55.5644 -160.1622,55.5052 -160.2002,55.4271 -160.2305,55.4127 -160.2635,55.4148 -160.3148,55.4935 -160.3551,55.5012 -160.4812,55.4684 -160.3982,55.4517 -160.3797,55.4352 -160.3917,55.4013 -160.4216,55.39 -160.4852,55.3826 -160.5123,55.3817 -160.5327,55.3864 -160.5581,55.3992 -160.562,55.425 -160.5562,55.4455 -160.5777,55.4548 -160.5977,55.4556 -160.6214,55.4534 -160.6502,55.4474 -160.6693,55.4375 -160.6962,55.4095 -160.7195,55.3802 -160.7479,55.362 -160.8015,55.3423 -160.971,55.2828 -161.2318,55.3032 -161.2048,55.4179 -161.1235,55.4892 -161.083,55.5057 -161.0552,55.4853 -161.0347,55.4724 -161.0072,55.465 -160.8944,55.4512 -160.8668,55.4649 -161.1252,55.5645 -161.1612,55.5695 -161.2044,55.5678 -161.2284,55.5657 -161.2825,55.5572 -161.3318,55.5445 -161.4354,55.4415 -161.4246,55.3375 -161.5435,55.23 -161.6491,55.1596 -161.6761,55.167 -161.7224,55.1712 -161.743,55.171 -161.7648,55.1653 -161.7345,55.1206 -161.6906,55.0666 -161.6818,55.0609 -161.6814,55.047 -161.6977,55.0344 -161.7831,55.0079 -161.8103,55.0143 -161.8439,55.0327 -161.8576,55.0492 -161.8378,55.0642 -161.8201,55.0941 -161.8884,55.0858 -161.9392,55.0363 -161.9185,54.9842 -161.9393,54.9632 -161.9705,54.954 -161.9928,54.9512 -162.1667,54.972 -162.1893,54.9797 -162.2192,54.9973 -162.2447,55.027 -162.2376,55.048 -162.2103,55.0536 -162.1998,55.1025 -162.2258,55.1474 -162.2889,55.2293 -162.3566,55.2321 -162.3905,55.2219 -162.4344,55.1762 -162.4352,55.145 -162.4117,55.1284 -162.3169,55.0589 -162.2885,54.8936 -162.3718,54.9361 -162.4508,54.887 -162.4749,54.8759 -162.5042,54.8701 -162.5816,54.8655 -162.5952,54.8665 -162.6381,54.886 -162.681,54.9168 -162.6959,54.938 -162.6948,54.9672 -162.7393,55.0168 -162.8371,55.0608 -162.8998,55.0746 -162.9589,55.0312 -162.9393,54.9686 -162.9265,54.9487 -162.9005,54.9388 -162.8622,54.9301 -162.7953,54.9097 -162.7767,54.8998 -162.774,54.8685 -162.9585,54.7726 -163.052,54.7441 -163.0745,54.7455 -163.1044,54.7943 -163.0555,54.8107 -162.9987,54.8786 -162.9787,54.9091 -163.0021,54.9279 -163.0465,55.0521 -163.027,55.0653 -162.9581,55.0888 -162.9016,55.108 -162.8394,55.1191 -162.7968,55.123 -162.7138,55.1151 -162.6864,55.0991 -162.6609,55.1125 -162.6068,55.1789 -162.6063,55.2024 -162.511,55.2364 -162.3467,55.2891 -162.2976,55.275 -162.2688,55.2773 -162.2112,55.3077 -162.2272,55.3787 -162.2651,55.39 -162.1997,55.4406 -162.1441,55.4835 -161.9792,55.6075 -161.9542,55.6209 -161.8077,55.6938 -161.7374,55.7172 -161.5588,55.8014 -161.5259,55.8179 -161.4948,55.8273 -161.1099,55.8935 -161.0839,55.8846 -160.963,55.8766 -160.7875,55.869 -160.7334,55.8468 -160.7415,55.8214 -160.6612,55.7537 -160.5913,55.7025 -160.5684,55.6877 -160.5276,55.6616 -160.4006,55.6302 -160.3833,55.6688 -160.4247,55.6959 -160.4523,55.7074 -160.4763,55.7091 -160.5099,55.8117 -160.4885,55.8124 -160.4655,55.8054 -160.421,55.7905 -160.3828,55.7873 -160.3588,55.7895 -160.2773,55.7976 -160.226,55.802 -160.1929,55.7731 -160.1978,55.7499 -160.1885,55.7295 -160.0088,55.7045 -159.9716,55.7057 -159.9606,55.7782 -160.0572,55.8037 -160.1783,55.8411 -160.1995,55.8494 -160.2479,55.8694 -160.2938,55.9275 -160.172,56.0977 -160.1506,56.1191 -160.1413,56.139 -160.1108,56.1779 -160.0903,56.1993 -160.0653,56.2191 -159.9125,56.3068 -159.8263,56.344 -159.7695,56.357 -159.6944,56.388 -159.6623,56.405 -159.6396,56.4225 -159.6063,56.448 -159.5806,56.4615 -159.5548,56.4737 -159.4329,56.515 -159.295,56.5486 -159.2673,56.5525 -159.2299,56.5539 -159.1976,56.5552 -159.1407,56.5678 -159.1164,56.5759 -159.0114,56.6174 -158.9815,56.6333 -158.9533,56.6608 -158.8844,56.6931 -158.7524,56.7378 -158.6938,56.7156 -158.5294,56.7132 -158.3574,56.6957 -158.3653,56.7642 -158.3846,56.7784 -158.407,56.8039 -158.4164,56.9123 -158.3998,56.9448 -158.3676,56.9833 -158.3524,56.9988 -158.3322,57.0166 -158.1662,57.1472 -158.14,57.1672 -158.1182,57.1821 -158.1015,57.1938 -158.0726,57.212 -158.0011,57.2562 -157.9753,57.2661 -157.914,57.2833 -157.8749,57.2911 -157.8498,57.2931 -157.8312,57.2897 -157.8095,57.3113 -157.7817,57.3365 -157.6607,57.4205 -157.5008,57.4814 -157.4573,57.4939 -157.398,57.4951 -157.3836,57.4598 -157.3576,57.4157 -157.2979,57.4062 -157.2713,57.4049 -157.2247,57.4049 -157.1144,57.4244 -157.1093,57.491 -157.1605,57.477 -157.1531,57.4519 -157.1863,57.4289 -157.291,57.4587 -157.3454,57.5413 -157.4016,57.5457 -157.4196,57.5689 -157.4222,57.5965 -157.4044,57.689 -157.3888,57.7155 -157.3606,57.7835 -157.3534,57.8052 -157.3437,57.8442 -157.337,57.9092 -157.3244,58.0147 -157.2997,58.0586 -157.2792,58.0799 -157.2565,58.0978 -157.11,58.1314 -157.0321,58.1391 -156.8987,58.1202 -156.877,58.1015 -156.8523,58.0952 -156.872,58.1248 -156.9213,58.1406 -157.062,58.1657 -157.1422,58.1549 -157.2555,58.1968 -157.2776,58.2374 -157.2714,58.2938 -157.2627,58.3182 -157.1992,58.412 -157.1796,58.4287 -156.9356,58.5711 -156.7829,58.6694 -156.7818,58.6937 -156.6852,58.847 -156.6557,58.8563 -156.6065,58.901 -156.5649,58.9293 -156.4908,59.0803 -156.514,59.0701 -156.5456,59.0521 -156.5741,59.0317 -156.5916,58.9877 -156.585,58.9629 -156.5896,58.9423 -156.7848,58.8197 -156.8216,58.804 -156.903,58.7796 -156.9325,58.7734 -156.966,58.7685 -156.9893,58.7656 -157.0826,58.7483 -157.3872,58.6713 -157.5111,58.6361 -157.702,58.5782 -157.7638,58.5604 -157.8017,58.5513 -157.8318,58.5451 -157.8639,58.5397 -157.9001,58.5367 -157.9388,58.544 -158.0051,58.5671 -158.0271,58.5756 -158.0541,58.6556 -158.0803,58.6816 -158.108,58.6942 -158.15,58.7057 -158.2071,58.7147 -158.2372,58.7221 -158.2667,58.7377 -158.2705,58.7692 -158.234,58.7788 -158.2164,58.7993 -158.1993,58.841 -158.1947,58.9301 -158.0732,58.9535 -157.8822,58.9377 -157.8384,58.9236 -157.8012,58.8933 -157.7815,58.848 -157.7629,58.8265 -157.7282,58.8028 -157.7007,58.8344 -157.7817,58.9233 -157.799,58.9356 -157.8177,58.9466 -157.8365,58.9577 -157.8604,58.9636 -157.9511,58.977 -157.972,58.9773 -157.9926,58.98 -158.0713,58.9966 -158.1548,59.028 -158.1723,59.043 -158.2024,59.0676 -158.2442,59.1028 -158.2537,59.0716 -158.2251,59.0408 -158.238,58.9979 -158.2035,58.9734 -158.3228,58.8507 -158.343,58.8405 -158.4028,58.8125 -158.4402,58.8156 -158.4355,58.8494 -158.4507,58.9213 -158.5272,58.8978 -158.4989,58.8812 -158.479,58.8277 -158.4862,58.7034 -158.504,58.6805 -158.5361,58.6597 -158.562,58.6553 -158.5897,58.6666 -158.5884,58.6929 -158.5534,58.7018 -158.5289,58.7071 -158.5157,58.7315 -158.5465,58.7453 -158.5724,58.741 -158.5944,58.7313 -158.6181,58.6967 -158.6145,58.6543 -158.4654,58.4344 -158.4461,58.4279 -158.4197,58.4231 -158.5049,58.3461 -158.5272,58.337 -158.5474,58.3327 -158.6063,58.3258 -158.6966,58.3388 -158.74,58.349 -158.7714,58.3587 -158.8313,58.4163 -158.8755,58.4737 -159.0519,58.6494 -159.0673,58.6627 -159.1356,58.7125 -159.1733,58.7342 -159.3078,58.8281 -159.3256,58.8734 -159.4381,58.8635 -159.457,58.8553 -159.4982,58.7786 -159.5175,58.7355 -159.5604,58.7145 -159.6192,58.7 -159.664,58.7377 -159.6924,58.7705 -159.8586,58.8214 -159.9305,58.8394 -159.9589,58.8487 -160.0219,58.8825 -160.0017,58.9036 -159.9622,58.9177 -159.9724,58.9375 -160.0254,58.9877 -160.0976,58.9893 -160.1877,58.9577 -160.3853,58.8703 -160.4809,58.8221 -160.5417,58.7988 -160.5736,58.813 -160.5994,58.8149 -160.6832,58.7996 -160.7039,58.7862 -160.7316,58.7728 -160.7558,58.7637 -160.8289,58.7376 -160.8997,58.7243 -160.9532,58.7201 -160.9896,58.7005 -161.0592,58.6582 -161.077,58.6411 -161.0839,58.5991 -161.0632,58.5929 -161.1296,58.5773 -161.335,58.5291 -161.4132,58.5434 -161.5216,58.5567 -161.7801,58.5499 -161.827,58.5631 -161.8675,58.585 -161.7448,58.6066 -161.6965,58.6103 -161.6543,58.5985 -161.6397,58.5774 -161.6133,58.578 -161.5849,58.5853 -161.556,58.5985 -161.4009,58.693 -161.3577,58.7327 -161.3868,58.7511 -161.4169,58.7526 -161.4543,58.7478 -161.493,58.796 -161.4954,58.8305 -161.4932,58.9465 -161.4587,58.9519 -161.4174,58.9635 -161.316,59.0014 -161.2687,59.0357 -161.3238,59.0664 -161.3562,59.0532 -161.3998,59.0427 -161.4318,59.0393 -161.4614,59.0385 -161.5214,59.0449 -161.5524,59.0433 -161.5867,59.0208 -161.554,58.9899 -161.5701,58.991 -161.5916,58.9964 -161.6168,59.0109 -161.6545,59.0414 -161.6933,59.0763 -161.7247,59.1602 -161.6538,59.3095 -161.5208,59.3771 -161.4514,59.3979 -161.4075,59.4254 -161.4776,59.4891 -161.5844,59.6128 -161.6266,59.6612 -161.6725,59.7125 -161.7487,59.7822 -161.7904,59.82 -161.8941,59.938 -161.9314,59.9913 -161.9307,60.0202 -161.8944,60.0786 -161.8531,60.1472 -161.8504,60.1722 -161.8952,60.1668 -161.9285,60.1388 -161.9639,60.0913 -162.0242,60.0624 -162.0493,60.0733 -162.0637,60.0966 -162.0775,60.2595 -162.0051,60.3692 -161.9207,60.4599 -161.9146,60.5082 -161.8032,60.5585 -161.7767,60.5676 -161.7461,60.5713 -161.7196,60.5699 -161.6708,60.5688 -161.6462,60.5752 -161.5721,60.6287 -161.5999,60.6345 -161.8139,60.6176 -161.954,60.543 -161.9723,60.5258 -162.0628,60.3984 -162.1119,60.3205 -162.1569,60.295 -162.2447,60.2619 -162.2628,60.2436 -162.2573,60.1812 -162.2483,60.1583 -162.1897,60.1409 -162.148,60.1181 -162.1422,60.0972 -162.1699,59.9777 -162.1854,59.9512 -162.2042,59.9285 -162.236,59.9159 -162.2728,59.9111 -162.4522,59.8856 -162.664,59.8287 -162.7937,59.7907 -162.8331,59.781 -162.8666,59.7747 -163.0321,59.7509 -163.0572,59.7478 -163.1228,59.7418 -163.352,59.723 -163.4478,59.7245 -163.5353,59.728 -163.6383,59.7377 -163.6982,59.7447 -163.7568,59.7523 -163.7912,59.761 -163.8296,59.7758 -163.8488,59.7878 -163.8656,59.8057 -163.891,59.8437 -163.9048,59.8779 -163.8883,59.8897 -163.8583,59.8945 -163.8145,59.8963 -163.7849,59.9056 -163.8799,59.9506 -163.9045,59.959 -163.9454,59.9717 -164.0379,59.9898 -164.1083,60.0155 -164.1815,60.082 -164.3359,60.1721 -164.3504,60.1942 -164.3363,60.2112 -164.3673,60.223 -164.4334,60.2181 -164.4641,60.2186 -164.5106,60.2275 -164.6368,60.2549 -164.6954,60.2731 -164.724,60.287 -164.826,60.3678 -164.7836,60.382 -164.717,60.3926 -164.6591,60.4413 -164.6672,60.4671 -164.6972,60.4741 -164.7279,60.473 -164.7534,60.4692 -164.7837,60.4619 -164.8367,60.4436 -164.8728,60.429 -164.8943,60.425 -164.9359,60.4241 -164.9567,60.4261 -165.0532,60.4365 -165.0725,60.4441 -165.1093,60.4789 -165.0565,60.5076 -164.9523,60.5217 -164.6984,60.624 -164.6728,60.6504 -164.5917,60.7459 -164.535,60.7948 -164.4483,60.8251 -164.4276,60.8301 -164.3968,60.8353 -164.3461,60.8376 -164.3302,60.8227 -164.3707,60.7896 -164.3792,60.7645 -164.3428,60.7462 -164.3219,60.7444 -164.1177,60.728 -163.9588,60.7092 -163.9374,60.6256 -163.9709,60.6176 -164.0091,60.5843 -164.0742,60.5384 -164.126,60.4859 -164.101,60.4794 -164.0811,60.4839 -164.0154,60.5338 -163.9411,60.5693 -163.9022,60.5715 -163.8408,60.5827 -163.8131,60.5941 -163.7975,60.6283 -163.7269,60.6846 -163.669,60.7023 -163.6401,60.707 -163.5541,60.7006 -163.4951,60.6634 -163.5083,60.6353 -163.5233,60.6173 -163.5219,60.5494 -163.4766,60.5042 -163.4352,60.5047 -163.3652,60.5129 -163.3404,60.519 -163.2843,60.5416 -163.2298,60.5642 -163.1485,60.6016 -163.117,60.6291 -163.1021,60.6835 -163.2064,60.7266 -163.3273,60.751 -163.4447,60.7716 -163.5346,60.7733 -163.5772,60.7806 -163.549,60.7962 -163.499,60.8101 -163.4578,60.8095 -163.4331,60.7974 -163.4057,60.7913 -163.3838,60.7897 -163.3575,60.7917 -163.3333,60.7955 -163.244,60.8231 -163.3611,60.9167 -163.4296,60.9182 -163.5807,60.8443 -163.6189,60.8209 -163.6513,60.7943 -163.734,60.7833 -163.7677,60.7845 -163.7893,60.7894 -163.8471,60.7942 -163.8699,60.7946 -164.0859,60.7921 -164.1252,60.7894 -164.2332,60.7766 -164.2487,60.7784 -164.284,60.8023 -164.2724,60.8285 -164.3004,60.8501 -164.3236,60.8551 -164.5807,60.8785 -164.6278,60.8789 -164.6586,60.8706 -164.6788,60.8568 -164.7145,60.8393 -164.7596,60.834 -164.8125,60.8449 -164.8358,60.8542 -164.8721,60.8974 -164.8416,60.9206 -164.8119,60.9318 -164.7826,60.937 -164.7363,60.9405 -164.6329,60.945 -164.5449,60.998 -164.5077,61.0289 -164.6506,61.0417 -164.6914,61.0242 -164.6816,60.9992 -164.7126,60.9882 -164.7582,60.992 -164.7983,61.0064 -164.839,61.0523 -164.8054,61.073 -164.7804,61.1241 -164.7782,61.1531 -164.823,61.1821 -164.8087,61.1532 -164.849,61.0968 -164.8848,61.0915 -164.9294,61.0814 -165.051,61.1276 -164.9767,61.177 -164.8397,61.3382 -164.7888,61.3389 -164.7435,61.342 -164.676,61.3963 -164.6423,61.4035 -164.5369,61.4185 -164.4473,61.4611 -164.4312,61.473 -164.3762,61.5253 -164.403,61.5503 -164.446,61.5517 -164.4909,61.5095 -164.619,61.4501 -164.6556,61.4443 -164.7008,61.4251 -164.7591,61.3576 -164.8377,61.3584 -164.8811,61.3319 -164.9713,61.2514 -164.9548,61.2375 -164.9914,61.1837 -165.0878,61.1279 -165.0707,61.1052 -165.0503,61.0982 -165.0296,61.0879 -165.0511,60.9985 -165.0714,60.9944 -165.1042,60.9963 -165.1781,61.0011 -165.2162,61.0091 -165.2845,61.0402 -165.3187,61.0922 -165.3277,61.1694 -165.299,61.2022 -165.3854,61.2259 -165.4237,61.2324 -165.4452,61.234 -165.4997,61.233 -165.5209,61.2349 -165.5395,61.2435 -165.556,61.258 -165.58,61.2856 -165.6029,61.3266 -165.5665,61.3552 -165.5127,61.3679 -165.4752,61.3707 -165.4468,61.4107 -165.4752,61.4448 -165.4979,61.4595 -165.5754,61.4798 -165.6189,61.4804 -165.6437,61.4796 -165.6677,61.4757 -165.7705,61.4453 -165.75,61.4221 -165.7982,61.4171 -165.8521,61.4707 -165.8782,61.5154 -165.8281,61.6385 -165.8322,61.5811 -165.818,61.5597 -165.7684,61.5611 -165.7417,61.5638 -165.5082,61.606 -165.5332,61.6137 -165.615,61.6286 -165.6893,61.6565 -165.7197,61.6818 -165.773,61.7405 -165.4368,61.7659 -165.3142,61.7717 -165.3614,61.8315 -165.3852,61.846 -165.3995,61.8623 -165.4331,61.9103 -165.4362,61.9395 -165.4244,61.9705 -165.3813,62.0401 -165.357,62.0615 -165.3039,62.0886 -165.2463,62.1231 -165.1093,62.2311 -164.9888,62.3272 -164.9469,62.3584 -164.9265,62.3695 -164.7989,62.4356 -164.7512,62.4561 -164.7229,62.4616 -164.6807,62.461 -164.5774,62.4546 -164.326,62.3512 -164.326,62.3512 5,-9.0,United States -164.326,62.3512 -164.367,62.3041 -164.3173,62.3411 -164.326,62.3512 -164.326,62.3512 37,-2.0,Greenland -53.4607,71.2067 -53.4379,71.1855 -53.4237,71.1744 -53.3951,71.1524 -53.3681,71.1364 -53.3453,71.1214 -53.331,71.1102 -53.2964,71.0824 -53.289,71.076 -53.2732,71.0592 -53.2595,71.0414 -53.255,71.0209 -53.2896,70.9863 -53.3038,70.9729 -53.3307,70.9559 -53.3507,70.9486 -53.3795,70.9418 -53.3953,70.939 -53.4286,70.936 -53.5266,70.9307 -53.5458,70.9299 -53.5622,70.931 -53.5932,70.9377 -53.7516,70.9784 -53.7932,70.9903 -53.8328,71.0025 -53.8559,71.0149 -53.8669,71.034 -53.8497,71.0577 -53.8236,71.0737 -53.702,71.1328 -53.5331,71.2127 -53.5124,71.2207 -53.4902,71.2226 -53.4745,71.2191 -53.4607,71.2067 -53.4607,71.2067 14,-6.0,Canada -96.3882,71.1964 -96.3586,71.1993 -96.3409,71.1981 -96.3247,71.1952 -96.3134,71.1888 -96.2496,71.135 -96.2625,71.1123 -96.3394,71.1144 -96.3561,71.1165 -96.4067,71.1264 -96.4192,71.1377 -96.4283,71.196 -96.3882,71.1964 -96.3882,71.1964 19,-5.0,Canada -70.8815,71.0489 -70.8977,71.0247 -70.9135,71.0111 -70.9499,70.9956 -70.9804,70.9888 -71.0765,70.9691 -71.0899,70.9765 -71.0922,70.9865 -71.0844,71.0005 -71.0668,71.0167 -71.0552,71.0243 -71.0376,71.0321 -70.986,71.0485 -70.9552,71.0556 -70.9193,71.0613 -70.9005,71.0632 -70.8735,71.0588 -70.8815,71.0489 -70.8815,71.0489 74,2.0,Norway 25.5273,70.8288 25.4939,70.8305 25.4808,70.8327 25.4647,70.8384 25.3587,70.8889 25.37,70.8923 25.3832,70.8944 25.4636,70.9067 25.4915,70.91 25.5023,70.9163 25.4903,70.9221 25.4731,70.9249 25.4047,70.9318 25.3767,70.9288 25.3368,70.9224 25.3124,70.9167 25.2855,70.9125 25.2501,70.9145 25.2319,70.924 25.2368,70.9485 25.2598,70.9783 25.2764,70.9824 25.3325,70.9888 25.453,70.9962 25.5251,70.9987 25.5574,71.0134 25.6151,71.0444 25.7259,71.0609 25.7445,71.0568 25.7376,71.0293 25.7691,71.0047 25.8274,70.9972 25.8444,71.0 25.8869,71.012 25.92,71.021 25.9295,71.0252 25.9444,71.0265 25.9646,71.0225 25.9786,71.0116 25.9836,70.9949 25.9729,70.9851 25.963,70.9806 25.952,70.9768 25.9031,70.9657 25.865,70.9576 25.8695,70.9108 25.8809,70.9072 25.8978,70.9046 25.9651,70.9027 25.9967,70.9032 26.009,70.9064 26.0186,70.9108 26.032,70.9222 26.0407,70.9279 26.0502,70.9324 26.0835,70.9438 26.108,70.949 26.1213,70.951 26.1376,70.9513 26.1572,70.9435 26.1514,70.9202 26.1408,70.9116 26.1175,70.905 26.0247,70.8811 26.0123,70.8782 25.8608,70.8682 25.845,70.868 25.7845,70.8698 25.6623,70.8618 25.5672,70.8349 25.5551,70.8321 25.5418,70.8302 25.5273,70.8288 25.5273,70.8288 3081,2.0,Norway 6.2412,59.2138 6.1159,59.1882 5.9854,59.2617 6.02,59.3019 6.0617,59.3234 6.0913,59.3358 6.2033,59.4019 6.2208,59.4301 6.3792,59.4694 6.4071,59.4755 6.4347,59.4816 6.4568,59.4838 6.4155,59.4919 6.2416,59.5024 6.216,59.4634 6.1579,59.4 6.1392,59.3813 6.1177,59.368 6.0975,59.3578 6.0707,59.344 5.9293,59.2822 5.8698,59.3361 5.8724,59.365 5.8922,59.3739 5.9313,59.3705 5.976,59.3741 6.1342,59.4078 6.1125,59.4153 5.8843,59.4055 5.7972,59.398 5.7024,59.3654 5.6573,59.3379 5.6902,59.3473 5.7218,59.3548 5.7607,59.3584 5.7828,59.3561 5.8483,59.3079 5.8416,59.273 5.677,59.2377 5.6163,59.2576 5.602,59.2813 5.5916,59.2995 5.5719,59.305 5.5627,59.2504 5.5261,59.2117 5.5063,59.2046 5.4754,59.2053 5.4543,59.2084 5.3791,59.2199 5.2722,59.2797 5.1943,59.3597 5.177,59.4205 5.1692,59.4354 5.2944,59.5521 5.4207,59.628 5.4709,59.656 5.5016,59.632 5.4965,59.5963 5.4724,59.5355 5.4436,59.4773 5.4498,59.4479 5.4893,59.459 5.5077,59.4712 5.5155,59.4818 5.5286,59.511 5.5153,59.5448 5.5311,59.5865 5.5583,59.604 5.6671,59.5963 5.7328,59.6085 5.8014,59.6517 5.8795,59.6688 5.9298,59.6646 6.0505,59.671 6.2919,59.7726 6.1951,59.7601 6.1534,59.7473 6.1184,59.7304 6.0952,59.716 6.0372,59.6901 5.969,59.681 5.8296,59.695 5.7874,59.7085 5.6877,59.7608 5.6946,59.7943 5.7243,59.8371 5.7599,59.8537 5.8135,59.8674 5.865,59.8751 5.8872,59.8777 5.9458,59.8795 5.9683,59.8985 5.9426,59.9306 5.9713,59.9581 5.9923,59.9752 6.0194,59.9927 6.0968,60.0337 6.0622,60.1081 6.1932,60.2225 6.3201,60.2829 6.4623,60.3436 6.4918,60.3529 6.5118,60.3562 6.5523,60.3559 6.5962,60.349 6.6226,60.333 6.5952,60.3043 6.5726,60.2768 6.5193,60.1861 6.4967,60.0807 6.4939,60.035 6.5096,60.0109 6.5113,60.0478 6.5132,60.0683 6.5218,60.0933 6.5662,60.1821 6.603,60.2509 6.64,60.2999 6.7292,60.3637 6.7594,60.3836 6.7807,60.3939 6.8211,60.4005 6.9209,60.4118 6.9662,60.4092 7.0039,60.4028 7.0365,60.3982 7.0642,60.4052 7.0886,60.4228 6.9663,60.4324 6.9602,60.4729 6.9966,60.5103 6.9631,60.507 6.9393,60.4973 6.8953,60.4705 6.877,60.4588 6.8631,60.4445 6.7993,60.4154 6.6765,60.367 6.6517,60.3584 6.6097,60.357 6.5802,60.3729 6.5556,60.3864 6.455,60.3689 6.3631,60.3463 6.3324,60.3341 6.296,60.3179 6.2733,60.3131 6.2415,60.3193 6.2096,60.3344 6.176,60.2747 6.1437,60.2 6.1138,60.1685 5.9711,60.1635 5.8888,60.0787 5.8687,59.9724 5.8484,59.9511 5.7962,59.9293 5.7458,59.9136 5.7365,59.9146 5.6973,59.9329 5.6744,59.9724 5.6313,60.0731 5.5937,60.0686 5.5625,60.0682 5.5386,60.0763 5.623,60.2391 5.6666,60.2867 5.7005,60.2935 5.7173,60.3108 5.6147,60.2849 5.5341,60.1853 5.4407,60.1066 5.4012,60.057 5.3916,60.0595 5.3513,60.0737 5.2962,60.1167 5.2129,60.1339 5.302,60.1885 5.1545,60.2091 5.1354,60.2881 5.194,60.3193 5.2428,60.3548 5.2215,60.405 5.2496,60.4336 5.2755,60.4485 5.3023,60.4486 5.3373,60.4316 5.3545,60.4195 5.3799,60.4046 5.4493,60.3635 5.4767,60.3494 5.5161,60.3425 5.5968,60.3418 5.6265,60.3437 5.6957,60.3865 5.705,60.4175 5.7093,60.601 5.6903,60.6205 5.6503,60.6358 5.6173,60.6394 5.5522,60.6168 5.5241,60.5659 5.3502,60.4917 5.3092,60.4849 5.2584,60.4798 5.2317,60.484 5.189,60.5043 5.0864,60.5811 5.1256,60.5851 5.1672,60.5577 5.2071,60.5437 5.1266,60.6374 5.1007,60.6501 5.0773,60.656 5.0177,60.6701 4.9219,60.727 4.9954,60.7279 5.0925,60.6949 5.2081,60.6615 5.274,60.6449 5.2981,60.6189 5.3251,60.5714 5.3496,60.5592 5.4178,60.5538 5.4267,60.5865 5.3985,60.6265 5.3539,60.6549 5.3164,60.6652 5.245,60.6811 5.2275,60.6971 5.3405,60.7744 5.3601,60.782 5.4284,60.791 5.4678,60.7857 5.4946,60.7878 5.5218,60.7972 5.4504,60.8243 5.334,60.7996 5.3135,60.7818 5.3008,60.7563 5.2442,60.7367 5.1357,60.7339 5.1083,60.7416 5.1102,60.7606 5.0946,60.7563 5.0605,60.7558 5.0364,60.7674 4.9741,60.8767 4.9946,60.9259 5.003,60.9662 5.0457,60.9882 5.0947,60.999 5.1185,60.9979 5.1594,60.9942 5.2329,60.9804 5.2572,60.9602 5.2865,60.9532 5.4091,60.9516 5.4489,60.9664 5.4683,60.9813 5.6145,61.0148 5.7151,61.0232 5.7811,61.0287 5.8184,61.0337 5.9095,61.049 6.105,61.0417 6.237,61.0206 6.2554,61.0121 6.3093,60.992 6.3603,60.9877 6.3947,60.9925 6.5007,61.0229 6.578,61.0771 6.6423,61.0774 6.8054,61.0675 6.8246,61.0626 6.9457,61.0047 6.9961,60.9417 7.1151,60.8412 7.1057,60.8075 7.0905,60.7862 7.1004,60.7865 7.1229,60.7959 7.1438,60.8172 7.1543,60.8414 7.1472,60.8707 7.0914,60.8822 7.0587,60.9006 7.0057,60.9621 6.9848,61.0137 7.0125,61.0269 7.0453,61.0256 7.0695,61.027 7.1589,61.0337 7.299,61.0495 7.4145,61.1071 7.3889,61.1196 7.3569,61.1254 7.3394,61.1374 7.2904,61.2166 7.35,61.2905 7.4409,61.3513 7.4615,61.3623 7.5125,61.3768 7.5481,61.3957 7.4415,61.3701 7.4105,61.358 7.3146,61.301 7.2954,61.2878 7.2658,61.251 7.2592,61.2044 7.2838,61.1759 7.3399,61.1157 7.2644,61.0845 7.135,61.0686 6.9481,61.0357 6.9174,61.0414 6.9054,61.0601 6.8933,61.0873 6.8323,61.1003 6.8017,61.1068 6.7615,61.1065 6.7173,61.1033 6.5666,61.1372 6.553,61.1529 6.5713,61.1713 6.6081,61.1876 6.627,61.1996 6.6824,61.2685 6.6997,61.32 6.5788,61.1942 6.5082,61.1718 6.5263,61.13 6.4892,61.058 6.4165,61.0388 6.3342,61.0361 6.3069,61.0405 6.2258,61.0608 5.9539,61.0821 5.7382,61.0785 5.5479,61.0571 5.5131,61.0431 5.4952,61.0311 5.4581,61.0146 5.3969,60.9965 5.3872,60.9944 5.3154,61.0221 5.2679,61.0365 5.1499,61.0586 5.1063,61.0674 5.0396,61.0908 5.0816,61.115 5.1138,61.1136 5.1564,61.1028 5.1877,61.0901 5.209,61.0875 5.2332,61.1079 5.1965,61.1283 5.1263,61.1499 5.1034,61.15 5.0789,61.1483 5.0099,61.1403 4.982,61.1433 4.9431,61.1815 5.161,61.2589 5.4046,61.2961 5.4368,61.3011 5.3964,61.3019 5.248,61.2905 5.1565,61.2769 5.1362,61.2731 5.1103,61.265 5.0684,61.2477 5.0375,61.2426 4.9943,61.2733 4.9401,61.3358 4.9587,61.3462 5.0611,61.3703 5.1739,61.3786 5.3264,61.3776 5.5228,61.3545 5.6108,61.3767 5.7571,61.3758 5.7853,61.3731 5.7569,61.4047 5.7283,61.4153 5.7006,61.4197 5.6694,61.4199 5.633,61.4169 5.611,61.409 5.5733,61.3907 5.5522,61.3839 5.4477,61.3757 5.1786,61.4239 5.13,61.4441 5.1329,61.4771 5.2402,61.4763 5.2638,61.4829 5.2386,61.4938 5.2028,61.5025 5.1437,61.5139 5.1971,61.5243 5.2635,61.5232 5.3099,61.518 5.2863,61.5288 5.265,61.5312 5.2252,61.5334 5.1849,61.5326 5.1085,61.535 5.2237,61.5495 5.1819,61.552 5.108,61.5521 4.9881,61.5528 4.9625,61.5572 4.9301,61.6 4.956,61.644 4.9734,61.6648 5.0581,61.6926 5.2709,61.78 5.3493,61.829 5.4069,61.8357 5.5853,61.8197 5.6655,61.8051 5.6906,61.7931 5.7339,61.7668 5.9761,61.7547 6.0503,61.7553 6.2203,61.7616 6.2411,61.7607 6.2871,61.7542 6.3159,61.7434 6.3362,61.7356 6.3885,61.7285 6.4569,61.7255 6.5013,61.7319 6.5308,61.7505 6.5402,61.7742 6.576,61.792 6.6117,61.7953 6.6456,61.7944 6.6704,61.7915 6.7048,61.7865 6.7262,61.7824 6.7505,61.7924 6.6751,61.8064 6.639,61.8095 6.5919,61.8067 6.5548,61.8042 6.5331,61.7975 6.5139,61.782 6.4919,61.7554 6.4105,61.7536 6.3715,61.7565 6.337,61.7616 6.2075,61.7786 5.9317,61.794 5.8947,61.7873 5.7915,61.7808 5.7464,61.7935 5.7177,61.8129 5.7502,61.8201 5.7915,61.8255 5.8255,61.8281 5.8682,61.8307 5.8232,61.8363 5.7712,61.8397 5.5235,61.8512 5.4234,61.8593 5.3829,61.855 5.3107,61.8381 5.2796,61.8322 5.1449,61.8168 5.0938,61.8386 5.1359,61.8936 5.1778,61.8809 5.2103,61.8859 5.3889,61.9431 5.2688,61.9989 5.1968,62.0207 5.1764,62.0254 5.1059,62.0278 5.0861,62.0343 5.0637,62.077 5.0706,62.1008 5.1486,62.1366 5.1838,62.1257 5.2377,62.0958 5.4364,61.9818 5.4567,61.9625 5.4521,61.9335 5.4585,61.9311 5.4859,61.9494 5.5376,62.0025 5.5005,62.0141 5.4525,62.0201 5.4123,62.0288 5.3771,62.0449 5.4105,62.102 5.445,62.108 5.4733,62.1083 5.6725,62.0963 5.8408,62.122 5.8751,62.1174 5.9031,62.1032 5.9123,62.0842 5.9087,62.0378 5.939,62.0309 6.0308,62.0228 6.2563,61.9974 6.2803,61.9832 6.3481,61.9851 6.2549,62.0106 6.164,62.0184 6.1113,62.021 6.0808,62.0281 5.9089,62.1307 5.9376,62.1781 5.9653,62.1964 6.0047,62.2195 6.04,62.2306 6.2802,62.2937 6.3083,62.2913 6.4582,62.1644 6.5373,62.0897 6.5493,62.0658 6.5209,62.0347 6.574,62.0586 6.5595,62.0911 6.4678,62.1884 6.4336,62.2134 6.4061,62.229 6.3741,62.2779 6.3828,62.301 6.4081,62.3135 6.6903,62.3685 6.8647,62.3362 6.8617,62.3055 6.8621,62.2759 6.9196,62.2281 6.9539,62.2161 6.9718,62.2041 6.985,62.1834 6.9942,62.1138 6.9678,62.0883 6.9281,62.0594 6.9313,62.033 6.9607,62.0139 6.9898,62.0098 7.0045,62.0092 7.0296,62.0107 7.0553,62.0155 7.0741,62.0284 7.051,62.0273 7.0254,62.0225 6.9972,62.0225 6.9688,62.0304 6.9566,62.047 6.9853,62.0687 7.0135,62.0868 7.0239,62.1109 7.0207,62.142 7.0141,62.1902 7.0907,62.1979 7.1642,62.1993 6.9544,62.2383 6.9092,62.2865 6.9543,62.2966 6.8949,62.3426 6.8419,62.3731 6.7735,62.4006 6.6647,62.3925 6.6433,62.3841 6.5352,62.359 6.5034,62.3534 6.3718,62.3431 6.2438,62.3796 6.3576,62.4078 6.4243,62.417 6.4928,62.4204 6.5762,62.4159 6.6059,62.4178 6.6339,62.4191 6.6191,62.4362 6.537,62.4537 6.487,62.4544 6.4463,62.4538 6.3026,62.4476 6.2553,62.453 6.241,62.5012 6.2854,62.5232 6.3202,62.5311 6.5397,62.5343 6.5889,62.5071 6.6912,62.5595 6.7227,62.5727 6.7441,62.576 6.9509,62.5732 7.0762,62.571 7.349,62.5093 7.5023,62.4606 7.5245,62.4227 7.5662,62.471 7.6664,62.4804 7.7575,62.4983 7.7159,62.5028 7.5919,62.4918 7.5691,62.4894 7.537,62.4841 7.51,62.4837 7.4832,62.4858 7.4601,62.4895 7.4392,62.4974 7.4045,62.5188 7.3975,62.5402 7.5083,62.59 7.5871,62.6152 7.6156,62.6223 7.7707,62.6477 7.81,62.653 7.8477,62.6552 7.9814,62.6592 8.0601,62.6372 8.0992,62.6206 8.1222,62.6168 8.1063,62.6423 8.0307,62.6768 7.9841,62.6868 7.6777,62.6549 7.6545,62.6519 7.5417,62.6225 7.5173,62.6134 7.4704,62.6029 7.3756,62.6063 7.3537,62.6493 7.4394,62.6782 7.4768,62.6884 7.5267,62.699 7.5752,62.703 7.631,62.707 7.6664,62.7142 7.6262,62.7178 7.6051,62.7177 7.4438,62.699 7.4148,62.6882 7.3909,62.6787 7.3125,62.6679 7.1896,62.6587 6.9657,62.6446 6.9412,62.647 6.9609,62.7219 6.9786,62.7796 6.925,62.8291 6.936,62.854 7.0228,62.89 7.0766,62.9066 7.0969,62.9108 7.2509,62.934 7.2839,62.9245 7.367,62.8801 7.4307,62.8376 7.4531,62.8342 7.5063,62.8401 7.5608,62.8562 7.5912,62.8772 7.6342,62.8917 7.6669,62.8972 7.7036,62.9001 7.7326,62.8998 7.7629,62.8879 7.7253,62.8616 7.6896,62.8507 7.6587,62.836 7.7149,62.8402 7.88,62.8762 7.9281,62.8915 7.9487,62.8958 7.969,62.8954 7.9953,62.8896 8.0408,62.8742 8.0683,62.8636 8.0935,62.8268 8.1342,62.7441 8.1642,62.7236 8.1984,62.7148 8.2706,62.7045 8.291,62.6997 8.4764,62.6383 8.5098,62.6164 8.5245,62.6028 8.5319,62.5771 8.5532,62.5987 8.5435,62.6322 8.311,62.7263 8.2847,62.7323 8.2296,62.7393 8.1677,62.7668 8.1571,62.8195 8.1378,62.8669 7.9906,62.9183 7.9523,62.9269 7.9307,62.9194 7.8855,62.9174 7.8656,62.9252 7.9593,63.0029 8.0226,63.0257 8.0549,63.0309 8.0822,63.0263 8.1141,63.0004 8.1134,62.9706 8.2916,62.8607 8.3171,62.8193 8.3417,62.8034 8.4805,62.769 8.5153,62.7701 8.4941,62.7934 8.4011,62.874 8.4291,62.8822 8.4549,62.8832 8.5002,62.8815 8.5551,62.8823 8.5807,62.8831 8.64,62.8945 8.4989,62.9056 8.4143,62.9012 8.3655,62.8937 8.2105,62.9502 8.1453,63.0406 8.2297,63.0687 8.2924,63.0731 8.5152,63.0583 8.5524,63.0639 8.5599,63.0872 8.6148,63.105 8.7057,63.1086 8.7508,63.1153 8.7869,63.1178 8.9229,63.1302 8.8541,63.1317 8.8076,63.1297 8.6015,63.1222 8.4631,63.2138 8.5232,63.2315 8.5676,63.2344 8.6093,63.2347 8.6344,63.2366 8.655,63.2403 8.7413,63.2648 8.6918,63.2727 8.6242,63.3177 8.6552,63.3358 8.7202,63.338 8.7288,63.3412 8.9504,63.3665 8.9833,63.3864 9.0511,63.3625 9.0964,63.3349 9.1282,63.296 9.2136,63.2759 9.3552,63.2903 9.3996,63.2966 9.4502,63.318 9.3765,63.3048 9.1987,63.2905 9.1472,63.3113 9.1348,63.4075 9.2294,63.457 9.3097,63.4612 9.3981,63.4557 9.4507,63.4888 9.4765,63.5098 9.516,63.5263 9.6286,63.5455 9.6985,63.5519 9.9388,63.3558 9.9239,63.3152 9.9566,63.2783 10.0211,63.2702 10.1328,63.2419 10.2347,63.2124 10.2431,63.1872 10.2583,63.2388 10.2407,63.2572 10.2087,63.2647 10.145,63.2658 10.1027,63.2696 10.0553,63.2835 10.0263,63.3057 10.0448,63.3415 10.0677,63.3523 10.1056,63.3621 10.1266,63.3659 10.2531,63.3849 10.2803,63.3853 10.423,63.3745 10.505,63.3561 10.5301,63.3529 10.5567,63.3535 10.7168,63.3609 10.8343,63.3657 10.868,63.3693 10.8904,63.38 10.8552,63.3927 10.7908,63.3972 10.7571,63.4042 10.7406,63.4277 10.7588,63.454 10.7874,63.4633 10.8687,63.4682 10.8959,63.4741 10.8916,63.5215 10.8577,63.5229 10.7058,63.4868 10.6669,63.4696 10.6455,63.467 10.6996,63.5266 10.7216,63.538 10.9031,63.6086 10.9444,63.6222 11.025,63.6336 11.056,63.621 11.1338,63.6272 11.1612,63.6356 11.2007,63.6657 11.2315,63.6892 11.2574,63.6944 11.3152,63.6967 11.3994,63.7042 11.4376,63.7195 11.405,63.7623 11.273,63.7867 11.253,63.7891 11.2115,63.7848 11.1709,63.7722 11.1153,63.7643 11.0827,63.7707 11.0739,63.8073 11.2425,63.8819 11.3251,63.8937 11.3985,63.8979 11.4655,63.9265 11.4012,63.9478 11.2968,63.953 11.3354,64.0292 11.2908,64.0372 11.1906,63.9648 11.1821,63.9431 11.1584,63.9288 11.1086,63.9097 11.0709,63.8994 11.0301,63.8904 10.9852,63.8764 10.9237,63.8557 10.8916,63.8359 10.7854,63.7994 10.744,63.7909 10.7112,63.7872 10.6746,63.7781 10.5591,63.726 10.6186,63.7353 10.7309,63.7669 10.8386,63.8009 10.8808,63.8148 11.0005,63.7968 11.0529,63.761 10.9205,63.6594 10.8985,63.6521 10.8592,63.6471 10.8264,63.6419 10.7865,63.633 10.6128,63.5838 10.595,63.5613 10.5264,63.5371 10.3723,63.4904 10.2947,63.4794 10.2327,63.4789 10.1969,63.4717 10.1491,63.4489 10.073,63.424 10.0282,63.4178 9.9805,63.417 9.9029,63.4284 9.789,63.5437 9.77,63.5841 9.7889,63.6101 9.8382,63.6109 9.8959,63.6214 9.9856,63.6419 10.0441,63.6647 10.075,63.6809 9.9858,63.694 9.8862,63.6712 9.7139,63.6225 9.5515,63.583 9.5279,63.5838 9.5267,63.6873 9.5601,63.7069 9.612,63.7289 9.6817,63.7448 9.806,63.7857 9.8428,63.8073 10.117,63.8605 10.1444,63.8558 10.1727,63.8541 10.1535,63.8732 10.1001,63.9062 10.0348,63.9028 9.9628,63.9117 10.0008,63.9871 10.146,64.1105 10.2342,64.1494 10.3288,64.1945 10.4266,64.2447 10.4414,64.2633 10.4576,64.2762 10.4919,64.288 10.5376,64.2823 10.5692,64.2655 10.6312,64.2759 10.5455,64.3101 10.469,64.3213 10.44,64.3232 10.4745,64.3439 10.499,64.349 10.5677,64.3515 10.6305,64.3457 10.6513,64.334 10.7412,64.3003 10.7869,64.2862 10.8282,64.2907 10.7858,64.3449 10.7648,64.3597 10.7264,64.3594 10.6942,64.3538 10.6677,64.3538 10.6416,64.3635 10.6743,64.389 10.7873,64.4269 10.8135,64.4254 10.8796,64.4103 10.9148,64.4934 10.944,64.5209 11.0135,64.4992 11.0412,64.4837 11.0392,64.4628 11.0436,64.4396 11.2512,64.3718 11.2634,64.2949 11.1997,64.2367 11.2367,64.254 11.3225,64.3093 11.4161,64.385 11.4238,64.4111 11.4852,64.4641 11.5085,64.4709 11.536,64.4715 11.5576,64.4695 11.5978,64.472 11.7049,64.4998 11.6646,64.5098 11.5676,64.4984 11.5154,64.4837 11.4861,64.4917 11.4552,64.5121 11.4381,64.5251 11.3746,64.5896 11.3953,64.6174 11.4158,64.6308 11.529,64.6814 11.5753,64.6915 11.6194,64.6948 11.6459,64.6912 11.7155,64.689 11.7717,64.6977 11.8161,64.7146 11.77,64.7227 11.7192,64.7225 11.6682,64.7283 11.6202,64.7375 11.632,64.7622 11.7102,64.7951 11.9291,64.8495 12.0421,64.8753 12.0639,64.8778 12.1223,64.8712 12.1516,64.8576 12.1928,64.8599 12.1624,64.8747 12.1324,64.8838 12.1042,64.8894 12.0647,64.8921 12.0175,64.8903 11.8896,64.8645 11.8701,64.8589 11.7238,64.8124 11.4223,64.6991 11.3639,64.6696 11.3312,64.6619 11.2793,64.6547 11.2195,64.6534 11.2703,64.6703 11.3522,64.7252 11.3075,64.7278 11.2155,64.7391 11.2504,64.7599 11.3519,64.7716 11.4123,64.7766 11.4543,64.7757 11.5267,64.7834 11.673,64.8182 11.6515,64.8226 11.6039,64.8158 11.2878,64.7753 11.2309,64.7751 11.2794,64.8045 11.3296,64.8208 11.405,64.8431 11.5244,64.8689 11.6089,64.8806 11.6596,64.8752 11.6907,64.878 11.7567,64.8927 11.7796,64.9187 11.855,64.9578 11.9194,64.9781 11.9436,64.9829 11.9514,64.9846 11.9804,64.9785 11.9858,64.9707 11.9873,64.9564 11.9993,64.9458 12.021,64.9716 12.1248,64.9583 12.2303,64.9718 12.3959,65.0033 12.5996,65.0521 12.9134,65.239 12.7952,65.1892 12.6776,65.1323 12.6496,65.119 12.455,65.0529 12.366,65.0592 12.3436,65.0765 12.3977,65.1492 12.4853,65.1587 12.5926,65.161 12.6501,65.1703 12.6233,65.183 12.4065,65.1903 12.343,65.1879 12.3149,65.1808 12.2351,65.1446 12.2248,65.1502 12.3111,65.2106 12.4533,65.2782 12.4844,65.2849 12.513,65.296 12.4557,65.3593 12.5266,65.3643 12.5833,65.3427 12.6092,65.3341 12.5825,65.377 12.5369,65.4223 12.506,65.4348 12.4806,65.4286 12.4517,65.4308 12.3964,65.4464 12.368,65.462 12.331,65.5079 12.3303,65.5583 12.4098,65.618 12.4693,65.6442 12.5064,65.6443 12.547,65.6315 12.586,65.5787 12.6219,65.5545 12.7284,65.5446 12.7582,65.5526 12.6412,65.5979 12.5569,65.6452 12.5281,65.6653 12.5838,65.7602 12.6221,65.8165 12.6454,65.8364 12.6696,65.8482 12.7189,65.8663 12.7572,65.8776 12.7831,65.8839 12.8091,65.8841 12.8719,65.8698 12.8914,65.8637 13.0295,65.8186 13.1431,65.7671 13.1217,65.8263 13.0908,65.8586 13.0444,65.8572 12.9615,65.8724 12.9148,65.8887 12.8998,65.9027 12.9313,65.956 12.8796,65.9709 12.8595,65.9672 12.7166,65.9561 12.6953,65.9563 12.6483,65.9812 12.8135,66.0443 12.869,66.0508 12.8969,66.0519 12.929,66.0502 12.9579,66.0516 13.0424,66.0633 13.1361,66.0836 13.2007,66.0976 13.2386,66.1159 13.2774,66.1356 13.3245,66.1401 13.5322,66.1505 13.5492,66.1308 13.4999,66.1099 13.5044,66.0274 13.5225,66.0172 13.5854,66.1082 13.6354,66.1425 13.6773,66.1506 13.718,66.1529 13.7396,66.1531 13.7786,66.1473 13.8271,66.1376 13.8496,66.142 13.9705,66.1653 14.1096,66.2368 14.0848,66.2531 13.939,66.2171 13.7193,66.1931 13.6923,66.1703 13.612,66.1553 13.5916,66.1543 13.5621,66.16 13.4549,66.1683 13.3402,66.1578 13.1684,66.1162 13.1473,66.1113 13.1156,66.1044 13.04,66.0923 13.0022,66.1055 13.1845,66.19 13.3152,66.2169 13.3864,66.2128 13.464,66.2117 13.5001,66.2215 13.4468,66.2298 13.2998,66.2344 13.2274,66.2171 13.1921,66.2113 13.1655,66.2097 13.1223,66.2139 13.0172,66.2326 12.9944,66.2408 12.9802,66.2693 13.0157,66.2777 13.0497,66.2838 13.1345,66.3135 13.1284,66.3494 13.0517,66.4112 13.0008,66.412 12.9495,66.4335 13.0591,66.4531 13.0816,66.4529 13.1037,66.4475 13.184,66.4254 13.2569,66.4372 13.4295,66.475 13.4613,66.4948 13.5175,66.5093 13.5387,66.5143 13.6011,66.5171 13.6322,66.5166 13.6856,66.5173 13.6186,66.5276 13.4941,66.5214 13.4446,66.5074 13.4208,66.4913 13.39,66.4719 13.2422,66.4565 13.2074,66.4617 13.1811,66.4703 13.1463,66.5637 13.1648,66.577 13.3635,66.5691 13.4557,66.5593 13.5081,66.5507 13.4879,66.5634 13.4633,66.5767 13.3744,66.5978 13.2946,66.6027 13.2703,66.6051 13.2022,66.6259 13.2601,66.6368 13.375,66.6323 13.4663,66.6252 13.5167,66.6137 13.5428,66.6064 13.6721,66.6061 13.8361,66.635 13.8588,66.6437 13.7114,66.6421 13.6619,66.6371 13.5954,66.6281 13.5582,66.6237 13.5292,66.6262 13.5162,66.6568 13.5432,66.6721 13.5747,66.6756 13.6016,66.6763 13.6522,66.6747 13.6157,66.6824 13.5707,66.6873 13.5407,66.6868 13.512,66.6843 13.4849,66.6968 13.5418,66.7148 13.589,66.7219 13.7182,66.7105 13.9624,66.7009 13.9308,66.7117 13.8979,66.7174 13.8164,66.7164 13.7961,66.7185 13.6644,66.7455 13.4981,66.8151 13.5237,66.8437 13.5437,66.8494 13.5698,66.8517 13.7278,66.8529 13.8998,66.835 13.922,66.8349 14.0936,66.8956 14.1696,66.8879 14.1932,66.8912 14.2425,66.9405 14.2748,66.9688 14.3741,66.9748 14.5027,66.9591 14.5252,66.9375 14.5644,66.9481 14.5482,66.9665 14.3953,66.986 14.3418,66.9855 14.2686,66.9857 14.2396,66.9918 14.2963,67.0586 14.3212,67.0661 14.4186,67.0791 14.5685,67.0772 14.6462,67.0713 14.6792,67.0659 14.6955,67.0482 14.7124,67.0327 14.7211,67.056 14.6948,67.0727 14.6745,67.079 14.5757,67.0901 14.4977,67.0923 14.5222,67.1048 14.5507,67.11 14.7656,67.1259 14.9023,67.1192 14.8991,67.0896 14.8625,67.0636 14.9438,67.008 14.9756,67.0138 14.9562,67.0402 14.9299,67.051 14.9028,67.0587 14.9337,67.0885 14.9899,67.1177 15.0281,67.1237 15.2205,67.1006 15.3231,67.079 15.3475,67.0738 15.3637,67.0574 15.3574,67.0296 15.422,66.987 15.4637,66.9801 15.4406,67.0546 15.3533,67.1088 15.385,67.1219 15.4514,67.1222 15.5018,67.1157 15.5599,67.1052 15.5866,67.0962 15.681,67.0849 15.7034,67.0904 15.664,67.1213 15.3822,67.1501 15.2445,67.1559 15.2242,67.1548 15.1984,67.1471 15.1649,67.1446 15.0402,67.1657 15.0663,67.1722 15.1094,67.1842 15.1226,67.22 15.0074,67.21 14.8284,67.1881 14.7999,67.1662 14.6827,67.1315 14.6622,67.1262 14.6384,67.1223 14.5994,67.1236 14.5099,67.1609 14.3327,67.1551 14.4345,67.2099 14.5303,67.2634 14.5455,67.3072 14.593,67.3304 14.6261,67.3394 14.7306,67.334 14.7685,67.329 14.7817,67.3138 14.8523,67.3192 14.8901,67.3415 14.854,67.3443 14.7985,67.3561 14.7012,67.4048 14.7887,67.4422 14.8864,67.4691 14.9408,67.4773 15.0049,67.4847 15.0425,67.4833 15.1151,67.4553 14.9759,67.4009 14.9551,67.3954 14.9279,67.3904 14.9034,67.3874 14.964,67.383 15.0047,67.3879 15.0775,67.4071 15.295,67.3969 15.3638,67.3925 15.4035,67.3878 15.4335,67.375 15.4984,67.3102 15.5561,67.2316 15.5933,67.1805 15.6124,67.1827 15.6593,67.2102 15.5827,67.266 15.4846,67.3398 15.4993,67.3791 15.5155,67.3964 15.5561,67.4148 15.587,67.4253 15.6722,67.4503 15.7287,67.462 15.7615,67.4647 15.8203,67.466 15.8546,67.4704 15.8064,67.4804 15.6901,67.4725 15.6677,67.4678 15.6258,67.4572 15.6056,67.451 15.5784,67.4406 15.5139,67.4219 15.3284,67.4263 15.2474,67.4326 15.2072,67.4427 15.1508,67.5333 15.2752,67.6304 15.3254,67.6216 15.4228,67.5996 15.4766,67.59 15.6195,67.589 15.5717,67.6024 15.5393,67.6128 15.5084,67.6166 15.4789,67.6152 15.4535,67.6178 15.3699,67.6493 15.4488,67.6433 15.5063,67.6473 15.5446,67.649 15.5755,67.6452 15.6135,67.6304 15.7309,67.6016 15.756,67.5933 15.794,67.5903 15.7484,67.6415 15.6512,67.6635 15.5996,67.6735 15.5566,67.6801 15.3403,67.7061 15.1462,67.6235 15.0415,67.5951 14.9701,67.5769 14.8878,67.5629 14.8132,67.5526 14.782,67.5527 14.7312,67.557 14.7028,67.5656 14.7524,67.6349 14.8684,67.6422 14.9526,67.6416 15.0047,67.6538 15.0022,67.6896 14.9549,67.6903 14.8387,67.6826 14.8115,67.6804 14.7383,67.6976 14.7263,67.7162 14.7623,67.7338 14.9712,67.7527 15.0228,67.7522 15.0449,67.7487 15.0702,67.7657 15.026,67.7698 14.9778,67.7661 14.9119,67.7595 14.8755,67.7538 14.8412,67.7513 14.8194,67.7559 14.8582,67.7822 14.9368,67.8027 14.9611,67.8063 15.0,67.8065 15.1508,67.7929 15.1985,67.7846 15.23,67.7743 15.2991,67.7999 15.4928,67.8339 15.676,67.8603 15.703,67.862 15.741,67.8619 15.7717,67.8549 15.7896,67.8433 15.8381,67.8368 15.8736,67.8605 15.9225,67.9062 15.9277,67.9261 15.8147,67.9517 15.7714,67.9479 15.7298,67.9399 15.6014,67.9438 15.567,67.9458 15.4873,67.9596 15.4099,67.9421 15.4068,67.9178 15.3755,67.9015 15.2908,67.9121 15.2563,67.9436 15.3189,67.9893 15.4006,68.0309 15.4623,68.0386 15.4945,68.0134 15.5598,68.0269 15.5855,68.0374 15.6329,68.0595 15.6883,68.0536 15.702,68.0041 15.6663,68.0009 15.6059,67.9983 15.5898,67.9676 15.6164,67.9582 15.8261,68.009 15.8432,68.0213 15.8645,68.0403 15.9007,68.0952 15.9184,68.1464 15.9802,68.156 16.0068,68.148 16.0707,68.0705 16.0589,67.9813 16.1592,67.8915 16.176,67.8753 16.1877,67.8379 16.1781,67.8142 16.3599,67.735 16.3895,67.725 16.4345,67.7126 16.4617,67.7078 16.4676,67.7185 16.419,67.7609 16.3923,67.7658 16.338,67.776 16.2867,67.7862 16.2252,67.8045 16.1735,67.913 16.2115,67.9241 16.3148,67.9198 16.374,67.9053 16.3937,67.8871 16.4167,67.8752 16.4449,67.868 16.4921,67.8687 16.4551,67.926 16.3885,67.9341 16.354,67.9366 16.3332,67.9458 16.3611,67.975 16.4324,68.0067 16.4757,67.9855 16.5076,67.976 16.6366,67.96 16.6805,67.9798 16.5042,68.0028 16.4791,68.0278 16.4112,68.0242 16.3755,68.0029 16.3085,67.9846 16.2659,68.0128 16.2735,68.0328 16.375,68.0658 16.4492,68.094 16.4236,68.1213 16.3868,68.1227 16.3152,68.1188 16.2839,68.1154 16.2582,68.1087 16.2004,68.102 16.156,68.1052 16.1318,68.1149 16.1448,68.1337 16.1768,68.1315 16.2155,68.1301 16.2792,68.1452 16.2543,68.1567 16.2276,68.1602 16.0719,68.1837 16.1039,68.2185 16.1496,68.2281 16.4823,68.1661 16.5091,68.1523 16.5316,68.1273 16.5981,68.0872 16.6869,68.0534 16.7332,68.0445 16.7649,68.0433 16.6983,68.0849 16.6074,68.1096 16.5579,68.1468 16.4311,68.2066 16.3794,68.2096 16.2107,68.2378 16.1886,68.2599 16.2581,68.2757 16.2829,68.2795 16.5128,68.3086 16.5544,68.3118 16.6712,68.3132 16.6964,68.3103 16.8211,68.2836 16.8406,68.2661 16.8164,68.2513 16.7951,68.2362 16.8579,68.2373 16.9511,68.2552 16.9824,68.2686 17.0176,68.2754 17.0965,68.2801 17.1224,68.2722 17.2907,68.1657 17.2939,68.1008 17.2873,68.0788 17.3219,68.0891 17.3789,68.1499 17.3593,68.1736 17.3071,68.1983 17.2845,68.2062 17.2439,68.216 17.1814,68.2458 17.1665,68.282 17.2161,68.3135 17.2962,68.3124 17.3503,68.3054 17.3825,68.2951 17.4465,68.276 17.5069,68.265 17.5346,68.2726 17.4864,68.2852 17.4455,68.2929 17.3374,68.3213 17.3659,68.3308 17.4523,68.3345 17.534,68.3368 17.535,68.3627 17.5111,68.438 17.4885,68.4381 17.3167,68.4084 17.2868,68.3985 17.2598,68.3782 17.2255,68.3636 17.1894,68.3575 17.1475,68.3541 17.0777,68.3495 17.0207,68.3463 16.9805,68.3517 17.0125,68.365 17.0518,68.375 17.0274,68.3986 16.9627,68.4153 16.9322,68.4121 16.9071,68.4017 16.8769,68.3851 16.833,68.3645 16.8081,68.3611 16.6242,68.3497 16.4924,68.3464 16.4701,68.3483 16.4322,68.424 16.5048,68.4505 16.5418,68.4429 16.5726,68.4405 16.5968,68.4518 16.5507,68.4718 16.5323,68.4831 16.5315,68.5148 16.5894,68.5505 16.7357,68.5798 16.8073,68.5931 16.9372,68.6134 17.1336,68.6194 17.2209,68.6323 17.3198,68.6225 17.3458,68.6112 17.3652,68.5927 17.3932,68.5819 17.4357,68.5747 17.6317,68.5696 17.5914,68.5918 17.5597,68.5955 17.5079,68.5937 17.4503,68.5964 17.2594,68.6431 17.2024,68.665 17.3932,68.7193 17.4134,68.7214 17.4458,68.7193 17.4853,68.708 17.5387,68.6973 17.73,68.6663 17.7547,68.6688 17.7424,68.6913 17.7062,68.6981 17.662,68.6959 17.6234,68.6994 17.5957,68.7046 17.4344,68.7392 17.4544,68.7479 17.6094,68.786 17.6776,68.8016 17.6972,68.7938 17.717,68.7814 17.782,68.7749 17.8065,68.7839 17.6811,68.84 17.6482,68.8407 17.5912,68.837 17.5354,68.8326 17.4815,68.8271 17.4571,68.8226 17.4306,68.813 17.395,68.81 17.4505,68.9014 17.5988,69.0149 17.6499,69.0244 17.6785,69.0264 17.8657,69.0381 18.079,69.0557 18.1092,69.0609 17.9819,69.1379 17.957,69.1409 17.9579,69.191 17.9717,69.2087 17.9915,69.2205 18.0424,69.228 18.0931,69.2497 18.1332,69.297 18.1375,69.3177 18.1348,69.3426 18.1653,69.373 18.2176,69.3966 18.2376,69.399 18.2623,69.3944 18.3097,69.3735 18.4574,69.2837 18.4718,69.2585 18.4997,69.2098 18.6535,69.1723 18.6612,69.1932 18.6351,69.2158 18.7309,69.2354 18.8289,69.2299 18.8527,69.221 18.9063,69.2013 18.934,69.1961 18.9663,69.1979 18.918,69.2319 18.8757,69.2401 18.794,69.2508 18.7521,69.2528 18.7159,69.2593 18.6349,69.2746 18.5973,69.2838 18.5768,69.2912 18.4177,69.3601 18.4253,69.4181 18.4557,69.4298 18.6278,69.4513 18.8095,69.4606 18.8728,69.3749 18.9697,69.3065 19.055,69.2724 19.0761,69.2658 19.1046,69.2602 19.1295,69.2577 19.2058,69.2596 19.2516,69.2561 19.2843,69.2515 19.3075,69.2453 19.3345,69.2287 19.3163,69.1985 19.2738,69.1886 19.2366,69.1869 19.162,69.1864 19.1326,69.17 19.2703,69.1321 19.3026,69.1299 19.3991,69.1368 19.4099,69.1625 19.4103,69.2274 19.376,69.2595 19.317,69.2838 19.2513,69.2925 19.2182,69.2944 19.1712,69.2888 19.1203,69.2862 19.0833,69.2919 18.9571,69.3695 18.9638,69.4156 19.05,69.4445 19.1268,69.4557 19.1485,69.4551 19.1746,69.4466 19.2099,69.4331 19.1851,69.4747 19.1648,69.4761 19.047,69.4651 19.014,69.456 18.9808,69.4424 18.9548,69.4464 18.9149,69.4692 18.9044,69.4894 18.9041,69.5225 18.9541,69.5595 19.0672,69.6221 19.1362,69.6554 19.2051,69.6817 19.2307,69.6856 19.6641,69.7219 19.697,69.7214 19.7301,69.7144 19.7301,69.6901 19.665,69.6137 19.637,69.5813 19.6803,69.5611 19.6744,69.5194 19.657,69.498 19.5852,69.421 19.4916,69.307 19.6409,69.3423 19.6723,69.3856 19.6743,69.4249 19.7854,69.6243 19.8967,69.6968 19.9296,69.6945 20.0027,69.7094 20.0347,69.7522 20.1109,69.8448 20.2446,69.8824 20.267,69.8734 20.343,69.8216 20.3763,69.785 20.3474,69.7349 20.3075,69.6627 20.2894,69.623 20.2735,69.5836 20.2501,69.4847 20.2382,69.3893 20.2204,69.3671 20.1474,69.3128 20.1285,69.3046 20.0564,69.281 20.0143,69.2682 19.9613,69.2569 19.943,69.2487 19.8769,69.181 19.9043,69.167 19.989,69.2215 20.135,69.279 20.1608,69.2874 20.263,69.3267 20.2798,69.3461 20.3124,69.3818 20.4223,69.4832 20.446,69.4852 20.4775,69.472 20.5115,69.4564 20.5669,69.4398 20.6531,69.4205 20.8042,69.4025 20.7793,69.4159 20.6267,69.4639 20.4665,69.5268 20.4409,69.5413 20.5214,69.6712 20.5757,69.6774 20.6649,69.691 20.7257,69.7028 20.76,69.7149 20.7789,69.7474 20.7521,69.7735 20.8565,69.8136 21.0136,69.8555 21.0388,69.8516 21.0129,69.8351 20.9828,69.829 20.9611,69.8225 20.9427,69.814 20.8494,69.7612 20.9001,69.7222 20.9547,69.6955 21.0027,69.6988 21.0911,69.7786 21.1814,69.8824 21.2021,69.9071 21.2668,69.9302 21.3005,69.9341 21.3308,69.9355 21.3677,69.9323 21.3959,69.9265 21.5082,69.8928 21.5532,69.8545 21.5362,69.8315 21.5772,69.8144 21.6329,69.7973 21.6559,69.794 21.6972,69.7927 21.7369,69.7838 21.8437,69.7376 21.8755,69.7161 21.9168,69.68 21.9322,69.6508 21.9872,69.6426 22.0211,69.6413 22.052,69.6536 21.9676,69.7519 21.8571,69.8495 21.7608,69.9494 21.8014,69.9584 21.8425,69.9627 21.9333,69.9642 21.9696,69.9689 22.0444,70.0166 22.004,70.0088 21.9377,69.9948 21.913,69.9902 21.7025,69.9648 21.6777,69.9653 21.4226,70.0102 21.3857,70.0501 21.2821,70.068 21.2554,70.0712 21.2297,70.0801 21.1655,70.1165 21.198,70.1262 21.2528,70.1553 21.4686,70.212 21.5384,70.2018 21.5732,70.1708 21.6818,70.1458 21.7607,70.1533 21.7924,70.1798 21.9377,70.2269 22.1048,70.1911 22.1784,70.1956 22.2116,70.195 22.2608,70.1857 22.2293,70.0897 22.2946,70.0528 22.4923,70.0312 22.4689,70.0458 22.4443,70.0503 22.338,70.066 22.287,70.0726 22.3311,70.1597 22.3575,70.1628 22.4597,70.1591 22.5422,70.143 22.6171,70.1309 22.805,70.1181 22.8803,70.1161 22.9064,70.1126 22.9202,70.0976 22.8394,70.0483 22.7766,70.0212 22.7456,70.0156 22.6707,70.0072 22.5195,69.9933 22.4798,69.9927 22.4306,69.9938 22.3952,69.9909 22.3704,69.9865 22.2795,69.9628 22.2477,69.95 22.2694,69.9456 22.3089,69.9562 22.3338,69.9605 22.3994,69.97 22.4458,69.974 22.5166,69.9765 22.5454,69.9786 22.6008,69.9838 22.7633,70.0027 22.8224,70.011 22.9409,69.997 22.9952,69.9317 23.1165,69.8671 23.2671,69.8518 23.4189,69.8933 23.4832,69.9283 23.4585,69.9343 23.4155,69.9368 23.3825,69.9377 23.3387,69.9356 23.3134,69.9365 23.2811,69.941 23.2093,69.9585 23.1888,69.9655 23.1273,69.9998 23.2206,70.0161 23.292,70.0229 23.3062,70.0548 23.2723,70.099 23.2794,70.128 23.3265,70.1284 23.4658,70.1478 23.4033,70.1585 23.3727,70.1577 23.357,70.1821 23.4127,70.2195 23.5328,70.2915 23.593,70.3155 23.6034,70.3249 23.7607,70.3919 23.8008,70.403 23.8406,70.4083 23.925,70.4169 23.9674,70.4154 24.1979,70.3887 24.2258,70.3827 24.2488,70.3758 24.2663,70.3651 24.2989,70.3655 24.2023,70.4184 24.165,70.4285 24.101,70.4754 24.2411,70.5754 24.2726,70.5868 24.308,70.5958 24.421,70.5848 24.4531,70.5743 24.5683,70.5285 24.5913,70.5217 24.6319,70.5186 24.6583,70.5231 24.6796,70.5395 24.6687,70.5636 24.6436,70.5813 24.5068,70.6459 24.4836,70.6496 24.4248,70.6509 24.3439,70.6573 24.2016,70.678 24.2089,70.7415 24.338,70.7726 24.3563,70.7603 24.4175,70.722 24.5362,70.6902 24.5708,70.683 24.5876,70.7031 24.5524,70.7634 24.5191,70.8414 24.5325,70.8674 24.6117,70.8792 24.6514,70.8803 24.7276,70.8731 24.7992,70.835 24.823,70.8141 24.9215,70.8171 24.9332,70.854 24.9188,70.8711 24.9374,70.8803 24.9684,70.8735 25.0064,70.8607 25.1041,70.8224 25.1626,70.7865 25.1858,70.7636 25.2,70.7444 25.2081,70.7194 25.2884,70.721 25.3347,70.7864 25.3211,70.8188 25.296,70.8362 25.2836,70.8632 25.3083,70.8761 25.3431,70.8725 25.385,70.8601 25.4055,70.8529 25.4616,70.8295 25.4798,70.8163 25.5798,70.7987 25.8036,70.8003 25.8447,70.7956 25.8634,70.7672 25.7984,70.7359 25.7156,70.7087 25.6293,70.6807 25.5954,70.6379 25.5772,70.6227 25.4698,70.5792 25.2993,70.5135 25.1561,70.4619 25.0338,70.414 25.0964,70.4128 25.132,70.4212 25.2026,70.3962 25.2122,70.3169 25.2113,70.3038 25.1797,70.2947 25.1378,70.3011 25.0854,70.2891 25.0307,70.2663 25.0505,70.2254 25.0747,70.225 25.0779,70.1876 24.964,70.1483 24.9287,70.1344 24.9089,70.102 24.8897,70.0552 24.888,70.0002 24.9367,69.9729 24.9571,69.968 24.985,69.9705 24.9985,69.9974 24.9781,70.02 25.0096,70.0498 25.0368,70.0557 25.0289,70.0344 25.0404,70.0012 25.0566,69.9854 25.0954,69.9854 25.1788,69.9981 25.2042,70.0084 25.3395,70.1068 25.4627,70.1784 25.4736,70.2047 25.4325,70.2154 25.3973,70.2201 25.3732,70.2311 25.4017,70.2605 25.4551,70.2819 25.5252,70.3161 25.7403,70.4247 25.8973,70.4928 25.9463,70.5146 25.967,70.5529 26.1833,70.6963 26.2918,70.7578 26.3099,70.7679 26.4633,70.8327 26.4854,70.8397 26.5101,70.8456 26.6261,70.8598 26.6642,70.8304 26.6737,70.8028 26.6277,70.6398 26.6078,70.6261 26.5898,70.6157 26.5679,70.6086 26.5432,70.6027 26.5058,70.5951 26.4792,70.5913 26.4225,70.5863 26.3969,70.5812 26.3113,70.5621 26.2938,70.5471 26.3487,70.5489 26.3859,70.5565 26.4466,70.5646 26.485,70.5657 26.5907,70.5438 26.5424,70.4436 26.4959,70.4058 26.4538,70.337 26.4487,70.2713 26.478,70.2572 26.5074,70.2589 26.5677,70.2807 26.6982,70.3294 26.7388,70.3544 26.741,70.3807 26.7817,70.3884 26.8662,70.3837 26.9134,70.3642 26.9689,70.382 26.93,70.4272 26.9145,70.4728 26.9513,70.4955 27.0041,70.5177 27.0332,70.508 27.1737,70.4896 27.2048,70.4893 27.1711,70.5064 27.149,70.5134 27.0854,70.5306 27.0296,70.6128 27.0784,70.6477 27.1933,70.6563 27.2201,70.6782 27.2474,70.725 27.2814,70.7313 27.3623,70.722 27.4526,70.7139 27.5031,70.7116 27.4481,70.7688 27.3979,70.7828 27.3209,70.7853 27.2474,70.7876 27.2057,70.7891 27.1435,70.796 27.1072,70.8042 27.067,70.8231 27.0745,70.865 27.1663,70.9277 27.2034,70.936 27.4048,70.9118 27.4606,70.9813 27.5022,70.999 27.5886,71.0193 27.6676,70.9934 27.7041,70.9582 27.8144,70.9385 27.9085,70.953 27.944,70.9687 27.9668,70.976 28.1436,70.9863 28.1658,70.9813 28.1853,70.9711 28.1968,70.9542 28.279,70.9099 28.3134,70.908 28.4125,70.8992 28.4525,70.8911 28.4793,70.8804 28.4692,70.8478 28.4558,70.8302 28.3792,70.7672 28.3003,70.7313 28.1942,70.6964 28.1687,70.691 28.0741,70.6871 27.9474,70.6997 27.7375,70.6985 27.7087,70.6927 27.7655,70.6744 27.8235,70.671 27.8586,70.6683 28.056,70.6398 28.0172,70.612 27.9744,70.6019 27.7799,70.5579 27.5951,70.5137 27.6484,70.5102 27.6785,70.5113 27.7343,70.5168 27.7742,70.5226 28.0646,70.5741 28.1073,70.5844 28.1276,70.5934 28.1445,70.605 28.2242,70.6206 28.2374,70.5975 28.2205,70.5574 28.1828,70.5292 28.1595,70.5161 28.1293,70.5029 28.088,70.4857 28.0669,70.4773 27.9343,70.4331 27.9125,70.4261 27.8794,70.4172 27.8551,70.4113 27.813,70.4006 27.7918,70.3898 27.8167,70.3561 27.8392,70.3497 27.9115,70.384 28.0023,70.3988 28.0426,70.4044 28.0848,70.4083 28.1139,70.4064 28.0715,70.3938 28.047,70.3883 28.0247,70.3812 27.986,70.3563 28.0644,70.3457 28.089,70.3637 28.1152,70.3812 28.1685,70.4136 28.2478,70.4186 28.2668,70.4098 28.2426,70.3889 28.191,70.3548 28.1295,70.3143 28.1061,70.295 28.0913,70.2721 28.0965,70.1371 28.1007,70.1116 28.1212,70.0728 28.0994,70.0357 28.0705,70.0155 28.0445,69.9993 28.0264,69.9899 27.9771,69.9706 28.012,69.9732 28.0401,69.9794 28.0667,69.9887 28.0973,70.0075 28.1357,70.0389 28.1672,70.0724 28.1533,70.0923 28.1361,70.1214 28.1283,70.1906 28.1651,70.303 28.2684,70.382 28.4162,70.537 28.4451,70.5824 28.4608,70.6245 28.4793,70.6462 28.6834,70.7641 28.7381,70.7783 28.7631,70.7836 28.7886,70.7872 28.8257,70.7891 28.8836,70.7874 28.9703,70.7811 29.1842,70.7498 29.2526,70.7002 29.2815,70.5974 29.2808,70.5715 29.5121,70.6137 29.558,70.6278 29.5939,70.6439 29.6185,70.6496 29.7063,70.6403 29.7185,70.6081 29.7124,70.5871 29.6943,70.5664 29.6734,70.5542 29.6257,70.5303 29.7298,70.5358 29.7741,70.5448 29.7968,70.5613 29.8818,70.6088 29.9132,70.6156 29.9413,70.6178 30.0111,70.6187 30.0408,70.6147 30.1272,70.5867 30.2735,70.5071 30.2296,70.4834 30.1673,70.4621 29.9989,70.4437 29.9407,70.4439 29.9788,70.4303 30.0752,70.4204 30.0979,70.4208 30.1459,70.4263 30.2052,70.4351 30.2395,70.446 30.2685,70.4543 30.2948,70.4582 30.3373,70.4616 30.3666,70.4633 30.4056,70.4631 30.5292,70.4429 30.5692,70.3979 30.7568,70.3401 30.8692,70.3575 30.9392,70.3037 30.9717,70.2543 31.0045,70.1935 30.8423,70.1672 30.8203,70.1662 30.6646,70.1656 30.4612,70.15 30.2891,70.0773 30.3137,70.0516 30.2816,70.0324 30.2527,70.0241 30.0487,69.9794 30.028,69.9772 29.8676,69.972 29.841,69.9716 29.8107,69.9716 29.7315,69.9746 29.7058,69.9769 29.4496,70.0055 29.1987,70.0247 28.9712,70.0366 28.7527,70.0767 28.6764,70.0853 28.6365,70.0865 28.593,70.0847 28.5531,70.0794 28.5357,70.0691 28.5925,70.067 28.6406,70.0716 28.6844,70.0672 28.6053,70.0334 28.5809,70.0279 28.5532,70.0185 28.7693,69.9831 28.9381,69.9617 29.1374,69.9229 29.1993,69.9219 29.3308,69.9108 29.4606,69.8964 29.5759,69.8828 29.6016,69.8736 29.523,69.8419 29.4971,69.8365 29.4381,69.8225 29.3686,69.8041 29.3078,69.7667 29.3448,69.7612 29.3651,69.7635 29.4129,69.7942 29.4703,69.8172 29.649,69.8237 29.6703,69.8168 29.707,69.7442 29.677,69.7148 29.6187,69.6878 29.5784,69.6784 29.4281,69.5703 29.4687,69.578 29.4876,69.5877 29.5037,69.6015 29.5952,69.6396 29.6256,69.6457 29.6523,69.6484 29.8836,69.6638 29.961,69.6418 30.0763,69.6025 30.1189,69.6005 30.0777,69.6333 30.0638,69.6716 30.125,69.6742 30.0948,69.7125 30.0928,69.7615 30.1069,69.7849 30.2357,69.7892 30.2595,69.7827 30.3359,69.7348 30.3518,69.6776 30.3541,69.6312 30.3483,69.6033 30.3258,69.5875 30.285,69.5775 30.3518,69.5767 30.3788,69.5905 30.4024,69.6542 30.3865,69.6757 30.3875,69.7194 30.4906,69.725 30.521,69.7251 30.5681,69.7226 30.65,69.7143 30.7215,69.7004 30.7881,69.7018 30.8358,69.6417 30.8763,69.6005 30.8805,69.5643 30.8841,69.5187 30.8746,69.484 30.8459,69.4604 30.7975,69.4469 30.7584,69.4418 30.7308,69.4403 30.7011,69.4406 30.4802,69.4544 30.4545,69.4576 30.3876,69.4775 30.3274,69.5006 30.3051,69.5132 30.2753,69.5273 30.2397,69.5407 30.1307,69.5753 30.0998,69.5781 30.0645,69.5765 30.0447,69.5736 30.0119,69.5564 30.0302,69.5382 30.0723,69.5383 30.1163,69.4881 30.0329,69.4136 29.9979,69.3982 29.8342,69.3432 29.6012,69.2843 29.5399,69.2706 29.5085,69.2646 29.4749,69.2576 29.4202,69.2512 29.3454,69.2438 29.2511,69.2269 29.2329,69.2059 29.2451,69.1752 29.2556,69.1542 29.233,69.099 29.1918,69.0308 29.1726,69.0157 29.1381,68.9943 29.1155,68.9818 29.0677,68.9592 29.0371,68.9475 28.9946,68.9398 28.9583,68.9427 28.9381,68.9482 28.8957,68.9627 28.8289,68.9824 28.7961,68.9931 28.7658,69.0048 28.7406,69.0167 28.7235,69.0349 28.7213,69.0659 28.7351,69.099 28.7638,69.147 28.841,69.1856 28.8648,69.1969 28.9351,69.2263 28.971,69.2411 29.002,69.2545 29.0597,69.2815 29.2062,69.3623 29.2226,69.3741 29.2355,69.3957 29.1171,69.5407 29.0645,69.5957 29.0398,69.616 28.9382,69.6314 28.8836,69.6383 28.8474,69.6437 28.682,69.6695 28.6327,69.6782 28.3433,69.7312 28.3184,69.737 28.3023,69.7507 28.2803,69.7868 28.2554,69.7988 28.2149,69.806 28.1655,69.8116 28.1361,69.816 28.098,69.8232 28.0411,69.8441 27.9305,69.907 27.9151,69.9207 27.9097,69.9545 27.8762,69.9918 27.8491,69.9971 27.8113,69.9966 27.5387,69.9812 27.5098,69.9751 27.3617,69.9257 27.2391,69.8954 27.2469,69.8742 27.227,69.8579 27.1471,69.8428 27.0161,69.8189 26.9872,69.8173 26.836,69.8349 26.807,69.8489 26.7482,69.8613 26.5514,69.8604 26.4193,69.8458 26.3854,69.8303 26.3628,69.8056 26.3412,69.7784 26.3166,69.7619 26.1177,69.6614 26.0993,69.6521 26.0781,69.6448 26.044,69.6361 25.9483,69.6218 25.9272,69.614 25.9031,69.5954 25.8887,69.5751 25.9136,69.5525 25.9145,69.529 25.8976,69.4941 25.8185,69.3965 25.7783,69.2959 25.7562,69.279 25.7151,69.2643 25.6971,69.2498 25.6843,69.229 25.6582,69.1659 25.6531,69.1197 25.6772,69.0203 25.7135,68.9565 25.7064,68.9006 25.6374,68.8453 25.607,68.823 25.5983,68.8179 25.5854,68.8056 25.5635,68.7942 25.5313,68.7902 25.5085,68.7911 25.4537,68.7996 25.4276,68.8029 25.3836,68.8025 25.353,68.7977 25.3308,68.7922 25.31,68.7852 25.1806,68.737 25.1611,68.7289 25.135,68.7151 25.1164,68.7006 25.1016,68.6795 25.052,68.5815 25.0518,68.55 25.0234,68.5335 24.8822,68.493 24.8018,68.5053 24.7791,68.529 24.7524,68.5487 24.7211,68.5646 24.7021,68.5723 24.6379,68.5884 24.5769,68.5992 24.5267,68.6034 24.4613,68.6077 24.3984,68.6107 24.3654,68.6136 24.3027,68.6222 24.155,68.6608 24.0696,68.6954 24.0393,68.7139 24.0098,68.7302 23.986,68.7367 23.9256,68.7439 23.8489,68.7456 23.8058,68.744 23.7741,68.738 23.7457,68.7009 23.712,68.6713 23.6905,68.6541 23.6548,68.6287 23.6217,68.6228 23.5332,68.617 23.4678,68.6104 23.4174,68.6036 23.3583,68.5925 23.2839,68.5714 23.2374,68.5562 23.2113,68.5483 23.1473,68.542 23.1156,68.5494 23.0904,68.5611 23.0505,68.5864 23.0193,68.6053 22.8152,68.6049 22.7544,68.6032 22.5024,68.6496 22.4522,68.6408 22.3511,68.6231 22.3194,68.7072 22.3001,68.7553 22.2317,68.7933 22.1516,68.8492 21.9945,68.9635 21.9479,68.9895 21.6357,69.1953 21.2753,69.2368 21.0022,69.1347 20.9853,69.1214 20.9972,69.0717 21.0086,69.0517 21.0275,69.0329 21.064,69.0084 21.0346,68.9628 21.0186,68.948 20.9882,68.9444 20.9359,68.9563 20.8908,68.9696 20.7846,68.9961 20.7294,69.0045 20.6871,69.0071 20.6535,69.0037 20.631,68.9981 20.5655,68.9806 20.537,68.9715 20.4915,68.9674 20.054,68.9533 20.196,68.8798 20.2717,68.8399 20.3073,68.6982 20.2707,68.6663 20.1954,68.6032 20.1599,68.5743 20.1346,68.5589 20.0206,68.4952 19.9142,68.4559 20.0458,68.414 20.1618,68.3832 20.1292,68.3582 20.0337,68.3269 19.9969,68.3116 19.9647,68.2934 19.9286,68.2681 19.9106,68.2552 19.8889,68.2498 19.8567,68.2539 19.8188,68.2626 19.6759,68.2852 19.5028,68.3123 19.3724,68.3319 18.9121,68.4 18.5728,68.3876 18.3194,68.4511 18.1111,68.4276 18.0615,68.4213 18.0481,68.4117 18.02,68.3525 18.0116,68.3126 18.0314,68.2669 18.0478,68.2305 18.0658,68.1936 18.1173,68.0789 18.0978,68.0631 17.9023,67.9109 17.847,67.8587 17.8208,67.862 17.7884,67.8686 17.7649,67.8776 17.7064,67.8979 17.6434,67.9175 17.612,67.9272 17.5558,67.943 17.2373,68.0036 17.2164,67.9875 17.1986,67.9752 17.1524,67.9433 16.6923,67.8126 16.6499,67.7457 16.5858,67.6458 16.5535,67.5961 16.5393,67.5751 16.4741,67.5232 16.3693,67.444 16.3485,67.4297 16.1657,67.4148 16.0549,67.3196 16.0745,67.3001 16.1052,67.282 16.1284,67.2702 16.1791,67.2482 16.2285,67.22 16.3039,67.1753 16.3279,67.1523 16.3686,67.0852 16.3205,66.933 15.9773,66.806 15.6989,66.6007 15.5942,66.5217 15.4962,66.4741 15.3314,66.396 15.3403,66.3779 15.3693,66.3231 15.4154,66.2376 15.4367,66.2002 14.995,66.0668 14.9511,66.066 14.6881,66.0573 14.4779,66.0404 14.49,65.9957 14.5085,65.9335 14.5401,65.8666 14.5508,65.8483 14.5794,65.7936 14.6038,65.739 14.5921,65.7146 14.5745,65.6907 14.5587,65.6744 14.5362,65.6537 14.5055,65.6186 14.4716,65.5037 14.4681,65.4339 14.4665,65.3646 14.4651,65.2858 14.4643,65.2321 14.3404,65.1651 14.3275,65.1271 14.3005,65.0682 14.291,65.0485 14.2806,65.034 14.2679,65.0207 14.2071,64.9679 14.0633,64.8683 13.9282,64.755 13.8519,64.6909 13.8054,64.6532 13.6986,64.5723 13.6751,64.5545 13.6499,64.5275 13.6411,64.5002 13.7931,64.4496 13.8736,64.4275 14.0049,64.4083 14.0884,64.3909 14.1225,64.2595 14.1227,64.1004 13.9574,63.9364 13.2652,64.0074 13.204,64.0138 13.1677,64.0108 13.1099,64.0045 13.0068,63.9919 12.963,63.9853 12.9125,63.9742 12.8216,63.9463 12.7694,63.9281 12.6572,63.8882 12.609,63.864 12.5063,63.7939 12.4487,63.7546 12.3225,63.6504 12.1231,63.5111 12.1547,63.4338 12.1713,63.4072 12.1134,63.3585 12.0546,63.3102 11.9754,63.2459 11.9133,63.1946 12.0039,63.1047 12.0135,63.0964 12.1204,62.9677 12.1451,62.9385 12.1275,62.922 12.0898,62.8898 12.0348,62.8414 12.0055,62.8153 12.0271,62.7616 12.0431,62.7259 12.0661,62.6724 12.0493,62.639 12.0232,62.5883 12.0244,62.5134 12.0613,62.4526 12.1259,62.3838 12.1547,62.3544 12.1813,62.321 12.2217,62.2618 12.2329,62.251 12.2478,62.2317 12.2701,62.1909 12.2709,62.1822 12.2351,62.0665 12.1914,61.9303 12.1767,61.8877 12.1581,61.837 12.1467,61.8033 12.1363,61.7691 12.1012,61.6535 12.1212,61.6421 12.376,61.5018 12.4136,61.494 12.4511,61.4945 12.5027,61.4916 12.7497,61.3402 12.8315,61.2879 12.8065,61.2375 12.7724,61.1707 12.7478,61.1263 12.6462,61.0136 12.6139,60.9833 12.5981,60.9789 12.5784,60.9758 12.5435,60.9739 12.4764,60.9769 12.4343,60.9797 12.4089,60.9804 12.3841,60.9798 12.3647,60.9763 12.2708,60.9555 12.2246,60.9447 12.1929,60.9248 12.2164,60.9031 12.2485,60.8723 12.2855,60.8135 12.3128,60.7619 12.3291,60.7284 12.3415,60.7058 12.3591,60.6818 12.4015,60.6366 12.4824,60.5566 12.5672,60.4485 12.5835,60.3951 12.5763,60.3609 12.566,60.3261 12.5482,60.305 12.5091,60.2659 12.4827,60.1293 12.4842,60.1013 12.4794,60.0721 12.4713,60.0405 12.4463,59.9976 12.2938,59.9004 12.1693,59.8382 12.1402,59.8248 12.1121,59.8156 12.0847,59.8137 12.0116,59.8142 11.9806,59.8176 11.9432,59.8249 11.8536,59.7982 11.8305,59.7895 11.7939,59.774 11.8599,59.7306 11.8743,59.7129 11.8768,59.7006 11.8809,59.6576 11.877,59.6281 11.7961,59.5771 11.7427,59.5664 11.6454,59.522 11.7174,59.3583 11.7613,59.2535 11.7688,59.2322 11.7762,59.1954 11.771,59.167 11.7477,59.1466 11.7401,59.1355 11.7311,59.1103 11.7203,59.0492 11.7302,59.0243 11.6027,58.8363 11.5785,58.8287 11.5647,58.8262 11.4755,58.8142 11.436,58.8133 11.4102,58.8205 11.4025,58.8488 11.4082,58.917 11.4118,58.9245 11.3647,59.0055 11.334,59.036 11.2775,59.0431 11.1828,59.0363 11.0439,59.0458 11.0137,59.0546 10.9206,59.094 10.88,59.0717 10.7774,59.1153 10.745,59.1494 10.6394,59.2926 10.6423,59.3643 10.6716,59.393 10.6718,59.4081 10.6542,59.4238 10.6379,59.4424 10.6224,59.4849 10.6197,59.5392 10.6002,59.5693 10.5399,59.6529 10.5647,59.7183 10.5806,59.7395 10.6195,59.7826 10.6446,59.7742 10.6763,59.7245 10.7187,59.7321 10.7407,59.7646 10.7211,59.8184 10.6686,59.8312 10.6506,59.8153 10.6405,59.8107 10.5633,59.8056 10.5399,59.8059 10.5126,59.8041 10.4792,59.7939 10.4536,59.7722 10.4625,59.728 10.473,59.7084 10.4719,59.6913 10.473,59.6606 10.5032,59.6061 10.5361,59.5952 10.5625,59.5834 10.5819,59.5631 10.5901,59.5202 10.5698,59.4906 10.5384,59.4714 10.4934,59.4534 10.4593,59.4444 10.4321,59.4422 10.4026,59.4551 10.4066,59.5017 10.3938,59.5954 10.3581,59.6293 10.2591,59.6633 10.2117,59.6573 10.2468,59.6231 10.2864,59.6137 10.3046,59.6099 10.3615,59.5824 10.3781,59.5241 10.3599,59.4597 10.3149,59.4561 10.2784,59.47 10.2261,59.4818 10.2442,59.4543 10.3284,59.4045 10.4043,59.373 10.4597,59.3484 10.4963,59.2353 10.4406,59.1741 10.4177,59.1799 10.3506,59.1946 10.3082,59.1343 10.2121,58.968 10.1356,58.9516 10.1488,58.9688 10.1239,58.9748 10.0084,58.936 10.0065,58.9073 9.9366,58.8812 9.8595,58.8845 9.8206,58.8961 9.8287,58.9208 9.8075,58.9439 9.7691,58.9656 9.5965,59.0471 9.5339,59.0432 9.6087,58.9872 9.6663,58.9611 9.6752,58.9126 9.5881,58.8546 9.4899,58.8215 9.3921,58.7709 9.3315,58.6886 9.323,58.6807 9.1672,58.5853 9.0475,58.5462 9.0142,58.5372 8.983,58.5297 8.9354,58.5032 8.815,58.4108 8.7811,58.3948 8.7232,58.3789 8.6968,58.3723 8.6975,58.3481 8.676,58.3076 8.4949,58.2008 8.3875,58.1849 8.2314,58.1305 8.2288,58.0978 8.1987,58.0512 8.1404,58.0707 8.113,58.0298 7.9203,58.0102 7.7954,57.9983 7.6467,57.9749 7.6079,57.9502 7.5459,57.9416 7.5148,57.9388 7.4705,57.9366 7.3496,57.9435 7.2381,57.9655 7.2107,57.9746 7.1384,57.9785 7.0653,57.95 7.0365,57.927 6.9952,57.919 6.9235,57.9699 6.8902,57.9871 6.7694,58.0422 6.7193,58.0471 6.716,57.9949 6.5911,58.0001 6.5471,58.0281 6.5447,58.0516 6.5754,58.0844 6.6008,58.1056 6.6721,58.1377 6.7476,58.1747 6.6045,58.1892 6.3489,58.2012 6.336,58.2012 6.2726,58.2371 6.2128,58.2543 6.132,58.2683 6.0012,58.31 5.9823,58.3204 5.9674,58.3367 5.959,58.3587 5.9515,58.3963 5.9204,58.4057 5.8849,58.4048 5.8425,58.4035 5.7675,58.4135 5.743,58.4181 5.6346,58.4749 5.6129,58.4876 5.4983,58.5974 5.4505,58.6798 5.5084,58.7556 5.5333,58.8041 5.5436,58.8385 5.5417,58.8971 5.5298,58.9196 5.5483,58.9595 5.702,58.9021 5.6952,58.8715 5.7337,58.8578 5.7832,58.8535 5.806,58.8674 5.8323,58.8922 5.8719,58.8835 5.9277,58.8609 5.9977,58.8182 6.0503,58.7868 6.0994,58.7674 6.1189,58.7635 6.1575,58.7617 6.216,58.7669 6.1888,58.7722 6.159,58.7717 6.1275,58.7767 6.0911,58.7892 6.0595,58.8072 6.0471,58.8237 6.0792,58.8646 6.108,58.8863 6.1806,58.9083 6.2066,58.9151 6.2445,58.9226 6.3925,58.9466 6.4737,58.9582 6.5767,58.972 6.6048,58.9827 6.4921,58.9782 6.3875,58.9656 6.366,58.9623 6.199,58.9345 6.1522,58.9251 6.1131,58.9115 6.0889,58.8961 6.0254,58.834 5.9638,58.8914 5.9531,58.9422 5.9253,58.9418 5.8589,58.995 5.8647,59.016 5.8846,59.0281 5.9449,59.0447 5.9961,59.0787 6.0537,59.1334 6.1352,59.1739 6.1566,59.1836 6.2412,59.2138 6.2412,59.2138 13,2.0,Norway 6.2412,59.2138 6.2985,59.2345 6.3247,59.2411 6.3559,59.2454 6.3928,59.2463 6.4181,59.2451 6.4477,59.2493 6.395,59.2552 6.364,59.2553 6.3105,59.2491 6.2774,59.2389 6.2412,59.2138 6.2412,59.2138 7,2.0,Norway 5.3099,61.518 5.2754,61.5144 5.3305,61.5114 5.3285,61.5175 5.3229,61.5194 5.3099,61.518 5.3099,61.518 14,2.0,Norway 7.1977,62.1999 7.2855,62.2018 7.3185,62.1938 7.3484,62.1784 7.3783,62.1553 7.4008,62.1537 7.3825,62.1776 7.3485,62.2 7.3246,62.2081 7.303,62.2125 7.2689,62.2135 7.2205,62.206 7.1977,62.1999 7.1977,62.1999 7,2.0,Norway 5.4796,61.2997 5.5122,61.2911 5.5516,61.286 5.6165,61.2866 5.5854,61.2955 5.4796,61.2997 5.4796,61.2997 15,-2.0,Greenland -25.402,71.0103 -25.363,70.9813 -25.319,70.9659 -25.2496,70.926 -25.2676,70.9182 -25.2863,70.9198 -25.3421,70.9261 -25.3563,70.9302 -25.5018,70.9899 -25.5108,70.9952 -25.5206,71.0084 -25.5078,71.0131 -25.4305,71.0158 -25.402,71.0103 -25.402,71.0103 16,2.0,Norway 24.7126,70.9288 24.6811,70.9345 24.6116,70.9502 24.5955,70.956 24.584,70.9646 24.5883,70.9762 24.6698,71.0062 24.6823,71.0092 24.6969,71.0108 24.7141,71.0101 24.7946,70.9981 24.7909,70.9804 24.7546,70.9369 24.743,70.9303 24.7126,70.9288 24.7126,70.9288 118,-2.0,Greenland -26.0853,70.4537 -26.0928,70.4693 -26.0986,70.48 -26.1108,70.4859 -26.1214,70.4892 -26.1406,70.4921 -26.1543,70.4926 -26.1837,70.4905 -26.1975,70.4885 -26.4044,70.4576 -26.4523,70.446 -26.4734,70.4372 -26.6613,70.4299 -26.7581,70.4299 -26.8799,70.4268 -26.9294,70.4206 -26.9426,70.4129 -26.9543,70.4081 -26.9646,70.4056 -27.2021,70.3817 -27.5498,70.3605 -27.7481,70.3414 -27.8155,70.3366 -27.973,70.334 -28.0035,70.3362 -28.0367,70.3415 -28.0474,70.3448 -28.0687,70.3576 -28.071,70.3729 -28.0035,70.4839 -27.9938,70.4919 -27.964,70.5078 -27.8727,70.5371 -27.8505,70.5422 -27.8181,70.5473 -27.7526,70.5466 -27.6901,70.5485 -27.6577,70.5498 -27.6329,70.5526 -27.6073,70.5592 -27.5904,70.5654 -27.562,70.5821 -27.5543,70.5887 -27.5429,70.5968 -27.4995,70.6181 -27.458,70.6378 -27.3544,70.6735 -27.3077,70.6854 -27.2918,70.6883 -27.2745,70.6894 -27.2362,70.6949 -27.2054,70.7029 -27.1893,70.7108 -27.1779,70.7176 -27.1632,70.7283 -27.1528,70.7379 -27.1407,70.7478 -27.0878,70.7813 -27.0024,70.7944 -26.9666,70.7974 -26.9328,70.7983 -26.826,70.7927 -26.784,70.7924 -26.5797,70.7969 -26.5289,70.8022 -26.3689,70.8218 -26.2715,70.8356 -26.2383,70.8407 -26.2144,70.8491 -26.0887,70.8906 -25.9813,70.9085 -25.8849,70.9255 -25.8468,70.9352 -25.7433,70.9618 -25.6793,70.9805 -25.6678,70.9847 -25.6527,70.9867 -25.623,70.9855 -25.6254,70.9697 -25.6278,70.9085 -25.5239,70.8796 -25.4591,70.8756 -25.4411,70.8704 -25.4295,70.8652 -25.3396,70.8211 -25.2764,70.7231 -25.2254,70.5968 -25.224,70.5846 -25.2288,70.573 -25.2398,70.566 -25.2574,70.5597 -25.4056,70.538 -25.6019,70.5125 -25.7403,70.51 -25.9585,70.4321 -25.971,70.4288 -25.9813,70.4286 -25.9953,70.4305 -26.0055,70.4326 -26.0752,70.4502 -26.0215,70.4274 -26.0303,70.4186 -26.0481,70.4109 -26.1109,70.3631 -26.1369,70.3578 -26.1545,70.3574 -26.1855,70.358 -26.2004,70.3592 -26.2381,70.3684 -26.3254,70.3947 -26.3221,70.4233 -26.2536,70.446 -26.1999,70.4611 -26.1858,70.4643 -26.1428,70.4693 -26.1278,70.4683 -26.0853,70.4537 -26.0853,70.4537 52,-5.0,Canada -71.6305,70.9594 -71.5668,70.9521 -71.4809,70.9414 -71.3838,70.9249 -71.3085,70.9194 -71.2659,70.9187 -71.2262,70.9204 -71.2083,70.9186 -71.1946,70.9164 -71.1792,70.9084 -71.1786,70.8949 -71.2268,70.8261 -71.2399,70.8186 -71.2532,70.8144 -71.2706,70.8115 -71.2885,70.8096 -71.3118,70.8091 -71.3331,70.8094 -71.4917,70.7975 -71.5702,70.7819 -71.7724,70.7358 -71.7879,70.7264 -71.8284,70.7216 -71.8754,70.7183 -71.9185,70.7166 -71.9333,70.7167 -71.9486,70.7185 -72.0344,70.7894 -72.0599,70.8273 -72.0619,70.8374 -72.0493,70.8414 -72.038,70.8431 -72.0025,70.8447 -71.9846,70.8432 -71.9708,70.8394 -71.983,70.8302 -71.9719,70.8236 -71.9532,70.8238 -71.9335,70.8263 -71.9144,70.8302 -71.8939,70.8396 -71.8781,70.8539 -71.869,70.8697 -71.8626,70.8892 -71.856,70.9446 -71.8442,70.9561 -71.7515,70.9709 -71.7199,70.9753 -71.6873,70.9785 -71.6673,70.9775 -71.6305,70.9594 -71.6305,70.9594 17,2.0,Norway 23.9917,70.8149 23.9718,70.8171 23.8551,70.8575 23.8259,70.8975 23.869,70.922 23.8796,70.926 23.9195,70.9322 23.934,70.9335 24.0078,70.9302 24.0236,70.9288 24.1673,70.9012 24.1889,70.8584 24.1129,70.8325 24.0374,70.8191 24.0075,70.8156 23.9917,70.8149 23.9917,70.8149 21,7.0,Russia 82.1678,70.8091 82.1576,70.8155 82.1207,70.8437 82.1195,70.8562 82.1531,70.8889 82.1611,70.8949 82.1765,70.8984 82.1953,70.897 82.2898,70.8845 82.3081,70.8747 82.3152,70.8654 82.3148,70.8529 82.3101,70.8409 82.302,70.8282 82.2704,70.8036 82.2588,70.7976 82.2277,70.7853 82.2088,70.7831 82.1862,70.7877 82.1678,70.8091 82.1678,70.8091 16,7.0,Russia 82.9743,70.7985 82.8974,70.8334 82.8832,70.843 82.8635,70.8835 82.8714,70.8897 82.8902,70.8871 82.9991,70.8674 83.0177,70.8637 83.0359,70.854 83.0681,70.8105 83.0662,70.7917 83.0397,70.7703 83.025,70.7716 82.9888,70.7905 82.9743,70.7985 82.9743,70.7985 34,-2.0,Greenland -51.8566,70.8806 -51.7771,70.8601 -51.7463,70.853 -51.6075,70.8214 -51.4691,70.7909 -51.455,70.7872 -51.4412,70.7801 -51.4488,70.7714 -51.4888,70.7506 -51.5018,70.746 -51.5171,70.743 -51.5334,70.742 -51.6951,70.7527 -51.8307,70.7692 -51.8535,70.7711 -51.958,70.7694 -51.9812,70.7701 -52.0015,70.7722 -52.0159,70.7761 -52.026,70.7797 -52.0358,70.7842 -52.0436,70.7933 -52.0422,70.8069 -52.0366,70.8226 -52.0167,70.8551 -52.003,70.865 -51.9788,70.8728 -51.9556,70.8792 -51.9405,70.8825 -51.9235,70.8845 -51.9045,70.8857 -51.8812,70.8847 -51.8566,70.8806 -51.8566,70.8806 18,12.0,Russia 160.3558,70.7255 160.328,70.7234 160.2552,70.7216 160.176,70.7202 160.1395,70.724 160.1223,70.7266 160.1063,70.7306 160.091,70.7362 160.0753,70.7471 160.0427,70.8228 160.0525,70.8315 160.1376,70.8386 160.1535,70.8387 160.1858,70.8301 160.28,70.8031 160.3522,70.7422 160.3558,70.7255 160.3558,70.7255 21,-2.0,Greenland -27.2122,70.7815 -27.2435,70.7661 -27.2535,70.7602 -27.3296,70.7126 -27.5126,70.6613 -27.6227,70.6408 -27.6333,70.6393 -27.6488,70.64 -27.6659,70.6436 -27.6776,70.6478 -27.6883,70.6562 -27.6989,70.7528 -27.6969,70.7699 -27.6858,70.7841 -27.6736,70.7891 -27.657,70.7913 -27.5394,70.7999 -27.5228,70.8008 -27.2498,70.7935 -27.2122,70.7815 -27.2122,70.7815 90,2.0,Norway 22.1144,70.3715 22.0952,70.374 22.0891,70.3831 22.1055,70.4201 22.1151,70.4291 22.1761,70.4474 22.2025,70.4621 22.2136,70.5004 22.1765,70.5066 22.0927,70.5002 22.0463,70.5067 22.035,70.5036 21.9653,70.512 21.9013,70.5508 21.9076,70.5623 21.9282,70.5648 22.0981,70.5601 22.1136,70.553 22.1247,70.5522 22.1603,70.5535 22.2223,70.5602 22.3276,70.5826 22.3227,70.5982 22.3337,70.6128 22.3488,70.6189 22.47,70.6189 22.483,70.6191 22.5001,70.6165 22.567,70.6006 22.6089,70.5854 22.5609,70.5668 22.5426,70.5547 22.5506,70.5449 22.5737,70.542 22.6569,70.5431 22.7539,70.548 22.768,70.5494 22.7769,70.5538 22.7448,70.6002 22.7108,70.6133 22.6782,70.632 22.6671,70.6468 22.7321,70.6625 22.8128,70.6359 22.8449,70.5989 22.8933,70.5738 22.9119,70.5662 22.929,70.5658 22.9405,70.5689 23.0543,70.6411 23.1075,70.6956 23.23,70.6789 23.2458,70.6774 23.2914,70.6932 23.2867,70.7027 23.2694,70.7216 23.2635,70.7638 23.2772,70.7697 23.2902,70.7699 23.3036,70.7678 23.3152,70.7645 23.3244,70.7606 23.3882,70.7193 23.3987,70.6907 23.3474,70.6436 23.334,70.6411 23.3209,70.6431 23.2485,70.616 23.1287,70.5581 23.037,70.4884 22.8477,70.4438 22.7332,70.4274 22.714,70.4314 22.7188,70.4512 22.6955,70.4643 22.6809,70.4674 22.5899,70.473 22.5781,70.4672 22.5796,70.4482 22.5824,70.43 22.5703,70.4228 22.4154,70.4034 22.4011,70.402 22.2905,70.3978 22.2751,70.3976 22.2595,70.3992 22.2443,70.4045 22.2003,70.4136 22.1144,70.3715 22.1144,70.3715 38,7.0,Russia 82.882,70.324 82.8945,70.3426 82.9072,70.4109 82.9158,70.473 82.9389,70.5723 82.9575,70.6155 83.0068,70.6925 83.0258,70.7143 83.0703,70.7506 83.0784,70.7567 83.0975,70.7606 83.1741,70.7273 83.1883,70.721 83.2518,70.6706 83.2688,70.6521 83.2749,70.6364 83.2702,70.6273 83.2621,70.6209 83.2499,70.6148 83.2227,70.6027 83.2032,70.597 83.1843,70.5935 83.1463,70.5885 83.1275,70.5888 83.1085,70.5868 83.1006,70.5807 83.0426,70.429 83.0609,70.4221 83.0792,70.4207 83.0972,70.4139 83.1237,70.3735 83.1152,70.3642 83.0844,70.3522 82.9096,70.2992 82.8874,70.3024 82.8809,70.3116 82.882,70.324 82.882,70.324 12,12.0,Russia 161.3262,70.6523 161.3014,70.6535 161.2833,70.6553 161.1271,70.6999 161.0977,70.7107 161.1175,70.7409 161.1401,70.744 161.1604,70.7444 161.2916,70.7157 161.3029,70.7105 161.3262,70.6523 161.3262,70.6523 26,2.0,Norway 23.7865,70.4191 23.7518,70.4205 23.718,70.4236 23.7003,70.4284 23.6742,70.4421 23.6544,70.4564 23.5803,70.6005 23.6353,70.6467 23.6491,70.6529 23.6863,70.6542 23.7543,70.6522 23.7726,70.6512 23.783,70.6484 23.9197,70.6096 23.9765,70.5934 23.986,70.589 24.0698,70.5251 24.068,70.5087 24.061,70.4996 24.0515,70.4947 23.8991,70.4299 23.8861,70.4279 23.8461,70.4222 23.8176,70.4199 23.7865,70.4191 23.7865,70.4191 18,-2.0,Greenland -51.4074,70.5547 -51.4239,70.5558 -51.5777,70.5849 -51.7244,70.6214 -51.7442,70.6293 -51.7364,70.6434 -51.7024,70.6503 -51.6613,70.6482 -51.5754,70.635 -51.5595,70.6313 -51.5073,70.6168 -51.4793,70.6083 -51.4317,70.5934 -51.4059,70.5829 -51.3905,70.575 -51.3964,70.5613 -51.4074,70.5547 -51.4074,70.5547 26,-6.0,Canada -100.4546,70.48 -100.4499,70.4708 -100.4405,70.4643 -100.4041,70.4508 -100.2733,70.4111 -100.247,70.4041 -100.0512,70.3609 -100.0352,70.3578 -100.0187,70.3567 -100.003,70.362 -99.9927,70.4718 -100.0933,70.5108 -100.1103,70.512 -100.1213,70.5155 -100.221,70.5572 -100.2346,70.5672 -100.2422,70.5765 -100.2532,70.5806 -100.2682,70.5824 -100.2849,70.5837 -100.4247,70.5768 -100.4376,70.545 -100.4514,70.5014 -100.4546,70.4912 -100.4549,70.4806 -100.4546,70.48 15,-7.0,Canada -127.8318,70.5046 -127.8262,70.4993 -127.8321,70.4848 -127.8445,70.4767 -128.0525,70.4483 -127.9599,70.5571 -127.9449,70.5632 -127.9271,70.5619 -127.8992,70.5558 -127.8263,70.5354 -127.8103,70.53 -127.7979,70.517 -127.8158,70.5033 -127.8318,70.5046 -127.8318,70.5046 30,2.0,Norway 23.1048,70.1827 23.069,70.1872 23.036,70.1952 22.8,70.3138 22.8448,70.3561 22.8551,70.3599 23.1267,70.4522 23.1378,70.4552 23.1525,70.4566 23.1717,70.4548 23.1833,70.4513 23.2052,70.4414 23.354,70.4627 23.3483,70.5092 23.3354,70.5238 23.3509,70.5289 23.4155,70.5289 23.4351,70.5272 23.4857,70.5193 23.5408,70.488 23.6,70.4089 23.6067,70.3701 23.6039,70.3588 23.591,70.3459 23.4872,70.2974 23.2932,70.217 23.179,70.1863 23.1663,70.1843 23.1048,70.1827 23.1048,70.1827 20,3.0,Russia 56.929,70.4082 56.8893,70.4141 56.8379,70.4249 56.7881,70.4452 56.7783,70.451 56.7262,70.488 56.7153,70.5035 56.727,70.5094 56.7461,70.5062 57.0125,70.4579 57.0699,70.4449 57.0867,70.4401 57.0963,70.431 57.0914,70.4208 57.0764,70.4166 56.9976,70.398 56.9777,70.3982 56.9536,70.4019 56.929,70.4082 56.929,70.4082 19,-7.0,Canada -116.92,70.445 -116.9386,70.4453 -116.9564,70.4465 -117.0119,70.4578 -117.0296,70.4626 -117.038,70.4696 -117.0337,70.479 -116.9921,70.4935 -116.9742,70.4965 -116.9523,70.4985 -116.9356,70.499 -116.8995,70.496 -116.6316,70.4636 -116.6186,70.4577 -116.6266,70.4513 -116.6604,70.4501 -116.773,70.454 -116.92,70.445 -116.92,70.445 18,-2.0,Greenland -51.1312,70.4033 -51.1623,70.4036 -51.2045,70.4051 -51.2654,70.4125 -51.5009,70.4526 -51.5159,70.4563 -51.5464,70.4684 -51.5369,70.4785 -51.5257,70.4835 -51.514,70.4862 -51.5005,70.4882 -51.4756,70.4879 -51.4515,70.4866 -51.4167,70.482 -51.3532,70.4684 -51.2357,70.4357 -51.1312,70.4033 -51.1312,70.4033 15,7.0,Russia 83.2167,70.4188 83.1746,70.4659 83.1811,70.4754 83.2192,70.4849 83.3651,70.4856 83.3851,70.48 83.3853,70.4643 83.3087,70.4031 83.2966,70.3969 83.2779,70.3948 83.2597,70.3964 83.2411,70.4002 83.2234,70.4064 83.2167,70.4188 83.2167,70.4188 16,-7.0,Canada -115.999,70.4576 -115.9818,70.4576 -115.928,70.4531 -115.8795,70.4463 -115.8681,70.4419 -116.03,70.4233 -116.0619,70.4214 -116.1847,70.4163 -116.2031,70.4166 -116.2161,70.4195 -116.2337,70.4291 -116.2082,70.4457 -116.0416,70.4596 -116.0264,70.4607 -115.999,70.4576 -115.999,70.4576 26,7.0,Russia 83.4192,70.3621 83.4269,70.3534 83.4062,70.3261 83.3841,70.3073 83.3569,70.2905 83.3468,70.2851 83.3318,70.2814 83.2929,70.2767 83.2302,70.2708 83.2043,70.2706 83.1937,70.273 83.2169,70.334 83.2257,70.348 83.3707,70.4303 83.3942,70.4384 83.4122,70.441 83.4283,70.4378 83.4385,70.4278 83.4359,70.408 83.4268,70.3941 83.4066,70.3833 83.3937,70.3787 83.3631,70.3715 83.3645,70.3537 83.4192,70.3621 83.4192,70.3621 24,-2.0,Greenland -54.8473,70.3886 -54.8112,70.3863 -54.7784,70.3809 -54.7459,70.375 -54.7326,70.3721 -54.6143,70.3412 -54.5523,70.3158 -54.5394,70.3072 -54.5307,70.2975 -54.5262,70.2845 -54.539,70.2805 -54.7329,70.2762 -54.7791,70.2779 -54.7988,70.2802 -54.8119,70.2833 -54.8354,70.2911 -54.8551,70.2996 -54.8695,70.3102 -54.8835,70.329 -54.8966,70.3496 -54.9042,70.3908 -54.8893,70.3919 -54.8473,70.3886 -54.8473,70.3886 83,3.0,Russia 59.7824,69.5764 59.7517,69.5957 59.7195,69.602 59.6368,69.5997 59.6163,69.6013 59.4727,69.6224 59.4495,69.6356 59.4095,69.6606 59.4284,69.6882 59.4727,69.6866 59.4942,69.6959 59.4845,69.7212 59.302,69.7928 59.2649,69.8 59.2036,69.7943 59.1568,69.7934 58.9955,69.8213 58.8753,69.8432 58.8219,69.8467 58.8798,69.818 58.949,69.7996 58.9901,69.7801 58.9106,69.7619 58.8896,69.7633 58.5433,69.9194 58.5211,69.9298 58.4928,69.9464 58.4475,69.9824 58.4642,70.0219 58.4777,70.0489 58.4518,70.0865 58.3872,70.0881 58.365,70.0987 58.2791,70.1619 58.2988,70.1749 58.36,70.178 58.4721,70.1648 58.5081,70.1461 58.5334,70.1398 58.6523,70.1214 58.6925,70.1239 58.6573,70.1619 58.5503,70.1961 58.5173,70.2054 58.5011,70.2337 58.6252,70.3015 58.736,70.3399 58.8713,70.3809 58.9024,70.3819 58.9074,70.3582 58.974,70.336 59.1169,70.2922 59.1765,70.2791 59.2018,70.2691 59.2202,70.2579 59.2719,70.2241 59.2907,70.2067 59.3286,70.1849 59.5084,70.1045 59.6375,70.0717 59.6828,70.0333 59.7375,70.0195 59.7958,70.0059 59.9473,69.9713 60.1252,69.8986 60.1901,69.8729 60.2342,69.8639 60.2876,69.8616 60.3463,69.8257 60.4157,69.7121 60.3091,69.6533 60.1312,69.6007 60.0755,69.5893 60.0464,69.5921 60.0206,69.6025 59.9652,69.6162 59.9105,69.6267 59.8809,69.6281 59.8417,69.6193 59.8139,69.6085 59.796,69.5988 59.7824,69.5764 59.7824,69.5764 28,2.0,Norway 22.9252,70.1542 22.8711,70.1579 22.8189,70.1607 22.7909,70.158 22.7448,70.1564 22.7281,70.1569 22.5885,70.1705 22.523,70.1775 22.4186,70.1949 22.3879,70.2002 22.3693,70.2077 22.3207,70.2402 22.3297,70.2542 22.422,70.2828 22.4361,70.2841 22.6138,70.2992 22.6337,70.2968 22.6429,70.2845 22.6475,70.269 22.7837,70.2403 22.8404,70.2304 22.8561,70.2311 22.8968,70.2271 22.9625,70.1824 22.9694,70.1659 22.9581,70.1578 22.9252,70.1542 22.9252,70.1542 18,2.0,Norway 21.7021,70.1683 21.684,70.1696 21.6659,70.1779 21.6491,70.1968 21.6429,70.2066 21.6359,70.2271 21.6379,70.2438 21.6537,70.292 21.6717,70.2961 21.6872,70.2945 21.6993,70.2911 21.7832,70.2622 21.7929,70.2581 21.7945,70.2448 21.7812,70.2289 21.728,70.1777 21.7021,70.1683 21.7021,70.1683 21,-7.0,Canada -111.9864,70.2706 -111.9537,70.2692 -111.8957,70.2658 -111.861,70.2617 -111.7544,70.2442 -111.5471,70.2185 -111.4262,70.2168 -111.6034,70.2031 -111.695,70.1975 -111.765,70.198 -111.8031,70.2003 -111.8402,70.204 -111.8896,70.2105 -111.9195,70.2154 -111.9465,70.2219 -112.0564,70.2499 -112.069,70.2606 -112.0532,70.27 -112.0382,70.271 -111.9864,70.2706 -111.9864,70.2706 185,-2.0,Greenland -51.7681,69.5596 -51.7523,69.5568 -51.7245,69.5445 -51.8401,69.4646 -51.869,69.4492 -51.8981,69.4347 -51.966,69.4081 -52.0689,69.3792 -52.1413,69.3585 -52.1671,69.3541 -52.4026,69.3166 -52.4395,69.3134 -52.4996,69.2981 -52.5314,69.2903 -52.6394,69.2692 -52.6855,69.2629 -52.7593,69.2594 -52.8021,69.2557 -52.8327,69.2521 -53.0211,69.2271 -53.2971,69.1766 -53.4389,69.1434 -53.4635,69.1403 -53.7323,69.1734 -53.7573,69.2045 -53.7858,69.2227 -53.8185,69.2281 -53.8825,69.2291 -53.9643,69.2341 -54.0099,69.2408 -54.0432,69.248 -54.1018,69.2708 -54.1474,69.2993 -54.1526,69.3064 -54.1488,69.3206 -54.1196,69.3568 -53.7968,69.3482 -53.749,69.3405 -53.7092,69.3319 -53.6717,69.3283 -53.6369,69.3322 -53.5588,69.3499 -53.4751,69.3541 -53.3753,69.3464 -53.3518,69.3447 -53.3228,69.3443 -53.2841,69.348 -53.2644,69.3525 -53.2836,69.3591 -53.3394,69.361 -53.3705,69.3612 -53.4205,69.3635 -53.454,69.3726 -53.4497,69.4073 -53.4305,69.4251 -53.3914,69.4566 -53.3748,69.4684 -53.3447,69.475 -53.2658,69.4797 -53.2429,69.4862 -53.3267,69.4945 -53.3891,69.4868 -53.4429,69.4757 -53.4812,69.4594 -53.4785,69.4386 -53.5061,69.4055 -53.5346,69.3914 -53.5877,69.3762 -53.6682,69.3617 -53.736,69.3745 -53.6761,69.4001 -53.622,69.4224 -53.6407,69.4317 -53.7037,69.419 -53.7556,69.4072 -53.8323,69.3958 -53.8763,69.4118 -53.8406,69.4356 -53.8175,69.444 -53.7645,69.4651 -53.7574,69.4844 -53.8294,69.5141 -53.8659,69.509 -53.8669,69.4757 -53.9093,69.4606 -53.9545,69.4559 -53.9957,69.4558 -54.3429,69.4682 -54.366,69.4693 -54.5406,69.4807 -54.5742,69.4862 -54.603,69.493 -54.6958,69.5193 -54.8687,69.6002 -54.8534,69.633 -54.8073,69.6519 -54.7856,69.657 -54.745,69.6602 -54.5582,69.6611 -54.5272,69.6553 -54.5,69.6381 -54.4842,69.6254 -54.3068,69.5809 -54.2847,69.5906 -54.3522,69.624 -54.5224,69.686 -54.5502,69.6888 -54.6092,69.6898 -54.6484,69.6915 -54.7001,69.6972 -54.7296,69.7029 -54.7654,69.714 -54.7847,69.7214 -54.8026,69.7331 -54.8138,69.7539 -54.742,69.8465 -54.6983,69.8634 -54.6639,69.8702 -54.6418,69.8731 -54.5874,69.8764 -54.5637,69.8753 -54.4942,69.8686 -54.4529,69.8618 -54.3941,69.8523 -54.3013,69.8386 -54.2611,69.8332 -54.2073,69.8275 -54.1226,69.8235 -54.1397,69.8426 -54.1818,69.852 -54.2958,69.8688 -54.3717,69.8724 -54.4829,69.8941 -54.6084,69.929 -54.6654,69.9509 -54.7009,69.975 -54.712,70.0013 -54.7212,70.0842 -54.7052,70.1059 -54.6725,70.1288 -54.6339,70.1511 -54.5535,70.1658 -54.4162,70.19 -54.3077,70.2177 -54.1804,70.2246 -53.8511,70.1916 -53.718,70.1779 -53.6791,70.1695 -53.5585,70.1559 -53.5127,70.1529 -53.4641,70.1519 -53.4003,70.149 -53.3407,70.1413 -53.1476,70.1033 -53.1224,70.0957 -52.9497,70.0383 -52.9215,70.0241 -52.8782,69.9949 -52.8528,69.9763 -52.8255,69.9532 -52.807,69.9411 -52.7736,69.9222 -52.6607,69.8613 -52.6095,69.8378 -52.5782,69.8268 -52.5263,69.8138 -52.4231,69.7893 -52.3776,69.7805 -52.2579,69.7629 -52.1825,69.7522 -52.0781,69.741 -51.962,69.7248 -51.9287,69.7185 -51.891,69.7102 -51.8394,69.6915 -51.8,69.6639 -51.794,69.6433 -51.8525,69.5951 -51.8778,69.59 -51.9076,69.5846 -51.8625,69.5667 -51.7745,69.5447 -51.7476,69.5465 -51.7681,69.5596 -51.7681,69.5596 33,2.0,Norway 19.8884,69.9615 19.8714,69.9637 19.7905,69.9711 19.7588,69.9706 19.7408,69.9712 19.7263,69.974 19.7078,69.9883 19.7032,70.0031 19.7044,70.0225 19.7062,70.0383 19.6634,70.0843 19.6371,70.1013 19.6155,70.1137 19.5963,70.1209 19.5842,70.1244 19.526,70.135 19.502,70.1414 19.4925,70.1538 19.5363,70.175 19.5474,70.1784 19.6299,70.1958 19.6394,70.1921 19.7464,70.1153 19.7527,70.1028 19.8025,70.0816 19.9401,70.0503 20.0244,70.0335 20.0753,70.0264 20.0681,70.0132 19.9703,69.9707 19.9444,69.9668 19.8884,69.9615 19.8884,69.9615 14,2.0,Norway 19.0992,70.0279 18.9963,70.0712 19.0928,70.1544 19.1597,70.1655 19.1762,70.1654 19.191,70.1625 19.2052,70.1542 19.2168,70.0833 19.1928,70.045 19.1809,70.0378 19.1698,70.0343 19.143,70.031 19.0992,70.0279 19.0992,70.0279 22,7.0,Russia 82.5985,70.1061 82.588,70.1138 82.5926,70.1296 82.6006,70.1356 82.6793,70.1598 82.6977,70.1599 82.7708,70.1544 82.8982,70.1267 82.9121,70.1204 82.9227,70.1142 82.9291,70.1015 82.9287,70.0486 82.9128,70.0334 82.8977,70.0272 82.861,70.0301 82.807,70.0366 82.7885,70.0397 82.7708,70.0446 82.7093,70.0624 82.6918,70.0691 82.5985,70.1061 82.5985,70.1061 31,2.0,Norway 20.5643,69.9512 20.5175,69.9852 20.4818,69.9693 20.4706,69.9663 20.4544,69.9664 20.4225,69.968 20.4055,69.97 20.391,69.9728 20.3795,69.9762 20.3535,69.9878 20.3442,69.997 20.3406,70.01 20.3559,70.0546 20.3618,70.0671 20.3814,70.0896 20.5087,70.1337 20.5321,70.1394 20.6389,70.1441 20.6702,70.1444 20.7065,70.1423 20.7208,70.1396 20.7329,70.1365 20.7612,70.1252 20.7741,70.1194 20.7859,70.1048 20.7491,69.9686 20.7382,69.9651 20.6926,69.9632 20.6051,69.9557 20.5643,69.9512 20.5643,69.9512 17,2.0,Norway 19.5382,70.0066 19.4889,70.007 19.459,70.0109 19.3212,70.0317 19.3094,70.0374 19.3129,70.0487 19.3225,70.0576 19.3539,70.0822 19.3704,70.087 19.3883,70.086 19.4002,70.0831 19.5515,70.0391 19.5644,70.0333 19.5738,70.0242 19.5682,70.0128 19.5382,70.0066 19.5382,70.0066 90,-6.0,Canada -87.0719,70.0219 -87.0612,70.0205 -87.029,70.02 -86.9943,70.0167 -86.9833,70.0192 -86.9666,70.0265 -86.9373,70.0287 -86.9248,70.0275 -86.9082,70.031 -86.9498,70.0505 -86.9349,70.058 -86.9203,70.0571 -86.8977,70.0585 -86.8702,70.056 -86.8582,70.0503 -86.8299,70.0374 -86.8162,70.025 -86.8011,70.0219 -86.7295,70.0127 -86.7126,70.0115 -86.6811,70.0074 -86.6641,70.0062 -86.6334,70.0014 -86.6067,69.9956 -86.5855,69.9983 -86.5685,70.0021 -86.496,70.0236 -86.4779,70.0265 -86.4474,70.025 -86.4196,70.0206 -86.4063,70.0169 -86.3947,70.013 -86.354,69.9898 -86.3591,69.9783 -86.3458,69.9711 -86.3175,69.9594 -86.3148,69.9417 -86.3145,69.9311 -86.2985,69.9269 -86.2829,69.925 -86.2707,69.9183 -86.2804,69.909 -86.3012,69.8933 -86.3144,69.89 -86.3352,69.8875 -86.3538,69.8869 -86.4735,69.8768 -86.5256,69.8762 -86.5587,69.8789 -86.5766,69.8789 -86.6437,69.8837 -86.6752,69.8878 -86.692,69.8891 -86.7085,69.8917 -86.7368,69.8985 -86.749,69.9025 -86.7724,69.914 -86.7953,69.9231 -86.8121,69.924 -86.8291,69.9173 -86.8437,69.9081 -86.8605,69.9008 -86.8769,69.8986 -86.8965,69.8971 -86.9143,69.897 -86.9452,69.9019 -86.958,69.9067 -86.9784,69.9178 -86.9922,69.9232 -87.005,69.9262 -87.023,69.9265 -87.0386,69.9285 -87.0498,69.9304 -87.064,69.9342 -87.0842,69.9474 -87.0809,69.9615 -87.083,69.9726 -87.0992,69.984 -87.1142,69.9895 -87.1262,69.9918 -87.1421,69.994 -87.1562,69.9947 -87.1703,69.9971 -87.182,70.0065 -87.1618,70.0156 -87.1481,70.0172 -87.1136,70.0158 -87.0842,70.023 -87.0719,70.0219 -87.0719,70.0219 26,2.0,Norway 18.668,69.8996 18.6476,69.9038 18.6402,69.9125 18.6179,69.9526 18.6708,70.0368 18.6866,70.0411 18.7023,70.0396 18.712,70.0358 18.7436,70.0198 18.7558,70.0112 18.8986,70.0275 18.9586,69.9952 18.9552,69.9839 18.9288,69.9661 18.9167,69.9638 18.9017,69.9631 18.8673,69.9639 18.8387,69.9612 18.7979,69.9562 18.7873,69.9532 18.748,69.9332 18.7276,69.9169 18.7058,69.9062 18.695,69.9029 18.668,69.8996 18.668,69.8996 55,2.0,Norway 19.0936,69.6991 19.0774,69.6993 19.0582,69.701 19.0487,69.7046 19.023,69.732 19.0003,69.7468 18.991,69.7507 18.9143,69.7797 18.8905,69.7863 18.8472,69.7943 18.8082,69.8026 18.7288,69.8197 18.7169,69.8229 18.6939,69.8322 18.6824,69.8504 18.7947,69.9153 18.8145,69.9228 18.8358,69.9293 18.9049,69.9368 18.9685,69.9364 19.0129,69.9292 19.0693,69.9687 19.1154,69.9932 19.1768,70.0048 19.1888,70.0017 19.2593,69.9688 19.2477,69.9529 19.2549,69.9373 19.2919,69.9196 19.3208,69.9088 19.3521,69.898 19.3663,69.8954 19.3804,69.8989 19.3699,69.9136 19.3763,69.9249 19.4069,69.9403 19.4442,69.9566 19.4564,69.9592 19.4698,69.9608 19.485,69.9612 19.5044,69.9595 19.5189,69.9569 19.609,69.9295 19.6187,69.9257 19.6351,69.9177 19.6481,69.9066 19.6411,69.8883 19.4672,69.8115 19.3691,69.7453 19.3532,69.7373 19.3075,69.7261 19.2459,69.7146 19.1381,69.7018 19.0936,69.6991 19.0936,69.6991 873,3.0,Finland 20.537,68.9715 20.5655,68.9806 20.631,68.9981 20.6535,69.0037 20.6871,69.0071 20.7294,69.0045 20.7846,68.9961 20.8908,68.9696 20.9359,68.9563 20.9882,68.9444 21.0186,68.948 21.0346,68.9628 21.064,69.0084 21.0275,69.0329 21.0086,69.0517 20.9972,69.0717 20.9853,69.1214 21.0022,69.1347 21.2753,69.2368 21.6357,69.1953 21.9479,68.9895 21.9945,68.9635 22.1516,68.8492 22.2317,68.7933 22.3001,68.7553 22.3194,68.7072 22.3511,68.6231 22.4522,68.6408 22.5024,68.6496 22.7544,68.6032 22.8152,68.6049 23.0193,68.6053 23.0505,68.5864 23.0904,68.5611 23.1156,68.5494 23.1473,68.542 23.2113,68.5483 23.2374,68.5562 23.2839,68.5714 23.3583,68.5925 23.4174,68.6036 23.4678,68.6104 23.5332,68.617 23.6217,68.6228 23.6548,68.6287 23.6905,68.6541 23.712,68.6713 23.7457,68.7009 23.7741,68.738 23.8058,68.744 23.8489,68.7456 23.9256,68.7439 23.986,68.7367 24.0098,68.7302 24.0393,68.7139 24.0696,68.6954 24.155,68.6608 24.3027,68.6222 24.3654,68.6136 24.3984,68.6107 24.4613,68.6077 24.5267,68.6034 24.5769,68.5992 24.6379,68.5884 24.7021,68.5723 24.7211,68.5646 24.7524,68.5487 24.7791,68.529 24.8018,68.5053 24.8822,68.493 25.0234,68.5335 25.0518,68.55 25.052,68.5815 25.1016,68.6795 25.1164,68.7006 25.135,68.7151 25.1611,68.7289 25.1806,68.737 25.31,68.7852 25.3308,68.7922 25.353,68.7977 25.3836,68.8025 25.4276,68.8029 25.4537,68.7996 25.5085,68.7911 25.5313,68.7902 25.5635,68.7942 25.5854,68.8056 25.5983,68.8179 25.607,68.823 25.6374,68.8453 25.7064,68.9006 25.7135,68.9565 25.6772,69.0203 25.6531,69.1197 25.6582,69.1659 25.6843,69.229 25.6971,69.2498 25.7151,69.2643 25.7562,69.279 25.7783,69.2959 25.8185,69.3965 25.8976,69.4941 25.9145,69.529 25.9136,69.5525 25.8887,69.5751 25.9031,69.5954 25.9272,69.614 25.9483,69.6218 26.044,69.6361 26.0781,69.6448 26.0993,69.6521 26.1177,69.6614 26.3166,69.7619 26.3412,69.7784 26.3628,69.8056 26.3854,69.8303 26.4193,69.8458 26.5514,69.8604 26.7482,69.8613 26.807,69.8489 26.836,69.8349 26.9872,69.8173 27.0161,69.8189 27.1471,69.8428 27.227,69.8579 27.2469,69.8742 27.2391,69.8954 27.3617,69.9257 27.5098,69.9751 27.5387,69.9812 27.8113,69.9966 27.8491,69.9971 27.8762,69.9918 27.9097,69.9545 27.9151,69.9207 27.9305,69.907 28.0411,69.8441 28.098,69.8232 28.1361,69.816 28.1655,69.8116 28.2149,69.806 28.2554,69.7988 28.2803,69.7868 28.3023,69.7507 28.3184,69.737 28.3433,69.7312 28.6327,69.6782 28.682,69.6695 28.8474,69.6437 28.8836,69.6383 28.9382,69.6314 29.0398,69.616 29.0645,69.5957 29.1171,69.5407 29.2355,69.3957 29.2226,69.3741 29.2062,69.3623 29.0597,69.2815 29.002,69.2545 28.971,69.2411 28.9351,69.2263 28.8648,69.1969 28.841,69.1856 28.7638,69.147 28.7351,69.099 28.7213,69.0659 28.7235,69.0349 28.7406,69.0167 28.7658,69.0048 28.7961,68.9931 28.8289,68.9824 28.8957,68.9627 28.8516,68.9543 28.8162,68.9472 28.7941,68.9408 28.685,68.9084 28.3912,68.828 28.375,68.814 28.3796,68.794 28.4104,68.7859 28.4487,68.7843 28.5042,68.786 28.6447,68.7896 28.6769,68.7873 28.7318,68.7692 28.7561,68.7585 28.7385,68.7217 28.7009,68.6666 28.6776,68.6458 28.5944,68.5919 28.4577,68.4959 28.4,68.447 28.5,68.2983 28.6031,68.152 28.635,68.1084 28.7631,68.0852 29.0988,68.0296 29.2954,67.9957 29.3221,67.9754 29.4779,67.8521 29.6297,67.7287 29.6658,67.7169 29.8404,67.6544 29.9664,67.6085 29.9157,67.4867 29.8976,67.4527 29.8709,67.4279 29.838,67.4066 29.82,67.3976 29.6841,67.3308 29.4643,67.2085 29.097,66.9459 29.0744,66.9288 29.0306,66.8882 29.0219,66.8665 29.0157,66.8188 29.0168,66.793 29.0342,66.7668 29.0691,66.7359 29.1522,66.6862 29.1931,66.6665 29.2135,66.6538 29.2647,66.6201 29.2949,66.5936 29.3257,66.5443 29.3541,66.5159 29.4944,66.3865 29.508,66.3447 29.5169,66.3194 29.5304,66.2991 29.5718,66.246 29.7164,66.1265 29.7387,66.1093 29.7659,66.0924 29.7896,66.0803 29.8161,66.0688 29.8433,66.0508 29.8583,66.0294 29.888,65.9667 29.9719,65.8395 30.0335,65.7555 30.0421,65.736 30.0745,65.6265 30.0597,65.5859 30.0165,65.5932 29.97,65.6083 29.9322,65.6028 29.7589,65.5711 29.7745,65.5061 29.7382,65.4555 29.7107,65.4444 29.6867,65.4325 29.6787,65.3992 29.6801,65.3734 29.6863,65.333 29.6892,65.2644 29.647,65.2379 29.6119,65.2214 29.5539,65.1896 29.543,65.1627 29.574,65.1445 29.5997,65.1418 29.6781,65.1452 29.7282,65.1447 29.7612,65.1421 29.7888,65.1367 29.8109,65.1206 29.8101,65.0386 29.7772,65.0258 29.7477,65.0179 29.7147,65.0134 29.6672,65.0114 29.615,65.0006 29.5872,64.9906 29.5624,64.9712 29.5493,64.9251 29.582,64.8402 29.5941,64.824 29.6129,64.8065 29.6555,64.7718 29.6746,64.7569 29.6961,64.7422 29.7155,64.7292 29.7497,64.7138 29.7839,64.7121 29.8324,64.7127 29.8669,64.7144 29.8909,64.7151 29.9885,64.7151 30.0215,64.7123 30.0615,64.7037 30.0832,64.6917 30.1469,64.5831 30.1169,64.5512 30.082,64.5393 30.013,64.5245 29.9677,64.5177 29.9173,64.4988 29.9278,64.4729 29.9512,64.4322 29.9894,64.4227 30.0093,64.4148 30.0285,64.4008 30.0263,64.3801 30.0023,64.3256 30.0698,64.2844 30.1038,64.2731 30.1372,64.2693 30.2617,64.2498 30.2994,64.24 30.3297,64.2297 30.5032,64.1613 30.5169,64.1443 30.5523,64.015 30.5501,63.9914 30.5349,63.9678 30.4912,63.9361 30.4686,63.921 30.4205,63.8943 30.3381,63.8518 30.2039,63.7439 30.1511,63.7223 30.0759,63.7013 30.0555,63.6966 30.0039,63.688 29.9742,63.6822 29.9499,63.6759 29.938,63.6693 29.9402,63.6569 30.147,63.5342 30.1863,63.515 30.2497,63.4941 30.2979,63.4818 30.336,63.4698 30.3977,63.4252 30.4189,63.4029 30.5891,63.3615 30.6547,63.3465 30.8518,63.2756 31.1256,63.1604 31.1586,63.1455 31.1815,63.1269 31.3217,62.9918 31.4582,62.9053 31.5204,62.8308 31.4602,62.7764 31.44,62.7584 31.4127,62.7355 31.3689,62.682 31.2613,62.5385 31.25,62.5213 31.2337,62.4877 31.2195,62.4594 31.1978,62.4319 31.0228,62.3366 30.9043,62.2631 30.7748,62.1951 30.7332,62.1777 30.645,62.1344 30.5733,62.0903 30.3377,61.9408 30.2421,61.8805 30.1459,61.8149 30.097,61.7808 30.0844,61.7714 29.9411,61.6592 29.7448,61.5286 29.6267,61.4589 29.5956,61.4427 29.441,61.3621 29.2992,61.285 29.2781,61.2707 29.2461,61.2436 29.229,61.2285 29.2183,61.2177 29.1938,61.2015 29.1578,61.1789 29.1101,61.1577 29.0166,61.1249 28.9158,61.0883 28.7618,61.0309 28.6654,60.9712 28.6195,60.9276 28.591,60.8971 28.5653,60.886 28.5234,60.8876 28.4753,60.8807 28.4122,60.8512 28.3349,60.8127 28.2882,60.7846 28.2756,60.7676 28.2448,60.7468 28.2158,60.7304 28.1927,60.7197 28.0406,60.6388 27.8319,60.5159 27.7552,60.4731 27.7256,60.4981 27.6903,60.4932 27.6818,60.4623 27.6857,60.438 27.619,60.4314 27.5547,60.4329 27.4224,60.4311 27.4213,60.4032 27.2442,60.4308 27.2198,60.4603 27.1677,60.5102 26.9734,60.4584 26.9075,60.3716 26.8546,60.4029 26.7605,60.3996 26.689,60.3756 26.6167,60.3535 26.5134,60.355 26.4502,60.3719 26.4283,60.4048 26.5196,60.5067 26.5447,60.5246 26.5726,60.5336 26.6081,60.5348 26.6451,60.5184 26.6991,60.5021 26.6714,60.5443 26.6416,60.569 26.6018,60.5728 26.5612,60.5652 26.4959,60.5086 26.4767,60.4919 26.4064,60.4237 26.4193,60.3849 26.4234,60.3547 26.3667,60.3186 26.0967,60.3209 26.0058,60.3497 26.0561,60.247 26.0295,60.2212 25.9927,60.2329 25.9473,60.2719 25.8401,60.3165 25.7895,60.3253 25.8221,60.3099 25.8642,60.284 25.8728,60.1709 25.8387,60.172 25.8233,60.1989 25.6976,60.2313 25.7455,60.1951 25.7879,60.1963 25.7264,60.161 25.6722,60.1753 25.6257,60.2026 25.603,60.2224 25.6069,60.2634 25.6412,60.2758 25.6093,60.2882 25.5279,60.256 25.4971,60.238 25.4363,60.1742 25.3201,60.1829 25.149,60.1681 25.1026,60.1479 25.1474,60.136 25.1442,60.1117 25.0187,60.0836 24.9072,60.0636 24.8041,60.0641 24.7045,60.0645 24.557,60.0495 24.5624,60.0201 24.5431,59.9823 24.4264,59.9184 24.3752,59.9151 24.3757,59.9548 24.3151,59.9969 24.2876,59.9996 24.2425,59.9928 24.1715,59.967 24.0288,59.9429 23.7527,59.8897 23.6575,59.8823 23.5768,59.8761 23.517,59.8984 23.4658,59.8964 23.3874,59.8816 23.4355,59.9246 23.4778,59.9471 23.4956,59.9561 23.4933,59.9949 23.4497,59.986 23.3221,59.87 23.2058,59.7661 23.1505,59.7557 22.8575,59.735 22.8917,59.7687 23.0435,59.8071 23.0717,59.8124 23.1175,59.8129 23.2134,59.8475 23.2528,59.8866 23.2818,59.9277 23.292,59.9517 23.2704,59.9456 23.2531,59.9277 23.2364,59.9072 23.2069,59.8731 23.1839,59.8568 23.0657,59.8538 23.0678,59.8982 23.1232,59.9133 23.1587,59.9211 23.1779,59.9295 23.2111,59.9649 23.1486,59.9754 23.1031,59.9738 23.083,59.9716 23.062,59.9655 23.0357,59.9595 23.0062,59.9639 22.948,59.9851 22.955,60.0138 22.9743,60.0285 22.9995,60.0463 22.9819,60.0559 22.9244,60.0392 22.8631,60.0537 22.8316,60.0729 22.8269,60.1066 22.8611,60.1432 22.8837,60.158 22.9245,60.1775 22.9739,60.2094 23.041,60.2723 23.0181,60.2804 22.876,60.2312 22.7582,60.1858 22.7176,60.1714 22.6918,60.1646 22.6563,60.1563 22.6201,60.1495 22.523,60.1392 22.4072,60.1697 22.4206,60.1912 22.4418,60.2105 22.4938,60.2395 22.5839,60.3073 22.4412,60.3188 22.2351,60.3126 22.2172,60.3251 22.1949,60.3352 22.1342,60.3581 22.0729,60.3757 22.0418,60.3707 21.9728,60.3923 21.9295,60.4149 21.9043,60.4433 21.8285,60.4508 21.8015,60.4455 21.8217,60.3987 21.7619,60.4093 21.7608,60.4918 21.7886,60.5149 21.7832,60.5459 21.7294,60.5279 21.6231,60.479 21.5474,60.4364 21.536,60.4893 21.511,60.4961 21.4697,60.501 21.4412,60.4942 21.4121,60.4893 21.3836,60.506 21.3181,60.5802 21.3168,60.6057 21.3455,60.6127 21.3521,60.6818 21.3149,60.7411 21.288,60.7914 21.3473,60.8667 21.3647,60.9565 21.4038,61.0929 21.4529,61.1612 21.5034,61.2017 21.5135,61.2348 21.4893,61.3726 21.4707,61.4378 21.4278,61.4816 21.4572,61.4985 21.5622,61.4696 21.6226,61.4653 21.5602,61.5266 21.4942,61.5782 21.4311,61.6856 21.4474,61.7251 21.3694,61.8152 21.3224,61.854 21.2586,61.8663 21.2435,61.8707 21.2126,61.9299 21.2447,61.9935 21.2649,62.0329 21.2929,62.0779 21.339,62.1063 21.348,62.1302 21.3303,62.1839 21.2912,62.2743 21.2179,62.2996 21.1146,62.3365 21.0707,62.3754 21.0743,62.4148 21.0845,62.4709 21.025,62.5214 21.0648,62.6905 21.093,62.7128 21.2567,62.7837 21.3043,62.7773 21.3317,62.7851 21.3548,62.8093 21.3917,62.8661 21.4043,62.89 21.4089,62.9289 21.394,62.9574 21.4591,62.989 21.4865,62.9855 21.5093,62.9675 21.5778,62.9413 21.6343,62.9427 21.6405,62.9524 21.6357,62.9564 21.613,62.9703 21.5691,62.9905 21.5276,63.0012 21.4767,63.0479 21.4599,63.0821 21.4548,63.126 21.4966,63.1527 21.5254,63.1436 21.5983,63.1147 21.6479,63.1313 21.8352,63.1781 21.8499,63.1285 21.924,63.1054 22.0432,63.1451 22.1363,63.1531 22.1734,63.1587 22.2963,63.1987 22.326,63.2354 22.3119,63.2617 22.2803,63.29 22.2551,63.2979 22.2284,63.3081 22.1573,63.3411 22.1445,63.367 22.2446,63.4476 22.2896,63.4417 22.3322,63.4114 22.3526,63.3944 22.3854,63.4206 22.4455,63.4876 22.4613,63.5051 22.4609,63.5337 22.545,63.6172 22.6213,63.6202 22.6568,63.605 22.6625,63.581 22.6956,63.5414 22.7361,63.5474 22.7797,63.563 22.8549,63.6202 22.8813,63.6841 22.8785,63.7226 23.021,63.772 23.1025,63.7992 23.1552,63.8072 23.273,63.8177 23.3245,63.8625 23.3255,63.9079 23.3391,63.9666 23.3816,63.9701 23.4653,63.9571 23.5558,63.9852 23.5618,64.0193 23.6056,64.0617 23.6476,64.0794 23.6648,64.0836 23.6753,64.1048 23.8084,64.1645 23.8796,64.1898 23.8798,64.2115 23.9485,64.3037 24.0723,64.3568 24.162,64.3928 24.2302,64.4171 24.2914,64.4416 24.311,64.4629 24.3258,64.5058 24.3228,64.5391 24.3766,64.5952 24.4867,64.6663 24.491,64.7186 24.6819,64.7738 24.7543,64.7885 24.9505,64.8116 25.0348,64.8312 25.0664,64.8268 25.1303,64.7863 25.1438,64.765 25.1803,64.7389 25.2035,64.7337 25.2473,64.7342 25.2693,64.7374 25.2898,64.7415 25.3117,64.7488 25.3149,64.8174 25.2928,64.8272 25.2599,64.8223 25.1801,64.8492 25.1394,64.8833 25.1631,64.9075 25.2714,64.8998 25.3176,64.8779 25.3636,64.8637 25.3936,64.8727 25.3626,64.9533 25.3201,64.9982 25.3035,65.0112 25.241,65.028 25.2172,65.0885 25.2428,65.1847 25.2508,65.212 25.2745,65.2642 25.3048,65.3288 25.3066,65.3662 25.3004,65.3968 25.2533,65.4329 25.1647,65.4723 25.1392,65.4773 25.1112,65.4735 25.0817,65.4721 25.0516,65.4873 25.0425,65.5098 25.0304,65.5238 24.8415,65.5659 24.7463,65.576 24.7218,65.5742 24.6988,65.5659 24.6197,65.5723 24.5103,65.6444 24.5043,65.6793 24.5099,65.7077 24.5804,65.7719 24.6393,65.8135 24.5771,65.8048 24.5128,65.7421 24.4893,65.7128 24.3997,65.7118 24.3655,65.6848 24.1716,65.6908 24.1266,65.7088 24.1185,65.7312 24.1154,65.7499 23.9828,65.9371 23.9193,65.9894 23.9003,66.0182 23.887,66.0454 23.8706,66.061 23.8381,66.0735 23.8079,66.0769 23.7663,66.0847 23.7068,66.1017 23.6782,66.1148 23.6368,66.18 23.6144,66.2288 23.5918,66.3495 23.6079,66.3734 23.6769,66.4167 23.7589,66.4536 23.7784,66.4598 23.8255,66.4714 23.8409,66.4916 23.8542,66.596 23.8521,66.628 23.8435,66.6603 23.8935,66.7034 23.9519,66.7177 23.8918,66.7951 23.8182,66.8464 23.7391,66.8966 23.7023,66.911 23.6826,66.9236 23.6326,66.9625 23.5249,67.0718 23.5419,67.1553 23.5612,67.1758 23.5816,67.182 23.6342,67.1902 23.6591,67.1926 23.6941,67.201 23.7312,67.2409 23.716,67.3312 23.686,67.3403 23.5334,67.3644 23.4942,67.3668 23.4712,67.3575 23.4454,67.3516 23.4207,67.3572 23.3997,67.3666 23.3823,67.3938 23.4235,67.4703 23.459,67.5794 23.4426,67.6264 23.4217,67.7332 23.4399,67.7843 23.4622,67.7972 23.4966,67.8035 23.5528,67.8097 23.6063,67.8346 23.6105,67.8593 23.5892,67.8712 23.4824,67.9058 23.3456,67.9555 23.3232,67.9731 23.3045,67.9966 23.007,68.2037 22.921,68.2304 22.8884,68.2349 22.857,68.2425 22.8157,68.2699 22.7786,68.2985 22.6192,68.3339 22.5341,68.3397 22.4528,68.3524 22.3834,68.3639 22.3249,68.3759 22.1124,68.3773 22.0021,68.3937 21.9825,68.4147 21.9543,68.4336 21.9131,68.4562 21.8877,68.4675 21.8431,68.4833 21.8184,68.4857 21.7708,68.4824 21.7194,68.4877 21.681,68.4995 21.6606,68.5269 21.5969,68.5543 21.5773,68.5615 21.5477,68.5694 21.5049,68.5737 21.4486,68.5819 21.4083,68.5987 21.3752,68.6359 21.1671,68.7295 21.0368,68.7782 21.014,68.7849 20.9799,68.7891 20.9463,68.7911 20.9077,68.7921 20.8564,68.8036 20.8417,68.8295 20.8864,68.8606 20.8862,68.882 20.8642,68.8969 20.831,68.9125 20.802,68.9233 20.7474,68.9347 20.7001,68.9421 20.6059,68.9551 20.5601,68.9642 20.537,68.9715 20.537,68.9715 21,2.0,Norway 20.8271,69.845 20.794,69.8454 20.7788,69.8469 20.7549,69.8553 20.7276,69.8803 20.7135,69.8968 20.7145,69.908 20.7322,69.9306 20.7487,69.9454 20.762,69.9518 20.7759,69.9532 20.7925,69.9531 20.847,69.9399 20.9018,69.9109 20.9976,69.9146 21.0542,69.9164 20.9073,69.8551 20.8829,69.8502 20.8419,69.8456 20.8271,69.845 20.8271,69.845 67,12.0,Russia 169.0456,69.6736 168.9489,69.6777 168.9293,69.6777 168.9156,69.6729 168.9082,69.6642 168.9067,69.6142 168.9301,69.59 168.9387,69.5684 168.931,69.5526 168.9164,69.5375 168.8845,69.5118 168.8602,69.4949 168.8505,69.4889 168.8405,69.4839 168.8203,69.4802 168.8029,69.4789 168.5615,69.4772 168.5039,69.4778 168.4683,69.4802 168.3193,69.5024 168.2866,69.5073 167.9706,69.5681 167.7842,69.6081 167.7692,69.617 167.7298,69.6498 167.7076,69.6636 167.695,69.6693 167.6811,69.6742 167.5501,69.6956 167.4315,69.7106 167.4162,69.7142 167.4046,69.7212 167.3948,69.7292 167.3879,69.737 167.3948,69.7464 167.4356,69.771 167.5305,69.825 167.5508,69.8356 167.5846,69.8509 167.6196,69.8634 167.7773,69.9097 167.8831,69.9297 167.9025,69.9298 167.9528,69.9252 167.9882,69.9217 168.163,69.902 168.1963,69.8972 168.2465,69.89 168.3642,69.873 168.4255,69.8586 168.4536,69.8489 168.4838,69.8422 168.5008,69.8397 168.5358,69.8359 168.6753,69.8209 168.731,69.8181 168.7699,69.8177 168.8423,69.8122 168.9921,69.7901 169.0393,69.7805 169.0532,69.7757 169.064,69.7685 169.0735,69.76 169.0879,69.7308 169.0801,69.7187 169.0456,69.6736 169.0456,69.6736 16,2.0,Norway 19.4319,69.7494 19.4195,69.7564 19.4799,69.7936 19.4986,69.8021 19.7552,69.9097 19.7715,69.91 19.7904,69.9079 19.8023,69.9047 19.8216,69.8975 19.8522,69.8747 19.7444,69.7801 19.7295,69.7743 19.6847,69.7719 19.5249,69.7614 19.4319,69.7494 19.4319,69.7494 32,-6.0,Canada -97.1155,69.8411 -97.1362,69.8239 -97.1375,69.8086 -97.126,69.8024 -97.1087,69.798 -97.0899,69.799 -97.0785,69.8026 -97.0609,69.8039 -97.0383,69.8007 -97.0226,69.7951 -97.0172,69.7803 -97.0289,69.7695 -97.0578,69.7619 -97.0724,69.7625 -97.0878,69.7655 -97.0973,69.7699 -97.1063,69.7788 -97.2064,69.803 -97.2368,69.8038 -97.2537,69.8057 -97.2683,69.8083 -97.2766,69.8175 -97.2806,69.8271 -97.2746,69.856 -97.2638,69.8647 -97.2543,69.8703 -97.2415,69.8723 -97.2254,69.8711 -97.1387,69.8589 -97.1201,69.8531 -97.1155,69.8411 -97.1155,69.8411 72,-2.0,Greenland -50.891,69.8279 -50.855,69.8124 -50.8287,69.8051 -50.8126,69.8022 -50.7893,69.8006 -50.7691,69.8004 -50.6692,69.7946 -50.56,69.77 -50.5512,69.7616 -50.5476,69.7432 -50.5836,69.7149 -50.5928,69.7091 -50.6863,69.6711 -50.6974,69.6697 -50.7302,69.6678 -50.7428,69.6721 -50.7654,69.6806 -50.7793,69.6771 -50.8377,69.647 -50.847,69.6414 -50.8549,69.6341 -50.8767,69.5436 -50.8689,69.5207 -50.8545,69.5032 -50.8392,69.4802 -50.8378,69.47 -50.8482,69.4607 -50.8578,69.4572 -50.9992,69.4159 -51.0115,69.4147 -51.025,69.4146 -51.0604,69.419 -51.1007,69.4293 -51.1344,69.4415 -51.139,69.4524 -51.223,69.5952 -51.2334,69.5984 -51.2505,69.6 -51.2667,69.6033 -51.2754,69.6118 -51.2642,69.6272 -51.2351,69.6461 -51.1435,69.6889 -51.1114,69.7037 -51.0687,69.7196 -51.0465,69.728 -51.0245,69.735 -50.9679,69.7575 -50.9137,69.7793 -50.9004,69.7878 -50.9163,69.7921 -50.9382,69.7896 -50.967,69.7844 -51.0066,69.7752 -51.0308,69.7669 -51.0417,69.7622 -51.0508,69.7567 -51.0708,69.7458 -51.0861,69.7428 -51.1062,69.7435 -51.1234,69.7452 -51.2393,69.7574 -51.2512,69.7615 -51.1096,69.8226 -51.0957,69.8258 -51.0803,69.8284 -51.043,69.8301 -50.9483,69.8339 -50.9086,69.8323 -50.8977,69.8305 -50.891,69.8279 -50.891,69.8279 20,2.0,Norway 29.7289,69.664 29.6662,69.6691 29.6521,69.6743 29.7055,69.7109 29.744,69.7316 29.7454,69.7748 29.7568,69.8109 29.7662,69.8161 29.7771,69.8196 29.8105,69.8168 29.8283,69.814 29.9129,69.8003 29.9375,69.7944 29.9829,69.7373 29.9776,69.7181 29.8951,69.6979 29.7741,69.669 29.762,69.6667 29.7289,69.664 29.7289,69.664 14,2.0,Norway 20.5598,69.7057 20.5287,69.7079 20.5189,69.7202 20.5134,69.7625 20.5455,69.8003 20.5567,69.8079 20.5665,69.8121 20.5787,69.8143 20.6927,69.813 20.6874,69.7297 20.6723,69.7253 20.6356,69.7184 20.5598,69.7057 20.5598,69.7057 208,-6.0,Canada -99.35,68.9102 -99.3109,68.895 -99.2768,68.8789 -99.2399,68.8501 -99.2379,68.8165 -99.2209,68.8005 -99.2015,68.7958 -99.0999,68.7802 -99.0557,68.7705 -99.0347,68.7642 -99.0255,68.7603 -98.9995,68.7434 -98.9712,68.7365 -98.8331,68.7737 -98.8581,68.799 -98.8847,68.8109 -98.8664,68.8298 -98.776,68.8604 -98.7549,68.8607 -98.6386,68.845 -98.6094,68.8224 -98.6489,68.7947 -98.6647,68.7581 -98.6428,68.739 -98.5148,68.7029 -98.3101,68.6591 -98.274,68.6581 -98.2421,68.6616 -98.1963,68.68 -98.1884,68.7062 -98.2061,68.727 -98.2054,68.7629 -98.1669,68.7702 -98.06,68.7434 -98.0345,68.7285 -98.0536,68.7012 -98.0773,68.6666 -98.0524,68.6452 -98.0316,68.6328 -97.9167,68.5846 -97.891,68.5829 -97.8732,68.5923 -97.8482,68.6061 -97.8199,68.6061 -97.7107,68.5873 -97.5199,68.544 -97.4604,68.5157 -97.3724,68.4782 -97.3467,68.4689 -97.2997,68.4541 -97.2612,68.4469 -96.9757,68.4236 -96.943,68.4261 -96.9202,68.4314 -96.8905,68.4475 -96.7161,68.4317 -96.5639,68.3975 -96.5131,68.3874 -96.3268,68.3572 -96.2999,68.3583 -96.0963,68.3829 -96.0602,68.4045 -95.9462,68.4693 -95.7915,68.5327 -95.6564,68.5652 -95.6452,68.5819 -95.5926,68.6472 -95.4118,68.6649 -95.3908,68.6643 -95.361,68.6551 -95.3395,68.6228 -95.2738,68.6236 -95.0654,68.7116 -95.0071,68.7628 -95.0318,68.7766 -95.1252,68.807 -95.1549,68.8107 -95.1808,68.8078 -95.2214,68.7983 -95.2433,68.7908 -95.2868,68.7732 -95.3069,68.7638 -95.325,68.7517 -95.3469,68.7447 -95.3724,68.742 -95.4225,68.7382 -95.4605,68.7472 -95.4664,68.7746 -95.5568,68.8021 -95.6161,68.7818 -95.6394,68.8343 -95.7274,68.9106 -95.7696,68.9567 -95.7486,68.9785 -95.722,68.9964 -95.7483,69.0508 -95.8385,69.137 -95.8607,69.1428 -95.9489,69.0783 -95.9464,69.0142 -95.9247,68.9657 -95.9146,68.9406 -95.9611,68.9425 -95.9897,68.9495 -96.0252,68.9693 -96.0175,69.0527 -96.0049,69.1298 -95.9921,69.1459 -95.9662,69.1684 -95.9959,69.2119 -96.0942,69.2571 -96.1133,69.2651 -96.2948,69.32 -96.4296,69.3477 -96.6643,69.3998 -96.7465,69.4336 -96.8546,69.4829 -96.8887,69.5079 -96.8994,69.5289 -96.9967,69.5775 -97.0161,69.5855 -97.0708,69.6062 -97.0994,69.6023 -97.1189,69.5795 -97.1399,69.5455 -97.175,69.5055 -97.2729,69.5791 -97.2511,69.5933 -97.2308,69.5953 -97.194,69.5951 -97.154,69.5997 -97.1314,69.612 -97.2377,69.6701 -97.3682,69.6918 -97.3981,69.6983 -97.448,69.7129 -97.4763,69.7263 -97.5425,69.7609 -97.6675,69.7945 -97.7089,69.8015 -97.7324,69.8031 -97.761,69.8015 -97.7927,69.7966 -97.8253,69.7843 -97.8448,69.7639 -97.8713,69.7379 -97.8999,69.7221 -97.931,69.7162 -97.9893,69.7115 -98.0173,69.6984 -98.0689,69.6614 -98.1048,69.6277 -98.1516,69.5091 -98.1177,69.5002 -98.0834,69.4953 -98.0473,69.4868 -97.9994,69.4492 -97.9767,69.4262 -97.9502,69.4115 -97.8598,69.3791 -97.7904,69.3543 -97.8289,69.335 -97.8742,69.3344 -98.0368,69.3951 -98.0724,69.4167 -98.1044,69.4383 -98.1241,69.4538 -98.1419,69.467 -98.1729,69.4764 -98.2206,69.4858 -98.2807,69.4941 -98.3185,69.4949 -98.3559,69.4846 -98.3886,69.4502 -98.3815,69.4267 -98.3585,69.4168 -98.3367,69.4117 -98.244,69.3948 -98.2099,69.38 -98.2356,69.3718 -98.2654,69.3724 -98.296,69.3738 -98.3346,69.3819 -98.3669,69.3845 -98.3981,69.3574 -98.3855,69.3408 -98.3467,69.3127 -98.3173,69.3006 -98.2712,69.2923 -98.2371,69.2786 -98.1778,69.2359 -98.1955,69.2142 -98.23,69.2086 -98.3222,69.2019 -98.4036,69.2054 -98.4907,69.1277 -98.5114,69.1038 -98.5628,69.0866 -98.5865,69.0816 -98.7949,69.0472 -98.8233,69.0468 -98.9562,69.0492 -99.0256,69.0607 -99.0913,69.0696 -99.2676,69.0387 -99.3006,69.013 -99.3791,68.9331 -99.35,68.9102 79,2.0,Norway 18.275,69.6132 18.3562,69.6098 18.549,69.602 18.5867,69.6027 18.5706,69.6116 18.4822,69.6216 18.4441,69.625 18.3967,69.6241 18.3241,69.63 18.3084,69.6353 18.2836,69.6754 18.2886,69.6864 18.3134,69.6956 18.3476,69.7041 18.3596,69.7008 18.4418,69.6704 18.5941,69.673 18.6075,69.6336 18.616,69.6213 18.6303,69.613 18.6693,69.5941 18.6813,69.5909 18.6989,69.59 18.7155,69.5949 18.726,69.6754 18.7127,69.7109 18.6937,69.7181 18.6457,69.7391 18.6201,69.7732 18.6276,69.7847 18.6527,69.7939 18.7635,69.7921 18.7806,69.7902 18.7929,69.7869 18.9549,69.7347 18.974,69.7273 19.0023,69.7107 19.0166,69.697 19.0235,69.6786 19.0187,69.669 19.0031,69.6596 18.9769,69.6463 18.8927,69.6142 18.8717,69.6074 18.8493,69.602 18.7538,69.5818 18.734,69.5603 18.7305,69.544 18.7491,69.5393 18.7656,69.5396 18.7834,69.5344 18.8057,69.5112 18.7428,69.4791 18.722,69.473 18.698,69.468 18.6834,69.4672 18.6642,69.4689 18.5707,69.4705 18.4975,69.4663 18.3696,69.456 18.3575,69.4534 18.3049,69.4469 18.2021,69.4408 18.1873,69.4398 18.1514,69.44 18.1206,69.4448 18.0063,69.4749 17.987,69.4822 17.9611,69.5006 17.9932,69.5324 18.1073,69.5487 18.1235,69.5485 18.2292,69.5291 18.2406,69.5457 18.1471,69.6137 18.1581,69.6188 18.2589,69.615 18.275,69.6132 18.275,69.6132 16,-6.0,Canada -91.3369,69.6366 -91.351,69.6371 -91.3619,69.6382 -91.5261,69.6939 -91.5354,69.7002 -91.277,69.7849 -91.2505,69.7886 -91.2351,69.7902 -91.2206,69.7894 -91.2106,69.7845 -91.2582,69.6846 -91.265,69.6733 -91.272,69.6652 -91.3215,69.641 -91.3369,69.6366 -91.3369,69.6366 18,-5.0,Canada -82.4567,69.7808 -82.3765,69.7705 -82.3378,69.7639 -82.2669,69.7319 -82.2538,69.7244 -82.2472,69.7063 -82.2489,69.6942 -82.2653,69.6881 -82.2917,69.6911 -82.3344,69.6978 -82.3469,69.7004 -82.372,69.7065 -82.385,69.7105 -82.5088,69.7602 -82.4933,69.7853 -82.4809,69.7856 -82.4567,69.7808 -82.4567,69.7808 25,-5.0,Canada -83.3953,69.6907 -83.4205,69.6898 -83.5143,69.6738 -83.5268,69.6632 -83.5119,69.6554 -83.4772,69.6395 -83.493,69.6296 -83.5074,69.6294 -83.5365,69.6333 -83.5953,69.6425 -83.6253,69.6494 -83.7168,69.6741 -83.7264,69.6788 -83.7351,69.6883 -83.7308,69.7028 -83.7186,69.7178 -83.7049,69.7284 -83.6916,69.7328 -83.6781,69.7339 -83.6506,69.7347 -83.3962,69.7076 -83.3501,69.6985 -83.3608,69.693 -83.3953,69.6907 -83.3953,69.6907 69,-5.0,Canada -79.5951,69.6627 -79.5834,69.6885 -79.5756,69.6959 -79.5096,69.724 -79.3401,69.7164 -79.3042,69.7134 -79.2812,69.7086 -79.2701,69.7048 -79.2549,69.697 -79.1581,69.62 -79.16,69.6091 -79.1829,69.598 -79.3101,69.5561 -79.3729,69.5365 -79.3996,69.5293 -79.4283,69.5228 -79.4595,69.5191 -79.7876,69.5332 -79.801,69.5416 -79.8219,69.5485 -79.8489,69.5536 -79.8648,69.5554 -79.8891,69.5527 -79.908,69.5374 -79.8599,69.4973 -79.8185,69.4788 -79.765,69.4357 -79.8017,69.4125 -79.8215,69.4046 -79.8438,69.4023 -79.8735,69.4082 -80.0274,69.4411 -80.0415,69.4969 -80.1797,69.5246 -80.2879,69.5662 -80.3187,69.5748 -80.4034,69.5773 -80.569,69.576 -80.5864,69.5769 -80.6184,69.58 -80.6294,69.5855 -80.6346,69.5961 -80.6263,69.6108 -80.5515,69.6579 -80.4749,69.6583 -80.3456,69.6307 -80.3252,69.6708 -80.3291,69.6804 -80.3268,69.6914 -80.316,69.6982 -80.2919,69.7018 -80.2145,69.7095 -80.197,69.7088 -80.1651,69.7022 -80.1693,69.6903 -80.1555,69.6837 -80.1404,69.6878 -80.1151,69.6964 -80.0899,69.7051 -80.0725,69.7081 -80.0584,69.7092 -80.0327,69.7077 -80.0133,69.7036 -79.9553,69.6754 -79.8993,69.6594 -79.7994,69.6333 -79.6898,69.651 -79.5951,69.6627 -79.5951,69.6627 19,-5.0,Canada -82.6162,69.7148 -82.5965,69.714 -82.4983,69.7045 -82.4505,69.6987 -82.3849,69.6883 -82.2815,69.6714 -82.2753,69.6274 -82.2884,69.6199 -82.329,69.6149 -82.3639,69.6142 -82.4998,69.636 -82.5407,69.643 -82.6854,69.6804 -82.6987,69.6866 -82.6765,69.7099 -82.6631,69.713 -82.6277,69.7157 -82.6162,69.7148 -82.6162,69.7148 62,-5.0,Canada -77.9727,69.6523 -77.9107,69.6394 -77.8492,69.6181 -77.8239,69.6091 -77.8138,69.6045 -77.8049,69.5986 -77.7971,69.5916 -77.7868,69.5783 -77.7779,69.5565 -77.7768,69.5464 -77.797,69.5349 -77.9014,69.5027 -78.0012,69.4806 -78.1427,69.4533 -78.2285,69.431 -78.3355,69.3992 -78.4069,69.4121 -78.4184,69.4163 -78.4417,69.4196 -78.4566,69.4202 -78.4763,69.4201 -78.4947,69.4176 -78.5154,69.4086 -78.5282,69.3995 -78.549,69.3904 -78.5872,69.3779 -78.6322,69.3661 -78.6476,69.3633 -78.6687,69.3618 -78.6876,69.366 -78.7009,69.3731 -78.7084,69.3905 -78.6947,69.4053 -78.6713,69.4182 -78.6562,69.422 -78.6398,69.4242 -78.6131,69.4314 -78.5941,69.4374 -78.5476,69.455 -78.5252,69.4669 -78.5046,69.4786 -78.4828,69.4921 -78.458,69.5188 -78.4455,69.5274 -78.4164,69.5421 -78.4059,69.5464 -78.3527,69.5582 -78.33,69.5603 -78.3129,69.5594 -78.2305,69.5534 -78.0916,69.5701 -78.076,69.5737 -78.0594,69.5843 -78.0713,69.6009 -78.0872,69.6156 -78.0942,69.6236 -78.0985,69.6403 -78.0108,69.6618 -77.9946,69.6621 -77.9847,69.6605 -77.9727,69.6523 -77.9727,69.6523 23,-2.0,Greenland -23.2062,69.6357 -23.1789,69.5966 -23.1731,69.5761 -23.1823,69.5678 -23.1956,69.5629 -23.2363,69.5512 -23.2522,69.5495 -23.2858,69.5496 -23.3361,69.5538 -23.4396,69.5651 -23.4559,69.5679 -23.4685,69.5712 -23.4889,69.5807 -23.4982,69.5865 -23.542,69.6204 -23.513,69.6283 -23.4226,69.6443 -23.4105,69.6456 -23.3938,69.6466 -23.2611,69.6514 -23.2388,69.6482 -23.2062,69.6357 -23.2062,69.6357 17,-4.0,Canada -67.7227,69.6106 -67.6742,69.5861 -67.6849,69.512 -67.7636,69.4369 -67.7737,69.432 -67.7887,69.429 -67.8554,69.437 -67.9025,69.4441 -68.0913,69.4805 -68.1012,69.5068 -67.9309,69.5752 -67.8236,69.6116 -67.8123,69.6147 -67.7992,69.6164 -67.7455,69.6184 -67.7227,69.6106 -67.7227,69.6106 20,11.0,Russia 161.3818,69.4669 161.3611,69.4749 161.3016,69.5263 161.3049,69.5392 161.3385,69.552 161.3578,69.5563 161.3789,69.5591 161.3994,69.561 161.4371,69.5606 161.4846,69.5598 161.4973,69.557 161.5077,69.5133 161.5051,69.494 161.4939,69.4854 161.4697,69.4747 161.4544,69.4703 161.4318,69.466 161.4115,69.4641 161.3818,69.4669 161.3818,69.4669 26,11.0,Russia 161.0255,69.3164 161.07,69.3543 161.0809,69.3701 161.0853,69.425 161.0799,69.4418 161.0685,69.4528 161.0585,69.4672 161.0475,69.4975 161.1282,69.5468 161.1471,69.5474 161.1827,69.5449 161.2126,69.5367 161.2395,69.5245 161.2648,69.5062 161.2733,69.4986 161.2845,69.4814 161.2786,69.3938 161.2715,69.3597 161.2485,69.3459 161.2361,69.3405 161.2176,69.3363 161.1819,69.3296 161.1422,69.3219 161.0908,69.3186 161.0255,69.3164 161.0255,69.3164 49,-6.0,Canada -95.2827,69.4755 -95.2462,69.4603 -95.1699,69.428 -95.157,69.4218 -95.1565,69.409 -95.1973,69.2939 -95.3106,69.2414 -95.3217,69.2381 -95.3345,69.2358 -95.401,69.2299 -95.4149,69.2291 -95.4285,69.2291 -95.4869,69.2296 -95.5012,69.2302 -95.5169,69.2316 -95.5346,69.2413 -95.5239,69.2864 -95.5111,69.2933 -95.4881,69.2998 -95.4633,69.3046 -95.4518,69.3078 -95.4425,69.3137 -95.4602,69.4079 -95.4627,69.4176 -95.4877,69.4506 -95.5013,69.4589 -95.5134,69.463 -95.5299,69.4652 -95.6088,69.473 -95.6228,69.467 -95.6159,69.4248 -95.6108,69.4151 -95.6029,69.4058 -95.5908,69.3918 -95.6561,69.2585 -95.6659,69.2532 -95.6933,69.2515 -95.7552,69.2569 -95.7723,69.2599 -95.7843,69.2637 -95.8035,69.3907 -95.7126,69.5053 -95.702,69.5094 -95.5823,69.5442 -95.5668,69.5429 -95.4186,69.5261 -95.4054,69.5245 -95.2827,69.4755 -95.2827,69.4755 150,2.0,Norway 16.8396,69.1323 16.8496,69.1359 16.8756,69.1391 16.9045,69.1415 16.965,69.1437 17.0028,69.1404 17.0357,69.1364 17.0717,69.1342 17.0853,69.1403 17.106,69.16 17.0337,69.1865 17.0029,69.1793 16.8773,69.203 16.8643,69.2084 16.8629,69.219 16.8771,69.2247 16.892,69.2257 16.9779,69.2244 17.0472,69.2255 17.0622,69.2255 17.0525,69.2534 17.041,69.2559 17.0076,69.2598 16.9938,69.2592 16.9816,69.2554 16.9415,69.261 16.927,69.2597 16.8732,69.2625 16.8544,69.264 16.8392,69.2687 16.899,69.305 17.0073,69.3093 17.1661,69.3147 17.2539,69.3181 17.3528,69.3231 17.4432,69.3302 17.4531,69.3349 17.4443,69.3408 17.4154,69.3457 17.3691,69.3463 17.3483,69.3444 17.283,69.3473 17.2242,69.3546 17.2009,69.3639 17.1496,69.404 17.1598,69.4101 17.1756,69.4106 17.1875,69.4076 17.217,69.3937 17.2467,69.3747 17.2587,69.3719 17.2762,69.3707 17.3239,69.3883 17.3065,69.4115 17.268,69.4346 17.2864,69.4421 17.3024,69.4423 17.3768,69.4303 17.4197,69.4226 17.5076,69.395 17.5343,69.3731 17.5524,69.3656 17.5683,69.3844 17.5236,69.4214 17.515,69.4262 17.4823,69.445 17.465,69.4455 17.4482,69.4477 17.4361,69.4507 17.4217,69.4777 17.4316,69.5077 17.4477,69.5077 17.4912,69.4946 17.501,69.491 17.5154,69.4829 17.5301,69.4746 17.5565,69.4609 17.5791,69.4385 17.5986,69.4264 17.6479,69.4195 17.6575,69.4269 17.6307,69.4564 17.6139,69.5015 17.6245,69.5077 17.8059,69.4994 17.8213,69.494 17.9258,69.4333 18.0352,69.3412 18.0463,69.3292 18.0613,69.27 18.0481,69.2598 18.0175,69.2588 17.9304,69.2536 17.9188,69.251 17.8791,69.236 17.8686,69.2294 17.8377,69.1505 17.9137,69.1101 17.9298,69.1104 17.9425,69.1122 17.9635,69.1094 17.9607,69.0989 17.863,69.0788 17.8244,69.0735 17.5464,69.068 17.4847,69.101 17.3696,69.0725 17.1752,69.0012 17.1579,68.993 17.1368,68.9779 17.1292,68.9688 17.1276,68.9567 17.1457,68.9548 17.1651,68.9556 17.1776,68.9477 17.1689,68.9373 17.1305,68.9273 17.0565,68.9147 17.0091,68.9145 17.0058,68.9181 17.0024,68.932 17.0458,68.9605 17.0926,68.9759 17.0993,68.9837 17.0896,68.99 17.0734,68.992 16.9201,68.979 16.8647,68.9654 16.8531,68.9625 16.7757,68.9607 16.7383,68.9781 16.7317,69.0013 16.7392,69.0105 16.7612,69.0254 16.7783,69.0295 16.7943,69.0296 16.883,69.0339 16.9682,69.0409 17.1045,69.0845 17.128,69.0984 17.1328,69.1075 17.1171,69.1055 17.0867,69.0953 17.0753,69.0927 17.0492,69.0893 17.0337,69.0889 16.9962,69.092 16.9042,69.1054 16.8396,69.1323 16.8396,69.1323 24,5.0,Russia 66.8884,69.4076 66.8948,69.4153 66.9192,69.4334 66.961,69.4616 66.989,69.4761 67.0039,69.4812 67.1394,69.503 67.1566,69.5054 67.1757,69.5038 67.193,69.4988 67.2051,69.4836 67.2211,69.4497 67.2208,69.4372 67.2106,69.4203 67.1545,69.3688 67.1406,69.3615 67.1243,69.3575 67.108,69.355 67.0715,69.3549 67.0519,69.3576 66.8945,69.3783 66.8778,69.3918 66.8884,69.4076 66.8884,69.4076 35,-4.0,Canada -67.362,69.4054 -67.4277,69.4168 -67.4398,69.4178 -67.4531,69.4168 -67.4809,69.4107 -67.4964,69.4105 -67.5857,69.4238 -67.6009,69.4285 -67.5888,69.4526 -67.5766,69.4553 -67.5611,69.4547 -67.5404,69.4513 -67.5287,69.4505 -67.5173,69.4523 -67.4321,69.47 -67.4,69.4774 -67.3834,69.4893 -67.3385,69.5002 -67.2793,69.4989 -67.2489,69.4949 -67.2217,69.4883 -67.1723,69.4687 -67.1645,69.4612 -67.1827,69.4429 -67.2056,69.4409 -67.2431,69.4433 -67.3275,69.444 -67.3469,69.4431 -67.3852,69.4395 -67.4033,69.4324 -67.3534,69.4224 -67.3359,69.4103 -67.3469,69.4057 -67.362,69.4054 -67.362,69.4054 47,-6.0,Canada -95.929,69.4561 -95.8954,69.4058 -95.8907,69.3936 -95.8889,69.3782 -95.8915,69.3681 -95.9383,69.2591 -95.9567,69.2584 -96.0269,69.2701 -96.0417,69.2735 -96.0627,69.2815 -96.0814,69.2892 -96.0978,69.2979 -96.1178,69.3106 -96.126,69.32 -96.1408,69.3334 -96.1746,69.3549 -96.1932,69.3635 -96.2227,69.3699 -96.2542,69.3727 -96.2993,69.3748 -96.3165,69.3779 -96.3406,69.3854 -96.4225,69.4223 -96.4455,69.4353 -96.5272,69.4895 -96.5126,69.4926 -96.4826,69.4919 -96.4679,69.4883 -96.4541,69.4797 -96.3547,69.4744 -96.2528,69.4741 -96.1933,69.4729 -96.1653,69.471 -96.1473,69.4651 -96.1366,69.4561 -96.1243,69.4423 -96.1087,69.4364 -96.084,69.4411 -96.0104,69.4567 -95.9993,69.4607 -95.9885,69.4695 -95.9767,69.4774 -95.9618,69.477 -95.9446,69.4737 -95.9278,69.4642 -95.929,69.4561 -95.929,69.4561 26,-6.0,Canada -101.1396,69.4359 -101.0989,69.4215 -101.0485,69.4086 -101.0355,69.4104 -101.0197,69.4092 -101.0093,69.4058 -100.9695,69.3826 -101.0137,69.3111 -101.0233,69.3026 -101.0389,69.2973 -101.0543,69.2918 -101.0254,69.2825 -101.0126,69.279 -101.0009,69.2818 -100.9076,69.3119 -100.7911,69.3608 -100.7885,69.3972 -100.8349,69.4145 -100.8434,69.439 -100.855,69.445 -101.0427,69.4919 -101.0568,69.491 -101.1264,69.4838 -101.1396,69.477 -101.1671,69.4456 -101.1396,69.4359 64,11.0,Russia 161.0791,68.7982 161.0646,68.803 161.0738,68.8162 161.095,68.8368 161.1227,68.8568 161.1285,68.8856 161.1254,68.8989 161.1136,68.9066 161.0552,68.9368 161.0116,68.9507 160.9437,68.9699 160.8764,68.9771 160.8132,68.989 160.7984,68.9936 160.7903,69.0006 160.7869,69.0143 160.7746,69.0746 160.7742,69.0877 160.7825,69.1453 160.7909,69.1774 160.7974,69.1894 160.8124,69.2074 160.8208,69.2304 160.8164,69.2535 160.808,69.2611 160.796,69.2689 160.7589,69.2911 160.7452,69.2965 160.733,69.3045 160.7221,69.3153 160.7156,69.3323 160.7192,69.3452 160.7293,69.3568 160.7495,69.381 160.7613,69.3861 160.9236,69.4406 160.9416,69.4441 160.9992,69.4548 161.0155,69.4559 161.0274,69.446 161.0401,69.4152 161.0416,69.3693 160.9423,69.3262 161.0147,69.2691 160.9794,69.1577 160.9748,69.1487 161.0411,69.0134 161.0623,68.9865 161.0757,68.972 161.0875,68.9642 161.1,68.9575 161.1243,68.9433 161.136,68.9349 161.1526,68.9199 161.171,68.8984 161.1758,68.8783 161.1771,68.8587 161.1739,68.8457 161.1655,68.8269 161.1567,68.8214 161.1366,68.8106 161.0999,68.8014 161.0791,68.7982 161.0791,68.7982 64,3.0,Russia 48.129,68.9951 48.1621,69.0392 48.1624,69.0971 48.1689,69.1336 48.1857,69.1646 48.2141,69.1935 48.2675,69.2327 48.2879,69.2457 48.3099,69.2582 48.3336,69.2692 48.4779,69.3352 48.5031,69.3456 48.5304,69.3543 48.5594,69.3622 48.7276,69.3995 48.8044,69.4126 48.8378,69.4173 48.9036,69.42 49.0135,69.4193 49.138,69.4156 49.1859,69.4099 49.2067,69.4066 49.2412,69.3987 49.2732,69.3898 49.3724,69.3582 49.4639,69.3319 49.5866,69.2975 49.618,69.2887 49.7998,69.2417 49.9967,69.1917 50.0355,69.1775 50.0677,69.1621 50.0862,69.1515 50.2054,69.067 50.2218,69.0355 50.2046,69.0117 50.1549,68.9758 50.0703,68.9224 50.0284,68.9031 50.0064,68.9063 50.0162,68.954 50.0406,68.9745 50.0588,68.9898 50.0752,69.0067 50.117,69.0573 50.0909,69.0639 50.0229,69.0491 49.853,68.9872 49.7613,68.9158 49.6995,68.8634 49.6494,68.8287 49.5911,68.7927 49.5728,68.7847 49.3832,68.7314 49.3389,68.7217 49.0429,68.6791 48.8089,68.6477 48.7168,68.6377 48.6822,68.6347 48.4801,68.6424 48.1165,68.8018 48.1117,68.9713 48.129,68.9951 48.129,68.9951 18,5.0,Russia 66.8565,69.3039 66.847,69.3064 66.8226,69.3178 66.8087,69.3265 66.7976,69.3413 66.7959,69.3572 66.8122,69.3668 66.8277,69.3654 67.0659,69.3362 67.0732,69.3176 67.0148,69.2802 67.0035,69.2743 66.987,69.272 66.9689,69.2718 66.9477,69.277 66.8752,69.296 66.8565,69.3039 66.8565,69.3039 47,-5.0,Canada -76.9474,69.3519 -76.9094,69.3386 -76.8775,69.3278 -76.8412,69.317 -76.8125,69.3104 -76.7851,69.3058 -76.7579,69.3039 -76.7368,69.3051 -76.6388,69.3108 -76.6182,69.3137 -76.5955,69.3197 -76.5827,69.3253 -76.5629,69.3334 -76.5513,69.3325 -76.5408,69.3291 -76.4834,69.2943 -76.4791,69.2848 -76.4831,69.2449 -76.5118,69.2167 -76.5416,69.2143 -76.5541,69.2121 -76.572,69.2071 -76.6346,69.1832 -76.765,69.1264 -76.7779,69.1172 -76.7851,69.1061 -76.7939,69.0536 -76.9531,69.0303 -76.9725,69.0275 -77.0063,69.0284 -77.0481,69.0367 -77.0731,69.0437 -77.0924,69.0511 -77.1204,69.0646 -77.1357,69.075 -77.1546,69.0923 -77.2158,69.1583 -77.2175,69.1777 -77.1915,69.3053 -77.1818,69.312 -77.1217,69.328 -77.0927,69.3352 -77.023,69.3485 -76.9872,69.3547 -76.9636,69.3557 -76.9474,69.3519 -76.9474,69.3519 17,-6.0,Canada -90.0009,69.3273 -89.9846,69.3204 -89.955,69.2834 -89.9632,69.2587 -90.0779,69.1662 -90.0949,69.1602 -90.1357,69.1465 -90.1535,69.1456 -90.1674,69.1492 -90.3136,69.2427 -90.3198,69.2745 -90.3063,69.2831 -90.2969,69.2873 -90.1074,69.3449 -90.0071,69.3526 -90.0009,69.3273 -90.0009,69.3273 20,3.0,Russia 34.1399,69.3133 34.173,69.3065 34.2998,69.2698 34.3312,69.2544 34.3125,69.2479 34.1464,69.2496 34.1215,69.2504 33.9998,69.2566 33.9774,69.2584 33.9194,69.2659 33.9029,69.2733 33.9147,69.2903 33.9266,69.2953 33.954,69.3029 33.9701,69.3059 34.0049,69.3106 34.0437,69.3135 34.0643,69.3145 34.1399,69.3133 34.1399,69.3133 62,-5.0,Canada -78.2897,69.3004 -78.2433,69.29 -78.2275,69.2881 -78.1699,69.2914 -78.1373,69.2883 -78.1228,69.2854 -78.1114,69.2808 -78.1026,69.2746 -78.0439,69.2062 -78.1504,69.149 -78.228,69.1214 -78.3042,69.1021 -78.3859,68.9973 -78.404,68.9845 -78.4339,68.9772 -78.4595,68.9697 -78.5428,68.9233 -78.5493,68.9115 -78.5465,68.8934 -78.5572,68.8802 -78.5671,68.875 -78.6622,68.8246 -78.6723,68.8202 -78.6994,68.812 -78.7662,68.8002 -78.8106,68.7938 -78.8652,68.7888 -78.9267,68.7843 -79.0209,68.7627 -79.0322,68.748 -79.0483,68.7416 -79.0703,68.7391 -79.1183,68.7429 -79.1844,68.7555 -79.1973,68.7591 -79.2208,68.7697 -79.2292,68.7799 -79.2329,68.8349 -79.2102,68.8429 -79.1844,68.8551 -79.1614,68.8695 -79.1373,68.8872 -79.1233,68.9072 -79.1139,68.9241 -79.0694,68.9774 -79.0576,68.9873 -79.0474,68.9923 -78.9769,69.0046 -78.8802,69.0131 -78.8168,69.0109 -78.8054,69.0113 -78.7914,69.0136 -78.6909,69.0542 -78.5801,69.1717 -78.5549,69.2253 -78.5528,69.2452 -78.4378,69.282 -78.4038,69.2886 -78.3211,69.3016 -78.3019,69.3025 -78.2897,69.3004 -78.2897,69.3004 22,-6.0,Canada -90.3813,69.1095 -90.4192,69.1184 -90.5825,69.1831 -90.5836,69.2278 -90.5808,69.2405 -90.5647,69.2582 -90.5457,69.2679 -90.4972,69.282 -90.4784,69.2843 -90.4604,69.2853 -90.4434,69.2845 -90.4131,69.2803 -90.4,69.2756 -90.3876,69.2701 -90.3645,69.2576 -90.3539,69.2504 -90.2775,69.1919 -90.2668,69.1781 -90.2623,69.1373 -90.3184,69.1134 -90.3813,69.1095 -90.3813,69.1095 20,3.0,Russia 59.1224,69.0481 59.0491,69.0771 59.0366,69.0827 58.9942,69.106 58.9747,69.1221 58.9578,69.1368 58.9488,69.1426 58.9188,69.1586 58.8568,69.1778 58.8221,69.1871 58.7374,69.21 58.6432,69.2385 58.6373,69.2471 58.6604,69.2487 58.7474,69.235 58.9083,69.1924 59.07,69.1417 59.1117,69.09 59.1224,69.0481 59.1224,69.0481 42,2.0,Norway 15.4351,68.7856 15.4204,68.7868 15.4072,68.7921 15.3841,68.8104 15.3893,68.8875 15.5314,69.008 15.5799,69.0297 15.5895,69.0333 15.6118,69.0388 15.6571,69.0494 15.703,69.0509 15.7177,69.0519 15.7302,69.0541 15.7442,69.0596 15.755,69.0666 15.7763,69.0904 15.8143,69.133 15.8296,69.1494 15.9405,69.1915 15.9601,69.1984 16.0775,69.2232 16.0918,69.2208 16.1136,69.1972 16.1195,69.1866 16.1206,69.1757 16.051,69.0663 16.0239,69.0502 15.9945,69.0397 15.9829,69.0369 15.9633,69.03 15.9352,69.0188 15.9104,69.0061 15.8381,68.9616 15.8398,68.9505 15.8341,68.9393 15.8205,68.9337 15.7019,68.91 15.6778,68.9056 15.6048,68.8929 15.4895,68.8175 15.4351,68.7856 15.4351,68.7856 18,-6.0,Canada -101.4955,69.0709 -101.4781,69.0029 -101.4599,68.9938 -101.4467,68.9945 -101.4339,68.9965 -101.3423,69.0136 -101.2802,69.0684 -101.2789,69.0789 -101.3025,69.1085 -101.3175,69.1202 -101.3408,69.1273 -101.3839,69.1265 -101.4402,69.1244 -101.4666,69.1216 -101.4816,69.1151 -101.4955,69.1031 -101.5002,69.0893 -101.4955,69.0709 19,-6.0,Canada -100.0438,68.9404 -100.0228,68.92 -99.9885,68.8904 -99.9677,68.8801 -99.948,68.8726 -99.9065,68.8622 -99.8246,68.8526 -99.8079,68.8511 -99.7898,68.8529 -99.7634,68.915 -99.7655,68.925 -99.8169,69.0034 -99.8391,69.0134 -99.8813,69.0284 -99.9154,69.0413 -99.9989,69.0082 -100.0202,68.9955 -100.0442,68.953 -100.0438,68.9404 29,5.0,Russia 65.8133,69.007 65.824,69.0135 65.8408,69.0149 65.8767,69.0151 65.9337,69.0105 65.9714,69.007 66.0105,69.0026 66.0305,68.999 66.0923,68.9855 66.1619,68.9654 66.1902,68.9548 66.2597,68.928 66.3745,68.879 66.3886,68.8702 66.3961,68.8581 66.3839,68.8515 66.3663,68.8566 66.2597,68.8921 66.2493,68.8975 66.1274,68.9458 66.0153,68.9821 65.9946,68.9873 65.9199,68.9918 65.9024,68.9914 65.8639,68.995 65.8447,68.9973 65.8252,68.9997 65.8133,69.007 65.8133,69.007 12,2.0,Norway 17.336,68.8959 17.3195,68.9049 17.3159,68.9355 17.3235,68.9471 17.352,68.9674 17.3773,68.9845 17.5251,69.0036 17.4889,68.961 17.4058,68.9197 17.3797,68.9072 17.336,68.8959 17.336,68.8959 1199,2.0,Norway 24.1185,65.7312 24.1002,65.7209 24.0652,65.7171 24.0326,65.7236 23.9979,65.7248 23.9381,65.71 23.9051,65.6976 23.8833,65.6779 23.7256,65.7127 23.6063,65.7237 23.4709,65.7182 23.3875,65.6779 23.3474,65.6849 23.2032,65.7182 23.1877,65.681 23.0901,65.6309 23.0309,65.6184 22.9542,65.6702 22.7808,65.739 22.7446,65.7736 22.6775,65.8035 22.63,65.8193 22.5969,65.8159 22.6306,65.7928 22.659,65.7247 22.6338,65.6779 22.6087,65.6765 22.5631,65.7142 22.4341,65.7685 22.4062,65.7735 22.3734,65.7769 22.3231,65.7763 22.2843,65.747 22.2132,65.6088 22.2045,65.5502 22.2413,65.5451 22.2704,65.5474 22.2462,65.5825 22.2785,65.5768 22.3407,65.5465 22.3776,65.4645 22.3552,65.4545 22.328,65.4679 22.1972,65.4949 22.162,65.4964 22.0355,65.525 21.8075,65.5897 21.7804,65.617 21.7221,65.6298 21.7844,65.5829 21.8043,65.5739 21.9785,65.5159 22.0136,65.5068 22.0767,65.499 22.1501,65.4601 22.1197,65.451 22.0099,65.4354 21.95,65.4324 21.8653,65.4445 21.8457,65.4525 21.8133,65.448 21.8572,65.4146 21.8763,65.405 21.8958,65.4034 21.883,65.4262 21.9353,65.4076 21.9868,65.3778 21.9702,65.3444 21.8855,65.316 21.6326,65.3094 21.6116,65.3102 21.5887,65.3153 21.5599,65.3322 21.5016,65.3262 21.4285,65.3021 21.4589,65.2682 21.4958,65.2451 21.5411,65.2388 21.5739,65.243 21.6558,65.202 21.6163,65.1641 21.5451,65.1533 21.5153,65.1526 21.4967,65.172 21.4509,65.205 21.4239,65.2304 21.2862,65.2884 21.2224,65.2567 21.2866,65.2411 21.3746,65.2244 21.4625,65.1669 21.5107,65.1335 21.5764,65.0699 21.535,64.9788 21.491,64.9775 21.4433,64.9785 21.4291,64.9591 21.424,64.9263 21.3311,64.8949 21.2584,64.8736 21.2073,64.868 21.1641,64.8085 21.1668,64.7819 21.141,64.7495 21.0854,64.7382 21.054,64.7466 21.0337,64.7727 21.0007,64.7644 20.9979,64.7435 21.0523,64.7028 21.0881,64.6953 21.1176,64.6951 21.1803,64.702 21.2162,64.6973 21.2614,64.6815 21.2552,64.5829 21.2312,64.5883 21.197,64.6051 21.111,64.6433 21.0871,64.6449 21.0628,64.6396 21.0773,64.6042 21.2292,64.5353 21.3224,64.5189 21.4228,64.4955 21.5115,64.4525 21.5424,64.3598 21.4156,64.2813 21.3484,64.2557 21.2759,64.2289 21.2305,64.2174 21.2057,64.2276 20.9223,64.0636 20.864,63.9705 20.8545,63.9236 20.7532,63.8074 20.7332,63.7883 20.6881,63.7691 20.598,63.7345 20.4946,63.7204 20.4621,63.742 20.4077,63.6798 20.3757,63.6159 20.341,63.5954 20.2767,63.5815 20.259,63.568 20.224,63.5873 20.0607,63.5775 19.9727,63.5572 19.8574,63.5293 19.7364,63.4551 19.7146,63.4276 19.7373,63.3817 19.6666,63.3538 19.6372,63.3526 19.6002,63.3664 19.6031,63.3889 19.5781,63.4166 19.4634,63.4713 19.4289,63.4817 19.3878,63.468 19.4355,63.3749 19.4092,63.3623 19.3211,63.3569 19.2779,63.3731 19.2715,63.3856 19.2512,63.3793 19.2388,63.3362 19.1931,63.2494 19.1118,63.2347 19.0102,63.1636 19.0174,63.1396 19.0482,63.1366 19.0723,63.1332 19.0253,63.0994 19.005,63.0977 18.9291,63.1436 18.8597,63.1955 18.7699,63.1695 18.8106,63.1563 18.8472,63.1494 18.8747,63.1307 18.8608,63.1141 18.7435,63.0848 18.7196,63.109 18.7484,63.1207 18.6932,63.1285 18.7008,63.0924 18.611,63.0629 18.5309,63.0399 18.3466,62.9744 18.2534,62.9199 18.311,62.9109 18.3315,62.9142 18.3606,62.9158 18.4964,62.9078 18.521,62.9031 18.5389,62.8844 18.4344,62.7832 18.1685,62.7003 18.0908,62.689 18.0476,62.7043 18.0691,62.7271 18.1,62.7319 18.0381,62.7597 18.0023,62.762 17.9457,62.7413 17.8927,62.7653 17.8326,62.8486 17.8086,62.885 17.7896,62.9174 17.6663,62.9154 17.6962,62.8954 17.7277,62.8813 17.7592,62.8731 17.8001,62.856 17.8473,62.8064 17.9597,62.6537 17.9696,62.6222 17.9591,62.5782 17.937,62.5797 17.917,62.5931 17.8444,62.5858 17.9315,62.5575 18.005,62.5483 18.0115,62.5184 17.9434,62.4786 17.8048,62.409 17.7842,62.4061 17.7475,62.4246 17.6892,62.4222 17.6551,62.4156 17.6243,62.3916 17.6397,62.3677 17.5785,62.3583 17.5211,62.3669 17.4997,62.3778 17.4754,62.405 17.4409,62.43 17.3961,62.4571 17.3716,62.4596 17.2973,62.4111 17.3262,62.284 17.3405,62.2504 17.4317,62.1896 17.4687,62.1824 17.5182,62.174 17.5432,62.1711 17.5897,62.1632 17.6147,62.1555 17.5659,62.1336 17.5127,62.1265 17.5286,62.1547 17.5038,62.1548 17.4809,62.1539 17.4752,62.1265 17.4497,62.0493 17.4301,61.9307 17.4068,61.9161 17.3716,61.9142 17.3175,61.8678 17.3033,61.7428 17.3524,61.6814 17.407,61.6519 17.4432,61.6562 17.4637,61.6509 17.4901,61.6236 17.4615,61.5594 17.4117,61.5537 17.3888,61.5671 17.3549,61.6144 17.3279,61.6282 17.2998,61.6381 17.1942,61.6474 17.1158,61.642 17.1564,61.6303 17.181,61.6292 17.2314,61.6102 17.1527,61.5597 17.1319,61.5568 17.1044,61.5621 17.066,61.5277 17.0849,61.4807 17.1326,61.4447 17.1869,61.36 17.1211,61.3534 17.0725,61.3251 17.1121,61.283 17.1762,61.2525 17.1708,61.2045 17.1486,61.1158 17.1301,60.9727 17.12,60.8687 17.1692,60.8429 17.2102,60.8198 17.2433,60.7692 17.2509,60.698 17.2527,60.6583 17.2427,60.6025 17.3269,60.5671 17.3441,60.5455 17.3691,60.5568 17.4876,60.5694 17.5223,60.57 17.5453,60.5664 17.5761,60.5587 17.6027,60.5451 17.6174,60.5275 17.5726,60.5076 17.5755,60.4803 17.5989,60.447 17.6248,60.4323 17.6544,60.4243 17.7,60.4253 17.6949,60.4633 17.7394,60.4979 17.8089,60.5165 17.8521,60.5239 17.9032,60.5246 17.9272,60.5187 17.9593,60.4855 18.066,60.38 18.18,60.2701 18.2052,60.2561 18.2357,60.2725 18.2795,60.2811 18.4032,60.2671 18.4313,60.2266 18.5392,60.177 18.5646,60.1627 18.5219,60.1518 18.4963,60.1542 18.4361,60.1624 18.4061,60.1702 18.3468,60.1979 18.3198,60.2178 18.2828,60.2351 18.3614,60.1354 18.3872,60.1145 18.4727,60.0801 18.4968,60.0804 18.5977,60.0725 18.6764,60.0555 18.7415,60.0384 18.7811,60.024 18.782,60.0028 18.8544,59.8859 18.8719,59.8659 18.8942,59.8526 18.9215,59.8484 18.9715,59.8408 19.0098,59.827 19.0346,59.8177 19.0296,59.7604 18.9974,59.7567 18.9338,59.7937 18.9005,59.7981 18.8293,59.7261 18.8994,59.7119 18.9333,59.7117 19.0439,59.6955 19.037,59.6665 18.9965,59.6483 18.9501,59.6449 18.918,59.6481 18.8061,59.6407 18.7106,59.6175 18.6824,59.5998 18.6648,59.5723 18.7018,59.5703 18.6315,59.5198 18.6107,59.5091 18.3393,59.3955 18.2832,59.4022 18.2411,59.4043 18.2254,59.375 18.2524,59.3412 18.2943,59.3269 18.1317,59.3396 18.158,59.3534 18.1614,59.379 18.0864,59.3824 18.0534,59.3634 18.0237,59.3202 18.0552,59.296 18.0576,59.2635 17.974,59.2739 17.8988,59.2653 17.8644,59.2728 17.8261,59.2851 17.7997,59.294 17.7758,59.3033 17.7499,59.3179 17.7267,59.3437 17.7514,59.422 17.7758,59.4467 17.8104,59.4593 17.7843,59.5151 17.7188,59.567 17.6898,59.5888 17.685,59.5511 17.6095,59.5659 17.5709,59.5791 17.5646,59.5868 17.5952,59.5904 17.6122,59.5944 17.6203,59.6106 17.6212,59.6463 17.5966,59.7145 17.5583,59.7311 17.5481,59.7061 17.5055,59.6766 17.4811,59.6732 17.4155,59.664 17.412,59.6043 17.4911,59.507 17.5105,59.5015 17.4888,59.5398 17.4817,59.5749 17.4776,59.6251 17.5048,59.6605 17.5558,59.6651 17.5797,59.6605 17.5832,59.6238 17.5284,59.5968 17.5568,59.5678 17.6612,59.5359 17.7092,59.5189 17.7291,59.5051 17.7528,59.4613 17.6984,59.3735 17.5151,59.4188 17.4899,59.4359 17.5132,59.4654 17.4625,59.4697 17.4101,59.4871 17.3406,59.5402 17.3502,59.5806 17.3164,59.5428 17.3386,59.5117 17.3731,59.478 17.3866,59.4169 17.3722,59.3978 17.2931,59.4165 17.2264,59.435 17.1531,59.467 17.0853,59.4764 17.0332,59.4702 16.9935,59.4654 16.9133,59.4733 16.8336,59.5134 16.7952,59.5137 16.7556,59.4875 16.6287,59.4788 16.5886,59.5118 16.5277,59.5384 16.5071,59.5367 16.4682,59.5213 16.4908,59.5001 16.512,59.4828 16.4503,59.4284 16.2996,59.3965 16.1434,59.3937 16.0667,59.401 16.0364,59.4111 16.0028,59.4187 16.0417,59.3842 16.0773,59.3743 16.145,59.3683 16.246,59.3726 16.2788,59.3796 16.3048,59.3819 16.6337,59.4022 16.6582,59.3923 16.719,59.353 16.7809,59.3167 16.8465,59.3108 16.8599,59.3267 16.8232,59.3358 16.7693,59.3541 16.6955,59.3824 16.6643,59.399 16.8052,59.4183 16.8662,59.3963 16.901,59.3767 16.9262,59.3539 17.0799,59.3032 17.1427,59.302 17.2486,59.2856 17.2765,59.2755 17.2688,59.2517 17.2317,59.2196 17.221,59.1932 17.255,59.1882 17.2599,59.1862 17.3383,59.1771 17.3596,59.1812 17.3395,59.1999 17.3246,59.221 17.3209,59.2505 17.3809,59.2411 17.4103,59.2336 17.4386,59.2252 17.5534,59.2113 17.7073,59.1984 17.8142,59.1935 17.8747,59.2262 17.9107,59.2474 17.9499,59.2611 17.9882,59.2499 18.0191,59.2454 18.0413,59.2456 18.1,59.2468 18.1733,59.2582 18.2127,59.2797 18.2446,59.2951 18.3146,59.3023 18.3639,59.2966 18.4051,59.2761 18.4203,59.2599 18.4402,59.2664 18.4341,59.2943 18.4161,59.3229 18.3961,59.3567 18.443,59.3638 18.4638,59.3593 18.492,59.348 18.5756,59.2987 18.6084,59.2506 18.5586,59.2306 18.4877,59.2248 18.3489,59.2312 18.3126,59.2362 18.2965,59.2518 18.2431,59.2399 18.2355,59.1974 18.2761,59.1486 18.2777,59.0615 18.1922,59.0468 18.1068,59.0202 17.9883,58.9714 17.8608,58.8344 17.8588,58.8037 17.8616,58.7886 17.7566,58.8725 17.724,58.9478 17.7359,59.0258 17.7317,59.0499 17.6335,59.0963 17.5915,59.0037 17.5836,58.9583 17.581,58.9041 17.546,58.88 17.5588,58.873 17.5967,58.8398 17.5489,58.777 17.3181,58.6821 17.2395,58.6669 17.1921,58.6604 17.125,58.6624 17.057,58.6927 17.0007,58.6775 17.0508,58.6527 17.1087,58.6267 17.0031,58.5673 16.8762,58.5467 16.7589,58.5537 16.7056,58.5588 16.6471,58.5668 16.4314,58.5853 16.4063,58.5875 16.3828,58.5888 16.2683,58.593 16.2083,58.5936 16.164,58.5573 16.2634,58.5436 16.3405,58.5354 16.3817,58.5431 16.4045,58.5694 16.619,58.5504 16.6883,58.5336 16.7468,58.5115 16.9027,58.4185 16.7958,58.3728 16.7157,58.3594 16.5701,58.3772 16.5431,58.3824 16.5105,58.3917 16.4754,58.4028 16.4456,58.4099 16.3929,58.4081 16.5429,58.3661 16.6625,58.3392 16.7395,58.2974 16.7584,58.2527 16.7943,58.1302 16.7954,58.1071 16.7723,58.0692 16.7339,58.056 16.7123,58.0169 16.7013,57.9802 16.7168,57.942 16.6092,57.9184 16.5903,57.9181 16.6254,57.9087 16.6418,57.9111 16.7053,57.8961 16.7122,57.8811 16.7459,57.8512 16.7334,57.8124 16.7068,57.8037 16.6292,57.8142 16.5879,57.8224 16.5736,57.8588 16.4763,57.9227 16.4925,57.8088 16.5344,57.7852 16.6553,57.691 16.6652,57.6728 16.5864,57.7077 16.5667,57.7299 16.528,57.7542 16.3896,57.82 16.4384,57.7771 16.5698,57.7012 16.6305,57.6723 16.6671,57.6491 16.6812,57.6339 16.5958,57.5512 16.6026,57.4836 16.6613,57.4106 16.6358,57.3404 16.6071,57.3348 16.6001,57.3103 16.571,57.3093 16.5228,57.3132 16.4427,57.2222 16.4364,57.2024 16.4261,57.135 16.4314,57.103 16.4843,57.0496 16.5054,57.0505 16.5338,57.0261 16.5551,56.9789 16.4677,56.9702 16.4254,56.8879 16.4115,56.8266 16.3974,56.7761 16.3787,56.7281 16.346,56.6535 16.2756,56.5895 16.2527,56.5908 16.225,56.579 16.1877,56.54 16.0924,56.3888 16.0759,56.3587 16.0622,56.3284 16.0268,56.2469 16.0154,56.2024 15.9757,56.1465 15.8378,56.0258 15.761,56.0458 15.7484,56.0816 15.6314,56.1123 15.571,56.1281 15.3486,56.0719 15.1994,56.0847 15.0625,56.0935 14.8221,56.095 14.6915,56.0952 14.6672,56.0919 14.6569,56.0568 14.6869,56.0347 14.7253,55.9934 14.7416,55.9672 14.7127,55.9445 14.6943,55.9343 14.6099,55.9415 14.5952,55.9632 14.5781,55.9857 14.5297,55.9901 14.5162,55.9848 14.4864,55.9715 14.3443,55.8929 14.3053,55.8709 14.2387,55.8202 14.2141,55.7935 14.1925,55.7644 14.1802,55.7386 14.1703,55.7073 14.1681,55.6629 14.1859,55.6353 14.2524,55.5817 14.3168,55.5132 14.3411,55.4772 14.3122,55.4356 14.288,55.4213 14.169,55.3209 14.1386,55.315 14.0983,55.3141 14.0349,55.3208 14.0135,55.3241 13.9807,55.3406 13.9453,55.3558 13.9118,55.3659 13.8879,55.3687 13.8675,55.3685 13.7069,55.3602 13.6867,55.3588 13.6134,55.3513 13.4745,55.3168 13.4427,55.3084 13.4012,55.2894 13.3525,55.2747 13.3219,55.274 13.2725,55.2762 12.96,55.3353 12.8944,55.4805 12.8989,55.5069 12.9378,55.5255 12.9596,55.5336 13.0162,55.5612 13.0385,55.6149 12.9055,55.7573 12.8904,55.772 12.6593,55.9958 12.6415,56.0123 12.5986,56.0418 12.5593,56.0753 12.4382,56.23 12.6151,56.1895 12.6966,56.1564 12.7769,56.1595 12.808,56.1868 12.7119,56.2901 12.6478,56.3134 12.6105,56.3254 12.602,56.3517 12.6122,56.3722 12.6541,56.3981 12.7092,56.4001 12.772,56.3811 12.8101,56.3731 12.8301,56.3733 12.8499,56.3755 12.8609,56.3794 12.8784,56.3906 12.8918,56.4059 12.9077,56.4343 12.9122,56.4693 12.8945,56.5118 12.8577,56.576 12.795,56.5902 12.7624,56.5765 12.7355,56.5731 12.6994,56.5745 12.6485,56.6091 12.5915,56.6795 12.5772,56.7164 12.5758,56.7429 12.5544,56.7646 12.4543,56.8174 12.3959,56.8297 12.3269,56.8494 12.3281,56.9025 12.2642,56.9648 12.2238,56.9862 12.1264,57.1181 12.0885,57.1821 12.1208,57.2119 12.1242,57.241 12.0732,57.3588 12.0262,57.389 11.9882,57.3574 11.9647,57.277 11.9213,57.3081 11.8966,57.3341 11.8816,57.3559 11.8852,57.4466 11.8896,57.4582 11.8933,57.4633 11.9009,57.4955 11.8863,57.5489 11.8411,57.5394 11.8086,57.5929 11.8471,57.6119 11.8665,57.6254 11.7249,57.6202 11.6807,57.6312 11.7021,57.7385 11.647,57.7768 11.6781,57.8167 11.728,57.8256 11.7744,57.9371 11.7772,57.9699 11.7555,57.9839 11.7555,57.9904 11.7749,58.0262 11.8159,58.0854 11.8588,58.1328 11.7766,58.2488 11.7079,58.2591 11.6016,58.2067 11.5799,58.1897 11.5078,58.1612 11.4745,58.1665 11.3848,58.1916 11.3635,58.2423 11.2178,58.2773 11.1809,58.3297 11.215,58.4352 11.2351,58.4842 11.2458,58.5093 11.2395,58.5649 11.2292,58.585 11.1897,58.6095 11.1591,58.6415 11.1589,58.6692 11.1803,58.6998 11.2085,58.724 11.2114,58.7687 11.1737,58.8469 11.146,58.854 11.0991,58.8707 11.0928,58.9331 11.1028,58.9505 11.1489,58.9958 11.1748,59.0064 11.2448,59.023 11.2991,59.0293 11.3234,59.0176 11.3525,58.98 11.3805,58.9421 11.4021,58.9172 11.4082,58.917 11.4025,58.8488 11.4102,58.8205 11.436,58.8133 11.4755,58.8142 11.5647,58.8262 11.5785,58.8287 11.6027,58.8363 11.7302,59.0243 11.7203,59.0492 11.7311,59.1103 11.7401,59.1355 11.7477,59.1466 11.771,59.167 11.7762,59.1954 11.7688,59.2322 11.7613,59.2535 11.7174,59.3583 11.6454,59.522 11.7427,59.5664 11.7961,59.5771 11.877,59.6281 11.8809,59.6576 11.8768,59.7006 11.8743,59.7129 11.8599,59.7306 11.7939,59.774 11.8305,59.7895 11.8536,59.7982 11.9432,59.8249 11.9806,59.8176 12.0116,59.8142 12.0847,59.8137 12.1121,59.8156 12.1402,59.8248 12.1693,59.8382 12.2938,59.9004 12.4463,59.9976 12.4713,60.0405 12.4794,60.0721 12.4842,60.1013 12.4827,60.1293 12.5091,60.2659 12.5482,60.305 12.566,60.3261 12.5763,60.3609 12.5835,60.3951 12.5672,60.4485 12.4824,60.5566 12.4015,60.6366 12.3591,60.6818 12.3415,60.7058 12.3291,60.7284 12.3128,60.7619 12.2855,60.8135 12.2485,60.8723 12.2164,60.9031 12.1929,60.9248 12.2246,60.9447 12.2708,60.9555 12.3647,60.9763 12.3841,60.9798 12.4089,60.9804 12.4343,60.9797 12.4764,60.9769 12.5435,60.9739 12.5784,60.9758 12.5981,60.9789 12.6139,60.9833 12.6462,61.0136 12.7478,61.1263 12.7724,61.1707 12.8065,61.2375 12.8315,61.2879 12.7497,61.3402 12.5027,61.4916 12.4511,61.4945 12.4136,61.494 12.376,61.5018 12.1212,61.6421 12.1012,61.6535 12.1363,61.7691 12.1467,61.8033 12.1581,61.837 12.1767,61.8877 12.1914,61.9303 12.2351,62.0665 12.2709,62.1822 12.2701,62.1909 12.2478,62.2317 12.2329,62.251 12.2217,62.2618 12.1813,62.321 12.1547,62.3544 12.1259,62.3838 12.0613,62.4526 12.0244,62.5134 12.0232,62.5883 12.0493,62.639 12.0661,62.6724 12.0431,62.7259 12.0271,62.7616 12.0055,62.8153 12.0348,62.8414 12.0898,62.8898 12.1275,62.922 12.1451,62.9385 12.1204,62.9677 12.0135,63.0964 12.0039,63.1047 11.9133,63.1946 11.9754,63.2459 12.0546,63.3102 12.1134,63.3585 12.1713,63.4072 12.1547,63.4338 12.1231,63.5111 12.3225,63.6504 12.4487,63.7546 12.5063,63.7939 12.609,63.864 12.6572,63.8882 12.7694,63.9281 12.8216,63.9463 12.9125,63.9742 12.963,63.9853 13.0068,63.9919 13.1099,64.0045 13.1677,64.0108 13.204,64.0138 13.2652,64.0074 13.9574,63.9364 14.1227,64.1004 14.1225,64.2595 14.0884,64.3909 14.0049,64.4083 13.8736,64.4275 13.7931,64.4496 13.6411,64.5002 13.6499,64.5275 13.6751,64.5545 13.6986,64.5723 13.8054,64.6532 13.8519,64.6909 13.9282,64.755 14.0633,64.8683 14.2071,64.9679 14.2679,65.0207 14.2806,65.034 14.291,65.0485 14.3005,65.0682 14.3275,65.1271 14.3404,65.1651 14.4643,65.2321 14.4651,65.2858 14.4665,65.3646 14.4681,65.4339 14.4716,65.5037 14.5055,65.6186 14.5362,65.6537 14.5587,65.6744 14.5745,65.6907 14.5921,65.7146 14.6038,65.739 14.5794,65.7936 14.5508,65.8483 14.5401,65.8666 14.5085,65.9335 14.49,65.9957 14.4779,66.0404 14.6881,66.0573 14.9511,66.066 14.995,66.0668 15.4367,66.2002 15.4154,66.2376 15.3693,66.3231 15.3403,66.3779 15.3314,66.396 15.4962,66.4741 15.5942,66.5217 15.6989,66.6007 15.9773,66.806 16.3205,66.933 16.3686,67.0852 16.3279,67.1523 16.3039,67.1753 16.2285,67.22 16.1791,67.2482 16.1284,67.2702 16.1052,67.282 16.0745,67.3001 16.0549,67.3196 16.1657,67.4148 16.3485,67.4297 16.3693,67.444 16.4741,67.5232 16.5393,67.5751 16.5535,67.5961 16.5858,67.6458 16.6499,67.7457 16.6923,67.8126 17.1524,67.9433 17.1986,67.9752 17.2164,67.9875 17.2373,68.0036 17.5558,67.943 17.612,67.9272 17.6434,67.9175 17.7064,67.8979 17.7649,67.8776 17.7884,67.8686 17.8208,67.862 17.847,67.8587 17.9023,67.9109 18.0978,68.0631 18.1173,68.0789 18.0658,68.1936 18.0478,68.2305 18.0314,68.2669 18.0116,68.3126 18.02,68.3525 18.0481,68.4117 18.0615,68.4213 18.1111,68.4276 18.3194,68.4511 18.5728,68.3876 18.9121,68.4 19.3724,68.3319 19.5028,68.3123 19.6759,68.2852 19.8188,68.2626 19.8567,68.2539 19.8889,68.2498 19.9106,68.2552 19.9286,68.2681 19.9647,68.2934 19.9969,68.3116 20.0337,68.3269 20.1292,68.3582 20.1618,68.3832 20.0458,68.414 19.9142,68.4559 20.0206,68.4952 20.1346,68.5589 20.1599,68.5743 20.1954,68.6032 20.2707,68.6663 20.3073,68.6982 20.2717,68.8399 20.196,68.8798 20.054,68.9533 20.4915,68.9674 20.537,68.9715 20.5601,68.9642 20.6059,68.9551 20.7001,68.9421 20.7474,68.9347 20.802,68.9233 20.831,68.9125 20.8642,68.8969 20.8862,68.882 20.8864,68.8606 20.8417,68.8295 20.8564,68.8036 20.9077,68.7921 20.9463,68.7911 20.9799,68.7891 21.014,68.7849 21.0368,68.7782 21.1671,68.7295 21.3752,68.6359 21.4083,68.5987 21.4486,68.5819 21.5049,68.5737 21.5477,68.5694 21.5773,68.5615 21.5969,68.5543 21.6606,68.5269 21.681,68.4995 21.7194,68.4877 21.7708,68.4824 21.8184,68.4857 21.8431,68.4833 21.8877,68.4675 21.9131,68.4562 21.9543,68.4336 21.9825,68.4147 22.0021,68.3937 22.1124,68.3773 22.3249,68.3759 22.3834,68.3639 22.4528,68.3524 22.5341,68.3397 22.6192,68.3339 22.7786,68.2985 22.8157,68.2699 22.857,68.2425 22.8884,68.2349 22.921,68.2304 23.007,68.2037 23.3045,67.9966 23.3232,67.9731 23.3456,67.9555 23.4824,67.9058 23.5892,67.8712 23.6105,67.8593 23.6063,67.8346 23.5528,67.8097 23.4966,67.8035 23.4622,67.7972 23.4399,67.7843 23.4217,67.7332 23.4426,67.6264 23.459,67.5794 23.4235,67.4703 23.3823,67.3938 23.3997,67.3666 23.4207,67.3572 23.4454,67.3516 23.4712,67.3575 23.4942,67.3668 23.5334,67.3644 23.686,67.3403 23.716,67.3312 23.7312,67.2409 23.6941,67.201 23.6591,67.1926 23.6342,67.1902 23.5816,67.182 23.5612,67.1758 23.5419,67.1553 23.5249,67.0718 23.6326,66.9625 23.6826,66.9236 23.7023,66.911 23.7391,66.8966 23.8182,66.8464 23.8918,66.7951 23.9519,66.7177 23.8935,66.7034 23.8435,66.6603 23.8521,66.628 23.8542,66.596 23.8409,66.4916 23.8255,66.4714 23.7784,66.4598 23.7589,66.4536 23.6769,66.4167 23.6079,66.3734 23.5918,66.3495 23.6144,66.2288 23.6368,66.18 23.6782,66.1148 23.7068,66.1017 23.7663,66.0847 23.8079,66.0769 23.8381,66.0735 23.8706,66.061 23.887,66.0454 23.9003,66.0182 23.9193,65.9894 23.9828,65.9371 24.1154,65.7499 24.1185,65.7312 24.1185,65.7312 38,-6.0,Canada -100.4118,68.676 -100.3994,68.6698 -100.2103,68.6219 -100.194,68.6198 -100.1539,68.6222 -100.1444,68.627 -100.1034,68.674 -100.0955,68.6804 -100.0858,68.685 -100.0725,68.686 -100.0562,68.6839 -100.0414,68.6808 -100.0079,68.6763 -99.9608,68.7088 -99.9152,68.8191 -99.9301,68.8249 -99.9466,68.8268 -99.9899,68.8269 -100.0032,68.8284 -100.0154,68.8317 -100.0251,68.8356 -100.0987,68.8773 -100.1151,68.8882 -100.116,68.8984 -100.1096,68.9073 -100.1142,68.9135 -100.1231,68.9198 -100.1367,68.9258 -100.1666,68.9321 -100.2016,68.9377 -100.2831,68.946 -100.3142,68.9478 -100.3288,68.948 -100.3463,68.9369 -100.3852,68.9118 -100.4113,68.8239 -100.419,68.6876 -100.4118,68.676 13,-6.0,Canada -89.7234,68.8247 -89.7608,68.8378 -89.7866,68.8454 -89.808,68.849 -89.84,68.8543 -89.8834,68.8595 -89.8783,68.8933 -89.7541,68.9215 -89.7416,68.923 -89.7219,68.9171 -89.7159,68.8316 -89.7234,68.8247 -89.7234,68.8247 87,2.0,Norway 14.4704,68.514 14.4182,68.516 14.4025,68.5212 14.3878,68.5321 14.3525,68.5692 14.3431,68.5987 14.412,68.6774 14.4531,68.698 14.4891,68.7129 14.4986,68.7167 14.6019,68.7378 14.6143,68.7398 14.6316,68.7391 14.6484,68.7346 14.6585,68.7167 14.8552,68.666 14.8746,68.6682 14.9074,68.6997 14.9152,68.7112 14.9185,68.7208 14.9121,68.7308 14.8763,68.7513 14.9106,68.7685 14.9198,68.7722 15.0191,68.7618 15.0351,68.7599 15.0569,68.7533 15.0743,68.7459 15.0875,68.7336 15.1014,68.7245 15.1196,68.7265 15.1227,68.7376 15.1104,68.7521 15.0468,68.8036 14.9991,68.8364 14.9823,68.8499 14.9731,68.8656 14.9798,68.8823 14.9898,68.8936 15.0032,68.9044 15.0128,68.9077 15.0557,68.9192 15.1,68.9225 15.1122,68.9196 15.1337,68.9017 15.138,68.8879 15.1743,68.8109 15.2603,68.7909 15.3466,68.7587 15.3705,68.6196 15.3698,68.6078 15.365,68.592 15.353,68.5815 15.3296,68.5722 15.2901,68.559 15.0383,68.4873 15.0274,68.4845 15.0122,68.4841 14.87,68.4935 14.8329,68.4958 14.819,68.4984 14.7728,68.5274 14.7869,68.5479 14.8246,68.5577 14.8856,68.5684 15.0264,68.5927 15.1116,68.6059 15.1291,68.6094 15.1178,68.661 15.1039,68.6634 15.0274,68.6713 14.9774,68.6756 14.9648,68.6735 14.9746,68.6702 15.0148,68.6627 15.0333,68.6516 15.0075,68.6301 14.9647,68.6103 14.8753,68.5892 14.8625,68.5871 14.7913,68.5789 14.7128,68.571 14.7009,68.5737 14.6325,68.5785 14.5189,68.531 14.4704,68.514 14.4704,68.514 21,2.0,Norway 16.4864,68.7911 16.473,68.7913 16.4568,68.7935 16.3839,68.805 16.3415,68.818 16.233,68.8707 16.2285,68.8814 16.2497,68.8959 16.2638,68.9014 16.2781,68.9025 16.2954,68.9022 16.5134,68.8789 16.5277,68.8764 16.5374,68.8728 16.5628,68.8591 16.572,68.8467 16.554,68.8015 16.5277,68.7947 16.5021,68.791 16.4864,68.7911 16.4864,68.7911 662,12.0,Russia -179.0049,65.5658 -178.9665,65.5437 -178.961,65.4481 -179.0543,65.4048 -179.1781,65.3467 -179.1889,65.3269 -179.192,65.2819 -179.2098,65.1838 -179.2308,65.1665 -179.2798,65.138 -179.3019,65.1208 -179.3244,65.097 -179.3422,65.0825 -179.3771,65.0693 -179.411,65.0691 -179.4488,65.0655 -179.4701,65.06 -179.5607,65.027 -179.641,64.9879 -179.6354,65.9856 -179.6289,66.9838 -179.6223,67.9818 -179.6156,68.8913 -179.5744,68.8747 -179.3759,68.8281 -179.2436,68.8177 -179.2232,68.8174 -179.2011,68.8185 -179.1464,68.8264 -179.157,68.8622 -179.1244,68.8672 -179.0808,68.8449 -179.0391,68.8046 -179.0292,68.7563 -179.0095,68.7346 -178.9429,68.7199 -178.7982,68.7174 -178.6724,68.7 -178.5433,68.68 -178.4928,68.6619 -178.4087,68.6287 -178.1545,68.5182 -178.1125,68.4966 -178.1513,68.4992 -178.1882,68.5073 -178.2135,68.5217 -178.2472,68.5375 -178.3367,68.5678 -178.3631,68.5578 -178.3802,68.4865 -178.3624,68.4551 -178.2164,68.4292 -178.1838,68.4242 -178.0307,68.4066 -177.8314,68.3718 -177.6795,68.3416 -177.6599,68.3358 -177.6431,68.3222 -177.5887,68.2405 -177.5762,68.2024 -177.3609,68.2372 -177.3319,68.2493 -177.3531,68.2647 -177.4582,68.2919 -177.4986,68.3033 -177.7371,68.3759 -177.9678,68.4415 -177.9992,68.4626 -177.9135,68.4414 -177.8301,68.4197 -177.7749,68.4047 -177.4655,68.3149 -177.3781,68.2837 -177.2579,68.2372 -177.256,68.2093 -177.3795,68.1698 -177.3067,68.1365 -177.2432,68.1267 -177.1747,68.134 -177.0801,68.1574 -176.9888,68.1625 -176.8769,68.1222 -176.8686,68.0638 -176.7906,68.0407 -176.7337,68.0661 -176.5988,68.0465 -176.3968,67.9895 -176.2921,67.9576 -176.2666,67.9494 -176.1484,67.9137 -175.866,67.8345 -175.7138,67.8007 -175.6651,67.7885 -175.5855,67.7657 -175.2566,67.6686 -175.0985,67.6214 -175.0094,67.5624 -174.9126,67.4706 -174.8907,67.4603 -174.8378,67.45 -174.8278,67.425 -174.8548,67.3628 -174.9183,67.3336 -174.9969,67.2851 -175.0131,67.2573 -174.9689,67.2552 -174.9486,67.2576 -174.8535,67.264 -174.8246,67.265 -174.7746,67.2742 -174.7364,67.2852 -174.6804,67.358 -174.4722,67.3006 -174.4209,67.2226 -174.439,67.2058 -174.4593,67.2158 -174.4753,67.2275 -174.5035,67.2246 -174.5314,67.2046 -174.5945,67.019 -174.5557,66.9071 -174.5328,66.8948 -174.4549,66.8612 -174.406,66.769 -174.3868,66.6811 -174.4041,66.6476 -174.453,66.6674 -174.4753,66.6662 -174.4999,66.6611 -174.6373,66.5878 -174.5741,66.5395 -174.5485,66.5315 -174.4801,66.5259 -174.3947,66.5185 -174.2863,66.502 -174.2566,66.4966 -174.1759,66.4758 -174.1504,66.468 -174.1254,66.4496 -174.0813,66.3781 -174.1123,66.3879 -174.1408,66.3886 -174.1608,66.3707 -174.1395,66.2557 -174.1291,66.2332 -174.1128,66.2197 -174.0712,66.2135 -173.9994,66.2496 -174.0228,66.2777 -173.9665,66.3132 -173.8415,66.3799 -173.7812,66.3961 -173.7306,66.4008 -173.7101,66.4011 -173.6699,66.3959 -173.6366,66.3788 -173.681,66.2542 -173.7196,66.2337 -173.73,66.2093 -173.7341,66.1789 -173.7249,66.152 -173.684,66.1301 -173.6032,66.1946 -173.5858,66.25 -173.4595,66.2704 -173.4286,66.2891 -173.4081,66.3655 -173.5639,66.4317 -173.6499,66.4443 -173.7787,66.4606 -173.8259,66.4652 -173.8713,66.4655 -173.9466,66.4979 -173.9096,66.5146 -173.8092,66.5468 -173.7795,66.5541 -173.7451,66.5597 -173.7178,66.5675 -173.6531,66.5908 -173.6403,66.607 -173.6397,66.6515 -173.6429,66.6885 -173.6662,66.7542 -173.72,66.8552 -173.7461,66.8839 -173.7676,66.9043 -173.9358,66.9739 -173.9654,66.9719 -174.0183,66.9636 -174.1285,66.9484 -174.1487,66.946 -174.179,66.9463 -174.2053,66.9485 -174.2916,66.9753 -174.2642,66.9978 -174.2219,67.0053 -174.1813,67.0095 -174.0726,67.0175 -174.0312,67.0183 -173.8913,67.0167 -173.6968,67.0121 -173.6401,67.0098 -173.5703,67.0026 -173.5137,67.0006 -173.4704,67.0018 -173.4499,67.0039 -173.4073,67.0109 -173.3699,67.0237 -173.3509,67.0464 -173.3187,67.0471 -173.2677,67.0413 -173.0622,67.0026 -172.9089,66.9915 -172.8669,66.9871 -172.8165,66.974 -172.8636,66.9609 -172.8839,66.9609 -172.9178,66.9644 -172.9392,66.9453 -172.9981,66.8846 -173.009,66.827 -173.0018,66.7551 -172.8457,66.7549 -172.8001,66.7759 -172.854,66.7989 -172.8673,66.8577 -172.8657,66.8935 -172.8435,66.9029 -172.7805,66.9116 -172.753,66.9048 -172.7411,66.8861 -172.73,66.8619 -172.7042,66.8536 -172.6589,66.845 -172.4648,66.8242 -172.4256,66.8233 -172.2269,66.828 -172.082,66.8529 -172.1887,66.887 -172.2129,66.89 -172.3676,66.9056 -172.4822,66.915 -172.6613,66.9438 -172.656,66.9712 -172.4403,66.9553 -172.321,66.943 -172.2373,66.9333 -172.1443,66.917 -172.1815,66.9159 -172.2109,66.9217 -172.2426,66.9269 -172.3694,66.9352 -172.4216,66.936 -172.3213,66.9203 -172.0076,66.8815 -171.9741,66.8778 -171.7562,66.8731 -171.6831,66.8742 -171.574,66.8882 -171.4067,66.8742 -171.3733,66.8703 -171.3394,66.8524 -171.355,66.8179 -171.3665,66.8014 -171.3629,66.7791 -171.348,66.7659 -171.3294,66.7551 -171.2891,66.7332 -171.2664,66.7245 -171.241,66.7165 -171.2122,66.7102 -171.136,66.6988 -171.0657,66.688 -171.0447,66.6681 -171.0658,66.6466 -171.0727,66.6196 -171.0122,66.5784 -170.9933,66.5665 -170.9517,66.5468 -170.9027,66.5307 -170.7772,66.491 -170.7118,66.473 -170.5685,66.4424 -170.5317,66.4305 -170.3923,66.3732 -170.3759,66.3613 -170.3565,66.3455 -170.2374,66.2743 -170.2253,66.2704 -170.1929,66.266 -170.1623,66.261 -170.138,66.2367 -170.1663,66.2251 -170.2079,66.2016 -170.2914,66.1558 -170.2195,66.1562 -170.1994,66.1617 -170.1734,66.1825 -170.1046,66.1922 -170.0727,66.2015 -170.0428,66.2063 -170.0037,66.2082 -169.9001,66.1887 -169.8565,66.1653 -169.8366,66.1191 -169.8657,66.1054 -169.9194,66.1069 -169.9607,66.1087 -169.9859,66.0955 -169.8782,66.0602 -169.8536,66.0595 -169.8013,66.0703 -169.6837,66.0696 -169.6558,66.0633 -169.5714,66.0758 -169.6616,66.0991 -169.6954,66.1063 -169.6683,66.1045 -169.6063,66.0946 -169.4473,66.0675 -169.4192,66.0613 -169.3635,66.0436 -169.3481,65.9977 -169.3515,65.985 -169.3564,65.9754 -169.4189,65.9176 -169.4418,65.9088 -169.4703,65.9079 -169.5258,65.9229 -169.5691,65.9391 -169.6115,65.9484 -169.652,65.9531 -169.6933,65.9525 -169.7798,65.9405 -169.8144,65.9315 -169.852,65.9194 -170.107,65.8334 -170.2344,65.7699 -170.1944,65.7663 -170.172,65.7386 -170.1883,65.5877 -170.2331,65.5449 -170.293,65.5282 -170.3338,65.5256 -170.4424,65.5318 -170.5507,65.5515 -170.7264,65.6028 -170.8912,65.6584 -170.9268,65.6782 -171.0389,65.7225 -171.0747,65.7347 -171.103,65.7402 -171.1964,65.7527 -170.9992,65.6116 -170.9439,65.584 -170.9173,65.5728 -170.8863,65.5628 -170.8515,65.5603 -170.801,65.5556 -170.6801,65.4969 -170.7108,65.4104 -170.7315,65.401 -170.7824,65.3945 -170.8257,65.3978 -170.8916,65.4095 -170.9126,65.4191 -170.9426,65.434 -171.0067,65.4519 -171.0492,65.4558 -171.1119,65.4519 -171.1912,65.4461 -171.3645,65.43 -171.4388,65.4222 -171.4751,65.418 -171.5111,65.4137 -171.6021,65.4032 -171.6238,65.4023 -171.6963,65.4038 -171.6313,65.4098 -171.5768,65.4145 -171.4877,65.4295 -171.4695,65.4392 -171.4913,65.4473 -171.5985,65.4478 -171.6667,65.4482 -171.6983,65.4523 -171.718,65.4727 -171.7577,65.4818 -171.7846,65.4802 -171.8135,65.4734 -171.8687,65.4548 -171.9005,65.4556 -171.9421,65.4801 -171.9819,65.5361 -172.0045,65.5803 -172.1955,65.6082 -172.3067,65.6202 -172.4551,65.5923 -172.3442,65.55 -172.2401,65.5329 -172.2007,65.5328 -172.1178,65.5196 -172.0883,65.5091 -172.0729,65.493 -172.0796,65.3973 -172.1163,65.3903 -172.0761,65.3454 -172.0554,65.341 -171.9764,65.3477 -171.945,65.3536 -171.8663,65.3848 -171.8455,65.3646 -171.9101,65.2717 -171.9119,65.2384 -171.8947,65.2071 -171.8938,65.186 -171.9007,65.164 -171.9454,65.1771 -171.9731,65.1829 -172.0046,65.1873 -172.0417,65.1879 -172.3346,65.187 -172.3539,65.1628 -172.3381,65.1463 -172.2594,65.1314 -172.1078,65.1367 -171.99,65.1415 -171.9625,65.1355 -171.9081,65.1183 -171.786,65.002 -171.8069,64.9801 -171.8257,64.9704 -171.9858,64.8929 -172.0882,64.8497 -172.1217,64.8398 -172.1558,64.8349 -172.1774,64.8438 -172.198,64.844 -172.361,64.805 -172.3947,64.7876 -172.4166,64.7746 -172.4389,64.7702 -172.4914,64.7758 -172.5405,64.7834 -172.5675,64.7904 -172.6294,64.7951 -172.6549,64.7915 -172.7018,64.7825 -172.7343,64.7729 -172.8512,64.6976 -172.8177,64.6961 -172.7644,64.7106 -172.7062,64.7321 -172.6751,64.7501 -172.6566,64.7605 -172.6247,64.765 -172.5551,64.7501 -172.4308,64.6994 -172.4499,64.681 -172.5265,64.6496 -172.6209,64.6293 -172.6998,64.6108 -172.7299,64.6006 -172.7415,64.5825 -172.715,64.5792 -172.6593,64.585 -172.6123,64.5922 -172.4823,64.547 -172.4115,64.5184 -172.3924,64.5134 -172.2377,64.4842 -172.2002,64.4789 -172.1533,64.4783 -172.1167,64.4725 -172.0147,64.3786 -172.0181,64.3437 -172.1644,64.3235 -172.2684,64.3098 -172.2893,64.3087 -172.3196,64.313 -172.3582,64.3228 -172.4182,64.3416 -172.4222,64.385 -172.4864,64.4452 -172.5493,64.4397 -172.6829,64.4169 -172.7184,64.397 -172.7019,64.3832 -172.6732,64.3834 -172.6284,64.3887 -172.5921,64.392 -172.5625,64.3876 -172.5402,64.3688 -172.5559,64.2577 -172.6511,64.2021 -172.701,64.2004 -172.7461,64.1971 -172.7804,64.1925 -172.808,64.1856 -172.849,64.1748 -172.8707,64.1839 -172.9283,64.2015 -172.9989,64.2196 -173.0583,64.2279 -173.0913,64.2478 -173.0547,64.2965 -172.9924,64.3398 -172.9562,64.3809 -172.9412,64.4405 -173.0015,64.5084 -173.0719,64.5365 -173.0664,64.508 -173.0382,64.4709 -173.0076,64.4154 -173.0197,64.3852 -173.1245,64.3148 -173.2561,64.2686 -173.3296,64.2672 -173.4248,64.2816 -173.6645,64.3315 -173.7067,64.3443 -173.7266,64.3598 -173.7604,64.4191 -173.7558,64.4469 -173.7822,64.4766 -173.8132,64.4911 -174.0981,64.584 -174.2268,64.6169 -174.342,64.6471 -174.4094,64.6729 -174.4992,64.6974 -174.658,64.7328 -174.6692,64.707 -174.7054,64.6984 -174.7843,64.6959 -175.1006,64.7042 -175.106,64.7533 -175.1233,64.776 -175.2906,64.8443 -175.3527,64.8571 -175.4104,64.867 -175.4569,64.8749 -175.5635,64.9356 -175.5365,64.9458 -175.4808,64.9643 -175.4605,64.9815 -175.4301,65.0793 -175.511,65.1533 -175.5271,65.1994 -175.5304,65.2252 -175.5761,65.3158 -175.6069,65.3391 -175.725,65.3881 -175.8254,65.3958 -175.8611,65.3969 -175.8929,65.4003 -175.9739,65.4088 -176.0168,65.4168 -176.0976,65.4355 -176.1244,65.4421 -176.183,65.4575 -176.2343,65.4771 -176.5953,65.5187 -176.6603,65.5251 -176.7125,65.5275 -176.7337,65.5258 -176.8538,65.5109 -176.944,65.4746 -176.9643,65.461 -176.9957,65.4468 -177.0518,65.4239 -177.1092,65.4094 -177.1446,65.4038 -177.3434,65.3935 -177.6461,65.393 -177.7573,65.3982 -177.9164,65.3978 -178.0119,65.3935 -178.0603,65.3975 -178.1185,65.4075 -178.1504,65.4165 -178.1993,65.4321 -178.2131,65.4581 -178.1593,65.5045 -178.0948,65.6141 -178.0969,65.6449 -178.1106,65.6596 -178.1569,65.6713 -178.1906,65.6733 -178.2299,65.6697 -178.2564,65.6683 -178.2951,65.6789 -178.3366,65.7038 -178.4489,65.7842 -178.5068,65.8439 -178.5478,65.9108 -178.5239,65.9307 -178.4295,65.9071 -178.3634,65.926 -178.3468,65.9444 -178.3488,65.9773 -178.3123,66.0305 -178.2923,66.0404 -178.2569,66.0416 -178.2182,66.0461 -178.1806,66.0799 -178.1563,66.1443 -178.1466,66.2011 -178.1415,66.3092 -178.1628,66.3193 -178.1864,66.3156 -178.2422,66.2816 -178.2769,66.2463 -178.4206,66.1222 -178.547,66.0872 -178.5984,66.0835 -178.6318,66.086 -178.6581,66.0927 -178.6993,66.1112 -178.7473,66.1643 -178.7413,66.1974 -178.7195,66.2144 -178.7451,66.2868 -178.7657,66.3061 -178.8062,66.3312 -178.8245,66.3197 -178.8115,66.2802 -178.8037,66.252 -178.8114,66.2074 -178.9148,66.2184 -178.9611,66.2386 -179.0593,66.2572 -179.02,66.2074 -178.9968,66.1986 -178.9538,66.1788 -178.8818,66.111 -178.9205,66.0835 -178.9636,66.0644 -178.9829,66.0583 -179.0326,66.048 -179.0734,66.0437 -179.234,66.0338 -179.2706,66.0343 -179.3084,66.0519 -179.2812,66.058 -179.2351,66.0569 -179.2163,66.0647 -179.29,66.0953 -179.3251,66.1004 -179.3981,66.0339 -179.4135,66.0002 -179.4518,65.9046 -179.4596,65.8607 -179.4537,65.8285 -179.4378,65.7913 -179.3786,65.7098 -179.122,65.5966 -179.099,65.5877 -179.053,65.5763 -179.0273,65.5749 -179.0049,65.5658 -179.0049,65.5658 146,2.0,Norway 16.4662,68.4645 16.3302,68.4679 16.3148,68.4678 16.1987,68.462 16.1878,68.4594 16.0998,68.429 16.0488,68.4096 16.0383,68.3979 16.0162,68.3754 15.9229,68.2912 15.8994,68.2818 15.8777,68.2766 15.8499,68.2746 15.8362,68.2768 15.8363,68.3119 15.8223,68.3442 15.7553,68.3028 15.6642,68.2537 15.5561,68.2175 15.4997,68.2432 15.4881,68.246 15.3936,68.246 15.332,68.2369 15.3168,68.2363 15.2993,68.2408 15.2894,68.2556 15.3556,68.2915 15.407,68.3065 15.4687,68.3258 15.4842,68.3345 15.5376,68.3732 15.5563,68.3906 15.535,68.4146 15.5255,68.4179 15.5087,68.4158 15.5184,68.4029 15.526,68.3859 15.4784,68.3583 15.4086,68.3274 15.3992,68.3239 15.3882,68.3211 15.3112,68.3075 15.2249,68.2773 15.1956,68.2547 15.1653,68.2317 15.0795,68.194 15.0702,68.1905 14.9959,68.1622 14.9836,68.1604 14.9698,68.1592 14.9551,68.1604 14.9536,68.1756 14.9661,68.2126 15.0523,68.2768 15.2116,68.3853 15.3,68.3963 15.2303,68.432 15.2163,68.4344 15.1856,68.4339 15.1556,68.4341 15.1814,68.4692 15.1905,68.4728 15.3167,68.4979 15.3293,68.4997 15.4255,68.5687 15.4134,68.589 15.4047,68.6044 15.4031,68.6158 15.4163,68.639 15.4293,68.6432 15.5569,68.6408 15.5741,68.6405 15.5902,68.6389 15.6019,68.6356 15.6192,68.6282 15.6413,68.616 15.6634,68.6109 15.6804,68.6104 15.6258,68.6455 15.6123,68.651 15.5805,68.6527 15.5323,68.6527 15.5168,68.6523 15.5045,68.6504 15.4931,68.6475 15.4764,68.6481 15.4646,68.651 15.4293,68.6646 15.4203,68.6714 15.4243,68.7177 15.5996,68.8554 15.6253,68.8634 15.6507,68.8671 15.8361,68.8755 15.8531,68.875 15.8651,68.8717 15.8748,68.8681 15.8946,68.8005 15.8396,68.701 15.9058,68.6974 15.9227,68.6967 15.948,68.6882 15.9541,68.6666 15.9319,68.6206 15.9198,68.6058 15.9027,68.5935 15.8304,68.5588 15.8207,68.5556 15.7787,68.5522 15.7676,68.5496 15.7443,68.5405 15.7309,68.5303 15.7093,68.4415 15.7686,68.4616 15.7781,68.4695 15.785,68.4824 15.7796,68.4957 15.7757,68.5091 15.7824,68.5212 15.8036,68.5316 15.8132,68.5351 15.9425,68.5779 16.0568,68.6441 16.0785,68.6937 16.0623,68.7046 16.0546,68.7143 16.0533,68.7256 16.0653,68.7364 16.0847,68.7431 16.1447,68.7631 16.1699,68.7667 16.3199,68.7686 16.4015,68.759 16.4112,68.7554 16.4552,68.7221 16.5096,68.6757 16.5331,68.6083 16.529,68.5606 16.5214,68.5478 16.5023,68.5363 16.4927,68.533 16.4747,68.5255 16.4583,68.5169 16.4523,68.508 16.4662,68.4645 16.4662,68.4645 18,2.0,Norway 17.2053,68.7004 17.1897,68.7003 17.1733,68.702 17.1579,68.7069 17.0446,68.8127 17.0509,68.8242 17.0641,68.8302 17.2601,68.8313 17.2946,68.8278 17.3183,68.8213 17.3276,68.8182 17.3945,68.784 17.3992,68.7742 17.3803,68.7588 17.2717,68.7168 17.2177,68.702 17.2053,68.7004 17.2053,68.7004 17,2.0,Norway 16.7898,68.6316 16.7777,68.6373 16.8037,68.6772 16.935,68.7556 16.9519,68.7642 16.9643,68.766 16.977,68.7641 17.1085,68.6803 17.0801,68.6644 17.059,68.658 17.0465,68.6566 16.9938,68.6591 16.9785,68.6592 16.9234,68.6546 16.8982,68.6508 16.7898,68.6316 16.7898,68.6316 19,-6.0,Canada -89.7656,68.5735 -89.7832,68.6175 -89.8081,68.6425 -89.8285,68.6551 -89.8364,68.6673 -89.8343,68.6836 -89.8117,68.7183 -89.7672,68.7494 -89.7528,68.7589 -89.7404,68.7637 -89.7268,68.765 -89.5923,68.6755 -89.6005,68.6643 -89.6181,68.6449 -89.6668,68.6123 -89.6867,68.6025 -89.7536,68.5742 -89.7656,68.5735 -89.7656,68.5735 10,-7.0,Canada -102.0953,68.5824 -102.0383,68.559 -102.0131,68.5523 -101.9303,68.5405 -101.9303,68.647 -101.9318,68.6468 -101.9996,68.63 -102.0953,68.6005 -102.0993,68.584 -102.0953,68.5824 31,3.0,Russia 57.1655,68.6666 57.2092,68.6743 57.2582,68.6804 57.3584,68.6904 57.3923,68.6935 57.4451,68.6961 57.5197,68.6948 57.5547,68.6966 57.6048,68.7015 57.6378,68.7057 57.6868,68.7119 57.7021,68.7151 57.7678,68.7232 57.7891,68.7206 57.7978,68.7151 57.7559,68.6778 57.742,68.6735 57.5776,68.6691 57.5118,68.6763 57.4718,68.6794 57.4359,68.6791 57.366,68.6755 57.3341,68.6702 57.3201,68.6656 57.3064,68.6613 57.1999,68.6383 57.0789,68.6328 57.1301,68.6574 57.1441,68.6618 57.1655,68.6666 57.1655,68.6666 33,-5.0,Canada -74.8407,68.5843 -74.7841,68.4882 -74.7762,68.4811 -74.6788,68.4239 -74.6439,68.4135 -74.6246,68.4047 -74.6121,68.389 -74.6187,68.3231 -74.6569,68.2322 -74.8446,68.2468 -74.8496,68.2626 -74.8438,68.2752 -74.8566,68.2921 -74.8748,68.3051 -74.9231,68.3175 -74.9507,68.3195 -74.9796,68.3225 -74.9944,68.3256 -75.0826,68.3486 -75.1048,68.3573 -75.1357,68.3702 -75.2107,68.402 -75.2365,68.4157 -75.2569,68.4333 -75.237,68.5232 -75.2294,68.5349 -75.144,68.6096 -75.1207,68.6216 -75.0948,68.6292 -75.0798,68.6299 -74.8554,68.589 -74.8407,68.5843 -74.8407,68.5843 41,-2.0,Greenland -52.418,68.6246 -52.4281,68.6149 -52.4166,68.6092 -52.3996,68.6088 -52.2213,68.6132 -52.1245,68.6255 -52.1126,68.6266 -52.027,68.6136 -52.0612,68.607 -52.1567,68.563 -52.178,68.5546 -52.1892,68.5504 -52.2022,68.5473 -52.2164,68.5447 -52.233,68.5487 -52.594,68.5326 -52.8082,68.5126 -52.8728,68.4985 -52.9245,68.4872 -52.9852,68.4778 -53.0045,68.4759 -53.0008,68.498 -52.9811,68.5277 -52.9614,68.5383 -52.9366,68.5481 -52.9259,68.5508 -52.8969,68.5532 -52.8422,68.5515 -52.8234,68.5519 -52.8062,68.553 -52.7238,68.5595 -52.6894,68.5654 -52.6583,68.5784 -52.6869,68.5798 -52.7052,68.577 -52.7246,68.5806 -52.5368,68.6195 -52.5222,68.6222 -52.5108,68.6226 -52.418,68.6246 -52.418,68.6246 21,-5.0,Canada -74.6134,68.5849 -74.598,68.5847 -74.4939,68.5656 -74.3623,68.4741 -74.3741,68.4648 -74.3937,68.4628 -74.4292,68.4608 -74.5685,68.4682 -74.5845,68.4697 -74.6488,68.4756 -74.6636,68.478 -74.6755,68.4817 -74.6848,68.4878 -74.712,68.5109 -74.7245,68.5249 -74.7316,68.5371 -74.647,68.5807 -74.633,68.5841 -74.6213,68.5857 -74.6134,68.5849 -74.6134,68.5849 56,-5.0,Canada -78.629,68.3509 -78.6465,68.3513 -78.6616,68.353 -78.6949,68.3587 -78.7096,68.363 -78.793,68.3871 -78.7776,68.422 -78.7699,68.4287 -78.656,68.4597 -78.6426,68.4627 -78.6249,68.4623 -78.5926,68.4602 -78.5774,68.4581 -78.5572,68.4596 -78.535,68.4686 -78.5224,68.4768 -78.5032,68.4933 -78.5098,68.5029 -78.5262,68.5088 -78.539,68.5124 -78.6173,68.5307 -78.6842,68.5462 -78.7257,68.562 -78.6967,68.5717 -78.6706,68.573 -78.5532,68.5691 -78.5225,68.5651 -78.3294,68.5399 -78.3157,68.5369 -78.2988,68.5313 -78.3021,68.4786 -78.3123,68.4678 -78.337,68.4577 -78.3645,68.4533 -78.3798,68.4531 -78.3959,68.4541 -78.4329,68.4629 -78.448,68.4659 -78.4723,68.4702 -78.4881,68.4707 -78.5025,68.4663 -78.558,68.4342 -78.5492,68.4281 -78.5248,68.4215 -78.5081,68.4221 -78.4868,68.4245 -78.4698,68.4254 -78.4537,68.4205 -78.4444,68.4122 -78.4519,68.4046 -78.5392,68.3639 -78.5498,68.3602 -78.5769,68.3549 -78.6104,68.3513 -78.629,68.3509 -78.629,68.3509 33,-2.0,Greenland -51.7275,68.5468 -51.718,68.5465 -51.6958,68.5379 -51.832,68.5066 -51.9393,68.4871 -52.0322,68.4861 -52.0432,68.49 -52.0553,68.493 -52.0969,68.4926 -52.1986,68.4851 -52.298,68.4754 -52.3096,68.4813 -52.3077,68.5087 -52.3003,68.5185 -52.289,68.5227 -52.2745,68.5256 -52.1066,68.554 -52.0894,68.5542 -52.0337,68.5524 -51.9406,68.5409 -51.923,68.5344 -51.9339,68.5263 -51.9486,68.5229 -51.991,68.5173 -52.0038,68.5117 -51.9819,68.4958 -51.9665,68.4929 -51.8437,68.5472 -51.8269,68.5532 -51.8128,68.5544 -51.7655,68.5546 -51.7275,68.5468 -51.7275,68.5468 36,-7.0,Canada -104.8218,68.4378 -104.7158,68.3797 -104.6976,68.3722 -104.6615,68.3625 -104.5385,68.3303 -104.4877,68.3176 -104.4723,68.3148 -104.4258,68.3082 -104.3659,68.3069 -104.3249,68.3086 -104.2986,68.3107 -104.2627,68.3172 -104.2308,68.3257 -104.2211,68.3296 -104.2124,68.3389 -104.2055,68.3508 -104.2073,68.3692 -104.22,68.3885 -104.2286,68.3975 -104.2457,68.4133 -104.2619,68.4237 -104.2882,68.4354 -104.3089,68.4429 -104.3323,68.4492 -104.4608,68.4858 -104.4901,68.4905 -104.5242,68.4943 -104.5397,68.4949 -104.6879,68.4958 -104.7163,68.4953 -104.7678,68.4895 -104.7916,68.4855 -104.8024,68.4827 -104.8218,68.4748 -104.8593,68.4584 -104.8218,68.4378 18,-7.0,Canada -110.4943,68.3965 -110.561,68.3924 -110.6284,68.3865 -110.6919,68.3779 -110.82,68.3821 -110.8593,68.3925 -110.8504,68.4045 -110.8405,68.4079 -110.75,68.4277 -110.5872,68.4603 -110.5687,68.4585 -110.5578,68.4555 -110.5295,68.4459 -110.5117,68.4387 -110.4631,68.4012 -110.4749,68.3971 -110.4943,68.3965 -110.4943,68.3965 25,2.0,Norway 16.0873,68.2889 16.0794,68.2915 16.0615,68.312 16.1102,68.3932 16.1461,68.413 16.1814,68.4281 16.2006,68.4354 16.2926,68.4458 16.3082,68.4461 16.3378,68.4416 16.3498,68.4385 16.3654,68.4332 16.3797,68.425 16.4301,68.3775 16.3712,68.3235 16.3601,68.3208 16.3462,68.3197 16.3153,68.3193 16.2806,68.3217 16.2652,68.3214 16.2373,68.3194 16.1692,68.3133 16.157,68.3111 16.0873,68.2889 16.0873,68.2889 27,3.0,Russia 50.7298,68.3215 50.742,68.327 50.7801,68.3421 50.8069,68.3508 50.8479,68.3633 50.8763,68.3705 50.9499,68.3869 51.0092,68.3999 51.0561,68.4074 51.073,68.4091 51.1101,68.4097 51.1695,68.4073 51.3357,68.3948 51.3483,68.3893 51.325,68.3768 51.3111,68.3735 51.202,68.3705 51.0783,68.3636 51.0629,68.361 50.9454,68.3344 50.8142,68.304 50.7227,68.2872 50.707,68.2847 50.69,68.2877 50.7042,68.3075 50.7298,68.3215 50.7298,68.3215 22,-2.0,Greenland -52.8753,68.4038 -52.8631,68.401 -52.7721,68.3641 -52.7566,68.3563 -52.7412,68.342 -52.7448,68.3274 -52.7655,68.3135 -52.8266,68.2838 -52.8445,68.2768 -52.8769,68.2701 -52.9997,68.2704 -53.0773,68.2995 -53.0915,68.3064 -53.098,68.3173 -53.0839,68.3433 -52.9362,68.4012 -52.9195,68.4053 -52.9077,68.4068 -52.8945,68.4067 -52.8835,68.4062 -52.8753,68.4038 -52.8753,68.4038 23,-5.0,Canada -74.1839,68.3746 -74.1506,68.3738 -74.1367,68.3728 -74.1225,68.3706 -74.113,68.3671 -74.0606,68.3385 -74.0412,68.3273 -73.9213,68.2425 -73.991,68.1648 -74.006,68.1587 -74.0345,68.1551 -74.0515,68.156 -74.0688,68.1619 -74.0877,68.1741 -74.1041,68.1858 -74.2316,68.3109 -74.244,68.3362 -74.243,68.3465 -74.2358,68.3575 -74.2199,68.372 -74.2032,68.3763 -74.1839,68.3746 -74.1839,68.3746 48,2.0,Norway 14.1763,68.0622 14.1699,68.0651 14.1746,68.1158 14.2747,68.2174 14.2916,68.2296 14.3115,68.2316 14.3253,68.2297 14.3407,68.2202 14.3834,68.2054 14.4528,68.2084 14.4703,68.2173 14.442,68.2518 14.401,68.2682 14.455,68.2938 14.5116,68.3134 14.575,68.3304 14.5969,68.3359 14.6091,68.3378 14.7277,68.3411 14.744,68.3391 14.7542,68.3371 14.7738,68.33 14.7763,68.3036 14.7676,68.2942 14.7449,68.2856 14.7356,68.2802 14.722,68.2614 14.7635,68.2759 14.8293,68.2945 14.8239,68.3107 14.8644,68.3412 14.887,68.3445 15.1128,68.3637 15.1266,68.3649 15.137,68.3628 15.1244,68.3525 15.0824,68.3236 14.9989,68.2697 14.8113,68.1919 14.782,68.1817 14.7509,68.1729 14.7406,68.1702 14.502,68.1135 14.4776,68.1093 14.3626,68.0961 14.2111,68.0686 14.1763,68.0622 14.1763,68.0622 15,-5.0,Canada -81.8371,68.2453 -81.8872,68.2188 -81.8995,68.2155 -82.0975,68.2512 -82.1394,68.2617 -82.153,68.2662 -82.1696,68.2766 -82.1597,68.2843 -82.0571,68.2981 -82.0436,68.2967 -81.9623,68.2851 -81.8395,68.2634 -81.8263,68.2565 -81.8371,68.2453 -81.8371,68.2453 21,-5.0,Canada -78.9327,68.2612 -78.8784,68.256 -78.7636,68.2515 -78.66,68.2082 -78.6413,68.198 -78.6377,68.1839 -78.6537,68.1656 -78.6759,68.1533 -78.8547,68.0821 -78.8665,68.0782 -78.9087,68.0813 -78.9234,68.0831 -78.9356,68.088 -79.0076,68.12 -79.0134,68.1283 -79.0218,68.16 -79.0241,68.2319 -78.9801,68.2603 -78.9588,68.2627 -78.9327,68.2612 -78.9327,68.2612 77,-5.0,Canada -76.5055,67.1348 -76.5345,67.1358 -76.8191,67.16 -76.8675,67.1696 -76.8917,67.1785 -76.9152,67.1952 -76.942,67.2205 -77.087,67.3688 -77.0765,67.4094 -77.0648,67.4538 -77.0758,67.476 -77.1144,67.5287 -77.1555,67.5977 -77.1599,67.6184 -77.0937,67.7348 -77.077,67.7565 -77.0632,67.7714 -77.0426,67.7897 -76.7008,68.0724 -76.5645,68.1515 -76.541,68.1612 -76.5126,68.1719 -76.4736,68.1845 -76.4455,68.1919 -76.1115,68.245 -76.0903,68.2308 -76.068,68.2148 -75.9558,68.2093 -75.9231,68.2077 -75.8966,68.2103 -75.8722,68.2174 -75.8325,68.2331 -75.8,68.2451 -75.7643,68.25 -75.7277,68.2524 -75.6583,68.2493 -75.597,68.245 -75.5664,68.243 -75.5361,68.2396 -75.5081,68.2355 -75.463,68.2257 -75.4434,68.2199 -75.4236,68.213 -75.4032,68.207 -75.2952,68.1792 -75.2708,68.1748 -75.228,68.1707 -75.1046,68.1598 -75.0706,68.1584 -75.033,68.1574 -75.0003,68.1525 -74.9703,68.1445 -74.873,68.0801 -74.8501,68.0527 -74.8438,68.0299 -74.8961,67.9498 -74.9343,67.9231 -74.9909,67.8878 -75.0039,67.8673 -74.9521,67.7682 -74.9074,67.6962 -74.8691,67.5363 -74.9145,67.4547 -74.9779,67.3958 -75.0054,67.3781 -75.0429,67.3574 -75.2359,67.2685 -75.3972,67.2479 -75.506,67.2197 -75.6879,67.1787 -75.7892,67.1666 -75.9595,67.1703 -76.0696,67.1753 -76.1511,67.1684 -76.3327,67.1512 -76.5055,67.1348 -76.5055,67.1348 16,2.0,Norway 14.1585,68.1514 14.1409,68.1541 14.1314,68.1573 14.0228,68.2021 14.0197,68.213 14.0394,68.2327 14.0852,68.2342 14.1032,68.2327 14.1844,68.2137 14.1994,68.2055 14.2096,68.1937 14.2129,68.1786 14.1882,68.1567 14.1737,68.1518 14.1585,68.1514 14.1585,68.1514 24,-7.0,Canada -111.294,68.2032 -111.3228,68.2019 -111.348,68.1986 -111.3745,68.1916 -111.3958,68.1766 -111.3968,68.1598 -111.4012,68.1485 -111.4146,68.1426 -111.437,68.1376 -111.4618,68.1343 -111.4753,68.1333 -111.4905,68.1331 -111.5074,68.1338 -111.5253,68.1381 -111.5391,68.1464 -111.5439,68.1569 -111.5392,68.1686 -111.4797,68.2097 -111.4687,68.212 -111.2939,68.2235 -111.2787,68.2237 -111.2671,68.2072 -111.294,68.2032 -111.294,68.2032 54,-6.0,Canada -86.2533,68.0752 -86.2519,68.0067 -86.245,67.9823 -86.2164,67.9346 -86.1966,67.9041 -86.1879,67.868 -86.1902,67.8531 -86.2158,67.7733 -86.223,67.7625 -86.2874,67.6976 -86.3098,67.6843 -86.3917,67.6424 -86.4034,67.6388 -86.4161,67.6393 -86.4959,67.6452 -86.5097,67.6477 -86.6773,67.7107 -86.7004,67.7263 -86.7286,67.7611 -86.7371,67.7755 -86.7452,67.79 -86.764,67.8228 -86.7686,67.8398 -86.7587,67.8477 -86.7444,67.8446 -86.7315,67.8452 -86.6726,67.8675 -86.6616,67.872 -86.6571,67.8996 -86.6552,67.9141 -86.6588,67.9239 -86.6678,67.9358 -86.6818,67.9424 -86.6964,67.9455 -86.7219,67.9437 -86.7505,67.9489 -86.7599,67.9535 -86.8086,67.9809 -86.8058,67.9946 -86.7964,68.0101 -86.7197,68.0957 -86.5597,68.1954 -86.5292,68.2118 -86.5178,68.216 -86.4926,68.2187 -86.4642,68.2142 -86.4205,68.204 -86.3566,68.1831 -86.3054,68.1615 -86.2767,68.1484 -86.2273,68.1194 -86.2211,68.1071 -86.2533,68.0752 -86.2533,68.0752 44,2.0,Norway 13.4931,67.9526 13.4749,67.9538 13.4614,67.9569 13.4455,67.963 13.4246,67.9768 13.4382,68.001 13.501,68.0389 13.5076,68.1162 13.5059,68.1419 13.4888,68.1453 13.5399,68.1755 13.6309,68.1989 13.6476,68.1983 13.7749,68.1815 13.8597,68.1656 13.8813,68.1596 13.9229,68.1529 13.939,68.1509 13.974,68.1492 13.9971,68.1577 14.0046,68.171 14.019,68.1745 14.0345,68.1747 14.0648,68.1707 14.1005,68.1595 14.1057,68.1489 14.0992,68.1409 14.0098,68.0899 13.9992,68.0873 13.9811,68.0885 13.9084,68.0846 13.8314,68.0717 13.8077,68.0492 13.819,68.037 13.8173,68.0246 13.8065,68.0178 13.6796,67.98 13.669,67.9774 13.6568,67.9749 13.6163,67.9797 13.5963,67.997 13.5337,67.9862 13.4931,67.9526 13.4931,67.9526 32,-2.0,Greenland -52.1794,68.0905 -52.072,68.0941 -52.058,68.0949 -52.0097,68.1005 -51.9726,68.1044 -51.7147,68.1339 -51.4978,68.1654 -51.4729,68.1698 -51.3574,68.1752 -51.3454,68.1656 -51.3474,68.1509 -51.3557,68.1448 -51.4167,68.1199 -51.4383,68.1137 -51.4836,68.1051 -51.59,68.1014 -51.6391,68.0943 -51.6614,68.0904 -51.6724,68.0871 -51.6924,68.0788 -51.7301,68.0594 -51.7518,68.0529 -51.8108,68.043 -51.8985,68.0334 -51.9614,68.0283 -52.0005,68.0266 -52.042,68.0292 -52.0733,68.0346 -52.2031,68.0782 -52.1958,68.0859 -52.1794,68.0905 -52.1794,68.0905 18,-4.0,Canada -66.1878,68.0605 -66.2154,68.0663 -66.2418,68.0714 -66.2567,68.0739 -66.3288,68.084 -66.3878,68.0906 -66.4311,68.0943 -66.4621,68.0955 -66.4672,68.13 -66.36,68.1525 -66.1599,68.1672 -66.0825,68.1538 -66.1173,68.0766 -66.1303,68.0714 -66.1621,68.0621 -66.1741,68.0608 -66.1878,68.0605 -66.1878,68.0605 19,-7.0,Canada -109.3465,68.1454 -109.3516,68.1386 -109.3636,68.1271 -109.4435,68.0861 -109.5322,68.0562 -109.5419,68.0527 -109.5534,68.0504 -109.5812,68.0492 -109.5977,68.0497 -109.615,68.0545 -109.6246,68.0637 -109.6148,68.0711 -109.5412,68.1012 -109.4465,68.1369 -109.4135,68.1449 -109.3585,68.1581 -109.3412,68.157 -109.3465,68.1454 -109.3465,68.1454 23,-2.0,Greenland -29.6627,68.1355 -29.6437,68.1302 -29.6316,68.1196 -29.6393,68.1017 -29.6501,68.0874 -29.6652,68.0802 -29.7752,68.0537 -29.8041,68.0528 -29.8351,68.0538 -29.876,68.0611 -29.9259,68.0765 -29.9383,68.0808 -29.9524,68.0984 -29.9472,68.1224 -29.9366,68.1312 -29.912,68.1401 -29.8895,68.1461 -29.8674,68.1489 -29.8318,68.1512 -29.8149,68.1501 -29.7179,68.1359 -29.6627,68.1355 -29.6627,68.1355 20,-2.0,Greenland -31.6262,68.0853 -31.65,68.0722 -31.6872,68.0667 -31.7415,68.0655 -31.7595,68.0686 -31.8629,68.0865 -31.8815,68.0963 -31.8906,68.1105 -31.8893,68.1209 -31.8709,68.1299 -31.8596,68.1316 -31.7677,68.1414 -31.7523,68.142 -31.6825,68.1391 -31.6699,68.1362 -31.6816,68.1287 -31.6951,68.1188 -31.6989,68.1049 -31.6262,68.0853 -31.6262,68.0853 14,-7.0,Canada -104.3308,68.0529 -104.2814,67.9955 -104.2635,67.9928 -104.2341,68.0153 -104.1859,68.0522 -104.155,68.0916 -104.15,68.1006 -104.1578,68.1126 -104.1726,68.1198 -104.1962,68.1157 -104.2069,68.1126 -104.3308,68.0763 -104.3364,68.0594 -104.3308,68.0529 17,-4.0,Canada -65.5105,68.0816 -65.5064,68.0744 -65.4285,68.0651 -65.3753,68.0658 -65.3598,68.0589 -65.3608,68.0381 -65.3835,68.0244 -65.5377,68.0091 -65.5536,68.0104 -65.5739,68.0223 -65.5839,68.0772 -65.5762,68.0909 -65.5632,68.0943 -65.5378,68.0928 -65.5187,68.0882 -65.5105,68.0816 -65.5105,68.0816 65,-5.0,Canada -73.5011,67.9209 -73.4891,67.9255 -73.4657,67.9281 -73.4546,67.9287 -73.4238,67.9274 -73.4132,67.9261 -73.3898,67.9214 -73.286,67.8987 -73.2745,67.8956 -73.2651,67.8919 -73.2569,67.8861 -73.1954,67.7417 -73.2084,67.7239 -73.2273,67.7052 -73.2511,67.6885 -73.2618,67.6819 -73.2763,67.6765 -73.2964,67.6763 -73.5106,67.6882 -73.7778,67.7 -73.8387,67.7018 -73.8839,67.702 -73.9292,67.7021 -73.9587,67.7006 -74.0135,67.6965 -74.074,67.689 -74.0971,67.686 -74.1082,67.6852 -74.1508,67.6824 -74.1651,67.6825 -74.2333,67.6889 -74.2455,67.6903 -74.3258,67.703 -74.3799,67.7184 -74.4087,67.7281 -74.4259,67.7349 -74.4415,67.742 -74.485,67.7657 -74.5036,67.7783 -74.5282,67.7954 -74.6024,67.8634 -74.6179,67.8807 -74.6213,67.9194 -74.6207,67.9309 -74.6164,67.9431 -74.6032,67.9677 -74.5945,67.9761 -74.5754,67.9839 -74.5617,67.9851 -74.4734,67.9917 -74.4586,67.9912 -74.2806,68.0103 -74.2076,68.0793 -74.1995,68.0858 -74.187,68.0896 -74.1663,68.086 -74.1128,68.068 -74.0795,68.0563 -74.0587,68.0453 -74.0572,68.0344 -74.0092,67.9785 -73.8197,67.9544 -73.5819,67.9267 -73.5011,67.9209 -73.5011,67.9209 22,2.0,Norway 13.2116,67.8984 13.1975,67.9305 13.186,67.9471 13.1666,67.947 13.1629,67.9316 13.1532,67.9171 13.1364,67.9261 13.1347,67.9573 13.2676,68.0604 13.2818,68.0655 13.2953,68.0666 13.3296,68.0641 13.3575,68.0594 13.3695,68.0568 13.3924,68.0448 13.4092,68.0288 13.3544,67.9419 13.3129,67.927 13.234,67.9033 13.2233,67.9005 13.2116,67.8984 13.2116,67.8984 32,-2.0,Greenland -51.8414,68.0068 -51.7985,68.0056 -51.759,68.006 -51.7309,68.0141 -51.7196,68.0221 -51.6947,68.0263 -51.3511,68.0611 -51.3245,68.0636 -51.3109,68.063 -51.2084,68.054 -51.1089,68.0385 -51.1007,68.032 -51.1856,68.0138 -51.2571,68.003 -51.3065,67.9976 -51.3317,67.9954 -51.3574,67.9959 -51.3723,67.9975 -51.4043,68.0023 -51.4179,68.0027 -51.4832,68.0007 -51.6191,67.9859 -51.7313,67.9761 -51.7828,67.9729 -51.824,67.9728 -51.8514,67.9753 -51.8676,67.9782 -51.8966,67.991 -51.8792,68.0035 -51.8677,68.0059 -51.8414,68.0068 -51.8414,68.0068 19,-7.0,Canada -109.6523,68.0273 -109.6573,68.0177 -109.669,68.0062 -109.6907,67.9947 -109.7016,67.992 -109.8563,67.9664 -109.9825,67.951 -110.0089,67.949 -110.0265,67.9524 -110.019,67.9592 -109.9907,67.9699 -109.9509,67.9826 -109.7021,68.0448 -109.6908,68.0472 -109.6658,68.0504 -109.655,68.0493 -109.6468,68.0372 -109.6523,68.0273 -109.6523,68.0273 17,-2.0,Greenland -53.3608,67.9822 -53.3568,67.9882 -53.3122,68.0187 -53.3021,68.0206 -53.2764,68.0226 -53.2378,68.0245 -53.2094,68.0214 -53.1716,68.0115 -53.1508,68.0014 -53.1149,67.9694 -53.1826,67.9413 -53.2356,67.9233 -53.2451,67.9207 -53.2639,67.9239 -53.3487,67.9672 -53.3608,67.9822 -53.3608,67.9822 13,2.0,Norway 12.7708,67.7206 12.7589,67.725 12.8688,67.8652 12.9138,67.9165 13.0273,68.0151 13.0412,68.0162 13.0764,68.0079 13.1244,67.9955 13.1085,67.8689 12.9831,67.7902 12.8154,67.7221 12.7708,67.7206 12.7708,67.7206 16,-7.0,Canada -109.2175,68.0052 -109.181,67.9848 -109.0894,67.951 -109.0825,67.9386 -109.0824,67.908 -109.0892,67.8965 -109.1068,67.8934 -109.1231,67.8944 -109.149,67.9001 -109.2032,67.9163 -109.273,67.9376 -109.3115,67.963 -109.2713,68.0043 -109.255,68.0084 -109.2175,68.0052 -109.2175,68.0052 20,2.0,Norway 15.5815,67.8889 15.4833,67.8932 15.4703,67.9026 15.4859,67.9163 15.4964,67.919 15.5227,67.9218 15.5756,67.9269 15.589,67.928 15.6193,67.9288 15.6788,67.9283 15.7104,67.9283 15.8181,67.9268 15.8317,67.9247 15.866,67.9158 15.8885,67.9023 15.87,67.8923 15.8293,67.8892 15.6387,67.8916 15.5815,67.8889 15.5815,67.8889 20,-7.0,Canada -108.7233,67.8864 -108.6694,67.8704 -108.6567,67.8618 -108.6381,67.8165 -108.6563,67.7868 -108.6729,67.7831 -108.6893,67.7841 -108.8211,67.8172 -108.8749,67.8334 -108.9075,67.8435 -108.9415,67.8584 -108.9635,67.8734 -108.9702,67.8858 -108.9679,67.9002 -108.8217,67.8714 -108.8021,67.8801 -108.7626,67.8897 -108.7487,67.8902 -108.7233,67.8864 -108.7233,67.8864 21,-7.0,Canada -108.0114,67.7952 -107.9258,67.7854 -107.9121,67.7859 -107.887,67.7891 -107.8657,67.7942 -107.853,67.8007 -107.8401,67.8123 -107.8256,67.8398 -107.8224,67.8626 -107.828,67.8752 -107.8454,67.8844 -107.8578,67.8873 -107.8742,67.8884 -107.8883,67.8877 -107.8996,67.8853 -107.9208,67.8799 -107.9716,67.8641 -108.0014,67.8492 -108.0114,67.8368 -108.0267,67.797 -108.0114,67.7952 13,-7.0,Canada -110.5853,67.8536 -110.6342,67.806 -110.6488,67.8009 -110.8277,67.7626 -110.8398,67.7609 -110.8559,67.7677 -110.8382,67.7806 -110.6169,67.8678 -110.6073,67.8714 -110.5947,67.873 -110.5781,67.8661 -110.5853,67.8536 -110.5853,67.8536 14,2.0,Norway 15.112,67.8119 14.9799,67.8176 14.9454,67.8192 14.9297,67.8213 14.9037,67.8389 14.9323,67.8653 15.0069,67.8714 15.0585,67.8668 15.2694,67.8324 15.2346,67.8231 15.1961,67.8166 15.1705,67.8137 15.112,67.8119 15.112,67.8119 14,-7.0,Canada -108.1331,67.8135 -108.1859,67.7992 -108.42,67.7828 -108.438,67.7842 -108.4195,67.8007 -108.3582,67.8289 -108.3392,67.8359 -108.3176,67.8418 -108.304,67.8423 -108.149,67.8346 -108.1379,67.8289 -108.1347,67.8188 -108.1331,67.8135 -108.1331,67.8135 22,-2.0,Greenland -53.559,67.5878 -53.565,67.6034 -53.5865,67.6342 -53.6173,67.6383 -53.6328,67.6441 -53.6417,67.6503 -53.6524,67.6881 -53.6407,67.6954 -53.6292,67.6981 -53.6167,67.6985 -53.5757,67.6976 -53.5605,67.6959 -53.5363,67.6835 -53.5209,67.6754 -53.475,67.645 -53.4712,67.6248 -53.4788,67.6161 -53.4873,67.611 -53.5248,67.5948 -53.547,67.5898 -53.559,67.5878 -53.559,67.5878 19,-6.0,Canada -97.1351,67.6349 -97.13,67.6201 -97.1276,67.5927 -97.1392,67.5842 -97.168,67.5715 -97.2308,67.5515 -97.2762,67.5415 -97.2999,67.5383 -97.3129,67.5376 -97.3274,67.5388 -97.3385,67.5429 -97.349,67.5578 -97.3573,67.6066 -97.1977,67.6453 -97.185,67.6459 -97.1571,67.6453 -97.1391,67.6398 -97.1351,67.6349 -97.1351,67.6349 18,-7.0,Canada -107.9182,67.4427 -107.8855,67.387 -107.8658,67.3797 -107.836,67.3893 -107.7008,67.4519 -107.698,67.4631 -107.7041,67.4757 -107.7618,67.5617 -107.7748,67.5709 -107.7895,67.5762 -107.8623,67.5889 -107.876,67.5903 -107.8907,67.5865 -107.9072,67.5533 -107.9089,67.542 -107.9182,67.4559 -107.9193,67.4446 -107.9182,67.4427 29,-4.0,Canada -63.7934,67.5472 -63.7892,67.539 -63.7827,67.5313 -63.7714,67.5218 -63.7429,67.5072 -63.7212,67.4994 -63.6828,67.4807 -63.6547,67.4644 -63.6376,67.452 -63.6312,67.4438 -63.6272,67.432 -63.6372,67.4274 -63.6858,67.4227 -63.7095,67.4206 -63.7493,67.4173 -63.8029,67.416 -63.8463,67.4171 -63.8623,67.4182 -63.8723,67.4194 -63.8967,67.4296 -63.9016,67.443 -63.905,67.457 -63.9012,67.4726 -63.8459,67.5608 -63.8332,67.5683 -63.8161,67.5666 -63.804,67.559 -63.7934,67.5472 -63.7934,67.5472 13,-7.0,Canada -108.044,67.382 -108.0272,67.3733 -108.0122,67.371 -107.9451,67.3638 -107.9125,67.3662 -107.905,67.3771 -107.9063,67.3933 -107.9417,67.4572 -107.9491,67.4665 -107.9776,67.4827 -107.9976,67.4823 -108.0506,67.3958 -108.044,67.382 17,-7.0,Canada -108.266,67.436 -108.2338,67.4024 -108.2238,67.3963 -108.2092,67.391 -108.1735,67.3819 -108.1574,67.3809 -108.1437,67.3813 -108.1324,67.3838 -108.0737,67.408 -108.0605,67.4545 -108.0726,67.4711 -108.1109,67.4798 -108.2326,67.4819 -108.256,67.4806 -108.266,67.4771 -108.27,67.4402 -108.266,67.436 14,-7.0,Canada -107.8512,67.2905 -107.7249,67.2227 -107.7111,67.2213 -107.6879,67.2251 -107.6763,67.231 -107.6591,67.3767 -107.6634,67.3904 -107.675,67.4015 -107.6939,67.4037 -107.7235,67.3941 -107.841,67.354 -107.8512,67.3422 -107.8608,67.2957 -107.8512,67.2905 24,-4.0,Canada -63.3249,67.1789 -63.3764,67.1842 -63.4107,67.1869 -63.4282,67.1877 -63.4468,67.188 -63.4886,67.1838 -63.6318,67.1872 -63.6817,67.1939 -63.6976,67.1987 -63.6874,67.2044 -63.6648,67.2147 -63.5566,67.2561 -63.535,67.26 -63.5144,67.2625 -63.4739,67.2666 -63.4543,67.2678 -63.3534,67.2557 -63.2381,67.2169 -63.2269,67.2083 -63.2352,67.2024 -63.2649,67.1845 -63.2865,67.1811 -63.3249,67.1789 -63.3249,67.1789 16,-6.0,Canada -95.118,67.1531 -95.1431,67.1247 -95.165,67.1123 -95.1768,67.1109 -95.2036,67.1118 -95.2182,67.1143 -95.2338,67.1176 -95.3301,67.1376 -95.3528,67.1465 -95.3449,67.1533 -95.194,67.1778 -95.1806,67.1774 -95.1205,67.1702 -95.1112,67.1609 -95.118,67.1531 -95.118,67.1531 25,-7.0,Canada -107.4062,67.0983 -107.3692,67.0456 -107.3624,67.0363 -107.353,67.0269 -107.3433,67.0182 -107.3282,67.005 -107.3062,66.993 -107.296,66.9898 -107.2849,66.9875 -107.2694,66.9863 -107.1868,66.998 -107.1792,67.0279 -107.1914,67.0306 -107.2223,67.041 -107.2404,67.0483 -107.2562,67.0556 -107.2882,67.0712 -107.34,67.0985 -107.3596,67.1109 -107.3757,67.1189 -107.3863,67.1223 -107.3986,67.1207 -107.4062,67.112 -107.408,67.1009 -107.4062,67.0983 29,-4.0,Canada -62.7652,66.9742 -62.7355,66.9726 -62.691,66.971 -62.6792,66.9731 -62.5737,67.0434 -62.5229,67.081 -62.5126,67.0891 -62.5027,67.0918 -62.4186,67.1007 -62.4048,67.1021 -62.2926,67.1056 -62.2477,67.0808 -62.2592,67.0722 -62.3188,67.0492 -62.3436,67.0411 -62.3754,67.0344 -62.4095,67.0286 -62.4406,67.0207 -62.451,67.017 -62.4672,67.0073 -62.5062,66.9819 -62.5197,66.9654 -62.6233,66.9257 -62.6351,66.9244 -62.6536,66.9247 -62.6836,66.9321 -62.7028,66.9393 -62.7652,66.9742 -62.7652,66.9742 18,2.0,Norway 14.1355,66.9129 14.1205,66.9415 14.097,66.9644 14.0607,66.9814 14.0516,66.9848 14.0341,66.9858 14.0069,66.9841 13.9906,66.9845 13.9708,66.9872 13.9655,66.9959 14.0296,67.0323 14.179,67.0528 14.2287,67.0478 14.1753,66.9201 14.1628,66.9145 14.1497,66.913 14.1355,66.9129 14.1355,66.9129 20,-4.0,Canada -62.8313,66.9696 -62.8115,66.9588 -62.793,66.9461 -62.7849,66.9382 -62.7858,66.9275 -62.8084,66.9209 -62.8481,66.9216 -62.8802,66.9249 -62.9081,66.9308 -62.9384,66.9407 -62.9628,66.9507 -62.9939,66.9641 -63.0071,66.9734 -63.0031,66.9869 -62.9837,66.9947 -62.9702,66.9947 -62.8724,66.9845 -62.8488,66.9779 -62.8313,66.9696 -62.8313,66.9696 12,-7.0,Canada -107.7135,66.7647 -107.7018,66.7661 -107.6781,66.7741 -107.6057,66.8136 -107.5685,66.8975 -107.5697,66.9035 -107.5732,66.9124 -107.5851,66.9209 -107.5951,66.9244 -107.6121,66.9214 -107.7245,66.7694 -107.7135,66.7647 21,-2.0,Greenland -52.7517,66.8104 -52.8626,66.8044 -52.8873,66.8016 -52.9101,66.7978 -52.9511,66.7855 -52.9619,66.7816 -53.0967,66.7381 -53.1956,66.7406 -53.3545,66.7143 -53.3362,66.7491 -53.3059,66.7648 -53.2774,66.7769 -53.247,66.7868 -53.2361,66.7892 -53.1458,66.804 -53.1119,66.8095 -53.0862,66.8115 -52.8355,66.8177 -52.7679,66.8143 -52.7517,66.8104 -52.7517,66.8104 72,5.0,Russia 69.6811,66.4047 69.6191,66.436 69.4315,66.5216 69.4289,66.5507 69.3787,66.6081 69.3669,66.6205 69.2989,66.6735 69.2897,66.6797 69.2774,66.6852 69.26,66.6881 69.1809,66.6828 69.1657,66.6804 69.1492,66.6727 69.1518,66.6588 69.1413,66.653 69.1264,66.6505 69.1095,66.6518 69.0248,66.6813 69.0129,66.6867 68.9855,66.7076 68.9968,66.7154 69.0114,66.7189 69.0428,66.7222 69.0606,66.7226 69.0769,66.7228 69.0922,66.7173 69.1107,66.7056 69.1254,66.7013 69.1411,66.7024 69.2639,66.721 69.2802,66.7209 69.3158,66.7141 69.325,66.7082 69.3427,66.6966 69.3516,66.6908 69.3537,66.6695 69.3825,66.6416 69.3916,66.6356 69.4036,66.63 69.4851,66.6066 69.5029,66.6029 69.5153,66.608 69.4788,66.6216 69.4511,66.633 69.4146,66.6499 69.403,66.6589 69.3998,66.6713 69.4124,66.6796 69.427,66.6827 69.4427,66.684 69.5587,66.6788 69.5928,66.6757 69.61,66.6727 69.6325,66.6612 69.7129,66.6371 69.8131,66.6228 69.8286,66.624 69.845,66.6237 69.8953,66.6204 69.9121,66.6192 69.9276,66.6135 69.9422,66.6047 69.9476,66.5956 69.9599,66.4439 69.9064,66.4167 69.892,66.4118 69.7342,66.3879 69.7172,66.3903 69.6988,66.3943 69.6869,66.3998 69.6811,66.4047 69.6811,66.4047 27,3.0,Russia 42.4537,66.7058 42.4745,66.7055 42.5188,66.7012 42.5355,66.6978 42.5633,66.6897 42.5743,66.6846 42.5996,66.6688 42.6278,66.6381 42.6336,66.621 42.6285,66.6086 42.6196,66.602 42.5838,66.6008 42.5429,66.6031 42.5239,66.6057 42.5072,66.609 42.4932,66.613 42.4075,66.6443 42.3627,66.6634 42.3472,66.6781 42.3555,66.6898 42.3792,66.6984 42.393,66.7019 42.4082,66.7042 42.4254,66.7055 42.4423,66.7067 42.4537,66.7058 42.4537,66.7058 1083,0.0,Iceland -21.6618,65.3662 -21.7659,65.3515 -21.8272,65.3638 -21.8959,65.3826 -21.9486,65.4189 -21.9933,65.4175 -22.0722,65.4001 -22.1365,65.3577 -22.1505,65.35 -22.1735,65.3429 -22.1852,65.343 -22.2428,65.3593 -22.29,65.4011 -22.283,65.4099 -22.2683,65.4148 -22.2467,65.416 -22.2228,65.4183 -22.1854,65.4378 -22.1612,65.4422 -22.1146,65.4594 -22.105,65.469 -22.0652,65.5113 -22.0777,65.5118 -22.1182,65.4943 -22.1301,65.4819 -22.1443,65.4702 -22.1585,65.4624 -22.1871,65.4511 -22.2147,65.4437 -22.2728,65.437 -22.4285,65.4226 -22.4546,65.4266 -22.5284,65.4488 -22.6324,65.4446 -22.677,65.418 -22.6958,65.4177 -22.7371,65.4219 -22.8078,65.4728 -22.8665,65.4826 -22.9708,65.4573 -23.009,65.4569 -23.0389,65.4586 -23.1037,65.4658 -23.1534,65.416 -23.1647,65.4075 -23.1788,65.4019 -23.2023,65.3998 -23.248,65.4015 -23.3283,65.4095 -23.5759,65.3823 -23.6107,65.3715 -23.665,65.3402 -23.6752,65.3355 -23.6931,65.333 -23.8315,65.3208 -23.859,65.3213 -23.9146,65.3278 -23.9305,65.3326 -23.9455,65.356 -23.9491,65.3682 -23.9674,65.3878 -24.1346,65.4142 -24.2169,65.4167 -24.3591,65.4066 -24.4095,65.4011 -24.4594,65.4074 -24.4889,65.4183 -24.4161,65.4486 -24.3516,65.4685 -24.3214,65.4834 -24.321,65.5078 -24.327,65.5187 -24.3181,65.5262 -24.2728,65.5544 -24.2603,65.5544 -24.105,65.5251 -24.0948,65.5223 -24.087,65.5162 -24.0749,65.5097 -24.0023,65.4827 -23.9898,65.4785 -23.8443,65.436 -23.8279,65.434 -23.7978,65.4368 -23.7593,65.449 -23.8646,65.4711 -23.9643,65.5125 -24.0103,65.5406 -24.0211,65.5484 -24.0337,65.5629 -24.0219,65.5664 -23.9124,65.5601 -23.8991,65.5564 -23.8627,65.5448 -23.7579,65.5266 -23.7661,65.5337 -23.7813,65.5413 -23.8214,65.557 -23.8685,65.5736 -23.8858,65.5776 -23.9063,65.5797 -23.949,65.5857 -23.966,65.5895 -23.9905,65.5977 -24.0109,65.6077 -24.0243,65.6169 -24.0618,65.6497 -24.0741,65.6643 -24.0836,65.7021 -24.0766,65.7097 -24.0566,65.7231 -23.9749,65.7135 -23.8983,65.6912 -23.7759,65.6565 -23.6824,65.6379 -23.6351,65.6312 -23.5857,65.6207 -23.5725,65.6174 -23.5608,65.6132 -23.5223,65.5864 -23.5063,65.5634 -23.4798,65.5453 -23.3644,65.5687 -23.2964,65.5838 -23.3186,65.5875 -23.3391,65.5861 -23.4055,65.5903 -23.4675,65.6147 -23.4909,65.6355 -23.448,65.6421 -23.4335,65.6448 -23.4139,65.6486 -23.3942,65.6463 -23.319,65.6496 -23.2071,65.6555 -23.1826,65.6581 -23.1454,65.6931 -23.1631,65.6962 -23.1865,65.6899 -23.2081,65.6845 -23.2605,65.6765 -23.3535,65.672 -23.4841,65.6684 -23.5011,65.6687 -23.5347,65.6716 -23.6804,65.6914 -23.6957,65.6937 -23.7081,65.6974 -23.7243,65.7046 -23.7889,65.7444 -23.7994,65.7549 -23.8251,65.7858 -23.823,65.7974 -23.8188,65.8079 -23.797,65.8275 -23.7845,65.8337 -23.7633,65.837 -23.745,65.8366 -23.627,65.8182 -23.5902,65.8113 -23.3991,65.7821 -23.2081,65.7545 -23.1783,65.7525 -23.1691,65.7576 -23.2555,65.7725 -23.3313,65.7844 -23.391,65.7947 -23.5158,65.818 -23.5376,65.8223 -23.5557,65.8284 -23.6984,65.8836 -23.755,65.9145 -23.77,65.9315 -23.7682,65.95 -23.7526,65.9736 -23.7379,65.9833 -23.7191,65.9876 -23.6851,65.9848 -23.5881,65.9665 -23.5716,65.9642 -23.4825,65.9467 -23.3639,65.9145 -23.3486,65.9067 -23.3271,65.9034 -23.369,65.9432 -23.3779,65.9493 -23.4624,65.9741 -23.4725,65.9749 -23.4869,65.9749 -23.5453,65.9965 -23.5551,66.0005 -23.5653,66.0079 -23.6182,66.0298 -23.5313,66.078 -23.49,66.0954 -23.4209,66.1163 -23.3988,66.1155 -23.3048,66.1078 -23.2257,66.0916 -23.1131,66.0615 -22.9819,66.0207 -22.937,65.997 -22.931,65.987 -22.9324,65.9513 -22.7634,65.911 -22.7126,65.9721 -22.7025,65.9751 -22.6317,65.9621 -22.5703,65.9288 -22.5591,65.9194 -22.5451,65.9002 -22.531,65.8804 -22.5413,65.8473 -22.5519,65.8291 -22.567,65.8159 -22.5754,65.8062 -22.599,65.7733 -22.6103,65.7523 -22.6036,65.7439 -22.5924,65.7483 -22.5211,65.8296 -22.4865,65.8756 -22.454,65.883 -22.3764,65.8398 -22.3741,65.8299 -22.3874,65.791 -22.3955,65.7837 -22.4041,65.7783 -22.4159,65.7677 -22.4175,65.7514 -22.3995,65.7509 -22.3901,65.7562 -22.3793,65.7647 -22.3564,65.7942 -22.3495,65.804 -22.3406,65.8212 -22.3428,65.8442 -22.3519,65.8729 -22.3656,65.9054 -22.4543,65.9939 -22.5492,66.0244 -22.5629,66.0279 -22.616,66.0373 -22.6692,66.046 -22.7053,66.0479 -22.7216,66.0499 -22.7842,66.062 -22.7954,66.0643 -22.8655,66.0903 -22.8971,66.1104 -22.9057,66.1167 -22.9161,66.1267 -22.9256,66.138 -22.9192,66.1459 -22.8752,66.1565 -22.8097,66.1719 -22.7869,66.177 -22.7549,66.1779 -22.6924,66.1765 -22.6118,66.1586 -22.5442,66.1475 -22.502,66.1466 -22.413,66.1724 -22.3966,66.1804 -22.4473,66.1816 -22.4763,66.1823 -22.5011,66.185 -22.625,66.2031 -22.6615,66.2104 -22.7861,66.24 -22.8949,66.2148 -22.9277,66.2149 -22.9801,66.2188 -23.0044,66.2222 -23.0263,66.2263 -23.0866,66.2423 -23.0988,66.246 -23.1306,66.2586 -23.1418,66.2677 -23.085,66.2748 -23.0104,66.3087 -23.0313,66.3528 -22.8949,66.382 -22.8403,66.3826 -22.8142,66.3804 -22.6915,66.3546 -22.5656,66.3584 -22.3759,66.3497 -22.213,66.2567 -22.1571,66.1883 -22.0413,66.1847 -21.9296,66.1893 -21.7221,66.1023 -21.7108,66.0956 -21.686,66.0766 -21.6001,65.9835 -21.5938,65.9669 -21.6076,65.9358 -21.5748,65.9774 -21.467,65.9781 -21.3561,65.9441 -21.3491,65.8999 -21.4736,65.8878 -21.4908,65.885 -21.5556,65.8703 -21.5458,65.8595 -21.5317,65.8599 -21.5083,65.8645 -21.4931,65.8701 -21.425,65.8767 -21.3669,65.8787 -21.3495,65.8773 -21.3359,65.874 -21.2564,65.8497 -21.2421,65.8379 -21.2345,65.8079 -21.2351,65.7732 -21.2964,65.6505 -21.3553,65.6216 -21.3943,65.6055 -21.4307,65.604 -21.5479,65.6068 -21.596,65.6415 -21.6202,65.6658 -21.6237,65.6764 -21.6377,65.6826 -21.6802,65.6904 -21.7308,65.6823 -21.6069,65.5702 -21.5804,65.5606 -21.5593,65.5564 -21.5431,65.5544 -21.4916,65.5542 -21.4608,65.5562 -21.4499,65.5576 -21.4395,65.5567 -21.3781,65.5524 -21.3602,65.5491 -21.2658,65.5147 -21.2535,65.4913 -21.2526,65.4709 -21.2598,65.4488 -21.2376,65.3962 -21.1581,65.3495 -21.1479,65.3127 -21.1453,65.2587 -21.0793,65.1422 -21.0423,65.0777 -21.034,65.0831 -21.0249,65.1049 -21.0438,65.1501 -21.0543,65.359 -21.0497,65.3719 -21.0339,65.3741 -21.0219,65.3727 -21.0098,65.3684 -21.0015,65.3627 -20.9353,65.3491 -20.936,65.3606 -20.9455,65.3841 -20.946,65.3944 -20.941,65.4341 -20.8996,65.4961 -20.8852,65.5067 -20.8753,65.5115 -20.8106,65.5438 -20.6871,65.5916 -20.6404,65.6094 -20.6225,65.6086 -20.5822,65.5887 -20.5949,65.5403 -20.6032,65.4854 -20.6004,65.4609 -20.4557,65.406 -20.4331,65.4056 -20.4092,65.411 -20.2844,65.5462 -20.2283,65.6266 -20.2221,65.6412 -20.2225,65.6581 -20.2309,65.6873 -20.2686,65.7754 -20.3335,65.8419 -20.3574,65.8707 -20.3735,65.9266 -20.3781,65.961 -20.381,66.0011 -20.1332,66.0461 -20.0518,66.04 -19.9526,65.9411 -19.9,65.8747 -19.8835,65.8553 -19.8342,65.8276 -19.8071,65.816 -19.7492,65.8015 -19.7311,65.8004 -19.7071,65.8017 -19.6971,65.7993 -19.6594,65.7772 -19.6218,65.7069 -19.6146,65.6851 -19.6077,65.6737 -19.5959,65.6643 -19.568,65.6581 -19.4169,65.6433 -19.3854,65.6522 -19.3573,65.7066 -19.3514,65.7507 -19.3784,65.8004 -19.411,65.8394 -19.4306,65.8524 -19.4453,65.8576 -19.4363,65.8982 -19.415,65.9717 -19.3969,65.9801 -19.3443,65.9982 -19.221,66.0065 -19.192,66.0084 -19.112,66.0009 -19.0408,65.9944 -19.052,66.0416 -19.05,66.0537 -19.0401,66.0693 -19.0284,66.078 -18.9526,66.1 -18.9299,66.1051 -18.8144,66.1175 -18.7496,66.1084 -18.6451,66.0813 -18.6152,66.0663 -18.5921,66.0521 -18.5144,66.0017 -18.4958,65.9808 -18.482,65.9371 -18.4947,65.9205 -18.5015,65.8929 -18.4925,65.8849 -18.405,65.8721 -18.3404,65.8653 -18.3213,65.8647 -18.2982,65.86 -18.2882,65.8551 -18.2462,65.8257 -18.1688,65.734 -18.1446,65.6554 -18.055,65.5751 -18.033,65.5611 -18.027,65.5623 -18.012,65.5761 -18.0258,65.7418 -18.0336,65.7558 -18.0644,65.8105 -18.1117,65.8406 -18.1244,65.8361 -18.1343,65.829 -18.1466,65.8276 -18.1842,65.8463 -18.2545,65.9275 -18.2793,65.9755 -18.294,66.0692 -18.2577,66.0919 -18.2134,66.0961 -18.1819,66.0888 -18.126,66.0837 -18.0461,66.0766 -17.9793,66.0732 -17.9318,66.0713 -17.9141,66.069 -17.8732,66.0611 -17.7168,65.997 -17.6989,65.9859 -17.6866,65.9769 -17.5735,65.9045 -17.3824,65.9032 -17.3297,65.9721 -17.3063,66.0182 -17.2304,66.0838 -17.1977,66.1065 -17.1833,66.1119 -17.0961,66.127 -17.0685,66.1292 -17.0064,66.125 -16.9884,66.1212 -16.9578,66.1106 -16.9343,66.1024 -16.8755,66.0414 -16.7029,66.0317 -16.561,66.0079 -16.6241,66.0443 -16.6531,66.0776 -16.5244,66.1067 -16.4925,66.1129 -16.4752,66.115 -16.4145,66.1447 -16.4027,66.1526 -16.3941,66.1636 -16.384,66.1925 -16.3923,66.206 -16.4754,66.3086 -16.5442,66.3931 -16.5314,66.4096 -16.5216,66.4167 -16.4938,66.424 -16.4357,66.4306 -16.397,66.4332 -16.3229,66.4276 -16.2081,66.4277 -16.1422,66.4506 -15.9926,66.4522 -15.9243,66.4275 -15.8617,66.4034 -15.8216,66.3332 -15.8003,66.3312 -15.6775,66.3134 -15.6663,66.2998 -15.6508,66.2619 -15.6553,66.2487 -15.6884,66.2241 -15.7069,66.2134 -15.7175,66.2086 -15.6966,66.1818 -15.6626,66.1441 -15.527,66.1328 -15.343,66.0621 -15.3267,66.0727 -15.3084,66.0939 -15.3,66.1148 -15.2967,66.1315 -15.1815,66.1806 -15.1151,66.1865 -15.0975,66.1883 -15.0821,66.1916 -15.0685,66.1953 -14.979,66.2543 -14.9703,66.2655 -14.9394,66.2831 -14.9295,66.2883 -14.9129,66.2953 -14.8998,66.2992 -14.8761,66.3031 -14.8585,66.3054 -14.8255,66.3058 -14.8062,66.305 -14.6806,66.2837 -14.6808,66.264 -14.7742,66.2426 -14.933,66.2058 -14.9464,66.2022 -14.9765,66.1894 -14.9593,66.1743 -14.9429,66.1694 -14.918,66.1499 -14.9082,66.1376 -14.9056,66.1215 -14.9129,66.109 -14.9321,66.0946 -14.9463,66.0862 -14.9924,66.0722 -15.0401,66.0605 -15.1145,66.0538 -15.1309,66.0445 -15.1453,66.0305 -15.1186,66.0131 -14.9807,65.9671 -14.9033,65.9591 -14.7941,65.964 -14.7528,65.9768 -14.7218,65.9823 -14.7007,65.9828 -14.6849,65.9804 -14.6586,65.9731 -14.6469,65.9687 -14.6331,65.9604 -14.5893,65.9113 -14.5816,65.8916 -14.5758,65.8706 -14.5943,65.8267 -14.6232,65.8003 -14.6971,65.7664 -14.7274,65.7561 -14.746,65.7545 -14.769,65.7482 -14.7891,65.7314 -14.8252,65.6889 -14.8355,65.6733 -14.8181,65.6489 -14.8024,65.6419 -14.7876,65.6391 -14.7673,65.6439 -14.7159,65.6549 -14.6431,65.6689 -14.6075,65.6747 -14.389,65.7047 -14.3525,65.7082 -14.3202,65.7087 -14.3095,65.7019 -14.3028,65.693 -14.284,65.5874 -14.3796,65.5318 -14.4789,65.4724 -14.5013,65.4587 -14.5118,65.4516 -14.5182,65.4431 -14.5288,65.4173 -14.4973,65.4436 -14.3037,65.5587 -14.2766,65.5701 -14.2593,65.5738 -14.1636,65.5482 -13.9718,65.5168 -13.9598,65.5178 -13.9384,65.525 -13.9114,65.5295 -13.885,65.5301 -13.839,65.5294 -13.6528,65.4658 -13.5823,65.424 -13.5817,65.405 -13.6095,65.3428 -13.648,65.2913 -13.7081,65.2358 -13.633,65.2195 -13.5674,65.197 -13.5564,65.1921 -13.5428,65.1799 -13.5871,65.1504 -13.601,65.1427 -13.6116,65.1379 -13.6325,65.1331 -13.6733,65.1273 -13.725,65.1235 -13.7604,65.1224 -13.8351,65.1225 -14.0022,65.1121 -13.9849,65.1043 -13.9507,65.1058 -13.9193,65.1109 -13.8928,65.114 -13.8438,65.116 -13.823,65.1159 -13.623,65.1131 -13.5916,65.1076 -13.6095,65.0765 -13.5642,65.0413 -13.4905,65.031 -13.4722,64.9878 -13.5577,64.9263 -13.5664,64.9205 -13.577,64.9159 -13.5888,64.9118 -13.6093,64.9066 -13.6318,64.9026 -13.6512,64.9014 -13.744,64.9116 -13.7558,64.9162 -13.7927,64.9353 -13.8254,64.9533 -13.8445,64.9589 -13.8589,64.9619 -13.9602,64.9826 -13.9787,64.9368 -13.8426,64.8927 -13.735,64.8646 -13.7168,64.8612 -13.6785,64.8506 -13.6728,64.8396 -13.6821,64.8342 -13.7336,64.8312 -13.7864,64.8301 -13.9136,64.8405 -14.0232,64.8515 -14.0134,64.8404 -13.9972,64.8334 -13.9806,64.8289 -13.9327,64.8244 -13.9048,64.8226 -13.8744,64.8222 -13.8386,64.8224 -13.8194,64.8193 -13.7748,64.8017 -13.7637,64.7972 -13.7421,64.7858 -13.7417,64.7737 -13.7928,64.745 -13.8435,64.7189 -13.8809,64.7169 -13.9836,64.7157 -14.0144,64.6991 -13.9891,64.6757 -13.9765,64.6722 -13.9636,64.658 -13.9902,64.6433 -14.0366,64.6314 -14.0517,64.6282 -14.2101,64.6092 -14.2217,64.6091 -14.2979,64.6347 -14.3038,64.6454 -14.3387,64.669 -14.3935,64.7034 -14.4035,64.7078 -14.4157,64.7123 -14.4445,64.7176 -14.4642,64.7184 -14.4831,64.7162 -14.4254,64.6955 -14.3591,64.6423 -14.3371,64.594 -14.3393,64.5796 -14.3991,64.5282 -14.4122,64.5254 -14.4359,64.5252 -14.478,64.5132 -14.5265,64.5126 -14.5459,64.5118 -14.5556,64.5051 -14.5508,64.4961 -14.5415,64.4859 -14.497,64.4703 -14.4728,64.4668 -14.4513,64.4597 -14.4338,64.4623 -14.444,64.4261 -14.5121,64.3248 -14.5384,64.3204 -14.5669,64.3185 -14.6805,64.3282 -14.8419,64.2603 -14.8618,64.2222 -14.8505,64.1999 -14.8955,64.1848 -14.9309,64.174 -14.9448,64.1807 -15.051,64.2123 -15.0678,64.2163 -15.1898,64.2189 -15.261,64.2524 -15.3562,64.2904 -15.348,64.2749 -15.341,64.264 -15.3359,64.2523 -15.3385,64.2294 -15.3554,64.1967 -15.406,64.1764 -15.4163,64.1725 -15.4719,64.1616 -15.6049,64.1468 -15.6474,64.1409 -15.6766,64.1349 -15.7727,64.1033 -15.9839,64.0542 -15.9956,64.0479 -16.0094,64.0217 -16.1458,63.9591 -16.1689,63.9506 -16.1808,63.9467 -16.2013,63.9416 -16.2283,63.9386 -16.3067,63.9069 -16.4019,63.8391 -16.4107,63.8338 -16.4203,63.8293 -16.4558,63.8168 -16.5813,63.7833 -16.7721,63.7476 -16.8515,63.786 -16.9139,63.8285 -16.9347,63.8371 -16.9762,63.7811 -16.9768,63.737 -16.9898,63.7153 -17.0842,63.7124 -17.1026,63.7129 -17.1666,63.7156 -17.2098,63.7202 -17.2171,63.7181 -17.272,63.7051 -17.2861,63.7019 -17.6876,63.6346 -17.8014,63.6546 -17.8215,63.6546 -17.8367,63.6519 -17.9377,63.59 -17.93,63.544 -17.9092,63.5297 -17.8886,63.5254 -17.8294,63.5209 -17.8387,63.5052 -17.8786,63.4645 -17.8953,63.4514 -17.9154,63.4439 -18.0775,63.4028 -18.1124,63.3947 -18.1283,63.3926 -18.2654,63.3753 -18.5297,63.3395 -18.673,63.3132 -18.6924,63.3118 -18.7379,63.3132 -19.0487,63.3349 -19.238,63.3553 -19.3558,63.3832 -19.5604,63.4262 -19.5885,63.4315 -19.688,63.4492 -19.7419,63.4583 -19.8024,63.4662 -19.8288,63.4674 -20.01,63.4591 -20.0319,63.4583 -20.0486,63.456 -20.0703,63.4551 -20.0972,63.4561 -20.1308,63.4583 -20.1571,63.4642 -20.1815,63.4716 -20.4608,63.5889 -20.4806,63.6106 -20.4898,63.6178 -20.5007,63.6286 -20.5007,63.6449 -20.5003,63.6681 -20.4413,63.6889 -20.4171,63.6895 -20.4,63.6887 -20.3718,63.6835 -20.3532,63.6783 -20.3299,63.6651 -20.2969,63.6521 -20.2763,63.6515 -20.3121,63.6777 -20.3218,63.683 -20.3398,63.6886 -20.4028,63.7047 -20.4724,63.6884 -20.5208,63.6715 -20.5432,63.6602 -20.5431,63.6427 -20.6099,63.6504 -20.6884,63.6819 -20.6702,63.6836 -20.6477,63.6825 -20.6143,63.6774 -20.5641,63.6845 -20.6373,63.7683 -20.648,63.7626 -20.713,63.7273 -20.7618,63.7156 -20.805,63.712 -20.8319,63.723 -20.8609,63.7332 -20.9064,63.7445 -20.9726,63.7547 -21.02,63.7599 -21.0333,63.7633 -21.0754,63.7763 -21.1213,63.7924 -21.1392,63.801 -21.1517,63.8459 -21.1427,63.8509 -21.109,63.8555 -21.0892,63.8514 -21.0733,63.8501 -21.0106,63.8609 -21.128,63.8753 -21.1488,63.8759 -21.1613,63.8745 -21.2187,63.8635 -21.258,63.8392 -21.2774,63.8085 -21.3271,63.7886 -21.3889,63.7705 -21.5761,63.7453 -21.5967,63.7442 -21.6121,63.746 -21.6396,63.7566 -21.6614,63.7657 -21.8109,63.7741 -21.8866,63.7622 -21.9037,63.7609 -22.003,63.756 -22.0983,63.7559 -22.2053,63.7712 -22.2821,63.7817 -22.3758,63.7685 -22.6281,63.726 -22.6415,63.7258 -22.6742,63.7467 -22.695,63.9039 -22.6806,63.9849 -22.6704,63.9938 -22.6553,64.0028 -22.6432,64.0051 -22.6291,64.0024 -22.6162,63.999 -22.5988,63.9931 -22.5889,63.9882 -22.5451,63.9652 -22.5212,63.9468 -22.5106,63.9317 -22.5006,63.9146 -22.4784,63.8992 -22.4102,63.8964 -22.3552,63.8959 -22.3411,63.9007 -22.3467,63.9138 -22.326,63.9319 -22.2083,63.9501 -22.1966,63.9487 -22.1706,63.9422 -22.1547,63.9381 -22.1424,63.9388 -22.0017,63.9675 -21.9258,63.9892 -21.8718,64.0289 -21.8958,64.044 -21.9307,64.0665 -21.9296,64.0777 -21.8271,64.0783 -21.7787,64.075 -21.7076,64.0842 -21.659,64.1035 -21.7647,64.1529 -21.7799,64.1549 -21.798,64.1552 -21.8324,64.1535 -21.7925,64.2044 -21.716,64.2606 -21.7054,64.2653 -21.6103,64.2871 -21.5812,64.294 -21.5398,64.3013 -21.5263,64.2867 -21.5068,64.2849 -21.4461,64.2822 -21.3925,64.2888 -21.3205,64.3054 -21.3275,64.3089 -21.4349,64.3161 -21.5849,64.3228 -21.6032,64.3231 -21.6346,64.3213 -21.6928,64.3061 -21.7068,64.3005 -21.7461,64.2788 -21.7503,64.2681 -21.7666,64.2591 -21.8951,64.2247 -21.9382,64.2165 -21.9787,64.2163 -22.0554,64.2327 -21.9811,64.3391 -21.9808,64.3637 -21.9351,64.4211 -21.7393,64.4975 -21.6623,64.5272 -21.648,64.5284 -21.6085,64.5269 -21.6014,64.5074 -21.5654,64.5085 -21.5407,64.491 -21.454,64.4861 -21.5247,64.497 -21.5362,64.5267 -21.563,64.5298 -21.6091,64.5339 -21.6214,64.5338 -21.6347,64.5359 -21.5622,64.5639 -21.5167,64.5604 -21.4704,64.5641 -21.5707,64.57 -21.6579,64.5478 -21.9087,64.4718 -21.9848,64.4413 -22.0434,64.3887 -22.1226,64.3741 -22.1337,64.3759 -22.1607,64.3903 -22.3079,64.4786 -22.3654,64.5705 -22.2823,64.6094 -22.2696,64.6135 -22.2553,64.6241 -22.2806,64.6771 -22.3626,64.7321 -22.4908,64.7239 -22.6322,64.7196 -22.6454,64.7232 -22.8219,64.7208 -22.8325,64.7203 -22.9058,64.7153 -23.0018,64.7143 -23.0945,64.7181 -23.1192,64.7204 -23.1541,64.7273 -23.2064,64.7411 -23.2203,64.7439 -23.2406,64.7459 -23.3456,64.7427 -23.4802,64.7305 -23.5838,64.6914 -23.5852,64.6759 -23.5979,64.6638 -23.6166,64.6576 -23.7884,64.6455 -23.8,64.6472 -23.8575,64.6603 -23.8706,64.6665 -23.8971,64.6845 -23.971,64.7452 -24.0011,64.7747 -24.0117,64.8102 -23.8958,64.8362 -23.8246,64.8441 -23.7863,64.8467 -23.7684,64.8417 -23.7299,64.8315 -23.7036,64.8242 -23.6694,64.8165 -23.6483,64.8124 -23.6227,64.8109 -23.6021,64.8117 -23.5871,64.8151 -23.5006,64.8378 -23.4902,64.8486 -23.4754,64.8602 -23.4568,64.8662 -23.3117,64.8855 -23.1914,64.9114 -23.1738,64.9239 -23.1587,64.9317 -23.1436,64.9351 -22.93,64.9303 -22.9137,64.9234 -22.5698,64.9417 -22.5514,64.95 -22.52,64.9611 -22.4803,64.9699 -22.3107,64.9784 -22.2781,64.9752 -22.2326,64.9683 -22.1817,64.9564 -22.128,64.9474 -22.1025,64.9456 -21.9051,64.945 -21.792,64.9493 -21.7564,64.9793 -21.6849,65.0777 -21.6853,65.0926 -21.6929,65.1157 -21.7155,65.122 -21.7433,65.1228 -21.7646,65.1217 -21.7831,65.1155 -21.7931,65.1044 -21.7922,65.0926 -21.8351,65.0743 -21.8696,65.0609 -21.9501,65.0341 -21.9928,65.028 -22.0302,65.0236 -22.2352,65.0457 -22.4992,65.0765 -22.5148,65.0871 -22.4599,65.1474 -22.3544,65.1923 -22.3088,65.2074 -22.2658,65.2183 -22.2326,65.2234 -22.1886,65.2287 -22.173,65.2306 -22.1158,65.2451 -22.0122,65.2807 -21.98,65.2945 -21.938,65.3126 -21.8717,65.3324 -21.8134,65.339 -21.7744,65.3407 -21.7428,65.342 -21.719,65.3471 -21.6618,65.3662 -21.6618,65.3662 15,-9.0,United States -164.4409,66.4503 -164.4437,66.4418 -164.528,66.4215 -164.5407,66.4187 -164.7116,66.3933 -165.0277,66.3424 -165.1319,66.3293 -165.1173,66.3376 -165.0965,66.3437 -165.084,66.3463 -164.8083,66.3974 -164.7811,66.4022 -164.6836,66.4179 -164.4409,66.4503 -164.4409,66.4503 31,-4.0,Canada -66.6847,66.3045 -66.6653,66.292 -66.6464,66.2855 -66.5913,66.2715 -66.5699,66.266 -66.5427,66.2618 -66.5267,66.2601 -66.5146,66.2596 -66.5041,66.257 -66.4882,66.2515 -66.4491,66.2368 -66.4391,66.2289 -66.4563,66.2101 -66.47,66.203 -66.488,66.1971 -66.5065,66.1959 -66.5213,66.1966 -66.532,66.1994 -66.5435,66.2032 -66.5657,66.2142 -66.6062,66.2328 -66.7069,66.279 -66.7696,66.2931 -66.7797,66.2964 -66.8085,66.3114 -66.8206,66.3245 -66.8082,66.3301 -66.7159,66.3183 -66.6902,66.3117 -66.6847,66.3045 -66.6847,66.3045 31,-5.0,Canada -82.767,66.1678 -82.8251,66.1176 -82.8394,66.1118 -82.8512,66.1117 -82.9116,66.1132 -82.9246,66.1156 -83.0942,66.1638 -83.1213,66.1747 -83.1281,66.1844 -83.1289,66.2302 -83.1156,66.2454 -83.0991,66.2579 -83.0829,66.2615 -83.0576,66.2563 -83.0468,66.2518 -83.0356,66.2332 -83.0019,66.2026 -82.8986,66.172 -82.8864,66.1716 -82.8745,66.1719 -82.8623,66.1732 -82.851,66.1757 -82.8282,66.1825 -82.7924,66.189 -82.7686,66.1918 -82.7447,66.1927 -82.735,66.1855 -82.7462,66.1762 -82.7614,66.1686 -82.767,66.1678 -82.767,66.1678 14,-4.0,Canada -62.1049,66.1858 -62.0577,66.1536 -62.073,66.1335 -62.2784,66.1351 -62.2918,66.1374 -62.3015,66.1476 -62.2923,66.1544 -62.1929,66.1859 -62.1755,66.1915 -62.156,66.1952 -62.1353,66.1969 -62.1196,66.1944 -62.1049,66.1858 -62.1049,66.1858 15,-9.0,United States -165.8736,66.1256 -165.9507,66.1068 -166.2299,66.0396 -166.2504,66.0333 -166.3258,66.0222 -166.261,66.0505 -166.1287,66.0915 -166.106,66.0976 -166.045,66.1108 -165.9837,66.1242 -165.9185,66.1365 -165.8857,66.1398 -165.8441,66.1395 -165.8736,66.1256 -165.8736,66.1256 18,2.0,Norway 12.2756,65.9271 12.2679,65.9297 12.3184,65.9948 12.4561,66.0486 12.4068,66.0802 12.4605,66.1072 12.5283,66.1314 12.5379,66.1345 12.5509,66.1322 12.5786,66.1074 12.6303,66.0182 12.618,66.0031 12.5067,65.9715 12.4323,65.9553 12.3825,65.9499 12.3277,65.9395 12.2756,65.9271 12.2756,65.9271 85,-5.0,Canada -83.7515,65.9269 -83.5616,65.865 -83.5367,65.8512 -83.5249,65.8418 -83.5129,65.8231 -83.5204,65.784 -83.5307,65.7688 -83.5451,65.7586 -83.5558,65.7542 -83.5669,65.751 -83.5585,65.717 -83.3568,65.6551 -83.1923,65.6452 -83.1804,65.6446 -83.0836,65.6346 -83.0592,65.6319 -83.0453,65.6259 -83.0877,65.5697 -83.1213,65.5506 -83.1321,65.547 -83.1437,65.5448 -83.1774,65.5387 -83.2115,65.5333 -83.2277,65.5368 -83.2413,65.5503 -83.2521,65.5571 -83.2629,65.5617 -83.2755,65.5658 -83.3009,65.5725 -83.325,65.5756 -83.3371,65.5759 -83.3606,65.576 -83.4306,65.574 -83.4921,65.565 -83.6613,65.5626 -83.6758,65.5693 -83.6794,65.5885 -83.672,65.5963 -83.6211,65.6395 -83.6063,65.6454 -83.5721,65.6507 -83.5268,65.6584 -83.5175,65.6682 -83.6165,65.7062 -83.6287,65.707 -83.64,65.7053 -83.6809,65.6979 -83.7366,65.6849 -83.7585,65.677 -83.769,65.6619 -83.7797,65.6576 -83.7908,65.6551 -83.8026,65.6549 -83.8148,65.6559 -83.9017,65.6673 -83.9509,65.6758 -83.964,65.6782 -83.9735,65.688 -83.9446,65.7099 -83.9326,65.7322 -83.9537,65.8176 -84.0234,65.8879 -84.0384,65.8944 -84.116,65.9163 -84.1289,65.9195 -84.1408,65.9202 -84.1529,65.9193 -84.1873,65.9148 -84.1994,65.9142 -84.2122,65.9177 -84.2533,65.9452 -84.2653,65.9542 -84.2966,65.9832 -84.2991,66.0063 -84.2995,66.0474 -84.2889,66.0569 -84.2621,66.0556 -84.2102,66.0458 -84.1969,66.0425 -84.0695,66.015 -83.976,65.9981 -83.8694,65.9938 -83.8317,65.9504 -83.7515,65.9269 -83.7515,65.9269 12,-2.0,Greenland -53.5248,65.9627 -53.5695,65.9965 -53.5638,66.0065 -53.55,66.0126 -53.4907,66.0169 -53.3341,66.0066 -53.3189,65.9994 -53.4168,65.9595 -53.501,65.9549 -53.5132,65.9551 -53.5248,65.9627 -53.5248,65.9627 42,-5.0,Canada -84.7386,65.9169 -84.7136,65.8602 -84.6365,65.8129 -84.5841,65.7705 -84.5451,65.7347 -84.5428,65.722 -84.5371,65.7101 -84.4669,65.6298 -84.4274,65.6141 -84.4166,65.6097 -84.4043,65.5567 -84.4061,65.5469 -84.415,65.5367 -84.4285,65.5262 -84.4979,65.4783 -84.5525,65.4639 -84.5639,65.4625 -84.576,65.4638 -84.6145,65.4746 -84.6333,65.4833 -84.6584,65.4966 -84.6705,65.5059 -84.6774,65.5153 -84.6823,65.527 -84.6876,65.5659 -84.6956,65.5775 -84.7077,65.5868 -84.7294,65.5956 -84.8575,65.6294 -84.8916,65.6409 -84.9066,65.6476 -84.9357,65.6679 -84.9464,65.6821 -85.0099,65.8625 -85.0009,65.9117 -84.9683,65.9391 -84.9095,65.9435 -84.8856,65.9429 -84.7658,65.9274 -84.753,65.925 -84.7386,65.9169 -84.7386,65.9169 32,2.0,Norway 12.4135,65.7814 12.4546,65.8066 12.4285,65.8139 12.4151,65.8132 12.3902,65.811 12.3996,65.8413 12.4369,65.8885 12.4479,65.8944 12.4815,65.9074 12.5091,65.9166 12.528,65.9226 12.5484,65.9275 12.5707,65.9317 12.5959,65.9343 12.6097,65.9349 12.8414,65.938 12.8565,65.9377 12.8726,65.9281 12.8531,65.9154 12.8092,65.9072 12.7843,65.9046 12.7622,65.9003 12.6591,65.8749 12.6494,65.8719 12.5635,65.8378 12.539,65.8267 12.5206,65.8165 12.5065,65.8035 12.4616,65.7874 12.4397,65.7834 12.4135,65.7814 12.4135,65.7814 18,-2.0,Greenland -36.6265,65.7078 -36.6385,65.7097 -36.6641,65.7214 -36.6746,65.8246 -36.6517,65.836 -36.6068,65.849 -36.5625,65.8605 -36.5272,65.8676 -36.4927,65.8744 -36.4693,65.877 -36.4457,65.8767 -36.4287,65.8683 -36.4317,65.8499 -36.4379,65.8306 -36.5167,65.7303 -36.5461,65.7126 -36.6265,65.7078 -36.6265,65.7078 347,-5.0,Canada -85.3185,65.8482 -85.3049,65.8368 -85.3164,65.7957 -85.3387,65.7749 -85.3494,65.7504 -85.3462,65.7284 -85.3297,65.717 -85.3022,65.7088 -85.2786,65.7102 -85.2468,65.7221 -85.2306,65.7385 -85.2037,65.7525 -85.1513,65.7484 -85.1165,65.744 -85.091,65.7385 -85.042,65.7254 -85.0225,65.7167 -84.9879,65.6965 -84.8807,65.5324 -84.9169,65.5032 -84.9491,65.4927 -84.9713,65.4877 -85.0046,65.4811 -85.0666,65.472 -85.1056,65.4744 -85.1345,65.46 -85.1001,65.4296 -85.0696,65.4161 -85.0331,65.4038 -84.9949,65.3931 -84.9572,65.384 -84.9179,65.3717 -84.8647,65.3502 -84.8428,65.3341 -84.8318,65.3172 -84.8349,65.2952 -84.8413,65.2703 -84.7581,65.1303 -84.7365,65.1247 -84.6546,65.1324 -84.6268,65.1426 -84.5804,65.2217 -84.5893,65.2519 -84.5734,65.272 -84.4182,65.3965 -84.3861,65.3979 -84.2644,65.3696 -84.1456,65.3 -84.1232,65.2953 -83.9848,65.2542 -84.0295,65.2132 -84.059,65.1931 -83.9731,65.1386 -83.9204,65.1223 -83.7326,65.084 -83.7086,65.0812 -83.6853,65.0801 -83.4998,65.0793 -83.4537,65.0792 -83.3673,65.0818 -83.2421,65.0542 -83.2172,65.0406 -83.171,64.9863 -83.1758,64.9593 -83.1592,64.9359 -83.0358,64.8624 -82.9911,64.8592 -82.8336,64.8308 -82.6885,64.7862 -82.6604,64.752 -82.6359,64.7283 -82.5995,64.7131 -82.5387,64.6947 -82.4056,64.6834 -82.1917,64.6814 -82.0435,64.6307 -82.0544,64.6182 -82.0406,64.6043 -81.9015,64.5683 -81.77,64.5042 -81.6009,64.4211 -81.5905,64.4 -81.5914,64.276 -81.6053,64.2588 -81.6151,64.2368 -81.5873,64.1939 -81.5657,64.1787 -81.5463,64.1683 -81.5081,64.1535 -81.4846,64.1461 -81.4563,64.1351 -81.4327,64.1102 -81.4454,64.0487 -81.5564,64.0204 -81.6026,64.0097 -81.6627,64.0073 -81.7173,64.0018 -81.804,63.976 -81.8278,63.9177 -81.7966,63.9094 -81.7688,63.9091 -81.7359,63.9111 -81.7142,63.9125 -81.3997,63.9505 -81.2796,63.9887 -81.2228,64.0115 -81.1214,63.9997 -81.0986,63.9835 -80.805,63.9131 -80.7829,63.9116 -80.7576,63.9186 -80.7535,63.9455 -80.7887,63.9596 -80.8125,63.9762 -80.7759,64.0327 -80.7309,64.0365 -80.6528,64.0118 -80.6178,64.0002 -80.5755,63.9749 -80.4071,63.915 -80.37,63.9019 -80.3344,63.8285 -80.4086,63.8104 -80.2944,63.7805 -80.2046,63.7625 -80.0594,63.7313 -80.0364,63.7257 -80.0165,63.6926 -80.0326,63.6716 -80.1941,63.6499 -80.2166,63.6555 -80.2384,63.6562 -80.276,63.6524 -80.2958,63.649 -80.3312,63.6342 -80.3526,63.6038 -80.4292,63.5572 -80.4503,63.5498 -80.6158,63.495 -80.7586,63.4455 -80.7766,63.4306 -80.7743,63.4027 -80.8045,63.3785 -80.8304,63.3729 -80.8521,63.371 -80.8738,63.3705 -80.8953,63.371 -80.9174,63.3732 -80.9509,63.3801 -81.2263,63.4481 -81.5335,63.529 -81.5734,63.547 -81.6052,63.5584 -81.6411,63.5628 -81.6626,63.5612 -81.6945,63.5542 -81.7211,63.5514 -81.7485,63.5537 -81.8342,63.5825 -81.8578,63.5932 -81.8749,63.6049 -81.8968,63.6116 -81.9461,63.6138 -81.968,63.6133 -82.0579,63.6086 -82.1331,63.5935 -82.1525,63.5756 -82.1839,63.5737 -82.3175,63.6051 -82.3728,63.6479 -82.3859,63.6704 -82.3753,63.6963 -82.3469,63.7141 -82.3164,63.7279 -82.2613,63.7415 -82.2213,63.7388 -82.1903,63.7783 -82.2042,63.8286 -82.2513,63.8479 -82.3631,63.887 -82.3859,63.8901 -82.6652,63.9006 -82.809,63.8852 -82.9003,63.8729 -82.9292,63.8782 -82.9624,63.8961 -82.9785,63.9246 -82.9317,63.9494 -82.8588,64.0006 -82.8331,64.0212 -82.8116,64.0413 -82.7983,64.0636 -82.85,64.1087 -82.9084,64.1072 -82.941,64.1024 -82.9623,64.0963 -82.9929,64.0836 -83.175,64.0553 -83.3234,64.0432 -83.3602,64.0335 -83.3835,64.0231 -83.513,63.9319 -83.5062,63.9092 -83.4776,63.8909 -83.461,63.877 -83.4418,63.8549 -83.4317,63.7445 -83.4701,63.6922 -83.4996,63.6868 -83.5298,63.6972 -83.5538,63.7015 -83.581,63.6997 -83.6593,63.6688 -83.8447,63.5868 -83.8591,63.5693 -83.8851,63.5485 -83.9093,63.5358 -83.9292,63.5282 -83.9504,63.5255 -83.9732,63.5303 -84.0026,63.543 -84.0308,63.5464 -84.0954,63.5424 -84.1203,63.5373 -84.2271,63.4771 -84.2828,63.4047 -84.2823,63.3704 -84.3117,63.3058 -84.3976,63.2596 -84.5884,63.1865 -84.6082,63.1794 -84.6278,63.1725 -84.6569,63.1595 -84.6757,63.1493 -84.7046,63.1365 -84.7246,63.1295 -84.977,63.0625 -85.0577,63.0432 -85.0782,63.0409 -85.0995,63.0401 -85.1212,63.0406 -85.1765,63.0452 -85.209,63.0464 -85.2298,63.0454 -85.282,63.0392 -85.3236,63.0425 -85.3728,63.0591 -85.4167,63.0938 -85.4711,63.1697 -85.4803,63.2575 -85.4844,63.3405 -85.472,63.373 -85.454,63.396 -85.438,63.4235 -85.4246,63.5485 -85.4419,63.5892 -85.5488,63.6377 -85.7106,63.6263 -85.8168,63.6147 -85.8481,63.6098 -86.0141,63.5745 -86.0548,63.5643 -86.0755,63.5611 -86.0975,63.5596 -86.1307,63.5612 -86.1765,63.5671 -86.2115,63.5737 -86.2802,63.5822 -86.3881,63.5921 -86.4258,63.59 -86.4565,63.5833 -86.4959,63.5697 -86.5241,63.5552 -86.5635,63.5284 -86.5888,63.512 -86.6076,63.5027 -86.6368,63.4932 -86.6723,63.4839 -86.7086,63.4774 -86.7515,63.4746 -86.8797,63.4713 -86.9184,63.4726 -86.9473,63.4774 -86.9745,63.4877 -87.0167,63.5116 -87.0485,63.5487 -87.0545,63.5678 -87.0487,63.5924 -87.0341,63.6205 -87.0151,63.6435 -86.9894,63.6649 -86.7676,63.8243 -86.7441,63.8354 -86.7047,63.8496 -86.613,63.8778 -86.5926,63.8833 -86.5292,63.8931 -86.4978,63.8994 -86.3331,63.9392 -86.2432,63.9696 -86.0849,63.9971 -86.0556,64.0024 -86.0263,64.0173 -86.0092,64.0498 -86.0418,64.0991 -86.0827,64.1212 -86.1033,64.1295 -86.1348,64.1459 -86.1838,64.2103 -86.2131,64.2848 -86.2303,64.3592 -86.2123,64.485 -86.1974,64.5493 -86.144,64.6208 -86.1011,64.6876 -86.0707,64.7201 -86.0442,64.7336 -86.0124,64.7373 -85.9825,64.8448 -86.0127,64.8773 -86.0453,64.8879 -86.0545,64.9109 -86.0357,64.9604 -86.0157,64.986 -85.9934,64.9994 -85.9695,65.0116 -85.9636,65.1013 -85.972,65.1318 -85.9921,65.1686 -85.9987,65.1923 -85.9791,65.3078 -85.9392,65.4121 -85.9249,65.4472 -85.839,65.6296 -85.8133,65.6546 -85.7153,65.7175 -85.6594,65.7499 -85.6182,65.7705 -85.5975,65.7795 -85.5554,65.7966 -85.5236,65.8091 -85.448,65.8348 -85.3924,65.8475 -85.3696,65.8506 -85.3277,65.8505 -85.3185,65.8482 -85.3185,65.8482 17,-2.0,Greenland -36.2828,65.7379 -36.2945,65.7391 -36.3099,65.7531 -36.3053,65.7824 -36.2932,65.7973 -36.278,65.8039 -36.2098,65.8295 -36.1995,65.8331 -36.1879,65.8351 -36.1764,65.8354 -36.1623,65.8315 -36.1146,65.7944 -36.1301,65.781 -36.1392,65.776 -36.2464,65.7391 -36.2828,65.7379 -36.2828,65.7379 59,-2.0,Greenland -37.667,65.4865 -37.7034,65.492 -37.7747,65.4928 -37.7897,65.4909 -37.8347,65.5038 -37.8588,65.5129 -37.8679,65.5267 -37.9116,65.6197 -37.8777,65.7143 -37.752,65.7836 -37.7422,65.7876 -37.7198,65.7939 -37.6106,65.8214 -37.5992,65.8221 -37.5765,65.8201 -37.5276,65.8134 -37.5028,65.8073 -37.4899,65.8031 -37.4682,65.788 -37.453,65.7727 -37.4347,65.7613 -37.4094,65.7536 -37.3186,65.731 -37.195,65.6755 -37.2055,65.6698 -37.2995,65.6713 -37.3169,65.6763 -37.353,65.6838 -37.3634,65.6957 -37.3984,65.7166 -37.4225,65.7194 -37.3993,65.6676 -37.3644,65.629 -37.3267,65.6265 -37.3116,65.6264 -37.2976,65.6249 -37.2789,65.6212 -37.2395,65.6093 -37.2393,65.5891 -37.3074,65.5483 -37.3186,65.5436 -37.4096,65.5251 -37.4964,65.5206 -37.5142,65.5286 -37.5302,65.5541 -37.5702,65.5657 -37.6372,65.5667 -37.632,65.5537 -37.6208,65.544 -37.6107,65.5395 -37.5979,65.5363 -37.5862,65.5345 -37.5742,65.5343 -37.5708,65.5198 -37.596,65.5006 -37.6098,65.4902 -37.6555,65.4869 -37.667,65.4865 -37.667,65.4865 28,-5.0,Canada -83.1798,65.7498 -83.2272,65.749 -83.2383,65.7476 -83.2499,65.7452 -83.2609,65.7419 -83.2719,65.7367 -83.288,65.7263 -83.3051,65.7177 -83.317,65.7183 -83.3298,65.7217 -83.3611,65.7349 -83.3906,65.7484 -83.4101,65.7597 -83.4169,65.7691 -83.4072,65.7784 -83.3915,65.7824 -83.3568,65.7854 -83.3096,65.7874 -83.2741,65.7879 -83.2018,65.784 -83.1773,65.7811 -83.165,65.7774 -83.1202,65.7538 -83.1354,65.7439 -83.1474,65.7434 -83.1593,65.7449 -83.1798,65.7498 -83.1798,65.7498 14,-2.0,Greenland -36.768,65.6513 -36.8633,65.703 -36.8683,65.7369 -36.7484,65.7857 -36.7371,65.7878 -36.7249,65.7881 -36.7128,65.7855 -36.7026,65.7813 -36.6926,65.7736 -36.6877,65.7562 -36.7132,65.6731 -36.7239,65.6681 -36.768,65.6513 -36.768,65.6513 25,-4.0,Canada -62.1333,65.6463 -62.145,65.6406 -62.172,65.6261 -62.1387,65.6181 -62.1128,65.6201 -62.0959,65.6256 -62.0788,65.6294 -62.0612,65.6296 -62.0425,65.6204 -62.0049,65.5942 -62.0087,65.5721 -62.0173,65.5626 -62.0735,65.5291 -62.0946,65.5281 -62.1717,65.5429 -62.3292,65.5778 -62.3403,65.5814 -62.3581,65.6416 -62.3563,65.6524 -62.3407,65.6618 -62.1585,65.6621 -62.1464,65.6616 -62.1283,65.6582 -62.1333,65.6463 -62.1333,65.6463 17,-2.0,Greenland -36.9493,65.5035 -37.018,65.5215 -37.0304,65.5248 -37.0393,65.5298 -37.1324,65.5876 -37.1381,65.5995 -37.1263,65.6062 -37.016,65.6438 -37.0051,65.6469 -36.9928,65.6445 -36.9178,65.6188 -36.8633,65.5914 -36.8356,65.5617 -36.9211,65.5024 -36.9329,65.5015 -36.9493,65.5035 -36.9493,65.5035 20,2.0,Norway 11.8769,65.5009 11.8759,65.5157 11.8392,65.5293 11.7807,65.5269 11.768,65.5215 11.7548,65.5225 11.7375,65.531 11.746,65.5528 11.7551,65.5639 11.769,65.5808 11.7793,65.5911 11.7909,65.6008 11.807,65.6083 11.8707,65.622 11.8842,65.6226 11.9733,65.6142 11.9827,65.5951 11.9502,65.5445 11.8769,65.5009 11.8769,65.5009 20,-2.0,Greenland -53.0815,65.4916 -53.0917,65.4952 -53.1207,65.5092 -53.1241,65.5189 -53.0973,65.536 -53.0589,65.5495 -52.9081,65.5747 -52.8841,65.5755 -52.8324,65.5742 -52.7691,65.5717 -52.7556,65.5703 -52.742,65.5608 -52.742,65.5467 -52.7557,65.5252 -52.7932,65.4934 -52.8885,65.4667 -52.9453,65.4641 -53.0639,65.4757 -53.0815,65.4916 -53.0815,65.4916 24,2.0,Norway 12.0389,65.1283 12.0562,65.1494 12.0719,65.1718 12.0886,65.1951 12.0985,65.2153 12.15,65.3211 12.1754,65.3898 12.1981,65.46 12.223,65.4876 12.2336,65.4941 12.2471,65.4946 12.2622,65.49 12.3715,65.4236 12.4171,65.3875 12.478,65.3101 12.4637,65.2978 12.3491,65.2563 12.2184,65.1943 12.164,65.164 12.1249,65.1493 12.0617,65.132 12.0512,65.13 12.0389,65.1283 12.0389,65.1283 17,-2.0,Greenland -52.8223,65.3435 -52.8334,65.3432 -52.8478,65.3463 -52.8966,65.3634 -52.9067,65.3675 -52.9451,65.3845 -52.974,65.3983 -52.9801,65.413 -52.9677,65.4182 -52.8635,65.4437 -52.8522,65.4452 -52.8381,65.4432 -52.766,65.429 -52.7921,65.3574 -52.8059,65.3478 -52.8223,65.3435 -52.8223,65.3435 23,-2.0,Greenland -39.5227,65.193 -39.6108,65.2268 -39.623,65.23 -39.671,65.2351 -39.6946,65.2359 -39.7063,65.2356 -39.72,65.24 -39.724,65.2534 -39.7023,65.2784 -39.6912,65.2862 -39.6582,65.2892 -39.6468,65.2892 -39.4451,65.2544 -39.433,65.2522 -39.417,65.2417 -39.416,65.2063 -39.4303,65.1912 -39.4408,65.1866 -39.4635,65.1836 -39.4854,65.1842 -39.4976,65.1866 -39.5227,65.193 -39.5227,65.193 20,2.0,Norway 12.1055,64.9693 11.9885,64.9879 11.9605,64.9935 12.0713,65.099 12.1336,65.1212 12.1473,65.1254 12.1594,65.1269 12.1719,65.1245 12.1858,65.1169 12.2257,65.0929 12.2376,65.0848 12.2891,65.0215 12.2766,65.0107 12.2607,65.0031 12.2421,64.9975 12.1946,64.984 12.1748,64.9787 12.1321,64.9703 12.1055,64.9693 12.1055,64.9693 27,3.0,Russia 35.7407,65.0992 35.7663,65.0839 35.7718,65.0737 35.7922,64.9923 35.7978,64.951 35.7952,64.9301 35.7886,64.9178 35.7802,64.9121 35.77,64.9069 35.746,64.8996 35.7196,64.8925 35.6783,64.8845 35.6684,64.8875 35.5128,64.992 35.4973,65.0028 35.4707,65.0225 35.4543,65.0454 35.4507,65.0645 35.4541,65.0773 35.4622,65.0833 35.4827,65.0931 35.4948,65.0972 35.6254,65.1112 35.7034,65.1106 35.72,65.1075 35.7407,65.0992 35.7407,65.0992 24,3.0,Finland 24.9502,64.9448 24.9115,64.9437 24.7972,64.9228 24.771,64.8832 24.6859,64.8637 24.6736,64.8634 24.6584,64.8658 24.5509,64.8831 24.5369,64.8919 24.5194,64.9099 24.503,64.944 24.5097,64.9527 24.5712,64.9767 24.5968,64.9824 24.629,64.9875 24.6518,64.99 24.7593,64.9969 24.7842,64.9975 24.7985,64.9958 24.9691,64.9625 24.9828,64.9575 24.9754,64.9479 24.9502,64.9448 24.9502,64.9448 20,2.0,Norway 10.7185,64.7691 10.7098,64.7833 10.7242,64.8201 10.7321,64.8277 10.7563,64.8383 10.7727,64.8388 10.8456,64.8468 10.9485,64.87 10.9786,64.8772 10.9988,64.8844 11.0058,64.901 11.02,64.9071 11.0333,64.9062 11.0709,64.9015 11.0852,64.8966 11.0913,64.8878 10.794,64.7832 10.7424,64.7721 10.7185,64.7691 10.7185,64.7691 16,2.0,Norway 11.1068,64.7489 11.0409,64.7677 10.9297,64.789 10.8845,64.7744 10.8743,64.7719 10.8181,64.763 10.8035,64.7671 10.8199,64.7763 10.888,64.8025 11.0889,64.8695 11.241,64.8073 11.195,64.7767 11.1639,64.7654 11.1187,64.7506 11.1068,64.7489 11.1068,64.7489 43,-2.0,Greenland -40.1113,64.3508 -40.127,64.3598 -40.1379,64.3641 -40.1617,64.3684 -40.1975,64.3712 -40.3001,64.3806 -40.3477,64.3908 -40.3925,64.4028 -40.4063,64.4091 -40.4174,64.4179 -40.4487,64.4763 -40.4634,64.5151 -40.4718,64.5507 -40.4911,64.6021 -40.5211,64.6299 -40.5954,64.6689 -40.6818,64.7114 -40.707,64.7272 -40.7233,64.7436 -40.7498,64.7757 -40.7843,64.8204 -40.7801,64.8303 -40.7665,64.8362 -40.7129,64.849 -40.69,64.8525 -40.679,64.8534 -40.6673,64.8534 -40.6292,64.8417 -40.5209,64.8018 -40.4619,64.7637 -40.364,64.6693 -40.431,64.6414 -40.2873,64.4747 -40.2637,64.4719 -40.2295,64.4666 -40.1934,64.4597 -40.169,64.4533 -40.1575,64.4485 -40.0735,64.4119 -40.0664,64.4023 -40.1002,64.3515 -40.1113,64.3508 -40.1113,64.3508 25,12.0,Russia -172.3334,64.651 -172.2894,64.672 -172.2418,64.7153 -172.2351,64.7292 -172.2302,64.7401 -172.214,64.7551 -172.1884,64.7625 -172.1135,64.7783 -172.0973,64.7807 -172.0819,64.7809 -171.9741,64.7707 -171.9606,64.7677 -171.8293,64.7148 -171.8254,64.6923 -172.0499,64.6456 -172.0664,64.6431 -172.0988,64.6376 -172.2479,64.6229 -172.2648,64.6224 -172.2823,64.6232 -172.2961,64.6261 -172.3059,64.6311 -172.3236,64.642 -172.3334,64.651 -172.3334,64.651 55,3.0,Russia 40.2684,64.6778 40.3324,64.5735 40.375,64.532 40.3972,64.496 40.3912,64.4861 40.3754,64.4848 40.3549,64.4867 40.339,64.4897 40.3073,64.5037 40.2944,64.5077 40.263,64.5141 40.2455,64.5139 40.2298,64.5125 40.2157,64.5098 40.1683,64.5057 40.1508,64.5056 40.1198,64.5123 40.1032,64.5225 40.0743,64.5382 39.9725,64.5786 39.9592,64.5824 39.9436,64.5858 39.9093,64.5916 39.8969,64.5992 39.8988,64.6097 39.9082,64.6152 39.9223,64.618 39.9792,64.6156 39.9976,64.6133 40.0639,64.5938 40.0745,64.5888 40.0811,64.5752 40.0975,64.5647 40.1109,64.561 40.1291,64.5586 40.1478,64.5577 40.1652,64.5578 40.181,64.5593 40.1953,64.5619 40.2045,64.5672 40.2127,64.5781 40.2114,64.5932 40.1952,64.6154 40.1809,64.6267 40.1649,64.6375 40.1326,64.6513 40.1192,64.6552 40.0686,64.6682 40.1787,64.6842 40.2133,64.6851 40.2309,64.685 40.2502,64.6844 40.2635,64.6805 40.2684,64.6778 40.2684,64.6778 28,-4.0,Canada -65.1366,64.6129 -65.1203,64.5836 -65.0788,64.5554 -65.0843,64.5458 -65.0984,64.5401 -65.18,64.5205 -65.2904,64.4746 -65.3245,64.4466 -65.339,64.4391 -65.3627,64.4377 -65.528,64.4297 -65.5394,64.4302 -65.5528,64.434 -65.5597,64.4422 -65.5582,64.4545 -65.5423,64.4806 -65.5299,64.4938 -65.5207,64.5006 -65.4855,64.5189 -65.4287,64.537 -65.417,64.5423 -65.3166,64.6015 -65.3059,64.6161 -65.2521,64.6368 -65.1626,64.6551 -65.1269,64.6242 -65.1366,64.6129 -65.1366,64.6129 18,12.0,Russia -172.4075,64.5913 -172.3556,64.5948 -172.3187,64.5941 -172.1902,64.5811 -172.1765,64.5786 -172.1665,64.5735 -172.1489,64.5513 -172.1883,64.5367 -172.2022,64.5334 -172.2209,64.5314 -172.2551,64.5331 -172.2861,64.537 -172.3305,64.5442 -172.3579,64.5497 -172.4085,64.5638 -172.4141,64.5761 -172.4075,64.5913 -172.4075,64.5913 19,2.0,Norway 11.3954,64.3922 11.3847,64.398 11.2605,64.4297 11.2482,64.4314 11.2337,64.4317 11.2105,64.4285 11.1895,64.4244 11.1766,64.4238 11.1639,64.4244 11.1536,64.4272 11.018,64.5201 11.0163,64.5363 11.0191,64.5515 11.0522,64.569 11.065,64.5699 11.2278,64.5193 11.4301,64.4386 11.3954,64.3922 11.3954,64.3922 20,-5.0,Canada -73.3633,64.4724 -73.3582,64.4584 -73.343,64.3788 -73.3435,64.3619 -73.4107,64.2343 -73.4323,64.2303 -73.4561,64.2308 -73.4805,64.2333 -73.507,64.2392 -73.5125,64.2552 -73.5235,64.347 -73.4645,64.3906 -73.5366,64.43 -73.5329,64.4494 -73.5207,64.4554 -73.4314,64.4801 -73.3915,64.4876 -73.3788,64.4849 -73.3633,64.4724 -73.3633,64.4724 29,-2.0,Greenland -51.0081,64.4697 -51.0367,64.4515 -51.0554,64.4365 -51.0664,64.4252 -51.0739,64.4091 -51.0764,64.3987 -51.1097,64.356 -51.1198,64.3453 -51.133,64.3334 -51.1561,64.3163 -51.1766,64.3044 -51.1906,64.2988 -51.2113,64.295 -51.2218,64.2938 -51.246,64.2932 -51.2571,64.2943 -51.2703,64.2968 -51.2803,64.3001 -51.3152,64.314 -51.3193,64.3337 -51.2347,64.4133 -51.2189,64.4242 -51.1537,64.4617 -51.1251,64.4762 -51.0381,64.4862 -51.0261,64.4872 -50.9911,64.4842 -51.0081,64.4697 -51.0081,64.4697 39,-2.0,Greenland -50.7066,64.4426 -50.7066,64.437 -50.7082,64.4192 -50.7152,64.4033 -50.7232,64.3951 -50.7412,64.3854 -50.7603,64.3803 -50.7925,64.3748 -50.8111,64.369 -50.8331,64.3605 -50.8699,64.3378 -50.9249,64.2973 -51.0258,64.22 -51.0325,64.2091 -51.0332,64.1961 -51.037,64.1808 -51.0499,64.1734 -51.1338,64.1362 -51.1497,64.1346 -51.1629,64.1356 -51.1878,64.1402 -51.2375,64.1618 -51.2409,64.1712 -51.233,64.1817 -51.156,64.2115 -51.1046,64.2513 -51.0382,64.3076 -50.9801,64.3658 -50.9266,64.4344 -50.9309,64.4563 -50.9239,64.4696 -50.9054,64.4771 -50.8953,64.4793 -50.8839,64.4795 -50.8716,64.479 -50.7613,64.472 -50.721,64.4638 -50.7066,64.4426 -50.7066,64.4426 15,-5.0,Canada -74.1632,64.419 -74.1381,64.4017 -74.0816,64.3711 -74.059,64.3677 -74.0359,64.3631 -74.0279,64.357 -74.1249,64.3337 -74.138,64.3334 -74.2102,64.3413 -74.23,64.3447 -74.2757,64.3641 -74.2907,64.3718 -74.1878,64.4161 -74.1632,64.419 -74.1632,64.419 16,-4.0,Canada -64.7691,64.3289 -64.6917,64.2997 -64.6437,64.2651 -64.7213,64.2278 -64.7332,64.228 -64.7489,64.2337 -64.7595,64.2415 -64.8092,64.2819 -64.8162,64.2908 -64.8271,64.3042 -64.8304,64.3219 -64.8205,64.3326 -64.8003,64.3381 -64.7777,64.3351 -64.7691,64.3289 -64.7691,64.3289 15,-5.0,Canada -73.585,64.3067 -73.5804,64.3016 -73.5551,64.239 -73.548,64.1935 -73.5588,64.1892 -73.5751,64.1933 -73.6081,64.2031 -73.6308,64.2153 -73.6771,64.2451 -73.6873,64.252 -73.6325,64.3268 -73.6194,64.3298 -73.6007,64.3284 -73.585,64.3067 -73.585,64.3067 14,-2.0,Greenland -51.2265,64.2353 -51.2908,64.2067 -51.4651,64.1765 -51.4762,64.1764 -51.4946,64.1845 -51.4992,64.2006 -51.4908,64.2081 -51.3422,64.2813 -51.3268,64.2842 -51.3149,64.2838 -51.3022,64.2816 -51.2214,64.2442 -51.2265,64.2353 -51.2265,64.2353 20,-4.0,Canada -64.8703,64.2748 -64.8536,64.2535 -64.7582,64.2043 -64.7985,64.1629 -64.8101,64.1562 -64.8606,64.1299 -64.8746,64.131 -64.9222,64.1393 -64.9342,64.1458 -64.9444,64.161 -64.9738,64.2168 -64.9804,64.2314 -64.9856,64.2471 -64.9844,64.2578 -64.977,64.2655 -64.9605,64.2701 -64.8965,64.2822 -64.8786,64.2804 -64.8703,64.2748 -64.8703,64.2748 19,-2.0,Greenland -41.1038,64.178 -41.1821,64.1842 -41.1932,64.1844 -41.2276,64.1829 -41.2613,64.1837 -41.273,64.1848 -41.287,64.1932 -41.2919,64.2028 -41.2663,64.2225 -41.2469,64.2318 -41.2367,64.2352 -41.2152,64.2376 -41.1924,64.2369 -41.0534,64.2139 -41.0439,64.2086 -41.0816,64.1827 -41.0917,64.1784 -41.1038,64.178 -41.1038,64.178 24,-2.0,Greenland -40.9386,64.1132 -40.9523,64.1204 -40.964,64.1371 -40.9714,64.1532 -40.9661,64.172 -40.8897,64.2068 -40.8791,64.2093 -40.8052,64.221 -40.7941,64.2225 -40.7489,64.2247 -40.7057,64.2259 -40.683,64.2264 -40.6719,64.226 -40.6376,64.2236 -40.6029,64.2165 -40.5937,64.2117 -40.599,64.1292 -40.6903,64.129 -40.8113,64.1287 -40.8454,64.1295 -40.8802,64.1301 -40.902,64.1288 -40.9386,64.1132 -40.9386,64.1132 22,-5.0,Canada -77.4718,63.9189 -77.4728,63.9143 -77.4862,63.903 -77.5331,63.8756 -77.5795,63.8514 -77.5952,63.8472 -77.7992,63.8734 -77.8132,63.8802 -77.8269,63.8935 -77.8256,63.9075 -77.7999,63.9279 -77.7896,63.932 -77.7702,63.9358 -77.7362,63.9409 -77.621,63.9526 -77.6003,63.9538 -77.4954,63.9535 -77.4378,63.951 -77.4003,63.9475 -77.392,63.9412 -77.4718,63.9189 -77.4718,63.9189 34,-4.0,Canada -64.4222,63.8166 -64.4438,63.7921 -64.4583,63.7661 -64.4489,63.7022 -64.3989,63.6926 -64.3409,63.6929 -64.3303,63.6973 -64.3026,63.6999 -64.2681,63.6673 -64.2602,63.6573 -64.2615,63.6203 -64.2774,63.6089 -64.2924,63.6013 -64.3097,63.5947 -64.3281,63.5937 -64.3474,63.6005 -64.3699,63.6123 -64.5342,63.6762 -64.6745,63.6859 -64.6855,63.6884 -64.7626,63.7109 -64.7757,63.7169 -64.7886,63.7277 -64.7915,63.7412 -64.786,63.7553 -64.7684,63.7665 -64.6837,63.7985 -64.5828,63.8299 -64.5551,63.8357 -64.5326,63.8376 -64.5198,63.8372 -64.4277,63.8294 -64.4222,63.8166 -64.4222,63.8166 19,3.0,Finland 22.8234,63.6917 22.8085,63.6984 22.7721,63.7017 22.7257,63.7053 22.7062,63.701 22.6623,63.6967 22.6292,63.713 22.6356,63.7282 22.6585,63.7418 22.7613,63.7979 22.8219,63.7955 22.8355,63.7941 22.8497,63.7901 22.8726,63.7515 22.8695,63.7405 22.8389,63.7346 22.8302,63.7245 22.8234,63.6917 22.8234,63.6917 18,-4.0,Canada -64.2074,63.7733 -64.1989,63.7715 -64.184,63.7696 -64.1416,63.7673 -64.0853,63.7728 -64.0737,63.7808 -64.0569,63.7874 -64.0466,63.7803 -64.0543,63.7067 -64.0727,63.6988 -64.1081,63.6926 -64.1193,63.6928 -64.1306,63.6954 -64.1987,63.7272 -64.2714,63.7706 -64.2271,63.7824 -64.2074,63.7733 -64.2074,63.7733 32,2.0,Norway 8.3034,63.5819 8.2907,63.5824 8.2571,63.602 8.2676,63.608 8.3096,63.6162 8.3321,63.6197 8.3446,63.6202 8.3837,63.6223 8.4381,63.6271 8.5122,63.6408 8.5221,63.6434 8.657,63.6785 8.6639,63.6909 8.7167,63.723 8.7694,63.7322 8.7806,63.7341 8.7911,63.7315 8.8104,63.6471 8.8076,63.6361 8.7996,63.6297 8.7814,63.6203 8.7576,63.6142 8.735,63.6108 8.6398,63.6011 8.4576,63.5837 8.4429,63.5877 8.4371,63.5991 8.3535,63.5933 8.3423,63.5914 8.3227,63.5867 8.3034,63.5819 8.3034,63.5819 126,-9.0,United States -170.6241,63.3506 -170.6832,63.3532 -170.7661,63.3534 -170.9059,63.321 -170.9291,63.3143 -170.9479,63.3019 -170.9688,63.2803 -170.9904,63.2622 -171.0912,63.2398 -171.1194,63.2366 -171.2131,63.25 -171.3465,63.2859 -171.3731,63.2933 -171.4022,63.3025 -171.4658,63.3384 -171.488,63.365 -171.5136,63.4304 -171.5036,63.4958 -171.4682,63.5596 -171.4268,63.5684 -171.4042,63.588 -171.3867,63.6715 -171.3913,63.7107 -171.3255,63.7114 -171.2927,63.6957 -171.2962,63.6734 -171.3063,63.6312 -171.2029,63.5354 -171.1288,63.5282 -171.0382,63.5264 -171.0146,63.5293 -170.9811,63.5418 -171.0141,63.5531 -170.9887,63.5555 -170.9358,63.5504 -170.8739,63.5424 -170.8499,63.539 -170.7712,63.5243 -170.7276,63.5069 -170.6388,63.4949 -170.5944,63.4927 -170.5735,63.494 -170.4456,63.5366 -170.4007,63.5578 -170.3756,63.5746 -170.1505,63.6248 -170.1227,63.6252 -169.9943,63.6176 -169.9654,63.6156 -169.9476,63.6032 -169.8581,63.557 -169.8355,63.5494 -169.805,63.5452 -169.7689,63.5425 -169.732,63.517 -169.7176,63.4975 -169.6985,63.4556 -169.59,63.4006 -169.5113,63.3732 -169.3838,63.36 -169.3212,63.3584 -169.2649,63.3429 -169.2403,63.3303 -169.2277,63.2945 -169.1922,63.276 -169.1567,63.2708 -169.1221,63.2678 -169.0848,63.2703 -168.922,63.2597 -168.8725,63.2268 -168.8386,63.2204 -168.8034,63.219 -168.7789,63.2205 -168.7428,63.2364 -168.769,63.2482 -168.8,63.2522 -168.8277,63.2525 -168.8806,63.2621 -168.8579,63.2661 -168.7146,63.2633 -168.632,63.2583 -168.5657,63.2525 -168.387,63.228 -168.3706,63.2126 -168.3865,63.1527 -168.4673,63.0939 -168.4851,63.085 -168.5198,63.0776 -168.5432,63.0752 -168.8185,63.1217 -168.8761,63.1261 -168.9471,63.1177 -168.9902,63.1071 -169.1811,63.017 -169.2318,62.9804 -169.2441,62.9644 -169.2516,62.9382 -169.2637,62.9025 -169.3121,62.8703 -169.3393,62.8669 -169.4183,62.8852 -169.4269,62.9314 -169.4042,62.9798 -169.458,63.0345 -169.4734,63.0478 -169.5613,63.0741 -169.6349,63.0757 -169.5899,63.0506 -169.641,63.0744 -169.7496,63.115 -169.8187,63.1049 -169.9249,63.1217 -169.8915,63.1287 -169.8786,63.1733 -169.9006,63.2012 -170.1752,63.2971 -170.2342,63.3128 -170.2733,63.3196 -170.3061,63.3169 -170.451,63.3441 -170.4721,63.3521 -170.4985,63.3752 -170.5277,63.3833 -170.671,63.3577 -170.6241,63.3506 -170.6241,63.3506 15,-4.0,Canada -63.9286,63.6581 -63.9173,63.6555 -63.9041,63.6511 -63.9015,63.6175 -64.0349,63.596 -64.0547,63.5972 -64.0739,63.607 -64.0818,63.6191 -64.0856,63.6308 -64.0824,63.6434 -64.0541,63.6638 -64.0445,63.6678 -63.9513,63.679 -63.9286,63.6581 -63.9286,63.6581 35,-5.0,Canada -76.531,63.403 -76.4631,63.3954 -76.4153,63.3895 -76.3941,63.3852 -76.5282,63.2946 -76.5417,63.2896 -76.5578,63.2877 -76.5758,63.2889 -76.6972,63.3074 -76.833,63.3284 -76.8877,63.3478 -76.9014,63.3574 -76.9073,63.3685 -76.9573,63.3999 -77.1757,63.4941 -77.2151,63.5049 -77.2393,63.5072 -77.2597,63.5068 -77.2737,63.5101 -77.2899,63.5301 -77.3033,63.5693 -77.2881,63.5866 -77.2533,63.6093 -77.226,63.6138 -77.191,63.6176 -76.9654,63.6027 -76.9516,63.6012 -76.9098,63.5944 -76.87,63.5856 -76.6596,63.5229 -76.5599,63.4876 -76.5217,63.4508 -76.5249,63.4183 -76.531,63.403 -76.531,63.403 27,-4.0,Canada -64.1991,63.5592 -64.1992,63.5198 -64.1979,63.5095 -64.1954,63.4992 -64.1898,63.484 -64.1364,63.3429 -64.103,63.3085 -64.0808,63.3063 -64.0412,63.2913 -64.019,63.2775 -63.9744,63.2448 -63.9318,63.1981 -63.9404,63.1918 -63.9528,63.1911 -64.0562,63.219 -64.1256,63.243 -64.141,63.2485 -64.2254,63.316 -64.2953,63.3935 -64.3692,63.5315 -64.3639,63.5421 -64.3494,63.5605 -64.2553,63.5978 -64.2383,63.5952 -64.2024,63.5659 -64.1991,63.5592 -64.1991,63.5592 40,2.0,Norway 8.4387,63.3482 8.4095,63.3489 8.3959,63.3499 8.2793,63.3607 8.2655,63.3715 8.2638,63.3864 8.27,63.4082 8.2783,63.419 8.3184,63.4393 8.349,63.4531 8.4153,63.4782 8.4353,63.4831 8.4462,63.4846 8.473,63.4857 8.5975,63.4902 8.5978,63.5307 8.7979,63.5608 8.9272,63.5756 8.9398,63.5762 8.9536,63.5753 9.1569,63.4832 9.1472,63.4772 9.0713,63.4501 9.0336,63.44 8.944,63.4194 8.9138,63.4128 8.8575,63.4051 8.77,63.3986 8.7574,63.3979 8.7016,63.3973 8.6891,63.3966 8.6431,63.3909 8.5872,63.3827 8.5569,63.3765 8.5286,63.3649 8.5082,63.3565 8.4888,63.3521 8.4775,63.3501 8.4387,63.3482 8.4387,63.3482 15,-4.0,Canada -64.0456,63.5551 -63.9674,63.4901 -63.9517,63.4656 -63.9611,63.4118 -63.9714,63.4024 -63.9832,63.4049 -64.0433,63.4455 -64.0563,63.457 -64.0831,63.4965 -64.0901,63.5197 -64.0879,63.5422 -64.0697,63.557 -64.0562,63.561 -64.0456,63.5551 -64.0456,63.5551 19,-9.0,United States -162.0305,63.5103 -162.0588,63.4663 -162.2433,63.4602 -162.2881,63.4658 -162.3615,63.4785 -162.3736,63.4832 -162.384,63.4934 -162.3823,63.5035 -162.3571,63.5249 -162.3437,63.5355 -162.3327,63.5409 -162.3212,63.5434 -162.2427,63.557 -162.1013,63.559 -162.0784,63.5569 -162.0579,63.5529 -162.0221,63.5177 -162.0305,63.5103 -162.0305,63.5103 20,-4.0,Canada -64.8271,63.4754 -64.8059,63.4664 -64.783,63.4528 -64.7403,63.3836 -64.7335,63.3691 -64.7203,63.3293 -64.7189,63.314 -64.7273,63.3077 -64.7548,63.3177 -64.7768,63.3282 -64.7909,63.3357 -64.8147,63.3527 -64.8234,63.3612 -64.8989,63.4373 -64.9077,63.4461 -64.9245,63.4721 -64.8445,63.4901 -64.8269,63.4804 -64.8271,63.4754 -64.8271,63.4754 46,-2.0,Greenland -41.0346,63.132 -41.0673,63.1364 -41.1373,63.1389 -41.1497,63.1336 -41.173,63.1357 -41.3496,63.1538 -41.3597,63.1578 -41.4097,63.1858 -41.4341,63.2045 -41.4438,63.2134 -41.4576,63.2224 -41.5354,63.2612 -41.6291,63.3066 -41.6457,63.3126 -41.669,63.3181 -41.6816,63.3195 -41.7164,63.3261 -41.7275,63.3299 -41.7668,63.3491 -41.7774,63.3604 -41.7859,63.3746 -41.7901,63.386 -41.7826,63.3939 -41.7726,63.3991 -41.7628,63.4028 -41.7433,63.4074 -41.7021,63.414 -41.6486,63.4185 -41.6267,63.4178 -41.6153,63.4167 -41.5918,63.4116 -41.5813,63.4075 -41.5301,63.3822 -41.4753,63.3415 -41.361,63.3232 -41.203,63.271 -41.1806,63.2652 -41.156,63.2567 -41.1462,63.2523 -41.1304,63.2436 -41.0633,63.1992 -41.0451,63.181 -41.0237,63.1577 -41.0138,63.1387 -41.0346,63.132 -41.0346,63.132 37,-5.0,Canada -78.0594,63.4179 -78.0053,63.404 -77.9382,63.3924 -77.9266,63.3911 -77.7888,63.3913 -77.7744,63.3978 -77.7591,63.3983 -77.6923,63.3942 -77.5282,63.3565 -77.4843,63.3247 -77.3433,63.1938 -77.3522,63.1748 -77.4214,63.1228 -77.4899,63.0943 -77.633,63.0442 -77.7506,63.0146 -77.779,63.0132 -77.7941,63.0136 -77.8058,63.0157 -77.8725,63.0396 -77.9719,63.088 -78.0737,63.1438 -78.142,63.1823 -78.1581,63.1945 -78.1686,63.2034 -78.1902,63.219 -78.2009,63.2256 -78.2927,63.2723 -78.3332,63.2869 -78.3679,63.2933 -78.4085,63.3177 -78.4184,63.3594 -78.3976,63.3667 -78.2263,63.3983 -78.1254,63.4114 -78.0594,63.4179 -78.0594,63.4179 21,2.0,Norway 7.9698,63.2312 7.9776,63.264 7.9674,63.2694 7.9086,63.2794 7.8624,63.2775 7.7881,63.2849 7.779,63.2938 7.7689,63.3062 7.7642,63.3301 7.9723,63.3886 8.0001,63.3894 8.0605,63.3889 8.0792,63.3868 8.1607,63.3216 8.1675,63.3081 8.1439,63.2809 8.1154,63.2638 8.0775,63.2494 8.0676,63.2469 7.9698,63.2312 7.9698,63.2312 17,2.0,Norway 8.546,63.2414 8.4952,63.2414 8.4817,63.2411 8.4545,63.2435 8.4189,63.256 8.472,63.2953 8.4919,63.3036 8.5127,63.3077 8.5252,63.3084 8.5752,63.3043 8.6036,63.299 8.656,63.2724 8.6516,63.2569 8.6294,63.2498 8.618,63.248 8.546,63.2414 8.546,63.2414 18,2.0,Norway 8.3747,63.0816 8.3611,63.0815 8.3429,63.0842 8.3318,63.0895 8.253,63.1516 8.253,63.1855 8.409,63.2066 8.4209,63.2062 8.4348,63.199 8.541,63.1368 8.5557,63.1228 8.5589,63.1084 8.5508,63.099 8.5357,63.0935 8.5072,63.0862 8.4714,63.0825 8.3747,63.0816 8.3747,63.0816 19,3.0,Finland 21.2054,63.0673 21.2088,63.0768 21.1494,63.1116 21.141,63.1051 21.1345,63.0975 21.124,63.0961 21.1068,63.0988 21.0917,63.1146 21.0577,63.1582 21.0395,63.1993 21.2546,63.1636 21.3068,63.1762 21.3289,63.1787 21.3742,63.1714 21.3824,63.1169 21.2636,63.0747 21.2378,63.0708 21.2054,63.0673 21.2054,63.0673 20,2.0,Norway 7.9896,63.0634 7.9638,63.0637 7.9121,63.0914 7.9198,63.1008 8.032,63.15 8.047,63.1557 8.0578,63.1577 8.0705,63.1584 8.0826,63.1579 8.0962,63.1568 8.1066,63.1546 8.1261,63.144 8.1554,63.1151 8.1702,63.0779 8.1606,63.073 8.1204,63.0691 8.071,63.065 8.0446,63.064 7.9896,63.0634 7.9896,63.0634 22,-2.0,Greenland -41.1358,63.0408 -41.1999,63.0479 -41.2223,63.0506 -41.2548,63.0514 -41.2656,63.0503 -41.297,63.0512 -41.321,63.055 -41.3769,63.0869 -41.385,63.0938 -41.3834,63.1086 -41.365,63.1296 -41.3545,63.1313 -41.3105,63.1283 -41.2206,63.1183 -41.1979,63.1151 -41.1858,63.111 -41.15,63.0933 -41.1318,63.0826 -41.1039,63.0452 -41.1242,63.041 -41.1358,63.0408 -41.1358,63.0408 16,-2.0,Greenland -50.441,63.1176 -50.3807,63.0864 -50.3721,63.0742 -50.3857,63.0627 -50.4091,63.0548 -50.5239,63.0367 -50.5406,63.0377 -50.5672,63.0444 -50.5785,63.0554 -50.5817,63.0675 -50.5706,63.0796 -50.513,63.124 -50.4823,63.1277 -50.4544,63.1265 -50.441,63.1176 -50.441,63.1176 18,-2.0,Greenland -50.6544,63.1047 -50.6311,63.0922 -50.5842,63.0366 -50.5973,63.0283 -50.6509,63.0138 -50.6716,63.0097 -50.7003,63.0041 -50.7108,63.0031 -50.7222,63.0034 -50.7333,63.0069 -50.7762,63.0317 -50.7867,63.0424 -50.7743,63.0634 -50.6928,63.1068 -50.6782,63.1105 -50.6655,63.1081 -50.6544,63.1047 -50.6544,63.1047 20,-2.0,Greenland -41.401,62.9769 -41.4109,62.981 -41.4433,63.0005 -41.4358,63.0082 -41.4258,63.0119 -41.3867,63.0233 -41.3665,63.0285 -41.3457,63.0319 -41.2922,63.0326 -41.281,63.0298 -41.2649,63.0212 -41.2241,62.9943 -41.2345,62.9817 -41.2432,62.9764 -41.2529,62.9729 -41.273,62.9675 -41.2948,62.9683 -41.3832,62.9717 -41.401,62.9769 -41.401,62.9769 17,2.0,Norway 7.7633,62.9403 7.7444,62.9458 7.6926,62.9638 7.6717,62.9717 7.6645,62.9785 7.6968,63.0086 7.7111,63.0122 7.8047,63.0165 7.8307,63.0179 7.8867,63.0108 7.8995,62.999 7.8869,62.9791 7.8732,62.9716 7.8233,62.9533 7.7944,62.9459 7.7633,62.9403 7.7633,62.9403 17,2.0,Norway 7.4959,62.8614 7.4659,62.8785 7.4534,62.8834 7.4433,62.8856 7.4316,62.8874 7.4047,62.8897 7.3899,62.8937 7.3579,62.9067 7.3509,62.9161 7.3849,62.9802 7.5898,63.0155 7.635,63.0035 7.6953,62.923 7.6851,62.9178 7.5336,62.8711 7.4959,62.8614 7.4959,62.8614 14,-2.0,Greenland -41.489,62.7921 -41.5016,62.7958 -41.5298,62.8324 -41.5055,62.9272 -41.4938,62.9333 -41.4206,62.9409 -41.4102,62.9416 -41.3998,62.9412 -41.3743,62.9368 -41.3912,62.894 -41.413,62.8645 -41.4802,62.7963 -41.489,62.7921 -41.489,62.7921 98,-5.0,Canada -82.0254,62.9027 -81.9616,62.8894 -81.8478,62.8776 -81.7802,62.8764 -81.7489,62.8739 -81.7082,62.8478 -81.7471,62.7893 -81.7658,62.6634 -81.7701,62.6436 -81.8066,62.6167 -81.9427,62.5526 -82.0276,62.5226 -82.1226,62.5062 -82.1554,62.4952 -82.217,62.4657 -82.2452,62.4353 -82.2601,62.3977 -82.2858,62.3804 -82.3394,62.3622 -82.3828,62.3498 -82.4232,62.3362 -82.4612,62.3188 -82.4839,62.3067 -82.51,62.283 -82.5284,62.2649 -82.5527,62.2451 -82.577,62.2301 -82.6086,62.2142 -82.8333,62.1311 -82.9271,62.1028 -82.9703,62.0979 -82.9941,62.1145 -83.0114,62.1343 -83.0376,62.1462 -83.0884,62.1646 -83.1144,62.1726 -83.1467,62.1768 -83.1691,62.1764 -83.1982,62.1738 -83.2439,62.1628 -83.3149,62.1455 -83.3443,62.1338 -83.3782,62.1159 -83.4124,62.1003 -83.4848,62.0724 -83.5161,62.0646 -83.5457,62.0679 -83.5587,62.0887 -83.5496,62.1506 -83.5632,62.2156 -83.5854,62.2335 -83.6208,62.2428 -83.6441,62.2501 -83.6618,62.2608 -83.7398,62.3113 -83.7632,62.3294 -83.7811,62.3481 -83.7815,62.3685 -83.7483,62.4042 -83.6984,62.428 -83.6515,62.4473 -83.5787,62.4751 -83.5386,62.4948 -83.4019,62.6028 -83.3854,62.6292 -83.3901,62.653 -83.3625,62.7445 -83.2376,62.8205 -83.2115,62.8296 -83.1421,62.8478 -83.0396,62.8308 -83.018,62.8019 -82.9871,62.7805 -82.9545,62.7684 -82.9255,62.7632 -82.8999,62.7605 -82.8692,62.761 -82.8397,62.7654 -82.8203,62.7706 -82.6958,62.8127 -82.6639,62.8256 -82.6316,62.8384 -82.5945,62.8505 -82.5329,62.8623 -82.491,62.8668 -82.4546,62.8682 -82.4125,62.8667 -82.3796,62.8622 -82.3469,62.8564 -82.3004,62.8504 -82.2675,62.848 -82.2226,62.8573 -82.2181,62.8766 -82.1322,62.9061 -82.1061,62.9118 -82.0788,62.9129 -82.0254,62.9027 -82.0254,62.9027 40,-5.0,Canada -70.4502,62.6971 -70.4102,62.6883 -70.2786,62.6523 -70.2597,62.6462 -70.0897,62.5263 -70.0811,62.5179 -70.0751,62.503 -70.1283,62.4826 -70.1468,62.478 -70.2368,62.4567 -70.2561,62.4536 -70.2777,62.453 -70.3297,62.4551 -70.3641,62.4572 -70.549,62.4695 -70.5864,62.4738 -70.6088,62.4781 -70.6305,62.4858 -70.6818,62.5282 -70.6871,62.5377 -70.7164,62.6366 -70.7087,62.6891 -70.8071,62.721 -70.8807,62.7347 -70.894,62.7355 -70.9088,62.7342 -70.9679,62.7239 -71.0062,62.718 -71.0196,62.72 -71.0373,62.7321 -71.1018,62.8019 -71.0941,62.8103 -71.0522,62.8075 -70.9353,62.7946 -70.6502,62.7592 -70.6224,62.7531 -70.5738,62.7381 -70.5219,62.7215 -70.4502,62.6971 -70.4502,62.6971 30,-5.0,Canada -74.3357,62.6634 -74.2475,62.6102 -74.2324,62.6053 -74.203,62.6026 -74.1653,62.6025 -74.1408,62.6031 -74.1056,62.6057 -74.0715,62.6083 -74.0374,62.6121 -74.0145,62.6119 -74.0017,62.6111 -73.8686,62.5868 -73.8159,62.5378 -73.8259,62.5274 -73.8447,62.5256 -73.9849,62.5243 -74.0102,62.5243 -74.025,62.5255 -74.0394,62.5272 -74.1889,62.5527 -74.3962,62.5917 -74.406,62.5939 -74.4413,62.6061 -74.4721,62.6192 -74.4943,62.6296 -74.5041,62.6403 -74.3921,62.672 -74.3778,62.6714 -74.3357,62.6634 -74.3357,62.6634 18,2.0,Norway 6.6648,62.5768 6.6546,62.5795 6.637,62.6013 6.6644,62.6452 6.6766,62.6535 6.6928,62.6557 6.8627,62.6668 6.8795,62.6639 6.8883,62.6575 6.9063,62.6293 6.8979,62.6174 6.8793,62.6122 6.8472,62.6071 6.7772,62.5991 6.7343,62.5925 6.7235,62.5905 6.6648,62.5768 6.6648,62.5768 17,-4.0,Canada -64.7585,62.5175 -64.7157,62.5035 -64.7372,62.4829 -64.7482,62.4782 -64.8426,62.4538 -64.8566,62.4513 -64.8809,62.4499 -64.9697,62.4584 -64.993,62.4611 -65.0108,62.4682 -64.8961,62.5182 -64.8767,62.522 -64.846,62.5257 -64.7829,62.5278 -64.7661,62.5222 -64.7585,62.5175 -64.7585,62.5175 18,-5.0,Canada -77.8676,62.5152 -77.8565,62.517 -77.7159,62.5124 -77.6993,62.5063 -77.6904,62.4913 -77.6879,62.4768 -77.6975,62.4666 -77.7109,62.4627 -77.7218,62.4613 -77.7336,62.4608 -77.7618,62.4629 -77.9514,62.4826 -77.962,62.4896 -77.956,62.5054 -77.8959,62.5152 -77.8791,62.5165 -77.8676,62.5152 -77.8676,62.5152 18,-2.0,Greenland -42.1024,62.4061 -42.1233,62.408 -42.1346,62.4098 -42.1751,62.4296 -42.1967,62.4453 -42.2131,62.4967 -42.1951,62.5005 -42.1832,62.4988 -42.091,62.4988 -42.0802,62.4985 -42.0689,62.4966 -42.053,62.49 -42.0436,62.4833 -42.0434,62.4225 -42.0813,62.4089 -42.0911,62.4064 -42.1024,62.4061 -42.1024,62.4061 25,-4.0,Canada -64.2575,62.4494 -64.2575,62.4347 -64.2693,62.3849 -64.3522,62.3316 -64.4034,62.3105 -64.4695,62.2907 -64.5283,62.2962 -64.6471,62.31 -64.7451,62.33 -64.8008,62.3421 -64.8156,62.3462 -64.827,62.3536 -64.8398,62.3894 -64.7202,62.4785 -64.6895,62.483 -64.6717,62.4847 -64.6412,62.4862 -64.6272,62.4859 -64.6158,62.484 -64.5283,62.4642 -64.4552,62.4621 -64.4309,62.4822 -64.2643,62.4565 -64.2575,62.4494 -64.2575,62.4494 11,2.0,Sweden 17.4509,62.2866 17.4231,62.289 17.4106,62.2911 17.3823,62.3015 17.3372,62.3953 17.4337,62.3834 17.4805,62.3382 17.5087,62.2899 17.4753,62.2869 17.4509,62.2866 17.4509,62.2866 17,2.0,Norway 6.2162,62.3141 6.2015,62.3144 6.1363,62.3144 6.1081,62.3141 6.0848,62.3175 6.0657,62.3229 6.0487,62.3286 6.0137,62.3567 6.1656,62.3661 6.1774,62.3659 6.3061,62.3435 6.3181,62.3343 6.2964,62.3238 6.2747,62.3201 6.242,62.3155 6.2162,62.3141 6.2162,62.3141 23,2.0,Norway 5.8161,62.1637 5.8402,62.2005 5.8246,62.2544 5.7914,62.2636 5.7929,62.2874 5.8167,62.315 5.8346,62.331 5.8533,62.3398 5.8809,62.3475 5.9021,62.3509 5.9157,62.3518 5.9258,62.3507 5.9464,62.3461 5.9633,62.3369 6.015,62.2765 6.0122,62.2511 5.931,62.2061 5.9169,62.1985 5.889,62.1841 5.8548,62.1689 5.8294,62.1641 5.8161,62.1637 5.8161,62.1637 47,-5.0,Canada -79.3883,61.7244 -79.4074,61.7178 -79.437,61.7035 -79.457,61.675 -79.4537,61.6468 -79.4776,61.592 -79.4964,61.574 -79.5943,61.5093 -79.6172,61.4994 -79.6526,61.4932 -79.6835,61.4932 -79.7176,61.5348 -79.8003,61.6085 -79.9289,61.6722 -79.9845,61.6733 -80.0135,61.6743 -80.0442,61.6839 -80.1232,61.737 -80.1363,61.8545 -80.1402,61.9081 -80.1125,62.0333 -80.0435,62.1228 -80.0251,62.1413 -79.8582,62.2844 -79.8264,62.2978 -79.7874,62.3111 -79.7549,62.3181 -79.6834,62.3277 -79.5762,62.3229 -79.4511,62.3365 -79.4299,62.3409 -79.4074,62.3409 -79.3861,62.3346 -79.2921,62.3052 -79.2748,62.282 -79.2666,62.2637 -79.1995,62.2163 -79.175,62.2072 -79.1062,62.1711 -79.1086,62.0852 -79.1764,61.9396 -79.2005,61.924 -79.2431,61.8933 -79.3092,61.8064 -79.3712,61.7358 -79.3883,61.7244 -79.3883,61.7244 19,2.0,Norway 5.5984,62.1094 5.5411,62.1099 5.5252,62.1127 5.4952,62.1457 5.5063,62.1702 5.5351,62.204 5.5542,62.2123 5.5661,62.2133 5.6761,62.2178 5.6909,62.2178 5.7973,62.1946 5.7811,62.1373 5.7622,62.1267 5.7441,62.1218 5.7336,62.1197 5.6874,62.1147 5.6371,62.1114 5.5984,62.1094 5.5984,62.1094 24,-4.0,Canada -64.9424,61.8485 -64.9138,61.8243 -64.8554,61.8105 -64.7651,61.7522 -64.7022,61.6844 -64.7109,61.6738 -64.733,61.6638 -64.7646,61.6507 -64.7813,61.646 -64.791,61.6442 -64.8021,61.6438 -64.8268,61.6473 -65.0268,61.7068 -65.0868,61.744 -65.1262,61.7943 -65.13,61.8099 -65.1291,61.8262 -65.1216,61.8368 -65.0638,61.8701 -65.0443,61.8722 -65.0313,61.8714 -64.9516,61.8543 -64.9424,61.8485 -64.9424,61.8485 14,-2.0,Greenland -49.317,61.8402 -49.3226,61.8207 -49.345,61.7992 -49.3622,61.799 -49.4275,61.8017 -49.4395,61.8026 -49.4749,61.8082 -49.539,61.8526 -49.5242,61.8598 -49.5093,61.8609 -49.4559,61.86 -49.3239,61.855 -49.317,61.8402 -49.317,61.8402 16,2.0,Norway 4.9133,61.6978 4.876,61.7099 4.7983,61.7664 4.8589,61.8098 4.8741,61.8163 4.9046,61.8222 4.9168,61.8232 4.9283,61.8219 4.9398,61.8205 5.1922,61.7786 5.2111,61.7638 5.1652,61.747 4.9867,61.7101 4.9249,61.699 4.9133,61.6978 4.9133,61.6978 19,-2.0,Greenland -42.1668,61.6933 -42.1577,61.6976 -42.134,61.7131 -42.098,61.7396 -42.0898,61.7557 -42.0908,61.7682 -42.0838,61.7786 -42.0627,61.7895 -42.0416,61.7958 -42.0139,61.8007 -42.0034,61.7995 -42.0084,61.7481 -42.0375,61.7001 -42.0488,61.6939 -42.0588,61.6923 -42.1877,61.675 -42.1981,61.6801 -42.1668,61.6933 -42.1668,61.6933 16,-4.0,Canada -65.5869,61.7489 -65.5687,61.7015 -65.5927,61.6787 -65.6763,61.6803 -65.7003,61.6827 -65.7646,61.6909 -65.7769,61.693 -65.8081,61.7051 -65.8191,61.7175 -65.6868,61.7865 -65.6632,61.7901 -65.6512,61.7899 -65.6407,61.7872 -65.5899,61.7636 -65.5869,61.7489 -65.5869,61.7489 41,-4.0,Canada -64.5356,61.513 -64.593,61.4788 -64.6007,61.4655 -64.5876,61.4612 -64.5618,61.4586 -64.5505,61.431 -64.5628,61.3911 -64.5812,61.3693 -64.591,61.3585 -64.6965,61.2807 -64.7456,61.2486 -64.7628,61.25 -64.8505,61.2715 -64.8603,61.2928 -65.0542,61.3921 -65.0616,61.4029 -65.0679,61.4221 -65.1698,61.454 -65.2039,61.4569 -65.228,61.4598 -65.2514,61.4641 -65.3518,61.5139 -65.362,61.5244 -65.3611,61.5358 -65.3579,61.5502 -65.3463,61.5651 -65.3372,61.5719 -65.3254,61.5777 -65.3126,61.5822 -65.214,61.5953 -65.122,61.6056 -65.0492,61.6117 -64.9431,61.618 -64.9112,61.6183 -64.8923,61.6172 -64.8701,61.6148 -64.6087,61.5849 -64.5946,61.583 -64.5233,61.5253 -64.5356,61.513 -64.5356,61.513 18,-2.0,Greenland -48.4277,61.2819 -48.4214,61.2696 -48.4298,61.2488 -48.4463,61.243 -48.4902,61.2382 -48.5602,61.2352 -48.735,61.2584 -48.7148,61.2724 -48.6879,61.2811 -48.6685,61.2861 -48.6494,61.2894 -48.6204,61.2928 -48.5997,61.2936 -48.5786,61.2929 -48.4422,61.2891 -48.4305,61.2865 -48.4277,61.2819 -48.4277,61.2819 18,2.0,Norway 4.7956,60.9704 4.7868,60.9813 4.7805,61.0748 4.8409,61.1056 4.9183,61.1157 4.9331,61.1122 4.9516,61.0994 4.977,61.0353 4.9706,61.0196 4.9586,61.0114 4.9444,61.0049 4.9006,60.9915 4.866,61.0136 4.8582,61.0202 4.8433,61.0188 4.807,60.9948 4.7956,60.9704 4.7956,60.9704 16,-2.0,Greenland -48.1085,61.0175 -48.0215,61.0068 -47.9878,61.0016 -47.9594,60.9886 -47.972,60.98 -47.9819,60.9797 -48.0627,60.9787 -48.2154,60.9793 -48.2432,60.9799 -48.2619,60.9855 -48.2769,61.0075 -48.267,61.0185 -48.1727,61.0245 -48.1512,61.0245 -48.1085,61.0175 -48.1085,61.0175 26,-2.0,Greenland -46.1187,60.8113 -46.1476,60.8076 -46.1659,60.8025 -46.2636,60.7739 -46.4138,60.7306 -46.4789,60.7163 -46.6697,60.676 -46.6848,60.6762 -46.7441,60.6832 -46.7552,60.6893 -46.7487,60.6979 -46.7139,60.7104 -46.6606,60.7298 -46.5913,60.7512 -46.3675,60.8165 -46.3404,60.8243 -46.2582,60.8453 -46.1669,60.8663 -46.1379,60.8728 -46.1189,60.8756 -46.109,60.8718 -46.0764,60.8487 -46.0829,60.8271 -46.1027,60.8161 -46.1187,60.8113 -46.1187,60.8113 17,-9.0,United States -147.7481,60.8537 -147.6825,60.8288 -147.6581,60.8105 -147.65,60.8006 -147.6311,60.7434 -147.6477,60.7332 -147.7371,60.7162 -147.8252,60.7179 -147.8408,60.7212 -147.8521,60.7292 -147.8526,60.7538 -147.8437,60.7874 -147.8226,60.841 -147.7832,60.8522 -147.7604,60.8547 -147.7481,60.8537 -147.7481,60.8537 16,-2.0,Greenland -42.8446,60.8094 -42.7841,60.8246 -42.7491,60.8273 -42.6697,60.8292 -42.6598,60.8287 -42.5982,60.8237 -42.5661,60.8208 -42.5447,60.8114 -42.6589,60.7813 -42.6689,60.7807 -42.7488,60.7824 -42.7801,60.7858 -42.8332,60.7936 -42.8595,60.8009 -42.8446,60.8094 -42.8446,60.8094 13,1.0,United Kingdom -0.8332,60.5999 -0.9336,60.6011 -0.9602,60.6116 -0.9577,60.6378 -0.9368,60.7209 -0.8787,60.7694 -0.8042,60.7666 -0.7686,60.7561 -0.7558,60.7421 -0.762,60.7198 -0.8181,60.6153 -0.8332,60.5999 -0.8332,60.5999 29,-2.0,Greenland -47.8642,60.7672 -47.6656,60.7332 -47.6676,60.7264 -47.7374,60.683 -47.7324,60.6735 -47.7165,60.6675 -47.6797,60.6629 -47.6513,60.6734 -47.6248,60.6815 -47.567,60.6816 -47.6016,60.661 -47.618,60.6542 -47.8073,60.6034 -47.941,60.6149 -47.9643,60.6183 -47.9852,60.6255 -48.0758,60.6657 -48.147,60.7217 -48.1387,60.7275 -48.1207,60.7302 -48.1109,60.7306 -48.0683,60.7277 -48.0477,60.7271 -48.0286,60.7294 -47.919,60.7458 -47.8971,60.7533 -47.8762,60.7623 -47.8642,60.7672 -47.8642,60.7672 15,-5.0,Canada -78.0778,60.735 -78.1324,60.6941 -78.2484,60.6704 -78.4741,60.6319 -78.5069,60.6292 -78.52,60.6299 -78.5428,60.641 -78.5487,60.6493 -78.4669,60.6983 -78.4243,60.7106 -78.2509,60.7363 -78.0729,60.7534 -78.0714,60.7422 -78.0778,60.735 -78.0778,60.735 11,-2.0,Greenland -46.1893,60.6984 -46.1702,60.6712 -46.2622,60.594 -46.3623,60.6028 -46.4112,60.6258 -46.4002,60.6441 -46.3527,60.6691 -46.3352,60.6749 -46.2173,60.7062 -46.1893,60.6984 -46.1893,60.6984 17,-9.0,United States -147.8569,60.6823 -147.8419,60.6761 -147.8272,60.6614 -147.8138,60.6038 -147.8171,60.5923 -147.8384,60.5787 -147.864,60.5676 -147.8766,60.569 -147.9416,60.6249 -147.9492,60.6379 -147.9506,60.6501 -147.9329,60.681 -147.913,60.6846 -147.8878,60.6857 -147.8737,60.6852 -147.8569,60.6823 -147.8569,60.6823 33,2.0,Norway 5.1496,60.5036 5.1385,60.5037 5.1007,60.5131 5.1122,60.5048 5.1538,60.4841 5.1768,60.4716 5.1883,60.4568 5.1864,60.4382 5.1755,60.4327 5.1627,60.4326 5.0923,60.4597 5.0679,60.4684 5.0203,60.4735 4.9777,60.4876 4.9181,60.5296 5.0016,60.527 5.0126,60.5257 5.0617,60.5188 5.0529,60.525 4.9985,60.5465 4.9847,60.5536 4.9076,60.598 4.8968,60.6063 4.8677,60.6331 4.8482,60.6608 4.8626,60.6615 4.942,60.6477 4.9742,60.6394 5.12,60.5426 5.1308,60.5336 5.1475,60.5111 5.1496,60.5036 5.1496,60.5036 17,1.0,United Kingdom -1.1024,60.4122 -1.1253,60.4132 -1.1391,60.4176 -1.168,60.4538 -1.1805,60.5257 -1.1788,60.5503 -1.176,60.5613 -1.1076,60.6521 -1.0964,60.6563 -1.0865,60.6579 -1.0546,60.6573 -0.9919,60.6489 -0.9804,60.58 -1.0165,60.4441 -1.0233,60.4268 -1.1024,60.4122 -1.1024,60.4122 14,-2.0,Greenland -45.8419,60.6297 -45.8069,60.6209 -45.8663,60.6187 -45.8979,60.6188 -45.9247,60.5981 -45.9945,60.5647 -46.0088,60.5618 -46.0827,60.568 -46.1129,60.6015 -46.09,60.6071 -45.9194,60.6329 -45.8882,60.6335 -45.8419,60.6297 -45.8419,60.6297 25,2.0,Norway 5.517,60.356 5.4997,60.358 5.4734,60.3689 5.4549,60.3806 5.4427,60.3882 5.35,60.4506 5.3859,60.4791 5.4435,60.5024 5.5201,60.5319 5.5493,60.5415 5.5723,60.5577 5.5778,60.5727 5.5802,60.5857 5.5805,60.6059 5.5979,60.6151 5.6083,60.6166 5.6195,60.6154 5.6686,60.6079 5.6783,60.6008 5.6828,60.5699 5.6687,60.3971 5.5958,60.3641 5.5398,60.3584 5.517,60.356 5.517,60.356 14,-2.0,Greenland -45.6962,60.5874 -45.6987,60.5795 -45.7078,60.5712 -45.7242,60.5637 -45.8676,60.5423 -45.8775,60.5412 -45.9017,60.5465 -45.9098,60.5557 -45.8934,60.6021 -45.8786,60.6095 -45.7294,60.5962 -45.7079,60.5925 -45.6962,60.5874 -45.6962,60.5874 65,1.0,United Kingdom -1.1781,60.1523 -1.155,60.1218 -1.1249,60.0742 -1.1473,60.0597 -1.1645,60.0647 -1.1849,60.0546 -1.2099,60.0303 -1.218,59.9501 -1.2587,59.7882 -1.2662,59.779 -1.3042,59.7854 -1.3692,59.8198 -1.3751,59.8322 -1.325,59.9301 -1.3077,59.9373 -1.2657,60.021 -1.2594,60.0388 -1.2585,60.0548 -1.2825,60.1471 -1.2887,60.1684 -1.4068,60.1804 -1.3847,60.1645 -1.3609,60.157 -1.3501,60.1362 -1.3556,60.1198 -1.4482,60.0791 -1.4874,60.0949 -1.5225,60.1155 -1.5168,60.1283 -1.5855,60.1429 -1.6444,60.1518 -1.6518,60.1533 -1.6615,60.1579 -1.6727,60.17 -1.6889,60.2121 -1.6637,60.2269 -1.6519,60.23 -1.625,60.2345 -1.59,60.2344 -1.4717,60.2422 -1.4427,60.2455 -1.4242,60.2486 -1.3432,60.267 -1.3177,60.2832 -1.4427,60.3872 -1.4992,60.3965 -1.5575,60.4004 -1.6072,60.4053 -1.5899,60.4345 -1.5439,60.4627 -1.4106,60.5324 -1.2938,60.5599 -1.2849,60.5401 -1.2936,60.418 -1.2842,60.398 -1.1615,60.3812 -1.0364,60.3698 -1.0638,60.285 -1.0988,60.2028 -1.1626,60.1874 -1.193,60.195 -1.1957,60.1831 -1.1831,60.1578 -1.1781,60.1523 -1.1781,60.1523 21,-9.0,United States -145.5044,60.5006 -145.6412,60.4544 -145.7801,60.415 -145.8531,60.3971 -145.9702,60.382 -145.9828,60.3814 -146.0429,60.3844 -146.0512,60.3904 -146.042,60.4236 -146.0278,60.4375 -146.0175,60.4425 -146.0019,60.4455 -145.9204,60.4515 -145.8279,60.4658 -145.6871,60.5095 -145.6654,60.5156 -145.4916,60.5431 -145.475,60.5197 -145.4893,60.5074 -145.5044,60.5006 -145.5044,60.5006 52,-9.0,United States -171.9551,60.23 -171.9879,60.2541 -172.0052,60.2626 -172.0187,60.2663 -172.0308,60.2674 -172.0571,60.2685 -172.1612,60.2683 -172.1919,60.2635 -172.2178,60.256 -172.2363,60.2516 -172.2614,60.2511 -172.2733,60.2519 -172.4004,60.296 -172.4111,60.301 -172.4216,60.3155 -172.4418,60.3265 -172.5076,60.355 -172.6096,60.3943 -172.6542,60.4056 -172.6732,60.4098 -172.7235,60.4227 -172.7062,60.4762 -172.6838,60.4899 -172.6209,60.5241 -172.6003,60.5307 -172.5873,60.528 -172.5866,60.512 -172.5977,60.5001 -172.6008,60.4882 -172.5931,60.4754 -172.5732,60.452 -172.5577,60.4394 -172.5475,60.4308 -172.5372,60.4226 -172.5176,60.4116 -172.4226,60.3762 -172.4066,60.3703 -172.2681,60.3279 -172.2506,60.3229 -172.2288,60.3196 -172.1943,60.3153 -172.156,60.3131 -172.1298,60.3167 -172.1089,60.3234 -172.0977,60.3246 -172.067,60.3219 -172.0539,60.3178 -171.8832,60.2421 -171.9101,60.2341 -171.9313,60.2314 -171.9551,60.23 -171.9551,60.23 39,-5.0,Canada -67.8198,60.4879 -67.7339,60.4147 -67.7072,60.4033 -67.6928,60.3994 -67.677,60.392 -67.6702,60.3842 -67.6668,60.3726 -67.6702,60.3592 -67.6779,60.3445 -67.687,60.3349 -67.7105,60.3134 -67.7252,60.3023 -67.7571,60.2807 -67.7699,60.2723 -67.8062,60.2489 -67.8404,60.2343 -68.0388,60.1728 -68.0487,60.1703 -68.0766,60.1653 -68.1225,60.1582 -68.1818,60.1501 -68.2113,60.1505 -68.2329,60.153 -68.248,60.1596 -68.2582,60.1682 -68.2652,60.1829 -68.264,60.2034 -68.2551,60.227 -68.2485,60.2372 -68.1852,60.3171 -68.046,60.4611 -68.0003,60.4972 -67.99,60.504 -67.9633,60.5082 -67.9527,60.5093 -67.9064,60.5077 -67.8706,60.5043 -67.8198,60.4879 -67.8198,60.4879 13,2.0,Norway 5.1289,60.3232 5.1024,60.3429 5.0116,60.4189 4.9915,60.4579 5.0767,60.4401 5.1468,60.4189 5.1663,60.4112 5.1803,60.4013 5.1907,60.3892 5.1981,60.3469 5.1855,60.3359 5.1289,60.3232 5.1289,60.3232 27,-9.0,United States -147.3544,60.3496 -147.411,60.3379 -147.4509,60.3178 -147.4329,60.3032 -147.4177,60.3041 -147.4063,60.3088 -147.3721,60.3189 -147.344,60.3154 -147.3505,60.2949 -147.3568,60.2841 -147.4452,60.1372 -147.4794,60.0952 -147.4925,60.0917 -147.5112,60.0928 -147.5477,60.1095 -147.6309,60.1618 -147.6192,60.2107 -147.5968,60.2591 -147.5774,60.2988 -147.5384,60.3586 -147.5004,60.4056 -147.4193,60.4373 -147.3474,60.4 -147.3366,60.3569 -147.3461,60.3509 -147.3544,60.3496 -147.3544,60.3496 16,2.0,Sweden 18.5268,60.2325 18.5142,60.2332 18.4821,60.2446 18.3664,60.2921 18.3587,60.3043 18.3474,60.3432 18.3381,60.4237 18.3505,60.4314 18.3741,60.4265 18.3877,60.4135 18.4214,60.3542 18.4723,60.2752 18.5022,60.2695 18.5365,60.2376 18.5268,60.2325 18.5268,60.2325 50,-9.0,United States -145.8207,60.3199 -145.8921,60.3082 -146.034,60.2786 -146.071,60.2705 -146.1396,60.2506 -146.1809,60.237 -146.1971,60.2314 -146.2409,60.2121 -146.3002,60.1726 -146.3211,60.1661 -146.3407,60.1683 -146.3513,60.1734 -146.3904,60.1949 -146.4013,60.2105 -146.3528,60.2359 -146.3223,60.2469 -146.2788,60.2627 -146.2585,60.2693 -146.209,60.2925 -146.3109,60.2947 -146.325,60.2915 -146.3428,60.2819 -146.3304,60.2786 -146.3401,60.2723 -146.353,60.2725 -146.4217,60.2774 -146.4386,60.286 -146.4458,60.3032 -146.4384,60.3187 -146.4282,60.3349 -146.419,60.3438 -146.3407,60.3986 -146.3263,60.4052 -146.3035,60.4092 -146.2583,60.4084 -146.1623,60.3898 -146.089,60.3707 -146.0865,60.3387 -146.0773,60.3343 -146.0633,60.3341 -146.0339,60.3394 -146.0137,60.343 -145.9245,60.3587 -145.891,60.362 -145.8784,60.3623 -145.8644,60.3618 -145.8487,60.3593 -145.8045,60.3305 -145.8207,60.3199 -145.8207,60.3199 18,3.0,Finland 21.9309,60.2505 21.9184,60.2516 21.9051,60.2541 21.8581,60.2622 21.7777,60.2849 21.7521,60.2975 21.7443,60.3038 21.7437,60.3149 21.765,60.3895 21.7751,60.3947 21.7857,60.3934 21.8553,60.3713 21.8922,60.3434 21.9552,60.286 21.957,60.2616 21.9416,60.2512 21.9309,60.2505 21.9309,60.2505 16,2.0,Norway 5.0941,60.1105 4.9857,60.1453 4.9521,60.1631 4.9398,60.1737 4.9234,60.211 4.9331,60.3545 4.9606,60.368 5.0631,60.2719 5.078,60.2554 5.089,60.2339 5.0915,60.2186 5.1017,60.1434 5.1032,60.1257 5.1026,60.1131 5.0941,60.1105 5.0941,60.1105 74,-9.0,United States -165.7954,60.3371 -165.7963,60.329 -165.7519,60.2563 -165.7163,60.2501 -165.6661,60.2457 -165.6098,60.2463 -165.5963,60.262 -165.559,60.2712 -165.4825,60.2644 -165.4629,60.2592 -165.398,60.2351 -165.3718,60.2236 -165.3621,60.2027 -165.3677,60.1389 -165.3765,60.0812 -165.3579,59.9868 -165.3274,59.9241 -165.2951,59.8969 -165.2735,59.901 -165.2313,59.9083 -165.2437,59.8568 -165.2626,59.8413 -165.3004,59.8301 -165.3497,59.8329 -165.417,59.838 -165.4746,59.8301 -165.5745,59.802 -165.8058,59.7795 -165.8642,59.7911 -165.8967,59.7854 -165.9194,59.7675 -165.8818,59.7536 -165.8337,59.7483 -165.7968,59.7335 -165.7761,59.699 -165.8108,59.6835 -165.8554,59.6815 -165.8815,59.6855 -165.941,59.7235 -165.9837,59.7452 -166.0994,59.7799 -166.1271,59.7835 -166.1627,59.7789 -166.285,59.7784 -166.6441,59.903 -166.683,59.9267 -166.7647,59.9203 -166.8154,59.9268 -166.8462,59.941 -166.9488,59.9938 -167.0016,60.023 -167.1026,60.1167 -167.0884,60.1332 -167.0409,60.1498 -167.0015,60.1571 -166.9605,60.1593 -166.8867,60.1605 -166.8595,60.1584 -166.7572,60.1512 -166.6173,60.1349 -166.5802,60.1329 -166.5186,60.134 -166.4799,60.1672 -166.4901,60.1967 -166.374,60.2492 -166.1814,60.306 -166.1456,60.3114 -166.1113,60.3071 -166.002,60.3019 -165.8865,60.3193 -165.8367,60.3575 -165.8041,60.3482 -165.7954,60.3371 -165.7954,60.3371 13,-9.0,United States -144.8139,60.3262 -144.8417,60.2412 -144.8528,60.2327 -144.8676,60.2315 -144.9424,60.2377 -144.9707,60.2448 -145.0066,60.2594 -144.9846,60.2721 -144.8388,60.3363 -144.8241,60.3426 -144.8103,60.3415 -144.8139,60.3262 -144.8139,60.3262 60,3.0,Finland 19.9065,59.9706 19.9014,59.9867 19.8888,60.0139 19.8807,60.0201 19.8707,60.0226 19.8575,60.0246 19.8346,60.0155 19.8265,60.0039 19.8104,60.0035 19.7345,60.0082 19.7139,60.0224 19.6845,60.0534 19.6605,60.0885 19.6116,60.1869 19.7118,60.2318 19.7456,60.2196 19.7396,60.1883 19.7256,60.1697 19.7569,60.1163 19.7758,60.114 19.8954,60.2069 19.8998,60.2189 19.8935,60.2308 19.8579,60.2686 19.8429,60.266 19.8359,60.2533 19.8275,60.2421 19.7991,60.2479 19.7441,60.279 19.771,60.3046 19.7878,60.3192 19.82,60.3305 19.8313,60.3305 19.8683,60.3269 20.0469,60.2772 20.2395,60.2015 20.1797,60.1354 20.1291,60.0902 20.0481,60.1028 20.0658,60.1456 20.0851,60.1535 20.0824,60.1671 20.0263,60.2259 20.0092,60.2349 19.9993,60.2377 19.9876,60.2377 19.8765,60.1418 19.8913,60.1176 19.9044,60.1096 19.9501,60.0976 19.9881,60.0817 20.0145,60.0258 20.0101,60.015 19.984,60.0133 19.9619,60.0169 19.9309,60.0177 19.9171,60.0148 19.9103,60.0059 19.9065,59.9706 19.9065,59.9706 15,-2.0,Greenland -45.0667,60.3034 -45.0553,60.2898 -45.0497,60.2732 -45.0534,60.2602 -45.1019,60.1903 -45.1131,60.1828 -45.262,60.1185 -45.2796,60.1127 -45.3232,60.1105 -45.2641,60.3117 -45.2416,60.318 -45.1074,60.3141 -45.0958,60.3128 -45.0667,60.3034 -45.0667,60.3034 18,-9.0,United States -147.6991,60.299 -147.7045,60.2811 -147.7313,60.2287 -147.7411,60.2163 -147.7544,60.2128 -147.8002,60.2101 -147.8127,60.2095 -147.8252,60.2104 -147.8607,60.2321 -147.8632,60.2443 -147.8541,60.257 -147.8049,60.2877 -147.792,60.295 -147.7469,60.3067 -147.7203,60.3121 -147.7064,60.3122 -147.6991,60.299 -147.6991,60.299 41,-9.0,United States -146.6605,60.2137 -146.6868,60.186 -146.7077,60.1689 -146.8158,60.1202 -146.853,60.1049 -146.9039,60.0859 -146.937,60.072 -146.95,60.0646 -146.9618,60.0566 -147.2048,59.8719 -147.2097,59.8611 -147.2028,59.8511 -147.2537,59.7802 -147.4364,59.7426 -147.5723,59.7051 -147.583,59.7039 -147.5942,59.7044 -147.6095,59.7066 -147.6326,59.7206 -147.6155,59.7709 -147.5141,59.8588 -147.3935,59.9341 -147.3265,59.9548 -147.1982,60.0062 -147.1684,60.0184 -147.154,60.0249 -147.1267,60.0389 -147.1042,60.057 -147.0976,60.0731 -147.0596,60.106 -146.9247,60.1959 -146.9315,60.2196 -146.9232,60.2738 -146.9155,60.2804 -146.8794,60.2968 -146.8541,60.3041 -146.8343,60.3076 -146.817,60.3073 -146.6454,60.2337 -146.6605,60.2137 -146.6605,60.2137 24,3.0,Finland 22.1714,60.169 22.177,60.197 22.1673,60.1995 22.1015,60.2067 22.1383,60.1981 22.1316,60.1886 22.1094,60.1834 22.0877,60.1832 22.0307,60.1927 22.0311,60.2192 22.0547,60.2347 22.1641,60.2362 22.1754,60.2359 22.2002,60.2336 22.276,60.2204 22.2997,60.2129 22.2915,60.1925 22.2785,60.1891 22.2686,60.192 22.2553,60.1943 22.2395,60.1932 22.1889,60.1783 22.1714,60.169 22.1714,60.169 17,3.0,Finland 19.5386,60.0493 19.526,60.0503 19.5104,60.0539 19.4868,60.0781 19.4747,60.1058 19.5016,60.155 19.5315,60.1778 19.5479,60.1829 19.565,60.1832 19.5752,60.1804 19.5905,60.1712 19.6306,60.1184 19.6371,60.1005 19.638,60.0808 19.5678,60.0805 19.5386,60.0493 19.5386,60.0493 25,3.0,Finland 22.5585,59.9112 22.5585,59.9303 22.53,59.9554 22.4825,59.9326 22.4695,59.9297 22.4288,59.9264 22.4288,59.9995 22.3822,60.0357 22.3731,60.0797 22.388,60.1219 22.4045,60.1432 22.4154,60.1485 22.4307,60.1435 22.5454,60.1299 22.6027,60.1381 22.6898,60.1471 22.7815,60.1546 22.7922,60.1213 22.8046,60.0493 22.7946,60.021 22.6886,59.9301 22.6365,59.9274 22.5909,59.9326 22.5585,59.9112 22.5585,59.9112 15,3.0,Finland 21.6982,60.0373 21.687,60.0378 21.6586,60.0415 21.6638,60.0942 21.6716,60.1083 21.6826,60.1136 21.7864,60.1182 21.8153,60.1188 21.8317,60.1122 21.844,60.1018 21.8236,60.0825 21.7443,60.0462 21.7081,60.0387 21.6982,60.0373 21.6982,60.0373 43,-2.0,Greenland -43.4905,59.8428 -43.5212,59.8495 -43.6423,59.8753 -43.6832,59.8801 -43.7148,59.8854 -43.7255,59.8881 -43.8313,59.9242 -43.8276,59.9344 -43.8517,59.9726 -43.862,59.9738 -44.0337,60.0303 -44.0486,60.071 -44.0346,60.0862 -44.0097,60.1 -43.9033,60.0944 -43.6793,60.0711 -43.6575,60.0686 -43.6466,60.0669 -43.5481,60.0449 -43.2723,60.0119 -43.1831,60.0062 -43.0805,59.9971 -43.0524,59.9862 -43.0591,59.9467 -43.0777,59.9303 -43.1118,59.9174 -43.1466,59.9184 -43.1572,59.9202 -43.2495,59.9515 -43.3554,59.9817 -43.3772,59.9878 -43.4427,60.0057 -43.4742,60.0082 -43.4921,60.003 -43.4805,59.9979 -43.4054,59.9842 -43.396,59.9744 -43.4002,59.9609 -43.407,59.9456 -43.4346,59.8902 -43.4673,59.8496 -43.4905,59.8428 -43.4905,59.8428 24,-2.0,Greenland -44.1098,60.0899 -44.085,60.0379 -44.0784,60.0283 -44.0645,60.017 -44.0083,59.991 -43.9969,59.9869 -43.9763,59.9814 -43.9315,59.9708 -43.952,59.9642 -43.9709,59.9624 -44.0006,59.9615 -44.0187,59.9614 -44.0588,59.9615 -44.073,59.966 -44.0821,59.9725 -44.1616,60.0502 -44.1638,60.0599 -44.1552,60.0776 -44.147,60.0885 -44.1305,60.0968 -44.1205,60.0969 -44.1098,60.0947 -44.1098,60.0899 -44.1098,60.0899 10,-9.0,United States -147.5983,60.0313 -147.6661,60.0037 -147.8412,59.9233 -147.8595,59.9261 -147.8621,59.9439 -147.8207,59.9888 -147.685,60.0806 -147.6101,60.0426 -147.5983,60.0313 -147.5983,60.0313 33,-2.0,Greenland -44.1635,59.9417 -44.1384,59.946 -44.114,59.9492 -44.0153,59.9461 -43.9295,59.9428 -43.9115,59.9335 -43.9217,59.9161 -43.9706,59.889 -44.0094,59.8714 -44.059,59.832 -44.0624,59.8275 -44.1202,59.8178 -44.2352,59.7997 -44.2645,59.8015 -44.2886,59.8215 -44.2965,59.8376 -44.1792,59.932 -44.2239,59.9055 -44.3218,59.8769 -44.3388,59.8771 -44.4134,59.9391 -44.4108,59.952 -44.3813,60.0269 -44.3604,60.0605 -44.3464,60.07 -44.3219,60.0717 -44.291,60.0683 -44.1958,60.0495 -44.1811,60.0419 -44.1232,59.9808 -44.1199,59.9673 -44.1635,59.9417 -44.1635,59.9417 14,3.0,Finland 20.0724,60.0157 20.0853,60.0081 20.126,59.9962 20.1551,59.9923 20.1706,59.9893 20.1888,59.9293 20.169,59.9064 20.0954,59.921 19.9641,59.9809 19.9679,59.992 20.0566,60.0204 20.0683,60.0212 20.0724,60.0157 20.0724,60.0157 18,-9.0,United States -147.5457,59.9766 -147.5516,59.9674 -147.5691,59.9479 -147.6019,59.9237 -147.615,59.9162 -147.6361,59.9065 -147.6517,59.9005 -147.7443,59.8756 -147.7633,59.8751 -147.7649,59.8865 -147.7501,59.9035 -147.7212,59.9232 -147.6051,59.9946 -147.5722,60.0091 -147.5417,59.9986 -147.5389,59.9874 -147.5457,59.9766 -147.5457,59.9766 16,2.0,Norway 5.5026,59.8211 5.4932,59.8234 5.3504,59.9162 5.4393,59.9703 5.4957,59.9833 5.5156,59.987 5.6349,60.002 5.6474,60.0028 5.6501,59.9858 5.6532,59.9541 5.6533,59.9407 5.6505,59.9247 5.5845,59.855 5.5188,59.8229 5.5026,59.8211 5.5026,59.8211 11,-2.0,Greenland -43.42,59.8313 -43.4273,59.8405 -43.4026,59.9196 -43.3872,59.9534 -43.3754,59.9634 -43.3605,59.9651 -43.2599,59.9368 -43.277,59.9005 -43.3138,59.8561 -43.42,59.8313 -43.42,59.8313 23,-2.0,Greenland -43.8197,59.7183 -43.8481,59.7327 -43.924,59.7397 -43.9789,59.7288 -43.9943,59.7287 -44.0095,59.7321 -44.0265,59.7416 -44.0324,59.7573 -44.0268,59.7956 -44.0067,59.8151 -43.8974,59.9009 -43.8799,59.9073 -43.8649,59.9068 -43.8328,59.8989 -43.6663,59.8495 -43.6443,59.8413 -43.5716,59.8053 -43.5549,59.7939 -43.558,59.7836 -43.5657,59.7756 -43.767,59.7326 -43.8197,59.7183 -43.8197,59.7183 20,3.0,Finland 22.9973,59.8253 22.9747,59.8279 22.9028,59.8302 22.8847,59.8267 22.8744,59.8264 22.8384,59.8315 22.8046,59.8474 22.7612,59.8792 22.7689,59.8977 22.784,59.9013 22.7875,59.8919 22.7953,59.8828 22.8973,59.8847 22.9386,59.8864 22.9589,59.8886 23.011,59.8864 23.0276,59.8772 23.0097,59.8288 22.9973,59.8253 22.9973,59.8253 23,2.0,Norway 5.3905,59.6798 5.3615,59.6809 5.3487,59.6851 5.2984,59.7175 5.2539,59.8093 5.2417,59.8367 5.265,59.892 5.2779,59.8995 5.3255,59.8992 5.4018,59.8682 5.4153,59.8613 5.4293,59.8514 5.4565,59.817 5.474,59.7885 5.482,59.7707 5.4844,59.7472 5.4847,59.7338 5.4805,59.7201 5.4591,59.6997 5.4178,59.6825 5.4031,59.6798 5.3905,59.6798 5.3905,59.6798 17,3.0,Finland 23.5768,59.8761 23.682,59.8594 23.6615,59.8551 23.605,59.8487 23.572,59.8536 23.5525,59.8517 23.4631,59.8435 23.3584,59.829 23.3474,59.8294 23.3326,59.8326 23.3266,59.8421 23.3398,59.8536 23.4789,59.8872 23.494,59.888 23.5052,59.8876 23.5768,59.8761 23.5768,59.8761 15,-5.0,Canada -79.7795,59.8017 -79.7321,59.7812 -79.7564,59.7563 -79.7749,59.7418 -79.875,59.6927 -79.9393,59.68 -80.0163,59.6707 -80.0324,59.6774 -79.9782,59.7522 -79.9642,59.7657 -79.9522,59.7731 -79.8606,59.8134 -79.7918,59.807 -79.7795,59.8017 -79.7795,59.8017 29,2.0,Norway 5.1394,59.5095 5.1022,59.5649 5.0607,59.7097 5.0994,59.7953 5.1092,59.8004 5.1218,59.8009 5.138,59.7983 5.2508,59.7288 5.3046,59.6778 5.3119,59.668 5.3331,59.6302 5.3015,59.6153 5.2799,59.6092 5.264,59.6124 5.2772,59.6196 5.2994,59.6287 5.2821,59.6753 5.21,59.6799 5.1775,59.6636 5.1625,59.6165 5.1723,59.5986 5.1858,59.5926 5.191,59.5624 5.1877,59.5357 5.173,59.5241 5.1603,59.5168 5.146,59.5103 5.1394,59.5095 5.1394,59.5095 21,-4.0,Canada -64.057,59.711 -63.9981,59.7792 -63.9867,59.7831 -63.9438,59.7921 -63.9306,59.7857 -63.9273,59.7775 -63.9342,59.7603 -63.9224,59.712 -63.8999,59.7091 -63.8825,59.7028 -63.8395,59.6824 -63.8769,59.6519 -63.8953,59.6439 -64.0038,59.6235 -64.0136,59.624 -64.0256,59.6248 -64.0397,59.6299 -64.0839,59.6627 -64.0717,59.6938 -64.057,59.711 -64.057,59.711 502,-9.0,United States -129.7884,55.8431 -129.8003,55.829 -129.8773,55.7555 -129.909,55.7427 -129.9484,55.6914 -129.9189,55.4761 -129.8234,55.3146 -129.7702,55.2159 -129.8542,55.1607 -129.8785,55.1406 -129.9124,55.1064 -129.9416,55.0616 -129.997,54.9893 -130.0189,54.9616 -130.0539,54.9191 -130.1429,54.8402 -130.2753,54.7673 -130.3569,54.732 -130.4865,54.7038 -130.4954,54.7343 -130.4831,54.7804 -130.5185,54.8909 -130.5265,54.8082 -130.5152,54.788 -130.5277,54.7569 -130.5855,54.7075 -130.6149,54.7031 -130.6459,54.7079 -130.6707,54.7164 -130.6874,54.7279 -130.7077,54.7577 -130.7134,54.7914 -130.7089,54.8075 -130.7046,54.8684 -130.7103,54.8938 -130.7603,54.925 -130.7828,54.9359 -130.7578,54.9865 -130.7404,54.9984 -130.6113,55.0392 -130.5765,55.0419 -130.4787,55.0521 -130.3289,55.1583 -130.2495,55.2609 -130.2799,55.2508 -130.3251,55.2173 -130.3403,55.2025 -130.3606,55.1646 -130.375,55.1492 -130.5037,55.0615 -130.5885,55.0768 -130.649,55.0509 -130.67,55.0321 -130.6962,55.0242 -130.7404,55.0202 -130.7855,55.023 -130.8341,55.0626 -130.8416,55.1215 -130.8249,55.1399 -130.7064,55.2196 -130.6552,55.224 -130.569,55.2216 -130.4175,55.2221 -130.3913,55.2293 -130.434,55.2795 -130.4604,55.2731 -130.4922,55.2427 -130.6361,55.2449 -130.6465,55.2716 -130.649,55.3478 -130.6461,55.4445 -130.6425,55.4816 -130.6401,55.5124 -130.644,55.5388 -130.659,55.6422 -130.6849,55.6752 -130.7979,55.769 -130.8853,55.8352 -130.9407,55.8755 -130.935,55.9191 -130.9122,55.9366 -130.8659,55.9558 -130.8268,55.9901 -130.7834,56.0404 -130.8452,56.0279 -130.9131,55.9848 -130.9422,55.9658 -130.9781,55.9453 -131.0973,55.8981 -131.1408,55.8955 -131.1746,55.9283 -131.2491,55.9093 -131.317,55.886 -131.5031,55.82 -131.5267,55.8139 -131.5729,55.816 -131.6518,55.7977 -131.671,55.7895 -131.6452,55.7726 -131.6231,55.7682 -131.5913,55.7648 -131.5299,55.7483 -131.5887,55.5977 -131.6083,55.5701 -131.6954,55.4689 -131.7268,55.4358 -131.7343,55.4331 -131.7964,55.4623 -131.8343,55.4779 -131.8841,55.4895 -131.9142,55.502 -131.9392,55.5191 -131.9579,55.5407 -132.0155,55.6583 -131.9417,55.7338 -131.8749,55.7396 -131.8185,55.7564 -131.8413,55.7968 -131.8241,55.8769 -131.7908,55.8904 -131.7457,55.8898 -131.7171,55.8984 -131.7102,55.9444 -131.7308,55.9888 -131.7358,56.015 -131.7256,56.0984 -131.5388,56.1306 -131.5941,56.147 -131.6692,56.1605 -131.6877,56.1734 -131.7016,56.1911 -131.7278,56.2301 -131.7363,56.259 -131.7606,56.2913 -131.8047,56.3066 -131.8334,56.3118 -131.953,56.3559 -132.1078,56.4565 -132.1171,56.4764 -132.1039,56.5311 -132.0814,56.5661 -132.1291,56.5583 -132.1749,56.5417 -132.2043,56.5371 -132.2596,56.5442 -132.2896,56.5516 -132.3164,56.5706 -132.2893,56.6475 -132.2707,56.6588 -132.2304,56.6785 -132.1808,56.7048 -132.1298,56.7496 -132.1505,56.7551 -132.1872,56.7438 -132.2239,56.7151 -132.2639,56.6835 -132.2998,56.6887 -132.3389,56.6987 -132.4075,56.7215 -132.4523,56.7406 -132.5329,56.7764 -132.6196,56.8639 -132.606,56.8984 -132.5432,56.8912 -132.5285,56.914 -132.567,57.0162 -132.6105,56.9926 -132.6682,56.9654 -132.8893,57.0122 -132.9043,57.049 -132.8856,57.0836 -132.9299,57.095 -133.0175,57.0483 -133.0455,57.0313 -133.0764,57.0341 -133.1024,57.0427 -133.1491,57.0614 -133.1629,57.0681 -133.1992,57.0725 -133.2498,57.0984 -133.2692,57.1256 -133.2586,57.1873 -133.2287,57.2127 -133.2048,57.2146 -133.0791,57.2129 -133.0502,57.2088 -133.0036,57.2073 -132.8452,57.254 -132.827,57.2785 -132.8746,57.2604 -132.9906,57.2457 -133.1116,57.2605 -133.1679,57.27 -133.2018,57.2871 -133.2664,57.4161 -133.2204,57.4726 -133.1949,57.4863 -133.1717,57.4879 -133.092,57.5074 -133.0775,57.5215 -133.1168,57.5233 -133.2071,57.514 -133.2409,57.5073 -133.2638,57.5025 -133.3082,57.4974 -133.3584,57.5061 -133.418,57.559 -133.3989,57.6278 -133.3194,57.6401 -132.9269,57.5048 -132.8818,57.4758 -132.8461,57.4499 -132.8021,57.4349 -132.767,57.4455 -132.8931,57.5177 -132.9403,57.5485 -132.9605,57.5517 -133.0796,57.5928 -133.1179,57.6084 -133.2761,57.677 -133.3028,57.7003 -133.3124,57.756 -133.3021,57.839 -133.1867,57.8382 -133.0223,57.8066 -132.8895,57.7845 -132.9417,57.8223 -133.2034,57.8496 -133.2834,57.8545 -133.315,57.8545 -133.3487,57.842 -133.3982,57.8017 -133.3784,57.7563 -133.3906,57.7278 -133.4168,57.7157 -133.4585,57.7229 -133.5613,57.8284 -133.5699,57.9037 -133.5173,57.9608 -133.4536,58.0339 -133.4363,58.0766 -133.5052,58.0637 -133.5643,57.9785 -133.5859,57.9397 -133.6365,57.9224 -133.6699,57.9109 -133.7319,57.9449 -133.7685,57.9714 -133.8156,58.0095 -133.8252,58.0318 -133.8415,58.1198 -133.8072,58.1837 -133.7502,58.2706 -133.7635,58.3201 -133.6828,58.4214 -133.6569,58.4358 -133.634,58.4396 -133.6127,58.4394 -133.5717,58.4335 -133.548,58.4364 -133.5283,58.4453 -133.6137,58.4519 -133.6353,58.4513 -133.6787,58.4422 -133.7267,58.428 -133.7985,58.3235 -133.8541,58.1709 -133.9043,58.1311 -133.9358,58.1276 -133.9947,58.1393 -134.1378,58.2174 -134.243,58.2769 -134.2721,58.2859 -134.2934,58.2896 -134.3287,58.2825 -134.3942,58.2864 -134.5107,58.3121 -134.5241,58.3659 -134.5261,58.3906 -134.6992,58.5619 -134.7264,58.5757 -134.6728,58.6175 -134.6817,58.707 -134.7018,58.7448 -134.7512,58.7352 -134.7694,58.7075 -134.7786,58.6718 -134.8107,58.6825 -134.8957,58.7728 -134.8814,58.8111 -134.9821,59.0574 -135.032,59.1325 -135.0635,59.1505 -135.1078,59.1903 -135.1039,59.2592 -135.0951,59.2955 -135.0825,59.3235 -135.0725,59.3816 -135.0949,59.3927 -135.1464,59.2967 -135.2075,59.2198 -135.1767,59.1859 -135.1084,59.1383 -135.0924,59.118 -135.0523,59.022 -135.1147,59.0559 -135.133,59.0869 -135.1429,59.1091 -135.164,59.1281 -135.2167,59.1478 -135.2363,59.1528 -135.2946,59.1544 -135.194,59.0576 -135.1452,58.9998 -135.1397,58.891 -135.0762,58.7962 -135.0625,58.7781 -134.9953,58.6511 -134.9391,58.5923 -134.9209,58.5757 -134.9366,58.5523 -134.9321,58.4908 -134.9163,58.4737 -134.8439,58.3667 -134.8254,58.3275 -134.8022,58.271 -134.8039,58.2352 -134.8388,58.1634 -134.9101,58.1377 -135.0276,58.1643 -135.0739,58.1801 -135.0966,58.1956 -135.1207,58.2227 -135.1547,58.2769 -135.1598,58.3125 -135.2224,58.4017 -135.2611,58.4052 -135.3612,58.3505 -135.5065,58.3257 -135.6616,58.3116 -135.6385,58.3813 -135.5983,58.3979 -135.587,58.4683 -135.6219,58.5321 -135.6388,58.5425 -135.6797,58.5858 -135.8145,58.7481 -135.6939,58.7905 -135.6001,58.8064 -135.5149,58.8255 -135.5527,58.8384 -135.5819,58.8399 -135.6761,58.8312 -135.7047,58.8189 -135.7945,58.8207 -135.8173,58.8743 -135.8355,58.9142 -135.8485,58.9406 -135.8907,58.9611 -135.9116,58.9567 -135.8915,58.945 -135.8566,58.8587 -135.843,58.792 -135.8524,58.7602 -135.8787,58.708 -135.9161,58.6846 -135.9851,58.6813 -136.2169,58.7592 -136.3283,58.8453 -136.4025,58.8957 -136.431,58.8417 -136.5138,58.8712 -136.6304,58.9207 -136.7844,58.997 -136.8159,58.9947 -136.779,59.0067 -136.7154,59.0274 -136.6877,59.0386 -136.6343,59.061 -136.5549,59.0942 -136.4658,59.0944 -136.3577,59.0937 -136.3302,59.0923 -136.3045,59.1154 -136.2327,59.1847 -136.2086,59.225 -136.208,59.3011 -136.2094,59.343 -136.2086,59.3982 -136.1169,59.3811 -136.0417,59.4022 -135.9793,59.4545 -135.9843,59.49 -136.0433,59.5121 -136.0898,59.53 -136.0554,59.5411 -135.9525,59.5677 -135.9049,59.5749 -135.8659,59.5799 -135.8163,59.5857 -135.6943,59.5975 -135.5684,59.634 -135.2517,59.7222 -135.2191,59.7301 -135.0823,59.6548 -134.9243,59.5654 -134.901,59.5556 -134.8733,59.5507 -134.8442,59.5499 -134.7619,59.4962 -134.7624,59.4689 -134.7656,59.4276 -134.7759,59.3981 -134.8111,59.3867 -134.8274,59.3734 -134.8393,59.3555 -134.7005,59.2091 -134.4881,59.1793 -134.4376,59.1724 -134.4232,59.1366 -134.4005,59.1146 -134.3164,59.0596 -134.2824,59.0613 -134.2172,59.0582 -134.1337,58.9827 -134.0769,58.9006 -134.0791,58.8549 -133.9902,58.7841 -133.84,58.7378 -133.5801,58.656 -133.5619,58.6398 -133.4897,58.5745 -133.3135,58.458 -133.1853,58.3892 -133.1434,58.3422 -133.1645,58.3305 -133.1861,58.2905 -133.1172,58.2109 -133.0624,58.1877 -132.9904,58.1418 -132.9682,58.127 -132.9469,58.1107 -132.8944,58.0666 -132.866,58.0166 -132.8491,57.9714 -132.8286,57.9431 -132.8136,57.9278 -132.7968,57.9137 -132.7534,57.8825 -132.7234,57.8643 -132.6919,57.8404 -132.6363,57.7906 -132.5755,57.7291 -132.5556,57.7026 -132.5465,57.6832 -132.5227,57.6516 -132.3801,57.515 -132.2597,57.4021 -132.2336,57.3828 -132.2127,57.3669 -132.1366,57.307 -132.1165,57.2863 -131.99,57.1368 -132.0246,57.1009 -132.0878,57.0214 -131.9852,57.0003 -131.7917,56.9686 -131.801,56.9453 -131.8267,56.8921 -131.8569,56.8262 -131.8683,56.7991 -131.6276,56.7286 -131.6242,56.6515 -131.5911,56.5315 -131.3784,56.5352 -131.3463,56.5363 -131.3161,56.5323 -131.0826,56.4433 -131.0583,56.4336 -130.9819,56.4022 -130.9334,56.3783 -130.9134,56.3678 -130.8947,56.3575 -130.8318,56.334 -130.6894,56.3157 -130.6169,56.3077 -130.5443,56.2995 -130.5258,56.2863 -130.4908,56.2588 -130.3979,56.1922 -130.3314,56.1835 -130.3037,56.1798 -130.2555,56.1731 -130.233,56.1688 -130.2186,56.1399 -130.137,56.0574 -130.0013,56.0242 -129.8608,56.0518 -129.8262,56.0094 -129.7873,55.9585 -129.7884,55.8431 -129.7884,55.8431 18,-5.0,Canada -80.0201,59.6024 -80.0556,59.5938 -80.0723,59.5887 -80.0808,59.5821 -80.09,59.564 -80.1105,59.5522 -80.127,59.5471 -80.1685,59.5408 -80.1793,59.541 -80.191,59.5467 -80.1445,59.6067 -80.0823,59.6534 -80.0715,59.6519 -80.0208,59.6436 -79.9993,59.6361 -80.0055,59.6089 -80.0201,59.6024 -80.0201,59.6024 259,3.0,Estonia 24.271,57.8027 24.2979,57.8627 24.3143,57.8926 24.3458,57.9337 24.3622,57.9536 24.3857,57.9742 24.4122,58.007 24.4264,58.0582 24.4256,58.083 24.4079,58.1135 24.4248,58.1695 24.4396,58.1855 24.4897,58.2097 24.5129,58.2308 24.5099,58.255 24.4731,58.2832 24.4143,58.3086 24.3752,58.3168 24.3459,58.321 24.311,58.3216 24.2862,58.3171 24.2532,58.2827 24.244,58.2465 24.1978,58.2044 24.0597,58.1661 24.0097,58.2011 23.9672,58.2292 23.9494,58.238 23.9295,58.2462 23.8999,58.2546 23.783,58.2849 23.7328,58.2789 23.6853,58.3012 23.6359,58.3559 23.5808,58.4551 23.4816,58.4883 23.4582,58.5071 23.4523,58.6239 23.4922,58.6715 23.5261,58.6654 23.5486,58.6624 23.6821,58.6745 23.8203,58.7028 23.7832,58.7207 23.7544,58.7294 23.5483,58.7177 23.4398,58.7397 23.3747,58.8388 23.3949,58.8695 23.4338,58.8669 23.4642,58.8665 23.5392,58.8784 23.5932,58.9035 23.5805,58.9389 23.5471,58.9646 23.5234,58.9714 23.5634,58.943 23.513,58.917 23.4709,58.9105 23.4229,58.9134 23.4012,58.9211 23.3673,58.9451 23.3893,58.9863 23.4392,59.0185 23.4224,59.1314 23.4618,59.1557 23.5697,59.1687 23.6754,59.1593 23.6976,59.1651 23.6985,59.1753 23.6922,59.1812 23.6856,59.2018 23.7865,59.2186 23.8125,59.2132 23.8537,59.2011 23.8916,59.2013 23.9828,59.2168 23.9787,59.2941 23.9991,59.3206 24.0283,59.3219 24.0605,59.3143 24.0786,59.3056 24.1033,59.2905 24.1366,59.2752 24.1607,59.2729 24.277,59.3577 24.2838,59.3904 24.3118,59.4011 24.3572,59.4028 24.491,59.3857 24.6767,59.3816 24.7387,59.4455 24.7281,59.4893 24.7495,59.4936 24.8182,59.4715 24.8409,59.4518 24.8721,59.4352 25.0039,59.4405 25.0607,59.458 25.1074,59.4604 25.2114,59.4427 25.2358,59.4377 25.2716,59.4276 25.3118,59.4193 25.3518,59.4168 25.4413,59.4933 25.4299,59.5863 25.5502,59.5263 25.5895,59.4954 25.617,59.4912 25.6576,59.4991 25.665,59.5206 25.6424,59.5458 25.6324,59.5899 25.6667,59.5932 25.7244,59.5648 25.8248,59.5273 25.9316,59.5612 25.9884,59.5499 26.0292,59.5292 26.2141,59.5142 26.3405,59.4903 26.4091,59.4697 26.4385,59.4617 26.4823,59.4663 26.5256,59.4809 26.572,59.4857 26.601,59.482 26.6259,59.4759 26.6871,59.4512 26.7228,59.4326 26.7674,59.4095 26.805,59.3963 26.8336,59.3878 26.8712,59.3794 26.9226,59.3733 26.9829,59.3713 27.0369,59.3709 27.1345,59.3756 27.3402,59.3771 27.3763,59.3769 27.3999,59.3749 27.432,59.3683 27.4589,59.3631 27.5016,59.3574 27.7961,59.3355 27.8361,59.3374 27.8814,59.346 27.902,59.3539 27.9258,59.3693 27.9437,59.3831 27.9637,59.4074 27.9742,59.4036 28.0239,59.3821 28.0572,59.3647 28.123,59.3225 28.1415,59.2969 28.127,59.2573 28.1118,59.2327 28.0918,59.2198 28.0435,59.213 28.0034,59.2082 27.9684,59.2072 27.9439,59.2135 27.9095,59.2152 27.8647,59.2028 27.8283,59.1571 27.7857,59.0801 27.7555,59.0231 27.7389,58.9904 27.6539,58.9154 27.6381,58.9089 27.5459,58.8608 27.491,58.8346 27.4431,58.8113 27.4067,58.7822 27.389,58.7637 27.3779,58.7455 27.3713,58.7147 27.4006,58.6168 27.4391,58.5036 27.4481,58.4846 27.469,58.434 27.4848,58.3812 27.4921,58.3443 27.4931,58.3242 27.4897,58.2951 27.47,58.2742 27.4411,58.2551 27.4159,58.2274 27.4258,58.1438 27.5016,58.0657 27.5229,58.0531 27.5596,58.0381 27.5955,58.0257 27.6235,58.0063 27.6363,57.8963 27.7289,57.8315 27.7631,57.8173 27.7699,57.7987 27.7352,57.7795 27.6939,57.7684 27.6521,57.7627 27.6236,57.7613 27.5799,57.7597 27.5273,57.7541 27.4988,57.7498 27.3539,57.6127 27.2992,57.5203 27.3135,57.4772 27.3228,57.4672 27.261,57.463 27.0285,57.4967 26.9967,57.5257 26.9765,57.5394 26.9474,57.5497 26.9216,57.5547 26.8536,57.5649 26.8301,57.5634 26.6496,57.5071 26.5765,57.4779 26.5591,57.4585 26.4837,57.4544 26.4639,57.4577 26.2588,57.5396 26.2336,57.5558 26.1572,57.6265 25.988,57.7543 25.8999,57.7851 25.8362,57.7869 25.7896,57.7915 25.7546,57.7971 25.5742,57.8485 25.4059,57.9361 25.3838,57.9628 25.2519,58.0142 25.2215,58.0029 25.2495,57.9691 25.2493,57.9416 25.1942,57.9237 25.1738,57.9325 25.1634,57.9513 25.1562,57.9752 25.1402,57.9956 25.1207,58.0058 25.0863,58.0073 25.0461,58.0023 25.02,57.994 24.9928,57.9811 24.9703,57.9704 24.679,57.8959 24.5056,57.8844 24.3996,57.8337 24.3866,57.8135 24.3673,57.8035 24.3289,57.8 24.2804,57.8014 24.271,57.8027 24.271,57.8027 15,2.0,Sweden 17.2242,59.3023 17.1992,59.3042 17.1197,59.3139 17.0384,59.3854 17.058,59.3887 17.1186,59.3853 17.2041,59.3785 17.2247,59.3755 17.235,59.373 17.2481,59.3656 17.2848,59.3343 17.2814,59.3247 17.2342,59.3034 17.2242,59.3023 17.2242,59.3023 16,2.0,Sweden 17.7448,59.2377 17.7214,59.2384 17.6887,59.2451 17.6543,59.2568 17.6391,59.2637 17.6292,59.2717 17.5849,59.3266 17.5755,59.3478 17.5903,59.3541 17.6059,59.355 17.6179,59.3529 17.7078,59.3201 17.7427,59.2994 17.7549,59.2435 17.7448,59.2377 17.7448,59.2377 19,2.0,Norway 5.151,59.0721 5.1456,59.0761 5.1229,59.1335 5.1224,59.1499 5.1289,59.1955 5.1713,59.3385 5.1848,59.3417 5.1989,59.3364 5.2124,59.3263 5.2769,59.2475 5.2832,59.1861 5.2835,59.1697 5.2782,59.148 5.2465,59.0762 5.2238,59.0802 5.2132,59.0804 5.1807,59.077 5.151,59.0721 5.151,59.0721 17,-9.0,United States -153.1068,59.3312 -153.0686,59.3096 -153.06,59.2906 -153.0865,59.2739 -153.1009,59.2671 -153.1208,59.2604 -153.2176,59.2549 -153.2298,59.255 -153.248,59.2594 -153.2658,59.267 -153.2661,59.2934 -153.2326,59.3138 -153.1563,59.3392 -153.1458,59.3409 -153.1169,59.3358 -153.1068,59.3312 -153.1068,59.3312 17,-9.0,United States -150.329,59.3095 -150.3314,59.2974 -150.3419,59.2821 -150.3513,59.2734 -150.3617,59.2654 -150.3737,59.2577 -150.4076,59.2374 -150.4337,59.2349 -150.4836,59.2468 -150.4951,59.2548 -150.4098,59.3329 -150.3963,59.335 -150.3856,59.3336 -150.3574,59.3279 -150.3382,59.3206 -150.329,59.3095 -150.329,59.3095 16,1.0,United Kingdom -2.6808,59.1132 -2.6868,59.122 -2.6864,59.1413 -2.6794,59.1498 -2.5877,59.2195 -2.5506,59.232 -2.5294,59.2341 -2.4014,59.2416 -2.3925,59.2324 -2.3855,59.2102 -2.4906,59.174 -2.5691,59.1712 -2.6178,59.1639 -2.6763,59.1249 -2.6808,59.1132 -2.6808,59.1132 75,12.0,Russia 163.3663,58.9272 163.3741,58.9339 163.3963,58.9439 163.4428,58.9533 163.4716,58.9564 163.5402,58.9599 163.5604,58.96 163.5885,58.9603 163.6504,58.9646 163.7111,58.9756 163.7272,58.9798 163.9267,59.0349 164.0511,59.0876 164.1225,59.1298 164.1339,59.1345 164.2167,59.1611 164.233,59.165 164.2474,59.1661 164.2598,59.1652 164.2718,59.157 164.3518,59.0138 164.3994,58.9542 164.3756,58.8345 164.3683,58.8257 164.3475,58.8122 164.3334,58.808 164.3175,58.804 164.3025,58.8012 164.2882,58.8 164.166,58.7963 163.9911,58.7703 163.8817,58.7531 163.8026,58.726 163.6767,58.6759 163.6217,58.6444 163.4418,58.5713 163.2918,58.5143 163.2786,58.5097 163.2609,58.499 163.2177,58.4704 163.1791,58.4327 163.1712,58.4203 163.166,58.4045 163.1578,58.3955 163.146,58.3976 163.1374,58.4047 163.1297,58.4125 163.1074,58.4439 163.0958,58.4666 163.0858,58.4895 163.1697,58.5085 163.1832,58.5128 163.194,58.5179 163.2724,58.5656 163.2849,58.577 163.3904,58.6749 163.4384,58.7486 163.4422,58.7617 163.443,58.7752 163.4406,58.7964 163.4414,58.8097 163.4474,58.8222 163.4681,58.8462 163.5129,58.8859 163.5308,58.8968 163.5388,58.9244 163.5151,58.9379 163.4672,58.9463 163.4548,58.9473 163.4413,58.947 163.4267,58.9451 163.3947,58.9372 163.3812,58.9327 163.3663,58.9272 163.3663,58.9272 29,1.0,United Kingdom -2.819,58.8084 -2.8637,58.8229 -2.9645,58.8689 -3.0027,58.8696 -3.0513,58.8652 -3.1045,58.8577 -3.1137,58.8508 -3.1662,58.8405 -3.1854,58.8401 -3.297,58.8751 -3.307,58.8796 -3.339,58.8951 -3.3556,58.9234 -3.3615,58.9413 -3.3445,59.0375 -3.3111,59.0588 -3.2687,59.0697 -3.2326,59.0753 -3.2126,59.0779 -3.1931,59.077 -3.0692,59.0498 -2.9909,58.9973 -2.9902,58.985 -2.9417,58.9276 -2.8469,58.905 -2.7878,58.8808 -2.7507,58.8471 -2.819,58.8084 -2.819,58.8084 72,3.0,Estonia 22.5238,58.6165 22.5059,58.6172 22.4902,58.6183 22.4763,58.621 22.4386,58.6296 22.427,58.6412 22.4305,58.6935 22.4066,58.7643 22.3849,58.7847 22.3637,58.8011 22.3447,58.814 22.3285,58.8199 22.2951,58.8219 22.2358,58.8191 22.2046,58.8083 22.1884,58.8078 22.1362,58.8183 22.1242,58.8215 22.0228,58.8531 22.0086,58.8595 22.0036,58.872 22.0117,58.8792 22.0242,58.8815 22.1502,58.8769 22.3343,58.881 22.3931,58.8959 22.4264,58.9076 22.4462,58.9216 22.4818,58.9517 22.5339,58.998 22.6548,58.9771 22.6587,58.9462 22.6776,58.9329 22.6917,58.9308 22.7077,58.9295 22.7592,58.9265 22.8007,58.9317 22.8185,58.931 22.8874,58.9119 22.9103,58.8964 23.0033,58.7774 23.0029,58.766 22.9792,58.75 22.9628,58.7602 22.9184,58.7746 22.9059,58.7742 22.8424,58.7626 22.8248,58.7515 22.8432,58.7435 22.8436,58.7133 22.8059,58.7034 22.774,58.7024 22.7565,58.7032 22.7393,58.7084 22.7384,58.7226 22.751,58.7298 22.7619,58.7333 22.7842,58.7493 22.7703,58.7559 22.7562,58.7545 22.7339,58.7482 22.7014,58.7327 22.6792,58.7112 22.6596,58.6835 22.6496,58.6651 22.636,58.6434 22.6252,58.635 22.6046,58.6274 22.5825,58.6209 22.554,58.618 22.5238,58.6165 22.5238,58.6165 23,3.0,Estonia 23.1494,58.9714 23.2826,58.9667 23.2967,58.9647 23.3086,58.9613 23.3229,58.9548 23.3464,58.9308 23.3465,58.9156 23.3378,58.9056 23.3268,58.9024 23.2491,58.8937 23.2342,58.8926 23.1376,58.8904 23.1218,58.8921 23.1056,58.8979 23.0952,58.9061 23.0693,58.9504 23.0746,58.9602 23.0838,58.9642 23.0949,58.9677 23.1081,58.9697 23.1387,58.9717 23.1494,58.9714 23.1494,58.9714 15,1.0,United Kingdom -3.2252,58.7054 -3.2905,58.7066 -3.4262,58.8054 -3.4086,58.8368 -3.3914,58.8469 -3.3428,58.8565 -3.3291,58.8568 -3.2247,58.8155 -3.2085,58.8036 -3.1294,58.7322 -3.1332,58.7155 -3.1541,58.7109 -3.1746,58.7088 -3.2252,58.7054 -3.2252,58.7054 15,1.0,United Kingdom -2.9337,58.6599 -2.9423,58.6603 -2.952,58.6645 -2.9647,58.6719 -2.9742,58.6799 -3.0263,58.7507 -3.0013,58.7621 -2.9691,58.7647 -2.9106,58.7685 -2.8913,58.7674 -2.8808,58.7616 -2.8716,58.7517 -2.9107,58.6627 -2.9337,58.6599 -2.9337,58.6599 21,-9.0,United States -160.8165,58.5852 -160.7634,58.6318 -160.7457,58.6399 -160.6509,58.67 -160.6393,58.6715 -160.5875,58.676 -160.5674,58.6805 -160.5507,58.6862 -160.4788,58.713 -160.463,58.7217 -160.4496,58.7319 -160.3931,58.7442 -160.6067,58.5082 -160.6159,58.4998 -160.6299,58.4932 -160.6483,58.4881 -160.6612,58.487 -160.7919,58.4868 -160.7898,58.516 -160.8165,58.5852 -160.8165,58.5852 22,3.0,Estonia 23.2049,58.6008 23.2288,58.5943 23.2745,58.5807 23.3002,58.571 23.3543,58.4922 23.3534,58.4809 23.3333,58.4633 23.3222,58.4599 23.1848,58.4599 23.1728,58.4633 23.0486,58.5102 23.0258,58.5213 23.0166,58.5345 23.0223,58.5489 23.0979,58.5957 23.1071,58.6003 23.1309,58.6056 23.144,58.6081 23.1584,58.6089 23.1737,58.6075 23.2049,58.6008 23.2049,58.6008 1561,1.0,United Kingdom -3.0475,53.7047 -3.0537,53.7221 -3.0545,53.7348 -3.0472,53.8446 -3.0382,53.8556 -3.0197,53.863 -2.9276,53.8876 -2.892,53.936 -2.8286,54.022 -2.8125,54.0795 -2.8086,54.1593 -2.926,54.09 -3.1467,54.0186 -3.2092,54.0322 -3.2243,54.0378 -3.3745,54.1809 -3.4048,54.2165 -3.4064,54.2278 -3.4279,54.2845 -3.4599,54.315 -3.487,54.3398 -3.5186,54.3626 -3.5508,54.3847 -3.6069,54.4247 -3.6263,54.4484 -3.5628,54.5785 -3.4232,54.7515 -3.3856,54.8123 -3.3752,54.82 -3.2833,54.8737 -3.2644,54.8771 -3.203,54.8852 -3.1825,54.8822 -3.1734,54.876 -3.1273,54.8671 -3.0979,54.8694 -3.0204,54.8832 -3.0218,54.9084 -3.036,54.9144 -3.0454,54.9153 -3.0609,54.9105 -3.1415,54.9006 -3.3547,54.907 -3.3704,54.9082 -3.3847,54.9098 -3.4393,54.9219 -3.5649,54.9264 -3.5742,54.9051 -3.6095,54.811 -3.6225,54.8132 -3.6859,54.8169 -3.8056,54.7848 -3.8629,54.741 -3.9467,54.7035 -3.958,54.7012 -3.9724,54.7012 -4.0885,54.7035 -4.1284,54.7105 -4.3428,54.7948 -4.3709,54.8175 -4.3731,54.8288 -4.3771,54.8411 -4.3904,54.8421 -4.4167,54.8174 -4.4209,54.7998 -4.4035,54.7617 -4.352,54.7068 -4.3383,54.6453 -4.3406,54.6353 -4.3482,54.6239 -4.3574,54.6163 -4.3683,54.6125 -4.3795,54.6115 -4.3944,54.6129 -4.4885,54.635 -4.4983,54.6388 -4.5499,54.675 -4.553,54.6859 -4.5907,54.7162 -4.6728,54.7357 -4.7322,54.7573 -4.7927,54.7915 -4.8058,54.7974 -4.8172,54.8 -4.8436,54.8042 -4.8852,54.7879 -4.9157,54.7727 -4.927,54.7655 -4.9521,54.7327 -4.9362,54.7033 -4.9035,54.6525 -4.8915,54.6369 -4.8796,54.632 -4.8623,54.6212 -4.8489,54.5655 -4.8556,54.5633 -4.9139,54.5765 -4.9283,54.5826 -4.9416,54.5909 -4.9537,54.6174 -4.944,54.6327 -4.9497,54.6601 -4.9964,54.6992 -5.0264,54.718 -5.0659,54.7416 -5.0937,54.7574 -5.1076,54.7676 -5.1229,54.7809 -5.1331,54.7929 -5.1609,54.8268 -5.1687,54.8399 -5.1753,54.8573 -5.1765,54.8719 -5.1691,54.9244 -5.1652,54.9363 -5.1531,54.9445 -5.1431,54.9472 -5.096,54.9592 -5.0448,54.9842 -5.0037,55.0685 -4.9903,55.0769 -4.9653,55.0901 -4.9264,55.1135 -4.8568,55.1584 -4.8392,55.2044 -4.8285,55.2536 -4.7399,55.3452 -4.7205,55.355 -4.7054,55.3597 -4.6741,55.3686 -4.6454,55.372 -4.6313,55.3775 -4.6053,55.4255 -4.6149,55.4484 -4.651,55.4965 -4.6788,55.532 -4.6883,55.5403 -4.6995,55.5455 -4.7209,55.5524 -4.7609,55.5632 -4.8049,55.58 -4.8524,55.6066 -4.8672,55.6164 -4.8951,55.6242 -4.9077,55.6352 -4.8697,55.8706 -4.8154,55.8835 -4.7819,55.8847 -4.7432,55.8801 -4.7013,55.8679 -4.562,55.8551 -4.5151,55.8527 -4.4773,55.8576 -4.4932,55.8631 -4.6191,55.8795 -4.7681,55.9137 -4.8017,55.9104 -4.846,55.9204 -4.8577,55.9655 -4.8509,56.0042 -4.8377,56.0199 -4.8199,56.0467 -4.8586,56.0395 -4.8728,56.0051 -4.8896,55.9155 -4.9044,55.8953 -4.9197,55.8675 -4.9531,55.8142 -4.9779,55.7988 -5.0034,55.8011 -5.0168,55.8038 -5.1008,55.8371 -5.1641,55.8631 -5.197,55.856 -5.2151,55.8359 -5.2202,55.8081 -5.1986,55.7785 -5.1982,55.7629 -5.2829,55.7814 -5.296,55.7864 -5.3303,55.836 -5.3312,55.8601 -5.2997,55.9397 -5.2715,55.9684 -5.2642,55.9755 -5.1914,56.0523 -5.063,56.1206 -4.9654,56.1667 -4.9384,56.1833 -4.9133,56.2047 -5.0231,56.166 -5.1967,56.071 -5.2297,56.0525 -5.2493,56.0408 -5.278,56.0178 -5.2965,56.0031 -5.3074,55.989 -5.3293,55.9682 -5.3465,55.9589 -5.3897,55.9334 -5.4195,55.9409 -5.4094,55.8407 -5.3706,55.6847 -5.3947,55.6707 -5.4364,55.6412 -5.4436,55.6212 -5.4594,55.6029 -5.4767,55.5773 -5.5456,55.3491 -5.5243,55.3316 -5.5054,55.2981 -5.5134,55.287 -5.5256,55.2754 -5.5572,55.2517 -5.5861,55.2408 -5.7279,55.2272 -5.7423,55.2267 -5.7559,55.2287 -5.7716,55.2339 -5.7787,55.2436 -5.7851,55.295 -5.7855,55.3081 -5.784,55.3228 -5.7774,55.3313 -5.7489,55.3522 -5.7143,55.3688 -5.7076,55.3794 -5.7078,55.4494 -5.6914,55.5229 -5.6593,55.596 -5.5999,55.6937 -5.6373,55.7156 -5.6632,55.7393 -5.6669,55.8226 -5.6678,55.8336 -5.6637,55.8476 -5.6542,55.8532 -5.645,55.859 -5.6237,55.9001 -5.5703,55.9471 -5.5682,55.9712 -5.5875,55.9659 -5.6155,55.9544 -5.6502,55.9164 -5.6658,55.908 -5.6678,55.9278 -5.6322,55.977 -5.6224,55.9857 -5.5914,56.01 -5.5535,56.0469 -5.51,56.0985 -5.506,56.119 -5.5224,56.1162 -5.5491,56.1031 -5.5638,56.0937 -5.5876,56.0932 -5.5865,56.1906 -5.5615,56.2617 -5.5163,56.307 -5.5131,56.3199 -5.4275,56.3557 -5.4146,56.3643 -5.318,56.3689 -5.2991,56.3627 -5.2295,56.369 -5.2116,56.369 -5.1966,56.3741 -5.184,56.3816 -5.1264,56.4183 -5.1115,56.4285 -5.0984,56.4408 -5.061,56.4937 -5.075,56.4901 -5.0868,56.4779 -5.0947,56.4627 -5.1063,56.446 -5.1818,56.3952 -5.1936,56.3875 -5.2052,56.3852 -5.2227,56.3841 -5.3586,56.4076 -5.389,56.4119 -5.3673,56.4542 -5.354,56.448 -5.3271,56.4495 -5.2412,56.4904 -5.3086,56.4894 -5.3272,56.4812 -5.344,56.4795 -5.3644,56.4922 -5.3733,56.5159 -5.3051,56.5896 -5.2326,56.6452 -5.167,56.6927 -5.1231,56.7268 -5.1117,56.7474 -5.145,56.7319 -5.1796,56.7091 -5.2245,56.676 -5.3537,56.5949 -5.554,56.4738 -5.5828,56.4573 -5.5918,56.4526 -5.6666,56.427 -5.6835,56.4443 -5.78,56.4713 -5.816,56.4753 -5.8734,56.4864 -5.885,56.49 -5.9199,56.5027 -5.9319,56.5095 -5.9851,56.5444 -5.9984,56.5553 -5.999,56.5665 -5.9858,56.5782 -5.9768,56.5822 -5.964,56.5844 -5.8719,56.5897 -5.689,56.6155 -5.6384,56.6133 -5.6025,56.6147 -5.5422,56.6216 -5.7292,56.6443 -5.7554,56.6443 -5.7689,56.6406 -5.7822,56.6344 -5.8156,56.6242 -5.8349,56.6137 -5.9086,56.6068 -6.1803,56.6124 -6.1978,56.6169 -6.2165,56.6301 -6.2234,56.6495 -6.1807,56.6816 -6.1291,56.6905 -5.9561,56.7128 -5.9402,56.7136 -5.9294,56.7084 -5.8944,56.6896 -5.8569,56.6756 -5.8389,56.6774 -5.7917,56.7243 -5.829,56.7361 -5.8453,56.747 -5.8426,56.7606 -5.7752,56.7721 -5.7387,56.7749 -5.7225,56.7718 -5.7075,56.772 -5.6525,56.8018 -5.6622,56.8086 -5.7323,56.8261 -5.7572,56.8251 -5.8075,56.8181 -5.8547,56.812 -5.8722,56.8115 -5.9087,56.8198 -5.8153,56.9359 -5.7957,56.9437 -5.7835,56.9461 -5.753,56.9424 -5.7405,56.9441 -5.7233,56.9414 -5.7119,56.9292 -5.6868,56.9216 -5.6613,56.9123 -5.6509,56.9087 -5.6357,56.9045 -5.6195,56.9055 -5.5691,56.9125 -5.556,56.9147 -5.5281,56.9218 -5.514,56.9296 -5.5419,56.9256 -5.5591,56.9222 -5.6059,56.9173 -5.6213,56.9172 -5.6438,56.9245 -5.7632,56.9777 -5.7767,56.9863 -5.7752,57.0003 -5.7648,57.0128 -5.7142,57.0454 -5.6811,57.0432 -5.641,57.0483 -5.6102,57.0428 -5.6014,57.0358 -5.5674,57.0299 -5.5492,57.0248 -5.5271,57.0204 -5.5081,57.0202 -5.3931,57.0429 -5.411,57.0498 -5.4335,57.0505 -5.4474,57.0487 -5.4717,57.0443 -5.5403,57.0485 -5.6371,57.0938 -5.6358,57.1671 -5.6003,57.1731 -5.5506,57.1866 -5.5385,57.1886 -5.5296,57.1794 -5.4848,57.1709 -5.4668,57.1617 -5.4396,57.1534 -5.4152,57.151 -5.3953,57.1629 -5.5025,57.2093 -5.5609,57.2161 -5.5885,57.2622 -5.5653,57.2639 -5.5103,57.291 -5.4826,57.3028 -5.4508,57.3201 -5.4427,57.3277 -5.4412,57.3498 -5.4521,57.3518 -5.4933,57.3328 -5.6222,57.3023 -5.7406,57.2753 -5.7632,57.2719 -5.7782,57.2758 -5.8073,57.2943 -5.8493,57.3827 -5.856,57.3996 -5.8607,57.4108 -5.859,57.4255 -5.8396,57.4813 -5.829,57.5042 -5.8051,57.5106 -5.7662,57.5014 -5.7394,57.4797 -5.6428,57.4402 -5.6326,57.4404 -5.6096,57.4564 -5.5206,57.46 -5.5,57.4646 -5.5096,57.48 -5.5251,57.4838 -5.6331,57.4838 -5.6446,57.4786 -5.6594,57.4783 -5.6851,57.4911 -5.8001,57.5711 -5.8064,57.7506 -5.7906,57.7851 -5.7563,57.7959 -5.7445,57.7985 -5.7063,57.8006 -5.683,57.7831 -5.6731,57.777 -5.6525,57.7202 -5.6306,57.7053 -5.5965,57.6975 -5.5713,57.7505 -5.5712,57.7626 -5.5893,57.776 -5.6152,57.7832 -5.6243,57.7956 -5.6336,57.8116 -5.6342,57.8307 -5.6215,57.8425 -5.6006,57.8545 -5.4475,57.79 -5.4187,57.832 -5.3287,57.8519 -5.2079,57.8319 -5.1181,57.8005 -5.1023,57.7904 -5.0935,57.7819 -5.0889,57.7993 -5.1836,57.8817 -5.1934,57.8855 -5.2529,57.9022 -5.3882,57.9621 -5.407,57.9735 -5.4426,58.005 -5.4324,58.0243 -5.4128,58.0289 -5.3983,58.0251 -5.3741,58.0145 -5.362,58.0068 -5.3051,57.995 -5.2836,57.9992 -5.2716,58.0081 -5.264,58.0478 -5.2648,58.0792 -5.2844,58.0807 -5.3876,58.181 -5.3795,58.1908 -5.3587,58.1895 -5.1939,58.1814 -5.0622,58.195 -5.0727,58.1995 -5.1169,58.2179 -5.1552,58.2558 -5.1652,58.2804 -5.1594,58.2954 -5.0999,58.4386 -4.9923,58.5541 -4.7613,58.5325 -4.6928,58.4885 -4.668,58.4545 -4.6931,58.44 -4.7091,58.4247 -4.7524,58.3763 -4.7326,58.3787 -4.6593,58.4185 -4.5904,58.4603 -4.591,58.4799 -4.5889,58.4914 -4.5799,58.501 -4.5696,58.5044 -4.5519,58.506 -4.4983,58.4977 -4.4678,58.4911 -4.4281,58.4791 -4.4204,58.4696 -4.2692,58.4635 -4.0728,58.4853 -3.896,58.4882 -3.8412,58.4901 -3.7754,58.4976 -3.7233,58.5228 -3.7046,58.5336 -3.6535,58.5495 -3.5692,58.5519 -3.5466,58.5392 -3.3631,58.5257 -3.3533,58.5294 -3.3466,58.5463 -3.3669,58.5575 -3.3474,58.5906 -3.1702,58.5794 -3.0169,58.5766 -3.009,58.5681 -3.0523,58.3811 -3.1039,58.3121 -3.116,58.2999 -3.1994,58.2365 -3.3311,58.2074 -3.3539,58.2056 -3.3754,58.1953 -3.4139,58.1741 -3.4378,58.1536 -3.4525,58.1338 -3.4767,58.1132 -3.5067,58.0942 -3.5596,58.07 -3.6777,58.0205 -3.8378,57.9508 -3.9893,57.8814 -4.004,57.8578 -3.9842,57.837 -4.0077,57.7988 -4.0992,57.7829 -4.1124,57.7818 -4.2353,57.8015 -4.3542,57.8287 -4.3698,57.8345 -4.3835,57.8324 -4.3418,57.7915 -4.2896,57.7774 -4.2752,57.7754 -4.1421,57.7563 -4.0356,57.7455 -3.9192,57.7386 -3.8674,57.7463 -3.8435,57.7512 -3.8309,57.7588 -3.8164,57.7796 -3.7997,57.7893 -3.7814,57.7922 -3.7668,57.786 -3.7709,57.7749 -3.8125,57.7358 -3.8584,57.6997 -3.9406,57.646 -3.9613,57.6337 -3.9703,57.6295 -3.9813,57.6268 -3.9938,57.6245 -4.0117,57.6335 -4.0088,57.6478 -4.0119,57.6592 -4.0238,57.6626 -4.0778,57.6575 -4.0902,57.6551 -4.2887,57.6058 -4.4084,57.533 -4.4234,57.5042 -4.4067,57.5044 -4.3701,57.5214 -4.3357,57.5391 -4.3224,57.5505 -4.3044,57.5596 -4.2516,57.5865 -4.2414,57.591 -4.2198,57.5962 -4.1837,57.6027 -4.0732,57.5968 -4.0393,57.574 -4.1038,57.5297 -4.1718,57.494 -4.2029,57.4677 -4.2209,57.4471 -4.2299,57.4284 -4.2174,57.4207 -4.2052,57.4178 -4.1889,57.4174 -4.1714,57.4212 -4.1514,57.4285 -4.0322,57.4874 -3.7473,57.5565 -3.6339,57.5703 -3.6177,57.5641 -3.5886,57.5679 -3.5157,57.5946 -3.4985,57.6063 -3.4891,57.6223 -3.4914,57.634 -3.4814,57.6406 -3.3333,57.6548 -3.2799,57.6562 -3.2718,57.6493 -3.2549,57.6361 -3.2401,57.6296 -3.2172,57.623 -3.1176,57.603 -3.075,57.5971 -3.0329,57.594 -3.0169,57.5965 -2.9839,57.6056 -2.962,57.6115 -2.9369,57.6207 -2.9183,57.6284 -2.8925,57.6384 -2.8474,57.6371 -2.7812,57.6336 -2.6407,57.6194 -2.5652,57.6109 -2.5054,57.6032 -2.4397,57.5999 -2.3917,57.5977 -2.1821,57.5998 -2.1658,57.6025 -2.1361,57.622 -2.1275,57.6266 -2.1161,57.6287 -2.0717,57.6307 -2.0183,57.6252 -1.926,57.609 -1.9146,57.602 -1.8564,57.5529 -1.8183,57.5101 -1.7779,57.4371 -1.7709,57.4226 -1.77,57.3897 -1.8524,57.3308 -1.9551,57.2643 -1.9713,57.249 -2.0504,57.1507 -2.0577,57.1363 -2.062,57.1227 -2.0704,57.0799 -2.0635,57.0667 -2.0894,57.0026 -2.1629,56.9331 -2.1863,56.907 -2.1924,56.8945 -2.193,56.8764 -2.1858,56.8648 -2.1819,56.8528 -2.1901,56.8349 -2.2155,56.8005 -2.3155,56.7289 -2.3435,56.7171 -2.3857,56.7045 -2.4108,56.6912 -2.4735,56.6481 -2.4581,56.6292 -2.4441,56.6241 -2.484,56.547 -2.5266,56.5093 -2.5466,56.4971 -2.6358,56.4556 -2.716,56.4222 -2.89,56.3972 -2.9531,56.3893 -3.0349,56.3881 -3.0462,56.3881 -3.0648,56.385 -3.0753,56.382 -3.272,56.2909 -3.2588,56.2794 -3.2467,56.2815 -3.1845,56.2931 -2.9899,56.3475 -2.9269,56.3761 -2.9111,56.3833 -2.8954,56.3854 -2.8792,56.3846 -2.8647,56.3828 -2.8071,56.3728 -2.7991,56.3661 -2.7948,56.3462 -2.8041,56.3298 -2.8101,56.307 -2.808,56.2963 -2.7973,56.2789 -2.7636,56.2651 -2.722,56.2576 -2.6991,56.2581 -2.6671,56.2561 -2.6325,56.2479 -2.5794,56.2159 -2.5786,56.202 -2.6746,56.148 -2.7829,56.1211 -2.8148,56.1176 -2.8293,56.1172 -2.8417,56.1201 -2.8527,56.1237 -2.8724,56.1331 -2.8827,56.1354 -2.9112,56.1385 -2.9264,56.1388 -2.9515,56.1356 -2.9707,56.1281 -3.1334,56.0445 -3.1473,56.0222 -3.3379,55.9571 -3.3896,55.9447 -3.4033,55.9463 -3.4349,55.9532 -3.491,55.9682 -3.5648,55.9873 -3.576,55.9886 -3.7132,55.9903 -3.7305,55.9894 -3.7172,55.961 -3.6575,55.9402 -3.6395,55.939 -3.4484,55.9259 -3.249,55.9057 -3.0826,55.8819 -3.0621,55.8785 -3.0475,55.8774 -3.0126,55.8834 -2.9298,55.9032 -2.9192,55.9063 -2.9029,55.9131 -2.8902,55.9223 -2.861,55.9622 -2.8287,55.9849 -2.8151,55.9906 -2.7892,55.9941 -2.777,55.9952 -2.6522,55.9934 -2.6265,55.9883 -2.5959,55.9771 -2.4975,55.9367 -2.3711,55.891 -2.2561,55.8524 -2.1265,55.8197 -2.0759,55.8014 -2.0668,55.7845 -2.0574,55.7742 -2.0179,55.7401 -2.01,55.7293 -1.997,55.7144 -1.973,55.6882 -1.8478,55.5916 -1.8143,55.5676 -1.8018,55.5655 -1.7915,55.5714 -1.7436,55.5593 -1.6869,55.5401 -1.6328,55.5166 -1.5779,55.4182 -1.5716,55.3499 -1.5797,55.3349 -1.5944,55.3203 -1.5628,55.222 -1.5179,55.0991 -1.5123,55.0849 -1.4801,55.0214 -1.4101,54.935 -1.3789,54.9118 -1.3624,54.8635 -1.343,54.8071 -1.3021,54.7074 -1.295,54.6996 -1.1629,54.5857 -1.0595,54.5533 -1.042,54.5491 -0.8741,54.5065 -0.5637,54.4163 -0.5172,54.3839 -0.4564,54.3132 -0.435,54.2869 -0.4206,54.2687 -0.3923,54.2094 -0.3927,54.2039 -0.3811,54.192 -0.262,54.1113 -0.2001,54.0886 -0.1511,54.0783 -0.1164,54.069 -0.079,54.0503 -0.112,54.0353 -0.1382,54.0316 -0.1606,54.0249 -0.1733,54.0183 -0.2053,53.9885 -0.214,53.9683 -0.2148,53.9558 -0.2116,53.9452 -0.1686,53.8555 -0.1271,53.801 -0.1122,53.7878 -0.0992,53.777 -0.0535,53.7402 -0.0129,53.7057 0.0625,53.6412 0.1264,53.5828 0.1409,53.5648 0.1494,53.552 0.1538,53.5401 0.1493,53.5259 0.1419,53.5182 0.126,53.5098 0.1374,53.5313 0.1304,53.5458 0.1089,53.5565 0.0892,53.5643 0.0676,53.5708 0.0442,53.5766 0.0297,53.5775 0.0141,53.5766 0.0,53.5728 -0.0345,53.5631 -0.0514,53.5604 -0.0747,53.5602 -0.0854,53.5618 -0.1056,53.569 -0.1292,53.5789 -0.1416,53.5854 -0.171,53.6128 -0.2309,53.659 -0.249,53.6669 -0.2717,53.673 -0.2931,53.6739 -0.3564,53.668 -0.3803,53.6638 -0.4219,53.655 -0.5482,53.6436 -0.5638,53.6488 -0.5806,53.6615 -0.6048,53.667 -0.6184,53.6675 -0.6311,53.6664 -0.6532,53.6625 -0.6776,53.655 -0.715,53.6339 -0.6917,53.6236 -0.5186,53.6227 -0.5038,53.6237 -0.457,53.6334 -0.3895,53.6454 -0.3008,53.6504 -0.287,53.646 -0.2638,53.6282 -0.2411,53.6056 -0.2298,53.5907 -0.2222,53.5817 -0.2068,53.5684 -0.1168,53.5194 -0.1003,53.5106 0.027,53.4472 0.0852,53.4242 0.1254,53.4121 0.1435,53.4128 0.1684,53.3978 0.2168,53.3548 0.2354,53.3372 0.2473,53.3184 0.2547,53.3054 0.2696,53.2842 0.3391,53.1726 0.3535,53.1252 0.3558,53.1144 0.3572,53.099 0.3549,53.082 0.3388,53.0306 0.3264,53.0214 0.2762,53.0053 0.2037,52.9662 0.1732,52.9476 0.0322,52.8558 0.0022,52.8182 0.028,52.8194 0.0578,52.8278 0.0721,52.8295 0.0864,52.828 0.1222,52.816 0.1475,52.8071 0.1609,52.8011 0.1736,52.7906 0.1868,52.7763 0.2175,52.7456 0.2399,52.7348 0.3627,52.7187 0.3782,52.7202 0.4286,52.7624 0.4344,52.7714 0.4377,52.7841 0.4438,52.8041 0.4908,52.8729 0.5468,52.9044 0.6664,52.9146 0.8834,52.9046 0.8974,52.896 0.9081,52.8912 0.9407,52.8892 0.9682,52.8883 0.9931,52.8894 1.0044,52.8913 1.182,52.8771 1.2803,52.866 1.304,52.8601 1.3506,52.8481 1.3706,52.8411 1.391,52.8322 1.4302,52.8133 1.4663,52.7929 1.5013,52.7762 1.515,52.7701 1.5284,52.764 1.6427,52.7096 1.6544,52.7028 1.6727,52.6869 1.6836,52.6754 1.7,52.6547 1.7044,52.6447 1.7186,52.6155 1.7432,52.5589 1.7463,52.4681 1.7467,52.3948 1.7278,52.3504 1.7303,52.3321 1.724,52.3208 1.6833,52.2656 1.6277,52.1347 1.6239,52.1176 1.5851,52.0236 1.5772,52.0158 1.388,51.9096 1.3291,51.8687 1.3157,51.8834 1.2754,51.9252 1.2627,51.9323 1.1617,51.9631 1.2065,51.8904 1.2792,51.8209 1.2915,51.8141 1.2814,51.7923 1.2641,51.7791 1.2216,51.7488 1.2024,51.7381 1.1798,51.7295 1.1306,51.7171 1.1101,51.7133 1.0866,51.7107 1.0483,51.7107 1.0343,51.7141 0.996,51.7507 0.9813,51.765 0.9309,51.7457 0.8608,51.7134 0.7231,51.6667 0.7001,51.6585 0.7604,51.6318 0.8619,51.6518 0.8753,51.657 0.9014,51.6748 0.921,51.6806 0.9343,51.6765 0.9456,51.6658 0.9513,51.5494 0.9086,51.5217 0.874,51.5012 0.8195,51.4759 0.8069,51.4704 0.7883,51.4646 0.7781,51.4623 0.7659,51.4618 0.6795,51.4725 0.6509,51.4772 0.4644,51.4434 0.4509,51.4383 0.3886,51.3885 0.4118,51.3874 0.4515,51.396 0.4654,51.4115 0.4745,51.4206 0.4885,51.425 0.5354,51.4285 0.548,51.4285 0.5913,51.4281 0.6964,51.4113 0.7108,51.4059 0.7238,51.3944 0.7207,51.3807 0.7079,51.3764 0.6865,51.3757 0.6648,51.3795 0.6416,51.3809 0.5585,51.3465 0.5834,51.3282 0.6188,51.3237 0.703,51.318 0.9069,51.2811 0.9799,51.286 0.9977,51.2885 1.0109,51.2924 1.0318,51.3025 1.0513,51.3078 1.0648,51.3097 1.1903,51.3191 1.3834,51.3283 1.4255,51.2717 1.4089,51.1417 1.4056,51.1245 1.3961,51.1046 1.3882,51.0948 1.3667,51.0765 1.3537,51.0686 1.2605,51.0424 1.23,51.0417 1.2186,51.0405 1.0985,51.0147 1.0853,51.0097 1.0441,50.9904 1.0286,50.9817 0.9963,50.96 0.9848,50.9483 0.9773,50.9377 0.9697,50.922 0.9666,50.9096 0.9687,50.8865 0.9737,50.873 0.8555,50.8668 0.813,50.8757 0.7923,50.8771 0.7802,50.8767 0.7152,50.846 0.7047,50.8391 0.6781,50.818 0.6614,50.8106 0.5663,50.789 0.4978,50.7792 0.4522,50.7752 0.4301,50.7724 0.4001,50.7659 0.3713,50.7577 0.3491,50.75 0.307,50.7219 0.2962,50.7145 0.2866,50.7063 0.2736,50.6902 0.2633,50.6828 0.2536,50.68 0.2418,50.6793 0.2274,50.6807 0.2152,50.6831 0.1233,50.7007 0.0982,50.7091 0.0569,50.722 -0.094,50.7517 -0.1377,50.7598 -0.1563,50.7627 -0.1904,50.7673 -0.2054,50.768 -0.2543,50.7678 -0.5761,50.7367 -0.6363,50.7287 -0.6742,50.7225 -0.71,50.7153 -0.7449,50.7071 -0.7659,50.691 -0.7666,50.6805 -0.7803,50.6687 -0.7982,50.6675 -0.9067,50.7153 -0.8908,50.7316 -0.8644,50.7411 -0.8704,50.7503 -0.9268,50.7809 -0.9377,50.7822 -1.0924,50.787 -1.157,50.7822 -1.1448,50.7725 -1.1151,50.7483 -1.1295,50.7246 -1.1422,50.7194 -1.329,50.7327 -1.4056,50.7122 -1.5903,50.6655 -1.6116,50.6713 -1.6653,50.6794 -1.6815,50.6801 -1.6984,50.6785 -1.8136,50.6643 -1.9311,50.6544 -2.0061,50.6564 -2.0207,50.6613 -2.0317,50.6729 -2.0636,50.6559 -2.0766,50.638 -1.9717,50.6116 -1.9511,50.6069 -1.9323,50.5808 -1.961,50.5383 -2.051,50.5273 -2.1184,50.5489 -2.1305,50.555 -2.1412,50.5584 -2.1937,50.5678 -2.387,50.5831 -2.4272,50.5767 -2.4428,50.5679 -2.4621,50.5357 -2.462,50.5255 -2.4548,50.5166 -2.4209,50.5015 -2.4304,50.4834 -2.4513,50.4905 -2.4544,50.5035 -2.4905,50.5371 -2.5589,50.5738 -2.6578,50.615 -2.6963,50.6285 -2.7169,50.6346 -2.7669,50.6502 -2.8186,50.6615 -2.8593,50.6696 -2.8782,50.6727 -2.9023,50.6747 -2.923,50.6727 -2.9396,50.6648 -2.9546,50.6543 -2.9732,50.648 -3.0896,50.6335 -3.1685,50.6296 -3.2392,50.616 -3.2491,50.6136 -3.406,50.5576 -3.4318,50.5464 -3.4565,50.5297 -3.4885,50.4879 -3.4946,50.4775 -3.546,50.3802 -3.5478,50.3674 -3.6461,50.1732 -3.6692,50.1622 -3.7007,50.152 -3.711,50.1486 -3.7232,50.1484 -3.7837,50.1542 -3.797,50.1562 -3.8073,50.1593 -3.8305,50.172 -3.839,50.1801 -3.8458,50.1937 -3.8717,50.2233 -3.9377,50.2553 -3.9493,50.2576 -3.9697,50.2558 -3.9792,50.2535 -4.0022,50.2456 -4.0122,50.2383 -4.0247,50.2351 -4.0509,50.2399 -4.1049,50.2722 -4.159,50.3121 -4.1683,50.3195 -4.3732,50.3057 -4.4227,50.2932 -4.4342,50.2862 -4.4452,50.2774 -4.4594,50.271 -4.4758,50.2676 -4.5035,50.2645 -4.5364,50.2642 -4.6381,50.2655 -4.6712,50.2679 -4.7553,50.2532 -4.8501,50.1737 -4.9451,50.1355 -5.0402,50.1133 -5.0517,50.0814 -5.063,50.0238 -5.0465,50.0026 -5.0499,49.9883 -5.0576,49.98 -5.0782,49.9651 -5.1527,49.9457 -5.1708,49.9221 -5.185,49.898 -5.193,49.8994 -5.2208,49.9159 -5.2295,49.9239 -5.2486,49.9477 -5.2442,49.968 -5.2687,50.0021 -5.2814,50.0116 -5.3253,50.0335 -5.4623,50.0671 -5.4777,50.0694 -5.4925,50.0683 -5.503,50.0662 -5.5257,50.058 -5.5331,50.0463 -5.5294,50.0268 -5.5333,50.013 -5.5472,49.9993 -5.5585,49.9935 -5.5744,49.99 -5.6531,49.9788 -5.669,49.9809 -5.6789,49.9845 -5.7081,50.0031 -5.7013,50.0714 -5.683,50.0974 -5.5379,50.1472 -5.5031,50.1562 -5.4875,50.159 -5.4727,50.1561 -5.4609,50.1428 -5.4235,50.1354 -5.26,50.2159 -5.1441,50.2855 -5.0396,50.3693 -5.0178,50.4143 -5.0315,50.4397 -5.0098,50.4841 -4.908,50.5189 -4.8899,50.5206 -4.8661,50.5204 -4.794,50.531 -4.776,50.5354 -4.7644,50.5437 -4.7543,50.5563 -4.7442,50.5828 -4.7362,50.6088 -4.6933,50.6298 -4.6441,50.6568 -4.5542,50.7175 -4.5465,50.7267 -4.5422,50.7439 -4.5403,50.7621 -4.5402,50.8008 -4.5362,50.868 -4.5141,50.9551 -4.4675,50.955 -4.4204,50.9506 -4.4049,50.944 -4.3694,50.9323 -4.3511,50.9305 -4.3326,50.9315 -4.3177,50.9362 -4.2968,50.9453 -4.2302,50.9876 -4.2038,51.0134 -4.2134,51.0513 -4.2212,51.1286 -4.2021,51.1368 -4.1921,51.1389 -4.1102,51.1528 -4.0653,51.1547 -3.9783,51.1575 -3.8779,51.1649 -3.7864,51.1798 -3.6942,51.1707 -3.6265,51.1586 -3.613,51.1575 -3.5864,51.1627 -3.5644,51.1712 -3.5015,51.164 -3.4319,51.1471 -3.4145,51.1312 -3.403,51.1251 -3.3883,51.1222 -3.3648,51.1219 -3.2962,51.122 -3.0236,51.1467 -3.0078,51.197 -3.0085,51.2133 -3.0021,51.2477 -2.9551,51.3155 -2.848,51.3851 -2.7662,51.4294 -2.6489,51.5042 -2.635,51.519 -2.5487,51.5973 -2.4678,51.6643 -2.4508,51.6717 -2.4249,51.6768 -2.3998,51.6806 -2.3844,51.6867 -2.3759,51.7016 -2.3889,51.7152 -2.4567,51.6867 -2.5748,51.618 -2.6247,51.5843 -2.6605,51.5554 -2.6705,51.5471 -2.6946,51.5295 -2.7104,51.521 -2.8432,51.4853 -2.8879,51.4789 -2.9142,51.478 -2.9499,51.4799 -2.9617,51.482 -3.0161,51.4658 -3.1139,51.4278 -3.1229,51.4193 -3.1464,51.3936 -3.1538,51.3709 -3.1595,51.3497 -3.176,51.3377 -3.2658,51.3208 -3.3407,51.3193 -3.3542,51.319 -3.3977,51.3204 -3.411,51.3211 -3.4454,51.3253 -3.4831,51.3307 -3.537,51.3381 -3.5546,51.3461 -3.6661,51.4142 -3.7457,51.4698 -3.7552,51.4849 -3.7755,51.5077 -3.8317,51.5602 -3.9434,51.5528 -3.9593,51.5498 -4.198,51.4755 -4.2104,51.4732 -4.236,51.4813 -4.2709,51.4969 -4.2851,51.5478 -4.2436,51.5686 -4.225,51.5732 -4.2046,51.5669 -4.1708,51.5624 -4.1559,51.5636 -4.1099,51.5742 -4.0699,51.5877 -4.0595,51.6083 -4.068,51.6173 -4.1906,51.6194 -4.2552,51.6171 -4.429,51.6772 -4.567,51.6743 -4.621,51.6689 -4.6382,51.6668 -4.6641,51.6606 -4.6767,51.65 -4.679,51.6295 -4.6828,51.6067 -4.7034,51.5897 -4.7828,51.5735 -4.7997,51.5807 -4.8281,51.5857 -4.8564,51.5803 -4.8823,51.567 -4.9334,51.5344 -4.9974,51.5466 -5.0344,51.5567 -5.0432,51.5603 -5.0131,51.6087 -4.9625,51.616 -4.8972,51.637 -4.8863,51.6394 -4.8534,51.6535 -4.8595,51.6629 -4.8767,51.6868 -4.8824,51.6686 -4.8883,51.6584 -4.901,51.6527 -4.9994,51.6434 -5.0568,51.6449 -5.1828,51.6491 -5.2203,51.6632 -5.2385,51.6702 -5.153,51.7022 -5.1401,51.7052 -5.116,51.7051 -5.1018,51.7075 -5.0944,51.7188 -5.107,51.7731 -5.1127,51.7871 -5.1236,51.7964 -5.1765,51.8093 -5.205,51.8105 -5.2503,51.8105 -5.2307,51.8562 -5.0911,51.9002 -5.0724,51.9165 -5.0683,51.9356 -4.8367,51.9536 -4.8226,51.9561 -4.76,52.0039 -4.7513,52.0125 -4.7386,52.03 -4.7294,52.0433 -4.7152,52.0527 -4.6617,52.0697 -4.6365,52.074 -4.6191,52.0738 -4.5831,52.071 -4.5199,52.0703 -4.4905,52.0764 -4.2848,52.1619 -4.2247,52.1884 -4.1867,52.2155 -4.1364,52.2597 -4.1241,52.2739 -4.0901,52.325 -4.0851,52.3371 -4.0532,52.4248 -4.0544,52.4449 -4.0737,52.4924 -4.1192,52.5428 -4.0995,52.5897 -4.0465,52.6553 -4.0565,52.6628 -4.1237,52.7165 -4.1413,52.739 -4.1287,52.8175 -4.1232,52.8257 -4.1115,52.833 -4.1267,52.8528 -4.2262,52.8534 -4.3056,52.8433 -4.4068,52.8232 -4.4333,52.811 -4.4699,52.7935 -4.4927,52.7678 -4.5321,52.7317 -4.7201,52.72 -4.7363,52.7198 -4.7508,52.7257 -4.7444,52.7455 -4.7334,52.758 -4.7141,52.7746 -4.6436,52.8256 -4.6112,52.8476 -4.5784,52.8623 -4.5454,52.8674 -4.5328,52.8688 -4.5193,52.8742 -4.4985,52.8846 -4.4549,52.9087 -4.3538,52.9673 -4.3455,52.9765 -4.3375,53.0034 -4.3229,53.0502 -4.1909,53.1466 -4.2112,53.1385 -4.3183,53.0833 -4.3442,53.0624 -4.3948,53.0639 -4.4713,53.1147 -4.4871,53.1274 -4.5597,53.2112 -4.5604,53.3277 -4.5524,53.3346 -4.4671,53.3563 -4.4187,53.3623 -4.4087,53.3628 -4.3067,53.3496 -4.2807,53.343 -4.2698,53.3362 -4.2629,53.3263 -4.2152,53.2594 -4.1177,53.2491 -4.1062,53.2504 -4.053,53.2436 -4.0397,53.2393 -4.083,53.193 -4.0944,53.1856 -4.1302,53.1712 -4.0986,53.1654 -4.0597,53.1644 -4.0117,53.1756 -3.9965,53.18 -3.8479,53.2223 -3.7238,53.2273 -3.6863,53.2235 -3.6036,53.2174 -3.5834,53.2201 -3.4558,53.2583 -3.3822,53.2816 -3.357,53.2841 -3.3309,53.2852 -3.3131,53.2846 -3.2063,53.2356 -3.1208,53.1937 -3.0968,53.1859 -3.0832,53.1978 -3.0774,53.2065 -3.1209,53.2627 -3.1489,53.2863 -3.1617,53.2948 -3.1709,53.3004 -3.1834,53.3156 -3.1842,53.3261 -3.175,53.334 -3.1654,53.3379 -3.0671,53.347 -3.0531,53.3479 -3.0385,53.3413 -3.0238,53.3199 -2.9845,53.3052 -2.9377,53.2483 -2.9233,53.24 -2.8947,53.2271 -2.8778,53.2232 -2.8575,53.2207 -2.7717,53.2304 -2.7484,53.2421 -2.7004,53.2883 -2.7129,53.2902 -2.7646,53.2771 -2.7732,53.2706 -2.8525,53.2588 -2.8735,53.2634 -2.9487,53.2979 -2.9587,53.3057 -3.0018,53.3553 -3.0083,53.3626 -3.1002,53.4976 -3.0885,53.514 -3.0678,53.5356 -2.9723,53.6313 -2.9372,53.6452 -2.8949,53.6623 -2.9023,53.6698 -2.9195,53.6716 -2.9345,53.6719 -2.9609,53.671 -2.9878,53.67 -3.0012,53.6722 -3.0166,53.677 -3.0318,53.6867 -3.0475,53.7047 -3.0475,53.7047 21,-9.0,United States -152.0622,58.5233 -152.0968,58.4932 -152.1732,58.4254 -152.1847,58.4147 -152.1974,58.4077 -152.2142,58.4023 -152.2259,58.4015 -152.247,58.4042 -152.2655,58.4075 -152.3424,58.4318 -152.3536,58.4397 -152.3777,58.4753 -152.2805,58.5108 -152.1983,58.5372 -152.1196,58.5609 -152.1014,58.5654 -152.0882,58.5659 -152.0685,58.5591 -152.0599,58.5323 -152.0622,58.5233 -152.0622,58.5233 58,3.0,Estonia 21.9979,57.8392 21.9763,57.8422 21.9576,57.8508 21.9432,57.898 22.0458,58.0099 22.0663,58.0152 22.111,58.0171 22.1537,58.0759 22.0984,58.0905 22.0336,58.1034 21.8374,58.1879 21.8046,58.2196 21.8436,58.2717 21.9156,58.2733 21.9667,58.2872 21.9563,58.3116 21.8715,58.3918 21.838,58.4044 21.8195,58.4132 21.7975,58.4367 21.8847,58.4475 21.9523,58.4459 22.0719,58.4225 22.1531,58.4772 22.2863,58.5075 22.4603,58.5321 22.5828,58.5235 22.7301,58.5331 22.774,58.5467 22.8296,58.5479 22.8691,58.5468 22.9426,58.5296 23.0484,58.4944 23.2203,58.4263 23.2384,58.4172 23.2854,58.377 23.2162,58.36 23.1837,58.3668 23.1598,58.3775 23.1003,58.3737 23.0348,58.3442 23.0222,58.316 22.9864,58.2881 22.7155,58.1708 22.6077,58.1609 22.5409,58.1717 22.4796,58.1726 22.4405,58.1725 22.332,58.1518 22.2361,58.1112 22.2307,58.0837 22.2229,58.0288 22.1621,57.9171 22.0593,57.8617 22.0334,57.8477 22.0118,57.8409 21.9979,57.8392 21.9979,57.8392 112,1.0,United Kingdom -6.4621,57.8794 -6.4615,57.873 -6.5291,57.8467 -6.562,57.8421 -6.6122,57.8458 -6.6408,57.8509 -6.6519,57.8566 -6.6797,57.8891 -6.6863,57.8986 -6.6924,57.9175 -6.6942,57.9342 -6.6835,57.9537 -6.6472,57.9767 -6.6173,57.9793 -6.6061,57.9778 -6.5821,57.9794 -6.5919,57.9852 -6.662,57.989 -6.6743,57.9869 -6.749,57.9293 -6.711,57.8833 -6.6883,57.8756 -6.6693,57.8615 -6.6524,57.8315 -6.6492,57.8135 -6.7228,57.7568 -6.9521,57.6578 -6.9682,57.6584 -7.1086,57.7479 -7.1111,57.7669 -7.0907,57.7679 -7.0793,57.7639 -7.0705,57.7558 -7.0528,57.7518 -7.0159,57.7635 -6.8197,57.8333 -6.8668,57.8635 -6.9222,57.8806 -6.9333,57.8837 -6.9759,57.8904 -7.009,57.8827 -7.0195,57.8836 -7.0623,57.8933 -7.1003,57.9165 -7.0709,57.9391 -7.0427,57.9511 -7.0447,57.9673 -7.0809,58.0012 -7.1141,58.0587 -7.0813,58.1124 -7.0442,58.1522 -7.0233,58.1664 -6.9914,58.1653 -6.9069,58.1465 -6.8946,58.1409 -6.9073,58.1341 -6.9234,58.1187 -6.8584,58.0393 -6.8484,58.0368 -6.8604,58.1094 -6.7926,58.1264 -6.7378,58.116 -6.7324,58.1278 -6.7741,58.1601 -6.7953,58.1903 -6.8041,58.2127 -6.785,58.2327 -6.6608,58.2797 -6.6414,58.2778 -6.5482,58.2901 -6.5379,58.2936 -6.3435,58.3875 -6.2989,58.4092 -6.281,58.4186 -6.263,58.4397 -6.2517,58.4429 -6.2372,58.4404 -6.2231,58.4344 -6.2119,58.4265 -6.1544,58.3533 -6.1928,58.2864 -6.2209,58.2482 -6.2682,58.2183 -6.3121,58.194 -6.3153,58.1659 -6.2706,58.1534 -6.2579,58.156 -6.2094,58.1642 -6.1969,58.1714 -6.1568,58.1898 -6.1361,58.1849 -6.1468,58.1488 -6.1568,58.1402 -6.2133,58.1144 -6.252,58.1074 -6.3174,58.1134 -6.355,58.0892 -6.3654,58.0638 -6.485,58.0281 -6.5361,58.0225 -6.589,58.0159 -6.6076,58.0107 -6.5824,58.0089 -6.485,58.0181 -6.4083,58.0329 -6.3945,58.0366 -6.3813,58.0322 -6.3435,57.9622 -6.3743,57.94 -6.4457,57.899 -6.4621,57.8794 -6.4621,57.8794 68,-9.0,United States -152.4179,57.9841 -152.494,57.9293 -152.5049,57.9244 -152.5743,57.9237 -152.6358,57.9418 -152.7285,57.9702 -152.7539,57.9804 -152.791,58.0214 -152.8592,58.032 -152.8695,58.0331 -152.8898,58.0426 -152.9414,58.0841 -152.951,58.0967 -152.9417,58.1242 -152.9303,58.1351 -152.9177,58.1421 -152.8967,58.1472 -152.8102,58.1297 -152.7335,58.1098 -152.6363,58.0971 -152.6233,58.098 -152.669,58.126 -152.7368,58.1535 -152.792,58.168 -152.8244,58.1922 -152.7711,58.2305 -152.7578,58.234 -152.7331,58.2341 -152.5186,58.2131 -152.5117,58.3045 -152.5081,58.3424 -152.4393,58.3857 -152.3741,58.4081 -152.3585,58.4098 -152.2667,58.3909 -152.1281,58.2937 -152.0721,58.3508 -152.0229,58.3543 -152.0028,58.3513 -151.7049,58.2741 -151.6877,58.2539 -151.6851,58.2084 -151.6951,58.1636 -151.714,58.1464 -151.7842,58.0974 -151.8029,58.0869 -151.8226,58.0804 -151.8386,58.0781 -151.9141,58.105 -151.945,58.1331 -151.9408,58.1426 -151.9399,58.1545 -151.9629,58.1928 -151.9958,58.1926 -152.0255,58.1832 -152.0355,58.1786 -152.0892,58.1248 -152.0433,58.0826 -152.016,58.0838 -151.9995,58.0602 -152.1262,58.0507 -152.2108,58.055 -152.316,58.063 -152.3203,58.0522 -152.3484,58.0093 -152.3784,57.9909 -152.4179,57.9841 -152.4179,57.9841 94,-9.0,United States -133.6331,57.4207 -133.624,57.3901 -133.7616,57.419 -133.8078,57.4228 -133.815,57.3971 -133.7477,57.3843 -133.6489,57.3562 -133.6223,57.2974 -133.7028,57.2349 -133.7323,57.2329 -133.8023,57.2613 -133.8234,57.2854 -133.9302,57.3129 -133.8596,57.2281 -133.8362,57.2009 -133.9237,57.1211 -134.2378,56.9616 -134.3363,56.9594 -134.3537,56.9697 -134.3795,57.0431 -134.372,57.1571 -134.2544,57.303 -134.1049,57.2609 -134.0755,57.2633 -134.1016,57.319 -134.1409,57.3121 -134.2176,57.3229 -134.2847,57.3743 -134.3143,57.4038 -134.3286,57.4192 -134.3075,57.42 -134.2667,57.4189 -134.111,57.473 -134.1404,57.4797 -134.2233,57.4648 -134.2617,57.4517 -134.3117,57.4394 -134.3309,57.4376 -134.3468,57.4692 -134.3675,57.4933 -134.3894,57.5116 -134.4147,57.5344 -134.4623,57.6486 -134.469,57.6719 -134.4535,57.7115 -134.4566,57.7571 -134.5403,58.0368 -134.6664,58.1357 -134.7061,58.2299 -134.7249,58.2972 -134.7028,58.3357 -134.5506,58.2389 -134.4594,58.145 -134.4467,58.0982 -134.4226,58.0906 -134.3917,58.0915 -134.3561,58.1026 -134.3098,58.1166 -134.2067,58.1073 -134.1536,58.0877 -134.112,58.0756 -134.0901,58.0745 -134.0511,58.0826 -133.957,58.0944 -133.9284,58.0903 -133.9175,58.0558 -133.8924,57.9824 -133.8341,57.9393 -133.7603,57.8671 -133.6711,57.7438 -133.6527,57.688 -133.6339,57.6041 -133.6514,57.5867 -133.718,57.6157 -133.7398,57.6651 -133.7538,57.7 -133.8254,57.7617 -133.8488,57.7797 -133.8664,57.8077 -133.8961,57.8852 -133.9108,57.9229 -133.932,57.9445 -133.9943,57.9976 -134.044,58.008 -134.075,57.9618 -134.0275,57.8047 -134.0033,57.7883 -133.9387,57.7454 -133.764,57.5798 -133.6901,57.4936 -133.6812,57.4643 -133.6532,57.4368 -133.6331,57.4207 -133.6331,57.4207 28,-9.0,United States -134.2695,58.2685 -134.2611,58.2665 -134.2292,58.2543 -134.2085,58.2436 -134.0306,58.1432 -134.0164,58.1292 -134.0314,58.1214 -134.1204,58.1366 -134.182,58.1507 -134.1931,58.1529 -134.2057,58.1546 -134.2316,58.1541 -134.2494,58.1505 -134.2633,58.1482 -134.3097,58.1513 -134.3373,58.1565 -134.3621,58.1682 -134.3811,58.1793 -134.3924,58.187 -134.4092,58.201 -134.4365,58.23 -134.4249,58.242 -134.4093,58.2471 -134.3376,58.2689 -134.3205,58.2711 -134.3098,58.2711 -134.2695,58.2685 -134.2695,58.2685 23,2.0,Sweden 11.44,57.9999 11.432,58.0056 11.3813,58.0642 11.3897,58.0781 11.652,58.2162 11.6877,58.2163 11.7005,58.2152 11.7154,58.2122 11.7654,58.1759 11.7908,58.1481 11.7944,58.1025 11.7933,58.0778 11.7897,58.0644 11.782,58.0493 11.6935,58.0317 11.6553,58.0296 11.6031,58.0411 11.5856,58.0494 11.5621,58.0494 11.5325,58.0461 11.4459,58.0295 11.44,57.9999 11.44,57.9999 133,-9.0,United States -134.8788,57.7055 -134.9543,57.707 -134.9863,57.7109 -135.0225,57.7227 -135.0925,57.7564 -135.31,57.8336 -135.4716,57.875 -135.5753,57.9115 -135.5975,57.9206 -135.6331,57.9234 -135.5496,57.8616 -135.4818,57.8475 -135.4012,57.8326 -135.3115,57.8015 -135.1373,57.7382 -135.1149,57.7282 -135.0729,57.6884 -135.0521,57.6628 -134.9885,57.6524 -134.9229,57.6583 -134.8543,57.6745 -134.8009,57.6822 -134.713,57.692 -134.6868,57.6905 -134.6687,57.6813 -134.6009,57.5281 -134.6117,57.3906 -134.7453,57.3822 -134.8164,57.3911 -134.8436,57.4089 -134.8764,57.4292 -135.03,57.4914 -135.2106,57.561 -135.3198,57.6038 -135.3771,57.6359 -135.3993,57.6453 -135.4217,57.6548 -135.4517,57.6676 -135.4848,57.679 -135.5051,57.6844 -135.5552,57.691 -135.4424,57.5731 -135.3263,57.5171 -135.3082,57.4657 -135.3019,57.3973 -135.358,57.346 -135.4442,57.2948 -135.4858,57.2981 -135.5915,57.3187 -135.7072,57.4007 -135.7566,57.4498 -135.7245,57.4498 -135.6617,57.4286 -135.6413,57.4127 -135.6207,57.3998 -135.5604,57.3691 -135.5379,57.3663 -135.5504,57.3908 -135.5932,57.4159 -135.6515,57.4416 -135.707,57.4625 -135.7845,57.4989 -135.8173,57.5323 -135.7495,57.5318 -135.706,57.5432 -135.746,57.5629 -135.8295,57.5787 -135.8796,57.6302 -135.9556,57.6785 -136.1061,57.764 -136.1256,57.7676 -136.1564,57.7538 -136.1082,57.869 -136.1136,57.8972 -136.0893,57.9196 -136.0579,57.9174 -135.9682,57.8625 -135.8072,57.7769 -135.7868,57.778 -135.8139,57.7982 -135.8525,57.8192 -135.9566,57.8814 -136.1247,57.984 -136.1465,57.9998 -136.17,58.0206 -136.1831,58.0417 -136.0989,58.1511 -136.0208,58.147 -135.9795,58.0796 -135.9191,58.0289 -135.9317,58.1068 -135.8859,58.1511 -135.711,58.1325 -135.6748,58.1591 -135.5647,58.2045 -135.5312,58.2056 -135.4949,58.1867 -135.3376,58.1273 -135.261,58.1062 -135.2364,58.0886 -135.2668,58.0345 -135.3633,57.9732 -135.4099,57.9754 -135.4534,57.9862 -135.5317,57.9735 -135.461,57.9091 -135.4009,57.893 -135.3719,57.8926 -135.3121,57.9312 -135.2948,57.9435 -135.2423,57.9993 -135.2054,58.0508 -135.1595,58.068 -134.8534,58.025 -134.6904,57.9627 -134.675,57.948 -134.6599,57.9131 -134.6662,57.8509 -134.725,57.8162 -134.7736,57.8204 -134.9219,57.8674 -134.9533,57.8677 -134.8994,57.8248 -134.8757,57.8127 -134.838,57.8056 -134.8037,57.8001 -134.775,57.7841 -134.7201,57.7407 -134.761,57.7109 -134.8002,57.7113 -134.8447,57.713 -134.8788,57.7055 -134.8788,57.7055 25,-9.0,United States -152.9788,58.0672 -152.9606,58.0523 -152.9333,58.0359 -152.9063,58.0233 -152.7772,57.9665 -152.6904,57.9468 -152.6285,57.9324 -152.6136,57.9214 -152.626,57.9168 -152.6838,57.9121 -152.6968,57.9118 -152.7083,57.912 -152.7671,57.921 -152.7856,57.9243 -152.9318,57.9612 -153.0646,57.97 -153.0764,57.9687 -153.0907,57.9713 -153.1364,57.9915 -153.0407,58.0653 -153.0256,58.0712 -153.0051,58.0746 -152.9898,58.0726 -152.9788,58.0672 -152.9788,58.0672 19,-9.0,United States -136.206,58.0195 -136.1433,57.9779 -136.0924,57.9492 -136.0823,57.9384 -136.1066,57.9318 -136.128,57.915 -136.1376,57.8878 -136.1325,57.8456 -136.1686,57.7954 -136.1775,57.7851 -136.1944,57.7771 -136.2848,57.8492 -136.2986,57.8917 -136.3072,57.9478 -136.2934,57.9956 -136.2394,58.0228 -136.2251,58.0242 -136.206,58.0195 -136.206,58.0195 294,3.0,Latvia 27.3228,57.4672 27.3756,57.4637 27.4001,57.4626 27.4221,57.4631 27.4976,57.4678 27.4934,57.4254 27.4782,57.3759 27.5218,57.3501 27.5569,57.3425 27.6375,57.3117 27.7756,57.2556 27.8057,57.2378 27.8142,57.1945 27.7995,57.112 27.7253,56.9894 27.6523,56.8471 27.682,56.8019 27.7132,56.8061 27.753,56.8107 27.7882,56.8083 27.8112,56.8013 27.8895,56.7552 27.8774,56.7267 27.8942,56.6557 27.9598,56.5811 28.0646,56.4505 28.0984,56.4044 28.1334,56.3395 28.1865,56.21 28.1477,56.1149 28.1343,56.0955 28.1188,56.084 28.1004,56.0944 28.0727,56.1012 27.8738,56.039 27.8492,56.0039 27.7478,55.9351 27.6643,55.8899 27.5984,55.8534 27.5841,55.7802 27.572,55.7526 27.5525,55.7265 27.5119,55.7233 27.4834,55.7232 27.2633,55.7416 27.1643,55.7601 27.1055,55.7807 26.9388,55.7664 26.8583,55.7096 26.8365,55.6748 26.81,55.648 26.7195,55.622 26.6922,55.6221 26.6458,55.6362 26.6192,55.6402 26.5962,55.6332 26.5787,55.6223 26.567,55.6091 26.5373,55.61 26.4854,55.6151 26.4589,55.6196 26.3211,55.6507 26.293,55.6607 26.2676,55.6739 26.2204,55.7075 26.1943,55.7511 26.171,55.7799 26.1509,55.798 26.0129,55.8721 25.9602,55.8913 25.892,55.9128 25.846,55.9333 25.6637,56.0307 25.5382,56.0851 25.3851,56.1001 25.2834,56.1026 25.2182,56.1146 25.1392,56.1171 25.1164,56.1181 25.0959,56.1209 25.0576,56.1329 25.0331,56.1484 24.9527,56.2335 24.9383,56.2627 24.9269,56.2871 24.9128,56.3156 24.8984,56.3403 24.875,56.376 24.8505,56.3832 24.6101,56.2993 24.5598,56.2626 24.5396,56.2458 24.5175,56.2227 24.4338,56.2029 24.4066,56.203 24.3776,56.2094 24.3291,56.2321 24.2917,56.2432 24.2226,56.2229 24.1269,56.1957 24.0994,56.1963 24.0277,56.2171 23.9579,56.2538 23.9068,56.2657 23.8316,56.2761 23.6922,56.2939 23.5584,56.2949 23.5321,56.2787 23.5122,56.2695 23.4842,56.2674 23.4069,56.2774 23.3222,56.3005 23.2851,56.3123 23.2554,56.3143 23.1341,56.2882 23.098,56.2515 23.0647,56.2397 23.0206,56.2499 22.9942,56.2648 22.9751,56.286 22.9635,56.3081 22.9494,56.3292 22.9108,56.3535 22.8898,56.3562 22.8461,56.3434 22.8129,56.3255 22.7924,56.3143 22.6514,56.2901 22.6266,56.294 22.6087,56.3047 22.5851,56.3189 22.5471,56.3279 22.5142,56.3329 22.4797,56.3379 22.4498,56.3396 22.2702,56.3371 22.1081,56.3573 22.0285,56.3528 22.0052,56.3475 21.8668,56.3024 21.6974,56.2568 21.5288,56.2287 21.4103,56.1823 21.3839,56.1745 21.3506,56.1737 21.3221,56.173 21.2219,56.1123 21.2046,56.0989 21.1973,56.0657 21.189,56.0354 21.1703,56.0196 21.1098,56.0219 21.0872,56.0211 21.0624,56.019 21.0213,56.0132 21.015,56.011 21.006,56.052 20.989,56.0899 20.9758,56.1049 20.9587,56.1181 20.9368,56.1715 20.9317,56.2968 20.9605,56.4427 20.9878,56.4412 21.0075,56.3917 21.0317,56.3686 21.0208,56.4438 20.9894,56.547 21.0027,56.5769 21.0122,56.6048 21.0191,56.6241 21.0278,56.6803 21.0262,56.7147 21.0151,56.7503 21.0251,56.7747 21.1076,56.8054 21.1869,56.8393 21.2235,56.8551 21.3199,56.9197 21.3577,56.9588 21.3714,56.9818 21.3774,57.0016 21.3772,57.0259 21.3732,57.0565 21.3743,57.1709 21.379,57.2137 21.3958,57.235 21.4204,57.2489 21.4439,57.2657 21.5573,57.375 21.601,57.4205 21.6266,57.4483 21.6379,57.4656 21.6668,57.4912 21.69,57.5064 21.7159,57.5147 21.8168,57.5274 21.8618,57.5251 21.8834,57.5223 21.9521,57.5272 21.98,57.5347 22.0095,57.5481 22.0587,57.5654 22.2411,57.6161 22.4397,57.6709 22.5422,57.6864 22.5663,57.6803 22.5432,57.6204 22.5538,57.5692 22.6025,57.5167 22.6316,57.5027 22.7102,57.4668 22.8642,57.3863 22.9001,57.3625 22.9729,57.3302 23.0078,57.317 23.0422,57.3076 23.0621,57.3045 23.0941,57.2963 23.1261,57.2448 23.1997,57.101 23.2076,57.047 23.2145,57.0333 23.2645,57.0054 23.2861,56.9946 23.3053,56.9865 23.5444,56.909 23.6132,56.8982 23.723,56.9006 23.7435,56.9025 23.8078,56.9164 23.831,56.9213 23.9125,56.9436 23.9425,56.9545 24.1122,57.0299 24.1803,57.061 24.3297,57.1512 24.3604,57.1833 24.3696,57.209 24.3656,57.2862 24.3184,57.5124 24.2869,57.6309 24.2604,57.6629 24.2457,57.7238 24.2449,57.7645 24.271,57.8027 24.2804,57.8014 24.3289,57.8 24.3673,57.8035 24.3866,57.8135 24.3996,57.8337 24.5056,57.8844 24.679,57.8959 24.9703,57.9704 24.9928,57.9811 25.02,57.994 25.0461,58.0023 25.0863,58.0073 25.1207,58.0058 25.1402,57.9956 25.1562,57.9752 25.1634,57.9513 25.1738,57.9325 25.1942,57.9237 25.2493,57.9416 25.2495,57.9691 25.2215,58.0029 25.2519,58.0142 25.3838,57.9628 25.4059,57.9361 25.5742,57.8485 25.7546,57.7971 25.7896,57.7915 25.8362,57.7869 25.8999,57.7851 25.988,57.7543 26.1572,57.6265 26.2336,57.5558 26.2588,57.5396 26.4639,57.4577 26.4837,57.4544 26.5591,57.4585 26.5765,57.4779 26.6496,57.5071 26.8301,57.5634 26.8536,57.5649 26.9216,57.5547 26.9474,57.5497 26.9765,57.5394 26.9967,57.5257 27.0285,57.4967 27.261,57.463 27.3228,57.4672 27.3228,57.4672 17,2.0,Sweden 11.4971,57.9114 11.4888,57.9205 11.4771,57.9408 11.4792,57.9649 11.5043,57.9793 11.7147,57.9724 11.7205,57.9585 11.7142,57.9322 11.7049,57.9228 11.6385,57.8886 11.6252,57.8818 11.5734,57.8633 11.5642,57.8617 11.554,57.8626 11.5044,57.8808 11.4971,57.9114 11.4971,57.9114 230,-9.0,United States -152.9277,57.7387 -152.9153,57.7687 -152.873,57.7948 -152.8191,57.7688 -152.7737,57.7616 -152.8956,57.8561 -152.9177,57.8721 -152.9524,57.8808 -152.9842,57.8872 -153.0161,57.9253 -152.98,57.9332 -152.9519,57.9226 -152.9092,57.9047 -152.8387,57.8809 -152.7547,57.8646 -152.7219,57.8774 -152.6721,57.878 -152.5635,57.8555 -152.536,57.8406 -152.5534,57.8252 -152.6023,57.8111 -152.6324,57.766 -152.644,57.6889 -152.6008,57.6602 -152.5808,57.6806 -152.5838,57.7254 -152.5729,57.7658 -152.5245,57.7898 -152.4145,57.8115 -152.3466,57.8585 -152.315,57.8614 -152.2208,57.841 -152.2005,57.8343 -152.0775,57.7693 -152.0539,57.7502 -152.108,57.721 -152.1496,57.7086 -152.1719,57.7 -152.203,57.6828 -152.2759,57.6354 -152.1604,57.536 -152.1499,57.5352 -152.1302,57.5482 -152.0636,57.5646 -151.889,57.5576 -151.8776,57.5398 -151.9419,57.4891 -152.0617,57.3591 -152.088,57.3548 -152.2502,57.3677 -152.3779,57.3973 -152.456,57.4357 -152.6513,57.4485 -152.7491,57.403 -152.7618,57.3651 -152.7265,57.3755 -152.7015,57.3908 -152.5653,57.404 -152.5294,57.4004 -152.4981,57.3899 -152.3571,57.3339 -152.3265,57.3053 -152.36,57.2495 -152.4081,57.2147 -152.4302,57.206 -152.5518,57.2013 -152.5737,57.2022 -152.6231,57.2352 -152.6327,57.2588 -152.892,57.2777 -152.9002,57.2345 -152.8049,57.2194 -152.7842,57.2223 -152.7602,57.2303 -152.7298,57.2247 -152.7028,57.2118 -152.6823,57.1879 -152.7102,57.1736 -152.7934,57.1486 -152.8238,57.1444 -152.8662,57.1478 -152.8951,57.1521 -152.9816,57.1609 -153.0271,57.1425 -153.0962,57.1108 -153.0995,57.1022 -153.1516,57.0625 -153.2305,56.9957 -153.2774,57.0057 -153.3062,57.0132 -153.3276,57.0141 -153.453,56.9934 -153.4753,56.9767 -153.422,56.9815 -153.3207,56.979 -153.2804,56.9127 -153.3328,56.8685 -153.3596,56.8653 -153.4517,56.8105 -153.5005,56.7708 -153.6408,56.6983 -153.6888,56.6758 -153.7129,56.6714 -153.8655,56.6743 -153.8468,56.7228 -153.7994,56.7739 -153.6756,56.8397 -153.6273,56.8554 -153.5856,56.8659 -153.5314,56.9059 -153.5528,56.9425 -153.5757,56.9527 -153.5941,56.9267 -153.6026,56.9081 -153.6242,56.8951 -153.6719,56.8891 -153.6927,56.8907 -153.6855,56.9263 -153.6295,56.9958 -153.5416,57.0313 -153.4639,57.0608 -153.517,57.0852 -153.6794,57.0001 -153.7327,56.9676 -153.7504,56.9503 -153.7782,56.9122 -153.8033,56.8983 -153.825,56.8971 -153.8594,56.9275 -153.8198,56.9825 -153.8028,57.0002 -153.7765,57.0132 -153.7454,57.04 -153.849,57.0752 -153.8695,57.0773 -153.9702,57.0789 -154.0447,57.0801 -154.0691,57.0798 -154.1969,57.0544 -154.2058,57.0251 -154.183,56.994 -154.1638,56.985 -154.1043,56.9785 -154.0802,56.9855 -154.0587,57.0044 -154.0397,57.0288 -153.9997,57.0467 -153.9672,57.0507 -153.8305,57.0475 -153.831,57.0154 -153.8847,56.8919 -153.9688,56.8068 -154.0081,56.7869 -154.0237,56.7815 -154.027,56.8355 -154.0587,56.8633 -154.0834,56.8773 -154.1089,56.8906 -154.1288,56.9 -154.1827,56.9104 -154.2525,56.9284 -154.2479,56.9633 -154.2419,56.9863 -154.2395,57.0073 -154.2515,57.0796 -154.2627,57.1166 -154.3324,57.1929 -154.4151,57.2111 -154.4521,57.2076 -154.4939,57.2036 -154.5218,57.2154 -154.4494,57.3541 -154.3606,57.4366 -154.3381,57.4502 -154.2381,57.5103 -154.0697,57.5766 -153.9708,57.5959 -153.9288,57.598 -153.7518,57.5829 -153.7241,57.5722 -153.6533,57.4554 -153.6453,57.4309 -153.6419,57.4038 -153.6358,57.3788 -153.6261,57.3596 -153.6137,57.3415 -153.5252,57.2677 -153.5086,57.256 -153.4846,57.2418 -153.4555,57.2303 -153.3596,57.208 -153.3765,57.2196 -153.3962,57.222 -153.4665,57.2505 -153.5327,57.3353 -153.5578,57.4797 -153.5915,57.5748 -153.4765,57.5813 -153.3924,57.5701 -153.3713,57.5644 -153.3207,57.5305 -153.3084,57.5371 -153.3342,57.5694 -153.4009,57.6015 -153.4327,57.6116 -153.4689,57.6187 -153.5115,57.6258 -153.5802,57.6318 -153.6167,57.6353 -153.6491,57.6593 -153.6587,57.711 -153.6503,57.7394 -153.6247,57.7628 -153.4731,57.8283 -153.4529,57.8337 -153.3645,57.7973 -153.2928,57.7605 -153.2801,57.7429 -153.2772,57.6848 -153.2675,57.6178 -153.2541,57.5896 -153.2291,57.5599 -153.0433,57.6586 -153.1282,57.72 -153.1722,57.7231 -153.1956,57.7414 -153.1924,57.7721 -152.9355,57.7197 -152.9277,57.7387 -152.9277,57.7387 20,2.0,Sweden 19.0915,57.7708 19.059,57.783 19.0409,57.7914 19.0017,57.8298 19.001,57.8466 19.0577,57.903 19.0701,57.906 19.2507,57.9077 19.2613,57.9074 19.2727,57.9052 19.2992,57.8905 19.2472,57.8698 19.2365,57.8777 19.2217,57.8803 19.2032,57.8777 19.132,57.859 19.1135,57.847 19.1062,57.8359 19.0915,57.7708 19.0915,57.7708 19,-9.0,United States -152.9277,57.7387 -152.9461,57.7393 -152.9711,57.7462 -153.0017,57.7552 -153.0174,57.7606 -153.1754,57.8148 -153.2563,57.8618 -153.2467,57.8873 -153.2029,57.902 -153.1916,57.903 -153.1784,57.9002 -153.0749,57.8673 -152.9942,57.832 -152.983,57.8207 -152.9543,57.7873 -152.9428,57.7728 -152.9369,57.762 -152.9277,57.7387 -152.9277,57.7387 52,2.0,Sweden 18.9695,57.8299 18.9989,57.7579 18.8952,57.6708 18.8149,57.6526 18.7753,57.6351 18.7596,57.5906 18.7261,57.4397 18.7349,57.4015 18.7548,57.3801 18.6797,57.1764 18.6249,57.1529 18.5188,57.1148 18.4735,57.0993 18.4147,57.0872 18.3846,57.0762 18.3603,57.063 18.3104,57.0076 18.3078,56.9459 18.2661,56.8685 18.1784,56.8451 18.1367,56.8425 18.1123,56.8472 18.1262,56.8741 18.1769,56.9215 18.2241,56.9645 18.2218,57.0114 18.141,57.0741 18.1161,57.1672 18.1256,57.2478 18.1102,57.3412 18.0829,57.4125 18.0778,57.4361 18.0826,57.4567 18.106,57.4826 18.1525,57.5236 18.1873,57.5402 18.2128,57.5506 18.2433,57.5654 18.2617,57.5771 18.3058,57.6132 18.3226,57.627 18.3488,57.65 18.3685,57.6699 18.3864,57.6915 18.4331,57.7416 18.652,57.846 18.6866,57.8531 18.8478,57.8509 18.8742,57.8488 18.9711,57.8372 18.9695,57.8299 18.9695,57.8299 19,-4.0,Canada -61.772,57.7979 -61.7556,57.772 -61.7719,57.7423 -61.832,57.7193 -61.8451,57.7181 -61.9765,57.7392 -61.9877,57.7474 -61.9963,57.7581 -61.9952,57.7687 -61.9844,57.7795 -61.9526,57.8017 -61.9162,57.824 -61.8965,57.8353 -61.8779,57.8408 -61.8589,57.8423 -61.8285,57.8412 -61.81,57.836 -61.772,57.7979 -61.772,57.7979 18,-4.0,Canada -61.5424,57.7022 -61.5571,57.6701 -61.5624,57.6584 -61.5798,57.6446 -61.6459,57.647 -61.6571,57.6481 -61.7833,57.6876 -61.784,57.7011 -61.7796,57.7104 -61.7538,57.7311 -61.7413,57.7396 -61.6924,57.7701 -61.664,57.7766 -61.5993,57.7654 -61.5868,57.7614 -61.5406,57.7118 -61.5424,57.7022 -61.5424,57.7022 112,2.0,Denmark 8.4011,56.6108 8.4285,56.607 8.4734,56.6034 8.5021,56.6009 8.5282,56.611 8.5639,56.6204 8.5922,56.5636 8.5832,56.5401 8.531,56.5182 8.463,56.5645 8.4392,56.5797 8.3835,56.6048 8.3538,56.61 8.2296,56.6371 8.2206,56.679 8.2217,56.705 8.2313,56.7393 8.2456,56.7606 8.2758,56.7929 8.3218,56.838 8.3639,56.8779 8.4354,56.9374 8.562,57.0282 8.6032,57.0539 8.6316,57.0555 8.6985,57.0384 8.7219,57.0346 8.7507,57.0335 8.7892,57.036 8.8309,57.0404 8.8785,57.0522 9.0014,57.0857 9.0635,57.0774 9.1452,57.0696 9.1796,57.0681 9.2273,57.0691 9.2489,57.0711 9.3745,57.0842 9.4495,57.111 9.479,57.1222 9.5269,57.1479 9.5634,57.1733 9.6323,57.2354 9.6903,57.2969 9.7086,57.3193 9.7508,57.372 9.7757,57.3941 9.9398,57.5177 9.9822,57.5213 10.0255,57.52 10.0859,57.5212 10.1106,57.5216 10.1429,57.5237 10.163,57.5265 10.2,57.5337 10.2487,57.5445 10.2767,57.5545 10.3898,57.6051 10.4345,57.629 10.4912,57.6565 10.5217,57.6703 10.5502,57.6774 10.5864,57.6755 10.626,57.6688 10.6028,57.6591 10.5503,57.638 10.5073,57.615 10.4866,57.5979 10.4624,57.5774 10.4395,57.5568 10.424,57.5407 10.413,57.5171 10.4171,57.4828 10.4274,57.4638 10.5091,57.3457 10.5115,57.1548 10.4294,57.1128 10.4006,57.0826 10.3182,56.9241 10.2269,56.9222 10.2052,56.9242 10.1749,56.9353 10.1338,56.957 10.1017,56.9741 10.0084,57.0173 9.9869,57.0218 9.4832,56.9788 9.2728,56.9371 9.2531,56.9308 9.2334,56.9284 9.2111,56.9315 9.1874,56.9439 9.1652,56.9563 9.143,56.9674 9.1243,56.9752 9.0994,56.9851 9.0994,56.9711 9.0142,56.9481 8.87,56.93 8.8115,56.9034 8.7521,56.8833 8.7144,56.8895 8.6611,56.8806 8.6031,56.8118 8.5984,56.7858 8.5522,56.7489 8.5179,56.7365 8.4928,56.7315 8.4713,56.7184 8.4482,56.6306 8.4011,56.6108 8.4011,56.6108 21,1.0,United Kingdom -7.2202,57.4352 -7.3086,57.4378 -7.3141,57.459 -7.3119,57.4756 -7.3343,57.4823 -7.398,57.4997 -7.4421,57.4956 -7.4585,57.4938 -7.4725,57.4976 -7.5269,57.5215 -7.474,57.5807 -7.4589,57.5862 -7.419,57.5847 -7.2599,57.5894 -7.2314,57.6083 -7.1798,57.6186 -7.0555,57.5679 -7.1378,57.4438 -7.1554,57.4396 -7.2202,57.4352 -7.2202,57.4352 74,1.0,United Kingdom -5.8367,57.0373 -5.8484,57.025 -5.8805,56.9946 -5.9172,56.9709 -5.9287,56.968 -5.969,56.9592 -5.9876,56.956 -6.0032,56.956 -6.0221,56.9844 -5.9801,57.0437 -5.9632,57.0625 -6.0194,57.1096 -6.0666,57.0577 -6.0855,57.0604 -6.1653,57.1027 -6.3048,57.0908 -6.4381,57.1985 -6.4684,57.2344 -6.4102,57.2656 -6.3866,57.2603 -6.3621,57.2463 -6.3344,57.2343 -6.3208,57.2297 -6.3007,57.2317 -6.5182,57.3391 -6.5617,57.3119 -6.5519,57.2828 -6.5566,57.2681 -6.567,57.2654 -6.6128,57.276 -6.6769,57.2926 -6.6879,57.2959 -6.6974,57.2998 -6.7099,57.3114 -6.7121,57.3354 -6.7629,57.3616 -6.7729,57.3799 -6.7353,57.4245 -6.6255,57.5371 -6.6108,57.5374 -6.5994,57.5342 -6.5743,57.5203 -6.5633,57.512 -6.5535,57.4997 -6.5503,57.484 -6.4513,57.4407 -6.4182,57.4367 -6.3639,57.4557 -6.384,57.5342 -6.4085,57.5686 -6.3956,57.5803 -6.334,57.6161 -6.2924,57.6175 -6.2655,57.6035 -6.1667,57.5429 -6.1491,57.5255 -6.1338,57.5031 -6.1256,57.4162 -6.1353,57.3509 -6.1367,57.3358 -6.1236,57.2449 -6.1162,57.2381 -5.8883,57.1738 -5.8726,57.1717 -5.8228,57.1855 -5.7585,57.2042 -5.7365,57.208 -5.6372,57.1903 -5.6539,57.1379 -5.7931,57.0489 -5.8059,57.0423 -5.8193,57.0382 -5.8367,57.0373 -5.8367,57.0373 17,-5.0,Canada -79.5628,57.5123 -79.5549,57.4949 -79.5523,57.4634 -79.5548,57.4514 -79.5615,57.4403 -79.569,57.4322 -79.6591,57.3496 -79.6922,57.3918 -79.6831,57.4696 -79.6648,57.4932 -79.6486,57.5103 -79.6053,57.541 -79.5934,57.5487 -79.5813,57.5463 -79.5623,57.5171 -79.5628,57.5123 -79.5628,57.5123 21,-4.0,Canada -61.8156,57.3842 -61.8306,57.3859 -61.8475,57.3918 -61.9005,57.4399 -61.9099,57.4526 -61.9097,57.4689 -61.9024,57.4808 -61.8804,57.5006 -61.8599,57.5143 -61.8368,57.522 -61.7663,57.5164 -61.7434,57.5119 -61.7216,57.5061 -61.7061,57.4988 -61.6694,57.4783 -61.6658,57.4527 -61.6699,57.4427 -61.7529,57.3982 -61.7668,57.3948 -61.8156,57.3842 -61.8156,57.3842 63,-9.0,United States -134.8503,56.527 -134.867,56.5283 -134.9627,56.6185 -134.9346,56.6517 -134.9146,56.6743 -134.8842,56.7605 -134.9153,56.7567 -134.9607,56.7417 -134.9828,56.7339 -135.0233,56.7166 -135.0582,56.7192 -135.1266,56.765 -135.1157,56.8905 -135.1148,57.004 -135.136,57.0308 -135.1632,57.0974 -135.119,57.1237 -135.0956,57.1772 -135.2147,57.1797 -135.262,57.1748 -135.3089,57.1893 -135.3919,57.2454 -135.4239,57.2775 -135.402,57.2965 -135.3749,57.2962 -135.2759,57.2818 -135.2349,57.2957 -135.3031,57.3441 -135.2717,57.4365 -135.1955,57.476 -135.1721,57.4832 -135.1482,57.4855 -135.1079,57.4796 -134.9143,57.4072 -134.7332,57.318 -134.7032,57.2967 -134.5943,57.1823 -134.5565,57.0994 -134.5436,57.0529 -134.486,56.9211 -134.4446,56.8292 -134.4049,56.7296 -134.3801,56.6614 -134.3738,56.6154 -134.3694,56.5351 -134.3721,56.5084 -134.387,56.4706 -134.3846,56.4056 -134.3841,56.3189 -134.3861,56.1834 -134.4185,56.0998 -134.525,56.1548 -134.6456,56.2788 -134.7564,56.3996 -134.8089,56.464 -134.7912,56.5084 -134.7614,56.5186 -134.7013,56.5334 -134.6077,56.6166 -134.6379,56.6186 -134.813,56.5399 -134.8503,56.527 -134.8503,56.527 18,-4.0,Canada -61.5329,57.4543 -61.5237,57.441 -61.5035,57.3444 -61.5231,57.3306 -61.5407,57.3243 -61.5639,57.3218 -61.7285,57.34 -61.7485,57.3443 -61.7661,57.3503 -61.7809,57.3597 -61.7868,57.3715 -61.7018,57.4052 -61.6613,57.4269 -61.6285,57.4676 -61.6087,57.4679 -61.537,57.4617 -61.5329,57.4543 -61.5329,57.4543 14,1.0,United Kingdom -6.04,57.2565 -6.0546,57.2593 -6.0684,57.283 -6.0671,57.3259 -6.0618,57.3623 -6.0535,57.3848 -6.0186,57.4249 -5.992,57.4402 -5.9667,57.4228 -5.9838,57.2749 -5.9953,57.2669 -6.0158,57.2604 -6.04,57.2565 -6.04,57.2565 16,1.0,United Kingdom -7.2702,57.3294 -7.3034,57.3324 -7.3647,57.3522 -7.3744,57.3555 -7.3949,57.3802 -7.3891,57.3998 -7.3409,57.4207 -7.2872,57.4151 -7.2629,57.4123 -7.231,57.4079 -7.1906,57.391 -7.1901,57.3486 -7.2287,57.3345 -7.2555,57.3308 -7.2702,57.3294 -7.2702,57.3294 15,-9.0,United States -134.5766,57.3336 -134.5808,57.3222 -134.5673,57.2931 -134.5455,57.2764 -134.5533,57.2316 -134.5676,57.2286 -134.5802,57.236 -134.6224,57.2615 -134.7303,57.3408 -134.6981,57.3541 -134.6453,57.3602 -134.634,57.3596 -134.57,57.3468 -134.5766,57.3336 -134.5766,57.3336 25,1.0,United Kingdom -7.217,57.0271 -7.2525,57.0358 -7.2739,57.0385 -7.2899,57.0384 -7.3204,57.0321 -7.3461,57.0319 -7.3705,57.0437 -7.3807,57.0605 -7.4046,57.1166 -7.4075,57.1502 -7.4101,57.3154 -7.3989,57.3214 -7.3547,57.3331 -7.322,57.3275 -7.2724,57.3129 -7.2565,57.3054 -7.2106,57.2715 -7.2181,57.2645 -7.2409,57.2592 -7.2721,57.2678 -7.2749,57.2545 -7.246,57.0846 -7.2015,57.0467 -7.217,57.0271 -7.217,57.0271 17,-4.0,Canada -61.5825,57.2998 -61.5668,57.2892 -61.5213,57.2697 -61.5109,57.2676 -61.4977,57.2671 -61.4809,57.2598 -61.4977,57.2401 -61.5446,57.2222 -61.6265,57.2229 -61.6426,57.2346 -61.6559,57.2498 -61.6566,57.2604 -61.6366,57.2979 -61.6159,57.3062 -61.5917,57.3045 -61.5825,57.2998 -61.5825,57.2998 53,2.0,Sweden 16.4011,56.1423 16.3896,56.1468 16.3822,56.1585 16.3746,56.2078 16.3629,56.398 16.3659,56.4655 16.3915,56.5192 16.5134,56.709 16.5847,56.8037 16.5998,56.8117 16.6157,56.8162 16.7199,56.872 16.8182,56.9966 16.8699,57.0672 16.9311,57.1587 16.9351,57.1736 16.93,57.1891 16.9296,57.2091 16.9357,57.2255 16.9431,57.2372 16.9523,57.2474 16.9625,57.2565 16.9794,57.2693 16.9919,57.2769 17.0049,57.2839 17.026,57.2911 17.0716,57.2813 17.0936,57.2527 17.0202,57.1188 16.9784,57.0642 16.9311,57.0075 16.8966,56.9703 16.8502,56.8622 16.8186,56.7763 16.8089,56.7624 16.7981,56.7581 16.783,56.7578 16.7527,56.7406 16.7405,56.7285 16.697,56.6352 16.6062,56.4518 16.5474,56.3403 16.5408,56.3247 16.5419,56.3075 16.5465,56.2978 16.5425,56.2883 16.524,56.2598 16.4671,56.1743 16.4577,56.165 16.4448,56.1579 16.4083,56.1451 16.4011,56.1423 16.4011,56.1423 30,-9.0,United States -135.4568,57.249 -135.4021,57.2277 -135.3832,57.22 -135.3686,57.2105 -135.3465,57.1952 -135.3341,57.1825 -135.3119,57.1587 -135.3039,57.0644 -135.3246,57.0144 -135.3839,56.9385 -135.4776,56.926 -135.5537,56.9189 -135.5848,56.9182 -135.5957,56.9234 -135.5828,57.0124 -135.5734,57.0213 -135.5411,57.0332 -135.5202,57.0381 -135.51,57.0426 -135.4719,57.0732 -135.4698,57.095 -135.5059,57.097 -135.5647,57.1003 -135.5767,57.1074 -135.6021,57.2511 -135.5895,57.2577 -135.5167,57.2637 -135.4669,57.2557 -135.4568,57.249 -135.4568,57.249 21,2.0,Denmark 10.9627,57.1537 10.9423,57.1699 10.9304,57.1779 10.9143,57.1823 10.9029,57.183 10.8885,57.1805 10.8768,57.1769 10.8604,57.1785 10.8455,57.1843 10.8384,57.1965 10.9004,57.2339 11.006,57.2521 11.1274,57.2635 11.1698,57.2573 11.1766,57.2446 11.0594,57.1824 11.0386,57.1728 11.0044,57.1617 10.9781,57.1554 10.9627,57.1537 10.9627,57.1537 18,-9.0,United States -169.9763,57.0373 -169.9648,57.0649 -169.9661,57.0763 -170.0004,57.0826 -170.0131,57.0833 -170.0492,57.077 -170.1024,57.0935 -170.1084,57.1036 -170.1066,57.1158 -170.093,57.1295 -170.0819,57.1337 -170.0118,57.1457 -169.8457,57.1605 -169.8352,57.1489 -169.8586,57.0989 -169.9444,57.0618 -169.9763,57.0373 -169.9763,57.0373 21,-9.0,United States -152.6213,57.0679 -152.6439,57.0559 -152.8287,57.0163 -152.936,56.9744 -152.9452,56.9558 -152.9561,56.9447 -152.9758,56.9317 -153.0379,56.9213 -153.0642,56.9306 -153.1259,56.9882 -153.1329,57.002 -153.0015,57.1287 -152.9597,57.1379 -152.9486,57.139 -152.901,57.1163 -152.6924,57.1079 -152.6821,57.107 -152.618,57.0918 -152.6095,57.0791 -152.6213,57.0679 -152.6213,57.0679 61,-9.0,United States -132.8145,56.91 -132.7359,56.8571 -132.69,56.7841 -132.7099,56.6754 -132.6892,56.5927 -132.6983,56.5627 -132.7349,56.5416 -132.7742,56.5338 -132.8904,56.5992 -132.9512,56.6493 -132.9673,56.6835 -132.9803,56.7146 -133.006,56.7385 -133.1104,56.7701 -133.0959,56.6946 -133.0693,56.6643 -132.9506,56.5706 -132.8785,56.5545 -132.8597,56.5467 -132.8528,56.4874 -132.8478,56.4658 -132.8966,56.4043 -132.9215,56.3894 -132.952,56.3851 -133.0697,56.4048 -133.1916,56.4065 -133.2319,56.3855 -133.2698,56.3687 -133.3403,56.3667 -133.4032,56.3726 -133.4222,56.3959 -133.4261,56.4562 -133.3985,56.5298 -133.4307,56.5711 -133.4571,56.5834 -133.4701,56.6164 -133.4543,56.6831 -133.4446,56.7267 -133.4618,56.7624 -133.5022,56.7397 -133.6328,56.8015 -133.6435,56.8304 -133.5944,56.8148 -133.5682,56.8087 -133.5107,56.8067 -133.5034,56.8276 -133.6472,56.883 -133.7791,56.9469 -133.7691,56.987 -133.6687,57.0125 -133.6037,57.0133 -133.5221,57.0019 -133.3913,56.9827 -133.2619,56.9605 -133.2004,56.9456 -133.0799,56.9261 -133.0583,56.9302 -132.9297,56.934 -132.8437,56.9262 -132.8145,56.91 -132.8145,56.91 261,2.0,Denmark 8.6497,54.8489 8.6399,54.9177 8.6612,55.0495 8.5456,55.0268 8.4778,54.9978 8.4553,55.0144 8.4434,55.0623 8.4607,55.1148 8.4828,55.1314 8.5483,55.1287 8.5755,55.1176 8.5446,55.0943 8.5624,55.0775 8.6234,55.0667 8.6741,55.0752 8.6746,55.0955 8.6466,55.1383 8.6433,55.1937 8.6469,55.252 8.6231,55.3374 8.6035,55.366 8.5799,55.3766 8.5215,55.3838 8.4594,55.3886 8.4305,55.3867 8.2933,55.488 8.2426,55.4256 8.0791,55.4908 8.1092,55.5326 8.1253,55.559 8.1663,55.6512 8.1716,55.6774 8.1695,55.6896 8.1524,55.7826 8.1393,55.8333 8.1288,55.872 8.1205,55.8933 8.1135,55.9179 8.1342,55.9072 8.146,55.8822 8.1539,55.8544 8.1592,55.8317 8.1682,55.7734 8.1771,55.7449 8.2624,55.7693 8.3096,55.79 8.3812,55.8289 8.3707,55.8572 8.3027,55.9479 8.2969,55.9849 8.2484,56.0126 8.2095,56.0265 8.1274,56.0427 8.132,56.0054 8.1122,55.9315 8.0941,55.9518 8.0874,55.9954 8.0913,56.0516 8.1087,56.2826 8.1056,56.3833 8.1071,56.4814 8.1465,56.5785 8.1611,56.6007 8.1803,56.6242 8.2064,56.6402 8.2233,56.6208 8.2031,56.5922 8.1909,56.572 8.2353,56.5378 8.3126,56.513 8.3812,56.5146 8.4012,56.5113 8.4561,56.4941 8.5042,56.4762 8.5773,56.4369 8.6283,56.4073 8.7248,56.4234 8.7416,56.4819 8.7472,56.4936 8.6987,56.5178 8.6657,56.5507 8.8262,56.6556 8.8524,56.6895 8.9443,56.7381 9.0567,56.7402 9.0946,56.725 9.1257,56.6308 9.0382,56.5624 9.0287,56.5287 9.0469,56.4987 9.0758,56.5049 9.086,56.5362 9.1617,56.5596 9.2022,56.5666 9.2328,56.5661 9.262,56.5461 9.2351,56.5148 9.2567,56.4862 9.3018,56.4583 9.3571,56.4901 9.3364,56.5014 9.3068,56.6092 9.3037,56.6141 9.2812,56.636 9.251,56.6291 9.1558,56.6076 9.1488,56.825 9.1621,56.8486 9.2859,56.9321 9.3491,56.9444 9.401,56.9516 9.4557,56.9517 9.5027,56.9482 9.5382,56.9383 9.6689,56.9709 9.7523,56.9861 9.79,56.983 9.8362,56.978 9.9333,56.9907 9.9566,57.0042 10.1057,56.9507 10.1343,56.9378 10.1614,56.9265 10.1932,56.9181 10.2188,56.9146 10.2938,56.9139 10.2669,56.8899 10.2514,56.8453 10.2631,56.758 10.2685,56.7328 10.2873,56.681 10.2227,56.6504 10.1392,56.6529 9.8491,56.5831 9.869,56.5749 9.9157,56.5745 9.9862,56.592 10.0593,56.6189 10.1592,56.6294 10.298,56.6289 10.3249,56.6253 10.3386,56.6093 10.3438,56.5779 10.3105,56.5492 10.2899,56.5435 10.2611,56.5296 10.2276,56.5064 10.1969,56.4772 10.1699,56.4019 10.2106,56.4142 10.2064,56.4401 10.2139,56.4819 10.2907,56.511 10.3118,56.501 10.3458,56.4902 10.4021,56.4593 10.4904,56.444 10.5117,56.4415 10.5665,56.4445 10.6273,56.4548 10.7464,56.4654 10.768,56.4671 10.8286,56.4556 10.8477,56.4455 10.9426,56.3754 10.9023,56.2768 10.8886,56.262 10.7261,56.0975 10.6654,56.1278 10.6654,56.1529 10.6234,56.1631 10.598,56.1592 10.5714,56.1408 10.5342,56.0909 10.5557,56.0548 10.5305,56.0343 10.5014,56.0336 10.372,56.0956 10.3378,56.1311 10.4191,56.1536 10.4611,56.1541 10.4867,56.2047 10.4304,56.2253 10.3823,56.2244 10.2217,56.1061 10.1998,56.0755 10.2204,56.0524 10.2411,56.0214 10.2619,55.9527 10.233,55.8513 10.167,55.7625 10.1254,55.7752 10.1107,55.8001 10.0823,55.8119 10.038,55.8126 9.9951,55.8086 9.9651,55.8057 9.8524,55.7777 9.87,55.7683 9.9058,55.7627 9.9393,55.7591 9.9829,55.7557 10.0272,55.7498 10.0284,55.6846 9.9757,55.6394 9.8149,55.6059 9.7901,55.6043 9.7132,55.6214 9.6632,55.6404 9.6275,55.6457 9.5382,55.6371 9.5612,55.628 9.6,55.6295 9.6294,55.624 9.7049,55.5875 9.8024,55.539 9.6876,55.4658 9.5732,55.3528 9.5845,55.3345 9.594,55.3292 9.5812,55.3065 9.6549,55.2144 9.6896,55.1984 9.6941,55.1762 9.6606,55.1262 9.62,55.1165 9.597,55.1277 9.5582,55.1244 9.4731,55.0872 9.4456,55.0573 9.4912,54.9854 9.5325,54.9679 9.62,54.9518 9.709,54.9255 9.7302,54.8835 9.7495,54.832 9.7191,54.7665 9.6077,54.7892 9.598,54.8261 9.6266,54.8417 9.6156,54.8593 9.5811,54.8634 9.4866,54.8039 9.4358,54.7693 9.4293,54.7613 9.3987,54.7693 9.3615,54.7635 9.3349,54.7462 9.2326,54.7483 9.2153,54.7652 9.2131,54.7854 9.1533,54.8006 8.9259,54.8413 8.905,54.8439 8.8199,54.8495 8.7711,54.8418 8.744,54.8336 8.7047,54.8267 8.6781,54.8316 8.6497,54.8489 8.6497,54.8489 13,1.0,United Kingdom -7.4535,56.8731 -7.4616,56.8734 -7.5016,56.8755 -7.5171,56.8768 -7.5413,56.882 -7.5468,56.8905 -7.5398,56.8989 -7.429,56.9871 -7.4033,56.9749 -7.3638,56.9129 -7.4234,56.8764 -7.4535,56.8731 -7.4535,56.8731 20,1.0,United Kingdom -6.3059,56.8665 -6.3167,56.8672 -6.3503,56.879 -6.4393,56.9355 -6.4038,56.9652 -6.3816,56.9761 -6.3724,56.9805 -6.3359,56.9854 -6.3148,56.9866 -6.2625,56.9748 -6.2464,56.9673 -6.2381,56.9564 -6.2361,56.9278 -6.2448,56.8946 -6.2552,56.884 -6.2669,56.8771 -6.2872,56.8696 -6.2991,56.8669 -6.3059,56.8665 -6.3059,56.8665 53,-4.0,Canada -61.246,56.8434 -61.2916,56.8116 -61.2687,56.8041 -61.2511,56.7988 -61.2449,56.7879 -61.2525,56.7807 -61.2665,56.773 -61.3337,56.7502 -61.3803,56.7401 -61.4572,56.7159 -61.4676,56.7108 -61.4757,56.6966 -61.4696,56.6875 -61.4509,56.6851 -61.4314,56.6906 -61.4173,56.6982 -61.4058,56.7074 -61.3841,56.7207 -61.3671,56.723 -61.3248,56.7162 -61.277,56.7073 -61.2651,56.6766 -61.26,56.629 -61.2596,56.6188 -61.262,56.6081 -61.2699,56.5625 -61.2848,56.5506 -61.3004,56.5487 -61.3354,56.5525 -61.3749,56.5747 -61.4127,56.6029 -61.4517,56.6152 -61.479,56.6367 -61.4959,56.6465 -61.5326,56.6685 -61.5253,56.7038 -61.5151,56.7587 -61.5222,56.7923 -61.4791,56.8262 -61.425,56.8343 -61.4127,56.8474 -61.4154,56.8691 -61.3895,56.8852 -61.364,56.8913 -61.3512,56.8876 -61.3369,56.8677 -61.3197,56.8623 -61.2878,56.8602 -61.2633,56.8636 -61.2454,56.8687 -61.2327,56.8648 -61.246,56.8434 -61.246,56.8434 27,2.0,Denmark 8.6402,56.6069 8.6218,56.63 8.5881,56.6585 8.5441,56.6708 8.5277,56.6712 8.5023,56.6646 8.4944,56.6712 8.531,56.7262 8.6018,56.7633 8.6381,56.8225 8.6534,56.8255 8.6817,56.8249 8.7206,56.8268 8.7999,56.8382 8.8107,56.8473 8.8237,56.868 8.8429,56.8867 8.8841,56.8878 8.8952,56.8806 8.909,56.8529 8.8631,56.7314 8.816,56.6762 8.7532,56.6257 8.7295,56.6201 8.7197,56.6183 8.6402,56.6069 8.6402,56.6069 18,-5.0,Canada -79.642,56.8733 -79.6101,56.8407 -79.5764,56.7431 -79.5855,56.73 -79.6118,56.7155 -79.643,56.7179 -79.6517,56.7286 -79.6526,56.7654 -79.6511,56.7924 -79.6818,56.8277 -79.7105,56.8178 -79.7537,56.8161 -79.7527,56.8309 -79.7131,56.8721 -79.6618,56.8812 -79.6487,56.8801 -79.642,56.8733 -79.642,56.8733 131,-9.0,United States -133.627,56.2108 -133.6598,56.2335 -133.6811,56.253 -133.7121,56.2843 -133.7354,56.2918 -133.7378,56.2774 -133.7299,56.2506 -133.7332,56.2366 -133.7411,56.2224 -133.749,56.2026 -133.7381,56.1999 -133.7195,56.2094 -133.7082,56.2138 -133.687,56.2129 -133.6767,56.2081 -133.6679,56.1997 -133.662,56.1875 -133.6559,56.1672 -133.6529,56.1542 -133.6796,56.0826 -133.7118,56.0227 -133.7247,56.0162 -133.7434,56.0167 -133.7819,56.0289 -133.7991,56.037 -133.8022,56.0477 -133.7775,56.1238 -133.7904,56.2072 -133.8011,56.2387 -133.821,56.2452 -133.8305,56.2363 -133.861,56.0653 -133.8526,56.0178 -133.8677,55.9456 -133.8751,55.9309 -133.892,55.9314 -133.9275,55.9562 -133.9861,56.0006 -134.0296,56.1864 -134.0233,56.1964 -133.9844,56.2105 -133.9687,56.2316 -133.9912,56.2409 -134.0158,56.2485 -134.0461,56.282 -133.9953,56.3522 -133.9384,56.369 -133.8488,56.3305 -133.8284,56.3174 -133.8201,56.3063 -133.8139,56.2955 -133.7986,56.3107 -133.7965,56.3509 -133.816,56.437 -133.8276,56.4809 -133.8342,56.4891 -133.8526,56.4711 -133.9373,56.4691 -134.0666,56.4912 -134.1519,56.644 -134.155,56.6541 -134.17,56.7622 -134.1656,56.7802 -134.1574,56.7871 -134.0789,56.8279 -134.0589,56.833 -134.0373,56.8327 -134.025,56.8307 -134.0053,56.826 -133.9822,56.8168 -133.9397,56.7914 -133.917,56.782 -133.8818,56.7745 -133.8685,56.7784 -133.8976,56.8167 -133.908,56.8217 -133.9339,56.8274 -133.9563,56.829 -133.9746,56.8339 -134.0224,56.8714 -134.009,56.8722 -133.9529,56.8626 -133.8882,56.8457 -133.7976,56.8213 -133.7707,56.8132 -133.7522,56.8054 -133.688,56.7345 -133.6662,56.6829 -133.6849,56.648 -133.7279,56.5905 -133.7419,56.5845 -133.7771,56.5837 -133.7867,56.5813 -133.7695,56.575 -133.738,56.5686 -133.7218,56.5727 -133.7087,56.5794 -133.6799,56.6001 -133.635,56.6422 -133.625,56.6563 -133.6188,56.6696 -133.6155,56.6819 -133.6156,56.6931 -133.6179,56.7065 -133.6275,56.7228 -133.5928,56.7286 -133.4954,56.7084 -133.482,56.7016 -133.4893,56.5859 -133.4561,56.5299 -133.5023,56.4937 -133.5128,56.4889 -133.5265,56.4879 -133.5371,56.4895 -133.5464,56.4979 -133.5508,56.5137 -133.5575,56.5266 -133.5807,56.54 -133.5971,56.543 -133.6538,56.5478 -133.6754,56.5486 -133.6843,56.5442 -133.6774,56.5351 -133.6404,56.4568 -133.6466,56.3703 -133.6148,56.286 -133.6065,56.278 -133.6109,56.2241 -133.6163,56.2151 -133.627,56.2108 -133.627,56.2108 17,-5.0,Canada -79.7017,56.7908 -79.6924,56.7852 -79.6745,56.7662 -79.6717,56.7495 -79.694,56.7239 -79.7328,56.6827 -79.7433,56.675 -79.7627,56.6746 -79.7854,56.686 -79.8032,56.7021 -79.8163,56.7396 -79.8127,56.7562 -79.8035,56.7664 -79.7747,56.7923 -79.7198,56.7985 -79.7017,56.7908 -79.7017,56.7908 13,-5.0,Canada -79.3554,56.6997 -79.3358,56.6546 -79.3337,56.622 -79.3466,56.5895 -79.4248,56.5503 -79.4426,56.5834 -79.4486,56.7011 -79.446,56.7215 -79.4387,56.7424 -79.4294,56.7493 -79.3754,56.7183 -79.3554,56.6997 -79.3554,56.6997 28,-9.0,United States -132.5661,56.7191 -132.4973,56.6575 -132.4321,56.6113 -132.379,56.5781 -132.3152,56.5382 -132.3017,56.5342 -132.294,56.5257 -132.295,56.514 -132.3044,56.504 -132.3278,56.4921 -132.343,56.4872 -132.4494,56.4533 -132.5387,56.4278 -132.558,56.4272 -132.6602,56.4306 -132.6713,56.4316 -132.6958,56.4376 -132.7084,56.449 -132.7213,56.5272 -132.6877,56.552 -132.6615,56.555 -132.6482,56.5677 -132.663,56.5895 -132.6876,56.6351 -132.6825,56.6816 -132.6375,56.7287 -132.5661,56.7191 -132.5661,56.7191 13,-4.0,Canada -61.1034,56.5145 -61.1117,56.5188 -61.1235,56.5488 -61.1178,56.5595 -61.0541,56.6192 -61.042,56.6221 -61.0235,56.6201 -60.9714,56.6097 -60.9529,56.5588 -60.9957,56.5398 -61.0792,56.5192 -61.1034,56.5145 -61.1034,56.5145 16,1.0,United Kingdom -6.6663,56.4887 -6.6738,56.4899 -6.6825,56.5023 -6.6856,56.5145 -6.602,56.5675 -6.5622,56.5862 -6.534,56.5991 -6.4955,56.6161 -6.4815,56.6201 -6.4443,56.6155 -6.4734,56.5714 -6.4855,56.5604 -6.5648,56.5173 -6.5775,56.5129 -6.6663,56.4887 -6.6663,56.4887 67,1.0,United Kingdom -6.1055,56.583 -6.0578,56.5718 -6.0459,56.5688 -6.0287,56.5559 -5.9838,56.5146 -5.9619,56.4808 -5.8457,56.4522 -5.7868,56.4463 -5.7734,56.4421 -5.7044,56.412 -5.6408,56.3843 -5.6384,56.3731 -5.6506,56.3324 -5.6917,56.2924 -5.7045,56.2854 -5.7983,56.2509 -5.8331,56.242 -5.8496,56.2439 -5.8629,56.2514 -5.8522,56.2633 -5.843,56.2783 -5.8537,56.2856 -5.872,56.2854 -5.8824,56.2825 -5.9727,56.2521 -6.0053,56.2381 -6.2535,56.1925 -6.3119,56.199 -6.3282,56.21 -6.3358,56.2164 -6.355,56.2444 -6.3523,56.2632 -6.3389,56.2702 -6.3281,56.2727 -6.2865,56.274 -6.275,56.2716 -6.2638,56.2638 -6.2207,56.2517 -6.0548,56.2884 -6.0139,56.2997 -6.0085,56.3092 -6.0201,56.3159 -6.0679,56.3046 -6.0938,56.2963 -6.1048,56.2934 -6.1583,56.2894 -6.1738,56.2902 -6.1849,56.298 -6.1904,56.3157 -6.1321,56.3614 -6.072,56.376 -6.0606,56.3792 -6.0212,56.3927 -6.0063,56.3984 -5.9955,56.4091 -5.9927,56.4256 -6.0068,56.4296 -6.088,56.4141 -6.1069,56.4065 -6.118,56.4079 -6.3138,56.4725 -6.3262,56.4797 -6.3101,56.5346 -6.1754,56.5758 -6.1262,56.586 -6.1055,56.583 -6.1055,56.583 19,-9.0,United States -169.2806,56.4689 -169.3119,56.4729 -169.345,56.48 -169.4441,56.5218 -169.4689,56.5356 -169.4825,56.5473 -169.4601,56.5511 -169.4257,56.5463 -169.3731,56.5416 -169.2944,56.5359 -169.2843,56.5368 -169.2575,56.5403 -169.2214,56.5465 -169.1885,56.5365 -169.1731,56.5276 -169.2022,56.5079 -169.2659,56.4742 -169.2806,56.4689 -169.2806,56.4689 21,-9.0,United States -153.8108,56.537 -153.8029,56.5215 -153.8051,56.5067 -153.8346,56.4698 -153.9049,56.4407 -153.9351,56.4329 -153.9645,56.4311 -153.9746,56.4321 -154.0247,56.4377 -154.0563,56.4436 -154.0675,56.4547 -154.08,56.4747 -154.0425,56.5084 -154.0321,56.5162 -154.0149,56.5272 -153.9994,56.5323 -153.9618,56.54 -153.9421,56.5418 -153.8145,56.5433 -153.8108,56.537 -153.8108,56.537 29,-9.0,United States -154.2081,56.5346 -154.2235,56.5302 -154.2417,56.523 -154.2519,56.5117 -154.2537,56.4843 -154.2311,56.469 -154.2177,56.4416 -154.2523,56.4348 -154.2967,56.4237 -154.336,56.4103 -154.3647,56.3971 -154.4029,56.3715 -154.4317,56.3415 -154.4473,56.3334 -154.4639,56.3294 -154.4905,56.3313 -154.5146,56.3481 -154.5193,56.3631 -154.5061,56.3853 -154.4867,56.4079 -154.4676,56.4284 -154.4419,56.4507 -154.3752,56.4804 -154.3326,56.4998 -154.2899,56.5202 -154.2581,56.5322 -154.2321,56.536 -154.2081,56.5346 -154.2081,56.5346 13,-9.0,United States -154.2081,56.5346 -154.1793,56.5286 -154.1485,56.5209 -154.1393,56.5158 -154.1307,56.5065 -154.1268,56.4943 -154.1323,56.4778 -154.1484,56.4723 -154.1454,56.483 -154.1733,56.5198 -154.1826,56.5251 -154.2081,56.5346 -154.2081,56.5346 22,-9.0,United States -156.9624,56.5148 -156.8818,56.516 -156.7951,56.514 -156.7784,56.51 -156.7229,56.49 -156.6984,56.4702 -156.725,56.4624 -156.7468,56.4783 -156.759,56.4815 -156.7917,56.4822 -156.834,56.4826 -156.8453,56.4826 -156.8631,56.4781 -156.9177,56.4638 -157.0495,56.4553 -157.0517,56.4688 -157.0204,56.492 -157.0094,56.4998 -156.9914,56.5104 -156.9735,56.5147 -156.9624,56.5148 -156.9624,56.5148 139,-5.0,Canada -79.0372,55.8572 -79.0615,55.8269 -79.0278,55.9077 -78.9835,55.9806 -78.9235,56.0822 -78.884,56.1362 -78.8701,56.155 -78.8522,56.1952 -78.8468,56.2071 -78.8338,56.2399 -78.8299,56.2521 -78.8272,56.2696 -78.8313,56.3142 -78.8412,56.3226 -78.8596,56.3175 -78.904,56.294 -78.916,56.2777 -78.9232,56.2632 -78.9515,56.1975 -78.9541,56.1654 -78.9541,56.1474 -78.9444,56.1076 -79.0745,55.8879 -79.0978,55.8514 -79.1211,55.8202 -79.1448,55.8019 -79.1399,55.8194 -79.1289,55.8369 -79.0885,55.8965 -79.0452,55.9715 -79.0013,56.0489 -78.9953,56.0605 -78.994,56.1094 -79.001,56.1408 -79.0114,56.1664 -79.0214,56.165 -79.0312,56.1591 -79.0667,56.1244 -79.1049,56.0846 -79.1175,56.0647 -79.1318,56.0386 -79.1387,56.0244 -79.1454,56.0118 -79.1608,55.9855 -79.1704,55.97 -79.1851,55.9508 -79.2201,55.9082 -79.3138,55.8139 -79.3416,55.7978 -79.3581,55.7919 -79.377,55.7892 -79.394,55.7891 -79.429,55.7988 -79.4551,55.8083 -79.4661,55.8159 -79.6432,55.7221 -79.624,55.7481 -79.4591,55.9157 -79.3478,56.021 -79.3354,56.0322 -79.3311,56.0422 -79.3365,56.0537 -79.358,56.0673 -79.3735,56.0685 -79.3837,56.0677 -79.3977,56.0633 -79.4108,56.057 -79.4282,56.0464 -79.458,56.0251 -79.5058,55.9845 -79.6802,55.8352 -79.6923,55.8239 -79.7073,55.8082 -79.7189,55.7939 -79.7257,55.7833 -79.7699,55.7747 -79.8465,55.8319 -79.8222,55.8941 -79.6348,56.0458 -79.5284,56.1235 -79.5056,56.1335 -79.4481,56.1637 -79.3966,56.2285 -79.387,56.2377 -79.3764,56.2533 -79.3546,56.3004 -79.3474,56.3359 -79.3185,56.3993 -79.3183,56.4116 -79.3258,56.432 -79.3342,56.4542 -79.3284,56.4796 -79.316,56.4863 -79.3034,56.4848 -79.278,56.4239 -79.2792,56.3769 -79.3029,56.3267 -79.3353,56.2539 -79.3916,56.1404 -79.3751,56.1199 -79.3222,56.1269 -79.2995,56.1307 -79.2878,56.1368 -79.2752,56.1478 -79.1702,56.3576 -79.161,56.3803 -79.158,56.3927 -79.1533,56.4212 -79.1517,56.432 -79.1461,56.5031 -79.0002,56.4795 -78.9915,56.4734 -78.9857,56.4472 -78.9812,56.4258 -78.9724,56.4083 -78.9602,56.3963 -78.9519,56.3875 -78.9362,56.3772 -78.9163,56.3669 -78.8993,56.3623 -78.8825,56.3602 -78.87,56.3595 -78.849,56.36 -78.8067,56.3641 -78.7933,56.3604 -78.7847,56.3507 -78.7819,56.3399 -78.7841,56.3204 -78.7974,56.2509 -78.8078,56.2173 -78.8196,56.2088 -78.8907,56.1061 -78.9228,56.0582 -78.933,56.0389 -78.9464,56.0113 -78.9557,55.9889 -78.9916,55.9234 -79.0372,55.8572 -79.0372,55.8572 17,-9.0,United States -153.6042,56.484 -153.6076,56.4713 -153.617,56.4627 -153.6705,56.4404 -153.6871,56.436 -153.7911,56.4324 -153.8345,56.4341 -153.8577,56.4417 -153.8357,56.4565 -153.7989,56.4711 -153.767,56.4807 -153.7407,56.4838 -153.6936,56.4869 -153.6274,56.4911 -153.604,56.4889 -153.6042,56.484 -153.6042,56.484 29,-4.0,Canada -61.4491,56.485 -61.4171,56.4833 -61.3506,56.4787 -61.327,56.4743 -61.0602,56.4078 -61.0416,56.3764 -61.0513,56.3709 -61.0738,56.3684 -61.0923,56.3684 -61.1128,56.3687 -61.409,56.3801 -61.5003,56.3949 -61.5217,56.3986 -61.5289,56.4213 -61.4339,56.4202 -61.4173,56.4122 -61.4043,56.408 -61.3295,56.4095 -61.3119,56.4185 -61.3466,56.4297 -61.3882,56.433 -61.4187,56.4349 -61.52,56.4382 -61.5244,56.4476 -61.4933,56.486 -61.4831,56.4904 -61.4679,56.4907 -61.4491,56.485 -61.4491,56.485 17,1.0,United Kingdom -6.8804,56.372 -6.9127,56.3731 -6.9596,56.3823 -6.977,56.4295 -6.9607,56.4413 -6.9454,56.4461 -6.7487,56.4818 -6.7365,56.478 -6.718,56.4569 -6.7269,56.4489 -6.7463,56.4472 -6.7622,56.4488 -6.7804,56.4482 -6.7918,56.4454 -6.8667,56.4053 -6.8804,56.372 -6.8804,56.372 36,-5.0,Canada -79.9201,56.1179 -79.9469,56.1212 -79.9665,56.1303 -79.9586,56.175 -79.9146,56.2371 -79.9015,56.2453 -79.8817,56.2533 -79.7267,56.2909 -79.6551,56.2998 -79.6161,56.2951 -79.5839,56.296 -79.5583,56.3023 -79.5387,56.3117 -79.516,56.326 -79.502,56.3378 -79.4761,56.3627 -79.4637,56.3773 -79.4575,56.3875 -79.4507,56.4023 -79.4457,56.4303 -79.4059,56.4582 -79.4091,56.441 -79.4734,56.3286 -79.4798,56.3184 -79.4979,56.294 -79.5094,56.2797 -79.5232,56.2674 -79.5421,56.251 -79.5608,56.2396 -79.5741,56.2335 -79.7663,56.1608 -79.7879,56.1532 -79.8456,56.1331 -79.8788,56.1251 -79.9201,56.1179 -79.9201,56.1179 42,-9.0,United States -131.8248,56.0451 -131.8675,56.0945 -131.878,56.0993 -131.9392,56.1187 -131.96,56.1233 -131.9717,56.1254 -131.9828,56.1259 -131.9932,56.1282 -132.0194,56.1365 -132.0408,56.1473 -132.0699,56.1657 -132.0803,56.1737 -132.0989,56.1899 -132.1137,56.2046 -132.1154,56.2148 -132.0998,56.2388 -132.0952,56.2486 -132.0943,56.2602 -132.0935,56.3351 -132.1151,56.3697 -132.1348,56.3873 -132.1422,56.4087 -132.1383,56.4204 -132.1216,56.4218 -132.0229,56.3869 -131.9983,56.3724 -131.9897,56.3543 -131.9851,56.332 -131.9794,56.3227 -131.9283,56.2865 -131.8952,56.2778 -131.8761,56.2776 -131.8594,56.2859 -131.8419,56.2931 -131.8105,56.2882 -131.7745,56.2719 -131.7627,56.2618 -131.7573,56.2521 -131.7155,56.1658 -131.779,56.0679 -131.8248,56.0451 -131.8248,56.0451 27,-9.0,United States -132.601,56.1643 -132.6119,56.1653 -132.6281,56.1712 -132.6768,56.1946 -132.8108,56.2654 -132.8212,56.2823 -132.7549,56.3545 -132.7058,56.381 -132.6864,56.3867 -132.6533,56.3887 -132.4985,56.3915 -132.4883,56.3915 -132.4691,56.3894 -132.4491,56.3858 -132.4224,56.3775 -132.4047,56.3693 -132.3961,56.3579 -132.3807,56.3267 -132.4015,56.2319 -132.4073,56.2168 -132.4149,56.2094 -132.4441,56.1991 -132.4676,56.1928 -132.5264,56.1794 -132.5841,56.1673 -132.601,56.1643 -132.601,56.1643 256,3.0,Lithuania 26.567,55.6091 26.5766,55.5868 26.582,55.5329 26.4812,55.3817 26.4194,55.2735 26.4605,55.2588 26.4835,55.2527 26.5153,55.2489 26.5797,55.265 26.5999,55.265 26.7294,55.2462 26.7669,55.2251 26.7608,55.2048 26.7377,55.1897 26.596,55.1259 26.4669,55.0852 26.4364,55.0903 26.2351,55.081 26.2083,55.054 26.2045,55.014 26.17,54.9613 26.1163,54.9129 26.0318,54.8977 25.8925,54.8911 25.8675,54.8893 25.831,54.8769 25.7483,54.8088 25.6932,54.724 25.6837,54.6109 25.6884,54.59 25.714,54.5511 25.719,54.5185 25.7054,54.5007 25.6815,54.4847 25.6127,54.4594 25.5124,54.2992 25.509,54.2633 25.5326,54.249 25.5684,54.2478 25.6075,54.2523 25.6486,54.2639 25.6695,54.268 25.764,54.1831 25.7422,54.1011 25.723,54.0907 25.6261,54.0732 25.4975,54.0821 25.4628,54.1219 25.502,54.1372 25.5304,54.1796 25.4585,54.2396 25.4245,54.241 25.3959,54.2254 25.3782,54.2076 25.3563,54.195 25.3303,54.1909 25.3036,54.1892 25.1624,54.1527 25.1371,54.1229 25.1202,54.1092 25.0595,54.0813 25.0356,54.073 24.9853,54.0685 24.9623,54.0791 24.9298,54.0941 24.8065,54.0802 24.757,54.0383 24.7811,54.0015 24.7984,53.975 24.7992,53.9481 24.7856,53.9214 24.6831,53.9073 24.6547,53.9335 24.5714,53.9292 24.4738,53.8873 24.4269,53.8595 24.3515,53.8273 24.2274,53.8443 24.2161,53.8664 24.2016,53.8826 24.1667,53.8999 24.1356,53.9046 24.1095,53.9024 24.0829,53.8884 24.0449,53.8745 23.9764,53.8743 23.9465,53.8759 23.8592,53.8775 23.7446,53.8725 23.6701,53.8609 23.5553,53.8679 23.5297,53.8761 23.5048,53.8803 23.4776,53.8838 23.4653,53.8842 23.469,53.8974 23.4786,53.9758 23.4551,54.054 23.4452,54.075 23.4188,54.1109 23.3173,54.1721 23.2941,54.1837 23.1658,54.2237 23.0771,54.2409 22.9563,54.322 22.8247,54.3448 22.7969,54.3417 22.774,54.3325 22.7475,54.3001 22.738,54.3132 22.6979,54.36 22.6722,54.3803 22.6603,54.4007 22.6532,54.4298 22.6567,54.4658 22.6815,54.6293 22.7069,54.6533 22.775,54.7077 22.8017,54.7136 22.8281,54.7481 22.8259,54.7743 22.8126,54.8173 22.7998,54.8351 22.6812,54.8982 22.6434,54.894 22.6068,54.9001 22.5643,54.9802 22.4745,54.9986 22.2417,55.0026 22.2202,55.0018 22.153,54.9962 22.101,54.9879 22.085,54.9743 22.0654,54.965 22.0222,54.9641 21.6856,55.0737 21.6104,55.1167 21.5274,55.1322 21.3947,55.1868 21.3341,55.2218 21.2911,55.2056 21.2638,55.1939 21.2384,55.1854 21.2274,55.1839 21.2524,55.2213 21.2092,55.4014 21.1611,55.5094 21.1077,55.6119 21.0736,55.6482 21.0406,55.6669 21.0217,55.7157 21.0082,55.8169 21.0078,55.8472 21.0232,55.885 21.0304,55.9186 21.0223,55.9898 21.015,56.011 21.0213,56.0132 21.0624,56.019 21.0872,56.0211 21.1098,56.0219 21.1703,56.0196 21.189,56.0354 21.1973,56.0657 21.2046,56.0989 21.2219,56.1123 21.3221,56.173 21.3506,56.1737 21.3839,56.1745 21.4103,56.1823 21.5288,56.2287 21.6974,56.2568 21.8668,56.3024 22.0052,56.3475 22.0285,56.3528 22.1081,56.3573 22.2702,56.3371 22.4498,56.3396 22.4797,56.3379 22.5142,56.3329 22.5471,56.3279 22.5851,56.3189 22.6087,56.3047 22.6266,56.294 22.6514,56.2901 22.7924,56.3143 22.8129,56.3255 22.8461,56.3434 22.8898,56.3562 22.9108,56.3535 22.9494,56.3292 22.9635,56.3081 22.9751,56.286 22.9942,56.2648 23.0206,56.2499 23.0647,56.2397 23.098,56.2515 23.1341,56.2882 23.2554,56.3143 23.2851,56.3123 23.3222,56.3005 23.4069,56.2774 23.4842,56.2674 23.5122,56.2695 23.5321,56.2787 23.5584,56.2949 23.6922,56.2939 23.8316,56.2761 23.9068,56.2657 23.9579,56.2538 24.0277,56.2171 24.0994,56.1963 24.1269,56.1957 24.2226,56.2229 24.2917,56.2432 24.3291,56.2321 24.3776,56.2094 24.4066,56.203 24.4338,56.2029 24.5175,56.2227 24.5396,56.2458 24.5598,56.2626 24.6101,56.2993 24.8505,56.3832 24.875,56.376 24.8984,56.3403 24.9128,56.3156 24.9269,56.2871 24.9383,56.2627 24.9527,56.2335 25.0331,56.1484 25.0576,56.1329 25.0959,56.1209 25.1164,56.1181 25.1392,56.1171 25.2182,56.1146 25.2834,56.1026 25.3851,56.1001 25.5382,56.0851 25.6637,56.0307 25.846,55.9333 25.892,55.9128 25.9602,55.8913 26.0129,55.8721 26.1509,55.798 26.171,55.7799 26.1943,55.7511 26.2204,55.7075 26.2676,55.6739 26.293,55.6607 26.3211,55.6507 26.4589,55.6196 26.4854,55.6151 26.5373,55.61 26.567,55.6091 26.567,55.6091 24,-5.0,Canada -78.7893,56.0476 -78.7923,56.0623 -78.7784,56.1061 -78.7678,56.1184 -78.7448,56.1354 -78.7078,56.1681 -78.6917,56.1869 -78.6866,56.1963 -78.6747,56.2383 -78.6728,56.2745 -78.6949,56.2816 -78.6238,56.358 -78.6125,56.3659 -78.5929,56.3739 -78.5518,56.3769 -78.5235,56.3673 -78.5126,56.2226 -78.5146,56.1756 -78.5175,56.157 -78.5382,56.1149 -78.5506,56.1062 -78.702,56.0638 -78.7893,56.0476 -78.7893,56.0476 18,-4.0,Canada -61.438,56.3242 -61.3846,56.3384 -61.3705,56.3401 -61.3599,56.3377 -61.3039,56.3042 -61.306,56.2578 -61.316,56.2537 -61.3746,56.2432 -61.4612,56.2539 -61.4712,56.2559 -61.4913,56.2613 -61.5778,56.2862 -61.6114,56.2993 -61.679,56.3465 -61.569,56.3389 -61.5149,56.3332 -61.438,56.3242 -61.438,56.3242 41,-9.0,United States -132.0883,55.8463 -132.1944,55.89 -132.1907,55.9021 -132.1801,55.9297 -132.1883,55.962 -132.2163,55.9873 -132.3664,56.0142 -132.3753,56.0087 -132.379,55.9964 -132.3898,55.9827 -132.4031,55.9829 -132.4548,56.0332 -132.4634,56.0414 -132.4804,56.0695 -132.4844,56.0851 -132.4637,56.1529 -132.4506,56.1597 -132.3403,56.2113 -132.3323,56.2227 -132.2962,56.2654 -132.2829,56.2721 -132.2626,56.2765 -132.2042,56.2835 -132.1849,56.2841 -132.1693,56.2807 -132.1516,56.2655 -132.146,56.2466 -132.1379,56.2018 -132.1628,56.1553 -131.9799,56.1118 -131.9476,56.1022 -131.8757,56.0496 -131.8626,56.0349 -131.9067,56.0014 -131.8836,55.8815 -131.8893,55.8689 -131.9012,55.8609 -131.9133,55.8584 -132.0432,55.8508 -132.0883,55.8463 -132.0883,55.8463 153,-9.0,United States -131.931,55.3793 -131.9893,55.4103 -132.1489,55.4648 -132.1792,55.4715 -132.2054,55.4797 -132.2235,55.4938 -132.2464,55.5255 -132.2834,55.5494 -132.3132,55.5553 -132.3331,55.5023 -132.2711,55.4456 -132.054,55.3919 -131.8611,55.2027 -131.9081,55.1743 -131.9433,55.1776 -131.9743,55.1829 -132.0061,55.1842 -132.0227,55.1465 -132.0085,55.1283 -131.8735,55.133 -131.8435,55.1485 -131.8307,55.1709 -131.7877,55.2048 -131.7591,55.1945 -131.7413,55.1558 -131.7436,55.1138 -131.7694,55.0407 -131.8172,55.0144 -131.8578,55.0029 -131.8484,54.9765 -131.9164,54.9492 -131.9462,54.9401 -131.9866,54.9294 -131.9107,54.9007 -131.8593,54.912 -131.8312,54.9338 -131.8016,54.9575 -131.7463,54.9653 -131.7246,54.7241 -131.7829,54.6261 -131.902,54.6241 -132.0615,54.6492 -132.0721,54.6798 -132.0642,54.704 -132.0319,54.7201 -131.994,54.7204 -131.989,54.7272 -131.9965,54.7469 -132.0582,54.7905 -132.1004,54.8176 -132.2624,54.913 -132.2755,54.8889 -132.2901,54.8744 -132.3172,54.8699 -132.3464,54.8843 -132.3687,54.9045 -132.3473,54.9704 -132.3205,54.9803 -132.2886,54.9867 -132.2848,55.0415 -132.4228,55.1789 -132.4193,55.141 -132.4049,55.1232 -132.3823,55.1056 -132.3955,55.083 -132.4278,55.0738 -132.4664,55.0782 -132.5491,55.1166 -132.5742,55.1447 -132.5792,55.1832 -132.7165,55.1428 -132.7746,55.1382 -132.7991,55.1506 -132.7593,55.1638 -132.6824,55.2108 -132.7418,55.2061 -132.7965,55.2023 -132.9836,55.2126 -133.0319,55.2707 -132.9803,55.3157 -132.887,55.3124 -132.8125,55.2965 -132.7394,55.2849 -132.6716,55.2804 -132.6384,55.2887 -132.6595,55.295 -132.7152,55.3051 -132.7365,55.307 -132.7574,55.3077 -132.7724,55.3141 -132.8016,55.3328 -132.8847,55.4004 -132.8968,55.4255 -132.8879,55.4502 -132.8217,55.5116 -132.7756,55.5439 -132.7517,55.5539 -132.7307,55.5582 -132.6909,55.559 -132.7362,55.5731 -132.8287,55.558 -132.8895,55.5383 -132.9679,55.5123 -133.0289,55.509 -133.1348,55.55 -133.1518,55.5752 -133.1397,55.656 -133.0324,55.6755 -133.0118,55.6786 -132.9102,55.7506 -132.9119,55.814 -132.9458,55.7952 -132.9946,55.8208 -133.0076,55.836 -133.0246,55.8807 -133.0316,56.0884 -133.0879,56.1031 -133.131,56.1055 -133.1835,56.0984 -133.3302,56.1126 -133.3773,56.1388 -133.398,56.2073 -133.3753,56.2816 -133.3503,56.2831 -133.2537,56.2702 -133.112,56.2638 -133.0145,56.2643 -132.9458,56.2607 -132.8233,56.1712 -132.7903,56.1062 -132.8298,56.0519 -132.855,56.0392 -132.8922,56.0522 -132.8402,55.9852 -132.8104,55.9814 -132.7153,55.992 -132.6698,55.983 -132.5907,55.9624 -132.3906,55.8537 -132.282,55.7695 -132.2678,55.7547 -132.2336,55.7097 -132.2127,55.6225 -132.1747,55.5925 -132.0181,55.4765 -131.9979,55.4717 -131.978,55.4616 -131.9539,55.4469 -131.9369,55.4361 -131.9136,55.4103 -131.9151,55.3873 -131.931,55.3793 -131.931,55.3793 17,-4.0,Canada -60.9818,56.1038 -60.9522,56.0933 -60.9386,56.0876 -60.8373,56.0263 -60.8303,55.9461 -60.9338,55.9391 -60.975,55.9454 -61.0344,55.9543 -61.0639,55.9623 -61.08,55.9678 -61.1113,55.9825 -61.1211,55.997 -61.1255,56.0064 -61.1243,56.0236 -61.1072,56.0346 -60.9818,56.1038 -60.9818,56.1038 484,2.0,Byelarus 26.567,55.6091 26.5787,55.6223 26.5962,55.6332 26.6192,55.6402 26.6458,55.6362 26.6922,55.6221 26.7195,55.622 26.81,55.648 26.8365,55.6748 26.8583,55.7096 26.9388,55.7664 27.1055,55.7807 27.1643,55.7601 27.2633,55.7416 27.4834,55.7232 27.5119,55.7233 27.5525,55.7265 27.572,55.7526 27.5841,55.7802 27.5984,55.8534 27.6643,55.8899 27.7478,55.9351 27.8492,56.0039 27.8738,56.039 28.0727,56.1012 28.1004,56.0944 28.1188,56.084 28.1377,56.0676 28.2605,55.9851 28.2988,55.9895 28.3295,56.024 28.4785,56.039 28.5711,56.0332 28.5999,56.025 28.6505,55.9676 28.6569,55.9375 28.6755,55.9026 28.6962,55.89 28.7936,55.8851 28.8147,55.9121 28.9557,55.9576 28.9769,55.9631 29.0089,55.9666 29.0882,55.9557 29.1212,55.9495 29.359,55.8919 29.4046,55.8534 29.359,55.8314 29.3088,55.7311 29.3314,55.6944 29.4338,55.6266 29.4734,55.6273 29.605,55.6996 29.855,55.7801 29.8854,55.7872 29.9205,55.7904 30.1934,55.7885 30.4139,55.7396 30.4386,55.7333 30.5579,55.6522 30.6023,55.5951 30.7042,55.5316 30.7356,55.5291 30.7923,55.5491 30.8317,55.553 30.8612,55.5453 30.873,55.5369 30.8768,55.5124 30.8866,55.4304 30.8832,55.3341 30.8603,55.3133 30.8361,55.3103 30.8046,55.2885 30.7785,55.265 30.7629,55.2368 30.8649,55.1359 30.8909,55.1267 30.925,55.0874 30.9747,54.9838 30.8875,54.8995 30.8553,54.8895 30.8118,54.8829 30.7864,54.8581 30.7424,54.7794 30.7305,54.7349 30.7857,54.717 30.824,54.7049 30.8669,54.6873 30.9562,54.6453 31.0504,54.5815 31.0857,54.5127 31.059,54.4838 31.0348,54.4524 31.0402,54.4289 31.0782,54.4149 31.1462,54.3971 31.1734,54.3955 31.2596,54.2778 31.258,54.2369 31.2763,54.1797 31.4716,54.0877 31.4917,54.0799 31.6229,54.0434 31.6736,54.0432 31.7029,54.0416 31.7928,53.998 31.8124,53.943 31.8044,53.9067 31.7763,53.8236 31.7528,53.7935 31.7266,53.7744 31.7119,53.7416 31.8377,53.7152 31.883,53.7263 31.9187,53.7354 31.9404,53.7397 32.0668,53.7573 32.2762,53.6994 32.4031,53.6619 32.4307,53.6495 32.4521,53.6202 32.3675,53.5849 32.3712,53.5389 32.3905,53.5105 32.4206,53.4905 32.5671,53.4376 32.5877,53.4394 32.6118,53.4361 32.6865,53.3964 32.6831,53.3762 32.6713,53.2981 32.559,53.2508 32.3937,53.1531 32.3693,53.134 32.2465,53.07 32.1712,53.0438 32.09,53.0276 32.0604,53.0255 31.9063,53.0325 31.8667,53.0366 31.7482,53.0702 31.7378,53.1082 31.7251,53.1309 31.572,53.1557 31.3747,53.1468 31.3493,53.1266 31.3323,53.0917 31.3242,53.06 31.3362,53.0422 31.2643,52.9896 31.2164,52.9616 31.3404,52.8489 31.365,52.8315 31.3884,52.8181 31.4342,52.7999 31.4583,52.7959 31.488,52.7933 31.5292,52.7432 31.5368,52.7207 31.5433,52.6759 31.5047,52.6402 31.4547,52.6266 31.5367,52.5312 31.5586,52.4303 31.5787,52.3062 31.5559,52.2712 31.5437,52.2523 31.6515,52.1603 31.7152,52.116 31.7361,52.0972 31.736,52.0637 31.7338,52.0474 31.6849,52.0457 31.5724,52.0485 31.4741,52.056 31.4531,52.0569 31.3731,52.0597 31.3214,52.057 31.2966,52.0533 31.2745,52.0445 31.2471,52.0263 31.0835,52.0261 31.0574,52.0258 30.9111,52.0191 30.8865,52.0012 30.8822,51.9718 30.9105,51.9405 30.8485,51.9176 30.7769,51.8874 30.6989,51.8352 30.6142,51.7617 30.6193,51.7411 30.5782,51.6479 30.5175,51.5836 30.5067,51.4822 30.5391,51.4294 30.5965,51.3094 30.5954,51.2717 30.5687,51.2646 30.5208,51.2386 30.5043,51.1927 30.4177,51.2358 30.3034,51.2987 30.3006,51.3406 30.1603,51.4243 30.1334,51.432 30.1054,51.4338 29.9966,51.4308 29.9659,51.4297 29.9369,51.4266 29.8656,51.4131 29.8353,51.4001 29.7883,51.3823 29.7168,51.3812 29.6921,51.3976 29.6729,51.4316 29.6301,51.4397 29.5781,51.431 29.3643,51.3434 29.3084,51.316 29.2971,51.3136 29.2667,51.3281 29.2045,51.4427 29.1964,51.4814 29.136,51.5582 29.1178,51.568 29.0729,51.5772 29.0389,51.578 29.0075,51.5713 28.7921,51.4904 28.766,51.4749 28.7485,51.4565 28.7217,51.4217 28.7249,51.3886 28.7129,51.356 28.6221,51.3871 28.6087,51.405 28.5928,51.4504 28.5885,51.4839 28.584,51.505 28.4464,51.5212 28.4239,51.5183 28.3894,51.5063 28.2754,51.5293 28.2128,51.5995 28.172,51.5958 28.1382,51.5778 28.114,51.5502 28.0945,51.5232 28.0656,51.5099 28.0354,51.5048 27.9628,51.5025 27.9402,51.506 27.912,51.5153 27.8824,51.5319 27.8526,51.5534 27.8227,51.562 27.7891,51.5494 27.7708,51.5323 27.771,51.5086 27.7738,51.4734 27.705,51.4069 27.6387,51.4337 27.6669,51.4909 27.6813,51.5218 27.6443,51.5417 27.5542,51.5559 27.4691,51.5692 27.4107,51.5429 27.3741,51.5376 27.2403,51.5385 27.157,51.6154 27.1623,51.6574 27.1604,51.6913 27.1278,51.704 27.0387,51.7111 26.9773,51.7083 26.929,51.6921 26.9063,51.689 26.8844,51.6904 26.853,51.6954 26.7791,51.7126 26.7307,51.7256 26.681,51.7425 26.631,51.7551 26.601,51.7606 26.5667,51.761 26.5295,51.7582 26.4893,51.7534 26.4572,51.7517 26.4161,51.7527 26.3987,51.7631 26.3943,51.796 26.3231,51.7987 26.2975,51.7972 26.2556,51.7936 26.1669,51.7984 26.1346,51.8026 26.1035,51.8183 25.9864,51.8502 25.7781,51.8757 25.7302,51.8778 25.6935,51.867 25.6457,51.862 25.5585,51.8586 25.5227,51.8597 25.5067,51.8618 25.4001,51.862 25.3124,51.8683 25.2725,51.8793 25.2301,51.8933 25.2014,51.8994 25.1336,51.8992 25.0544,51.8819 25.0129,51.8721 24.9527,51.8518 24.8587,51.8405 24.7021,51.8296 24.6615,51.8337 24.3562,51.8246 24.2765,51.7638 24.2684,51.7429 24.2595,51.7047 24.2455,51.6812 24.0334,51.5653 24.0057,51.5505 23.961,51.5331 23.9262,51.5257 23.9012,51.5364 23.8857,51.5602 23.8644,51.5744 23.7144,51.5919 23.6133,51.5763 23.5766,51.547 23.5912,51.52 23.6046,51.464 23.5682,51.4682 23.5306,51.4801 23.5025,51.5329 23.4984,51.5939 23.5188,51.6055 23.511,51.6266 23.5215,51.6924 23.5755,51.8557 23.59,51.8919 23.6236,51.9457 23.6016,52.0191 23.5578,52.0516 23.3114,52.1463 23.2611,52.151 23.1783,52.1628 23.1564,52.1724 23.1288,52.2216 23.2118,52.3135 23.3403,52.4373 23.3602,52.4535 23.38,52.4642 23.4661,52.5064 23.4855,52.5126 23.5596,52.5352 23.596,52.5445 23.6175,52.5491 23.6504,52.5562 23.6782,52.5548 23.7089,52.5536 23.8456,52.617 23.8736,52.6318 23.897,52.6561 23.9029,52.6882 23.9015,52.709 23.9002,52.7132 23.893,52.7973 23.889,52.8867 23.8948,52.9502 23.8199,53.134 23.7471,53.2522 23.6619,53.3908 23.6349,53.4312 23.6017,53.4967 23.5787,53.5515 23.5699,53.5749 23.5539,53.6228 23.5518,53.6318 23.5419,53.6684 23.5007,53.7781 23.4713,53.8365 23.4651,53.8583 23.4638,53.8795 23.4653,53.8842 23.4776,53.8838 23.5048,53.8803 23.5297,53.8761 23.5553,53.8679 23.6701,53.8609 23.7446,53.8725 23.8592,53.8775 23.9465,53.8759 23.9764,53.8743 24.0449,53.8745 24.0829,53.8884 24.1095,53.9024 24.1356,53.9046 24.1667,53.8999 24.2016,53.8826 24.2161,53.8664 24.2274,53.8443 24.3515,53.8273 24.4269,53.8595 24.4738,53.8873 24.5714,53.9292 24.6547,53.9335 24.6831,53.9073 24.7856,53.9214 24.7992,53.9481 24.7984,53.975 24.7811,54.0015 24.757,54.0383 24.8065,54.0802 24.9298,54.0941 24.9623,54.0791 24.9853,54.0685 25.0356,54.073 25.0595,54.0813 25.1202,54.1092 25.1371,54.1229 25.1624,54.1527 25.3036,54.1892 25.3303,54.1909 25.3563,54.195 25.3782,54.2076 25.3959,54.2254 25.4245,54.241 25.4585,54.2396 25.5304,54.1796 25.502,54.1372 25.4628,54.1219 25.4975,54.0821 25.6261,54.0732 25.723,54.0907 25.7422,54.1011 25.764,54.1831 25.6695,54.268 25.6486,54.2639 25.6075,54.2523 25.5684,54.2478 25.5326,54.249 25.509,54.2633 25.5124,54.2992 25.6127,54.4594 25.6815,54.4847 25.7054,54.5007 25.719,54.5185 25.714,54.5511 25.6884,54.59 25.6837,54.6109 25.6932,54.724 25.7483,54.8088 25.831,54.8769 25.8675,54.8893 25.8925,54.8911 26.0318,54.8977 26.1163,54.9129 26.17,54.9613 26.2045,55.014 26.2083,55.054 26.2351,55.081 26.4364,55.0903 26.4669,55.0852 26.596,55.1259 26.7377,55.1897 26.7608,55.2048 26.7669,55.2251 26.7294,55.2462 26.5999,55.265 26.5797,55.265 26.5153,55.2489 26.4835,55.2527 26.4605,55.2588 26.4194,55.2735 26.4812,55.3817 26.582,55.5329 26.5766,55.5868 26.567,55.6091 26.567,55.6091 22,-9.0,United States -133.0521,56.0627 -133.0805,56.015 -133.13,55.944 -133.2251,55.937 -133.3753,55.8929 -133.4042,55.8672 -133.4669,55.8298 -133.5546,55.853 -133.5596,55.8653 -133.5595,55.8822 -133.5523,55.897 -133.5407,55.9097 -133.4486,55.9981 -133.3775,56.0398 -133.3374,56.0607 -133.1668,56.088 -133.1567,56.0882 -133.081,56.083 -133.0699,56.0821 -133.046,56.0716 -133.0521,56.0627 -133.0521,56.0627 28,1.0,United Kingdom -5.9613,55.7226 -6.0193,55.7265 -6.0424,55.7344 -6.0561,55.7401 -6.0638,55.7479 -6.0683,55.7609 -6.0772,55.8137 -6.0736,55.828 -6.0679,55.8395 -5.9574,55.9574 -5.9454,55.9644 -5.8935,55.9935 -5.7987,56.0435 -5.7449,56.0669 -5.7347,56.0711 -5.6982,56.084 -5.6841,56.0809 -5.6748,56.0534 -5.6805,56.0404 -5.6952,56.0313 -5.7069,56.0233 -5.7202,56.0118 -5.7389,55.994 -5.8356,55.8835 -5.8937,55.8164 -5.9366,55.7642 -5.9613,55.7226 -5.9613,55.7226 201,2.0,Denmark 11.8725,54.9211 11.8393,54.9494 11.8202,54.9588 11.7106,54.9958 11.7628,55.0678 11.7775,55.091 11.7209,55.134 11.7107,55.1386 11.6976,55.1417 11.6747,55.1425 11.6634,55.1393 11.6386,55.1222 11.5923,55.1224 11.5333,55.1259 11.5232,55.128 11.4992,55.1352 11.4345,55.1475 11.4083,55.1509 11.3973,55.1507 11.3808,55.1474 11.3316,55.1366 11.3037,55.1258 11.287,55.124 11.2536,55.128 11.2387,55.1303 11.2264,55.1371 11.1685,55.2738 11.1983,55.3312 11.1842,55.3834 11.1298,55.5019 11.1252,55.5121 11.0673,55.6007 11.056,55.6072 10.9753,55.6268 10.8608,55.6685 10.8785,55.6733 10.922,55.6733 10.9341,55.6722 11.1104,55.656 11.1192,55.648 11.1334,55.642 11.1492,55.6372 11.1697,55.6334 11.1819,55.6323 11.1916,55.633 11.3238,55.6817 11.4671,55.7758 11.4783,55.7877 11.4863,55.8011 11.4918,55.8133 11.4963,55.8293 11.489,55.8504 11.4717,55.8642 11.4544,55.872 11.4292,55.8766 11.36,55.8809 11.3399,55.8832 11.2579,55.9103 11.2536,55.9255 11.293,55.9152 11.3892,55.8955 11.5861,55.8704 11.6442,55.8756 11.6862,55.8848 11.7209,55.895 11.7325,55.8984 11.748,55.8972 11.7589,55.8865 11.7193,55.8555 11.6501,55.8244 11.6505,55.7485 11.6974,55.7275 11.713,55.7279 11.7248,55.7185 11.7451,55.6927 11.7796,55.6197 11.774,55.596 11.8031,55.6136 11.8117,55.6413 11.8233,55.6987 11.8834,55.8606 11.8934,55.8635 11.9042,55.8629 11.9203,55.8586 11.9387,55.8511 11.9691,55.8368 11.9795,55.826 12.0143,55.7407 12.0198,55.7274 12.0356,55.6811 12.0346,55.6673 12.0275,55.6569 12.0079,55.6494 11.989,55.6497 11.9497,55.6516 11.9159,55.6113 11.9151,55.5877 12.0386,55.59 12.0713,55.6328 12.073,55.6456 12.0706,55.6597 12.0668,55.6733 12.0512,55.6986 12.0201,55.8555 11.9902,55.8917 11.9585,55.8906 11.913,55.8841 11.866,55.8708 11.8508,55.8708 11.8304,55.8799 11.8267,55.8893 11.8422,55.9022 11.8984,55.9285 12.1531,56.0375 12.179,56.046 12.2538,56.0608 12.2692,56.0626 12.2804,56.0622 12.2912,56.0607 12.3099,56.0579 12.4924,56.0217 12.5116,56.0144 12.5953,55.9738 12.5721,55.9385 12.5622,55.9334 12.5483,55.9281 12.5062,55.8799 12.4947,55.8563 12.4973,55.8455 12.537,55.8013 12.5451,55.7917 12.5535,55.7808 12.5758,55.7301 12.5781,55.7013 12.5786,55.6886 12.5626,55.6694 12.5762,55.6369 12.5398,55.6014 12.5284,55.5917 12.5194,55.5851 12.5027,55.5738 12.4814,55.5658 12.4712,55.5382 12.4213,55.542 12.411,55.5501 12.4002,55.551 12.3824,55.5511 12.37,55.5479 12.3593,55.5444 12.3233,55.5275 12.3181,55.5247 12.2482,55.4947 12.2323,55.4871 12.2233,55.478 12.1849,55.4367 12.1716,55.417 12.1707,55.3964 12.1769,55.383 12.1859,55.3731 12.207,55.3607 12.2766,55.3377 12.3226,55.3365 12.3428,55.3338 12.3553,55.3301 12.3781,55.3158 12.4121,55.2945 12.423,55.2832 12.4313,55.2685 12.4409,55.2246 12.4248,55.2094 12.4045,55.1968 12.3912,55.1907 12.3084,55.1693 12.2946,55.1678 12.2727,55.1681 12.2515,55.1689 12.2231,55.1721 12.1824,55.1631 12.1553,55.1556 12.0156,55.1085 12.0052,55.1044 11.9947,55.0882 12.0414,55.0671 12.0543,55.0642 12.0708,55.0643 12.0942,55.068 12.11,55.0686 12.1286,55.0656 12.1581,55.0537 12.1505,54.9356 12.1378,54.9284 12.0513,54.9043 12.0207,54.9021 11.9928,54.9038 11.9746,54.9071 11.9579,54.9147 11.9312,54.9352 11.9209,54.938 11.8916,54.9394 11.8725,54.9211 11.8725,54.9211 17,-5.0,Canada -78.8712,55.9972 -78.8206,56.017 -78.8128,56.0098 -78.8017,55.9592 -78.9167,55.7995 -78.9522,55.751 -78.9669,55.7349 -78.9823,55.7255 -78.9971,55.7249 -78.9876,55.7393 -78.9712,55.7582 -78.965,55.7672 -78.9011,55.8865 -78.8911,55.9065 -78.8841,55.9301 -78.8712,55.9972 -78.8712,55.9972 18,2.0,Denmark 10.6415,55.7975 10.5925,55.6957 10.5818,55.6917 10.571,55.6919 10.5266,55.6952 10.5094,55.7016 10.4935,55.7393 10.4981,55.9048 10.5052,55.9153 10.5259,55.9282 10.5407,55.9309 10.541,55.9205 10.5384,55.9038 10.5422,55.8868 10.6036,55.8049 10.6167,55.7985 10.6415,55.7975 10.6415,55.7975 80,-9.0,United States -131.163,55.19 -131.172,55.1915 -131.1922,55.1961 -131.2289,55.2134 -131.2317,55.2345 -131.2019,55.2483 -131.142,55.2725 -131.0644,55.3459 -131.047,55.3679 -131.0546,55.4239 -131.12,55.5774 -131.1399,55.5596 -131.1335,55.5095 -131.1261,55.4897 -131.1,55.4428 -131.09,55.3924 -131.1019,55.3607 -131.1736,55.2832 -131.2326,55.2615 -131.1951,55.3 -131.1961,55.3202 -131.2188,55.3419 -131.2433,55.3832 -131.2389,55.4064 -131.202,55.4551 -131.2665,55.4401 -131.2893,55.4155 -131.2684,55.3567 -131.2454,55.3277 -131.2393,55.3036 -131.2924,55.2295 -131.3186,55.2267 -131.439,55.2794 -131.4603,55.2894 -131.4842,55.3024 -131.5916,55.3884 -131.473,55.4605 -131.4629,55.5445 -131.4759,55.5597 -131.4676,55.6053 -131.4009,55.6651 -131.394,55.7157 -131.4548,55.7277 -131.4555,55.7642 -131.3102,55.7862 -131.3012,55.8357 -131.2492,55.8533 -131.2105,55.8638 -131.0626,55.8918 -131.0306,55.894 -131.0026,55.8877 -130.9802,55.8722 -130.9141,55.8212 -130.8413,55.7554 -130.8278,55.7402 -130.708,55.571 -130.7114,55.4968 -130.7421,55.323 -130.8311,55.1932 -130.8485,55.1809 -130.875,55.1684 -130.9097,55.164 -130.9171,55.1338 -130.98,55.1218 -131.0223,55.1361 -131.0558,55.1612 -131.0592,55.1814 -131.0286,55.1999 -131.0067,55.2174 -130.9937,55.2342 -130.9661,55.2964 -130.9698,55.3282 -130.9918,55.3379 -131.0425,55.3178 -131.0469,55.2865 -131.0303,55.2533 -131.0646,55.2112 -131.1183,55.1918 -131.163,55.19 -131.163,55.19 15,-4.0,Canada -60.7689,55.7954 -60.7923,55.8041 -60.762,55.8837 -60.7457,55.889 -60.6375,55.8751 -60.6415,55.8656 -60.5837,55.8532 -60.5989,55.8372 -60.6128,55.8303 -60.6504,55.8144 -60.6728,55.8101 -60.7348,55.8003 -60.7524,55.7987 -60.7689,55.7954 -60.7689,55.7954 45,1.0,United Kingdom -6.2634,55.5073 -6.2893,55.5116 -6.3132,55.5213 -6.3104,55.5514 -6.2748,55.6416 -6.2415,55.7033 -6.2512,55.7114 -6.3173,55.7156 -6.3306,55.7117 -6.3391,55.7022 -6.3471,55.6884 -6.3561,55.675 -6.3686,55.6623 -6.3818,55.6517 -6.3995,55.6383 -6.4379,55.6147 -6.451,55.6084 -6.4619,55.6044 -6.4768,55.6033 -6.4916,55.6094 -6.498,55.6206 -6.4885,55.6555 -6.4838,55.6679 -6.4341,55.7853 -6.3585,55.8035 -6.2985,55.7975 -6.1812,55.8502 -6.1522,55.8614 -6.1284,55.8681 -6.1149,55.8651 -6.1078,55.8555 -6.112,55.8292 -6.1109,55.813 -6.0917,55.7432 -6.0848,55.7276 -6.0776,55.7181 -6.0646,55.7115 -6.0421,55.701 -6.0198,55.6547 -6.0155,55.6137 -6.0278,55.6045 -6.0661,55.5844 -6.218,55.5265 -6.2634,55.5073 -6.2634,55.5073 16,-9.0,United States -133.8811,55.8336 -133.888,55.8325 -133.9025,55.8276 -133.9432,55.8089 -133.9754,55.7923 -133.9872,55.7849 -134.0015,55.7701 -134.019,55.7516 -134.0603,55.7646 -134.082,55.7864 -134.1066,55.8476 -134.0876,55.8575 -133.8824,55.8555 -133.8673,55.8491 -133.8811,55.8336 -133.8811,55.8336 14,-9.0,United States -155.2855,55.8452 -155.2837,55.747 -155.287,55.7358 -155.2928,55.7227 -155.3065,55.7101 -155.3325,55.7069 -155.4452,55.7188 -155.4688,55.7627 -155.3488,55.8483 -155.3344,55.8539 -155.3093,55.8566 -155.2925,55.8527 -155.2855,55.8452 -155.2855,55.8452 15,1.0,United Kingdom -5.014,55.6558 -5.0236,55.6576 -5.1114,55.7128 -5.1903,55.8098 -5.1972,55.8306 -5.1658,55.8529 -5.1515,55.8492 -5.0712,55.8108 -5.0275,55.7718 -4.9984,55.7137 -4.9962,55.7019 -4.9992,55.6632 -5.0075,55.6563 -5.014,55.6558 -5.014,55.6558 13,-9.0,United States -132.9835,55.796 -132.9803,55.7889 -132.9795,55.7749 -132.9804,55.7606 -132.9987,55.7237 -133.0137,55.7092 -133.0294,55.7123 -133.0779,55.7554 -133.0992,55.8078 -133.0547,55.835 -133.036,55.8336 -132.9835,55.796 -132.9835,55.796 15,-9.0,United States -158.5323,55.8262 -158.507,55.8227 -158.4921,55.8176 -158.441,55.7796 -158.4345,55.7688 -158.4429,55.7611 -158.5772,55.7394 -158.588,55.7381 -158.6141,55.7383 -158.6294,55.749 -158.6352,55.7687 -158.6179,55.804 -158.5561,55.828 -158.5323,55.8262 -158.5323,55.8262 22,-9.0,United States -133.0714,55.7313 -133.069,55.7251 -133.0869,55.6999 -133.2508,55.6342 -133.2738,55.6278 -133.2915,55.625 -133.3022,55.6259 -133.3375,55.6368 -133.3592,55.6464 -133.3723,55.653 -133.3854,55.6599 -133.4032,55.6707 -133.4135,55.6782 -133.4454,55.7099 -133.4437,55.7204 -133.4017,55.7546 -133.3843,55.7617 -133.321,55.7631 -133.3101,55.7624 -133.0939,55.7365 -133.0714,55.7313 -133.0714,55.7313 27,1.0,United Kingdom -5.1629,55.364 -5.2232,55.3657 -5.274,55.3817 -5.2835,55.3857 -5.3317,55.4107 -5.3476,55.4388 -5.3911,55.5391 -5.3907,55.5524 -5.3868,55.5634 -5.3701,55.6046 -5.3613,55.6111 -5.3182,55.6352 -5.286,55.651 -5.2562,55.6516 -5.2427,55.6504 -5.2298,55.6479 -5.2192,55.6445 -5.189,55.6335 -5.176,55.6272 -5.155,55.6161 -5.1457,55.6076 -5.0756,55.4893 -5.0671,55.392 -5.0843,55.3762 -5.0947,55.3732 -5.1629,55.364 -5.1629,55.364 19,3.0,Lithuania 20.907,55.2222 20.9468,55.2656 20.9665,55.2874 21.0074,55.3435 21.0283,55.3865 21.0496,55.442 21.057,55.4747 21.0595,55.5287 21.0595,55.6063 21.0554,55.6484 21.0756,55.635 21.0886,55.6175 21.0982,55.5636 21.0916,55.5094 21.0666,55.3555 21.0106,55.2646 20.949,55.2113 20.907,55.2222 20.907,55.2222 51,2.0,Denmark 9.983,55.476 10.0566,55.4913 10.1072,55.5024 10.131,55.5087 10.1539,55.516 10.1949,55.5332 10.2764,55.5504 10.3009,55.5488 10.3843,55.5217 10.4669,55.4672 10.4556,55.4497 10.431,55.4147 10.4055,55.3979 10.4074,55.3762 10.4556,55.3722 10.5858,55.4206 10.5959,55.4542 10.5993,55.4986 10.5977,55.545 10.6421,55.522 10.7267,55.4263 10.772,55.2975 10.8128,55.2341 10.7953,55.1307 10.7651,55.0594 10.7167,55.0004 10.6473,54.9959 10.6038,54.9961 10.5734,54.9907 10.5116,54.9648 10.5014,54.9641 10.48,54.9642 10.1357,55.0198 10.1182,55.0522 10.1346,55.0651 10.0937,55.118 9.9887,55.1284 9.88,55.2176 9.8708,55.2742 9.794,55.3715 9.7514,55.4015 9.712,55.409 9.6633,55.4317 9.732,55.4747 9.8093,55.4795 9.8262,55.4548 9.857,55.4424 9.8833,55.4401 9.9116,55.4469 9.983,55.476 9.983,55.476 14,-9.0,United States -133.0393,55.4618 -133.0376,55.4315 -133.0424,55.4228 -133.0591,55.4104 -133.1187,55.382 -133.2035,55.4587 -133.1889,55.479 -133.1629,55.4874 -133.1467,55.4911 -133.1076,55.4914 -133.0746,55.4876 -133.0485,55.4709 -133.0393,55.4618 -133.0393,55.4618 16,-9.0,United States -133.4148,55.3759 -133.4366,55.3854 -133.4831,55.4002 -133.4986,55.4026 -133.5158,55.4 -133.5268,55.4219 -133.4955,55.4758 -133.4876,55.4827 -133.4712,55.4859 -133.4602,55.4852 -133.3524,55.4718 -133.3471,55.462 -133.3452,55.4365 -133.404,55.3795 -133.4148,55.3759 -133.4148,55.3759 17,-9.0,United States -133.2474,55.4495 -133.1932,55.4203 -133.1876,55.411 -133.1868,55.3971 -133.1912,55.3818 -133.1987,55.3743 -133.2132,55.3696 -133.2295,55.3659 -133.2748,55.3618 -133.2848,55.3618 -133.3072,55.3643 -133.348,55.3732 -133.3684,55.3832 -133.2818,55.454 -133.2686,55.4553 -133.2474,55.4495 -133.2474,55.4495 12,-9.0,United States -159.8785,55.372 -159.9027,55.3308 -160.0415,55.3268 -160.052,55.3307 -160.0642,55.3472 -160.0633,55.3627 -160.0529,55.3736 -160.0137,55.3925 -159.9877,55.3978 -159.9693,55.3969 -159.8785,55.372 -159.8785,55.372 1336,7.0,Kazakhstan 59.9145,51.8875 59.9579,51.8231 59.9935,51.8068 60.0201,51.8022 60.0436,51.8048 60.1299,51.8118 60.3684,51.7556 60.3914,51.7489 60.405,51.7342 60.3651,51.6757 60.3069,51.6533 60.2831,51.6305 60.4419,51.5675 60.7609,51.5624 60.8277,51.5608 60.8478,51.5567 60.8371,51.5381 60.8434,51.493 60.8809,51.4407 60.9296,51.4207 61.0459,51.4 61.0819,51.4067 61.1155,51.4089 61.2539,51.3984 61.3957,51.3655 61.4805,51.2501 61.5089,51.2298 61.553,51.2155 61.5767,51.2089 61.5879,51.2069 61.5911,51.2067 61.7549,51.2668 61.8322,51.1784 61.7991,51.1011 61.9096,51.0458 62.009,51.09 62.1195,51.0679 62.0753,50.9575 62.3183,50.8138 62.1416,50.7697 62.0974,50.6371 62.2741,50.6702 62.3404,50.5045 62.4951,50.3499 62.6497,50.1621 62.8375,49.9632 62.8044,49.8307 62.6276,49.8749 62.473,49.7975 62.5061,49.7092 62.3514,49.6318 62.3846,49.5103 62.2852,49.5214 62.2078,49.4551 62.4288,49.212 62.252,49.2231 62.2299,49.1568 62.3625,49.1237 62.484,48.9469 62.7602,48.7923 62.8817,48.8585 63.0032,48.7923 62.959,48.6376 63.2794,48.5382 63.434,48.4719 63.655,48.3946 63.7765,48.2731 63.9201,48.1074 64.0195,47.9306 64.2073,47.8422 63.6992,47.555 63.0584,47.2899 62.727,47.091 62.5945,46.9916 62.9811,47.0248 63.2131,46.9032 63.6992,46.7817 64.2957,46.6381 64.8812,46.4061 65.069,46.4394 65.2126,46.2847 65.533,46.13 66.3283,46.0859 67.0022,46.119 67.0685,45.9643 67.0795,45.8649 67.2563,45.7324 67.1348,45.5114 67.1237,45.3568 67.0574,45.3015 67.0574,45.2242 67.2563,45.1248 67.3999,45.1137 67.3999,44.3405 67.6871,44.2189 67.6761,44.1306 67.8307,44.0532 67.9854,43.9428 67.8638,43.9096 67.8307,43.8323 67.8749,43.7881 67.8638,43.6335 67.7423,43.7108 67.7423,43.5561 67.6429,43.4567 67.5656,43.302 67.7313,43.2026 66.1184,42.3852 65.9527,42.3741 65.9452,42.3745 65.943,42.2887 65.9417,42.2161 65.9381,41.9987 65.9382,41.9557 66.4344,41.9555 66.4473,41.8495 66.454,41.7892 66.4661,41.6918 66.4708,41.6698 66.5445,41.4137 66.6284,41.1285 66.668,41.1185 66.686,41.1155 66.7841,41.1038 66.9801,41.097 67.0669,41.0988 67.2581,41.1029 67.3468,41.1079 67.3972,41.1127 67.4433,41.1212 67.5471,41.1359 67.6622,41.1458 67.8423,41.1368 67.8963,41.0841 68.0139,41.0186 68.0469,41.0056 68.0609,40.99 68.0513,40.9367 68.0229,40.8615 68.0101,40.8335 67.9881,40.8113 67.9609,40.7947 67.9549,40.7644 68.1197,40.658 68.1402,40.6456 68.1636,40.6349 68.1722,40.6319 68.2172,40.6106 68.3616,40.5519 68.386,40.5489 68.5142,40.5541 68.5471,40.5685 68.5581,40.6258 68.5348,40.6724 68.4953,40.693 68.474,40.8155 68.4998,40.8741 68.5225,40.8908 68.5546,40.9006 68.5705,40.9059 68.6276,40.9315 68.6446,40.9551 68.6563,40.9932 68.6749,41.0241 68.6916,41.0393 68.781,41.0724 68.9369,41.1532 68.9699,41.1759 68.9784,41.2254 68.9759,41.3108 68.9646,41.3301 69.1314,41.4129 69.1598,41.424 69.2586,41.4376 69.3944,41.5288 69.5415,41.6232 69.6627,41.652 69.6902,41.6561 69.7495,41.6598 69.832,41.6648 69.9613,41.7331 70.0435,41.7813 70.0599,41.7972 70.0858,41.829 70.1473,41.9078 70.2407,41.9953 70.266,42.0106 70.2906,42.0218 70.3649,42.0491 70.3876,42.0531 70.4082,42.0435 70.4339,42.0199 70.441,41.993 70.5309,41.977 70.5479,42.0013 70.5569,42.0264 70.568,42.0493 70.6528,42.1513 70.6948,42.1565 70.7431,42.1475 70.7864,42.1575 70.8098,42.1701 70.8645,42.2068 70.8162,42.2168 70.775,42.2614 70.786,42.2757 70.8296,42.3095 70.8633,42.3513 70.8576,42.3795 70.9371,42.5294 70.9585,42.5402 71.0705,42.5835 71.071,42.6404 71.1765,42.7109 71.3257,42.7558 71.3888,42.7452 71.411,42.7411 71.4787,42.7159 71.504,42.7172 71.5401,42.7334 71.5585,42.7438 71.617,42.7699 71.6475,42.7751 71.7222,42.7778 71.7983,42.7791 71.8577,42.7691 71.8894,42.7609 72.0717,42.7253 72.1723,42.7268 72.1967,42.7253 72.253,42.7054 72.3575,42.6685 72.5208,42.6372 72.648,42.61 72.6853,42.5943 72.7144,42.5548 72.7362,42.5266 72.7635,42.5133 72.7829,42.5059 72.8076,42.5001 72.859,42.4911 72.919,42.5026 73.0512,42.5125 73.2343,42.4551 73.2339,42.4056 73.2452,42.3815 73.4189,42.3613 73.4309,42.3823 73.4206,42.3968 73.4117,42.4061 73.3717,42.4559 73.3494,42.4854 73.3409,42.5039 73.3318,42.5367 73.3323,42.5793 73.3619,42.6657 73.3931,42.7004 73.4225,42.7488 73.428,42.783 73.4379,42.8818 73.484,42.9917 73.5483,43.0191 73.6105,43.0363 73.6872,43.0559 73.8123,43.0763 73.8357,43.0995 73.9563,43.1394 74.1311,43.1612 74.1904,43.1682 74.2426,43.1568 74.2884,43.1465 74.4718,43.0777 74.5105,43.0398 74.5649,42.9954 74.6418,42.948 74.677,42.9419 74.7239,42.9443 74.7608,42.9381 74.7893,42.9307 74.9627,42.8671 75.0795,42.8206 75.1388,42.8067 75.2132,42.805 75.4575,42.7862 75.4869,42.7799 75.5173,42.7694 75.5663,42.7587 75.6442,42.8046 75.6647,42.8366 75.6803,42.8705 75.6853,42.8871 75.6911,42.8902 75.7395,42.8969 75.798,42.8984 76.0097,42.8935 76.1343,42.8882 76.2189,42.8754 76.2716,42.8618 76.3179,42.8511 76.5105,42.8519 76.6272,42.8704 76.7124,42.9039 76.7419,42.93 76.874,42.9471 77.0314,42.919 77.051,42.9104 77.1011,42.8695 77.1611,42.868 77.2999,42.8723 77.4279,42.873 77.5612,42.8668 77.6142,42.8664 77.8365,42.8468 77.8574,42.8377 77.8848,42.8214 77.9895,42.809 78.012,42.8137 78.0441,42.8206 78.0722,42.8223 78.3432,42.8392 78.4075,42.8362 78.4278,42.831 78.561,42.7787 78.9218,42.7115 78.9473,42.717 79.0001,42.7385 79.0287,42.7445 79.0654,42.7492 79.096,42.7353 79.0925,42.7098 79.0881,42.6869 79.0899,42.6633 79.1053,42.6309 79.1232,42.6105 79.1548,42.5846 79.1869,42.5692 79.2146,42.5664 79.2504,42.5547 79.2779,42.5183 79.2966,42.4781 79.3137,42.4426 79.3339,42.4241 79.3597,42.4174 79.4001,42.4108 79.4317,42.407 79.4686,42.4055 79.5019,42.41 79.5732,42.4222 79.6027,42.4263 79.8089,42.3935 79.8459,42.3848 80.0048,42.2539 80.0448,42.2007 80.0618,42.176 80.0812,42.1614 80.1034,42.1531 80.123,42.1486 80.174,42.1683 80.1827,42.2046 80.1594,42.2701 80.1426,42.2868 80.1273,42.3156 80.0469,42.5844 80.061,42.6125 80.1313,42.7408 80.1465,42.7674 80.1704,42.7815 80.201,42.7793 80.2292,42.774 80.2577,42.7767 80.4604,42.8371 80.4627,42.8637 80.4388,42.8814 80.4097,42.8864 80.3784,42.8909 80.3305,42.9082 80.2765,42.9463 80.2724,42.9806 80.5034,43.0836 80.5428,43.0935 80.5661,43.0932 80.6003,43.0731 80.6312,43.0592 80.6623,43.0604 80.6913,43.076 80.7036,43.0994 80.703,43.1194 80.6656,43.2223 80.6271,43.4165 80.5692,43.504 80.5068,43.6165 80.4716,43.6868 80.4412,43.7637 80.4308,43.771 80.4172,43.7917 80.4056,43.8152 80.3964,43.8451 80.3883,43.8662 80.3234,43.9842 80.2567,44.064 80.2543,44.1052 80.2749,44.1486 80.2837,44.1814 80.2877,44.2111 80.2661,44.3075 80.2444,44.3739 80.2371,44.397 80.2726,44.5854 80.3998,44.6555 80.4032,44.6835 80.3237,44.7148 80.1695,44.7687 80.1497,44.7736 80.1172,44.773 80.0387,44.7583 79.9412,44.7448 79.9064,44.7431 79.8865,44.7483 79.762,44.8174 79.7593,44.8518 79.9648,44.9738 80.0014,44.9864 80.0276,44.9906 80.051,44.99 80.0809,44.9873 80.1491,44.9848 80.2886,44.9993 80.3136,45.0088 80.4125,45.0572 80.6308,45.0983 80.6532,45.1007 80.8041,45.099 80.8908,45.1171 81.0342,45.1546 81.1256,45.1831 81.283,45.2189 81.3377,45.2267 81.3724,45.2296 81.4173,45.2381 81.4425,45.2445 81.4688,45.2558 81.4915,45.2684 81.532,45.2903 81.5648,45.2981 81.5995,45.3005 81.6374,45.2937 81.6687,45.2698 81.6832,45.2544 81.6971,45.2214 81.6931,45.1681 81.7098,45.1448 81.8335,45.1062 81.8626,45.1027 81.8985,45.108 81.9288,45.1174 81.9572,45.1299 82.0081,45.1471 82.0534,45.1612 82.1097,45.1763 82.1559,45.1845 82.1819,45.1865 82.207,45.1826 82.233,45.1683 82.344,45.0875 82.3666,45.0762 82.3999,45.068 82.4301,45.0712 82.451,45.0817 82.4712,45.1014 82.4883,45.1279 82.5167,45.1818 82.5268,45.2148 82.5367,45.2565 82.5429,45.2938 82.5442,45.334 82.5399,45.3585 82.5305,45.3843 82.495,45.4044 82.4733,45.4122 82.4462,45.4182 82.41,45.4242 82.3702,45.4256 82.2944,45.433 82.2381,45.4476 82.2198,45.4588 82.2044,45.4777 82.1995,45.4931 82.2065,45.5313 82.2714,45.6631 82.298,45.71 82.33,45.7456 82.3485,45.7675 82.3647,45.7885 82.378,45.8114 82.3948,45.8498 82.4042,45.8803 82.4178,45.9316 82.4427,46.0227 82.4437,46.0561 82.4461,46.0846 82.4549,46.1152 82.4905,46.1776 82.5171,46.2114 82.5389,46.2332 82.555,46.2491 82.5759,46.2739 82.5922,46.3012 82.6405,46.4213 82.6804,46.5339 82.6901,46.5698 82.6986,46.5887 82.7249,46.6455 82.7564,46.7101 82.7809,46.7519 82.8115,46.7894 82.8348,46.8147 82.8536,46.84 82.8797,46.8767 82.8931,46.8998 82.9008,46.9218 82.9134,47.0306 82.9202,47.1109 82.9159,47.1468 82.9434,47.1659 83.0029,47.1707 83.0363,47.1708 83.0671,47.1628 83.0662,47.1579 83.1116,47.1303 83.1377,47.1227 83.1804,47.1185 83.2095,47.114 83.2361,47.1063 83.306,47.0818 83.3244,47.0702 83.3413,47.0568 83.4396,47.0098 83.4929,46.9949 83.5746,46.9833 83.6195,46.9759 83.6411,46.972 83.6618,46.967 83.6868,46.9584 83.7345,46.9375 83.7807,46.9235 83.811,46.9196 83.9661,46.9181 83.9914,46.9181 84.0236,46.9269 84.0599,46.9452 84.1036,46.9502 84.1748,46.954 84.1994,46.953 84.4739,46.9374 84.5319,46.9407 84.5577,46.94 84.5976,46.9251 84.6538,46.8822 84.6615,46.861 84.6534,46.8361 84.64,46.8133 84.6241,46.7799 84.6829,46.7743 84.842,46.8112 84.8559,46.8219 84.8638,46.8428 84.9026,46.8642 84.9431,46.8692 84.9615,46.8782 84.9766,46.8913 85.0475,46.9282 85.0707,46.9467 85.0841,46.9635 85.0976,46.9852 85.1456,46.9989 85.1771,46.997 85.2589,46.9976 85.4006,47.0053 85.4436,47.0831 85.5671,47.164 85.5791,47.2084 85.5806,47.3218 85.5597,47.3551 85.5171,47.3986 85.4993,47.419 85.4867,47.4453 85.4815,47.4679 85.4899,47.5075 85.5006,47.5432 85.4995,47.5667 85.4627,47.7094 85.4333,47.8066 85.4241,47.8356 85.414,47.8826 85.4218,47.915 85.4465,47.9414 85.4565,47.9616 85.4779,48.016 85.4825,48.037 85.4801,48.0697 85.4945,48.11 85.615,48.3009 85.6417,48.3381 85.6587,48.3506 85.6791,48.3585 85.7147,48.3654 85.7346,48.3681 85.7907,48.3735 85.906,48.3815 85.9734,48.3791 86.0139,48.3765 86.0367,48.373 86.0612,48.3714 86.1098,48.371 86.1721,48.4004 86.1824,48.4188 86.1972,48.4322 86.219,48.4399 86.2572,48.4442 86.2897,48.442 86.3125,48.4382 86.3427,48.4391 86.4724,48.4872 86.4794,48.5145 86.5123,48.5523 86.5287,48.5684 86.584,48.613 86.6327,48.6456 86.6526,48.6652 86.6812,48.768 86.6422,48.8295 86.6197,48.8547 86.608,48.8852 86.6045,48.9157 86.6441,48.9674 86.749,49.0541 86.9935,49.0748 87.048,49.076 87.0738,49.0669 87.1888,49.0414 87.2204,49.0364 87.2123,49.0449 87.197,49.0721 87.1861,49.1107 87.1773,49.1451 87.1377,49.1717 87.1153,49.1818 87.0824,49.1907 87.0406,49.1934 86.9843,49.194 86.9126,49.2156 86.7988,49.2965 86.7113,49.3979 86.7131,49.4259 86.7222,49.4563 86.6157,49.5072 86.5866,49.4967 86.5556,49.4952 86.5218,49.5033 86.4933,49.5262 86.4879,49.5492 86.5125,49.5762 86.5666,49.6159 86.6198,49.617 86.6663,49.641 86.6538,49.7268 86.5339,49.7453 86.4952,49.7417 86.4052,49.6706 86.3793,49.6316 86.3177,49.5889 86.2859,49.5742 86.2464,49.5635 86.2107,49.5597 86.1602,49.5288 86.1494,49.5077 86.123,49.4511 86.1026,49.432 86.0573,49.4201 85.8327,49.4815 85.6801,49.5073 85.6199,49.5229 85.5313,49.5516 85.4278,49.5383 85.4022,49.5341 85.3781,49.5335 85.3393,49.5408 85.2942,49.564 85.2297,49.5534 85.1985,49.5385 85.1698,49.526 85.1335,49.5359 85.0864,49.5931 85.0894,49.6427 85.0717,49.6763 84.9546,49.826 84.926,49.835 84.8633,49.8481 84.8483,49.8706 84.8532,49.9402 84.8734,49.9456 84.9292,49.9551 84.884,50.02 84.8554,50.0305 84.6834,50.0864 84.5685,50.1193 84.3939,50.159 84.2505,50.1547 84.1387,50.2148 84.0712,50.3912 84.0796,50.416 84.0969,50.4488 84.0413,50.5398 84.0195,50.5573 83.9986,50.5731 83.9786,50.5844 83.9136,50.613 83.8738,50.634 83.8469,50.6528 83.8385,50.6719 83.8503,50.7126 83.8498,50.7362 83.7116,50.8204 83.6789,50.8276 83.3406,50.9304 83.1227,50.9437 83.0111,50.9407 82.9763,50.8936 82.9663,50.873 82.9299,50.8484 82.8881,50.8326 82.7961,50.8335 82.7383,50.8382 82.7119,50.8463 82.6635,50.8593 82.6348,50.8519 82.5989,50.8312 82.597,50.7878 82.5955,50.7553 82.5768,50.7417 82.5464,50.7272 82.4212,50.6788 82.3945,50.6687 82.3735,50.6626 82.3555,50.6732 82.3221,50.6965 82.2312,50.7012 82.1551,50.6948 82.1217,50.668 82.0909,50.6555 82.0682,50.6518 82.0343,50.6516 81.9986,50.6559 81.9767,50.6616 81.947,50.6771 81.8899,50.7113 81.7907,50.7283 81.6913,50.7131 81.6069,50.6931 81.5545,50.6823 81.5143,50.6789 81.4711,50.6772 81.4582,50.6774 81.4142,50.6792 81.3399,50.6844 81.3154,50.7102 81.344,50.7575 81.3291,50.8191 81.2958,50.9078 81.2032,50.9105 81.1729,50.9108 81.1464,50.906 81.1258,50.8997 81.1037,50.8933 81.0643,50.8861 80.9508,50.8924 80.9578,50.9284 80.9712,50.9655 80.9845,50.9914 81.0127,51.0357 81.0287,51.0538 81.0407,51.0717 81.0531,51.1052 81.0548,51.1337 81.0095,51.1438 80.9702,51.1227 80.9161,51.1222 80.818,51.1602 80.7478,51.1998 80.6953,51.2167 80.6346,51.2361 80.581,51.2508 80.5606,51.2531 80.534,51.2289 80.5113,51.1925 80.514,51.1617 80.4851,51.1534 80.4592,51.1532 80.3648,51.1577 80.3202,51.1401 80.313,51.0522 80.3529,51.0246 80.3641,50.992 80.3647,50.9622 80.359,50.9367 80.3417,50.9075 80.3051,50.8857 80.2815,50.8737 80.2552,50.864 80.2212,50.8625 80.1616,50.8641 79.9696,50.7908 79.9452,50.7407 79.9675,50.726 79.9809,50.7057 79.96,50.6989 79.9373,50.7099 79.9137,50.7246 79.8948,50.7377 79.8669,50.7609 79.8515,50.786 79.8387,50.8149 79.6287,51.0843 79.6142,51.1015 79.5581,51.1736 79.4185,51.3822 79.3711,51.4397 79.2425,51.5861 79.2136,51.6092 79.1234,51.7228 78.7985,52.1158 78.6262,52.3117 78.5045,52.448 78.3426,52.6255 78.2851,52.6854 78.1705,52.7912 77.947,53.0135 77.9356,53.0326 77.9202,53.0642 77.8565,53.1328 77.8084,53.183 77.7881,53.2029 77.7638,53.2245 77.7384,53.244 77.6732,53.2836 77.6274,53.3111 77.4199,53.4317 77.3972,53.4441 77.2784,53.4993 77.1432,53.5633 76.909,53.6853 76.7875,53.7368 76.6549,53.7891 76.4158,53.9102 76.3955,53.9326 76.3787,53.9748 76.3443,54.021 76.3209,54.0469 76.2985,54.0673 76.2749,54.0934 76.3161,54.1085 76.3531,54.1093 76.3937,54.1076 76.4146,54.1057 76.4361,54.1016 76.4862,54.0791 76.5092,54.0742 76.5315,54.075 76.5716,54.0827 76.596,54.0919 76.6552,54.1444 76.6742,54.1643 76.7302,54.2377 76.7366,54.2766 76.6822,54.3842 76.5707,54.3805 76.5445,54.3601 76.5409,54.3338 76.5307,54.3066 76.3595,54.2621 76.2256,54.2772 76.1107,54.2954 76.0579,54.2322 76.0795,54.1958 75.7604,54.1118 75.5652,54.0471 75.4921,54.0354 75.4478,54.0341 75.3754,54.0521 75.2586,54.0042 75.3161,53.9476 75.332,53.931 75.2444,53.9079 75.0662,53.8206 74.91,53.744 74.8233,53.7758 74.6884,53.7816 74.6657,53.7735 74.5512,53.6973 74.5243,53.6256 74.4857,53.6261 74.3439,53.6308 74.3169,53.5475 74.3615,53.522 74.3074,53.4161 74.255,53.4093 74.1624,53.4649 74.1451,53.5035 74.1248,53.5397 73.9598,53.5695 73.796,53.5916 73.6543,53.5548 73.5558,53.5569 73.4783,53.5042 73.4614,53.4574 73.3172,53.3737 73.2505,53.4045 73.2901,53.4588 73.2613,53.4766 73.1556,53.5113 73.1338,53.5175 73.1184,53.5818 73.1397,53.6206 73.2081,53.6317 73.2353,53.7269 73.3216,53.8129 73.3868,53.8195 73.5316,53.8011 73.5896,53.8122 73.6155,53.9071 73.641,54.0025 73.5583,54.0232 73.4893,54.0143 73.4196,53.952 73.4225,53.9249 73.4238,53.8966 73.3727,53.8882 73.2694,53.8855 73.1694,53.8909 72.9483,53.9259 72.8783,53.9931 72.8719,54.053 72.8537,54.065 72.7443,54.0598 72.6083,54.0703 72.4867,54.0804 72.4455,54.057 72.4254,54.0394 72.4117,53.9962 72.444,53.9909 72.4775,53.9967 72.5439,53.9996 72.5816,53.961 72.5969,53.9377 72.607,53.9014 72.5688,53.8962 72.4302,53.8971 72.415,53.8842 72.3996,53.8716 72.3625,53.8491 72.3287,53.8499 72.2938,53.8597 72.2745,53.8663 72.2828,53.8942 72.3161,53.9714 72.3654,54.0504 72.3879,54.0794 72.2457,54.1131 72.2009,54.1226 72.223,54.1544 72.2391,54.1806 72.2234,54.2003 72.0757,54.3102 72.0475,54.3129 71.928,54.3165 71.9748,54.187 72.0282,54.1496 72.0488,54.1457 72.083,54.1327 72.0917,54.0929 72.0736,54.0752 72.0018,54.0699 71.9153,54.1542 71.8381,54.1844 71.7691,54.1946 71.6476,54.1917 71.6159,54.1559 71.6294,54.091 71.5967,54.0674 71.5344,54.0469 71.3818,54.0501 71.3761,54.0726 71.365,54.1231 71.217,54.1518 71.1607,54.0887 71.1389,54.063 71.0668,54.04 70.9958,54.1182 70.9484,54.1302 70.9605,54.1465 70.9561,54.2072 70.8785,54.2171 70.8775,54.2687 70.9431,54.2762 70.9672,54.2755 71.0058,54.2542 71.0942,54.2624 71.1019,54.3466 71.0758,54.4076 71.0527,54.4481 71.0453,54.5358 71.0777,54.5518 71.1096,54.5591 71.1436,54.5645 71.1688,54.5718 71.1645,54.5976 71.1581,54.6262 71.1064,54.6697 70.9844,54.6719 70.8921,54.7334 70.8481,54.8276 70.8544,54.9163 70.8674,54.9401 70.875,54.9597 70.8791,54.9909 70.8796,55.0146 70.8722,55.034 70.7087,55.1667 70.6867,55.1818 70.6877,55.2027 70.7186,55.2387 70.6804,55.2528 70.5531,55.2478 70.5285,55.2361 70.4982,55.2201 70.4661,55.2126 70.4298,55.2128 70.3963,55.2201 70.3491,55.2317 70.301,55.1962 70.1675,55.1222 70.1435,55.0997 70.1188,55.0742 70.0493,55.0956 69.9281,55.1421 69.8294,55.1391 69.761,55.1982 69.726,55.23 69.5528,55.2893 69.3465,55.2997 69.2321,55.3292 69.1136,55.2675 69.0667,55.2786 69.0509,55.3283 68.9503,55.3564 68.8287,55.3773 68.8074,55.361 68.8242,55.3033 68.8497,55.2989 68.8786,55.2866 68.8887,55.2486 68.885,55.226 68.8558,55.2187 68.8211,55.2207 68.7897,55.2527 68.768,55.2743 68.7366,55.2852 68.6527,55.3004 68.6184,55.3044 68.6052,55.303 68.5227,55.1533 68.5041,55.1361 68.3827,55.1257 68.3592,55.1274 68.1874,55.1404 68.1509,55.1351 68.1034,55.1222 68.0828,55.1136 68.0998,55.0676 68.1309,55.0384 68.1762,55.0303 68.208,55.0223 68.2116,55.002 68.0893,54.9033 67.9387,54.8863 67.9099,54.8872 67.8277,54.9139 67.7817,54.9139 67.7187,54.899 67.6927,54.8765 67.6756,54.8533 67.6427,54.8254 67.5677,54.8099 67.466,54.7904 67.4455,54.7897 67.2772,54.7884 67.2465,54.7994 67.2129,54.8036 67.1888,54.7977 67.173,54.7855 67.15,54.7586 67.1347,54.744 66.9181,54.7118 66.8365,54.709 66.7627,54.7082 66.7045,54.7038 66.6677,54.6935 66.637,54.6702 66.6094,54.6627 66.5794,54.6616 66.5123,54.6637 66.4699,54.6632 66.4105,54.6611 66.3823,54.6588 66.3563,54.6547 66.3243,54.6463 66.2927,54.6381 66.2096,54.6203 66.1595,54.6096 66.1082,54.5998 65.9963,54.581 65.9799,54.5753 65.8741,54.5638 65.869,54.6012 65.8593,54.6447 65.7355,54.6208 65.7043,54.5838 65.6836,54.5573 65.6657,54.5431 65.6414,54.5371 65.6142,54.5389 65.5732,54.5512 65.5454,54.5571 65.4454,54.5734 65.4124,54.5767 65.3911,54.5765 65.3611,54.5666 65.2367,54.5041 65.1106,54.4665 65.091,54.401 65.106,54.3418 65.1216,54.313 65.1305,54.281 65.1156,54.2606 65.0107,54.2492 64.9905,54.2553 64.9512,54.2838 64.9265,54.3069 64.9056,54.322 64.8849,54.3342 64.8578,54.3434 64.8067,54.3445 64.7755,54.3359 64.7149,54.3085 64.6547,54.2823 64.623,54.278 64.4304,54.3002 64.3033,54.2781 64.2746,54.2755 64.2543,54.2759 64.2332,54.2784 64.2114,54.2835 64.1864,54.2836 64.1332,54.2676 63.978,54.2549 63.8881,54.2477 63.8707,54.2293 63.8835,54.2079 63.9111,54.1807 63.8706,54.151 63.7868,54.1378 63.7262,54.1683 63.6992,54.1807 63.6528,54.1942 63.6111,54.1947 63.5802,54.1856 63.436,54.1434 63.3036,54.1104 63.2704,54.1059 63.244,54.1088 63.22,54.1193 63.1094,54.124 63.0868,54.1243 63.0581,54.1213 63.0327,54.1046 63.0444,54.0725 63.0397,54.0499 63.0049,54.0324 62.8144,54.0229 62.7927,54.0242 62.6252,54.0232 62.574,54.0206 62.5369,54.012 62.4733,53.9806 62.4645,53.8898 62.4682,53.8307 62.4297,53.8189 62.322,53.8737 62.3006,53.8983 62.2545,53.9598 61.9929,53.9662 61.9504,53.9649 61.9218,53.9617 61.923,53.9249 61.9232,53.8767 61.7492,53.8978 61.6873,53.9412 61.5399,53.9389 61.4863,53.9352 61.3846,53.9523 61.3533,53.9943 61.3182,54.0036 61.2242,54.0059 61.1139,53.9628 61.0119,53.9005 60.9892,53.9008 60.9342,53.8926 60.9079,53.8806 60.8924,53.8564 60.8989,53.8299 60.9353,53.8235 60.9976,53.8228 61.0208,53.8189 61.1257,53.7678 61.1221,53.7441 60.9501,53.5796 60.9069,53.578 60.8807,53.5951 60.8466,53.6015 60.8113,53.5974 60.806,53.5597 60.8507,53.5556 60.9263,53.5575 60.9731,53.5563 61.0028,53.5511 61.0824,53.5069 61.1281,53.5007 61.1825,53.4987 61.2241,53.4932 61.2645,53.5135 61.287,53.5281 61.3186,53.5325 61.369,53.5323 61.438,53.531 61.474,53.4579 61.3383,53.3838 61.3046,53.3823 61.2769,53.3939 61.2486,53.4181 61.2109,53.4405 61.1867,53.4428 61.1456,53.4456 61.0537,53.3062 61.068,53.2615 61.0852,53.2444 61.1128,53.2265 61.1362,53.2189 61.175,53.2169 61.2217,53.218 61.2527,53.2177 61.2817,53.2135 61.3119,53.2038 61.3361,53.1897 61.3595,53.1767 61.3795,53.1676 61.4098,53.1579 61.4383,53.1537 61.46,53.1537 61.4824,53.1569 61.5066,53.1666 61.6312,53.1446 61.6532,53.1302 61.6808,53.1188 61.7211,53.1078 61.7567,53.1005 61.8973,53.078 61.9461,53.0716 61.977,53.0684 62.0076,53.0599 62.0436,53.0143 62.0318,52.9772 62.0137,52.9341 61.9985,52.9153 61.8551,52.8778 61.8026,52.9051 61.7654,52.9235 61.5963,52.9212 61.3962,52.9605 61.3731,52.9666 61.349,52.9667 61.3279,52.959 61.304,52.942 61.2851,52.9327 61.256,52.9304 61.2013,52.9332 61.1733,52.9416 61.1555,52.9518 61.1361,52.9576 61.1046,52.9602 61.0719,52.9526 61.0005,52.9198 60.9824,52.8683 60.915,52.8224 60.7862,52.7614 60.6345,52.6885 60.6094,52.6649 60.6002,52.6465 60.5985,52.6154 60.6428,52.5752 60.6682,52.5729 60.7282,52.5751 60.7387,52.5381 60.7385,52.4758 60.8738,52.4339 60.882,52.352 60.9493,52.296 60.9633,52.2801 60.8386,52.2092 60.8061,52.1939 60.7531,52.1789 60.7149,52.1695 60.6819,52.1555 60.6514,52.1187 60.6261,52.0995 60.5884,52.0886 60.5463,52.0877 60.5069,52.0924 60.4432,52.0989 60.3954,52.095 60.3652,52.0842 60.3012,52.0458 60.1287,51.939 59.9313,51.9404 59.9145,51.9187 59.9093,51.8952 59.9145,51.8875 17,-9.0,United States -133.2176,55.3348 -133.2156,55.3067 -133.273,55.2834 -133.3298,55.2491 -133.3656,55.1704 -133.377,55.1674 -133.4143,55.1939 -133.4233,55.2021 -133.4542,55.2434 -133.4211,55.3067 -133.4075,55.3175 -133.3564,55.3518 -133.3421,55.3557 -133.3316,55.3547 -133.2169,55.3452 -133.2176,55.3348 -133.2176,55.3348 21,-9.0,United States -131.5919,55.3473 -131.5204,55.3044 -131.4512,55.2655 -131.4217,55.2471 -131.4052,55.2358 -131.3953,55.2276 -131.3902,55.2116 -131.4963,55.0717 -131.5118,55.0707 -131.5822,55.1178 -131.5889,55.1271 -131.5927,55.1368 -131.5962,55.1465 -131.6134,55.2018 -131.6218,55.2308 -131.6312,55.2943 -131.6244,55.3456 -131.6143,55.3553 -131.6002,55.354 -131.5919,55.3473 -131.5919,55.3473 32,-9.0,United States -160.4186,55.3347 -160.3843,55.3218 -160.277,55.3251 -160.2671,55.3205 -160.2594,55.31 -160.2558,55.2965 -160.2574,55.2852 -160.2647,55.2763 -160.2912,55.2662 -160.3052,55.2544 -160.3085,55.2405 -160.2978,55.1656 -160.2845,55.1608 -160.2468,55.1578 -160.236,55.1536 -160.1888,55.1218 -160.2312,55.1003 -160.2722,55.0878 -160.3533,55.0851 -160.4037,55.099 -160.5258,55.0604 -160.5384,55.0531 -160.5486,55.072 -160.5747,55.139 -160.5809,55.2005 -160.5695,55.2673 -160.5237,55.311 -160.5136,55.3191 -160.4983,55.3246 -160.4494,55.3414 -160.4186,55.3347 -160.4186,55.3347 653,0.0,Ireland -7.2398,55.0059 -7.3136,54.9805 -7.3934,54.889 -7.4309,54.8181 -7.445,54.7935 -7.4697,54.7656 -7.5402,54.6986 -7.7258,54.6466 -7.8124,54.6702 -7.8296,54.6696 -7.9127,54.6364 -7.9004,54.6072 -7.8927,54.6003 -7.839,54.5701 -7.7642,54.5629 -7.7389,54.5305 -7.82,54.4902 -7.9372,54.4686 -8.0333,54.4433 -8.1576,54.4003 -8.1441,54.3767 -8.0519,54.3091 -8.0419,54.303 -8.0316,54.2978 -8.0167,54.2936 -7.9279,54.236 -7.8867,54.2308 -7.8623,54.2214 -7.8561,54.1898 -7.8548,54.1643 -7.8485,54.1548 -7.838,54.1488 -7.8048,54.1358 -7.7348,54.1371 -7.6865,54.1393 -7.6121,54.1005 -7.609,54.0841 -7.5972,54.0791 -7.5468,54.0637 -7.3177,54.0497 -7.3008,54.0494 -7.2716,54.0604 -7.1336,54.1618 -7.1314,54.193 -7.1635,54.2259 -7.1488,54.2733 -7.0463,54.3463 -7.0173,54.3534 -6.9626,54.3381 -6.9149,54.3157 -6.9055,54.3102 -6.8613,54.2785 -6.8395,54.2262 -6.7233,54.1203 -6.6443,54.0021 -6.6174,53.9792 -6.6087,53.9742 -6.5969,53.9791 -6.5562,53.9875 -6.4367,53.9952 -6.3543,54.0409 -6.3427,54.0512 -6.328,54.0524 -6.2779,54.0455 -6.2608,54.041 -6.2564,54.0365 -6.2598,54.0323 -6.2303,54.0114 -6.16,53.974 -6.1477,53.9675 -6.1347,53.9655 -6.1207,53.9673 -6.0958,53.9302 -6.1106,53.9199 -6.1275,53.9119 -6.1414,53.9092 -6.1519,53.9098 -6.2174,53.9248 -6.2779,53.9415 -6.3014,53.9464 -6.3197,53.9499 -6.3365,53.9511 -6.3464,53.9478 -6.3706,53.8885 -6.3693,53.8502 -6.363,53.8368 -6.3515,53.825 -6.3377,53.8158 -6.3263,53.8091 -6.315,53.8063 -6.2791,53.8011 -6.2444,53.7707 -6.2293,53.72 -6.2364,53.6916 -6.2406,53.6612 -6.2308,53.6184 -6.2261,53.6088 -6.2037,53.5728 -6.1364,53.5269 -6.1136,53.5235 -6.0912,53.5207 -6.0709,53.5012 -6.0669,53.4818 -6.0681,53.4619 -6.1396,53.3238 -6.1488,53.3205 -6.2142,53.2906 -6.2106,53.2799 -6.1699,53.2454 -6.1004,53.1906 -6.0248,53.048 -6.0033,52.8834 -6.0595,52.8042 -6.0976,52.7786 -6.1088,52.7691 -6.1273,52.7404 -6.1369,52.7221 -6.1404,52.7048 -6.1377,52.6771 -6.1837,52.6312 -6.206,52.6028 -6.2121,52.5821 -6.2127,52.5688 -6.2082,52.5543 -6.1999,52.5435 -6.1912,52.5194 -6.1902,52.4986 -6.1932,52.4866 -6.2009,52.4772 -6.2202,52.4561 -6.2345,52.4419 -6.3517,52.3319 -6.4528,52.3162 -6.4647,52.3136 -6.4878,52.2933 -6.3997,52.2241 -6.3715,52.2166 -6.3216,52.1893 -6.3103,52.1782 -6.3172,52.1618 -6.3493,52.1185 -6.3593,52.1159 -6.3765,52.1164 -6.3892,52.1204 -6.4561,52.1326 -6.612,52.1316 -6.7785,52.1564 -6.8074,52.1265 -6.8197,52.1104 -6.8597,52.1026 -6.8916,52.1058 -6.9034,52.1457 -6.9681,52.2159 -6.9859,52.2176 -6.9841,52.209 -6.9775,52.2033 -6.9625,52.1728 -6.9593,52.1613 -6.9631,52.1075 -6.9907,52.0779 -7.0252,52.0721 -7.0939,52.0714 -7.1486,52.0897 -7.3572,52.0736 -7.4229,52.0657 -7.5667,52.0398 -7.6079,52.0045 -7.5896,52.0028 -7.5552,51.9989 -7.5343,51.9913 -7.5747,51.933 -7.7005,51.8785 -7.7131,51.8775 -7.8025,51.8821 -7.8152,51.886 -7.8388,51.9165 -7.8388,51.9009 -7.8402,51.8841 -7.8765,51.8302 -8.0056,51.7748 -8.0737,51.7509 -8.1564,51.7318 -8.2201,51.7356 -8.229,51.7468 -8.2115,51.7725 -8.1938,51.7766 -8.1655,51.7916 -8.1973,51.8243 -8.2735,51.8291 -8.3524,51.8319 -8.371,51.8323 -8.4087,51.8213 -8.386,51.8152 -8.3585,51.8161 -8.3444,51.8152 -8.3302,51.8128 -8.3214,51.8069 -8.2911,51.7602 -8.2838,51.7424 -8.2839,51.7007 -8.2977,51.6818 -8.3311,51.6611 -8.4044,51.6463 -8.5106,51.6055 -8.528,51.5885 -8.5439,51.5742 -8.6828,51.5134 -8.7236,51.5162 -8.8686,51.5075 -8.9696,51.5 -9.0978,51.4884 -9.1492,51.458 -9.2157,51.4229 -9.3381,51.4108 -9.3518,51.41 -9.3637,51.4113 -9.44,51.471 -9.623,51.4496 -9.6882,51.4092 -9.6969,51.404 -9.7529,51.3923 -9.7873,51.387 -9.8021,51.386 -9.8014,51.4136 -9.7855,51.4305 -9.7595,51.4421 -9.7014,51.4659 -9.6874,51.4699 -9.6599,51.48 -9.6364,51.4903 -9.5789,51.53 -9.5769,51.5501 -9.6658,51.5204 -9.77,51.4888 -9.7898,51.4831 -9.8173,51.4805 -9.8283,51.4858 -9.7638,51.5241 -9.7298,51.5396 -9.5948,51.5831 -9.5356,51.5985 -9.5103,51.6011 -9.4999,51.6036 -9.4557,51.6167 -9.4463,51.6208 -9.436,51.6296 -9.4271,51.653 -9.4366,51.6647 -9.5205,51.6901 -9.5349,51.6585 -9.6132,51.6276 -9.6488,51.6197 -9.7622,51.5979 -9.7909,51.5942 -9.9166,51.5645 -9.9308,51.5542 -10.0101,51.5354 -10.0245,51.5333 -10.1165,51.5335 -10.1141,51.5524 -10.0446,51.5839 -9.9723,51.6178 -9.9649,51.6483 -9.9799,51.6546 -9.9585,51.6703 -9.8897,51.6977 -9.761,51.7406 -9.5772,51.8044 -9.5658,51.8124 -9.6271,51.8092 -9.6728,51.8008 -9.6945,51.7962 -9.9233,51.7394 -10.0355,51.7113 -10.0861,51.6921 -10.1665,51.7257 -10.1577,51.7563 -10.1617,51.7656 -10.1913,51.7872 -10.2144,51.7855 -10.2307,51.7797 -10.3224,51.723 -10.3375,51.7827 -10.3555,51.8189 -10.2473,51.9278 -10.2332,51.9327 -10.1077,51.965 -10.0856,51.9705 -10.0749,51.9728 -10.041,51.9781 -9.9709,51.9895 -9.7855,52.0623 -9.7447,52.0889 -9.7959,52.0921 -9.8284,52.0915 -9.8569,52.0908 -9.8708,52.0902 -9.9267,52.0842 -10.009,52.0756 -10.0379,52.0707 -10.077,52.063 -10.1683,52.0469 -10.2587,52.048 -10.3135,52.0529 -10.3495,52.0513 -10.3652,52.0434 -10.4282,52.0326 -10.4511,52.0442 -10.457,52.0687 -10.458,52.0851 -10.4467,52.1198 -10.3432,52.169 -10.2484,52.207 -10.2342,52.2108 -10.188,52.2204 -10.1456,52.2252 -10.141,52.2115 -9.9329,52.1699 -9.9044,52.1693 -9.868,52.1694 -9.7292,52.1865 -9.7537,52.2036 -9.7688,52.2043 -9.8201,52.2259 -9.8239,52.3188 -9.7471,52.382 -9.6645,52.4516 -9.659,52.4854 -9.6381,52.4998 -9.6133,52.5081 -9.6012,52.5096 -9.3488,52.5163 -9.3424,52.508 -9.3167,52.5099 -9.2076,52.5239 -8.9694,52.5694 -8.8041,52.6045 -8.8344,52.6288 -8.9324,52.6623 -9.0134,52.6694 -9.0185,52.658 -9.0507,52.6275 -9.076,52.6058 -9.1144,52.5741 -9.1366,52.5597 -9.152,52.5555 -9.165,52.5548 -9.2268,52.552 -9.4654,52.5556 -9.5385,52.5769 -9.6823,52.5389 -9.689,52.5278 -9.6897,52.5162 -9.7793,52.4997 -9.8703,52.4893 -9.8841,52.4891 -9.9165,52.4943 -9.8973,52.5105 -9.8322,52.5279 -9.8056,52.5296 -9.796,52.5327 -9.7155,52.58 -9.5494,52.6845 -9.4706,52.7393 -9.3903,52.8249 -9.3794,52.8652 -9.453,52.8678 -9.4586,52.877 -9.2657,53.0777 -9.2483,53.0878 -9.2383,53.0877 -9.2165,53.0813 -9.182,53.0655 -9.1587,53.0521 -9.1392,53.045 -9.0547,53.0554 -8.9866,53.0836 -9.0247,53.103 -8.965,53.0968 -8.9234,53.0797 -8.9264,53.2022 -8.9456,53.2052 -9.0216,53.2095 -9.0358,53.2068 -9.0854,53.1962 -9.1528,53.1862 -9.1871,53.1844 -9.2146,53.1836 -9.2846,53.1826 -9.4268,53.1715 -9.462,53.1627 -9.482,53.1612 -9.5923,53.1701 -9.6051,53.1768 -9.609,53.1874 -9.5945,53.2371 -9.5648,53.2578 -9.5412,53.2751 -9.5432,53.319 -9.6356,53.3237 -9.6478,53.3194 -9.6855,53.2962 -9.6927,53.2775 -9.7262,53.2488 -9.7672,53.2324 -9.8874,53.2567 -9.8689,53.29 -9.8272,53.3063 -9.8027,53.309 -9.7884,53.315 -9.7706,53.3309 -9.7853,53.3531 -9.7972,53.3548 -9.8652,53.3468 -9.9068,53.3259 -9.9463,53.3098 -9.9966,53.3163 -10.1598,53.3475 -10.1833,53.48 -10.1692,53.4877 -10.0194,53.5381 -9.9808,53.5434 -9.8597,53.5482 -9.7833,53.5337 -9.7687,53.5318 -9.683,53.5354 -9.6812,53.5399 -9.7477,53.5393 -9.763,53.54 -9.7833,53.5424 -9.8033,53.5484 -9.8463,53.5648 -9.8952,53.5856 -9.9081,53.6286 -9.8899,53.6957 -9.8806,53.6999 -9.8326,53.707 -9.6679,53.7213 -9.6122,53.7181 -9.5941,53.716 -9.5718,53.7218 -9.5522,53.7323 -9.5536,53.7366 -9.5691,53.7386 -9.6025,53.7507 -9.5961,53.7735 -9.5857,53.7784 -9.5733,53.7801 -9.5621,53.783 -9.5453,53.797 -9.5511,53.8299 -9.6812,53.8336 -9.7091,53.8328 -9.7513,53.8312 -9.7607,53.8278 -9.7725,53.8186 -9.8013,53.8084 -9.8247,53.8039 -9.8802,53.7956 -9.8936,53.7948 -9.9242,53.8049 -9.8939,53.8874 -9.8797,53.8907 -9.8463,53.8884 -9.7951,53.8736 -9.7952,53.8618 -9.783,53.8481 -9.7684,53.8542 -9.7731,53.8825 -9.8125,53.9168 -9.8367,53.9352 -9.9191,53.9977 -9.9217,54.0478 -9.9097,54.0605 -9.9329,54.1177 -9.9965,54.1548 -10.0667,54.0852 -10.0548,54.0625 -10.0488,54.0281 -10.0654,54.0231 -10.0887,54.0255 -10.107,54.0333 -10.1117,54.0489 -10.095,54.1667 -10.0646,54.194 -10.0472,54.206 -9.9847,54.2376 -9.8682,54.1961 -9.8774,54.1823 -9.8889,54.1702 -9.9101,54.1576 -9.9296,54.1551 -9.9438,54.1603 -9.9524,54.1688 -9.9648,54.1679 -9.96,54.1526 -9.9455,54.1471 -9.9033,54.1435 -9.8756,54.1456 -9.8542,54.162 -9.8351,54.206 -9.8306,54.2539 -9.8243,54.2631 -9.7833,54.2709 -9.7364,54.265 -9.724,54.2622 -9.5711,54.2491 -9.4814,54.2496 -9.3205,54.2536 -9.25,54.2339 -9.195,54.2097 -9.1823,54.1736 -9.1351,54.1145 -9.1165,54.0965 -9.1196,54.1085 -9.116,54.1376 -9.0431,54.2173 -9.0292,54.2229 -9.0109,54.2234 -8.9183,54.2197 -8.9011,54.216 -8.7339,54.1998 -8.6054,54.194 -8.4606,54.21 -8.5009,54.2607 -8.515,54.2657 -8.5731,54.2762 -8.5899,54.2744 -8.6121,54.2695 -8.6326,54.2677 -8.6535,54.2802 -8.6468,54.2919 -8.6364,54.2985 -8.4199,54.3838 -8.3812,54.3984 -8.3667,54.4034 -8.334,54.4064 -8.2702,54.4098 -8.2531,54.4581 -8.1872,54.5092 -8.156,54.5276 -8.1742,54.5698 -8.3761,54.5604 -8.5449,54.5495 -8.5699,54.5457 -8.6118,54.5538 -8.6651,54.5641 -8.6877,54.5782 -8.7336,54.5839 -8.7749,54.5947 -8.7832,54.6319 -8.7248,54.6634 -8.6542,54.6955 -8.6061,54.7059 -8.5153,54.7206 -8.4762,54.7296 -8.3541,54.7676 -8.3395,54.7754 -8.3011,54.8094 -8.323,54.8379 -8.3345,54.841 -8.3573,54.8389 -8.3682,54.8322 -8.3684,54.8171 -8.3824,54.8187 -8.4227,54.8327 -8.443,54.8531 -8.4449,54.8741 -8.3856,54.869 -8.3705,54.8777 -8.3883,54.8884 -8.4125,54.9024 -8.4425,54.9323 -8.303,55.044 -8.1673,55.0772 -8.0081,55.1167 -7.9676,55.1516 -7.9319,55.1316 -7.8859,55.1129 -7.859,55.1342 -7.8454,55.157 -7.7801,55.178 -7.7827,55.1552 -7.8008,55.1383 -7.7971,55.1114 -7.7572,55.1187 -7.6986,55.094 -7.6895,55.0808 -7.6833,55.0642 -7.6888,55.0459 -7.6862,55.0304 -7.6541,55.0793 -7.6633,55.1029 -7.6885,55.1516 -7.7004,55.1552 -7.7075,55.1473 -7.7077,55.1298 -7.7001,55.1075 -7.7243,55.1141 -7.7401,55.125 -7.7745,55.1364 -7.7782,55.1472 -7.7514,55.1658 -7.7233,55.1809 -7.6853,55.1967 -7.6567,55.2068 -7.6442,55.2095 -7.6192,55.2006 -7.5137,55.0594 -7.5132,55.0472 -7.5175,55.0312 -7.5285,55.0212 -7.5504,55.0184 -7.5617,55.0107 -7.5853,54.9962 -7.6036,54.9892 -7.6233,54.9737 -7.6689,54.8864 -7.6501,54.8894 -7.631,54.8969 -7.595,54.918 -7.5628,54.9406 -7.5504,54.9479 -7.5064,54.9646 -7.4936,54.9684 -7.4649,54.9749 -7.4583,54.9751 -7.4434,54.9802 -7.4334,54.9909 -7.4421,55.067 -7.5018,55.1148 -7.5121,55.1213 -7.5357,55.1371 -7.5343,55.152 -7.4988,55.2094 -7.3785,55.2251 -7.3414,55.2686 -7.3836,55.3133 -7.3639,55.3149 -7.228,55.2867 -7.1741,55.2664 -7.0395,55.2068 -6.944,55.1844 -6.9231,55.1736 -6.9236,55.1548 -6.9415,55.1468 -7.0549,55.1094 -7.1316,55.086 -7.1466,55.081 -7.171,55.0669 -7.185,55.0565 -7.2398,55.0059 -7.2398,55.0059 13,-9.0,United States -160.0521,55.2849 -160.0422,55.2244 -160.0452,55.2138 -160.053,55.193 -160.06,55.1809 -160.2072,55.2248 -160.2323,55.2376 -160.249,55.2512 -160.222,55.2841 -160.0706,55.3034 -160.0516,55.2915 -160.0521,55.2849 -160.0521,55.2849 49,12.0,Russia 165.9604,55.2644 165.979,55.2431 165.9679,55.2101 165.9574,55.2054 165.9463,55.1974 165.9372,55.1819 165.9377,55.1679 165.9545,55.1016 165.9637,55.0823 165.9799,55.0628 166.1033,54.9379 166.1688,54.8902 166.1777,54.8855 166.1962,54.8772 166.2533,54.8532 166.2632,54.8494 166.2995,54.8276 166.3308,54.8054 166.3544,54.7859 166.3615,54.779 166.3855,54.6726 166.3812,54.6137 166.2865,54.66 166.2007,54.726 166.0922,54.7557 166.0739,54.7649 166.0579,54.7767 165.8914,54.904 165.7893,54.9949 165.7883,55.0079 165.7985,55.0193 165.7984,55.0402 165.7642,55.0858 165.7042,55.1504 165.6761,55.1632 165.6172,55.186 165.5532,55.1992 165.5468,55.2384 165.6355,55.2916 165.6459,55.2961 165.6592,55.2977 165.6704,55.2966 165.7901,55.2739 165.8334,55.2635 165.8877,55.2532 165.9126,55.2534 165.9254,55.2546 165.9604,55.2644 165.9604,55.2644 18,-9.0,United States -133.067,55.2656 -133.0019,55.2001 -132.9946,55.1857 -133.0127,55.1504 -133.0211,55.144 -133.0942,55.1299 -133.1878,55.1337 -133.1985,55.1387 -133.2071,55.147 -133.2131,55.1561 -133.2177,55.1685 -133.2213,55.1873 -133.2077,55.2398 -133.1995,55.246 -133.0976,55.2701 -133.0825,55.2698 -133.067,55.2656 -133.067,55.2656 26,2.0,Denmark 15.0167,54.9301 14.917,54.9487 14.8565,54.9645 14.7219,55.0006 14.7042,55.008 14.6536,55.0362 14.6736,55.1499 14.7199,55.2288 14.7407,55.2402 14.7766,55.2141 14.7873,55.2041 14.7971,55.194 14.8133,55.1856 14.8619,55.1643 14.9717,55.1222 15.0434,55.0963 15.0652,55.0902 15.0972,55.0839 15.1119,55.0766 15.1228,55.0645 15.1235,55.0212 15.0794,54.9585 15.0511,54.9366 15.0307,54.9314 15.0167,54.9301 15.0167,54.9301 36,-9.0,United States -159.5966,55.2128 -159.5876,55.1956 -159.5821,55.1838 -159.5528,55.1119 -159.5669,55.0713 -159.6064,55.034 -159.6169,55.0328 -159.7338,54.9782 -159.8479,54.9069 -159.8993,54.8669 -159.9063,54.8578 -159.924,54.8292 -159.9287,54.8103 -159.9427,54.806 -159.9517,54.8111 -159.9708,54.8369 -159.9719,54.8558 -159.9605,54.8674 -159.8967,54.9044 -159.8492,54.9509 -159.8639,54.9831 -159.8877,55.0025 -159.9191,55.0483 -159.843,55.0903 -159.8272,55.09 -159.7997,55.0781 -159.7924,55.0675 -159.786,55.0529 -159.7354,55.0409 -159.675,55.104 -159.6623,55.1432 -159.6615,55.1693 -159.6451,55.1934 -159.6072,55.2259 -159.5966,55.2128 -159.5966,55.2128 132,2.0,Russia 20.949,55.2113 20.8725,55.1632 20.8477,55.1319 20.8074,55.0846 20.6729,54.9993 20.6371,54.9786 20.5957,54.9566 20.5486,54.9358 20.4968,54.9001 20.5256,54.8748 20.5512,54.8755 20.6197,54.8783 20.7199,54.8788 20.7579,54.8755 20.8295,54.8381 20.9485,54.8283 21.0572,54.8313 21.1863,54.8677 21.2088,54.8905 21.1918,54.9236 21.1805,54.954 21.1546,55.0841 21.1912,55.1346 21.226,55.1374 21.2379,55.1623 21.2274,55.1839 21.2384,55.1854 21.2638,55.1939 21.2911,55.2056 21.3341,55.2218 21.3947,55.1868 21.5274,55.1322 21.6104,55.1167 21.6856,55.0737 22.0222,54.9641 22.0654,54.965 22.085,54.9743 22.101,54.9879 22.153,54.9962 22.2202,55.0018 22.2417,55.0026 22.4745,54.9986 22.5643,54.9802 22.6068,54.9001 22.6434,54.894 22.6812,54.8982 22.7998,54.8351 22.8126,54.8173 22.8259,54.7743 22.8281,54.7481 22.8017,54.7136 22.775,54.7077 22.7069,54.6533 22.6815,54.6293 22.6567,54.4658 22.6532,54.4298 22.6603,54.4007 22.6722,54.3803 22.6979,54.36 22.738,54.3132 22.7475,54.3001 22.7285,54.296 22.6262,54.2874 22.5919,54.2852 22.4179,54.2819 22.3921,54.2822 22.259,54.2762 22.2281,54.2747 22.128,54.2715 21.9451,54.2693 21.8188,54.268 21.6949,54.2673 21.5895,54.2661 21.5414,54.2648 21.5342,54.2649 21.488,54.2635 21.4068,54.2622 21.376,54.2624 21.3314,54.2637 21.248,54.2663 21.1963,54.2694 21.1463,54.2727 21.0909,54.2782 20.8631,54.2926 20.7041,54.2945 20.3987,54.3179 20.3374,54.324 20.295,54.3302 20.2673,54.3341 20.1246,54.3485 20.0567,54.3549 19.9706,54.3556 19.8242,54.3663 19.7636,54.3739 19.7889,54.4027 20.0023,54.5 20.0684,54.5104 20.183,54.5395 20.2112,54.548 20.3628,54.6112 20.1595,54.6329 19.9756,54.6558 19.9476,54.6414 19.9274,54.6287 19.9105,54.5952 19.9206,54.5767 19.8959,54.566 19.8673,54.5646 19.8391,54.5765 19.8654,54.625 19.8893,54.6484 19.9253,54.7005 19.9258,54.7346 19.9057,54.7727 19.8898,54.7969 19.8929,54.835 19.907,54.8636 19.9561,54.893 19.9962,54.882 20.3272,54.8777 20.3878,54.8831 20.5135,54.9319 20.5695,54.9591 20.5899,54.97 20.6373,54.9977 20.6616,55.0136 20.792,55.1197 20.8586,55.178 20.8996,55.2143 20.907,55.2222 20.949,55.2113 20.949,55.2113 26,-9.0,United States -131.2414,55.1709 -131.2392,55.1671 -131.2262,55.1573 -131.1957,55.1447 -131.1827,55.1438 -131.1618,55.1463 -131.1477,55.1318 -131.1234,55.0543 -131.119,54.9949 -131.1297,54.971 -131.1498,54.9472 -131.1609,54.9435 -131.3533,54.9271 -131.3683,54.9296 -131.3937,54.9487 -131.3965,54.9619 -131.3523,55.0188 -131.3411,55.106 -131.3576,55.1509 -131.359,55.1644 -131.3556,55.1895 -131.3199,55.2022 -131.2944,55.1986 -131.244,55.1833 -131.2414,55.1709 -131.2414,55.1709 29,-9.0,United States -132.8736,55.1804 -132.8425,55.1346 -132.7644,55.0581 -132.7636,55.0306 -132.7758,55.023 -132.7705,54.9946 -132.6713,54.8461 -132.644,54.8328 -132.6257,54.8283 -132.6117,54.8259 -132.5285,54.7582 -132.497,54.7205 -132.4606,54.6547 -132.4426,54.6153 -132.4546,54.6021 -132.6148,54.6266 -132.6378,54.6621 -132.709,54.7407 -132.746,54.7612 -132.7579,54.7646 -132.7776,54.7804 -132.8944,54.8751 -132.969,54.9818 -132.9854,55.0274 -132.9676,55.1624 -132.9594,55.1685 -132.8847,55.1867 -132.8736,55.1804 -132.8736,55.1804 11,-9.0,United States -159.2422,55.1732 -159.2311,55.1072 -159.2335,55.0842 -159.2463,54.9993 -159.3751,54.9752 -159.382,54.9917 -159.3793,55.0608 -159.2637,55.1807 -159.2479,55.1806 -159.2422,55.1732 -159.2422,55.1732 173,1.0,United Kingdom -7.2398,55.0059 -7.2404,54.9823 -7.0826,54.9722 -7.0564,54.9744 -7.0391,54.9823 -7.017,54.9974 -7.0077,55.0057 -6.982,55.0455 -6.9546,55.0912 -6.8778,55.103 -6.8128,55.103 -6.7187,55.1152 -6.6017,55.1424 -6.5042,55.1682 -6.3652,55.1742 -6.3423,55.1726 -6.2441,55.1471 -6.1577,55.1536 -6.1349,55.1558 -6.0906,55.1444 -6.0532,55.1266 -6.0239,55.0895 -6.0318,55.0379 -6.0388,55.0225 -6.0254,54.993 -5.8343,54.8318 -5.7814,54.7871 -5.7688,54.791 -5.7368,54.7892 -5.7241,54.7851 -5.6995,54.7673 -5.6806,54.7448 -5.678,54.6993 -5.685,54.6864 -5.7012,54.6752 -5.7367,54.6606 -5.7569,54.6601 -5.7759,54.6557 -5.8089,54.6456 -5.8568,54.6256 -5.868,54.6184 -5.8797,54.6089 -5.9143,54.5679 -5.8921,54.5384 -5.8723,54.5427 -5.8644,54.5559 -5.8457,54.5734 -5.8062,54.5917 -5.7929,54.5973 -5.7268,54.61 -5.6195,54.6154 -5.5894,54.6151 -5.5645,54.6134 -5.5255,54.5871 -5.5184,54.5662 -5.4701,54.4725 -5.4221,54.4221 -5.4263,54.3947 -5.4518,54.3221 -5.4971,54.301 -5.5084,54.3054 -5.5369,54.3415 -5.5344,54.3539 -5.5226,54.3633 -5.5325,54.3853 -5.5339,54.4131 -5.5414,54.4372 -5.5509,54.4534 -5.5585,54.4607 -5.5899,54.478 -5.6297,54.4955 -5.6493,54.5024 -5.6708,54.5091 -5.6884,54.5089 -5.695,54.4697 -5.6637,54.4585 -5.6353,54.4288 -5.5639,54.3133 -5.5585,54.3035 -5.5525,54.2804 -5.5495,54.2274 -5.5527,54.2195 -5.5772,54.2015 -5.5986,54.1862 -5.6459,54.1636 -5.6571,54.1715 -5.6823,54.1814 -5.7208,54.1841 -5.7362,54.1847 -5.8152,54.176 -5.8499,54.1625 -5.8634,54.1457 -5.8618,54.1341 -5.8556,54.1225 -5.8545,54.1036 -5.8751,54.0531 -5.8901,54.0336 -5.9103,54.0228 -5.958,54.0009 -6.0335,53.9684 -6.0612,53.9645 -6.0718,53.9651 -6.0979,53.9733 -6.1634,54.0091 -6.1787,54.0273 -6.1891,54.0326 -6.2564,54.0365 -6.2608,54.041 -6.2779,54.0455 -6.328,54.0524 -6.3427,54.0512 -6.3543,54.0409 -6.4367,53.9952 -6.5562,53.9875 -6.5969,53.9791 -6.6087,53.9742 -6.6174,53.9792 -6.6443,54.0021 -6.7233,54.1203 -6.8395,54.2262 -6.8613,54.2785 -6.9055,54.3102 -6.9149,54.3157 -6.9626,54.3381 -7.0173,54.3534 -7.0463,54.3463 -7.1488,54.2733 -7.1635,54.2259 -7.1314,54.193 -7.1336,54.1618 -7.2716,54.0604 -7.3008,54.0494 -7.3177,54.0497 -7.5468,54.0637 -7.5972,54.0791 -7.609,54.0841 -7.6121,54.1005 -7.6865,54.1393 -7.7348,54.1371 -7.8048,54.1358 -7.838,54.1488 -7.8485,54.1548 -7.8548,54.1643 -7.8561,54.1898 -7.8623,54.2214 -7.8867,54.2308 -7.9279,54.236 -8.0167,54.2936 -8.0316,54.2978 -8.0419,54.303 -8.0519,54.3091 -8.1441,54.3767 -8.1576,54.4003 -8.0333,54.4433 -7.9372,54.4686 -7.82,54.4902 -7.7389,54.5305 -7.7642,54.5629 -7.839,54.5701 -7.8927,54.6003 -7.9004,54.6072 -7.9127,54.6364 -7.8296,54.6696 -7.8124,54.6702 -7.7258,54.6466 -7.5402,54.6986 -7.4697,54.7656 -7.445,54.7935 -7.4309,54.8181 -7.3934,54.889 -7.3136,54.9805 -7.2398,55.0059 -7.2398,55.0059 63,10.0,Russia 136.9878,54.7096 137.0143,54.7352 137.02,54.7712 137.0157,54.7888 137.0441,54.8301 137.1339,54.9173 137.1927,54.9437 137.2038,54.9468 137.215,54.9508 137.2278,54.9639 137.2625,55.0157 137.2857,55.067 137.2988,55.0997 137.3061,55.1098 137.3201,55.1197 137.331,55.1238 137.3426,55.1258 137.3988,55.1324 137.4228,55.1212 137.4652,55.0997 137.4633,55.0834 137.6025,55.0626 137.8596,54.9977 137.9628,54.9856 137.969,54.9759 137.9687,54.963 137.9576,54.9532 137.9466,54.9479 137.9239,54.9421 137.9132,54.9406 137.8787,54.9387 137.8676,54.9343 137.8508,54.9211 137.8271,54.9013 137.7719,54.8479 137.7556,54.8212 137.7485,54.8032 137.6854,54.704 137.5538,54.628 137.543,54.6211 137.5112,54.5958 137.5024,54.5794 137.4988,54.566 137.4848,54.5573 137.4741,54.5546 137.4133,54.5812 137.3744,54.6419 137.2726,54.7829 137.2622,54.7955 137.2519,54.8081 137.2294,54.8092 137.2073,54.806 137.196,54.8017 137.1414,54.7795 137.1306,54.7738 137.0831,54.7492 137.0726,54.7424 137.0621,54.7322 137.0279,54.7101 137.0167,54.7071 136.9942,54.7074 136.9878,54.7096 136.9878,54.7096 12,-9.0,United States -132.5859,55.1208 -132.5047,55.0754 -132.4645,55.0275 -132.4445,54.9726 -132.5041,54.9384 -132.5737,54.942 -132.6389,54.9674 -132.6364,55.0761 -132.6255,55.0946 -132.5967,55.1267 -132.5859,55.1208 -132.5859,55.1208 16,-9.0,United States -161.4549,55.0839 -161.3827,55.0631 -161.3663,55.051 -161.3662,55.0403 -161.4672,54.99 -161.4864,54.9906 -161.5013,54.9957 -161.626,55.0675 -161.6259,55.0866 -161.5803,55.1014 -161.5701,55.103 -161.55,55.1059 -161.5398,55.106 -161.4506,55.0909 -161.4549,55.0839 -161.4549,55.0839 30,2.0,Denmark 10.6968,54.6611 10.6822,54.6634 10.6703,54.6733 10.6568,54.6897 10.6374,54.7385 10.6338,54.7731 10.6637,54.8443 10.6753,54.858 10.7183,54.8954 10.7514,54.914 10.7791,54.9239 10.8322,54.9804 10.8701,55.0441 10.8909,55.0762 10.9104,55.092 10.9215,55.0962 10.9336,55.0946 10.9406,55.0832 10.9184,55.0252 10.9124,55.0109 10.8921,54.9639 10.8784,54.9351 10.8674,54.9245 10.8586,54.919 10.8394,54.9032 10.8206,54.8788 10.7685,54.7798 10.7387,54.7129 10.6968,54.6611 10.6968,54.6611 34,10.0,Russia 136.4337,54.8407 136.4546,54.8783 136.563,54.9479 136.5739,54.9536 136.8052,55.0397 136.8903,55.0552 136.9016,55.0568 136.9361,55.0539 136.9477,55.0503 136.9531,55.0408 136.8503,54.8791 136.842,54.8722 136.8231,54.8587 136.812,54.853 136.7894,54.8522 136.7666,54.8531 136.7213,54.8556 136.7095,54.8565 136.6966,54.8631 136.6931,54.8863 136.6834,54.891 136.672,54.8931 136.6605,54.8942 136.6494,54.8939 136.6379,54.8921 136.6267,54.8892 136.5413,54.8618 136.5213,54.8241 136.5073,54.8175 136.4955,54.8197 136.484,54.8234 136.4488,54.8356 136.4337,54.8407 136.4337,54.8407 37,2.0,Denmark 9.9828,54.9193 9.9875,54.9152 10.0261,54.8746 10.0521,54.831 10.0555,54.8212 10.0521,54.8098 9.9721,54.7956 9.9617,54.7942 9.9396,54.7939 9.9149,54.797 9.879,54.8075 9.7875,54.8353 9.7661,54.8452 9.7557,54.8646 9.7416,54.897 9.744,54.9154 9.7648,54.9048 9.8023,54.8823 9.8123,54.8777 9.825,54.8776 9.8208,54.909 9.7794,54.9485 9.7662,54.9512 9.7252,54.9479 9.7014,54.9448 9.6823,54.9455 9.6616,54.9522 9.615,54.9844 9.6231,54.994 9.6482,55.0029 9.6959,55.0167 9.7374,55.0198 9.7555,55.0159 9.7759,55.0104 9.952,54.9464 9.9828,54.9193 9.9828,54.9193 798,2.0,Germany 9.4293,54.7613 9.4234,54.7439 9.5623,54.7613 9.644,54.748 9.7688,54.7219 9.8855,54.727 9.9192,54.718 9.955,54.6966 10.0205,54.6041 10.023,54.5693 10.0156,54.4915 9.9877,54.4598 9.9539,54.4436 9.8764,54.4182 9.8547,54.4138 9.8292,54.413 9.8494,54.3934 9.8769,54.3904 9.9899,54.4105 10.0891,54.4256 10.1099,54.4261 10.3508,54.3718 10.5919,54.297 10.6284,54.2737 10.6728,54.2458 10.7544,54.2438 10.777,54.249 10.8136,54.2667 10.867,54.2984 10.9283,54.321 10.9409,54.3192 10.9685,54.3083 10.9987,54.3066 11.0262,54.3062 11.0555,54.313 11.0755,54.1422 11.0415,54.1139 10.8626,54.0277 10.8143,54.0277 10.7833,54.0264 10.7446,53.9932 10.7397,53.9726 10.7591,53.9434 10.7778,53.9326 10.8045,53.9311 10.8435,53.9308 10.8618,53.923 10.8723,53.8914 10.848,53.8511 10.881,53.868 10.8865,53.8945 10.9468,53.9171 10.995,53.9323 11.0371,53.9444 11.0762,53.9506 11.1651,53.949 11.2329,53.8757 11.3938,53.8569 11.4618,53.8973 11.4736,53.9315 11.5029,53.9703 11.5258,53.9634 11.5355,53.964 11.5577,53.971 11.6069,54.0193 11.607,54.0481 11.6681,54.09 11.7278,54.093 11.966,54.1102 12.1095,54.1278 12.3063,54.2234 12.3292,54.2397 12.4162,54.3276 12.4597,54.3803 12.5061,54.4103 12.5197,54.3952 12.6173,54.3851 12.6392,54.3824 12.6595,54.3814 12.7817,54.379 12.879,54.3786 12.8999,54.3637 12.8589,54.3482 12.737,54.3496 12.7078,54.3599 12.6826,54.366 12.6495,54.3508 12.6222,54.3504 12.443,54.3315 12.4051,54.3088 12.3449,54.2416 12.3538,54.1991 12.3876,54.1853 12.4308,54.1865 12.4032,54.1954 12.3983,54.2182 12.4591,54.2686 12.5287,54.2968 12.5608,54.3046 12.6034,54.3092 12.6617,54.3127 12.7434,54.3088 13.0022,54.3362 13.0966,54.2132 13.1904,54.1886 13.263,54.1714 13.357,54.1112 13.4322,54.0338 13.4646,54.0242 13.4773,54.0229 13.4616,54.0562 13.6882,54.1074 13.7661,54.0465 13.776,54.0209 13.7634,53.987 13.8069,53.9232 13.8424,53.8413 13.7985,53.8136 13.7859,53.7919 13.9363,53.7124 14.2006,53.6381 14.233,53.6347 14.2522,53.6366 14.2862,53.4932 14.3897,53.2769 14.3896,53.2425 14.3683,53.0824 14.3569,53.0483 14.3244,52.9872 14.2707,52.957 14.2027,52.9271 14.1774,52.9229 14.1461,52.9116 14.1248,52.8978 14.1264,52.8011 14.1828,52.7571 14.3322,52.6869 14.3605,52.6696 14.4255,52.6142 14.4556,52.5911 14.4915,52.5779 14.5316,52.5661 14.5727,52.5457 14.6165,52.5118 14.6102,52.4297 14.5621,52.3791 14.54,52.3721 14.5211,52.3608 14.5114,52.3352 14.557,52.2277 14.5757,52.2119 14.6329,52.1995 14.6694,52.1939 14.6846,52.185 14.7378,52.0094 14.6944,51.8827 14.6668,51.8367 14.6227,51.805 14.5875,51.788 14.5781,51.76 14.6453,51.6641 14.6753,51.6424 14.6994,51.6311 14.7334,51.607 14.7365,51.5478 14.6921,51.4951 14.7165,51.4667 14.8144,51.4388 14.898,51.4224 14.9299,51.4102 14.9523,51.3812 14.9586,51.3084 14.9486,51.2976 14.9602,51.2743 14.9796,51.2573 15.0106,51.2275 15.009,51.1797 14.9716,51.0593 14.9559,51.0194 14.9427,50.9931 14.9082,50.9437 14.8742,50.9005 14.8035,50.8242 14.8056,50.8069 14.8024,50.7977 14.7805,50.7608 14.7492,50.7596 14.7173,50.7652 14.6953,50.7705 14.6293,50.7884 14.5969,50.7993 14.6092,50.8223 14.6059,50.8648 14.5749,50.9234 14.5468,50.9467 14.4696,50.9776 14.2842,50.9933 14.2636,50.9784 14.2362,50.9363 14.2995,50.8873 14.3465,50.8761 14.2896,50.8235 14.1339,50.7844 13.9695,50.7556 13.8826,50.7294 13.87,50.7101 13.7135,50.6722 13.6488,50.6672 13.6139,50.6638 13.5618,50.6509 13.5205,50.6311 13.4905,50.592 13.4981,50.5833 13.443,50.5431 13.4165,50.5468 13.3947,50.5529 13.3583,50.5709 13.2294,50.5308 13.2033,50.4932 13.1864,50.462 13.1675,50.4444 13.0599,50.4399 12.9956,50.3811 12.9724,50.3629 12.966,50.36 12.9252,50.3519 12.898,50.3566 12.8791,50.367 12.8363,50.3841 12.8059,50.3947 12.7531,50.3869 12.7212,50.3733 12.6523,50.3538 12.602,50.3539 12.4968,50.3344 12.4673,50.3148 12.3802,50.2513 12.3073,50.1782 12.3045,50.1486 12.2628,50.1607 12.1644,50.2567 12.0755,50.2643 12.1041,50.2504 12.1908,50.1059 12.1754,50.0785 12.1879,50.0483 12.2473,50.0085 12.2893,49.99 12.411,49.9364 12.4525,49.9283 12.4729,49.9186 12.5276,49.8523 12.4502,49.7265 12.4374,49.6384 12.4578,49.634 12.497,49.6202 12.5362,49.5596 12.5602,49.5036 12.5794,49.4708 12.6558,49.3682 12.7787,49.2832 12.8683,49.2837 12.94,49.2784 13.0121,49.2312 13.1538,49.1109 13.2989,49.0446 13.3766,48.9931 13.383,48.9499 13.4902,48.9165 13.545,48.9177 13.5757,48.9014 13.6064,48.8915 13.632,48.8486 13.6523,48.8335 13.6796,48.8235 13.7082,48.8252 13.7256,48.8146 13.7418,48.7899 13.7603,48.7781 13.7918,48.7442 13.7982,48.7238 13.8135,48.7178 13.7948,48.6823 13.8053,48.5754 13.7836,48.5272 13.706,48.4601 13.6571,48.4767 13.6351,48.4961 13.5831,48.5125 13.4989,48.529 13.4236,48.5047 13.4379,48.4602 13.4185,48.3741 13.4026,48.3355 13.3757,48.3109 13.3156,48.2732 13.294,48.2604 13.266,48.2499 13.2391,48.2438 13.1356,48.2369 12.9992,48.2043 12.8527,48.1477 12.7415,48.0667 12.7479,48.0271 12.7808,47.9995 12.8191,47.9749 12.8388,47.9572 12.8469,47.9398 12.9003,47.9028 12.9481,47.852 12.9901,47.7993 12.952,47.756 12.9256,47.7341 12.8956,47.6703 12.9751,47.6598 13.0045,47.6698 13.0396,47.6515 13.0589,47.6327 13.0813,47.5885 13.0347,47.4435 12.9941,47.4157 12.9396,47.4227 12.7884,47.5006 12.7698,47.5293 12.7878,47.5605 12.8097,47.5667 12.7188,47.6283 12.6479,47.6304 12.5853,47.6177 12.5584,47.5899 12.5486,47.5875 12.4966,47.5788 12.4372,47.6132 12.1837,47.6032 12.1898,47.5791 12.184,47.5587 12.1241,47.5566 12.0937,47.5605 12.0426,47.5662 11.9894,47.5702 11.9028,47.5599 11.6664,47.5302 11.5632,47.4698 11.538,47.4611 11.4888,47.4548 11.4412,47.4581 11.2803,47.3748 11.0882,47.3425 11.0129,47.3412 10.9927,47.3419 10.9611,47.3461 10.8939,47.4636 10.6756,47.4996 10.5542,47.4858 10.4668,47.5323 10.4189,47.5263 10.4214,47.4747 10.4513,47.4285 10.4589,47.3833 10.415,47.3418 10.3219,47.2587 10.26,47.235 10.2142,47.2221 10.1589,47.2208 10.1973,47.2686 10.217,47.3197 10.0289,47.4412 9.9408,47.4855 9.797,47.5397 9.7616,47.5369 9.7322,47.5116 9.7189,47.4869 9.6789,47.4752 9.6376,47.4751 9.5949,47.4751 9.5644,47.4832 9.5533,47.4861 9.465,47.5216 9.2478,47.6082 9.0697,47.631 9.0203,47.6338 8.9882,47.6263 8.9668,47.6157 8.9352,47.603 8.9134,47.5975 8.8863,47.5965 8.8706,47.5997 8.8432,47.6445 8.8225,47.6635 8.793,47.6814 8.7618,47.6613 8.7875,47.6271 8.7409,47.6392 8.7078,47.6421 8.7197,47.6536 8.7241,47.7024 8.673,47.732 8.6492,47.7434 8.5995,47.7493 8.5508,47.752 8.4649,47.7161 8.3948,47.6472 8.4072,47.6195 8.4733,47.5925 8.5099,47.5971 8.5284,47.6098 8.5685,47.6141 8.5979,47.6131 8.6126,47.6017 8.5808,47.5462 8.5641,47.5372 8.5571,47.5441 8.5509,47.5641 8.5113,47.5781 8.459,47.553 8.4238,47.5193 8.379,47.5257 8.2773,47.5548 8.229,47.5651 8.184,47.5658 8.0902,47.5169 8.0218,47.5018 7.9063,47.5 7.7585,47.499 7.6862,47.489 7.6454,47.4961 7.6104,47.5067 7.6579,47.5216 7.6646,47.5506 7.6295,47.5494 7.5773,47.5302 7.578,47.5445 7.5536,47.5846 7.517,47.6079 7.5014,47.6408 7.516,47.7336 7.5465,47.8081 7.5734,47.8486 7.6123,47.9181 7.6088,47.9418 7.5731,47.9725 7.5595,47.9891 7.5586,48.0322 7.5677,48.0621 7.5968,48.1091 7.6821,48.2213 7.7377,48.2806 7.7319,48.3156 7.7257,48.3385 7.7343,48.3696 7.791,48.5201 7.8687,48.6084 7.9505,48.6682 8.0806,48.7479 8.0934,48.7636 8.0995,48.7877 8.1098,48.8091 8.1256,48.837 8.1864,48.8992 8.2141,48.9085 8.1436,48.9201 8.0342,48.9522 7.9246,48.9926 7.8101,48.9901 7.7261,48.9865 7.6577,48.986 7.6408,48.9889 7.6168,49.011 7.4761,49.1079 7.4146,49.1199 7.3679,49.1159 7.3583,49.1125 7.3534,49.0958 7.279,49.0553 7.1411,49.0649 7.0804,49.0711 7.0093,49.1312 6.9197,49.1638 6.8362,49.1558 6.8465,49.1254 6.8242,49.0989 6.7196,49.1113 6.7055,49.1309 6.6772,49.1886 6.585,49.3066 6.5318,49.367 6.4989,49.386 6.4589,49.4048 6.4045,49.419 6.3531,49.4025 6.3535,49.4324 6.3473,49.469 6.4116,49.6087 6.463,49.636 6.4964,49.6496 6.5143,49.7505 6.4724,49.7538 6.4202,49.7517 6.3861,49.7605 6.312,49.7911 6.3067,49.7979 6.2437,49.825 6.2251,49.8402 6.1652,49.8937 6.1316,49.9365 6.1216,49.9564 6.1039,49.9995 6.1092,50.033 6.1201,50.0614 6.1255,50.0701 6.1305,50.0967 6.1573,50.1667 6.2714,50.2256 6.3403,50.2548 6.3885,50.265 6.3638,50.3851 6.3297,50.4285 6.3042,50.439 6.2554,50.4395 6.2382,50.5306 6.2611,50.5616 6.1578,50.5977 6.0457,50.665 6.0026,50.6985 5.9989,50.7437 6.0075,50.783 6.0492,50.7918 6.0754,50.8132 6.0716,50.8558 6.016,50.919 5.9347,50.9253 5.8932,50.914 5.8604,50.9597 5.8562,50.9865 5.8966,51.0042 5.994,51.0249 6.0881,51.072 6.0751,51.115 6.0624,51.1548 6.0682,51.182 6.1337,51.2358 6.213,51.3038 6.2126,51.4078 6.1952,51.454 6.1492,51.4987 6.1247,51.5111 6.0841,51.546 6.0196,51.6466 5.9429,51.6874 5.9736,51.7071 5.9543,51.7466 5.9939,51.77 6.1143,51.828 6.1726,51.835 6.3413,51.7881 6.4526,51.7935 6.5174,51.8141 6.5846,51.836 6.6742,51.8516 6.7122,51.8378 6.7358,51.8458 6.7726,51.8645 6.8182,51.9153 6.7869,51.9483 6.7183,51.9751 6.726,52.0162 6.7488,52.0542 6.8455,52.0598 6.8644,52.0818 6.8918,52.1117 6.9538,52.1295 7.031,52.1711 7.042,52.177 7.0181,52.2176 7.0242,52.245 7.0469,52.2768 7.0595,52.2949 7.0517,52.3303 6.9732,52.3964 6.9432,52.3764 6.7483,52.4001 6.6934,52.4273 6.6789,52.4895 6.7118,52.4985 6.7476,52.5035 6.717,52.5574 6.7082,52.5658 6.7549,52.5899 6.8954,52.5868 7.0227,52.5721 7.0422,52.5885 7.0522,52.6601 7.0539,52.6991 7.0551,52.7311 7.0622,52.7581 7.0796,52.7753 7.1215,52.8272 7.1682,52.8727 7.1848,52.9008 7.1994,52.947 7.1955,53.1143 7.1968,53.1809 7.2443,53.2539 7.313,53.255 7.3392,53.2453 7.3254,53.261 7.2154,53.2743 7.1723,53.2785 7.115,53.2778 7.0716,53.2748 7.0385,53.279 7.0075,53.313 7.0036,53.3477 7.0106,53.3801 7.021,53.42 7.0821,53.5256 7.1731,53.5797 7.2201,53.6047 7.2841,53.6226 7.3292,53.6258 7.4566,53.6233 7.5012,53.6096 7.5692,53.6187 7.6859,53.6375 7.8304,53.6516 7.8698,53.655 7.8945,53.6569 7.9361,53.6547 7.9686,53.6528 8.0011,53.6457 8.0117,53.627 8.0391,53.5687 8.1105,53.5223 8.1479,53.4961 8.1533,53.4663 8.1161,53.4472 8.0804,53.4408 8.0494,53.4387 8.0599,53.4058 8.0847,53.382 8.197,53.3407 8.2212,53.3383 8.233,53.3396 8.2725,53.3587 8.2985,53.3939 8.3062,53.4433 8.2916,53.4626 8.2548,53.4577 8.2201,53.4606 8.2235,53.4955 8.2296,53.5237 8.2561,53.5451 8.2925,53.5544 8.3185,53.5529 8.4808,53.4926 8.4996,53.4471 8.4811,53.4267 8.4703,53.3996 8.4711,53.3498 8.476,53.315 8.49,53.3 8.4916,53.3673 8.4835,53.3942 8.4904,53.4207 8.5468,53.4529 8.5515,53.4666 8.4979,53.5547 8.4768,53.5864 8.4702,53.6237 8.5341,53.7554 8.5632,53.7923 8.5905,53.8163 8.6447,53.8297 8.6678,53.831 8.6971,53.8074 8.7421,53.7838 8.7611,53.7776 8.7826,53.7731 8.8387,53.767 8.893,53.7653 9.0057,53.7838 9.0902,53.8004 9.1138,53.8032 9.2009,53.8021 9.268,53.7928 9.3071,53.7652 9.3361,53.7351 9.3639,53.6981 9.3969,53.6647 9.5394,53.542 9.5624,53.526 9.657,53.493 9.6799,53.4877 9.749,53.4815 9.7933,53.4714 9.813,53.4792 9.7632,53.4995 9.7252,53.5027 9.7084,53.5031 9.6836,53.506 9.6569,53.5126 9.5595,53.551 9.5383,53.5651 9.4186,53.6815 9.4019,53.7083 9.3924,53.7293 9.3782,53.7598 9.3176,53.792 9.267,53.8128 9.2191,53.8234 9.198,53.8269 9.0481,53.8351 8.9694,53.8288 8.9326,53.8443 8.9127,53.8568 8.892,53.8719 8.8684,53.8979 8.8354,53.9458 8.8298,53.9716 8.8711,53.9814 8.9119,53.9743 8.9384,53.9631 8.9603,53.9551 8.9869,53.964 8.9971,53.9839 9.0024,54.022 8.9561,54.0685 8.8375,54.0648 8.8127,54.0884 8.798,54.1115 8.8053,54.1351 8.8311,54.1907 8.8687,54.2309 8.8153,54.2299 8.6759,54.204 8.6482,54.2049 8.6231,54.2127 8.5953,54.2416 8.586,54.2627 8.6077,54.3152 8.6279,54.3333 8.754,54.3471 8.8118,54.3511 8.8301,54.3416 8.8721,54.3505 8.9796,54.3881 8.9988,54.4112 8.9963,54.4399 8.949,54.4786 8.9287,54.4843 8.9038,54.4971 8.836,54.557 8.7946,54.6128 8.7396,54.6477 8.7197,54.657 8.6823,54.683 8.6365,54.7426 8.6269,54.7681 8.5618,54.7933 8.531,54.8065 8.376,54.8027 8.2867,54.7923 8.2803,54.761 8.2827,54.7146 8.277,54.6787 8.2666,54.7107 8.2679,54.7624 8.2794,54.8364 8.293,54.8688 8.3592,54.9686 8.374,54.9844 8.3937,54.9919 8.4398,54.9861 8.4239,54.9595 8.3932,54.9448 8.3576,54.9299 8.3389,54.9017 8.4063,54.8555 8.447,54.8358 8.4762,54.8364 8.5859,54.8466 8.6497,54.8489 8.6781,54.8316 8.7047,54.8267 8.744,54.8336 8.7711,54.8418 8.8199,54.8495 8.905,54.8439 8.9259,54.8413 9.1533,54.8006 9.2131,54.7854 9.2153,54.7652 9.2326,54.7483 9.3349,54.7462 9.3615,54.7635 9.3987,54.7693 9.4293,54.7613 9.4293,54.7613 15,-9.0,United States -159.1093,54.9913 -159.0853,54.9896 -159.0744,54.9818 -159.0654,54.9077 -159.1068,54.8888 -159.151,54.8777 -159.1612,54.876 -159.1766,54.8766 -159.1853,54.8818 -159.2058,54.9498 -159.1874,54.972 -159.1737,54.9839 -159.1657,54.9902 -159.1093,54.9913 -159.1093,54.9913 70,-9.0,United States -163.8978,54.5401 -163.9153,54.5353 -163.9387,54.5266 -163.9774,54.5094 -164.0019,54.4958 -164.0197,54.4849 -164.0487,54.4655 -164.047,54.4399 -164.066,54.4059 -164.1028,54.3824 -164.1601,54.3577 -164.191,54.3491 -164.3868,54.3284 -164.4992,54.3329 -164.5501,54.349 -164.5792,54.3649 -164.6547,54.4665 -164.6732,54.5162 -164.649,54.5375 -164.5805,54.5573 -164.5261,54.5693 -164.4917,54.5718 -164.4671,54.5795 -164.4246,54.6044 -164.4021,54.6253 -164.3513,54.6823 -164.2733,54.7771 -164.267,54.8065 -164.2097,54.8502 -164.1434,54.8651 -164.0926,54.8538 -164.0664,54.837 -164.0237,54.8264 -163.9544,54.8268 -163.7419,54.9127 -163.7049,54.9274 -163.6735,54.9445 -163.6451,54.967 -163.497,54.9906 -163.2564,54.9826 -163.1585,54.879 -163.1425,54.8558 -163.1348,54.8211 -163.1204,54.7723 -163.0966,54.7276 -163.0591,54.7068 -163.0333,54.6979 -162.9861,54.6907 -162.944,54.6977 -162.9193,54.7133 -162.863,54.6989 -162.778,54.6041 -162.878,54.5949 -163.0182,54.6355 -163.0582,54.6438 -163.1548,54.6044 -163.2426,54.5683 -163.3177,54.5477 -163.3526,54.5469 -163.4052,54.5534 -163.437,54.5603 -163.479,54.5669 -163.5365,54.5696 -163.7302,54.5661 -163.7736,54.5626 -163.8069,54.5582 -163.8385,54.5523 -163.8891,54.5428 -163.8978,54.5401 -163.8978,54.5401 10,2.0,Denmark 10.5471,54.8819 10.5347,54.8841 10.497,54.9165 10.4838,54.9421 10.6092,54.979 10.6578,54.9275 10.6517,54.9129 10.597,54.8859 10.5471,54.8819 10.5471,54.8819 25,2.0,Denmark 12.1629,54.8162 12.143,54.8189 12.1302,54.8218 12.0952,54.84 12.1134,54.8896 12.1572,54.9181 12.291,54.9708 12.3741,54.968 12.4311,54.9625 12.4853,54.9513 12.5121,54.9408 12.5352,54.8992 12.5252,54.884 12.5152,54.8807 12.4993,54.8797 12.4803,54.883 12.447,54.8922 12.3829,54.8987 12.3561,54.8988 12.3407,54.8978 12.317,54.8945 12.2895,54.8855 12.2432,54.8549 12.1629,54.8162 12.1629,54.8162 24,-8.0,Canada -129.9417,54.9495 -129.937,54.9398 -129.9239,54.9115 -129.9223,54.8981 -129.9248,54.8866 -129.9405,54.8669 -130.048,54.7666 -130.1631,54.706 -130.177,54.7006 -130.1898,54.705 -130.2351,54.7514 -130.2383,54.7611 -130.1958,54.7891 -130.1625,54.8045 -130.1203,54.8309 -130.047,54.8859 -130.0269,54.9054 -130.0042,54.9328 -129.9898,54.9479 -129.9775,54.9552 -129.9568,54.9588 -129.9451,54.9553 -129.9417,54.9495 -129.9417,54.9495 19,-9.0,United States -131.0131,54.9218 -131.0177,54.9122 -131.0168,54.8669 -131.0013,54.8606 -130.9774,54.8545 -130.9678,54.8439 -131.0096,54.8128 -131.1057,54.792 -131.12,54.7925 -131.1537,54.7995 -131.2491,54.8472 -131.2584,54.8579 -131.2555,54.8691 -131.2456,54.8789 -131.226,54.8887 -131.0283,54.9343 -131.0123,54.9291 -131.0131,54.9218 -131.0131,54.9218 31,-9.0,United States -161.9548,54.9009 -161.9516,54.8876 -161.9563,54.8657 -161.9502,54.8471 -161.9515,54.8326 -161.9582,54.8234 -161.9792,54.8112 -161.987,54.8025 -162.0007,54.7845 -162.0161,54.7699 -162.0327,54.7647 -162.0519,54.7654 -162.0782,54.7816 -162.0902,54.789 -162.109,54.7984 -162.1183,54.8037 -162.1284,54.8122 -162.1424,54.8216 -162.146,54.8415 -162.1524,54.8575 -162.1535,54.8683 -162.1435,54.8708 -162.1077,54.8805 -162.0854,54.8922 -162.0623,54.9066 -162.0415,54.916 -162.0256,54.9183 -162.0015,54.9173 -161.97,54.9095 -161.9548,54.9009 -161.9548,54.9009 11,2.0,Denmark 10.3897,54.7572 10.3819,54.76 10.2284,54.8418 10.1733,54.8938 10.1694,54.9102 10.2679,54.8717 10.2893,54.8625 10.423,54.7997 10.4152,54.7774 10.3897,54.7572 10.3897,54.7572 46,2.0,Denmark 11.8304,54.8903 11.845,54.8832 11.9767,54.8397 11.9997,54.8319 12.0177,54.8282 12.0404,54.8267 12.0619,54.8293 12.0789,54.8272 12.09,54.8231 12.0989,54.818 12.1161,54.8044 12.1475,54.7735 12.1378,54.7645 12.0992,54.7423 12.0865,54.7354 12.0681,54.7293 12.0545,54.7235 12.035,54.7106 11.9613,54.6461 11.9493,54.6355 11.9416,54.6165 11.9383,54.5992 11.9399,54.5838 11.9428,54.5657 11.9475,54.5457 11.9543,54.5229 11.9589,54.5064 11.9467,54.4981 11.9246,54.5035 11.906,54.5105 11.852,54.5874 11.8511,54.6032 11.8579,54.6237 11.8717,54.6369 11.879,54.6544 11.8361,54.7102 11.782,54.775 11.7726,54.7803 11.762,54.7845 11.7337,54.7929 11.6912,54.8749 11.7123,54.89 11.7265,54.8955 11.7467,54.8974 11.8304,54.8903 11.8304,54.8903 55,2.0,Denmark 10.9714,54.7267 11.0064,54.7502 10.9952,54.8289 11.011,54.848 11.0234,54.8588 11.0389,54.8707 11.0527,54.8763 11.0999,54.8864 11.1176,54.8894 11.1455,54.8923 11.1739,54.8929 11.2204,54.8929 11.2562,54.8854 11.2692,54.8786 11.3177,54.8503 11.33,54.8298 11.3418,54.8195 11.3741,54.8039 11.3897,54.7983 11.4944,54.7655 11.5447,54.7577 11.6228,54.8137 11.6244,54.8402 11.6372,54.8397 11.6889,54.8111 11.7155,54.7907 11.8272,54.7037 11.8419,54.6806 11.8373,54.6224 11.8242,54.6053 11.8138,54.5971 11.7603,54.5764 11.7167,54.5812 11.7026,54.5871 11.6743,54.5914 11.6209,54.5984 11.564,54.5995 11.5032,54.578 11.4503,54.5575 11.4355,54.5559 11.3579,54.5826 11.3312,54.5948 11.2961,54.6114 11.2588,54.6357 11.243,54.643 11.227,54.6477 11.1715,54.6616 11.1256,54.6727 11.1066,54.676 11.0805,54.6783 11.0104,54.6933 11.0009,54.6986 10.9746,54.7209 10.9714,54.7267 10.9714,54.7267 24,-5.0,Canada -78.9222,54.8534 -78.9674,54.8394 -78.9949,54.8324 -79.0995,54.8325 -79.3793,54.7763 -79.5244,54.7412 -79.6277,54.7077 -79.6394,54.7113 -79.6352,54.7213 -79.5894,54.7545 -79.5787,54.7623 -79.5508,54.774 -79.5207,54.7823 -79.327,54.825 -79.2947,54.8284 -79.2837,54.8284 -79.2035,54.8328 -79.0285,54.8613 -78.9184,54.8822 -78.9065,54.8816 -78.8795,54.8711 -78.8918,54.861 -78.9222,54.8534 -78.9222,54.8534 16,-9.0,United States -132.3897,54.8267 -132.3846,54.8139 -132.3834,54.7057 -132.3938,54.6902 -132.4073,54.6848 -132.422,54.687 -132.4365,54.6936 -132.5475,54.7926 -132.5567,54.8037 -132.5627,54.8408 -132.5502,54.862 -132.4817,54.8763 -132.4016,54.8378 -132.3921,54.832 -132.3897,54.8267 -132.3897,54.8267 27,-4.0,Canada -57.8417,54.8477 -57.8882,54.8048 -57.8929,54.7695 -57.8831,54.7362 -57.8695,54.7344 -57.8584,54.7401 -57.8248,54.7591 -57.7652,54.767 -57.7449,54.7499 -57.7796,54.7276 -57.928,54.6906 -57.9459,54.6889 -58.021,54.6913 -58.0402,54.693 -58.0602,54.6973 -58.0764,54.705 -58.0731,54.7332 -58.0848,54.7444 -58.1237,54.7676 -58.126,54.786 -58.1257,54.8007 -58.1138,54.8126 -57.95,54.829 -57.8685,54.8547 -57.8407,54.857 -57.8417,54.8477 -57.8417,54.8477 33,12.0,Russia 167.1473,54.7988 167.1579,54.8012 167.1708,54.8021 167.2132,54.7967 167.2239,54.794 167.2433,54.7867 167.2793,54.7685 167.2807,54.758 167.3608,54.7245 167.4484,54.6928 167.5709,54.6172 167.6664,54.5484 167.8288,54.4454 167.8004,54.435 167.79,54.4378 167.7762,54.4437 167.6865,54.4977 167.6539,54.5207 167.6128,54.5486 167.5485,54.5779 167.5389,54.5815 167.5275,54.583 167.5155,54.5831 167.4927,54.5854 167.4618,54.5927 167.4518,54.5965 167.2613,54.695 167.1723,54.7423 167.1563,54.7546 167.1497,54.7632 167.146,54.7744 167.1473,54.7988 167.1473,54.7988 522,2.0,Poland 19.5943,54.3996 19.6179,54.3923 19.5972,54.3792 19.4917,54.3331 19.3959,54.3018 19.3754,54.2953 19.3436,54.2889 19.2455,54.2825 19.1987,54.27 19.2213,54.2146 19.3387,54.2052 19.4461,54.2506 19.5382,54.2833 19.5957,54.287 19.6807,54.3199 19.7636,54.3739 19.8242,54.3663 19.9706,54.3556 20.0567,54.3549 20.1246,54.3485 20.2673,54.3341 20.295,54.3302 20.3374,54.324 20.3987,54.3179 20.7041,54.2945 20.8631,54.2926 21.0909,54.2782 21.1463,54.2727 21.1963,54.2694 21.248,54.2663 21.3314,54.2637 21.376,54.2624 21.4068,54.2622 21.488,54.2635 21.5342,54.2649 21.5414,54.2648 21.5895,54.2661 21.6949,54.2673 21.8188,54.268 21.9451,54.2693 22.128,54.2715 22.2281,54.2747 22.259,54.2762 22.3921,54.2822 22.4179,54.2819 22.5919,54.2852 22.6262,54.2874 22.7285,54.296 22.7475,54.3001 22.774,54.3325 22.7969,54.3417 22.8247,54.3448 22.9563,54.322 23.0771,54.2409 23.1658,54.2237 23.2941,54.1837 23.3173,54.1721 23.4188,54.1109 23.4452,54.075 23.4551,54.054 23.4786,53.9758 23.469,53.8974 23.4653,53.8842 23.4638,53.8795 23.4651,53.8583 23.4713,53.8365 23.5007,53.7781 23.5419,53.6684 23.5518,53.6318 23.5539,53.6228 23.5699,53.5749 23.5787,53.5515 23.6017,53.4967 23.6349,53.4312 23.6619,53.3908 23.7471,53.2522 23.8199,53.134 23.8948,52.9502 23.889,52.8867 23.893,52.7973 23.9002,52.7132 23.9015,52.709 23.9029,52.6882 23.897,52.6561 23.8736,52.6318 23.8456,52.617 23.7089,52.5536 23.6782,52.5548 23.6504,52.5562 23.6175,52.5491 23.596,52.5445 23.5596,52.5352 23.4855,52.5126 23.4661,52.5064 23.38,52.4642 23.3602,52.4535 23.3403,52.4373 23.2118,52.3135 23.1288,52.2216 23.1564,52.1724 23.1783,52.1628 23.2611,52.151 23.3114,52.1463 23.5578,52.0516 23.6016,52.0191 23.6236,51.9457 23.59,51.8919 23.5755,51.8557 23.5215,51.6924 23.511,51.6266 23.5188,51.6055 23.4984,51.5939 23.5025,51.5329 23.5306,51.4801 23.5682,51.4682 23.5776,51.439 23.607,51.4253 23.6563,51.3428 23.6447,51.3097 23.6475,51.2291 23.6956,51.1556 23.7202,51.14 23.7745,51.1098 23.8686,51.009 23.895,50.9351 23.9284,50.8917 23.9517,50.8723 23.9975,50.8396 24.0247,50.8289 24.0536,50.8233 24.1066,50.8009 24.0944,50.7795 24.0404,50.7707 24.0159,50.7725 23.9854,50.7731 23.9446,50.7707 23.9218,50.7565 23.918,50.7332 23.9784,50.6813 24.0358,50.6371 24.0706,50.5752 24.0721,50.5673 24.0749,50.5084 23.9661,50.3561 23.9469,50.3478 23.8935,50.3454 23.8455,50.3473 23.8111,50.3487 23.7786,50.3477 23.7561,50.3443 23.7201,50.3363 23.6819,50.3256 23.6613,50.3119 23.6486,50.2756 23.5557,50.211 23.5333,50.1977 23.505,50.1847 23.4609,50.1631 23.3432,50.0918 23.3078,50.0696 23.2897,50.0576 23.2689,50.0431 23.1934,49.989 23.1119,49.9256 23.0765,49.8975 22.7465,49.6181 22.6838,49.5477 22.6529,49.5202 22.6451,49.5126 22.6234,49.4732 22.6613,49.3943 22.6996,49.3405 22.7256,49.2292 22.6935,49.1615 22.6707,49.1135 22.7447,49.0943 22.8193,49.0496 22.8432,49.0313 22.83,48.9936 22.8527,48.9469 22.8297,48.9471 22.7045,48.9912 22.5611,49.0354 22.5356,49.0317 22.5253,49.0232 22.5048,49.0316 22.3162,49.0821 22.2912,49.0823 22.1925,49.0982 21.9978,49.1638 21.9932,49.1907 21.9878,49.2174 21.9263,49.2836 21.8062,49.328 21.581,49.3798 21.502,49.373 21.4691,49.3657 21.4279,49.3552 21.4051,49.3572 21.3695,49.3723 21.2506,49.3997 21.0406,49.3655 21.0195,49.3537 21.0046,49.303 20.9517,49.2529 20.9251,49.245 20.8828,49.2397 20.7819,49.2743 20.7104,49.3324 20.5727,49.3391 20.3307,49.3364 20.2978,49.3265 20.177,49.2835 20.1141,49.2583 20.0738,49.1921 20.0631,49.1485 20.0441,49.1214 20.01,49.1327 19.9912,49.1432 19.9697,49.1614 19.9503,49.1699 19.9074,49.1746 19.882,49.1696 19.839,49.1406 19.814,49.1353 19.7546,49.1439 19.737,49.1579 19.7448,49.1765 19.7689,49.1964 19.7966,49.2209 19.7759,49.3083 19.7489,49.3509 19.6816,49.3409 19.6297,49.3501 19.5485,49.4023 19.5067,49.4787 19.4924,49.5171 19.4471,49.5432 19.419,49.544 19.2409,49.4697 19.2143,49.4499 19.171,49.381 19.1637,49.3572 19.1314,49.3435 19.0038,49.3352 18.9472,49.3453 18.9405,49.3995 18.9408,49.4249 18.8237,49.4607 18.8245,49.4711 18.8201,49.4973 18.8117,49.538 18.7833,49.6163 18.7594,49.6251 18.6069,49.6807 18.5519,49.758 18.5512,49.8551 18.5252,49.865 18.3231,49.8814 18.2431,49.9004 18.0673,49.9804 18.0264,49.9983 17.9827,49.9537 17.8942,49.92 17.8499,49.9217 17.8136,49.9322 17.6314,50.0502 17.5801,50.1048 17.6163,50.1143 17.6686,50.121 17.737,50.1513 17.7361,50.1753 17.7265,50.2398 17.6977,50.261 17.6705,50.2621 17.667,50.242 17.6346,50.2145 17.6004,50.2077 17.407,50.2124 17.3521,50.2215 17.2576,50.2623 17.2011,50.2872 17.1793,50.303 17.0921,50.3386 17.0321,50.3524 16.9159,50.377 16.8854,50.3818 16.8656,50.3803 16.8434,50.3532 16.9122,50.2823 16.9474,50.2518 16.9766,50.1589 16.9431,50.1648 16.886,50.1645 16.8217,50.1438 16.7862,50.1214 16.7777,50.1117 16.7617,50.0829 16.6905,50.0406 16.6151,50.0513 16.5894,50.062 16.5629,50.0821 16.5413,50.1127 16.5374,50.1505 16.5231,50.169 16.4338,50.2455 16.4167,50.2586 16.3474,50.3032 16.2784,50.3199 16.2416,50.3316 16.1948,50.3521 16.1832,50.3808 16.2903,50.4464 16.3343,50.4396 16.3818,50.4647 16.4226,50.5204 16.4055,50.5433 16.3451,50.5857 16.3074,50.6057 16.213,50.6119 16.1132,50.5978 16.0935,50.5993 16.0471,50.577 16.0001,50.5716 15.9228,50.6308 15.7636,50.6854 15.5828,50.7143 15.465,50.7279 15.3563,50.7207 15.3395,50.782 15.2884,50.8014 15.2597,50.8334 15.2492,50.8656 15.267,50.8901 15.252,50.9161 15.2162,50.9328 15.1538,50.9558 14.9935,50.9152 14.9964,50.8916 14.9811,50.8087 14.9439,50.8005 14.8056,50.8069 14.8035,50.8242 14.8742,50.9005 14.9082,50.9437 14.9427,50.9931 14.9559,51.0194 14.9716,51.0593 15.009,51.1797 15.0106,51.2275 14.9796,51.2573 14.9602,51.2743 14.9486,51.2976 14.9586,51.3084 14.9523,51.3812 14.9299,51.4102 14.898,51.4224 14.8144,51.4388 14.7165,51.4667 14.6921,51.4951 14.7365,51.5478 14.7334,51.607 14.6994,51.6311 14.6753,51.6424 14.6453,51.6641 14.5781,51.76 14.5875,51.788 14.6227,51.805 14.6668,51.8367 14.6944,51.8827 14.7378,52.0094 14.6846,52.185 14.6694,52.1939 14.6329,52.1995 14.5757,52.2119 14.557,52.2277 14.5114,52.3352 14.5211,52.3608 14.54,52.3721 14.5621,52.3791 14.6102,52.4297 14.6165,52.5118 14.5727,52.5457 14.5316,52.5661 14.4915,52.5779 14.4556,52.5911 14.4255,52.6142 14.3605,52.6696 14.3322,52.6869 14.1828,52.7571 14.1264,52.8011 14.1248,52.8978 14.1461,52.9116 14.1774,52.9229 14.2027,52.9271 14.2707,52.957 14.3244,52.9872 14.3569,53.0483 14.3683,53.0824 14.3896,53.2425 14.3897,53.2769 14.2862,53.4932 14.2522,53.6366 14.3424,53.6366 14.3869,53.6178 14.501,53.5981 14.5308,53.6158 14.5963,53.705 14.5901,53.7534 14.557,53.7847 14.5296,53.7948 14.4527,53.8019 14.3888,53.7971 14.3159,53.7421 14.2665,53.7601 14.2425,53.7739 14.1955,53.8062 14.1925,53.8371 14.2022,53.8657 14.2264,53.8594 14.3043,53.8497 14.3267,53.8478 14.3527,53.8493 14.4017,53.8595 14.4594,53.8844 14.4805,53.8961 14.5355,53.9135 14.721,53.9656 14.79,53.976 14.9547,54.0084 15.2028,54.0661 15.2772,54.0845 15.3284,54.0932 15.3702,54.0974 15.4039,54.0989 15.4676,54.1031 15.628,54.1307 15.7263,54.1509 15.768,54.1629 15.8127,54.1779 15.8501,54.1831 16.0208,54.1983 16.0545,54.1909 16.1171,54.1896 16.1476,54.1958 16.1906,54.2102 16.3022,54.2931 16.2778,54.3086 16.2911,54.3276 16.3807,54.3977 16.4329,54.436 16.4618,54.4547 16.4879,54.4704 16.5158,54.4808 16.5437,54.4874 16.6106,54.4997 16.6372,54.5031 16.6736,54.5049 16.7651,54.5118 16.8556,54.5257 16.8867,54.5338 16.911,54.5414 16.9906,54.5837 17.0077,54.5967 17.037,54.6096 17.222,54.6663 17.3329,54.6835 17.4047,54.6886 17.5008,54.6983 17.5631,54.7057 17.6566,54.7251 17.7443,54.7421 17.8666,54.7597 17.8886,54.7626 18.0126,54.77 18.305,54.7717 18.3414,54.7519 18.4182,54.7241 18.4953,54.6966 18.5467,54.68 18.5743,54.6714 18.6724,54.6361 18.7083,54.6214 18.7428,54.6024 18.8008,54.5572 18.7891,54.53 18.7542,54.5546 18.7403,54.5698 18.7237,54.5921 18.6993,54.6143 18.6746,54.6294 18.5406,54.6655 18.4724,54.6893 18.452,54.6949 18.4356,54.6728 18.375,54.6743 18.4372,54.6017 18.48,54.5673 18.5163,54.524 18.5355,54.4869 18.5385,54.4131 18.5433,54.3828 18.5641,54.3643 18.6771,54.3192 18.7264,54.3072 18.8122,54.2884 18.8616,54.282 18.8956,54.2827 18.9222,54.2881 18.9386,54.2817 18.991,54.2787 19.0143,54.2785 19.1069,54.2831 19.1802,54.2905 19.3421,54.3099 19.385,54.3168 19.407,54.3223 19.484,54.3434 19.5299,54.3654 19.5802,54.3909 19.5943,54.3996 19.5943,54.3996 16,-8.0,Canada -130.236,54.7361 -130.2243,54.7231 -130.2169,54.7117 -130.2138,54.6991 -130.2178,54.6869 -130.2338,54.652 -130.2417,54.6445 -130.301,54.6381 -130.3167,54.6399 -130.3491,54.6547 -130.3632,54.6638 -130.3868,54.6914 -130.2613,54.7442 -130.2471,54.7437 -130.236,54.7361 -130.236,54.7361 16,2.0,Germany 8.549,54.6203 8.4739,54.6215 8.4639,54.6229 8.3841,54.6461 8.3955,54.6687 8.4118,54.6782 8.4304,54.6842 8.4473,54.6878 8.5242,54.6913 8.5366,54.6898 8.5554,54.6863 8.5705,54.6806 8.5804,54.6558 8.5557,54.6234 8.549,54.6203 8.549,54.6203 95,2.0,Germany 13.2458,54.1916 13.2312,54.1937 13.1343,54.2421 13.0969,54.2734 13.1121,54.3078 13.1322,54.3116 13.1786,54.309 13.1982,54.3061 13.2137,54.308 13.2417,54.3165 13.2167,54.3477 13.1855,54.3645 13.1426,54.3705 13.2063,54.4012 13.21,54.422 13.145,54.4496 13.1249,54.4819 13.209,54.4885 13.2335,54.4877 13.2817,54.4866 13.3155,54.5024 13.3449,54.5166 13.3551,54.4943 13.3724,54.4782 13.3978,54.458 13.4248,54.4253 13.4614,54.4199 13.4805,54.4293 13.4938,54.4495 13.48,54.486 13.4368,54.4871 13.4034,54.5062 13.361,54.5146 13.3521,54.5462 13.3331,54.5403 13.3071,54.5188 13.2881,54.5093 13.2617,54.5006 13.2266,54.4939 13.2043,54.5771 13.2222,54.5926 13.241,54.6026 13.2562,54.6072 13.2698,54.6092 13.342,54.6155 13.3614,54.6168 13.4043,54.6185 13.419,54.6106 13.4029,54.5948 13.3711,54.5869 13.3619,54.5778 13.3688,54.5429 13.3847,54.5248 13.4109,54.5139 13.4336,54.5093 13.4591,54.5107 13.4935,54.513 13.57,54.5209 13.5949,54.5223 13.6154,54.5212 13.6514,54.5029 13.6562,54.4785 13.6537,54.4655 13.6458,54.4576 13.6212,54.4505 13.5644,54.4195 13.5544,54.4038 13.5543,54.3934 13.5607,54.3779 13.5962,54.3399 13.6082,54.3375 13.6235,54.3378 13.6483,54.338 13.6794,54.3244 13.6878,54.3172 13.7083,54.2911 13.7209,54.2674 13.7062,54.2118 13.6903,54.2085 13.6723,54.2185 13.6881,54.2333 13.6896,54.259 13.6639,54.2852 13.4838,54.2787 13.4469,54.2648 13.3355,54.2098 13.3354,54.1962 13.3846,54.2017 13.3985,54.197 13.4053,54.1847 13.4046,54.1723 13.3729,54.1584 13.2965,54.1852 13.2458,54.1916 13.2458,54.1916 18,-8.0,Canada -130.5255,54.5515 -130.5227,54.5379 -130.5241,54.5207 -130.5296,54.5054 -130.5372,54.4931 -130.5454,54.4868 -130.6317,54.4316 -130.7162,54.3957 -130.7347,54.3903 -130.7452,54.3958 -130.7447,54.4471 -130.7433,54.4641 -130.7396,54.476 -130.7061,54.553 -130.6633,54.5649 -130.5273,54.5604 -130.5255,54.5515 -130.5255,54.5515 12,10.0,Russia 137.4113,54.3238 137.3407,54.3702 137.3177,54.4462 137.358,54.4877 137.3663,54.4943 137.3814,54.5009 137.4003,54.4792 137.4135,54.4437 137.412,54.4142 137.4006,54.3494 137.4113,54.3238 137.4113,54.3238 18,2.0,Germany 11.255,54.395 11.2831,54.3604 11.2936,54.3447 11.1204,54.343 11.1052,54.3433 11.0027,54.375 10.9905,54.3836 10.9875,54.3939 10.9931,54.4131 11.0,54.4269 11.0101,54.4407 11.0252,54.4545 11.0484,54.4706 11.1652,54.4563 11.2133,54.4393 11.225,54.4309 11.255,54.395 11.255,54.395 20,10.0,Russia 137.4866,54.3173 137.499,54.3231 137.5098,54.3288 137.531,54.3408 137.5525,54.3543 137.5778,54.3747 137.5847,54.3846 137.5841,54.4072 137.6078,54.4352 137.6328,54.4435 137.6813,54.4441 137.6901,54.4278 137.6959,54.3961 137.6,54.3289 137.5487,54.303 137.4933,54.2936 137.4843,54.2988 137.4778,54.3085 137.4866,54.3173 137.4866,54.3173 18,-9.0,United States -162.479,54.421 -162.3215,54.3896 -162.2867,54.3655 -162.2709,54.3493 -162.2696,54.3206 -162.3478,54.3035 -162.3664,54.3051 -162.4626,54.3337 -162.4919,54.3431 -162.5124,54.351 -162.5249,54.3574 -162.5358,54.3652 -162.5614,54.3903 -162.5537,54.4323 -162.541,54.4363 -162.5084,54.4305 -162.479,54.421 -162.479,54.421 449,11.0,Russia 143.4261,49.2632 143.4492,49.251 143.3946,49.2473 143.3317,49.2475 143.2821,49.2504 143.2156,49.2432 143.1289,49.2305 143.08,49.2207 143.0558,49.2152 142.9835,49.1897 142.9273,49.1663 142.8665,49.1329 142.8242,49.1009 142.8061,49.0805 142.7772,49.0393 142.7605,48.9957 142.7563,48.9633 142.7651,48.9323 142.7757,48.9118 142.7822,48.8853 142.7825,48.8592 142.7676,48.8332 142.7199,48.7637 142.6553,48.6541 142.5737,48.4987 142.5569,48.4652 142.5417,48.4269 142.4657,48.2493 142.4137,48.15 142.4086,48.1324 142.3933,48.0906 142.363,48.0201 142.3298,47.9506 142.324,47.8421 142.325,47.8213 142.3309,47.7422 142.3524,47.6621 142.3658,47.6241 142.3995,47.5662 142.4153,47.5397 142.4266,47.522 142.5095,47.4307 142.584,47.3692 142.6327,47.3522 142.6624,47.3397 142.6961,47.3183 142.7161,47.3006 142.8134,47.1945 142.9022,46.8665 142.9083,46.8369 142.8965,46.7854 142.8821,46.7633 142.9709,46.653 143.1478,46.6273 143.1709,46.6331 143.1856,46.653 143.1652,46.6797 143.1735,46.7331 143.2358,46.783 143.2728,46.7766 143.288,46.7554 143.3192,46.6532 143.3091,46.6227 143.3117,46.5896 143.321,46.529 143.3452,46.4466 143.3513,46.4276 143.3754,46.3561 143.3987,46.3308 143.3844,46.2987 143.3146,46.1703 143.2928,46.1535 143.2758,46.1381 143.265,46.1091 143.2664,46.086 143.2721,46.0495 143.2293,45.967 143.2233,45.9672 143.2056,46.0274 143.2224,46.0762 143.2255,46.1292 143.2229,46.1574 143.2123,46.1856 143.1854,46.2434 143.1561,46.3029 143.1427,46.3254 143.137,46.3498 143.1423,46.4094 143.1662,46.4366 143.1818,46.48 143.1532,46.5066 142.9661,46.5369 142.9332,46.5409 142.9122,46.535 142.8799,46.5289 142.8566,46.5296 142.8071,46.5358 142.6767,46.5442 142.6025,46.5406 142.5781,46.545 142.5445,46.5958 142.5309,46.6314 142.5252,46.6663 142.517,46.6887 142.3978,46.6582 142.3729,46.6495 142.3243,46.6292 142.29,46.611 142.266,46.5884 142.2197,46.5293 142.0941,46.2879 142.0491,46.1437 142.0268,46.0601 141.9977,45.9706 141.8876,45.8395 141.8508,45.8625 141.8344,45.8785 141.7269,45.9932 141.737,46.0309 141.6996,46.217 141.693,46.2362 141.6844,46.2569 141.6517,46.3289 141.6305,46.3695 141.6186,46.433 141.6146,46.4866 141.6128,46.5375 141.7733,46.8411 141.7854,46.8581 141.8205,46.9229 141.8286,46.9413 141.8473,46.9874 141.8548,47.0252 141.857,47.0708 141.8556,47.0916 141.8508,47.1112 141.8386,47.149 141.827,47.1785 141.8134,47.198 141.7907,47.2147 141.7717,47.23 141.7497,47.4035 141.7477,47.4342 141.7594,47.5456 141.7993,47.6421 141.8792,47.785 141.8984,47.8093 141.9231,47.8308 141.9461,47.8491 141.9697,47.8724 141.9829,47.8991 141.9817,47.9273 141.973,47.9642 141.9682,47.9891 141.9636,48.029 141.9568,48.1113 141.951,48.1883 141.9438,48.2209 141.9276,48.2647 141.8982,48.3217 141.8748,48.3567 141.8094,48.4344 141.7295,48.5261 141.7066,48.5585 141.6824,48.6006 141.6684,48.6283 141.6539,48.6704 141.6473,48.7012 141.6629,48.7276 141.7109,48.7741 141.7431,48.7911 141.7579,48.8079 141.792,48.9016 141.8203,48.9854 141.86,49.1903 141.8562,49.2127 141.8561,49.249 141.8589,49.2784 141.8697,49.3152 141.8919,49.3547 141.9121,49.4019 141.9261,49.4683 141.931,49.4955 141.9413,49.5764 141.9502,49.7291 141.946,49.7642 141.9287,49.8014 141.9163,49.829 141.9278,49.8914 141.9418,49.9479 141.9607,50.0366 141.9366,50.2736 141.9327,50.2935 141.9195,50.3268 141.8965,50.3532 141.8417,50.4387 141.8308,50.4614 141.828,50.4836 141.836,50.5427 141.8783,50.7543 141.9127,50.833 141.9323,50.8512 141.9599,50.8702 141.9839,50.8938 142.0016,50.9153 142.0164,50.9452 142.0339,50.9885 142.0451,51.0199 142.0493,51.0455 142.0454,51.0707 142.035,51.0933 142.0154,51.1187 141.8656,51.3388 141.8627,51.3594 141.8748,51.3847 141.8538,51.4139 141.7851,51.4566 141.7031,51.511 141.5764,51.6175 141.5867,51.659 141.6018,51.6721 141.5978,51.7251 141.5556,51.7647 141.538,51.7751 141.4264,51.8265 141.4204,52.0266 141.4592,52.0702 141.4706,52.0931 141.4701,52.1186 141.4447,52.1986 141.4146,52.2529 141.4273,52.3047 141.4404,52.325 141.4781,52.3457 141.5235,52.3755 141.543,52.3945 141.5655,52.4208 141.6121,52.5199 141.6226,52.6517 141.6307,52.7901 141.6627,52.8741 141.6945,52.9513 141.6854,52.9987 141.6638,53.0309 141.6374,53.0597 141.6217,53.0757 141.6128,53.0835 141.6033,53.0924 141.5788,53.1944 141.5798,53.2331 141.539,53.3057 141.7493,53.3925 141.8596,53.429 141.9872,53.4562 142.0195,53.4181 142.0072,53.3909 142.0038,53.3518 142.0169,53.3217 142.0428,53.3074 142.1198,53.294 142.24,53.324 142.2664,53.3392 142.2825,53.3552 142.3223,53.4034 142.4475,53.4544 142.4406,53.4841 142.3744,53.5075 142.3252,53.5074 142.3051,53.4914 142.2758,53.4863 142.2602,53.556 142.2673,53.6007 142.3032,53.6108 142.4075,53.6156 142.4281,53.6039 142.4476,53.5778 142.4756,53.5668 142.4971,53.5742 142.5403,53.6092 142.564,53.6412 142.5592,53.687 142.5502,53.7327 142.5337,53.7756 142.4918,53.7534 142.4733,53.72 142.4539,53.6763 142.4387,53.654 142.4208,53.6433 142.3757,53.6299 142.3763,53.6543 142.4323,53.7423 142.4573,53.7832 142.4841,53.8645 142.4716,53.8845 142.4255,53.9213 142.3591,53.9731 142.2624,54.0487 142.2471,54.0619 142.225,54.0849 142.1557,54.1743 142.1635,54.2026 142.2417,54.2105 142.2959,54.1713 142.3358,54.1681 142.4007,54.1994 142.4103,54.2186 142.3878,54.2621 142.4458,54.3543 142.4731,54.361 142.4955,54.3567 142.5103,54.3408 142.5207,54.3176 142.5343,54.2948 142.577,54.2321 142.6748,54.1513 142.7705,54.0676 142.7703,54.0219 142.7603,53.9959 142.7486,53.977 142.718,53.9481 142.6939,53.9258 142.6418,53.833 142.6452,53.7451 142.6658,53.7124 142.7194,53.6558 142.7764,53.6028 142.8694,53.4925 142.8905,53.44 142.8979,53.4137 142.8764,53.339 142.8595,53.3226 142.8792,53.3149 142.9019,53.3208 142.9221,53.332 142.943,53.3366 142.9678,53.3069 142.9933,53.2589 143.0558,53.0798 143.0984,52.8528 143.1073,52.7678 143.1077,52.671 143.1056,52.6312 143.0973,52.5376 143.0932,52.4961 143.0887,52.4696 143.0782,52.4174 143.0612,52.3759 143.0268,52.3317 143.0084,52.311 142.9726,52.2848 142.9676,52.356 142.992,52.3854 143.063,52.5252 143.0273,52.5319 142.9259,52.3208 142.9381,52.2664 142.9539,52.2527 142.9241,52.0705 142.9065,52.0161 142.9004,51.9001 142.9103,51.8632 142.946,51.801 142.9709,51.7928 142.9913,51.7931 143.0042,51.8192 143.0756,51.7066 143.0915,51.6694 143.0904,51.6448 143.0688,51.6497 143.0385,51.6183 143.0117,51.5505 142.9973,51.4663 143.0092,51.4491 143.0883,51.453 143.1096,51.5007 143.1019,51.5242 143.1087,51.5585 143.144,51.579 143.2276,51.4388 143.2354,51.4178 143.2441,51.3359 143.2353,51.2974 143.2,51.3034 143.1598,51.2861 143.2489,51.2085 143.2803,51.241 143.302,51.2084 143.3133,51.1801 143.3456,51.048 143.3503,51.0186 143.3511,51.0032 143.3687,50.9365 143.4299,50.7752 143.441,50.742 143.4686,50.6368 143.4755,50.5979 143.5045,50.4668 143.5551,50.302 143.5783,50.2359 143.5931,50.2091 143.6153,50.1814 143.6364,50.1591 143.6584,50.1369 143.6745,50.1156 143.7254,50.0465 143.779,49.9737 143.7891,49.9557 143.8509,49.7875 144.0018,49.4142 144.0132,49.3506 144.064,49.2048 144.182,48.9961 144.1971,48.9739 144.2881,48.9159 144.3071,48.9059 144.355,48.8829 144.4258,48.8455 144.454,48.8273 144.4804,48.8062 144.4902,48.7144 144.4788,48.6882 144.4802,48.6574 144.4901,48.6315 144.5032,48.6121 144.5304,48.5898 144.4714,48.5909 144.4427,48.6669 144.4398,48.6878 144.4243,48.7341 144.4049,48.765 144.347,48.8367 144.3266,48.8572 144.2367,48.932 144.1486,48.9633 144.0713,49.0155 144.0557,49.0372 144.0433,49.061 143.9359,49.1441 143.8911,49.1681 143.8497,49.1877 143.8089,49.2021 143.7706,49.2123 143.7342,49.2197 143.7095,49.2212 143.659,49.2256 143.6252,49.2298 143.4961,49.246 143.4261,49.2632 143.4261,49.2632 16,11.0,Russia 143.4261,49.2632 143.2506,49.3071 143.2184,49.329 143.1903,49.3408 143.1487,49.3439 143.0792,49.3409 143.0432,49.3231 143.1057,49.2586 143.1332,49.2572 143.1563,49.2588 143.1937,49.2622 143.224,49.264 143.2869,49.2648 143.3901,49.2636 143.4261,49.2632 143.4261,49.2632 6,2.0,Germany 10.9609,54.3168 10.9765,54.3182 10.9979,54.3157 10.9761,54.314 10.9609,54.3168 10.9609,54.3168 14,-9.0,United States -165.293,54.0457 -165.3291,54.0511 -165.3448,54.0623 -165.4033,54.172 -165.3898,54.1985 -165.3475,54.2276 -165.243,54.2289 -165.209,54.2229 -165.2014,54.1386 -165.2091,54.1101 -165.2747,54.0515 -165.2845,54.0471 -165.293,54.0457 -165.293,54.0457 21,-9.0,United States -165.6213,53.9659 -165.6357,53.9909 -165.6584,53.9977 -165.6909,53.9992 -165.713,53.9864 -165.7663,53.9745 -165.7905,53.9907 -165.8443,54.0511 -165.8132,54.1049 -165.7928,54.1154 -165.7001,54.1519 -165.6651,54.1568 -165.3826,54.0592 -165.396,54.0344 -165.4074,54.0275 -165.4206,54.0215 -165.4913,54.0009 -165.5064,54.0003 -165.5726,54.0072 -165.6213,53.9659 -165.6213,53.9659 130,-8.0,Canada -131.6933,53.2955 -131.7488,53.2095 -131.7749,53.1879 -131.8313,53.1895 -131.8685,53.1911 -131.9565,53.1762 -131.9895,53.1695 -132.0557,53.1448 -132.0319,53.1294 -132.0083,53.1311 -131.984,53.1397 -131.9167,53.1326 -131.9442,53.1081 -131.9764,53.0979 -132.1847,53.0806 -132.2373,53.0827 -132.2919,53.0993 -132.3213,53.1171 -132.3499,53.1509 -132.3656,53.1743 -132.3898,53.1881 -132.4296,53.1937 -132.4584,53.1943 -132.4598,53.2194 -132.4034,53.2383 -132.3301,53.251 -132.3388,53.2724 -132.4537,53.2649 -132.5035,53.2589 -132.5175,53.2751 -132.489,53.3108 -132.3028,53.2769 -132.195,53.2393 -132.1894,53.2752 -132.3042,53.3498 -132.3248,53.354 -132.5185,53.3912 -132.6465,53.4009 -132.7541,53.4933 -132.7729,53.5241 -132.7367,53.5387 -132.7079,53.5316 -132.6775,53.5238 -132.664,53.5401 -132.7016,53.5745 -132.7242,53.5891 -132.7885,53.6136 -132.7344,53.62 -132.7354,53.6401 -132.7649,53.68 -132.8096,53.6893 -132.8826,53.718 -132.9174,53.8146 -132.917,53.8493 -132.8955,53.8712 -132.8721,53.8887 -132.8191,53.9729 -132.8368,54.0129 -132.8586,54.0371 -132.847,54.108 -132.8134,54.1126 -132.7105,54.0953 -132.6812,54.0727 -132.596,54.058 -132.5627,54.0573 -132.5357,54.0633 -132.5142,54.0705 -132.4816,54.0758 -132.4294,54.0778 -132.3512,54.0507 -132.3368,54.0247 -132.3389,53.9821 -132.3504,53.9609 -132.3669,53.9489 -132.4086,53.9381 -132.4436,53.9204 -132.4599,53.8914 -132.4387,53.8764 -132.3518,53.9137 -132.3301,53.9335 -132.3261,53.9638 -132.1903,54.0347 -132.0737,54.0471 -132.0322,54.0222 -132.008,54.0027 -131.9266,53.9227 -131.8952,53.8088 -131.9109,53.7855 -132.0131,53.7146 -132.2559,53.645 -132.2867,53.6375 -132.3109,53.6337 -132.3442,53.634 -132.3704,53.637 -132.3971,53.6356 -132.4399,53.6198 -132.2458,53.5503 -132.2003,53.5435 -132.1006,53.6026 -132.0764,53.6065 -132.0277,53.5999 -131.9385,53.6537 -131.9341,53.7496 -131.8655,53.8097 -131.8871,53.8551 -131.9066,53.9163 -131.8528,53.9596 -131.7953,53.9587 -131.76,53.9612 -131.648,53.9919 -131.5979,54.0088 -131.5351,54.0319 -131.5079,54.0428 -131.4894,54.0532 -131.4439,54.0769 -131.4471,54.0162 -131.4533,53.9811 -131.4607,53.9568 -131.4862,53.9039 -131.502,53.8807 -131.5202,53.8605 -131.5732,53.807 -131.6114,53.7781 -131.6352,53.7534 -131.6527,53.7273 -131.7173,53.5496 -131.7232,53.4521 -131.7024,53.3371 -131.6933,53.2955 -131.6933,53.2955 44,2.0,Germany 14.2022,53.8657 14.1925,53.8371 14.1955,53.8062 14.1699,53.812 14.0593,53.8106 14.0162,53.8069 13.9772,53.7889 13.9262,53.7807 13.8623,53.7773 13.8066,53.7966 13.849,53.8152 13.9063,53.8345 13.9168,53.8518 13.9345,53.8781 13.9588,53.8996 13.9894,53.8866 14.0164,53.8796 14.0326,53.9217 14.0246,53.9422 13.9909,53.9511 13.9799,53.97 13.9569,53.9934 13.9309,53.9973 13.9009,53.9957 13.8961,53.9685 13.8773,53.9489 13.8361,53.9363 13.7997,53.9734 13.7857,54.0083 13.788,54.0412 13.7353,54.0842 13.7456,54.1025 13.79,54.1034 13.8043,54.0794 13.8429,54.0435 13.8694,54.027 13.9067,54.0165 13.9423,54.0102 13.978,54.0023 14.0815,53.9357 14.1605,53.8833 14.1906,53.8697 14.2022,53.8657 14.2022,53.8657 21,-9.0,United States -164.7011,54.0632 -164.6773,54.0656 -164.6617,54.0629 -164.6539,54.0552 -164.6541,54.0446 -164.6747,54.0201 -164.6868,54.0132 -164.7439,54.0076 -164.8012,54.0036 -164.8118,54.004 -164.9382,54.0217 -164.946,54.0297 -164.9292,54.0508 -164.8577,54.0642 -164.8127,54.0616 -164.7978,54.0562 -164.7757,54.0477 -164.7636,54.0411 -164.703,54.0587 -164.7011,54.0632 -164.7011,54.0632 55,-8.0,Canada -130.1187,54.0043 -130.0881,53.9823 -130.0423,53.9418 -130.0165,53.9157 -130.0125,53.9016 -130.0155,53.8873 -130.0261,53.8736 -130.1259,53.7743 -130.1364,53.7709 -130.1673,53.769 -130.2361,53.8025 -130.2421,53.8194 -130.1935,53.8981 -130.1842,53.9027 -130.1649,53.9023 -130.1293,53.8986 -130.1137,53.9018 -130.1271,53.922 -130.1381,53.9304 -130.2165,53.9194 -130.2272,53.9157 -130.2359,53.9049 -130.2589,53.8795 -130.2628,53.8635 -130.2714,53.8492 -130.2844,53.848 -130.3077,53.8519 -130.3365,53.846 -130.3484,53.8629 -130.3606,53.8744 -130.3778,53.888 -130.39,53.8952 -130.4048,53.8988 -130.4453,53.901 -130.4574,53.8942 -130.4792,53.8502 -130.4683,53.8389 -130.4465,53.8295 -130.43,53.8239 -130.4102,53.8121 -130.4015,53.7972 -130.4072,53.7846 -130.4142,53.777 -130.4306,53.7708 -130.4796,53.7815 -130.4939,53.7949 -130.506,53.8571 -130.5021,53.8743 -130.4473,53.9257 -130.3777,53.9631 -130.306,53.997 -130.1892,54.0381 -130.1533,54.0239 -130.1187,54.0043 -130.1187,54.0043 79,-9.0,United States -166.0108,53.6138 -166.0318,53.6142 -166.1369,53.6075 -166.2691,53.5626 -166.3588,53.4685 -166.377,53.4297 -166.4839,53.383 -166.5524,53.3756 -166.6866,53.3693 -166.7062,53.3784 -166.8645,53.355 -167.1105,53.2777 -167.2227,53.2169 -167.2795,53.2089 -167.3906,53.1934 -167.4918,53.2087 -167.569,53.2441 -167.4444,53.3113 -167.4176,53.3227 -167.3136,53.3258 -167.2818,53.3246 -167.2307,53.3373 -167.2186,53.354 -167.2051,53.3711 -167.0987,53.3656 -167.0282,53.3754 -166.8906,53.4023 -166.8098,53.4661 -166.8685,53.4888 -166.8869,53.5375 -166.8711,53.5581 -166.8471,53.567 -166.819,53.5679 -166.7922,53.5557 -166.7718,53.5314 -166.7885,53.6157 -166.7503,53.6401 -166.6305,53.6459 -166.5292,53.5862 -166.4916,53.6233 -166.4938,53.667 -166.683,53.7083 -166.7055,53.7068 -166.7283,53.6968 -166.7588,53.6899 -166.8757,53.761 -166.8835,53.7879 -166.8142,53.8545 -166.7429,53.8935 -166.4775,53.9452 -166.3912,53.9465 -166.3544,53.9366 -166.3335,53.9247 -166.316,53.9013 -166.3402,53.886 -166.3612,53.8526 -166.3602,53.8119 -166.328,53.7661 -166.193,53.8278 -166.1615,53.8604 -166.1369,53.9062 -166.0984,53.938 -165.9851,53.9094 -165.9393,53.858 -165.9724,53.8136 -165.998,53.8006 -166.1631,53.734 -166.1943,53.7267 -166.2579,53.7179 -166.2963,53.6478 -166.2756,53.623 -166.2573,53.631 -166.2245,53.6599 -166.1644,53.6884 -166.0622,53.7154 -165.9969,53.6482 -166.0016,53.6188 -166.0108,53.6138 -166.0108,53.6138 65,-8.0,Canada -130.0138,53.721 -130.0695,53.7722 -130.0636,53.7937 -130.0523,53.8157 -130.0387,53.8261 -129.9855,53.8496 -129.9743,53.8524 -129.8935,53.8226 -129.7495,53.7432 -129.6146,53.6634 -129.3846,53.488 -129.3039,53.4257 -129.2133,53.3491 -129.2232,53.3395 -129.2421,53.3138 -129.2633,53.2272 -129.2631,53.1781 -129.2961,53.1546 -129.3535,53.1456 -129.5144,53.2782 -129.5919,53.3203 -129.6103,53.3393 -129.6457,53.3939 -129.6645,53.4427 -129.6574,53.4558 -129.6571,53.4723 -129.657,53.4833 -129.6705,53.5172 -129.7042,53.5402 -129.7138,53.543 -129.73,53.5369 -129.7501,53.5296 -129.786,53.5121 -129.7982,53.5107 -129.8132,53.5124 -129.8266,53.519 -129.8379,53.5319 -129.8411,53.5457 -129.8169,53.5603 -129.7666,53.5796 -129.7438,53.5803 -129.7185,53.5751 -129.7358,53.5842 -129.7495,53.5874 -129.7731,53.596 -129.8048,53.5906 -129.8777,53.6145 -129.9462,53.6586 -129.904,53.6216 -129.8811,53.5056 -129.8943,53.5049 -129.935,53.5093 -130.0095,53.5257 -130.115,53.5555 -130.1281,53.5622 -130.1756,53.6075 -130.1883,53.62 -130.1762,53.6369 -130.0833,53.734 -130.0683,53.7355 -130.0564,53.7349 -130.0462,53.7336 -130.0315,53.7274 -130.0138,53.721 -130.0138,53.721 15,-9.0,United States -165.9454,53.6421 -165.9714,53.6549 -166.0129,53.6816 -166.0198,53.6907 -166.0228,53.7042 -166.0219,53.7166 -166.0168,53.7316 -165.9201,53.7722 -165.8965,53.7784 -165.8351,53.7862 -165.815,53.7765 -165.8432,53.7121 -165.9362,53.6426 -165.9454,53.6421 -165.9454,53.6421 25,-8.0,Canada -128.6112,53.6379 -128.6601,53.5986 -128.771,53.5199 -128.7804,53.5143 -128.864,53.4525 -128.8764,53.4399 -128.8822,53.4237 -128.8759,53.408 -128.8714,53.3985 -128.8732,53.3869 -128.9464,53.3305 -128.9555,53.5315 -128.9534,53.5485 -128.9495,53.5631 -128.9377,53.5779 -128.9284,53.583 -128.8397,53.6184 -128.826,53.6238 -128.7953,53.6305 -128.7706,53.6342 -128.6631,53.6466 -128.6157,53.6501 -128.6076,53.6435 -128.6112,53.6379 -128.6112,53.6379 36,-8.0,Canada -130.1768,53.5546 -130.1613,53.5497 -130.0614,53.5179 -129.9887,53.4916 -129.9273,53.4665 -129.7643,53.3931 -129.7314,53.3764 -129.7196,53.3693 -129.7083,53.3619 -129.6698,53.3329 -129.5182,53.1531 -129.5203,53.139 -129.532,53.1162 -129.5427,53.1027 -129.5516,53.0969 -129.6533,53.091 -129.7013,53.0945 -129.7234,53.098 -129.8762,53.2275 -129.899,53.2658 -129.9526,53.296 -129.9907,53.3165 -130.0298,53.3219 -130.0485,53.3226 -130.0789,53.3194 -130.0931,53.322 -130.1034,53.3297 -130.1882,53.4175 -130.3131,53.4898 -130.3155,53.5082 -130.3068,53.5592 -130.2938,53.5694 -130.2454,53.5751 -130.2356,53.5726 -130.1768,53.5546 -130.1768,53.5546 54,-9.0,United States -167.5203,53.4332 -167.5735,53.3409 -167.575,53.3187 -167.594,53.3093 -167.8441,53.2104 -167.8921,53.1999 -167.9198,53.1979 -167.9451,53.1934 -167.97,53.1889 -167.9993,53.1801 -168.0119,53.1742 -168.0535,53.1467 -168.0691,53.1221 -168.1008,53.0648 -168.1951,52.9871 -168.2163,52.9765 -168.3606,52.9301 -168.5987,52.8416 -168.7704,52.7712 -168.7853,52.7674 -168.8151,52.7665 -168.7818,52.7992 -168.6972,52.8481 -168.6255,52.8706 -168.6081,52.8768 -168.5997,52.8857 -168.5019,52.9956 -168.4942,53.0091 -168.4918,53.022 -168.5001,53.0307 -168.5206,53.0391 -168.5254,53.0522 -168.5182,53.0881 -168.483,53.1198 -168.4619,53.1349 -168.3469,53.2101 -168.3332,53.2106 -168.3147,53.2046 -168.2836,53.1886 -168.2673,53.184 -168.2559,53.1834 -168.148,53.1862 -168.0936,53.1927 -168.0831,53.2005 -168.071,53.2328 -168.1299,53.2835 -168.1345,53.3458 -168.0785,53.4108 -167.964,53.4663 -167.8095,53.4946 -167.7296,53.5012 -167.5797,53.457 -167.5203,53.4332 -167.5203,53.4332 4234,8.0,China 121.1908,28.6817 121.253,28.6582 121.3087,28.6502 121.3277,28.6379 121.3408,28.6103 121.3499,28.5825 121.3657,28.5172 121.3669,28.4684 121.4358,28.3611 121.4848,28.3157 121.423,28.2438 121.417,28.2714 121.3687,28.2996 121.3414,28.3066 121.2984,28.3065 121.2518,28.2721 121.2304,28.2058 121.2177,28.1568 121.1853,28.1074 121.127,28.1456 121.104,28.1735 121.0938,28.2183 121.0916,28.2439 121.0532,28.3259 121.0293,28.348 121.0088,28.3512 120.9461,28.2592 120.9586,28.2098 120.9478,28.1745 120.9258,28.1426 120.7981,27.9613 120.7794,27.9511 120.6764,27.9631 120.5229,28.0086 120.4354,28.048 120.4577,27.9875 120.5635,27.957 120.6841,27.9173 120.6843,27.8411 120.6397,27.8153 120.5391,27.6912 120.519,27.6143 120.5,27.586 120.4658,27.5662 120.4258,27.5625 120.4252,27.527 120.4311,27.5065 120.4536,27.4739 120.4846,27.4651 120.5105,27.4201 120.477,27.3411 120.4281,27.3588 120.3945,27.2937 120.389,27.253 120.3705,27.1989 120.3527,27.1775 120.3164,27.1488 120.3076,27.1727 120.2964,27.1914 120.265,27.1836 120.2618,27.1785 120.2675,27.1443 120.1836,27.2109 120.163,27.2569 120.1554,27.2805 120.1147,27.2881 120.0563,27.267 120.0351,27.2523 120.0215,27.1926 120.048,27.19 120.0685,27.215 120.1,27.2214 120.1744,27.1992 120.2662,27.1173 120.2305,27.0646 120.176,27.069 120.123,27.0802 120.0987,27.0987 120.082,27.0308 120.0809,27.0023 120.0813,26.9517 120.0498,26.886 119.9828,26.8957 119.8791,26.8682 119.8653,26.8102 119.8795,26.789 119.9044,26.7892 119.9501,26.7639 119.9738,26.6149 119.943,26.5922 119.8397,26.5697 119.7834,26.5274 119.733,26.4909 119.7068,26.4883 119.6821,26.4977 119.6793,26.5303 119.7004,26.5633 119.7492,26.5919 119.7943,26.5963 119.8222,26.6226 119.9194,26.7583 119.811,26.7649 119.7693,26.76 119.7384,26.6673 119.7388,26.6398 119.7132,26.6193 119.6379,26.6623 119.6343,26.7661 119.5344,26.7827 119.5228,26.7422 119.5341,26.7103 119.555,26.697 119.5751,26.6816 119.5502,26.6646 119.5319,26.676 119.4776,26.7212 119.4734,26.7447 119.4651,26.764 119.4233,26.7555 119.3969,26.7263 119.3806,26.6181 119.3993,26.5877 119.4463,26.5441 119.4677,26.5602 119.5125,26.5804 119.5838,26.5782 119.6267,26.5431 119.6669,26.4126 119.6354,26.3796 119.6127,26.3781 119.581,26.4057 119.5,26.4633 119.4242,26.4444 119.4126,26.4139 119.5048,26.3091 119.5364,26.2887 119.5841,26.3026 119.603,26.3363 119.6349,26.3687 119.6653,26.3893 119.7954,26.3384 119.7802,26.3193 119.7306,26.2812 119.6967,26.2934 119.6637,26.2931 119.6398,26.2741 119.6394,26.2513 119.6148,26.2602 119.5159,26.2523 119.4825,26.2272 119.44,26.1445 119.355,26.0267 119.2728,25.9679 119.2528,25.9816 119.189,26.015 119.0462,26.0793 118.9451,26.1114 119.1044,25.934 119.2018,25.909 119.295,25.9314 119.3121,25.9431 119.339,25.9657 119.3483,25.9934 119.3642,26.011 119.4193,26.0139 119.5298,25.9843 119.5531,25.9618 119.5439,25.941 119.5195,25.9006 119.4583,25.8467 119.4386,25.8348 119.4476,25.7802 119.4687,25.728 119.4281,25.6512 119.3609,25.6581 119.2998,25.6537 119.3009,25.6238 119.3052,25.5882 119.3281,25.5442 119.3534,25.529 119.4004,25.5352 119.4922,25.3881 119.4931,25.3251 119.467,25.3118 119.4619,25.3099 119.4494,25.312 119.4397,25.3323 119.4305,25.3698 119.4283,25.39 119.3526,25.4463 119.2712,25.4824 119.2269,25.5571 119.199,25.5745 119.1629,25.5778 119.1501,25.5363 119.1041,25.4725 119.0702,25.4443 119.0175,25.4266 118.9537,25.3925 118.9548,25.3687 119.0183,25.3157 119.0907,25.2964 119.1294,25.2962 119.2008,25.2249 119.1212,25.1442 118.9946,25.0905 118.9407,25.0775 118.8838,25.099 118.8806,25.1362 118.9037,25.1468 118.9174,25.1779 118.9099,25.2449 118.8417,25.2534 118.7939,25.2419 118.7237,25.2145 118.7313,25.1912 118.7613,25.1906 118.8165,25.1491 118.7882,25.0783 118.7409,25.0744 118.7094,25.0733 118.6963,25.0551 118.7177,25.0158 118.8363,24.9442 118.8611,24.9198 118.8351,24.8993 118.5677,24.8155 118.5443,24.8242 118.5559,24.8457 118.5759,24.8596 118.5567,24.9034 118.5169,24.9193 118.4233,24.8551 118.4773,24.7437 118.5018,24.7528 118.5584,24.7745 118.6136,24.7293 118.6008,24.6972 118.5085,24.5476 118.4738,24.5165 118.4463,24.5014 118.4044,24.4851 118.4041,24.5178 118.4105,24.5486 118.3713,24.5707 118.3256,24.5881 118.291,24.6008 118.2679,24.5932 118.1783,24.5564 118.0913,24.5091 118.0464,24.5831 118.0444,24.6221 118.0202,24.6545 117.8951,24.5883 117.8342,24.5367 117.8298,24.514 117.8778,24.5017 117.9032,24.49 117.8717,24.4129 117.8126,24.423 117.774,24.439 117.7449,24.4524 117.7011,24.4578 117.6755,24.4519 117.6469,24.4327 117.6867,24.3909 117.7487,24.3564 117.7865,24.3596 117.8889,24.3762 117.9468,24.3157 117.9713,24.2653 117.9758,24.2315 117.8752,24.1779 117.8122,24.1265 117.7174,24.0103 117.6162,23.8905 117.588,23.8735 117.581,23.915 117.6233,23.9615 117.6476,23.9769 117.6152,24.0331 117.5626,24.015 117.5046,23.9067 117.4677,23.8368 117.3304,23.8137 117.2193,23.7644 117.1584,23.7319 117.1207,23.7032 117.1093,23.638 117.0498,23.5981 117.0284,23.5904 116.9786,23.5651 116.911,23.6082 116.8882,23.6305 116.7722,23.6328 116.7292,23.5713 116.7342,23.5254 116.7139,23.4382 116.6795,23.3922 116.6617,23.3738 116.6153,23.3289 116.4875,23.3357 116.4597,23.3442 116.4138,23.369 116.3871,23.3941 116.3773,23.3606 116.3843,23.3379 116.4062,23.3106 116.4465,23.2853 116.478,23.2944 116.5964,23.2922 116.6421,23.2108 116.6353,23.1836 116.6038,23.198 116.3694,23.185 116.3915,23.0064 116.3925,22.981 116.3375,22.9134 116.235,22.901 116.2068,22.9037 116.1813,22.9128 116.083,22.9054 116.0341,22.8608 115.9889,22.8219 115.9343,22.8072 115.9065,22.827 115.7187,22.7639 115.7003,22.754 115.6547,22.7139 115.6406,22.7716 115.5262,22.8521 115.497,22.8588 115.4221,22.8294 115.3927,22.8074 115.4197,22.6568 115.3939,22.6338 115.2335,22.6567 115.0807,22.761 115.0979,22.8019 115.0189,22.7828 114.9058,22.7531 114.801,22.7185 114.7469,22.6775 114.7948,22.6246 114.7591,22.5211 114.7361,22.5093 114.7303,22.5081 114.7374,22.5447 114.707,22.5621 114.6297,22.5601 114.5972,22.5615 114.5764,22.615 114.5769,22.6782 114.5822,22.6997 114.6026,22.7203 114.6417,22.7315 114.6705,22.7587 114.6361,22.7884 114.548,22.7592 114.4179,22.7089 114.3794,22.6743 114.3594,22.6282 114.3843,22.5597 114.4565,22.5136 114.4723,22.479 114.3771,22.4495 114.3335,22.4998 114.3259,22.5258 114.275,22.5683 114.2504,22.5849 114.2248,22.584 114.1605,22.5684 114.1251,22.555 114.0987,22.5409 114.0814,22.5248 114.0785,22.4493 114.0984,22.406 114.1716,22.4496 114.2473,22.4051 114.2414,22.3464 114.1888,22.3519 114.1516,22.3568 114.1211,22.3348 114.1333,22.2992 114.1657,22.2607 114.1552,22.2359 114.0574,22.2931 113.8852,22.3272 113.7917,22.3296 113.7653,22.3423 113.7565,22.3804 113.8087,22.4213 113.893,22.4835 113.8898,22.4873 113.8605,22.4959 113.8084,22.4967 113.7844,22.4878 113.7204,22.4495 113.6969,22.5359 113.6581,22.6321 113.6137,22.7266 113.4655,22.8091 113.4502,22.8549 113.4619,22.9657 113.4057,22.9576 113.3825,22.9908 113.3847,23.0247 113.4063,23.0494 113.4715,23.0774 113.5652,23.1053 113.6613,23.0981 113.571,23.1294 113.5424,23.1267 113.3386,23.025 113.3531,22.9985 113.3551,22.9785 113.3397,22.8917 113.2808,22.9031 113.2376,22.885 113.2227,22.8545 113.3128,22.7664 113.3513,22.7453 113.2977,22.7126 113.3307,22.6835 113.3596,22.6533 113.4015,22.5919 113.4247,22.5242 113.4181,22.4532 113.3933,22.3973 113.3983,22.3662 113.4318,22.3451 113.4499,22.3334 113.4395,22.2249 113.4146,22.1878 113.3967,22.1836 113.392,22.1701 113.3748,22.1543 113.3172,22.1432 113.2939,22.1539 113.149,22.3301 113.1278,22.3577 113.108,22.3992 113.0738,22.4719 113.0289,22.5419 113.0152,22.4814 113.0205,22.4538 113.0472,22.4352 113.0951,22.3922 113.1556,22.3067 113.2203,22.2054 113.2474,22.1551 113.2167,22.1417 113.1956,22.1547 113.1633,22.1524 113.1167,22.0995 113.1098,22.0727 113.1133,22.038 113.0834,22.0163 112.9767,22.0653 112.9866,22.1276 112.9677,22.1874 112.9457,22.18 112.9074,22.1426 112.8737,22.1049 112.8578,22.0844 112.8482,22.0645 112.8552,21.9845 112.8634,21.9467 112.8657,21.9146 112.8397,21.8719 112.8012,21.8449 112.7532,21.8352 112.7272,21.8726 112.7075,21.9264 112.6854,21.9401 112.6148,21.9139 112.5548,21.8607 112.5328,21.8255 112.4929,21.7669 112.4728,21.7555 112.4545,21.7457 112.4287,21.7396 112.3399,21.7781 112.2479,21.7229 112.2248,21.7092 112.1978,21.6937 112.1444,21.677 112.1097,21.6819 111.9334,21.7646 111.8146,21.8286 111.7764,21.8869 111.7549,21.8918 111.7547,21.8267 111.7617,21.8018 111.7718,21.7843 111.7923,21.7686 111.8372,21.747 111.8295,21.7273 111.75,21.658 111.7215,21.649 111.6967,21.6588 111.6869,21.6959 111.6587,21.7128 111.5394,21.7538 111.5645,21.7278 111.6139,21.7029 111.6334,21.6834 111.6461,21.5885 111.6123,21.5896 111.5624,21.5873 111.5382,21.5597 111.5074,21.503 111.337,21.4886 111.2427,21.5053 111.1605,21.4743 111.0107,21.4414 110.9594,21.4432 110.9387,21.48 110.8926,21.5011 110.8566,21.4901 110.8423,21.4219 110.8642,21.4203 110.8825,21.4434 110.9235,21.4557 110.8643,21.4016 110.7414,21.3598 110.7074,21.3602 110.6867,21.3653 110.6625,21.3756 110.6008,21.3485 110.5835,21.3366 110.5575,21.309 110.5313,21.2651 110.5159,21.2308 110.4972,21.3347 110.553,21.3669 110.5774,21.3736 110.609,21.3795 110.6264,21.4021 110.5253,21.3649 110.4924,21.3458 110.4767,21.3035 110.481,21.2705 110.4872,21.2482 110.5004,21.2153 110.3979,21.1878 110.3487,21.197 110.3188,21.1849 110.298,21.1937 110.2854,21.2394 110.2855,21.2909 110.2859,21.3178 110.2895,21.3484 110.2594,21.3493 110.2375,21.2941 110.2407,21.2541 110.2738,21.2041 110.2557,21.1395 110.1954,21.0883 110.1739,21.0802 110.0658,21.0244 110.0193,20.962 110.0147,20.9088 110.0251,20.8205 110.0622,20.8116 110.1064,20.8089 110.1526,20.819 110.1833,20.8306 110.241,20.8175 110.259,20.7865 110.2668,20.76 110.2663,20.711 110.2444,20.6873 110.2191,20.7123 110.2134,20.7414 110.2079,20.7743 110.175,20.7203 110.1898,20.6168 110.2594,20.5906 110.2533,20.5815 110.2761,20.5575 110.3091,20.5435 110.3392,20.5479 110.3727,20.5049 110.3929,20.4632 110.3802,20.4069 110.3067,20.3172 110.2713,20.2806 110.175,20.2348 110.145,20.2235 110.0359,20.2182 110.0153,20.2173 109.9814,20.2179 109.9266,20.2593 109.9083,20.2751 109.8464,20.2695 109.8265,20.2537 109.791,20.2109 109.7493,20.3372 109.8176,20.3597 109.8445,20.3349 109.8755,20.3838 109.8732,20.409 109.8505,20.4254 109.8169,20.4254 109.7174,20.4816 109.6174,20.6181 109.6087,20.6368 109.5668,20.794 109.5325,20.8426 109.5291,20.9007 109.5415,20.9577 109.5578,20.9949 109.54,21.1052 109.6351,21.3108 109.6932,21.3276 109.7222,21.3355 109.7704,21.3644 109.8067,21.4232 109.7897,21.4504 109.7282,21.4559 109.6884,21.4368 109.6618,21.4896 109.6527,21.5155 109.6289,21.5557 109.6094,21.5555 109.6078,21.5487 109.6149,21.5082 109.6223,21.4872 109.6358,21.4628 109.598,21.4459 109.5262,21.4818 109.4761,21.5509 109.4269,21.6492 109.4221,21.6784 109.439,21.6991 109.3695,21.6521 109.4406,21.5534 109.4204,21.4965 109.4004,21.471 109.38,21.4584 109.2929,21.4269 109.2652,21.4249 109.2284,21.4251 109.2051,21.4247 109.1097,21.4061 109.0313,21.3877 109.0092,21.3729 108.9346,21.4084 108.9595,21.4579 108.9804,21.4635 109.0078,21.4829 109.0163,21.5093 109.0037,21.559 108.9691,21.5727 108.9076,21.5916 108.8403,21.5796 108.7776,21.5919 108.7232,21.6575 108.7327,21.6978 108.7522,21.7179 108.7871,21.7323 108.7367,21.7746 108.6805,21.7913 108.6589,21.7905 108.6769,21.7789 108.7149,21.7373 108.6984,21.6772 108.7086,21.6433 108.7194,21.6058 108.692,21.6011 108.6608,21.6158 108.6074,21.5894 108.607,21.5746 108.5754,21.6289 108.5169,21.6989 108.4731,21.8137 108.4976,21.8597 108.4715,21.8862 108.3359,21.9112 108.3195,21.8834 108.3097,21.8415 108.36,21.7434 108.4259,21.6594 108.3796,21.5662 108.3335,21.5347 108.2724,21.528 108.2618,21.5317 108.2527,21.567 108.2833,21.6 108.3054,21.6328 108.2006,21.666 108.181,21.6543 108.1873,21.5996 108.1787,21.5583 108.1513,21.5159 108.112,21.4905 108.0755,21.475 108.1034,21.5304 108.0718,21.5705 108.0022,21.536 107.9453,21.5104 107.8842,21.5296 107.8641,21.525 107.8579,21.5185 107.8367,21.5118 107.8152,21.5206 107.7843,21.5648 107.7288,21.6237 107.6509,21.6428 107.624,21.6321 107.6064,21.6206 107.5782,21.6031 107.5284,21.5858 107.4,21.5623 107.2531,21.5744 107.2312,21.581 107.2166,21.6379 107.2088,21.6574 107.1669,21.7051 107.1372,21.7 107.122,21.686 107.0822,21.6872 106.8927,21.7963 106.8843,21.8253 106.911,21.865 106.9127,21.8969 106.8897,21.9148 106.7705,21.946 106.7319,21.9545 106.6065,21.9752 106.562,22.0063 106.5373,22.1499 106.5387,22.1794 106.5608,22.1914 106.5173,22.3039 106.4871,22.3038 106.4552,22.3107 106.4335,22.3245 106.4256,22.3898 106.422,22.4063 106.4202,22.4316 106.4756,22.5796 106.4998,22.59 106.5856,22.6054 106.6553,22.7383 106.6463,22.7775 106.6256,22.7966 106.5708,22.8413 106.4606,22.8882 106.3902,22.9069 106.3685,22.88 106.3417,22.865 106.2097,22.8277 106.1629,22.8317 106.1247,22.8466 106.1207,22.8785 106.1059,22.9129 106.0921,22.9301 106.0642,22.9481 106.0033,22.9628 105.9462,22.965 105.8837,22.9568 105.8744,22.9272 105.86,22.9127 105.7461,22.8868 105.7047,22.9306 105.6578,22.9792 105.6374,22.9945 105.5085,23.0372 105.4431,23.0376 105.4348,23.0709 105.4343,23.0848 105.4304,23.1091 105.4202,23.1366 105.3965,23.1571 105.2684,23.2547 105.228,23.2982 105.1274,23.2785 104.7774,23.1545 104.6944,23.0736 104.7223,22.937 104.6023,22.7928 104.544,22.7878 104.522,22.8009 104.4443,22.8046 104.4103,22.7837 104.3651,22.7455 104.3319,22.7167 104.2458,22.6621 104.23,22.6618 104.1363,22.7095 104.1258,22.7482 104.1303,22.8024 103.9825,22.7727 103.933,22.7151 103.9054,22.661 103.8831,22.5481 103.888,22.5275 103.8804,22.4983 103.8405,22.4787 103.7813,22.5127 103.7327,22.5521 103.6987,22.5824 103.6661,22.6262 103.5258,22.7575 103.4899,22.7541 103.4385,22.6729 103.4556,22.6235 103.4093,22.5622 103.3945,22.5592 103.38,22.5664 103.3591,22.5851 103.332,22.6141 103.2988,22.6794 103.2672,22.7465 103.2319,22.7668 103.206,22.7689 103.0397,22.5173 102.9375,22.4158 102.9034,22.4114 102.8019,22.4573 102.7538,22.5294 102.743,22.5677 102.5754,22.6589 102.3945,22.7397 102.3744,22.7464 102.3478,22.7464 102.3276,22.7284 102.2994,22.6629 102.2626,22.5841 102.1436,22.4666 102.0416,22.3984 102.0148,22.3714 101.9889,22.4079 101.9052,22.4297 101.7994,22.4122 101.6746,22.4643 101.6478,22.4747 101.6159,22.4728 101.5658,22.4473 101.5456,22.4181 101.5367,22.3865 101.55,22.3635 101.5008,22.2558 101.4496,22.1845 101.5024,21.9458 101.5477,21.9089 101.6403,21.8101 101.6275,21.7079 101.6568,21.6295 101.6431,21.4726 101.6362,21.4296 101.6188,21.3341 101.6164,21.29 101.6444,21.269 101.6819,21.262 101.7241,21.2299 101.7249,21.2159 101.7209,21.1924 101.6618,21.121 101.6084,21.116 101.5791,21.1513 101.553,21.1728 101.4846,21.211 101.4463,21.2236 101.3845,21.2232 101.2638,21.1994 101.2143,21.165 101.1684,21.1531 101.1301,21.1866 101.1109,21.2283 101.1233,21.3094 101.1409,21.3505 101.0608,21.5349 101.0245,21.5486 101.0455,21.5796 101.0431,21.6106 100.9967,21.7463 100.9751,21.7448 100.7123,21.6226 100.6847,21.5838 100.6768,21.5641 100.5981,21.4871 100.5167,21.4528 100.4492,21.4284 100.3543,21.4381 100.3334,21.4708 100.3037,21.5055 100.2503,21.5141 100.2226,21.5008 100.1602,21.4529 100.0832,21.4114 100.0448,21.4371 99.9978,21.4907 99.9848,21.5611 100.0186,21.6102 99.9613,21.6621 99.8757,21.6756 99.8551,21.7012 99.8194,21.797 99.8232,21.8321 99.8364,21.8677 99.852,21.8929 99.8677,21.9398 99.8346,22.0257 99.7693,22.0359 99.6215,22.0493 99.5866,22.0151 99.563,22.0506 99.5372,22.0628 99.4657,22.0843 99.3433,22.1111 99.3124,22.0969 99.2875,22.0817 99.2444,22.0689 99.1191,22.088 99.0457,22.1314 99.1707,22.3799 99.2083,22.4118 99.2259,22.4293 99.2401,22.4443 99.2536,22.4618 99.262,22.4819 99.2635,22.5649 99.2218,22.6848 99.3196,22.8445 99.3914,22.8871 99.4281,22.8924 99.4415,22.9109 99.388,23.0565 99.2346,23.1084 99.1349,23.092 99.1106,23.0807 99.0788,23.0744 98.9811,23.0781 98.8047,23.1635 98.7984,23.2583 98.8017,23.3013 98.7923,23.3862 98.781,23.417 98.7646,23.4468 98.7395,23.4596 98.7049,23.4543 98.6838,23.5155 98.7298,23.6115 98.6941,23.7343 98.5645,23.79 98.5564,23.944 98.6039,23.959 98.6316,23.9713 98.7251,24.0358 98.7459,24.0517 98.7738,24.0747 98.7815,24.0982 98.767,24.1333 98.7511,24.1192 98.7282,24.1036 98.4633,24.0683 98.4235,24.0976 98.3907,24.1041 98.3232,24.108 98.0977,24.0985 98.065,24.0926 97.9416,24.0623 97.9208,24.0559 97.7902,24.0 97.7743,23.9864 97.743,23.9536 97.6426,23.8962 97.57,23.8572 97.5282,23.8251 97.5237,23.8425 97.512,23.8619 97.4594,23.8945 97.4256,23.9035 97.4154,23.9218 97.5221,24.0262 97.5725,24.0665 97.5991,24.0874 97.6141,24.1083 97.626,24.1344 97.6369,24.2333 97.59,24.348 97.5425,24.4149 97.4205,24.4495 97.434,24.5097 97.439,24.5376 97.4455,24.6393 97.4377,24.6886 97.4298,24.7125 97.4557,24.7345 97.5482,24.795 97.5662,24.8068 97.6133,24.891 97.5995,24.9537 97.6018,25.0369 97.6336,25.0633 97.6654,25.1094 97.6818,25.1422 97.6905,25.1809 97.7032,25.2226 97.7279,25.2389 97.7613,25.2191 97.7847,25.1838 97.8205,25.1879 97.9412,25.2824 97.9997,25.3615 98.0106,25.382 98.0432,25.5217 98.0423,25.5426 98.0658,25.5866 98.1022,25.5646 98.1825,25.5238 98.2362,25.5409 98.2579,25.5632 98.313,25.6624 98.3524,25.7355 98.3571,25.7678 98.4151,25.8161 98.4576,25.795 98.5026,25.7745 98.5843,25.8271 98.5882,25.8635 98.5294,25.9248 98.4798,25.9601 98.4493,26.0542 98.4435,26.0961 98.4651,26.1084 98.5225,26.1186 98.5213,26.0914 98.5294,26.071 98.5531,26.0771 98.5823,26.1033 98.6048,26.1557 98.5778,26.2185 98.6005,26.3335 98.6196,26.3967 98.649,26.5762 98.6518,26.6098 98.6511,26.7618 98.6338,26.864 98.6119,26.9755 98.5842,27.1026 98.5646,27.1775 98.5668,27.1981 98.5852,27.2229 98.6087,27.2913 98.6051,27.3327 98.5754,27.3492 98.559,27.4388 98.5701,27.4991 98.5192,27.5746 98.4065,27.6199 98.3322,27.6417 98.2993,27.6019 98.2978,27.56 98.2805,27.5262 98.2502,27.5022 98.221,27.4982 98.1935,27.5093 98.1766,27.5426 98.1655,27.6017 98.1369,27.666 98.1038,27.7206 98.0695,27.8089 98.0199,27.977 98.0298,28.0897 98.0186,28.1174 98.0096,28.1247 97.8899,28.1841 97.8938,28.2378 97.7759,28.3471 97.7269,28.3405 97.7109,28.3236 97.6785,28.3141 97.6174,28.3888 97.6107,28.4248 97.5958,28.4696 97.5799,28.4872 97.4328,28.5145 97.3707,28.3854 97.3571,28.3058 97.3433,28.2661 97.3199,28.2606 97.2901,28.2634 97.2347,28.2133 97.2233,28.1914 97.1815,28.2026 97.1227,28.2549 97.1126,28.2774 97.0238,28.3413 97.0028,28.3501 96.9735,28.3488 96.9281,28.3265 96.8888,28.3021 96.8595,28.3008 96.6899,28.3352 96.6536,28.3452 96.6327,28.3746 96.6199,28.3912 96.5505,28.4266 96.5293,28.4359 96.4742,28.4365 96.3266,28.3842 96.2774,28.3194 96.2372,28.3609 96.2161,28.4933 96.2709,28.5364 96.3057,28.5588 96.4908,28.7285 96.4889,28.7636 96.4772,28.7819 96.409,28.8643 96.3598,28.9358 96.3711,29.0039 96.346,29.0241 96.2226,29.0009 96.1943,28.9833 96.1729,28.9604 96.1576,28.9426 96.1438,28.9272 96.1259,28.9084 96.0989,28.8898 96.0512,28.8692 96.0254,28.9045 96.0248,29.0272 96.0943,29.1145 96.1344,29.1319 96.1629,29.1345 96.1929,29.1381 96.2245,29.1489 96.2669,29.2248 96.2338,29.2534 96.217,29.2414 96.1678,29.2097 96.1376,29.2113 96.1088,29.2233 96.0891,29.2446 96.0625,29.2801 96.0565,29.3188 96.0233,29.3628 95.9589,29.4315 95.9281,29.4284 95.8903,29.3999 95.8248,29.3631 95.8042,29.3586 95.6658,29.3101 95.5011,29.2225 95.4179,29.1586 95.4018,29.1034 95.3382,29.0217 95.316,29.0089 95.2646,29.0028 95.2308,29.0098 95.0071,29.0849 94.8596,29.1077 94.7413,29.1425 94.6699,29.2281 94.5751,29.3036 94.5253,29.3009 94.4709,29.2398 94.4589,29.1989 94.4166,29.182 94.3592,29.1859 94.3055,29.1831 94.1863,29.1087 94.1129,29.0409 94.07,28.9764 94.0656,28.9425 94.0309,28.8985 93.9729,28.8612 93.8995,28.8038 93.8878,28.7767 93.8641,28.695 93.8405,28.6373 93.7715,28.6549 93.7373,28.6584 93.611,28.6456 93.5686,28.6322 93.5265,28.6155 93.4743,28.6218 93.4232,28.6333 93.4041,28.6435 93.3813,28.6473 93.3198,28.6236 93.27,28.6036 93.2313,28.5867 93.2082,28.5631 93.1999,28.5085 93.1612,28.461 93.0954,28.3865 93.1177,28.3556 93.1174,28.3113 93.1016,28.2875 93.0061,28.2851 92.9257,28.2785 92.8102,28.2011 92.7676,28.1673 92.7332,28.1687 92.7102,28.1814 92.6332,28.1376 92.5908,28.1104 92.5677,28.0834 92.5557,28.0492 92.5671,28.0289 92.6011,28.01 92.6,27.9478 92.5801,27.9243 92.5243,27.8851 92.4259,27.8307 92.3336,27.7952 92.2226,27.7754 92.2121,27.7636 92.1959,27.765 92.1467,27.8374 92.1387,27.7888 92.0716,27.7816 92.0276,27.7874 91.9998,27.7816 91.9559,27.7557 91.9277,27.7194 91.8959,27.7037 91.8599,27.6976 91.7666,27.7002 91.7063,27.7355 91.5399,27.7338 91.5386,27.7468 91.535,27.8051 91.5388,27.8383 91.5558,27.8668 91.5591,27.8978 91.5446,27.9137 91.5207,27.9264 91.4889,27.9383 91.4025,27.9602 91.3831,27.9583 91.3673,27.9581 91.3321,27.9661 91.3017,27.9794 91.2392,28.0105 91.2085,28.0318 91.1838,28.0497 91.1014,28.0435 91.0476,27.9948 91.0281,27.9708 91.0144,27.9525 90.9949,27.9408 90.9694,27.9387 90.903,27.9458 90.8762,27.9613 90.8504,27.9879 90.8341,28.0012 90.8009,28.0152 90.7519,28.0192 90.723,28.0168 90.6397,28.0335 90.5336,28.0471 90.5098,28.0441 90.4396,28.0438 90.4157,28.0493 90.3938,28.0478 90.3496,28.0403 90.26,28.0484 90.2369,28.0673 90.24,28.1011 90.2499,28.1191 90.2629,28.1381 90.279,28.1692 90.2724,28.2111 90.2298,28.2278 90.2031,28.2326 90.17,28.2439 90.1325,28.2533 90.1093,28.2586 90.0624,28.269 89.9045,28.2933 89.8821,28.2922 89.747,28.24 89.7208,28.2201 89.6759,28.1633 89.6308,28.1442 89.6054,28.1429 89.5771,28.1422 89.5111,28.1282 89.4725,28.1104 89.372,28.0266 89.3523,28.003 89.3407,27.986 89.3351,27.9773 89.2943,27.919 89.283,27.9018 89.2719,27.884 89.2447,27.8404 89.1542,27.7964 89.1219,27.7762 89.1035,27.7471 89.0853,27.7072 89.0648,27.666 89.0516,27.6441 89.0133,27.5925 89.0141,27.541 88.9905,27.52 88.9718,27.5076 88.9431,27.493 88.9011,27.479 88.8705,27.4582 88.853,27.4358 88.842,27.4001 88.8321,27.3547 88.8213,27.3378 88.8091,27.3149 88.8033,27.2869 88.7817,27.3029 88.7091,27.3562 88.6855,27.3857 88.667,27.413 88.6505,27.5117 88.687,27.5852 88.699,27.6012 88.7162,27.6236 88.7405,27.6931 88.7667,27.8084 88.7629,27.8444 88.7585,27.8643 88.7212,27.9766 88.6591,28.0199 88.6261,28.0384 88.51,28.0854 88.4393,28.0371 88.395,28.0094 88.2769,27.9522 88.2177,27.9485 88.0246,27.918 88.0085,27.8759 88.0185,27.8475 88.0294,27.8349 87.9783,27.861 87.9411,27.8673 87.9142,27.8575 87.8895,27.8548 87.8636,27.859 87.7595,27.8861 87.736,27.8797 87.7122,27.8387 87.6914,27.8129 87.6673,27.7939 87.6383,27.782 87.6076,27.7738 87.5476,27.7978 87.5131,27.7825 87.4779,27.7838 87.4239,27.8094 87.2964,27.8119 87.2167,27.7912 87.1936,27.7853 87.0805,27.7921 87.0293,27.8128 86.9847,27.8602 86.9745,27.8931 86.9206,27.9322 86.8352,27.9166 86.7918,27.9385 86.648,27.9992 86.6441,28.0246 86.6442,28.0508 86.6169,28.0693 86.5837,28.0801 86.4771,28.0817 86.4579,28.0691 86.4295,27.9929 86.4261,27.9286 86.4062,27.909 86.3399,27.8777 86.2407,27.9138 86.1118,27.9803 86.0857,28.0407 86.1033,28.081 86.0866,28.1267 85.9853,28.0554 85.9931,27.9955 86.0129,27.9496 86.0251,27.9041 85.9787,27.8599 85.9588,27.8569 85.8947,27.855 85.8655,27.8791 85.841,27.9817 85.7771,28.1173 85.7587,28.1359 85.7367,28.142 85.7099,28.1538 85.6701,28.1745 85.6321,28.2112 85.6108,28.2475 85.4731,28.2509 85.3488,28.2701 85.3269,28.2687 85.3039,28.2483 85.287,28.2349 85.2666,28.232 85.1738,28.2405 85.1269,28.2471 85.0302,28.2637 85.0011,28.2752 84.9937,28.2846 85.0037,28.3642 85.0252,28.4337 85.0719,28.4983 85.0851,28.5593 84.997,28.6047 84.9623,28.6095 84.9425,28.6024 84.9217,28.5718 84.8375,28.5101 84.737,28.5125 84.7137,28.5201 84.5939,28.5751 84.5991,28.6196 84.527,28.6708 84.4616,28.6805 84.3771,28.702 84.3501,28.7269 84.3213,28.7803 84.2965,28.8171 84.2797,28.8311 84.2176,28.8397 84.1356,28.8814 84.1283,28.8867 84.1239,28.9437 84.1312,29.0213 84.0532,29.0973 84.0506,29.1243 84.0717,29.1507 84.0721,29.177 84.0077,29.2285 83.8674,29.2644 83.8039,29.2571 83.6426,29.2102 83.6122,29.1964 83.5869,29.1739 83.5801,29.1515 83.5643,29.1309 83.528,29.137 83.5204,29.1334 83.498,29.132 83.44,29.1564 83.3066,29.3329 83.2728,29.3834 83.2696,29.4046 83.2712,29.4334 83.2466,29.4577 83.1497,29.5471 83.0836,29.5986 83.0573,29.6001 83.0131,29.5891 82.9525,29.5901 82.9106,29.6254 82.8913,29.6367 82.8008,29.6575 82.7648,29.6337 82.6695,29.7008 82.5454,29.8049 82.4917,29.859 82.3143,29.9768 82.1183,30.0416 82.0689,30.0355 82.0447,30.0866 82.0048,30.3006 81.8452,30.33 81.747,30.3429 81.7021,30.3297 81.622,30.3585 81.5489,30.3852 81.5244,30.3909 81.4549,30.3504 81.4449,30.3245 81.4401,30.2981 81.3881,30.3075 81.3608,30.3256 81.3415,30.3433 81.3208,30.3509 81.3029,30.3417 81.2853,30.2816 81.2873,30.2319 81.2753,30.1387 81.1933,30.0446 81.1733,30.0337 81.142,30.023 81.148,29.9954 81.127,29.9786 81.0945,29.9841 81.0559,29.9967 81.0144,29.9859 80.9911,30.0513 80.9687,30.0949 80.9392,30.1423 80.9202,30.1707 80.9251,30.1798 80.8886,30.2301 80.843,30.2411 80.7971,30.252 80.7039,30.2905 80.6862,30.3032 80.669,30.3261 80.6537,30.3518 80.5073,30.438 80.4808,30.4422 80.4168,30.4434 80.2984,30.4923 80.2122,30.5319 80.1854,30.5367 80.1285,30.5399 80.1028,30.5412 80.1198,30.5635 80.1499,30.6994 80.0847,30.7606 79.857,30.8499 79.8462,30.8505 79.8261,30.8536 79.7945,30.8845 79.7823,30.9153 79.7592,30.9312 79.6418,30.9547 79.557,30.9391 79.529,30.9221 79.5066,30.9041 79.4512,30.9224 79.3162,31.0174 79.2901,31.0662 79.2369,31.086 79.2113,31.1 79.1388,31.2067 79.1151,31.2659 79.1179,31.2909 79.0613,31.3602 78.9782,31.402 78.9415,31.3917 78.916,31.3748 78.7752,31.2568 78.7151,31.2531 78.6661,31.274 78.6103,31.4675 78.6197,31.4899 78.6699,31.5176 78.74,31.5722 78.6622,31.6396 78.6135,31.691 78.5908,31.7441 78.6339,31.8543 78.6429,31.8746 78.6503,31.8856 78.6592,31.9042 78.6686,31.9328 78.6294,31.9706 78.5851,31.9951 78.5546,32.024 78.4956,32.089 78.4773,32.1261 78.4595,32.1539 78.4359,32.1785 78.3742,32.2072 78.3848,32.2156 78.3703,32.396 78.3147,32.474 78.3046,32.4828 78.2952,32.4983 78.304,32.5199 78.3976,32.5462 78.4343,32.5355 78.4702,32.5302 78.5365,32.5413 78.5617,32.5491 78.5806,32.5627 78.6032,32.5929 78.6438,32.6027 78.6669,32.5892 78.6729,32.562 78.6627,32.5098 78.6723,32.4536 78.6834,32.4357 78.7004,32.4165 78.8202,32.3289 78.8686,32.3147 78.9753,32.3453 79.0201,32.4216 79.0369,32.4436 79.0696,32.4588 79.1059,32.4695 79.1278,32.4756 79.1503,32.4798 79.1992,32.4595 79.3497,32.5628 79.3733,32.5853 79.3871,32.6012 79.3992,32.6183 79.4123,32.6381 79.427,32.6913 79.4254,32.7199 79.3451,32.8474 79.312,32.8734 79.2951,32.8851 79.2706,32.9004 79.2535,32.9316 79.2629,33.024 79.272,33.0626 79.1718,33.1525 79.1483,33.1574 79.1205,33.1666 79.0856,33.1853 79.0812,33.1889 79.0463,33.1985 78.9983,33.2164 78.8921,33.2806 78.8436,33.3475 78.8341,33.3708 78.7967,33.3904 78.7521,33.4231 78.7321,33.4449 78.7115,33.483 78.7045,33.5116 78.7035,33.5787 78.7081,33.6202 78.7126,33.666 78.7154,33.7121 78.7148,33.7322 78.7098,33.7796 78.7048,33.7993 78.6612,33.9208 78.6446,33.9584 78.6306,34.0006 78.6336,34.0303 78.649,34.056 78.6723,34.0717 78.6937,34.0781 78.7137,34.0821 78.7518,34.0925 78.7959,34.1078 78.8481,34.1376 78.8764,34.1594 78.899,34.1864 78.9096,34.2196 78.908,34.2511 78.8997,34.2721 78.8828,34.3117 78.849,34.3424 78.6079,34.4828 78.5518,34.5076 78.5236,34.5164 78.5033,34.521 78.4808,34.5232 78.3862,34.533 78.3543,34.5353 78.2985,34.5451 78.2642,34.5554 78.2355,34.5732 78.2028,34.6102 78.1899,34.6312 78.1772,34.6831 78.129,34.8251 78.1114,34.849 78.0944,34.8629 78.0798,34.8822 78.0714,34.9067 78.0673,34.9381 78.0176,35.0768 77.9888,35.1163 77.9523,35.1769 77.9222,35.2414 77.9232,35.2848 77.9335,35.3158 77.9698,35.399 77.9842,35.434 77.9708,35.4594 77.9405,35.4659 77.8881,35.4533 77.8485,35.4169 77.8113,35.3975 77.7816,35.4033 77.7547,35.4217 77.729,35.4511 77.7232,35.4618 77.6827,35.464 77.6521,35.4479 77.6127,35.424 77.584,35.4225 77.5183,35.4335 77.4609,35.4412 77.4352,35.4442 77.4067,35.4444 77.3835,35.4411 77.3526,35.433 77.3212,35.433 77.2928,35.4419 77.1514,35.4938 77.0094,35.5164 76.7955,35.5728 76.6732,35.618 76.657,35.6298 76.6373,35.6562 76.6195,35.6702 76.5937,35.6831 76.525,35.7094 76.4947,35.7174 76.4726,35.7488 76.4714,35.7813 76.4538,35.8665 76.3412,35.8191 76.2858,35.8013 76.1979,35.7826 76.1306,35.7734 76.0817,35.7744 76.0576,35.7907 76.0548,35.828 76.0559,35.8589 76.0284,35.9321 76.0101,35.9517 75.9866,35.9614 75.9599,35.9646 75.9303,35.9621 75.909,35.9612 75.8876,35.9658 75.8692,35.9745 75.8545,35.9884 75.83,36.0304 75.8201,36.0697 75.8428,36.0889 75.8922,36.119 75.9428,36.1971 75.9116,36.4013 75.9028,36.4238 75.805,36.5819 75.7606,36.6225 75.7396,36.6375 75.6906,36.6686 75.6553,36.6885 75.6134,36.7056 75.5657,36.7174 75.5403,36.7225 75.4531,36.7269 75.4254,36.6918 75.3743,36.6845 75.3533,36.6906 75.3367,36.7022 75.327,36.7229 75.3243,36.7604 75.3257,36.7922 75.3271,36.8169 75.3003,36.8702 75.2778,36.8834 75.2173,36.8988 75.1786,36.905 75.1406,36.9114 75.1137,36.9175 75.0832,36.9297 75.0494,36.9556 74.9158,36.9508 74.8843,36.9454 74.7195,36.9805 74.5987,37.0194 74.5777,37.0185 74.4676,36.9864 74.4314,37.0079 74.2976,37.1047 74.2935,37.1284 74.4301,37.199 74.5097,37.2093 74.5714,37.2241 74.6417,37.2595 74.6622,37.2573 74.6754,37.2315 74.7104,37.1824 74.8173,37.1958 74.8468,37.2057 74.9802,37.271 74.9979,37.2802 75.0885,37.3646 74.9707,37.4639 74.9395,37.4799 74.8555,37.5175 74.8367,37.5367 74.8225,37.5618 74.805,37.6102 74.8159,37.628 74.8405,37.644 74.8875,37.7443 74.8611,37.7644 74.8282,37.7783 74.8074,37.7994 74.8111,37.8728 74.8169,37.9654 74.8059,37.9833 74.7647,38.0014 74.7456,38.0089 74.7186,38.0313 74.6933,38.1523 74.6951,38.2578 74.7038,38.2821 74.7197,38.3004 74.7418,38.3188 74.7627,38.3424 74.7687,38.378 74.7548,38.4294 74.6938,38.4803 74.5785,38.5205 74.2957,38.6165 74.2558,38.6311 74.0465,38.6335 74.0241,38.6237 73.9636,38.5509 73.9772,38.5238 73.9801,38.5017 73.869,38.4908 73.8409,38.4967 73.7438,38.5477 73.7157,38.5695 73.7058,38.5908 73.7038,38.6066 73.6647,38.718 73.6252,38.7949 73.6101,38.8147 73.6097,38.8428 73.6248,38.8688 73.6512,38.8857 73.6826,38.8929 73.7207,38.8936 73.747,38.9037 73.7534,38.929 73.7429,38.9525 73.6773,39.0059 73.6295,39.0326 73.5214,39.1917 73.5294,39.217 73.5467,39.249 73.5698,39.2974 73.57,39.3212 73.5564,39.4105 73.6863,39.4237 73.7404,39.4294 73.7641,39.4409 73.855,39.5554 73.825,39.6483 73.8074,39.6836 73.7626,39.7005 73.7432,39.7242 73.748,39.7723 73.8905,39.9969 73.9239,40.0224 74.0884,40.0665 74.125,40.0723 74.1568,40.0663 74.1938,40.0478 74.2211,40.0476 74.2533,40.0528 74.2823,40.0626 74.3135,40.0774 74.3409,40.0943 74.4132,40.143 74.4508,40.1777 74.4986,40.2168 74.6323,40.2953 74.6585,40.2995 74.7188,40.2866 74.7468,40.2794 74.7789,40.2824 74.7885,40.3036 74.7749,40.3199 74.743,40.347 74.724,40.3624 74.7299,40.418 74.7427,40.4582 74.7566,40.4716 74.78,40.4736 74.8056,40.463 74.834,40.4462 74.8686,40.4281 74.8886,40.4204 74.9188,40.4112 74.9635,40.4021 75.1313,40.4048 75.1748,40.4368 75.2368,40.4809 75.3832,40.5631 75.4277,40.5841 75.4796,40.5987 75.5009,40.5827 75.521,40.5489 75.5265,40.5241 75.5255,40.4922 75.5625,40.3284 75.5758,40.2896 75.585,40.2665 75.6005,40.2526 75.7966,40.2558 75.8397,40.2696 75.8632,40.3 75.8799,40.3212 75.9414,40.3433 75.9644,40.3502 75.9955,40.3527 76.1196,40.3582 76.2108,40.3393 76.2302,40.3079 76.3459,40.3585 76.3891,40.3913 76.4097,40.4135 76.4218,40.4533 76.433,40.474 76.4464,40.4937 76.4653,40.5166 76.4819,40.5319 76.5254,40.557 76.5397,40.5732 76.5436,40.6587 76.5435,40.6953 76.6857,40.9049 76.7654,40.9665 76.7918,40.975 76.8158,40.9813 76.9159,41.0032 76.9676,41.0005 77.0033,40.981 77.0343,40.9698 77.1685,40.96 77.232,40.9812 77.276,40.9787 77.3302,40.9664 77.3686,40.9509 77.3996,40.94 77.4372,40.9404 77.5782,40.9559 77.6735,40.9944 77.721,41.0163 77.7538,41.0236 77.891,41.014 77.9217,41.01 77.9481,40.9976 77.9738,40.9946 78.0315,41.023 78.0818,41.055 78.0993,41.0696 78.1294,41.0993 78.1387,41.1189 78.1447,41.1291 78.1577,41.1515 78.1831,41.1831 78.1999,41.1957 78.219,41.2069 78.2622,41.2285 78.2756,41.2474 78.2689,41.2717 78.2559,41.3064 78.2628,41.3261 78.2877,41.3464 78.4231,41.4173 78.5625,41.485 78.5874,41.496 78.6186,41.5071 78.65,41.5162 78.8497,41.5947 78.9507,41.6354 79.0382,41.6728 79.2315,41.7449 79.417,41.7841 79.5493,41.836 79.5839,41.8374 79.6122,41.8345 79.6435,41.8352 79.6817,41.8476 79.7055,41.8775 79.716,41.9186 79.7343,41.9447 79.763,41.9661 79.786,41.9725 79.8134,41.9777 79.8668,41.9869 79.9149,41.9889 79.9515,41.9873 80.0289,41.9785 80.0692,41.9792 80.1033,41.9833 80.1345,41.9921 80.1585,42.007 80.1707,42.0356 80.1352,42.1276 80.123,42.1486 80.174,42.1683 80.1827,42.2046 80.1594,42.2701 80.1426,42.2868 80.1273,42.3156 80.0469,42.5844 80.061,42.6125 80.1313,42.7408 80.1465,42.7674 80.1704,42.7815 80.201,42.7793 80.2292,42.774 80.2577,42.7767 80.4604,42.8371 80.4627,42.8637 80.4388,42.8814 80.4097,42.8864 80.3784,42.8909 80.3305,42.9082 80.2765,42.9463 80.2724,42.9806 80.5034,43.0836 80.5428,43.0935 80.5661,43.0932 80.6003,43.0731 80.6312,43.0592 80.6623,43.0604 80.6913,43.076 80.7036,43.0994 80.703,43.1194 80.6656,43.2223 80.6271,43.4165 80.5692,43.504 80.5068,43.6165 80.4716,43.6868 80.4412,43.7637 80.4308,43.771 80.4172,43.7917 80.4056,43.8152 80.3964,43.8451 80.3883,43.8662 80.3234,43.9842 80.2567,44.064 80.2543,44.1052 80.2749,44.1486 80.2837,44.1814 80.2877,44.2111 80.2661,44.3075 80.2444,44.3739 80.2371,44.397 80.2726,44.5854 80.3998,44.6555 80.4032,44.6835 80.3237,44.7148 80.1695,44.7687 80.1497,44.7736 80.1172,44.773 80.0387,44.7583 79.9412,44.7448 79.9064,44.7431 79.8865,44.7483 79.762,44.8174 79.7593,44.8518 79.9648,44.9738 80.0014,44.9864 80.0276,44.9906 80.051,44.99 80.0809,44.9873 80.1491,44.9848 80.2886,44.9993 80.3136,45.0088 80.4125,45.0572 80.6308,45.0983 80.6532,45.1007 80.8041,45.099 80.8908,45.1171 81.0342,45.1546 81.1256,45.1831 81.283,45.2189 81.3377,45.2267 81.3724,45.2296 81.4173,45.2381 81.4425,45.2445 81.4688,45.2558 81.4915,45.2684 81.532,45.2903 81.5648,45.2981 81.5995,45.3005 81.6374,45.2937 81.6687,45.2698 81.6832,45.2544 81.6971,45.2214 81.6931,45.1681 81.7098,45.1448 81.8335,45.1062 81.8626,45.1027 81.8985,45.108 81.9288,45.1174 81.9572,45.1299 82.0081,45.1471 82.0534,45.1612 82.1097,45.1763 82.1559,45.1845 82.1819,45.1865 82.207,45.1826 82.233,45.1683 82.344,45.0875 82.3666,45.0762 82.3999,45.068 82.4301,45.0712 82.451,45.0817 82.4712,45.1014 82.4883,45.1279 82.5167,45.1818 82.5268,45.2148 82.5367,45.2565 82.5429,45.2938 82.5442,45.334 82.5399,45.3585 82.5305,45.3843 82.495,45.4044 82.4733,45.4122 82.4462,45.4182 82.41,45.4242 82.3702,45.4256 82.2944,45.433 82.2381,45.4476 82.2198,45.4588 82.2044,45.4777 82.1995,45.4931 82.2065,45.5313 82.2714,45.6631 82.298,45.71 82.33,45.7456 82.3485,45.7675 82.3647,45.7885 82.378,45.8114 82.3948,45.8498 82.4042,45.8803 82.4178,45.9316 82.4427,46.0227 82.4437,46.0561 82.4461,46.0846 82.4549,46.1152 82.4905,46.1776 82.5171,46.2114 82.5389,46.2332 82.555,46.2491 82.5759,46.2739 82.5922,46.3012 82.6405,46.4213 82.6804,46.5339 82.6901,46.5698 82.6986,46.5887 82.7249,46.6455 82.7564,46.7101 82.7809,46.7519 82.8115,46.7894 82.8348,46.8147 82.8536,46.84 82.8797,46.8767 82.8931,46.8998 82.9008,46.9218 82.9134,47.0306 82.9202,47.1109 82.9159,47.1468 82.9434,47.1659 83.0029,47.1707 83.0363,47.1708 83.0671,47.1628 83.0662,47.1579 83.1116,47.1303 83.1377,47.1227 83.1804,47.1185 83.2095,47.114 83.2361,47.1063 83.306,47.0818 83.3244,47.0702 83.3413,47.0568 83.4396,47.0098 83.4929,46.9949 83.5746,46.9833 83.6195,46.9759 83.6411,46.972 83.6618,46.967 83.6868,46.9584 83.7345,46.9375 83.7807,46.9235 83.811,46.9196 83.9661,46.9181 83.9914,46.9181 84.0236,46.9269 84.0599,46.9452 84.1036,46.9502 84.1748,46.954 84.1994,46.953 84.4739,46.9374 84.5319,46.9407 84.5577,46.94 84.5976,46.9251 84.6538,46.8822 84.6615,46.861 84.6534,46.8361 84.64,46.8133 84.6241,46.7799 84.6829,46.7743 84.842,46.8112 84.8559,46.8219 84.8638,46.8428 84.9026,46.8642 84.9431,46.8692 84.9615,46.8782 84.9766,46.8913 85.0475,46.9282 85.0707,46.9467 85.0841,46.9635 85.0976,46.9852 85.1456,46.9989 85.1771,46.997 85.2589,46.9976 85.4006,47.0053 85.4436,47.0831 85.5671,47.164 85.5791,47.2084 85.5806,47.3218 85.5597,47.3551 85.5171,47.3986 85.4993,47.419 85.4867,47.4453 85.4815,47.4679 85.4899,47.5075 85.5006,47.5432 85.4995,47.5667 85.4627,47.7094 85.4333,47.8066 85.4241,47.8356 85.414,47.8826 85.4218,47.915 85.4465,47.9414 85.4565,47.9616 85.4779,48.016 85.4825,48.037 85.4801,48.0697 85.4945,48.11 85.615,48.3009 85.6417,48.3381 85.6587,48.3506 85.6791,48.3585 85.7147,48.3654 85.7346,48.3681 85.7907,48.3735 85.906,48.3815 85.9734,48.3791 86.0139,48.3765 86.0367,48.373 86.0612,48.3714 86.1098,48.371 86.1721,48.4004 86.1824,48.4188 86.1972,48.4322 86.219,48.4399 86.2572,48.4442 86.2897,48.442 86.3125,48.4382 86.3427,48.4391 86.4724,48.4872 86.4794,48.5145 86.5123,48.5523 86.5287,48.5684 86.584,48.613 86.6327,48.6456 86.6526,48.6652 86.6812,48.768 86.6422,48.8295 86.6197,48.8547 86.608,48.8852 86.6045,48.9157 86.6441,48.9674 86.749,49.0541 86.9935,49.0748 87.048,49.076 87.0738,49.0669 87.1888,49.0414 87.2204,49.0364 87.2462,49.0289 87.2842,49.0222 87.3187,49.0213 87.3389,49.0235 87.3792,49.043 87.3913,49.0611 87.577,49.1065 87.679,49.1151 87.7076,49.1171 87.7393,49.0572 87.7705,48.9496 87.7646,48.927 87.7447,48.899 87.714,48.889 87.6842,48.8839 87.6466,48.8634 87.6331,48.8251 87.7145,48.7387 87.8059,48.7058 87.8293,48.7106 87.8634,48.7098 87.911,48.6913 87.9314,48.6791 87.9583,48.6407 87.9046,48.5912 87.8467,48.555 87.8397,48.5321 87.8642,48.51 87.886,48.5008 87.9195,48.4893 88.0633,48.4451 88.0848,48.4462 88.1139,48.4502 88.1921,48.4244 88.3886,48.3505 88.4627,48.2931 88.4639,48.2615 88.4551,48.2318 88.4703,48.1752 88.4839,48.1568 88.5317,48.1248 88.733,48.0614 88.8092,48.0591 88.828,48.0479 88.8908,47.9956 88.911,47.9756 88.9351,47.951 88.9567,47.939 89.0963,47.9259 89.1647,47.9462 89.2611,47.9917 89.4195,47.987 89.4637,47.9724 89.4735,47.9529 89.4725,47.9276 89.5412,47.8567 89.6564,47.7747 89.8021,47.7805 89.8334,47.7937 89.8395,47.8232 89.8622,47.8388 89.9412,47.8331 89.961,47.8083 89.9518,47.7761 89.9578,47.7351 89.9707,47.7142 90.0138,47.6778 90.1389,47.6427 90.2216,47.5735 90.2701,47.5025 90.2955,47.4734 90.3363,47.4462 90.3641,47.2629 90.4149,47.1907 90.4523,47.1423 90.5822,46.9881 90.64,46.944 90.6817,46.9405 90.7065,46.9413 90.728,46.9351 90.7609,46.917 90.7843,46.8987 90.821,46.8365 90.8999,46.6986 90.9143,46.6716 90.9074,46.6178 90.8915,46.5469 90.9414,46.5244 90.9323,46.4898 90.9247,46.4707 90.832,46.2984 90.8027,46.2726 90.793,46.2442 90.8335,46.145 90.8471,46.1207 90.8609,46.1031 90.8886,46.0817 90.8984,46.0556 90.8982,45.965 90.8754,45.9435 90.8369,45.9208 90.8175,45.9064 90.7465,45.8508 90.7291,45.8349 90.5922,45.6835 90.5549,45.5278 90.557,45.4402 90.5913,45.4183 90.6265,45.3986 90.6501,45.3848 90.6805,45.3194 90.7699,45.2016 90.884,45.1722 90.9116,45.1729 91.0107,45.1622 91.037,45.1496 91.0633,45.1195 91.103,45.0999 91.1231,45.0923 91.1584,45.0827 91.2514,45.0676 91.2741,45.075 91.3159,45.1017 91.3433,45.101 91.374,45.073 91.4024,45.0459 91.4332,45.0261 91.7395,45.0237 91.8846,45.0311 91.9101,45.0329 91.9388,45.032 91.9638,45.0284 92.1811,44.9753 92.363,44.9525 92.5236,44.9709 92.5911,44.9827 92.6272,44.9901 92.6587,44.9966 92.7531,44.9946 92.7985,44.9745 92.86,44.9587 92.9564,44.9591 93.0182,44.9597 93.0418,44.9628 93.0491,44.9655 93.1023,44.9469 93.1297,44.9389 93.1614,44.9326 93.1866,44.9339 93.2392,44.9397 93.3996,44.9113 93.4235,44.9063 93.4431,44.8998 93.5238,44.872 93.5437,44.8648 93.5848,44.8459 93.6039,44.8249 93.6242,44.8117 93.7042,44.7778 93.7291,44.7677 93.788,44.747 93.8387,44.7266 93.9538,44.6721 93.979,44.6593 94.1143,44.5818 94.1813,44.5398 94.1981,44.5245 94.211,44.5069 94.3096,44.4651 94.3976,44.4296 94.4707,44.4013 94.5238,44.3653 94.5521,44.3424 94.5705,44.3221 94.585,44.3048 94.8958,44.2069 95.046,44.2228 95.0697,44.2254 95.1526,44.2378 95.2771,44.2442 95.2867,44.2258 95.264,44.1982 95.2426,44.1762 95.2171,44.1276 95.213,44.1082 95.208,43.9694 95.2258,43.96 95.2508,43.9557 95.2933,43.949 95.3445,43.9439 95.4,43.9435 95.4936,43.8096 95.5054,43.7563 95.5123,43.7354 95.5229,43.7095 95.5318,43.689 95.5413,43.6701 95.5868,43.5827 95.6128,43.5356 95.6451,43.4846 95.6742,43.4394 95.7009,43.4048 95.7175,43.3861 95.7318,43.3617 95.7361,43.3059 95.7367,43.2705 95.7458,43.2351 95.784,43.1851 95.8068,43.1678 95.9894,43.0331 96.2232,42.8583 96.2485,42.6868 96.2646,42.6834 96.4348,42.6958 96.5918,42.7061 96.6268,42.7079 96.7121,42.7105 96.8252,42.7117 96.864,42.7132 97.0305,42.7476 97.251,42.7191 97.3146,42.7095 97.3563,42.7037 97.3979,42.698 97.4675,42.6883 97.6199,42.6664 97.691,42.6556 97.9383,42.6188 98.0631,42.6 98.0851,42.5976 98.1835,42.5926 98.2257,42.5906 98.3518,42.5837 98.6322,42.5676 98.9823,42.546 99.1029,42.5386 99.1648,42.5356 99.3724,42.5237 99.8478,42.6055 99.893,42.6008 99.9946,42.5962 100.1159,42.5929 100.1736,42.6415 100.5574,42.6334 100.7026,42.629 100.8329,42.6042 101.0793,42.5566 101.2707,42.5194 101.4547,42.4826 101.6736,42.4618 101.8513,42.2751 101.8944,42.2284 101.9361,42.1856 102.3008,42.1036 102.3296,42.1071 102.3736,42.1142 102.4085,42.1192 102.5704,42.114 102.7405,42.049 103.0014,41.9467 103.2097,41.8652 103.2736,41.84 103.7061,41.7553 103.9258,41.7572 104.3826,41.8301 104.3813,41.7143 104.3797,41.6238 104.5403,41.599 104.7034,41.6029 104.786,41.605 104.8619,41.5399 105.0774,41.6997 105.2055,41.738 105.3295,41.7873 105.4425,41.844 105.7092,41.94 105.9759,42.03 106.3493,42.1542 106.6344,42.2477 106.7069,42.2527 106.8381,42.2629 106.8698,42.2682 107.1139,42.3123 107.1288,42.3626 107.327,42.4185 107.3478,42.4152 107.3738,42.4017 107.3959,42.3828 107.414,42.3679 107.7584,42.3603 108.0744,42.4111 108.0994,42.4143 108.1567,42.3893 108.3776,42.3945 108.5295,42.3745 108.6966,42.352 108.8489,42.4104 108.9469,42.4015 109.1592,42.3823 109.1695,42.3999 109.2422,42.4027 109.3623,42.4085 109.3931,42.426 109.5379,42.5078 109.5917,42.5277 109.7828,42.5929 109.8475,42.5942 109.9536,42.5978 109.9806,42.6256 110.2081,42.7022 110.2874,42.7294 110.2958,42.7495 110.3187,42.7979 110.362,42.8221 110.4112,42.8483 110.4695,42.8914 110.4862,42.908 110.52,42.9548 110.536,43.0051 110.589,43.0454 110.7174,43.1532 110.8351,43.2678 110.9225,43.3102 111.0708,43.3561 111.1715,43.383 111.3473,43.4452 111.483,43.4942 111.6013,43.6005 111.6279,43.6232 111.7414,43.6247 111.8023,43.6429 111.8082,43.6627 111.8206,43.7199 111.8035,43.7858 111.7231,43.889 111.6521,43.9468 111.5615,43.9839 111.5208,44.0001 111.4011,44.1248 111.3692,44.1934 111.2736,44.2828 111.2654,44.3251 111.273,44.3686 111.283,44.3888 111.3027,44.4082 111.3194,44.4261 111.34,44.4487 111.3598,44.4708 111.3994,44.5199 111.4122,44.5466 111.4155,44.5699 111.4143,44.5981 111.4115,44.6264 111.4743,44.7234 111.6086,44.9223 111.6283,44.9497 111.7169,44.9984 111.8243,45.0406 111.8946,45.0493 111.9274,45.04 111.9409,45.024 112.0743,45.0201 112.2077,45.0166 112.2704,45.0293 112.343,44.9827 112.3988,44.9428 112.4345,44.9 112.4496,44.8754 112.695,44.7954 112.9843,44.7446 113.0839,44.7379 113.3519,44.7266 113.3927,44.702 113.4787,44.6946 113.5628,44.7424 113.5855,44.7594 113.6576,44.8108 113.7572,44.8717 113.81,44.8733 113.8308,44.874 113.8628,44.8787 113.9157,44.8881 113.9709,44.9295 113.9854,44.9453 114.0835,45.0198 114.1774,45.0782 114.1987,45.0919 114.294,45.1549 114.381,45.2712 114.383,45.2973 114.3847,45.3379 114.5823,45.3889 114.6842,45.3587 114.7771,45.3311 114.8083,45.3334 115.013,45.3522 115.1334,45.3489 115.2308,45.3472 115.3128,45.3626 115.54,45.407 115.6386,45.4937 115.7745,45.584 115.8685,45.6335 115.9256,45.6313 115.9492,45.6291 115.987,45.6415 116.0264,45.6567 116.0472,45.6698 116.1168,45.757 116.1051,45.7911 116.0759,45.8241 116.0727,45.8486 116.1013,45.8984 116.1304,45.9437 116.1952,46.0312 116.2201,46.0599 116.2551,46.0887 116.295,46.1156 116.3763,46.1725 116.4054,46.1997 116.4207,46.243 116.5071,46.2746 116.5937,46.2783 116.612,46.2984 116.6537,46.3302 116.6763,46.3407 116.7368,46.3311 116.9131,46.3091 117.2048,46.3116 117.2164,46.3461 117.2096,46.3661 117.2268,46.4044 117.2777,46.4749 117.2586,46.5176 117.4352,46.5527 117.466,46.4982 117.55,46.4609 117.6786,46.4836 117.696,46.5112 117.709,46.5284 117.7412,46.5519 117.7666,46.5663 117.9498,46.6248 118.1231,46.6778 118.1467,46.6832 118.2414,46.6665 118.2687,46.6459 118.2882,46.6412 118.6061,46.6336 118.6189,46.6634 118.673,46.7098 118.6979,46.7185 118.718,46.7164 118.8031,46.689 118.851,46.664 118.8698,46.64 118.9017,46.6196 118.9226,46.6135 119.1313,46.5679 119.1937,46.5614 119.2265,46.5645 119.2479,46.5736 119.2716,46.5833 119.2933,46.5861 119.3664,46.5814 119.483,46.5699 119.5098,46.5509 119.537,46.546 119.5815,46.5604 119.6847,46.6033 119.7279,46.6236 119.7612,46.6617 119.752,46.8488 119.7008,46.8681 119.6281,46.9443 119.6193,46.9653 119.6182,47.0295 119.6046,47.0562 119.5568,47.1127 119.4852,47.1655 119.4549,47.1873 119.3273,47.2675 119.2684,47.3029 119.236,47.3164 119.1678,47.3656 119.1702,47.408 119.0705,47.4551 118.9788,47.4796 118.9604,47.5799 118.954,47.6107 118.885,47.6312 118.8013,47.6562 118.6491,47.7017 118.5965,47.718 118.4965,47.8242 118.4373,47.8859 118.3684,47.9399 118.2237,47.949 118.0597,47.975 117.8855,47.958 117.7098,47.9635 117.6685,47.9603 117.6348,47.9564 117.4928,47.8391 117.4721,47.8196 117.4474,47.7954 117.2141,47.6029 117.1843,47.603 117.1595,47.6146 116.9452,47.7521 116.7065,47.8334 116.6247,47.8274 116.559,47.8212 116.4247,47.8025 116.3401,47.7906 116.2012,47.8042 116.0951,47.8234 115.9486,47.7671 115.9305,47.75 115.8733,47.6977 115.7996,47.6356 115.7566,47.6372 115.4279,47.8629 115.3823,48.0883 115.4542,48.1181 115.6682,48.1971 115.667,48.2186 115.6641,48.251 115.6613,48.2832 115.6545,48.3476 115.643,48.465 115.7735,48.6081 115.7993,48.6348 115.915,48.76 115.8899,48.8122 115.9602,48.9194 116.1094,49.1429 116.1783,49.2452 116.2597,49.3657 116.3291,49.4681 116.3982,49.5697 116.4744,49.6809 116.5387,49.7731 116.5482,49.767 116.5793,49.7523 116.7508,49.676 116.7888,49.6592 116.8103,49.6525 116.9972,49.5955 117.0371,49.5849 117.0616,49.5793 117.0865,49.5743 117.1146,49.5696 117.1454,49.5674 117.1814,49.5677 117.2611,49.5697 117.3212,49.566 117.3521,49.5573 117.4,49.5391 117.5653,49.4783 117.6215,49.4612 117.7012,49.4638 117.8753,49.5474 117.9979,49.6118 118.0313,49.6338 118.1906,49.7211 118.3052,49.7847 118.3169,49.8128 118.3508,49.8393 118.399,49.8652 118.4649,49.8914 118.4986,49.8978 118.5399,49.8921 118.6947,49.915 118.7449,49.9289 118.7796,49.9257 118.8236,49.9194 118.8903,49.9256 118.9228,49.933 118.9591,49.9377 118.9973,49.9441 119.039,49.9595 119.1422,50.0386 119.1675,50.0922 119.1668,50.1354 119.1497,50.1526 119.1506,50.2172 119.18,50.2721 119.1681,50.2881 119.11,50.2898 119.0733,50.2831 119.0185,50.2872 118.9971,50.2947 118.9588,50.3322 118.9867,50.3543 119.024,50.3527 119.058,50.3829 119.0752,50.4123 119.0827,50.4558 119.1134,50.5391 119.18,50.5748 119.2771,50.6378 119.3242,50.6902 119.3345,50.7349 119.3372,50.7875 119.3384,50.8436 119.4067,50.9138 119.4609,50.9391 119.4816,50.9445 119.5054,50.9594 119.5264,50.9775 119.5644,51.0175 119.596,51.1094 119.5819,51.1293 119.5916,51.1545 119.6307,51.2099 119.6797,51.2279 119.7712,51.3306 119.7859,51.3639 119.7895,51.4072 119.7972,51.4333 119.8777,51.5611 119.9206,51.6042 119.9745,51.6066 120.0101,51.6264 120.035,51.6526 120.1225,51.7132 120.3031,51.8183 120.3687,51.835 120.4324,51.8435 120.4629,51.8541 120.5216,51.9196 120.5864,52.0546 120.5915,52.0972 120.5612,52.1499 120.5313,52.191 120.4617,52.2379 120.4347,52.2834 120.4723,52.3446 120.4915,52.3674 120.5201,52.4817 120.2726,52.5696 120.2481,52.576 120.0975,52.5544 120.0625,52.5441 120.0188,52.5253 119.994,52.5189 119.9705,52.5176 119.8905,52.5269 119.8491,52.5457 119.8339,52.5801 119.839,52.7068 119.9241,52.7455 119.9563,52.7456 119.976,52.7482 120.0757,52.7957 120.137,52.8364 120.157,52.8637 120.2751,52.9582 120.3683,53.0155 120.4983,53.0972 120.6345,53.2018 120.67,53.2176 120.8691,53.2293 120.9101,53.2165 120.9331,53.2106 120.9837,53.2079 121.0149,53.2096 121.0746,53.2292 121.1162,53.2498 121.136,53.2572 121.2167,53.2535 121.2264,53.254 121.2761,53.2616 121.3252,53.2708 121.3547,53.2779 121.3839,53.2855 121.438,53.3041 121.5788,53.3387 121.631,53.3508 121.6565,53.3536 121.7542,53.3601 121.7839,53.359 121.8269,53.3517 121.862,53.3506 122.0462,53.3948 122.2817,53.3864 122.4123,53.3945 122.516,53.3931 122.565,53.3901 122.6142,53.3875 122.6399,53.3898 122.6759,53.3998 122.7224,53.4164 122.9182,53.4347 122.9518,53.4382 122.9736,53.4477 122.9923,53.4602 123.0239,53.4838 123.0527,53.4911 123.0811,53.491 123.1125,53.4871 123.1369,53.4803 123.1724,53.4669 123.2407,53.46 123.2847,53.4771 123.333,53.4798 123.4122,53.4813 123.6638,53.4184 123.6874,53.4106 123.7083,53.4022 123.7789,53.3689 123.8027,53.3462 123.8194,53.3238 123.9023,53.2786 123.9311,53.2739 123.9576,53.2877 123.9922,53.2987 124.0268,53.3009 124.0665,53.2847 124.0943,53.2577 124.1201,53.226 124.1368,53.1937 124.2004,53.1504 124.2914,53.1262 124.3134,53.1268 124.3439,53.1283 124.4122,53.1298 124.4418,53.1257 124.4896,53.1086 124.6161,53.0652 124.6766,53.0848 124.7164,53.1102 124.7609,53.1209 124.7857,53.1248 124.8591,53.1334 124.9313,53.1355 124.9621,53.1312 125.078,53.0878 125.1531,53.0563 125.1957,53.0398 125.2829,53.0073 125.3654,52.9952 125.417,52.9887 125.5248,52.9199 125.5197,52.8839 125.486,52.8703 125.4579,52.8619 125.443,52.8362 125.4555,52.8136 125.5202,52.8231 125.5423,52.8285 125.6534,52.8014 125.6735,52.7745 125.7709,52.7026 125.8089,52.7165 125.8626,52.7203 125.8947,52.6959 125.8356,52.6548 125.7717,52.5765 125.7758,52.5498 125.7933,52.515 125.8323,52.5033 125.8596,52.5196 125.8857,52.5279 125.9791,52.4829 126.0007,52.4666 126.0125,52.449 126.0088,52.4403 125.9956,52.4153 126.0084,52.3996 126.038,52.4023 126.0752,52.3925 126.1333,52.3351 126.1471,52.3085 126.1486,52.231 126.1282,52.1741 126.1082,52.1519 126.1195,52.1317 126.1525,52.1223 126.1922,52.1159 126.2703,52.1051 126.2913,52.0993 126.3556,52.0665 126.3354,52.0091 126.3108,51.9769 126.2781,51.9738 126.2559,51.9602 126.2428,51.9342 126.2729,51.8696 126.4115,51.727 126.5208,51.65 126.5294,51.5741 126.5982,51.3637 126.6728,51.3459 126.6973,51.3391 126.7176,51.3218 126.6946,51.2909 126.6598,51.2847 126.6242,51.2678 126.6118,51.2453 126.6223,51.2062 126.6556,51.1818 126.698,51.1819 126.7047,51.2015 126.6979,51.2436 126.7414,51.2547 126.7729,51.2598 126.7792,51.2402 126.7366,51.183 126.7107,51.1515 126.7036,51.1217 126.7177,51.0663 126.7387,50.9992 126.8518,50.8966 126.9117,50.8706 126.9391,50.8506 126.9563,50.8298 126.9993,50.766 127.0983,50.6826 127.086,50.6263 127.1166,50.5897 127.1654,50.5375 127.1739,50.5178 127.1688,50.493 127.1405,50.4661 127.0985,50.4011 127.1421,50.2565 127.16,50.2415 127.1836,50.2288 127.2042,50.2203 127.2427,50.208 127.2771,50.1993 127.3514,50.1732 127.3839,50.1584 127.3943,50.1508 127.3956,50.1399 127.3938,50.1099 127.3829,50.0792 127.3589,50.0504 127.3123,50.0094 127.299,49.9876 127.2961,49.9612 127.3177,49.7701 127.3263,49.7488 127.3471,49.7286 127.375,49.7203 127.403,49.7155 127.4396,49.7078 127.4831,49.6888 127.4897,49.651 127.5002,49.6136 127.5244,49.5965 127.6299,49.5356 127.6494,49.5298 127.914,49.48 127.998,49.4772 128.0256,49.4802 128.056,49.4916 128.2083,49.5202 128.324,49.5306 128.4634,49.5353 128.5223,49.5276 128.6003,49.5113 128.6137,49.4903 128.6855,49.4209 128.8127,49.3794 128.8344,49.3586 128.8497,49.3286 128.8627,49.3073 128.8872,49.2962 128.922,49.29 128.9465,49.2958 128.9756,49.3194 128.9949,49.3307 129.2004,49.3711 129.231,49.3748 129.3,49.3591 129.3213,49.3481 129.3332,49.3347 129.3406,49.2572 129.3623,49.2313 129.39,49.217 129.4149,49.212 129.4632,49.2207 129.4958,49.2224 129.5352,49.2055 129.5464,49.1712 129.5418,49.1461 129.5563,49.125 129.5833,49.114 129.7225,49.0154 129.7179,48.9854 129.9206,48.8762 130.0108,48.8228 130.0349,48.8085 130.0742,48.8045 130.1622,48.829 130.1901,48.8355 130.2278,48.8402 130.2611,48.8365 130.282,48.8225 130.2943,48.8051 130.3187,48.7954 130.3476,48.7959 130.374,48.8003 130.4372,48.8188 130.4521,48.8195 130.4833,48.8045 130.48,48.7838 130.4436,48.7547 130.3872,48.6574 130.3393,48.5704 130.3339,48.55 130.4199,48.4645 130.5479,48.3742 130.6348,48.2716 130.6421,48.2386 130.565,48.1373 130.4896,48.084 130.4711,48.0533 130.4913,47.9927 130.5696,47.933 130.6096,47.91 130.6653,47.8763 130.6954,47.8515 130.7251,47.8104 130.7418,47.7841 130.7515,47.7629 130.7579,47.743 130.7472,47.6861 130.7521,47.6657 130.7665,47.6516 130.804,47.6328 130.8429,47.6232 130.898,47.6177 130.9714,47.6386 131.009,47.6519 131.0363,47.6634 131.0796,47.6759 131.2278,47.6839 131.2575,47.6834 131.298,47.6775 131.3463,47.6648 131.3584,47.6429 131.4292,47.6096 131.626,47.6204 131.7258,47.6157 131.9319,47.6383 132.021,47.6588 132.0654,47.6734 132.0998,47.6818 132.1508,47.6879 132.1752,47.6874 132.1992,47.6817 132.228,47.6706 132.276,47.6623 132.3307,47.6559 132.352,47.6593 132.3873,47.6789 132.4714,47.8173 132.6725,47.9397 132.8909,48.0437 133.002,48.0546 133.08,48.0493 133.2363,48.0304 133.2566,48.0192 133.2918,48.0139 133.3224,48.0211 133.3481,48.0438 133.3629,48.0659 133.3808,48.0967 133.4032,48.1188 133.5579,48.1944 133.691,48.209 133.817,48.2506 133.8453,48.2679 133.8723,48.2741 134.0127,48.2872 134.2208,48.3356 134.2375,48.3233 134.2692,48.3045 134.288,48.2949 134.4492,48.2363 134.5228,48.2159 134.546,48.2121 134.5218,48.2054 134.486,48.1597 134.4915,48.1277 134.4867,48.1001 134.4666,48.0458 134.4426,48.0331 134.4075,48.0212 134.3875,48.0055 134.3723,47.9771 134.3638,47.9373 134.4001,47.8565 134.4906,47.7461 134.5213,47.7218 134.5751,47.6828 134.5675,47.6459 134.3623,47.4148 134.2935,47.3753 134.2667,47.3735 134.2252,47.3772 134.1954,47.3766 134.1507,47.3719 134.1224,47.3669 134.1036,47.3596 133.9907,47.2692 133.9578,47.1948 133.999,47.1272 134.0316,47.0762 134.0241,47.046 133.9958,47.03 133.9459,47.0231 133.9225,47.002 133.8749,46.9007 133.8489,46.8072 133.853,46.7137 133.8294,46.6133 133.8151,46.591 133.8076,46.5869 133.8076,46.5805 133.7809,46.5582 133.7193,46.525 133.6576,46.426 133.6613,46.3903 133.7136,46.3683 133.7402,46.3289 133.7125,46.2011 133.6414,46.1425 133.556,46.1031 133.5355,46.0167 133.4723,45.8827 133.3918,45.819 133.3627,45.8325 133.3333,45.8314 133.2883,45.7712 133.2872,45.7458 133.3002,45.6262 133.283,45.5728 133.2301,45.5379 133.1952,45.5182 133.0816,45.4736 133.0574,45.4644 133.03,45.4594 133.0057,45.4521 132.9627,45.3993 132.9438,45.3629 132.9157,45.243 132.9133,45.1776 132.9276,45.1459 132.9402,45.1133 132.9316,45.0735 132.889,45.0377 132.8395,45.0058 132.7666,44.9734 132.7454,44.9702 132.6856,44.9869 132.6141,45.0138 132.3828,45.065 132.1791,45.1096 132.1141,45.1238 132.0122,45.146 131.938,45.1623 131.808,45.1901 131.7769,45.2047 131.7393,45.2346 131.726,45.2571 131.7111,45.2861 131.6839,45.2942 131.6517,45.2827 131.5191,45.1649 131.4689,45.0826 131.4625,45.057 131.4443,45.0404 131.2848,44.923 131.157,44.92 131.1304,44.9042 131.1022,44.8808 131.0285,44.8596 130.9934,44.8611 130.9655,44.8773 130.9406,44.8764 130.9083,44.8678 130.8838,44.8587 130.7694,44.7859 130.8171,44.7314 130.8364,44.7225 130.872,44.7026 130.9119,44.6409 130.945,44.5355 131.0723,44.1346 131.1014,44.0439 131.1146,44.002 131.0795,43.9876 131.0613,43.9716 131.048,43.9242 131.0161,43.7693 131.0086,43.4871 131.0401,43.4626 131.0526,43.4565 131.0899,43.4329 131.1004,43.4241 131.1181,43.4081 131.1274,43.3407 131.0815,43.2212 131.0095,43.137 130.9242,42.9903 130.9211,42.9671 130.9217,42.9336 130.933,42.9102 130.9514,42.8911 130.9463,42.8681 130.8397,42.8085 130.7055,42.8036 130.6838,42.8092 130.6601,42.8217 130.6369,42.8278 130.6139,42.8237 130.4568,42.7834 130.3517,42.7418 130.2947,42.7171 130.2517,42.6964 130.2304,42.6547 130.2903,42.6308 130.3165,42.6368 130.3551,42.634 130.4041,42.5968 130.4243,42.5715 130.4379,42.5372 130.4267,42.5155 130.3996,42.4331 130.4236,42.3739 130.4059,42.3791 130.3869,42.3952 130.3417,42.4892 130.3335,42.5201 130.196,42.5693 130.1479,42.5938 130.0662,42.6659 130.0554,42.7381 130.0626,42.7634 130.0694,42.7834 130.0705,42.8395 130.0123,42.8581 129.8535,42.9096 129.7669,42.9468 129.7487,42.9574 129.7242,42.9559 129.6973,42.9434 129.6668,42.8939 129.6274,42.8053 129.5734,42.6657 129.5456,42.4996 129.553,42.4743 129.5487,42.4276 129.5369,42.4047 129.5158,42.388 129.3353,42.3391 129.2661,42.3847 129.1701,42.3983 129.0673,42.3279 129.0306,42.2181 129.0325,42.1738 128.9739,42.1203 128.9359,42.0918 128.8386,42.0475 128.78,42.031 128.7713,42.0046 128.7488,41.98 128.7175,41.9752 128.6672,41.9822 128.5054,41.9738 128.3927,41.9528 128.3197,41.948 128.2956,41.9501 128.2693,41.9655 128.2451,41.9812 128.184,41.9901 128.1589,41.9921 128.0983,41.9909 127.8798,41.9539 127.8732,41.9341 127.8842,41.8634 127.8923,41.8378 127.922,41.756 127.979,41.6674 128.0273,41.6295 128.05,41.6169 128.0775,41.6036 128.0928,41.5901 128.1236,41.5358 128.1058,41.4834 128.046,41.3942 128.0166,41.3609 127.9767,41.3348 127.9381,41.3252 127.868,41.3426 127.8358,41.369 127.7521,41.4005 127.6953,41.3773 127.6594,41.3633 127.5185,41.3665 127.4455,41.3713 127.0959,41.4258 126.9845,41.4831 126.96,41.5467 126.9259,41.5744 126.8819,41.5965 126.8856,41.644 126.8729,41.6611 126.7527,41.7489 126.7297,41.7451 126.6938,41.7141 126.6729,41.6886 126.6208,41.6611 126.5382,41.6442 126.4711,41.6135 126.3917,41.5649 126.3938,41.5428 126.4088,41.5241 126.3365,41.3434 126.31,41.32 126.2823,41.3107 126.264,41.2958 126.2373,41.2726 126.1935,41.229 126.1364,41.1681 126.1128,41.1262 126.1058,41.1064 125.9517,40.9887 125.8391,40.8508 125.76,40.8317 125.5308,40.814 125.5165,40.806 125.4779,40.7565 125.432,40.71 125.3814,40.6954 125.286,40.6576 125.2411,40.6079 125.1979,40.5944 125.1438,40.6042 125.1149,40.6018 124.9695,40.5395 124.872,40.492 124.8539,40.4484 124.8691,40.4153 124.7914,40.4135 124.7147,40.4247 124.6423,40.3511 124.5408,40.2615 124.5186,40.2515 124.4572,40.2382 124.385,40.1968 124.2412,40.0852 124.2121,40.0572 124.2043,40.0485 124.1987,40.0494 124.1875,40.0246 124.1956,39.9904 124.194,39.9646 124.1756,39.9369 124.123,39.8831 123.9601,39.7829 123.8457,39.7684 123.8176,39.7654 123.6077,39.7768 123.5721,39.7793 123.5306,39.7871 123.3841,39.7238 123.2401,39.6897 123.211,39.7328 123.0752,39.7696 123.0433,39.7042 123.082,39.6785 123.0974,39.6546 123.0501,39.6293 122.9792,39.6142 122.8298,39.5914 122.7995,39.5646 122.6489,39.5376 122.6087,39.5077 122.4217,39.4227 122.2938,39.3657 122.2595,39.3643 122.234,39.3673 122.1881,39.3407 122.1233,39.3016 122.117,39.2869 122.0696,39.2252 121.9676,39.0972 121.7834,38.9915 121.7503,39.0033 121.5612,38.9865 121.4852,38.9528 121.4807,38.9085 121.4923,38.8821 121.5143,38.8733 121.5476,38.8464 121.5356,38.8176 121.3129,38.7672 121.2856,38.7627 121.2499,38.7599 121.2253,38.7637 121.2016,38.7722 121.1741,38.769 121.1007,38.7408 121.0779,38.7279 121.0255,38.6757 120.9767,38.6886 120.9599,38.7195 120.9268,38.8686 120.9655,38.9002 121.0238,38.904 121.0565,38.8905 121.277,38.9688 121.3775,39.0035 121.4389,39.021 121.4528,39.0226 121.4884,39.0297 121.5165,39.0463 121.5246,39.0744 121.4807,39.114 121.433,39.1397 121.4363,39.1745 121.5873,39.3075 121.4989,39.3135 121.4763,39.3129 121.3705,39.3153 121.3459,39.3231 121.3204,39.3485 121.3119,39.3823 121.3003,39.42 121.268,39.4673 121.2156,39.4756 121.19,39.4779 121.169,39.4678 121.1464,39.4535 121.065,39.4842 121.1355,39.5374 121.2979,39.5821 121.369,39.5788 121.37,39.6414 121.3399,39.64 121.2911,39.699 121.3041,39.7666 121.3754,39.8167 121.5319,39.8808 121.552,39.8754 121.5921,39.8674 121.6164,39.8756 121.7155,39.958 121.8326,40.0853 121.9395,40.1985 122.0289,40.3091 122.1209,40.4262 122.1315,40.4599 122.1155,40.4881 121.9643,40.6343 121.885,40.6928 121.7727,40.7325 121.5845,40.7949 121.5623,40.7918 121.5069,40.788 121.4482,40.7876 121.3926,40.7952 121.3756,40.8202 121.3576,40.8421 121.1975,40.8853 121.0317,40.8785 121.0114,40.8758 120.943,40.8255 120.9157,40.7935 120.8358,40.7832 120.8044,40.7692 120.7709,40.7043 120.787,40.6818 120.8306,40.6843 120.867,40.6653 120.7631,40.6292 120.7303,40.6302 120.679,40.6254 120.6605,40.6154 120.5147,40.4669 120.3755,40.3471 120.3394,40.2133 120.3337,40.1933 120.2827,40.1509 120.2625,40.1427 120.1171,40.1033 119.9889,40.0625 119.8612,40.0216 119.7831,39.9956 119.7626,39.9838 119.6888,39.9373 119.6501,39.9283 119.4954,39.8853 119.4275,39.8605 119.3644,39.8277 119.1781,39.6675 119.0949,39.5067 119.0951,39.3624 119.0757,39.3407 119.016,39.3032 118.9728,39.2745 118.8955,39.1994 118.8494,39.144 118.8119,39.1131 118.7394,39.0801 118.7559,39.1045 118.7832,39.1177 118.808,39.1462 118.6812,39.1351 118.6254,39.1098 118.5959,39.1001 118.559,39.1056 118.5028,39.1328 118.4498,39.1452 118.3853,39.118 118.367,39.1034 118.3494,39.0791 118.2391,39.0218 118.211,39.0098 118.1689,38.9972 118.0834,39.0302 118.0766,39.0631 118.0582,39.0888 118.0194,39.1279 117.9916,39.147 117.9649,39.1578 117.8967,39.179 117.865,39.1769 117.8517,39.1728 117.7306,39.1546 117.6942,39.1384 117.6618,39.1215 117.6413,39.1096 117.5862,39.0611 117.5697,39.0262 117.5657,38.9806 117.4934,38.8547 117.4474,38.7922 117.4281,38.7592 117.4151,38.7316 117.3798,38.6323 117.3839,38.5976 117.3889,38.5732 117.3894,38.5696 117.3971,38.5491 117.4648,38.4228 117.4834,38.3929 117.4982,38.3705 117.5158,38.3436 117.5388,38.3205 117.5545,38.3054 117.5805,38.2838 117.647,38.2311 117.6703,38.2211 117.7274,38.2014 117.8715,38.1246 117.954,38.1037 118.0291,38.1025 118.2006,38.0863 118.2954,38.0706 118.3265,38.0577 118.442,38.0683 118.5551,38.0999 118.637,38.116 118.6803,38.1102 118.7941,37.9958 118.8691,37.8627 118.8781,37.836 118.892,37.7201 118.8809,37.6245 118.8491,37.5986 118.8267,37.5739 118.8138,37.5525 118.8067,37.5339 118.7972,37.4978 118.7816,37.3397 118.7847,37.3007 118.8005,37.2587 118.8148,37.2289 118.9707,37.1458 119.0027,37.1295 119.0764,37.1021 119.0971,37.0977 119.1411,37.0901 119.2391,37.081 119.2962,37.0821 119.3262,37.0858 119.3575,37.0948 119.3899,37.096 119.431,37.0947 119.4859,37.0908 119.5552,37.0965 119.5873,37.1013 119.6102,37.1098 119.7042,37.1754 119.7288,37.1983 119.7365,37.2214 119.7298,37.2449 119.7037,37.2814 119.6952,37.3105 119.8371,37.3746 119.8789,37.384 119.901,37.39 119.9834,37.4343 120.0358,37.4695 120.1494,37.5609 120.1636,37.6019 120.1508,37.6202 120.1903,37.6429 120.2464,37.6659 120.3475,37.7059 120.4211,37.7245 120.5018,37.7456 120.5257,37.7641 120.5515,37.7837 120.5775,37.7927 120.7186,37.786 120.7727,37.7692 120.7754,37.7385 120.8006,37.7145 120.9678,37.6112 120.9788,37.5545 121.0016,37.5372 121.2228,37.5115 121.3185,37.4245 121.4201,37.3828 121.4733,37.3879 121.5094,37.3977 121.5347,37.416 121.6614,37.4187 121.7801,37.4192 121.8152,37.4323 121.8583,37.4708 121.9072,37.4947 121.9673,37.5105 121.9891,37.4702 121.9661,37.4512 121.9746,37.4224 122.0012,37.3842 122.0208,37.3765 122.3974,37.3545 122.4365,37.1682 122.3738,37.1082 122.3372,37.1071 122.3167,37.0895 122.3067,37.0644 122.2917,37.1022 122.24,36.9844 122.2502,36.9583 122.2732,36.9637 122.3785,36.9783 122.3629,36.8686 122.3442,36.8522 122.1944,36.7865 122.1523,36.7822 122.0324,36.8019 122.0152,36.8323 122.0047,36.9028 121.8853,36.9434 121.7969,36.9587 121.7593,36.937 121.7785,36.8922 121.578,36.7975 121.4356,36.7176 121.3637,36.7087 121.3522,36.738 121.3857,36.7504 121.4473,36.7949 121.4261,36.8029 121.392,36.7962 121.3307,36.78 121.2898,36.7313 121.2142,36.6816 121.1826,36.6714 121.1282,36.6636 121.0462,36.6457 121.0174,36.6366 120.9763,36.6139 120.9528,36.5981 120.9319,36.5794 120.9119,36.5635 120.8577,36.54 120.7941,36.5554 120.7726,36.5783 120.7179,36.598 120.6851,36.6063 120.6629,36.6044 120.6186,36.5758 120.5949,36.5535 120.5808,36.5143 120.6157,36.4956 120.6375,36.5069 120.6494,36.532 120.6782,36.5592 120.7004,36.5593 120.7827,36.5099 120.802,36.4855 120.7405,36.3613 120.7178,36.3353 120.7072,36.3319 120.6861,36.3798 120.6608,36.4183 120.622,36.4217 120.5972,36.4157 120.5487,36.3818 120.5254,36.3402 120.514,36.2219 120.5387,36.1004 120.2615,36.0148 120.1872,36.0015 120.1354,36.0201 120.1594,36.0514 120.1981,36.1326 120.1964,36.1556 120.151,36.2229 120.1304,36.2211 120.116,36.1624 120.0055,36.1684 119.959,36.1665 119.9325,36.1594 119.9276,36.0942 119.9346,36.0676 120.024,35.9394 120.0815,35.919 119.9962,35.8788 119.9433,35.8601 119.8995,35.8298 119.7512,35.7026 119.7475,35.6097 119.6733,35.5818 119.5704,35.5779 119.4922,35.5393 119.4789,35.5001 119.4656,35.4687 119.4396,35.4196 119.3949,35.3376 119.3601,35.2937 119.2971,35.2705 119.2692,35.2437 119.2467,35.2096 119.2355,35.185 119.2263,35.1413 119.2214,35.0955 119.2158,35.0732 119.1948,35.0547 119.1261,35.0288 119.0807,35.027 119.0575,35.0148 119.0463,34.9905 119.0217,34.8461 119.043,34.7307 119.0687,34.7189 119.1065,34.712 119.1313,34.709 119.1539,34.7091 119.1742,34.7195 119.2135,34.7245 119.2831,34.7074 119.3027,34.6945 119.3224,34.6654 119.3077,34.6455 119.3802,34.5687 119.4969,34.4895 119.6397,34.4333 119.6771,34.423 119.7008,34.4203 119.7381,34.4222 119.7688,34.418 119.8312,34.392 120.0929,34.2733 120.159,34.1433 120.1847,34.0852 120.2119,34.004 120.2372,33.9217 120.3246,33.7242 120.3419,33.6196 120.3917,33.5203 120.4352,33.4617 120.4552,33.4496 120.4793,33.4186 120.4924,33.3834 120.4998,33.3329 120.5055,33.2922 120.5777,33.1944 120.6296,33.1287 120.6463,33.0993 120.7289,32.938 120.7378,32.8584 120.7223,32.7603 120.6791,32.6783 120.6695,32.6602 120.6708,32.6206 120.6805,32.6026 120.7738,32.5523 120.943,32.4799 121.0209,32.454 121.1032,32.4307 121.1372,32.4176 121.1772,32.3934 121.2495,32.3308 121.2616,32.208 121.2227,32.1973 121.2833,32.0775 121.316,32.0781 121.362,32.08 121.4025,32.0673 121.5029,32.0185 121.5202,32.0084 121.5485,31.9861 121.5806,31.9627 121.6709,31.8808 121.6818,31.8541 121.7318,31.7264 121.7381,31.706 121.7353,31.658 121.7156,31.643 121.6691,31.6428 121.5566,31.6609 121.4888,31.6775 121.4541,31.7018 121.4189,31.7226 121.3241,31.7773 121.2735,31.7983 121.134,31.8348 120.913,31.8242 120.7871,31.8309 120.7413,31.893 120.7265,31.9128 120.6984,31.9439 120.6789,31.9625 120.6559,31.9819 120.6324,31.9946 120.58,32.0203 120.5509,32.0299 120.4845,32.0501 120.4452,32.0577 120.3509,32.0661 120.3157,32.0568 120.2846,32.0401 120.1979,31.9813 120.1746,31.9624 120.1512,31.9354 120.1163,31.911 120.0831,31.9015 120.0614,31.898 120.0322,31.8984 119.9428,31.9097 119.9,31.9261 119.8623,31.9468 119.8081,32.0101 119.7624,32.0737 119.749,32.1114 119.7444,32.1595 119.7059,32.2386 119.671,32.2704 119.6407,32.2819 119.6063,32.2911 119.56,32.2795 119.5252,32.2671 119.4761,32.2269 119.4579,32.1548 119.4938,32.1569 119.5192,32.1898 119.5384,32.2001 119.5727,32.1747 119.6315,32.152 119.6089,32.1202 119.6126,32.084 119.6508,32.0699 119.7169,32.0312 119.7144,31.97 119.7293,31.9564 119.8399,31.9098 119.9463,31.8777 119.9804,31.8684 120.0258,31.8638 120.0695,31.8676 120.1166,31.882 120.2215,31.9191 120.277,31.98 120.3424,31.9853 120.5459,31.9526 120.5757,31.9345 120.6327,31.8386 120.6122,31.7812 120.5815,31.7968 120.5641,31.8173 120.5629,31.7839 120.5919,31.7637 120.6971,31.7189 120.7222,31.7138 120.7735,31.7165 120.8045,31.7189 120.9266,31.6719 121.0678,31.5855 121.1079,31.5431 121.1676,31.4572 121.2047,31.4389 121.2935,31.3834 121.4437,31.3129 121.4866,31.2905 121.51,31.2738 121.5365,31.254 121.5519,31.2387 121.5833,31.1973 121.5985,31.1766 121.6222,31.1365 121.6469,31.0913 121.7114,30.9738 121.7245,30.9454 121.7335,30.8932 121.7166,30.8362 121.6888,30.8188 121.6348,30.8171 121.6031,30.8249 121.5757,30.8282 121.5405,30.8286 121.4766,30.8204 121.4018,30.8091 121.3116,30.7821 121.2793,30.7656 121.2355,30.7336 121.1971,30.6825 121.1771,30.6687 121.1181,30.654 121.0988,30.6489 121.0627,30.6375 120.8346,30.5349 120.804,30.5037 120.7874,30.4693 120.7755,30.437 120.775,30.4151 120.7801,30.3849 120.7185,30.3298 120.6578,30.3018 120.6387,30.295 120.5944,30.3042 120.5583,30.3411 120.5348,30.3536 120.4927,30.3638 120.3022,30.3592 120.2356,30.3377 119.9943,30.1633 120.1492,30.1886 120.2501,30.251 120.2985,30.2727 120.322,30.2785 120.3517,30.2766 120.3694,30.266 120.3818,30.2436 120.4107,30.1702 120.4213,30.1316 120.4431,30.0934 120.4588,30.0768 120.5186,30.049 120.6348,30.0311 120.6195,30.0576 120.6822,30.096 120.9152,30.2255 120.983,30.2573 121.0133,30.2674 121.0422,30.2709 121.0633,30.2716 121.1237,30.2708 121.144,30.2661 121.1933,30.2449 121.2489,30.214 121.3262,30.1514 121.3478,30.1278 121.3717,30.0883 121.4549,29.9803 121.4776,29.9576 121.5201,29.9295 121.5704,29.9224 121.6432,29.9134 121.6969,29.8873 121.7812,29.848 121.8685,29.8481 121.9168,29.8568 121.9463,29.8673 121.9616,29.8488 121.8995,29.8139 121.8702,29.8041 121.8273,29.7908 121.799,29.7794 121.7093,29.7318 121.6361,29.6385 121.5342,29.5277 121.4946,29.517 121.3658,29.4841 121.3451,29.5124 121.3157,29.5027 121.2913,29.4788 121.2719,29.4288 121.2793,29.3879 121.2827,29.384 121.3102,29.4266 121.5542,29.5015 121.599,29.4909 121.5918,29.4666 121.5894,29.4383 121.6412,29.4446 121.691,29.496 121.6659,29.5107 121.6458,29.5117 121.5808,29.5171 121.6324,29.5713 121.7479,29.6021 121.7807,29.5907 121.8167,29.556 121.7543,29.3873 121.7318,29.354 121.7399,29.2593 121.7543,29.238 121.7865,29.2335 121.8102,29.2484 121.8292,29.2224 121.776,29.1627 121.69,29.1296 121.6546,29.1515 121.6451,29.1715 121.6529,29.238 121.6393,29.3395 121.6066,29.3308 121.6117,29.2402 121.5871,29.1648 121.5193,29.1507 121.4999,29.1559 121.439,29.2153 121.404,29.2584 121.3479,29.1729 121.3037,29.1539 121.2566,29.1308 121.2679,29.093 121.2821,29.0752 121.3115,29.0635 121.3392,29.0718 121.3804,29.0803 121.4068,29.0817 121.4704,29.0687 121.5342,28.9894 121.556,28.9163 121.5251,28.8841 121.431,28.9026 121.3825,28.9186 121.3458,28.9205 121.334,28.9035 121.355,28.8772 121.3771,28.8655 121.4312,28.8571 121.5022,28.7996 121.5022,28.7645 121.4544,28.6959 121.3719,28.6661 121.344,28.6621 121.217,28.6782 121.1908,28.6817 121.1908,28.6817 7,8.0,China 121.1908,28.6817 121.1442,28.7111 120.99,28.8098 121.0024,28.7742 121.134,28.7033 121.1908,28.6817 121.1908,28.6817 27,-8.0,Canada -128.7741,53.4608 -128.7746,53.4507 -128.7748,53.4399 -128.7731,53.4295 -128.7643,53.4105 -128.7425,53.3844 -128.7277,53.3699 -128.6908,53.323 -128.7099,53.2664 -128.7178,53.2594 -128.7325,53.2553 -128.9008,53.2537 -128.9137,53.258 -128.9282,53.278 -128.933,53.2901 -128.931,53.3068 -128.9236,53.3217 -128.8715,53.3669 -128.843,53.3912 -128.8475,53.4255 -128.8383,53.4452 -128.826,53.4577 -128.8071,53.4727 -128.7876,53.4771 -128.7737,53.4689 -128.7741,53.4608 -128.7741,53.4608 16,-4.0,Canada -55.7913,53.424 -55.7205,53.4217 -55.6659,53.4059 -55.6492,53.4 -55.6379,53.3903 -55.6989,53.3305 -55.7102,53.3301 -55.8623,53.3698 -55.8801,53.3835 -55.886,53.3975 -55.867,53.4101 -55.854,53.4164 -55.8362,53.4223 -55.8246,53.4234 -55.7913,53.424 -55.7913,53.424 390,2.0,Netherlands 5.2317,52.5936 5.249,52.6135 5.2909,52.6295 5.3217,52.6215 5.3718,52.606 5.4147,52.575 5.4445,52.5503 5.4749,52.5116 5.4558,52.4992 5.439,52.4772 5.4374,52.4463 5.4429,52.4486 5.4463,52.4617 5.4693,52.488 5.5647,52.5274 5.6348,52.5398 5.825,52.504 5.8514,52.4698 5.8425,52.4265 5.822,52.4025 5.7828,52.3656 5.7498,52.3531 5.7117,52.3522 5.685,52.347 5.6229,52.3235 5.603,52.3089 5.5614,52.3054 5.5369,52.2861 5.5509,52.2633 5.5213,52.2224 5.4138,52.2036 5.3926,52.2087 5.3555,52.2303 5.3223,52.2484 5.2974,52.2569 5.2705,52.2649 5.2402,52.2717 5.1941,52.2788 5.1649,52.2753 5.1407,52.2822 5.1286,52.3207 5.0469,52.3335 5.0752,52.3542 5.0386,52.3416 5.016,52.3148 4.9073,52.3265 4.8678,52.3546 4.8182,52.3646 4.7056,52.38 4.661,52.4049 4.5749,52.4163 4.5911,52.4529 4.6148,52.5354 4.6269,52.5818 4.6286,52.6194 4.6468,52.6902 4.7312,52.8949 4.7758,52.9035 4.7982,52.8883 4.8009,52.8648 4.8237,52.8485 4.8598,52.8371 4.8884,52.8356 4.9301,52.8422 5.0865,52.8975 5.1721,52.9412 5.2159,52.9707 5.2423,52.9873 5.2931,53.0111 5.3186,53.0176 5.3612,53.0263 5.3789,53.0366 5.3937,53.0595 5.4025,53.0783 5.4068,53.1086 5.4336,53.15 5.4534,53.1664 5.5709,53.2294 5.5903,53.2383 5.8813,53.32 5.9721,53.3365 6.0825,53.3486 6.1679,53.3516 6.1773,53.3503 6.1847,53.3478 6.2866,53.3399 6.4422,53.3629 6.6868,53.3996 6.7102,53.4022 6.7309,53.4035 6.7665,53.397 6.8566,53.3652 6.8905,53.2882 6.9314,53.2608 7.0809,53.1943 7.1889,53.1784 7.1968,53.1809 7.1955,53.1143 7.1994,52.947 7.1848,52.9008 7.1682,52.8727 7.1215,52.8272 7.0796,52.7753 7.0622,52.7581 7.0551,52.7311 7.0539,52.6991 7.0522,52.6601 7.0422,52.5885 7.0227,52.5721 6.8954,52.5868 6.7549,52.5899 6.7082,52.5658 6.717,52.5574 6.7476,52.5035 6.7118,52.4985 6.6789,52.4895 6.6934,52.4273 6.7483,52.4001 6.9432,52.3764 6.9732,52.3964 7.0517,52.3303 7.0595,52.2949 7.0469,52.2768 7.0242,52.245 7.0181,52.2176 7.042,52.177 7.031,52.1711 6.9538,52.1295 6.8918,52.1117 6.8644,52.0818 6.8455,52.0598 6.7488,52.0542 6.726,52.0162 6.7183,51.9751 6.7869,51.9483 6.8182,51.9153 6.7726,51.8645 6.7358,51.8458 6.7122,51.8378 6.6742,51.8516 6.5846,51.836 6.5174,51.8141 6.4526,51.7935 6.3413,51.7881 6.1726,51.835 6.1143,51.828 5.9939,51.77 5.9543,51.7466 5.9736,51.7071 5.9429,51.6874 6.0196,51.6466 6.0841,51.546 6.1247,51.5111 6.1492,51.4987 6.1952,51.454 6.2126,51.4078 6.213,51.3038 6.1337,51.2358 6.0682,51.182 6.0624,51.1548 6.0751,51.115 6.0881,51.072 5.994,51.0249 5.8966,51.0042 5.8562,50.9865 5.8604,50.9597 5.8932,50.914 5.9347,50.9253 6.016,50.919 6.0716,50.8558 6.0754,50.8132 6.0492,50.7918 6.0075,50.783 5.9989,50.7437 6.0026,50.6985 5.9175,50.6974 5.8901,50.6954 5.8617,50.702 5.7886,50.7107 5.7312,50.7014 5.6901,50.6992 5.6833,50.7018 5.6958,50.7234 5.6935,50.7471 5.6853,50.75 5.675,50.7528 5.6451,50.7648 5.6304,50.79 5.6428,50.8164 5.7493,50.9009 5.7556,50.9311 5.7682,50.9668 5.8092,51.056 5.8384,51.094 5.7456,51.1309 5.6361,51.1445 5.5599,51.1615 5.5446,51.2103 5.5,51.2349 5.466,51.2275 5.3963,51.2069 5.3214,51.203 5.2309,51.2028 5.2255,51.25 5.1855,51.2602 5.1536,51.2557 5.1341,51.2605 5.0732,51.3419 5.0933,51.3752 5.069,51.4098 5.0306,51.4273 5.0094,51.411 4.9893,51.3769 4.933,51.3427 4.8455,51.3551 4.8253,51.3703 4.8381,51.4156 4.8185,51.4327 4.7902,51.4418 4.7587,51.4402 4.6947,51.4074 4.664,51.3732 4.6405,51.3638 4.5333,51.3715 4.5333,51.3948 4.5373,51.4235 4.4775,51.4207 4.3888,51.3921 4.3923,51.3543 4.4111,51.3387 4.4268,51.3108 4.4061,51.299 4.3812,51.298 4.3464,51.3018 4.2733,51.3173 4.2457,51.3155 4.196,51.3453 4.0501,51.3664 3.9208,51.3702 3.8972,51.3378 3.8204,51.3303 3.5675,51.3849 3.533,51.3967 3.4388,51.4696 3.452,51.489 3.4804,51.5037 3.5121,51.5173 3.5658,51.5368 3.6864,51.5405 3.8292,51.5467 3.865,51.5405 3.8932,51.509 3.8592,51.4871 3.8376,51.4943 3.8147,51.4893 3.8599,51.479 3.8802,51.4833 3.9238,51.4881 4.0006,51.4655 4.042,51.4494 4.0622,51.4337 4.0757,51.4095 4.0974,51.3878 4.1193,51.3786 4.1427,51.376 4.2401,51.3774 4.2578,51.3845 4.2769,51.3883 4.2855,51.4101 4.278,51.4286 4.2584,51.4498 4.2232,51.4591 4.203,51.456 4.0766,51.471 3.9916,51.5305 4.0358,51.5453 4.0644,51.5516 4.1635,51.5458 4.1868,51.5403 4.2012,51.5297 4.1949,51.5455 4.1797,51.5571 4.1533,51.555 4.1307,51.5557 4.1057,51.5739 4.0997,51.5911 4.0847,51.5806 4.0601,51.57 4.0081,51.5591 3.9677,51.5548 3.8957,51.5746 3.7561,51.615 3.7071,51.6146 3.6882,51.6252 3.6833,51.6503 3.7105,51.6738 3.7751,51.6865 3.8066,51.6847 3.8191,51.6823 3.8758,51.684 3.9578,51.6735 3.9982,51.6502 4.0608,51.6194 4.0979,51.6019 4.1132,51.6147 4.1493,51.6238 4.1612,51.6255 4.121,51.6467 4.0518,51.6946 4.0149,51.732 3.9805,51.7419 3.9499,51.7417 3.8683,51.7264 3.8622,51.7521 3.9861,51.7865 4.0155,51.7792 4.0547,51.8 4.0119,51.9189 4.0455,51.9253 4.0834,51.9236 4.1121,51.9273 4.1373,51.9389 4.3587,52.114 4.3976,52.1497 4.4179,52.1706 4.4346,52.192 4.4874,52.2663 4.5107,52.3002 4.5338,52.3351 4.5439,52.3589 4.5671,52.3934 4.6508,52.3923 4.6996,52.3662 4.8376,52.3493 4.8785,52.3295 4.8991,52.3135 4.9446,52.3122 4.984,52.3004 5.1189,52.2695 5.2359,52.251 5.2869,52.2386 5.3222,52.2152 5.3295,52.2149 5.3634,52.2085 5.3992,52.1911 5.414,52.1884 5.5199,52.2049 5.54,52.2181 5.5574,52.2445 5.5725,52.2644 5.6181,52.2944 5.6615,52.3105 5.6863,52.3194 5.7231,52.3296 5.7614,52.3426 5.8046,52.3676 5.8422,52.402 5.8686,52.4486 5.8632,52.4624 5.8387,52.5165 5.8456,52.5457 5.7496,52.5455 5.6627,52.5465 5.5917,52.5969 5.5877,52.6868 5.6101,52.7179 5.6569,52.7618 5.7091,52.7765 5.6396,52.7939 5.5756,52.7782 5.4032,52.7924 5.3621,52.8186 5.3972,52.8496 5.4108,52.8953 5.401,52.9701 5.3611,53.0085 5.3307,53.0037 5.2878,52.9881 5.2547,52.9734 5.1899,52.9337 5.0921,52.8866 5.0835,52.8243 5.1179,52.7609 5.1882,52.6942 5.215,52.6955 5.2763,52.6834 5.295,52.6436 5.2469,52.6303 5.2317,52.5936 5.2317,52.5936 5,2.0,Netherlands 5.0425,52.5803 5.0216,52.5629 5.0241,52.5543 5.0425,52.5803 5.0425,52.5803 13,2.0,Netherlands 5.0425,52.5803 5.099,52.574 5.1231,52.5581 5.147,52.5575 5.1927,52.5719 5.2245,52.5859 5.2317,52.5936 5.1885,52.5767 5.1597,52.5678 5.1311,52.5628 5.0958,52.5819 5.0425,52.5803 5.0425,52.5803 6,2.0,Netherlands 5.4044,52.4338 5.3691,52.4277 5.2976,52.3943 5.3736,52.4234 5.4044,52.4338 5.4044,52.4338 10,2.0,Netherlands 5.0372,52.5081 5.0597,52.4804 5.0819,52.4499 5.0822,52.3724 5.1293,52.4006 5.0994,52.4275 5.0943,52.4403 5.0635,52.4858 5.0372,52.5081 5.0372,52.5081 17,2.0,Netherlands 5.192,53.2872 5.1783,53.2877 5.1612,53.297 5.1618,53.3134 5.1717,53.3187 5.2097,53.3317 5.2196,53.3343 5.5306,53.3871 5.5478,53.3897 5.5702,53.3861 5.564,53.3735 5.5523,53.3679 5.3445,53.3187 5.3027,53.3096 5.2047,53.2877 5.192,53.2872 5.192,53.2872 14,-5.0,Canada -79.8213,53.2862 -79.7823,53.2314 -79.7833,53.221 -79.7939,53.2096 -79.8125,53.205 -79.8834,53.2029 -79.8941,53.2067 -79.9535,53.2608 -79.9404,53.2891 -79.9306,53.2934 -79.8691,53.3026 -79.8142,53.3058 -79.8213,53.2862 -79.8213,53.2862 21,-8.0,Canada -129.0162,53.2641 -128.9981,53.2597 -128.9836,53.2533 -128.9682,53.2444 -128.9582,53.2339 -128.9355,53.1597 -128.9231,53.0543 -128.927,53.0431 -128.9483,53.0361 -129.0501,53.0364 -129.08,53.0402 -129.1019,53.0552 -129.1169,53.0666 -129.1237,53.0783 -129.1266,53.0907 -129.1275,53.1247 -129.1149,53.1541 -129.0601,53.2677 -129.0448,53.271 -129.0162,53.2641 -129.0162,53.2641 92,-8.0,Canada -128.7471,52.9139 -128.8479,52.8477 -128.8613,52.8425 -128.8871,52.8408 -128.8977,52.843 -128.9552,52.8611 -128.967,52.8749 -128.9773,52.8935 -128.9787,52.904 -128.9828,52.949 -128.9792,52.9624 -128.9577,53.0042 -128.9493,53.0103 -128.9225,53.0161 -128.909,53.0175 -128.9059,53.0068 -128.8734,53.028 -128.8653,53.0444 -128.8613,53.0697 -128.849,53.1692 -128.8502,53.1795 -128.8546,53.189 -128.8618,53.1981 -128.8722,53.2057 -128.8795,53.2251 -128.8725,53.2331 -128.8565,53.2386 -128.8327,53.2426 -128.8118,53.2434 -128.686,53.2271 -128.6698,53.2157 -128.6542,53.2015 -128.634,53.186 -128.6226,53.1787 -128.5659,53.1471 -128.4996,53.1102 -128.4804,53.1027 -128.4663,53.1015 -128.4434,53.1008 -128.4333,53.0995 -128.4159,53.0935 -128.3971,53.0833 -128.3679,53.0433 -128.3241,52.9592 -128.3213,52.9496 -128.3131,52.8977 -128.3112,52.8819 -128.3106,52.8658 -128.3113,52.8495 -128.3128,52.838 -128.3157,52.8267 -128.3663,52.6256 -128.3879,52.5978 -128.3756,52.5966 -128.3804,52.5711 -128.3869,52.5528 -128.3958,52.5472 -128.5447,52.5378 -128.5407,52.6916 -128.4853,52.7945 -128.4461,52.8311 -128.4393,52.8396 -128.4361,52.8539 -128.4345,52.8871 -128.4391,52.9004 -128.46,52.9057 -128.4709,52.8985 -128.5456,52.7717 -128.5563,52.7464 -128.5745,52.6759 -128.5725,52.6601 -128.5648,52.6435 -128.5592,52.6344 -128.573,52.603 -128.6401,52.592 -128.6823,52.5873 -128.7933,52.6361 -128.8261,52.6584 -128.8409,52.6699 -128.8729,52.7112 -128.9012,52.7514 -128.9034,52.7562 -128.9069,52.7605 -128.9113,52.7699 -128.9143,52.7909 -128.9132,52.8048 -128.9028,52.816 -128.8914,52.8184 -128.8725,52.8152 -128.8145,52.8441 -128.7471,52.9139 -128.7471,52.9139 17,-8.0,Canada -128.7471,52.9139 -128.6615,52.9604 -128.6466,52.9636 -128.6302,52.9708 -128.6354,52.9824 -128.6868,53.0209 -128.7583,53.0613 -128.7978,53.0766 -128.8063,53.0696 -128.7957,53.0481 -128.7816,53.0346 -128.7686,53.0382 -128.7515,53.0374 -128.7042,53.0111 -128.655,52.9746 -128.7471,52.9139 -128.7471,52.9139 113,-8.0,Canada -131.0579,52.0594 -131.0915,52.0897 -131.1562,52.1304 -131.1816,52.1454 -131.2038,52.1601 -131.3424,52.2731 -131.3643,52.3001 -131.3708,52.3249 -131.3254,52.3392 -131.3521,52.3707 -131.4606,52.4199 -131.4997,52.4302 -131.5588,52.4475 -131.6821,52.5218 -131.806,52.6163 -131.8714,52.6687 -131.8483,52.694 -131.792,52.7142 -131.7569,52.6993 -131.7329,52.6743 -131.7125,52.6638 -131.7297,52.7078 -131.7537,52.7289 -131.822,52.7515 -131.8471,52.7448 -131.9031,52.6878 -132.0066,52.7472 -132.1033,52.8405 -132.1313,52.8739 -132.1084,52.8855 -132.0352,52.8922 -131.9549,52.8664 -131.9433,52.8973 -131.9003,52.9333 -132.0477,52.968 -132.0813,52.9694 -132.1978,52.9704 -132.2736,52.9683 -132.2954,52.9809 -132.3393,53.0301 -132.343,53.0843 -132.3176,53.0835 -132.2768,53.0703 -132.2364,53.066 -132.1988,53.0658 -132.1638,53.0676 -131.9964,53.0798 -131.8514,53.0941 -131.8163,53.1181 -131.7931,53.1327 -131.7103,53.1699 -131.5852,53.1892 -131.548,53.1345 -131.4174,53.0223 -131.385,52.9789 -131.4213,52.9717 -131.5329,52.9945 -131.5685,53.0087 -131.6083,53.0109 -131.7298,52.9933 -131.7514,52.9847 -131.6972,52.9466 -131.6807,52.9615 -131.6478,52.9782 -131.6084,52.9797 -131.4412,52.9441 -131.4094,52.9332 -131.3915,52.9201 -131.3842,52.9002 -131.4033,52.8588 -131.4564,52.817 -131.484,52.8069 -131.5934,52.8039 -131.6213,52.8235 -131.6369,52.8405 -131.6579,52.8611 -131.6823,52.8771 -131.7288,52.8718 -131.7679,52.8162 -131.7481,52.8132 -131.7261,52.8178 -131.6442,52.7947 -131.5604,52.654 -131.5184,52.6345 -131.4719,52.5785 -131.4492,52.5207 -131.3503,52.4699 -131.2651,52.4434 -131.2146,52.3997 -131.2185,52.354 -131.187,52.3155 -131.1579,52.324 -131.1502,52.3474 -131.112,52.3716 -131.0551,52.3788 -131.0256,52.376 -131.0408,52.3017 -131.0525,52.2846 -131.0949,52.2713 -131.1167,52.2732 -131.1213,52.2277 -131.0572,52.2202 -131.0443,52.2358 -130.968,52.258 -130.9285,52.2506 -130.8874,52.2255 -130.8036,52.1583 -130.8066,52.13 -130.8266,52.1121 -130.9079,52.1077 -130.9666,52.0633 -131.0579,52.0594 -131.0579,52.0594 44,-5.0,Canada -80.956,53.1175 -80.9138,53.0868 -80.8448,53.0493 -80.6788,52.9151 -80.6388,52.8765 -80.5389,52.713 -80.5417,52.6853 -80.5803,52.6303 -80.6137,52.6344 -80.6365,52.6485 -80.6768,52.6597 -80.7316,52.6698 -80.769,52.676 -80.7891,52.6791 -80.8654,52.6847 -80.8901,52.6883 -81.0153,52.729 -81.0753,52.7557 -81.1213,52.7711 -81.1564,52.7785 -81.2381,52.7945 -81.2861,52.8014 -81.453,52.8277 -81.5177,52.8455 -81.6406,52.878 -81.6798,52.8838 -81.7019,52.8847 -81.7491,52.8927 -81.7926,52.9021 -81.8237,52.9125 -81.9252,52.9583 -81.9202,52.9799 -81.8293,53.0623 -81.7778,53.097 -81.7591,53.1064 -81.7234,53.1184 -81.6931,53.1196 -81.5818,53.1267 -81.4106,53.147 -81.2479,53.1629 -81.1633,53.1558 -80.9794,53.1382 -80.956,53.1175 -80.956,53.1175 22,-8.0,Canada -129.2525,53.118 -129.2226,53.0893 -129.1434,53.0103 -129.0812,52.9318 -129.0835,52.9104 -129.1035,52.9052 -129.1325,52.9117 -129.2099,52.9542 -129.2154,52.9785 -129.2198,52.988 -129.2657,53.04 -129.2988,53.0661 -129.3118,53.0692 -129.3343,53.0688 -129.3379,53.0874 -129.3366,53.0984 -129.3284,53.1097 -129.3078,53.1229 -129.284,53.1266 -129.265,53.1246 -129.2525,53.118 -129.2525,53.118 22,2.0,Netherlands 4.7462,52.927 4.7312,52.928 4.7167,52.9336 4.7083,52.9423 4.7009,52.9588 4.7,52.9785 4.7064,52.9944 4.7143,53.0045 4.7357,53.0241 4.8487,53.1218 4.8609,53.1262 4.8759,53.1217 4.9045,53.0802 4.9026,53.0329 4.8956,53.0225 4.8689,52.9951 4.851,52.9773 4.797,52.9451 4.78,52.9373 4.7572,52.9288 4.7462,52.927 4.7462,52.927 18,-5.0,Canada -79.7368,53.1075 -79.7293,53.1049 -79.7166,53.0987 -79.6664,53.0546 -79.659,53.0427 -79.6638,53.0329 -79.7103,53.0212 -79.7798,53.02 -79.7935,53.0215 -79.8015,53.0303 -79.8088,53.0607 -79.8088,53.0733 -79.8032,53.0881 -79.7721,53.1117 -79.7577,53.1127 -79.7478,53.111 -79.7368,53.1075 -79.7368,53.1075 31,-10.0,United States 172.6515,52.6826 172.6227,52.7259 172.5182,52.8064 172.4966,52.818 172.4296,52.8127 172.361,52.8019 172.2165,52.8528 172.2011,52.8607 172.2513,52.8916 172.2666,52.8982 172.308,52.9157 172.3684,52.9401 172.508,52.9503 172.6111,52.9379 172.7472,52.9337 172.8443,52.9309 172.8611,52.9285 173.0327,52.8579 173.0425,52.8452 173.019,52.8186 173.068,52.7954 173.1582,52.7905 173.1558,52.7705 173.1469,52.7656 173.0436,52.7597 172.9166,52.7579 172.8203,52.747 172.7334,52.7359 172.665,52.6854 172.6515,52.6826 172.6515,52.6826 23,-10.0,United States -169.7268,52.7771 -169.7166,52.7836 -169.7022,52.7885 -169.5912,52.8107 -169.5078,52.8238 -169.4875,52.8228 -169.4528,52.8199 -169.4411,52.8165 -169.4086,52.8007 -169.4045,52.7909 -169.4023,52.7563 -169.4361,52.7155 -169.4494,52.7099 -169.4626,52.7105 -169.4749,52.7165 -169.6069,52.7476 -169.6472,52.7282 -169.6875,52.7241 -169.7186,52.7394 -169.7397,52.7567 -169.7333,52.7731 -169.7268,52.7771 -169.7268,52.7771 15,-8.0,Canada -128.2922,52.8093 -128.2818,52.8055 -128.2635,52.7895 -128.2445,52.7439 -128.2476,52.7184 -128.298,52.5832 -128.3089,52.5819 -128.3147,52.5937 -128.3342,52.6419 -128.3288,52.6967 -128.3275,52.7078 -128.3051,52.8027 -128.2993,52.8114 -128.2922,52.8093 -128.2922,52.8093 22,-8.0,Canada -129.0235,52.7547 -129.0108,52.7476 -128.8972,52.6798 -128.8591,52.6534 -128.7407,52.5651 -128.7164,52.5443 -128.7129,52.4663 -128.717,52.4542 -128.7311,52.4194 -128.7411,52.4067 -128.7564,52.3986 -128.7734,52.3921 -128.9087,52.4956 -129.004,52.5878 -129.0562,52.6491 -129.0632,52.658 -129.0848,52.7031 -129.0717,52.7585 -129.0589,52.7649 -129.0443,52.7639 -129.0235,52.7547 -129.0235,52.7547 16,-8.0,Canada -127.9642,52.7562 -127.9702,52.7265 -127.9728,52.7146 -128.0037,52.6405 -128.0434,52.5575 -128.0563,52.5434 -128.0719,52.5356 -128.0836,52.5444 -128.0874,52.6002 -128.1171,52.6798 -128.1197,52.7122 -128.0574,52.7232 -128.0047,52.737 -127.9717,52.7633 -127.9642,52.7562 -127.9642,52.7562 20,-8.0,Canada -128.1672,52.7298 -128.1567,52.6789 -128.153,52.6679 -128.1163,52.5737 -128.0712,52.4322 -128.0822,52.3967 -128.1075,52.3628 -128.165,52.3196 -128.1824,52.3142 -128.1996,52.311 -128.2263,52.3071 -128.2378,52.3071 -128.2541,52.3142 -128.263,52.329 -128.233,52.4824 -128.245,52.5627 -128.2322,52.6918 -128.1805,52.736 -128.1672,52.7298 -128.1672,52.7298 16,-8.0,Canada -131.2581,52.6693 -131.2387,52.6537 -131.2293,52.643 -131.2309,52.6229 -131.246,52.5725 -131.2543,52.5665 -131.3793,52.5246 -131.3911,52.5276 -131.4017,52.5351 -131.4133,52.5477 -131.4985,52.6441 -131.4769,52.6652 -131.4483,52.6689 -131.269,52.6756 -131.2581,52.6693 -131.2581,52.6693 24,-10.0,United States -170.5227,52.4715 -170.5676,52.4907 -170.5696,52.5051 -170.5653,52.5256 -170.5473,52.5604 -170.4723,52.613 -170.3986,52.6333 -170.3582,52.6306 -170.3322,52.6254 -170.3191,52.6212 -170.2915,52.6087 -170.2908,52.5856 -170.3312,52.5319 -170.3426,52.5254 -170.3625,52.5209 -170.3824,52.5202 -170.3924,52.5217 -170.4163,52.5285 -170.4309,52.5288 -170.4637,52.5188 -170.4757,52.5127 -170.4978,52.4984 -170.5227,52.4715 -170.5227,52.4715 27,-8.0,Canada -128.3296,52.5861 -128.3263,52.5599 -128.3236,52.5499 -128.3165,52.5301 -128.296,52.4825 -128.2822,52.4571 -128.275,52.4456 -128.2672,52.4316 -128.2633,52.4219 -128.26,52.4097 -128.2617,52.3984 -128.2664,52.3886 -128.2794,52.378 -128.2896,52.3742 -128.3094,52.3712 -128.3908,52.3991 -128.4582,52.4308 -128.5499,52.4267 -128.5752,52.4338 -128.6074,52.4603 -128.6047,52.479 -128.5302,52.5279 -128.5189,52.5305 -128.3729,52.5324 -128.362,52.5613 -128.3296,52.5861 -128.3296,52.5861 19,-10.0,United States 173.385,52.2881 173.3887,52.3044 173.3534,52.3309 173.3164,52.3343 173.3016,52.3329 173.2849,52.3255 173.2492,52.3199 173.2219,52.3181 173.1,52.341 173.1195,52.3606 173.1788,52.3895 173.3547,52.4427 173.4223,52.4473 173.4901,52.4469 173.509,52.4422 173.4636,52.294 173.4492,52.2915 173.385,52.2881 173.385,52.2881 17,-8.0,Canada -128.4115,52.3875 -128.4093,52.3037 -128.4106,52.2925 -128.4151,52.2663 -128.4238,52.2478 -128.4682,52.2059 -128.5204,52.2517 -128.544,52.3084 -128.5575,52.3641 -128.5544,52.3884 -128.545,52.4086 -128.4732,52.4214 -128.4453,52.4135 -128.432,52.4075 -128.4139,52.3959 -128.4115,52.3875 -128.4115,52.3875 49,-8.0,Canada -127.3948,52.0914 -127.4527,52.0632 -127.4858,52.0139 -127.4907,52.0032 -127.5002,51.9807 -127.5031,51.9687 -127.4989,51.9543 -127.5001,51.9415 -127.5074,51.9279 -127.5202,51.9183 -127.6701,51.8844 -127.6823,51.8863 -127.6922,51.8936 -127.6985,51.9129 -127.7001,51.9257 -127.6996,51.939 -127.6797,52.0186 -127.672,52.0345 -127.6497,52.081 -127.6266,52.1152 -127.6154,52.1307 -127.5955,52.1533 -127.5869,52.1612 -127.5472,52.1861 -127.4979,52.1966 -127.4787,52.1983 -127.453,52.1989 -127.3844,52.2202 -127.3114,52.2449 -127.2567,52.2872 -127.2534,52.3056 -127.2153,52.3245 -127.1605,52.343 -127.0593,52.3749 -127.0325,52.3559 -127.0075,52.2792 -127.0173,52.2649 -127.0304,52.2523 -127.0458,52.2411 -127.0691,52.2277 -127.0877,52.2187 -127.1051,52.2121 -127.1242,52.2073 -127.1603,52.2041 -127.2241,52.1855 -127.2407,52.1791 -127.3815,52.1132 -127.3948,52.0914 -127.3948,52.0914 13,-8.0,Canada -127.8889,52.3476 -127.8817,52.3357 -127.8549,52.2885 -127.8556,52.2677 -127.9488,52.2214 -127.9814,52.2179 -128.0073,52.2183 -127.9857,52.2701 -127.9797,52.279 -127.9091,52.359 -127.8987,52.3591 -127.8889,52.3476 -127.8889,52.3476 65,-10.0,United States -174.1229,51.9947 -174.1696,51.9817 -174.3348,51.9647 -174.445,51.9418 -174.4552,51.9428 -174.4852,51.9541 -174.5128,51.9627 -174.5654,51.9717 -174.6152,51.978 -174.6945,51.9693 -174.726,51.9536 -174.7384,51.9422 -174.8044,51.9382 -174.8529,51.9413 -174.9079,51.947 -174.9841,51.9483 -175.0193,51.948 -175.0373,51.9385 -175.0585,51.956 -174.9126,51.9836 -174.736,52.0125 -174.7234,52.012 -174.7037,51.9943 -174.6424,52.0459 -174.6326,52.0501 -174.524,52.0344 -174.3912,52.0491 -174.3254,52.0585 -174.2293,52.0742 -174.2212,52.0832 -174.2309,52.0886 -174.2517,52.0852 -174.265,52.0868 -174.2752,52.0939 -174.2793,52.113 -174.1659,52.1518 -174.1234,52.1526 -174.1044,52.1501 -174.089,52.1459 -174.0802,52.1416 -174.0688,52.1315 -174.0533,52.1337 -174.0039,52.1493 -173.9536,52.1859 -173.9512,52.201 -173.961,52.2086 -174.0691,52.218 -174.0927,52.2167 -174.1428,52.2278 -174.1596,52.2343 -174.1698,52.2459 -174.1573,52.2585 -174.0607,52.304 -173.9032,52.3568 -173.8822,52.3577 -173.8038,52.3294 -173.7531,52.2949 -173.715,52.2615 -173.718,52.2327 -173.8675,52.0633 -173.9348,52.0385 -174.0076,52.0492 -174.1,52.0377 -174.1229,51.9947 -174.1229,51.9947 21,-10.0,United States -172.2484,52.1822 -172.3307,52.1884 -172.3548,52.1978 -172.347,52.2236 -172.3381,52.2356 -172.2934,52.2739 -172.2001,52.3221 -172.185,52.3264 -172.1644,52.3312 -172.1404,52.3289 -172.0458,52.2926 -172.0305,52.285 -172.0235,52.2641 -172.0407,52.2511 -172.0763,52.2394 -172.1152,52.229 -172.1648,52.2216 -172.2272,52.1968 -172.2389,52.1905 -172.2484,52.1822 -172.2484,52.1822 1286,3.0,Ukraine 31.7338,52.0474 31.7752,52.0508 31.8059,52.0475 31.85,52.0329 31.8588,52.0091 31.9457,51.9942 32.0735,51.9842 32.1744,52.0192 32.2473,52.0485 32.2806,52.1088 32.3132,52.2583 32.3381,52.2734 32.3622,52.2748 32.4758,52.2635 32.5011,52.2594 32.5329,52.2488 32.5572,52.24 32.5876,52.2287 32.6491,52.2075 32.6798,52.2008 32.7069,52.197 32.865,52.1871 32.8896,52.1931 32.9197,52.212 32.986,52.245 33.1532,52.3179 33.3258,52.304 33.3647,52.2946 33.4599,52.2661 33.5485,52.2712 33.5754,52.2812 33.6356,52.2989 33.7088,52.3079 33.7782,52.3025 34.0091,52.1357 34.046,52.0846 34.0239,52.0608 34.0203,51.9981 34.0302,51.977 34.0757,51.926 34.1871,51.8511 34.2839,51.7964 34.3302,51.7832 34.3684,51.7442 34.3876,51.6948 34.3725,51.6682 34.3355,51.6552 34.2021,51.6411 34.1446,51.6367 34.0526,51.6148 34.0488,51.588 34.1101,51.5548 34.1818,51.4843 34.1922,51.4415 34.187,51.3722 34.3292,51.2044 34.3539,51.2044 34.4976,51.1741 34.6192,51.1194 34.6554,51.1151 34.6818,51.1131 34.7134,51.1122 34.7477,51.1143 34.7736,51.1187 34.8668,51.1385 34.8905,51.1568 34.9213,51.1643 35.0226,51.1615 35.0651,51.1402 35.0709,51.1194 35.0657,51.0927 35.0971,51.0148 35.1118,50.9994 35.1412,50.9894 35.1682,50.9893 35.1903,50.9918 35.2397,51.0007 35.3147,50.983 35.3164,50.9624 35.291,50.9475 35.2559,50.9236 35.252,50.9016 35.3038,50.8697 35.4069,50.7045 35.4322,50.6203 35.3457,50.5833 35.3876,50.4537 35.4048,50.4298 35.5443,50.3153 35.591,50.2961 35.6276,50.2888 35.6394,50.2892 35.6894,50.3271 35.7737,50.3649 35.8041,50.3714 35.8398,50.3753 35.8731,50.3776 35.9242,50.3802 35.9533,50.381 36.005,50.3769 36.0376,50.3731 36.0938,50.364 36.134,50.3401 36.145,50.3154 36.1612,50.297 36.2244,50.2365 36.2456,50.2257 36.2726,50.2228 36.2991,50.2294 36.3204,50.2377 36.365,50.2558 36.4225,50.2432 36.5051,50.2115 36.4991,50.1732 36.5235,50.1594 36.5534,50.1551 36.5964,50.1614 36.6147,50.1856 36.6384,50.2047 36.6622,50.2166 36.7549,50.2563 36.8362,50.2792 36.9201,50.2909 36.9611,50.2889 37.0034,50.2798 37.0745,50.2903 37.1607,50.3117 37.1895,50.3219 37.2145,50.3356 37.2363,50.354 37.2664,50.3706 37.3622,50.38 37.4056,50.3779 37.5928,50.1264 37.6894,50.0226 37.7366,50.0113 37.7666,50.004 37.8684,49.9671 37.9254,49.9119 37.9572,49.877 37.9678,49.8459 38.047,49.8811 38.1298,50.0079 38.2475,50.0161 38.2723,50.0081 38.2866,49.9888 38.294,49.9652 38.3044,49.9434 38.3276,49.9277 38.4488,49.8949 38.4901,49.8973 38.5306,49.9074 38.5572,49.9064 38.595,49.9015 38.6318,49.878 38.7682,49.824 38.809,49.8173 38.8415,49.8042 38.8634,49.7784 38.8842,49.754 38.9139,49.75 39.0149,49.7627 39.0342,49.7741 39.0639,49.7987 39.1259,49.8231 39.145,49.8138 39.1811,49.7455 39.19,49.7171 39.2083,49.6994 39.2384,49.6868 39.2705,49.6799 39.3017,49.6757 39.325,49.6784 39.3537,49.6883 39.3847,49.6995 39.4118,49.7003 39.5292,49.6644 39.5547,49.6117 39.5715,49.5705 39.5958,49.5508 39.7537,49.4936 39.801,49.495 39.8398,49.5026 39.8717,49.5118 39.8953,49.524 39.9161,49.5429 39.9396,49.5556 39.9839,49.5598 40.0092,49.5563 40.0807,49.5443 40.0899,49.5207 40.077,49.4987 40.0445,49.4856 40.0202,49.4739 40.0003,49.449 39.9956,49.4172 40.03,49.3679 40.0508,49.3474 40.0899,49.314 40.1136,49.2961 40.1199,49.2763 40.1089,49.1952 40.0229,49.1274 39.9956,49.1176 39.9417,49.0932 39.9081,49.0675 39.8925,49.0516 39.8809,49.0334 39.8832,49.0083 39.8592,48.9942 39.7653,48.9962 39.6474,48.9798 39.6401,48.9605 39.6357,48.9203 39.7175,48.8452 39.8918,48.8115 39.9684,48.8376 40.0008,48.8349 40.0165,48.8202 40.0107,48.7937 39.9813,48.7643 39.9632,48.7527 39.7988,48.7653 39.7709,48.7688 39.7502,48.7638 39.7247,48.7469 39.6694,48.7063 39.6463,48.663 39.6025,48.5482 39.6748,48.5269 39.703,48.5268 39.7325,48.5281 39.7572,48.5222 39.7911,48.5015 39.8095,48.4485 39.8639,48.313 39.9411,48.2421 39.8833,48.162 39.8597,48.1433 39.846,48.1264 39.7189,47.9692 39.7426,47.9461 39.7604,47.9195 39.7461,47.8138 39.7239,47.7876 39.7073,47.7745 39.6743,47.7647 39.6267,47.7689 39.5863,47.7779 39.5481,47.7844 39.423,47.7848 39.3755,47.7769 39.3531,47.777 39.3278,47.7908 39.2974,47.7976 39.1985,47.7981 39.1327,47.7882 39.0855,47.7798 39.0623,47.7828 38.9821,47.8109 38.8687,47.8135 38.8414,47.8136 38.8113,47.8097 38.7903,47.802 38.7669,47.7836 38.7342,47.7241 38.715,47.6664 38.7026,47.635 38.5549,47.5849 38.5224,47.5779 38.4821,47.5736 38.4414,47.5728 38.3987,47.5743 38.2989,47.5541 38.2462,47.5007 38.2259,47.4518 38.1687,47.286 38.2466,47.2473 38.1992,47.1743 38.1726,47.1569 38.1604,47.1338 38.1713,47.0741 38.1812,47.0556 38.0796,47.0087 38.017,47.0414 37.8426,47.0433 37.8057,47.0431 37.7821,47.0392 37.7477,47.0276 37.6976,47.0164 37.5946,47.0211 37.5561,47.0319 37.5061,47.0328 37.4854,47.025 37.4068,46.9575 37.3404,46.8955 37.2679,46.8467 37.1944,46.8793 37.1443,46.8723 37.0257,46.8318 36.9869,46.8204 36.9405,46.8042 36.8642,46.7723 36.8155,46.7374 36.7117,46.6976 36.6895,46.7114 36.6482,46.7191 36.5617,46.7221 36.4634,46.6997 36.365,46.6711 36.344,46.6639 36.3242,46.6558 36.303,46.6419 36.1878,46.5809 36.1633,46.6064 36.1421,46.6136 36.0166,46.6172 35.8562,46.598 35.7613,46.5654 35.7098,46.5399 35.6783,46.5201 35.6486,46.4917 35.5994,46.4485 35.5778,46.4361 35.5325,46.4194 35.4982,46.408 35.4679,46.4023 35.434,46.3889 35.3022,46.279 35.2316,46.2018 35.1465,46.102 35.1112,46.0759 35.0749,46.06 34.9475,46.0216 34.931,46.0337 35.0052,46.0893 35.0599,46.1028 35.1022,46.1112 35.1358,46.1197 35.1546,46.1318 35.1982,46.1806 35.2177,46.207 35.2333,46.218 35.2845,46.269 35.2981,46.297 35.1482,46.3903 35.166,46.3575 35.1558,46.3344 35.0703,46.2465 35.0614,46.2414 35.0074,46.2074 34.9844,46.1975 34.7633,46.1288 34.6536,46.1232 34.5828,46.0297 34.5341,45.9458 34.5177,45.9336 34.4922,45.9314 34.4533,45.9344 34.357,45.9602 34.3929,46.0414 34.414,46.0459 34.4422,46.0594 34.4683,46.0512 34.4926,46.0354 34.5112,46.045 34.5216,46.0687 34.5253,46.1007 34.4883,46.1318 34.4286,46.1083 34.4079,46.1021 34.2809,46.1178 34.1915,46.1755 34.1578,46.2064 34.1352,46.2217 34.1075,46.2288 34.0798,46.1536 34.0758,46.1076 34.079,46.066 33.9845,46.0807 33.9451,46.117 33.927,46.1477 33.9093,46.161 33.7253,46.1956 33.6342,46.169 33.6236,46.1628 33.6582,46.1124 33.6819,46.0925 33.7423,46.0687 33.7543,46.0877 33.7594,46.118 33.7981,46.1076 33.8356,46.0155 33.8523,45.9863 33.9206,45.9648 33.9419,45.9744 33.9419,46.0192 33.8965,46.0355 33.9145,46.0482 33.9574,46.0447 34.0662,45.9653 34.0689,45.9158 34.0916,45.888 34.1134,45.8854 34.1526,45.9039 34.1497,45.9424 34.1733,45.9551 34.1334,45.9808 34.3101,45.9639 34.3334,45.9399 34.3665,45.8962 34.348,45.8732 34.3282,45.8665 34.3102,45.8315 34.4488,45.8226 34.5229,45.8756 34.4969,45.913 34.5652,45.8959 34.5878,45.8852 34.5826,45.8649 34.5545,45.8266 34.4974,45.7902 34.4152,45.7174 34.6006,45.7335 34.7366,45.6638 34.8651,45.6103 34.9375,45.5801 35.0214,45.4995 35.0356,45.4732 35.0444,45.4122 35.0272,45.3959 34.9968,45.3844 34.9647,45.3719 35.0098,45.3139 35.0715,45.2769 35.0841,45.2735 35.1178,45.2851 35.2892,45.2346 35.2937,45.2811 35.183,45.3913 35.0978,45.4756 35.0384,45.5332 35.0052,45.5582 34.953,45.6199 34.9319,45.6487 34.9115,45.6878 34.8972,45.7023 34.8554,45.7608 34.816,45.8111 34.7999,45.8459 34.706,45.9588 34.6682,45.9784 34.6516,45.9938 34.6173,46.0338 34.6846,46.0557 34.7506,46.0353 34.7745,46.02 34.804,45.9486 34.8161,45.9103 34.8531,45.8313 34.8906,45.7678 34.9302,45.7014 34.9421,45.6813 35.0048,45.6018 35.0217,45.5826 35.1999,45.3951 35.27,45.3254 35.3101,45.2996 35.3335,45.2871 35.4082,45.2469 35.4392,45.2368 35.4959,45.2417 35.6473,45.2769 35.8127,45.353 35.8366,45.3405 35.8824,45.3187 35.9047,45.3116 35.9426,45.3067 35.9647,45.3086 35.9903,45.326 36.0064,45.3513 36.0184,45.3734 36.0855,45.4066 36.2402,45.4135 36.4344,45.3899 36.5532,45.367 36.5857,45.3263 36.5858,45.298 36.5693,45.282 36.5234,45.28 36.4896,45.2898 36.443,45.2873 36.3802,45.2198 36.3597,45.1482 36.3544,45.1048 36.3643,45.0768 36.3907,45.0472 36.4026,45.026 36.1776,44.955 36.0838,44.969 35.9589,44.9605 35.9435,44.9475 35.8069,44.9354 35.7837,44.943 35.7619,44.9735 35.7357,45.0017 35.678,45.0293 35.6273,45.0492 35.5923,45.0603 35.5434,45.0679 35.5126,45.0692 35.4771,45.0673 35.3796,45.0231 35.3633,45.0115 35.3477,44.9896 35.2004,44.905 35.0995,44.8411 35.0845,44.8253 35.0734,44.8028 35.0639,44.7742 35.0542,44.7554 35.0338,44.7407 35.0003,44.7419 34.9493,44.7825 34.9151,44.7888 34.6756,44.7586 34.4704,44.6936 34.4137,44.6696 34.3929,44.6542 34.3503,44.6003 34.3288,44.5711 34.3118,44.543 34.2885,44.4985 34.0823,44.3853 33.964,44.3455 33.908,44.3307 33.883,44.3291 33.7913,44.3479 33.748,44.3371 33.6637,44.344 33.5769,44.4018 33.5547,44.4262 33.5315,44.4416 33.4912,44.4363 33.413,44.4622 33.3405,44.5093 33.3224,44.5338 33.4179,44.5525 33.5076,44.573 33.4918,44.6221 33.4727,44.7302 33.4821,44.7461 33.4937,44.7747 33.5091,44.7916 33.5545,44.8069 33.5743,44.8665 33.5653,44.9118 33.5198,45.0364 33.4994,45.0573 33.4664,45.0781 33.3794,45.1222 33.3497,45.1334 33.3157,45.1325 33.2923,45.1228 33.2299,45.1042 33.1291,45.1388 33.1001,45.1579 33.0769,45.1776 33.0269,45.2161 32.9655,45.2529 32.8886,45.2912 32.818,45.3061 32.7948,45.308 32.6817,45.3032 32.6405,45.2838 32.6111,45.261 32.5243,45.2682 32.4643,45.2881 32.4358,45.3423 32.4486,45.3702 32.4832,45.4057 32.5283,45.4306 32.5842,45.4581 32.7883,45.553 32.8524,45.5907 32.8852,45.6055 32.9761,45.6354 33.1375,45.6864 33.1863,45.6904 33.2119,45.6958 33.2636,45.7138 33.3125,45.7354 33.3343,45.7482 33.358,45.7679 33.377,45.7796 33.4336,45.7959 33.5188,45.8096 33.5758,45.8253 33.7218,45.8729 33.6973,45.8928 33.6209,45.9051 33.599,45.9185 33.579,45.9457 33.5811,46.0121 33.5756,46.0717 33.5668,46.09 33.5464,46.1038 33.478,46.0604 33.4638,46.0314 33.4481,46.014 33.4275,46.0007 33.3825,45.9936 33.3364,46.0348 33.2688,46.0718 33.2224,46.089 33.1418,46.1074 33.0784,46.0784 32.8573,46.0585 32.7999,46.0675 32.7655,46.0768 32.7282,46.0773 32.6985,46.0734 32.5886,46.0567 32.5396,46.0437 32.4923,46.0251 32.4545,46.0238 32.3645,46.0391 32.2921,46.0554 32.2189,46.0744 32.1979,46.1204 31.982,46.2037 31.8738,46.2312 31.8449,46.2287 31.7861,46.2242 31.7654,46.2262 31.7455,46.2316 31.721,46.257 31.7703,46.2868 31.8065,46.2894 31.8372,46.2876 31.8723,46.2875 31.8979,46.2902 31.9304,46.2973 32.0113,46.3389 31.9619,46.395 31.9215,46.4002 31.7713,46.43 31.7646,46.432 31.7276,46.4405 31.6612,46.4364 31.6135,46.4184 31.5582,46.4507 31.4823,46.5045 31.47,46.5262 31.4952,46.5086 31.5121,46.4972 31.5433,46.4888 31.5757,46.4871 31.628,46.4919 31.6509,46.4976 31.6986,46.5013 31.719,46.5003 31.7925,46.4766 31.8076,46.4696 31.8514,46.4656 32.0473,46.4568 32.1355,46.4385 32.2311,46.4155 32.274,46.4089 32.3025,46.4061 32.3704,46.4446 32.367,46.4728 32.4028,46.4994 32.4447,46.5225 32.5118,46.5434 32.5498,46.5507 32.5686,46.5606 32.5954,46.5892 32.4725,46.5552 32.41,46.5316 32.3755,46.5151 32.3541,46.5085 32.3296,46.5043 32.2826,46.5034 32.2534,46.5121 32.2356,46.5248 32.1973,46.5481 32.139,46.5277 32.0964,46.5074 31.9684,46.581 31.9479,46.6009 31.9257,46.6402 31.9212,46.6735 31.9034,46.6874 31.8906,46.7108 31.8898,46.7407 31.9013,46.767 31.9343,46.7918 31.9477,46.8154 31.9627,46.8513 31.9659,46.8724 31.9353,46.9538 31.7946,47.126 31.7061,47.1984 31.6816,47.1777 31.7096,47.1477 31.7535,47.1371 31.7714,47.1239 31.825,47.0262 31.7969,46.9878 31.7942,46.9593 31.8623,46.8706 31.8909,46.8675 31.9196,46.8719 31.9186,46.8364 31.8955,46.8013 31.8425,46.7787 31.8266,46.7636 31.8185,46.7422 31.8266,46.7167 31.8503,46.6986 31.8618,46.6806 31.863,46.6006 31.8146,46.5752 31.7671,46.5624 31.694,46.5739 31.667,46.585 31.6472,46.5909 31.6022,46.6003 31.5702,46.5949 31.5486,46.578 31.5308,46.5545 31.4332,46.5787 31.4434,46.6028 31.4678,46.6167 31.5057,46.6658 31.551,46.7438 31.4761,46.6867 31.46,46.6634 31.4254,46.6154 31.3754,46.5723 31.2928,46.5489 31.2238,46.5551 31.1933,46.5599 31.1448,46.5715 31.133,46.5726 31.1121,46.5703 31.0294,46.5613 31.009,46.5589 30.9715,46.5503 30.8974,46.5294 30.7893,46.4951 30.7364,46.4286 30.7501,46.3926 30.7216,46.3262 30.6126,46.2009 30.4662,46.044 30.2039,45.8216 30.1213,45.7774 30.102,45.7685 30.0211,45.7478 30.0052,45.7605 29.988,45.7791 29.9415,45.7911 29.888,45.7655 29.7603,45.6831 29.7556,45.6629 29.784,45.6347 29.8179,45.6235 29.7808,45.5965 29.7386,45.5771 29.701,45.5723 29.6382,45.6444 29.6356,45.6875 29.6479,45.7165 29.6396,45.7515 29.5945,45.7687 29.5546,45.6316 29.5516,45.5051 29.5779,45.4361 29.6326,45.4137 29.6913,45.4196 29.7118,45.3977 29.7189,45.2707 29.6905,45.175 29.6673,45.162 29.6229,45.1605 29.6306,45.2209 29.6274,45.2432 29.6136,45.2763 29.5995,45.2949 29.5618,45.3254 29.5395,45.3374 29.4695,45.3592 29.3704,45.3841 29.2806,45.3872 29.1807,45.374 28.9275,45.2697 28.8085,45.2501 28.7574,45.1865 28.6608,45.1688 28.5349,45.1912 28.3363,45.2492 28.3039,45.2641 28.2783,45.2855 28.2597,45.3111 28.2459,45.3438 28.2396,45.3775 28.1874,45.3976 28.1754,45.3968 28.1759,45.4116 28.193,45.4437 28.2076,45.4595 28.2271,45.4685 28.2494,45.474 28.2766,45.4757 28.3058,45.4714 28.3268,45.4662 28.3599,45.4602 28.4431,45.4546 28.4758,45.4631 28.4906,45.4799 28.4847,45.5952 28.4506,45.6137 28.4845,45.659 28.5567,45.7161 28.6398,45.7275 28.7264,45.8106 28.7102,45.874 28.7229,45.9094 28.7607,45.92 28.789,45.9259 28.8561,45.9381 28.9274,45.9536 28.9993,46.1428 28.9809,46.1651 28.9093,46.2367 28.8933,46.3771 28.9353,46.4151 28.9533,46.4254 28.998,46.4437 29.1328,46.4865 29.1622,46.4918 29.182,46.4666 29.1872,46.4317 29.1786,46.3538 29.1611,46.3301 29.1766,46.3146 29.197,46.3153 29.266,46.3515 29.264,46.3755 29.3092,46.4171 29.4578,46.4318 29.4529,46.3893 29.5603,46.3239 29.5919,46.3167 29.6205,46.3264 29.6925,46.3881 29.7832,46.3157 29.8243,46.2934 29.8812,46.3291 29.9242,46.3267 29.9541,46.326 30.0064,46.3259 30.056,46.3283 30.0861,46.3524 30.0742,46.3734 30.0541,46.3768 30.0234,46.3825 29.993,46.3903 29.9644,46.4039 29.8864,46.4524 29.857,46.4823 29.8739,46.5056 29.9226,46.517 29.9292,46.6888 29.902,46.7647 29.8246,46.8077 29.6953,46.8367 29.5322,46.8939 29.5505,46.9695 29.53,47.0889 29.557,47.225 29.5484,47.2564 29.5248,47.2836 29.4597,47.2905 29.4479,47.2734 29.4365,47.2434 29.3719,47.237 29.3385,47.2752 29.3389,47.3021 29.3168,47.3242 29.2575,47.3681 29.2039,47.4035 29.1812,47.3946 29.1486,47.3853 29.1011,47.4577 29.0937,47.4946 29.1185,47.5273 29.1536,47.5547 29.2155,47.7117 29.1337,47.9 29.1029,47.9286 29.0615,47.9318 29.0317,47.9221 29.0193,47.8969 29.0013,47.8809 28.9747,47.8776 28.9409,47.8823 28.92,47.8918 28.859,47.9337 28.8406,47.9506 28.8382,47.9556 28.7869,48.0545 28.7659,48.0703 28.696,48.0836 28.6012,48.0985 28.5165,48.1067 28.461,48.0792 28.3958,48.0909 28.3478,48.1086 28.3264,48.136 28.3296,48.1668 28.3062,48.1868 28.2499,48.1814 28.2194,48.1655 28.1952,48.1516 28.1724,48.1512 28.0454,48.1875 28.053,48.2361 28.0344,48.2559 27.9743,48.2613 27.9155,48.2722 27.8917,48.2822 27.8726,48.2926 27.8506,48.3088 27.84,48.3256 27.8261,48.3451 27.7232,48.3943 27.5074,48.4129 27.4796,48.4101 27.4143,48.3842 27.1999,48.313 26.942,48.3024 26.7696,48.2779 26.6636,48.2848 26.6131,48.2456 26.5994,48.2185 26.5967,48.2019 26.5294,48.1674 26.4924,48.153 26.4694,48.1584 26.4306,48.1622 26.2796,48.121 26.2344,48.0211 26.1559,47.9468 26.1211,47.9303 26.0773,47.9266 26.0653,47.9269 25.9997,47.9288 25.8848,47.9198 25.8013,47.9085 25.7803,47.9003 25.7436,47.8822 25.6091,47.8789 25.5518,47.8797 25.5316,47.8811 25.4883,47.8799 25.4652,47.8786 25.2974,47.8619 25.2101,47.8339 25.1884,47.8213 25.139,47.7687 25.1178,47.7357 25.0811,47.705 25.0496,47.6897 25.0136,47.6787 24.994,47.6745 24.9636,47.6701 24.9255,47.6664 24.8933,47.6587 24.8629,47.6634 24.8277,47.7053 24.7857,47.7536 24.7671,47.7631 24.7349,47.7659 24.6816,47.784 24.6583,47.7946 24.6353,47.8121 24.6345,47.8409 24.5799,47.8791 24.5532,47.8911 24.537,47.8946 24.5211,47.8984 24.4188,47.9037 24.3866,47.9028 24.2919,47.874 24.2122,47.8491 24.093,47.8573 24.0615,47.8777 23.9978,47.9011 23.9352,47.9065 23.7896,47.9122 23.5323,47.9452 23.4806,47.9345 23.4691,47.9278 23.3768,47.9455 23.3227,47.966 23.2654,47.99 23.2458,48.0203 23.2273,48.0351 23.1409,48.0532 23.1191,48.0508 23.0925,48.0342 23.0792,48.008 23.069,47.9795 23.0544,47.9586 23.0102,47.9383 22.8971,47.9056 22.8621,47.8997 22.8264,47.9389 22.8505,47.9857 22.8138,48.0281 22.7573,48.0615 22.705,48.0594 22.6472,48.0399 22.6145,48.0395 22.5933,48.0454 22.5725,48.0613 22.5653,48.0908 22.5421,48.132 22.462,48.1944 22.4223,48.1883 22.3486,48.1897 22.3156,48.2196 22.2382,48.3047 22.2381,48.3469 22.1821,48.3624 22.1395,48.3536 22.1193,48.3564 22.1275,48.5226 22.1414,48.5372 22.2029,48.5692 22.2962,48.6311 22.3564,48.7442 22.3922,48.8333 22.4286,48.8935 22.502,48.9387 22.5186,48.9834 22.5253,49.0232 22.5356,49.0317 22.5611,49.0354 22.7045,48.9912 22.8297,48.9471 22.8527,48.9469 22.83,48.9936 22.8432,49.0313 22.8193,49.0496 22.7447,49.0943 22.6707,49.1135 22.6935,49.1615 22.7256,49.2292 22.6996,49.3405 22.6613,49.3943 22.6234,49.4732 22.6451,49.5126 22.6529,49.5202 22.6838,49.5477 22.7465,49.6181 23.0765,49.8975 23.1119,49.9256 23.1934,49.989 23.2689,50.0431 23.2897,50.0576 23.3078,50.0696 23.3432,50.0918 23.4609,50.1631 23.505,50.1847 23.5333,50.1977 23.5557,50.211 23.6486,50.2756 23.6613,50.3119 23.6819,50.3256 23.7201,50.3363 23.7561,50.3443 23.7786,50.3477 23.8111,50.3487 23.8455,50.3473 23.8935,50.3454 23.9469,50.3478 23.9661,50.3561 24.0749,50.5084 24.0721,50.5673 24.0706,50.5752 24.0358,50.6371 23.9784,50.6813 23.918,50.7332 23.9218,50.7565 23.9446,50.7707 23.9854,50.7731 24.0159,50.7725 24.0404,50.7707 24.0944,50.7795 24.1066,50.8009 24.0536,50.8233 24.0247,50.8289 23.9975,50.8396 23.9517,50.8723 23.9284,50.8917 23.895,50.9351 23.8686,51.009 23.7745,51.1098 23.7202,51.14 23.6956,51.1556 23.6475,51.2291 23.6447,51.3097 23.6563,51.3428 23.607,51.4253 23.5776,51.439 23.5682,51.4682 23.6046,51.464 23.5912,51.52 23.5766,51.547 23.6133,51.5763 23.7144,51.5919 23.8644,51.5744 23.8857,51.5602 23.9012,51.5364 23.9262,51.5257 23.961,51.5331 24.0057,51.5505 24.0334,51.5653 24.2455,51.6812 24.2595,51.7047 24.2684,51.7429 24.2765,51.7638 24.3562,51.8246 24.6615,51.8337 24.7021,51.8296 24.8587,51.8405 24.9527,51.8518 25.0129,51.8721 25.0544,51.8819 25.1336,51.8992 25.2014,51.8994 25.2301,51.8933 25.2725,51.8793 25.3124,51.8683 25.4001,51.862 25.5067,51.8618 25.5227,51.8597 25.5585,51.8586 25.6457,51.862 25.6935,51.867 25.7302,51.8778 25.7781,51.8757 25.9864,51.8502 26.1035,51.8183 26.1346,51.8026 26.1669,51.7984 26.2556,51.7936 26.2975,51.7972 26.3231,51.7987 26.3943,51.796 26.3987,51.7631 26.4161,51.7527 26.4572,51.7517 26.4893,51.7534 26.5295,51.7582 26.5667,51.761 26.601,51.7606 26.631,51.7551 26.681,51.7425 26.7307,51.7256 26.7791,51.7126 26.853,51.6954 26.8844,51.6904 26.9063,51.689 26.929,51.6921 26.9773,51.7083 27.0387,51.7111 27.1278,51.704 27.1604,51.6913 27.1623,51.6574 27.157,51.6154 27.2403,51.5385 27.3741,51.5376 27.4107,51.5429 27.4691,51.5692 27.5542,51.5559 27.6443,51.5417 27.6813,51.5218 27.6669,51.4909 27.6387,51.4337 27.705,51.4069 27.7738,51.4734 27.771,51.5086 27.7708,51.5323 27.7891,51.5494 27.8227,51.562 27.8526,51.5534 27.8824,51.5319 27.912,51.5153 27.9402,51.506 27.9628,51.5025 28.0354,51.5048 28.0656,51.5099 28.0945,51.5232 28.114,51.5502 28.1382,51.5778 28.172,51.5958 28.2128,51.5995 28.2754,51.5293 28.3894,51.5063 28.4239,51.5183 28.4464,51.5212 28.584,51.505 28.5885,51.4839 28.5928,51.4504 28.6087,51.405 28.6221,51.3871 28.7129,51.356 28.7249,51.3886 28.7217,51.4217 28.7485,51.4565 28.766,51.4749 28.7921,51.4904 29.0075,51.5713 29.0389,51.578 29.0729,51.5772 29.1178,51.568 29.136,51.5582 29.1964,51.4814 29.2045,51.4427 29.2667,51.3281 29.2971,51.3136 29.3084,51.316 29.3643,51.3434 29.5781,51.431 29.6301,51.4397 29.6729,51.4316 29.6921,51.3976 29.7168,51.3812 29.7883,51.3823 29.8353,51.4001 29.8656,51.4131 29.9369,51.4266 29.9659,51.4297 29.9966,51.4308 30.1054,51.4338 30.1334,51.432 30.1603,51.4243 30.3006,51.3406 30.3034,51.2987 30.4177,51.2358 30.5043,51.1927 30.5208,51.2386 30.5687,51.2646 30.5954,51.2717 30.5965,51.3094 30.5391,51.4294 30.5067,51.4822 30.5175,51.5836 30.5782,51.6479 30.6193,51.7411 30.6142,51.7617 30.6989,51.8352 30.7769,51.8874 30.8485,51.9176 30.9105,51.9405 30.8822,51.9718 30.8865,52.0012 30.9111,52.0191 31.0574,52.0258 31.0835,52.0261 31.2471,52.0263 31.2745,52.0445 31.2966,52.0533 31.3214,52.057 31.3731,52.0597 31.4531,52.0569 31.4741,52.056 31.5724,52.0485 31.6849,52.0457 31.7338,52.0474 31.7338,52.0474 17,-8.0,Canada -127.7277,52.1091 -127.8342,52.117 -127.8518,52.1199 -127.8806,52.127 -127.8904,52.1316 -127.9656,52.1866 -127.9559,52.1956 -127.8666,52.2339 -127.8409,52.2403 -127.7733,52.2352 -127.7593,52.2289 -127.7484,52.2192 -127.7054,52.1424 -127.7086,52.1258 -127.7192,52.115 -127.7277,52.1091 -127.7277,52.1091 12,-8.0,Canada -128.1057,52.0685 -128.1624,52.102 -128.1704,52.1247 -128.1756,52.1565 -128.1707,52.1657 -128.1537,52.1753 -128.1422,52.1781 -128.0944,52.1765 -128.0267,52.1549 -128.0974,52.0732 -128.1057,52.0685 -128.1057,52.0685 20,-8.0,Canada -127.9458,52.1227 -127.953,52.0959 -127.9565,52.0592 -127.9509,52.0458 -127.9454,52.0325 -127.9491,52.0206 -128.0074,51.9568 -128.019,51.9542 -128.0407,51.9552 -128.0515,51.9592 -128.0887,52.0414 -128.0905,52.0557 -128.0501,52.1107 -128.0394,52.1216 -128.0292,52.127 -127.9854,52.1329 -127.9552,52.1352 -127.9442,52.1285 -127.9458,52.1227 -127.9458,52.1227 17,-8.0,Canada -127.7277,52.1091 -127.6892,52.1112 -127.6783,52.109 -127.6899,52.0685 -127.7437,52.0172 -127.7611,52.0144 -127.8493,52.0136 -127.8607,52.0145 -127.8746,52.0197 -127.8919,52.0303 -127.9056,52.0424 -127.9155,52.085 -127.9046,52.0919 -127.8294,52.1027 -127.8138,52.1043 -127.7277,52.1091 -127.7277,52.1091 19,-8.0,Canada -130.8704,52.0896 -130.803,52.0424 -130.7863,52.0006 -130.7988,51.9457 -130.8146,51.8834 -130.8272,51.8828 -130.8427,51.8912 -130.8681,51.9104 -130.889,51.9298 -130.8956,51.9424 -130.9142,51.995 -130.9207,52.0352 -130.9196,52.0465 -130.9156,52.0644 -130.9064,52.0891 -130.8951,52.0913 -130.8769,52.0909 -130.8704,52.0896 -130.8704,52.0896 39,-10.0,United States -173.2224,51.9545 -173.2316,51.9611 -173.2883,51.9886 -173.4005,51.997 -173.4329,51.9918 -173.4596,51.9848 -173.5541,51.9748 -173.5641,51.9759 -173.6492,51.9912 -173.7546,52.0441 -173.7822,52.0627 -173.7761,52.0721 -173.519,52.0457 -173.5078,52.056 -173.4983,52.0605 -173.4823,52.0644 -173.3624,52.0869 -173.3523,52.0875 -173.3181,52.089 -173.2751,52.086 -173.2689,52.0592 -173.2385,52.0452 -173.1674,52.0421 -173.0903,52.041 -173.0274,52.0435 -172.986,52.0466 -172.9105,52.0475 -172.8997,52.047 -172.8656,52.044 -172.7503,52.0333 -172.6865,52.0236 -172.7543,52.0098 -172.8848,51.9947 -172.9091,51.9949 -172.9412,52.0059 -172.9609,52.0106 -173.2011,51.9756 -173.2224,51.9545 -173.2224,51.9545 1148,8.0,Mongolia 114.8614,50.0874 114.8795,50.0722 114.9225,50.0234 115.0423,49.936 115.0895,49.9086 115.2192,49.8465 115.2437,49.841 115.3507,49.8381 115.3843,49.8471 115.4082,49.8498 115.4382,49.8473 115.4636,49.842 115.5026,49.8318 115.5584,49.8235 115.5904,49.8293 115.6166,49.8384 115.647,49.8515 115.7155,49.8798 115.8771,49.9388 115.8975,49.9452 115.925,49.9531 115.9775,49.9636 116.0433,49.9707 116.073,49.9701 116.1179,49.9566 116.1802,49.9336 116.2525,49.91 116.2795,49.9026 116.3265,49.8933 116.444,49.8717 116.5279,49.7871 116.5387,49.7731 116.4744,49.6809 116.3982,49.5697 116.3291,49.4681 116.2597,49.3657 116.1783,49.2452 116.1094,49.1429 115.9602,48.9194 115.8899,48.8122 115.915,48.76 115.7993,48.6348 115.7735,48.6081 115.643,48.465 115.6545,48.3476 115.6613,48.2832 115.6641,48.251 115.667,48.2186 115.6682,48.1971 115.4542,48.1181 115.3823,48.0883 115.4279,47.8629 115.7566,47.6372 115.7996,47.6356 115.8733,47.6977 115.9305,47.75 115.9486,47.7671 116.0951,47.8234 116.2012,47.8042 116.3401,47.7906 116.4247,47.8025 116.559,47.8212 116.6247,47.8274 116.7065,47.8334 116.9452,47.7521 117.1595,47.6146 117.1843,47.603 117.2141,47.6029 117.4474,47.7954 117.4721,47.8196 117.4928,47.8391 117.6348,47.9564 117.6685,47.9603 117.7098,47.9635 117.8855,47.958 118.0597,47.975 118.2237,47.949 118.3684,47.9399 118.4373,47.8859 118.4965,47.8242 118.5965,47.718 118.6491,47.7017 118.8013,47.6562 118.885,47.6312 118.954,47.6107 118.9604,47.5799 118.9788,47.4796 119.0705,47.4551 119.1702,47.408 119.1678,47.3656 119.236,47.3164 119.2684,47.3029 119.3273,47.2675 119.4549,47.1873 119.4852,47.1655 119.5568,47.1127 119.6046,47.0562 119.6182,47.0295 119.6193,46.9653 119.6281,46.9443 119.7008,46.8681 119.752,46.8488 119.7612,46.6617 119.7279,46.6236 119.6847,46.6033 119.5815,46.5604 119.537,46.546 119.5098,46.5509 119.483,46.5699 119.3664,46.5814 119.2933,46.5861 119.2716,46.5833 119.2479,46.5736 119.2265,46.5645 119.1937,46.5614 119.1313,46.5679 118.9226,46.6135 118.9017,46.6196 118.8698,46.64 118.851,46.664 118.8031,46.689 118.718,46.7164 118.6979,46.7185 118.673,46.7098 118.6189,46.6634 118.6061,46.6336 118.2882,46.6412 118.2687,46.6459 118.2414,46.6665 118.1467,46.6832 118.1231,46.6778 117.9498,46.6248 117.7666,46.5663 117.7412,46.5519 117.709,46.5284 117.696,46.5112 117.6786,46.4836 117.55,46.4609 117.466,46.4982 117.4352,46.5527 117.2586,46.5176 117.2777,46.4749 117.2268,46.4044 117.2096,46.3661 117.2164,46.3461 117.2048,46.3116 116.9131,46.3091 116.7368,46.3311 116.6763,46.3407 116.6537,46.3302 116.612,46.2984 116.5937,46.2783 116.5071,46.2746 116.4207,46.243 116.4054,46.1997 116.3763,46.1725 116.295,46.1156 116.2551,46.0887 116.2201,46.0599 116.1952,46.0312 116.1304,45.9437 116.1013,45.8984 116.0727,45.8486 116.0759,45.8241 116.1051,45.7911 116.1168,45.757 116.0472,45.6698 116.0264,45.6567 115.987,45.6415 115.9492,45.6291 115.9256,45.6313 115.8685,45.6335 115.7745,45.584 115.6386,45.4937 115.54,45.407 115.3128,45.3626 115.2308,45.3472 115.1334,45.3489 115.013,45.3522 114.8083,45.3334 114.7771,45.3311 114.6842,45.3587 114.5823,45.3889 114.3847,45.3379 114.383,45.2973 114.381,45.2712 114.294,45.1549 114.1987,45.0919 114.1774,45.0782 114.0835,45.0198 113.9854,44.9453 113.9709,44.9295 113.9157,44.8881 113.8628,44.8787 113.8308,44.874 113.81,44.8733 113.7572,44.8717 113.6576,44.8108 113.5855,44.7594 113.5628,44.7424 113.4787,44.6946 113.3927,44.702 113.3519,44.7266 113.0839,44.7379 112.9843,44.7446 112.695,44.7954 112.4496,44.8754 112.4345,44.9 112.3988,44.9428 112.343,44.9827 112.2704,45.0293 112.2077,45.0166 112.0743,45.0201 111.9409,45.024 111.9274,45.04 111.8946,45.0493 111.8243,45.0406 111.7169,44.9984 111.6283,44.9497 111.6086,44.9223 111.4743,44.7234 111.4115,44.6264 111.4143,44.5981 111.4155,44.5699 111.4122,44.5466 111.3994,44.5199 111.3598,44.4708 111.34,44.4487 111.3194,44.4261 111.3027,44.4082 111.283,44.3888 111.273,44.3686 111.2654,44.3251 111.2736,44.2828 111.3692,44.1934 111.4011,44.1248 111.5208,44.0001 111.5615,43.9839 111.6521,43.9468 111.7231,43.889 111.8035,43.7858 111.8206,43.7199 111.8082,43.6627 111.8023,43.6429 111.7414,43.6247 111.6279,43.6232 111.6013,43.6005 111.483,43.4942 111.3473,43.4452 111.1715,43.383 111.0708,43.3561 110.9225,43.3102 110.8351,43.2678 110.7174,43.1532 110.589,43.0454 110.536,43.0051 110.52,42.9548 110.4862,42.908 110.4695,42.8914 110.4112,42.8483 110.362,42.8221 110.3187,42.7979 110.2958,42.7495 110.2874,42.7294 110.2081,42.7022 109.9806,42.6256 109.9536,42.5978 109.8475,42.5942 109.7828,42.5929 109.5917,42.5277 109.5379,42.5078 109.3931,42.426 109.3623,42.4085 109.2422,42.4027 109.1695,42.3999 109.1592,42.3823 108.9469,42.4015 108.8489,42.4104 108.6966,42.352 108.5295,42.3745 108.3776,42.3945 108.1567,42.3893 108.0994,42.4143 108.0744,42.4111 107.7584,42.3603 107.414,42.3679 107.3959,42.3828 107.3738,42.4017 107.3478,42.4152 107.327,42.4185 107.1288,42.3626 107.1139,42.3123 106.8698,42.2682 106.8381,42.2629 106.7069,42.2527 106.6344,42.2477 106.3493,42.1542 105.9759,42.03 105.7092,41.94 105.4425,41.844 105.3295,41.7873 105.2055,41.738 105.0774,41.6997 104.8619,41.5399 104.786,41.605 104.7034,41.6029 104.5403,41.599 104.3797,41.6238 104.3813,41.7143 104.3826,41.8301 103.9258,41.7572 103.7061,41.7553 103.2736,41.84 103.2097,41.8652 103.0014,41.9467 102.7405,42.049 102.5704,42.114 102.4085,42.1192 102.3736,42.1142 102.3296,42.1071 102.3008,42.1036 101.9361,42.1856 101.8944,42.2284 101.8513,42.2751 101.6736,42.4618 101.4547,42.4826 101.2707,42.5194 101.0793,42.5566 100.8329,42.6042 100.7026,42.629 100.5574,42.6334 100.1736,42.6415 100.1159,42.5929 99.9946,42.5962 99.893,42.6008 99.8478,42.6055 99.3724,42.5237 99.1648,42.5356 99.1029,42.5386 98.9823,42.546 98.6322,42.5676 98.3518,42.5837 98.2257,42.5906 98.1835,42.5926 98.0851,42.5976 98.0631,42.6 97.9383,42.6188 97.691,42.6556 97.6199,42.6664 97.4675,42.6883 97.3979,42.698 97.3563,42.7037 97.3146,42.7095 97.251,42.7191 97.0305,42.7476 96.864,42.7132 96.8252,42.7117 96.7121,42.7105 96.6268,42.7079 96.5918,42.7061 96.4348,42.6958 96.2646,42.6834 96.2485,42.6868 96.2232,42.8583 95.9894,43.0331 95.8068,43.1678 95.784,43.1851 95.7458,43.2351 95.7367,43.2705 95.7361,43.3059 95.7318,43.3617 95.7175,43.3861 95.7009,43.4048 95.6742,43.4394 95.6451,43.4846 95.6128,43.5356 95.5868,43.5827 95.5413,43.6701 95.5318,43.689 95.5229,43.7095 95.5123,43.7354 95.5054,43.7563 95.4936,43.8096 95.4,43.9435 95.3445,43.9439 95.2933,43.949 95.2508,43.9557 95.2258,43.96 95.208,43.9694 95.213,44.1082 95.2171,44.1276 95.2426,44.1762 95.264,44.1982 95.2867,44.2258 95.2771,44.2442 95.1526,44.2378 95.0697,44.2254 95.046,44.2228 94.8958,44.2069 94.585,44.3048 94.5705,44.3221 94.5521,44.3424 94.5238,44.3653 94.4707,44.4013 94.3976,44.4296 94.3096,44.4651 94.211,44.5069 94.1981,44.5245 94.1813,44.5398 94.1143,44.5818 93.979,44.6593 93.9538,44.6721 93.8387,44.7266 93.788,44.747 93.7291,44.7677 93.7042,44.7778 93.6242,44.8117 93.6039,44.8249 93.5848,44.8459 93.5437,44.8648 93.5238,44.872 93.4431,44.8998 93.4235,44.9063 93.3996,44.9113 93.2392,44.9397 93.1866,44.9339 93.1614,44.9326 93.1297,44.9389 93.1023,44.9469 93.0491,44.9655 93.0418,44.9628 93.0182,44.9597 92.9564,44.9591 92.86,44.9587 92.7985,44.9745 92.7531,44.9946 92.6587,44.9966 92.6272,44.9901 92.5911,44.9827 92.5236,44.9709 92.363,44.9525 92.1811,44.9753 91.9638,45.0284 91.9388,45.032 91.9101,45.0329 91.8846,45.0311 91.7395,45.0237 91.4332,45.0261 91.4024,45.0459 91.374,45.073 91.3433,45.101 91.3159,45.1017 91.2741,45.075 91.2514,45.0676 91.1584,45.0827 91.1231,45.0923 91.103,45.0999 91.0633,45.1195 91.037,45.1496 91.0107,45.1622 90.9116,45.1729 90.884,45.1722 90.7699,45.2016 90.6805,45.3194 90.6501,45.3848 90.6265,45.3986 90.5913,45.4183 90.557,45.4402 90.5549,45.5278 90.5922,45.6835 90.7291,45.8349 90.7465,45.8508 90.8175,45.9064 90.8369,45.9208 90.8754,45.9435 90.8982,45.965 90.8984,46.0556 90.8886,46.0817 90.8609,46.1031 90.8471,46.1207 90.8335,46.145 90.793,46.2442 90.8027,46.2726 90.832,46.2984 90.9247,46.4707 90.9323,46.4898 90.9414,46.5244 90.8915,46.5469 90.9074,46.6178 90.9143,46.6716 90.8999,46.6986 90.821,46.8365 90.7843,46.8987 90.7609,46.917 90.728,46.9351 90.7065,46.9413 90.6817,46.9405 90.64,46.944 90.5822,46.9881 90.4523,47.1423 90.4149,47.1907 90.3641,47.2629 90.3363,47.4462 90.2955,47.4734 90.2701,47.5025 90.2216,47.5735 90.1389,47.6427 90.0138,47.6778 89.9707,47.7142 89.9578,47.7351 89.9518,47.7761 89.961,47.8083 89.9412,47.8331 89.8622,47.8388 89.8395,47.8232 89.8334,47.7937 89.8021,47.7805 89.6564,47.7747 89.5412,47.8567 89.4725,47.9276 89.4735,47.9529 89.4637,47.9724 89.4195,47.987 89.2611,47.9917 89.1647,47.9462 89.0963,47.9259 88.9567,47.939 88.9351,47.951 88.911,47.9756 88.8908,47.9956 88.828,48.0479 88.8092,48.0591 88.733,48.0614 88.5317,48.1248 88.4839,48.1568 88.4703,48.1752 88.4551,48.2318 88.4639,48.2615 88.4627,48.2931 88.3886,48.3505 88.1921,48.4244 88.1139,48.4502 88.0848,48.4462 88.0633,48.4451 87.9195,48.4893 87.886,48.5008 87.8642,48.51 87.8397,48.5321 87.8467,48.555 87.9046,48.5912 87.9583,48.6407 87.9314,48.6791 87.911,48.6913 87.8634,48.7098 87.8293,48.7106 87.8059,48.7058 87.7145,48.7387 87.6331,48.8251 87.6466,48.8634 87.6842,48.8839 87.714,48.889 87.7447,48.899 87.7646,48.927 87.7705,48.9496 87.7393,49.0572 87.7076,49.1171 87.7289,49.1108 87.7594,49.1061 87.8632,49.1233 88.0272,49.2124 88.044,49.2309 88.0293,49.2542 88.004,49.3128 88.0497,49.3773 88.0724,49.3961 88.0911,49.4051 88.2165,49.4253 88.2777,49.427 88.4386,49.4192 88.6005,49.3942 88.721,49.385 88.772,49.3932 88.7469,49.4216 88.7556,49.4829 88.7935,49.4897 88.8191,49.4616 88.8565,49.4123 88.8774,49.4065 89.0192,49.4415 89.0571,49.4528 89.0774,49.464 89.1051,49.4891 89.1017,49.5133 89.0697,49.5443 89.0726,49.5656 89.0918,49.58 89.1215,49.586 89.154,49.5755 89.1882,49.5526 89.2414,49.5253 89.2714,49.5347 89.3101,49.5705 89.3248,49.5917 89.4329,49.6212 89.4578,49.6238 89.4945,49.6273 89.5895,49.6653 89.603,49.6888 89.5891,49.7073 89.561,49.7183 89.5265,49.7309 89.5046,49.801 89.5098,49.8475 89.5181,49.8548 89.5403,49.8672 89.5684,49.8775 89.5935,49.8833 89.6298,49.8893 89.6743,49.8938 89.7048,49.8925 89.7377,49.8892 89.767,49.8908 89.8478,49.9136 89.8723,49.9235 89.8875,49.9389 89.888,49.9886 89.8972,50.0104 89.9135,50.0234 89.9369,50.0327 89.9687,50.0412 90.0441,50.0526 90.0837,50.057 90.1089,50.0626 90.1419,50.0763 90.1692,50.0928 90.2028,50.1122 90.2428,50.1278 90.3738,50.1666 90.3943,50.1683 90.4217,50.1681 90.4767,50.1579 90.5072,50.1541 90.5369,50.1559 90.5621,50.1617 90.587,50.173 90.7559,50.2811 90.7889,50.3094 90.822,50.3378 90.8424,50.3517 90.8652,50.3643 90.9021,50.3761 90.9636,50.3735 90.9909,50.3731 91.022,50.3757 91.213,50.4178 91.3198,50.4493 91.4765,50.5193 91.4954,50.5371 91.5142,50.5725 91.5297,50.5857 91.5585,50.6022 91.5845,50.6137 91.6403,50.6337 91.6802,50.6449 91.7451,50.6543 91.7659,50.6561 91.8123,50.656 91.8674,50.6469 91.8984,50.6392 91.9452,50.633 91.972,50.6322 92.0223,50.6345 92.0503,50.6387 92.0812,50.6471 92.1237,50.6685 92.1549,50.6965 92.1766,50.7319 92.1819,50.7561 92.3067,50.752 92.3294,50.7286 92.4998,50.6297 92.5291,50.623 92.5582,50.6245 92.5957,50.6388 92.6213,50.6558 92.6379,50.6819 92.648,50.722 92.6713,50.7359 92.7917,50.7407 92.826,50.7343 92.8528,50.714 92.8571,50.6901 92.8322,50.6336 92.8297,50.6124 92.8854,50.5523 92.9479,50.5414 92.9715,50.5377 93.0008,50.5386 93.2,50.5465 93.2427,50.5556 93.2675,50.5614 93.309,50.5636 93.3388,50.5588 93.4362,50.532 93.5938,50.521 93.7529,50.5258 93.8404,50.527 94.076,50.5193 94.1014,50.5173 94.1407,50.5064 94.1587,50.4904 94.2097,50.3567 94.2139,50.3242 94.2123,50.2884 94.2153,50.2532 94.2312,50.1884 94.2449,50.1617 94.2582,50.1456 94.2891,50.1287 94.3629,50.1091 94.3852,50.0898 94.4321,50.031 94.4881,49.9698 94.5237,49.9685 94.5751,49.9779 94.6391,49.9988 94.6778,50.0023 94.8383,49.9944 94.8578,49.9799 94.8708,49.9655 94.9236,49.9071 94.9564,49.899 95.0146,49.9 95.0635,49.9005 95.0845,49.9021 95.1228,49.9022 95.2077,49.9014 95.2727,49.8997 95.2971,49.8925 95.35,49.8504 95.3825,49.8382 95.6056,49.9033 95.6254,49.9203 95.6433,49.9448 95.662,49.9591 95.6833,49.9661 95.7212,49.9676 95.7449,49.9636 95.7689,49.9526 95.7824,49.9222 95.793,49.9044 95.8144,49.8878 95.8444,49.8944 95.8733,49.9197 95.8922,49.934 95.9254,49.9482 95.9641,49.9446 96.0689,49.9146 96.1318,49.8963 96.1542,49.8874 96.1673,49.872 96.1916,49.8537 96.216,49.8426 96.2406,49.836 96.2638,49.838 96.3022,49.8513 96.3445,49.869 96.3752,49.8731 96.4007,49.8695 96.4248,49.8548 96.4339,49.8326 96.4474,49.8094 96.4709,49.8065 96.511,49.8248 96.5539,49.8557 96.5744,49.8632 96.5982,49.8634 96.6581,49.8575 96.864,49.8319 97.005,49.7397 97.0256,49.7049 97.061,49.6946 97.1338,49.6767 97.164,49.674 97.2047,49.6795 97.3401,49.7304 97.421,49.7732 97.4523,49.7981 97.462,49.8193 97.5742,49.8944 97.5955,49.9014 97.6246,49.9097 97.6448,49.911 97.6671,49.9022 97.7456,49.8981 97.9299,49.9741 97.9551,49.9882 97.9726,50.003 97.9876,50.0201 98.0516,50.1038 98.145,50.2447 98.1796,50.4128 98.1771,50.4492 98.1694,50.4687 98.156,50.484 98.1341,50.4976 98.1021,50.5068 98.0746,50.5079 98.044,50.5077 98.0172,50.5115 97.9168,50.5701 97.9027,50.5849 97.818,50.7144 97.8188,50.7406 97.8601,50.7946 97.7986,50.8468 97.7492,50.8613 97.7192,50.8789 97.6809,50.9405 97.7007,50.9702 97.729,51.0033 97.7584,51.0602 97.8056,51.1589 97.8037,51.1933 97.8463,51.3141 97.9061,51.4032 97.9339,51.4148 97.9583,51.4199 97.9861,51.4198 98.0207,51.4079 98.0513,51.4014 98.0836,51.4061 98.1055,51.4481 98.1073,51.4685 98.0963,51.496 98.0948,51.5186 98.1594,51.6394 98.1852,51.6595 98.2161,51.671 98.2401,51.677 98.3556,51.7012 98.4454,51.7148 98.4773,51.7223 98.514,51.7399 98.5349,51.7534 98.5537,51.7679 98.5716,51.7831 98.6109,51.8243 98.6512,51.8813 98.7159,51.9836 98.7181,52.0045 98.7175,52.0299 98.724,52.0513 98.7439,52.0717 98.7701,52.0823 98.786,52.08 98.8646,52.0047 98.9852,51.9669 99.1375,51.9093 99.1615,51.8908 99.1894,51.8818 99.415,51.8404 99.4592,51.8359 99.5414,51.8371 99.5724,51.8304 99.6016,51.8154 99.6543,51.7738 99.6987,51.7405 99.732,51.7173 99.7639,51.7007 99.7909,51.6915 99.8222,51.6848 99.8661,51.6797 100.0965,51.6716 100.1771,51.6704 100.2698,51.6721 100.3369,51.6771 100.3693,51.6779 100.4009,51.6752 100.5374,51.6388 100.6272,51.6023 100.7355,51.5639 100.7564,51.5567 100.8812,51.5162 100.9668,51.491 101.0526,51.4746 101.0876,51.4693 101.1309,51.4536 101.1584,51.4306 101.1906,51.4041 101.2287,51.3924 101.2517,51.3925 101.291,51.4054 101.3512,51.4219 101.3764,51.4263 101.4181,51.4281 101.4437,51.4244 101.5834,51.3997 101.6192,51.389 101.7098,51.3599 101.8351,51.3361 101.8657,51.3321 101.891,51.3317 101.9244,51.3293 102.0657,51.2671 102.0672,51.2471 102.0383,51.219 102.0002,51.1883 102.0114,51.0613 102.0299,51.0178 102.0588,50.972 102.0714,50.9565 102.0982,50.9282 102.1061,50.8298 102.0761,50.7923 102.0797,50.7618 102.1207,50.7225 102.1838,50.6919 102.1995,50.6617 102.187,50.6363 102.1523,50.6053 102.1394,50.587 102.1412,50.5656 102.157,50.5353 102.1771,50.5076 102.1985,50.4943 102.2187,50.4872 102.2261,50.4855 102.2978,50.4784 102.3318,50.4733 102.3859,50.4506 102.4403,50.3947 102.4509,50.3661 102.4717,50.3509 102.5171,50.347 102.5937,50.3364 102.6248,50.329 102.6634,50.3133 102.6942,50.2929 102.7363,50.2664 102.7635,50.2573 102.7869,50.2519 102.8117,50.2483 102.8476,50.2447 102.8884,50.2455 102.9364,50.2485 103.0021,50.2549 103.0427,50.2543 103.0683,50.2507 103.0986,50.2352 103.1101,50.1999 103.1248,50.1642 103.1614,50.1417 103.182,50.1386 103.3758,50.1179 103.452,50.0897 103.4932,50.0794 103.5504,50.0799 103.5792,50.0891 103.5977,50.1085 103.6156,50.1269 103.6472,50.1406 103.6696,50.1432 103.6999,50.14 103.7544,50.1221 103.7797,50.1139 103.8745,50.0916 103.907,50.0892 103.9368,50.0908 103.9613,50.0956 104.0981,50.1308 104.1147,50.1503 104.1367,50.1801 104.2351,50.2407 104.261,50.2511 104.2929,50.2581 104.3391,50.2625 104.407,50.2595 104.4631,50.2598 104.4941,50.2705 104.5186,50.2885 104.5517,50.3009 104.8081,50.3468 104.8404,50.3498 104.8655,50.3384 104.9009,50.3341 104.9412,50.334 104.9735,50.34 104.9956,50.3461 105.0218,50.3564 105.0502,50.3717 105.0892,50.3938 105.1239,50.4148 105.1531,50.4232 105.1762,50.4252 105.2021,50.4248 105.3628,50.3964 105.5687,50.3728 105.6477,50.3776 105.8292,50.3524 105.8661,50.3425 105.8918,50.3288 105.9093,50.3171 105.9145,50.2879 106.085,50.242 106.1147,50.2409 106.1385,50.2483 106.1754,50.2581 106.2751,50.2736 106.3264,50.2803 106.3864,50.2881 106.4389,50.2874 106.4668,50.2851 106.5023,50.2804 106.5769,50.2676 106.5998,50.2619 106.6274,50.2524 106.665,50.2363 106.8466,50.1411 106.8913,50.0734 106.9031,50.0507 106.9202,50.0256 107.0164,49.9694 107.0956,49.9459 107.3033,49.9249 107.392,49.9255 107.578,49.923 107.5938,49.9223 107.6566,49.8915 107.7459,49.8874 107.8245,49.8716 107.8163,49.7317 107.7892,49.6253 107.8826,49.5538 107.9128,49.5331 107.9541,49.5124 107.9782,49.501 108.01,49.4945 108.1393,49.4365 108.2043,49.3849 108.3685,49.289 108.4042,49.2784 108.4418,49.275 108.4909,49.2753 108.5521,49.2814 108.7991,49.3 108.8242,49.2953 108.8666,49.2818 108.9147,49.2778 108.9933,49.2924 109.0372,49.3034 109.1528,49.2898 109.1842,49.2826 109.3357,49.2038 109.3566,49.1856 109.3927,49.1751 109.4207,49.1737 109.4504,49.1733 109.6408,49.1626 109.9271,49.1319 110.0089,49.1163 110.0467,49.113 110.0837,49.1142 110.107,49.1188 110.1325,49.1288 110.1628,49.1419 110.1903,49.157 110.3202,49.1437 110.4681,49.0962 110.5003,49.0894 110.5382,49.0858 110.5755,49.0871 110.6263,49.0933 110.7665,49.1258 110.793,49.1348 110.8186,49.1446 110.8462,49.158 110.8707,49.1757 110.9048,49.1967 110.9653,49.2309 111.0099,49.2482 111.1633,49.2859 111.2886,49.298 111.3138,49.2936 111.3426,49.2935 111.3802,49.3014 111.4067,49.311 111.4294,49.3227 111.4813,49.3417 111.5275,49.3501 111.5778,49.3485 111.6352,49.3435 111.6766,49.3414 111.704,49.3423 111.7573,49.3457 111.7994,49.3504 111.9664,49.3801 112.0057,49.3907 112.2506,49.4615 112.326,49.4845 112.371,49.4795 112.425,49.4719 112.4888,49.4612 112.5214,49.4482 112.5446,49.4421 112.5699,49.4412 112.6083,49.4455 112.637,49.4529 112.6654,49.4616 112.9293,49.5466 112.9311,49.6131 113.0193,49.7372 113.044,49.7587 113.0714,49.774 113.1895,49.8314 113.2919,49.8786 113.3161,49.9064 113.3885,49.9446 113.4172,49.9588 113.5395,50.0041 113.6144,50.0291 113.6588,50.0284 113.7013,50.0293 113.7254,50.042 113.7616,50.066 113.7942,50.0894 113.8181,50.1041 113.8407,50.1163 114.0048,50.1904 114.0234,50.198 114.0652,50.2102 114.1503,50.2263 114.1774,50.2231 114.2053,50.2134 114.224,50.2049 114.2494,50.1941 114.2717,50.1874 114.3272,50.1835 114.3828,50.188 114.4066,50.1921 114.4501,50.2028 114.4932,50.2064 114.576,50.1947 114.6816,50.1704 114.7081,50.1597 114.838,50.0996 114.8614,50.0874 114.8614,50.0874 26,-10.0,United States 177.0415,51.7612 177.0121,51.7924 176.9673,51.8157 176.9706,51.8421 177.0884,51.9097 177.1104,51.9176 177.1861,51.9275 177.2444,51.9858 177.2742,52.0402 177.2898,52.0525 177.3194,52.0658 177.3337,52.0668 177.3977,52.0455 177.4055,52.024 177.3296,51.8634 177.2873,51.8515 177.2164,51.8637 177.1881,51.876 177.1748,51.8764 177.1268,51.8666 177.1161,51.8626 177.0989,51.8523 177.0735,51.8344 177.0636,51.8236 177.0415,51.7612 177.0415,51.7612 28,-5.0,Canada -79.172,52.0314 -79.1486,52.0286 -79.1385,52.0233 -79.1279,52.011 -79.195,51.9098 -79.2427,51.8801 -79.2566,51.8756 -79.3036,51.8772 -79.3259,51.8821 -79.3762,51.8824 -79.4475,51.8746 -79.4668,51.8624 -79.4829,51.8554 -79.4945,51.8597 -79.5269,51.9275 -79.5065,51.9595 -79.4937,51.964 -79.4811,51.9577 -79.4707,51.9532 -79.4601,51.9524 -79.4427,51.9546 -79.4132,51.9631 -79.2836,52.0114 -79.2715,52.0169 -79.2587,52.0303 -79.2166,52.0491 -79.172,52.0314 -79.172,52.0314 16,-10.0,United States -175.7783,51.9012 -175.7938,51.9055 -175.8906,51.9342 -175.9125,51.9792 -175.9148,51.9908 -175.9118,52.0021 -175.8881,52.0307 -175.8748,52.043 -175.8559,52.0477 -175.773,52.0425 -175.7642,52.0377 -175.7184,51.9686 -175.7419,51.9115 -175.7609,51.9042 -175.7783,51.9012 -175.7783,51.9012 21,-8.0,Canada -127.7497,51.9864 -127.7501,51.9701 -127.7536,51.9208 -127.8083,51.7203 -127.8157,51.7121 -127.8357,51.7008 -127.8539,51.6938 -127.9198,51.6816 -127.9341,51.6853 -128.0528,51.809 -128.0209,51.8929 -128.0163,51.9025 -127.9763,51.9478 -127.9464,51.9764 -127.9059,51.9912 -127.8593,51.996 -127.7942,52.0025 -127.7819,52.0015 -127.756,51.9939 -127.7497,51.9864 -127.7497,51.9864 16,-10.0,United States 179.3688,51.8072 179.3587,51.8073 179.2796,51.8235 179.2499,51.8317 179.2189,51.8539 179.2082,51.8699 179.2051,51.914 179.3465,51.9678 179.3606,51.9679 179.3762,51.9642 179.487,51.9057 179.494,51.8926 179.4718,51.8601 179.4561,51.8427 179.3688,51.8072 179.3688,51.8072 15,-10.0,United States 178.2484,51.8332 178.2395,51.8338 178.2209,51.8387 178.1874,51.8603 178.1734,51.8817 178.1965,51.9261 178.2388,51.927 178.2963,51.9109 178.3075,51.9035 178.3265,51.8857 178.3236,51.872 178.2876,51.8401 178.2576,51.8333 178.2484,51.8332 178.2484,51.8332 36,-10.0,United States -176.6636,51.5247 -176.6868,51.5307 -176.7013,51.5385 -176.7057,51.5565 -176.6965,51.5981 -176.617,51.706 -176.5047,51.7701 -176.5061,51.8649 -176.4979,51.8819 -176.481,51.8905 -176.4655,51.8948 -176.3279,51.9251 -176.3075,51.9262 -176.2822,51.9245 -176.2706,51.918 -176.2632,51.8635 -176.2716,51.8477 -176.2811,51.8436 -176.3111,51.8456 -176.3288,51.8412 -176.3655,51.7969 -176.3179,51.7703 -176.3061,51.77 -176.2788,51.7789 -176.1888,51.7835 -176.1541,51.7772 -176.1475,51.7677 -176.1414,51.6899 -176.1523,51.6722 -176.1916,51.6591 -176.2551,51.667 -176.4322,51.6178 -176.4482,51.5991 -176.6379,51.5443 -176.6636,51.5247 -176.6636,51.5247 39,-10.0,United States -177.3657,51.5895 -177.3754,51.59 -177.3927,51.5967 -177.4256,51.6386 -177.362,51.6725 -177.3496,51.6724 -177.3333,51.6667 -177.2887,51.6577 -177.2593,51.6557 -177.2483,51.6562 -177.0176,51.7171 -176.9664,51.7332 -176.9357,51.7489 -176.9236,51.7639 -176.9223,51.7847 -176.92,51.8227 -176.9175,51.8605 -176.9001,51.8738 -176.8791,51.878 -176.864,51.8775 -176.8275,51.8695 -176.8152,51.8666 -176.8018,51.8609 -176.7704,51.8429 -176.7674,51.8319 -176.8455,51.7243 -176.8529,51.6616 -176.8775,51.6394 -176.9842,51.612 -176.9944,51.6128 -177.0095,51.6166 -177.0574,51.6428 -177.0972,51.6664 -177.1073,51.6668 -177.1488,51.6649 -177.3466,51.6345 -177.3631,51.6206 -177.3657,51.5895 -177.3657,51.5895 33,-10.0,United States -177.6312,51.5322 -177.6732,51.5464 -177.8102,51.5997 -177.8235,51.6049 -177.8142,51.6366 -177.8033,51.6387 -177.7886,51.6346 -177.7591,51.6359 -177.6941,51.6541 -177.6773,51.661 -177.6709,51.6708 -177.672,51.6868 -177.6759,51.7021 -177.6848,51.7105 -177.7913,51.7509 -177.8929,51.7864 -177.9376,51.8033 -177.9375,51.8142 -177.9077,51.8368 -177.8921,51.8444 -177.8724,51.8497 -177.83,51.8545 -177.6626,51.8584 -177.6516,51.855 -177.6073,51.8242 -177.5469,51.7709 -177.5195,51.7288 -177.5366,51.6597 -177.602,51.625 -177.6338,51.5994 -177.6362,51.5776 -177.6312,51.5322 -177.6312,51.5322 17,-10.0,United States -175.8639,51.7145 -175.8805,51.7206 -175.9405,51.7575 -175.9433,51.7744 -175.9318,51.8166 -175.9033,51.8214 -175.8932,51.8208 -175.7482,51.7879 -175.7384,51.7729 -175.731,51.7497 -175.7465,51.7567 -175.7571,51.7633 -175.8649,51.7599 -175.8747,51.7404 -175.874,51.7289 -175.8639,51.7145 -175.8639,51.7145 16,-10.0,United States -176.0614,51.6619 -176.0699,51.6619 -176.1068,51.6682 -176.117,51.6787 -176.1216,51.6898 -176.1286,51.7159 -176.1399,51.7923 -176.1164,51.8005 -176.0428,51.8069 -176.0329,51.8076 -176.0022,51.7991 -175.9889,51.7514 -175.9857,51.7201 -176.0518,51.666 -176.0614,51.6619 -176.0614,51.6619 24,-8.0,Canada -127.7983,51.6517 -127.7955,51.6453 -127.7845,51.6228 -127.7683,51.5922 -127.7523,51.5739 -127.7384,51.562 -127.7273,51.5493 -127.7209,51.5406 -127.7069,51.5 -127.6755,51.4048 -127.6765,51.387 -127.7063,51.3553 -127.7162,51.3514 -127.7264,51.3507 -127.8665,51.4046 -127.8798,51.4129 -127.9541,51.544 -127.9532,51.5803 -127.9482,51.5907 -127.9366,51.6018 -127.8095,51.6624 -127.7989,51.6575 -127.7983,51.6517 -127.7983,51.6517 37,-10.0,United States 178.9754,51.2879 178.7534,51.4275 178.7449,51.4359 178.6932,51.473 178.6824,51.4801 178.6146,51.5035 178.5654,51.5122 178.5493,51.5094 178.4967,51.5093 178.4386,51.5242 178.3831,51.5581 178.3723,51.5655 178.3605,51.5756 178.3917,51.5962 178.404,51.5968 178.4161,51.589 178.452,51.5742 178.605,51.5588 178.6226,51.5538 178.6362,51.5489 178.7035,51.5218 178.7172,51.513 178.7296,51.4921 178.756,51.4702 178.7975,51.441 178.9734,51.3476 179.0159,51.3503 179.1073,51.3428 179.1807,51.3213 179.1908,51.3081 179.1289,51.3047 179.1213,51.3154 179.1082,51.3152 179.0144,51.299 178.9974,51.2954 178.9754,51.2879 178.9754,51.2879 763,-3.5,Canada -55.72,50.95 -55.7737,50.8838 -55.9138,50.7299 -55.9834,50.666 -56.0124,50.6685 -56.0453,50.7074 -56.0358,50.8048 -56.028,50.8387 -56.063,50.8304 -56.0864,50.7969 -56.0716,50.6323 -56.053,50.6118 -56.0778,50.5594 -56.1731,50.4443 -56.2382,50.3883 -56.3393,50.28 -56.3773,50.2141 -56.4219,50.1512 -56.4707,50.1095 -56.5499,50.0486 -56.6582,49.9654 -56.6832,49.9047 -56.6932,49.8651 -56.6424,49.8587 -56.6757,49.78 -56.7438,49.7278 -56.7824,49.7204 -56.821,49.6906 -56.7369,49.6849 -56.6998,49.6743 -56.6986,49.6337 -56.7332,49.5352 -56.7617,49.4925 -56.7427,49.5061 -56.6989,49.5531 -56.6792,49.5746 -56.6653,49.5922 -56.6517,49.6098 -56.6285,49.6394 -56.5938,49.6766 -56.5148,49.7547 -56.4773,49.7849 -56.3869,49.8372 -56.3482,49.8332 -56.3282,49.8526 -56.3027,49.8886 -56.2432,49.9701 -56.1533,50.0426 -56.1301,50.0586 -56.0727,50.0915 -56.0383,50.0968 -55.9819,50.036 -55.9211,49.9739 -55.855,49.9788 -55.8172,49.9752 -55.7975,49.9673 -55.7644,49.9382 -55.7533,49.917 -55.6678,49.8662 -55.5044,49.9069 -55.4675,49.9263 -55.4444,49.9427 -55.4092,49.9499 -55.3787,49.9024 -55.3877,49.8784 -55.4098,49.8598 -55.4289,49.8517 -55.5765,49.7904 -55.7601,49.7312 -55.903,49.6897 -56.0323,49.5832 -56.041,49.5563 -55.9645,49.6113 -55.8778,49.6425 -55.811,49.6571 -55.7508,49.6296 -55.7976,49.5279 -55.8577,49.4833 -55.8886,49.4749 -55.9526,49.45 -55.9971,49.4303 -56.0426,49.3681 -55.9854,49.3808 -55.9403,49.4063 -55.92,49.4262 -55.8803,49.4394 -55.8346,49.4509 -55.7921,49.4604 -55.7455,49.4673 -55.6966,49.4534 -55.6411,49.4131 -55.5862,49.327 -55.5589,49.3397 -55.555,49.3599 -55.5073,49.4056 -55.466,49.4288 -55.4408,49.4275 -55.4846,49.3523 -55.4908,49.3199 -55.4794,49.3115 -55.4495,49.3416 -55.4458,49.3693 -55.4143,49.397 -55.3542,49.4381 -55.2917,49.4466 -55.2675,49.4116 -55.2514,49.3597 -55.2542,49.3316 -55.2546,49.2975 -55.2338,49.2579 -55.2273,49.2999 -55.19,49.349 -55.2289,49.4295 -55.2238,49.4777 -55.1796,49.4842 -55.0597,49.4863 -55.0421,49.4401 -55.0434,49.4085 -55.1506,49.1959 -55.2151,49.1699 -55.2335,49.1607 -55.2847,49.1014 -55.2464,49.0964 -55.2265,49.046 -55.239,49.0291 -55.3023,48.9846 -55.2644,49.0016 -55.1978,49.0525 -55.1989,49.1412 -55.0669,49.2036 -55.0002,49.2273 -54.9965,49.2959 -54.9293,49.2673 -54.9095,49.2278 -54.7404,49.2139 -54.704,49.2343 -54.599,49.3235 -54.5728,49.3476 -54.562,49.3668 -54.4993,49.438 -54.4474,49.4753 -54.3943,49.478 -54.3511,49.4117 -54.3703,49.3711 -54.403,49.3055 -54.4015,49.2085 -54.324,49.2735 -54.333,49.294 -54.3204,49.3285 -54.2879,49.363 -54.2451,49.3671 -54.1688,49.341 -54.1029,49.3143 -54.084,49.3243 -54.0748,49.3541 -54.0601,49.3889 -53.9653,49.4234 -53.8403,49.3909 -53.6956,49.3394 -53.5942,49.2866 -53.4325,49.2208 -53.4098,49.1643 -53.5127,48.9821 -53.5833,48.9759 -53.6361,48.9729 -53.7256,48.9659 -53.7065,48.9551 -53.6628,48.9441 -53.6915,48.9333 -53.7248,48.922 -53.7344,48.8828 -53.8956,48.7918 -53.9425,48.7773 -54.0172,48.7563 -53.8416,48.7789 -53.8205,48.7822 -53.7967,48.781 -53.7464,48.7746 -53.7228,48.7542 -53.7665,48.711 -53.7891,48.6941 -53.8151,48.6767 -53.8536,48.6581 -53.8719,48.6153 -53.8441,48.569 -53.8073,48.5769 -53.7848,48.586 -53.7174,48.6245 -53.7462,48.6162 -53.7743,48.6107 -53.8351,48.6102 -53.8073,48.6347 -53.7789,48.649 -53.6809,48.6583 -53.529,48.6252 -53.5741,48.5896 -53.5938,48.5829 -53.6506,48.5736 -53.7056,48.5673 -53.8523,48.5186 -53.8726,48.4875 -53.8402,48.4974 -53.8198,48.5069 -53.7178,48.5116 -53.6683,48.5029 -53.6711,48.4574 -53.6783,48.4477 -53.5963,48.4786 -53.5532,48.4846 -53.5084,48.4698 -53.4969,48.4515 -53.4803,48.4194 -53.5103,48.3726 -53.4842,48.3839 -53.456,48.3964 -53.4107,48.4516 -53.3867,48.5139 -53.353,48.5671 -53.2643,48.5584 -53.2286,48.531 -53.1438,48.5058 -53.0762,48.573 -52.9944,48.6424 -52.9436,48.6028 -52.8998,48.5424 -52.9102,48.4925 -52.9766,48.3875 -52.9982,48.3669 -53.0203,48.3499 -53.1311,48.2937 -53.1834,48.3157 -53.2674,48.3049 -53.3115,48.2485 -53.5486,48.1182 -53.5878,48.108 -53.6082,48.1113 -53.6328,48.1208 -53.8187,48.1728 -53.8592,48.1769 -53.8664,48.1163 -53.8318,48.0289 -53.7458,48.0193 -53.7153,48.0186 -53.6926,48.0182 -53.6484,48.0222 -53.614,48.0038 -53.6591,47.9779 -53.6855,47.9715 -53.7218,47.9668 -53.7667,47.9676 -53.8073,47.9729 -53.8319,47.9679 -53.7091,47.9417 -53.6159,47.9638 -53.5912,47.975 -53.5727,47.9829 -53.5292,47.994 -53.5435,47.941 -53.646,47.7891 -53.6603,47.7722 -53.7199,47.7169 -53.7478,47.7402 -53.7747,47.7306 -53.773,47.7058 -53.7598,47.6451 -53.683,47.5558 -53.554,47.4891 -53.4681,47.4867 -53.464,47.5309 -53.4199,47.6829 -53.3839,47.7519 -53.3581,47.783 -53.2289,47.9295 -53.214,47.9445 -53.1973,47.9584 -53.0938,47.9987 -53.0236,47.9843 -52.971,47.9978 -52.9202,48.0314 -52.8981,48.0613 -52.8814,48.0908 -52.8466,48.1154 -52.8254,48.1081 -52.8075,48.0942 -52.7581,48.0446 -52.7997,48.0277 -52.8314,48.0333 -52.8516,48.0207 -52.9826,47.865 -52.9828,47.8321 -52.9994,47.796 -53.082,47.6285 -53.1045,47.5943 -53.1252,47.5821 -53.1444,47.574 -53.1642,47.5681 -53.1881,47.5556 -53.185,47.492 -53.0993,47.3773 -53.0424,47.3636 -53.0068,47.404 -52.9898,47.4159 -52.9368,47.4471 -52.9187,47.4573 -52.8757,47.4767 -52.8371,47.4908 -52.821,47.5043 -52.7697,47.5727 -52.763,47.5917 -52.7645,47.6179 -52.7035,47.7432 -52.6266,47.6971 -52.5818,47.603 -52.5418,47.4541 -52.5501,47.4348 -52.5779,47.3837 -52.6426,47.3108 -52.7117,47.2539 -52.7431,47.1703 -52.7742,47.1077 -52.7695,47.0887 -52.7685,47.0076 -52.7772,46.969 -52.8086,46.9205 -52.8345,46.8581 -52.8542,46.7981 -52.8572,46.7723 -52.8612,46.7439 -53.0211,46.5869 -53.0897,46.5667 -53.1309,46.5772 -53.2396,46.6415 -53.2819,46.6838 -53.308,46.6683 -53.3347,46.6477 -53.3503,46.6341 -53.3814,46.6047 -53.451,46.5642 -53.4951,46.5625 -53.5381,46.5881 -53.5588,46.6277 -53.5672,46.6534 -53.5713,46.7458 -53.563,46.7743 -53.5182,46.8911 -53.561,46.9388 -53.5014,47.0316 -53.4684,47.0565 -53.5146,47.1024 -53.5696,47.0515 -53.6268,46.9994 -53.7463,46.9032 -53.8171,46.8466 -53.869,46.8053 -53.9764,46.7417 -54.0201,46.7462 -54.1098,46.7685 -54.1191,46.8089 -54.1178,46.835 -54.0835,46.9283 -54.0548,46.9589 -54.0378,46.9862 -54.015,47.0258 -53.9892,47.0773 -53.9166,47.2115 -53.8874,47.2457 -53.848,47.2495 -53.8006,47.297 -53.7903,47.3488 -53.8023,47.3768 -53.8227,47.4317 -53.8142,47.4706 -53.808,47.5227 -53.8183,47.5533 -53.9061,47.7032 -53.9253,47.7244 -53.9554,47.742 -54.1179,47.7864 -54.1417,47.7113 -54.1811,47.6608 -54.2598,47.5674 -54.3572,47.4513 -54.3905,47.3875 -54.3995,47.3441 -54.436,47.3171 -54.5315,47.3006 -54.5222,47.3263 -54.4818,47.3599 -54.4511,47.3879 -54.4117,47.4322 -54.3367,47.5411 -54.3575,47.538 -54.4302,47.4592 -54.4574,47.4197 -54.4852,47.386 -54.5005,47.3699 -54.5265,47.348 -54.543,47.3358 -54.6218,47.3036 -54.6451,47.2977 -54.7405,47.3122 -54.7199,47.332 -54.7131,47.3645 -54.7777,47.3366 -54.9019,47.2315 -54.9641,47.1641 -54.9748,47.0972 -54.9888,47.0341 -55.0214,47.0011 -55.0733,46.9566 -55.1145,46.9315 -55.1562,46.8722 -55.1799,46.8569 -55.2795,46.8208 -55.3132,46.8125 -55.3863,46.8267 -55.5514,46.8145 -55.6104,46.805 -55.7236,46.8071 -55.7661,46.8163 -55.8396,46.8352 -55.8593,46.8427 -55.8863,46.8564 -55.9016,46.8957 -55.8866,46.9279 -55.8727,46.9429 -55.8071,47.0026 -55.7886,47.0174 -55.6924,47.049 -55.6624,47.0505 -55.6398,47.05 -55.6026,47.0389 -55.5008,47.058 -55.4111,47.0816 -55.2501,47.1887 -55.2152,47.2188 -55.207,47.2576 -55.1848,47.3452 -55.1228,47.3919 -55.0965,47.4079 -55.025,47.4297 -55.0007,47.4268 -54.9611,47.4308 -54.8723,47.4509 -54.7894,47.4897 -54.765,47.5059 -54.7625,47.5291 -54.7665,47.5794 -54.883,47.5436 -54.9531,47.5725 -54.9316,47.6018 -54.8729,47.6931 -54.8621,47.7229 -54.9421,47.6538 -54.9527,47.6267 -55.0511,47.5594 -55.1833,47.596 -55.2689,47.6527 -55.2906,47.6709 -55.35,47.6546 -55.3835,47.5889 -55.3826,47.5592 -55.3543,47.5768 -55.3256,47.5661 -55.3101,47.532 -55.3206,47.4605 -55.3316,47.4313 -55.3535,47.4121 -55.4227,47.3995 -55.4464,47.4002 -55.4818,47.3801 -55.508,47.3444 -55.5451,47.4096 -55.5741,47.441 -55.7152,47.4385 -55.84,47.3908 -55.7516,47.4628 -55.7088,47.4966 -55.6657,47.5309 -55.6929,47.5253 -55.744,47.5119 -55.8119,47.4824 -55.9072,47.4463 -56.0325,47.4092 -56.086,47.4476 -56.0397,47.4648 -55.9639,47.4809 -55.8616,47.5073 -55.8095,47.5239 -55.5541,47.6184 -55.5749,47.6224 -55.624,47.6107 -55.673,47.5936 -55.6944,47.5838 -55.7246,47.57 -55.7512,47.5637 -55.7755,47.5659 -55.8329,47.6014 -55.8314,47.6276 -55.8149,47.6423 -55.7858,47.6592 -55.7522,47.688 -55.7346,47.7179 -55.7192,47.7447 -55.6639,47.8731 -55.6885,47.8968 -55.7371,47.8322 -55.7548,47.7933 -55.7737,47.7424 -55.8027,47.7212 -55.9691,47.645 -56.0035,47.6839 -55.9792,47.7218 -56.0373,47.7057 -56.1045,47.6258 -56.0817,47.5815 -56.1068,47.5729 -56.2773,47.5488 -56.3295,47.5473 -56.362,47.5516 -56.4655,47.5595 -56.5341,47.5589 -56.565,47.5295 -56.6932,47.4777 -56.7592,47.4671 -56.8205,47.4982 -56.8428,47.5077 -56.8789,47.5219 -56.9234,47.5299 -57.0147,47.5116 -57.0401,47.5096 -57.0603,47.5151 -57.0811,47.5255 -57.1223,47.5388 -57.4481,47.5766 -57.5749,47.5485 -57.6963,47.5731 -57.7992,47.5968 -57.9486,47.6405 -58.2756,47.5929 -58.6062,47.5445 -58.6866,47.5372 -58.7773,47.5346 -58.8049,47.5391 -58.8529,47.5358 -58.9916,47.5175 -59.0228,47.507 -59.0424,47.5014 -59.0769,47.5073 -59.2182,47.5572 -59.2239,47.6118 -59.2182,47.6762 -59.2423,47.757 -59.2834,47.798 -59.3177,47.8393 -59.2992,47.8649 -59.2798,47.8703 -59.2338,47.8784 -59.1807,47.9301 -59.177,47.9444 -59.153,47.9624 -59.1331,47.9742 -59.0059,48.0352 -58.962,48.0529 -58.935,48.0614 -58.8725,48.0949 -58.6649,48.2323 -58.6051,48.2757 -58.5884,48.3107 -58.5081,48.3715 -58.4772,48.3852 -58.4139,48.3944 -58.4376,48.3857 -58.4674,48.3768 -58.5104,48.3492 -58.3923,48.3746 -58.3721,48.3873 -58.3332,48.4311 -58.3351,48.4527 -58.4841,48.483 -58.6022,48.4982 -58.6469,48.4902 -58.6862,48.4785 -58.7268,48.4683 -58.7717,48.4631 -58.8456,48.4563 -58.869,48.4554 -58.898,48.458 -58.9233,48.4659 -59.0128,48.4509 -59.0329,48.4454 -59.0605,48.4376 -59.1068,48.4224 -59.1689,48.4173 -59.1446,48.4704 -59.1262,48.4923 -59.0515,48.5433 -58.9948,48.572 -58.9641,48.5798 -58.9413,48.5876 -58.8228,48.6462 -58.743,48.695 -58.7199,48.7089 -58.686,48.7177 -58.7291,48.6799 -58.764,48.6594 -58.7881,48.6457 -58.8054,48.6352 -58.8267,48.6191 -58.8572,48.5924 -58.8714,48.5636 -58.8618,48.5454 -58.807,48.4961 -58.6413,48.5083 -58.6157,48.5242 -58.5943,48.5563 -58.5864,48.5882 -58.5946,48.6212 -58.5725,48.6872 -58.5326,48.7237 -58.4544,48.8137 -58.4211,48.8932 -58.4172,48.94 -58.3129,49.0732 -58.2648,49.0917 -58.2573,49.0438 -58.2748,49.0076 -58.2163,49.0146 -58.155,49.014 -58.0931,49.0068 -58.0583,48.9855 -58.0065,48.9325 -57.9748,48.9199 -57.911,48.9053 -57.8766,48.9004 -57.8537,48.9023 -57.8111,48.9212 -57.8447,48.9227 -57.8818,48.92 -57.9334,48.9269 -57.958,48.936 -58.0183,48.9777 -58.0498,49.0265 -58.0591,49.0655 -58.0317,49.0716 -58.0016,49.0669 -57.9641,49.064 -57.8328,49.0701 -57.7957,49.1077 -57.8199,49.0995 -57.8549,49.0896 -57.972,49.0885 -58.0046,49.105 -57.9737,49.1309 -57.9448,49.1293 -57.9144,49.1344 -57.8479,49.1822 -57.9203,49.1765 -57.9479,49.1678 -57.9686,49.1663 -58.1187,49.1861 -58.1527,49.2257 -58.1563,49.2455 -58.1339,49.3398 -58.1067,49.3728 -58.0692,49.41 -57.9522,49.488 -57.9334,49.497 -57.9128,49.5021 -57.8853,49.498 -57.8225,49.4715 -57.7759,49.4492 -57.6619,49.3967 -57.6185,49.4074 -57.7034,49.4442 -57.7843,49.4795 -57.8577,49.5485 -57.8639,49.6077 -57.845,49.6606 -57.8143,49.705 -57.7434,49.7882 -57.5845,50.0263 -57.5451,50.087 -57.4564,50.2404 -57.4352,50.287 -57.4243,50.3242 -57.4075,50.3566 -57.3613,50.4277 -57.2806,50.5348 -57.2545,50.549 -57.2119,50.5504 -57.1892,50.5429 -57.1497,50.5369 -57.1174,50.5376 -57.0764,50.5481 -57.0645,50.5653 -57.085,50.5665 -57.1892,50.5821 -57.2912,50.6293 -57.2423,50.6534 -57.1497,50.6687 -57.0682,50.695 -57.0021,50.722 -56.9855,50.7354 -56.8958,50.8096 -56.8401,50.857 -56.8154,50.9673 -56.8399,50.9797 -56.8771,50.9842 -56.8341,50.9923 -56.7987,51.0038 -56.7006,51.0943 -56.7222,51.1245 -56.7062,51.1809 -56.6495,51.24 -56.5947,51.2802 -56.5326,51.3083 -56.425,51.3428 -56.3741,51.355 -56.184,51.4122 -56.0235,51.4642 -55.9176,51.5095 -55.8731,51.5342 -55.8561,51.5467 -55.8161,51.5668 -55.7507,51.5616 -55.7651,51.5377 -55.7994,51.496 -55.7952,51.4352 -55.6079,51.4213 -55.5579,51.4241 -55.597,51.4404 -55.6494,51.4951 -55.6374,51.5231 -55.5665,51.5309 -55.5416,51.5078 -55.4996,51.5014 -55.4608,51.5254 -55.4293,51.5426 -55.3721,51.5324 -55.3207,51.5046 -55.3684,51.3955 -55.4062,51.3181 -55.422,51.3039 -55.5278,51.2435 -55.6166,51.2685 -55.7343,51.2912 -55.9438,51.3192 -55.9952,51.3096 -56.0096,51.2591 -55.9389,51.1789 -55.9258,51.1529 -55.9062,51.1172 -55.8731,51.1384 -55.7585,51.1696 -55.6789,51.1562 -55.629,51.1198 -55.6334,51.064 -55.6483,51.0179 -55.6683,50.997 -55.7102,50.9803 -55.72,50.95 -55.72,50.95 204,2.0,Belgium 4.2325,51.2911 4.2495,51.2767 4.2572,51.2575 4.2742,51.2419 4.3053,51.227 4.2935,51.2084 4.2959,51.2038 4.3032,51.2027 4.3212,51.2308 4.2803,51.253 4.2736,51.2846 4.2546,51.2959 4.2457,51.3155 4.2733,51.3173 4.3464,51.3018 4.3812,51.298 4.4061,51.299 4.4268,51.3108 4.4111,51.3387 4.3923,51.3543 4.3888,51.3921 4.4775,51.4207 4.5373,51.4235 4.5333,51.3948 4.5333,51.3715 4.6405,51.3638 4.664,51.3732 4.6947,51.4074 4.7587,51.4402 4.7902,51.4418 4.8185,51.4327 4.8381,51.4156 4.8253,51.3703 4.8455,51.3551 4.933,51.3427 4.9893,51.3769 5.0094,51.411 5.0306,51.4273 5.069,51.4098 5.0933,51.3752 5.0732,51.3419 5.1341,51.2605 5.1536,51.2557 5.1855,51.2602 5.2255,51.25 5.2309,51.2028 5.3214,51.203 5.3963,51.2069 5.466,51.2275 5.5,51.2349 5.5446,51.2103 5.5599,51.1615 5.6361,51.1445 5.7456,51.1309 5.8384,51.094 5.8092,51.056 5.7682,50.9668 5.7556,50.9311 5.7493,50.9009 5.6428,50.8164 5.6304,50.79 5.6451,50.7648 5.675,50.7528 5.6853,50.75 5.6935,50.7471 5.6958,50.7234 5.6833,50.7018 5.6901,50.6992 5.7312,50.7014 5.7886,50.7107 5.8617,50.702 5.8901,50.6954 5.9175,50.6974 6.0026,50.6985 6.0457,50.665 6.1578,50.5977 6.2611,50.5616 6.2382,50.5306 6.2554,50.4395 6.3042,50.439 6.3297,50.4285 6.3638,50.3851 6.3885,50.265 6.3403,50.2548 6.2714,50.2256 6.1573,50.1667 6.1305,50.0967 6.1255,50.0701 6.1108,50.0741 6.0214,50.1053 6.0174,50.1235 6.0091,50.124 5.964,50.112 5.879,50.0398 5.8742,50.0197 5.8259,49.9295 5.7702,49.8998 5.7393,49.8501 5.7262,49.7779 5.7442,49.7353 5.7817,49.7238 5.8607,49.6628 5.8676,49.6528 5.8906,49.6059 5.8918,49.5834 5.8545,49.5147 5.8275,49.4927 5.7996,49.4883 5.7836,49.4888 5.6939,49.4863 5.6239,49.4789 5.5853,49.4696 5.5143,49.4532 5.4647,49.4521 5.4668,49.4792 5.4247,49.5464 5.3989,49.5606 5.3845,49.5655 5.3234,49.5997 4.9833,49.7465 4.952,49.7449 4.9299,49.7347 4.9024,49.732 4.8614,49.745 4.8138,49.9354 4.8317,50.0116 4.8462,50.0379 4.8786,50.0762 4.8176,50.1097 4.7559,50.0779 4.687,50.0262 4.6864,49.9991 4.67,49.9418 4.5039,49.89 4.4515,49.8819 4.4234,49.8875 4.4067,49.8917 4.3109,49.9124 4.2332,49.906 4.209,49.9023 4.1726,49.9209 4.1431,49.9211 4.1413,49.9527 4.1652,50.0794 4.1884,50.1794 4.1588,50.225 4.0298,50.2978 3.978,50.2871 3.884,50.2821 3.769,50.296 3.6715,50.3372 3.6655,50.379 3.6551,50.397 3.6085,50.4348 3.5128,50.4604 3.4496,50.4521 3.3648,50.437 3.2921,50.4661 3.2746,50.4818 3.2379,50.6058 3.193,50.6686 3.1825,50.688 3.1782,50.6984 3.154,50.7259 3.1116,50.7331 3.0416,50.72 3.0225,50.7111 3.0097,50.7113 2.9561,50.699 2.9387,50.6829 2.8938,50.6443 2.8631,50.6549 2.7777,50.6968 2.6467,50.7574 2.594,50.8671 2.5935,50.9368 2.5379,51.032 2.5518,51.0349 2.8589,51.1542 2.951,51.1903 3.0156,51.217 3.0992,51.2555 3.127,51.2646 3.175,51.2766 3.3659,51.3143 3.3687,51.2508 3.3749,51.216 3.383,51.2093 3.4346,51.1854 3.4696,51.1835 3.5178,51.1998 3.5162,51.2241 3.5947,51.2449 3.6635,51.2336 3.7829,51.2037 3.7881,51.1712 3.8895,51.1465 3.9464,51.1552 4.0559,51.193 4.1215,51.2194 4.1608,51.2378 4.2152,51.2759 4.2325,51.2911 4.2325,51.2911 18,1.0,United Kingdom 0.898,51.2978 0.8839,51.2989 0.783,51.3104 0.7615,51.3187 0.7441,51.335 0.7368,51.3446 0.7394,51.3701 0.7478,51.3841 0.7592,51.385 0.7898,51.3803 0.8908,51.3618 0.9051,51.3583 0.9322,51.3366 0.9426,51.3256 0.945,51.3141 0.9035,51.2987 0.898,51.2978 0.898,51.2978 30,2.0,Netherlands 3.3659,51.3143 3.4016,51.3262 3.5237,51.3521 3.5448,51.3503 3.6342,51.322 3.7288,51.2913 3.7586,51.2859 3.8586,51.2803 3.9552,51.3103 4.206,51.3112 4.2325,51.2911 4.2152,51.2759 4.1608,51.2378 4.1215,51.2194 4.0559,51.193 3.9464,51.1552 3.8895,51.1465 3.7881,51.1712 3.7829,51.2037 3.6635,51.2336 3.5947,51.2449 3.5162,51.2241 3.5178,51.1998 3.4696,51.1835 3.4346,51.1854 3.383,51.2093 3.3749,51.216 3.3687,51.2508 3.3659,51.3143 3.3659,51.3143 897,2.0,France 5.7996,49.4883 5.8024,49.481 5.8301,49.4575 5.8467,49.4442 5.9707,49.3918 6.0835,49.3968 6.1113,49.4194 6.1517,49.4475 6.2255,49.4513 6.2383,49.4493 6.2934,49.42 6.319,49.4125 6.3531,49.4025 6.4045,49.419 6.4589,49.4048 6.4989,49.386 6.5318,49.367 6.585,49.3066 6.6772,49.1886 6.7055,49.1309 6.7196,49.1113 6.8242,49.0989 6.8465,49.1254 6.8362,49.1558 6.9197,49.1638 7.0093,49.1312 7.0804,49.0711 7.1411,49.0649 7.279,49.0553 7.3534,49.0958 7.3583,49.1125 7.3679,49.1159 7.4146,49.1199 7.4761,49.1079 7.6168,49.011 7.6408,48.9889 7.6577,48.986 7.7261,48.9865 7.8101,48.9901 7.9246,48.9926 8.0342,48.9522 8.1436,48.9201 8.2141,48.9085 8.1864,48.8992 8.1256,48.837 8.1098,48.8091 8.0995,48.7877 8.0934,48.7636 8.0806,48.7479 7.9505,48.6682 7.8687,48.6084 7.791,48.5201 7.7343,48.3696 7.7257,48.3385 7.7319,48.3156 7.7377,48.2806 7.6821,48.2213 7.5968,48.1091 7.5677,48.0621 7.5586,48.0322 7.5595,47.9891 7.5731,47.9725 7.6088,47.9418 7.6123,47.9181 7.5734,47.8486 7.5465,47.8081 7.516,47.7336 7.5014,47.6408 7.517,47.6079 7.5536,47.5846 7.578,47.5445 7.5773,47.5302 7.5663,47.5301 7.5433,47.5244 7.5359,47.5113 7.5109,47.5054 7.492,47.4958 7.4917,47.4462 7.4865,47.4409 7.4422,47.4157 7.4227,47.4065 7.4052,47.3909 7.375,47.3793 7.3477,47.3795 7.3298,47.3849 7.2978,47.3862 7.2651,47.3783 7.2375,47.3674 7.1728,47.3898 7.1364,47.4449 7.015,47.4538 6.9806,47.4428 6.872,47.3097 6.9214,47.3047 6.9708,47.3076 6.9911,47.3109 6.9617,47.2381 6.8294,47.1175 6.8402,47.111 6.7838,47.0772 6.6901,47.01 6.6689,46.9807 6.6233,46.9464 6.557,46.9264 6.5192,46.9182 6.4511,46.8423 6.4378,46.7861 6.4479,46.7283 6.4258,46.7047 6.35,46.6634 6.2604,46.6294 6.12,46.5349 6.1265,46.4865 6.0784,46.3967 6.0625,46.3735 6.1024,46.3569 6.145,46.3266 6.109,46.2562 6.0977,46.2448 6.1072,46.2088 6.0659,46.1956 6.0215,46.1889 6.0007,46.1814 5.9732,46.1695 5.9588,46.1547 5.9881,46.0944 6.1248,46.0971 6.179,46.1197 6.237,46.1655 6.263,46.2093 6.235,46.2626 6.2211,46.2774 6.2362,46.3034 6.2867,46.3412 6.3108,46.3511 6.4829,46.4 6.506,46.4054 6.6243,46.4112 6.6933,46.4016 6.7283,46.3944 6.7889,46.3757 6.7974,46.3514 6.7903,46.3256 6.774,46.1021 6.8642,46.0357 6.9233,46.0028 6.9975,45.9458 7.0209,45.9097 7.0284,45.8797 6.9746,45.8235 6.9342,45.8061 6.9126,45.8001 6.8925,45.7975 6.8629,45.8039 6.8037,45.7821 6.7899,45.7367 6.8004,45.6776 6.9598,45.5451 6.9855,45.4734 7.0792,45.4252 7.137,45.379 7.1487,45.3259 7.1179,45.2078 7.0548,45.1718 6.9297,45.1283 6.8123,45.1017 6.7571,45.1168 6.6806,45.0966 6.6284,45.0747 6.615,45.0645 6.6523,44.9888 6.7396,44.8675 6.766,44.8548 6.8399,44.8197 6.892,44.8095 6.9329,44.8198 6.9593,44.8133 6.9966,44.7997 7.022,44.7806 7.0187,44.6941 6.9659,44.6374 6.9413,44.6141 6.8433,44.4906 6.8442,44.4672 6.8684,44.3251 6.9669,44.2339 7.0218,44.1967 7.3408,44.0816 7.4105,44.0763 7.4559,44.0888 7.5098,44.1062 7.6042,44.1301 7.6518,44.1209 7.6511,44.0842 7.6984,44.0415 7.6955,44.026 7.6481,43.9572 7.5877,43.9151 7.486,43.8247 7.5022,43.7717 7.5217,43.7326 7.5054,43.7416 7.4739,43.7334 7.4291,43.7082 7.4189,43.7186 7.3808,43.6998 7.3814,43.6783 7.3085,43.6603 7.2366,43.6521 7.146,43.6113 7.065,43.523 6.8785,43.3856 6.837,43.3749 6.7847,43.3738 6.6273,43.2623 6.6285,43.2389 6.6866,43.2271 6.6325,43.1362 6.5903,43.1435 6.5184,43.1404 6.3973,43.1143 6.1613,43.0666 6.1487,43.0187 6.1568,43.0021 6.1295,43.0071 6.1072,43.0159 6.0539,43.0525 5.9475,43.0696 5.9252,43.0377 5.8586,43.0098 5.826,43.0128 5.7745,43.0502 5.8084,43.0691 5.6706,43.1415 5.5126,43.161 5.3995,43.1683 5.3556,43.1759 5.3512,43.2 5.3661,43.2228 5.3555,43.283 5.3348,43.3077 5.3056,43.3173 5.2504,43.2999 5.211,43.2899 5.0892,43.288 5.0328,43.2988 5.0412,43.3422 5.0772,43.3545 5.1397,43.3674 5.1816,43.3849 5.2244,43.4167 5.222,43.4441 5.0174,43.5032 5.0034,43.4654 5.0211,43.435 5.0481,43.4251 5.0323,43.3941 5.0103,43.3792 4.9839,43.378 4.951,43.3758 4.918,43.3855 4.8694,43.3749 4.847,43.3641 4.8287,43.3514 4.8084,43.3501 4.7822,43.3628 4.7363,43.3925 4.7437,43.4421 4.74,43.4728 4.7012,43.5228 4.7279,43.3783 4.7304,43.3489 4.7523,43.3252 4.6465,43.3108 4.6066,43.3127 4.5865,43.3175 4.5674,43.3386 4.5899,43.3791 4.5684,43.3976 4.5293,43.4093 4.4998,43.4137 4.4679,43.4127 4.4402,43.4106 4.4157,43.4048 4.3128,43.4167 4.3111,43.4529 4.2804,43.4565 4.2433,43.4437 4.2358,43.4367 4.2841,43.409 4.1922,43.4121 4.1567,43.4221 4.1266,43.4595 4.1249,43.4906 4.0988,43.5064 4.0508,43.5137 3.9592,43.4917 3.9078,43.4722 3.8382,43.4264 3.7174,43.3626 3.542,43.2708 3.4095,43.2384 3.3306,43.2165 3.3086,43.2063 3.2535,43.1785 3.1368,43.0902 3.0772,43.0209 3.0734,42.9928 3.0412,42.9056 2.9994,42.8326 2.9575,42.7937 2.9687,42.7637 2.9751,42.7584 3.008,42.7498 3.0339,42.6799 3.0372,42.5646 3.0541,42.4962 3.106,42.4785 3.1371,42.4698 3.1559,42.4303 3.1701,42.3978 3.1732,42.389 3.1603,42.3864 3.1018,42.3814 3.0797,42.3868 3.044,42.4182 2.9461,42.4326 2.7209,42.3714 2.6746,42.3538 2.6534,42.3341 2.667,42.3016 2.5306,42.285 2.4737,42.3002 2.4377,42.3306 2.329,42.37 2.2701,42.3879 2.1417,42.3714 2.1203,42.348 2.091,42.3164 2.0596,42.309 2.0179,42.3049 1.9936,42.3148 1.97,42.3316 1.9564,42.3631 1.9039,42.3989 1.849,42.4219 1.7775,42.4403 1.7212,42.4616 1.7218,42.4735 1.7394,42.5126 1.7691,42.5229 1.7792,42.5218 1.7364,42.5684 1.696,42.578 1.5576,42.6077 1.4847,42.6023 1.4439,42.5538 1.4152,42.6027 1.3886,42.64 1.3575,42.667 1.3234,42.6693 1.1724,42.6616 1.1423,42.6851 1.1253,42.7166 1.0869,42.7367 0.8957,42.7645 0.8225,42.7847 0.7153,42.8104 0.6918,42.8051 0.6668,42.7908 0.6513,42.7367 0.661,42.7029 0.6817,42.6731 0.6806,42.6525 0.6746,42.6401 0.661,42.6438 0.5949,42.6467 0.5594,42.6477 0.5049,42.6433 0.4321,42.6383 0.2687,42.6593 0.1807,42.6862 0.1441,42.6741 0.1118,42.6611 0.0027,42.6378 -0.0578,42.6516 -0.1233,42.7092 -0.1517,42.7284 -0.1795,42.736 -0.205,42.7458 -0.2621,42.769 -0.3024,42.7935 -0.3082,42.8 -0.3173,42.784 -0.391,42.7481 -0.5547,42.7317 -0.7148,42.8361 -0.7296,42.8527 -0.7222,42.8706 -0.7223,42.8815 -0.7528,42.9158 -0.7874,42.9062 -0.8172,42.8975 -0.9386,42.9055 -0.9922,42.9277 -1.071,42.9578 -1.1988,42.9972 -1.2984,43.023 -1.3461,42.9877 -1.3958,42.9894 -1.4372,43.0007 -1.4645,43.0433 -1.4209,43.0746 -1.3816,43.1607 -1.383,43.2036 -1.4069,43.2241 -1.5015,43.2388 -1.6532,43.2606 -1.6997,43.257 -1.7278,43.2502 -1.7742,43.2934 -1.7782,43.3108 -1.7272,43.3299 -1.6646,43.3364 -1.5877,43.3884 -1.5275,43.4632 -1.4845,43.5212 -1.4417,43.5912 -1.4401,43.6161 -1.4381,43.642 -1.4226,43.7353 -1.3425,44.0119 -1.327,44.0411 -1.3031,44.1457 -1.2622,44.3431 -1.2566,44.402 -1.2477,44.46 -1.232,44.5075 -1.2069,44.5754 -1.1496,44.6064 -1.1244,44.6004 -1.0883,44.603 -1.0391,44.6243 -1.0583,44.6604 -1.1259,44.7087 -1.1682,44.7233 -1.228,44.6558 -1.2439,44.6247 -1.2454,44.7069 -1.2053,44.9622 -1.1664,45.1574 -1.1503,45.32 -1.1504,45.3408 -1.1468,45.376 -1.1381,45.4423 -1.0876,45.5068 -1.0624,45.5172 -1.0526,45.4989 -1.0548,45.4708 -0.994,45.4255 -0.9756,45.4169 -0.9404,45.4102 -0.9172,45.3983 -0.8,45.3092 -0.7699,45.2705 -0.758,45.2528 -0.7329,45.1738 -0.7294,45.1399 -0.7134,45.0792 -0.7016,45.0536 -0.5389,44.8446 -0.5396,44.9358 -0.5531,44.9724 -0.6115,45.0051 -0.6371,45.0238 -0.6504,45.0407 -0.6695,45.08 -0.7047,45.2707 -0.7164,45.3055 -0.7465,45.3716 -0.7802,45.4147 -0.8024,45.4355 -0.8609,45.4773 -0.9988,45.5624 -1.0841,45.6054 -1.1638,45.6357 -1.2371,45.6543 -1.227,45.736 -1.187,45.7478 -1.1441,45.751 -1.1461,45.8154 -1.0693,45.8517 -1.0515,45.9597 -1.0507,45.9862 -1.1183,46.0735 -1.1466,46.1009 -1.104,46.206 -1.1128,46.2638 -1.1672,46.2737 -1.2044,46.2618 -1.2157,46.2449 -1.2637,46.2521 -1.4676,46.3398 -1.6518,46.3923 -1.7838,46.4353 -1.822,46.522 -1.8576,46.5848 -1.914,46.6379 -2.0042,46.7085 -2.0304,46.7232 -2.0558,46.7335 -2.0797,46.7454 -2.1017,46.7579 -2.1223,46.7776 -2.1302,46.7963 -2.1249,46.846 -2.0846,46.8883 -2.0316,46.9282 -1.9829,46.9831 -2.0011,47.0094 -2.0212,47.0256 -2.0608,47.0484 -2.1094,47.064 -2.1675,47.0728 -2.1562,47.1834 -2.1309,47.2241 -2.0404,47.2332 -1.9958,47.2283 -1.9354,47.22 -1.9162,47.2142 -1.8947,47.1976 -1.7999,47.1582 -1.7703,47.1543 -1.7324,47.1546 -1.8877,47.2348 -1.9184,47.2436 -2.0098,47.2658 -2.0309,47.2663 -2.1262,47.2557 -2.1876,47.226 -2.2776,47.1863 -2.4298,47.2087 -2.4766,47.2231 -2.5359,47.2439 -2.5237,47.332 -2.4695,47.361 -2.4405,47.3521 -2.405,47.3612 -2.4557,47.3987 -2.4788,47.3964 -2.4798,47.4435 -2.419,47.4453 -2.3633,47.4473 -2.3848,47.4561 -2.5058,47.4748 -2.577,47.4834 -2.6597,47.4584 -2.789,47.4347 -2.8276,47.443 -2.8573,47.4921 -2.8067,47.4906 -2.7712,47.4929 -2.7354,47.4903 -2.6819,47.5415 -2.6768,47.5606 -2.6963,47.5825 -2.8846,47.5455 -2.921,47.5267 -3.089,47.5318 -3.1203,47.5411 -3.123,47.4711 -3.1155,47.4465 -3.0942,47.4215 -3.1281,47.4226 -3.1394,47.477 -3.1287,47.4967 -3.1298,47.5263 -3.1492,47.5575 -3.1859,47.5742 -3.2123,47.596 -3.5038,47.704 -3.628,47.723 -3.7872,47.7392 -3.8353,47.7485 -3.8808,47.7781 -3.8985,47.7981 -3.9763,47.835 -4.0953,47.8203 -4.1492,47.7822 -4.1612,47.7626 -4.1765,47.7494 -4.206,47.7443 -4.2495,47.7402 -4.2631,47.7405 -4.3607,47.754 -4.358,47.7755 -4.3377,47.7912 -4.3437,47.8172 -4.3575,47.8442 -4.3857,47.8796 -4.4127,47.9062 -4.4368,47.9219 -4.4835,47.9479 -4.5276,47.9647 -4.5842,47.9619 -4.6849,47.9756 -4.7154,47.9842 -4.6991,48.0132 -4.3473,48.0579 -4.3253,48.0493 -4.2917,48.0444 -4.2766,48.0615 -4.2697,48.0935 -4.3067,48.1475 -4.4349,48.1831 -4.4616,48.187 -4.4862,48.1748 -4.5043,48.1449 -4.5399,48.1194 -4.6147,48.2246 -4.5598,48.2767 -4.5304,48.2854 -4.5406,48.251 -4.5263,48.2354 -4.4019,48.2282 -4.2568,48.2294 -4.1859,48.2443 -4.2936,48.2653 -4.3957,48.2729 -4.4339,48.2909 -4.5983,48.2896 -4.7042,48.2795 -4.7536,48.2796 -4.7749,48.3092 -4.783,48.3683 -4.7696,48.4555 -4.7438,48.4837 -4.722,48.5032 -4.6925,48.5154 -4.622,48.5242 -4.5928,48.5138 -4.583,48.5045 -4.5802,48.5184 -4.5576,48.5665 -4.5325,48.5803 -4.3475,48.6184 -4.1656,48.6316 -3.9877,48.6671 -3.9657,48.656 -3.9581,48.6296 -3.9435,48.6002 -3.8517,48.5803 -3.8451,48.5998 -3.855,48.6262 -3.826,48.6596 -3.805,48.6703 -3.7174,48.6556 -3.6726,48.6388 -3.633,48.6263 -3.5772,48.6221 -3.5266,48.6832 -3.5669,48.71 -3.5735,48.7302 -3.5314,48.7698 -3.5071,48.7813 -3.4694,48.785 -3.368,48.7682 -3.2213,48.8134 -3.1197,48.8089 -3.0563,48.7705 -2.8749,48.6233 -2.8077,48.5584 -2.7163,48.4774 -2.6914,48.4575 -2.6812,48.446 -2.462,48.5751 -2.4147,48.598 -2.3038,48.6204 -2.2811,48.6163 -2.1249,48.5831 -2.0361,48.5424 -1.9732,48.4577 -1.9425,48.4731 -1.9573,48.5284 -1.9882,48.5416 -2.0109,48.5874 -1.9851,48.631 -1.9294,48.6414 -1.8448,48.6533 -1.8377,48.6283 -1.864,48.602 -1.8477,48.5692 -1.8301,48.5578 -1.8095,48.5548 -1.7845,48.5548 -1.7201,48.5554 -1.6384,48.5608 -1.6125,48.5683 -1.5862,48.584 -1.5187,48.5806 -1.4628,48.5815 -1.3667,48.5881 -1.4475,48.6198 -1.4918,48.6318 -1.5602,48.6931 -1.5761,48.7817 -1.5731,48.8067 -1.5618,48.8584 -1.5539,48.9598 -1.5803,48.9534 -1.595,48.9842 -1.6076,49.0332 -1.6072,49.1586 -1.6784,49.2378 -1.7031,49.2619 -1.7426,49.2991 -1.7811,49.3175 -1.8062,49.3198 -1.8428,49.4428 -1.838,49.526 -1.8389,49.5566 -1.8536,49.5916 -1.8889,49.6079 -1.91,49.6109 -1.9419,49.6199 -1.9391,49.6645 -1.9189,49.6692 -1.8417,49.657 -1.7124,49.6233 -1.6627,49.6039 -1.6178,49.5982 -1.5255,49.6007 -1.4986,49.6073 -1.4729,49.6277 -1.4086,49.6479 -1.3742,49.6497 -1.3207,49.6436 -1.2865,49.6376 -1.2621,49.6273 -1.2365,49.599 -1.2268,49.5619 -1.257,49.5414 -1.2965,49.5204 -1.3019,49.4988 -1.2889,49.4706 -1.2583,49.4354 -1.2425,49.4184 -1.1634,49.3499 -1.1079,49.3129 -1.0776,49.3331 -0.9755,49.3401 -0.9232,49.3378 -0.8951,49.3214 -0.8583,49.3101 -0.8258,49.3052 -0.7244,49.2949 -0.6208,49.2883 -0.5793,49.2888 -0.5022,49.2897 -0.4167,49.2848 -0.3672,49.2688 -0.2936,49.2456 -0.2279,49.2273 -0.0984,49.2438 -0.0729,49.2491 -0.039,49.2582 1.0E-4,49.2721 0.0708,49.2987 0.092,49.3149 0.1134,49.3348 0.1403,49.3495 0.1692,49.3575 0.2351,49.3707 0.2698,49.3737 0.2947,49.3749 0.3761,49.3842 0.424,49.3949 0.4653,49.4122 0.4874,49.4296 0.4407,49.4151 0.3794,49.4001 0.3532,49.3976 0.3156,49.3964 0.2559,49.4003 0.1608,49.4123 0.1131,49.4309 0.0758,49.4656 0.1694,49.6319 0.1856,49.6468 0.211,49.6618 0.2665,49.6767 0.3106,49.6881 0.4263,49.7313 0.5626,49.7874 0.5849,49.7954 0.6395,49.809 0.6883,49.8171 0.7122,49.8182 1.0698,49.8693 1.2092,49.9157 1.2306,49.9241 1.3706,50.0081 1.3997,50.0212 1.4367,50.0431 1.4591,50.0665 1.5034,50.144 1.5323,50.2324 1.5521,50.302 1.5893,50.3124 1.6016,50.3105 1.5574,50.3437 1.5749,50.4697 1.5617,50.6262 1.5621,50.6472 1.5963,50.7503 1.6225,50.8189 1.7369,50.8863 1.7664,50.8968 1.7903,50.9037 1.9404,50.9365 2.2318,50.9792 2.3558,50.9953 2.3812,50.993 2.4115,50.9974 2.4885,51.0169 2.5131,51.0237 2.5379,51.032 2.5935,50.9368 2.594,50.8671 2.6467,50.7574 2.7777,50.6968 2.8631,50.6549 2.8938,50.6443 2.9387,50.6829 2.9561,50.699 3.0097,50.7113 3.0225,50.7111 3.0416,50.72 3.1116,50.7331 3.154,50.7259 3.1782,50.6984 3.1825,50.688 3.193,50.6686 3.2379,50.6058 3.2746,50.4818 3.2921,50.4661 3.3648,50.437 3.4496,50.4521 3.5128,50.4604 3.6085,50.4348 3.6551,50.397 3.6655,50.379 3.6715,50.3372 3.769,50.296 3.884,50.2821 3.978,50.2871 4.0298,50.2978 4.1588,50.225 4.1884,50.1794 4.1652,50.0794 4.1413,49.9527 4.1431,49.9211 4.1726,49.9209 4.209,49.9023 4.2332,49.906 4.3109,49.9124 4.4067,49.8917 4.4234,49.8875 4.4515,49.8819 4.5039,49.89 4.67,49.9418 4.6864,49.9991 4.687,50.0262 4.7559,50.0779 4.8176,50.1097 4.8786,50.0762 4.8462,50.0379 4.8317,50.0116 4.8138,49.9354 4.8614,49.745 4.9024,49.732 4.9299,49.7347 4.952,49.7449 4.9833,49.7465 5.3234,49.5997 5.3845,49.5655 5.3989,49.5606 5.4247,49.5464 5.4668,49.4792 5.4647,49.4521 5.5143,49.4532 5.5853,49.4696 5.6239,49.4789 5.6939,49.4863 5.7836,49.4888 5.7996,49.4883 5.7996,49.4883 281,2.0,Czech Republic 14.8056,50.8069 14.9439,50.8005 14.9811,50.8087 14.9964,50.8916 14.9935,50.9152 15.1538,50.9558 15.2162,50.9328 15.252,50.9161 15.267,50.8901 15.2492,50.8656 15.2597,50.8334 15.2884,50.8014 15.3395,50.782 15.3563,50.7207 15.465,50.7279 15.5828,50.7143 15.7636,50.6854 15.9228,50.6308 16.0001,50.5716 16.0471,50.577 16.0935,50.5993 16.1132,50.5978 16.213,50.6119 16.3074,50.6057 16.3451,50.5857 16.4055,50.5433 16.4226,50.5204 16.3818,50.4647 16.3343,50.4396 16.2903,50.4464 16.1832,50.3808 16.1948,50.3521 16.2416,50.3316 16.2784,50.3199 16.3474,50.3032 16.4167,50.2586 16.4338,50.2455 16.5231,50.169 16.5374,50.1505 16.5413,50.1127 16.5629,50.0821 16.5894,50.062 16.6151,50.0513 16.6905,50.0406 16.7617,50.0829 16.7777,50.1117 16.7862,50.1214 16.8217,50.1438 16.886,50.1645 16.9431,50.1648 16.9766,50.1589 16.9474,50.2518 16.9122,50.2823 16.8434,50.3532 16.8656,50.3803 16.8854,50.3818 16.9159,50.377 17.0321,50.3524 17.0921,50.3386 17.1793,50.303 17.2011,50.2872 17.2576,50.2623 17.3521,50.2215 17.407,50.2124 17.6004,50.2077 17.6346,50.2145 17.667,50.242 17.6705,50.2621 17.6977,50.261 17.7265,50.2398 17.7361,50.1753 17.737,50.1513 17.6686,50.121 17.6163,50.1143 17.5801,50.1048 17.6314,50.0502 17.8136,49.9322 17.8499,49.9217 17.8942,49.92 17.9827,49.9537 18.0264,49.9983 18.0673,49.9804 18.2431,49.9004 18.3231,49.8814 18.5252,49.865 18.5512,49.8551 18.5519,49.758 18.6069,49.6807 18.7594,49.6251 18.7833,49.6163 18.8117,49.538 18.8201,49.4973 18.8245,49.4711 18.8237,49.4607 18.7653,49.4571 18.6283,49.4472 18.5388,49.4367 18.5172,49.4052 18.3562,49.2764 18.2855,49.2493 18.2491,49.2445 18.1845,49.2299 18.1498,49.188 18.1475,49.1538 18.1315,49.1082 18.1187,49.0885 18.1228,49.065 18.0956,49.0267 18.0491,48.9857 17.8851,48.9289 17.8161,48.8721 17.7346,48.822 17.6865,48.8 17.6519,48.7961 17.6248,48.7958 17.4772,48.7831 17.3858,48.7688 17.357,48.7692 17.3055,48.7945 17.2131,48.8164 17.1628,48.8133 17.0874,48.7759 17.0166,48.7126 16.998,48.6876 16.9639,48.626 16.9216,48.5636 16.8934,48.6476 16.868,48.67 16.8474,48.6696 16.8086,48.6605 16.7614,48.6641 16.6873,48.6906 16.6346,48.7294 16.5165,48.7565 16.4342,48.7555 16.4071,48.7263 16.3892,48.6959 16.3584,48.6804 16.3093,48.6774 16.0799,48.694 16.0578,48.6989 16.0373,48.7044 15.9984,48.7214 15.9411,48.749 15.8265,48.8039 15.7234,48.8027 15.663,48.8082 15.5623,48.8431 15.5417,48.8531 15.5241,48.856 15.4917,48.8641 15.429,48.8952 15.37,48.9176 15.3366,48.9285 15.279,48.9317 15.1347,48.9437 15.0438,48.9586 15.0067,48.9626 14.9822,48.9553 14.9578,48.9239 14.9634,48.8829 14.9372,48.7387 14.8641,48.727 14.828,48.7307 14.8023,48.729 14.7057,48.6378 14.6952,48.5984 14.6983,48.5483 14.6843,48.5297 14.6789,48.5257 14.6332,48.553 14.5907,48.5727 14.4844,48.5727 14.4254,48.5634 14.3696,48.5369 14.2578,48.5269 14.1637,48.5404 14.0309,48.614 13.9782,48.6581 13.8636,48.7079 13.838,48.7148 13.8135,48.7178 13.7982,48.7238 13.7918,48.7442 13.7603,48.7781 13.7418,48.7899 13.7256,48.8146 13.7082,48.8252 13.6796,48.8235 13.6523,48.8335 13.632,48.8486 13.6064,48.8915 13.5757,48.9014 13.545,48.9177 13.4902,48.9165 13.383,48.9499 13.3766,48.9931 13.2989,49.0446 13.1538,49.1109 13.0121,49.2312 12.94,49.2784 12.8683,49.2837 12.7787,49.2832 12.6558,49.3682 12.5794,49.4708 12.5602,49.5036 12.5362,49.5596 12.497,49.6202 12.4578,49.634 12.4374,49.6384 12.4502,49.7265 12.5276,49.8523 12.4729,49.9186 12.4525,49.9283 12.411,49.9364 12.2893,49.99 12.2473,50.0085 12.1879,50.0483 12.1754,50.0785 12.1908,50.1059 12.1041,50.2504 12.0755,50.2643 12.1644,50.2567 12.2628,50.1607 12.3045,50.1486 12.3073,50.1782 12.3802,50.2513 12.4673,50.3148 12.4968,50.3344 12.602,50.3539 12.6523,50.3538 12.7212,50.3733 12.7531,50.3869 12.8059,50.3947 12.8363,50.3841 12.8791,50.367 12.898,50.3566 12.9252,50.3519 12.966,50.36 12.9724,50.3629 12.9956,50.3811 13.0599,50.4399 13.1675,50.4444 13.1864,50.462 13.2033,50.4932 13.2294,50.5308 13.3583,50.5709 13.3947,50.5529 13.4165,50.5468 13.443,50.5431 13.4981,50.5833 13.4905,50.592 13.5205,50.6311 13.5618,50.6509 13.6139,50.6638 13.6488,50.6672 13.7135,50.6722 13.87,50.7101 13.8826,50.7294 13.9695,50.7556 14.1339,50.7844 14.2896,50.8235 14.3465,50.8761 14.2995,50.8873 14.2362,50.9363 14.2636,50.9784 14.2842,50.9933 14.4696,50.9776 14.5468,50.9467 14.5749,50.9234 14.6059,50.8648 14.6092,50.8223 14.5969,50.7993 14.6293,50.7884 14.6953,50.7705 14.7173,50.7652 14.7492,50.7596 14.7805,50.7608 14.8024,50.7977 14.8056,50.8069 14.8056,50.8069 27,11.0,Russia 155.2102,50.8212 155.2105,50.839 155.2368,50.8616 155.2451,50.8671 155.2568,50.871 155.2677,50.8724 155.332,50.8753 155.3426,50.8752 155.3627,50.8724 155.4013,50.8621 155.4112,50.8507 155.4284,50.8117 155.432,50.7977 155.4228,50.769 155.4071,50.755 155.3837,50.7473 155.3508,50.7442 155.32,50.7453 155.3098,50.7468 155.2903,50.7512 155.2614,50.7587 155.2437,50.7694 155.236,50.7769 155.2239,50.7916 155.212,50.8135 155.2102,50.8212 155.2102,50.8212 244,-8.0,Canada -123.38,48.727 -123.3846,48.6938 -123.3298,48.5318 -123.2971,48.5758 -123.2822,48.6254 -123.2276,48.6262 -123.1698,48.4862 -123.1143,48.4272 -123.0985,48.3969 -123.1139,48.3568 -123.1497,48.3427 -123.1814,48.342 -123.2406,48.3715 -123.2806,48.3565 -123.3342,48.3194 -123.358,48.2832 -123.3708,48.2519 -123.4042,48.2457 -123.4193,48.2562 -123.5352,48.2929 -123.5897,48.3059 -123.6317,48.2988 -123.7404,48.3098 -123.7962,48.3264 -124.0832,48.4135 -124.2426,48.4615 -124.4282,48.505 -124.5074,48.5226 -124.5392,48.5312 -124.5837,48.5528 -124.6134,48.5742 -124.6386,48.5949 -124.7407,48.6242 -124.8468,48.6531 -124.8801,48.6591 -124.9191,48.6689 -125.002,48.7424 -124.8346,48.8644 -124.7232,48.9143 -124.6605,48.9597 -124.5976,49.0832 -124.6137,49.1595 -124.6238,49.1792 -124.6395,49.1641 -124.6341,49.1269 -124.6341,49.099 -124.6456,49.0612 -124.6953,48.9691 -124.713,48.9528 -124.7541,48.932 -124.7736,48.926 -124.8863,48.9285 -124.944,48.9351 -125.0212,48.903 -125.0455,48.896 -125.1399,48.9091 -125.2822,48.8611 -125.3211,48.8631 -125.567,48.9992 -125.5837,49.0422 -125.5538,49.0493 -125.5089,49.0723 -125.4553,49.1087 -125.425,49.1507 -125.4799,49.1335 -125.5365,49.1014 -125.5665,49.0926 -125.5948,49.1854 -125.6116,49.2536 -125.6811,49.2181 -125.7836,49.171 -125.8369,49.2089 -125.83,49.2301 -125.7905,49.2378 -125.7628,49.2578 -125.7144,49.3663 -125.7617,49.3388 -125.7785,49.3189 -125.7789,49.2983 -125.8153,49.2666 -125.8574,49.2751 -125.8775,49.2895 -125.8893,49.3327 -125.9342,49.3664 -126.0397,49.3538 -126.0781,49.3327 -126.1792,49.345 -126.2731,49.3454 -126.2776,49.3248 -126.3495,49.3173 -126.392,49.3556 -126.3811,49.5234 -126.2789,49.5793 -126.2174,49.5807 -126.1889,49.5779 -126.1641,49.5731 -126.0981,49.5774 -126.0373,49.5835 -125.9478,49.5932 -125.9033,49.6035 -125.9205,49.6212 -126.0229,49.6169 -126.0538,49.6099 -126.104,49.5966 -126.1542,49.5918 -126.2478,49.6062 -126.4004,49.6457 -126.4427,49.738 -126.492,49.8215 -126.6162,49.8518 -126.6559,49.8256 -126.688,49.816 -126.751,49.8057 -126.8059,49.7981 -126.9381,49.7975 -126.9929,49.8361 -127.0355,49.883 -127.0501,49.9083 -126.9901,49.9637 -126.9929,49.9836 -126.9834,50.0054 -126.9392,50.0269 -126.9675,50.0385 -127.0795,50.0413 -127.0867,49.9993 -127.1471,49.9746 -127.1951,49.9699 -127.2326,49.9848 -127.2608,50.012 -127.2792,50.0326 -127.3564,50.0724 -127.4408,50.0721 -127.5896,50.0265 -127.7023,50.0511 -127.7102,50.0723 -127.6813,50.0901 -127.6405,50.1186 -127.5966,50.1645 -127.6091,50.2615 -127.6771,50.2793 -127.7088,50.2649 -127.7335,50.2584 -127.7573,50.2651 -127.7859,50.2867 -127.7298,50.4036 -127.5633,50.4281 -127.5108,50.4338 -127.3807,50.4238 -127.3397,50.3816 -127.3085,50.3442 -127.2738,50.3202 -127.2545,50.3147 -127.2568,50.3261 -127.2936,50.3794 -127.3201,50.4058 -127.3458,50.4235 -127.3728,50.4498 -127.3539,50.4816 -127.2978,50.5086 -127.2503,50.5134 -127.2235,50.5213 -127.3879,50.5355 -127.4975,50.5481 -127.6798,50.563 -127.6604,50.5498 -127.5994,50.5264 -127.5657,50.522 -127.5227,50.5263 -127.4688,50.5229 -127.4408,50.5198 -127.4166,50.5073 -127.4028,50.4868 -127.8574,50.3886 -127.9396,50.4165 -128.0295,50.4727 -128.1246,50.5501 -128.18,50.6201 -128.2113,50.6804 -128.2175,50.7123 -128.1566,50.7422 -127.9112,50.8019 -127.8574,50.8132 -127.7183,50.813 -127.6872,50.8066 -127.6381,50.7954 -127.4827,50.7586 -127.3167,50.7147 -127.2973,50.7028 -127.265,50.6597 -127.1608,50.6177 -127.0334,50.5777 -126.7824,50.5187 -126.6623,50.4961 -126.5798,50.487 -126.521,50.4714 -126.4397,50.4447 -126.372,50.4253 -126.3022,50.4236 -126.1995,50.4239 -126.1645,50.4252 -126.1364,50.4227 -126.0219,50.4095 -125.9636,50.4012 -125.8783,50.3802 -125.8553,50.3743 -125.8344,50.3668 -125.7788,50.334 -125.7478,50.3254 -125.6269,50.3201 -125.3901,50.3078 -125.3667,50.3036 -125.2671,50.2685 -125.2439,50.2514 -125.2382,50.2294 -125.2259,50.2037 -125.2049,50.1578 -125.189,50.1219 -125.1742,50.0803 -125.1424,50.0562 -125.0989,50.0237 -125.0376,49.9608 -125.026,49.914 -124.9827,49.8553 -124.9265,49.8109 -124.808,49.731 -124.7132,49.6744 -124.7069,49.6077 -124.7317,49.5748 -124.6725,49.4801 -124.6488,49.454 -124.6057,49.4073 -124.3962,49.3309 -124.3679,49.3213 -124.3441,49.3156 -124.078,49.2587 -123.9397,49.2137 -123.7612,49.1545 -123.6288,49.0595 -123.5695,48.9802 -123.5779,48.9268 -123.5065,48.8493 -123.4064,48.7801 -123.38,48.727 -123.38,48.727 27,11.0,Russia 156.1633,50.5672 156.1134,50.5786 156.0482,50.5881 155.961,50.6118 155.9518,50.6161 155.9433,50.6211 155.9325,50.6329 155.9262,50.65 155.9268,50.67 155.9314,50.6829 155.9375,50.6948 155.9511,50.7099 156.1026,50.7922 156.1147,50.7972 156.1259,50.7998 156.2039,50.8112 156.215,50.8119 156.2297,50.8089 156.2527,50.7874 156.2569,50.7735 156.2498,50.6946 156.214,50.6497 156.197,50.6324 156.1765,50.6155 156.1677,50.5969 156.1633,50.5672 156.1633,50.5672 13,-8.0,Canada -126.6046,50.7104 -126.6142,50.7114 -126.6599,50.7242 -126.6713,50.7309 -126.7099,50.7655 -126.6908,50.7708 -126.4524,50.7883 -126.439,50.7853 -126.3953,50.7628 -126.3739,50.7421 -126.538,50.7131 -126.6046,50.7104 -126.6046,50.7104 19,-8.0,Canada -126.0589,50.7601 -126.0456,50.7522 -126.0369,50.7448 -125.9848,50.6883 -126.0608,50.6411 -126.0665,50.6006 -126.0776,50.5954 -126.2711,50.5831 -126.3758,50.5899 -126.3915,50.5917 -126.41,50.5973 -126.4235,50.6067 -126.353,50.6674 -126.2443,50.7252 -126.1929,50.7484 -126.0876,50.7697 -126.0651,50.7653 -126.0589,50.7601 -126.0589,50.7601 13,-3.5,Canada -55.3821,50.7254 -55.428,50.664 -55.4402,50.6571 -55.4697,50.644 -55.4801,50.641 -55.4998,50.6404 -55.5658,50.6654 -55.5423,50.7252 -55.534,50.7326 -55.3739,50.7456 -55.3678,50.7331 -55.3821,50.7254 -55.3821,50.7254 58,11.0,Russia 154.9937,49.995 154.9795,50.0091 154.976,50.023 154.9883,50.1767 155.014,50.2435 155.1579,50.2954 155.1926,50.3064 155.2037,50.3089 155.2147,50.3099 155.3105,50.3169 155.3929,50.3198 155.4033,50.3199 155.4143,50.3225 155.4306,50.3301 155.5139,50.388 155.5279,50.4026 155.6152,50.5334 155.6195,50.5461 155.622,50.5591 155.6243,50.5786 155.6257,50.5951 155.6459,50.6288 155.6561,50.6371 155.7417,50.6883 155.7723,50.7038 155.7845,50.7089 155.7965,50.7123 155.8078,50.715 155.8297,50.7173 155.8392,50.7143 155.8665,50.7024 155.8766,50.6924 155.8839,50.6613 155.8872,50.6412 155.9145,50.4638 155.658,50.2057 155.5613,50.1309 155.5513,50.1273 155.5297,50.1236 155.5078,50.1213 155.4978,50.1216 155.468,50.1256 155.4577,50.1259 155.3848,50.1252 155.3627,50.1204 155.2919,50.089 155.2819,50.084 155.266,50.0728 155.2499,50.0618 155.2378,50.0501 155.1249,49.9954 155.1054,49.9994 155.086,50.0022 155.0652,50.0024 155.0232,50.0 155.0123,49.999 154.9937,49.995 154.9937,49.995 21,1.0,United Kingdom -1.2803,50.5204 -1.3651,50.56 -1.4708,50.6022 -1.4941,50.6093 -1.5098,50.6103 -1.5209,50.6091 -1.5355,50.6052 -1.5671,50.6005 -1.5482,50.6166 -1.5209,50.6366 -1.3068,50.7123 -1.292,50.713 -1.114,50.6779 -1.0919,50.662 -1.058,50.6289 -1.1664,50.5434 -1.1893,50.5353 -1.2134,50.5289 -1.2397,50.5241 -1.2803,50.5204 -1.2803,50.5204 16,-8.0,Canada -126.7196,50.5552 -126.8277,50.5806 -126.8495,50.5791 -126.8653,50.574 -126.9088,50.569 -126.9341,50.5695 -126.9498,50.577 -126.9362,50.5955 -126.9156,50.6068 -126.8969,50.611 -126.6973,50.6088 -126.6837,50.6062 -126.6413,50.5699 -126.7095,50.5553 -126.7196,50.5552 -126.7196,50.5552 18,-8.0,Canada -126.0945,50.54 -126.0336,50.5006 -126.1174,50.4701 -126.1447,50.4633 -126.1589,50.4619 -126.2944,50.4571 -126.3962,50.4631 -126.4121,50.4671 -126.432,50.4757 -126.4121,50.4815 -126.3825,50.488 -126.365,50.4901 -126.3501,50.4911 -126.3347,50.4906 -126.2965,50.4948 -126.1894,50.5162 -126.0945,50.54 -126.0945,50.54 14,-8.0,Canada -125.1812,50.3976 -125.1534,50.3833 -125.1416,50.3737 -125.1473,50.3584 -125.1963,50.3115 -125.2087,50.3059 -125.2368,50.2976 -125.273,50.2916 -125.3373,50.3221 -125.3288,50.332 -125.2875,50.3661 -125.2786,50.3707 -125.1812,50.3976 -125.1812,50.3976 27,-8.0,Canada -125.0837,50.373 -125.0473,50.3575 -125.0271,50.3465 -124.9763,50.3163 -124.8729,50.1826 -124.8626,50.1661 -124.8602,50.1498 -124.8624,50.1344 -124.9285,50.079 -124.9436,50.0666 -124.9546,50.0641 -124.9644,50.0715 -124.9514,50.1016 -124.9674,50.1811 -125.0249,50.2572 -125.0786,50.2655 -125.1307,50.2587 -125.1458,50.243 -125.167,50.2321 -125.1831,50.2313 -125.1994,50.2342 -125.2104,50.258 -125.2078,50.2762 -125.1024,50.3757 -125.09,50.3764 -125.0837,50.373 -125.0837,50.373 14,-8.0,Canada -124.5388,50.2412 -124.5073,50.2315 -124.4951,50.2252 -124.4827,50.2162 -124.4723,50.2029 -124.4698,50.1898 -124.4682,50.1734 -124.4733,50.1489 -124.516,50.1017 -124.6057,50.1693 -124.5911,50.2153 -124.5545,50.2425 -124.5388,50.2412 -124.5388,50.2412 15,-8.0,Canada -124.7104,50.236 -124.6874,50.2266 -124.6338,50.1816 -124.5691,50.1204 -124.566,50.1024 -124.6224,50.055 -124.6413,50.0553 -124.6736,50.0784 -124.7509,50.1497 -124.7746,50.1784 -124.7774,50.1914 -124.7324,50.2402 -124.7181,50.2413 -124.7104,50.236 -124.7104,50.236 20,-8.0,Canada -125.1565,50.2058 -125.1509,50.211 -125.1217,50.2234 -125.0699,50.2359 -125.0559,50.2313 -124.9787,50.1558 -124.9721,50.1374 -124.9983,50.0839 -124.9679,49.946 -124.9824,49.925 -124.9995,49.9469 -125.0197,49.9872 -125.0262,50.0124 -125.0934,50.0557 -125.1324,50.0821 -125.1515,50.1453 -125.1602,50.1845 -125.1602,50.2017 -125.1565,50.2058 -125.1565,50.2058 14,-8.0,Canada -124.7949,50.1678 -124.7422,50.1107 -124.7273,50.0837 -124.7101,50.0199 -124.7367,50.0008 -124.7816,49.9782 -124.8131,49.9988 -124.8773,50.0478 -124.8763,50.0585 -124.8516,50.0728 -124.8036,50.1104 -124.7935,50.1215 -124.7949,50.1678 -124.7949,50.1678 54,2.0,Luxembourg 6.1255,50.0701 6.1201,50.0614 6.1092,50.033 6.1039,49.9995 6.1216,49.9564 6.1316,49.9365 6.1652,49.8937 6.2251,49.8402 6.2437,49.825 6.3067,49.7979 6.312,49.7911 6.3861,49.7605 6.4202,49.7517 6.4724,49.7538 6.5143,49.7505 6.4964,49.6496 6.463,49.636 6.4116,49.6087 6.3473,49.469 6.3535,49.4324 6.3531,49.4025 6.319,49.4125 6.2934,49.42 6.2383,49.4493 6.2255,49.4513 6.1517,49.4475 6.1113,49.4194 6.0835,49.3968 5.9707,49.3918 5.8467,49.4442 5.8301,49.4575 5.8024,49.481 5.7996,49.4883 5.8275,49.4927 5.8545,49.5147 5.8918,49.5834 5.8906,49.6059 5.8676,49.6528 5.8607,49.6628 5.7817,49.7238 5.7442,49.7353 5.7262,49.7779 5.7393,49.8501 5.7702,49.8998 5.8259,49.9295 5.8742,50.0197 5.879,50.0398 5.964,50.112 6.0091,50.124 6.0174,50.1235 6.0214,50.1053 6.1108,50.0741 6.1255,50.0701 6.1255,50.0701 33,-5.0,Canada -64.4164,49.8037 -64.3229,49.7444 -64.2907,49.7323 -64.2116,49.7202 -63.9209,49.6454 -63.8237,49.6175 -63.7876,49.602 -63.7476,49.5821 -63.6205,49.5095 -63.5767,49.4821 -63.5217,49.4266 -63.525,49.401 -63.4794,49.3401 -63.4436,49.323 -63.4077,49.3137 -63.3235,49.2941 -63.294,49.2873 -63.2663,49.2798 -63.2575,49.7636 -63.381,49.7835 -63.3981,49.7838 -63.4508,49.786 -63.5216,49.7918 -63.864,49.8408 -63.934,49.8672 -64.0404,49.8899 -64.1083,49.893 -64.1315,49.8911 -64.3565,49.8454 -64.3769,49.8387 -64.4037,49.8219 -64.4168,49.804 -64.4164,49.8037 24,-8.0,Canada -126.5807,49.8214 -126.5616,49.7997 -126.5461,49.7909 -126.4902,49.7681 -126.4573,49.717 -126.4477,49.6995 -126.426,49.5913 -126.4291,49.5675 -126.4355,49.5468 -126.4459,49.5391 -126.4853,49.5276 -126.4979,49.5266 -126.5103,49.5286 -126.6023,49.5551 -126.6238,49.5642 -126.7178,49.6285 -126.7795,49.6719 -126.7869,49.6879 -126.7525,49.7743 -126.7025,49.7904 -126.6111,49.8189 -126.5894,49.8223 -126.5807,49.8214 -126.5807,49.8214 30,-8.0,Canada -123.9399,49.4368 -123.9443,49.4331 -123.9551,49.4298 -123.969,49.4307 -124.0981,49.4899 -124.2221,49.5488 -124.254,49.5719 -124.2582,49.5811 -124.2927,49.615 -124.3556,49.6359 -124.3727,49.6415 -124.4297,49.6566 -124.4428,49.6622 -124.4731,49.6823 -124.4694,49.7415 -124.4348,49.7399 -124.4175,49.7298 -124.4056,49.7146 -124.3763,49.6952 -124.3106,49.6764 -124.2618,49.6664 -124.249,49.6664 -124.2258,49.6659 -124.1973,49.6562 -124.1673,49.6409 -124.1489,49.6262 -123.9504,49.4659 -123.941,49.4424 -123.9399,49.4368 -123.9399,49.4368 21,-8.0,Canada -123.8421,49.7107 -123.8625,49.6993 -123.8771,49.6878 -123.891,49.6761 -123.9072,49.6583 -123.9174,49.6433 -123.922,49.6325 -123.9236,49.6202 -123.9287,49.6054 -123.9429,49.5943 -123.9558,49.5935 -123.9701,49.5985 -124.0032,49.6117 -124.013,49.6199 -124.0169,49.647 -123.9574,49.6931 -123.9079,49.7105 -123.8491,49.7207 -123.835,49.7169 -123.8421,49.7107 -123.8421,49.7107 16,-3.5,Canada -54.0009,49.6793 -53.9599,49.6328 -53.9233,49.6032 -53.9244,49.5905 -54.1816,49.51 -54.1945,49.5122 -54.2113,49.5214 -54.2184,49.5529 -54.2176,49.5941 -54.2049,49.6569 -54.1895,49.6654 -54.0615,49.6929 -54.0177,49.6925 -54.0058,49.6885 -54.0009,49.6793 -54.0009,49.6793 25,-3.5,Canada -54.4492,49.577 -54.4511,49.5652 -54.46,49.5282 -54.493,49.5034 -54.6921,49.4372 -54.7286,49.4313 -54.7581,49.4277 -54.7785,49.4282 -54.7915,49.4331 -54.8127,49.5259 -54.8074,49.5349 -54.7245,49.539 -54.7116,49.513 -54.7061,49.5004 -54.6833,49.4893 -54.6628,49.4882 -54.6489,49.4913 -54.6276,49.4976 -54.5339,49.549 -54.4939,49.5783 -54.4813,49.5968 -54.4682,49.603 -54.4555,49.607 -54.4492,49.577 -54.4492,49.577 31,11.0,Russia 154.3669,49.2344 154.3714,49.2909 154.3733,49.3104 154.3772,49.3201 154.4109,49.3663 154.4753,49.4239 154.52,49.5186 154.5182,49.5321 154.5861,49.5794 154.6279,49.5763 154.6667,49.5699 154.6759,49.5639 154.654,49.4908 154.6462,49.4826 154.6196,49.4716 154.606,49.4634 154.59,49.4489 154.5662,49.3994 154.5624,49.3865 154.5627,49.3732 154.5693,49.3626 154.5972,49.3321 154.6074,49.2894 154.5876,49.2524 154.5799,49.2433 154.5644,49.2356 154.489,49.2074 154.4752,49.2064 154.4049,49.2239 154.3669,49.2344 154.3669,49.2344 221,2.0,Slovakia 18.8237,49.4607 18.9408,49.4249 18.9405,49.3995 18.9472,49.3453 19.0038,49.3352 19.1314,49.3435 19.1637,49.3572 19.171,49.381 19.2143,49.4499 19.2409,49.4697 19.419,49.544 19.4471,49.5432 19.4924,49.5171 19.5067,49.4787 19.5485,49.4023 19.6297,49.3501 19.6816,49.3409 19.7489,49.3509 19.7759,49.3083 19.7966,49.2209 19.7689,49.1964 19.7448,49.1765 19.737,49.1579 19.7546,49.1439 19.814,49.1353 19.839,49.1406 19.882,49.1696 19.9074,49.1746 19.9503,49.1699 19.9697,49.1614 19.9912,49.1432 20.01,49.1327 20.0441,49.1214 20.0631,49.1485 20.0738,49.1921 20.1141,49.2583 20.177,49.2835 20.2978,49.3265 20.3307,49.3364 20.5727,49.3391 20.7104,49.3324 20.7819,49.2743 20.8828,49.2397 20.9251,49.245 20.9517,49.2529 21.0046,49.303 21.0195,49.3537 21.0406,49.3655 21.2506,49.3997 21.3695,49.3723 21.4051,49.3572 21.4279,49.3552 21.4691,49.3657 21.502,49.373 21.581,49.3798 21.8062,49.328 21.9263,49.2836 21.9878,49.2174 21.9932,49.1907 21.9978,49.1638 22.1925,49.0982 22.2912,49.0823 22.3162,49.0821 22.5048,49.0316 22.5253,49.0232 22.5186,48.9834 22.502,48.9387 22.4286,48.8935 22.3922,48.8333 22.3564,48.7442 22.2962,48.6311 22.2029,48.5692 22.1414,48.5372 22.1275,48.5226 22.1193,48.3564 22.0665,48.3226 22.0328,48.3298 21.9978,48.332 21.9332,48.3266 21.9042,48.3239 21.8208,48.3068 21.7966,48.2882 21.7497,48.2854 21.6908,48.3001 21.5941,48.4036 21.5861,48.4369 21.476,48.4933 21.4073,48.5198 21.278,48.4925 21.2233,48.4665 21.1229,48.4557 21.0539,48.4582 20.9161,48.4693 20.8397,48.4953 20.8133,48.5119 20.7879,48.5205 20.6833,48.5135 20.6232,48.506 20.5099,48.4812 20.471,48.4489 20.4699,48.4274 20.4214,48.3934 20.4062,48.3782 20.3845,48.3442 20.3729,48.3061 20.3337,48.2492 20.3115,48.2308 20.2881,48.2146 20.2536,48.2007 20.2063,48.2199 20.1117,48.171 20.0644,48.1433 20.0303,48.1212 19.9813,48.1186 19.9403,48.0985 19.9112,48.0812 19.8821,48.0753 19.7582,48.1416 19.7265,48.1542 19.6249,48.1777 19.6023,48.1786 19.502,48.1537 19.4806,48.1178 19.4693,48.0809 19.4444,48.0343 19.1809,48.0045 19.1119,48.0068 19.0142,48.0157 18.9738,48.0139 18.9625,48.012 18.9383,48.005 18.88,48.0029 18.8183,47.9941 18.8003,47.981 18.7448,47.9106 18.7328,47.86 18.7566,47.8174 18.7932,47.8009 18.8276,47.7771 18.8227,47.763 18.7611,47.7624 18.731,47.7599 18.7029,47.7408 18.6561,47.712 18.6363,47.7052 18.6101,47.7045 18.5706,47.7083 18.5144,47.7128 18.4228,47.7127 18.3869,47.6993 18.3524,47.6927 18.3111,47.6863 18.2787,47.6831 18.1697,47.6931 18.0995,47.7014 18.0602,47.7047 17.9503,47.7091 17.8831,47.6963 17.8712,47.6931 17.7617,47.6917 17.6867,47.716 17.4607,47.8233 17.437,47.8375 17.4202,47.8582 17.3867,47.8901 17.3171,47.9409 17.2869,47.9432 17.2382,47.9527 17.2268,47.9699 17.2146,47.9708 17.1565,47.9659 17.1418,47.9576 17.0919,47.9836 17.0564,48.0334 17.0447,48.0801 17.0092,48.0901 16.9734,48.1148 16.9509,48.1334 16.9281,48.1951 16.9254,48.2227 16.8994,48.2269 16.8204,48.3066 16.8315,48.394 16.8415,48.4133 16.883,48.4515 16.9088,48.4772 16.9187,48.5177 16.9216,48.5636 16.9639,48.626 16.998,48.6876 17.0166,48.7126 17.0874,48.7759 17.1628,48.8133 17.2131,48.8164 17.3055,48.7945 17.357,48.7692 17.3858,48.7688 17.4772,48.7831 17.6248,48.7958 17.6519,48.7961 17.6865,48.8 17.7346,48.822 17.8161,48.8721 17.8851,48.9289 18.0491,48.9857 18.0956,49.0267 18.1228,49.065 18.1187,49.0885 18.1315,49.1082 18.1475,49.1538 18.1498,49.188 18.1845,49.2299 18.2491,49.2445 18.2855,49.2493 18.3562,49.2764 18.5172,49.4052 18.5388,49.4367 18.6283,49.4472 18.7653,49.4571 18.8237,49.4607 18.8237,49.4607 19,-8.0,Canada -123.1566,49.4492 -123.148,49.442 -123.1421,49.432 -123.1376,49.4179 -123.1362,49.4075 -123.1392,49.3934 -123.148,49.3859 -123.1784,49.3764 -123.1934,49.3766 -123.2632,49.3833 -123.2776,49.4122 -123.2712,49.4387 -123.2632,49.4584 -123.2545,49.4653 -123.1986,49.4792 -123.1835,49.4787 -123.1729,49.475 -123.1566,49.4492 -123.1566,49.4492 17,-8.0,Canada -125.9411,49.3338 -125.9231,49.3239 -125.9106,49.3118 -125.9009,49.3021 -125.8875,49.2863 -125.8678,49.203 -125.8828,49.193 -125.8992,49.1901 -125.9111,49.1906 -126.0038,49.208 -126.0408,49.2248 -126.0537,49.2331 -126.0463,49.3197 -126.0357,49.3239 -125.9508,49.3371 -125.9411,49.3338 -125.9411,49.3338 14,-8.0,Canada -125.6826,49.1769 -125.6446,49.17 -125.6335,49.1643 -125.6146,49.1518 -125.6044,49.1164 -125.6124,49.0927 -125.6328,49.0698 -125.6758,49.0782 -125.7237,49.1067 -125.7411,49.1346 -125.7461,49.1615 -125.6942,49.1792 -125.6826,49.1769 -125.6826,49.1769 16,11.0,Russia 154.2384,49.1114 154.267,49.1105 154.3385,49.0958 154.3566,49.0896 154.3677,49.0794 154.3743,49.0654 154.3697,49.0527 154.3571,49.0444 154.2949,49.0195 154.2795,49.0177 154.2614,49.0247 154.2454,49.042 154.2152,49.1021 154.2241,49.1121 154.2384,49.1114 154.2384,49.1114 23,-8.0,Canada -123.4934,49.0366 -123.4782,49.0173 -123.4234,48.9585 -123.4057,48.9444 -123.3408,48.9042 -123.3187,48.8911 -123.307,48.885 -123.2793,48.8746 -123.256,48.8683 -123.2397,48.8645 -123.2018,48.8547 -123.1414,48.8355 -123.1323,48.8145 -123.1394,48.8062 -123.1946,48.8006 -123.2045,48.804 -123.36,48.8891 -123.4816,48.9791 -123.5231,49.0416 -123.5179,49.0506 -123.5022,49.0487 -123.4934,49.0366 -123.4934,49.0366 325,2.0,Austria 13.8135,48.7178 13.838,48.7148 13.8636,48.7079 13.9782,48.6581 14.0309,48.614 14.1637,48.5404 14.2578,48.5269 14.3696,48.5369 14.4254,48.5634 14.4844,48.5727 14.5907,48.5727 14.6332,48.553 14.6789,48.5257 14.6843,48.5297 14.6983,48.5483 14.6952,48.5984 14.7057,48.6378 14.8023,48.729 14.828,48.7307 14.8641,48.727 14.9372,48.7387 14.9634,48.8829 14.9578,48.9239 14.9822,48.9553 15.0067,48.9626 15.0438,48.9586 15.1347,48.9437 15.279,48.9317 15.3366,48.9285 15.37,48.9176 15.429,48.8952 15.4917,48.8641 15.5241,48.856 15.5417,48.8531 15.5623,48.8431 15.663,48.8082 15.7234,48.8027 15.8265,48.8039 15.9411,48.749 15.9984,48.7214 16.0373,48.7044 16.0578,48.6989 16.0799,48.694 16.3093,48.6774 16.3584,48.6804 16.3892,48.6959 16.4071,48.7263 16.4342,48.7555 16.5165,48.7565 16.6346,48.7294 16.6873,48.6906 16.7614,48.6641 16.8086,48.6605 16.8474,48.6696 16.868,48.67 16.8934,48.6476 16.9216,48.5636 16.9187,48.5177 16.9088,48.4772 16.883,48.4515 16.8415,48.4133 16.8315,48.394 16.8204,48.3066 16.8994,48.2269 16.9254,48.2227 16.9281,48.1951 16.9509,48.1334 16.9734,48.1148 17.0092,48.0901 17.0447,48.0801 17.0564,48.0334 17.0919,47.9836 17.1418,47.9576 17.1223,47.9451 17.0833,47.9167 17.0359,47.8223 17.0298,47.7925 17.0324,47.74 17.0442,47.7137 17.0472,47.6739 17.0293,47.6549 16.931,47.6404 16.8867,47.6363 16.8003,47.6293 16.7402,47.6309 16.7117,47.6476 16.6994,47.672 16.6116,47.7058 16.5884,47.7047 16.535,47.702 16.4271,47.6436 16.4092,47.6121 16.4696,47.5921 16.5729,47.5743 16.6087,47.5799 16.6424,47.5599 16.6901,47.4896 16.6815,47.4669 16.6316,47.4038 16.5689,47.3711 16.4503,47.3647 16.4286,47.3588 16.4331,47.315 16.4678,47.2278 16.4507,47.2062 16.4215,47.1906 16.3977,47.1567 16.4359,47.0936 16.4822,47.0612 16.4815,46.953 16.4216,46.9509 16.3894,46.9541 16.3239,46.9562 16.2798,46.9579 16.2537,46.9345 16.2305,46.9047 16.1152,46.8255 16.0888,46.8163 15.9868,46.7819 15.9656,46.7781 15.9653,46.7018 15.8367,46.67 15.8105,46.669 15.7843,46.6653 15.5805,46.6335 15.3844,46.5993 15.1181,46.6039 15.0815,46.6035 15.0533,46.5956 15.0338,46.5989 14.8466,46.5602 14.8129,46.5178 14.8041,46.4884 14.7923,46.4583 14.5244,46.3546 14.4578,46.3664 14.1336,46.3899 14.1089,46.4101 14.0961,46.4261 14.0622,46.4362 13.9173,46.4629 13.826,46.4669 13.7566,46.4652 13.6995,46.4734 13.5918,46.4951 13.5357,46.5031 13.4098,46.51 13.2387,46.5087 12.8074,46.5779 12.7602,46.5946 12.7398,46.5967 12.73,46.5915 12.7177,46.5882 12.6746,46.6064 12.5726,46.6058 12.5366,46.6084 12.4687,46.6291 12.423,46.6375 12.3867,46.6523 12.3662,46.6679 12.2841,46.7878 12.2148,46.8356 12.1684,46.8545 12.143,46.8744 12.1189,46.9134 12.1159,46.959 12.1774,46.9792 12.2065,47.0094 12.2135,47.0187 12.2103,47.0305 12.1687,47.0407 12.1231,47.0312 12.058,47.0059 11.7447,46.9248 11.7147,46.9252 11.6937,46.9427 11.6055,46.9591 11.4675,46.9606 11.1615,46.9139 11.1025,46.8765 11.0848,46.862 11.0815,46.838 11.0559,46.77 11.0011,46.7201 10.8723,46.7176 10.8187,46.7335 10.7765,46.7479 10.7482,46.7773 10.665,46.8202 10.6319,46.817 10.5847,46.8043 10.5486,46.7953 10.4831,46.8018 10.4613,46.8124 10.4566,46.818 10.4735,46.8826 10.4152,46.9306 10.3761,46.9489 10.336,46.9377 10.3089,46.9021 10.2987,46.8802 10.2132,46.8234 10.1466,46.8015 10.1273,46.798 10.1173,46.7968 10.095,46.7967 10.0446,46.8129 9.9211,46.8591 9.8638,46.8868 9.862,46.9146 9.8777,46.9466 9.8588,46.9695 9.7057,46.9965 9.6188,47.003 9.585,47.01 9.5933,47.0142 9.6198,47.0436 9.6204,47.0769 9.6093,47.0967 9.5527,47.1898 9.5199,47.2207 9.5264,47.2301 9.5975,47.3082 9.6235,47.3153 9.6567,47.3366 9.636,47.4044 9.583,47.4151 9.546,47.4477 9.5533,47.4861 9.5644,47.4832 9.5949,47.4751 9.6376,47.4751 9.6789,47.4752 9.7189,47.4869 9.7322,47.5116 9.7616,47.5369 9.797,47.5397 9.9408,47.4855 10.0289,47.4412 10.217,47.3197 10.1973,47.2686 10.1589,47.2208 10.2142,47.2221 10.26,47.235 10.3219,47.2587 10.415,47.3418 10.4589,47.3833 10.4513,47.4285 10.4214,47.4747 10.4189,47.5263 10.4668,47.5323 10.5542,47.4858 10.6756,47.4996 10.8939,47.4636 10.9611,47.3461 10.9927,47.3419 11.0129,47.3412 11.0882,47.3425 11.2803,47.3748 11.4412,47.4581 11.4888,47.4548 11.538,47.4611 11.5632,47.4698 11.6664,47.5302 11.9028,47.5599 11.9894,47.5702 12.0426,47.5662 12.0937,47.5605 12.1241,47.5566 12.184,47.5587 12.1898,47.5791 12.1837,47.6032 12.4372,47.6132 12.4966,47.5788 12.5486,47.5875 12.5584,47.5899 12.5853,47.6177 12.6479,47.6304 12.7188,47.6283 12.8097,47.5667 12.7878,47.5605 12.7698,47.5293 12.7884,47.5006 12.9396,47.4227 12.9941,47.4157 13.0347,47.4435 13.0813,47.5885 13.0589,47.6327 13.0396,47.6515 13.0045,47.6698 12.9751,47.6598 12.8956,47.6703 12.9256,47.7341 12.952,47.756 12.9901,47.7993 12.9481,47.852 12.9003,47.9028 12.8469,47.9398 12.8388,47.9572 12.8191,47.9749 12.7808,47.9995 12.7479,48.0271 12.7415,48.0667 12.8527,48.1477 12.9992,48.2043 13.1356,48.2369 13.2391,48.2438 13.266,48.2499 13.294,48.2604 13.3156,48.2732 13.3757,48.3109 13.4026,48.3355 13.4185,48.3741 13.4379,48.4602 13.4236,48.5047 13.4989,48.529 13.5831,48.5125 13.6351,48.4961 13.6571,48.4767 13.706,48.4601 13.7836,48.5272 13.8053,48.5754 13.7948,48.6823 13.8135,48.7178 13.8135,48.7178 6,-8.0,United States -122.8544,48.9431 -122.8657,48.9214 -122.9064,48.9161 -122.9134,48.9431 -122.8544,48.9431 -122.8544,48.9431 20,-8.0,Canada -123.38,48.727 -123.4121,48.8423 -123.4147,48.8537 -123.4155,48.8724 -123.4142,48.8911 -123.3997,48.8796 -123.3966,48.873 -123.3526,48.8575 -123.2772,48.8072 -123.2537,48.7885 -123.1897,48.7097 -123.1941,48.6996 -123.252,48.6654 -123.2988,48.653 -123.3101,48.6536 -123.3332,48.6607 -123.3446,48.6668 -123.3706,48.6937 -123.38,48.727 -123.38,48.727 22,11.0,Russia 153.7567,48.6787 153.7508,48.6797 153.7487,48.6896 153.7525,48.7059 153.7637,48.7243 153.8911,48.8419 153.9043,48.8496 153.9155,48.8538 153.9364,48.8566 153.9567,48.8574 153.9911,48.8538 154.0048,48.843 154.0021,48.8269 153.9945,48.8147 153.9641,48.7791 153.8388,48.6868 153.8295,48.6816 153.8068,48.671 153.7953,48.6677 153.78,48.6665 153.7567,48.6787 153.7567,48.6787 8,2.0,France -3.5712,48.7478 -3.5766,48.7481 -3.5744,48.7537 -3.57,48.7567 -3.5597,48.7557 -3.5609,48.7498 -3.5712,48.7478 -3.5712,48.7478 19,-8.0,United States -122.7166,48.6554 -122.7039,48.6555 -122.6795,48.6503 -122.6656,48.6454 -122.6018,48.6212 -122.5696,48.6043 -122.5724,48.5934 -122.6288,48.5496 -122.6996,48.5324 -122.7206,48.5303 -122.7412,48.5317 -122.8214,48.5441 -122.8335,48.55 -122.8443,48.5685 -122.841,48.5797 -122.7611,48.6486 -122.747,48.6549 -122.7166,48.6554 -122.7166,48.6554 17,-8.0,United States -122.9204,48.5484 -122.8595,48.5057 -122.8161,48.474 -122.7842,48.397 -122.8257,48.3904 -122.9163,48.4196 -122.9431,48.4292 -122.9607,48.4386 -122.9695,48.4462 -122.9766,48.4556 -122.9976,48.496 -122.9982,48.5362 -122.9733,48.5608 -122.9623,48.5634 -122.9266,48.5557 -122.9204,48.5484 -122.9204,48.5484 312,2.0,Hungary 22.1193,48.3564 22.1395,48.3536 22.1821,48.3624 22.2381,48.3469 22.2382,48.3047 22.3156,48.2196 22.3486,48.1897 22.4223,48.1883 22.462,48.1944 22.5421,48.132 22.5653,48.0908 22.5725,48.0613 22.5933,48.0454 22.6145,48.0395 22.6472,48.0399 22.705,48.0594 22.7573,48.0615 22.8138,48.0281 22.8505,47.9857 22.8264,47.9389 22.8621,47.8997 22.7473,47.7881 22.6212,47.7217 22.6017,47.7169 22.5711,47.7131 22.52,47.7126 22.4697,47.7356 22.4487,47.7411 22.4177,47.7404 22.2889,47.6921 22.242,47.6718 22.1933,47.625 22.1596,47.5745 22.1582,47.5497 22.1548,47.5442 22.1361,47.5341 22.0864,47.5239 22.0062,47.4793 21.9824,47.4563 21.9771,47.4243 21.989,47.3966 21.9891,47.371 21.9819,47.3362 21.9671,47.3194 21.9311,47.314 21.8982,47.3049 21.8406,47.2424 21.811,47.1755 21.8161,47.1444 21.7526,47.0611 21.7122,47.0445 21.679,47.0262 21.6219,46.9738 21.6247,46.9671 21.6616,46.9528 21.6399,46.9078 21.5827,46.8305 21.4998,46.7737 21.463,46.7014 21.4953,46.673 21.4592,46.6314 21.423,46.6313 21.2974,46.5673 21.278,46.5367 21.2636,46.4796 21.2589,46.4078 21.1892,46.3556 21.1727,46.3438 21.1585,46.3192 21.1488,46.274 21.1475,46.2448 21.0512,46.1944 21.0197,46.1882 20.9602,46.2022 20.8393,46.2236 20.8172,46.2263 20.7958,46.2231 20.7667,46.2129 20.7539,46.2068 20.7282,46.1902 20.6912,46.137 20.6976,46.1229 20.6906,46.1134 20.6584,46.0938 20.5929,46.0783 20.5538,46.1025 20.5344,46.1125 20.5063,46.1203 20.4581,46.1287 20.3116,46.107 20.2459,46.0878 20.2294,46.0657 20.1743,46.0981 20.087,46.1147 19.9329,46.1183 19.8215,46.0995 19.7171,46.1095 19.676,46.1239 19.6388,46.1285 19.5379,46.1201 19.4788,46.0865 19.4887,46.0656 19.4365,46.024 19.2571,45.9364 19.1272,45.9361 19.1007,45.9687 19.0662,45.97 18.9758,45.9072 18.8324,45.8588 18.8096,45.8588 18.7906,45.8607 18.781,45.8506 18.7535,45.8425 18.6931,45.8594 18.5922,45.7993 18.5725,45.7759 18.5297,45.7478 18.4078,45.699 18.3817,45.6961 18.3071,45.7024 18.2225,45.7154 18.2005,45.7278 18.1699,45.7317 18.1277,45.7352 17.981,45.7349 17.8556,45.7318 17.6362,45.7865 17.6279,45.8011 17.6202,45.8329 17.6012,45.8534 17.558,45.8854 17.4341,45.9022 17.403,45.8882 17.3649,45.8857 17.3304,45.8993 17.2869,45.923 17.2333,45.9686 17.2305,46.001 17.2105,46.0381 17.1585,46.1022 17.1285,46.1278 17.0164,46.1614 16.9491,46.1808 16.9138,46.1968 16.8958,46.2075 16.8676,46.2309 16.8567,46.2516 16.8551,46.2559 16.8507,46.2926 16.8169,46.3171 16.7778,46.3387 16.6378,46.4126 16.6053,46.4222 16.5843,46.4232 16.5078,46.456 16.3853,46.6055 16.3622,46.6485 16.3521,46.6694 16.3363,46.6668 16.3021,46.7027 16.2925,46.741 16.3141,46.7559 16.3257,46.789 16.2753,46.8159 16.2466,46.821 16.2063,46.8229 16.1583,46.811 16.1168,46.8059 16.0888,46.8163 16.1152,46.8255 16.2305,46.9047 16.2537,46.9345 16.2798,46.9579 16.3239,46.9562 16.3894,46.9541 16.4216,46.9509 16.4815,46.953 16.4822,47.0612 16.4359,47.0936 16.3977,47.1567 16.4215,47.1906 16.4507,47.2062 16.4678,47.2278 16.4331,47.315 16.4286,47.3588 16.4503,47.3647 16.5689,47.3711 16.6316,47.4038 16.6815,47.4669 16.6901,47.4896 16.6424,47.5599 16.6087,47.5799 16.5729,47.5743 16.4696,47.5921 16.4092,47.6121 16.4271,47.6436 16.535,47.702 16.5884,47.7047 16.6116,47.7058 16.6994,47.672 16.7117,47.6476 16.7402,47.6309 16.8003,47.6293 16.8867,47.6363 16.931,47.6404 17.0293,47.6549 17.0472,47.6739 17.0442,47.7137 17.0324,47.74 17.0298,47.7925 17.0359,47.8223 17.0833,47.9167 17.1223,47.9451 17.1418,47.9576 17.1565,47.9659 17.2146,47.9708 17.2268,47.9699 17.2382,47.9527 17.2869,47.9432 17.3171,47.9409 17.3867,47.8901 17.4202,47.8582 17.437,47.8375 17.4607,47.8233 17.6867,47.716 17.7617,47.6917 17.8712,47.6931 17.8831,47.6963 17.9503,47.7091 18.0602,47.7047 18.0995,47.7014 18.1697,47.6931 18.2787,47.6831 18.3111,47.6863 18.3524,47.6927 18.3869,47.6993 18.4228,47.7127 18.5144,47.7128 18.5706,47.7083 18.6101,47.7045 18.6363,47.7052 18.6561,47.712 18.7029,47.7408 18.731,47.7599 18.7611,47.7624 18.8227,47.763 18.8276,47.7771 18.7932,47.8009 18.7566,47.8174 18.7328,47.86 18.7448,47.9106 18.8003,47.981 18.8183,47.9941 18.88,48.0029 18.9383,48.005 18.9625,48.012 18.9738,48.0139 19.0142,48.0157 19.1119,48.0068 19.1809,48.0045 19.4444,48.0343 19.4693,48.0809 19.4806,48.1178 19.502,48.1537 19.6023,48.1786 19.6249,48.1777 19.7265,48.1542 19.7582,48.1416 19.8821,48.0753 19.9112,48.0812 19.9403,48.0985 19.9813,48.1186 20.0303,48.1212 20.0644,48.1433 20.1117,48.171 20.2063,48.2199 20.2536,48.2007 20.2881,48.2146 20.3115,48.2308 20.3337,48.2492 20.3729,48.3061 20.3845,48.3442 20.4062,48.3782 20.4214,48.3934 20.4699,48.4274 20.471,48.4489 20.5099,48.4812 20.6232,48.506 20.6833,48.5135 20.7879,48.5205 20.8133,48.5119 20.8397,48.4953 20.9161,48.4693 21.0539,48.4582 21.1229,48.4557 21.2233,48.4665 21.278,48.4925 21.4073,48.5198 21.476,48.4933 21.5861,48.4369 21.5941,48.4036 21.6908,48.3001 21.7497,48.2854 21.7966,48.2882 21.8208,48.3068 21.9042,48.3239 21.9332,48.3266 21.9978,48.332 22.0328,48.3298 22.0665,48.3226 22.1193,48.3564 22.1193,48.3564 17,-8.0,United States -122.6894,48.4968 -122.6771,48.4685 -122.6362,48.4119 -122.6304,48.3989 -122.6291,48.387 -122.6296,48.3721 -122.6362,48.3626 -122.649,48.3611 -122.661,48.3625 -122.6823,48.3661 -122.7564,48.4 -122.758,48.4197 -122.7576,48.4363 -122.7372,48.4812 -122.6919,48.5051 -122.6894,48.4968 -122.6894,48.4968 190,3.0,Moldova 26.5967,48.2019 26.5994,48.2185 26.6131,48.2456 26.6636,48.2848 26.7696,48.2779 26.942,48.3024 27.1999,48.313 27.4143,48.3842 27.4796,48.4101 27.5074,48.4129 27.7232,48.3943 27.8261,48.3451 27.84,48.3256 27.8506,48.3088 27.8726,48.2926 27.8917,48.2822 27.9155,48.2722 27.9743,48.2613 28.0344,48.2559 28.053,48.2361 28.0454,48.1875 28.1724,48.1512 28.1952,48.1516 28.2194,48.1655 28.2499,48.1814 28.3062,48.1868 28.3296,48.1668 28.3264,48.136 28.3478,48.1086 28.3958,48.0909 28.461,48.0792 28.5165,48.1067 28.6012,48.0985 28.696,48.0836 28.7659,48.0703 28.7869,48.0545 28.8382,47.9556 28.8406,47.9506 28.859,47.9337 28.92,47.8918 28.9409,47.8823 28.9747,47.8776 29.0013,47.8809 29.0193,47.8969 29.0317,47.9221 29.0615,47.9318 29.1029,47.9286 29.1337,47.9 29.2155,47.7117 29.1536,47.5547 29.1185,47.5273 29.0937,47.4946 29.1011,47.4577 29.1486,47.3853 29.1812,47.3946 29.2039,47.4035 29.2575,47.3681 29.3168,47.3242 29.3389,47.3021 29.3385,47.2752 29.3719,47.237 29.4365,47.2434 29.4479,47.2734 29.4597,47.2905 29.5248,47.2836 29.5484,47.2564 29.557,47.225 29.53,47.0889 29.5505,46.9695 29.5322,46.8939 29.6953,46.8367 29.8246,46.8077 29.902,46.7647 29.9292,46.6888 29.9226,46.517 29.8739,46.5056 29.857,46.4823 29.8864,46.4524 29.9644,46.4039 29.993,46.3903 30.0234,46.3825 30.0541,46.3768 30.0742,46.3734 30.0861,46.3524 30.056,46.3283 30.0064,46.3259 29.9541,46.326 29.9242,46.3267 29.8812,46.3291 29.8243,46.2934 29.7832,46.3157 29.6925,46.3881 29.6205,46.3264 29.5919,46.3167 29.5603,46.3239 29.4529,46.3893 29.4578,46.4318 29.3092,46.4171 29.264,46.3755 29.266,46.3515 29.197,46.3153 29.1766,46.3146 29.1611,46.3301 29.1786,46.3538 29.1872,46.4317 29.182,46.4666 29.1622,46.4918 29.1328,46.4865 28.998,46.4437 28.9533,46.4254 28.9353,46.4151 28.8933,46.3771 28.9093,46.2367 28.9809,46.1651 28.9993,46.1428 28.9274,45.9536 28.8561,45.9381 28.789,45.9259 28.7607,45.92 28.7229,45.9094 28.7102,45.874 28.7264,45.8106 28.6398,45.7275 28.5567,45.7161 28.4845,45.659 28.4506,45.6137 28.4847,45.5952 28.4906,45.4799 28.4758,45.4631 28.4431,45.4546 28.3599,45.4602 28.3268,45.4662 28.3058,45.4714 28.2766,45.4757 28.2494,45.474 28.2271,45.4685 28.2076,45.4595 28.193,45.4437 28.1759,45.4116 28.1754,45.3968 28.1352,45.4205 28.0299,45.5316 28.0977,45.5685 28.12,45.5752 28.1275,45.6161 28.1251,45.6689 28.0807,45.8696 28.0679,45.9139 28.0539,45.9395 28.052,46.0235 28.0689,46.0498 28.0994,46.1378 28.1537,46.2773 28.2086,46.3742 28.207,46.5548 28.1889,46.619 28.1641,46.6454 28.1344,46.6865 28.0759,46.7872 28.0798,46.8008 28.076,46.8343 28.0663,46.8666 28.0395,46.9287 27.9942,46.962 27.9591,46.9743 27.9057,46.9897 27.8219,47.0486 27.7586,47.0987 27.7459,47.1495 27.7028,47.2088 27.6796,47.2316 27.6401,47.2399 27.597,47.2518 27.5368,47.3119 27.4338,47.4316 27.394,47.5111 27.322,47.5626 27.2885,47.5824 27.2602,47.604 27.2413,47.6387 27.1994,47.7307 27.1721,47.791 27.1619,47.8474 27.1194,47.9311 26.9615,48.1004 26.9159,48.1304 26.7785,48.1916 26.6656,48.2087 26.5967,48.2019 26.5967,48.2019 34,-8.0,United States -122.4104,48.3367 -122.3427,48.2719 -122.3281,48.2522 -122.337,48.2408 -122.3496,48.2355 -122.3734,48.2281 -122.385,48.2299 -122.3948,48.2408 -122.4073,48.2462 -122.4371,48.2455 -122.4863,48.1897 -122.4717,48.172 -122.4466,48.1644 -122.4296,48.1561 -122.4146,48.1456 -122.4058,48.1376 -122.3095,48.0461 -122.1887,47.9825 -122.1615,47.9268 -122.1585,47.9125 -122.1656,47.8999 -122.1936,47.8668 -122.2466,47.871 -122.3549,47.9263 -122.3845,47.9674 -122.4295,48.0326 -122.5636,48.1553 -122.5725,48.1641 -122.5789,48.1758 -122.5759,48.1934 -122.4831,48.3222 -122.4186,48.3509 -122.4104,48.3367 -122.4104,48.3367 485,3.0,Romania 22.8621,47.8997 22.8971,47.9056 23.0102,47.9383 23.0544,47.9586 23.069,47.9795 23.0792,48.008 23.0925,48.0342 23.1191,48.0508 23.1409,48.0532 23.2273,48.0351 23.2458,48.0203 23.2654,47.99 23.3227,47.966 23.3768,47.9455 23.4691,47.9278 23.4806,47.9345 23.5323,47.9452 23.7896,47.9122 23.9352,47.9065 23.9978,47.9011 24.0615,47.8777 24.093,47.8573 24.2122,47.8491 24.2919,47.874 24.3866,47.9028 24.4188,47.9037 24.5211,47.8984 24.537,47.8946 24.5532,47.8911 24.5799,47.8791 24.6345,47.8409 24.6353,47.8121 24.6583,47.7946 24.6816,47.784 24.7349,47.7659 24.7671,47.7631 24.7857,47.7536 24.8277,47.7053 24.8629,47.6634 24.8933,47.6587 24.9255,47.6664 24.9636,47.6701 24.994,47.6745 25.0136,47.6787 25.0496,47.6897 25.0811,47.705 25.1178,47.7357 25.139,47.7687 25.1884,47.8213 25.2101,47.8339 25.2974,47.8619 25.4652,47.8786 25.4883,47.8799 25.5316,47.8811 25.5518,47.8797 25.6091,47.8789 25.7436,47.8822 25.7803,47.9003 25.8013,47.9085 25.8848,47.9198 25.9997,47.9288 26.0653,47.9269 26.0773,47.9266 26.1211,47.9303 26.1559,47.9468 26.2344,48.0211 26.2796,48.121 26.4306,48.1622 26.4694,48.1584 26.4924,48.153 26.5294,48.1674 26.5967,48.2019 26.6656,48.2087 26.7785,48.1916 26.9159,48.1304 26.9615,48.1004 27.1194,47.9311 27.1619,47.8474 27.1721,47.791 27.1994,47.7307 27.2413,47.6387 27.2602,47.604 27.2885,47.5824 27.322,47.5626 27.394,47.5111 27.4338,47.4316 27.5368,47.3119 27.597,47.2518 27.6401,47.2399 27.6796,47.2316 27.7028,47.2088 27.7459,47.1495 27.7586,47.0987 27.8219,47.0486 27.9057,46.9897 27.9591,46.9743 27.9942,46.962 28.0395,46.9287 28.0663,46.8666 28.076,46.8343 28.0798,46.8008 28.0759,46.7872 28.1344,46.6865 28.1641,46.6454 28.1889,46.619 28.207,46.5548 28.2086,46.3742 28.1537,46.2773 28.0994,46.1378 28.0689,46.0498 28.052,46.0235 28.0539,45.9395 28.0679,45.9139 28.0807,45.8696 28.1251,45.6689 28.1275,45.6161 28.12,45.5752 28.0977,45.5685 28.0299,45.5316 28.1352,45.4205 28.1754,45.3968 28.1874,45.3976 28.2396,45.3775 28.2459,45.3438 28.2597,45.3111 28.2783,45.2855 28.3039,45.2641 28.3363,45.2492 28.5349,45.1912 28.6608,45.1688 28.7574,45.1865 28.8085,45.2501 28.9275,45.2697 29.1807,45.374 29.2806,45.3872 29.3704,45.3841 29.4695,45.3592 29.5395,45.3374 29.5618,45.3254 29.5995,45.2949 29.6136,45.2763 29.6274,45.2432 29.6306,45.2209 29.6229,45.1605 29.5859,45.1631 29.5999,45.1224 29.6188,45.0615 29.6,44.931 29.5668,44.7948 29.5079,44.7695 29.4098,44.758 29.349,44.7514 29.3033,44.7489 29.21,44.7451 29.1734,44.7422 29.027,44.7718 29.009,44.7964 29.0021,44.8732 29.0269,44.8967 29.0626,44.9123 29.0037,44.9523 28.9433,44.9548 28.8594,44.9156 28.8289,44.8896 28.8244,44.8278 28.8534,44.8122 28.9068,44.7757 28.8863,44.7277 28.8614,44.7049 28.8256,44.6982 28.7555,44.6656 28.7418,44.6451 28.7406,44.6103 28.7495,44.5918 28.7596,44.5896 28.8089,44.5978 28.8661,44.6357 28.87,44.6419 28.8616,44.656 28.8895,44.6505 28.9162,44.648 28.9504,44.6349 28.9306,44.5935 28.9079,44.5803 28.9348,44.6217 28.917,44.6393 28.7795,44.5663 28.7562,44.5802 28.723,44.5751 28.7174,44.4695 28.7678,44.481 28.8872,44.5669 28.8727,44.5376 28.8365,44.4854 28.8049,44.4468 28.7879,44.4294 28.7611,44.4111 28.7115,44.3759 28.6044,44.2776 28.5895,44.2464 28.5891,44.2219 28.5927,44.1077 28.6205,43.926 28.6073,43.9048 28.5736,43.8319 28.5553,43.7821 28.5456,43.7513 28.5397,43.7119 28.5434,43.6982 28.4455,43.6947 28.3644,43.701 28.2184,43.715 28.1962,43.7204 28.1427,43.7356 28.0939,43.7523 27.9996,43.7859 27.9589,43.8097 27.9214,43.8953 27.9134,43.9247 27.8832,43.9539 27.8215,43.9312 27.7945,43.9194 27.7745,43.9152 27.703,43.9097 27.6782,43.9196 27.6599,43.9437 27.6402,43.9799 27.614,43.9918 27.5864,43.9782 27.4374,43.9698 27.3693,43.972 27.2573,44.0346 27.2414,44.0538 27.2345,44.0822 27.2125,44.0749 27.1925,44.071 27.1556,44.0735 27.1281,44.0801 27.0734,44.0909 26.9987,44.0975 26.8757,44.086 26.8526,44.0821 26.8033,44.0657 26.7574,44.0452 26.6338,44.022 26.4418,43.9994 26.4014,43.9915 26.3764,43.9934 26.35,43.9942 26.2653,43.9812 26.1,43.9331 26.0751,43.9184 26.0489,43.9001 25.9067,43.7987 25.8487,43.7433 25.7511,43.6637 25.7306,43.6541 25.6996,43.6452 25.6457,43.6411 25.5736,43.613 25.4964,43.5943 25.4284,43.5898 25.3967,43.5785 25.3433,43.5738 25.309,43.584 25.2792,43.6027 25.2334,43.6257 25.1897,43.6381 24.9879,43.6608 24.8466,43.6629 24.7591,43.6635 24.6797,43.6651 24.6527,43.6688 24.5714,43.7021 24.5284,43.7098 24.4943,43.7117 24.4678,43.7119 24.4239,43.6954 24.4046,43.6871 24.3713,43.6704 24.3214,43.6473 24.286,43.6471 24.2738,43.648 24.2525,43.6479 24.2234,43.6452 24.1903,43.6402 24.1557,43.6354 24.1219,43.6407 24.0827,43.6504 24.0345,43.671 23.9541,43.6948 23.7412,43.7388 23.597,43.7454 23.5741,43.748 23.5374,43.7572 23.5008,43.7727 23.4786,43.7871 23.4142,43.8017 23.39,43.806 23.2512,43.8013 23.2296,43.798 23.1923,43.7889 23.1664,43.782 23.13,43.7685 23.1109,43.7603 23.0353,43.7527 22.935,43.7674 22.8624,43.7865 22.8373,43.7957 22.8208,43.811 22.8101,43.8471 22.8505,43.935 22.8813,43.9509 22.9275,43.9624 22.9602,43.9639 23.0054,44.0008 23.0108,44.0228 22.9809,44.0463 22.9655,44.0509 22.9162,44.054 22.8826,44.0612 22.6601,44.1656 22.65,44.1746 22.6561,44.2238 22.6335,44.2385 22.6097,44.244 22.5853,44.2481 22.5442,44.2555 22.5119,44.2797 22.4986,44.2951 22.4284,44.4107 22.43,44.4331 22.5546,44.4971 22.584,44.5012 22.6076,44.4954 22.6408,44.4785 22.6696,44.4731 22.7071,44.4827 22.7308,44.5023 22.6809,44.5548 22.634,44.5691 22.6129,44.5679 22.5757,44.5718 22.5431,44.588 22.5115,44.608 22.4825,44.6293 22.4621,44.6484 22.4346,44.6632 22.3976,44.6616 22.2803,44.6085 22.2666,44.5852 22.2422,44.5536 22.2276,44.5349 22.1445,44.4329 22.1064,44.4299 22.0608,44.4485 22.0046,44.5092 22.0003,44.5388 21.9982,44.5435 21.9661,44.5827 21.8786,44.5989 21.7532,44.6114 21.7039,44.6054 21.6141,44.6094 21.5876,44.6324 21.5852,44.6603 21.5666,44.7052 21.5354,44.7211 21.5038,44.7265 21.4446,44.7272 21.4236,44.7261 21.3688,44.7324 21.3326,44.7772 21.3396,44.8157 21.3777,44.8253 21.4236,44.8247 21.4488,44.8244 21.4723,44.8287 21.5239,44.8416 21.5267,44.8632 21.5057,44.8894 21.4432,44.9114 21.4203,44.9113 21.3996,44.9109 21.3773,44.9214 21.3434,44.9624 21.4131,45.0023 21.4841,45.0915 21.4527,45.1322 21.4435,45.1363 21.3809,45.1641 21.3215,45.1664 21.2423,45.18 21.0194,45.2649 20.9572,45.2942 20.7793,45.4271 20.7653,45.4559 20.7386,45.5616 20.7476,45.5813 20.7684,45.6011 20.7726,45.7067 20.7438,45.7159 20.7235,45.6949 20.6887,45.6918 20.6333,45.7468 20.6272,45.7758 20.5564,45.8466 20.5251,45.859 20.4849,45.8618 20.3445,45.9292 20.3254,45.965 20.2853,46.0173 20.2294,46.0657 20.2459,46.0878 20.3116,46.107 20.4581,46.1287 20.5063,46.1203 20.5344,46.1125 20.5538,46.1025 20.5929,46.0783 20.6584,46.0938 20.6906,46.1134 20.6976,46.1229 20.6912,46.137 20.7282,46.1902 20.7539,46.2068 20.7667,46.2129 20.7958,46.2231 20.8172,46.2263 20.8393,46.2236 20.9602,46.2022 21.0197,46.1882 21.0512,46.1944 21.1475,46.2448 21.1488,46.274 21.1585,46.3192 21.1727,46.3438 21.1892,46.3556 21.2589,46.4078 21.2636,46.4796 21.278,46.5367 21.2974,46.5673 21.423,46.6313 21.4592,46.6314 21.4953,46.673 21.463,46.7014 21.4998,46.7737 21.5827,46.8305 21.6399,46.9078 21.6616,46.9528 21.6247,46.9671 21.6219,46.9738 21.679,47.0262 21.7122,47.0445 21.7526,47.0611 21.8161,47.1444 21.811,47.1755 21.8406,47.2424 21.8982,47.3049 21.9311,47.314 21.9671,47.3194 21.9819,47.3362 21.9891,47.371 21.989,47.3966 21.9771,47.4243 21.9824,47.4563 22.0062,47.4793 22.0864,47.5239 22.1361,47.5341 22.1548,47.5442 22.1582,47.5497 22.1596,47.5745 22.1933,47.625 22.242,47.6718 22.2889,47.6921 22.4177,47.7404 22.4487,47.7411 22.4697,47.7356 22.52,47.7126 22.5711,47.7131 22.6017,47.7169 22.6212,47.7217 22.7473,47.7881 22.8621,47.8997 22.8621,47.8997 29,-3.5,Canada -53.4865,48.1354 -53.4755,48.144 -53.4581,48.1474 -53.4337,48.1415 -53.4342,48.093 -53.4562,48.0407 -53.472,48.0336 -53.486,48.03 -53.5212,48.0245 -53.5566,48.0203 -53.7455,48.0376 -53.7616,48.0396 -53.7782,48.0432 -53.7962,48.0517 -53.8544,48.1177 -53.8575,48.1275 -53.8548,48.1433 -53.8475,48.156 -53.8245,48.1533 -53.7799,48.1173 -53.6349,48.0939 -53.6084,48.0924 -53.5898,48.0954 -53.57,48.1001 -53.5378,48.1124 -53.5055,48.1259 -53.4936,48.1311 -53.4865,48.1354 -53.4865,48.1354 19,-4.0,Canada -64.3896,47.8631 -64.4098,47.7985 -64.4218,47.7777 -64.4299,47.7677 -64.4482,47.7487 -64.5147,47.6922 -64.5428,47.6813 -64.5546,47.6794 -64.5988,47.7011 -64.6097,47.7691 -64.6043,47.7815 -64.5924,47.7975 -64.5715,47.8141 -64.5278,47.8309 -64.5159,47.8322 -64.4911,47.8304 -64.4148,47.8491 -64.3896,47.8631 -64.3896,47.8631 278,2.0,Switzerland 9.5533,47.4861 9.546,47.4477 9.583,47.4151 9.636,47.4044 9.6567,47.3366 9.6235,47.3153 9.5975,47.3082 9.5264,47.2301 9.5199,47.2207 9.4832,47.1693 9.4717,47.1424 9.4736,47.1189 9.4887,47.0929 9.4981,47.0521 9.4614,47.0037 9.4717,47.0073 9.4928,47.011 9.5277,47.0161 9.585,47.01 9.6188,47.003 9.7057,46.9965 9.8588,46.9695 9.8777,46.9466 9.862,46.9146 9.8638,46.8868 9.9211,46.8591 10.0446,46.8129 10.095,46.7967 10.1173,46.7968 10.1273,46.798 10.1466,46.8015 10.2132,46.8234 10.2987,46.8802 10.3089,46.9021 10.336,46.9377 10.3761,46.9489 10.4152,46.9306 10.4735,46.8826 10.4566,46.818 10.4326,46.7098 10.4561,46.5825 10.4716,46.5642 10.4708,46.5395 10.457,46.5026 10.4428,46.4894 10.4352,46.4861 10.3227,46.4965 10.2892,46.502 10.2318,46.5375 10.2391,46.563 10.2274,46.5811 10.1668,46.5791 10.1048,46.5581 10.0374,46.4884 10.0304,46.4498 10.0356,46.3926 10.0767,46.3709 10.1398,46.3374 10.1597,46.2105 10.122,46.1779 10.0577,46.1691 9.9811,46.2391 9.9683,46.2801 9.9763,46.3025 9.9328,46.3268 9.8942,46.3304 9.8391,46.3167 9.7992,46.3054 9.7568,46.2895 9.6951,46.2474 9.6113,46.2391 9.5683,46.2441 9.5315,46.2534 9.5082,46.2669 9.4443,46.3336 9.437,46.3738 9.4417,46.4196 9.3537,46.4549 9.2809,46.4477 9.2375,46.3896 9.2601,46.3728 9.2843,46.2981 9.2794,46.272 9.2636,46.2399 9.2282,46.1809 9.1637,46.1259 9.1318,46.1153 9.1195,46.1077 9.0705,46.0686 9.023,46.0047 9.0042,45.9701 8.9849,45.9227 9.0102,45.8866 9.0602,45.8678 9.0716,45.8501 9.0242,45.7855 8.9859,45.7771 8.9387,45.7931 8.9238,45.8197 8.914,45.8488 8.8853,45.9004 8.8077,45.9341 8.808,45.9816 8.839,46.0044 8.8318,46.0284 8.81,46.0461 8.7349,46.0684 8.7167,46.0559 8.707,46.0516 8.6843,46.0487 8.6036,46.0689 8.4488,46.1806 8.4332,46.1946 8.4229,46.2403 8.4363,46.2701 8.454,46.3197 8.4489,46.3956 8.4298,46.4093 8.3534,46.4005 8.3453,46.397 8.292,46.3699 8.1307,46.1702 8.1475,46.1314 8.1383,46.0986 7.9978,45.9568 7.962,45.9445 7.939,45.9419 7.8959,45.9402 7.8682,45.923 7.8554,45.8962 7.8449,45.8668 7.773,45.8714 7.7325,45.8801 7.6985,45.891 7.6396,45.9281 7.5263,45.9292 7.4475,45.8887 7.4193,45.8772 7.3757,45.8632 7.3288,45.8683 7.2868,45.8711 7.2202,45.8458 7.1812,45.8283 7.0932,45.8312 7.0605,45.8507 7.0284,45.8797 7.0209,45.9097 6.9975,45.9458 6.9233,46.0028 6.8642,46.0357 6.774,46.1021 6.7903,46.3256 6.7974,46.3514 6.7889,46.3757 6.7283,46.3944 6.6933,46.4016 6.6243,46.4112 6.506,46.4054 6.4829,46.4 6.3108,46.3511 6.2867,46.3412 6.2362,46.3034 6.2211,46.2774 6.235,46.2626 6.263,46.2093 6.237,46.1655 6.179,46.1197 6.1248,46.0971 5.9881,46.0944 5.9588,46.1547 5.9732,46.1695 6.0007,46.1814 6.0215,46.1889 6.0659,46.1956 6.1072,46.2088 6.0977,46.2448 6.109,46.2562 6.145,46.3266 6.1024,46.3569 6.0625,46.3735 6.0784,46.3967 6.1265,46.4865 6.12,46.5349 6.2604,46.6294 6.35,46.6634 6.4258,46.7047 6.4479,46.7283 6.4378,46.7861 6.4511,46.8423 6.5192,46.9182 6.557,46.9264 6.6233,46.9464 6.6689,46.9807 6.6901,47.01 6.7838,47.0772 6.8402,47.111 6.8294,47.1175 6.9617,47.2381 6.9911,47.3109 6.9708,47.3076 6.9214,47.3047 6.872,47.3097 6.9806,47.4428 7.015,47.4538 7.1364,47.4449 7.1728,47.3898 7.2375,47.3674 7.2651,47.3783 7.2978,47.3862 7.3298,47.3849 7.3477,47.3795 7.375,47.3793 7.4052,47.3909 7.4227,47.4065 7.4422,47.4157 7.4865,47.4409 7.4917,47.4462 7.492,47.4958 7.5109,47.5054 7.5359,47.5113 7.5433,47.5244 7.5663,47.5301 7.5773,47.5302 7.6295,47.5494 7.6646,47.5506 7.6579,47.5216 7.6104,47.5067 7.6454,47.4961 7.6862,47.489 7.7585,47.499 7.9063,47.5 8.0218,47.5018 8.0902,47.5169 8.184,47.5658 8.229,47.5651 8.2773,47.5548 8.379,47.5257 8.4238,47.5193 8.459,47.553 8.5113,47.5781 8.5509,47.5641 8.5571,47.5441 8.5641,47.5372 8.5808,47.5462 8.6126,47.6017 8.5979,47.6131 8.5685,47.6141 8.5284,47.6098 8.5099,47.5971 8.4733,47.5925 8.4072,47.6195 8.3948,47.6472 8.4649,47.7161 8.5508,47.752 8.5995,47.7493 8.6492,47.7434 8.673,47.732 8.7241,47.7024 8.7197,47.6536 8.7078,47.6421 8.7409,47.6392 8.7875,47.6271 8.7618,47.6613 8.793,47.6814 8.8225,47.6635 8.8432,47.6445 8.8706,47.5997 8.8863,47.5965 8.9134,47.5975 8.9352,47.603 8.9668,47.6157 8.9882,47.6263 9.0203,47.6338 9.0697,47.631 9.2478,47.6082 9.465,47.5216 9.5533,47.4861 9.5533,47.4861 6,2.0,Switzerland 8.6661,47.6389 8.6977,47.6423 8.6932,47.6565 8.6616,47.6482 8.6661,47.6389 8.6661,47.6389 6,2.0,Germany 8.6661,47.6389 8.6616,47.6482 8.6932,47.6565 8.6977,47.6423 8.6661,47.6389 8.6661,47.6389 17,-3.5,Canada -55.8471,47.6222 -55.8538,47.602 -55.8482,47.584 -55.8337,47.5738 -55.8089,47.5645 -55.799,47.5554 -55.8216,47.5481 -55.8427,47.5449 -55.8668,47.5474 -55.9327,47.5572 -56.0248,47.5777 -56.0322,47.5927 -56.0229,47.6016 -55.9254,47.6257 -55.8524,47.6321 -55.8471,47.6222 -55.8471,47.6222 20,-3.5,Canada -54.0473,47.5866 -54.0829,47.4807 -54.1632,47.3477 -54.1802,47.3375 -54.191,47.3355 -54.215,47.3376 -54.2633,47.3441 -54.284,47.3552 -54.2486,47.3826 -54.2175,47.3958 -54.2,47.4065 -54.1868,47.418 -54.18,47.4265 -54.1526,47.4693 -54.1522,47.4958 -54.1268,47.5394 -54.054,47.6147 -54.0445,47.6062 -54.0473,47.5866 -54.0473,47.5866 58,-4.0,Canada -61.3194,47.5867 -61.297,47.5817 -61.2905,47.5702 -61.4075,47.4972 -61.4506,47.4913 -61.4587,47.5011 -61.4288,47.5166 -61.3872,47.5488 -61.3867,47.562 -61.4496,47.5635 -61.4709,47.5547 -61.5651,47.4956 -61.7641,47.3612 -61.7489,47.3562 -61.7005,47.3717 -61.6886,47.3774 -61.6782,47.3848 -61.6257,47.4357 -61.6026,47.4612 -61.6127,47.4379 -61.6523,47.3909 -61.7548,47.3346 -61.8172,47.3008 -61.8364,47.2894 -61.8446,47.2793 -61.8752,47.2248 -61.8717,47.211 -61.85,47.2031 -61.7353,47.1799 -61.7194,47.1851 -61.7085,47.1985 -61.6945,47.2039 -61.7035,47.1857 -61.7111,47.179 -61.7253,47.1716 -61.7558,47.1654 -61.7709,47.1641 -61.8668,47.1578 -61.8912,47.1596 -61.9117,47.1626 -61.9226,47.1696 -61.925,47.1835 -61.8598,47.3255 -61.8506,47.3407 -61.8362,47.3543 -61.82,47.3597 -61.6476,47.453 -61.6173,47.4781 -61.5958,47.493 -61.5736,47.5072 -61.5282,47.5336 -61.4826,47.5592 -61.465,47.5685 -61.444,47.5783 -61.4326,47.58 -61.3368,47.5882 -61.3194,47.5867 -61.3194,47.5867 14,-8.0,United States -122.2057,47.3406 -122.2353,47.3333 -122.3084,47.2934 -122.319,47.2916 -122.3286,47.299 -122.3431,47.3175 -122.3356,47.3547 -122.3204,47.4069 -122.2737,47.4621 -122.2667,47.4367 -122.2465,47.3782 -122.2397,47.3688 -122.2057,47.3406 -122.2057,47.3406 13,2.0,France -3.0812,47.2339 -3.1037,47.2417 -3.1137,47.2442 -3.162,47.2496 -3.1843,47.2488 -3.2036,47.2467 -3.2148,47.2504 -3.2334,47.2631 -3.2547,47.3176 -3.2422,47.3375 -3.0592,47.2604 -3.0812,47.2339 -3.0812,47.2339 38,11.0,Russia 151.9895,47.0711 152.0197,47.0915 152.047,47.106 152.0719,47.0949 152.0567,47.0735 152.0367,47.0591 152.0151,47.0487 151.9573,47.0095 151.8709,46.9241 151.8162,46.8691 151.8098,46.8571 151.7994,46.8384 151.6165,46.7296 151.606,46.7251 151.5854,46.7196 151.566,46.7182 151.5522,46.7201 151.5218,46.7319 151.5049,46.7416 151.4969,46.7476 151.4894,46.791 151.4992,46.7997 151.5095,46.8036 151.5296,46.8082 151.5492,46.8089 151.6189,46.8017 151.6336,46.8033 151.6442,46.8075 151.653,46.8131 151.8039,46.935 151.8316,46.9633 151.8876,47.0194 151.9035,47.0369 151.9643,47.0893 151.9853,47.1065 152.0042,47.1192 151.9895,47.0711 151.9895,47.0711 749,2.0,Italy 13.6995,46.4734 13.7,46.4653 13.6918,46.4397 13.6728,46.3986 13.6384,46.3966 13.4922,46.3317 13.4218,46.2936 13.3647,46.2426 13.4002,46.1603 13.4402,46.1707 13.4697,46.1792 13.5314,46.1656 13.6469,46.1229 13.629,46.093 13.5746,46.0528 13.5382,46.0349 13.5197,46.0271 13.5031,46.0108 13.4609,45.96 13.4911,45.934 13.5213,45.916 13.5498,45.9269 13.5741,45.9405 13.616,45.9295 13.6158,45.8955 13.5949,45.853 13.5716,45.836 13.5595,45.7982 13.5846,45.7568 13.6783,45.732 13.7724,45.7006 13.8161,45.6658 13.8987,45.5846 13.8377,45.5354 13.8084,45.5327 13.7831,45.5344 13.6978,45.5444 13.7786,45.5556 13.7166,45.6422 13.6371,45.7014 13.611,45.7178 13.5606,45.73 13.5238,45.7311 13.506,45.709 13.5076,45.6832 13.4807,45.6575 13.4101,45.6252 13.3689,45.6262 13.4035,45.6436 13.3964,45.6687 13.3491,45.6854 13.1983,45.7247 13.1749,45.7261 13.1027,45.7156 13.0531,45.6575 13.0779,45.5999 13.0693,45.5848 13.0455,45.5821 12.9826,45.5782 12.9043,45.5666 12.846,45.5438 12.781,45.517 12.6893,45.4793 12.6205,45.4505 12.5996,45.4429 12.57,45.432 12.4011,45.3894 12.431,45.4314 12.4867,45.4394 12.5631,45.4921 12.4723,45.5157 12.3773,45.4812 12.2699,45.4217 12.1372,45.2506 12.1443,45.2124 12.2164,45.1461 12.3449,45.0051 12.4264,44.9574 12.4777,44.9362 12.5027,44.9317 12.5206,44.9096 12.4627,44.802 12.4315,44.7668 12.4096,44.8029 12.422,44.831 12.4055,44.8492 12.3726,44.8176 12.3795,44.7407 12.3387,44.7531 12.2731,44.7873 12.2444,44.7254 12.2307,44.6731 12.2282,44.6434 12.263,44.4258 12.2716,44.4012 12.3363,44.2283 12.3512,44.1967 12.405,44.1395 12.429,44.1177 12.5014,44.0599 12.5282,44.0386 12.6719,43.9379 12.703,43.9271 12.7229,43.9225 12.7359,43.9214 12.7471,43.9204 12.8009,43.9133 12.8852,43.8749 13.0379,43.7863 13.1074,43.737 13.1529,43.7047 13.1752,43.6863 13.2768,43.6259 13.3381,43.5997 13.4076,43.5735 13.4618,43.5615 13.5334,43.5524 13.5804,43.5208 13.6028,43.488 13.6105,43.4398 13.6928,43.3015 13.8288,43.0295 13.8432,42.9577 13.8546,42.9159 13.8633,42.8937 13.8782,42.8647 13.8863,42.8529 13.9042,42.7964 13.9205,42.7551 13.968,42.6629 13.9974,42.6217 14.0388,42.5715 14.0557,42.5521 14.1109,42.4929 14.1803,42.4347 14.4842,42.2135 14.5459,42.1713 14.5848,42.1573 14.6087,42.1512 14.6413,42.1417 14.6958,42.1206 14.6949,42.0943 14.7015,42.0565 14.7162,42.0406 14.7345,42.0302 14.7418,42.0275 14.8107,41.9954 14.8737,41.9732 14.9191,41.9686 14.9759,41.9569 15.0052,41.9376 15.0419,41.9054 15.0784,41.8901 15.1213,41.8807 15.1416,41.8773 15.3518,41.8584 15.3835,41.8567 15.4342,41.8591 15.476,41.8617 15.5787,41.8765 15.6575,41.8684 15.7435,41.8696 15.8351,41.8779 15.8917,41.8879 16.0009,41.8993 16.0318,41.8966 16.0603,41.889 16.1235,41.8639 16.1716,41.7824 16.1705,41.7429 16.1429,41.7106 16.1166,41.6936 16.0086,41.63 15.9583,41.6064 15.9161,41.5937 15.898,41.5845 15.876,41.5666 15.8691,41.5416 15.8688,41.5183 15.8765,41.4834 15.9044,41.4391 15.9631,41.3931 16.0109,41.3724 16.0633,41.358 16.1702,41.3191 16.4695,41.2059 16.6351,41.1448 16.766,41.1083 17.0263,41.0355 17.1602,40.9835 17.2314,40.9433 17.2714,40.9185 17.2984,40.8967 17.4499,40.7828 17.4725,40.7736 17.7367,40.685 17.9127,40.6327 17.9882,40.5971 18.0014,40.5665 18.0112,40.5323 18.0147,40.5098 18.0572,40.4795 18.1027,40.449 18.25,40.3655 18.4,40.243 18.4157,40.2196 18.4347,40.1858 18.4873,40.0895 18.4895,40.0576 18.4475,39.9943 18.419,39.983 18.3938,39.949 18.3745,39.8915 18.3746,39.8547 18.3664,39.7716 18.3504,39.7535 18.3248,39.7474 18.3048,39.7613 18.2802,39.7755 18.2326,39.7878 18.2025,39.7886 18.1747,39.7928 18.1525,39.8023 18.1312,39.8119 18.0576,39.8582 18.0162,39.893 17.9724,39.954 17.9949,39.9664 17.9878,40.0561 17.8822,40.2098 17.8331,40.2392 17.7608,40.2492 17.7385,40.2513 17.6496,40.2586 17.6123,40.2581 17.5263,40.2545 17.4829,40.252 17.3692,40.2853 17.1804,40.3671 17.2225,40.4093 17.2446,40.4279 17.2665,40.4241 17.2933,40.4426 17.0533,40.475 17.0236,40.4698 16.9947,40.4608 16.9751,40.4532 16.9191,40.4222 16.8961,40.4052 16.8514,40.3599 16.8407,40.3448 16.7689,40.266 16.7269,40.1994 16.7187,40.1714 16.6656,40.1018 16.6189,40.0732 16.6075,40.0646 16.5861,40.0412 16.5769,39.9986 16.5872,39.9513 16.5411,39.8534 16.5142,39.8271 16.4769,39.7775 16.4679,39.7552 16.4645,39.7291 16.4682,39.7047 16.5076,39.6185 16.5334,39.6 16.5748,39.5853 16.6039,39.5783 16.719,39.5727 16.801,39.5241 16.9401,39.4484 17.0115,39.4218 17.1225,39.3522 17.1132,39.3215 17.0932,39.2703 17.0859,39.2189 17.094,39.055 17.119,39.01 17.1354,38.9953 17.1463,38.9539 17.1464,38.9195 17.1041,38.8757 17.0751,38.8643 16.9531,38.8954 16.9302,38.895 16.9069,38.892 16.8125,38.8734 16.7085,38.8321 16.5929,38.774 16.5731,38.7574 16.5517,38.7361 16.5281,38.6991 16.5127,38.666 16.5268,38.6054 16.5398,38.5597 16.5481,38.5109 16.5531,38.4771 16.5546,38.4053 16.5473,38.3854 16.5107,38.3485 16.4935,38.3341 16.4689,38.3152 16.4488,38.3034 16.427,38.2939 16.3925,38.2813 16.3369,38.2664 16.3087,38.2548 16.1387,38.0857 16.1219,38.0265 16.1176,37.999 16.1142,37.9784 16.0924,37.9328 16.0665,37.9036 16.036,37.8818 15.9752,37.8763 15.9263,37.8798 15.9018,37.8854 15.8459,37.8837 15.7739,37.8765 15.7603,37.8746 15.7551,37.8744 15.7355,37.8782 15.6996,37.8888 15.6472,37.9153 15.6147,37.9618 15.6248,38.0204 15.6095,38.1502 15.609,38.1866 15.6336,38.1974 15.6947,38.2129 15.7164,38.2147 15.7393,38.2234 15.7737,38.2387 15.7942,38.2597 15.8747,38.409 15.8852,38.4297 15.9013,38.4821 15.9016,38.5029 15.8736,38.533 15.8557,38.5501 15.8244,38.5695 15.808,38.5845 15.8289,38.6141 15.9633,38.6781 16.0025,38.6805 16.0239,38.6802 16.0462,38.6776 16.0775,38.6694 16.1077,38.672 16.1567,38.7016 16.1733,38.7256 16.1865,38.7541 16.1971,38.793 16.1994,38.8251 16.1981,38.8776 16.1726,38.8881 16.1357,38.9046 16.0781,38.979 16.0428,39.0853 16.0359,39.1424 16.0347,39.1812 16.0318,39.2125 16.0123,39.3004 15.9595,39.4054 15.9051,39.472 15.8827,39.4894 15.8319,39.5657 15.7868,39.6348 15.7785,39.6629 15.7661,39.748 15.7605,39.8183 15.7339,39.874 15.7269,39.8823 15.7077,39.9121 15.6908,39.9348 15.6425,39.9882 15.6209,39.9977 15.5977,40.0195 15.5619,40.0295 15.5396,40.0311 15.4886,40.0251 15.4376,39.9837 15.3956,39.9464 15.3341,39.956 15.2922,39.9862 15.2437,40.0267 15.117,40.1154 15.0838,40.127 14.9922,40.1504 14.9216,40.1887 14.9069,40.226 14.9438,40.2959 14.9703,40.3186 14.9714,40.3501 14.9441,40.4004 14.878,40.513 14.8107,40.5857 14.7546,40.6271 14.7335,40.6301 14.6052,40.602 14.4851,40.5741 14.3825,40.5541 14.3434,40.5817 14.3712,40.5922 14.455,40.6643 14.433,40.7022 14.2924,40.7802 14.2495,40.7943 14.1965,40.7722 14.1477,40.7608 14.0546,40.776 14.0275,40.8163 14.0098,40.8551 13.9987,40.8736 13.9702,40.9172 13.881,41.0318 13.8184,41.1063 13.7793,41.1468 13.7568,41.1647 13.719,41.1884 13.6934,41.2045 13.6255,41.2131 13.596,41.2095 13.5481,41.1914 13.258,41.2485 13.1932,41.236 13.152,41.2225 13.129,41.2126 13.0988,41.197 13.0117,41.2136 12.9877,41.2514 12.9624,41.2797 12.9342,41.3063 12.9147,41.3235 12.8955,41.3371 12.8746,41.3488 12.8373,41.3632 12.6387,41.411 12.5587,41.4606 12.5005,41.5209 12.455,41.5602 12.4301,41.5806 12.3344,41.6476 12.1992,41.741 12.1903,41.7696 12.1609,41.8207 12.1419,41.8449 12.1067,41.8759 12.0048,41.9384 11.8962,41.9886 11.8688,41.9904 11.8461,41.9838 11.8146,41.9827 11.7887,42.0099 11.7231,42.1018 11.7094,42.1348 11.6877,42.1766 11.6116,42.2504 11.5182,42.2951 11.4815,42.3096 11.4356,42.3262 11.357,42.3568 11.2466,42.3707 11.2164,42.3697 11.1905,42.364 11.1862,42.3429 11.1643,42.3175 11.0821,42.3485 11.0694,42.3824 11.0947,42.3946 11.1179,42.3914 11.1494,42.3977 11.1685,42.4368 11.1716,42.4644 11.1427,42.5069 11.0652,42.5841 10.9506,42.6762 10.9106,42.6977 10.8746,42.7105 10.8475,42.7186 10.754,42.7906 10.7601,42.8506 10.718,42.8801 10.6659,42.8982 10.5744,42.909 10.5188,43.004 10.5261,43.0748 10.5281,43.1015 10.5239,43.1321 10.5158,43.1748 10.5039,43.2086 10.4085,43.3489 10.3634,43.3969 10.343,43.4096 10.3102,43.4261 10.2807,43.4935 10.2734,43.5422 10.2626,43.6445 10.2628,43.6649 10.2599,43.6937 10.2533,43.7465 10.2379,43.7937 10.222,43.8295 10.2017,43.8552 10.1652,43.8949 10.0979,43.9539 10.0769,43.969 10.0457,43.9833 10.0135,43.9944 9.9696,44.0041 9.7016,44.0647 9.6476,44.0909 9.3599,44.2352 9.3237,44.2595 9.2183,44.2967 8.8032,44.3754 8.7352,44.3779 8.628,44.338 8.4833,44.2724 8.4322,44.2179 8.3875,44.1299 8.3207,44.1086 8.2898,44.1035 8.2627,44.0908 8.223,44.0504 8.145,43.933 8.1533,43.9091 8.0567,43.8434 7.9378,43.7968 7.9031,43.7903 7.7622,43.7656 7.7282,43.7467 7.6549,43.7302 7.6035,43.7395 7.5698,43.7416 7.5217,43.7326 7.5022,43.7717 7.486,43.8247 7.5877,43.9151 7.6481,43.9572 7.6955,44.026 7.6984,44.0415 7.6511,44.0842 7.6518,44.1209 7.6042,44.1301 7.5098,44.1062 7.4559,44.0888 7.4105,44.0763 7.3408,44.0816 7.0218,44.1967 6.9669,44.2339 6.8684,44.3251 6.8442,44.4672 6.8433,44.4906 6.9413,44.6141 6.9659,44.6374 7.0187,44.6941 7.022,44.7806 6.9966,44.7997 6.9593,44.8133 6.9329,44.8198 6.892,44.8095 6.8399,44.8197 6.766,44.8548 6.7396,44.8675 6.6523,44.9888 6.615,45.0645 6.6284,45.0747 6.6806,45.0966 6.7571,45.1168 6.8123,45.1017 6.9297,45.1283 7.0548,45.1718 7.1179,45.2078 7.1487,45.3259 7.137,45.379 7.0792,45.4252 6.9855,45.4734 6.9598,45.5451 6.8004,45.6776 6.7899,45.7367 6.8037,45.7821 6.8629,45.8039 6.8925,45.7975 6.9126,45.8001 6.9342,45.8061 6.9746,45.8235 7.0284,45.8797 7.0605,45.8507 7.0932,45.8312 7.1812,45.8283 7.2202,45.8458 7.2868,45.8711 7.3288,45.8683 7.3757,45.8632 7.4193,45.8772 7.4475,45.8887 7.5263,45.9292 7.6396,45.9281 7.6985,45.891 7.7325,45.8801 7.773,45.8714 7.8449,45.8668 7.8554,45.8962 7.8682,45.923 7.8959,45.9402 7.939,45.9419 7.962,45.9445 7.9978,45.9568 8.1383,46.0986 8.1475,46.1314 8.1307,46.1702 8.292,46.3699 8.3453,46.397 8.3534,46.4005 8.4298,46.4093 8.4489,46.3956 8.454,46.3197 8.4363,46.2701 8.4229,46.2403 8.4332,46.1946 8.4488,46.1806 8.6036,46.0689 8.6843,46.0487 8.707,46.0516 8.7167,46.0559 8.7349,46.0684 8.81,46.0461 8.8318,46.0284 8.839,46.0044 8.808,45.9816 8.8077,45.9341 8.8853,45.9004 8.914,45.8488 8.9238,45.8197 8.9387,45.7931 8.9859,45.7771 9.0242,45.7855 9.0716,45.8501 9.0602,45.8678 9.0102,45.8866 8.9849,45.9227 9.0042,45.9701 9.023,46.0047 9.0705,46.0686 9.1195,46.1077 9.1318,46.1153 9.1637,46.1259 9.2282,46.1809 9.2636,46.2399 9.2794,46.272 9.2843,46.2981 9.2601,46.3728 9.2375,46.3896 9.2809,46.4477 9.3537,46.4549 9.4417,46.4196 9.437,46.3738 9.4443,46.3336 9.5082,46.2669 9.5315,46.2534 9.5683,46.2441 9.6113,46.2391 9.6951,46.2474 9.7568,46.2895 9.7992,46.3054 9.8391,46.3167 9.8942,46.3304 9.9328,46.3268 9.9763,46.3025 9.9683,46.2801 9.9811,46.2391 10.0577,46.1691 10.122,46.1779 10.1597,46.2105 10.1398,46.3374 10.0767,46.3709 10.0356,46.3926 10.0304,46.4498 10.0374,46.4884 10.1048,46.5581 10.1668,46.5791 10.2274,46.5811 10.2391,46.563 10.2318,46.5375 10.2892,46.502 10.3227,46.4965 10.4352,46.4861 10.4428,46.4894 10.457,46.5026 10.4708,46.5395 10.4716,46.5642 10.4561,46.5825 10.4326,46.7098 10.4566,46.818 10.4613,46.8124 10.4831,46.8018 10.5486,46.7953 10.5847,46.8043 10.6319,46.817 10.665,46.8202 10.7482,46.7773 10.7765,46.7479 10.8187,46.7335 10.8723,46.7176 11.0011,46.7201 11.0559,46.77 11.0815,46.838 11.0848,46.862 11.1025,46.8765 11.1615,46.9139 11.4675,46.9606 11.6055,46.9591 11.6937,46.9427 11.7147,46.9252 11.7447,46.9248 12.058,47.0059 12.1231,47.0312 12.1687,47.0407 12.2103,47.0305 12.2135,47.0187 12.2065,47.0094 12.1774,46.9792 12.1159,46.959 12.1189,46.9134 12.143,46.8744 12.1684,46.8545 12.2148,46.8356 12.2841,46.7878 12.3662,46.6679 12.3867,46.6523 12.423,46.6375 12.4687,46.6291 12.5366,46.6084 12.5726,46.6058 12.6746,46.6064 12.7177,46.5882 12.73,46.5915 12.7398,46.5967 12.7602,46.5946 12.8074,46.5779 13.2387,46.5087 13.4098,46.51 13.5357,46.5031 13.5918,46.4951 13.6995,46.4734 13.6995,46.4734 11,2.0,Italy 12.479,43.8735 12.4937,43.8916 12.4874,43.9371 12.4423,43.9336 12.3984,43.9083 12.3897,43.9019 12.3929,43.8632 12.4541,43.8492 12.4777,43.8649 12.479,43.8735 12.479,43.8735 122,-4.0,Canada -62.1914,46.2854 -62.221,46.2972 -62.2464,46.3026 -62.2686,46.3004 -62.2597,46.2795 -62.2465,46.2591 -62.2735,46.224 -62.3337,46.1652 -62.3656,46.1618 -62.419,46.1617 -62.5153,46.1271 -62.4539,46.07 -62.4153,46.0664 -62.3897,46.0725 -62.4107,46.0905 -62.3826,46.0958 -62.3598,46.0442 -62.3667,45.9666 -62.3781,45.9482 -62.4153,45.9291 -62.4569,45.9178 -62.5035,45.9127 -62.5254,45.9106 -62.562,45.9079 -62.6726,45.9019 -62.7492,45.9152 -62.7678,45.925 -62.7941,45.9433 -62.8415,45.9848 -62.8819,46.0218 -62.831,46.0418 -62.7848,46.0869 -62.7993,46.105 -62.9361,46.1365 -63.0246,46.1562 -62.9496,46.2275 -62.9318,46.2388 -62.9076,46.2415 -62.8774,46.2627 -62.9576,46.2439 -63.0015,46.2165 -63.0758,46.158 -63.051,46.1419 -63.142,46.0865 -63.1683,46.0853 -63.1995,46.0912 -63.3196,46.1242 -63.4297,46.1535 -63.502,46.1595 -63.5561,46.1737 -63.6121,46.2182 -63.6579,46.2549 -63.7206,46.2748 -63.6818,46.308 -63.639,46.3008 -63.6598,46.3418 -63.7506,46.3459 -63.8728,46.3484 -63.8949,46.341 -64.0365,46.3579 -64.0235,46.4757 -64.0115,46.4941 -64.0144,46.5651 -64.1824,46.5701 -64.2982,46.5697 -64.3232,46.6149 -64.324,46.6362 -64.3138,46.6661 -64.2907,46.6935 -64.2554,46.7204 -64.2322,46.733 -64.2048,46.7484 -64.1881,46.7632 -64.1557,46.8235 -64.1401,46.8482 -64.084,46.8974 -63.9294,46.985 -63.9038,46.9307 -63.8775,46.8432 -63.9502,46.7691 -63.98,46.7482 -64.0005,46.7253 -63.9829,46.7002 -63.9406,46.6901 -63.9104,46.6969 -63.8859,46.6911 -63.7413,46.5614 -63.7763,46.4817 -63.7442,46.4082 -63.6897,46.392 -63.6472,46.3863 -63.6192,46.3845 -63.61,46.4033 -63.6322,46.4276 -63.6485,46.4407 -63.6278,46.4961 -63.5858,46.511 -63.5644,46.5137 -63.5285,46.5082 -63.4078,46.4749 -63.2253,46.4355 -63.1823,46.374 -63.1508,46.3674 -63.1267,46.3592 -62.8533,46.3742 -62.7738,46.3818 -62.6052,46.4017 -62.5771,46.4081 -62.506,46.4177 -62.3885,46.4248 -62.3671,46.4258 -62.0863,46.4331 -62.045,46.4297 -61.9699,46.4198 -61.9268,46.4124 -61.8867,46.4017 -61.9252,46.3682 -62.013,46.3267 -62.0854,46.2968 -62.1275,46.291 -62.1914,46.2854 -62.1914,46.2854 153,-4.0,Canada -60.4279,45.5672 -60.4724,45.5662 -60.68,45.5432 -60.8752,45.5477 -61.0159,45.5126 -61.0624,45.5036 -61.0824,45.4994 -61.1108,45.5321 -61.1419,45.5294 -61.1868,45.5102 -61.2507,45.5217 -61.2893,45.5702 -61.3442,45.6135 -61.3695,45.6586 -61.3912,45.7517 -61.4079,45.7942 -61.4407,45.9372 -61.3686,46.0849 -61.3564,46.1018 -61.3257,46.1259 -61.2954,46.1434 -61.2566,46.1597 -61.2104,46.1773 -61.0067,46.3993 -60.9462,46.5139 -60.9104,46.5814 -60.8056,46.7205 -60.782,46.7439 -60.7505,46.7612 -60.713,46.7692 -60.6306,46.8276 -60.6046,46.8534 -60.5916,46.8771 -60.5839,46.8999 -60.5741,46.9187 -60.5538,46.9463 -60.5092,46.9766 -60.3746,46.9454 -60.3411,46.9123 -60.4098,46.846 -60.3605,46.8094 -60.2668,46.8084 -60.2457,46.8125 -60.22,46.7909 -60.2172,46.7704 -60.2392,46.6773 -60.3931,46.3371 -60.4495,46.2691 -60.5036,46.2023 -60.5235,46.1493 -60.5028,46.1561 -60.4857,46.176 -60.4666,46.1994 -60.4499,46.2201 -60.3883,46.2613 -60.3581,46.2742 -60.3353,46.2746 -60.3397,46.2254 -60.3771,46.204 -60.4501,46.1397 -60.5047,46.086 -60.5224,46.0729 -60.56,46.0537 -60.6087,46.0343 -60.7031,46.0144 -60.7773,46.0001 -60.9002,45.9302 -60.9376,45.9173 -60.9977,45.8993 -61.0215,45.9009 -61.0382,45.8736 -60.9687,45.8793 -60.9302,45.8899 -60.9015,45.9082 -60.8629,45.9373 -60.8066,45.9627 -60.7669,45.9791 -60.6785,46.0067 -60.651,46.0028 -60.7216,45.8787 -60.7843,45.8585 -60.8122,45.8544 -60.8708,45.8509 -60.9622,45.8372 -61.0044,45.8005 -60.9692,45.8034 -60.9402,45.8176 -60.9039,45.8298 -60.878,45.8297 -60.8324,45.8017 -60.8538,45.7711 -60.9336,45.758 -60.9871,45.7369 -61.0366,45.7072 -61.0604,45.6496 -60.9883,45.6376 -60.9561,45.652 -60.9185,45.6713 -60.8868,45.686 -60.8593,45.6964 -60.8326,45.7015 -60.7961,45.6974 -60.7584,45.6832 -60.7255,45.667 -60.639,45.7315 -60.4315,45.8685 -60.4066,45.877 -60.3817,45.8859 -60.3175,45.9365 -60.4696,45.8946 -60.526,45.8728 -60.5491,45.8617 -60.573,45.845 -60.6042,45.8343 -60.6304,45.838 -60.7014,45.8838 -60.5994,45.9521 -60.5156,45.9874 -60.4555,46.0133 -60.438,46.0232 -60.4055,46.0418 -60.2221,46.1562 -60.2132,46.1742 -60.2839,46.1715 -60.3177,46.1566 -60.3499,46.1333 -60.3857,46.1058 -60.4423,46.0691 -60.52,46.0221 -60.5593,46.019 -60.3704,46.1888 -60.3143,46.2312 -60.2681,46.255 -60.1999,46.2685 -60.1203,46.1877 -60.0478,46.195 -60.0106,46.1928 -59.8659,46.1489 -59.7884,46.1232 -59.7245,46.0566 -59.7422,46.0386 -59.7692,45.95 -59.7559,45.8859 -59.8741,45.8493 -60.0485,45.814 -60.0728,45.7904 -60.0897,45.7118 -60.1497,45.6497 -60.2949,45.593 -60.3168,45.5871 -60.4139,45.5685 -60.4279,45.5672 -60.4279,45.5672 149,2.0,Slovenia 16.5843,46.4232 16.5684,46.4211 16.5411,46.4243 16.4944,46.4386 16.4722,46.4525 16.4405,46.4678 16.3611,46.4827 16.3127,46.4809 16.2694,46.4779 16.2444,46.4616 16.2294,46.4426 16.243,46.3666 16.115,46.3532 16.0527,46.3256 16.0533,46.3052 16.0578,46.2833 15.9946,46.2452 15.7757,46.1807 15.6641,46.1733 15.637,46.1682 15.59,46.1142 15.5785,46.0916 15.5846,46.0634 15.6111,46.0323 15.6415,46.0155 15.6894,46.0008 15.7025,45.8865 15.6742,45.791 15.6309,45.7711 15.6079,45.7812 15.5899,45.7945 15.4777,45.7836 15.3124,45.7143 15.2946,45.7047 15.2726,45.6822 15.2672,45.6485 15.3351,45.6601 15.3312,45.6 15.2857,45.5779 15.2728,45.5428 15.2826,45.487 15.2559,45.4111 15.1534,45.3742 15.1355,45.3776 15.0708,45.4197 14.9581,45.4487 14.8919,45.4307 14.8428,45.4168 14.8053,45.4138 14.7029,45.4797 14.6005,45.5601 14.5891,45.5813 14.5895,45.6165 14.55,45.6146 14.5148,45.5605 14.476,45.4919 14.3935,45.4398 14.3725,45.4343 14.1173,45.4235 13.9689,45.4116 13.933,45.4049 13.8874,45.4017 13.6844,45.3926 13.6542,45.3941 13.6214,45.4021 13.5826,45.4216 13.5726,45.4298 13.5706,45.4652 13.6468,45.4914 13.7308,45.4973 13.6978,45.5444 13.7831,45.5344 13.8084,45.5327 13.8377,45.5354 13.8987,45.5846 13.8161,45.6658 13.7724,45.7006 13.6783,45.732 13.5846,45.7568 13.5595,45.7982 13.5716,45.836 13.5949,45.853 13.6158,45.8955 13.616,45.9295 13.5741,45.9405 13.5498,45.9269 13.5213,45.916 13.4911,45.934 13.4609,45.96 13.5031,46.0108 13.5197,46.0271 13.5382,46.0349 13.5746,46.0528 13.629,46.093 13.6469,46.1229 13.5314,46.1656 13.4697,46.1792 13.4402,46.1707 13.4002,46.1603 13.3647,46.2426 13.4218,46.2936 13.4922,46.3317 13.6384,46.3966 13.6728,46.3986 13.6918,46.4397 13.7,46.4653 13.6995,46.4734 13.7566,46.4652 13.826,46.4669 13.9173,46.4629 14.0622,46.4362 14.0961,46.4261 14.1089,46.4101 14.1336,46.3899 14.4578,46.3664 14.5244,46.3546 14.7923,46.4583 14.8041,46.4884 14.8129,46.5178 14.8466,46.5602 15.0338,46.5989 15.0533,46.5956 15.0815,46.6035 15.1181,46.6039 15.3844,46.5993 15.5805,46.6335 15.7843,46.6653 15.8105,46.669 15.8367,46.67 15.9653,46.7018 15.9656,46.7781 15.9868,46.7819 16.0888,46.8163 16.1168,46.8059 16.1583,46.811 16.2063,46.8229 16.2466,46.821 16.2753,46.8159 16.3257,46.789 16.3141,46.7559 16.2925,46.741 16.3021,46.7027 16.3363,46.6668 16.3521,46.6694 16.3622,46.6485 16.3853,46.6055 16.5078,46.456 16.5843,46.4232 16.5843,46.4232 370,2.0,Croatia 16.5843,46.4232 16.6053,46.4222 16.6378,46.4126 16.7778,46.3387 16.8169,46.3171 16.8507,46.2926 16.8551,46.2559 16.8567,46.2516 16.8676,46.2309 16.8958,46.2075 16.9138,46.1968 16.9491,46.1808 17.0164,46.1614 17.1285,46.1278 17.1585,46.1022 17.2105,46.0381 17.2305,46.001 17.2333,45.9686 17.2869,45.923 17.3304,45.8993 17.3649,45.8857 17.403,45.8882 17.4341,45.9022 17.558,45.8854 17.6012,45.8534 17.6202,45.8329 17.6279,45.8011 17.6362,45.7865 17.8556,45.7318 17.981,45.7349 18.1277,45.7352 18.1699,45.7317 18.2005,45.7278 18.2225,45.7154 18.3071,45.7024 18.3817,45.6961 18.4078,45.699 18.5297,45.7478 18.5725,45.7759 18.5922,45.7993 18.6931,45.8594 18.7535,45.8425 18.781,45.8506 18.7906,45.8607 18.8059,45.8232 18.8632,45.7735 18.8903,45.7634 18.9302,45.7303 18.9402,45.612 18.91,45.576 18.8841,45.5681 18.8759,45.5212 18.9029,45.4929 18.9221,45.4862 18.9432,45.4882 18.9807,45.5095 19.0712,45.4671 19.0695,45.4462 19.0297,45.4353 18.9988,45.4454 18.9746,45.4381 18.9547,45.3306 19.0859,45.2465 19.1118,45.2359 19.1633,45.2187 19.2336,45.1961 19.2581,45.1919 19.2936,45.1869 19.3237,45.1833 19.3618,45.1844 19.3821,45.1837 19.3978,45.1664 19.3915,45.1287 19.3256,45.1221 19.2218,45.1353 19.1861,45.1586 19.1606,45.1655 19.1407,45.163 19.0777,45.0454 19.0891,44.981 19.014,44.8798 18.9833,44.8545 19.002,44.8295 19.0133,44.8104 19.0031,44.8094 18.9362,44.8025 18.8205,44.8121 18.765,44.8464 18.742,44.8648 18.7437,44.8911 18.7711,44.8944 18.7689,44.9427 18.6081,45.0321 18.3934,45.0576 18.2353,45.0863 18.1926,45.0748 18.1898,45.0474 18.1761,45.0323 18.1477,45.027 18.0929,45.0332 18.0451,45.0533 17.9081,45.0292 17.8877,45.0168 17.8356,44.9982 17.8078,45.0045 17.7334,45.0356 17.6652,45.0716 17.5717,45.0576 17.4952,45.0581 17.4616,45.0665 17.2586,45.1252 17.213,45.0976 17.159,45.0969 17.0474,45.1368 17.0189,45.1606 16.8905,45.2144 16.8211,45.1449 16.7952,45.136 16.6597,45.1538 16.6394,45.1589 16.6064,45.1695 16.5729,45.179 16.5081,45.1743 16.4823,45.1608 16.4535,45.1344 16.3949,45.073 16.3436,44.9908 16.33,44.9564 16.2691,44.9482 16.2333,44.9606 16.1922,44.9802 16.1746,44.9932 16.0905,45.075 16.0,45.1628 15.9086,45.1768 15.8605,45.1712 15.8066,45.1572 15.7849,45.1403 15.7637,45.1177 15.7434,45.0267 15.7432,45.0052 15.7473,44.8719 15.7187,44.7616 15.7416,44.7293 15.8411,44.6615 15.9198,44.6571 15.9395,44.6433 15.9884,44.5663 16.0108,44.5239 16.0518,44.4803 16.0931,44.4587 16.1075,44.4421 16.1754,44.3034 16.1693,44.2638 16.123,44.1487 16.1436,44.1425 16.1844,44.1462 16.2211,44.1475 16.2499,44.1331 16.2831,44.103 16.3003,44.07 16.3239,44.0375 16.4073,43.9864 16.4405,43.9768 16.4876,43.9726 16.5103,43.9658 16.6234,43.8625 16.6757,43.8036 16.6863,43.7842 16.8064,43.6761 16.9141,43.5725 16.9324,43.554 16.9527,43.5368 17.0293,43.4869 17.0475,43.4772 17.0828,43.4611 17.1363,43.4484 17.1996,43.4288 17.2309,43.415 17.2466,43.3961 17.2337,43.3711 17.2544,43.2801 17.2636,43.2531 17.2799,43.2267 17.4104,43.1308 17.5409,43.0663 17.5649,43.0537 17.6121,43.0218 17.6301,42.9984 17.6431,42.9744 17.6508,42.9191 17.554,42.8954 17.4948,42.9042 17.4563,42.9327 17.4473,42.9418 17.4462,42.9691 17.431,42.9849 17.3025,43.0678 17.2279,43.1054 17.1987,43.1127 17.1539,43.1251 17.1077,43.1502 17.0447,43.1923 17.0213,43.2235 16.9166,43.3159 16.8582,43.3546 16.8374,43.3564 16.8148,43.3563 16.7902,43.3579 16.7411,43.3623 16.7132,43.3671 16.6148,43.3919 16.5957,43.3997 16.4761,43.4539 16.4462,43.4842 16.4076,43.4966 16.3315,43.5014 16.2876,43.4938 16.1681,43.4624 16.1478,43.4429 16.0804,43.4268 16.0146,43.4327 15.966,43.4554 15.8967,43.5177 15.9039,43.5786 15.9437,43.5824 15.9186,43.6343 15.7603,43.7068 15.6671,43.7294 15.5776,43.7955 15.5124,43.8325 15.5045,43.8452 15.4695,43.8634 15.4362,43.8729 15.3843,43.9155 15.2603,44.0232 15.2111,44.0694 15.1306,44.1463 15.097,44.2208 15.124,44.23 15.1827,44.205 15.2699,44.2034 15.2587,44.2555 15.3002,44.2503 15.3207,44.2374 15.3638,44.2201 15.3929,44.2099 15.5007,44.2131 15.4817,44.226 15.4572,44.2254 15.4269,44.2332 15.2493,44.3191 15.1605,44.3883 15.1198,44.4229 15.0748,44.4677 14.9929,44.5151 14.9698,44.5288 14.9504,44.551 14.9055,44.6046 14.8738,44.6447 14.867,44.6655 14.858,44.7607 14.8595,44.8014 14.8734,44.8386 14.8886,44.8607 14.8984,44.9152 14.8109,45.0642 14.7795,45.0719 14.7322,45.0844 14.7042,45.0972 14.654,45.1307 14.5646,45.2009 14.4625,45.2595 14.4286,45.2699 14.3031,45.2993 14.2666,45.2635 14.234,45.1805 14.2282,45.1458 14.22,45.1127 14.211,45.093 14.197,45.0722 14.1405,45.0256 14.136,44.9884 14.1476,44.938 14.1246,44.9111 14.0678,44.9103 13.9755,44.8399 13.9563,44.7963 13.9565,44.7731 13.9747,44.7674 13.9765,44.76 13.8849,44.7217 13.7978,44.8092 13.8197,44.8255 13.7376,44.9304 13.662,45.0002 13.5841,45.1063 13.576,45.1992 13.5568,45.2487 13.5147,45.3499 13.486,45.4503 13.5362,45.4426 13.5726,45.4298 13.5826,45.4216 13.6214,45.4021 13.6542,45.3941 13.6844,45.3926 13.8874,45.4017 13.933,45.4049 13.9689,45.4116 14.1173,45.4235 14.3725,45.4343 14.3935,45.4398 14.476,45.4919 14.5148,45.5605 14.55,45.6146 14.5895,45.6165 14.5891,45.5813 14.6005,45.5601 14.7029,45.4797 14.8053,45.4138 14.8428,45.4168 14.8919,45.4307 14.9581,45.4487 15.0708,45.4197 15.1355,45.3776 15.1534,45.3742 15.2559,45.4111 15.2826,45.487 15.2728,45.5428 15.2857,45.5779 15.3312,45.6 15.3351,45.6601 15.2672,45.6485 15.2726,45.6822 15.2946,45.7047 15.3124,45.7143 15.4777,45.7836 15.5899,45.7945 15.6079,45.7812 15.6309,45.7711 15.6742,45.791 15.7025,45.8865 15.6894,46.0008 15.6415,46.0155 15.6111,46.0323 15.5846,46.0634 15.5785,46.0916 15.59,46.1142 15.637,46.1682 15.6641,46.1733 15.7757,46.1807 15.9946,46.2452 16.0578,46.2833 16.0533,46.3052 16.0527,46.3256 16.115,46.3532 16.243,46.3666 16.2294,46.4426 16.2444,46.4616 16.2694,46.4779 16.3127,46.4809 16.3611,46.4827 16.4405,46.4678 16.4722,46.4525 16.4944,46.4386 16.5411,46.4243 16.5684,46.4211 16.5843,46.4232 16.5843,46.4232 14,7.0,Kazakhstan 52.939,46.1697 52.9314,46.1711 52.9212,46.1777 52.8965,46.1952 52.8865,46.2098 52.8918,46.2249 52.9597,46.3139 52.9714,46.3147 52.9833,46.3074 53.0225,46.2483 52.9912,46.2019 52.9503,46.176 52.939,46.1697 52.939,46.1697 14,2.0,France -1.2823,46.1028 -1.2975,46.1042 -1.3167,46.1083 -1.5047,46.1516 -1.5184,46.1566 -1.5306,46.1637 -1.549,46.1933 -1.5007,46.2029 -1.4898,46.2041 -1.475,46.2035 -1.2895,46.1455 -1.2559,46.1073 -1.2823,46.1028 -1.2823,46.1028 43,11.0,Russia 149.2639,45.5514 149.2712,45.5563 149.3381,45.649 149.4088,45.738 149.4523,45.7925 149.4616,45.8009 149.6462,45.8706 149.6797,45.9198 149.7181,45.9552 149.7473,45.9716 149.7576,45.9775 149.8259,46.0126 149.8614,46.0301 150.1356,46.1598 150.225,46.1615 150.2861,46.14 150.2627,46.1068 150.2133,46.0663 150.0986,45.9983 150.0393,45.9727 150.029,45.9672 150.0129,45.9526 150.0011,45.931 149.9911,45.9025 149.985,45.878 149.9477,45.8477 149.8555,45.7953 149.8113,45.775 149.7754,45.7817 149.6681,45.7267 149.6578,45.7211 149.6004,45.6825 149.5738,45.6587 149.4823,45.5869 149.474,45.5812 149.4637,45.5768 149.3339,45.5338 149.3196,45.531 149.2308,45.532 149.2411,45.5438 149.251,45.548 149.2639,45.5514 149.2639,45.5514 18,2.0,France -1.2099,45.7549 -1.2376,45.8068 -1.2489,45.8216 -1.282,45.8546 -1.3145,45.8712 -1.3369,45.8836 -1.3636,45.8978 -1.3728,45.9092 -1.397,45.9974 -1.3826,45.9972 -1.3591,45.9914 -1.2715,45.9435 -1.2312,45.9125 -1.1692,45.8392 -1.1799,45.7957 -1.1894,45.774 -1.2099,45.7549 -1.2099,45.7549 17,-4.0,Canada -60.8248,45.4942 -60.8504,45.4875 -60.8643,45.4801 -60.8759,45.4612 -60.8649,45.446 -60.9114,45.4051 -60.9221,45.4054 -60.9336,45.4121 -61.0178,45.4734 -61.0164,45.4948 -60.9345,45.5232 -60.8512,45.5249 -60.8186,45.5242 -60.7935,45.5065 -60.8009,45.4978 -60.8248,45.4942 -60.8248,45.4942 814,5.0,Uzbekistan 70.8645,42.2068 70.8825,42.2142 70.9351,42.2513 70.9661,42.2547 71.0244,42.2297 71.074,42.2019 71.1332,42.1707 71.1654,42.1579 71.1767,42.1566 71.1772,42.1506 71.1652,42.1269 71.1242,42.0944 70.8828,41.9952 70.8473,41.9922 70.8144,41.9982 70.7793,41.9943 70.7616,41.9797 70.7539,41.9233 70.749,41.884 70.6877,41.8664 70.6544,41.8652 70.6026,41.8629 70.4335,41.7529 70.4193,41.7384 70.4052,41.7034 70.3946,41.6851 70.3774,41.6693 70.2118,41.5863 70.1885,41.578 70.1552,41.568 70.108,41.5519 70.0878,41.5356 70.0843,41.4943 70.1098,41.4722 70.1699,41.4678 70.1959,41.4684 70.2266,41.4638 70.2511,41.4588 70.2734,41.4525 70.3168,41.431 70.3383,41.4125 70.3773,41.3656 70.3919,41.3642 70.4341,41.3724 70.5039,41.3972 70.5369,41.4122 70.5724,41.4291 70.6136,41.4236 70.6742,41.3482 70.696,41.3084 70.6954,41.2844 70.7161,41.2039 70.891,41.1571 71.0592,41.1145 71.1103,41.1401 71.1478,41.148 71.2993,41.0791 71.3256,41.0744 71.3425,41.0967 71.3443,41.1494 71.3441,41.1838 71.3409,41.211 71.3363,41.2861 71.3495,41.3039 71.4037,41.2717 71.4475,41.256 71.4776,41.2551 71.5003,41.2691 71.5198,41.2871 71.5529,41.3508 71.5613,41.382 71.5516,41.4161 71.5274,41.4373 71.5211,41.4575 71.5469,41.5079 71.5896,41.5096 71.768,41.3112 71.7894,41.2844 71.7955,41.2558 71.7975,41.2284 71.791,41.1996 71.7897,41.1544 71.8104,41.1431 72.0124,41.1499 72.051,41.1577 72.0822,41.1462 72.1165,41.0059 72.0967,40.9604 72.22,40.986 72.2962,40.9941 72.4041,40.9706 72.4804,40.9076 72.5064,40.8819 72.5219,40.8487 72.5605,40.8331 72.6026,40.8244 72.6259,40.823 72.7995,40.8218 72.9491,40.8224 73.0524,40.8011 73.0673,40.783 73.047,40.7538 73.0042,40.7291 72.844,40.667 72.7783,40.6476 72.7524,40.6431 72.7063,40.6292 72.6113,40.5393 72.5745,40.4901 72.5545,40.4739 72.53,40.4678 72.4921,40.4758 72.3057,40.5708 72.2748,40.5572 72.281,40.4805 72.301,40.4616 72.3352,40.4424 72.3542,40.4132 72.3475,40.3882 72.3338,40.359 72.3217,40.3426 72.295,40.3471 72.2464,40.3637 72.1843,40.4017 72.1594,40.4198 72.1286,40.4192 72.1084,40.4194 72.081,40.4163 72.0138,40.3869 71.9146,40.289 71.9456,40.2212 71.8055,40.2051 71.71,40.1484 71.6849,40.1293 71.6165,40.1028 71.4269,40.1704 71.4081,40.1786 71.3873,40.1934 71.3736,40.2236 71.2926,40.2564 71.202,40.2646 71.1497,40.2417 71.0422,40.2321 70.9973,40.2327 70.971,40.2324 70.899,40.2223 70.8855,40.1995 70.861,40.1998 70.7642,40.1958 70.7262,40.1831 70.6967,40.1738 70.6524,40.1638 70.6122,40.1587 70.5487,40.1605 70.5274,40.1667 70.5069,40.1877 70.4932,40.2099 70.365,40.305 70.2797,40.331 70.2471,40.4003 70.274,40.4258 70.319,40.4456 70.4388,40.5139 70.6373,40.6293 70.6809,40.6604 70.7001,40.6798 70.6875,40.7033 70.663,40.7156 70.6159,40.7245 70.5706,40.7814 70.5613,40.8241 70.4518,40.9311 70.3786,40.9883 70.3685,40.9927 70.3642,40.997 70.3424,41.003 70.321,41.0016 70.2946,40.9903 70.2794,40.9629 70.278,40.9156 70.2646,40.8889 70.227,40.853 70.1569,40.8121 69.9546,40.724 69.9041,40.7083 69.8769,40.7002 69.8444,40.6943 69.8046,40.688 69.7518,40.6768 69.7228,40.6665 69.6906,40.6341 69.6641,40.6062 69.6316,40.5929 69.5943,40.5969 69.5738,40.6097 69.4931,40.6792 69.4763,40.7053 69.4421,40.7348 69.3566,40.7653 69.3056,40.754 69.2704,40.7336 69.254,40.7181 69.1752,40.55 69.1652,40.4573 69.2336,40.3293 69.2443,40.2879 69.2251,40.1645 69.2079,40.1538 69.1549,40.1457 69.1328,40.1452 69.0999,40.1503 69.0399,40.1636 68.9848,40.1849 68.9674,40.1894 68.9418,40.1935 68.6746,40.1629 68.6342,40.1571 68.6018,40.1508 68.5487,40.139 68.5124,40.1205 68.5431,40.0948 68.5879,40.0767 68.6089,40.0724 68.6204,40.0712 68.6686,40.0772 68.7016,40.0835 68.7825,40.1023 68.8971,40.0955 68.915,40.0586 68.901,40.0254 68.8388,40.03 68.7295,40.0335 68.691,40.0229 68.7182,39.9559 68.7362,39.933 68.7631,39.9099 68.8115,39.8476 68.6646,39.7851 68.6424,39.8047 68.63,39.8239 68.5631,39.8178 68.5496,39.8134 68.5442,39.7948 68.5357,39.7265 68.5348,39.606 68.5191,39.5857 68.4479,39.5105 68.4281,39.5036 68.381,39.4933 68.2926,39.4911 68.2611,39.4923 68.0832,39.5094 68.0569,39.5121 67.9906,39.523 67.8163,39.5561 67.7713,39.5669 67.7464,39.5752 67.6679,39.5859 67.6385,39.5846 67.6182,39.5812 67.5908,39.5707 67.4134,39.4846 67.3513,39.4392 67.3516,39.4183 67.3491,39.393 67.3408,39.3238 67.3185,39.2528 67.2755,39.2449 67.2744,39.2277 67.2855,39.1727 67.4313,39.1237 67.4762,39.1279 67.5048,39.1294 67.5352,39.1247 67.606,39.0847 67.6048,38.9724 67.6093,38.9624 67.6268,38.9514 67.6603,38.9465 67.7699,38.9339 67.844,38.9532 67.8936,38.9642 68.0193,38.955 68.0352,38.9374 68.049,38.9066 68.0627,38.8876 68.0892,38.8611 68.0939,38.8547 68.1025,38.8082 68.0832,38.7772 68.0588,38.7627 68.0292,38.7546 67.9833,38.6213 67.9806,38.5007 68.0345,38.3846 68.1293,38.2872 68.187,38.2609 68.2463,38.2248 68.2737,38.1945 68.2922,38.1519 68.2893,38.1179 68.2645,38.0428 68.2475,38.0036 68.1784,37.9099 68.1483,37.8996 68.081,37.8914 68.0525,37.8737 68.04,37.8421 68.0331,37.8163 68.0054,37.7599 67.9832,37.723 67.962,37.6966 67.9123,37.6451 67.8915,37.6313 67.8477,37.5941 67.8276,37.575 67.8138,37.5575 67.7717,37.5011 67.7491,37.4637 67.737,37.44 67.7285,37.4042 67.7285,37.3745 67.7405,37.349 67.7519,37.3105 67.7548,37.2799 67.7522,37.2399 67.7479,37.2171 67.725,37.1772 67.6987,37.149 67.6911,37.144 67.6842,37.1637 67.6605,37.1811 67.6371,37.187 67.5605,37.2045 67.4376,37.2267 67.368,37.2088 67.3121,37.1775 67.2923,37.1707 67.2165,37.1616 67.2042,37.1527 67.1785,37.144 67.1578,37.1435 67.1376,37.1557 67.1279,37.1845 67.1122,37.2051 67.0038,37.3013 66.925,37.338 66.8824,37.3407 66.839,37.3369 66.7702,37.3239 66.7487,37.3218 66.6336,37.3136 66.536,37.3188 66.4926,37.3263 66.4505,37.3244 66.4316,37.3485 66.4295,37.4898 66.4522,37.7385 66.4665,37.7759 66.528,37.8424 66.5496,37.8623 66.5718,37.8844 66.5828,37.9221 66.578,37.939 66.5634,37.9539 66.5321,37.9728 66.512,37.9819 66.4823,37.9924 66.4532,37.9982 66.4326,38.0007 66.4041,37.9996 66.3636,37.9947 66.3361,38.0008 66.2383,38.0393 66.2187,38.053 66.1982,38.0794 66.1778,38.1047 65.9909,38.1905 65.9683,38.1983 65.7908,38.239 65.7531,38.2309 65.7178,38.2144 65.6897,38.1914 65.6521,38.183 65.6293,38.183 65.6083,38.1852 65.5707,38.1936 65.5406,38.2006 65.5104,38.2109 65.4774,38.2254 65.2415,38.3468 65.2055,38.3677 65.1701,38.3917 65.1122,38.4339 65.0652,38.4688 65.0371,38.4901 65.0199,38.5049 64.9088,38.5784 64.8898,38.5885 64.8486,38.6055 64.821,38.6136 64.7884,38.6228 64.7116,38.6466 64.6604,38.6648 64.5854,38.6954 64.5454,38.7179 64.3784,38.8302 64.3486,38.8532 64.3301,38.8703 64.3159,38.8857 64.3026,38.9019 64.297,38.9095 64.2807,38.928 64.2522,38.9471 64.2167,38.9418 64.1808,38.9291 64.1487,38.916 64.12,38.9083 64.092,38.9099 64.0469,38.9317 64.0006,38.957 63.9582,38.986 63.8977,39.0244 63.8073,39.0701 63.7284,39.1095 63.6249,39.1639 63.6085,39.1802 63.5717,39.2194 63.5583,39.235 63.5104,39.2858 63.4761,39.3204 63.4331,39.3545 63.3933,39.3792 63.2571,39.4539 63.1957,39.4841 63.1138,39.5221 63.0452,39.5547 63.0081,39.5727 62.9534,39.6001 62.9149,39.6225 62.8702,39.6533 62.8168,39.6912 62.7946,39.7043 62.7287,39.7428 62.7047,39.7552 62.6423,39.7848 62.4996,39.8649 62.4706,39.8856 62.3564,39.9872 62.3369,40.0373 62.3334,40.0624 62.3401,40.0832 62.3258,40.175 62.3139,40.2328 62.2674,40.3791 62.251,40.3939 62.1744,40.4279 62.1317,40.4348 62.1078,40.4481 62.1006,40.4588 62.0563,40.5188 62.0276,40.561 61.96,40.6734 61.9145,40.7939 61.9016,40.8315 61.9004,40.875 61.9026,40.8997 61.8993,40.9252 61.8857,40.9625 61.863,40.9979 61.8083,41.0654 61.7894,41.0793 61.6531,41.1564 61.5476,41.213 61.5269,41.2211 61.3622,41.2559 61.3304,41.2524 61.3106,41.2213 61.2956,41.1674 61.2777,41.1463 61.2452,41.1266 61.2061,41.1166 61.1611,41.1208 61.0777,41.1597 61.055,41.1856 61.002,41.1906 60.9386,41.1838 60.9204,41.1634 60.8982,41.1878 60.8792,41.1995 60.8562,41.2046 60.7283,41.2113 60.6218,41.2114 60.5965,41.2061 60.5733,41.1993 60.5108,41.1852 60.4351,41.171 60.3969,41.1748 60.3709,41.1824 60.3494,41.1957 60.3261,41.2167 60.2917,41.2412 60.2615,41.2588 60.2429,41.2677 60.1818,41.2922 60.14,41.3027 60.1116,41.313 60.0771,41.3262 60.0576,41.3346 60.0096,41.364 59.9953,41.3989 60.0145,41.4841 60.0388,41.5108 60.0779,41.5266 60.101,41.5438 60.0777,41.5847 60.0535,41.6126 59.993,41.6833 59.9884,41.7119 60.0115,41.7402 60.0339,41.7557 60.0604,41.7591 60.1105,41.7477 60.1429,41.7337 60.1763,41.7271 60.1911,41.7438 60.17,41.7769 60.0974,41.8134 60.0697,41.8365 60.0664,41.8441 60.0542,41.8639 59.9451,41.9849 59.9438,42.116 59.9314,42.1698 59.8315,42.2507 59.7746,42.2682 59.6532,42.2748 59.5396,42.2612 59.4764,42.2516 59.4475,42.2457 59.4048,42.2441 59.3668,42.246 59.3436,42.2521 59.1975,42.3032 59.1839,42.3195 59.177,42.3469 59.1776,42.3742 59.1779,42.3988 59.1575,42.4289 59.1343,42.4494 59.0616,42.4966 59.0116,42.4834 58.9863,42.4775 58.9655,42.4757 58.9423,42.4772 58.8964,42.4844 58.87,42.4928 58.7688,42.5561 58.723,42.5893 58.6945,42.6146 58.6493,42.6558 58.5322,42.748 58.5152,42.7326 58.5103,42.7115 58.505,42.6683 58.5012,42.6474 58.4922,42.625 58.4754,42.6129 58.4407,42.6098 58.3803,42.611 58.325,42.6151 58.2864,42.6262 58.2526,42.6402 58.2211,42.6483 58.1859,42.6459 58.0724,42.5944 58.0712,42.5631 58.1187,42.5403 58.1486,42.5305 58.1742,42.5246 58.2126,42.5132 58.2321,42.5023 58.262,42.4735 58.4257,42.2548 58.3607,42.2468 58.3282,42.2584 58.3353,42.3108 58.3236,42.351 58.2905,42.3771 58.2445,42.3991 58.2026,42.415 58.1707,42.4233 58.0211,42.456 57.996,42.4595 57.9732,42.46 57.9413,42.4534 57.8635,42.3976 57.868,42.3514 57.8813,42.3225 57.8739,42.2946 57.8283,42.2174 57.7928,42.1631 57.7589,42.1403 57.585,42.1062 57.5406,42.1065 57.5005,42.1153 57.4426,42.1227 57.4184,42.1256 57.3945,42.1275 57.3658,42.1264 57.3381,42.1235 57.299,42.1117 57.2729,42.1023 57.2445,42.0911 57.2084,42.0757 57.1851,42.0621 57.1669,42.0479 57.1322,42.0162 57.1116,41.9853 57.0892,41.9431 57.0635,41.9139 57.0433,41.8959 57.0185,41.8805 56.9887,41.8713 56.9505,41.8631 56.926,41.8567 56.9042,41.8416 56.8911,41.8128 56.899,41.6351 56.9626,41.4249 56.9788,41.3959 57.0108,41.3602 57.0374,41.3441 57.0555,41.2994 56.9786,41.2213 56.9598,41.2128 56.8778,41.2236 56.8441,41.2305 56.807,41.242 56.7577,41.2519 56.7203,41.2524 56.6701,41.246 56.6194,41.2405 56.589,41.2414 56.5665,41.2428 56.4651,41.2497 56.4563,41.2519 56.4459,41.2503 56.2827,41.26 56.1378,41.2689 55.9381,41.2789 55.9241,41.2819 55.9233,41.3073 55.9223,41.5294 55.922,41.8487 55.9218,42.0852 55.9228,42.1689 55.9222,42.433 55.9213,42.7118 55.921,42.9631 55.9216,43.0328 55.9212,43.2981 55.9204,43.5773 55.9198,43.8293 55.9209,43.899 55.9202,44.459 55.9191,44.6835 55.9204,44.951 56.1789,45.0123 56.3089,45.0427 56.5697,45.1025 56.635,45.1172 56.6709,45.1216 56.6783,45.1272 56.7002,45.1323 56.984,45.1963 57.3121,45.2691 57.5093,45.3122 57.6987,45.3529 57.927,45.402 58.1916,45.4576 58.4833,45.518 58.4886,45.5188 59.5692,44.9491 61.0638,44.1612 61.0805,44.1484 61.2262,44.0297 61.5285,43.7805 61.7286,43.6137 61.8705,43.4942 61.9387,43.4355 61.9584,43.4392 62.2956,43.4836 62.4009,43.497 62.5277,43.5131 62.7393,43.5398 63.1235,43.5872 63.3343,43.5702 63.4489,43.5607 63.6782,43.541 63.9081,43.5214 63.9322,43.5199 64.3681,43.4989 64.4954,43.551 64.7529,43.6541 64.841,43.6883 64.9362,43.6033 65.1253,43.4316 65.1773,43.3833 65.3877,43.2906 65.4277,43.2722 65.5467,43.1047 65.6567,42.9407 65.7307,42.8289 66.0321,42.9482 66.0187,42.7521 66.0095,42.6234 66.0042,42.5562 65.9792,42.376 65.9452,42.3756 65.943,42.2887 65.9417,42.2161 65.9381,41.9987 65.9382,41.9557 66.4344,41.9555 66.4473,41.8495 66.454,41.7892 66.4661,41.6918 66.4708,41.6698 66.5445,41.4137 66.6284,41.1285 66.668,41.1185 66.686,41.1155 66.7841,41.1038 66.9801,41.097 67.0669,41.0988 67.2581,41.1029 67.3468,41.1079 67.3972,41.1127 67.4433,41.1212 67.5471,41.1359 67.6622,41.1458 67.8423,41.1368 67.8963,41.0841 68.0139,41.0186 68.0469,41.0056 68.0609,40.99 68.0513,40.9367 68.0229,40.8615 68.0101,40.8335 67.9881,40.8113 67.9609,40.7947 67.9549,40.7644 68.1197,40.658 68.1402,40.6456 68.1636,40.6349 68.1722,40.6319 68.2172,40.6106 68.3616,40.5519 68.386,40.5489 68.5142,40.5541 68.5471,40.5685 68.5581,40.6258 68.5348,40.6724 68.4953,40.693 68.474,40.8155 68.4998,40.8741 68.5225,40.8908 68.5546,40.9006 68.5705,40.9059 68.6276,40.9315 68.6446,40.9551 68.6563,40.9932 68.6749,41.0241 68.6916,41.0393 68.781,41.0724 68.9369,41.1532 68.9699,41.1759 68.9784,41.2254 68.9759,41.3108 68.9646,41.3301 69.1314,41.4129 69.1598,41.424 69.2586,41.4376 69.3944,41.5288 69.5415,41.6232 69.6627,41.652 69.6902,41.6561 69.7495,41.6598 69.832,41.6648 69.9613,41.7331 70.0435,41.7813 70.0599,41.7972 70.0858,41.829 70.1473,41.9078 70.2407,41.9953 70.266,42.0106 70.2906,42.0218 70.3649,42.0491 70.3876,42.0531 70.4082,42.0435 70.4339,42.0199 70.441,41.993 70.5309,41.977 70.5479,42.0013 70.5569,42.0264 70.568,42.0493 70.6528,42.1513 70.6948,42.1565 70.7431,42.1475 70.7864,42.1575 70.8098,42.1701 70.8645,42.2068 70.8645,42.2068 107,11.0,Russia 146.6776,44.3466 146.6602,44.3493 146.639,44.3616 146.6267,44.3848 146.6335,44.4144 146.7349,44.5038 146.8006,44.5213 146.8964,44.5717 146.9382,44.6108 146.9538,44.637 146.9487,44.6701 146.9059,44.7431 147.0207,44.7852 147.1041,44.8254 147.1871,44.8694 147.2777,44.9298 147.2989,44.9929 147.3972,45.0078 147.4552,45.0286 147.4712,45.0547 147.4851,45.073 147.5012,45.091 147.5458,45.1315 147.5766,45.146 147.6335,45.1573 147.6619,45.1611 147.6854,45.1758 147.6665,45.2384 147.6506,45.2997 147.6669,45.3292 147.6972,45.3525 147.7395,45.3701 147.7924,45.2804 147.7949,45.2573 147.7942,45.2233 147.8359,45.2012 147.8673,45.197 148.1094,45.2172 148.1388,45.233 148.1627,45.2534 148.1832,45.2779 148.2526,45.3405 148.3323,45.3963 148.3506,45.4074 148.5021,45.471 148.5599,45.4697 148.5867,45.4634 148.6434,45.4259 148.6367,45.3138 148.6271,45.2923 148.5673,45.2623 148.5062,45.2566 148.4658,45.2626 148.4117,45.2689 148.3793,45.2665 148.3548,45.2582 148.3141,45.2358 148.2853,45.2188 148.264,45.2048 148.2301,45.1948 148.1637,45.1837 148.1299,45.1787 148.0778,45.1695 148.0583,45.162 148.0284,45.1474 148.0083,45.1376 147.834,45.0407 147.7921,45.0101 147.7785,44.9934 147.7569,44.9606 147.7364,44.9498 147.709,44.9387 147.6656,44.9219 147.6416,44.9145 147.5506,44.8879 147.5252,44.8966 147.5011,44.92 147.4602,44.9234 147.4276,44.919 147.4056,44.91 147.3836,44.8862 147.3852,44.8661 147.4118,44.8498 147.3347,44.7557 147.3153,44.7409 147.296,44.7322 147.2678,44.7244 147.1387,44.6496 147.0803,44.61 147.0453,44.5548 147.0343,44.5294 147.019,44.5115 146.9981,44.497 146.9695,44.4867 146.9373,44.4826 146.9004,44.4786 146.8778,44.4783 146.8345,44.4674 146.8152,44.4571 146.7967,44.4391 146.7831,44.4206 146.7741,44.3986 146.7634,44.3763 146.7483,44.3612 146.7148,44.3503 146.6776,44.3466 146.6776,44.3466 372,9.0,Japan 145.0102,43.5556 145.0309,43.4829 145.0776,43.3755 145.1012,43.3195 145.0792,43.2912 145.0589,43.2893 145.0539,43.2687 145.1095,43.2263 145.1554,43.2148 145.1798,43.2093 145.2118,43.2039 145.2701,43.2022 145.2947,43.22 145.4484,43.329 145.5683,43.3341 145.6093,43.3163 145.5351,43.2773 145.4782,43.2564 145.4493,43.2563 145.4208,43.2559 145.3693,43.2083 145.3552,43.1686 145.3185,43.1216 145.2891,43.1203 145.2562,43.1275 145.2241,43.1268 145.1686,43.1233 145.0873,43.1146 144.9351,43.077 144.9178,43.0503 144.9255,43.0316 144.9055,42.9971 144.8022,42.9358 144.7772,42.9282 144.704,42.9243 144.6733,42.9305 144.6408,42.959 144.6349,42.9862 144.6049,42.9955 144.581,42.987 144.5615,42.9705 144.5338,42.9318 144.5393,42.9124 144.4608,42.8889 144.2856,42.8808 144.2628,42.8824 144.2038,42.8983 144.1749,42.9108 144.1601,42.9407 144.1318,42.9498 144.0915,42.9446 143.979,42.919 143.9414,42.9097 143.8153,42.8699 143.7896,42.8582 143.6931,42.8007 143.6529,42.7651 143.6004,42.7184 143.582,42.7008 143.4507,42.6148 143.423,42.5943 143.392,42.5669 143.3636,42.5398 143.3412,42.5166 143.2653,42.4312 143.2365,42.3947 143.1878,42.3305 143.1754,42.3137 143.1463,42.2653 143.1337,42.2401 143.1274,42.1724 143.1406,42.1174 143.119,41.9955 143.0455,41.8775 143.005,41.8968 142.974,41.9227 142.9469,41.9526 142.9167,41.9792 142.753,42.0557 142.7256,42.0651 142.6699,42.0762 142.63,42.0846 142.5961,42.0942 142.5093,42.1245 142.4602,42.1431 142.2882,42.2102 142.1168,42.293 142.0896,42.3082 142.0571,42.3323 141.9069,42.4064 141.8597,42.4187 141.8199,42.4348 141.7668,42.4707 141.7315,42.5008 141.6441,42.5427 141.62,42.5509 141.5942,42.5582 141.5524,42.5646 141.4993,42.567 141.4624,42.5681 141.427,42.5664 141.3616,42.5551 141.3365,42.549 141.2406,42.5213 141.2062,42.5064 140.9593,42.3745 140.916,42.3506 140.8952,42.337 140.8608,42.3109 140.8295,42.2794 140.7951,42.2492 140.7499,42.2586 140.7345,42.2733 140.7091,42.3411 140.7044,42.3702 140.6848,42.3969 140.5574,42.5029 140.5207,42.5215 140.4922,42.5274 140.3257,42.5311 140.3046,42.5295 140.2762,42.5227 140.2326,42.493 140.2093,42.4724 140.191,42.4551 140.1607,42.4225 140.1431,42.398 140.1046,42.3318 140.0905,42.2972 140.0867,42.2689 140.0861,42.2225 140.1049,42.1934 140.1347,42.1793 140.1642,42.173 140.1881,42.165 140.2332,42.1425 140.2806,42.1073 140.2958,42.0911 140.3437,42.0603 140.3871,42.056 140.4939,42.0738 140.518,42.0788 140.5486,42.0678 140.5773,42.0476 140.5987,42.023 140.6158,42.002 140.6563,41.9621 140.7739,41.8622 140.7968,41.8486 140.8193,41.8401 140.8437,41.8355 140.8736,41.8336 140.8986,41.8285 140.9439,41.8031 140.9997,41.748 140.8475,41.6708 140.8172,41.6603 140.7865,41.6583 140.527,41.7625 140.5058,41.7741 140.4723,41.777 140.4371,41.7581 140.4231,41.7259 140.406,41.686 140.3303,41.6498 140.2623,41.6348 140.2413,41.6 140.239,41.5586 140.245,41.5175 140.25,41.4955 140.2215,41.4677 140.0914,41.4396 140.0772,41.4332 140.0559,41.4154 140.027,41.3721 140.0064,41.3505 139.8813,41.3713 139.8594,41.3826 139.8396,41.4024 139.7922,41.5015 139.7866,41.5412 139.8162,41.6279 139.8299,41.6517 139.88,41.7105 139.9341,41.77 139.9524,41.8674 139.944,41.9363 139.8616,42.0375 139.8455,42.0507 139.8226,42.0617 139.7949,42.0709 139.7464,42.0811 139.7232,42.0948 139.5929,42.1953 139.5764,42.2645 139.5947,42.3021 139.6117,42.3209 139.6316,42.3502 139.6479,42.3972 139.6511,42.4197 139.6545,42.4479 139.6537,42.4718 139.6461,42.4995 139.6372,42.5289 139.6423,42.566 139.6696,42.6051 139.7016,42.6243 139.7269,42.6303 139.7703,42.6306 139.7935,42.6291 139.8411,42.6315 139.9448,42.7022 140.0255,42.7503 140.1135,42.761 140.128,42.7796 140.1796,42.8407 140.2105,42.8686 140.2656,42.9088 140.3195,42.9396 140.3344,42.959 140.2834,43.0353 140.2265,43.1018 140.1942,43.1177 140.1692,43.1281 140.1516,43.1408 140.1274,43.1871 140.161,43.2676 140.2879,43.3167 140.3157,43.3058 140.4532,43.2299 140.5816,43.1552 140.6035,43.1384 140.8232,43.1251 140.9623,43.0896 141.0119,43.0936 141.0464,43.1106 141.0834,43.1326 141.1517,43.1837 141.1705,43.2003 141.1929,43.2236 141.2143,43.2479 141.2316,43.2816 141.242,43.3334 141.2354,43.3657 141.1856,43.5175 141.1413,43.662 141.1842,43.734 141.2246,43.7591 141.2645,43.7719 141.2901,43.7722 141.311,43.78 141.3688,43.8064 141.3999,43.8284 141.4238,43.8528 141.4481,43.8927 141.4512,43.9043 141.4676,43.951 141.4725,43.9792 141.4703,44.0156 141.4617,44.1672 141.4545,44.2131 141.4605,44.2529 141.48,44.2722 141.5275,44.3386 141.5524,44.3821 141.5898,44.5291 141.597,44.566 141.5989,44.5906 141.5966,44.6324 141.5954,44.6581 141.5913,44.6836 141.5717,44.7796 141.5631,44.8103 141.5227,44.8973 141.5097,44.9199 141.4925,44.9461 141.4783,44.963 141.4138,45.0589 141.4024,45.0763 141.3892,45.1038 141.3771,45.138 141.3755,45.1584 141.3836,45.1876 141.4953,45.3485 141.6151,45.365 141.6342,45.3717 141.671,45.3956 141.7722,45.4347 141.7909,45.4142 141.8495,45.3532 141.8751,45.3292 141.8932,45.3193 141.9534,45.2954 141.9798,45.2799 142.0464,45.2188 142.1031,45.1624 142.1206,45.1465 142.143,45.1272 142.1849,45.0919 142.214,45.0694 142.2537,45.0389 142.29,45.0131 142.3171,44.9926 142.3347,44.9692 142.3903,44.8862 142.412,44.8533 142.4274,44.8367 142.5404,44.7266 142.5616,44.7065 142.5789,44.6907 142.6121,44.6613 142.7798,44.5347 142.8279,44.5018 142.9215,44.4401 142.9393,44.4289 143.1694,44.2893 143.1843,44.2752 143.2034,44.2653 143.2634,44.2365 143.2941,44.2245 143.4582,44.169 143.4909,44.1579 143.4827,44.133 143.5258,44.066 143.5752,44.0441 143.6989,44.0528 143.7902,44.0801 143.832,44.0835 143.9701,44.0588 144.1291,43.9245 144.1511,43.9101 144.1663,43.9042 144.2096,43.8923 144.2984,43.8812 144.3384,43.8768 144.416,43.8679 144.4549,43.8641 144.4986,43.8613 144.521,43.8606 144.5428,43.8607 144.5897,43.8679 144.6811,43.9246 144.7068,43.9433 144.7308,43.9745 144.7762,44.0215 144.8171,44.0519 144.8802,44.0898 144.912,44.1043 144.9865,44.1473 145.015,44.181 145.0401,44.2106 145.1161,44.283 145.1354,44.294 145.1744,44.2176 145.1559,44.1792 145.1295,44.1353 145.0438,44.0008 145.0203,43.9843 145.0012,43.9731 144.9823,43.955 144.9649,43.9341 144.9291,43.8818 144.9072,43.846 144.8681,43.7278 144.869,43.7047 144.9027,43.6507 144.9152,43.6331 144.937,43.6049 144.9614,43.5836 144.9994,43.5578 145.0102,43.5556 145.0102,43.5556 13,9.0,Japan 140.7974,45.3972 140.8547,45.3951 140.8705,45.3818 140.8769,45.3627 140.8624,45.2597 140.8578,45.2448 140.844,45.2181 140.833,45.215 140.7944,45.3282 140.7706,45.408 140.7843,45.4118 140.7974,45.3972 140.7974,45.3972 23,9.0,Japan 140.9786,45.1908 140.9999,45.199 141.0138,45.1981 141.0743,45.1688 141.0848,45.1615 141.111,45.1376 141.123,45.1257 141.13,45.1173 141.1362,45.1061 141.1329,45.0948 141.1134,45.0728 141.0855,45.0514 141.062,45.0469 141.0433,45.0458 141.021,45.0511 140.9685,45.0767 140.9527,45.0877 140.9404,45.0995 140.9318,45.1128 140.9361,45.1595 140.9629,45.1815 140.9786,45.1908 140.9786,45.1908 20,2.0,Croatia 14.7129,44.8892 14.7009,44.8893 14.678,44.897 14.6202,44.9167 14.4633,44.9845 14.4436,44.9968 14.4165,45.0188 14.4089,45.0351 14.519,45.1881 14.5342,45.1963 14.5692,45.187 14.6373,45.0715 14.6836,45.017 14.7719,44.9582 14.786,44.9456 14.7939,44.9295 14.7842,44.9187 14.7377,44.8909 14.7129,44.8892 14.7129,44.8892 52,2.0,Croatia 14.4677,44.5553 14.431,44.576 14.3713,44.6388 14.3755,44.6265 14.374,44.6088 14.3753,44.576 14.387,44.5535 14.3962,44.5416 14.4062,44.5312 14.4564,44.4854 14.4697,44.4763 14.4839,44.4721 14.4956,44.4623 14.5132,44.4407 14.5059,44.4255 14.4966,44.4231 14.4908,44.424 14.3475,44.5398 14.3278,44.6049 14.3182,44.6561 14.3657,44.6473 14.3112,44.799 14.3214,44.8654 14.3419,44.8565 14.377,44.8606 14.3723,44.9052 14.3337,44.9938 14.3213,45.0056 14.2974,45.0148 14.288,45.0219 14.2554,45.0522 14.2551,45.0707 14.2889,45.1189 14.2977,45.1242 14.3332,45.1155 14.3437,45.1092 14.3463,45.0952 14.3379,45.0847 14.334,45.0678 14.339,45.0498 14.3569,45.0014 14.3897,44.9536 14.3988,44.942 14.4062,44.9339 14.4391,44.7769 14.4504,44.69 14.4861,44.6202 14.5098,44.5832 14.4966,44.5635 14.4732,44.5558 14.4677,44.5553 14.4677,44.5553 35,7.0,Kazakhstan 50.0649,44.7604 50.0522,44.7616 50.0339,44.7666 49.9938,44.785 49.9171,44.8862 49.9113,44.8951 49.9097,44.9097 49.9651,44.9973 49.9728,45.0058 49.9821,45.0129 49.9941,45.0181 50.0388,45.0262 50.0501,45.0139 50.0422,45.0028 50.0189,44.997 50.0042,44.9948 49.988,44.9863 49.979,44.9784 49.9672,44.9568 49.9461,44.9157 49.9472,44.9045 49.9583,44.8771 49.9892,44.8243 50.0059,44.8085 50.0337,44.7929 50.0503,44.7863 50.0643,44.7866 50.0806,44.7951 50.0943,44.8026 50.1082,44.805 50.1183,44.8011 50.1107,44.7899 50.0866,44.766 50.0649,44.7604 50.0649,44.7604 17,-4.0,Canada -66.6708,44.7502 -66.6638,44.7419 -66.6411,44.6784 -66.643,44.6665 -66.6467,44.657 -66.6693,44.6233 -66.7814,44.5689 -66.7921,44.5641 -66.8094,44.5686 -66.7907,44.6329 -66.7648,44.6925 -66.7418,44.7224 -66.7068,44.7498 -66.6892,44.7579 -66.6759,44.7565 -66.6708,44.7502 -66.6708,44.7502 32,2.0,Croatia 14.7248,44.644 14.8533,44.5574 14.8884,44.5573 14.9077,44.548 14.9395,44.5285 15.0218,44.4726 15.0523,44.4298 15.0376,44.4315 14.9901,44.4637 14.9553,44.4688 14.987,44.4397 15.0213,44.414 15.0158,44.4316 15.029,44.4256 15.0643,44.4084 15.0958,44.3892 15.2195,44.3001 15.2289,44.2854 15.1981,44.2555 15.1504,44.2456 15.1191,44.2538 15.1077,44.2597 15.0888,44.2736 15.0793,44.2846 15.0029,44.3721 14.9918,44.3914 14.8971,44.4544 14.724,44.6248 14.7162,44.6371 14.7146,44.647 14.7248,44.644 14.7248,44.644 79,11.0,Russia 145.9562,44.4562 145.9667,44.4582 145.9785,44.4565 145.9935,44.4508 146.0281,44.4264 146.0382,44.4188 146.0556,44.4032 146.0684,44.3959 146.0986,44.3838 146.1236,44.3754 146.1401,44.3718 146.155,44.3704 146.2638,44.3719 146.2838,44.3754 146.3154,44.3841 146.3331,44.3923 146.3629,44.3879 146.3451,44.3486 146.3325,44.3282 146.3035,44.3077 146.1252,44.2417 145.9999,44.2197 145.9727,44.2164 145.9531,44.2131 145.9338,44.2078 145.9158,44.2013 145.8984,44.1933 145.8876,44.1861 145.7363,44.078 145.7269,44.0692 145.6273,43.9671 145.6135,43.9529 145.6043,43.9429 145.5941,43.9288 145.5847,43.8946 145.5732,43.877 145.5592,43.87 145.5056,43.8494 145.4885,43.8464 145.4691,43.8492 145.4542,43.85 145.3906,43.8068 145.3757,43.7821 145.3721,43.768 145.3712,43.7361 145.3711,43.7255 145.3726,43.6894 145.3566,43.6081 145.3432,43.6007 145.2346,43.6673 145.2233,43.6907 145.2057,43.7828 145.2822,43.847 145.3492,43.8764 145.4416,43.9324 145.4581,43.9423 145.5433,44.0039 145.5511,44.0158 145.5517,44.0262 145.5495,44.0438 145.5581,44.0643 145.5861,44.0985 145.6738,44.187 145.686,44.1983 145.7055,44.209 145.7201,44.2154 145.7354,44.2204 145.7476,44.2249 145.7593,44.2303 145.7696,44.2376 145.8039,44.2889 145.8465,44.3618 145.8736,44.4131 145.8796,44.422 145.8959,44.4382 145.9263,44.4577 145.9434,44.4596 145.9562,44.4562 145.9562,44.4562 20,-5.0,United States -68.1456,44.3886 -68.0969,44.3409 -68.0899,44.3324 -68.079,44.3146 -68.0731,44.299 -68.087,44.2824 -68.0972,44.275 -68.2278,44.1864 -68.2396,44.1882 -68.3104,44.2211 -68.3186,44.2319 -68.3314,44.2714 -68.3101,44.3192 -68.2694,44.3785 -68.2544,44.3901 -68.2028,44.399 -68.1636,44.4016 -68.1499,44.3961 -68.1456,44.3886 -68.1456,44.3886 14,-5.0,United States -68.5365,44.2267 -68.5297,44.2232 -68.5197,44.216 -68.5081,44.2012 -68.5087,44.1749 -68.5191,44.138 -68.5515,44.1197 -68.5683,44.1177 -68.6143,44.1277 -68.6248,44.1815 -68.5748,44.234 -68.5634,44.2338 -68.5365,44.2267 -68.5365,44.2267 318,3.0,Bulgaria 22.65,44.1746 22.6601,44.1656 22.8826,44.0612 22.9162,44.054 22.9655,44.0509 22.9809,44.0463 23.0108,44.0228 23.0054,44.0008 22.9602,43.9639 22.9275,43.9624 22.8813,43.9509 22.8505,43.935 22.8101,43.8471 22.8208,43.811 22.8373,43.7957 22.8624,43.7865 22.935,43.7674 23.0353,43.7527 23.1109,43.7603 23.13,43.7685 23.1664,43.782 23.1923,43.7889 23.2296,43.798 23.2512,43.8013 23.39,43.806 23.4142,43.8017 23.4786,43.7871 23.5008,43.7727 23.5374,43.7572 23.5741,43.748 23.597,43.7454 23.7412,43.7388 23.9541,43.6948 24.0345,43.671 24.0827,43.6504 24.1219,43.6407 24.1557,43.6354 24.1903,43.6402 24.2234,43.6452 24.2525,43.6479 24.2738,43.648 24.286,43.6471 24.3214,43.6473 24.3713,43.6704 24.4046,43.6871 24.4239,43.6954 24.4678,43.7119 24.4943,43.7117 24.5284,43.7098 24.5714,43.7021 24.6527,43.6688 24.6797,43.6651 24.7591,43.6635 24.8466,43.6629 24.9879,43.6608 25.1897,43.6381 25.2334,43.6257 25.2792,43.6027 25.309,43.584 25.3433,43.5738 25.3967,43.5785 25.4284,43.5898 25.4964,43.5943 25.5736,43.613 25.6457,43.6411 25.6996,43.6452 25.7306,43.6541 25.7511,43.6637 25.8487,43.7433 25.9067,43.7987 26.0489,43.9001 26.0751,43.9184 26.1,43.9331 26.2653,43.9812 26.35,43.9942 26.3764,43.9934 26.4014,43.9915 26.4418,43.9994 26.6338,44.022 26.7574,44.0452 26.8033,44.0657 26.8526,44.0821 26.8757,44.086 26.9987,44.0975 27.0734,44.0909 27.1281,44.0801 27.1556,44.0735 27.1925,44.071 27.2125,44.0749 27.2345,44.0822 27.2414,44.0538 27.2573,44.0346 27.3693,43.972 27.4374,43.9698 27.5864,43.9782 27.614,43.9918 27.6402,43.9799 27.6599,43.9437 27.6782,43.9196 27.703,43.9097 27.7745,43.9152 27.7945,43.9194 27.8215,43.9312 27.8832,43.9539 27.9134,43.9247 27.9214,43.8953 27.9589,43.8097 27.9996,43.7859 28.0939,43.7523 28.1427,43.7356 28.1962,43.7204 28.2184,43.715 28.3644,43.701 28.4455,43.6947 28.5434,43.6982 28.5368,43.6837 28.5303,43.6405 28.5379,43.5424 28.5608,43.5127 28.5652,43.4849 28.5527,43.4543 28.518,43.4041 28.502,43.3885 28.486,43.3769 28.4397,43.3444 28.4138,43.3363 28.392,43.3404 28.3688,43.3494 28.343,43.3636 28.2965,43.3724 28.2603,43.3726 28.1114,43.3553 28.0882,43.3459 28.0458,43.3081 28.0325,43.274 28.0144,43.2321 27.9771,43.1769 27.9062,43.1186 27.8487,42.9883 27.8479,42.9657 27.8577,42.8764 27.8652,42.8428 27.8632,42.807 27.8404,42.7926 27.8595,42.7359 27.8555,42.6548 27.7669,42.6598 27.7337,42.6654 27.6947,42.663 27.5941,42.5836 27.4725,42.504 27.4579,42.488 27.4116,42.4249 27.4271,42.4014 27.4772,42.3874 27.5157,42.401 27.5784,42.3995 27.6409,42.3706 27.662,42.3474 27.6657,42.3212 27.7173,42.2067 27.7423,42.1797 27.8187,42.1164 27.8608,42.0859 27.9004,42.0556 27.9302,42.0249 27.9621,41.9895 27.983,41.9466 27.9745,41.9347 27.9326,41.9367 27.865,41.9474 27.8285,41.9582 27.7941,41.9542 27.6677,41.9302 27.5953,41.9085 27.5575,41.8883 27.5315,41.8619 27.4035,41.9297 27.3738,41.9474 27.3557,41.9619 27.3354,41.9925 27.3257,42.0154 27.2714,42.0437 27.2488,42.0533 27.1954,42.0623 27.0328,42.0424 27.0001,42.0363 26.9252,41.9559 26.8961,41.9596 26.5849,41.9256 26.5304,41.8876 26.5387,41.8514 26.5291,41.824 26.5219,41.8046 26.4991,41.7808 26.4365,41.7768 26.4102,41.7778 26.3452,41.775 26.3077,41.7351 26.2966,41.6982 26.3149,41.672 26.3247,41.6639 26.2658,41.6609 26.235,41.6659 26.1966,41.6924 26.1364,41.7007 26.1026,41.6922 26.0419,41.6672 26.03,41.6445 26.0328,41.6132 26.0653,41.5811 26.0937,41.5835 26.1468,41.4933 26.1622,41.3928 26.104,41.3083 25.9477,41.2737 25.8701,41.2646 25.8484,41.2628 25.7788,41.2896 25.6177,41.2711 25.5262,41.273 25.4686,41.243 25.3057,41.2035 25.2478,41.1965 25.2069,41.2071 25.1564,41.255 25.1514,41.2589 25.1285,41.2711 25.027,41.3161 25.0023,41.3238 24.8673,41.3653 24.7846,41.357 24.7786,41.3315 24.7756,41.3057 24.734,41.3238 24.5755,41.3858 24.5323,41.4498 24.4327,41.505 24.273,41.5008 24.2249,41.5226 24.1819,41.5082 24.1668,41.497 24.1241,41.4943 24.0601,41.5013 24.0311,41.4751 24.0332,41.4387 23.9438,41.394 23.8538,41.4053 23.7636,41.3901 23.7059,41.3619 23.601,41.3313 23.5657,41.334 23.5126,41.3478 23.4084,41.3626 23.2553,41.3575 23.1979,41.3295 23.1966,41.3076 23.1762,41.2865 23.1535,41.277 23.0882,41.2744 23.0627,41.2741 22.944,41.2888 22.9042,41.2955 22.9243,41.3092 22.935,41.3276 22.9275,41.4296 22.9203,41.5516 22.9227,41.589 22.9552,41.619 22.9835,41.6483 22.9992,41.6779 22.9777,41.7191 22.9345,41.7286 22.9111,41.7605 22.8661,41.835 22.8456,41.8907 22.7916,41.9798 22.6547,42.0177 22.5781,42.056 22.4885,42.1023 22.3768,42.2317 22.3345,42.2762 22.3798,42.2876 22.4285,42.3154 22.4897,42.3528 22.506,42.3777 22.5274,42.4353 22.5156,42.4649 22.4914,42.483 22.4373,42.5188 22.416,42.5515 22.412,42.7721 22.4901,42.8284 22.5637,42.8459 22.5838,42.8463 22.6271,42.8343 22.7102,42.8436 22.9347,43.053 22.96,43.0888 22.973,43.144 22.9089,43.1618 22.874,43.1809 22.8154,43.2377 22.7977,43.2828 22.7326,43.3377 22.6899,43.3518 22.6378,43.3668 22.5968,43.3817 22.5105,43.4266 22.3791,43.6679 22.3361,43.7775 22.3872,43.9585 22.5136,44.0109 22.5834,44.0695 22.5878,44.1199 22.6202,44.1631 22.65,44.1746 22.65,44.1746 28,2.0,Croatia 15.1729,43.8215 15.1634,43.8241 15.1272,43.8402 15.1164,43.8469 15.0871,43.8704 15.0787,43.8779 15.0509,43.9079 15.0363,43.9241 15.0262,43.9392 15.015,43.9539 15.0078,43.9623 14.9686,44.0056 14.9537,44.0179 14.8962,44.0591 14.8613,44.0802 14.8506,44.0928 14.8394,44.1068 14.8337,44.1227 14.9718,44.0337 15.0157,43.9772 15.0293,43.964 15.0629,43.9358 15.122,43.9021 15.1984,43.8599 15.2039,43.85 15.1959,43.841 15.1729,43.8215 15.1729,43.8215 16,11.0,Russia 146.67,43.811 146.6999,43.7906 146.6569,43.7471 146.5928,43.7104 146.5754,43.7024 146.4781,43.6584 146.4622,43.6545 146.4466,43.6563 146.3928,43.6848 146.3954,43.7464 146.4029,43.7556 146.58,43.8123 146.6415,43.825 146.6618,43.8183 146.67,43.811 146.67,43.811 691,2.0,Spain 1.4439,42.5538 1.4327,42.5285 1.4194,42.4977 1.4223,42.4455 1.4497,42.3983 1.5102,42.3886 1.5354,42.3886 1.6556,42.4217 1.7165,42.4552 1.7212,42.4616 1.7775,42.4403 1.849,42.4219 1.9039,42.3989 1.9564,42.3631 1.97,42.3316 1.9936,42.3148 2.0179,42.3049 2.0596,42.309 2.091,42.3164 2.1203,42.348 2.1417,42.3714 2.2701,42.3879 2.329,42.37 2.4377,42.3306 2.4737,42.3002 2.5306,42.285 2.667,42.3016 2.6534,42.3341 2.6746,42.3538 2.7209,42.3714 2.9461,42.4326 3.044,42.4182 3.0797,42.3868 3.1018,42.3814 3.1603,42.3864 3.1732,42.389 3.1648,42.3781 3.1548,42.333 3.1642,42.3119 3.1959,42.2972 3.2216,42.3018 3.2685,42.2942 3.3133,42.2729 3.2789,42.2151 3.26,42.1943 3.2094,42.1859 3.1813,42.2043 3.1504,42.2124 3.1137,42.1776 3.1073,42.1511 3.1129,42.097 3.1425,42.069 3.1748,42.0584 3.2066,42.0189 3.2162,41.8996 3.1973,41.8454 3.1711,41.8204 3.1192,41.8015 3.0078,41.7261 2.9334,41.6721 2.7137,41.5807 2.6732,41.566 2.6023,41.5438 2.5544,41.5305 2.5345,41.5235 2.2642,41.4133 2.2442,41.3956 2.162,41.2961 2.1484,41.2652 2.1144,41.2428 2.0756,41.2288 2.0513,41.2221 2.0023,41.2168 1.8876,41.2047 1.7592,41.1723 1.6993,41.1593 1.6736,41.1554 1.6493,41.1529 1.6144,41.1494 1.5299,41.1384 1.4964,41.1322 1.3208,41.0831 1.2035,41.055 1.0382,41.0163 0.9919,41.002 0.9631,40.9866 0.9386,40.9658 0.9234,40.9449 0.8982,40.9342 0.7027,40.751 0.7295,40.7254 0.847,40.6835 0.8691,40.6865 0.8955,40.6799 0.8841,40.6568 0.8568,40.6343 0.6889,40.526 0.6633,40.517 0.6356,40.5162 0.6206,40.5387 0.7084,40.5503 0.7338,40.5944 0.6957,40.5919 0.6096,40.5793 0.5884,40.5669 0.5412,40.5234 0.5186,40.4884 0.5185,40.483 0.4579,40.4018 0.356,40.2553 0.2803,40.1914 0.213,40.1384 0.0476,39.9889 0.0328,39.9628 -0.0369,39.8484 -0.0843,39.8067 -0.1111,39.7789 -0.1786,39.6916 -0.3171,39.4706 -0.3253,39.4506 -0.3369,39.3938 -0.2407,39.1001 -0.1947,39.0097 -0.1821,38.9852 -0.1431,38.9346 -0.0917,38.8859 -0.0647,38.8613 -0.0407,38.8458 0.0090,38.8187 0.0485,38.8163 0.077,38.814 0.1478,38.7848 0.1984,38.7601 0.215,38.7147 0.2071,38.6886 0.1639,38.6542 0.1439,38.6413 0.0419,38.5947 -0.0119,38.5821 -0.0524,38.5502 -0.1447,38.4937 -0.294,38.441 -0.3193,38.4286 -0.3786,38.3932 -0.5106,38.282 -0.5991,38.1423 -0.6556,38.0044 -0.7494,37.8471 -0.7588,37.8172 -0.7599,37.8035 -0.8001,37.7592 -0.8408,37.7067 -0.857,37.6731 -0.808,37.6189 -0.7857,37.6054 -0.7206,37.5971 -0.7015,37.5824 -0.7225,37.5602 -0.743,37.5519 -0.9171,37.5096 -0.9512,37.5139 -0.9766,37.5326 -1.0467,37.5369 -1.2369,37.5331 -1.3255,37.5158 -1.3489,37.5073 -1.4462,37.4489 -1.4652,37.4302 -1.4824,37.3967 -1.5071,37.3799 -1.5656,37.3578 -1.6311,37.3349 -1.6411,37.3309 -1.6818,37.304 -1.7919,37.1856 -1.8107,37.1486 -1.8211,37.1094 -1.8241,37.0833 -1.8442,37.0404 -1.8995,36.9307 -1.9293,36.898 -1.9898,36.8487 -2.0559,36.7668 -2.0587,36.7386 -2.1199,36.6922 -2.189,36.6792 -2.2142,36.7044 -2.2279,36.7234 -2.2882,36.7842 -2.3439,36.7994 -2.4785,36.7886 -2.5544,36.772 -2.5806,36.7455 -2.5949,36.7173 -2.6076,36.6886 -2.6413,36.6568 -2.6889,36.6441 -2.7189,36.6405 -2.7649,36.6374 -2.8695,36.6653 -2.8881,36.6879 -2.9193,36.7063 -3.1207,36.7092 -3.2263,36.7069 -3.2547,36.7057 -3.3323,36.6959 -3.3553,36.6784 -3.4208,36.6525 -3.4553,36.6509 -3.4785,36.6546 -3.5247,36.6746 -3.5967,36.7053 -3.6349,36.6994 -3.6673,36.6909 -3.6895,36.6874 -3.7205,36.6876 -3.7805,36.7015 -3.811,36.7089 -3.8437,36.7115 -4.0194,36.7004 -4.1647,36.6788 -4.2341,36.6723 -4.3188,36.6695 -4.354,36.6763 -4.3937,36.6802 -4.4295,36.656 -4.4558,36.6148 -4.4839,36.5743 -4.6333,36.4675 -4.7051,36.4475 -4.7513,36.4447 -4.7814,36.4479 -4.8163,36.4568 -4.8459,36.4599 -4.8716,36.4601 -4.9074,36.4582 -4.9335,36.4508 -5.0732,36.4057 -5.1657,36.371 -5.2122,36.33 -5.3054,36.1905 -5.319,36.1568 -5.3261,36.1313 -5.3275,36.1222 -5.3485,36.1227 -5.381,36.1384 -5.4182,36.1331 -5.4374,36.0984 -5.4186,36.0351 -5.4417,36.0117 -5.6061,35.9657 -5.7946,36.037 -5.8087,36.0511 -5.8248,36.0718 -5.8396,36.0873 -5.8738,36.1218 -5.9071,36.1396 -6.0176,36.144 -6.0245,36.1406 -6.0361,36.1455 -6.15,36.2648 -6.2188,36.3641 -6.2539,36.4351 -6.229,36.423 -6.2093,36.4279 -6.1665,36.4737 -6.2262,36.5372 -6.2892,36.573 -6.3289,36.5795 -6.3565,36.5756 -6.3866,36.5887 -6.424,36.6511 -6.4348,36.6776 -6.4309,36.7005 -6.347,36.8197 -6.57,36.9779 -6.717,37.0505 -6.8954,37.124 -6.9507,37.1803 -6.9692,37.1708 -6.9627,37.136 -6.9876,37.1494 -7.044,37.1714 -7.0709,37.1757 -7.1178,37.1789 -7.1638,37.1756 -7.249,37.1664 -7.2749,37.1635 -7.3275,37.1459 -7.3467,37.134 -7.3815,37.1336 -7.3994,37.1598 -7.422,37.2113 -7.4248,37.3251 -7.4372,37.3766 -7.4513,37.4152 -7.4612,37.4394 -7.4746,37.457 -7.493,37.4806 -7.5026,37.4865 -7.5144,37.5104 -7.4368,37.657 -7.4132,37.7015 -7.3769,37.7272 -7.3101,37.7728 -7.2717,37.8231 -7.2429,37.8886 -7.242,37.917 -7.2437,37.9412 -7.2012,37.9542 -7.1141,37.9673 -6.9947,37.9883 -6.9424,38.0971 -6.932,38.1275 -6.9245,38.1661 -6.938,38.1744 -6.9838,38.1666 -7.0072,38.1512 -7.0782,38.1341 -7.0925,38.1465 -7.1203,38.1828 -7.1354,38.2032 -7.1601,38.2415 -7.1826,38.2774 -7.2677,38.3764 -7.2867,38.3885 -7.3073,38.4018 -7.2575,38.66 -7.2473,38.6799 -7.1974,38.7058 -7.1545,38.7384 -7.0744,38.7921 -7.0505,38.817 -6.9463,38.9793 -6.9517,39.013 -6.9731,39.0475 -7.0034,39.0678 -7.0437,39.076 -7.0932,39.061 -7.1153,39.0626 -7.1361,39.0701 -7.2328,39.1689 -7.3037,39.3004 -7.3128,39.3442 -7.3654,39.4494 -7.4924,39.5583 -7.5147,39.5923 -7.5221,39.6249 -7.4009,39.6041 -7.3227,39.601 -7.297,39.6123 -7.2537,39.6276 -7.1955,39.6228 -7.148,39.6157 -7.0433,39.6192 -7.0077,39.6305 -6.98,39.68 -6.8613,39.9711 -6.8731,39.9992 -6.9194,40.0565 -6.9373,40.0679 -6.9728,40.074 -6.999,40.0878 -7.0176,40.1425 -6.9987,40.1817 -6.937,40.2138 -6.9007,40.2111 -6.8686,40.2165 -6.8529,40.2261 -6.8215,40.272 -6.806,40.3422 -6.7868,40.479 -6.8099,40.6875 -6.7921,40.811 -6.8532,40.9067 -6.8818,40.9287 -6.9207,40.9694 -6.9149,40.9847 -6.8319,40.9838 -6.7959,40.9994 -6.7649,41.0246 -6.7448,41.0611 -6.7438,41.0904 -6.6792,41.164 -6.6345,41.1981 -6.6087,41.1999 -6.5799,41.1955 -6.549,41.1957 -6.501,41.2186 -6.429,41.2722 -6.349,41.3339 -6.2871,41.3896 -6.2036,41.4899 -6.1816,41.5326 -6.2474,41.5935 -6.2947,41.6164 -6.3382,41.6251 -6.4204,41.6328 -6.4517,41.6237 -6.4925,41.6126 -6.5362,41.6399 -6.5382,41.7181 -6.5188,41.7921 -6.5392,41.8748 -6.5928,41.902 -6.6876,41.8895 -6.8963,41.8975 -6.9307,41.9037 -6.9731,41.9267 -6.9989,41.9074 -7.0461,41.9039 -7.066,41.9117 -7.089,41.9363 -7.1212,41.9464 -7.1747,41.93 -7.1683,41.8844 -7.1769,41.8512 -7.1906,41.8363 -7.1972,41.8367 -7.258,41.8164 -7.3208,41.7977 -7.4083,41.7758 -7.5984,41.7885 -7.5872,41.8181 -7.6818,41.8568 -7.7485,41.8502 -7.847,41.8126 -7.8655,41.8055 -7.9157,41.8306 -8.0239,41.7802 -8.0437,41.7722 -8.0561,41.7683 -8.0763,41.7622 -8.1247,41.7621 -8.1525,41.77 -8.1503,41.7803 -8.154,41.8116 -8.1821,41.8261 -8.2067,41.8602 -8.1974,41.8815 -8.1536,41.927 -8.1233,41.9517 -8.0907,41.9636 -8.0734,41.9755 -8.0722,42.0131 -8.1861,42.1033 -8.2405,42.091 -8.2988,42.0563 -8.4342,42.0372 -8.4617,42.0373 -8.5061,42.0354 -8.6019,42.0089 -8.628,41.998 -8.729,41.9204 -8.7328,41.905 -8.7526,41.8875 -8.7715,41.8755 -8.8039,41.8728 -8.8357,41.8522 -8.8626,41.8321 -8.876,41.8865 -8.885,42.063 -8.7984,42.1392 -8.7542,42.1687 -8.7106,42.1926 -8.6321,42.2407 -8.5677,42.3013 -8.5877,42.3058 -8.6138,42.2973 -8.6412,42.2551 -8.6715,42.232 -8.7485,42.2114 -8.7817,42.2059 -8.8524,42.2019 -8.8404,42.2483 -8.8097,42.2807 -8.7811,42.29 -8.68,42.3528 -8.6599,42.3665 -8.6441,42.38 -8.684,42.3896 -8.7346,42.3648 -8.768,42.3491 -8.8284,42.3436 -8.8681,42.3738 -8.8936,42.4271 -8.8762,42.4503 -8.8481,42.4394 -8.856,42.4119 -8.8237,42.4141 -8.802,42.4438 -8.7974,42.4713 -8.8195,42.5011 -8.7994,42.5278 -8.7667,42.5479 -8.7347,42.5901 -8.7073,42.6271 -8.7081,42.6502 -8.8389,42.6128 -8.9084,42.5785 -8.9247,42.5522 -8.9827,42.4845 -9.0165,42.4761 -9.0485,42.5314 -9.0438,42.5618 -9.0218,42.6227 -9.0099,42.6513 -8.9936,42.6725 -8.9033,42.7408 -8.996,42.7282 -9.074,42.692 -9.093,42.7042 -9.1103,42.7207 -9.1196,42.7513 -9.1117,42.7918 -9.1309,42.8449 -9.1497,42.8773 -9.1753,42.9026 -9.2507,42.8651 -9.2804,42.8742 -9.2462,42.9987 -9.1952,43.1064 -9.1569,43.1371 -9.119,43.1474 -9.0764,43.1416 -9.0224,43.1551 -8.9312,43.186 -8.9647,43.2297 -8.9375,43.2445 -8.8637,43.2709 -8.8118,43.2782 -8.7705,43.2541 -8.7118,43.2422 -8.6892,43.2384 -8.677,43.2432 -8.6451,43.2544 -8.3936,43.3358 -8.3179,43.3548 -8.2539,43.5034 -7.9954,43.6543 -7.887,43.7147 -7.8471,43.7147 -7.8394,43.6652 -7.7915,43.6774 -7.7136,43.6982 -7.6748,43.6991 -7.5061,43.6848 -7.453,43.6768 -7.3531,43.6246 -7.3232,43.5892 -7.2855,43.5467 -7.2372,43.5128 -7.1943,43.5158 -7.0285,43.5009 -7.0347,43.4413 -7.0092,43.4905 -6.9893,43.5116 -6.9336,43.5287 -6.7569,43.5184 -6.5914,43.5092 -6.4722,43.5057 -6.3339,43.5077 -6.2868,43.5203 -6.0929,43.5124 -6.0672,43.5164 -5.9364,43.5448 -5.875,43.5741 -5.8456,43.5985 -5.7704,43.568 -5.7452,43.5412 -5.7251,43.527 -5.6694,43.4957 -5.6379,43.4959 -5.6021,43.5012 -5.5411,43.5029 -5.452,43.5048 -5.3903,43.5033 -5.2722,43.4804 -5.2517,43.4692 -5.2271,43.4462 -5.195,43.4291 -5.0491,43.421 -4.9727,43.4119 -4.8751,43.3996 -4.7468,43.3765 -4.7267,43.3699 -4.6403,43.3586 -4.5882,43.3539 -4.5079,43.3473 -4.4947,43.352 -4.4184,43.3526 -4.3837,43.3489 -4.3092,43.3417 -4.2671,43.3414 -4.2123,43.3478 -4.1161,43.3673 -4.0455,43.3934 -3.9392,43.4186 -3.8049,43.4434 -3.782,43.4403 -3.7609,43.4208 -3.5802,43.461 -3.5448,43.4577 -3.4463,43.4164 -3.3205,43.3691 -3.2199,43.3478 -3.1461,43.3046 -3.0177,43.3083 -2.9982,43.3343 -2.9304,43.3864 -2.8521,43.3836 -2.8036,43.3813 -2.7317,43.3771 -2.5614,43.3412 -2.507,43.3287 -2.4839,43.3097 -2.4549,43.2889 -2.3474,43.2562 -2.2922,43.2473 -2.1602,43.2422 -2.1188,43.2476 -1.9718,43.2836 -1.8362,43.3316 -1.7832,43.3412 -1.7782,43.3108 -1.7742,43.2934 -1.7278,43.2502 -1.6997,43.257 -1.6532,43.2606 -1.5015,43.2388 -1.4069,43.2241 -1.383,43.2036 -1.3816,43.1607 -1.4209,43.0746 -1.4645,43.0433 -1.4372,43.0007 -1.3958,42.9894 -1.3461,42.9877 -1.2984,43.023 -1.1988,42.9972 -1.071,42.9578 -0.9922,42.9277 -0.9386,42.9055 -0.8172,42.8975 -0.7874,42.9062 -0.7528,42.9158 -0.7223,42.8815 -0.7222,42.8706 -0.7296,42.8527 -0.7148,42.8361 -0.5547,42.7317 -0.391,42.7481 -0.3173,42.784 -0.3082,42.8 -0.3024,42.7935 -0.2621,42.769 -0.205,42.7458 -0.1795,42.736 -0.1517,42.7284 -0.1233,42.7092 -0.0578,42.6516 0.0027,42.6378 0.1118,42.6611 0.1441,42.6741 0.1807,42.6862 0.2687,42.6593 0.4321,42.6383 0.5049,42.6433 0.5594,42.6477 0.5949,42.6467 0.661,42.6438 0.6746,42.6401 0.6806,42.6525 0.6817,42.6731 0.661,42.7029 0.6513,42.7367 0.6668,42.7908 0.6918,42.8051 0.7153,42.8104 0.8225,42.7847 0.8957,42.7645 1.0869,42.7367 1.1253,42.7166 1.1423,42.6851 1.1724,42.6616 1.3234,42.6693 1.3575,42.667 1.3886,42.64 1.4152,42.6027 1.4439,42.5538 1.4439,42.5538 9,9.0,Japan 145.0522,43.5456 145.0921,43.5469 145.1333,43.5274 145.1545,43.5039 145.0848,43.4969 145.0934,43.5211 145.0729,43.5322 145.0522,43.5456 145.0522,43.5456 297,4.0,Georgia 39.9472,43.3301 39.9535,43.3628 39.9654,43.3952 40.0253,43.5018 40.0428,43.5132 40.0708,43.523 40.1141,43.5318 40.1553,43.5354 40.1972,43.5334 40.2385,43.5267 40.2684,43.5204 40.2966,43.51 40.4324,43.4686 40.4622,43.4626 40.4866,43.4594 40.5207,43.463 40.5515,43.4795 40.5864,43.4946 40.6238,43.497 40.6393,43.4938 40.6622,43.4703 40.687,43.4576 40.7542,43.4379 40.7775,43.4343 40.8072,43.4279 40.8332,43.4164 40.904,43.3746 40.9571,43.3415 40.9841,43.3272 41.0117,43.324 41.0698,43.3353 41.111,43.3381 41.1358,43.3355 41.1565,43.3297 41.3781,43.247 41.5072,43.1835 41.5397,43.1726 41.9729,43.1388 42.0525,43.1484 42.1107,43.1823 42.1306,43.1877 42.2119,43.1893 42.3052,43.1887 42.321,43.1901 42.3652,43.1898 42.4013,43.1813 42.4247,43.1705 42.4739,43.133 42.5603,43.0968 42.5867,43.0958 42.6107,43.1105 42.6357,43.1315 42.7102,43.137 42.7957,43.129 42.8894,43.0728 42.9509,43.0152 43.0793,42.9182 43.1241,42.896 43.1473,42.8857 43.3175,42.8522 43.3329,42.8515 43.3868,42.8409 43.4723,42.8199 43.5001,42.8125 43.5372,42.7981 43.5612,42.785 43.5805,42.7615 43.6104,42.7427 43.644,42.7325 43.6958,42.7275 43.7684,42.701 43.7731,42.6809 43.7453,42.6539 43.7021,42.6249 43.6792,42.6014 43.7165,42.556 43.8511,42.5353 44.1339,42.5791 44.162,42.5904 44.1798,42.6079 44.3078,42.6599 44.4379,42.7027 44.4654,42.7082 44.4963,42.7115 44.532,42.7101 44.5677,42.7041 44.5764,42.7007 44.5869,42.7005 44.6163,42.6934 44.6435,42.6789 44.6888,42.6447 44.7037,42.6224 44.7464,42.617 44.7975,42.6986 44.8317,42.7134 44.8688,42.713 44.8926,42.7021 44.9119,42.6887 44.9476,42.6664 44.9834,42.6477 45.0038,42.6452 45.0291,42.6493 45.0577,42.6586 45.0805,42.6605 45.1025,42.6551 45.1494,42.628 45.1793,42.6027 45.2566,42.5301 45.2707,42.5108 45.2793,42.4927 45.305,42.4792 45.3693,42.4895 45.4251,42.4998 45.4638,42.5029 45.4898,42.5022 45.5129,42.4981 45.6374,42.4682 45.6644,42.4568 45.6877,42.4396 45.697,42.4301 45.6944,42.4174 45.6442,42.3083 45.6265,42.2713 45.5878,42.2042 45.575,42.1727 45.5919,42.1524 45.9234,41.9811 45.9906,41.9775 46.1754,41.9534 46.3363,41.8908 46.3617,41.8754 46.3824,41.8572 46.3878,41.8498 46.3717,41.8146 46.3506,41.7845 46.2869,41.7264 46.2609,41.7093 46.227,41.7105 46.1925,41.7174 46.1667,41.7153 46.1461,41.6997 46.1344,41.6781 46.1308,41.6511 46.1324,41.6304 46.1527,41.5782 46.1696,41.5518 46.2684,41.4366 46.4386,41.3494 46.4892,41.3404 46.5292,41.3329 46.5572,41.3184 46.6257,41.2709 46.6469,41.212 46.6331,41.1652 46.6026,41.1043 46.5585,41.0542 46.4511,41.002 46.429,41.0054 46.3146,41.058 46.2961,41.0707 46.2771,41.0837 46.2305,41.1165 46.2104,41.132 46.1765,41.1581 46.0723,41.156 46.0284,41.1326 45.9992,41.1257 45.9765,41.124 45.934,41.1273 45.9029,41.1326 45.8594,41.1428 45.8326,41.1512 45.8066,41.1595 45.7881,41.1662 45.7418,41.1841 45.6851,41.2137 45.6486,41.2407 45.6502,41.2653 45.654,41.302 45.5486,41.3353 45.2793,41.4141 45.2444,41.4143 45.2233,41.4106 45.1986,41.4026 45.1242,41.3582 45.0795,41.3302 44.9895,41.2699 44.9613,41.2506 44.9168,41.2236 44.8082,41.1704 44.7874,41.1667 44.7633,41.1662 44.6671,41.1657 44.5051,41.139 44.4231,41.1412 44.3691,41.1458 44.2799,41.1661 44.1882,41.1772 44.1123,41.1506 44.0841,41.1385 44.0622,41.1357 43.9325,41.1179 43.8322,41.1189 43.7964,41.1139 43.7734,41.0992 43.7315,41.0722 43.6962,41.0665 43.6746,41.0672 43.5776,41.0767 43.5399,41.0832 43.5104,41.0892 43.4867,41.0887 43.4011,41.0667 43.4147,41.0916 43.3957,41.1216 43.3703,41.1372 43.3189,41.1552 43.2902,41.1557 43.1745,41.1439 43.0671,41.2735 42.9808,41.3276 42.9571,41.3468 42.8338,41.46 42.7723,41.5356 42.6225,41.5478 42.5929,41.5458 42.5457,41.538 42.5325,41.5317 42.4996,41.4552 42.425,41.3918 42.4138,41.3867 42.397,41.388 42.3087,41.4134 42.2536,41.4301 42.2222,41.4429 42.1167,41.4608 42.0399,41.4606 41.9219,41.4712 41.9007,41.4699 41.8526,41.4416 41.8254,41.4114 41.7725,41.3836 41.7022,41.4219 41.6673,41.4456 41.5121,41.4714 41.4744,41.4772 41.559,41.5876 41.5892,41.5974 41.6267,41.6248 41.6713,41.6762 41.7164,41.7684 41.7186,41.7949 41.7173,41.8382 41.7033,41.9141 41.6017,42.0784 41.5956,42.1002 41.5986,42.1281 41.5893,42.1727 41.5754,42.2243 41.5356,42.3066 41.49,42.3579 41.479,42.4049 41.4713,42.4387 41.4682,42.473 41.4677,42.5021 41.4429,42.577 41.4271,42.6204 41.4124,42.6461 41.3985,42.6661 41.3835,42.6816 41.3623,42.6933 41.3142,42.7096 41.1584,42.7511 41.1337,42.7478 41.1019,42.7416 41.0413,42.7983 41.0281,42.8421 41.0183,42.8745 40.9692,42.9296 40.9457,42.939 40.905,42.9263 40.8797,42.925 40.8522,42.9534 40.8204,42.9959 40.8031,43.0106 40.7802,43.0213 40.7453,43.0301 40.6702,43.0407 40.6049,43.0431 40.3045,43.1144 40.2161,43.198 40.1985,43.2255 40.1626,43.2676 40.0532,43.3047 39.9955,43.3214 39.9472,43.3301 39.9472,43.3301 22,2.0,Croatia 16.664,43.2128 16.6058,43.2132 16.5547,43.2196 16.497,43.2275 16.4651,43.2365 16.3921,43.2656 16.383,43.277 16.4092,43.3414 16.5781,43.3303 16.6773,43.3195 16.73,43.3138 16.7528,43.3103 16.784,43.3023 16.8614,43.2684 16.8639,43.2488 16.824,43.2192 16.8026,43.2188 16.7701,43.2197 16.6934,43.2173 16.683,43.2164 16.664,43.2128 16.664,43.2128 19,2.0,Croatia 17.034,43.0637 16.8564,43.0717 16.643,43.0706 16.6312,43.0709 16.511,43.095 16.4418,43.1115 16.4076,43.1208 16.3549,43.1465 16.4343,43.1616 16.4531,43.1632 16.5424,43.1694 16.5904,43.1649 16.6393,43.1514 16.7879,43.1127 16.9377,43.1003 17.0926,43.0874 17.0862,43.0677 17.034,43.0637 17.034,43.0637 587,6.0,Kyrgyzstan 70.8645,42.2068 70.8162,42.2168 70.775,42.2614 70.786,42.2757 70.8296,42.3095 70.8633,42.3513 70.8576,42.3795 70.9371,42.5294 70.9585,42.5402 71.0705,42.5835 71.071,42.6404 71.1765,42.7109 71.3257,42.7558 71.3888,42.7452 71.411,42.7411 71.4787,42.7159 71.504,42.7172 71.5401,42.7334 71.5585,42.7438 71.617,42.7699 71.6475,42.7751 71.7222,42.7778 71.7983,42.7791 71.8577,42.7691 71.8894,42.7609 72.0717,42.7253 72.1723,42.7268 72.1967,42.7253 72.253,42.7054 72.3575,42.6685 72.5208,42.6372 72.648,42.61 72.6853,42.5943 72.7144,42.5548 72.7362,42.5266 72.7635,42.5133 72.7829,42.5059 72.8076,42.5001 72.859,42.4911 72.919,42.5026 73.0512,42.5125 73.2343,42.4551 73.2339,42.4056 73.2452,42.3815 73.4189,42.3613 73.4309,42.3823 73.4206,42.3968 73.4117,42.4061 73.3717,42.4559 73.3494,42.4854 73.3409,42.5039 73.3318,42.5367 73.3323,42.5793 73.3619,42.6657 73.3931,42.7004 73.4225,42.7488 73.428,42.783 73.4379,42.8818 73.484,42.9917 73.5483,43.0191 73.6105,43.0363 73.6872,43.0559 73.8123,43.0763 73.8357,43.0995 73.9563,43.1394 74.1311,43.1612 74.1904,43.1682 74.2426,43.1568 74.2884,43.1465 74.4718,43.0777 74.5105,43.0398 74.5649,42.9954 74.6418,42.948 74.677,42.9419 74.7239,42.9443 74.7608,42.9381 74.7893,42.9307 74.9627,42.8671 75.0795,42.8206 75.1388,42.8067 75.2132,42.805 75.4575,42.7862 75.4869,42.7799 75.5173,42.7694 75.5663,42.7587 75.6442,42.8046 75.6647,42.8366 75.6803,42.8705 75.6853,42.8871 75.6911,42.8902 75.7395,42.8969 75.798,42.8984 76.0097,42.8935 76.1343,42.8882 76.2189,42.8754 76.2716,42.8618 76.3179,42.8511 76.5105,42.8519 76.6272,42.8704 76.7124,42.9039 76.7419,42.93 76.874,42.9471 77.0314,42.919 77.051,42.9104 77.1011,42.8695 77.1611,42.868 77.2999,42.8723 77.4279,42.873 77.5612,42.8668 77.6142,42.8664 77.8365,42.8468 77.8574,42.8377 77.8848,42.8214 77.9895,42.809 78.012,42.8137 78.0441,42.8206 78.0722,42.8223 78.3432,42.8392 78.4075,42.8362 78.4278,42.831 78.561,42.7787 78.9218,42.7115 78.9473,42.717 79.0001,42.7385 79.0287,42.7445 79.0654,42.7492 79.096,42.7353 79.0925,42.7098 79.0881,42.6869 79.0899,42.6633 79.1053,42.6309 79.1232,42.6105 79.1548,42.5846 79.1869,42.5692 79.2146,42.5664 79.2504,42.5547 79.2779,42.5183 79.2966,42.4781 79.3137,42.4426 79.3339,42.4241 79.3597,42.4174 79.4001,42.4108 79.4317,42.407 79.4686,42.4055 79.5019,42.41 79.5732,42.4222 79.6027,42.4263 79.8089,42.3935 79.8459,42.3848 80.0048,42.2539 80.0448,42.2007 80.0618,42.176 80.0812,42.1614 80.1034,42.1531 80.123,42.1486 80.1352,42.1276 80.1707,42.0356 80.1585,42.007 80.1345,41.9921 80.1033,41.9833 80.0692,41.9792 80.0289,41.9785 79.9515,41.9873 79.9149,41.9889 79.8668,41.9869 79.8134,41.9777 79.786,41.9725 79.763,41.9661 79.7343,41.9447 79.716,41.9186 79.7055,41.8775 79.6817,41.8476 79.6435,41.8352 79.6122,41.8345 79.5839,41.8374 79.5493,41.836 79.417,41.7841 79.2315,41.7449 79.0382,41.6728 78.9507,41.6354 78.8497,41.5947 78.65,41.5162 78.6186,41.5071 78.5874,41.496 78.5625,41.485 78.4231,41.4173 78.2877,41.3464 78.2628,41.3261 78.2559,41.3064 78.2689,41.2717 78.2756,41.2474 78.2622,41.2285 78.219,41.2069 78.1999,41.1957 78.1831,41.1831 78.1577,41.1515 78.1447,41.1291 78.1387,41.1189 78.1294,41.0993 78.0993,41.0696 78.0818,41.055 78.0315,41.023 77.9738,40.9946 77.9481,40.9976 77.9217,41.01 77.891,41.014 77.7538,41.0236 77.721,41.0163 77.6735,40.9944 77.5782,40.9559 77.4372,40.9404 77.3996,40.94 77.3686,40.9509 77.3302,40.9664 77.276,40.9787 77.232,40.9812 77.1685,40.96 77.0343,40.9698 77.0033,40.981 76.9676,41.0005 76.9159,41.0032 76.8158,40.9813 76.7918,40.975 76.7654,40.9665 76.6857,40.9049 76.5435,40.6953 76.5436,40.6587 76.5397,40.5732 76.5254,40.557 76.4819,40.5319 76.4653,40.5166 76.4464,40.4937 76.433,40.474 76.4218,40.4533 76.4097,40.4135 76.3891,40.3913 76.3459,40.3585 76.2302,40.3079 76.2108,40.3393 76.1196,40.3582 75.9955,40.3527 75.9644,40.3502 75.9414,40.3433 75.8799,40.3212 75.8632,40.3 75.8397,40.2696 75.7966,40.2558 75.6005,40.2526 75.585,40.2665 75.5758,40.2896 75.5625,40.3284 75.5255,40.4922 75.5265,40.5241 75.521,40.5489 75.5009,40.5827 75.4796,40.5987 75.4277,40.5841 75.3832,40.5631 75.2368,40.4809 75.1748,40.4368 75.1313,40.4048 74.9635,40.4021 74.9188,40.4112 74.8886,40.4204 74.8686,40.4281 74.834,40.4462 74.8056,40.463 74.78,40.4736 74.7566,40.4716 74.7427,40.4582 74.7299,40.418 74.724,40.3624 74.743,40.347 74.7749,40.3199 74.7885,40.3036 74.7789,40.2824 74.7468,40.2794 74.7188,40.2866 74.6585,40.2995 74.6323,40.2953 74.4986,40.2168 74.4508,40.1777 74.4132,40.143 74.3409,40.0943 74.3135,40.0774 74.2823,40.0626 74.2533,40.0528 74.2211,40.0476 74.1938,40.0478 74.1568,40.0663 74.125,40.0723 74.0884,40.0665 73.9239,40.0224 73.8905,39.9969 73.748,39.7723 73.7432,39.7242 73.7626,39.7005 73.8074,39.6836 73.825,39.6483 73.855,39.5554 73.7641,39.4409 73.7404,39.4294 73.6863,39.4237 73.5564,39.4105 73.555,39.4164 73.4259,39.429 73.3923,39.4256 73.2692,39.3936 73.2588,39.3597 73.0873,39.3142 73.0652,39.3103 72.7645,39.3178 72.7069,39.3272 72.6798,39.3339 72.5911,39.3537 72.5598,39.3571 72.5354,39.3464 72.5011,39.3219 72.3868,39.3054 72.356,39.3086 72.327,39.3145 72.2504,39.2943 72.2277,39.2728 72.217,39.2425 72.2092,39.213 72.1618,39.1514 72.0428,39.2304 72.0013,39.3042 71.9808,39.3272 71.8745,39.3037 71.837,39.2828 71.8027,39.2625 71.7646,39.2443 71.6823,39.2336 71.6462,39.2647 71.6363,39.2897 71.6475,39.3167 71.6767,39.3473 71.6787,39.3729 71.6613,39.4116 71.6179,39.4173 71.5846,39.4089 71.558,39.4061 71.5005,39.4051 71.4677,39.4099 71.4414,39.42 71.421,39.4444 71.4222,39.4645 71.4524,39.5034 71.4523,39.5279 71.4181,39.5601 71.388,39.5735 71.3101,39.5618 71.2304,39.5254 71.1002,39.4888 71.0069,39.4682 70.9783,39.4454 70.9603,39.4091 70.9482,39.381 70.9325,39.3669 70.8986,39.3566 70.7531,39.3666 70.626,39.3813 70.5994,39.4449 70.5776,39.4626 70.5765,39.4739 70.566,39.5052 70.5377,39.5352 70.4122,39.5627 70.3868,39.5621 70.2612,39.5377 70.2073,39.5071 70.1427,39.533 70.0867,39.5399 69.8716,39.5099 69.7524,39.493 69.7302,39.5011 69.7068,39.5178 69.688,39.5282 69.6561,39.5377 69.6139,39.5435 69.5781,39.5418 69.5152,39.5378 69.4874,39.5292 69.4575,39.5058 69.4226,39.4943 69.2399,39.4743 69.2153,39.4906 69.2081,39.5162 69.2162,39.5549 69.2207,39.5857 69.2204,39.6153 69.2162,39.6424 69.205,39.6598 69.1689,39.6888 69.1558,39.7132 69.1634,39.7538 69.1739,39.7935 69.1911,39.8426 69.2408,39.9477 69.3135,39.8933 69.3308,39.8601 69.4041,39.8761 69.4298,39.8898 69.4113,39.9178 69.3911,39.9928 69.4046,40.0279 69.4462,40.0837 69.4751,40.0643 69.5109,40.067 69.5423,40.0737 69.5977,40.0875 69.7229,40.1252 69.9166,40.1729 69.9572,40.1624 70.1901,40.0876 70.2137,40.0707 70.2339,40.0458 70.2558,40.0371 70.3307,40.0253 70.4165,40.0118 70.4464,40.001 70.4624,39.9833 70.4507,39.9579 70.422,39.9436 70.3932,39.9244 70.3727,39.8833 70.3986,39.8635 70.5073,39.9136 70.5268,39.9256 70.5437,39.94 70.5583,39.9625 70.5642,39.9997 70.5674,40.0557 70.7896,40.126 70.8252,40.1237 70.8607,40.1297 70.8889,40.1448 70.8982,40.1832 70.8855,40.1995 70.899,40.2223 70.971,40.2324 70.9973,40.2327 71.0422,40.2321 71.1497,40.2417 71.202,40.2646 71.2926,40.2564 71.3736,40.2236 71.3873,40.1934 71.4081,40.1786 71.4269,40.1704 71.6165,40.1028 71.6849,40.1293 71.71,40.1484 71.8055,40.2051 71.9456,40.2212 71.9146,40.289 72.0138,40.3869 72.081,40.4163 72.1084,40.4194 72.1286,40.4192 72.1594,40.4198 72.1843,40.4017 72.2464,40.3637 72.295,40.3471 72.3217,40.3426 72.3338,40.359 72.3475,40.3882 72.3542,40.4132 72.3352,40.4424 72.301,40.4616 72.281,40.4805 72.2748,40.5572 72.3057,40.5708 72.4921,40.4758 72.53,40.4678 72.5545,40.4739 72.5745,40.4901 72.6113,40.5393 72.7063,40.6292 72.7524,40.6431 72.7783,40.6476 72.844,40.667 73.0042,40.7291 73.047,40.7538 73.0673,40.783 73.0524,40.8011 72.9491,40.8224 72.7995,40.8218 72.6259,40.823 72.6026,40.8244 72.5605,40.8331 72.5219,40.8487 72.5064,40.8819 72.4804,40.9076 72.4041,40.9706 72.2962,40.9941 72.22,40.986 72.0967,40.9604 72.1165,41.0059 72.0822,41.1462 72.051,41.1577 72.0124,41.1499 71.8104,41.1431 71.7897,41.1544 71.791,41.1996 71.7975,41.2284 71.7955,41.2558 71.7894,41.2844 71.768,41.3112 71.5896,41.5096 71.5469,41.5079 71.5211,41.4575 71.5274,41.4373 71.5516,41.4161 71.5613,41.382 71.5529,41.3508 71.5198,41.2871 71.5003,41.2691 71.4776,41.2551 71.4475,41.256 71.4037,41.2717 71.3495,41.3039 71.3363,41.2861 71.3409,41.211 71.3441,41.1838 71.3443,41.1494 71.3425,41.0967 71.3256,41.0744 71.2993,41.0791 71.1478,41.148 71.1103,41.1401 71.0592,41.1145 70.891,41.1571 70.7161,41.2039 70.6954,41.2844 70.696,41.3084 70.6742,41.3482 70.6136,41.4236 70.5724,41.4291 70.5369,41.4122 70.5039,41.3972 70.4341,41.3724 70.3919,41.3642 70.3773,41.3656 70.3383,41.4125 70.3168,41.431 70.2734,41.4525 70.2511,41.4588 70.2266,41.4638 70.1959,41.4684 70.1699,41.4678 70.1098,41.4722 70.0843,41.4943 70.0878,41.5356 70.108,41.5519 70.1552,41.568 70.1885,41.578 70.2118,41.5863 70.3774,41.6693 70.3946,41.6851 70.4052,41.7034 70.4193,41.7384 70.4335,41.7529 70.6026,41.8629 70.6544,41.8652 70.6877,41.8664 70.749,41.884 70.7539,41.9233 70.7616,41.9797 70.7793,41.9943 70.8144,41.9982 70.8473,41.9922 70.8828,41.9952 71.1242,42.0944 71.1652,42.1269 71.1772,42.1506 71.1767,42.1566 71.1654,42.1579 71.1332,42.1707 71.074,42.2019 71.0244,42.2297 70.9661,42.2547 70.9351,42.2513 70.8825,42.2142 70.8645,42.2068 70.8645,42.2068 14,2.0,Croatia 16.0711,42.9615 16.0422,42.962 16.0284,43.0142 16.0438,43.0216 16.0629,43.029 16.0815,43.0325 16.0917,43.0335 16.1174,43.034 16.1625,43.0329 16.2081,43.0296 16.2298,43.0161 16.1873,42.9749 16.0711,42.9615 16.0711,42.9615 14,10.0,Russia 131.7397,42.9464 131.7349,42.9374 131.7157,42.9122 131.69,42.9083 131.6411,42.905 131.5705,42.9387 131.5968,43.0007 131.6532,43.0141 131.6732,43.0088 131.6935,43.0004 131.734,42.9724 131.7399,42.9529 131.7397,42.9464 131.7397,42.9464 45,2.0,Croatia 18.43,42.5179 18.4279,42.4687 18.4321,42.4455 18.4475,42.4234 18.4724,42.4033 18.4776,42.4016 18.4972,42.3822 18.4915,42.3522 18.3319,42.4484 18.1895,42.5313 18.0327,42.6156 17.8526,42.7195 17.7181,42.7488 17.5284,42.7925 17.4149,42.8254 17.3409,42.8669 17.1798,42.9332 17.1565,42.927 17.1217,42.928 17.048,42.938 16.9887,42.9577 16.9871,42.9996 17.2448,42.9633 17.275,42.9585 17.4149,42.9054 17.4987,42.8717 17.633,42.8324 17.6254,42.8407 17.6615,42.8718 17.682,42.8787 17.7199,42.8716 17.7727,42.8554 17.8205,42.8123 17.8548,42.773 17.9353,42.731 17.9656,42.7165 18.1355,42.6469 18.2016,42.5974 18.2496,42.569 18.2817,42.5701 18.3155,42.5807 18.3372,42.5786 18.3794,42.5625 18.43,42.5179 18.43,42.5179 88,2.0,France 9.4854,42.5501 9.507,42.5244 9.5198,42.4974 9.5491,42.225 9.5469,42.1447 9.5396,42.0707 9.4351,41.9519 9.4125,41.9276 9.3954,41.8971 9.3841,41.8221 9.3876,41.7985 9.3915,41.7765 9.3861,41.6517 9.3651,41.6053 9.3078,41.5556 9.2589,41.4738 9.2295,41.4053 9.2383,41.3747 9.2072,41.3206 9.1701,41.3184 9.1199,41.3476 9.1033,41.3852 8.9636,41.4307 8.9289,41.4428 8.9052,41.4531 8.7786,41.5108 8.7734,41.5665 8.795,41.5868 8.8632,41.601 8.9049,41.6386 8.8666,41.651 8.8389,41.6519 8.7851,41.6631 8.714,41.6822 8.6932,41.7123 8.7357,41.7635 8.7769,41.8062 8.7905,41.8533 8.7685,41.8791 8.7299,41.8823 8.7003,41.8643 8.6568,41.861 8.6153,41.8593 8.5792,41.9164 8.6018,41.9235 8.6287,41.9213 8.6546,41.9371 8.6474,41.9608 8.7313,42.0021 8.6694,42.059 8.6272,42.0726 8.5966,42.0852 8.5755,42.1222 8.5588,42.174 8.6065,42.2055 8.6369,42.2106 8.6725,42.221 8.6199,42.2891 8.5999,42.302 8.5775,42.3028 8.564,42.3359 8.6532,42.463 8.7063,42.5224 8.8747,42.58 9.0448,42.6357 9.0731,42.6637 9.1049,42.6812 9.1384,42.6849 9.2403,42.6717 9.2613,42.648 9.2762,42.6268 9.3019,42.6452 9.3291,42.6899 9.3233,42.7495 9.2999,42.7811 9.3338,42.952 9.3704,42.9599 9.4083,42.9617 9.4464,42.9395 9.4755,42.7586 9.4545,42.7171 9.442,42.6704 9.4344,42.635 9.4372,42.5919 9.463,42.5311 9.4952,42.5225 9.4854,42.5501 9.4854,42.5501 415,9.0,North Korea 130.4236,42.3739 130.4519,42.3636 130.4782,42.3274 130.4721,42.2923 130.4744,42.2703 130.5168,42.2445 130.5015,42.2321 130.4191,42.2069 130.4156,42.2311 130.3989,42.2575 130.3196,42.2762 130.2922,42.2767 130.2403,42.2641 130.0283,42.12 129.908,42.0222 129.8048,41.9325 129.7706,41.8366 129.6681,41.7096 129.6301,41.714 129.6032,41.7088 129.5818,41.6836 129.5194,41.5989 129.5103,41.5786 129.4855,41.503 129.482,41.4815 129.4883,41.433 129.4981,41.4115 129.518,41.3891 129.5434,41.3751 129.5751,41.3606 129.6253,41.3306 129.6096,41.2794 129.5916,41.2537 129.5418,41.1342 129.5374,41.0965 129.5358,41.0659 129.5406,40.9578 129.5451,40.9338 129.5612,40.9128 129.5745,40.8959 129.5495,40.8139 129.5244,40.7847 129.4866,40.7878 129.4239,40.7813 129.3871,40.7751 129.0385,40.6337 128.994,40.5398 128.9946,40.5201 128.9939,40.5146 128.9795,40.4899 128.9317,40.4322 128.9016,40.4165 128.8794,40.4163 128.8016,40.4048 128.7661,40.3791 128.7386,40.352 128.7178,40.3309 128.6976,40.3188 128.6365,40.2961 128.6153,40.2894 128.4611,40.2275 128.4227,40.129 128.1577,40.0087 128.0101,39.9785 127.967,39.978 127.9376,39.9822 127.881,39.9889 127.8274,39.9922 127.7601,39.9267 127.7124,39.866 127.6957,39.8413 127.5544,39.8015 127.4395,39.7664 127.388,39.7374 127.3451,39.6951 127.3309,39.6682 127.3324,39.6004 127.359,39.4123 127.3642,39.383 127.3851,39.2833 127.3886,39.2669 127.3569,39.259 127.3527,39.2981 127.3647,39.3148 127.3599,39.3445 127.3263,39.3835 127.2859,39.3757 127.2671,39.3606 127.2395,39.3481 127.2035,39.3281 127.2054,39.1912 127.2287,39.1513 127.2766,39.1205 127.3699,39.0962 127.4744,39.0812 127.6117,39.0446 127.6386,39.0052 127.6845,38.9437 127.7093,38.919 127.8397,38.8148 127.867,38.8089 127.8937,38.803 127.9229,38.7908 127.9511,38.7757 127.9655,38.7592 128.0303,38.6919 128.0554,38.6898 128.0924,38.6946 128.1223,38.6842 128.166,38.6587 128.1915,38.6337 128.1927,38.5819 128.1377,38.5444 128.1358,38.5171 128.1427,38.4813 128.1369,38.4453 128.1268,38.4164 128.109,38.3874 128.0899,38.3685 128.0731,38.3523 128.0545,38.3388 128.0306,38.3224 128.0059,38.307 127.9882,38.2967 127.967,38.2862 127.91,38.2688 127.8848,38.2637 127.8408,38.2626 127.81,38.2643 127.7157,38.2707 127.4996,38.2768 127.3682,38.2644 127.2818,38.2697 127.1971,38.2804 127.0826,38.2761 127.0286,38.2691 126.9622,38.2554 126.9322,38.2413 126.8994,38.2171 126.8817,38.2073 126.8375,38.1864 126.8184,38.171 126.8015,38.1457 126.7867,38.1117 126.7671,38.0857 126.6568,37.9735 126.6395,37.958 126.6059,37.9311 126.5691,37.9127 126.521,37.7917 126.4574,37.7461 126.4154,37.7297 126.3121,37.7778 126.2545,37.8144 126.2326,37.8435 126.2214,37.8447 126.1863,37.838 126.0413,37.8032 125.977,37.7758 125.9924,37.7372 125.9946,37.7152 125.9831,37.6922 125.9385,37.699 125.9,37.7522 125.8763,37.821 125.8034,37.8631 125.7767,37.8477 125.8059,37.8267 125.8189,37.7869 125.754,37.7933 125.6579,37.8987 125.6372,37.9428 125.5821,37.9601 125.5062,37.9744 125.4391,37.9834 125.4109,37.9744 125.4265,37.9493 125.4469,37.936 125.4802,37.9239 125.5581,37.8684 125.4773,37.7765 125.3995,37.7399 125.3555,37.742 125.2153,37.6663 125.1777,37.629 125.1721,37.638 125.168,37.6737 125.2185,37.7501 125.2783,37.7766 125.3217,37.7949 125.3437,37.8429 125.2902,37.8701 125.2605,37.8643 125.222,37.8538 125.187,37.8193 125.143,37.8441 125.0745,37.8847 125.0537,37.8465 125.0107,37.8216 124.967,37.8258 124.9216,37.8346 124.8562,37.8529 124.8175,37.8906 124.9517,38.0 125.0194,38.0038 125.0404,38.0003 125.0532,37.9837 125.0758,37.9713 125.1079,38.021 125.0912,38.0346 124.9673,38.0486 124.9409,38.0441 124.9174,38.0369 124.8952,38.0275 124.8562,38.0202 124.6995,38.0601 124.6238,38.0526 124.6016,38.054 124.5048,38.0766 124.511,38.097 124.5566,38.0963 124.5789,38.101 124.6561,38.1462 124.6969,38.1864 124.7022,38.2179 124.6996,38.2895 124.7922,38.4204 124.8267,38.5431 124.8889,38.5374 124.9899,38.6013 125.1419,38.6085 125.1789,38.6271 125.2098,38.6486 125.2799,38.6573 125.3866,38.6309 125.4092,38.6055 125.425,38.5935 125.4582,38.5807 125.4816,38.5787 125.4845,38.586 125.4655,38.6114 125.4625,38.6134 125.3496,38.6744 125.3117,38.6782 125.2648,38.6788 125.2004,38.6638 125.1161,38.6537 125.0777,38.6731 124.9736,38.7546 124.982,38.826 125.0323,38.8781 125.0681,38.9553 125.0914,39.0083 125.1162,39.0716 125.1224,39.1115 125.1716,39.1592 125.1913,39.1717 125.2198,39.1935 125.2432,39.2355 125.2533,39.2638 125.2329,39.3149 125.1914,39.3492 125.1694,39.3903 125.1779,39.415 125.2342,39.4811 125.2812,39.5278 125.2729,39.5323 125.2037,39.508 125.1425,39.4816 125.1215,39.4751 124.9515,39.5145 124.8689,39.5612 124.7767,39.6182 124.6775,39.6769 124.5765,39.7286 124.5776,39.6695 124.5872,39.6332 124.5725,39.5849 124.4677,39.5537 124.4626,39.6052 124.4816,39.6323 124.3929,39.7552 124.3678,39.7649 124.3304,39.7764 124.2711,39.7843 124.2379,39.7869 124.1951,39.8201 124.1556,39.8711 124.2196,39.9774 124.2043,40.0485 124.2121,40.0572 124.2412,40.0852 124.385,40.1968 124.4572,40.2382 124.5186,40.2515 124.5408,40.2615 124.6423,40.3511 124.7147,40.4247 124.7914,40.4135 124.8691,40.4153 124.8539,40.4484 124.872,40.492 124.9695,40.5395 125.1149,40.6018 125.1438,40.6042 125.1979,40.5944 125.2411,40.6079 125.286,40.6576 125.3814,40.6954 125.432,40.71 125.4779,40.7565 125.5165,40.806 125.5308,40.814 125.76,40.8317 125.8391,40.8508 125.9517,40.9887 126.1058,41.1064 126.1128,41.1262 126.1364,41.1681 126.1935,41.229 126.2373,41.2726 126.264,41.2958 126.2823,41.3107 126.31,41.32 126.3365,41.3434 126.4088,41.5241 126.3938,41.5428 126.3917,41.5649 126.4711,41.6135 126.5382,41.6442 126.6208,41.6611 126.6729,41.6886 126.6938,41.7141 126.7297,41.7451 126.7527,41.7489 126.8729,41.6611 126.8856,41.644 126.8819,41.5965 126.9259,41.5744 126.96,41.5467 126.9845,41.4831 127.0959,41.4258 127.4455,41.3713 127.5185,41.3665 127.6594,41.3633 127.6953,41.3773 127.7521,41.4005 127.8358,41.369 127.868,41.3426 127.9381,41.3252 127.9767,41.3348 128.0166,41.3609 128.046,41.3942 128.1058,41.4834 128.1236,41.5358 128.0928,41.5901 128.0775,41.6036 128.05,41.6169 128.0273,41.6295 127.979,41.6674 127.922,41.756 127.8923,41.8378 127.8842,41.8634 127.8732,41.9341 127.8798,41.9539 128.0983,41.9909 128.1589,41.9921 128.184,41.9901 128.2451,41.9812 128.2693,41.9655 128.2956,41.9501 128.3197,41.948 128.3927,41.9528 128.5054,41.9738 128.6672,41.9822 128.7175,41.9752 128.7488,41.98 128.7713,42.0046 128.78,42.031 128.8386,42.0475 128.9359,42.0918 128.9739,42.1203 129.0325,42.1738 129.0306,42.2181 129.0673,42.3279 129.1701,42.3983 129.2661,42.3847 129.3353,42.3391 129.5158,42.388 129.5369,42.4047 129.5487,42.4276 129.553,42.4743 129.5456,42.4996 129.5734,42.6657 129.6274,42.8053 129.6668,42.8939 129.6973,42.9434 129.7242,42.9559 129.7487,42.9574 129.7669,42.9468 129.8535,42.9096 130.0123,42.8581 130.0705,42.8395 130.0694,42.7834 130.0626,42.7634 130.0554,42.7381 130.0662,42.6659 130.1479,42.5938 130.196,42.5693 130.3335,42.5201 130.3417,42.4892 130.3869,42.3952 130.4059,42.3791 130.4236,42.3739 130.4236,42.3739 27,2.0,Croatia 16.8426,42.8492 16.8085,42.8555 16.7005,42.871 16.649,42.8777 16.6107,42.9337 16.6201,42.9381 16.6632,42.9422 16.6979,42.9364 16.7103,42.9316 16.7338,42.9244 16.7489,42.9207 16.7971,42.9116 16.8398,42.9074 16.8504,42.9084 16.873,42.9135 16.8881,42.9204 16.9172,42.9247 16.9422,42.9278 16.9963,42.9281 17.021,42.9269 17.1122,42.9135 17.1597,42.8701 17.1106,42.863 17.1001,42.8628 16.9178,42.8628 16.8426,42.8492 16.8426,42.8492 28,2.0,Italy 10.4042,42.6603 10.3371,42.7131 10.3264,42.717 10.2857,42.7116 10.2205,42.698 10.1952,42.6869 10.1464,42.6813 10.1353,42.6814 10.1252,42.6836 10.1108,42.6914 10.1029,42.6992 10.089,42.7204 10.0872,42.7365 10.0975,42.751 10.1129,42.758 10.1312,42.7623 10.1689,42.7653 10.1945,42.7607 10.2067,42.7514 10.2194,42.7446 10.3416,42.7568 10.3638,42.7788 10.3788,42.8078 10.3986,42.8218 10.4248,42.8034 10.4132,42.6653 10.4042,42.6603 10.4042,42.6603 20,2.0,Croatia 17.7156,42.6435 17.7031,42.65 17.6751,42.6574 17.6648,42.6595 17.6103,42.6702 17.587,42.6725 17.5244,42.68 17.3483,42.7088 17.3347,42.7135 17.3077,42.7267 17.2994,42.7407 17.339,42.7538 17.354,42.7538 17.3753,42.7493 17.6405,42.6877 17.7061,42.6617 17.7159,42.6547 17.7209,42.645 17.7156,42.6435 17.7156,42.6435 860,5.0,Turkmenistan 55.9241,41.2819 55.9381,41.2789 56.1378,41.2689 56.2827,41.26 56.4459,41.2503 56.4563,41.2519 56.4651,41.2497 56.5665,41.2428 56.589,41.2414 56.6194,41.2405 56.6701,41.246 56.7203,41.2524 56.7577,41.2519 56.807,41.242 56.8441,41.2305 56.8778,41.2236 56.9598,41.2128 56.9786,41.2213 57.0555,41.2994 57.0374,41.3441 57.0108,41.3602 56.9788,41.3959 56.9626,41.4249 56.899,41.6351 56.8911,41.8128 56.9042,41.8416 56.926,41.8567 56.9505,41.8631 56.9887,41.8713 57.0185,41.8805 57.0433,41.8959 57.0635,41.9139 57.0892,41.9431 57.1116,41.9853 57.1322,42.0162 57.1669,42.0479 57.1851,42.0621 57.2084,42.0757 57.2445,42.0911 57.2729,42.1023 57.299,42.1117 57.3381,42.1235 57.3658,42.1264 57.3945,42.1275 57.4184,42.1256 57.4426,42.1227 57.5005,42.1153 57.5406,42.1065 57.585,42.1062 57.7589,42.1403 57.7928,42.1631 57.8283,42.2174 57.8739,42.2946 57.8813,42.3225 57.868,42.3514 57.8635,42.3976 57.9413,42.4534 57.9732,42.46 57.996,42.4595 58.0211,42.456 58.1707,42.4233 58.2026,42.415 58.2445,42.3991 58.2905,42.3771 58.3236,42.351 58.3353,42.3108 58.3282,42.2584 58.3607,42.2468 58.4257,42.2548 58.262,42.4735 58.2321,42.5023 58.2126,42.5132 58.1742,42.5246 58.1486,42.5305 58.1187,42.5403 58.0712,42.5631 58.0724,42.5944 58.1859,42.6459 58.2211,42.6483 58.2526,42.6402 58.2864,42.6262 58.325,42.6151 58.3803,42.611 58.4407,42.6098 58.4754,42.6129 58.4922,42.625 58.5012,42.6474 58.505,42.6683 58.5103,42.7115 58.5152,42.7326 58.5322,42.748 58.6493,42.6558 58.6945,42.6146 58.723,42.5893 58.7688,42.5561 58.87,42.4928 58.8964,42.4844 58.9423,42.4772 58.9655,42.4757 58.9863,42.4775 59.0116,42.4834 59.0616,42.4966 59.1343,42.4494 59.1575,42.4289 59.1779,42.3988 59.1776,42.3742 59.177,42.3469 59.1839,42.3195 59.1975,42.3032 59.3436,42.2521 59.3668,42.246 59.4048,42.2441 59.4475,42.2457 59.4764,42.2516 59.5396,42.2612 59.6532,42.2748 59.7746,42.2682 59.8315,42.2507 59.9314,42.1698 59.9438,42.116 59.9451,41.9849 60.0542,41.8639 60.0664,41.8441 60.0697,41.8365 60.0974,41.8134 60.17,41.7769 60.1911,41.7438 60.1763,41.7271 60.1429,41.7337 60.1105,41.7477 60.0604,41.7591 60.0339,41.7557 60.0115,41.7402 59.9884,41.7119 59.993,41.6833 60.0535,41.6126 60.0777,41.5847 60.101,41.5438 60.0779,41.5266 60.0388,41.5108 60.0145,41.4841 59.9953,41.3989 60.0096,41.364 60.0576,41.3346 60.0771,41.3262 60.1116,41.313 60.14,41.3027 60.1818,41.2922 60.2429,41.2677 60.2615,41.2588 60.2917,41.2412 60.3261,41.2167 60.3494,41.1957 60.3709,41.1824 60.3969,41.1748 60.4351,41.171 60.5108,41.1852 60.5733,41.1993 60.5965,41.2061 60.6218,41.2114 60.7283,41.2113 60.8562,41.2046 60.8792,41.1995 60.8982,41.1878 60.9204,41.1634 60.9386,41.1838 61.002,41.1906 61.055,41.1856 61.0777,41.1597 61.1611,41.1208 61.2061,41.1166 61.2452,41.1266 61.2777,41.1463 61.2956,41.1674 61.3106,41.2213 61.3304,41.2524 61.3622,41.2559 61.5269,41.2211 61.5476,41.213 61.6531,41.1564 61.7894,41.0793 61.8083,41.0654 61.863,40.9979 61.8857,40.9625 61.8993,40.9252 61.9026,40.8997 61.9004,40.875 61.9016,40.8315 61.9145,40.7939 61.96,40.6734 62.0276,40.561 62.0563,40.5188 62.1006,40.4588 62.1078,40.4481 62.1317,40.4348 62.1744,40.4279 62.251,40.3939 62.2674,40.3791 62.3139,40.2328 62.3258,40.175 62.3401,40.0832 62.3334,40.0624 62.3369,40.0373 62.3564,39.9872 62.4706,39.8856 62.4996,39.8649 62.6423,39.7848 62.7047,39.7552 62.7287,39.7428 62.7946,39.7043 62.8168,39.6912 62.8702,39.6533 62.9149,39.6225 62.9534,39.6001 63.0081,39.5727 63.0452,39.5547 63.1138,39.5221 63.1957,39.4841 63.2571,39.4539 63.3933,39.3792 63.4331,39.3545 63.4761,39.3204 63.5104,39.2858 63.5583,39.235 63.5717,39.2194 63.6085,39.1802 63.6249,39.1639 63.7284,39.1095 63.8073,39.0701 63.8977,39.0244 63.9582,38.986 64.0006,38.957 64.0469,38.9317 64.092,38.9099 64.12,38.9083 64.1487,38.916 64.1808,38.9291 64.2167,38.9418 64.2522,38.9471 64.2807,38.928 64.297,38.9095 64.3026,38.9019 64.3159,38.8857 64.3301,38.8703 64.3486,38.8532 64.3784,38.8302 64.5454,38.7179 64.5854,38.6954 64.6604,38.6648 64.7116,38.6466 64.7884,38.6228 64.821,38.6136 64.8486,38.6055 64.8898,38.5885 64.9088,38.5784 65.0199,38.5049 65.0371,38.4901 65.0652,38.4688 65.1122,38.4339 65.1701,38.3917 65.2055,38.3677 65.2415,38.3468 65.4774,38.2254 65.5104,38.2109 65.5406,38.2006 65.5707,38.1936 65.6083,38.1852 65.6293,38.183 65.6521,38.183 65.6897,38.1914 65.7178,38.2144 65.7531,38.2309 65.7908,38.239 65.9683,38.1983 65.9909,38.1905 66.1778,38.1047 66.1982,38.0794 66.2187,38.053 66.2383,38.0393 66.3361,38.0008 66.3636,37.9947 66.4041,37.9996 66.4326,38.0007 66.4532,37.9982 66.4823,37.9924 66.512,37.9819 66.5321,37.9728 66.5634,37.9539 66.578,37.939 66.5828,37.9221 66.5718,37.8844 66.5496,37.8623 66.528,37.8424 66.4665,37.7759 66.4522,37.7385 66.4295,37.4898 66.4316,37.3485 66.4505,37.3244 66.4252,37.3198 66.4027,37.3022 66.3673,37.2796 66.3535,37.2769 66.3266,37.3018 66.2652,37.2947 66.2306,37.2843 66.2006,37.2846 66.0996,37.3302 66.0184,37.3793 65.9214,37.4134 65.6854,37.4956 65.6112,37.4905 65.5947,37.4749 65.5801,37.453 65.5593,37.4118 65.558,37.3854 65.5638,37.3542 65.5625,37.3106 65.477,37.2194 65.4381,37.2062 65.3819,37.2034 65.3514,37.2025 65.3056,37.2069 65.2764,37.2069 65.0081,37.2042 64.9813,37.2013 64.9583,37.1938 64.7596,37.1066 64.738,37.097 64.7089,37.0801 64.6958,37.0608 64.6927,37.0211 64.7005,36.9867 64.7056,36.9656 64.7153,36.9141 64.7081,36.8779 64.6916,36.8526 64.6595,36.8095 64.6308,36.7614 64.609,36.7272 64.5677,36.6691 64.5528,36.648 64.5419,36.6229 64.5324,36.5953 64.5257,36.559 64.5302,36.5264 64.5463,36.4912 64.5489,36.4457 64.5417,36.4129 64.5311,36.383 64.5174,36.3563 64.4972,36.3286 64.44,36.2586 64.4198,36.24 64.3825,36.211 64.3431,36.2056 64.2694,36.1903 64.081,36.1244 64.0117,36.0828 63.8946,35.9988 63.8443,35.9978 63.806,35.9914 63.7183,35.9472 63.6859,35.9384 63.6151,35.9304 63.5727,35.9289 63.5507,35.9292 63.5304,35.9274 63.5072,35.9181 63.4675,35.8777 63.4404,35.8628 63.2602,35.8171 63.2349,35.8122 63.2138,35.8116 63.1908,35.8128 63.1582,35.8165 63.1224,35.8217 63.0411,35.8226 63.0229,35.7919 63.0765,35.7241 63.1029,35.6338 63.0554,35.6127 63.0237,35.5937 63.0176,35.5165 63.0428,35.4998 63.0257,35.4171 63.0051,35.3926 62.9688,35.3903 62.9414,35.3882 62.9046,35.3764 62.8411,35.3447 62.8217,35.3344 62.8016,35.3179 62.7555,35.2848 62.6459,35.2181 62.5488,35.1865 62.4688,35.1971 62.4472,35.2191 62.4322,35.2341 62.3889,35.2482 62.3465,35.2255 62.3298,35.2113 62.3066,35.1879 62.2804,35.1592 62.2585,35.1307 62.2317,35.1067 62.1934,35.1621 62.1896,35.2169 62.0831,35.2964 62.0521,35.3284 62.0473,35.3351 61.992,35.3802 61.9622,35.4016 61.9115,35.4191 61.8855,35.4196 61.7373,35.3794 61.7185,35.3721 61.516,35.4045 61.4968,35.4113 61.4487,35.4442 61.4236,35.4696 61.367,35.5117 61.3497,35.5151 61.2954,35.5964 61.2169,35.5886 61.1973,35.5676 61.1743,35.5928 61.1537,35.6229 61.151,35.6523 61.1827,35.7765 61.1574,35.8512 61.1464,35.8637 61.1323,35.8973 61.1217,36.0287 61.1373,36.0681 61.1419,36.0995 61.141,36.1385 61.1047,36.2462 61.0829,36.3791 61.1095,36.5282 61.087,36.5912 61.074,36.6093 60.993,36.6096 60.8549,36.6088 60.7169,36.6079 60.5878,36.6064 60.5615,36.6061 60.4236,36.605 60.286,36.6046 60.2525,36.6169 60.0788,36.83 60.0629,36.8503 60.0276,36.8954 60.013,36.9172 59.9979,36.9474 59.985,36.9703 59.9372,37.0024 59.7348,37.083 59.6372,37.1058 59.4678,37.1665 59.4021,37.191 59.3149,37.2814 59.3093,37.3016 59.294,37.3624 59.2924,37.3827 59.298,37.4292 59.2975,37.4539 59.265,37.4935 59.2375,37.4989 59.2156,37.4938 59.1821,37.4752 59.1603,37.4759 59.1243,37.4911 59.056,37.5346 59.0038,37.5697 58.975,37.5893 58.9033,37.6125 58.856,37.6264 58.7289,37.6287 58.642,37.6077 58.5973,37.6108 58.569,37.6196 58.4155,37.6033 58.3938,37.5982 58.3303,37.5991 58.1571,37.6365 58.1442,37.6566 58.1477,37.6789 58.1209,37.744 58.0976,37.7539 57.6233,37.8838 57.5382,37.8827 57.4525,37.8849 57.3783,37.8958 57.3029,37.9321 57.2757,37.9508 57.2948,38.0274 57.2963,38.048 57.1658,38.2293 57.1326,38.2398 57.1065,38.2387 57.0832,38.2274 57.0739,38.2171 57.0612,38.1969 56.987,38.1526 56.867,38.1687 56.7915,38.1829 56.7642,38.1912 56.7208,38.2101 56.6988,38.2239 56.6806,38.2435 56.6202,38.2241 56.4948,38.216 56.4677,38.2233 56.3964,38.2201 56.3681,38.2172 56.3447,38.2094 56.3107,38.1887 56.2925,38.1757 56.2485,38.14 56.2522,38.1198 56.2752,38.0932 56.2573,38.0443 56.1453,38.0287 56.0943,38.0519 56.0359,38.044 56.0027,38.0376 55.9692,38.0322 55.9132,38.0299 55.7943,38.0512 55.761,38.0639 55.7327,38.0798 55.6902,38.0813 55.6594,38.0781 55.6178,38.0685 55.5967,38.0663 55.4831,38.0558 55.3962,38.048 55.3642,38.0408 55.341,38.0251 55.321,38.006 55.3033,37.9958 55.1566,37.9392 55.1066,37.922 55.0674,37.9125 54.9975,37.8633 54.9815,37.8449 54.9652,37.8232 54.8821,37.7627 54.8474,37.7418 54.8178,37.7327 54.7908,37.7243 54.7606,37.704 54.7376,37.669 54.7096,37.601 54.7215,37.5817 54.7366,37.5359 54.7085,37.472 54.6842,37.4536 54.597,37.398 54.5587,37.3982 54.5328,37.4063 54.5084,37.4109 54.4742,37.4024 54.4411,37.3887 54.4108,37.3722 54.3531,37.3443 54.3343,37.336 54.2847,37.319 54.1304,37.2884 53.8349,37.309 53.8217,37.4285 53.7988,37.4886 53.7902,37.5211 53.7667,37.6376 53.7494,37.732 53.735,37.823 53.733,37.8503 53.7328,37.8851 53.7366,37.9695 53.739,37.9897 53.7526,38.0444 53.763,38.0832 53.781,38.1524 53.7865,38.1892 53.7976,38.3182 53.7818,38.3488 53.7693,38.3758 53.7607,38.4204 53.7571,38.4432 53.7569,38.4494 53.7534,38.4629 53.7552,38.4983 53.7641,38.5421 53.781,38.6171 53.7991,38.6452 53.8557,38.7275 53.9106,38.8643 53.8936,38.8956 53.7907,38.9883 53.7236,38.9983 53.6955,38.9844 53.6397,39.0174 53.5682,39.0805 53.5339,39.1814 53.5072,39.2747 53.4666,39.2888 53.3734,39.276 53.3494,39.2749 53.3254,39.2746 53.2502,39.2862 53.2278,39.2984 53.1715,39.3142 53.149,39.3155 53.088,39.3007 53.1026,39.2462 53.1096,39.1659 53.1019,39.1258 53.0925,39.1308 53.0793,39.1624 53.049,39.297 53.0511,39.3909 53.1367,39.5415 53.153,39.566 53.1903,39.6087 53.2285,39.617 53.2137,39.6011 53.1938,39.5859 53.1642,39.5476 53.1353,39.48 53.1631,39.4712 53.2285,39.4807 53.2731,39.4883 53.299,39.4925 53.3354,39.493 53.3697,39.4844 53.3902,39.4634 53.406,39.4381 53.4439,39.4257 53.4919,39.4177 53.6596,39.471 53.5664,39.5665 53.4424,39.6104 53.3728,39.5958 53.3374,39.6218 53.3416,39.7288 53.4164,39.8389 53.4394,39.842 53.4654,39.8505 53.5028,39.9181 53.3556,39.9596 53.3246,39.9566 53.3011,39.9493 53.2753,39.928 53.2195,39.8961 52.9892,39.9179 52.9186,39.9275 52.863,39.9455 52.8431,39.924 52.8533,39.8552 52.879,39.8231 52.9063,39.7999 52.9525,39.7412 52.9629,39.7238 52.9725,39.7003 52.9671,39.6953 52.9374,39.7141 52.8394,39.8176 52.8285,39.8404 52.7524,39.936 52.728,39.952 52.6947,39.9748 52.6673,40.0049 52.6647,40.1555 52.6184,40.2268 52.6501,40.4006 52.6678,40.4559 52.7078,40.5191 52.736,40.5467 52.7635,40.5711 52.7906,40.6133 52.7912,40.6428 52.7582,40.6624 52.7635,40.698 52.7933,40.7506 52.8256,40.8492 52.8437,40.9727 52.8401,40.9994 52.8488,41.035 52.888,41.0098 52.952,40.8869 52.9651,40.8422 52.9889,40.7879 53.0384,40.7231 53.0705,40.7172 53.1751,40.714 53.2449,40.7201 53.3143,40.7226 53.3317,40.7111 53.39,40.6836 53.4207,40.6902 53.4609,40.7085 53.4825,40.7224 53.4875,40.756 53.4814,40.7911 53.5153,40.8469 53.5535,40.8357 53.5839,40.8113 53.5848,40.7661 53.5799,40.7349 53.6335,40.5913 53.663,40.5711 53.786,40.5797 53.9573,40.608 53.991,40.6211 54.0155,40.6368 54.0211,40.6697 54.1146,40.6801 54.1561,40.6796 54.1447,40.647 54.2045,40.6235 54.2756,40.6272 54.3474,40.6639 54.2907,40.6761 54.234,40.7065 54.1724,40.8325 54.2377,40.8785 54.2611,40.8786 54.3968,40.816 54.4051,40.7531 54.4184,40.755 54.4881,40.7694 54.5335,40.7866 54.6318,40.8288 54.6693,40.8773 54.6851,40.919 54.6573,41.0581 54.4394,41.201 54.4173,41.2128 54.372,41.2371 54.3457,41.2469 54.3194,41.2569 54.2864,41.2694 54.2612,41.2742 54.2254,41.2883 53.9992,41.4292 53.9679,41.4762 53.958,41.5056 53.9451,41.5587 53.9489,41.6135 53.9512,41.6684 53.9169,41.7518 53.8816,41.8029 53.8621,41.8275 53.8422,41.9542 53.8374,41.9988 53.8234,42.022 53.7795,42.0547 53.737,42.0743 53.6953,42.0825 53.5856,42.0954 53.5569,42.0933 53.3991,42.0618 53.2298,42.0276 53.2086,42.0242 53.1538,42.0315 53.1169,42.0421 53.077,42.0479 53.0233,42.027 52.8921,41.9466 52.8756,41.928 52.7662,41.7316 52.7479,41.6502 52.803,41.6528 52.8444,41.622 52.8298,41.5308 52.8021,41.4626 52.7816,41.4205 52.76,41.38 52.7488,41.3543 52.7629,41.2767 52.7783,41.2005 52.7986,41.1556 52.8121,41.1402 52.8364,41.0601 52.8094,41.0035 52.778,41.0281 52.7768,41.0618 52.7642,41.1347 52.7584,41.1592 52.7247,41.2453 52.6884,41.3277 52.6416,41.3786 52.6215,41.3944 52.5622,41.4277 52.5161,41.4503 52.4868,41.4715 52.4965,41.4997 52.5143,41.5358 52.5195,41.5916 52.4928,41.6334 52.41,41.6775 52.368,41.694 52.4192,41.7338 52.7345,41.9688 52.85,42.0462 52.884,42.065 52.9331,42.0882 53.243,42.1881 53.2671,42.1955 53.3244,42.2097 53.3727,42.2203 53.4664,42.2316 53.524,42.2366 53.5679,42.2393 53.5889,42.2414 53.6977,42.2588 53.8028,42.2772 53.8289,42.2827 53.8606,42.2908 53.9209,42.3009 53.9488,42.3027 53.9809,42.3009 54.098,42.2894 54.1238,42.2847 54.1509,42.2748 54.1734,42.2628 54.2402,42.2207 54.4914,42.1056 54.6565,42.0259 54.6855,42.0115 54.8586,41.8827 54.8871,41.8535 54.8826,41.808 54.8872,41.7693 54.9048,41.7454 54.9261,41.7242 54.9723,41.6867 55.05,41.6049 55.0709,41.5779 55.1181,41.5159 55.1311,41.4966 55.152,41.4589 55.1639,41.4419 55.213,41.3932 55.2408,41.3772 55.2795,41.3617 55.3163,41.3422 55.3312,41.3241 55.3387,41.305 55.3598,41.2616 55.3787,41.2421 55.4525,41.2173 55.5759,41.2206 55.7293,41.2422 55.7574,41.2536 55.7885,41.2743 55.8178,41.2849 55.8567,41.2872 55.9241,41.2819 55.9241,41.2819 163,2.0,Albania 20.0436,42.5129 20.0742,42.4854 20.134,42.4634 20.1947,42.3803 20.2116,42.3126 20.2215,42.2794 20.3274,42.2641 20.3587,42.2564 20.4294,42.2264 20.4805,42.1826 20.497,42.1653 20.5668,41.996 20.5933,41.909 20.5749,41.8875 20.5549,41.8717 20.5612,41.8351 20.5405,41.8274 20.5055,41.7297 20.4896,41.6968 20.5058,41.5879 20.4381,41.5089 20.4309,41.4739 20.4426,41.4524 20.4803,41.4129 20.5335,41.3622 20.5217,41.3264 20.4959,41.3035 20.4708,41.2953 20.4746,41.2577 20.4909,41.1998 20.5501,41.1162 20.5726,41.0467 20.6341,41.0428 20.7124,40.8633 20.7786,40.8544 20.7928,40.8627 20.809,40.8813 20.9156,40.8731 20.9346,40.8655 20.952,40.8511 20.955,40.8099 20.9554,40.7472 20.9981,40.6637 21.0226,40.6288 21.0248,40.575 21.0134,40.5183 20.9209,40.4241 20.8917,40.418 20.8049,40.4166 20.7635,40.386 20.7588,40.3494 20.7304,40.2667 20.7088,40.2618 20.686,40.2248 20.6929,40.1798 20.6392,40.0511 20.5934,40.04 20.5767,40.0301 20.5553,40.0256 20.528,40.0214 20.4516,40.0205 20.434,40.0289 20.4222,40.0275 20.4026,40.018 20.2879,39.9469 20.3099,39.8786 20.3421,39.8468 20.3837,39.7998 20.3859,39.7756 20.3772,39.7572 20.3513,39.7436 20.2786,39.7673 20.267,39.7627 20.2706,39.7272 20.2906,39.6895 20.1929,39.603 20.1689,39.6005 20.1395,39.6058 20.1142,39.6118 20.0701,39.6315 19.9976,39.6522 19.9832,39.6467 19.9584,39.6502 19.9567,39.7205 19.9606,39.8223 19.9107,39.8925 19.8304,39.9983 19.8143,40.0062 19.7985,40.0095 19.728,40.0378 19.7037,40.0578 19.5899,40.104 19.4765,40.1523 19.4248,40.1816 19.3746,40.2348 19.2636,40.3761 19.2924,40.3935 19.3155,40.3859 19.3654,40.3423 19.3764,40.3245 19.3806,40.3046 19.4065,40.2819 19.4377,40.2919 19.4531,40.3093 19.4613,40.3931 19.4271,40.5184 19.3912,40.5315 19.3671,40.5351 19.3116,40.5729 19.2809,40.5997 19.3297,40.6504 19.3786,40.7736 19.3867,40.8203 19.426,40.8376 19.444,40.8371 19.4948,40.8636 19.4964,40.8905 19.482,40.9268 19.4347,40.9607 19.4096,40.9747 19.4239,41.0137 19.4869,41.2076 19.4833,41.2294 19.4719,41.2475 19.4483,41.2624 19.4256,41.2633 19.4159,41.3603 19.4934,41.5231 19.54,41.5383 19.5579,41.559 19.56,41.5918 19.5438,41.6382 19.5551,41.6488 19.5723,41.7328 19.5708,41.7589 19.4978,41.7879 19.4528,41.8052 19.4137,41.8137 19.3897,41.8139 19.3412,41.8017 19.3168,41.8653 19.3202,41.9084 19.3498,42.0255 19.3722,42.0566 19.3516,42.0758 19.3057,42.1048 19.262,42.1354 19.4929,42.4005 19.5816,42.495 19.584,42.5229 19.6061,42.5552 19.6245,42.5752 19.6904,42.6121 19.7272,42.593 19.7373,42.5399 19.7197,42.4968 19.7422,42.453 19.7665,42.4362 19.795,42.4238 19.8998,42.4677 20.0285,42.5148 20.0436,42.5129 20.0436,42.5129 102,2.0,Macedonia 20.5612,41.8351 20.5907,41.8145 20.6792,41.8091 20.7086,41.8208 20.749,41.8901 20.7313,41.9383 20.7423,41.9993 20.7667,42.0355 20.8862,42.0726 21.0817,42.1532 21.1074,42.1522 21.1891,42.1001 21.276,42.1022 21.3168,42.1465 21.4431,42.2181 21.5898,42.2063 21.6515,42.1919 21.6777,42.185 21.7,42.1875 21.759,42.2204 21.7731,42.2509 21.8204,42.2824 21.9931,42.2693 22.0447,42.2532 22.1655,42.2688 22.1864,42.2882 22.2946,42.3112 22.3345,42.2762 22.3768,42.2317 22.4885,42.1023 22.5781,42.056 22.6547,42.0177 22.7916,41.9798 22.8456,41.8907 22.8661,41.835 22.9111,41.7605 22.9345,41.7286 22.9777,41.7191 22.9992,41.6779 22.9835,41.6483 22.9552,41.619 22.9227,41.589 22.9203,41.5516 22.9275,41.4296 22.935,41.3276 22.9243,41.3092 22.9042,41.2955 22.8949,41.2963 22.7773,41.3012 22.7455,41.2814 22.7308,41.2599 22.7303,41.2053 22.727,41.1814 22.7065,41.1097 22.5558,41.0737 22.4541,41.075 22.4118,41.0751 22.3129,41.0881 22.274,41.1068 22.229,41.1245 22.1752,41.1213 21.9471,41.0855 21.8863,41.0489 21.881,41.0192 21.7566,40.8847 21.5704,40.8268 21.5464,40.8271 21.5188,40.8449 21.499,40.8618 21.3807,40.8679 21.3454,40.837 21.3206,40.8272 21.2856,40.8224 21.1218,40.8113 21.0926,40.8114 20.955,40.8099 20.952,40.8511 20.9346,40.8655 20.9156,40.8731 20.809,40.8813 20.7928,40.8627 20.7786,40.8544 20.7124,40.8633 20.6341,41.0428 20.5726,41.0467 20.5501,41.1162 20.4909,41.1998 20.4746,41.2577 20.4708,41.2953 20.4959,41.3035 20.5217,41.3264 20.5335,41.3622 20.4803,41.4129 20.4426,41.4524 20.4309,41.4739 20.4381,41.5089 20.5058,41.5879 20.4896,41.6968 20.5055,41.7297 20.5405,41.8274 20.5612,41.8351 20.5612,41.8351 17,9.0,Japan 139.2602,42.1659 139.2726,42.1647 139.3382,42.1814 139.3555,42.1891 139.3688,42.1844 139.3603,42.1561 139.3247,42.0662 139.3091,42.0335 139.262,42.0002 139.2345,42.0161 139.2151,42.1034 139.2192,42.1183 139.233,42.1441 139.2405,42.1543 139.2491,42.1637 139.2602,42.1659 139.2602,42.1659 314,2.0,Portugal -8.7715,41.8755 -8.74,41.8845 -8.7328,41.905 -8.729,41.9204 -8.628,41.998 -8.6019,42.0089 -8.5061,42.0354 -8.4617,42.0373 -8.4342,42.0372 -8.2988,42.0563 -8.2405,42.091 -8.1861,42.1033 -8.0722,42.0131 -8.0734,41.9755 -8.0907,41.9636 -8.1233,41.9517 -8.1536,41.927 -8.1974,41.8815 -8.2067,41.8602 -8.1821,41.8261 -8.154,41.8116 -8.1503,41.7803 -8.1525,41.77 -8.1247,41.7621 -8.0763,41.7622 -8.0561,41.7683 -8.0437,41.7722 -8.0239,41.7802 -7.9157,41.8306 -7.8655,41.8055 -7.847,41.8126 -7.7485,41.8502 -7.6818,41.8568 -7.5872,41.8181 -7.5984,41.7885 -7.4083,41.7758 -7.3208,41.7977 -7.258,41.8164 -7.1972,41.8367 -7.1906,41.8363 -7.1769,41.8512 -7.1683,41.8844 -7.1747,41.93 -7.1212,41.9464 -7.089,41.9363 -7.066,41.9117 -7.0461,41.9039 -6.9989,41.9074 -6.9731,41.9267 -6.9307,41.9037 -6.8963,41.8975 -6.6876,41.8895 -6.5928,41.902 -6.5392,41.8748 -6.5188,41.7921 -6.5382,41.7181 -6.5362,41.6399 -6.4925,41.6126 -6.4517,41.6237 -6.4204,41.6328 -6.3382,41.6251 -6.2947,41.6164 -6.2474,41.5935 -6.1816,41.5326 -6.2036,41.4899 -6.2871,41.3896 -6.349,41.3339 -6.429,41.2722 -6.501,41.2186 -6.549,41.1957 -6.5799,41.1955 -6.6087,41.1999 -6.6345,41.1981 -6.6792,41.164 -6.7438,41.0904 -6.7448,41.0611 -6.7649,41.0246 -6.7959,40.9994 -6.8319,40.9838 -6.9149,40.9847 -6.9207,40.9694 -6.8818,40.9287 -6.8532,40.9067 -6.7921,40.811 -6.8099,40.6875 -6.7868,40.479 -6.806,40.3422 -6.8215,40.272 -6.8529,40.2261 -6.8686,40.2165 -6.9007,40.2111 -6.937,40.2138 -6.9987,40.1817 -7.0176,40.1425 -6.999,40.0878 -6.9728,40.074 -6.9373,40.0679 -6.9194,40.0565 -6.8731,39.9992 -6.8613,39.9711 -6.98,39.68 -7.0077,39.6305 -7.0433,39.6192 -7.148,39.6157 -7.1955,39.6228 -7.2537,39.6276 -7.297,39.6123 -7.3227,39.601 -7.4009,39.6041 -7.5221,39.6249 -7.5147,39.5923 -7.4924,39.5583 -7.3654,39.4494 -7.3128,39.3442 -7.3037,39.3004 -7.2328,39.1689 -7.1361,39.0701 -7.1153,39.0626 -7.0932,39.061 -7.0437,39.076 -7.0034,39.0678 -6.9731,39.0475 -6.9517,39.013 -6.9463,38.9793 -7.0505,38.817 -7.0744,38.7921 -7.1545,38.7384 -7.1974,38.7058 -7.2473,38.6799 -7.2575,38.66 -7.3073,38.4018 -7.2867,38.3885 -7.2677,38.3764 -7.1826,38.2774 -7.1601,38.2415 -7.1354,38.2032 -7.1203,38.1828 -7.0925,38.1465 -7.0782,38.1341 -7.0072,38.1512 -6.9838,38.1666 -6.938,38.1744 -6.9245,38.1661 -6.932,38.1275 -6.9424,38.0971 -6.9947,37.9883 -7.1141,37.9673 -7.2012,37.9542 -7.2437,37.9412 -7.242,37.917 -7.2429,37.8886 -7.2717,37.8231 -7.3101,37.7728 -7.3769,37.7272 -7.4132,37.7015 -7.4368,37.657 -7.5144,37.5104 -7.5026,37.4865 -7.493,37.4806 -7.4746,37.457 -7.4612,37.4394 -7.4513,37.4152 -7.4372,37.3766 -7.4248,37.3251 -7.422,37.2113 -7.4092,37.1389 -7.4347,37.1373 -7.4621,37.136 -7.5496,37.1115 -7.5704,37.1028 -7.6085,37.0738 -7.748,36.9937 -7.8874,36.9675 -7.9625,36.9669 -8.0021,36.9807 -8.0337,37.0016 -8.0569,37.0131 -8.1001,37.0329 -8.1642,37.0505 -8.3625,37.0605 -8.3965,37.049 -8.4285,37.0445 -8.4996,37.0616 -8.6472,37.0672 -8.8029,37.0253 -8.9146,36.9747 -8.9771,36.9847 -8.9722,37.0107 -8.9371,37.0599 -8.9127,37.0887 -8.8947,37.1191 -8.8462,37.2311 -8.817,37.3387 -8.7842,37.4007 -8.7754,37.4821 -8.7758,37.6798 -8.7939,37.7241 -8.7801,37.7768 -8.7793,37.7866 -8.7876,37.8715 -8.7988,37.8896 -8.8275,37.9722 -8.7949,38.0464 -8.7842,38.0758 -8.7777,38.0968 -8.7674,38.1377 -8.7641,38.1689 -8.7652,38.2136 -8.7678,38.2581 -8.7747,38.2858 -8.7805,38.3061 -8.7905,38.3316 -8.7115,38.3738 -8.6617,38.3709 -8.7571,38.474 -8.8867,38.4747 -8.9069,38.4668 -8.9807,38.4203 -9.0507,38.3942 -9.0715,38.3898 -9.1716,38.3768 -9.1877,38.4086 -9.1713,38.4348 -9.1663,38.4658 -9.1713,38.4939 -9.1928,38.552 -9.2075,38.576 -9.2275,38.5975 -9.2617,38.6252 -9.2029,38.6351 -9.1473,38.6346 -9.0622,38.5878 -9.0158,38.6565 -9.0033,38.6862 -8.9359,38.7193 -8.9077,38.7223 -8.9075,38.727 -8.9172,38.7568 -8.9438,38.7974 -8.9675,38.8067 -8.9773,38.857 -8.9821,38.897 -9.0531,38.8114 -9.0665,38.7869 -9.0768,38.7613 -9.0805,38.7281 -9.0828,38.7039 -9.1062,38.674 -9.1999,38.6473 -9.3094,38.6333 -9.4171,38.6486 -9.463,38.662 -9.4781,38.7504 -9.4498,38.7961 -9.4317,38.8195 -9.4092,38.8746 -9.4,38.9058 -9.4045,38.9481 -9.4133,38.9677 -9.4063,39.0346 -9.3838,39.0738 -9.3521,39.119 -9.3271,39.181 -9.3248,39.2191 -9.3256,39.249 -9.3466,39.3125 -9.2806,39.3474 -9.2146,39.391 -9.1317,39.482 -9.073,39.5707 -9.0668,39.5959 -9.0349,39.6875 -9.0144,39.7308 -8.9722,39.8057 -8.9198,39.9192 -8.8841,40.0004 -8.8787,40.0098 -8.8626,40.051 -8.8502,40.0944 -8.8692,40.1977 -8.8384,40.2616 -8.8279,40.2912 -8.7876,40.4227 -8.7782,40.4586 -8.7738,40.4753 -8.7702,40.4921 -8.7654,40.5145 -8.7177,40.59 -8.6797,40.6155 -8.6479,40.6451 -8.6662,40.7299 -8.691,40.6726 -8.7187,40.6405 -8.7146,40.6819 -8.7058,40.7069 -8.6843,40.76 -8.6658,40.8233 -8.6559,40.858 -8.6334,40.9565 -8.6333,40.9724 -8.645,40.9957 -8.7171,41.1903 -8.7775,41.3746 -8.7664,41.4208 -8.7689,41.4375 -8.7873,41.5199 -8.8027,41.5702 -8.8607,41.6771 -8.8685,41.7046 -8.8674,41.7942 -8.8501,41.817 -8.8013,41.8554 -8.7715,41.8755 -8.7715,41.8755 169,3.0,Turkey 27.9745,41.9347 27.9896,41.8902 27.9937,41.8618 27.9493,41.8433 27.927,41.8163 27.929,41.7813 28.038,41.6008 28.052,41.5844 28.0935,41.5472 28.1586,41.4912 28.1782,41.4768 28.2039,41.4621 28.2219,41.4551 28.2542,41.4389 28.2929,41.4228 28.4188,41.3726 28.7529,41.2506 28.7955,41.2358 28.8983,41.2096 28.9889,41.1974 29.0086,41.2092 29.0492,41.1999 29.0674,41.1752 29.0313,41.1281 28.9993,41.1082 29.0286,41.0769 29.0156,41.0361 28.9964,41.0085 28.863,40.9318 28.7877,40.9099 28.5886,40.9143 28.5599,40.9321 28.5592,40.9606 28.5435,40.9983 28.5232,41.0253 28.4879,41.0335 28.5141,41.0125 28.5287,40.9749 28.5028,40.9446 28.4804,40.9441 28.4291,40.9739 28.4091,40.9874 28.3845,40.9972 28.3373,41.0082 28.2043,41.0328 28.1745,41.0341 28.1195,41.0312 28.0936,41.0255 28.0788,41.0192 28.0382,41.0133 27.9587,40.9814 27.9412,40.9549 27.9038,40.9226 27.8498,40.9217 27.817,40.9308 27.7898,40.9478 27.7387,40.9636 27.694,40.9661 27.6483,40.9612 27.4678,40.935 27.4474,40.918 27.423,40.8674 27.4151,40.8465 27.4081,40.8064 27.2542,40.6543 27.1397,40.5859 27.1004,40.5723 26.9834,40.5467 26.9337,40.5089 26.8415,40.487 26.6891,40.4324 26.6434,40.4028 26.6485,40.3817 26.5789,40.3105 26.5455,40.2812 26.5149,40.2609 26.4044,40.1922 26.3117,40.093 26.286,40.0636 26.1824,40.0078 26.1289,40.007 26.2078,40.1268 26.224,40.1519 26.232,40.1731 26.2313,40.2139 26.1961,40.2565 26.1758,40.2769 26.2061,40.2949 26.3821,40.3809 26.5069,40.4376 26.5684,40.4621 26.5888,40.4648 26.6105,40.4626 26.6467,40.4641 26.7409,40.51 26.7608,40.5221 26.7892,40.5458 26.7563,40.6048 26.7373,40.6142 26.7273,40.6144 26.6557,40.5933 26.6347,40.5912 26.6006,40.5903 26.5439,40.5861 26.402,40.5709 26.3167,40.5619 26.2788,40.5485 26.2532,40.5464 26.113,40.5466 26.0831,40.5493 26.0406,40.568 26.022,40.6078 26.0092,40.6899 26.0241,40.6884 26.0548,40.6903 26.0846,40.7018 26.1374,40.7726 26.1778,40.831 26.2152,40.8427 26.2517,40.8558 26.3245,40.9076 26.337,40.981 26.2879,41.0467 26.289,41.1881 26.3365,41.2078 26.3791,41.2131 26.5709,41.2845 26.5883,41.2973 26.5993,41.3181 26.5999,41.3667 26.5678,41.4991 26.5337,41.5644 26.483,41.5865 26.362,41.6439 26.3247,41.6639 26.3149,41.672 26.2966,41.6982 26.3077,41.7351 26.3452,41.775 26.4102,41.7778 26.4365,41.7768 26.4991,41.7808 26.5219,41.8046 26.5291,41.824 26.5387,41.8514 26.5304,41.8876 26.5849,41.9256 26.8961,41.9596 26.9252,41.9559 27.0001,42.0363 27.0328,42.0424 27.1954,42.0623 27.2488,42.0533 27.2714,42.0437 27.3257,42.0154 27.3354,41.9925 27.3557,41.9619 27.3738,41.9474 27.4035,41.9297 27.5315,41.8619 27.5575,41.8883 27.5953,41.9085 27.6677,41.9302 27.7941,41.9542 27.8285,41.9582 27.865,41.9474 27.9326,41.9367 27.9745,41.9347 27.9745,41.9347 964,3.0,Turkey 43.4011,41.0667 43.3947,41.0487 43.4245,40.9767 43.5065,40.9504 43.5353,40.9473 43.6129,40.8804 43.6828,40.7245 43.6908,40.699 43.6815,40.6209 43.6583,40.575 43.5933,40.4856 43.5331,40.4555 43.5237,40.4056 43.5473,40.3234 43.6021,40.229 43.6557,40.1122 43.6093,40.1012 43.5893,40.0796 43.6091,40.0581 43.8529,39.9738 43.8742,39.9685 43.9116,39.9657 43.9845,39.9653 44.2225,40.0012 44.2914,39.9771 44.339,39.9588 44.4275,39.918 44.4914,39.8538 44.5001,39.8345 44.5323,39.7873 44.5809,39.759 44.6857,39.6859 44.7184,39.6617 44.739,39.6421 44.7559,39.6013 44.7527,39.5863 44.6765,39.6573 44.548,39.7345 44.4111,39.6542 44.4178,39.5961 44.3659,39.3923 44.3415,39.3725 44.2805,39.3512 44.2451,39.343 44.1713,39.3641 44.1416,39.3726 44.0175,39.3674 43.9771,39.3414 43.9757,39.3332 44.0012,39.3083 44.0154,39.2919 44.1572,39.0926 44.1389,39.0129 44.1035,38.9616 44.1141,38.9244 44.1503,38.85 44.1916,38.8221 44.2245,38.8189 44.2412,38.7989 44.2439,38.7665 44.203,38.6808 44.2474,38.6041 44.2583,38.5696 44.2628,38.4663 44.253,38.4268 44.2454,38.4062 44.2466,38.3574 44.2594,38.3391 44.3778,38.3519 44.4236,38.2982 44.4141,38.274 44.3402,38.1686 44.2645,38.0544 44.1804,37.9179 44.1654,37.8568 44.2344,37.8307 44.5181,37.7244 44.5589,37.6756 44.5402,37.6485 44.5259,37.5717 44.5302,37.4011 44.5541,37.3923 44.5899,37.3859 44.7429,37.2797 44.7595,37.2557 44.7619,37.2272 44.734,37.1334 44.7286,37.1082 44.7153,37.1243 44.6871,37.1326 44.5836,37.1467 44.5243,37.1214 44.5093,37.108 44.4922,37.0912 44.4324,37.05 44.4121,37.0394 44.3781,37.0214 44.2917,36.9968 44.2829,36.9651 44.261,36.93 44.199,36.9444 44.138,37.0547 44.1723,37.1123 44.2046,37.1218 44.2104,37.1533 44.2039,37.1949 44.1726,37.2343 44.0609,37.2737 44.0383,37.2756 44.015,37.2744 43.9904,37.2806 43.9513,37.2758 43.898,37.238 43.8792,37.2101 43.8554,37.1849 43.7588,37.1804 43.5659,37.1882 43.4329,37.2097 43.1003,37.332 42.9465,37.2975 42.9041,37.2816 42.868,37.2858 42.8383,37.2938 42.7665,37.3254 42.7305,37.3419 42.7095,37.3295 42.6685,37.31 42.5323,37.1339 42.5239,37.1121 42.4761,37.106 42.3213,37.0759 42.3002,37.0653 42.3015,37.088 42.2959,37.1893 42.2389,37.2278 42.1603,37.2475 42.1254,37.2486 42.0933,37.2176 42.028,37.1665 42.0017,37.1511 41.9403,37.1311 41.7856,37.0883 41.4939,37.0439 41.4288,37.0389 41.4,37.0372 41.3082,37.0335 41.1624,37.0308 41.0646,37.0561 40.8763,37.0881 40.8474,37.0869 40.7533,37.081 40.7175,37.0766 40.635,37.0541 40.6171,37.0434 40.5817,37.0274 40.4602,36.9816 40.4296,36.9795 40.3948,36.974 40.3622,36.9599 40.2272,36.8872 40.2114,36.8781 40.1618,36.8545 39.9557,36.7733 39.8907,36.7516 39.8711,36.745 39.7661,36.7124 39.5363,36.6778 39.3877,36.6565 39.2574,36.6372 39.2066,36.627 39.1703,36.6242 39.1204,36.6286 39.0795,36.6424 39.0454,36.6544 39.0239,36.6616 38.9924,36.6672 38.9527,36.6646 38.9152,36.6557 38.8667,36.6539 38.7243,36.657 38.6749,36.6624 38.6335,36.6843 38.5779,36.7267 38.4908,36.8029 38.4634,36.8169 38.3827,36.8441 38.3362,36.857 38.1933,36.8727 38.1312,36.8645 38.0475,36.8323 38.006,36.8091 37.9737,36.7893 37.9438,36.7836 37.9065,36.7718 37.8683,36.7498 37.8421,36.7398 37.7276,36.7069 37.6868,36.7066 37.6609,36.7072 37.6204,36.696 37.5193,36.6557 37.4843,36.6368 37.3251,36.6142 37.2209,36.6234 37.2001,36.6237 37.0791,36.6181 36.9898,36.6786 36.9402,36.7164 36.8855,36.737 36.655,36.7882 36.619,36.7932 36.612,36.7925 36.6145,36.7739 36.5387,36.5787 36.5018,36.447 36.5202,36.3801 36.5351,36.3567 36.6133,36.2702 36.6424,36.2457 36.6355,36.1922 36.5689,36.1791 36.5279,36.1872 36.488,36.195 36.4591,36.1927 36.345,36.1729 36.3277,36.136 36.3343,36.0566 36.3363,35.9903 36.3276,35.9577 36.2528,35.9295 36.1766,35.9218 36.1399,35.8699 36.1356,35.8396 36.1355,35.8149 36.1215,35.7798 36.1088,35.7785 36.0973,35.7935 36.0813,35.8121 36.0633,35.8212 35.969,35.8597 35.876,35.8868 35.9318,35.9622 35.9081,36.0262 35.8951,36.055 35.8036,36.1783 35.7401,36.2497 35.739,36.2741 35.7723,36.3143 35.878,36.4101 35.9946,36.4915 36.1158,36.5474 36.1428,36.5563 36.1701,36.6138 36.1589,36.7262 36.1462,36.7508 36.1192,36.7875 36.0824,36.8219 36.0221,36.8674 35.964,36.8819 35.9105,36.8534 35.89,36.835 35.858,36.7997 35.777,36.7363 35.7471,36.7251 35.655,36.7201 35.5984,36.7119 35.5628,36.6926 35.529,36.6515 35.5648,36.6465 35.5897,36.641 35.5915,36.601 35.5872,36.5711 35.5648,36.5532 35.5123,36.539 35.4925,36.5496 35.4518,36.5691 35.3662,36.5395 35.3009,36.5042 35.1332,36.5811 34.9779,36.6593 34.9354,36.6785 34.8918,36.6837 34.8683,36.6812 34.8587,36.6759 34.845,36.705 34.8317,36.722 34.7902,36.7491 34.7317,36.7674 34.6897,36.7717 34.6604,36.77 34.6141,36.7641 34.5206,36.7309 34.4318,36.6645 34.3092,36.5925 34.2779,36.5744 34.2451,36.5508 34.2166,36.5282 34.1953,36.5053 34.1764,36.4758 34.108,36.4203 34.0843,36.4077 34.0323,36.3588 34.0297,36.3269 33.9872,36.2623 33.9444,36.2373 33.8855,36.2471 33.8227,36.2692 33.7722,36.2201 33.7016,36.166 33.6614,36.1389 33.6061,36.1482 33.5648,36.1411 33.4974,36.0993 33.3193,36.0975 33.2439,36.0841 33.0025,36.0506 32.8968,36.0565 32.8217,36.0279 32.7729,35.9911 32.729,35.9885 32.6274,35.9988 32.5371,36.0409 32.5242,36.0523 32.4822,36.0528 32.4587,36.059 32.3259,36.1348 32.2337,36.2277 32.1603,36.306 32.1467,36.3261 32.1335,36.3554 32.1072,36.3888 32.065,36.4321 32.023,36.4757 31.9613,36.5044 31.7815,36.5489 31.6987,36.5945 31.5415,36.6552 31.3376,36.7457 31.3103,36.7606 31.2489,36.7748 31.0062,36.8078 30.9524,36.813 30.9305,36.8142 30.8477,36.8125 30.7784,36.8043 30.7233,36.8028 30.6955,36.8143 30.6543,36.8401 30.6107,36.8286 30.5764,36.8025 30.5613,36.7839 30.5338,36.7461 30.521,36.685 30.5138,36.5748 30.4887,36.4535 30.4419,36.3861 30.4346,36.3485 30.4462,36.3226 30.4646,36.3024 30.4644,36.28 30.3891,36.1874 30.3654,36.1645 30.3512,36.1948 30.3265,36.2208 30.2417,36.2577 30.2205,36.2632 30.1692,36.2634 30.1396,36.2583 30.1055,36.245 30.1017,36.216 30.0532,36.1946 29.9367,36.1712 29.7345,36.1117 29.6865,36.1204 29.649,36.0977 29.6386,36.0779 29.5901,36.1302 29.532,36.1589 29.4662,36.165 29.3117,36.1905 29.277,36.2065 29.2455,36.2313 29.2209,36.2552 29.1457,36.2878 29.1101,36.3076 29.0793,36.3425 29.0598,36.4333 29.0866,36.4853 29.0869,36.497 29.0689,36.5128 29.0405,36.5179 29.0104,36.5041 28.9807,36.5011 28.986,36.5422 28.9963,36.5715 29.0492,36.5855 29.0148,36.6402 28.8937,36.7032 28.8281,36.6465 28.8133,36.6166 28.7554,36.6299 28.6197,36.6691 28.5822,36.7287 28.5712,36.7623 28.4191,36.8394 28.3571,36.8216 28.3485,36.7983 28.3831,36.7826 28.3504,36.7418 28.2737,36.7847 28.2474,36.8049 28.2249,36.8038 28.2094,36.7892 28.1988,36.7618 28.2105,36.7248 28.2357,36.6958 28.1939,36.6576 28.0298,36.5487 27.9476,36.5118 27.9307,36.5331 27.9233,36.5563 27.9459,36.5615 27.9807,36.5554 28.0141,36.5566 28.0339,36.578 28.0489,36.5983 28.0247,36.6327 27.997,36.6388 27.9769,36.6268 27.9527,36.6301 27.9333,36.6437 27.9661,36.658 28.0022,36.6661 28.0512,36.6626 28.0862,36.68 28.0833,36.7558 28.0555,36.7594 28.037,36.745 28.0003,36.7279 27.9714,36.717 27.9478,36.7111 27.8792,36.7039 27.7723,36.716 27.6963,36.7155 27.6723,36.7029 27.6524,36.6745 27.64,36.6506 27.4679,36.6291 27.4453,36.6137 27.4396,36.6089 27.3392,36.6429 27.3232,36.6634 27.4369,36.7084 27.4601,36.7045 27.7012,36.7364 27.8826,36.7528 27.9891,36.7814 28.0297,36.8936 28.1632,36.9344 28.2878,36.9968 28.236,37.002 28.1732,36.9978 27.9977,36.9831 27.8121,36.9759 27.6404,36.9604 27.4791,36.9513 27.388,36.9865 27.3002,36.963 27.2814,36.9348 27.2606,36.9222 27.2366,36.9143 27.2195,36.9236 27.1916,37.0022 27.1973,37.0286 27.2886,37.1116 27.3327,37.1091 27.3712,37.0857 27.4037,37.0631 27.514,37.09 27.559,37.1908 27.5279,37.2317 27.4854,37.2199 27.45,37.2258 27.3728,37.2639 27.3512,37.2943 27.3851,37.3662 27.3729,37.3688 27.338,37.3588 27.3229,37.3312 27.2968,37.3113 27.2779,37.3003 27.2057,37.2945 27.1591,37.3106 27.1828,37.3696 27.1884,37.4313 27.1759,37.5451 27.1581,37.5623 27.1896,37.6703 27.212,37.6983 27.2271,37.7608 27.2258,37.842 27.2301,37.8481 27.2381,37.8832 27.2322,37.911 27.2079,37.935 26.9437,38.0238 26.9076,38.0213 26.8873,38.0194 26.7825,38.1127 26.7279,38.17 26.6458,38.159 26.5907,38.1062 26.5737,38.0599 26.5534,38.0593 26.5105,38.0737 26.4886,38.0957 26.4537,38.1296 26.3947,38.1719 26.3236,38.1814 26.3003,38.1822 26.2814,38.1899 26.2412,38.2216 26.2401,38.2425 26.2492,38.3027 26.2543,38.3245 26.2812,38.331 26.2871,38.298 26.3165,38.2722 26.3347,38.263 26.3398,38.2627 26.4152,38.3026 26.4351,38.3189 26.4639,38.3572 26.4745,38.3826 26.4433,38.406 26.3856,38.4218 26.3531,38.404 26.3232,38.5231 26.3127,38.5804 26.3231,38.6114 26.3633,38.6236 26.3931,38.6276 26.4459,38.6239 26.4885,38.5899 26.5281,38.5552 26.577,38.4867 26.594,38.4148 26.5602,38.4098 26.6125,38.2903 26.6565,38.2679 26.7577,38.3108 26.7996,38.3224 26.8692,38.3309 27.0592,38.3569 27.0832,38.3673 27.1206,38.4096 27.0073,38.4178 26.9584,38.4101 26.9115,38.3986 26.845,38.4594 26.7176,38.5767 26.6982,38.5988 26.6921,38.6811 26.7897,38.7109 26.8645,38.7719 26.9864,38.8143 27.027,38.8295 27.0166,38.8829 26.9207,38.8935 26.8843,38.889 26.8515,38.8769 26.8255,38.8666 26.7659,38.912 26.7588,38.9396 26.7619,38.9802 26.845,39.0245 26.8337,39.0539 26.8105,39.0858 26.7772,39.1126 26.7235,39.1293 26.6931,39.1775 26.6089,39.219 26.6292,39.2571 26.7755,39.3548 26.859,39.4297 26.9009,39.4389 26.9154,39.5066 26.8987,39.531 26.8459,39.532 26.7812,39.5173 26.7255,39.5117 26.6585,39.5109 26.6338,39.5107 26.6237,39.5072 26.5457,39.4905 26.5031,39.4853 26.1698,39.4186 26.0957,39.4088 26.0749,39.4132 26.0354,39.4382 26.0691,39.542 26.098,39.5632 26.1198,39.5881 26.1252,39.6116 26.1277,39.642 26.1229,39.7769 26.1147,39.8641 26.1222,39.9018 26.1394,39.9347 26.1619,39.9579 26.19,39.9535 26.2135,39.9463 26.254,39.9604 26.2975,39.9796 26.3489,40.0572 26.3626,40.0947 26.4023,40.147 26.4779,40.1711 26.5737,40.239 26.6476,40.3022 26.6678,40.3333 26.7734,40.3504 26.8503,40.3502 26.9256,40.3373 26.9897,40.3455 27.0203,40.3805 27.0501,40.4023 27.0816,40.4071 27.2269,40.4131 27.2617,40.3601 27.2693,40.3396 27.3574,40.2942 27.3918,40.2788 27.4353,40.2681 27.4742,40.2601 27.5211,40.2595 27.5376,40.2679 27.6407,40.2642 27.7033,40.2647 27.7425,40.2698 27.8397,40.3303 27.7938,40.3519 27.7569,40.3465 27.6493,40.4473 27.6855,40.4766 27.7172,40.4841 27.8191,40.477 27.982,40.4423 27.9896,40.4177 27.9629,40.3969 27.8896,40.3663 27.8626,40.3431 27.8856,40.3192 27.9152,40.3116 27.9977,40.3239 28.037,40.3344 28.0714,40.344 28.1152,40.3508 28.1474,40.3523 28.1653,40.3488 28.2083,40.3581 28.4444,40.351 28.4704,40.35 28.6353,40.318 28.7159,40.3459 28.7521,40.3496 28.7906,40.3463 28.8446,40.334 28.8772,40.3171 28.8979,40.3142 28.9426,40.3118 29.016,40.3215 29.1019,40.3922 29.0403,40.432 28.987,40.4346 28.9358,40.4174 28.8755,40.4235 28.8525,40.4314 28.7376,40.4814 28.7665,40.5124 28.8131,40.5297 28.8549,40.5431 28.8704,40.5474 28.9156,40.5789 28.941,40.5937 28.9618,40.5983 29.1149,40.6118 29.2119,40.6169 29.3521,40.6565 29.3839,40.64 29.4391,40.6744 29.4702,40.6858 29.4954,40.6605 29.5135,40.6405 29.6609,40.6592 29.8606,40.667 29.8929,40.6762 29.8967,40.7065 29.8759,40.7159 29.6855,40.7263 29.5513,40.7295 29.5217,40.7251 29.4776,40.7234 29.3724,40.7238 29.2965,40.7612 29.2502,40.8022 29.2149,40.8222 29.1096,40.857 29.0896,40.8683 29.0034,40.927 28.9859,40.9882 29.0021,41.0049 29.0483,41.0721 29.0484,41.0934 29.0348,41.113 29.0475,41.1289 29.0935,41.1664 29.12,41.1783 29.1796,41.1905 29.2502,41.1817 29.4309,41.149 29.539,41.1265 29.5809,41.1295 29.714,41.1168 29.8213,41.101 29.8338,41.0989 29.9432,41.0934 30.1174,41.0944 30.1537,41.1052 30.2203,41.146 30.2431,41.1615 30.2851,41.1565 30.3136,41.1396 30.3354,41.1285 30.3834,41.1185 30.4517,41.101 30.4753,41.097 30.5642,41.0875 30.7152,41.04 30.8373,41.0305 30.8911,41.0285 30.9122,41.0284 30.9377,41.0286 31.0306,41.0322 31.1906,41.043 31.2561,41.0674 31.2942,41.091 31.2975,41.0964 31.3327,41.1242 31.3671,41.1635 31.3785,41.2325 31.5092,41.3163 31.5715,41.333 31.704,41.3865 31.9482,41.4955 32.1164,41.5621 32.1353,41.5864 32.233,41.6723 32.4855,41.7622 32.5578,41.7848 32.6396,41.7864 32.6475,41.7921 32.6765,41.8021 32.7278,41.811 32.7528,41.8115 32.7829,41.812 32.8667,41.8277 32.9056,41.8377 32.9416,41.859 33.0226,41.8906 33.1741,41.929 33.2925,41.9726 33.3526,41.9694 33.4973,41.9566 33.5269,41.9476 33.5527,41.9427 33.5857,41.939 33.6917,41.9322 33.7275,41.9303 33.7879,41.9275 33.877,41.9256 33.947,41.9338 34.0551,41.9288 34.1621,41.9123 34.2085,41.9002 34.2679,41.8936 34.3171,41.8962 34.507,41.9006 34.5672,41.8928 34.5935,41.8925 34.6679,41.895 34.6965,41.8993 34.7444,41.9093 34.7845,41.9209 34.8027,41.932 34.8415,41.9629 34.8689,41.9892 34.9009,42.0386 34.9306,42.0446 34.958,42.0385 34.9793,42.0305 34.999,42.018 35.0664,41.9535 35.0509,41.9198 35.0479,41.8713 35.0887,41.8109 35.1641,41.7236 35.2166,41.6788 35.2382,41.6662 35.4077,41.6066 35.4307,41.5998 35.4444,41.597 35.4574,41.591 35.5005,41.584 35.5276,41.5803 35.568,41.5839 35.5949,41.5896 35.7277,41.6245 35.8273,41.6537 35.8618,41.6659 35.882,41.6784 35.9036,41.6874 35.9237,41.685 36.0065,41.6418 36.0248,41.6277 36.0641,41.5852 36.0816,41.5481 36.0836,41.4975 36.0675,41.4625 36.0742,41.4289 36.123,41.3729 36.1904,41.3097 36.295,41.237 36.3501,41.2077 36.3817,41.1955 36.4171,41.1945 36.4423,41.2013 36.4852,41.2232 36.521,41.249 36.5622,41.3009 36.6073,41.3141 36.6613,41.3185 36.6839,41.3166 36.7593,41.3091 36.8133,41.2987 36.8802,41.2692 36.9534,41.2327 36.9782,41.211 36.9786,41.1778 36.9815,41.147 37.0015,41.1239 37.0784,41.1004 37.1012,41.0986 37.1869,41.0947 37.2457,41.0907 37.3665,41.0341 37.448,40.9959 37.4883,40.9828 37.5298,40.9913 37.5588,41.0044 37.5783,41.0333 37.6047,41.0713 37.631,41.0889 37.7018,41.0729 37.7335,41.0523 37.7311,41.0194 37.7419,40.9992 37.7631,40.9812 37.8431,40.9361 37.8824,40.9421 37.9361,40.9416 38.0449,40.9175 38.0639,40.9094 38.1079,40.9032 38.2752,40.8724 38.3032,40.8642 38.368,40.866 38.4657,40.8743 38.6572,40.904 38.6813,40.917 38.7111,40.9354 38.7306,40.9509 38.7631,40.9637 38.8757,40.9948 38.9523,40.9876 39.0011,40.9947 39.0447,41.0047 39.0701,41.011 39.0942,41.0192 39.1011,41.0271 39.112,41.0364 39.1571,41.0279 39.1795,41.0103 39.2093,41.003 39.2311,41.0054 39.2729,41.0198 39.2998,41.03 39.3314,41.0428 39.3601,41.0606 39.4334,41.0513 39.4971,41.0059 39.6363,40.9567 39.8577,40.9105 40.0265,40.8756 40.0517,40.8711 40.0736,40.8704 40.0949,40.874 40.2139,40.9109 40.2899,40.9376 40.3028,40.9479 40.3102,40.9562 40.3381,40.9726 40.4064,40.9969 40.4261,40.9964 40.5249,41.0084 40.5822,41.0322 40.6739,41.0905 40.7168,41.1201 40.7928,41.1492 40.8267,41.1421 40.8653,41.1403 40.9877,41.184 41.115,41.2387 41.1523,41.2612 41.1782,41.2781 41.2811,41.3242 41.3281,41.3271 41.3562,41.3476 41.4418,41.4347 41.4744,41.4772 41.5121,41.4714 41.6673,41.4456 41.7022,41.4219 41.7725,41.3836 41.8254,41.4114 41.8526,41.4416 41.9007,41.4699 41.9219,41.4712 42.0399,41.4606 42.1167,41.4608 42.2222,41.4429 42.2536,41.4301 42.3087,41.4134 42.397,41.388 42.4138,41.3867 42.425,41.3918 42.4996,41.4552 42.5325,41.5317 42.5457,41.538 42.5929,41.5458 42.6225,41.5478 42.7723,41.5356 42.8338,41.46 42.9571,41.3468 42.9808,41.3276 43.0671,41.2735 43.1745,41.1439 43.2902,41.1557 43.3189,41.1552 43.3703,41.1372 43.3957,41.1216 43.4147,41.0916 43.4011,41.0667 43.4011,41.0667 357,4.0,Azerbaijan 46.3878,41.8498 46.441,41.8463 46.5005,41.8345 46.5778,41.7705 46.6972,41.8131 46.7048,41.7837 46.7098,41.7485 46.7423,41.7219 46.7973,41.6878 46.8759,41.637 46.9568,41.5715 47.0276,41.5225 47.0646,41.5296 47.0937,41.5162 47.1943,41.3735 47.1961,41.3278 47.2098,41.2744 47.3062,41.2253 47.5108,41.1647 47.5342,41.1687 47.5654,41.1856 47.5863,41.1889 47.6559,41.164 47.6952,41.1501 47.7304,41.1523 47.7936,41.1615 47.8499,41.1786 47.8562,41.2051 47.8426,41.2315 47.8926,41.3093 48.0044,41.4172 48.0399,41.4335 48.0839,41.4414 48.12,41.4456 48.1623,41.4549 48.1824,41.4623 48.3116,41.5278 48.3331,41.5422 48.353,41.562 48.3703,41.5923 48.4645,41.7201 48.5172,41.7887 48.546,41.7772 48.6083,41.7372 48.6578,41.6907 48.7137,41.6326 48.7912,41.5501 48.8159,41.5135 48.8337,41.4785 48.9243,41.394 48.9492,41.3841 48.9689,41.3714 49.0724,41.2184 49.0733,41.1831 49.0875,41.1054 49.1254,41.0149 49.139,40.9929 49.1601,40.9661 49.1841,40.9412 49.3377,40.7987 49.364,40.7869 49.4032,40.7839 49.4283,40.7741 49.461,40.7455 49.4678,40.7214 49.4463,40.6754 49.4424,40.6423 49.4605,40.617 49.5061,40.5822 49.644,40.5333 49.7368,40.5191 49.7606,40.5167 49.7987,40.5214 49.8564,40.538 49.9049,40.5437 49.9318,40.5404 49.9643,40.5299 50.1653,40.4465 50.2654,40.3578 50.2833,40.3358 50.2926,40.3173 50.2987,40.2883 50.3064,40.217 50.2808,40.2285 50.2414,40.2614 50.1911,40.2843 50.1517,40.2933 50.0604,40.3123 49.8929,40.3036 49.7796,40.2767 49.5015,40.1663 49.4504,40.1288 49.4266,40.1105 49.3592,40.0063 49.3882,39.9702 49.3829,39.9202 49.3599,39.8551 49.33,39.7025 49.3206,39.6445 49.2526,39.58 49.2173,39.446 49.2332,39.4226 49.2793,39.3861 49.31,39.3695 49.344,39.3423 49.329,39.3063 49.28,39.2812 49.2528,39.295 49.2274,39.2987 49.2075,39.2904 49.1889,39.2706 49.1751,39.2436 49.1367,39.006 49.1376,38.9939 49.1348,38.9818 49.0934,38.9426 49.0687,38.9314 49.019,38.9205 48.995,38.9254 48.9942,38.9633 49.0398,38.9723 49.057,38.9826 49.0739,39.0036 49.0827,39.0251 49.0801,39.0495 48.978,39.1358 48.9373,39.1448 48.8985,39.1319 48.8671,39.0698 48.8673,39.0083 48.8869,38.9813 48.8688,38.9105 48.843,38.8577 48.8213,38.8336 48.8017,38.7022 48.807,38.526 48.815,38.4171 48.8233,38.3995 48.7763,38.4074 48.7189,38.4024 48.6775,38.3811 48.5982,38.3462 48.5588,38.3536 48.5347,38.3739 48.5008,38.4283 48.3682,38.5812 48.3342,38.5774 48.2974,38.5624 48.2672,38.5594 48.1793,38.6288 48.1828,38.6718 48.1205,38.7071 48.085,38.7178 48.0596,38.7287 48.0387,38.7401 47.9604,38.7897 47.9489,38.8193 47.948,38.8535 48.0125,38.9103 48.0796,38.9248 48.1208,38.9254 48.1603,38.9278 48.1993,38.9337 48.2192,38.9422 48.2441,38.9602 48.2607,38.9883 48.2623,39.0108 48.2291,39.0687 48.2078,39.0826 48.1645,39.0961 48.0689,39.1671 48.0573,39.2079 48.0591,39.2343 48.0841,39.2627 48.1337,39.292 48.1811,39.2985 48.2139,39.306 48.2929,39.3457 48.2754,39.3793 48.2568,39.3964 48.2187,39.4286 48.186,39.4503 48.1475,39.4819 48.0942,39.529 48.0177,39.6018 47.9983,39.6211 47.9733,39.6389 47.9494,39.6548 47.9201,39.6711 47.7485,39.6345 47.7292,39.6223 47.7056,39.5892 47.4783,39.4709 47.3966,39.454 47.328,39.4261 47.2736,39.3802 47.2549,39.3533 47.2233,39.3303 47.1362,39.296 47.1014,39.2911 47.0364,39.2604 46.9805,39.1941 46.9709,39.1526 46.8899,39.1126 46.8457,39.1241 46.812,39.1236 46.7861,39.1167 46.6965,39.0422 46.6828,39.0072 46.5898,38.9331 46.5103,38.8721 46.4781,38.8322 46.4333,38.9138 46.4399,38.9561 46.4537,38.9809 46.4615,39.0004 46.4553,39.0299 46.4326,39.0826 46.4152,39.0929 46.3962,39.0987 46.3621,39.1216 46.361,39.1647 46.3934,39.1735 46.4336,39.1596 46.4792,39.1454 46.5579,39.1775 46.5581,39.1856 46.5188,39.2097 46.4951,39.2253 46.3357,39.34 46.3216,39.3619 46.3235,39.3944 46.342,39.4071 46.3861,39.4136 46.4504,39.4314 46.483,39.5051 46.4636,39.5336 46.2945,39.582 46.2669,39.5807 46.242,39.5722 46.1818,39.5507 46.1452,39.5525 46.1274,39.5627 45.9954,39.6552 45.9812,39.6786 45.9683,39.7008 45.9463,39.7254 45.9216,39.7327 45.8983,39.7338 45.8554,39.747 45.8192,39.7639 45.7885,39.7842 45.7583,39.8156 45.7429,39.8475 45.735,39.8731 45.7172,39.8956 45.6892,39.9084 45.6678,39.9133 45.6433,39.9166 45.5461,39.927 45.5356,39.9524 45.5518,39.9694 45.5762,39.9769 45.6198,39.9807 45.6517,39.981 45.7015,39.9796 45.7624,39.9752 45.7856,39.9713 45.8181,39.9691 45.8457,39.9791 45.9149,40.0734 45.935,40.1857 45.8936,40.2269 45.8509,40.2193 45.8198,40.222 45.6004,40.3302 45.5757,40.3455 45.4742,40.4113 45.3516,40.5622 45.327,40.6178 45.3582,40.6743 45.3744,40.6878 45.3936,40.6964 45.4612,40.7172 45.5146,40.7314 45.5403,40.7544 45.5556,40.7899 45.557,40.8204 45.2888,40.9547 45.0345,41.0135 45.0181,41.0342 45.0202,41.0674 45.0662,41.072 45.1139,41.0685 45.1426,41.0746 45.159,41.0937 45.1492,41.1134 45.1312,41.1268 45.0816,41.155 44.9851,41.1769 44.9613,41.2506 44.9895,41.2699 45.0795,41.3302 45.1242,41.3582 45.1986,41.4026 45.2233,41.4106 45.2444,41.4143 45.2793,41.4141 45.5486,41.3353 45.654,41.302 45.6502,41.2653 45.6486,41.2407 45.6851,41.2137 45.7418,41.1841 45.7881,41.1662 45.8066,41.1595 45.8326,41.1512 45.8594,41.1428 45.9029,41.1326 45.934,41.1273 45.9765,41.124 45.9992,41.1257 46.0284,41.1326 46.0723,41.156 46.1765,41.1581 46.2104,41.132 46.2305,41.1165 46.2771,41.0837 46.2961,41.0707 46.3146,41.058 46.429,41.0054 46.4511,41.002 46.5585,41.0542 46.6026,41.1043 46.6331,41.1652 46.6469,41.212 46.6257,41.2709 46.5572,41.3184 46.5292,41.3329 46.4892,41.3404 46.4386,41.3494 46.2684,41.4366 46.1696,41.5518 46.1527,41.5782 46.1324,41.6304 46.1308,41.6511 46.1344,41.6781 46.1461,41.6997 46.1667,41.7153 46.1925,41.7174 46.227,41.7105 46.2609,41.7093 46.2869,41.7264 46.3506,41.7845 46.3717,41.8146 46.3878,41.8498 46.3878,41.8498 9,4.0,Azerbaijan 45.4666,40.5605 45.5109,40.5868 45.5258,40.6054 45.5015,40.6184 45.4474,40.6159 45.43,40.591 45.4438,40.5662 45.4666,40.5605 45.4666,40.5605 667,3.0,Greece 26.3247,41.6639 26.362,41.6439 26.483,41.5865 26.5337,41.5644 26.5678,41.4991 26.5999,41.3667 26.5993,41.3181 26.5883,41.2973 26.5709,41.2845 26.3791,41.2131 26.3365,41.2078 26.289,41.1881 26.2879,41.0467 26.337,40.981 26.3245,40.9076 26.2517,40.8558 26.2152,40.8427 26.1778,40.831 26.1374,40.7726 26.0846,40.7018 26.0548,40.6903 26.0241,40.6884 26.0092,40.6899 26.0011,40.7043 25.9927,40.7461 26.0062,40.7611 25.9872,40.7836 25.8761,40.8018 25.7702,40.8066 25.7358,40.8052 25.7133,40.8019 25.6849,40.7999 25.6472,40.8061 25.5457,40.8236 25.4665,40.8407 25.3846,40.8594 25.3172,40.8928 25.2716,40.8995 25.2009,40.8923 25.142,40.8958 25.0994,40.9221 25.1291,40.9455 25.1074,40.964 25.0401,40.9614 25.0036,40.9585 24.8535,40.8693 24.8246,40.8491 24.7673,40.8061 24.7464,40.8059 24.5929,40.8151 24.5656,40.8524 24.5311,40.9045 24.4741,40.909 24.3976,40.8979 24.3611,40.8893 24.304,40.8492 24.2842,40.8304 24.2805,40.7927 24.1199,40.695 24.0576,40.6719 24.0274,40.6712 23.9591,40.6831 23.9335,40.6918 23.8794,40.7109 23.8542,40.7292 23.8088,40.7407 23.6897,40.6989 23.6642,40.6669 23.6571,40.6338 23.7626,40.5373 23.7884,40.4543 23.7946,40.4158 23.8262,40.3764 23.8504,40.355 23.8901,40.3387 23.9286,40.3333 23.9713,40.3396 24.1426,40.3043 24.2066,40.2676 24.3483,40.137 24.3608,40.103 24.2766,40.0742 24.2599,40.0861 24.2517,40.1094 24.1297,40.2333 24.0861,40.2446 24.0629,40.2424 24.0167,40.2477 23.997,40.255 23.9648,40.27 23.9348,40.2876 23.9193,40.3035 23.8979,40.316 23.8754,40.3216 23.809,40.3267 23.6975,40.3058 23.667,40.2754 23.6588,40.2526 23.6698,40.223 23.6924,40.1954 23.7551,40.1469 23.8474,40.1286 23.8755,40.1184 23.9418,40.084 23.9583,40.0672 23.9817,39.9691 23.9559,39.9079 23.9097,39.8987 23.9,39.8981 23.8678,39.9234 23.7945,39.9804 23.7583,40.043 23.7304,40.0795 23.6935,40.123 23.671,40.1464 23.6391,40.1729 23.6138,40.1855 23.3694,40.2345 23.3447,40.2203 23.3217,40.1998 23.3004,40.1646 23.3363,40.0986 23.4478,40.0004 23.473,39.9841 23.5724,39.9524 23.6437,39.9265 23.7147,39.8803 23.6865,39.869 23.6117,39.8712 23.5721,39.8759 23.4052,39.9262 23.3478,39.948 23.2908,40.078 23.2923,40.1367 23.2812,40.1729 23.2631,40.1907 23.2315,40.2035 23.1461,40.2279 23.0793,40.254 22.8682,40.3511 22.8125,40.4295 22.8375,40.4579 22.8578,40.4584 22.8911,40.4667 22.9153,40.474 22.9456,40.5034 22.9137,40.5809 22.8704,40.5987 22.832,40.5832 22.8254,40.5493 22.7842,40.5232 22.6736,40.4728 22.622,40.4646 22.5544,40.4193 22.5852,40.355 22.5993,40.3377 22.5775,40.2391 22.5176,40.1042 22.5382,40.0123 22.5645,39.9672 22.5851,39.9506 22.5951,39.9443 22.6722,39.9131 22.8262,39.7368 22.8298,39.7067 22.8353,39.6819 22.8823,39.5744 22.896,39.5447 22.9111,39.5309 22.992,39.4841 23.0871,39.4126 23.1069,39.3958 23.232,39.2822 23.2452,39.266 23.2961,39.1816 23.3125,39.138 23.2894,39.1075 23.175,39.0616 23.1302,39.0496 23.0917,39.0438 23.0535,39.0419 23.0242,39.0542 23.0464,39.0984 23.083,39.0985 23.073,39.0634 23.1434,39.0865 23.1811,39.1085 23.1905,39.1382 23.1475,39.2115 23.1309,39.2285 23.0901,39.2612 22.9645,39.3086 22.9102,39.3153 22.7934,39.2222 22.7868,39.1982 22.7931,39.1681 22.8032,39.1441 22.8248,39.1131 22.8457,39.1314 22.8827,39.1123 22.939,39.069 22.9646,39.0242 22.9644,38.9991 23.0033,38.9923 23.042,38.993 23.0207,38.9728 22.9791,38.9341 22.9071,38.8851 22.8026,38.8475 22.7198,38.8271 22.6505,38.8357 22.6198,38.8541 22.5843,38.8653 22.494,38.8225 22.5256,38.7897 22.5517,38.7819 22.5827,38.7822 22.6382,38.7868 22.6829,38.7795 22.7339,38.7401 22.9231,38.7083 23.0356,38.6447 23.0615,38.6051 23.0805,38.5858 23.103,38.5896 23.1575,38.6121 23.2531,38.6105 23.2864,38.6005 23.3056,38.565 23.2747,38.5244 23.3058,38.4937 23.3684,38.4646 23.4348,38.4556 23.5035,38.4562 23.5615,38.4116 23.5708,38.3881 23.6256,38.3174 23.6441,38.3057 23.7676,38.281 23.8197,38.2702 23.895,38.252 23.9287,38.2386 24.0421,38.152 24.0329,38.1083 23.9739,38.0251 23.9793,37.929 23.9989,37.8302 24.0248,37.8027 24.0548,37.756 24.0582,37.7345 24.0343,37.6411 24.0025,37.6107 23.9161,37.6299 23.8931,37.678 23.8764,37.7187 23.8561,37.7405 23.8229,37.7657 23.7879,37.7813 23.7431,37.792 23.5319,37.9381 23.5591,37.9611 23.5635,37.986 23.5441,38.0003 23.4807,37.9968 23.4275,37.9778 23.3962,37.9601 23.3847,37.9435 23.3008,37.9354 23.2063,37.933 23.1462,37.9093 23.1185,37.8869 23.0997,37.8771 23.0786,37.8727 23.0335,37.8703 22.9884,37.8774 22.9617,37.8398 22.9798,37.8044 23.0328,37.7971 23.0533,37.7962 23.0733,37.7994 23.1183,37.7158 23.1356,37.5727 23.1652,37.5531 23.2469,37.5113 23.3005,37.4907 23.332,37.5095 23.3159,37.5442 23.2974,37.5633 23.3751,37.5463 23.3909,37.4853 23.4149,37.4629 23.4673,37.4348 23.4907,37.418 23.4862,37.3907 23.4682,37.3813 23.3869,37.3677 23.3561,37.3703 23.3238,37.374 23.2401,37.359 23.2003,37.3371 23.1705,37.2612 23.1493,37.2485 23.1216,37.2551 23.038,37.314 23.0417,37.3527 23.0659,37.3494 23.1061,37.3858 23.0984,37.4062 22.949,37.474 22.8996,37.4931 22.7476,37.5482 22.7231,37.5433 22.6958,37.5213 22.6984,37.4434 22.7288,37.366 22.7793,37.3037 22.8745,37.1366 22.8658,37.0946 22.8775,37.0721 22.8902,37.0692 22.9067,37.0778 22.927,37.0746 22.9764,36.9833 22.979,36.9493 22.9846,36.8946 23.0226,36.8273 23.0609,36.7813 23.0838,36.7295 23.057,36.7072 23.0288,36.6995 22.999,36.6824 22.9988,36.6157 23.0051,36.589 23.0489,36.5358 23.08,36.5216 23.1712,36.3993 23.1078,36.3853 23.0599,36.399 22.9396,36.4808 22.9247,36.5073 22.8583,36.606 22.7525,36.7582 22.7008,36.7647 22.6031,36.7623 22.5632,36.7493 22.5435,36.7328 22.4835,36.6269 22.4517,36.5585 22.4561,36.4795 22.4743,36.4484 22.4786,36.4131 22.4598,36.3452 22.4476,36.3621 22.3684,36.4329 22.3485,36.4946 22.3269,36.6583 22.268,36.7739 22.2144,36.8319 22.1565,36.8514 22.1173,36.9093 22.1234,36.9772 22.0918,36.9853 22.0301,36.9884 22.0004,36.9831 21.9506,36.9659 21.9169,36.9513 21.9011,36.9328 21.8955,36.8152 21.9093,36.7721 21.933,36.7568 21.9095,36.7209 21.8468,36.6824 21.8178,36.7182 21.7954,36.7558 21.7386,36.7559 21.7356,36.7492 21.6752,36.7756 21.6631,36.8021 21.659,36.8426 21.6787,36.8811 21.6818,36.9034 21.6094,36.968 21.584,36.9856 21.5529,37.0223 21.5371,37.1133 21.5547,37.1609 21.5767,37.1823 21.6018,37.1927 21.6439,37.2293 21.6676,37.2748 21.653,37.3344 21.6312,37.3818 21.6215,37.3999 21.5762,37.4629 21.5479,37.4925 21.5294,37.5076 21.5041,37.525 21.373,37.6094 21.2574,37.7414 21.19,37.7731 21.1461,37.7837 21.1189,37.7872 21.0831,37.8018 21.0832,37.8433 21.1032,37.8947 21.124,37.8889 21.1562,37.8867 21.1837,37.9001 21.2554,37.9517 21.2876,37.9862 21.3389,38.0715 21.3449,38.1117 21.356,38.1686 21.4165,38.1582 21.4498,38.1436 21.5064,38.1176 21.5752,38.1079 21.613,38.1162 21.6447,38.1292 21.6904,38.1789 21.7036,38.2061 21.7127,38.2321 21.748,38.2632 21.8245,38.2966 21.9297,38.2865 21.9959,38.2549 22.0129,38.2311 22.1437,38.16 22.1906,38.1407 22.3487,38.1036 22.4259,38.0905 22.507,38.0707 22.6222,38.0335 22.6916,38.0002 22.731,37.9639 22.7692,37.9288 22.8327,37.8969 22.8777,37.8957 22.9255,37.9065 22.9459,37.9375 22.9187,37.9592 22.8689,37.9834 22.83,37.9904 22.8511,38.0074 22.9252,38.0377 22.9718,38.0273 22.9911,38.0178 23.0218,38.0152 23.0696,38.0161 23.0836,38.0182 23.0941,38.0197 23.1381,38.0319 23.1849,38.0577 23.194,38.1107 23.0878,38.1676 22.995,38.1746 22.9364,38.1706 22.9129,38.1651 22.9142,38.1442 22.893,38.152 22.8049,38.1835 22.7435,38.1959 22.6597,38.2807 22.5578,38.2875 22.504,38.3022 22.4804,38.3321 22.4324,38.383 22.3788,38.4031 22.3482,38.3444 22.3642,38.3087 22.3447,38.2917 22.1645,38.2941 22.139,38.3041 22.0963,38.3282 22.0134,38.355 21.9465,38.3635 21.9187,38.3662 21.6841,38.31 21.6315,38.3119 21.608,38.3111 21.5674,38.3006 21.5114,38.2729 21.4355,38.3235 21.3297,38.3898 21.309,38.3488 21.2388,38.2962 21.2101,38.2788 21.1361,38.257 21.0808,38.3127 21.0908,38.3318 21.1105,38.3505 21.0819,38.3882 21.0747,38.3864 21.0824,38.3998 21.0586,38.4597 20.96,38.6278 20.8732,38.6884 20.7821,38.716 20.741,38.7166 20.7052,38.761 20.722,38.866 20.7533,38.8882 20.9425,38.8983 21.0029,38.8775 20.9981,38.8561 21.0196,38.8384 21.057,38.8205 21.1128,38.8881 21.1363,38.9385 21.1162,38.9651 21.0738,39.007 21.0547,39.013 21.0172,38.9695 20.9049,39.0142 20.793,39.0696 20.7469,39.0415 20.7297,38.9769 20.7598,38.9539 20.8,38.9212 20.7058,38.9096 20.6775,38.9476 20.6863,38.9684 20.6716,39.0104 20.6545,39.031 20.5069,39.1417 20.446,39.2306 20.3582,39.2404 20.3186,39.2439 20.2688,39.2777 20.1876,39.3947 20.2181,39.3973 20.2006,39.475 20.1466,39.5844 20.0308,39.6371 19.9832,39.6467 19.9976,39.6522 20.0701,39.6315 20.1142,39.6118 20.1395,39.6058 20.1689,39.6005 20.1929,39.603 20.2906,39.6895 20.2706,39.7272 20.267,39.7627 20.2786,39.7673 20.3513,39.7436 20.3772,39.7572 20.3859,39.7756 20.3837,39.7998 20.3421,39.8468 20.3099,39.8786 20.2879,39.9469 20.4026,40.018 20.4222,40.0275 20.434,40.0289 20.4516,40.0205 20.528,40.0214 20.5553,40.0256 20.5767,40.0301 20.5934,40.04 20.6392,40.0511 20.6929,40.1798 20.686,40.2248 20.7088,40.2618 20.7304,40.2667 20.7588,40.3494 20.7635,40.386 20.8049,40.4166 20.8917,40.418 20.9209,40.4241 21.0134,40.5183 21.0248,40.575 21.0226,40.6288 20.9981,40.6637 20.9554,40.7472 20.955,40.8099 21.0926,40.8114 21.1218,40.8113 21.2856,40.8224 21.3206,40.8272 21.3454,40.837 21.3807,40.8679 21.499,40.8618 21.5188,40.8449 21.5464,40.8271 21.5704,40.8268 21.7566,40.8847 21.881,41.0192 21.8863,41.0489 21.9471,41.0855 22.1752,41.1213 22.229,41.1245 22.274,41.1068 22.3129,41.0881 22.4118,41.0751 22.4541,41.075 22.5558,41.0737 22.7065,41.1097 22.727,41.1814 22.7303,41.2053 22.7308,41.2599 22.7455,41.2814 22.7773,41.3012 22.8949,41.2963 22.9042,41.2955 22.944,41.2888 23.0627,41.2741 23.0882,41.2744 23.1535,41.277 23.1762,41.2865 23.1966,41.3076 23.1979,41.3295 23.2553,41.3575 23.4084,41.3626 23.5126,41.3478 23.5657,41.334 23.601,41.3313 23.7059,41.3619 23.7636,41.3901 23.8538,41.4053 23.9438,41.394 24.0332,41.4387 24.0311,41.4751 24.0601,41.5013 24.1241,41.4943 24.1668,41.497 24.1819,41.5082 24.2249,41.5226 24.273,41.5008 24.4327,41.505 24.5323,41.4498 24.5755,41.3858 24.734,41.3238 24.7756,41.3057 24.7786,41.3315 24.7846,41.357 24.8673,41.3653 25.0023,41.3238 25.027,41.3161 25.1285,41.2711 25.1514,41.2589 25.1564,41.255 25.2069,41.2071 25.2478,41.1965 25.3057,41.2035 25.4686,41.243 25.5262,41.273 25.6177,41.2711 25.7788,41.2896 25.8484,41.2628 25.8701,41.2646 25.9477,41.2737 26.104,41.3083 26.1622,41.3928 26.1468,41.4933 26.0937,41.5835 26.0653,41.5811 26.0328,41.6132 26.03,41.6445 26.0419,41.6672 26.1026,41.6922 26.1364,41.7007 26.1966,41.6924 26.235,41.6659 26.2658,41.6609 26.3247,41.6639 26.3247,41.6639 10,-5.0,United States -71.1224,41.5864 -71.1293,41.4926 -71.1346,41.4478 -71.1992,41.4118 -71.2574,41.4109 -71.2113,41.5144 -71.1649,41.5837 -71.1227,41.6048 -71.1224,41.5864 -71.1224,41.5864 1162,9.0,Japan 131.5096,34.6237 131.5739,34.6356 131.6099,34.6431 131.6456,34.6508 131.6619,34.6573 131.6744,34.664 131.8808,34.8293 131.9058,34.8639 131.9279,34.8871 131.9596,34.9111 132.0447,34.9682 132.0765,34.9819 132.1178,34.9926 132.1288,34.9968 132.1457,35.0124 132.1883,35.0609 132.227,35.1111 132.2335,35.1221 132.2432,35.1326 132.3757,35.2079 132.4076,35.2215 132.4241,35.2279 132.4415,35.2325 132.4578,35.2407 132.4673,35.247 132.4802,35.2591 132.4872,35.269 132.493,35.2808 132.5027,35.307 132.5095,35.3296 132.5066,35.3422 132.4951,35.3484 132.4697,35.3592 132.4582,35.3681 132.4617,35.3813 132.5093,35.4008 132.6577,35.4491 132.681,35.4553 132.6939,35.4565 132.7146,35.457 132.7568,35.4559 132.7887,35.4543 132.882,35.5106 132.897,35.5252 132.9184,35.5425 132.9292,35.5423 133.076,35.489 133.0764,35.4751 133.0812,35.4631 133.0946,35.4439 133.1068,35.4354 133.1411,35.4166 133.1554,35.4119 133.1721,35.4083 133.1873,35.4058 133.2084,35.4053 133.2286,35.4057 133.2447,35.4077 133.2617,35.4182 133.2742,35.4304 133.2831,35.4374 133.2974,35.4473 133.3074,35.4529 133.3471,35.466 133.3703,35.4721 133.3889,35.4756 133.4017,35.4768 133.4262,35.4765 133.445,35.4739 133.4614,35.4698 133.4758,35.4649 133.525,35.4532 133.5631,35.4477 133.5782,35.4463 133.6059,35.4453 133.64,35.4457 133.9108,35.4703 133.9427,35.4741 134.0858,35.4993 134.0984,35.5091 134.1091,35.5238 134.1283,35.5367 134.1608,35.5495 134.1848,35.5556 134.1944,35.5578 134.2175,35.5678 134.3404,35.606 134.3633,35.6076 134.5973,35.613 134.6191,35.6111 134.6381,35.6067 134.6512,35.598 134.7219,35.5935 134.7414,35.5954 134.8589,35.6424 134.879,35.6543 134.893,35.6637 134.9106,35.6891 134.9924,35.7124 135.0163,35.7181 135.0347,35.7212 135.0467,35.7223 135.1024,35.6849 135.1091,35.6765 135.1307,35.644 135.1277,35.6286 135.114,35.6197 135.0987,35.6185 135.0907,35.6097 135.0303,35.5356 135.0228,35.5259 135.0168,35.5144 135.0126,35.4986 135.0182,35.4858 135.1647,35.4323 135.2116,35.4269 135.2259,35.4381 135.2161,35.4596 135.201,35.4543 135.1789,35.4623 135.1702,35.4848 135.1711,35.499 135.1786,35.5071 135.2731,35.5462 135.2853,35.5484 135.3006,35.4998 135.2996,35.4816 135.3354,35.4494 135.3461,35.4466 135.4515,35.437 135.5377,35.4366 135.5497,35.4398 135.5605,35.4441 135.6462,35.4821 135.6551,35.4891 135.7916,35.609 135.7872,35.6629 135.795,35.6765 135.8382,35.7009 135.8528,35.698 135.867,35.6718 135.8735,35.655 135.8666,35.6392 135.8609,35.6285 135.8854,35.6094 135.8962,35.6088 135.9048,35.6206 135.9219,35.7062 135.9218,35.7227 135.9152,35.7423 135.909,35.7559 135.9035,35.7651 135.8851,35.7849 135.8773,35.7931 135.8551,35.812 135.8442,35.8183 135.8301,35.8302 135.7838,35.9193 135.7842,35.9358 135.8925,36.0789 135.9511,36.1549 136.0047,36.2011 136.0655,36.2292 136.1807,36.3125 136.229,36.3566 136.3405,36.4721 136.3528,36.4853 136.4065,36.5417 136.4347,36.5729 136.4705,36.6148 136.4778,36.6244 136.5168,36.6826 136.5336,36.7103 136.5428,36.7287 136.5728,36.7902 136.5826,36.8163 136.5899,36.8415 136.5885,36.9239 136.5869,36.9395 136.5506,37.0508 136.504,37.0924 136.5005,37.1057 136.503,37.1343 136.5101,37.1539 136.558,37.2832 136.5726,37.2979 136.592,37.3112 136.6071,37.3202 136.6644,37.3407 136.6876,37.3469 136.7011,37.3479 136.7306,37.3452 136.7428,37.3477 136.8469,37.3816 136.8967,37.4015 136.9058,37.4091 136.9145,37.4171 136.9233,37.425 136.9452,37.4355 136.9624,37.4412 137.068,37.4751 137.0861,37.4789 137.0995,37.4799 137.1139,37.4789 137.1433,37.4761 137.1623,37.471 137.1754,37.4627 137.1791,37.4529 137.1792,37.3975 137.1721,37.3879 137.0684,37.3186 136.9652,37.2448 136.891,37.1602 136.8552,37.139 136.8428,37.1364 136.8286,37.1375 136.7768,37.1553 136.7415,37.1554 136.6962,37.0899 136.6859,37.058 136.684,37.0462 136.6903,37.0262 136.8031,36.9995 136.8244,37.007 136.8347,37.02 136.8649,37.0153 136.8743,36.95 136.8737,36.917 136.8314,36.8366 136.8113,36.8135 136.8184,36.7961 136.8263,36.7878 136.8931,36.7404 136.9133,36.7304 136.9988,36.7071 137.0175,36.7034 137.1228,36.7054 137.1355,36.7073 137.1522,36.7138 137.1673,36.7223 137.2058,36.7486 137.2165,36.7588 137.2248,36.7736 137.241,36.8159 137.2411,36.8322 137.2411,36.846 137.2494,36.8709 137.2635,36.8844 137.2821,36.8934 137.2932,36.8979 137.3045,36.9012 137.365,36.9144 137.4021,36.9221 137.4365,36.928 137.4457,36.9308 137.5846,36.9742 137.6254,36.9859 137.6495,36.991 137.7194,37.0119 137.731,37.0153 137.7593,37.0255 137.7751,37.033 137.8438,37.0663 138.0286,37.1191 138.0626,37.131 138.0898,37.1426 138.1192,37.1618 138.3982,37.3568 138.5468,37.5217 138.5576,37.5381 138.5643,37.5494 138.5737,37.5682 138.5853,37.5945 138.5905,37.6078 138.5979,37.6324 138.6013,37.6444 138.6038,37.6577 138.6058,37.6736 138.6081,37.6855 138.6156,37.7048 138.6327,37.7328 138.6434,37.7501 138.6553,37.7645 138.6731,37.78 138.6922,37.7949 138.7202,37.8165 138.7374,37.8281 138.788,37.8531 138.7987,37.8579 138.8433,37.8753 138.8555,37.8785 138.8992,37.8926 138.94,37.9066 138.9509,37.9107 139.0516,37.9513 139.0719,37.9637 139.0918,37.9763 139.1156,37.994 139.13,38.0047 139.1583,38.0261 139.1811,38.0455 139.2416,38.1118 139.2616,38.1759 139.2648,38.2369 139.2657,38.2538 139.2652,38.2755 139.2662,38.2922 139.2683,38.3091 139.2769,38.3383 139.2872,38.3631 139.3019,38.3959 139.3844,38.5394 139.4261,38.6082 139.4426,38.63 139.4602,38.6383 139.5154,38.6791 139.5551,38.7179 139.568,38.7316 139.5793,38.7476 139.6032,38.7999 139.6732,38.984 139.7163,39.1158 139.7861,39.2519 139.7987,39.2661 139.8058,39.2771 139.8232,39.3087 139.8345,39.3343 139.8451,39.3653 139.8579,39.4023 139.8636,39.4208 139.8735,39.4784 139.882,39.5411 139.8813,39.5585 139.8753,39.6434 139.8742,39.6537 139.8733,39.6643 139.8715,39.6747 139.8682,39.6897 139.8576,39.7347 139.8529,39.7491 139.8487,39.7582 139.8351,39.7805 139.8209,39.7971 139.8083,39.8088 139.7878,39.8234 139.7716,39.8337 139.7592,39.8404 139.7424,39.845 139.7226,39.8481 139.7055,39.847 139.6816,39.8407 139.6734,39.8295 139.671,39.8194 139.6336,39.8106 139.5641,39.8133 139.5245,39.8641 139.5189,39.8731 139.5139,39.8847 139.5065,39.9343 139.5089,39.9454 139.5202,39.9479 139.5319,39.937 139.552,39.9294 139.6178,39.9129 139.6402,39.9148 139.6531,39.917 139.6643,39.9209 139.6958,39.9389 139.7055,39.9464 139.7183,39.9598 139.7297,39.9757 139.7499,40.0115 139.7758,40.0617 139.8174,40.1476 139.8296,40.1856 139.8359,40.231 139.836,40.2418 139.8336,40.2734 139.8276,40.2906 139.8209,40.3015 139.7473,40.383 139.7539,40.4293 139.7551,40.4459 139.7537,40.4615 139.7442,40.4908 139.7339,40.506 139.7133,40.52 139.6745,40.5302 139.6626,40.5422 139.6612,40.5523 139.8077,40.6848 139.8174,40.6922 139.8405,40.7033 139.8625,40.7056 139.8749,40.7028 139.8934,40.6933 139.9114,40.6863 139.922,40.6861 139.9413,40.6914 139.9588,40.6973 140.027,40.7257 140.0382,40.7307 140.0542,40.7396 140.0684,40.7511 140.077,40.7606 140.0844,40.7718 140.0905,40.785 140.0944,40.7972 140.112,40.856 140.1474,40.9917 140.124,41.0482 140.1284,41.0883 140.1362,41.163 140.1443,41.1915 140.1527,41.2005 140.1631,41.2009 140.2105,41.1782 140.2224,41.1678 140.2303,41.1598 140.247,41.144 140.2639,41.1364 140.2863,41.1351 140.3005,41.141 140.3178,41.1536 140.3321,41.1653 140.3557,41.1737 140.3731,41.1747 140.4015,41.1667 140.4463,41.135 140.4552,41.1207 140.4566,41.1079 140.4518,41.0899 140.4455,41.077 140.4393,41.0585 140.438,41.0421 140.4392,41.0264 140.4648,40.8943 140.4682,40.8795 140.4788,40.8454 140.4912,40.8227 140.5047,40.8061 140.516,40.7936 140.5293,40.7849 140.5612,40.7746 140.586,40.775 140.6049,40.7781 140.6226,40.7842 140.6328,40.791 140.6425,40.7987 140.651,40.8082 140.6785,40.8445 140.6804,40.8558 140.6774,40.8657 140.6643,40.899 140.68,40.9379 140.6897,40.9455 140.739,40.9347 140.7569,40.925 140.7697,40.9104 140.7942,40.8865 140.8043,40.8795 140.8918,40.8286 140.9227,40.8144 140.9416,40.8108 140.9562,40.816 140.9659,40.823 140.9759,40.8308 140.9863,40.8428 141.0021,40.8696 141.0125,40.8884 141.0346,40.9323 141.0393,40.945 141.0456,40.9634 141.0847,41.1004 141.0793,41.1229 141.0676,41.1463 141.0582,41.159 141.0515,41.1677 141.0348,41.1837 141.0047,41.2055 140.9897,41.2139 140.9676,41.2158 140.951,41.1951 140.9627,41.1901 140.9285,41.1597 140.8689,41.131 140.8527,41.128 140.8378,41.1295 140.8074,41.1396 140.7775,41.1359 140.6926,41.1113 140.6424,41.0882 140.6262,41.0796 140.6094,41.0765 140.5985,41.077 140.5882,41.0841 140.5803,41.0923 140.5736,41.106 140.5694,41.1233 140.645,41.3538 140.7172,41.4786 140.7292,41.4826 140.8934,41.4238 140.9119,41.4139 140.9375,41.3959 140.9578,41.3774 140.9705,41.366 140.9774,41.3572 140.9827,41.3482 140.9919,41.3354 141.0007,41.3271 141.0144,41.3156 141.0306,41.3078 141.0601,41.2988 141.0765,41.2958 141.1065,41.2931 141.1208,41.2938 141.1411,41.2954 141.1608,41.2991 141.1787,41.3053 141.2009,41.3161 141.2234,41.3272 141.2612,41.2972 141.2248,41.1579 141.2179,41.1448 141.2089,41.1305 141.2025,41.1124 141.2015,41.0984 141.2062,40.8801 141.2083,40.8336 141.21,40.814 141.2223,40.6995 141.2247,40.6841 141.2277,40.669 141.2353,40.6447 141.2671,40.5483 141.2726,40.5342 141.2781,40.5248 141.2833,40.5158 141.2885,40.5072 141.378,40.486 141.3895,40.4845 141.4393,40.4421 141.4458,40.4334 141.4539,40.4202 141.4651,40.4131 141.4812,40.4023 141.4957,40.3915 141.5037,40.3832 141.5138,40.3705 141.627,40.2219 141.6479,40.1799 141.6691,40.1123 141.6613,40.073 141.6516,40.0653 141.6437,40.055 141.6406,40.0431 141.6409,40.0325 141.6473,40.0182 141.6549,40.0103 141.7049,39.9734 141.748,39.9525 141.7561,39.9444 141.7646,39.9181 141.7966,39.7437 141.7869,39.6083 141.8394,39.5621 141.8728,39.5111 141.878,39.5022 141.8633,39.4217 141.8426,39.3703 141.8231,39.37 141.7954,39.3722 141.7523,39.337 141.7156,39.286 141.708,39.222 141.7085,39.2044 141.6995,39.1101 141.6944,39.0736 141.6772,39.0193 141.6583,38.9761 141.5586,38.9753 141.4464,38.9512 141.4402,38.9414 141.4443,38.9258 141.4541,38.8788 141.4532,38.8412 141.443,38.8438 141.4033,38.842 141.3913,38.8299 141.3441,38.7369 141.3267,38.6379 141.3424,38.5769 141.3584,38.4705 141.3585,38.3432 141.3498,38.256 141.3315,38.2207 141.271,38.2579 141.2481,38.2888 141.2508,38.3185 141.2352,38.3378 141.1697,38.3551 141.1554,38.3568 141.1195,38.359 141.1062,38.3588 141.0685,38.3526 140.9082,38.3216 140.8939,38.3169 140.8687,38.295 140.8568,38.2749 140.7668,38.1052 140.7533,38.0627 140.7366,37.9911 140.7324,37.9626 140.7312,37.9403 140.7312,37.9295 140.732,37.895 140.7344,37.8768 140.7399,37.853 140.7722,37.742 140.7937,37.7284 140.8134,37.7138 140.8285,37.6975 140.8333,37.6885 140.8366,37.6784 140.8472,37.5366 140.8534,37.4144 140.8537,37.3333 140.8514,37.316 140.8189,37.1414 140.7898,36.9434 140.783,36.9272 140.7737,36.9177 140.7395,36.8922 140.6884,36.8779 140.6399,36.8604 140.6255,36.8446 140.6135,36.8258 140.6133,36.8066 140.5833,36.7719 140.5689,36.7492 140.562,36.7381 140.4532,36.4897 140.4223,36.381 140.3848,36.2215 140.3825,36.2069 140.3847,36.1701 140.3873,36.1492 140.3891,36.1388 140.4059,36.0694 140.4093,36.0565 140.4178,36.0406 140.4391,36.0042 140.4477,35.9915 140.5947,35.7793 140.6543,35.7035 140.6412,35.6552 140.4926,35.6339 140.481,35.6305 140.4591,35.6226 140.4437,35.6146 140.4057,35.5874 140.3868,35.5739 140.3631,35.5564 140.3548,35.5489 140.2968,35.4968 140.2883,35.4881 140.2689,35.4643 140.2548,35.4417 140.2312,35.3892 140.2237,35.3701 140.216,35.3455 140.2144,35.3345 140.2141,35.3234 140.2164,35.3078 140.2208,35.293 140.2316,35.2728 140.2353,35.2554 140.2345,35.1943 140.2329,35.1829 140.2255,35.1639 140.2167,35.1441 140.2093,35.1341 140.1505,35.0905 140.0539,35.0611 140.0417,35.058 139.9408,35.047 139.821,34.976 139.8118,34.9694 139.7909,34.9329 139.7845,34.8863 139.7734,34.872 139.7606,34.8656 139.7263,34.8561 139.7082,34.8526 139.6824,34.851 139.6571,34.8559 139.5909,34.9124 139.5905,34.9239 139.6146,34.9283 139.6277,34.9289 139.6454,34.9326 139.6779,34.9451 139.686,34.9573 139.6835,34.9704 139.6647,35.0245 139.6434,35.1147 139.6425,35.1254 139.6677,35.2393 139.7391,35.3356 139.7885,35.3907 139.8608,35.447 139.9225,35.4968 139.9315,35.5125 139.9272,35.5273 139.8935,35.5754 139.8826,35.5872 139.8598,35.6036 139.8141,35.6183 139.7868,35.6208 139.7559,35.6168 139.5958,35.5933 139.5872,35.5814 139.585,35.5669 139.586,35.5502 139.59,35.5248 139.6033,35.4721 139.5968,35.4623 139.5773,35.4495 139.5457,35.4382 139.5222,35.433 139.4966,35.4307 139.4652,35.4179 139.4537,35.3456 139.4691,35.2582 139.4764,35.2421 139.5067,35.2239 139.5262,35.2192 139.5441,35.2183 139.5641,35.2122 139.4981,35.098 139.4788,35.0907 139.4606,35.0864 139.4439,35.0866 139.4338,35.0929 139.4413,35.1205 139.4427,35.1407 139.4316,35.1774 139.4276,35.1866 139.3872,35.239 139.3771,35.2462 139.269,35.2646 139.2546,35.2658 139.2224,35.2643 139.1646,35.2606 139.1456,35.2584 139.1035,35.2499 139.0572,35.2326 139.036,35.2229 139.0099,35.2097 138.993,35.1985 138.9795,35.1827 138.9664,35.1586 138.9607,35.1456 138.933,35.0718 138.9201,35.0578 138.9137,35.0454 138.9085,35.0182 138.9109,34.9515 138.9162,34.9427 138.929,34.9287 138.9488,34.9221 138.967,34.9019 138.9712,34.8818 138.9629,34.8487 138.9584,34.8356 138.8879,34.7327 138.8806,34.7221 138.8017,34.6275 138.7321,34.5803 138.7057,34.568 138.6706,34.5547 138.6495,34.5563 138.6275,34.5655 138.5664,34.6421 138.569,34.6761 138.5838,34.6903 138.5859,34.7231 138.5867,34.7835 138.5857,34.8421 138.5883,34.9156 138.5941,34.9375 138.603,34.959 138.6201,34.9667 138.6442,34.9707 138.6644,34.9634 138.714,34.9696 138.7264,34.9957 138.6666,35.0415 138.6549,35.0477 138.637,35.0572 138.5816,35.0792 138.5616,35.0841 138.5437,35.0859 138.5312,35.085 138.5187,35.0827 138.3974,35.0566 138.3877,35.0504 138.1532,34.8191 138.0454,34.6625 138.026,34.6273 138.02,34.6151 138.0186,34.5923 138.0221,34.5776 138.0276,34.5686 138.0351,34.5607 137.9867,34.559 137.8587,34.5994 137.8036,34.6136 137.7825,34.6151 137.7502,34.6127 137.6856,34.5986 137.6671,34.5964 137.641,34.595 137.621,34.5951 137.4579,34.6162 137.4132,34.6303 137.3503,34.6233 137.2305,34.6095 137.1685,34.6017 137.15,34.5985 137.1208,34.5901 137.0653,34.5721 136.9982,34.5498 136.9655,34.5374 136.9479,34.5334 136.851,34.5294 136.8461,34.5396 136.8838,34.5935 136.8924,34.6012 136.9086,34.602 136.9641,34.6067 137.0058,34.6152 137.1642,34.6691 137.1705,34.6801 137.15,34.7233 137.1434,34.7319 137.1216,34.7505 137.1119,34.7577 137.0991,34.7631 137.0365,34.7591 136.9761,34.7294 136.9135,34.7164 136.8662,34.7177 136.8494,34.7206 136.8389,34.7296 136.8287,34.7424 136.8113,34.7679 136.803,34.7926 136.8035,34.8204 136.8061,34.8345 136.8087,34.8693 136.8005,34.8802 136.7812,34.853 136.7604,34.8182 136.7475,34.7892 136.7394,34.7444 136.7403,34.7339 136.7465,34.7226 136.773,34.695 136.779,34.6863 136.7899,34.6687 136.7962,34.6467 136.7858,34.6438 136.7551,34.6514 136.7458,34.6561 136.7005,34.6817 136.686,34.692 136.6773,34.6997 136.6701,34.7079 136.6476,34.8476 136.6457,34.8634 136.6467,34.8749 136.6495,34.8901 136.6546,34.9059 136.661,34.9173 136.6727,34.9312 136.6838,34.9404 136.7082,34.9642 136.7241,34.9918 136.725,35.0063 136.7161,35.0401 136.673,35.0397 136.6443,35.0254 136.5679,34.9818 136.5587,34.9786 136.5206,34.9639 136.4897,34.9479 136.4809,34.9408 136.4739,34.9302 136.4651,34.9074 136.4715,34.8947 136.4783,34.8752 136.4689,34.8313 136.4629,34.8153 136.439,34.7869 136.424,34.7735 136.4082,34.7607 136.3954,34.749 136.375,34.7269 136.3605,34.7074 136.3538,34.6964 136.3431,34.6581 136.3442,34.6378 136.3588,34.5628 136.3952,34.5503 136.4108,34.5518 136.4303,34.5532 136.4491,34.5499 136.4649,34.5426 136.5175,34.5047 136.5908,34.4608 136.6161,34.4576 136.6501,34.4524 136.6806,34.4378 136.6904,34.4311 136.738,34.3951 136.744,34.3671 136.7203,34.2283 136.6753,34.2061 136.6606,34.2032 136.6498,34.2038 136.6106,34.2131 136.5943,34.2246 136.6022,34.2316 136.5875,34.2561 136.4915,34.26 136.4127,34.2211 136.3034,34.1833 136.195,34.1535 136.1767,34.158 136.167,34.1515 136.1265,34.1221 136.1157,34.1046 136.0881,33.9905 136.1011,33.9439 136.098,33.9311 136.0889,33.9242 136.0526,33.8986 136.0264,33.8822 135.9986,33.8757 135.9732,33.8651 135.9422,33.8467 135.9192,33.8251 135.907,33.8123 135.8961,33.7973 135.8871,33.7802 135.8777,33.7564 135.8722,33.7371 135.8646,33.7175 135.8472,33.68 135.8403,33.6706 135.8195,33.6475 135.8073,33.6267 135.775,33.5391 135.7617,33.5257 135.7326,33.4999 135.7142,33.4864 135.596,33.4175 135.4137,33.459 135.356,33.476 135.2817,33.5026 135.2316,33.5362 135.2241,33.5437 135.1605,33.6193 135.1733,33.6446 135.1903,33.6388 135.2055,33.6417 135.2228,33.6638 135.2029,33.6816 135.1446,33.7137 135.1043,33.7284 135.0191,33.7704 134.8895,33.8378 134.8866,33.8503 134.9101,33.9305 134.9538,34.0187 135.0205,34.1023 134.9593,34.177 134.9373,34.2009 134.9227,34.2113 134.9573,34.279 134.9697,34.2816 135.052,34.3116 135.1203,34.3525 135.1913,34.4117 135.2039,34.4238 135.2607,34.4872 135.2769,34.5096 135.2822,34.5268 135.2792,34.5902 135.2439,34.6525 135.1583,34.6794 135.1397,34.6771 135.0479,34.6454 135.0175,34.625 135.0134,34.6134 134.9949,34.6026 134.9781,34.5972 134.8886,34.5784 134.8739,34.5801 134.7944,34.5952 134.7383,34.6246 134.7157,34.6428 134.702,34.6535 134.5877,34.718 134.5681,34.7241 134.534,34.7336 134.5002,34.7391 134.4893,34.7397 134.4768,34.7387 134.3256,34.7158 134.2391,34.6814 134.1716,34.6618 134.1492,34.6597 134.1253,34.6653 134.0763,34.6765 134.0682,34.6652 134.0755,34.6505 134.0157,34.5859 133.9632,34.5516 133.9456,34.5426 133.9253,34.5368 133.8993,34.5441 133.8858,34.554 133.8758,34.5608 133.8597,34.5673 133.8204,34.5676 133.7588,34.5447 133.753,34.5347 133.7535,34.5214 133.7636,34.5114 133.7773,34.518 133.7842,34.5281 133.7966,34.5403 133.8065,34.546 133.8304,34.5507 133.8489,34.5537 133.8683,34.546 133.8503,34.5085 133.7633,34.4122 133.7446,34.4072 133.7257,34.41 133.6529,34.4253 133.5959,34.4519 133.5489,34.4824 133.5296,34.4832 133.5057,34.4783 133.4949,34.4742 133.3032,34.3834 133.1697,34.3073 133.1273,34.3053 133.1408,34.3156 133.143,34.3267 133.0946,34.3821 133.079,34.3846 133.0679,34.378 133.0621,34.3658 133.0441,34.313 133.0369,34.2806 133.0175,34.2394 132.8987,34.2114 132.8926,34.263 132.8739,34.286 132.7295,34.2774 132.6478,34.2696 132.6374,34.2649 132.6081,34.2325 132.5966,34.2166 132.6026,34.2028 132.5927,34.1934 132.5184,34.169 132.4822,34.1599 132.46,34.1571 132.3984,34.1511 132.3784,34.1539 132.3285,34.255 132.3321,34.2842 132.2369,34.3261 132.2269,34.3259 132.1991,34.3209 132.1822,34.3153 132.1648,34.3057 132.1507,34.2957 132.0533,34.198 132.0611,34.1538 132.0659,34.1382 132.0697,34.1231 132.068,34.1107 132.0418,33.9525 132.0253,33.9269 132.0078,33.9129 131.958,33.9036 131.9609,33.8708 131.9824,33.8191 131.9829,33.797 131.9718,33.7886 131.8895,33.7395 131.8792,33.7346 131.8665,33.7334 131.8972,33.7682 131.8774,33.8573 131.6657,33.9596 131.6529,33.9787 131.6162,34.0054 131.5748,34.0155 131.4341,33.9917 131.2256,33.9383 131.1646,33.9139 131.154,33.9089 131.0878,33.8808 131.0024,33.8945 130.9945,33.9046 130.9935,33.9156 130.9779,33.9423 130.9384,33.9735 130.922,33.9828 130.8901,33.9958 130.8603,34.0016 130.8277,33.9693 130.8208,33.9506 130.8103,33.9382 130.747,33.8789 130.7354,33.8758 130.7236,33.8836 130.7146,33.8967 130.7173,34.087 130.725,34.0954 130.7539,34.1281 130.7579,34.1433 130.7548,34.1532 130.7423,34.187 130.7364,34.1957 130.7142,34.2221 130.7099,34.2549 130.7667,34.3627 130.775,34.3753 130.7951,34.3868 130.807,34.3902 130.9955,34.3786 131.0417,34.3598 131.0399,34.3321 131.0926,34.3386 131.1464,34.3503 131.2359,34.3837 131.2434,34.4131 131.3843,34.5648 131.4205,34.6033 131.4333,34.6151 131.4526,34.6173 131.5096,34.6237 131.5096,34.6237 26,-5.0,United States -70.4595,41.4187 -70.4517,41.4106 -70.4449,41.4023 -70.413,41.3614 -70.4122,41.3087 -70.4218,41.3061 -70.4507,41.3074 -70.4823,41.3098 -70.5037,41.3105 -70.5325,41.3091 -70.5788,41.3051 -70.5993,41.3022 -70.6306,41.2955 -70.6452,41.2892 -70.6557,41.279 -70.6567,41.2666 -70.668,41.262 -70.6837,41.2697 -70.7051,41.2838 -70.7144,41.2905 -70.7375,41.3144 -70.5589,41.4121 -70.5199,41.4271 -70.4659,41.4221 -70.4595,41.4187 -70.4595,41.4187 18,-5.0,United States -69.9229,41.3372 -69.8986,41.2813 -69.8634,41.2359 -69.8663,41.2196 -69.883,41.2087 -69.8975,41.2036 -69.9171,41.2012 -69.9382,41.2005 -69.9971,41.2015 -70.0114,41.2019 -70.0443,41.21 -70.1356,41.2353 -70.1009,41.2477 -70.0808,41.2491 -70.0132,41.2498 -69.9386,41.3127 -69.9229,41.3372 -69.9229,41.3372 187,5.0,Armenia 43.4011,41.0667 43.4867,41.0887 43.5104,41.0892 43.5399,41.0832 43.5776,41.0767 43.6746,41.0672 43.6962,41.0665 43.7315,41.0722 43.7734,41.0992 43.7964,41.1139 43.8322,41.1189 43.9325,41.1179 44.0622,41.1357 44.0841,41.1385 44.1123,41.1506 44.1882,41.1772 44.2799,41.1661 44.3691,41.1458 44.4231,41.1412 44.5051,41.139 44.6671,41.1657 44.7633,41.1662 44.7874,41.1667 44.8082,41.1704 44.9168,41.2236 44.9613,41.2506 44.9851,41.1769 45.0816,41.155 45.1312,41.1268 45.1492,41.1134 45.159,41.0937 45.1426,41.0746 45.1139,41.0685 45.0662,41.072 45.0202,41.0674 45.0181,41.0342 45.0345,41.0135 45.2888,40.9547 45.557,40.8204 45.5556,40.7899 45.5403,40.7544 45.5146,40.7314 45.4612,40.7172 45.3936,40.6964 45.3744,40.6878 45.3582,40.6743 45.327,40.6178 45.3516,40.5622 45.4742,40.4113 45.5757,40.3455 45.6004,40.3302 45.8198,40.222 45.8509,40.2193 45.8936,40.2269 45.935,40.1857 45.9149,40.0734 45.8457,39.9791 45.8181,39.9691 45.7856,39.9713 45.7624,39.9752 45.7015,39.9796 45.6517,39.981 45.6198,39.9807 45.5762,39.9769 45.5518,39.9694 45.5356,39.9524 45.5461,39.927 45.6433,39.9166 45.6678,39.9133 45.6892,39.9084 45.7172,39.8956 45.735,39.8731 45.7429,39.8475 45.7583,39.8156 45.7885,39.7842 45.8192,39.7639 45.8554,39.747 45.8983,39.7338 45.9216,39.7327 45.9463,39.7254 45.9683,39.7008 45.9812,39.6786 45.9954,39.6552 46.1274,39.5627 46.1452,39.5525 46.1818,39.5507 46.242,39.5722 46.2669,39.5807 46.2945,39.582 46.4636,39.5336 46.483,39.5051 46.4504,39.4314 46.3861,39.4136 46.342,39.4071 46.3235,39.3944 46.3216,39.3619 46.3357,39.34 46.4951,39.2253 46.5188,39.2097 46.5581,39.1856 46.5579,39.1775 46.4792,39.1454 46.4336,39.1596 46.3934,39.1735 46.361,39.1647 46.3621,39.1216 46.3962,39.0987 46.4152,39.0929 46.4326,39.0826 46.4553,39.0299 46.4615,39.0004 46.4537,38.9809 46.4399,38.9561 46.4333,38.9138 46.4781,38.8322 46.4542,38.8346 46.39,38.8462 46.3146,38.8633 46.2891,38.8664 46.2329,38.8522 46.207,38.8387 46.1834,38.8233 46.1337,38.8005 46.1168,38.7976 46.0618,38.8664 46.0455,38.8923 45.9073,39.1306 45.9078,39.1539 45.9244,39.179 45.9439,39.2051 45.9234,39.2313 45.794,39.3039 45.7674,39.402 45.7577,39.5048 45.7304,39.5213 45.6767,39.5349 45.565,39.5156 45.5379,39.5074 45.4968,39.4894 45.467,39.4729 45.4409,39.4603 45.4037,39.4497 45.2657,39.4948 45.2052,39.5665 45.0146,39.7276 44.9861,39.7345 44.9603,39.7253 44.9378,39.7075 44.8997,39.685 44.8663,39.6752 44.8288,39.6784 44.7976,39.6806 44.7339,39.6668 44.7184,39.6617 44.6857,39.6859 44.5809,39.759 44.5323,39.7873 44.5001,39.8345 44.4914,39.8538 44.4275,39.918 44.339,39.9588 44.2914,39.9771 44.2225,40.0012 43.9845,39.9653 43.9116,39.9657 43.8742,39.9685 43.8529,39.9738 43.6091,40.0581 43.5893,40.0796 43.6093,40.1012 43.6557,40.1122 43.6021,40.229 43.5473,40.3234 43.5237,40.4056 43.5331,40.4555 43.5933,40.4856 43.6583,40.575 43.6815,40.6209 43.6908,40.699 43.6828,40.7245 43.6129,40.8804 43.5353,40.9473 43.5065,40.9504 43.4245,40.9767 43.3947,41.0487 43.4011,41.0667 43.4011,41.0667 9,5.0,Armenia 44.9643,40.9844 44.9878,40.9926 44.9935,41.0136 44.962,41.0409 44.9309,41.0392 44.9225,41.0112 44.9484,40.9867 44.9643,40.9844 44.9643,40.9844 6,5.0,Armenia 45.1674,40.9232 45.1791,40.9391 45.1402,40.9534 45.1443,40.9331 45.1674,40.9232 45.1674,40.9232 133,2.0,Italy 8.3549,39.1821 8.4131,39.2249 8.4213,39.2466 8.4074,39.2953 8.387,39.2992 8.3602,39.3287 8.3808,39.4028 8.4019,39.4492 8.4367,39.5882 8.4322,39.6374 8.4409,39.7144 8.4859,39.6792 8.5123,39.7075 8.5304,39.7348 8.5401,39.7719 8.5457,39.8003 8.5425,39.8228 8.5089,39.8574 8.4454,39.8652 8.4185,39.8498 8.3848,39.8567 8.3873,39.9014 8.3977,39.9618 8.453,40.0981 8.4504,40.1816 8.4459,40.276 8.3559,40.4471 8.2906,40.542 8.1847,40.5701 8.1529,40.5417 8.1372,40.575 8.1674,40.5905 8.1612,40.6465 8.1387,40.6754 8.138,40.6984 8.1812,40.8674 8.217,40.8921 8.2211,40.8635 8.2733,40.814 8.2957,40.8014 8.3452,40.7902 8.4461,40.776 8.4685,40.7744 8.4938,40.7776 8.5313,40.7855 8.568,40.794 8.5927,40.8025 8.6089,40.8226 8.627,40.8446 8.6894,40.8661 8.7378,40.8683 8.7705,40.8722 8.7981,40.8883 8.8381,40.9203 8.8614,40.9533 9.0004,41.0758 9.0347,41.0839 9.1484,41.1451 9.1522,41.1927 9.2204,41.2083 9.5003,41.1004 9.5495,41.0716 9.6208,40.9432 9.4977,40.8742 9.5534,40.8668 9.5996,40.8751 9.6462,40.8065 9.7369,40.6205 9.7291,40.5927 9.7295,40.5844 9.7372,40.5519 9.7915,40.4948 9.8108,40.4816 9.7962,40.4229 9.7868,40.3969 9.7482,40.34 9.7215,40.3275 9.6926,40.3086 9.6443,40.263 9.6238,40.237 9.6104,40.2065 9.6136,40.1478 9.6437,40.0941 9.6853,40.0573 9.7004,39.9955 9.6821,39.8904 9.6619,39.7643 9.6574,39.7349 9.6581,39.7084 9.6625,39.6864 9.6389,39.505 9.6292,39.4419 9.6179,39.3862 9.5873,39.2886 9.5547,39.1843 9.5566,39.1469 9.5524,39.1018 9.509,39.0743 9.43,39.0804 9.3979,39.097 9.3785,39.1141 9.3537,39.1336 9.3302,39.1502 9.3092,39.162 9.2829,39.17 9.0017,39.219 9.0014,39.0826 9.0041,39.058 9.0103,39.0357 9.0314,39.0012 8.9948,38.9444 8.8902,38.8589 8.8394,38.8343 8.7002,38.878 8.635,38.8468 8.6044,38.875 8.5549,38.9661 8.54,39.0063 8.4939,39.0171 8.4634,38.9926 8.4385,38.9564 8.4253,38.9211 8.3972,38.915 8.3487,38.9864 8.3347,39.03 8.3455,39.0618 8.4147,39.0631 8.4427,39.0459 8.4478,39.0738 8.4207,39.1192 8.3859,39.1567 8.3549,39.1821 8.3549,39.1821 74,-5.0,United States -72.7677,40.7102 -72.7905,40.7278 -72.9109,40.7071 -72.9951,40.6847 -73.0398,40.6731 -73.3379,40.62 -73.4603,40.5995 -73.5518,40.5742 -73.4866,40.5579 -73.517,40.5486 -73.5526,40.5481 -73.696,40.5465 -73.676,40.5691 -73.6698,40.5898 -73.7116,40.6108 -73.7352,40.6136 -73.7584,40.6111 -73.7983,40.59 -73.7798,40.5636 -73.8421,40.5394 -73.9032,40.5349 -73.9312,40.5799 -73.9297,40.6032 -73.9037,40.6341 -73.901,40.6488 -73.8384,40.727 -73.8157,40.7465 -73.7341,40.759 -73.6303,40.8058 -73.5165,40.8631 -73.4885,40.8744 -73.3897,40.888 -73.2534,40.8796 -73.1261,40.8646 -73.0982,40.8714 -73.0498,40.8969 -72.9368,40.9224 -72.7934,40.924 -72.6814,40.9196 -72.6583,40.9178 -72.538,40.9355 -72.5139,40.944 -72.4776,40.9694 -72.4282,40.9989 -72.3535,41.0426 -72.2513,41.0946 -72.1858,41.1156 -72.1424,41.1109 -72.1584,41.0828 -72.1861,41.073 -72.2886,41.0388 -72.5175,40.8716 -72.485,40.8601 -72.3918,40.8587 -72.3368,40.8763 -72.3025,40.9186 -72.2464,40.9537 -72.1643,40.9731 -72.0358,40.989 -72.0107,40.9592 -71.9543,40.9698 -71.9222,40.987 -71.9017,41.0046 -71.8212,41.0357 -71.7679,41.0284 -71.9851,40.9356 -72.2533,40.8411 -72.3473,40.8097 -72.443,40.7794 -72.5662,40.7487 -72.5988,40.7437 -72.7196,40.7241 -72.7677,40.7102 -72.7677,40.7102 557,6.0,Tajikistan 73.5564,39.4105 73.57,39.3212 73.5698,39.2974 73.5467,39.249 73.5294,39.217 73.5214,39.1917 73.6295,39.0326 73.6773,39.0059 73.7429,38.9525 73.7534,38.929 73.747,38.9037 73.7207,38.8936 73.6826,38.8929 73.6512,38.8857 73.6248,38.8688 73.6097,38.8428 73.6101,38.8147 73.6252,38.7949 73.6647,38.718 73.7038,38.6066 73.7058,38.5908 73.7157,38.5695 73.7438,38.5477 73.8409,38.4967 73.869,38.4908 73.9801,38.5017 73.9772,38.5238 73.9636,38.5509 74.0241,38.6237 74.0465,38.6335 74.2558,38.6311 74.2957,38.6165 74.5785,38.5205 74.6938,38.4803 74.7548,38.4294 74.7687,38.378 74.7627,38.3424 74.7418,38.3188 74.7197,38.3004 74.7038,38.2821 74.6951,38.2578 74.6933,38.1523 74.7186,38.0313 74.7456,38.0089 74.7647,38.0014 74.8059,37.9833 74.8169,37.9654 74.8111,37.8728 74.8074,37.7994 74.8282,37.7783 74.8611,37.7644 74.8875,37.7443 74.8405,37.644 74.8159,37.628 74.805,37.6102 74.8225,37.5618 74.8367,37.5367 74.8555,37.5175 74.9395,37.4799 74.9707,37.4639 75.0885,37.3646 74.9979,37.2802 74.9802,37.271 74.8468,37.2057 74.8173,37.1958 74.7412,37.278 74.7248,37.2902 74.5715,37.3504 74.5412,37.3443 74.4488,37.34 74.3344,37.3522 74.2973,37.3595 74.2248,37.3649 74.1567,37.3674 74.1337,37.3548 74.0486,37.2942 73.9432,37.2698 73.7749,37.2255 73.7453,37.2086 73.7202,37.1865 73.6419,37.1799 73.5347,37.2013 73.524,37.2217 73.55,37.2582 73.6221,37.2672 73.6731,37.3017 73.6792,37.3908 73.6504,37.3969 73.6146,37.3957 73.573,37.3933 73.5164,37.3952 73.4746,37.4063 73.4445,37.4192 73.4084,37.4306 73.3599,37.4341 73.3388,37.434 73.2027,37.4183 73.1805,37.4111 73.0618,37.3611 73.0118,37.3207 72.9055,37.2623 72.7969,37.2082 72.7387,37.1934 72.7042,37.1874 72.6827,37.1689 72.6636,37.139 72.6386,37.0937 72.6269,37.0708 72.6127,37.0492 72.5672,36.9839 72.4229,36.9604 72.3365,36.9614 72.3155,36.9612 72.2521,36.9482 72.2117,36.9367 72.1854,36.9255 72.1294,36.9012 71.9537,36.789 71.8372,36.7093 71.749,36.6511 71.7265,36.6435 71.688,36.6371 71.6656,36.6339 71.6015,36.6308 71.5834,36.6349 71.5216,36.6566 71.483,36.6899 71.4593,36.7225 71.3728,36.8853 71.3634,36.9034 71.3374,37.0253 71.344,37.1245 71.3541,37.1679 71.3697,37.1891 71.3889,37.2173 71.3954,37.2368 71.3982,37.2677 71.3993,37.3285 71.3933,37.3762 71.402,37.5211 71.4103,37.5674 71.4477,37.6845 71.4815,37.7552 71.4941,37.7734 71.4965,37.7943 71.4991,37.8317 71.4903,37.8691 71.4456,37.9018 71.4125,37.905 71.3413,37.8829 71.2955,37.8646 71.2349,37.8477 71.1579,37.8853 71.1719,37.9397 71.221,38.0424 71.2448,38.0886 71.2615,38.1123 71.2711,38.1523 71.2674,38.205 71.2113,38.254 71.177,38.2596 71.1538,38.2614 71.118,38.2769 71.0832,38.3048 71.0567,38.3382 70.8937,38.4235 70.8656,38.429 70.6854,38.3986 70.6176,38.3668 70.5539,38.3114 70.5054,38.2682 70.4491,38.2101 70.397,38.1192 70.249,37.9761 70.2183,37.9577 70.2044,37.9562 70.1869,37.934 70.1518,37.9006 70.1165,37.8864 70.07,37.8866 70.0728,37.8294 70.0852,37.8094 70.1121,37.7915 70.1429,37.7799 70.1765,37.7289 70.1894,37.6868 70.1934,37.6575 70.161,37.5738 70.0635,37.4943 70.0357,37.4867 69.9949,37.4909 69.9704,37.4994 69.9434,37.4996 69.9217,37.5033 69.8591,37.5306 69.8409,37.5606 69.8197,37.5712 69.7996,37.572 69.7754,37.5662 69.754,37.5578 69.7012,37.5407 69.58,37.5325 69.4896,37.5365 69.4305,37.5403 69.2904,37.4114 69.2855,37.3778 69.2832,37.3463 69.2902,37.3023 69.2988,37.2828 69.3146,37.2351 69.3352,37.1654 69.3303,37.1549 69.319,37.1338 69.2977,37.117 69.2316,37.0778 69.196,37.0627 69.1637,37.054 69.1143,37.075 69.0605,37.1092 69.0336,37.1225 68.9411,37.2117 68.9151,37.2589 68.8786,37.2811 68.8007,37.2968 68.719,37.2808 68.572,37.2311 68.5494,37.2021 68.5374,37.1643 68.3255,37.0784 68.245,37.0674 68.1949,36.9889 68.093,36.976 67.9688,36.891 67.9123,36.8947 67.6981,37.0506 67.6855,37.074 67.6911,37.144 67.6987,37.149 67.725,37.1772 67.7479,37.2171 67.7522,37.2399 67.7548,37.2799 67.7519,37.3105 67.7405,37.349 67.7285,37.3745 67.7285,37.4042 67.737,37.44 67.7491,37.4637 67.7717,37.5011 67.8138,37.5575 67.8276,37.575 67.8477,37.5941 67.8915,37.6313 67.9123,37.6451 67.962,37.6966 67.9832,37.723 68.0054,37.7599 68.0331,37.8163 68.04,37.8421 68.0525,37.8737 68.081,37.8914 68.1483,37.8996 68.1784,37.9099 68.2475,38.0036 68.2645,38.0428 68.2893,38.1179 68.2922,38.1519 68.2737,38.1945 68.2463,38.2248 68.187,38.2609 68.1293,38.2872 68.0345,38.3846 67.9806,38.5007 67.9833,38.6213 68.0292,38.7546 68.0588,38.7627 68.0832,38.7772 68.1025,38.8082 68.0939,38.8547 68.0892,38.8611 68.0627,38.8876 68.049,38.9066 68.0352,38.9374 68.0193,38.955 67.8936,38.9642 67.844,38.9532 67.7699,38.9339 67.6603,38.9465 67.6268,38.9514 67.6093,38.9624 67.6048,38.9724 67.606,39.0847 67.5352,39.1247 67.5048,39.1294 67.4762,39.1279 67.4313,39.1237 67.2855,39.1727 67.2744,39.2277 67.2755,39.2449 67.3185,39.2528 67.3408,39.3238 67.3491,39.393 67.3516,39.4183 67.3513,39.4392 67.4134,39.4846 67.5908,39.5707 67.6182,39.5812 67.6385,39.5846 67.6679,39.5859 67.7464,39.5752 67.7713,39.5669 67.8163,39.5561 67.9906,39.523 68.0569,39.5121 68.0832,39.5094 68.2611,39.4923 68.2926,39.4911 68.381,39.4933 68.4281,39.5036 68.4479,39.5105 68.5191,39.5857 68.5348,39.606 68.5357,39.7265 68.5442,39.7948 68.5496,39.8134 68.5631,39.8178 68.63,39.8239 68.6424,39.8047 68.6646,39.7851 68.8115,39.8476 68.7631,39.9099 68.7362,39.933 68.7182,39.9559 68.691,40.0229 68.7295,40.0335 68.8388,40.03 68.901,40.0254 68.915,40.0586 68.8971,40.0955 68.7825,40.1023 68.7016,40.0835 68.6686,40.0772 68.6204,40.0712 68.6089,40.0724 68.5879,40.0767 68.5431,40.0948 68.5124,40.1205 68.5487,40.139 68.6018,40.1508 68.6342,40.1571 68.6746,40.1629 68.9418,40.1935 68.9674,40.1894 68.9848,40.1849 69.0399,40.1636 69.0999,40.1503 69.1328,40.1452 69.1549,40.1457 69.2079,40.1538 69.2251,40.1645 69.2443,40.2879 69.2336,40.3293 69.1652,40.4573 69.1752,40.55 69.254,40.7181 69.2704,40.7336 69.3056,40.754 69.3566,40.7653 69.4421,40.7348 69.4763,40.7053 69.4931,40.6792 69.5738,40.6097 69.5943,40.5969 69.6316,40.5929 69.6641,40.6062 69.6906,40.6341 69.7228,40.6665 69.7518,40.6768 69.8046,40.688 69.8444,40.6943 69.8769,40.7002 69.9041,40.7083 69.9546,40.724 70.1569,40.8121 70.227,40.853 70.2646,40.8889 70.278,40.9156 70.2794,40.9629 70.2946,40.9903 70.321,41.0016 70.3424,41.003 70.3642,40.997 70.3685,40.9927 70.3786,40.9883 70.4518,40.9311 70.5613,40.8241 70.5706,40.7814 70.6159,40.7245 70.663,40.7156 70.6875,40.7033 70.7001,40.6798 70.6809,40.6604 70.6373,40.6293 70.4388,40.5139 70.319,40.4456 70.274,40.4258 70.2471,40.4003 70.2797,40.331 70.365,40.305 70.4932,40.2099 70.5069,40.1877 70.5274,40.1667 70.5487,40.1605 70.6122,40.1587 70.6524,40.1638 70.6967,40.1738 70.7262,40.1831 70.7642,40.1958 70.861,40.1998 70.8855,40.1995 70.8982,40.1832 70.8889,40.1448 70.8607,40.1297 70.8252,40.1237 70.7896,40.126 70.5674,40.0557 70.5642,39.9997 70.5583,39.9625 70.5437,39.94 70.5268,39.9256 70.5073,39.9136 70.3986,39.8635 70.3727,39.8833 70.3932,39.9244 70.422,39.9436 70.4507,39.9579 70.4624,39.9833 70.4464,40.001 70.4165,40.0118 70.3307,40.0253 70.2558,40.0371 70.2339,40.0458 70.2137,40.0707 70.1901,40.0876 69.9572,40.1624 69.9166,40.1729 69.7229,40.1252 69.5977,40.0875 69.5423,40.0737 69.5109,40.067 69.4751,40.0643 69.4462,40.0837 69.4046,40.0279 69.3911,39.9928 69.4113,39.9178 69.4298,39.8898 69.4041,39.8761 69.3308,39.8601 69.3135,39.8933 69.2408,39.9477 69.1911,39.8426 69.1739,39.7935 69.1634,39.7538 69.1558,39.7132 69.1689,39.6888 69.205,39.6598 69.2162,39.6424 69.2204,39.6153 69.2207,39.5857 69.2162,39.5549 69.2081,39.5162 69.2153,39.4906 69.2399,39.4743 69.4226,39.4943 69.4575,39.5058 69.4874,39.5292 69.5152,39.5378 69.5781,39.5418 69.6139,39.5435 69.6561,39.5377 69.688,39.5282 69.7068,39.5178 69.7302,39.5011 69.7524,39.493 69.8716,39.5099 70.0867,39.5399 70.1427,39.533 70.2073,39.5071 70.2612,39.5377 70.3868,39.5621 70.4122,39.5627 70.5377,39.5352 70.566,39.5052 70.5765,39.4739 70.5776,39.4626 70.5994,39.4449 70.626,39.3813 70.7531,39.3666 70.8986,39.3566 70.9325,39.3669 70.9482,39.381 70.9603,39.4091 70.9783,39.4454 71.0069,39.4682 71.1002,39.4888 71.2304,39.5254 71.3101,39.5618 71.388,39.5735 71.4181,39.5601 71.4523,39.5279 71.4524,39.5034 71.4222,39.4645 71.421,39.4444 71.4414,39.42 71.4677,39.4099 71.5005,39.4051 71.558,39.4061 71.5846,39.4089 71.6179,39.4173 71.6613,39.4116 71.6787,39.3729 71.6767,39.3473 71.6475,39.3167 71.6363,39.2897 71.6462,39.2647 71.6823,39.2336 71.7646,39.2443 71.8027,39.2625 71.837,39.2828 71.8745,39.3037 71.9808,39.3272 72.0013,39.3042 72.0428,39.2304 72.1618,39.1514 72.2092,39.213 72.217,39.2425 72.2277,39.2728 72.2504,39.2943 72.327,39.3145 72.356,39.3086 72.3868,39.3054 72.5011,39.3219 72.5354,39.3464 72.5598,39.3571 72.5911,39.3537 72.6798,39.3339 72.7069,39.3272 72.7645,39.3178 73.0652,39.3103 73.0873,39.3142 73.2588,39.3597 73.2692,39.3936 73.3923,39.4256 73.4259,39.429 73.555,39.4164 73.5564,39.4105 73.5564,39.4105 25,3.0,Greece 24.6101,40.525 24.6071,40.5316 24.568,40.5647 24.5575,40.571 24.5389,40.5789 24.4983,40.5755 24.4792,40.5927 24.476,40.6121 24.4883,40.6468 24.5002,40.6683 24.5075,40.6779 24.5322,40.7047 24.5652,40.732 24.5878,40.7439 24.6094,40.7511 24.6212,40.7505 24.6628,40.7348 24.6994,40.7196 24.7277,40.7033 24.7301,40.6861 24.7394,40.5858 24.7327,40.5657 24.6376,40.5334 24.6101,40.525 24.6101,40.525 9,5.0,Armenia 45.4666,40.5605 45.4438,40.5662 45.43,40.591 45.4474,40.6159 45.5015,40.6184 45.5258,40.6054 45.5109,40.5868 45.4666,40.5605 45.4666,40.5605 18,3.0,Turkey 27.5639,40.5263 27.5159,40.5413 27.4918,40.556 27.4891,40.5942 27.495,40.6037 27.5083,40.6092 27.5608,40.6126 27.5774,40.613 27.6132,40.6114 27.6254,40.6104 27.6692,40.6041 27.6957,40.5897 27.6953,40.5766 27.6821,40.5683 27.5901,40.5333 27.5715,40.527 27.5639,40.5263 27.5639,40.5263 15,-5.0,United States -73.9614,40.5935 -73.954,40.574 -73.9542,40.5562 -74.0069,40.514 -74.0219,40.5042 -74.0435,40.4933 -74.1185,40.4661 -74.1336,40.469 -74.1309,40.4931 -74.0818,40.5887 -74.0722,40.5967 -73.9768,40.6046 -73.9675,40.6001 -73.9614,40.5935 -73.9614,40.5935 17,3.0,Greece 25.6223,40.4473 25.659,40.4199 25.6589,40.3789 25.6249,40.367 25.569,40.3528 25.5273,40.354 25.4811,40.3772 25.4557,40.3914 25.4279,40.4107 25.4094,40.4301 25.4594,40.4508 25.4908,40.4613 25.508,40.465 25.5211,40.466 25.5404,40.4652 25.6223,40.4473 25.6223,40.4473 13,3.0,Turkey 25.6967,40.0479 25.631,40.078 25.6375,40.1074 25.6538,40.1199 25.6802,40.1361 25.7418,40.167 25.9051,40.1949 25.9771,40.1088 25.9548,40.0836 25.9229,40.0758 25.7894,40.055 25.6967,40.0479 25.6967,40.0479 30,2.0,Spain 4.2705,39.7618 4.2543,39.7651 4.2328,39.7713 4.1108,39.8235 4.0954,39.8329 4.0843,39.8429 4.0769,39.8526 4.0357,39.8708 4.0234,39.8753 3.9793,39.8853 3.9602,39.8889 3.933,39.8878 3.9189,39.8845 3.9059,39.8809 3.8779,39.8754 3.8214,39.8778 3.7918,39.9722 3.8286,40.0095 3.8633,40.0129 3.9324,40.014 4.1168,40.0111 4.1687,40.0054 4.2357,39.9487 4.2676,39.9164 4.31,39.8342 4.3111,39.8015 4.3081,39.7873 4.2875,39.7654 4.2705,39.7618 4.2705,39.7618 33,3.0,Greece 25.407,39.9599 25.3577,39.9073 25.3198,39.8624 25.303,39.8334 25.3049,39.8046 25.3189,39.7893 25.331,39.7809 25.3386,39.7679 25.3216,39.7416 25.3045,39.7443 25.279,39.7508 25.2606,39.7607 25.2327,39.8235 25.2449,39.8489 25.2287,39.8675 25.1988,39.8667 25.1768,39.8483 25.1456,39.8023 25.1676,39.7828 25.1907,39.7594 25.1316,39.7557 25.03,39.8006 25.0207,39.8159 25.0092,39.9183 25.0136,39.9419 25.1023,39.9611 25.1953,39.9577 25.2377,39.9435 25.3342,39.9608 25.4169,39.9874 25.4111,39.9647 25.407,39.9599 25.407,39.9599 44,2.0,Spain 2.3861,39.4808 2.3611,39.5115 2.3828,39.5685 2.5353,39.6559 2.6804,39.7491 2.7741,39.8 2.984,39.8664 3.0675,39.8771 3.0877,39.8529 3.1204,39.7677 3.1357,39.7425 3.1768,39.7152 3.2401,39.6909 3.2637,39.6913 3.2889,39.7014 3.3267,39.7207 3.3782,39.7289 3.4351,39.7058 3.4752,39.672 3.4592,39.617 3.443,39.5959 3.3701,39.5067 3.3276,39.4821 3.3159,39.4762 3.3012,39.458 3.2839,39.4234 3.2628,39.3684 3.2375,39.3202 3.0779,39.229 3.0564,39.2191 3.0253,39.2389 2.9817,39.2745 2.826,39.3093 2.7882,39.3194 2.7463,39.3564 2.7242,39.4286 2.7441,39.455 2.7305,39.4814 2.6909,39.5075 2.6636,39.5172 2.5413,39.4781 2.4337,39.4772 2.3861,39.4808 2.3861,39.4808 39,3.0,Greece 19.8281,39.7738 19.8382,39.7721 19.8994,39.7498 19.9217,39.7342 19.9237,39.7178 19.9157,39.6997 19.901,39.6854 19.8873,39.6776 19.8489,39.6717 19.8157,39.6567 19.8129,39.6318 19.82,39.6045 19.903,39.4303 19.991,39.3903 20.0035,39.3877 20.0212,39.3927 20.0336,39.4006 20.045,39.4082 20.0927,39.3278 20.0845,39.3191 20.0526,39.3243 19.852,39.4041 19.8256,39.4455 19.8204,39.4753 19.8218,39.495 19.8174,39.5077 19.794,39.5343 19.7799,39.5461 19.7137,39.5801 19.6479,39.6313 19.6151,39.6997 19.6137,39.7122 19.6242,39.7277 19.6464,39.7486 19.6679,39.7499 19.7674,39.7456 19.7773,39.7494 19.8281,39.7738 19.8281,39.7738 1095,3.5,Iran 46.4781,38.8322 46.5103,38.8721 46.5898,38.9331 46.6828,39.0072 46.6965,39.0422 46.7861,39.1167 46.812,39.1236 46.8457,39.1241 46.8899,39.1126 46.9709,39.1526 46.9805,39.1941 47.0364,39.2604 47.1014,39.2911 47.1362,39.296 47.2233,39.3303 47.2549,39.3533 47.2736,39.3802 47.328,39.4261 47.3966,39.454 47.4783,39.4709 47.7056,39.5892 47.7292,39.6223 47.7485,39.6345 47.9201,39.6711 47.9494,39.6548 47.9733,39.6389 47.9983,39.6211 48.0177,39.6018 48.0942,39.529 48.1475,39.4819 48.186,39.4503 48.2187,39.4286 48.2568,39.3964 48.2754,39.3793 48.2929,39.3457 48.2139,39.306 48.1811,39.2985 48.1337,39.292 48.0841,39.2627 48.0591,39.2343 48.0573,39.2079 48.0689,39.1671 48.1645,39.0961 48.2078,39.0826 48.2291,39.0687 48.2623,39.0108 48.2607,38.9883 48.2441,38.9602 48.2192,38.9422 48.1993,38.9337 48.1603,38.9278 48.1208,38.9254 48.0796,38.9248 48.0125,38.9103 47.948,38.8535 47.9489,38.8193 47.9604,38.7897 48.0387,38.7401 48.0596,38.7287 48.085,38.7178 48.1205,38.7071 48.1828,38.6718 48.1793,38.6288 48.2672,38.5594 48.2974,38.5624 48.3342,38.5774 48.3682,38.5812 48.5008,38.4283 48.5347,38.3739 48.5588,38.3536 48.5982,38.3462 48.6775,38.3811 48.7189,38.4024 48.7763,38.4074 48.8233,38.3995 48.8197,38.3922 48.8056,38.3094 48.8044,38.2633 48.8446,38.0014 48.8786,37.8596 48.9234,37.7453 48.9377,37.7146 48.9823,37.6552 49.0014,37.6334 49.0378,37.601 49.0852,37.5664 49.21,37.5038 49.2453,37.4903 49.3552,37.4514 49.3751,37.4465 49.4215,37.4405 49.5577,37.4346 49.8176,37.4168 49.8706,37.4107 50.1103,37.3524 50.131,37.3446 50.1543,37.3256 50.1603,37.2847 50.1648,37.2589 50.1739,37.2392 50.2275,37.1478 50.2526,37.107 50.2676,37.0928 50.2856,37.0794 50.4174,36.9891 50.5215,36.937 50.5385,36.9294 50.5777,36.9155 50.8193,36.7942 50.8444,36.78 50.8945,36.749 50.9157,36.7348 50.9335,36.7251 50.9628,36.7134 51.0249,36.6905 51.1136,36.6729 51.1513,36.6675 51.1749,36.6651 51.2208,36.6587 51.3095,36.6438 51.3863,36.6276 51.4327,36.6149 51.5457,36.5913 51.8143,36.5422 51.9049,36.5389 51.928,36.5397 51.9489,36.5428 51.9965,36.5508 52.0166,36.5544 52.0365,36.5582 52.0747,36.5711 52.1067,36.5816 52.1458,36.5935 52.1855,36.6047 52.2238,36.6135 52.3652,36.6449 52.3859,36.6476 52.4155,36.6501 52.533,36.6663 52.7268,36.7004 52.747,36.7038 52.895,36.74 52.941,36.7563 52.9745,36.7657 53.1534,36.8071 53.3802,36.8394 53.4081,36.8433 53.4651,36.8488 53.6444,36.8586 53.7872,36.8624 53.8687,36.8713 53.9361,36.9001 53.9273,36.8639 53.7499,36.8336 53.6577,36.8285 53.6014,36.831 53.5737,36.8375 53.5431,36.8272 53.5665,36.8023 53.5961,36.7812 53.6199,36.7752 53.8157,36.7528 53.8729,36.7588 53.945,36.777 53.9622,36.8009 53.9631,36.8325 53.9611,36.9069 53.938,36.9962 53.8729,37.1783 53.8349,37.309 54.1304,37.2884 54.2847,37.319 54.3343,37.336 54.3531,37.3443 54.4108,37.3722 54.4411,37.3887 54.4742,37.4024 54.5084,37.4109 54.5328,37.4063 54.5587,37.3982 54.597,37.398 54.6842,37.4536 54.7085,37.472 54.7366,37.5359 54.7215,37.5817 54.7096,37.601 54.7376,37.669 54.7606,37.704 54.7908,37.7243 54.8178,37.7327 54.8474,37.7418 54.8821,37.7627 54.9652,37.8232 54.9815,37.8449 54.9975,37.8633 55.0674,37.9125 55.1066,37.922 55.1566,37.9392 55.3033,37.9958 55.321,38.006 55.341,38.0251 55.3642,38.0408 55.3962,38.048 55.4831,38.0558 55.5967,38.0663 55.6178,38.0685 55.6594,38.0781 55.6902,38.0813 55.7327,38.0798 55.761,38.0639 55.7943,38.0512 55.9132,38.0299 55.9692,38.0322 56.0027,38.0376 56.0359,38.044 56.0943,38.0519 56.1453,38.0287 56.2573,38.0443 56.2752,38.0932 56.2522,38.1198 56.2485,38.14 56.2925,38.1757 56.3107,38.1887 56.3447,38.2094 56.3681,38.2172 56.3964,38.2201 56.4677,38.2233 56.4948,38.216 56.6202,38.2241 56.6806,38.2435 56.6988,38.2239 56.7208,38.2101 56.7642,38.1912 56.7915,38.1829 56.867,38.1687 56.987,38.1526 57.0612,38.1969 57.0739,38.2171 57.0832,38.2274 57.1065,38.2387 57.1326,38.2398 57.1658,38.2293 57.2963,38.048 57.2948,38.0274 57.2757,37.9508 57.3029,37.9321 57.3783,37.8958 57.4525,37.8849 57.5382,37.8827 57.6233,37.8838 58.0976,37.7539 58.1209,37.744 58.1477,37.6789 58.1442,37.6566 58.1571,37.6365 58.3303,37.5991 58.3938,37.5982 58.4155,37.6033 58.569,37.6196 58.5973,37.6108 58.642,37.6077 58.7289,37.6287 58.856,37.6264 58.9033,37.6125 58.975,37.5893 59.0038,37.5697 59.056,37.5346 59.1243,37.4911 59.1603,37.4759 59.1821,37.4752 59.2156,37.4938 59.2375,37.4989 59.265,37.4935 59.2975,37.4539 59.298,37.4292 59.2924,37.3827 59.294,37.3624 59.3093,37.3016 59.3149,37.2814 59.4021,37.191 59.4678,37.1665 59.6372,37.1058 59.7348,37.083 59.9372,37.0024 59.985,36.9703 59.9979,36.9474 60.013,36.9172 60.0276,36.8954 60.0629,36.8503 60.0788,36.83 60.2525,36.6169 60.286,36.6046 60.4236,36.605 60.5615,36.6061 60.5878,36.6064 60.7169,36.6079 60.8549,36.6088 60.993,36.6096 61.074,36.6093 61.087,36.5912 61.1095,36.5282 61.0829,36.3791 61.1047,36.2462 61.141,36.1385 61.1419,36.0995 61.1373,36.0681 61.1217,36.0287 61.1323,35.8973 61.1464,35.8637 61.1574,35.8512 61.1827,35.7765 61.151,35.6523 61.1537,35.6229 61.1743,35.5928 61.1973,35.5676 61.2086,35.5158 61.197,35.4777 61.1043,35.3089 61.0267,35.2424 61.0171,35.1969 61.0206,35.1371 61.0372,35.1246 61.057,35.0928 61.0527,35.0467 61.0364,34.9778 60.9986,34.8405 60.9722,34.7504 60.8975,34.6122 60.7743,34.529 60.7543,34.5233 60.7004,34.5175 60.6615,34.506 60.6452,34.4893 60.6892,34.4395 60.7196,34.425 60.8046,34.3169 60.8,34.2812 60.7573,34.2845 60.688,34.284 60.6606,34.2816 60.5967,34.2758 60.4676,34.1582 60.4477,34.1311 60.4327,34.1074 60.4259,34.0843 60.4256,34.0535 60.4309,34.0221 60.4417,33.9726 60.4508,33.9234 60.4751,33.7843 60.4731,33.7596 60.462,33.7392 60.4302,33.7022 60.4349,33.652 60.4417,33.6231 60.4525,33.6023 60.4675,33.5879 60.492,33.5737 60.5186,33.5601 60.5874,33.5299 60.6303,33.523 60.7091,33.5241 60.7768,33.5214 60.8149,33.5184 60.8364,33.5103 60.86,33.4795 60.8507,33.4674 60.7985,33.4633 60.7736,33.447 60.7245,33.3535 60.6779,33.3079 60.6452,33.2718 60.5525,33.1705 60.5047,33.1124 60.5021,33.0518 60.5038,33.0293 60.5094,33.0062 60.5173,32.9769 60.581,32.782 60.6474,32.5874 60.7538,32.2859 60.7729,32.225 60.7794,32.1899 60.7759,32.1546 60.7575,32.0546 60.7356,31.9838 60.728,31.961 60.7443,31.9126 60.745,31.7389 60.7323,31.6244 60.7699,31.4611 61.0247,31.4281 61.1091,31.4172 61.3709,31.3832 61.6336,31.3482 61.6606,31.3184 61.6909,31.2832 61.6867,31.2212 61.7081,31.1824 61.7308,31.1426 61.77,30.9894 61.6782,30.756 61.2928,30.3479 61.1982,30.2505 61.1375,30.1892 61.1009,30.1522 60.963,30.0102 60.8322,29.8737 60.793,29.8338 60.7874,29.8305 60.9626,29.6504 61.2031,29.4014 61.235,29.3629 61.2743,29.2587 61.2809,29.2333 61.3485,29.1187 61.4323,29.0385 61.4683,28.9522 61.5034,28.8773 61.5575,28.7743 61.5719,28.753 61.7421,28.5943 61.8255,28.5233 61.845,28.5093 61.866,28.5 62.1284,28.4276 62.2363,28.4072 62.3192,28.3876 62.4087,28.3241 62.45,28.2636 62.5118,28.2019 62.5523,28.2089 62.6063,28.2188 62.7014,28.2322 62.7081,28.1809 62.7025,28.1407 62.6884,28.0446 62.6782,27.9642 62.6843,27.9417 62.6915,27.9142 62.7218,27.804 62.7346,27.7559 62.7409,27.7294 62.7426,27.7087 62.759,27.4438 62.7483,27.4166 62.7197,27.3538 62.6998,27.2364 62.7341,27.2047 62.8552,27.1843 62.9177,27.2 62.9583,27.211 63.1206,27.2374 63.2036,27.1919 63.2491,27.1187 63.2476,27.0977 63.1954,27.0904 63.1714,27.0505 63.1719,27.0212 63.1772,26.9103 63.1351,26.8241 63.1041,26.6093 63.0825,26.6009 62.9789,26.6058 62.9351,26.6139 62.8928,26.6181 62.7485,26.6213 62.6898,26.6189 62.6652,26.5891 62.6236,26.5725 62.5205,26.5508 62.4664,26.5474 62.4285,26.5447 62.3579,26.5369 62.2357,26.4793 62.1928,26.3911 62.209,26.3494 62.1953,26.3272 62.1495,26.3309 62.1031,26.3416 62.0596,26.35 62.0245,26.285 62.0018,26.2847 61.9814,26.2822 61.7919,26.2148 61.7758,26.2011 61.7653,26.1823 61.7537,26.1504 61.7379,26.0793 61.7154,25.9295 61.7033,25.8413 61.7012,25.8149 61.6832,25.7792 61.6394,25.7721 61.6088,25.7687 61.5872,25.562 61.5811,25.4781 61.5734,25.3619 61.5709,25.3198 61.5654,25.2703 61.5329,25.1696 61.5027,25.1717 61.4404,25.1359 61.4215,25.0902 61.3633,25.0478 61.3183,25.0528 61.1414,25.095 61.1214,25.1305 61.0988,25.1456 60.9151,25.1839 60.8888,25.1891 60.7014,25.2206 60.6402,25.2299 60.5717,25.235 60.5457,25.2416 60.5291,25.3014 60.5265,25.3271 60.5282,25.3496 60.5265,25.3693 60.5161,25.3869 60.4951,25.4057 60.4741,25.4127 60.4422,25.4148 60.4111,25.4121 60.3779,25.4031 60.351,25.3874 60.3333,25.3693 60.318,25.337 60.3315,25.3048 60.3603,25.3013 60.3901,25.2379 60.3671,25.239 60.2332,25.2999 60.2187,25.3174 60.1205,25.3369 60.0155,25.3468 59.8818,25.3443 59.7557,25.3831 59.7041,25.3839 59.6569,25.3798 59.5899,25.3712 59.5592,25.3648 59.5374,25.3645 59.5152,25.3708 59.4858,25.3871 59.4528,25.4223 59.4149,25.4453 59.3751,25.4492 59.3537,25.4463 59.2943,25.433 59.1718,25.3978 59.0679,25.3684 59.0449,25.3635 58.9767,25.3652 58.9478,25.3703 58.9252,25.3849 58.8766,25.4467 58.8615,25.4715 58.8371,25.4901 58.7433,25.5315 58.7152,25.5361 58.6873,25.5372 58.6455,25.528 58.4251,25.5586 58.321,25.5761 58.2941,25.5759 58.2657,25.5673 58.2497,25.5518 58.0891,25.5107 58.0541,25.5145 57.9975,25.5327 57.9777,25.5436 57.9532,25.5668 57.9353,25.5935 57.9259,25.6176 57.9022,25.6567 57.8775,25.6712 57.7946,25.6518 57.7602,25.6359 57.7052,25.6399 57.7126,25.672 57.6828,25.712 57.657,25.7191 57.5904,25.7177 57.5605,25.7035 57.451,25.7089 57.2461,25.7426 57.2279,25.7718 57.2264,25.7985 57.2182,25.8367 57.1983,25.8906 57.1578,25.9561 57.1291,25.9626 57.1226,25.9704 57.0934,26.0489 57.0963,26.075 57.0092,26.3832 57.0023,26.4256 57.0175,26.4642 57.0198,26.5107 57.0182,26.558 57.0151,26.6039 56.993,26.6783 56.9834,26.7079 56.9641,26.7715 56.9593,26.7925 56.9503,26.8174 56.9358,26.8414 56.7924,26.9764 56.7712,27.0005 56.7947,27.0293 56.7826,27.0457 56.736,27.0932 56.6177,27.118 56.5724,27.1245 56.5455,27.1253 56.4595,27.1307 56.2835,27.1699 56.2557,27.1698 56.0607,27.13 56.0409,27.12 55.9034,27.0315 55.8846,27.0019 55.7732,26.9768 55.7246,26.9774 55.6187,26.966 55.5886,26.9604 55.5702,26.9499 55.5359,26.9185 55.5077,26.8814 55.5158,26.8247 55.5233,26.794 55.5271,26.7686 55.4106,26.7305 55.3724,26.7267 55.3463,26.7249 55.3,26.733 55.2848,26.7469 55.2037,26.7572 55.169,26.7488 55.0919,26.6872 54.7825,26.4894 54.7183,26.4608 54.6202,26.4766 54.4028,26.5586 54.2909,26.626 54.2581,26.6714 54.2272,26.6864 54.2003,26.6878 54.168,26.6768 54.1423,26.6659 54.1135,26.6681 54.0848,26.6717 54.0565,26.6763 54.0194,26.6868 53.9967,26.695 53.8622,26.6803 53.767,26.6692 53.6791,26.6795 53.6181,26.703 53.5778,26.7234 53.4172,26.8253 53.4045,26.8432 53.4016,26.8694 53.4023,26.9035 53.3938,26.9232 53.3707,26.9444 53.3213,26.9709 53.2391,26.987 53.1685,27.0101 53.0981,27.0333 53.0417,27.054 52.9332,27.0991 52.7853,27.1791 52.7484,27.2147 52.6887,27.2588 52.6181,27.291 52.6025,27.2931 52.5408,27.3175 52.5062,27.3558 52.5475,27.3805 52.5587,27.431 52.4741,27.5332 52.4322,27.5777 52.3666,27.6116 52.2957,27.6203 52.1807,27.6474 52.1568,27.6554 52.126,27.6701 52.1066,27.6812 52.0909,27.6946 52.0728,27.7135 52.0613,27.7305 51.9815,27.7868 51.9592,27.7972 51.9116,27.8059 51.7558,27.8189 51.7255,27.8202 51.7005,27.8153 51.6507,27.8018 51.54,27.8108 51.5159,27.818 51.3641,27.9067 51.259,28.017 51.1988,28.1235 51.1681,28.2502 51.0729,28.3767 51.0276,28.4653 51.0097,28.5307 51.0106,28.5676 51.007,28.6491 51.0033,28.6724 50.989,28.7068 50.9589,28.7517 50.9429,28.7684 50.8822,28.7898 50.8582,28.794 50.8381,28.7911 50.8134,28.7987 50.787,28.827 50.7353,28.8977 50.7348,28.9385 50.76,28.9591 50.7951,28.9419 50.8259,28.9125 50.8602,28.973 50.8632,28.9973 50.8579,29.0321 50.8196,29.0709 50.7611,29.104 50.6511,29.0998 50.6216,29.0871 50.5733,29.1102 50.5646,29.1535 50.5909,29.2161 50.6031,29.3677 50.5933,29.4001 50.5738,29.4374 50.56,29.4593 50.4004,29.5912 50.3766,29.6054 50.3501,29.6108 50.3289,29.622 50.2154,29.7739 50.1728,29.8289 50.141,29.8504 50.1225,29.8615 50.0968,29.8842 50.0826,29.8993 50.0685,29.9191 50.0722,29.9524 50.0738,29.9933 50.0686,30.0353 50.0457,30.0909 50.0345,30.1148 50.0157,30.1457 49.9907,30.1689 49.9731,30.179 49.9614,30.1822 49.9385,30.185 49.8621,30.1742 49.8341,30.1644 49.8097,30.152 49.7691,30.1293 49.6591,30.0578 49.5149,29.9745 49.4909,29.9736 49.4346,30.0339 49.4359,30.0628 49.4309,30.0908 49.4218,30.1149 49.3979,30.1276 49.3591,30.1364 49.2892,30.1381 49.2519,30.1301 49.1744,30.1545 48.9412,30.2635 48.8653,30.3533 49.0004,30.3723 49.0513,30.3598 49.1267,30.3266 49.1587,30.3394 49.1998,30.3953 49.1601,30.4393 49.1292,30.4558 49.0368,30.4821 48.9755,30.4851 48.9154,30.4773 48.8856,30.4622 48.8032,30.3252 48.7986,30.2741 48.8252,30.2393 48.8503,30.2212 48.8715,30.1688 48.8797,30.1354 48.8712,30.0536 48.8542,30.0071 48.8047,29.9874 48.7078,29.992 48.6449,29.9937 48.5971,29.962 48.5794,29.9288 48.5551,29.9199 48.5329,29.9177 48.4828,29.9296 48.4107,29.9496 48.3875,29.972 48.3483,30.0699 48.3473,30.1363 48.3493,30.166 48.2268,30.296 48.0979,30.3931 48.079,30.4061 48.0453,30.4205 48.0054,30.4296 47.9701,30.4572 47.9708,30.554 47.972,30.6226 47.9744,30.9119 47.9742,30.9616 47.8618,30.965 47.7812,30.9651 47.6319,30.9667 47.6329,31.0768 47.6336,31.1594 47.6339,31.187 47.6346,31.2006 47.6345,31.2696 47.6353,31.3728 47.6547,31.4206 47.6866,31.4951 47.7392,31.6177 47.7714,31.6925 47.8022,31.7631 47.787,31.7843 47.7248,31.8537 47.6756,31.9009 47.5714,32.0175 47.5407,32.0647 47.4676,32.1611 47.3545,32.3133 47.3762,32.3494 47.2996,32.4377 47.2097,32.4522 47.1874,32.4372 47.1378,32.4261 47.09,32.4222 47.0715,32.4296 47.011,32.4681 46.9933,32.4794 46.8953,32.5484 46.8726,32.5642 46.8425,32.5868 46.8213,32.6068 46.7963,32.6306 46.7794,32.6439 46.6869,32.7163 46.657,32.733 46.6352,32.7423 46.5935,32.7621 46.4973,32.8213 46.4334,32.8658 46.3905,32.8884 46.3546,32.9038 46.3131,32.9144 46.2447,32.9267 46.2152,32.9301 46.1849,32.9283 46.1441,32.9224 46.1184,32.9166 46.0919,32.9158 46.0466,32.9341 46.0373,32.9661 46.0531,33.0461 46.0852,33.099 46.1285,33.1384 46.1392,33.1563 46.1174,33.2276 46.0673,33.2665 45.9895,33.3464 45.9891,33.3689 45.9844,33.4001 45.9693,33.4232 45.9468,33.4482 45.8922,33.4422 45.871,33.4454 45.8148,33.4624 45.8313,33.4841 45.8851,33.517 45.8394,33.5954 45.7555,33.5849 45.7266,33.5631 45.6925,33.5574 45.6929,33.5999 45.6375,33.6318 45.588,33.6972 45.582,33.7296 45.4914,33.8508 45.441,33.9081 45.4136,33.9028 45.3878,33.9044 45.365,33.9131 45.3449,33.9371 45.4081,34.0392 45.4882,34.096 45.5073,34.1132 45.5252,34.2631 45.5144,34.2857 45.4903,34.307 45.4608,34.3089 45.4336,34.2966 45.4017,34.3399 45.3796,34.4195 45.5041,34.5476 45.5895,34.5349 45.6555,34.519 45.6705,34.5468 45.6492,34.6203 45.6248,34.6606 45.6005,34.6766 45.5924,34.6964 45.6318,34.7776 45.6533,34.7907 45.679,34.7919 45.7057,34.8074 45.7384,34.8752 45.7894,34.8581 45.8086,34.8648 45.8331,34.9341 45.8211,34.9598 45.8184,34.9935 45.8904,35.054 45.9326,35.0361 45.9761,35.0201 46.1063,35.0691 46.1268,35.1823 46.1005,35.1948 46.0732,35.2331 46.0883,35.2581 46.0055,35.3437 45.9915,35.3597 45.9313,35.4453 45.9203,35.5449 45.9743,35.6489 46.0129,35.6569 46.0509,35.6527 46.0916,35.6551 46.1696,35.6721 46.2088,35.688 46.274,35.7373 46.2851,35.7742 46.2636,35.7925 46.2309,35.7913 46.1987,35.7728 46.1407,35.7629 46.1132,35.7671 46.088,35.7838 46.0756,35.8072 46.0294,35.8253 45.8287,35.7918 45.8083,35.7775 45.6979,35.7771 45.6805,35.792 45.6734,35.8133 45.6595,35.8395 45.6231,35.8818 45.6039,35.9002 45.5653,35.926 45.4611,35.971 45.4515,35.9776 45.4134,35.9763 45.355,35.9552 45.2954,36.0242 45.2846,36.0934 45.2608,36.1977 45.2204,36.3404 45.1849,36.3877 45.1573,36.3882 45.135,36.3785 45.1066,36.3706 45.0802,36.3682 45.0483,36.3776 45.0279,36.3946 45.0252,36.4169 44.9967,36.4654 44.9544,36.5018 44.957,36.5167 44.9801,36.5733 45.004,36.5987 45.0064,36.6419 44.9667,36.6951 44.8807,36.7407 44.8392,36.7413 44.812,36.7432 44.7943,36.7533 44.786,36.7806 44.824,36.8293 44.8467,36.8514 44.8505,36.8791 44.8443,36.9892 44.7977,37.011 44.7587,37.0145 44.7264,37.0431 44.7074,37.0706 44.7286,37.1082 44.734,37.1334 44.7619,37.2272 44.7595,37.2557 44.7429,37.2797 44.5899,37.3859 44.5541,37.3923 44.5302,37.4011 44.5259,37.5717 44.5402,37.6485 44.5589,37.6756 44.5181,37.7244 44.2344,37.8307 44.1654,37.8568 44.1804,37.9179 44.2645,38.0544 44.3402,38.1686 44.4141,38.274 44.4236,38.2982 44.3778,38.3519 44.2594,38.3391 44.2466,38.3574 44.2454,38.4062 44.253,38.4268 44.2628,38.4663 44.2583,38.5696 44.2474,38.6041 44.203,38.6808 44.2439,38.7665 44.2412,38.7989 44.2245,38.8189 44.1916,38.8221 44.1503,38.85 44.1141,38.9244 44.1035,38.9616 44.1389,39.0129 44.1572,39.0926 44.0154,39.2919 44.0012,39.3083 43.9757,39.3332 43.9771,39.3414 44.0175,39.3674 44.1416,39.3726 44.1713,39.3641 44.2451,39.343 44.2805,39.3512 44.3415,39.3725 44.3659,39.3923 44.4178,39.5961 44.4111,39.6542 44.548,39.7345 44.6765,39.6573 44.7527,39.5863 44.8079,39.5781 44.8281,39.5612 44.8425,39.5113 44.8474,39.4916 44.8673,39.4325 44.8943,39.3883 44.9144,39.3763 44.9417,39.3724 45.0026,39.329 45.0551,39.2683 45.07,39.2416 45.0812,39.203 45.083,39.1729 45.165,39.1512 45.2104,39.1432 45.2378,39.1537 45.2849,39.1206 45.3604,39.0172 45.3638,38.9791 45.3727,38.9595 45.4165,38.9412 45.4576,38.927 45.4778,38.9219 45.5464,38.9076 45.78,38.8598 45.8896,38.8438 46.0131,38.8284 46.1168,38.7976 46.1337,38.8005 46.1834,38.8233 46.207,38.8387 46.2329,38.8522 46.2891,38.8664 46.3146,38.8633 46.39,38.8462 46.4542,38.8346 46.4781,38.8322 46.4781,38.8322 63,4.0,Azerbaijan 44.7527,39.5863 44.7559,39.6013 44.739,39.6421 44.7184,39.6617 44.7339,39.6668 44.7976,39.6806 44.8288,39.6784 44.8663,39.6752 44.8997,39.685 44.9378,39.7075 44.9603,39.7253 44.9861,39.7345 45.0146,39.7276 45.2052,39.5665 45.2657,39.4948 45.4037,39.4497 45.4409,39.4603 45.467,39.4729 45.4968,39.4894 45.5379,39.5074 45.565,39.5156 45.6767,39.5349 45.7304,39.5213 45.7577,39.5048 45.7674,39.402 45.794,39.3039 45.9234,39.2313 45.9439,39.2051 45.9244,39.179 45.9078,39.1539 45.9073,39.1306 46.0455,38.8923 46.0618,38.8664 46.1168,38.7976 46.0131,38.8284 45.8896,38.8438 45.78,38.8598 45.5464,38.9076 45.4778,38.9219 45.4576,38.927 45.4165,38.9412 45.3727,38.9595 45.3638,38.9791 45.3604,39.0172 45.2849,39.1206 45.2378,39.1537 45.2104,39.1432 45.165,39.1512 45.083,39.1729 45.0812,39.203 45.07,39.2416 45.0551,39.2683 45.0026,39.329 44.9417,39.3724 44.9144,39.3763 44.8943,39.3883 44.8673,39.4325 44.8474,39.4916 44.8425,39.5113 44.8281,39.5612 44.8079,39.5781 44.7527,39.5863 44.7527,39.5863 19,2.0,Portugal -31.1735,39.3093 -31.1973,39.3091 -31.2166,39.3114 -31.2377,39.3453 -31.2467,39.3668 -31.2409,39.4017 -31.2162,39.455 -31.1885,39.4766 -31.1716,39.4777 -31.1614,39.4759 -31.111,39.4503 -31.1043,39.4416 -31.0837,39.4111 -31.0891,39.3706 -31.106,39.3301 -31.112,39.321 -31.1378,39.3102 -31.1735,39.3093 -31.1735,39.3093 17,8.0,China 121.2463,39.3172 121.2187,39.325 121.1348,39.3459 121.1192,39.3362 121.0958,39.3363 121.0925,39.3654 121.1001,39.3917 121.1737,39.4344 121.2297,39.435 121.2505,39.4325 121.2668,39.4264 121.2793,39.4184 121.2881,39.4002 121.2716,39.3445 121.2579,39.3215 121.2463,39.3172 121.2463,39.3172 55,3.0,Greece 26.3846,39.2818 26.3793,39.2785 26.3583,39.2604 26.3443,39.2411 26.3442,39.2245 26.3696,39.2097 26.4392,39.1754 26.4927,39.1102 26.5711,39.0097 26.5768,39.0002 26.5831,38.9801 26.58,38.9703 26.4862,38.9297 26.4151,38.9247 26.355,38.9273 26.2889,38.934 26.1525,38.9735 26.1014,38.9964 26.0534,39.0304 26.0762,39.047 26.1324,39.0589 26.2417,39.1124 26.2508,39.1239 26.2563,39.1385 26.2218,39.1593 26.2027,39.1604 26.1641,39.1573 26.1373,39.1507 26.1281,39.144 26.1227,39.1254 26.1188,39.1147 26.0759,39.067 26.0461,39.0442 26.0305,39.0406 26.0103,39.0454 25.9534,39.0614 25.8553,39.0974 25.8295,39.1096 25.8004,39.1363 25.8224,39.2086 25.8454,39.2271 25.873,39.2428 25.889,39.2479 25.8899,39.2352 25.9156,39.2298 25.9467,39.2276 26.1383,39.2833 26.1358,39.3015 26.1303,39.3255 26.143,39.3308 26.1893,39.3389 26.2887,39.3302 26.3605,39.2971 26.3846,39.2818 26.3846,39.2818 11,3.0,Greece 23.6927,39.0274 23.6776,39.0302 23.6286,39.0455 23.5634,39.1609 23.5791,39.161 23.7556,39.0742 23.7409,39.0528 23.722,39.0396 23.7048,39.031 23.6927,39.0274 23.6927,39.0274 24,2.0,Spain 1.3701,38.7871 1.3663,38.8075 1.3577,38.8192 1.3478,38.8263 1.2724,38.8352 1.2488,38.8171 1.2208,38.8307 1.2105,38.8548 1.2262,38.9045 1.2408,38.9242 1.2926,38.9875 1.3019,38.9949 1.3274,39.0116 1.3608,39.0291 1.471,39.0614 1.5178,39.0745 1.544,39.0741 1.6009,39.0499 1.6072,39.0374 1.6128,38.9845 1.5298,38.9083 1.4039,38.8019 1.3701,38.7871 1.3701,38.7871 58,3.0,Greece 24.0182,38.3227 24.0236,38.3384 23.9654,38.3589 23.9424,38.3478 23.9066,38.3435 23.8735,38.3418 23.7742,38.3463 23.742,38.3491 23.642,38.3669 23.6107,38.3757 23.5892,38.4252 23.6043,38.4666 23.5932,38.5 23.5657,38.528 23.4609,38.5888 23.3002,38.6991 23.1672,38.7882 23.1192,38.8057 23.0955,38.8053 23.0673,38.796 22.8023,38.7854 22.8166,38.8184 22.8995,38.8481 23.066,38.9399 23.0987,38.9594 23.2485,38.9927 23.2732,38.9935 23.3424,38.9555 23.4152,38.8291 23.4353,38.8044 23.4847,38.7677 23.5607,38.7213 23.7335,38.6631 23.8151,38.639 23.9171,38.6196 23.9754,38.6298 24.1219,38.6033 24.1217,38.5299 24.155,38.3494 24.2263,38.1743 24.2669,38.1471 24.3047,38.1165 24.3956,38.1013 24.4335,38.0957 24.5289,38.1017 24.5581,38.0194 24.5554,37.9941 24.5434,37.9614 24.5316,37.9446 24.4805,37.9123 24.4482,37.9138 24.355,37.9512 24.2939,38.0021 24.1766,38.1138 24.1167,38.1726 24.0789,38.2453 24.0182,38.3227 24.0182,38.3227 21,3.0,Greece 24.5362,38.7173 24.5206,38.725 24.502,38.7403 24.424,38.8371 24.4176,38.8532 24.4187,38.9077 24.4268,38.9204 24.4506,38.9336 24.4715,38.9281 24.5449,38.8826 24.6325,38.7805 24.6488,38.7584 24.6495,38.7347 24.6264,38.7239 24.6141,38.7207 24.5908,38.7225 24.5819,38.7276 24.5642,38.7452 24.5353,38.7301 24.5362,38.7173 24.5362,38.7173 13,3.0,Greece 20.7052,38.761 20.6944,38.584 20.6163,38.5378 20.5161,38.5229 20.5151,38.545 20.5313,38.6427 20.5742,38.7353 20.6182,38.7862 20.628,38.792 20.6738,38.791 20.6851,38.7866 20.7052,38.761 20.7052,38.761 29,2.0,Portugal -27.1023,38.5863 -27.1453,38.5995 -27.201,38.604 -27.2378,38.6068 -27.2583,38.6106 -27.2704,38.6146 -27.3147,38.6383 -27.3304,38.6501 -27.3434,38.6673 -27.3518,38.6949 -27.3481,38.72 -27.3375,38.7355 -27.3272,38.7444 -27.2936,38.7532 -27.2767,38.757 -27.2449,38.7596 -27.2092,38.758 -27.1784,38.7558 -27.1452,38.7515 -27.1065,38.7453 -27.0771,38.7374 -27.0296,38.7207 -27.0131,38.7061 -26.9993,38.691 -26.984,38.6498 -27.018,38.6002 -27.047,38.5887 -27.1023,38.5863 -27.1023,38.5863 15,2.0,Portugal -27.7736,38.4967 -27.8115,38.4973 -28.1188,38.5916 -28.1563,38.6068 -28.2635,38.6779 -28.2769,38.6911 -28.2777,38.7053 -28.2598,38.7052 -28.2475,38.7013 -27.9592,38.598 -27.7323,38.5152 -27.7242,38.5047 -27.7432,38.4986 -27.7736,38.4967 -27.7736,38.4967 19,2.0,Spain 1.3885,38.6 1.3845,38.6043 1.3838,38.6149 1.3819,38.6398 1.3812,38.6507 1.3813,38.6747 1.3973,38.6943 1.4435,38.6977 1.5733,38.6461 1.5854,38.6264 1.5707,38.6115 1.5544,38.6109 1.5207,38.6122 1.5033,38.6262 1.4926,38.632 1.4579,38.643 1.442,38.6394 1.3885,38.6 1.3885,38.6 12,2.0,Portugal -28.5978,38.4673 -28.6883,38.4707 -28.7205,38.4744 -28.8073,38.541 -28.8072,38.5519 -28.7953,38.5597 -28.6814,38.5971 -28.5933,38.5649 -28.57,38.5492 -28.5566,38.5117 -28.5978,38.4673 -28.5978,38.4673 361,9.0,South Korea 128.1927,38.5819 128.2181,38.5361 128.362,38.2875 128.4552,38.1018 128.4664,38.0795 128.6903,37.8155 128.7101,37.8076 128.8342,37.6878 128.8797,37.6436 128.8927,37.6211 128.8929,37.5892 128.966,37.4835 129.0198,37.4227 129.0888,37.3294 129.1727,37.2154 129.1838,37.1894 129.1927,37.1083 129.2015,37.0995 129.2596,37.0183 129.2453,36.9838 129.2468,36.901 129.254,36.8585 129.2599,36.8324 129.287,36.7705 129.3023,36.739 129.3033,36.6602 129.2934,36.6373 129.2715,36.6216 129.2507,36.586 129.2533,36.5307 129.2702,36.5002 129.2818,36.4626 129.2693,36.361 129.2434,36.3229 129.2193,36.2926 129.2133,36.271 129.2239,35.9827 129.2539,35.9585 129.292,35.9548 129.3174,35.9715 129.3595,36.0107 129.3933,36.0338 129.4167,35.9944 129.4185,35.9636 129.3186,35.6435 129.2969,35.6046 129.3062,35.5546 129.2999,35.5038 129.2718,35.436 129.1773,35.3043 129.1119,35.259 129.0743,35.1695 129.0702,35.1506 129.0074,35.1078 128.9698,35.0728 128.8117,35.0458 128.8069,35.0954 128.7588,35.0528 128.644,35.0449 128.5686,35.0537 128.5441,35.062 128.4536,35.1094 128.4448,35.1339 128.4065,35.1306 128.2162,34.9999 128.2117,34.9693 128.2436,34.9867 128.3124,35.0113 128.3352,34.9693 128.3003,34.8382 128.2797,34.8023 128.2398,34.7938 128.1694,34.8324 128.185,34.8649 128.1847,34.8923 128.1687,34.9074 128.0496,34.8897 128.041,34.8597 128.0102,34.8505 127.9882,34.8556 127.9039,34.8839 127.8846,34.9006 127.8547,34.9473 127.7362,34.9124 127.7077,34.9027 127.6654,34.9075 127.6021,34.9211 127.4867,34.864 127.4662,34.8635 127.4486,34.878 127.4319,34.901 127.4037,34.8758 127.4111,34.8479 127.443,34.8062 127.4733,34.7752 127.4958,34.7742 127.5143,34.7818 127.5405,34.799 127.6081,34.7962 127.6041,34.756 127.5803,34.6867 127.4724,34.5775 127.4112,34.5995 127.3899,34.6152 127.3931,34.663 127.4024,34.7279 127.3572,34.8182 127.3288,34.8128 127.2533,34.7798 127.234,34.7635 127.1989,34.7124 127.229,34.6591 127.2644,34.6381 127.3223,34.6013 127.3477,34.5523 127.2242,34.4326 127.1501,34.4052 127.0785,34.473 127.0034,34.4733 126.9713,34.4812 126.9615,34.5128 127.0429,34.5856 127.031,34.5332 127.0772,34.5309 127.1655,34.6158 127.1873,34.6566 127.1701,34.7012 127.1089,34.6886 127.052,34.6687 126.9478,34.6217 126.927,34.6118 126.8725,34.5814 126.845,34.5636 126.8238,34.4947 126.8019,34.4658 126.7739,34.4489 126.7278,34.4037 126.7249,34.3742 126.6498,34.4054 126.6366,34.4245 126.6355,34.4533 126.6407,34.4912 126.636,34.5339 126.6163,34.5467 126.5964,34.5268 126.5198,34.3959 126.4331,34.2616 126.3924,34.2623 126.361,34.2778 126.3143,34.3069 126.2984,34.4391 126.2275,34.5054 126.1517,34.5279 126.1246,34.5516 126.1093,34.5954 126.1026,34.6383 126.1286,34.7069 126.1515,34.7064 126.1836,34.6671 126.2538,34.5573 126.2876,34.5395 126.2686,34.5808 126.2957,34.6054 126.3633,34.5765 126.4502,34.5809 126.339,34.6767 126.321,34.6845 126.3301,34.7118 126.4442,34.7407 126.4679,34.7426 126.4964,34.7713 126.427,34.8387 126.3759,34.8342 126.3684,34.7714 126.3471,34.7398 126.212,34.7527 126.2497,34.8554 126.2699,34.9245 126.2113,34.9021 126.1724,34.8825 126.1406,34.9229 126.0855,35.0741 126.0964,35.0916 126.1817,35.1125 126.1889,35.0929 126.1806,35.0655 126.1964,35.0301 126.2577,34.9814 126.2935,35.0298 126.2935,35.0535 126.2742,35.0636 126.2524,35.076 126.2239,35.1085 126.1969,35.1411 126.1999,35.1885 126.2145,35.2726 126.2239,35.2975 126.2605,35.3705 126.2775,35.3904 126.2879,35.4156 126.3252,35.4665 126.362,35.4861 126.4554,35.507 126.5202,35.4938 126.5078,35.5409 126.4905,35.5542 126.3773,35.5479 126.3465,35.5371 126.3188,35.5504 126.3055,35.5671 126.313,35.5979 126.4731,35.6997 126.5367,35.7286 126.5805,35.7375 126.6364,35.8217 126.6206,35.8539 126.5648,35.8425 126.4529,35.8508 126.4503,35.8826 126.468,35.9254 126.5407,35.9444 126.5971,35.9548 126.6963,35.9987 126.707,36.0157 126.7041,36.0204 126.6942,36.0152 126.5749,35.9654 126.524,35.961 126.3797,36.0961 126.372,36.1788 126.3308,36.3536 126.3157,36.4403 126.3021,36.5383 126.3494,36.5496 126.3507,36.6187 126.3317,36.6828 126.3072,36.7018 126.1847,36.6981 126.1412,36.648 126.1641,36.6138 126.1505,36.5586 126.1281,36.5408 126.1339,36.5927 126.1011,36.6702 126.0721,36.6436 126.0244,36.6299 126.0045,36.6329 125.961,36.6661 125.9638,36.7104 125.9994,36.7685 126.0266,36.7785 126.0212,36.8392 126.1293,36.9205 126.1435,36.901 126.1544,36.8372 126.1319,36.8023 126.1145,36.7712 126.122,36.7517 126.1595,36.7626 126.2358,36.8105 126.2492,36.8639 126.2448,36.8931 126.2209,36.8888 126.1843,36.9105 126.1798,36.95 126.2271,36.9633 126.2654,36.9607 126.31,36.8813 126.2966,36.8552 126.2977,36.8226 126.3094,36.802 126.331,36.8264 126.3486,36.8999 126.3249,36.9543 126.335,37.0099 126.3555,37.0097 126.4037,36.9816 126.4542,36.9314 126.5164,36.9303 126.6061,36.9261 126.6583,36.8702 126.6662,36.8449 126.6644,36.8154 126.6671,36.7198 126.7402,36.7759 126.826,36.8693 126.8338,36.8883 126.7501,36.8762 126.7018,36.9074 126.5888,37.0063 126.6098,37.0802 126.6532,37.0922 126.6952,37.0991 126.7031,37.1325 126.5997,37.1309 126.5722,37.1073 126.5518,37.0873 126.5249,37.0816 126.4947,37.1176 126.4957,37.2099 126.5332,37.2204 126.5932,37.1969 126.6951,37.2238 126.6771,37.2646 126.6437,37.2548 126.6041,37.2628 126.5559,37.2863 126.5754,37.3449 126.5603,37.3433 126.4973,37.3645 126.4596,37.4394 126.5017,37.4431 126.494,37.5059 126.4852,37.5248 126.4622,37.5492 126.4059,37.5777 126.3824,37.6029 126.3651,37.6762 126.3729,37.7208 126.4743,37.7181 126.5137,37.6421 126.521,37.7917 126.5691,37.9127 126.6059,37.9311 126.6395,37.958 126.6568,37.9735 126.7671,38.0857 126.7867,38.1117 126.8015,38.1457 126.8184,38.171 126.8375,38.1864 126.8817,38.2073 126.8994,38.2171 126.9322,38.2413 126.9622,38.2554 127.0286,38.2691 127.0826,38.2761 127.1971,38.2804 127.2818,38.2697 127.3682,38.2644 127.4996,38.2768 127.7157,38.2707 127.81,38.2643 127.8408,38.2626 127.8848,38.2637 127.91,38.2688 127.967,38.2862 127.9882,38.2967 128.0059,38.307 128.0306,38.3224 128.0545,38.3388 128.0731,38.3523 128.0899,38.3685 128.109,38.3874 128.1268,38.4164 128.1369,38.4453 128.1427,38.4813 128.1358,38.5171 128.1377,38.5444 128.1927,38.5819 128.1927,38.5819 37,3.0,Greece 25.9805,38.1067 25.9618,38.1125 25.9338,38.1227 25.8907,38.152 25.8289,38.197 25.8293,38.2073 25.8372,38.2236 25.872,38.2473 25.8836,38.2518 25.9053,38.2543 25.9573,38.3009 25.9542,38.3404 25.9083,38.4141 25.878,38.4262 25.8516,38.4323 25.8266,38.4506 25.8176,38.4578 25.8116,38.4663 25.7915,38.4973 25.8093,38.5274 25.8166,38.5348 25.8314,38.5418 25.8502,38.5456 25.9667,38.5581 26.104,38.5219 26.116,38.5129 26.1247,38.4987 26.1043,38.3886 26.099,38.3698 26.1116,38.3207 26.1274,38.2845 26.1262,38.2604 26.0677,38.2042 26.0011,38.1493 25.9921,38.136 25.9805,38.1067 25.9805,38.1067 37,2.0,Portugal -28.209,38.3291 -28.2306,38.3566 -28.2455,38.3618 -28.3515,38.3687 -28.3899,38.3703 -28.4215,38.3624 -28.4832,38.398 -28.5021,38.4257 -28.5111,38.455 -28.5139,38.4692 -28.5114,38.4842 -28.5015,38.4925 -28.4876,38.5018 -28.4599,38.5108 -28.4282,38.5147 -28.3993,38.5151 -28.3837,38.5138 -28.3419,38.5061 -28.3162,38.4984 -28.2923,38.4894 -28.2811,38.4847 -28.2286,38.4548 -28.1516,38.4169 -28.1035,38.4068 -28.088,38.4048 -28.0641,38.403 -28.0484,38.4042 -28.0327,38.4012 -28.011,38.3871 -27.9995,38.3711 -28.0186,38.3512 -28.0597,38.3497 -28.111,38.3593 -28.155,38.3619 -28.166,38.3571 -28.209,38.3291 -28.209,38.3291 14,3.0,Greece 20.6923,38.2624 20.6834,38.2653 20.672,38.2746 20.6436,38.31 20.6172,38.3552 20.5868,38.4264 20.6254,38.4574 20.6437,38.4503 20.6796,38.4001 20.7158,38.3294 20.7332,38.2805 20.7083,38.2672 20.6923,38.2624 20.6923,38.2624 709,4.5,Afghanistan 66.4505,37.3244 66.4926,37.3263 66.536,37.3188 66.6336,37.3136 66.7487,37.3218 66.7702,37.3239 66.839,37.3369 66.8824,37.3407 66.925,37.338 67.0038,37.3013 67.1122,37.2051 67.1279,37.1845 67.1376,37.1557 67.1578,37.1435 67.1785,37.144 67.2042,37.1527 67.2165,37.1616 67.2923,37.1707 67.3121,37.1775 67.368,37.2088 67.4376,37.2267 67.5605,37.2045 67.6371,37.187 67.6605,37.1811 67.6842,37.1637 67.6911,37.144 67.6855,37.074 67.6981,37.0506 67.9123,36.8947 67.9688,36.891 68.093,36.976 68.1949,36.9889 68.245,37.0674 68.3255,37.0784 68.5374,37.1643 68.5494,37.2021 68.572,37.2311 68.719,37.2808 68.8007,37.2968 68.8786,37.2811 68.9151,37.2589 68.9411,37.2117 69.0336,37.1225 69.0605,37.1092 69.1143,37.075 69.1637,37.054 69.196,37.0627 69.2316,37.0778 69.2977,37.117 69.319,37.1338 69.3303,37.1549 69.3352,37.1654 69.3146,37.2351 69.2988,37.2828 69.2902,37.3023 69.2832,37.3463 69.2855,37.3778 69.2904,37.4114 69.4305,37.5403 69.4896,37.5365 69.58,37.5325 69.7012,37.5407 69.754,37.5578 69.7754,37.5662 69.7996,37.572 69.8197,37.5712 69.8409,37.5606 69.8591,37.5306 69.9217,37.5033 69.9434,37.4996 69.9704,37.4994 69.9949,37.4909 70.0357,37.4867 70.0635,37.4943 70.161,37.5738 70.1934,37.6575 70.1894,37.6868 70.1765,37.7289 70.1429,37.7799 70.1121,37.7915 70.0852,37.8094 70.0728,37.8294 70.07,37.8866 70.1165,37.8864 70.1518,37.9006 70.1869,37.934 70.2044,37.9562 70.2183,37.9577 70.249,37.9761 70.397,38.1192 70.4491,38.2101 70.5054,38.2682 70.5539,38.3114 70.6176,38.3668 70.6854,38.3986 70.8656,38.429 70.8937,38.4235 71.0567,38.3382 71.0832,38.3048 71.118,38.2769 71.1538,38.2614 71.177,38.2596 71.2113,38.254 71.2674,38.205 71.2711,38.1523 71.2615,38.1123 71.2448,38.0886 71.221,38.0424 71.1719,37.9397 71.1579,37.8853 71.2349,37.8477 71.2955,37.8646 71.3413,37.8829 71.4125,37.905 71.4456,37.9018 71.4903,37.8691 71.4991,37.8317 71.4965,37.7943 71.4941,37.7734 71.4815,37.7552 71.4477,37.6845 71.4103,37.5674 71.402,37.5211 71.3933,37.3762 71.3993,37.3285 71.3982,37.2677 71.3954,37.2368 71.3889,37.2173 71.3697,37.1891 71.3541,37.1679 71.344,37.1245 71.3374,37.0253 71.3634,36.9034 71.3728,36.8853 71.4593,36.7225 71.483,36.6899 71.5216,36.6566 71.5834,36.6349 71.6015,36.6308 71.6656,36.6339 71.688,36.6371 71.7265,36.6435 71.749,36.6511 71.8372,36.7093 71.9537,36.789 72.1294,36.9012 72.1854,36.9255 72.2117,36.9367 72.2521,36.9482 72.3155,36.9612 72.3365,36.9614 72.4229,36.9604 72.5672,36.9839 72.6127,37.0492 72.6269,37.0708 72.6386,37.0937 72.6636,37.139 72.6827,37.1689 72.7042,37.1874 72.7387,37.1934 72.7969,37.2082 72.9055,37.2623 73.0118,37.3207 73.0618,37.3611 73.1805,37.4111 73.2027,37.4183 73.3388,37.434 73.3599,37.4341 73.4084,37.4306 73.4445,37.4192 73.4746,37.4063 73.5164,37.3952 73.573,37.3933 73.6146,37.3957 73.6504,37.3969 73.6792,37.3908 73.6731,37.3017 73.6221,37.2672 73.55,37.2582 73.524,37.2217 73.5347,37.2013 73.6419,37.1799 73.7202,37.1865 73.7453,37.2086 73.7749,37.2255 73.9432,37.2698 74.0486,37.2942 74.1337,37.3548 74.1567,37.3674 74.2248,37.3649 74.2973,37.3595 74.3344,37.3522 74.4488,37.34 74.5412,37.3443 74.5715,37.3504 74.7248,37.2902 74.7412,37.278 74.8173,37.1958 74.7104,37.1824 74.6754,37.2315 74.6622,37.2573 74.6417,37.2595 74.5714,37.2241 74.5097,37.2093 74.4301,37.199 74.2935,37.1284 74.2976,37.1047 74.4314,37.0079 74.4676,36.9864 74.4741,36.9774 74.4571,36.9237 74.4333,36.927 74.4096,36.9575 74.379,36.9691 74.3193,36.9587 74.1089,36.8621 74.0258,36.8023 73.9653,36.7803 73.9386,36.7742 73.861,36.7987 73.8308,36.8222 73.7386,36.8547 73.572,36.8685 73.5467,36.8614 73.5401,36.8582 73.4438,36.8391 73.3885,36.8507 73.29,36.8479 72.9592,36.8273 72.8402,36.8137 72.8231,36.8021 72.7992,36.7952 72.77,36.7929 72.714,36.7919 72.6728,36.7974 72.6507,36.8013 72.5511,36.7923 72.4837,36.7841 72.458,36.7765 72.441,36.7616 72.4028,36.7337 72.3757,36.7205 72.312,36.7211 72.2361,36.7145 72.1322,36.6884 72.0797,36.668 72.0819,36.647 72.0518,36.6066 71.8793,36.5012 71.6514,36.3754 71.6164,36.3962 71.5508,36.425 71.5265,36.4118 71.4974,36.3481 71.4878,36.3058 71.3712,36.2314 71.1533,36.0911 71.0972,36.0117 71.0951,35.9992 71.1298,35.9833 71.2393,35.9153 71.29,35.8807 71.3498,35.8269 71.4531,35.6599 71.4352,35.6228 71.4756,35.5471 71.5119,35.487 71.5556,35.3885 71.5316,35.3561 71.4841,35.3192 71.4553,35.2784 71.4614,35.2501 71.5202,35.1914 71.4815,35.0815 71.4431,35.045 71.4107,34.945 71.4062,34.9272 71.4011,34.9188 71.3833,34.9067 71.3099,34.8762 71.1995,34.7911 71.0782,34.6852 70.9997,34.63 71.0009,34.6052 71.0116,34.5782 70.9954,34.5232 70.8998,34.5169 70.8903,34.4995 70.8862,34.4694 70.9066,34.4269 70.9852,34.3521 71.0114,34.3428 71.0628,34.3173 71.0426,34.1257 70.989,34.0182 70.7905,33.927 70.7022,33.9151 70.467,33.9065 70.3903,33.9056 70.247,33.9258 70.1088,33.9547 70.03,33.9783 69.9684,33.9972 69.9092,34.014 69.8611,34.0069 69.8461,34.0038 69.8394,34.0031 69.8102,33.9913 69.7766,33.8977 69.8261,33.8143 69.8963,33.7159 70.0086,33.689 70.0424,33.6961 70.1055,33.6033 70.1083,33.5696 70.0943,33.5365 70.0822,33.5085 70.0785,33.4823 70.1114,33.4397 70.1474,33.4284 70.1969,33.3831 70.2225,33.3465 70.2335,33.2956 70.1368,33.2139 70.0595,33.1683 69.9381,33.0989 69.8129,33.0582 69.7835,33.0525 69.5358,33.0475 69.4905,33.0501 69.4697,33.0428 69.417,32.9994 69.4016,32.96 69.4106,32.9085 69.4171,32.8785 69.4224,32.8356 69.3757,32.8001 69.3178,32.754 69.3054,32.7302 69.3271,32.7043 69.3489,32.6786 69.3659,32.6378 69.3311,32.5807 69.3111,32.5555 69.2878,32.532 69.2672,32.5221 69.2373,32.5121 69.217,32.504 69.1926,32.4838 69.1805,32.464 69.1667,32.434 69.1581,32.4048 69.161,32.3751 69.1715,32.3476 69.1878,32.3195 69.2007,32.286 69.2007,32.2544 69.1932,32.1819 69.1884,32.1618 69.1813,32.1346 69.1831,32.1035 69.2016,32.0127 69.2382,31.9049 69.2013,31.8889 69.1247,31.8231 69.113,31.7957 69.0676,31.7336 69.0395,31.6987 69.016,31.6764 68.9296,31.6157 68.7383,31.5704 68.7142,31.5794 68.6407,31.6663 68.6305,31.6864 68.5616,31.7473 68.4872,31.7879 68.4673,31.7923 68.4303,31.7888 68.3963,31.7769 68.3576,31.7445 68.4268,31.7333 68.4756,31.7252 68.465,31.7012 68.4454,31.6913 68.1828,31.7382 68.1304,31.7809 68.0995,31.7936 68.0751,31.794 68.0575,31.7705 68.0369,31.7323 67.9557,31.6515 67.8804,31.5985 67.84,31.6065 67.7982,31.6041 67.7732,31.5929 67.7517,31.5723 67.7351,31.545 67.6496,31.4963 67.6203,31.4891 67.5936,31.4883 67.5672,31.4959 67.4937,31.4941 67.5263,31.3951 67.5733,31.3663 67.5981,31.3678 67.6288,31.377 67.6575,31.3796 67.6784,31.3759 67.7087,31.3495 67.7026,31.3085 67.5254,31.2364 67.2971,31.1803 67.1882,31.1791 67.1691,31.1874 67.147,31.1833 66.9757,31.2064 66.9553,31.2296 66.9627,31.2677 66.9492,31.2835 66.9212,31.2872 66.8786,31.2851 66.794,31.2575 66.7691,31.2456 66.6349,31.1724 66.6072,31.0919 66.6001,31.0568 66.4927,30.9521 66.4746,30.9413 66.4512,30.936 66.3894,30.9269 66.3636,30.9251 66.3346,30.9174 66.3141,30.909 66.1971,30.536 66.2304,30.4763 66.2534,30.4603 66.2658,30.4084 66.2351,30.1944 66.2046,30.1526 66.1865,30.1162 66.1548,30.0316 66.1753,30.0072 66.2107,29.9864 66.2761,29.9263 66.2168,29.8599 66.1711,29.8186 66.0424,29.7871 65.9825,29.7721 65.7773,29.7207 65.649,29.6884 65.5123,29.6535 65.1706,29.5653 64.95,29.508 64.7895,29.5362 64.6859,29.5458 64.6562,29.5497 64.6119,29.5534 64.5769,29.5546 64.4913,29.5499 64.4659,29.5478 64.4047,29.5411 64.2963,29.5205 64.1855,29.4889 64.1282,29.4655 64.1041,29.4491 64.0799,29.4244 63.9765,29.3818 63.9343,29.3975 63.6207,29.4515 63.505,29.471 63.4724,29.4689 63.1485,29.4408 63.1218,29.4381 62.4779,29.3799 62.4038,29.3734 62.3808,29.3792 62.3275,29.3942 62.2818,29.4078 62.259,29.4145 62.1678,29.4409 62.0234,29.4819 61.9321,29.5074 61.7094,29.5702 60.9841,29.7742 60.9075,29.7955 60.7874,29.8305 60.793,29.8338 60.8322,29.8737 60.963,30.0102 61.1009,30.1522 61.1375,30.1892 61.1982,30.2505 61.2928,30.3479 61.6782,30.756 61.77,30.9894 61.7308,31.1426 61.7081,31.1824 61.6867,31.2212 61.6909,31.2832 61.6606,31.3184 61.6336,31.3482 61.3709,31.3832 61.1091,31.4172 61.0247,31.4281 60.7699,31.4611 60.7323,31.6244 60.745,31.7389 60.7443,31.9126 60.728,31.961 60.7356,31.9838 60.7575,32.0546 60.7759,32.1546 60.7794,32.1899 60.7729,32.225 60.7538,32.2859 60.6474,32.5874 60.581,32.782 60.5173,32.9769 60.5094,33.0062 60.5038,33.0293 60.5021,33.0518 60.5047,33.1124 60.5525,33.1705 60.6452,33.2718 60.6779,33.3079 60.7245,33.3535 60.7736,33.447 60.7985,33.4633 60.8507,33.4674 60.86,33.4795 60.8364,33.5103 60.8149,33.5184 60.7768,33.5214 60.7091,33.5241 60.6303,33.523 60.5874,33.5299 60.5186,33.5601 60.492,33.5737 60.4675,33.5879 60.4525,33.6023 60.4417,33.6231 60.4349,33.652 60.4302,33.7022 60.462,33.7392 60.4731,33.7596 60.4751,33.7843 60.4508,33.9234 60.4417,33.9726 60.4309,34.0221 60.4256,34.0535 60.4259,34.0843 60.4327,34.1074 60.4477,34.1311 60.4676,34.1582 60.5967,34.2758 60.6606,34.2816 60.688,34.284 60.7573,34.2845 60.8,34.2812 60.8046,34.3169 60.7196,34.425 60.6892,34.4395 60.6452,34.4893 60.6615,34.506 60.7004,34.5175 60.7543,34.5233 60.7743,34.529 60.8975,34.6122 60.9722,34.7504 60.9986,34.8405 61.0364,34.9778 61.0527,35.0467 61.057,35.0928 61.0372,35.1246 61.0206,35.1371 61.0171,35.1969 61.0267,35.2424 61.1043,35.3089 61.197,35.4777 61.2086,35.5158 61.1973,35.5676 61.2169,35.5886 61.2954,35.5964 61.3497,35.5151 61.367,35.5117 61.4236,35.4696 61.4487,35.4442 61.4968,35.4113 61.516,35.4045 61.7185,35.3721 61.7373,35.3794 61.8855,35.4196 61.9115,35.4191 61.9622,35.4016 61.992,35.3802 62.0473,35.3351 62.0521,35.3284 62.0831,35.2964 62.1896,35.2169 62.1934,35.1621 62.2317,35.1067 62.2585,35.1307 62.2804,35.1592 62.3066,35.1879 62.3298,35.2113 62.3465,35.2255 62.3889,35.2482 62.4322,35.2341 62.4472,35.2191 62.4688,35.1971 62.5488,35.1865 62.6459,35.2181 62.7555,35.2848 62.8016,35.3179 62.8217,35.3344 62.8411,35.3447 62.9046,35.3764 62.9414,35.3882 62.9688,35.3903 63.0051,35.3926 63.0257,35.4171 63.0428,35.4998 63.0176,35.5165 63.0237,35.5937 63.0554,35.6127 63.1029,35.6338 63.0765,35.7241 63.0229,35.7919 63.0411,35.8226 63.1224,35.8217 63.1582,35.8165 63.1908,35.8128 63.2138,35.8116 63.2349,35.8122 63.2602,35.8171 63.4404,35.8628 63.4675,35.8777 63.5072,35.9181 63.5304,35.9274 63.5507,35.9292 63.5727,35.9289 63.6151,35.9304 63.6859,35.9384 63.7183,35.9472 63.806,35.9914 63.8443,35.9978 63.8946,35.9988 64.0117,36.0828 64.081,36.1244 64.2694,36.1903 64.3431,36.2056 64.3825,36.211 64.4198,36.24 64.44,36.2586 64.4972,36.3286 64.5174,36.3563 64.5311,36.383 64.5417,36.4129 64.5489,36.4457 64.5463,36.4912 64.5302,36.5264 64.5257,36.559 64.5324,36.5953 64.5419,36.6229 64.5528,36.648 64.5677,36.6691 64.609,36.7272 64.6308,36.7614 64.6595,36.8095 64.6916,36.8526 64.7081,36.8779 64.7153,36.9141 64.7056,36.9656 64.7005,36.9867 64.6927,37.0211 64.6958,37.0608 64.7089,37.0801 64.738,37.097 64.7596,37.1066 64.9583,37.1938 64.9813,37.2013 65.0081,37.2042 65.2764,37.2069 65.3056,37.2069 65.3514,37.2025 65.3819,37.2034 65.4381,37.2062 65.477,37.2194 65.5625,37.3106 65.5638,37.3542 65.558,37.3854 65.5593,37.4118 65.5801,37.453 65.5947,37.4749 65.6112,37.4905 65.6854,37.4956 65.9214,37.4134 66.0184,37.3793 66.0996,37.3302 66.2006,37.2846 66.2306,37.2843 66.2652,37.2947 66.3266,37.3018 66.3535,37.2769 66.3673,37.2796 66.4027,37.3022 66.4252,37.3198 66.4505,37.3244 66.4505,37.3244 26,3.0,Greece 20.544,38.4248 20.585,38.3512 20.653,38.2345 20.785,38.0721 20.7659,38.0207 20.7075,38.0182 20.5305,38.048 20.488,38.0605 20.3507,38.1139 20.3156,38.1352 20.3148,38.1559 20.3291,38.1889 20.3717,38.2825 20.4148,38.2837 20.4537,38.2658 20.4769,38.2763 20.4892,38.2847 20.509,38.3016 20.5188,38.3173 20.522,38.3481 20.5123,38.3664 20.507,38.3916 20.5146,38.4273 20.5348,38.4278 20.544,38.4248 20.544,38.4248 54,9.0,Japan 138.3274,38.2383 138.324,38.1985 138.3165,38.1681 138.3076,38.1484 138.2875,38.1137 138.2704,38.0853 138.2641,38.0729 138.2584,38.0598 138.2467,38.0178 138.2599,38.0033 138.3391,38.0251 138.3481,38.0324 138.3595,38.0371 138.3823,38.0331 138.3946,38.0271 138.3976,38.0144 138.3953,38.0027 138.3799,37.9709 138.3274,37.8729 138.2944,37.8394 138.1929,37.7814 138.1788,37.7757 138.0963,37.7567 138.0686,37.7516 138.0461,37.754 138.0358,37.7584 138.0274,37.7695 138.029,37.7807 138.0535,37.7912 138.0737,37.7922 138.0888,37.7959 138.0997,37.8063 138.15,37.9033 138.1541,37.9242 138.1496,37.9359 138.1304,37.9504 138.1162,37.9555 138.1032,37.9539 138.0931,37.9476 138.0842,37.9343 138.0728,37.9244 138.0571,37.9307 138.0502,37.9753 138.0521,38.0152 138.0595,38.0322 138.1249,38.1243 138.2647,38.2508 138.283,38.2657 138.2933,38.2717 138.3103,38.278 138.3283,38.2786 138.336,38.2706 138.3274,38.2383 138.3274,38.2383 125,2.0,Italy 15.0617,36.6083 15.0243,36.6457 15.0039,36.6577 14.8765,36.6846 14.844,36.687 14.7945,36.6739 14.76,36.6635 14.7024,36.6773 14.5346,36.7392 14.4404,36.7931 14.4224,36.8319 14.3952,36.8726 14.3753,36.9013 14.3547,36.9248 14.3285,36.9478 14.2578,37.0011 14.2274,37.0208 14.1264,37.0576 14.0835,37.0683 13.9799,37.0686 13.9375,37.0587 13.914,37.0532 13.8695,37.0578 13.7205,37.1163 13.6474,37.1551 13.6299,37.1745 13.5492,37.2339 13.5256,37.2415 13.4877,37.2455 13.3952,37.2823 13.3124,37.3193 13.2551,37.3567 13.2395,37.38 13.2011,37.4133 13.1388,37.4493 13.0689,37.4511 12.9681,37.4995 12.9451,37.5154 12.906,37.531 12.7761,37.5368 12.7392,37.531 12.7119,37.5241 12.6649,37.513 12.6395,37.5177 12.4978,37.6168 12.4519,37.6569 12.4146,37.7609 12.4255,37.7636 12.4423,37.7758 12.4614,37.8302 12.4499,37.8737 12.4936,37.9724 12.5418,38.0178 12.7169,38.0971 12.8047,38.0262 12.8759,37.9826 12.9064,37.9821 12.9386,37.9901 13.0021,38.0163 13.0524,38.0476 13.039,38.091 13.083,38.1419 13.3009,38.1748 13.3401,38.1442 13.3543,38.11 13.3496,38.0781 13.3647,38.0649 13.6933,37.934 13.7427,37.9284 13.7729,37.9296 13.8028,37.936 13.8684,37.9554 13.8982,37.9676 13.9261,37.9869 13.9955,37.993 14.114,37.9802 14.2239,37.9696 14.2929,37.9698 14.349,37.9756 14.5003,38.0002 14.6242,38.0348 14.7651,38.1116 14.8549,38.1276 14.9495,38.1143 15.0687,38.0798 15.1309,38.1028 15.2814,38.1642 15.4951,38.2498 15.5251,38.254 15.6272,38.2216 15.5875,38.208 15.5558,38.1939 15.5396,38.1675 15.5084,38.0942 15.4833,38.0361 15.4076,37.9583 15.3488,37.9012 15.2154,37.7428 15.1996,37.7222 15.1977,37.667 15.1809,37.6093 15.1483,37.52 15.1301,37.5009 15.0986,37.4776 15.0726,37.4482 15.0659,37.4209 15.0728,37.3065 15.1669,37.1424 15.1841,37.1158 15.211,37.0832 15.24,37.0681 15.2799,37.0614 15.296,37.0014 15.2965,36.9676 15.2424,36.9401 15.1942,36.9137 15.1603,36.894 15.1311,36.8721 15.0907,36.7987 15.0761,36.7443 15.0946,36.7022 15.1141,36.6329 15.0721,36.6108 15.0617,36.6083 15.0617,36.6083 15,3.0,Greece 23.4702,37.9566 23.4751,37.9555 23.4908,37.9519 23.5086,37.9416 23.5158,37.8884 23.5078,37.8768 23.4312,37.8367 23.417,37.8371 23.3766,37.8517 23.3726,37.8644 23.3796,37.8866 23.4067,37.9433 23.4584,37.9574 23.4702,37.9566 23.4702,37.9566 21,3.0,Greece 24.9274,37.6435 24.9146,37.6507 24.8828,37.6746 24.8403,37.724 24.798,37.7719 24.7343,37.8301 24.7203,37.836 24.7044,37.8388 24.6826,37.8305 24.661,37.8844 24.6579,37.9111 24.6621,37.92 24.6706,37.9271 24.7112,37.948 24.7453,37.9543 24.7588,37.9559 24.9299,37.8301 24.9649,37.7204 24.9529,37.6915 24.9274,37.6435 24.9274,37.6435 26,3.0,Greece 20.8087,37.6042 20.8036,37.6041 20.7832,37.6105 20.6865,37.6804 20.676,37.6905 20.6014,37.7707 20.5928,37.8049 20.5949,37.8186 20.6013,37.8333 20.6161,37.8559 20.6512,37.8779 20.6739,37.8867 20.7668,37.8065 20.8358,37.7866 20.8587,37.7719 20.8707,37.7628 20.965,37.6832 20.9711,37.6716 20.9669,37.6564 20.9157,37.6773 20.8921,37.6878 20.8685,37.689 20.8433,37.6836 20.813,37.6429 20.8087,37.6042 20.8087,37.6042 39,2.0,Portugal -25.4225,37.6634 -25.5295,37.6866 -25.6557,37.6955 -25.6771,37.7025 -25.6929,37.7112 -25.7769,37.7612 -25.8231,37.7933 -25.83,37.8112 -25.8199,37.8414 -25.8081,37.8596 -25.7611,37.8657 -25.7429,37.8669 -25.7137,37.8588 -25.6945,37.8528 -25.6648,37.8318 -25.664,37.8133 -25.6432,37.7986 -25.5657,37.7854 -25.5509,37.7844 -25.5154,37.7828 -25.4016,37.7883 -25.3678,37.7952 -25.3403,37.8055 -25.2933,37.8211 -25.16,37.8219 -25.1437,37.8207 -25.1318,37.8164 -25.1216,37.8111 -25.107,37.7981 -25.1001,37.7803 -25.0974,37.7661 -25.1073,37.7231 -25.1131,37.7134 -25.1219,37.7064 -25.1332,37.7023 -25.1797,37.6954 -25.3091,37.6815 -25.4225,37.6634 -25.4225,37.6634 19,9.0,South Korea 126.2765,37.7641 126.3309,37.7358 126.3452,37.7254 126.3496,37.7161 126.3728,37.5857 126.3473,37.5552 126.3346,37.5524 126.2819,37.55 126.248,37.551 126.2308,37.5566 126.2178,37.5649 126.2064,37.581 126.1974,37.6779 126.2005,37.7452 126.2319,37.7754 126.2572,37.7792 126.269,37.7737 126.2765,37.7641 126.2765,37.7641 22,3.0,Greece 26.7828,37.5944 26.7151,37.6508 26.6732,37.6662 26.6517,37.6628 26.6104,37.6548 26.5869,37.6437 26.5782,37.6382 26.5605,37.6338 26.5463,37.6448 26.5371,37.6899 26.5624,37.7159 26.6326,37.7488 26.6947,37.7657 26.7109,37.7687 26.9533,37.7398 26.9929,37.7292 27.0313,37.6849 27.0279,37.6653 27.0042,37.6605 26.8603,37.6232 26.7828,37.5944 26.7828,37.5944 17,3.0,Greece 25.9501,37.465 25.9446,37.4699 25.9408,37.4851 25.949,37.5035 26.0125,37.5744 26.0318,37.589 26.0466,37.5932 26.2777,37.6376 26.3239,37.6417 26.3222,37.6302 26.2887,37.5924 26.2708,37.5747 26.2329,37.549 26.1805,37.5167 25.9867,37.4724 25.9501,37.465 25.9501,37.465 18,3.0,Greece 24.2534,37.4826 24.2448,37.4871 24.2374,37.5487 24.243,37.5708 24.2518,37.5892 24.2676,37.6143 24.2987,37.6372 24.3186,37.64 24.3368,37.6399 24.3622,37.6312 24.3792,37.6109 24.363,37.5735 24.3492,37.5549 24.3366,37.541 24.2799,37.4918 24.2667,37.4844 24.2534,37.4826 24.2534,37.4826 20,3.0,Greece 25.021,37.6336 25.0458,37.6087 25.1042,37.6026 25.1548,37.5995 25.1812,37.5902 25.2056,37.5798 25.2155,37.5709 25.222,37.5445 25.1969,37.4934 25.1729,37.485 25.1626,37.4855 25.1353,37.4909 25.0809,37.509 24.9621,37.598 24.9462,37.6205 24.9436,37.6317 24.9778,37.6354 25.0094,37.6346 25.021,37.6336 25.021,37.6336 17,3.0,Greece 24.4088,37.4289 24.3998,37.3992 24.4134,37.3895 24.4355,37.3852 24.4506,37.3654 24.4502,37.3542 24.4141,37.3096 24.3845,37.2837 24.3695,37.2725 24.3451,37.2644 24.3353,37.2696 24.338,37.3877 24.3664,37.4172 24.3782,37.4265 24.4095,37.4364 24.4088,37.4289 24.4088,37.4289 346,4.0,Iraq 42.3002,37.0653 42.3213,37.0759 42.4761,37.106 42.5239,37.1121 42.5323,37.1339 42.6685,37.31 42.7095,37.3295 42.7305,37.3419 42.7665,37.3254 42.8383,37.2938 42.868,37.2858 42.9041,37.2816 42.9465,37.2975 43.1003,37.332 43.4329,37.2097 43.5659,37.1882 43.7588,37.1804 43.8554,37.1849 43.8792,37.2101 43.898,37.238 43.9513,37.2758 43.9904,37.2806 44.015,37.2744 44.0383,37.2756 44.0609,37.2737 44.1726,37.2343 44.2039,37.1949 44.2104,37.1533 44.2046,37.1218 44.1723,37.1123 44.138,37.0547 44.199,36.9444 44.261,36.93 44.2829,36.9651 44.2917,36.9968 44.3781,37.0214 44.4121,37.0394 44.4324,37.05 44.4922,37.0912 44.5093,37.108 44.5243,37.1214 44.5836,37.1467 44.6871,37.1326 44.7153,37.1243 44.7286,37.1082 44.7074,37.0706 44.7264,37.0431 44.7587,37.0145 44.7977,37.011 44.8443,36.9892 44.8505,36.8791 44.8467,36.8514 44.824,36.8293 44.786,36.7806 44.7943,36.7533 44.812,36.7432 44.8392,36.7413 44.8807,36.7407 44.9667,36.6951 45.0064,36.6419 45.004,36.5987 44.9801,36.5733 44.957,36.5167 44.9544,36.5018 44.9967,36.4654 45.0252,36.4169 45.0279,36.3946 45.0483,36.3776 45.0802,36.3682 45.1066,36.3706 45.135,36.3785 45.1573,36.3882 45.1849,36.3877 45.2204,36.3404 45.2608,36.1977 45.2846,36.0934 45.2954,36.0242 45.355,35.9552 45.4134,35.9763 45.4515,35.9776 45.4611,35.971 45.5653,35.926 45.6039,35.9002 45.6231,35.8818 45.6595,35.8395 45.6734,35.8133 45.6805,35.792 45.6979,35.7771 45.8083,35.7775 45.8287,35.7918 46.0294,35.8253 46.0756,35.8072 46.088,35.7838 46.1132,35.7671 46.1407,35.7629 46.1987,35.7728 46.2309,35.7913 46.2636,35.7925 46.2851,35.7742 46.274,35.7373 46.2088,35.688 46.1696,35.6721 46.0916,35.6551 46.0509,35.6527 46.0129,35.6569 45.9743,35.6489 45.9203,35.5449 45.9313,35.4453 45.9915,35.3597 46.0055,35.3437 46.0883,35.2581 46.0732,35.2331 46.1005,35.1948 46.1268,35.1823 46.1063,35.0691 45.9761,35.0201 45.9326,35.0361 45.8904,35.054 45.8184,34.9935 45.8211,34.9598 45.8331,34.9341 45.8086,34.8648 45.7894,34.8581 45.7384,34.8752 45.7057,34.8074 45.679,34.7919 45.6533,34.7907 45.6318,34.7776 45.5924,34.6964 45.6005,34.6766 45.6248,34.6606 45.6492,34.6203 45.6705,34.5468 45.6555,34.519 45.5895,34.5349 45.5041,34.5476 45.3796,34.4195 45.4017,34.3399 45.4336,34.2966 45.4608,34.3089 45.4903,34.307 45.5144,34.2857 45.5252,34.2631 45.5073,34.1132 45.4882,34.096 45.4081,34.0392 45.3449,33.9371 45.365,33.9131 45.3878,33.9044 45.4136,33.9028 45.441,33.9081 45.4914,33.8508 45.582,33.7296 45.588,33.6972 45.6375,33.6318 45.6929,33.5999 45.6925,33.5574 45.7266,33.5631 45.7555,33.5849 45.8394,33.5954 45.8851,33.517 45.8313,33.4841 45.8148,33.4624 45.871,33.4454 45.8922,33.4422 45.9468,33.4482 45.9693,33.4232 45.9844,33.4001 45.9891,33.3689 45.9895,33.3464 46.0673,33.2665 46.1174,33.2276 46.1392,33.1563 46.1285,33.1384 46.0852,33.099 46.0531,33.0461 46.0373,32.9661 46.0466,32.9341 46.0919,32.9158 46.1184,32.9166 46.1441,32.9224 46.1849,32.9283 46.2152,32.9301 46.2447,32.9267 46.3131,32.9144 46.3546,32.9038 46.3905,32.8884 46.4334,32.8658 46.4973,32.8213 46.5935,32.7621 46.6352,32.7423 46.657,32.733 46.6869,32.7163 46.7794,32.6439 46.7963,32.6306 46.8213,32.6068 46.8425,32.5868 46.8726,32.5642 46.8953,32.5484 46.9933,32.4794 47.011,32.4681 47.0715,32.4296 47.09,32.4222 47.1378,32.4261 47.1874,32.4372 47.2097,32.4522 47.2996,32.4377 47.3762,32.3494 47.3545,32.3133 47.4676,32.1611 47.5407,32.0647 47.5714,32.0175 47.6756,31.9009 47.7248,31.8537 47.787,31.7843 47.8022,31.7631 47.7714,31.6925 47.7392,31.6177 47.6866,31.4951 47.6547,31.4206 47.6353,31.3728 47.6345,31.2696 47.6346,31.2006 47.6339,31.187 47.6336,31.1594 47.6329,31.0768 47.6319,30.9667 47.7812,30.9651 47.8618,30.965 47.9742,30.9616 47.9744,30.9119 47.972,30.6226 47.9708,30.554 47.9701,30.4572 48.0054,30.4296 48.0453,30.4205 48.079,30.4061 48.0979,30.3931 48.2268,30.296 48.3493,30.166 48.3473,30.1363 48.3483,30.0699 48.3875,29.972 48.4107,29.9496 48.4828,29.9296 48.4977,29.9057 48.4711,29.8911 48.3806,29.894 48.3214,29.9062 48.2814,29.9207 48.2438,29.9373 48.2161,29.9547 48.191,29.968 48.171,29.978 48.1273,29.996 48.096,30.0043 48.0316,30.012 48.0095,30.0113 47.8972,29.9995 47.8815,29.9842 47.8731,29.9844 47.6615,30.0506 47.3751,30.0495 47.3352,30.0493 47.2896,30.0482 47.1431,29.9998 47.1091,29.9817 47.0867,29.963 47.068,29.9412 47.0526,29.9129 47.0335,29.8738 46.9869,29.7609 46.9206,29.6131 46.8836,29.5454 46.8633,29.5216 46.7984,29.4428 46.7674,29.4008 46.7153,29.3236 46.6546,29.2337 46.6299,29.1979 46.5935,29.156 46.575,29.146 46.5387,29.1234 46.5216,29.1107 46.4979,29.089 46.4874,29.0726 46.3668,29.0291 46.0627,29.0536 44.6639,29.1659 43.7537,29.8351 43.0091,30.3826 42.8689,30.4821 42.0306,31.077 41.3862,31.3384 40.3608,31.9126 40.0228,31.9703 39.4363,32.0699 39.146,32.1189 39.2501,32.2005 39.2092,32.3196 38.9928,32.2681 38.9353,32.4414 39.0353,32.4653 38.7443,33.3405 38.76,33.3451 38.9109,33.4182 39.335,33.6212 39.5278,33.7123 39.7463,33.8157 39.9483,33.9097 40.1135,33.9865 40.1474,34.0028 40.6111,34.2219 40.9508,34.3809 40.9773,34.4353 41.0463,34.5698 41.1714,34.7442 41.1696,34.8778 41.1616,35.0298 41.1594,35.0733 41.1579,35.1494 41.159,35.1614 41.1619,35.1854 41.1693,35.2141 41.1877,35.2672 41.2009,35.3039 41.2088,35.3282 41.2158,35.3593 41.2173,35.4036 41.2191,35.4285 41.2245,35.4557 41.2691,35.5108 41.3304,35.5909 41.3245,35.7969 41.3033,35.8361 41.2176,35.9873 41.2014,36.0148 41.2364,36.3147 41.3132,36.4318 41.3489,36.4847 41.7806,36.5581 42.3118,37.0144 42.3187,37.0215 42.3229,37.0304 42.3002,37.0653 42.3002,37.0653 364,1.0,Tunisia 8.6107,36.8999 8.6558,36.9124 8.7547,36.921 8.8155,36.938 8.8467,36.9539 8.8664,36.9654 8.8848,36.9772 8.9039,36.9892 8.9291,37.0102 8.9477,37.0287 8.9615,37.045 8.9737,37.0689 9.0314,37.1107 9.0542,37.1194 9.0689,37.1206 9.1465,37.146 9.3158,37.1863 9.5479,37.2595 9.6465,37.2934 9.7262,37.2984 9.8459,37.2866 9.8568,37.2397 9.837,37.213 9.7956,37.1939 9.7647,37.1819 9.7715,37.1373 9.7957,37.1092 9.8257,37.099 9.8474,37.0987 9.8682,37.1059 9.8891,37.1191 9.9131,37.1645 9.8457,37.1871 9.9141,37.2062 10.0353,37.2197 10.1812,37.1698 10.2415,37.1378 10.1989,37.1218 10.1331,37.1264 10.1187,37.1041 10.178,37.0861 10.1983,37.0863 10.1562,37.0225 10.1592,36.998 10.1873,36.9456 10.3193,36.8479 10.3309,36.8359 10.273,36.774 10.2622,36.7971 10.1894,36.7897 10.1794,36.7698 10.1834,36.7491 10.2306,36.7448 10.2427,36.7457 10.3058,36.7034 10.3234,36.6939 10.3613,36.6834 10.3937,36.6816 10.4017,36.6829 10.4224,36.6886 10.4452,36.6975 10.4707,36.7109 10.5109,36.7345 10.5334,36.7766 10.5526,36.8161 10.5855,36.837 10.6089,36.8352 10.6412,36.8357 10.6635,36.8374 10.6992,36.8456 10.8052,36.9095 10.8541,36.9548 10.8796,36.9979 11.0251,37.0445 11.0535,37.0099 11.0876,36.8631 11.0214,36.7702 10.9664,36.7191 10.9532,36.7024 10.8831,36.6071 10.8508,36.5509 10.8229,36.5017 10.8081,36.4623 10.7987,36.4421 10.7824,36.4246 10.7268,36.4124 10.6597,36.3933 10.5585,36.3571 10.534,36.3436 10.5168,36.3303 10.5089,36.3223 10.4993,36.3104 10.4841,36.2874 10.4667,36.2468 10.4553,36.2147 10.4423,36.1386 10.4425,36.077 10.458,36.0164 10.5063,35.9321 10.5912,35.8221 10.6112,35.8008 10.6722,35.7484 10.7257,35.7318 10.801,35.6843 10.8131,35.6661 10.8572,35.6421 10.893,35.6334 10.9156,35.6309 10.9589,35.6241 10.9871,35.6165 11.0129,35.5976 10.9996,35.5231 11.0159,35.4818 11.0055,35.3496 11.0117,35.2989 11.0366,35.2657 11.0703,35.2357 11.0865,35.2236 11.1124,35.2027 11.0584,35.1312 11.0346,35.1186 11.0054,35.0848 11.0002,35.0536 11.0005,35.0231 10.8954,34.8496 10.8093,34.7548 10.7175,34.6316 10.6948,34.6126 10.6666,34.6059 10.6453,34.604 10.6191,34.5932 10.5618,34.5072 10.483,34.4841 10.4171,34.4577 10.3818,34.4218 10.3616,34.3973 10.3226,34.3692 10.1392,34.2863 10.1029,34.276 10.0241,34.1799 10.0083,34.1528 9.9995,34.1328 9.9942,34.1306 10.0014,34.0716 10.0064,34.0422 10.0178,33.9985 10.0265,33.9715 10.0561,33.9152 10.0668,33.8975 10.0832,33.8767 10.1531,33.7912 10.2533,33.7111 10.3012,33.6752 10.3188,33.6626 10.3427,33.6484 10.3769,33.6355 10.4439,33.613 10.465,33.601 10.5166,33.612 10.5919,33.6337 10.6175,33.6462 10.6455,33.6639 10.6808,33.675 10.7021,33.6667 10.7107,33.6419 10.7032,33.5682 10.692,33.541 10.659,33.5108 10.6778,33.4544 10.7377,33.4365 10.8959,33.4988 10.9158,33.5298 10.9068,33.556 10.8877,33.5762 10.9196,33.5924 10.9654,33.5993 11.0118,33.5879 11.0417,33.575 11.0644,33.5567 11.0774,33.5396 11.0932,33.5122 11.1,33.4847 11.0994,33.4552 11.0895,33.4231 11.0868,33.3925 11.1067,33.2486 11.1597,33.173 11.3282,33.1457 11.3505,33.1446 11.4167,33.1522 11.467,33.1508 11.5111,33.134 11.51,33.1098 11.5071,33.0889 11.5019,33.0656 11.4898,33.0378 11.4793,33.0066 11.4689,32.9061 11.4622,32.827 11.4519,32.6147 11.4578,32.586 11.4796,32.5626 11.502,32.545 11.522,32.531 11.5433,32.5096 11.5649,32.4666 11.5667,32.4346 11.5525,32.4059 11.536,32.3922 11.5011,32.3733 11.4683,32.3539 11.4,32.317 11.3114,32.2833 11.1674,32.2258 11.1296,32.2102 11.0149,32.1638 10.8644,32.0966 10.8456,32.0565 10.8166,32.0056 10.8001,31.9891 10.6966,31.9287 10.6025,31.8255 10.5174,31.7258 10.4849,31.7016 10.4558,31.6857 10.4307,31.6853 10.4029,31.6904 10.3743,31.6941 10.336,31.6948 10.3017,31.684 10.274,31.6588 10.1233,31.467 10.1102,31.3873 10.1569,31.2804 10.2075,31.1632 10.2514,31.0421 10.2774,30.8759 10.2641,30.8353 10.21,30.7161 10.1988,30.694 10.0708,30.554 9.9692,30.4272 9.8794,30.3224 9.8512,30.3056 9.8282,30.3066 9.7227,30.2821 9.6251,30.2444 9.5248,30.2006 9.522,30.2144 9.5081,30.2694 9.4557,30.476 9.4241,30.5995 9.3714,30.806 9.3222,30.9982 9.2865,31.1359 9.2015,31.4654 9.1694,31.589 9.0941,31.8771 9.071,31.9645 9.0454,32.0598 8.9968,32.0936 8.8532,32.1821 8.677,32.2901 8.5489,32.368 8.4044,32.4552 8.3403,32.495 8.3319,32.5372 8.3125,32.6739 8.3087,32.7018 8.3017,32.7564 8.2953,32.7975 8.2634,32.84 8.1471,32.991 8.068,33.0739 8.0352,33.0706 8.0092,33.0771 7.7526,33.1747 7.7331,33.1919 7.7221,33.2112 7.7164,33.2494 7.7142,33.2813 7.7146,33.3357 7.7146,33.3618 7.7152,33.3819 7.6657,33.4705 7.5478,33.6386 7.5053,33.7729 7.4828,33.8497 7.4826,33.8819 7.4908,33.9097 7.499,33.9298 7.5087,33.9663 7.5057,34.0339 7.5083,34.0448 7.5191,34.0662 7.6162,34.1565 7.6392,34.1707 7.6719,34.1819 7.6916,34.1857 7.721,34.1881 7.7492,34.1952 7.7738,34.2125 7.8118,34.3001 7.8143,34.3424 7.8349,34.3794 7.8587,34.3975 8.0257,34.4705 8.06,34.4832 8.096,34.4942 8.1105,34.4995 8.2422,34.6164 8.2279,34.6322 8.2166,34.655 8.233,34.6798 8.2545,34.6994 8.2597,34.7012 8.275,34.7118 8.2646,34.804 8.2755,34.9266 8.3188,35.0696 8.3902,35.1527 8.3298,35.2508 8.3088,35.2732 8.2975,35.2995 8.2915,35.3342 8.292,35.3594 8.3013,35.3961 8.3114,35.4182 8.3383,35.5445 8.3344,35.5839 8.334,35.6041 8.3271,35.6426 8.3133,35.6649 8.2881,35.6853 8.2684,35.7066 8.2603,35.7271 8.252,35.7769 8.25,35.8164 8.2561,35.8817 8.2695,35.9216 8.2801,35.9599 8.2945,36.0571 8.3087,36.1645 8.3231,36.2507 8.3609,36.3169 8.3636,36.3343 8.3657,36.3794 8.3594,36.4116 8.2801,36.4409 8.235,36.4408 8.2046,36.4429 8.1768,36.4546 8.171,36.4645 8.1756,36.4862 8.1969,36.5153 8.2305,36.5283 8.3389,36.5629 8.439,36.6199 8.4646,36.6791 8.4655,36.7023 8.6268,36.7897 8.6212,36.8405 8.6107,36.8999 8.6107,36.8999 267,3.0,Syria 35.876,35.8868 35.969,35.8597 36.0633,35.8212 36.0813,35.8121 36.0973,35.7935 36.1088,35.7785 36.1215,35.7798 36.1355,35.8149 36.1356,35.8396 36.1399,35.8699 36.1766,35.9218 36.2528,35.9295 36.3276,35.9577 36.3363,35.9903 36.3343,36.0566 36.3277,36.136 36.345,36.1729 36.4591,36.1927 36.488,36.195 36.5279,36.1872 36.5689,36.1791 36.6355,36.1922 36.6424,36.2457 36.6133,36.2702 36.5351,36.3567 36.5202,36.3801 36.5018,36.447 36.5387,36.5787 36.6145,36.7739 36.612,36.7925 36.619,36.7932 36.655,36.7882 36.8855,36.737 36.9402,36.7164 36.9898,36.6786 37.0791,36.6181 37.2001,36.6237 37.2209,36.6234 37.3251,36.6142 37.4843,36.6368 37.5193,36.6557 37.6204,36.696 37.6609,36.7072 37.6868,36.7066 37.7276,36.7069 37.8421,36.7398 37.8683,36.7498 37.9065,36.7718 37.9438,36.7836 37.9737,36.7893 38.006,36.8091 38.0475,36.8323 38.1312,36.8645 38.1933,36.8727 38.3362,36.857 38.3827,36.8441 38.4634,36.8169 38.4908,36.8029 38.5779,36.7267 38.6335,36.6843 38.6749,36.6624 38.7243,36.657 38.8667,36.6539 38.9152,36.6557 38.9527,36.6646 38.9924,36.6672 39.0239,36.6616 39.0454,36.6544 39.0795,36.6424 39.1204,36.6286 39.1703,36.6242 39.2066,36.627 39.2574,36.6372 39.3877,36.6565 39.5363,36.6778 39.7661,36.7124 39.8711,36.745 39.8907,36.7516 39.9557,36.7733 40.1618,36.8545 40.2114,36.8781 40.2272,36.8872 40.3622,36.9599 40.3948,36.974 40.4296,36.9795 40.4602,36.9816 40.5817,37.0274 40.6171,37.0434 40.635,37.0541 40.7175,37.0766 40.7533,37.081 40.8474,37.0869 40.8763,37.0881 41.0646,37.0561 41.1624,37.0308 41.3082,37.0335 41.4,37.0372 41.4288,37.0389 41.4939,37.0439 41.7856,37.0883 41.9403,37.1311 42.0017,37.1511 42.028,37.1665 42.0933,37.2176 42.1254,37.2486 42.1603,37.2475 42.2389,37.2278 42.2959,37.1893 42.3015,37.088 42.3002,37.0653 42.3229,37.0304 42.3187,37.0215 42.3118,37.0144 41.7806,36.5581 41.3489,36.4847 41.3132,36.4318 41.2364,36.3147 41.2014,36.0148 41.2176,35.9873 41.3033,35.8361 41.3245,35.7969 41.3304,35.5909 41.2691,35.5108 41.2245,35.4557 41.2191,35.4285 41.2173,35.4036 41.2158,35.3593 41.2088,35.3282 41.2009,35.3039 41.1877,35.2672 41.1693,35.2141 41.1619,35.1854 41.159,35.1614 41.1579,35.1494 41.1594,35.0733 41.1616,35.0298 41.1696,34.8778 41.1714,34.7442 41.0463,34.5698 40.9773,34.4353 40.9508,34.3809 40.6111,34.2219 40.1474,34.0028 40.1135,33.9865 39.9483,33.9097 39.7463,33.8157 39.5278,33.7123 39.335,33.6212 38.9109,33.4182 38.76,33.3451 38.7443,33.3405 38.6474,33.2902 38.4837,33.204 38.2691,33.0918 37.9096,32.9008 37.576,32.7218 37.45,32.6531 37.4453,32.6506 37.1049,32.4641 36.8186,32.3055 36.79,32.2777 36.6766,32.3006 36.5954,32.313 36.4688,32.3271 36.4413,32.3395 36.3531,32.3457 36.2996,32.3969 36.2673,32.4233 36.1504,32.4969 36.1188,32.4819 36.0788,32.4916 36.033,32.5069 35.979,32.5772 35.9566,32.6269 35.8846,32.6839 35.747,32.7075 35.7169,32.7125 35.6438,32.6755 35.6028,32.6488 35.6005,32.6664 35.6055,32.6911 35.6193,32.7255 35.6167,32.7606 35.5928,32.7785 35.5955,32.82 35.5724,32.8545 35.5681,32.8581 35.5784,32.8689 35.5875,32.8988 35.5886,32.963 35.5961,33.0136 35.6038,33.0544 35.6063,33.088 35.6207,33.1681 35.6227,33.175 35.6347,33.2073 35.6235,33.2147 35.6132,33.2171 35.5862,33.2091 35.5776,33.2086 35.5803,33.2391 35.723,33.3039 35.7403,33.31 35.7478,33.3132 35.7682,33.3337 35.7799,33.3659 35.8057,33.38 35.8367,33.3924 35.8875,33.4294 35.9877,33.516 36.0121,33.5482 35.9787,33.5817 35.9206,33.6031 35.8937,33.6065 35.9243,33.6806 35.9705,33.7321 36.0244,33.7899 36.1939,33.8185 36.3061,33.7891 36.3267,33.7932 36.3415,33.8163 36.3106,33.842 36.2822,33.8404 36.2364,33.8732 36.281,33.9372 36.3031,33.9591 36.3504,33.9958 36.4697,34.0692 36.5764,34.1667 36.5463,34.1899 36.4993,34.3058 36.4784,34.3936 36.4072,34.4529 36.383,34.4634 36.3041,34.4623 36.3172,34.4995 36.3504,34.5159 36.4055,34.556 36.4122,34.5918 36.3294,34.6006 36.2518,34.6034 36.0752,34.6055 36.0663,34.6001 36.0407,34.5951 35.9843,34.5938 35.9263,34.6087 35.9033,34.6556 35.885,34.6998 35.8369,34.8356 35.8286,34.8732 35.8314,34.9473 35.8363,35.0258 35.8399,35.0641 35.8774,35.1142 35.9109,35.1566 35.9045,35.1864 35.8952,35.2052 35.8829,35.2227 35.8725,35.383 35.8107,35.4383 35.6877,35.5418 35.736,35.5982 35.7806,35.6688 35.7971,35.6982 35.8325,35.8239 35.876,35.8868 35.876,35.8868 20,3.0,Greece 25.4194,36.8771 25.402,36.8798 25.3086,37.0319 25.3149,37.0459 25.4699,37.1478 25.5086,37.156 25.5319,37.1393 25.5432,37.1266 25.5496,37.1185 25.5622,37.0943 25.567,37.0754 25.566,37.0652 25.5568,37.0156 25.5538,37.0027 25.5469,36.9742 25.5198,36.9132 25.4529,36.8863 25.4281,36.8781 25.4194,36.8771 25.4194,36.8771 18,3.0,Greece 25.1583,36.9326 25.1329,36.9379 25.1196,36.9426 25.0889,36.9538 25.0724,36.9703 25.066,36.9872 25.0771,37.0158 25.0998,37.0517 25.1185,37.0704 25.1305,37.0801 25.1905,37.0993 25.2354,37.097 25.2515,37.0869 25.2351,37.0112 25.2311,36.9977 25.2174,36.967 25.1583,36.9326 25.1583,36.9326 788,2.0,Algeria -2.2062,35.0467 -2.1571,35.0583 -2.1148,35.049 -2.0953,35.0403 -2.0627,35.0327 -2.0271,35.0326 -1.977,35.0341 -1.9377,35.0401 -1.8941,35.0484 -1.7782,35.0778 -1.7435,35.0948 -1.6963,35.1341 -1.5539,35.2221 -1.522,35.2399 -1.4692,35.2672 -1.4409,35.2685 -1.4145,35.2642 -1.3935,35.2656 -1.3675,35.2736 -1.3588,35.2781 -1.3502,35.2828 -1.2958,35.3205 -1.2727,35.3421 -1.2572,35.3671 -1.2474,35.3968 -1.2382,35.4274 -1.2224,35.4631 -1.1953,35.5115 -1.1671,35.5375 -1.1245,35.567 -1.0344,35.637 -1.0047,35.6415 -0.9014,35.6716 -0.7906,35.725 -0.6963,35.6797 -0.6449,35.6727 -0.617,35.6783 -0.5288,35.7296 -0.5104,35.7499 -0.4929,35.7801 -0.4772,35.8138 -0.3723,35.8624 -0.3396,35.8586 -0.3001,35.824 -0.2959,35.7941 -0.2438,35.7707 -0.1436,35.7479 -0.1204,35.7437 -0.1139,35.7438 -0.1062,35.744 -0.0519,35.7661 0.0179,35.8075 0.0418,35.8305 0.0843,35.9022 0.1176,35.9713 0.1271,36.0047 0.2038,36.0628 0.3296,36.1271 0.5373,36.229 0.6151,36.2651 0.6766,36.2872 0.7293,36.2919 0.7362,36.2915 0.7619,36.2954 0.8386,36.3252 0.866,36.3359 0.914,36.3638 0.9269,36.3884 0.9463,36.4082 1.0238,36.4331 1.181,36.4712 1.4045,36.4887 1.4949,36.4828 1.5657,36.4903 1.6118,36.4965 1.6475,36.5057 1.6894,36.5081 1.7201,36.5063 1.7404,36.5127 1.8401,36.5264 1.9034,36.5295 1.9478,36.5206 1.9699,36.5199 2.0418,36.5257 2.1479,36.5463 2.1743,36.5585 2.2183,36.5705 2.3062,36.5884 2.3362,36.5941 2.3601,36.5909 2.3909,36.5774 2.3997,36.5569 2.4313,36.5494 2.4712,36.5456 2.4968,36.5435 2.5694,36.5482 2.5944,36.5531 2.6227,36.5622 2.776,36.6362 2.8126,36.6617 2.8325,36.6811 2.8966,36.7537 2.9305,36.7613 2.96,36.7611 2.9876,36.7673 3.0266,36.7644 3.0584,36.7438 3.0853,36.709 3.1024,36.7009 3.1267,36.6978 3.168,36.7002 3.1814,36.7016 3.2239,36.7373 3.3029,36.7418 3.379,36.73 3.4748,36.7268 3.5398,36.7444 3.6205,36.7692 3.6475,36.7827 3.6881,36.8078 3.7115,36.8338 3.7429,36.848 3.8111,36.8621 3.8967,36.8735 3.9233,36.8531 3.9539,36.8474 3.9925,36.8533 4.0709,36.8444 4.101,36.8428 4.2399,36.8619 4.2894,36.863 4.3836,36.8538 4.5517,36.8432 4.5976,36.8465 4.6296,36.8451 4.6932,36.8449 4.7185,36.8451 4.7432,36.8493 4.7824,36.8524 4.9168,36.8057 5.0939,36.7303 5.0733,36.6916 5.0849,36.6695 5.1553,36.6314 5.1884,36.6196 5.2359,36.6057 5.2925,36.5994 5.3213,36.5993 5.4174,36.6121 5.4294,36.6244 5.4555,36.6226 5.5242,36.6532 5.5407,36.6726 5.5567,36.6975 5.5813,36.7245 5.6974,36.7808 5.7349,36.7914 5.7674,36.7892 5.8083,36.772 5.8593,36.7751 5.9924,36.7966 6.0167,36.8021 6.1565,36.8508 6.2251,36.8722 6.234,36.8792 6.2557,36.9075 6.2456,36.9331 6.2626,36.9788 6.3588,37.0401 6.3899,37.0449 6.4633,37.0484 6.4956,37.0368 6.5138,37.0244 6.5335,37.0037 6.5638,36.9641 6.5735,36.9423 6.9114,36.843 6.9473,36.8427 7.1323,36.8704 7.1613,36.8785 7.2158,36.9161 7.2409,36.9432 7.2487,36.9652 7.2394,36.986 7.2111,37.0004 7.1936,37.0132 7.1805,37.0373 7.2203,37.0448 7.2445,37.0351 7.2605,37.0264 7.2832,37.0356 7.454,37.0012 7.5441,36.9635 7.5635,36.9518 7.5839,36.9412 7.6048,36.9344 7.7195,36.925 7.7513,36.9245 7.7623,36.8865 7.763,36.8386 7.7747,36.8308 7.8062,36.8191 7.8663,36.8063 7.9221,36.8031 7.9444,36.8053 8.041,36.8334 8.1497,36.8804 8.2148,36.9115 8.3792,36.8777 8.5346,36.8801 8.6107,36.8999 8.6212,36.8405 8.6268,36.7897 8.4655,36.7023 8.4646,36.6791 8.439,36.6199 8.3389,36.5629 8.2305,36.5283 8.1969,36.5153 8.1756,36.4862 8.171,36.4645 8.1768,36.4546 8.2046,36.4429 8.235,36.4408 8.2801,36.4409 8.3594,36.4116 8.3657,36.3794 8.3636,36.3343 8.3609,36.3169 8.3231,36.2507 8.3087,36.1645 8.2945,36.0571 8.2801,35.9599 8.2695,35.9216 8.2561,35.8817 8.25,35.8164 8.252,35.7769 8.2603,35.7271 8.2684,35.7066 8.2881,35.6853 8.3133,35.6649 8.3271,35.6426 8.334,35.6041 8.3344,35.5839 8.3383,35.5445 8.3114,35.4182 8.3013,35.3961 8.292,35.3594 8.2915,35.3342 8.2975,35.2995 8.3088,35.2732 8.3298,35.2508 8.3902,35.1527 8.3188,35.0696 8.2755,34.9266 8.2646,34.804 8.275,34.7118 8.2597,34.7012 8.2545,34.6994 8.233,34.6798 8.2166,34.655 8.2279,34.6322 8.2422,34.6164 8.1105,34.4995 8.096,34.4942 8.06,34.4832 8.0257,34.4705 7.8587,34.3975 7.8349,34.3794 7.8143,34.3424 7.8118,34.3001 7.7738,34.2125 7.7492,34.1952 7.721,34.1881 7.6916,34.1857 7.6719,34.1819 7.6392,34.1707 7.6162,34.1565 7.5191,34.0662 7.5083,34.0448 7.5057,34.0339 7.5087,33.9663 7.499,33.9298 7.4908,33.9097 7.4826,33.8819 7.4828,33.8497 7.5053,33.7729 7.5478,33.6386 7.6657,33.4705 7.7152,33.3819 7.7146,33.3618 7.7146,33.3357 7.7142,33.2813 7.7164,33.2494 7.7221,33.2112 7.7331,33.1919 7.7526,33.1747 8.0092,33.0771 8.0352,33.0706 8.068,33.0739 8.1471,32.991 8.2634,32.84 8.2953,32.7975 8.3017,32.7564 8.3087,32.7018 8.3125,32.6739 8.3319,32.5372 8.3403,32.495 8.4044,32.4552 8.5489,32.368 8.677,32.2901 8.8532,32.1821 8.9968,32.0936 9.0454,32.0598 9.071,31.9645 9.0941,31.8771 9.1694,31.589 9.2015,31.4654 9.2865,31.1359 9.3222,30.9982 9.3714,30.806 9.4241,30.5995 9.4557,30.476 9.5081,30.2694 9.522,30.2144 9.5248,30.2006 9.4992,30.1889 9.3707,30.1288 9.2994,30.0934 9.3067,30.0672 9.3337,30.0432 9.3505,30.0299 9.3736,30.009 9.3902,29.988 9.4017,29.9704 9.4369,29.9323 9.5391,29.7943 9.5543,29.7738 9.5666,29.7558 9.6256,29.6579 9.6485,29.6162 9.6685,29.5785 9.7127,29.4883 9.7448,29.4211 9.7529,29.3979 9.8172,29.1659 9.8271,29.1274 9.8345,29.0861 9.8395,29.0574 9.8436,29.0335 9.8525,28.9605 9.8567,28.9176 9.8604,28.8172 9.8592,28.774 9.855,28.736 9.8467,28.6768 9.8343,28.5985 9.8254,28.54 9.7998,28.3759 9.7858,28.2941 9.7778,28.2392 9.7797,28.2179 9.818,28.1282 9.8297,28.1005 9.8888,27.962 9.9414,27.8377 9.943,27.8153 9.9355,27.7933 9.8778,27.6177 9.8611,27.5779 9.8066,27.5071 9.7637,27.4087 9.7221,27.2857 9.731,27.2244 9.7903,27.0677 9.8057,27.0262 9.8168,26.9753 9.8356,26.8786 9.8959,26.8448 9.918,26.8296 9.9071,26.775 9.9003,26.7477 9.8832,26.6657 9.9042,26.6435 9.8865,26.5804 9.8592,26.4844 9.7505,26.4392 9.6568,26.4004 9.4872,26.3282 9.4304,26.2411 9.3861,26.1707 9.3815,26.1474 9.3864,26.1243 9.4233,26.0755 9.4674,26.0199 9.7791,25.616 9.8435,25.5325 9.993,25.3374 10.0196,25.3013 10.0265,25.2512 10.0328,25.0594 10.0352,24.9774 10.0372,24.9086 10.0382,24.8401 10.042,24.8103 10.1222,24.7679 10.1614,24.7472 10.2054,24.7233 10.2164,24.6816 10.2274,24.6324 10.2393,24.5784 10.2903,24.5393 10.4017,24.4561 10.4668,24.4506 10.5633,24.4881 10.6546,24.5228 10.7018,24.5399 10.7435,24.5232 10.819,24.4931 10.9561,24.4451 10.999,24.4306 11.0971,24.4025 11.2611,24.3559 11.3357,24.3352 11.4253,24.3098 11.4552,24.3004 11.5446,24.2752 11.7113,23.9734 11.7425,23.9151 11.9043,23.6213 11.9715,23.496 11.7537,23.3719 11.6932,23.3382 11.087,22.9913 10.8152,22.8344 10.7397,22.7909 10.6041,22.7124 10.3277,22.5513 10.108,22.4226 9.731,22.2018 9.4585,22.0405 8.9875,21.7606 8.7054,21.5916 8.5719,21.5115 8.0398,21.1897 7.9072,21.109 7.7158,20.9921 7.6348,20.9424 7.4547,20.8334 6.922,20.3854 6.6367,20.1418 6.4663,19.9954 6.2956,19.8491 5.9746,19.5715 5.9563,19.5551 5.8055,19.4245 5.7782,19.4185 5.6502,19.3946 5.5403,19.3744 5.3023,19.3293 4.881,19.2482 4.4969,19.1743 4.3505,19.1458 4.2402,19.1254 4.076,19.0953 3.9479,19.0718 3.9046,19.0635 3.729,19.0303 3.3281,18.9551 3.18,19.0572 3.1335,19.0958 3.1133,19.1243 3.122,19.1588 3.1427,19.1807 3.1874,19.2345 3.2685,19.3551 3.2742,19.3843 3.2666,19.4039 3.2444,19.4243 3.2077,19.5349 3.2088,19.5624 3.2191,19.6015 3.2272,19.7154 3.2292,19.795 3.0252,19.8957 3.0025,19.9055 2.8989,19.9447 2.6996,19.9802 2.5846,19.9795 2.5118,19.9998 2.4188,20.0307 2.403,20.0431 2.3837,20.0864 2.3739,20.1044 2.3524,20.1385 2.3415,20.1554 2.3171,20.1807 2.2732,20.2196 2.225,20.2514 2.2012,20.2606 2.1713,20.2539 2.1268,20.2138 2.0882,20.1963 1.8981,20.2371 1.808,20.2783 1.7876,20.2904 1.713,20.3474 1.6665,20.3927 1.67,20.4421 1.6599,20.5154 1.6256,20.5482 1.576,20.577 1.5171,20.6036 1.4765,20.6183 1.3497,20.6589 1.1749,20.7105 1.162,20.7317 1.1588,20.7769 1.1694,20.8173 1.1801,20.8541 1.1849,20.8772 1.191,20.9142 1.1957,20.9791 1.1936,20.9993 1.1842,21.0341 1.1693,21.0773 0.7675,21.3277 0.4007,21.5541 0.267,21.6365 0.1498,21.7087 0.0156,21.7909 -0.0079,21.8064 -0.107,21.876 -0.4226,22.0952 -0.7729,22.336 -1.1413,22.5874 -1.4104,22.7703 -1.7481,22.9978 -2.0871,23.2242 -2.4451,23.4609 -2.8212,23.7084 -3.2296,23.9738 -3.4582,24.122 -3.7872,24.3331 -4.1175,24.5438 -4.5194,24.7972 -4.8,24.9724 -4.8069,24.9778 -4.8771,25.0217 -4.9125,25.0428 -5.2825,25.2719 -5.6341,25.4865 -5.8142,25.5961 -5.8502,25.6168 -6.278,25.8756 -6.2961,25.8855 -6.654,26.0999 -6.7622,26.1633 -6.9779,26.2916 -7.1946,26.419 -7.2487,26.4502 -7.6837,26.7043 -7.7017,26.7139 -8.1206,26.9564 -8.1938,26.9973 -8.6327,27.2484 -8.6554,27.26 -8.6557,27.4689 -8.6558,27.5688 -8.6552,27.6359 -8.6557,27.9022 -8.6559,28.6772 -8.6168,28.7007 -8.5673,28.7277 -8.5443,28.7375 -8.51,28.7474 -8.4842,28.7585 -8.3994,28.8174 -8.3858,28.8405 -8.3639,28.8709 -8.3489,28.8852 -8.1891,28.9942 -8.1615,29.0112 -8.1343,29.0242 -7.9765,29.0904 -7.7876,29.2235 -7.6801,29.3082 -7.6526,29.3367 -7.6321,29.3535 -7.6028,29.3607 -7.5797,29.3627 -7.5505,29.361 -7.5293,29.3571 -7.5082,29.3545 -7.478,29.3525 -7.4522,29.356 -7.4266,29.3632 -7.3467,29.4286 -7.3265,29.4533 -7.3073,29.4846 -7.2866,29.507 -7.1854,29.5649 -7.1167,29.6029 -7.0954,29.607 -6.8319,29.5791 -6.7763,29.5704 -6.7235,29.5562 -6.6882,29.542 -6.6266,29.533 -6.5746,29.5354 -6.5454,29.5539 -6.5192,29.5797 -6.5028,29.6007 -6.4888,29.6363 -6.473,29.7063 -6.3919,29.7713 -6.216,29.7655 -6.1868,29.7749 -6.1539,29.8079 -6.131,29.8148 -6.1028,29.8155 -6.0768,29.8144 -6.0558,29.8103 -6.0312,29.7997 -5.9849,29.7973 -5.9332,29.8072 -5.8905,29.8234 -5.7829,29.8429 -5.7258,29.8515 -5.6869,29.8559 -5.62,29.8608 -5.5621,29.862 -5.5234,29.8725 -5.3836,29.9428 -5.3403,29.9669 -5.3065,29.9922 -5.2686,30.0219 -5.2159,30.0737 -5.1639,30.1268 -5.1453,30.1468 -5.1322,30.1585 -5.0741,30.2286 -5.0414,30.2827 -5.0225,30.3252 -5.004,30.3601 -4.9878,30.3897 -4.9631,30.4293 -4.9317,30.4617 -4.9087,30.4759 -4.6331,30.5665 -4.4618,30.5976 -4.4242,30.6031 -4.3936,30.6129 -4.373,30.6261 -4.3541,30.645 -4.3317,30.6594 -4.2554,30.6936 -4.2096,30.7083 -4.1594,30.738 -4.144,30.7524 -4.1274,30.7702 -4.0278,30.867 -4.0026,30.8787 -3.9823,30.884 -3.9199,30.894 -3.8749,30.8995 -3.8355,30.9034 -3.7951,30.9065 -3.7451,30.9063 -3.6997,30.9073 -3.6419,30.9264 -3.6172,30.9389 -3.5975,30.9569 -3.5881,30.9937 -3.5952,31.0561 -3.6926,31.1156 -3.7765,31.1178 -3.7962,31.113 -3.8186,31.127 -3.8203,31.1481 -3.7989,31.3043 -3.8214,31.4179 -3.8378,31.4548 -3.8297,31.6151 -3.8233,31.6475 -3.8083,31.6625 -3.7863,31.6702 -3.713,31.6807 -3.6801,31.6806 -3.6493,31.6733 -3.6255,31.6609 -3.5645,31.6471 -3.5429,31.6426 -3.5125,31.6378 -3.4766,31.6441 -3.4155,31.6722 -3.3816,31.6908 -3.283,31.7093 -3.2303,31.7224 -3.1553,31.7429 -3.0929,31.7613 -2.9953,31.7976 -2.9725,31.8121 -2.9552,31.8335 -2.946,31.8628 -2.9422,31.9043 -2.9444,31.9273 -2.9395,31.9758 -2.9306,31.997 -2.8916,32.0327 -2.8557,32.0506 -2.4605,32.1076 -2.4143,32.1134 -2.335,32.1214 -2.2995,32.1214 -2.2609,32.1187 -2.1633,32.1103 -2.132,32.1072 -2.0993,32.1001 -1.9798,32.0887 -1.9285,32.0852 -1.8989,32.0842 -1.657,32.0754 -1.4903,32.072 -1.4702,32.0736 -1.3102,32.0647 -1.2844,32.0567 -1.2573,32.0493 -1.2369,32.0502 -1.206,32.0561 -1.1787,32.0764 -1.1742,32.103 -1.2049,32.1367 -1.2397,32.1317 -1.2741,32.1203 -1.2901,32.1363 -1.2558,32.1722 -1.2561,32.2049 -1.2485,32.2874 -1.2142,32.3462 -1.1898,32.3696 -1.1495,32.3744 -1.116,32.3809 -1.0624,32.4137 -1.0388,32.4355 -1.0103,32.4692 -1.2649,32.6306 -1.3809,32.6879 -1.5401,32.9025 -1.4841,32.945 -1.4755,32.9827 -1.4761,33.014 -1.4882,33.0365 -1.5149,33.0515 -1.5465,33.0746 -1.5784,33.1087 -1.6439,33.1891 -1.6641,33.2219 -1.6651,33.3391 -1.6466,33.3749 -1.6268,33.4059 -1.5974,33.4788 -1.5983,33.5224 -1.6032,33.5523 -1.652,33.6253 -1.6927,33.6408 -1.7257,33.6668 -1.7059,33.8529 -1.6851,33.9283 -1.6522,34.0457 -1.656,34.062 -1.7167,34.2284 -1.7481,34.3111 -1.7908,34.3401 -1.7301,34.4017 -1.6901,34.4506 -1.73,34.4621 -1.8522,34.5757 -1.8172,34.6098 -1.7981,34.6253 -1.755,34.7158 -1.7955,34.7316 -1.8538,34.7624 -2.072,34.9046 -2.1774,34.9732 -2.2003,34.9985 -2.2062,35.0467 -2.2062,35.0467 12,3.0,Greece 26.9402,36.8832 26.9343,36.883 26.911,36.8868 26.9003,36.891 26.8839,36.9051 26.8523,37.0323 26.9251,37.0148 26.9506,37.0027 27.014,36.9506 27.0126,36.9047 26.9402,36.8832 26.9402,36.8832 1066,5.0,Pakistan 77.7232,35.4618 77.7173,35.4574 77.6757,35.4359 77.4657,35.3291 77.2978,35.244 77.2279,35.2085 77.1444,35.1652 76.9499,35.0645 76.9428,35.06 76.9505,35.0492 76.9645,35.0063 76.9629,34.9815 76.9355,34.9529 76.8542,34.8174 76.8487,34.7518 76.8072,34.6351 76.7705,34.6201 76.7438,34.6199 76.7227,34.6253 76.6874,34.6444 76.664,34.672 76.6358,34.7005 76.6029,34.7103 76.5578,34.7063 76.4074,34.7217 76.377,34.7306 76.3508,34.7285 76.3291,34.7197 76.2,34.664 76.1833,34.6488 76.1439,34.5991 76.1304,34.5728 76.0664,34.5482 76.0363,34.5541 76.0151,34.5659 75.9877,34.579 75.9686,34.5856 75.94,34.5913 75.9167,34.5916 75.8807,34.5853 75.8337,34.5677 75.7904,34.5412 75.7625,34.5166 75.7293,34.4802 75.7005,34.4681 75.5632,34.4624 75.5392,34.4642 75.2915,34.5172 75.2513,34.5318 75.1455,34.5874 75.0893,34.5844 75.0381,34.5865 75.0131,34.5891 74.9668,34.5965 74.596,34.6548 74.5754,34.6595 74.5407,34.668 74.4618,34.6915 74.4269,34.7034 74.384,34.7191 74.3482,34.7307 74.2844,34.7439 74.261,34.7449 74.2336,34.7417 74.2023,34.7338 74.1515,34.7161 74.1128,34.6968 74.0592,34.6616 74.0347,34.6556 73.9704,34.6504 73.8943,34.637 73.8665,34.6252 73.8408,34.5942 73.8079,34.4999 73.7795,34.4734 73.7041,34.3591 73.7089,34.3191 73.7292,34.2963 73.7555,34.2789 73.787,34.2721 73.8104,34.2725 73.8425,34.274 73.8805,34.2597 73.9258,34.1638 73.9104,34.1329 73.8922,34.1231 73.8653,34.1133 73.8373,34.0985 73.8198,34.0815 73.8119,34.0524 73.8204,34.0257 73.8378,34.0032 73.8553,33.9864 73.8895,33.9736 73.9258,33.9763 73.9556,33.9852 73.9898,33.9894 74.1481,33.9813 74.1806,33.9682 74.1981,33.9357 74.1806,33.8839 74.1612,33.8634 74.1397,33.8462 74.1128,33.83 74.0822,33.8146 74.047,33.8036 74.0226,33.8016 74.0002,33.8018 73.9708,33.8002 73.9502,33.7905 73.9349,33.7751 73.9087,33.7351 73.8952,33.7076 73.8872,33.6648 73.891,33.6422 73.9166,33.604 73.953,33.5824 73.9897,33.5665 74.0215,33.5502 74.0518,33.5287 74.0696,33.5128 74.0807,33.4945 74.0859,33.47 74.0816,33.4477 74.0415,33.3325 74.0255,33.2988 73.9907,33.2653 73.9569,33.2519 73.9271,33.2357 73.9153,33.1982 73.9167,33.17 73.9235,33.1471 73.9402,33.1296 74.0847,33.0062 74.1058,32.9945 74.136,32.9871 74.1598,32.9858 74.1834,32.9844 74.2115,32.9776 74.2352,32.9654 74.2467,32.948 74.267,32.8356 74.2623,32.8147 74.2333,32.7789 74.2439,32.758 74.2667,32.7384 74.4347,32.7137 74.5108,32.7248 74.5448,32.7405 74.5722,32.668 74.5572,32.5484 74.5887,32.4676 74.6136,32.4445 74.6412,32.4302 74.8009,32.4227 74.9277,32.4421 74.9603,32.4387 75.1341,32.3622 75.2167,32.3151 75.2214,32.3084 75.2289,32.2645 75.2529,32.2398 75.2771,32.2278 75.2934,32.2056 75.2832,32.1781 75.2091,32.0981 75.1589,32.0569 75.0965,32.0382 74.9434,32.0055 74.8988,32.0005 74.8749,32.0177 74.8384,32.0262 74.8,32.0116 74.754,31.9629 74.6472,31.9064 74.5747,31.8824 74.5022,31.8339 74.3919,31.6863 74.3962,31.6657 74.4224,31.6426 74.4446,31.6146 74.4831,31.5428 74.536,31.4269 74.5298,31.3842 74.5058,31.3809 74.4856,31.3623 74.4657,31.3435 74.4517,31.3195 74.426,31.1404 74.4421,31.0841 74.4606,31.0415 74.4926,31.0446 74.5086,31.0713 74.5268,31.0892 74.5873,31.0771 74.6095,31.0585 74.6008,31.0244 74.5612,31.0075 74.4583,30.9606 74.2837,30.8582 74.211,30.8146 74.1463,30.7297 74.0848,30.6575 74.0114,30.6106 73.9529,30.5649 73.9002,30.4709 73.7748,30.3535 73.7642,30.3277 73.8111,30.3064 73.8404,30.2777 73.8538,30.2523 73.866,30.2105 73.8718,30.1746 73.8377,30.1024 73.7033,30.037 73.634,30.0199 73.5792,30.0071 73.486,29.984 73.3243,29.9189 73.3027,29.9094 73.2356,29.7088 73.1791,29.5399 73.1705,29.5201 72.992,29.2133 72.9555,29.1755 72.8947,29.1093 72.856,29.0077 72.7403,28.9614 72.6351,28.9213 72.5445,28.8725 72.5028,28.8497 72.4613,28.8271 72.2961,28.753 72.1969,28.6409 72.1599,28.5201 72.1207,28.392 72.1135,28.3709 72.0445,28.2938 71.9924,28.2552 71.8992,28.1842 71.8265,28.0877 71.8115,27.9796 71.8042,27.9309 71.6011,27.8596 71.5485,27.8496 71.5224,27.8452 71.4768,27.8409 71.4321,27.8385 71.3861,27.839 71.3457,27.8393 71.3073,27.8376 71.262,27.8332 71.1612,27.8194 71.1339,27.8149 71.112,27.8081 71.0641,27.791 71.0189,27.7724 70.9942,27.7614 70.965,27.7465 70.9039,27.7186 70.8663,27.7022 70.8385,27.692 70.8032,27.6811 70.7661,27.6758 70.7382,27.6756 70.7148,27.6773 70.6839,27.6833 70.6515,27.6971 70.6362,27.715 70.581,27.8107 70.5712,27.8391 70.578,27.8675 70.5746,27.8907 70.5591,27.9119 70.4966,27.9718 70.4636,27.991 70.4287,28.0063 70.3899,28.0142 70.2757,27.9876 70.1313,27.8753 70.1132,27.8543 70.0336,27.7914 70.0166,27.7579 69.9911,27.6971 69.9841,27.6771 69.9729,27.6428 69.9639,27.6103 69.951,27.5776 69.941,27.5598 69.7777,27.378 69.6663,27.2786 69.6389,27.267 69.6063,27.2516 69.494,27.1478 69.4227,26.9693 69.3968,26.7878 69.4021,26.7622 69.4094,26.7431 69.4223,26.719 69.4532,26.7045 69.4826,26.6949 69.5026,26.6887 69.545,26.6723 69.606,26.6489 69.6333,26.6355 69.6595,26.6172 69.6849,26.5839 69.7063,26.5674 69.7436,26.5566 69.8108,26.5588 69.8566,26.5619 69.9491,26.5669 69.9817,26.5663 70.0029,26.5635 70.0231,26.5588 70.0507,26.5456 70.0781,26.5265 70.0973,26.4944 70.0972,26.3621 70.0956,26.3385 70.0846,26.2183 70.0789,26.1951 70.0644,26.1559 70.0497,26.1308 70.0296,26.1048 70.0131,26.0778 70.0053,26.0573 69.999,25.9542 70.0334,25.8819 70.1954,25.6769 70.2281,25.6639 70.2619,25.6542 70.2893,25.6472 70.4212,25.6531 70.4473,25.6567 70.4878,25.6764 70.5222,25.6858 70.5458,25.6842 70.5697,25.6746 70.5855,25.6516 70.5888,25.6162 70.587,25.5866 70.5829,25.5417 70.5819,25.5181 70.5823,25.413 70.5878,25.3748 70.6606,25.2497 70.7075,25.2046 70.7312,25.1864 70.7524,25.1699 70.7735,25.1503 70.7926,25.1213 70.7977,25.0937 70.8056,25.0524 70.8114,25.0272 70.8164,25.0072 70.8454,24.9262 70.8529,24.9077 70.8771,24.864 70.889,24.8478 70.9047,24.828 70.9816,24.6774 70.988,24.6531 70.9117,24.6172 70.8899,24.5766 70.891,24.5304 70.9142,24.4377 70.9484,24.4299 71.0065,24.4133 71.0158,24.3922 70.9318,24.3349 70.9103,24.3354 70.887,24.3453 70.8602,24.3447 70.8392,24.3343 70.7761,24.2772 70.7926,24.2461 70.7097,24.2149 70.6735,24.2086 70.5566,24.2169 70.4957,24.2539 70.4907,24.2995 70.5012,24.362 70.5105,24.381 70.4978,24.3998 70.4714,24.4084 70.3262,24.3748 70.2414,24.3425 70.1747,24.309 70.0942,24.2869 70.0609,24.2854 70.0291,24.2761 69.999,24.2055 69.9763,24.1667 69.9327,24.1436 69.9122,24.1427 69.6363,24.1443 69.6062,24.1666 69.5554,24.215 69.5113,24.2543 69.4563,24.257 69.2933,24.2578 69.1658,24.2527 68.9908,24.2677 68.9297,24.2356 68.8911,24.2366 68.8727,24.2677 68.8613,24.2848 68.8435,24.2972 68.733,24.308 68.7025,24.3066 68.6622,24.2907 68.6585,24.2681 68.6601,24.0158 68.6608,23.9732 68.6615,23.9431 68.6079,23.9434 68.5463,23.9434 68.2969,23.9394 68.1993,23.9125 68.1326,23.8458 68.1234,23.8242 68.1126,23.7403 68.0818,23.7284 68.0894,23.7789 68.1003,23.8037 68.0722,23.8652 68.0569,23.7222 68.066,23.6618 68.0052,23.6725 67.9677,23.6967 67.9725,23.7226 67.9869,23.7658 67.9684,23.8835 67.9308,23.9084 67.9481,23.8722 67.9639,23.8006 67.9348,23.7398 67.8627,23.7811 67.8383,23.8068 67.8234,23.833 67.7704,23.8751 67.7573,23.8495 67.7594,23.8102 67.755,23.7867 67.6243,23.7633 67.592,23.7664 67.548,23.7759 67.53,23.8195 67.4794,23.8435 67.435,23.8498 67.4179,23.8653 67.4536,23.9096 67.4165,23.9472 67.4021,24.0186 67.3767,24.0387 67.3413,24.033 67.2871,24.0378 67.2642,24.0512 67.2183,24.1491 67.2063,24.1902 67.1975,24.2538 67.2033,24.2914 67.1895,24.3986 67.1645,24.4277 67.1302,24.4828 67.0666,24.5857 67.0642,24.6225 67.117,24.6877 67.1539,24.6962 67.1701,24.7109 67.1509,24.7454 67.0487,24.7688 66.8929,24.7944 66.7718,24.827 66.6535,24.8175 66.6281,24.8062 66.5897,24.7974 66.5676,24.8007 66.5837,24.8426 66.6209,24.864 66.6007,24.8702 66.5909,24.8935 66.6174,25.0239 66.6455,25.1125 66.6547,25.1385 66.648,25.1692 66.6358,25.1944 66.6173,25.215 66.5625,25.2586 66.5018,25.2988 66.4809,25.3481 66.4655,25.4229 66.4551,25.4809 66.3534,25.5649 66.2748,25.585 66.1641,25.5685 66.1427,25.5649 66.1084,25.5512 66.0817,25.5396 66.06,25.4789 66.116,25.4835 66.1368,25.4932 66.1818,25.5141 66.2475,25.5256 66.4005,25.4564 66.4156,25.3755 66.2767,25.3792 66.2555,25.3936 66.1934,25.4137 66.146,25.4143 66.055,25.4026 65.8442,25.3837 65.6992,25.3511 65.579,25.315 65.5051,25.3249 65.4593,25.3376 65.3832,25.3542 65.254,25.358 65.162,25.3463 65.1222,25.3195 65.1092,25.2891 65.0871,25.267 65.0534,25.2598 65.0318,25.2664 64.9709,25.2838 64.8545,25.2965 64.7051,25.2944 64.6804,25.2922 64.6386,25.2814 64.602,25.2563 64.5848,25.226 64.5793,25.2027 64.5862,25.1805 64.621,25.16 64.5665,25.1346 64.5381,25.1418 64.5489,25.1863 64.5396,25.2101 64.5191,25.224 64.4563,25.2429 64.4239,25.2361 64.3062,25.2383 64.0123,25.3003 63.9988,25.3874 64.0227,25.4028 64.0579,25.3944 64.0719,25.4177 64.0359,25.4248 63.9661,25.4153 63.9401,25.4083 63.8993,25.3901 63.9325,25.3619 63.9529,25.3849 63.9729,25.3772 63.9942,25.3357 63.9873,25.3109 63.9198,25.3063 63.8478,25.306 63.8138,25.3142 63.7615,25.3346 63.7297,25.3438 63.6642,25.3569 63.635,25.3567 63.5756,25.3505 63.5362,25.3419 63.4915,25.3316 63.4629,25.3182 63.4375,25.3 63.3902,25.2538 63.4005,25.2205 63.3485,25.187 63.2227,25.1908 63.2003,25.1966 63.1805,25.2045 63.1513,25.2124 63.104,25.2237 63.0828,25.2275 63.0331,25.2248 63.0058,25.204 62.9339,25.1874 62.907,25.1886 62.8739,25.1937 62.8055,25.2065 62.7569,25.2167 62.7221,25.224 62.6649,25.2314 62.5209,25.2347 62.4773,25.2313 62.4475,25.2275 62.3998,25.2185 62.2954,25.1546 62.2385,25.1435 62.2207,25.1665 62.1882,25.1856 62.1653,25.1914 62.1379,25.1928 62.0887,25.1884 62.0549,25.1829 62.0269,25.1762 62.0019,25.1577 61.9926,25.1364 61.9356,25.0888 61.8706,25.0915 61.8327,25.0847 61.8024,25.0727 61.7852,25.0588 61.7664,25.0096 61.6824,25.0043 61.6633,25.0116 61.6458,25.0274 61.6505,25.0594 61.6739,25.0776 61.7046,25.146 61.6098,25.1713 61.556,25.1747 61.5329,25.1696 61.5654,25.2703 61.5709,25.3198 61.5734,25.3619 61.5811,25.4781 61.5872,25.562 61.6088,25.7687 61.6394,25.7721 61.6832,25.7792 61.7012,25.8149 61.7033,25.8413 61.7154,25.9295 61.7379,26.0793 61.7537,26.1504 61.7653,26.1823 61.7758,26.2011 61.7919,26.2148 61.9814,26.2822 62.0018,26.2847 62.0245,26.285 62.0596,26.35 62.1031,26.3416 62.1495,26.3309 62.1953,26.3272 62.209,26.3494 62.1928,26.3911 62.2357,26.4793 62.3579,26.5369 62.4285,26.5447 62.4664,26.5474 62.5205,26.5508 62.6236,26.5725 62.6652,26.5891 62.6898,26.6189 62.7485,26.6213 62.8928,26.6181 62.9351,26.6139 62.9789,26.6058 63.0825,26.6009 63.1041,26.6093 63.1351,26.8241 63.1772,26.9103 63.1719,27.0212 63.1714,27.0505 63.1954,27.0904 63.2476,27.0977 63.2491,27.1187 63.2036,27.1919 63.1206,27.2374 62.9583,27.211 62.9177,27.2 62.8552,27.1843 62.7341,27.2047 62.6998,27.2364 62.7197,27.3538 62.7483,27.4166 62.759,27.4438 62.7426,27.7087 62.7409,27.7294 62.7346,27.7559 62.7218,27.804 62.6915,27.9142 62.6843,27.9417 62.6782,27.9642 62.6884,28.0446 62.7025,28.1407 62.7081,28.1809 62.7014,28.2322 62.6063,28.2188 62.5523,28.2089 62.5118,28.2019 62.45,28.2636 62.4087,28.3241 62.3192,28.3876 62.2363,28.4072 62.1284,28.4276 61.866,28.5 61.845,28.5093 61.8255,28.5233 61.7421,28.5943 61.5719,28.753 61.5575,28.7743 61.5034,28.8773 61.4683,28.9522 61.4323,29.0385 61.3485,29.1187 61.2809,29.2333 61.2743,29.2587 61.235,29.3629 61.2031,29.4014 60.9626,29.6504 60.7874,29.8305 60.9075,29.7955 60.9841,29.7742 61.7094,29.5702 61.9321,29.5074 62.0234,29.4819 62.1678,29.4409 62.259,29.4145 62.2818,29.4078 62.3275,29.3942 62.3808,29.3792 62.4038,29.3734 62.4779,29.3799 63.1218,29.4381 63.1485,29.4408 63.4724,29.4689 63.505,29.471 63.6207,29.4515 63.9343,29.3975 63.9765,29.3818 64.0799,29.4244 64.1041,29.4491 64.1282,29.4655 64.1855,29.4889 64.2963,29.5205 64.4047,29.5411 64.4659,29.5478 64.4913,29.5499 64.5769,29.5546 64.6119,29.5534 64.6562,29.5497 64.6859,29.5458 64.7895,29.5362 64.95,29.508 65.1706,29.5653 65.5123,29.6535 65.649,29.6884 65.7773,29.7207 65.9825,29.7721 66.0424,29.7871 66.1711,29.8186 66.2168,29.8599 66.2761,29.9263 66.2107,29.9864 66.1753,30.0072 66.1548,30.0316 66.1865,30.1162 66.2046,30.1526 66.2351,30.1944 66.2658,30.4084 66.2534,30.4603 66.2304,30.4763 66.1971,30.536 66.3141,30.909 66.3346,30.9174 66.3636,30.9251 66.3894,30.9269 66.4512,30.936 66.4746,30.9413 66.4927,30.9521 66.6001,31.0568 66.6072,31.0919 66.6349,31.1724 66.7691,31.2456 66.794,31.2575 66.8786,31.2851 66.9212,31.2872 66.9492,31.2835 66.9627,31.2677 66.9553,31.2296 66.9757,31.2064 67.147,31.1833 67.1691,31.1874 67.1882,31.1791 67.2971,31.1803 67.5254,31.2364 67.7026,31.3085 67.7087,31.3495 67.6784,31.3759 67.6575,31.3796 67.6288,31.377 67.5981,31.3678 67.5733,31.3663 67.5263,31.3951 67.4937,31.4941 67.5672,31.4959 67.5936,31.4883 67.6203,31.4891 67.6496,31.4963 67.7351,31.545 67.7517,31.5723 67.7732,31.5929 67.7982,31.6041 67.84,31.6065 67.8804,31.5985 67.9557,31.6515 68.0369,31.7323 68.0575,31.7705 68.0751,31.794 68.0995,31.7936 68.1304,31.7809 68.1828,31.7382 68.4454,31.6913 68.465,31.7012 68.4756,31.7252 68.4268,31.7333 68.3576,31.7445 68.3963,31.7769 68.4303,31.7888 68.4673,31.7923 68.4872,31.7879 68.5616,31.7473 68.6305,31.6864 68.6407,31.6663 68.7142,31.5794 68.7383,31.5704 68.9296,31.6157 69.016,31.6764 69.0395,31.6987 69.0676,31.7336 69.113,31.7957 69.1247,31.8231 69.2013,31.8889 69.2382,31.9049 69.2016,32.0127 69.1831,32.1035 69.1813,32.1346 69.1884,32.1618 69.1932,32.1819 69.2007,32.2544 69.2007,32.286 69.1878,32.3195 69.1715,32.3476 69.161,32.3751 69.1581,32.4048 69.1667,32.434 69.1805,32.464 69.1926,32.4838 69.217,32.504 69.2373,32.5121 69.2672,32.5221 69.2878,32.532 69.3111,32.5555 69.3311,32.5807 69.3659,32.6378 69.3489,32.6786 69.3271,32.7043 69.3054,32.7302 69.3178,32.754 69.3757,32.8001 69.4224,32.8356 69.4171,32.8785 69.4106,32.9085 69.4016,32.96 69.417,32.9994 69.4697,33.0428 69.4905,33.0501 69.5358,33.0475 69.7835,33.0525 69.8129,33.0582 69.9381,33.0989 70.0595,33.1683 70.1368,33.2139 70.2335,33.2956 70.2225,33.3465 70.1969,33.3831 70.1474,33.4284 70.1114,33.4397 70.0785,33.4823 70.0822,33.5085 70.0943,33.5365 70.1083,33.5696 70.1055,33.6033 70.0424,33.6961 70.0086,33.689 69.8963,33.7159 69.8261,33.8143 69.7766,33.8977 69.8102,33.9913 69.8394,34.0031 69.8461,34.0038 69.8611,34.0069 69.9092,34.014 69.9684,33.9972 70.03,33.9783 70.1088,33.9547 70.247,33.9258 70.3903,33.9056 70.467,33.9065 70.7022,33.9151 70.7905,33.927 70.989,34.0182 71.0426,34.1257 71.0628,34.3173 71.0114,34.3428 70.9852,34.3521 70.9066,34.4269 70.8862,34.4694 70.8903,34.4995 70.8998,34.5169 70.9954,34.5232 71.0116,34.5782 71.0009,34.6052 70.9997,34.63 71.0782,34.6852 71.1995,34.7911 71.3099,34.8762 71.3833,34.9067 71.4011,34.9188 71.4062,34.9272 71.4107,34.945 71.4431,35.045 71.4815,35.0815 71.5202,35.1914 71.4614,35.2501 71.4553,35.2784 71.4841,35.3192 71.5316,35.3561 71.5556,35.3885 71.5119,35.487 71.4756,35.5471 71.4352,35.6228 71.4531,35.6599 71.3498,35.8269 71.29,35.8807 71.2393,35.9153 71.1298,35.9833 71.0951,35.9992 71.0972,36.0117 71.1533,36.0911 71.3712,36.2314 71.4878,36.3058 71.4974,36.3481 71.5265,36.4118 71.5508,36.425 71.6164,36.3962 71.6514,36.3754 71.8793,36.5012 72.0518,36.6066 72.0819,36.647 72.0797,36.668 72.1322,36.6884 72.2361,36.7145 72.312,36.7211 72.3757,36.7205 72.4028,36.7337 72.441,36.7616 72.458,36.7765 72.4837,36.7841 72.5511,36.7923 72.6507,36.8013 72.6728,36.7974 72.714,36.7919 72.77,36.7929 72.7992,36.7952 72.8231,36.8021 72.8402,36.8137 72.9592,36.8273 73.29,36.8479 73.3885,36.8507 73.4438,36.8391 73.5401,36.8582 73.5467,36.8614 73.572,36.8685 73.7386,36.8547 73.8308,36.8222 73.861,36.7987 73.9386,36.7742 73.9653,36.7803 74.0258,36.8023 74.1089,36.8621 74.3193,36.9587 74.379,36.9691 74.4096,36.9575 74.4333,36.927 74.4571,36.9237 74.4741,36.9774 74.4676,36.9864 74.5777,37.0185 74.5987,37.0194 74.7195,36.9805 74.8843,36.9454 74.9158,36.9508 75.0494,36.9556 75.0832,36.9297 75.1137,36.9175 75.1406,36.9114 75.1786,36.905 75.2173,36.8988 75.2778,36.8834 75.3003,36.8702 75.3271,36.8169 75.3257,36.7922 75.3243,36.7604 75.327,36.7229 75.3367,36.7022 75.3533,36.6906 75.3743,36.6845 75.4254,36.6918 75.4531,36.7269 75.5403,36.7225 75.5657,36.7174 75.6134,36.7056 75.6553,36.6885 75.6906,36.6686 75.7396,36.6375 75.7606,36.6225 75.805,36.5819 75.9028,36.4238 75.9116,36.4013 75.9428,36.1971 75.8922,36.119 75.8428,36.0889 75.8201,36.0697 75.83,36.0304 75.8545,35.9884 75.8692,35.9745 75.8876,35.9658 75.909,35.9612 75.9303,35.9621 75.9599,35.9646 75.9866,35.9614 76.0101,35.9517 76.0284,35.9321 76.0559,35.8589 76.0548,35.828 76.0576,35.7907 76.0817,35.7744 76.1306,35.7734 76.1979,35.7826 76.2858,35.8013 76.3412,35.8191 76.4538,35.8665 76.4714,35.7813 76.4726,35.7488 76.4947,35.7174 76.525,35.7094 76.5937,35.6831 76.6195,35.6702 76.6373,35.6562 76.657,35.6298 76.6732,35.618 76.7955,35.5728 77.0094,35.5164 77.1514,35.4938 77.2928,35.4419 77.3212,35.433 77.3526,35.433 77.3835,35.4411 77.4067,35.4444 77.4352,35.4442 77.4609,35.4412 77.5183,35.4335 77.584,35.4225 77.6127,35.424 77.6521,35.4479 77.6827,35.464 77.7232,35.4618 77.7232,35.4618 18,2.0,Portugal -24.9861,36.8878 -25.0138,36.8934 -25.0673,36.9037 -25.1232,36.9014 -25.1345,36.9017 -25.1446,36.9075 -25.1674,36.9415 -25.165,36.9529 -25.1483,36.9677 -25.0819,36.9792 -25.0609,36.9817 -25.0495,36.9816 -25.0218,36.9744 -25.0004,36.9556 -24.9847,36.9308 -24.9797,36.898 -24.9861,36.8878 -24.9861,36.8878 23,3.0,Greece 26.9363,36.6313 26.9146,36.636 26.8852,36.6705 26.8849,36.7169 27.0272,36.7969 27.1171,36.84 27.1371,36.8466 27.2489,36.8594 27.308,36.8419 27.3188,36.8226 27.3085,36.808 27.2939,36.8015 27.2667,36.7963 27.244,36.7928 27.2076,36.7858 27.1829,36.7784 26.997,36.7235 26.9572,36.7102 26.9392,36.7004 26.9313,36.6626 26.9307,36.6406 26.9363,36.6313 26.9363,36.6313 11,3.0,Greece 25.3249,36.604 25.3082,36.6118 25.2257,36.6877 25.2303,36.7235 25.2445,36.741 25.2725,36.7477 25.2932,36.7347 25.3745,36.6755 25.3551,36.6134 25.3249,36.604 25.3249,36.604 14,3.0,Greece 24.2991,36.6091 24.294,36.6111 24.2911,36.6226 24.3105,36.6957 24.3193,36.7057 24.4812,36.7265 24.4992,36.725 24.5169,36.7167 24.5173,36.6552 24.5075,36.6363 24.4451,36.6217 24.3816,36.6194 24.2991,36.6091 24.2991,36.6091 14,3.0,Greece 26.432,36.5355 26.3715,36.5245 26.3211,36.471 26.3081,36.4657 26.2809,36.4639 26.2665,36.4686 26.2534,36.4788 26.2365,36.5152 26.2293,36.5485 26.3485,36.5993 26.3735,36.592 26.4248,36.5583 26.432,36.5355 26.432,36.5355 12,9.0,South Korea 126.2563,36.3587 126.2141,36.3626 126.2007,36.3698 126.1723,36.3956 126.1615,36.5264 126.1693,36.5402 126.1793,36.5489 126.1912,36.5521 126.2125,36.5474 126.2656,36.3629 126.2563,36.3587 126.2563,36.3587 36,3.0,Greece 28.1707,36.4017 28.1779,36.4135 28.1973,36.4006 28.2013,36.3903 28.1704,36.3028 28.1501,36.2595 28.1049,36.1701 28.0862,36.1453 28.0273,36.0714 27.973,36.0287 27.9205,36.0045 27.9094,35.9944 27.8953,35.9784 27.8699,35.9476 27.8628,35.9354 27.8568,35.9206 27.8295,35.8921 27.8051,35.8725 27.7635,35.8533 27.7479,35.8503 27.7326,35.8533 27.6951,35.873 27.6862,35.8894 27.6842,35.9049 27.6947,35.9386 27.7047,36.0641 27.6836,36.1255 27.7529,36.211 27.7684,36.229 27.8399,36.279 27.8595,36.2914 27.873,36.2991 28.0317,36.3642 28.0708,36.3777 28.1707,36.4017 28.1707,36.4017 20,3.0,Greece 22.9271,36.3366 22.9402,36.3134 22.9589,36.2831 22.9776,36.2659 22.9903,36.2633 23.0557,36.219 23.0742,36.2055 23.0784,36.1962 23.0271,36.1047 23.0141,36.0956 22.9672,36.1013 22.9584,36.1058 22.9003,36.1376 22.8929,36.1452 22.8819,36.1606 22.8765,36.1851 22.8657,36.2816 22.898,36.3377 22.9271,36.3366 22.9271,36.3366 19,9.0,Japan 133.1247,36.2778 133.1363,36.2782 133.1472,36.2751 133.1889,36.243 133.2115,36.2109 133.2032,36.1576 133.1616,36.1184 133.083,36.1115 133.0728,36.115 133.015,36.1626 133.009,36.198 133.0157,36.2293 133.0239,36.2374 133.0542,36.2662 133.0738,36.2785 133.1029,36.2842 133.1183,36.2844 133.1247,36.2778 133.1247,36.2778 463,0.0,Morocco -5.3885,35.8763 -5.3851,35.8604 -5.3701,35.8312 -5.3474,35.8073 -5.3385,35.8014 -5.3378,35.79 -5.3318,35.7503 -5.3225,35.6975 -5.3132,35.6603 -5.2418,35.5345 -5.2038,35.5106 -4.9598,35.3274 -4.9102,35.2788 -4.7854,35.2115 -4.7235,35.1815 -4.6896,35.1695 -4.5956,35.1528 -4.513,35.1408 -4.4143,35.112 -4.352,35.1066 -4.3116,35.1175 -4.2594,35.1474 -4.21,35.1503 -4.1139,35.1633 -4.0875,35.175 -4.0644,35.1908 -4.0156,35.206 -3.9098,35.2166 -3.897,35.1841 -3.859,35.1638 -3.8157,35.1602 -3.7966,35.1637 -3.7504,35.2021 -3.6496,35.2302 -3.58,35.1902 -3.4061,35.1558 -3.3819,35.1537 -3.3318,35.152 -3.302,35.156 -3.1642,35.2077 -3.0666,35.2481 -3.0195,35.3064 -2.9822,35.3786 -2.9566,35.3224 -2.9428,35.2898 -2.9614,35.277 -2.9612,35.2419 -2.9351,35.225 -2.9108,35.2343 -2.8976,35.2197 -2.8989,35.181 -2.9082,35.1588 -2.9017,35.1302 -2.8732,35.1026 -2.831,35.0859 -2.78,35.0829 -2.7904,35.1079 -2.8195,35.1266 -2.8536,35.1599 -2.8798,35.1951 -2.8041,35.1449 -2.7726,35.1191 -2.7451,35.1006 -2.6728,35.0716 -2.6238,35.0594 -2.5462,35.0547 -2.5227,35.057 -2.4779,35.0688 -2.3399,35.0844 -2.2549,35.0575 -2.214,35.0466 -2.2062,35.0467 -2.2003,34.9985 -2.1774,34.9732 -2.072,34.9046 -1.8538,34.7624 -1.7955,34.7316 -1.755,34.7158 -1.7981,34.6253 -1.8172,34.6098 -1.8522,34.5757 -1.73,34.4621 -1.6901,34.4506 -1.7301,34.4017 -1.7908,34.3401 -1.7481,34.3111 -1.7167,34.2284 -1.656,34.062 -1.6522,34.0457 -1.6851,33.9283 -1.7059,33.8529 -1.7257,33.6668 -1.6927,33.6408 -1.652,33.6253 -1.6032,33.5523 -1.5983,33.5224 -1.5974,33.4788 -1.6268,33.4059 -1.6466,33.3749 -1.6651,33.3391 -1.6641,33.2219 -1.6439,33.1891 -1.5784,33.1087 -1.5465,33.0746 -1.5149,33.0515 -1.4882,33.0365 -1.4761,33.014 -1.4755,32.9827 -1.4841,32.945 -1.5401,32.9025 -1.3809,32.6879 -1.2649,32.6306 -1.0103,32.4692 -1.0388,32.4355 -1.0624,32.4137 -1.116,32.3809 -1.1495,32.3744 -1.1898,32.3696 -1.2142,32.3462 -1.2485,32.2874 -1.2561,32.2049 -1.2558,32.1722 -1.2901,32.1363 -1.2741,32.1203 -1.2397,32.1317 -1.2049,32.1367 -1.1742,32.103 -1.1787,32.0764 -1.206,32.0561 -1.2369,32.0502 -1.2573,32.0493 -1.2844,32.0567 -1.3102,32.0647 -1.4702,32.0736 -1.4903,32.072 -1.657,32.0754 -1.8989,32.0842 -1.9285,32.0852 -1.9798,32.0887 -2.0993,32.1001 -2.132,32.1072 -2.1633,32.1103 -2.2609,32.1187 -2.2995,32.1214 -2.335,32.1214 -2.4143,32.1134 -2.4605,32.1076 -2.8557,32.0506 -2.8916,32.0327 -2.9306,31.997 -2.9395,31.9758 -2.9444,31.9273 -2.9422,31.9043 -2.946,31.8628 -2.9552,31.8335 -2.9725,31.8121 -2.9953,31.7976 -3.0929,31.7613 -3.1553,31.7429 -3.2303,31.7224 -3.283,31.7093 -3.3816,31.6908 -3.4155,31.6722 -3.4766,31.6441 -3.5125,31.6378 -3.5429,31.6426 -3.5645,31.6471 -3.6255,31.6609 -3.6493,31.6733 -3.6801,31.6806 -3.713,31.6807 -3.7863,31.6702 -3.8083,31.6625 -3.8233,31.6475 -3.8297,31.6151 -3.8378,31.4548 -3.8214,31.4179 -3.7989,31.3043 -3.8203,31.1481 -3.8186,31.127 -3.7962,31.113 -3.7765,31.1178 -3.6926,31.1156 -3.5952,31.0561 -3.5881,30.9937 -3.5975,30.9569 -3.6172,30.9389 -3.6419,30.9264 -3.6997,30.9073 -3.7451,30.9063 -3.7951,30.9065 -3.8355,30.9034 -3.8749,30.8995 -3.9199,30.894 -3.9823,30.884 -4.0026,30.8787 -4.0278,30.867 -4.1274,30.7702 -4.144,30.7524 -4.1594,30.738 -4.2096,30.7083 -4.2554,30.6936 -4.3317,30.6594 -4.3541,30.645 -4.373,30.6261 -4.3936,30.6129 -4.4242,30.6031 -4.4618,30.5976 -4.6331,30.5665 -4.9087,30.4759 -4.9317,30.4617 -4.9631,30.4293 -4.9878,30.3897 -5.004,30.3601 -5.0225,30.3252 -5.0414,30.2827 -5.0741,30.2286 -5.1322,30.1585 -5.1453,30.1468 -5.1639,30.1268 -5.2159,30.0737 -5.2686,30.0219 -5.3065,29.9922 -5.3403,29.9669 -5.3836,29.9428 -5.5234,29.8725 -5.5621,29.862 -5.62,29.8608 -5.6869,29.8559 -5.7258,29.8515 -5.7829,29.8429 -5.8905,29.8234 -5.9332,29.8072 -5.9849,29.7973 -6.0312,29.7997 -6.0558,29.8103 -6.0768,29.8144 -6.1028,29.8155 -6.131,29.8148 -6.1539,29.8079 -6.1868,29.7749 -6.216,29.7655 -6.3919,29.7713 -6.473,29.7063 -6.4888,29.6363 -6.5028,29.6007 -6.5192,29.5797 -6.5454,29.5539 -6.5746,29.5354 -6.6266,29.533 -6.6882,29.542 -6.7235,29.5562 -6.7763,29.5704 -6.8319,29.5791 -7.0954,29.607 -7.1167,29.6029 -7.1854,29.5649 -7.2866,29.507 -7.3073,29.4846 -7.3265,29.4533 -7.3467,29.4286 -7.4266,29.3632 -7.4522,29.356 -7.478,29.3525 -7.5082,29.3545 -7.5293,29.3571 -7.5505,29.361 -7.5797,29.3627 -7.6028,29.3607 -7.6321,29.3535 -7.6526,29.3367 -7.6801,29.3082 -7.7876,29.2235 -7.9765,29.0904 -8.1343,29.0242 -8.1615,29.0112 -8.1891,28.9942 -8.3489,28.8852 -8.3639,28.8709 -8.3858,28.8405 -8.3994,28.8174 -8.4842,28.7585 -8.51,28.7474 -8.5443,28.7375 -8.5673,28.7277 -8.6168,28.7007 -8.6559,28.6772 -8.6557,27.9022 -8.6552,27.6359 -9.288,27.6352 -9.3214,27.6358 -9.6547,27.6359 -9.8203,27.6359 -9.9206,27.6358 -9.9868,27.6357 -10.0096,27.6343 -10.0539,27.6332 -10.1072,27.6339 -10.2861,27.6355 -12.8242,27.6354 -13.0504,27.6352 -13.1497,27.6355 -13.1579,27.6361 -13.1525,27.6513 -13.1343,27.6698 -13.0989,27.6822 -13.0509,27.7075 -13.0229,27.7272 -13.0054,27.7462 -12.9855,27.7886 -12.9685,27.8298 -12.9604,27.8582 -12.9456,27.8892 -12.8855,27.923 -12.8297,27.9335 -12.7477,27.9478 -12.6882,27.9545 -12.5983,27.9589 -12.3665,27.9997 -12.0474,28.0524 -11.9263,28.1166 -11.7175,28.195 -11.6263,28.2285 -11.5317,28.2591 -11.4969,28.2722 -11.4361,28.3089 -11.2885,28.4929 -11.2465,28.5249 -11.1478,28.6107 -11.0876,28.6682 -11.0684,28.7046 -11.0401,28.7244 -10.9108,28.7869 -10.7061,28.8852 -10.6255,28.9151 -10.5995,28.9298 -10.5368,28.9739 -10.5072,28.9958 -10.487,29.0129 -10.4279,29.0649 -10.4171,29.0853 -10.3808,29.1361 -10.3339,29.1966 -10.2935,29.2308 -10.2712,29.2416 -10.2414,29.2583 -10.2147,29.2851 -10.1249,29.3951 -10.0672,29.4864 -10.0613,29.51 -10.0594,29.5308 -10.0486,29.5532 -9.8641,29.7438 -9.8089,29.8 -9.7948,29.8155 -9.78,29.8345 -9.7568,29.8729 -9.724,29.9295 -9.6508,30.0645 -9.6282,30.1313 -9.5957,30.34 -9.5959,30.3686 -9.6923,30.5093 -9.7806,30.5784 -9.8181,30.5932 -9.8408,30.6927 -9.8246,30.7214 -9.8108,30.7449 -9.8002,30.7841 -9.8045,30.8479 -9.8133,30.9173 -9.8316,31.0802 -9.8298,31.1003 -9.8149,31.1745 -9.8017,31.2209 -9.7937,31.2471 -9.79,31.2912 -9.8057,31.342 -9.7963,31.4117 -9.7623,31.4678 -9.7225,31.5253 -9.6763,31.5917 -9.6723,31.6353 -9.6678,31.6707 -9.6305,31.7203 -9.613,31.7405 -9.4418,31.9077 -9.3627,31.9788 -9.3442,31.9979 -9.2655,32.1475 -9.2526,32.1917 -9.2485,32.2804 -9.2585,32.4741 -9.267,32.5078 -9.2021,32.5712 -9.1582,32.6024 -9.1233,32.6284 -9.0736,32.6693 -9.041,32.6984 -9.0182,32.7284 -8.937,32.7907 -8.8299,32.8785 -8.7403,32.9553 -8.6183,33.0772 -8.6036,33.1083 -8.5564,33.1825 -8.527,33.2134 -8.4906,33.2178 -8.4639,33.2162 -8.4404,33.2211 -8.3968,33.2406 -8.3447,33.2831 -8.3186,33.3101 -8.2952,33.3359 -8.2378,33.3578 -8.1681,33.3712 -8.1029,33.3858 -7.9396,33.4499 -7.8476,33.4899 -7.8233,33.4982 -7.6972,33.5386 -7.596,33.5689 -7.4869,33.6107 -7.379,33.6811 -7.2186,33.7587 -7.1859,33.7723 -7.0773,33.814 -7.0714,33.8157 -7.0297,33.8308 -6.9595,33.8785 -6.9243,33.9037 -6.8339,33.9806 -6.7886,34.0241 -6.7074,34.1578 -6.6461,34.2574 -6.6309,34.28 -6.5889,34.3378 -6.5738,34.3527 -6.4796,34.5024 -6.3705,34.6826 -6.3502,34.7169 -6.3257,34.7613 -6.3068,34.7962 -6.271,34.8678 -6.2342,34.9694 -6.2035,35.0537 -6.163,35.1444 -6.0965,35.2935 -6.044,35.4107 -5.9887,35.5396 -5.9583,35.6249 -5.9294,35.7193 -5.9109,35.7506 -5.8404,35.7568 -5.7369,35.7654 -5.5884,35.7818 -5.5363,35.8022 -5.5018,35.8312 -5.4808,35.8569 -5.4484,35.8741 -5.4004,35.8788 -5.3885,35.8763 -5.3885,35.8763 9,2.0,Spain -5.3885,35.8763 -5.3532,35.8761 -5.314,35.8463 -5.3385,35.8014 -5.3474,35.8073 -5.3701,35.8312 -5.3851,35.8604 -5.3885,35.8763 -5.3885,35.8763 18,3.0,Greece 27.1071,35.36 27.0865,35.3889 27.032,35.5549 27.032,35.5668 27.0853,35.6269 27.1264,35.6853 27.1234,35.7071 27.1236,35.7293 27.1247,35.7557 27.1802,35.786 27.1945,35.7853 27.1954,35.7712 27.1788,35.6815 27.1423,35.5613 27.1671,35.4384 27.1249,35.4089 27.1071,35.36 27.1071,35.36 135,3.0,Cyprus 33.2294,34.6708 33.1741,34.6608 33.11,34.6638 33.0907,34.6628 33.074,34.66 33.062,34.6564 33.0205,34.642 32.9872,34.6192 32.8171,34.6273 32.7886,34.6286 32.7227,34.6173 32.7092,34.6102 32.6998,34.6069 32.6715,34.6017 32.6562,34.6037 32.6126,34.615 32.5993,34.6185 32.45,34.6636 32.429,34.6743 32.3641,34.7109 32.2995,34.8243 32.2816,34.8705 32.2337,35.0013 32.2285,35.0233 32.228,35.0396 32.2371,35.0562 32.2535,35.0552 32.2632,35.0451 32.2709,35.0378 32.2848,35.0265 32.2996,35.0152 32.3122,35.0071 32.331,34.9999 32.356,35.0001 32.382,35.0051 32.3968,35.0111 32.4184,35.0253 32.4518,35.0578 32.4598,35.0697 32.474,35.0964 32.4801,35.1052 32.5095,35.134 32.5236,35.1297 32.5802,35.1447 32.6138,35.1504 32.6797,35.1414 32.7273,35.1246 32.7661,35.1089 32.7782,35.1045 32.7929,35.1036 32.8157,35.1112 32.8401,35.1228 32.8532,35.1302 32.8618,35.1374 32.8701,35.1492 32.8746,35.1607 32.8896,35.2243 32.8964,35.288 32.96,35.326 33.2289,35.3002 33.3114,35.2906 33.3265,35.2891 33.3423,35.2888 33.3842,35.2886 33.4295,35.2891 33.5882,35.3108 33.6093,35.3147 33.6694,35.3423 33.7096,35.359 33.7312,35.3626 33.7635,35.3605 33.81,35.3635 33.8272,35.3669 33.9258,35.3963 34.2477,35.5268 34.2697,35.5357 34.2923,35.5498 34.2979,35.5592 34.3056,35.5673 34.3158,35.5722 34.3451,35.5842 34.5084,35.6423 34.5414,35.6486 34.5251,35.6037 34.3423,35.4954 34.2363,35.4374 34.2151,35.4279 34.1811,35.4158 34.0757,35.3614 33.9141,35.2733 33.9043,35.2677 33.8965,35.26 33.8777,35.2332 33.8666,35.2135 33.8619,35.2029 33.858,35.1766 33.8564,35.1585 33.8584,35.1236 33.9301,35.0487 33.989,35.0048 34.0103,34.9816 34.0232,34.9646 34.0342,34.9496 34.0411,34.9225 34.0211,34.922 33.9908,34.9327 33.9797,34.9402 33.933,34.9425 33.9119,34.939 33.8854,34.9347 33.8696,34.9304 33.8593,34.9252 33.8555,34.9205 33.8525,34.9166 33.8399,34.906 33.8212,34.8983 33.8045,34.9036 33.7886,34.9178 33.7707,34.9268 33.7465,34.9312 33.7194,34.9337 33.6639,34.9349 33.6377,34.9278 33.6211,34.9189 33.6043,34.8999 33.5961,34.878 33.5925,34.8609 33.5891,34.8348 33.5941,34.8234 33.5598,34.7797 33.4732,34.7447 33.3258,34.6879 33.2788,34.6766 33.2294,34.6708 33.2294,34.6708 113,3.0,Greece 23.6514,35.1852 23.5638,35.1927 23.4902,35.2556 23.5387,35.4871 23.5525,35.5313 23.5632,35.5522 23.5781,35.5689 23.5793,35.5276 23.5847,35.4834 23.625,35.4581 23.6883,35.4691 23.7013,35.5064 23.698,35.529 23.6808,35.5644 23.6799,35.6125 23.7112,35.6462 23.7411,35.6213 23.7414,35.5733 23.751,35.5247 23.7602,35.5068 23.8176,35.4834 23.9405,35.475 23.9646,35.4759 24.0095,35.49 24.0395,35.5096 24.0495,35.5368 24.0931,35.5606 24.145,35.549 24.1735,35.5001 24.1541,35.4696 24.1345,35.4619 24.1035,35.4606 24.076,35.4526 24.1478,35.4128 24.241,35.3242 24.2955,35.312 24.3257,35.3128 24.4332,35.3223 24.4586,35.326 24.5646,35.3435 24.592,35.3563 24.7569,35.3694 24.9309,35.3647 25.0133,35.3398 25.0218,35.3109 25.1689,35.2949 25.248,35.2943 25.27,35.2962 25.3468,35.2943 25.3679,35.2719 25.397,35.255 25.4214,35.2525 25.4582,35.259 25.5314,35.2789 25.5848,35.2939 25.6271,35.3029 25.7325,35.2905 25.7011,35.2606 25.6956,35.2223 25.7169,35.2307 25.706,35.1924 25.6844,35.1774 25.6774,35.1334 25.6841,35.12 25.6947,35.1027 25.7233,35.087 25.7509,35.0748 25.779,35.0721 25.8336,35.113 25.8625,35.1374 25.9975,35.1857 26.0595,35.1772 26.0782,35.1658 26.1838,35.2011 26.2673,35.2434 26.2568,35.0919 26.2412,35.0483 26.2059,34.9976 26.1719,34.9827 26.1022,34.9582 26.0668,34.9645 25.954,34.994 25.5584,34.9688 25.5247,34.9549 25.4758,34.9426 25.3027,34.9459 25.1554,34.9133 24.9847,34.892 24.8957,34.8916 24.7889,34.8985 24.7225,34.9071 24.7307,34.9769 24.7258,35.0005 24.71,35.0346 24.6912,35.0513 24.6569,35.0563 24.607,35.056 24.5569,35.0575 24.5314,35.0615 24.516,35.08 24.4993,35.0997 24.3611,35.1496 24.1631,35.1608 24.1087,35.1603 24.0698,35.1583 24.0309,35.1511 24.0045,35.1533 23.9156,35.1816 23.8593,35.1944 23.791,35.2072 23.6676,35.1929 23.6514,35.1852 23.6514,35.1852 2524,5.5,India 80.9202,30.1707 80.8382,30.1473 80.7692,30.1072 80.6393,29.9859 80.5743,29.9367 80.5551,29.9297 80.5211,29.9295 80.491,29.9164 80.47,29.8766 80.4329,29.8114 80.3788,29.7649 80.3392,29.7631 80.3116,29.7526 80.2712,29.7069 80.2802,29.6483 80.2926,29.6276 80.3124,29.6069 80.3046,29.5685 80.242,29.4884 80.2093,29.4657 80.1863,29.4501 80.1342,29.3902 80.1819,29.2874 80.2024,29.2761 80.1982,29.2459 80.184,29.1728 80.1456,29.131 80.0933,29.0957 79.9662,28.917 79.954,28.8919 79.9488,28.866 79.9581,28.7977 80.0474,28.7616 80.1465,28.7155 80.2131,28.6607 80.2836,28.5932 80.3682,28.558 80.407,28.5891 80.4019,28.6231 80.4149,28.6392 80.4372,28.6533 80.4809,28.6218 80.6007,28.5468 80.8259,28.414 80.9269,28.3713 80.9895,28.3618 81.0345,28.351 81.0621,28.3438 81.0842,28.3376 81.089,28.3349 81.1177,28.2931 81.1934,28.1325 81.2695,28.1345 81.3736,28.0532 81.5024,27.9878 81.6217,27.9248 81.6754,27.8795 81.7955,27.8238 81.8314,27.8563 81.8641,27.8818 81.8939,27.891 81.9375,27.8875 81.9606,27.883 82.043,27.8331 82.1723,27.7471 82.1984,27.7283 82.3002,27.6599 82.3232,27.6465 82.3459,27.6415 82.3729,27.6417 82.4616,27.6544 82.4919,27.6595 82.5107,27.6662 82.5516,27.6769 82.5946,27.6802 82.611,27.6595 82.6261,27.6087 82.6405,27.5507 82.6371,27.5253 82.66,27.4727 82.8615,27.4305 82.922,27.4191 82.9505,27.4177 83.0238,27.4188 83.0697,27.4162 83.1448,27.3595 83.1542,27.3407 83.1664,27.3144 83.2029,27.3056 83.2354,27.3118 83.2518,27.3255 83.2695,27.3446 83.2866,27.3805 83.3112,27.4422 83.4331,27.4423 83.5003,27.4384 83.5264,27.4289 83.6405,27.378 83.6696,27.3641 83.6941,27.3523 83.7182,27.3404 83.7507,27.3217 83.7645,27.3546 83.7636,27.4095 83.8145,27.4211 83.8277,27.4165 83.9113,27.4126 83.9431,27.4223 84.0391,27.4807 84.1895,27.3579 84.2215,27.3474 84.2865,27.3368 84.3906,27.326 84.4895,27.3094 84.5291,27.2808 84.5444,27.261 84.5714,27.2017 84.5765,27.1759 84.571,27.1056 84.5517,27.064 84.5377,27.031 84.5464,27.0101 84.5986,26.991 84.6445,26.9772 84.6722,26.9813 84.6933,26.985 84.7461,26.9654 84.8588,26.9057 85.0762,26.7683 85.0921,26.7452 85.1128,26.7332 85.2012,26.7095 85.2188,26.7063 85.228,26.7072 85.3433,26.7571 85.3982,26.7838 85.4304,26.7999 85.4587,26.8152 85.5211,26.8358 85.6007,26.7863 85.6202,26.7571 85.6171,26.7037 85.6153,26.675 85.619,26.644 85.6437,26.6129 85.7505,26.5431 85.8404,26.5978 85.8555,26.6182 85.9227,26.6333 85.9534,26.6243 85.9791,26.6034 85.9945,26.589 86.028,26.5736 86.0734,26.5782 86.0944,26.5581 86.2236,26.5779 86.3646,26.5166 86.5492,26.4271 86.6223,26.3908 86.7098,26.4072 86.7805,26.4476 86.7895,26.4708 86.8368,26.5015 86.854,26.4962 86.8929,26.5048 86.9728,26.4568 87.0585,26.3705 87.158,26.3459 87.2571,26.372 87.2875,26.3886 87.3431,26.4041 87.3737,26.4044 87.4181,26.3888 87.4416,26.3763 87.5308,26.3629 87.5382,26.3704 87.5746,26.3958 87.6791,26.4295 87.7815,26.4397 87.7954,26.4168 87.8148,26.3937 87.8348,26.3732 87.9075,26.3388 87.9779,26.4036 87.9947,26.4591 87.9891,26.5007 88.0085,26.5364 88.0599,26.636 88.0665,26.6554 88.0789,26.696 88.0814,26.7307 88.0613,26.8469 88.0053,26.9544 87.9599,27.0009 87.9221,27.0191 87.8818,27.0819 87.8979,27.1212 87.897,27.1638 87.901,27.1931 87.9215,27.2532 87.9339,27.4656 87.9435,27.5026 87.9802,27.5564 88.0072,27.5813 88.0353,27.6492 88.0736,27.7518 88.0749,27.8181 88.039,27.8331 88.0294,27.8349 88.0185,27.8475 88.0085,27.8759 88.0246,27.918 88.2177,27.9485 88.2769,27.9522 88.395,28.0094 88.4393,28.0371 88.51,28.0854 88.6261,28.0384 88.6591,28.0199 88.7212,27.9766 88.7585,27.8643 88.7629,27.8444 88.7667,27.8084 88.7405,27.6931 88.7162,27.6236 88.699,27.6012 88.687,27.5852 88.6505,27.5117 88.667,27.413 88.6855,27.3857 88.7091,27.3562 88.7817,27.3029 88.8033,27.2869 88.7968,27.2637 88.7769,27.2467 88.7285,27.2353 88.6966,27.2243 88.6482,27.1541 88.6393,27.1179 88.6786,27.1122 88.712,27.091 88.7475,27.0635 88.7552,27.0372 88.7799,26.9455 88.8334,26.9394 88.9239,26.8926 88.9704,26.8556 88.9792,26.8282 88.992,26.8027 89.0118,26.7937 89.0351,26.789 89.0858,26.784 89.1063,26.7847 89.1617,26.8016 89.1855,26.8207 89.2462,26.8302 89.2525,26.8293 89.3671,26.7703 89.4113,26.7816 89.4485,26.7724 89.4738,26.7623 89.5278,26.7326 89.5289,26.7228 89.5081,26.6954 89.528,26.6855 89.6548,26.6738 89.6782,26.677 89.6907,26.6773 89.7389,26.6797 89.9665,26.7094 90.008,26.7182 90.0336,26.7257 90.0604,26.7441 90.0677,26.7838 90.0805,26.8041 90.1013,26.8207 90.2471,26.8697 90.2729,26.8733 90.3013,26.8644 90.3411,26.828 90.4028,26.7946 90.448,26.7753 90.5253,26.7525 90.5725,26.7432 90.5921,26.7428 90.6281,26.7473 90.786,26.7548 90.8202,26.7549 90.841,26.7545 90.8499,26.7536 90.9328,26.7589 91.0027,26.7793 91.1141,26.7765 91.146,26.7649 91.1678,26.75 91.1901,26.748 91.2258,26.7566 91.2584,26.7744 91.2729,26.7922 91.284,26.8184 91.2998,26.8413 91.384,26.8374 91.3997,26.8092 91.4256,26.7754 91.598,26.7709 91.6247,26.7901 91.7206,26.8331 91.8738,26.8238 91.9132,26.8219 91.9465,26.8299 91.9633,26.8392 91.9739,26.8485 91.9849,26.8654 91.9949,26.9003 91.9825,26.9489 91.9686,26.9846 91.9533,27.0068 91.9272,27.0248 91.8997,27.0489 91.892,27.0713 91.897,27.1379 91.926,27.1579 91.996,27.2626 91.9708,27.3188 91.9597,27.338 91.8753,27.4448 91.8401,27.424 91.7356,27.4061 91.6527,27.4012 91.558,27.4565 91.5136,27.5057 91.4998,27.5299 91.4825,27.5844 91.4811,27.629 91.5026,27.6502 91.5242,27.6662 91.5363,27.6856 91.541,27.7101 91.5399,27.7338 91.7063,27.7355 91.7666,27.7002 91.8599,27.6976 91.8959,27.7037 91.9277,27.7194 91.9559,27.7557 91.9998,27.7816 92.0276,27.7874 92.0716,27.7816 92.1387,27.7888 92.1467,27.8374 92.1959,27.765 92.2121,27.7636 92.2226,27.7754 92.3336,27.7952 92.4259,27.8307 92.5243,27.8851 92.5801,27.9243 92.6,27.9478 92.6011,28.01 92.5671,28.0289 92.5557,28.0492 92.5677,28.0834 92.5908,28.1104 92.6332,28.1376 92.7102,28.1814 92.7332,28.1687 92.7676,28.1673 92.8102,28.2011 92.9257,28.2785 93.0061,28.2851 93.1016,28.2875 93.1174,28.3113 93.1177,28.3556 93.0954,28.3865 93.1612,28.461 93.1999,28.5085 93.2082,28.5631 93.2313,28.5867 93.27,28.6036 93.3198,28.6236 93.3813,28.6473 93.4041,28.6435 93.4232,28.6333 93.4743,28.6218 93.5265,28.6155 93.5686,28.6322 93.611,28.6456 93.7373,28.6584 93.7715,28.6549 93.8405,28.6373 93.8641,28.695 93.8878,28.7767 93.8995,28.8038 93.9729,28.8612 94.0309,28.8985 94.0656,28.9425 94.07,28.9764 94.1129,29.0409 94.1863,29.1087 94.3055,29.1831 94.3592,29.1859 94.4166,29.182 94.4589,29.1989 94.4709,29.2398 94.5253,29.3009 94.5751,29.3036 94.6699,29.2281 94.7413,29.1425 94.8596,29.1077 95.0071,29.0849 95.2308,29.0098 95.2646,29.0028 95.316,29.0089 95.3382,29.0217 95.4018,29.1034 95.4179,29.1586 95.5011,29.2225 95.6658,29.3101 95.8042,29.3586 95.8248,29.3631 95.8903,29.3999 95.9281,29.4284 95.9589,29.4315 96.0233,29.3628 96.0565,29.3188 96.0625,29.2801 96.0891,29.2446 96.1088,29.2233 96.1376,29.2113 96.1678,29.2097 96.217,29.2414 96.2338,29.2534 96.2669,29.2248 96.2245,29.1489 96.1929,29.1381 96.1629,29.1345 96.1344,29.1319 96.0943,29.1145 96.0248,29.0272 96.0254,28.9045 96.0512,28.8692 96.0989,28.8898 96.1259,28.9084 96.1438,28.9272 96.1576,28.9426 96.1729,28.9604 96.1943,28.9833 96.2226,29.0009 96.346,29.0241 96.3711,29.0039 96.3598,28.9358 96.409,28.8643 96.4772,28.7819 96.4889,28.7636 96.4908,28.7285 96.3057,28.5588 96.2709,28.5364 96.2161,28.4933 96.2372,28.3609 96.2774,28.3194 96.3266,28.3842 96.4742,28.4365 96.5293,28.4359 96.5505,28.4266 96.6199,28.3912 96.6327,28.3746 96.6536,28.3452 96.6899,28.3352 96.8595,28.3008 96.8888,28.3021 96.9281,28.3265 96.9735,28.3488 97.0028,28.3501 97.0238,28.3413 97.1126,28.2774 97.1227,28.2549 97.1815,28.2026 97.2233,28.1914 97.2088,28.1348 97.1915,28.056 97.2343,28.0125 97.2549,27.9601 97.2357,27.9098 96.9952,27.7609 96.9217,27.7188 96.879,27.6869 96.8076,27.6314 96.7656,27.5888 96.7616,27.5692 96.7788,27.4266 96.844,27.3356 96.8768,27.2982 96.9065,27.2722 96.9201,27.2564 97.0343,27.0979 97.0107,27.057 96.9349,27.0627 96.8739,27.1036 96.836,27.117 96.7808,27.1384 96.7578,27.1526 96.7394,27.1819 96.7306,27.2325 96.6969,27.2912 96.6596,27.3164 96.6393,27.3254 96.6014,27.335 96.4975,27.3353 96.3726,27.2718 96.3023,27.2742 96.1045,27.2455 96.0675,27.2396 96.0306,27.2255 95.9747,27.2015 95.9063,27.1571 95.8879,27.1389 95.8702,27.1065 95.8583,27.0802 95.8388,27.0501 95.8129,27.0216 95.7891,27.0006 95.7505,26.9829 95.7055,26.9781 95.6831,26.9726 95.5485,26.8682 95.4837,26.793 95.4242,26.7966 95.4035,26.7947 95.385,26.7831 95.3711,26.7615 95.3548,26.7227 95.3232,26.6826 95.2988,26.6687 95.2659,26.6551 95.1395,26.6203 95.1316,26.6497 95.1161,26.6466 95.0232,26.5863 94.9443,26.4461 94.945,26.2824 94.9586,26.2051 94.9918,26.109 95.0536,26.0372 95.0433,26.0078 95.0135,25.9728 94.9962,25.9545 94.9711,25.9315 94.9458,25.9172 94.9072,25.7964 94.8752,25.7034 94.7643,25.55 94.6731,25.4715 94.6479,25.463 94.6195,25.4665 94.5666,25.4373 94.5488,25.4193 94.5413,25.3996 94.5083,25.3734 94.4621,25.2606 94.456,25.2053 94.4582,25.1812 94.4739,25.1562 94.4965,25.1426 94.5428,25.1357 94.5664,25.1272 94.601,25.112 94.6136,25.095 94.6149,25.004 94.5492,24.8399 94.4991,24.7327 94.4787,24.6975 94.3817,24.5759 94.3534,24.5542 94.2409,24.3445 94.1957,24.2587 94.1522,24.1524 94.1246,24.0539 94.1022,23.9841 94.0304,23.8248 94.0172,23.817 93.9767,23.8598 93.9141,23.893 93.7929,23.9291 93.7412,23.9155 93.7055,23.9086 93.6833,23.922 93.6672,23.9498 93.6488,23.9737 93.5726,23.9884 93.5115,23.9897 93.4931,23.9671 93.4764,23.9447 93.4122,23.9375 93.3834,23.9355 93.3569,23.9442 93.3046,24.017 93.2906,24.0478 93.2711,24.0601 93.2504,24.0641 93.2208,24.0448 93.211,24.0093 93.2125,23.9537 93.2346,23.9268 93.2674,23.8213 93.2984,23.6783 93.3063,23.636 93.3086,23.5759 93.2833,23.3971 93.2558,23.3317 93.2718,23.2055 93.2333,23.0453 93.19,22.992 93.159,22.9788 93.1318,22.9814 93.1109,22.9922 93.0946,23.0255 93.0691,23.0336 93.0241,23.0212 93.0109,22.9885 93.0247,22.9274 93.0025,22.8455 92.9869,22.7762 92.9776,22.6891 92.9821,22.6401 93.0045,22.5053 93.0269,22.4406 93.0615,22.4164 93.0746,22.3595 93.0778,22.3321 93.0822,22.292 93.0832,22.24 93.0408,22.1633 93.0148,22.1612 92.9912,22.1807 92.9568,22.1868 92.9323,22.1797 92.9017,22.0903 92.8764,22.0242 92.8454,22.0002 92.8103,21.9806 92.7708,21.9892 92.7618,22.0094 92.7478,22.0279 92.6847,22.0844 92.5921,22.1298 92.5818,22.0694 92.562,22.0007 92.4919,21.9587 92.4872,21.9577 92.4712,22.0415 92.4813,22.1116 92.4829,22.1508 92.4643,22.2972 92.4544,22.3329 92.4107,22.5271 92.4167,22.5565 92.3959,22.7012 92.3626,22.7227 92.2613,22.9135 92.2377,23.1519 92.2351,23.203 92.2512,23.2224 92.2726,23.2596 92.2556,23.3138 92.2433,23.3413 92.2086,23.43 92.1848,23.5466 92.1743,23.6664 92.1632,23.6845 92.1535,23.693 92.0881,23.6804 92.06,23.7105 91.9949,23.6646 91.9526,23.624 91.9181,23.6196 91.863,23.6749 91.8441,23.7013 91.8238,23.654 91.8287,23.616 91.8426,23.5652 91.8484,23.5365 91.8518,23.4794 91.808,23.416 91.7693,23.4087 91.7309,23.3842 91.6832,23.3108 91.6694,23.2864 91.6561,23.2533 91.6544,23.229 91.6663,23.2027 91.6814,23.169 91.691,23.133 91.7044,23.0644 91.6647,23.0112 91.6112,22.9692 91.4982,22.9191 91.4484,22.9598 91.4348,22.975 91.3792,23.1368 91.3609,23.1945 91.3338,23.2211 91.3127,23.2359 91.2892,23.2399 91.2659,23.1936 91.2678,23.1552 91.2771,23.1069 91.2916,23.0686 91.286,23.0439 91.2614,23.0414 91.2435,23.0556 91.2312,23.0724 91.2196,23.0986 91.2064,23.1644 91.2027,23.1843 91.1996,23.2106 91.1865,23.2711 91.1689,23.3474 91.1414,23.4254 91.0958,23.4846 91.0483,23.6052 91.0432,23.6994 91.0523,23.7186 91.079,23.7241 91.1009,23.7293 91.1373,23.8136 91.1259,23.8514 91.123,23.8753 91.1544,23.9423 91.2677,24.0784 91.3063,24.0824 91.3647,24.0638 91.4059,24.0614 91.432,24.0599 91.4535,24.0634 91.4791,24.0698 91.6372,24.1273 91.7676,24.1247 91.7912,24.15 91.816,24.2553 91.8061,24.3002 91.8315,24.3224 91.8655,24.2931 92.0016,24.3627 92.017,24.3824 92.0218,24.41 92.0146,24.4633 92.0192,24.4911 92.0249,24.4994 92.0581,24.5188 92.0726,24.5351 92.1325,24.7149 92.1406,24.7464 92.1466,24.7759 92.1442,24.7989 92.1319,24.8238 92.132,24.8667 92.1682,24.8785 92.2262,24.8548 92.2736,24.8213 92.3202,24.8214 92.3581,24.8389 92.375,24.8496 92.3715,24.89 92.3289,24.9317 92.3051,24.9388 92.2948,24.9656 92.2955,24.9857 92.2918,24.9975 92.2152,25.0514 92.0758,25.112 91.9981,25.1426 91.9764,25.1493 91.9218,25.1594 91.8161,25.1553 91.6329,25.1393 91.5863,25.1235 91.3659,25.1109 91.1952,25.1547 91.1458,25.1779 91.0559,25.1672 90.9897,25.1684 90.9568,25.1647 90.9219,25.1555 90.8841,25.1445 90.8517,25.1333 90.7544,25.1224 90.7257,25.1206 90.4756,25.1382 90.4146,25.1459 90.3521,25.1332 90.3325,25.122 90.2975,25.1208 90.2684,25.1261 90.0544,25.1853 89.9249,25.2328 89.8519,25.2671 89.7975,25.2808 89.7701,25.2652 89.7365,25.2608 89.7187,25.2784 89.7019,25.3378 89.7131,25.4029 89.737,25.4871 89.7455,25.5481 89.7487,25.5766 89.7486,25.6184 89.7316,25.6631 89.6934,25.7937 89.7035,25.8235 89.7158,25.8454 89.7342,25.8772 89.7151,25.9703 89.6643,26.0599 89.6194,26.1272 89.5707,26.1308 89.5347,26.1601 89.5194,26.201 89.4872,26.1981 89.4476,26.1234 89.463,26.0972 89.4807,26.0703 89.4881,26.0397 89.434,25.9866 89.39,25.9767 89.2287,25.9879 89.2057,25.9956 89.1391,26.0368 89.0211,26.1244 89.0068,26.1493 88.9766,26.2687 88.9569,26.3558 88.833,26.4132 88.8111,26.3954 88.7966,26.3627 88.8097,26.3283 88.8551,26.3094 88.9303,26.2453 88.9067,26.2057 88.7435,26.211 88.6222,26.2643 88.5903,26.3037 88.5806,26.3626 88.5674,26.3909 88.4935,26.4412 88.4592,26.4357 88.3171,26.5245 88.3068,26.5574 88.2999,26.5965 88.2617,26.551 88.2224,26.4533 88.2433,26.4249 88.2584,26.4561 88.3321,26.4431 88.3686,26.4307 88.401,26.3771 88.4099,26.338 88.3606,26.3279 88.2833,26.2958 88.2439,26.253 88.2436,26.2203 88.2356,26.1909 88.1731,26.1665 88.0703,26.1215 88.0453,26.0685 87.9832,25.8862 87.998,25.8068 88.0315,25.757 88.0508,25.7514 88.0923,25.7672 88.1125,25.7783 88.1413,25.7859 88.1612,25.7773 88.3367,25.6307 88.3347,25.5878 88.3414,25.561 88.4439,25.4761 88.5387,25.461 88.6027,25.4603 88.6535,25.4892 88.6867,25.4822 88.7196,25.4526 88.727,25.4327 88.7241,25.3984 88.7079,25.3762 88.7299,25.3365 88.7608,25.3045 88.8206,25.2791 88.8786,25.2802 88.8953,25.262 88.833,25.1414 88.8201,25.1365 88.7759,25.1478 88.5923,25.167 88.534,25.1693 88.5077,25.1701 88.3705,25.1716 88.342,25.1602 88.346,25.1246 88.3489,25.0468 88.3259,24.9953 88.2859,24.9117 88.2274,24.8412 88.1943,24.8463 88.1655,24.8603 88.1527,24.8853 88.1089,24.923 88.0298,24.8888 88.0513,24.8621 88.0555,24.8208 88.0256,24.7923 87.933,24.6578 88.0019,24.4943 88.0198,24.4793 88.1235,24.4398 88.1735,24.4237 88.2545,24.3846 88.3516,24.3138 88.3963,24.291 88.5409,24.2671 88.5574,24.2829 88.5906,24.2792 88.6104,24.2535 88.6215,24.234 88.6308,24.2146 88.6405,24.1896 88.6287,24.1601 88.6045,24.153 88.5894,24.1217 88.5965,24.0948 88.5902,24.0556 88.615,24.0336 88.6435,24.0138 88.6237,23.8915 88.5766,23.866 88.5171,23.8472 88.4911,23.8317 88.4662,23.74 88.4558,23.6204 88.4747,23.5775 88.6463,23.4433 88.6759,23.4665 88.6758,23.4245 88.6288,23.3242 88.6024,23.2851 88.6026,23.2465 88.6171,23.2213 88.6946,23.2012 88.7175,23.2167 88.8722,23.1803 88.8056,23.0977 88.7869,23.0833 88.7648,23.0663 88.7531,22.9712 88.7531,22.9428 88.8193,22.8439 88.8785,22.3762 88.8835,22.2995 88.8975,22.2517 88.9084,22.2325 88.9484,22.1807 88.9636,22.1675 88.9846,22.1185 88.9558,22.0905 88.9448,22.1048 88.9277,22.0642 88.933,22.0326 88.9443,22.0101 88.9542,21.9831 88.949,21.9078 88.8962,21.8792 88.9084,21.839 88.979,21.6321 88.9751,21.6011 88.9513,21.5844 88.9005,21.5767 88.8118,21.6097 88.7435,21.6046 88.6699,21.5311 88.6275,21.5263 88.6032,21.5384 88.5746,21.6622 88.5879,21.8186 88.6049,21.9068 88.615,21.9391 88.6379,21.9601 88.6565,21.9805 88.6436,22.019 88.6041,22.0372 88.6187,21.9984 88.5755,21.9086 88.5268,21.9166 88.5157,21.9373 88.5496,21.9924 88.5418,22.0229 88.5289,22.0719 88.5356,22.0971 88.5473,22.1221 88.5704,22.1437 88.5678,22.1722 88.5314,22.136 88.5042,22.0737 88.5127,22.0422 88.5169,22.015 88.4879,21.9639 88.4948,21.9126 88.48,21.8691 88.466,21.8544 88.449,21.7944 88.4572,21.7443 88.4956,21.7533 88.5192,21.7283 88.5195,21.6984 88.4933,21.5858 88.4637,21.5358 88.4299,21.5017 88.4037,21.4979 88.3898,21.4965 88.3859,21.5002 88.375,21.5298 88.3835,21.5537 88.4034,21.5679 88.4172,21.6318 88.4233,21.8073 88.4035,21.9067 88.3915,21.9236 88.3631,21.8642 88.3597,21.7588 88.3651,21.65 88.3556,21.6136 88.3422,21.5872 88.2943,21.5596 88.1983,21.5866 88.2007,21.6338 88.1995,21.6699 88.1927,21.722 88.1871,21.7525 88.153,21.7728 88.151,21.7491 88.1663,21.7017 88.1824,21.6636 88.1965,21.5432 88.1496,21.5247 88.0933,21.5858 88.0723,21.6535 88.0947,21.6878 88.0981,21.7678 88.0779,21.8094 88.0588,21.8334 88.0461,21.8531 88.0353,21.9337 88.0687,21.9906 88.0876,22.0073 88.1038,22.0296 88.1104,22.052 88.0908,22.1272 88.0613,22.1584 88.0374,22.1688 87.9718,22.1837 87.9226,22.1954 87.8993,22.2103 87.8837,22.2277 87.86,22.2676 87.8374,22.3459 87.8266,22.3923 87.7979,22.3956 87.8356,22.2568 87.8436,22.2384 87.8735,22.1984 87.8933,22.1799 87.9622,22.1632 87.9918,22.1598 88.0222,22.1534 88.0625,22.1063 88.0663,22.0865 88.0581,22.0652 88.0081,22.0155 87.9765,21.9948 87.9285,21.9264 87.8784,21.835 87.8582,21.8097 87.7621,21.7282 87.7216,21.695 87.6887,21.6746 87.5717,21.6216 87.4145,21.5934 87.3736,21.5878 87.3477,21.5825 87.2222,21.5378 87.1005,21.5254 87.0079,21.486 86.9608,21.455 86.9367,21.4357 86.9004,21.4031 86.8569,21.3583 86.7738,21.2565 86.7405,21.1991 86.7297,21.1709 86.722,21.129 86.7299,21.0794 86.7772,20.9455 86.8432,20.8227 86.8559,20.794 86.8553,20.7621 86.7856,20.7361 86.8332,20.6751 86.8809,20.6549 86.9197,20.6516 86.8953,20.6346 86.7612,20.5483 86.7033,20.5159 86.6825,20.5001 86.6503,20.4686 86.6226,20.4311 86.6124,20.3699 86.6227,20.3471 86.6666,20.3784 86.6965,20.4116 86.7021,20.3814 86.6963,20.3612 86.6576,20.3136 86.6051,20.26 86.5467,20.2214 86.5263,20.2144 86.4933,20.2036 86.4372,20.1835 86.3831,20.1544 86.3808,20.1224 86.3162,19.9625 86.2722,19.9582 86.206,20.0085 86.1849,20.0377 86.0918,20.0525 86.1406,20.0011 86.1927,19.982 86.2503,19.9434 86.1675,19.8883 86.0534,19.8493 85.9144,19.8092 85.8499,19.7975 85.8242,19.7911 85.767,19.7756 85.6374,19.7376 85.5304,19.7056 85.3797,19.644 85.3476,19.6383 85.3433,19.6516 85.3273,19.6722 85.3576,19.6918 85.3858,19.7004 85.416,19.704 85.4456,19.7103 85.4568,19.7293 85.4556,19.7793 85.4712,19.8134 85.4302,19.8586 85.355,19.8811 85.3312,19.865 85.2498,19.8071 85.2232,19.7706 85.1353,19.7184 85.1004,19.6607 85.0671,19.6033 85.0406,19.5812 85.025,19.527 85.0218,19.4856 85.0574,19.4832 85.0846,19.5203 85.0885,19.5507 85.129,19.5789 85.146,19.6278 85.1811,19.6186 85.2053,19.62 85.2406,19.6383 85.2768,19.6543 85.3041,19.6393 85.2789,19.5906 85.2582,19.5789 85.2284,19.5782 85.1892,19.5756 85.1993,19.5577 85.2261,19.5495 85.187,19.5294 85.1694,19.5181 85.0785,19.4575 85.0543,19.438 84.9966,19.3906 84.7776,19.2071 84.7259,19.1471 84.6874,19.0965 84.6627,19.091 84.6237,19.1026 84.6154,19.0834 84.6395,19.0542 84.6622,19.0734 84.6572,19.0401 84.6053,18.9641 84.5738,18.9208 84.5561,18.9056 84.5332,18.8942 84.5103,18.8688 84.3919,18.7144 84.2474,18.5481 84.1851,18.4842 84.0322,18.3213 84.0141,18.2815 83.9748,18.2462 83.8769,18.2076 83.7827,18.1686 83.671,18.1196 83.4801,17.9952 83.4164,17.9132 83.2857,17.7467 83.2414,17.6949 83.1335,17.573 83.1161,17.561 83.0606,17.529 82.9101,17.4679 82.7841,17.3887 82.7069,17.3633 82.6778,17.3527 82.5153,17.2718 82.4448,17.2308 82.4099,17.2076 82.376,17.1829 82.2629,17.0791 82.2142,17.0265 82.1963,17.0012 82.1494,16.8931 82.1546,16.8636 82.1756,16.8422 82.2676,16.8122 82.2655,16.7662 82.2475,16.6862 82.203,16.5647 82.1004,16.4908 82.0755,16.4781 81.9882,16.434 81.8908,16.3872 81.8427,16.3683 81.6728,16.3076 81.6293,16.2928 81.6161,16.2986 81.5531,16.3165 81.4741,16.3241 81.3962,16.3365 81.3326,16.3498 81.3148,16.3672 81.244,16.356 81.2237,16.3487 81.1682,16.3142 81.1507,16.2961 81.067,16.0481 81.0534,15.9522 81.008,15.9203 80.9412,15.8688 80.9035,15.8221 80.9069,15.8005 80.9169,15.766 80.8053,15.8457 80.8158,15.9146 80.8114,15.9599 80.807,15.9901 80.7861,15.9942 80.7925,15.9534 80.8001,15.9018 80.7916,15.8601 80.7288,15.7346 80.7185,15.7621 80.7163,15.8043 80.7097,15.8251 80.6805,15.8602 80.6332,15.8781 80.5883,15.8822 80.4608,15.8601 80.2991,15.7734 80.2715,15.7567 80.2355,15.731 80.2111,15.7095 80.1836,15.6817 80.1673,15.6584 80.1375,15.5903 80.1139,15.5137 80.0411,15.3806 80.0161,15.335 79.9988,15.2985 79.961,15.0939 79.9542,15.0388 79.9933,14.829 80.0143,14.7434 80.0531,14.6644 80.0876,14.5858 80.1013,14.5396 80.0815,14.3328 80.0453,14.244 80.0332,14.1843 80.0469,14.0892 80.059,14.0201 80.0901,13.9402 80.1327,13.8475 80.1508,13.8047 80.1565,13.7845 80.1561,13.7521 80.1403,13.7236 80.1339,13.6866 80.1366,13.6553 80.1768,13.5395 80.1923,13.5109 80.2222,13.442 80.2176,13.423 80.1901,13.4921 80.1588,13.5587 80.1479,13.5767 80.0607,13.7026 79.999,13.6731 79.958,13.6052 79.9669,13.5722 79.993,13.5332 80.0206,13.4921 80.0274,13.4848 80.1325,13.4666 80.17,13.4503 80.2223,13.4074 80.243,13.3841 80.2572,13.3279 80.2306,13.1587 80.2143,13.1197 80.1898,13.0334 80.1728,12.9397 80.1709,12.8491 80.1714,12.8112 80.1659,12.7586 80.137,12.6571 80.0704,12.4593 80.0481,12.4163 80.0125,12.3642 79.9441,12.2651 79.8924,12.1936 79.8627,12.1522 79.8447,12.1253 79.7904,12.0392 79.782,12.025 79.7765,12.0149 79.7703,11.9769 79.7694,11.9602 79.7563,11.9257 79.739,11.8816 79.7273,11.8498 79.7268,11.8343 79.7162,11.819 79.7158,11.8051 79.715,11.785 79.6976,11.7634 79.6981,11.7453 79.6933,11.7266 79.6758,11.6433 79.663,11.5419 79.6955,11.4152 79.7422,11.3294 79.7656,11.1335 79.7668,11.0684 79.7659,10.9918 79.7651,10.9763 79.7535,10.9313 79.7543,10.91 79.7595,10.8826 79.7602,10.8363 79.7531,10.8059 79.755,10.7943 79.758,10.7606 79.7655,10.5612 79.7755,10.3961 79.777,10.374 79.7709,10.2746 79.739,10.2601 79.7006,10.258 79.6915,10.2768 79.6609,10.291 79.5966,10.294 79.6624,10.2713 79.6805,10.2522 79.6239,10.2549 79.4781,10.2838 79.4059,10.2959 79.307,10.3067 79.2375,10.2685 79.1851,10.2187 79.1552,10.1718 79.149,10.1365 79.1551,10.0721 79.1727,10.035 79.1633,10.0063 79.1327,9.9671 79.1091,9.9415 79.0924,9.9232 79.0675,9.8927 79.0475,9.8658 78.9487,9.7333 78.8951,9.6535 78.8566,9.5875 78.8223,9.4634 78.8299,9.4368 78.8543,9.399 78.8905,9.3522 78.9222,9.3212 78.9936,9.3023 79.0161,9.2894 79.036,9.282 79.1167,9.278 79.1406,9.2814 79.2439,9.2538 79.3584,9.1497 79.3246,9.1585 79.2889,9.1854 79.2643,9.21 79.2446,9.2218 79.2069,9.2365 79.1342,9.2456 79.0891,9.2522 78.9103,9.2644 78.8808,9.2629 78.7905,9.2409 78.7692,9.234 78.7229,9.2188 78.5751,9.1665 78.3744,9.105 78.3424,9.0958 78.3234,9.087 78.3035,9.0756 78.1427,8.9518 78.125,8.9244 78.1057,8.8943 78.0882,8.8539 78.0531,8.6078 78.0561,8.5697 78.0427,8.4722 77.975,8.3571 77.9399,8.34 77.9154,8.3304 77.9099,8.3291 77.8642,8.2967 77.7011,8.1872 77.5636,8.1456 77.5197,8.1336 77.4924,8.1198 77.472,8.0904 77.4493,8.063 77.3994,8.069 77.3643,8.0763 77.2126,8.1239 77.1413,8.1712 77.0795,8.2201 77.0065,8.2857 76.9952,8.2931 76.9569,8.3208 76.9126,8.3559 76.8785,8.3911 76.8735,8.3993 76.8643,8.4091 76.7559,8.5432 76.7267,8.5831 76.583,8.7722 76.4909,8.8671 76.4833,8.8969 76.4864,8.9272 76.5208,8.9617 76.5515,8.9551 76.5754,8.9568 76.579,8.994 76.4742,8.9816 76.4493,8.9549 76.3578,9.1333 76.311,9.2376 76.2959,9.2709 76.2567,9.3748 76.2462,9.4059 76.232,9.4531 76.2239,9.4863 76.2199,9.5097 76.2167,9.5337 76.2134,9.558 76.2102,9.5824 76.2046,9.6688 76.179,9.8182 76.1623,9.8914 76.1613,9.9501 76.2042,9.9 76.1768,9.8937 76.1789,9.8656 76.2027,9.82 76.2426,9.759 76.2731,9.7659 76.295,9.6293 76.2787,9.5864 76.2691,9.5158 76.3085,9.4931 76.3923,9.4869 76.4146,9.5198 76.3861,9.5418 76.3406,9.5872 76.3319,9.6713 76.3126,9.8112 76.3006,9.8493 76.2739,9.9009 76.237,9.9329 76.1569,10.0997 76.1286,10.1174 76.1295,10.084 76.1446,10.0581 76.1553,10.002 76.1539,9.973 76.1211,10.0243 76.1129,10.054 76.1003,10.0753 76.0808,10.1763 75.9979,10.3953 75.9402,10.5268 75.8408,10.7437 75.8242,10.7914 75.8099,10.8432 75.7784,10.9682 75.6344,11.3525 75.6002,11.428 75.5632,11.4519 75.5343,11.4581 75.4966,11.5342 75.4814,11.577 75.4727,11.6195 75.4451,11.6874 75.2938,11.8474 75.1909,11.9945 75.1651,11.9947 75.1101,11.9969 75.0929,12.0539 75.0435,12.1946 74.9374,12.3975 74.8395,12.5978 74.7974,12.7005 74.7777,12.7334 74.771,12.7407 74.7535,12.8318 74.7325,12.8429 74.687,13.0419 74.6453,13.2526 74.59,13.5009 74.585,13.603 74.5333,13.817 74.5169,13.8522 74.4793,13.9221 74.4117,14.0308 74.3921,14.1157 74.3643,14.2302 74.3437,14.2634 74.3152,14.3457 74.2885,14.4321 74.3092,14.4395 74.325,14.4671 74.2884,14.5253 74.2604,14.5468 74.2486,14.5052 74.2163,14.5042 74.1961,14.5891 74.1837,14.6635 74.1601,14.7058 74.1379,14.721 74.0891,14.7251 74.0107,14.771 74.0139,14.8506 73.9842,14.8899 73.8707,15.0492 73.8639,15.1456 73.818,15.2843 73.7779,15.3332 73.7232,15.3559 73.7009,15.382 73.7441,15.389 73.8293,15.3828 73.8545,15.3655 73.8721,15.348 73.8617,15.3813 73.831,15.401 73.756,15.4277 73.7318,15.4295 73.706,15.4325 73.6778,15.4706 73.5952,15.6877 73.6093,15.7044 73.5829,15.7042 73.5563,15.7222 73.5623,15.7596 73.5499,15.7966 73.5234,15.8462 73.5023,15.8784 73.4622,15.9161 73.4399,15.9315 73.4116,15.958 73.3977,15.9734 73.3599,16.0409 73.3201,16.2165 73.2564,16.411 73.2381,16.4675 73.2509,16.4948 73.2725,16.4937 73.2245,16.588 73.1817,16.8346 73.1648,16.9801 73.1835,17.0148 73.1861,17.042 73.1867,17.0629 73.1708,17.126 73.1596,17.1549 73.1101,17.3493 73.0974,17.4207 73.0902,17.4518 73.0433,17.5863 73.0288,17.6113 73.0172,17.6737 73.0327,17.6953 73.0209,17.75 73.0126,17.7717 72.968,17.8668 72.923,17.9709 72.8832,18.1602 72.879,18.2812 72.8436,18.3286 72.8247,18.3549 72.8059,18.3966 72.8015,18.4564 72.8143,18.4981 72.7656,18.6396 72.7628,18.7254 72.7714,18.7756 72.8388,18.7996 72.8829,18.7602 72.8992,18.7068 72.9047,18.7695 72.8562,18.8312 72.8235,18.8966 72.887,18.9256 72.9656,18.9836 72.8813,19.0575 72.8438,19.0397 72.7997,18.9753 72.7348,18.8913 72.6849,18.9248 72.7117,18.9664 72.7358,19.0242 72.7274,19.1468 72.6975,19.1288 72.6784,19.2106 72.6906,19.2889 72.7616,19.2973 72.9043,19.2325 72.9283,19.186 72.9541,19.1895 72.9443,19.2303 72.912,19.266 72.8727,19.2884 72.7912,19.3019 72.7135,19.307 72.6653,19.3511 72.6196,19.5686 72.6153,19.6757 72.6114,19.7415 72.5891,19.7715 72.5842,19.7944 72.576,19.8488 72.5779,19.8963 72.6104,19.9583 72.6356,20.0739 72.6392,20.1096 72.6404,20.1205 72.6515,20.1981 72.6624,20.263 72.6932,20.3237 72.6966,20.3275 72.7153,20.3347 72.7315,20.3563 72.7412,20.4181 72.7644,20.4404 72.7949,20.4856 72.8452,20.7301 72.8455,20.7516 72.8329,20.7905 72.797,20.7861 72.7586,20.8197 72.7518,20.8868 72.758,21.0118 72.7638,21.0418 72.7174,21.1021 72.667,21.0857 72.6331,21.0587 72.538,21.0622 72.5243,21.0831 72.5389,21.1066 72.5935,21.1408 72.6259,21.1778 72.5558,21.2355 72.5269,21.2289 72.5074,21.2557 72.476,21.3514 72.4992,21.37 72.5201,21.3765 72.576,21.3918 72.6606,21.44 72.6263,21.4512 72.5975,21.4404 72.5704,21.4193 72.5031,21.3943 72.524,21.4494 72.5426,21.4703 72.5771,21.4975 72.7285,21.6099 72.7563,21.6123 72.7886,21.6128 72.8122,21.6198 73.0278,21.711 73.0375,21.7337 72.9692,21.7155 72.9371,21.6934 72.8812,21.6686 72.8474,21.6576 72.685,21.6466 72.6536,21.661 72.5287,21.6605 72.492,21.6485 72.4571,21.6398 72.4372,21.658 72.4401,21.6796 72.4614,21.7182 72.4667,21.7645 72.4692,21.7851 72.4774,21.8218 72.5356,21.9021 72.5592,21.915 72.5885,21.9059 72.6164,21.9268 72.6333,21.9657 72.5336,21.9359 72.5118,21.9217 72.4849,21.8979 72.4498,21.8863 72.4127,21.9505 72.4309,22.0613 72.4475,22.1129 72.4747,22.1599 72.4915,22.1736 72.5267,22.1836 72.5556,22.1775 72.5898,22.1548 72.6617,22.142 72.6795,22.1619 72.6995,22.1906 72.7236,22.2116 72.759,22.2099 72.7972,22.1886 72.827,22.1948 72.825,22.2463 72.7284,22.2474 72.6954,22.2302 72.5868,22.2423 72.4945,22.2609 72.4647,22.2522 72.4151,22.217 72.3791,22.2034 72.3004,22.2276 72.2865,22.2743 72.1606,22.2729 72.1254,22.2697 72.0664,22.2566 72.0838,22.2271 72.1731,22.2024 72.2112,22.2025 72.2328,22.1501 72.2365,22.127 72.2139,22.0374 72.1763,21.9915 72.1571,21.9787 72.0879,21.9452 72.037,21.9484 71.9506,21.9147 72.0276,21.8943 72.0586,21.9027 72.0747,21.8129 71.9949,21.8049 71.9346,21.8225 71.91,21.8294 71.9034,21.7676 71.934,21.7489 71.9892,21.7599 72.078,21.7641 72.1265,21.7094 72.1247,21.6808 72.1627,21.6648 72.2008,21.5866 72.1601,21.4548 72.1497,21.4355 72.1107,21.3942 72.0879,21.3753 72.0153,21.2832 72.0099,21.2282 72.02,21.1806 71.961,21.1374 71.9153,21.1112 71.7062,21.027 71.481,20.9516 71.3894,20.8695 71.3547,20.8513 71.2885,20.832 71.1368,20.7764 71.0951,20.757 71.0483,20.7369 70.877,20.6794 70.739,20.6727 70.6321,20.7114 70.4897,20.7659 70.4369,20.7905 70.2431,20.9049 70.1887,20.9445 70.1075,21.0104 69.9754,21.1209 69.9601,21.1344 69.9305,21.1624 69.81,21.3022 69.7706,21.3535 69.7422,21.3922 69.7031,21.4424 69.5629,21.577 69.5355,21.5996 69.5104,21.6094 69.4932,21.6157 69.4699,21.6344 69.3519,21.7474 69.2458,21.8395 69.1444,21.9227 69.1088,21.9589 69.0304,22.038 68.9328,22.1522 68.9134,22.1751 68.892,22.2026 68.878,22.223 68.8612,22.2645 68.8586,22.3003 68.8815,22.3603 68.9014,22.3932 68.9209,22.4189 68.9864,22.4558 69.0665,22.3783 69.0911,22.3329 69.0853,22.2859 69.1352,22.249 69.1813,22.2525 69.206,22.2568 69.3801,22.3089 69.6147,22.3806 69.7845,22.4403 69.8544,22.4836 69.8978,22.5087 69.9213,22.52 69.952,22.5315 70.0105,22.5244 70.0578,22.5184 70.0835,22.5258 70.0977,22.5407 70.1271,22.5963 70.2349,22.7888 70.2805,22.8632 70.294,22.88 70.3536,22.936 70.3914,22.9351 70.4157,22.949 70.4353,22.9891 70.4404,23.0163 70.4222,23.0725 70.3945,23.1002 70.3272,23.0631 70.3144,23.0411 70.3132,23.0163 70.3211,22.9918 70.3155,22.9492 70.3068,22.9145 70.2517,22.9086 70.2051,22.9221 70.1404,22.9318 69.7554,22.831 69.7129,22.8109 69.6641,22.7764 69.6243,22.7174 69.5973,22.7279 69.3217,22.7838 69.1839,22.8036 69.1303,22.8148 69.057,22.8464 69.0281,22.8693 68.9694,22.9132 68.8802,22.9529 68.8573,22.9623 68.8175,22.9792 68.6671,23.0634 68.574,23.1224 68.4579,23.2432 68.348,23.404 68.319,23.4863 68.3233,23.5819 68.5225,23.721 68.635,23.7895 68.6555,23.8175 68.5243,23.781 68.3646,23.7017 68.2997,23.6513 68.2783,23.6142 68.2722,23.5838 68.2446,23.5585 68.1707,23.5533 68.0936,23.5646 68.0594,23.5827 68.1139,23.6366 68.1126,23.7403 68.1234,23.8242 68.1326,23.8458 68.1993,23.9125 68.2969,23.9394 68.5463,23.9434 68.6079,23.9434 68.6615,23.9431 68.6608,23.9732 68.6601,24.0158 68.6585,24.2681 68.6622,24.2907 68.7025,24.3066 68.733,24.308 68.8435,24.2972 68.8613,24.2848 68.8727,24.2677 68.8911,24.2366 68.9297,24.2356 68.9908,24.2677 69.1658,24.2527 69.2933,24.2578 69.4563,24.257 69.5113,24.2543 69.5554,24.215 69.6062,24.1666 69.6363,24.1443 69.9122,24.1427 69.9327,24.1436 69.9763,24.1667 69.999,24.2055 70.0291,24.2761 70.0609,24.2854 70.0942,24.2869 70.1747,24.309 70.2414,24.3425 70.3262,24.3748 70.4714,24.4084 70.4978,24.3998 70.5105,24.381 70.5012,24.362 70.4907,24.2995 70.4957,24.2539 70.5566,24.2169 70.6735,24.2086 70.7097,24.2149 70.7926,24.2461 70.7761,24.2772 70.8392,24.3343 70.8602,24.3447 70.887,24.3453 70.9103,24.3354 70.9318,24.3349 71.0158,24.3922 71.0065,24.4133 70.9484,24.4299 70.9142,24.4377 70.891,24.5304 70.8899,24.5766 70.9117,24.6172 70.988,24.6531 70.9816,24.6774 70.9047,24.828 70.889,24.8478 70.8771,24.864 70.8529,24.9077 70.8454,24.9262 70.8164,25.0072 70.8114,25.0272 70.8056,25.0524 70.7977,25.0937 70.7926,25.1213 70.7735,25.1503 70.7524,25.1699 70.7312,25.1864 70.7075,25.2046 70.6606,25.2497 70.5878,25.3748 70.5823,25.413 70.5819,25.5181 70.5829,25.5417 70.587,25.5866 70.5888,25.6162 70.5855,25.6516 70.5697,25.6746 70.5458,25.6842 70.5222,25.6858 70.4878,25.6764 70.4473,25.6567 70.4212,25.6531 70.2893,25.6472 70.2619,25.6542 70.2281,25.6639 70.1954,25.6769 70.0334,25.8819 69.999,25.9542 70.0053,26.0573 70.0131,26.0778 70.0296,26.1048 70.0497,26.1308 70.0644,26.1559 70.0789,26.1951 70.0846,26.2183 70.0956,26.3385 70.0972,26.3621 70.0973,26.4944 70.0781,26.5265 70.0507,26.5456 70.0231,26.5588 70.0029,26.5635 69.9817,26.5663 69.9491,26.5669 69.8566,26.5619 69.8108,26.5588 69.7436,26.5566 69.7063,26.5674 69.6849,26.5839 69.6595,26.6172 69.6333,26.6355 69.606,26.6489 69.545,26.6723 69.5026,26.6887 69.4826,26.6949 69.4532,26.7045 69.4223,26.719 69.4094,26.7431 69.4021,26.7622 69.3968,26.7878 69.4227,26.9693 69.494,27.1478 69.6063,27.2516 69.6389,27.267 69.6663,27.2786 69.7777,27.378 69.941,27.5598 69.951,27.5776 69.9639,27.6103 69.9729,27.6428 69.9841,27.6771 69.9911,27.6971 70.0166,27.7579 70.0336,27.7914 70.1132,27.8543 70.1313,27.8753 70.2757,27.9876 70.3899,28.0142 70.4287,28.0063 70.4636,27.991 70.4966,27.9718 70.5591,27.9119 70.5746,27.8907 70.578,27.8675 70.5712,27.8391 70.581,27.8107 70.6362,27.715 70.6515,27.6971 70.6839,27.6833 70.7148,27.6773 70.7382,27.6756 70.7661,27.6758 70.8032,27.6811 70.8385,27.692 70.8663,27.7022 70.9039,27.7186 70.965,27.7465 70.9942,27.7614 71.0189,27.7724 71.0641,27.791 71.112,27.8081 71.1339,27.8149 71.1612,27.8194 71.262,27.8332 71.3073,27.8376 71.3457,27.8393 71.3861,27.839 71.4321,27.8385 71.4768,27.8409 71.5224,27.8452 71.5485,27.8496 71.6011,27.8596 71.8042,27.9309 71.8115,27.9796 71.8265,28.0877 71.8992,28.1842 71.9924,28.2552 72.0445,28.2938 72.1135,28.3709 72.1207,28.392 72.1599,28.5201 72.1969,28.6409 72.2961,28.753 72.4613,28.8271 72.5028,28.8497 72.5445,28.8725 72.6351,28.9213 72.7403,28.9614 72.856,29.0077 72.8947,29.1093 72.9555,29.1755 72.992,29.2133 73.1705,29.5201 73.1791,29.5399 73.2356,29.7088 73.3027,29.9094 73.3243,29.9189 73.486,29.984 73.5792,30.0071 73.634,30.0199 73.7033,30.037 73.8377,30.1024 73.8718,30.1746 73.866,30.2105 73.8538,30.2523 73.8404,30.2777 73.8111,30.3064 73.7642,30.3277 73.7748,30.3535 73.9002,30.4709 73.9529,30.5649 74.0114,30.6106 74.0848,30.6575 74.1463,30.7297 74.211,30.8146 74.2837,30.8582 74.4583,30.9606 74.5612,31.0075 74.6008,31.0244 74.6095,31.0585 74.5873,31.0771 74.5268,31.0892 74.5086,31.0713 74.4926,31.0446 74.4606,31.0415 74.4421,31.0841 74.426,31.1404 74.4517,31.3195 74.4657,31.3435 74.4856,31.3623 74.5058,31.3809 74.5298,31.3842 74.536,31.4269 74.4831,31.5428 74.4446,31.6146 74.4224,31.6426 74.3962,31.6657 74.3919,31.6863 74.5022,31.8339 74.5747,31.8824 74.6472,31.9064 74.754,31.9629 74.8,32.0116 74.8384,32.0262 74.8749,32.0177 74.8988,32.0005 74.9434,32.0055 75.0965,32.0382 75.1589,32.0569 75.2091,32.0981 75.2832,32.1781 75.2934,32.2056 75.2771,32.2278 75.2529,32.2398 75.2289,32.2645 75.2214,32.3084 75.2167,32.3151 75.1341,32.3622 74.9603,32.4387 74.9277,32.4421 74.8009,32.4227 74.6412,32.4302 74.6136,32.4445 74.5887,32.4676 74.5572,32.5484 74.5722,32.668 74.5448,32.7405 74.5108,32.7248 74.4347,32.7137 74.2667,32.7384 74.2439,32.758 74.2333,32.7789 74.2623,32.8147 74.267,32.8356 74.2467,32.948 74.2352,32.9654 74.2115,32.9776 74.1834,32.9844 74.1598,32.9858 74.136,32.9871 74.1058,32.9945 74.0847,33.0062 73.9402,33.1296 73.9235,33.1471 73.9167,33.17 73.9153,33.1982 73.9271,33.2357 73.9569,33.2519 73.9907,33.2653 74.0255,33.2988 74.0415,33.3325 74.0816,33.4477 74.0859,33.47 74.0807,33.4945 74.0696,33.5128 74.0518,33.5287 74.0215,33.5502 73.9897,33.5665 73.953,33.5824 73.9166,33.604 73.891,33.6422 73.8872,33.6648 73.8952,33.7076 73.9087,33.7351 73.9349,33.7751 73.9502,33.7905 73.9708,33.8002 74.0002,33.8018 74.0226,33.8016 74.047,33.8036 74.0822,33.8146 74.1128,33.83 74.1397,33.8462 74.1612,33.8634 74.1806,33.8839 74.1981,33.9357 74.1806,33.9682 74.1481,33.9813 73.9898,33.9894 73.9556,33.9852 73.9258,33.9763 73.8895,33.9736 73.8553,33.9864 73.8378,34.0032 73.8204,34.0257 73.8119,34.0524 73.8198,34.0815 73.8373,34.0985 73.8653,34.1133 73.8922,34.1231 73.9104,34.1329 73.9258,34.1638 73.8805,34.2597 73.8425,34.274 73.8104,34.2725 73.787,34.2721 73.7555,34.2789 73.7292,34.2963 73.7089,34.3191 73.7041,34.3591 73.7795,34.4734 73.8079,34.4999 73.8408,34.5942 73.8665,34.6252 73.8943,34.637 73.9704,34.6504 74.0347,34.6556 74.0592,34.6616 74.1128,34.6968 74.1515,34.7161 74.2023,34.7338 74.2336,34.7417 74.261,34.7449 74.2844,34.7439 74.3482,34.7307 74.384,34.7191 74.4269,34.7034 74.4618,34.6915 74.5407,34.668 74.5754,34.6595 74.596,34.6548 74.9668,34.5965 75.0131,34.5891 75.0381,34.5865 75.0893,34.5844 75.1455,34.5874 75.2513,34.5318 75.2915,34.5172 75.5392,34.4642 75.5632,34.4624 75.7005,34.4681 75.7293,34.4802 75.7625,34.5166 75.7904,34.5412 75.8337,34.5677 75.8807,34.5853 75.9167,34.5916 75.94,34.5913 75.9686,34.5856 75.9877,34.579 76.0151,34.5659 76.0363,34.5541 76.0664,34.5482 76.1304,34.5728 76.1439,34.5991 76.1833,34.6488 76.2,34.664 76.3291,34.7197 76.3508,34.7285 76.377,34.7306 76.4074,34.7217 76.5578,34.7063 76.6029,34.7103 76.6358,34.7005 76.664,34.672 76.6874,34.6444 76.7227,34.6253 76.7438,34.6199 76.7705,34.6201 76.8072,34.6351 76.8487,34.7518 76.8542,34.8174 76.9355,34.9529 76.9629,34.9815 76.9645,35.0063 76.9505,35.0492 76.9428,35.06 76.9499,35.0645 77.1444,35.1652 77.2279,35.2085 77.2978,35.244 77.4657,35.3291 77.6757,35.4359 77.7173,35.4574 77.7232,35.4618 77.729,35.4511 77.7547,35.4217 77.7816,35.4033 77.8113,35.3975 77.8485,35.4169 77.8881,35.4533 77.9405,35.4659 77.9708,35.4594 77.9842,35.434 77.9698,35.399 77.9335,35.3158 77.9232,35.2848 77.9222,35.2414 77.9523,35.1769 77.9888,35.1163 78.0176,35.0768 78.0673,34.9381 78.0714,34.9067 78.0798,34.8822 78.0944,34.8629 78.1114,34.849 78.129,34.8251 78.1772,34.6831 78.1899,34.6312 78.2028,34.6102 78.2355,34.5732 78.2642,34.5554 78.2985,34.5451 78.3543,34.5353 78.3862,34.533 78.4808,34.5232 78.5033,34.521 78.5236,34.5164 78.5518,34.5076 78.6079,34.4828 78.849,34.3424 78.8828,34.3117 78.8997,34.2721 78.908,34.2511 78.9096,34.2196 78.899,34.1864 78.8764,34.1594 78.8481,34.1376 78.7959,34.1078 78.7518,34.0925 78.7137,34.0821 78.6937,34.0781 78.6723,34.0717 78.649,34.056 78.6336,34.0303 78.6306,34.0006 78.6446,33.9584 78.6612,33.9208 78.7048,33.7993 78.7098,33.7796 78.7148,33.7322 78.7154,33.7121 78.7126,33.666 78.7081,33.6202 78.7035,33.5787 78.7045,33.5116 78.7115,33.483 78.7321,33.4449 78.7521,33.4231 78.7967,33.3904 78.8341,33.3708 78.8436,33.3475 78.8921,33.2806 78.9983,33.2164 79.0463,33.1985 79.0812,33.1889 79.0856,33.1853 79.1205,33.1666 79.1483,33.1574 79.1718,33.1525 79.272,33.0626 79.2629,33.024 79.2535,32.9316 79.2706,32.9004 79.2951,32.8851 79.312,32.8734 79.3451,32.8474 79.4254,32.7199 79.427,32.6913 79.4123,32.6381 79.3992,32.6183 79.3871,32.6012 79.3733,32.5853 79.3497,32.5628 79.1992,32.4595 79.1503,32.4798 79.1278,32.4756 79.1059,32.4695 79.0696,32.4588 79.0369,32.4436 79.0201,32.4216 78.9753,32.3453 78.8686,32.3147 78.8202,32.3289 78.7004,32.4165 78.6834,32.4357 78.6723,32.4536 78.6627,32.5098 78.6729,32.562 78.6669,32.5892 78.6438,32.6027 78.6032,32.5929 78.5806,32.5627 78.5617,32.5491 78.5365,32.5413 78.4702,32.5302 78.4343,32.5355 78.3976,32.5462 78.304,32.5199 78.2952,32.4983 78.3046,32.4828 78.3147,32.474 78.3703,32.396 78.3848,32.2156 78.3742,32.2072 78.4359,32.1785 78.4595,32.1539 78.4773,32.1261 78.4956,32.089 78.5546,32.024 78.5851,31.9951 78.6294,31.9706 78.6686,31.9328 78.6592,31.9042 78.6503,31.8856 78.6429,31.8746 78.6339,31.8543 78.5908,31.7441 78.6135,31.691 78.6622,31.6396 78.74,31.5722 78.6699,31.5176 78.6197,31.4899 78.6103,31.4675 78.6661,31.274 78.7151,31.2531 78.7752,31.2568 78.916,31.3748 78.9415,31.3917 78.9782,31.402 79.0613,31.3602 79.1179,31.2909 79.1151,31.2659 79.1388,31.2067 79.2113,31.1 79.2369,31.086 79.2901,31.0662 79.3162,31.0174 79.4512,30.9224 79.5066,30.9041 79.529,30.9221 79.557,30.9391 79.6418,30.9547 79.7592,30.9312 79.7823,30.9153 79.7945,30.8845 79.8261,30.8536 79.8462,30.8505 79.857,30.8499 80.0847,30.7606 80.1499,30.6994 80.1198,30.5635 80.1028,30.5412 80.1285,30.5399 80.1854,30.5367 80.2122,30.5319 80.2984,30.4923 80.4168,30.4434 80.4808,30.4422 80.5073,30.438 80.6537,30.3518 80.669,30.3261 80.6862,30.3032 80.7039,30.2905 80.7971,30.252 80.843,30.2411 80.8886,30.2301 80.9251,30.1798 80.9202,30.1707 80.9202,30.1707 8,2.0,Spain -2.9428,35.2898 -2.9267,35.256 -2.9108,35.2343 -2.9351,35.225 -2.9612,35.2419 -2.9614,35.277 -2.9428,35.2898 -2.9428,35.2898 25,9.0,South Korea 128.5617,34.9042 128.5686,34.8943 128.5876,34.8411 128.5757,34.7461 128.5159,34.6845 128.4723,34.6695 128.446,34.6624 128.4218,34.6623 128.4343,34.7215 128.4374,34.7701 128.4292,34.7959 128.3857,34.7846 128.3711,34.775 128.357,34.7685 128.3301,34.7953 128.3241,34.8069 128.3223,34.8175 128.324,34.83 128.3281,34.8414 128.3381,34.8498 128.4747,34.9134 128.4971,34.9213 128.5445,34.9376 128.5617,34.9042 128.5617,34.9042 27,9.0,South Korea 127.7719,34.863 127.7426,34.8326 127.7441,34.8058 127.7509,34.7939 127.7978,34.7608 127.8245,34.7784 127.836,34.7821 127.8665,34.7789 127.8898,34.7744 127.9075,34.7645 127.8932,34.6617 127.8787,34.6561 127.8153,34.6586 127.7188,34.6725 127.6932,34.6831 127.6872,34.7002 127.6565,34.8042 127.6615,34.817 127.6713,34.8408 127.7023,34.8784 127.7161,34.8905 127.7329,34.8942 127.7525,34.8896 127.7629,34.8835 127.7692,34.8747 127.7719,34.863 127.7719,34.863 16,1.0,Tunisia 11.1147,34.6299 11.1028,34.636 11.108,34.6615 11.1161,34.6721 11.2236,34.7839 11.2553,34.7791 11.2734,34.7729 11.2876,34.7644 11.2679,34.704 11.2427,34.6933 11.2075,34.6816 11.1779,34.6722 11.163,34.665 11.1251,34.6384 11.1147,34.6299 11.1147,34.6299 19,9.0,Japan 129.3052,34.6468 129.3206,34.6364 129.3375,34.6189 129.3325,34.5892 129.3126,34.5095 129.3082,34.4958 129.2286,34.3103 129.2107,34.2715 129.2031,34.263 129.185,34.2584 129.1689,34.2566 129.0874,34.3014 129.0775,34.3183 129.1325,34.5185 129.1657,34.5928 129.273,34.6461 129.2924,34.6513 129.3052,34.6468 129.3052,34.6468 96,3.0,Lebanon 35.9263,34.6087 35.9843,34.5938 36.0407,34.5951 36.0663,34.6001 36.0752,34.6055 36.2518,34.6034 36.3294,34.6006 36.4122,34.5918 36.4055,34.556 36.3504,34.5159 36.3172,34.4995 36.3041,34.4623 36.383,34.4634 36.4072,34.4529 36.4784,34.3936 36.4993,34.3058 36.5463,34.1899 36.5764,34.1667 36.4697,34.0692 36.3504,33.9958 36.3031,33.9591 36.281,33.9372 36.2364,33.8732 36.2822,33.8404 36.3106,33.842 36.3415,33.8163 36.3267,33.7932 36.3061,33.7891 36.1939,33.8185 36.0244,33.7899 35.9705,33.7321 35.9243,33.6806 35.8937,33.6065 35.9206,33.6031 35.9787,33.5817 36.0121,33.5482 35.9877,33.516 35.8875,33.4294 35.8367,33.3924 35.8057,33.38 35.7799,33.3659 35.7682,33.3337 35.7478,33.3132 35.7403,33.31 35.723,33.3039 35.5803,33.2391 35.5776,33.2086 35.5394,33.233 35.4968,33.1594 35.4795,33.0899 35.4597,33.0782 35.4594,33.0612 35.3797,33.0315 35.332,33.0252 35.306,33.0256 35.276,33.0513 35.2194,33.0615 35.0641,33.0588 35.0553,33.0567 35.0961,33.0939 35.1428,33.1457 35.1591,33.1799 35.1638,33.2123 35.1748,33.2682 35.2175,33.3883 35.2277,33.417 35.2545,33.4346 35.2841,33.4583 35.3106,33.4892 35.3364,33.5502 35.3493,33.597 35.3709,33.6506 35.3957,33.7041 35.4211,33.7409 35.4328,33.7631 35.4375,33.7886 35.4377,33.8204 35.4365,33.8275 35.4295,33.8641 35.4774,33.8693 35.502,33.8637 35.5284,33.8741 35.5882,33.9747 35.6009,34.0678 35.5878,34.1034 35.5838,34.164 35.6001,34.1788 35.6026,34.2429 35.6232,34.2743 35.7726,34.3928 35.8541,34.4333 35.9369,34.489 35.9451,34.5185 35.9408,34.5732 35.9263,34.6087 35.9263,34.6087 32,9.0,Japan 134.5874,34.1462 134.5768,34.1477 134.5627,34.1553 134.4994,34.1995 134.4882,34.2284 134.4864,34.2443 134.4922,34.2588 134.4995,34.2684 134.6252,34.4001 134.7003,34.4731 134.8076,34.5476 134.8281,34.5555 134.8449,34.5523 134.8528,34.5374 134.8499,34.5216 134.8174,34.4718 134.7983,34.4489 134.7693,34.4195 134.7449,34.3945 134.7341,34.3796 134.7268,34.3595 134.7187,34.3282 134.7201,34.3179 134.7451,34.2759 134.7609,34.2604 134.7711,34.2504 134.7767,34.2381 134.7714,34.223 134.7598,34.215 134.6153,34.1551 134.5874,34.1462 134.5874,34.1462 22,9.0,South Korea 126.2174,34.453 126.2193,34.438 126.204,34.4032 126.1808,34.3646 126.0954,34.3322 126.0356,34.3151 126.0195,34.3129 126.0083,34.3134 125.9832,34.3167 125.949,34.3405 125.9425,34.349 125.9381,34.3581 125.9354,34.3714 125.9374,34.3835 126.0775,34.5331 126.0895,34.5343 126.1095,34.5273 126.1345,34.5171 126.1711,34.5013 126.2146,34.4583 126.2174,34.453 126.2174,34.453 10,9.0,Japan 134.1974,34.4737 134.1884,34.423 134.175,34.3932 134.0199,34.4328 134.0189,34.4713 134.1039,34.5037 134.1612,34.5104 134.1905,34.5121 134.1974,34.4737 134.1974,34.4737 133,9.0,Japan 133.4142,33.9863 133.447,34.0085 133.4704,34.0611 133.4733,34.113 133.5063,34.1825 133.5647,34.2129 133.7204,34.3217 133.8325,34.3101 133.9088,34.3003 133.9321,34.3298 133.9576,34.3479 133.9783,34.3454 134.0495,34.306 134.0864,34.2533 134.1624,34.2124 134.26,34.1694 134.2974,34.1627 134.3775,34.1759 134.4044,34.1859 134.458,34.1077 134.4452,34.0781 134.4348,34.0529 134.4171,33.9892 134.4307,33.9461 134.4676,33.9414 134.5196,33.895 134.57,33.7796 134.5237,33.7599 134.4634,33.7386 134.414,33.711 134.2085,33.5857 134.1654,33.5191 134.1309,33.49 134.1223,33.4822 134.0933,33.4431 134.0723,33.408 134.0417,33.336 134.0286,33.2963 134.0238,33.2663 134.0225,33.2349 134.0121,33.2049 133.9411,33.245 133.8683,33.3189 133.86,33.3516 133.7508,33.4366 133.7312,33.4449 133.7004,33.453 133.5741,33.4789 133.5435,33.4797 133.4838,33.4771 133.46,33.473 133.4308,33.466 133.4106,33.4563 133.2211,33.3515 133.1863,33.347 133.1085,33.3255 133.0762,33.2841 133.0799,33.2406 133.0924,33.2139 133.0801,33.1806 133.0686,33.1597 132.9722,33.0465 132.9372,33.0102 132.8844,32.9874 132.8628,32.9792 132.8446,32.9613 132.8352,32.9367 132.8233,32.8192 132.8346,32.7311 132.7915,32.7066 132.7622,32.732 132.729,32.7374 132.6831,32.7308 132.644,32.7039 132.4671,32.7151 132.4624,32.7386 132.4891,32.7971 132.5161,32.8223 132.5377,32.8432 132.5416,32.8701 132.4798,32.8717 132.4691,32.8706 132.4409,32.8632 132.3419,32.8518 132.3108,32.859 132.2922,32.9883 132.3202,33.1369 132.3432,33.164 132.3625,33.2076 132.3164,33.2427 132.289,33.2569 132.2419,33.2534 132.2055,33.2736 132.2214,33.3955 132.1949,33.4303 132.1333,33.4157 132.0022,33.3481 131.9782,33.3214 131.9558,33.3116 131.8471,33.3033 131.9387,33.3591 132.1132,33.4358 132.1364,33.442 132.2459,33.5017 132.3915,33.5978 132.4171,33.61 132.4459,33.6229 132.4675,33.6363 132.4995,33.6744 132.5235,33.718 132.5276,33.7674 132.5366,33.8373 132.6048,33.95 132.7247,34.068 132.773,34.0795 132.8075,34.065 132.8679,33.9825 132.8817,33.9582 132.8907,33.9242 132.9408,33.8841 132.9732,33.8746 132.9954,33.8764 133.0304,33.8848 133.0755,33.9043 133.1011,33.9244 133.1424,33.9462 133.1812,33.9462 133.2474,33.9416 133.2994,33.9291 133.3497,33.925 133.3753,33.9378 133.4142,33.9863 133.4142,33.9863 16,9.0,Japan 129.163,34.1913 129.1632,34.1706 129.1256,34.0861 129.1026,34.0653 129.0693,34.0441 129.0546,34.0357 129.0177,34.0622 129.0157,34.1261 129.02,34.1607 129.0378,34.2638 129.0431,34.2792 129.0533,34.2838 129.1149,34.2689 129.1802,34.2394 129.163,34.1913 129.163,34.1913 12,9.0,Japan 132.3262,34.217 132.3268,34.1955 132.324,34.1715 132.312,34.0918 132.2743,34.0766 132.2213,34.1803 132.2173,34.1897 132.2147,34.207 132.2318,34.2219 132.3102,34.2389 132.3262,34.217 132.3262,34.217 17,-8.0,United States -119.7124,34.0461 -119.5428,34.0072 -119.4383,34.0159 -119.4077,34.0276 -119.3975,34.0279 -119.3601,34.0064 -119.3778,33.9771 -119.4344,33.9592 -119.5578,33.9327 -119.6169,33.9292 -119.6325,33.9293 -119.6812,33.9361 -119.7151,33.9537 -119.7619,34.0273 -119.7583,34.0445 -119.7124,34.0461 -119.7124,34.0461 17,-8.0,United States -119.8442,33.9515 -119.8135,33.9545 -119.8103,33.9245 -119.8803,33.8811 -119.9515,33.8677 -119.9655,33.8701 -119.989,33.8786 -120.0081,33.8897 -120.0161,33.8967 -120.0359,33.9216 -120.07,33.9683 -120.0284,33.978 -119.9787,33.9883 -119.8957,33.9983 -119.8793,33.9859 -119.8442,33.9515 -119.8442,33.9515 20,9.0,Japan 132.2555,33.8587 132.1599,33.8113 132.0469,33.816 132.0252,33.8412 132.0195,33.8501 132.0131,33.8668 132.0215,33.8997 132.0416,33.9076 132.0746,33.9094 132.1142,33.9033 132.1258,33.8838 132.1562,33.8569 132.1815,33.865 132.196,33.8741 132.2482,33.9025 132.2765,33.8958 132.2796,33.8847 132.2685,33.8661 132.2555,33.8587 132.2555,33.8587 272,9.0,Japan 129.5773,32.5248 129.6376,32.5942 129.6888,32.6617 129.6887,32.6823 129.6067,32.7657 129.5673,32.7568 129.5169,32.8014 129.4693,32.9037 129.4671,32.9286 129.5191,33.0416 129.5565,33.0297 129.5789,33.0162 129.5987,33.0041 129.6529,32.9387 129.6513,32.8708 129.633,32.8984 129.6236,32.8762 129.6252,32.8484 129.6354,32.8218 129.6832,32.7857 129.7798,32.8093 129.8011,32.8264 129.7743,32.9581 129.7582,32.976 129.7139,33.0058 129.5748,33.0788 129.4683,33.149 129.4018,33.1723 129.3985,33.2049 129.4201,33.3268 129.6657,33.2551 129.6831,33.3052 129.7099,33.338 129.7019,33.358 129.6568,33.3727 129.6327,33.4121 129.7007,33.4897 129.7524,33.4993 129.795,33.4677 129.7836,33.4361 129.8138,33.4049 129.8346,33.4022 129.8589,33.4109 129.8673,33.42 129.8918,33.4516 129.9759,33.5538 130.0384,33.6133 130.0672,33.5807 130.1144,33.5384 130.1963,33.5466 130.2302,33.5665 130.2475,33.5909 130.2989,33.7128 130.2872,33.7358 130.2818,33.7619 130.3271,33.8085 130.3656,33.8394 130.533,33.8978 130.637,33.8817 130.675,33.8744 130.812,33.8433 130.7852,33.7766 130.8572,33.6615 130.8758,33.6367 130.9284,33.5751 131.0247,33.5694 131.0438,33.5579 131.1016,33.5329 131.1813,33.5249 131.2482,33.5291 131.2926,33.5578 131.3135,33.5918 131.3348,33.6234 131.3566,33.6312 131.4158,33.6427 131.4727,33.6261 131.4987,33.6099 131.5214,33.5865 131.5595,33.5372 131.5697,33.505 131.5586,33.4291 131.5299,33.3774 131.4125,33.3055 131.3877,33.3028 131.3607,33.3144 131.3326,33.3026 131.331,33.2782 131.3466,33.2274 131.3687,33.2169 131.4004,33.2098 131.4225,33.2074 131.5883,33.1971 131.6294,33.196 131.6554,33.1982 131.6763,33.2072 131.7252,33.2099 131.6981,33.1628 131.6655,33.1213 131.6454,33.0828 131.7341,32.9527 131.8136,32.8672 131.8178,32.7937 131.7259,32.7469 131.7031,32.6946 131.7021,32.6899 131.6745,32.6427 131.6467,32.6456 131.596,32.6111 131.5316,32.5278 131.514,32.4987 131.5186,32.4722 131.533,32.4241 131.4785,32.3577 131.4449,32.3037 131.4055,32.2054 131.372,32.0984 131.3032,31.934 131.2757,31.8535 131.2805,31.7972 131.3016,31.7865 131.3198,31.7541 131.2794,31.5827 131.2266,31.4542 131.1923,31.3768 131.1639,31.3343 131.0757,31.35 131.0709,31.3776 131.035,31.4245 130.9798,31.4306 130.962,31.4324 130.9014,31.4135 130.8693,31.3874 130.8567,31.3664 130.8351,31.3166 130.8599,31.309 130.8831,31.3078 130.9359,31.2876 130.9588,31.2325 130.8079,31.1123 130.765,31.0822 130.7291,31.0712 130.7063,31.0661 130.68,31.0555 130.5777,31.0097 130.5516,30.9871 130.5366,30.9716 130.4984,30.965 130.5088,31.039 130.562,31.0805 130.5931,31.1233 130.6261,31.2141 130.629,31.2795 130.6022,31.3641 130.5039,31.5078 130.4611,31.5146 130.436,31.529 130.4323,31.5507 130.481,31.5816 130.5111,31.5831 130.5488,31.5602 130.5525,31.5227 130.5813,31.5181 130.6051,31.5407 130.6247,31.5662 130.6373,31.6052 130.638,31.647 130.6042,31.6714 130.508,31.6897 130.4753,31.6787 130.4546,31.6596 130.4405,31.6411 130.3913,31.5585 130.365,31.4935 130.3508,31.445 130.346,31.4112 130.3552,31.3843 130.3914,31.2962 130.4052,31.2775 130.4378,31.2567 130.4686,31.2436 130.4937,31.2275 130.484,31.1805 130.4687,31.1473 130.4148,31.1202 130.3507,31.1287 130.344,31.1602 130.3167,31.1966 130.289,31.2008 130.1698,31.2094 130.0858,31.2101 130.0618,31.2126 130.0344,31.3041 130.0645,31.3609 130.1022,31.3845 130.1353,31.4185 130.149,31.458 130.1644,31.5156 130.1668,31.5905 130.0872,31.6808 130.0487,31.7032 130.0166,31.7193 130.0077,31.7412 130.0122,31.7849 130.0304,31.864 129.9933,31.9714 130.0082,32.0538 130.0367,32.0876 130.0885,32.0871 130.0993,32.0696 130.1178,32.0602 130.1525,32.0811 130.176,32.1252 130.2906,32.2871 130.345,32.3492 130.3791,32.3828 130.3948,32.3989 130.4289,32.4674 130.4394,32.5524 130.4179,32.5956 130.2806,32.5832 130.2928,32.6002 130.3952,32.6556 130.4327,32.6789 130.4371,32.7467 130.4152,32.7787 130.3854,32.8038 130.341,32.8382 130.2872,32.8745 130.2639,32.9235 130.2535,32.9531 130.2599,33.0075 130.2466,33.0504 130.1944,33.0996 130.042,33.1336 129.9689,33.0688 129.9958,33.0116 130.0074,32.9935 130.0491,32.9215 130.0149,32.8685 129.991,32.8591 129.9417,32.8369 129.9271,32.8173 129.9579,32.7992 129.9986,32.7929 130.0254,32.7984 130.0503,32.8113 130.0714,32.8244 130.1046,32.8308 130.1449,32.8254 130.1729,32.8003 130.2016,32.7558 130.2074,32.7329 130.2008,32.6924 130.1702,32.6227 130.046,32.5619 130.0078,32.551 129.9662,32.5974 129.9754,32.6374 130.0214,32.665 130.0327,32.6885 130.0049,32.7465 129.9192,32.7478 129.7971,32.703 129.7758,32.6897 129.7585,32.6559 129.742,32.6225 129.7287,32.6073 129.6532,32.5477 129.6257,32.5338 129.5838,32.5257 129.5773,32.5248 129.5773,32.5248 33,1.0,Tunisia 10.8509,33.6009 10.8472,33.6464 10.8425,33.659 10.8361,33.6674 10.8253,33.6788 10.8087,33.6922 10.7931,33.6963 10.7816,33.6962 10.7642,33.6902 10.7529,33.678 10.7463,33.6684 10.7265,33.6687 10.7165,33.6737 10.7052,33.693 10.7003,33.706 10.7007,33.7226 10.7135,33.8452 10.7213,33.8525 10.7512,33.8577 10.7823,33.8584 10.8983,33.8401 10.9543,33.8197 11.029,33.779 11.0384,33.7699 11.0407,33.7559 11.0351,33.7475 10.9934,33.7174 10.9793,33.7122 10.9237,33.6857 10.8686,33.6353 10.8583,33.6165 10.8509,33.6009 10.8509,33.6009 12,9.0,Japan 129.5523,33.66 129.5452,33.6621 129.4948,33.698 129.4907,33.7114 129.514,33.7846 129.5194,33.7961 129.5312,33.8182 129.6039,33.8054 129.6256,33.7249 129.5863,33.6893 129.5523,33.66 129.5523,33.66 41,9.0,South Korea 126.6751,33.4988 126.7298,33.4869 126.7761,33.4166 126.7718,33.3873 126.7525,33.3528 126.7435,33.3418 126.6807,33.2727 126.6002,33.2457 126.5607,33.233 126.4576,33.203 126.4349,33.1963 126.4226,33.1944 126.3442,33.1865 126.3149,33.185 126.2815,33.1922 126.2568,33.1982 126.1716,33.1892 126.148,33.1805 126.1353,33.1701 126.1242,33.1574 126.1015,33.1551 126.063,33.1792 126.0432,33.1925 126.0223,33.2105 126.0066,33.2255 125.9941,33.2416 125.9914,33.2521 125.9946,33.2777 126.0125,33.3068 126.0196,33.3157 126.1065,33.3853 126.1509,33.4142 126.2112,33.4366 126.4692,33.4942 126.5315,33.5025 126.6285,33.5134 126.6524,33.5137 126.6627,33.5104 126.6712,33.5032 126.6751,33.4988 126.6751,33.4988 14,-8.0,United States -118.3625,33.4403 -118.2913,33.4056 -118.2492,33.3909 -118.1957,33.3611 -118.1434,33.3087 -118.1392,33.2913 -118.1499,33.2728 -118.2955,33.2913 -118.4355,33.4465 -118.4269,33.4533 -118.3874,33.452 -118.3746,33.4487 -118.3625,33.4403 -118.3625,33.4403 19,9.0,Japan 129.3698,33.2703 129.3706,33.255 129.3342,33.1947 129.3244,33.1791 129.3162,33.1715 129.303,33.1616 129.2884,33.1528 129.2731,33.1455 129.2417,33.1317 129.2273,33.1283 129.2172,33.1278 129.1931,33.1328 129.2862,33.2943 129.3709,33.3497 129.3934,33.3512 129.4003,33.3433 129.3973,33.3029 129.3698,33.2703 129.3698,33.2703 119,3.0,Jordan 35.6028,32.6488 35.6438,32.6755 35.7169,32.7125 35.747,32.7075 35.8846,32.6839 35.9566,32.6269 35.979,32.5772 36.033,32.5069 36.0788,32.4916 36.1188,32.4819 36.1504,32.4969 36.2673,32.4233 36.2996,32.3969 36.3531,32.3457 36.4413,32.3395 36.4688,32.3271 36.5954,32.313 36.6766,32.3006 36.79,32.2777 36.8186,32.3055 37.1049,32.4641 37.4453,32.6506 37.45,32.6531 37.576,32.7218 37.9096,32.9008 38.2691,33.0918 38.4837,33.204 38.6474,33.2902 38.7443,33.3405 39.0353,32.4653 38.9353,32.4414 38.9928,32.2681 39.2092,32.3196 39.2501,32.2005 39.146,32.1189 39.0214,32.022 38.9543,31.9698 38.4383,31.8435 37.9374,31.7187 37.9148,31.713 37.6606,31.6492 37.4233,31.5896 37.1541,31.5211 36.9573,31.4705 37.2465,31.1823 37.4413,30.9886 37.5125,30.9164 37.9521,30.4703 37.6187,30.3027 37.4542,29.9687 37.3616,29.9522 36.9864,29.8848 36.6962,29.8315 36.4533,29.4697 36.2257,29.3039 36.0233,29.1564 35.4954,29.24 35.1419,29.2941 34.9163,29.3281 34.9154,29.3447 34.9216,29.4161 34.9334,29.4447 34.9583,29.4952 34.9346,29.5128 34.9325,29.537 34.9295,29.544 34.9618,29.6076 35.0305,29.8346 35.0276,29.8583 35.0269,29.8873 35.0278,29.9203 35.0581,30.0155 35.0734,30.0364 35.0984,30.0605 35.1145,30.0823 35.1215,30.1181 35.116,30.2856 35.1106,30.3813 35.1131,30.4103 35.1606,30.5607 35.1741,30.5876 35.2097,30.6477 35.2468,30.7248 35.2541,30.7566 35.2921,30.8525 35.312,30.8865 35.3222,30.8942 35.3494,30.9123 35.409,31.065 35.4161,31.0864 35.4135,31.1223 35.3869,31.1655 35.3656,31.1906 35.4064,31.3165 35.4249,31.3652 35.4271,31.3753 35.4324,31.4139 35.4321,31.4621 35.433,31.4943 35.4366,31.5269 35.4438,31.5687 35.4519,31.6062 35.4801,31.6763 35.4925,31.6997 35.5091,31.7286 35.5029,31.7928 35.4893,31.8939 35.4775,31.9624 35.4704,32.0055 35.5124,32.1672 35.5244,32.1816 35.5143,32.3418 35.5066,32.3582 35.501,32.369 35.5256,32.6094 35.5695,32.6432 35.5859,32.6509 35.6028,32.6488 35.6028,32.6488 182,3.0,Israel 35.0553,33.0567 35.0641,33.0588 35.2194,33.0615 35.276,33.0513 35.306,33.0256 35.332,33.0252 35.3797,33.0315 35.4594,33.0612 35.4597,33.0782 35.4795,33.0899 35.4968,33.1594 35.5394,33.233 35.5776,33.2086 35.5862,33.2091 35.6132,33.2171 35.6235,33.2147 35.6347,33.2073 35.6227,33.175 35.6207,33.1681 35.6063,33.088 35.6038,33.0544 35.5961,33.0136 35.5886,32.963 35.5875,32.8988 35.5784,32.8689 35.5681,32.8581 35.5724,32.8545 35.5955,32.82 35.5928,32.7785 35.6167,32.7606 35.6193,32.7255 35.6055,32.6911 35.6005,32.6664 35.6028,32.6488 35.5859,32.6509 35.5695,32.6432 35.5256,32.6094 35.501,32.369 35.5066,32.3582 35.4349,32.3767 35.3781,32.4496 35.3624,32.4679 35.3046,32.487 35.2717,32.4805 35.2434,32.4799 35.2179,32.4854 35.1622,32.5102 35.134,32.491 35.0362,32.4351 35.0209,32.4111 35.011,32.3889 35.0018,32.3582 35.0004,32.3472 35.0025,32.3315 34.9803,32.2032 34.9339,32.1173 34.9403,32.0968 34.9605,32.0185 34.9619,31.9921 34.9555,31.9497 34.942,31.9332 34.9209,31.8259 34.9204,31.7952 34.9296,31.7877 34.9688,31.7848 34.9904,31.7865 35.0629,31.7974 35.1074,31.7775 35.1639,31.7146 35.1174,31.7093 35.052,31.673 34.9561,31.6115 34.9403,31.5982 34.916,31.5681 34.9049,31.5516 34.9006,31.5241 34.9009,31.467 34.8919,31.4466 34.8653,31.4086 34.8431,31.3773 34.8445,31.3454 34.8629,31.3257 34.8924,31.3158 35.0929,31.3268 35.1747,31.3417 35.1947,31.3491 35.2135,31.3684 35.3329,31.4492 35.3548,31.4585 35.405,31.4641 35.4321,31.4621 35.4324,31.4139 35.4271,31.3753 35.4249,31.3652 35.4064,31.3165 35.3656,31.1906 35.3869,31.1655 35.4135,31.1223 35.4161,31.0864 35.409,31.065 35.3494,30.9123 35.3222,30.8942 35.312,30.8865 35.2921,30.8525 35.2541,30.7566 35.2468,30.7248 35.2097,30.6477 35.1741,30.5876 35.1606,30.5607 35.1131,30.4103 35.1106,30.3813 35.116,30.2856 35.1215,30.1181 35.1145,30.0823 35.0984,30.0605 35.0734,30.0364 35.0581,30.0155 35.0278,29.9203 35.0269,29.8873 35.0276,29.8583 35.0305,29.8346 34.9618,29.6076 34.9295,29.544 34.9325,29.537 34.9346,29.5128 34.9208,29.5163 34.893,29.4905 34.8589,29.4538 34.8329,29.4996 34.8212,29.5737 34.8288,29.5976 34.8279,29.6176 34.8029,29.7075 34.7087,29.9575 34.6785,30.0559 34.5695,30.331 34.5007,30.3731 34.4985,30.4009 34.5141,30.4521 34.4449,30.6568 34.3569,30.8251 34.2429,31.128 34.2233,31.1817 34.2896,31.2249 34.3268,31.2651 34.3201,31.3191 34.3442,31.3596 34.434,31.436 34.4685,31.4633 34.4952,31.4797 34.5142,31.5046 34.4459,31.5609 34.4506,31.5682 34.4662,31.5912 34.509,31.6486 34.5411,31.6917 34.6251,31.8393 34.6634,31.9118 34.6856,31.9677 34.6877,31.9786 34.7337,32.0897 34.7525,32.1423 34.7578,32.1566 34.7891,32.2547 34.8231,32.3713 34.8271,32.3836 34.8504,32.4739 34.894,32.6767 34.9001,32.7303 34.908,32.7869 34.9438,32.798 34.9696,32.7788 34.9889,32.7864 35.0162,32.8124 35.0276,32.836 35.032,32.856 35.0264,32.9177 35.0334,32.9502 35.0427,32.9812 35.0568,33.039 35.0553,33.0567 35.0553,33.0567 534,2.0,Libya 11.5111,33.134 11.592,33.0801 11.6229,33.0648 11.7258,33.0485 11.7774,33.0461 11.8623,33.028 11.8926,33.0135 11.9766,32.9672 12.0099,32.9468 12.062,32.9148 12.158,32.8637 12.2603,32.8113 12.2854,32.8012 12.3278,32.7919 12.3503,32.789 12.5011,32.7706 12.5433,32.7641 12.7247,32.7582 12.7554,32.7601 12.7972,32.763 12.8372,32.769 12.8924,32.7792 12.9839,32.806 12.9988,32.8118 13.0749,32.8351 13.1053,32.8468 13.1236,32.862 13.143,32.8727 13.1892,32.8806 13.2339,32.8823 13.3176,32.8679 13.3454,32.8594 13.45,32.8115 13.5022,32.7856 13.5264,32.7713 13.5614,32.7589 13.5952,32.7523 13.6253,32.7513 13.7051,32.7548 13.7304,32.7601 13.7579,32.7629 13.8747,32.7419 13.8947,32.7367 13.912,32.7295 13.9343,32.7177 13.9751,32.7003 14.0,32.6928 14.0209,32.6893 14.0612,32.6873 14.1319,32.6811 14.1527,32.6775 14.182,32.6674 14.2989,32.5962 14.3962,32.5206 14.4198,32.4966 14.4298,32.4893 14.4679,32.4742 14.5269,32.4668 14.6055,32.4547 14.6351,32.4447 14.706,32.413 14.7713,32.4097 14.9158,32.401 15.1089,32.3735 15.1462,32.3623 15.1696,32.3509 15.2549,32.2831 15.3496,32.1186 15.3401,32.0023 15.335,31.9862 15.3321,31.9603 15.3402,31.9244 15.3586,31.8671 15.3786,31.8212 15.468,31.6245 15.5999,31.4548 15.6686,31.3955 15.7339,31.3545 15.8435,31.3038 15.8757,31.2898 15.9563,31.2563 16.0601,31.227 16.0951,31.2208 16.1618,31.2064 16.2039,31.199 16.2339,31.1958 16.4788,31.1839 16.5023,31.1828 16.5433,31.1864 16.5767,31.1905 16.6344,31.1923 16.6843,31.1933 16.7107,31.1896 16.7379,31.1843 16.9075,31.1487 16.9707,31.1312 17.0002,31.1209 17.0369,31.1063 17.0912,31.0919 17.111,31.0873 17.2475,31.0599 17.3446,31.0476 17.3801,31.0321 17.402,31.0163 17.4209,31.0014 17.4471,30.9888 17.4773,30.9819 17.5484,30.9704 17.5814,30.9623 17.7851,30.8886 17.8709,30.8327 17.9002,30.8171 18.0337,30.7805 18.1556,30.7477 18.1971,30.7247 18.2238,30.6945 18.2754,30.64 18.335,30.5932 18.3618,30.5749 18.5734,30.43 18.6889,30.363 18.7645,30.3328 18.7774,30.3197 18.8808,30.2652 18.9018,30.2549 18.9329,30.2427 18.9768,30.2331 19.0007,30.2312 19.1381,30.2299 19.1933,30.2333 19.2911,30.2524 19.3199,30.2605 19.5924,30.3831 19.7204,30.4699 19.7393,30.4847 19.8455,30.5975 20.0016,30.7754 20.0318,30.8162 20.0827,30.9086 20.0964,30.9364 20.1089,30.9733 20.123,31.0205 20.1273,31.0422 20.1293,31.1153 20.1221,31.1522 20.1173,31.1754 20.0795,31.2624 20.0661,31.2846 20.0453,31.3077 20.0232,31.3188 20.0046,31.3428 19.9938,31.3664 19.9569,31.4473 19.9397,31.4883 19.9273,31.5329 19.8986,31.6695 19.8949,31.6917 19.8939,31.7126 19.8982,31.7879 19.9163,31.9222 19.9232,31.9415 19.9831,32.0434 20.0335,32.1195 20.0586,32.1487 20.3109,32.3731 20.5268,32.517 20.5409,32.5244 20.6773,32.5751 20.8439,32.6482 20.862,32.661 20.8816,32.6717 20.9143,32.6882 20.9423,32.7011 21.0426,32.7379 21.0961,32.7407 21.152,32.7362 21.2054,32.7345 21.2576,32.7335 21.2992,32.7366 21.345,32.7418 21.3614,32.7469 21.4002,32.7599 21.4439,32.7798 21.4695,32.7953 21.486,32.8128 21.5069,32.8334 21.5996,32.898 21.6859,32.9075 21.7116,32.8941 21.7553,32.88 21.8263,32.8658 21.8558,32.8655 21.9192,32.8681 21.9523,32.8717 21.9754,32.8777 22.0396,32.8741 22.1682,32.8479 22.2888,32.8444 22.3194,32.8415 22.346,32.8313 22.395,32.7992 22.4843,32.7489 22.5071,32.7458 22.5431,32.7472 22.7756,32.689 22.8079,32.6731 22.8394,32.6568 22.8746,32.6437 22.9043,32.6353 22.9312,32.6327 22.9652,32.637 23.0894,32.5834 23.0735,32.5478 23.0551,32.2959 23.1009,32.2744 23.1389,32.2651 23.1824,32.2345 23.2172,32.1802 23.2498,32.1711 23.4199,32.1507 23.4602,32.1463 23.5338,32.1456 23.6079,32.1472 23.6893,32.1392 23.7693,32.1192 23.9212,32.0769 23.9586,32.0564 23.9385,32.0333 23.9594,32.0129 24.0327,31.976 24.0565,31.9671 24.0861,31.9644 24.5114,31.9495 24.5363,31.9533 24.5803,31.9641 24.6216,31.9879 24.7027,31.9897 24.7504,31.9689 24.81,31.9566 24.8812,31.9441 24.9502,31.9307 24.9761,31.9134 25.0005,31.8912 24.9967,31.8597 24.9908,31.8195 25.0362,31.7549 25.057,31.7311 25.088,31.6934 25.1181,31.6342 25.119,31.6115 25.0971,31.599 25.0678,31.5761 25.0406,31.5504 25.0284,31.5324 25.015,31.4873 24.9767,31.4458 24.9306,31.4102 24.8614,31.3678 24.8359,31.336 24.837,31.1244 24.872,31.0 24.8795,30.9805 24.9447,30.8377 24.963,30.8044 24.985,30.755 24.9448,30.6007 24.8938,30.4733 24.844,30.3937 24.8224,30.3654 24.7866,30.3298 24.7399,30.27 24.6912,30.1922 24.6781,30.1551 24.675,30.1253 24.6794,30.1046 24.694,30.0862 24.737,30.0006 24.7781,29.9124 24.789,29.8828 24.8008,29.8484 24.8038,29.8255 24.7996,29.8039 24.7928,29.7838 24.8528,29.5527 24.8462,29.4757 24.865,29.4294 24.8794,29.4001 24.9657,29.2164 24.9673,28.9247 24.9699,28.2462 24.9703,28.0937 24.9698,27.9689 24.9701,27.8679 24.9699,27.7294 24.9691,27.6356 24.9697,27.5771 24.9689,27.3969 24.9678,27.0504 24.9683,26.9692 24.9686,26.9118 24.9682,26.6899 24.968,26.5377 24.9674,26.4543 24.9663,25.942 24.9659,25.4142 24.9655,24.9667 24.966,24.7592 24.9666,24.3161 24.9684,23.9969 24.9692,23.554 24.9705,22.2619 24.9714,22.0221 24.9707,21.9751 24.9706,20.987 24.9707,19.9767 24.9522,19.9771 24.7336,19.9781 24.6047,19.9777 24.5474,19.977 24.4263,19.9748 24.125,19.9781 24.0142,19.9798 23.9769,19.9767 23.9714,19.8843 23.9721,19.4924 23.9737,19.4772 23.4283,19.7674 22.9928,19.9955 22.2942,20.3571 21.7551,20.6331 21.3559,20.8355 20.9339,21.0491 20.3836,21.3236 19.8495,21.5876 19.2745,21.8695 18.9766,22.0136 18.7454,22.1256 18.3411,22.3197 18.0144,22.475 17.6654,22.6411 17.6346,22.6556 16.9592,22.9728 16.3258,23.2663 15.9812,23.4245 15.3162,23.1276 15.1142,23.0367 14.9793,22.9751 14.939,22.9551 14.8466,22.9089 14.7999,22.8854 14.477,22.7219 14.4005,22.6829 14.3391,22.6505 14.2174,22.5888 13.892,22.858 13.5959,23.1018 13.5786,23.1135 13.5473,23.1331 13.527,23.1429 13.4512,23.1716 13.3976,23.1895 13.3736,23.1938 13.3295,23.2033 13.0932,23.2552 12.8718,23.304 12.5758,23.3677 12.4576,23.3931 12.3834,23.4081 12.3241,23.4206 12.2649,23.4332 11.9986,23.4897 11.9715,23.496 11.9043,23.6213 11.7425,23.9151 11.7113,23.9734 11.5446,24.2752 11.4552,24.3004 11.4253,24.3098 11.3357,24.3352 11.2611,24.3559 11.0971,24.4025 10.999,24.4306 10.9561,24.4451 10.819,24.4931 10.7435,24.5232 10.7018,24.5399 10.6546,24.5228 10.5633,24.4881 10.4668,24.4506 10.4017,24.4561 10.2903,24.5393 10.2393,24.5784 10.2274,24.6324 10.2164,24.6816 10.2054,24.7233 10.1614,24.7472 10.1222,24.7679 10.042,24.8103 10.0382,24.8401 10.0372,24.9086 10.0352,24.9774 10.0328,25.0594 10.0265,25.2512 10.0196,25.3013 9.993,25.3374 9.8435,25.5325 9.7791,25.616 9.4674,26.0199 9.4233,26.0755 9.3864,26.1243 9.3815,26.1474 9.3861,26.1707 9.4304,26.2411 9.4872,26.3282 9.6568,26.4004 9.7505,26.4392 9.8592,26.4844 9.8865,26.5804 9.9042,26.6435 9.8832,26.6657 9.9003,26.7477 9.9071,26.775 9.918,26.8296 9.8959,26.8448 9.8356,26.8786 9.8168,26.9753 9.8057,27.0262 9.7903,27.0677 9.731,27.2244 9.7221,27.2857 9.7637,27.4087 9.8066,27.5071 9.8611,27.5779 9.8778,27.6177 9.9355,27.7933 9.943,27.8153 9.9414,27.8377 9.8888,27.962 9.8297,28.1005 9.818,28.1282 9.7797,28.2179 9.7778,28.2392 9.7858,28.2941 9.7998,28.3759 9.8254,28.54 9.8343,28.5985 9.8467,28.6768 9.855,28.736 9.8592,28.774 9.8604,28.8172 9.8567,28.9176 9.8525,28.9605 9.8436,29.0335 9.8395,29.0574 9.8345,29.0861 9.8271,29.1274 9.8172,29.1659 9.7529,29.3979 9.7448,29.4211 9.7127,29.4883 9.6685,29.5785 9.6485,29.6162 9.6256,29.6579 9.5666,29.7558 9.5543,29.7738 9.5391,29.7943 9.4369,29.9323 9.4017,29.9704 9.3902,29.988 9.3736,30.009 9.3505,30.0299 9.3337,30.0432 9.3067,30.0672 9.2994,30.0934 9.3707,30.1288 9.4992,30.1889 9.5248,30.2006 9.6251,30.2444 9.7227,30.2821 9.8282,30.3066 9.8512,30.3056 9.8794,30.3224 9.9692,30.4272 10.0708,30.554 10.1988,30.694 10.21,30.7161 10.2641,30.8353 10.2774,30.8759 10.2514,31.0421 10.2075,31.1632 10.1569,31.2804 10.1102,31.3873 10.1233,31.467 10.274,31.6588 10.3017,31.684 10.336,31.6948 10.3743,31.6941 10.4029,31.6904 10.4307,31.6853 10.4558,31.6857 10.4849,31.7016 10.5174,31.7258 10.6025,31.8255 10.6966,31.9287 10.8001,31.9891 10.8166,32.0056 10.8456,32.0565 10.8644,32.0966 11.0149,32.1638 11.1296,32.2102 11.1674,32.2258 11.3114,32.2833 11.4,32.317 11.4683,32.3539 11.5011,32.3733 11.536,32.3922 11.5525,32.4059 11.5667,32.4346 11.5649,32.4666 11.5433,32.5096 11.522,32.531 11.502,32.545 11.4796,32.5626 11.4578,32.586 11.4519,32.6147 11.4622,32.827 11.4689,32.9061 11.4793,33.0066 11.4898,33.0378 11.5019,33.0656 11.5071,33.0889 11.51,33.1098 11.5111,33.134 11.5111,33.134 21,9.0,Japan 128.9558,33.0314 128.9427,33.0125 128.9393,33.0027 128.9293,32.9487 128.9362,32.9407 128.9581,32.9431 128.9691,32.9466 128.9814,32.9533 129.0093,32.9605 129.0154,32.9493 129.0115,32.9358 129.0057,32.9247 128.9001,32.7861 128.8879,32.7819 128.8378,32.8981 128.8738,32.9245 128.933,33.0659 128.9476,33.1056 128.9602,33.0468 128.9558,33.0314 128.9558,33.0314 19,-8.0,United States -118.3762,32.9566 -118.3719,32.9466 -118.3662,32.9383 -118.3507,32.9229 -118.3282,32.9012 -118.2591,32.849 -118.2151,32.8181 -118.2152,32.7961 -118.2546,32.7804 -118.3234,32.816 -118.3329,32.822 -118.3395,32.8301 -118.3795,32.8904 -118.4164,32.9474 -118.4406,32.9961 -118.4396,33.0077 -118.4001,33.0062 -118.3762,32.9566 -118.3762,32.9566 29,2.0,Portugal -16.9212,32.601 -16.9659,32.619 -17.0454,32.6406 -17.0799,32.6467 -17.1357,32.6728 -17.1735,32.6923 -17.184,32.7011 -17.2103,32.7336 -17.2164,32.7419 -17.2318,32.7762 -17.1681,32.8318 -17.1471,32.8335 -17.1365,32.8285 -17.1294,32.821 -17.1109,32.8022 -17.103,32.7952 -17.0802,32.7865 -17.0305,32.7727 -17.0077,32.774 -16.991,32.7768 -16.9377,32.7943 -16.8912,32.8024 -16.88,32.8012 -16.6937,32.7223 -16.6988,32.7089 -16.7976,32.6095 -16.8169,32.602 -16.9212,32.601 -16.9212,32.601 18,9.0,Japan 128.4854,32.6603 128.4803,32.6756 128.4804,32.7192 128.4819,32.7378 128.4936,32.7453 128.6195,32.7549 128.6461,32.7559 128.6769,32.7152 128.7187,32.6497 128.7334,32.6105 128.5748,32.5528 128.5028,32.5635 128.4712,32.5687 128.4433,32.5751 128.4339,32.582 128.4524,32.6252 128.4854,32.6603 128.4854,32.6603 1594,-6.0,Mexico -108.9834,28.1809 -108.895,27.9946 -108.8802,27.9768 -108.8765,27.9749 -108.8724,27.9626 -108.8625,27.9541 -108.8465,27.9355 -108.841,27.9308 -108.8277,27.9194 -108.7842,27.8986 -108.7696,27.8946 -108.76,27.8593 -108.7417,27.7923 -108.721,27.7737 -108.6012,27.6655 -108.5893,27.6547 -108.6189,27.605 -108.5743,27.5451 -108.5497,27.5304 -108.5279,27.5229 -108.5237,27.5167 -108.5169,27.5112 -108.5273,27.443 -108.4723,27.3066 -108.4715,27.2982 -108.4755,27.285 -108.4903,27.2633 -108.5008,27.2582 -108.5284,27.1999 -108.4795,27.1096 -108.4761,27.1022 -108.4391,27.0344 -108.4287,27.0244 -108.4116,26.9992 -108.3955,26.9831 -108.3821,26.9827 -108.3676,26.9844 -108.3576,26.9856 -108.3427,26.9874 -108.3376,26.9835 -108.2979,26.945 -108.2153,27.0305 -108.1964,27.008 -108.1775,27.0002 -108.15,26.9972 -108.1426,26.9977 -108.1421,26.9978 -108.1302,26.9958 -108.1235,26.9926 -108.117,26.9878 -108.1141,26.9833 -108.103,26.955 -108.0931,26.9425 -108.0586,26.9143 -108.0348,26.902 -108.0256,26.9 -108.0204,26.8988 -107.9285,26.8985 -107.9158,26.8985 -107.9014,26.8969 -107.8953,26.8946 -107.8868,26.8875 -107.8808,26.8738 -107.8813,26.8665 -107.8895,26.7454 -107.8826,26.7017 -107.781,26.2836 -107.6902,26.1622 -107.6863,26.1566 -107.6834,26.1524 -107.6801,26.1475 -107.6726,26.1433 -107.6283,26.1382 -107.5086,26.1336 -107.4976,26.1326 -107.4714,26.1327 -107.4576,26.1306 -107.4403,26.1313 -107.3236,26.126 -107.3211,26.1258 -107.2855,26.1167 -107.2767,26.1107 -107.2476,26.0809 -107.2399,26.0662 -107.2275,26.018 -107.2188,25.987 -107.2157,25.9763 -107.212,25.9645 -107.2013,25.9534 -107.1924,25.9488 -107.1706,25.9481 -107.1682,25.9458 -107.154,25.8994 -107.145,25.8823 -107.139,25.8743 -107.1283,25.866 -107.1067,25.8556 -107.0726,25.8574 -107.0637,25.8574 -107.0513,25.8406 -107.0453,25.8292 -107.0118,25.7894 -107.0062,25.7794 -106.8744,25.6954 -106.867,25.6913 -106.8635,25.6869 -106.8544,25.6819 -106.8438,25.6686 -106.8352,25.6533 -106.8192,25.6326 -106.8162,25.6266 -106.8599,25.5267 -106.865,25.5209 -106.9341,25.4698 -106.9681,25.306 -106.9733,25.2941 -106.977,25.2826 -106.9786,25.2675 -106.9865,25.2367 -106.9967,25.1864 -106.9951,25.1666 -106.9956,25.1396 -106.9879,25.0942 -106.9727,25.0578 -106.954,25.019 -106.948,24.9997 -106.9321,24.9696 -106.9266,24.9606 -106.9261,24.9599 -106.8966,24.9233 -106.8661,24.8902 -106.8591,24.8782 -106.8367,24.8494 -106.8338,24.8395 -106.8334,24.8332 -106.8301,24.7869 -106.8273,24.7812 -106.823,24.7792 -106.7833,24.7779 -106.7752,24.7784 -106.7565,24.7774 -106.7507,24.7691 -106.747,24.7676 -106.7368,24.7563 -106.7239,24.7464 -106.704,24.736 -106.6742,24.7187 -106.6596,24.7121 -106.6397,24.6832 -106.6322,24.6674 -106.5983,24.6381 -106.575,24.6125 -106.556,24.5967 -106.5479,24.5822 -106.5403,24.5616 -106.5249,24.5308 -106.4719,24.4692 -106.4665,24.4646 -106.4432,24.4363 -106.443,24.4218 -106.4446,24.3747 -106.441,24.3621 -106.3682,24.2765 -106.3398,24.2575 -106.324,24.2555 -106.309,24.2558 -106.2446,24.2744 -106.2321,24.2812 -106.2218,24.2837 -106.2169,24.287 -106.1943,24.3327 -106.1729,24.3526 -106.1484,24.3639 -106.1339,24.3682 -106.1154,24.3659 -106.1071,24.3647 -106.0698,24.3536 -106.0666,24.3526 -106.0542,24.3474 -106.0009,24.325 -105.9575,24.2919 -105.9494,24.2858 -105.9372,24.2667 -105.9288,24.2503 -105.9186,24.236 -105.8989,24.2007 -105.8927,24.191 -105.881,24.1669 -105.8588,24.1325 -105.8353,24.0789 -105.8338,24.0715 -105.8278,24.0667 -105.7612,24.0175 -105.7108,24.0214 -105.7872,23.8844 -105.7714,23.7149 -105.7483,23.6878 -105.748,23.6848 -105.7466,23.6719 -105.7432,23.6576 -105.7343,23.6203 -105.7118,23.5854 -105.7036,23.58 -105.6824,23.57 -105.6832,23.5673 -105.6796,23.5628 -105.6586,23.5507 -105.6532,23.5495 -105.6516,23.5474 -105.6393,23.5317 -105.633,23.5166 -105.6243,23.5039 -105.6246,23.4826 -105.6198,23.474 -105.5931,23.4483 -105.5939,23.4442 -105.5989,23.4308 -105.6043,23.4222 -105.5976,23.4157 -105.5949,23.4084 -105.5869,23.3997 -105.568,23.3899 -105.5682,23.3865 -105.5892,23.3596 -105.588,23.3572 -105.5914,23.3536 -105.5945,23.3527 -105.5937,23.3505 -105.5922,23.349 -105.5799,23.3371 -105.5783,23.3275 -105.5718,23.3243 -105.5663,23.3169 -105.5595,23.3165 -105.5654,23.3093 -105.5645,23.3062 -105.565,23.3012 -105.5598,23.2933 -105.5586,23.2916 -105.5581,23.2816 -105.5542,23.2788 -105.5554,23.2714 -105.5518,23.2614 -105.5411,23.2621 -105.5398,23.2599 -105.5247,23.2621 -105.516,23.2564 -105.5084,23.2508 -105.5105,23.2317 -105.5066,23.2293 -105.5053,23.214 -105.5018,23.2137 -105.4989,23.2118 -105.4979,23.2021 -105.4948,23.1891 -105.4831,23.1688 -105.4672,23.1471 -105.4508,23.1174 -105.4416,23.1037 -105.2763,23.0991 -105.2662,23.0143 -105.09,23.012 -104.9874,22.9738 -104.8396,22.9076 -104.763,22.7101 -104.8823,22.6356 -104.8795,22.5854 -104.8759,22.52 -104.828,22.5036 -104.817,22.4999 -104.6546,22.5936 -104.4823,22.5574 -104.4379,22.3991 -104.347,22.3731 -104.1867,22.4236 -104.1837,22.422 -104.184,22.418 -104.1703,22.2191 -104.2326,22.0312 -104.2077,21.9733 -104.1929,21.9387 -104.1538,21.8766 -104.1298,21.8513 -104.1208,21.8422 -104.0991,21.828 -104.0723,21.8145 -104.0631,21.8112 -104.0194,21.7956 -104.0263,21.6284 -104.0238,21.6016 -104.0228,21.5912 -104.0153,21.5699 -104.0183,21.5641 -104.0684,21.5014 -103.822,21.3403 -103.8465,21.2378 -103.86,21.224 -103.875,21.1974 -103.8814,21.1945 -103.8853,21.1784 -103.8916,21.18 -103.896,21.1783 -103.8984,21.1753 -103.894,21.1655 -103.8977,21.1667 -103.9065,21.1725 -103.9102,21.1727 -103.9113,21.1713 -103.9161,21.1729 -103.9197,21.1724 -103.9243,21.1664 -103.9257,21.1678 -103.9332,21.1682 -103.9353,21.1667 -103.9353,21.1626 -103.9354,21.1594 -103.9447,21.1613 -103.9453,21.1638 -103.9491,21.1736 -103.9511,21.1732 -103.9544,21.1662 -103.9607,21.169 -103.9696,21.1654 -103.9755,21.1582 -103.9866,21.1632 -103.9969,21.1594 -104.0029,21.1607 -104.0101,21.1596 -104.0178,21.1548 -104.0241,21.1536 -104.0275,21.1564 -104.0526,21.1585 -104.0562,21.1626 -104.0575,21.1628 -104.0614,21.1635 -104.0723,21.1582 -104.0787,21.1508 -104.0829,21.1482 -104.088,21.1474 -104.0957,21.144 -104.0978,21.1408 -104.1006,21.1212 -104.1002,21.1157 -104.0966,21.1026 -104.0791,21.0845 -104.0851,21.0668 -104.0816,21.0611 -104.0886,21.0506 -104.0938,21.0331 -104.0945,21.021 -104.103,20.9802 -104.1006,20.9656 -104.0992,20.9572 -104.0964,20.9401 -104.0935,20.9352 -104.0881,20.9302 -104.081,20.9225 -104.0856,20.9201 -104.1102,20.9029 -104.1219,20.8887 -104.1285,20.8825 -104.1323,20.8746 -104.1371,20.859 -104.1377,20.8528 -104.1382,20.8483 -104.1397,20.8325 -104.1392,20.8105 -104.1452,20.7984 -104.1469,20.786 -104.1451,20.7804 -104.1449,20.755 -104.1453,20.742 -104.1406,20.7185 -104.1395,20.6875 -104.1385,20.6619 -104.1412,20.6487 -104.1494,20.6497 -104.1613,20.6599 -104.1727,20.6605 -104.1761,20.6638 -104.1772,20.671 -104.1865,20.6818 -104.2047,20.6883 -104.2192,20.6953 -104.2321,20.7089 -104.2409,20.7048 -104.2435,20.7068 -104.2455,20.7236 -104.2647,20.7459 -104.2745,20.755 -104.2882,20.7612 -104.2926,20.7598 -104.2963,20.763 -104.3015,20.7706 -104.3068,20.7731 -104.3223,20.771 -104.3308,20.7776 -104.3316,20.7807 -104.348,20.787 -104.3517,20.7954 -104.3517,20.7991 -104.3547,20.8012 -104.3678,20.8059 -104.3756,20.8266 -104.3794,20.8281 -104.3916,20.8428 -104.3922,20.8511 -104.3949,20.8524 -104.401,20.851 -104.4023,20.8641 -104.4056,20.8663 -104.4105,20.8658 -104.4121,20.8676 -104.4122,20.8794 -104.4161,20.883 -104.4237,20.8827 -104.4319,20.8909 -104.4455,20.8992 -104.4497,20.9007 -104.459,20.9005 -104.4648,20.8994 -104.4716,20.8981 -104.4843,20.8863 -104.4879,20.8874 -104.4962,20.8872 -104.4995,20.891 -104.5036,20.8988 -104.5089,20.9009 -104.5258,20.8993 -104.5293,20.9029 -104.531,20.9097 -104.5353,20.9076 -104.5473,20.908 -104.5485,20.9125 -104.5485,20.9216 -104.55,20.9227 -104.5549,20.9226 -104.5619,20.9301 -104.5729,20.9293 -104.5772,20.9326 -104.5822,20.9384 -104.5841,20.938 -104.5887,20.946 -104.5966,20.9493 -104.5948,20.9563 -104.593,20.9807 -104.6029,20.9737 -104.6258,20.9772 -104.6327,20.9744 -104.6404,20.9849 -104.6435,20.9873 -104.6531,20.9831 -104.6538,20.9828 -104.6565,20.9837 -104.663,20.9832 -104.6735,20.9804 -104.6795,20.9825 -104.6999,20.9844 -104.7057,20.9751 -104.7186,20.9717 -104.7253,20.9631 -104.7288,20.9616 -104.7353,20.9612 -104.7389,20.9524 -104.7433,20.9471 -104.7666,20.9307 -104.7702,20.9237 -104.771,20.9125 -104.7747,20.9082 -104.7799,20.9054 -104.7906,20.9054 -104.7963,20.9023 -104.8056,20.9007 -104.8185,20.8947 -104.8216,20.8933 -104.8379,20.8739 -104.8578,20.8835 -104.862,20.8842 -104.8648,20.882 -104.8662,20.8811 -104.8729,20.8833 -104.8742,20.8879 -104.8738,20.8935 -104.8774,20.8965 -104.8817,20.895 -104.8994,20.8853 -104.9079,20.8886 -104.9099,20.9033 -104.9182,20.9064 -104.9241,20.9063 -104.9447,20.906 -104.9521,20.8974 -104.9579,20.8975 -104.9695,20.8892 -104.9746,20.8882 -104.9803,20.8845 -104.9847,20.8764 -104.9959,20.8703 -104.9976,20.8664 -105.0003,20.8641 -105.0088,20.8637 -105.0171,20.8495 -105.023,20.846 -105.0351,20.8195 -105.0326,20.8045 -105.0417,20.7946 -105.0492,20.7919 -105.0526,20.7866 -105.0557,20.7851 -105.0527,20.7766 -105.0533,20.77 -105.0554,20.7676 -105.0635,20.7632 -105.0677,20.7506 -105.067,20.7457 -105.0784,20.74 -105.0897,20.7381 -105.0913,20.7307 -105.0962,20.7303 -105.1009,20.7194 -105.1079,20.7168 -105.1076,20.7137 -105.1053,20.7083 -105.1217,20.6817 -105.1232,20.6732 -105.1268,20.6701 -105.13,20.665 -105.1302,20.6612 -105.1069,20.6078 -105.1165,20.5517 -105.2068,20.4963 -105.3222,20.4685 -105.3683,20.4712 -105.4227,20.4683 -105.4661,20.4528 -105.4912,20.4395 -105.5467,20.4015 -105.5498,20.3605 -105.5335,20.3272 -105.4672,20.2209 -105.4181,20.0687 -105.3996,20.0214 -105.3871,19.9995 -105.3694,19.969 -105.3286,19.8999 -105.3094,19.8771 -105.2862,19.8574 -105.2588,19.828 -105.2013,19.7563 -105.1904,19.7366 -105.1748,19.703 -105.1404,19.656 -105.081,19.5984 -105.0416,19.5851 -104.9896,19.5596 -104.9714,19.5363 -104.9507,19.4737 -104.8948,19.3502 -104.8561,19.3178 -104.8241,19.2937 -104.7713,19.2636 -104.6784,19.2301 -104.5486,19.1558 -104.4651,19.1266 -104.3859,19.1061 -104.2442,19.0874 -104.2011,19.074 -104.1897,19.0555 -104.2031,19.0183 -104.1906,18.9896 -104.0786,18.9457 -104.0103,18.9231 -103.9206,18.8926 -103.8989,18.8842 -103.878,18.8752 -103.8454,18.8563 -103.8171,18.8343 -103.7134,18.7455 -103.6502,18.6879 -103.6291,18.673 -103.6195,18.6671 -103.599,18.6524 -103.5797,18.6298 -103.4501,18.4765 -103.435,18.4571 -103.4132,18.4179 -103.3939,18.3827 -103.3834,18.3597 -103.3709,18.3291 -103.3526,18.3087 -103.3244,18.2932 -103.2319,18.2525 -102.978,18.1796 -102.9362,18.1768 -102.9135,18.1723 -102.83,18.1402 -102.8095,18.1277 -102.7792,18.1106 -102.6997,18.0752 -102.6258,18.0478 -102.5959,18.0389 -102.5571,18.0308 -102.5131,18.0282 -102.4836,18.0277 -102.4502,18.0246 -102.3317,17.9914 -102.1665,17.9432 -102.1058,17.9246 -102.0573,17.9009 -102.0463,17.8983 -102.0211,17.8996 -101.9956,17.9156 -101.9719,17.9417 -101.9438,17.9621 -101.9144,17.9703 -101.8772,17.9687 -101.8293,17.9583 -101.798,17.9418 -101.7749,17.9283 -101.6951,17.8807 -101.6686,17.8598 -101.549,17.7163 -101.5301,17.6905 -101.5157,17.6582 -101.455,17.6086 -101.3223,17.5214 -101.2189,17.4701 -101.144,17.4401 -101.0134,17.36 -100.9822,17.3396 -100.9642,17.3222 -100.9442,17.3004 -100.9273,17.2761 -100.8891,17.2462 -100.788,17.1983 -100.7668,17.1896 -100.6755,17.163 -100.5569,17.1255 -100.3904,17.0692 -100.3286,17.0483 -100.2011,17.0014 -100.1636,16.9865 -100.1071,16.9609 -99.859,16.8821 -99.7526,16.8492 -99.7369,16.8363 -99.7209,16.7994 -99.7303,16.7764 -99.6184,16.7103 -99.566,16.6884 -99.4383,16.6658 -99.4173,16.6632 -99.3208,16.6538 -99.1135,16.6105 -98.918,16.5784 -98.6634,16.5347 -98.6349,16.5221 -98.6106,16.5004 -98.5855,16.458 -98.539,16.4009 -98.4979,16.3697 -98.4753,16.3563 -98.4604,16.3427 -98.4442,16.3212 -98.4365,16.3012 -98.4258,16.2925 -98.3283,16.2573 -98.2902,16.2457 -98.0973,16.2047 -98.0077,16.1907 -97.9725,16.168 -97.8126,16.0647 -97.7435,16.0096 -97.7221,15.9901 -97.6958,15.9672 -97.6758,15.9544 -97.6378,15.9424 -97.5555,15.9327 -97.5279,15.9412 -97.4039,15.9275 -97.1152,15.9005 -97.0803,15.8955 -97.0192,15.8792 -96.9869,15.86 -96.9542,15.8355 -96.7236,15.71 -96.4426,15.6388 -96.3611,15.626 -96.3216,15.6682 -96.2576,15.6595 -96.1713,15.6568 -96.1491,15.6597 -96.0997,15.6679 -96.0627,15.6759 -95.9481,15.7362 -95.8367,15.7977 -95.6322,15.875 -95.6019,15.8841 -95.4955,15.915 -95.4751,15.9209 -95.4076,15.9387 -95.3683,15.9442 -95.3061,15.9604 -95.2814,15.9723 -95.2575,15.9901 -95.2512,16.028 -95.1369,16.1152 -95.0992,16.1349 -94.9859,16.1653 -94.8132,16.1958 -94.7438,16.1979 -94.7916,16.213 -94.9254,16.2414 -94.9486,16.254 -94.9167,16.3041 -94.7967,16.3915 -94.745,16.4089 -94.7224,16.4015 -94.6911,16.3753 -94.6582,16.3115 -94.6707,16.2899 -94.6931,16.2711 -94.6778,16.242 -94.6071,16.2878 -94.5663,16.3193 -94.5505,16.3416 -94.4891,16.3217 -94.4651,16.2969 -94.4726,16.2704 -94.5021,16.2399 -94.5183,16.2279 -94.5418,16.2181 -94.5783,16.2096 -94.6101,16.1896 -94.5776,16.1725 -94.4903,16.1765 -94.3643,16.1703 -94.3277,16.1633 -94.2822,16.1521 -94.2614,16.1449 -94.1219,16.0858 -93.9766,16.0273 -93.9523,16.0238 -93.9401,16.0297 -93.943,16.0565 -93.9596,16.0726 -93.9797,16.0818 -94.0167,16.088 -94.0578,16.1015 -94.1202,16.1416 -94.1851,16.1548 -94.2193,16.1575 -94.1598,16.1253 -94.2123,16.1322 -94.2647,16.1584 -94.3029,16.1826 -94.3196,16.197 -94.3253,16.2224 -94.3062,16.266 -94.2868,16.2775 -94.2512,16.2694 -94.2338,16.2449 -94.1553,16.2012 -94.1019,16.1872 -93.9989,16.1571 -93.9727,16.1277 -93.9651,16.1218 -93.9113,16.0912 -93.826,16.0759 -93.7637,15.9821 -93.6765,15.9052 -93.5865,15.8475 -93.5373,15.8129 -93.4565,15.7554 -93.3628,15.6779 -93.3007,15.6242 -93.1716,15.5231 -93.0955,15.4741 -93.039,15.4103 -92.9982,15.3604 -92.9771,15.3365 -92.869,15.2456 -92.7791,15.1953 -92.7509,15.1888 -92.6603,15.1547 -92.644,15.1141 -92.6368,15.0751 -92.6637,15.1294 -92.6997,15.1252 -92.6431,15.0367 -92.5863,14.9758 -92.5229,14.9093 -92.4914,14.8775 -92.4743,14.8636 -92.446,14.8393 -92.4181,14.8122 -92.2756,14.668 -92.181,14.5711 -92.1475,14.5389 -92.1386,14.5344 -92.1297,14.5358 -92.1086,14.5419 -92.079,14.572 -92.0448,14.6668 -92.0443,14.6869 -92.0497,14.7132 -92.0603,14.7522 -92.0739,14.794 -92.0748,14.8286 -92.0405,14.9181 -91.9846,15.0089 -91.9614,15.0604 -92.1018,15.2451 -91.9982,15.4203 -91.7188,15.8912 -91.6875,15.9432 -91.6194,16.0569 -91.5941,16.0576 -91.4302,16.0578 -90.6955,16.0578 -90.5174,16.0577 -90.3455,16.0568 -90.339,16.0611 -90.3337,16.0706 -90.3235,16.1149 -90.3216,16.1545 -90.3486,16.1765 -90.3493,16.2384 -90.3301,16.2895 -90.2981,16.317 -90.2759,16.3589 -90.2847,16.3829 -90.2978,16.3983 -90.3774,16.4429 -90.3963,16.4504 -90.4363,16.4551 -90.4818,16.4581 -90.5003,16.4707 -90.5362,16.5023 -90.5343,16.5452 -90.5352,16.5767 -90.5491,16.6256 -90.5697,16.6574 -90.6049,16.708 -90.6393,16.7384 -90.6954,16.7866 -90.7571,16.7989 -90.8094,16.8111 -90.8392,16.8704 -90.8769,16.8774 -90.954,16.9054 -91.0745,17.0167 -91.1583,17.1148 -91.2218,17.169 -91.3237,17.218 -91.3264,17.2383 -90.874,17.2368 -90.8735,17.5656 -90.873,17.7981 -90.869,17.8 -90.8117,17.8001 -90.6678,17.8003 -90.481,17.8012 -90.1291,17.8012 -89.8908,17.8011 -89.6335,17.8009 -89.3222,17.7998 -89.034,17.7992 -89.035,17.931 -89.0135,17.9509 -88.9639,17.975 -88.9148,17.9846 -88.889,17.9673 -88.8754,17.9457 -88.7642,17.8874 -88.7338,17.8841 -88.6664,17.9688 -88.6206,18.0346 -88.5967,18.0897 -88.5735,18.1651 -88.4925,18.2157 -88.4816,18.2705 -88.4096,18.4096 -88.3988,18.4268 -88.3665,18.4633 -88.2981,18.4694 -88.2641,18.4613 -88.2366,18.4606 -88.1923,18.4622 -88.1769,18.4716 -88.16,18.4923 -88.0622,18.6564 -88.1107,18.6791 -88.0538,18.7168 -87.9819,18.7942 -87.9539,18.8331 -87.9326,18.8472 -87.8954,18.7635 -87.8959,18.6552 -87.9598,18.521 -87.9726,18.5045 -87.9664,18.473 -87.927,18.451 -87.8669,18.4276 -87.8189,18.3996 -87.7865,18.3438 -87.7701,18.3098 -87.765,18.273 -87.741,18.1705 -87.7331,18.247 -87.7214,18.2903 -87.7102,18.3145 -87.6844,18.352 -87.656,18.3881 -87.6485,18.4235 -87.6419,18.4992 -87.633,18.5855 -87.623,18.6435 -87.6041,18.6771 -87.559,18.7217 -87.5477,18.7388 -87.5171,18.8548 -87.513,18.9047 -87.5093,18.9402 -87.4896,19.029 -87.442,19.1182 -87.3821,19.2698 -87.394,19.3034 -87.4407,19.2972 -87.4689,19.2796 -87.4802,19.2597 -87.4857,19.2367 -87.5285,19.1935 -87.5658,19.2065 -87.5813,19.2286 -87.5701,19.2936 -87.5559,19.3294 -87.539,19.3551 -87.5222,19.3751 -87.4344,19.4106 -87.4369,19.3819 -87.4566,19.3728 -87.4208,19.3811 -87.3649,19.4206 -87.3368,19.4501 -87.3212,19.4839 -87.3057,19.5598 -87.3178,19.5825 -87.4202,19.5629 -87.5057,19.5279 -87.5259,19.5028 -87.5512,19.484 -87.5598,19.5258 -87.5848,19.5426 -87.6266,19.5781 -87.6334,19.6152 -87.63,19.6558 -87.5537,19.657 -87.4743,19.7774 -87.434,19.7889 -87.4041,19.805 -87.3692,19.8483 -87.3664,19.8913 -87.3755,19.9283 -87.34,19.9041 -87.3402,19.9109 -87.3528,19.9302 -87.3627,19.9611 -87.3659,20.0634 -87.3478,20.1417 -87.3307,20.1779 -87.3191,20.2003 -87.2003,20.3765 -87.17,20.4171 -87.12,20.481 -87.0982,20.5014 -87.0504,20.539 -87.0307,20.544 -86.9631,20.59 -86.807,20.7787 -86.7465,20.905 -86.7201,20.9642 -86.6691,21.1291 -86.7047,21.1567 -86.7199,21.27 -86.7055,21.3196 -86.7037,21.3445 -86.7092,21.3846 -86.7234,21.4055 -86.7645,21.4198 -86.7877,21.4182 -86.8986,21.5555 -86.9207,21.5662 -86.9425,21.574 -86.948,21.5755 -86.9715,21.582 -87.0414,21.5805 -87.1328,21.5437 -87.1649,21.5372 -87.1968,21.5387 -87.2217,21.5442 -87.2628,21.5366 -87.3035,21.5048 -87.2984,21.4851 -87.1414,21.5057 -87.1147,21.5185 -87.0925,21.5326 -87.0541,21.5433 -87.0269,21.533 -87.0265,21.4885 -87.0389,21.46 -87.0944,21.4285 -87.142,21.4175 -87.2221,21.4241 -87.3689,21.4525 -87.4319,21.4715 -87.4978,21.4882 -87.5448,21.4818 -87.5686,21.4789 -87.6405,21.4804 -87.6992,21.4934 -87.7436,21.5186 -87.6947,21.5088 -87.6071,21.5036 -87.8571,21.5725 -87.8862,21.5788 -88.0112,21.5858 -88.0395,21.5838 -88.0752,21.5733 -88.1163,21.5566 -88.1331,21.545 -88.0979,21.5526 -88.0352,21.5726 -87.9822,21.5626 -88.1596,21.5297 -88.2009,21.5312 -88.2434,21.5441 -88.3169,21.5474 -88.3426,21.545 -88.4857,21.5121 -88.5122,21.4975 -88.532,21.4746 -88.5779,21.439 -88.5996,21.424 -88.7345,21.3898 -88.9933,21.3385 -89.1316,21.3191 -89.2086,21.3105 -89.2284,21.309 -89.3916,21.2939 -89.5944,21.2725 -89.6662,21.2589 -89.6954,21.2528 -89.718,21.2464 -89.7579,21.2312 -89.8094,21.2113 -89.9961,21.1367 -90.1291,21.0633 -90.1693,21.0395 -90.2223,21.0041 -90.2406,20.9817 -90.265,20.9276 -90.2753,20.9024 -90.2953,20.8401 -90.308,20.8149 -90.3205,20.7646 -90.275,20.817 -90.2685,20.84 -90.2416,20.9283 -90.2297,20.9444 -90.2286,20.9182 -90.2426,20.8724 -90.2631,20.8227 -90.2751,20.7919 -90.2953,20.7659 -90.3289,20.7283 -90.3455,20.7093 -90.3743,20.5266 -90.3778,20.2856 -90.387,20.1721 -90.3897,20.0588 -90.3708,20.0209 -90.356,19.9939 -90.3451,19.9538 -90.392,19.8803 -90.418,19.8552 -90.4513,19.8402 -90.4691,19.83 -90.4905,19.8159 -90.5366,19.7804 -90.5664,19.7461 -90.6019,19.6484 -90.5905,19.6188 -90.6032,19.4576 -90.6211,19.3401 -90.6436,19.2989 -90.8024,19.161 -90.9111,19.086 -91.0241,19.0081 -91.1489,18.9539 -91.1936,18.9348 -91.252,18.899 -91.2739,18.8863 -91.3173,18.8309 -91.2871,18.8332 -91.2191,18.8727 -91.2482,18.8373 -91.2763,18.8027 -91.261,18.7503 -91.2304,18.7453 -91.2051,18.7624 -91.1788,18.7467 -91.1526,18.7198 -91.0753,18.6292 -91.2006,18.5715 -91.3264,18.5203 -91.3774,18.4687 -91.3639,18.4276 -91.3846,18.4149 -91.5257,18.4235 -91.5683,18.4288 -91.6622,18.4248 -91.6918,18.3594 -91.7017,18.3623 -91.744,18.4039 -91.7393,18.4246 -91.7212,18.4524 -91.7136,18.4722 -91.7861,18.5305 -91.8535,18.5662 -91.8458,18.5284 -91.8817,18.513 -91.9301,18.5395 -91.9241,18.5721 -91.8298,18.5749 -91.7921,18.5704 -91.7469,18.5948 -91.8445,18.6968 -91.8666,18.7065 -91.8925,18.7054 -92.041,18.6744 -92.2009,18.6642 -92.2931,18.6601 -92.3476,18.6435 -92.3681,18.6362 -92.4762,18.6028 -92.5673,18.497 -92.6287,18.5395 -92.6926,18.4869 -92.7101,18.4761 -92.7719,18.4404 -92.8079,18.4269 -92.8422,18.4185 -92.9749,18.3832 -92.9767,18.3586 -93.0169,18.319 -93.0581,18.35 -93.0591,18.3867 -93.0685,18.4183 -93.3163,18.4213 -93.3365,18.4202 -93.4736,18.401 -93.6669,18.3279 -93.7121,18.302 -93.7318,18.2859 -93.6942,18.2875 -93.665,18.3061 -93.4993,18.3827 -93.4791,18.3877 -93.4582,18.3885 -93.4632,18.3356 -93.679,18.2424 -93.7605,18.2324 -93.9014,18.2249 -94.0234,18.1886 -94.054,18.1784 -94.1536,18.1533 -94.3035,18.1285 -94.3546,18.1262 -94.3976,18.1325 -94.422,18.1401 -94.4552,18.1607 -94.619,18.3713 -94.6398,18.4157 -94.6671,18.4869 -94.6928,18.5039 -94.7395,18.511 -94.7716,18.5125 -94.8197,18.5146 -94.9103,18.5446 -94.9298,18.5843 -95.0665,18.681 -95.1001,18.6904 -95.199,18.6897 -95.2308,18.6857 -95.2846,18.6819 -95.4173,18.691 -95.6847,18.7242 -95.7947,18.8042 -95.7826,18.8248 -95.7919,18.8585 -95.8197,18.9054 -95.8419,18.9674 -95.8963,19.0367 -95.9242,19.0417 -95.9622,19.075 -95.9776,19.1036 -96.0229,19.2082 -96.0682,19.2305 -96.092,19.2438 -96.1109,19.2551 -96.1278,19.2672 -96.1599,19.2931 -96.1782,19.3194 -96.2503,19.5276 -96.2707,19.6097 -96.2767,19.6711 -96.2791,19.7027 -96.2903,19.7401 -96.327,19.833 -96.3428,19.8553 -96.3633,19.8769 -96.461,20.0031 -96.5572,20.1327 -96.6267,20.2032 -96.6695,20.2401 -96.9401,20.5173 -96.967,20.5459 -97.0256,20.6183 -97.0568,20.6608 -97.0736,20.709 -97.0633,20.7272 -97.0738,20.7711 -97.0819,20.7895 -97.0943,20.8144 -97.1302,20.8705 -97.174,20.9391 -97.2193,21.0339 -97.2367,21.0706 -97.2575,21.1164 -97.3352,21.2955 -97.3814,21.4024 -97.4357,21.4545 -97.4531,21.4695 -97.5007,21.5419 -97.5317,21.6056 -97.5508,21.6497 -97.5685,21.7494 -97.5829,21.8455 -97.5856,21.868 -97.5938,21.9044 -97.6023,21.935 -97.6111,21.9653 -97.6217,21.9879 -97.5764,21.9312 -97.5622,21.8916 -97.5022,21.768 -97.4028,21.6513 -97.3684,21.6146 -97.3432,21.5889 -97.3116,21.5625 -97.2786,21.5433 -97.2534,21.5195 -97.2487,21.4752 -97.2691,21.4467 -97.2995,21.4438 -97.3506,21.4186 -97.3434,21.3675 -97.2942,21.2482 -97.2245,21.406 -97.2091,21.444 -97.1988,21.4797 -97.1942,21.5063 -97.1955,21.5325 -97.2059,21.5588 -97.219,21.5736 -97.284,21.6194 -97.3992,21.7151 -97.416,21.7308 -97.436,21.7508 -97.4525,21.7695 -97.4925,21.8185 -97.5073,21.8387 -97.5214,21.8594 -97.5774,21.9502 -97.6195,22.0303 -97.648,22.0924 -97.6586,22.133 -97.6612,22.1736 -97.6563,22.2431 -97.6735,22.2769 -97.6827,22.3011 -97.7491,22.5575 -97.7672,22.5736 -97.7634,22.6068 -97.7559,22.6301 -97.7136,22.7126 -97.6847,22.7484 -97.6661,22.7903 -97.6308,22.8327 -97.6202,22.8802 -97.6187,22.9778 -97.6196,23.0018 -97.621,23.0338 -97.628,23.0625 -97.635,23.1 -97.6403,23.169 -97.6438,23.2447 -97.6446,23.275 -97.6433,23.3119 -97.6411,23.3557 -97.6388,23.3815 -97.6323,23.4466 -97.6181,23.5625 -97.6022,23.7941 -97.6022,23.8726 -97.6002,23.9284 -97.5932,24.048 -97.5746,24.2289 -97.5654,24.2954 -97.5573,24.3432 -97.5534,24.3687 -97.5287,24.4931 -97.4868,24.6582 -97.461,24.757 -97.3889,25.0162 -97.3507,25.1057 -97.3338,25.1426 -97.3187,25.1736 -97.2639,25.2614 -97.2118,25.3366 -97.1881,25.369 -97.1641,25.4091 -97.1469,25.4456 -97.1302,25.4825 -97.0646,25.6462 -97.036,25.7433 -97.0131,25.9044 -97.0142,25.9305 -97.0165,25.9373 -97.0364,25.9382 -97.1407,25.9122 -97.1909,25.8912 -97.2221,25.8642 -97.2204,25.8309 -97.2401,25.8109 -97.2926,25.8145 -97.3897,25.8694 -97.4344,25.9222 -97.4893,25.9761 -97.523,26.0003 -97.5539,26.0091 -97.6779,26.029 -97.7221,26.0344 -97.8544,26.0297 -97.9077,26.0186 -97.9346,26.0099 -98.0743,26.0334 -98.1604,26.0686 -98.1792,26.08 -98.2354,26.1243 -98.262,26.1624 -98.3136,26.1942 -98.4518,26.2269 -98.4783,26.2274 -98.569,26.2603 -98.6033,26.2852 -98.6575,26.3194 -98.7984,26.3619 -98.8487,26.3764 -98.9776,26.4056 -99.0054,26.4972 -99.073,26.6848 -99.1123,26.7737 -99.1256,26.8007 -99.1433,26.8301 -99.1916,26.8399 -99.3305,27.0167 -99.3151,27.2275 -99.345,27.4459 -99.3754,27.5373 -99.4024,27.5692 -99.4776,27.6103 -99.525,27.6105 -99.5676,27.6262 -99.5854,27.6382 -99.5989,27.6581 -99.6127,27.6837 -99.6301,27.6962 -99.6534,27.7067 -99.6694,27.7357 -99.678,27.7406 -99.7039,27.7435 -99.7318,27.7741 -99.7431,27.8245 -99.752,27.8728 -99.8058,27.9303 -99.833,27.9535 -99.9216,28.085 -99.949,28.1241 -99.9791,28.1342 -100.0569,28.1659 -100.1108,28.2111 -100.1518,28.2491 -100.2013,28.3686 -100.2,28.3936 -100.2209,28.463 -100.2292,28.4866 -100.2697,28.5394 -100.3139,28.5944 -100.3499,28.644 -100.3623,28.6721 -100.3619,28.6938 -100.3973,28.7906 -100.4341,28.8314 -100.4602,28.8624 -100.4918,28.901 -100.504,28.9262 -100.4979,28.9634 -100.5353,29.0765 -100.6649,29.226 -100.8062,29.3172 -100.8945,29.4048 -100.9122,29.4285 -100.9756,29.4491 -101.0081,29.4576 -101.0873,29.5073 -101.1793,29.5821 -101.2245,29.6276 -101.238,29.6593 -101.2736,29.7396 -101.325,29.7389 -101.4073,29.7378 -101.4971,29.733 -101.5749,29.7448 -101.6129,29.7555 -101.6427,29.7635 -101.6936,29.7713 -101.7602,29.773 -101.8584,29.7724 -101.916,29.7654 -101.9406,29.7651 -101.9652,29.7697 -101.9895,29.7771 -102.095,29.8138 -102.1288,29.8347 -102.1691,29.8545 -102.2228,29.8174 -102.3633,29.7486 -102.4277,29.7344 -102.5373,29.7096 -102.6716,29.4413 -102.7178,29.3194 -102.7625,29.2217 -102.8215,29.1504 -102.9186,29.0618 -103.0299,28.9515 -103.1572,28.9641 -103.1623,28.9648 -103.2411,28.9912 -103.2673,29.004 -103.3281,29.0407 -103.3509,29.0563 -103.3973,29.0935 -103.6014,29.1665 -103.7547,29.2533 -103.8403,29.2733 -103.889,29.2885 -103.9105,29.2979 -103.9287,29.3096 -103.9459,29.3225 -104.0346,29.3898 -104.0673,29.428 -104.0932,29.4617 -104.1178,29.4754 -104.1498,29.4931 -104.1814,29.4979 -104.2028,29.4922 -104.2838,29.5365 -104.318,29.5627 -104.4062,29.6397 -104.5423,29.9076 -104.559,29.9714 -104.5655,30.0255 -104.5432,30.0718 -104.5388,30.1343 -104.5464,30.1536 -104.5693,30.1994 -104.6408,30.2841 -104.6858,30.352 -104.7285,30.4322 -104.7435,30.4908 -104.7602,30.5321 -104.7981,30.5735 -104.8545,30.5981 -104.9252,30.6599 -104.9882,30.7153 -105.0328,30.7441 -105.0856,30.7702 -105.1163,30.7627 -105.2559,30.8315 -105.3536,30.9117 -105.404,30.9616 -105.4434,31.0233 -105.4628,31.0469 -105.5723,31.1093 -105.634,31.1435 -105.6493,31.1734 -105.6899,31.2196 -105.7042,31.2343 -105.7202,31.2475 -105.8347,31.3347 -105.8735,31.3601 -105.9247,31.3675 -106.0056,31.3968 -106.0718,31.4371 -106.134,31.524 -106.1508,31.5623 -106.1648,31.6022 -106.196,31.6521 -106.2575,31.7122 -106.2781,31.7186 -106.3005,31.7161 -106.3215,31.7148 -106.3577,31.7216 -106.3842,31.7451 -106.401,31.7465 -106.4696,31.7482 -106.936,31.7479 -107.0024,31.7486 -107.0351,31.7479 -107.1022,31.7483 -107.1352,31.7478 -107.2014,31.7484 -107.2351,31.7479 -107.3015,31.7486 -107.368,31.7477 -107.4348,31.7485 -107.468,31.7479 -107.5678,31.7483 -107.7677,31.7474 -108.0341,31.7486 -108.0679,31.748 -108.067,31.6642 -108.0678,31.5642 -108.0671,31.4974 -108.0676,31.3984 -108.0669,31.3315 -108.0674,31.2981 -108.6371,31.2978 -108.675,31.2981 -108.6911,31.2976 -108.7601,31.2977 -108.8577,31.0714 -108.8633,31.0832 -108.9094,30.9791 -108.9813,30.8166 -108.8609,30.7286 -108.8582,30.7321 -108.7489,30.6538 -108.6584,30.5919 -108.5803,30.5791 -108.54,30.5587 -108.4019,30.4742 -108.4099,30.3829 -108.4157,30.3166 -108.422,30.2449 -108.4195,30.23 -108.406,30.0564 -108.4141,29.9532 -108.4151,29.9411 -108.4181,29.9037 -108.4243,29.8249 -108.4418,29.5727 -108.4614,29.3683 -108.4855,29.3743 -108.5267,29.3808 -108.5811,29.3919 -108.5704,29.3316 -108.5456,29.2376 -108.5374,29.2065 -108.5059,29.0704 -108.4805,28.9706 -108.4301,28.7925 -108.4481,28.737 -108.5059,28.5576 -108.4914,28.516 -108.4518,28.402 -108.4007,28.2544 -108.4483,28.2096 -108.9085,28.2513 -108.9647,28.1996 -108.9839,28.182 -108.9834,28.1809 69,2.0,West Bank 35.4321,31.4621 35.405,31.4641 35.3548,31.4585 35.3329,31.4492 35.2135,31.3684 35.1947,31.3491 35.1747,31.3417 35.0929,31.3268 34.8924,31.3158 34.8629,31.3257 34.8445,31.3454 34.8431,31.3773 34.8653,31.4086 34.8919,31.4466 34.9009,31.467 34.9006,31.5241 34.9049,31.5516 34.916,31.5681 34.9403,31.5982 34.9561,31.6115 35.052,31.673 35.1174,31.7093 35.1639,31.7146 35.1074,31.7775 35.0629,31.7974 34.9904,31.7865 34.9688,31.7848 34.9296,31.7877 34.9204,31.7952 34.9209,31.8259 34.942,31.9332 34.9555,31.9497 34.9619,31.9921 34.9605,32.0185 34.9403,32.0968 34.9339,32.1173 34.9803,32.2032 35.0025,32.3315 35.0004,32.3472 35.0018,32.3582 35.011,32.3889 35.0209,32.4111 35.0362,32.4351 35.134,32.491 35.1622,32.5102 35.2179,32.4854 35.2434,32.4799 35.2717,32.4805 35.3046,32.487 35.3624,32.4679 35.3781,32.4496 35.4349,32.3767 35.5066,32.3582 35.5143,32.3418 35.5244,32.1816 35.5124,32.1672 35.4704,32.0055 35.4775,31.9624 35.4893,31.8939 35.5029,31.7928 35.5091,31.7286 35.4925,31.6997 35.4801,31.6763 35.4519,31.6062 35.4438,31.5687 35.4366,31.5269 35.433,31.4943 35.4321,31.4621 35.4321,31.4621 8,2.0,West Bank 35.2105,31.7724 35.2033,31.7733 35.1978,31.7683 35.2088,31.7508 35.2168,31.7544 35.218,31.768 35.2105,31.7724 35.2105,31.7724 22,9.0,Japan 130.0364,32.3921 130.0419,32.337 130.0383,32.2975 129.923,32.196 129.9054,32.1826 129.8961,32.1765 129.8609,32.159 129.8312,32.1523 129.8191,32.1645 129.7864,32.2076 129.8022,32.3195 129.8185,32.3732 129.8238,32.3851 129.8583,32.4621 129.8773,32.4761 129.941,32.5059 129.9848,32.5074 130.014,32.4899 130.0295,32.4472 130.0326,32.4314 130.0364,32.3921 130.0364,32.3921 15,9.0,Japan 130.0364,32.3921 130.0414,32.408 130.0546,32.4199 130.0701,32.4242 130.1086,32.4552 130.1626,32.48 130.1957,32.4861 130.2784,32.4688 130.2337,32.3876 130.2117,32.3511 130.2,32.3386 130.1895,32.3345 130.0667,32.3608 130.0364,32.3921 130.0364,32.3921 18,8.0,China 119.5572,32.2306 119.5628,32.2377 119.5787,32.2483 119.5949,32.2549 119.6083,32.2558 119.6247,32.2538 119.6445,32.2478 119.6596,32.2387 119.6699,32.2299 119.6791,32.2141 119.7416,32.0355 119.6297,32.093 119.6638,32.1564 119.6327,32.1709 119.591,32.1935 119.563,32.2099 119.5572,32.2306 119.5572,32.2306 496,3.0,Saudi Arabia 39.146,32.1189 39.4363,32.0699 40.0228,31.9703 40.3608,31.9126 41.3862,31.3384 42.0306,31.077 42.8689,30.4821 43.0091,30.3826 43.7537,29.8351 44.6639,29.1659 46.0627,29.0536 46.3668,29.0291 46.4874,29.0726 46.5277,29.0655 46.7398,29.0429 46.9361,29.0208 47.3987,28.9669 47.402,28.9522 47.4458,28.8907 47.4791,28.8184 47.5032,28.7645 47.5135,28.7379 47.5152,28.701 47.5135,28.6712 47.5414,28.6031 47.5565,28.5822 47.6273,28.5072 48.2402,28.5125 48.3541,28.5133 48.3629,28.5107 48.4393,28.4634 48.4559,28.385 48.4564,28.303 48.5408,28.0896 48.5876,28.0069 48.7901,27.8246 48.8146,27.8027 48.8116,27.7303 48.7838,27.7014 48.7928,27.7713 48.7573,27.794 48.7359,27.7765 48.7258,27.7134 48.7762,27.5888 48.8483,27.5691 48.8957,27.5932 48.9173,27.5857 48.9535,27.5525 48.9882,27.5147 49.0135,27.5091 49.1141,27.5205 49.1732,27.5135 49.2377,27.4582 49.2454,27.4142 49.166,27.4201 49.1039,27.4281 49.0649,27.4116 49.1844,27.3101 49.3372,27.1274 49.3455,27.097 49.3809,27.1017 49.4083,27.1137 49.4291,27.1317 49.4474,27.1557 49.4788,27.1409 49.5588,27.0264 49.6033,26.9477 49.6397,26.9211 49.7224,26.8698 49.7469,26.8574 49.8024,26.8296 49.8386,26.8264 49.8879,26.8199 50.0684,26.6579 50.0907,26.6335 50.0946,26.613 50.0176,26.6587 49.9322,26.7127 49.9192,26.6696 49.9184,26.6497 49.9382,26.5317 49.9863,26.4358 50.0176,26.4182 50.0458,26.4147 50.109,26.3923 50.1476,26.3454 50.1553,26.2709 50.1511,26.1784 50.1445,26.152 50.0918,26.072 50.0528,26.0613 49.999,26.1487 49.9629,26.1654 49.9153,26.1037 49.9302,25.991 50.0436,25.8864 50.05,25.8399 50.0707,25.791 50.1155,25.7371 50.1465,25.7089 50.192,25.6364 50.1914,25.6021 50.1704,25.624 50.1694,25.6478 50.0993,25.6914 50.0741,25.6975 50.0848,25.6701 50.2414,25.4884 50.2827,25.4471 50.3055,25.43 50.3934,25.4158 50.4184,25.3854 50.4586,25.26 50.4699,25.1761 50.4959,25.0217 50.5066,25.0106 50.5097,25.029 50.5421,25.0148 50.5802,24.9662 50.6625,24.8495 50.6761,24.7671 50.6765,24.7393 50.7117,24.6933 50.7671,24.7222 50.8019,24.6624 50.9091,24.5497 51.0473,24.5285 51.1145,24.559 51.1402,24.5806 51.1507,24.5934 51.1934,24.5885 51.2418,24.5658 51.2284,24.5401 51.2345,24.4924 51.2813,24.514 51.3277,24.5682 51.3378,24.5864 51.3741,24.5928 51.4224,24.5558 51.3435,24.4711 51.2677,24.4114 51.2532,24.3962 51.2428,24.3776 51.2149,24.3102 51.218,24.2728 51.2435,24.2642 51.2883,24.2651 51.3202,24.2872 51.3429,24.2926 51.3773,24.2885 51.4087,24.2827 51.4416,24.2663 51.4652,24.2333 51.4856,24.2242 51.5125,24.2282 51.5198,24.2335 51.5187,24.0897 52.5182,22.9133 55.0737,22.6081 55.131,22.6743 55.5977,21.9753 55.3544,21.2437 54.9331,19.9778 51.9361,18.9783 51.1533,18.8005 49.9394,18.5253 48.7074,18.2462 47.9675,17.4402 47.3181,16.7329 46.2778,15.5996 46.278,15.8014 46.2778,16.6481 45.4216,16.9868 44.9459,17.1751 44.445,17.3736 44.4404,17.3792 44.4073,17.3937 44.3289,17.4001 44.1321,17.3897 44.0368,17.3275 43.8861,17.2872 43.7084,17.3325 43.6861,17.3463 43.619,17.4002 43.6014,17.424 43.5863,17.4502 43.5683,17.4616 43.4613,17.5025 43.3926,17.5071 43.355,17.4942 43.3214,17.4755 43.2934,17.457 43.2617,17.4403 43.2066,17.3954 43.1398,17.3229 43.0996,17.103 43.0717,16.9064 43.1093,16.8169 43.146,16.6971 43.1543,16.6537 43.0829,16.6616 43.0508,16.6591 43.0276,16.5827 43.0186,16.542 43.0084,16.5238 42.8673,16.4049 42.7724,16.3629 42.7385,16.3592 42.7381,16.4426 42.6835,16.5066 42.6693,16.5489 42.6748,16.5813 42.6808,16.604 42.6866,16.6446 42.6211,16.7633 42.5925,16.7929 42.574,16.8064 42.5321,16.8165 42.4892,16.8559 42.4967,16.9197 42.4967,16.9792 42.4668,17.0105 42.3573,17.1025 42.3142,17.0916 42.3195,17.0211 42.3025,17.062 42.2853,17.1649 42.275,17.234 42.2736,17.3029 42.2701,17.3787 42.2561,17.4281 42.1435,17.5227 42.0433,17.6301 41.8258,17.7928 41.7957,17.788 41.7406,17.8121 41.6933,17.8605 41.6762,17.8782 41.6285,17.9293 41.5466,18.0693 41.5467,18.1011 41.4863,18.1714 41.4627,18.209 41.427,18.2701 41.4081,18.3057 41.3938,18.3494 41.394,18.3771 41.3882,18.4417 41.3595,18.4828 41.3062,18.5448 41.2735,18.561 41.2122,18.5924 41.1558,18.6794 41.1633,18.7355 41.1949,18.8055 41.1556,18.8438 41.1251,18.8453 41.0847,18.924 41.0988,18.9665 41.1254,19.0437 41.1058,19.0666 41.0697,19.0769 41.0375,19.087 41.0137,19.1159 40.994,19.1593 40.9064,19.4305 40.7941,19.512 40.7174,19.5802 40.736,19.5937 40.7534,19.6371 40.7509,19.6585 40.7377,19.6954 40.7074,19.7423 40.683,19.7671 40.6316,19.7734 40.6093,19.7713 40.4621,19.9517 40.3943,19.9862 40.2869,20.0511 40.2313,20.0857 40.1115,20.1777 40.0795,20.2131 40.0482,20.2494 40.0067,20.26 39.9089,20.2598 39.8584,20.262 39.8315,20.2651 39.7546,20.3113 39.6127,20.4151 39.5851,20.4481 39.5521,20.4957 39.5204,20.5451 39.4965,20.5916 39.4385,20.6934 39.3896,20.7245 39.379,20.7426 39.3714,20.775 39.4,20.7701 39.4091,20.7726 39.3993,20.8011 39.3668,20.8239 39.3327,20.8261 39.3022,20.8442 39.2232,20.9261 39.1271,21.0805 39.1088,21.1245 39.0581,21.2563 39.1108,21.3507 39.1231,21.3864 39.1245,21.4135 39.1217,21.4375 39.1155,21.4768 39.0981,21.5094 39.0459,21.5954 39.039,21.6292 39.0187,21.6961 38.9857,21.7679 38.9703,21.787 38.9454,21.8124 38.9694,22.0977 38.9828,22.1899 39.0573,22.3522 39.0147,22.558 38.9203,22.7228 38.9048,22.7424 38.8484,22.8206 38.8029,22.8994 38.8379,22.889 38.853,22.8515 38.8649,22.8241 38.8987,22.8201 38.9124,22.8402 38.893,22.8785 38.8466,22.9352 38.82,22.953 38.7104,23.1474 38.6603,23.2171 38.6442,23.2654 38.6411,23.3077 38.6355,23.3652 38.6304,23.3873 38.6264,23.3964 38.5963,23.4337 38.5352,23.4889 38.5056,23.4988 38.4364,23.6637 38.3991,23.7626 38.198,23.9278 38.0892,24.0136 38.0331,24.0411 37.9663,24.0627 37.8311,24.144 37.7075,24.2319 37.6278,24.2711 37.579,24.2431 37.5725,24.2241 37.552,24.2229 37.4803,24.2503 37.4416,24.2904 37.3953,24.3479 37.4133,24.387 37.4029,24.4268 37.3366,24.5116 37.3317,24.533 37.3218,24.5522 37.2805,24.6102 37.2642,24.6295 37.2181,24.6724 37.1946,24.6886 37.1078,24.8124 37.1294,24.8145 37.1504,24.8107 37.1727,24.8134 37.1972,24.8251 37.2105,24.8425 37.2316,24.9479 37.2106,25.1047 37.2034,25.1238 37.1882,25.1545 37.1632,25.1795 37.137,25.2005 37.0817,25.2602 37.0487,25.3081 37.039,25.3327 37.0313,25.3634 37.0304,25.4054 36.8855,25.6162 36.781,25.7153 36.752,25.7278 36.7492,25.6903 36.6774,25.721 36.6503,25.7576 36.6271,25.797 36.6085,25.837 36.6322,25.8701 36.6584,25.9254 36.6623,25.9531 36.6535,25.987 36.6391,26.0056 36.6188,26.0197 36.5831,26.0274 36.562,26.0294 36.54,26.0319 36.4986,26.0492 36.4659,26.0785 36.447,26.1064 36.4351,26.1554 36.2615,26.4662 36.1654,26.6167 36.0979,26.6875 36.0739,26.6998 36.051,26.7196 36.0059,26.8108 35.9972,26.8407 35.9855,26.8664 35.9459,26.8965 35.8894,26.9431 35.86,26.9695 35.7733,27.0698 35.7545,27.1278 35.7653,27.1557 35.7537,27.1796 35.679,27.276 35.5913,27.3293 35.5658,27.3577 35.5203,27.4124 35.4867,27.4655 35.4767,27.4839 35.4625,27.512 35.4596,27.5347 35.462,27.5718 35.45,27.6022 35.3476,27.745 35.2876,27.8275 35.2712,27.8476 35.2497,27.8703 35.1872,27.9331 35.1717,27.9454 35.1426,27.9658 35.1153,28.0253 35.0111,28.0814 34.9522,28.0795 34.9279,28.0679 34.889,28.052 34.8661,28.0464 34.8017,28.0401 34.6614,28.1068 34.6341,28.0981 34.6041,28.0621 34.6025,28.0332 34.5997,28.007 34.5802,27.9944 34.5275,28.0645 34.544,28.098 34.5877,28.1432 34.6479,28.2555 34.6917,28.3573 34.7001,28.3859 34.728,28.4463 34.7423,28.4618 34.7618,28.5073 34.7535,28.5953 34.7466,28.6257 34.7914,28.8254 34.7975,28.8523 34.8346,29.0827 34.8383,29.1034 34.8529,29.1594 34.8645,29.1962 34.9057,29.3156 34.9163,29.3281 35.1419,29.2941 35.4954,29.24 36.0233,29.1564 36.2257,29.3039 36.4533,29.4697 36.6962,29.8315 36.9864,29.8848 37.3616,29.9522 37.4542,29.9687 37.6187,30.3027 37.9521,30.4703 37.5125,30.9164 37.4413,30.9886 37.2465,31.1823 36.9573,31.4705 37.1541,31.5211 37.4233,31.5896 37.6606,31.6492 37.9148,31.713 37.9374,31.7187 38.4383,31.8435 38.9543,31.9698 39.0214,32.022 39.146,32.1189 39.146,32.1189 43,8.0,China 121.0463,31.7649 121.0627,31.7749 121.0818,31.7817 121.1182,31.7843 121.154,31.7844 121.1756,31.783 121.2694,31.7402 121.3008,31.7199 121.3095,31.7129 121.3201,31.7007 121.3287,31.6804 121.3159,31.6793 121.3089,31.6703 121.3358,31.6397 121.4068,31.6005 121.4542,31.5811 121.5179,31.5587 121.5906,31.5352 121.6055,31.5323 121.6278,31.5312 121.6432,31.5294 121.6566,31.5255 121.6958,31.5099 121.7091,31.4997 121.7153,31.4883 121.7171,31.4776 121.7152,31.4646 121.7083,31.4516 121.6729,31.4178 121.6603,31.4154 121.6265,31.4214 121.5917,31.4294 121.5494,31.4428 121.3886,31.4961 121.2444,31.5631 121.2235,31.5747 121.2036,31.5868 121.1936,31.593 121.1585,31.6201 121.1412,31.6334 121.0601,31.7299 121.0463,31.7649 121.0463,31.7649 8,3.0,Israel 35.2105,31.7724 35.218,31.768 35.2168,31.7544 35.2088,31.7508 35.1978,31.7683 35.2033,31.7733 35.2105,31.7724 35.2105,31.7724 614,3.0,Egypt 34.1724,31.2883 34.1947,31.2599 34.2233,31.1817 34.2429,31.128 34.3569,30.8251 34.4449,30.6568 34.5141,30.4521 34.4985,30.4009 34.5007,30.3731 34.5695,30.331 34.6785,30.0559 34.7087,29.9575 34.8029,29.7075 34.8279,29.6176 34.8288,29.5976 34.8212,29.5737 34.8329,29.4996 34.8589,29.4538 34.8377,29.4516 34.8138,29.4393 34.7166,29.3019 34.6992,29.2587 34.6451,29.1031 34.6209,29.0069 34.578,28.807 34.578,28.7275 34.5828,28.7034 34.5608,28.6597 34.5411,28.6302 34.504,28.573 34.4804,28.5301 34.4124,28.4035 34.3648,28.2871 34.37,28.1989 34.3859,28.1693 34.4072,28.1427 34.4018,27.9898 34.3975,27.9659 34.3866,27.9434 34.283,27.8378 34.2502,27.8234 34.2281,27.787 34.215,27.7591 34.2119,27.7336 34.2103,27.6977 34.1724,27.7344 34.1439,27.756 34.0901,27.7647 33.9292,27.8567 33.7822,27.9437 33.7622,27.9575 33.72,27.9907 33.6692,28.0505 33.5836,28.162 33.556,28.2078 33.5201,28.2632 33.4774,28.2815 33.3909,28.329 33.3683,28.3482 33.2632,28.4531 33.2442,28.4733 33.1998,28.5227 33.1783,28.5762 33.1568,28.6304 33.125,28.829 33.1231,28.921 33.1243,28.942 33.1296,28.9628 32.9062,29.1744 32.8863,29.1773 32.8482,29.2004 32.6993,29.4219 32.68,29.4779 32.6474,29.5832 32.6411,29.6362 32.652,29.6903 32.6327,29.7252 32.6068,29.7553 32.5658,29.7905 32.5345,29.8865 32.5356,29.9179 32.5337,29.9694 32.4357,29.9033 32.417,29.864 32.4399,29.8361 32.4051,29.7619 32.3671,29.7222 32.3191,29.65 32.299,29.5618 32.3265,29.5115 32.3593,29.479 32.3959,29.4593 32.5251,29.3499 32.5544,29.3078 32.5886,29.2037 32.6048,29.1409 32.6156,29.0868 32.6201,29.0814 32.6203,29.0613 32.5921,29.0288 32.5765,28.9516 32.6466,28.8355 32.6949,28.7841 32.7153,28.7691 32.7462,28.7596 32.7618,28.745 32.7777,28.7159 32.7871,28.6922 32.7948,28.6698 32.8185,28.5946 32.8929,28.5131 32.9565,28.4528 32.9731,28.428 33.0339,28.3361 33.0833,28.2519 33.1364,28.1975 33.1821,28.1507 33.2914,28.0436 33.3678,27.9979 33.3893,27.9873 33.4264,27.9651 33.4422,27.9527 33.4737,27.9134 33.5158,27.8519 33.5281,27.8237 33.5383,27.7852 33.5366,27.7594 33.5078,27.7812 33.4722,27.8 33.4515,27.8063 33.4315,27.7963 33.4515,27.6132 33.518,27.5374 33.5899,27.4592 33.6249,27.3936 33.641,27.342 33.6456,27.3101 33.661,27.2896 33.6766,27.2758 33.6948,27.2636 33.7276,27.2522 33.7855,27.2249 33.7939,27.2064 33.7951,27.169 33.7864,27.1308 33.7923,27.0872 33.8999,26.9056 33.9044,26.7889 33.8889,26.6543 33.8947,26.6257 33.9102,26.6115 33.9472,26.6012 33.9666,26.5843 34.0309,26.4819 34.0996,26.3426 34.1381,26.2705 34.1574,26.2214 34.1705,26.1926 34.1792,26.1736 34.2803,25.9969 34.3941,25.8166 34.4466,25.7492 34.4654,25.7317 34.4874,25.7166 34.5066,25.696 34.5814,25.5524 34.5902,25.5342 34.6249,25.4587 34.7266,25.2562 34.7753,25.1664 34.8053,25.1129 34.8361,25.0681 34.8697,25.0176 34.8923,24.9832 34.9422,24.8959 35.0441,24.6908 35.0979,24.5139 35.0945,24.4903 35.1773,24.3949 35.1907,24.3798 35.2458,24.3395 35.2926,24.3053 35.3387,24.2635 35.3753,24.2158 35.3861,24.1981 35.4037,24.155 35.4393,24.1232 35.5545,24.0499 35.6584,23.9883 35.6823,23.9779 35.7145,23.9558 35.7383,23.9303 35.7667,23.8804 35.5682,23.9063 35.5084,23.9355 35.4985,23.9574 35.4769,23.9535 35.46,23.9412 35.4415,23.9164 35.4318,23.7854 35.4557,23.7177 35.4702,23.6937 35.4682,23.6455 35.4597,23.5666 35.4476,23.4684 35.4551,23.4453 35.4961,23.3844 35.5085,23.3439 35.5079,23.3122 35.5109,23.2835 35.5252,23.213 35.5349,23.1901 35.5573,23.1533 35.5867,23.1074 35.5967,23.0894 35.6182,23.0155 35.6188,22.9866 35.6248,22.9449 35.698,22.8469 35.8005,22.7383 35.8243,22.7242 35.8946,22.6943 35.9724,22.6649 36.0131,22.6605 36.1083,22.64 36.1842,22.6101 36.2306,22.5638 36.3275,22.4304 36.3534,22.3807 36.3947,22.3238 36.4206,22.2936 36.4468,22.2818 36.5006,22.2746 36.705,22.1371 36.7555,22.0993 36.8174,22.0511 36.8408,22.0285 36.8506,22.0097 36.8507,21.9829 36.8432,21.9754 36.8371,21.9766 36.7766,21.9765 36.6828,21.9751 36.6432,21.9739 36.5009,21.9739 36.3641,21.9743 36.2532,21.9747 36.212,21.9753 35.9808,21.9745 35.8652,21.9739 35.7372,21.9724 35.4016,21.9731 35.3109,21.9748 35.1103,21.9759 34.9456,21.9766 34.9246,21.9764 34.8974,21.9767 34.8497,21.9762 34.6617,21.9728 34.6213,21.9717 34.3042,21.9712 34.075,21.9715 34.0573,21.9719 34.0325,21.9726 33.9135,21.9743 33.8236,21.9751 33.7401,21.9751 33.7187,21.9753 33.6985,21.9751 33.4208,21.9756 33.3173,21.9758 33.139,21.975 33.1262,21.9745 32.6081,21.9774 32.4818,21.9782 32.4541,21.9786 32.4331,21.979 32.4045,21.9795 32.3484,21.9795 32.3002,21.9795 31.9573,21.9784 31.5403,21.9749 31.4568,21.9739 31.4217,21.9735 31.4276,22.0062 31.4753,22.135 31.4696,22.1649 31.4405,22.1968 31.4095,22.2073 31.3831,22.2023 31.357,22.1866 31.2965,22.0815 31.2814,22.0554 31.2359,21.9743 31.1694,21.9739 31.1272,21.9738 30.7105,21.9746 30.6536,21.9748 30.5613,21.9758 30.4618,21.9764 30.4256,21.9761 30.3402,21.9763 30.2346,21.9761 30.0641,21.9761 29.5755,21.9736 29.4912,21.9729 29.214,21.9711 29.1422,21.971 29.1207,21.971 29.0996,21.9712 29.0781,21.9709 29.0569,21.971 29.0351,21.9709 28.9777,21.9712 28.5614,21.9751 28.2845,21.9781 28.2263,21.9791 28.188,21.9786 27.69,21.9751 27.3788,21.97 27.3532,21.9695 27.2939,21.9716 27.2344,21.9735 27.1049,21.9761 27.0598,21.9759 26.9387,21.9742 26.8814,21.9721 26.8053,21.9708 26.642,21.9714 26.6158,21.9718 26.3076,21.9751 25.747,21.9781 25.3761,21.9752 25.1855,21.9764 25.0683,21.9762 24.9707,21.9751 24.9714,22.0221 24.9705,22.2619 24.9692,23.554 24.9684,23.9969 24.9666,24.3161 24.966,24.7592 24.9655,24.9667 24.9659,25.4142 24.9663,25.942 24.9674,26.4543 24.968,26.5377 24.9682,26.6899 24.9686,26.9118 24.9683,26.9692 24.9678,27.0504 24.9689,27.3969 24.9697,27.5771 24.9691,27.6356 24.9699,27.7294 24.9701,27.8679 24.9698,27.9689 24.9703,28.0937 24.9699,28.2462 24.9673,28.9247 24.9657,29.2164 24.8794,29.4001 24.865,29.4294 24.8462,29.4757 24.8528,29.5527 24.7928,29.7838 24.7996,29.8039 24.8038,29.8255 24.8008,29.8484 24.789,29.8828 24.7781,29.9124 24.737,30.0006 24.694,30.0862 24.6794,30.1046 24.675,30.1253 24.6781,30.1551 24.6912,30.1922 24.7399,30.27 24.7866,30.3298 24.8224,30.3654 24.844,30.3937 24.8938,30.4733 24.9448,30.6007 24.985,30.755 24.963,30.8044 24.9447,30.8377 24.8795,30.9805 24.872,31.0 24.837,31.1244 24.8359,31.336 24.8614,31.3678 24.9306,31.4102 24.9767,31.4458 25.015,31.4873 25.0284,31.5324 25.0406,31.5504 25.0678,31.5761 25.0971,31.599 25.119,31.6115 25.1195,31.5999 25.1414,31.5057 25.2816,31.4662 25.3673,31.4664 25.448,31.4834 25.5342,31.5063 25.6511,31.5423 25.7777,31.5756 25.8147,31.5821 25.8475,31.5845 25.9136,31.5826 25.952,31.5788 25.9748,31.5751 26.0592,31.556 26.1394,31.5277 26.275,31.4923 26.3169,31.4826 26.3389,31.4785 26.47,31.4633 26.61,31.4492 26.7398,31.4255 26.8582,31.3988 27.0278,31.364 27.13,31.3444 27.2129,31.3401 27.2445,31.3427 27.2879,31.3411 27.3098,31.334 27.3237,31.2941 27.3328,31.2607 27.3419,31.2368 27.3599,31.2147 27.3765,31.2013 27.4032,31.188 27.4231,31.1823 27.5352,31.1538 27.6194,31.1382 27.7649,31.1785 27.8081,31.2088 27.8284,31.1953 27.8476,31.1465 27.8571,31.105 27.8665,31.075 27.8853,31.0634 28.1514,31.0379 28.2364,31.0342 28.3198,31.0388 28.3665,31.049 28.3927,31.0441 28.5231,30.9977 28.6811,30.9536 28.7181,30.9406 28.7778,30.9133 28.7898,30.8865 28.8578,30.839 28.944,30.8048 28.9974,30.7897 29.0316,30.7874 29.0838,30.7868 29.11,30.7896 29.1423,30.796 29.1872,30.8079 29.2145,30.8158 29.2992,30.8424 29.4452,30.9032 29.4868,30.9267 29.5368,30.9591 29.5595,30.9739 29.5963,30.9999 29.65,31.0334 29.7069,31.0688 29.7654,31.1007 29.9604,31.2389 30.0067,31.2723 30.0255,31.2854 30.0568,31.2434 30.1043,31.1869 30.1738,31.1779 30.2503,31.2024 30.2612,31.2339 30.2626,31.3003 30.3149,31.4133 30.3501,31.4068 30.3362,31.4204 30.3159,31.4678 30.3525,31.4586 30.3724,31.44 30.4059,31.4258 30.4398,31.417 30.4606,31.4172 30.5347,31.4318 30.5574,31.437 30.6516,31.4639 30.6857,31.4746 30.7306,31.4897 30.767,31.5032 30.8058,31.5137 30.916,31.5403 30.6639,31.4309 30.5282,31.3886 30.5045,31.3583 30.5542,31.3453 30.7039,31.3735 30.8623,31.3852 30.9241,31.4126 30.9671,31.445 31.0595,31.4552 31.086,31.4615 31.0667,31.5099 31.0254,31.53 30.9936,31.5356 30.9377,31.5484 30.9721,31.5618 31.0579,31.5665 31.0928,31.5624 31.148,31.5498 31.1854,31.539 31.2275,31.5254 31.2981,31.4989 31.3089,31.4942 31.393,31.4496 31.4801,31.4134 31.5161,31.407 31.5303,31.4068 31.5576,31.4082 31.626,31.4207 31.7145,31.4442 31.7679,31.4685 31.7989,31.4854 31.8304,31.4998 31.852,31.5038 31.8799,31.4948 31.9093,31.4698 31.9219,31.4405 31.9437,31.4107 31.9676,31.3813 31.9998,31.3473 32.0204,31.3352 32.0452,31.3258 32.0619,31.319 32.1609,31.256 32.1255,31.2655 32.0709,31.2927 32.0485,31.3085 32.0364,31.3214 32.0228,31.3214 31.9759,31.3454 31.9509,31.3675 31.9365,31.3981 31.8919,31.4781 31.8684,31.4925 31.8191,31.4794 31.7362,31.2424 31.757,31.2498 31.7957,31.2113 31.8859,31.1474 31.9139,31.167 31.9646,31.1827 31.9864,31.1809 32.0014,31.1588 31.9942,31.1402 31.9945,31.1085 32.0102,31.0941 32.0364,31.0478 32.1014,31.0394 32.1045,31.044 32.0997,31.0526 32.0958,31.0588 32.1503,31.0902 32.1881,31.0684 32.2114,31.0729 32.238,31.0897 32.2464,31.134 32.2568,31.1744 32.2324,31.2318 32.2145,31.235 32.2056,31.2364 32.173,31.2477 32.2146,31.2469 32.2342,31.2438 32.2875,31.2345 32.3603,31.18 32.4205,31.1258 32.439,31.1079 32.4575,31.0811 32.5101,31.0368 32.5572,31.0253 32.6275,31.0169 32.6694,30.999 32.7386,31.0114 32.9858,31.1192 33.0727,31.1575 33.1067,31.0668 33.1008,31.0236 33.163,31.0335 33.2082,31.0547 33.2671,31.0798 33.3691,31.1201 33.4112,31.107 33.4409,31.0928 33.486,31.0827 33.5405,31.0797 33.5604,31.079 33.593,31.081 33.6292,31.0852 33.7002,31.0986 33.7628,31.1142 33.8273,31.1303 33.888,31.1473 33.9414,31.1667 34.0027,31.191 34.0639,31.2179 34.1654,31.2814 34.1724,31.2883 34.1724,31.2883 19,2.0,Gaza Strip 34.1724,31.2883 34.2037,31.3149 34.2316,31.3388 34.3565,31.4541 34.4111,31.5146 34.438,31.5477 34.4459,31.5609 34.5142,31.5046 34.4952,31.4797 34.4685,31.4633 34.434,31.436 34.3442,31.3596 34.3201,31.3191 34.3268,31.2651 34.2896,31.2249 34.2233,31.1817 34.1947,31.2599 34.1724,31.2883 34.1724,31.2883 28,9.0,Japan 130.9017,30.7924 130.9151,30.769 130.9125,30.7134 130.9065,30.6672 130.9041,30.655 130.885,30.5984 130.7997,30.3566 130.7325,30.3203 130.7092,30.321 130.7017,30.3314 130.6921,30.3764 130.6932,30.4042 130.6967,30.4231 130.6997,30.4356 130.7139,30.4464 130.7344,30.4726 130.7614,30.5108 130.7774,30.5361 130.782,30.5491 130.7848,30.5642 130.778,30.592 130.7743,30.6441 130.8382,30.7551 130.8694,30.7966 130.8808,30.8048 130.8959,30.7992 130.9017,30.7924 130.9017,30.7924 25,9.0,Japan 130.3542,30.4092 130.3771,30.4086 130.4231,30.3906 130.4639,30.3715 130.4737,30.365 130.4986,30.3462 130.5017,30.3364 130.4921,30.2908 130.4872,30.2705 130.478,30.2518 130.4291,30.2099 130.3923,30.2032 130.3531,30.2025 130.3199,30.2073 130.2754,30.2171 130.2195,30.3156 130.2147,30.3334 130.2126,30.3437 130.2151,30.36 130.3044,30.4209 130.3172,30.4263 130.3415,30.4249 130.3505,30.4179 130.3542,30.4092 130.3542,30.4092 371,5.75,Nepal 88.0294,27.8349 88.039,27.8331 88.0749,27.8181 88.0736,27.7518 88.0353,27.6492 88.0072,27.5813 87.9802,27.5564 87.9435,27.5026 87.9339,27.4656 87.9215,27.2532 87.901,27.1931 87.897,27.1638 87.8979,27.1212 87.8818,27.0819 87.9221,27.0191 87.9599,27.0009 88.0053,26.9544 88.0613,26.8469 88.0814,26.7307 88.0789,26.696 88.0665,26.6554 88.0599,26.636 88.0085,26.5364 87.9891,26.5007 87.9947,26.4591 87.9779,26.4036 87.9075,26.3388 87.8348,26.3732 87.8148,26.3937 87.7954,26.4168 87.7815,26.4397 87.6791,26.4295 87.5746,26.3958 87.5382,26.3704 87.5308,26.3629 87.4416,26.3763 87.4181,26.3888 87.3737,26.4044 87.3431,26.4041 87.2875,26.3886 87.2571,26.372 87.158,26.3459 87.0585,26.3705 86.9728,26.4568 86.8929,26.5048 86.854,26.4962 86.8368,26.5015 86.7895,26.4708 86.7805,26.4476 86.7098,26.4072 86.6223,26.3908 86.5492,26.4271 86.3646,26.5166 86.2236,26.5779 86.0944,26.5581 86.0734,26.5782 86.028,26.5736 85.9945,26.589 85.9791,26.6034 85.9534,26.6243 85.9227,26.6333 85.8555,26.6182 85.8404,26.5978 85.7505,26.5431 85.6437,26.6129 85.619,26.644 85.6153,26.675 85.6171,26.7037 85.6202,26.7571 85.6007,26.7863 85.5211,26.8358 85.4587,26.8152 85.4304,26.7999 85.3982,26.7838 85.3433,26.7571 85.228,26.7072 85.2188,26.7063 85.2012,26.7095 85.1128,26.7332 85.0921,26.7452 85.0762,26.7683 84.8588,26.9057 84.7461,26.9654 84.6933,26.985 84.6722,26.9813 84.6445,26.9772 84.5986,26.991 84.5464,27.0101 84.5377,27.031 84.5517,27.064 84.571,27.1056 84.5765,27.1759 84.5714,27.2017 84.5444,27.261 84.5291,27.2808 84.4895,27.3094 84.3906,27.326 84.2865,27.3368 84.2215,27.3474 84.1895,27.3579 84.0391,27.4807 83.9431,27.4223 83.9113,27.4126 83.8277,27.4165 83.8145,27.4211 83.7636,27.4095 83.7645,27.3546 83.7507,27.3217 83.7182,27.3404 83.6941,27.3523 83.6696,27.3641 83.6405,27.378 83.5264,27.4289 83.5003,27.4384 83.4331,27.4423 83.3112,27.4422 83.2866,27.3805 83.2695,27.3446 83.2518,27.3255 83.2354,27.3118 83.2029,27.3056 83.1664,27.3144 83.1542,27.3407 83.1448,27.3595 83.0697,27.4162 83.0238,27.4188 82.9505,27.4177 82.922,27.4191 82.8615,27.4305 82.66,27.4727 82.6371,27.5253 82.6405,27.5507 82.6261,27.6087 82.611,27.6595 82.5946,27.6802 82.5516,27.6769 82.5107,27.6662 82.4919,27.6595 82.4616,27.6544 82.3729,27.6417 82.3459,27.6415 82.3232,27.6465 82.3002,27.6599 82.1984,27.7283 82.1723,27.7471 82.043,27.8331 81.9606,27.883 81.9375,27.8875 81.8939,27.891 81.8641,27.8818 81.8314,27.8563 81.7955,27.8238 81.6754,27.8795 81.6217,27.9248 81.5024,27.9878 81.3736,28.0532 81.2695,28.1345 81.1934,28.1325 81.1177,28.2931 81.089,28.3349 81.0842,28.3376 81.0621,28.3438 81.0345,28.351 80.9895,28.3618 80.9269,28.3713 80.8259,28.414 80.6007,28.5468 80.4809,28.6218 80.4372,28.6533 80.4149,28.6392 80.4019,28.6231 80.407,28.5891 80.3682,28.558 80.2836,28.5932 80.2131,28.6607 80.1465,28.7155 80.0474,28.7616 79.9581,28.7977 79.9488,28.866 79.954,28.8919 79.9662,28.917 80.0933,29.0957 80.1456,29.131 80.184,29.1728 80.1982,29.2459 80.2024,29.2761 80.1819,29.2874 80.1342,29.3902 80.1863,29.4501 80.2093,29.4657 80.242,29.4884 80.3046,29.5685 80.3124,29.6069 80.2926,29.6276 80.2802,29.6483 80.2712,29.7069 80.3116,29.7526 80.3392,29.7631 80.3788,29.7649 80.4329,29.8114 80.47,29.8766 80.491,29.9164 80.5211,29.9295 80.5551,29.9297 80.5743,29.9367 80.6393,29.9859 80.7692,30.1072 80.8382,30.1473 80.9202,30.1707 80.9392,30.1423 80.9687,30.0949 80.9911,30.0513 81.0144,29.9859 81.0559,29.9967 81.0945,29.9841 81.127,29.9786 81.148,29.9954 81.142,30.023 81.1733,30.0337 81.1933,30.0446 81.2753,30.1387 81.2873,30.2319 81.2853,30.2816 81.3029,30.3417 81.3208,30.3509 81.3415,30.3433 81.3608,30.3256 81.3881,30.3075 81.4401,30.2981 81.4449,30.3245 81.4549,30.3504 81.5244,30.3909 81.5489,30.3852 81.622,30.3585 81.7021,30.3297 81.747,30.3429 81.8452,30.33 82.0048,30.3006 82.0447,30.0866 82.0689,30.0355 82.1183,30.0416 82.3143,29.9768 82.4917,29.859 82.5454,29.8049 82.6695,29.7008 82.7648,29.6337 82.8008,29.6575 82.8913,29.6367 82.9106,29.6254 82.9525,29.5901 83.0131,29.5891 83.0573,29.6001 83.0836,29.5986 83.1497,29.5471 83.2466,29.4577 83.2712,29.4334 83.2696,29.4046 83.2728,29.3834 83.3066,29.3329 83.44,29.1564 83.498,29.132 83.5204,29.1334 83.528,29.137 83.5643,29.1309 83.5801,29.1515 83.5869,29.1739 83.6122,29.1964 83.6426,29.2102 83.8039,29.2571 83.8674,29.2644 84.0077,29.2285 84.0721,29.177 84.0717,29.1507 84.0506,29.1243 84.0532,29.0973 84.1312,29.0213 84.1239,28.9437 84.1283,28.8867 84.1356,28.8814 84.2176,28.8397 84.2797,28.8311 84.2965,28.8171 84.3213,28.7803 84.3501,28.7269 84.3771,28.702 84.4616,28.6805 84.527,28.6708 84.5991,28.6196 84.5939,28.5751 84.7137,28.5201 84.737,28.5125 84.8375,28.5101 84.9217,28.5718 84.9425,28.6024 84.9623,28.6095 84.997,28.6047 85.0851,28.5593 85.0719,28.4983 85.0252,28.4337 85.0037,28.3642 84.9937,28.2846 85.0011,28.2752 85.0302,28.2637 85.1269,28.2471 85.1738,28.2405 85.2666,28.232 85.287,28.2349 85.3039,28.2483 85.3269,28.2687 85.3488,28.2701 85.4731,28.2509 85.6108,28.2475 85.6321,28.2112 85.6701,28.1745 85.7099,28.1538 85.7367,28.142 85.7587,28.1359 85.7771,28.1173 85.841,27.9817 85.8655,27.8791 85.8947,27.855 85.9588,27.8569 85.9787,27.8599 86.0251,27.9041 86.0129,27.9496 85.9931,27.9955 85.9853,28.0554 86.0866,28.1267 86.1033,28.081 86.0857,28.0407 86.1118,27.9803 86.2407,27.9138 86.3399,27.8777 86.4062,27.909 86.4261,27.9286 86.4295,27.9929 86.4579,28.0691 86.4771,28.0817 86.5837,28.0801 86.6169,28.0693 86.6442,28.0508 86.6441,28.0246 86.648,27.9992 86.7918,27.9385 86.8352,27.9166 86.9206,27.9322 86.9745,27.8931 86.9847,27.8602 87.0293,27.8128 87.0805,27.7921 87.1936,27.7853 87.2167,27.7912 87.2964,27.8119 87.4239,27.8094 87.4779,27.7838 87.5131,27.7825 87.5476,27.7978 87.6076,27.7738 87.6383,27.782 87.6673,27.7939 87.6914,27.8129 87.7122,27.8387 87.736,27.8797 87.7595,27.8861 87.8636,27.859 87.8895,27.8548 87.9142,27.8575 87.9411,27.8673 87.9783,27.861 88.0294,27.8349 88.0294,27.8349 25,-6.0,United States -86.4465,30.3628 -86.5127,30.3657 -86.6378,30.3641 -86.7971,30.3385 -86.8794,30.3247 -86.9535,30.3121 -86.976,30.3061 -87.0621,30.2938 -87.0965,30.2885 -87.1375,30.2834 -87.1567,30.2869 -87.1703,30.2924 -87.1769,30.3008 -87.0317,30.3123 -86.9084,30.3368 -86.7777,30.3546 -86.6641,30.3692 -86.6503,30.371 -86.6215,30.3734 -86.5885,30.3747 -86.5185,30.3773 -86.4729,30.3763 -86.4152,30.3632 -86.4465,30.3628 -86.4465,30.3628 17,8.0,China 121.9282,30.267 121.9488,30.2802 121.9587,30.2849 122.0157,30.3015 122.0515,30.3057 122.0606,30.3006 122.0768,30.2771 122.0549,30.2092 122.0411,30.2042 122.0262,30.2055 121.9842,30.2164 121.9723,30.2211 121.9401,30.2375 121.9182,30.2513 121.9206,30.2611 121.9282,30.267 121.9282,30.267 22,8.0,China 121.8117,30.0329 121.8056,30.1052 121.8223,30.1128 121.8861,30.1068 121.9481,30.0989 122.0049,30.0863 122.1283,30.0341 122.1656,29.9874 122.1678,29.9766 122.1356,29.8992 122.1198,29.8979 122.098,29.9189 122.0881,29.9314 122.0789,29.9378 122.0175,29.9606 121.912,29.9817 121.9017,29.9815 121.8882,29.9759 121.8501,29.971 121.8117,30.023 121.8117,30.0329 121.8117,30.0329 82,3.0,Kuwait 47.8815,29.9842 47.889,29.9482 47.9203,29.831 47.9279,29.8072 47.944,29.7702 47.9639,29.7365 47.9979,29.6983 48.0258,29.681 48.0852,29.5828 48.1045,29.532 48.0871,29.5145 48.0374,29.5297 48.0243,29.5473 47.946,29.5965 47.9132,29.5976 47.894,29.5908 47.6465,29.3746 47.6457,29.3429 47.7596,29.2965 47.7923,29.2974 47.8001,29.2981 47.8201,29.3049 47.863,29.3291 47.9003,29.3517 47.9254,29.3522 47.944,29.335 47.9667,29.3121 48.0176,29.2219 48.0352,29.1798 48.0601,29.0704 48.084,28.9967 48.111,28.9457 48.1229,28.9288 48.2165,28.8043 48.298,28.7101 48.3171,28.6823 48.3184,28.6509 48.3126,28.6284 48.3541,28.5133 48.2402,28.5125 47.6273,28.5072 47.5565,28.5822 47.5414,28.6031 47.5135,28.6712 47.5152,28.701 47.5135,28.7379 47.5032,28.7645 47.4791,28.8184 47.4458,28.8907 47.402,28.9522 47.3987,28.9669 46.9361,29.0208 46.7398,29.0429 46.5277,29.0655 46.4874,29.0726 46.4979,29.089 46.5216,29.1107 46.5387,29.1234 46.575,29.146 46.5935,29.156 46.6299,29.1979 46.6546,29.2337 46.7153,29.3236 46.7674,29.4008 46.7984,29.4428 46.8633,29.5216 46.8836,29.5454 46.9206,29.6131 46.9869,29.7609 47.0335,29.8738 47.0526,29.9129 47.068,29.9412 47.0867,29.963 47.1091,29.9817 47.1431,29.9998 47.2896,30.0482 47.3352,30.0493 47.3751,30.0495 47.6615,30.0506 47.8731,29.9844 47.8815,29.9842 47.8815,29.9842 32,3.0,Kuwait 48.1263,29.9485 48.1367,29.9329 48.1458,29.9212 48.2172,29.8329 48.273,29.7658 48.2851,29.7488 48.2896,29.7385 48.2969,29.7116 48.2974,29.6987 48.2937,29.6801 48.2863,29.6667 48.2771,29.6537 48.2675,29.6419 48.2531,29.6268 48.2161,29.5909 48.2038,29.5809 48.1904,29.5719 48.1808,29.5666 48.1661,29.5622 48.1405,29.5614 48.1265,29.563 48.1141,29.5696 48.1056,29.5793 48.1001,29.5879 48.0179,29.74 48.0839,29.8965 48.0527,29.9418 48.0605,29.9501 48.0936,29.959 48.1134,29.9555 48.1263,29.9485 48.1263,29.9485 15,8.0,China 121.9653,29.6531 121.9426,29.6819 121.9079,29.6919 121.8759,29.6804 121.8729,29.6947 121.8776,29.7062 121.9005,29.7431 121.9514,29.7555 122.0237,29.6648 122.0267,29.6546 122.0213,29.6353 122.0104,29.6208 121.9695,29.6325 121.9653,29.6531 121.9653,29.6531 16,-6.0,United States -91.6051,29.5257 -91.6641,29.4549 -91.7229,29.4496 -91.8683,29.518 -91.908,29.5382 -91.9173,29.5483 -91.9149,29.5586 -91.9037,29.5707 -91.8867,29.5848 -91.8038,29.6114 -91.7914,29.6121 -91.7488,29.6047 -91.7373,29.602 -91.6195,29.5439 -91.6051,29.5257 -91.6051,29.5257 41,-8.0,Mexico -112.9932,28.9855 -113.0358,29.003 -113.0613,29.0155 -113.0847,29.0295 -113.0939,29.0355 -113.2104,29.1382 -113.2635,29.187 -113.3778,29.3124 -113.445,29.393 -113.4518,29.404 -113.4535,29.4193 -113.4353,29.5529 -113.3806,29.5388 -113.353,29.5247 -113.3225,29.5027 -113.2603,29.4512 -113.2496,29.4372 -113.2266,29.3901 -113.2191,29.3628 -113.2238,29.3476 -113.2297,29.3387 -113.2341,29.3287 -113.2378,29.311 -113.2361,29.2897 -113.221,29.2818 -113.163,29.2677 -113.1298,29.2659 -113.1139,29.2652 -113.0491,29.1958 -113.0441,29.1209 -113.0429,29.1087 -113.0402,29.0976 -113.0214,29.054 -113.0122,29.0449 -112.9984,29.0395 -112.9786,29.0242 -112.9804,29.0073 -112.9841,28.9968 -112.9891,28.9872 -112.9932,28.9855 -112.9932,28.9855 12,-6.0,United States -94.7191,29.2367 -94.7342,29.2222 -94.747,29.2136 -94.7562,29.2078 -94.9889,29.069 -94.9772,29.0879 -94.9681,29.097 -94.833,29.2052 -94.6986,29.3059 -94.6618,29.2755 -94.7191,29.2367 -94.7191,29.2367 26,2.0,Spain -13.7549,28.8056 -13.8015,28.8238 -13.8342,28.874 -13.8142,28.9615 -13.8076,28.977 -13.7735,29.0199 -13.7309,29.0479 -13.6191,29.0905 -13.5731,29.1062 -13.4551,29.2097 -13.4248,29.199 -13.4039,29.1728 -13.4094,29.1326 -13.4514,28.9813 -13.466,28.9628 -13.4899,28.9463 -13.5241,28.9287 -13.5921,28.8942 -13.6389,28.8811 -13.664,28.887 -13.6795,28.8845 -13.7044,28.8759 -13.7151,28.8679 -13.7514,28.8163 -13.7549,28.8056 -13.7549,28.8056 24,-7.0,Mexico -112.151,28.7243 -112.159,28.7247 -112.2377,28.7462 -112.3003,28.7744 -112.3929,28.8252 -112.4043,28.8326 -112.4179,28.8487 -112.3312,29.1182 -112.3174,29.1442 -112.3112,29.1535 -112.3017,29.1618 -112.2112,29.1972 -112.2001,29.201 -112.1447,29.205 -112.1208,29.1898 -112.0667,29.0316 -112.0576,29.0 -112.0548,28.9629 -112.0557,28.9495 -112.0579,28.937 -112.1049,28.748 -112.1165,28.7414 -112.151,28.7243 -112.151,28.7243 26,-8.0,Mexico -118.1513,28.8848 -118.1526,28.904 -118.1614,28.9398 -118.1796,28.9911 -118.1844,29.0004 -118.1942,29.0191 -118.2021,29.0258 -118.2316,29.0408 -118.2396,29.0477 -118.2473,29.0615 -118.2509,29.1181 -118.2359,29.1404 -118.2257,29.1486 -118.2116,29.1534 -118.1896,29.1574 -118.153,29.1612 -118.0967,29.0423 -118.0873,29.0095 -118.0851,28.9979 -118.0845,28.9177 -118.0918,28.8898 -118.1127,28.853 -118.1362,28.8493 -118.1492,28.849 -118.1513,28.8848 -118.1513,28.8848 28,2.0,Spain -17.7601,28.4973 -17.7637,28.4804 -17.7725,28.4655 -17.8105,28.4214 -17.8236,28.4311 -17.8311,28.4381 -17.8387,28.4475 -17.8473,28.4746 -17.8497,28.505 -17.853,28.5229 -17.9382,28.6784 -17.9532,28.6981 -17.9638,28.7041 -17.9795,28.7178 -17.9797,28.7322 -17.9745,28.7419 -17.9492,28.7772 -17.924,28.793 -17.8833,28.8161 -17.7713,28.8116 -17.7584,28.8067 -17.7419,28.7934 -17.7356,28.785 -17.6935,28.7112 -17.7159,28.5757 -17.7358,28.5306 -17.7601,28.4973 -17.7601,28.4973 57,2.0,Spain -14.3142,28.0133 -14.3271,28.0142 -14.3674,28.0183 -14.4255,28.0378 -14.3955,28.0652 -14.3347,28.0895 -14.2925,28.1102 -14.2426,28.1447 -14.2345,28.1512 -14.1924,28.1947 -14.1856,28.2128 -14.1846,28.2264 -14.1866,28.2516 -14.1839,28.263 -14.175,28.2903 -14.121,28.4025 -14.0639,28.4836 -14.0325,28.5329 -14.0008,28.6044 -13.9907,28.6311 -13.9895,28.6441 -13.9917,28.662 -13.9872,28.6778 -13.9328,28.7066 -13.9177,28.7136 -13.9011,28.719 -13.8701,28.7241 -13.8498,28.7175 -13.8262,28.6948 -13.8148,28.6739 -13.8101,28.6551 -13.8033,28.5907 -13.8014,28.5591 -13.8022,28.5453 -13.8082,28.5034 -13.8429,28.3507 -13.8665,28.2943 -13.886,28.2497 -13.9047,28.2175 -13.9117,28.2094 -13.9239,28.1996 -13.9333,28.1929 -13.9931,28.1839 -14.0121,28.1817 -14.0316,28.1806 -14.0505,28.1767 -14.0796,28.1691 -14.1819,28.1379 -14.1934,28.1277 -14.2074,28.1126 -14.2218,28.0902 -14.2285,28.0824 -14.2632,28.0513 -14.2987,28.02 -14.3086,28.0152 -14.3142,28.0133 -14.3142,28.0133 36,-5.0,United States -80.4953,28.5777 -80.483,28.5588 -80.4618,28.5226 -80.4481,28.4932 -80.431,28.4177 -80.4556,28.4007 -80.4927,28.3705 -80.4935,28.3075 -80.4935,28.2427 -80.4935,28.215 -80.4915,28.1945 -80.4868,28.1634 -80.4826,28.1423 -80.4765,28.111 -80.4688,28.0798 -80.4574,28.0483 -80.4329,28.0025 -80.3925,27.9375 -80.3712,27.9047 -80.3603,27.8871 -80.3424,27.8434 -80.3429,27.8333 -80.4037,27.9237 -80.4572,28.0133 -80.489,28.0836 -80.4967,28.1062 -80.503,28.1297 -80.516,28.1865 -80.5174,28.2964 -80.5127,28.3711 -80.5008,28.3932 -80.4875,28.4372 -80.4802,28.47 -80.4805,28.5172 -80.4953,28.5777 -80.4953,28.5777 22,-5.0,United States -80.5641,28.2304 -80.6193,28.3475 -80.6359,28.4464 -80.6323,28.4932 -80.6273,28.5074 -80.5911,28.543 -80.5387,28.5657 -80.5206,28.5581 -80.5097,28.5431 -80.5059,28.5285 -80.5064,28.5165 -80.5113,28.502 -80.5226,28.4806 -80.5293,28.4687 -80.5357,28.455 -80.5417,28.4417 -80.5499,28.4156 -80.5646,28.3419 -80.5561,28.2873 -80.5652,28.2491 -80.5641,28.2304 -80.5641,28.2304 40,2.0,Spain -16.6495,27.9528 -16.6748,27.9984 -16.7032,28.0377 -16.7304,28.0705 -16.7418,28.081 -16.7674,28.1118 -16.811,28.166 -16.8874,28.3146 -16.8221,28.3412 -16.8053,28.3429 -16.7942,28.3392 -16.7738,28.3324 -16.7286,28.3317 -16.6721,28.3376 -16.5422,28.36 -16.4718,28.3841 -16.3973,28.4531 -16.3926,28.4623 -16.388,28.4795 -16.3818,28.4876 -16.357,28.5039 -16.2526,28.5381 -16.1358,28.5402 -16.1352,28.4702 -16.1563,28.4608 -16.1967,28.4418 -16.206,28.4367 -16.214,28.4298 -16.32,28.3385 -16.3281,28.3286 -16.373,28.1904 -16.3967,28.114 -16.4532,28.0494 -16.5078,27.9908 -16.5252,27.9891 -16.5398,27.9902 -16.5532,27.988 -16.6329,27.9626 -16.6495,27.9528 -16.6495,27.9528 1157,6.5,Myanmar (Burma) 92.4872,21.9577 92.4919,21.9587 92.562,22.0007 92.5818,22.0694 92.5921,22.1298 92.6847,22.0844 92.7478,22.0279 92.7618,22.0094 92.7708,21.9892 92.8103,21.9806 92.8454,22.0002 92.8764,22.0242 92.9017,22.0903 92.9323,22.1797 92.9568,22.1868 92.9912,22.1807 93.0148,22.1612 93.0408,22.1633 93.0832,22.24 93.0822,22.292 93.0778,22.3321 93.0746,22.3595 93.0615,22.4164 93.0269,22.4406 93.0045,22.5053 92.9821,22.6401 92.9776,22.6891 92.9869,22.7762 93.0025,22.8455 93.0247,22.9274 93.0109,22.9885 93.0241,23.0212 93.0691,23.0336 93.0946,23.0255 93.1109,22.9922 93.1318,22.9814 93.159,22.9788 93.19,22.992 93.2333,23.0453 93.2718,23.2055 93.2558,23.3317 93.2833,23.3971 93.3086,23.5759 93.3063,23.636 93.2984,23.6783 93.2674,23.8213 93.2346,23.9268 93.2125,23.9537 93.211,24.0093 93.2208,24.0448 93.2504,24.0641 93.2711,24.0601 93.2906,24.0478 93.3046,24.017 93.3569,23.9442 93.3834,23.9355 93.4122,23.9375 93.4764,23.9447 93.4931,23.9671 93.5115,23.9897 93.5726,23.9884 93.6488,23.9737 93.6672,23.9498 93.6833,23.922 93.7055,23.9086 93.7412,23.9155 93.7929,23.9291 93.9141,23.893 93.9767,23.8598 94.0172,23.817 94.0304,23.8248 94.1022,23.9841 94.1246,24.0539 94.1522,24.1524 94.1957,24.2587 94.2409,24.3445 94.3534,24.5542 94.3817,24.5759 94.4787,24.6975 94.4991,24.7327 94.5492,24.8399 94.6149,25.004 94.6136,25.095 94.601,25.112 94.5664,25.1272 94.5428,25.1357 94.4965,25.1426 94.4739,25.1562 94.4582,25.1812 94.456,25.2053 94.4621,25.2606 94.5083,25.3734 94.5413,25.3996 94.5488,25.4193 94.5666,25.4373 94.6195,25.4665 94.6479,25.463 94.6731,25.4715 94.7643,25.55 94.8752,25.7034 94.9072,25.7964 94.9458,25.9172 94.9711,25.9315 94.9962,25.9545 95.0135,25.9728 95.0433,26.0078 95.0536,26.0372 94.9918,26.109 94.9586,26.2051 94.945,26.2824 94.9443,26.4461 95.0232,26.5863 95.1161,26.6466 95.1316,26.6497 95.1395,26.6203 95.2659,26.6551 95.2988,26.6687 95.3232,26.6826 95.3548,26.7227 95.3711,26.7615 95.385,26.7831 95.4035,26.7947 95.4242,26.7966 95.4837,26.793 95.5485,26.8682 95.6831,26.9726 95.7055,26.9781 95.7505,26.9829 95.7891,27.0006 95.8129,27.0216 95.8388,27.0501 95.8583,27.0802 95.8702,27.1065 95.8879,27.1389 95.9063,27.1571 95.9747,27.2015 96.0306,27.2255 96.0675,27.2396 96.1045,27.2455 96.3023,27.2742 96.3726,27.2718 96.4975,27.3353 96.6014,27.335 96.6393,27.3254 96.6596,27.3164 96.6969,27.2912 96.7306,27.2325 96.7394,27.1819 96.7578,27.1526 96.7808,27.1384 96.836,27.117 96.8739,27.1036 96.9349,27.0627 97.0107,27.057 97.0343,27.0979 96.9201,27.2564 96.9065,27.2722 96.8768,27.2982 96.844,27.3356 96.7788,27.4266 96.7616,27.5692 96.7656,27.5888 96.8076,27.6314 96.879,27.6869 96.9217,27.7188 96.9952,27.7609 97.2357,27.9098 97.2549,27.9601 97.2343,28.0125 97.1915,28.056 97.2088,28.1348 97.2233,28.1914 97.2347,28.2133 97.2901,28.2634 97.3199,28.2606 97.3433,28.2661 97.3571,28.3058 97.3707,28.3854 97.4328,28.5145 97.5799,28.4872 97.5958,28.4696 97.6107,28.4248 97.6174,28.3888 97.6785,28.3141 97.7109,28.3236 97.7269,28.3405 97.7759,28.3471 97.8938,28.2378 97.8899,28.1841 98.0096,28.1247 98.0186,28.1174 98.0298,28.0897 98.0199,27.977 98.0695,27.8089 98.1038,27.7206 98.1369,27.666 98.1655,27.6017 98.1766,27.5426 98.1935,27.5093 98.221,27.4982 98.2502,27.5022 98.2805,27.5262 98.2978,27.56 98.2993,27.6019 98.3322,27.6417 98.4065,27.6199 98.5192,27.5746 98.5701,27.4991 98.559,27.4388 98.5754,27.3492 98.6051,27.3327 98.6087,27.2913 98.5852,27.2229 98.5668,27.1981 98.5646,27.1775 98.5842,27.1026 98.6119,26.9755 98.6338,26.864 98.6511,26.7618 98.6518,26.6098 98.649,26.5762 98.6196,26.3967 98.6005,26.3335 98.5778,26.2185 98.6048,26.1557 98.5823,26.1033 98.5531,26.0771 98.5294,26.071 98.5213,26.0914 98.5225,26.1186 98.4651,26.1084 98.4435,26.0961 98.4493,26.0542 98.4798,25.9601 98.5294,25.9248 98.5882,25.8635 98.5843,25.8271 98.5026,25.7745 98.4576,25.795 98.4151,25.8161 98.3571,25.7678 98.3524,25.7355 98.313,25.6624 98.2579,25.5632 98.2362,25.5409 98.1825,25.5238 98.1022,25.5646 98.0658,25.5866 98.0423,25.5426 98.0432,25.5217 98.0106,25.382 97.9997,25.3615 97.9412,25.2824 97.8205,25.1879 97.7847,25.1838 97.7613,25.2191 97.7279,25.2389 97.7032,25.2226 97.6905,25.1809 97.6818,25.1422 97.6654,25.1094 97.6336,25.0633 97.6018,25.0369 97.5995,24.9537 97.6133,24.891 97.5662,24.8068 97.5482,24.795 97.4557,24.7345 97.4298,24.7125 97.4377,24.6886 97.4455,24.6393 97.439,24.5376 97.434,24.5097 97.4205,24.4495 97.5425,24.4149 97.59,24.348 97.6369,24.2333 97.626,24.1344 97.6141,24.1083 97.5991,24.0874 97.5725,24.0665 97.5221,24.0262 97.4154,23.9218 97.4256,23.9035 97.4594,23.8945 97.512,23.8619 97.5237,23.8425 97.5282,23.8251 97.57,23.8572 97.6426,23.8962 97.743,23.9536 97.7743,23.9864 97.7902,24.0 97.9208,24.0559 97.9416,24.0623 98.065,24.0926 98.0977,24.0985 98.3232,24.108 98.3907,24.1041 98.4235,24.0976 98.4633,24.0683 98.7282,24.1036 98.7511,24.1192 98.767,24.1333 98.7815,24.0982 98.7738,24.0747 98.7459,24.0517 98.7251,24.0358 98.6316,23.9713 98.6039,23.959 98.5564,23.944 98.5645,23.79 98.6941,23.7343 98.7298,23.6115 98.6838,23.5155 98.7049,23.4543 98.7395,23.4596 98.7646,23.4468 98.781,23.417 98.7923,23.3862 98.8017,23.3013 98.7984,23.2583 98.8047,23.1635 98.9811,23.0781 99.0788,23.0744 99.1106,23.0807 99.1349,23.092 99.2346,23.1084 99.388,23.0565 99.4415,22.9109 99.4281,22.8924 99.3914,22.8871 99.3196,22.8445 99.2218,22.6848 99.2635,22.5649 99.262,22.4819 99.2536,22.4618 99.2401,22.4443 99.2259,22.4293 99.2083,22.4118 99.1707,22.3799 99.0457,22.1314 99.1191,22.088 99.2444,22.0689 99.2875,22.0817 99.3124,22.0969 99.3433,22.1111 99.4657,22.0843 99.5372,22.0628 99.563,22.0506 99.5866,22.0151 99.6215,22.0493 99.7693,22.0359 99.8346,22.0257 99.8677,21.9398 99.852,21.8929 99.8364,21.8677 99.8232,21.8321 99.8194,21.797 99.8551,21.7012 99.8757,21.6756 99.9613,21.6621 100.0186,21.6102 99.9848,21.5611 99.9978,21.4907 100.0448,21.4371 100.0832,21.4114 100.1602,21.4529 100.2226,21.5008 100.2503,21.5141 100.3037,21.5055 100.3334,21.4708 100.3543,21.4381 100.4492,21.4284 100.5167,21.4528 100.5981,21.4871 100.6768,21.5641 100.6847,21.5838 100.7123,21.6226 100.9751,21.7448 100.9967,21.7463 101.0431,21.6106 101.0455,21.5796 101.0245,21.5486 101.0383,21.5124 101.0033,21.467 100.9771,21.4416 100.8778,21.3745 100.7392,21.2928 100.716,21.2804 100.6948,21.2757 100.6512,21.2771 100.604,21.2842 100.58,21.2039 100.5766,21.1589 100.549,21.1044 100.5019,21.0312 100.4802,21.015 100.4481,21.0085 100.4243,21.0027 100.3982,20.9287 100.3991,20.8532 100.4213,20.8447 100.4529,20.8535 100.4878,20.8654 100.5197,20.8618 100.5178,20.8385 100.4954,20.8172 100.4822,20.8106 100.4382,20.7905 100.4037,20.7814 100.3744,20.7827 100.3397,20.7897 100.3193,20.795 100.2495,20.803 100.1686,20.7484 100.1367,20.726 100.0875,20.6699 100.0508,20.6051 100.0275,20.5218 100.0195,20.4665 100.004,20.3786 99.9912,20.353 99.9699,20.326 99.963,20.3259 99.8984,20.3606 99.8645,20.3932 99.8594,20.4129 99.8412,20.4317 99.7525,20.4062 99.7302,20.382 99.7132,20.3413 99.6945,20.3178 99.667,20.307 99.5491,20.2888 99.49,20.3005 99.4077,20.3274 99.3816,20.2861 99.434,20.1802 99.4189,20.1312 99.395,20.1231 99.3671,20.0962 99.3317,20.0744 99.2115,20.0447 99.1794,20.0545 99.1496,20.0791 99.1234,20.0946 99.0728,20.1042 99.0441,20.1041 98.9588,20.076 98.922,20.0205 98.9027,19.9022 98.9098,19.8687 98.9181,19.8352 98.9128,19.8136 98.8802,19.7624 98.8259,19.7489 98.7711,19.7542 98.7181,19.7931 98.5296,19.7201 98.4011,19.6877 98.3567,19.6718 98.2715,19.6737 98.2181,19.6717 98.1228,19.668 98.0962,19.7043 98.0581,19.7361 98.0204,19.7612 97.9555,19.7871 97.9305,19.7829 97.9099,19.692 97.9207,19.6501 97.9169,19.6258 97.8455,19.5798 97.7887,19.553 97.7502,19.5484 97.7475,19.4999 97.6737,19.3771 97.6839,19.3383 97.7154,19.2685 97.7232,19.1856 97.7218,19.1463 97.7133,19.0774 97.6655,19.0471 97.6286,19.0105 97.5615,18.9111 97.6014,18.8684 97.6278,18.8464 97.6632,18.6577 97.6616,18.6144 97.6603,18.5838 97.6573,18.5517 97.6333,18.5518 97.5346,18.5414 97.5087,18.5347 97.4334,18.4864 97.3887,18.4754 97.3286,18.4758 97.2505,18.5376 97.2445,18.5588 97.2361,18.5544 97.2293,18.5215 97.2498,18.501 97.2757,18.4729 97.3195,18.3901 97.3281,18.3704 97.3322,18.35 97.3328,18.3165 97.3799,18.259 97.4011,18.2461 97.4207,18.2551 97.4363,18.2992 97.4679,18.3064 97.5002,18.2944 97.5252,18.2602 97.5052,18.2324 97.5027,18.2051 97.5345,18.1549 97.569,18.1084 97.6328,17.9549 97.6258,17.9348 97.5888,17.9082 97.5694,17.8479 97.6602,17.6838 97.6759,17.6645 97.7328,17.6038 97.8057,17.5493 97.8505,17.5089 97.9346,17.3963 98.0007,17.2947 98.061,17.2386 98.0871,17.2168 98.1544,17.1549 98.1862,17.1217 98.2564,17.0317 98.2823,17.0336 98.3051,17.0345 98.3431,16.9967 98.3927,16.9223 98.4254,16.8649 98.4316,16.836 98.3882,16.7634 98.3619,16.7202 98.4043,16.6666 98.4453,16.6123 98.5436,16.4417 98.55,16.3637 98.5731,16.265 98.5962,16.2576 98.6704,16.3349 98.709,16.3841 98.7463,16.4202 98.8026,16.3769 98.7975,16.2433 98.7397,16.123 98.6943,16.087 98.6713,16.1006 98.581,16.1112 98.5614,16.1027 98.5136,16.0283 98.4972,15.9479 98.4476,15.7051 98.4516,15.681 98.4583,15.6444 98.4534,15.6266 98.4479,15.5901 98.454,15.538 98.4598,15.5157 98.4752,15.4601 98.479,15.4353 98.4763,15.3996 98.4721,15.3655 98.4647,15.3408 98.4458,15.3177 98.4351,15.3401 98.3836,15.3704 98.307,15.3435 98.3036,15.267 98.2808,15.2543 98.1177,15.2041 98.0888,15.2098 98.0865,15.1877 98.0847,15.0584 98.0998,14.9773 98.1185,14.9493 98.1359,14.9116 98.1395,14.8823 98.1315,14.8576 98.1462,14.7952 98.2099,14.6986 98.2771,14.6351 98.3024,14.62 98.3278,14.5952 98.3527,14.562 98.4046,14.4707 98.4259,14.4308 98.4555,14.368 98.4999,14.3061 98.6451,14.2016 98.6928,14.1694 98.7722,14.1156 98.8247,14.0854 98.8593,14.0636 98.889,13.9953 98.9221,13.9191 99.0156,13.7565 99.0603,13.7126 99.0567,13.65 99.0555,13.6195 99.0635,13.5628 99.0751,13.5265 99.0969,13.4533 99.1037,13.3973 99.1014,13.2202 99.0982,13.1967 99.091,13.1889 99.0422,13.1833 99.0126,13.1645 99.0002,13.0466 99.1273,12.7206 99.1938,12.6512 99.3246,12.5603 99.3173,12.485 99.3361,12.3175 99.3444,12.2849 99.3886,12.1749 99.4591,12.1251 99.4524,12.0884 99.4458,12.0023 99.4738,11.8714 99.5181,11.8199 99.5468,11.8132 99.5277,11.7289 99.4498,11.6175 99.3554,11.5555 99.2486,11.3375 99.2151,11.2662 99.1561,11.1643 99.145,11.147 99.1041,11.0869 99.0579,11.03 99.0351,11.018 99.0191,11.0119 99.0017,11.001 98.94,10.9459 98.8265,10.8101 98.7894,10.7645 98.76,10.7613 98.7162,10.7201 98.6766,10.6656 98.6669,10.6099 98.6886,10.5831 98.7161,10.5083 98.6878,10.4449 98.6632,10.4211 98.6512,10.3983 98.6408,10.3666 98.6348,10.337 98.6005,10.2536 98.5718,10.1847 98.4922,10.0482 98.4438,9.9757 98.4186,10.0018 98.3994,10.1458 98.4029,10.2253 98.4252,10.3372 98.4036,10.4081 98.3893,10.4271 98.3485,10.6629 98.3528,10.7169 98.3924,10.7145 98.4186,10.6848 98.4561,10.7155 98.5192,10.834 98.6008,10.9042 98.6102,10.9439 98.6072,10.9647 98.6021,10.9805 98.5884,11.1247 98.6156,11.1497 98.6287,11.1678 98.6492,11.2556 98.6218,11.314 98.6076,11.3397 98.5931,11.3623 98.6127,11.546 98.6379,11.6619 98.7204,11.6953 98.7741,11.6844 98.7399,11.7196 98.6756,11.754 98.5983,11.6843 98.5808,11.6636 98.5494,11.676 98.5002,11.7107 98.4891,11.7361 98.4964,11.7913 98.5536,11.903 98.6101,11.9508 98.6111,12.0007 98.5904,12.0312 98.5448,12.1551 98.6002,12.1858 98.5956,12.2107 98.5764,12.2284 98.5272,12.2107 98.4874,12.1805 98.4397,12.1954 98.4237,12.2409 98.4578,12.2812 98.5287,12.291 98.5734,12.3026 98.5931,12.3264 98.569,12.3563 98.5345,12.3719 98.5183,12.3843 98.4945,12.4072 98.4944,12.4549 98.5108,12.5443 98.5383,12.5942 98.5698,12.6766 98.5241,12.8575 98.5102,12.8736 98.4826,12.9014 98.473,13.0759 98.4721,13.1395 98.4686,13.1635 98.4127,13.2215 98.381,13.2416 98.3627,13.2701 98.3464,13.3432 98.3369,13.3929 98.3175,13.4614 98.2916,13.5062 98.211,13.6187 98.1739,13.6688 98.139,13.763 98.1361,13.8436 98.1209,13.9373 98.0996,14.0102 98.0726,14.0392 98.0664,14.0099 98.0748,13.9223 98.0829,13.8794 98.0857,13.6469 98.065,13.5199 98.0286,13.523 97.9701,13.7462 97.9656,13.774 97.9835,13.7831 97.9906,13.8904 97.9704,14.0326 97.9736,14.1641 97.9539,14.1881 97.9218,14.2348 97.8977,14.2752 97.8681,14.3423 97.7623,14.6569 97.7391,14.7011 97.7129,14.7722 97.682,14.8655 97.6832,14.9052 97.6953,15.0878 97.6953,15.1356 97.6822,15.1686 97.6596,15.1896 97.6266,15.2353 97.619,15.3138 97.6199,15.3417 97.6636,15.4096 97.6483,15.4937 97.6087,15.7535 97.6078,15.8292 97.5928,15.8675 97.5766,15.8929 97.5246,15.9291 97.478,15.9846 97.4575,16.0275 97.4531,16.0472 97.4762,16.0695 97.4983,16.0964 97.5319,16.2386 97.5338,16.2592 97.5212,16.2914 97.5079,16.32 97.5038,16.343 97.5055,16.4057 97.518,16.4722 97.5642,16.5244 97.62,16.5425 97.6136,16.549 97.5866,16.5538 97.5485,16.5316 97.4591,16.5148 97.3915,16.5178 97.2901,16.504 97.2613,16.4767 97.2409,16.5073 97.0877,16.826 97.0975,16.8817 97.0691,16.8809 97.0479,17.0367 97.0333,17.1048 96.9445,17.2328 96.894,17.2737 96.8523,17.3006 96.7946,17.3457 96.7779,17.363 96.7611,17.4304 96.7256,17.3858 96.7625,17.3251 96.7473,17.2222 96.7275,17.1719 96.7444,17.1274 96.7541,17.1091 96.7654,17.0926 96.7833,17.0647 96.7958,17.0176 96.7551,16.9037 96.7215,16.9004 96.6913,16.8856 96.6961,16.8767 96.701,16.8743 96.7268,16.8522 96.7303,16.8242 96.6789,16.7083 96.6617,16.6852 96.647,16.6691 96.5663,16.5894 96.5036,16.5357 96.4804,16.5205 96.3855,16.4897 96.3498,16.4827 96.2938,16.4801 96.2618,16.484 96.1822,16.5327 96.1491,16.5792 96.1134,16.6826 96.1063,16.7272 96.1206,16.7557 96.1414,16.767 96.1609,16.785 96.1264,16.785 96.0804,16.7478 96.084,16.706 96.0915,16.6637 96.1127,16.5699 96.1359,16.5221 96.1554,16.4876 96.1884,16.444 96.1529,16.3714 96.0674,16.3291 95.9695,16.3339 95.8918,16.3649 95.9546,16.3197 95.9576,16.2967 95.9069,16.2377 95.8538,16.1977 95.8244,16.1984 95.7725,16.2193 95.6387,16.1263 95.6179,16.0973 95.5756,16.0228 95.574,15.9873 95.5705,15.9626 95.5592,15.9437 95.5228,15.9002 95.5062,15.8826 95.4051,15.78 95.3792,15.7583 95.3358,15.726 95.3148,15.7122 95.2799,15.6952 95.1784,15.7088 95.1646,15.7725 95.1657,15.8159 95.1876,15.8363 95.2051,15.8562 95.2461,15.9512 95.2516,15.974 95.2531,16.0252 95.2465,16.1233 95.2208,16.1044 95.2124,16.0857 95.2314,16.0532 95.2359,16.0289 95.2354,16.0048 95.2308,15.9776 95.2159,15.9468 95.1716,15.8732 95.1443,15.8453 95.1252,15.8581 95.1518,15.9327 95.1599,15.9821 95.1217,15.9231 95.1067,15.8697 95.1033,15.8446 95.1121,15.8064 95.1039,15.7688 95.0601,15.7595 95.0273,15.7745 95.0076,15.8071 94.9872,15.97 94.9884,16.0109 94.9941,16.0444 95.0151,16.0692 95.0511,16.0909 95.0798,16.0944 95.1104,16.1012 95.0664,16.1186 95.0234,16.1191 94.9767,16.0798 94.9538,16.0354 94.9561,15.9832 94.9611,15.9596 94.9597,15.9228 94.9389,15.8205 94.9271,15.7908 94.847,15.7357 94.7349,15.7645 94.7419,15.8705 94.7225,15.93 94.7741,15.9998 94.7681,16.0305 94.7575,16.0763 94.7481,16.1125 94.7594,16.1337 94.7877,16.1661 94.8277,16.1777 94.8525,16.1902 94.875,16.218 94.7821,16.1874 94.7657,16.1728 94.7478,16.1443 94.7328,16.1107 94.7374,16.043 94.7424,16.0151 94.7268,15.9757 94.6145,15.8433 94.5974,15.8298 94.5843,15.8249 94.566,15.825 94.5441,15.8332 94.4996,15.8683 94.4932,15.8994 94.525,15.9254 94.5529,15.9372 94.579,15.956 94.6062,15.9833 94.661,16.0858 94.6784,16.1306 94.6472,16.122 94.6151,16.0653 94.6048,16.0343 94.5977,15.9998 94.5094,15.93 94.4786,15.9152 94.4509,15.9208 94.4489,15.9414 94.4661,15.964 94.4912,15.987 94.5079,16.0042 94.5234,16.0221 94.5367,16.042 94.5556,16.076 94.5677,16.1058 94.5735,16.1717 94.5293,16.3196 94.5029,16.3194 94.4436,16.2527 94.424,16.2759 94.3991,16.265 94.4048,16.2356 94.4014,16.1831 94.3945,16.1617 94.3193,16.0475 94.2145,15.9676 94.1383,15.9413 94.0894,16.0098 94.1198,16.3327 94.1986,16.5041 94.2326,16.5342 94.2927,16.7802 94.2809,16.8249 94.2966,16.8758 94.3411,16.9468 94.4115,17.1544 94.3978,17.1967 94.4364,17.2975 94.4489,17.3955 94.4543,17.4433 94.4558,17.4825 94.498,17.5278 94.4779,17.5955 94.4683,17.6141 94.4294,17.6885 94.3798,17.8133 94.3528,17.9831 94.3734,18.0054 94.3752,18.0448 94.2692,18.3425 94.2281,18.3761 94.1395,18.5138 94.1242,18.7167 94.0262,18.8398 94.0062,18.7902 93.9242,18.8261 93.9149,18.8778 93.9266,18.9429 93.9438,19.0307 93.9242,19.0566 93.9129,19.1221 93.9277,19.1609 93.9338,19.1803 93.9371,19.2001 93.9265,19.2199 93.9192,19.1919 93.9117,19.1732 93.8821,19.1283 93.8557,19.1222 93.8341,19.1309 93.7844,19.1849 93.8334,19.0544 93.8712,18.9383 93.857,18.9002 93.8283,18.8414 93.8051,18.8433 93.7403,18.8811 93.5891,18.9935 93.5543,19.0457 93.5284,19.106 93.4572,19.1973 93.3858,19.2853 93.3698,19.3125 93.3644,19.3385 93.37,19.3647 93.3854,19.3896 93.4106,19.4064 93.4338,19.4068 93.4972,19.3792 93.5239,19.3326 93.5245,19.3124 93.5545,19.2744 93.6283,19.228 93.6713,19.2114 93.7048,19.2095 93.7284,19.219 93.7604,19.2344 93.7823,19.2516 93.8037,19.2723 93.835,19.3036 93.8643,19.3409 93.8717,19.4355 93.7957,19.4553 93.707,19.5268 93.6193,19.6012 93.5707,19.6974 93.4866,19.6954 93.4859,19.7637 93.5484,19.8549 93.5789,19.8655 93.6099,19.8591 93.6281,19.8945 93.6104,19.9104 93.4968,19.8805 93.4729,19.8573 93.4418,19.8712 93.4213,19.9013 93.3983,19.9253 93.3764,19.942 93.3389,19.9301 93.2997,19.9515 93.2869,19.9898 93.258,20.0198 93.1702,20.0222 93.1499,20.0197 93.0511,20.0321 93.0248,20.0435 93.0547,19.9573 93.0623,19.9382 93.1017,19.8509 93.1298,19.8098 93.1096,19.8055 93.0579,19.8999 93.038,19.9268 93.0251,19.9542 92.9875,19.9534 92.9877,19.9291 93.0207,19.8284 93.0543,19.7804 93.0137,19.8171 92.8693,20.052 92.8695,20.1015 92.9459,20.1074 92.9963,20.1487 93.0012,20.1935 92.9661,20.1744 92.929,20.1426 92.9018,20.1219 92.8814,20.1268 92.8767,20.1836 92.898,20.273 92.7784,20.0967 92.7549,20.0971 92.6572,20.1809 92.6781,20.233 92.7541,20.279 92.7791,20.3 92.7337,20.3798 92.6832,20.4673 92.601,20.5779 92.5314,20.6629 92.5739,20.5871 92.5931,20.569 92.6232,20.4132 92.6246,20.2407 92.5991,20.2532 92.5801,20.2811 92.569,20.3101 92.5071,20.4344 92.388,20.5928 92.3476,20.6266 92.3183,20.6484 92.2964,20.6573 92.268,20.672 92.2497,20.7353 92.1982,20.8672 92.1729,20.9147 92.1612,20.9631 92.1492,21.031 92.1202,21.0918 92.1024,21.113 92.0931,21.1954 92.0922,21.2769 92.1094,21.3343 92.1481,21.3907 92.247,21.4486 92.2686,21.4482 92.4242,21.3541 92.4731,21.2389 92.4934,21.2287 92.553,21.2696 92.5562,21.2732 92.5456,21.2961 92.5348,21.326 92.5282,21.3489 92.5175,21.3913 92.5046,21.4462 92.4867,21.6099 92.4856,21.6327 92.4854,21.7708 92.4973,21.8288 92.5066,21.8552 92.5015,21.8967 92.4923,21.9407 92.4872,21.9577 92.4872,21.9577 10,6.5,Myanmar (Burma) 92.9128,20.3325 92.9199,20.3621 92.9669,20.4866 92.9691,20.5162 92.9183,20.4467 92.9083,20.4096 92.9057,20.3809 92.908,20.3575 92.9128,20.3325 92.9128,20.3325 23,9.0,Japan 129.5231,28.466 129.5286,28.4595 129.5368,28.4467 129.5481,28.4194 129.5503,28.402 129.5405,28.3923 129.4953,28.3725 129.4825,28.3725 129.4543,28.3659 129.417,28.3382 129.3449,28.2636 129.2985,28.1798 129.2064,28.0851 128.9912,28.2033 128.9769,28.2211 129.09,28.2893 129.1596,28.3206 129.4076,28.43 129.4541,28.4453 129.4525,28.4198 129.5,28.4452 129.5231,28.466 129.5231,28.466 32,-6.0,United States -96.6515,28.1607 -96.6313,28.163 -96.5859,28.1728 -96.5388,28.2061 -96.5302,28.2157 -96.5195,28.2292 -96.3823,28.3032 -96.3058,28.3452 -96.3004,28.3586 -96.2851,28.3634 -96.276,28.3354 -96.2751,28.319 -96.2824,28.3046 -96.2949,28.2935 -96.3246,28.2793 -96.3451,28.2718 -96.3617,28.2661 -96.4035,28.2481 -96.427,28.2353 -96.5675,28.1512 -96.5816,28.1421 -96.6121,28.1226 -96.6287,28.1096 -96.6804,28.0685 -96.6884,28.0612 -96.6923,28.0785 -96.6856,28.1339 -96.6786,28.1473 -96.6693,28.1578 -96.6578,28.1611 -96.6515,28.1607 -96.6515,28.1607 23,-7.0,Mexico -115.0305,27.9936 -115.1144,28.041 -115.1611,28.069 -115.1754,28.1082 -115.1572,28.1231 -115.1501,28.1304 -115.1143,28.1746 -115.1055,28.1873 -115.101,28.2015 -115.1159,28.2375 -115.1304,28.277 -115.1295,28.2966 -115.117,28.3202 -115.1053,28.3335 -115.092,28.3388 -115.0734,28.3358 -115.0618,28.324 -115.0298,28.2772 -114.9974,28.1475 -114.9941,28.1235 -115.0215,28.0013 -115.0305,27.9936 -115.0305,27.9936 194,6.0,Bhutan 88.8033,27.2869 88.8091,27.3149 88.8213,27.3378 88.8321,27.3547 88.842,27.4001 88.853,27.4358 88.8705,27.4582 88.9011,27.479 88.9431,27.493 88.9718,27.5076 88.9905,27.52 89.0141,27.541 89.0133,27.5925 89.0516,27.6441 89.0648,27.666 89.0853,27.7072 89.1035,27.7471 89.1219,27.7762 89.1542,27.7964 89.2447,27.8404 89.2719,27.884 89.283,27.9018 89.2943,27.919 89.3351,27.9773 89.3407,27.986 89.3523,28.003 89.372,28.0266 89.4725,28.1104 89.5111,28.1282 89.5771,28.1422 89.6054,28.1429 89.6308,28.1442 89.6759,28.1633 89.7208,28.2201 89.747,28.24 89.8821,28.2922 89.9045,28.2933 90.0624,28.269 90.1093,28.2586 90.1325,28.2533 90.17,28.2439 90.2031,28.2326 90.2298,28.2278 90.2724,28.2111 90.279,28.1692 90.2629,28.1381 90.2499,28.1191 90.24,28.1011 90.2369,28.0673 90.26,28.0484 90.3496,28.0403 90.3938,28.0478 90.4157,28.0493 90.4396,28.0438 90.5098,28.0441 90.5336,28.0471 90.6397,28.0335 90.723,28.0168 90.7519,28.0192 90.8009,28.0152 90.8341,28.0012 90.8504,27.9879 90.8762,27.9613 90.903,27.9458 90.9694,27.9387 90.9949,27.9408 91.0144,27.9525 91.0281,27.9708 91.0476,27.9948 91.1014,28.0435 91.1838,28.0497 91.2085,28.0318 91.2392,28.0105 91.3017,27.9794 91.3321,27.9661 91.3673,27.9581 91.3831,27.9583 91.4025,27.9602 91.4889,27.9383 91.5207,27.9264 91.5446,27.9137 91.5591,27.8978 91.5558,27.8668 91.5388,27.8383 91.535,27.8051 91.5386,27.7468 91.5399,27.7338 91.541,27.7101 91.5363,27.6856 91.5242,27.6662 91.5026,27.6502 91.4811,27.629 91.4825,27.5844 91.4998,27.5299 91.5136,27.5057 91.558,27.4565 91.6527,27.4012 91.7356,27.4061 91.8401,27.424 91.8753,27.4448 91.9597,27.338 91.9708,27.3188 91.996,27.2626 91.926,27.1579 91.897,27.1379 91.892,27.0713 91.8997,27.0489 91.9272,27.0248 91.9533,27.0068 91.9686,26.9846 91.9825,26.9489 91.9949,26.9003 91.9849,26.8654 91.9739,26.8485 91.9633,26.8392 91.9465,26.8299 91.9132,26.8219 91.8738,26.8238 91.7206,26.8331 91.6247,26.7901 91.598,26.7709 91.4256,26.7754 91.3997,26.8092 91.384,26.8374 91.2998,26.8413 91.284,26.8184 91.2729,26.7922 91.2584,26.7744 91.2258,26.7566 91.1901,26.748 91.1678,26.75 91.146,26.7649 91.1141,26.7765 91.0027,26.7793 90.9328,26.7589 90.8499,26.7536 90.841,26.7545 90.8202,26.7549 90.786,26.7548 90.6281,26.7473 90.5921,26.7428 90.5725,26.7432 90.5253,26.7525 90.448,26.7753 90.4028,26.7946 90.3411,26.828 90.3013,26.8644 90.2729,26.8733 90.2471,26.8697 90.1013,26.8207 90.0805,26.8041 90.0677,26.7838 90.0604,26.7441 90.0336,26.7257 90.008,26.7182 89.9665,26.7094 89.7389,26.6797 89.6907,26.6773 89.6782,26.677 89.6548,26.6738 89.528,26.6855 89.5081,26.6954 89.5289,26.7228 89.5278,26.7326 89.4738,26.7623 89.4485,26.7724 89.4113,26.7816 89.3671,26.7703 89.2525,26.8293 89.2462,26.8302 89.1855,26.8207 89.1617,26.8016 89.1063,26.7847 89.0858,26.784 89.0351,26.789 89.0118,26.7937 88.992,26.8027 88.9792,26.8282 88.9704,26.8556 88.9239,26.8926 88.8334,26.9394 88.7799,26.9455 88.7552,27.0372 88.7475,27.0635 88.712,27.091 88.6786,27.1122 88.6393,27.1179 88.6482,27.1541 88.6966,27.2243 88.7285,27.2353 88.7769,27.2467 88.7968,27.2637 88.8033,27.2869 88.8033,27.2869 23,2.0,Spain -17.2084,27.9787 -17.223,27.9796 -17.2368,27.988 -17.2761,28.0153 -17.2829,28.0233 -17.3021,28.0478 -17.3081,28.0599 -17.3098,28.0853 -17.3058,28.1092 -17.2948,28.1391 -17.2771,28.1531 -17.2326,28.1748 -17.1695,28.1545 -17.0913,28.1138 -17.0783,28.1012 -17.0671,28.0807 -17.0679,28.0675 -17.0715,28.0514 -17.0889,28.0306 -17.1325,27.9933 -17.1528,27.9856 -17.2084,27.9787 -17.2084,27.9787 14,8.0,China 120.9739,28.0671 120.9651,28.0767 120.9649,28.1046 121.0446,28.1726 121.0818,28.1695 121.1092,28.151 121.0832,28.0556 121.0489,28.024 121.0332,28.0177 121.0145,28.0157 120.9911,28.016 120.9721,28.028 120.9739,28.0671 120.9739,28.0671 27,2.0,Spain -15.559,27.7003 -15.587,27.7133 -15.6016,27.7177 -15.6503,27.7204 -15.7627,27.8047 -15.8021,27.8844 -15.8003,27.931 -15.7952,27.9705 -15.7871,27.9772 -15.7647,27.9797 -15.7105,28.0152 -15.6917,28.037 -15.6869,28.0467 -15.6767,28.1081 -15.6821,28.1247 -15.6148,28.123 -15.4151,28.1018 -15.3451,27.9758 -15.3743,27.8139 -15.4081,27.768 -15.4235,27.7579 -15.4515,27.7521 -15.4649,27.7502 -15.5052,27.7365 -15.5341,27.7249 -15.559,27.7003 -15.559,27.7003 11,-6.0,United States -96.7142,28.0749 -96.7236,28.0527 -96.7625,27.9993 -96.9001,27.8383 -96.9107,27.844 -96.8985,27.8805 -96.7968,28.0584 -96.7453,28.1033 -96.7177,28.087 -96.7142,28.0749 -96.7142,28.0749 19,9.0,Japan 128.7674,27.87 128.773,27.8739 128.7844,27.8756 128.7935,27.8697 128.8632,27.7407 128.8557,27.7164 128.8406,27.6962 128.8195,27.67 128.7873,27.646 128.7753,27.6456 128.7529,27.6567 128.7311,27.6947 128.7145,27.7909 128.7158,27.8063 128.7196,27.831 128.724,27.8509 128.7327,27.8667 128.7674,27.87 128.7674,27.87 18,-5.0,United States -80.3283,27.8122 -80.3013,27.7459 -80.2972,27.7364 -80.288,27.7186 -80.2679,27.6837 -80.2249,27.5622 -80.1891,27.4382 -80.1777,27.4114 -80.1344,27.3332 -80.0644,27.1692 -80.0617,27.1558 -80.0837,27.1769 -80.103,27.2137 -80.1855,27.3829 -80.2864,27.6684 -80.3411,27.8195 -80.3283,27.8122 -80.3283,27.8122 24,2.0,Spain -17.9596,27.6065 -17.9912,27.6184 -18.1326,27.6743 -18.1464,27.7049 -18.1438,27.7227 -18.1376,27.731 -18.1227,27.7383 -18.1087,27.7416 -18.0895,27.731 -18.0375,27.7249 -18.0167,27.7314 -17.9917,27.7596 -17.9776,27.7849 -17.9077,27.8174 -17.8843,27.8175 -17.8758,27.8116 -17.8674,27.7983 -17.8603,27.7859 -17.8603,27.7661 -17.8801,27.7494 -17.888,27.7426 -17.9406,27.6514 -17.9596,27.6065 -17.9596,27.6065 34,-6.0,United States -97.1211,27.5136 -97.1414,27.479 -97.1689,27.4264 -97.1832,27.3939 -97.2041,27.342 -97.2124,27.3201 -97.2191,27.296 -97.2305,27.2432 -97.2426,27.2087 -97.2494,27.195 -97.2626,27.1919 -97.2606,27.2469 -97.2494,27.3125 -97.2448,27.3321 -97.2115,27.4202 -97.2069,27.4308 -97.1918,27.4652 -97.1813,27.4824 -97.1561,27.5202 -97.0375,27.6946 -97.0281,27.7068 -96.9487,27.8043 -96.9376,27.811 -96.9178,27.8086 -96.9179,27.7983 -96.926,27.7885 -96.9506,27.7613 -96.9767,27.7341 -96.9921,27.7153 -97.0412,27.6496 -97.0489,27.6374 -97.1195,27.5172 -97.1211,27.5136 -97.1211,27.5136 235,0.0,Western Sahara -8.6552,27.6359 -8.6558,27.5688 -8.6557,27.4689 -8.6554,27.26 -8.6558,26.9363 -8.656,26.8032 -8.6561,26.3703 -8.6555,26.104 -8.6551,26.0375 -8.6558,25.9712 -9.3876,25.9706 -9.5549,25.9711 -9.6212,25.9713 -9.688,25.9713 -9.8871,25.9711 -9.9536,25.9709 -9.9872,25.9691 -10.1211,25.969 -10.4865,25.9704 -10.7194,25.9704 -11.2521,25.9705 -11.6852,25.9708 -11.9851,25.9711 -11.9843,25.7044 -11.9843,25.6374 -11.9853,25.6038 -11.9844,25.2713 -11.9847,25.2046 -11.9852,25.172 -11.9847,24.8387 -11.9847,24.7721 -11.9857,24.7385 -11.9847,24.3725 -11.9854,24.306 -11.9851,23.9732 -11.9858,23.773 -11.9853,23.4282 -12.0836,23.4034 -12.2161,23.3546 -12.3501,23.2928 -12.5554,23.2655 -12.5816,23.2501 -12.6206,23.2248 -12.7289,23.1568 -12.9822,22.999 -13.0332,22.937 -13.0888,22.8674 -13.1175,22.7839 -13.1339,22.7323 -13.0779,22.5456 -13.0638,22.4952 -13.0616,22.4719 -13.0502,22.2989 -13.043,22.18 -13.0353,22.0612 -13.0314,22.0095 -13.0151,21.7735 -12.9889,21.3996 -12.9836,21.3144 -13.3602,21.3163 -13.8911,21.3187 -14.2674,21.3186 -14.2858,21.3178 -14.4493,21.3166 -14.6691,21.3148 -14.9867,21.3124 -15.2067,21.3139 -15.7224,21.3143 -15.8726,21.3149 -15.9979,21.3151 -16.126,21.3159 -16.5844,21.316 -16.9327,21.313 -16.9395,21.277 -16.974,21.1045 -17.0171,20.9808 -17.0283,20.9511 -17.0493,20.8975 -17.0546,20.8756 -17.0315,20.7411 -17.0805,20.8143 -17.0734,20.9204 -17.0426,21.0739 -17.0086,21.2612 -16.9999,21.3415 -16.9894,21.4171 -16.985,21.4391 -16.9611,21.5294 -16.9477,21.6013 -16.939,21.6834 -16.9432,21.7507 -16.9384,21.798 -16.9358,21.8089 -16.8951,21.921 -16.8309,22.0488 -16.6986,22.2361 -16.6446,22.2682 -16.6151,22.2516 -16.5778,22.2567 -16.514,22.2808 -16.4775,22.3005 -16.4448,22.3589 -16.44,22.3876 -16.4036,22.4951 -16.3685,22.5191 -16.3422,22.5396 -16.3256,22.6094 -16.3195,22.6621 -16.3219,22.6942 -16.3168,22.7314 -16.3034,22.769 -16.2471,22.8745 -16.2082,22.8889 -16.1804,22.9065 -16.1653,22.9229 -16.1438,22.9631 -16.1322,22.999 -16.1311,23.0382 -16.158,23.0594 -16.0891,23.2221 -16.0525,23.3023 -16.034,23.3198 -16.0156,23.3367 -15.9927,23.3664 -15.977,23.389 -15.9606,23.4213 -15.9499,23.4709 -15.9425,23.4908 -15.9017,23.5572 -15.8627,23.6124 -15.8486,23.6264 -15.8102,23.6573 -15.7449,23.7599 -15.7404,23.8315 -15.7597,23.8828 -15.8547,23.7963 -15.8708,23.7772 -15.882,23.7576 -15.9071,23.6925 -15.9234,23.6558 -15.9738,23.622 -15.9128,23.7616 -15.8916,23.7953 -15.8463,23.8418 -15.8124,23.8751 -15.6828,23.9583 -15.5627,24.0338 -15.5063,24.0993 -15.4379,24.1742 -15.3429,24.25 -15.2788,24.305 -15.2627,24.328 -15.2375,24.3678 -15.2262,24.3854 -15.2104,24.4126 -15.154,24.4647 -15.1193,24.4803 -15.0816,24.4899 -15.0429,24.4986 -15.0123,24.5144 -14.8819,24.6621 -14.8157,24.8908 -14.8116,25.0103 -14.8141,25.0439 -14.8264,25.0639 -14.8283,25.0853 -14.8269,25.1859 -14.8099,25.2616 -14.7963,25.313 -14.7721,25.403 -14.7346,25.4521 -14.6637,25.5952 -14.629,25.7039 -14.6103,25.7449 -14.5892,25.7783 -14.5694,25.8014 -14.5459,25.8256 -14.5199,25.8639 -14.4984,25.9054 -14.4784,25.9585 -14.4742,25.9713 -14.4705,25.9864 -14.465,26.0268 -14.4607,26.0696 -14.4707,26.0977 -14.4645,26.1343 -14.404,26.2181 -14.3878,26.2312 -14.356,26.2397 -14.3268,26.247 -14.303,26.2536 -14.2783,26.2681 -14.2334,26.3061 -14.2024,26.3365 -14.1792,26.3681 -14.0877,26.4011 -14.0487,26.4056 -14.0146,26.4139 -13.8899,26.481 -13.6918,26.5957 -13.6065,26.6525 -13.5833,26.6734 -13.5566,26.702 -13.5307,26.7343 -13.5004,26.791 -13.4863,26.8204 -13.4638,26.871 -13.4102,27.0346 -13.3998,27.068 -13.3994,27.0879 -13.3974,27.1146 -13.3918,27.139 -13.3797,27.1667 -13.3544,27.2069 -13.333,27.2295 -13.3162,27.2494 -13.286,27.2976 -13.2307,27.4149 -13.2033,27.4859 -13.1579,27.6361 -13.1497,27.6355 -13.0504,27.6352 -12.8242,27.6354 -10.2861,27.6355 -10.1072,27.6339 -10.0539,27.6332 -10.0096,27.6343 -9.9868,27.6357 -9.9206,27.6358 -9.8203,27.6359 -9.6547,27.6359 -9.3214,27.6358 -9.288,27.6352 -8.6552,27.6359 -8.6552,27.6359 406,0.0,Mauritania -4.8,24.9724 -4.8602,24.9716 -4.9601,24.9716 -5.7597,24.972 -6.1258,24.9715 -6.2916,24.9715 -6.3586,24.972 -6.4919,24.9722 -6.5689,24.9714 -6.5251,24.6052 -6.5153,24.5353 -6.5026,24.4309 -6.467,24.1344 -6.4335,23.8521 -6.359,23.2288 -6.3277,22.9645 -6.3179,22.8809 -6.3117,22.83 -6.291,22.6435 -6.2183,22.0147 -6.2005,21.8615 -6.1666,21.5725 -6.1453,21.385 -6.1245,21.1975 -6.0996,20.9761 -6.0699,20.7239 -6.0478,20.5364 -5.9992,20.1267 -5.9666,19.8443 -5.9492,19.6905 -5.9111,19.3484 -5.8936,19.1943 -5.8771,19.0406 -5.8466,18.7662 -5.8303,18.6292 -5.7963,18.3208 -5.7755,18.1322 -5.7405,17.8111 -5.6875,17.3309 -5.6209,16.7299 -5.5945,16.4894 -5.3282,16.3098 -5.366,16.1172 -5.3793,16.0485 -5.4137,15.8767 -5.4771,15.5498 -5.4867,15.4981 -5.4884,15.4811 -5.5766,15.4821 -5.9517,15.4871 -6.3004,15.4856 -6.3114,15.4864 -6.4186,15.4873 -6.6506,15.4885 -7.0103,15.4899 -7.3493,15.4884 -7.492,15.4879 -7.6531,15.4862 -7.9915,15.4836 -8.0412,15.4841 -8.4947,15.4837 -8.5035,15.484 -8.5749,15.484 -8.9853,15.481 -9.0261,15.4811 -9.0797,15.4818 -9.1737,15.4811 -9.2151,15.4815 -9.3223,15.4826 -9.3211,15.5461 -9.3004,15.6599 -9.3266,15.6871 -9.4312,15.5794 -9.4037,15.4618 -9.3985,15.4272 -9.649,15.414 -9.6849,15.4127 -9.7343,15.3885 -9.7664,15.3691 -9.7994,15.3577 -10.0208,15.3498 -10.0485,15.3499 -10.0747,15.3517 -10.106,15.3557 -10.2003,15.391 -10.2774,15.4209 -10.2983,15.4242 -10.4575,15.4199 -10.5548,15.4152 -10.5923,15.411 -10.6372,15.4132 -10.6621,15.4149 -10.7036,15.4219 -10.7066,15.3575 -10.7216,15.3245 -10.7515,15.2945 -10.835,15.189 -10.8835,15.0936 -10.9013,15.108 -10.9608,15.1821 -10.9717,15.2063 -10.9797,15.2257 -11.1589,15.3577 -11.1863,15.3772 -11.2232,15.4027 -11.2404,15.4142 -11.2729,15.4384 -11.2886,15.4578 -11.3234,15.5071 -11.3513,15.5585 -11.4045,15.6159 -11.4413,15.6261 -11.4847,15.6245 -11.5239,15.5792 -11.5859,15.5283 -11.6256,15.508 -11.6977,15.5278 -11.6967,15.5085 -11.7022,15.4813 -11.7263,15.4604 -11.7407,15.4216 -11.781,15.3042 -11.8179,15.1784 -11.8323,15.0804 -11.8267,15.0301 -11.7982,15.0336 -11.7822,14.998 -11.8011,14.9082 -11.8273,14.8464 -11.8526,14.8243 -11.9602,14.7551 -12.0456,14.7094 -12.0797,14.7232 -12.1606,14.7517 -12.2304,14.7479 -12.269,14.7695 -12.381,14.8366 -12.4331,14.8892 -12.437,14.9244 -12.4639,14.9908 -12.6143,15.0829 -12.6475,15.0878 -12.6708,15.0711 -12.6929,15.0809 -12.7681,15.1326 -12.8341,15.191 -12.8703,15.2449 -12.8345,15.2489 -12.8264,15.2796 -12.8452,15.3075 -12.8639,15.3202 -12.8918,15.3347 -12.9144,15.3484 -12.9246,15.3757 -12.9479,15.4833 -13.041,15.4626 -13.0759,15.4794 -13.087,15.5041 -13.169,15.612 -13.2298,15.6631 -13.3086,15.9117 -13.3791,16.0375 -13.504,16.1144 -13.5636,16.1177 -13.623,16.098 -13.6515,16.081 -13.6939,16.1184 -13.6824,16.1491 -13.6867,16.1609 -13.7994,16.1173 -13.9526,16.2157 -13.9674,16.2818 -14.0128,16.3395 -14.2017,16.5248 -14.3261,16.6175 -14.3985,16.6319 -14.4362,16.6168 -14.4872,16.6079 -14.6217,16.617 -14.7386,16.626 -14.8368,16.6186 -14.8888,16.6168 -14.9336,16.6297 -14.94,16.6541 -14.9433,16.666 -14.9664,16.6719 -14.9858,16.6516 -15.0033,16.6202 -15.0701,16.5897 -15.2174,16.5408 -15.3363,16.5431 -15.4225,16.5608 -15.4913,16.5383 -15.5573,16.4948 -15.6513,16.4628 -15.6774,16.4616 -15.7291,16.4706 -15.8037,16.4832 -15.869,16.4941 -15.8965,16.4915 -15.9663,16.4717 -16.0371,16.4652 -16.0799,16.5083 -16.0959,16.5311 -16.1261,16.5334 -16.2656,16.4985 -16.2826,16.4808 -16.302,16.4379 -16.3252,16.3628 -16.3378,16.3045 -16.3477,16.2556 -16.37,16.2027 -16.4868,16.0762 -16.5075,16.0422 -16.5093,16.0781 -16.5174,16.2837 -16.5066,16.3103 -16.4869,16.3556 -16.4754,16.3849 -16.4547,16.4559 -16.4488,16.4867 -16.4473,16.5115 -16.4491,16.5315 -16.4477,16.5929 -16.4244,16.661 -16.3913,16.7445 -16.3834,16.7642 -16.3204,16.9183 -16.2813,16.9829 -16.2594,17.0129 -16.2418,17.0404 -16.1811,17.179 -16.1652,17.2176 -16.1155,17.3379 -16.0763,17.4682 -16.0702,17.4887 -16.0499,17.5702 -16.0446,17.5918 -16.02,17.715 -16.0176,17.9063 -16.0091,18.0603 -16.0155,18.1412 -16.0227,18.1698 -16.0316,18.2151 -16.0434,18.3492 -16.0382,18.3841 -16.0372,18.408 -16.0452,18.4433 -16.0522,18.4714 -16.0638,18.5061 -16.0862,18.558 -16.1248,18.6693 -16.1308,18.7348 -16.1516,18.8498 -16.1595,18.8918 -16.1683,18.9183 -16.1992,18.9815 -16.2122,19.022 -16.2377,19.0732 -16.2496,19.0899 -16.2613,19.1065 -16.3291,19.1825 -16.3482,19.1951 -16.4429,19.2338 -16.4788,19.3149 -16.4913,19.3307 -16.4359,19.3485 -16.3608,19.3721 -16.3292,19.4009 -16.3155,19.4157 -16.2893,19.4458 -16.2662,19.5166 -16.3368,19.508 -16.406,19.4561 -16.4097,19.4235 -16.4204,19.3872 -16.4414,19.3883 -16.4488,19.4271 -16.4069,19.5145 -16.3852,19.5377 -16.3631,19.5541 -16.3145,19.612 -16.2131,19.7719 -16.2232,19.8649 -16.1966,19.9784 -16.1768,20.2036 -16.217,20.266 -16.2941,20.3549 -16.3173,20.4099 -16.3578,20.5032 -16.3955,20.5799 -16.4321,20.6466 -16.4755,20.7027 -16.5075,20.7104 -16.5139,20.6817 -16.5125,20.6045 -16.5197,20.5433 -16.5573,20.5671 -16.5793,20.588 -16.6279,20.6384 -16.8685,21.0899 -16.8825,21.119 -16.9029,21.1349 -16.967,21.042 -16.9774,20.9925 -16.9745,20.9515 -17.0045,20.8214 -17.0236,20.76 -17.0315,20.7411 -17.0546,20.8756 -17.0493,20.8975 -17.0283,20.9511 -17.0171,20.9808 -16.974,21.1045 -16.9395,21.277 -16.9327,21.313 -16.5844,21.316 -16.126,21.3159 -15.9979,21.3151 -15.8726,21.3149 -15.7224,21.3143 -15.2067,21.3139 -14.9867,21.3124 -14.6691,21.3148 -14.4493,21.3166 -14.2858,21.3178 -14.2674,21.3186 -13.8911,21.3187 -13.3602,21.3163 -12.9836,21.3144 -12.9889,21.3996 -13.0151,21.7735 -13.0314,22.0095 -13.0353,22.0612 -13.043,22.18 -13.0502,22.2989 -13.0616,22.4719 -13.0638,22.4952 -13.0779,22.5456 -13.1339,22.7323 -13.1175,22.7839 -13.0888,22.8674 -13.0332,22.937 -12.9822,22.999 -12.7289,23.1568 -12.6206,23.2248 -12.5816,23.2501 -12.5554,23.2655 -12.3501,23.2928 -12.2161,23.3546 -12.0836,23.4034 -11.9853,23.4282 -11.9858,23.773 -11.9851,23.9732 -11.9854,24.306 -11.9847,24.3725 -11.9857,24.7385 -11.9847,24.7721 -11.9847,24.8387 -11.9852,25.172 -11.9847,25.2046 -11.9844,25.2713 -11.9853,25.6038 -11.9843,25.6374 -11.9843,25.7044 -11.9851,25.9711 -11.6852,25.9708 -11.2521,25.9705 -10.7194,25.9704 -10.4865,25.9704 -10.1211,25.969 -9.9872,25.9691 -9.9536,25.9709 -9.8871,25.9711 -9.688,25.9713 -9.6212,25.9713 -9.5549,25.9711 -9.3876,25.9706 -8.6558,25.9712 -8.6551,26.0375 -8.6555,26.104 -8.6561,26.3703 -8.656,26.8032 -8.6558,26.9363 -8.6554,27.26 -8.6327,27.2484 -8.1938,26.9973 -8.1206,26.9564 -7.7017,26.7139 -7.6837,26.7043 -7.2487,26.4502 -7.1946,26.419 -6.9779,26.2916 -6.7622,26.1633 -6.654,26.0999 -6.2961,25.8855 -6.278,25.8756 -5.8502,25.6168 -5.8142,25.5961 -5.6341,25.4865 -5.2825,25.2719 -4.9125,25.0428 -4.8771,25.0217 -4.8069,24.9778 -4.8,24.9724 -4.8,24.9724 38,-6.0,United States -97.233,26.6773 -97.2411,26.7717 -97.2606,26.8083 -97.2753,26.9906 -97.2756,27.0223 -97.2746,27.09 -97.274,27.1048 -97.2719,27.1192 -97.2576,27.1723 -97.2543,27.1483 -97.2578,27.1049 -97.2615,27.0212 -97.2607,26.9804 -97.2586,26.966 -97.2334,26.8092 -97.2306,26.7929 -97.2179,26.7446 -97.2004,26.6665 -97.1643,26.5671 -97.1365,26.493 -97.1234,26.452 -97.103,26.3813 -97.0816,26.2991 -97.0747,26.2583 -97.0553,26.136 -97.0479,26.0886 -97.0467,26.0727 -97.0522,26.0585 -97.0641,26.0674 -97.0711,26.0914 -97.075,26.1107 -97.0816,26.2017 -97.0999,26.3138 -97.1528,26.4746 -97.1793,26.5469 -97.2211,26.6544 -97.233,26.6773 -97.233,26.6773 55,3.5,Iran 56.216,26.9199 56.173,26.8976 56.0866,26.8386 56.0809,26.8282 56.0751,26.8203 56.0611,26.8052 56.0464,26.7899 55.9889,26.7418 55.9156,26.6978 55.839,26.6797 55.7475,26.6794 55.6246,26.6592 55.6132,26.6558 55.6037,26.6516 55.4878,26.5928 55.2566,26.5166 55.2295,26.5116 55.2128,26.5289 55.204,26.621 55.2118,26.6284 55.224,26.6254 55.2446,26.6148 55.2577,26.6122 55.2894,26.6132 55.4474,26.669 55.528,26.7025 55.5652,26.7238 55.5749,26.7288 55.5949,26.7381 55.6045,26.7424 55.6398,26.7506 55.6692,26.7486 55.6796,26.7528 55.6984,26.7628 55.7125,26.8112 55.6971,26.8512 55.6916,26.8627 55.6809,26.8737 55.6712,26.8823 55.6657,26.8963 55.6831,26.9221 55.7094,26.9184 55.7706,26.8921 55.7819,26.8854 55.885,26.9001 55.9277,26.9276 56.0284,26.955 56.0833,26.9684 56.1484,26.9704 56.16,26.966 56.2008,26.9457 56.2104,26.94 56.2181,26.9332 56.216,26.9199 56.216,26.9199 16,3.5,Iran 55.6324,26.7826 55.5979,26.7603 55.5868,26.7561 55.5766,26.7544 55.5661,26.7552 55.5616,26.7648 55.5551,26.803 55.5669,26.8344 55.6213,26.9001 55.6417,26.8736 55.6456,26.8628 55.6635,26.8082 55.6602,26.7677 55.65,26.7689 55.6324,26.7826 55.6324,26.7826 61,9.0,Japan 128.1227,26.8249 128.1355,26.8182 128.1468,26.8097 128.1653,26.7797 128.1684,26.767 128.1711,26.7352 128.168,26.7255 128.107,26.6285 128.0882,26.6093 128.0758,26.5988 127.9825,26.5392 127.7826,26.4214 127.7109,26.4172 127.6997,26.4145 127.6862,26.4069 127.6755,26.3966 127.6153,26.2074 127.6465,26.1609 127.6547,26.1552 127.6498,26.1264 127.6242,26.0985 127.6126,26.0872 127.5655,26.0597 127.5536,26.0537 127.5393,26.051 127.5179,26.0495 127.4892,26.0567 127.4769,26.1793 127.5085,26.202 127.5613,26.2423 127.5808,26.2801 127.5711,26.3173 127.5619,26.3526 127.5546,26.3832 127.554,26.4027 127.6007,26.4092 127.6341,26.412 127.7959,26.5176 127.802,26.5383 127.8012,26.5522 127.7821,26.5704 127.7486,26.5706 127.7201,26.5821 127.713,26.5941 127.7198,26.6377 127.7439,26.6591 127.7792,26.6645 127.7946,26.6659 127.8316,26.651 127.8216,26.6303 127.8225,26.6142 127.8295,26.6066 127.8596,26.6015 127.9033,26.6126 127.9409,26.638 127.9365,26.6513 127.9396,26.6632 127.9589,26.6864 128.0827,26.8099 128.1227,26.8249 128.1227,26.8249 598,6.0,Bangladesh 89.9567,21.9739 89.9375,21.9586 89.8921,21.9695 89.8814,22.0007 89.9298,22.103 89.9506,22.1175 89.9634,22.1342 89.9294,22.1164 89.8676,22.0022 89.8712,21.9586 89.8482,21.9479 89.8235,21.9701 89.8053,22.0126 89.8005,22.0387 89.8049,22.0767 89.804,22.1117 89.7856,22.1754 89.7762,22.1948 89.7652,22.2182 89.7634,22.2517 89.8019,22.3357 89.8204,22.3646 89.8344,22.3789 89.8617,22.405 89.8738,22.4251 89.889,22.4588 89.8705,22.4439 89.8657,22.4399 89.832,22.4085 89.7985,22.3653 89.7491,22.29 89.7372,22.2618 89.7309,22.2362 89.7441,22.1854 89.7526,22.1558 89.7576,22.1303 89.7602,22.0771 89.7557,22.0574 89.7366,21.9574 89.7436,21.9244 89.7602,21.9003 89.7734,21.8703 89.7078,21.8108 89.6806,21.8026 89.5887,21.7597 89.4713,21.6776 89.4517,21.6852 89.4341,21.7079 89.4119,21.776 89.4162,21.8044 89.448,21.8417 89.4584,21.8617 89.488,22.0572 89.4935,22.2326 89.5047,22.2948 89.467,22.2392 89.4398,22.1854 89.4377,22.1641 89.452,22.1383 89.467,22.117 89.4702,22.095 89.439,21.9721 89.4184,21.9662 89.4241,22.0394 89.4148,22.0731 89.4002,22.1163 89.377,22.1722 89.3788,22.2026 89.3858,22.2359 89.3645,22.2645 89.352,22.1951 89.3823,22.1073 89.3924,22.0855 89.403,22.0646 89.409,22.0397 89.3777,22.0076 89.4095,21.929 89.4066,21.8859 89.3531,21.7448 89.3087,21.6897 89.2829,21.6869 89.2633,21.7066 89.2536,21.745 89.2525,21.7818 89.258,21.8172 89.2717,21.8391 89.2748,21.8681 89.2626,21.9094 89.2452,21.9417 89.1862,21.7371 89.1837,21.6454 89.1358,21.6186 89.098,21.628 89.1077,21.6692 89.1073,21.6994 89.0806,21.7631 89.0444,21.7611 88.9928,21.7851 88.9695,21.8724 88.9786,21.9396 88.98,21.9901 88.9497,22.0376 88.9478,22.0611 88.9558,22.0905 88.9846,22.1185 88.9636,22.1675 88.9484,22.1807 88.9084,22.2325 88.8975,22.2517 88.8835,22.2995 88.8785,22.3762 88.8193,22.8439 88.7531,22.9428 88.7531,22.9712 88.7648,23.0663 88.7869,23.0833 88.8056,23.0977 88.8722,23.1803 88.7175,23.2167 88.6946,23.2012 88.6171,23.2213 88.6026,23.2465 88.6024,23.2851 88.6288,23.3242 88.6758,23.4245 88.6759,23.4665 88.6463,23.4433 88.4747,23.5775 88.4558,23.6204 88.4662,23.74 88.4911,23.8317 88.5171,23.8472 88.5766,23.866 88.6237,23.8915 88.6435,24.0138 88.615,24.0336 88.5902,24.0556 88.5965,24.0948 88.5894,24.1217 88.6045,24.153 88.6287,24.1601 88.6405,24.1896 88.6308,24.2146 88.6215,24.234 88.6104,24.2535 88.5906,24.2792 88.5574,24.2829 88.5409,24.2671 88.3963,24.291 88.3516,24.3138 88.2545,24.3846 88.1735,24.4237 88.1235,24.4398 88.0198,24.4793 88.0019,24.4943 87.933,24.6578 88.0256,24.7923 88.0555,24.8208 88.0513,24.8621 88.0298,24.8888 88.1089,24.923 88.1527,24.8853 88.1655,24.8603 88.1943,24.8463 88.2274,24.8412 88.2859,24.9117 88.3259,24.9953 88.3489,25.0468 88.346,25.1246 88.342,25.1602 88.3705,25.1716 88.5077,25.1701 88.534,25.1693 88.5923,25.167 88.7759,25.1478 88.8201,25.1365 88.833,25.1414 88.8953,25.262 88.8786,25.2802 88.8206,25.2791 88.7608,25.3045 88.7299,25.3365 88.7079,25.3762 88.7241,25.3984 88.727,25.4327 88.7196,25.4526 88.6867,25.4822 88.6535,25.4892 88.6027,25.4603 88.5387,25.461 88.4439,25.4761 88.3414,25.561 88.3347,25.5878 88.3367,25.6307 88.1612,25.7773 88.1413,25.7859 88.1125,25.7783 88.0923,25.7672 88.0508,25.7514 88.0315,25.757 87.998,25.8068 87.9832,25.8862 88.0453,26.0685 88.0703,26.1215 88.1731,26.1665 88.2356,26.1909 88.2436,26.2203 88.2439,26.253 88.2833,26.2958 88.3606,26.3279 88.4099,26.338 88.401,26.3771 88.3686,26.4307 88.3321,26.4431 88.2584,26.4561 88.2433,26.4249 88.2224,26.4533 88.2617,26.551 88.2999,26.5965 88.3068,26.5574 88.3171,26.5245 88.4592,26.4357 88.4935,26.4412 88.5674,26.3909 88.5806,26.3626 88.5903,26.3037 88.6222,26.2643 88.7435,26.211 88.9067,26.2057 88.9303,26.2453 88.8551,26.3094 88.8097,26.3283 88.7966,26.3627 88.8111,26.3954 88.833,26.4132 88.9569,26.3558 88.9766,26.2687 89.0068,26.1493 89.0211,26.1244 89.1391,26.0368 89.2057,25.9956 89.2287,25.9879 89.39,25.9767 89.434,25.9866 89.4881,26.0397 89.4807,26.0703 89.463,26.0972 89.4476,26.1234 89.4872,26.1981 89.5194,26.201 89.5347,26.1601 89.5707,26.1308 89.6194,26.1272 89.6643,26.0599 89.7151,25.9703 89.7342,25.8772 89.7158,25.8454 89.7035,25.8235 89.6934,25.7937 89.7316,25.6631 89.7486,25.6184 89.7487,25.5766 89.7455,25.5481 89.737,25.4871 89.7131,25.4029 89.7019,25.3378 89.7187,25.2784 89.7365,25.2608 89.7701,25.2652 89.7975,25.2808 89.8519,25.2671 89.9249,25.2328 90.0544,25.1853 90.2684,25.1261 90.2975,25.1208 90.3325,25.122 90.3521,25.1332 90.4146,25.1459 90.4756,25.1382 90.7257,25.1206 90.7544,25.1224 90.8517,25.1333 90.8841,25.1445 90.9219,25.1555 90.9568,25.1647 90.9897,25.1684 91.0559,25.1672 91.1458,25.1779 91.1952,25.1547 91.3659,25.1109 91.5863,25.1235 91.6329,25.1393 91.8161,25.1553 91.9218,25.1594 91.9764,25.1493 91.9981,25.1426 92.0758,25.112 92.2152,25.0514 92.2918,24.9975 92.2955,24.9857 92.2948,24.9656 92.3051,24.9388 92.3289,24.9317 92.3715,24.89 92.375,24.8496 92.3581,24.8389 92.3202,24.8214 92.2736,24.8213 92.2262,24.8548 92.1682,24.8785 92.132,24.8667 92.1319,24.8238 92.1442,24.7989 92.1466,24.7759 92.1406,24.7464 92.1325,24.7149 92.0726,24.5351 92.0581,24.5188 92.0249,24.4994 92.0192,24.4911 92.0146,24.4633 92.0218,24.41 92.017,24.3824 92.0016,24.3627 91.8655,24.2931 91.8315,24.3224 91.8061,24.3002 91.816,24.2553 91.7912,24.15 91.7676,24.1247 91.6372,24.1273 91.4791,24.0698 91.4535,24.0634 91.432,24.0599 91.4059,24.0614 91.3647,24.0638 91.3063,24.0824 91.2677,24.0784 91.1544,23.9423 91.123,23.8753 91.1259,23.8514 91.1373,23.8136 91.1009,23.7293 91.079,23.7241 91.0523,23.7186 91.0432,23.6994 91.0483,23.6052 91.0958,23.4846 91.1414,23.4254 91.1689,23.3474 91.1865,23.2711 91.1996,23.2106 91.2027,23.1843 91.2064,23.1644 91.2196,23.0986 91.2312,23.0724 91.2435,23.0556 91.2614,23.0414 91.286,23.0439 91.2916,23.0686 91.2771,23.1069 91.2678,23.1552 91.2659,23.1936 91.2892,23.2399 91.3127,23.2359 91.3338,23.2211 91.3609,23.1945 91.3792,23.1368 91.4348,22.975 91.4484,22.9598 91.4982,22.9191 91.6112,22.9692 91.6647,23.0112 91.7044,23.0644 91.691,23.133 91.6814,23.169 91.6663,23.2027 91.6544,23.229 91.6561,23.2533 91.6694,23.2864 91.6832,23.3108 91.7309,23.3842 91.7693,23.4087 91.808,23.416 91.8518,23.4794 91.8484,23.5365 91.8426,23.5652 91.8287,23.616 91.8238,23.654 91.8441,23.7013 91.863,23.6749 91.9181,23.6196 91.9526,23.624 91.9949,23.6646 92.06,23.7105 92.0881,23.6804 92.1535,23.693 92.1632,23.6845 92.1743,23.6664 92.1848,23.5466 92.2086,23.43 92.2433,23.3413 92.2556,23.3138 92.2726,23.2596 92.2512,23.2224 92.2351,23.203 92.2377,23.1519 92.2613,22.9135 92.3626,22.7227 92.3959,22.7012 92.4167,22.5565 92.4107,22.5271 92.4544,22.3329 92.4643,22.2972 92.4829,22.1508 92.4813,22.1116 92.4712,22.0415 92.4872,21.9577 92.4923,21.9407 92.5015,21.8967 92.5066,21.8552 92.4973,21.8288 92.4854,21.7708 92.4856,21.6327 92.4867,21.6099 92.5046,21.4462 92.5175,21.3913 92.5282,21.3489 92.5348,21.326 92.5456,21.2961 92.5562,21.2732 92.553,21.2696 92.4934,21.2287 92.4731,21.2389 92.4242,21.3541 92.2686,21.4482 92.247,21.4486 92.1481,21.3907 92.1094,21.3343 92.0922,21.2769 92.0931,21.1954 92.1024,21.113 92.1202,21.0918 92.1492,21.031 92.1435,21.006 92.1438,20.9515 92.1483,20.9112 92.1534,20.8898 92.1787,20.8446 92.1974,20.8077 92.2177,20.7511 92.2146,20.7216 92.1881,20.7371 92.1102,20.8787 92.095,20.9099 92.0107,21.0435 91.9577,21.1053 91.9358,21.1413 91.933,21.1632 91.9365,21.205 91.9399,21.2298 91.9354,21.2611 91.9146,21.3052 91.8896,21.3446 91.8629,21.3815 91.8428,21.4267 91.8605,21.4426 91.8919,21.4721 91.9236,21.6112 91.9265,21.6363 91.9116,21.6794 91.9021,21.6482 91.8698,21.6268 91.8492,21.6561 91.8337,21.7093 91.8419,21.7317 91.8375,21.7675 91.7886,21.75 91.8025,21.8383 91.7894,21.8983 91.7371,22.0849 91.7202,22.0966 91.7062,22.1206 91.6984,22.1688 91.6736,22.2072 91.6588,22.2341 91.6481,22.2953 91.6458,22.3285 91.6402,22.3522 91.6289,22.3796 91.5914,22.4554 91.5562,22.5122 91.5453,22.529 91.4544,22.649 91.4311,22.677 91.3426,22.7646 91.2217,22.6878 91.1418,22.6293 91.1467,22.6013 91.118,22.5613 91.0063,22.5522 90.9297,22.5661 90.8953,22.5542 90.8826,22.5473 90.853,22.5457 90.8338,22.5551 90.7193,22.6631 90.6873,22.7068 90.6668,22.7359 90.6385,22.7976 90.6345,22.8407 90.6104,22.8983 90.5947,22.9233 90.5675,22.9662 90.5249,23.011 90.5124,23.0328 90.5289,23.1728 90.5094,23.2971 90.4809,23.3477 90.4895,23.4403 90.5275,23.4598 90.5819,23.4521 90.6031,23.4806 90.5967,23.5234 90.5788,23.5252 90.5823,23.4888 90.5534,23.4914 90.5338,23.4812 90.4876,23.4657 90.4746,23.516 90.4956,23.5555 90.4811,23.5717 90.448,23.5604 90.3609,23.5496 90.3746,23.5337 90.3949,23.5247 90.465,23.5106 90.4622,23.4165 90.4356,23.3584 90.3732,23.37 90.2853,23.3873 90.2616,23.3931 90.2222,23.4029 90.1986,23.4097 90.1967,23.3883 90.3141,23.2988 90.3588,23.2804 90.3863,23.2726 90.4143,23.2708 90.454,23.264 90.4932,23.2172 90.5007,23.1924 90.5021,23.1637 90.486,23.0922 90.4662,23.0643 90.4465,23.0483 90.3808,23.0461 90.3408,23.0399 90.3372,23.0181 90.3697,22.9392 90.357,22.8543 90.3126,22.7449 90.3444,22.7242 90.3835,22.669 90.472,22.5023 90.4898,22.4469 90.4787,22.4072 90.5053,22.346 90.5056,22.3199 90.5009,22.278 90.4918,22.2497 90.4508,22.1819 90.4162,22.1627 90.3847,22.1474 90.3795,22.1193 90.3247,22.0486 90.279,22.0756 90.2948,22.1271 90.2951,22.1826 90.2943,22.2079 90.2901,22.2359 90.2774,22.1873 90.2853,22.1395 90.2561,22.0512 90.2295,22.0228 90.2064,21.9775 90.197,21.9501 90.1801,21.8774 90.171,21.8444 90.1594,21.8225 90.0919,21.7786 90.0602,21.7739 90.044,21.7774 90.005,21.7879 89.9129,21.8389 89.9193,21.9192 89.9567,21.9739 89.9567,21.9739 12,6.0,Bangladesh 89.9567,21.9739 89.982,22.0109 90.008,22.0414 90.0516,22.0828 90.0779,22.0853 90.1085,22.0953 90.1273,22.158 90.0379,22.0932 89.9846,22.0369 89.9661,22.0086 89.9567,21.9739 89.9567,21.9739 47,4.0,Oman 56.0085,26.0365 56.0156,26.0585 56.0382,26.0994 56.1001,26.2011 56.13,26.2314 56.1626,26.1889 56.2319,26.1717 56.2544,26.1695 56.2854,26.1866 56.3294,26.1907 56.3126,26.2105 56.2781,26.209 56.2623,26.1939 56.239,26.1936 56.2464,26.2395 56.2827,26.2919 56.3321,26.3392 56.3299,26.2555 56.386,26.2184 56.4092,26.2106 56.3991,26.1129 56.3052,26.143 56.3053,26.1686 56.2489,26.1379 56.2611,26.0829 56.302,26.0658 56.3591,26.0254 56.3518,25.9214 56.3298,25.8651 56.3201,25.845 56.2916,25.7933 56.2536,25.7282 56.2307,25.7181 56.2029,25.6894 56.1925,25.6309 56.1979,25.6074 56.1664,25.5977 56.1117,25.6262 56.0876,25.6337 56.0757,25.6374 56.0694,25.7061 56.0677,25.8038 56.0941,25.879 56.1139,25.9855 56.0815,26.0546 56.0085,26.0365 56.0085,26.0365 91,3.0,Qatar 50.7671,24.7222 50.7796,24.7315 50.7989,24.7628 50.7933,24.8429 50.7852,24.8857 50.7406,25.0364 50.7032,25.1014 50.7019,25.111 50.696,25.1579 50.691,25.2317 50.6872,25.4032 50.6919,25.4712 50.7184,25.4942 50.7433,25.4619 50.7541,25.4367 50.7736,25.4315 50.778,25.4599 50.7687,25.5368 50.7627,25.5643 50.8425,25.5604 50.8868,25.5707 50.908,25.6134 50.8859,25.6052 50.8543,25.5966 50.826,25.631 50.825,25.6891 50.8332,25.702 50.8359,25.7459 50.8668,25.7742 50.8909,25.7478 50.9095,25.7798 50.9048,25.7955 50.8974,25.7952 50.8881,25.8002 50.8841,25.8303 50.9332,25.9362 50.9718,26.0132 51.1064,26.0944 51.1794,26.1233 51.244,26.0976 51.2751,26.0759 51.2795,26.0499 51.2788,26.0138 51.3314,25.9322 51.3475,25.9207 51.413,25.9241 51.4352,25.9201 51.5015,25.8788 51.5274,25.7522 51.5278,25.731 51.5218,25.6651 51.4762,25.5926 51.4515,25.5851 51.4311,25.58 51.4195,25.5605 51.4257,25.5216 51.4097,25.4932 51.4232,25.4517 51.4384,25.4364 51.4546,25.4038 51.4522,25.355 51.445,25.3025 51.4448,25.2739 51.4664,25.2592 51.5102,25.2588 51.5376,25.2435 51.5388,25.2051 51.5487,25.1837 51.5504,25.1507 51.5465,24.9857 51.5045,24.8943 51.4663,24.849 51.4389,24.8263 51.4095,24.7567 51.4098,24.734 51.3707,24.6336 51.3018,24.5623 51.2704,24.5451 51.2704,24.5716 51.2834,24.6066 51.264,24.6247 51.2068,24.6294 51.1501,24.607 51.1507,24.5934 51.1402,24.5806 51.1145,24.559 51.0473,24.5285 50.9091,24.5497 50.8019,24.6624 50.7671,24.7222 50.7671,24.7222 186,4.0,United Arab Emirates 56.1979,25.6074 56.2563,25.5799 56.2751,25.5656 56.297,25.4908 56.2934,25.4374 56.2885,25.3929 56.2939,25.3541 56.304,25.3136 56.3098,25.2924 56.3012,25.2335 56.2861,25.0735 56.285,25.0537 56.2852,25.0413 56.3026,24.9517 56.2809,24.9488 56.2679,24.9415 56.2635,24.934 56.2681,24.8984 56.2693,24.8861 56.2612,24.8672 56.2322,24.8546 56.216,24.8425 56.2095,24.8295 56.1986,24.8219 56.1551,24.8061 56.1182,24.7973 56.1091,24.754 56.0733,24.7135 56.0335,24.7071 56.0062,24.7103 55.9938,24.7167 55.9107,24.8441 55.9281,24.8625 55.9581,24.8533 55.9804,24.8382 55.964,24.9184 55.9523,24.9381 55.9295,24.9491 55.9058,24.954 55.8746,24.9548 55.8517,24.9485 55.8182,24.9316 55.7959,24.9144 55.7753,24.8923 55.7439,24.8582 55.7337,24.8325 55.7435,24.7023 55.7498,24.6743 55.7736,24.6224 55.7425,24.5686 55.7114,24.5382 55.7277,24.4498 55.75,24.3896 55.7435,24.2899 55.709,24.2165 55.7925,24.187 55.8223,24.2003 55.8487,24.2097 55.8786,24.2056 55.9536,24.0565 55.937,24.0418 55.8054,24.0083 55.7318,23.9932 55.6106,24.0044 55.5685,24.001 55.4408,23.9461 55.4687,23.8784 55.4872,23.8593 55.4932,23.7422 55.4168,23.6153 55.3529,23.4811 55.2926,23.3 55.2751,23.256 55.255,23.218 55.228,23.1756 55.1988,23.132 55.1737,23.0911 55.1457,22.9882 55.1438,22.8927 55.1449,22.8687 55.1489,22.8263 55.1504,22.795 55.1494,22.7751 55.131,22.6743 55.0737,22.6081 52.5182,22.9133 51.5187,24.0897 51.5198,24.2335 51.5587,24.2375 51.6612,24.2339 51.7089,24.1514 51.7053,24.1256 51.7079,24.1021 51.7233,24.0178 51.7356,23.9866 51.7513,23.9712 51.7893,23.9612 51.8691,23.9608 52.0211,23.9292 52.1422,23.9434 52.1665,23.947 52.189,23.9531 52.2654,23.9754 52.3685,24.0257 52.4574,24.0949 52.5157,24.1643 52.5602,24.17 52.5876,24.1399 52.6115,24.1126 52.7063,24.1093 52.8772,24.1108 52.989,24.0946 53.014,24.0971 53.0793,24.109 53.158,24.109 53.2592,24.0759 53.3483,24.0805 53.3929,24.0791 53.4626,24.0609 53.49,24.0437 53.5007,24.0262 53.5207,24.0175 53.8068,24.0329 54.0559,24.1148 54.1185,24.1561 54.1779,24.1908 54.3137,24.2253 54.3592,24.2587 54.3882,24.3083 54.4012,24.3396 54.4092,24.3829 54.4344,24.4105 54.4781,24.4059 54.507,24.4139 54.6004,24.6358 54.5845,24.6922 54.5816,24.7192 54.639,24.7738 54.877,24.9257 54.9368,24.9483 54.9476,24.9553 54.9805,24.9781 54.9968,24.99 55.0596,25.0574 55.1081,25.1109 55.1217,25.126 55.1356,25.1421 55.1468,25.1598 55.1589,25.1768 55.1937,25.2153 55.2315,25.2537 55.2565,25.2775 55.2606,25.2836 55.2995,25.3328 55.3543,25.366 55.3959,25.3856 55.4226,25.431 55.4335,25.4452 55.4473,25.4833 55.4569,25.5116 55.4718,25.5369 55.4939,25.5454 55.475,25.5197 55.4784,25.4971 55.5147,25.498 55.5613,25.5078 55.5673,25.5274 55.5765,25.5538 55.62,25.5943 55.676,25.6323 55.7882,25.6919 55.9534,25.8535 55.9723,25.8997 56.0021,25.9968 56.0085,26.0365 56.0815,26.0546 56.1139,25.9855 56.0941,25.879 56.0677,25.8038 56.0694,25.7061 56.0757,25.6374 56.0876,25.6337 56.1117,25.6262 56.1664,25.5977 56.1979,25.6074 56.1979,25.6074 12,-7.0,Mexico -111.0641,25.7741 -111.081,25.8202 -111.0499,26.0071 -111.0074,26.0373 -110.9437,26.0425 -110.94,26.0306 -110.9572,25.9755 -110.9966,25.9538 -111.035,25.872 -111.0552,25.8163 -111.0641,25.7741 -111.0641,25.7741 18,8.0,China 119.5483,25.3976 119.5441,25.3995 119.5394,25.4086 119.5173,25.4535 119.5395,25.5701 119.5704,25.6102 119.6042,25.6321 119.6271,25.6268 119.6741,25.5541 119.6899,25.5135 119.6727,25.5161 119.6526,25.4993 119.6121,25.3876 119.6078,25.3755 119.5913,25.3767 119.5597,25.3921 119.5483,25.3976 119.5483,25.3976 19,-5.0,United States -80.4989,24.9229 -80.4699,24.9388 -80.353,25.0634 -80.308,25.1226 -80.2852,25.1537 -80.2565,25.1906 -80.2392,25.2295 -80.2289,25.2627 -80.1844,25.3134 -80.1715,25.3205 -80.1585,25.3196 -80.1544,25.307 -80.1655,25.3001 -80.2618,25.1325 -80.2677,25.118 -80.4733,24.9194 -80.4933,24.9185 -80.4989,24.9229 -80.4989,24.9229 195,8.0,Taiwan 120.177,22.4984 120.1815,22.5111 120.1732,22.5291 120.1644,22.5472 120.1474,22.5718 120.1195,22.5874 120.1049,22.6027 120.096,22.6152 120.0917,22.6243 120.0899,22.6356 120.103,22.6572 120.0801,22.7113 120.0579,22.7478 120.0509,22.7614 120.024,22.856 120.0188,22.8826 120.0151,22.9279 119.9868,22.997 119.9589,22.988 119.9155,23.0093 119.905,23.0187 119.9003,23.0352 119.9061,23.0483 119.9185,23.0536 119.9379,23.0533 119.9488,23.0622 119.9438,23.1012 119.9359,23.1078 119.916,23.1122 119.9083,23.1192 119.9076,23.1302 119.9343,23.2023 119.9506,23.2411 119.9606,23.2611 119.9809,23.2914 119.9945,23.2963 119.9984,23.3686 119.9854,23.4399 119.9795,23.4672 119.9757,23.4826 119.9742,23.488 119.9658,23.5427 119.9617,23.5909 119.9658,23.6049 120.0448,23.7567 120.0719,23.793 120.0896,23.8033 120.1283,23.8626 120.1338,23.8717 120.1623,23.9268 120.2124,24.0216 120.2702,24.1141 120.2764,24.1231 120.321,24.1661 120.3254,24.1832 120.3582,24.2623 120.3939,24.3349 120.4074,24.3579 120.4203,24.375 120.4274,24.383 120.4429,24.4007 120.4773,24.4365 120.4911,24.4519 120.499,24.4664 120.5052,24.4837 120.5143,24.5055 120.5444,24.571 120.5996,24.6198 120.7105,24.7115 120.7193,24.7125 120.751,24.8091 120.7686,24.8481 120.799,24.8957 120.8062,24.9053 120.8487,24.9738 120.8561,24.9808 120.9069,25.0207 121.0407,25.082 121.0696,25.0876 121.1219,25.0908 121.1566,25.098 121.1844,25.1045 121.2088,25.1151 121.2196,25.1229 121.2352,25.1301 121.2553,25.1273 121.2637,25.1211 121.287,25.1011 121.2899,25.1068 121.2416,25.1503 121.2421,25.1608 121.2809,25.2085 121.2883,25.2156 121.324,25.2421 121.3607,25.2542 121.4087,25.2555 121.4289,25.2477 121.4435,25.2391 121.4543,25.231 121.4622,25.2211 121.4822,25.1864 121.5267,25.1405 121.5799,25.1109 121.6339,25.0986 121.7268,25.0868 121.8461,24.9795 121.8408,24.9675 121.8245,24.959 121.8156,24.9572 121.7933,24.9486 121.7599,24.9323 121.7268,24.9032 121.6749,24.8394 121.6646,24.8226 121.6602,24.8072 121.6518,24.7623 121.6464,24.729 121.6475,24.7178 121.6639,24.6099 121.6679,24.5972 121.6753,24.5871 121.6904,24.5788 121.6962,24.5646 121.7003,24.5363 121.6999,24.5063 121.6865,24.4491 121.6781,24.4436 121.6638,24.4367 121.6508,24.4282 121.6432,24.4212 121.6277,24.3992 121.6238,24.3868 121.6071,24.3035 121.6199,24.2744 121.6004,24.2658 121.5925,24.2592 121.5237,24.1778 121.507,24.1579 121.4542,24.0565 121.4506,24.0314 121.4571,24.0147 121.4641,24.0073 121.4594,23.9565 121.4446,23.8732 121.3854,23.6748 121.3451,23.4591 121.3253,23.3961 121.3247,23.3886 121.3223,23.3749 121.3022,23.3011 121.2049,23.0619 121.1091,22.8745 121.0181,22.7371 120.9879,22.7101 120.9792,22.7029 120.9693,22.6994 120.9585,22.6968 120.9299,22.6837 120.8807,22.631 120.8649,22.6098 120.8203,22.5432 120.8064,22.5106 120.7297,22.3163 120.7237,22.2952 120.7225,22.2669 120.7242,22.2503 120.7306,22.2078 120.7361,22.0735 120.7328,22.0122 120.6758,21.9032 120.5713,21.9033 120.5608,21.9078 120.5506,21.9188 120.538,22.029 120.5447,22.0798 120.5426,22.0908 120.5291,22.1473 120.5266,22.1572 120.481,22.2526 120.472,22.2705 120.4615,22.2879 120.4261,22.3392 120.4047,22.3578 120.3568,22.3975 120.3398,22.4042 120.33,22.4061 120.2962,22.4284 120.2777,22.4459 120.2685,22.4576 120.241,22.4535 120.2309,22.4567 120.1951,22.4803 120.1802,22.4944 120.177,22.4984 120.177,22.4984 39,-7.0,Mexico -111.9908,25.2531 -111.9866,25.2444 -111.9831,25.228 -111.984,25.205 -111.9918,25.1658 -111.9982,25.1472 -112.0133,25.1153 -112.0294,25.0521 -112.0326,25.0337 -112.0606,24.8432 -112.0615,24.8296 -112.0607,24.8171 -112.0568,24.8006 -112.0532,24.791 -112.0296,24.7642 -111.9018,24.515 -111.9001,24.498 -111.908,24.4912 -111.9295,24.4971 -111.9463,24.5073 -112.0147,24.6017 -112.0389,24.6374 -112.0332,24.6538 -112.0159,24.6636 -112.0123,24.6778 -112.0135,24.7061 -112.0158,24.717 -112.0203,24.727 -112.0388,24.7564 -112.0461,24.7638 -112.0566,24.7683 -112.0811,24.7775 -112.1072,24.782 -112.0699,24.9564 -112.0561,24.9942 -112.0085,25.1487 -112.0029,25.1754 -111.9908,25.2531 -111.9908,25.2531 18,-7.0,Mexico -110.5553,25.0607 -110.5263,25.0325 -110.5004,25.0207 -110.4863,25.0161 -110.4631,25.0118 -110.4479,25.0111 -110.4384,25.0059 -110.4329,24.9974 -110.3908,24.8661 -110.3996,24.8548 -110.4183,24.8556 -110.4405,24.8637 -110.5017,24.902 -110.5671,25.0122 -110.5676,25.0347 -110.564,25.0617 -110.5553,25.0607 -110.5553,25.0607 626,0.0,Mali 4.2402,19.1254 4.2401,19.0512 4.2408,18.8455 4.2405,18.6399 4.2398,18.6245 4.2415,17.9779 4.2434,17.6284 4.2446,17.4566 4.246,17.2728 4.2462,16.9752 4.216,16.8962 4.1938,16.8019 4.1946,16.7279 4.1957,16.3755 4.1745,16.3658 4.1405,16.3515 4.1092,16.3297 4.0917,16.3126 4.0674,16.2803 3.9763,16.0523 3.9457,15.924 3.8976,15.7312 3.8905,15.7099 3.8803,15.6915 3.842,15.6568 3.8137,15.6467 3.775,15.644 3.729,15.6376 3.5632,15.4951 3.5315,15.412 3.5268,15.3812 3.5139,15.343 3.3034,15.3752 3.0288,15.4159 3.0191,15.3967 3.0082,15.3249 2.8567,15.3275 2.6251,15.3336 2.5077,15.3281 1.9719,15.3019 1.8825,15.2982 1.3109,15.2697 1.0842,15.0626 0.9932,14.9786 0.9738,14.9621 0.9378,14.961 0.7774,14.952 0.7304,14.9443 0.6943,14.9254 0.6531,14.939 0.618,14.9508 0.5116,14.9842 0.45,14.962 0.3961,14.9439 0.334,14.959 0.2804,14.972 0.2377,14.9835 0.232,14.9336 0.235,14.8985 1.0E-4,14.9777 -0.2458,15.0606 -0.3862,14.9884 -0.443,15.0658 -0.7241,15.0659 -1.0017,14.8237 -1.0725,14.7605 -1.0923,14.7678 -1.3172,14.7122 -1.3601,14.6848 -1.676,14.4844 -1.7754,14.4649 -1.9051,14.4724 -1.9783,14.4585 -1.9818,14.3944 -1.9869,14.3608 -1.9898,14.3267 -1.994,14.2922 -2.0045,14.1718 -2.1011,14.1367 -2.2421,14.202 -2.2866,14.2223 -2.3812,14.2496 -2.4622,14.2703 -2.5966,14.1958 -2.6435,14.146 -2.8119,14.0347 -2.8366,13.9899 -2.9001,13.807 -2.9011,13.7063 -2.8786,13.6491 -2.9385,13.6179 -2.9549,13.6139 -3.0956,13.6708 -3.2072,13.6928 -3.2537,13.6815 -3.2693,13.5352 -3.2564,13.4813 -3.2333,13.345 -3.23,13.3078 -3.2284,13.2732 -3.3699,13.2624 -3.3899,13.2618 -3.4218,13.2615 -3.4384,13.2463 -3.4281,13.2208 -3.4205,13.1967 -3.4231,13.1694 -3.4336,13.1519 -3.4446,13.1567 -3.5043,13.1641 -3.5337,13.1637 -3.5845,13.1879 -3.6127,13.2089 -3.7813,13.3443 -3.8986,13.4334 -3.9516,13.4864 -3.9596,13.4889 -3.9714,13.4611 -4.1517,13.2636 -4.187,13.2611 -4.2318,13.2262 -4.3087,13.1498 -4.3305,13.105 -4.2722,13.007 -4.2502,12.9821 -4.2125,12.955 -4.2024,12.9339 -4.1897,12.8142 -4.2015,12.7551 -4.216,12.7213 -4.258,12.7036 -4.284,12.7007 -4.4635,12.7097 -4.4649,12.6996 -4.4697,12.6512 -4.4481,12.624 -4.4234,12.6151 -4.3655,12.5147 -4.3919,12.4908 -4.4134,12.4589 -4.431,12.4153 -4.4123,12.2871 -4.4772,12.261 -4.5641,12.1877 -4.6193,12.1019 -4.6251,12.0798 -4.628,12.0539 -4.6933,12.0494 -4.9369,11.9952 -5.0738,11.9624 -5.1117,11.9512 -5.141,11.9393 -5.1622,11.9224 -5.2671,11.8306 -5.2816,11.775 -5.2625,11.674 -5.2178,11.5758 -5.1956,11.5253 -5.2025,11.4491 -5.2419,11.2401 -5.2935,11.1271 -5.316,11.1078 -5.3566,11.0892 -5.3879,11.082 -5.4573,11.0747 -5.4793,11.0648 -5.4803,11.0211 -5.4732,10.9902 -5.437,10.8853 -5.4132,10.8575 -5.4049,10.8295 -5.4384,10.7514 -5.4502,10.7096 -5.4582,10.6874 -5.467,10.6208 -5.4772,10.5155 -5.5136,10.4247 -5.5592,10.4457 -5.6627,10.4342 -5.6953,10.4183 -5.7196,10.4111 -5.7398,10.4118 -5.7756,10.4148 -5.7911,10.4098 -5.8757,10.3582 -5.9306,10.2732 -5.9574,10.2263 -5.9705,10.2052 -5.9974,10.18 -6.0834,10.1794 -6.1043,10.1865 -6.1386,10.2005 -6.1812,10.2203 -6.1902,10.225 -6.1731,10.3533 -6.1733,10.3917 -6.1746,10.4233 -6.1762,10.4521 -6.2054,10.5579 -6.1819,10.6248 -6.2174,10.7111 -6.2364,10.7234 -6.4062,10.676 -6.4098,10.6112 -6.3809,10.5822 -6.4147,10.5398 -6.5257,10.5644 -6.5817,10.5983 -6.5944,10.6256 -6.6142,10.6491 -6.6382,10.6523 -6.6618,10.6162 -6.669,10.5867 -6.6774,10.4799 -6.6616,10.4489 -6.6429,10.441 -6.6244,10.4222 -6.6433,10.3493 -6.6489,10.3426 -6.7121,10.339 -6.933,10.3421 -6.9527,10.322 -6.973,10.2364 -6.9475,10.2145 -6.9378,10.1967 -6.9407,10.1662 -6.9607,10.1445 -6.9802,10.1362 -7.0114,10.1307 -7.0317,10.1448 -7.0532,10.1786 -7.0706,10.1919 -7.1202,10.2119 -7.1759,10.2254 -7.2615,10.243 -7.34,10.3158 -7.3514,10.3393 -7.4433,10.3855 -7.6295,10.435 -7.6945,10.3916 -7.7231,10.3656 -7.746,10.3192 -7.7481,10.2846 -7.7791,10.234 -7.8177,10.1911 -7.8804,10.1624 -7.9304,10.146 -7.9547,10.1487 -7.965,10.1544 -7.933,10.2318 -7.9677,10.3175 -8.132,10.4124 -8.1775,10.405 -8.2088,10.4141 -8.2608,10.4907 -8.2727,10.5378 -8.312,10.7487 -8.278,10.8374 -8.2805,10.9957 -8.3365,11.0408 -8.4486,11.0386 -8.5015,10.9935 -8.5738,10.9606 -8.6618,10.9467 -8.6702,10.9904 -8.6004,11.1147 -8.468,11.2759 -8.4423,11.2793 -8.4219,11.2684 -8.3846,11.2673 -8.3596,11.2748 -8.3467,11.3015 -8.3535,11.3625 -8.381,11.38 -8.4511,11.407 -8.4864,11.408 -8.5071,11.4221 -8.5241,11.4813 -8.5382,11.4673 -8.568,11.4572 -8.595,11.4622 -8.6283,11.4844 -8.647,11.5075 -8.6625,11.5438 -8.6797,11.5895 -8.6847,11.6194 -8.6963,11.6429 -8.727,11.6255 -8.764,11.6271 -8.8217,11.6487 -8.7827,11.8435 -8.7696,11.9126 -8.787,11.9932 -8.9266,12.1775 -8.9517,12.1821 -8.9701,12.2162 -8.9673,12.2647 -8.9455,12.3018 -8.9334,12.3212 -8.9382,12.341 -8.9698,12.379 -9.0457,12.421 -9.0742,12.4235 -9.1424,12.4711 -9.2425,12.4857 -9.301,12.4908 -9.349,12.4744 -9.3897,12.4384 -9.3353,12.3926 -9.2844,12.3486 -9.2915,12.2992 -9.3077,12.2543 -9.3353,12.2393 -9.3599,12.2366 -9.3873,12.2409 -9.5695,12.1747 -9.6174,12.1519 -9.6338,12.1404 -9.6531,12.1183 -9.6593,12.0975 -9.6563,12.0685 -9.6909,12.0159 -9.747,12.0144 -9.854,12.0415 -9.9006,12.0798 -10.0873,12.1653 -10.3154,12.2099 -10.3192,12.1821 -10.3456,12.1528 -10.4411,12.1035 -10.5508,11.981 -10.6407,11.8792 -10.6729,11.885 -10.7159,11.9058 -10.7311,11.9498 -10.8026,12.0994 -10.8761,12.1841 -10.8974,12.2024 -10.9164,12.211 -10.9456,12.2127 -11.0331,12.1911 -11.0886,12.1041 -11.1381,12.0307 -11.158,12.0139 -11.1649,12.0036 -11.2304,11.982 -11.3069,12.0125 -11.3274,12.0335 -11.3621,12.0915 -11.4002,12.1066 -11.4364,12.1169 -11.4464,12.1227 -11.481,12.1627 -11.4816,12.1926 -11.4684,12.214 -11.4378,12.2307 -11.3703,12.3697 -11.36,12.394 -11.3608,12.4339 -11.3958,12.5212 -11.4041,12.5555 -11.411,12.6421 -11.3818,12.8177 -11.3568,12.9178 -11.3631,12.9683 -11.4501,13.0712 -11.5018,13.0975 -11.5157,13.1255 -11.543,13.1976 -11.5259,13.24 -11.5388,13.2681 -11.5947,13.3435 -11.6212,13.3767 -11.7027,13.3977 -11.7273,13.3942 -11.7451,13.3499 -11.796,13.2945 -11.8734,13.3669 -11.8646,13.4054 -11.9518,13.5129 -11.9769,13.5414 -12.0204,13.5957 -12.0432,13.6494 -12.0503,13.6805 -12.0273,13.7132 -11.996,13.7312 -11.9755,13.7459 -11.9539,13.7663 -11.9419,13.7857 -11.9339,13.8149 -11.9287,13.8435 -11.9278,13.868 -11.9294,13.8912 -11.9446,13.9072 -11.9726,13.9281 -11.9938,13.9506 -12.0,14.0029 -11.9903,14.0461 -11.9661,14.1356 -11.9682,14.1572 -12.016,14.2618 -12.1366,14.3583 -12.1921,14.3794 -12.2112,14.489 -12.2025,14.5237 -12.1642,14.5914 -12.2296,14.7343 -12.2304,14.7479 -12.1606,14.7517 -12.0797,14.7232 -12.0456,14.7094 -11.9602,14.7551 -11.8526,14.8243 -11.8273,14.8464 -11.8011,14.9082 -11.7822,14.998 -11.7982,15.0336 -11.8267,15.0301 -11.8323,15.0804 -11.8179,15.1784 -11.781,15.3042 -11.7407,15.4216 -11.7263,15.4604 -11.7022,15.4813 -11.6967,15.5085 -11.6977,15.5278 -11.6256,15.508 -11.5859,15.5283 -11.5239,15.5792 -11.4847,15.6245 -11.4413,15.6261 -11.4045,15.6159 -11.3513,15.5585 -11.3234,15.5071 -11.2886,15.4578 -11.2729,15.4384 -11.2404,15.4142 -11.2232,15.4027 -11.1863,15.3772 -11.1589,15.3577 -10.9797,15.2257 -10.9717,15.2063 -10.9608,15.1821 -10.9013,15.108 -10.8835,15.0936 -10.835,15.189 -10.7515,15.2945 -10.7216,15.3245 -10.7066,15.3575 -10.7036,15.4219 -10.6621,15.4149 -10.6372,15.4132 -10.5923,15.411 -10.5548,15.4152 -10.4575,15.4199 -10.2983,15.4242 -10.2774,15.4209 -10.2003,15.391 -10.106,15.3557 -10.0747,15.3517 -10.0485,15.3499 -10.0208,15.3498 -9.7994,15.3577 -9.7664,15.3691 -9.7343,15.3885 -9.6849,15.4127 -9.649,15.414 -9.3985,15.4272 -9.4037,15.4618 -9.4312,15.5794 -9.3266,15.6871 -9.3004,15.6599 -9.3211,15.5461 -9.3223,15.4826 -9.2151,15.4815 -9.1737,15.4811 -9.0797,15.4818 -9.0261,15.4811 -8.9853,15.481 -8.5749,15.484 -8.5035,15.484 -8.4947,15.4837 -8.0412,15.4841 -7.9915,15.4836 -7.6531,15.4862 -7.492,15.4879 -7.3493,15.4884 -7.0103,15.4899 -6.6506,15.4885 -6.4186,15.4873 -6.3114,15.4864 -6.3004,15.4856 -5.9517,15.4871 -5.5766,15.4821 -5.4884,15.4811 -5.4867,15.4981 -5.4771,15.5498 -5.4137,15.8767 -5.3793,16.0485 -5.366,16.1172 -5.3282,16.3098 -5.5945,16.4894 -5.6209,16.7299 -5.6875,17.3309 -5.7405,17.8111 -5.7755,18.1322 -5.7963,18.3208 -5.8303,18.6292 -5.8466,18.7662 -5.8771,19.0406 -5.8936,19.1943 -5.9111,19.3484 -5.9492,19.6905 -5.9666,19.8443 -5.9992,20.1267 -6.0478,20.5364 -6.0699,20.7239 -6.0996,20.9761 -6.1245,21.1975 -6.1453,21.385 -6.1666,21.5725 -6.2005,21.8615 -6.2183,22.0147 -6.291,22.6435 -6.3117,22.83 -6.3179,22.8809 -6.3277,22.9645 -6.359,23.2288 -6.4335,23.8521 -6.467,24.1344 -6.5026,24.4309 -6.5153,24.5353 -6.5251,24.6052 -6.5689,24.9714 -6.4919,24.9722 -6.3586,24.972 -6.2916,24.9715 -6.1258,24.9715 -5.7597,24.972 -4.9601,24.9716 -4.8602,24.9716 -4.8,24.9724 -4.5194,24.7972 -4.1175,24.5438 -3.7872,24.3331 -3.4582,24.122 -3.2296,23.9738 -2.8212,23.7084 -2.4451,23.4609 -2.0871,23.2242 -1.7481,22.9978 -1.4104,22.7703 -1.1413,22.5874 -0.7729,22.336 -0.4226,22.0952 -0.107,21.876 -0.0079,21.8064 0.0156,21.7909 0.1498,21.7087 0.267,21.6365 0.4007,21.5541 0.7675,21.3277 1.1693,21.0773 1.1842,21.0341 1.1936,20.9993 1.1957,20.9791 1.191,20.9142 1.1849,20.8772 1.1801,20.8541 1.1694,20.8173 1.1588,20.7769 1.162,20.7317 1.1749,20.7105 1.3497,20.6589 1.4765,20.6183 1.5171,20.6036 1.576,20.577 1.6256,20.5482 1.6599,20.5154 1.67,20.4421 1.6665,20.3927 1.713,20.3474 1.7876,20.2904 1.808,20.2783 1.8981,20.2371 2.0882,20.1963 2.1268,20.2138 2.1713,20.2539 2.2012,20.2606 2.225,20.2514 2.2732,20.2196 2.3171,20.1807 2.3415,20.1554 2.3524,20.1385 2.3739,20.1044 2.3837,20.0864 2.403,20.0431 2.4188,20.0307 2.5118,19.9998 2.5846,19.9795 2.6996,19.9802 2.8989,19.9447 3.0025,19.9055 3.0252,19.8957 3.2292,19.795 3.2272,19.7154 3.2191,19.6015 3.2088,19.5624 3.2077,19.5349 3.2444,19.4243 3.2666,19.4039 3.2742,19.3843 3.2685,19.3551 3.1874,19.2345 3.1427,19.1807 3.122,19.1588 3.1133,19.1243 3.1335,19.0958 3.18,19.0572 3.3281,18.9551 3.729,19.0303 3.9046,19.0635 3.9479,19.0718 4.076,19.0953 4.2402,19.1254 4.2402,19.1254 307,4.0,Oman 55.131,22.6743 55.1494,22.7751 55.1504,22.795 55.1489,22.8263 55.1449,22.8687 55.1438,22.8927 55.1457,22.9882 55.1737,23.0911 55.1988,23.132 55.228,23.1756 55.255,23.218 55.2751,23.256 55.2926,23.3 55.3529,23.4811 55.4168,23.6153 55.4932,23.7422 55.4872,23.8593 55.4687,23.8784 55.4408,23.9461 55.5685,24.001 55.6106,24.0044 55.7318,23.9932 55.8054,24.0083 55.937,24.0418 55.9536,24.0565 55.8786,24.2056 55.8487,24.2097 55.8223,24.2003 55.7925,24.187 55.709,24.2165 55.7435,24.2899 55.75,24.3896 55.7277,24.4498 55.7114,24.5382 55.7425,24.5686 55.7736,24.6224 55.7498,24.6743 55.7435,24.7023 55.7337,24.8325 55.7439,24.8582 55.7753,24.8923 55.7959,24.9144 55.8182,24.9316 55.8517,24.9485 55.8746,24.9548 55.9058,24.954 55.9295,24.9491 55.9523,24.9381 55.964,24.9184 55.9804,24.8382 55.9581,24.8533 55.9281,24.8625 55.9107,24.8441 55.9938,24.7167 56.0062,24.7103 56.0335,24.7071 56.0733,24.7135 56.1091,24.754 56.1182,24.7973 56.1551,24.8061 56.1986,24.8219 56.2095,24.8295 56.216,24.8425 56.2322,24.8546 56.2612,24.8672 56.2693,24.8861 56.2681,24.8984 56.2635,24.934 56.2679,24.9415 56.2809,24.9488 56.3026,24.9517 56.3046,24.9365 56.3429,24.8405 56.4285,24.6553 56.4547,24.6032 56.4752,24.5683 56.5326,24.4744 56.5486,24.4502 56.5825,24.4212 56.6072,24.4045 56.6436,24.3738 56.726,24.2817 56.7428,24.259 56.7587,24.2157 56.796,24.1623 56.8363,24.1136 56.9184,24.044 56.987,23.9883 57.0419,23.9469 57.1001,23.9079 57.4635,23.7979 57.7636,23.7115 57.7963,23.6978 57.8221,23.6908 57.8581,23.6861 57.871,23.6865 57.9187,23.6941 57.9498,23.698 58.0064,23.694 58.0279,23.6906 58.0773,23.677 58.101,23.6696 58.1344,23.6562 58.1752,23.6303 58.1935,23.61 58.2235,23.5974 58.2689,23.5896 58.3318,23.5902 58.3665,23.5929 58.4075,23.6056 58.4226,23.6251 58.5041,23.6188 58.5365,23.6065 58.7195,23.4479 58.7953,23.3358 58.8542,23.2929 58.9277,23.174 58.9359,23.1346 58.9443,23.1164 58.9597,23.0929 59.0176,23.0154 59.0457,22.991 59.095,22.9663 59.1143,22.9527 59.1514,22.9213 59.2079,22.7976 59.2183,22.7771 59.2376,22.7524 59.3245,22.6552 59.3706,22.6143 59.4131,22.5844 59.4605,22.5513 59.5006,22.5434 59.5766,22.5419 59.7281,22.5117 59.7587,22.4637 59.7733,22.4049 59.7581,22.2874 59.7551,22.2667 59.7357,22.1984 59.6987,22.1421 59.6443,22.0761 59.5777,21.9087 59.5117,21.8546 59.4676,21.7856 59.4416,21.7597 59.4267,21.7431 59.4152,21.7213 59.4016,21.6582 59.3849,21.6053 59.2716,21.418 59.2324,21.3973 59.2018,21.3865 59.1322,21.3525 59.1015,21.3366 59.0157,21.2733 58.8442,21.1131 58.7817,21.036 58.7653,21.0158 58.7326,20.9689 58.6393,20.8238 58.6515,20.7625 58.6561,20.737 58.6365,20.7185 58.5847,20.6778 58.5273,20.6317 58.5105,20.5941 58.495,20.5323 58.4498,20.3968 58.3812,20.3357 58.3467,20.3326 58.2064,20.3472 58.2316,20.3591 58.1973,20.3559 58.1408,20.3746 58.1289,20.3958 58.1436,20.4362 58.1598,20.462 58.1955,20.5486 58.1925,20.5698 58.1698,20.5875 58.1431,20.5899 58.0501,20.5563 58.0144,20.5341 57.9973,20.4763 57.9767,20.442 57.8823,20.3632 57.784,20.2348 57.7579,20.1938 57.7523,20.1731 57.7531,20.152 57.7702,20.1218 57.7697,20.072 57.7427,19.951 57.703,19.8345 57.6645,19.7812 57.6211,19.7206 57.6177,19.6865 57.6225,19.6629 57.6754,19.451 57.698,19.4008 57.7039,19.3691 57.7004,19.34 57.6904,19.3098 57.6727,19.2732 57.6818,19.2295 57.7316,19.1031 57.7698,19.0069 57.7358,18.9499 57.6442,18.9197 57.5936,18.9168 57.5289,18.9222 57.4544,18.9314 57.4211,18.9291 57.2701,18.9091 57.2237,18.9024 57.0962,18.8744 57.0697,18.8678 56.9713,18.8373 56.8606,18.7915 56.8326,18.7784 56.7416,18.7236 56.7262,18.7101 56.6645,18.6487 56.6392,18.6238 56.5874,18.5756 56.5754,18.5585 56.569,18.517 56.5658,18.4167 56.5414,18.3132 56.5167,18.245 56.4937,18.2039 56.4839,18.1736 56.4932,18.1164 56.4884,18.1096 56.4494,18.0817 56.4158,18.0716 56.3884,18.0545 56.3379,17.9923 56.2829,17.9417 56.2842,17.921 56.2357,17.9211 56.1989,17.9277 56.1647,17.9313 56.1243,17.9337 55.959,17.9177 55.9117,17.905 55.7855,17.8835 55.7326,17.8854 55.5767,17.8712 55.4552,17.8431 55.4017,17.8257 55.3691,17.8061 55.3516,17.7798 55.338,17.7454 55.3141,17.6916 55.2989,17.6656 55.2689,17.6436 55.2482,17.6332 55.1994,17.5941 55.1638,17.5303 55.1582,17.4754 55.1699,17.4494 55.207,17.4317 55.2318,17.402 55.2384,17.3797 55.233,17.3484 55.184,17.2477 55.1459,17.1739 55.0253,17.0386 55.0087,17.0233 54.9657,16.9959 54.8943,16.9686 54.833,16.9474 54.7378,16.9261 54.6706,16.9383 54.6279,16.9608 54.6165,16.9931 54.5853,17.0062 54.5411,17.0125 54.5198,17.015 54.4386,17.019 54.3545,17.0167 54.3231,17.016 54.0276,16.9955 53.9452,16.958 53.8646,16.8899 53.762,16.868 53.6782,16.8402 53.6267,16.7984 53.6128,16.7763 53.532,16.7264 53.5117,16.7253 53.4838,16.7283 53.3893,16.7282 53.2889,16.7113 53.122,16.664 53.0621,16.642 53.0509,16.6241 52.7487,17.2662 52.7184,17.3306 51.9361,18.9783 54.9331,19.9778 55.3544,21.2437 55.5977,21.9753 55.131,22.6743 55.131,22.6743 19,9.0,Japan 125.1303,24.8378 125.1672,24.78 125.1917,24.7537 125.2022,24.7483 125.2302,24.7493 125.2446,24.7472 125.2847,24.7274 125.2925,24.7148 125.2885,24.7051 125.1876,24.69 125.1626,24.689 125.1467,24.6888 125.1155,24.6936 125.1015,24.6996 125.0945,24.7102 125.1079,24.8554 125.1236,24.8475 125.1303,24.8378 125.1303,24.8378 13,-7.0,Mexico -110.1963,24.3733 -110.2064,24.3779 -110.2191,24.4065 -110.2647,24.5356 -110.2633,24.5504 -110.2405,24.5593 -110.2289,24.5523 -110.161,24.4573 -110.1604,24.4342 -110.172,24.4031 -110.1894,24.3738 -110.1963,24.3733 -110.1963,24.3733 29,9.0,Japan 123.9393,24.4122 123.9925,24.4072 124.036,24.409 124.0614,24.4177 124.09,24.4688 124.1293,24.5295 124.1547,24.5562 124.1689,24.5588 124.1742,24.5463 124.1699,24.5273 124.1487,24.5103 124.1398,24.5008 124.1202,24.4634 124.1057,24.4301 124.0978,24.3902 124.0964,24.378 124.0966,24.3633 124.0837,24.3241 124.0759,24.3129 124.0635,24.3083 124.0233,24.3011 124.0081,24.3001 123.998,24.3023 123.9861,24.3064 123.9681,24.3161 123.9212,24.3952 123.925,24.4084 123.9393,24.4122 123.9393,24.4122 13,8.0,China 117.9305,24.412 117.9206,24.4195 117.9149,24.4276 117.917,24.46 117.9485,24.5247 118.03,24.502 118.0401,24.4645 117.9975,24.405 117.9819,24.3992 117.9621,24.3987 117.9477,24.4034 117.9305,24.412 117.9305,24.412 15,-7.0,Mexico -111.5676,24.3012 -111.5919,24.3271 -111.6026,24.3377 -111.6158,24.3466 -111.6942,24.4002 -111.7951,24.4595 -111.8661,24.4898 -111.8747,24.501 -111.6982,24.5151 -111.5599,24.373 -111.5541,24.3643 -111.5551,24.3374 -111.5645,24.3072 -111.5676,24.3012 -111.5676,24.3012 13,8.0,Taiwan 118.1447,24.3928 118.1512,24.4065 118.1815,24.4362 118.2443,24.4884 118.2551,24.4934 118.2888,24.4685 118.3016,24.4359 118.2959,24.4003 118.2725,24.3706 118.1389,24.363 118.1302,24.3783 118.1447,24.3928 118.1447,24.3928 14,9.0,Japan 123.6369,24.3779 123.7467,24.3496 123.7719,24.34 123.7809,24.3271 123.77,24.2943 123.7468,24.2564 123.7178,24.2269 123.7066,24.2242 123.5632,24.2503 123.5239,24.2889 123.6138,24.3892 123.6257,24.3894 123.6369,24.3779 123.6369,24.3779 18,-7.0,Mexico -109.6508,24.1052 -109.7017,24.1212 -109.7123,24.132 -109.7252,24.1478 -109.7334,24.1607 -109.7453,24.1902 -109.7624,24.2407 -109.786,24.311 -109.7792,24.3395 -109.7453,24.303 -109.7312,24.2819 -109.7227,24.2693 -109.6609,24.164 -109.6518,24.1454 -109.6459,24.131 -109.6454,24.1123 -109.6508,24.1052 -109.6508,24.1052 19,4.0,United Arab Emirates 53.7168,24.0981 53.6108,24.1332 53.5985,24.1286 53.5877,24.1252 53.5712,24.1247 53.5597,24.132 53.5578,24.1426 53.5643,24.1506 53.5732,24.1562 53.6413,24.1948 53.7852,24.2408 53.8917,24.1643 53.8972,24.1526 53.8875,24.1188 53.8791,24.1129 53.8327,24.1056 53.754,24.1103 53.7168,24.0981 53.7168,24.0981 15,8.0,China 117.3208,23.7293 117.3401,23.7294 117.3527,23.7232 117.3614,23.7139 117.36,23.6993 117.2682,23.576 117.2478,23.559 117.2108,23.5434 117.1643,23.5555 117.1925,23.6686 117.2236,23.7358 117.2351,23.7458 117.2551,23.7452 117.3208,23.7293 117.3208,23.7293 416,1.0,Niger 14.9793,22.9751 14.9884,22.934 15.0293,22.7263 15.1358,22.1782 15.176,21.9743 15.1789,21.7958 15.1808,21.631 15.1813,21.59 15.1828,21.4936 15.1909,21.4679 15.2659,21.4215 15.5143,21.0663 15.5641,20.9952 15.5968,20.9277 15.5655,20.9067 15.5474,20.8822 15.5376,20.8519 15.5352,20.8294 15.5384,20.7926 15.5586,20.7427 15.5936,20.7086 15.6141,20.6937 15.6493,20.6776 15.9772,20.3304 15.9627,20.3038 15.8541,20.1171 15.7851,19.9978 15.7347,19.9102 15.7111,19.7331 15.6942,19.5972 15.6152,18.9976 15.5919,18.8205 15.5837,18.7614 15.5556,18.2694 15.5541,18.2285 15.5401,17.9795 15.5049,17.3406 15.4712,16.902 15.4665,16.8791 15.464,16.8756 15.4386,16.8491 15.3358,16.7425 15.2205,16.6227 15.1041,16.5028 14.8867,16.2764 14.555,15.9299 14.3518,15.7164 14.2546,15.5795 14.1787,15.4718 14.0557,15.2967 13.9808,15.1889 13.8427,15.0209 13.7701,14.8725 13.7509,14.8316 13.7625,14.7857 13.778,14.7164 13.7429,14.6893 13.6671,14.5924 13.6686,14.5632 13.6584,14.5362 13.6319,14.5154 13.6138,14.5057 13.5992,14.5001 13.5318,14.4956 13.5017,14.4808 13.4792,14.4684 13.4603,14.4518 13.4495,14.4349 13.4464,14.4144 13.5468,13.9779 13.5849,13.8131 13.6097,13.7032 13.3326,13.7048 13.24,13.5928 13.1873,13.5123 13.1109,13.504 13.0789,13.5079 13.0605,13.5236 13.0015,13.5186 12.885,13.4693 12.8616,13.4583 12.7561,13.3625 12.7351,13.334 12.6324,13.2722 12.594,13.258 12.575,13.2487 12.5588,13.2299 12.5275,13.1744 12.5297,13.138 12.4777,13.0831 12.4453,13.0516 12.4155,13.0583 12.3545,13.0609 12.1616,13.1075 11.9942,13.1567 11.8772,13.2227 11.8113,13.2562 11.518,13.3404 11.4788,13.3508 11.4503,13.3585 11.4137,13.3641 11.3798,13.3661 11.3258,13.3644 11.2559,13.3621 11.226,13.3604 11.1912,13.3569 11.1585,13.3517 11.1143,13.3468 11.0884,13.3456 11.054,13.345 11.0259,13.3456 10.9989,13.3469 10.965,13.3492 10.9453,13.351 10.8945,13.3575 10.8688,13.3647 10.8289,13.3711 10.7826,13.3742 10.7375,13.3737 10.7025,13.3707 10.6327,13.3598 10.5802,13.3425 10.5234,13.325 10.452,13.3039 10.4306,13.2998 10.4003,13.2948 10.35,13.2897 10.3259,13.2862 10.2134,13.2658 10.1674,13.2563 10.13,13.2412 9.9769,13.158 9.9474,13.1388 9.9228,13.1215 9.8618,13.0607 9.6835,12.8568 9.6241,12.7881 9.6111,12.7904 9.4135,12.8026 9.2262,12.8154 9.103,12.8275 9.0548,12.8304 9.0225,12.8325 9.0009,12.8328 8.9817,12.832 8.8088,12.8824 8.652,12.9313 8.6385,12.9566 8.623,12.9862 8.6014,13.0107 8.5493,13.0493 8.5298,13.0615 8.4973,13.07 8.4616,13.0694 8.4421,13.0645 8.3993,13.0736 8.3389,13.126 8.278,13.1837 8.2422,13.2029 8.2217,13.2068 8.1323,13.2657 8.1165,13.2841 8.0344,13.3059 7.8062,13.3378 7.3716,13.0853 7.3336,13.092 7.2107,13.1109 7.1395,13.0283 7.0825,12.9808 7.0204,12.9812 6.9344,12.9825 6.7988,13.0933 6.7715,13.1436 6.6706,13.3303 6.568,13.4357 6.4159,13.5901 6.3815,13.6105 6.2755,13.6686 6.2309,13.6681 6.1262,13.6457 5.9907,13.6861 5.9551,13.6999 5.8681,13.7343 5.6937,13.8023 5.6507,13.8213 5.5419,13.8761 5.5202,13.8714 5.358,13.831 5.336,13.7792 5.2831,13.7376 5.2091,13.7315 4.9945,13.7183 4.9179,13.721 4.8802,13.7662 4.6206,13.7067 4.4739,13.6734 4.243,13.4662 4.1382,13.4584 4.1379,13.3863 4.1365,13.2588 4.135,13.1625 4.1006,12.9821 4.0726,12.9368 3.9483,12.7347 3.9078,12.7038 3.6536,12.5151 3.6571,12.4314 3.6621,12.2357 3.6524,12.2015 3.6329,12.0943 3.6669,11.9916 3.6678,11.9623 3.6129,11.9063 3.6276,11.8123 3.6666,11.794 3.6843,11.7365 3.6005,11.6801 3.554,11.7234 3.5421,11.7615 3.5042,11.8111 3.4676,11.8416 3.3716,11.8815 3.3529,11.8724 3.3173,11.873 3.2946,11.8972 3.2665,11.9388 3.2582,11.9644 3.2519,11.9981 3.1588,12.0999 3.0069,12.2551 2.8614,12.3679 2.8355,12.3829 2.7772,12.3682 2.7162,12.3386 2.6621,12.289 2.6087,12.2787 2.5329,12.2676 2.3856,12.2337 2.3739,12.1931 2.3862,12.1163 2.401,12.071 2.3991,11.9438 2.3952,11.883 2.3896,11.8909 2.3183,11.9865 2.0563,12.3433 2.0749,12.3697 2.1594,12.4018 2.2333,12.4048 2.2538,12.4671 2.2183,12.5797 2.1985,12.6168 2.1398,12.6799 2.1041,12.7006 1.9867,12.717 1.9259,12.6863 1.8698,12.595 1.5765,12.6159 1.3207,12.8283 1.1162,12.9966 1.0104,13.0096 0.9883,13.0329 0.9881,13.076 0.9898,13.3218 0.9905,13.3568 1.0107,13.3578 1.0429,13.3486 1.0721,13.3357 1.1067,13.3203 1.1784,13.2986 1.2753,13.3331 1.2418,13.3749 1.2053,13.3728 1.1696,13.3815 1.1228,13.3986 1.0304,13.4477 1.0143,13.4727 1.0146,13.5086 0.9956,13.551 0.7856,13.6538 0.6244,13.6689 0.6068,13.6837 0.5149,13.8387 0.4646,13.898 0.3546,14.1151 0.392,14.1649 0.4082,14.2291 0.3843,14.2678 0.3208,14.3468 0.2962,14.3513 0.2327,14.4092 0.1892,14.4487 0.1665,14.5068 0.2253,14.6845 0.2411,14.736 0.1962,14.8257 0.2116,14.8475 0.2321,14.8637 0.235,14.8985 0.232,14.9336 0.2377,14.9835 0.2804,14.972 0.334,14.959 0.3961,14.9439 0.45,14.962 0.5116,14.9842 0.618,14.9508 0.6531,14.939 0.6943,14.9254 0.7304,14.9443 0.7774,14.952 0.9378,14.961 0.9738,14.9621 0.9932,14.9786 1.0842,15.0626 1.3109,15.2697 1.8825,15.2982 1.9719,15.3019 2.5077,15.3281 2.6251,15.3336 2.8567,15.3275 3.0082,15.3249 3.0191,15.3967 3.0288,15.4159 3.3034,15.3752 3.5139,15.343 3.5268,15.3812 3.5315,15.412 3.5632,15.4951 3.729,15.6376 3.775,15.644 3.8137,15.6467 3.842,15.6568 3.8803,15.6915 3.8905,15.7099 3.8976,15.7312 3.9457,15.924 3.9763,16.0523 4.0674,16.2803 4.0917,16.3126 4.1092,16.3297 4.1405,16.3515 4.1745,16.3658 4.1957,16.3755 4.1946,16.7279 4.1938,16.8019 4.216,16.8962 4.2462,16.9752 4.246,17.2728 4.2446,17.4566 4.2434,17.6284 4.2415,17.9779 4.2398,18.6245 4.2405,18.6399 4.2408,18.8455 4.2401,19.0512 4.2402,19.1254 4.3505,19.1458 4.4969,19.1743 4.881,19.2482 5.3023,19.3293 5.5403,19.3744 5.6502,19.3946 5.7782,19.4185 5.8055,19.4245 5.9563,19.5551 5.9746,19.5715 6.2956,19.8491 6.4663,19.9954 6.6367,20.1418 6.922,20.3854 7.4547,20.8334 7.6348,20.9424 7.7158,20.9921 7.9072,21.109 8.0398,21.1897 8.5719,21.5115 8.7054,21.5916 8.9875,21.7606 9.4585,22.0405 9.731,22.2018 10.108,22.4226 10.3277,22.5513 10.6041,22.7124 10.7397,22.7909 10.8152,22.8344 11.087,22.9913 11.6932,23.3382 11.7537,23.3719 11.9715,23.496 11.9986,23.4897 12.2649,23.4332 12.3241,23.4206 12.3834,23.4081 12.4576,23.3931 12.5758,23.3677 12.8718,23.304 13.0932,23.2552 13.3295,23.2033 13.3736,23.1938 13.3976,23.1895 13.4512,23.1716 13.527,23.1429 13.5473,23.1331 13.5786,23.1135 13.5959,23.1018 13.892,22.858 14.2174,22.5888 14.3391,22.6505 14.4005,22.6829 14.477,22.7219 14.7999,22.8854 14.8466,22.9089 14.939,22.9551 14.9793,22.9751 14.9793,22.9751 13,8.0,China 116.9698,23.4478 116.9841,23.4215 116.9759,23.3746 116.9588,23.3732 116.888,23.3778 116.8082,23.3943 116.7996,23.4083 116.8074,23.4228 116.8197,23.4317 116.9548,23.4631 116.9678,23.4509 116.9698,23.4478 116.9698,23.4478 465,1.0,Chad 14.9793,22.9751 15.1142,23.0367 15.3162,23.1276 15.9812,23.4245 16.3258,23.2663 16.9592,22.9728 17.6346,22.6556 17.6654,22.6411 18.0144,22.475 18.3411,22.3197 18.7454,22.1256 18.9766,22.0136 19.2745,21.8695 19.8495,21.5876 20.3836,21.3236 20.9339,21.0491 21.3559,20.8355 21.7551,20.6331 22.2942,20.3571 22.9928,19.9955 23.4283,19.7674 23.9737,19.4772 23.9707,19.4441 23.9703,19.4111 23.9702,18.8118 23.9709,18.7333 23.97,18.5117 23.9702,18.279 23.9705,16.2479 23.9713,16.115 23.9714,15.8152 23.969,15.6854 23.9447,15.6804 23.9225,15.6882 23.8368,15.7129 23.7721,15.7303 23.6351,15.7399 23.5748,15.7401 23.5361,15.7323 23.5035,15.7241 23.4511,15.7085 23.4323,15.6992 23.4061,15.6834 23.3814,15.6735 23.3536,15.6676 23.329,15.6643 23.302,15.6663 23.2778,15.6693 23.2168,15.6835 23.1426,15.6932 23.1162,15.6938 23.0905,15.6928 23.0811,15.6889 22.91,15.5445 22.8962,15.5228 22.8924,15.4986 22.8957,15.4701 22.9082,15.4474 22.9556,15.3969 22.9698,15.3541 22.9701,15.3186 22.9642,15.2664 22.9574,15.2142 22.9514,15.1908 22.9024,15.0973 22.8656,15.0881 22.8459,15.0801 22.8186,15.0582 22.7592,14.9983 22.7264,14.9603 22.6427,14.8373 22.6431,14.7977 22.6533,14.7416 22.6732,14.6878 22.4739,14.6211 22.4437,14.6132 22.3901,14.5841 22.3724,14.5702 22.3606,14.5465 22.3587,14.509 22.4122,14.4768 22.4199,14.4577 22.423,14.3633 22.4234,14.3139 22.4855,14.2243 22.5278,14.213 22.5407,14.1513 22.53,14.114 22.4086,14.0361 22.3449,14.0134 22.2914,13.9951 22.2088,13.9499 22.1727,13.907 22.0593,13.7639 22.111,13.6496 22.2024,13.4806 22.2693,13.3579 22.2598,13.3259 22.2442,13.3059 22.1281,13.1718 22.0424,13.134 22.0003,13.1255 21.9172,13.0369 21.8671,12.9401 21.8044,12.7829 21.8638,12.6791 21.8826,12.6553 21.9008,12.6421 21.928,12.6297 21.9525,12.6245 21.9802,12.6225 22.0252,12.6234 22.0496,12.6258 22.0952,12.6344 22.1205,12.6432 22.1373,12.6547 22.175,12.7013 22.1984,12.733 22.3065,12.6591 22.439,12.6007 22.3828,12.4714 22.4139,12.3336 22.4785,12.1523 22.5387,12.0612 22.5863,11.9793 22.5728,11.9134 22.5477,11.7859 22.5281,11.653 22.5342,11.616 22.5503,11.5889 22.5883,11.5378 22.6005,11.5218 22.6234,11.4989 22.7653,11.4169 22.9079,11.3962 22.9462,11.2676 22.9488,11.1972 22.8685,10.9647 22.8416,10.9102 22.7998,10.9191 22.6515,10.9571 22.4389,10.9888 22.4083,10.9748 22.3894,10.9521 22.3395,10.943 22.3035,10.9315 22.2204,10.8988 21.9822,10.7568 21.9332,10.7205 21.8719,10.6932 21.7959,10.6665 21.7619,10.6566 21.6951,10.6265 21.6788,10.5518 21.6773,10.5092 21.6812,10.4864 21.6956,10.4567 21.7142,10.4369 21.7234,10.3979 21.6948,10.285 21.6434,10.2244 21.6152,10.2117 21.5852,10.201 21.5455,10.2015 21.5136,10.2002 21.497,10.1882 21.4765,10.1664 21.4503,10.1367 21.431,10.1025 21.4309,10.0817 21.4119,10.0306 21.385,9.996 21.3399,9.9581 21.3158,9.9474 21.2695,9.9609 21.2423,9.967 21.2018,9.9314 21.0252,9.7556 20.9515,9.5925 20.871,9.5097 20.8528,9.5007 20.8151,9.466 20.8042,9.4408 20.794,9.4053 20.7781,9.4101 20.4759,9.2657 20.4772,9.2316 20.4653,9.1995 20.4368,9.1653 20.3996,9.1296 20.3493,9.0984 20.303,9.0948 20.248,9.1084 20.1647,9.1159 20.0428,9.1249 19.9414,9.0698 19.9117,9.0475 19.8835,9.0491 19.8085,9.043 19.5892,9.0168 19.3898,9.006 19.1723,9.011 19.0885,9.0036 19.0657,8.9993 19.0026,8.9743 18.9681,8.9544 18.9087,8.9108 18.8717,8.8816 18.8487,8.8513 18.8554,8.8317 18.9045,8.7844 18.9662,8.7556 19.0098,8.745 19.0939,8.6817 19.1045,8.6633 19.0674,8.6315 19.0377,8.5688 18.9664,8.484 18.9106,8.4146 18.9016,8.3832 18.8832,8.3581 18.8195,8.2831 18.7812,8.247 18.7383,8.2344 18.6837,8.2144 18.6657,8.2049 18.6446,8.185 18.6246,8.1564 18.6139,8.1264 18.6146,8.0782 18.5976,8.0515 18.568,8.0314 18.5405,8.0308 18.3874,8.024 18.2203,8.0167 18.0125,8.0045 17.8636,7.9497 17.6986,7.9748 17.629,7.9796 17.6079,7.9583 17.5676,7.925 17.4911,7.9035 17.4312,7.8928 17.35,7.8585 17.2359,7.8039 17.2179,7.7945 17.1992,7.75 17.1192,7.692 17.0397,7.6541 16.9655,7.6458 16.8945,7.6342 16.8509,7.613 16.8474,7.5857 16.8413,7.5609 16.8125,7.5411 16.7985,7.538 16.7629,7.5576 16.5494,7.7746 16.5453,7.8215 16.5491,7.8563 16.515,7.8591 16.4846,7.8418 16.4126,7.7893 16.3918,7.7587 16.3857,7.7061 16.3892,7.6827 16.1993,7.606 16.1305,7.5925 16.0951,7.5877 16.0616,7.586 16.0163,7.563 16.0008,7.5317 15.9568,7.4932 15.8959,7.4744 15.7652,7.4503 15.7103,7.4685 15.6961,7.4985 15.6726,7.5144 15.6253,7.5147 15.5993,7.5102 15.5483,7.5043 15.525,7.5055 15.5012,7.5101 15.4817,7.5182 15.5295,7.5737 15.5553,7.6214 15.5668,7.6817 15.5647,7.7276 15.5627,7.7518 15.5066,7.7651 15.485,7.7664 15.4605,7.8017 15.4276,7.8736 15.4162,7.9029 15.3719,8.0308 15.3633,8.0689 15.3593,8.1032 15.3448,8.1335 15.3264,8.1627 15.2476,8.3298 15.2083,8.4267 15.1903,8.4678 15.0573,8.6339 14.9064,8.7655 14.8596,8.7995 14.8395,8.8075 14.8162,8.8039 14.6051,8.9505 14.5432,8.9974 14.3322,9.1869 14.3367,9.2199 14.313,9.248 13.9927,9.6067 13.9541,9.6192 13.9424,9.6359 13.9949,9.7194 14.0187,9.7475 14.0443,9.7633 14.0623,9.7726 14.0934,9.8006 14.1078,9.8206 14.1257,9.8491 14.165,9.9248 14.1792,9.9706 14.4348,9.987 14.4703,9.9827 14.6367,9.948 14.7673,9.9122 14.9105,9.9592 15.0011,9.9387 15.0368,9.9372 15.0669,9.9443 15.0849,9.9648 15.107,9.9729 15.143,9.978 15.2235,9.9764 15.2675,9.9626 15.4054,9.916 15.5182,9.9424 15.5748,9.9563 15.6582,9.9769 15.6363,10.0006 15.6134,10.0162 15.5724,10.0382 15.5251,10.0613 15.4822,10.09 15.3565,10.2373 15.2602,10.3789 15.1736,10.4912 15.1336,10.6039 15.1203,10.6489 15.0985,10.6923 15.0756,10.7198 15.0419,10.7899 15.0415,10.8133 15.05,10.8329 15.0608,10.8679 15.0594,10.8915 15.0098,11.0673 15.0026,11.1247 15.0017,11.1898 15.0346,11.3822 15.051,11.4238 15.0926,11.4839 15.0741,11.5754 15.0457,11.6772 15.0652,11.7415 15.026,12.0655 14.9567,12.0779 14.9349,12.0843 14.8779,12.1421 14.8825,12.1866 14.8857,12.2149 14.8917,12.3067 14.8856,12.3622 14.8057,12.6198 14.6923,12.7005 14.6078,12.7205 14.5653,12.7237 14.5299,12.7576 14.5235,12.8389 14.5091,12.9605 14.4847,12.9868 14.4708,13.0054 14.4566,13.0258 14.4409,13.0513 14.4198,13.0704 14.1437,13.0686 14.0589,13.067 13.8855,13.3135 13.7444,13.5127 13.619,13.6888 13.6097,13.7032 13.5849,13.8131 13.5468,13.9779 13.4464,14.4144 13.4495,14.4349 13.4603,14.4518 13.4792,14.4684 13.5017,14.4808 13.5318,14.4956 13.5992,14.5001 13.6138,14.5057 13.6319,14.5154 13.6584,14.5362 13.6686,14.5632 13.6671,14.5924 13.7429,14.6893 13.778,14.7164 13.7625,14.7857 13.7509,14.8316 13.7701,14.8725 13.8427,15.0209 13.9808,15.1889 14.0557,15.2967 14.1787,15.4718 14.2546,15.5795 14.3518,15.7164 14.555,15.9299 14.8867,16.2764 15.1041,16.5028 15.2205,16.6227 15.3358,16.7425 15.4386,16.8491 15.464,16.8756 15.4665,16.8791 15.4712,16.902 15.5049,17.3406 15.5401,17.9795 15.5541,18.2285 15.5556,18.2694 15.5837,18.7614 15.5919,18.8205 15.6152,18.9976 15.6942,19.5972 15.7111,19.7331 15.7347,19.9102 15.7851,19.9978 15.8541,20.1171 15.9627,20.3038 15.9772,20.3304 15.6493,20.6776 15.6141,20.6937 15.5936,20.7086 15.5586,20.7427 15.5384,20.7926 15.5352,20.8294 15.5376,20.8519 15.5474,20.8822 15.5655,20.9067 15.5968,20.9277 15.5641,20.9952 15.5143,21.0663 15.2659,21.4215 15.1909,21.4679 15.1828,21.4936 15.1813,21.59 15.1808,21.631 15.1789,21.7958 15.176,21.9743 15.1358,22.1782 15.0293,22.7263 14.9884,22.934 14.9793,22.9751 14.9793,22.9751 994,7.0,Vietnam 107.8579,21.5185 107.8654,21.5154 107.9014,21.4973 107.9321,21.4626 107.7995,21.4152 107.7835,21.4343 107.7947,21.4604 107.7833,21.4961 107.7597,21.5083 107.7229,21.5016 107.6625,21.4531 107.5725,21.3681 107.4631,21.2689 107.3495,21.2661 107.3351,21.282 107.285,21.3022 107.2359,21.2417 107.2315,21.1588 107.2512,21.1113 107.2391,21.0714 107.2317,21.0342 107.2395,21.0024 107.2191,20.9855 107.1802,20.9808 107.1281,20.978 107.1014,20.9703 107.0237,20.9018 106.9437,20.9272 106.9536,20.9629 106.9866,20.9909 107.0157,21.0125 106.9068,20.9732 106.8841,20.9271 106.8474,20.9222 106.8112,20.9301 106.7782,20.9432 106.7464,20.9647 106.74,20.9371 106.7604,20.9266 106.7908,20.9109 106.8126,20.8814 106.752,20.8794 106.7323,20.8479 106.7057,20.8936 106.6454,20.9123 106.6703,20.9371 106.6928,20.9466 106.6796,20.9882 106.6612,21.0025 106.5166,20.9983 106.5134,20.9941 106.5407,20.9843 106.5368,20.9587 106.5496,20.9307 106.5778,20.9208 106.6286,20.9104 106.6115,20.8632 106.5659,20.8534 106.6129,20.8171 106.5952,20.7767 106.65,20.7176 106.6469,20.6761 106.551,20.6154 106.518,20.6032 106.4674,20.6095 106.4935,20.5679 106.4544,20.3199 106.4379,20.2643 106.394,20.2895 106.3662,20.2769 106.4059,20.2744 106.4281,20.2487 106.3984,20.2175 106.3755,20.2032 106.3521,20.1928 106.3321,20.1861 106.2131,20.1344 106.1959,20.1058 106.0788,19.9872 106.0457,19.9642 106.0275,19.9549 105.9772,19.9485 105.9835,20.0065 105.9483,19.9396 105.9106,19.9634 105.9052,19.9686 105.8967,19.9684 105.8281,19.9008 105.7844,19.7711 105.6803,19.5791 105.6895,19.5441 105.6759,19.4341 105.6564,19.3764 105.6609,19.3348 105.6781,19.2529 105.6143,19.2051 105.5154,19.0436 105.4823,18.9828 105.4859,18.9562 105.5105,18.8696 105.5677,18.8357 105.6181,18.765 105.6285,18.7442 105.6293,18.6625 105.6217,18.6419 105.6432,18.6518 105.666,18.6502 105.6852,18.6008 105.6977,18.5721 105.7129,18.5423 105.7418,18.4979 105.7552,18.4786 105.7807,18.4518 105.9278,18.2956 105.9548,18.2739 105.9846,18.25 106.0136,18.2447 106.0335,18.2415 106.1238,18.1945 106.1417,18.179 106.3153,18.0179 106.3337,17.9895 106.3628,17.9542 106.3811,17.9361 106.325,17.853 106.3159,17.8252 106.2964,17.7218 106.3662,17.6714 106.458,17.5332 106.514,17.4476 106.5703,17.3805 106.625,17.3242 106.6928,17.2696 106.811,17.1811 106.8891,17.1259 106.9312,17.0973 106.9501,17.0888 106.9544,17.0873 106.9873,17.0629 107.0011,16.9931 107.0504,16.8777 107.0629,16.8561 107.2139,16.7704 107.3406,16.6704 107.4111,16.6105 107.3874,16.613 107.3394,16.6344 107.3202,16.6369 107.3155,16.6259 107.3193,16.6197 107.376,16.5856 107.4196,16.5766 107.4649,16.5621 107.5704,16.4956 107.6883,16.3639 107.6615,16.3563 107.6824,16.2939 107.7077,16.2757 107.7534,16.2601 107.7775,16.2636 107.8034,16.2909 107.8405,16.3158 107.8971,16.3059 107.9187,16.2937 107.9578,16.2307 108.0593,16.1813 108.0354,16.1663 108.0137,16.1375 108.0085,16.1099 108.0718,15.9817 108.1073,16.0141 108.1041,16.0564 108.1029,16.1159 108.1172,16.1365 108.2011,16.1324 108.2114,16.114 108.1767,16.0897 108.1339,16.0797 108.1345,16.0434 108.1386,16.0169 108.1585,15.9573 108.1765,15.9306 108.2934,15.7885 108.3965,15.6203 108.4958,15.4649 108.6035,15.394 108.6297,15.3789 108.671,15.41 108.6997,15.4046 108.7534,15.2644 108.765,15.1159 108.7996,14.9842 108.8197,14.9355 108.8419,14.8814 108.8577,14.8488 108.8734,14.8198 108.8838,14.8028 108.9505,14.707 108.9638,14.656 108.9524,14.6252 108.9511,14.5321 108.9968,14.3897 109.0302,14.3145 109.0604,14.2749 109.0775,14.2221 109.0878,14.1046 109.1313,14.0074 109.1786,13.8491 109.1808,13.8101 109.1773,13.7361 109.1427,13.7381 109.1403,13.8018 109.1244,13.8695 109.0927,13.8006 109.099,13.7218 109.1025,13.7014 109.1093,13.682 109.1116,13.6232 109.1316,13.5402 109.1185,13.4711 109.1053,13.427 109.1042,13.3937 109.1773,13.1233 109.1898,13.094 109.2498,13.0059 109.2754,12.9706 109.2898,12.9563 109.3086,12.9406 109.3414,12.8862 109.3384,12.8466 109.3089,12.829 109.2922,12.8478 109.2471,12.8073 109.1056,12.6676 109.0748,12.6174 109.0737,12.5637 109.084,12.5313 109.1303,12.4884 109.1766,12.4469 109.2244,12.3812 109.214,12.3587 109.1794,12.332 109.1504,12.3482 109.1271,12.3847 109.0987,12.417 109.0541,12.4432 109.0249,12.4181 109.0492,12.3872 109.0941,12.31 109.0898,12.2648 109.0837,12.086 109.1488,11.8792 109.1044,11.9216 109.104,11.9688 109.0616,12.1036 109.0585,12.0318 109.0818,12.0032 109.0879,11.9651 109.078,11.9322 109.0666,11.9113 109.0402,11.8871 109.0184,11.8808 109.0027,11.8478 109.0022,11.8352 109.072,11.7797 109.0999,11.743 109.0882,11.6888 109.0599,11.6169 109.0136,11.5544 108.9522,11.5671 108.9317,11.5805 108.9169,11.5651 108.9014,11.5021 108.8972,11.4323 108.8963,11.3806 108.9014,11.3497 108.842,11.2988 108.814,11.2956 108.7852,11.3059 108.7479,11.3221 108.7339,11.3199 108.6896,11.3045 108.6448,11.2698 108.5448,11.1761 108.4641,11.1694 108.4128,11.1369 108.3895,11.1141 108.3709,11.0833 108.1259,10.9368 108.1016,10.935 108.0167,10.9135 107.9943,10.9039 107.9733,10.8887 107.9578,10.8716 107.9363,10.8327 107.9248,10.7954 107.914,10.7577 107.8985,10.7245 107.8813,10.6922 107.8375,10.6939 107.8194,10.7022 107.7914,10.7067 107.7654,10.7046 107.7072,10.683 107.6805,10.6579 107.6651,10.6448 107.638,10.6273 107.4688,10.5607 107.4211,10.5084 107.3998,10.4912 107.3418,10.4624 107.3233,10.4552 107.2111,10.4341 107.1704,10.3941 107.1489,10.3647 107.1117,10.3859 107.0949,10.4259 107.0547,10.4641 107.0154,10.4559 106.9362,10.4836 106.9177,10.5193 106.9108,10.5948 106.9059,10.6186 106.8814,10.6432 106.8928,10.6096 106.9037,10.5782 106.898,10.5261 106.877,10.5647 106.8763,10.603 106.8645,10.5537 106.8646,10.5465 106.8767,10.509 106.8624,10.4863 106.8499,10.463 106.8431,10.4959 106.8229,10.5183 106.8168,10.5624 106.8244,10.5736 106.8255,10.5807 106.787,10.6194 106.7619,10.6343 106.6756,10.6579 106.646,10.6686 106.6245,10.649 106.6368,10.6282 106.6404,10.6239 106.6535,10.5777 106.6327,10.5657 106.6194,10.5391 106.6182,10.5006 106.5656,10.486 106.5456,10.4793 106.5147,10.4482 106.4748,10.4182 106.5002,10.4256 106.6154,10.459 106.6745,10.3782 106.6779,10.2987 106.6675,10.2685 106.5709,10.2795 106.5345,10.2686 106.4573,10.2773 106.4192,10.294 106.379,10.2898 106.3411,10.2965 106.3078,10.2998 106.3153,10.2929 106.35,10.2712 106.37,10.2624 106.4622,10.2323 106.4871,10.2242 106.5369,10.2089 106.5794,10.1973 106.6764,10.1459 106.6857,10.113 106.6612,10.0712 106.5339,9.9589 106.4872,9.9632 106.3682,10.0259 106.35,10.0443 106.2802,10.1383 106.2651,10.1654 106.2482,10.1972 106.2154,10.231 106.1805,10.2435 106.2705,10.1108 106.3304,10.0415 106.3801,9.9925 106.4054,9.9808 106.4506,9.9637 106.5559,9.8993 106.5717,9.8831 106.5767,9.8611 106.5577,9.8311 106.4902,9.8001 106.3702,9.9065 106.323,9.9284 106.2688,9.9643 106.1773,10.0539 106.1388,10.1006 106.1146,10.1326 106.0966,10.1508 106.0494,10.196 106.0318,10.2102 106.0048,10.2266 105.9989,10.2227 106.0482,10.153 106.1569,10.0468 106.1746,10.0286 106.1882,10.0098 106.1926,9.9995 106.2082,9.9867 106.3365,9.8656 106.3876,9.8087 106.4539,9.7305 106.4606,9.7116 106.463,9.6526 106.4554,9.626 106.4258,9.5731 106.4083,9.556 106.3871,9.5401 106.3015,9.5208 106.2815,9.5217 106.1397,9.6123 106.1181,9.6283 105.9552,9.7764 105.9194,9.8179 105.9076,9.8348 105.8923,9.8592 105.8613,9.9002 105.8394,9.9183 105.795,9.9553 105.7142,9.9937 105.7082,9.9932 105.705,9.9895 105.7269,9.9637 105.7688,9.925 105.7832,9.9131 105.8018,9.8975 105.8497,9.8492 105.8988,9.7973 105.9409,9.7487 105.9624,9.7172 106.0692,9.5477 106.0892,9.5124 106.0937,9.491 106.0774,9.358 106.0557,9.3454 106.0189,9.34 105.8784,9.2937 105.7474,9.2412 105.7266,9.2308 105.7082,9.2238 105.5025,9.1489 105.4446,9.13 105.4171,9.1194 105.4001,9.1061 105.3328,9.0391 105.2904,8.988 105.2738,8.9323 105.2374,8.837 105.2188,8.8015 105.1884,8.7658 105.0044,8.6155 104.904,8.5832 104.748,8.5496 104.6504,8.5761 104.626,8.5954 104.7222,8.6523 104.7743,8.6842 104.806,8.7355 104.8,8.7926 104.7761,8.7847 104.7261,8.762 104.7037,8.7592 104.6824,8.7825 104.6926,9.0035 104.7085,9.2499 104.713,9.3094 104.7194,9.4347 104.7195,9.523 104.7218,9.5512 104.7455,9.6818 104.7655,9.7535 104.7844,9.7999 104.924,9.9164 104.9579,9.9263 104.9828,9.8859 104.9879,9.8632 104.9975,9.8439 104.9925,9.9341 104.9728,9.9787 104.9585,10.0007 104.9405,10.0227 104.8671,10.0932 104.814,10.0866 104.7828,10.0835 104.7387,10.1239 104.7104,10.159 104.6867,10.1962 104.6312,10.2188 104.6089,10.221 104.5728,10.1927 104.496,10.1575 104.4803,10.2197 104.4673,10.2593 104.3836,10.3772 104.3309,10.4111 104.3734,10.4114 104.4341,10.4537 104.4518,10.4902 104.4804,10.521 104.5553,10.5252 104.587,10.5196 104.6007,10.5167 104.6183,10.5133 104.6557,10.5101 104.6861,10.5084 104.7358,10.5096 104.7628,10.5188 104.7793,10.5325 104.8033,10.5653 104.8147,10.5818 104.824,10.6 104.8395,10.6196 104.8673,10.6417 104.9447,10.6814 104.979,10.7011 104.9782,10.7347 104.9457,10.8115 104.9337,10.8319 104.9237,10.8698 104.9346,10.8948 104.9458,10.9082 104.9853,10.9421 105.0762,10.894 105.0905,10.8873 105.1183,10.8775 105.1847,10.8635 105.2461,10.8688 105.2565,10.8886 105.3151,10.9536 105.4118,10.9352 105.4386,10.9408 105.4724,10.9476 105.5192,10.9579 105.5781,10.9839 105.6059,11.0007 105.6296,11.0072 105.665,11.0088 105.742,10.9044 105.8434,10.8704 105.9659,10.7909 106.0866,10.7587 106.0598,10.8585 106.0292,10.9073 106.0356,10.9564 106.07,10.9629 106.0955,10.9602 106.0727,11.0416 106.0385,11.0814 106.0097,11.0744 105.8319,11.1899 105.8132,11.2078 105.7542,11.284 105.766,11.3514 105.7831,11.4225 105.7614,11.536 105.7021,11.5812 105.6992,11.6045 105.736,11.6489 105.7577,11.6576 105.781,11.6542 105.809,11.639 105.8439,11.6318 105.8967,11.7077 105.9049,11.7469 105.9258,11.7633 105.9657,11.76 106.151,11.7048 106.1852,11.6687 106.2994,11.6631 106.3404,11.6527 106.3302,11.6969 106.3198,11.7804 106.3304,11.804 106.343,11.8719 106.303,11.9519 106.3013,11.9593 106.3271,11.9689 106.5101,11.9584 106.5799,11.9494 106.6075,11.9605 106.6285,11.9868 106.6701,12.0602 106.7381,12.0539 106.7885,12.0514 106.8366,12.0612 106.8556,12.0691 106.9334,12.1258 106.9625,12.1641 106.9911,12.2024 107.0432,12.2601 107.0703,12.2735 107.1188,12.2899 107.1766,12.309 107.2339,12.3181 107.2584,12.2989 107.278,12.2741 107.3035,12.2399 107.319,12.2411 107.414,12.3248 107.4298,12.3454 107.4746,12.5406 107.4721,12.5898 107.4421,12.7967 107.3983,12.8498 107.3882,12.8698 107.371,12.938 107.3619,13.006 107.4842,13.2966 107.5136,13.3669 107.5064,13.5231 107.4657,13.58 107.3406,13.7792 107.3468,13.8258 107.3498,13.9163 107.2589,13.989 107.2464,14.0049 107.2197,14.1127 107.2361,14.1489 107.2601,14.2249 107.2643,14.2765 107.2504,14.3213 107.2838,14.4042 107.3071,14.4189 107.3315,14.4062 107.3553,14.4194 107.3789,14.466 107.4074,14.534 107.4322,14.6409 107.4271,14.6853 107.4204,14.6924 107.4229,14.7082 107.4249,14.8308 107.4131,14.9023 107.3529,14.9548 107.3407,15.0064 107.3461,15.0192 107.4593,15.029 107.4882,15.047 107.513,15.1112 107.5426,15.1885 107.5538,15.2095 107.557,15.2179 107.5673,15.2539 107.5567,15.2715 107.4687,15.3668 107.3895,15.4511 107.2926,15.4861 107.2334,15.539 107.1354,15.6305 107.0554,15.7477 107.0485,15.7727 107.0761,15.8415 107.1012,15.8486 107.1277,15.8408 107.2736,15.9006 107.3354,15.9859 107.3473,16.0046 107.3468,16.0095 107.3322,16.0627 107.2543,16.0496 107.2341,16.0447 107.2095,16.0382 107.0635,16.1427 107.037,16.1659 107.0237,16.1876 107.0204,16.2152 107.0191,16.2453 106.9657,16.2826 106.9022,16.2884 106.8825,16.2892 106.859,16.2816 106.8558,16.319 106.767,16.4993 106.747,16.5186 106.7151,16.514 106.701,16.4884 106.6857,16.4546 106.6545,16.414 106.6288,16.402 106.5742,16.4214 106.5567,16.4409 106.4472,16.6238 106.4327,16.6587 106.427,16.8699 106.4271,16.9191 106.4327,16.978 106.3919,16.9484 106.3132,16.9735 106.3061,16.9925 106.2924,17.0457 106.2128,17.1501 106.1207,17.2274 106.0838,17.2425 106.0234,17.2855 105.9624,17.3375 105.9111,17.3874 105.8936,17.4065 105.8039,17.5095 105.7642,17.5647 105.7332,17.5988 105.7051,17.6206 105.6676,17.6335 105.6267,17.6508 105.5544,17.7946 105.4994,17.9673 105.4547,18.0286 105.3766,18.1479 105.2726,18.1373 105.23,18.1481 105.2047,18.166 105.1944,18.1766 105.1983,18.2224 105.1811,18.2359 105.1397,18.2323 105.0561,18.3141 104.9813,18.4173 104.9764,18.4496 104.9879,18.4971 105.0227,18.5779 105.0666,18.5894 105.0655,18.616 105.0185,18.6527 104.9783,18.6757 104.9028,18.6999 104.808,18.7233 104.6175,18.7751 104.5455,18.8161 104.4464,18.8821 104.4224,18.9206 104.4035,18.9511 104.1522,19.0896 104.0943,19.0901 104.0997,19.1239 104.0482,19.1692 103.935,19.2171 103.8807,19.2119 103.7518,19.2878 103.8455,19.3703 103.9153,19.3968 103.9776,19.4568 103.9794,19.5007 103.9753,19.537 103.9528,19.5474 103.9244,19.5776 103.9128,19.5985 103.8951,19.6473 103.9125,19.6718 103.932,19.661 103.961,19.6425 104.015,19.6408 104.0236,19.6597 104.0324,19.6656 104.0941,19.6814 104.1197,19.6825 104.2962,19.6481 104.323,19.6232 104.3928,19.5835 104.442,19.5838 104.5173,19.5949 104.5278,19.6262 104.5403,19.6653 104.5523,19.6858 104.59,19.7259 104.6429,19.7349 104.7046,19.7654 104.7219,19.822 104.6991,19.8417 104.6629,19.842 104.6624,19.8699 104.715,19.9166 104.772,19.9512 104.8355,19.9662 104.8504,19.9815 104.8576,20.0761 104.8118,20.1608 104.7178,20.2025 104.5879,20.2906 104.5818,20.319 104.4884,20.3932 104.4259,20.3914 104.3934,20.3842 104.2935,20.4015 104.2668,20.4124 104.2545,20.4316 104.3273,20.4814 104.3889,20.4943 104.4735,20.5673 104.5025,20.5958 104.5146,20.6294 104.4871,20.6419 104.4608,20.6497 104.3747,20.689 104.2823,20.7551 104.2172,20.82 104.2036,20.8539 104.179,20.8709 104.1031,20.9054 104.0674,20.9199 103.9771,20.9524 103.73,20.8292 103.6525,20.7611 103.6452,20.7141 103.6122,20.6478 103.5608,20.6366 103.547,20.6585 103.5112,20.695 103.4791,20.7171 103.2991,20.7708 103.2344,20.7791 103.2096,20.7825 103.0929,20.807 103.0634,20.8209 103.0514,20.8207 102.9921,20.8703 102.9623,20.9322 102.9162,21.0227 102.8115,21.1398 102.7888,21.1444 102.7934,21.2052 102.7628,21.2286 102.7788,21.3581 102.7789,21.4164 102.7512,21.4063 102.7646,21.4421 102.8183,21.5047 102.8429,21.5315 102.8615,21.5503 102.8648,21.583 102.8613,21.6886 102.8441,21.7207 102.7353,21.6941 102.6282,21.6464 102.5495,21.6342 102.5283,21.7105 102.5348,21.7361 102.5356,21.7625 102.5214,21.8287 102.4785,21.9039 102.4594,21.9125 102.4294,21.9162 102.4006,21.9232 102.3758,21.9425 102.322,22.0422 102.2969,22.0909 102.1791,22.1855 102.1514,22.1912 102.1124,22.2178 102.0589,22.2756 102.0542,22.3014 102.0278,22.3596 102.0148,22.3714 102.0416,22.3984 102.1436,22.4666 102.2626,22.5841 102.2994,22.6629 102.3276,22.7284 102.3478,22.7464 102.3744,22.7464 102.3945,22.7397 102.5754,22.6589 102.743,22.5677 102.7538,22.5294 102.8019,22.4573 102.9034,22.4114 102.9375,22.4158 103.0397,22.5173 103.206,22.7689 103.2319,22.7668 103.2672,22.7465 103.2988,22.6794 103.332,22.6141 103.3591,22.5851 103.38,22.5664 103.3945,22.5592 103.4093,22.5622 103.4556,22.6235 103.4385,22.6729 103.4899,22.7541 103.5258,22.7575 103.6661,22.6262 103.6987,22.5824 103.7327,22.5521 103.7813,22.5127 103.8405,22.4787 103.8804,22.4983 103.888,22.5275 103.8831,22.5481 103.9054,22.661 103.933,22.7151 103.9825,22.7727 104.1303,22.8024 104.1258,22.7482 104.1363,22.7095 104.23,22.6618 104.2458,22.6621 104.3319,22.7167 104.3651,22.7455 104.4103,22.7837 104.4443,22.8046 104.522,22.8009 104.544,22.7878 104.6023,22.7928 104.7223,22.937 104.6944,23.0736 104.7774,23.1545 105.1274,23.2785 105.228,23.2982 105.2684,23.2547 105.3965,23.1571 105.4202,23.1366 105.4304,23.1091 105.4343,23.0848 105.4348,23.0709 105.4431,23.0376 105.5085,23.0372 105.6374,22.9945 105.6578,22.9792 105.7047,22.9306 105.7461,22.8868 105.86,22.9127 105.8744,22.9272 105.8837,22.9568 105.9462,22.965 106.0033,22.9628 106.0642,22.9481 106.0921,22.9301 106.1059,22.9129 106.1207,22.8785 106.1247,22.8466 106.1629,22.8317 106.2097,22.8277 106.3417,22.865 106.3685,22.88 106.3902,22.9069 106.4606,22.8882 106.5708,22.8413 106.6256,22.7966 106.6463,22.7775 106.6553,22.7383 106.5856,22.6054 106.4998,22.59 106.4756,22.5796 106.4202,22.4316 106.422,22.4063 106.4256,22.3898 106.4335,22.3245 106.4552,22.3107 106.4871,22.3038 106.5173,22.3039 106.5608,22.1914 106.5387,22.1794 106.5373,22.1499 106.562,22.0063 106.6065,21.9752 106.7319,21.9545 106.7705,21.946 106.8897,21.9148 106.9127,21.8969 106.911,21.865 106.8843,21.8253 106.8927,21.7963 107.0822,21.6872 107.122,21.686 107.1372,21.7 107.1669,21.7051 107.2088,21.6574 107.2166,21.6379 107.2312,21.581 107.2531,21.5744 107.4,21.5623 107.5284,21.5858 107.5782,21.6031 107.6064,21.6206 107.624,21.6321 107.6509,21.6428 107.7288,21.6237 107.7843,21.5648 107.8152,21.5206 107.8367,21.5118 107.8579,21.5185 107.8579,21.5185 633,-4.0,Cuba -75.0484,19.9405 -75.0098,19.9636 -75.0029,19.9705 -74.9869,19.991 -75.0016,20.0339 -75.0729,19.9922 -75.0825,19.9843 -75.0871,19.9744 -75.0659,19.9418 -75.0676,19.9386 -75.1017,19.9387 -75.1352,19.9021 -75.1323,19.8792 -75.2134,19.8588 -75.2637,19.8534 -75.2776,19.8534 -75.2883,19.8545 -75.4306,19.8549 -75.448,19.8567 -75.5009,19.8672 -75.5173,19.873 -75.5678,19.8957 -75.5813,19.9042 -75.5939,19.9132 -75.6072,19.9216 -75.6284,19.9315 -75.816,19.9453 -75.8521,19.9359 -76.0182,19.9563 -76.042,19.9624 -76.1224,19.9682 -76.1561,19.9684 -76.3289,19.9448 -76.3622,19.9377 -76.3759,19.9303 -76.3915,19.9246 -76.4037,19.9223 -76.4771,19.9163 -76.5327,19.9226 -76.7032,19.907 -76.8128,19.8821 -76.8368,19.8713 -76.8939,19.8582 -76.9146,19.8545 -76.9401,19.8686 -76.981,19.8591 -77.0327,19.8648 -77.1045,19.886 -77.1992,19.883 -77.2139,19.88 -77.239,19.8665 -77.2447,19.8582 -77.2195,19.854 -77.2587,19.8347 -77.5543,19.8011 -77.5864,19.7998 -77.6312,19.8141 -77.6436,19.8299 -77.6477,19.8487 -77.6156,19.8934 -77.5025,20.0244 -77.3024,20.1776 -77.2849,20.189 -77.2724,20.194 -77.2461,20.1996 -77.2356,20.203 -77.2103,20.2126 -77.1848,20.2229 -77.0998,20.2633 -77.0772,20.2778 -77.0208,20.3447 -76.9898,20.4252 -76.9847,20.4445 -77.1029,20.6112 -77.1423,20.6399 -77.2198,20.6856 -77.2293,20.6907 -77.2423,20.6936 -77.2629,20.6951 -77.2756,20.6939 -77.367,20.6624 -77.4354,20.6591 -77.5878,20.6666 -77.6476,20.671 -77.6771,20.6737 -77.6913,20.6785 -77.7372,20.6959 -77.7629,20.7065 -77.7795,20.7069 -77.8056,20.7045 -77.814,20.6955 -77.8232,20.6791 -77.8365,20.6693 -77.9527,20.6757 -77.977,20.6908 -78.0681,20.7695 -78.1166,20.8174 -78.1778,20.8804 -78.2405,20.9254 -78.399,21.0084 -78.4124,21.1437 -78.4408,21.2646 -78.4696,21.3663 -78.4985,21.4405 -78.5064,21.4604 -78.5258,21.4898 -78.5367,21.5004 -78.5508,21.5103 -78.6028,21.5826 -78.6437,21.6106 -78.6614,21.616 -78.7545,21.5967 -78.7694,21.5872 -78.8008,21.5684 -78.8152,21.5682 -78.8689,21.5721 -78.927,21.5591 -79.033,21.533 -79.0469,21.5289 -79.0759,21.5225 -79.0998,21.518 -79.1125,21.5161 -79.1345,21.517 -79.1485,21.5184 -79.1675,21.5218 -79.365,21.5702 -79.383,21.5785 -79.5484,21.6619 -79.5703,21.6693 -79.6795,21.6814 -79.7917,21.7227 -79.8895,21.6994 -79.9488,21.764 -80.0027,21.7982 -80.0728,21.8149 -80.0903,21.8197 -80.1008,21.8243 -80.1463,21.851 -80.1821,21.8732 -80.1954,21.8819 -80.2681,21.9462 -80.2825,21.9611 -80.3031,21.9831 -80.3281,22.0147 -80.3338,22.0374 -80.3116,22.0402 -80.2937,22.0493 -80.2975,22.0798 -80.3539,22.1389 -80.3927,22.1526 -80.4335,22.1518 -80.4406,22.1362 -80.4565,22.0381 -80.4919,22.0259 -80.5286,22.0295 -80.6539,22.0356 -80.7123,22.033 -80.7238,22.0269 -80.74,22.0214 -80.7771,22.0155 -80.7915,22.0151 -80.8054,22.0161 -80.9096,22.0319 -80.9214,22.0349 -80.9887,22.0596 -81.0043,22.069 -81.0117,22.0763 -81.0176,22.0844 -81.0257,22.1041 -81.0342,22.1232 -81.0962,22.085 -81.1054,22.0701 -81.2236,22.0596 -81.2483,22.0604 -81.2869,22.093 -81.2875,22.1065 -81.2823,22.1242 -81.2898,22.1409 -81.2963,22.1488 -81.3059,22.1535 -81.5215,22.1825 -81.5485,22.1839 -81.5594,22.1699 -81.661,22.1468 -81.722,22.1587 -81.7397,22.1703 -81.9058,22.2786 -81.9981,22.3181 -82.0361,22.342 -82.0486,22.3511 -82.0551,22.359 -82.061,22.3704 -82.0576,22.3836 -82.0433,22.3979 -82.0197,22.4073 -81.9978,22.4056 -81.9564,22.4027 -81.8785,22.4019 -81.7398,22.4062 -81.6937,22.4112 -81.5998,22.43 -81.5477,22.4663 -81.5431,22.548 -81.5492,22.5524 -81.6397,22.6074 -81.6538,22.6152 -81.686,22.6307 -81.7114,22.6383 -81.7352,22.6441 -81.7835,22.6557 -81.8594,22.6507 -82.0748,22.6525 -82.2983,22.6607 -82.5225,22.6573 -82.5705,22.6629 -82.6005,22.6703 -82.6157,22.6736 -82.6581,22.6757 -82.675,22.6704 -82.686,22.6598 -82.6888,22.6488 -82.6854,22.6355 -82.6962,22.5945 -82.7207,22.582 -82.7464,22.5747 -82.757,22.5703 -82.9241,22.4873 -82.9329,22.4819 -82.9723,22.453 -83.0021,22.4116 -83.0054,22.392 -83.0334,22.3382 -83.0394,22.3298 -83.066,22.3066 -83.0874,22.3025 -83.1015,22.3081 -83.1516,22.3232 -83.2408,22.2078 -83.2653,22.1769 -83.3089,22.1644 -83.3766,22.1499 -83.3907,22.153 -83.4404,22.17 -83.4863,22.1882 -83.564,22.1502 -83.6449,22.1463 -83.71,22.144 -83.7444,22.1455 -83.772,22.1462 -83.8048,22.1458 -83.8254,22.1379 -83.8399,22.126 -83.8512,22.1157 -83.8636,22.1036 -83.903,22.0293 -83.8905,22.0033 -83.8872,21.9226 -83.8986,21.9099 -83.9253,21.8897 -83.9379,21.8899 -83.9624,21.9048 -83.9782,21.911 -84.0038,21.9151 -84.0217,21.9146 -84.1258,21.8846 -84.1364,21.8807 -84.168,21.8692 -84.1777,21.8645 -84.2025,21.8524 -84.2245,21.8384 -84.2789,21.7987 -84.2984,21.7822 -84.3285,21.7598 -84.3481,21.751 -84.3837,21.7427 -84.3973,21.7411 -84.4119,21.7417 -84.4243,21.751 -84.39,21.8189 -84.3712,21.8363 -84.3668,21.846 -84.3657,21.8684 -84.3715,21.8901 -84.3823,21.9043 -84.3944,21.9102 -84.4599,21.9093 -84.4979,21.9033 -84.5097,21.9004 -84.5446,21.8917 -84.5962,21.8704 -84.6324,21.8491 -84.6432,21.8419 -84.652,21.8295 -84.6608,21.8204 -84.7006,21.7958 -84.7114,21.7916 -84.7604,21.7976 -84.8066,21.8063 -84.823,21.8116 -84.8323,21.8163 -84.8406,21.8226 -84.8466,21.831 -84.8482,21.839 -84.8336,21.88 -84.8197,21.8901 -84.8014,21.8657 -84.7897,21.8594 -84.7137,21.8832 -84.4428,22.0028 -84.4291,22.0113 -84.41,22.0207 -84.3897,22.0217 -84.2678,22.0167 -84.255,22.0097 -84.2444,21.9989 -84.2342,21.9875 -84.2167,22.0547 -84.3071,22.1305 -84.3358,22.1788 -84.2963,22.3079 -84.2866,22.3266 -84.1951,22.4342 -84.0965,22.5278 -83.9657,22.6362 -83.919,22.6521 -83.7395,22.7269 -83.5888,22.7765 -83.3391,22.8746 -83.1258,22.9734 -83.1135,22.9756 -82.9509,22.9926 -82.8967,22.9896 -82.9049,22.9541 -82.8696,22.9416 -82.8416,22.9533 -82.8248,22.9914 -82.8146,22.9989 -82.7972,23.0038 -82.7553,23.0046 -82.7045,23.0055 -82.6659,23.0047 -82.6456,23.0023 -82.624,23.0028 -82.5921,23.0066 -82.4874,23.0228 -82.4534,23.0327 -82.4431,23.0367 -82.4328,23.0444 -82.394,23.0669 -82.3046,23.117 -82.2287,23.1409 -82.1632,23.1554 -82.1317,23.1606 -82.1182,23.1616 -82.104,23.1609 -82.0704,23.1561 -81.9936,23.1588 -81.9806,23.1613 -81.943,23.1674 -81.9262,23.1681 -81.9029,23.1624 -81.8945,23.1536 -81.8813,23.1451 -81.8621,23.1384 -81.8321,23.1343 -81.747,23.1276 -81.6818,23.1255 -81.6699,23.128 -81.6017,23.1337 -81.576,23.1261 -81.5458,23.1311 -81.5254,23.1327 -81.4838,23.1305 -81.4722,23.1265 -81.452,23.1147 -81.435,23.0972 -81.4267,23.0804 -81.4264,23.0677 -81.4301,23.0537 -81.3994,23.0298 -81.2857,23.0866 -81.1988,23.1155 -81.1261,23.1359 -81.1541,23.1207 -81.1785,23.1053 -81.1844,23.0941 -81.0729,23.0059 -81.0307,22.9975 -81.02,23.0017 -81.0026,23.0234 -80.882,23.0511 -80.6436,23.0694 -80.5327,23.0727 -80.5212,23.0659 -80.4957,23.0413 -80.4872,23.02 -80.442,22.9644 -80.3389,22.9259 -80.3116,22.9164 -80.3006,22.9128 -80.1789,22.8799 -80.15,22.8782 -80.1318,22.8818 -80.0704,22.9047 -79.9383,22.9256 -79.9161,22.9133 -79.909,22.906 -79.8997,22.8825 -79.89,22.8572 -79.8825,22.8505 -79.8738,22.8446 -79.7553,22.7781 -79.6259,22.744 -79.5777,22.7337 -79.5352,22.6654 -79.5037,22.6195 -79.4496,22.5469 -79.4406,22.5349 -79.4262,22.5204 -79.4083,22.5058 -79.393,22.5035 -79.3228,22.4511 -79.2927,22.4268 -79.2531,22.3908 -79.2378,22.382 -79.1611,22.3475 -79.0619,22.3471 -78.9878,22.3554 -78.9696,22.3582 -78.9577,22.3612 -78.9391,22.368 -78.9189,22.3763 -78.9058,22.3778 -78.8795,22.377 -78.835,22.367 -78.8282,22.3702 -78.791,22.3793 -78.6931,22.3701 -78.4763,22.2971 -78.3133,22.2188 -78.2557,22.1737 -78.2456,22.1613 -78.2129,22.141 -78.0254,22.068 -78.0141,22.0638 -77.9878,22.0584 -77.9703,22.058 -77.9595,22.0542 -77.9195,22.0029 -77.8566,21.9244 -77.8045,21.8645 -77.7682,21.8743 -77.6606,21.7803 -77.6511,21.7752 -77.5639,21.7556 -77.4822,21.7559 -77.4028,21.7546 -77.36,21.7517 -77.3341,21.7243 -77.3335,21.7122 -77.3547,21.726 -77.3621,21.7171 -77.3621,21.7042 -77.3597,21.6859 -77.3443,21.6477 -77.3353,21.6319 -77.3099,21.6239 -77.2651,21.6114 -77.2454,21.6133 -77.2396,21.6287 -77.2446,21.6409 -77.3145,21.7335 -77.3509,21.7762 -77.3637,21.782 -77.404,21.7908 -77.4172,21.7924 -77.4343,21.8021 -77.4726,21.8227 -77.5152,21.8615 -77.5037,21.884 -77.4767,21.9001 -77.4656,21.9015 -77.4477,21.8941 -77.4335,21.8859 -77.4259,21.8793 -77.4203,21.858 -77.4165,21.848 -77.4118,21.8386 -77.4034,21.8261 -77.3956,21.8193 -77.3698,21.8017 -77.1344,21.6624 -77.0768,21.6323 -77.0621,21.6293 -77.0452,21.6287 -77.0425,21.5833 -77.0456,21.5722 -77.0631,21.5531 -77.0722,21.5579 -77.087,21.5529 -77.0949,21.5596 -77.1208,21.5705 -77.1694,21.5883 -77.1823,21.5898 -77.2513,21.5972 -77.2693,21.5899 -77.171,21.457 -77.1615,21.4485 -77.1143,21.4315 -77.0588,21.4622 -77.0373,21.4962 -77.0294,21.5206 -77.0072,21.5511 -76.9955,21.5509 -76.9672,21.5611 -76.95,21.5428 -76.8939,21.4849 -76.8752,21.4612 -76.8518,21.4283 -76.7895,21.3957 -76.7901,21.331 -76.8079,21.3168 -76.8044,21.2857 -76.7814,21.2781 -76.7416,21.3131 -76.7046,21.3599 -76.5673,21.3299 -76.4809,21.2592 -76.4809,21.2411 -76.4885,21.229 -76.4995,21.2271 -76.4944,21.2057 -76.5044,21.2059 -76.5178,21.2015 -76.5094,21.1823 -76.4448,21.1593 -76.3959,21.1779 -76.3635,21.1963 -76.3734,21.203 -76.3933,21.2062 -76.4061,21.2185 -76.4205,21.2277 -76.4138,21.2451 -76.3969,21.2592 -76.2707,21.2506 -76.2208,21.2249 -76.2144,21.2194 -76.1698,21.1924 -76.1455,21.1866 -76.1218,21.1835 -76.0768,21.1626 -76.0631,21.1543 -76.0386,21.1355 -75.9984,21.0879 -75.9286,21.0608 -75.8752,21.0673 -75.7937,21.0816 -75.7212,21.1091 -75.633,21.1027 -75.6146,21.0983 -75.5243,21.0471 -75.5135,21.033 -75.4915,20.9925 -75.4871,20.9834 -75.5414,20.8226 -75.6455,20.8079 -75.6747,20.8033 -75.6854,20.75 -75.6876,20.7228 -75.6749,20.6938 -75.6444,20.674 -75.625,20.667 -75.4591,20.6605 -75.3544,20.672 -75.3534,20.6878 -75.369,20.6922 -75.3798,20.6934 -75.38,20.7041 -75.3717,20.7095 -75.3432,20.7112 -75.3033,20.7104 -75.1442,20.7001 -74.8935,20.6704 -74.8642,20.6623 -74.6554,20.5699 -74.6292,20.531 -74.5843,20.5132 -74.5471,20.4893 -74.511,20.4609 -74.4917,20.4414 -74.4908,20.4269 -74.4784,20.401 -74.4527,20.3717 -74.4079,20.3276 -74.2938,20.2678 -74.2097,20.2718 -74.1982,20.2812 -74.1766,20.29 -74.137,20.2921 -74.052,20.2289 -74.0416,20.1985 -74.041,20.1819 -74.0424,20.1713 -74.0574,20.1499 -74.151,20.058 -74.1632,20.0495 -74.1764,20.0413 -74.194,20.034 -74.2093,20.038 -74.2203,20.0497 -74.2289,20.0558 -74.2752,20.0563 -74.2881,20.0558 -74.3964,20.0425 -74.5127,20.0301 -74.5913,20.0279 -74.6131,20.0294 -74.6268,20.0299 -74.6712,20.0258 -74.7095,20.0165 -74.726,20.0121 -74.7403,20.0046 -74.8694,19.9342 -74.8733,19.9234 -74.8815,19.91 -74.8931,19.8984 -74.9241,19.8816 -74.9421,19.8787 -74.994,19.871 -74.9942,19.895 -74.9959,19.9435 -75.0484,19.9405 -75.0484,19.9405 18,8.0,China 113.4641,22.7415 113.4626,22.7329 113.4474,22.7251 113.4355,22.7234 113.4214,22.7252 113.4116,22.7301 113.3187,22.7948 113.3102,22.8008 113.2836,22.8245 113.249,22.8686 113.2699,22.8807 113.2853,22.8829 113.3366,22.8778 113.3516,22.869 113.4193,22.8004 113.458,22.7495 113.4641,22.7415 113.4641,22.7415 23,6.0,Bangladesh 90.4075,22.6605 90.3817,22.7181 90.3729,22.7304 90.355,22.7344 90.3437,22.7405 90.3579,22.8417 90.4386,22.857 90.4755,22.8567 90.5296,22.8447 90.5487,22.8394 90.5712,22.8284 90.5804,22.8178 90.5799,22.8066 90.5658,22.7823 90.5442,22.7708 90.5339,22.7669 90.5142,22.7625 90.4536,22.7586 90.4297,22.7578 90.4327,22.7257 90.4352,22.6941 90.4075,22.6605 90.4075,22.6605 19,-4.0,Cuba -79.2314,22.5889 -79.2715,22.6131 -79.3729,22.666 -79.4191,22.6889 -79.5321,22.7573 -79.5337,22.7745 -79.5033,22.7872 -79.4816,22.7859 -79.4675,22.7765 -79.4445,22.7532 -79.4302,22.732 -79.4231,22.7249 -79.3947,22.7059 -79.3325,22.6765 -79.2768,22.6495 -79.2426,22.6143 -79.2258,22.5918 -79.2314,22.5889 -79.2314,22.5889 53,6.0,Bangladesh 90.5599,21.9628 90.5259,21.9682 90.4906,22.007 90.5077,22.1122 90.5125,22.1315 90.5191,22.1492 90.5403,22.1985 90.551,22.2112 90.5606,22.2301 90.5647,22.2447 90.5714,22.3165 90.573,22.3677 90.5649,22.4207 90.5536,22.4773 90.5501,22.4875 90.5357,22.5191 90.5307,22.5279 90.5217,22.5336 90.5024,22.5389 90.4883,22.5448 90.4453,22.5801 90.4399,22.6024 90.439,22.6145 90.4412,22.6359 90.4438,22.6524 90.4626,22.7256 90.4709,22.7415 90.4788,22.7482 90.4937,22.7524 90.5286,22.756 90.5502,22.7576 90.5602,22.7561 90.5687,22.7481 90.5805,22.7151 90.5845,22.702 90.5906,22.6712 90.592,22.659 90.5934,22.6464 90.6009,22.6265 90.682,22.5289 90.7205,22.4932 90.7475,22.475 90.7571,22.4624 90.7652,22.4322 90.7667,22.4115 90.754,22.2937 90.7393,22.2214 90.7356,22.2064 90.7154,22.1327 90.7085,22.1112 90.6582,22.0453 90.5599,21.9628 90.5599,21.9628 27,6.0,Bangladesh 91.4001,22.3205 91.3872,22.3226 91.3735,22.3283 91.3624,22.3373 91.334,22.3791 91.3169,22.4081 91.2954,22.4473 91.2925,22.4577 91.29,22.473 91.2902,22.4861 91.2923,22.4983 91.3198,22.5975 91.3342,22.5955 91.3469,22.5805 91.4124,22.4845 91.4193,22.4711 91.4433,22.4199 91.4469,22.4102 91.4508,22.3954 91.4554,22.3777 91.4554,22.3609 91.4492,22.3459 91.4417,22.3365 91.4329,22.3308 91.417,22.323 91.4001,22.3205 91.4001,22.3205 30,-4.0,Cuba -78.3129,22.4039 -78.2989,22.419 -78.3004,22.4327 -78.322,22.4387 -78.3678,22.4331 -78.377,22.428 -78.3919,22.4204 -78.44,22.4229 -78.5557,22.4617 -78.5948,22.4769 -78.5989,22.4867 -78.5961,22.5082 -78.5777,22.5316 -78.545,22.5278 -78.5031,22.5198 -78.4862,22.5046 -78.4746,22.5014 -78.4542,22.4983 -78.4395,22.4981 -78.3624,22.5022 -78.3516,22.513 -78.3288,22.5299 -78.3036,22.5336 -78.2938,22.5327 -78.2526,22.5146 -78.2446,22.5087 -78.181,22.4178 -78.199,22.4106 -78.3129,22.4039 -78.3129,22.4039 28,6.0,Bangladesh 90.9151,22.0594 90.9397,22.1471 90.9416,22.1595 90.9501,22.2594 90.9509,22.3075 90.9504,22.3208 90.9515,22.3646 90.9606,22.4823 90.9643,22.4951 90.9772,22.4989 90.9884,22.4867 91.0316,22.3843 91.0617,22.2963 91.0678,22.2656 91.0673,22.2397 91.0656,22.2232 91.0625,22.1937 91.059,22.1781 91.0517,22.1623 91.0454,22.1535 91.0297,22.1366 91.0219,22.1301 90.9706,22.0903 90.9617,22.0838 90.9357,22.0676 90.9233,22.0609 90.9151,22.0594 90.9151,22.0594 594,7.0,Laos 102.0148,22.3714 102.0278,22.3596 102.0542,22.3014 102.0589,22.2756 102.1124,22.2178 102.1514,22.1912 102.1791,22.1855 102.2969,22.0909 102.322,22.0422 102.3758,21.9425 102.4006,21.9232 102.4294,21.9162 102.4594,21.9125 102.4785,21.9039 102.5214,21.8287 102.5356,21.7625 102.5348,21.7361 102.5283,21.7105 102.5495,21.6342 102.6282,21.6464 102.7353,21.6941 102.8441,21.7207 102.8613,21.6886 102.8648,21.583 102.8615,21.5503 102.8429,21.5315 102.8183,21.5047 102.7646,21.4421 102.7512,21.4063 102.7789,21.4164 102.7788,21.3581 102.7628,21.2286 102.7934,21.2052 102.7888,21.1444 102.8115,21.1398 102.9162,21.0227 102.9623,20.9322 102.9921,20.8703 103.0514,20.8207 103.0634,20.8209 103.0929,20.807 103.2096,20.7825 103.2344,20.7791 103.2991,20.7708 103.4791,20.7171 103.5112,20.695 103.547,20.6585 103.5608,20.6366 103.6122,20.6478 103.6452,20.7141 103.6525,20.7611 103.73,20.8292 103.9771,20.9524 104.0674,20.9199 104.1031,20.9054 104.179,20.8709 104.2036,20.8539 104.2172,20.82 104.2823,20.7551 104.3747,20.689 104.4608,20.6497 104.4871,20.6419 104.5146,20.6294 104.5025,20.5958 104.4735,20.5673 104.3889,20.4943 104.3273,20.4814 104.2545,20.4316 104.2668,20.4124 104.2935,20.4015 104.3934,20.3842 104.4259,20.3914 104.4884,20.3932 104.5818,20.319 104.5879,20.2906 104.7178,20.2025 104.8118,20.1608 104.8576,20.0761 104.8504,19.9815 104.8355,19.9662 104.772,19.9512 104.715,19.9166 104.6624,19.8699 104.6629,19.842 104.6991,19.8417 104.7219,19.822 104.7046,19.7654 104.6429,19.7349 104.59,19.7259 104.5523,19.6858 104.5403,19.6653 104.5278,19.6262 104.5173,19.5949 104.442,19.5838 104.3928,19.5835 104.323,19.6232 104.2962,19.6481 104.1197,19.6825 104.0941,19.6814 104.0324,19.6656 104.0236,19.6597 104.015,19.6408 103.961,19.6425 103.932,19.661 103.9125,19.6718 103.8951,19.6473 103.9128,19.5985 103.9244,19.5776 103.9528,19.5474 103.9753,19.537 103.9794,19.5007 103.9776,19.4568 103.9153,19.3968 103.8455,19.3703 103.7518,19.2878 103.8807,19.2119 103.935,19.2171 104.0482,19.1692 104.0997,19.1239 104.0943,19.0901 104.1522,19.0896 104.4035,18.9511 104.4224,18.9206 104.4464,18.8821 104.5455,18.8161 104.6175,18.7751 104.808,18.7233 104.9028,18.6999 104.9783,18.6757 105.0185,18.6527 105.0655,18.616 105.0666,18.5894 105.0227,18.5779 104.9879,18.4971 104.9764,18.4496 104.9813,18.4173 105.0561,18.3141 105.1397,18.2323 105.1811,18.2359 105.1983,18.2224 105.1944,18.1766 105.2047,18.166 105.23,18.1481 105.2726,18.1373 105.3766,18.1479 105.4547,18.0286 105.4994,17.9673 105.5544,17.7946 105.6267,17.6508 105.6676,17.6335 105.7051,17.6206 105.7332,17.5988 105.7642,17.5647 105.8039,17.5095 105.8936,17.4065 105.9111,17.3874 105.9624,17.3375 106.0234,17.2855 106.0838,17.2425 106.1207,17.2274 106.2128,17.1501 106.2924,17.0457 106.3061,16.9925 106.3132,16.9735 106.3919,16.9484 106.4327,16.978 106.4271,16.9191 106.427,16.8699 106.4327,16.6587 106.4472,16.6238 106.5567,16.4409 106.5742,16.4214 106.6288,16.402 106.6545,16.414 106.6857,16.4546 106.701,16.4884 106.7151,16.514 106.747,16.5186 106.767,16.4993 106.8558,16.319 106.859,16.2816 106.8825,16.2892 106.9022,16.2884 106.9657,16.2826 107.0191,16.2453 107.0204,16.2152 107.0237,16.1876 107.037,16.1659 107.0635,16.1427 107.2095,16.0382 107.2341,16.0447 107.2543,16.0496 107.3322,16.0627 107.3468,16.0095 107.3473,16.0046 107.3354,15.9859 107.2736,15.9006 107.1277,15.8408 107.1012,15.8486 107.0761,15.8415 107.0485,15.7727 107.0554,15.7477 107.1354,15.6305 107.2334,15.539 107.2926,15.4861 107.3895,15.4511 107.4687,15.3668 107.5567,15.2715 107.5673,15.2539 107.557,15.2179 107.5538,15.2095 107.5426,15.1885 107.513,15.1112 107.4882,15.047 107.4593,15.029 107.3461,15.0192 107.3407,15.0064 107.3529,14.9548 107.4131,14.9023 107.4249,14.8308 107.4229,14.7082 107.4204,14.6924 107.3471,14.6238 107.2219,14.5791 107.1284,14.5148 107.1087,14.4812 107.0441,14.4228 106.9938,14.388 106.7261,14.288 106.6791,14.325 106.6409,14.3728 106.6282,14.3935 106.579,14.4189 106.5046,14.45 106.4764,14.4934 106.4098,14.5813 106.3499,14.548 106.307,14.4919 106.3079,14.4695 106.2846,14.4421 106.1985,14.4322 106.1813,14.4436 106.166,14.4652 106.1278,14.4727 106.1233,14.432 106.1156,14.3976 106.0982,14.3655 106.0457,14.3497 106.0166,14.3626 105.9764,14.3654 105.8775,14.3514 105.873,14.3158 105.9116,14.2212 105.9965,14.1195 106.0449,14.0658 106.0517,14.043 105.9889,13.9304 105.9345,13.9144 105.8253,13.911 105.7883,13.9174 105.7665,13.9351 105.686,14.0015 105.6713,14.0172 105.6623,14.0608 105.6109,14.0954 105.4368,14.1524 105.374,14.1196 105.3177,14.0994 105.253,14.0907 105.1609,14.1625 105.087,14.2726 105.088,14.3338 105.1031,14.3265 105.1747,14.3536 105.2479,14.3887 105.3215,14.4346 105.3699,14.4876 105.3918,14.515 105.412,14.5477 105.4126,14.5915 105.4047,14.6317 105.3916,14.799 105.4207,14.8421 105.4417,14.8665 105.4524,14.895 105.4654,14.984 105.3993,15.0537 105.3463,15.0933 105.3497,15.1578 105.4115,15.378 105.4404,15.3888 105.4578,15.3996 105.4744,15.4159 105.4806,15.4537 105.5053,15.5682 105.5133,15.622 105.5092,15.6518 105.4781,15.7024 105.4315,15.7312 105.3819,15.7491 105.3589,15.7444 105.3165,15.7438 105.2752,15.7897 105.2637,15.8103 105.2202,15.9083 105.2456,15.9557 105.2597,15.972 105.3038,15.9825 105.2969,15.9914 105.1826,16.0206 105.1504,16.0262 105.1193,16.0284 105.0945,16.0323 105.0632,16.0386 104.9551,16.077 104.9318,16.0969 104.9194,16.1151 104.9032,16.1574 104.8986,16.2087 104.8867,16.2335 104.8667,16.259 104.8531,16.2694 104.8364,16.2817 104.7843,16.3279 104.6241,16.5061 104.6169,16.5477 104.6274,16.6177 104.6344,16.6392 104.6422,16.6726 104.6427,16.7061 104.6351,16.7346 104.6194,16.8913 104.6163,16.9277 104.614,16.9544 104.6152,16.9917 104.6204,17.0185 104.6481,17.0719 104.6714,17.1143 104.6761,17.1337 104.6829,17.1713 104.6883,17.2231 104.6872,17.2667 104.6829,17.342 104.679,17.3627 104.6666,17.3889 104.5921,17.4838 104.5657,17.5089 104.5147,17.538 104.3353,17.6297 104.2913,17.6843 104.2756,17.7082 104.2096,17.8064 104.1598,17.8257 104.1404,17.845 104.1309,17.8679 104.1136,17.9173 104.0898,17.969 104.0694,17.9949 103.976,18.0891 103.966,18.1263 103.9458,18.1796 103.9208,18.2182 103.8504,18.3065 103.8148,18.3061 103.7168,18.2909 103.6337,18.3175 103.4936,18.3678 103.3825,18.4012 103.2924,18.4141 103.2721,18.4146 103.2462,18.4104 103.1758,18.3983 103.1513,18.3816 103.117,18.3451 103.116,18.3187 103.1317,18.2545 103.0161,18.1451 102.9956,18.1287 102.9448,18.103 102.9437,18.0089 102.9227,17.9768 102.8914,17.9598 102.8537,17.9788 102.822,17.9859 102.7341,17.9546 102.7171,17.9426 102.6065,17.8633 102.5594,17.8002 102.4867,17.867 102.4886,17.8986 102.4801,17.9267 102.4203,17.9515 102.3995,17.9534 102.3484,17.9505 102.2997,17.9621 102.1756,18.0276 102.1341,18.0676 102.0896,18.1182 102.0564,18.1705 102.0334,18.184 101.9845,18.1892 101.9659,18.1947 101.9473,18.1881 101.9243,18.1712 101.8759,18.1073 101.7876,18.0166 101.762,18.0113 101.7275,18.0239 101.6612,18.0434 101.6389,18.0183 101.6188,17.9528 101.5664,17.8857 101.5132,17.8698 101.4546,17.84 101.437,17.7941 101.4583,17.7774 101.3748,17.7236 101.2333,17.6377 101.1872,17.6049 101.1052,17.5118 101.0378,17.4412 100.9538,17.4805 100.9114,17.5217 100.8661,17.542 100.8413,17.546 100.8195,17.5448 100.8005,17.5492 100.7896,17.5799 100.8024,17.5994 100.8315,17.6301 100.8664,17.7125 100.8626,17.7302 100.8586,17.7432 100.8676,17.7864 100.9067,17.878 100.9412,17.8946 100.9649,17.9102 100.9914,17.9372 101.0212,18.0023 101.0484,18.0671 101.0544,18.155 101.0319,18.3244 100.9736,18.3535 100.9642,18.3673 100.9366,18.3981 100.9356,18.4211 100.9846,18.4981 101.0246,18.5199 101.0577,18.5393 101.1186,18.6169 101.1452,18.6637 101.1143,18.7204 101.127,18.8478 101.1313,18.8739 101.177,18.9546 101.1957,18.9754 101.2166,18.9895 101.2304,19.0231 101.1831,19.0715 101.1672,19.0847 101.0795,19.3322 101.0782,19.3529 101.093,19.4399 101.1413,19.4526 101.1621,19.4987 101.1562,19.5446 101.1362,19.5637 101.1021,19.5725 100.9634,19.5686 100.941,19.5833 100.9097,19.5974 100.836,19.5996 100.7899,19.5977 100.7615,19.5763 100.7452,19.5557 100.7299,19.5381 100.6912,19.4987 100.6516,19.4641 100.6332,19.4863 100.5776,19.5118 100.5187,19.5287 100.4908,19.5166 100.4627,19.4723 100.4567,19.4716 100.3944,19.4972 100.3688,19.516 100.3236,19.6059 100.2858,19.7167 100.283,19.727 100.2893,19.7498 100.324,19.7928 100.3641,19.8373 100.3844,19.8565 100.4292,19.9954 100.4492,20.0694 100.4584,20.1351 100.4528,20.1399 100.3993,20.1233 100.3362,20.1657 100.297,20.2158 100.2659,20.2858 100.2574,20.3143 100.238,20.3429 100.2214,20.3594 100.1992,20.3686 100.1658,20.3702 100.139,20.3634 100.1056,20.3339 100.0441,20.2693 99.9836,20.2867 99.9699,20.326 99.9912,20.353 100.004,20.3786 100.0195,20.4665 100.0275,20.5218 100.0508,20.6051 100.0875,20.6699 100.1367,20.726 100.1686,20.7484 100.2495,20.803 100.3193,20.795 100.3397,20.7897 100.3744,20.7827 100.4037,20.7814 100.4382,20.7905 100.4822,20.8106 100.4954,20.8172 100.5178,20.8385 100.5197,20.8618 100.4878,20.8654 100.4529,20.8535 100.4213,20.8447 100.3991,20.8532 100.3982,20.9287 100.4243,21.0027 100.4481,21.0085 100.4802,21.015 100.5019,21.0312 100.549,21.1044 100.5766,21.1589 100.58,21.2039 100.604,21.2842 100.6512,21.2771 100.6948,21.2757 100.716,21.2804 100.7392,21.2928 100.8778,21.3745 100.9771,21.4416 101.0033,21.467 101.0383,21.5124 101.0245,21.5486 101.0608,21.5349 101.1409,21.3505 101.1233,21.3094 101.1109,21.2283 101.1301,21.1866 101.1684,21.1531 101.2143,21.165 101.2638,21.1994 101.3845,21.2232 101.4463,21.2236 101.4846,21.211 101.553,21.1728 101.5791,21.1513 101.6084,21.116 101.6618,21.121 101.7209,21.1924 101.7249,21.2159 101.7241,21.2299 101.6819,21.262 101.6444,21.269 101.6164,21.29 101.6188,21.3341 101.6362,21.4296 101.6431,21.4726 101.6568,21.6295 101.6275,21.7079 101.6403,21.8101 101.5477,21.9089 101.5024,21.9458 101.4496,22.1845 101.5008,22.2558 101.55,22.3635 101.5367,22.3865 101.5456,22.4181 101.5658,22.4473 101.6159,22.4728 101.6478,22.4747 101.6746,22.4643 101.7994,22.4122 101.9052,22.4297 101.9889,22.4079 102.0148,22.3714 102.0148,22.3714 21,-4.0,Cuba -77.9232,22.2371 -77.9607,22.2425 -78.0632,22.2778 -78.0941,22.2968 -78.078,22.3127 -78.089,22.3323 -78.0952,22.3399 -78.1678,22.3832 -78.1828,22.3801 -78.1952,22.3724 -78.2122,22.3852 -78.1779,22.3995 -78.1085,22.4122 -78.0657,22.4076 -78.0222,22.389 -78.003,22.3723 -77.9956,22.3649 -77.9902,22.3564 -77.926,22.2518 -77.9232,22.2371 -77.9232,22.2371 18,8.0,China 113.909,22.3039 113.886,22.2821 113.8534,22.239 113.852,22.2117 113.8248,22.1933 113.7691,22.1722 113.7566,22.171 113.7028,22.1688 113.6922,22.1755 113.6828,22.1953 113.6852,22.2076 113.6949,22.2196 113.7022,22.2264 113.7451,22.2579 113.7573,22.2631 113.9073,22.313 113.909,22.3039 113.909,22.3039 11,-4.0,Cuba -77.7687,22.0711 -77.7993,22.0727 -77.8652,22.1011 -77.9024,22.1215 -77.9479,22.1636 -77.9013,22.2604 -77.7653,22.1942 -77.7332,22.1269 -77.7484,22.0833 -77.7687,22.0711 -77.7687,22.0711 25,-10.0,United States -159.2554,21.8456 -159.265,21.8593 -159.3093,21.8728 -159.3639,21.876 -159.5109,21.9334 -159.5577,21.9545 -159.59,21.9977 -159.5934,22.0116 -159.5927,22.0263 -159.5887,22.0368 -159.5336,22.1125 -159.5178,22.1295 -159.3859,22.2015 -159.3559,22.2112 -159.2052,22.2143 -159.153,22.1954 -159.1309,22.177 -159.1211,22.1657 -159.0955,22.1166 -159.0926,22.1024 -159.137,21.9411 -159.1826,21.8964 -159.2375,21.8569 -159.2554,21.8456 -159.2554,21.8456 841,2.0,Sudan 36.8432,21.9754 36.8088,21.9472 36.8291,21.7627 36.8548,21.6132 36.8662,21.5844 36.9551,21.4075 37.0239,21.3072 37.0534,21.268 37.0982,21.2247 37.1184,21.2081 37.1555,21.1768 37.1879,21.1428 37.2208,21.1027 37.2612,21.0399 37.2604,20.9938 37.2023,20.9783 37.1801,21.0024 37.1541,21.0705 37.1783,21.0557 37.1922,21.0381 37.2188,21.0297 37.185,21.1056 37.1086,21.1716 37.0581,21.1843 37.0485,21.1455 37.0922,20.9445 37.1189,20.7728 37.1261,20.6765 37.1395,20.6584 37.1626,20.6032 37.1831,20.5334 37.1817,20.4437 37.1556,20.4353 37.1397,20.3791 37.1353,20.3064 37.1322,20.1982 37.1409,19.9912 37.1731,19.8954 37.1825,19.8736 37.1978,19.8427 37.212,19.8116 37.2202,19.7408 37.2205,19.7098 37.2124,19.666 37.1951,19.6431 37.1965,19.5427 37.2225,19.5058 37.2449,19.4533 37.2619,19.3739 37.263,19.3372 37.2667,19.2785 37.2762,19.2205 37.2912,19.1307 37.3103,19.0651 37.3904,18.8329 37.4711,18.7035 37.5074,18.6893 37.5494,18.6882 37.5971,18.688 37.635,18.6971 37.705,18.6856 37.7223,18.6746 37.7164,18.6438 37.783,18.5802 37.8506,18.552 37.9042,18.5199 37.932,18.4975 37.9589,18.4685 38.0058,18.4058 38.0553,18.3244 38.0435,18.2871 38.0722,18.2618 38.1064,18.2388 38.1432,18.2207 38.2253,18.2025 38.3226,18.1673 38.3933,18.1141 38.4996,18.0871 38.5293,18.0672 38.5424,18.0465 38.5608,17.9907 38.554,17.9747 38.4595,17.8934 38.4122,17.8511 38.4029,17.8311 38.3228,17.6446 38.2114,17.5133 38.0898,17.4795 38.0462,17.5235 38.0127,17.5329 37.989,17.5223 37.9208,17.4802 37.8883,17.4393 37.8498,17.4219 37.6994,17.3624 37.5779,17.3383 37.5435,17.3308 37.4669,17.302 37.4752,17.2585 37.4854,17.2303 37.4756,17.1765 37.441,17.0914 37.3785,17.0153 37.3365,17.0241 37.2125,17.008 37.1031,16.9981 37.0636,17.029 36.9816,17.058 36.9493,17.0458 36.9687,17.0033 36.9647,16.7676 36.9445,16.7068 36.9282,16.6814 36.8951,16.6589 36.8697,16.6261 36.8541,16.5184 36.8524,16.4965 36.8585,16.4752 36.884,16.4413 36.9087,16.4155 36.9296,16.2675 36.9225,16.2418 36.8804,16.2089 36.8454,16.1287 36.782,15.9596 36.7199,15.7904 36.6525,15.7309 36.628,15.6419 36.5824,15.4722 36.567,15.4202 36.5221,15.2856 36.4994,15.2177 36.4364,15.1635 36.4001,15.1332 36.409,15.0518 36.4732,14.4341 36.4991,14.262 36.5004,14.2463 36.497,14.2303 36.4043,13.9413 36.445,13.8241 36.4291,13.7888 36.3793,13.6718 36.3673,13.6425 36.3658,13.62 36.3698,13.6004 36.3672,13.5799 36.3561,13.5526 36.3206,13.5046 36.3073,13.4877 36.2074,13.353 36.1164,13.0185 36.1282,12.9754 36.1102,12.9574 36.1015,12.9384 36.0946,12.9111 36.1186,12.867 36.1021,12.7009 36.0712,12.6798 36.0529,12.6921 36.0316,12.7098 35.9966,12.7009 35.9722,12.7066 35.9243,12.7015 35.661,12.6521 35.66,12.6111 35.6462,12.5881 35.6076,12.5776 35.3442,12.1521 35.2446,11.9701 35.2262,11.9204 35.2145,11.9044 35.1924,11.8848 35.1626,11.873 35.1293,11.8651 35.0953,11.8506 35.0773,11.8377 35.0634,11.8212 35.0449,11.7924 35.0243,11.7466 35.0194,11.7173 35.0282,11.6337 35.0395,11.6105 35.0529,11.586 35.0566,11.5636 35.0489,11.5229 34.9748,11.3551 34.966,11.3364 34.9479,11.3059 34.9287,11.2625 34.9255,11.2378 34.9327,11.2185 34.9403,11.2115 34.9691,11.186 34.9669,11.1621 34.945,11.0979 34.8949,10.9445 34.9403,10.9032 34.9369,10.8525 34.8225,10.7201 34.7623,10.7113 34.7319,10.7374 34.6727,10.7903 34.6358,10.8225 34.5564,10.8756 34.4019,10.7725 34.3152,10.62 34.2772,10.5748 34.2484,10.5423 34.2907,10.3387 34.3044,10.2695 34.3109,10.227 34.2856,10.106 34.1932,10.0167 34.1825,9.9626 34.17,9.8939 34.1025,9.7471 34.0484,9.5425 34.0577,9.4435 34.0602,9.4094 34.0632,9.3747 34.0973,8.9453 34.0922,8.7959 34.0857,8.6247 34.085,8.575 34.0837,8.5701 34.0678,8.5483 34.0331,8.514 33.9643,8.451 33.9331,8.4284 33.8777,8.4213 33.8436,8.4213 33.8149,8.4165 33.7809,8.4021 33.7521,8.3753 33.7335,8.3586 33.6776,8.3659 33.6528,8.3861 33.6324,8.4278 33.5971,8.4576 33.4713,8.457 33.3435,8.4284 33.2896,8.4442 33.2266,8.4521 33.1342,8.3905 33.1239,8.3472 33.1289,8.269 33.1412,8.2133 33.1489,8.1314 33.1258,8.1062 33.0843,8.092 32.995,7.9886 32.9549,7.9173 32.9598,7.8785 32.9779,7.8373 33.0151,7.7822 33.0597,7.7726 33.2203,7.7549 33.4018,7.7358 33.4268,7.7355 33.6096,7.6765 33.6745,7.6501 33.8475,7.5171 33.9895,7.3704 33.9943,7.2963 33.9914,7.272 33.9887,7.24 34.0608,7.1916 34.1248,7.1638 34.1554,7.0823 34.1851,7.0347 34.1972,7.0118 34.242,6.9681 34.2608,6.9567 34.29,6.9511 34.3221,6.9512 34.392,6.9278 34.4329,6.9066 34.448,6.8699 34.4898,6.7396 34.5145,6.7282 34.5638,6.7274 34.5929,6.7215 34.6156,6.7093 34.6399,6.6925 34.6656,6.6703 34.7176,6.6065 34.8107,6.3597 34.817,6.2842 34.8198,6.2605 34.831,6.2306 34.8827,6.1254 34.9125,6.0968 34.9299,6.0797 34.9418,6.0545 34.9483,6.0074 34.9362,5.958 34.9467,5.8716 34.9885,5.8077 35.0653,5.6819 35.0641,5.6261 35.2497,5.5019 35.2524,5.4814 35.2371,5.4521 35.2304,5.4322 35.2628,5.3716 35.2859,5.351 35.3124,5.3448 35.3789,5.3926 35.4033,5.4194 35.4644,5.4253 35.4873,5.4209 35.6856,5.3585 35.7131,5.3409 35.7342,5.3312 35.7561,5.3252 35.7809,5.3229 35.7578,5.2598 35.7555,5.2295 35.7642,5.2012 35.7898,5.1627 35.7829,5.131 35.7618,5.0997 35.7392,5.077 35.7338,4.7935 35.884,4.635 35.8996,4.6176 35.8591,4.6148 35.6691,4.6129 35.6586,4.6141 35.6353,4.6125 35.6014,4.6122 35.568,4.6128 35.5403,4.6119 35.5066,4.6117 35.4686,4.6117 35.1072,4.6087 34.9105,4.6078 34.7817,4.6072 34.7344,4.6073 34.6736,4.607 34.4429,4.606 34.3685,4.6055 34.3492,4.6046 34.335,4.5915 34.0575,4.3157 33.9583,4.2183 33.4856,3.7544 33.4732,3.7486 33.35,3.754 33.2073,3.76 33.1463,3.762 33.0896,3.804 32.9793,3.8844 32.9412,3.8592 32.9011,3.8332 32.861,3.8076 32.8375,3.7998 32.7634,3.7766 32.6825,3.7518 32.6323,3.7494 32.5983,3.7478 32.4423,3.7416 32.3679,3.7396 32.1636,3.6058 32.1644,3.5712 32.1582,3.5091 32.0994,3.5171 32.075,3.523 32.0544,3.5321 32.0408,3.5551 32.0325,3.5784 31.9897,3.5874 31.9151,3.5898 31.9102,3.6177 31.8962,3.6853 31.8176,3.7807 31.7856,3.8028 31.7536,3.8047 31.7128,3.7572 31.6684,3.7103 31.5052,3.6495 31.424,3.6949 31.3416,3.7413 31.2513,3.7907 31.1688,3.7915 31.1415,3.7913 30.944,3.6903 30.9198,3.667 30.8566,3.5617 30.8339,3.5186 30.824,3.4897 30.8123,3.5245 30.7517,3.656 30.7004,3.6338 30.5965,3.607 30.5573,3.6009 30.5274,3.6093 30.5406,3.6378 30.5469,3.6648 30.547,3.6962 30.5165,3.8597 30.4929,3.8687 30.4601,3.8609 30.4005,3.8816 30.3272,3.9209 30.3017,3.9358 30.2411,3.9548 30.209,3.9511 30.1736,3.9574 30.1327,4.0354 30.1141,4.0952 30.0853,4.1122 30.0455,4.1177 30.0277,4.1267 29.954,4.2291 29.9256,4.2865 29.8049,4.3421 29.7652,4.3704 29.7588,4.4283 29.7661,4.4641 29.7727,4.4911 29.7795,4.554 29.665,4.6125 29.6098,4.6386 29.5812,4.651 29.4607,4.6785 29.4341,4.6587 29.4329,4.6295 29.4308,4.587 29.3995,4.5207 29.2918,4.385 29.2103,4.3415 29.1772,4.3373 29.1264,4.3814 29.0985,4.4072 28.9785,4.4922 28.9445,4.4788 28.8575,4.473 28.7949,4.4778 28.7702,4.4923 28.771,4.514 28.7497,4.5525 28.6798,4.5326 28.6609,4.5059 28.6553,4.4797 28.6404,4.4511 28.62,4.4206 28.601,4.4118 28.5523,4.397 28.4734,4.3682 28.4562,4.3451 28.4451,4.3259 28.3311,4.2853 28.1693,4.3431 28.0524,4.4278 27.9964,4.4973 27.8982,4.5461 27.8338,4.5521 27.7579,4.5952 27.7401,4.6608 27.7461,4.6923 27.7514,4.7524 27.7374,4.7825 27.6288,4.8909 27.4931,4.9381 27.4242,5.0109 27.4274,5.0201 27.4284,5.066 27.3698,5.1448 27.3343,5.1649 27.2892,5.2028 27.2666,5.2251 27.244,5.2766 27.2239,5.3254 27.2055,5.4203 27.2264,5.5033 27.249,5.5385 27.248,5.5777 27.21,5.6416 27.1711,5.7022 27.1119,5.7655 27.0794,5.7849 26.9512,5.8528 26.8933,5.8591 26.8227,5.8848 26.798,5.9078 26.7934,5.954 26.7823,5.9712 26.7054,6.0027 26.6674,6.0107 26.6388,6.0005 26.5821,6.0077 26.5352,6.0218 26.4123,6.0706 26.4127,6.0953 26.4335,6.1241 26.47,6.1496 26.4885,6.1627 26.4983,6.1857 26.4954,6.2095 26.4249,6.291 26.3427,6.3394 26.2744,6.383 26.2681,6.4583 26.2839,6.4891 26.3364,6.5759 26.3765,6.6278 26.3741,6.6365 26.3309,6.6759 26.286,6.6926 26.2406,6.6984 26.0898,6.8185 26.068,6.8381 26.0346,6.8953 26.023,6.9252 26.0183,6.956 25.9551,7.0106 25.821,7.1016 25.7006,7.1601 25.5952,7.2033 25.4264,7.2899 25.3412,7.3359 25.3234,7.3637 25.3183,7.3931 25.3066,7.4125 25.2395,7.467 25.193,7.4861 25.1719,7.5079 25.1543,7.5695 25.1666,7.5876 25.2155,7.6147 25.2392,7.6182 25.2652,7.637 25.2708,7.6745 25.2588,7.7704 25.2276,7.837 25.1972,7.864 25.1578,7.8931 25.1112,7.8892 25.0838,7.8824 25.0565,7.8862 25.0259,7.9125 24.9897,7.9464 24.9424,7.9945 24.9162,8.0326 24.9198,8.0582 24.9108,8.0797 24.8423,8.1521 24.8163,8.1666 24.7768,8.1836 24.6942,8.2007 24.6327,8.2094 24.6,8.2112 24.4525,8.229 24.3097,8.2537 24.226,8.2691 24.2036,8.2752 24.1831,8.2839 24.158,8.3007 24.1359,8.3213 24.1266,8.3401 24.1133,8.3666 24.1368,8.4638 24.1749,8.5165 24.2145,8.5528 24.2415,8.578 24.1743,8.6774 24.1475,8.6863 24.1145,8.6771 24.0604,8.6788 24.0252,8.684 23.9889,8.6942 23.8995,8.7083 23.7974,8.7182 23.7554,8.7135 23.7374,8.7051 23.7127,8.6958 23.5312,8.6947 23.5034,8.6985 23.4715,8.762 23.4819,8.7984 23.5105,8.8219 23.5366,8.8586 23.5564,8.9024 23.5557,8.9838 23.5351,8.9906 23.5064,8.9511 23.484,8.9483 23.4633,8.9564 23.432,8.981 23.4226,9.0094 23.4471,9.1197 23.4526,9.1351 23.4737,9.1671 23.5131,9.1692 23.5384,9.1772 23.6233,9.2656 23.6389,9.4244 23.616,9.4325 23.6,9.5324 23.6237,9.5686 23.6345,9.587 23.668,9.6575 23.6434,9.856 23.5111,10.0726 23.2984,10.4184 23.284,10.44 23.0352,10.6525 22.9842,10.6867 22.9192,10.7862 22.8764,10.8534 22.8551,10.8875 22.8416,10.9102 22.8685,10.9647 22.9488,11.1972 22.9462,11.2676 22.9079,11.3962 22.7653,11.4169 22.6234,11.4989 22.6005,11.5218 22.5883,11.5378 22.5503,11.5889 22.5342,11.616 22.5281,11.653 22.5477,11.7859 22.5728,11.9134 22.5863,11.9793 22.5387,12.0612 22.4785,12.1523 22.4139,12.3336 22.3828,12.4714 22.439,12.6007 22.3065,12.6591 22.1984,12.733 22.175,12.7013 22.1373,12.6547 22.1205,12.6432 22.0952,12.6344 22.0496,12.6258 22.0252,12.6234 21.9802,12.6225 21.9525,12.6245 21.928,12.6297 21.9008,12.6421 21.8826,12.6553 21.8638,12.6791 21.8044,12.7829 21.8671,12.9401 21.9172,13.0369 22.0003,13.1255 22.0424,13.134 22.1281,13.1718 22.2442,13.3059 22.2598,13.3259 22.2693,13.3579 22.2024,13.4806 22.111,13.6496 22.0593,13.7639 22.1727,13.907 22.2088,13.9499 22.2914,13.9951 22.3449,14.0134 22.4086,14.0361 22.53,14.114 22.5407,14.1513 22.5278,14.213 22.4855,14.2243 22.4234,14.3139 22.423,14.3633 22.4199,14.4577 22.4122,14.4768 22.3587,14.509 22.3606,14.5465 22.3724,14.5702 22.3901,14.5841 22.4437,14.6132 22.4739,14.6211 22.6732,14.6878 22.6533,14.7416 22.6431,14.7977 22.6427,14.8373 22.7264,14.9603 22.7592,14.9983 22.8186,15.0582 22.8459,15.0801 22.8656,15.0881 22.9024,15.0973 22.9514,15.1908 22.9574,15.2142 22.9642,15.2664 22.9701,15.3186 22.9698,15.3541 22.9556,15.3969 22.9082,15.4474 22.8957,15.4701 22.8924,15.4986 22.8962,15.5228 22.91,15.5445 23.0811,15.6889 23.0905,15.6928 23.1162,15.6938 23.1426,15.6932 23.2168,15.6835 23.2778,15.6693 23.302,15.6663 23.329,15.6643 23.3536,15.6676 23.3814,15.6735 23.4061,15.6834 23.4323,15.6992 23.4511,15.7085 23.5035,15.7241 23.5361,15.7323 23.5748,15.7401 23.6351,15.7399 23.7721,15.7303 23.8368,15.7129 23.9225,15.6882 23.9447,15.6804 23.969,15.6854 23.9714,15.8152 23.9713,16.115 23.9705,16.2479 23.9702,18.279 23.97,18.5117 23.9709,18.7333 23.9702,18.8118 23.9703,19.4111 23.9707,19.4441 23.9737,19.4772 23.9721,19.4924 23.9714,19.8843 23.9769,19.9767 24.0142,19.9798 24.125,19.9781 24.4263,19.9748 24.5474,19.977 24.6047,19.9777 24.7336,19.9781 24.9522,19.9771 24.9707,19.9767 24.9706,20.987 24.9707,21.9751 25.0683,21.9762 25.1855,21.9764 25.3761,21.9752 25.747,21.9781 26.3076,21.9751 26.6158,21.9718 26.642,21.9714 26.8053,21.9708 26.8814,21.9721 26.9387,21.9742 27.0598,21.9759 27.1049,21.9761 27.2344,21.9735 27.2939,21.9716 27.3532,21.9695 27.3788,21.97 27.69,21.9751 28.188,21.9786 28.2263,21.9791 28.2845,21.9781 28.5614,21.9751 28.9777,21.9712 29.0351,21.9709 29.0569,21.971 29.0781,21.9709 29.0996,21.9712 29.1207,21.971 29.1422,21.971 29.214,21.9711 29.4912,21.9729 29.5755,21.9736 30.0641,21.9761 30.2346,21.9761 30.3402,21.9763 30.4256,21.9761 30.4618,21.9764 30.5613,21.9758 30.6536,21.9748 30.7105,21.9746 31.1272,21.9738 31.1694,21.9739 31.2359,21.9743 31.2814,22.0554 31.2965,22.0815 31.357,22.1866 31.3831,22.2023 31.4095,22.2073 31.4405,22.1968 31.4696,22.1649 31.4753,22.135 31.4276,22.0062 31.4217,21.9735 31.4568,21.9739 31.5403,21.9749 31.9573,21.9784 32.3002,21.9795 32.3484,21.9795 32.4045,21.9795 32.4331,21.979 32.4541,21.9786 32.4818,21.9782 32.6081,21.9774 33.1262,21.9745 33.139,21.975 33.3173,21.9758 33.4208,21.9756 33.6985,21.9751 33.7187,21.9753 33.7401,21.9751 33.8236,21.9751 33.9135,21.9743 34.0325,21.9726 34.0573,21.9719 34.075,21.9715 34.3042,21.9712 34.6213,21.9717 34.6617,21.9728 34.8497,21.9762 34.8974,21.9767 34.9246,21.9764 34.9456,21.9766 35.1103,21.9759 35.3109,21.9748 35.4016,21.9731 35.7372,21.9724 35.8652,21.9739 35.9808,21.9745 36.212,21.9753 36.2532,21.9747 36.3641,21.9743 36.5009,21.9739 36.6432,21.9739 36.6828,21.9751 36.7766,21.9765 36.8371,21.9766 36.8432,21.9754 36.8432,21.9754 16,6.0,Bangladesh 90.4061,21.9634 90.3891,21.9748 90.3833,21.9832 90.3684,22.0138 90.3753,22.0524 90.3823,22.0617 90.4502,22.1127 90.4708,22.1262 90.4798,22.1313 90.4994,22.1369 90.452,22.0083 90.445,21.9959 90.4323,21.9781 90.4122,21.9667 90.4061,21.9634 90.4061,21.9634 23,-4.0,Cuba -77.6099,21.884 -77.6688,21.9322 -77.7047,21.9414 -77.79,21.9789 -77.8387,22.0196 -77.8459,22.0301 -77.8485,22.0413 -77.8512,22.0736 -77.841,22.078 -77.8188,22.0702 -77.7828,22.0473 -77.7622,22.0508 -77.7563,22.0642 -77.7034,22.077 -77.6368,22.052 -77.5568,22.0441 -77.5389,22.0278 -77.5257,22.0038 -77.5428,21.9286 -77.5774,21.9221 -77.5978,21.8979 -77.6099,21.884 -77.6099,21.884 19,-10.0,United States -160.0027,21.7593 -160.0074,21.7594 -160.0346,21.7762 -160.0493,21.787 -160.0509,21.8188 -160.0303,21.8669 -160.0004,21.8957 -159.9857,21.9099 -159.8891,21.9929 -159.8645,21.9894 -159.8497,21.9734 -159.8741,21.8848 -159.8943,21.8721 -159.9181,21.8631 -159.9333,21.8602 -159.9507,21.8615 -159.9854,21.8127 -160.0027,21.7593 -160.0027,21.7593 44,-4.0,Cuba -82.7954,21.4088 -82.8548,21.4243 -82.8942,21.4296 -82.9711,21.4386 -83.0475,21.5044 -83.0623,21.5304 -83.0892,21.5994 -83.0123,21.5523 -83.0076,21.5393 -82.982,21.524 -82.9717,21.5194 -82.9595,21.5175 -82.9193,21.5185 -82.8536,21.5382 -82.8458,21.5449 -82.8334,21.5627 -82.8372,21.576 -82.8461,21.5814 -82.9114,21.6531 -82.9732,21.7398 -82.9873,21.7611 -82.9853,21.784 -82.977,21.8072 -82.9701,21.8174 -82.8721,21.9184 -82.7633,21.908 -82.7218,21.9027 -82.6139,21.8657 -82.5981,21.8091 -82.5645,21.7765 -82.5133,21.7442 -82.5049,21.7371 -82.4964,21.7246 -82.4914,21.7158 -82.4418,21.5656 -82.4433,21.5499 -82.4972,21.514 -82.5346,21.494 -82.5988,21.4648 -82.609,21.4605 -82.6416,21.4502 -82.7642,21.4137 -82.7954,21.4088 -82.7954,21.4088 21,5.5,India 88.0382,21.841 88.0414,21.8343 88.0487,21.8186 88.0564,21.7874 88.058,21.7579 88.0586,21.7454 88.0572,21.702 88.0244,21.5964 87.9572,21.6058 87.943,21.6123 87.9383,21.6217 87.9371,21.6368 87.9378,21.6474 87.9449,21.6967 87.9844,21.795 87.9917,21.8082 88.0119,21.8422 88.0214,21.8505 88.0335,21.8469 88.0382,21.841 88.0382,21.841 15,8.0,China 112.6553,21.5503 112.6496,21.5503 112.6291,21.5522 112.6187,21.5588 112.5908,21.5905 112.5647,21.6605 112.5882,21.6904 112.5947,21.6984 112.6405,21.7441 112.6951,21.7498 112.7303,21.7388 112.7249,21.7251 112.6674,21.629 112.6553,21.5503 112.6553,21.5503 24,6.0,Bangladesh 91.7743,21.4493 91.765,21.4539 91.757,21.46 91.7501,21.4671 91.7449,21.4773 91.742,21.4892 91.7313,21.6665 91.7332,21.68 91.7444,21.7058 91.7506,21.7193 91.7561,21.7276 91.7712,21.7308 91.8235,21.7098 91.8345,21.6588 91.8658,21.6185 91.8689,21.6031 91.8696,21.5875 91.8669,21.5649 91.8526,21.4924 91.8454,21.4823 91.8374,21.4761 91.7851,21.4527 91.7743,21.4493 91.7743,21.4493 17,-6.0,Mexico -106.4901,21.5412 -106.4975,21.5486 -106.5097,21.5894 -106.5119,21.6004 -106.5147,21.664 -106.503,21.6701 -106.4547,21.6916 -106.409,21.6718 -106.3977,21.6645 -106.3702,21.5955 -106.367,21.5725 -106.3842,21.4891 -106.3964,21.4861 -106.4581,21.5162 -106.4663,21.5228 -106.4901,21.5412 -106.4901,21.5412 40,-10.0,United States -157.6198,21.2352 -157.6743,21.2953 -157.6941,21.3091 -157.7092,21.313 -157.7327,21.2971 -157.7917,21.2789 -157.9071,21.2706 -157.9146,21.2775 -157.9179,21.2917 -157.9204,21.31 -157.9228,21.321 -157.9294,21.3352 -157.937,21.3489 -157.9425,21.3576 -157.9841,21.4025 -158.0093,21.428 -158.026,21.439 -158.0411,21.4544 -158.0794,21.5538 -158.0704,21.5624 -157.913,21.5855 -157.8532,21.6421 -157.8375,21.6554 -157.8177,21.668 -157.7779,21.6753 -157.7636,21.6686 -157.7499,21.6604 -157.7348,21.6465 -157.7287,21.6385 -157.6828,21.5528 -157.6615,21.4873 -157.6505,21.4471 -157.6101,21.4108 -157.5872,21.403 -157.537,21.3876 -157.4723,21.3005 -157.5157,21.2448 -157.5676,21.2478 -157.6198,21.2352 -157.6198,21.2352 15,8.0,China 111.6793,21.5328 111.6687,21.5399 111.7016,21.6173 111.7133,21.6227 111.7261,21.624 111.796,21.6284 111.8635,21.6296 111.8703,21.6105 111.8676,21.5994 111.8582,21.5913 111.8486,21.5866 111.8136,21.5766 111.6991,21.5412 111.6793,21.5328 111.6793,21.5328 15,-6.0,Mexico -106.2686,21.396 -106.3378,21.4029 -106.3766,21.4134 -106.379,21.4309 -106.3687,21.4493 -106.3548,21.4715 -106.3481,21.4792 -106.3411,21.4864 -106.3289,21.4884 -106.315,21.4878 -106.209,21.4767 -106.198,21.4441 -106.2524,21.3986 -106.2686,21.396 -106.2686,21.396 15,7.0,Vietnam 107.3405,21.2476 107.3924,21.2006 107.4725,21.1932 107.4687,21.1816 107.4537,21.1673 107.409,21.1322 107.3802,21.1263 107.3707,21.1058 107.332,21.066 107.273,21.0289 107.2483,21.0248 107.2445,21.0577 107.3136,21.2116 107.3405,21.2476 107.3405,21.2476 35,-10.0,United States -156.6758,21.0224 -156.6833,21.0228 -156.6967,21.0247 -156.7647,21.0475 -156.83,21.072 -156.8451,21.0788 -156.8624,21.0833 -156.8756,21.0854 -156.8905,21.0858 -156.904,21.0854 -156.9272,21.0791 -156.9653,21.0708 -157.0672,21.0644 -157.1051,21.0665 -157.1115,21.0743 -157.1016,21.1199 -157.0947,21.1308 -157.0517,21.175 -156.9961,21.186 -156.8427,21.1715 -156.7824,21.1594 -156.7025,21.1377 -156.6519,21.1366 -156.6375,21.1368 -156.6189,21.1417 -156.5996,21.1532 -156.5587,21.149 -156.5136,21.1319 -156.523,21.1157 -156.5585,21.0673 -156.5703,21.0575 -156.6467,21.0294 -156.6576,21.0257 -156.6758,21.0224 -156.6758,21.0224 17,8.0,China 110.3963,21.175 110.4763,21.1701 110.4324,21.0926 110.4221,21.0804 110.4021,21.0738 110.3078,21.1336 110.3098,21.1627 110.3199,21.1778 110.3481,21.1847 110.3632,21.1716 110.3504,21.1673 110.3308,21.167 110.3302,21.1568 110.3555,21.1579 110.3737,21.1624 110.3963,21.175 110.3963,21.175 27,8.0,China 110.3207,21.0339 110.3566,21.0523 110.3788,21.0579 110.4072,21.0453 110.4137,21.0371 110.4115,21.0125 110.3845,20.9478 110.3633,20.9325 110.3501,20.9516 110.3353,20.9675 110.3242,20.975 110.3107,20.9785 110.2716,20.9814 110.2089,20.9798 110.1967,20.9759 110.1746,20.9609 110.1534,20.9492 110.143,20.9467 110.1203,20.9473 110.1138,20.9572 110.1132,20.9995 110.1394,21.0305 110.1944,21.0519 110.2446,21.0563 110.2839,21.0294 110.3207,21.0339 110.3207,21.0339 62,-10.0,United States -156.1835,20.5579 -156.1977,20.5593 -156.2296,20.5655 -156.2534,20.5888 -156.2574,20.6154 -156.2575,20.6351 -156.2562,20.6762 -156.2567,20.6956 -156.2607,20.712 -156.2809,20.7651 -156.2922,20.7748 -156.3105,20.7762 -156.3264,20.7709 -156.3432,20.7629 -156.3793,20.7752 -156.3952,20.7816 -156.4356,20.7982 -156.4495,20.8063 -156.4975,20.8628 -156.5104,20.9028 -156.5059,20.9243 -156.5007,20.9335 -156.4698,20.9902 -156.4058,21.028 -156.3355,20.9703 -156.3283,20.9634 -156.32,20.9503 -156.3122,20.9303 -156.3037,20.9107 -156.2891,20.8793 -156.2794,20.8739 -156.1965,20.8899 -156.187,20.8949 -156.1724,20.9126 -156.1614,20.9165 -156.1423,20.9229 -156.0978,20.9266 -156.0406,20.9123 -156.0258,20.893 -156.0159,20.8814 -156.0054,20.8703 -155.9969,20.8644 -155.9234,20.8177 -155.8973,20.817 -155.8369,20.788 -155.8119,20.772 -155.803,20.7593 -155.797,20.7412 -155.7977,20.7281 -155.8043,20.7091 -155.8115,20.6941 -155.8179,20.6858 -155.8551,20.6509 -155.8714,20.638 -155.9494,20.6067 -155.9684,20.6071 -155.9793,20.6116 -155.992,20.6141 -156.0092,20.6151 -156.1517,20.5729 -156.1835,20.5579 -156.1835,20.5579 23,-10.0,United States -156.7157,20.7146 -156.7748,20.7204 -156.8643,20.8635 -156.8638,20.8874 -156.8547,20.8959 -156.8412,20.8996 -156.8223,20.9023 -156.8088,20.9032 -156.7325,20.9045 -156.7134,20.8977 -156.6988,20.8898 -156.6856,20.8804 -156.6316,20.8312 -156.6209,20.8205 -156.6135,20.803 -156.6161,20.7926 -156.6262,20.7772 -156.6417,20.7561 -156.648,20.7479 -156.6559,20.7414 -156.7006,20.7212 -156.7157,20.7146 -156.7157,20.7146 15,7.0,Vietnam 106.7805,20.811 106.7869,20.8149 106.8331,20.8277 106.8842,20.8343 106.9028,20.8323 106.9572,20.7912 106.9712,20.7761 106.9387,20.7056 106.9175,20.681 106.8615,20.7108 106.8419,20.7244 106.7905,20.7712 106.7779,20.8034 106.7805,20.811 106.7805,20.811 36,4.0,Oman 58.5837,20.146 58.5764,20.1491 58.5637,20.2124 58.5632,20.2231 58.5622,20.2515 58.5671,20.3178 58.5698,20.3274 58.5802,20.3476 58.6302,20.4025 58.6397,20.4108 58.6516,20.406 58.6697,20.4051 58.684,20.4099 58.6938,20.4187 58.7152,20.4483 58.7559,20.5491 58.8118,20.6581 58.8244,20.6694 58.8477,20.6591 58.8794,20.4883 58.8696,20.4753 58.8422,20.4557 58.8266,20.4472 58.8009,20.438 58.7905,20.4332 58.7736,20.4206 58.7527,20.3907 58.7349,20.348 58.7309,20.3385 58.7218,20.3061 58.7131,20.271 58.7138,20.2566 58.6505,20.188 58.6006,20.1529 58.5837,20.146 58.5837,20.146 31,-6.0,Mexico -86.8876,20.2328 -86.8943,20.234 -86.9112,20.2724 -86.9153,20.3031 -86.9167,20.3155 -86.917,20.3287 -86.9146,20.366 -86.909,20.3853 -86.8971,20.4164 -86.8897,20.4305 -86.8651,20.4704 -86.8295,20.5201 -86.8105,20.5368 -86.7973,20.5411 -86.7837,20.541 -86.7726,20.534 -86.7627,20.5293 -86.7273,20.5194 -86.6875,20.5283 -86.6784,20.533 -86.6653,20.5418 -86.6503,20.5547 -86.6328,20.5661 -86.6857,20.4659 -86.7799,20.3313 -86.8268,20.2792 -86.8395,20.2668 -86.8702,20.2438 -86.8784,20.2381 -86.8876,20.2328 -86.8876,20.2328 984,7.0,Thailand 105.088,14.3338 105.0709,14.3336 105.0423,14.2864 105.0261,14.2342 104.9995,14.2148 104.9604,14.2032 104.9194,14.2228 104.8874,14.2729 104.8763,14.3016 104.8792,14.3306 104.8812,14.3614 104.8487,14.3774 104.796,14.3851 104.7674,14.4032 104.6869,14.4316 104.5223,14.4136 104.4836,14.3828 104.4619,14.3533 104.4312,14.3469 104.3537,14.3412 104.337,14.3503 104.3013,14.3605 104.1619,14.3916 104.0025,14.3685 103.9348,14.3435 103.9239,14.3384 103.915,14.3318 103.8014,14.3233 103.6018,14.3744 103.5726,14.4224 103.5381,14.4317 103.444,14.4069 103.3927,14.3834 103.3509,14.3575 103.2585,14.3414 103.2079,14.3424 103.1535,14.3377 103.1241,14.3192 103.0638,14.3145 103.024,14.3014 102.975,14.2752 102.9439,14.2567 102.9169,14.2222 102.9044,14.2123 102.8654,14.1956 102.8435,14.1904 102.8215,14.1676 102.816,14.1528 102.8206,14.1298 102.7835,14.0212 102.7394,13.9773 102.691,13.9399 102.6769,13.9257 102.6661,13.9079 102.6571,13.8732 102.6447,13.8353 102.6043,13.7498 102.5117,13.7016 102.4478,13.6658 102.4496,13.6316 102.4816,13.5998 102.4467,13.5654 102.4238,13.5553 102.3488,13.5467 102.3222,13.5473 102.2797,13.5536 102.2602,13.5588 102.2431,13.4819 102.2395,13.3644 102.2368,13.2956 102.2339,13.2842 102.2302,13.2668 102.2792,13.1469 102.301,13.1024 102.3768,12.9621 102.4185,12.7841 102.4081,12.7425 102.4064,12.7368 102.3914,12.7227 102.3882,12.6714 102.4077,12.6436 102.4549,12.6306 102.5186,12.5889 102.6642,12.438 102.6728,12.4021 102.633,12.3601 102.6026,12.1818 102.6029,12.1528 102.7324,11.8265 102.7729,11.774 102.7842,11.7659 102.7929,11.7549 102.8012,11.7326 102.81,11.6394 102.802,11.6229 102.795,11.7076 102.7901,11.7272 102.6895,11.8617 102.6634,11.9427 102.6484,12.0147 102.5269,12.1616 102.4809,12.1903 102.4429,12.1887 102.4077,12.1034 102.2238,12.1819 102.2047,12.2787 102.225,12.2972 102.2497,12.3308 102.2414,12.3449 102.2235,12.3469 102.2277,12.3217 102.1976,12.297 102.1509,12.2842 102.1293,12.2929 102.1017,12.3122 102.0829,12.3297 102.0065,12.4071 101.9538,12.4716 101.9532,12.5189 101.9462,12.5523 101.9048,12.5496 101.8323,12.5112 101.7779,12.5583 101.755,12.5967 101.7452,12.6278 101.6956,12.6671 101.6722,12.6804 101.6422,12.691 101.6012,12.691 101.5725,12.6824 101.5533,12.6688 101.5376,12.6369 101.4536,12.6186 101.2681,12.5951 101.2213,12.6152 101.201,12.623 101.18,12.6304 101.1486,12.6396 101.1226,12.6445 100.9954,12.661 100.965,12.6603 100.8807,12.6336 100.8616,12.6269 100.8574,12.5904 100.8187,12.5972 100.7405,12.6688 100.7258,12.6871 100.7297,12.7227 100.7554,12.7537 100.8058,12.9702 100.7876,13.0575 100.8279,13.183 100.8225,13.2194 100.7996,13.2768 100.816,13.32 100.8472,13.3285 100.8652,13.3432 100.8733,13.3691 100.8611,13.4479 100.8,13.4477 100.7337,13.4562 100.724,13.4595 100.7068,13.4682 100.6439,13.478 100.4643,13.5043 100.4425,13.495 100.3532,13.4765 100.3149,13.4729 100.2865,13.4728 100.2186,13.4674 100.1078,13.4535 99.9751,13.41 99.9453,13.4009 99.8601,13.3008 99.843,13.2761 99.8477,13.2524 99.8882,13.1962 99.9077,13.177 99.9428,13.1523 99.9596,13.1339 99.9906,13.0302 99.979,13.0095 99.9616,12.9921 99.9414,12.9602 99.9326,12.941 99.8577,12.7291 99.8493,12.6605 99.8476,12.6269 99.8484,12.6219 99.8482,12.6069 99.8625,12.4471 99.8951,12.3302 99.9092,12.1809 99.8605,12.0762 99.8441,12.0579 99.8151,12.0306 99.7929,12.0109 99.7688,11.9865 99.754,11.9699 99.7358,11.9358 99.7248,11.912 99.7156,11.8886 99.6681,11.7199 99.6269,11.6775 99.53,11.5018 99.5255,11.4784 99.5204,11.4427 99.4993,11.3795 99.4729,11.3365 99.3944,11.1472 99.3825,11.1031 99.3814,11.0834 99.389,11.0533 99.4035,11.0281 99.4013,10.9974 99.3962,10.9853 99.3858,10.9572 99.3911,10.9143 99.3734,10.8733 99.3068,10.7532 99.2369,10.6598 99.2129,10.6421 99.1324,10.5114 99.1302,10.4515 99.0862,10.3609 99.0424,10.3533 99.0459,10.2975 99.0847,10.1892 99.0476,10.1161 99.0421,10.0722 99.0498,9.9881 99.0591,9.898 99.0605,9.8382 99.0357,9.7802 99.0387,9.7526 99.0466,9.7193 99.0674,9.631 99.1542,9.4495 99.1834,9.4097 99.1935,9.3748 99.1707,9.3625 99.1208,9.327 99.1179,9.292 99.1275,9.2472 99.1426,9.2206 99.1588,9.2084 99.2593,9.1921 99.3352,9.1822 99.3664,9.1899 99.3873,9.2025 99.4699,9.259 99.5976,9.308 99.6365,9.3079 99.6596,9.3031 99.6879,9.3058 99.7352,9.2902 99.7588,9.2179 99.7797,9.1186 99.808,8.9623 99.8151,8.8813 99.818,8.8516 99.8425,8.6381 99.8472,8.6157 99.8547,8.5958 99.8759,8.5653 99.9217,8.5344 99.9394,8.5105 99.9678,8.4532 99.9928,8.4052 100.0488,8.3719 100.0743,8.3893 100.0676,8.4588 100.0442,8.4902 100.027,8.5091 100.0607,8.4973 100.1039,8.4437 100.1262,8.3974 100.1443,8.3466 100.158,8.3022 100.1635,8.267 100.1695,8.2018 100.1789,8.1333 100.1838,8.1006 100.2143,7.9746 100.2254,7.929 100.2461,7.8486 100.26,7.7919 100.265,7.7699 100.2706,7.7344 100.2747,7.7047 100.2982,7.5922 100.3107,7.527 100.3205,7.4916 100.3467,7.4017 100.3652,7.3584 100.3903,7.3084 100.4022,7.2859 100.426,7.258 100.4513,7.2344 100.4648,7.212 100.4563,7.1845 100.4286,7.1906 100.3257,7.2779 100.2853,7.4534 100.2812,7.4864 100.2669,7.5372 100.1797,7.7712 100.155,7.7845 100.095,7.7688 100.0919,7.7625 100.0377,7.7188 100.0337,7.6953 100.0391,7.6175 100.0603,7.5387 100.0701,7.5072 100.1529,7.3702 100.1742,7.3497 100.2019,7.3319 100.2528,7.3195 100.2636,7.3003 100.2787,7.2 100.3116,7.1497 100.3864,7.1261 100.4248,7.1227 100.4711,7.1626 100.501,7.1697 100.5315,7.1414 100.575,7.0777 100.6185,7.0136 100.6471,6.9767 100.6632,6.9618 100.6895,6.9483 100.8022,6.9081 100.8446,6.8809 100.8786,6.8592 100.9112,6.8398 100.9336,6.8387 100.9538,6.8506 101.0246,6.8509 101.0703,6.8526 101.2436,6.8684 101.219,6.9076 101.1802,6.928 101.2218,6.9261 101.3625,6.8709 101.4122,6.8506 101.4308,6.8409 101.455,6.819 101.4785,6.7736 101.5613,6.6369 101.6051,6.566 101.6297,6.5254 101.6466,6.5 101.6713,6.47 101.697,6.4472 101.9025,6.278 101.9318,6.2591 101.9793,6.2291 101.9745,6.1472 101.8952,6.0317 101.868,6.0069 101.8366,5.9689 101.8277,5.9501 101.8248,5.9211 101.8279,5.8969 101.8282,5.8605 101.7103,5.7345 101.6849,5.7396 101.6559,5.7712 101.6305,5.7826 101.5838,5.7548 101.5767,5.758 101.543,5.8154 101.5437,5.844 101.491,5.8989 101.4556,5.9087 101.3907,5.8742 101.3368,5.8565 101.1965,5.8007 101.1441,5.7084 101.1079,5.6646 101.0746,5.6447 101.0498,5.6321 101.0271,5.6274 100.9426,5.7228 100.8796,5.7733 100.876,5.7881 100.9273,5.8953 100.9539,5.9081 100.9805,5.9175 101.0041,5.9835 100.9915,6.0435 100.9843,6.1121 100.9994,6.1757 100.9973,6.2437 100.8949,6.2624 100.8374,6.2341 100.7385,6.237 100.7323,6.2779 100.7334,6.2899 100.7401,6.3154 100.7136,6.4208 100.6372,6.4957 100.6026,6.4729 100.5672,6.4463 100.5424,6.4415 100.323,6.5085 100.2738,6.5289 100.2651,6.5336 100.2605,6.5367 100.2214,6.5789 100.2169,6.6131 100.1865,6.6922 100.1506,6.6992 100.1014,6.7036 100.0903,6.7018 100.0806,6.6901 100.061,6.6149 100.0707,6.5904 100.0793,6.5681 100.055,6.4635 100.0284,6.4296 100.0135,6.4177 100.0087,6.4418 99.9768,6.5264 99.9451,6.5044 99.9013,6.5449 99.8777,6.5765 99.8611,6.6132 99.8162,6.6791 99.7341,6.7696 99.677,6.8164 99.6569,6.821 99.5956,6.8409 99.5709,6.8753 99.5665,6.9783 99.5701,7.0238 99.5889,7.0552 99.6329,7.1102 99.622,7.1223 99.5752,7.1037 99.4723,7.1345 99.4233,7.2271 99.2786,7.2935 99.2282,7.3688 99.2354,7.4297 99.165,7.6091 99.1482,7.6475 99.1315,7.6596 99.019,7.725 98.9958,7.6866 98.9256,7.6986 98.9137,7.7431 98.9064,7.808 98.9253,7.8862 98.846,7.967 98.7723,8.0057 98.7297,7.9874 98.6611,8.0095 98.6368,8.0504 98.6331,8.0706 98.6363,8.0986 98.6358,8.178 98.6295,8.2127 98.5875,8.2948 98.5624,8.291 98.5413,8.2707 98.5111,8.2751 98.5141,8.3198 98.5242,8.3503 98.5449,8.3596 98.5458,8.3706 98.5079,8.373 98.4363,8.3478 98.3638,8.3155 98.3338,8.2887 98.3461,8.27 98.3581,8.2164 98.3262,8.1391 98.2756,8.1281 98.2069,8.1991 98.1644,8.2653 98.1197,8.4125 98.0888,8.5184 98.0845,8.5446 98.0951,8.5754 98.115,8.6019 98.1256,8.6863 98.1517,8.8441 98.1813,8.9083 98.2182,8.9638 98.2302,9.0004 98.2379,9.0502 98.2427,9.1045 98.2193,9.1973 98.239,9.2289 98.2775,9.3134 98.2802,9.3344 98.2816,9.3448 98.2901,9.3781 98.3443,9.538 98.4544,9.7234 98.4345,9.7955 98.4387,9.8669 98.4668,9.8977 98.5812,10.1403 98.5899,10.1592 98.6152,10.2318 98.6373,10.3163 98.6348,10.337 98.6408,10.3666 98.6512,10.3983 98.6632,10.4211 98.6878,10.4449 98.7161,10.5083 98.6886,10.5831 98.6669,10.6099 98.6766,10.6656 98.7162,10.7201 98.76,10.7613 98.7894,10.7645 98.8265,10.8101 98.94,10.9459 99.0017,11.001 99.0191,11.0119 99.0351,11.018 99.0579,11.03 99.1041,11.0869 99.145,11.147 99.1561,11.1643 99.2151,11.2662 99.2486,11.3375 99.3554,11.5555 99.4498,11.6175 99.5277,11.7289 99.5468,11.8132 99.5181,11.8199 99.4738,11.8714 99.4458,12.0023 99.4524,12.0884 99.4591,12.1251 99.3886,12.1749 99.3444,12.2849 99.3361,12.3175 99.3173,12.485 99.3246,12.5603 99.1938,12.6512 99.1273,12.7206 99.0002,13.0466 99.0126,13.1645 99.0422,13.1833 99.091,13.1889 99.0982,13.1967 99.1014,13.2202 99.1037,13.3973 99.0969,13.4533 99.0751,13.5265 99.0635,13.5628 99.0555,13.6195 99.0567,13.65 99.0603,13.7126 99.0156,13.7565 98.9221,13.9191 98.889,13.9953 98.8593,14.0636 98.8247,14.0854 98.7722,14.1156 98.6928,14.1694 98.6451,14.2016 98.4999,14.3061 98.4555,14.368 98.4259,14.4308 98.4046,14.4707 98.3527,14.562 98.3278,14.5952 98.3024,14.62 98.2771,14.6351 98.2099,14.6986 98.1462,14.7952 98.1315,14.8576 98.1395,14.8823 98.1359,14.9116 98.1185,14.9493 98.0998,14.9773 98.0847,15.0584 98.0865,15.1877 98.0888,15.2098 98.1177,15.2041 98.2808,15.2543 98.3036,15.267 98.307,15.3435 98.3836,15.3704 98.4351,15.3401 98.4458,15.3177 98.4647,15.3408 98.4721,15.3655 98.4763,15.3996 98.479,15.4353 98.4752,15.4601 98.4598,15.5157 98.454,15.538 98.4479,15.5901 98.4534,15.6266 98.4583,15.6444 98.4516,15.681 98.4476,15.7051 98.4972,15.9479 98.5136,16.0283 98.5614,16.1027 98.581,16.1112 98.6713,16.1006 98.6943,16.087 98.7397,16.123 98.7975,16.2433 98.8026,16.3769 98.7463,16.4202 98.709,16.3841 98.6704,16.3349 98.5962,16.2576 98.5731,16.265 98.55,16.3637 98.5436,16.4417 98.4453,16.6123 98.4043,16.6666 98.3619,16.7202 98.3882,16.7634 98.4316,16.836 98.4254,16.8649 98.3927,16.9223 98.3431,16.9967 98.3051,17.0345 98.2823,17.0336 98.2564,17.0317 98.1862,17.1217 98.1544,17.1549 98.0871,17.2168 98.061,17.2386 98.0007,17.2947 97.9346,17.3963 97.8505,17.5089 97.8057,17.5493 97.7328,17.6038 97.6759,17.6645 97.6602,17.6838 97.5694,17.8479 97.5888,17.9082 97.6258,17.9348 97.6328,17.9549 97.569,18.1084 97.5345,18.1549 97.5027,18.2051 97.5052,18.2324 97.5252,18.2602 97.5002,18.2944 97.4679,18.3064 97.4363,18.2992 97.4207,18.2551 97.4011,18.2461 97.3799,18.259 97.3328,18.3165 97.3322,18.35 97.3281,18.3704 97.3195,18.3901 97.2757,18.4729 97.2498,18.501 97.2293,18.5215 97.2361,18.5544 97.2445,18.5588 97.2505,18.5376 97.3286,18.4758 97.3887,18.4754 97.4334,18.4864 97.5087,18.5347 97.5346,18.5414 97.6333,18.5518 97.6573,18.5517 97.6603,18.5838 97.6616,18.6144 97.6632,18.6577 97.6278,18.8464 97.6014,18.8684 97.5615,18.9111 97.6286,19.0105 97.6655,19.0471 97.7133,19.0774 97.7218,19.1463 97.7232,19.1856 97.7154,19.2685 97.6839,19.3383 97.6737,19.3771 97.7475,19.4999 97.7502,19.5484 97.7887,19.553 97.8455,19.5798 97.9169,19.6258 97.9207,19.6501 97.9099,19.692 97.9305,19.7829 97.9555,19.7871 98.0204,19.7612 98.0581,19.7361 98.0962,19.7043 98.1228,19.668 98.2181,19.6717 98.2715,19.6737 98.3567,19.6718 98.4011,19.6877 98.5296,19.7201 98.7181,19.7931 98.7711,19.7542 98.8259,19.7489 98.8802,19.7624 98.9128,19.8136 98.9181,19.8352 98.9098,19.8687 98.9027,19.9022 98.922,20.0205 98.9588,20.076 99.0441,20.1041 99.0728,20.1042 99.1234,20.0946 99.1496,20.0791 99.1794,20.0545 99.2115,20.0447 99.3317,20.0744 99.3671,20.0962 99.395,20.1231 99.4189,20.1312 99.434,20.1802 99.3816,20.2861 99.4077,20.3274 99.49,20.3005 99.5491,20.2888 99.667,20.307 99.6945,20.3178 99.7132,20.3413 99.7302,20.382 99.7525,20.4062 99.8412,20.4317 99.8594,20.4129 99.8645,20.3932 99.8984,20.3606 99.963,20.3259 99.9699,20.326 99.9836,20.2867 100.0441,20.2693 100.1056,20.3339 100.139,20.3634 100.1658,20.3702 100.1992,20.3686 100.2214,20.3594 100.238,20.3429 100.2574,20.3143 100.2659,20.2858 100.297,20.2158 100.3362,20.1657 100.3993,20.1233 100.4528,20.1399 100.4584,20.1351 100.4492,20.0694 100.4292,19.9954 100.3844,19.8565 100.3641,19.8373 100.324,19.7928 100.2893,19.7498 100.283,19.727 100.2858,19.7167 100.3236,19.6059 100.3688,19.516 100.3944,19.4972 100.4567,19.4716 100.4627,19.4723 100.4908,19.5166 100.5187,19.5287 100.5776,19.5118 100.6332,19.4863 100.6516,19.4641 100.6912,19.4987 100.7299,19.5381 100.7452,19.5557 100.7615,19.5763 100.7899,19.5977 100.836,19.5996 100.9097,19.5974 100.941,19.5833 100.9634,19.5686 101.1021,19.5725 101.1362,19.5637 101.1562,19.5446 101.1621,19.4987 101.1413,19.4526 101.093,19.4399 101.0782,19.3529 101.0795,19.3322 101.1672,19.0847 101.1831,19.0715 101.2304,19.0231 101.2166,18.9895 101.1957,18.9754 101.177,18.9546 101.1313,18.8739 101.127,18.8478 101.1143,18.7204 101.1452,18.6637 101.1186,18.6169 101.0577,18.5393 101.0246,18.5199 100.9846,18.4981 100.9356,18.4211 100.9366,18.3981 100.9642,18.3673 100.9736,18.3535 101.0319,18.3244 101.0544,18.155 101.0484,18.0671 101.0212,18.0023 100.9914,17.9372 100.9649,17.9102 100.9412,17.8946 100.9067,17.878 100.8676,17.7864 100.8586,17.7432 100.8626,17.7302 100.8664,17.7125 100.8315,17.6301 100.8024,17.5994 100.7896,17.5799 100.8005,17.5492 100.8195,17.5448 100.8413,17.546 100.8661,17.542 100.9114,17.5217 100.9538,17.4805 101.0378,17.4412 101.1052,17.5118 101.1872,17.6049 101.2333,17.6377 101.3748,17.7236 101.4583,17.7774 101.437,17.7941 101.4546,17.84 101.5132,17.8698 101.5664,17.8857 101.6188,17.9528 101.6389,18.0183 101.6612,18.0434 101.7275,18.0239 101.762,18.0113 101.7876,18.0166 101.8759,18.1073 101.9243,18.1712 101.9473,18.1881 101.9659,18.1947 101.9845,18.1892 102.0334,18.184 102.0564,18.1705 102.0896,18.1182 102.1341,18.0676 102.1756,18.0276 102.2997,17.9621 102.3484,17.9505 102.3995,17.9534 102.4203,17.9515 102.4801,17.9267 102.4886,17.8986 102.4867,17.867 102.5594,17.8002 102.6065,17.8633 102.7171,17.9426 102.7341,17.9546 102.822,17.9859 102.8537,17.9788 102.8914,17.9598 102.9227,17.9768 102.9437,18.0089 102.9448,18.103 102.9956,18.1287 103.0161,18.1451 103.1317,18.2545 103.116,18.3187 103.117,18.3451 103.1513,18.3816 103.1758,18.3983 103.2462,18.4104 103.2721,18.4146 103.2924,18.4141 103.3825,18.4012 103.4936,18.3678 103.6337,18.3175 103.7168,18.2909 103.8148,18.3061 103.8504,18.3065 103.9208,18.2182 103.9458,18.1796 103.966,18.1263 103.976,18.0891 104.0694,17.9949 104.0898,17.969 104.1136,17.9173 104.1309,17.8679 104.1404,17.845 104.1598,17.8257 104.2096,17.8064 104.2756,17.7082 104.2913,17.6843 104.3353,17.6297 104.5147,17.538 104.5657,17.5089 104.5921,17.4838 104.6666,17.3889 104.679,17.3627 104.6829,17.342 104.6872,17.2667 104.6883,17.2231 104.6829,17.1713 104.6761,17.1337 104.6714,17.1143 104.6481,17.0719 104.6204,17.0185 104.6152,16.9917 104.614,16.9544 104.6163,16.9277 104.6194,16.8913 104.6351,16.7346 104.6427,16.7061 104.6422,16.6726 104.6344,16.6392 104.6274,16.6177 104.6169,16.5477 104.6241,16.5061 104.7843,16.3279 104.8364,16.2817 104.8531,16.2694 104.8667,16.259 104.8867,16.2335 104.8986,16.2087 104.9032,16.1574 104.9194,16.1151 104.9318,16.0969 104.9551,16.077 105.0632,16.0386 105.0945,16.0323 105.1193,16.0284 105.1504,16.0262 105.1826,16.0206 105.2969,15.9914 105.3038,15.9825 105.2597,15.972 105.2456,15.9557 105.2202,15.9083 105.2637,15.8103 105.2752,15.7897 105.3165,15.7438 105.3589,15.7444 105.3819,15.7491 105.4315,15.7312 105.4781,15.7024 105.5092,15.6518 105.5133,15.622 105.5053,15.5682 105.4806,15.4537 105.4744,15.4159 105.4578,15.3996 105.4404,15.3888 105.4115,15.378 105.3497,15.1578 105.3463,15.0933 105.3993,15.0537 105.4654,14.984 105.4524,14.895 105.4417,14.8665 105.4207,14.8421 105.3916,14.799 105.4047,14.6317 105.4126,14.5915 105.412,14.5477 105.3918,14.515 105.3699,14.4876 105.3215,14.4346 105.2479,14.3887 105.1747,14.3536 105.1031,14.3265 105.088,14.3338 105.088,14.3338 15,6.5,Myanmar (Burma) 92.6778,20.4153 92.6883,20.4143 92.7008,20.41 92.7476,20.3031 92.7445,20.291 92.7302,20.2769 92.7128,20.2718 92.6989,20.2696 92.6716,20.2679 92.6559,20.2748 92.6485,20.2947 92.6452,20.3217 92.6508,20.4097 92.6778,20.4153 92.6778,20.4153 62,-10.0,United States -155.6337,20.2499 -155.5553,20.2196 -155.5379,20.2079 -155.5312,20.1848 -155.3859,20.106 -155.3259,20.0984 -155.2437,20.0777 -155.1528,20.0399 -155.0223,19.9792 -154.9947,19.9629 -154.9717,19.9422 -154.9506,19.9187 -154.8967,19.8583 -154.8124,19.724 -154.7781,19.6284 -154.7359,19.5878 -154.6716,19.5536 -154.6097,19.5165 -154.627,19.4558 -154.6438,19.4343 -154.8172,19.3073 -154.9566,19.2618 -154.9786,19.2555 -154.9998,19.2518 -155.0236,19.2532 -155.0521,19.2628 -155.0983,19.2542 -155.3094,19.1165 -155.3296,19.1027 -155.3502,19.0822 -155.3623,19.0557 -155.3649,19.0213 -155.4007,18.9666 -155.474,18.9043 -155.487,18.9345 -155.5146,18.9556 -155.6113,19.0096 -155.6657,19.0099 -155.7109,19.0692 -155.7183,19.1375 -155.7107,19.1916 -155.7007,19.2478 -155.6894,19.3401 -155.8229,19.6441 -155.8476,19.6843 -155.8593,19.713 -155.8564,19.7467 -155.8456,19.7667 -155.7779,19.8289 -155.7401,19.8384 -155.6237,19.9816 -155.622,20.012 -155.6341,20.0295 -155.6644,20.0609 -155.6845,20.0912 -155.7053,20.1514 -155.6985,20.1997 -155.6892,20.2241 -155.6781,20.2424 -155.6569,20.255 -155.6337,20.2499 -155.6337,20.2499 124,8.0,China 109.5707,18.1776 109.5446,18.2171 109.497,18.2064 109.4702,18.1874 109.4342,18.1485 109.4122,18.2007 109.3687,18.2345 109.3304,18.2566 109.304,18.2641 109.1967,18.2827 109.156,18.2847 109.0904,18.2828 108.9239,18.3496 108.8257,18.3742 108.7174,18.432 108.6973,18.4451 108.6723,18.4575 108.6428,18.468 108.6099,18.4733 108.5804,18.4731 108.5554,18.4851 108.5421,18.5426 108.5585,18.587 108.5648,18.6075 108.5673,18.6427 108.5616,18.694 108.5227,18.9164 108.486,19.0676 108.4967,19.2589 108.5112,19.2872 108.5623,19.3571 108.5917,19.3531 108.6323,19.367 108.8063,19.4956 108.8756,19.5723 108.8934,19.5818 108.9549,19.5899 109.0277,19.6275 109.1613,19.7381 109.1685,19.7613 109.1401,19.7649 109.0921,19.7355 109.0729,19.7154 109.0327,19.7017 109.0276,19.7629 109.0366,19.7847 109.1245,19.8774 109.1677,19.8969 109.3232,19.8382 109.3328,19.8066 109.385,19.8583 109.3837,19.8861 109.3933,19.9224 109.4516,19.9622 109.4777,19.9717 109.5266,19.9802 109.5854,19.9808 109.6026,19.9529 109.6525,19.9431 109.6997,19.9521 109.8033,19.9695 109.8434,19.9249 109.8835,19.9262 109.9601,19.9509 109.9975,19.9901 110.009,20.0177 110.0198,20.0375 110.2362,20.0301 110.3792,19.9926 110.4357,20.0099 110.4371,20.0668 110.4639,20.0872 110.5315,20.1112 110.5676,20.0689 110.5817,20.0467 110.6442,19.9874 110.7164,19.9666 110.7363,19.968 110.7621,19.9778 110.7914,19.9816 110.8079,19.9564 110.8335,19.8681 110.8867,19.6165 110.833,19.6098 110.8021,19.5781 110.7368,19.5172 110.7205,19.507 110.6875,19.5247 110.593,19.3891 110.5344,19.3352 110.4495,19.135 110.4283,19.136 110.3883,19.1272 110.349,19.1464 110.3646,19.1132 110.389,19.1024 110.41,19.1187 110.4454,19.118 110.4316,19.0622 110.355,18.8899 110.3696,18.8325 110.3914,18.7797 110.369,18.7552 110.2625,18.6827 110.1478,18.6466 110.1117,18.63 110.0735,18.6063 109.9737,18.5216 109.9618,18.5051 109.95,18.4764 109.9426,18.4488 109.9363,18.4222 109.9171,18.3646 109.8658,18.3532 109.8352,18.3752 109.7818,18.3991 109.6526,18.3804 109.6265,18.3709 109.571,18.2394 109.6051,18.2251 109.5896,18.196 109.5755,18.1807 109.5707,18.1776 109.5707,18.1776 17,-4.0,Haiti -72.552,19.9629 -72.6055,19.9656 -72.7875,20.0025 -72.854,20.0195 -72.8655,20.0262 -72.8658,20.0363 -72.8365,20.0522 -72.827,20.0561 -72.7739,20.0653 -72.7218,20.0692 -72.7056,20.065 -72.5942,20.0197 -72.5699,20.0077 -72.5337,19.9818 -72.5372,19.9673 -72.552,19.9629 -72.552,19.9629 10,-5.0,United States -74.994,19.871 -75.0299,19.8652 -75.0429,19.8647 -75.0681,19.8685 -75.0728,19.8804 -75.0484,19.9405 -74.9959,19.9435 -74.9942,19.895 -74.994,19.871 -74.994,19.871 7,-5.0,United States -75.0676,19.9386 -75.0787,19.9093 -75.1323,19.8792 -75.1352,19.9021 -75.1017,19.9387 -75.0676,19.9386 -75.0676,19.9386 17,6.5,Myanmar (Burma) 93.3064,19.9282 93.3214,19.9212 93.3731,19.8749 93.3798,19.8671 93.3852,19.8584 93.3892,19.8479 93.393,19.8292 93.4067,19.7351 93.398,19.7223 93.3448,19.7553 93.3333,19.7647 93.3243,19.7775 93.32,19.7875 93.2826,19.9046 93.2822,19.9298 93.3064,19.9282 93.3064,19.9282 265,-4.0,Haiti -71.6809,18.0186 -71.7089,18.0278 -71.7183,18.0332 -71.729,18.0465 -71.7333,18.0656 -71.748,18.0913 -71.8186,18.1523 -71.8394,18.1646 -71.9849,18.2196 -72.0046,18.2158 -72.0509,18.2076 -72.0988,18.2011 -72.1403,18.1954 -72.205,18.2022 -72.2428,18.2069 -72.2677,18.209 -72.2945,18.2093 -72.4349,18.1893 -72.4576,18.1628 -72.5713,18.1592 -72.6118,18.1608 -72.6236,18.1588 -72.6505,18.1535 -72.6681,18.1473 -72.6866,18.1363 -72.6991,18.1282 -72.7129,18.1208 -72.7273,18.1182 -72.8009,18.1216 -72.8955,18.1496 -72.9188,18.1573 -72.9379,18.1605 -73.0612,18.1779 -73.1779,18.199 -73.2226,18.2222 -73.2973,18.2415 -73.3624,18.2366 -73.396,18.2292 -73.6964,18.1514 -73.7102,18.1441 -73.7297,18.1283 -73.7373,18.1221 -73.7439,18.1141 -73.7489,18.1048 -73.7509,18.0911 -73.7447,18.08 -73.7332,18.0701 -73.715,18.047 -73.7064,18.0345 -73.7004,18.0141 -73.7085,18.0058 -73.7197,18.0029 -73.7922,18.0026 -73.8121,18.0171 -73.8185,18.0374 -73.8218,18.0474 -73.8379,18.0725 -73.8606,18.1053 -73.8708,18.1161 -73.9629,18.1912 -74.0083,18.2245 -74.101,18.2742 -74.1434,18.2861 -74.1718,18.2872 -74.1873,18.2858 -74.2144,18.2665 -74.2315,18.2619 -74.2717,18.2689 -74.2822,18.2732 -74.3562,18.3214 -74.3607,18.3372 -74.3772,18.4302 -74.3319,18.5895 -74.2943,18.616 -74.1805,18.6446 -74.1465,18.6464 -74.0849,18.6454 -74.0591,18.6375 -74.0371,18.63 -73.9955,18.6065 -73.9584,18.5854 -73.9437,18.5782 -73.9324,18.5745 -73.6974,18.5115 -73.6547,18.5182 -73.6423,18.5228 -73.6331,18.5351 -73.6271,18.5433 -73.6066,18.5508 -73.5182,18.5647 -73.5016,18.5647 -73.4882,18.5566 -73.5149,18.5319 -73.5586,18.5266 -73.5881,18.5372 -73.6045,18.5328 -73.6178,18.5231 -73.5767,18.4834 -73.5656,18.4767 -73.5151,18.4773 -73.485,18.4867 -73.4347,18.5013 -73.4177,18.5048 -73.3408,18.4961 -73.3148,18.4929 -73.2755,18.4862 -73.2586,18.4809 -73.1281,18.4563 -72.9806,18.4332 -72.9478,18.4358 -72.9071,18.445 -72.8846,18.4438 -72.8721,18.4416 -72.8347,18.4334 -72.7754,18.4233 -72.6483,18.4039 -72.6024,18.4322 -72.5943,18.4384 -72.5885,18.4468 -72.5762,18.4699 -72.5708,18.4942 -72.5666,18.5047 -72.5493,18.5267 -72.5365,18.5347 -72.5037,18.5431 -72.4935,18.543 -72.3703,18.5297 -72.3343,18.5259 -72.3072,18.5182 -72.281,18.505 -72.2589,18.5154 -72.2332,18.6457 -72.2417,18.6625 -72.2947,18.6861 -72.3077,18.6885 -72.3287,18.6893 -72.3485,18.6944 -72.4587,18.7607 -72.4711,18.7697 -72.4759,18.7787 -72.4789,18.7922 -72.4848,18.8034 -72.5257,18.8541 -72.5518,18.8843 -72.564,18.8945 -72.5953,18.9139 -72.6373,18.944 -72.7116,19.0117 -72.6729,19.1407 -72.7125,19.1998 -72.6861,19.2602 -72.6372,19.3529 -72.6348,19.4332 -72.9255,19.5764 -72.9688,19.5915 -73.0162,19.6044 -73.0221,19.605 -73.0611,19.5921 -73.2742,19.6013 -73.287,19.6023 -73.3184,19.6123 -73.3389,19.6255 -73.358,19.6415 -73.3647,19.649 -73.3757,19.666 -73.3725,19.6982 -73.3706,19.7109 -73.3286,19.7976 -73.3159,19.8098 -73.3005,19.8116 -73.2685,19.8126 -73.2556,19.8103 -73.24,19.8152 -73.1993,19.8305 -73.1846,19.8369 -73.1016,19.8804 -73.0657,19.9001 -72.9446,19.8904 -72.8961,19.8923 -72.8083,19.9016 -72.756,19.9115 -72.7287,19.9193 -72.7097,19.9207 -72.6957,19.9198 -72.5965,19.8981 -72.5852,19.8943 -72.4911,19.8623 -72.4517,19.8233 -72.4048,19.7984 -72.2294,19.7409 -72.1171,19.7229 -72.1027,19.7169 -72.0098,19.7004 -71.9704,19.6989 -71.8932,19.7015 -71.7314,19.6898 -71.6667,19.6838 -71.6605,19.6772 -71.6492,19.664 -71.6458,19.6574 -71.6481,19.6329 -71.6506,19.6052 -71.6477,19.5884 -71.6392,19.5637 -71.6351,19.5543 -71.6306,19.5449 -71.6206,19.5275 -71.6172,19.5175 -71.6046,19.4768 -71.6043,19.4643 -71.6104,19.3812 -71.6362,19.3384 -71.6575,19.2643 -71.6284,19.2364 -71.6087,19.2202 -71.6007,19.2142 -71.5851,19.2075 -71.5731,19.2043 -71.5419,19.1983 -71.5422,19.1823 -71.5476,19.1399 -71.5526,19.1158 -71.5674,19.0982 -71.6627,18.9986 -71.6901,18.935 -71.6295,18.8571 -71.6214,18.7695 -71.6218,18.7592 -71.6286,18.7287 -71.6379,18.698 -71.6452,18.6867 -71.6496,18.6844 -71.6688,18.6835 -71.6789,18.6799 -71.6881,18.6754 -71.7024,18.6537 -71.7362,18.6082 -71.7444,18.6016 -71.7662,18.5961 -71.8144,18.5877 -71.8248,18.5923 -71.837,18.6067 -71.8832,18.6036 -71.8921,18.5987 -71.9157,18.5802 -71.9093,18.5718 -71.8618,18.5266 -71.8098,18.472 -71.799,18.4564 -71.8194,18.4353 -71.8216,18.421 -71.8117,18.4108 -71.7232,18.3554 -71.6916,18.3361 -71.6558,18.32 -71.6294,18.3099 -71.6076,18.3017 -71.6286,18.2723 -71.6342,18.2639 -71.6821,18.1802 -71.6789,18.1604 -71.6669,18.1253 -71.662,18.072 -71.6809,18.0186 -71.6809,18.0186 316,-4.0,Dominican Republic -71.6809,18.0186 -71.662,18.072 -71.6669,18.1253 -71.6789,18.1604 -71.6821,18.1802 -71.6342,18.2639 -71.6286,18.2723 -71.6076,18.3017 -71.6294,18.3099 -71.6558,18.32 -71.6916,18.3361 -71.7232,18.3554 -71.8117,18.4108 -71.8216,18.421 -71.8194,18.4353 -71.799,18.4564 -71.8098,18.472 -71.8618,18.5266 -71.9093,18.5718 -71.9157,18.5802 -71.8921,18.5987 -71.8832,18.6036 -71.837,18.6067 -71.8248,18.5923 -71.8144,18.5877 -71.7662,18.5961 -71.7444,18.6016 -71.7362,18.6082 -71.7024,18.6537 -71.6881,18.6754 -71.6789,18.6799 -71.6688,18.6835 -71.6496,18.6844 -71.6452,18.6867 -71.6379,18.698 -71.6286,18.7287 -71.6218,18.7592 -71.6214,18.7695 -71.6295,18.8571 -71.6901,18.935 -71.6627,18.9986 -71.5674,19.0982 -71.5526,19.1158 -71.5476,19.1399 -71.5422,19.1823 -71.5419,19.1983 -71.5731,19.2043 -71.5851,19.2075 -71.6007,19.2142 -71.6087,19.2202 -71.6284,19.2364 -71.6575,19.2643 -71.6362,19.3384 -71.6104,19.3812 -71.6043,19.4643 -71.6046,19.4768 -71.6172,19.5175 -71.6206,19.5275 -71.6306,19.5449 -71.6351,19.5543 -71.6392,19.5637 -71.6477,19.5884 -71.6506,19.6052 -71.6481,19.6329 -71.6458,19.6574 -71.6492,19.664 -71.6605,19.6772 -71.6667,19.6838 -71.6324,19.6792 -71.6436,19.7126 -71.6575,19.7384 -71.675,19.7476 -71.6885,19.7487 -71.685,19.762 -71.5784,19.8717 -71.5083,19.8841 -71.4963,19.8858 -71.4423,19.8861 -71.3973,19.8818 -71.3606,19.8684 -71.3443,19.8622 -71.315,19.8472 -71.2799,19.8304 -71.269,19.8262 -71.1741,19.8011 -71.1622,19.8026 -71.1453,19.8073 -71.0638,19.8274 -71.0083,19.852 -70.9993,19.8726 -70.977,19.8917 -70.9589,19.9011 -70.9426,19.9063 -70.925,19.9088 -70.9079,19.9086 -70.7557,19.8816 -70.7438,19.875 -70.7149,19.8426 -70.6974,19.8247 -70.6233,19.78 -70.5464,19.7377 -70.4718,19.7309 -70.4323,19.7351 -70.403,19.7544 -70.3856,19.7607 -70.3686,19.7604 -70.3137,19.7229 -70.3022,19.7127 -70.2679,19.6702 -70.2353,19.6454 -70.2177,19.6331 -70.2052,19.6272 -70.1896,19.6235 -70.1002,19.6073 -70.0616,19.6011 -70.0397,19.5991 -70.0128,19.6028 -70.0008,19.6119 -69.9875,19.6338 -69.9821,19.6404 -69.9681,19.6536 -69.947,19.6607 -69.8817,19.6571 -69.8642,19.6547 -69.8512,19.649 -69.8137,19.6153 -69.8035,19.6044 -69.7973,19.5902 -69.7962,19.5783 -69.807,19.5034 -69.7922,19.4208 -69.7795,19.3958 -69.754,19.3528 -69.7395,19.3327 -69.7329,19.325 -69.6709,19.2695 -69.6564,19.2648 -69.6439,19.2642 -69.6337,19.2674 -69.6177,19.2723 -69.5909,19.2794 -69.4524,19.3116 -69.438,19.3142 -69.3609,19.3117 -69.2346,19.2949 -69.223,19.304 -69.1781,19.3336 -69.1516,19.3437 -69.1356,19.3389 -69.0738,19.2734 -69.0744,19.2589 -69.0812,19.2459 -69.134,19.1647 -69.1457,19.1591 -69.1586,19.1589 -69.2856,19.1752 -69.5038,19.2027 -69.531,19.2028 -69.5423,19.1911 -69.552,19.092 -69.5469,19.0803 -69.5353,19.0671 -69.5193,19.0666 -69.4935,19.0675 -69.4472,19.0727 -69.431,19.0769 -69.3843,19.085 -69.3584,19.0857 -69.3452,19.0861 -69.3307,19.0845 -69.3179,19.0818 -69.3065,19.078 -69.2988,19.0716 -69.2946,19.0623 -69.2925,19.0447 -69.2819,19.0353 -69.2716,19.0311 -69.1698,18.9998 -69.1082,18.9906 -69.0946,18.9908 -68.9054,18.9975 -68.8801,19.0096 -68.84,19.0087 -68.8234,18.9994 -68.8098,18.9912 -68.6896,18.9477 -68.6553,18.9368 -68.6436,18.93 -68.6079,18.9027 -68.5727,18.8621 -68.5072,18.8002 -68.4837,18.7804 -68.4564,18.7578 -68.3523,18.6842 -68.2747,18.6341 -68.2603,18.6199 -68.2426,18.5958 -68.24,18.5785 -68.2525,18.5485 -68.3684,18.3336 -68.3795,18.3276 -68.3933,18.324 -68.4355,18.3238 -68.4483,18.3266 -68.4676,18.3367 -68.4862,18.3474 -68.5074,18.3572 -68.5238,18.3447 -68.548,18.2366 -68.5535,18.1962 -68.5628,18.1853 -68.6148,18.1829 -68.6453,18.1871 -68.6719,18.1995 -68.6781,18.2168 -68.6877,18.2405 -68.6983,18.2574 -68.737,18.3212 -68.7489,18.337 -68.7561,18.344 -68.7635,18.3508 -68.7795,18.3638 -68.7892,18.3687 -68.8114,18.3758 -68.8251,18.3778 -68.8311,18.377 -68.8892,18.3843 -68.9794,18.3703 -69.0023,18.3749 -69.0776,18.3888 -69.1107,18.4069 -69.3,18.4057 -69.3843,18.3957 -69.4323,18.3823 -69.4626,18.3966 -69.6095,18.4357 -69.6618,18.4399 -69.6913,18.44 -69.7998,18.4485 -69.8183,18.4432 -69.8275,18.4384 -69.8576,18.4194 -69.8746,18.4088 -69.8823,18.4027 -69.9169,18.4003 -69.9257,18.3964 -69.9762,18.3156 -69.9876,18.3018 -70.069,18.2129 -70.0794,18.2095 -70.0868,18.2122 -70.0991,18.2075 -70.144,18.2034 -70.234,18.2102 -70.2983,18.2162 -70.3144,18.2145 -70.3262,18.2054 -70.374,18.184 -70.3897,18.1795 -70.4011,18.1769 -70.422,18.1746 -70.46,18.186 -70.4709,18.2055 -70.4613,18.2128 -70.4684,18.2318 -70.5013,18.2542 -70.487,18.2918 -70.4828,18.3446 -70.5048,18.3855 -70.5255,18.3991 -70.5368,18.4029 -70.5665,18.4114 -70.5785,18.4145 -70.6059,18.4118 -70.6263,18.3906 -70.6219,18.3757 -70.6225,18.366 -70.6268,18.3559 -70.6368,18.3446 -70.6443,18.3377 -70.6525,18.3321 -70.6646,18.3264 -70.781,18.2919 -70.8498,18.2334 -70.9022,18.2735 -70.9399,18.2849 -70.9527,18.2875 -70.967,18.2886 -70.9823,18.2869 -70.9951,18.2787 -71.0133,18.243 -71.0166,18.2255 -71.0134,18.2157 -70.9928,18.1689 -70.988,18.1594 -70.98,18.1469 -70.9693,18.1287 -71.0036,18.0578 -71.098,17.9146 -71.1072,17.9027 -71.121,17.888 -71.1361,17.8747 -71.1627,17.8599 -71.1807,17.8267 -71.3102,17.5987 -71.3217,17.5894 -71.3374,17.5846 -71.5389,17.8166 -71.572,17.9329 -71.5761,17.9435 -71.5884,17.9589 -71.6037,17.9721 -71.6453,18.0024 -71.665,18.0123 -71.6809,18.0186 -71.6809,18.0186 5,-6.0,Mexico -87.3428,19.8789 -87.3626,19.8269 -87.3575,19.8589 -87.3428,19.8789 -87.3428,19.8789 19,0.0,Mauritania -16.4122,19.5795 -16.4168,19.5819 -16.4326,19.5983 -16.4404,19.6749 -16.3965,19.7843 -16.3331,19.8419 -16.3222,19.8431 -16.3161,19.8347 -16.3248,19.7792 -16.327,19.7682 -16.3413,19.7115 -16.3603,19.6593 -16.3728,19.6304 -16.3792,19.6164 -16.3872,19.6041 -16.3936,19.5961 -16.4075,19.5819 -16.4122,19.5795 -16.4122,19.5795 21,6.5,Myanmar (Burma) 93.8532,19.3478 93.8486,19.3391 93.8023,19.2881 93.7907,19.279 93.7479,19.2561 93.7377,19.2517 93.6836,19.2477 93.6706,19.2575 93.5529,19.4175 93.5466,19.4259 93.5297,19.4624 93.5379,19.4919 93.5674,19.5368 93.5771,19.5399 93.6238,19.5273 93.7834,19.4461 93.8477,19.4069 93.8542,19.399 93.8622,19.3748 93.8532,19.3478 93.8532,19.3478 13,8.0,Philippines 121.3657,19.2279 121.2742,19.2655 121.2465,19.2939 121.2215,19.3308 121.2256,19.3427 121.2483,19.3695 121.3812,19.3685 121.3893,19.3379 121.396,19.2688 121.396,19.2563 121.3921,19.245 121.3657,19.2279 121.3657,19.2279 14,8.0,Philippines 121.7067,18.7978 121.6976,18.8016 121.6845,18.846 121.6855,18.8597 121.7249,18.9579 121.7384,18.9692 121.7649,18.987 121.7873,18.9851 121.8008,18.9818 121.8469,18.9429 121.84,18.9236 121.7351,18.8124 121.7067,18.7978 121.7067,18.7978 267,3.0,Yemen 53.0509,16.6241 52.9611,16.6083 52.8762,16.5869 52.8494,16.565 52.8273,16.5514 52.802,16.5386 52.6701,16.4883 52.5891,16.469 52.5542,16.4648 52.5334,16.4587 52.5058,16.4454 52.4431,16.412 52.4259,16.4012 52.4009,16.3847 52.3769,16.3662 52.2319,16.2484 52.1648,16.1482 52.0956,15.967 52.1225,15.8471 52.1518,15.7423 52.1697,15.6566 52.1272,15.5881 51.9789,15.5424 51.8966,15.5091 51.6574,15.4058 51.6084,15.3711 51.6022,15.3418 51.5217,15.3082 51.4328,15.2763 51.2072,15.1837 51.1795,15.1706 51.1034,15.1538 51.0113,15.1338 50.9408,15.1197 50.8054,15.0889 50.6893,15.0567 50.6627,15.0489 50.643,15.0539 50.4915,15.0269 50.4166,15.0002 50.3911,14.9885 50.3499,14.9613 50.1207,14.8224 49.9841,14.8016 49.9707,14.8256 49.9012,14.8285 49.6539,14.7536 49.4759,14.6937 49.361,14.6391 49.1957,14.5674 49.0605,14.5108 49.0371,14.5007 49.0192,14.4873 48.9687,14.4196 48.9459,14.3367 48.9496,14.3094 48.787,14.1421 48.6645,14.04 48.642,14.0243 48.6301,14.0217 48.5539,14.0284 48.4979,14.0236 48.3699,13.9927 48.2554,13.9764 48.2203,13.9735 48.1788,13.9734 48.1351,13.9811 48.0869,14.0076 48.0187,14.0277 47.9897,14.0328 47.9633,14.0359 47.9348,14.0316 47.904,14.0217 47.8769,14.0109 47.8532,13.989 47.8322,13.9644 47.7959,13.9356 47.7649,13.9185 47.7154,13.9009 47.6666,13.8937 47.5973,13.8615 47.5723,13.8415 47.5608,13.825 47.5432,13.8038 47.3978,13.6738 47.3595,13.6426 47.3404,13.6313 47.2643,13.6173 47.233,13.609 47.2005,13.6002 47.1148,13.5725 46.9521,13.5417 46.873,13.5211 46.8292,13.5004 46.7958,13.4756 46.761,13.4591 46.7091,13.4369 46.6385,13.4133 46.4163,13.3903 46.299,13.3913 46.2436,13.3981 46.1132,13.396 45.9932,13.3937 45.8956,13.3827 45.7672,13.3646 45.6073,13.3245 45.5802,13.3106 45.5148,13.2483 45.4936,13.2282 45.4397,13.1691 45.4279,13.1439 45.4116,13.1181 45.3582,13.053 45.336,13.0405 45.2885,13.0279 45.2618,13.0247 45.2347,13.0218 45.1921,13.0113 45.1528,13.0006 45.1257,12.991 45.0802,12.957 45.0576,12.9345 45.0545,12.9307 45.0189,12.8467 44.9908,12.803 44.9643,12.8247 44.904,12.8181 44.8244,12.7894 44.8292,12.7583 44.8715,12.7541 44.8666,12.731 44.8518,12.7172 44.8024,12.7152 44.6757,12.7546 44.6282,12.7908 44.571,12.8026 44.5401,12.803 44.51,12.7927 44.4801,12.7747 44.4279,12.726 44.3869,12.6821 44.3597,12.668 44.245,12.6219 44.1373,12.603 43.9005,12.5805 43.8727,12.5973 43.8553,12.6333 43.7732,12.6717 43.6482,12.7124 43.5497,12.7345 43.5215,12.7206 43.479,12.6757 43.461,12.6679 43.4495,12.6661 43.4299,12.661 43.4133,12.6733 43.4294,12.7516 43.4357,12.7809 43.4339,12.8085 43.3539,12.9567 43.304,13.0361 43.2271,13.1566 43.2005,13.1911 43.1813,13.2549 43.1924,13.2988 43.202,13.3273 43.2266,13.5374 43.2304,13.5899 43.2354,13.635 43.2368,13.6574 43.2299,13.7052 43.1833,13.8578 43.1517,13.8842 43.1231,13.9046 43.0686,13.9477 43.0368,13.9776 43.0413,14.0608 43.0495,14.1377 43.0527,14.1578 43.0101,14.2792 42.9711,14.4288 42.977,14.5346 42.9389,14.6203 42.915,14.6763 42.8942,14.7623 42.8955,14.7973 42.9051,14.8484 42.8947,14.9009 42.885,14.9413 42.8202,15.1078 42.7936,15.1314 42.7381,15.1603 42.7033,15.1783 42.6619,15.1936 42.6306,15.1916 42.6296,15.2194 42.6487,15.2567 42.6735,15.2841 42.7282,15.2131 42.7518,15.2133 42.7595,15.2451 42.7584,15.3323 42.7354,15.4472 42.704,15.5085 42.668,15.5534 42.6528,15.6186 42.6432,15.6828 42.6504,15.7041 42.6754,15.7169 42.6939,15.733 42.7069,15.8122 42.748,15.8344 42.7837,15.8655 42.7908,15.9537 42.7947,16.0534 42.7948,16.0753 42.762,16.2939 42.7564,16.3223 42.7385,16.3592 42.7724,16.3629 42.8673,16.4049 43.0084,16.5238 43.0186,16.542 43.0276,16.5827 43.0508,16.6591 43.0829,16.6616 43.1543,16.6537 43.146,16.6971 43.1093,16.8169 43.0717,16.9064 43.0996,17.103 43.1398,17.3229 43.2066,17.3954 43.2617,17.4403 43.2934,17.457 43.3214,17.4755 43.355,17.4942 43.3926,17.5071 43.4613,17.5025 43.5683,17.4616 43.5863,17.4502 43.6014,17.424 43.619,17.4002 43.6861,17.3463 43.7084,17.3325 43.8861,17.2872 44.0368,17.3275 44.1321,17.3897 44.3289,17.4001 44.4073,17.3937 44.4404,17.3792 44.445,17.3736 44.9459,17.1751 45.4216,16.9868 46.2778,16.6481 46.278,15.8014 46.2778,15.5996 47.3181,16.7329 47.9675,17.4402 48.7074,18.2462 49.9394,18.5253 51.1533,18.8005 51.9361,18.9783 52.7184,17.3306 52.7487,17.2662 53.0509,16.6241 53.0509,16.6241 25,-4.0,Haiti -72.7374,18.6747 -72.7614,18.7061 -72.8433,18.7205 -72.9752,18.7579 -73.129,18.8132 -73.1577,18.8353 -73.1982,18.8791 -73.2052,18.8864 -73.2096,18.8957 -73.2108,18.9063 -73.1983,18.9236 -73.1734,18.9373 -73.1352,18.9474 -73.1131,18.9482 -72.984,18.9019 -72.9091,18.8729 -72.7686,18.814 -72.7602,18.8079 -72.7381,18.7875 -72.7267,18.7681 -72.7227,18.7556 -72.7109,18.7137 -72.727,18.678 -72.7374,18.6747 -72.7374,18.6747 26,6.5,Myanmar (Burma) 93.5246,18.8661 93.5449,18.8508 93.5577,18.8465 93.5945,18.8441 93.6165,18.849 93.6342,18.8497 93.644,18.7218 93.642,18.7107 93.6367,18.6967 93.6245,18.6755 93.6082,18.6574 93.5922,18.6484 93.5665,18.647 93.5535,18.6503 93.5333,18.6577 93.5221,18.6637 93.4305,18.7503 93.4199,18.7614 93.3813,18.8186 93.376,18.8314 93.376,18.8527 93.3928,18.8544 93.4055,18.8541 93.4357,18.8553 93.5246,18.8661 93.5246,18.8661 20,-6.0,Mexico -110.8403,18.6951 -110.8606,18.7143 -110.8685,18.7206 -110.8824,18.7284 -110.8945,18.7307 -110.9163,18.732 -110.9291,18.7372 -110.9378,18.7543 -110.9215,18.7913 -110.916,18.8 -110.866,18.8452 -110.8507,18.8424 -110.8166,18.8158 -110.8045,18.8064 -110.7865,18.7623 -110.7826,18.7524 -110.7755,18.7171 -110.7878,18.702 -110.8403,18.6951 -110.8403,18.6951 17,-6.0,Mexico -91.7227,18.6174 -91.7304,18.6209 -91.732,18.6367 -91.7217,18.644 -91.6982,18.6559 -91.5348,18.7327 -91.4536,18.7648 -91.442,18.7672 -91.428,18.7677 -91.4138,18.7521 -91.4103,18.7416 -91.4118,18.7298 -91.46,18.7157 -91.6896,18.6237 -91.7169,18.6183 -91.7227,18.6174 -91.7227,18.6174 659,8.0,Philippines 122.3212,16.8619 122.2781,16.7666 122.163,16.5452 122.1483,16.5218 122.1326,16.5091 122.1062,16.4925 122.0605,16.4144 122.0617,16.4021 122.0651,16.3924 122.0737,16.3793 122.0841,16.379 122.0824,16.3392 122.066,16.2485 122.0601,16.216 122.0527,16.2082 122.0076,16.1609 121.9951,16.1538 121.979,16.1387 121.9588,16.1196 121.9456,16.1061 121.9493,16.0933 121.9059,16.045 121.8953,16.0348 121.8563,16.0111 121.8527,16.0288 121.8572,16.0378 121.8732,16.068 121.8801,16.0774 121.8893,16.088 121.9191,16.1246 121.9352,16.1368 121.9465,16.1517 121.9678,16.1874 121.9936,16.2341 121.9531,16.2421 121.9294,16.2162 121.9257,16.2059 121.9237,16.1916 121.8747,16.1565 121.831,16.1273 121.8124,16.1163 121.6377,16.0471 121.6164,16.0577 121.5978,16.0502 121.5241,15.9884 121.4329,15.9005 121.4182,15.8853 121.411,15.8741 121.4076,15.8633 121.4048,15.8445 121.4031,15.8201 121.4064,15.7961 121.4162,15.7634 121.4232,15.7498 121.4308,15.7382 121.4418,15.7334 121.4616,15.7404 121.4923,15.731 121.4987,15.714 121.498,15.6957 121.4548,15.6181 121.3508,15.5009 121.2618,15.3629 121.251,15.3576 121.2402,15.3319 121.2348,15.315 121.2322,15.2981 121.236,15.2853 121.2561,15.2407 121.2736,15.211 121.2872,15.1908 121.3113,15.1809 121.342,15.1593 121.3985,15.005 121.432,14.9029 121.4415,14.8666 121.4454,14.8541 121.4622,14.8026 121.4836,14.7742 121.4966,14.7602 121.5522,14.6803 121.473,14.6522 121.4656,14.642 121.4673,14.6041 121.4693,14.5864 121.5001,14.4663 121.5352,14.3663 121.5765,14.3252 121.5859,14.3117 121.62,14.2232 121.6203,14.211 121.6116,14.1861 121.602,14.1759 121.5937,14.1648 121.5945,14.1528 121.6216,14.1163 121.6292,14.1079 121.7698,13.9934 121.8066,13.9721 121.8172,13.9665 121.8688,13.9434 121.8931,13.9332 121.9646,13.9071 122.0012,13.8996 122.0188,13.902 122.0493,13.8982 122.0926,13.8817 122.1059,13.9076 122.162,13.9443 122.1671,13.9851 122.1681,13.9996 122.1249,14.0326 122.0853,14.0602 122.0647,14.067 122.0408,14.0961 122.0267,14.1202 122.0238,14.1355 122.115,14.2243 122.1316,14.2278 122.1354,14.2127 122.1308,14.1949 122.1261,14.1852 122.1229,14.168 122.126,14.1135 122.1622,14.0853 122.1689,14.0877 122.187,14.0916 122.2062,14.1009 122.2124,14.1191 122.1999,14.1374 122.1948,14.1501 122.1932,14.1691 122.1938,14.1839 122.2219,14.2265 122.2383,14.2423 122.3074,14.3051 122.3307,14.3247 122.3732,14.3289 122.3989,14.32 122.4629,14.2973 122.5353,14.322 122.5509,14.3242 122.5706,14.3223 122.6307,14.303 122.7044,14.2621 122.7226,14.2495 122.7864,14.1832 122.8968,14.0538 122.9531,13.9534 122.9553,13.8723 122.9453,13.8588 122.9305,13.8497 122.9235,13.8341 122.9149,13.801 122.9103,13.7823 122.9079,13.7641 122.9125,13.7552 122.9564,13.7284 122.9765,13.719 122.9862,13.6973 122.9815,13.6796 122.9914,13.6918 123.1265,13.7252 123.1767,13.7738 123.1852,13.7942 123.1799,13.8209 123.1533,13.9112 123.1268,13.9277 123.1,13.9485 123.0944,13.9587 123.0875,13.9867 123.1382,14.032 123.2002,14.0714 123.2184,14.0655 123.2499,14.014 123.2752,13.9667 123.3138,13.9464 123.4321,13.896 123.5383,13.8619 123.7825,13.7739 123.8279,13.7365 123.8329,13.7226 123.8361,13.7015 123.8293,13.6921 123.6676,13.6721 123.6457,13.6747 123.6325,13.6775 123.5758,13.691 123.476,13.7074 123.455,13.7082 123.4381,13.7031 123.428,13.6911 123.4106,13.6587 123.3939,13.6089 123.392,13.5562 123.4007,13.543 123.4938,13.4732 123.5268,13.4657 123.5363,13.4604 123.5632,13.4234 123.5932,13.3552 123.6111,13.314 123.6463,13.287 123.6708,13.2761 123.6806,13.2617 123.678,13.2402 123.6925,13.2263 123.689,13.2435 123.7074,13.2477 123.729,13.2176 123.7157,13.2104 123.6992,13.2121 123.6835,13.2156 123.6697,13.22 123.6566,13.2202 123.6435,13.216 123.6352,13.206 123.6201,13.1742 123.6172,13.1637 123.6165,13.1469 123.6183,13.0742 123.6219,13.0489 123.6363,13.0393 123.6484,13.0348 123.6639,13.035 123.6985,13.0684 123.7243,13.1039 123.7281,13.1204 123.7391,13.1257 123.7603,13.1259 123.8374,13.0919 123.8554,13.0809 123.8734,13.0587 123.8829,13.0431 123.8934,13.0309 123.9413,12.9945 123.9525,12.9996 123.9605,13.0171 123.9643,13.034 123.9707,13.0469 123.9864,13.057 124.0368,13.0583 124.0504,13.0504 124.056,13.0387 124.0555,13.0221 124.0529,13.004 124.0134,12.9478 123.9859,12.8929 124.0152,12.8407 124.0186,12.7956 124.0043,12.6901 123.9975,12.6526 123.9573,12.5396 123.9441,12.5278 123.8986,12.5179 123.8738,12.5237 123.8554,12.5292 123.8335,12.5418 123.7396,12.6374 123.7212,12.6788 123.7108,12.7132 123.7012,12.8137 123.7243,12.8551 123.7451,12.8471 123.7638,12.836 123.7943,12.8311 123.8767,12.8575 123.8842,12.8636 123.8917,12.8737 123.9067,12.907 123.9064,12.9184 123.8993,12.9346 123.8862,12.9494 123.7565,12.9582 123.7467,12.9514 123.7443,12.9236 123.7184,12.8827 123.6859,12.86 123.667,12.848 123.5896,12.8393 123.4976,12.8712 123.4488,12.8919 123.3672,12.9541 123.3516,12.9672 123.3144,13.0099 123.2816,13.0276 123.2692,13.0298 123.2344,13.0132 123.2206,13.0044 123.202,12.9978 123.1846,12.9941 123.1685,13.017 123.1585,13.0387 123.1513,13.1006 123.1548,13.1296 123.1711,13.164 123.1067,13.2768 123.0691,13.3642 123.0672,13.3852 123.061,13.4032 123.0444,13.4232 123.0268,13.4361 122.996,13.4532 122.9264,13.4837 122.9127,13.4895 122.8744,13.5004 122.8593,13.5034 122.8447,13.5026 122.752,13.5595 122.6996,13.6074 122.6922,13.623 122.6895,13.6353 122.7225,13.6681 122.7147,13.6918 122.6995,13.7179 122.6346,13.7716 122.4728,13.8761 122.4198,13.9211 122.3841,13.9056 122.3618,13.8253 122.3427,13.691 122.3451,13.6783 122.3623,13.631 122.4372,13.5211 122.4684,13.4844 122.4891,13.4615 122.5103,13.4313 122.5231,13.4097 122.5295,13.3925 122.5407,13.3587 122.5605,13.237 122.5631,13.2174 122.5624,13.2069 122.4811,13.1553 122.4684,13.1493 122.4575,13.1488 122.4433,13.1544 122.4236,13.171 122.385,13.2174 122.3856,13.2666 122.3855,13.2934 122.3841,13.3076 122.3792,13.3311 122.3517,13.3907 122.2636,13.504 122.1906,13.5683 122.1721,13.5784 122.1251,13.5881 122.1048,13.5818 122.0686,13.5868 122.0359,13.657 121.9683,13.7484 121.9215,13.7598 121.7686,13.8365 121.6898,13.8817 121.6801,13.8894 121.6761,13.8988 121.6772,13.9222 121.6095,13.9494 121.5779,13.9503 121.5617,13.9436 121.3346,13.8192 121.3251,13.8096 121.3042,13.7748 121.2992,13.7579 121.2974,13.7422 121.2486,13.6484 121.2238,13.6389 121.1958,13.6221 121.1407,13.5788 121.0916,13.6122 121.0429,13.6282 121.0272,13.6263 120.9928,13.6181 120.917,13.6469 120.9237,13.6985 120.9081,13.7398 120.9015,13.7478 120.8811,13.7584 120.8557,13.7664 120.8358,13.7587 120.79,13.7595 120.78,13.8425 120.7747,13.8594 120.7593,13.8773 120.7498,13.8838 120.7401,13.8872 120.6246,13.914 120.611,13.9167 120.6004,13.9169 120.5775,13.9097 120.5672,13.8999 120.5204,13.8456 120.5192,13.8142 120.5286,13.7961 120.5383,13.7752 120.5363,13.7633 120.5237,13.7537 120.4868,13.794 120.4807,13.8614 120.4781,13.9302 120.4803,13.9495 120.4702,14.1025 120.4393,14.1217 120.4489,14.2001 120.4522,14.2152 120.4867,14.2513 120.5008,14.2604 120.5165,14.2668 120.5266,14.2668 120.5363,14.2662 120.5683,14.2738 120.6124,14.302 120.6274,14.3136 120.6975,14.378 120.7614,14.4353 120.8318,14.4611 120.8444,14.4744 120.8523,14.4989 120.8524,14.5151 120.8496,14.5328 120.8199,14.6094 120.8147,14.6207 120.8052,14.6353 120.7902,14.6569 120.7822,14.6651 120.7621,14.6854 120.7461,14.7013 120.6952,14.7439 120.6478,14.7415 120.6287,14.7393 120.6129,14.7373 120.5393,14.7533 120.4735,14.79 120.4207,14.8098 120.4066,14.8066 120.4071,14.7054 120.4091,14.6941 120.4162,14.68 120.4386,14.6376 120.4697,14.5026 120.4712,14.4857 120.4696,14.4718 120.4621,14.4462 120.4404,14.4212 120.4176,14.4093 120.4014,14.406 120.3528,14.4137 120.3138,14.4246 120.2529,14.4427 120.2486,14.4556 120.2398,14.4893 120.2369,14.5119 120.1767,14.6083 120.1618,14.6194 120.1108,14.6724 120.1085,14.6833 120.1125,14.7152 120.1181,14.7495 120.1361,14.7626 120.1538,14.7875 120.1037,14.8312 120.0725,14.8109 120.0704,14.797 120.0593,14.7557 120.0503,14.7351 120.0417,14.728 120.0162,14.7238 119.9917,14.7345 119.9817,14.7411 119.946,14.7671 119.914,14.8728 119.9139,14.9151 119.9158,14.9347 119.9224,14.9688 119.9227,15.0043 119.9223,15.0308 119.9125,15.0798 119.8958,15.1474 119.8701,15.247 119.8626,15.2618 119.8225,15.3287 119.7968,15.3626 119.7668,15.3857 119.757,15.4084 119.7553,15.4191 119.7587,15.4631 119.7635,15.474 119.8129,15.5053 119.7655,15.6052 119.7772,15.6878 119.7496,15.7835 119.7701,15.8229 119.7659,15.8386 119.7143,15.9451 119.6709,15.9322 119.6646,15.9081 119.6298,15.9013 119.6096,15.9425 119.6143,16.1561 119.6423,16.3004 119.6479,16.3144 119.6577,16.3288 119.6807,16.3469 119.7424,16.3785 119.7856,16.3655 119.7899,16.3438 119.7876,16.3125 119.7756,16.272 119.7917,16.2246 119.8698,16.1657 119.9508,16.0956 119.9521,16.0835 119.9586,16.0554 119.9835,16.0365 120.0132,16.0182 120.0351,16.0152 120.0545,16.0126 120.0911,16.0159 120.115,16.0207 120.1374,16.0281 120.1943,16.0575 120.2245,16.0757 120.2519,16.1027 120.2594,16.1117 120.2779,16.1377 120.282,16.151 120.2749,16.1896 120.2622,16.2245 120.2469,16.2458 120.2231,16.2666 120.1956,16.4117 120.1746,16.5583 120.1727,16.6127 120.2264,16.8325 120.2457,16.8431 120.2549,16.8549 120.3042,16.9497 120.3089,16.9626 120.3105,16.976 120.3118,16.9925 120.3102,17.0174 120.3074,17.0358 120.2861,17.1588 120.282,17.1689 120.311,17.3414 120.3154,17.3704 120.3147,17.3921 120.2817,17.4902 120.2468,17.5216 120.2347,17.5137 120.2222,17.5116 120.2013,17.5364 120.1934,17.5519 120.2121,17.6197 120.2273,17.6604 120.2495,17.6724 120.2768,17.6885 120.2946,17.7127 120.3127,17.8036 120.3045,17.909 120.3344,18.0584 120.3754,18.1687 120.3804,18.1815 120.3885,18.1929 120.4151,18.2331 120.4494,18.2945 120.4547,18.3106 120.4582,18.3497 120.4554,18.3727 120.4477,18.404 120.4357,18.4346 120.4269,18.4476 120.4232,18.4605 120.4256,18.4726 120.4391,18.4907 120.4863,18.5269 120.5181,18.5183 120.5334,18.5124 120.5567,18.5078 120.5719,18.5059 120.5903,18.5064 120.6058,18.5115 120.6218,18.5196 120.6413,18.5375 120.7285,18.59 120.7546,18.5553 120.7705,18.5445 120.788,18.5388 120.81,18.5422 120.8261,18.5561 120.8368,18.5694 120.8448,18.5746 120.8824,18.588 120.9564,18.6035 120.9781,18.6067 121.0069,18.6044 121.0285,18.5965 121.0571,18.5808 121.0845,18.5637 121.1098,18.5456 121.2296,18.4716 121.4391,18.3626 121.4899,18.3411 121.655,18.2829 121.6985,18.268 121.7485,18.2573 121.7892,18.2492 121.8019,18.2485 121.8186,18.2525 121.86,18.2659 121.8771,18.2759 121.972,18.3564 121.9853,18.4098 121.9879,18.4235 122.0087,18.4884 122.0191,18.498 122.0773,18.4999 122.0906,18.4943 122.1765,18.3601 122.1823,18.3406 122.1943,18.29 122.1889,18.2557 122.1735,18.2282 122.1468,18.1914 122.1159,18.154 122.107,18.1483 122.0797,18.1363 122.0714,18.1307 122.0412,18.1002 122.0252,18.0548 122.0343,18.0192 122.0457,18.0053 122.0485,17.9837 122.0367,17.914 122.025,17.8665 122.0073,17.8119 121.9989,17.7819 121.9981,17.7631 122.0229,17.5877 122.0258,17.5743 122.0677,17.4498 122.0937,17.3767 122.1098,17.344 122.1504,17.3214 122.1712,17.3145 122.1982,17.3225 122.28,17.2494 122.2722,17.1369 122.2828,17.1157 122.3066,17.1025 122.3382,17.0988 122.3485,17.1043 122.3554,17.1119 122.3738,17.1154 122.3854,17.0822 122.3707,17.0249 122.3212,16.8619 122.3212,16.8619 133,-5.0,Jamaica -76.5647,17.9093 -76.6008,17.9174 -76.6317,17.9287 -76.6346,17.9332 -76.6429,17.9391 -76.6532,17.9432 -76.7076,17.9467 -76.7184,17.9568 -76.726,17.9634 -76.7396,17.9669 -76.7544,17.9625 -76.8011,17.8686 -76.8213,17.8322 -76.8305,17.822 -76.8584,17.8094 -76.912,17.8249 -76.9429,17.8685 -76.9586,17.8746 -76.9869,17.8794 -77.0081,17.8757 -77.0185,17.8721 -77.0386,17.8589 -77.0555,17.8423 -77.1002,17.7601 -77.0502,17.7407 -77.0326,17.7091 -77.0367,17.6943 -77.045,17.6888 -77.0591,17.6816 -77.0721,17.6777 -77.0889,17.6785 -77.1241,17.6939 -77.1336,17.699 -77.1449,17.7085 -77.2554,17.8018 -77.3019,17.832 -77.3184,17.84 -77.3593,17.8359 -77.3927,17.8185 -77.4134,17.8167 -77.4245,17.8202 -77.4723,17.8397 -77.5155,17.8347 -77.6257,17.8274 -77.6412,17.8301 -77.6983,17.8678 -77.7256,17.9176 -77.7407,17.9676 -77.7466,17.9825 -77.7548,17.9918 -77.78,18.0025 -77.8097,18.0011 -77.8417,18.0061 -77.8563,18.0101 -77.8669,18.0345 -77.8719,18.0451 -77.8856,18.0661 -77.9486,18.1644 -77.9626,18.1763 -77.9795,18.1812 -78.007,18.1822 -78.0338,18.1829 -78.0994,18.1796 -78.1116,18.1769 -78.1365,18.1697 -78.1594,18.174 -78.2439,18.1987 -78.2671,18.2145 -78.2742,18.2217 -78.2789,18.2342 -78.2768,18.2443 -78.2697,18.2542 -78.2475,18.2783 -78.2505,18.3147 -78.2447,18.3403 -78.116,18.4309 -77.9247,18.4314 -77.9054,18.421 -77.8415,18.4756 -77.8263,18.4884 -77.788,18.4991 -77.77,18.5017 -77.7551,18.5011 -77.6412,18.4842 -77.6056,18.469 -77.5944,18.4657 -77.5458,18.4584 -77.5195,18.4631 -77.5044,18.4682 -77.467,18.4686 -77.3874,18.4575 -77.3727,18.4487 -77.3667,18.4454 -77.3139,18.436 -77.2476,18.4321 -77.2262,18.438 -77.1534,18.4316 -77.0879,18.4137 -77.0724,18.4077 -77.0642,18.4017 -77.0428,18.3866 -76.9744,18.3866 -76.9626,18.3902 -76.9469,18.3915 -76.852,18.3739 -76.8026,18.3544 -76.7612,18.3245 -76.7123,18.2825 -76.6945,18.2528 -76.6285,18.2432 -76.6103,18.2463 -76.5661,18.2157 -76.5473,18.2029 -76.4584,18.1768 -76.4405,18.1727 -76.3659,18.1602 -76.2906,18.1469 -76.2723,18.1395 -76.249,18.1296 -76.1998,18.0579 -76.1863,18.0303 -76.1819,18.0213 -76.1656,17.9757 -76.1419,17.9214 -76.1287,17.8841 -76.1729,17.8598 -76.2143,17.8457 -76.2582,17.8357 -76.4413,17.8369 -76.5014,17.8414 -76.5178,17.8499 -76.5647,17.9093 -76.5647,17.9093 78,-4.0,Puerto Rico -65.7568,18.0359 -65.7602,18.0245 -65.7771,17.9987 -65.8068,17.9677 -65.818,17.9621 -65.8477,17.9502 -65.8574,17.9466 -66.1242,17.9022 -66.1576,17.9082 -66.2101,17.9234 -66.2671,17.9474 -66.2949,17.941 -66.3737,17.9623 -66.493,17.9443 -66.5066,17.9412 -66.5903,17.9447 -66.6036,17.9471 -66.6336,17.9612 -66.7083,17.9505 -66.7265,17.9404 -66.7408,17.9338 -66.7607,17.927 -66.8461,17.9091 -66.8585,17.9079 -66.872,17.9104 -66.9863,17.9396 -67.0147,17.9299 -67.1033,17.9126 -67.1233,17.9334 -67.1126,18.0151 -67.0938,18.0858 -67.0749,18.168 -67.076,18.1946 -67.0875,18.2174 -67.091,18.227 -67.1113,18.2596 -67.1331,18.2665 -67.1454,18.2698 -67.1593,18.2811 -67.1685,18.2925 -67.1802,18.321 -67.1848,18.3448 -67.0888,18.4665 -67.0728,18.4826 -67.0627,18.4898 -67.0203,18.4975 -67.0018,18.4988 -66.9821,18.4986 -66.9583,18.4954 -66.9446,18.493 -66.9152,18.4845 -66.6877,18.4672 -66.6146,18.4689 -66.4697,18.4618 -66.3857,18.4536 -66.2249,18.4465 -66.1279,18.4436 -66.1144,18.4433 -66.056,18.445 -66.0224,18.3959 -66.0352,18.4513 -65.9507,18.4249 -65.9341,18.4358 -65.9241,18.4399 -65.9107,18.4395 -65.8242,18.4339 -65.8103,18.4317 -65.7214,18.4099 -65.5635,18.3548 -65.5473,18.3446 -65.5504,18.255 -65.5525,18.2449 -65.523,18.2143 -65.5338,18.2011 -65.6129,18.1735 -65.744,18.0439 -65.7568,18.0359 -65.7568,18.0359 86,-6.0,Belize -89.034,17.7992 -89.035,17.931 -89.0135,17.9509 -88.9639,17.975 -88.9148,17.9846 -88.889,17.9673 -88.8754,17.9457 -88.7642,17.8874 -88.7338,17.8841 -88.6664,17.9688 -88.6206,18.0346 -88.5967,18.0897 -88.5735,18.1651 -88.4925,18.2157 -88.4816,18.2705 -88.4096,18.4096 -88.3988,18.4268 -88.3665,18.4633 -88.2981,18.4694 -88.2641,18.4613 -88.2366,18.4606 -88.1923,18.4622 -88.1826,18.4303 -88.2062,18.4041 -88.2083,18.3436 -88.1017,18.3325 -87.9906,18.3529 -87.975,18.2512 -87.9709,18.1954 -87.9804,18.102 -88.0164,18.0092 -88.044,17.9461 -88.0563,17.9313 -88.0797,17.9039 -88.0955,17.8673 -88.102,17.7826 -88.1051,17.7558 -88.1191,17.6962 -88.1268,17.6765 -88.1451,17.6461 -88.1666,17.6253 -88.1757,17.6042 -88.1717,17.5612 -88.1422,17.4459 -88.1539,17.4028 -88.1782,17.304 -88.1879,17.2575 -88.192,17.2193 -88.1927,17.1666 -88.1825,17.1033 -88.1736,17.0788 -88.1593,17.0613 -88.1285,17.0458 -88.1071,16.943 -88.1277,16.9269 -88.1566,16.9071 -88.1717,16.8707 -88.1735,16.7819 -88.1963,16.6249 -88.2549,16.4833 -88.2409,16.5842 -88.2725,16.5434 -88.2877,16.5231 -88.279,16.5087 -88.2818,16.4721 -88.4236,16.2798 -88.5444,16.2617 -88.6205,16.2136 -88.6382,16.1897 -88.6855,16.1011 -88.747,16.0364 -88.8165,15.9693 -88.8205,15.9295 -88.8043,15.8761 -88.8743,15.8805 -88.9405,15.8887 -89.0628,15.8925 -89.1095,15.8722 -89.1097,15.8976 -89.0972,16.0861 -89.077,16.3961 -89.0376,16.9948 -89.0358,17.3225 -89.0342,17.6996 -89.034,17.7992 -89.034,17.7992 20,-4.0,Dominican Republic -68.4903,18.0815 -68.5067,18.0934 -68.5372,18.1014 -68.5568,18.1049 -68.569,18.1035 -68.5789,18.0995 -68.6079,18.0911 -68.6183,18.0919 -68.6487,18.0998 -68.6721,18.1096 -68.6981,18.1497 -68.7014,18.1594 -68.6966,18.1773 -68.5266,18.1444 -68.5145,18.1411 -68.5038,18.1338 -68.4913,18.1094 -68.4852,18.0877 -68.4903,18.0815 -68.4903,18.0815 16,-6.0,Belize -87.8019,18.0013 -87.8138,17.9506 -87.8222,17.9315 -87.8299,17.9187 -87.8465,17.8946 -87.8547,17.884 -87.8668,17.8783 -87.8843,17.8777 -87.8993,17.8819 -87.7946,18.1306 -87.7498,18.1444 -87.7409,18.1383 -87.74,18.1207 -87.7835,18.0259 -87.8019,18.0013 -87.8019,18.0013 15,-4.0,Puerto Rico -65.4453,18.0629 -65.4689,18.0659 -65.4858,18.0748 -65.4939,18.0812 -65.4992,18.0951 -65.4231,18.1241 -65.4074,18.1289 -65.352,18.1443 -65.3163,18.1441 -65.2217,18.1277 -65.2259,18.1125 -65.2583,18.0966 -65.3618,18.07 -65.4453,18.0629 -65.4453,18.0629 315,3.0,Eritrea 36.5004,14.2463 36.4991,14.262 36.4732,14.4341 36.409,15.0518 36.4001,15.1332 36.4364,15.1635 36.4994,15.2177 36.5221,15.2856 36.567,15.4202 36.5824,15.4722 36.628,15.6419 36.6525,15.7309 36.7199,15.7904 36.782,15.9596 36.8454,16.1287 36.8804,16.2089 36.9225,16.2418 36.9296,16.2675 36.9087,16.4155 36.884,16.4413 36.8585,16.4752 36.8524,16.4965 36.8541,16.5184 36.8697,16.6261 36.8951,16.6589 36.9282,16.6814 36.9445,16.7068 36.9647,16.7676 36.9687,17.0033 36.9493,17.0458 36.9816,17.058 37.0636,17.029 37.1031,16.9981 37.2125,17.008 37.3365,17.0241 37.3785,17.0153 37.441,17.0914 37.4756,17.1765 37.4854,17.2303 37.4752,17.2585 37.4669,17.302 37.5435,17.3308 37.5779,17.3383 37.6994,17.3624 37.8498,17.4219 37.8883,17.4393 37.9208,17.4802 37.989,17.5223 38.0127,17.5329 38.0462,17.5235 38.0898,17.4795 38.2114,17.5133 38.3228,17.6446 38.4029,17.8311 38.4122,17.8511 38.4595,17.8934 38.554,17.9747 38.5652,17.9413 38.6255,17.8274 38.664,17.7575 38.703,17.7074 38.7509,17.6337 38.8483,17.4376 38.8983,17.3289 38.9549,17.1694 38.9921,17.0335 39.0512,16.8441 39.0687,16.8082 39.0901,16.7567 39.1134,16.6604 39.1146,16.6191 39.1138,16.5547 39.1174,16.526 39.1273,16.4597 39.1406,16.4324 39.1459,16.3788 39.1434,16.3675 39.1555,16.3253 39.1571,16.2703 39.1646,16.2107 39.1677,16.1875 39.1826,16.1096 39.2233,15.9684 39.2622,15.8805 39.3185,15.8319 39.3766,15.752 39.4026,15.6329 39.3949,15.5862 39.4134,15.5045 39.436,15.4949 39.465,15.5009 39.4913,15.5201 39.5164,15.518 39.5358,15.5093 39.5664,15.4706 39.6433,15.2987 39.6663,15.2399 39.655,15.1754 39.6514,15.1646 39.6473,15.1128 39.6711,15.0714 39.7206,15.0461 39.7271,15.0464 39.7615,15.0586 39.8076,15.1584 39.7957,15.209 39.7686,15.2604 39.7427,15.245 39.7238,15.3751 39.7516,15.4281 39.8001,15.4572 39.8341,15.4722 39.9422,15.3722 40.0017,15.2699 39.9784,15.2227 39.9944,15.1843 40.0267,15.1513 40.1092,15.0013 40.1099,14.9682 40.1279,14.9546 40.2505,14.897 40.2911,14.9271 40.3141,14.9483 40.3745,14.9793 40.4071,14.9909 40.546,14.9297 40.6261,14.8874 40.6826,14.8142 40.6827,14.778 40.7593,14.6893 40.8014,14.7001 40.8349,14.6996 41.1239,14.6144 41.2622,14.4607 41.3303,14.3573 41.4009,14.2558 41.4639,14.1867 41.564,14.052 41.605,13.9841 41.616,13.952 41.6292,13.9207 41.6723,13.9002 41.8044,13.8561 41.854,13.8572 41.9083,13.8418 41.9365,13.811 42.0104,13.7137 42.0198,13.6826 42.042,13.6631 42.1384,13.5599 42.1774,13.5362 42.1741,13.6216 42.2361,13.5583 42.2466,13.5379 42.2915,13.4124 42.2963,13.3904 42.3006,13.3354 42.3256,13.2034 42.3969,13.1755 42.4421,13.1774 42.5272,13.1475 42.6734,13.0278 42.6855,13.0089 42.7104,12.9281 42.7238,12.8802 42.7566,12.8308 42.8324,12.7947 42.8878,12.7866 42.9266,12.7987 42.938,12.8158 42.9537,12.8715 43.0296,12.8148 43.0454,12.7812 43.0698,12.715 43.0731,12.6941 42.8814,12.6098 42.7625,12.5109 42.7603,12.4739 42.7717,12.4319 42.7022,12.3738 42.6508,12.35 42.6014,12.3849 42.5726,12.4169 42.5405,12.4538 42.4881,12.4903 42.4539,12.5029 42.4372,12.508 42.4087,12.5151 42.3523,12.4557 42.3105,12.4977 42.2972,12.5128 42.2785,12.5356 42.259,12.5607 42.2449,12.5842 42.2152,12.6364 42.1672,12.7117 42.1469,12.7318 42.1058,12.7641 42.0716,12.787 42.0503,12.7978 42.0296,12.8056 42.0007,12.8159 41.9698,12.8264 41.9457,12.836 41.927,12.8491 41.9068,12.8711 41.8794,12.9124 41.8673,12.9342 41.7967,13.084 41.7956,13.0911 41.769,13.143 41.7512,13.1731 41.7341,13.1973 41.7094,13.2215 41.5684,13.3386 41.5519,13.3503 41.5198,13.3717 41.5025,13.3828 41.4806,13.3963 41.3808,13.4574 41.1893,13.5803 41.1715,13.5971 41.1312,13.6666 41.0852,13.7506 41.0682,13.7816 41.0533,13.8076 41.0257,13.8512 41.0,13.8844 40.9609,13.9292 40.8819,14.0167 40.8624,14.0366 40.7556,14.1373 40.7299,14.149 40.7018,14.1571 40.6466,14.1666 40.5997,14.1731 40.5673,14.1802 40.5453,14.1873 40.5058,14.2044 40.4218,14.2454 40.3866,14.2667 40.3387,14.3092 40.3028,14.3433 40.2757,14.3716 40.2543,14.3898 40.2242,14.4088 40.181,14.4275 40.1325,14.4418 40.1099,14.4487 40.0702,14.4542 39.9723,14.4429 39.8991,14.4158 39.8571,14.4164 39.8405,14.4277 39.8053,14.4636 39.7335,14.4975 39.6999,14.4866 39.6798,14.4797 39.6488,14.4773 39.5676,14.4942 39.4852,14.5493 39.4364,14.4951 39.3302,14.4677 39.2173,14.4574 39.1641,14.4695 39.1438,14.528 39.1328,14.5482 39.1063,14.5837 39.0895,14.6015 39.0729,14.6131 39.0483,14.6273 38.9784,14.6387 38.9669,14.5729 38.92,14.5299 38.8476,14.4846 38.7503,14.4535 38.5164,14.4104 38.4043,14.4028 38.2886,14.5055 38.262,14.578 38.2183,14.6614 38.2,14.671 38.144,14.6759 38.099,14.6669 37.9958,14.7057 37.9738,14.7186 37.9359,14.7596 37.9338,14.7845 37.9112,14.8213 37.8817,14.8546 37.8666,14.8672 37.794,14.6987 37.6405,14.3441 37.5288,14.0864 37.4875,14.0987 37.3898,14.2523 37.3479,14.3404 37.2935,14.4108 37.2445,14.4356 37.1562,14.4365 37.0816,14.4096 37.0584,14.3769 37.0486,14.3554 37.0477,14.3305 37.0475,14.2963 37.0322,14.2716 36.9567,14.2456 36.9071,14.2784 36.8432,14.3043 36.7823,14.3121 36.6936,14.3112 36.5986,14.3006 36.516,14.2729 36.5004,14.2463 36.5004,14.2463 192,-6.0,Guatemala -88.8043,15.8761 -88.7667,15.8452 -88.7285,15.847 -88.7058,15.8477 -88.6797,15.8392 -88.6416,15.8195 -88.5725,15.7605 -88.5325,15.6952 -88.5123,15.681 -88.492,15.6888 -88.3898,15.832 -88.4442,15.8801 -88.4706,15.8987 -88.4452,15.9229 -88.3006,15.8202 -88.1493,15.7194 -88.1232,15.7121 -88.1094,15.707 -88.1344,15.6965 -88.2098,15.6497 -88.2222,15.6179 -88.3809,15.4875 -88.447,15.4327 -88.5628,15.3329 -88.6525,15.2785 -88.7315,15.2303 -88.8747,15.1189 -89.0369,15.0601 -89.0446,15.0566 -89.0523,15.04 -89.0649,15.0133 -89.0718,14.9818 -89.0492,14.964 -89.0702,14.9076 -89.0805,14.8911 -89.1009,14.8769 -89.1176,14.8554 -89.1164,14.8278 -89.0499,14.7173 -89.026,14.6986 -89.0329,14.6685 -89.0924,14.5687 -89.1311,14.5664 -89.2461,14.4554 -89.2437,14.4158 -89.331,14.399 -89.3905,14.4052 -89.444,14.4048 -89.4661,14.3986 -89.4789,14.3698 -89.4846,14.3053 -89.4609,14.3005 -89.4388,14.2884 -89.4138,14.2182 -89.4751,14.1916 -89.5009,14.1923 -89.5229,14.1936 -89.5479,14.1799 -89.5823,14.1544 -89.606,14.1293 -89.6225,14.1022 -89.6428,14.0538 -89.6359,14.0257 -89.7142,14.051 -89.7505,14.0439 -89.7847,14.0286 -89.9167,13.9231 -89.9825,13.8529 -90.0,13.808 -90.0044,13.7735 -89.9926,13.7307 -90.0019,13.7318 -90.0481,13.7482 -90.1137,13.7764 -90.1331,13.7858 -90.2451,13.8322 -90.3066,13.8575 -90.358,13.8761 -90.3877,13.8847 -90.4849,13.9093 -90.508,13.9137 -90.5231,13.9149 -90.5685,13.9139 -90.6672,13.911 -90.7847,13.9063 -90.839,13.9024 -90.9109,13.8976 -90.9762,13.8976 -91.0008,13.9004 -91.0787,13.9106 -91.191,13.9384 -91.279,13.9635 -91.3877,14.014 -91.4218,14.0277 -91.4574,14.0494 -91.4817,14.0626 -91.515,14.0778 -91.5337,14.0907 -91.5524,14.1067 -91.5743,14.123 -91.5906,14.1342 -91.6635,14.176 -91.7061,14.1957 -91.8066,14.272 -91.8534,14.3085 -91.8834,14.3339 -91.9734,14.4085 -92.0565,14.4679 -92.1107,14.5056 -92.1341,14.5277 -92.1386,14.5344 -92.1297,14.5358 -92.1086,14.5419 -92.079,14.572 -92.0448,14.6668 -92.0443,14.6869 -92.0497,14.7132 -92.0603,14.7522 -92.0739,14.794 -92.0748,14.8286 -92.0405,14.9181 -91.9846,15.0089 -91.9614,15.0604 -92.1018,15.2451 -91.9982,15.4203 -91.7188,15.8912 -91.6875,15.9432 -91.6194,16.0569 -91.5941,16.0576 -91.4302,16.0578 -90.8824,16.0578 -90.6955,16.0578 -90.5174,16.0577 -90.3455,16.0568 -90.339,16.0611 -90.3337,16.0706 -90.3235,16.1149 -90.3216,16.1545 -90.3486,16.1765 -90.3493,16.2384 -90.3301,16.2895 -90.2981,16.317 -90.2759,16.3589 -90.2847,16.3829 -90.2978,16.3983 -90.3774,16.4429 -90.3963,16.4504 -90.4363,16.4551 -90.4818,16.4581 -90.5003,16.4707 -90.5362,16.5023 -90.5343,16.5452 -90.5352,16.5767 -90.5491,16.6256 -90.5697,16.6574 -90.6049,16.708 -90.6393,16.7384 -90.6954,16.7866 -90.7571,16.7989 -90.8094,16.8111 -90.8392,16.8704 -90.8769,16.8774 -90.954,16.9054 -91.0745,17.0167 -91.1583,17.1148 -91.2218,17.169 -91.3237,17.218 -91.3264,17.2383 -90.874,17.2368 -90.8735,17.5656 -90.873,17.7981 -90.869,17.8 -90.8117,17.8001 -90.6678,17.8003 -90.481,17.8012 -90.1291,17.8012 -89.8908,17.8011 -89.6335,17.8009 -89.3222,17.7998 -89.034,17.7992 -89.0342,17.6996 -89.0358,17.3225 -89.0376,16.9948 -89.077,16.3961 -89.0972,16.0861 -89.1097,15.8976 -89.1095,15.8722 -89.0628,15.8925 -88.9405,15.8887 -88.8743,15.8805 -88.8043,15.8761 -88.8043,15.8761 19,-6.0,Belize -87.8221,17.2583 -87.8297,17.2738 -87.8285,17.2874 -87.8115,17.3987 -87.7157,17.5293 -87.7037,17.5274 -87.6749,17.4994 -87.6732,17.4829 -87.6797,17.4699 -87.7129,17.4095 -87.7252,17.3978 -87.7347,17.3934 -87.7468,17.3983 -87.7564,17.4029 -87.7837,17.3862 -87.7973,17.3666 -87.8187,17.2709 -87.8221,17.2583 -87.8221,17.2583 24,3.0,Saudi Arabia 41.8359,16.9807 41.871,16.9705 41.8893,16.9568 41.9375,16.7366 41.9256,16.7329 41.879,16.7458 41.8334,16.7789 41.8099,16.8109 41.7869,16.85 41.7843,16.8636 41.7924,16.8765 41.8203,16.8798 41.8431,16.8884 41.878,16.9131 41.881,16.9328 41.8768,16.9457 41.8652,16.9586 41.8535,16.9645 41.803,16.9735 41.7922,16.9841 41.8011,16.9917 41.816,16.9861 41.8359,16.9807 41.8359,16.9807 50,3.0,Saudi Arabia 42.1199,16.5445 42.0832,16.5531 42.0707,16.5584 42.0621,16.5645 42.0328,16.5946 42.0523,16.6013 42.0583,16.6229 42.0437,16.6395 42.0353,16.6453 42.0199,16.6516 42.0079,16.6551 41.986,16.6551 41.9662,16.6514 41.9561,16.648 41.9478,16.6422 41.9328,16.6293 41.921,16.6235 41.909,16.6251 41.8818,16.6373 41.8429,16.6624 41.7886,16.7004 41.7204,16.76 41.7049,16.8407 41.7033,16.8574 41.7144,16.8547 41.7249,16.851 41.7588,16.8312 41.7919,16.8047 41.8111,16.7788 41.8158,16.7624 41.8235,16.7377 41.8445,16.7165 41.8702,16.7029 41.8945,16.6923 41.9073,16.6904 42.0191,16.692 42.0034,16.7148 41.992,16.7059 41.9774,16.7098 41.9656,16.7209 41.9655,16.7352 41.9914,16.7867 42.0063,16.7907 42.0253,16.7916 42.0921,16.6973 42.1087,16.6349 42.1268,16.566 42.1278,16.5483 42.1199,16.5445 42.1199,16.5445 477,0.0,Senegal -12.2304,14.7479 -12.2296,14.7343 -12.1642,14.5914 -12.2025,14.5237 -12.2112,14.489 -12.1921,14.3794 -12.1366,14.3583 -12.016,14.2618 -11.9682,14.1572 -11.9661,14.1356 -11.9903,14.0461 -12.0,14.0029 -11.9938,13.9506 -11.9726,13.9281 -11.9446,13.9072 -11.9294,13.8912 -11.9278,13.868 -11.9287,13.8435 -11.9339,13.8149 -11.9419,13.7857 -11.9539,13.7663 -11.9755,13.7459 -11.996,13.7312 -12.0273,13.7132 -12.0503,13.6805 -12.0432,13.6494 -12.0204,13.5957 -11.9769,13.5414 -11.9518,13.5129 -11.8646,13.4054 -11.8734,13.3669 -11.796,13.2945 -11.7451,13.3499 -11.7273,13.3942 -11.7027,13.3977 -11.6212,13.3767 -11.5947,13.3435 -11.5388,13.2681 -11.5259,13.24 -11.543,13.1976 -11.5157,13.1255 -11.5018,13.0975 -11.4501,13.0712 -11.3631,12.9683 -11.3568,12.9178 -11.3818,12.8177 -11.411,12.6421 -11.4041,12.5555 -11.3958,12.5212 -11.3608,12.4339 -11.36,12.394 -11.4143,12.4125 -11.4634,12.4219 -11.5066,12.4207 -11.6325,12.4077 -11.6622,12.3868 -11.6802,12.3766 -11.7232,12.3668 -11.7442,12.3661 -11.8284,12.3726 -11.8818,12.3955 -12.0202,12.3867 -12.1142,12.3692 -12.1356,12.351 -12.1564,12.34 -12.1823,12.3319 -12.3312,12.288 -12.3597,12.3204 -12.3805,12.3535 -12.4319,12.3734 -12.4649,12.3813 -12.4884,12.3813 -12.5686,12.3499 -12.5736,12.3582 -12.6197,12.4224 -12.7726,12.4512 -12.8311,12.4984 -12.8816,12.5309 -12.9121,12.5284 -12.9318,12.5093 -12.9468,12.4598 -13.0307,12.4653 -13.049,12.4892 -13.0538,12.5182 -13.0408,12.542 -13.0275,12.576 -13.0416,12.6199 -13.1914,12.638 -13.2951,12.6356 -13.3413,12.6512 -13.6123,12.6636 -13.6974,12.6632 -13.8416,12.6624 -13.9827,12.6621 -14.1207,12.6631 -14.3254,12.6646 -14.3767,12.6649 -14.5006,12.6656 -14.6325,12.6667 -14.8577,12.6679 -14.9065,12.6685 -15.2008,12.6708 -15.3171,12.602 -15.3438,12.5839 -15.4019,12.5373 -15.5972,12.4488 -15.6674,12.4163 -15.7916,12.4269 -15.8706,12.4343 -15.9443,12.4224 -15.9824,12.438 -16.0011,12.4469 -16.0219,12.4533 -16.054,12.4582 -16.0838,12.4575 -16.1908,12.4471 -16.3632,12.3608 -16.5001,12.3341 -16.53,12.3435 -16.6444,12.3472 -16.6739,12.3419 -16.6912,12.3231 -16.6989,12.3086 -16.7118,12.3209 -16.7743,12.4091 -16.7829,12.4324 -16.7812,12.4727 -16.7676,12.4972 -16.7435,12.5216 -16.5651,12.6184 -16.483,12.5821 -16.4031,12.5451 -16.3558,12.5315 -16.3248,12.5462 -16.2737,12.5747 -16.2151,12.5769 -16.178,12.5661 -16.0977,12.5919 -16.0102,12.6163 -15.9797,12.6101 -15.9466,12.5821 -15.9183,12.5639 -15.8069,12.5368 -15.7861,12.5484 -15.7562,12.5733 -15.712,12.5727 -15.6734,12.5591 -15.6594,12.529 -15.6166,12.5173 -15.5574,12.5472 -15.4915,12.623 -15.5114,12.6832 -15.5244,12.7016 -15.5123,12.768 -15.4137,12.7898 -15.382,12.7829 -15.3744,12.8186 -15.4283,12.8176 -15.5093,12.7914 -15.536,12.7597 -15.5468,12.7201 -15.5371,12.7022 -15.522,12.6402 -15.5333,12.6191 -15.6009,12.5576 -15.6278,12.543 -15.6486,12.5596 -15.6491,12.5883 -15.6805,12.6004 -15.7496,12.6052 -15.8279,12.5942 -15.8877,12.58 -15.9273,12.6024 -15.9641,12.6394 -15.997,12.6873 -16.0033,12.7107 -16.028,12.6438 -16.0532,12.6204 -16.1398,12.5937 -16.1871,12.5983 -16.2756,12.5873 -16.331,12.5681 -16.3488,12.5504 -16.4029,12.5628 -16.4336,12.5801 -16.5521,12.6571 -16.5783,12.7214 -16.575,12.7692 -16.6302,12.7073 -16.6309,12.6719 -16.6279,12.6474 -16.6277,12.6182 -16.6989,12.5672 -16.7339,12.5506 -16.7561,12.5651 -16.7744,12.6982 -16.7811,12.7931 -16.7775,12.8134 -16.7584,12.844 -16.7384,12.8837 -16.7302,12.9863 -16.7291,13.0115 -16.7301,13.032 -16.7317,13.0453 -16.6813,13.1426 -16.5993,13.1505 -15.9804,13.1483 -15.8774,13.146 -15.8444,13.1449 -15.7915,13.1451 -15.7912,13.2305 -15.7885,13.3246 -15.4003,13.3603 -15.3427,13.3515 -15.3163,13.3511 -15.2729,13.3579 -15.2467,13.3682 -15.2295,13.3789 -15.2069,13.3984 -15.1932,13.4191 -15.187,13.4471 -15.1864,13.4727 -15.184,13.51 -15.1576,13.5377 -15.1302,13.5712 -15.0942,13.5806 -15.0648,13.5464 -15.028,13.513 -14.9722,13.4781 -14.9552,13.4677 -14.9374,13.4571 -14.9082,13.4455 -14.8162,13.4204 -14.7533,13.4094 -14.7384,13.3894 -14.7183,13.3608 -14.6976,13.3458 -14.6698,13.3358 -14.6307,13.329 -14.5309,13.321 -14.5044,13.299 -14.372,13.2339 -14.3348,13.2229 -14.1982,13.216 -14.1719,13.2185 -14.1353,13.2318 -14.1139,13.2459 -14.0794,13.2702 -14.0327,13.2797 -13.9768,13.2879 -13.8571,13.3061 -13.8422,13.3131 -13.8341,13.3183 -13.8082,13.3411 -13.7874,13.3695 -13.7825,13.3983 -13.7877,13.4282 -13.8114,13.4655 -13.8297,13.4819 -13.8524,13.4932 -13.871,13.5294 -13.9032,13.5532 -13.9643,13.5675 -14.0662,13.5454 -14.1595,13.5112 -14.1821,13.5014 -14.2064,13.4834 -14.2206,13.4665 -14.3183,13.4392 -14.3531,13.452 -14.3816,13.4682 -14.4127,13.4897 -14.4298,13.5113 -14.4561,13.5195 -14.4611,13.5558 -14.4667,13.5786 -14.4878,13.613 -14.5188,13.6354 -14.5456,13.6469 -14.5821,13.655 -14.6087,13.6526 -14.629,13.6477 -14.6514,13.6383 -14.6801,13.6171 -14.6994,13.5983 -14.7747,13.6382 -14.7766,13.6635 -14.7849,13.694 -14.7989,13.7259 -14.8116,13.7414 -14.8389,13.7632 -14.8429,13.7656 -14.8657,13.7779 -14.8944,13.7871 -15.0527,13.8109 -15.1468,13.7796 -15.1991,13.7486 -15.2335,13.7296 -15.2539,13.7552 -15.2825,13.7749 -15.3188,13.7775 -15.3465,13.7659 -15.4024,13.7281 -15.4178,13.7148 -15.4376,13.6932 -15.4564,13.6539 -15.4662,13.6256 -15.4702,13.5756 -15.5567,13.5755 -15.6276,13.576 -15.9111,13.5776 -16.0701,13.5771 -16.1521,13.5773 -16.5464,13.5749 -16.6009,13.6432 -16.623,13.6815 -16.6192,13.7375 -16.6059,13.7617 -16.5807,13.7919 -16.5539,13.8178 -16.5214,13.8273 -16.5018,13.8167 -16.4781,13.8519 -16.4715,13.9425 -16.5409,13.8472 -16.679,13.7552 -16.7159,13.8011 -16.72,13.8257 -16.726,13.9378 -16.6995,13.9674 -16.6679,13.9772 -16.6381,13.9627 -16.6194,13.9462 -16.5589,13.986 -16.553,14.0064 -16.54,14.0381 -16.4867,14.0895 -16.3928,14.13 -16.3461,14.1467 -16.3482,14.1508 -16.3656,14.1469 -16.4337,14.1585 -16.4939,14.1276 -16.5248,14.0757 -16.5421,14.0517 -16.6168,13.9878 -16.6412,13.9846 -16.7563,13.9971 -16.7783,14.0744 -16.7936,14.1069 -16.8379,14.1412 -16.8569,14.1627 -16.8809,14.2475 -16.9277,14.3594 -16.952,14.3891 -16.9807,14.412 -17.0162,14.4255 -17.0424,14.438 -17.0694,14.4706 -17.1015,14.5305 -17.1278,14.5975 -17.143,14.6222 -17.1552,14.638 -17.1745,14.6537 -17.2054,14.6721 -17.317,14.7171 -17.3701,14.7237 -17.4002,14.7147 -17.4108,14.6925 -17.407,14.6582 -17.4257,14.6406 -17.5119,14.7338 -17.4629,14.7531 -17.4404,14.7561 -17.403,14.7666 -17.3627,14.7802 -17.2132,14.8527 -17.1604,14.8791 -17.1466,14.8866 -17.1255,14.9015 -17.1087,14.9146 -16.9532,15.0933 -16.8591,15.2075 -16.8094,15.2951 -16.7727,15.3678 -16.7568,15.3934 -16.7219,15.4424 -16.7107,15.4572 -16.703,15.4652 -16.6877,15.4848 -16.6501,15.5379 -16.5264,15.7393 -16.5168,15.7687 -16.5199,15.7878 -16.5275,15.799 -16.5126,15.996 -16.5075,16.0422 -16.4868,16.0762 -16.37,16.2027 -16.3477,16.2556 -16.3378,16.3045 -16.3252,16.3628 -16.302,16.4379 -16.2826,16.4808 -16.2656,16.4985 -16.1261,16.5334 -16.0959,16.5311 -16.0799,16.5083 -16.0371,16.4652 -15.9663,16.4717 -15.8965,16.4915 -15.869,16.4941 -15.8037,16.4832 -15.7291,16.4706 -15.6774,16.4616 -15.6513,16.4628 -15.5573,16.4948 -15.4913,16.5383 -15.4225,16.5608 -15.3363,16.5431 -15.2174,16.5408 -15.0701,16.5897 -15.0033,16.6202 -14.9858,16.6516 -14.9664,16.6719 -14.9433,16.666 -14.94,16.6541 -14.9336,16.6297 -14.8888,16.6168 -14.8368,16.6186 -14.7386,16.626 -14.6217,16.617 -14.4872,16.6079 -14.4362,16.6168 -14.3985,16.6319 -14.3261,16.6175 -14.2017,16.5248 -14.0128,16.3395 -13.9674,16.2818 -13.9526,16.2157 -13.7994,16.1173 -13.6867,16.1609 -13.6824,16.1491 -13.6939,16.1184 -13.6515,16.081 -13.623,16.098 -13.5636,16.1177 -13.504,16.1144 -13.3791,16.0375 -13.3086,15.9117 -13.2298,15.6631 -13.169,15.612 -13.087,15.5041 -13.0759,15.4794 -13.041,15.4626 -12.9479,15.4833 -12.9246,15.3757 -12.9144,15.3484 -12.8918,15.3347 -12.8639,15.3202 -12.8452,15.3075 -12.8264,15.2796 -12.8345,15.2489 -12.8703,15.2449 -12.8341,15.191 -12.7681,15.1326 -12.6929,15.0809 -12.6708,15.0711 -12.6475,15.0878 -12.6143,15.0829 -12.4639,14.9908 -12.437,14.9244 -12.4331,14.8892 -12.381,14.8366 -12.269,14.7695 -12.2304,14.7479 -12.2304,14.7479 18,6.5,Myanmar (Burma) 97.4015,16.4869 97.4863,16.4643 97.4967,16.4582 97.4997,16.4468 97.5001,16.429 97.4588,16.2254 97.4524,16.2156 97.4406,16.2128 97.4289,16.214 97.4039,16.2222 97.3854,16.2376 97.376,16.2493 97.3491,16.2997 97.3316,16.4267 97.3503,16.4685 97.387,16.485 97.4015,16.4869 97.4015,16.4869 19,-6.0,Honduras -86.5228,16.2521 -86.5297,16.2552 -86.5306,16.2751 -86.5178,16.2922 -86.5041,16.3103 -86.4924,16.3197 -86.4825,16.324 -86.3422,16.388 -86.3021,16.4043 -86.2333,16.4177 -86.1996,16.4137 -86.1597,16.4049 -86.1756,16.3979 -86.2117,16.3947 -86.2701,16.3814 -86.4706,16.2918 -86.4947,16.2786 -86.5228,16.2521 -86.5228,16.2521 24,6.5,Myanmar (Burma) 94.5347,16.227 94.5443,16.2147 94.5546,16.1882 94.5574,16.1664 94.5471,16.117 94.5381,16.0966 94.472,15.9938 94.3031,15.8505 94.2702,15.9512 94.2687,15.9668 94.2805,15.9848 94.2985,15.9949 94.31,15.998 94.3384,16.009 94.3523,16.0194 94.3716,16.0408 94.3894,16.0689 94.4174,16.1077 94.4581,16.1613 94.4876,16.1985 94.5193,16.2224 94.5298,16.226 94.5347,16.227 94.5347,16.227 332,-6.0,Honduras -88.1094,15.707 -88.106,15.7033 -88.0908,15.6877 -88.0643,15.6702 -88.0318,15.6653 -88.0052,15.6783 -87.9265,15.7688 -87.8112,15.8471 -87.7596,15.8699 -87.6998,15.8823 -87.6426,15.8798 -87.6222,15.9002 -87.6027,15.9036 -87.5236,15.8652 -87.4892,15.8449 -87.4209,15.7852 -87.37,15.7668 -87.3406,15.7689 -87.2779,15.8037 -87.2087,15.8183 -87.182,15.8102 -87.0592,15.7819 -86.8609,15.7413 -86.8351,15.7387 -86.7937,15.7379 -86.7148,15.7539 -86.6937,15.7664 -86.6241,15.7706 -86.3849,15.7834 -86.3317,15.7626 -86.3147,15.7539 -86.3003,15.7502 -86.2547,15.752 -86.1684,15.7938 -86.1461,15.8101 -86.126,15.8391 -86.0834,15.863 -86.0215,15.8779 -85.9996,15.8792 -85.9416,15.8774 -85.9173,15.8772 -85.8884,15.8806 -85.8492,15.8993 -85.8215,15.9209 -85.8074,15.938 -85.8041,15.9744 -85.835,15.9841 -85.8655,15.983 -85.9087,16.0039 -85.821,16.0022 -85.739,15.9927 -85.6617,15.979 -85.5558,15.9384 -85.5266,15.9181 -85.4963,15.9044 -85.4556,15.8888 -85.3939,15.8712 -85.2975,15.8731 -85.1436,15.8811 -85.0754,15.891 -85.0079,15.9085 -84.9863,15.9277 -84.9705,15.9428 -84.9488,15.9567 -84.925,15.9672 -84.8952,15.9736 -84.8189,15.9597 -84.5761,15.8594 -84.5261,15.8115 -84.5202,15.7829 -84.4979,15.7578 -84.4102,15.7648 -84.34,15.8082 -84.4246,15.8284 -84.3785,15.8325 -84.1595,15.8083 -84.0148,15.6851 -83.9375,15.6139 -83.7555,15.4429 -83.8103,15.4604 -83.8428,15.4935 -83.9107,15.5184 -84.0615,15.5331 -84.109,15.5285 -84.0995,15.5013 -84.0007,15.357 -83.9742,15.3322 -83.8113,15.2227 -83.7302,15.2541 -83.7934,15.3028 -83.853,15.326 -83.8832,15.3302 -83.9058,15.3477 -83.9277,15.3839 -83.8986,15.3974 -83.8639,15.3903 -83.8233,15.3708 -83.7194,15.3046 -83.6715,15.2632 -83.6588,15.1797 -83.6452,15.1838 -83.5293,15.251 -83.4798,15.2439 -83.432,15.2519 -83.4204,15.231 -83.4286,15.2003 -83.4474,15.1816 -83.4638,15.2041 -83.4902,15.2158 -83.5242,15.1725 -83.5168,15.1533 -83.4711,15.1412 -83.3976,15.186 -83.3972,15.2154 -83.4079,15.2634 -83.4333,15.2796 -83.4666,15.2913 -83.5169,15.33 -83.4063,15.2839 -83.3382,15.2591 -83.2941,15.2393 -83.2574,15.2079 -83.2341,15.1561 -83.2264,15.1224 -83.2085,15.079 -83.1837,15.0491 -83.1681,15.0368 -83.133,15.0161 -83.0915,14.9993 -83.0333,14.9761 -83.0601,14.9706 -83.131,14.9651 -83.2254,14.9882 -83.26,14.9982 -83.285,15.0054 -83.3866,14.9893 -83.4474,14.9318 -83.4679,14.9015 -83.7436,14.7691 -83.7654,14.7615 -83.839,14.7376 -83.8797,14.739 -83.9361,14.738 -84.0973,14.7001 -84.1613,14.6658 -84.3813,14.6024 -84.5888,14.6621 -84.6969,14.7975 -84.7263,14.8125 -84.8096,14.7903 -84.8841,14.725 -84.8953,14.7099 -84.9301,14.6535 -84.9189,14.5819 -84.9276,14.5645 -84.9615,14.5373 -84.9807,14.5283 -85.0467,14.4729 -85.0811,14.4106 -85.0799,14.3694 -85.0602,14.3437 -85.0598,14.3198 -85.0811,14.2988 -85.1178,14.2805 -85.1548,14.2825 -85.1769,14.2798 -85.1991,14.2737 -85.2227,14.2605 -85.2787,14.2198 -85.3104,14.1553 -85.3173,14.13 -85.3377,14.1068 -85.4449,14.0302 -85.4585,14.0278 -85.6298,13.947 -85.6491,13.8695 -85.6259,13.8491 -85.63,13.8177 -85.6377,13.8131 -85.6953,13.8213 -85.73,13.8441 -85.8691,13.9433 -85.8966,13.9647 -85.9209,13.9899 -85.9088,14.0396 -85.9702,14.0404 -86.0198,14.0151 -86.0328,13.9795 -86.2262,13.748 -86.3017,13.7338 -86.3704,13.7489 -86.4665,13.7639 -86.6111,13.7595 -86.6587,13.7389 -86.6645,13.6954 -86.6515,13.5525 -86.628,13.4505 -86.6117,13.4194 -86.5972,13.3392 -86.5974,13.284 -86.6371,13.249 -86.6464,13.2461 -86.6766,13.2689 -86.7185,13.2837 -86.7608,13.2685 -86.8036,13.2338 -86.819,13.1802 -86.8147,13.1486 -86.8261,13.0683 -86.8572,13.0223 -86.9243,12.9736 -86.9501,12.9706 -86.9942,12.9842 -87.2024,12.972 -87.2165,13.015 -87.2423,13.075 -87.2613,13.0946 -87.3432,13.1805 -87.4122,13.2626 -87.4009,13.2833 -87.3447,13.3351 -87.2802,13.3589 -87.2809,13.3754 -87.2986,13.3975 -87.3493,13.3997 -87.3746,13.3727 -87.3716,13.3462 -87.4314,13.3316 -87.4569,13.3492 -87.5065,13.3646 -87.5141,13.3908 -87.5145,13.4252 -87.5374,13.4442 -87.551,13.4061 -87.5597,13.3706 -87.5811,13.3478 -87.6105,13.3387 -87.638,13.3406 -87.6641,13.3542 -87.7151,13.3906 -87.6501,13.4281 -87.613,13.456 -87.6109,13.4666 -87.6149,13.4896 -87.6544,13.4995 -87.6829,13.509 -87.6763,13.5573 -87.6242,13.718 -87.5936,13.8035 -87.6064,13.8071 -87.6244,13.819 -87.6489,13.8486 -87.6996,13.8814 -87.7961,13.8838 -87.8069,13.8802 -87.8389,13.8796 -87.8516,13.8805 -87.9044,13.8597 -87.9387,13.9155 -87.9583,13.9483 -88.02,13.975 -88.0598,13.9613 -88.0947,13.9721 -88.1331,13.9249 -88.1577,13.89 -88.2172,13.8732 -88.2432,13.8594 -88.2501,13.8524 -88.274,13.8669 -88.3012,13.8684 -88.3297,13.8546 -88.3658,13.8393 -88.3866,13.8504 -88.3971,13.9004 -88.3925,13.9547 -88.4041,13.9669 -88.5272,13.9991 -88.5589,13.9986 -88.6031,14.0287 -88.6166,14.0767 -88.6312,14.0997 -88.6491,14.1189 -88.6693,14.1177 -88.7032,14.0805 -88.7245,14.0846 -88.7282,14.0984 -88.7363,14.1226 -88.7572,14.1554 -88.772,14.1717 -88.7945,14.1878 -88.817,14.1901 -88.8526,14.178 -88.8561,14.2011 -88.8572,14.2061 -88.8742,14.238 -88.9208,14.3117 -88.9335,14.3189 -89.0158,14.3086 -89.0705,14.3389 -89.109,14.3599 -89.1935,14.385 -89.2113,14.388 -89.2278,14.3944 -89.2437,14.4158 -89.2461,14.4554 -89.1311,14.5664 -89.0924,14.5687 -89.0329,14.6685 -89.026,14.6986 -89.0499,14.7173 -89.1164,14.8278 -89.1176,14.8554 -89.1009,14.8769 -89.0805,14.8911 -89.0702,14.9076 -89.0492,14.964 -89.0718,14.9818 -89.0649,15.0133 -89.0523,15.04 -89.0446,15.0566 -89.0369,15.0601 -88.8747,15.1189 -88.7315,15.2303 -88.6525,15.2785 -88.5628,15.3329 -88.447,15.4327 -88.3809,15.4875 -88.2222,15.6179 -88.2098,15.6497 -88.1344,15.6965 -88.1094,15.707 -88.1094,15.707 54,3.0,Eritrea 39.9525,15.8679 39.9677,15.8672 40.0396,15.834 40.0933,15.7842 40.088,15.7351 40.0807,15.7142 40.0813,15.7013 40.0845,15.6846 40.0947,15.6541 40.1014,15.6402 40.1202,15.6223 40.19,15.6121 40.2039,15.6381 40.1859,15.6485 40.172,15.6582 40.1778,15.6728 40.1901,15.6812 40.2043,15.6846 40.2144,15.6846 40.2359,15.6835 40.2484,15.6815 40.2654,15.6771 40.3546,15.6209 40.3617,15.6007 40.3692,15.5576 40.348,15.5554 40.2789,15.5574 40.205,15.5725 40.0717,15.5869 40.0601,15.5707 40.0408,15.5686 40.0017,15.5707 39.9332,15.5856 39.9111,15.607 39.91,15.66 39.9356,15.6474 39.977,15.6256 39.9896,15.6219 40.0116,15.6313 40.0315,15.6462 40.013,15.6719 39.9717,15.714 39.9615,15.7184 39.9247,15.7246 39.9013,15.7208 39.8858,15.7268 39.8738,15.739 39.8806,15.7685 39.9347,15.7969 39.9815,15.8046 39.9909,15.8091 39.9928,15.8199 39.9525,15.8679 39.9525,15.8679 15,3.0,Yemen 42.5383,15.2537 42.5306,15.2572 42.5149,15.2729 42.5056,15.2871 42.518,15.3727 42.5279,15.3939 42.5579,15.4332 42.5945,15.44 42.6089,15.4302 42.6009,15.3736 42.5835,15.3227 42.5637,15.2848 42.5467,15.2575 42.5383,15.2537 42.5383,15.2537 315,0.0,Burkina Faso 2.3952,11.883 2.3901,11.8741 2.3384,11.7556 2.3063,11.6754 2.2599,11.6331 2.1917,11.5908 2.0501,11.4421 2.0249,11.4185 2.018,11.4135 2.0078,11.408 1.9872,11.4045 1.8952,11.4186 1.8726,11.4301 1.8019,11.4267 1.7353,11.4033 1.6106,11.376 1.5846,11.3928 1.5682,11.4384 1.5414,11.4449 1.4811,11.447 1.4339,11.446 1.4271,11.4387 1.4152,11.4369 1.3887,11.4209 1.3268,11.3304 1.3424,11.3026 1.2633,11.2338 1.1917,11.2527 1.1476,11.2118 1.0819,11.1101 0.9844,11.067 0.9492,11.0173 0.917,10.984 0.8112,10.9846 0.7237,10.9847 0.6653,10.984 0.6301,10.9716 0.5038,10.9249 0.5142,10.9631 0.5051,10.9922 0.4164,11.0121 0.2187,11.0517 0.1898,11.0583 0.0504,11.0865 -0.0894,11.1149 -0.142,11.1253 -0.1495,11.1261 -0.1764,11.1322 -0.2864,11.1432 -0.3636,11.0726 -0.6175,10.9016 -0.665,10.9445 -0.6776,10.9763 -0.6789,10.9855 -0.7834,10.9859 -0.901,10.9946 -0.9858,11.0023 -1.0906,10.9936 -1.3709,10.9877 -1.4178,11.0141 -1.5583,11.0114 -1.5688,10.9882 -1.7265,10.9882 -1.989,10.988 -2.2971,10.9887 -2.7318,10.9896 -2.8307,10.9896 -2.8301,10.9454 -2.8338,10.8739 -2.9037,10.7253 -2.924,10.6961 -2.9128,10.6434 -2.9128,10.5861 -2.8884,10.5076 -2.8304,10.354 -2.7873,10.2594 -2.7683,10.2056 -2.791,10.1517 -2.7921,10.0437 -2.7738,9.9971 -2.7601,9.7898 -2.7908,9.7216 -2.7819,9.6776 -2.7483,9.6455 -2.7414,9.6423 -2.7582,9.6165 -2.7663,9.5903 -2.7659,9.5591 -2.7417,9.5336 -2.7109,9.5107 -2.6859,9.477 -2.6824,9.4712 -2.7283,9.4005 -2.7537,9.3854 -2.7763,9.3932 -2.7981,9.4135 -2.8474,9.471 -2.9174,9.5662 -2.9342,9.6169 -2.9657,9.6889 -2.9827,9.7137 -3.1203,9.825 -3.2047,9.8903 -3.3901,9.9089 -3.6328,9.9434 -3.7023,9.9326 -3.7491,9.9239 -3.8779,9.8869 -3.8862,9.8832 -3.899,9.8711 -3.9319,9.8523 -4.0294,9.796 -4.1193,9.8183 -4.2571,9.732 -4.2746,9.6651 -4.2783,9.641 -4.3074,9.5893 -4.3257,9.6045 -4.4211,9.6466 -4.5095,9.6795 -4.5996,9.7101 -4.6497,9.6923 -4.6991,9.6873 -4.7697,9.7257 -4.8046,9.767 -4.7799,9.772 -4.781,9.8171 -4.8249,9.8515 -4.9439,9.9377 -4.9847,10.0529 -5.1222,10.2918 -5.2381,10.3084 -5.2625,10.3076 -5.3015,10.2937 -5.3324,10.2857 -5.3652,10.2781 -5.3978,10.2862 -5.4642,10.3366 -5.5144,10.4162 -5.5136,10.4247 -5.4772,10.5155 -5.467,10.6208 -5.4582,10.6874 -5.4502,10.7096 -5.4384,10.7514 -5.4049,10.8295 -5.4132,10.8575 -5.437,10.8853 -5.4732,10.9902 -5.4803,11.0211 -5.4793,11.0648 -5.4573,11.0747 -5.3879,11.082 -5.3566,11.0892 -5.316,11.1078 -5.2935,11.1271 -5.2419,11.2401 -5.2025,11.4491 -5.1956,11.5253 -5.2178,11.5758 -5.2625,11.674 -5.2816,11.775 -5.2671,11.8306 -5.1622,11.9224 -5.141,11.9393 -5.1117,11.9512 -5.0738,11.9624 -4.9369,11.9952 -4.6933,12.0494 -4.628,12.0539 -4.6251,12.0798 -4.6193,12.1019 -4.5641,12.1877 -4.4772,12.261 -4.4123,12.2871 -4.431,12.4153 -4.4134,12.4589 -4.3919,12.4908 -4.3655,12.5147 -4.4234,12.6151 -4.4481,12.624 -4.4697,12.6512 -4.4649,12.6996 -4.4635,12.7097 -4.284,12.7007 -4.258,12.7036 -4.216,12.7213 -4.2015,12.7551 -4.1897,12.8142 -4.2024,12.9339 -4.2125,12.955 -4.2502,12.9821 -4.2722,13.007 -4.3305,13.105 -4.3087,13.1498 -4.2318,13.2262 -4.187,13.2611 -4.1517,13.2636 -3.9714,13.4611 -3.9596,13.4889 -3.9516,13.4864 -3.8986,13.4334 -3.7813,13.3443 -3.6127,13.2089 -3.5845,13.1879 -3.5337,13.1637 -3.5043,13.1641 -3.4446,13.1567 -3.4336,13.1519 -3.4231,13.1694 -3.4205,13.1967 -3.4281,13.2208 -3.4384,13.2463 -3.4218,13.2615 -3.3899,13.2618 -3.3699,13.2624 -3.2284,13.2732 -3.23,13.3078 -3.2333,13.345 -3.2564,13.4813 -3.2693,13.5352 -3.2537,13.6815 -3.2072,13.6928 -3.0956,13.6708 -2.9549,13.6139 -2.9385,13.6179 -2.8786,13.6491 -2.9011,13.7063 -2.9001,13.807 -2.8366,13.9899 -2.8119,14.0347 -2.6435,14.146 -2.5966,14.1958 -2.4622,14.2703 -2.3812,14.2496 -2.2866,14.2223 -2.2421,14.202 -2.1011,14.1367 -2.0045,14.1718 -1.994,14.2922 -1.9898,14.3267 -1.9869,14.3608 -1.9818,14.3944 -1.9783,14.4585 -1.9051,14.4724 -1.7754,14.4649 -1.676,14.4844 -1.3601,14.6848 -1.3172,14.7122 -1.0923,14.7678 -1.0725,14.7605 -1.0017,14.8237 -0.7241,15.0659 -0.443,15.0658 -0.3862,14.9884 -0.2458,15.0606 1.0E-4,14.9777 0.235,14.8985 0.2321,14.8637 0.2116,14.8475 0.1962,14.8257 0.2411,14.736 0.2253,14.6845 0.1665,14.5068 0.1892,14.4487 0.2327,14.4092 0.2962,14.3513 0.3208,14.3468 0.3843,14.2678 0.4082,14.2291 0.392,14.1649 0.3546,14.1151 0.4646,13.898 0.5149,13.8387 0.6068,13.6837 0.6244,13.6689 0.7856,13.6538 0.9956,13.551 1.0146,13.5086 1.0143,13.4727 1.0304,13.4477 1.1228,13.3986 1.1696,13.3815 1.2053,13.3728 1.2418,13.3749 1.2753,13.3331 1.1784,13.2986 1.1067,13.3203 1.0721,13.3357 1.0429,13.3486 1.0107,13.3578 0.9905,13.3568 0.9898,13.3218 0.9881,13.076 0.9883,13.0329 1.0104,13.0096 1.1162,12.9966 1.3207,12.8283 1.5765,12.6159 1.8698,12.595 1.9259,12.6863 1.9867,12.717 2.1041,12.7006 2.1398,12.6799 2.1985,12.6168 2.2183,12.5797 2.2538,12.4671 2.2333,12.4048 2.1594,12.4018 2.0749,12.3697 2.0563,12.3433 2.3183,11.9865 2.3896,11.8909 2.3952,11.883 2.3952,11.883 46,8.0,Philippines 121.7967,14.6108 121.7881,14.6128 121.7752,14.6195 121.7696,14.6288 121.7651,14.6486 121.7622,14.666 121.7661,14.7025 121.7732,14.6933 121.7883,14.6873 121.7953,14.6974 121.7923,14.7143 121.7862,14.7341 121.7703,14.7742 121.7248,14.8611 121.6863,14.9115 121.6637,14.9069 121.664,14.9322 121.6718,14.9649 121.6749,14.975 121.693,15.0103 121.7042,15.0193 121.7912,15.0403 121.8211,15.0372 121.8509,15.0284 121.8699,15.0206 121.9031,14.9904 121.9063,14.98 121.914,14.9454 121.9099,14.9365 121.8999,14.9551 121.8839,14.9715 121.8668,14.9687 121.8503,14.9377 121.8243,14.8845 121.8242,14.8693 121.8254,14.851 121.8318,14.8406 121.8497,14.8186 121.879,14.7907 121.8883,14.6958 121.8752,14.6709 121.86,14.6502 121.8366,14.6268 121.8071,14.6122 121.7967,14.6108 121.7967,14.6108 272,-5.0,Nicaragua -83.0333,14.9761 -83.098,14.9399 -83.2272,14.896 -83.2507,14.8844 -83.2704,14.8657 -83.3032,14.8251 -83.3206,14.7929 -83.2755,14.7305 -83.244,14.7144 -83.2268,14.7253 -83.18,14.6305 -83.1432,14.5362 -83.1101,14.4299 -83.0973,14.3715 -83.0906,14.3374 -83.0901,14.3081 -83.0953,14.2837 -83.1176,14.2357 -83.1612,14.1627 -83.2481,14.0381 -83.2797,14.0088 -83.3017,13.9921 -83.3298,13.952 -83.348,13.906 -83.3764,13.803 -83.3815,13.7814 -83.3978,13.7115 -83.4175,13.6204 -83.4555,13.4357 -83.4625,13.383 -83.4675,13.3413 -83.4696,13.2612 -83.4689,13.2145 -83.4652,13.1738 -83.4621,13.1527 -83.4379,13.029 -83.4074,12.8892 -83.4111,12.8444 -83.4219,12.8178 -83.4269,12.7986 -83.4453,12.6388 -83.4453,12.5879 -83.4388,12.5444 -83.4272,12.5128 -83.4104,12.484 -83.3892,12.4519 -83.3849,12.4102 -83.4013,12.3771 -83.4772,12.3761 -83.5063,12.3972 -83.5389,12.4659 -83.5411,12.4959 -83.5302,12.5428 -83.481,12.5515 -83.4679,12.5712 -83.4428,12.7563 -83.4462,12.7768 -83.4644,12.7917 -83.5083,12.804 -83.5495,12.7826 -83.5514,12.7362 -83.5266,12.7252 -83.4999,12.6715 -83.4971,12.6107 -83.6023,12.539 -83.6419,12.4672 -83.6127,12.3146 -83.5759,12.2647 -83.5745,12.2207 -83.5837,12.0372 -83.629,12.0548 -83.6457,12.0313 -83.6563,12.0004 -83.6711,11.9188 -83.7071,11.8826 -83.7346,11.8625 -83.708,11.8196 -83.6825,11.7895 -83.649,11.794 -83.6528,11.8188 -83.6349,11.848 -83.6049,11.829 -83.5833,11.7526 -83.5778,11.7303 -83.5621,11.6493 -83.5607,11.59 -83.5865,11.5877 -83.6656,11.5417 -83.7489,11.4082 -83.7649,11.3797 -83.7742,11.3509 -83.7788,11.3246 -83.7785,11.3014 -83.763,11.2036 -83.7549,11.1621 -83.7194,11.0683 -83.6958,11.0267 -83.6687,10.984 -83.6501,10.9616 -83.625,10.931 -83.5621,10.9175 -83.5535,10.9127 -83.5702,10.8766 -83.5626,10.8126 -83.5681,10.7899 -83.592,10.7751 -83.6593,10.7586 -83.6687,10.7592 -83.6802,10.7583 -83.7353,10.7343 -83.7778,10.7107 -83.8284,10.6978 -83.8662,10.7225 -83.9047,10.7547 -83.9481,10.7662 -83.9877,10.7549 -84.0235,10.7519 -84.0653,10.7722 -84.1007,10.7715 -84.1323,10.8001 -84.1806,10.8867 -84.25,10.9419 -84.5811,11.0656 -84.8092,10.9285 -84.9939,10.9977 -85.0397,11.0149 -85.0707,11.0303 -85.0799,11.0324 -85.1274,11.0528 -85.1721,11.0722 -85.2653,11.1098 -85.3264,11.114 -85.4324,11.1537 -85.4695,11.1972 -85.5191,11.2003 -85.5979,11.0639 -85.6399,11.0756 -85.6909,11.1013 -85.7053,11.1413 -85.7276,11.1778 -85.8258,11.2875 -85.953,11.3892 -86.0457,11.4532 -86.0802,11.5062 -86.1695,11.5678 -86.2865,11.6576 -86.3041,11.6733 -86.4007,11.7465 -86.4086,11.7512 -86.4228,11.7867 -86.4541,11.8321 -86.5413,11.9547 -86.5643,11.9774 -86.5749,11.9865 -86.5797,11.9932 -86.6097,12.0396 -86.6275,12.0734 -86.6541,12.133 -86.6696,12.1696 -86.6827,12.1926 -86.8237,12.279 -86.8696,12.3058 -86.9231,12.3392 -86.9851,12.3849 -87.0419,12.4301 -87.0244,12.4434 -87.0442,12.4503 -87.0989,12.4866 -87.2584,12.6175 -87.3426,12.7185 -87.4984,12.8265 -87.5408,12.856 -87.5904,12.9033 -87.5613,12.9694 -87.4866,13.0359 -87.458,13.0369 -87.432,13.0234 -87.4109,13.0072 -87.3685,12.9563 -87.3635,12.9284 -87.3192,12.9015 -87.293,12.8943 -87.2731,12.8919 -87.199,12.9079 -87.2281,12.9125 -87.2113,12.9618 -87.2024,12.972 -86.9942,12.9842 -86.9501,12.9706 -86.9243,12.9736 -86.8572,13.0223 -86.8261,13.0683 -86.8147,13.1486 -86.819,13.1802 -86.8036,13.2338 -86.7608,13.2685 -86.7185,13.2837 -86.6766,13.2689 -86.6464,13.2461 -86.6371,13.249 -86.5974,13.284 -86.5972,13.3392 -86.6117,13.4194 -86.628,13.4505 -86.6515,13.5525 -86.6645,13.6954 -86.6587,13.7389 -86.6111,13.7595 -86.4665,13.7639 -86.3704,13.7489 -86.3017,13.7338 -86.2262,13.748 -86.0328,13.9795 -86.0198,14.0151 -85.9702,14.0404 -85.9088,14.0396 -85.9209,13.9899 -85.8966,13.9647 -85.8691,13.9433 -85.73,13.8441 -85.6953,13.8213 -85.6377,13.8131 -85.63,13.8177 -85.6259,13.8491 -85.6491,13.8695 -85.6298,13.947 -85.4585,14.0278 -85.4449,14.0302 -85.3377,14.1068 -85.3173,14.13 -85.3104,14.1553 -85.2787,14.2198 -85.2227,14.2605 -85.1991,14.2737 -85.1769,14.2798 -85.1548,14.2825 -85.1178,14.2805 -85.0811,14.2988 -85.0598,14.3198 -85.0602,14.3437 -85.0799,14.3694 -85.0811,14.4106 -85.0467,14.4729 -84.9807,14.5283 -84.9615,14.5373 -84.9276,14.5645 -84.9189,14.5819 -84.9301,14.6535 -84.8953,14.7099 -84.8841,14.725 -84.8096,14.7903 -84.7263,14.8125 -84.6969,14.7975 -84.5888,14.6621 -84.3813,14.6024 -84.1613,14.6658 -84.0973,14.7001 -83.9361,14.738 -83.8797,14.739 -83.839,14.7376 -83.7654,14.7615 -83.7436,14.7691 -83.4679,14.9015 -83.4474,14.9318 -83.3866,14.9893 -83.285,15.0054 -83.26,14.9982 -83.2254,14.9882 -83.131,14.9651 -83.0601,14.9706 -83.0333,14.9761 -83.0333,14.9761 562,3.0,Ethiopia 42.3523,12.4557 42.3188,12.4166 42.2921,12.3831 42.2783,12.3453 42.2612,12.2945 42.2449,12.2802 42.2085,12.2495 42.1221,12.1238 42.0805,12.0767 42.0118,11.9626 41.9784,11.9131 41.902,11.8034 41.8448,11.7605 41.7828,11.7279 41.752,11.6254 41.7137,11.495 41.7475,11.3683 41.766,11.2456 41.7607,11.1559 41.7568,11.0867 41.7548,11.0189 41.7437,10.9957 41.7624,10.973 41.7914,10.9609 41.8361,10.9487 41.872,10.9414 41.8944,10.9378 41.946,10.9299 41.9737,10.9326 42.0343,10.9652 42.0791,10.9874 42.1255,10.9881 42.2542,10.9992 42.3123,11.0071 42.4545,11.0514 42.5614,11.0793 42.5935,11.0848 42.701,11.0655 42.7128,11.0468 42.7222,11.011 42.7453,10.9855 42.7638,10.9761 42.8438,10.9699 42.8969,10.9903 42.8705,10.9431 42.8079,10.8801 42.7915,10.8617 42.7174,10.7684 42.618,10.621 42.6344,10.571 42.6625,10.5245 42.6756,10.5061 42.6999,10.4841 42.7393,10.444 42.7504,10.4112 42.7567,10.369 42.7593,10.3384 42.7701,10.3026 42.8037,10.2081 42.8175,10.1893 42.8442,10.1608 42.876,10.1367 42.9065,10.1211 42.9338,10.1063 42.9662,10.07 42.9878,10.0137 42.996,9.982 43.0048,9.957 43.0159,9.9379 43.0373,9.914 43.0632,9.8977 43.1005,9.8917 43.1331,9.8916 43.1568,9.8813 43.1774,9.8523 43.1903,9.7883 43.1991,9.7401 43.2131,9.6739 43.2196,9.6537 43.2278,9.635 43.2358,9.624 43.2579,9.6178 43.281,9.6089 43.3391,9.5465 43.3799,9.4746 43.3772,9.4505 43.3779,9.4243 43.3938,9.4071 43.5075,9.338 43.5351,9.3256 43.5791,9.3439 43.6794,9.2524 43.9617,8.9972 44.6008,8.7855 44.9521,8.6688 45.1396,8.6066 45.3613,8.5324 45.5655,8.4638 46.0078,8.3143 46.2799,8.2233 46.5008,8.1483 46.7384,8.0675 46.942,7.9973 46.9592,7.9922 47.0342,7.993 47.5544,7.9943 47.6931,7.9946 47.7971,7.9943 47.8487,7.9942 47.9346,7.9953 47.8502,7.9115 47.7082,7.7779 47.6044,7.6803 47.5021,7.5839 46.9385,7.0492 46.5088,6.6121 46.0617,6.1551 45.9379,6.0288 45.9035,5.9924 45.6645,5.7322 45.4375,5.4838 45.3227,5.3581 45.0447,5.0547 44.9566,4.9573 44.9486,4.9489 44.8996,4.897 44.462,4.925 44.4164,4.9279 44.2397,4.9388 44.1713,4.9428 44.0087,4.9531 43.9316,4.9575 43.9099,4.9458 43.8722,4.9291 43.8372,4.9173 43.8058,4.9084 43.7831,4.9047 43.7482,4.9001 43.7175,4.8978 43.6874,4.8951 43.6366,4.8864 43.5375,4.8547 43.5182,4.8471 43.4411,4.8171 43.3096,4.7602 43.2723,4.7433 43.1443,4.6827 43.109,4.6611 43.0319,4.5993 42.9368,4.5206 42.9202,4.4995 42.9083,4.4762 42.8976,4.4414 42.8848,4.3838 42.8712,4.3591 42.828,4.3136 42.8071,4.2999 42.783,4.2907 42.7202,4.2738 42.6924,4.2681 42.6782,4.2665 42.6078,4.2601 42.5741,4.2556 42.4376,4.2241 42.3532,4.2027 42.3221,4.1975 42.2221,4.1993 42.1881,4.2032 42.1481,4.2043 42.1039,4.1986 42.07,4.1893 42.0507,4.1819 42.0261,4.1715 41.9931,4.1384 41.9118,4.0839 41.8902,4.0482 41.8911,4.0181 41.8577,3.9758 41.8444,3.9654 41.7926,3.9443 41.7536,3.9561 41.734,3.9775 41.6786,3.9956 41.5643,3.9848 41.488,3.9717 41.4407,3.9568 41.4222,3.945 41.2272,3.9367 41.1344,3.9374 41.114,3.9417 41.0885,3.9542 41.0683,3.9716 41.047,3.9921 41.0173,4.027 41.0017,4.0559 40.9631,4.1043 40.8308,4.2121 40.8073,4.2301 40.7377,4.2831 40.626,4.224 40.3531,4.1186 40.343,4.0942 40.1371,4.0182 39.9547,3.9244 39.8214,3.8654 39.7379,3.6743 39.5503,3.4972 39.5158,3.4028 39.4744,3.4055 39.4577,3.4191 39.4552,3.4462 39.4063,3.4588 39.3781,3.4564 39.2871,3.4655 39.2844,3.496 39.2518,3.4729 39.2047,3.4676 39.1526,3.4747 39.0858,3.5069 39.0405,3.5304 39.002,3.5251 38.9126,3.5148 38.8695,3.5102 38.7661,3.5393 38.6857,3.5633 38.5784,3.5976 38.4734,3.6228 38.4047,3.5957 38.2807,3.605 38.0782,3.6079 38.0133,3.648 37.9907,3.6942 37.9553,3.7244 37.2384,4.1898 37.0881,4.2817 37.0571,4.3271 36.9978,4.3706 36.8459,4.4299 36.6704,4.4291 36.6246,4.4289 36.6058,4.4418 36.3923,4.4369 36.2304,4.4343 36.1702,4.4431 36.0042,4.442 35.9104,4.5162 35.8996,4.6176 35.884,4.635 35.7338,4.7935 35.7392,5.077 35.7618,5.0997 35.7829,5.131 35.7898,5.1627 35.7642,5.2012 35.7555,5.2295 35.7578,5.2598 35.7809,5.3229 35.7561,5.3252 35.7342,5.3312 35.7131,5.3409 35.6856,5.3585 35.4873,5.4209 35.4644,5.4253 35.4033,5.4194 35.3789,5.3926 35.3124,5.3448 35.2859,5.351 35.2628,5.3716 35.2304,5.4322 35.2371,5.4521 35.2524,5.4814 35.2497,5.5019 35.0641,5.6261 35.0653,5.6819 34.9885,5.8077 34.9467,5.8716 34.9362,5.958 34.9483,6.0074 34.9418,6.0545 34.9299,6.0797 34.9125,6.0968 34.8827,6.1254 34.831,6.2306 34.8198,6.2605 34.817,6.2842 34.8107,6.3597 34.7176,6.6065 34.6656,6.6703 34.6399,6.6925 34.6156,6.7093 34.5929,6.7215 34.5638,6.7274 34.5145,6.7282 34.4898,6.7396 34.448,6.8699 34.4329,6.9066 34.392,6.9278 34.3221,6.9512 34.29,6.9511 34.2608,6.9567 34.242,6.9681 34.1972,7.0118 34.1851,7.0347 34.1554,7.0823 34.1248,7.1638 34.0608,7.1916 33.9887,7.24 33.9914,7.272 33.9943,7.2963 33.9895,7.3704 33.8475,7.5171 33.6745,7.6501 33.6096,7.6765 33.4268,7.7355 33.4018,7.7358 33.2203,7.7549 33.0597,7.7726 33.0151,7.7822 32.9779,7.8373 32.9598,7.8785 32.9549,7.9173 32.995,7.9886 33.0843,8.092 33.1258,8.1062 33.1489,8.1314 33.1412,8.2133 33.1289,8.269 33.1239,8.3472 33.1342,8.3905 33.2266,8.4521 33.2896,8.4442 33.3435,8.4284 33.4713,8.457 33.5971,8.4576 33.6324,8.4278 33.6528,8.3861 33.6776,8.3659 33.7335,8.3586 33.7521,8.3753 33.7809,8.4021 33.8149,8.4165 33.8436,8.4213 33.8777,8.4213 33.9331,8.4284 33.9643,8.451 34.0331,8.514 34.0678,8.5483 34.0837,8.5701 34.085,8.575 34.0857,8.6247 34.0922,8.7959 34.0973,8.9453 34.0632,9.3747 34.0602,9.4094 34.0577,9.4435 34.0484,9.5425 34.1025,9.7471 34.17,9.8939 34.1825,9.9626 34.1932,10.0167 34.2856,10.106 34.3109,10.227 34.3044,10.2695 34.2907,10.3387 34.2484,10.5423 34.2772,10.5748 34.3152,10.62 34.4019,10.7725 34.5564,10.8756 34.6358,10.8225 34.6727,10.7903 34.7319,10.7374 34.7623,10.7113 34.8225,10.7201 34.9369,10.8525 34.9403,10.9032 34.8949,10.9445 34.945,11.0979 34.9669,11.1621 34.9691,11.186 34.9403,11.2115 34.9327,11.2185 34.9255,11.2378 34.9287,11.2625 34.9479,11.3059 34.966,11.3364 34.9748,11.3551 35.0489,11.5229 35.0566,11.5636 35.0529,11.586 35.0395,11.6105 35.0282,11.6337 35.0194,11.7173 35.0243,11.7466 35.0449,11.7924 35.0634,11.8212 35.0773,11.8377 35.0953,11.8506 35.1293,11.8651 35.1626,11.873 35.1924,11.8848 35.2145,11.9044 35.2262,11.9204 35.2446,11.9701 35.3442,12.1521 35.6076,12.5776 35.6462,12.5881 35.66,12.6111 35.661,12.6521 35.9243,12.7015 35.9722,12.7066 35.9966,12.7009 36.0316,12.7098 36.0529,12.6921 36.0712,12.6798 36.1021,12.7009 36.1186,12.867 36.0946,12.9111 36.1015,12.9384 36.1102,12.9574 36.1282,12.9754 36.1164,13.0185 36.2074,13.353 36.3073,13.4877 36.3206,13.5046 36.3561,13.5526 36.3672,13.5799 36.3698,13.6004 36.3658,13.62 36.3673,13.6425 36.3793,13.6718 36.4291,13.7888 36.445,13.8241 36.4043,13.9413 36.497,14.2303 36.5004,14.2463 36.516,14.2729 36.5986,14.3006 36.6936,14.3112 36.7823,14.3121 36.8432,14.3043 36.9071,14.2784 36.9567,14.2456 37.0322,14.2716 37.0475,14.2963 37.0477,14.3305 37.0486,14.3554 37.0584,14.3769 37.0816,14.4096 37.1562,14.4365 37.2445,14.4356 37.2935,14.4108 37.3479,14.3404 37.3898,14.2523 37.4875,14.0987 37.5288,14.0864 37.6405,14.3441 37.794,14.6987 37.8666,14.8672 37.8817,14.8546 37.9112,14.8213 37.9338,14.7845 37.9359,14.7596 37.9738,14.7186 37.9958,14.7057 38.099,14.6669 38.144,14.6759 38.2,14.671 38.2183,14.6614 38.262,14.578 38.2886,14.5055 38.4043,14.4028 38.5164,14.4104 38.7503,14.4535 38.8476,14.4846 38.92,14.5299 38.9669,14.5729 38.9784,14.6387 39.0483,14.6273 39.0729,14.6131 39.0895,14.6015 39.1063,14.5837 39.1328,14.5482 39.1438,14.528 39.1641,14.4695 39.2173,14.4574 39.3302,14.4677 39.4364,14.4951 39.4852,14.5493 39.5676,14.4942 39.6488,14.4773 39.6798,14.4797 39.6999,14.4866 39.7335,14.4975 39.8053,14.4636 39.8405,14.4277 39.8571,14.4164 39.8991,14.4158 39.9723,14.4429 40.0702,14.4542 40.1099,14.4487 40.1325,14.4418 40.181,14.4275 40.2242,14.4088 40.2543,14.3898 40.2757,14.3716 40.3028,14.3433 40.3387,14.3092 40.3866,14.2667 40.4218,14.2454 40.5058,14.2044 40.5453,14.1873 40.5673,14.1802 40.5997,14.1731 40.6466,14.1666 40.7018,14.1571 40.7299,14.149 40.7556,14.1373 40.8624,14.0366 40.8819,14.0167 40.9609,13.9292 41.0,13.8844 41.0257,13.8512 41.0533,13.8076 41.0682,13.7816 41.0852,13.7506 41.1312,13.6666 41.1715,13.5971 41.1893,13.5803 41.3808,13.4574 41.4806,13.3963 41.5025,13.3828 41.5198,13.3717 41.5519,13.3503 41.5684,13.3386 41.7094,13.2215 41.7341,13.1973 41.7512,13.1731 41.769,13.143 41.7956,13.0911 41.7967,13.084 41.8673,12.9342 41.8794,12.9124 41.9068,12.8711 41.927,12.8491 41.9457,12.836 41.9698,12.8264 42.0007,12.8159 42.0296,12.8056 42.0503,12.7978 42.0716,12.787 42.1058,12.7641 42.1469,12.7318 42.1672,12.7117 42.2152,12.6364 42.2449,12.5842 42.259,12.5607 42.2785,12.5356 42.2972,12.5128 42.3105,12.4977 42.3523,12.4557 42.3523,12.4557 12,8.0,Philippines 122.1044,14.7016 122.0631,14.7387 122.0306,14.7524 121.9736,14.7803 121.9682,14.7895 121.9544,14.82 122.0442,14.8242 122.0676,14.8233 122.116,14.7673 122.1119,14.7082 122.1044,14.7016 122.1044,14.7016 356,7.0,Cambodia 105.088,14.3338 105.087,14.2726 105.1609,14.1625 105.253,14.0907 105.3177,14.0994 105.374,14.1196 105.4368,14.1524 105.6109,14.0954 105.6623,14.0608 105.6713,14.0172 105.686,14.0015 105.7665,13.9351 105.7883,13.9174 105.8253,13.911 105.9345,13.9144 105.9889,13.9304 106.0517,14.043 106.0449,14.0658 105.9965,14.1195 105.9116,14.2212 105.873,14.3158 105.8775,14.3514 105.9764,14.3654 106.0166,14.3626 106.0457,14.3497 106.0982,14.3655 106.1156,14.3976 106.1233,14.432 106.1278,14.4727 106.166,14.4652 106.1813,14.4436 106.1985,14.4322 106.2846,14.4421 106.3079,14.4695 106.307,14.4919 106.3499,14.548 106.4098,14.5813 106.4764,14.4934 106.5046,14.45 106.579,14.4189 106.6282,14.3935 106.6409,14.3728 106.6791,14.325 106.7261,14.288 106.9938,14.388 107.0441,14.4228 107.1087,14.4812 107.1284,14.5148 107.2219,14.5791 107.3471,14.6238 107.4204,14.6924 107.4271,14.6853 107.4322,14.6409 107.4074,14.534 107.3789,14.466 107.3553,14.4194 107.3315,14.4062 107.3071,14.4189 107.2838,14.4042 107.2504,14.3213 107.2643,14.2765 107.2601,14.2249 107.2361,14.1489 107.2197,14.1127 107.2464,14.0049 107.2589,13.989 107.3498,13.9163 107.3468,13.8258 107.3406,13.7792 107.4657,13.58 107.5064,13.5231 107.5136,13.3669 107.4842,13.2966 107.3619,13.006 107.371,12.938 107.3882,12.8698 107.3983,12.8498 107.4421,12.7967 107.4721,12.5898 107.4746,12.5406 107.4298,12.3454 107.414,12.3248 107.319,12.2411 107.3035,12.2399 107.278,12.2741 107.2584,12.2989 107.2339,12.3181 107.1766,12.309 107.1188,12.2899 107.0703,12.2735 107.0432,12.2601 106.9911,12.2024 106.9625,12.1641 106.9334,12.1258 106.8556,12.0691 106.8366,12.0612 106.7885,12.0514 106.7381,12.0539 106.6701,12.0602 106.6285,11.9868 106.6075,11.9605 106.5799,11.9494 106.5101,11.9584 106.3271,11.9689 106.3013,11.9593 106.303,11.9519 106.343,11.8719 106.3304,11.804 106.3198,11.7804 106.3302,11.6969 106.3404,11.6527 106.2994,11.6631 106.1852,11.6687 106.151,11.7048 105.9657,11.76 105.9258,11.7633 105.9049,11.7469 105.8967,11.7077 105.8439,11.6318 105.809,11.639 105.781,11.6542 105.7577,11.6576 105.736,11.6489 105.6992,11.6045 105.7021,11.5812 105.7614,11.536 105.7831,11.4225 105.766,11.3514 105.7542,11.284 105.8132,11.2078 105.8319,11.1899 106.0097,11.0744 106.0385,11.0814 106.0727,11.0416 106.0955,10.9602 106.07,10.9629 106.0356,10.9564 106.0292,10.9073 106.0598,10.8585 106.0866,10.7587 105.9659,10.7909 105.8434,10.8704 105.742,10.9044 105.665,11.0088 105.6296,11.0072 105.6059,11.0007 105.5781,10.9839 105.5192,10.9579 105.4724,10.9476 105.4386,10.9408 105.4118,10.9352 105.3151,10.9536 105.2565,10.8886 105.2461,10.8688 105.1847,10.8635 105.1183,10.8775 105.0905,10.8873 105.0762,10.894 104.9853,10.9421 104.9458,10.9082 104.9346,10.8948 104.9237,10.8698 104.9337,10.8319 104.9457,10.8115 104.9782,10.7347 104.979,10.7011 104.9447,10.6814 104.8673,10.6417 104.8395,10.6196 104.824,10.6 104.8147,10.5818 104.8033,10.5653 104.7793,10.5325 104.7628,10.5188 104.7358,10.5096 104.6861,10.5084 104.6557,10.5101 104.6183,10.5133 104.6007,10.5167 104.587,10.5196 104.5553,10.5252 104.4804,10.521 104.4518,10.4902 104.4341,10.4537 104.3734,10.4114 104.3309,10.4111 104.2317,10.4813 104.1621,10.5317 104.137,10.5545 104.0498,10.55 104.0135,10.546 103.9795,10.5359 103.9184,10.5479 103.8908,10.5551 103.8171,10.5763 103.7133,10.5338 103.6908,10.5198 103.645,10.5204 103.6227,10.4845 103.5214,10.4784 103.4081,10.5926 103.4026,10.6263 103.4448,10.7014 103.4748,10.7193 103.5707,10.7288 103.5524,10.7441 103.5626,10.7884 103.5792,10.8003 103.6034,10.8246 103.608,10.854 103.6054,10.8756 103.5978,10.9004 103.5526,11.0154 103.4418,11.1431 103.3961,11.1465 103.362,11.1196 103.3379,11.0834 103.3203,11.007 103.2978,10.9319 103.2355,10.8725 103.06,10.8535 103.0363,10.8621 103.0164,10.871 102.9829,10.9223 102.9912,10.9479 103.0032,11.0996 102.9998,11.1403 102.9789,11.1923 102.9875,11.3361 102.9626,11.4298 102.915,11.529 102.8618,11.5165 102.8462,11.5314 102.8579,11.5518 102.8692,11.5693 102.8697,11.6047 102.8558,11.6237 102.8514,11.6593 102.8753,11.6901 102.9068,11.7068 102.9498,11.6893 102.962,11.6999 102.9092,11.716 102.8884,11.7121 102.8818,11.7094 102.8643,11.6973 102.8555,11.72 102.8432,11.7435 102.8018,11.783 102.8004,11.7903 102.7817,11.8136 102.7927,11.7744 102.8159,11.7568 102.8385,11.7349 102.8524,11.7065 102.8452,11.6692 102.8444,11.6382 102.8537,11.5864 102.845,11.5627 102.8218,11.5784 102.802,11.6229 102.81,11.6394 102.8012,11.7326 102.7929,11.7549 102.7842,11.7659 102.7729,11.774 102.7324,11.8265 102.6029,12.1528 102.6026,12.1818 102.633,12.3601 102.6728,12.4021 102.6642,12.438 102.5186,12.5889 102.4549,12.6306 102.4077,12.6436 102.3882,12.6714 102.3914,12.7227 102.4064,12.7368 102.4081,12.7425 102.4185,12.7841 102.3768,12.9621 102.301,13.1024 102.2792,13.1469 102.2302,13.2668 102.2339,13.2842 102.2368,13.2956 102.2395,13.3644 102.2431,13.4819 102.2602,13.5588 102.2797,13.5536 102.3222,13.5473 102.3488,13.5467 102.4238,13.5553 102.4467,13.5654 102.4816,13.5998 102.4496,13.6316 102.4478,13.6658 102.5117,13.7016 102.6043,13.7498 102.6447,13.8353 102.6571,13.8732 102.6661,13.9079 102.6769,13.9257 102.691,13.9399 102.7394,13.9773 102.7835,14.0212 102.8206,14.1298 102.816,14.1528 102.8215,14.1676 102.8435,14.1904 102.8654,14.1956 102.9044,14.2123 102.9169,14.2222 102.9439,14.2567 102.975,14.2752 103.024,14.3014 103.0638,14.3145 103.1241,14.3192 103.1535,14.3377 103.2079,14.3424 103.2585,14.3414 103.3509,14.3575 103.3927,14.3834 103.444,14.4069 103.5381,14.4317 103.5726,14.4224 103.6018,14.3744 103.8014,14.3233 103.915,14.3318 103.9239,14.3384 103.9348,14.3435 104.0025,14.3685 104.1619,14.3916 104.3013,14.3605 104.337,14.3503 104.3537,14.3412 104.4312,14.3469 104.4619,14.3533 104.4836,14.3828 104.5223,14.4136 104.6869,14.4316 104.7674,14.4032 104.796,14.3851 104.8487,14.3774 104.8812,14.3614 104.8792,14.3306 104.8763,14.3016 104.8874,14.2729 104.9194,14.2228 104.9604,14.2032 104.9995,14.2148 105.0261,14.2342 105.0423,14.2864 105.0709,14.3336 105.088,14.3338 105.088,14.3338 147,-6.0,El Salvador -89.9926,13.7307 -90.0044,13.7735 -90.0,13.808 -89.9825,13.8529 -89.9167,13.9231 -89.7847,14.0286 -89.7505,14.0439 -89.7142,14.051 -89.6359,14.0257 -89.6428,14.0538 -89.6225,14.1022 -89.606,14.1293 -89.5823,14.1544 -89.5479,14.1799 -89.5229,14.1936 -89.5009,14.1923 -89.4751,14.1916 -89.4138,14.2182 -89.4388,14.2884 -89.4609,14.3005 -89.4846,14.3053 -89.4789,14.3698 -89.4661,14.3986 -89.444,14.4048 -89.3905,14.4052 -89.331,14.399 -89.2437,14.4158 -89.2278,14.3944 -89.2113,14.388 -89.1935,14.385 -89.109,14.3599 -89.0705,14.3389 -89.0158,14.3086 -88.9335,14.3189 -88.9208,14.3117 -88.8742,14.238 -88.8572,14.2061 -88.8561,14.2011 -88.8526,14.178 -88.817,14.1901 -88.7945,14.1878 -88.772,14.1717 -88.7572,14.1554 -88.7363,14.1226 -88.7282,14.0984 -88.7245,14.0846 -88.7032,14.0805 -88.6693,14.1177 -88.6491,14.1189 -88.6312,14.0997 -88.6166,14.0767 -88.6031,14.0287 -88.5589,13.9986 -88.5272,13.9991 -88.4041,13.9669 -88.3925,13.9547 -88.3971,13.9004 -88.3866,13.8504 -88.3658,13.8393 -88.3297,13.8546 -88.3012,13.8684 -88.274,13.8669 -88.2501,13.8524 -88.2432,13.8594 -88.2172,13.8732 -88.1577,13.89 -88.1331,13.9249 -88.0947,13.9721 -88.0598,13.9613 -88.02,13.975 -87.9583,13.9483 -87.9387,13.9155 -87.9044,13.8597 -87.8516,13.8805 -87.8389,13.8796 -87.8069,13.8802 -87.7961,13.8838 -87.6996,13.8814 -87.6489,13.8486 -87.6244,13.819 -87.6064,13.8071 -87.5936,13.8035 -87.6242,13.718 -87.6763,13.5573 -87.6829,13.509 -87.6544,13.4995 -87.6149,13.4896 -87.6109,13.4666 -87.613,13.456 -87.6501,13.4281 -87.7151,13.3906 -87.7364,13.4212 -87.7696,13.368 -87.7651,13.3453 -87.746,13.3262 -87.7236,13.3172 -87.6856,13.2801 -87.698,13.2473 -87.7312,13.2215 -87.8377,13.1419 -87.8851,13.1486 -87.9411,13.151 -87.9917,13.1522 -88.0084,13.1523 -88.026,13.1491 -88.0962,13.1448 -88.1197,13.1433 -88.3107,13.1731 -88.3747,13.2237 -88.4495,13.259 -88.5109,13.2693 -88.607,13.2461 -88.5409,13.2346 -88.5209,13.245 -88.4845,13.2485 -88.4053,13.1809 -88.4345,13.1846 -88.5144,13.1965 -88.5648,13.2066 -88.6057,13.214 -88.658,13.2208 -88.7127,13.2369 -88.731,13.2437 -88.7602,13.2679 -88.7805,13.2792 -88.8823,13.3266 -89.0122,13.3864 -89.0352,13.3952 -89.0502,13.4039 -89.0833,13.423 -89.1181,13.4402 -89.1949,13.4678 -89.2784,13.4775 -89.3641,13.4846 -89.5059,13.5002 -89.5481,13.5131 -89.5816,13.516 -89.6562,13.5157 -89.7157,13.5206 -89.7259,13.5611 -89.7434,13.5906 -89.7724,13.6132 -89.8133,13.6355 -89.8511,13.6488 -89.8965,13.6827 -89.9926,13.7307 -89.9926,13.7307 15,8.0,Philippines 122.0299,13.983 122.0217,13.9829 121.9836,14.0056 121.8543,14.0892 121.8429,14.0984 121.7762,14.1694 121.8057,14.2016 121.9847,14.0718 122.0237,14.0359 122.0348,14.0215 122.0479,14.0013 122.0474,13.9908 122.037,13.9845 122.0299,13.983 122.0299,13.983 39,8.0,Philippines 124.066,13.5003 124.0611,13.5027 124.0362,13.5175 123.9128,13.5958 123.8918,13.6336 123.8884,13.6485 123.9179,13.6726 123.932,13.6789 123.9508,13.6866 123.9818,13.7429 123.9914,13.7768 124.005,13.9055 124.0021,13.9157 123.9914,13.9338 123.9845,13.9649 123.9838,13.9821 123.9843,14.0303 123.9863,14.0446 124.0645,14.0831 124.1114,14.0299 124.1387,13.9823 124.144,13.9308 124.1693,13.9147 124.206,13.918 124.2507,13.8811 124.2636,13.8623 124.2734,13.8391 124.2751,13.778 124.1884,13.5335 124.1745,13.5407 124.1682,13.5731 124.1512,13.5786 124.1381,13.5793 124.1177,13.5789 124.1029,13.573 124.0693,13.5449 124.0657,13.5278 124.066,13.5003 124.066,13.5003 12,3.0,Yemen 42.7319,13.8938 42.7137,13.9005 42.6487,13.9798 42.64,13.9982 42.6941,14.043 42.719,14.051 42.7373,14.0317 42.7462,14.0084 42.7504,13.9814 42.7405,13.8971 42.7319,13.8938 42.7319,13.8938 655,1.0,Nigeria 7.5237,4.5994 7.4978,4.5647 7.4388,4.5452 7.2644,4.5528 7.2303,4.5585 7.1717,4.6222 7.0662,4.7479 7.0514,4.7139 7.0827,4.6648 7.1105,4.6473 7.14,4.6305 7.1617,4.5993 7.1681,4.5794 7.1713,4.5018 7.157,4.4689 7.065,4.4299 7.0348,4.4331 7.0118,4.4927 6.9955,4.5703 7.0194,4.6181 7.0313,4.6391 7.0015,4.6958 6.9562,4.7197 6.8921,4.6718 6.8986,4.6487 6.9709,4.4736 6.9798,4.4544 6.9909,4.4324 7.0038,4.4086 7.016,4.3819 7.0007,4.3664 6.9534,4.3673 6.864,4.3878 6.8141,4.5193 6.7553,4.7581 6.7988,4.4874 6.8091,4.4574 6.8275,4.4101 6.8433,4.3728 6.8409,4.3437 6.7866,4.332 6.7307,4.3318 6.7131,4.3433 6.7017,4.4525 6.705,4.4917 6.7125,4.5192 6.7267,4.5463 6.7348,4.5707 6.7249,4.5983 6.6495,4.5024 6.6574,4.4229 6.6802,4.3882 6.685,4.3269 6.6231,4.3208 6.5672,4.322 6.4865,4.3175 6.3979,4.3073 6.2936,4.2897 6.2442,4.297 6.2463,4.3321 6.2751,4.3716 6.3155,4.4195 6.2459,4.445 6.226,4.3812 6.2082,4.3011 6.1652,4.2779 6.1049,4.2681 6.0508,4.2832 5.929,4.3336 5.862,4.3765 5.7305,4.4847 5.6632,4.5532 5.5932,4.6304 5.5759,4.6509 5.5597,4.6749 5.5175,4.7524 5.4914,4.8007 5.479,4.8302 5.4459,4.9175 5.3783,5.1108 5.3937,5.1296 5.4295,5.1275 5.4478,5.112 5.4645,5.0855 5.4871,5.1392 5.4497,5.1817 5.4403,5.16 5.4085,5.1506 5.3623,5.1549 5.3394,5.3241 5.4463,5.3571 5.5334,5.4086 5.6141,5.5035 5.6298,5.5307 5.5373,5.5026 5.5003,5.4709 5.4974,5.4308 5.4812,5.4021 5.4214,5.3875 5.37,5.3843 5.256,5.4271 5.1872,5.4986 5.1826,5.5347 5.2091,5.5715 5.2719,5.5752 5.2918,5.5739 5.3738,5.5587 5.4962,5.5741 5.4963,5.6106 5.44,5.6467 5.4074,5.6359 5.1761,5.5689 5.1364,5.5978 5.081,5.6912 5.0781,5.7278 4.9942,5.8511 4.943,5.9178 4.8672,6.0074 4.7411,6.1293 4.7008,6.1642 4.5285,6.2923 4.4968,6.3092 4.4617,6.3226 4.4497,6.3312 4.4323,6.3416 4.4053,6.3531 4.3682,6.3617 4.3178,6.3651 4.2952,6.3706 4.0813,6.4025 3.9865,6.4143 3.9523,6.4158 3.841,6.4189 3.7432,6.4195 3.6901,6.4126 3.5626,6.4067 3.531,6.4055 3.4411,6.4023 3.4094,6.4028 3.3877,6.4381 3.4308,6.4465 3.5026,6.4427 3.5341,6.4424 3.7265,6.5255 3.8483,6.5943 3.8031,6.6053 3.7632,6.6056 3.7094,6.5963 3.6465,6.5571 3.5226,6.5143 3.4747,6.5341 3.4752,6.5828 3.4394,6.5709 3.3989,6.5412 3.3673,6.4402 3.3821,6.4075 3.3153,6.3785 3.1038,6.37 3.0637,6.3704 3.0368,6.3723 3.0168,6.3765 2.9708,6.3831 2.9312,6.3824 2.8784,6.3779 2.854,6.3753 2.7166,6.3585 2.7167,6.4453 2.7243,6.4677 2.7524,6.5578 2.7587,6.6639 2.7598,6.7574 2.7487,6.9136 2.7248,6.9392 2.7468,7.0865 2.7757,7.1267 2.7669,7.2466 2.7336,7.588 2.7291,7.6434 2.73,7.6499 2.7357,7.7079 2.7398,7.7809 2.7364,7.8057 2.6999,7.8564 2.6924,7.8736 2.6894,7.8976 2.706,7.9991 2.7247,8.0992 2.7385,8.1469 2.7487,8.2007 2.7331,8.2367 2.7068,8.3331 2.7225,8.4227 2.747,8.4483 2.7553,8.4818 2.7545,8.5205 2.7499,8.5263 2.7536,8.5456 2.7533,8.5725 2.7439,8.7099 2.7401,8.761 2.7422,8.7857 2.7802,9.0065 2.7889,9.0402 2.8105,9.0553 2.9021,9.069 2.9643,9.0717 2.993,9.0533 3.0917,9.0805 3.1281,9.1841 3.1631,9.2924 3.1598,9.3669 3.1454,9.4016 3.1385,9.4248 3.1679,9.4857 3.3136,9.6255 3.3597,9.6712 3.3491,9.6924 3.3338,9.7243 3.3276,9.7517 3.3305,9.7723 3.346,9.8004 3.4799,9.8446 3.5174,9.8346 3.5551,9.8693 3.6081,9.9432 3.6739,10.1004 3.6803,10.1495 3.6664,10.1751 3.6402,10.1883 3.578,10.264 3.6349,10.4021 3.6956,10.4365 3.7303,10.4181 3.7597,10.4011 3.7874,10.3927 3.8085,10.4379 3.8508,10.5732 3.8433,10.6848 3.8268,10.7 3.7813,10.7449 3.7473,10.7866 3.7452,10.8176 3.7556,10.8353 3.7712,10.8867 3.7335,11.0082 3.7266,11.0284 3.7247,11.065 3.7316,11.1082 3.7101,11.1147 3.6908,11.1223 3.6049,11.2375 3.4711,11.4169 3.5213,11.5508 3.5675,11.6381 3.6005,11.6801 3.6843,11.7365 3.6666,11.794 3.6276,11.8123 3.6129,11.9063 3.6678,11.9623 3.6669,11.9916 3.6329,12.0943 3.6524,12.2015 3.6621,12.2357 3.6571,12.4314 3.6536,12.5151 3.9078,12.7038 3.9483,12.7347 4.0726,12.9368 4.1006,12.9821 4.135,13.1625 4.1365,13.2588 4.1379,13.3863 4.1382,13.4584 4.243,13.4662 4.4739,13.6734 4.6206,13.7067 4.8802,13.7662 4.9179,13.721 4.9945,13.7183 5.2091,13.7315 5.2831,13.7376 5.336,13.7792 5.358,13.831 5.5202,13.8714 5.5419,13.8761 5.6507,13.8213 5.6937,13.8023 5.8681,13.7343 5.9551,13.6999 5.9907,13.6861 6.1262,13.6457 6.2309,13.6681 6.2755,13.6686 6.3815,13.6105 6.4159,13.5901 6.568,13.4357 6.6706,13.3303 6.7715,13.1436 6.7988,13.0933 6.9344,12.9825 7.0204,12.9812 7.0825,12.9808 7.1395,13.0283 7.2107,13.1109 7.3336,13.092 7.3716,13.0853 7.8062,13.3378 8.0344,13.3059 8.1165,13.2841 8.1323,13.2657 8.2217,13.2068 8.2422,13.2029 8.278,13.1837 8.3389,13.126 8.3993,13.0736 8.4421,13.0645 8.4616,13.0694 8.4973,13.07 8.5298,13.0615 8.5493,13.0493 8.6014,13.0107 8.623,12.9862 8.6385,12.9566 8.652,12.9313 8.8088,12.8824 8.9817,12.832 9.0009,12.8328 9.0225,12.8325 9.0548,12.8304 9.103,12.8275 9.2262,12.8154 9.4135,12.8026 9.6111,12.7904 9.6241,12.7881 9.6835,12.8568 9.8618,13.0607 9.9228,13.1215 9.9474,13.1388 9.9769,13.158 10.13,13.2412 10.1674,13.2563 10.2134,13.2658 10.3259,13.2862 10.35,13.2897 10.4003,13.2948 10.4306,13.2998 10.452,13.3039 10.5234,13.325 10.5802,13.3425 10.6327,13.3598 10.7025,13.3707 10.7375,13.3737 10.7826,13.3742 10.8289,13.3711 10.8688,13.3647 10.8945,13.3575 10.9453,13.351 10.965,13.3492 10.9989,13.3469 11.0259,13.3456 11.054,13.345 11.0884,13.3456 11.1143,13.3468 11.1585,13.3517 11.1912,13.3569 11.226,13.3604 11.2559,13.3621 11.3258,13.3644 11.3798,13.3661 11.4137,13.3641 11.4503,13.3585 11.4788,13.3508 11.518,13.3404 11.8113,13.2562 11.8772,13.2227 11.9942,13.1567 12.1616,13.1075 12.3545,13.0609 12.4155,13.0583 12.4453,13.0516 12.4777,13.0831 12.5297,13.138 12.5275,13.1744 12.5588,13.2299 12.575,13.2487 12.594,13.258 12.6324,13.2722 12.7351,13.334 12.7561,13.3625 12.8616,13.4583 12.885,13.4693 13.0015,13.5186 13.0605,13.5236 13.0789,13.5079 13.1109,13.504 13.1873,13.5123 13.24,13.5928 13.3326,13.7048 13.6097,13.7032 13.619,13.6888 13.7444,13.5127 13.8855,13.3135 14.0589,13.067 14.061,13.0539 14.085,12.9427 14.1572,12.6094 14.1833,12.4873 14.1816,12.461 14.1684,12.401 14.1588,12.3827 14.2231,12.3403 14.306,12.3424 14.3764,12.3392 14.4144,12.3343 14.4532,12.327 14.4747,12.3222 14.5034,12.302 14.5358,12.2352 14.6292,12.1749 14.6335,12.1076 14.6033,12.0151 14.6211,11.9668 14.6145,11.878 14.5959,11.8122 14.5724,11.7419 14.5776,11.6772 14.6221,11.638 14.6282,11.5594 14.5985,11.4907 14.446,11.4016 14.4206,11.3928 14.39,11.3873 14.3582,11.3654 14.3141,11.3264 14.2089,11.2547 14.1732,11.2318 14.1387,11.2225 14.0991,11.2349 14.0726,11.2456 13.9982,11.2694 13.9692,11.2551 13.8716,11.1583 13.792,11.0436 13.7596,10.9637 13.7557,10.9273 13.7035,10.8694 13.7006,10.8569 13.6913,10.8346 13.6621,10.7953 13.6343,10.7601 13.6029,10.7215 13.584,10.6989 13.5684,10.6791 13.5564,10.6564 13.5436,10.624 13.5304,10.5841 13.5047,10.4904 13.4443,10.2273 13.4542,10.1958 13.451,10.1678 13.4397,10.1476 13.3897,10.1041 13.3812,10.099 13.3118,10.0905 13.2564,10.0757 13.2386,10.0607 13.2293,10.0207 13.2137,9.8952 13.2196,9.8538 13.2454,9.7409 13.2274,9.5745 13.2037,9.5404 13.177,9.5184 13.136,9.5046 13.0819,9.5012 13.0465,9.4996 13.0095,9.4856 12.9595,9.4462 12.8836,9.3377 12.8241,9.0586 12.8338,9.0283 12.8369,9.0081 12.8113,8.8434 12.8007,8.805 12.7831,8.7618 12.6671,8.6474 12.5997,8.6222 12.5324,8.6035 12.4844,8.6177 12.4627,8.6183 12.3907,8.5908 12.3893,8.5538 12.4023,8.5376 12.4066,8.4946 12.3571,8.4375 12.3253,8.4128 12.3004,8.4187 12.2773,8.4237 12.2557,8.4146 12.2368,8.3916 12.229,8.3683 12.2234,8.3107 12.2275,8.2675 12.24,8.2328 12.2429,8.2086 12.242,8.1886 12.2319,8.1682 12.2157,8.1491 12.1991,8.1278 12.1905,8.1082 12.1862,8.0752 12.188,8.0335 12.1957,7.9945 12.1552,7.9178 12.1277,7.869 12.0995,7.8353 12.0826,7.8176 12.063,7.7876 12.0506,7.7661 12.0402,7.7486 12.0302,7.7313 12.0182,7.7011 12.0125,7.6684 12.0127,7.6466 12.0217,7.6282 12.0289,7.569 11.9006,7.4369 11.8788,7.4169 11.8511,7.3968 11.8333,7.3731 11.7864,7.2885 11.7416,7.2604 11.7751,7.2449 11.8691,7.1242 11.8507,7.077 11.7473,6.9943 11.6883,6.9683 11.6287,6.939 11.5707,6.8781 11.5463,6.8121 11.5738,6.7787 11.5757,6.7521 11.5681,6.7125 11.5448,6.651 11.4991,6.596 11.451,6.5944 11.4251,6.5829 11.4019,6.5059 11.3967,6.4773 11.3678,6.4477 11.3274,6.4336 11.2572,6.4259 11.1896,6.43 11.1755,6.4267 11.1152,6.431 11.0997,6.4464 11.0814,6.4963 11.0759,6.5178 11.0607,6.5891 11.0635,6.6425 11.0701,6.6705 11.0645,6.7016 11.0312,6.7458 11.0025,6.7702 10.9504,6.7699 10.9286,6.7715 10.8909,6.7996 10.8696,6.8262 10.8681,6.8647 10.8516,6.918 10.8302,6.952 10.8094,6.9626 10.7223,6.9937 10.6086,7.0491 10.548,7.0139 10.5017,6.8705 10.2578,6.8672 10.2191,6.8736 10.1986,6.8876 10.1818,6.9151 10.1776,6.9345 10.1762,6.9706 10.1667,6.9951 10.1548,7.0123 10.0835,6.9552 9.8688,6.7732 9.7844,6.7943 9.7755,6.7704 9.7333,6.632 9.6979,6.514 9.6446,6.5188 9.6269,6.5163 9.5838,6.4905 9.5145,6.4227 9.458,6.3972 9.4449,6.3623 9.4213,6.3204 9.3988,6.3195 9.3592,6.3194 9.3227,6.2729 9.2129,6.1437 9.0615,6.0071 8.95,5.9008 8.9243,5.8964 8.8546,5.8313 8.8409,5.716 8.8704,5.6511 8.895,5.6271 8.9101,5.5974 8.8971,5.5549 8.8742,5.5327 8.8524,5.4977 8.8272,5.3737 8.8222,5.3342 8.831,5.2967 8.8148,5.1828 8.803,5.1502 8.7071,5.0132 8.6718,4.9666 8.6111,4.8868 8.6109,4.8667 8.6252,4.8407 8.6231,4.8198 8.5933,4.805 8.582,4.8058 8.5757,4.815 8.5434,4.8011 8.5247,4.7624 8.5272,4.7382 8.5315,4.7145 8.5184,4.6965 8.4973,4.6947 8.4691,4.6987 8.3922,4.7449 8.3333,4.8007 8.2652,4.8513 8.2623,4.8372 8.25,4.8207 8.2614,4.8026 8.2883,4.7749 8.3045,4.7538 8.3498,4.627 8.2843,4.5424 8.2606,4.5373 8.1091,4.5455 8.0134,4.5462 7.7597,4.5135 7.715,4.4973 7.6868,4.4927 7.6653,4.492 7.5527,4.5205 7.5289,4.5349 7.5237,4.5994 7.5237,4.5994 8,1.0,Nigeria 7.5237,4.5994 7.5219,4.6215 7.5249,4.6674 7.5418,4.7015 7.5154,4.6857 7.5079,4.6168 7.5237,4.5994 7.5237,4.5994 19,8.0,Philippines 120.1368,13.6531 120.1154,13.6873 120.0563,13.7219 120.043,13.7213 119.9915,13.7452 119.9711,13.7639 119.9648,13.7719 119.9567,13.7852 119.9438,13.8371 119.9572,13.8481 119.9719,13.8485 120.0112,13.8379 120.0852,13.8027 120.1008,13.7928 120.1209,13.7733 120.1439,13.7388 120.1435,13.6696 120.1368,13.6531 120.1368,13.6531 179,0.0,Gambia, The -15.2837,13.4592 -15.3112,13.4391 -15.3411,13.4355 -15.3796,13.4485 -15.4663,13.4865 -15.5293,13.5137 -15.6403,13.489 -15.7047,13.4611 -15.7938,13.4415 -16.0788,13.4169 -16.0971,13.4263 -16.122,13.4386 -16.1738,13.4166 -16.2122,13.3847 -16.2499,13.3454 -16.3132,13.3234 -16.3845,13.3172 -16.4604,13.3409 -16.4945,13.3538 -16.4855,13.3722 -16.4818,13.3945 -16.5346,13.5507 -16.5464,13.5749 -16.1521,13.5773 -16.0701,13.5771 -15.9111,13.5776 -15.6276,13.576 -15.5567,13.5755 -15.4702,13.5756 -15.4662,13.6256 -15.4564,13.6539 -15.4376,13.6932 -15.4178,13.7148 -15.4024,13.7281 -15.3465,13.7659 -15.3188,13.7775 -15.2825,13.7749 -15.2539,13.7552 -15.2335,13.7296 -15.1991,13.7486 -15.1468,13.7796 -15.0527,13.8109 -14.8944,13.7871 -14.8657,13.7779 -14.8429,13.7656 -14.8389,13.7632 -14.8116,13.7414 -14.7989,13.7259 -14.7849,13.694 -14.7766,13.6635 -14.7747,13.6382 -14.6994,13.5983 -14.6801,13.6171 -14.6514,13.6383 -14.629,13.6477 -14.6087,13.6526 -14.5821,13.655 -14.5456,13.6469 -14.5188,13.6354 -14.4878,13.613 -14.4667,13.5786 -14.4611,13.5558 -14.4561,13.5195 -14.4298,13.5113 -14.4127,13.4897 -14.3816,13.4682 -14.3531,13.452 -14.3183,13.4392 -14.2206,13.4665 -14.2064,13.4834 -14.1821,13.5014 -14.1595,13.5112 -14.0662,13.5454 -13.9643,13.5675 -13.9032,13.5532 -13.871,13.5294 -13.8524,13.4932 -13.8297,13.4819 -13.8114,13.4655 -13.7877,13.4282 -13.7825,13.3983 -13.7874,13.3695 -13.8082,13.3411 -13.8341,13.3183 -13.8422,13.3131 -13.8571,13.3061 -13.9768,13.2879 -14.0327,13.2797 -14.0794,13.2702 -14.1139,13.2459 -14.1353,13.2318 -14.1719,13.2185 -14.1982,13.216 -14.3348,13.2229 -14.372,13.2339 -14.5044,13.299 -14.5309,13.321 -14.6307,13.329 -14.6698,13.3358 -14.6976,13.3458 -14.7183,13.3608 -14.7384,13.3894 -14.7533,13.4094 -14.8162,13.4204 -14.9082,13.4455 -14.9374,13.4571 -14.9552,13.4677 -14.9722,13.4781 -15.028,13.513 -15.0648,13.5464 -15.0942,13.5806 -15.1302,13.5712 -15.1576,13.5377 -15.184,13.51 -15.1864,13.4727 -15.187,13.4471 -15.1932,13.4191 -15.2069,13.3984 -15.2295,13.3789 -15.2467,13.3682 -15.2729,13.3579 -15.3163,13.3511 -15.3427,13.3515 -15.4003,13.3603 -15.7885,13.3246 -15.7912,13.2305 -15.7915,13.1451 -15.8444,13.1449 -15.8774,13.146 -15.9804,13.1483 -16.5993,13.1505 -16.6813,13.1426 -16.7317,13.0453 -16.7653,13.1264 -16.8008,13.2634 -16.8024,13.3087 -16.7977,13.3558 -16.7667,13.3727 -16.7253,13.4034 -16.7123,13.4348 -16.6907,13.4568 -16.665,13.4743 -16.6016,13.4604 -16.5906,13.457 -16.5711,13.4461 -16.5681,13.4211 -16.5921,13.426 -16.6017,13.4167 -16.5913,13.4119 -16.5874,13.3873 -16.5804,13.3655 -16.5576,13.3095 -16.5357,13.2804 -16.4027,13.2421 -16.3608,13.2607 -16.2309,13.3036 -16.205,13.2827 -16.2056,13.243 -16.1762,13.2379 -16.1528,13.247 -16.1363,13.2645 -16.1753,13.2488 -16.2054,13.3113 -16.2051,13.3332 -16.1908,13.3632 -16.1371,13.4098 -16.1051,13.4008 -16.0678,13.3937 -16.0304,13.3905 -15.7552,13.418 -15.6185,13.4377 -15.5307,13.491 -15.4721,13.4699 -15.384,13.4326 -15.3412,13.4239 -15.3105,13.4235 -15.288,13.4367 -15.2837,13.4592 -15.2837,13.4592 6,3.0,Eritrea 42.1741,13.6216 42.1432,13.6386 42.1207,13.6449 42.13,13.654 42.1741,13.6216 42.1741,13.6216 101,5.5,India 92.7809,12.8841 92.7977,12.8848 92.8132,12.8989 92.8239,12.8949 92.8545,12.8481 92.8881,12.6947 92.8873,12.5112 92.8821,12.4922 92.83,12.4021 92.8133,12.4222 92.7965,12.4343 92.7447,12.4144 92.7551,12.3787 92.7615,12.3679 92.7723,12.3576 92.7831,12.3511 92.7904,12.308 92.7706,12.2929 92.7489,12.2919 92.7727,12.2883 92.7956,12.2747 92.7979,12.2522 92.7576,12.1489 92.7032,12.0772 92.6511,12.058 92.6577,12.043 92.6912,11.9083 92.6928,11.8889 92.689,11.8509 92.6579,11.6025 92.6248,11.4904 92.6139,11.4792 92.572,11.5012 92.5607,11.5176 92.5161,11.5908 92.4228,11.8421 92.4486,11.9062 92.4655,11.9164 92.4973,11.8803 92.5218,11.9301 92.5378,12.0328 92.5439,12.1038 92.5394,12.1166 92.5369,12.128 92.54,12.1391 92.5705,12.1991 92.6063,12.2207 92.6188,12.2045 92.6189,12.1831 92.6136,12.1694 92.6197,12.1558 92.6449,12.1671 92.6645,12.1637 92.6821,12.1732 92.6868,12.1883 92.6611,12.2398 92.651,12.2506 92.6518,12.2662 92.6634,12.2596 92.6855,12.2617 92.6902,12.2778 92.6803,12.2993 92.6724,12.2958 92.6551,12.2915 92.6323,12.2999 92.6146,12.3273 92.6102,12.3437 92.6103,12.4071 92.6421,12.6708 92.6324,12.7825 92.6319,12.7954 92.6374,12.8071 92.7089,12.8835 92.706,12.9065 92.7014,13.02 92.703,13.0377 92.7069,13.0511 92.7267,13.1493 92.7352,13.3125 92.7553,13.3551 92.7793,13.3641 92.7945,13.4196 92.7867,13.45 92.8378,13.5281 92.9,13.5562 92.9385,13.5551 92.9527,13.5309 92.9755,13.3846 92.9586,13.2229 92.942,13.0627 92.9401,13.0512 92.93,13.0332 92.9194,13.0214 92.8762,13.0099 92.855,13.0229 92.8608,13.049 92.8553,13.0653 92.8251,13.0496 92.7718,12.893 92.7809,12.8841 92.7809,12.8841 22,8.0,Philippines 121.8925,13.1861 121.8612,13.1888 121.8452,13.1953 121.7297,13.2692 121.6985,13.3198 121.6881,13.359 121.6768,13.419 121.676,13.4377 121.7353,13.5265 121.8714,13.5298 121.8965,13.5157 121.9699,13.4616 121.9873,13.4416 121.9903,13.4252 121.9812,13.41 121.9842,13.3892 121.9889,13.3755 122.0047,13.3757 122.0121,13.357 121.917,13.2238 121.8925,13.1861 121.8925,13.1861 73,8.0,Philippines 120.9437,12.3186 120.8478,12.4088 120.7974,12.4873 120.7862,12.5143 120.8015,12.546 120.7964,12.5934 120.7724,12.6366 120.7188,12.703 120.6931,12.7078 120.6657,12.7107 120.6509,12.7645 120.6473,12.8114 120.6486,12.9002 120.6217,13.0029 120.6093,13.0262 120.5985,13.0442 120.5513,13.1214 120.5116,13.175 120.4536,13.2083 120.4268,13.21 120.4044,13.2158 120.2488,13.3589 120.2141,13.3643 120.1974,13.3786 120.1746,13.4046 120.1668,13.4294 120.1836,13.4608 120.2032,13.4784 120.231,13.497 120.26,13.507 120.2835,13.5093 120.5261,13.4763 120.5641,13.4684 120.5839,13.4627 120.6054,13.452 120.7787,13.4957 120.8292,13.508 120.8522,13.5033 120.8535,13.4542 120.8963,13.4074 120.9131,13.3962 120.9321,13.3892 121.0123,13.3938 121.0453,13.4052 121.0802,13.3927 121.1641,13.3324 121.3646,13.1343 121.3712,13.0353 121.3592,13.0191 121.3521,12.9955 121.3456,12.7473 121.3557,12.7293 121.3798,12.7104 121.3966,12.6913 121.416,12.6474 121.4214,12.5874 121.3767,12.5396 121.3556,12.5192 121.3303,12.5025 121.3094,12.4886 121.276,12.4261 121.2796,12.3773 121.3039,12.3381 121.2485,12.3406 121.2073,12.3077 121.0854,12.2169 120.9878,12.2315 120.9638,12.2659 120.9738,12.2972 120.983,12.3152 120.9528,12.3303 120.9437,12.3186 120.9437,12.3186 18,8.0,Philippines 123.2306,12.6773 123.1785,12.7288 123.0812,12.8183 122.8922,12.9814 122.8486,12.9912 122.811,13.0167 122.7919,13.0944 122.8537,13.1346 122.8654,13.133 122.9056,13.1222 122.9201,13.1009 123.0082,12.9707 123.0849,12.8938 123.1427,12.8237 123.2372,12.7027 123.2447,12.6816 123.2306,12.6773 123.2306,12.6773 589,1.0,Cameroon 15.4817,7.5182 15.4281,7.3865 15.3576,7.3392 15.2819,7.2895 15.2441,7.2606 15.2396,7.252 15.2143,7.228 15.1928,7.1831 15.125,7.0088 15.1195,6.9777 15.1125,6.9436 15.036,6.7637 14.9793,6.7332 14.945,6.7286 14.9211,6.6791 14.8099,6.4264 14.7803,6.3828 14.7883,6.3398 14.7256,6.2578 14.5639,6.1821 14.4329,6.0894 14.4134,6.073 14.4027,6.0344 14.408,6.0005 14.4765,5.9094 14.5398,5.9001 14.5636,5.9207 14.588,5.9157 14.6005,5.8946 14.6065,5.8276 14.6102,5.7183 14.6058,5.5147 14.6005,5.4897 14.5749,5.3989 14.5495,5.3528 14.535,5.3366 14.5162,5.2854 14.537,5.2621 14.5689,5.2394 14.5884,5.2322 14.6082,5.2279 14.6348,5.2138 14.6558,5.1741 14.6711,5.1134 14.6692,5.0319 14.6593,5.0101 14.6562,5.0067 14.6743,4.9759 14.694,4.8725 14.7036,4.8 14.7034,4.7182 14.7068,4.6385 14.7205,4.6102 14.7874,4.5331 14.8755,4.4718 14.9136,4.4558 14.9966,4.4098 15.07,4.29 15.0767,4.2621 15.0764,4.2304 15.0865,4.1359 15.1281,4.0673 15.027,4.0249 15.047,3.9571 15.0598,3.9162 15.105,3.8548 15.1205,3.834 15.2069,3.718 15.2432,3.6698 15.2498,3.663 15.2782,3.6359 15.5729,3.3411 15.7502,3.1441 15.8,3.0972 15.8473,3.1049 15.8892,3.109 15.922,3.0972 16.0557,2.94 16.085,2.895 16.0939,2.8554 16.0944,2.8224 16.0686,2.8009 16.0525,2.7877 16.0725,2.5353 16.0769,2.4949 16.0882,2.4299 16.0933,2.408 16.1154,2.3524 16.1616,2.2575 16.1742,2.2352 16.1889,2.2187 16.1853,2.211 16.1399,2.1842 16.094,2.1978 16.0653,2.1502 16.066,2.0424 16.0774,1.948 16.1111,1.8431 16.1246,1.7971 16.1429,1.723 16.0541,1.6523 16.0273,1.6725 16.0121,1.7081 16.0082,1.7286 15.9605,1.7693 15.863,1.8184 15.7397,1.9066 15.6698,1.9314 15.6286,1.9292 15.5017,1.959 15.4742,1.9726 15.4312,1.9668 15.2775,1.9744 15.2222,2.0277 15.1943,2.0341 15.1321,2.0364 15.1063,2.0099 15.0764,1.9783 15.0122,1.9849 14.8705,2.0147 14.8402,2.0805 14.7425,2.0704 14.6978,2.122 14.5465,2.1661 14.4467,2.1407 14.2825,2.15 14.103,2.1557 13.7351,2.1582 13.6465,2.1581 13.2912,2.1619 13.2792,2.1611 13.2811,2.1687 13.2794,2.2234 13.2396,2.2637 13.1566,2.2803 13.1072,2.2726 12.9855,2.2537 12.85,2.238 12.7377,2.2308 12.617,2.2488 12.5816,2.2565 12.5098,2.2807 12.4877,2.2903 12.468,2.2977 12.3218,2.3154 12.2751,2.2991 12.2157,2.2812 11.7431,2.2799 11.6869,2.3052 11.5668,2.3129 11.3545,2.2965 11.3378,2.2341 11.3272,2.1663 11.2132,2.166 11.07,2.1659 10.6414,2.165 10.5529,2.1653 10.5255,2.1653 10.4368,2.1651 10.4099,2.165 10.397,2.1656 10.3211,2.1651 10.2942,2.1651 10.1699,2.1655 10.0625,2.1653 10.0097,2.1658 9.9715,2.1711 9.9244,2.1892 9.8855,2.2075 9.8222,2.2566 9.8147,2.2761 9.8007,2.3412 9.8059,2.347 9.8104,2.4238 9.8057,2.4578 9.8036,2.4788 9.8089,2.5394 9.8122,2.5638 9.8636,2.8437 9.8851,2.9523 9.8986,2.9806 9.9241,3.0029 9.9413,3.0296 9.9512,3.0554 9.954,3.0819 9.9429,3.1128 9.9246,3.1628 9.9176,3.1822 9.9024,3.2435 9.9167,3.2647 9.8672,3.2988 9.8408,3.3382 9.801,3.3931 9.7112,3.4861 9.6868,3.5029 9.6509,3.5275 9.7249,3.5838 9.7347,3.6137 9.6978,3.5957 9.6545,3.5897 9.6165,3.5931 9.6258,3.6425 9.5434,3.7856 9.5325,3.8074 9.6296,3.8532 9.7109,3.8382 9.7114,3.8612 9.667,3.8967 9.6021,3.9452 9.5178,4.0257 9.4879,4.0651 9.4899,4.0972 9.4775,4.1084 9.438,4.073 9.4388,4.0681 9.4451,4.0598 9.497,4.0142 9.5176,3.978 9.4578,3.9039 9.4245,3.895 9.3873,3.8956 9.3623,3.8983 9.3343,3.9082 9.321,3.9177 9.2995,3.9378 9.2045,3.994 9.0924,4.0274 9.0294,4.0565 8.9639,4.0952 8.9664,4.144 8.9734,4.1648 8.9782,4.2019 8.9508,4.2382 8.9311,4.2546 8.9142,4.2924 8.8956,4.3674 8.8875,4.4458 8.8979,4.4891 8.9137,4.5108 8.9216,4.5336 8.8885,4.5834 8.8312,4.6326 8.8314,4.6071 8.8546,4.5861 8.8637,4.5434 8.7749,4.5358 8.7161,4.5712 8.6567,4.6763 8.6583,4.6387 8.6653,4.5797 8.6768,4.5486 8.702,4.5387 8.7145,4.5173 8.7045,4.4976 8.5277,4.4988 8.4987,4.5186 8.4927,4.5494 8.5009,4.6234 8.5161,4.6634 8.5738,4.8 8.582,4.8058 8.5933,4.805 8.6231,4.8198 8.6252,4.8407 8.6109,4.8667 8.6111,4.8868 8.6718,4.9666 8.7071,5.0132 8.803,5.1502 8.8148,5.1828 8.831,5.2967 8.8222,5.3342 8.8272,5.3737 8.8524,5.4977 8.8742,5.5327 8.8971,5.5549 8.9101,5.5974 8.895,5.6271 8.8704,5.6511 8.8409,5.716 8.8546,5.8313 8.9243,5.8964 8.95,5.9008 9.0615,6.0071 9.2129,6.1437 9.3227,6.2729 9.3592,6.3194 9.3988,6.3195 9.4213,6.3204 9.4449,6.3623 9.458,6.3972 9.5145,6.4227 9.5838,6.4905 9.6269,6.5163 9.6446,6.5188 9.6979,6.514 9.7333,6.632 9.7755,6.7704 9.7844,6.7943 9.8688,6.7732 10.0835,6.9552 10.1548,7.0123 10.1667,6.9951 10.1762,6.9706 10.1776,6.9345 10.1818,6.9151 10.1986,6.8876 10.2191,6.8736 10.2578,6.8672 10.5017,6.8705 10.548,7.0139 10.6086,7.0491 10.7223,6.9937 10.8094,6.9626 10.8302,6.952 10.8516,6.918 10.8681,6.8647 10.8696,6.8262 10.8909,6.7996 10.9286,6.7715 10.9504,6.7699 11.0025,6.7702 11.0312,6.7458 11.0645,6.7016 11.0701,6.6705 11.0635,6.6425 11.0607,6.5891 11.0759,6.5178 11.0814,6.4963 11.0997,6.4464 11.1152,6.431 11.1755,6.4267 11.1896,6.43 11.2572,6.4259 11.3274,6.4336 11.3678,6.4477 11.3967,6.4773 11.4019,6.5059 11.4251,6.5829 11.451,6.5944 11.4991,6.596 11.5448,6.651 11.5681,6.7125 11.5757,6.7521 11.5738,6.7787 11.5463,6.8121 11.5707,6.8781 11.6287,6.939 11.6883,6.9683 11.7473,6.9943 11.8507,7.077 11.8691,7.1242 11.7751,7.2449 11.7416,7.2604 11.7864,7.2885 11.8333,7.3731 11.8511,7.3968 11.8788,7.4169 11.9006,7.4369 12.0289,7.569 12.0217,7.6282 12.0127,7.6466 12.0125,7.6684 12.0182,7.7011 12.0302,7.7313 12.0402,7.7486 12.0506,7.7661 12.063,7.7876 12.0826,7.8176 12.0995,7.8353 12.1277,7.869 12.1552,7.9178 12.1957,7.9945 12.188,8.0335 12.1862,8.0752 12.1905,8.1082 12.1991,8.1278 12.2157,8.1491 12.2319,8.1682 12.242,8.1886 12.2429,8.2086 12.24,8.2328 12.2275,8.2675 12.2234,8.3107 12.229,8.3683 12.2368,8.3916 12.2557,8.4146 12.2773,8.4237 12.3004,8.4187 12.3253,8.4128 12.3571,8.4375 12.4066,8.4946 12.4023,8.5376 12.3893,8.5538 12.3907,8.5908 12.4627,8.6183 12.4844,8.6177 12.5324,8.6035 12.5997,8.6222 12.6671,8.6474 12.7831,8.7618 12.8007,8.805 12.8113,8.8434 12.8369,9.0081 12.8338,9.0283 12.8241,9.0586 12.8836,9.3377 12.9595,9.4462 13.0095,9.4856 13.0465,9.4996 13.0819,9.5012 13.136,9.5046 13.177,9.5184 13.2037,9.5404 13.2274,9.5745 13.2454,9.7409 13.2196,9.8538 13.2137,9.8952 13.2293,10.0207 13.2386,10.0607 13.2564,10.0757 13.3118,10.0905 13.3812,10.099 13.3897,10.1041 13.4397,10.1476 13.451,10.1678 13.4542,10.1958 13.4443,10.2273 13.5047,10.4904 13.5304,10.5841 13.5436,10.624 13.5564,10.6564 13.5684,10.6791 13.584,10.6989 13.6029,10.7215 13.6343,10.7601 13.6621,10.7953 13.6913,10.8346 13.7006,10.8569 13.7035,10.8694 13.7557,10.9273 13.7596,10.9637 13.792,11.0436 13.8716,11.1583 13.9692,11.2551 13.9982,11.2694 14.0726,11.2456 14.0991,11.2349 14.1387,11.2225 14.1732,11.2318 14.2089,11.2547 14.3141,11.3264 14.3582,11.3654 14.39,11.3873 14.4206,11.3928 14.446,11.4016 14.5985,11.4907 14.6282,11.5594 14.6221,11.638 14.5776,11.6772 14.5724,11.7419 14.5959,11.8122 14.6145,11.878 14.6211,11.9668 14.6033,12.0151 14.6335,12.1076 14.6292,12.1749 14.5358,12.2352 14.5034,12.302 14.4747,12.3222 14.4532,12.327 14.4144,12.3343 14.3764,12.3392 14.306,12.3424 14.2231,12.3403 14.1588,12.3827 14.1684,12.401 14.1816,12.461 14.1833,12.4873 14.1572,12.6094 14.085,12.9427 14.061,13.0539 14.0589,13.067 14.1437,13.0686 14.4198,13.0704 14.4409,13.0513 14.4566,13.0258 14.4708,13.0054 14.4847,12.9868 14.5091,12.9605 14.5235,12.8389 14.5299,12.7576 14.5653,12.7237 14.6078,12.7205 14.6923,12.7005 14.8057,12.6198 14.8856,12.3622 14.8917,12.3067 14.8857,12.2149 14.8825,12.1866 14.8779,12.1421 14.9349,12.0843 14.9567,12.0779 15.026,12.0655 15.0652,11.7415 15.0457,11.6772 15.0741,11.5754 15.0926,11.4839 15.051,11.4238 15.0346,11.3822 15.0017,11.1898 15.0026,11.1247 15.0098,11.0673 15.0594,10.8915 15.0608,10.8679 15.05,10.8329 15.0415,10.8133 15.0419,10.7899 15.0756,10.7198 15.0985,10.6923 15.1203,10.6489 15.1336,10.6039 15.1736,10.4912 15.2602,10.3789 15.3565,10.2373 15.4822,10.09 15.5251,10.0613 15.5724,10.0382 15.6134,10.0162 15.6363,10.0006 15.6582,9.9769 15.5748,9.9563 15.5182,9.9424 15.4054,9.916 15.2675,9.9626 15.2235,9.9764 15.143,9.978 15.107,9.9729 15.0849,9.9648 15.0669,9.9443 15.0368,9.9372 15.0011,9.9387 14.9105,9.9592 14.7673,9.9122 14.6367,9.948 14.4703,9.9827 14.4348,9.987 14.1792,9.9706 14.165,9.9248 14.1257,9.8491 14.1078,9.8206 14.0934,9.8006 14.0623,9.7726 14.0443,9.7633 14.0187,9.7475 13.9949,9.7194 13.9424,9.6359 13.9541,9.6192 13.9927,9.6067 14.313,9.248 14.3367,9.2199 14.3322,9.1869 14.5432,8.9974 14.6051,8.9505 14.8162,8.8039 14.8395,8.8075 14.8596,8.7995 14.9064,8.7655 15.0573,8.6339 15.1903,8.4678 15.2083,8.4267 15.2476,8.3298 15.3264,8.1627 15.3448,8.1335 15.3593,8.1032 15.3633,8.0689 15.3719,8.0308 15.4162,7.9029 15.4276,7.8736 15.4605,7.8017 15.485,7.7664 15.5066,7.7651 15.5627,7.7518 15.5647,7.7276 15.5668,7.6817 15.5553,7.6214 15.5295,7.5737 15.4817,7.5182 15.4817,7.5182 35,3.0,Yemen 54.1598,12.6365 54.1958,12.632 54.3869,12.5621 54.4124,12.5346 54.352,12.4645 54.162,12.3888 54.1189,12.3605 54.084,12.3391 54.0636,12.3343 53.9543,12.3306 53.7326,12.2992 53.6953,12.2948 53.5761,12.3151 53.5359,12.3256 53.5112,12.3327 53.3139,12.4773 53.2709,12.5321 53.3156,12.5392 53.3332,12.5525 53.3465,12.5875 53.3479,12.6074 53.3446,12.6409 53.4394,12.7029 53.5904,12.6895 53.6532,12.6482 53.7066,12.6082 53.7615,12.5915 53.9431,12.6446 54.0049,12.6716 54.0378,12.6889 54.0657,12.6848 54.0854,12.678 54.1206,12.6602 54.1598,12.6365 54.1598,12.6365 120,3.0,Djibouti 42.3523,12.4557 42.4087,12.5151 42.4372,12.508 42.4539,12.5029 42.4881,12.4903 42.5405,12.4538 42.5726,12.4169 42.6014,12.3849 42.6508,12.35 42.7022,12.3738 42.7717,12.4319 42.7603,12.4739 42.7625,12.5109 42.8814,12.6098 43.0731,12.6941 43.1021,12.6444 43.1312,12.6042 43.1592,12.5706 43.2394,12.4796 43.2683,12.4674 43.2791,12.463 43.281,12.4199 43.3258,12.2712 43.3395,12.2503 43.3618,12.2211 43.3721,12.1254 43.3667,12.0498 43.3561,12.0254 43.3229,11.98 43.2444,11.9521 43.2035,11.9452 43.1706,11.9444 43.1466,11.9348 43.0946,11.8834 43.057,11.84 43.0,11.7872 42.9707,11.7803 42.935,11.7818 42.836,11.761 42.7754,11.7402 42.7252,11.7183 42.6692,11.6392 42.649,11.6015 42.6386,11.5675 42.6278,11.5494 42.5803,11.5315 42.5105,11.5557 42.483,11.567 42.4615,11.5542 42.4855,11.5344 42.4846,11.4992 42.5483,11.4559 42.5769,11.454 42.6358,11.4776 42.6187,11.5057 42.6437,11.5274 42.6809,11.5382 42.7811,11.5642 42.8193,11.5725 42.8304,11.5689 42.8565,11.5688 42.8999,11.5726 42.9764,11.5683 42.9843,11.5673 43.0719,11.5581 43.1094,11.558 43.1872,11.4762 43.2014,11.4569 43.1773,11.4182 43.1579,11.3853 43.1387,11.3575 43.0586,11.2377 43.0167,11.1744 42.9285,11.0413 42.9063,11.0082 42.8969,10.9903 42.8438,10.9699 42.7638,10.9761 42.7453,10.9855 42.7222,11.011 42.7128,11.0468 42.701,11.0655 42.5935,11.0848 42.5614,11.0793 42.4545,11.0514 42.3123,11.0071 42.2542,10.9992 42.1255,10.9881 42.0791,10.9874 42.0343,10.9652 41.9737,10.9326 41.946,10.9299 41.8944,10.9378 41.872,10.9414 41.8361,10.9487 41.7914,10.9609 41.7624,10.973 41.7437,10.9957 41.7548,11.0189 41.7568,11.0867 41.7607,11.1559 41.766,11.2456 41.7475,11.3683 41.7137,11.495 41.752,11.6254 41.7828,11.7279 41.8448,11.7605 41.902,11.8034 41.9784,11.9131 42.0118,11.9626 42.0805,12.0767 42.1221,12.1238 42.2085,12.2495 42.2449,12.2802 42.2612,12.2945 42.2783,12.3453 42.2921,12.3831 42.3188,12.4166 42.3523,12.4557 42.3523,12.4557 233,0.0,Guinea-Bissau -16.6989,12.3086 -16.6912,12.3231 -16.6739,12.3419 -16.6444,12.3472 -16.53,12.3435 -16.5001,12.3341 -16.3632,12.3608 -16.1908,12.4471 -16.0838,12.4575 -16.054,12.4582 -16.0219,12.4533 -16.0011,12.4469 -15.9824,12.438 -15.9443,12.4224 -15.8706,12.4343 -15.7916,12.4269 -15.6674,12.4163 -15.5972,12.4488 -15.4019,12.5373 -15.3438,12.5839 -15.3171,12.602 -15.2008,12.6708 -14.9065,12.6685 -14.8577,12.6679 -14.6325,12.6667 -14.5006,12.6656 -14.3767,12.6649 -14.3254,12.6646 -14.1207,12.6631 -13.9827,12.6621 -13.8416,12.6624 -13.6974,12.6632 -13.7029,12.6289 -13.7052,12.6045 -13.7053,12.5844 -13.6975,12.5518 -13.6717,12.5125 -13.64,12.4815 -13.6304,12.463 -13.6282,12.4385 -13.6538,12.3051 -13.6802,12.2792 -13.6879,12.2668 -13.716,12.2445 -13.7915,12.2419 -13.7845,12.2662 -13.8438,12.2648 -13.9476,12.1856 -13.9481,12.1399 -13.9106,12.1352 -13.8612,12.1037 -13.7693,12.0263 -13.7286,12.0159 -13.6987,12.0029 -13.6884,11.7677 -13.6929,11.7045 -13.7576,11.6738 -13.9861,11.6282 -14.0587,11.63 -14.0635,11.6277 -14.0881,11.628 -14.1262,11.6482 -14.2636,11.6619 -14.2932,11.6159 -14.3857,11.5621 -14.4151,11.5462 -14.4941,11.5017 -14.519,11.4971 -14.5568,11.4965 -14.5815,11.5024 -14.621,11.5037 -14.6617,11.4999 -14.689,11.4803 -14.7647,11.3767 -14.7892,11.3395 -14.8119,11.2904 -14.8235,11.2484 -14.8313,11.2185 -14.8516,11.1642 -14.9083,11.0635 -14.9454,11.004 -14.9923,10.9483 -15.0003,10.9444 -15.0328,10.9236 -15.0697,10.9129 -15.0988,10.9654 -15.0825,11.0534 -15.0582,11.0906 -15.0186,11.1277 -15.0059,11.1828 -15.0808,11.1199 -15.1353,11.0736 -15.1524,11.0523 -15.1642,11.0293 -15.1877,10.993 -15.2158,10.9838 -15.2563,11.016 -15.2171,11.0535 -15.1985,11.0742 -15.1851,11.1168 -15.1917,11.2174 -15.2198,11.2014 -15.2156,11.1752 -15.2033,11.1423 -15.2155,11.1142 -15.2626,11.113 -15.29,11.1182 -15.3364,11.1295 -15.3904,11.1774 -15.4093,11.2747 -15.3981,11.3121 -15.3692,11.359 -15.3432,11.3518 -15.3159,11.3507 -15.295,11.365 -15.2722,11.385 -15.2552,11.4027 -15.2483,11.4134 -15.3183,11.3662 -15.3439,11.377 -15.3635,11.3925 -15.4045,11.3707 -15.4249,11.3329 -15.4838,11.3201 -15.4578,11.4451 -15.3088,11.5724 -15.2648,11.6062 -15.1707,11.6279 -15.0949,11.6026 -15.0777,11.5684 -15.0205,11.5634 -15.0102,11.5811 -15.0703,11.6155 -15.1559,11.6435 -15.2701,11.6364 -15.3073,11.6237 -15.3219,11.6686 -15.3267,11.6677 -15.3671,11.6119 -15.3549,11.5846 -15.3737,11.5659 -15.4269,11.5401 -15.45,11.5857 -15.4382,11.6052 -15.4121,11.6418 -15.4065,11.6631 -15.4064,11.6705 -15.4339,11.6595 -15.5138,11.6619 -15.5318,11.6773 -15.5385,11.7122 -15.5124,11.7643 -15.4412,11.852 -15.4205,11.8667 -15.3647,11.8718 -15.3379,11.8649 -15.3098,11.8553 -15.2329,11.8525 -15.1984,11.8518 -15.1772,11.8547 -15.114,11.8803 -15.0713,11.8384 -15.0494,11.7897 -14.9589,11.7383 -14.939,11.7337 -14.9137,11.7416 -14.9104,11.746 -14.9346,11.7444 -15.0369,11.8074 -15.0488,11.8339 -15.0055,11.9368 -14.9742,11.9436 -14.9913,11.963 -15.0581,11.971 -15.1271,11.9396 -15.1484,11.9137 -15.1774,11.8935 -15.1995,11.8907 -15.2991,11.916 -15.3332,11.946 -15.3529,11.9504 -15.3892,11.9501 -15.4134,11.9454 -15.4779,11.9233 -15.5216,11.8835 -15.5756,11.831 -15.6342,11.7928 -15.664,11.7848 -15.7249,11.776 -15.834,11.7548 -15.9417,11.7222 -15.9474,11.7605 -15.9113,11.8622 -15.845,11.9537 -15.8236,11.9707 -15.7733,11.9879 -15.7516,11.9701 -15.7063,11.9541 -15.6873,11.989 -15.6881,11.9966 -15.7131,11.9798 -15.746,11.9818 -15.7594,11.9997 -15.8349,12.0032 -15.8803,11.9865 -15.9061,11.9712 -15.9228,11.9384 -15.9415,11.9146 -15.9597,11.9012 -16.101,11.8652 -16.1845,11.8924 -16.2307,11.9151 -16.2693,11.9707 -16.3159,11.9857 -16.3253,12.0182 -16.3313,12.0925 -16.3144,12.1396 -16.2415,12.2087 -16.2038,12.2346 -16.1794,12.246 -16.1209,12.2718 -16.0969,12.3196 -16.2052,12.2716 -16.2631,12.2273 -16.332,12.1803 -16.4367,12.1582 -16.4768,12.1712 -16.4885,12.2004 -16.5307,12.2487 -16.5495,12.2615 -16.6656,12.3218 -16.6989,12.3086 -16.6989,12.3086 487,0.0,Guinea -13.6974,12.6632 -13.6123,12.6636 -13.3413,12.6512 -13.2951,12.6356 -13.1914,12.638 -13.0416,12.6199 -13.0275,12.576 -13.0408,12.542 -13.0538,12.5182 -13.049,12.4892 -13.0307,12.4653 -12.9468,12.4598 -12.9318,12.5093 -12.9121,12.5284 -12.8816,12.5309 -12.8311,12.4984 -12.7726,12.4512 -12.6197,12.4224 -12.5736,12.3582 -12.5686,12.3499 -12.4884,12.3813 -12.4649,12.3813 -12.4319,12.3734 -12.3805,12.3535 -12.3597,12.3204 -12.3312,12.288 -12.1823,12.3319 -12.1564,12.34 -12.1356,12.351 -12.1142,12.3692 -12.0202,12.3867 -11.8818,12.3955 -11.8284,12.3726 -11.7442,12.3661 -11.7232,12.3668 -11.6802,12.3766 -11.6622,12.3868 -11.6325,12.4077 -11.5066,12.4207 -11.4634,12.4219 -11.4143,12.4125 -11.36,12.394 -11.3703,12.3697 -11.4378,12.2307 -11.4684,12.214 -11.4816,12.1926 -11.481,12.1627 -11.4464,12.1227 -11.4364,12.1169 -11.4002,12.1066 -11.3621,12.0915 -11.3274,12.0335 -11.3069,12.0125 -11.2304,11.982 -11.1649,12.0036 -11.158,12.0139 -11.1381,12.0307 -11.0886,12.1041 -11.0331,12.1911 -10.9456,12.2127 -10.9164,12.211 -10.8974,12.2024 -10.8761,12.1841 -10.8026,12.0994 -10.7311,11.9498 -10.7159,11.9058 -10.6729,11.885 -10.6407,11.8792 -10.5508,11.981 -10.4411,12.1035 -10.3456,12.1528 -10.3192,12.1821 -10.3154,12.2099 -10.0873,12.1653 -9.9006,12.0798 -9.854,12.0415 -9.747,12.0144 -9.6909,12.0159 -9.6563,12.0685 -9.6593,12.0975 -9.6531,12.1183 -9.6338,12.1404 -9.6174,12.1519 -9.5695,12.1747 -9.3873,12.2409 -9.3599,12.2366 -9.3353,12.2393 -9.3077,12.2543 -9.2915,12.2992 -9.2844,12.3486 -9.3353,12.3926 -9.3897,12.4384 -9.349,12.4744 -9.301,12.4908 -9.2425,12.4857 -9.1424,12.4711 -9.0742,12.4235 -9.0457,12.421 -8.9698,12.379 -8.9382,12.341 -8.9334,12.3212 -8.9455,12.3018 -8.9673,12.2647 -8.9701,12.2162 -8.9517,12.1821 -8.9266,12.1775 -8.787,11.9932 -8.7696,11.9126 -8.7827,11.8435 -8.8217,11.6487 -8.764,11.6271 -8.727,11.6255 -8.6963,11.6429 -8.6847,11.6194 -8.6797,11.5895 -8.6625,11.5438 -8.647,11.5075 -8.6283,11.4844 -8.595,11.4622 -8.568,11.4572 -8.5382,11.4673 -8.5241,11.4813 -8.5071,11.4221 -8.4864,11.408 -8.4511,11.407 -8.381,11.38 -8.3535,11.3625 -8.3467,11.3015 -8.3596,11.2748 -8.3846,11.2673 -8.4219,11.2684 -8.4423,11.2793 -8.468,11.2759 -8.6004,11.1147 -8.6702,10.9904 -8.6618,10.9467 -8.5738,10.9606 -8.5015,10.9935 -8.4486,11.0386 -8.3365,11.0408 -8.2805,10.9957 -8.278,10.8374 -8.312,10.7487 -8.2727,10.5378 -8.2608,10.4907 -8.2088,10.4141 -8.1775,10.405 -8.132,10.4124 -7.9677,10.3175 -7.933,10.2318 -7.965,10.1544 -7.9959,10.0945 -8.0101,10.0778 -8.0329,10.0622 -8.0564,10.0509 -8.0921,10.0424 -8.1385,9.9728 -8.1492,9.9165 -8.121,9.875 -8.0949,9.8532 -8.0952,9.8039 -8.102,9.7981 -8.1057,9.7945 -8.1384,9.6099 -8.1363,9.5466 -8.1343,9.5233 -8.1227,9.4863 -8.1002,9.4538 -8.0554,9.4083 -8.0468,9.3929 -8.0104,9.3778 -7.9528,9.3792 -7.8685,9.3412 -7.9081,9.2249 -7.9111,9.194 -7.8944,9.1693 -7.7882,9.1157 -7.7273,9.0815 -7.7278,9.0623 -7.8017,9.059 -7.8899,9.0088 -7.9052,8.9929 -7.919,8.962 -7.9277,8.9232 -7.9476,8.8163 -7.9473,8.7948 -7.9318,8.7705 -7.9017,8.7577 -7.8749,8.7658 -7.7835,8.7459 -7.742,8.7078 -7.6647,8.6057 -7.6664,8.5382 -7.6659,8.4284 -7.6569,8.4065 -7.6448,8.3746 -7.6888,8.3616 -7.7401,8.3734 -7.7518,8.4064 -7.7754,8.4454 -7.808,8.4769 -7.94,8.4921 -8.1792,8.4897 -8.2316,8.4372 -8.2254,8.3057 -8.2226,8.2654 -8.2196,8.2312 -8.1653,8.1885 -8.1009,8.1655 -8.0537,8.1547 -8.0114,8.1705 -7.9901,8.1447 -7.9423,8.0275 -7.9376,8.0098 -8.0098,8.0214 -8.0443,8.024 -8.0413,8.0099 -8.0468,7.9677 -8.0674,7.9402 -8.1098,7.8559 -8.102,7.8323 -8.0713,7.7966 -8.085,7.7738 -8.175,7.613 -8.1772,7.5926 -8.1771,7.5647 -8.2092,7.5365 -8.2762,7.5741 -8.3886,7.6097 -8.4107,7.5964 -8.4599,7.5528 -8.4771,7.5632 -8.5408,7.6075 -8.5458,7.642 -8.5417,7.6833 -8.5635,7.6841 -8.6508,7.6866 -8.6652,7.6727 -8.6974,7.6382 -8.713,7.557 -8.7092,7.5523 -8.7022,7.5493 -8.6985,7.5073 -8.7786,7.4024 -8.8242,7.3012 -8.8341,7.2637 -8.9011,7.2456 -8.9623,7.2437 -9.0267,7.2206 -9.0887,7.1953 -9.0994,7.1861 -9.0878,7.223 -9.196,7.3412 -9.2306,7.374 -9.3139,7.4185 -9.4115,7.4168 -9.45,7.3795 -9.4744,7.3537 -9.4763,7.3618 -9.4469,7.433 -9.41,7.4685 -9.3735,7.5517 -9.3561,7.6028 -9.3671,7.6335 -9.3654,7.6746 -9.3479,7.7289 -9.3432,7.7336 -9.3491,7.7416 -9.3994,7.829 -9.4265,7.8924 -9.4207,7.9465 -9.4066,7.9657 -9.3966,8.0101 -9.4519,8.1566 -9.473,8.3378 -9.6281,8.4619 -9.6588,8.4813 -9.7816,8.4988 -9.8345,8.4853 -9.8652,8.4902 -9.8848,8.4934 -9.9544,8.4658 -10.1581,8.5033 -10.203,8.4697 -10.2551,8.4789 -10.3117,8.4999 -10.3785,8.4816 -10.4109,8.4265 -10.4239,8.3946 -10.4808,8.3391 -10.5173,8.3124 -10.5426,8.2996 -10.6836,8.2896 -10.6818,8.3528 -10.608,8.5342 -10.5645,8.5898 -10.5249,8.6104 -10.4961,8.7084 -10.571,8.8146 -10.5813,8.857 -10.5892,8.9437 -10.5837,8.9758 -10.5653,9.0312 -10.5595,9.0495 -10.5991,9.063 -10.6667,9.0679 -10.7093,9.0675 -10.7277,9.0812 -10.7115,9.1494 -10.6773,9.1961 -10.659,9.2175 -10.6455,9.2922 -10.6878,9.3359 -10.7382,9.3786 -10.8265,9.4692 -10.8971,9.5926 -10.9677,9.7166 -10.9848,9.7408 -11.0115,9.7712 -11.0393,9.7987 -11.0924,9.8428 -11.1617,9.9646 -11.2021,9.9865 -11.4462,9.9865 -11.4689,9.9863 -11.5567,9.9854 -11.5638,9.9862 -11.8815,9.985 -11.8872,9.9614 -11.8842,9.9245 -12.0922,9.8694 -12.1211,9.8641 -12.146,9.8689 -12.2062,9.901 -12.217,9.9242 -12.4423,9.8775 -12.4792,9.8528 -12.5719,9.6376 -12.5702,9.6212 -12.6024,9.5953 -12.617,9.5623 -12.6509,9.4656 -12.6653,9.4092 -12.7836,9.2877 -12.8035,9.2765 -12.8417,9.274 -12.9126,9.2789 -12.9341,9.2671 -12.9462,9.2243 -12.9618,9.1594 -12.99,9.0981 -13.0169,9.0762 -13.0784,9.0373 -13.0987,9.0339 -13.1259,9.0439 -13.168,9.0763 -13.2488,9.0525 -13.2761,9.0328 -13.2805,9.0223 -13.2955,9.0328 -13.3108,9.0601 -13.255,9.1297 -13.2577,9.1921 -13.2987,9.1953 -13.3971,9.2725 -13.5054,9.4468 -13.5081,9.4689 -13.4781,9.5493 -13.4955,9.5199 -13.5076,9.5013 -13.5288,9.4903 -13.6568,9.5527 -13.5878,9.7235 -13.5796,9.7494 -13.6021,9.7911 -13.6399,9.8238 -13.6317,9.7747 -13.6602,9.7337 -13.6818,9.7272 -13.7053,9.7302 -13.7322,9.7501 -13.7396,9.7781 -13.7187,9.8273 -13.6967,9.8469 -13.6735,9.8885 -13.6694,9.9232 -13.6735,9.941 -13.6874,9.8982 -13.7176,9.8617 -13.7665,9.8331 -13.8069,9.8387 -13.8311,9.8522 -13.9068,9.9185 -13.9253,9.9335 -14.0499,10.021 -14.1178,10.0369 -14.2089,10.0935 -14.4413,10.2823 -14.5307,10.4034 -14.5299,10.4813 -14.5197,10.495 -14.5608,10.4661 -14.6011,10.4579 -14.6446,10.4618 -14.6509,10.5132 -14.6055,10.6561 -14.5948,10.686 -14.5373,10.7676 -14.5005,10.8307 -14.5572,10.7961 -14.5956,10.7285 -14.6205,10.6746 -14.6821,10.6285 -14.6997,10.6843 -14.6914,10.7448 -14.7308,10.8217 -14.756,10.8203 -14.7923,10.8088 -14.8023,10.9052 -14.7987,10.925 -14.7629,10.9345 -14.7183,10.9471 -14.6739,11.0167 -14.7325,10.9669 -14.8493,10.9523 -14.8903,10.9156 -14.9041,10.8883 -14.9315,10.7755 -14.9676,10.7571 -14.9887,10.7598 -15.0089,10.7709 -15.0565,10.828 -15.0641,10.859 -15.0582,10.882 -15.0003,10.9444 -14.9923,10.9483 -14.9454,11.004 -14.9083,11.0635 -14.8516,11.1642 -14.8313,11.2185 -14.8235,11.2484 -14.8119,11.2904 -14.7892,11.3395 -14.7647,11.3767 -14.689,11.4803 -14.6617,11.4999 -14.621,11.5037 -14.5815,11.5024 -14.5568,11.4965 -14.519,11.4971 -14.4941,11.5017 -14.4151,11.5462 -14.3857,11.5621 -14.2932,11.6159 -14.2636,11.6619 -14.1262,11.6482 -14.0881,11.628 -14.0635,11.6277 -14.0587,11.63 -13.9861,11.6282 -13.7576,11.6738 -13.6929,11.7045 -13.6884,11.7677 -13.6987,12.0029 -13.7286,12.0159 -13.7693,12.0263 -13.8612,12.1037 -13.9106,12.1352 -13.9481,12.1399 -13.9476,12.1856 -13.8438,12.2648 -13.7845,12.2662 -13.7915,12.2419 -13.716,12.2445 -13.6879,12.2668 -13.6802,12.2792 -13.6538,12.3051 -13.6282,12.4385 -13.6304,12.463 -13.64,12.4815 -13.6717,12.5125 -13.6975,12.5518 -13.7053,12.5844 -13.7052,12.6045 -13.7029,12.6289 -13.6974,12.6632 -13.6974,12.6632 23,8.0,Philippines 121.8823,12.0808 121.8314,12.1347 121.8216,12.1565 121.7855,12.2758 121.7814,12.2894 121.7839,12.3 121.804,12.35 121.8427,12.3898 121.8527,12.3952 121.8663,12.4315 121.8725,12.4658 121.8726,12.4785 121.8659,12.5537 121.8561,12.5622 121.8627,12.5884 121.9011,12.6184 121.9856,12.663 122.0073,12.6221 122.0012,12.5567 121.9748,12.4016 121.9124,12.1633 121.8823,12.0808 121.8823,12.0808 18,8.0,Philippines 123.6487,12.3284 123.5994,12.3811 123.5872,12.3954 123.5518,12.4413 123.4903,12.5373 123.4422,12.6136 123.4434,12.6337 123.4455,12.6446 123.495,12.6597 123.5651,12.6103 123.5832,12.5958 123.5889,12.5878 123.5951,12.571 123.622,12.4953 123.6602,12.3544 123.655,12.333 123.6487,12.3284 123.6487,12.3284 26,6.5,Myanmar (Burma) 98.2022,12.3546 98.2134,12.3778 98.2207,12.3986 98.2238,12.4163 98.2236,12.4396 98.208,12.4851 98.1938,12.5681 98.1919,12.5798 98.1901,12.6185 98.2113,12.6569 98.2564,12.65 98.2846,12.6325 98.3383,12.5904 98.3511,12.5721 98.3556,12.5597 98.3576,12.4862 98.3561,12.4627 98.3476,12.4436 98.2868,12.354 98.2501,12.3102 98.237,12.3024 98.2103,12.3103 98.1952,12.3201 98.1987,12.3443 98.2022,12.3546 98.2022,12.3546 38,8.0,Philippines 123.9277,11.7029 123.8691,11.7804 123.8385,11.8105 123.782,11.8506 123.7247,11.8839 123.7003,11.8956 123.6632,11.9061 123.4771,12.0788 123.4657,12.1024 123.4462,12.133 123.3989,12.192 123.3382,12.1956 123.3032,12.186 123.2142,12.0748 123.1146,11.9573 123.0959,11.9406 123.0364,11.8927 123.0279,11.8908 123.0228,11.8933 123.0074,11.9217 123.0724,12.0536 123.1083,12.1223 123.164,12.231 123.1312,12.3253 123.0961,12.5706 123.1072,12.5918 123.1875,12.5621 123.3274,12.501 123.4043,12.4371 123.531,12.3333 123.667,12.229 123.7401,12.2034 123.7727,12.1757 123.9069,11.9654 123.936,11.8372 123.9414,11.7148 123.9277,11.7029 123.9277,11.7029 11,-5.0,Colombia -81.6212,12.4763 -81.6283,12.4824 -81.6281,12.5315 -81.6219,12.5511 -81.6127,12.5662 -81.6004,12.5763 -81.5895,12.5718 -81.5992,12.5181 -81.6107,12.4935 -81.6212,12.4763 -81.6212,12.4763 101,8.0,Philippines 125.6128,10.9965 125.5985,11.0018 125.5776,11.0185 125.5557,11.0493 125.5415,11.0741 125.5506,11.0956 125.526,11.1218 125.4316,11.1336 125.384,11.1237 125.3243,11.0864 125.1314,11.1158 125.0575,11.168 125.03,11.2413 125.018,11.26 124.9947,11.2658 124.9358,11.269 124.8616,11.3402 124.8528,11.4044 124.8332,11.4335 124.7581,11.4553 124.711,11.4522 124.6909,11.4837 124.6987,11.5052 124.7597,11.5597 124.7961,11.5532 124.8202,11.5639 124.8523,11.5995 124.9036,11.7147 124.8985,11.7399 124.8642,11.7615 124.724,11.7944 124.6337,11.885 124.5552,11.9973 124.5252,12.0192 124.5063,12.0295 124.4581,12.0473 124.3606,12.0741 124.3312,12.0906 124.3352,12.0936 124.3267,12.1144 124.3059,12.14 124.2549,12.1748 124.2044,12.2756 124.1436,12.449 124.1183,12.5372 124.1472,12.5598 124.2119,12.5229 124.3243,12.5071 124.5132,12.4902 124.5894,12.4982 124.6122,12.5012 124.7306,12.5192 124.7485,12.5408 124.9013,12.5207 124.9385,12.5304 124.9611,12.558 125.0078,12.5626 125.0377,12.5471 125.0888,12.5111 125.1566,12.4438 125.1788,12.401 125.1672,12.3811 125.1529,12.3295 125.1564,12.2797 125.1968,12.2545 125.2242,12.2719 125.25,12.2765 125.3125,12.2471 125.3647,12.1914 125.3758,12.1575 125.3399,12.1487 125.3066,12.1016 125.3093,12.0887 125.3815,12.0422 125.3516,12.012 125.3339,11.9966 125.3131,11.9777 125.2966,11.9405 125.2898,11.89 125.3037,11.8134 125.3144,11.6427 125.3067,11.6001 125.3115,11.5774 125.3896,11.4374 125.4313,11.3881 125.4528,11.3833 125.5021,11.3389 125.4974,11.3107 125.4723,11.2825 125.4379,11.2684 125.4083,11.2385 125.397,11.2142 125.4036,11.1769 125.4653,11.1783 125.4585,11.2114 125.526,11.182 125.5464,11.1552 125.6087,11.0542 125.6229,11.0089 125.6128,10.9965 125.6128,10.9965 27,8.0,Philippines 122.5035,12.2509 122.4129,12.343 122.4009,12.3506 122.3629,12.3657 122.3413,12.3723 122.326,12.3763 122.3156,12.3812 122.3069,12.3889 122.2964,12.3995 122.2873,12.4219 122.2935,12.4431 122.3216,12.4708 122.3471,12.4809 122.3958,12.4885 122.4233,12.4885 122.4794,12.4829 122.5138,12.4774 122.5319,12.4698 122.5584,12.4204 122.567,12.4028 122.5715,12.3893 122.5663,12.3503 122.5604,12.3206 122.556,12.3089 122.5439,12.2944 122.5035,12.2509 122.5035,12.2509 940,-5.0,Colombia -77.2803,8.6655 -77.2605,8.6525 -77.2141,8.5689 -77.1984,8.5071 -77.1546,8.4552 -77.1335,8.4416 -77.1131,8.4344 -77.0776,8.4249 -77.048,8.4008 -77.0324,8.3769 -76.9955,8.3167 -76.8823,8.2291 -76.8694,8.1809 -76.8621,8.1501 -76.8013,8.1125 -76.7525,8.1242 -76.748,8.1201 -76.7464,8.0774 -76.7505,8.0174 -76.7842,8.0258 -76.8066,8.0379 -76.8305,8.0225 -76.8409,7.9766 -76.8374,7.9274 -76.7853,7.9007 -76.7305,7.8963 -76.6715,7.9104 -76.6583,7.9272 -76.6459,8.0304 -76.6526,8.0817 -76.6673,8.1885 -76.6792,8.3315 -76.688,8.4021 -76.736,8.4728 -76.7907,8.5119 -76.8424,8.5279 -76.8424,8.5589 -76.799,8.6126 -76.7323,8.6245 -76.5885,8.667 -76.3475,8.8668 -76.3419,8.8967 -76.3337,8.8966 -76.3139,8.9008 -76.2885,8.9063 -76.2327,8.9287 -76.1796,8.9855 -76.0962,9.1817 -76.0883,9.2254 -76.0262,9.3051 -76.0057,9.3255 -75.9874,9.335 -75.8347,9.4118 -75.7322,9.4283 -75.6414,9.4109 -75.6041,9.4011 -75.5732,9.4153 -75.5506,9.4378 -75.5364,9.4618 -75.5146,9.5124 -75.5077,9.5363 -75.5022,9.5724 -75.5021,9.5956 -75.5081,9.6241 -75.5183,9.6549 -75.5436,9.6882 -75.5778,9.7495 -75.5522,9.8138 -75.5132,9.9466 -75.5073,9.9684 -75.4974,10.0344 -75.4973,10.0608 -75.4997,10.0775 -75.4887,10.1231 -75.4512,10.1712 -75.4488,10.2257 -75.4024,10.435 -75.4038,10.4793 -75.4212,10.5383 -75.3931,10.581 -75.326,10.6466 -75.2053,10.7127 -75.1785,10.7095 -75.1692,10.6946 -75.1438,10.7171 -75.1527,10.7502 -75.168,10.734 -75.1854,10.7413 -75.1814,10.7869 -75.1611,10.7885 -75.1399,10.7934 -74.9568,10.8939 -74.9492,10.9239 -74.9403,10.9545 -74.8384,11.0565 -74.7854,11.1074 -74.7783,11.113 -74.7519,11.0931 -74.4229,10.9812 -74.3938,10.9752 -74.3687,10.9717 -74.3414,10.9707 -74.2978,10.9707 -74.2596,10.9745 -74.2341,10.9794 -74.2102,10.987 -74.2228,10.9711 -74.2451,10.9628 -74.2727,10.9591 -74.3371,10.9537 -74.383,10.9593 -74.5097,10.8655 -74.5254,10.8116 -74.5112,10.7715 -74.4371,10.8007 -74.3833,10.7539 -74.3759,10.7305 -74.313,10.7303 -74.2934,10.7435 -74.2763,10.7713 -74.2501,10.8514 -74.2086,10.9555 -74.1817,11.0046 -74.1478,11.1064 -74.157,11.1841 -74.1548,11.2226 -74.1334,11.2568 -74.1066,11.2973 -74.0728,11.319 -73.9553,11.3437 -73.931,11.3425 -73.8875,11.3264 -73.8693,11.3067 -73.7854,11.2722 -73.7094,11.2532 -73.591,11.2529 -73.5498,11.2586 -73.5132,11.2606 -73.4757,11.2612 -73.4558,11.259 -73.4275,11.2574 -73.3032,11.2615 -73.2638,11.2669 -73.236,11.2733 -73.2035,11.2832 -73.1866,11.294 -73.1252,11.3365 -73.1146,11.3639 -73.062,11.4119 -72.9539,11.49 -72.6879,11.6746 -72.6499,11.6936 -72.4369,11.7744 -72.4065,11.7709 -72.3767,11.7721 -72.3355,11.7848 -72.1993,11.8626 -72.1782,11.8759 -72.1521,11.9018 -72.0581,12.0931 -72.0582,12.1134 -72.0652,12.1939 -72.0879,12.2078 -72.0773,12.2276 -72.0579,12.236 -71.9479,12.244 -71.884,12.2385 -71.902,12.212 -71.9312,12.1791 -71.9056,12.1435 -71.8825,12.14 -71.8573,12.1494 -71.7837,12.1971 -71.7294,12.2995 -71.6123,12.3526 -71.5509,12.4079 -71.5745,12.4251 -71.6239,12.4208 -71.6558,12.4003 -71.6437,12.427 -71.6104,12.4453 -71.5809,12.4501 -71.4833,12.4399 -71.4482,12.4323 -71.1956,12.3323 -71.1631,12.3079 -71.1411,12.2883 -71.0353,12.085 -71.0315,12.0621 -71.0346,12.0353 -71.0519,12.0042 -71.0942,11.9711 -71.1526,11.9381 -71.2031,11.9054 -71.2401,11.8521 -71.2452,11.8399 -71.3238,11.7996 -71.3885,11.7825 -71.5468,11.7424 -71.6419,11.7089 -71.6898,11.688 -71.8887,11.6532 -71.9928,11.4827 -72.1293,11.2374 -72.2378,11.1521 -72.2701,11.151 -72.3922,11.1225 -72.4113,11.1103 -72.4598,11.0198 -72.5535,10.8844 -72.6246,10.7586 -72.7298,10.5789 -72.7566,10.5429 -72.8233,10.433 -72.8285,10.4151 -72.8349,10.3392 -72.8589,10.1054 -72.8765,10.071 -72.8976,9.991 -72.9063,9.8939 -72.9244,9.7575 -73.001,9.5989 -73.037,9.5506 -73.164,9.3981 -73.2827,9.2157 -73.2968,9.1611 -73.2641,9.1563 -73.1408,9.1609 -73.0844,9.1855 -73.0624,9.2136 -72.9291,9.2917 -72.9004,9.2507 -72.8776,9.1909 -72.8817,9.1677 -72.8048,9.1092 -72.6988,9.0702 -72.6559,8.9072 -72.5834,8.6317 -72.3421,8.3806 -72.3244,8.3767 -72.3073,8.3602 -72.2951,8.3276 -72.2554,8.143 -72.2438,8.0801 -72.2475,8.0527 -72.2647,8.0389 -72.3082,8.0386 -72.378,7.9116 -72.3918,7.6479 -72.3904,7.4896 -72.3375,7.4122 -72.3197,7.3991 -72.2423,7.3849 -72.1809,7.3814 -72.073,7.317 -72.0824,7.2812 -72.083,7.2543 -72.0634,7.1908 -72.0511,7.1653 -72.0316,7.1303 -72.0108,7.0959 -71.9845,7.0548 -71.972,7.0543 -71.9109,7.0083 -71.8454,7.0021 -71.7953,6.9787 -71.7514,6.9793 -71.7232,6.9954 -71.6208,7.0385 -71.5639,7.0527 -71.5204,7.0502 -71.472,7.0374 -71.4069,7.021 -71.3829,7.0155 -71.2518,7.0144 -71.1818,6.9798 -71.1007,6.9559 -70.9443,6.9766 -70.9247,6.9852 -70.8904,7.0006 -70.828,7.0403 -70.8062,7.0674 -70.7773,7.0748 -70.7391,7.0798 -70.6396,7.0901 -70.4727,7.0507 -70.3616,7.0033 -70.3063,6.9753 -70.2812,6.9563 -70.2642,6.9449 -70.2437,6.9374 -70.2151,6.931 -70.1826,6.9379 -70.1638,6.9532 -70.142,6.9664 -70.079,6.9748 -70.0395,6.9682 -69.6454,6.4793 -69.3502,6.1119 -69.3249,6.1239 -69.2922,6.1389 -69.2369,6.142 -69.2215,6.1162 -69.1918,6.0842 -69.1627,6.0772 -69.1162,6.0937 -69.0745,6.1342 -69.0368,6.1723 -69.0091,6.1962 -68.9775,6.2092 -68.9473,6.2081 -68.7494,6.1794 -68.6751,6.1626 -68.6337,6.1502 -68.6076,6.1347 -68.5601,6.1287 -68.4719,6.1575 -68.399,6.1797 -68.3757,6.1837 -68.3413,6.1848 -68.2962,6.1728 -68.2415,6.1612 -68.2173,6.1691 -68.1518,6.1922 -68.1163,6.2041 -68.0776,6.216 -68.0545,6.2168 -68.0261,6.2145 -67.9886,6.2063 -67.9578,6.1986 -67.9204,6.2005 -67.88,6.2109 -67.8408,6.2313 -67.7541,6.3006 -67.6163,6.2862 -67.5581,6.278 -67.4867,6.2556 -67.4575,6.2363 -67.4193,6.1987 -67.3956,6.1876 -67.3777,6.1862 -67.4124,6.1471 -67.4156,6.1147 -67.4085,6.0912 -67.3927,6.0628 -67.358,6.0321 -67.3372,5.9889 -67.3492,5.9702 -67.3848,5.9491 -67.4018,5.9349 -67.4546,5.8847 -67.52,5.8183 -67.5428,5.786 -67.5657,5.725 -67.5744,5.6771 -67.5714,5.6461 -67.5651,5.6059 -67.5564,5.5721 -67.5388,5.5419 -67.5719,5.4724 -67.6108,5.4428 -67.67,5.4062 -67.6917,5.4009 -67.7264,5.3775 -67.7711,5.3006 -67.752,5.1256 -67.7426,5.0879 -67.7253,5.034 -67.7239,4.9678 -67.7361,4.8258 -67.739,4.7965 -67.7472,4.7314 -67.7813,4.5564 -67.7074,4.33 -67.724,4.2956 -67.7284,4.268 -67.7289,4.2271 -67.7096,4.162 -67.6521,4.0832 -67.6315,4.0424 -67.6157,3.9655 -67.6037,3.917 -67.5583,3.7933 -67.5391,3.7549 -67.5231,3.7365 -67.5003,3.7281 -67.4651,3.7326 -67.4351,3.734 -67.4145,3.7204 -67.3606,3.6443 -67.3518,3.604 -67.3193,3.5086 -67.3049,3.4821 -67.2866,3.4693 -67.2653,3.4626 -67.2303,3.4491 -67.2165,3.3925 -67.2701,3.3102 -67.2934,3.3013 -67.3592,3.2503 -67.4234,3.1871 -67.5801,3.0396 -67.7564,2.8736 -67.7469,2.824 -67.6893,2.8296 -67.558,2.8064 -67.5296,2.7904 -67.5132,2.761 -67.4589,2.6769 -67.4092,2.6504 -67.2493,2.4712 -67.2056,2.4364 -67.1821,2.4265 -67.1438,2.4106 -67.1169,2.3901 -67.0986,2.3342 -67.1088,2.3135 -67.1316,2.2922 -67.1413,2.2728 -67.1359,2.2413 -67.1229,2.2051 -67.0996,2.151 -67.0848,2.1303 -67.0376,2.0243 -66.9164,1.6941 -66.8512,1.4583 -66.8238,1.2829 -66.8166,1.2499 -66.8001,1.2248 -66.7952,1.2197 -66.8101,1.2198 -66.9575,1.1811 -66.9998,1.1713 -67.0089,1.1926 -67.0125,1.2652 -67.0122,1.2851 -67.0052,1.3839 -66.9983,1.4129 -66.9882,1.4367 -66.9816,1.5187 -66.9956,1.6187 -67.0382,1.733 -67.0853,1.8167 -67.131,1.8738 -67.1524,1.8896 -67.1889,1.945 -67.2331,2.0304 -67.2439,2.0609 -67.2495,2.0863 -67.2638,2.1107 -67.3468,2.1405 -67.4299,2.1045 -67.4899,2.0649 -67.5097,2.0508 -67.59,1.9714 -67.6008,1.9347 -67.6112,1.9174 -67.6946,1.8167 -67.7352,1.7824 -67.7963,1.7534 -67.8384,1.7434 -67.8655,1.7406 -67.8914,1.7439 -67.9142,1.752 -67.9336,1.7665 -67.9589,1.7996 -67.9889,1.8515 -67.9985,1.8701 -68.0117,1.9252 -68.0282,1.9499 -68.0475,1.9618 -68.0976,1.9754 -68.1196,1.9754 -68.1498,1.9317 -68.1603,1.9078 -68.1803,1.8506 -68.1559,1.7738 -68.1349,1.7698 -68.1059,1.7648 -68.0764,1.7224 -68.7515,1.7244 -69.0253,1.7256 -69.1619,1.7261 -69.2945,1.7262 -69.3221,1.7426 -69.381,1.7584 -69.4756,1.782 -69.6221,1.7436 -69.7063,1.7057 -69.7676,1.7087 -69.7635,1.6962 -69.7639,1.0712 -69.6401,1.0714 -69.5353,1.0769 -69.3571,1.0374 -69.299,1.0556 -69.2606,1.072 -69.1872,1.0329 -69.15,0.9979 -69.0626,0.8628 -69.0817,0.7522 -69.0502,0.6435 -69.1321,0.6157 -69.2098,0.6224 -69.2511,0.6559 -69.3813,0.736 -69.6053,0.6767 -69.6715,0.6334 -69.7172,0.6009 -69.8441,0.5973 -69.905,0.5973 -69.966,0.5844 -69.9676,0.5109 -69.9696,0.3681 -69.9708,0.3066 -69.974,0.1436 -69.9771,3.0E-4 -69.9788,-0.0876 -69.9795,-0.157 -69.9429,-0.203 -69.855,-0.3039 -69.6612,-0.4551 -69.6387,-0.4604 -69.6103,-0.4661 -69.5524,-0.4935 -69.5285,-0.5192 -69.4955,-0.6342 -69.5045,-0.6671 -69.518,-0.6994 -69.5371,-0.7233 -69.5346,-0.7549 -69.4396,-0.9323 -69.4028,-0.9539 -69.3562,-0.9999 -69.364,-1.0164 -69.3535,-1.0395 -69.3339,-1.1306 -69.3121,-1.2444 -69.3004,-1.3364 -69.3129,-1.3796 -69.3745,-1.5242 -69.4443,-1.912 -69.5159,-2.3084 -69.5291,-2.3836 -69.5474,-2.4792 -69.5567,-2.5313 -69.7141,-3.4153 -69.8027,-3.9155 -69.8638,-4.2075 -69.8771,-4.2321 -69.8769,-4.2045 -69.9089,-4.1709 -69.9414,-4.149 -69.9611,-4.1357 -70.0433,-4.0677 -70.0563,-4.0462 -70.0644,-4.027 -70.0728,-4.0012 -70.0829,-3.9701 -70.1019,-3.9328 -70.1548,-3.8669 -70.2431,-3.7949 -70.2616,-3.7854 -70.2823,-3.7833 -70.3264,-3.7979 -70.3441,-3.8118 -70.3994,-3.8456 -70.4206,-3.8547 -70.4477,-3.8547 -70.5274,-3.8248 -70.6437,-3.7754 -70.5921,-3.6934 -70.5475,-3.6247 -70.4857,-3.5294 -70.3673,-3.3453 -70.3324,-3.2909 -69.9884,-2.7523 -70.0193,-2.6953 -70.0416,-2.6985 -70.1154,-2.6409 -70.1297,-2.6063 -70.1395,-2.5673 -70.2162,-2.4984 -70.2562,-2.4893 -70.2764,-2.4952 -70.2985,-2.5088 -70.4847,-2.4902 -70.5027,-2.4811 -70.5701,-2.3984 -70.5781,-2.3554 -70.7792,-2.2228 -70.8964,-2.2754 -71.0211,-2.3093 -71.1078,-2.3576 -71.2812,-2.344 -71.3318,-2.2786 -71.4395,-2.2319 -71.4959,-2.2338 -71.5937,-2.2224 -71.6034,-2.1934 -71.6023,-2.1638 -71.6124,-2.1455 -71.641,-2.1565 -71.7277,-2.2281 -71.7903,-2.3176 -71.8086,-2.375 -71.8504,-2.376 -71.9009,-2.3665 -71.9888,-2.4048 -72.1459,-2.4958 -72.2179,-2.4884 -72.246,-2.4799 -72.3693,-2.4385 -72.5082,-2.4043 -72.6015,-2.4369 -72.7328,-2.4869 -72.7997,-2.5032 -72.8201,-2.4505 -72.8524,-2.3973 -72.8929,-2.3989 -72.9207,-2.4075 -72.9917,-2.3685 -73.0225,-2.344 -73.033,-2.3258 -73.0492,-2.2434 -73.019,-2.2291 -72.9956,-2.1976 -72.9759,-2.1429 -73.0082,-1.9213 -73.0503,-1.8467 -73.1146,-1.8044 -73.1564,-1.8432 -73.2144,-1.8712 -73.3337,-1.8146 -73.4078,-1.7647 -73.425,-1.7461 -73.4042,-1.6523 -73.3945,-1.6345 -73.3646,-1.6084 -73.3945,-1.5505 -73.4375,-1.4917 -73.4602,-1.4661 -73.4648,-1.4348 -73.4729,-1.3736 -73.5708,-1.2828 -73.6301,-1.2777 -73.6695,-1.2881 -73.7579,-1.2637 -73.7851,-1.2069 -73.9947,-1.0714 -74.1321,-1.0333 -74.1572,-1.0117 -74.1718,-0.9852 -74.1993,-0.929 -74.1806,-0.8977 -74.1646,-0.8526 -74.2068,-0.8085 -74.2325,-0.7804 -74.2554,-0.7052 -74.2746,-0.6323 -74.2867,-0.5769 -74.2927,-0.5671 -74.3102,-0.5426 -74.4731,-0.417 -74.5238,-0.3828 -74.549,-0.4059 -74.6251,-0.3611 -74.6319,-0.333 -74.6331,-0.311 -74.6372,-0.2891 -74.6498,-0.2604 -74.6651,-0.2349 -74.6884,-0.2073 -74.7081,-0.1999 -74.7287,-0.2052 -74.7573,-0.225 -74.7764,-0.232 -74.854,-0.1984 -74.8763,-0.1701 -74.9371,-0.1228 -75.0526,-0.045 -75.1206,-0.0368 -75.1323,-0.0681 -75.1413,-0.0957 -75.1746,-0.1222 -75.2015,-0.1192 -75.2156,-0.102 -75.2411,-0.0881 -75.2653,-0.078 -75.3143,-0.0717 -75.3498,-0.0591 -75.4343,-0.0077 -75.4907,0.0318 -75.6093,0.0433 -75.6424,0.0355 -75.6758,0.0467 -75.8274,0.1634 -75.895,0.2564 -75.9396,0.3198 -75.9548,0.3375 -76.0598,0.3707 -76.1575,0.3953 -76.3152,0.3919 -76.3219,0.2713 -76.363,0.2466 -76.4592,0.2189 -76.4806,0.2204 -76.4989,0.2307 -76.526,0.2585 -76.6306,0.2829 -76.6409,0.2627 -76.6843,0.2488 -76.7253,0.2413 -76.7804,0.239 -76.949,0.306 -76.9933,0.3592 -77.1052,0.3346 -77.1324,0.3358 -77.2249,0.3629 -77.2928,0.3844 -77.3352,0.4126 -77.3642,0.5409 -77.3593,0.5847 -77.3566,0.6213 -77.3768,0.6548 -77.4065,0.6648 -77.4263,0.6579 -77.4488,0.6551 -77.4784,0.6731 -77.4929,0.6853 -77.5375,0.71 -77.5598,0.728 -77.5723,0.7497 -77.5744,0.7806 -77.569,0.8086 -77.5913,0.8364 -77.6114,0.8445 -77.6928,0.8271 -77.727,0.8075 -77.7665,0.8129 -77.7959,0.8249 -77.8422,0.8745 -77.9117,0.9033 -77.9443,0.8998 -77.9824,0.9035 -78.0123,0.9152 -78.0875,0.9697 -78.142,1.0171 -78.1603,1.0287 -78.1957,1.0379 -78.2222,1.043 -78.2444,1.0515 -78.2657,1.0678 -78.3536,1.1531 -78.3678,1.1737 -78.3782,1.1913 -78.452,1.2081 -78.4721,1.1972 -78.5033,1.2418 -78.5435,1.2611 -78.5685,1.2705 -78.589,1.2843 -78.7211,1.4362 -78.77,1.5462 -78.8394,1.5787 -78.8597,1.5827 -78.8967,1.5838 -78.9419,1.5973 -78.9614,1.6301 -78.8834,1.7504 -78.792,1.8235 -78.7562,1.8344 -78.6728,1.8189 -78.6441,1.8038 -78.5325,1.7627 -78.4989,1.7652 -78.4614,1.8803 -78.4579,1.9152 -78.5079,2.0159 -78.5308,2.0276 -78.5658,2.0616 -78.5921,2.1523 -78.5983,2.1912 -78.5539,2.2869 -78.4939,2.3986 -78.4769,2.4265 -78.4684,2.388 -78.4525,2.4196 -78.4344,2.4314 -78.377,2.4405 -78.3671,2.5013 -78.3396,2.5056 -78.3009,2.476 -78.2803,2.4552 -78.2582,2.4352 -78.1768,2.5165 -78.0562,2.4882 -78.0344,2.4846 -77.8989,2.5196 -77.8623,2.555 -77.8533,2.6077 -77.8497,2.6479 -77.8158,2.6014 -77.8096,2.575 -77.7734,2.5574 -77.6997,2.5666 -77.6575,2.6076 -77.677,2.6399 -77.6934,2.7533 -77.6262,2.8637 -77.4785,3.047 -77.4603,3.0562 -77.3301,3.257 -77.3205,3.2846 -77.3441,3.2977 -77.3802,3.3266 -77.3623,3.3537 -77.2763,3.4088 -77.1566,3.5624 -77.124,3.5715 -77.0534,3.6619 -77.0411,3.7049 -77.0381,3.7646 -76.9452,3.9143 -76.9953,3.9025 -77.0251,3.8902 -77.0719,3.8584 -77.101,3.8393 -77.1492,3.8347 -77.1775,3.8359 -77.1991,3.8476 -77.2097,3.9117 -77.198,3.9465 -77.1722,3.9625 -77.1268,3.9674 -77.0993,4.056 -77.1227,4.0725 -77.1728,4.0909 -77.2068,4.0588 -77.2247,4.0364 -77.241,3.9822 -77.2563,3.947 -77.2784,3.9218 -77.3344,3.9944 -77.3464,4.0269 -77.3491,4.1375 -77.3374,4.1741 -77.2492,4.2126 -77.188,4.2104 -77.1604,4.2409 -77.1543,4.2564 -77.202,4.2666 -77.2493,4.2647 -77.2943,4.3375 -77.2583,4.4382 -77.2543,4.4445 -77.246,4.4663 -77.2249,4.5414 -77.2284,4.6431 -77.2333,4.7143 -77.2511,4.811 -77.2595,4.8371 -77.2649,4.8622 -77.2732,4.9352 -77.2837,5.0771 -77.2828,5.1493 -77.2651,5.1971 -77.2591,5.2349 -77.2714,5.2926 -77.3084,5.4501 -77.3923,5.4983 -77.4437,5.5127 -77.416,5.5782 -77.3323,5.6177 -77.2942,5.6116 -77.2707,5.598 -77.2387,5.6101 -77.1623,5.7029 -77.1525,5.752 -77.1567,5.7818 -77.2507,5.981 -77.3196,6.0738 -77.366,6.1238 -77.3872,6.1517 -77.4005,6.1784 -77.3877,6.2761 -77.3189,6.2329 -77.2973,6.2746 -77.2677,6.3845 -77.2526,6.5603 -77.3202,6.6831 -77.3559,6.7044 -77.3786,6.7068 -77.5781,6.8691 -77.5649,6.9696 -77.5684,6.9929 -77.5927,7.0483 -77.7052,7.1442 -77.8017,7.2209 -77.7197,7.4706 -77.688,7.4672 -77.661,7.4759 -77.6444,7.4977 -77.6332,7.5282 -77.6416,7.5605 -77.6667,7.6037 -77.6713,7.625 -77.6716,7.6589 -77.6712,7.6847 -77.6564,7.7115 -77.5762,7.6711 -77.5366,7.5951 -77.5226,7.5542 -77.5127,7.531 -77.4898,7.518 -77.2439,7.6934 -77.2429,7.7175 -77.2827,7.77 -77.2243,7.8784 -77.2084,7.8963 -77.1286,7.9285 -77.1114,7.9906 -77.1287,8.0789 -77.157,8.1363 -77.1868,8.1894 -77.2093,8.2069 -77.262,8.2586 -77.2758,8.276 -77.2812,8.3281 -77.2818,8.355 -77.2884,8.3892 -77.3193,8.4418 -77.3426,8.4633 -77.382,8.4622 -77.389,8.5116 -77.3658,8.5474 -77.352,8.5571 -77.2854,8.6366 -77.2803,8.6655 -77.2803,8.6655 13,6.5,Myanmar (Burma) 97.878,12.2779 97.8277,12.3269 97.8299,12.3449 97.8399,12.3662 97.8492,12.3709 97.9008,12.3915 97.9672,12.4026 97.9956,12.3846 97.991,12.358 97.9819,12.3467 97.8961,12.2684 97.878,12.2779 97.878,12.2779 240,1.0,Benin 2.3952,11.883 2.3991,11.9438 2.401,12.071 2.3862,12.1163 2.3739,12.1931 2.3856,12.2337 2.5329,12.2676 2.6087,12.2787 2.6621,12.289 2.7162,12.3386 2.7772,12.3682 2.8355,12.3829 2.8614,12.3679 3.0069,12.2551 3.1588,12.0999 3.2519,11.9981 3.2582,11.9644 3.2665,11.9388 3.2946,11.8972 3.3173,11.873 3.3529,11.8724 3.3716,11.8815 3.4676,11.8416 3.5042,11.8111 3.5421,11.7615 3.554,11.7234 3.6005,11.6801 3.5675,11.6381 3.5213,11.5508 3.4711,11.4169 3.6049,11.2375 3.6908,11.1223 3.7101,11.1147 3.7316,11.1082 3.7247,11.065 3.7266,11.0284 3.7335,11.0082 3.7712,10.8867 3.7556,10.8353 3.7452,10.8176 3.7473,10.7866 3.7813,10.7449 3.8268,10.7 3.8433,10.6848 3.8508,10.5732 3.8085,10.4379 3.7874,10.3927 3.7597,10.4011 3.7303,10.4181 3.6956,10.4365 3.6349,10.4021 3.578,10.264 3.6402,10.1883 3.6664,10.1751 3.6803,10.1495 3.6739,10.1004 3.6081,9.9432 3.5551,9.8693 3.5174,9.8346 3.4799,9.8446 3.346,9.8004 3.3305,9.7723 3.3276,9.7517 3.3338,9.7243 3.3491,9.6924 3.3597,9.6712 3.3136,9.6255 3.1679,9.4857 3.1385,9.4248 3.1454,9.4016 3.1598,9.3669 3.1631,9.2924 3.1281,9.1841 3.0917,9.0805 2.993,9.0533 2.9643,9.0717 2.9021,9.069 2.8105,9.0553 2.7889,9.0402 2.7802,9.0065 2.7422,8.7857 2.7401,8.761 2.7439,8.7099 2.7533,8.5725 2.7536,8.5456 2.7499,8.5263 2.7545,8.5205 2.7553,8.4818 2.747,8.4483 2.7225,8.4227 2.7068,8.3331 2.7331,8.2367 2.7487,8.2007 2.7385,8.1469 2.7247,8.0992 2.706,7.9991 2.6894,7.8976 2.6924,7.8736 2.6999,7.8564 2.7364,7.8057 2.7398,7.7809 2.7357,7.7079 2.73,7.6499 2.7291,7.6434 2.7336,7.588 2.7669,7.2466 2.7757,7.1267 2.7468,7.0865 2.7248,6.9392 2.7487,6.9136 2.7598,6.7574 2.7587,6.6639 2.7524,6.5578 2.7243,6.4677 2.7167,6.4453 2.7166,6.3585 2.64,6.349 2.5372,6.3379 2.4815,6.3335 2.4774,6.3318 2.4525,6.326 2.4021,6.3229 2.36,6.3234 2.3285,6.3217 2.2732,6.3162 2.0537,6.2873 1.9853,6.2752 1.9249,6.2683 1.8014,6.2507 1.6957,6.231 1.6381,6.2141 1.6338,6.212 1.6281,6.2281 1.6509,6.2434 1.6811,6.2525 1.7406,6.2626 1.7957,6.2735 1.7934,6.3013 1.7696,6.4076 1.7472,6.4495 1.6911,6.5419 1.6623,6.5697 1.6536,6.5634 1.6457,6.5658 1.6151,6.5891 1.5736,6.6725 1.5883,6.7082 1.6056,6.789 1.6026,6.8865 1.5754,6.9016 1.5607,6.9405 1.5523,6.989 1.6407,6.9878 1.6436,7.3257 1.642,7.4016 1.6426,7.4348 1.6485,7.5056 1.6536,7.5215 1.6491,7.5395 1.6401,7.6197 1.6376,7.7514 1.6363,7.9899 1.6292,8.351 1.6153,8.3578 1.6224,8.4158 1.6237,8.5777 1.6242,8.7168 1.6248,8.8371 1.6182,9.0242 1.6043,9.089 1.5669,9.1579 1.5383,9.1795 1.5091,9.2005 1.4919,9.2182 1.4511,9.27 1.4303,9.2911 1.4167,9.3087 1.4056,9.3343 1.3978,9.3776 1.3972,9.4196 1.3885,9.4758 1.363,9.471 1.3597,9.475 1.336,9.5319 1.3668,9.5859 1.3686,9.6256 1.3576,9.9039 1.3536,9.9843 1.3065,10.014 1.186,10.0889 1.1714,10.0973 1.066,10.163 0.9982,10.2086 0.7758,10.3653 0.7866,10.5177 0.7974,10.535 0.8051,10.5618 0.8067,10.5955 0.8033,10.6294 0.7995,10.6691 0.7998,10.6899 0.8013,10.7007 0.8064,10.7115 0.8784,10.7877 0.8926,10.8547 0.8897,10.8988 0.917,10.984 0.9492,11.0173 0.9844,11.067 1.0819,11.1101 1.1476,11.2118 1.1917,11.2527 1.2633,11.2338 1.3424,11.3026 1.3268,11.3304 1.3887,11.4209 1.4152,11.4369 1.4271,11.4387 1.4339,11.446 1.4811,11.447 1.5414,11.4449 1.5682,11.4384 1.5846,11.3928 1.6106,11.376 1.7353,11.4033 1.8019,11.4267 1.8726,11.4301 1.8952,11.4186 1.9872,11.4045 2.0078,11.408 2.018,11.4135 2.0249,11.4185 2.0501,11.4421 2.1917,11.5908 2.2599,11.6331 2.3063,11.6754 2.3384,11.7556 2.3901,11.8741 2.3952,11.883 2.3952,11.883 35,8.0,Philippines 120.0669,11.9865 120.0352,12.0152 119.9949,12.0083 120.0024,11.9935 119.9844,11.9641 119.966,11.9498 119.9513,11.9665 119.9496,11.977 119.944,11.9918 119.9284,11.9977 119.9162,11.9865 119.9087,11.9804 119.8843,11.972 119.8394,12.011 119.8067,12.0544 119.7277,12.2308 119.7386,12.2985 119.754,12.3197 119.7667,12.319 119.7877,12.3116 119.7972,12.3075 119.9597,12.1874 119.994,12.1432 120.0333,12.1058 120.0568,12.102 120.0878,12.1237 120.1108,12.1661 120.1986,12.07 120.2099,12.0453 120.2079,12.0023 120.2061,11.9793 120.1705,11.9691 120.0909,11.9714 120.0669,11.9865 120.0669,11.9865 11,6.5,Myanmar (Burma) 97.9567,12.1579 97.9278,12.1914 97.9252,12.2024 97.9298,12.228 97.9478,12.2672 97.9707,12.2704 98.0116,12.2665 98.0299,12.1284 97.9634,12.1488 97.9567,12.1579 97.9567,12.1579 24,3.0,Yemen 52.2831,12.1311 52.2105,12.1343 52.1206,12.1584 52.071,12.1738 52.0547,12.1824 52.0456,12.1883 52.0273,12.2099 52.0341,12.2268 52.0809,12.233 52.1061,12.2249 52.1151,12.22 52.1286,12.2061 52.1409,12.1971 52.15,12.1921 52.1623,12.1891 52.1758,12.1875 52.2207,12.1871 52.2329,12.1885 52.304,12.1861 52.3368,12.1829 52.3361,12.1394 52.3242,12.1352 52.2831,12.1311 52.2831,12.1311 1037,-4.0,Venezuela -71.2452,11.8399 -71.2619,11.7859 -71.2992,11.7402 -71.3664,11.7107 -71.401,11.6971 -71.4253,11.6943 -71.4617,11.6909 -71.5589,11.6777 -71.6325,11.6621 -71.686,11.6493 -71.7364,11.6344 -71.8743,11.5818 -71.8892,11.5336 -71.8864,11.4936 -71.8812,11.4518 -71.873,11.4092 -71.8653,11.3828 -71.8533,11.3505 -71.8266,11.2882 -71.7876,11.2168 -71.7585,11.1705 -71.7158,11.1164 -71.6615,11.0218 -71.6845,11.0015 -71.6122,10.8223 -71.5827,10.7654 -71.5385,10.7302 -71.5182,10.7159 -71.4993,10.7041 -71.5029,10.6628 -71.5512,10.4649 -71.5703,10.4309 -71.599,10.4116 -71.6767,10.3582 -71.6943,10.338 -71.7154,10.3105 -71.7464,10.2438 -71.7624,10.2074 -71.8323,10.1133 -72.0462,9.8074 -71.9987,9.7247 -71.9672,9.697 -71.9287,9.6529 -71.8999,9.6126 -71.8864,9.5917 -71.8649,9.5324 -71.8316,9.4829 -71.6538,9.3652 -71.6444,9.3345 -71.6526,9.2857 -71.6726,9.2121 -71.6797,9.1083 -71.6544,9.0904 -71.6351,9.0678 -71.6096,9.0533 -71.5443,9.0332 -71.5189,9.0299 -71.4733,9.0308 -71.4177,9.0405 -71.2344,9.1003 -71.2116,9.1117 -71.1625,9.1453 -71.146,9.1642 -71.1352,9.1987 -71.1296,9.2094 -71.0864,9.2635 -71.0685,9.2764 -71.039,9.2832 -70.9962,9.3023 -70.9772,9.3285 -70.9771,9.344 -70.9925,9.38 -71.0108,9.5261 -71.0048,9.5561 -70.9828,9.6065 -70.975,9.6929 -70.9954,9.8402 -71.0203,9.8839 -71.0699,9.9397 -71.1914,10.1387 -71.2145,10.164 -71.2388,10.1816 -71.307,10.2714 -71.3581,10.3578 -71.38,10.4483 -71.4435,10.5215 -71.4669,10.5566 -71.4478,10.715 -71.3678,10.7835 -71.3729,10.9043 -71.414,10.9488 -71.3561,10.9675 -71.3333,10.9719 -71.3056,10.9712 -71.2751,10.9661 -71.2026,10.9771 -71.1924,10.9808 -71.0995,11.0201 -70.9953,11.0678 -70.953,11.091 -70.9359,11.1049 -70.9106,11.1209 -70.8554,11.1524 -70.8117,11.1738 -70.7774,11.1879 -70.7472,11.1991 -70.6587,11.2174 -70.5769,11.226 -70.5432,11.2239 -70.4689,11.2295 -70.4306,11.2356 -70.414,11.2506 -70.3689,11.2776 -70.3436,11.2795 -70.2455,11.3191 -70.1612,11.3405 -70.0648,11.4058 -70.0178,11.4175 -69.9574,11.4288 -69.9464,11.4788 -69.9701,11.5048 -69.9099,11.5021 -69.8202,11.4235 -69.7964,11.414 -69.7591,11.4118 -69.7241,11.4147 -69.6651,11.4864 -69.6988,11.5964 -69.7101,11.6225 -69.7388,11.6778 -69.7799,11.6764 -69.9271,11.6372 -70.102,11.5906 -70.1359,11.5961 -70.1578,11.6158 -70.1485,11.642 -70.1657,11.7623 -70.2157,11.8483 -70.2156,11.8863 -70.2083,11.907 -70.1795,11.9759 -70.1281,12.067 -70.109,12.0944 -69.9898,12.1602 -69.9359,12.1839 -69.8565,12.1562 -69.8276,12.1264 -69.7814,12.0584 -69.7625,12.0193 -69.7459,11.9747 -69.7388,11.903 -69.7411,11.868 -69.739,11.8377 -69.7265,11.7809 -69.6931,11.683 -69.6804,11.6485 -69.6418,11.5576 -69.6289,11.5359 -69.5973,11.4982 -69.5547,11.4549 -69.5312,11.4463 -69.5022,11.4513 -69.4785,11.4743 -69.4517,11.4905 -69.4299,11.494 -69.3678,11.4854 -69.3356,11.4749 -69.2831,11.4805 -69.2507,11.5 -69.1979,11.5212 -69.0295,11.4737 -68.8774,11.4391 -68.7672,11.4345 -68.5844,11.3371 -68.5262,11.2781 -68.4777,11.2593 -68.4563,11.2487 -68.3428,11.1677 -68.323,11.1456 -68.258,11.0329 -68.1671,10.8625 -68.1767,10.8446 -68.2299,10.8429 -68.2498,10.8314 -68.2572,10.8041 -68.2528,10.7556 -68.2053,10.632 -68.1786,10.5772 -68.1108,10.5035 -68.0903,10.4872 -68.0395,10.4732 -68.0027,10.4813 -67.9274,10.4795 -67.8186,10.463 -67.7935,10.4532 -67.7573,10.4711 -67.7214,10.4802 -67.4692,10.5211 -67.3927,10.5263 -67.3273,10.5271 -67.318,10.527 -67.2062,10.5348 -67.0341,10.5673 -66.9285,10.5984 -66.4365,10.6161 -66.3976,10.6174 -66.3453,10.6136 -66.3121,10.6044 -66.27,10.593 -66.2508,10.6009 -66.2374,10.6141 -66.2102,10.6329 -66.1568,10.6286 -66.137,10.6205 -66.0088,10.565 -66.0456,10.5151 -66.0469,10.4883 -66.0256,10.4607 -65.9958,10.4316 -65.8863,10.3452 -65.8635,10.2869 -65.7422,10.217 -65.7145,10.2089 -65.6929,10.2057 -65.6532,10.208 -65.4761,10.1667 -65.3547,10.1287 -65.2046,10.1044 -65.01,10.0494 -64.7539,10.0711 -64.7171,10.0784 -64.6934,10.0862 -64.6619,10.1023 -64.6436,10.1685 -64.555,10.2351 -64.509,10.2474 -64.4639,10.2384 -64.4116,10.2268 -64.3079,10.2895 -64.3251,10.3259 -64.3139,10.3574 -64.2975,10.3728 -64.1321,10.4383 -64.0219,10.4449 -64.0004,10.4349 -63.9794,10.4305 -63.8059,10.4285 -63.7392,10.4308 -63.7232,10.4349 -63.6456,10.4604 -63.6276,10.474 -63.7078,10.5137 -63.7688,10.5401 -63.8959,10.5666 -64.0782,10.5582 -64.1305,10.5384 -64.1451,10.5224 -64.165,10.5029 -64.1882,10.5232 -64.2288,10.6146 -64.1938,10.6458 -64.1659,10.6271 -64.0762,10.6063 -63.9037,10.6178 -63.7725,10.634 -63.6218,10.6336 -63.5967,10.63 -63.4646,10.6152 -63.4356,10.628 -63.2748,10.6607 -63.2165,10.6591 -63.1834,10.6666 -63.1607,10.6763 -63.1025,10.7079 -62.9243,10.7043 -62.9034,10.6935 -62.8842,10.6879 -62.8372,10.6841 -62.8003,10.6946 -62.7223,10.7192 -62.6793,10.7303 -62.6286,10.7357 -62.4697,10.7237 -62.4011,10.7152 -62.2892,10.6962 -62.2323,10.6884 -62.1242,10.6822 -62.0634,10.6896 -61.9158,10.716 -61.8113,10.7165 -61.815,10.683 -61.8529,10.6501 -61.8848,10.637 -61.9673,10.6207 -62.0171,10.6154 -62.0463,10.6164 -62.0672,10.6229 -62.0941,10.625 -62.1806,10.6151 -62.2074,10.5885 -62.2185,10.572 -62.2327,10.5437 -62.2624,10.5201 -62.3811,10.5215 -62.4586,10.5287 -62.5111,10.5434 -62.5806,10.5564 -62.6021,10.5563 -62.7617,10.5326 -62.8431,10.5169 -62.9348,10.4413 -62.908,10.4526 -62.8655,10.479 -62.842,10.5041 -62.8032,10.5126 -62.7695,10.4998 -62.7665,10.4369 -62.7621,10.4165 -62.7686,10.3859 -62.8027,10.3784 -62.8201,10.3925 -62.8426,10.4049 -62.8653,10.407 -62.8851,10.4033 -62.9114,10.3952 -62.9344,10.3827 -62.9291,10.2601 -62.8651,10.2677 -62.8587,10.2914 -62.8739,10.3153 -62.8855,10.3636 -62.8773,10.3895 -62.8379,10.3803 -62.8156,10.3628 -62.7881,10.3709 -62.7534,10.3741 -62.721,10.3899 -62.6673,10.3625 -62.6165,10.2988 -62.5977,10.2691 -62.5617,10.096 -62.6007,10.0637 -62.6402,10.0547 -62.7326,10.0442 -62.7601,10.0424 -62.8225,10.0705 -62.8483,10.0837 -62.8879,10.093 -62.9393,10.0906 -62.9476,10.0876 -62.9149,10.0579 -62.8806,10.066 -62.8417,10.0657 -62.8026,10.0351 -62.7365,9.9977 -62.6138,10.0405 -62.5942,10.0479 -62.5767,10.0583 -62.547,10.0818 -62.5367,10.116 -62.5544,10.1774 -62.5407,10.2126 -62.5087,10.2137 -62.4665,10.1909 -62.4326,10.163 -62.4201,10.1416 -62.4016,10.0798 -62.3584,9.9681 -62.3045,9.8702 -62.2466,9.7421 -62.2599,9.7123 -62.2539,9.7013 -62.2317,9.7078 -62.2088,9.7366 -62.2,9.7562 -62.1866,9.7919 -62.1683,9.844 -62.1695,9.8682 -62.1798,9.8989 -62.1821,9.956 -62.1375,9.903 -62.1123,9.8318 -62.0969,9.7044 -62.1277,9.6308 -62.1021,9.6467 -62.0873,9.699 -62.0615,9.7413 -62.0625,9.7679 -62.0651,9.8154 -61.9592,9.8556 -61.9792,9.8777 -62.0442,9.9183 -62.0638,9.9268 -62.0968,9.933 -62.1333,9.9272 -62.1635,9.9537 -62.141,10.0001 -62.1107,10.0038 -62.0073,9.9755 -61.9859,9.9666 -61.8943,9.9008 -61.7438,9.7471 -61.6677,9.5904 -61.6612,9.6154 -61.6604,9.6359 -61.6654,9.688 -61.6969,9.7468 -61.7143,9.7678 -61.7328,9.8012 -61.7248,9.8201 -61.704,9.8192 -61.6451,9.8001 -61.6055,9.7856 -61.5863,9.7795 -61.53,9.772 -61.5067,9.7897 -61.5169,9.8081 -61.5509,9.8334 -61.5803,9.8865 -61.5521,9.8943 -61.5047,9.8744 -61.4865,9.8644 -61.4128,9.8126 -61.3795,9.7769 -61.3581,9.7229 -61.3395,9.6941 -61.3156,9.6696 -61.1885,9.5782 -61.1299,9.5678 -61.0168,9.5716 -60.9789,9.5659 -60.9204,9.5412 -60.8926,9.5219 -60.7864,9.4339 -60.7311,9.369 -60.7157,9.3219 -60.7162,9.2947 -60.7516,9.2588 -60.7796,9.253 -60.8448,9.2263 -60.9202,9.1784 -61.0034,9.1086 -61.0169,9.0876 -61.0304,9.034 -61.0066,9.0661 -60.9911,9.085 -60.9052,9.165 -60.883,9.1648 -60.888,9.1439 -60.9636,9.0221 -61.0096,8.9852 -61.0255,8.9628 -61.0296,8.9534 -61.0515,8.8881 -61.1152,8.7182 -61.1235,8.6704 -61.1242,8.615 -61.1417,8.5858 -61.1825,8.5721 -61.2594,8.5865 -61.3682,8.5923 -61.451,8.5808 -61.4884,8.589 -61.5266,8.6075 -61.5299,8.5455 -61.4192,8.5022 -61.3252,8.4652 -61.2603,8.4216 -61.1519,8.4534 -61.1002,8.4862 -61.009,8.4838 -61.0051,8.4543 -61.0161,8.4376 -61.0176,8.4119 -61.0052,8.3936 -60.9495,8.4596 -60.9187,8.5164 -60.9129,8.5551 -60.834,8.5728 -60.648,8.5949 -60.6146,8.586 -60.5919,8.5701 -60.5594,8.5417 -60.3981,8.5187 -60.3604,8.5642 -60.3413,8.6122 -60.3147,8.6227 -60.1688,8.6179 -60.1386,8.6124 -60.0722,8.5934 -59.9581,8.5444 -59.9392,8.5355 -59.9232,8.526 -59.9139,8.5088 -59.8192,8.3917 -59.7452,8.2969 -59.736,8.2743 -59.7658,8.2224 -59.8216,8.2096 -59.8548,8.2019 -59.8789,8.191 -59.9124,8.1659 -59.9195,8.1378 -59.9439,8.0504 -59.9704,8.0282 -60.0262,8.0322 -60.0573,8.0193 -60.1693,7.9376 -60.1898,7.9129 -60.2519,7.8689 -60.4451,7.8095 -60.4653,7.7951 -60.5064,7.7065 -60.5205,7.6309 -60.5936,7.5581 -60.6227,7.5586 -60.648,7.5315 -60.6455,7.4926 -60.6198,7.4454 -60.5923,7.4388 -60.5416,7.3739 -60.5227,7.3281 -60.5267,7.2981 -60.55,7.276 -60.5657,7.2462 -60.5621,7.2139 -60.5488,7.1863 -60.4693,7.1164 -60.4463,7.1352 -60.4373,7.1647 -60.3876,7.188 -60.2922,7.1684 -60.2683,7.1474 -60.2405,7.1354 -60.2097,7.111 -60.2132,7.082 -60.2229,7.0488 -60.3398,6.9398 -60.395,6.8991 -60.43,6.8801 -60.4582,6.867 -60.5221,6.8434 -60.5688,6.8275 -60.5962,6.7999 -60.6073,6.7823 -60.6288,6.7593 -60.6502,6.7514 -60.7471,6.781 -60.8246,6.7577 -60.8703,6.7173 -60.9664,6.7124 -60.9854,6.7213 -61.0556,6.7074 -61.1047,6.6512 -61.135,6.5706 -61.1269,6.5266 -61.0702,6.4015 -61.0689,6.2922 -61.0903,6.1757 -61.193,6.1012 -61.2005,6.0797 -61.2127,6.0497 -61.2531,5.986 -61.2677,5.966 -61.3034,5.9542 -61.3195,5.9335 -61.0464,5.6284 -60.7907,5.3421 -60.7117,5.2524 -60.6795,5.2168 -60.661,5.1991 -60.6416,5.1973 -60.6155,5.1914 -60.5859,5.1758 -60.5747,5.1531 -60.5129,4.983 -60.5092,4.9471 -60.523,4.9195 -60.5797,4.8374 -60.6063,4.8087 -60.6509,4.7707 -60.7692,4.7132 -60.7973,4.7082 -60.8168,4.7044 -60.8551,4.6328 -60.8604,4.5868 -60.8822,4.552 -60.8987,4.5335 -60.9175,4.5142 -60.9829,4.5028 -61.094,4.4895 -61.2436,4.5018 -61.4222,4.4017 -61.4372,4.3859 -61.4425,4.357 -61.4372,4.3227 -61.4407,4.2986 -61.4541,4.27 -61.4842,4.244 -61.5549,4.2397 -61.5924,4.2505 -61.629,4.2544 -61.6925,4.2383 -61.7202,4.2112 -61.741,4.1801 -61.7785,4.1561 -61.8443,4.1423 -61.8815,4.1524 -61.9168,4.165 -61.9827,4.1454 -62.0087,4.1205 -62.0341,4.0995 -62.0719,4.0889 -62.1103,4.0952 -62.1499,4.1081 -62.1916,4.1225 -62.2106,4.1317 -62.25,4.148 -62.3211,4.1748 -62.3691,4.178 -62.4686,4.1077 -62.5328,4.0376 -62.5985,4.0425 -62.657,4.0341 -62.6862,4.0159 -62.709,3.9043 -62.7059,3.8781 -62.6869,3.8304 -62.6688,3.7865 -62.6562,3.7272 -62.6559,3.7013 -62.6627,3.6726 -62.6802,3.6345 -62.7101,3.6002 -62.8069,3.5562 -62.8318,3.5591 -62.8522,3.5632 -62.919,3.6002 -63.0925,3.7911 -63.1705,3.8937 -63.2221,3.9352 -63.2635,3.9538 -63.2872,3.9613 -63.3104,3.9663 -63.3469,3.9627 -63.3615,3.9374 -63.3668,3.9108 -63.3734,3.8859 -63.3862,3.8621 -63.4192,3.8537 -63.4578,3.8631 -63.4757,3.8765 -63.5012,3.9053 -63.5167,3.9241 -63.542,3.9404 -63.572,3.9441 -63.7754,3.9547 -63.8362,3.9287 -63.8678,3.9005 -63.8836,3.887 -63.9216,3.8788 -63.9451,3.8819 -63.98,3.9042 -63.9919,3.9508 -64.0147,4.0282 -64.0361,4.0783 -64.0535,4.1049 -64.148,4.1365 -64.1759,4.1436 -64.2624,4.1496 -64.3064,4.1489 -64.3289,4.1447 -64.3571,4.1353 -64.3941,4.1295 -64.4793,4.1177 -64.5185,4.1231 -64.5343,4.1406 -64.5684,4.2191 -64.5784,4.2347 -64.6012,4.2528 -64.6192,4.2624 -64.6506,4.2766 -64.6723,4.2827 -64.7078,4.2815 -64.726,4.2603 -64.7283,4.2061 -64.7121,4.1811 -64.6603,4.1565 -64.6396,4.1395 -64.6311,4.1142 -64.6208,4.0776 -64.5875,4.0122 -64.5686,3.9799 -64.5531,3.9612 -64.4446,3.8501 -64.3731,3.783 -64.3323,3.7632 -64.2926,3.7466 -64.2352,3.7142 -64.1172,3.5857 -64.1095,3.5456 -64.112,3.524 -64.1208,3.4974 -64.1517,3.4633 -64.163,3.4291 -64.1538,3.3338 -64.1325,3.1898 -64.0864,3.0575 -64.0734,3.0365 -64.0164,2.9376 -63.9622,2.8298 -63.9155,2.7157 -63.9232,2.6204 -63.9449,2.5713 -63.9588,2.5469 -63.9743,2.5068 -63.9616,2.4685 -63.7497,2.4232 -63.7101,2.4246 -63.5098,2.4319 -63.294,2.4172 -63.275,2.4035 -63.2893,2.2567 -63.3085,2.2266 -63.3281,2.1473 -63.4169,2.1281 -63.4738,2.1277 -63.5355,2.1038 -63.6467,2.0213 -63.6675,2.0009 -63.7533,1.9755 -63.8645,1.9746 -63.8985,1.9651 -63.9302,1.9476 -63.9581,1.9225 -63.9799,1.8885 -63.9802,1.839 -63.9777,1.805 -63.9906,1.6793 -64.0058,1.6337 -64.0411,1.5813 -64.1921,1.4744 -64.2934,1.5058 -64.3218,1.5104 -64.457,1.4322 -64.4764,1.4136 -64.4906,1.39 -64.5065,1.3482 -64.5227,1.3287 -64.6247,1.2615 -64.6588,1.2457 -64.6843,1.2429 -64.7103,1.2585 -64.7462,1.2783 -64.8702,1.2094 -64.9337,1.1648 -65.0309,1.141 -65.0629,1.1172 -65.0735,1.0967 -65.0806,1.0544 -65.0811,1.0341 -65.0875,0.9882 -65.0926,0.9685 -65.1006,0.9491 -65.1192,0.9258 -65.1545,0.914 -65.1798,0.9143 -65.2183,0.9255 -65.2484,0.9111 -65.3125,0.8362 -65.3217,0.8179 -65.3249,0.7881 -65.3268,0.7532 -65.3628,0.6944 -65.4121,0.6611 -65.4482,0.6485 -65.4686,0.6511 -65.4848,0.6656 -65.5021,0.6957 -65.509,0.7291 -65.4937,0.764 -65.4536,0.8057 -65.4374,0.838 -65.4335,0.8709 -65.4366,0.9011 -65.4486,0.926 -65.4661,0.9491 -65.4856,0.9703 -65.5217,0.9896 -65.5833,0.9886 -65.6615,0.9816 -65.797,0.9074 -65.8388,0.8709 -65.8549,0.8531 -65.8812,0.8176 -65.9056,0.798 -66.0528,0.7334 -66.2127,0.7472 -66.2404,0.7506 -66.2634,0.7651 -66.7121,1.1481 -66.7952,1.2197 -66.8001,1.2248 -66.8166,1.2499 -66.8238,1.2829 -66.8512,1.4583 -66.9164,1.6941 -67.0376,2.0243 -67.0848,2.1303 -67.0996,2.151 -67.1229,2.2051 -67.1359,2.2413 -67.1413,2.2728 -67.1316,2.2922 -67.1088,2.3135 -67.0986,2.3342 -67.1169,2.3901 -67.1438,2.4106 -67.1821,2.4265 -67.2056,2.4364 -67.2493,2.4712 -67.4092,2.6504 -67.4589,2.6769 -67.5132,2.761 -67.5296,2.7904 -67.558,2.8064 -67.6893,2.8296 -67.7469,2.824 -67.7564,2.8736 -67.5801,3.0396 -67.4234,3.1871 -67.3592,3.2503 -67.2934,3.3013 -67.2701,3.3102 -67.2165,3.3925 -67.2303,3.4491 -67.2653,3.4626 -67.2866,3.4693 -67.3049,3.4821 -67.3193,3.5086 -67.3518,3.604 -67.3606,3.6443 -67.4145,3.7204 -67.4351,3.734 -67.4651,3.7326 -67.5003,3.7281 -67.5231,3.7365 -67.5391,3.7549 -67.5583,3.7933 -67.6037,3.917 -67.6157,3.9655 -67.6315,4.0424 -67.6521,4.0832 -67.7096,4.162 -67.7289,4.2271 -67.7284,4.268 -67.724,4.2956 -67.7074,4.33 -67.7813,4.5564 -67.7472,4.7314 -67.739,4.7965 -67.7361,4.8258 -67.7239,4.9678 -67.7253,5.034 -67.7426,5.0879 -67.752,5.1256 -67.7711,5.3006 -67.7264,5.3775 -67.6917,5.4009 -67.67,5.4062 -67.6108,5.4428 -67.5719,5.4724 -67.5388,5.5419 -67.5564,5.5721 -67.5651,5.6059 -67.5714,5.6461 -67.5744,5.6771 -67.5657,5.725 -67.5428,5.786 -67.52,5.8183 -67.4546,5.8847 -67.4018,5.9349 -67.3848,5.9491 -67.3492,5.9702 -67.3372,5.9889 -67.358,6.0321 -67.3927,6.0628 -67.4085,6.0912 -67.4156,6.1147 -67.4124,6.1471 -67.3777,6.1862 -67.3956,6.1876 -67.4193,6.1987 -67.4575,6.2363 -67.4867,6.2556 -67.5581,6.278 -67.6163,6.2862 -67.7541,6.3006 -67.8408,6.2313 -67.88,6.2109 -67.9204,6.2005 -67.9578,6.1986 -67.9886,6.2063 -68.0261,6.2145 -68.0545,6.2168 -68.0776,6.216 -68.1163,6.2041 -68.1518,6.1922 -68.2173,6.1691 -68.2415,6.1612 -68.2962,6.1728 -68.3413,6.1848 -68.3757,6.1837 -68.399,6.1797 -68.4719,6.1575 -68.5601,6.1287 -68.6076,6.1347 -68.6337,6.1502 -68.6751,6.1626 -68.7494,6.1794 -68.9473,6.2081 -68.9775,6.2092 -69.0091,6.1962 -69.0368,6.1723 -69.0745,6.1342 -69.1162,6.0937 -69.1627,6.0772 -69.1918,6.0842 -69.2215,6.1162 -69.2369,6.142 -69.2922,6.1389 -69.3249,6.1239 -69.3502,6.1119 -69.6454,6.4793 -70.0395,6.9682 -70.079,6.9748 -70.142,6.9664 -70.1638,6.9532 -70.1826,6.9379 -70.2151,6.931 -70.2437,6.9374 -70.2642,6.9449 -70.2812,6.9563 -70.3063,6.9753 -70.3616,7.0033 -70.4727,7.0507 -70.6396,7.0901 -70.7391,7.0798 -70.7773,7.0748 -70.8062,7.0674 -70.828,7.0403 -70.8904,7.0006 -70.9247,6.9852 -70.9443,6.9766 -71.1007,6.9559 -71.1818,6.9798 -71.2518,7.0144 -71.3829,7.0155 -71.4069,7.021 -71.472,7.0374 -71.5204,7.0502 -71.5639,7.0527 -71.6208,7.0385 -71.7232,6.9954 -71.7514,6.9793 -71.7953,6.9787 -71.8454,7.0021 -71.9109,7.0083 -71.972,7.0543 -71.9845,7.0548 -72.0108,7.0959 -72.0316,7.1303 -72.0511,7.1653 -72.0634,7.1908 -72.083,7.2543 -72.0824,7.2812 -72.073,7.317 -72.1809,7.3814 -72.2423,7.3849 -72.3197,7.3991 -72.3375,7.4122 -72.3904,7.4896 -72.3918,7.6479 -72.378,7.9116 -72.3082,8.0386 -72.2647,8.0389 -72.2475,8.0527 -72.2438,8.0801 -72.2554,8.143 -72.2951,8.3276 -72.3073,8.3602 -72.3244,8.3767 -72.3421,8.3806 -72.5834,8.6317 -72.6559,8.9072 -72.6988,9.0702 -72.8048,9.1092 -72.8817,9.1677 -72.8776,9.1909 -72.9004,9.2507 -72.9291,9.2917 -73.0624,9.2136 -73.0844,9.1855 -73.1408,9.1609 -73.2641,9.1563 -73.2968,9.1611 -73.2827,9.2157 -73.164,9.3981 -73.037,9.5506 -73.001,9.5989 -72.9244,9.7575 -72.9063,9.8939 -72.8976,9.991 -72.8765,10.071 -72.8589,10.1054 -72.8349,10.3392 -72.8285,10.4151 -72.8233,10.433 -72.7566,10.5429 -72.7298,10.5789 -72.6246,10.7586 -72.5535,10.8844 -72.4598,11.0198 -72.4113,11.1103 -72.3922,11.1225 -72.2701,11.151 -72.2378,11.1521 -72.1293,11.2374 -71.9928,11.4827 -71.8887,11.6532 -71.6898,11.688 -71.6419,11.7089 -71.5468,11.7424 -71.3885,11.7825 -71.3238,11.7996 -71.2452,11.8399 -71.2452,11.8399 20,7.0,Thailand 102.3126,11.9865 102.3203,11.9787 102.3329,11.9599 102.3207,11.94 102.2008,11.9435 102.1775,11.9612 102.138,12.1171 102.1381,12.1373 102.1598,12.1349 102.1876,12.1286 102.2024,12.1244 102.2141,12.1177 102.24,12.0992 102.2495,12.0864 102.2556,12.0696 102.2609,12.0589 102.297,12.0043 102.304,11.9948 102.3126,11.9865 102.3126,11.9865 14,6.5,Myanmar (Burma) 98.4096,11.9868 98.4508,11.9824 98.4634,11.9771 98.5544,11.931 98.5505,11.9197 98.3876,11.8709 98.3699,11.8739 98.3581,11.8857 98.3294,11.9935 98.3173,12.0853 98.3289,12.098 98.3564,12.0731 98.4096,11.9868 98.4096,11.9868 23,8.0,Philippines 119.82,11.6437 119.8112,11.6648 119.7988,11.7484 119.7395,11.8796 119.731,11.9211 119.7413,11.9518 119.7506,11.9617 119.7738,11.966 119.8808,11.9167 119.892,11.906 119.9371,11.8517 119.9174,11.836 119.9112,11.8213 119.9075,11.7992 119.9244,11.7891 119.9353,11.7754 119.9193,11.7278 119.9102,11.7079 119.8691,11.6649 119.8586,11.6541 119.8324,11.6441 119.82,11.6437 119.82,11.6437 502,3.0,Somalia 43.2014,11.4569 43.2405,11.4414 43.3279,11.3704 43.407,11.3387 43.4348,11.2422 43.4423,11.2224 43.4539,11.1985 43.5764,11.0298 43.6612,10.9235 43.7659,10.8019 43.7874,10.7815 43.89,10.6897 44.1357,10.5134 44.16,10.4961 44.2042,10.4567 44.23,10.4363 44.2542,10.425 44.3427,10.3999 44.5078,10.3992 44.5458,10.4048 44.5658,10.4124 44.5842,10.4205 44.6072,10.4318 44.6337,10.4393 44.6736,10.4469 44.6981,10.4477 44.7513,10.4385 44.7842,10.4287 44.8041,10.4199 44.8431,10.4101 44.8864,10.4121 44.9198,10.4167 44.9435,10.4236 45.11,10.5224 45.2003,10.581 45.222,10.6082 45.2819,10.6548 45.3122,10.6508 45.3361,10.6463 45.3993,10.6518 45.4627,10.6847 45.5784,10.762 45.6505,10.8126 45.7086,10.8609 45.7494,10.8628 45.802,10.8279 45.819,10.8321 45.8472,10.8183 45.9236,10.7812 46.0292,10.7594 46.0648,10.7567 46.113,10.7661 46.148,10.7788 46.1961,10.7744 46.2212,10.7542 46.2461,10.7242 46.2847,10.6912 46.3667,10.6762 46.4023,10.6782 46.595,10.733 46.7169,10.8021 46.9283,10.9224 47.003,10.9569 47.0414,10.9824 47.095,11.0293 47.113,11.0565 47.2879,11.1446 47.3164,11.1577 47.3446,11.1666 47.4309,11.1755 47.4618,11.1723 47.4981,11.1585 47.561,11.129 47.5901,11.1082 47.612,11.0955 47.6392,11.0869 47.661,11.0892 47.6887,11.1017 47.74,11.118 47.8552,11.1205 47.8949,11.1092 48.0729,11.1229 48.1125,11.1364 48.1424,11.1678 48.1687,11.1982 48.2894,11.2617 48.468,11.303 48.6072,11.3153 48.7633,11.2645 48.8085,11.2458 48.827,11.2354 48.903,11.2304 48.9334,11.2335 48.9603,11.2379 49.1381,11.2813 49.3695,11.3281 49.4619,11.3772 49.4894,11.4206 49.5055,11.4354 49.6221,11.4584 49.6509,11.4569 49.6761,11.4492 49.6983,11.4422 49.7297,11.4405 50.0139,11.4955 50.038,11.5019 50.2257,11.5823 50.3803,11.6703 50.4298,11.7221 50.4481,11.7465 50.4594,11.7783 50.466,11.8114 50.4775,11.8469 50.497,11.8806 50.5228,11.9027 50.5793,11.9333 50.713,11.9659 50.8533,11.9281 51.088,11.8594 51.2159,11.8261 51.2213,11.8036 51.1818,11.6523 51.1424,11.6043 51.1105,11.5662 51.0687,11.4948 51.0201,11.3156 51.0153,11.1943 51.0269,11.1688 51.056,11.1519 51.1084,11.1381 51.1054,11.1011 51.0835,11.0591 51.074,11.0365 51.0634,10.9998 51.0585,10.9671 51.0732,10.7282 51.0897,10.622 51.047,10.4861 51.0317,10.4659 50.9843,10.4538 50.9614,10.4352 50.9966,10.4248 51.0788,10.435 51.1354,10.4687 51.1334,10.5262 51.3207,10.4759 51.3552,10.4416 51.3351,10.3859 51.3126,10.3611 51.2177,10.3741 51.2009,10.4081 51.1626,10.4143 51.0919,10.4006 51.066,10.3987 51.0368,10.3942 51.0169,10.3888 50.9794,10.3749 50.9031,10.3493 50.8556,10.3218 50.8402,10.3006 50.839,10.1416 50.8437,10.0116 50.7595,9.6224 50.7467,9.5642 50.7479,9.5524 50.7535,9.5263 50.7633,9.49 50.7798,9.4604 50.7825,9.4274 50.7628,9.391 50.6994,9.2918 50.6576,9.2733 50.6335,9.2579 50.601,9.2136 50.5912,9.1916 50.5869,9.1707 50.5898,9.1507 50.5966,9.115 50.5901,9.0816 50.5774,9.0576 50.4975,8.9798 50.4624,8.9621 50.441,8.9498 50.4234,8.933 50.3689,8.8506 50.2662,8.6042 50.2709,8.5558 50.2667,8.5288 50.2546,8.5055 50.2278,8.4735 50.1978,8.4539 50.141,8.3744 50.1294,8.3502 50.1225,8.3288 50.1044,8.312 50.0927,8.2959 50.0831,8.2702 50.0695,8.2061 50.0532,8.1767 50.0132,8.1298 49.9728,8.1089 49.9512,8.097 49.9222,8.0781 49.885,8.0543 49.8663,8.0382 49.7882,7.9571 49.7735,7.9373 49.7582,7.9066 49.7504,7.8742 49.7485,7.8478 49.7486,7.8175 49.7398,7.7058 49.6767,7.566 49.6085,7.4369 49.5965,7.415 49.5802,7.3894 49.5755,7.3821 49.5481,7.3298 49.5341,7.3087 49.4296,7.1702 49.3421,7.0562 49.3233,7.0335 49.2869,6.9732 49.1949,6.811 49.1639,6.7509 49.0433,6.4707 49.0201,6.4088 49.0164,6.3821 49.0203,6.3365 49.0271,6.2946 49.0224,6.2537 49.012,6.214 49.004,6.1864 48.9967,6.1667 48.9851,6.1428 48.7979,5.8136 48.7654,5.7616 48.6131,5.5226 48.5361,5.412 48.462,5.3141 48.3158,5.1303 48.2735,5.083 48.2551,5.06 48.1468,4.8978 48.1363,4.8798 48.1093,4.8301 48.0973,4.8071 48.072,4.7577 48.0558,4.725 47.9985,4.6139 47.9462,4.5179 47.8965,4.4553 47.8698,4.4291 47.8177,4.369 47.6536,4.1829 47.6028,4.1303 47.5432,4.0754 47.5187,4.0448 47.4932,4.0081 47.4575,3.953 47.3945,3.8743 47.324,3.8113 47.1764,3.6786 47.1611,3.6625 47.1316,3.6272 47.0558,3.536 47.0362,3.5158 46.9928,3.4706 46.9638,3.4391 46.8239,3.2847 46.7114,3.1566 46.4961,2.9508 46.4328,2.8923 46.306,2.7879 46.1859,2.6597 46.1232,2.5851 46.0589,2.5133 45.9917,2.4505 45.974,2.4345 45.9573,2.4209 45.8751,2.365 45.8425,2.3436 45.7364,2.2836 45.6364,2.2283 45.5348,2.1697 45.5311,2.1661 45.4923,2.1378 45.317,2.0366 45.1909,1.9722 45.1475,1.952 45.0825,1.9173 45.0742,1.9121 45.0384,1.9017 45.0165,1.8936 44.9875,1.8787 44.9537,1.8587 44.8825,1.8119 44.7977,1.7552 44.5549,1.5913 44.4951,1.5503 44.2939,1.3937 44.1247,1.2452 44.0957,1.2183 44.0592,1.1729 44.0179,1.1323 43.8966,1.0179 43.8341,0.9806 43.8115,0.9696 43.7909,0.957 43.7412,0.9229 43.6023,0.7986 43.4402,0.6493 43.4177,0.6243 43.2875,0.4784 43.24,0.4355 43.2191,0.4089 43.1993,0.3808 43.1789,0.3608 43.0869,0.2692 42.9551,0.1243 42.8424,-0.0019 42.7617,-0.0914 42.7313,-0.1221 42.6699,-0.1777 42.5947,-0.2405 42.5215,-0.3078 42.472,-0.3718 42.4243,-0.4389 42.4119,-0.4563 42.3925,-0.4777 42.3693,-0.4917 42.3503,-0.511 42.2544,-0.6328 42.167,-0.7517 42.1298,-0.797 42.1121,-0.8138 42.0195,-0.8951 41.9258,-1.019 41.8703,-1.1265 41.7457,-1.336 41.6458,-1.495 41.5992,-1.5669 41.5436,-1.6376 41.5253,-1.6599 41.5117,-1.6728 41.5086,-1.5901 41.3352,-1.3628 41.1077,-1.0666 40.9526,-0.8649 40.943,1.0E-4 40.9429,1.3127 40.9428,2.3069 40.9426,2.7139 40.9453,2.8323 41.2399,3.1149 41.2904,3.1642 41.7505,3.8206 41.8489,3.96 41.8577,3.9758 41.8911,4.0181 41.8902,4.0482 41.9118,4.0839 41.9931,4.1384 42.0261,4.1715 42.0507,4.1819 42.07,4.1893 42.1039,4.1986 42.1481,4.2043 42.1881,4.2032 42.2221,4.1993 42.3221,4.1975 42.3532,4.2027 42.4376,4.2241 42.5741,4.2556 42.6078,4.2601 42.6782,4.2665 42.6924,4.2681 42.7202,4.2738 42.783,4.2907 42.8071,4.2999 42.828,4.3136 42.8712,4.3591 42.8848,4.3838 42.8976,4.4414 42.9083,4.4762 42.9202,4.4995 42.9368,4.5206 43.0319,4.5993 43.109,4.6611 43.1443,4.6827 43.2723,4.7433 43.3096,4.7602 43.4411,4.8171 43.5182,4.8471 43.5375,4.8547 43.6366,4.8864 43.6874,4.8951 43.7175,4.8978 43.7482,4.9001 43.7831,4.9047 43.8058,4.9084 43.8372,4.9173 43.8722,4.9291 43.9099,4.9458 43.9316,4.9575 44.0087,4.9531 44.1713,4.9428 44.2397,4.9388 44.4164,4.9279 44.462,4.925 44.8996,4.897 44.9486,4.9489 44.9566,4.9573 45.0447,5.0547 45.3227,5.3581 45.4375,5.4838 45.6645,5.7322 45.9035,5.9924 45.9379,6.0288 46.0617,6.1551 46.5088,6.6121 46.9385,7.0492 47.5021,7.5839 47.6044,7.6803 47.7082,7.7779 47.8502,7.9115 47.9346,7.9953 47.8487,7.9942 47.7971,7.9943 47.6931,7.9946 47.5544,7.9943 47.0342,7.993 46.9592,7.9922 46.942,7.9973 46.7384,8.0675 46.5008,8.1483 46.2799,8.2233 46.0078,8.3143 45.5655,8.4638 45.3613,8.5324 45.1396,8.6066 44.9521,8.6688 44.6008,8.7855 43.9617,8.9972 43.6794,9.2524 43.5791,9.3439 43.5351,9.3256 43.5075,9.338 43.3938,9.4071 43.3779,9.4243 43.3772,9.4505 43.3799,9.4746 43.3391,9.5465 43.281,9.6089 43.2579,9.6178 43.2358,9.624 43.2278,9.635 43.2196,9.6537 43.2131,9.6739 43.1991,9.7401 43.1903,9.7883 43.1774,9.8523 43.1568,9.8813 43.1331,9.8916 43.1005,9.8917 43.0632,9.8977 43.0373,9.914 43.0159,9.9379 43.0048,9.957 42.996,9.982 42.9878,10.0137 42.9662,10.07 42.9338,10.1063 42.9065,10.1211 42.876,10.1367 42.8442,10.1608 42.8175,10.1893 42.8037,10.2081 42.7701,10.3026 42.7593,10.3384 42.7567,10.369 42.7504,10.4112 42.7393,10.444 42.6999,10.4841 42.6756,10.5061 42.6625,10.5245 42.6344,10.571 42.618,10.621 42.7174,10.7684 42.7915,10.8617 42.8079,10.8801 42.8705,10.9431 42.8969,10.9903 42.9063,11.0082 42.9285,11.0413 43.0167,11.1744 43.0586,11.2377 43.1387,11.3575 43.1579,11.3853 43.1773,11.4182 43.2014,11.4569 43.2014,11.4569 87,8.0,Philippines 122.9596,11.224 122.9849,11.191 122.9879,11.1531 122.8104,11.0307 122.7412,11.0123 122.6532,10.9736 122.596,10.9326 122.6414,10.899 122.638,10.8509 122.6176,10.8108 122.5942,10.7888 122.4872,10.7919 122.4545,10.713 122.3516,10.6664 122.2525,10.6569 122.1299,10.6397 122.0742,10.6229 121.9692,10.5634 121.9513,10.5362 121.94,10.5064 121.9226,10.4774 121.8951,10.446 121.8796,10.4315 121.8362,10.4017 121.8098,10.4048 121.7909,10.4151 121.7763,10.433 121.7867,10.491 121.8131,10.5144 121.826,10.5416 121.8372,10.6004 121.8413,10.6347 121.8412,10.6677 121.8173,10.7204 121.7993,10.7695 121.8212,10.8415 121.8481,10.9166 121.8666,10.9352 121.8998,10.98 121.9162,11.017 121.9095,11.0732 121.9049,11.1074 121.9016,11.159 121.9148,11.2213 121.9041,11.3141 121.9133,11.3884 121.9333,11.4621 121.9579,11.5839 121.9662,11.6352 121.9614,11.6921 121.9399,11.7176 121.8526,11.7373 121.8083,11.7439 121.7754,11.7432 121.7402,11.7395 121.7141,11.7455 121.7529,11.8865 121.8188,11.9142 121.8387,11.91 121.8673,11.8974 121.8956,11.8643 121.9261,11.8358 121.9737,11.8159 122.0067,11.811 122.0713,11.7964 122.0937,11.7846 122.2695,11.6822 122.3849,11.575 122.451,11.5085 122.5667,11.5593 122.6116,11.5889 122.6949,11.5959 122.7562,11.5254 122.7607,11.4749 122.7302,11.4402 122.7445,11.4175 122.7712,11.4192 122.8653,11.4741 122.9355,11.5163 122.9702,11.5394 122.9936,11.5672 123.0108,11.5858 123.0302,11.5517 123.0136,11.3822 123.0088,11.3522 122.9596,11.224 122.9596,11.224 12,0.0,Guinea-Bissau -16.101,11.8652 -15.9632,11.8925 -15.9662,11.8634 -15.9741,11.8396 -16.0114,11.7454 -16.0671,11.7405 -16.0748,11.7429 -16.1399,11.796 -16.1472,11.8275 -16.1391,11.8581 -16.101,11.8652 -16.101,11.8652 19,6.5,Myanmar (Burma) 98.3045,11.5981 98.2701,11.6545 98.266,11.6643 98.264,11.6758 98.2611,11.7706 98.2721,11.7769 98.3363,11.7888 98.4186,11.7893 98.4325,11.7854 98.4397,11.7751 98.4435,11.762 98.4415,11.6918 98.4371,11.5968 98.4177,11.5691 98.3893,11.5533 98.3184,11.548 98.3032,11.5889 98.3045,11.5981 98.3045,11.5981 20,6.5,Myanmar (Burma) 98.0571,11.4405 98.0833,11.5034 98.1311,11.6727 98.1612,11.7817 98.171,11.7857 98.1822,11.784 98.1928,11.7701 98.2054,11.7418 98.2098,11.7319 98.2113,11.7127 98.1866,11.6332 98.1785,11.6134 98.1771,11.601 98.1727,11.4988 98.1722,11.4691 98.1016,11.432 98.0858,11.4303 98.0681,11.4342 98.0571,11.4405 98.0571,11.4405 11,7.0,Thailand 102.4466,11.7415 102.4909,11.684 102.497,11.6474 102.4967,11.6325 102.4801,11.5514 102.4699,11.5538 102.4185,11.5897 102.4153,11.6794 102.4354,11.739 102.4466,11.7415 102.4466,11.7415 11,8.0,Philippines 124.689,11.5154 124.6833,11.5158 124.6639,11.5239 124.6319,11.5529 124.5824,11.6865 124.5872,11.7151 124.7045,11.5789 124.7048,11.5303 124.6945,11.5169 124.689,11.5154 124.689,11.5154 18,8.0,Philippines 124.3503,11.449 124.3195,11.4615 124.3071,11.4731 124.2682,11.5294 124.2,11.6644 124.2857,11.6963 124.3272,11.6926 124.3402,11.6889 124.3936,11.6666 124.4717,11.5377 124.4788,11.5218 124.4814,11.5094 124.4782,11.4949 124.4732,11.486 124.4642,11.4732 124.4469,11.4599 124.3503,11.449 124.3503,11.449 13,0.0,Guinea-Bissau -16.0169,11.4046 -16.0472,11.4369 -15.9969,11.5343 -15.9633,11.5637 -15.9403,11.5813 -15.8998,11.5731 -15.8878,11.5645 -15.8851,11.5293 -15.8918,11.4576 -15.897,11.436 -15.9305,11.4114 -16.0169,11.4046 -16.0169,11.4046 18,0.0,Guinea-Bissau -16.2941,11.4646 -16.3062,11.4766 -16.3176,11.4863 -16.3504,11.4948 -16.3676,11.4864 -16.3758,11.474 -16.3966,11.4697 -16.4016,11.5205 -16.3725,11.5338 -16.2537,11.564 -16.2252,11.5627 -16.2209,11.5517 -16.227,11.5371 -16.2322,11.5237 -16.25,11.4872 -16.2611,11.4754 -16.2941,11.4646 -16.2941,11.4646 85,8.0,Philippines 125.0429,10.5315 125.0322,10.518 125.0505,10.4297 125.1001,10.3856 125.1196,10.3661 125.1335,10.3206 125.1347,10.2859 125.122,10.2516 124.9836,10.1658 124.9486,10.2033 124.9347,10.2351 124.9055,10.3045 124.899,10.3261 124.8867,10.3541 124.8677,10.3683 124.8416,10.3632 124.8516,10.2311 124.8716,10.1466 124.892,10.0708 124.8948,10.0326 124.8746,10.0182 124.8413,10.0292 124.7092,10.1223 124.6284,10.1852 124.6521,10.2896 124.6515,10.3176 124.6308,10.3432 124.6027,10.3664 124.5877,10.3957 124.5962,10.4571 124.6196,10.5003 124.6298,10.5234 124.63,10.5628 124.6681,10.6495 124.6616,10.7147 124.6524,10.7449 124.6422,10.7731 124.625,10.8059 124.5519,10.9183 124.5374,10.9361 124.485,10.9804 124.4596,10.998 124.4373,11.002 124.4154,10.9754 124.4129,10.9508 124.4173,10.9161 124.4079,10.8948 124.3975,10.8749 124.3846,10.859 124.3519,10.8503 124.2847,10.9012 124.2647,10.9619 124.2676,11.0992 124.2657,11.2268 124.2331,11.2793 124.2119,11.3013 124.1631,11.4593 124.1509,11.5188 124.179,11.554 124.398,11.3889 124.4151,11.3274 124.4442,11.2972 124.5038,11.2807 124.5697,11.2934 124.6042,11.3115 124.6254,11.3242 124.6709,11.3682 124.7186,11.4099 124.8124,11.4089 124.8348,11.3746 124.8398,11.3546 124.8402,11.241 124.8921,11.1835 124.903,10.9983 124.9033,10.967 124.9,10.9332 124.893,10.9079 124.8708,10.8572 124.8704,10.7994 124.8779,10.7316 124.9197,10.6995 124.947,10.6966 125.0071,10.599 125.0429,10.5315 125.0429,10.5315 16,8.0,Philippines 119.6967,11.3641 119.6817,11.3681 119.6331,11.3886 119.6173,11.4024 119.5964,11.4222 119.5822,11.4595 119.6821,11.5085 119.7178,11.5028 119.7407,11.4919 119.7448,11.4804 119.7407,11.4382 119.736,11.425 119.7248,11.3987 119.7027,11.3657 119.6967,11.3641 119.6967,11.3641 15,5.5,India 92.5243,11.3411 92.5132,11.3438 92.494,11.3614 92.5233,11.4773 92.5274,11.4871 92.5377,11.4995 92.5649,11.4834 92.579,11.4696 92.5873,11.4516 92.5914,11.442 92.6004,11.371 92.5738,11.3493 92.5309,11.3415 92.5243,11.3411 92.5243,11.3411 148,8.0,Philippines 118.6947,10.0928 118.6754,10.1003 118.6677,10.1582 118.6706,10.1788 118.729,10.197 118.7486,10.1901 118.7946,10.1926 118.865,10.2987 118.8756,10.3528 118.8415,10.3331 118.8303,10.3557 118.876,10.4279 118.9591,10.4095 119.0013,10.3723 119.034,10.4001 119.1825,10.5723 119.1912,10.5944 119.2102,10.7082 119.1761,10.7597 119.1451,10.7594 119.0977,10.8541 119.0854,10.9435 119.1322,10.9381 119.2863,10.7484 119.2962,10.723 119.3,10.7089 119.3244,10.7122 119.303,10.8143 119.2846,10.8574 119.2553,10.8588 119.2299,10.8611 119.2102,10.8829 119.1777,10.9315 119.1713,10.9628 119.1717,10.9938 119.1971,11.0873 119.2201,11.0638 119.2411,11.0315 119.2675,11.0155 119.2891,11.0185 119.2977,11.1283 119.2956,11.2157 119.2932,11.2526 119.289,11.2917 119.2994,11.3286 119.3401,11.4114 119.3692,11.401 119.3735,11.3813 119.376,11.3601 119.3765,11.323 119.3966,11.3064 119.4124,11.3204 119.4295,11.3066 119.4338,11.2757 119.4321,11.2494 119.4217,11.2096 119.3627,10.9794 119.3575,10.9513 119.3527,10.8671 119.3813,10.816 119.407,10.8069 119.4365,10.8236 119.4657,10.8119 119.4758,10.7138 119.4968,10.6614 119.5621,10.5298 119.5845,10.4992 119.5485,10.4743 119.4489,10.3949 119.3567,10.3604 119.3247,10.3608 119.2592,10.3321 119.1978,10.2981 119.1703,10.2653 119.1308,10.2156 119.1196,10.1951 119.1019,10.147 119.1067,10.1186 119.0864,10.0641 119.0716,10.0373 119.0269,10.015 118.8392,9.9676 118.8123,9.9613 118.7809,9.9636 118.7433,9.9685 118.6236,9.9139 118.563,9.7532 118.5632,9.7034 118.5855,9.6699 118.6231,9.6438 118.6019,9.6431 118.5007,9.5026 118.3281,9.2923 118.2176,9.1784 118.2009,9.1679 118.0542,9.1429 118.0117,9.136 117.9652,9.0376 117.9154,8.9348 117.8678,8.8677 117.8343,8.86 117.7784,8.8296 117.7583,8.8164 117.6735,8.7468 117.653,8.7105 117.6207,8.6817 117.503,8.6479 117.4074,8.5679 117.3206,8.4932 117.2441,8.4803 117.1923,8.4432 117.1142,8.3676 117.0708,8.3181 117.0476,8.3238 117.09,8.5055 117.1053,8.5547 117.1143,8.5554 117.1286,8.6 117.2139,8.7164 117.2386,8.7383 117.3137,8.7992 117.343,8.8457 117.3865,8.9074 117.532,9.0669 117.6555,9.1658 117.7761,9.2537 117.824,9.2588 117.8483,9.2497 117.8967,9.2487 117.9952,9.3439 118.2014,9.5735 118.2105,9.605 118.2943,9.696 118.3221,9.716 118.346,9.7238 118.386,9.7557 118.4767,9.8633 118.5108,9.9201 118.529,9.9636 118.5348,9.9948 118.6255,10.1125 118.6321,10.0579 118.6107,10.059 118.6363,10.0112 118.6471,10.0032 118.6712,10.0234 118.6947,10.0928 118.6947,10.0928 13,0.0,Guinea-Bissau -15.7455,11.1516 -15.7526,11.1545 -15.761,11.185 -15.7586,11.2132 -15.7356,11.2571 -15.6999,11.2833 -15.6719,11.293 -15.645,11.2889 -15.638,11.2256 -15.6435,11.2124 -15.7225,11.1545 -15.7455,11.1516 -15.7455,11.1516 64,8.0,Philippines 123.2752,10.0388 123.293,10.0526 123.3251,10.0818 123.3714,10.1317 123.4143,10.2174 123.4679,10.3422 123.49,10.3595 123.5289,10.4012 123.5738,10.4903 123.5706,10.5236 123.5786,10.5494 123.623,10.632 123.6562,10.6771 123.6969,10.7402 123.7277,10.8009 123.7378,10.8279 123.7673,10.9097 123.8251,11.0778 123.8237,11.1099 123.8098,11.137 123.8102,11.1649 123.8725,11.2586 123.9136,11.265 123.9315,11.2339 123.9095,11.2001 123.8832,11.1064 123.892,11.0415 123.9094,10.9973 123.9185,10.8658 123.8988,10.7835 123.8958,10.6058 123.8824,10.4405 123.8692,10.3962 123.8842,10.3753 123.8657,10.344 123.828,10.313 123.6604,10.2194 123.6353,10.2129 123.5823,10.1575 123.5013,10.0588 123.4881,10.0152 123.4905,9.9641 123.492,9.931 123.4678,9.862 123.439,9.8374 123.4036,9.7918 123.3786,9.7085 123.3759,9.6683 123.3371,9.5612 123.3036,9.5091 123.2356,9.4239 123.2161,9.4063 123.1976,9.3999 123.1687,9.4061 123.1612,9.4769 123.1717,9.5462 123.213,9.7648 123.2366,9.8604 123.2621,9.8633 123.2662,9.9122 123.2436,9.9315 123.239,9.9798 123.2752,10.0388 123.2752,10.0388 6,5.5,India 72.6968,11.1733 72.6911,11.1799 72.6977,11.2184 72.7083,11.2387 72.6968,11.1733 72.6968,11.1733 217,-6.0,Costa Rica -85.5979,11.0639 -85.5191,11.2003 -85.4695,11.1972 -85.4324,11.1537 -85.3264,11.114 -85.2653,11.1098 -85.1721,11.0722 -85.1274,11.0528 -85.0799,11.0324 -85.0707,11.0303 -85.0397,11.0149 -84.9939,10.9977 -84.8092,10.9285 -84.5811,11.0656 -84.25,10.9419 -84.1806,10.8867 -84.1323,10.8001 -84.1007,10.7715 -84.0653,10.7722 -84.0235,10.7519 -83.9877,10.7549 -83.9481,10.7662 -83.9047,10.7547 -83.8662,10.7225 -83.8284,10.6978 -83.7778,10.7107 -83.7353,10.7343 -83.6802,10.7583 -83.6687,10.7592 -83.6593,10.7586 -83.592,10.7751 -83.5681,10.7899 -83.5626,10.8126 -83.5702,10.8766 -83.5535,10.9127 -83.5451,10.9079 -83.5299,10.8937 -83.5089,10.8507 -83.501,10.8262 -83.4846,10.7735 -83.4779,10.7382 -83.4636,10.6805 -83.4142,10.5574 -83.3701,10.4671 -83.3194,10.3853 -83.2481,10.2883 -83.0136,9.9988 -82.9859,9.9796 -82.92,9.9392 -82.8885,9.898 -82.829,9.8189 -82.7621,9.7335 -82.6718,9.6419 -82.6096,9.6214 -82.5688,9.6164 -82.5174,9.5922 -82.4726,9.5523 -82.4702,9.5251 -82.5189,9.48 -82.5452,9.4775 -82.5914,9.4982 -82.6277,9.5359 -82.6575,9.5723 -82.7229,9.5959 -82.7465,9.5992 -82.7729,9.575 -82.8433,9.4612 -82.8393,9.1891 -82.8383,9.053 -82.7901,9.0572 -82.6517,8.9709 -82.6197,8.9151 -82.6277,8.901 -82.6643,8.8714 -82.721,8.8527 -82.7662,8.8329 -82.7873,8.816 -82.8219,8.7531 -82.8231,8.7301 -82.8044,8.7003 -82.7872,8.68 -82.7443,8.6269 -82.7331,8.5604 -82.7371,8.4654 -82.7837,8.4181 -82.8294,8.407 -82.8598,8.3903 -82.9247,8.3311 -82.9371,8.3012 -82.912,8.2819 -82.8792,8.2671 -82.8572,8.2612 -82.8403,8.2482 -82.793,8.0928 -82.7938,8.0665 -82.7995,8.0272 -82.8059,8.0167 -82.8043,8.0867 -82.8468,8.1741 -82.878,8.2204 -82.9016,8.2407 -82.9484,8.2767 -82.9913,8.2974 -83.0284,8.3242 -83.0504,8.3487 -83.0444,8.3788 -83.025,8.3952 -83.0025,8.4381 -83.0874,8.5903 -83.1392,8.6145 -83.233,8.6614 -83.2324,8.6937 -83.251,8.7183 -83.2808,8.7227 -83.3119,8.7196 -83.3873,8.6948 -83.3331,8.6031 -83.3067,8.5775 -83.2857,8.5678 -83.2574,8.5608 -83.2315,8.5502 -83.2001,8.5211 -83.1792,8.4532 -83.1789,8.4103 -83.1862,8.3684 -83.198,8.361 -83.2167,8.3629 -83.2749,8.3878 -83.3026,8.406 -83.3551,8.4245 -83.3898,8.4331 -83.4178,8.4339 -83.5019,8.4589 -83.6399,8.5777 -83.6425,8.6031 -83.6357,8.6254 -83.6128,8.6673 -83.581,8.6788 -83.4974,8.8315 -83.4945,8.865 -83.5094,8.9578 -83.5336,9.0264 -83.612,9.1082 -83.6329,9.1289 -83.6776,9.1713 -83.8573,9.3014 -83.9161,9.3276 -83.9808,9.3492 -84.0302,9.3598 -84.0549,9.3665 -84.0717,9.3907 -84.1363,9.458 -84.2884,9.4937 -84.3964,9.5136 -84.4392,9.5092 -84.5253,9.5689 -84.5652,9.6222 -84.578,9.6513 -84.5802,9.6817 -84.5607,9.7142 -84.5438,9.7276 -84.538,9.7551 -84.6144,9.9075 -84.6547,9.9561 -84.7124,9.9567 -84.7886,9.9921 -84.8246,10.0172 -84.9471,10.1189 -84.9768,10.1441 -85.1428,10.1959 -85.1499,10.169 -85.1451,10.0959 -85.1294,10.074 -85.1041,10.067 -85.0643,10.0341 -85.0741,10.009 -85.0437,9.9831 -84.9132,9.9261 -84.839,9.8814 -84.804,9.7968 -84.8575,9.7197 -85.0485,9.579 -85.1331,9.7166 -85.1849,9.7752 -85.2512,9.8218 -85.2914,9.8355 -85.3459,9.8474 -85.4381,9.8614 -85.4581,9.8592 -85.4787,9.8631 -85.525,9.8778 -85.5628,9.8941 -85.6202,9.9836 -85.6589,10.0376 -85.6709,10.046 -85.7011,10.0889 -85.7392,10.1834 -85.7574,10.236 -85.7633,10.3581 -85.7071,10.3993 -85.5605,10.5785 -85.5384,10.6098 -85.5856,10.7873 -85.6137,10.797 -85.6435,10.8036 -85.723,10.8343 -85.8168,10.8792 -85.7896,10.9019 -85.7543,10.9296 -85.7264,10.9319 -85.6316,10.9156 -85.6106,10.9211 -85.5952,10.9509 -85.5749,11.0429 -85.5933,11.0621 -85.5979,11.0639 -85.5979,11.0639 22,0.0,Guinea-Bissau -16.1369,11.0126 -16.1426,11.0134 -16.1703,11.0253 -16.1975,11.0428 -16.2164,11.0623 -16.2237,11.0728 -16.2251,11.0907 -16.2183,11.1011 -16.1454,11.1546 -16.0924,11.1918 -16.0622,11.1934 -16.0362,11.1753 -16.05,11.1546 -16.0483,11.1301 -16.036,11.1159 -16.0333,11.1044 -16.0362,11.0874 -16.031,11.0616 -16.0423,11.0274 -16.0672,11.0137 -16.1369,11.0126 -16.1369,11.0126 33,-4.0,Venezuela -63.9848,10.845 -63.9879,10.8529 -64.0657,10.9328 -64.0799,10.9399 -64.1032,10.9483 -64.1195,10.9347 -64.1301,10.9249 -64.1571,10.919 -64.2871,10.9424 -64.3347,10.9581 -64.3073,11.0446 -64.1473,11.0759 -64.131,11.0755 -64.1218,11.0708 -64.12,11.0604 -64.1266,11.0436 -64.1172,11.0279 -64.105,11.0193 -64.0351,10.9831 -64.013,10.9768 -63.9838,10.9733 -63.9721,10.9753 -63.9519,10.9877 -63.9168,11.0639 -63.8807,11.1031 -63.8141,11.1634 -63.7743,11.1149 -63.7341,11.0091 -63.7447,10.966 -63.8194,10.8922 -63.9018,10.881 -63.9848,10.845 -63.9848,10.845 326,0.0,Ghana -2.6824,9.4712 -2.6859,9.477 -2.7109,9.5107 -2.7417,9.5336 -2.7659,9.5591 -2.7663,9.5903 -2.7582,9.6165 -2.7414,9.6423 -2.7483,9.6455 -2.7819,9.6776 -2.7908,9.7216 -2.7601,9.7898 -2.7738,9.9971 -2.7921,10.0437 -2.791,10.1517 -2.7683,10.2056 -2.7873,10.2594 -2.8304,10.354 -2.8884,10.5076 -2.9128,10.5861 -2.9128,10.6434 -2.924,10.6961 -2.9037,10.7253 -2.8338,10.8739 -2.8301,10.9454 -2.8307,10.9896 -2.7318,10.9896 -2.2971,10.9887 -1.989,10.988 -1.7265,10.9882 -1.5688,10.9882 -1.5583,11.0114 -1.4178,11.0141 -1.3709,10.9877 -1.0906,10.9936 -0.9858,11.0023 -0.901,10.9946 -0.7834,10.9859 -0.6789,10.9855 -0.6776,10.9763 -0.665,10.9445 -0.6175,10.9016 -0.3636,11.0726 -0.2864,11.1432 -0.1764,11.1322 -0.1495,11.1261 -0.1443,11.1119 -0.0989,11.081 -0.077,11.0792 -0.0433,11.0899 -0.0048,11.0866 0.0314,11.0647 0.0347,11.0091 0.0322,10.9777 -0.02,10.8464 -0.059,10.7703 -0.0816,10.6906 -0.0832,10.6867 -0.0784,10.6392 -0.0634,10.6196 -0.0019,10.5967 0.0378,10.5787 0.1205,10.5101 0.2286,10.3979 0.2851,10.4027 0.303,10.3778 0.3661,10.2428 0.3576,10.1856 0.3493,10.1039 0.355,10.0821 0.372,10.0715 0.3955,10.0562 0.3998,10.0192 0.356,10.019 0.3243,9.7515 0.2591,9.6541 0.2232,9.5394 0.2169,9.4499 0.2293,9.4204 0.2485,9.4123 0.2819,9.4097 0.3359,9.4346 0.3548,9.4745 0.4226,9.4855 0.4624,9.4777 0.5009,9.462 0.5501,9.3984 0.5522,9.3569 0.5272,9.1961 0.5188,9.1777 0.5008,9.1473 0.4547,9.0503 0.4483,9.0224 0.5129,8.9101 0.5201,8.8788 0.5125,8.8348 0.4883,8.7862 0.3826,8.751 0.3882,8.7288 0.4118,8.6808 0.4695,8.5862 0.5377,8.5461 0.6318,8.4839 0.6493,8.4637 0.6984,8.3794 0.7254,8.3144 0.7278,8.2862 0.7036,8.2639 0.6662,8.2445 0.6377,8.2283 0.611,8.207 0.5971,8.0856 0.6222,7.8881 0.5927,7.6933 0.5208,7.5771 0.5138,7.5495 0.5122,7.5227 0.5102,7.4523 0.536,7.4079 0.5678,7.3785 0.5976,7.3796 0.6419,7.3896 0.6524,7.3615 0.6515,7.2746 0.6395,7.1977 0.6082,7.0096 0.5886,6.986 0.5244,6.9401 0.5685,6.8073 0.6431,6.726 0.65,6.7009 0.6464,6.6692 0.6427,6.6393 0.659,6.6033 0.6903,6.5817 0.7276,6.577 0.7433,6.5498 0.7241,6.5285 0.7219,6.5173 0.7268,6.4945 0.758,6.4405 0.7875,6.4085 0.9036,6.3224 1.0006,6.3183 1.0613,6.2127 1.0987,6.1535 1.1139,6.154 1.1998,6.1532 1.2016,6.111 1.1978,6.0939 1.171,6.0833 1.1359,6.0628 1.0979,6.0336 1.0739,6.0132 1.0295,5.9555 1.009,5.907 1.0021,5.8788 1.0008,5.8463 0.9912,5.8185 0.9682,5.7915 0.9439,5.7746 0.9191,5.7656 0.7891,5.7505 0.6874,5.7474 0.6939,5.7668 0.6659,5.7967 0.6498,5.8309 0.657,5.8435 0.657,5.8738 0.65,5.9038 0.6352,5.938 0.5806,5.9947 0.5058,6.0519 0.4465,6.0741 0.4046,6.0744 0.3802,6.0448 0.3112,6.052 0.2785,6.0845 0.2608,6.0944 0.2375,6.098 0.2172,6.0915 0.2082,6.083 0.2209,6.083 0.2521,6.0758 0.284,6.053 0.3093,6.0321 0.3223,6.0291 0.3534,6.0166 0.3784,6.0195 0.408,6.0547 0.4299,6.063 0.4886,6.037 0.5061,6.0271 0.5746,5.9854 0.5936,5.9665 0.6171,5.9359 0.642,5.878 0.639,5.8391 0.6629,5.7537 0.4642,5.7579 0.4055,5.7638 0.3829,5.7677 0.3625,5.7716 0.3095,5.7702 0.2556,5.7514 0.1384,5.706 0.0691,5.6629 0.0363,5.6228 -0.0689,5.5721 -0.2097,5.5222 -0.2659,5.5052 -0.2988,5.4978 -0.3572,5.4871 -0.4277,5.4308 -0.4845,5.3688 -0.5334,5.3481 -0.5784,5.3457 -0.6486,5.3216 -0.6932,5.2994 -0.7098,5.2846 -0.7281,5.2622 -0.7969,5.2023 -0.8987,5.1944 -0.9814,5.1902 -1.0429,5.1923 -1.0653,5.1886 -1.1277,5.1573 -1.158,5.1333 -1.1776,5.1189 -1.2101,5.1034 -1.259,5.0866 -1.2992,5.0843 -1.4137,5.0597 -1.5344,5.0294 -1.5668,5.014 -1.593,5.0187 -1.6177,5.0113 -1.7342,4.9083 -1.9535,4.7632 -2.0564,4.7257 -2.0841,4.7217 -2.1017,4.7419 -2.2546,4.8715 -2.2774,4.8863 -2.3271,4.9083 -2.3489,4.9139 -2.3784,4.9192 -2.433,4.9266 -2.5012,4.9408 -2.5456,4.9516 -2.5837,4.9614 -2.7266,5.0007 -2.8395,5.0176 -2.8625,5.0221 -2.9738,5.0445 -3.0357,5.0583 -3.0691,5.069 -3.0993,5.0794 -3.0986,5.1041 -3.0381,5.1014 -2.972,5.0776 -2.9245,5.0947 -2.7502,5.0951 -2.7312,5.1073 -2.7259,5.1357 -2.7407,5.1672 -2.7592,5.1985 -2.7801,5.2743 -2.7657,5.3445 -2.7383,5.4402 -2.7612,5.573 -2.7941,5.6093 -2.8364,5.6231 -2.8765,5.6183 -2.8966,5.6107 -2.9276,5.6058 -2.9565,5.621 -3.0101,5.7013 -3.0026,5.8513 -3.0666,5.9855 -3.0849,6.1051 -3.091,6.1386 -3.1434,6.2409 -3.1644,6.2494 -3.1633,6.2625 -3.1654,6.2859 -3.2033,6.44 -3.2282,6.5356 -3.2448,6.6064 -3.2379,6.6356 -3.2028,6.6877 -3.2052,6.7457 -3.2206,6.811 -3.115,6.9942 -3.0927,7.0427 -3.0204,7.0653 -2.9699,7.254 -2.9449,7.4237 -2.92,7.5873 -2.8515,7.7333 -2.8364,7.748 -2.7816,7.8451 -2.7719,7.9343 -2.657,8.0142 -2.5972,8.113 -2.5574,8.1552 -2.4847,8.1886 -2.4926,8.2403 -2.5564,8.6353 -2.5679,8.7038 -2.5773,8.7586 -2.5819,8.7716 -2.6083,8.7705 -2.6148,8.7744 -2.595,8.807 -2.6137,8.9044 -2.6566,9.0045 -2.7264,9.023 -2.7644,9.0536 -2.7575,9.1116 -2.7104,9.1896 -2.684,9.2149 -2.6648,9.3724 -2.6714,9.4556 -2.6824,9.4712 -2.6824,9.4712 201,0.0,Togo -0.1495,11.1261 -0.142,11.1253 -0.0894,11.1149 0.0504,11.0865 0.1898,11.0583 0.2187,11.0517 0.4164,11.0121 0.5051,10.9922 0.5142,10.9631 0.5038,10.9249 0.6301,10.9716 0.6653,10.984 0.7237,10.9847 0.8112,10.9846 0.917,10.984 0.8897,10.8988 0.8926,10.8547 0.8784,10.7877 0.8064,10.7115 0.8013,10.7007 0.7998,10.6899 0.7995,10.6691 0.8033,10.6294 0.8067,10.5955 0.8051,10.5618 0.7974,10.535 0.7866,10.5177 0.7758,10.3653 0.9982,10.2086 1.066,10.163 1.1714,10.0973 1.186,10.0889 1.3065,10.014 1.3536,9.9843 1.3576,9.9039 1.3686,9.6256 1.3668,9.5859 1.336,9.5319 1.3597,9.475 1.363,9.471 1.3885,9.4758 1.3972,9.4196 1.3978,9.3776 1.4056,9.3343 1.4167,9.3087 1.4303,9.2911 1.4511,9.27 1.4919,9.2182 1.5091,9.2005 1.5383,9.1795 1.5669,9.1579 1.6043,9.089 1.6182,9.0242 1.6248,8.8371 1.6242,8.7168 1.6237,8.5777 1.6224,8.4158 1.6153,8.3578 1.6292,8.351 1.6363,7.9899 1.6376,7.7514 1.6401,7.6197 1.6491,7.5395 1.6536,7.5215 1.6485,7.5056 1.6426,7.4348 1.642,7.4016 1.6436,7.3257 1.6407,6.9878 1.5523,6.989 1.5607,6.9405 1.5754,6.9016 1.6026,6.8865 1.6056,6.789 1.5883,6.7082 1.5736,6.6725 1.6151,6.5891 1.6457,6.5658 1.6536,6.5634 1.6623,6.5697 1.6911,6.5419 1.7472,6.4495 1.7696,6.4076 1.7934,6.3013 1.7957,6.2735 1.7406,6.2626 1.6811,6.2525 1.6509,6.2434 1.6281,6.2281 1.6338,6.212 1.5589,6.1993 1.4674,6.1797 1.4073,6.1609 1.4021,6.1584 1.2924,6.1316 1.1978,6.0939 1.2016,6.111 1.1998,6.1532 1.1139,6.154 1.0987,6.1535 1.0613,6.2127 1.0006,6.3183 0.9036,6.3224 0.7875,6.4085 0.758,6.4405 0.7268,6.4945 0.7219,6.5173 0.7241,6.5285 0.7433,6.5498 0.7276,6.577 0.6903,6.5817 0.659,6.6033 0.6427,6.6393 0.6464,6.6692 0.65,6.7009 0.6431,6.726 0.5685,6.8073 0.5244,6.9401 0.5886,6.986 0.6082,7.0096 0.6395,7.1977 0.6515,7.2746 0.6524,7.3615 0.6419,7.3896 0.5976,7.3796 0.5678,7.3785 0.536,7.4079 0.5102,7.4523 0.5122,7.5227 0.5138,7.5495 0.5208,7.5771 0.5927,7.6933 0.6222,7.8881 0.5971,8.0856 0.611,8.207 0.6377,8.2283 0.6662,8.2445 0.7036,8.2639 0.7278,8.2862 0.7254,8.3144 0.6984,8.3794 0.6493,8.4637 0.6318,8.4839 0.5377,8.5461 0.4695,8.5862 0.4118,8.6808 0.3882,8.7288 0.3826,8.751 0.4883,8.7862 0.5125,8.8348 0.5201,8.8788 0.5129,8.9101 0.4483,9.0224 0.4547,9.0503 0.5008,9.1473 0.5188,9.1777 0.5272,9.1961 0.5522,9.3569 0.5501,9.3984 0.5009,9.462 0.4624,9.4777 0.4226,9.4855 0.3548,9.4745 0.3359,9.4346 0.2819,9.4097 0.2485,9.4123 0.2293,9.4204 0.2169,9.4499 0.2232,9.5394 0.2591,9.6541 0.3243,9.7515 0.356,10.019 0.3998,10.0192 0.3955,10.0562 0.372,10.0715 0.355,10.0821 0.3493,10.1039 0.3576,10.1856 0.3661,10.2428 0.303,10.3778 0.2851,10.4027 0.2286,10.3979 0.1205,10.5101 0.0378,10.5787 -0.0019,10.5967 -0.0634,10.6196 -0.0784,10.6392 -0.0832,10.6867 -0.0816,10.6906 -0.059,10.7703 -0.02,10.8464 0.0322,10.9777 0.0347,11.0091 0.0314,11.0647 -0.0048,11.0866 -0.0433,11.0899 -0.077,11.0792 -0.0989,11.081 -0.1443,11.1119 -0.1495,11.1261 -0.1495,11.1261 108,8.0,Philippines 122.4598,9.4247 122.4421,9.4354 122.4068,9.4731 122.3478,9.5484 122.2796,9.6477 122.262,9.7178 122.2727,9.7876 122.3201,9.9636 122.3666,9.9709 122.397,9.9704 122.4383,9.9668 122.4724,9.9608 122.4842,9.9595 122.5291,9.962 122.5524,9.9705 122.6599,10.0248 122.6795,10.04 122.6872,10.0418 122.7227,10.0839 122.7273,10.1087 122.7273,10.1412 122.7206,10.3074 122.6951,10.4158 122.7012,10.5323 122.7118,10.5337 122.7249,10.5391 122.7454,10.5556 122.7834,10.5992 122.8175,10.6754 122.8284,10.7259 122.831,10.7926 122.8247,10.8013 122.8136,10.8212 122.8112,10.8324 122.8109,10.8461 122.8175,10.8823 122.8651,10.9072 123.0499,10.9871 123.0639,10.9881 123.089,10.9846 123.369,10.9254 123.4269,10.8326 123.4281,10.82 123.4283,10.7822 123.3301,10.5062 123.3162,10.4912 123.2857,10.4654 123.2724,10.4608 123.26,10.457 123.2378,10.4405 123.2267,10.4236 123.2225,10.4147 123.2155,10.3987 123.2118,10.383 123.1989,10.2651 123.1911,10.2309 123.1488,10.1167 123.1326,10.076 123.1031,10.0124 123.0869,9.9899 123.0717,9.9729 123.0507,9.9434 123.0245,9.901 123.0181,9.8881 123.0036,9.8186 123.0098,9.8062 123.022,9.7457 123.0269,9.7019 123.0278,9.6845 123.0196,9.6498 123.0077,9.6405 122.9944,9.6425 122.9821,9.6415 122.9718,9.6171 123.0134,9.5343 123.055,9.4647 123.1026,9.4115 123.1661,9.3382 123.1769,9.3226 123.1794,9.3088 123.1766,9.2861 123.1601,9.2194 123.1562,9.2095 123.1419,9.1827 123.1087,9.1364 123.0533,9.0853 123.0253,9.06 122.9928,9.0351 122.8785,9.024 122.8499,9.0368 122.8028,9.0643 122.7731,9.1275 122.7543,9.1843 122.743,9.2221 122.7382,9.2523 122.7397,9.2737 122.7371,9.2994 122.7307,9.3135 122.6711,9.3446 122.6514,9.3493 122.592,9.3619 122.5702,9.3624 122.5554,9.364 122.5406,9.3688 122.5073,9.3882 122.4688,9.413 122.4598,9.4247 122.4598,9.4247 23,6.5,Myanmar (Burma) 98.1761,10.7132 98.1745,10.6946 98.1589,10.6788 98.1238,10.678 98.1255,10.7215 98.1314,10.7556 98.1325,10.8131 98.1061,10.8523 98.0467,10.9106 98.0355,10.9063 98.014,10.8855 97.9972,10.8714 97.9791,10.8622 97.9694,10.8753 98.032,10.9634 98.0655,10.9668 98.0977,10.9435 98.1041,10.9358 98.1553,10.8248 98.1596,10.8148 98.1621,10.8039 98.1761,10.7132 98.1761,10.7132 16,-4.0,Venezuela -65.2091,10.8682 -65.2278,10.8709 -65.3213,10.895 -65.3437,10.9041 -65.3438,10.9149 -65.3146,10.9443 -65.3019,10.9524 -65.2923,10.9571 -65.2324,10.9638 -65.1401,10.9418 -65.1289,10.8995 -65.1277,10.8862 -65.138,10.8791 -65.1966,10.8689 -65.2091,10.8682 -65.2091,10.8682 22,5.5,India 92.4589,10.7651 92.4733,10.7005 92.4755,10.689 92.4749,10.6758 92.4347,10.5641 92.4118,10.5282 92.4061,10.5197 92.3941,10.5079 92.3597,10.5035 92.2667,10.5257 92.2581,10.531 92.2452,10.6823 92.2456,10.7027 92.2514,10.7648 92.2556,10.7777 92.3342,10.8514 92.3652,10.8761 92.3966,10.8888 92.4238,10.864 92.4291,10.855 92.4589,10.7651 92.4589,10.7651 9,5.5,India 72.1195,10.8517 72.1164,10.8361 72.1007,10.8055 72.0915,10.8005 72.0967,10.827 72.1014,10.8361 72.1168,10.8584 72.1195,10.8517 72.1195,10.8517 14,8.0,Philippines 125.6283,10.6737 125.6119,10.6778 125.5334,10.7309 125.5231,10.7422 125.5233,10.771 125.5431,10.8009 125.5571,10.8111 125.575,10.8042 125.6766,10.7183 125.6841,10.7061 125.676,10.6813 125.6646,10.677 125.6283,10.6737 125.6283,10.6737 22,8.0,Philippines 122.4098,10.3914 122.388,10.3958 122.3462,10.4642 122.3457,10.4762 122.3847,10.5733 122.39,10.5814 122.409,10.6079 122.4825,10.6955 122.5219,10.7348 122.5376,10.7331 122.5785,10.7049 122.5882,10.6793 122.5949,10.6269 122.5963,10.606 122.551,10.4927 122.5342,10.4618 122.501,10.4319 122.4765,10.4206 122.4598,10.4216 122.4317,10.4176 122.4098,10.3914 122.4098,10.3914 492,0.0,Ivory Coast -7.965,10.1544 -7.9547,10.1487 -7.9304,10.146 -7.8804,10.1624 -7.8177,10.1911 -7.7791,10.234 -7.7481,10.2846 -7.746,10.3192 -7.7231,10.3656 -7.6945,10.3916 -7.6295,10.435 -7.4433,10.3855 -7.3514,10.3393 -7.34,10.3158 -7.2615,10.243 -7.1759,10.2254 -7.1202,10.2119 -7.0706,10.1919 -7.0532,10.1786 -7.0317,10.1448 -7.0114,10.1307 -6.9802,10.1362 -6.9607,10.1445 -6.9407,10.1662 -6.9378,10.1967 -6.9475,10.2145 -6.973,10.2364 -6.9527,10.322 -6.933,10.3421 -6.7121,10.339 -6.6489,10.3426 -6.6433,10.3493 -6.6244,10.4222 -6.6429,10.441 -6.6616,10.4489 -6.6774,10.4799 -6.669,10.5867 -6.6618,10.6162 -6.6382,10.6523 -6.6142,10.6491 -6.5944,10.6256 -6.5817,10.5983 -6.5257,10.5644 -6.4147,10.5398 -6.3809,10.5822 -6.4098,10.6112 -6.4062,10.676 -6.2364,10.7234 -6.2174,10.7111 -6.1819,10.6248 -6.2054,10.5579 -6.1762,10.4521 -6.1746,10.4233 -6.1733,10.3917 -6.1731,10.3533 -6.1902,10.225 -6.1812,10.2203 -6.1386,10.2005 -6.1043,10.1865 -6.0834,10.1794 -5.9974,10.18 -5.9705,10.2052 -5.9574,10.2263 -5.9306,10.2732 -5.8757,10.3582 -5.7911,10.4098 -5.7756,10.4148 -5.7398,10.4118 -5.7196,10.4111 -5.6953,10.4183 -5.6627,10.4342 -5.5592,10.4457 -5.5136,10.4247 -5.5144,10.4162 -5.4642,10.3366 -5.3978,10.2862 -5.3652,10.2781 -5.3324,10.2857 -5.3015,10.2937 -5.2625,10.3076 -5.2381,10.3084 -5.1222,10.2918 -4.9847,10.0529 -4.9439,9.9377 -4.8249,9.8515 -4.781,9.8171 -4.7799,9.772 -4.8046,9.767 -4.7697,9.7257 -4.6991,9.6873 -4.6497,9.6923 -4.5996,9.7101 -4.5095,9.6795 -4.4211,9.6466 -4.3257,9.6045 -4.3074,9.5893 -4.2783,9.641 -4.2746,9.6651 -4.2571,9.732 -4.1193,9.8183 -4.0294,9.796 -3.9319,9.8523 -3.899,9.8711 -3.8862,9.8832 -3.8779,9.8869 -3.7491,9.9239 -3.7023,9.9326 -3.6328,9.9434 -3.3901,9.9089 -3.2047,9.8903 -3.1203,9.825 -2.9827,9.7137 -2.9657,9.6889 -2.9342,9.6169 -2.9174,9.5662 -2.8474,9.471 -2.7981,9.4135 -2.7763,9.3932 -2.7537,9.3854 -2.7283,9.4005 -2.6824,9.4712 -2.6714,9.4556 -2.6648,9.3724 -2.684,9.2149 -2.7104,9.1896 -2.7575,9.1116 -2.7644,9.0536 -2.7264,9.023 -2.6566,9.0045 -2.6137,8.9044 -2.595,8.807 -2.6148,8.7744 -2.6083,8.7705 -2.5819,8.7716 -2.5773,8.7586 -2.5679,8.7038 -2.5564,8.6353 -2.4926,8.2403 -2.4847,8.1886 -2.5574,8.1552 -2.5972,8.113 -2.657,8.0142 -2.7719,7.9343 -2.7816,7.8451 -2.8364,7.748 -2.8515,7.7333 -2.92,7.5873 -2.9449,7.4237 -2.9699,7.254 -3.0204,7.0653 -3.0927,7.0427 -3.115,6.9942 -3.2206,6.811 -3.2052,6.7457 -3.2028,6.6877 -3.2379,6.6356 -3.2448,6.6064 -3.2282,6.5356 -3.2033,6.44 -3.1654,6.2859 -3.1633,6.2625 -3.1644,6.2494 -3.1434,6.2409 -3.091,6.1386 -3.0849,6.1051 -3.0666,5.9855 -3.0026,5.8513 -3.0101,5.7013 -2.9565,5.621 -2.9276,5.6058 -2.8966,5.6107 -2.8765,5.6183 -2.8364,5.6231 -2.7941,5.6093 -2.7612,5.573 -2.7383,5.4402 -2.7657,5.3445 -2.7801,5.2743 -2.7592,5.1985 -2.7407,5.1672 -2.7259,5.1357 -2.7312,5.1073 -2.7502,5.0951 -2.9245,5.0947 -2.9288,5.1094 -2.8922,5.127 -2.8716,5.1339 -2.8444,5.1413 -2.8594,5.1771 -2.9262,5.1628 -3.0024,5.1232 -3.1324,5.1365 -3.1941,5.2017 -3.1937,5.2294 -3.1677,5.2702 -3.1284,5.3097 -3.1221,5.3409 -3.1365,5.3585 -3.2224,5.3514 -3.2538,5.3264 -3.2562,5.2724 -3.2611,5.2206 -3.2747,5.1323 -3.2941,5.1135 -3.346,5.1118 -3.3947,5.118 -3.4222,5.1248 -3.4503,5.1343 -3.5082,5.142 -3.5457,5.1455 -3.666,5.1693 -3.7523,5.1852 -3.7924,5.186 -3.9474,5.2245 -3.9736,5.2327 -3.9989,5.2509 -3.9332,5.266 -3.8847,5.2635 -3.8407,5.2591 -3.7765,5.2523 -3.7304,5.2534 -3.7101,5.2726 -3.7501,5.3475 -3.7667,5.3648 -3.8071,5.3666 -3.8011,5.3456 -3.7708,5.3211 -3.7343,5.2702 -3.7915,5.2666 -3.8442,5.291 -3.9067,5.3143 -4.0556,5.2909 -4.3183,5.2974 -4.4629,5.2897 -4.476,5.2724 -4.5072,5.2514 -4.6001,5.233 -4.736,5.2188 -4.793,5.2065 -4.8018,5.1707 -4.7818,5.1627 -4.7308,5.1919 -4.7087,5.1971 -4.5507,5.2156 -4.5051,5.2173 -4.4657,5.2144 -4.4412,5.2121 -4.4002,5.2163 -4.2864,5.2364 -4.2206,5.2501 -4.1415,5.2715 -4.1211,5.2716 -4.0884,5.2715 -4.0356,5.2688 -4.0011,5.2251 -4.1908,5.1981 -4.2329,5.1963 -4.2597,5.1958 -4.3446,5.1916 -4.6248,5.1714 -4.6572,5.1629 -4.7083,5.1468 -4.7478,5.1388 -4.7722,5.1361 -4.7819,5.1363 -4.8339,5.1292 -4.8882,5.123 -4.94,5.1231 -4.9731,5.1262 -5.0024,5.1574 -4.9927,5.2023 -5.0206,5.209 -5.0638,5.1963 -5.1037,5.1781 -5.1579,5.2015 -5.1899,5.2108 -5.2229,5.2088 -5.255,5.2052 -5.2653,5.2101 -5.3166,5.223 -5.3345,5.1955 -5.3136,5.1848 -5.2967,5.1902 -5.2918,5.1854 -5.2975,5.175 -5.3468,5.1427 -5.3887,5.1629 -5.4046,5.1486 -5.3543,5.1127 -5.2727,5.1196 -5.2339,5.1538 -5.2244,5.1936 -5.1609,5.19 -5.1279,5.1647 -5.0937,5.1588 -5.0694,5.1797 -5.0442,5.1828 -5.0231,5.1733 -5.0081,5.1194 -5.3286,5.0948 -5.3739,5.0926 -5.3941,5.0921 -5.4219,5.0925 -5.4764,5.0858 -5.8141,5.0334 -5.8525,5.0251 -5.8904,5.0147 -5.9518,4.992 -6.0505,4.9533 -6.0695,4.9366 -6.2077,4.8724 -6.2426,4.8632 -6.2623,4.8584 -6.3094,4.8451 -6.399,4.8184 -6.548,4.7635 -6.5715,4.753 -6.5915,4.732 -6.6113,4.7177 -6.7016,4.6862 -6.7385,4.6787 -6.7807,4.6792 -6.8174,4.6744 -6.8633,4.6648 -6.9,4.6519 -6.9154,4.628 -7.0301,4.5397 -7.0633,4.5252 -7.1259,4.5128 -7.1864,4.5102 -7.1984,4.5037 -7.2925,4.4477 -7.3732,4.3888 -7.4095,4.3532 -7.4276,4.3444 -7.4609,4.3398 -7.4891,4.3426 -7.5166,4.3482 -7.5472,4.3732 -7.5513,4.4494 -7.5457,4.5324 -7.5424,4.601 -7.5488,4.7389 -7.5526,4.7761 -7.5787,4.8057 -7.5819,4.8167 -7.5796,4.9004 -7.5517,5.0457 -7.4949,5.09 -7.3598,5.3197 -7.3754,5.3624 -7.4174,5.3899 -7.4276,5.4279 -7.4076,5.4797 -7.3829,5.5349 -7.364,5.5634 -7.391,5.6253 -7.397,5.64 -7.4228,5.7087 -7.4276,5.7373 -7.4242,5.783 -7.4193,5.8051 -7.4169,5.8391 -7.439,5.8538 -7.4894,5.8368 -7.5546,5.8767 -7.6461,5.9314 -7.6787,5.9042 -7.7488,5.94 -7.7746,5.9713 -7.7707,6.0078 -7.7802,6.0639 -7.8165,6.1994 -7.8665,6.2384 -7.8887,6.255 -7.9901,6.2934 -8.058,6.2868 -8.1129,6.2709 -8.1342,6.2688 -8.1601,6.2681 -8.3648,6.3537 -8.4653,6.4288 -8.5343,6.4851 -8.5963,6.5007 -8.5928,6.5156 -8.5683,6.5219 -8.557,6.5449 -8.5303,6.5545 -8.5187,6.5887 -8.4946,6.5982 -8.4729,6.6128 -8.4481,6.6292 -8.437,6.6488 -8.4255,6.6452 -8.4083,6.6597 -8.3691,6.7083 -8.3545,6.7318 -8.3299,6.7768 -8.3179,6.8031 -8.2991,6.8503 -8.2811,7.015 -8.277,7.1706 -8.3137,7.1951 -8.3409,7.2214 -8.3821,7.3073 -8.3935,7.3689 -8.4002,7.4121 -8.4,7.4452 -8.4063,7.4882 -8.4265,7.523 -8.4599,7.5528 -8.4107,7.5964 -8.3886,7.6097 -8.2762,7.5741 -8.2092,7.5365 -8.1771,7.5647 -8.1772,7.5926 -8.175,7.613 -8.085,7.7738 -8.0713,7.7966 -8.102,7.8323 -8.1098,7.8559 -8.0674,7.9402 -8.0468,7.9677 -8.0413,8.0099 -8.0443,8.024 -8.0098,8.0214 -7.9376,8.0098 -7.9423,8.0275 -7.9901,8.1447 -8.0114,8.1705 -8.0537,8.1547 -8.1009,8.1655 -8.1653,8.1885 -8.2196,8.2312 -8.2226,8.2654 -8.2254,8.3057 -8.2316,8.4372 -8.1792,8.4897 -7.94,8.4921 -7.808,8.4769 -7.7754,8.4454 -7.7518,8.4064 -7.7401,8.3734 -7.6888,8.3616 -7.6448,8.3746 -7.6569,8.4065 -7.6659,8.4284 -7.6664,8.5382 -7.6647,8.6057 -7.742,8.7078 -7.7835,8.7459 -7.8749,8.7658 -7.9017,8.7577 -7.9318,8.7705 -7.9473,8.7948 -7.9476,8.8163 -7.9277,8.9232 -7.919,8.962 -7.9052,8.9929 -7.8899,9.0088 -7.8017,9.059 -7.7278,9.0623 -7.7273,9.0815 -7.7882,9.1157 -7.8944,9.1693 -7.9111,9.194 -7.9081,9.2249 -7.8685,9.3412 -7.9528,9.3792 -8.0104,9.3778 -8.0468,9.3929 -8.0554,9.4083 -8.1002,9.4538 -8.1227,9.4863 -8.1343,9.5233 -8.1363,9.5466 -8.1384,9.6099 -8.1057,9.7945 -8.102,9.7981 -8.0952,9.8039 -8.0949,9.8532 -8.121,9.875 -8.1492,9.9165 -8.1385,9.9728 -8.0921,10.0424 -8.0564,10.0509 -8.0329,10.0622 -8.0101,10.0778 -7.9959,10.0945 -7.965,10.1544 -7.965,10.1544 29,7.0,Vietnam 106.6647,10.6514 106.7102,10.6088 106.728,10.6007 106.7393,10.5921 106.7413,10.5721 106.7203,10.5615 106.7355,10.5225 106.7554,10.4913 106.7481,10.4588 106.7528,10.4444 106.7425,10.4287 106.7405,10.395 106.7248,10.3907 106.7091,10.3931 106.6704,10.4289 106.6586,10.4413 106.6446,10.4596 106.6384,10.4696 106.6356,10.4826 106.6329,10.5469 106.6397,10.5561 106.6676,10.5628 106.6666,10.5809 106.6614,10.5988 106.6608,10.6123 106.6477,10.6333 106.6353,10.6473 106.6647,10.6514 106.6647,10.6514 16,8.0,Philippines 119.6855,10.4274 119.6523,10.4379 119.6193,10.5066 119.6184,10.5204 119.6217,10.5391 119.6296,10.547 119.705,10.5948 119.7672,10.5994 119.8655,10.5837 119.879,10.5444 119.8618,10.5158 119.796,10.4619 119.7482,10.4437 119.696,10.428 119.6855,10.4274 119.6855,10.4274 5,5.5,India 72.5675,10.5575 72.5578,10.542 72.5467,10.5392 72.5675,10.5575 72.5675,10.5575 27,8.0,Philippines 125.5091,9.8109 125.4447,9.8128 125.4588,9.8484 125.4838,9.885 125.475,9.936 125.365,10.0559 125.3438,10.0928 125.3397,10.11 125.3379,10.12 125.3771,10.3068 125.4861,10.4465 125.4989,10.4552 125.5108,10.455 125.5361,10.4074 125.545,10.3796 125.5176,10.2413 125.5178,10.1533 125.5274,10.1056 125.5364,10.0954 125.5616,10.0584 125.5741,9.8813 125.569,9.8534 125.5526,9.8351 125.5388,9.8228 125.5251,9.8151 125.5091,9.8109 125.5091,9.8109 20,7.0,Vietnam 103.8984,10.4278 103.9411,10.3902 103.9506,10.3795 103.9612,10.3661 103.969,10.3534 103.9729,10.2361 103.9645,10.2103 103.9128,10.0689 103.8492,10.2017 103.8356,10.2326 103.8148,10.2643 103.804,10.2736 103.7628,10.2892 103.7523,10.2883 103.7454,10.2995 103.7248,10.3563 103.7397,10.3622 103.8632,10.422 103.8984,10.4278 103.8984,10.4278 42,8.0,Philippines 124.3923,10.0442 124.4137,10.0254 124.4283,10.0111 124.4376,9.9814 124.4427,9.9016 124.4374,9.8752 124.417,9.8586 124.3923,9.8374 124.4208,9.8138 124.4517,9.7992 124.4627,9.7508 124.4417,9.7232 124.3943,9.7158 124.3645,9.7395 124.271,9.648 124.2205,9.613 124.1814,9.5982 124.1532,9.5898 124.1312,9.5858 123.9607,9.574 123.9229,9.5738 123.8205,9.5879 123.7251,9.6246 123.656,9.7225 123.6459,9.7589 123.6512,9.8329 123.7502,9.9043 123.8218,9.9394 123.844,9.9492 123.9096,9.9873 123.997,10.1003 124.003,10.1204 124.0169,10.1366 124.0752,10.1452 124.1056,10.1469 124.1793,10.1459 124.2403,10.1357 124.2838,10.0838 124.3312,10.0472 124.3512,10.0389 124.3923,10.0442 124.3923,10.0442 14,8.0,Philippines 125.1426,9.8966 125.1184,9.9083 125.0014,10.0493 124.9876,10.0717 124.984,10.0919 124.9827,10.1324 124.9918,10.1442 125.0791,10.1128 125.1462,9.9843 125.1628,9.9208 125.1593,9.9068 125.1497,9.8981 125.1426,9.8966 125.1426,9.8966 7,5.5,India 73.5662,10.0737 73.5649,10.0576 73.5556,10.042 73.5497,10.0576 73.5622,10.0854 73.5662,10.0737 73.5662,10.0737 15,6.5,Myanmar (Burma) 98.1763,9.9958 98.0684,9.9133 98.0482,9.8659 98.0284,9.8285 98.0072,9.8486 98.0086,9.9051 98.0194,9.9275 98.0586,9.9917 98.0677,10.0032 98.1339,10.0446 98.1499,10.0462 98.182,10.0424 98.1808,9.9965 98.1763,9.9958 98.1763,9.9958 17,8.0,Philippines 125.8938,9.7318 125.8074,9.8201 125.8302,9.8769 125.8993,10.0147 125.9116,10.035 125.9202,10.0421 125.9354,10.0408 125.9529,9.9908 125.9811,9.8923 125.9849,9.8605 126.0077,9.8274 126.0364,9.7944 126.0303,9.7724 126.0183,9.7634 125.9758,9.734 125.8938,9.7318 125.8938,9.7318 190,0.0,Sierra Leone -10.2551,8.4789 -10.2525,8.4456 -10.2859,8.1898 -10.3218,8.1507 -10.3464,8.1366 -10.4264,8.1323 -10.4622,8.1351 -10.4902,8.125 -10.5123,8.1088 -10.5907,8.024 -10.59,7.8501 -10.5956,7.7637 -10.6399,7.752 -10.6747,7.7344 -10.6937,7.7158 -10.7123,7.6933 -10.7352,7.6614 -10.8175,7.558 -10.8332,7.5392 -10.8386,7.5335 -10.856,7.5191 -10.9077,7.4999 -11.0901,7.3764 -11.119,7.3431 -11.1252,7.3355 -11.1288,7.3193 -11.1808,7.2485 -11.226,7.236 -11.2546,7.2269 -11.2933,7.2067 -11.3256,7.143 -11.3285,7.1086 -11.3382,7.0709 -11.3671,7.0112 -11.4126,6.9312 -11.4525,6.9161 -11.4791,6.9193 -11.5193,6.9335 -11.5601,6.9535 -11.629,7.0121 -11.6528,7.0298 -11.7224,7.0763 -11.8066,7.1286 -11.8279,7.1399 -11.8771,7.159 -12.3067,7.3171 -12.3668,7.3387 -12.4274,7.3594 -12.4521,7.3651 -12.4898,7.3806 -12.4809,7.4418 -12.4555,7.4812 -12.4211,7.5169 -12.3843,7.5237 -12.3455,7.5235 -12.2971,7.5192 -12.2163,7.543 -12.1807,7.5625 -12.1702,7.5827 -12.2368,7.6003 -12.2524,7.5761 -12.2792,7.5643 -12.3781,7.5359 -12.4185,7.5418 -12.4465,7.5472 -12.522,7.629 -12.5798,7.6729 -12.6778,7.693 -12.7514,7.7314 -12.8556,7.8093 -12.9442,7.8945 -12.8754,7.9263 -12.8715,7.9552 -12.8933,8.0911 -12.9336,8.1508 -12.9618,8.1705 -12.9724,8.2037 -12.9662,8.2245 -12.9596,8.2386 -12.9919,8.2241 -13.1179,8.1859 -13.1399,8.2051 -13.2006,8.3315 -13.2629,8.4141 -13.27,8.488 -13.183,8.4843 -13.1606,8.4651 -13.1345,8.4305 -13.0413,8.3605 -13.0244,8.3644 -13.0212,8.3682 -13.0508,8.3965 -13.0809,8.4124 -13.1077,8.4382 -13.0807,8.4758 -12.9997,8.5468 -12.9748,8.5507 -12.9154,8.5419 -12.8831,8.5584 -12.9234,8.5798 -13.0201,8.5771 -13.0891,8.5652 -13.1343,8.5061 -13.1641,8.53 -13.1744,8.5474 -13.2257,8.6557 -13.2277,8.774 -13.2225,8.8095 -13.1903,8.8462 -13.1176,8.8523 -13.1617,8.9026 -13.2142,8.9382 -13.2505,8.9435 -13.2715,8.9854 -13.2805,9.0223 -13.2761,9.0328 -13.2488,9.0525 -13.168,9.0763 -13.1259,9.0439 -13.0987,9.0339 -13.0784,9.0373 -13.0169,9.0762 -12.99,9.0981 -12.9618,9.1594 -12.9462,9.2243 -12.9341,9.2671 -12.9126,9.2789 -12.8417,9.274 -12.8035,9.2765 -12.7836,9.2877 -12.6653,9.4092 -12.6509,9.4656 -12.617,9.5623 -12.6024,9.5953 -12.5702,9.6212 -12.5719,9.6376 -12.4792,9.8528 -12.4423,9.8775 -12.217,9.9242 -12.2062,9.901 -12.146,9.8689 -12.1211,9.8641 -12.0922,9.8694 -11.8842,9.9245 -11.8872,9.9614 -11.8815,9.985 -11.5638,9.9862 -11.5567,9.9854 -11.4689,9.9863 -11.4462,9.9865 -11.2021,9.9865 -11.1617,9.9646 -11.0924,9.8428 -11.0393,9.7987 -11.0115,9.7712 -10.9848,9.7408 -10.9677,9.7166 -10.8971,9.5926 -10.8265,9.4692 -10.7382,9.3786 -10.6878,9.3359 -10.6455,9.2922 -10.659,9.2175 -10.6773,9.1961 -10.7115,9.1494 -10.7277,9.0812 -10.7093,9.0675 -10.6667,9.0679 -10.5991,9.063 -10.5595,9.0495 -10.5653,9.0312 -10.5837,8.9758 -10.5892,8.9437 -10.5813,8.857 -10.571,8.8146 -10.4961,8.7084 -10.5249,8.6104 -10.5645,8.5898 -10.608,8.5342 -10.6818,8.3528 -10.6836,8.2896 -10.5426,8.2996 -10.5173,8.3124 -10.4808,8.3391 -10.4239,8.3946 -10.4109,8.4265 -10.3785,8.4816 -10.3117,8.4999 -10.2551,8.4789 -10.2551,8.4789 267,6.0,Sri Lanka 81.6927,6.665 81.6921,6.6327 81.6897,6.6175 81.6851,6.6078 81.6708,6.5808 81.617,6.495 81.6069,6.4774 81.5849,6.4511 81.5684,6.4328 81.5187,6.3955 81.3162,6.2454 81.2319,6.1916 81.2222,6.1878 80.9636,6.1009 80.927,6.0962 80.8994,6.09 80.7983,6.0554 80.7371,6.0343 80.7008,6.0095 80.6878,5.998 80.6534,5.9707 80.6089,5.9527 80.4981,5.9114 80.3615,5.9389 80.1956,5.9848 80.152,6.0007 80.1097,6.0195 80.0933,6.028 80.0225,6.1098 79.9917,6.1612 79.9552,6.2327 79.931,6.3184 79.8959,6.4252 79.8789,6.5205 79.8612,6.5676 79.834,6.6365 79.8083,6.6998 79.7903,6.7436 79.7688,6.7898 79.761,6.8287 79.7472,6.9301 79.7578,6.9527 79.7721,6.9723 79.7713,6.9852 79.7625,7.1152 79.7405,7.1892 79.7458,7.2601 79.7437,7.2885 79.727,7.3947 79.725,7.4061 79.6999,7.5991 79.7059,7.6261 79.7072,7.653 79.6941,7.7419 79.6638,7.8751 79.654,7.913 79.6499,7.9229 79.6432,7.9366 79.6372,7.9514 79.6286,7.977 79.6254,7.9877 79.6228,7.9985 79.6171,8.0271 79.6132,8.0706 79.6088,8.1855 79.6196,8.2116 79.6336,8.2324 79.6602,8.2565 79.6358,8.1166 79.6403,8.0088 79.6433,7.9982 79.6584,7.9823 79.6734,7.976 79.6975,7.9722 79.7114,7.9721 79.725,7.9757 79.7353,7.9828 79.7406,7.9915 79.7409,8.004 79.7368,8.0135 79.7249,8.0307 79.7237,8.2366 79.779,8.5267 79.8067,8.5441 79.8256,8.5527 79.853,8.6214 79.8612,8.7142 79.8608,8.7273 79.8412,8.8289 79.8304,8.9276 79.8844,8.9621 79.9026,8.971 79.9526,9.0045 79.9616,9.0165 79.9758,9.0512 80.0188,9.1699 80.0231,9.1886 80.0345,9.241 80.0282,9.2875 80.0192,9.2957 80.0098,9.3003 80.0063,9.4009 80.0474,9.4147 80.1068,9.4598 80.098,9.4788 80.0883,9.4899 80.067,9.5101 80.0467,9.5243 80.0329,9.5318 79.9979,9.5531 79.9687,9.5723 79.963,9.5817 79.9779,9.5835 80.0013,9.5791 80.1498,9.5202 80.1882,9.4893 80.3841,9.4783 80.4048,9.4711 80.4344,9.4588 80.4491,9.4524 80.4607,9.4421 80.4691,9.4363 80.4807,9.4344 80.5215,9.4343 80.5003,9.4513 80.4485,9.4817 80.3756,9.5212 80.3405,9.5269 80.319,9.5224 80.296,9.5211 80.2432,9.5445 80.2266,9.5623 80.2107,9.5745 80.1222,9.6256 80.1082,9.6329 80.0958,9.6376 80.0813,9.6329 80.08,9.621 80.089,9.6092 80.0981,9.6041 80.1093,9.5915 80.1078,9.5761 80.0964,9.5714 80.0326,9.5895 79.9367,9.6339 79.8579,9.6798 79.8516,9.6921 79.8381,9.7339 79.8383,9.7598 79.8825,9.799 79.8934,9.8058 79.9288,9.8079 79.9426,9.8078 80.026,9.7921 80.037,9.7672 80.0483,9.7582 80.0748,9.7574 80.1084,9.7393 80.1386,9.7405 80.1454,9.7333 80.1616,9.7019 80.1865,9.6843 80.2214,9.6398 80.2637,9.609 80.2763,9.6006 80.3032,9.5825 80.3537,9.5662 80.1846,9.7093 80.136,9.7635 80.1147,9.7587 80.1011,9.7597 80.0677,9.7719 80.0528,9.7814 80.0735,9.8019 80.1542,9.8172 80.1643,9.8142 80.169,9.8051 80.1716,9.7907 80.1761,9.781 80.1869,9.764 80.255,9.6755 80.2679,9.6617 80.3138,9.6143 80.4859,9.4818 80.5008,9.4718 80.5213,9.4611 80.5383,9.4504 80.5511,9.4419 80.578,9.4201 80.6269,9.3718 80.6767,9.3213 80.711,9.2843 80.7352,9.2518 80.7555,9.2168 80.76,9.2078 80.8428,9.0307 80.8405,8.9694 80.8341,8.9661 80.8231,8.9409 80.828,8.9292 80.8378,8.9217 80.8482,8.9215 80.8716,8.9322 80.8788,8.9421 80.9375,8.9067 81.0761,8.7352 81.1323,8.6539 81.1417,8.6389 81.1631,8.5415 81.1601,8.5312 81.1501,8.5271 81.1386,8.5293 81.1347,8.556 81.1205,8.5618 81.0572,8.5177 81.0397,8.4929 81.0488,8.4822 81.1292,8.4534 81.1639,8.4456 81.1779,8.4448 81.1909,8.4521 81.2016,8.4693 81.2004,8.4858 81.2368,8.5107 81.2676,8.4816 81.2728,8.4729 81.2975,8.375 81.2999,8.3642 81.3319,8.1928 81.3068,8.1768 81.3007,8.1404 81.3321,8.0838 81.428,7.9915 81.5224,7.8161 81.5992,7.7528 81.6132,7.7392 81.6223,7.7207 81.6206,7.7074 81.5957,7.693 81.5945,7.673 81.6152,7.6421 81.6271,7.6309 81.6395,7.6293 81.6621,7.6035 81.6804,7.5619 81.6727,7.5399 81.6651,7.4956 81.6746,7.4544 81.703,7.4366 81.7184,7.4338 81.7269,7.4647 81.7367,7.4627 81.7637,7.3971 81.7793,7.3443 81.7816,7.3334 81.7867,7.3043 81.7892,7.2798 81.7869,7.1602 81.7991,7.0057 81.7979,6.9929 81.7887,6.9502 81.7564,6.8241 81.7395,6.7585 81.7144,6.692 81.6998,6.6717 81.6927,6.665 81.6927,6.665 561,8.0,Philippines 124.0148,7.1641 124.0202,7.1728 124.126,7.355 124.1286,7.3662 124.1096,7.4011 124.0955,7.4098 124.0653,7.4006 124.0341,7.395 124.0247,7.3997 123.9985,7.4278 123.9918,7.445 123.985,7.4764 123.9724,7.5171 123.8861,7.6265 123.8726,7.6403 123.7803,7.6791 123.7444,7.6871 123.6837,7.6898 123.6352,7.6905 123.5996,7.7165 123.5947,7.7313 123.5969,7.7559 123.5767,7.7768 123.5542,7.7945 123.5379,7.8039 123.4722,7.821 123.462,7.8264 123.4294,7.8403 123.4011,7.8394 123.3202,7.8021 123.3106,7.7465 123.339,7.7274 123.3455,7.7156 123.3439,7.6742 123.3352,7.6451 123.33,7.6333 123.322,7.6199 123.3089,7.61 123.2864,7.6024 123.2697,7.6013 123.2501,7.5975 123.2038,7.5604 123.1958,7.5493 123.1997,7.539 123.2717,7.4594 123.2986,7.4419 123.3094,7.4297 123.3167,7.3642 123.2739,7.3481 123.2638,7.3483 123.2453,7.3628 123.1937,7.4058 123.1503,7.4527 123.1463,7.4651 123.1577,7.4829 123.1674,7.5094 123.1605,7.5175 123.0903,7.5258 123.0778,7.5188 123.0491,7.4963 123.0466,7.486 123.0543,7.4723 123.0345,7.4552 122.9863,7.4954 122.9725,7.5116 122.9646,7.5413 122.9937,7.5646 123.0258,7.5701 123.0415,7.5675 123.0563,7.5774 123.0523,7.5998 122.9967,7.7005 122.979,7.7203 122.9251,7.6703 122.9041,7.6428 122.8922,7.6145 122.8938,7.587 122.899,7.5729 122.8907,7.5441 122.8646,7.4683 122.8543,7.4472 122.8144,7.4676 122.7403,7.4577 122.7061,7.427 122.7621,7.4276 122.7915,7.4145 122.7999,7.4068 122.8369,7.3569 122.7619,7.309 122.7114,7.2973 122.6943,7.2672 122.678,7.2733 122.6708,7.2814 122.6478,7.3314 122.6472,7.3444 122.6562,7.3823 122.6622,7.4006 122.6679,7.414 122.6915,7.4278 122.6743,7.4286 122.6421,7.4631 122.6447,7.6722 122.6541,7.6889 122.6619,7.7013 122.6818,7.704 122.6791,7.7237 122.6721,7.7378 122.6506,7.7562 122.5815,7.7715 122.5211,7.7724 122.486,7.7644 122.4099,7.7219 122.3742,7.6808 122.3645,7.6691 122.3064,7.5873 122.2958,7.5724 122.2215,7.4622 122.2128,7.4455 122.206,7.4291 122.208,7.3927 122.2278,7.3896 122.2551,7.381 122.2233,7.3257 122.194,7.3008 122.182,7.3318 122.1671,7.3259 122.1572,7.317 122.1523,7.2999 122.1347,7.2223 122.1196,7.1494 122.1134,7.0993 122.0483,6.9423 122.012,6.8975 121.993,6.8834 121.9818,6.8811 121.9666,6.8826 121.9054,6.9044 121.8196,6.9435 121.8093,6.9523 121.8028,6.9605 121.7834,6.9863 121.7592,7.0695 121.7639,7.1375 121.781,7.1711 121.7878,7.1839 121.7967,7.1944 121.8972,7.3184 121.8912,7.3444 121.9162,7.429 121.9393,7.4965 121.9615,7.5309 121.9882,7.5549 121.9942,7.6343 121.9916,7.6637 121.9892,7.6782 121.9761,7.7141 121.9661,7.7194 121.9741,7.7673 122.0103,7.8331 122.0884,7.9554 122.1288,7.9884 122.1631,8.0058 122.1959,8.0214 122.2139,8.0298 122.3045,8.0565 122.329,8.0626 122.3418,8.0616 122.3514,8.0574 122.3658,8.0537 122.641,8.1026 122.6544,8.1051 122.6827,8.1107 122.7684,8.1344 122.7853,8.1417 122.8532,8.1925 122.8595,8.2137 122.847,8.3214 122.846,8.4103 122.8887,8.4793 122.9266,8.5073 123.0423,8.5243 123.055,8.5246 123.0797,8.5154 123.1219,8.5034 123.1369,8.5022 123.1534,8.5052 123.1673,8.5137 123.1848,8.5365 123.2321,8.6327 123.2422,8.6963 123.2415,8.7158 123.2574,8.7215 123.297,8.7078 123.3933,8.6217 123.4115,8.6109 123.4841,8.6489 123.5552,8.6233 123.5926,8.5925 123.6391,8.5378 123.6798,8.4674 123.6977,8.4194 123.7278,8.2182 123.7297,8.1943 123.7303,8.1719 123.7276,8.1514 123.7117,8.131 123.6333,8.0573 123.6203,8.0498 123.5932,8.0398 123.5791,8.0393 123.5627,8.0404 123.5487,8.0346 123.5318,8.0242 123.5137,8.0049 123.5204,7.9991 123.5141,7.9614 123.5286,7.9458 123.5418,7.9497 123.5503,7.9595 123.6126,7.9969 123.6359,8.0194 123.6481,8.041 123.7096,8.0989 123.8233,8.1619 123.8746,8.1819 123.8886,8.186 123.9358,8.1844 123.9609,8.1801 123.9794,8.1761 124.0068,8.1736 124.0324,8.1778 124.085,8.2033 124.1219,8.2643 124.1179,8.2789 124.1066,8.314 124.1164,8.3283 124.1423,8.3847 124.1459,8.3983 124.1473,8.4082 124.1467,8.4312 124.142,8.4501 124.1877,8.5379 124.2937,8.6059 124.3396,8.5989 124.3515,8.5753 124.4087,8.5295 124.4358,8.5119 124.537,8.4681 124.5618,8.4639 124.57,8.4648 124.5805,8.4703 124.5884,8.477 124.6104,8.5019 124.6308,8.5849 124.6231,8.6285 124.6071,8.6367 124.6002,8.6517 124.5988,8.6667 124.5995,8.6856 124.6314,8.7779 124.6438,8.8908 124.6348,8.9411 124.6349,8.96 124.6465,8.9749 124.6625,8.9895 124.6775,8.9965 124.7417,9.0064 124.8307,8.9467 124.8848,8.897 124.8933,8.8744 124.9348,8.8192 124.9515,8.8153 124.9766,8.8197 125.0041,8.8312 125.0195,8.8389 125.1411,8.9803 125.2898,8.9674 125.3018,8.9685 125.32,8.9741 125.3385,8.9807 125.3758,8.9965 125.3808,9.0068 125.3946,9.0433 125.3987,9.0546 125.3987,9.0778 125.3935,9.181 125.374,9.2683 125.3652,9.2979 125.313,9.4591 125.272,9.5801 125.2535,9.6391 125.2594,9.7045 125.2638,9.7325 125.2697,9.7565 125.3029,9.7984 125.3223,9.7973 125.3626,9.7816 125.4172,9.7515 125.4453,9.7134 125.47,9.6233 125.4982,9.6013 125.5084,9.595 125.6117,9.5526 125.6234,9.5484 125.6421,9.5421 125.6992,9.5309 125.7836,9.4768 125.7998,9.436 125.7625,9.4139 125.7633,9.3971 125.8783,9.2557 125.9112,9.2218 125.9729,9.2411 125.989,9.2506 126.0468,9.2324 126.0402,9.1943 126.027,9.0909 126.0451,9.0684 126.0936,9.0215 126.0973,9.0093 126.0822,9.0036 126.0861,8.9862 126.0976,8.9855 126.1184,8.9802 126.1344,8.9728 126.1512,8.9643 126.1616,8.9535 126.1668,8.9446 126.1847,8.9088 126.1949,8.8321 126.1866,8.8137 126.1637,8.7756 126.1522,8.7647 126.0525,8.6866 126.0084,8.6601 125.9673,8.6381 125.9537,8.6226 125.9439,8.6001 125.9819,8.5329 125.9888,8.5255 126.0035,8.518 126.0584,8.5115 126.08,8.5106 126.0897,8.5175 126.0711,8.5273 126.0862,8.5421 126.2216,8.5323 126.2513,8.498 126.255,8.456 126.2331,8.3826 126.2168,8.3597 126.2066,8.3512 126.1847,8.2274 126.2534,8.1939 126.2751,8.2129 126.3041,8.2321 126.3221,8.2267 126.3246,8.2163 126.3043,8.1105 126.2983,8.101 126.2936,8.0898 126.2207,7.8952 126.2239,7.8738 126.238,7.8367 126.2469,7.82 126.2629,7.817 126.2801,7.816 126.3129,7.7992 126.3807,7.7201 126.4096,7.6837 126.4503,7.5078 126.454,7.4918 126.4556,7.4721 126.4527,7.4417 126.4401,7.4328 126.4132,7.3882 126.4111,7.3479 126.4118,7.2936 126.419,7.2818 126.4392,7.2764 126.4159,7.1913 126.3125,7.0438 126.2062,6.9951 126.1857,6.9911 126.1749,6.9786 126.1377,6.9134 126.1459,6.8908 126.1564,6.8819 126.1681,6.8736 126.1852,6.861 126.2013,6.8472 126.2052,6.7929 126.1806,6.7868 126.1694,6.7905 126.1572,6.7957 126.145,6.8099 126.1412,6.8317 126.1353,6.8706 126.1282,6.8936 126.1188,6.9165 126.0701,6.9399 126.0572,6.9381 126.0443,6.9251 126.0225,6.874 126.03,6.8589 126.0474,6.8281 126.0644,6.8067 126.0728,6.7992 126.0866,6.7865 126.1041,6.7651 126.1156,6.7434 126.1044,6.694 126.0958,6.6781 126.0867,6.6641 126.0777,6.6275 126.0694,6.4155 126.0638,6.3132 126.0483,6.2652 126.0455,6.3157 126.043,6.3265 126.0367,6.3389 126.0011,6.3847 125.9589,6.4726 125.9454,6.509 125.9417,6.5217 125.924,6.636 125.9288,6.6563 125.9419,6.6918 125.9527,6.7269 125.9338,6.8362 125.9216,6.8504 125.9027,6.8569 125.8825,6.8603 125.8631,6.8772 125.8456,6.8983 125.8352,6.914 125.8277,6.9409 125.8313,6.9588 125.8382,6.9776 125.8445,6.9949 125.8399,7.0126 125.8172,7.0532 125.801,7.0666 125.7717,7.0791 125.7626,7.0874 125.7451,7.1094 125.6992,7.2434 125.6996,7.2642 125.7066,7.3071 125.7115,7.3228 125.7141,7.3371 125.7083,7.3467 125.6892,7.3528 125.6679,7.3535 125.6086,7.3153 125.5827,7.2951 125.5479,7.2682 125.5096,7.2265 125.5057,7.201 125.5122,7.1789 125.5199,7.151 125.5179,7.1209 125.5164,7.1072 125.511,7.0981 125.5001,7.0823 125.461,7.0353 125.4302,7.0318 125.4039,7.0375 125.3839,7.0232 125.3464,6.9696 125.349,6.9357 125.3515,6.9205 125.3336,6.887 125.2946,6.8409 125.2568,6.7954 125.2528,6.7847 125.2355,6.7163 125.2444,6.6074 125.2491,6.5902 125.3034,6.574 125.3082,6.5833 125.3507,6.5573 125.4507,6.4694 125.5464,6.2481 125.5689,6.1627 125.5685,6.0969 125.5597,6.0185 125.546,5.9677 125.5415,5.9529 125.5199,5.9118 125.4858,5.8625 125.4597,5.849 125.3967,5.7762 125.3736,5.7404 125.3656,5.7258 125.3462,5.6903 125.3192,5.6421 125.2824,5.5815 125.2664,5.5596 125.2499,5.5526 125.2337,5.5483 125.1762,5.5595 125.1471,5.5736 125.1506,5.6033 125.1603,5.6188 125.1621,5.6307 125.143,5.6822 125.1361,5.6919 125.1275,5.6991 125.0811,5.7365 125.049,5.761 125.0344,5.8293 125.0733,5.8654 125.1137,5.9114 125.143,5.9688 125.1469,5.9972 125.1349,6.054 125.1269,6.0793 125.1172,6.0868 125.037,6.1003 125.0123,6.0945 125.0104,6.0836 124.9448,5.8662 124.9371,5.8576 124.9227,5.8471 124.8955,5.8442 124.8147,5.845 124.7076,5.8743 124.6892,5.8799 124.5774,5.9267 124.3848,6.0124 124.2535,6.0871 124.2348,6.0987 124.2268,6.1117 124.1827,6.1077 124.1271,6.1448 124.0424,6.207 123.9266,6.3722 123.9016,6.4246 123.8914,6.4877 123.8953,6.5241 123.9189,6.5371 123.9103,6.6263 123.895,6.7333 123.8511,6.7661 123.8401,6.7579 123.8302,6.7616 123.8203,6.7777 123.8081,6.8159 123.8281,6.9192 123.8394,6.9641 123.8529,7.0163 123.8603,7.0304 123.8996,7.1006 123.9136,7.1225 123.9308,7.1376 123.9421,7.1376 123.9625,7.1402 123.976,7.1437 124.0148,7.1641 124.0148,7.1641 15,8.0,Philippines 125.8053,9.5453 125.7881,9.5615 125.7636,9.6016 125.7696,9.6957 125.7765,9.7409 125.8027,9.7448 125.8208,9.7283 125.8482,9.6634 125.8529,9.6512 125.8523,9.6323 125.8336,9.5639 125.826,9.5532 125.814,9.547 125.8053,9.5453 125.8053,9.5453 375,-5.0,Panama -82.4726,9.5523 -82.4651,9.5518 -82.4433,9.5373 -82.2725,9.3967 -82.2789,9.3103 -82.2905,9.2755 -82.2336,9.1782 -82.184,9.0934 -82.1514,8.9924 -82.0145,8.9315 -81.969,8.9211 -81.8923,8.9349 -81.7253,8.9352 -81.6973,8.9934 -81.7691,9.0523 -81.823,9.1025 -81.8177,9.1586 -81.7955,9.1634 -81.7751,9.1542 -81.6607,9.0371 -81.618,8.9906 -81.5782,8.946 -81.5525,8.9094 -81.5224,8.8704 -81.4685,8.8192 -81.4166,8.7834 -81.1832,8.7754 -81.1299,8.7749 -81.1137,8.7712 -81.0628,8.7779 -80.9994,8.7929 -80.8762,8.8262 -80.8543,8.844 -80.7891,8.869 -80.7794,8.8668 -80.7744,8.8647 -80.747,8.8685 -80.7132,8.8958 -80.6894,8.927 -80.6621,8.9619 -80.5468,9.0315 -80.5125,9.0485 -80.4465,9.0757 -80.3162,9.1235 -80.2266,9.14 -80.1648,9.1496 -80.0659,9.1827 -80.0287,9.1969 -80.0037,9.2101 -79.9629,9.2486 -79.9158,9.2965 -79.8994,9.3181 -79.8791,9.3426 -79.8588,9.3479 -79.718,9.3899 -79.6562,9.4247 -79.5992,9.48 -79.5835,9.5392 -79.5381,9.5835 -79.5119,9.5917 -79.447,9.6094 -79.3754,9.5573 -79.1603,9.5293 -79.075,9.53 -78.9888,9.5315 -78.9571,9.5356 -78.908,9.537 -78.8749,9.5269 -78.9109,9.5113 -78.9474,9.5092 -78.9787,9.4828 -78.9797,9.4519 -78.967,9.4184 -78.919,9.4127 -78.6168,9.4214 -78.4652,9.4178 -78.4122,9.3938 -78.3652,9.3708 -78.3256,9.3478 -78.28,9.3251 -78.1491,9.2762 -78.0656,9.2494 -77.9479,9.2185 -77.8576,9.1328 -77.7967,9.0862 -77.7624,9.0737 -77.7187,9.0378 -77.6606,8.9659 -77.6595,8.9319 -77.6162,8.8667 -77.5474,8.8275 -77.4563,8.754 -77.4458,8.6968 -77.4243,8.6765 -77.4031,8.6643 -77.348,8.6496 -77.2874,8.6562 -77.2803,8.6655 -77.2854,8.6366 -77.352,8.5571 -77.3658,8.5474 -77.389,8.5116 -77.382,8.4622 -77.3426,8.4633 -77.3193,8.4418 -77.2884,8.3892 -77.2818,8.355 -77.2812,8.3281 -77.2758,8.276 -77.262,8.2586 -77.2093,8.2069 -77.1868,8.1894 -77.157,8.1363 -77.1287,8.0789 -77.1114,7.9906 -77.1286,7.9285 -77.2084,7.8963 -77.2243,7.8784 -77.2827,7.77 -77.2429,7.7175 -77.2439,7.6934 -77.4898,7.518 -77.5127,7.531 -77.5226,7.5542 -77.5366,7.5951 -77.5762,7.6711 -77.6564,7.7115 -77.6712,7.6847 -77.6716,7.6589 -77.6713,7.625 -77.6667,7.6037 -77.6416,7.5605 -77.6332,7.5282 -77.6444,7.4977 -77.661,7.4759 -77.688,7.4672 -77.7197,7.4706 -77.8017,7.2209 -77.82,7.2252 -77.9203,7.323 -78.0744,7.4996 -78.0795,7.5339 -78.0778,7.56 -78.1466,7.6376 -78.1931,7.6985 -78.1864,7.7159 -78.2636,7.8645 -78.2814,7.8775 -78.2994,7.8963 -78.3237,7.9554 -78.3447,8.0398 -78.3378,8.0714 -78.3155,8.089 -78.3128,8.0597 -78.2862,8.052 -78.2326,8.0498 -78.2065,8.0612 -78.1694,8.0928 -78.1484,8.1395 -78.1537,8.1746 -78.1909,8.2059 -78.2137,8.2404 -78.1743,8.2603 -78.0953,8.3183 -78.0475,8.3898 -77.9575,8.3019 -77.9409,8.2524 -77.9077,8.2234 -77.8769,8.2311 -77.7952,8.2198 -77.7534,8.1864 -77.7196,8.1501 -77.6978,8.1211 -77.6917,8.146 -77.7814,8.226 -77.8018,8.2371 -77.8248,8.2429 -77.9058,8.2581 -77.9259,8.2636 -77.958,8.3293 -78.0201,8.4464 -78.0332,8.4297 -78.1466,8.371 -78.1661,8.3875 -78.2716,8.3851 -78.297,8.3272 -78.3101,8.3368 -78.3251,8.3342 -78.405,8.4434 -78.4002,8.4862 -78.4196,8.6073 -78.4505,8.6274 -78.4769,8.6427 -78.519,8.6538 -78.5696,8.6905 -78.6221,8.7371 -78.6543,8.782 -78.8194,8.9033 -78.9356,8.9538 -78.9652,8.9569 -78.9807,8.9975 -78.9799,9.0428 -78.9356,9.1 -78.8914,9.1285 -78.9189,9.1257 -78.952,9.1156 -79.0211,9.0748 -79.0315,9.0421 -79.0304,9.0207 -79.0454,9.0036 -79.1403,8.9957 -79.1706,9.006 -79.1934,9.0079 -79.2776,9.0061 -79.302,9.0035 -79.3458,8.9982 -79.3895,8.9874 -79.4341,8.9496 -79.4381,8.9097 -79.4892,8.8701 -79.5506,8.864 -79.6092,8.8567 -79.6487,8.8232 -79.6704,8.7762 -79.6598,8.7239 -79.6495,8.7014 -79.6922,8.5963 -79.8632,8.4414 -79.9266,8.3981 -79.9371,8.3923 -79.981,8.3736 -80.0096,8.3582 -80.0488,8.3302 -80.1358,8.286 -80.2471,8.2785 -80.2921,8.2817 -80.3343,8.2557 -80.3811,8.2064 -80.3887,8.1878 -80.3918,8.143 -80.3849,8.0817 -80.3912,8.0744 -80.352,8.0131 -80.3077,7.9944 -80.2917,7.9903 -80.2613,7.9831 -80.2355,7.9423 -80.227,7.907 -80.0683,7.7471 -79.9701,7.6354 -79.9001,7.5106 -79.912,7.46 -79.9342,7.4435 -80.0053,7.4221 -80.0717,7.4042 -80.1244,7.4088 -80.161,7.4204 -80.1906,7.4219 -80.2175,7.4081 -80.2714,7.3648 -80.2851,7.3015 -80.3459,7.2366 -80.5026,7.2284 -80.5429,7.227 -80.5522,7.2215 -80.5919,7.2083 -80.6226,7.2013 -80.7065,7.198 -80.7594,7.2024 -80.7908,7.2124 -80.8373,7.2471 -80.8195,7.3101 -80.7968,7.326 -80.8211,7.4361 -80.8571,7.5494 -80.891,7.6045 -80.9196,7.6291 -80.9457,7.6681 -80.9636,7.7386 -80.9661,7.8202 -80.9667,7.8646 -81.0372,7.831 -81.0613,7.842 -81.0861,7.8399 -81.0896,7.8116 -81.0804,7.7921 -81.1006,7.683 -81.1005,7.63 -81.1261,7.5999 -81.1794,7.6211 -81.2206,7.6408 -81.2679,7.6573 -81.3385,7.6747 -81.4052,7.69 -81.4805,7.7486 -81.4971,7.7876 -81.5083,7.8618 -81.5167,7.9314 -81.5249,7.9641 -81.5301,7.9686 -81.54,7.961 -81.5594,7.9713 -81.5905,8.0096 -81.615,8.0562 -81.5849,8.0562 -81.6094,8.1114 -81.647,8.1535 -81.8605,8.1797 -82.0031,8.2056 -82.05,8.172 -82.101,8.186 -82.1238,8.2098 -82.126,8.2634 -82.1549,8.2834 -82.195,8.3041 -82.2529,8.2957 -82.2862,8.2812 -82.3122,8.276 -82.377,8.2657 -82.4108,8.2623 -82.4346,8.2715 -82.4637,8.281 -82.5193,8.2979 -82.574,8.3099 -82.6289,8.3082 -82.6866,8.2935 -82.7146,8.2837 -82.7501,8.2646 -82.7784,8.2157 -82.7821,8.1766 -82.7694,8.0899 -82.7569,8.0526 -82.7756,8.0122 -82.8059,8.0167 -82.7995,8.0272 -82.7938,8.0665 -82.793,8.0928 -82.8403,8.2482 -82.8572,8.2612 -82.8792,8.2671 -82.912,8.2819 -82.9371,8.3012 -82.9247,8.3311 -82.8598,8.3903 -82.8294,8.407 -82.7837,8.4181 -82.7371,8.4654 -82.7331,8.5604 -82.7443,8.6269 -82.7872,8.68 -82.8044,8.7003 -82.8231,8.7301 -82.8219,8.7531 -82.7873,8.816 -82.7662,8.8329 -82.721,8.8527 -82.6643,8.8714 -82.6277,8.901 -82.6197,8.9151 -82.6517,8.9709 -82.7901,9.0572 -82.8383,9.053 -82.8393,9.1891 -82.8433,9.4612 -82.7729,9.575 -82.7465,9.5992 -82.7229,9.5959 -82.6575,9.5723 -82.6277,9.5359 -82.5914,9.4982 -82.5452,9.4775 -82.5189,9.48 -82.4702,9.5251 -82.4726,9.5523 -82.4726,9.5523 12,7.0,Thailand 99.9672,9.5348 99.9588,9.4605 99.91,9.4121 99.8631,9.403 99.8308,9.412 99.8223,9.5365 99.8763,9.5656 99.9675,9.5775 99.9817,9.5554 99.9764,9.5443 99.9672,9.5348 99.9672,9.5348 25,8.0,Philippines 123.4496,9.079 123.4315,9.0804 123.4202,9.0864 123.3428,9.1519 123.3247,9.1685 123.3209,9.1804 123.3254,9.2007 123.339,9.21 123.3674,9.1999 123.4125,9.214 123.4228,9.2191 123.4461,9.239 123.4524,9.2507 123.4555,9.2657 123.4624,9.2861 123.492,9.2866 123.5121,9.2648 123.5385,9.2161 123.5701,9.1396 123.5708,9.1281 123.5635,9.1158 123.5408,9.1016 123.4726,9.0821 123.4496,9.079 123.4496,9.079 21,5.5,India 92.6841,9.2283 92.6891,9.2221 92.7031,9.1999 92.7083,9.1658 92.7097,9.153 92.7055,9.1398 92.6944,9.1231 92.6844,9.116 92.6681,9.1146 92.629,9.1173 92.618,9.1239 92.6124,9.1322 92.6089,9.1427 92.6062,9.1535 92.6054,9.1666 92.6064,9.1868 92.6105,9.1999 92.6569,9.2524 92.6809,9.2329 92.6841,9.2283 92.6841,9.2283 21,8.0,Philippines 124.6336,9.0648 124.5694,9.0948 124.5427,9.1094 124.5243,9.1208 124.5148,9.1315 124.5058,9.1453 124.4976,9.1597 124.4952,9.1972 124.4987,9.2073 124.5122,9.226 124.535,9.2429 124.5749,9.2472 124.5993,9.2365 124.6389,9.1994 124.6479,9.182 124.6673,9.1339 124.672,9.1075 124.6717,9.0954 124.6418,9.0661 124.6336,9.0648 124.6336,9.0648 14,5.5,Sri Lanka 79.6677,9.0923 79.7382,9.0738 79.7484,9.0703 79.7568,9.0645 79.8122,9.0227 79.8234,9.01 79.8063,8.9767 79.762,8.991 79.6116,9.0705 79.6078,9.0835 79.6371,9.0914 79.656,9.0933 79.6677,9.0923 79.6677,9.0923 16,-4.0,Venezuela -60.7907,9.0551 -60.8541,9.0249 -60.8757,9.0122 -60.8901,8.9992 -60.9312,8.9571 -60.9616,8.9177 -60.9664,8.9087 -60.9935,8.8869 -61.0027,8.8827 -61.0285,8.8809 -61.0026,8.9613 -60.8796,9.0446 -60.7827,9.0831 -60.7867,9.0625 -60.7907,9.0551 -60.7907,9.0551 17,-4.0,Venezuela -60.8423,8.8844 -60.8551,8.8765 -60.8789,8.8661 -60.9519,8.8372 -60.9785,8.8339 -60.8738,9.0016 -60.8562,9.0112 -60.841,9.0169 -60.83,9.019 -60.8126,9.0166 -60.7801,8.9981 -60.7728,8.9885 -60.7808,8.9541 -60.7886,8.9374 -60.8244,8.9005 -60.8423,8.8844 -60.8423,8.8844 22,-4.0,Venezuela -61.0953,8.6788 -61.1,8.6809 -61.1039,8.6907 -61.0967,8.7057 -61.0863,8.7161 -61.025,8.7724 -60.9914,8.8005 -60.9743,8.8115 -60.9452,8.823 -60.7928,8.8437 -60.7942,8.8305 -60.8764,8.7394 -60.8907,8.7263 -60.908,8.7162 -60.9192,8.7138 -60.9331,8.7144 -61.0012,8.7048 -61.0397,8.6961 -61.0669,8.69 -61.0766,8.6862 -61.0953,8.6788 -61.0953,8.6788 12,-4.0,Venezuela -60.8554,8.6089 -60.8622,8.6091 -60.891,8.6144 -60.9204,8.6259 -60.7736,8.7171 -60.7414,8.7073 -60.7365,8.6958 -60.7387,8.668 -60.7423,8.6577 -60.7555,8.6429 -60.8554,8.6089 -60.8554,8.6089 15,-4.0,Venezuela -60.98,8.6303 -60.9937,8.6308 -61.0668,8.6425 -61.0785,8.645 -61.1016,8.6539 -61.1091,8.667 -61.0297,8.6911 -60.9579,8.7053 -60.8697,8.7114 -60.8917,8.6716 -60.9286,8.6431 -60.9511,8.6353 -60.9738,8.6308 -60.98,8.6303 -60.98,8.6303 20,-4.0,Venezuela -61.0608,8.4921 -61.1142,8.5018 -61.195,8.5009 -61.1898,8.527 -61.1846,8.5357 -61.1719,8.5516 -61.1591,8.5591 -61.149,8.5632 -61.1092,8.5566 -61.0806,8.5315 -61.0686,8.5533 -61.0155,8.6002 -60.9524,8.6018 -60.9299,8.5874 -60.9227,8.5756 -60.9303,8.5484 -60.9353,8.5396 -60.9723,8.5046 -61.0608,8.4921 -61.0608,8.4921 26,-4.0,Venezuela -61.1784,8.4654 -61.2256,8.4838 -61.2773,8.4814 -61.3234,8.4769 -61.3365,8.4763 -61.3476,8.4797 -61.4025,8.5021 -61.4747,8.5394 -61.3917,8.5669 -61.3692,8.5717 -61.3579,8.5737 -61.3454,8.5745 -61.3253,8.5728 -61.2424,8.5653 -61.2289,8.564 -61.2109,8.5601 -61.2007,8.5563 -61.1928,8.5435 -61.2014,8.5284 -61.2098,8.5072 -61.1951,8.4904 -61.1168,8.4873 -61.1256,8.4762 -61.1661,8.4663 -61.1784,8.4654 -61.1784,8.4654 375,-3.0,Guyana -59.9232,8.526 -59.891,8.5047 -59.8623,8.4749 -59.8356,8.4366 -59.8222,8.4122 -59.8056,8.3881 -59.7889,8.3701 -59.7647,8.3525 -59.7194,8.3318 -59.6978,8.3398 -59.7124,8.3715 -59.6974,8.398 -59.6013,8.3506 -59.5839,8.3402 -59.2891,8.165 -59.0884,8.0473 -59.063,8.0311 -59.0429,8.0097 -59.0271,7.978 -59.0092,7.9603 -58.8774,7.8423 -58.7407,7.7218 -58.7027,7.6714 -58.6849,7.6278 -58.6512,7.5861 -58.5758,7.5611 -58.4191,7.3604 -58.4022,7.3295 -58.3993,7.1278 -58.4004,7.107 -58.4152,7.0022 -58.4312,6.9817 -58.4445,6.9727 -58.4707,6.953 -58.4893,6.93 -58.4965,6.9086 -58.5276,6.7942 -58.5321,6.7669 -58.5427,6.6494 -58.5524,6.4824 -58.5703,6.4149 -58.5339,6.4069 -58.5265,6.4129 -58.5148,6.4577 -58.5073,6.5025 -58.506,6.5251 -58.5095,6.5551 -58.5066,6.5952 -58.4832,6.6709 -58.4131,6.7868 -58.3905,6.8204 -58.3532,6.8628 -58.3319,6.8718 -58.2502,6.8866 -58.1896,6.8686 -58.1424,6.8356 -58.1066,6.8045 -58.0888,6.8205 -57.973,6.808 -57.9204,6.7831 -57.9006,6.7679 -57.8773,6.7429 -57.8619,6.7242 -57.8486,6.7036 -57.8321,6.6824 -57.8168,6.6667 -57.6921,6.5628 -57.5751,6.478 -57.5288,6.4274 -57.4557,6.2835 -57.4538,6.2637 -57.4329,6.3317 -57.4042,6.3332 -57.2981,6.2831 -57.2712,6.2677 -57.1958,6.2047 -57.1552,6.1625 -57.1291,6.1326 -57.1124,6.1015 -57.0973,6.0501 -57.0705,5.9475 -57.1101,5.6312 -57.1172,5.5944 -57.1303,5.5626 -57.1829,5.4799 -57.2061,5.3791 -57.2337,5.3537 -57.2587,5.2979 -57.2172,5.2205 -57.1968,5.2161 -57.1695,5.254 -57.1419,5.2178 -57.1256,5.1663 -57.166,5.1407 -57.1849,5.167 -57.2064,5.1713 -57.2268,5.1605 -57.2563,5.0702 -57.2617,5.0206 -57.3514,4.9841 -57.4079,4.9838 -57.5449,4.9867 -57.5681,4.9947 -57.6101,5.0061 -57.7748,4.9223 -57.835,4.8503 -57.857,4.8168 -57.8586,4.7913 -57.8427,4.7727 -57.8217,4.7629 -57.7743,4.6638 -57.7809,4.6236 -57.8366,4.4988 -57.8826,4.3445 -57.8832,4.3123 -57.8884,4.2837 -57.9366,4.2352 -57.9731,4.2066 -57.9955,4.1757 -58.0054,4.1513 -57.9778,3.9972 -57.9505,3.9592 -57.9031,3.9248 -57.8846,3.9089 -57.866,3.8865 -57.8108,3.8049 -57.8018,3.7866 -57.7937,3.7675 -57.7836,3.7349 -57.7802,3.6885 -57.7728,3.6652 -57.7511,3.6462 -57.6948,3.6204 -57.6751,3.6097 -57.6033,3.5343 -57.589,3.5149 -57.573,3.4531 -57.5924,3.4103 -57.5769,3.3529 -57.5452,3.3565 -57.4652,3.3428 -57.3644,3.3437 -57.2392,3.3769 -57.2186,3.315 -57.2276,3.2639 -57.2253,3.1778 -57.2186,3.1375 -57.1901,3.1001 -57.1556,3.0615 -57.1455,3.0326 -57.1423,3.001 -57.1485,2.8756 -57.1363,2.8198 -57.0524,2.754 -56.8805,2.4803 -56.8537,2.4254 -56.7896,2.2809 -56.7464,2.191 -56.7112,2.1387 -56.6182,2.0246 -56.5821,2.0257 -56.5159,2.025 -56.4921,2.0184 -56.4139,1.9598 -56.407,1.9424 -56.462,1.9204 -56.5141,1.9196 -56.5311,1.93 -56.5646,1.9374 -56.6709,1.9119 -56.688,1.895 -56.7066,1.8735 -56.8097,1.8898 -56.9395,1.9209 -56.9865,1.95 -56.9966,1.9821 -57.0101,2.0135 -57.0357,2.0207 -57.0986,1.9945 -57.1346,1.9692 -57.1708,1.9476 -57.2122,1.9772 -57.2337,1.9799 -57.2672,1.9701 -57.3608,1.8992 -57.3632,1.8694 -57.3863,1.8092 -57.4478,1.729 -57.4633,1.7139 -57.4945,1.6981 -57.5685,1.6911 -57.5886,1.695 -57.6226,1.7058 -57.6575,1.7155 -57.6946,1.716 -57.8108,1.6633 -57.9071,1.6118 -57.9175,1.5706 -57.9418,1.5139 -58.0623,1.5161 -58.2027,1.5688 -58.2316,1.5811 -58.3217,1.4763 -58.4364,1.453 -58.4035,1.3571 -58.4018,1.3362 -58.4094,1.3128 -58.4539,1.2684 -58.5067,1.2738 -58.6271,1.2833 -58.643,1.2614 -58.6569,1.231 -58.6857,1.2083 -58.7447,1.1857 -58.7704,1.1889 -58.8036,1.2038 -58.8323,1.2298 -58.8311,1.2606 -58.8588,1.298 -58.8913,1.3132 -58.9065,1.3183 -59.0382,1.3433 -59.1773,1.385 -59.3476,1.5615 -59.4165,1.6487 -59.4404,1.6856 -59.5385,1.7177 -59.5788,1.7332 -59.6083,1.7652 -59.5863,1.8003 -59.5653,1.8403 -59.659,1.8522 -59.6816,1.8596 -59.6889,1.907 -59.6762,2.0705 -59.6596,2.2388 -59.6683,2.2821 -59.7256,2.2953 -59.7824,2.3279 -59.8257,2.3614 -59.834,2.3819 -59.8212,2.4046 -59.8251,2.4516 -59.8581,2.5648 -59.8866,2.6135 -59.9208,2.6852 -59.915,2.8571 -59.9109,2.8959 -59.8951,3.0227 -59.8818,3.0687 -59.8368,3.2005 -59.8021,3.2727 -59.7882,3.2943 -59.7677,3.3185 -59.743,3.3559 -59.7467,3.495 -59.7639,3.5205 -59.7182,3.6165 -59.5976,3.7074 -59.5008,3.895 -59.514,3.9946 -59.6407,4.1662 -59.6542,4.1868 -59.6629,4.2147 -59.6629,4.2888 -59.6071,4.3684 -59.6064,4.3804 -59.6489,4.4094 -59.7228,4.4514 -59.8734,4.5031 -59.8993,4.4968 -59.9769,4.4891 -60.062,4.5049 -60.0797,4.5151 -60.0834,4.5685 -60.0552,4.5915 -60.0227,4.5955 -60.0033,4.6132 -59.9572,4.7019 -59.9518,4.7292 -59.9373,4.8316 -59.9145,5.017 -59.9453,5.1042 -60.0122,5.1558 -60.0132,5.1672 -60.0296,5.2113 -60.0457,5.2398 -60.1333,5.2667 -60.1809,5.2526 -60.1994,5.2296 -60.2488,5.1918 -60.4771,5.1858 -60.5043,5.1915 -60.5282,5.2064 -60.6198,5.2102 -60.661,5.1991 -60.6795,5.2168 -60.7117,5.2524 -60.7907,5.3421 -61.0464,5.6284 -61.3195,5.9335 -61.3034,5.9542 -61.2677,5.966 -61.2531,5.986 -61.2127,6.0497 -61.2005,6.0797 -61.193,6.1012 -61.0903,6.1757 -61.0689,6.2922 -61.0702,6.4015 -61.1269,6.5266 -61.135,6.5706 -61.1047,6.6512 -61.0556,6.7074 -60.9854,6.7213 -60.9664,6.7124 -60.8703,6.7173 -60.8246,6.7577 -60.7471,6.781 -60.6502,6.7514 -60.6288,6.7593 -60.6073,6.7823 -60.5962,6.7999 -60.5688,6.8275 -60.5221,6.8434 -60.4582,6.867 -60.43,6.8801 -60.395,6.8991 -60.3398,6.9398 -60.2229,7.0488 -60.2132,7.082 -60.2097,7.111 -60.2405,7.1354 -60.2683,7.1474 -60.2922,7.1684 -60.3876,7.188 -60.4373,7.1647 -60.4463,7.1352 -60.4693,7.1164 -60.5488,7.1863 -60.5621,7.2139 -60.5657,7.2462 -60.55,7.276 -60.5267,7.2981 -60.5227,7.3281 -60.5416,7.3739 -60.5923,7.4388 -60.6198,7.4454 -60.6455,7.4926 -60.648,7.5315 -60.6227,7.5586 -60.5936,7.5581 -60.5205,7.6309 -60.5064,7.7065 -60.4653,7.7951 -60.4451,7.8095 -60.2519,7.8689 -60.1898,7.9129 -60.1693,7.9376 -60.0573,8.0193 -60.0262,8.0322 -59.9704,8.0282 -59.9439,8.0504 -59.9195,8.1378 -59.9124,8.1659 -59.8789,8.191 -59.8548,8.2019 -59.8216,8.2096 -59.7658,8.2224 -59.736,8.2743 -59.7452,8.2969 -59.8192,8.3917 -59.9139,8.5088 -59.9232,8.526 -59.9232,8.526 231,0.0,Liberia -8.4599,7.5528 -8.4265,7.523 -8.4063,7.4882 -8.4,7.4452 -8.4002,7.4121 -8.3935,7.3689 -8.3821,7.3073 -8.3409,7.2214 -8.3137,7.1951 -8.277,7.1706 -8.2811,7.015 -8.2991,6.8503 -8.3179,6.8031 -8.3299,6.7768 -8.3545,6.7318 -8.3691,6.7083 -8.4083,6.6597 -8.4255,6.6452 -8.437,6.6488 -8.4481,6.6292 -8.4729,6.6128 -8.4946,6.5982 -8.5187,6.5887 -8.5303,6.5545 -8.557,6.5449 -8.5683,6.5219 -8.5928,6.5156 -8.5963,6.5007 -8.5343,6.4851 -8.4653,6.4288 -8.3648,6.3537 -8.1601,6.2681 -8.1342,6.2688 -8.1129,6.2709 -8.058,6.2868 -7.9901,6.2934 -7.8887,6.255 -7.8665,6.2384 -7.8165,6.1994 -7.7802,6.0639 -7.7707,6.0078 -7.7746,5.9713 -7.7488,5.94 -7.6787,5.9042 -7.6461,5.9314 -7.5546,5.8767 -7.4894,5.8368 -7.439,5.8538 -7.4169,5.8391 -7.4193,5.8051 -7.4242,5.783 -7.4276,5.7373 -7.4228,5.7087 -7.397,5.64 -7.391,5.6253 -7.364,5.5634 -7.3829,5.5349 -7.4076,5.4797 -7.4276,5.4279 -7.4174,5.3899 -7.3754,5.3624 -7.3598,5.3197 -7.4949,5.09 -7.5517,5.0457 -7.5796,4.9004 -7.5819,4.8167 -7.5787,4.8057 -7.5526,4.7761 -7.5488,4.7389 -7.5424,4.601 -7.5457,4.5324 -7.5513,4.4494 -7.5472,4.3732 -7.5166,4.3482 -7.5289,4.3447 -7.5949,4.3388 -7.7045,4.3523 -7.7677,4.383 -7.8075,4.4189 -7.836,4.4478 -7.8779,4.4706 -7.9369,4.496 -8.0763,4.536 -8.1742,4.5568 -8.2324,4.5658 -8.3279,4.6381 -8.528,4.7447 -8.6238,4.7912 -8.6642,4.8072 -8.6993,4.8114 -8.7147,4.8262 -8.8421,4.9089 -8.8648,4.9205 -9.0199,4.9909 -9.0478,4.9993 -9.1322,5.0501 -9.2282,5.1172 -9.342,5.205 -9.3969,5.2506 -9.4094,5.2651 -9.4225,5.2796 -9.4483,5.3082 -9.4706,5.3341 -9.5345,5.4139 -9.5822,5.4721 -9.7221,5.5677 -9.7681,5.6005 -10.0349,5.8539 -10.0836,5.9204 -10.229,6.048 -10.2546,6.0635 -10.3029,6.0764 -10.3308,6.0859 -10.354,6.1071 -10.3548,6.1456 -10.3601,6.1556 -10.4393,6.1957 -10.4401,6.1642 -10.5885,6.2033 -10.6259,6.2113 -10.6439,6.2157 -10.6794,6.2275 -10.7517,6.2641 -10.7975,6.3025 -10.7802,6.3694 -10.7937,6.3958 -10.7996,6.4092 -10.8162,6.4342 -10.8366,6.4547 -10.8587,6.4737 -10.8837,6.4899 -10.9575,6.5307 -11.063,6.5799 -11.3383,6.6872 -11.3699,6.7313 -11.3581,6.7621 -11.3515,6.7886 -11.3682,6.8247 -11.4501,6.9005 -11.4791,6.9193 -11.4525,6.9161 -11.4126,6.9312 -11.3671,7.0112 -11.3382,7.0709 -11.3285,7.1086 -11.3256,7.143 -11.2933,7.2067 -11.2546,7.2269 -11.226,7.236 -11.1808,7.2485 -11.1288,7.3193 -11.1252,7.3355 -11.119,7.3431 -11.0901,7.3764 -10.9077,7.4999 -10.856,7.5191 -10.8386,7.5335 -10.8332,7.5392 -10.8175,7.558 -10.7352,7.6614 -10.7123,7.6933 -10.6937,7.7158 -10.6747,7.7344 -10.6399,7.752 -10.5956,7.7637 -10.59,7.8501 -10.5907,8.024 -10.5123,8.1088 -10.4902,8.125 -10.4622,8.1351 -10.4264,8.1323 -10.3464,8.1366 -10.3218,8.1507 -10.2859,8.1898 -10.2525,8.4456 -10.2551,8.4789 -10.203,8.4697 -10.1581,8.5033 -9.9544,8.4658 -9.8848,8.4934 -9.8652,8.4902 -9.8345,8.4853 -9.7816,8.4988 -9.6588,8.4813 -9.6281,8.4619 -9.473,8.3378 -9.4519,8.1566 -9.3966,8.0101 -9.4066,7.9657 -9.4207,7.9465 -9.4265,7.8924 -9.3994,7.829 -9.3491,7.7416 -9.3432,7.7336 -9.3479,7.7289 -9.3654,7.6746 -9.3671,7.6335 -9.3561,7.6028 -9.3735,7.5517 -9.41,7.4685 -9.4469,7.433 -9.4763,7.3618 -9.4744,7.3537 -9.45,7.3795 -9.4115,7.4168 -9.3139,7.4185 -9.2306,7.374 -9.196,7.3412 -9.0878,7.223 -9.0994,7.1861 -9.0887,7.1953 -9.0267,7.2206 -8.9623,7.2437 -8.9011,7.2456 -8.8341,7.2637 -8.8242,7.3012 -8.7786,7.4024 -8.6985,7.5073 -8.7022,7.5493 -8.7092,7.5523 -8.713,7.557 -8.6974,7.6382 -8.6652,7.6727 -8.6508,7.6866 -8.5635,7.6841 -8.5417,7.6833 -8.5458,7.642 -8.5408,7.6075 -8.4771,7.5632 -8.4599,7.5528 -8.4599,7.5528 14,-5.0,Panama -78.7836,8.4474 -78.7648,8.4282 -78.7433,8.3917 -78.7413,8.3792 -78.7418,8.3267 -78.7465,8.3105 -78.7596,8.2812 -78.8336,8.2612 -78.8715,8.2848 -78.8746,8.4281 -78.8663,8.4407 -78.7953,8.4546 -78.7836,8.4474 -78.7836,8.4474 14,8.0,Philippines 117.1638,8.1725 117.1585,8.1735 117.139,8.1934 117.1342,8.206 117.1355,8.2816 117.137,8.2971 117.1452,8.3123 117.1877,8.3214 117.2161,8.2954 117.2234,8.2771 117.2128,8.1976 117.1991,8.1839 117.1638,8.1725 117.1638,8.1725 9,5.5,India 73.0004,8.294 72.9916,8.2656 72.984,8.2541 72.9673,8.244 72.9493,8.2383 72.939,8.2534 72.9972,8.3009 73.0004,8.294 73.0004,8.294 18,5.5,India 93.4293,8.1996 93.4176,8.1681 93.4154,8.1005 93.4198,8.0911 93.4277,8.0646 93.432,8.048 93.4299,8.0288 93.3785,7.9818 93.3704,7.9988 93.3422,8.1273 93.3425,8.1535 93.373,8.1986 93.3787,8.2072 93.3914,8.2138 93.4118,8.2168 93.4241,8.2117 93.4293,8.1996 93.4293,8.1996 22,7.0,Thailand 98.2228,8.1533 98.2263,8.1236 98.2331,8.0998 98.2799,8.0748 98.2916,8.0723 98.3085,8.0063 98.3085,7.9887 98.2896,7.9702 98.2897,7.9329 98.3037,7.8959 98.3227,7.9031 98.3308,7.8974 98.3261,7.8631 98.1985,7.7487 98.1773,7.769 98.1735,7.7793 98.1619,7.9136 98.1722,8.1741 98.1937,8.1761 98.2096,8.1661 98.2228,8.1533 98.2228,8.1533 13,7.0,Thailand 98.4265,8.0985 98.4831,8.0698 98.5002,8.0423 98.501,7.9599 98.501,7.9459 98.4963,7.8995 98.4878,7.8904 98.4645,7.9049 98.422,8.0712 98.4195,8.0818 98.4178,8.111 98.4265,8.0985 98.4265,8.0985 17,8.0,Philippines 116.8839,7.7966 116.8664,7.8066 116.8428,7.8628 116.8298,7.9015 116.8231,7.9347 116.819,8.0235 116.8233,8.0353 116.8304,8.0464 116.9355,8.0691 116.9454,8.0515 116.9621,7.8985 116.945,7.8591 116.9339,7.8378 116.9276,7.829 116.8907,7.8002 116.8839,7.7966 116.8839,7.7966 17,5.5,India 93.2867,8.003 93.3393,7.9348 93.3453,7.9204 93.3536,7.8941 93.3553,7.8788 93.3487,7.8602 93.252,7.8681 93.2412,7.8747 93.2043,7.9165 93.2012,7.9305 93.202,7.9439 93.2115,7.9865 93.252,8.0049 93.2702,8.0104 93.2809,8.0078 93.2867,8.003 93.2867,8.003 25,-5.0,Panama -81.6468,7.6307 -81.6314,7.6086 -81.618,7.5472 -81.612,7.4819 -81.6184,7.4709 -81.6233,7.4386 -81.6213,7.4285 -81.5861,7.3804 -81.5572,7.3759 -81.5364,7.3817 -81.5159,7.3695 -81.5057,7.3556 -81.4978,7.3218 -81.537,7.3101 -81.5584,7.314 -81.6552,7.3395 -81.6697,7.3508 -81.7536,7.4249 -81.7609,7.4384 -81.7817,7.4828 -81.7846,7.4959 -81.7814,7.5068 -81.6666,7.6258 -81.6468,7.6307 -81.6468,7.6307 25,0.0,Sierra Leone -12.8701,7.6057 -12.6736,7.6271 -12.6604,7.6283 -12.6287,7.6303 -12.6162,7.6294 -12.5767,7.626 -12.5082,7.5878 -12.4818,7.5625 -12.4821,7.4925 -12.5108,7.4233 -12.5451,7.4127 -12.5618,7.4407 -12.5741,7.4527 -12.5824,7.4583 -12.6049,7.4696 -12.6253,7.4765 -12.666,7.4896 -12.6767,7.4928 -12.7033,7.5002 -12.7305,7.507 -12.7888,7.521 -12.9369,7.5581 -12.882,7.5995 -12.8701,7.6057 -12.8701,7.6057 15,5.5,India 93.5899,7.4019 93.6294,7.3548 93.6215,7.3159 93.531,7.2384 93.5148,7.2419 93.5082,7.2525 93.491,7.2986 93.5025,7.3373 93.5122,7.3589 93.5418,7.3657 93.5735,7.3815 93.5881,7.4285 93.5913,7.4145 93.5899,7.4019 93.5899,7.4019 13,8.0,Malaysia 116.725,7.1758 116.7204,7.1802 116.7469,7.2661 116.7549,7.2723 116.8691,7.3448 116.8775,7.3342 116.8855,7.3004 116.8859,7.2587 116.8261,7.2335 116.7762,7.2255 116.743,7.2138 116.725,7.1758 116.725,7.1758 25,8.0,Malaysia 116.9611,7.2852 117.0129,7.3261 117.09,7.3445 117.1359,7.3356 117.1461,7.3257 117.1506,7.3114 117.146,7.2421 117.1442,7.2307 117.1407,7.2202 117.118,7.1713 117.0604,7.1654 117.04,7.1655 117.0278,7.1642 117.0172,7.1606 116.9885,7.1475 116.9659,7.1295 116.9573,7.1112 116.9472,7.0973 116.9341,7.0973 116.9197,7.1629 116.9303,7.2636 116.9388,7.2761 116.956,7.286 116.9611,7.2852 116.9611,7.2852 26,5.5,India 93.7621,7.1744 93.7741,7.1312 93.8068,7.021 93.8169,6.9898 93.8235,6.9413 93.7932,6.7995 93.7208,6.7382 93.7045,6.7456 93.6787,6.8259 93.6646,6.8859 93.6588,6.9131 93.6114,6.9814 93.5728,7.0154 93.5534,7.0157 93.5419,7.0248 93.5396,7.0702 93.5391,7.0832 93.5378,7.1108 93.5668,7.1759 93.6892,7.2255 93.7032,7.2284 93.72,7.2276 93.7495,7.2014 93.7566,7.1915 93.7621,7.1744 93.7621,7.1744 12,8.0,Philippines 125.6253,6.88 125.6154,6.8911 125.5279,7.0673 125.5215,7.0907 125.5567,7.1822 125.5729,7.1836 125.6333,7.1408 125.647,7.1264 125.6547,7.1117 125.6527,6.9253 125.6253,6.88 125.6253,6.88 786,8.0,Malaysia 114.8871,4.8904 114.8917,4.8712 114.8979,4.8149 114.8899,4.7483 114.8894,4.7191 114.8958,4.6517 114.8985,4.6408 114.9595,4.4083 114.9654,4.3867 114.9715,4.3757 114.9828,4.3692 115.1897,4.3109 115.2089,4.3071 115.2209,4.3127 115.2294,4.3277 115.2254,4.3447 115.2198,4.3553 115.2136,4.3634 115.187,4.3916 115.1716,4.4055 115.1554,4.422 115.147,4.4342 115.1422,4.4464 115.1334,4.5361 115.1373,4.5596 115.1414,4.5688 115.1473,4.5778 115.1511,4.5937 115.1513,4.6064 115.1302,4.6779 115.0917,4.7997 115.0608,4.8439 115.0144,4.898 115.0763,4.9496 115.0889,4.9528 115.155,4.9206 115.1793,4.897 115.1964,4.8883 115.2254,4.8939 115.2352,4.8979 115.2472,4.9064 115.2609,4.9199 115.3204,4.9833 115.3301,4.9943 115.3479,5.0174 115.3972,5.0362 115.4142,5.0473 115.4259,5.063 115.4302,5.0726 115.4327,5.0834 115.4366,5.1204 115.4425,5.1734 115.4274,5.1968 115.4101,5.1932 115.398,5.1944 115.3788,5.2028 115.3532,5.2152 115.2281,5.3036 115.2283,5.318 115.2396,5.3766 115.2489,5.395 115.3967,5.5114 115.4739,5.5142 115.6178,5.5135 115.6306,5.5141 115.6601,5.5191 115.671,5.5216 115.6857,5.5277 115.6977,5.5361 115.7169,5.5577 115.7253,5.5704 115.7545,5.6225 115.7631,5.6388 115.7726,5.6738 115.7773,5.7099 115.783,5.7318 115.7868,5.741 115.7965,5.7518 115.812,5.7635 115.8595,5.7914 115.8821,5.8031 115.9065,5.8197 115.919,5.8343 115.9237,5.8483 115.9211,5.8938 115.9581,5.9713 115.9782,6.121 116.1964,6.3565 116.226,6.3817 116.2823,6.4217 116.3589,6.4755 116.3685,6.4863 116.3754,6.5033 116.3705,6.5252 116.375,6.5369 116.4288,6.5989 116.4948,6.6701 116.507,6.6849 116.5116,6.6939 116.5156,6.707 116.5159,6.7237 116.5144,6.7357 116.5103,6.7529 116.5111,6.7659 116.5249,6.8392 116.5291,6.8487 116.5839,6.9602 116.6133,6.9991 116.6223,7.0102 116.6343,7.0155 116.7001,6.9573 116.7076,6.941 116.7188,6.8903 116.7273,6.796 116.7263,6.773 116.7231,6.759 116.7191,6.7496 116.7144,6.7407 116.7031,6.7247 116.6883,6.7119 116.6773,6.6955 116.6567,6.6547 116.6484,6.6361 116.6437,6.6135 116.6446,6.594 116.6515,6.577 116.6675,6.5696 116.6918,6.5728 116.7128,6.5789 116.7217,6.5834 116.7302,6.589 116.849,6.7343 116.9157,6.8182 116.9219,6.8356 116.9156,6.8634 116.9063,6.878 116.9021,6.8872 116.8973,6.9031 116.8988,6.927 116.9364,6.9717 116.9452,6.9798 116.957,6.9852 117.0128,6.9936 117.0363,6.9869 117.0459,6.9827 117.1166,6.9375 117.1204,6.9207 117.1197,6.8809 117.119,6.8676 117.1125,6.8539 117.1203,6.7602 117.1442,6.6592 117.1551,6.6324 117.1688,6.619 117.3206,6.5367 117.3335,6.5324 117.343,6.5354 117.4254,6.5305 117.5152,6.5075 117.543,6.4844 117.5907,6.4162 117.6058,6.3797 117.6003,6.3104 117.5943,6.2618 117.5889,6.2501 117.5761,6.2426 117.555,6.2447 117.538,6.2482 117.5085,6.2367 117.479,6.2135 117.4669,6.1857 117.4681,6.1713 117.501,6.1223 117.5203,6.1005 117.529,6.0821 117.5416,5.991 117.5408,5.9758 117.5339,5.9652 117.5093,5.9421 117.4963,5.9339 117.4566,5.9188 117.4314,5.9097 117.3695,5.8897 117.4168,5.8908 117.6483,5.9085 117.7438,5.9412 117.753,5.9461 117.8117,6.0033 117.842,6.0344 117.8526,6.0494 117.8728,6.0544 117.9026,6.0284 117.9143,6.0126 117.9391,5.9686 117.9903,5.8576 117.9848,5.8464 117.9569,5.8096 117.9459,5.8037 117.9062,5.7969 117.848,5.8029 117.7971,5.8073 117.7868,5.8037 117.7739,5.791 117.7837,5.7485 117.8212,5.6787 117.991,5.6831 118.0218,5.7806 118.0271,5.7914 118.0423,5.7974 118.124,5.8212 118.2277,5.804 118.2388,5.801 118.2949,5.7751 118.3086,5.7684 118.3312,5.7568 118.34,5.7518 118.3606,5.7385 118.4439,5.6828 118.5138,5.6316 118.5279,5.6186 118.5569,5.5854 118.6499,5.521 118.7993,5.4239 118.9208,5.3986 118.9347,5.3986 118.947,5.4 118.9669,5.4073 118.9812,5.4201 118.9956,5.4296 119.0421,5.4394 119.0538,5.4373 119.0629,5.4328 119.0744,5.4236 119.0855,5.4146 119.1029,5.3977 119.1257,5.3692 119.1316,5.3584 119.1398,5.3391 119.1365,5.218 119.1277,5.1992 119.1196,5.187 119.1084,5.1705 119.0878,5.1428 119.0786,5.1319 119.0575,5.1183 119.0351,5.1067 118.992,5.0883 118.9337,5.0644 118.8982,5.0521 118.8591,5.0432 118.8415,5.0406 118.8037,5.0301 118.7776,5.0222 118.6826,4.9872 118.6435,4.9718 118.6132,4.9596 118.5751,4.9425 118.5663,4.9377 118.4144,4.9531 118.3115,4.9934 118.2897,5.0162 118.278,5.025 118.2595,5.0302 118.2194,5.0301 118.2062,5.0261 118.0724,4.9563 118.0058,4.8828 118.0009,4.8739 117.9981,4.8633 117.9978,4.8484 118.096,4.7302 118.1475,4.6758 118.2824,4.5882 118.295,4.6062 118.3057,4.6082 118.3502,4.5877 118.3522,4.5597 118.3323,4.5335 118.3744,4.4955 118.4092,4.5205 118.4599,4.5163 118.5085,4.4438 118.5098,4.4329 118.506,4.4234 118.4949,4.4101 118.415,4.346 118.4032,4.3468 118.3931,4.3501 118.3629,4.3509 118.2698,4.3443 118.0492,4.3029 117.991,4.2858 117.9396,4.2622 117.879,4.2273 117.862,4.2196 117.772,4.2415 117.7546,4.2517 117.7393,4.2724 117.729,4.2827 117.6414,4.3306 117.5592,4.3698 117.4953,4.3487 117.5189,4.2772 117.5182,4.2621 117.5133,4.2532 117.4676,4.1952 117.4585,4.1654 117.3953,4.1706 117.3643,4.1745 117.3422,4.1792 117.3193,4.1842 117.3062,4.1911 117.291,4.2099 117.2868,4.2202 117.2776,4.2377 117.2684,4.2501 117.1184,4.3492 117.1061,4.3536 117.0904,4.3539 117.0778,4.3498 117.0695,4.3414 117.0586,4.3315 117.0437,4.3307 116.9108,4.3322 116.804,4.3462 116.7916,4.3476 116.7776,4.3476 116.7563,4.3444 116.7441,4.3405 116.7073,4.3257 116.5563,4.326 116.5094,4.3299 116.4014,4.3262 116.3952,4.3147 116.3335,4.2892 116.322,4.29 116.3092,4.2947 116.2935,4.3054 116.1824,4.3529 116.0215,4.3502 116.0082,4.3325 115.9424,4.279 115.9294,4.2733 115.916,4.2763 115.8992,4.2962 115.8724,4.3253 115.8549,4.3349 115.8445,4.3382 115.7563,4.3633 115.7407,4.3564 115.726,4.3393 115.7189,4.3169 115.6389,4.2402 115.6299,4.2349 115.5597,4.1755 115.5521,4.1627 115.5287,4.1041 115.5301,4.0934 115.5313,4.0737 115.4856,3.8498 115.4546,3.7374 115.446,3.7046 115.4405,3.6621 115.4407,3.609 115.4435,3.5908 115.4482,3.5818 115.4711,3.5354 115.4955,3.4539 115.4971,3.4306 115.4832,3.4167 115.4663,3.4208 115.4525,3.4243 115.4402,3.414 115.4283,3.3856 115.4227,3.3702 115.4085,3.3301 115.4036,3.3147 115.3997,3.2982 115.3815,3.2066 115.3795,3.1949 115.3829,3.1804 115.3981,3.1725 115.3686,3.047 115.3653,3.0367 115.3572,3.0241 115.2479,2.9884 115.1883,2.9844 115.1804,2.9945 115.1756,3.0033 115.1715,3.0132 115.1199,3.0075 115.0222,2.919 115.0101,2.9031 114.9886,2.848 114.9529,2.6106 114.9624,2.5979 114.9783,2.5944 114.9936,2.6029 115.0042,2.6085 115.04,2.6025 115.0556,2.5942 115.0697,2.5803 115.1067,2.527 115.1014,2.5054 115.0862,2.4899 115.0742,2.4847 115.0579,2.4802 114.9614,2.4197 114.8725,2.3579 114.8201,2.2909 114.8103,2.2832 114.8005,2.2798 114.7753,2.2741 114.7441,2.2768 114.6848,2.2583 114.6757,2.2463 114.6624,2.2144 114.6497,2.1633 114.6474,2.1478 114.6716,2.0624 114.7103,2.0416 114.7199,2.0452 114.7336,2.0444 114.7434,2.0182 114.7437,2.0057 114.733,1.9132 114.7276,1.8985 114.7159,1.8897 114.6545,1.8618 114.5823,1.7685 114.5457,1.6409 114.4604,1.4505 114.4481,1.4392 114.4316,1.4315 114.4154,1.4307 114.4048,1.4339 114.3831,1.4464 114.3642,1.4617 114.3473,1.4758 114.3244,1.4905 114.3153,1.4952 114.2963,1.503 114.2851,1.5061 114.2734,1.5083 114.2613,1.5069 114.1627,1.4686 114.1035,1.4422 113.9567,1.4684 113.906,1.4574 113.8771,1.4521 113.8593,1.4494 113.8407,1.447 113.803,1.4437 113.7943,1.4394 113.7603,1.4043 113.7483,1.3889 113.7376,1.3727 113.7149,1.347 113.6629,1.3035 113.5316,1.2246 113.5151,1.228 113.5027,1.2363 113.4892,1.2501 113.4597,1.2822 113.3291,1.2869 113.2475,1.3426 113.2326,1.3547 113.2138,1.3637 112.9997,1.43 112.9306,1.5381 112.9118,1.5551 112.8729,1.5711 112.8503,1.576 112.7577,1.5862 112.5541,1.5615 112.3735,1.569 112.3465,1.5665 112.1839,1.498 112.0757,1.4485 112.059,1.4236 112.0559,1.4101 112.066,1.4013 112.0841,1.4019 112.089,1.3925 112.0873,1.3746 112.0065,1.1487 111.9852,1.1395 111.9491,1.1343 111.9296,1.1328 111.9163,1.1329 111.8581,1.1367 111.84,1.1338 111.8292,1.1309 111.8204,1.1262 111.7659,1.0745 111.7547,1.0546 111.7485,1.0401 111.735,1.0195 111.7206,1.0066 111.7019,0.9976 111.6847,0.9941 111.6726,0.9927 111.6077,1.0049 111.5992,1.0105 111.5751,1.0237 111.5567,1.0327 111.5445,1.0374 111.5303,1.0358 111.5104,1.0285 111.4404,0.9993 111.2947,1.007 111.2818,1.0078 111.2699,1.0106 111.1864,1.0433 111.1336,1.066 111.0876,1.0687 111.0709,1.0612 110.8997,1.0238 110.8825,1.02 110.8704,1.0191 110.8168,1.0174 110.7827,1.0141 110.7614,1.0044 110.6954,0.9491 110.689,0.9332 110.6886,0.9166 110.6839,0.9074 110.5782,0.8773 110.4747,0.8551 110.4507,0.8519 110.4314,0.8531 110.4209,0.856 110.3985,0.8643 110.3363,0.9017 110.2089,1.0009 110.0753,1.1749 110.0613,1.1845 110.0461,1.1867 110.0324,1.1864 110.0137,1.1884 109.9924,1.1939 109.9779,1.2 109.9607,1.2106 109.9485,1.2187 109.8729,1.2874 109.8621,1.3005 109.8567,1.3158 109.8086,1.4055 109.7016,1.467 109.6168,1.5375 109.5991,1.5541 109.5887,1.5641 109.576,1.5785 109.5458,1.6153 109.5443,1.7044 109.4927,1.7873 109.4805,1.7892 109.471,1.7932 109.4608,1.8004 109.441,1.8317 109.4244,1.905 109.5077,2.0294 109.5254,2.0712 109.5282,2.0553 109.5326,2.0005 109.5269,1.9503 109.5284,1.9343 109.5374,1.9125 109.5485,1.8961 109.5762,1.8588 109.5873,1.8495 109.6104,1.8348 109.6374,1.8207 109.7763,1.7203 109.8047,1.6885 109.8587,1.6807 110.1295,1.7037 110.1748,1.7598 110.1793,1.7688 110.1939,1.792 110.2067,1.7997 110.2186,1.7954 110.3532,1.6416 110.3562,1.6223 110.4033,1.6065 110.4412,1.5964 110.5117,1.5772 110.5787,1.5554 110.5982,1.5479 110.6094,1.5385 110.6165,1.5198 110.611,1.5006 110.6008,1.4866 110.5908,1.4761 110.5722,1.4639 110.5519,1.4491 110.5633,1.4432 110.5767,1.4437 110.6008,1.4471 110.61,1.4512 110.6225,1.4596 110.6382,1.478 110.6452,1.4917 110.6463,1.5039 110.6465,1.5175 110.6441,1.5361 110.6448,1.5526 110.6502,1.5613 110.6657,1.5679 110.6976,1.5663 110.7129,1.5608 110.8182,1.5155 110.852,1.495 110.8661,1.4816 110.8929,1.4534 110.912,1.4316 110.9283,1.4135 110.9386,1.4034 111.0311,1.3625 111.1946,1.3318 111.2084,1.3318 111.2261,1.334 111.2421,1.339 111.2537,1.3446 111.1771,1.4056 111.1625,1.4114 111.1379,1.4144 111.1174,1.4145 111.1002,1.4111 111.0851,1.4053 111.0756,1.4015 111.0637,1.3945 111.0474,1.3933 111.0352,1.398 110.9336,1.4604 110.8996,1.5224 110.8885,1.5318 110.8792,1.5497 110.8756,1.5704 110.8768,1.586 110.8974,1.6477 110.9046,1.6645 110.9171,1.6725 110.9397,1.6806 111.0446,1.9361 111.0487,1.9458 111.0712,2.0192 111.0807,2.0641 111.1148,2.1125 111.13,2.1211 111.1498,2.1181 111.1691,2.1102 111.1997,2.1031 111.2111,2.1056 111.2238,2.1167 111.2451,2.1442 111.2467,2.1559 111.23,2.1609 111.1459,2.1491 111.0671,2.1387 111.0481,2.1435 111.0582,2.2598 111.0777,2.3632 111.0863,2.396 111.0915,2.4109 111.1002,2.4197 111.1198,2.4265 111.1906,2.3848 111.2429,2.3364 111.2691,2.3537 111.3249,2.3662 111.3173,2.3902 111.3015,2.411 111.2779,2.4783 111.2929,2.5753 111.3113,2.6695 111.3139,2.6804 111.3232,2.6919 111.3948,2.7433 111.5183,2.8318 111.5307,2.8397 111.5433,2.8447 111.6151,2.8568 111.6676,2.8658 111.6975,2.8699 111.7161,2.8717 111.7663,2.8765 111.8242,2.8772 111.8389,2.8793 111.9668,2.902 111.9833,2.9062 112.0913,2.9347 112.1378,2.9498 112.3905,3.0115 112.5206,3.041 112.5495,3.0462 112.5601,3.0488 112.7375,3.0976 112.8051,3.1187 112.8255,3.1253 112.8402,3.1315 112.8538,3.1384 112.871,3.1488 112.8831,3.157 112.9016,3.1725 112.9146,3.1871 112.9263,3.2026 112.938,3.2186 112.949,3.2349 112.955,3.2494 113.1471,3.4822 113.1702,3.5135 113.2601,3.6395 113.2681,3.6514 113.2866,3.6881 113.3891,3.8037 113.4215,3.829 113.5408,3.9282 113.6068,3.9926 113.6476,4.0402 113.7967,4.2394 113.805,4.2518 113.8145,4.2696 113.8348,4.3168 113.861,4.4186 113.8652,4.4347 113.865,4.4484 113.8637,4.4675 113.8624,4.4798 113.8596,4.4908 113.8546,4.5063 113.8444,4.5312 113.8363,4.5504 113.8335,4.5647 113.8374,4.5774 113.8452,4.5869 113.8567,4.5923 113.8681,4.5944 113.8813,4.5937 113.9369,4.5904 113.9651,4.5854 113.9714,4.5846 114.0234,4.5748 114.0351,4.5728 114.0502,4.5674 114.0583,4.5621 114.1058,4.5269 114.1163,4.5167 114.1338,4.4925 114.1792,4.4284 114.1992,4.3354 114.2002,4.3221 114.27,4.2519 114.3458,4.1953 114.4785,4.0512 114.4794,4.0266 114.4896,4.0172 114.508,4.0136 114.5199,4.018 114.5399,4.0255 114.5755,4.0454 114.663,4.1225 114.676,4.1399 114.7365,4.3505 114.7283,4.4277 114.7131,4.4306 114.7042,4.4414 114.6985,4.4689 114.6953,4.491 114.6849,4.5758 114.6576,4.6923 114.6492,4.7038 114.6471,4.7158 114.649,4.7305 114.6564,4.7442 114.7217,4.7985 114.7356,4.8046 114.7481,4.8049 114.7735,4.8057 114.7864,4.8062 114.8149,4.8121 114.8311,4.8165 114.8485,4.8262 114.8582,4.8374 114.8871,4.8904 114.8871,4.8904 27,8.0,Malaysia 117.2099,6.6653 117.2655,6.6695 117.2799,6.6727 117.2942,6.6788 117.3049,6.6854 117.3117,6.6988 117.3055,6.7109 117.2901,6.7144 117.2702,6.7157 117.2673,6.7292 117.2775,6.7395 117.3348,6.7538 117.3589,6.7367 117.3819,6.6986 117.3824,6.6819 117.3795,6.6713 117.3677,6.6561 117.3337,6.6352 117.3209,6.6278 117.3109,6.6237 117.3003,6.6211 117.2794,6.6184 117.2175,6.6336 117.2056,6.6421 117.2023,6.6515 117.2099,6.6653 117.2099,6.6653 32,8.0,Philippines 121.8519,6.4011 121.8339,6.4046 121.8155,6.4174 121.7815,6.4426 121.7726,6.4499 121.6562,6.5905 121.6549,6.6231 121.6651,6.6477 121.6853,6.6678 121.6952,6.6714 121.7114,6.6722 121.7237,6.6661 121.7297,6.6551 121.7463,6.6475 121.7941,6.6612 121.8361,6.6966 121.8488,6.7154 121.8611,6.7311 121.8829,6.743 121.9374,6.7451 121.9685,6.7072 122.0057,6.6739 122.0557,6.6605 122.0916,6.6536 122.0996,6.5849 122.0581,6.5001 122.0247,6.451 121.9316,6.4141 121.9122,6.4082 121.8973,6.4045 121.8519,6.4011 121.8519,6.4011 320,8.0,Malaysia 100.0135,6.4177 100.0284,6.4296 100.055,6.4635 100.0793,6.5681 100.0707,6.5904 100.061,6.6149 100.0806,6.6901 100.0903,6.7018 100.1014,6.7036 100.1506,6.6992 100.1865,6.6922 100.2169,6.6131 100.2214,6.5789 100.2605,6.5367 100.2651,6.5336 100.2738,6.5289 100.323,6.5085 100.5424,6.4415 100.5672,6.4463 100.6026,6.4729 100.6372,6.4957 100.7136,6.4208 100.7401,6.3154 100.7334,6.2899 100.7323,6.2779 100.7385,6.237 100.8374,6.2341 100.8949,6.2624 100.9973,6.2437 100.9994,6.1757 100.9843,6.1121 100.9915,6.0435 101.0041,5.9835 100.9805,5.9175 100.9539,5.9081 100.9273,5.8953 100.876,5.7881 100.8796,5.7733 100.9426,5.7228 101.0271,5.6274 101.0498,5.6321 101.0746,5.6447 101.1079,5.6646 101.1441,5.7084 101.1965,5.8007 101.3368,5.8565 101.3907,5.8742 101.4556,5.9087 101.491,5.8989 101.5437,5.844 101.543,5.8154 101.5767,5.758 101.5838,5.7548 101.6305,5.7826 101.6559,5.7712 101.6849,5.7396 101.7103,5.7345 101.8282,5.8605 101.8279,5.8969 101.8248,5.9211 101.8277,5.9501 101.8366,5.9689 101.868,6.0069 101.8952,6.0317 101.9745,6.1472 101.9793,6.2291 102.0069,6.211 102.0506,6.1869 102.0699,6.1989 102.1057,6.2106 102.1969,6.1827 102.2177,6.1687 102.2421,6.145 102.2689,6.1096 102.2957,6.0643 102.3163,6.0135 102.3715,5.896 102.385,5.8756 102.423,5.8468 102.4645,5.8221 102.4884,5.806 102.5068,5.7894 102.5294,5.7572 102.5489,5.7236 102.7249,5.583 102.7596,5.5622 102.8041,5.5412 102.8436,5.5309 102.9203,5.4708 102.9471,5.4422 102.9787,5.4042 103.0044,5.3713 103.0641,5.2771 103.0906,5.2349 103.1103,5.1997 103.1224,5.1714 103.1301,5.152 103.1479,5.1079 103.1613,5.0807 103.238,4.9437 103.2919,4.8528 103.323,4.7599 103.3372,4.622 103.3362,4.4797 103.3472,4.4067 103.3588,4.37 103.3679,4.345 103.376,4.3039 103.369,4.276 103.349,4.2296 103.329,4.162 103.2968,4.1461 103.2786,4.1068 103.277,4.0806 103.284,4.0533 103.2921,4.0278 103.2966,3.9545 103.2593,3.859 103.2196,3.74 103.254,3.6386 103.2679,3.6183 103.3081,3.5687 103.3315,3.544 103.3463,3.5278 103.3597,3.495 103.3407,3.4691 103.3248,3.4362 103.3094,3.3889 103.3089,3.3679 103.3103,3.3259 103.3141,3.3061 103.3228,3.2768 103.3276,3.2547 103.3347,3.2147 103.3377,3.1774 103.3348,3.1453 103.329,3.1233 103.3182,3.0493 103.3161,2.9589 103.3216,2.9226 103.3347,2.8852 103.3528,2.8548 103.366,2.8337 103.3853,2.8052 103.4058,2.7777 103.4381,2.7413 103.4756,2.7032 103.5022,2.6778 103.5204,2.6612 103.5365,2.6579 103.6109,2.637 103.6487,2.6228 103.7036,2.5732 103.7172,2.5145 103.7104,2.4739 103.7195,2.4524 103.7815,2.3832 103.8608,2.2408 103.903,2.1345 103.9414,2.057 103.999,1.9641 104.0715,1.8031 104.1066,1.716 104.1366,1.6318 104.1764,1.4362 104.1607,1.3678 104.0948,1.3393 104.0641,1.3378 104.0359,1.344 103.9884,1.3679 103.931,1.4674 103.9611,1.5018 103.8637,1.6315 103.8418,1.6425 103.8546,1.5887 103.8772,1.5637 103.8946,1.5334 103.8938,1.4604 103.8821,1.4341 103.8544,1.4175 103.7883,1.4307 103.7559,1.4553 103.7296,1.4703 103.7084,1.4746 103.5674,1.444 103.4638,1.3441 103.3962,1.2681 103.3486,1.3087 103.3388,1.3261 103.3245,1.3723 103.3035,1.4436 103.2901,1.488 103.2766,1.5121 103.2587,1.5317 103.2329,1.5471 103.2012,1.564 103.1719,1.5771 103.1377,1.5883 103.1001,1.6029 103.0758,1.6131 102.8966,1.7258 102.7368,1.8295 102.7162,1.8434 102.6958,1.8509 102.6648,1.8504 102.605,1.845 102.5842,1.8553 102.5666,1.8754 102.438,2.046 102.397,2.0736 102.3801,2.0845 102.3724,2.0887 102.3523,2.0984 102.3185,2.1129 102.178,2.1668 102.0748,2.2065 102.0543,2.2177 101.9895,2.2662 101.8986,2.3537 101.8716,2.3873 101.8166,2.4125 101.7351,2.4698 101.6711,2.5704 101.6532,2.5835 101.6274,2.5896 101.6063,2.5887 101.5836,2.5918 101.4351,2.6522 101.3971,2.6733 101.3676,2.6997 101.3435,2.7337 101.3243,2.769 101.2993,2.7992 101.2826,2.8102 101.2546,2.8204 101.1993,2.8247 101.1715,2.8403 101.1673,2.8912 101.1806,2.9167 101.2018,2.9507 101.2212,2.9691 101.252,2.988 101.2568,3.0298 101.2522,3.0602 101.2366,3.0876 101.2053,3.1233 101.1915,3.2028 101.1908,3.2288 101.1858,3.2508 101.1759,3.2714 101.1208,3.335 101.0793,3.3573 100.9946,3.4651 100.977,3.4954 100.9578,3.5308 100.9508,3.5509 100.9458,3.5731 100.9329,3.6011 100.9139,3.6242 100.7709,3.7497 100.7544,3.7613 100.7349,3.7664 100.7002,3.7721 100.6942,3.7926 100.7112,3.8204 100.7299,3.84 100.6681,3.8348 100.6432,3.8383 100.6252,3.8483 100.6068,3.8644 100.5896,3.8856 100.5831,3.9063 100.5907,3.9784 100.6102,3.9907 100.6367,3.9792 100.6644,3.9793 100.754,4.0179 100.5767,4.1508 100.5395,4.1584 100.5098,4.1579 100.4876,4.2171 100.4667,4.298 100.4579,4.3351 100.4688,4.3945 100.4745,4.5812 100.4792,4.7456 100.4907,4.793 100.3963,4.8808 100.3317,4.9081 100.2875,4.9786 100.2654,5.031 100.248,5.0787 100.2902,5.1144 100.2982,5.1323 100.3101,5.1624 100.3189,5.1886 100.3161,5.2766 100.2672,5.5127 100.2585,5.5353 100.235,5.5629 100.236,5.603 100.2543,5.6558 100.26,5.6772 100.2617,5.8148 100.2551,5.8693 100.2494,5.911 100.2412,5.9572 100.234,5.9906 100.2233,6.021 100.1725,6.1275 100.1368,6.2015 100.1245,6.2189 100.0991,6.2376 100.0807,6.2491 100.0742,6.2546 100.0581,6.2797 100.0471,6.3096 100.0141,6.4067 100.0135,6.4177 100.0135,6.4177 12,7.0,Thailand 99.5501,6.6957 99.5685,6.6719 99.5847,6.5809 99.5893,6.5352 99.5799,6.5182 99.5551,6.4892 99.5398,6.4877 99.4839,6.5779 99.4849,6.5927 99.4956,6.6009 99.5501,6.6957 99.5501,6.6957 21,8.0,Malaysia 99.7398,6.457 99.7458,6.4291 99.7564,6.4121 99.7805,6.395 99.802,6.3799 99.8094,6.3267 99.7581,6.2811 99.6261,6.2418 99.544,6.3539 99.5392,6.3628 99.5339,6.3781 99.5287,6.4002 99.5291,6.4149 99.5903,6.4192 99.6034,6.4181 99.6143,6.4151 99.619,6.4061 99.6362,6.4006 99.6808,6.4045 99.7398,6.457 99.7398,6.457 11,8.0,Philippines 120.4103,6.2332 120.3996,6.2335 120.3431,6.2502 120.4169,6.3631 120.4317,6.3761 120.4637,6.3876 120.466,6.3728 120.4416,6.2453 120.4329,6.2384 120.4103,6.2332 120.4103,6.2332 31,8.0,Philippines 121.1501,5.8476 121.144,5.8662 121.1023,5.9247 121.094,5.9353 121.0601,5.9425 121.0461,5.9344 120.946,5.8817 120.7945,5.8812 120.7827,5.8843 120.7394,5.9128 120.7313,5.9369 120.7321,5.9473 120.7533,5.9917 120.7824,6.015 120.8781,6.0715 120.9798,6.0817 120.9905,6.0798 121.0183,6.067 121.0476,6.0334 121.1165,6.0095 121.2526,6.0028 121.2703,5.9933 121.2891,5.9709 121.2881,5.9478 121.2513,5.9102 121.2303,5.9074 121.2144,5.9074 121.1771,5.8804 121.164,5.867 121.1501,5.8476 121.1501,5.8476 237,-3.0,Suriname -57.1829,5.4799 -57.1187,5.5127 -57.1022,5.5352 -57.0737,5.6656 -57.0707,5.6861 -57.0672,5.7613 -57.0027,5.9352 -56.9276,5.9829 -56.8994,5.9904 -56.6357,5.9588 -56.5388,5.9338 -56.4899,5.9416 -56.4154,5.9387 -56.1961,5.8828 -55.9538,5.812 -55.8465,5.772 -55.8305,5.7241 -55.8347,5.6682 -55.8222,5.6768 -55.8138,5.7115 -55.8272,5.7695 -55.8589,5.8696 -55.792,5.9425 -55.764,5.9516 -55.7045,5.9607 -55.5569,5.9678 -55.485,5.971 -55.3497,5.9575 -55.314,5.9535 -55.2758,5.9435 -55.2035,5.9172 -55.1907,5.9094 -55.1675,5.8916 -55.1118,5.9009 -55.0525,5.8706 -55.051,5.8334 -55.0648,5.8159 -55.0413,5.8329 -54.9532,5.844 -54.884,5.8398 -54.8016,5.8486 -54.8245,5.873 -54.906,5.8667 -54.9324,5.8594 -55.0432,5.898 -55.0819,5.9278 -55.0966,5.9569 -54.9847,5.995 -54.9075,5.9816 -54.8142,5.9785 -54.717,5.9758 -54.6476,5.9557 -54.5769,5.9481 -54.2822,5.9004 -54.2364,5.8917 -54.1428,5.8732 -54.1169,5.865 -53.964,5.812 -53.9286,5.7408 -53.9449,5.7148 -53.9848,5.6473 -53.9899,5.5842 -53.9899,5.521 -54.0059,5.4853 -54.034,5.4522 -54.0586,5.4258 -54.0804,5.3892 -54.1046,5.3415 -54.1087,5.3362 -54.1313,5.3096 -54.1828,5.2791 -54.2214,5.249 -54.255,5.2029 -54.2855,5.1427 -54.3166,5.1066 -54.3461,5.075 -54.3856,5.0186 -54.3927,4.9984 -54.4137,4.8623 -54.4153,4.749 -54.411,4.7293 -54.3776,4.6641 -54.3597,4.5966 -54.361,4.5593 -54.3808,4.5259 -54.3896,4.5074 -54.3782,4.4057 -54.3694,4.3645 -54.3317,4.2325 -54.3031,4.1592 -54.299,4.0379 -54.2285,3.9294 -54.1269,3.8045 -54.085,3.7937 -54.0661,3.7846 -53.9363,3.623 -53.925,3.5976 -53.94,3.4447 -54.0099,3.3092 -54.0333,3.2915 -54.0575,3.2744 -54.1259,3.1913 -54.1449,3.1419 -54.1469,3.1211 -54.1343,3.0929 -54.1146,3.0407 -54.0995,2.9504 -54.1339,2.7933 -54.1435,2.772 -54.1615,2.7526 -54.1958,2.7158 -54.2537,2.6262 -54.2605,2.5957 -54.2907,2.521 -54.3046,2.4938 -54.3591,2.4322 -54.4377,2.3623 -54.5331,2.3298 -54.5422,2.3265 -54.5731,2.3175 -54.6258,2.3231 -54.6473,2.3854 -54.6283,2.3971 -54.6282,2.4488 -54.6914,2.4678 -54.7137,2.4542 -54.7419,2.4356 -54.7857,2.4333 -54.8071,2.4392 -54.9075,2.5479 -55.0298,2.5321 -55.0497,2.5243 -55.4407,2.4361 -55.6508,2.3977 -55.801,2.4687 -55.8231,2.4943 -55.8545,2.5178 -55.8786,2.5277 -55.8994,2.5302 -55.9193,2.5193 -55.9372,2.4482 -56.0213,2.3551 -56.0527,2.2469 -55.9731,2.2066 -55.8408,2.0455 -55.8388,1.8991 -55.8795,1.8541 -55.9027,1.8433 -55.933,1.8357 -55.9646,1.8343 -56.0051,1.8437 -56.05,1.8618 -56.1385,1.8896 -56.2634,1.9233 -56.3628,1.932 -56.407,1.9424 -56.4139,1.9598 -56.4921,2.0184 -56.5159,2.025 -56.5821,2.0257 -56.6182,2.0246 -56.7112,2.1387 -56.7464,2.191 -56.7896,2.2809 -56.8537,2.4254 -56.8805,2.4803 -57.0524,2.754 -57.1363,2.8198 -57.1485,2.8756 -57.1423,3.001 -57.1455,3.0326 -57.1556,3.0615 -57.1901,3.1001 -57.2186,3.1375 -57.2253,3.1778 -57.2276,3.2639 -57.2186,3.315 -57.2392,3.3769 -57.3644,3.3437 -57.4652,3.3428 -57.5452,3.3565 -57.5769,3.3529 -57.5924,3.4103 -57.573,3.4531 -57.589,3.5149 -57.6033,3.5343 -57.6751,3.6097 -57.6948,3.6204 -57.7511,3.6462 -57.7728,3.6652 -57.7802,3.6885 -57.7836,3.7349 -57.7937,3.7675 -57.8018,3.7866 -57.8108,3.8049 -57.866,3.8865 -57.8846,3.9089 -57.9031,3.9248 -57.9505,3.9592 -57.9778,3.9972 -58.0054,4.1513 -57.9955,4.1757 -57.9731,4.2066 -57.9366,4.2352 -57.8884,4.2837 -57.8832,4.3123 -57.8826,4.3445 -57.8366,4.4988 -57.7809,4.6236 -57.7743,4.6638 -57.8217,4.7629 -57.8427,4.7727 -57.8586,4.7913 -57.857,4.8168 -57.835,4.8503 -57.7748,4.9223 -57.6101,5.0061 -57.5681,4.9947 -57.5449,4.9867 -57.4079,4.9838 -57.3514,4.9841 -57.2617,5.0206 -57.2563,5.0702 -57.2268,5.1605 -57.2064,5.1713 -57.1849,5.167 -57.166,5.1407 -57.1256,5.1663 -57.1419,5.2178 -57.1695,5.254 -57.1968,5.2161 -57.2172,5.2205 -57.2587,5.2979 -57.2337,5.3537 -57.2061,5.3791 -57.1829,5.4799 -57.1829,5.4799 14,7.0,Indonesia 95.2717,5.8312 95.2724,5.8127 95.2717,5.7997 95.2316,5.7682 95.184,5.7792 95.1715,5.7872 95.1095,5.875 95.103,5.8862 95.1027,5.897 95.1116,5.9068 95.2287,5.888 95.2739,5.8405 95.2717,5.8312 95.2717,5.8312 191,-3.0,French Guiana -54.1046,5.3415 -54.0777,5.3517 -54.0298,5.386 -54.0077,5.4121 -53.9962,5.4313 -53.9451,5.5386 -53.942,5.5694 -53.9492,5.5997 -53.9441,5.6352 -53.9305,5.6668 -53.9201,5.6842 -53.8779,5.7383 -53.8499,5.7441 -53.797,5.7492 -53.6895,5.7252 -53.5752,5.667 -53.461,5.5987 -53.4378,5.5742 -53.4332,5.5664 -53.4224,5.562 -53.3471,5.5427 -53.2416,5.5168 -53.1254,5.493 -53.0237,5.4772 -52.9125,5.467 -52.8772,5.4523 -52.826,5.4144 -52.7394,5.336 -52.7269,5.3162 -52.6758,5.2546 -52.5507,5.1238 -52.5071,5.091 -52.3623,4.9871 -52.2707,4.9436 -52.2298,4.9331 -52.0047,4.7285 -51.9638,4.6804 -51.9376,4.638 -51.9257,4.6085 -51.9186,4.5821 -51.8971,4.4876 -51.8916,4.4519 -51.8916,4.419 -51.9011,4.3952 -51.9421,4.3639 -51.9697,4.3475 -51.9813,4.3299 -51.9325,4.3433 -51.892,4.3679 -51.8691,4.396 -51.8644,4.4224 -51.8672,4.4604 -51.8701,4.482 -51.872,4.524 -51.8719,4.565 -51.865,4.6158 -51.8561,4.6416 -51.8405,4.6565 -51.8022,4.6542 -51.7354,4.6005 -51.708,4.5328 -51.7001,4.4955 -51.6974,4.4724 -51.6936,4.4502 -51.6853,4.4161 -51.655,4.3081 -51.6435,4.2822 -51.6156,4.2487 -51.5969,4.2207 -51.5896,4.1957 -51.589,4.1628 -51.5932,4.1326 -51.6022,4.0766 -51.6157,4.0452 -51.6254,4.0298 -51.6452,4.0219 -51.6696,4.0115 -51.6949,3.996 -51.7127,3.9793 -51.7248,3.9567 -51.7348,3.9125 -51.7533,3.8724 -51.8474,3.7866 -51.8679,3.7729 -51.922,3.6961 -51.9309,3.6534 -51.9367,3.6219 -52.041,3.4451 -52.106,3.3384 -52.1674,3.2497 -52.1905,3.2402 -52.2143,3.2377 -52.2857,3.1539 -52.2939,3.1282 -52.2856,3.085 -52.2926,3.0368 -52.3198,2.9708 -52.3494,2.919 -52.4048,2.8104 -52.4604,2.6948 -52.4933,2.6184 -52.4807,2.5837 -52.4829,2.5626 -52.5044,2.5195 -52.5352,2.4711 -52.616,2.3717 -52.7297,2.3009 -52.8232,2.2225 -52.8368,2.2046 -52.8952,2.174 -52.9344,2.1734 -52.995,2.1846 -53.0096,2.2007 -53.0275,2.2172 -53.0521,2.2201 -53.136,2.2113 -53.1793,2.206 -53.1662,2.2621 -53.2366,2.3164 -53.2596,2.3455 -53.2803,2.3472 -53.288,2.3204 -53.3985,2.2551 -53.4676,2.247 -53.641,2.3077 -53.661,2.3391 -53.6855,2.3684 -53.7162,2.3622 -53.7388,2.3499 -53.8493,2.2746 -53.8674,2.2503 -53.8719,2.2258 -54.0488,2.1113 -54.2595,2.1591 -54.4031,2.2092 -54.4572,2.2551 -54.4658,2.2869 -54.4797,2.3127 -54.5123,2.3226 -54.5331,2.3298 -54.4377,2.3623 -54.3591,2.4322 -54.3046,2.4938 -54.2907,2.521 -54.2605,2.5957 -54.2537,2.6262 -54.1958,2.7158 -54.1615,2.7526 -54.1435,2.772 -54.1339,2.7933 -54.0995,2.9504 -54.1146,3.0407 -54.1343,3.0929 -54.1469,3.1211 -54.1449,3.1419 -54.1259,3.1913 -54.0575,3.2744 -54.0333,3.2915 -54.0099,3.3092 -53.94,3.4447 -53.925,3.5976 -53.9363,3.623 -54.0661,3.7846 -54.085,3.7937 -54.1269,3.8045 -54.2285,3.9294 -54.299,4.0379 -54.3031,4.1592 -54.3317,4.2325 -54.3694,4.3645 -54.3782,4.4057 -54.3896,4.5074 -54.3808,4.5259 -54.361,4.5593 -54.3597,4.5966 -54.3776,4.6641 -54.411,4.7293 -54.4153,4.749 -54.4137,4.8623 -54.3927,4.9984 -54.3856,5.0186 -54.3461,5.075 -54.3166,5.1066 -54.2855,5.1427 -54.255,5.2029 -54.2214,5.249 -54.1828,5.2791 -54.1313,5.3096 -54.1087,5.3362 -54.1046,5.3415 -54.1046,5.3415 1028,7.0,Indonesia 102.8527,0.6547 102.8606,0.6429 102.9276,0.5651 102.9518,0.5355 102.9653,0.5149 102.9715,0.5005 102.9754,0.4844 102.9755,0.4708 102.973,0.456 102.9667,0.4452 102.9556,0.4359 102.9322,0.4245 102.8323,0.3743 102.66,0.2863 102.6059,0.2585 102.4786,0.1865 102.4701,0.1812 102.4562,0.1763 102.4396,0.1806 102.4155,0.1972 102.4054,0.2078 102.3944,0.2243 102.3844,0.238 102.3737,0.2448 102.3159,0.2444 102.4085,0.1777 102.4253,0.1665 102.4434,0.1576 102.4567,0.1536 102.4724,0.1525 102.5162,0.1973 102.5297,0.2096 102.5442,0.2174 102.5598,0.2219 102.6815,0.2467 102.705,0.2508 102.7367,0.2537 102.7572,0.2538 102.7695,0.2552 102.7895,0.2624 103.0345,0.4012 103.0473,0.4089 103.0631,0.4204 103.0802,0.4447 103.0844,0.4539 103.0871,0.4653 103.091,0.4746 103.1049,0.4868 103.2246,0.5328 103.2353,0.5355 103.2516,0.536 103.2682,0.5318 103.2892,0.5222 103.335,0.4993 103.3597,0.4827 103.6135,0.2912 103.6238,0.2808 103.631,0.2677 103.6352,0.2586 103.6386,0.2481 103.6413,0.2233 103.6475,0.1884 103.6543,0.1543 103.6768,0.0538 103.6867,0.029 103.6956,0.0105 103.6951,-0.0033 103.6757,-0.0134 103.6586,-0.0169 103.6455,-0.0173 103.5527,-0.0227 103.4867,-0.0268 103.4709,-0.0497 103.4646,-0.1025 103.3192,-0.2034 103.307,-0.2116 103.278,-0.224 103.2614,-0.2283 103.219,-0.2337 103.196,-0.2378 103.1851,-0.2405 103.1706,-0.2466 103.1569,-0.2589 103.2027,-0.2646 103.2164,-0.2643 103.2384,-0.2623 103.31,-0.2352 103.3631,-0.2145 103.3773,-0.2179 103.3828,-0.2263 103.3827,-0.2418 103.3287,-0.3246 103.3233,-0.3329 103.3012,-0.3504 103.2269,-0.3634 103.3204,-0.3752 103.3814,-0.3787 103.458,-0.4115 103.4663,-0.4172 103.4817,-0.4342 103.4818,-0.4484 103.4706,-0.4609 103.4581,-0.4691 103.4061,-0.503 103.2991,-0.5757 103.2453,-0.7012 103.3115,-0.748 103.3507,-0.7633 103.354,-0.7791 103.4328,-0.868 103.5354,-0.9466 103.5444,-0.9516 103.6153,-0.99 103.6251,-0.9944 103.7295,-1.0234 103.7449,-1.0111 103.7654,-0.9977 103.8084,-0.9859 103.8196,-0.9832 103.8388,-0.9818 103.8502,-0.9841 103.9917,-1.0254 104.0014,-1.0296 104.1021,-1.0685 104.1151,-1.061 104.2292,-1.0248 104.2425,-1.0255 104.2524,-1.0289 104.2609,-1.0378 104.266,-1.0494 104.2958,-1.1302 104.2965,-1.1432 104.2904,-1.1577 104.2849,-1.1661 104.2781,-1.1903 104.2779,-1.2139 104.2834,-1.2357 104.2881,-1.2516 104.2922,-1.2611 104.2997,-1.2742 104.3151,-1.2932 104.3228,-1.3055 104.3298,-1.319 104.3333,-1.3296 104.3384,-1.3523 104.34,-1.3703 104.3403,-1.3909 104.339,-1.4032 104.3331,-1.4253 104.3299,-1.4425 104.3287,-1.4581 104.3332,-1.5047 104.3345,-1.5171 104.3435,-1.5699 104.3464,-1.5806 104.3715,-1.6375 104.3839,-1.6592 104.4005,-1.6906 104.4127,-1.7194 104.4189,-1.7405 104.4217,-1.7585 104.4223,-1.7716 104.4203,-1.7866 104.4131,-1.8015 104.3987,-1.8099 104.3854,-1.8236 104.3764,-1.842 104.3662,-1.866 104.3637,-1.8935 104.3661,-1.9084 104.3723,-1.9228 104.3797,-1.9322 104.3925,-1.9272 104.4069,-1.8935 104.4127,-1.8687 104.4207,-1.8579 104.4444,-1.862 104.4631,-1.8741 104.5084,-1.911 104.5183,-1.9251 104.6377,-1.9986 104.6564,-1.9966 104.6698,-1.9964 104.6814,-1.9987 104.704,-2.0105 104.7288,-2.0335 104.7452,-2.0579 104.7535,-2.0771 104.7588,-2.1128 104.7618,-2.1444 104.761,-2.1575 104.7579,-2.1681 104.7519,-2.1826 104.7421,-2.2004 104.6067,-2.3815 104.6098,-2.3957 104.6077,-2.4633 104.5998,-2.5624 104.5923,-2.5734 104.5535,-2.5907 104.5335,-2.5983 104.5238,-2.6024 104.5066,-2.6125 104.4813,-2.6287 104.4628,-2.6444 104.4559,-2.6519 104.4443,-2.6673 104.4252,-2.6962 104.4202,-2.7119 104.4143,-2.7681 104.4278,-2.7621 104.4361,-2.7531 104.4418,-2.7413 104.4472,-2.7195 104.4597,-2.6908 104.4754,-2.6691 104.4937,-2.6566 104.5355,-2.6299 104.569,-2.6154 104.5901,-2.6094 104.6065,-2.6017 104.619,-2.5901 104.624,-2.5814 104.628,-2.5717 104.6457,-2.4938 104.6491,-2.4769 104.6505,-2.4645 104.6649,-2.3925 104.7346,-2.2936 104.7471,-2.286 104.7674,-2.2852 104.873,-2.3304 104.8935,-2.3404 104.9058,-2.352 104.9113,-2.3604 104.9205,-2.3684 104.9847,-2.3678 105.0496,-2.3596 105.0644,-2.3542 105.0855,-2.3475 105.107,-2.3418 105.12,-2.3412 105.1313,-2.3442 105.1613,-2.3556 105.1962,-2.3687 105.2073,-2.3721 105.2273,-2.3759 105.4036,-2.3955 105.4876,-2.3905 105.4976,-2.3944 105.5068,-2.4058 105.5108,-2.4151 105.5137,-2.4296 105.5124,-2.445 105.5095,-2.4561 105.5049,-2.4721 105.4993,-2.4871 105.4909,-2.5062 105.4883,-2.5171 105.4871,-2.5293 105.487,-2.5498 105.4883,-2.5623 105.4918,-2.5792 105.4996,-2.5983 105.5072,-2.6113 105.5181,-2.6281 105.5419,-2.6522 105.5623,-2.6664 105.5812,-2.6743 105.5973,-2.6791 105.6153,-2.6813 105.6406,-2.6818 105.6604,-2.6909 105.6702,-2.707 105.6725,-2.727 105.6708,-2.7735 105.6681,-2.8116 105.6682,-2.8256 105.6693,-2.8445 105.6722,-2.8553 105.6824,-2.8793 105.6893,-2.8931 105.701,-2.9089 105.7181,-2.9259 105.7331,-2.9382 105.7453,-2.9465 105.7647,-2.9546 105.7754,-2.9572 105.7973,-2.9594 105.8205,-2.9518 105.8406,-2.9479 105.8578,-2.9511 105.8693,-2.9566 105.8815,-2.9647 105.9018,-2.9794 105.9145,-2.9916 105.922,-3.0005 105.9297,-3.0132 105.9358,-3.0279 105.9576,-3.2152 105.9575,-3.2376 105.9507,-3.2547 105.9402,-3.2649 105.9272,-3.2722 105.9048,-3.2833 105.8869,-3.293 105.8744,-3.3012 105.8591,-3.3129 105.8348,-3.3368 105.8115,-3.3618 105.7954,-3.3801 105.7791,-3.4047 105.7704,-3.4233 105.7629,-3.443 105.7573,-3.4586 105.7033,-3.6433 105.6963,-3.6706 105.6945,-3.6893 105.6957,-3.7083 105.6996,-3.7177 105.7051,-3.7262 105.7226,-3.7427 105.7551,-3.765 105.8033,-3.7856 105.8221,-3.8004 105.832,-3.8144 105.8368,-3.8342 105.8363,-3.8509 105.8332,-3.8648 105.8249,-3.8837 105.8152,-3.9017 105.7726,-3.9649 105.7632,-3.983 105.7433,-4.0244 105.7373,-4.0389 105.7323,-4.0545 105.7275,-4.077 105.7156,-4.1336 105.7084,-4.1535 105.6959,-4.1961 105.6927,-4.2127 105.6897,-4.2376 105.6899,-4.2785 105.691,-4.2909 105.6972,-4.312 105.7035,-4.3264 105.7082,-4.3354 105.7398,-4.3842 105.7813,-4.4518 105.7841,-4.471 105.7841,-4.5434 105.7772,-4.6728 105.7589,-4.711 105.7458,-4.7664 105.7441,-4.7782 105.7436,-4.791 105.7474,-4.8198 105.7546,-4.853 105.7664,-4.8822 105.7587,-4.991 105.7379,-5.1403 105.6971,-5.5349 105.7031,-5.5526 105.7106,-5.5657 105.7141,-5.5756 105.7159,-5.5908 105.7143,-5.6122 105.7106,-5.6292 105.68,-5.7676 105.6744,-5.7894 105.6678,-5.8098 105.6586,-5.8284 105.6084,-5.8915 105.5033,-5.8124 105.2212,-5.5075 105.1702,-5.4435 105.1518,-5.4378 105.1397,-5.4427 105.0517,-5.5816 105.0731,-5.6751 105.0941,-5.752 105.0945,-5.7646 105.0783,-5.7726 105.0221,-5.7885 104.9399,-5.7439 104.8571,-5.6968 104.774,-5.6634 104.664,-5.5975 104.6392,-5.5812 104.6216,-5.5642 104.6058,-5.5388 104.5978,-5.5296 104.5758,-5.5089 104.562,-5.5021 104.552,-5.4988 104.5408,-5.4957 104.5023,-5.4866 104.4908,-5.4871 104.4462,-5.493 104.4354,-5.4959 104.4241,-5.5018 104.413,-5.5178 104.4069,-5.5384 104.4219,-5.5749 104.4299,-5.5942 104.4381,-5.6062 104.46,-5.6322 104.4778,-5.6556 104.495,-5.6791 104.5087,-5.6996 104.5137,-5.7086 104.5599,-5.7916 104.5699,-5.809 104.5736,-5.819 104.5951,-5.9112 104.5881,-5.9214 104.5732,-5.9271 104.567,-5.9276 104.5128,-5.9271 104.46,-5.925 104.4418,-5.923 104.4369,-5.8659 104.4273,-5.8447 104.4186,-5.833 104.4081,-5.8229 104.3225,-5.7464 104.224,-5.6594 104.189,-5.6144 104.1922,-5.6044 104.1902,-5.5928 104.1809,-5.5783 104.1475,-5.5435 104.1151,-5.5212 104.055,-5.4799 103.9767,-5.423 103.891,-5.3241 103.8839,-5.2645 103.7864,-5.1192 103.7724,-5.1053 103.6014,-4.9546 103.5898,-4.9492 103.5782,-4.947 103.5082,-4.926 103.4932,-4.9139 103.4514,-4.9077 103.4345,-4.9042 103.3251,-4.8552 103.2867,-4.8279 103.2369,-4.7876 103.1893,-4.7419 103.1764,-4.7266 103.1661,-4.7168 103.1452,-4.6967 103.1121,-4.6685 103.0119,-4.5906 102.9838,-4.5704 102.9346,-4.5379 102.9059,-4.5255 102.7567,-4.4149 102.7361,-4.3946 102.7068,-4.3687 102.6053,-4.2848 102.5548,-4.246 102.527,-4.2255 102.4831,-4.1937 102.4349,-4.1596 102.4228,-4.1508 102.3776,-4.1209 102.3333,-4.0901 102.2216,-4.0105 102.2101,-4.0013 102.189,-3.9815 102.1742,-3.9586 102.1637,-3.931 102.1617,-3.9193 102.1656,-3.9099 102.1535,-3.8062 102.1255,-3.6796 102.1209,-3.667 102.1058,-3.6446 102.0925,-3.6339 101.9975,-3.5753 101.8807,-3.5042 101.7546,-3.4175 101.5397,-3.263 101.5202,-3.2488 101.5123,-3.2421 101.4944,-3.2191 101.3771,-3.056 101.3715,-3.0476 101.3558,-3.0222 101.3469,-3.0002 101.2902,-2.8864 101.2082,-2.7289 101.1999,-2.7166 101.1858,-2.7035 101.1658,-2.6894 101.1455,-2.6788 101.1336,-2.6737 101.0855,-2.6533 101.0672,-2.6443 101.0268,-2.6163 101.0111,-2.6046 100.9961,-2.5922 100.9814,-2.5784 100.9717,-2.5676 100.9153,-2.4945 100.9068,-2.4823 100.893,-2.4541 100.8031,-2.3329 100.7923,-2.3168 100.725,-2.1846 100.7201,-2.1657 100.7196,-2.1403 100.7285,-2.1252 100.7511,-2.0998 100.7613,-2.0827 100.7683,-2.0655 100.7697,-2.0429 100.7691,-1.9972 100.7628,-1.9624 100.7565,-1.9343 100.7533,-1.9239 100.7429,-1.9 100.7327,-1.883 100.6281,-1.7338 100.5872,-1.6789 100.5756,-1.6636 100.5629,-1.6482 100.5451,-1.6317 100.5359,-1.6173 100.4933,-1.4938 100.4701,-1.4157 100.4726,-1.3806 100.4543,-1.3341 100.4477,-1.3237 100.325,-1.2397 100.2697,-1.1101 100.2694,-1.0443 100.2229,-0.8729 100.2192,-0.8636 100.2068,-0.8416 100.1815,-0.8054 100.0999,-0.7223 100.0647,-0.6955 100.0513,-0.682 100.0181,-0.642 100.0039,-0.6218 99.9972,-0.6048 99.9863,-0.578 99.9765,-0.5601 99.9382,-0.5094 99.9013,-0.4706 99.8913,-0.4605 99.8809,-0.4503 99.803,-0.3979 99.7054,-0.3101 99.6968,-0.298 99.6407,-0.165 99.6371,-0.1516 99.6412,-0.132 99.6538,-0.1032 99.6567,-0.0889 99.6538,-0.0742 99.6483,-0.0591 99.6432,-0.0502 99.6321,-0.0342 99.5482,0.0532 99.5243,0.0769 99.4968,0.0974 99.4792,0.1071 99.2395,0.2304 99.2299,0.2344 99.2054,0.2371 99.193,0.2358 99.1818,0.233 99.1675,0.2269 99.1523,0.2183 99.1388,0.2144 99.126,0.2136 99.1086,0.2174 99.0573,0.2383 99.044,0.2455 99.0287,0.2578 99.0244,0.2684 99.047,0.3173 99.0018,0.345 99.012,0.373 99.0239,0.3917 99.0259,0.4123 99.0118,0.5077 98.9924,0.5841 98.9247,0.7751 98.9133,0.7914 98.8536,0.9364 98.7698,1.1814 98.728,1.3099 98.6778,1.4131 98.6148,1.5143 98.6103,1.5233 98.5933,1.5581 98.6037,1.567 98.6144,1.5664 98.6289,1.5572 98.6339,1.5457 98.6405,1.5382 98.6511,1.5334 98.6622,1.5429 98.7113,1.6201 98.7137,1.6445 98.7131,1.6678 98.6598,1.7467 98.636,1.7705 98.6158,1.7825 98.6011,1.7802 98.4444,1.9031 98.4274,1.9198 98.4121,1.9323 98.3959,1.943 98.3458,1.9753 98.3286,1.9856 98.1306,2.0849 98.034,2.1546 98.0281,2.1603 97.9994,2.1793 97.9777,2.1914 97.937,2.2127 97.8386,2.2648 97.827,2.2669 97.8154,2.2648 97.806,2.2608 97.7891,2.2495 97.7802,2.2447 97.7616,2.2377 97.6525,2.2633 97.6403,2.2682 97.5495,2.3934 97.5448,2.4022 97.542,2.4132 97.5409,2.4253 97.5384,2.4781 97.5392,2.4944 97.5406,2.5102 97.5407,2.5948 97.5405,2.6226 97.5393,2.6347 97.5276,2.7186 97.5205,2.7607 97.5152,2.7824 97.5007,2.8299 97.492,2.855 97.4869,2.864 97.4755,2.8762 97.4641,2.8778 97.4455,2.8742 97.4291,2.8766 97.3385,2.9122 97.3107,2.9254 97.2721,2.9619 97.251,2.989 97.2273,3.0207 97.2084,3.0496 97.201,3.0629 97.1926,3.082 97.1838,3.1137 97.1812,3.1249 97.1797,3.1373 97.1799,3.1577 97.1745,3.1766 97.147,3.2209 97.1372,3.2281 97.0995,3.2361 97.0707,3.2418 97.0588,3.251 96.9672,3.3972 96.9261,3.48 96.9179,3.4993 96.896,3.5324 96.7705,3.6734 96.7598,3.683 96.6867,3.7328 96.6784,3.7386 96.6134,3.7471 96.5733,3.7473 96.5255,3.7472 96.5016,3.744 96.4806,3.7378 96.4619,3.735 96.4492,3.7344 96.4306,3.7364 96.4095,3.7421 96.3797,3.7593 96.3503,3.7855 96.3187,3.8154 96.3048,3.829 96.2826,3.8546 96.2396,3.915 96.2229,3.9397 96.2125,3.9577 96.2057,3.9714 96.1894,3.9957 96.175,4.0156 96.159,4.0343 96.0852,4.1117 96.0764,4.1206 96.0658,4.127 96.0488,4.1337 96.0324,4.1342 95.9859,4.1673 95.9571,4.1932 95.9117,4.2096 95.9,4.2183 95.8327,4.2791 95.7949,4.3269 95.7192,4.4158 95.5552,4.5684 95.5357,4.5837 95.4797,4.6284 95.4221,4.6777 95.3141,4.8414 95.1749,5.1127 95.1899,5.1372 95.1948,5.1513 95.1912,5.1686 95.1236,5.2773 95.146,5.3869 95.1471,5.3998 95.1438,5.4102 95.1311,5.4467 95.1155,5.4735 95.125,5.5639 95.1746,5.5634 95.2319,5.6034 95.3002,5.6442 95.3106,5.6475 95.3235,5.6485 95.489,5.6231 95.5002,5.6205 95.6294,5.5792 95.7239,5.53 95.779,5.497 95.7855,5.4776 95.7836,5.4593 95.7876,5.4476 95.7999,5.4326 95.8233,5.408 95.8579,5.3747 95.9492,5.3015 95.9612,5.2937 95.9949,5.2791 96.0102,5.2735 96.2377,5.217 96.2921,5.2095 96.304,5.2086 96.4505,5.2015 96.4714,5.2016 96.5432,5.2122 96.5813,5.2221 96.6097,5.2349 96.6231,5.2418 96.6434,5.2511 96.6527,5.2553 96.6678,5.2607 96.6984,5.2713 96.7103,5.273 96.7305,5.2729 96.8704,5.2648 96.9351,5.2577 96.9881,5.239 97.0166,5.2269 97.0292,5.2186 97.0388,5.2075 97.0429,5.198 97.0474,5.1787 97.0573,5.1577 97.0693,5.1498 97.0796,5.1461 97.0926,5.1454 97.1117,5.1468 97.1291,5.1505 97.1497,5.157 97.271,5.1999 97.3195,5.2198 97.3376,5.2287 97.3761,5.245 97.3905,5.248 97.4035,5.2438 97.4378,5.2094 97.4543,5.1921 97.4705,5.1673 97.494,5.136 97.517,5.1048 97.5371,5.0836 97.5725,5.0496 97.6642,4.9835 97.7881,4.8955 97.8013,4.8811 97.8109,4.8666 97.8343,4.8218 97.8424,4.8023 97.8526,4.7785 97.8557,4.7648 97.8553,4.752 97.8533,4.7372 97.8618,4.6905 97.8646,4.6798 97.9058,4.5463 97.953,4.552 98.0089,4.5313 98.0458,4.5134 98.085,4.4839 98.165,4.4221 98.17,4.4058 98.1736,4.3447 98.1527,4.3074 98.1539,4.189 98.1592,4.1379 98.2721,4.08 98.2864,4.0738 98.3583,4.0432 98.4227,4.0046 98.4401,3.9946 98.5175,3.9217 98.5853,3.839 98.5921,3.8049 98.5986,3.7909 98.6792,3.7343 98.6997,3.7205 98.7221,3.7091 98.7755,3.6872 98.7963,3.6804 98.8185,3.6756 98.851,3.6669 98.9606,3.6248 99.0902,3.5501 99.0987,3.5446 99.1147,3.5328 99.1297,3.5205 99.1405,3.5108 99.4153,3.2644 99.4356,3.2437 99.4564,3.23 99.4657,3.2258 99.5064,3.2115 99.5447,3.2022 99.652,3.1412 99.7883,3.0046 99.8574,2.9508 99.8683,2.9406 99.876,2.9213 99.8814,2.8271 99.8821,2.8068 99.8816,2.794 99.8783,2.7798 99.8702,2.7659 99.8624,2.7517 99.844,2.7017 99.8428,2.6874 99.8927,2.5983 99.9073,2.6023 99.9107,2.6259 99.8968,2.6766 99.8872,2.6842 99.8676,2.692 99.864,2.7059 99.8755,2.7158 99.8849,2.72 99.9096,2.7299 99.9211,2.7317 99.9373,2.7273 99.9549,2.7107 99.9623,2.6977 99.9645,2.686 99.9637,2.6319 99.9652,2.6195 99.9693,2.6034 99.9759,2.5828 99.9842,2.5638 100.0085,2.5227 100.0205,2.5243 100.0212,2.5431 100.0171,2.5526 100.0139,2.5627 100.0005,2.6112 100.0,2.6243 100.0013,2.6369 100.0054,2.6534 100.011,2.6683 100.0227,2.6839 100.0377,2.6964 100.0565,2.7043 100.0787,2.7066 100.0923,2.7031 100.134,2.6506 100.1718,2.5769 100.2029,2.5463 100.2108,2.5274 100.2438,2.4302 100.2548,2.383 100.2601,2.3681 100.2726,2.3392 100.2828,2.3151 100.2931,2.2984 100.2994,2.2904 100.3159,2.2729 100.3534,2.2346 100.3706,2.2175 100.439,2.163 100.4586,2.1486 100.4918,2.1268 100.5007,2.122 100.5107,2.1182 100.5257,2.1177 100.5457,2.1252 100.5579,2.1261 100.5788,2.115 100.5868,2.1093 100.7112,2.0251 100.7372,1.9932 100.7467,1.9813 100.7613,1.9553 100.7705,1.937 100.775,1.9213 100.7778,1.9037 100.7784,1.8903 100.7805,1.8789 100.7909,1.8549 100.8052,1.8348 100.8138,1.8267 100.8293,1.8188 100.8369,1.8658 100.8334,1.8797 100.7813,2.0194 100.7721,2.0377 100.7601,2.0527 100.7511,2.061 100.7079,2.1033 100.7003,2.1162 100.6888,2.1457 100.6845,2.162 100.6825,2.1738 100.6822,2.1901 100.6839,2.2121 100.6867,2.2231 100.6946,2.2422 100.7122,2.2661 100.728,2.2778 100.7473,2.2854 100.7701,2.2902 100.8189,2.296 100.9443,2.2811 100.9424,2.2671 100.9373,2.2518 100.942,2.2361 100.9503,2.2169 100.9574,2.2069 101.0811,2.1211 101.1409,2.0843 101.1568,2.0726 101.1881,2.0425 101.1996,2.0267 101.2043,2.0179 101.2097,2.003 101.2148,1.9797 101.2158,1.9602 101.213,1.9392 101.2117,1.9178 101.2161,1.9016 101.2192,1.8914 101.25,1.7989 101.2577,1.7789 101.27,1.7502 101.2865,1.7258 101.297,1.7154 101.3161,1.7004 101.3302,1.6942 101.4219,1.6557 101.4318,1.6517 101.4617,1.6475 101.4746,1.6481 101.4914,1.6525 101.5016,1.6556 101.517,1.6611 101.5495,1.67 101.5741,1.6729 101.5941,1.6724 101.6102,1.6681 101.6441,1.6538 101.6527,1.6489 101.6691,1.6381 101.762,1.5535 101.8692,1.4609 101.9044,1.434 101.9211,1.4234 101.9382,1.4129 101.9705,1.3972 102.0117,1.3803 102.0212,1.372 102.084,1.1942 102.0835,1.1586 102.0771,1.1236 102.0729,1.1073 102.0729,1.0934 102.0745,1.0812 102.0799,1.0593 102.087,1.0386 102.0962,1.0138 102.1068,0.9966 102.1212,0.9772 102.3112,0.7966 102.3508,0.7677 102.3772,0.7531 102.3955,0.7443 102.4054,0.7402 102.4306,0.7311 102.4477,0.7279 102.4609,0.7275 102.4906,0.7311 102.5069,0.7353 102.5994,0.74 102.7503,0.7308 102.7667,0.7265 102.79,0.7158 102.8023,0.7075 102.8174,0.6942 102.8434,0.6658 102.8527,0.6547 102.8527,0.6547 16,8.0,Malaysia 100.1939,5.44 100.206,5.4216 100.2104,5.3751 100.2033,5.3294 100.1725,5.2488 100.0897,5.2652 100.0819,5.2877 100.0656,5.4214 100.0717,5.4564 100.1333,5.4607 100.1467,5.4608 100.1584,5.4588 100.1799,5.4519 100.1909,5.4458 100.1939,5.44 100.1939,5.44 1001,2.0,Zaire 19.7018,-6.3065 19.7088,-6.3982 19.7366,-6.5724 19.8202,-6.7001 19.927,-6.8255 19.9502,-6.8858 19.9661,-6.9874 20.2886,-6.9867 20.2951,-6.9634 20.2945,-6.9431 20.3087,-6.9069 20.6065,-6.9058 20.5929,-6.9648 20.5647,-7.0229 20.5232,-7.1072 20.5105,-7.1722 20.5079,-7.2413 20.5256,-7.2754 21.1842,-7.2745 21.5788,-7.2738 21.7532,-7.273 21.7881,-7.3037 21.8156,-7.3594 21.835,-7.4683 21.8268,-7.583 21.8084,-7.627 21.8017,-7.6365 21.7926,-7.6455 21.7493,-7.7647 21.739,-7.8264 21.7248,-7.9265 21.7308,-7.9947 21.7489,-8.0143 21.7796,-8.0444 21.8118,-8.1222 21.8344,-8.1908 21.8546,-8.2741 21.885,-8.3225 21.8793,-8.334 21.8896,-8.3805 21.9123,-8.4113 21.9155,-8.4866 21.9107,-8.5366 21.9003,-8.5743 21.8662,-8.7223 21.8517,-8.7912 21.8286,-8.9237 21.8113,-9.0607 21.8172,-9.1438 21.8014,-9.2917 21.7832,-9.3356 21.7674,-9.4005 21.8264,-9.6093 21.8357,-9.6315 21.8509,-9.654 21.9993,-9.8386 22.0371,-9.8714 22.1078,-9.8905 22.1342,-9.913 22.1513,-9.9511 22.1766,-10.0718 22.183,-10.1428 22.2041,-10.1905 22.2444,-10.266 22.2895,-10.363 22.2799,-10.4109 22.248,-10.5009 22.2788,-10.5711 22.2838,-10.6007 22.2818,-10.6633 22.2906,-10.7152 22.2277,-10.7777 22.1845,-10.7968 22.166,-10.8135 22.1423,-10.8477 22.17,-10.9549 22.1933,-11.0063 22.2196,-11.0557 22.2344,-11.1711 22.2295,-11.1968 22.2744,-11.2245 22.456,-11.1181 22.4753,-11.081 22.4799,-11.052 22.4939,-11.0318 22.5428,-11.0209 22.5733,-11.0287 22.5986,-11.0486 22.622,-11.0601 22.6414,-11.0686 22.6918,-11.0809 22.7499,-11.0787 22.782,-11.0622 22.811,-11.0432 22.8318,-11.0367 22.8816,-11.0523 22.916,-11.0805 22.9916,-11.0834 23.0626,-11.0839 23.1916,-11.0641 23.2166,-11.0491 23.2682,-11.0146 23.3423,-10.9702 23.3717,-10.9577 23.3961,-10.9509 23.4304,-10.9466 23.4507,-10.9457 23.4711,-10.9466 23.4942,-10.9496 23.5171,-10.9544 23.5599,-10.9675 23.5843,-10.9776 23.6392,-10.9984 23.8324,-11.0147 23.8598,-11.0023 23.9278,-10.9215 23.9599,-10.858 23.9683,-10.8569 24.0322,-10.8663 24.066,-10.8814 24.1056,-10.9042 24.1157,-10.967 24.1592,-11.017 24.2917,-11.0387 24.35,-11.076 24.3718,-11.0993 24.3896,-11.2037 24.3831,-11.2673 24.3391,-11.3368 24.3484,-11.3919 24.4222,-11.4497 24.4993,-11.4485 24.5569,-11.4247 24.5759,-11.3918 24.6655,-11.3271 24.7127,-11.3044 24.9528,-11.2522 25.0018,-11.249 25.0389,-11.2483 25.0994,-11.2494 25.1615,-11.2396 25.2275,-11.2144 25.2565,-11.1947 25.2924,-11.1819 25.3166,-11.1925 25.3171,-11.2654 25.2948,-11.3144 25.2638,-11.3529 25.2882,-11.5031 25.2982,-11.5412 25.3356,-11.6297 25.4703,-11.6967 25.6637,-11.7542 25.814,-11.7887 25.9547,-11.8821 25.976,-11.8888 26.015,-11.8916 26.0432,-11.8913 26.1691,-11.8888 26.4073,-11.8969 26.4284,-11.902 26.4481,-11.9137 26.5693,-11.9577 26.6485,-11.9754 26.7212,-11.9708 26.8443,-11.958 26.8724,-11.9474 26.9299,-11.9012 26.9461,-11.8823 26.9549,-11.8637 26.9647,-11.8223 26.9668,-11.7462 27.0032,-11.5837 27.179,-11.5633 27.189,-11.5917 27.1984,-11.6691 27.199,-11.7036 27.1983,-11.7302 27.2011,-11.7623 27.2145,-11.7839 27.2337,-11.7998 27.3225,-11.858 27.3444,-11.8706 27.3886,-11.896 27.4236,-11.9234 27.4502,-11.9578 27.4562,-11.9867 27.4565,-12.007 27.4635,-12.0453 27.4998,-12.1475 27.505,-12.1597 27.5109,-12.168 27.5377,-12.1997 27.5561,-12.2127 27.5694,-12.2193 27.5926,-12.2314 27.6098,-12.2486 27.6247,-12.2764 27.6462,-12.2884 27.7665,-12.2837 27.791,-12.2695 27.8072,-12.246 27.8293,-12.2409 27.8545,-12.2507 27.8835,-12.2637 27.9047,-12.2769 27.9326,-12.2978 28.0177,-12.3537 28.132,-12.4152 28.1981,-12.4103 28.2878,-12.4191 28.315,-12.4261 28.4144,-12.5116 28.4986,-12.6426 28.4984,-12.6749 28.4837,-12.6927 28.4632,-12.7138 28.4658,-12.7406 28.5407,-12.8772 28.5652,-12.8774 28.5851,-12.8492 28.605,-12.8254 28.6414,-12.826 28.7106,-12.894 28.7924,-13.0117 28.8875,-13.1394 28.9178,-13.2358 28.9217,-13.2598 28.9252,-13.3161 28.9377,-13.3449 28.9858,-13.3833 29.0074,-13.3815 29.0329,-13.3722 29.065,-13.3738 29.1642,-13.4187 29.2751,-13.3577 29.4309,-13.2882 29.4521,-13.2746 29.4852,-13.2453 29.5118,-13.2196 29.5369,-13.2078 29.561,-13.2086 29.6497,-13.2518 29.6481,-13.2852 29.6175,-13.3013 29.5874,-13.367 29.6002,-13.4004 29.6208,-13.4194 29.6927,-13.4428 29.7676,-13.4344 29.7683,-13.4027 29.7695,-13.1565 29.7708,-12.7665 29.7721,-12.5269 29.7724,-12.4582 29.7735,-12.2117 29.7733,-12.1499 29.772,-12.1416 29.737,-12.1402 29.5359,-12.1769 29.4406,-12.2352 29.414,-12.3248 29.4565,-12.3793 29.4909,-12.3814 29.4945,-12.4112 29.4841,-12.4284 29.4489,-12.4454 29.4377,-12.4432 29.3672,-12.4198 29.2285,-12.3513 29.1442,-12.3548 29.1164,-12.3622 29.0714,-12.377 29.0246,-12.3733 28.9946,-12.363 28.9926,-12.3417 28.9685,-12.2913 28.9034,-12.1866 28.8874,-12.1676 28.8036,-12.0834 28.6658,-11.9746 28.6452,-11.9675 28.6004,-11.9429 28.4687,-11.8572 28.417,-11.7631 28.4136,-11.7109 28.3944,-11.6493 28.3757,-11.6055 28.3639,-11.5818 28.348,-11.5636 28.3343,-11.5425 28.326,-11.5113 28.3269,-11.4626 28.3356,-11.4213 28.3794,-11.3567 28.4337,-11.2319 28.4399,-11.2101 28.4544,-11.1499 28.4989,-10.9434 28.5178,-10.8433 28.5225,-10.8203 28.545,-10.7781 28.594,-10.7028 28.6299,-10.6985 28.6674,-10.6399 28.6319,-10.5448 28.6022,-10.5072 28.5637,-10.2345 28.5918,-10.1361 28.591,-9.9751 28.5947,-9.9366 28.6,-9.9146 28.6295,-9.8412 28.664,-9.7845 28.6384,-9.7375 28.5064,-9.4602 28.4876,-9.3484 28.456,-9.3264 28.3974,-9.3122 28.3591,-9.292 28.3409,-9.2685 28.346,-9.2399 28.3665,-9.2168 28.3843,-9.2073 28.4116,-9.1951 28.4423,-9.181 28.4853,-9.1578 28.5723,-9.0981 28.5909,-9.0835 28.6734,-9.0066 28.6967,-8.9817 28.7732,-8.8928 28.8117,-8.8473 28.8364,-8.817 28.8939,-8.7318 28.9206,-8.6768 28.9298,-8.6549 28.9283,-8.6258 28.9214,-8.5872 28.8984,-8.5195 28.8696,-8.4691 28.8904,-8.4651 28.9596,-8.4544 29.1682,-8.4236 29.2028,-8.418 29.3622,-8.3938 29.5355,-8.3671 29.5422,-8.364 29.5565,-8.364 29.8894,-8.3127 30.0489,-8.2881 30.2223,-8.2611 30.4028,-8.2325 30.4721,-8.2215 30.7008,-8.1861 30.7288,-8.1823 30.7368,-8.1827 30.725,-8.1355 30.6728,-7.986 30.6628,-7.9612 30.6344,-7.906 30.6163,-7.8715 30.5832,-7.8249 30.5433,-7.7691 30.4864,-7.6876 30.4755,-7.6706 30.4372,-7.6048 30.4217,-7.5714 30.4146,-7.5512 30.4057,-7.5212 30.3977,-7.4766 30.3954,-7.4474 30.3918,-7.4193 30.3867,-7.3969 30.3752,-7.3559 30.3451,-7.2715 30.3201,-7.2121 30.3039,-7.1791 30.281,-7.1355 30.2125,-7.0357 30.1926,-7.0068 30.1542,-6.9545 30.1381,-6.936 30.1078,-6.9112 30.0364,-6.8435 30.0308,-6.8378 30.0034,-6.8149 29.9687,-6.7943 29.9501,-6.785 29.916,-6.7713 29.8808,-6.7582 29.8515,-6.7431 29.7278,-6.6463 29.7056,-6.6268 29.6869,-6.6041 29.6703,-6.5788 29.5797,-6.3924 29.5338,-6.3238 29.5168,-6.2879 29.5074,-6.2558 29.4649,-6.0494 29.4615,-6.0021 29.4643,-5.9727 29.4711,-5.9391 29.4827,-5.9163 29.5047,-5.8833 29.5366,-5.845 29.5584,-5.8219 29.5753,-5.8005 29.5964,-5.7481 29.5978,-5.7152 29.5926,-5.6791 29.5637,-5.5728 29.5393,-5.514 29.5286,-5.49 29.5102,-5.4602 29.501,-5.4416 29.4937,-5.4212 29.4802,-5.3795 29.4536,-5.2876 29.4424,-5.2308 29.4209,-5.1706 29.3963,-5.1415 29.3805,-5.1195 29.3699,-5.0956 29.3462,-5.0354 29.3319,-4.9943 29.3297,-4.9895 29.318,-4.9458 29.3144,-4.9247 29.3087,-4.8782 29.3074,-4.8448 29.3081,-4.7923 29.3144,-4.7579 29.3253,-4.7242 29.3384,-4.6964 29.3642,-4.6326 29.3778,-4.598 29.3868,-4.573 29.3965,-4.5398 29.397,-4.496 29.3934,-4.4507 29.39,-4.4424 29.3741,-4.364 29.3643,-4.2907 29.3613,-4.2238 29.3597,-4.1904 29.3558,-4.1632 29.3449,-4.1289 29.3132,-4.05 29.303,-4.0325 29.2797,-4.0005 29.261,-3.9777 29.2418,-3.9556 29.2254,-3.9413 29.2057,-3.9164 29.1996,-3.8806 29.1906,-3.7851 29.197,-3.7465 29.1995,-3.7389 29.2033,-3.7155 29.2073,-3.6884 29.214,-3.5903 29.2091,-3.4921 29.2044,-3.4552 29.1991,-3.4187 29.1923,-3.3838 29.1807,-3.3295 29.1755,-3.3076 29.1815,-3.2864 29.204,-3.2681 29.1848,-3.2463 29.18,-3.15 29.2078,-3.114 29.2043,-3.0566 29.1827,-3.018 29.1522,-3.0178 29.1157,-2.9926 28.9582,-2.8111 28.9524,-2.781 28.9675,-2.7534 28.992,-2.7414 28.9847,-2.7206 28.9434,-2.6911 28.9103,-2.688 28.8911,-2.6768 28.8696,-2.657 28.8221,-2.5229 28.835,-2.3959 28.861,-2.3636 28.9525,-2.3315 29.0651,-2.2659 29.0857,-2.2386 29.0977,-2.2102 29.1113,-2.1867 29.1237,-2.1581 29.1338,-2.1305 29.1379,-2.0907 29.1349,-2.0661 29.1155,-2.0118 29.1027,-1.9741 29.0955,-1.9465 29.0917,-1.9138 29.0973,-1.8486 29.1107,-1.813 29.2185,-1.6528 29.2381,-1.6245 29.3292,-1.5092 29.4098,-1.5021 29.4234,-1.5023 29.437,-1.4805 29.4622,-1.4477 29.5053,-1.4118 29.5403,-1.3916 29.5639,-1.3839 29.5732,-1.3191 29.5658,-1.2129 29.5414,-1.1859 29.542,-0.915 29.5512,-0.8946 29.5858,-0.8905 29.6001,-0.7867 29.5861,-0.7425 29.6017,-0.6404 29.6335,-0.5798 29.6195,-0.4758 29.6157,-0.4392 29.6377,-0.304 29.6547,-0.2023 29.6758,-0.0743 29.7,-0.0030 29.6849,0.0429 29.6855,0.077 29.6988,0.1046 29.7472,0.1732 29.7735,0.1628 29.806,0.2773 29.825,0.3663 29.8792,0.4287 29.9265,0.4832 29.9222,0.5511 29.9053,0.6238 29.914,0.7871 29.9242,0.8176 29.9337,0.8352 29.9531,0.8459 29.9575,0.8499 29.9825,0.8659 30.0025,0.8738 30.0529,0.8924 30.0975,0.8945 30.1218,0.9083 30.1837,0.9934 30.1857,1.0427 30.1798,1.0641 30.2004,1.1297 30.2406,1.1658 30.3367,1.1972 30.4037,1.2008 30.422,1.2116 30.45,1.24 30.5149,1.3202 30.6369,1.4718 30.6612,1.4986 30.8137,1.6173 31.002,1.7636 31.1747,1.9852 31.2679,2.1191 31.2642,2.1605 31.1675,2.2266 31.0344,2.3227 30.9681,2.3945 30.95,2.4066 30.9291,2.4093 30.9051,2.3978 30.8922,2.3581 30.8802,2.3399 30.8517,2.3341 30.6953,2.4453 30.6966,2.4708 30.7216,2.5981 30.7524,2.672 30.7824,2.7363 30.817,2.7824 30.8417,2.837 30.8448,2.8829 30.8176,2.9597 30.7714,3.0102 30.7377,3.0255 30.729,3.0484 30.7475,3.1264 30.7933,3.2369 30.825,3.2867 30.8479,3.3209 30.8995,3.4102 30.8901,3.5071 30.8713,3.5208 30.824,3.4897 30.8123,3.5245 30.7517,3.656 30.7004,3.6338 30.5965,3.607 30.5573,3.6009 30.5274,3.6093 30.5406,3.6378 30.5469,3.6648 30.547,3.6962 30.5165,3.8597 30.4929,3.8687 30.4601,3.8609 30.4005,3.8816 30.3272,3.9209 30.3017,3.9358 30.2411,3.9548 30.209,3.9511 30.1736,3.9574 30.1327,4.0354 30.1141,4.0952 30.0853,4.1122 30.0455,4.1177 30.0277,4.1267 29.954,4.2291 29.9256,4.2865 29.8049,4.3421 29.7652,4.3704 29.7588,4.4283 29.7661,4.4641 29.7727,4.4911 29.7795,4.554 29.665,4.6125 29.6098,4.6386 29.5812,4.651 29.4607,4.6785 29.4341,4.6587 29.4329,4.6295 29.4308,4.587 29.3995,4.5207 29.2918,4.385 29.2103,4.3415 29.1772,4.3373 29.1264,4.3814 29.0985,4.4072 28.9785,4.4922 28.9445,4.4788 28.8575,4.473 28.7949,4.4778 28.7702,4.4923 28.771,4.514 28.7497,4.5525 28.6798,4.5326 28.6609,4.5059 28.6553,4.4797 28.6404,4.4511 28.62,4.4206 28.601,4.4118 28.5523,4.397 28.4734,4.3682 28.4562,4.3451 28.4451,4.3259 28.3311,4.2853 28.1693,4.3431 28.0524,4.4278 27.9964,4.4973 27.8982,4.5461 27.8338,4.5521 27.7579,4.5952 27.7401,4.6608 27.7461,4.6923 27.7514,4.7524 27.7374,4.7825 27.6288,4.8909 27.4931,4.9381 27.4242,5.0109 27.3934,5.0641 27.3712,5.0788 27.2821,5.118 27.1113,5.1894 27.0595,5.1978 27.036,5.1953 26.9967,5.1801 26.978,5.1722 26.9108,5.1378 26.8777,5.0974 26.8542,5.0607 26.8388,5.0253 26.7627,5.0524 26.7281,5.0821 26.6852,5.087 26.65,5.0824 26.5907,5.063 26.4908,5.0364 26.4644,5.0401 26.4324,5.0537 26.4159,5.0827 26.364,5.1273 26.1678,5.227 26.0976,5.2432 26.0789,5.2285 26.0597,5.2008 26.0359,5.1916 25.9983,5.1848 25.882,5.1731 25.8622,5.1868 25.786,5.2305 25.6861,5.2774 25.6062,5.2996 25.5555,5.3589 25.511,5.3749 25.3332,5.3088 25.3102,5.2576 25.2836,5.1905 25.2818,5.1697 25.2999,5.1474 25.3198,5.137 25.3147,5.106 25.2875,5.0361 25.2613,5.0195 25.1991,5.0015 25.1532,4.9904 25.0611,4.9682 24.9673,4.9771 24.9457,4.9819 24.9226,4.9803 24.7902,4.9334 24.7496,4.9098 24.7064,4.9053 24.6149,4.9677 24.5771,5.0164 24.4978,5.0716 24.4483,5.0928 24.4316,5.0999 24.3594,5.1067 24.3295,5.0516 24.37,5.0297 24.3397,5.0032 24.2121,4.9536 24.1642,4.9367 24.0357,4.8964 23.8616,4.8186 23.7996,4.814 23.5528,4.7273 23.4132,4.6453 23.4028,4.6268 23.3979,4.5889 23.3558,4.5831 23.2994,4.5951 23.1857,4.6767 23.0726,4.7023 22.9905,4.7443 22.9712,4.7876 22.9445,4.8258 22.8672,4.815 22.7545,4.7072 22.7287,4.6487 22.7001,4.5677 22.658,4.4751 22.6354,4.4777 22.6029,4.4821 22.5736,4.4695 22.5625,4.4483 22.5618,4.407 22.5446,4.327 22.5129,4.2146 22.4717,4.1742 22.4486,4.1561 22.4607,4.1486 22.5016,4.1159 22.5547,4.1057 22.6896,3.9912 22.7632,3.9933 22.7652,3.9033 22.894,3.8522 22.9941,3.8788 23.0411,3.8604 23.1433,3.8952 23.2108,3.8727 23.3702,3.8073 23.4029,3.8339 23.4806,3.8155 23.5173,3.8236 23.4806,3.7255 23.4335,3.6969 23.3947,3.6356 23.3436,3.609 23.3048,3.6397 23.2333,3.6356 23.1699,3.6806 23.0411,3.5477 22.9819,3.5334 22.9226,3.5477 22.8613,3.5048 22.6692,3.4517 22.6222,3.3781 22.6365,3.325 22.7141,3.3004 22.7816,3.2779 22.8061,3.2268 22.7795,3.1144 22.7856,3.0347 22.8285,2.9857 22.9062,3.0613 22.9757,3.143 23.0329,3.1696 23.084,3.1512 23.0656,3.049 23.0268,2.9754 23.0247,2.91 22.9777,2.8467 23.0064,2.767 22.9573,2.6668 23.0513,2.5381 23.129,2.4992 23.3027,2.534 23.3477,2.5319 23.3844,2.5013 23.411,2.4624 23.6317,2.3337 23.6542,2.1947 23.6297,2.1783 23.5765,2.1926 23.5275,2.2192 23.3456,2.2539 23.1085,2.0945 23.0615,2.1027 22.9797,2.1906 22.9695,2.1558 22.9327,2.1436 22.9409,2.1252 22.9143,2.0945 22.8837,2.0986 22.8837,2.0679 22.8305,2.0312 22.7467,2.0107 22.7304,2.0291 22.6936,2.0352 22.6589,2.1047 22.5894,2.1272 22.569,2.1027 22.5894,2.0495 22.5097,1.9044 22.4954,1.8145 22.4831,1.7082 22.4279,1.6367 22.3257,1.5733 22.2889,1.5018 22.3891,1.4977 22.4872,1.465 22.5832,1.3934 22.6527,1.3178 22.6772,1.232 22.7304,1.1727 22.7549,1.091 22.7753,1.0501 22.8203,0.9888 22.8182,0.8907 22.855,0.8069 22.855,0.6823 22.9327,0.5862 22.947,0.4799 22.9981,0.3737 23.0819,0.2817 23.1166,0.1917 23.2699,0.0078 23.2842,-0.031 23.4089,-0.2047 23.4027,-0.2599 23.3291,-0.2804 23.2923,-0.3192 23.1452,-0.2783 22.9735,-0.405 23.229,-0.4316 23.2535,-0.497 23.464,-0.4316 23.556,-0.5747 23.6316,-0.6339 23.5866,-0.6728 23.4947,-0.6952 23.3557,-0.8056 23.5355,-0.9834 23.7522,-1.104 23.7685,-1.1796 23.8278,-1.1939 23.9197,-1.2838 24.0546,-1.3656 24.1343,-1.3901 24.2999,-1.386 24.3346,-1.4739 24.3775,-1.5332 24.4205,-1.7498 24.4235,-1.784 24.2782,-1.7769 24.0373,-1.7344 24.0018,-1.7769 23.8388,-1.7627 23.7786,-1.8017 23.7786,-1.9187 23.69,-1.9435 23.6935,-2.0179 23.5801,-2.0037 23.2824,-2.0462 23.2222,-2.0817 23.1371,-1.9612 23.0379,-1.9222 22.9351,-1.9576 22.8288,-1.862 22.7721,-1.862 22.6765,-1.7982 22.6339,-1.8053 22.5241,-1.9541 22.4178,-1.9506 22.3114,-1.9364 22.1874,-1.9045 22.1662,-1.9364 22.2158,-2.071 22.2299,-2.1809 22.2866,-2.3439 22.3008,-2.4254 22.2477,-2.4679 22.1839,-2.4361 22.2016,-2.3404 22.1839,-2.2943 22.1378,-2.273 22.0598,-2.3723 21.9571,-2.4077 21.9004,-2.4963 21.831,-2.5253 21.7591,-2.4835 21.6801,-2.451 21.643,-2.4185 21.6035,-2.4138 21.5524,-2.3627 21.4665,-2.3372 21.4526,-2.4719 21.362,-2.4835 21.2134,-2.5137 21.0788,-2.4997 21.0045,-2.4904 20.9534,-2.5903 20.965,-2.6646 20.9325,-2.7273 20.8675,-2.7876 20.7746,-2.985 20.6585,-3.3078 20.6469,-3.3681 20.6446,-3.4982 20.6446,-3.5585 20.6654,-3.7118 20.6608,-3.8557 20.6724,-3.9695 20.6701,-4.0043 20.6794,-4.0902 20.6724,-4.1576 20.6399,-4.1552 20.626,-4.1947 20.5006,-4.2574 20.4541,-4.2528 20.4402,-4.2829 20.41,-4.2736 20.3682,-4.2992 20.345,-4.399 20.3078,-4.3827 20.2707,-4.3944 20.2451,-4.3804 20.2196,-4.3293 20.1778,-4.334 20.1267,-4.2713 20.0408,-4.2783 20.0408,-4.3642 20.0919,-4.4338 20.0896,-4.4733 20.1151,-4.4988 20.1058,-4.5337 20.0803,-4.5499 20.0594,-4.6103 20.071,-4.666 20.0547,-4.6846 20.0547,-4.745 20.0803,-4.7984 20.1012,-4.9261 20.1499,-5.0027 20.136,-5.0282 20.1731,-5.0677 20.1964,-5.1652 20.1917,-5.2372 20.2033,-5.2744 20.1755,-5.2836 20.1755,-5.3115 20.1453,-5.3556 20.1476,-5.5576 20.1801,-5.6273 20.1732,-5.6947 20.1592,-5.769 20.1151,-5.8015 20.1058,-5.8479 20.0524,-5.8618 20.0106,-5.9454 19.9595,-5.9919 19.9224,-5.9895 19.7018,-6.1474 19.6925,-6.1846 19.7018,-6.3065 39,8.0,Philippines 119.7217,5.0438 119.7049,5.0468 119.6955,5.0514 119.6795,5.1261 119.6883,5.1416 119.7052,5.15 119.7238,5.1492 119.7399,5.1468 119.8922,5.2304 119.9168,5.2499 119.9412,5.2707 119.9913,5.3054 120.0385,5.3368 120.0743,5.3406 120.0829,5.3194 120.0805,5.2993 120.0947,5.2871 120.1166,5.2764 120.1196,5.255 120.1165,5.2277 120.0883,5.1209 120.06,5.1248 120.0426,5.1287 120.0325,5.1385 119.9757,5.167 119.914,5.1776 119.9004,5.1739 119.8707,5.1541 119.8629,5.1395 119.8582,5.1191 119.8563,5.1079 119.8518,5.0976 119.844,5.084 119.8283,5.0743 119.8176,5.0857 119.8054,5.0862 119.778,5.0662 119.7217,5.0438 119.7217,5.0438 5,-3.0,Brazil -66.8194,-9.8386 -66.5823,-9.9328 -66.5823,-9.9328 -66.8272,-9.8355 -66.8194,-9.8386 32,-3.0,Brazil -51.0719,-1.8223 -51.0792,-1.8222 -51.0864,-1.8221 -51.0911,-1.8492 -51.0862,-1.8615 -51.0551,-1.9052 -51.0956,-1.8693 -51.1028,-1.8404 -51.1308,-1.822 -51.2505,-1.7647 -51.3166,-1.8659 -51.4149,-2.0366 -51.4229,-2.0699 -51.3951,-2.2432 -51.3729,-2.2702 -51.3515,-2.2865 -51.3306,-2.3165 -51.3891,-2.2766 -51.42,-2.2356 -51.4639,-2.0438 -51.4599,-2.0221 -51.4489,-1.97 -51.4387,-1.9322 -51.4249,-1.8914 -51.3612,-1.779 -51.2787,-1.6453 -51.2461,-1.6588 -51.2226,-1.6797 -51.223,-1.7076 -51.2062,-1.7514 -51.0703,-1.8223 -51.0719,-1.8223 2203,-3.0,Brazil -57.5118,-30.159 -57.5017,-30.1629 -57.4896,-30.1812 -57.4915,-30.2133 -57.4726,-30.2325 -57.4499,-30.2406 -57.4207,-30.2459 -57.2818,-30.2382 -57.2476,-30.2324 -57.2291,-30.2413 -57.2107,-30.2594 -57.1594,-30.2592 -57.1395,-30.2578 -57.1193,-30.2487 -57.0736,-30.2043 -57.0729,-30.1742 -57.07,-30.1512 -57.0295,-30.1015 -56.9967,-30.0748 -56.8596,-30.0636 -56.7865,-30.0627 -56.7376,-30.0712 -56.7163,-30.0818 -56.5653,-30.1945 -56.4943,-30.2649 -56.4745,-30.2888 -56.4535,-30.3118 -56.4377,-30.3246 -56.314,-30.4258 -56.242,-30.4739 -56.1935,-30.5016 -56.1627,-30.5241 -56.0433,-30.6411 -55.9289,-30.761 -55.9169,-30.778 -55.9039,-30.8163 -55.912,-30.8561 -55.9292,-30.8872 -55.9336,-30.9287 -55.9393,-31.0314 -55.9358,-31.0447 -55.9136,-31.0467 -55.8376,-31.0474 -55.8176,-31.0452 -55.7653,-31.0378 -55.6868,-30.982 -55.5993,-30.9144 -55.5679,-30.8359 -55.5567,-30.8155 -55.5119,-30.8114 -55.4488,-30.8542 -55.3494,-30.9281 -55.2786,-31.0108 -55.2583,-31.0435 -55.1753,-31.1962 -55.1567,-31.2145 -55.0176,-31.2904 -54.9912,-31.2902 -54.9054,-31.2838 -54.871,-31.3156 -54.8422,-31.3392 -54.7945,-31.3744 -54.7626,-31.3914 -54.7356,-31.4002 -54.6915,-31.4058 -54.657,-31.4034 -54.6337,-31.4048 -54.523,-31.4254 -54.4014,-31.5442 -54.3923,-31.637 -54.3708,-31.6458 -54.3439,-31.6581 -54.3125,-31.6801 -54.2803,-31.7144 -54.2149,-31.7687 -54.0938,-31.8513 -54.0252,-31.8483 -54.0009,-31.8397 -53.8483,-31.9063 -53.8052,-31.9386 -53.6728,-32.0606 -53.5946,-32.1706 -53.5671,-32.2351 -53.5738,-32.2692 -53.5609,-32.3214 -53.4976,-32.3948 -53.4834,-32.4096 -53.4673,-32.4244 -53.4514,-32.4377 -53.3345,-32.5313 -53.3087,-32.5375 -53.2801,-32.5426 -53.1907,-32.5643 -53.1222,-32.5973 -53.0897,-32.6243 -53.0289,-32.6868 -53.1016,-32.7652 -53.1761,-32.8254 -53.2293,-32.9095 -53.3659,-33.003 -53.3927,-33.0218 -53.4108,-33.0376 -53.4304,-33.0627 -53.446,-33.092 -53.4511,-33.1045 -53.4549,-33.1199 -53.4604,-33.1621 -53.4587,-33.1838 -53.4526,-33.2219 -53.4459,-33.253 -53.4394,-33.2837 -53.4315,-33.3704 -53.4316,-33.3906 -53.4351,-33.4228 -53.4387,-33.4485 -53.4443,-33.4869 -53.4532,-33.5362 -53.4592,-33.5731 -53.4649,-33.6191 -53.4518,-33.6438 -53.328,-33.7031 -53.3047,-33.7028 -53.2412,-33.6687 -53.1995,-33.6412 -53.1659,-33.6176 -53.1469,-33.6027 -53.0779,-33.5396 -52.8812,-33.3882 -52.8426,-33.3581 -52.6673,-33.2136 -52.5713,-33.0965 -52.5602,-33.0779 -52.4506,-32.8757 -52.4312,-32.8356 -52.387,-32.7246 -52.3789,-32.693 -52.3735,-32.6654 -52.358,-32.6153 -52.3076,-32.4635 -52.2006,-32.2757 -52.1869,-32.2524 -52.1593,-32.2182 -52.086,-32.1655 -52.0227,-32.1283 -52.033,-32.0788 -52.055,-32.0671 -52.1155,-32.0446 -52.1591,-32.052 -52.1866,-32.0192 -52.1707,-31.9372 -52.1105,-31.9068 -52.1257,-31.8512 -52.1565,-31.8051 -52.1497,-31.7092 -52.1287,-31.6907 -52.0909,-31.6755 -52.0564,-31.6644 -52.0187,-31.6526 -51.9991,-31.638 -51.9746,-31.5995 -51.9371,-31.5137 -51.9303,-31.3891 -51.9236,-31.3628 -51.8959,-31.3022 -51.8507,-31.2727 -51.5884,-31.1868 -51.5806,-31.1545 -51.5729,-31.1335 -51.5492,-31.0997 -51.5049,-31.0889 -51.4463,-31.0643 -51.4006,-31.026 -51.4148,-30.9974 -51.4176,-30.9431 -51.4176,-30.9233 -51.4115,-30.8932 -51.3952,-30.8619 -51.3207,-30.7122 -51.319,-30.6364 -51.3099,-30.6167 -51.2854,-30.6003 -51.2563,-30.6217 -51.2267,-30.6925 -51.2247,-30.7318 -51.2413,-30.7451 -51.2103,-30.7654 -51.201,-30.7463 -51.199,-30.7233 -51.2192,-30.6152 -51.2229,-30.5556 -51.2021,-30.4748 -51.1762,-30.4142 -51.1395,-30.3698 -51.2197,-30.2526 -51.2478,-30.1273 -51.2085,-29.9768 -51.1673,-30.015 -51.1749,-30.0469 -51.15,-30.1275 -51.103,-30.1974 -51.0646,-30.2241 -51.0431,-30.2145 -50.9979,-30.206 -50.9454,-30.2553 -50.9553,-30.286 -50.9516,-30.3504 -50.9001,-30.3748 -50.8659,-30.3719 -50.857,-30.3009 -50.8441,-30.2823 -50.7159,-30.2605 -50.6194,-30.2616 -50.5969,-30.2506 -50.5883,-30.2185 -50.5988,-30.1966 -50.582,-30.1584 -50.5616,-30.1523 -50.539,-30.1599 -50.4782,-30.228 -50.4718,-30.2524 -50.4716,-30.2724 -50.4774,-30.3163 -50.5023,-30.4231 -50.5293,-30.4467 -50.5531,-30.4451 -50.5856,-30.4005 -50.621,-30.4382 -50.6073,-30.5647 -50.6108,-30.597 -50.6281,-30.6866 -50.6376,-30.7168 -50.662,-30.7565 -50.6846,-30.7764 -50.7052,-30.7897 -50.8066,-30.8421 -50.8602,-30.8644 -50.8904,-30.8956 -50.923,-31.0099 -50.9043,-31.0873 -50.927,-31.1014 -50.9446,-31.0556 -50.9917,-31.0389 -51.0924,-31.0427 -51.1047,-31.1185 -51.0948,-31.1472 -51.0924,-31.1688 -51.0899,-31.2343 -51.1015,-31.2854 -51.1256,-31.3662 -51.1661,-31.4176 -51.1844,-31.4362 -51.2022,-31.4488 -51.252,-31.4822 -51.2816,-31.4905 -51.317,-31.4927 -51.346,-31.4824 -51.3938,-31.5197 -51.4672,-31.6018 -51.5761,-31.7229 -51.593,-31.736 -51.6288,-31.7605 -51.7936,-31.8371 -51.8295,-31.8433 -51.8593,-31.8348 -51.8749,-31.8211 -51.8946,-31.8033 -51.9244,-31.7906 -51.9593,-31.7817 -51.9851,-31.7789 -52.0187,-31.7909 -52.0259,-31.8133 -52.0076,-31.8329 -51.9837,-31.8612 -51.9497,-31.907 -51.972,-32.0259 -51.9803,-32.0469 -51.9987,-32.073 -52.0131,-32.1119 -52.0017,-32.1359 -51.9063,-32.0213 -51.8742,-31.9785 -51.8361,-31.928 -51.8037,-31.9004 -51.7695,-31.8781 -51.6118,-31.7961 -51.5684,-31.7807 -51.5467,-31.7718 -51.4139,-31.6994 -51.1662,-31.5102 -51.067,-31.4304 -50.9975,-31.3731 -50.9749,-31.351 -50.8501,-31.2235 -50.7814,-31.1517 -50.6832,-31.046 -50.6491,-31.0064 -50.6096,-30.9568 -50.5853,-30.912 -50.5701,-30.8837 -50.4109,-30.6649 -50.3561,-30.5914 -50.3049,-30.5215 -50.2459,-30.4275 -50.2056,-30.3512 -50.1932,-30.3241 -50.1729,-30.2754 -50.1659,-30.2541 -50.1598,-30.231 -50.1072,-30.0911 -50.0175,-29.8648 -49.9934,-29.8132 -49.9772,-29.7822 -49.8817,-29.6226 -49.8375,-29.5513 -49.7275,-29.3887 -49.6881,-29.3365 -49.6377,-29.2917 -49.6247,-29.2753 -49.5948,-29.2325 -49.5674,-29.1875 -49.3862,-28.9941 -49.3274,-28.9381 -49.1479,-28.794 -49.1255,-28.7785 -48.8839,-28.6223 -48.8534,-28.6096 -48.779,-28.5855 -48.7203,-28.4919 -48.7948,-28.4449 -48.8055,-28.3952 -48.8062,-28.3073 -48.7894,-28.2884 -48.7304,-28.355 -48.7438,-28.4101 -48.7204,-28.4528 -48.6985,-28.4585 -48.5895,-28.1939 -48.5659,-28.0549 -48.5561,-27.9662 -48.5009,-27.8331 -48.5131,-27.7955 -48.527,-27.7768 -48.559,-27.7263 -48.5791,-27.6163 -48.5429,-27.5737 -48.5798,-27.4262 -48.5577,-27.2064 -48.4818,-27.1702 -48.4543,-27.1863 -48.4243,-27.1827 -48.4309,-27.1331 -48.4534,-27.0919 -48.481,-27.1086 -48.5026,-27.1211 -48.5305,-27.1102 -48.5503,-27.0783 -48.5667,-26.8461 -48.5671,-26.7421 -48.6157,-26.6999 -48.6219,-26.6751 -48.6217,-26.643 -48.6188,-26.5708 -48.6118,-26.542 -48.575,-26.4713 -48.5537,-26.439 -48.5472,-26.4099 -48.5834,-26.3553 -48.693,-26.2598 -48.7306,-26.1027 -48.7294,-26.0383 -48.7088,-26.074 -48.6832,-26.148 -48.6769,-26.184 -48.6362,-26.2105 -48.6144,-26.2118 -48.5896,-26.1964 -48.5186,-26.1463 -48.5143,-26.124 -48.5244,-26.1011 -48.5468,-26.0284 -48.5462,-26.0084 -48.5218,-25.952 -48.5093,-25.9119 -48.5187,-25.8429 -48.5793,-25.8526 -48.7077,-25.8549 -48.6948,-25.8286 -48.5396,-25.7959 -48.4607,-25.7511 -48.4303,-25.6903 -48.3889,-25.6235 -48.362,-25.59 -48.3157,-25.5653 -48.2998,-25.5506 -48.3173,-25.523 -48.4537,-25.488 -48.5002,-25.4965 -48.5434,-25.5021 -48.5821,-25.4954 -48.6463,-25.4697 -48.6679,-25.4486 -48.6565,-25.3961 -48.6276,-25.3892 -48.5774,-25.4204 -48.5042,-25.4364 -48.4188,-25.4516 -48.3993,-25.4453 -48.3527,-25.3893 -48.3744,-25.3598 -48.3856,-25.3432 -48.3793,-25.3212 -48.3678,-25.2894 -48.3332,-25.2674 -48.2971,-25.2772 -48.2755,-25.2997 -48.2198,-25.3016 -48.1627,-25.2728 -48.0727,-25.2563 -48.108,-25.2753 -48.1469,-25.2969 -48.1647,-25.3117 -48.1847,-25.3915 -48.1816,-25.4246 -48.1466,-25.4314 -48.1369,-25.397 -48.1233,-25.3649 -48.1073,-25.3451 -48.0214,-25.2862 -48.0133,-25.2671 -48.0021,-25.2499 -47.9826,-25.2267 -47.9584,-25.2008 -47.9233,-25.1892 -47.8915,-25.1709 -47.8737,-25.1516 -47.8533,-25.1241 -47.8339,-25.0754 -47.834,-25.0308 -47.8594,-25.037 -47.8934,-25.0519 -47.9354,-25.0484 -47.9927,-25.0232 -47.9651,-24.9869 -47.9221,-24.9821 -47.7733,-24.8679 -47.7374,-24.8452 -47.6563,-24.7948 -47.5366,-24.7103 -47.4856,-24.6806 -47.4244,-24.6666 -47.363,-24.6495 -47.2577,-24.5943 -47.155,-24.5352 -46.9462,-24.3594 -46.9263,-24.2915 -46.913,-24.276 -46.8917,-24.2608 -46.8654,-24.2434 -46.8425,-24.2294 -46.7829,-24.1945 -46.7643,-24.1845 -46.5335,-24.065 -46.4195,-24.0105 -46.378,-23.9941 -46.3587,-23.9588 -46.3753,-23.9144 -46.3223,-23.8419 -46.2474,-23.8923 -46.2247,-23.9351 -46.2168,-23.9638 -46.2421,-23.9737 -46.2536,-23.9919 -46.2215,-23.9988 -46.1376,-23.9652 -46.1081,-23.9332 -46.0598,-23.8388 -46.0927,-23.8519 -46.1284,-23.8897 -46.1688,-23.892 -46.0716,-23.8315 -46.0282,-23.8092 -45.9174,-23.7609 -45.8617,-23.7481 -45.8325,-23.7409 -45.7774,-23.7319 -45.6093,-23.7562 -45.5783,-23.7616 -45.4928,-23.7789 -45.4739,-23.7994 -45.4478,-23.8165 -45.3585,-23.8012 -45.3378,-23.7763 -45.346,-23.7276 -45.3699,-23.6846 -45.372,-23.6284 -45.3539,-23.6024 -45.2098,-23.5608 -45.0359,-23.484 -45.0037,-23.4695 -44.9553,-23.4319 -44.9727,-23.419 -44.945,-23.3804 -44.8878,-23.3358 -44.8504,-23.315 -44.7955,-23.346 -44.7824,-23.3633 -44.6738,-23.3385 -44.67,-23.3271 -44.6616,-23.3203 -44.579,-23.3168 -44.5451,-23.3299 -44.5188,-23.3273 -44.4451,-23.2635 -44.5137,-23.2039 -44.5874,-23.2024 -44.6534,-23.196 -44.6591,-23.1743 -44.6412,-23.0833 -44.6197,-23.0296 -44.5898,-23.0174 -44.5471,-23.0147 -44.478,-23.0019 -44.4181,-22.982 -44.3749,-22.9373 -44.3563,-22.9194 -44.2986,-22.8944 -44.268,-22.8948 -44.1818,-23.0222 -44.1369,-23.025 -44.071,-23.0062 -44.0374,-22.9808 -44.0207,-22.9607 -43.9838,-22.9111 -43.8042,-22.8708 -43.7145,-22.9007 -43.5527,-22.9928 -43.6502,-23.0193 -43.7183,-23.0277 -43.739,-23.0291 -43.7614,-23.0281 -43.8401,-23.025 -43.9222,-23.0148 -43.9464,-23.0312 -43.9514,-23.0513 -43.9505,-23.074 -43.9422,-23.077 -43.9222,-23.068 -43.8898,-23.0568 -43.851,-23.0485 -43.5853,-23.0201 -43.3361,-22.9853 -43.2798,-22.984 -43.2357,-22.9872 -43.1735,-22.9729 -43.1314,-22.9568 -43.0938,-22.926 -43.1098,-22.8685 -43.1756,-22.8099 -43.1981,-22.7992 -43.2085,-22.7808 -43.2174,-22.7519 -43.2004,-22.7109 -43.0225,-22.6429 -42.9729,-22.6536 -42.9671,-22.6908 -42.973,-22.7176 -43.01,-22.7769 -43.038,-22.8025 -43.0758,-22.8647 -43.0716,-22.9052 -43.0406,-22.9276 -42.8875,-22.9551 -42.6271,-22.9341 -42.6067,-22.9247 -42.5735,-22.9183 -42.5172,-22.9136 -42.4955,-22.9135 -42.3765,-22.9153 -42.0982,-22.9238 -41.9822,-22.8934 -41.9353,-22.8055 -41.923,-22.7093 -41.9381,-22.6801 -41.9426,-22.6387 -41.9436,-22.5986 -41.9352,-22.5401 -41.9141,-22.5089 -41.7977,-22.4123 -41.7113,-22.3207 -41.6472,-22.2759 -41.6195,-22.2597 -41.5564,-22.2288 -41.5303,-22.2184 -41.4916,-22.2061 -41.4697,-22.1992 -41.3489,-22.1612 -41.292,-22.1449 -41.2502,-22.1357 -41.2276,-22.1292 -41.1828,-22.1155 -41.1485,-22.1027 -40.9696,-22.009 -40.9514,-21.998 -40.9367,-21.9837 -40.9196,-21.9578 -40.9162,-21.9331 -40.9676,-21.6509 -40.9929,-21.5522 -40.9789,-21.4246 -40.9641,-21.4033 -40.9189,-21.3283 -40.9108,-21.2595 -40.9139,-21.2527 -40.9164,-21.2342 -40.9102,-21.212 -40.8953,-21.1849 -40.8832,-21.1685 -40.8397,-21.1193 -40.8149,-21.0942 -40.7939,-21.0633 -40.7823,-21.0338 -40.767,-20.9884 -40.7714,-20.9459 -40.7632,-20.9044 -40.7121,-20.831 -40.6909,-20.8183 -40.5931,-20.7909 -40.5774,-20.8078 -40.3679,-20.5933 -40.3567,-20.5761 -40.2957,-20.4647 -40.2863,-20.4456 -40.2331,-20.3206 -40.2825,-20.3022 -40.3191,-20.2891 -40.3156,-20.2616 -40.3006,-20.2118 -40.2439,-20.2196 -40.1914,-20.2611 -40.142,-20.1718 -40.1187,-20.0957 -40.0962,-20.0028 -40.0791,-19.9421 -39.9724,-19.7404 -39.9577,-19.7189 -39.9372,-19.7043 -39.8861,-19.6759 -39.8482,-19.6603 -39.8248,-19.6513 -39.7615,-19.6197 -39.7391,-19.5815 -39.6658,-19.4273 -39.6558,-19.4016 -39.6509,-19.3711 -39.6459,-19.2978 -39.6457,-19.2771 -39.6551,-19.1796 -39.6681,-19.0852 -39.675,-19.0575 -39.6823,-19.003 -39.6919,-18.9027 -39.6985,-18.772 -39.6996,-18.684 -39.6965,-18.6525 -39.6798,-18.509 -39.665,-18.4398 -39.6363,-18.3446 -39.6208,-18.305 -39.6102,-18.258 -39.5981,-18.2106 -39.5777,-18.1672 -39.4569,-17.9964 -39.4036,-17.9294 -39.3765,-17.9053 -39.3437,-17.8902 -39.2801,-17.8746 -39.25,-17.8622 -39.228,-17.8489 -39.0846,-17.6665 -39.0906,-17.6469 -39.1138,-17.6241 -39.1355,-17.5859 -39.142,-17.5617 -39.1471,-17.5253 -39.1632,-17.3598 -39.1671,-17.2903 -39.1657,-17.2329 -39.1616,-17.1465 -39.1513,-17.1132 -39.122,-17.0223 -39.0938,-16.9177 -39.0826,-16.8524 -39.0888,-16.8314 -39.0873,-16.7692 -39.0836,-16.7417 -39.0708,-16.709 -39.0533,-16.6789 -39.0371,-16.6135 -39.0343,-16.5889 -39.0302,-16.5436 -39.0174,-16.4798 -38.9997,-16.403 -38.967,-16.2687 -38.8973,-16.0609 -38.8253,-15.8562 -38.8402,-15.7773 -38.8638,-15.7262 -38.8891,-15.6446 -38.9055,-15.5287 -38.9448,-15.2467 -38.956,-15.0276 -38.9573,-14.9649 -38.9936,-14.8047 -39.0075,-14.7878 -39.0174,-14.6979 -39.0208,-14.6338 -39.0143,-14.6096 -38.9879,-14.5212 -38.9557,-14.3223 -38.9457,-14.2282 -38.9407,-14.1822 -38.9069,-14.0976 -38.8797,-14.0192 -38.8758,-13.9092 -38.8914,-13.8757 -38.9439,-13.9137 -38.9314,-13.9385 -38.9239,-13.9696 -38.9115,-14.0291 -38.9139,-14.0515 -38.991,-14.1591 -39.0292,-14.13 -39.02,-14.0592 -38.9833,-14.073 -38.9482,-14.0423 -38.9499,-13.995 -38.9646,-13.9562 -38.9849,-13.8275 -38.9544,-13.7754 -38.9185,-13.6705 -38.9397,-13.6082 -38.9592,-13.5895 -38.9634,-13.5505 -38.9489,-13.5251 -38.9641,-13.4911 -39.0122,-13.4782 -39.0354,-13.5231 -39.0124,-13.365 -38.9986,-13.3407 -38.9544,-13.3448 -38.9244,-13.3577 -38.9119,-13.3649 -38.9237,-13.3114 -38.9187,-13.2785 -38.9106,-13.2588 -38.8883,-13.217 -38.8087,-13.1565 -38.7927,-13.0423 -38.742,-13.0062 -38.7156,-12.9701 -38.6861,-12.8567 -38.7602,-12.8401 -38.7837,-12.8497 -38.8137,-12.8353 -38.8537,-12.7713 -38.8731,-12.7293 -38.8571,-12.6912 -38.8174,-12.6486 -38.8152,-12.6727 -38.8347,-12.6809 -38.8417,-12.7011 -38.8313,-12.742 -38.8101,-12.8107 -38.7742,-12.8288 -38.7392,-12.8052 -38.7071,-12.7504 -38.7043,-12.7083 -38.6781,-12.6043 -38.6544,-12.5667 -38.6107,-12.6143 -38.5984,-12.6733 -38.5831,-12.6962 -38.5661,-12.7067 -38.5062,-12.7113 -38.4639,-12.7119 -38.4352,-12.8331 -38.4441,-12.9023 -38.4676,-12.9115 -38.4869,-13.0011 -38.4309,-13.0019 -38.3066,-12.9456 -38.2746,-12.9225 -37.9986,-12.6186 -37.9525,-12.5619 -37.9118,-12.4619 -37.8871,-12.4157 -37.8291,-12.3523 -37.7508,-12.2445 -37.6579,-12.1149 -37.6422,-12.0886 -37.6171,-12.0448 -37.5891,-11.9893 -37.5755,-11.9614 -37.5616,-11.9268 -37.539,-11.873 -37.5244,-11.8388 -37.4134,-11.5971 -37.3818,-11.532 -37.405,-11.5061 -37.4464,-11.507 -37.4263,-11.5014 -37.4074,-11.492 -37.3694,-11.4677 -37.3524,-11.4349 -37.3706,-11.3898 -37.3538,-11.3211 -37.323,-11.2891 -37.2949,-11.2175 -37.3009,-11.1746 -37.2489,-11.1986 -37.2564,-11.2347 -37.2727,-11.2642 -37.2929,-11.2914 -37.3187,-11.2994 -37.3496,-11.388 -37.3302,-11.4169 -37.2807,-11.4072 -37.2701,-11.3732 -37.2328,-11.3011 -37.221,-11.2792 -37.1658,-11.2065 -37.1493,-11.0945 -37.1838,-11.0861 -37.2216,-11.0555 -37.2343,-11.0126 -37.1975,-11.0137 -37.171,-11.0229 -37.1512,-11.0444 -37.1472,-11.0645 -37.1134,-11.0871 -37.0321,-10.9549 -36.9991,-10.8303 -37.0136,-10.8149 -37.0433,-10.8151 -37.093,-10.8155 -37.1148,-10.7419 -37.0512,-10.7316 -37.0176,-10.7867 -36.9845,-10.8464 -36.9954,-10.88 -36.9913,-10.9164 -36.971,-10.9172 -36.954,-10.8958 -36.9146,-10.835 -36.8715,-10.7778 -36.8098,-10.7217 -36.6598,-10.6211 -36.6169,-10.5952 -36.517,-10.5353 -36.4805,-10.5182 -36.4228,-10.5068 -36.3648,-10.487 -36.3496,-10.4771 -36.2807,-10.3737 -36.2453,-10.2835 -36.2161,-10.245 -36.1809,-10.2081 -36.126,-10.1647 -36.088,-10.1405 -36.0034,-10.0624 -35.8665,-9.8711 -35.8385,-9.829 -35.8088,-9.772 -35.7599,-9.6786 -35.6352,-9.5998 -35.5794,-9.5443 -35.3627,-9.309 -35.3376,-9.2798 -35.2883,-9.2182 -35.2503,-9.1551 -35.1815,-9.0204 -35.1599,-9.0001 -35.1419,-8.9764 -35.1247,-8.9454 -35.1095,-8.9031 -35.0928,-8.8606 -35.0657,-8.7659 -35.0284,-8.6632 -35.0027,-8.6064 -34.9018,-8.3331 -34.8649,-8.186 -34.8256,-8.0638 -34.807,-8.0536 -34.7919,-8.0001 -34.7761,-7.9261 -34.7766,-7.9005 -34.7884,-7.8584 -34.8053,-7.8267 -34.826,-7.8231 -34.8505,-7.8032 -34.8507,-7.7726 -34.8435,-7.737 -34.8154,-7.6911 -34.7881,-7.6738 -34.7623,-7.6273 -34.7793,-7.5817 -34.7977,-7.5491 -34.8536,-7.5344 -34.7938,-7.534 -34.7708,-7.4957 -34.7623,-7.3805 -34.7601,-7.3281 -34.7536,-7.1647 -34.7911,-7.1005 -34.7971,-7.0549 -34.7842,-7.0244 -34.7915,-6.9737 -34.8076,-7.0136 -34.8245,-7.0692 -34.8618,-7.1171 -34.8586,-7.0896 -34.8598,-7.0608 -34.836,-7.032 -34.8244,-6.9714 -34.8285,-6.9308 -34.8435,-6.8989 -34.9145,-6.6708 -34.9206,-6.6497 -34.9253,-6.6202 -34.9241,-6.595 -34.9211,-6.5335 -34.9263,-6.4964 -34.9274,-6.4749 -34.932,-6.4315 -34.9403,-6.3991 -35.0015,-6.2266 -35.0478,-6.1921 -35.0527,-6.1717 -35.0608,-6.0848 -35.0916,-5.9524 -35.1053,-5.9322 -35.1552,-5.74 -35.1533,-5.6916 -35.1852,-5.5773 -35.2749,-5.3804 -35.3325,-5.2729 -35.3738,-5.2125 -35.439,-5.16 -35.4706,-5.144 -35.5635,-5.105 -35.6007,-5.1049 -35.6451,-5.1021 -35.8086,-5.0731 -35.8933,-5.0464 -35.9331,-5.0435 -35.9632,-5.0451 -36.0274,-5.0681 -36.0823,-5.0898 -36.2449,-5.1051 -36.299,-5.0881 -36.3831,-5.0751 -36.4287,-5.0718 -36.5397,-5.0823 -36.5707,-5.0935 -36.6425,-5.0926 -36.7269,-5.0609 -36.7628,-5.0309 -36.7754,-5.0085 -36.8346,-4.9479 -36.913,-4.9222 -37.0259,-4.9227 -37.0828,-4.9245 -37.1131,-4.9222 -37.1318,-4.9131 -37.1684,-4.8742 -37.1826,-4.8541 -37.1983,-4.8256 -37.2301,-4.7382 -37.2471,-4.7208 -37.2807,-4.6953 -37.3018,-4.6852 -37.3796,-4.6522 -37.4325,-4.6358 -37.506,-4.6339 -37.5532,-4.6122 -37.6021,-4.5816 -37.6692,-4.5178 -37.6889,-4.4795 -37.7623,-4.3898 -37.8756,-4.3128 -37.968,-4.2481 -38.0286,-4.1921 -38.0654,-4.1529 -38.0979,-4.1168 -38.1204,-4.0867 -38.1339,-4.0524 -38.2184,-3.947 -38.248,-3.9387 -38.2685,-3.9309 -38.2959,-3.9075 -38.4527,-3.7205 -38.4864,-3.7166 -38.5918,-3.6861 -38.6174,-3.6742 -38.8085,-3.5388 -38.8862,-3.4576 -38.9135,-3.417 -38.95,-3.3915 -38.9786,-3.3827 -39.028,-3.3788 -39.1756,-3.2855 -39.3361,-3.1859 -39.4302,-3.152 -39.5306,-3.0901 -39.6721,-3.0222 -39.6934,-3.0118 -39.7851,-2.9512 -39.8182,-2.9154 -39.9533,-2.8431 -40.1455,-2.8165 -40.2751,-2.8022 -40.427,-2.7926 -40.4612,-2.7987 -40.503,-2.8184 -40.5596,-2.835 -40.5849,-2.8363 -40.6103,-2.8362 -40.7445,-2.8625 -40.8641,-2.8693 -41.1762,-2.877 -41.2173,-2.9287 -41.1917,-2.9715 -41.1895,-3.0114 -41.2014,-3.0198 -41.2221,-2.9818 -41.2854,-2.9271 -41.3547,-2.9052 -41.4289,-2.8939 -41.4483,-2.903 -41.4728,-2.9088 -41.5569,-2.9011 -41.6277,-2.8798 -41.6475,-2.8607 -41.6194,-2.8599 -41.6326,-2.8411 -41.6521,-2.8268 -41.68,-2.8098 -41.7459,-2.7715 -41.779,-2.7588 -41.793,-2.7638 -41.7872,-2.7365 -41.8234,-2.729 -41.9019,-2.7423 -41.9307,-2.7534 -41.8881,-2.7837 -41.8895,-2.817 -41.9047,-2.8417 -41.9799,-2.8266 -42.014,-2.8162 -42.0624,-2.7995 -42.1638,-2.8053 -42.1878,-2.8298 -42.1859,-2.8023 -42.222,-2.7531 -42.2436,-2.7508 -42.2648,-2.7564 -42.296,-2.7657 -42.4094,-2.7474 -42.4562,-2.7285 -42.5775,-2.6434 -42.6342,-2.5802 -42.6585,-2.5599 -42.7068,-2.555 -42.7478,-2.5578 -42.8414,-2.4999 -42.8855,-2.4693 -42.9145,-2.4629 -42.9521,-2.4624 -42.9913,-2.4508 -43.0673,-2.4229 -43.1205,-2.395 -43.2343,-2.3705 -43.2728,-2.3649 -43.2985,-2.3628 -43.3891,-2.365 -43.4288,-2.3798 -43.4295,-2.4081 -43.4093,-2.4552 -43.3991,-2.5346 -43.5112,-2.5199 -43.6583,-2.5068 -43.7503,-2.5487 -43.8236,-2.5667 -43.8786,-2.5455 -43.9557,-2.6299 -43.9718,-2.6481 -44.0713,-2.7674 -44.1278,-2.8447 -44.1482,-2.8655 -44.1644,-2.8463 -44.1269,-2.8133 -44.1406,-2.7602 -44.2144,-2.7799 -44.2276,-2.8069 -44.2431,-2.8319 -44.2902,-2.8241 -44.2883,-2.7773 -44.2172,-2.7304 -44.1828,-2.71 -44.1372,-2.6923 -44.1121,-2.6871 -44.0832,-2.665 -43.992,-2.5444 -43.9792,-2.5157 -43.9842,-2.4106 -44.0137,-2.403 -44.0549,-2.411 -44.0741,-2.4226 -44.1178,-2.4508 -44.1618,-2.4704 -44.2065,-2.4796 -44.2333,-2.4783 -44.3068,-2.5238 -44.3173,-2.5522 -44.334,-2.6981 -44.3555,-2.8647 -44.3602,-2.8947 -44.3726,-2.9309 -44.3867,-2.9513 -44.4067,-2.9796 -44.4298,-3.0047 -44.4963,-3.0527 -44.5654,-3.1065 -44.6093,-3.1841 -44.7024,-3.2706 -44.7356,-3.2938 -44.7332,-3.2007 -44.7057,-3.1894 -44.5753,-3.0516 -44.5732,-3.0305 -44.627,-3.0133 -44.6407,-2.9915 -44.6318,-2.9091 -44.6013,-2.7647 -44.5581,-2.6715 -44.5273,-2.6136 -44.5318,-2.5639 -44.4571,-2.4677 -44.3913,-2.4091 -44.3563,-2.4069 -44.329,-2.3968 -44.3104,-2.3393 -44.3117,-2.3174 -44.3165,-2.2921 -44.3448,-2.1959 -44.3782,-2.1538 -44.4007,-2.1438 -44.454,-2.1459 -44.5658,-2.2543 -44.5836,-2.2813 -44.6047,-2.3208 -44.6109,-2.2784 -44.5865,-2.2208 -44.5385,-2.1677 -44.4465,-2.0453 -44.4397,-1.9843 -44.4614,-1.9051 -44.4775,-1.8568 -44.4885,-1.8301 -44.5189,-1.8144 -44.5899,-1.7869 -44.6447,-1.8154 -44.6694,-1.7912 -44.7486,-1.7029 -44.7397,-1.6248 -44.7477,-1.6059 -44.7769,-1.5742 -44.8568,-1.6131 -44.8629,-1.637 -44.884,-1.6171 -44.9009,-1.5996 -44.8646,-1.544 -44.8285,-1.5009 -44.8053,-1.4878 -44.7976,-1.4651 -44.8083,-1.4288 -44.9045,-1.5004 -44.9539,-1.4871 -45.041,-1.4621 -45.1081,-1.4787 -45.1477,-1.518 -45.1926,-1.5706 -45.2012,-1.6092 -45.1893,-1.6412 -45.1715,-1.6736 -45.2329,-1.7335 -45.2699,-1.7421 -45.2995,-1.7345 -45.3158,-1.7134 -45.3215,-1.539 -45.3044,-1.4755 -45.2662,-1.439 -45.2485,-1.4163 -45.248,-1.379 -45.2594,-1.3361 -45.2739,-1.3131 -45.3021,-1.3131 -45.3051,-1.3349 -45.3338,-1.412 -45.4027,-1.5419 -45.4111,-1.5438 -45.4122,-1.5082 -45.4552,-1.4632 -45.3637,-1.3537 -45.3959,-1.3093 -45.5041,-1.2754 -45.5586,-1.2778 -45.5654,-1.3071 -45.5631,-1.3385 -45.5817,-1.3699 -45.6446,-1.367 -45.6682,-1.2174 -45.6841,-1.1786 -45.7336,-1.2659 -45.8098,-1.258 -45.8097,-1.2345 -45.825,-1.1698 -45.8384,-1.1391 -45.9238,-1.0762 -45.9611,-1.11 -45.9833,-1.1584 -45.9794,-1.193 -45.995,-1.2087 -46.0354,-1.2088 -46.0391,-1.1773 -46.0756,-1.1047 -46.113,-1.1449 -46.2073,-1.1764 -46.1946,-1.1415 -46.1596,-1.058 -46.1398,-0.9563 -46.2095,-0.9877 -46.3658,-1.0363 -46.3959,-1.0417 -46.4868,-1.0275 -46.5036,-1.0039 -46.5476,-1.0205 -46.519,-0.9748 -46.5489,-0.8665 -46.5777,-0.8245 -46.6928,-0.8287 -46.7382,-0.8411 -46.7645,-0.8123 -46.7505,-0.7602 -46.75,-0.727 -46.7742,-0.7123 -46.8144,-0.7775 -46.8485,-0.8637 -46.907,-0.8971 -46.9049,-0.8591 -46.8732,-0.8393 -46.907,-0.7018 -47.0128,-0.7523 -47.1172,-0.7062 -47.1569,-0.6403 -47.2325,-0.5983 -47.378,-0.5817 -47.4061,-0.5941 -47.4173,-0.6213 -47.409,-0.6989 -47.4001,-0.7172 -47.379,-0.7221 -47.3389,-0.7509 -47.3319,-0.7753 -47.3446,-0.8116 -47.4301,-0.7347 -47.4773,-0.6447 -47.4953,-0.6351 -47.536,-0.6475 -47.5451,-0.6767 -47.5589,-0.6973 -47.5863,-0.7186 -47.6109,-0.7352 -47.6793,-0.7453 -47.6589,-0.7018 -47.6654,-0.6656 -47.691,-0.6364 -47.7203,-0.6407 -47.7944,-0.6899 -47.8382,-0.7279 -47.9077,-0.7751 -47.9352,-0.7564 -47.942,-0.7365 -47.979,-0.7019 -48.0023,-0.7072 -48.1839,-0.8667 -48.2379,-0.9438 -48.2586,-0.9835 -48.2636,-1.006 -48.2607,-1.0271 -48.2553,-1.0397 -48.217,-1.1165 -48.2249,-1.1559 -48.2855,-1.316 -48.3508,-1.3087 -48.3711,-1.2948 -48.3938,-1.2847 -48.4268,-1.3033 -48.4442,-1.407 -48.4452,-1.4596 -48.4255,-1.4735 -48.3937,-1.4728 -48.3735,-1.4633 -48.3373,-1.4547 -48.278,-1.4481 -48.2446,-1.4456 -48.2006,-1.4441 -48.1599,-1.4487 -48.1347,-1.4644 -48.2927,-1.4952 -48.359,-1.4974 -48.3986,-1.5625 -48.3835,-1.589 -48.3762,-1.6104 -48.3701,-1.6385 -48.3725,-1.6581 -48.4485,-1.62 -48.4853,-1.58 -48.4944,-1.5477 -48.552,-1.4693 -48.5691,-1.4886 -48.5917,-1.4989 -48.6173,-1.4832 -48.6424,-1.4674 -48.6759,-1.4969 -48.7189,-1.5701 -48.763,-1.6425 -48.8592,-1.7512 -48.9154,-1.8384 -48.9472,-1.8511 -48.9949,-1.8566 -49.032,-1.8527 -49.0693,-1.8751 -49.118,-1.8785 -49.1352,-1.8958 -49.2065,-1.9963 -49.2451,-2.0987 -49.2556,-2.1431 -49.2788,-2.202 -49.313,-2.2644 -49.3599,-2.3475 -49.3772,-2.3949 -49.3802,-2.4494 -49.3779,-2.4851 -49.396,-2.5153 -49.4341,-2.5619 -49.4189,-2.4778 -49.4138,-2.4269 -49.4136,-2.4034 -49.4188,-2.3827 -49.4351,-2.3456 -49.4507,-2.3116 -49.45,-2.2548 -49.4206,-2.209 -49.3967,-2.188 -49.3675,-2.1191 -49.3521,-2.023 -49.312,-1.9269 -49.2303,-1.7876 -49.2216,-1.7643 -49.2253,-1.7156 -49.2747,-1.7111 -49.3861,-1.7439 -49.4183,-1.7604 -49.4487,-1.7823 -49.4645,-1.7973 -49.4755,-1.8143 -49.5143,-1.8468 -49.5823,-1.8731 -49.7855,-1.9005 -49.8167,-1.8803 -49.8971,-1.8321 -49.9465,-1.8187 -50.2085,-1.8807 -50.2465,-1.902 -50.2648,-1.9128 -50.2935,-1.9389 -50.3136,-1.9456 -50.3597,-1.9497 -50.3901,-1.9477 -50.4109,-1.9296 -50.4022,-1.9114 -50.372,-1.8914 -50.3938,-1.8551 -50.5174,-1.8142 -50.6209,-1.8081 -50.7487,-1.9371 -50.7656,-1.9576 -50.7659,-1.9856 -50.7466,-2.0362 -50.7065,-2.1212 -50.673,-2.1694 -50.643,-2.2022 -50.6592,-2.2206 -50.7359,-2.1654 -50.7298,-2.1143 -50.7828,-2.0369 -50.8742,-1.9901 -50.9268,-2.0668 -50.9421,-2.1979 -50.9491,-2.3032 -50.9486,-2.3372 -50.9344,-2.3809 -50.8578,-2.448 -50.8328,-2.457 -50.8082,-2.4634 -50.7866,-2.5046 -50.803,-2.4994 -50.8194,-2.4729 -50.8668,-2.463 -50.9065,-2.4413 -50.9385,-2.4147 -50.9576,-2.3824 -50.9717,-2.3422 -50.997,-2.1922 -50.9639,-2.1778 -50.9498,-2.157 -50.9376,-2.1083 -50.9335,-2.0272 -50.9465,-2.0089 -50.9811,-1.9753 -50.9306,-1.9913 -50.9132,-1.9818 -50.8863,-1.9613 -50.8622,-1.9719 -50.8303,-1.9945 -50.7888,-2.0016 -50.7917,-1.9782 -50.8083,-1.9065 -50.9143,-1.8516 -50.9235,-1.8473 -51.0041,-1.8221 -51.0703,-1.8223 -51.0104,-1.8095 -50.9294,-1.8293 -50.8131,-1.8624 -50.7576,-1.896 -50.7276,-1.8877 -50.61,-1.7696 -50.6024,-1.7395 -50.6217,-1.6332 -50.6307,-1.6154 -50.6473,-1.5976 -50.6834,-1.5652 -50.7052,-1.5463 -50.7574,-1.4427 -50.7782,-1.3386 -50.7687,-1.2772 -50.7581,-1.2493 -50.7475,-1.2098 -50.745,-1.1724 -50.7692,-0.9277 -50.7958,-0.9137 -50.8655,-0.9095 -50.9379,-0.9274 -50.9512,-0.9543 -50.9408,-0.9782 -50.9354,-0.9974 -50.9777,-1.0436 -51.0034,-1.0594 -51.0571,-1.0807 -51.1118,-1.1093 -51.1547,-1.1424 -51.1893,-1.2067 -51.3917,-1.3253 -51.4308,-1.3462 -51.5096,-1.3777 -51.5478,-1.3874 -51.5774,-1.3923 -51.6052,-1.4007 -51.7611,-1.503 -51.7909,-1.5276 -51.8155,-1.5512 -51.8883,-1.588 -51.9569,-1.6147 -51.9951,-1.6072 -52.0291,-1.6247 -52.0695,-1.6174 -52.0945,-1.6252 -52.1193,-1.6425 -52.1363,-1.6643 -52.1498,-1.6901 -52.1901,-1.7029 -52.2096,-1.6798 -52.1801,-1.6658 -52.1698,-1.6478 -52.1698,-1.6053 -52.1785,-1.5755 -52.2147,-1.539 -52.2344,-1.5329 -52.2912,-1.5424 -52.2838,-1.7089 -52.2354,-2.036 -52.1324,-2.3085 -52.0053,-2.5386 -51.9888,-2.6429 -52.0362,-2.6971 -52.0227,-2.8089 -51.9448,-2.8699 -51.877,-2.958 -51.8364,-3.0393 -51.8126,-3.0867 -51.7212,-3.1104 -51.6162,-3.1443 -51.6229,-3.2086 -51.6297,-3.273 -51.6975,-3.3374 -51.7483,-3.3577 -51.7076,-3.395 -51.6771,-3.4559 -51.7381,-3.5406 -51.8397,-3.6084 -51.921,-3.5576 -51.9515,-3.5101 -51.9414,-3.4187 -51.982,-3.3746 -52.0362,-3.334 -52.0464,-3.2899 -52.0904,-3.2764 -52.1345,-3.2324 -52.1683,-3.2527 -52.1548,-3.3441 -52.1853,-3.4322 -52.2225,-3.4322 -52.2327,-3.5101 -52.314,-3.5779 -52.3513,-3.666 -52.4648,-3.7609 -52.6016,-3.8617 -52.6016,-3.9697 -52.6232,-4.1569 -52.724,-4.2433 -52.7528,-4.3873 -52.6592,-4.4449 -52.724,-4.6825 -52.8176,-4.8049 -52.8248,-4.8841 -52.9328,-5.0209 -52.8824,-5.1937 -52.8536,-5.4025 -52.6952,-5.4745 -52.6304,-5.7049 -52.5296,-5.8777 -52.5224,-6.0721 -52.4216,-6.2017 -52.4288,-6.3601 -52.3568,-6.3889 -52.2632,-6.5113 -52.2416,-6.5761 -52.1768,-6.5833 -52.0904,-6.5617 -52.0362,-6.627 -52.0086,-6.6606 -51.9871,-6.7127 -52.0025,-6.7831 -52.0025,-6.8199 -52.0821,-6.924 -52.1801,-6.9546 -52.2352,-6.9516 -52.3271,-6.9546 -52.4006,-6.9761 -52.4465,-7.0067 -52.4618,-7.0833 -52.5047,-7.1139 -52.5323,-7.1139 -52.5782,-7.1813 -52.5874,-7.2272 -52.5813,-7.267 -52.5874,-7.316 -52.6088,-7.3344 -52.6946,-7.4355 -52.6946,-7.4875 -52.6732,-7.5212 -52.6487,-7.5457 -52.6732,-7.5733 -52.7068,-7.5763 -52.7558,-7.6437 -52.7803,-7.7478 -52.7865,-7.8152 -52.814,-7.8367 -52.811,-7.8643 -52.7926,-7.9378 -52.7344,-8.0327 -52.713,-8.1185 -52.6762,-8.2073 -52.6517,-8.2257 -52.6456,-8.3359 -52.6732,-8.4339 -52.615,-8.4523 -52.5782,-8.4921 -52.5629,-8.5411 -52.4955,-8.5625 -52.4373,-8.5625 -52.3822,-8.5779 -52.3087,-8.636 -52.3056,-8.6881 -52.2689,-8.7095 -52.2811,-8.8075 -52.2076,-8.8382 -52.1648,-8.8872 -52.0974,-8.9209 -52.0882,-8.9729 -52.0576,-8.9974 -52.0362,-9.074 -52.076,-9.1444 -52.0484,-9.1873 -52.0454,-9.221 -52.0239,-9.2394 -52.0117,-9.2669 -52.0913,-9.3404 -52.1127,-9.3772 -52.125,-9.4139 -52.1495,-9.4293 -52.1709,-9.4538 -52.174,-9.515 -52.1954,-9.5732 -52.1893,-9.6008 -52.2353,-9.6467 -52.2843,-9.6559 -52.3271,-9.6436 -52.4037,-9.6345 -52.4435,-9.613 -52.4803,-9.5916 -52.5017,-9.5946 -52.5384,-9.5793 -52.5783,-9.5916 -52.5936,-9.6467 -52.6089,-9.6467 -52.6211,-9.662 -52.6273,-9.6957 -52.6334,-9.7171 -52.1618,-9.7447 -51.3471,-9.7876 -50.2324,-9.8458 -50.2727,-9.903 -50.2901,-9.962 -50.2901,-9.9967 -50.3352,-10.0661 -50.3774,-10.1051 -50.3936,-10.1521 -50.3904,-10.2283 -50.405,-10.2754 -50.4196,-10.337 -50.4325,-10.3662 -50.4812,-10.3889 -50.4958,-10.4489 -50.5039,-10.4992 -50.5218,-10.5284 -50.5282,-10.5706 -50.5412,-10.5884 -50.5493,-10.6095 -50.5769,-10.6176 -50.5915,-10.6452 -50.6077,-10.6581 -50.5866,-10.7084 -50.5834,-10.7538 -50.598,-10.7911 -50.6207,-10.8073 -50.6288,-10.8333 -50.611,-10.8803 -50.6369,-10.9225 -50.6385,-10.9436 -50.6207,-10.989 -50.6207,-11.0149 -50.6126,-11.0247 -50.6093,-11.0668 -50.6223,-11.0912 -50.6434,-11.1009 -50.6693,-11.1593 -50.6564,-11.2225 -50.658,-11.2404 -50.6758,-11.2647 -50.6953,-11.3004 -50.7261,-11.4026 -50.7423,-11.4658 -50.7439,-11.4918 -50.7374,-11.5226 -50.7212,-11.5404 -50.7147,-11.5599 -50.6596,-11.5842 -50.6482,-11.6021 -50.6596,-11.6702 -50.7099,-11.714 -50.7131,-11.7513 -50.692,-11.7756 -50.6936,-11.8097 -50.6758,-11.8372 -50.6791,-11.8729 -50.645,-11.8794 -50.645,-11.915 -50.6645,-11.9199 -50.6677,-11.9394 -50.6531,-11.9507 -50.658,-11.9799 -50.6823,-11.9978 -50.6823,-12.0529 -50.6742,-12.0837 -50.6742,-12.2005 -50.6596,-12.2281 -50.6417,-12.2297 -50.632,-12.2686 -50.6174,-12.2881 -50.6304,-12.3189 -50.6158,-12.3903 -50.6109,-12.4308 -50.6174,-12.447 -50.6369,-12.4519 -50.6336,-12.4762 -50.6417,-12.5281 -50.6531,-12.5768 -50.658,-12.6076 -50.6694,-12.6011 -50.6742,-12.6206 -50.6677,-12.6433 -50.6239,-12.6562 -50.6223,-12.6919 -50.6093,-12.7455 -50.6126,-12.7649 -50.598,-12.7795 -50.6012,-12.8103 -50.5818,-12.8022 -50.5574,-12.8022 -50.5688,-12.8265 -50.5315,-12.846 -50.4812,-12.8428 -50.4765,-12.875 -50.4954,-12.9333 -50.5143,-12.9845 -50.5662,-13.0152 -50.567,-13.0254 -50.5536,-13.0317 -50.5489,-13.0506 -50.5757,-13.0632 -50.5906,-13.079 -50.578,-13.0994 -50.5725,-13.1286 -50.5796,-13.1585 -50.5828,-13.1939 -50.567,-13.2215 -50.5812,-13.2711 -50.6017,-13.3137 -50.6639,-13.3948 -50.6631,-13.4286 -50.6694,-13.4467 -50.6915,-13.4593 -50.719,-13.4979 -50.7387,-13.5152 -50.7592,-13.5404 -50.764,-13.5664 -50.7647,-13.5932 -50.7805,-13.6334 -50.7884,-13.6672 -50.8262,-13.7019 -50.8711,-13.7176 -50.86,-13.7491 -50.8608,-13.8145 -50.8435,-13.8712 -50.8466,-13.9027 -50.8553,-13.9358 -50.8671,-13.9665 -50.8568,-14.0043 -50.8592,-14.0452 -50.8427,-14.0673 -50.8474,-14.0925 -50.8757,-14.1114 -50.9025,-14.1177 -50.9214,-14.113 -50.9261,-14.1224 -50.9167,-14.1453 -50.9175,-14.1586 -50.9372,-14.1917 -50.9624,-14.2311 -50.9742,-14.2917 -50.971,-14.3225 -50.9899,-14.3469 -50.9931,-14.3862 -51.0009,-14.4059 -50.9876,-14.439 -50.9671,-14.4799 -50.9687,-14.5004 -50.9679,-14.5335 -50.9868,-14.554 -50.9868,-14.5744 -51.0136,-14.6351 -51.0372,-14.6548 -51.0419,-14.7044 -51.0663,-14.7351 -51.06,-14.7863 -51.0719,-14.806 -51.0947,-14.8327 -51.0963,-14.8839 -51.1058,-14.8965 -51.1381,-14.9162 -51.1601,-14.9769 -51.1924,-14.9808 -51.2239,-14.9973 -51.2625,-15.0233 -51.2963,-15.0162 -51.3034,-14.991 -51.3097,-14.9666 -51.3278,-14.9627 -51.353,-14.9895 -51.3877,-14.995 -51.4129,-14.9973 -51.4357,-15.0194 -51.4664,-15.0477 -51.5144,-15.0564 -51.5263,-15.0753 -51.5452,-15.1115 -51.5672,-15.1226 -51.583,-15.1501 -51.6089,-15.1627 -51.6373,-15.1745 -51.6641,-15.232 -51.6466,-15.2589 -51.6506,-15.2762 -51.6718,-15.2872 -51.6844,-15.3337 -51.6742,-15.3565 -51.686,-15.3936 -51.6963,-15.4101 -51.7002,-15.4542 -51.7018,-15.481 -51.7152,-15.4936 -51.7388,-15.5022 -51.7467,-15.5353 -51.7624,-15.5416 -51.7845,-15.5314 -51.7915,-15.544 -51.7789,-15.581 -51.7742,-15.6038 -51.783,-15.6362 -51.8042,-15.6621 -51.8302,-15.7259 -51.8609,-15.7653 -51.8759,-15.8015 -51.9074,-15.822 -51.9389,-15.8 -51.9617,-15.8 -51.9704,-15.8094 -51.9767,-15.8338 -51.9924,-15.8386 -52.0019,-15.8559 -52.0208,-15.8614 -52.0294,-15.8732 -52.0499,-15.8771 -52.0822,-15.8716 -52.1216,-15.8795 -52.1563,-15.8748 -52.1893,-15.8724 -52.2201,-15.8787 -52.2413,-15.8779 -52.2547,-15.9236 -52.2681,-15.948 -52.2838,-15.9583 -52.3035,-15.9866 -52.3311,-16.0449 -52.3461,-16.0504 -52.3587,-16.0488 -52.3783,-16.0646 -52.4106,-16.0748 -52.4405,-16.0953 -52.4539,-16.1481 -52.4484,-16.1874 -52.4437,-16.2134 -52.4264,-16.2315 -52.4366,-16.2725 -52.4587,-16.2835 -52.4957,-16.2851 -52.5343,-16.3016 -52.5752,-16.3379 -52.6099,-16.4001 -52.624,-16.4521 -52.6374,-16.5395 -52.6933,-16.5781 -52.7138,-16.6529 -52.8272,-16.7592 -52.8918,-16.7852 -52.9697,-16.8199 -53.0146,-16.8671 -53.0115,-16.8908 -53.039,-17.0002 -53.0343,-17.0152 -53.0414,-17.0569 -53.0516,-17.0632 -53.0595,-17.079 -53.0839,-17.0987 -53.0966,-17.1334 -53.1226,-17.1578 -53.1509,-17.2043 -53.1541,-17.2248 -53.1824,-17.2452 -53.2045,-17.2988 -53.1958,-17.3201 -53.195,-17.3405 -53.1911,-17.3689 -53.2005,-17.3831 -53.2194,-17.4287 -53.2241,-17.4768 -53.2257,-17.5091 -53.2186,-17.5366 -53.1973,-17.5571 -53.1918,-17.5784 -53.1706,-17.5957 -53.1375,-17.654 -53.1264,-17.6721 -53.128,-17.7114 -53.117,-17.7587 -53.1241,-17.8051 -53.1148,-17.8898 -53.0556,-18.0148 -53.0403,-18.1289 -53.0578,-18.3066 -52.9964,-18.3922 -52.9064,-18.3439 -52.7529,-18.4119 -52.8296,-18.5194 -52.8911,-18.6664 -52.7594,-18.7081 -52.641,-18.7212 -52.4786,-18.7081 -52.3338,-18.8222 -52.268,-18.8134 -52.1167,-18.8726 -52.0662,-18.9362 -51.9938,-18.9757 -51.9412,-18.9757 -51.8775,-18.9998 -51.8359,-19.0547 -51.7942,-19.0657 -51.6625,-19.1271 -51.5485,-19.1381 -51.4212,-19.16 -51.3466,-19.2215 -51.2852,-19.2675 -51.2238,-19.2653 -51.1755,-19.2939 -51.1294,-19.2807 -51.0088,-19.375 -50.9408,-19.4145 -50.9232,-19.4584 -50.9575,-19.4645 -50.9618,-19.5012 -50.9337,-19.5488 -50.9488,-19.5726 -50.9791,-19.5683 -50.9921,-19.6396 -51.0202,-19.7045 -51.0224,-19.7672 -51.0072,-19.8126 -51.0051,-19.8602 -50.9834,-19.9056 -50.9964,-19.9532 -50.9878,-20.0051 -51.0072,-20.044 -51.0072,-20.0916 -51.0224,-20.1543 -51.0332,-20.2257 -51.0591,-20.256 -51.1002,-20.2733 -51.1781,-20.3057 -51.2321,-20.3014 -51.3338,-20.3706 -51.3943,-20.4484 -51.4614,-20.5371 -51.5133,-20.5803 -51.5782,-20.5955 -51.6084,-20.6841 -51.6214,-20.7425 -51.6301,-20.8225 -51.6301,-20.8918 -51.7079,-20.9696 -51.7425,-20.9977 -51.775,-21.0604 -51.8031,-21.1015 -51.8615,-21.1361 -51.8723,-21.1967 -51.8485,-21.268 -51.8723,-21.3545 -51.9134,-21.4064 -51.9653,-21.4951 -51.9999,-21.5081 -52.0518,-21.5016 -52.0842,-21.5405 -52.0929,-21.5643 -52.0712,-21.5773 -52.0518,-21.6357 -52.0366,-21.653 -52.0518,-21.6919 -52.0474,-21.7113 -52.0756,-21.7308 -52.1448,-21.7784 -52.1707,-21.8303 -52.1707,-21.8541 -52.2399,-21.919 -52.294,-21.9622 -52.3394,-22.0465 -52.4064,-22.146 -52.5124,-22.226 -52.6767,-22.3039 -52.7827,-22.3774 -52.893,-22.4531 -53.0011,-22.5244 -53.0768,-22.5915 -53.1546,-22.7039 -53.3497,-22.7791 -53.4922,-22.8361 -53.5546,-22.8717 -53.5831,-22.9002 -53.6205,-22.984 -53.6365,-23.0036 -53.6347,-23.0695 -53.6365,-23.1104 -53.6721,-23.171 -53.6989,-23.2244 -53.6989,-23.2618 -53.7309,-23.3153 -53.7737,-23.3491 -53.8271,-23.3741 -53.8806,-23.4097 -53.9251,-23.4132 -53.9643,-23.44 -53.9732,-23.4685 -53.9732,-23.4899 -53.9857,-23.5148 -53.9892,-23.5505 -54.007,-23.5879 -54.0035,-23.6181 -54.0338,-23.7001 -54.0355,-23.7232 -54.0533,-23.7517 -54.064,-23.807 -54.0676,-23.8693 -54.0712,-23.9227 -54.0908,-23.9637 -54.1584,-23.9958 -54.1882,-24.0171 -54.1757,-24.0265 -54.2015,-24.0385 -54.2262,-24.0581 -54.2575,-24.0903 -54.2685,-24.1208 -54.2485,-24.2145 -54.2342,-24.23 -54.2118,-24.2452 -54.1949,-24.2658 -54.1812,-24.3261 -54.2077,-24.3856 -54.2252,-24.4014 -54.2442,-24.4231 -54.2547,-24.4421 -54.2627,-24.465 -54.2657,-24.4907 -54.2529,-24.5272 -54.2432,-24.5751 -54.2468,-24.6002 -54.2563,-24.6343 -54.262,-24.6518 -54.3277,-24.7765 -54.3393,-24.8109 -54.3842,-24.9892 -54.3891,-25.0383 -54.386,-25.0616 -54.3541,-25.1047 -54.3583,-25.1247 -54.436,-25.252 -54.4548,-25.2747 -54.4798,-25.3037 -54.5047,-25.3258 -54.5466,-25.4171 -54.529,-25.4816 -54.5291,-25.5442 -54.4767,-25.5413 -54.3993,-25.5916 -54.3827,-25.6042 -54.3144,-25.5518 -54.244,-25.5264 -54.2092,-25.5239 -54.1083,-25.5332 -54.0869,-25.5066 -54.0385,-25.4676 -53.8196,-25.6048 -53.7927,-25.6565 -53.7563,-25.7722 -53.7569,-25.7938 -53.7657,-25.8524 -53.7578,-25.9222 -53.6696,-26.0585 -53.5954,-26.164 -53.5854,-26.1881 -53.581,-26.2204 -53.5815,-26.2333 -53.5852,-26.2478 -53.5999,-26.2803 -53.6222,-26.3053 -53.6429,-26.3344 -53.6406,-26.4814 -53.6568,-26.6268 -53.6665,-26.6659 -53.648,-26.7525 -53.6293,-26.8527 -53.6363,-26.8813 -53.6649,-26.9476 -53.6763,-26.9723 -53.7385,-27.0986 -53.7694,-27.1406 -53.7885,-27.1185 -53.8304,-27.1245 -53.9361,-27.1604 -53.9569,-27.1945 -53.9789,-27.2195 -54.0012,-27.2374 -54.0222,-27.2524 -54.0441,-27.2599 -54.0757,-27.2591 -54.1642,-27.3505 -54.2101,-27.3937 -54.2877,-27.4259 -54.3806,-27.4382 -54.4592,-27.4599 -54.5563,-27.5 -54.6155,-27.5244 -54.7005,-27.5339 -54.7188,-27.5227 -54.7218,-27.5021 -54.743,-27.5046 -54.8275,-27.6392 -54.8309,-27.6798 -54.8373,-27.6989 -54.9504,-27.8025 -54.9925,-27.8142 -55.1084,-27.8248 -55.2496,-27.8908 -55.3026,-27.942 -55.3078,-27.9618 -55.3086,-27.9942 -55.3759,-28.0552 -55.5104,-28.1014 -55.5543,-28.1092 -55.562,-28.127 -55.6067,-28.1636 -55.6374,-28.177 -55.6763,-28.1852 -55.698,-28.2039 -55.6952,-28.2245 -55.6456,-28.2489 -55.6086,-28.2704 -55.5957,-28.3037 -55.6256,-28.3756 -55.6486,-28.3555 -55.6608,-28.3312 -55.7608,-28.3212 -55.7975,-28.3244 -55.8208,-28.3377 -55.9062,-28.4564 -55.9387,-28.529 -55.9936,-28.5937 -56.0974,-28.6959 -56.2028,-28.7442 -56.2226,-28.765 -56.2288,-28.7993 -56.34,-29.0135 -56.3542,-29.0368 -56.4418,-29.06 -56.461,-29.0707 -56.4983,-29.0921 -56.5189,-29.108 -56.5517,-29.1416 -56.5706,-29.1677 -56.5815,-29.1978 -56.5817,-29.2304 -56.6223,-29.3101 -56.7397,-29.4339 -56.8392,-29.5254 -56.9708,-29.6725 -57.002,-29.7046 -57.0297,-29.7285 -57.0705,-29.7428 -57.1205,-29.7439 -57.1535,-29.7471 -57.1832,-29.7579 -57.2057,-29.772 -57.2231,-29.7921 -57.2443,-29.8415 -57.2446,-29.8771 -57.2509,-29.9445 -57.2701,-29.9663 -57.4121,-30.0983 -57.4589,-30.1293 -57.4792,-30.1388 -57.5075,-30.1467 -57.5329,-30.1508 -57.5118,-30.159 415,-3.0,Brazil -54.8071,2.0121 -54.7628,1.9868 -54.7429,1.7613 -54.6899,1.7627 -54.5898,1.7856 -54.4983,1.7513 -54.3668,1.7627 -54.2867,1.7227 -54.1895,1.6455 -54.178,1.6683 -54.1294,1.6111 -54.0951,1.6083 -54.1123,1.5797 -54.0808,1.5482 -54.0923,1.5196 -54.08,1.5053 -54.0791,1.5042 -54.0751,1.4996 -54.0688,1.5006 -54.067,1.5009 -54.0379,1.5054 -54.0151,1.5196 -53.9779,1.5196 -53.975,1.4911 -53.9521,1.4853 -53.9321,1.4625 -53.9178,1.4482 -53.9169,1.4474 -53.8892,1.4224 -53.8978,1.4024 -53.8521,1.4024 -53.8635,1.3853 -53.8263,1.3853 -53.8211,1.4138 -53.8201,1.4135 -53.8042,1.4079 -53.7763,1.4123 -53.7676,1.3966 -53.7537,1.3905 -53.7406,1.4123 -53.7423,1.4341 -53.7301,1.4393 -53.7136,1.4367 -53.7118,1.4288 -53.7266,1.4227 -53.7118,1.4132 -53.69,1.4114 -53.6761,1.4297 -53.6639,1.4297 -53.6595,1.414 -53.663,1.3861 -53.6612,1.3678 -53.6525,1.3608 -53.6325,1.3704 -53.6054,1.3757 -53.5906,1.373 -53.5758,1.3643 -53.5549,1.3687 -53.5479,1.3469 -53.5636,1.3338 -53.5645,1.3242 -53.5636,1.3094 -53.5427,1.2911 -53.5418,1.2763 -53.5496,1.2562 -53.5505,1.244 -53.5357,1.2414 -53.4973,1.2545 -53.445,1.2649 -53.4284,1.2475 -53.4215,1.2135 -53.4101,1.2039 -53.4058,1.1873 -53.4119,1.1777 -53.4389,1.1708 -53.4616,1.169 -53.4668,1.1403 -53.4607,1.0993 -53.4311,1.0426 -53.4415,1.0155 -53.4249,0.9981 -53.4188,0.9379 -53.3962,0.924 -53.3875,0.91 -53.3526,0.8891 -53.3299,0.8464 -53.3099,0.8159 -53.2741,0.7854 -53.2139,0.7662 -53.1294,0.7505 -53.1163,0.7427 -53.111,0.7069 -53.1102,0.6825 -53.1294,0.6163 -53.1294,0.5788 -53.1407,0.5291 -53.1294,0.4707 -53.132,0.4 -53.1268,0.3826 -53.1041,0.3373 -53.091,0.2972 -53.0736,0.2754 -53.0466,0.2579 -53.0387,0.2248 -53.0335,0.2012 -53.023,0.1768 -53.0099,0.1489 -53.0056,0.1141 -53.0082,0.0914 -53.0161,0.0565 -53.0161,0.0347 -53.0047,0.0129 -52.9829,-0.0071 -52.9716,-0.015 -52.9698,-0.0472 -52.955,-0.0934 -52.9437,-0.1353 -52.9315,-0.157 -52.9245,-0.1884 -52.8713,-0.2041 -52.8199,-0.1753 -52.8094,-0.1849 -52.7893,-0.2015 -52.7867,-0.2207 -52.7405,-0.2573 -52.7083,-0.2913 -52.6917,-0.3183 -52.6856,-0.3488 -52.6603,-0.3646 -52.6324,-0.3803 -52.6263,-0.3968 -52.6271,-0.4901 -52.6359,-0.5067 -52.6376,-0.5355 -52.6298,-0.5669 -52.6149,-0.5991 -52.6018,-0.6139 -52.5739,-0.6165 -52.5469,-0.6165 -52.5303,-0.6357 -52.5216,-0.661 -52.5225,-0.6941 -52.5059,-0.7386 -52.5146,-0.7796 -52.5207,-0.7987 -52.5103,-0.8293 -52.5216,-0.8694 -52.5085,-0.8824 -52.451,-0.8668 -52.4231,-0.8598 -52.3917,-0.8746 -52.3716,-0.9016 -52.3682,-0.9243 -52.3821,-0.9444 -52.3943,-0.9679 -52.3769,-0.9984 -52.3769,-1.0281 -52.3708,-1.0464 -52.3673,-1.0664 -52.3481,-1.0734 -52.3185,-1.0847 -52.2845,-1.1205 -52.2557,-1.1414 -52.2121,-1.1475 -52.1371,-1.1519 -52.111,-1.158 -52.0927,-1.1754 -52.0822,-1.2129 -52.0613,-1.2173 -52.0517,-1.2068 -52.0552,-1.178 -52.0273,-1.1649 -52.0072,-1.1684 -51.9898,-1.1588 -51.9793,-1.1353 -51.9053,-1.1517 -51.9386,-1.3395 -52.0798,-1.3975 -52.073,-1.4039 -52.041,-1.4153 -52.0168,-1.4178 -51.9873,-1.4163 -51.9517,-1.4047 -51.8691,-1.333 -51.8585,-1.2993 -51.864,-1.2441 -51.877,-1.1966 -51.8613,-1.1652 -51.8429,-1.1491 -51.8185,-1.1475 -51.7787,-1.139 -51.6541,-1.0223 -51.6564,-0.9795 -51.6621,-0.9514 -51.665,-0.9062 -51.6628,-0.8684 -51.6557,-0.7859 -51.6418,-0.7515 -51.5471,-0.6343 -51.4494,-0.5293 -51.4122,-0.5047 -51.3951,-0.4876 -51.3434,-0.4022 -51.3237,-0.3673 -51.3069,-0.326 -51.2997,-0.2954 -51.2922,-0.2757 -51.2615,-0.2244 -51.24,-0.1911 -51.1959,-0.1374 -51.1676,-0.116 -51.1531,-0.1027 -51.1302,-0.0973 -51.1069,-0.0937 -51.081,-0.0821 -51.0455,-0.0623 -51.0338,-0.0535 -51.0294,-0.0501 -51.0108,-0.0251 -51.0031,1.0E-4 -50.9835,0.035 -50.9487,0.0826 -50.9279,0.1099 -50.9008,0.1387 -50.8807,0.1525 -50.8547,0.1606 -50.8081,0.1723 -50.7676,0.1728 -50.7478,0.1664 -50.7257,0.1767 -50.7032,0.1958 -50.5831,0.3363 -50.5397,0.3893 -50.5172,0.4216 -50.5078,0.4392 -50.4506,0.5468 -50.432,0.583 -50.4151,0.6215 -50.3932,0.6611 -50.3633,0.6789 -50.34,0.6897 -50.2952,0.7216 -50.2555,0.7525 -50.1805,0.8876 -49.9732,1.0483 -50.0182,0.9801 -50.018,0.9438 -49.9681,0.9286 -49.9533,0.9342 -49.9278,0.9528 -49.8945,0.9847 -49.8863,0.9977 -49.88,1.0304 -49.8916,1.0533 -49.9066,1.0543 -49.9456,1.0541 -49.9638,1.0553 -49.9247,1.0856 -49.8849,1.1175 -49.8584,1.1489 -49.8471,1.1731 -49.8475,1.196 -49.8552,1.234 -49.8729,1.2488 -49.9104,1.23 -49.9394,1.2216 -50.0139,1.2085 -50.0541,1.2121 -50.0299,1.2334 -49.9872,1.2475 -49.9662,1.253 -49.9194,1.261 -49.8367,1.3228 -49.8225,1.444 -49.8254,1.5159 -49.8265,1.5371 -49.8293,1.5578 -49.8329,1.5787 -49.8758,1.7083 -49.9586,1.7629 -49.9924,1.7783 -50.1365,1.8232 -50.2714,1.8282 -50.3458,1.8176 -50.3883,1.8239 -50.41,1.8406 -50.4287,1.8613 -50.4445,1.884 -50.5365,2.0254 -50.6227,2.1623 -50.7261,2.4845 -50.7591,2.6167 -50.7686,2.6547 -50.7927,2.7376 -50.8565,2.8709 -50.9345,3.039 -50.9604,3.1046 -50.966,3.1267 -50.9933,3.2549 -50.9974,3.2785 -51.0034,3.3271 -51.0083,3.3754 -51.0191,3.5817 -51.0206,3.6327 -51.0136,3.7292 -51.0214,3.8824 -51.0349,3.9087 -51.059,3.9022 -51.0792,3.8714 -51.1073,3.8909 -51.1093,3.9929 -51.1329,4.0513 -51.1428,4.0696 -51.201,4.148 -51.2736,4.2258 -51.4892,4.381 -51.5006,4.3593 -51.5011,4.3259 -51.5001,4.3 -51.496,4.2766 -51.4898,4.2556 -51.4516,4.1298 -51.4442,4.1096 -51.4214,4.0508 -51.4007,4.0168 -51.3892,3.9681 -51.4458,4.0552 -51.4817,4.149 -51.5478,4.1117 -51.5555,4.092 -51.5781,4.0525 -51.6146,4.0317 -51.6254,4.0298 -51.6452,4.0219 -51.6696,4.0115 -51.6949,3.996 -51.7127,3.9793 -51.7248,3.9567 -51.7348,3.9125 -51.7533,3.8724 -51.8474,3.7866 -51.8679,3.7729 -51.922,3.6961 -51.9309,3.6534 -51.9367,3.6219 -52.041,3.4451 -52.106,3.3384 -52.1674,3.2497 -52.1905,3.2402 -52.2143,3.2377 -52.2857,3.1539 -52.2939,3.1282 -52.2856,3.085 -52.2926,3.0368 -52.3198,2.9708 -52.3494,2.919 -52.4048,2.8104 -52.4604,2.6948 -52.4933,2.6184 -52.4807,2.5837 -52.4829,2.5626 -52.5044,2.5195 -52.5352,2.4711 -52.616,2.3717 -52.7297,2.3009 -52.8232,2.2225 -52.8368,2.2046 -52.8952,2.174 -52.9344,2.1734 -52.995,2.1846 -53.0096,2.2007 -53.0275,2.2172 -53.0521,2.2201 -53.136,2.2113 -53.1793,2.206 -53.1662,2.2621 -53.2366,2.3164 -53.2596,2.3455 -53.2803,2.3472 -53.288,2.3204 -53.3985,2.2551 -53.4676,2.247 -53.641,2.3077 -53.661,2.3391 -53.6855,2.3684 -53.7162,2.3622 -53.7388,2.3499 -53.8493,2.2746 -53.8674,2.2503 -53.8719,2.2258 -54.0488,2.1113 -54.2595,2.1591 -54.4031,2.2092 -54.4572,2.2551 -54.4658,2.2869 -54.4797,2.3127 -54.5123,2.3226 -54.5331,2.3298 -54.5422,2.3265 -54.5731,2.3175 -54.6258,2.3231 -54.6473,2.3854 -54.6283,2.3971 -54.6282,2.4488 -54.6914,2.4678 -54.7137,2.4542 -54.7419,2.4356 -54.7615,2.4346 -54.7363,2.3913 -54.7031,2.2985 -54.7495,2.199 -54.796,2.1791 -54.7429,2.0863 -54.8092,2.0133 -54.8071,2.0121 9,8.0,Malaysia 118.2596,4.6708 118.3441,4.684 118.4414,4.6459 118.461,4.6334 118.4333,4.5942 118.3946,4.5953 118.2152,4.6668 118.2596,4.6708 118.2596,4.6708 303,3.0,Kenya 33.9583,4.2183 34.0575,4.3157 34.335,4.5915 34.3492,4.6046 34.3685,4.6055 34.4429,4.606 34.6736,4.607 34.7344,4.6073 34.7817,4.6072 34.9105,4.6078 35.1072,4.6087 35.4686,4.6117 35.5066,4.6117 35.5403,4.6119 35.568,4.6128 35.6014,4.6122 35.6353,4.6125 35.6586,4.6141 35.6691,4.6129 35.8591,4.6148 35.8996,4.6176 35.9104,4.5162 36.0042,4.442 36.1702,4.4431 36.2304,4.4343 36.3923,4.4369 36.6058,4.4418 36.6246,4.4289 36.6704,4.4291 36.8459,4.4299 36.9978,4.3706 37.0571,4.3271 37.0881,4.2817 37.2384,4.1898 37.9553,3.7244 37.9907,3.6942 38.0133,3.648 38.0782,3.6079 38.2807,3.605 38.4047,3.5957 38.4734,3.6228 38.5784,3.5976 38.6857,3.5633 38.7661,3.5393 38.8695,3.5102 38.9126,3.5148 39.002,3.5251 39.0405,3.5304 39.0858,3.5069 39.1526,3.4747 39.2047,3.4676 39.2518,3.4729 39.2844,3.496 39.2871,3.4655 39.3781,3.4564 39.4063,3.4588 39.4552,3.4462 39.4577,3.4191 39.4744,3.4055 39.5158,3.4028 39.5503,3.4972 39.7379,3.6743 39.8214,3.8654 39.9547,3.9244 40.1371,4.0182 40.343,4.0942 40.3531,4.1186 40.626,4.224 40.7377,4.2831 40.8073,4.2301 40.8308,4.2121 40.9631,4.1043 41.0017,4.0559 41.0173,4.027 41.047,3.9921 41.0683,3.9716 41.0885,3.9542 41.114,3.9417 41.1344,3.9374 41.2272,3.9367 41.4222,3.945 41.4407,3.9568 41.488,3.9717 41.5643,3.9848 41.6786,3.9956 41.734,3.9775 41.7536,3.9561 41.7926,3.9443 41.8444,3.9654 41.8577,3.9758 41.8489,3.96 41.7505,3.8206 41.2904,3.1642 41.2399,3.1149 40.9453,2.8323 40.9426,2.7139 40.9428,2.3069 40.9429,1.3127 40.943,1.0E-4 40.9526,-0.8649 41.1077,-1.0666 41.3352,-1.3628 41.5086,-1.5901 41.5117,-1.6728 41.4918,-1.6874 41.432,-1.7507 41.4084,-1.7815 41.3915,-1.8054 41.3879,-1.8258 41.368,-1.8503 41.2691,-1.9558 41.2339,-1.9677 41.1546,-1.9702 41.0596,-1.9796 40.9456,-2.0316 40.8458,-2.0166 40.8645,-2.1202 40.899,-2.21 40.9243,-2.2281 40.936,-2.2545 40.9124,-2.3015 40.8752,-2.3131 40.8799,-2.2854 40.8443,-2.223 40.809,-2.2333 40.7934,-2.2456 40.7402,-2.2976 40.7384,-2.3275 40.7668,-2.3563 40.7784,-2.3805 40.7678,-2.3974 40.5848,-2.5496 40.5464,-2.551 40.5182,-2.5388 40.4873,-2.5235 40.4403,-2.5321 40.3767,-2.5512 40.337,-2.5658 40.2932,-2.5909 40.2666,-2.6064 40.2326,-2.6268 40.1859,-2.6681 40.1444,-2.7398 40.1264,-2.7766 40.1192,-2.8903 40.121,-2.9291 40.1324,-2.9797 40.1127,-3.077 40.074,-3.1867 40.0865,-3.2174 40.0803,-3.2617 40.0625,-3.2883 40.0175,-3.3112 39.98,-3.3367 39.9291,-3.3718 39.8898,-3.4628 39.8263,-3.6158 39.8257,-3.6375 39.827,-3.6697 39.8225,-3.6911 39.7914,-3.7943 39.784,-3.8146 39.7605,-3.8709 39.7366,-3.9214 39.6761,-4.0124 39.6483,-4.0478 39.6267,-4.0876 39.4805,-4.4125 39.3578,-4.6286 39.281,-4.6344 39.2606,-4.5967 39.2111,-4.6066 39.1584,-4.6643 39.1173,-4.6339 38.9935,-4.5447 38.677,-4.3175 38.5805,-4.2485 38.4429,-4.1502 38.3739,-4.1009 37.8086,-3.6964 37.7404,-3.6469 37.7221,-3.6112 37.7136,-3.5743 37.7075,-3.5464 37.6949,-3.5244 37.6438,-3.5085 37.5839,-3.5052 37.5576,-3.4463 37.5577,-3.4208 37.5679,-3.3976 37.648,-3.3127 37.6774,-3.308 37.67,-3.2635 37.6555,-3.1829 37.6327,-3.0477 37.5606,-2.9924 37.4804,-2.9456 37.4591,-2.9346 37.383,-2.9033 37.2366,-2.8221 37.1807,-2.7912 37.1542,-2.7756 36.6442,-2.4939 36.2848,-2.2957 36.1127,-2.1974 35.9929,-2.1303 35.8405,-2.046 35.6384,-1.9335 35.2296,-1.7052 34.6783,-1.3973 34.4617,-1.2762 34.3712,-1.2257 34.0373,-1.0379 33.9809,-0.9996 33.9103,-0.9998 33.8832,-1.0005 33.8854,-0.9518 33.8807,-0.4522 33.9139,-0.2712 33.9381,-0.134 33.9284,-0.1005 33.9125,-0.0478 33.8989,3.0E-4 33.8852,0.0487 33.8748,0.0826 33.8694,0.1031 33.944,0.2051 34.0155,0.3015 34.0682,0.3876 34.1255,0.6079 34.1754,0.6322 34.2104,0.6389 34.231,0.6477 34.3725,0.8212 34.4038,0.871 34.4418,0.9583 34.447,0.9829 34.4447,1.0108 34.4493,1.0421 34.4657,1.0796 34.4813,1.1046 34.537,1.0917 34.5585,1.1492 34.653,1.2069 34.7009,1.213 34.7257,1.2157 34.7628,1.2206 34.7815,1.2348 34.7909,1.2678 34.7899,1.2935 34.783,1.3145 34.7649,1.3337 34.7532,1.3922 34.7568,1.3969 34.8141,1.4267 34.825,1.4579 34.8351,1.5046 34.8462,1.5294 34.8613,1.5515 34.8791,1.5614 34.9044,1.5672 34.9199,1.5857 34.9605,1.6684 34.9705,1.8933 34.9552,2.0827 34.9026,2.2213 34.88,2.2753 34.8487,2.3548 34.8421,2.3757 34.8409,2.401 34.8703,2.5185 34.8043,2.5948 34.7535,2.6777 34.7503,2.6978 34.7426,2.7867 34.7164,2.8467 34.6732,2.8749 34.6467,2.8607 34.6265,2.8577 34.5543,2.9337 34.5434,3.0038 34.5335,3.0794 34.5227,3.1036 34.506,3.1242 34.4699,3.1417 34.415,3.2421 34.365,3.3815 34.3646,3.4803 34.3966,3.4962 34.4145,3.5171 34.4261,3.6106 34.4247,3.6606 34.3429,3.7276 34.3223,3.7338 34.1836,3.775 34.1461,3.8358 34.0897,3.9474 34.0495,4.0929 34.0246,4.1689 34.0109,4.1861 33.9876,4.2033 33.9583,4.2183 33.9583,4.2183 27,8.0,Indonesia 126.6062,3.9797 126.5564,3.9914 126.547,4.0655 126.5679,4.0786 126.5886,4.101 126.645,4.2082 126.6449,4.2318 126.633,4.2427 126.5941,4.2538 126.5752,4.2564 126.566,4.266 126.5487,4.3212 126.5462,4.3548 126.5771,4.4981 126.5813,4.5094 126.5975,4.5348 126.6306,4.5314 126.6714,4.5217 126.7163,4.4812 126.7716,4.2713 126.7684,4.257 126.7266,4.2036 126.66,4.041 126.6526,4.0164 126.6186,3.983 126.6062,3.9797 126.6062,3.9797 14,1.0,Nigeria 7.1723,4.3729 7.1588,4.3736 7.1375,4.3776 7.1277,4.3871 7.2178,4.515 7.24,4.5066 7.2855,4.4823 7.3086,4.4674 7.3017,4.4056 7.2907,4.3996 7.2063,4.3779 7.1955,4.3757 7.1723,4.3729 7.1723,4.3729 13,-5.0,Colombia -77.3112,4.3174 -77.2881,4.3045 -77.2679,4.2582 -77.2316,4.2469 -77.245,4.2348 -77.4121,4.2052 -77.4601,4.1916 -77.4503,4.2279 -77.3448,4.327 -77.3345,4.3297 -77.3222,4.3249 -77.3112,4.3174 -77.3112,4.3174 16,8.0,Malaysia 117.5534,4.1637 117.5101,4.2082 117.5055,4.224 117.5163,4.2336 117.5521,4.2553 117.5903,4.2552 117.6124,4.2536 117.6264,4.2506 117.6359,4.2463 117.652,4.2348 117.7698,4.1695 117.7456,4.1686 117.7059,4.1672 117.5931,4.1653 117.5534,4.1637 117.5534,4.1637 262,3.0,Uganda 33.9583,4.2183 33.9876,4.2033 34.0109,4.1861 34.0246,4.1689 34.0495,4.0929 34.0897,3.9474 34.1461,3.8358 34.1836,3.775 34.3223,3.7338 34.3429,3.7276 34.4247,3.6606 34.4261,3.6106 34.4145,3.5171 34.3966,3.4962 34.3646,3.4803 34.365,3.3815 34.415,3.2421 34.4699,3.1417 34.506,3.1242 34.5227,3.1036 34.5335,3.0794 34.5434,3.0038 34.5543,2.9337 34.6265,2.8577 34.6467,2.8607 34.6732,2.8749 34.7164,2.8467 34.7426,2.7867 34.7503,2.6978 34.7535,2.6777 34.8043,2.5948 34.8703,2.5185 34.8409,2.401 34.8421,2.3757 34.8487,2.3548 34.88,2.2753 34.9026,2.2213 34.9552,2.0827 34.9705,1.8933 34.9605,1.6684 34.9199,1.5857 34.9044,1.5672 34.8791,1.5614 34.8613,1.5515 34.8462,1.5294 34.8351,1.5046 34.825,1.4579 34.8141,1.4267 34.7568,1.3969 34.7532,1.3922 34.7649,1.3337 34.783,1.3145 34.7899,1.2935 34.7909,1.2678 34.7815,1.2348 34.7628,1.2206 34.7257,1.2157 34.7009,1.213 34.653,1.2069 34.5585,1.1492 34.537,1.0917 34.4813,1.1046 34.4657,1.0796 34.4493,1.0421 34.4447,1.0108 34.447,0.9829 34.4418,0.9583 34.4038,0.871 34.3725,0.8212 34.231,0.6477 34.2104,0.6389 34.1754,0.6322 34.1255,0.6079 34.0682,0.3876 34.0155,0.3015 33.944,0.2051 33.8694,0.1031 33.8748,0.0826 33.8852,0.0487 33.8989,3.0E-4 33.9125,-0.0478 33.9284,-0.1005 33.9381,-0.134 33.9139,-0.2712 33.8807,-0.4522 33.8854,-0.9518 33.8832,-1.0005 33.4233,-0.999 33.4014,-0.9994 33.3686,-0.9991 33.2588,-0.9988 33.1492,-0.9984 33.0738,-0.9989 32.9644,-0.9987 32.8536,-0.9985 32.7059,-0.9984 32.6475,-0.9988 32.5791,-0.999 32.4488,-0.9988 31.6419,-0.9985 31.5116,-0.9982 31.2582,-0.9976 31.2376,-0.997 31.0252,-0.9961 30.8542,-0.9958 30.7219,-0.9963 30.6626,-1.0134 30.5592,-1.0643 30.4483,-1.0619 30.4425,-1.0579 30.418,-1.0532 30.327,-1.0596 30.2813,-1.1421 30.2641,-1.1832 30.2497,-1.2082 30.1953,-1.265 30.1379,-1.3133 30.0754,-1.3659 29.946,-1.4605 29.9032,-1.4738 29.8961,-1.4742 29.8767,-1.4631 29.8571,-1.431 29.8513,-1.4 29.8509,-1.3688 29.8218,-1.3254 29.8018,-1.318 29.6841,-1.3459 29.6646,-1.3657 29.6443,-1.3799 29.6077,-1.3849 29.5842,-1.3855 29.5639,-1.3839 29.5732,-1.3191 29.5658,-1.2129 29.5414,-1.1859 29.542,-0.915 29.5512,-0.8946 29.5858,-0.8905 29.6001,-0.7867 29.5861,-0.7425 29.6017,-0.6404 29.6335,-0.5798 29.6195,-0.4758 29.6157,-0.4392 29.6377,-0.304 29.6547,-0.2023 29.6758,-0.0743 29.7,-0.0030 29.6849,0.0429 29.6855,0.077 29.6988,0.1046 29.7472,0.1732 29.7735,0.1628 29.806,0.2773 29.825,0.3663 29.8792,0.4287 29.9265,0.4832 29.9222,0.5511 29.9053,0.6238 29.914,0.7871 29.9242,0.8176 29.9337,0.8352 29.9531,0.8459 29.9575,0.8499 29.9825,0.8659 30.0025,0.8738 30.0529,0.8924 30.0975,0.8945 30.1218,0.9083 30.1837,0.9934 30.1857,1.0427 30.1798,1.0641 30.2004,1.1297 30.2406,1.1658 30.3367,1.1972 30.4037,1.2008 30.422,1.2116 30.45,1.24 30.5149,1.3202 30.6369,1.4718 30.6612,1.4986 30.8137,1.6173 31.002,1.7636 31.1747,1.9852 31.2679,2.1191 31.2642,2.1605 31.1675,2.2266 31.0344,2.3227 30.9681,2.3945 30.95,2.4066 30.9291,2.4093 30.9051,2.3978 30.8922,2.3581 30.8802,2.3399 30.8517,2.3341 30.6953,2.4453 30.6966,2.4708 30.7216,2.5981 30.7524,2.672 30.7824,2.7363 30.817,2.7824 30.8417,2.837 30.8448,2.8829 30.8176,2.9597 30.7714,3.0102 30.7377,3.0255 30.729,3.0484 30.7475,3.1264 30.7933,3.2369 30.825,3.2867 30.8479,3.3209 30.8995,3.4102 30.8901,3.5071 30.8713,3.5208 30.824,3.4897 30.8339,3.5186 30.8566,3.5617 30.9198,3.667 30.944,3.6903 31.1415,3.7913 31.1688,3.7915 31.2513,3.7907 31.3416,3.7413 31.424,3.6949 31.5052,3.6495 31.6684,3.7103 31.7128,3.7572 31.7536,3.8047 31.7856,3.8028 31.8176,3.7807 31.8962,3.6853 31.9102,3.6177 31.9151,3.5898 31.9897,3.5874 32.0325,3.5784 32.0408,3.5551 32.0544,3.5321 32.075,3.523 32.0994,3.5171 32.1582,3.5091 32.1644,3.5712 32.1636,3.6058 32.3679,3.7396 32.4423,3.7416 32.5983,3.7478 32.6323,3.7494 32.6825,3.7518 32.7634,3.7766 32.8375,3.7998 32.861,3.8076 32.9011,3.8332 32.9412,3.8592 32.9793,3.8844 33.0896,3.804 33.1463,3.762 33.2073,3.76 33.35,3.754 33.4732,3.7486 33.4856,3.7544 33.9583,4.2183 33.9583,4.2183 35,7.0,Indonesia 107.9393,3.8478 107.9312,3.8565 107.909,3.8995 107.8822,3.9549 107.8692,4.0197 107.9033,4.0611 107.9124,4.0656 107.9358,4.0662 107.9461,4.0729 108.0403,4.1684 108.0587,4.1918 108.1287,4.1755 108.1314,4.1439 108.1349,4.1269 108.1476,4.0986 108.2406,4.0074 108.2675,3.9865 108.2748,3.9727 108.2839,3.8687 108.2712,3.823 108.2677,3.8126 108.2617,3.7987 108.1985,3.6788 108.1887,3.6715 108.0564,3.6435 107.9948,3.6719 107.9722,3.6907 107.9775,3.7023 108.0066,3.7393 108.0495,3.7741 108.0652,3.7854 108.079,3.7924 108.0429,3.8135 107.9393,3.8478 107.9393,3.8478 19,8.0,Indonesia 117.5534,4.1637 117.5931,4.1653 117.7059,4.1672 117.7456,4.1686 117.7698,4.1695 117.78,4.1364 117.7955,4.0519 117.7881,4.0423 117.7758,4.0343 117.7628,4.0267 117.7531,4.0226 117.7338,4.0224 117.7198,4.0271 117.7109,4.0319 117.6986,4.0404 117.6842,4.054 117.5766,4.1448 117.5534,4.1637 117.5534,4.1637 21,8.0,Indonesia 117.4773,4.0975 117.4786,4.1018 117.498,4.1234 117.5105,4.1348 117.5274,4.1374 117.5388,4.1316 117.6116,4.0732 117.6173,4.0613 117.6169,4.0459 117.5953,3.9958 117.5862,3.9876 117.5531,3.9694 117.5413,3.9708 117.5268,3.9802 117.4723,4.0217 117.4659,4.0421 117.463,4.0598 117.4615,4.0726 117.4656,4.0854 117.4773,4.0975 117.4773,4.0975 12,8.0,Indonesia 126.5619,3.7903 126.5529,3.7929 126.5411,3.8103 126.4674,3.9725 126.4597,4.0325 126.4752,4.0337 126.4992,4.016 126.5795,3.9079 126.583,3.8814 126.5694,3.7958 126.5619,3.7903 126.5619,3.7903 22,8.0,Indonesia 125.7385,3.3581 125.7241,3.3732 125.6496,3.4085 125.5932,3.5186 125.5249,3.6281 125.5032,3.6543 125.5013,3.6762 125.5063,3.6959 125.5183,3.7117 125.5315,3.72 125.5436,3.7235 125.5874,3.7186 125.6088,3.7103 125.619,3.7034 125.6357,3.6892 125.6471,3.6789 125.7699,3.4852 125.7777,3.4181 125.7544,3.3748 125.7432,3.3598 125.7385,3.3581 125.7385,3.3581 586,1.0,Congo 16.1889,2.2187 16.2528,2.353 16.2874,2.4275 16.3858,2.6368 16.423,2.7171 16.4619,2.799 16.4833,2.8465 16.4772,2.8811 16.4509,2.9078 16.4478,2.9464 16.4642,3.1515 16.474,3.1776 16.4863,3.1992 16.5091,3.2306 16.54,3.3274 16.55,3.4065 16.5549,3.4459 16.5675,3.4741 16.6244,3.519 16.6455,3.5317 16.6805,3.5413 16.8575,3.562 16.9382,3.5508 17.0903,3.5636 17.3293,3.6092 17.3962,3.6764 17.4439,3.7072 17.4714,3.7059 17.5023,3.6821 17.544,3.6493 17.5955,3.6257 17.6223,3.6254 17.6611,3.6261 17.7435,3.6234 17.8092,3.6119 17.8198,3.5822 17.8378,3.5329 17.8894,3.5489 18.0229,3.5621 18.0455,3.5632 18.0904,3.5584 18.1271,3.5438 18.1419,3.5213 18.1489,3.4864 18.1733,3.4785 18.1942,3.484 18.2147,3.4975 18.2299,3.5227 18.2416,3.5605 18.4311,3.6123 18.4589,3.637 18.51,3.5974 18.5473,3.5352 18.5604,3.4972 18.58,3.4777 18.6038,3.4757 18.6112,3.4497 18.6225,3.315 18.621,3.2042 18.5949,3.1346 18.5773,3.1152 18.5588,3.0998 18.5384,3.0862 18.5202,3.073 18.4494,2.9126 18.3925,2.7733 18.3623,2.6989 18.3222,2.6098 18.2966,2.5746 18.2799,2.561 18.254,2.5463 18.2167,2.519 18.2069,2.4877 18.2068,2.4552 18.2032,2.4134 18.1864,2.3859 18.142,2.3249 18.1067,2.2994 18.0901,2.278 18.0716,2.2202 18.0549,2.0646 18.0523,2.0344 18.0452,1.873 18.0529,1.755 18.0577,1.7271 18.0585,1.6672 18.0557,1.5615 18.0501,1.5271 17.9589,1.2444 17.9326,1.1727 17.9188,1.1385 17.9055,1.1141 17.8791,1.0792 17.865,1.0518 17.8576,1.0289 17.8537,0.9915 17.8556,0.9694 17.8618,0.9323 17.8695,0.8983 17.8792,0.8623 17.8859,0.8282 17.8876,0.7954 17.8836,0.7416 17.8698,0.6869 17.875,0.5996 17.902,0.5571 17.9467,0.4746 17.9484,0.4526 17.9411,0.3994 17.9361,0.3695 17.926,0.3423 17.9113,0.3229 17.8927,0.3009 17.8532,0.2575 17.82,0.2186 17.7823,0.1435 17.7768,0.1193 17.7504,0.0185 17.7234,-0.0639 17.7062,-0.1144 17.6958,-0.1419 17.6904,-0.1738 17.6893,-0.2034 17.6902,-0.2266 17.6957,-0.2589 17.7169,-0.3164 17.7226,-0.3384 17.7262,-0.3759 17.7216,-0.4127 17.7165,-0.4489 17.7023,-0.5094 17.6923,-0.5438 17.6778,-0.574 17.6619,-0.6028 17.5988,-0.694 17.5387,-0.7626 17.5293,-0.7785 17.3783,-0.94 17.3036,-1.003 17.2793,-1.0192 17.2521,-1.0331 17.2295,-1.0382 17.1934,-1.0433 17.1401,-1.0528 17.1028,-1.067 16.9493,-1.1525 16.9276,-1.1721 16.8597,-1.2351 16.8431,-1.253 16.7826,-1.3227 16.7319,-1.4092 16.7199,-1.4316 16.7011,-1.4677 16.6923,-1.4872 16.6594,-1.5708 16.6529,-1.5893 16.6509,-1.597 16.6384,-1.6378 16.6089,-1.6842 16.585,-1.7224 16.5256,-1.8282 16.5143,-1.8511 16.51,-1.8601 16.4951,-1.88 16.4439,-1.935 16.389,-1.9857 16.3493,-2.0214 16.3191,-2.0464 16.2517,-2.0883 16.2259,-2.1106 16.1888,-2.1564 16.176,-2.1784 16.169,-2.2114 16.1659,-2.2433 16.1657,-2.3041 16.1681,-2.3562 16.1701,-2.3919 16.1975,-2.5243 16.1958,-2.699 16.1898,-2.7204 16.1847,-2.7497 16.1644,-2.8752 16.1639,-2.9084 16.1681,-2.9319 16.1694,-2.9386 16.1778,-2.9971 16.1751,-3.0923 16.1705,-3.1298 16.1786,-3.2602 16.2004,-3.2797 16.209,-3.2987 16.2086,-3.3243 16.2009,-3.3444 16.1691,-3.41 16.1103,-3.5175 16.0879,-3.5565 16.0662,-3.5836 16.0403,-3.6024 15.961,-3.7621 15.9064,-3.8804 15.8725,-3.9383 15.8624,-3.9463 15.8443,-3.9558 15.8181,-3.9673 15.7501,-3.9815 15.6744,-3.9907 15.5669,-4.0274 15.5467,-4.0345 15.5179,-4.0536 15.503,-4.0735 15.4987,-4.0917 15.4684,-4.1354 15.4658,-4.1483 15.4707,-4.1723 15.4683,-4.2126 15.4506,-4.2468 15.434,-4.268 15.3986,-4.2908 15.3738,-4.2853 15.3341,-4.2765 15.3153,-4.2733 15.3109,-4.2722 15.2669,-4.2907 15.2556,-4.3017 15.201,-4.329 15.1791,-4.3487 15.1323,-4.4186 15.1165,-4.4448 15.0753,-4.4969 15.0554,-4.5147 14.9984,-4.5542 14.9098,-4.6446 14.8941,-4.6641 14.8762,-4.6946 14.8584,-4.7324 14.8152,-4.8134 14.6896,-4.8869 14.6525,-4.9014 14.6223,-4.9015 14.5698,-4.8791 14.5461,-4.856 14.4718,-4.8352 14.4024,-4.8817 14.398,-4.8682 14.3955,-4.8216 14.4026,-4.751 14.3674,-4.6198 14.3511,-4.5499 14.3771,-4.5192 14.4008,-4.5088 14.4299,-4.4832 14.4604,-4.4512 14.4708,-4.4241 14.3895,-4.2779 14.3558,-4.2784 14.2853,-4.3032 13.9924,-4.4481 13.9445,-4.4896 13.8899,-4.4843 13.8346,-4.4341 13.7996,-4.4166 13.7674,-4.4188 13.7147,-4.4431 13.7134,-4.4713 13.7242,-4.5052 13.7254,-4.5307 13.724,-4.5568 13.6841,-4.7204 13.5849,-4.7761 13.5637,-4.7737 13.5283,-4.7477 13.4884,-4.7697 13.4996,-4.7878 13.397,-4.877 13.1781,-4.6764 13.1684,-4.6521 13.1608,-4.6254 13.1272,-4.5803 13.1046,-4.5681 13.0802,-4.5735 13.0731,-4.6142 13.0766,-4.6278 13.063,-4.6243 13.0402,-4.6133 13.0234,-4.5992 13.004,-4.5798 12.8994,-4.4706 12.8899,-4.4526 12.8868,-4.4319 12.8825,-4.4122 12.8552,-4.3946 12.7646,-4.3839 12.751,-4.3888 12.7278,-4.4142 12.6772,-4.4743 12.6469,-4.5236 12.6299,-4.5517 12.4486,-4.5869 12.3866,-4.6042 12.3743,-4.6286 12.3815,-4.6598 12.3672,-4.7069 12.3173,-4.7814 12.281,-4.7838 12.2522,-4.7818 12.2013,-4.7545 12.1727,-4.8215 12.1654,-4.849 12.1525,-4.8903 12.0126,-5.0091 11.9876,-5.0092 11.9193,-4.9189 11.8129,-4.7986 11.7932,-4.7717 11.7716,-4.6806 11.7705,-4.6234 11.7847,-4.5994 11.7798,-4.5663 11.7608,-4.5373 11.7396,-4.5109 11.7225,-4.4935 11.6941,-4.4665 11.6254,-4.4041 11.5455,-4.3424 11.3676,-4.1854 11.3511,-4.1571 11.344,-4.1093 11.3305,-4.088 11.301,-4.0623 11.2043,-3.9865 11.1473,-3.9411 11.1283,-3.9207 11.1295,-3.9142 11.1551,-3.8369 11.2141,-3.6889 11.2894,-3.6289 11.4793,-3.5047 11.5137,-3.5026 11.543,-3.5109 11.5707,-3.5308 11.6151,-3.5942 11.6408,-3.634 11.7269,-3.6825 11.8257,-3.7025 11.8627,-3.7017 11.8858,-3.6753 11.8988,-3.6567 11.9086,-3.6232 11.863,-3.5957 11.8439,-3.5878 11.8267,-3.5641 11.8895,-3.4036 11.8995,-3.3861 11.9183,-3.3672 11.9528,-3.3436 11.9602,-3.3221 11.9488,-3.2937 11.7877,-3.2109 11.7692,-3.2022 11.75,-3.1941 11.6931,-3.1739 11.6877,-3.0883 11.702,-3.052 11.721,-3.04 11.7531,-3.0417 11.7916,-3.0118 11.7775,-2.9891 11.634,-2.8202 11.5699,-2.8414 11.5473,-2.8588 11.5298,-2.8281 11.5313,-2.8131 11.5333,-2.7906 11.56,-2.7587 11.577,-2.7401 11.5947,-2.7192 11.6195,-2.6642 11.6332,-2.6115 11.6166,-2.5473 11.5889,-2.4488 11.5605,-2.3335 11.5984,-2.3296 11.6461,-2.3511 11.6696,-2.3765 11.7204,-2.4158 11.7503,-2.3998 11.7883,-2.3695 11.9388,-2.3298 11.963,-2.3381 11.9863,-2.3634 12.0049,-2.3853 12.0211,-2.4038 12.039,-2.414 12.4642,-2.3244 12.4818,-2.2212 12.4883,-2.1311 12.4593,-2.072 12.4342,-2.0219 12.4232,-1.8989 12.4322,-1.8793 12.4398,-1.8758 12.4498,-1.8983 12.4871,-1.9192 12.5106,-1.8884 12.5743,-1.8233 12.6383,-1.8214 12.7107,-1.8568 12.7284,-1.8813 12.7791,-1.8975 12.8056,-1.9084 12.8309,-1.9522 12.8343,-1.9766 12.8864,-2.1403 12.9174,-2.1874 12.9458,-2.1808 12.9865,-2.2292 13.0023,-2.2677 12.9979,-2.3129 12.9869,-2.365 13.0166,-2.3303 13.1882,-2.3576 13.237,-2.3679 13.315,-2.3995 13.3755,-2.4257 13.4695,-2.4319 13.4899,-2.3965 13.5449,-2.3468 13.575,-2.323 13.6773,-2.2177 13.7118,-2.1814 13.7116,-2.1515 13.7492,-2.0884 13.7939,-2.1417 13.8632,-2.3118 13.8488,-2.4203 13.855,-2.468 13.9008,-2.487 14.0663,-2.4933 14.0949,-2.4899 14.1028,-2.4624 14.138,-2.3926 14.1651,-2.369 14.1832,-2.3568 14.2054,-2.2902 14.2378,-2.1239 14.2526,-2.034 14.238,-2.016 14.2431,-1.9714 14.3041,-1.9351 14.3416,-1.9264 14.3554,-1.9261 14.3657,-1.9229 14.3998,-1.9028 14.4121,-1.8824 14.3981,-1.8531 14.3882,-1.5958 14.4218,-1.5671 14.4487,-1.5488 14.461,-1.4315 14.4664,-1.2583 14.4658,-1.2112 14.4383,-1.1259 14.4105,-1.0454 14.4044,-0.9939 14.4128,-0.9256 14.4567,-0.735 14.479,-0.6999 14.4898,-0.6751 14.5035,-0.6123 14.4673,-0.5474 14.4404,-0.5177 14.3973,-0.4759 14.3067,-0.4361 14.2195,-0.4378 14.1766,-0.4442 14.1612,-0.4211 14.1503,-0.3734 14.136,-0.3323 14.1162,-0.2811 14.0545,-0.2513 13.9629,-0.2372 13.9218,-0.2363 13.8898,-0.2643 13.8336,-0.2024 13.8355,-0.1749 13.8465,-0.1449 13.8845,-0.096 13.9249,-0.0377 13.9336,0.0309 13.896,0.1121 13.8702,0.1898 13.8722,0.2186 13.9449,0.3484 14.0583,0.5223 14.0836,0.5433 14.1251,0.5506 14.1564,0.5454 14.1835,0.5355 14.2533,0.5451 14.3309,0.6209 14.4574,0.83 14.4696,0.9162 14.4457,0.9316 14.4093,0.9595 14.3047,1.1051 14.2774,1.1942 14.2773,1.2536 14.2551,1.3288 14.2204,1.3618 14.1756,1.3889 14.1347,1.3944 14.1003,1.3891 14.0828,1.38 14.0612,1.3741 13.9619,1.415 13.8821,1.4385 13.7889,1.434 13.7691,1.3925 13.5581,1.3044 13.454,1.2893 13.35,1.2707 13.2904,1.2333 13.2498,1.2229 13.1904,1.2203 13.1722,1.2211 13.1557,1.2459 13.1691,1.2825 13.2022,1.2935 13.2344,1.3285 13.2318,1.3941 13.221,1.4259 13.2098,1.447 13.1754,1.509 13.1439,1.5368 13.1205,1.5761 13.1284,1.7049 13.1571,1.7624 13.178,1.8062 13.1766,1.8391 13.1675,1.8701 13.1696,1.9269 13.1924,1.9755 13.2554,2.035 13.2749,2.0703 13.2792,2.1611 13.2912,2.1619 13.6465,2.1581 13.7351,2.1582 14.103,2.1557 14.2825,2.15 14.4467,2.1407 14.5465,2.1661 14.6978,2.122 14.7425,2.0704 14.8402,2.0805 14.8705,2.0147 15.0122,1.9849 15.0764,1.9783 15.1063,2.0099 15.1321,2.0364 15.1943,2.0341 15.2222,2.0277 15.2775,1.9744 15.4312,1.9668 15.4742,1.9726 15.5017,1.959 15.6286,1.9292 15.6698,1.9314 15.7397,1.9066 15.863,1.8184 15.9605,1.7693 16.0082,1.7286 16.0121,1.7081 16.0273,1.6725 16.0541,1.6523 16.1429,1.723 16.1246,1.7971 16.1111,1.8431 16.0774,1.948 16.066,2.0424 16.0653,2.1502 16.094,2.1978 16.1399,2.1842 16.1853,2.211 16.1889,2.2187 16.1889,2.2187 30,8.0,Indonesia 117.1026,3.576 117.1114,3.5814 117.1212,3.5854 117.1412,3.5883 117.2583,3.558 117.3851,3.4822 117.3849,3.4705 117.3649,3.4493 117.3535,3.4435 117.333,3.4547 117.321,3.4616 117.3022,3.4701 117.283,3.478 117.2669,3.4836 117.2561,3.4865 117.2279,3.4925 117.2159,3.494 117.2022,3.4939 117.1904,3.4916 117.1567,3.4911 117.1445,3.4925 117.1334,3.4955 117.1199,3.5019 117.1073,3.5105 117.0971,3.5204 117.0843,3.5417 117.0836,3.5549 117.0885,3.5665 117.1026,3.576 117.1026,3.576 19,8.0,Indonesia 117.4221,3.4295 117.476,3.4308 117.4924,3.4304 117.5161,3.4269 117.5294,3.4231 117.5394,3.4161 117.5452,3.4075 117.5483,3.3975 117.5464,3.3791 117.5314,3.2807 117.4993,3.2554 117.425,3.3146 117.4005,3.3758 117.3978,3.3867 117.3965,3.3988 117.3985,3.4105 117.4081,3.4234 117.4221,3.4295 117.4221,3.4295 13,7.0,Indonesia 105.5872,2.8403 105.584,2.8473 105.5648,3.003 105.5717,3.054 105.5819,3.0564 105.7187,2.9855 105.7288,2.9738 105.6936,2.8959 105.6432,2.8448 105.621,2.8328 105.5991,2.8316 105.5872,2.8403 105.5872,2.8403 19,7.0,Indonesia 108.6594,2.8967 108.673,2.9056 108.6936,2.9189 108.7037,2.9293 108.7094,2.9376 108.7141,2.9497 108.7155,2.9657 108.7217,2.9903 108.7361,2.9998 108.7489,3.0002 108.7648,2.9956 108.7727,2.9864 108.775,2.9751 108.7645,2.8889 108.7169,2.8453 108.7069,2.8416 108.6508,2.8843 108.6594,2.8967 108.6594,2.8967 47,7.0,Indonesia 96.3756,2.3685 96.3732,2.3621 96.3623,2.3565 96.3238,2.3404 96.3068,2.3373 96.224,2.3502 96.2058,2.3609 96.2012,2.3701 96.1894,2.3981 96.1884,2.4192 95.9515,2.576 95.9238,2.5897 95.9141,2.5935 95.7699,2.6407 95.754,2.6457 95.7111,2.6519 95.5946,2.7641 95.5877,2.7776 95.584,2.7987 95.5891,2.816 95.5971,2.828 95.6824,2.9337 95.7654,2.9198 95.7754,2.9159 95.787,2.9072 95.7999,2.8924 95.806,2.8778 95.8702,2.7919 95.8885,2.7748 95.9045,2.7639 95.9209,2.7598 95.9411,2.7593 95.9712,2.7569 95.9929,2.7497 96.0056,2.7413 96.0156,2.7314 96.0547,2.6798 96.1052,2.6277 96.1849,2.5707 96.2387,2.5355 96.2956,2.5158 96.3229,2.5008 96.3505,2.4596 96.3511,2.4328 96.3625,2.3995 96.3756,2.3685 96.3756,2.3685 17,8.0,Malaysia 104.0707,2.8647 104.0818,2.8388 104.0867,2.8235 104.0997,2.7824 104.1022,2.7716 104.1034,2.7191 104.0947,2.7086 104.0504,2.7024 104.0382,2.7077 104.0245,2.7277 104.0121,2.751 104.0079,2.7668 104.0062,2.7785 104.0522,2.8895 104.0665,2.8765 104.0707,2.8647 104.0707,2.8647 25,8.0,Indonesia 125.3048,2.7495 125.2849,2.7312 125.2659,2.7127 125.2609,2.7005 125.2598,2.6881 125.2628,2.6742 125.2725,2.6635 125.2807,2.6545 125.2851,2.6413 125.2746,2.6278 125.2627,2.624 125.2487,2.6265 125.2353,2.6357 125.216,2.7097 125.2137,2.7214 125.2155,2.7354 125.2396,2.7898 125.2507,2.7995 125.27,2.8038 125.2814,2.8023 125.3022,2.7844 125.3092,2.7692 125.3068,2.7535 125.3048,2.7495 125.3048,2.7495 28,8.0,Malaysia 111.1868,2.4946 111.1797,2.5918 111.1701,2.6779 111.168,2.7302 111.1701,2.7456 111.1781,2.7647 111.1871,2.7727 111.2036,2.7775 111.2202,2.7687 111.229,2.7571 111.2525,2.705 111.2565,2.6955 111.2585,2.6769 111.2586,2.6497 111.2549,2.6121 111.2518,2.5335 111.2516,2.4924 111.253,2.4802 111.2557,2.4694 111.2742,2.4056 111.2807,2.3912 111.2863,2.374 111.243,2.3569 111.2255,2.3693 111.1788,2.4474 111.1806,2.4639 111.1868,2.4946 111.1868,2.4946 17,-5.0,Colombia -78.0376,2.4966 -78.0458,2.4984 -78.1266,2.5736 -78.1273,2.5872 -78.1245,2.6035 -78.1167,2.618 -78.1029,2.6365 -78.0731,2.6437 -78.0611,2.6459 -78.0449,2.6431 -78.0174,2.5933 -78.0133,2.5836 -78.0039,2.5338 -78.0073,2.5233 -78.0313,2.4992 -78.0376,2.4966 -78.0376,2.4966 32,9.0,Indonesia 128.1325,2.0152 128.1041,2.0869 128.1012,2.0978 128.0825,2.2433 128.0882,2.3036 128.1476,2.4151 128.1614,2.4357 128.2022,2.4838 128.289,2.5684 128.3153,2.584 128.4171,2.6294 128.4319,2.6262 128.5404,2.4766 128.5482,2.4568 128.5496,2.4445 128.5495,2.431 128.5474,2.4124 128.501,2.2763 128.4956,2.2611 128.4819,2.2271 128.4753,2.2127 128.4241,2.1198 128.3677,2.0542 128.3538,2.0479 128.3181,2.0423 128.3012,2.0446 128.2675,2.045 128.2552,2.0439 128.2431,2.0427 128.1867,2.0299 128.1325,2.0152 128.1325,2.0152 444,1.0,Gabon 9.0675,-1.3366 9.0367,-1.3137 9.0166,-1.2959 9.0071,-1.2682 9.0108,-1.2344 8.9894,-1.1583 8.8871,-1.0066 8.7981,-0.8526 8.7765,-0.8129 8.7003,-0.6401 8.6911,-0.6023 8.6948,-0.5801 8.7413,-0.6133 8.7665,-0.6414 8.7813,-0.6806 8.8545,-0.721 8.9485,-0.755 8.9978,-0.8129 9.0771,-0.6782 9.0784,-0.6315 9.0886,-0.6037 9.104,-0.5848 9.1289,-0.5618 9.1543,-0.5392 9.1767,-0.5138 9.2625,-0.4071 9.2882,-0.3712 9.2991,-0.3421 9.3004,-0.298 9.295,-0.2705 9.2954,-0.2491 9.2971,-0.2121 9.3065,-0.1833 9.3162,-0.1516 9.3308,-0.1174 9.3342,-0.0743 9.3289,-0.0492 9.329,-0.0186 9.3394,0.0 9.3405,0.0078 9.3312,0.0656 9.3097,0.1756 9.2918,0.284 9.2957,0.3173 9.3405,0.3617 9.3619,0.328 9.3713,0.2035 9.4563,0.167 9.479,0.1644 9.5528,0.1626 9.6955,0.1287 9.7359,0.1163 9.7787,0.1315 9.9102,0.1851 9.847,0.1838 9.8156,0.1787 9.7774,0.1816 9.7568,0.1853 9.6696,0.2195 9.5802,0.2749 9.5394,0.2981 9.4872,0.2936 9.4498,0.3592 9.4308,0.4013 9.4086,0.4533 9.3966,0.4787 9.343,0.5279 9.3199,0.5254 9.2982,0.526 9.2949,0.5806 9.3048,0.6208 9.5074,0.6755 9.5316,0.672 9.5479,0.6471 9.5732,0.5943 9.5769,0.5717 9.5739,0.5209 9.5715,0.497 9.5892,0.4806 9.6196,0.5497 9.6222,0.5818 9.6143,0.7831 9.6064,0.8193 9.5883,0.8439 9.5493,0.955 9.5614,0.9956 9.5921,1.0194 9.6653,1.0546 9.7268,1.057 9.7516,1.0475 9.7929,1.0015 9.8215,1.001 9.8606,0.9751 9.8811,0.951 9.9404,0.9294 9.9642,0.945 9.981,1.0008 9.9901,1.0012 10.0174,1.0014 10.2152,1.0015 10.2425,1.0016 10.2701,1.0013 10.2973,1.0014 10.4033,1.0014 10.4814,1.0012 10.5084,1.001 10.7611,1.0013 10.8974,1.0016 10.9576,1.0027 11.2319,1.0012 11.3411,1.001 11.3372,1.4472 11.336,1.6037 11.3351,1.6923 11.334,1.7389 11.333,1.8288 11.3323,1.9171 11.3316,1.9852 11.3324,2.0057 11.3311,2.1623 11.3272,2.1663 11.3378,2.2341 11.3545,2.2965 11.5668,2.3129 11.6869,2.3052 11.7431,2.2799 12.2157,2.2812 12.2751,2.2991 12.3218,2.3154 12.468,2.2977 12.4877,2.2903 12.5098,2.2807 12.5816,2.2565 12.617,2.2488 12.7377,2.2308 12.85,2.238 12.9855,2.2537 13.1072,2.2726 13.1566,2.2803 13.2396,2.2637 13.2794,2.2234 13.2811,2.1687 13.2792,2.1611 13.2749,2.0703 13.2554,2.035 13.1924,1.9755 13.1696,1.9269 13.1675,1.8701 13.1766,1.8391 13.178,1.8062 13.1571,1.7624 13.1284,1.7049 13.1205,1.5761 13.1439,1.5368 13.1754,1.509 13.2098,1.447 13.221,1.4259 13.2318,1.3941 13.2344,1.3285 13.2022,1.2935 13.1691,1.2825 13.1557,1.2459 13.1722,1.2211 13.1904,1.2203 13.2498,1.2229 13.2904,1.2333 13.35,1.2707 13.454,1.2893 13.5581,1.3044 13.7691,1.3925 13.7889,1.434 13.8821,1.4385 13.9619,1.415 14.0612,1.3741 14.0828,1.38 14.1003,1.3891 14.1347,1.3944 14.1756,1.3889 14.2204,1.3618 14.2551,1.3288 14.2773,1.2536 14.2774,1.1942 14.3047,1.1051 14.4093,0.9595 14.4457,0.9316 14.4696,0.9162 14.4574,0.83 14.3309,0.6209 14.2533,0.5451 14.1835,0.5355 14.1564,0.5454 14.1251,0.5506 14.0836,0.5433 14.0583,0.5223 13.9449,0.3484 13.8722,0.2186 13.8702,0.1898 13.896,0.1121 13.9336,0.0309 13.9249,-0.0377 13.8845,-0.096 13.8465,-0.1449 13.8355,-0.1749 13.8336,-0.2024 13.8898,-0.2643 13.9218,-0.2363 13.9629,-0.2372 14.0545,-0.2513 14.1162,-0.2811 14.136,-0.3323 14.1503,-0.3734 14.1612,-0.4211 14.1766,-0.4442 14.2195,-0.4378 14.3067,-0.4361 14.3973,-0.4759 14.4404,-0.5177 14.4673,-0.5474 14.5035,-0.6123 14.4898,-0.6751 14.479,-0.6999 14.4567,-0.735 14.4128,-0.9256 14.4044,-0.9939 14.4105,-1.0454 14.4383,-1.1259 14.4658,-1.2112 14.4664,-1.2583 14.461,-1.4315 14.4487,-1.5488 14.4218,-1.5671 14.3882,-1.5958 14.3981,-1.8531 14.4121,-1.8824 14.3998,-1.9028 14.3657,-1.9229 14.3554,-1.9261 14.3416,-1.9264 14.3041,-1.9351 14.2431,-1.9714 14.238,-2.016 14.2526,-2.034 14.2378,-2.1239 14.2054,-2.2902 14.1832,-2.3568 14.1651,-2.369 14.138,-2.3926 14.1028,-2.4624 14.0949,-2.4899 14.0663,-2.4933 13.9008,-2.487 13.855,-2.468 13.8488,-2.4203 13.8632,-2.3118 13.7939,-2.1417 13.7492,-2.0884 13.7116,-2.1515 13.7118,-2.1814 13.6773,-2.2177 13.575,-2.323 13.5449,-2.3468 13.4899,-2.3965 13.4695,-2.4319 13.3755,-2.4257 13.315,-2.3995 13.237,-2.3679 13.1882,-2.3576 13.0166,-2.3303 12.9869,-2.365 12.9979,-2.3129 13.0023,-2.2677 12.9865,-2.2292 12.9458,-2.1808 12.9174,-2.1874 12.8864,-2.1403 12.8343,-1.9766 12.8309,-1.9522 12.8056,-1.9084 12.7791,-1.8975 12.7284,-1.8813 12.7107,-1.8568 12.6383,-1.8214 12.5743,-1.8233 12.5106,-1.8884 12.4871,-1.9192 12.4498,-1.8983 12.4398,-1.8758 12.4322,-1.8793 12.4232,-1.8989 12.4342,-2.0219 12.4593,-2.072 12.4883,-2.1311 12.4818,-2.2212 12.4642,-2.3244 12.039,-2.414 12.0211,-2.4038 12.0049,-2.3853 11.9863,-2.3634 11.963,-2.3381 11.9388,-2.3298 11.7883,-2.3695 11.7503,-2.3998 11.7204,-2.4158 11.6696,-2.3765 11.6461,-2.3511 11.5984,-2.3296 11.5605,-2.3335 11.5889,-2.4488 11.6166,-2.5473 11.6332,-2.6115 11.6195,-2.6642 11.5947,-2.7192 11.577,-2.7401 11.56,-2.7587 11.5333,-2.7906 11.5313,-2.8131 11.5298,-2.8281 11.5473,-2.8588 11.5699,-2.8414 11.634,-2.8202 11.7775,-2.9891 11.7916,-3.0118 11.7531,-3.0417 11.721,-3.04 11.702,-3.052 11.6877,-3.0883 11.6931,-3.1739 11.75,-3.1941 11.7692,-3.2022 11.7877,-3.2109 11.9488,-3.2937 11.9602,-3.3221 11.9528,-3.3436 11.9183,-3.3672 11.8995,-3.3861 11.8895,-3.4036 11.8267,-3.5641 11.8439,-3.5878 11.863,-3.5957 11.9086,-3.6232 11.8988,-3.6567 11.8858,-3.6753 11.8627,-3.7017 11.8257,-3.7025 11.7269,-3.6825 11.6408,-3.634 11.6151,-3.5942 11.5707,-3.5308 11.543,-3.5109 11.5137,-3.5026 11.4793,-3.5047 11.2894,-3.6289 11.2141,-3.6889 11.1551,-3.8369 11.1295,-3.9142 11.1283,-3.9207 11.0329,-3.8473 10.997,-3.8009 10.9731,-3.7395 10.9739,-3.7168 10.9643,-3.6922 10.9478,-3.6708 10.9142,-3.6358 10.8154,-3.5487 10.7889,-3.5265 10.7401,-3.493 10.7022,-3.4677 10.6339,-3.3417 10.6179,-3.3049 10.5997,-3.2818 10.4898,-3.1652 10.4236,-3.1003 10.2904,-2.9751 10.1871,-2.8992 10.1624,-2.882 10.0574,-2.801 10.035,-2.7821 9.9819,-2.7338 9.9561,-2.7158 9.934,-2.6963 9.8787,-2.6477 9.7285,-2.4887 9.6915,-2.4451 9.7299,-2.4773 9.758,-2.4925 9.7891,-2.4983 9.8194,-2.4978 9.9597,-2.5797 9.9636,-2.6146 10.005,-2.6366 10.1451,-2.5719 10.1223,-2.5207 10.0648,-2.4905 9.9922,-2.5343 9.9702,-2.5582 9.9475,-2.5423 9.9009,-2.4726 9.8569,-2.4164 9.8032,-2.4273 9.7834,-2.4523 9.751,-2.476 9.7125,-2.4365 9.6549,-2.423 9.6212,-2.3914 9.6004,-2.3677 9.5787,-2.3364 9.5682,-2.2893 9.57,-2.2521 9.5645,-2.2154 9.5447,-2.1854 9.4932,-2.1308 9.4747,-2.1142 9.4428,-2.0876 9.4137,-2.0585 9.3666,-2.0067 9.3267,-1.9341 9.312,-1.9051 9.4327,-1.9152 9.4631,-1.9681 9.4779,-2.0048 9.5264,-2.0657 9.5517,-2.0549 9.5559,-2.0323 9.5075,-1.9244 9.4664,-1.8564 9.3626,-1.821 9.3376,-1.8542 9.306,-1.8551 9.2523,-1.847 9.2336,-1.7801 9.2406,-1.7512 9.2431,-1.7197 9.2233,-1.62 9.2116,-1.594 9.1918,-1.5591 9.1722,-1.5279 9.1186,-1.4688 9.0593,-1.391 9.0445,-1.3715 9.0201,-1.3344 9.0063,-1.3054 9.0303,-1.3237 9.0675,-1.3366 9.0675,-1.3366 31,1.0,Gabon 9.0675,-1.3366 9.1064,-1.4054 9.2231,-1.5282 9.2806,-1.6367 9.3514,-1.627 9.3811,-1.6498 9.4012,-1.6705 9.4123,-1.6123 9.4413,-1.6087 9.4851,-1.6085 9.5035,-1.5945 9.473,-1.5464 9.426,-1.513 9.3816,-1.5614 9.3371,-1.574 9.2992,-1.5821 9.2781,-1.5683 9.2413,-1.4966 9.2694,-1.4688 9.3264,-1.398 9.3392,-1.3622 9.3425,-1.3404 9.3229,-1.2839 9.3165,-1.3064 9.3266,-1.3431 9.3175,-1.3681 9.294,-1.3822 9.2143,-1.4096 9.1664,-1.4104 9.0675,-1.3366 9.0675,-1.3366 21,7.0,Indonesia 97.2333,2.0516 97.2214,2.0338 97.2116,2.028 97.1959,2.05 97.1868,2.0668 97.1822,2.0757 97.1705,2.0916 97.1247,2.1414 97.0981,2.1698 97.0898,2.1751 97.0413,2.1963 97.0071,2.2016 96.9932,2.2108 96.9993,2.2194 97.0562,2.2311 97.1752,2.2235 97.2152,2.1607 97.2191,2.1511 97.2349,2.1037 97.2333,2.0516 97.2333,2.0516 18,-3.0,Brazil -50.428,2.1154 -50.44,2.1181 -50.4767,2.1475 -50.4787,2.1575 -50.4753,2.1756 -50.4602,2.2006 -50.4482,2.2089 -50.4036,2.2117 -50.3799,2.2067 -50.3637,2.2003 -50.3488,2.1911 -50.3398,2.1708 -50.3411,2.159 -50.3479,2.144 -50.3561,2.1377 -50.4184,2.1173 -50.428,2.1154 -50.428,2.1154 188,9.0,Indonesia 127.7581,-0.4563 127.7507,-0.4362 127.743,-0.4164 127.716,-0.3785 127.6826,-0.354 127.663,-0.346 127.6338,-0.3344 127.5763,-0.2995 127.5578,-0.2797 127.5212,-0.2148 127.5301,-0.1617 127.558,0.0659 127.545,0.196 127.5134,0.3387 127.4764,0.3597 127.4282,0.4109 127.3841,0.5454 127.38,0.6011 127.4027,0.7146 127.4262,0.7452 127.4449,0.7588 127.4764,0.8216 127.4714,0.8521 127.4349,0.8602 127.3643,0.8838 127.3531,0.9012 127.3676,0.958 127.3408,1.053 127.3065,1.0504 127.2834,1.0391 127.2602,1.0377 127.2524,1.0605 127.256,1.1856 127.2585,1.211 127.27,1.2366 127.2892,1.2659 127.3103,1.2958 127.3295,1.3316 127.3746,1.4161 127.3833,1.4388 127.388,1.4611 127.3903,1.4964 127.3819,1.5187 127.425,1.7374 127.5098,1.8686 127.5319,1.9015 127.5482,1.9229 127.7657,2.1565 127.8036,2.1891 127.9101,2.1902 127.9048,2.1443 127.8965,2.1253 127.8856,2.1081 127.8038,1.9837 127.7794,1.9546 127.7521,1.9461 127.7122,1.9141 127.7068,1.8237 127.7275,1.8047 127.7548,1.7943 127.7741,1.7997 127.7983,1.7929 127.8371,1.7598 127.8536,1.7421 127.8691,1.7128 127.8937,1.5188 127.8463,1.3451 127.781,1.2264 127.7647,1.2015 127.6914,1.1407 127.5091,1.0154 127.487,0.9811 127.4835,0.9571 127.4898,0.9219 127.5141,0.8804 127.611,0.8108 127.6507,0.7942 127.6707,0.7936 127.7004,0.8015 127.7266,0.8163 127.7728,0.8571 127.7794,0.9314 127.7846,0.9891 127.8306,1.0666 127.8945,1.1161 127.945,1.1226 127.9903,1.1144 128.0229,1.131 128.0461,1.1692 128.0515,1.1909 128.0425,1.2181 128.0238,1.2334 127.9989,1.2366 127.9866,1.2841 128.0227,1.344 128.0446,1.3767 128.0673,1.3951 128.2306,1.5061 128.2741,1.5245 128.2987,1.5348 128.3191,1.5419 128.4049,1.564 128.4836,1.5758 128.5084,1.5774 128.5426,1.5742 128.5653,1.5693 128.5803,1.5551 128.5535,1.1008 128.5198,1.0621 128.3015,0.9333 128.2757,0.9216 128.2526,0.9139 128.2165,0.9039 128.1854,0.9009 128.1546,0.8904 128.0688,0.8046 128.0685,0.7789 128.093,0.7299 128.1551,0.6757 128.1825,0.6579 128.2052,0.6467 128.2245,0.6382 128.3524,0.5883 128.4436,0.5597 128.4873,0.5617 128.5304,0.5524 128.5487,0.4084 128.546,0.3869 128.5391,0.3569 128.5771,0.3288 128.6382,0.3149 128.6853,0.2998 128.7302,0.2627 128.7608,0.203 128.7351,0.2174 128.7094,0.2412 128.6704,0.2557 128.6158,0.2712 128.5753,0.282 128.4899,0.3036 128.4331,0.3098 128.4001,0.3197 128.3508,0.3562 128.3303,0.3835 128.3092,0.3965 128.2162,0.397 128.1792,0.3896 128.1366,0.3854 128.0706,0.4028 128.0367,0.4222 128.0168,0.4504 127.9306,0.4655 127.8486,0.473 127.8143,0.4759 127.7783,0.4539 127.7634,0.4345 127.7359,0.2991 127.7636,0.2773 127.7807,0.1393 127.7725,0.1166 127.7514,0.1002 127.7407,0.0735 127.7397,0.0466 127.7427,-0.0052 127.75,-0.0318 127.8404,-0.2716 127.8935,-0.4026 127.9069,-0.4311 127.9278,-0.4716 127.9505,-0.5104 127.9945,-0.5691 128.0242,-0.6211 128.07,-0.6987 128.1593,-0.7943 128.2193,-0.8464 128.2581,-0.8869 128.1386,-0.8808 128.1094,-0.8709 128.0873,-0.8503 128.0948,-0.83 127.995,-0.7531 127.9087,-0.7177 127.8779,-0.6921 127.8671,-0.6623 127.8485,-0.6192 127.799,-0.5176 127.7581,-0.4563 127.7581,-0.4563 21,-3.0,Brazil -50.3478,1.8779 -50.3671,1.8877 -50.3769,1.8989 -50.4472,2.0189 -50.4427,2.0756 -50.4384,2.0953 -50.428,2.1023 -50.3415,2.1322 -50.3221,2.131 -50.2995,2.1147 -50.2946,2.1058 -50.2482,1.9961 -50.2409,1.9791 -50.2416,1.9596 -50.2468,1.9483 -50.2547,1.9403 -50.305,1.8889 -50.3234,1.8832 -50.3397,1.8792 -50.3478,1.8779 -50.3478,1.8779 40,7.0,Indonesia 101.66,1.9375 101.617,1.883 101.6135,1.8726 101.6122,1.8605 101.6145,1.8384 101.6166,1.8237 101.6178,1.8045 101.6142,1.7909 101.6039,1.777 101.5428,1.7275 101.53,1.7194 101.5167,1.7126 101.5001,1.7085 101.4879,1.7073 101.4604,1.7072 101.4421,1.7094 101.431,1.712 101.3782,1.7276 101.3563,1.7399 101.3467,1.7511 101.3338,1.7689 101.3273,1.7825 101.2799,1.9137 101.2795,1.9234 101.2845,1.99 101.2907,2.0149 101.296,2.0299 101.3107,2.0498 101.3275,2.0603 101.3419,2.0663 101.502,2.1131 101.528,2.1176 101.5432,2.1154 101.5538,2.1132 101.5655,2.1075 101.5854,2.0897 101.6581,1.9912 101.6634,1.9722 101.66,1.9375 101.66,1.9375 16,7.0,Indonesia 98.4672,1.6212 98.4519,1.6184 98.3898,1.6209 98.3786,1.624 98.3378,1.6387 98.3231,1.6514 98.3165,1.6656 98.3182,1.6795 98.3289,1.6929 98.3428,1.7026 98.3542,1.7038 98.4447,1.6799 98.4692,1.6656 98.4919,1.6254 98.4672,1.6212 98.4672,1.6212 1011,8.0,Indonesia 119.6837,-0.0982 119.6958,-0.0932 119.7079,-0.071 119.7208,-0.0428 119.725,-0.033 119.7446,0.0429 119.7482,0.0596 119.7489,0.0713 119.746,0.0825 119.7428,0.0928 119.738,0.1018 119.7269,0.1181 119.7135,0.1319 119.7022,0.1415 119.6906,0.1501 119.6771,0.1639 119.6497,0.1981 119.6449,0.2069 119.642,0.2181 119.6439,0.2297 119.7606,0.4472 119.7748,0.467 119.7894,0.4801 119.8126,0.4914 119.8248,0.4922 119.8456,0.4924 119.8571,0.4946 119.8673,0.4979 119.8764,0.5025 119.8989,0.5208 119.9058,0.5348 119.9069,0.5473 119.9072,0.5666 119.9051,0.578 119.8981,0.5985 119.8913,0.6192 119.8883,0.6367 119.8866,0.6623 119.8879,0.6915 119.8983,0.712 119.9269,0.738 119.9408,0.7481 119.9556,0.7488 119.972,0.7465 119.9846,0.7477 120.0168,0.7635 120.0537,0.7821 120.0626,0.7866 120.0755,0.7943 120.0856,0.8046 120.0973,0.821 120.1019,0.8335 120.104,0.8815 120.1041,0.921 120.1169,0.9626 120.1225,0.9708 120.1382,0.9842 120.1524,0.9886 120.1713,0.9908 120.1869,0.9893 120.2052,0.977 120.2101,0.9613 120.2101,0.9475 120.2088,0.9354 120.2063,0.9176 120.1974,0.8817 120.1978,0.8689 120.2049,0.8587 120.2709,0.8114 120.2851,0.8045 120.3067,0.7992 120.4296,0.7733 120.4401,0.776 120.4671,0.8442 120.4717,0.8777 120.4746,0.8887 120.5107,0.9484 120.551,0.9909 120.6161,1.0133 120.6635,1.0638 120.6919,1.1959 120.6942,1.2179 120.6921,1.2328 120.683,1.2651 120.6817,1.2776 120.685,1.3118 120.6934,1.3225 120.8149,1.3411 120.8289,1.3412 120.8671,1.3383 120.8851,1.3355 120.9583,1.3229 120.9747,1.3187 120.9845,1.3145 121.0068,1.303 121.0151,1.2973 121.0308,1.2855 121.0459,1.2734 121.0773,1.2499 121.0857,1.2447 121.1066,1.2316 121.1309,1.2283 121.2478,1.2461 121.2902,1.2226 121.3004,1.1818 121.3134,1.1599 121.3347,1.1331 121.3733,1.0892 121.388,1.0769 121.4019,1.07 121.4213,1.0619 121.4368,1.0573 121.4593,1.0524 121.6256,1.0752 121.7783,1.0962 121.7907,1.0976 121.8013,1.0913 121.8216,1.0463 121.825,1.036 121.8348,1.022 121.8533,1.0145 121.8735,1.0194 121.8816,1.0252 121.9056,1.0489 121.9239,1.0617 121.9516,1.0604 121.968,1.0496 121.9773,1.0456 122.0916,1.0052 122.1552,1.0081 122.2306,1.0084 122.2748,1.0057 122.3275,0.9981 122.5244,0.9409 122.53,0.929 122.5382,0.9203 122.646,0.8479 122.6854,0.8252 122.6987,0.8183 122.7089,0.814 122.7189,0.8188 122.7613,0.845 122.7729,0.8537 122.8217,0.9248 122.9021,0.9395 123.0652,0.9555 123.1041,0.9523 123.2363,0.9245 123.3433,0.8889 123.4096,0.8661 123.4274,0.8638 123.4473,0.8765 123.4616,0.8837 123.5807,0.8509 123.6835,0.8305 123.7005,0.8286 123.7742,0.8337 123.8458,0.8762 124.0244,0.951 124.1536,1.0131 124.1646,1.0229 124.1776,1.0442 124.1876,1.0682 124.2022,1.1153 124.2142,1.1548 124.2251,1.1691 124.2666,1.188 124.2824,1.1928 124.2978,1.1939 124.3576,1.19 124.4371,1.1828 124.4501,1.19 124.4747,1.2241 124.4775,1.2381 124.4739,1.2593 124.4428,1.2778 124.4325,1.2726 124.4183,1.2712 124.4061,1.276 124.3946,1.2886 124.3912,1.3024 124.3894,1.3235 124.3944,1.3357 124.4162,1.3684 124.4702,1.4101 124.4812,1.4163 124.4984,1.4112 124.5121,1.4042 124.5274,1.3986 124.5379,1.3958 124.5499,1.3939 124.5657,1.3946 124.579,1.3987 124.6858,1.4572 124.6959,1.4646 124.7063,1.4814 124.7077,1.4959 124.7046,1.5061 124.6974,1.5196 124.6831,1.5394 124.6767,1.5568 124.6798,1.5737 124.688,1.5827 124.8311,1.6928 124.8927,1.6983 124.9911,1.6698 125.03,1.6373 125.0232,1.6169 125.0205,1.6057 125.0205,1.5902 125.0256,1.5778 125.0353,1.5638 125.0446,1.5563 125.0734,1.5368 125.1028,1.5183 125.1086,1.5072 125.1063,1.4927 125.1001,1.4717 125.0903,1.4577 125.0768,1.4472 125.0682,1.4425 125.0554,1.4377 125.0406,1.4355 125.0182,1.434 125.0016,1.4198 124.9636,1.3685 124.9503,1.3479 124.944,1.3336 124.9324,1.2971 124.9253,1.267 124.9222,1.2529 124.9112,1.216 124.9057,1.2009 124.855,1.1078 124.8476,1.0946 124.7588,0.9712 124.7273,0.9553 124.6976,0.9436 124.6827,0.9379 124.5946,0.872 124.5251,0.8039 124.4375,0.6555 124.431,0.6415 124.4288,0.63 124.4138,0.5901 124.3021,0.455 124.1815,0.393 124.1072,0.3746 124.0946,0.3734 124.0755,0.3746 124.0488,0.374 123.9414,0.3584 123.807,0.3363 123.6985,0.3151 123.637,0.2959 123.5075,0.2809 123.4487,0.2988 123.2818,0.2971 123.2495,0.2955 123.2159,0.2947 123.1967,0.296 123.168,0.3016 123.1352,0.3096 123.1249,0.313 123.1104,0.3192 123.0942,0.3302 123.0839,0.3407 123.0366,0.3877 123.0063,0.4331 122.9897,0.4572 122.9558,0.4917 122.9303,0.5093 122.9126,0.495 122.9004,0.4869 122.8887,0.4847 122.8209,0.4788 122.8006,0.4787 122.63,0.4822 122.4436,0.4917 122.3671,0.4959 122.3344,0.4974 122.2932,0.4974 122.2424,0.4975 122.2288,0.4975 122.1726,0.4919 122.0522,0.4789 121.9152,0.4822 121.8954,0.4787 121.8861,0.4745 121.8749,0.4651 121.8628,0.4502 121.8516,0.444 121.7573,0.4255 121.7223,0.4219 121.6563,0.4224 121.6438,0.4286 121.6108,0.47 121.5989,0.4924 121.5935,0.5007 121.5831,0.5111 121.5709,0.5194 121.5602,0.522 121.4013,0.5375 121.3873,0.531 121.3801,0.5178 121.3788,0.5019 121.3758,0.4914 121.3705,0.4828 121.3594,0.4767 121.3056,0.4688 121.2014,0.4575 121.1861,0.4628 121.1772,0.4679 121.1677,0.4719 121.1417,0.4802 121.12,0.4821 121.1058,0.4796 121.0198,0.4563 121.0013,0.4365 120.9887,0.4116 120.9844,0.409 120.9692,0.4068 120.9412,0.4096 120.7168,0.4514 120.6647,0.4816 120.5552,0.5269 120.5107,0.5361 120.4968,0.5362 120.4141,0.5355 120.3862,0.5295 120.3586,0.5225 120.3487,0.5194 120.2513,0.4797 120.2379,0.4722 120.1829,0.4247 120.1687,0.4117 120.1596,0.4022 120.1077,0.3449 120.0089,0.2035 119.9897,0.175 119.9858,0.165 119.9639,0.1058 119.9603,0.0957 119.959,0.0693 119.9593,0.0469 119.9428,-0.0154 119.9372,-0.0271 119.925,-0.0385 119.9102,-0.0481 119.893,-0.0617 119.8859,-0.075 119.8646,-0.1988 119.8637,-0.2117 119.8651,-0.2447 119.8673,-0.2701 119.8845,-0.3626 119.9319,-0.6122 119.9413,-0.6368 119.9624,-0.6842 119.9702,-0.6972 120.0226,-0.775 120.0451,-0.8071 120.1226,-0.9019 120.1359,-0.9157 120.1561,-0.93 120.1704,-0.9361 120.1814,-0.9386 120.1967,-0.9384 120.2117,-0.9289 120.2223,-0.9197 120.2309,-0.914 120.2445,-0.9072 120.2548,-0.9037 120.2709,-0.9043 120.2864,-0.9134 120.3617,-0.978 120.3788,-0.999 120.4285,-1.0788 120.4389,-1.096 120.4435,-1.1048 120.4511,-1.1213 120.4524,-1.1326 120.4345,-1.1865 120.4609,-1.2519 120.5127,-1.3644 120.5173,-1.3731 120.5292,-1.3922 120.5433,-1.396 120.6032,-1.365 120.6553,-1.3421 120.6946,-1.3426 120.693,-1.3575 120.6907,-1.372 120.6949,-1.3844 120.7063,-1.3905 120.7414,-1.3964 120.8909,-1.4177 120.9308,-1.4258 120.9448,-1.4228 120.9695,-1.4059 121.0069,-1.3576 121.0246,-1.3337 121.037,-1.3041 121.043,-1.2761 121.0463,-1.2521 121.0541,-1.2255 121.0672,-1.1973 121.3265,-0.8896 121.3376,-0.88 121.3573,-0.8656 121.3657,-0.8599 121.4571,-0.8124 121.4859,-0.8038 121.5055,-0.8025 121.5184,-0.8085 121.5247,-0.8195 121.5245,-0.8354 121.5214,-0.8463 121.5186,-0.8672 121.5199,-0.8787 121.5271,-0.8889 121.5704,-0.9345 121.584,-0.9414 121.5948,-0.9442 121.6136,-0.9462 121.7913,-0.9622 121.9685,-0.9298 121.9798,-0.9237 121.9926,-0.9093 122.0009,-0.8969 122.0055,-0.8879 122.0096,-0.8717 122.0119,-0.8531 122.0126,-0.8403 122.0221,-0.8011 122.0367,-0.785 122.0619,-0.7689 122.0762,-0.7627 122.0903,-0.7598 122.3157,-0.7486 122.4457,-0.7718 122.5312,-0.7792 122.6291,-0.7786 122.7801,-0.7639 122.8202,-0.7427 122.8163,-0.7274 122.7334,-0.6978 122.7054,-0.6953 122.6849,-0.695 122.6519,-0.6937 122.6181,-0.6863 122.5913,-0.6688 122.5928,-0.6532 122.6782,-0.6164 122.766,-0.604 122.7955,-0.606 122.8395,-0.6089 122.853,-0.6089 122.871,-0.6061 122.8997,-0.597 122.9092,-0.5829 122.9124,-0.5689 122.9199,-0.5596 122.933,-0.559 123.075,-0.5635 123.0864,-0.5656 123.1242,-0.5758 123.1336,-0.5801 123.1617,-0.5931 123.1757,-0.6001 123.2732,-0.6527 123.317,-0.7645 123.3085,-0.8364 123.2908,-0.8567 123.2803,-0.866 123.2679,-0.881 123.263,-0.8902 123.2525,-0.9309 123.2542,-0.9472 123.2433,-1.0033 123.2392,-1.0124 123.2307,-1.0248 123.2143,-1.0427 123.1956,-1.0546 123.1793,-1.0557 123.1407,-1.0469 123.1294,-1.044 123.107,-1.0324 123.0342,-0.9478 123.0151,-0.8953 122.9313,-0.8757 122.7031,-0.9051 122.6924,-0.9079 122.6827,-0.9121 122.6687,-0.9257 122.6593,-0.9435 122.656,-0.9711 122.6532,-0.9852 122.6326,-1.0263 122.6249,-1.0392 122.5498,-1.1215 122.4922,-1.2219 122.4237,-1.2767 122.3046,-1.4055 122.254,-1.4711 122.24,-1.4877 122.2089,-1.5088 122.1068,-1.5651 122.0252,-1.6086 121.9685,-1.6107 121.8741,-1.6286 121.8156,-1.6667 121.8027,-1.6658 121.7733,-1.6708 121.7001,-1.6892 121.6619,-1.7186 121.6439,-1.7552 121.6384,-1.7702 121.633,-1.7921 121.6301,-1.8059 121.6062,-1.8574 121.5981,-1.8667 121.5569,-1.9075 121.529,-1.9227 121.5084,-1.9275 121.4788,-1.9323 121.4665,-1.9338 121.4022,-1.9305 121.3939,-1.9198 121.3834,-1.8954 121.3737,-1.8851 121.3099,-1.8199 121.1969,-1.7708 121.1787,-1.7763 121.1674,-1.7858 121.1628,-1.798 121.1574,-1.8343 121.1577,-1.844 121.208,-1.9905 121.2302,-1.9727 121.2925,-1.9693 121.3452,-2.0273 121.4143,-2.1348 121.4198,-2.1428 121.4332,-2.1568 121.4478,-2.1665 121.4822,-2.1767 121.4944,-2.1778 121.5074,-2.1771 121.5242,-2.1696 121.5347,-2.1674 121.5698,-2.1766 121.5793,-2.1806 121.7009,-2.3064 121.8318,-2.5316 121.8769,-2.6792 121.9937,-2.7747 122.0109,-2.7852 122.1699,-2.899 122.1745,-2.9115 122.1743,-2.9252 122.1705,-2.9385 122.1562,-2.9685 122.142,-2.9884 122.1294,-3.003 122.1242,-3.0151 122.1279,-3.0242 122.1365,-3.0335 122.2379,-3.1236 122.2527,-3.132 122.2654,-3.1269 122.2842,-3.1176 122.3382,-3.1571 122.3345,-3.1683 122.2974,-3.2135 122.275,-3.232 122.2179,-3.2163 122.214,-3.2194 122.2036,-3.2296 122.1599,-3.2814 122.1103,-3.3846 122.1287,-3.4192 122.1467,-3.4352 122.1541,-3.4541 122.1299,-3.5271 122.1214,-3.5357 122.112,-3.5398 122.0736,-3.5491 122.0617,-3.5548 122.0573,-3.5639 122.0605,-3.5771 122.0652,-3.5865 122.0851,-3.6214 122.0953,-3.6385 122.1083,-3.6536 122.2038,-3.7236 122.3401,-3.7992 122.4604,-3.8789 122.472,-3.955 122.5362,-4.1215 122.5447,-4.134 122.5546,-4.1415 122.696,-4.1307 122.6898,-4.1065 122.662,-4.0849 122.6516,-4.0818 122.6409,-4.0716 122.6303,-4.0469 122.6424,-4.041 122.6647,-4.0401 122.6788,-4.043 122.6981,-4.0511 122.7184,-4.0718 122.7308,-4.0936 122.7399,-4.1118 122.7581,-4.1622 122.7678,-4.2247 122.7652,-4.3054 122.7634,-4.337 122.7595,-4.3845 122.7541,-4.3928 122.7084,-4.4303 122.6189,-4.4812 122.6071,-4.4834 122.5402,-4.4771 122.5338,-4.4647 122.5325,-4.4527 122.5341,-4.4377 122.5278,-4.4274 122.4936,-4.4004 122.4565,-4.3888 122.4373,-4.3944 122.4039,-4.4158 122.3915,-4.4242 122.3325,-4.4275 122.2257,-4.4438 122.1554,-4.4619 122.0676,-4.4855 121.9659,-4.5209 121.952,-4.5411 121.9415,-4.5583 121.932,-4.576 121.9217,-4.6001 121.9097,-4.6353 121.9024,-4.659 121.9013,-4.6818 121.9041,-4.7063 121.9069,-4.7173 121.9107,-4.7268 121.9204,-4.7445 121.9258,-4.753 121.9354,-4.7636 121.9498,-4.7766 121.9703,-4.7903 121.971,-4.8086 121.9512,-4.8336 121.939,-4.838 121.8387,-4.8514 121.8321,-4.8515 121.7411,-4.8482 121.5624,-4.8292 121.4139,-4.7401 121.3945,-4.72 121.3417,-4.6548 121.3382,-4.6209 121.3449,-4.5597 121.3588,-4.4928 121.4322,-4.2519 121.4432,-4.2425 121.4632,-4.2143 121.4751,-4.1788 121.4821,-4.1516 121.4849,-4.1235 121.4842,-4.1001 121.4813,-4.0757 121.4767,-4.0601 121.467,-4.0462 121.4501,-4.0347 121.4358,-4.0287 121.3568,-4.0048 121.3412,-4.0001 121.2757,-3.9837 121.2386,-3.9794 121.2223,-3.9719 121.2131,-3.9637 121.1989,-3.9441 121.186,-3.9092 121.1784,-3.8956 121.1144,-3.8129 121.0977,-3.8051 121.0766,-3.7993 120.9876,-3.7488 120.8049,-3.5888 120.7914,-3.5751 120.769,-3.5432 120.7444,-3.5316 120.731,-3.4918 120.7284,-3.481 120.7292,-3.4446 120.734,-3.4289 120.7463,-3.4001 120.7503,-3.3906 120.7587,-3.3784 120.8433,-3.2641 120.8839,-3.2433 120.933,-3.2014 120.9471,-2.9218 120.9468,-2.902 120.94,-2.7555 120.9358,-2.7392 120.9311,-2.7302 120.8885,-2.6686 120.8548,-2.657 120.6757,-2.6123 120.6359,-2.6094 120.551,-2.6407 120.5416,-2.6449 120.4353,-2.7084 120.2373,-2.8529 120.0663,-2.9599 120.1324,-3.1339 120.2091,-3.1899 120.2424,-3.2038 120.2531,-3.2145 120.2728,-3.2547 120.2652,-3.2861 120.264,-3.3038 120.2623,-3.3625 120.259,-3.5065 120.2604,-3.5192 120.2725,-3.5484 120.288,-3.5708 120.2915,-3.584 120.3101,-3.7134 120.3077,-3.7297 120.3026,-3.7443 120.2702,-3.7978 120.2401,-3.8435 120.2355,-3.8523 120.2161,-3.9089 120.2114,-3.9318 120.2107,-3.9446 120.2056,-4.1032 120.2091,-4.1135 120.2243,-4.1323 120.2459,-4.1551 120.2499,-4.1647 120.2486,-4.1839 120.2381,-4.2798 120.2238,-4.368 120.2202,-4.3814 120.2249,-4.4063 120.2313,-4.4205 120.2415,-4.4376 120.2497,-4.4499 120.2584,-4.4872 120.2798,-4.5992 120.2849,-4.6727 120.2534,-4.7782 120.2015,-4.83 120.1824,-4.8386 120.1715,-4.8483 120.1656,-4.9367 120.1683,-4.96 120.1707,-4.9718 120.1708,-4.9852 120.1549,-5.057 120.1384,-5.1222 120.129,-5.1467 120.1317,-5.158 120.1926,-5.2539 120.247,-5.3475 120.2927,-5.4899 120.3261,-5.6133 120.3185,-5.6245 120.3082,-5.6211 120.271,-5.6081 120.2386,-5.5652 120.2316,-5.5516 120.2275,-5.542 120.2208,-5.5278 120.2127,-5.5154 120.2042,-5.5101 120.1916,-5.5057 120.1775,-5.5082 120.0839,-5.5359 120.0727,-5.5419 120.0537,-5.5538 120.0072,-5.5756 119.9873,-5.5828 119.9718,-5.5875 119.9592,-5.5894 119.9471,-5.5877 119.9314,-5.5851 119.8881,-5.5755 119.8559,-5.5665 119.8402,-5.5617 119.8184,-5.5565 119.7912,-5.5558 119.7745,-5.5646 119.7158,-5.6188 119.7094,-5.6326 119.7077,-5.6513 119.7012,-5.6622 119.6896,-5.6708 119.6482,-5.6977 119.6352,-5.7018 119.6191,-5.7016 119.5513,-5.6968 119.5362,-5.6948 119.5275,-5.69 119.5184,-5.6818 119.5045,-5.651 119.5077,-5.635 119.4884,-5.6129 119.4764,-5.6082 119.4091,-5.5878 119.329,-5.5573 119.2412,-5.4347 119.2329,-5.4224 119.2189,-5.3939 119.216,-5.344 119.2159,-5.3303 119.2396,-5.1866 119.2422,-5.1754 119.2644,-5.1289 119.2754,-5.1134 119.3335,-5.0385 119.3836,-4.9123 119.3885,-4.8678 119.38,-4.8435 119.3739,-4.829 119.3665,-4.8129 119.3638,-4.7983 119.3562,-4.7446 119.3553,-4.7319 119.3598,-4.7219 119.4031,-4.656 119.4546,-4.57 119.4592,-4.5612 119.4862,-4.3352 119.4873,-4.3229 119.4904,-4.1865 119.4759,-4.0402 119.4623,-3.9707 119.4017,-3.8715 119.3134,-3.698 119.3177,-3.6769 119.3448,-3.6155 119.3558,-3.5986 119.3756,-3.5774 119.3808,-3.5657 119.371,-3.5229 119.3546,-3.485 119.2166,-3.4319 119.2055,-3.4292 119.1584,-3.4237 119.1307,-3.4543 119.0967,-3.4816 119.0855,-3.4876 119.0719,-3.4913 119.0562,-3.4926 119.0001,-3.4835 118.9174,-3.5005 118.8816,-3.5128 118.8715,-3.5166 118.8288,-3.5404 118.8187,-3.5538 118.8119,-3.5676 118.802,-3.5746 118.7914,-3.5691 118.7107,-3.3832 118.7081,-3.3723 118.7029,-3.3389 118.7013,-3.0721 118.716,-3.0576 118.7199,-3.0441 118.7546,-2.8896 118.7497,-2.8677 118.7426,-2.8577 118.7326,-2.8504 118.6903,-2.8412 118.6775,-2.8404 118.6663,-2.8434 118.6523,-2.8532 118.6365,-2.8598 118.6267,-2.7896 118.6254,-2.7707 118.6445,-2.6861 118.6474,-2.6751 118.6577,-2.6508 118.6687,-2.6345 118.6904,-2.6208 118.7179,-2.6458 118.7305,-2.6539 118.7425,-2.6585 118.7555,-2.659 118.7712,-2.6536 118.8719,-2.587 119.0094,-2.4501 119.0107,-2.4048 119.0096,-2.3919 119.0071,-2.3809 118.9912,-2.3418 118.9893,-2.3302 118.9916,-2.2832 119.0049,-2.2116 119.0738,-2.0192 119.0775,-2.0093 119.0894,-1.9936 119.0995,-1.9837 119.1124,-1.976 119.1262,-1.9692 119.1682,-1.9551 119.1866,-1.9688 119.2019,-1.9705 119.2132,-1.9505 119.2201,-1.9339 119.236,-1.8383 119.2277,-1.821 119.2133,-1.8168 119.1983,-1.8044 119.1915,-1.7904 119.1644,-1.6905 119.1654,-1.6612 119.1751,-1.6298 119.1812,-1.6154 119.1905,-1.599 119.1729,-1.5032 119.1642,-1.4711 119.158,-1.3974 119.1752,-1.2638 119.1831,-1.2377 119.2099,-1.1893 119.2182,-1.1767 119.2671,-1.1331 119.2987,-1.1224 119.3115,-1.1085 119.3197,-1.0896 119.3297,-1.0585 119.338,-1.0257 119.3395,-1.0098 119.3449,-0.9736 119.375,-0.8942 119.3834,-0.8754 119.3914,-0.8628 119.423,-0.8393 119.4545,-0.8161 119.5043,-0.7773 119.5409,-0.7439 119.5427,-0.7333 119.5496,-0.6864 119.5845,-0.6527 119.6024,-0.6512 119.6464,-0.7444 119.6545,-0.7634 119.6594,-0.7792 119.6599,-0.799 119.6624,-0.8101 119.6666,-0.8198 119.6713,-0.8287 119.69,-0.8581 119.6998,-0.872 119.7081,-0.8772 119.7121,-0.8734 119.7249,-0.8523 119.7287,-0.8426 119.731,-0.8315 119.733,-0.8127 119.7318,-0.8004 119.716,-0.7068 119.7118,-0.6971 119.6962,-0.6784 119.6789,-0.6614 119.6685,-0.6444 119.665,-0.6348 119.6262,-0.509 119.6214,-0.4933 119.6202,-0.4808 119.6197,-0.4274 119.6287,-0.3276 119.6373,-0.2683 119.6416,-0.2513 119.6484,-0.2379 119.6558,-0.2249 119.6709,-0.1921 119.676,-0.1757 119.6617,-0.1157 119.6299,-0.1153 119.603,-0.1235 119.5891,-0.1265 119.576,-0.1236 119.562,-0.1168 119.5499,-0.1084 119.5289,-0.0884 119.5118,-0.064 119.4999,-0.0421 119.4906,-0.0199 119.4917,5.0E-4 119.5325,0.0211 119.5428,0.0242 119.5532,0.0209 119.5654,0.0125 119.5809,1.0E-4 119.6137,-0.035 119.6243,-0.0517 119.6284,-0.061 119.6361,-0.0778 119.6462,-0.0879 119.6837,-0.0982 119.6837,-0.0982 55,7.0,Indonesia 102.3803,1.4349 102.3817,1.352 102.3894,1.2948 102.3906,1.2791 102.3874,1.2654 102.377,1.2586 102.3662,1.2609 102.3469,1.2726 102.309,1.3071 102.2642,1.3513 102.2355,1.3848 102.2184,1.4024 102.1944,1.4192 102.1752,1.4272 102.1592,1.4319 102.1477,1.4342 102.1354,1.4353 102.1014,1.4354 102.0815,1.4362 102.0566,1.439 102.0334,1.4433 102.0231,1.4467 102.0038,1.4544 101.986,1.4641 101.9743,1.4732 101.9438,1.504 101.9306,1.5185 101.9099,1.5459 101.8991,1.5627 101.8895,1.5805 101.8847,1.5893 101.8796,1.6052 101.8952,1.6183 101.9224,1.6216 101.9418,1.6203 101.952,1.6169 101.9663,1.6106 102.0053,1.5918 102.017,1.5862 102.0484,1.5765 102.0818,1.569 102.1286,1.5609 102.1739,1.5545 102.2174,1.5533 102.2282,1.5506 102.3203,1.5259 102.3297,1.5216 102.3434,1.5149 102.3518,1.5097 102.3631,1.5007 102.3687,1.4923 102.3745,1.4774 102.381,1.4464 102.3803,1.4349 102.3803,1.4349 41,7.0,Indonesia 97.7013,0.549 97.5898,0.5777 97.5707,0.6015 97.5798,0.6193 97.547,0.7164 97.512,0.798 97.5029,0.816 97.4746,0.8469 97.2833,1.0119 97.2576,1.0619 97.2364,1.1023 97.1962,1.1712 97.1417,1.259 97.0619,1.3317 97.0058,1.3918 97.0488,1.41 97.1147,1.4067 97.1428,1.4143 97.2063,1.4656 97.2234,1.4863 97.2873,1.5 97.3734,1.4684 97.4147,1.4219 97.4247,1.3956 97.4333,1.3774 97.5758,1.1829 97.626,1.1636 97.6781,1.1468 97.7997,1.038 97.8266,0.9694 97.8106,0.9347 97.7936,0.9052 97.7858,0.8754 97.7782,0.7724 97.7772,0.7289 97.7774,0.6905 97.7768,0.6419 97.7607,0.613 97.7097,0.5549 97.7013,0.549 97.7013,0.549 427,-5.0,Ecuador -75.2015,-0.1192 -75.2209,-0.1345 -75.2651,-0.1507 -75.3404,-0.164 -75.3952,-0.1433 -75.4342,-0.1165 -75.5311,-0.106 -75.5397,-0.1717 -75.4864,-0.1798 -75.3963,-0.2318 -75.3801,-0.2732 -75.3746,-0.2944 -75.364,-0.3457 -75.3497,-0.3836 -75.3287,-0.419 -75.3047,-0.4464 -75.2795,-0.4659 -75.2552,-0.4638 -75.178,-0.5224 -75.1598,-0.5603 -75.1644,-0.6287 -75.1826,-0.6452 -75.1927,-0.6494 -75.1989,-0.6552 -75.2084,-0.7296 -75.179,-0.8135 -75.1323,-0.9681 -75.246,-0.9785 -75.275,-0.9663 -75.2925,-0.9495 -75.3174,-0.9215 -75.3474,-1.0367 -75.3594,-1.0842 -75.3771,-1.1521 -75.3986,-1.2403 -75.4687,-1.5121 -75.4788,-1.5381 -75.503,-1.5538 -75.5424,-1.5944 -75.6346,-1.7059 -75.696,-1.7799 -75.8921,-2.0138 -75.9885,-2.1285 -76.3178,-2.3773 -76.5743,-2.5692 -76.8176,-2.6536 -76.9562,-2.7014 -77.1368,-2.7639 -77.3524,-2.8379 -77.7066,-2.9599 -77.7224,-2.9645 -77.7715,-2.9824 -77.8373,-3.0363 -77.9461,-3.1523 -77.9789,-3.2113 -78.0279,-3.2721 -78.0528,-3.2901 -78.0872,-3.3102 -78.1119,-3.3302 -78.1272,-3.3564 -78.115,-3.3883 -78.0927,-3.4092 -78.0819,-3.448 -78.0926,-3.4683 -78.1581,-3.5159 -78.1673,-3.5127 -78.1643,-3.4478 -78.1726,-3.4208 -78.1907,-3.4061 -78.2126,-3.4037 -78.2408,-3.413 -78.2575,-3.4309 -78.2634,-3.4527 -78.2791,-3.5142 -78.2818,-3.5357 -78.2782,-3.5686 -78.2835,-3.6296 -78.2997,-3.7071 -78.3105,-3.7419 -78.3251,-3.7721 -78.3319,-3.7816 -78.3775,-3.8281 -78.4425,-3.908 -78.4516,-3.9274 -78.4644,-3.9738 -78.4663,-4.0053 -78.4664,-4.0423 -78.4688,-4.0683 -78.4742,-4.0908 -78.5519,-4.2736 -78.57,-4.2958 -78.5824,-4.3019 -78.5829,-4.3351 -78.5805,-4.3602 -78.563,-4.4124 -78.5605,-4.4685 -78.5771,-4.5497 -78.5936,-4.569 -78.6193,-4.5795 -78.6336,-4.5834 -78.6771,-4.5984 -78.7008,-4.6088 -78.7336,-4.6306 -78.7691,-4.656 -78.786,-4.6718 -78.816,-4.7111 -78.8284,-4.7356 -78.8283,-4.7772 -78.8385,-4.8628 -78.9208,-4.9666 -78.9462,-4.9896 -78.9728,-4.9947 -79.0098,-4.9692 -79.0928,-4.9583 -79.1128,-4.9566 -79.1412,-4.9581 -79.1949,-4.959 -79.2748,-4.8804 -79.3542,-4.7917 -79.3607,-4.761 -79.4243,-4.6152 -79.4288,-4.576 -79.4485,-4.5155 -79.5306,-4.4424 -79.5523,-4.4301 -79.5773,-4.4291 -79.6143,-4.4519 -79.6929,-4.4768 -79.7247,-4.4735 -79.9066,-4.3681 -79.9341,-4.35 -79.9674,-4.3147 -79.9869,-4.295 -80.0435,-4.2796 -80.0831,-4.2937 -80.0952,-4.3161 -80.1351,-4.3594 -80.1709,-4.3924 -80.2427,-4.4472 -80.267,-4.4602 -80.2988,-4.4732 -80.3182,-4.4665 -80.372,-4.4367 -80.3894,-4.4115 -80.3884,-4.3832 -80.3393,-4.3107 -80.3075,-4.2767 -80.2912,-4.2586 -80.2489,-4.1946 -80.2915,-4.1916 -80.3192,-4.2049 -80.3541,-4.2163 -80.373,-4.2025 -80.3893,-4.1692 -80.3922,-4.1098 -80.4098,-4.0505 -80.4102,-4.0457 -80.3741,-3.9806 -80.3289,-3.9732 -80.2978,-3.9743 -80.2545,-3.9934 -80.2278,-4.0071 -80.2009,-3.9915 -80.0841,-3.8986 -80.0624,-3.8796 -80.0856,-3.8548 -80.1205,-3.7347 -80.1167,-3.7129 -80.115,-3.6323 -80.1217,-3.5915 -80.1441,-3.4932 -80.1681,-3.4134 -80.2494,-3.3765 -80.2328,-3.3558 -80.2006,-3.3246 -80.179,-3.3345 -80.0521,-3.3308 -79.9304,-3.2577 -79.8658,-3.2038 -79.8536,-3.1782 -79.8507,-3.1461 -79.8301,-3.0857 -79.8017,-3.0553 -79.7939,-3.0352 -79.7876,-3.0151 -79.7696,-2.9092 -79.7414,-2.7996 -79.691,-2.656 -79.6796,-2.6397 -79.6462,-2.6115 -79.6368,-2.5938 -79.6356,-2.5393 -79.6589,-2.4816 -79.6801,-2.4864 -79.7026,-2.476 -79.754,-2.3754 -79.7449,-2.3052 -79.752,-2.206 -79.7614,-2.1884 -79.719,-2.0734 -79.6828,-2.0335 -79.6732,-2.0115 -79.7335,-2.0346 -79.7939,-2.0889 -79.8053,-2.1227 -79.8104,-2.1572 -79.8126,-2.1822 -79.813,-2.2026 -79.7982,-2.2281 -79.7799,-2.2513 -79.7741,-2.2723 -79.7757,-2.3864 -79.7794,-2.4248 -79.8001,-2.5304 -79.8159,-2.5564 -79.8413,-2.5786 -79.8837,-2.5979 -79.9124,-2.6094 -79.961,-2.5886 -79.9743,-2.5702 -79.9386,-2.4234 -79.9151,-2.3563 -79.8866,-2.345 -79.8658,-2.3135 -79.9353,-2.3392 -79.9692,-2.4095 -79.9837,-2.4503 -80.0149,-2.5099 -80.0832,-2.5842 -80.1266,-2.6231 -80.1617,-2.7301 -80.2,-2.7249 -80.2209,-2.7179 -80.369,-2.6273 -80.478,-2.5093 -80.5301,-2.4451 -80.5714,-2.4103 -80.5914,-2.394 -80.6422,-2.3771 -80.6935,-2.378 -80.7251,-2.3643 -80.7987,-2.3179 -80.8836,-2.2144 -80.8854,-2.1825 -80.834,-2.2044 -80.7638,-2.1725 -80.6966,-2.1238 -80.6807,-2.1057 -80.6631,-2.0746 -80.6401,-1.9355 -80.6413,-1.912 -80.6832,-1.7594 -80.695,-1.7311 -80.7294,-1.6756 -80.7565,-1.6166 -80.764,-1.5928 -80.755,-1.5585 -80.7307,-1.4965 -80.7184,-1.4723 -80.6971,-1.4622 -80.6677,-1.323 -80.7186,-1.2453 -80.7601,-1.1917 -80.7994,-1.1341 -80.8241,-1.0562 -80.8219,-1.0353 -80.7451,-0.9276 -80.6604,-0.9192 -80.6206,-0.9272 -80.5283,-0.926 -80.4855,-0.8965 -80.4432,-0.8201 -80.44,-0.7699 -80.4334,-0.7341 -80.409,-0.6784 -80.3429,-0.5685 -80.3239,-0.5813 -80.3142,-0.6167 -80.2864,-0.6335 -80.2487,-0.6353 -80.1796,-0.6243 -80.2234,-0.6146 -80.2481,-0.6159 -80.284,-0.6104 -80.3116,-0.5695 -80.3318,-0.5349 -80.4002,-0.4138 -80.4108,-0.3718 -80.282,-0.2161 -80.25,-0.1865 -80.1923,-0.155 -80.1685,-0.1492 -80.1494,-0.1355 -80.049,-0.031 -80.023,0.0 -79.9796,0.0603 -79.956,0.1304 -79.9502,0.167 -79.95,0.212 -79.9533,0.2355 -79.9562,0.2652 -79.9551,0.2926 -79.9502,0.3547 -79.9133,0.3425 -79.9088,0.3485 -79.9034,0.3719 -79.9213,0.4 -79.9433,0.4295 -79.9517,0.4491 -79.9553,0.4956 -79.9309,0.5308 -79.9261,0.5553 -79.9317,0.5858 -79.9462,0.6182 -79.9603,0.6379 -79.9926,0.6473 -80.0179,0.6766 -80.0159,0.7502 -80.011,0.7694 -79.9594,0.8306 -79.9211,0.823 -79.8817,0.8263 -79.7657,0.8727 -79.7297,0.8977 -79.7133,0.9117 -79.6881,0.9377 -79.6693,0.9528 -79.6466,0.9669 -79.569,0.9962 -79.5274,0.99 -79.4898,0.9859 -79.4602,0.9908 -79.3941,1.0385 -79.3696,1.0618 -79.3517,1.0741 -79.2302,1.0812 -79.1971,1.0806 -79.1641,1.0777 -79.1171,1.0815 -79.0813,1.0925 -79.0599,1.1084 -79.0342,1.1334 -78.9908,1.1863 -78.9108,1.1711 -78.8359,1.23 -78.8006,1.2372 -78.786,1.337 -78.7406,1.4274 -78.7211,1.4362 -78.589,1.2843 -78.5685,1.2705 -78.5435,1.2611 -78.5033,1.2418 -78.4721,1.1972 -78.452,1.2081 -78.3782,1.1913 -78.3678,1.1737 -78.3536,1.1531 -78.2657,1.0678 -78.2444,1.0515 -78.2222,1.043 -78.1957,1.0379 -78.1603,1.0287 -78.142,1.0171 -78.0875,0.9697 -78.0123,0.9152 -77.9824,0.9035 -77.9443,0.8998 -77.9117,0.9033 -77.8422,0.8745 -77.7959,0.8249 -77.7665,0.8129 -77.727,0.8075 -77.6928,0.8271 -77.6114,0.8445 -77.5913,0.8364 -77.569,0.8086 -77.5744,0.7806 -77.5723,0.7497 -77.5598,0.728 -77.5375,0.71 -77.4929,0.6853 -77.4784,0.6731 -77.4488,0.6551 -77.4263,0.6579 -77.4065,0.6648 -77.3768,0.6548 -77.3566,0.6213 -77.3593,0.5847 -77.3642,0.5409 -77.3352,0.4126 -77.2928,0.3844 -77.2249,0.3629 -77.1324,0.3358 -77.1052,0.3346 -76.9933,0.3592 -76.949,0.306 -76.7804,0.239 -76.7253,0.2413 -76.6843,0.2488 -76.6409,0.2627 -76.6306,0.2829 -76.526,0.2585 -76.4989,0.2307 -76.4806,0.2204 -76.4592,0.2189 -76.363,0.2466 -76.3219,0.2713 -76.3152,0.3919 -76.1575,0.3953 -76.0598,0.3707 -75.9548,0.3375 -75.9396,0.3198 -75.895,0.2564 -75.8274,0.1634 -75.6758,0.0467 -75.6424,0.0355 -75.6093,0.0433 -75.4907,0.0318 -75.4343,-0.0077 -75.3498,-0.0591 -75.3143,-0.0717 -75.2653,-0.078 -75.2411,-0.0881 -75.2156,-0.102 -75.2015,-0.1192 -75.2015,-0.1192 34,7.0,Indonesia 102.3625,1.2049 102.3366,1.1296 102.33,1.1052 102.3318,1.0551 102.3338,1.0435 102.3381,1.027 102.347,1.0019 102.3513,0.9922 102.354,0.9782 102.3503,0.9619 102.2831,0.9239 102.2688,0.921 102.2587,0.9242 102.1705,1.0079 102.1601,1.018 102.1499,1.0282 102.1448,1.0371 102.125,1.0753 102.117,1.098 102.0876,1.2776 102.0869,1.2906 102.0901,1.3892 102.0965,1.4022 102.1195,1.4097 102.1312,1.4115 102.1442,1.4124 102.1629,1.4103 102.1743,1.4048 102.1875,1.3937 102.3456,1.2509 102.3545,1.2393 102.3616,1.224 102.3625,1.2049 102.3625,1.2049 29,7.0,Indonesia 104.5499,1.0226 104.5284,0.9887 104.5063,0.9079 104.478,0.8233 104.4663,0.8182 104.4436,0.8237 104.4181,0.8327 104.4089,0.8367 104.3654,0.8551 104.3709,0.9184 104.306,0.9736 104.2549,1.0136 104.1992,0.9991 104.1833,0.9977 104.1616,0.9994 104.1354,1.0041 104.122,1.0166 104.1147,1.0838 104.126,1.0981 104.2184,1.1739 104.2919,1.1955 104.4176,1.1756 104.5252,1.1029 104.5324,1.0934 104.545,1.0646 104.5503,1.0493 104.5526,1.0348 104.5499,1.0226 104.5499,1.0226 23,7.0,Indonesia 104.0363,1.1341 104.0352,1.1152 104.0222,1.0465 103.9739,0.9897 103.962,0.9845 103.9144,0.9814 103.8504,1.0033 103.8406,1.007 103.8243,1.0183 103.8091,1.0304 103.8038,1.0388 103.7844,1.0886 103.8233,1.1237 103.8979,1.1708 103.9677,1.1844 103.9797,1.1865 103.9926,1.1859 104.0028,1.1824 104.0163,1.1756 104.0286,1.1603 104.0344,1.1454 104.0363,1.1341 104.0363,1.1341 34,7.0,Indonesia 102.8412,1.0934 102.8549,1.0867 102.9219,1.0369 102.9358,1.0228 102.9792,0.9774 103.0413,0.9023 103.05,0.8908 103.055,0.8785 103.0537,0.8605 103.0503,0.8529 103.0337,0.8379 103.0222,0.8329 103.0108,0.83 102.998,0.829 102.9856,0.8306 102.97,0.8353 102.8289,0.9347 102.7011,0.9988 102.6465,1.0286 102.6123,1.0335 102.5776,1.0221 102.5429,1.0532 102.5857,1.1329 102.5978,1.149 102.6154,1.1584 102.627,1.1605 102.6681,1.1605 102.6856,1.1576 102.6969,1.1549 102.7069,1.1514 102.7523,1.1352 102.7716,1.127 102.8412,1.0934 102.8412,1.0934 63,7.0,Indonesia 102.8912,0.6922 102.8277,0.7569 102.8202,0.7633 102.8116,0.7688 102.7941,0.7786 102.775,0.7869 102.759,0.7917 102.7408,0.7936 102.5779,0.7977 102.5575,0.7977 102.5401,0.7942 102.5158,0.784 102.5053,0.7813 102.4598,0.7716 102.4401,0.7713 102.4292,0.7736 102.3861,0.7922 102.3657,0.806 102.3468,0.8218 102.2983,0.8664 102.2914,0.8772 102.2955,0.8866 102.3223,0.9234 102.3346,0.9297 102.3718,0.9306 102.3826,0.9399 102.3859,0.9539 102.3867,0.9668 102.3826,0.983 102.3765,0.9974 102.3596,1.0353 102.3524,1.0488 102.3518,1.0823 102.3532,1.0947 102.3552,1.1063 102.3585,1.1166 102.3719,1.1305 102.3937,1.1364 102.4072,1.1367 102.4233,1.1323 102.4402,1.1213 102.4636,1.097 102.5002,1.0433 102.49,1.0157 102.5095,0.993 102.532,0.9898 102.5998,1.0126 102.6454,1.0094 102.668,0.9974 102.7728,0.938 102.8098,0.9135 102.8959,0.8493 102.915,0.8337 102.9271,0.8152 102.9336,0.798 102.9361,0.7851 102.9375,0.7702 102.9372,0.7573 102.9337,0.7333 102.9234,0.7094 102.9085,0.6953 102.8912,0.6922 102.8912,0.6922 18,7.0,Indonesia 103.3197,1.0242 103.3264,0.9888 103.2938,0.9863 103.2337,1.004 103.2069,1.0354 103.1972,1.061 103.2013,1.0749 103.2122,1.0981 103.2242,1.1168 103.2347,1.1236 103.2541,1.128 103.2698,1.1239 103.2712,1.1078 103.2691,1.0959 103.2751,1.0749 103.2838,1.053 103.3197,1.0242 103.3197,1.0242 15,7.0,Indonesia 104.0589,0.79 104.0445,0.8305 104.0404,0.8403 104.0259,0.8595 104.0133,0.8673 103.9814,0.8814 103.9726,0.9345 103.9783,0.9464 103.9913,0.9488 104.1443,0.8651 104.1481,0.8557 104.1462,0.8397 104.1283,0.8201 104.0589,0.79 104.0589,0.79 27,-3.0,Brazil -50.1885,0.7435 -50.2074,0.7482 -50.2141,0.7599 -50.2192,0.8057 -50.2121,0.8207 -50.1839,0.8468 -50.1684,0.8601 -50.1479,0.876 -50.136,0.8806 -50.0919,0.8858 -50.0663,0.8829 -50.0425,0.8727 -50.0295,0.8695 -50.012,0.87 -49.9825,0.8772 -49.9544,0.9185 -49.9486,0.8961 -49.9511,0.8808 -49.9915,0.8101 -49.9978,0.8021 -50.0127,0.7879 -50.038,0.7699 -50.0544,0.7616 -50.0763,0.7554 -50.1142,0.7479 -50.1885,0.7435 -50.1885,0.7435 24,7.0,Indonesia 103.3907,0.7397 103.3904,0.7349 103.3814,0.7163 103.3585,0.6773 103.3462,0.6592 103.3361,0.6519 103.324,0.6472 103.3113,0.6467 103.2979,0.6504 103.2866,0.66 103.2375,0.7478 103.2295,0.767 103.2238,0.789 103.2234,0.8087 103.2247,0.8211 103.2273,0.832 103.2572,0.8874 103.2737,0.8878 103.3102,0.8296 103.3513,0.808 103.3854,0.7601 103.391,0.7486 103.3907,0.7397 103.3907,0.7397 29,7.0,Indonesia 103.1814,0.5883 103.1821,0.5799 103.1805,0.5506 103.1767,0.5411 103.1673,0.5337 103.1577,0.5294 103.0697,0.5075 103.0583,0.5052 103.0448,0.5093 103.0356,0.5172 103.0242,0.5327 103.0198,0.5431 103.0175,0.5639 103.0244,0.6013 103.0301,0.6239 103.0343,0.6403 103.0399,0.6554 103.0446,0.6644 103.0588,0.6842 103.0746,0.6956 103.0888,0.7019 103.1044,0.7031 103.1197,0.6942 103.151,0.6638 103.1656,0.6442 103.1731,0.6312 103.1787,0.6162 103.1814,0.5883 103.1814,0.5883 22,-3.0,Brazil -50.1976,0.3417 -50.2336,0.3469 -50.2455,0.3516 -50.2503,0.3609 -50.2539,0.3777 -50.2564,0.3951 -50.2606,0.4286 -50.2612,0.4674 -50.2587,0.4849 -50.2517,0.506 -50.199,0.569 -50.1767,0.5907 -50.02,0.6499 -50.0038,0.6423 -49.9695,0.5985 -49.9663,0.5757 -49.9655,0.5578 -49.967,0.5416 -50.0919,0.4135 -50.181,0.3507 -50.1976,0.3417 -50.1976,0.3417 37,-3.0,Brazil -50.3846,0.171 -50.4032,0.172 -50.4604,0.1908 -50.4754,0.2094 -50.4796,0.2221 -50.4745,0.2353 -50.4583,0.2489 -50.446,0.2576 -50.4343,0.2677 -50.4236,0.284 -50.4153,0.3088 -50.4107,0.3257 -50.4057,0.3432 -50.3857,0.4839 -50.3785,0.5382 -50.3721,0.5503 -50.3211,0.6178 -50.3026,0.609 -50.2983,0.5886 -50.2908,0.5196 -50.294,0.488 -50.2974,0.47 -50.2994,0.4469 -50.2995,0.4289 -50.2926,0.3843 -50.2877,0.3716 -50.2701,0.3431 -50.2626,0.3238 -50.2613,0.3086 -50.2655,0.2938 -50.2817,0.252 -50.3102,0.2431 -50.3324,0.2367 -50.3475,0.2267 -50.3597,0.2108 -50.3846,0.171 -50.3846,0.171 65,-3.0,Brazil -49.9367,-0.0732 -49.9903,-0.0171 -50.0201,2.0E-4 -50.0462,0.0105 -50.0708,0.0142 -50.0858,0.0164 -50.1026,0.017 -50.1379,0.0171 -50.1545,0.0172 -50.182,0.0136 -50.2089,0.0116 -50.2209,0.0109 -50.2429,0.0113 -50.2776,0.0159 -50.2933,0.0217 -50.3049,0.0299 -50.3119,0.0389 -50.3175,0.0548 -50.3359,0.1093 -50.34,0.1733 -50.3355,0.1898 -50.3245,0.1986 -50.2384,0.2168 -50.2164,0.2107 -50.1352,0.2133 -50.1174,0.2143 -50.1019,0.2204 -50.0938,0.226 -50.0847,0.2319 -50.0735,0.2428 -50.0483,0.262 -50.0075,0.2895 -49.977,0.2976 -49.9459,0.2993 -49.9187,0.2993 -49.8513,0.3058 -49.7499,0.3183 -49.6848,0.3305 -49.6692,0.3368 -49.6479,0.3347 -49.6364,0.3299 -49.62,0.3199 -49.5932,0.295 -49.5764,0.2759 -49.5727,0.2633 -49.5752,0.2439 -49.5804,0.2273 -49.588,0.2103 -49.6044,0.2006 -49.6192,0.1965 -49.6439,0.185 -49.7259,0.1382 -49.7516,0.1204 -49.7678,0.1059 -49.7759,0.0971 -49.7965,0.0697 -49.8095,0.0506 -49.8225,0.0314 -49.8332,0.0131 -49.839,2.0E-4 -49.8502,-0.0245 -49.8652,-0.039 -49.9284,-0.0719 -49.9367,-0.0732 -49.9367,-0.0732 14,7.0,Indonesia 104.58,0.0228 104.5747,0.0244 104.5648,0.0288 104.5565,0.0344 104.4763,0.0971 104.421,0.1617 104.4087,0.1767 104.3749,0.2337 104.4244,0.2244 104.588,0.0505 104.5928,0.0387 104.5869,0.025 104.58,0.0228 104.58,0.0228 22,-3.0,Brazil -50.4447,-0.0327 -50.4609,-0.032 -50.483,-0.0233 -50.5118,-0.0015 -50.5364,0.0226 -50.5769,0.0918 -50.5975,0.128 -50.6007,0.1521 -50.5865,0.1712 -50.5345,0.208 -50.5198,0.2087 -50.4159,0.1539 -50.4085,0.1465 -50.3975,0.1265 -50.3933,0.1042 -50.3793,0.0119 -50.3804,3.0E-4 -50.3824,-0.0081 -50.3893,-0.017 -50.3988,-0.0226 -50.4447,-0.0327 -50.4447,-0.0327 19,7.0,Indonesia 98.6947,0.0942 98.6488,0.0815 98.5272,0.0773 98.4196,0.0979 98.4091,0.1134 98.4052,0.1226 98.404,0.1353 98.4175,0.153 98.4393,0.1723 98.4497,0.1754 98.5017,0.1767 98.6522,0.1716 98.6717,0.1668 98.6812,0.16 98.7124,0.1234 98.7244,0.1079 98.7271,0.0876 98.6947,0.0942 98.6947,0.0942 64,-6.0,Ecuador -91.5008,1.0E-4 -91.4359,0.0308 -91.2894,0.1248 -91.213,0.112 -91.2107,0.0883 -91.1733,0.0213 -91.1569,0.0034 -91.1531,0.0 -91.1149,-0.0125 -91.1005,-0.0324 -91.0958,-0.091 -91.099,-0.1224 -91.0997,-0.1429 -91.0825,-0.2113 -91.0681,-0.24 -91.0044,-0.3088 -90.973,-0.3248 -90.9404,-0.345 -90.9178,-0.3655 -90.897,-0.386 -90.8622,-0.4219 -90.8465,-0.5248 -90.8609,-0.5487 -90.8012,-0.6281 -90.7773,-0.6523 -90.7527,-0.6794 -90.7091,-0.7314 -90.7724,-0.9144 -90.8245,-0.9663 -91.0627,-1.0311 -91.0983,-1.0332 -91.1154,-1.0231 -91.1927,-1.0143 -91.218,-1.0124 -91.2432,-1.0177 -91.2701,-1.0253 -91.3171,-1.0154 -91.3381,-0.9951 -91.3902,-0.9176 -91.3986,-0.8892 -91.3915,-0.8535 -91.3734,-0.8251 -91.3519,-0.7985 -91.2112,-0.6856 -91.1352,-0.6611 -91.0971,-0.6718 -91.0587,-0.6809 -90.9815,-0.589 -91.0198,-0.5487 -91.0522,-0.5475 -91.2571,-0.3037 -91.3052,-0.2291 -91.3017,-0.2028 -91.2913,-0.1722 -91.301,-0.1067 -91.3158,-0.0425 -91.3334,-0.0176 -91.3692,-0.0124 -91.4099,-0.0267 -91.4389,-0.0502 -91.4722,-0.0498 -91.502,-0.01 -91.5008,1.0E-4 -91.5008,1.0E-4 33,-3.0,Brazil -49.6387,-0.1561 -49.6568,-0.1513 -49.7717,-0.1058 -49.7839,-0.0986 -49.7916,-0.0814 -49.7963,-0.0642 -49.7138,0.0 -49.711,0.0041 -49.6529,0.048 -49.5951,0.0772 -49.5388,0.0813 -49.5029,0.0786 -49.4687,0.0752 -49.446,0.0707 -49.3827,0.0497 -49.3707,0.0425 -49.3632,0.0358 -49.3437,0.0074 -49.3424,0.0 -49.3288,-0.0279 -49.3268,-0.0436 -49.3256,-0.0684 -49.3587,-0.1055 -49.3818,-0.1179 -49.4074,-0.1238 -49.4699,-0.1339 -49.5351,-0.1364 -49.5483,-0.134 -49.5638,-0.1355 -49.5805,-0.139 -49.6219,-0.1498 -49.6387,-0.1561 -49.6387,-0.1561 22,-3.0,Brazil -50.8511,1.0E-4 -50.8431,0.0096 -50.8122,0.0348 -50.7772,0.059 -50.7455,0.0673 -50.7088,0.0666 -50.6788,0.0566 -50.6505,0.0344 -50.641,0.0198 -50.6503,0.0066 -50.6776,0.0 -50.7666,-0.0294 -50.7847,-0.0355 -50.8029,-0.0399 -50.8291,-0.0451 -50.8445,-0.0473 -50.8663,-0.0458 -50.878,-0.0323 -50.8758,-0.0198 -50.8665,-0.0117 -50.8511,1.0E-4 -50.8511,1.0E-4 14,9.0,Indonesia 129.3915,-0.222 129.3421,-0.1617 129.2232,-0.0434 129.1474,0.0314 129.1453,0.043 129.1598,0.0451 129.1935,0.0227 129.2127,0.0078 129.3983,-0.1427 129.4208,-0.1822 129.4232,-0.2001 129.4097,-0.213 129.3915,-0.222 129.3915,-0.222 42,7.0,Indonesia 104.8122,-0.3336 104.7386,-0.3084 104.7305,-0.3027 104.6801,-0.2643 104.6222,-0.2194 104.5898,-0.21 104.5668,-0.2104 104.5443,-0.215 104.5308,-0.2222 104.4822,-0.2486 104.4254,-0.2715 104.4104,-0.2731 104.326,-0.2222 104.3183,-0.2126 104.3158,-0.2014 104.3148,-0.1865 104.3204,-0.1784 104.3313,-0.1755 104.3416,-0.1721 104.3638,-0.1532 104.3899,-0.1208 104.3981,-0.1049 104.3987,-0.075 104.3966,-0.0495 104.3965,-0.0359 104.3978,-0.0166 104.4005,-0.0061 104.4079,0.0104 104.421,0.0173 104.4589,0.0124 104.4882,0.0 104.4978,-0.0051 104.5058,-0.0107 104.5367,-0.0344 104.5542,-0.0515 104.6218,-0.1347 104.7029,-0.193 104.7714,-0.1932 104.8016,-0.2317 104.8098,-0.2782 104.8122,-0.3336 104.8122,-0.3336 29,7.0,Indonesia 98.4338,-0.3856 98.3944,-0.3027 98.386,-0.2905 98.26,-0.1148 98.1819,-0.015 98.191,-0.0070 98.2354,0.0047 98.2648,0.0065 98.2804,0.0049 98.289,-0.0011 98.334,-0.0611 98.3421,-0.0737 98.3482,-0.0882 98.3539,-0.1098 98.3557,-0.1216 98.36,-0.1378 98.3723,-0.1734 98.3783,-0.1883 98.3832,-0.1974 98.3971,-0.218 98.412,-0.2371 98.4252,-0.2516 98.4341,-0.263 98.4429,-0.2778 98.4479,-0.2937 98.4481,-0.3102 98.4373,-0.3701 98.4338,-0.3856 98.4338,-0.3856 33,-3.0,Brazil -50.8008,-0.2827 -50.8155,-0.2705 -50.8329,-0.2656 -50.8478,-0.2647 -50.8718,-0.2682 -50.9575,-0.2315 -50.9699,-0.2238 -50.9732,-0.2028 -50.9642,-0.1692 -50.9567,-0.1491 -50.9438,-0.1281 -50.9285,-0.1048 -50.9154,-0.0895 -50.896,-0.0869 -50.8748,-0.0876 -50.7925,-0.0638 -50.7223,-0.0417 -50.7056,-0.0354 -50.6816,-0.0194 -50.6533,-0.0070 -50.6417,-0.0055 -50.5702,-0.0070 -50.5571,-0.0104 -50.5057,-0.0538 -50.5003,-0.0623 -50.6235,-0.1662 -50.6534,-0.1794 -50.6802,-0.1816 -50.6919,-0.1882 -50.7178,-0.2088 -50.7527,-0.2394 -50.8008,-0.2827 -50.8008,-0.2827 73,9.0,Indonesia 130.6965,-0.4404 130.6719,-0.4466 130.6467,-0.4502 130.6132,-0.4521 130.5806,-0.4401 130.563,-0.4169 130.5444,-0.3332 130.5339,-0.3027 130.4985,-0.314 130.4429,-0.323 130.3966,-0.3653 130.3665,-0.2538 130.3159,-0.2648 130.2828,-0.2746 130.2143,-0.2666 130.0981,-0.2273 130.0736,-0.2109 130.0936,-0.1984 130.1177,-0.2102 130.2392,-0.2207 130.2827,-0.1972 130.2546,-0.1494 130.2282,-0.1492 130.1931,-0.1513 130.1997,-0.1873 130.1505,-0.1762 130.1305,-0.1386 130.138,-0.106 130.2142,-0.0873 130.2982,-0.0872 130.509,-0.053 130.5526,-0.0362 130.5736,-0.0515 130.6218,-0.0476 130.605,-0.0318 130.6375,-0.0122 130.6782,-0.0086 130.7007,-0.0115 130.7311,-0.0189 130.8959,-0.0661 130.9931,-0.0755 131.1156,-0.1418 131.1531,-0.1673 131.1662,-0.2022 131.1753,-0.2728 131.1643,-0.3014 131.1497,-0.3283 131.1369,-0.3496 131.1087,-0.387 131.1044,-0.3897 131.0229,-0.3386 130.9594,-0.333 130.8884,-0.3603 130.8313,-0.3631 130.8004,-0.3443 130.7548,-0.2796 130.7289,-0.2507 130.6446,-0.2173 130.5641,-0.0968 130.5423,-0.08 130.4682,-0.0889 130.4809,-0.1371 130.5816,-0.2447 130.6793,-0.2902 130.7375,-0.2998 130.7712,-0.3205 130.7967,-0.3639 130.7843,-0.3904 130.7694,-0.4083 130.7385,-0.4254 130.7018,-0.4401 130.6965,-0.4404 130.6965,-0.4404 972,-5.0,Peru -69.8771,-4.2321 -69.8706,-4.2574 -69.881,-4.2783 -69.9,-4.3074 -69.9373,-4.3329 -70.1177,-4.3277 -70.1756,-4.2862 -70.2214,-4.245 -70.2285,-4.2253 -70.2181,-4.1942 -70.2198,-4.1691 -70.24,-4.1347 -70.3492,-4.1273 -70.3852,-4.1498 -70.4196,-4.1749 -70.5039,-4.1906 -70.5454,-4.1558 -70.682,-4.1428 -70.7298,-4.1657 -70.7514,-4.1822 -70.7881,-4.2462 -70.7917,-4.2752 -70.8753,-4.377 -70.9558,-4.377 -70.984,-4.358 -71.0883,-4.3526 -71.2045,-4.376 -71.3008,-4.4256 -71.5689,-4.5036 -71.6447,-4.4879 -71.6654,-4.4852 -71.7999,-4.5056 -71.8203,-4.5128 -71.9458,-4.6071 -72.0468,-4.6881 -72.1525,-4.748 -72.1711,-4.756 -72.1967,-4.7582 -72.2184,-4.7514 -72.2427,-4.7552 -72.2925,-4.7787 -72.3068,-4.8 -72.3079,-4.8328 -72.3206,-4.8687 -72.3939,-4.9352 -72.5345,-5.0143 -72.6733,-5.0712 -72.7033,-5.0828 -72.7687,-5.1189 -72.8152,-5.1667 -72.8348,-5.3154 -72.878,-5.4461 -72.8809,-5.4709 -72.869,-5.5039 -72.8593,-5.5309 -72.8786,-5.6422 -72.9054,-5.7052 -72.9647,-5.7854 -72.9987,-5.8205 -73.0469,-5.8698 -73.1222,-6.0107 -73.1347,-6.0384 -73.1461,-6.0866 -73.142,-6.1143 -73.135,-6.1391 -73.0829,-6.2329 -73.0353,-6.3743 -73.0369,-6.4108 -73.0408,-6.4398 -73.0619,-6.4816 -73.0777,-6.508 -73.1027,-6.5397 -73.1332,-6.5592 -73.1932,-6.5674 -73.2154,-6.5667 -73.2518,-6.5669 -73.2776,-6.5743 -73.5041,-6.7272 -73.5929,-6.7968 -73.6603,-6.869 -73.6708,-6.8864 -73.7161,-7.0729 -73.7114,-7.1145 -73.6919,-7.129 -73.6367,-7.2147 -73.6223,-7.3008 -73.6547,-7.3254 -73.8476,-7.3506 -73.8471,-7.4343 -73.8788,-7.5188 -73.9037,-7.5202 -73.9185,-7.5218 -73.921,-7.5458 -73.8905,-7.5657 -73.8489,-7.6005 -73.7823,-7.6666 -73.7687,-7.6909 -73.7588,-7.7085 -73.7384,-7.7227 -73.6687,-7.7479 -73.6412,-7.7556 -73.6238,-7.7676 -73.6107,-7.7943 -73.6154,-7.8372 -73.6426,-7.8704 -73.6939,-7.864 -73.6888,-7.9391 -73.6732,-7.9579 -73.627,-7.9746 -73.569,-8.0076 -73.513,-8.1122 -73.474,-8.2399 -73.4588,-8.2933 -73.4509,-8.3429 -73.3964,-8.3892 -73.3224,-8.441 -73.2638,-8.5924 -73.1915,-8.6645 -73.1592,-8.6695 -73.134,-8.6763 -73.1021,-8.69 -73.0851,-8.7044 -73.0709,-8.725 -73.0603,-8.7523 -73.0513,-8.7804 -73.0404,-8.7976 -72.9777,-8.8923 -72.9244,-8.9202 -72.8811,-8.9781 -72.87,-9.0357 -72.867,-9.0562 -72.8682,-9.0799 -72.8744,-9.1089 -72.8854,-9.1325 -72.9428,-9.2105 -73.0385,-9.3028 -73.077,-9.3338 -73.1018,-9.3545 -73.1197,-9.3902 -72.9001,-9.4002 -72.7814,-9.4013 -72.7602,-9.4008 -72.6497,-9.4025 -72.5266,-9.4355 -72.3222,-9.4727 -72.2916,-9.4817 -72.2219,-9.5222 -72.1729,-9.6461 -72.178,-9.6817 -72.1899,-9.7195 -72.1808,-9.7479 -72.1469,-9.7668 -72.1009,-9.7921 -72.0855,-9.8236 -72.0717,-9.8756 -72.0893,-9.9429 -72.1068,-9.9912 -72.0649,-9.9934 -71.9732,-9.9934 -71.9315,-9.9932 -71.9001,-9.9929 -71.8516,-9.9929 -71.5633,-9.9932 -71.3808,-9.9926 -71.29,-9.9923 -71.2184,-9.9841 -71.1025,-9.9209 -71.0808,-9.8789 -71.0606,-9.8524 -70.9358,-9.8096 -70.9071,-9.7856 -70.8914,-9.7528 -70.8038,-9.6588 -70.7657,-9.6346 -70.7011,-9.5947 -70.5653,-9.48 -70.5105,-9.4302 -70.4901,-9.4229 -70.4369,-9.4172 -70.4674,-9.4899 -70.4993,-9.5278 -70.5296,-9.5646 -70.5131,-9.6205 -70.5177,-9.7703 -70.5349,-9.7877 -70.548,-9.8149 -70.5512,-9.8847 -70.5513,-9.937 -70.5518,-10.0576 -70.5517,-10.1749 -70.5518,-10.3268 -70.5526,-10.5966 -70.5532,-10.7693 -70.554,-10.9007 -70.554,-10.9626 -70.5533,-10.9967 -70.504,-10.9586 -70.4487,-10.9234 -70.4216,-10.9409 -70.3934,-10.9687 -70.3792,-10.9891 -70.3588,-11.0143 -70.3248,-11.0328 -70.275,-11.0537 -70.2514,-11.0567 -70.149,-11.0401 -70.0977,-11.025 -70.0769,-11.0174 -69.9745,-10.9667 -69.9226,-10.9343 -69.8923,-10.9162 -69.8727,-10.9074 -69.8488,-10.9015 -69.7032,-10.9124 -69.6611,-10.9493 -69.6117,-10.9462 -69.5893,-10.941 -69.5095,-10.9378 -69.4909,-10.9381 -69.4237,-11.0501 -69.3558,-11.1611 -69.1723,-11.4595 -69.1381,-11.5151 -69.1039,-11.5705 -68.9928,-11.7507 -68.9626,-11.7993 -68.9241,-11.8618 -68.9102,-11.8826 -68.8803,-11.9312 -68.8482,-11.9849 -68.8034,-12.0731 -68.7584,-12.1632 -68.6725,-12.3362 -68.6592,-12.3639 -68.6216,-12.4401 -68.6001,-12.4817 -68.5968,-12.4871 -68.6661,-12.5704 -68.6907,-12.6299 -68.7378,-12.7185 -68.8017,-12.7432 -68.8442,-12.7881 -68.8951,-12.851 -68.8952,-12.9871 -68.8851,-13.0117 -68.8903,-13.082 -68.8899,-13.151 -68.8818,-13.2573 -68.8805,-13.4374 -68.8822,-13.4913 -68.9001,-13.5507 -68.9439,-13.6267 -68.9833,-13.6922 -68.9345,-13.7754 -68.922,-13.8239 -68.8952,-13.9506 -68.881,-13.9713 -68.8577,-13.9896 -68.8188,-14.016 -68.7777,-14.1842 -68.8327,-14.2007 -68.8786,-14.2077 -68.906,-14.2154 -68.9218,-14.2325 -68.9192,-14.3199 -68.9037,-14.362 -69.0346,-14.4679 -69.1541,-14.5726 -69.1635,-14.5998 -69.1672,-14.6376 -69.1674,-14.6708 -69.2286,-14.7503 -69.2615,-14.763 -69.283,-14.7837 -69.2991,-14.9479 -69.2127,-15.0624 -69.1154,-15.1415 -69.0885,-15.1704 -69.0547,-15.2103 -69.0609,-15.237 -69.0874,-15.2461 -69.1136,-15.2444 -69.1858,-15.3095 -69.2497,-15.4214 -69.3382,-15.604 -69.1308,-16.139 -69.0767,-16.1934 -69.057,-16.2038 -68.9879,-16.2092 -68.9619,-16.1894 -68.8852,-16.1909 -68.7558,-16.2799 -68.7417,-16.3079 -68.7508,-16.3355 -68.9077,-16.401 -68.9511,-16.4545 -68.9582,-16.5289 -68.949,-16.5897 -68.9311,-16.6105 -68.9292,-16.6381 -68.9676,-16.6649 -69.0242,-16.6927 -69.1086,-16.7592 -69.2369,-16.907 -69.3031,-17.0335 -69.3226,-17.0529 -69.3813,-17.0776 -69.4476,-17.1104 -69.5088,-17.1654 -69.5346,-17.1954 -69.5721,-17.2678 -69.5066,-17.2757 -69.4495,-17.328 -69.4172,-17.3592 -69.4165,-17.4071 -69.4155,-17.4853 -69.5458,-17.5974 -69.5994,-17.6435 -69.6497,-17.6399 -69.6856,-17.637 -69.7302,-17.6323 -69.7503,-17.6614 -69.7614,-17.6882 -69.765,-17.7291 -69.7536,-17.7476 -69.7371,-17.7625 -69.7278,-17.7811 -69.6851,-17.9322 -69.6897,-17.9651 -69.7016,-17.995 -69.7119,-18.0194 -69.7597,-18.1119 -69.7828,-18.1371 -69.8737,-18.229 -69.9058,-18.2495 -70.0473,-18.3006 -70.0928,-18.3083 -70.1156,-18.3095 -70.1637,-18.3071 -70.2425,-18.2988 -70.2818,-18.302 -70.3047,-18.3144 -70.3201,-18.3276 -70.3299,-18.3177 -70.4375,-18.2283 -70.4804,-18.2006 -70.5059,-18.1905 -70.5457,-18.183 -70.5639,-18.173 -70.6407,-18.1071 -70.81,-17.9601 -70.8361,-17.9232 -70.8715,-17.8951 -70.9301,-17.8616 -71.0088,-17.8385 -71.0819,-17.7884 -71.092,-17.7767 -71.1008,-17.7596 -71.1242,-17.7422 -71.2152,-17.6916 -71.2703,-17.6019 -71.2809,-17.5266 -71.2886,-17.4745 -71.3129,-17.3796 -71.3319,-17.3703 -71.3995,-17.3114 -71.4067,-17.3019 -71.4078,-17.2826 -71.4576,-17.2542 -71.5768,-17.2058 -71.5991,-17.1993 -71.6601,-17.1888 -71.7185,-17.1786 -71.7486,-17.166 -71.8022,-17.1276 -71.8233,-17.09 -71.8391,-17.0719 -71.8891,-17.0382 -71.9283,-17.0205 -71.9591,-17.0084 -72.0392,-16.96 -72.1456,-16.8829 -72.2108,-16.8202 -72.2566,-16.7603 -72.2777,-16.7392 -72.3711,-16.6873 -72.406,-16.672 -72.4922,-16.6473 -72.5274,-16.6392 -72.5629,-16.6379 -72.5832,-16.6368 -72.6154,-16.6346 -72.6432,-16.6313 -72.7052,-16.6127 -72.7295,-16.5932 -72.7622,-16.5607 -72.7949,-16.5371 -72.8175,-16.5239 -72.8482,-16.5146 -72.9356,-16.4814 -73.1469,-16.3931 -73.2261,-16.3268 -73.3187,-16.2818 -73.3657,-16.2646 -73.5158,-16.2156 -73.5506,-16.2076 -73.7475,-16.1392 -73.8765,-16.0387 -73.9109,-16.0098 -73.9578,-15.9477 -74.083,-15.882 -74.168,-15.8573 -74.2553,-15.836 -74.3055,-15.8124 -74.3301,-15.7989 -74.3533,-15.7778 -74.3626,-15.7476 -74.3932,-15.7054 -74.4283,-15.6874 -74.5468,-15.6408 -74.6096,-15.6132 -74.7175,-15.5564 -74.7725,-15.5262 -74.8879,-15.4748 -74.9619,-15.4486 -74.9882,-15.4235 -75.0153,-15.3957 -75.0674,-15.3102 -75.1412,-15.2056 -75.1541,-15.19 -75.1708,-15.1717 -75.2062,-15.14 -75.3059,-15.0712 -75.4136,-14.9134 -75.4321,-14.8927 -75.4585,-14.8727 -75.482,-14.8597 -75.5206,-14.8414 -75.6254,-14.7821 -75.7503,-14.7103 -75.8444,-14.6352 -75.8476,-14.5977 -75.853,-14.5589 -75.8964,-14.4555 -75.9813,-14.3727 -75.9974,-14.3605 -76.0298,-14.2971 -76.0518,-14.214 -76.1155,-14.1579 -76.1417,-14.1418 -76.1888,-14.0193 -76.2115,-13.887 -76.2447,-13.8982 -76.2824,-13.8946 -76.3066,-13.8684 -76.2837,-13.795 -76.2413,-13.7795 -76.2146,-13.7928 -76.1855,-13.8343 -76.1506,-13.7471 -76.1416,-13.717 -76.1143,-13.6226 -76.1069,-13.5661 -76.0945,-13.4425 -76.11,-13.403 -76.1585,-13.3169 -76.1668,-13.3086 -76.1963,-13.2679 -76.2931,-13.1485 -76.3184,-13.1178 -76.3452,-13.0933 -76.3772,-13.0658 -76.3914,-13.0516 -76.4054,-13.0312 -76.4182,-12.9852 -76.4261,-12.9518 -76.4335,-12.8891 -76.516,-12.7738 -76.5507,-12.735 -76.6643,-12.521 -76.7032,-12.4236 -76.7136,-12.3764 -76.7356,-12.3462 -76.772,-12.3056 -76.8298,-12.2572 -76.9631,-12.1133 -76.9805,-12.0924 -77.0036,-12.0797 -77.0369,-12.0636 -77.0552,-11.9865 -77.0584,-11.9357 -77.0669,-11.88 -77.1001,-11.7889 -77.0892,-11.7226 -77.115,-11.6495 -77.2191,-11.4979 -77.2886,-11.438 -77.3988,-11.3717 -77.4629,-11.3365 -77.482,-11.3275 -77.5148,-11.3178 -77.562,-11.285 -77.5795,-11.2397 -77.5634,-11.2067 -77.5303,-11.2034 -77.5252,-11.1675 -77.594,-10.9218 -77.6339,-10.8394 -77.6975,-10.7379 -77.7419,-10.6857 -77.8089,-10.6003 -77.8094,-10.5906 -77.8299,-10.542 -77.8576,-10.5072 -77.9226,-10.4121 -77.9839,-10.3101 -78.0908,-10.0769 -78.1529,-9.9194 -78.17,-9.8612 -78.1592,-9.8132 -78.1601,-9.7847 -78.2528,-9.6704 -78.2915,-9.608 -78.3148,-9.5128 -78.3187,-9.4171 -78.3531,-9.3519 -78.3983,-9.3193 -78.4265,-9.2264 -78.4334,-9.1619 -78.4874,-9.1064 -78.5523,-9.059 -78.5961,-8.9769 -78.5763,-8.9566 -78.5743,-8.9498 -78.5754,-8.9143 -78.6383,-8.8181 -78.6672,-8.7121 -78.6634,-8.6874 -78.6648,-8.6391 -78.6752,-8.6002 -78.6838,-8.5767 -78.7558,-8.4959 -78.8375,-8.4075 -78.8286,-8.3823 -78.8303,-8.3621 -78.9061,-8.2104 -79.0699,-8.0339 -79.0877,-8.0169 -79.1105,-8.0047 -79.1304,-7.9966 -79.2071,-7.9335 -79.2292,-7.9143 -79.2498,-7.8926 -79.283,-7.8438 -79.3389,-7.7477 -79.3552,-7.6839 -79.3667,-7.6481 -79.4113,-7.5691 -79.4436,-7.5319 -79.4607,-7.514 -79.4973,-7.454 -79.5025,-7.4198 -79.4944,-7.3906 -79.5149,-7.3271 -79.5227,-7.3072 -79.5475,-7.2493 -79.5587,-7.2324 -79.6186,-7.1733 -79.6203,-7.1443 -79.6246,-7.1085 -79.6406,-7.0829 -79.7272,-6.9782 -79.75,-6.9623 -79.7868,-6.9397 -79.8416,-6.8826 -79.8558,-6.8628 -79.8719,-6.8043 -79.889,-6.7609 -80.0252,-6.6376 -80.0518,-6.6222 -80.1015,-6.6007 -80.2257,-6.5419 -80.361,-6.4674 -80.4363,-6.4196 -80.4665,-6.3864 -80.4901,-6.3685 -80.5165,-6.3522 -80.5777,-6.3131 -80.798,-6.2233 -80.9772,-6.1481 -81.0535,-6.1033 -81.0821,-6.0797 -81.1038,-5.9829 -81.1046,-5.9622 -81.0865,-5.8914 -81.0588,-5.8488 -81.0198,-5.8265 -80.9734,-5.8263 -80.9436,-5.8455 -80.9185,-5.8556 -80.8909,-5.8631 -80.8666,-5.8607 -80.8466,-5.8534 -80.8277,-5.8379 -80.8061,-5.8032 -80.7964,-5.7838 -80.7889,-5.756 -80.7812,-5.7068 -80.7806,-5.638 -80.8199,-5.5197 -80.8305,-5.4962 -80.8635,-5.434 -80.8887,-5.4036 -80.9591,-5.3356 -80.9991,-5.2998 -81.0209,-5.2932 -81.0433,-5.2804 -81.1108,-5.1983 -81.0858,-5.0683 -81.0604,-5.0562 -81.0231,-5.0605 -81.0027,-5.0543 -80.9932,-5.0358 -80.992,-5.0121 -81.0166,-4.9626 -81.0286,-4.9463 -81.1212,-4.8447 -81.2374,-4.7196 -81.2522,-4.7016 -81.2621,-4.6821 -81.2513,-4.6602 -81.2361,-4.6411 -81.2103,-4.547 -81.1872,-4.3804 -81.1876,-4.3548 -81.1963,-4.3088 -81.1837,-4.2757 -81.1652,-4.2464 -81.0249,-4.1174 -80.9682,-4.0798 -80.9278,-3.9999 -80.8964,-3.9556 -80.8486,-3.9214 -80.7908,-3.8866 -80.7721,-3.8642 -80.7644,-3.8219 -80.7546,-3.7899 -80.7408,-3.7613 -80.7256,-3.7426 -80.6304,-3.6805 -80.5589,-3.6428 -80.5108,-3.6159 -80.4663,-3.5561 -80.4564,-3.5374 -80.4411,-3.506 -80.4118,-3.494 -80.3536,-3.4933 -80.3288,-3.4917 -80.307,-3.4861 -80.2875,-3.4717 -80.2731,-3.4516 -80.2565,-3.4158 -80.2494,-3.3765 -80.1681,-3.4134 -80.1441,-3.4932 -80.1217,-3.5915 -80.115,-3.6323 -80.1167,-3.7129 -80.1205,-3.7347 -80.0856,-3.8548 -80.0624,-3.8796 -80.0841,-3.8986 -80.2009,-3.9915 -80.2278,-4.0071 -80.2545,-3.9934 -80.2978,-3.9743 -80.3289,-3.9732 -80.3741,-3.9806 -80.4102,-4.0457 -80.4098,-4.0505 -80.3922,-4.1098 -80.3893,-4.1692 -80.373,-4.2025 -80.3541,-4.2163 -80.3192,-4.2049 -80.2915,-4.1916 -80.2489,-4.1946 -80.2912,-4.2586 -80.3075,-4.2767 -80.3393,-4.3107 -80.3884,-4.3832 -80.3894,-4.4115 -80.372,-4.4367 -80.3182,-4.4665 -80.2988,-4.4732 -80.267,-4.4602 -80.2427,-4.4472 -80.1709,-4.3924 -80.1351,-4.3594 -80.0952,-4.3161 -80.0831,-4.2937 -80.0435,-4.2796 -79.9869,-4.295 -79.9674,-4.3147 -79.9341,-4.35 -79.9066,-4.3681 -79.7247,-4.4735 -79.6929,-4.4768 -79.6143,-4.4519 -79.5773,-4.4291 -79.5523,-4.4301 -79.5306,-4.4424 -79.4485,-4.5155 -79.4288,-4.576 -79.4243,-4.6152 -79.3607,-4.761 -79.3542,-4.7917 -79.2748,-4.8804 -79.1949,-4.959 -79.1412,-4.9581 -79.1128,-4.9566 -79.0928,-4.9583 -79.0098,-4.9692 -78.9728,-4.9947 -78.9462,-4.9896 -78.9208,-4.9666 -78.8385,-4.8628 -78.8283,-4.7772 -78.8284,-4.7356 -78.816,-4.7111 -78.786,-4.6718 -78.7691,-4.656 -78.7336,-4.6306 -78.7008,-4.6088 -78.6771,-4.5984 -78.6336,-4.5834 -78.6193,-4.5795 -78.5936,-4.569 -78.5771,-4.5497 -78.5605,-4.4685 -78.563,-4.4124 -78.5805,-4.3602 -78.5829,-4.3351 -78.5824,-4.3019 -78.57,-4.2958 -78.5519,-4.2736 -78.4742,-4.0908 -78.4688,-4.0683 -78.4664,-4.0423 -78.4663,-4.0053 -78.4644,-3.9738 -78.4516,-3.9274 -78.4425,-3.908 -78.3775,-3.8281 -78.3319,-3.7816 -78.3251,-3.7721 -78.3105,-3.7419 -78.2997,-3.7071 -78.2835,-3.6296 -78.2782,-3.5686 -78.2818,-3.5357 -78.2791,-3.5142 -78.2634,-3.4527 -78.2575,-3.4309 -78.2408,-3.413 -78.2126,-3.4037 -78.1907,-3.4061 -78.1726,-3.4208 -78.1643,-3.4478 -78.1673,-3.5127 -78.1581,-3.5159 -78.0926,-3.4683 -78.0819,-3.448 -78.0927,-3.4092 -78.115,-3.3883 -78.1272,-3.3564 -78.1119,-3.3302 -78.0872,-3.3102 -78.0528,-3.2901 -78.0279,-3.2721 -77.9789,-3.2113 -77.9461,-3.1523 -77.8373,-3.0363 -77.7715,-2.9824 -77.7224,-2.9645 -77.7066,-2.9599 -77.3524,-2.8379 -77.1368,-2.7639 -76.9562,-2.7014 -76.8176,-2.6536 -76.5743,-2.5692 -76.3178,-2.3773 -75.9885,-2.1285 -75.8921,-2.0138 -75.696,-1.7799 -75.6346,-1.7059 -75.5424,-1.5944 -75.503,-1.5538 -75.4788,-1.5381 -75.4687,-1.5121 -75.3986,-1.2403 -75.3771,-1.1521 -75.3594,-1.0842 -75.3474,-1.0367 -75.3174,-0.9215 -75.2925,-0.9495 -75.275,-0.9663 -75.246,-0.9785 -75.1323,-0.9681 -75.179,-0.8135 -75.2084,-0.7296 -75.1989,-0.6552 -75.1927,-0.6494 -75.1826,-0.6452 -75.1644,-0.6287 -75.1598,-0.5603 -75.178,-0.5224 -75.2552,-0.4638 -75.2795,-0.4659 -75.3047,-0.4464 -75.3287,-0.419 -75.3497,-0.3836 -75.364,-0.3457 -75.3746,-0.2944 -75.3801,-0.2732 -75.3963,-0.2318 -75.4864,-0.1798 -75.5397,-0.1717 -75.5311,-0.106 -75.4342,-0.1165 -75.3952,-0.1433 -75.3404,-0.164 -75.2651,-0.1507 -75.2209,-0.1345 -75.2015,-0.1192 -75.1746,-0.1222 -75.1413,-0.0957 -75.1323,-0.0681 -75.1206,-0.0368 -75.0526,-0.045 -74.9371,-0.1228 -74.8763,-0.1701 -74.854,-0.1984 -74.7764,-0.232 -74.7573,-0.225 -74.7287,-0.2052 -74.7081,-0.1999 -74.6884,-0.2073 -74.6651,-0.2349 -74.6498,-0.2604 -74.6372,-0.2891 -74.6331,-0.311 -74.6319,-0.333 -74.6251,-0.3611 -74.549,-0.4059 -74.5238,-0.3828 -74.4731,-0.417 -74.3102,-0.5426 -74.2927,-0.5671 -74.2867,-0.5769 -74.2746,-0.6323 -74.2554,-0.7052 -74.2325,-0.7804 -74.2068,-0.8085 -74.1646,-0.8526 -74.1806,-0.8977 -74.1993,-0.929 -74.1718,-0.9852 -74.1572,-1.0117 -74.1321,-1.0333 -73.9947,-1.0714 -73.7851,-1.2069 -73.7579,-1.2637 -73.6695,-1.2881 -73.6301,-1.2777 -73.5708,-1.2828 -73.4729,-1.3736 -73.4648,-1.4348 -73.4602,-1.4661 -73.4375,-1.4917 -73.3945,-1.5505 -73.3646,-1.6084 -73.3945,-1.6345 -73.4042,-1.6523 -73.425,-1.7461 -73.4078,-1.7647 -73.3337,-1.8146 -73.2144,-1.8712 -73.1564,-1.8432 -73.1146,-1.8044 -73.0503,-1.8467 -73.0082,-1.9213 -72.9759,-2.1429 -72.9956,-2.1976 -73.019,-2.2291 -73.0492,-2.2434 -73.033,-2.3258 -73.0225,-2.344 -72.9917,-2.3685 -72.9207,-2.4075 -72.8929,-2.3989 -72.8524,-2.3973 -72.8201,-2.4505 -72.7997,-2.5032 -72.7328,-2.4869 -72.6015,-2.4369 -72.5082,-2.4043 -72.3693,-2.4385 -72.246,-2.4799 -72.2179,-2.4884 -72.1459,-2.4958 -71.9888,-2.4048 -71.9009,-2.3665 -71.8504,-2.376 -71.8086,-2.375 -71.7903,-2.3176 -71.7277,-2.2281 -71.641,-2.1565 -71.6124,-2.1455 -71.6023,-2.1638 -71.6034,-2.1934 -71.5937,-2.2224 -71.4959,-2.2338 -71.4395,-2.2319 -71.3318,-2.2786 -71.2812,-2.344 -71.1078,-2.3576 -71.0211,-2.3093 -70.8964,-2.2754 -70.7792,-2.2228 -70.5781,-2.3554 -70.5701,-2.3984 -70.5027,-2.4811 -70.4847,-2.4902 -70.2985,-2.5088 -70.2764,-2.4952 -70.2562,-2.4893 -70.2162,-2.4984 -70.1395,-2.5673 -70.1297,-2.6063 -70.1154,-2.6409 -70.0416,-2.6985 -70.0193,-2.6953 -69.9884,-2.7523 -70.3324,-3.2909 -70.3673,-3.3453 -70.4857,-3.5294 -70.5475,-3.6247 -70.5921,-3.6934 -70.6437,-3.7754 -70.5274,-3.8248 -70.4477,-3.8547 -70.4206,-3.8547 -70.3994,-3.8456 -70.3441,-3.8118 -70.3264,-3.7979 -70.2823,-3.7833 -70.2616,-3.7854 -70.2431,-3.7949 -70.1548,-3.8669 -70.1019,-3.9328 -70.0829,-3.9701 -70.0728,-4.0012 -70.0644,-4.027 -70.0563,-4.0462 -70.0433,-4.0677 -69.9611,-4.1357 -69.9414,-4.149 -69.9089,-4.1709 -69.8769,-4.2045 -69.8771,-4.2321 -69.8771,-4.2321 117,-3.0,Brazil -48.8216,-1.4859 -48.8463,-1.4988 -48.8977,-1.5228 -49.1111,-1.6117 -49.3278,-1.6453 -49.4576,-1.6251 -49.4992,-1.6982 -49.6166,-1.7746 -49.6628,-1.7355 -49.7016,-1.6369 -49.7163,-1.655 -49.7117,-1.6804 -49.7017,-1.7015 -49.6891,-1.7343 -49.6985,-1.7634 -49.7111,-1.7859 -49.7568,-1.8122 -49.8284,-1.7855 -49.8611,-1.7651 -49.8931,-1.7472 -49.9979,-1.7064 -50.0338,-1.7279 -50.0496,-1.7525 -50.2465,-1.8156 -50.318,-1.8333 -50.3817,-1.8286 -50.5224,-1.7963 -50.5742,-1.757 -50.5837,-1.7341 -50.5895,-1.638 -50.6045,-1.6114 -50.6494,-1.574 -50.6755,-1.5458 -50.717,-1.4777 -50.7435,-1.4426 -50.7571,-1.3278 -50.7242,-1.1503 -50.6844,-1.1262 -50.6518,-1.1387 -50.613,-1.1425 -50.5721,-1.1489 -50.5125,-1.1005 -50.5074,-1.0644 -50.5904,-1.0925 -50.6688,-1.084 -50.6867,-1.0721 -50.7284,-1.0384 -50.7398,-0.9707 -50.7403,-0.925 -50.7264,-0.6626 -50.7178,-0.6432 -50.6712,-0.5942 -50.663,-0.6156 -50.6485,-0.643 -50.6256,-0.6475 -50.536,-0.6812 -50.5008,-0.6775 -50.5302,-0.6507 -50.551,-0.6443 -50.5879,-0.6398 -50.6117,-0.6363 -50.633,-0.6004 -50.6574,-0.5316 -50.6695,-0.4971 -50.6467,-0.3888 -50.6356,-0.3584 -50.603,-0.2834 -50.5896,-0.2622 -50.5286,-0.1997 -50.5042,-0.1765 -50.465,-0.1528 -50.4428,-0.1398 -50.3952,-0.1181 -50.3571,-0.1083 -50.2955,-0.1005 -50.2725,-0.1 -50.0852,-0.1264 -50.0511,-0.1337 -49.755,-0.2013 -49.6575,-0.2275 -49.5896,-0.2478 -49.353,-0.2184 -49.3461,-0.1993 -49.2951,-0.1686 -49.2731,-0.1594 -49.1349,-0.1355 -49.0921,-0.1374 -48.95,-0.1539 -48.7704,-0.2068 -48.5759,-0.2244 -48.3557,-0.2616 -48.3154,-0.2923 -48.3095,-0.3132 -48.3181,-0.3715 -48.3331,-0.3947 -48.3632,-0.4195 -48.3776,-0.4431 -48.4071,-0.5161 -48.4127,-0.5376 -48.4118,-0.5859 -48.4295,-0.6864 -48.4398,-0.7336 -48.47,-0.8521 -48.4756,-0.8741 -48.4844,-0.899 -48.5071,-0.9192 -48.5341,-0.9315 -48.5669,-0.9433 -48.5893,-0.9874 -48.5882,-1.0088 -48.5767,-1.0302 -48.5744,-1.0644 -48.7011,-1.2306 -48.7902,-1.4564 -48.8057,-1.4763 -48.8216,-1.4859 -48.8216,-1.4859 27,-3.0,Brazil -51.3323,-0.4855 -51.3406,-0.4844 -51.3493,-0.4733 -51.3477,-0.4539 -51.3416,-0.4341 -51.3341,-0.427 -51.3063,-0.4107 -51.2302,-0.3007 -51.223,-0.2794 -51.2004,-0.2298 -51.1953,-0.2203 -51.1812,-0.2014 -51.1656,-0.1828 -51.1505,-0.1695 -51.1347,-0.1588 -51.0568,-0.1212 -51.0418,-0.1239 -51.0377,-0.1351 -51.0544,-0.2205 -51.08,-0.2849 -51.1627,-0.367 -51.1902,-0.3916 -51.2542,-0.4408 -51.28,-0.4584 -51.323,-0.484 -51.3323,-0.4855 -51.3323,-0.4855 23,-6.0,Ecuador -90.5041,-0.3749 -90.5692,-0.3482 -90.5893,-0.3466 -90.6247,-0.3553 -90.6387,-0.3567 -90.7247,-0.3375 -90.7724,-0.2693 -90.7329,-0.1764 -90.7115,-0.1565 -90.6916,-0.149 -90.6459,-0.1626 -90.5753,-0.1874 -90.5607,-0.1931 -90.5418,-0.2004 -90.5207,-0.2134 -90.5122,-0.2189 -90.4974,-0.2314 -90.4497,-0.2782 -90.446,-0.3011 -90.483,-0.3615 -90.4996,-0.3744 -90.5041,-0.3749 -90.5041,-0.3749 23,7.0,Indonesia 103.6053,-0.2718 103.6146,-0.2789 103.6359,-0.299 103.6438,-0.3117 103.6475,-0.3214 103.65,-0.3351 103.6457,-0.3481 103.6368,-0.3528 103.5001,-0.3895 103.4313,-0.3829 103.4196,-0.3812 103.3478,-0.3666 103.338,-0.3592 103.3649,-0.2976 103.3806,-0.2718 103.3966,-0.2503 103.4136,-0.2364 103.4223,-0.2318 103.4421,-0.2272 103.5074,-0.2332 103.5175,-0.2364 103.6053,-0.2718 103.6053,-0.2718 13,-3.0,Brazil -50.7898,-0.3625 -50.847,-0.3579 -50.8456,-0.3458 -50.8159,-0.3173 -50.6946,-0.2274 -50.6899,-0.2377 -50.692,-0.2891 -50.6945,-0.3002 -50.7064,-0.3298 -50.7221,-0.3518 -50.7461,-0.3584 -50.7898,-0.3625 -50.7898,-0.3625 17,7.0,Indonesia 98.3922,-0.4658 98.3913,-0.539 98.2673,-0.5696 98.2162,-0.5389 98.2143,-0.5194 98.2567,-0.3602 98.2634,-0.3467 98.3129,-0.2491 98.3233,-0.2463 98.3332,-0.25 98.3414,-0.2589 98.3545,-0.2803 98.3739,-0.316 98.4017,-0.3701 98.4018,-0.422 98.3922,-0.4658 98.3922,-0.4658 17,-6.0,Ecuador -91.3964,-0.4955 -91.4016,-0.4954 -91.5097,-0.4478 -91.5364,-0.4127 -91.5493,-0.3848 -91.5612,-0.3154 -91.5295,-0.291 -91.3801,-0.2498 -91.3663,-0.2491 -91.3364,-0.2702 -91.2997,-0.307 -91.2927,-0.3291 -91.2942,-0.4395 -91.3027,-0.458 -91.3186,-0.4661 -91.3964,-0.4955 -91.3964,-0.4955 20,9.0,Indonesia 127.1011,-0.2672 127.1166,-0.2838 127.1385,-0.3803 127.1215,-0.4641 127.1116,-0.497 127.0668,-0.5196 127.0573,-0.524 127.0406,-0.5281 127.017,-0.5313 126.9743,-0.5243 126.9648,-0.4985 126.9633,-0.2938 126.9918,-0.2706 127.0012,-0.2667 127.012,-0.2641 127.0536,-0.2574 127.073,-0.2561 127.0936,-0.257 127.1011,-0.2672 127.1011,-0.2672 21,-3.0,Brazil -51.0581,-0.5432 -51.0787,-0.5413 -51.093,-0.5303 -51.0929,-0.518 -51.0725,-0.3988 -50.9877,-0.2821 -50.9733,-0.2852 -50.8905,-0.3414 -50.8911,-0.3573 -50.9058,-0.3687 -50.93,-0.3723 -50.9564,-0.379 -50.9661,-0.3826 -50.99,-0.3984 -51.0063,-0.4278 -51.0237,-0.4802 -51.0335,-0.5074 -51.0402,-0.5228 -51.0503,-0.5393 -51.0581,-0.5432 -51.0581,-0.5432 57,9.0,Indonesia 127.3888,-0.3099 127.429,-0.321 127.514,-0.4227 127.5363,-0.4583 127.5414,-0.467 127.5405,-0.4801 127.5289,-0.511 127.5233,-0.5227 127.5097,-0.5332 127.4926,-0.5504 127.4829,-0.5616 127.4746,-0.5737 127.4701,-0.5826 127.4659,-0.5929 127.4611,-0.6088 127.4597,-0.6247 127.4643,-0.6367 127.5063,-0.7033 127.5231,-0.7188 127.5372,-0.7214 127.5461,-0.7167 127.5594,-0.7061 127.5733,-0.6994 127.6446,-0.689 127.7083,-0.7176 127.7184,-0.7279 127.7527,-0.7767 127.7493,-0.8065 127.6952,-0.8551 127.6837,-0.864 127.6722,-0.8707 127.6108,-0.8875 127.597,-0.8842 127.532,-0.8538 127.5106,-0.823 127.4623,-0.7683 127.3904,-0.799 127.3401,-0.8206 127.3288,-0.8216 127.3147,-0.8122 127.2988,-0.7868 127.2949,-0.7774 127.2927,-0.7656 127.2914,-0.7464 127.2599,-0.6219 127.2281,-0.592 127.16,-0.5161 127.1475,-0.4772 127.1467,-0.457 127.1777,-0.3423 127.2168,-0.328 127.2277,-0.3296 127.2592,-0.3565 127.2692,-0.3668 127.338,-0.3513 127.3888,-0.3099 127.3888,-0.3099 17,8.0,Indonesia 121.912,-0.3778 121.9083,-0.3958 121.8971,-0.4086 121.8749,-0.4136 121.7802,-0.4163 121.7605,-0.4114 121.7358,-0.3953 121.7194,-0.3745 121.7191,-0.3628 121.7386,-0.3379 121.751,-0.3289 121.7852,-0.3168 121.7955,-0.3129 121.8112,-0.3122 121.9111,-0.3376 121.912,-0.3778 121.912,-0.3778 17,7.0,Indonesia 104.3682,-0.3474 104.4103,-0.3701 104.4679,-0.4432 104.4756,-0.4555 104.4793,-0.4691 104.4764,-0.4838 104.3874,-0.6202 104.3765,-0.626 104.2281,-0.5829 104.1333,-0.4741 104.1603,-0.4095 104.1697,-0.3949 104.2057,-0.3726 104.3494,-0.3382 104.36,-0.3409 104.3682,-0.3474 104.3682,-0.3474 1044,9.0,Indonesia 132.7436,-2.6598 132.795,-2.5915 132.8191,-2.5537 132.8304,-2.5378 132.869,-2.494 132.885,-2.4821 132.9297,-2.4575 132.9563,-2.443 133.0079,-2.4269 133.096,-2.4147 133.1508,-2.4405 133.1596,-2.4451 133.236,-2.5186 133.3558,-2.5629 133.397,-2.5602 133.4546,-2.5356 133.4981,-2.5408 133.5248,-2.5725 133.5275,-2.5836 133.5221,-2.636 133.5281,-2.7149 133.5378,-2.7089 133.5424,-2.6947 133.5613,-2.5486 133.5592,-2.537 133.5545,-2.5248 133.5552,-2.5134 133.5693,-2.5102 133.5806,-2.5127 133.5903,-2.52 133.5977,-2.5299 133.633,-2.5971 133.6529,-2.6483 133.6656,-2.656 133.6718,-2.5814 133.6718,-2.5538 133.6702,-2.539 133.6538,-2.4921 133.6314,-2.478 133.6901,-2.4219 133.7096,-2.4145 133.7638,-2.3867 133.8048,-2.3265 133.8079,-2.2321 133.8055,-2.2205 133.7965,-2.208 133.7737,-2.2688 133.6886,-2.2974 133.6705,-2.2956 133.6476,-2.2722 133.6383,-2.2539 133.6449,-2.2422 133.6593,-2.236 133.6848,-2.2269 133.7618,-2.1963 133.7954,-2.1685 133.7837,-2.1015 133.7257,-2.1117 133.6149,-2.1691 133.4956,-2.2347 133.3929,-2.2433 133.2884,-2.2362 133.2699,-2.2242 133.2508,-2.2161 133.148,-2.1985 133.0517,-2.2109 132.9392,-2.2457 132.8247,-2.2819 132.8143,-2.2851 132.7658,-2.2843 132.7516,-2.2811 132.738,-2.2743 132.7258,-2.2661 132.7078,-2.2566 132.6838,-2.246 132.6686,-2.245 132.6435,-2.2511 132.6339,-2.2551 132.6202,-2.2618 132.541,-2.306 132.5305,-2.3024 132.4903,-2.2813 132.4792,-2.2682 132.4772,-2.2532 132.4729,-2.2366 132.4669,-2.2222 132.4531,-2.2022 132.443,-2.1914 132.4256,-2.1872 132.399,-2.193 132.3829,-2.1971 132.3665,-2.2014 132.3175,-2.2141 132.3071,-2.2177 132.2931,-2.2236 132.2802,-2.2311 132.2562,-2.2482 132.2444,-2.2573 132.2278,-2.2613 132.1889,-2.2703 132.1729,-2.2706 132.1502,-2.2658 132.1355,-2.2563 132.1221,-2.2429 132.0076,-2.1491 131.9965,-2.1464 131.9589,-2.1308 131.8928,-2.0831 131.8235,-1.9649 131.788,-1.8857 131.7834,-1.8737 131.7792,-1.8083 131.8235,-1.7603 131.8085,-1.7059 131.7344,-1.64 131.6574,-1.6056 131.5752,-1.5801 131.5631,-1.5719 131.5562,-1.5579 131.5573,-1.5422 131.4432,-1.4888 131.4287,-1.4829 131.1271,-1.3823 131.127,-1.3946 131.1365,-1.4056 131.1509,-1.4185 131.1674,-1.4294 131.1839,-1.4367 131.1893,-1.4485 131.186,-1.4589 131.1681,-1.4761 131.1531,-1.4881 131.1407,-1.4966 131.0608,-1.5253 131.0381,-1.4856 131.0305,-1.4759 130.9992,-1.4629 130.964,-1.4499 130.9453,-1.4468 130.9024,-1.4533 130.8167,-1.4012 130.8648,-1.3329 130.8883,-1.2734 130.9129,-1.242 130.9278,-1.2345 130.9529,-1.2375 131.008,-1.2276 131.0187,-1.2248 131.032,-1.2173 131.0376,-1.209 131.102,-1.0957 131.1057,-1.0859 131.1393,-0.917 131.1347,-0.9052 131.1086,-0.8218 131.2728,-0.7599 131.2833,-0.7567 131.366,-0.7332 131.3876,-0.7364 131.3912,-0.7484 131.4305,-0.7614 131.6277,-0.725 131.6551,-0.7183 131.6858,-0.7081 131.7158,-0.697 131.7256,-0.6928 131.7361,-0.6836 131.7427,-0.6692 131.7484,-0.6526 131.7705,-0.6218 131.9587,-0.4659 132.0122,-0.4316 132.0294,-0.4211 132.0438,-0.4153 132.1218,-0.3834 132.2746,-0.3459 132.2861,-0.3438 132.4142,-0.3537 132.5646,-0.3665 132.5953,-0.3873 132.671,-0.4211 132.7249,-0.4425 132.9659,-0.5361 133.0114,-0.5369 133.0241,-0.5417 133.1038,-0.6055 133.1654,-0.6668 133.178,-0.6822 133.2,-0.7017 133.2253,-0.7186 133.2401,-0.7237 133.2533,-0.7277 133.2807,-0.7353 133.3044,-0.739 133.4256,-0.753 133.6014,-0.7555 133.6068,-0.7472 133.6054,-0.723 133.8313,-0.7291 133.844,-0.7335 133.8551,-0.7428 133.961,-0.834 133.9286,-0.8874 133.9185,-0.8941 133.8794,-0.9655 133.9472,-1.1016 133.9767,-1.1507 134.008,-1.1843 134.0246,-1.1955 134.0362,-1.2008 134.0546,-1.2202 134.0631,-1.2322 134.1287,-1.3475 134.13,-1.359 134.1082,-1.3816 134.0937,-1.3947 134.0845,-1.4091 134.0811,-1.4231 134.0742,-1.4833 134.073,-1.5355 134.0708,-1.5553 134.0101,-1.616 133.9469,-1.6625 133.9381,-1.676 133.972,-1.8817 133.9947,-1.9316 133.9825,-2.0493 134.009,-2.3168 134.0421,-2.3803 134.0495,-2.3932 134.0718,-2.4254 134.0909,-2.4301 134.1027,-2.4357 134.1688,-2.5021 134.1943,-2.5724 134.2251,-2.6519 134.3115,-2.858 134.3299,-2.8628 134.3435,-2.859 134.3561,-2.8511 134.375,-2.8323 134.372,-2.7999 134.3692,-2.7893 134.3615,-2.7694 134.3426,-2.7124 134.3234,-2.6247 134.3191,-2.5716 134.3203,-2.5561 134.3255,-2.541 134.3345,-2.5226 134.3888,-2.4667 134.4193,-2.4736 134.4736,-2.5014 134.4908,-2.5187 134.5003,-2.536 134.5036,-2.5534 134.5058,-2.5718 134.5064,-2.6711 134.5064,-2.7326 134.5051,-2.7515 134.5055,-2.7785 134.5139,-2.8412 134.5464,-2.9665 134.5534,-2.9766 134.5731,-2.9873 134.5857,-2.9878 134.6001,-2.9846 134.6142,-2.9787 134.653,-2.9511 134.6575,-2.9381 134.6584,-2.9221 134.6768,-2.9011 134.6946,-2.8978 134.7029,-2.9033 134.7089,-2.9278 134.7096,-2.941 134.699,-3.0109 134.6862,-3.019 134.6763,-3.0262 134.6704,-3.0373 134.6604,-3.1202 134.7243,-3.2449 134.7352,-3.2549 134.8425,-3.3324 134.8516,-3.3375 134.9652,-3.3646 135.1805,-3.3897 135.1953,-3.3879 135.3087,-3.3653 135.3246,-3.3606 135.339,-3.3544 135.3638,-3.3378 135.3787,-3.3256 135.3891,-3.3154 135.4025,-3.301 135.4123,-3.2835 135.4175,-3.2661 135.4155,-3.243 135.4211,-3.2348 135.4528,-3.198 135.4809,-3.178 135.4913,-3.175 135.5514,-3.1595 135.5603,-3.1548 135.6135,-3.1124 135.6117,-3.0974 135.588,-3.0789 135.5909,-3.0668 135.6109,-3.0489 135.6764,-3.0193 135.7247,-3.0054 135.7391,-2.9989 135.7542,-2.987 135.7758,-2.9575 135.7834,-2.9408 135.7864,-2.9232 135.7848,-2.9109 135.8022,-2.7828 135.8728,-2.6978 135.8831,-2.6941 135.8961,-2.6947 135.9535,-2.6656 136.0158,-2.6386 136.0295,-2.632 136.0675,-2.6079 136.0822,-2.595 136.0951,-2.5806 136.1013,-2.5729 136.1124,-2.5567 136.1171,-2.5477 136.126,-2.5294 136.1889,-2.3638 136.1917,-2.3459 136.1919,-2.3254 136.1858,-2.3112 136.1816,-2.2946 136.181,-2.2796 136.2034,-2.2511 136.2563,-2.2147 136.2671,-2.2121 136.3296,-2.2088 136.3793,-2.2114 136.3827,-2.2283 136.393,-2.2352 136.4485,-2.2489 136.4608,-2.2502 136.5144,-2.2545 136.6004,-2.2472 136.6154,-2.2367 136.6332,-2.2269 136.6845,-2.1991 136.8373,-2.1312 136.9131,-2.1077 136.9292,-2.1081 136.9442,-2.1123 136.9591,-2.1143 137.0209,-2.1053 137.034,-2.1018 137.0795,-2.0715 137.082,-2.0548 137.0543,-1.9655 137.045,-1.9501 137.0282,-1.9388 137.0084,-1.9327 136.9793,-1.9021 136.956,-1.8721 136.9599,-1.8146 136.9669,-1.8007 136.9771,-1.7906 136.986,-1.7857 137.0376,-1.7634 137.0592,-1.7579 137.1098,-1.7452 137.1911,-1.7099 137.3351,-1.6327 137.348,-1.6133 137.3605,-1.6019 137.4312,-1.5661 137.4504,-1.5581 137.4992,-1.5379 137.5248,-1.528 137.5667,-1.5122 137.5967,-1.5012 137.6228,-1.493 137.6912,-1.4724 137.7058,-1.4699 137.7214,-1.4711 137.777,-1.4877 137.789,-1.503 137.7953,-1.5135 137.8241,-1.5407 137.9061,-1.605 138.2122,-1.7155 138.2585,-1.7303 138.367,-1.7592 138.423,-1.7702 138.4521,-1.7749 138.4694,-1.7784 138.4884,-1.7834 138.5004,-1.7885 138.5179,-1.7981 138.5528,-1.8179 138.5652,-1.8261 138.5885,-1.8447 138.601,-1.863 138.6124,-1.8826 138.6222,-1.894 138.6323,-1.9041 138.6608,-1.93 138.6878,-1.9516 138.6971,-1.9555 138.7082,-1.958 138.7264,-1.9605 138.7431,-1.9597 138.7581,-1.9577 138.7773,-1.9589 138.7882,-1.9616 138.8199,-1.9711 138.8521,-1.9808 138.8901,-1.9971 139.1948,-2.1376 139.251,-2.1634 139.2729,-2.1755 139.2816,-2.1808 139.4287,-2.2593 139.5994,-2.3489 139.6236,-2.3585 139.6456,-2.3638 139.6752,-2.3707 139.6875,-2.3723 139.7273,-2.3735 139.7764,-2.3681 139.8744,-2.3559 139.9359,-2.3257 139.9479,-2.3204 140.0048,-2.3239 140.0101,-2.3323 140.0115,-2.3445 140.0147,-2.3548 140.0543,-2.4042 140.1644,-2.4552 140.1762,-2.4561 140.2178,-2.4456 140.2232,-2.4295 140.3193,-2.4315 140.396,-2.4399 140.4733,-2.4542 140.5493,-2.481 140.5638,-2.4872 140.5745,-2.4935 140.5832,-2.5018 140.5901,-2.526 140.5853,-2.545 140.5759,-2.5627 140.5484,-2.591 140.5421,-2.6117 140.5535,-2.6258 140.5688,-2.6341 140.5787,-2.6345 140.5832,-2.6259 140.6173,-2.6178 140.6654,-2.6067 140.8083,-2.6012 140.8438,-2.604 140.8475,-2.6108 140.845,-4.8999 140.8458,-5.9929 140.846,-6.3256 140.8255,-6.3259 140.8069,-6.3294 140.7721,-6.427 140.7681,-6.4436 140.7872,-6.4633 140.7911,-6.473 140.7873,-6.4924 140.734,-6.5933 140.7032,-6.6236 140.6993,-6.6707 140.6997,-6.7208 140.7114,-6.7787 140.7156,-6.7885 140.7435,-6.8481 140.7899,-6.8958 140.8216,-6.8987 140.8351,-6.8887 140.8467,-6.8853 140.8467,-6.8969 140.851,-9.1182 140.805,-9.0887 140.7879,-9.0789 140.7729,-9.0725 140.7563,-9.0685 140.7328,-9.0645 140.7205,-9.06 140.7015,-9.0483 140.6855,-9.036 140.6727,-9.0221 140.6391,-8.9738 140.6015,-8.93 140.5875,-8.9163 140.5334,-8.8683 140.49,-8.8298 140.462,-8.8034 140.4527,-8.7927 140.4417,-8.7766 140.388,-8.694 140.3473,-8.6224 140.3316,-8.6065 140.18,-8.4789 140.0728,-8.3888 140.0534,-8.3739 139.9661,-8.3106 139.9303,-8.2857 139.9143,-8.2742 139.895,-8.2596 139.8751,-8.2396 139.8376,-8.1957 139.8285,-8.1842 139.8185,-8.1675 139.8256,-8.1286 139.8488,-8.1042 139.8658,-8.1005 139.8948,-8.0773 139.9049,-8.0623 139.9768,-7.93 139.9907,-7.877 139.8966,-7.9179 139.8801,-7.9849 139.8802,-8.0053 139.8844,-8.0223 139.886,-8.0344 139.8831,-8.0453 139.8513,-8.0647 139.8088,-8.0874 139.7878,-8.0929 139.759,-8.1055 139.7128,-8.1041 139.6633,-8.103 139.5957,-8.1036 139.556,-8.1047 139.4641,-8.1156 139.4449,-8.1238 139.436,-8.1288 139.4189,-8.1387 139.4083,-8.148 139.3878,-8.1616 139.3733,-8.1678 139.3515,-8.1738 139.2623,-8.1942 139.2312,-8.1969 139.2106,-8.1971 139.181,-8.1952 139.1699,-8.1924 139.1611,-8.1874 139.12,-8.1603 139.1037,-8.1424 139.089,-8.1227 139.0827,-8.1053 139.0624,-8.0799 138.9284,-8.1308 138.8182,-8.2113 138.8142,-8.2205 138.808,-8.2416 138.7838,-8.2855 138.7657,-8.292 138.7551,-8.2887 138.6971,-8.1802 138.6931,-8.1705 138.684,-8.1488 138.6813,-8.1207 138.6953,-8.0958 138.7485,-8.0279 138.7483,-7.9163 138.7264,-8.027 138.6933,-8.069 138.6271,-8.1301 138.5873,-8.1434 138.5535,-8.1468 138.512,-8.1552 138.4925,-8.1881 138.4687,-8.2256 138.4482,-8.2457 138.2984,-8.3682 138.2532,-8.3916 138.225,-8.4011 138.1455,-8.4166 138.1186,-8.4137 138.096,-8.3952 138.0586,-8.3849 138.0281,-8.3813 137.7143,-8.3616 137.6503,-8.3723 137.5497,-8.4013 137.5204,-8.4219 137.4913,-8.4253 137.4774,-8.4014 137.4806,-8.3715 137.5538,-8.1769 137.5735,-8.1285 137.7073,-7.8662 137.7505,-7.787 137.863,-7.6165 137.8937,-7.5834 137.9152,-7.5654 137.9501,-7.5387 138.0076,-7.4998 138.0655,-7.4624 138.0839,-7.4531 138.2066,-7.4069 138.2509,-7.4 138.299,-7.3936 138.3221,-7.3892 138.3562,-7.3826 138.3893,-7.3742 138.4035,-7.3708 138.4344,-7.362 138.4827,-7.3557 138.546,-7.3543 138.6051,-7.362 138.6506,-7.3749 138.6717,-7.3941 138.7082,-7.4482 138.7237,-7.4784 138.7346,-7.4988 138.7685,-7.5342 138.8117,-7.5473 138.8448,-7.5488 138.8801,-7.6051 138.8251,-7.7604 138.7573,-7.8696 138.751,-7.9027 138.7665,-7.8913 138.7842,-7.8817 138.7959,-7.8798 138.8064,-7.8764 138.8204,-7.8705 138.8358,-7.8586 138.8469,-7.8289 138.8498,-7.8113 138.8497,-7.7977 138.8484,-7.7788 138.8462,-7.7672 138.8477,-7.7517 138.8949,-7.6322 138.8988,-7.623 138.9113,-7.6078 138.9263,-7.5959 138.9368,-7.5823 138.94,-7.5684 138.9382,-7.5533 138.9315,-7.5428 138.9123,-7.5276 138.8836,-7.5157 138.8638,-7.5079 138.8498,-7.5048 138.7772,-7.455 138.7564,-7.401 138.7412,-7.3717 138.7341,-7.3617 138.7252,-7.35 138.7062,-7.3283 138.6922,-7.3149 138.6757,-7.304 138.6073,-7.2632 138.5499,-7.2315 138.5271,-7.2239 138.5145,-7.2157 138.5063,-7.2035 138.5056,-7.1927 138.5182,-7.1848 138.7458,-7.1921 138.778,-7.1945 138.7882,-7.1977 138.8381,-7.2306 138.8524,-7.2368 138.8649,-7.2411 138.8796,-7.2432 138.8938,-7.2433 138.8988,-7.2419 138.9398,-7.2347 138.9785,-7.2356 139.0081,-7.2331 139.0187,-7.2304 139.0277,-7.2188 139.0653,-7.1543 139.0188,-7.175 139.0045,-7.1946 138.9722,-7.2019 138.9325,-7.2035 138.8853,-7.2055 138.6905,-7.1458 138.6036,-7.1095 138.5923,-7.1007 138.4248,-6.9535 138.4119,-6.9391 138.4072,-6.9302 138.4039,-6.9163 138.4061,-6.8984 138.4131,-6.8887 138.4318,-6.8747 138.4411,-6.8704 138.4873,-6.8692 138.502,-6.8739 138.5423,-6.8882 138.5616,-6.8913 138.5721,-6.8919 138.5842,-6.8895 138.6008,-6.8794 138.6221,-6.86 138.6479,-6.8484 138.7301,-6.8376 138.7521,-6.8357 138.7723,-6.8389 138.8081,-6.8512 138.8261,-6.8608 138.8403,-6.8737 138.8498,-6.8846 138.8664,-6.9029 138.8912,-6.9253 138.9151,-6.9427 138.9362,-6.9555 138.9499,-6.9621 138.9642,-6.9682 138.9795,-6.9703 139.0291,-6.9596 139.0149,-6.9512 138.9889,-6.9499 138.9719,-6.9466 138.9624,-6.9426 138.9315,-6.9254 138.917,-6.9155 138.8903,-6.8909 138.8778,-6.8769 138.86,-6.8608 138.8295,-6.8439 138.8152,-6.8378 138.8006,-6.8316 138.7803,-6.8248 138.744,-6.8203 138.7254,-6.818 138.6309,-6.7706 138.5337,-6.7209 138.5247,-6.713 138.5212,-6.7027 138.5158,-6.6808 138.5097,-6.65 138.5185,-6.6428 138.532,-6.639 138.5477,-6.6391 138.5197,-6.6011 138.404,-6.4852 138.3381,-6.4277 138.3244,-6.4143 138.306,-6.3916 138.2807,-6.3556 138.2512,-6.2897 138.2407,-6.2657 138.238,-6.2549 138.2326,-6.2263 138.2314,-6.2144 138.2315,-6.2008 138.236,-6.1884 138.236,-6.1774 138.2078,-6.0945 138.2039,-6.0849 138.1683,-6.0181 138.1388,-5.966 138.1402,-5.8488 138.1228,-5.8452 138.0544,-5.8248 138.0413,-5.8174 138.0292,-5.8091 138.0189,-5.7988 138.0105,-5.7865 138.0228,-5.7615 138.0338,-5.7519 138.0988,-5.7154 138.1942,-5.6738 138.1836,-5.6649 138.157,-5.6638 138.0638,-5.6781 138.0515,-5.6831 138.0195,-5.6994 138.0067,-5.7113 137.9285,-5.7334 137.9142,-5.7247 137.8996,-5.6639 137.8969,-5.6464 137.8956,-5.6204 137.8956,-5.5933 137.8974,-5.5751 137.9086,-5.5102 137.916,-5.4318 137.9158,-5.4183 137.9078,-5.4025 137.8864,-5.4339 137.879,-5.4537 137.7914,-5.4211 137.6209,-5.3085 137.5928,-5.2744 137.5058,-5.2177 137.4515,-5.2034 137.4381,-5.1967 137.4179,-5.1822 137.4131,-5.1708 137.4209,-5.1617 137.4364,-5.1494 137.3613,-5.1489 137.2525,-5.1 137.2072,-5.0698 137.1478,-5.024 137.1121,-4.981 137.067,-4.9998 137.0541,-5.007 136.8473,-4.9485 136.6667,-4.9247 136.6522,-4.9151 136.6433,-4.9001 136.4759,-4.8223 136.3695,-4.7649 136.3464,-4.7509 136.2048,-4.6778 136.1609,-4.6778 136.1029,-4.6788 136.0133,-4.645 135.8804,-4.5882 135.8534,-4.564 135.8376,-4.5392 135.8175,-4.5111 135.8088,-4.5064 135.7737,-4.4933 135.7429,-4.4902 135.6467,-4.4869 135.6107,-4.4908 135.5826,-4.4957 135.5699,-4.4962 135.4958,-4.484 135.4856,-4.4808 135.4613,-4.4706 135.3679,-4.4513 135.2714,-4.4313 135.2222,-4.4354 135.1881,-4.4383 135.1754,-4.4397 135.1324,-4.4464 135.1111,-4.4559 135.1021,-4.4606 135.0905,-4.4629 135.0783,-4.4614 135.0509,-4.4545 135.023,-4.4417 134.9321,-4.395 134.9191,-4.3878 134.8096,-4.3194 134.6481,-4.2511 134.588,-4.2053 134.4934,-4.1208 134.489,-4.1084 134.5239,-3.9712 134.5313,-3.9447 134.5425,-3.9351 134.5559,-3.9318 134.7006,-3.9496 134.7305,-3.9603 134.7482,-3.9705 134.7605,-3.9753 134.779,-3.974 134.8165,-3.9462 134.8148,-3.9366 134.7476,-3.9247 134.6123,-3.9139 134.5547,-3.9111 134.5203,-3.9104 134.4752,-3.9424 134.4647,-3.9534 134.4564,-3.9796 134.4537,-3.9937 134.445,-4.0055 134.4217,-4.013 134.3691,-4.0217 134.3151,-3.9433 134.2806,-3.9089 134.2644,-3.9032 134.2137,-3.8925 134.2062,-3.9029 134.1966,-3.944 134.1876,-3.9868 134.1509,-4.006 134.0601,-3.9554 134.0305,-3.9299 134.0104,-3.8885 134.014,-3.8578 134.0376,-3.8408 134.0404,-3.8244 134.0238,-3.7883 134.0118,-3.7727 133.9894,-3.7544 133.9748,-3.7477 133.8825,-3.7948 133.8745,-3.8006 133.7732,-3.7458 133.6811,-3.5848 133.649,-3.6008 133.6451,-3.6101 133.6443,-3.6201 133.6488,-3.6504 133.6527,-3.6669 133.6272,-3.6729 133.5919,-3.6566 133.5564,-3.6278 133.4927,-3.5021 133.4856,-3.485 133.4846,-3.4694 133.4888,-3.4568 133.507,-3.4441 133.5181,-3.4414 133.5415,-3.423 133.5481,-3.4091 133.5489,-3.3963 133.5506,-3.3475 133.5432,-3.2947 133.5368,-3.273 133.538,-3.2537 133.5621,-3.1889 133.6318,-3.1292 133.6976,-3.0842 133.7093,-3.079 133.7133,-3.0524 133.7114,-3.0038 133.6779,-2.9583 133.5807,-3.0471 133.5614,-3.0687 133.5163,-3.1207 133.5083,-3.133 133.5032,-3.1454 133.5011,-3.157 133.4895,-3.2861 133.4939,-3.3186 133.4938,-3.3617 133.4921,-3.4073 133.454,-3.4149 133.4192,-3.4344 133.3931,-3.4566 133.4152,-3.4777 133.4387,-3.5302 133.4344,-3.5643 133.4227,-3.5798 133.3849,-3.6053 133.3371,-3.6393 133.259,-3.7119 133.248,-3.7281 133.244,-3.7455 133.255,-3.7973 133.2613,-3.8086 133.2901,-3.8279 133.2979,-3.8402 133.3019,-3.8535 133.3001,-3.8646 133.1616,-4.0101 133.0978,-4.0663 133.0865,-4.0717 133.0751,-4.0745 133.0486,-4.0751 132.9459,-4.0641 132.9161,-4.0562 132.8976,-4.0574 132.8775,-4.0684 132.8398,-4.1127 132.8328,-4.1126 132.7613,-4.0933 132.7495,-4.0847 132.697,-4.0054 132.6651,-3.9318 132.6767,-3.9226 132.6675,-3.8872 132.6643,-3.877 132.6306,-3.786 132.6005,-3.7139 132.6328,-3.6285 132.7388,-3.5903 132.7698,-3.5662 132.7748,-3.561 132.7768,-3.5506 132.7324,-3.4667 132.7171,-3.4621 132.7,-3.4703 132.6726,-3.4486 132.6513,-3.3676 132.6577,-3.3489 132.6653,-3.3359 132.672,-3.3185 132.6692,-3.3017 132.6465,-3.2728 132.6378,-3.2675 132.6167,-3.2651 132.5822,-3.279 132.578,-3.2888 132.5814,-3.3086 132.5807,-3.3308 132.5723,-3.3394 132.5592,-3.3431 132.5466,-3.3387 132.5138,-3.3217 132.5051,-3.3134 132.4474,-3.2309 132.4427,-3.1814 132.4075,-3.1134 132.397,-3.1031 132.3165,-3.0413 132.3005,-3.0296 132.1668,-2.9479 132.1242,-2.9353 132.1125,-2.9334 132.0921,-2.9336 132.0414,-2.9352 132.0326,-2.9404 131.9435,-2.9641 131.9315,-2.9637 131.8082,-2.7838 131.8189,-2.7714 131.9799,-2.6939 131.9896,-2.6901 132.0003,-2.6875 132.0463,-2.6769 132.0588,-2.6755 132.0721,-2.6758 132.1689,-2.6791 132.3621,-2.6971 132.423,-2.7137 132.4384,-2.7223 132.4688,-2.7401 132.4926,-2.757 132.4982,-2.7652 132.5062,-2.7774 132.5166,-2.7876 132.5509,-2.8092 132.561,-2.8126 132.5734,-2.8137 132.5867,-2.8089 132.6403,-2.7701 132.6831,-2.7374 132.6929,-2.7273 132.7436,-2.6598 132.7436,-2.6598 19,-3.0,Brazil -50.9266,-0.5756 -50.8998,-0.5213 -50.8312,-0.3969 -50.8211,-0.3848 -50.7933,-0.3734 -50.7652,-0.3712 -50.732,-0.3778 -50.7199,-0.3831 -50.7052,-0.4041 -50.7001,-0.4204 -50.7025,-0.4389 -50.7084,-0.4508 -50.7264,-0.4711 -50.7397,-0.4845 -50.7479,-0.4916 -50.7676,-0.5065 -50.9013,-0.5665 -50.9266,-0.5756 -50.9266,-0.5756 17,-3.0,Brazil -51.0147,-0.5532 -51.0196,-0.5422 -51.02,-0.5043 -51.017,-0.4931 -51.0129,-0.4837 -51.0041,-0.4721 -50.9924,-0.4631 -50.9365,-0.4236 -50.8974,-0.4012 -50.8651,-0.3853 -50.8449,-0.3782 -50.8529,-0.4123 -50.9025,-0.5065 -50.9453,-0.5424 -50.9539,-0.5472 -51.0147,-0.5532 -51.0147,-0.5532 26,8.0,Indonesia 121.7757,-0.4736 121.775,-0.4899 121.7678,-0.5033 121.7537,-0.5133 121.742,-0.5155 121.738,-0.5028 121.7292,-0.491 121.7019,-0.4814 121.5903,-0.4829 121.5743,-0.5113 121.5696,-0.5239 121.5608,-0.5405 121.5304,-0.5533 121.5109,-0.5502 121.5046,-0.5328 121.5449,-0.4605 121.6051,-0.4178 121.7033,-0.4075 121.7147,-0.4068 121.7421,-0.4205 121.7545,-0.4288 121.7633,-0.4404 121.7707,-0.4534 121.7736,-0.4641 121.7757,-0.4736 121.7757,-0.4736 17,9.0,Indonesia 130.4913,-0.4183 130.5142,-0.4258 130.5467,-0.4522 130.5481,-0.4673 130.5224,-0.5108 130.5125,-0.518 130.4919,-0.5277 130.4601,-0.5404 130.4487,-0.543 130.4357,-0.5425 130.3193,-0.5244 130.31,-0.4679 130.3339,-0.4501 130.468,-0.4097 130.4783,-0.413 130.4913,-0.4183 130.4913,-0.4183 18,-6.0,Ecuador -90.2372,-0.7802 -90.3289,-0.7693 -90.4378,-0.6911 -90.449,-0.6322 -90.437,-0.5934 -90.4336,-0.5829 -90.404,-0.5443 -90.3866,-0.5274 -90.3528,-0.5131 -90.2296,-0.501 -90.1907,-0.4974 -90.0859,-0.5453 -90.0776,-0.5691 -90.0881,-0.6557 -90.0985,-0.686 -90.1533,-0.7474 -90.2372,-0.7802 -90.2372,-0.7802 56,-3.0,Brazil -51.8428,-1.4747 -51.8665,-1.4697 -51.891,-1.4419 -51.8886,-1.4169 -51.8675,-1.388 -51.8423,-1.3478 -51.8278,-1.3206 -51.8206,-1.297 -51.8226,-1.2721 -51.8326,-1.2328 -51.8264,-1.1819 -51.811,-1.1682 -51.7849,-1.1643 -51.7429,-1.1618 -51.6619,-1.1373 -51.6324,-1.1176 -51.6157,-1.099 -51.604,-1.0818 -51.5943,-1.0501 -51.5963,-1.0282 -51.6028,-1.007 -51.6065,-0.9842 -51.609,-0.9473 -51.6069,-0.8993 -51.6002,-0.8729 -51.5519,-0.7328 -51.4918,-0.6554 -51.4711,-0.6365 -51.4384,-0.6127 -51.3245,-0.5422 -51.2463,-0.5341 -51.141,-0.5295 -51.1263,-0.5583 -51.0928,-0.6597 -51.0948,-0.6817 -51.1309,-0.7536 -51.1504,-0.7894 -51.1649,-0.8228 -51.1856,-0.8934 -51.2041,-0.979 -51.2191,-1.0186 -51.2896,-1.0617 -51.3077,-1.0854 -51.3233,-1.1113 -51.3426,-1.1456 -51.3754,-1.1922 -51.392,-1.2091 -51.4091,-1.2258 -51.4253,-1.2388 -51.4995,-1.2913 -51.6172,-1.3721 -51.6792,-1.414 -51.7418,-1.4516 -51.8243,-1.4727 -51.8428,-1.4747 -51.8428,-1.4747 31,-3.0,Brazil -51.0826,-0.9609 -51.0915,-0.9481 -51.0912,-0.9342 -51.0792,-0.8747 -51.0447,-0.7641 -51.0352,-0.7352 -51.028,-0.7179 -51.0197,-0.7022 -51.0129,-0.6934 -50.9035,-0.613 -50.8469,-0.5846 -50.8205,-0.5726 -50.8008,-0.5663 -50.7773,-0.5649 -50.7566,-0.5754 -50.7515,-0.5915 -50.7602,-0.6781 -50.7666,-0.6907 -50.7868,-0.6996 -50.7966,-0.7014 -50.8219,-0.7063 -50.8532,-0.7122 -50.8662,-0.7189 -50.8777,-0.7285 -50.8929,-0.7485 -50.9031,-0.7645 -50.9698,-0.8597 -51.0499,-0.937 -51.0744,-0.9583 -51.0826,-0.9609 -51.0826,-0.9609 17,1.0,Gabon 8.9923,-0.7678 8.982,-0.7644 8.9681,-0.7537 8.9585,-0.7394 8.9542,-0.7302 8.9372,-0.6704 8.9367,-0.6573 8.9392,-0.6462 8.9557,-0.6211 8.9939,-0.5987 9.0337,-0.655 9.0365,-0.6682 9.027,-0.7441 9.0068,-0.762 8.9976,-0.7669 8.9923,-0.7678 8.9923,-0.7678 17,9.0,Indonesia 127.0963,-0.6137 127.1106,-0.6189 127.1481,-0.69 127.1759,-0.7936 127.1352,-0.8072 127.0445,-0.7907 127.0332,-0.7882 127.0189,-0.7802 127.0113,-0.7691 127.0095,-0.7544 127.0127,-0.7403 127.0463,-0.6332 127.06,-0.6195 127.0723,-0.615 127.0846,-0.6135 127.0963,-0.6137 127.0963,-0.6137 50,9.0,Indonesia 135.3092,-0.6613 135.3275,-0.6712 135.3943,-0.6773 135.4311,-0.6735 135.5191,-0.6879 135.6123,-0.7501 135.6435,-0.7312 135.6681,-0.7066 135.6994,-0.7024 135.7373,-0.7246 135.9124,-0.8729 135.9558,-0.9417 136.0416,-1.0609 136.0688,-1.0607 136.1136,-1.048 136.213,-1.0926 136.2336,-1.1137 136.1867,-1.1559 136.1621,-1.1721 136.1124,-1.1973 136.0057,-1.2205 135.9748,-1.224 135.9455,-1.2194 135.9224,-1.2075 135.8952,-1.1814 135.8674,-1.1726 135.8403,-1.172 135.8099,-1.1756 135.7663,-1.1909 135.7319,-1.1839 135.6811,-1.1335 135.6362,-0.9494 135.6361,-0.9251 135.6377,-0.8962 135.614,-0.8427 135.6053,-0.8243 135.5763,-0.8217 135.4717,-0.8717 135.4545,-0.8543 135.3882,-0.7978 135.3685,-0.7832 135.3298,-0.7744 135.3344,-0.806 135.3106,-0.7968 135.2733,-0.7656 135.2525,-0.7418 135.2168,-0.6644 135.2316,-0.6358 135.3092,-0.6613 135.3092,-0.6613 27,-6.0,Ecuador -89.4328,-0.9573 -89.4451,-0.9561 -89.5274,-0.9281 -89.5268,-0.9144 -89.517,-0.8969 -89.4917,-0.8809 -89.4772,-0.8745 -89.456,-0.8615 -89.4399,-0.8508 -89.3749,-0.8037 -89.3678,-0.7734 -89.3629,-0.7644 -89.347,-0.7423 -89.3194,-0.7219 -89.2616,-0.69 -89.25,-0.688 -89.2281,-0.685 -89.2154,-0.6843 -89.157,-0.6885 -89.1462,-0.705 -89.1602,-0.7459 -89.175,-0.7658 -89.2056,-0.801 -89.3153,-0.9188 -89.3409,-0.9343 -89.4328,-0.9573 -89.4328,-0.9573 16,-3.0,Brazil -50.8781,-0.8454 -50.886,-0.8447 -50.9069,-0.8375 -50.9116,-0.8225 -50.908,-0.8097 -50.8617,-0.7255 -50.8499,-0.722 -50.8148,-0.7202 -50.7991,-0.7215 -50.7858,-0.7266 -50.7806,-0.7366 -50.7802,-0.7664 -50.7936,-0.8133 -50.8592,-0.8426 -50.8781,-0.8454 -50.8781,-0.8454 22,9.0,Indonesia 130.6947,-0.7693 130.7401,-0.7693 130.7707,-0.7898 130.7446,-0.8345 130.7198,-0.8478 130.6919,-0.862 130.65,-0.8754 130.5214,-0.9025 130.4371,-0.9111 130.4138,-0.9083 130.3313,-0.9052 130.2971,-0.9106 130.2757,-0.9239 130.2653,-0.9269 130.2515,-0.9228 130.3023,-0.8642 130.3406,-0.8342 130.4379,-0.8264 130.5814,-0.8272 130.6583,-0.8099 130.6947,-0.7693 130.6947,-0.7693 37,-3.0,Brazil -51.3297,-1.2133 -51.3414,-1.2115 -51.3423,-1.2004 -51.3406,-1.1889 -51.3323,-1.1697 -51.306,-1.1279 -51.2928,-1.1136 -51.2484,-1.0689 -51.2188,-1.0505 -51.1995,-1.036 -51.1914,-1.0232 -51.1832,-1.0041 -51.1763,-0.9833 -51.1641,-0.9432 -51.1618,-0.9268 -51.1619,-0.9063 -51.1632,-0.88 -51.1608,-0.8596 -51.1552,-0.8443 -51.1453,-0.8406 -51.1339,-0.8532 -51.1248,-0.8691 -51.1234,-0.8884 -51.1232,-0.9343 -51.1237,-0.9539 -51.1249,-0.9665 -51.13,-0.9889 -51.1333,-0.9994 -51.1818,-1.1425 -51.1952,-1.1632 -51.205,-1.1736 -51.2215,-1.1845 -51.2415,-1.1923 -51.3063,-1.2093 -51.3174,-1.2122 -51.3297,-1.2133 -51.3297,-1.2133 25,-3.0,Brazil -50.9158,-0.8679 -50.87,-0.8693 -50.8954,-0.8984 -50.9412,-0.9042 -50.9553,-0.9182 -50.9615,-0.9558 -50.9574,-0.9803 -50.962,-0.9902 -50.9758,-1.0039 -51.0128,-1.0363 -51.1006,-1.0834 -51.1204,-1.0906 -51.1306,-1.079 -51.1135,-1.0253 -51.1018,-1.0075 -51.0835,-0.9847 -51.0135,-0.9102 -50.997,-0.8956 -50.9877,-0.8886 -50.9722,-0.8774 -50.9628,-0.8734 -50.9449,-0.8667 -50.9299,-0.8652 -50.9158,-0.8679 -50.9158,-0.8679 14,-3.0,Brazil -46.4717,-1.021 -46.4793,-1.0179 -46.4917,-0.9998 -46.4965,-0.9872 -46.4954,-0.9682 -46.4845,-0.9379 -46.4699,-0.9216 -46.4189,-0.8796 -46.4029,-0.8893 -46.3882,-1.0022 -46.435,-1.0168 -46.4464,-1.0189 -46.4717,-1.021 -46.4717,-1.021 37,9.0,Indonesia 130.869,-0.9172 130.8882,-0.9107 130.9278,-0.9716 130.925,-1.0823 130.9204,-1.112 130.8914,-1.2377 130.8875,-1.2474 130.8545,-1.3237 130.8497,-1.333 130.8374,-1.348 130.8148,-1.3553 130.7281,-1.3392 130.6896,-1.3115 130.61,-1.2408 130.5992,-1.2172 130.5897,-1.1828 130.5588,-1.1385 130.5467,-1.1215 130.5669,-1.0902 130.5638,-1.0764 130.5516,-1.0475 130.5297,-1.0108 130.508,-1.0047 130.4972,-0.9985 130.4932,-0.9858 130.497,-0.9712 130.5177,-0.96 130.6774,-0.9071 130.6979,-0.9004 130.7139,-0.8955 130.7375,-0.8923 130.7527,-0.8903 130.7868,-0.935 130.8501,-0.9261 130.8596,-0.9225 130.869,-0.9172 130.869,-0.9172 47,7.0,Indonesia 99.171,-1.7371 99.1406,-1.6581 99.1325,-1.6388 99.1144,-1.6202 99.0876,-1.6319 99.11,-1.6572 99.1269,-1.6935 99.1372,-1.7299 99.1378,-1.7714 99.0009,-1.8031 98.9761,-1.7971 98.9427,-1.7826 98.9251,-1.773 98.7652,-1.6749 98.7161,-1.6073 98.7193,-1.5747 98.6919,-1.5202 98.6803,-1.5012 98.624,-1.4237 98.6032,-1.4002 98.5809,-1.3747 98.5221,-1.2864 98.4928,-1.2215 98.4833,-1.1823 98.5022,-1.1498 98.5177,-1.124 98.5316,-1.0932 98.5426,-1.0419 98.541,-0.997 98.547,-0.9697 98.5845,-0.9474 98.6456,-0.9547 98.6751,-0.9563 98.7219,-0.9277 98.7774,-0.91 98.8183,-0.949 98.8793,-1.1072 98.9425,-1.2224 98.9455,-1.2684 98.997,-1.3679 99.1132,-1.5862 99.1394,-1.5809 99.1671,-1.6179 99.1849,-1.7065 99.1747,-1.7344 99.171,-1.7371 99.171,-1.7371 19,9.0,Indonesia 134.7433,-0.9421 134.779,-0.9597 134.8411,-1.0247 134.8408,-1.0723 134.8363,-1.0854 134.8084,-1.1254 134.7948,-1.1325 134.7837,-1.1351 134.7715,-1.1366 134.729,-1.1394 134.7153,-1.1356 134.6501,-1.0395 134.648,-1.0242 134.6612,-0.9811 134.6901,-0.942 134.7243,-0.9386 134.7371,-0.9393 134.7433,-0.9421 134.7433,-0.9421 31,7.0,Indonesia 109.6335,-1.0313 109.6319,-1.0938 109.64,-1.1114 109.6531,-1.1261 109.6527,-1.1409 109.5428,-1.2088 109.3796,-1.2957 109.3632,-1.2999 109.3444,-1.2953 109.3357,-1.2907 109.3231,-1.2822 109.3068,-1.2713 109.296,-1.2618 109.2911,-1.253 109.2937,-1.2422 109.3008,-1.2215 109.314,-1.1931 109.3185,-1.1778 109.3258,-1.1184 109.3293,-1.0637 109.3295,-1.0504 109.3269,-1.0391 109.3701,-0.9784 109.4603,-0.9743 109.5011,-0.9834 109.551,-1.0068 109.5889,-0.9864 109.6159,-1.0006 109.6253,-1.012 109.6335,-1.0313 109.6335,-1.0313 534,3.0,Tanzania, United Republic of 30.4483,-1.0619 30.5592,-1.0643 30.6626,-1.0134 30.7219,-0.9963 30.8542,-0.9958 31.0252,-0.9961 31.2376,-0.997 31.2582,-0.9976 31.5116,-0.9982 31.6419,-0.9985 32.4488,-0.9988 32.5791,-0.999 32.6475,-0.9988 32.7059,-0.9984 32.8536,-0.9985 32.9644,-0.9987 33.0738,-0.9989 33.1492,-0.9984 33.2588,-0.9988 33.3686,-0.9991 33.4014,-0.9994 33.4233,-0.999 33.8832,-1.0005 33.9103,-0.9998 33.9809,-0.9996 34.0373,-1.0379 34.3712,-1.2257 34.4617,-1.2762 34.6783,-1.3973 35.2296,-1.7052 35.6384,-1.9335 35.8405,-2.046 35.9929,-2.1303 36.1127,-2.1974 36.2848,-2.2957 36.6442,-2.4939 37.1542,-2.7756 37.1807,-2.7912 37.2366,-2.8221 37.383,-2.9033 37.4591,-2.9346 37.4804,-2.9456 37.5606,-2.9924 37.6327,-3.0477 37.6555,-3.1829 37.67,-3.2635 37.6774,-3.308 37.648,-3.3127 37.5679,-3.3976 37.5577,-3.4208 37.5576,-3.4463 37.5839,-3.5052 37.6438,-3.5085 37.6949,-3.5244 37.7075,-3.5464 37.7136,-3.5743 37.7221,-3.6112 37.7404,-3.6469 37.8086,-3.6964 38.3739,-4.1009 38.4429,-4.1502 38.5805,-4.2485 38.677,-4.3175 38.9935,-4.5447 39.1173,-4.6339 39.1584,-4.6643 39.1719,-4.6859 39.1762,-4.7423 39.1758,-4.8428 39.1399,-4.9153 39.1181,-4.9277 39.1141,-4.8933 39.1226,-4.8599 39.1017,-4.8794 39.0931,-4.9171 39.0891,-4.9482 39.0825,-5.0455 39.0335,-5.2377 39.011,-5.307 38.9556,-5.4534 38.9225,-5.5401 38.8853,-5.6012 38.8153,-5.7635 38.7589,-5.9499 38.742,-5.989 38.7322,-6.0326 38.7385,-6.0536 38.7944,-6.1396 38.7992,-6.2605 38.8013,-6.3159 38.8076,-6.3439 38.8269,-6.3781 38.8784,-6.4394 38.9216,-6.466 38.9779,-6.4824 39.0021,-6.4734 39.0979,-6.5628 39.1112,-6.5784 39.123,-6.6065 39.1996,-6.7297 39.2604,-6.8086 39.2997,-6.8232 39.3454,-6.8403 39.4196,-6.8528 39.4482,-6.8838 39.4558,-6.9109 39.4629,-6.931 39.4867,-6.9678 39.5034,-6.9861 39.4957,-7.0745 39.4391,-7.1588 39.3765,-7.2135 39.3474,-7.2553 39.3305,-7.2828 39.2554,-7.4508 39.2443,-7.4903 39.2303,-7.5704 39.2315,-7.5972 39.2334,-7.6216 39.2557,-7.7487 39.2783,-7.728 39.2981,-7.7313 39.4025,-7.8052 39.4015,-7.991 39.3046,-8.2657 39.2807,-8.2862 39.2513,-8.2586 39.2614,-8.2871 39.2661,-8.3936 39.2962,-8.5384 39.3104,-8.6567 39.3123,-8.707 39.4148,-8.8126 39.4902,-8.901 39.4088,-8.8514 39.3618,-8.8568 39.3489,-8.8964 39.414,-8.9308 39.5897,-9.1618 39.6011,-9.1832 39.6059,-9.345 39.658,-9.5561 39.6883,-9.645 39.6916,-9.7054 39.6872,-9.744 39.7409,-9.7911 39.7604,-9.8323 39.7619,-9.8559 39.7478,-9.9124 39.7828,-9.9818 39.8462,-10.0102 39.8843,-10.0434 39.929,-10.114 39.9384,-10.1651 39.9319,-10.1908 39.9449,-10.2051 39.954,-10.1591 39.9458,-10.1246 40.0034,-10.129 40.023,-10.1366 40.0699,-10.1563 40.0844,-10.1831 40.0887,-10.2361 40.1841,-10.2859 40.2173,-10.2603 40.1644,-10.2333 40.1941,-10.1937 40.3544,-10.3594 40.3895,-10.436 40.3924,-10.4664 40.3834,-10.4873 40.3371,-10.5284 40.302,-10.5522 40.1147,-10.6654 39.9758,-10.7667 39.919,-10.7965 39.8984,-10.8025 39.8545,-10.8193 39.8247,-10.8364 39.7955,-10.8536 39.7682,-10.8733 39.7517,-10.8896 39.7234,-10.908 39.6478,-10.9316 39.6204,-10.9336 39.4796,-10.9776 39.4603,-10.985 39.348,-11.0653 39.272,-11.1228 39.2494,-11.1398 39.2192,-11.1567 39.1898,-11.1613 39.1628,-11.1605 39.1395,-11.1466 39.093,-11.1295 38.8886,-11.1529 38.8629,-11.1574 38.63,-11.2582 38.6127,-11.2682 38.5927,-11.2818 38.5286,-11.3297 38.4915,-11.3595 38.4493,-11.4023 38.3745,-11.3842 38.3355,-11.3643 38.3151,-11.3515 38.2917,-11.3352 38.1317,-11.2721 38.0546,-11.2434 37.9907,-11.248 37.9205,-11.2661 37.8927,-11.2751 37.8585,-11.2915 37.8236,-11.3198 37.7775,-11.4382 37.7683,-11.4709 37.7808,-11.4969 37.7752,-11.5233 37.7501,-11.548 37.6517,-11.5895 37.5556,-11.6266 37.4317,-11.7054 37.358,-11.7097 37.2267,-11.6895 37.1496,-11.6766 37.0779,-11.6568 36.9568,-11.5784 36.7862,-11.559 36.7453,-11.6042 36.7254,-11.6303 36.7055,-11.6508 36.6845,-11.6686 36.6373,-11.7015 36.5168,-11.7269 36.477,-11.7071 36.3354,-11.6706 36.3024,-11.683 36.2536,-11.6942 36.227,-11.6962 36.1474,-11.6922 36.1345,-11.6555 36.1378,-11.6305 36.1284,-11.5726 35.8984,-11.4197 35.789,-11.4037 35.6941,-11.4701 35.6331,-11.5452 35.6086,-11.5738 35.5342,-11.5937 35.3979,-11.5807 35.1998,-11.5628 34.9725,-11.56 34.9283,-11.559 34.9257,-11.4959 34.919,-11.4689 34.8522,-11.3702 34.8251,-11.3445 34.7641,-11.3188 34.6708,-11.1863 34.6006,-11.1243 34.5778,-11.0981 34.5553,-11.0085 34.5614,-10.9691 34.5891,-10.9391 34.6035,-10.9144 34.6119,-10.8779 34.6251,-10.749 34.6251,-10.7168 34.6199,-10.6519 34.6134,-10.6319 34.5832,-10.5947 34.547,-10.5496 34.5431,-10.5268 34.5422,-10.5225 34.5382,-10.5045 34.5277,-10.3911 34.5313,-10.356 34.5357,-10.3349 34.4973,-10.0344 34.4868,-10.0042 34.4631,-9.9578 34.4453,-9.94 34.3891,-9.8703 34.3362,-9.8004 34.292,-9.7291 34.1684,-9.6164 34.1387,-9.5925 34.099,-9.5601 34.0369,-9.4969 34.0041,-9.4729 33.9653,-9.4769 33.9201,-9.516 33.9122,-9.5409 33.915,-9.5673 33.9229,-9.5933 33.9215,-9.6177 33.9075,-9.6751 33.8816,-9.6956 33.863,-9.673 33.8342,-9.6488 33.7257,-9.5742 33.5419,-9.5738 33.5127,-9.5841 33.4949,-9.6029 33.4568,-9.6111 33.3923,-9.5985 33.3811,-9.5676 33.3614,-9.5319 33.2752,-9.4751 33.2181,-9.4813 33.1631,-9.4968 33.0927,-9.4811 32.9955,-9.4083 32.983,-9.389 32.9651,-9.3658 32.9313,-9.3736 32.907,-9.389 32.904,-9.3945 32.8792,-9.3796 32.8385,-9.3664 32.8079,-9.3632 32.7318,-9.322 32.6667,-9.2718 32.5922,-9.2637 32.5041,-9.2506 32.4695,-9.2066 32.4548,-9.1663 32.3855,-9.1186 32.3298,-9.122 32.2659,-9.1242 32.2231,-9.1228 32.186,-9.11 32.1641,-9.0894 32.1247,-9.0542 32.0593,-9.0482 32.051,-9.0415 32.0234,-9.0312 31.9944,-9.0361 31.9674,-9.0578 31.9464,-9.0601 31.9039,-9.0209 31.8976,-8.9995 31.8964,-8.9635 31.903,-8.9427 31.9169,-8.926 31.8625,-8.904 31.7996,-8.8875 31.7521,-8.8777 31.7062,-8.9027 31.6711,-8.9068 31.6484,-8.8986 31.5579,-8.8296 31.5388,-8.8076 31.5288,-8.7415 31.4506,-8.6565 31.38,-8.6236 31.2607,-8.6101 31.1919,-8.57 31.1682,-8.5692 31.1355,-8.5854 31.1075,-8.603 31.0759,-8.6039 31.0445,-8.5975 31.0248,-8.5899 30.9982,-8.5752 30.9425,-8.5377 30.9264,-8.5225 30.8732,-8.4579 30.8186,-8.3719 30.8013,-8.3432 30.7599,-8.2562 30.7364,-8.1888 30.7368,-8.1827 30.725,-8.1355 30.6728,-7.986 30.6628,-7.9612 30.6344,-7.906 30.6163,-7.8715 30.5832,-7.8249 30.5433,-7.7691 30.4864,-7.6876 30.4755,-7.6706 30.4372,-7.6048 30.4217,-7.5714 30.4146,-7.5512 30.4057,-7.5212 30.3977,-7.4766 30.3954,-7.4474 30.3918,-7.4193 30.3867,-7.3969 30.3752,-7.3559 30.3451,-7.2715 30.3201,-7.2121 30.3039,-7.1791 30.281,-7.1355 30.2125,-7.0357 30.1926,-7.0068 30.1542,-6.9545 30.1381,-6.936 30.1078,-6.9112 30.0364,-6.8435 30.0308,-6.8378 30.0034,-6.8149 29.9687,-6.7943 29.9501,-6.785 29.916,-6.7713 29.8808,-6.7582 29.8515,-6.7431 29.7278,-6.6463 29.7056,-6.6268 29.6869,-6.6041 29.6703,-6.5788 29.5797,-6.3924 29.5338,-6.3238 29.5168,-6.2879 29.5074,-6.2558 29.4649,-6.0494 29.4615,-6.0021 29.4643,-5.9727 29.4711,-5.9391 29.4827,-5.9163 29.5047,-5.8833 29.5366,-5.845 29.5584,-5.8219 29.5753,-5.8005 29.5964,-5.7481 29.5978,-5.7152 29.5926,-5.6791 29.5637,-5.5728 29.5393,-5.514 29.5286,-5.49 29.5102,-5.4602 29.501,-5.4416 29.4937,-5.4212 29.4802,-5.3795 29.4536,-5.2876 29.4424,-5.2308 29.4209,-5.1706 29.3963,-5.1415 29.3805,-5.1195 29.3699,-5.0956 29.3462,-5.0354 29.3319,-4.9943 29.3297,-4.9895 29.318,-4.9458 29.3144,-4.9247 29.3087,-4.8782 29.3074,-4.8448 29.3081,-4.7923 29.3144,-4.7579 29.3253,-4.7242 29.3384,-4.6964 29.3642,-4.6326 29.3778,-4.598 29.3868,-4.573 29.3965,-4.5398 29.397,-4.496 29.3934,-4.4507 29.39,-4.4424 29.3976,-4.443 29.6388,-4.4411 29.7326,-4.4328 29.9015,-4.329 29.9921,-4.2646 30.1405,-4.0774 30.1907,-3.9605 30.1927,-3.929 30.2854,-3.7843 30.3086,-3.7667 30.3381,-3.7684 30.3664,-3.7815 30.3697,-3.7615 30.3571,-3.7067 30.3622,-3.685 30.4142,-3.547 30.4677,-3.5013 30.5001,-3.485 30.5572,-3.4566 30.5908,-3.4503 30.6289,-3.4128 30.6313,-3.3905 30.6147,-3.3744 30.5977,-3.3698 30.5911,-3.3679 30.6009,-3.3466 30.6185,-3.3284 30.7036,-3.279 30.7315,-3.2954 30.7684,-3.2798 30.799,-3.255 30.8186,-3.1538 30.7989,-3.0824 30.8025,-2.9911 30.8088,-2.9753 30.7139,-2.987 30.6272,-2.9706 30.6178,-2.9506 30.5782,-2.9153 30.5249,-2.8914 30.4605,-2.9457 30.4506,-2.9436 30.3828,-2.8527 30.4455,-2.5882 30.4879,-2.4587 30.5391,-2.3961 30.5518,-2.3847 30.6717,-2.3448 30.6918,-2.3524 30.7475,-2.3777 30.796,-2.3515 30.8112,-2.3227 30.8173,-2.2952 30.8141,-2.2584 30.8085,-2.2216 30.8135,-2.187 30.8516,-2.0949 30.8586,-2.073 30.8369,-2.0356 30.7737,-1.927 30.7903,-1.8444 30.8003,-1.7985 30.7838,-1.7267 30.7766,-1.6985 30.7966,-1.6528 30.7144,-1.5153 30.7049,-1.4353 30.6516,-1.3853 30.6033,-1.3878 30.5304,-1.3291 30.4364,-1.1593 30.4205,-1.1 30.4329,-1.0735 30.4483,-1.0619 30.4483,-1.0619 132,2.0,Rwanda 29.5639,-1.3839 29.5842,-1.3855 29.6077,-1.3849 29.6443,-1.3799 29.6646,-1.3657 29.6841,-1.3459 29.8018,-1.318 29.8218,-1.3254 29.8509,-1.3688 29.8513,-1.4 29.8571,-1.431 29.8767,-1.4631 29.8961,-1.4742 29.9032,-1.4738 29.946,-1.4605 30.0754,-1.3659 30.1379,-1.3133 30.1953,-1.265 30.2497,-1.2082 30.2641,-1.1832 30.2813,-1.1421 30.327,-1.0596 30.418,-1.0532 30.4425,-1.0579 30.4483,-1.0619 30.4329,-1.0735 30.4205,-1.1 30.4364,-1.1593 30.5304,-1.3291 30.6033,-1.3878 30.6516,-1.3853 30.7049,-1.4353 30.7144,-1.5153 30.7966,-1.6528 30.7766,-1.6985 30.7838,-1.7267 30.8003,-1.7985 30.7903,-1.8444 30.7737,-1.927 30.8369,-2.0356 30.8586,-2.073 30.8516,-2.0949 30.8135,-2.187 30.8085,-2.2216 30.8141,-2.2584 30.8173,-2.2952 30.8112,-2.3227 30.796,-2.3515 30.7475,-2.3777 30.6918,-2.3524 30.6717,-2.3448 30.5518,-2.3847 30.5391,-2.3961 30.5272,-2.3971 30.4753,-2.3808 30.4309,-2.3497 30.4084,-2.3234 30.359,-2.2988 30.3222,-2.3337 30.2519,-2.3533 30.1245,-2.4255 30.0788,-2.4174 30.0593,-2.4064 29.9705,-2.3333 29.9186,-2.3066 29.9133,-2.3184 29.9016,-2.3681 29.883,-2.5633 29.8868,-2.6388 29.8883,-2.6497 29.8729,-2.6904 29.8427,-2.7344 29.8236,-2.7522 29.7884,-2.7694 29.7057,-2.7997 29.6625,-2.8021 29.5975,-2.7778 29.5824,-2.7907 29.5639,-2.7989 29.5375,-2.7966 29.5023,-2.821 29.4312,-2.8027 29.4107,-2.7926 29.3474,-2.8221 29.3258,-2.8146 29.3044,-2.7539 29.3186,-2.7335 29.3211,-2.7136 29.2928,-2.68 29.2958,-2.6539 29.2469,-2.6311 29.1079,-2.5859 29.0614,-2.589 29.03,-2.6002 29.0144,-2.6632 29.0206,-2.6939 29.009,-2.7261 28.992,-2.7414 28.9847,-2.7206 28.9434,-2.6911 28.9103,-2.688 28.8911,-2.6768 28.8696,-2.657 28.8221,-2.5229 28.835,-2.3959 28.861,-2.3636 28.9525,-2.3315 29.0651,-2.2659 29.0857,-2.2386 29.0977,-2.2102 29.1113,-2.1867 29.1237,-2.1581 29.1338,-2.1305 29.1379,-2.0907 29.1349,-2.0661 29.1155,-2.0118 29.1027,-1.9741 29.0955,-1.9465 29.0917,-1.9138 29.0973,-1.8486 29.1107,-1.813 29.2185,-1.6528 29.2381,-1.6245 29.3292,-1.5092 29.4098,-1.5021 29.4234,-1.5023 29.437,-1.4805 29.4622,-1.4477 29.5053,-1.4118 29.5403,-1.3916 29.5639,-1.3839 29.5639,-1.3839 16,-3.0,Brazil -48.2934,-1.2175 -48.3301,-1.215 -48.3591,-1.2053 -48.4045,-1.1685 -48.412,-1.1542 -48.3563,-1.0735 -48.3413,-1.0695 -48.297,-1.0662 -48.2854,-1.0666 -48.2706,-1.0728 -48.2598,-1.1156 -48.2586,-1.1497 -48.2645,-1.1878 -48.286,-1.2112 -48.2934,-1.2175 -48.2934,-1.2175 11,-3.0,Brazil -45.6249,-1.3601 -45.6382,-1.3568 -45.5949,-1.159 -45.591,-1.1449 -45.5773,-1.1264 -45.558,-1.1321 -45.5565,-1.1473 -45.5577,-1.1601 -45.5827,-1.3447 -45.6249,-1.3601 -45.6249,-1.3601 12,9.0,Indonesia 129.733,-1.1439 129.8138,-1.1719 129.7859,-1.2087 129.6873,-1.2408 129.5963,-1.2096 129.5994,-1.1904 129.6082,-1.1789 129.6205,-1.1709 129.7124,-1.1424 129.7241,-1.1416 129.733,-1.1439 129.733,-1.1439 80,8.0,Indonesia 123.4153,-1.3033 123.4156,-1.3174 123.4144,-1.3294 123.3941,-1.4305 123.3865,-1.4403 123.3156,-1.5046 123.2721,-1.5208 123.2231,-1.5123 123.2185,-1.4964 123.2156,-1.4647 123.2123,-1.4546 123.1839,-1.4207 123.1717,-1.4157 123.1595,-1.4169 123.1504,-1.422 123.1351,-1.4369 123.1293,-1.4483 123.117,-1.4841 123.1142,-1.495 123.1073,-1.5427 123.1067,-1.5627 123.1086,-1.5814 123.0433,-1.6219 123.0261,-1.6209 122.9805,-1.5877 122.971,-1.5764 122.9718,-1.5636 122.979,-1.5536 122.9957,-1.5425 123.0111,-1.5341 123.0401,-1.5119 123.0452,-1.4965 123.0437,-1.4808 123.0192,-1.3657 122.9911,-1.3293 122.9576,-1.3472 122.9503,-1.3569 122.9012,-1.4345 122.8931,-1.4625 122.8822,-1.4807 122.8503,-1.517 122.837,-1.5316 122.7789,-1.5828 122.7689,-1.5898 122.7509,-1.5937 122.7357,-1.5908 122.7221,-1.577 122.6682,-1.4527 122.6658,-1.4308 122.6658,-1.4045 122.666,-1.3775 122.6682,-1.3583 122.6954,-1.2789 122.6995,-1.2694 122.7104,-1.2527 122.7569,-1.1887 122.7704,-1.1787 122.7847,-1.1753 123.0461,-1.1454 123.0567,-1.1517 123.094,-1.2041 123.0993,-1.2128 123.1019,-1.2251 123.0899,-1.244 123.0808,-1.2523 123.0611,-1.2597 123.057,-1.296 123.0925,-1.3971 123.1211,-1.3811 123.1755,-1.3023 123.1951,-1.2664 123.2013,-1.2521 123.2155,-1.2321 123.2331,-1.2238 123.2663,-1.2221 123.3168,-1.2349 123.4,-1.2753 123.4118,-1.284 123.4153,-1.3033 123.4153,-1.3033 17,9.0,Indonesia 127.4231,-1.1762 127.4288,-1.1816 127.4396,-1.1881 127.4855,-1.2071 127.5081,-1.2118 127.4716,-1.2562 127.3526,-1.2671 127.3438,-1.2626 127.314,-1.2411 127.3143,-1.2305 127.3639,-1.1844 127.3792,-1.1764 127.3897,-1.1725 127.4042,-1.1703 127.4155,-1.1722 127.4231,-1.1762 127.4231,-1.1762 17,-6.0,Ecuador -90.3391,-1.3544 -90.3449,-1.3534 -90.3644,-1.3504 -90.3933,-1.3326 -90.4149,-1.3127 -90.4213,-1.3049 -90.3875,-1.2237 -90.3775,-1.2169 -90.3342,-1.2166 -90.2678,-1.2623 -90.2639,-1.2767 -90.2699,-1.2915 -90.295,-1.3242 -90.31,-1.3403 -90.3304,-1.3524 -90.3391,-1.3544 -90.3391,-1.3544 16,-3.0,Brazil -44.943,-1.4006 -44.9483,-1.3992 -44.959,-1.3893 -44.9713,-1.371 -44.9766,-1.3322 -44.9431,-1.282 -44.925,-1.2602 -44.8711,-1.2581 -44.8278,-1.2852 -44.8215,-1.3075 -44.8338,-1.3307 -44.9099,-1.3869 -44.922,-1.3947 -44.9369,-1.4 -44.943,-1.4006 -44.943,-1.4006 47,9.0,Indonesia 127.9976,-1.5862 128.0091,-1.6037 128.0138,-1.6163 128.0157,-1.6413 128.0104,-1.66 128.0031,-1.6763 127.9948,-1.6852 127.9809,-1.6958 127.9556,-1.708 127.9461,-1.7122 127.9354,-1.7147 127.9152,-1.7152 127.8597,-1.7091 127.7181,-1.6943 127.5629,-1.6873 127.535,-1.6982 127.5267,-1.7036 127.5127,-1.7177 127.4971,-1.7256 127.4143,-1.7394 127.4011,-1.74 127.3903,-1.7373 127.361,-1.7256 127.2979,-1.6927 127.2892,-1.6883 127.2515,-1.6574 127.2406,-1.6409 127.2357,-1.6319 127.2364,-1.6189 127.2395,-1.6054 127.2518,-1.5713 127.248,-1.5424 127.2609,-1.4815 127.2822,-1.4392 127.2994,-1.4191 127.3177,-1.4335 127.4123,-1.3751 127.4438,-1.3521 127.4691,-1.3365 127.4855,-1.3286 127.5006,-1.3266 127.5383,-1.3357 127.5781,-1.3467 127.7363,-1.4252 127.9668,-1.5599 127.9976,-1.5862 127.9976,-1.5862 18,10.0,Papua New Guinea 149.5642,-1.6013 149.5475,-1.5766 149.5352,-1.5618 149.5134,-1.5582 149.5111,-1.5805 149.4937,-1.5796 149.3903,-1.4985 149.3643,-1.4657 149.3607,-1.4497 149.3763,-1.4106 149.3966,-1.3687 149.4124,-1.3537 149.4573,-1.3587 149.4954,-1.385 149.5489,-1.4277 149.6224,-1.577 149.5642,-1.6013 149.5642,-1.6013 14,-4.0,Brazil -52.3593,-1.5257 -52.3717,-1.5244 -52.395,-1.5129 -52.3997,-1.4908 -52.3927,-1.4774 -52.3721,-1.4645 -52.1443,-1.3616 -52.1099,-1.4066 -52.1108,-1.4195 -52.164,-1.4481 -52.2004,-1.4668 -52.3294,-1.5195 -52.3593,-1.5257 -52.3593,-1.5257 24,-3.0,Brazil -52.1419,-1.6445 -52.1394,-1.5785 -52.1441,-1.5666 -52.1517,-1.5591 -52.1135,-1.4953 -51.9748,-1.4382 -51.9625,-1.4386 -51.9368,-1.4477 -51.928,-1.4522 -51.9124,-1.4631 -51.9044,-1.4697 -51.8566,-1.5183 -51.8622,-1.5298 -51.875,-1.5411 -51.9133,-1.5604 -51.9409,-1.5714 -51.966,-1.5782 -52.0049,-1.5877 -52.0297,-1.5913 -52.068,-1.5834 -52.1037,-1.5974 -52.1161,-1.6067 -52.1419,-1.6445 -52.1419,-1.6445 100,7.0,Indonesia 106.0264,-2.8652 105.9965,-2.8465 105.9733,-2.8391 105.9017,-2.8315 105.8767,-2.8289 105.8532,-2.8114 105.81,-2.7454 105.7996,-2.7215 105.7818,-2.6436 105.7819,-2.6089 105.8059,-2.5495 105.8198,-2.5218 105.8219,-2.4976 105.8153,-2.4703 105.7991,-2.4516 105.7795,-2.44 105.7367,-2.4281 105.703,-2.385 105.6888,-2.2693 105.6822,-2.1805 105.6738,-2.162 105.6286,-2.1289 105.3618,-2.0986 105.2974,-2.1175 105.2244,-2.1245 105.0194,-2.0734 105.0048,-2.024 105.0251,-1.948 105.0604,-1.9216 105.0908,-1.9109 105.1436,-1.8956 105.1686,-1.8824 105.2671,-1.8136 105.2806,-1.7926 105.2834,-1.7659 105.2696,-1.7387 105.2443,-1.7226 105.2179,-1.7067 105.2271,-1.6542 105.2752,-1.6048 105.337,-1.565 105.4582,-1.5269 105.4866,-1.5339 105.5292,-1.6362 105.5316,-1.7108 105.5377,-1.7332 105.5667,-1.7627 105.5909,-1.7761 105.6624,-1.7926 105.691,-1.7902 105.6316,-1.6401 105.5907,-1.5456 105.6258,-1.5273 105.7682,-1.4887 105.7921,-1.4935 105.9078,-1.5727 105.9246,-1.597 105.9138,-1.6145 105.9088,-1.6455 105.9169,-1.6784 105.9719,-1.7696 106.0188,-1.8467 106.0472,-1.9283 106.044,-1.9596 106.043,-1.9925 106.0468,-2.0329 106.0684,-2.1451 106.1215,-2.3083 106.1343,-2.3401 106.1508,-2.3715 106.1958,-2.4292 106.2377,-2.4693 106.2665,-2.4816 106.4966,-2.5241 106.6615,-2.589 106.6223,-2.6113 106.5981,-2.6358 106.5616,-2.6811 106.5479,-2.7083 106.5368,-2.7386 106.5285,-2.7627 106.5237,-2.7732 106.4883,-2.8711 106.4811,-2.919 106.4888,-2.9445 106.5341,-2.971 106.5395,-2.9708 106.552,-2.9666 106.6209,-2.9986 106.6212,-3.0695 106.5975,-3.0947 106.3991,-3.099 106.3375,-3.0059 106.3246,-2.9778 106.2861,-2.9661 106.1909,-2.9189 106.1615,-2.9041 106.0918,-2.8814 106.0264,-2.8652 106.0264,-2.8652 16,7.0,Indonesia 108.8339,-1.5689 108.8418,-1.5796 108.8429,-1.5949 108.8359,-1.6137 108.8246,-1.6314 108.8094,-1.6414 108.7298,-1.6681 108.7172,-1.6684 108.7073,-1.6645 108.6739,-1.5803 108.6828,-1.5625 108.7742,-1.5356 108.7922,-1.5382 108.8103,-1.544 108.8339,-1.5689 108.8339,-1.5689 16,-3.0,Brazil -44.7187,-1.67 -44.7281,-1.6656 -44.7371,-1.651 -44.733,-1.6172 -44.7211,-1.6059 -44.7008,-1.588 -44.6648,-1.5599 -44.6341,-1.5643 -44.6201,-1.58 -44.6082,-1.6019 -44.6022,-1.6192 -44.6115,-1.6584 -44.6367,-1.6475 -44.6928,-1.6617 -44.7187,-1.67 -44.7187,-1.67 17,-3.0,Brazil -48.9157,-1.7975 -48.9313,-1.7963 -48.9698,-1.7748 -48.9911,-1.7064 -48.9558,-1.6325 -48.9479,-1.6203 -48.9252,-1.5953 -48.8716,-1.576 -48.8569,-1.5738 -48.8444,-1.5804 -48.8456,-1.6281 -48.8893,-1.7618 -48.8929,-1.7722 -48.8995,-1.7858 -48.906,-1.7935 -48.9157,-1.7975 -48.9157,-1.7975 41,9.0,Indonesia 135.3531,-1.5983 135.3689,-1.6073 135.3907,-1.6127 135.6568,-1.6353 135.7461,-1.6423 135.85,-1.6461 135.9381,-1.6512 136.0307,-1.6586 136.1407,-1.6867 136.3059,-1.7195 136.3345,-1.7188 136.4134,-1.7227 136.5536,-1.7345 136.6503,-1.7454 136.6606,-1.749 136.6794,-1.7571 136.7418,-1.7843 136.7471,-1.7941 136.7227,-1.8207 136.7093,-1.8246 136.686,-1.8245 136.5364,-1.8531 136.3897,-1.9014 136.3035,-1.8954 136.066,-1.872 135.9176,-1.8406 135.834,-1.8165 135.8026,-1.7932 135.7827,-1.7788 135.7234,-1.7526 135.5762,-1.7079 135.5173,-1.6963 135.478,-1.6994 135.4659,-1.7011 135.4522,-1.7011 135.3318,-1.6812 135.2695,-1.6067 135.3233,-1.5904 135.3429,-1.5943 135.3531,-1.5983 135.3531,-1.5983 33,9.0,Indonesia 124.2856,-1.655 124.391,-1.634 124.4683,-1.6333 124.4956,-1.6332 124.517,-1.6359 124.8152,-1.699 124.8714,-1.719 124.9785,-1.6895 125.1502,-1.7313 125.1779,-1.7879 125.1795,-1.8853 125.1575,-1.8776 125.0192,-1.8727 124.915,-1.8885 124.8891,-1.9018 124.8808,-1.9357 124.8591,-1.9427 124.8277,-1.9336 124.788,-1.9186 124.7141,-1.895 124.6465,-1.9108 124.5761,-1.9472 124.5515,-1.9673 124.4337,-2.0002 124.3839,-2.0104 124.2655,-2.0138 124.189,-1.8803 124.1875,-1.818 124.228,-1.6929 124.2376,-1.675 124.2557,-1.6609 124.2856,-1.655 124.2856,-1.655 33,9.0,Indonesia 130.2044,-1.6782 130.2092,-1.7083 130.2458,-1.7641 130.2561,-1.7741 130.2619,-1.7825 130.2802,-1.8119 130.286,-1.823 130.2899,-1.8397 130.2894,-1.9723 130.2841,-1.981 130.2352,-2.0086 130.0822,-2.0532 130.0458,-2.0614 129.9749,-2.0635 129.7663,-2.0013 129.7161,-1.9763 129.5915,-1.9106 129.5723,-1.8857 129.5796,-1.8726 129.5957,-1.8612 129.606,-1.8547 129.6455,-1.8428 129.6828,-1.8315 129.81,-1.7813 129.829,-1.7721 129.842,-1.7648 129.8541,-1.7553 129.8673,-1.7489 129.8922,-1.7393 129.9031,-1.7363 130.1768,-1.6791 130.2044,-1.6782 130.2044,-1.6782 15,-3.0,Brazil -49.0833,-1.8647 -49.0966,-1.8611 -49.101,-1.8496 -49.097,-1.8399 -49.0435,-1.7463 -49.0344,-1.738 -48.9996,-1.7206 -48.9851,-1.7693 -48.9706,-1.789 -48.9522,-1.7932 -48.9691,-1.827 -48.9968,-1.849 -49.0368,-1.8376 -49.0833,-1.8647 -49.0833,-1.8647 34,9.0,Indonesia 125.2751,-1.7815 125.2797,-1.7948 125.295,-1.8039 125.5127,-1.822 125.5524,-1.8193 125.5881,-1.8126 125.6073,-1.7982 125.6199,-1.7936 125.7804,-1.7878 125.8472,-1.7865 125.8775,-1.7879 125.9087,-1.7904 126.015,-1.8049 126.1299,-1.8135 126.1954,-1.8151 126.207,-1.8176 126.2041,-1.8278 126.1925,-1.8401 126.1463,-1.8625 126.1226,-1.8725 126.1108,-1.8751 125.839,-1.9056 125.6857,-1.9152 125.3259,-1.9375 125.299,-1.9289 125.2068,-1.8812 125.1993,-1.8685 125.195,-1.8411 125.199,-1.82 125.2067,-1.8071 125.2356,-1.7778 125.2695,-1.7724 125.2751,-1.7815 125.2751,-1.7815 34,10.0,Papua New Guinea 147.2307,-1.9656 147.2673,-1.9894 147.2812,-2.0105 147.2731,-2.0607 147.2607,-2.0651 147.1099,-2.1185 147.09,-2.1466 147.0737,-2.1642 147.0625,-2.1736 147.0431,-2.1867 146.8154,-2.1966 146.7282,-2.1869 146.674,-2.1793 146.6311,-2.1654 146.5617,-2.1583 146.4038,-2.2326 146.3636,-2.1983 146.3604,-2.188 146.3538,-2.1442 146.4157,-1.9964 146.4738,-1.9763 146.6802,-1.948 146.6925,-1.9469 146.705,-1.9466 146.9318,-1.9643 146.9531,-1.9666 146.9992,-1.9808 147.0379,-2.0007 147.1353,-2.0229 147.2532,-2.0455 147.2574,-2.0296 147.2539,-2.0059 147.2307,-1.9656 147.2307,-1.9656 49,9.0,Indonesia 125.8177,-1.9762 125.8317,-1.986 125.8491,-1.9998 125.8588,-2.0138 125.8609,-2.0251 125.8601,-2.0382 125.8569,-2.0486 125.8495,-2.0683 125.8367,-2.0973 125.8295,-2.1239 125.8276,-2.1423 125.8276,-2.1592 125.8321,-2.1784 125.8356,-2.1888 125.8444,-2.2072 125.8583,-2.2279 125.8755,-2.2591 125.9449,-2.4186 125.9452,-2.431 125.9382,-2.4547 125.9277,-2.4721 125.9119,-2.4798 125.8983,-2.4766 125.8675,-2.4596 125.8573,-2.4491 125.8403,-2.4256 125.8256,-2.4025 125.8205,-2.3837 125.8176,-2.3586 125.817,-2.3317 125.8156,-2.3196 125.8128,-2.3084 125.8061,-2.2881 125.7998,-2.2737 125.789,-2.2572 125.7768,-2.242 125.7665,-2.2319 125.7543,-2.213 125.7207,-2.084 125.7185,-2.0693 125.7225,-2.0527 125.7291,-2.0383 125.7439,-2.0055 125.7587,-1.9826 125.7796,-1.9691 125.7913,-1.9683 125.8135,-1.9736 125.8177,-1.9762 125.8177,-1.9762 30,7.0,Indonesia 99.7469,-2.3738 99.7152,-2.348 99.6668,-2.3384 99.6201,-2.3222 99.6112,-2.3176 99.4937,-2.2513 99.4566,-2.2175 99.4192,-2.1559 99.4149,-2.1429 99.4318,-2.0531 99.4608,-2.0239 99.4705,-2.0198 99.4985,-2.0136 99.5135,-2.013 99.5245,-2.0191 99.5729,-2.0663 99.5818,-2.0779 99.589,-2.0918 99.5951,-2.1129 99.5983,-2.1402 99.6032,-2.1522 99.6301,-2.1941 99.6611,-2.238 99.6915,-2.2687 99.7031,-2.2824 99.7169,-2.3029 99.7345,-2.3331 99.7468,-2.3654 99.7469,-2.3738 99.7469,-2.3738 19,3.0,Kenya 40.9516,-2.2004 40.9435,-2.1986 40.9043,-2.1686 40.9269,-2.1064 40.9448,-2.087 41.0179,-2.0416 41.0291,-2.039 41.0527,-2.0358 41.0829,-2.0498 41.1162,-2.0786 41.1232,-2.0957 41.1174,-2.1063 41.0921,-2.122 41.0481,-2.1373 41.0144,-2.1307 40.9703,-2.1463 40.9541,-2.1757 40.9516,-2.2004 40.9516,-2.2004 132,2.0,Burundi 28.992,-2.7414 29.009,-2.7261 29.0206,-2.6939 29.0144,-2.6632 29.03,-2.6002 29.0614,-2.589 29.1079,-2.5859 29.2469,-2.6311 29.2958,-2.6539 29.2928,-2.68 29.3211,-2.7136 29.3186,-2.7335 29.3044,-2.7539 29.3258,-2.8146 29.3474,-2.8221 29.4107,-2.7926 29.4312,-2.8027 29.5023,-2.821 29.5375,-2.7966 29.5639,-2.7989 29.5824,-2.7907 29.5975,-2.7778 29.6625,-2.8021 29.7057,-2.7997 29.7884,-2.7694 29.8236,-2.7522 29.8427,-2.7344 29.8729,-2.6904 29.8883,-2.6497 29.8868,-2.6388 29.883,-2.5633 29.9016,-2.3681 29.9133,-2.3184 29.9186,-2.3066 29.9705,-2.3333 30.0593,-2.4064 30.0788,-2.4174 30.1245,-2.4255 30.2519,-2.3533 30.3222,-2.3337 30.359,-2.2988 30.4084,-2.3234 30.4309,-2.3497 30.4753,-2.3808 30.5272,-2.3971 30.5391,-2.3961 30.4879,-2.4587 30.4455,-2.5882 30.3828,-2.8527 30.4506,-2.9436 30.4605,-2.9457 30.5249,-2.8914 30.5782,-2.9153 30.6178,-2.9506 30.6272,-2.9706 30.7139,-2.987 30.8088,-2.9753 30.8025,-2.9911 30.7989,-3.0824 30.8186,-3.1538 30.799,-3.255 30.7684,-3.2798 30.7315,-3.2954 30.7036,-3.279 30.6185,-3.3284 30.6009,-3.3466 30.5911,-3.3679 30.5977,-3.3698 30.6147,-3.3744 30.6313,-3.3905 30.6289,-3.4128 30.5908,-3.4503 30.5572,-3.4566 30.5001,-3.485 30.4677,-3.5013 30.4142,-3.547 30.3622,-3.685 30.3571,-3.7067 30.3697,-3.7615 30.3664,-3.7815 30.3381,-3.7684 30.3086,-3.7667 30.2854,-3.7843 30.1927,-3.929 30.1907,-3.9605 30.1405,-4.0774 29.9921,-4.2646 29.9015,-4.329 29.7326,-4.4328 29.6388,-4.4411 29.3976,-4.443 29.39,-4.4424 29.3741,-4.364 29.3643,-4.2907 29.3613,-4.2238 29.3597,-4.1904 29.3558,-4.1632 29.3449,-4.1289 29.3132,-4.05 29.303,-4.0325 29.2797,-4.0005 29.261,-3.9777 29.2418,-3.9556 29.2254,-3.9413 29.2057,-3.9164 29.1996,-3.8806 29.1906,-3.7851 29.197,-3.7465 29.1995,-3.7389 29.2033,-3.7155 29.2073,-3.6884 29.214,-3.5903 29.2091,-3.4921 29.2044,-3.4552 29.1991,-3.4187 29.1923,-3.3838 29.1807,-3.3295 29.1755,-3.3076 29.1815,-3.2864 29.204,-3.2681 29.1848,-3.2463 29.18,-3.15 29.2078,-3.114 29.2043,-3.0566 29.1827,-3.018 29.1522,-3.0178 29.1157,-2.9926 28.9582,-2.8111 28.9524,-2.781 28.9675,-2.7534 28.992,-2.7414 28.992,-2.7414 27,10.0,Papua New Guinea 150.1984,-2.6834 150.187,-2.6649 150.1749,-2.6598 150.1043,-2.6694 150.0884,-2.6746 150.0735,-2.6799 150.0182,-2.6822 149.9405,-2.6219 149.8004,-2.4948 149.7813,-2.4676 149.7922,-2.457 149.9112,-2.4113 150.021,-2.3743 150.0372,-2.3714 150.0476,-2.3749 150.0792,-2.387 150.2481,-2.4574 150.2756,-2.4748 150.2981,-2.5416 150.2988,-2.5549 150.2895,-2.6477 150.2769,-2.6623 150.2503,-2.6593 150.235,-2.6614 150.2026,-2.6807 150.1984,-2.6834 150.1984,-2.6834 25,7.0,Indonesia 100.0903,-2.7557 100.0824,-2.7569 100.0627,-2.7654 100.045,-2.7748 100.0334,-2.7838 100.0289,-2.7964 100.0255,-2.8185 99.9185,-2.8384 99.9035,-2.8356 99.8961,-2.8257 99.8768,-2.749 99.8485,-2.5487 99.8538,-2.5067 99.8616,-2.4935 99.872,-2.4868 99.8825,-2.4873 99.8934,-2.494 100.0468,-2.6263 100.0771,-2.6641 100.0935,-2.6889 100.0979,-2.6981 100.1013,-2.7155 100.1023,-2.7501 100.0903,-2.7557 100.0903,-2.7557 37,7.0,Indonesia 107.5876,-2.5549 107.6483,-2.5587 107.7115,-2.532 107.8738,-2.5752 107.9629,-2.602 108.1413,-2.748 108.1693,-2.8327 108.1713,-2.8504 108.1384,-2.904 108.0943,-2.9763 108.0836,-3.003 108.076,-3.1153 107.9821,-3.158 107.9556,-3.2236 107.8633,-3.2452 107.8527,-3.2281 107.85,-3.1879 107.847,-3.1613 107.7738,-3.0704 107.7482,-3.0481 107.7272,-3.0564 107.7003,-3.0835 107.7198,-3.1081 107.7158,-3.1521 107.6932,-3.1672 107.5229,-3.2225 107.4908,-3.2081 107.458,-3.0045 107.4614,-2.9798 107.49,-2.9089 107.4935,-2.7753 107.5147,-2.7507 107.5132,-2.6957 107.5287,-2.5828 107.5449,-2.5614 107.5876,-2.5549 107.5876,-2.5549 110,10.0,Papua New Guinea 152.3188,-3.8477 152.2026,-3.7235 152.1861,-3.6931 152.1828,-3.6499 152.1138,-3.5718 152.0144,-3.5023 151.9724,-3.484 151.8126,-3.4603 151.7846,-3.4542 151.7632,-3.4414 151.5868,-3.3207 151.5378,-3.2767 151.517,-3.2494 151.4455,-3.1707 151.4037,-3.1556 151.3617,-3.1413 151.3176,-3.1243 151.2846,-3.1009 151.2744,-3.0704 151.2466,-3.047 151.1992,-3.0189 151.1108,-2.9705 151.067,-2.9499 151.0445,-2.9385 150.9804,-2.892 150.9522,-2.8651 150.9423,-2.8478 150.832,-2.7849 150.757,-2.7652 150.7332,-2.7679 150.6994,-2.7761 150.656,-2.7843 150.5825,-2.7663 150.5604,-2.7343 150.5794,-2.7172 150.6548,-2.712 150.714,-2.706 150.715,-2.6785 150.7038,-2.649 150.6824,-2.6463 150.6572,-2.6369 150.6232,-2.6136 150.6408,-2.5593 150.6666,-2.5694 150.7366,-2.6329 150.7969,-2.6853 150.9166,-2.7468 151.0199,-2.8226 151.1106,-2.8674 151.1408,-2.8664 151.2526,-2.8973 151.2937,-2.9316 151.4271,-3.0239 151.4711,-3.0445 151.5507,-3.1183 151.6523,-3.1928 151.6872,-3.1826 151.7505,-3.1996 151.7772,-3.207 151.8836,-3.2502 151.8844,-3.2748 151.9928,-3.4071 152.0356,-3.4535 152.0732,-3.4774 152.105,-3.4908 152.1344,-3.5022 152.1549,-3.5157 152.1877,-3.5414 152.2198,-3.5943 152.2395,-3.6292 152.322,-3.649 152.3822,-3.747 152.3802,-3.7721 152.3751,-3.7919 152.4044,-3.8192 152.4303,-3.8284 152.4867,-3.8382 152.4978,-3.8555 152.5281,-3.8785 152.5668,-3.8916 152.5967,-3.8957 152.7459,-3.9995 152.8163,-4.0712 152.8332,-4.0889 152.9501,-4.2422 152.9593,-4.2607 152.9539,-4.3864 152.9265,-4.4101 152.8994,-4.4314 152.8846,-4.4475 152.866,-4.4875 152.8736,-4.5111 152.8977,-4.535 152.9042,-4.5895 152.8031,-4.7581 152.7265,-4.8175 152.5651,-4.6602 152.5193,-4.5529 152.5077,-4.5169 152.4913,-4.4636 152.4985,-4.4442 152.5185,-4.3885 152.5242,-4.3564 152.5201,-4.1823 152.4301,-4.0016 152.409,-3.9613 152.366,-3.8955 152.3396,-3.8643 152.3188,-3.8477 152.3188,-3.8477 810,10.0,Papua New Guinea 140.8438,-2.604 140.8735,-2.5887 140.8841,-2.5867 141.0429,-2.6156 141.0554,-2.6189 141.1115,-2.6422 141.1149,-2.6526 141.122,-2.666 141.1865,-2.7046 141.2107,-2.7147 141.2215,-2.7176 141.2518,-2.7216 141.2676,-2.7264 141.2773,-2.7305 141.4093,-2.7907 141.4493,-2.8091 141.5447,-2.859 141.6805,-2.9333 141.7217,-2.961 141.7324,-2.9674 141.7539,-2.9686 141.7735,-2.9641 141.8023,-2.9554 141.8136,-2.9525 141.8319,-2.9507 141.8436,-2.9526 141.852,-2.958 141.9061,-3.0049 141.917,-3.0155 141.9647,-3.0558 142.0919,-3.1012 142.3912,-3.2145 142.5025,-3.244 142.7852,-3.3286 142.8309,-3.3444 142.8755,-3.3595 142.9115,-3.3563 142.9293,-3.3513 142.9446,-3.3501 142.9624,-3.3498 143.011,-3.3533 143.0331,-3.356 143.0501,-3.3625 143.0676,-3.3756 143.0766,-3.3804 143.0938,-3.3841 143.1795,-3.3978 143.2089,-3.3975 143.2224,-3.399 143.2465,-3.4024 143.2806,-3.4078 143.3564,-3.4315 143.3709,-3.441 143.4071,-3.4713 143.4364,-3.5102 143.4398,-3.5204 143.4479,-3.5415 143.4866,-3.5629 143.5684,-3.6 143.6056,-3.6067 143.6331,-3.6092 143.7921,-3.7355 143.8026,-3.7557 143.8132,-3.7754 143.8263,-3.79 143.8538,-3.806 144.0871,-3.8663 144.0903,-3.8539 144.0947,-3.8412 144.1177,-3.8019 144.1749,-3.798 144.2118,-3.7982 144.3499,-3.8177 144.3698,-3.8436 144.3874,-3.874 144.3835,-3.8895 144.3815,-3.8996 144.3785,-3.93 144.38,-3.9491 144.3856,-3.9632 144.4073,-3.9872 144.427,-4.0015 144.4443,-4.0083 144.45,-4.0099 144.4895,-4.0083 144.5119,-4.0098 144.5655,-4.0267 144.6026,-4.0417 144.6901,-4.0909 144.7118,-4.1087 144.8154,-4.2198 144.822,-4.2299 144.8283,-4.2433 144.8313,-4.2575 144.8404,-4.2768 144.87,-4.3322 144.8903,-4.3469 144.9273,-4.3677 144.9922,-4.3776 145.0633,-4.383 145.0879,-4.3734 145.1286,-4.3715 145.14,-4.3722 145.1706,-4.3856 145.2855,-4.4888 145.2941,-4.4993 145.3616,-4.5872 145.4515,-4.6987 145.5114,-4.7581 145.5277,-4.7713 145.5692,-4.7973 145.6145,-4.9222 145.647,-5.0631 145.6206,-5.2252 145.5997,-5.2576 145.5728,-5.2993 145.5582,-5.4058 145.5585,-5.4219 145.5681,-5.443 145.585,-5.4668 145.6001,-5.479 145.6231,-5.4836 145.7062,-5.4796 145.7668,-5.4706 145.7973,-5.4669 145.8104,-5.4699 145.9156,-5.5063 146.0079,-5.5448 146.0279,-5.5523 146.1226,-5.5823 146.2097,-5.5927 146.2757,-5.5921 146.3041,-5.601 146.3644,-5.6482 146.4136,-5.688 146.4382,-5.7113 146.4738,-5.7374 146.4859,-5.7452 146.4956,-5.7496 146.5219,-5.7575 146.5478,-5.763 146.6061,-5.7857 146.6177,-5.7947 146.6292,-5.8275 146.7081,-5.8188 146.7277,-5.8223 146.7596,-5.8384 146.7792,-5.8595 146.7881,-5.8815 146.7956,-5.8909 146.825,-5.9091 146.8469,-5.9213 146.8767,-5.9364 146.9401,-5.9596 147.0644,-5.9649 147.0789,-5.9555 147.1048,-5.9302 147.1173,-5.9284 147.2554,-5.9538 147.299,-5.9641 147.3129,-5.9703 147.4053,-6.0482 147.4226,-6.0653 147.4743,-6.1298 147.6187,-6.2953 147.6585,-6.3299 147.6623,-6.3396 147.6825,-6.4041 147.6959,-6.4517 147.6988,-6.4626 147.702,-6.65 147.6984,-6.6631 147.6747,-6.687 147.6518,-6.7054 147.643,-6.71 147.6033,-6.7183 147.5917,-6.7203 147.4008,-6.744 147.2496,-6.7271 147.1387,-6.7382 147.0529,-6.7386 147.0334,-6.738 147.0183,-6.734 147.008,-6.728 146.9966,-6.7127 146.9831,-6.706 146.9221,-6.7067 146.8048,-6.7355 146.7951,-6.7395 146.7823,-6.7904 146.7785,-6.8074 146.7766,-6.8323 146.7754,-6.8967 146.7794,-6.9488 146.7856,-6.9598 146.8583,-7.029 146.8714,-7.0364 146.9649,-7.1954 146.974,-7.2129 146.9783,-7.2226 146.9802,-7.241 146.9797,-7.2535 146.9748,-7.2658 146.9717,-7.2864 146.9736,-7.3167 146.9883,-7.3773 147.0127,-7.4552 147.0477,-7.4823 147.1343,-7.4956 147.1548,-7.4968 147.1686,-7.4956 147.2525,-7.5584 147.2918,-7.5892 147.4756,-7.7668 147.5028,-7.7836 147.5288,-7.8214 147.5358,-7.8617 147.5355,-7.8783 147.5368,-7.8969 147.55,-7.92 147.5659,-7.9311 147.5758,-7.9349 147.5912,-7.9397 147.614,-7.9268 147.6387,-7.926 147.6892,-7.9263 147.7008,-7.9283 147.7107,-7.9322 147.7223,-7.9409 147.7459,-7.958 147.7716,-7.9748 147.8084,-7.987 147.8138,-8.0277 147.8179,-8.0405 147.8265,-8.0492 147.8413,-8.0574 147.8607,-8.0537 147.9487,-8.0461 147.9692,-8.057 148.0294,-8.2427 148.0341,-8.2582 148.0406,-8.2887 148.0415,-8.306 148.0411,-8.3306 148.0454,-8.3834 148.055,-8.5006 148.0569,-8.5243 148.0652,-8.5501 148.0737,-8.5623 148.1061,-8.5845 148.1353,-8.6015 148.1619,-8.5971 148.1843,-8.6024 148.2115,-8.6195 148.2794,-8.6671 148.3142,-8.7259 148.3148,-8.7488 148.3247,-8.83 148.3296,-8.8567 148.3661,-8.9826 148.3712,-8.9949 148.4243,-9.0599 148.4397,-9.0723 148.45,-9.0753 148.5308,-9.092 148.5581,-9.0944 148.5889,-9.0936 148.6175,-9.0911 148.6779,-9.0802 148.9042,-9.0295 148.9724,-8.9963 149.056,-8.9884 149.0923,-8.9882 149.1491,-9.0096 149.1566,-9.0273 149.1727,-9.1194 149.1616,-9.1446 149.149,-9.1585 149.1262,-9.1736 149.0153,-9.3447 149.0144,-9.3628 149.0168,-9.3744 149.0199,-9.3842 149.044,-9.4417 149.0556,-9.4639 149.0676,-9.481 149.0791,-9.4882 149.1095,-9.5006 149.1244,-9.4977 149.1399,-9.4978 149.1844,-9.5112 149.273,-9.5606 149.275,-9.5801 149.2781,-9.5873 149.2901,-9.5923 149.4976,-9.5964 149.5783,-9.5907 149.5967,-9.5956 149.6122,-9.6083 149.7129,-9.6316 149.742,-9.6325 149.7812,-9.6312 149.7941,-9.6275 149.8179,-9.6206 149.8439,-9.6203 149.8872,-9.6745 149.8922,-9.7014 149.889,-9.7112 149.8245,-9.7398 149.7622,-9.7584 149.6924,-9.7714 149.6744,-9.7681 149.6438,-9.7703 149.6032,-9.7799 149.5752,-9.7965 149.5597,-9.8083 149.5533,-9.8222 149.5582,-9.8388 149.5982,-9.8904 149.7099,-10.0054 149.7501,-10.0375 149.7628,-10.0453 149.7715,-10.0503 149.8258,-10.0702 149.8392,-10.0657 149.8528,-10.062 150.0224,-10.083 150.072,-10.1166 150.0955,-10.1413 150.1301,-10.1739 150.1439,-10.181 150.1881,-10.1884 150.2177,-10.1931 150.2358,-10.1957 150.415,-10.2294 150.4506,-10.2648 150.478,-10.2693 150.6131,-10.2485 150.6384,-10.2371 150.652,-10.2263 150.6621,-10.219 150.679,-10.2132 150.7009,-10.2113 150.7131,-10.2184 150.7058,-10.2261 150.6967,-10.2309 150.5626,-10.3006 150.47,-10.3387 150.4343,-10.338 150.3826,-10.3237 150.3314,-10.3067 150.274,-10.2919 150.2541,-10.289 150.2419,-10.2929 150.2046,-10.3101 150.1928,-10.3221 150.1839,-10.3639 150.1885,-10.3825 150.4038,-10.451 150.4843,-10.4638 150.4954,-10.4733 150.5257,-10.5408 150.5247,-10.5512 150.5127,-10.5663 150.4029,-10.6097 150.3912,-10.6119 150.3578,-10.6072 150.3277,-10.6071 150.3116,-10.6132 150.2787,-10.6466 150.261,-10.677 150.205,-10.6752 150.1037,-10.6766 150.0448,-10.6883 149.9484,-10.6555 149.9355,-10.6452 149.8949,-10.6136 149.8636,-10.5774 149.8467,-10.5587 149.7512,-10.5459 149.7299,-10.5498 149.6978,-10.5425 149.6874,-10.5365 149.7157,-10.4944 149.7375,-10.4906 149.778,-10.4904 149.8019,-10.4918 149.81,-10.5007 149.8251,-10.5061 149.8554,-10.4989 149.8712,-10.4907 149.9143,-10.4507 149.8999,-10.4441 149.8258,-10.4252 149.7022,-10.3862 149.6419,-10.3558 149.6217,-10.3466 149.5939,-10.3343 149.5838,-10.3308 149.5601,-10.3275 149.5201,-10.3263 149.5003,-10.3281 149.4756,-10.3296 149.4057,-10.3297 149.3729,-10.35 149.1722,-10.2955 149.0618,-10.2645 149.0234,-10.2482 149.0132,-10.2449 148.998,-10.2393 148.9766,-10.2334 148.93,-10.2226 148.8862,-10.2307 148.8754,-10.2332 148.8309,-10.249 148.8185,-10.257 148.7719,-10.2555 148.6315,-10.2275 148.5605,-10.1755 148.5162,-10.1399 148.4775,-10.1757 148.3029,-10.1921 148.241,-10.1889 148.2103,-10.1805 148.1725,-10.1666 148.1651,-10.1575 148.1603,-10.1483 148.1513,-10.127 148.1424,-10.1186 147.9939,-10.0648 147.9874,-10.0861 147.9537,-10.11 147.9409,-10.1183 147.9241,-10.1249 147.8931,-10.1319 147.8377,-10.1405 147.7907,-10.1341 147.779,-10.1094 147.7613,-10.0865 147.7104,-10.036 147.699,-10.0313 147.6169,-10.0399 147.6044,-10.0445 147.4547,-9.9765 147.4402,-9.9638 147.4126,-9.9369 147.3427,-9.8597 147.3388,-9.8422 147.3421,-9.8281 147.3421,-9.8014 147.3378,-9.7853 147.3276,-9.7579 147.225,-9.6247 147.1542,-9.5445 147.1347,-9.5231 147.0863,-9.4951 146.9675,-9.4328 146.9178,-9.4235 146.9393,-9.4411 146.9374,-9.4783 146.9269,-9.4808 146.8968,-9.4592 146.846,-9.3877 146.84,-9.3735 146.7645,-9.2721 146.7522,-9.2767 146.7335,-9.2679 146.7263,-9.1729 146.7443,-9.1228 146.7543,-9.1238 146.8071,-9.0809 146.8144,-9.0639 146.8184,-9.045 146.8086,-9.0196 146.7856,-9.0276 146.7822,-9.0396 146.7907,-9.0588 146.7589,-9.0928 146.6775,-9.0852 146.4679,-9.02 146.4591,-9.0151 146.4241,-8.9887 146.4158,-8.9765 146.396,-8.9313 146.3834,-8.8899 146.3949,-8.8478 146.4047,-8.7976 146.3784,-8.7536 146.3546,-8.715 146.2783,-8.6148 146.2687,-8.6039 146.2569,-8.5952 146.2405,-8.5847 146.2161,-8.5748 146.2093,-8.5684 146.1886,-8.5479 146.1554,-8.4992 146.1123,-8.4333 146.1055,-8.4165 146.0999,-8.3781 146.1016,-8.3622 146.0991,-8.3501 146.08,-8.2853 146.0752,-8.2763 146.0662,-8.2649 146.0551,-8.2551 145.9477,-8.1544 145.9468,-8.1254 145.926,-8.0819 145.8343,-8.0454 145.824,-8.0418 145.7675,-8.0318 145.755,-8.0306 145.7352,-8.0298 145.7172,-8.0325 145.6719,-8.019 145.6345,-7.9988 145.6229,-7.9898 145.5549,-7.9586 145.4867,-7.9506 145.4675,-7.9355 145.4536,-7.9286 145.3648,-7.9287 145.3394,-7.9309 145.3211,-7.9397 145.3023,-7.9417 145.2806,-7.9405 145.2695,-7.939 145.2594,-7.9357 145.081,-7.8595 145.0352,-7.8206 145.0198,-7.8048 145.0027,-7.8134 144.9963,-7.8342 144.8821,-7.8113 144.8328,-7.8065 144.717,-7.7737 144.6785,-7.7403 144.6876,-7.7323 144.7096,-7.6967 144.7114,-7.6845 144.6994,-7.6017 144.6818,-7.599 144.6695,-7.6702 144.659,-7.6802 144.6231,-7.6825 144.4368,-7.6516 144.4238,-7.6473 144.3897,-7.6032 144.3847,-7.5911 144.3832,-7.5659 144.3729,-7.5157 144.3679,-7.5035 144.3601,-7.4945 144.3479,-7.4974 144.3457,-7.6094 144.2591,-7.521 144.2459,-7.5111 144.2498,-7.5573 144.2731,-7.6711 144.3053,-7.7343 144.2337,-7.7471 144.216,-7.7446 144.1964,-7.7345 144.1918,-7.7174 144.1942,-7.6961 144.1974,-7.6855 144.1979,-7.6735 144.1516,-7.609 144.0984,-7.6289 144.0882,-7.6458 144.0815,-7.6582 144.0971,-7.7285 144.1081,-7.7647 144.0554,-7.7857 143.9853,-7.77 143.9596,-7.7629 143.7503,-7.688 143.7381,-7.6798 143.6864,-7.6264 143.6768,-7.6196 143.6673,-7.6085 143.6607,-7.5989 143.6495,-7.5773 143.6448,-7.562 143.611,-7.5071 143.6066,-7.498 143.5968,-7.4937 143.5032,-7.4592 143.5295,-7.5035 143.5933,-7.581 143.6778,-7.7065 143.684,-7.7274 143.6907,-7.7615 143.6916,-7.774 143.6903,-7.7865 143.6923,-7.8014 143.7377,-7.8754 143.7967,-7.9693 143.795,-7.978 143.727,-8.0307 143.6865,-8.0365 143.6728,-8.0366 143.5916,-8.0306 143.5799,-8.019 143.5607,-8.0002 143.5003,-7.9822 143.4709,-7.9775 143.4577,-7.9769 143.4366,-7.983 143.4278,-7.9878 143.4063,-7.9953 143.3852,-7.9974 143.3406,-7.9871 143.3227,-7.9811 143.3135,-7.9684 143.2997,-7.9296 143.2935,-7.9149 143.2776,-7.9014 143.2634,-7.8981 143.1994,-7.8922 143.1979,-7.9048 143.286,-7.9716 143.3822,-8.0455 143.4689,-8.1867 143.4715,-8.2036 143.469,-8.218 143.4632,-8.2295 143.4515,-8.2344 143.4082,-8.2376 143.3943,-8.2378 143.352,-8.2365 143.3089,-8.2359 143.2177,-8.2409 143.1783,-8.2445 143.0747,-8.2657 143.0181,-8.2773 142.9211,-8.2987 142.9103,-8.3012 142.8896,-8.3084 142.8743,-8.3137 142.8641,-8.3173 142.8404,-8.3273 142.8312,-8.332 142.8169,-8.3345 142.8049,-8.3332 142.7837,-8.3268 142.7494,-8.3096 142.7224,-8.2955 142.7057,-8.2848 142.6862,-8.2773 142.6404,-8.2657 142.6172,-8.2615 142.537,-8.2581 142.4951,-8.2642 142.4785,-8.2683 142.4364,-8.2807 142.4159,-8.287 142.4062,-8.2914 142.3852,-8.3042 142.3726,-8.3156 142.3618,-8.3219 142.3496,-8.3266 142.3261,-8.327 142.3079,-8.3267 142.2809,-8.3226 142.2647,-8.3152 142.253,-8.3062 142.244,-8.2768 142.237,-8.252 142.2359,-8.2413 142.2349,-8.2223 142.2235,-8.1799 142.1794,-8.1572 142.1685,-8.1544 142.1578,-8.1547 142.0626,-8.1638 142.0529,-8.1677 141.9802,-8.2145 141.9765,-8.224 141.9858,-8.2296 142.0008,-8.2289 142.0132,-8.2213 142.0255,-8.2101 142.0366,-8.2041 142.0669,-8.1901 142.1524,-8.171 142.1653,-8.1741 142.1786,-8.181 142.199,-8.1933 142.2154,-8.2518 142.2184,-8.265 142.2183,-8.2804 142.2262,-8.3137 142.2494,-8.3378 142.2804,-8.362 142.2906,-8.3653 142.311,-8.3687 142.3309,-8.369 142.3536,-8.3624 142.3653,-8.3571 142.3851,-8.3394 142.3975,-8.3313 142.431,-8.3173 142.4605,-8.3055 142.4791,-8.3011 142.5752,-8.3128 142.6146,-8.3233 142.6267,-8.3353 142.6437,-8.3521 142.7467,-8.4141 142.7579,-8.4163 142.7986,-8.4221 142.8506,-8.4315 142.8876,-8.4387 142.9269,-8.4502 142.937,-8.454 142.9506,-8.4606 143.057,-8.5426 143.0863,-8.5683 143.122,-8.6087 143.2154,-8.7318 143.2336,-8.7604 143.2359,-8.7713 143.2457,-8.9577 143.2255,-8.9838 143.2063,-9.0019 143.1728,-9.0179 143.156,-9.023 143.1408,-9.0135 143.1275,-9.0096 143.1114,-9.0101 143.0892,-9.0154 143.0736,-9.02 143.0157,-9.0382 142.8838,-9.0827 142.8692,-9.1006 142.7447,-9.1869 142.6846,-9.2221 142.6499,-9.2416 142.6402,-9.2458 142.6306,-9.2499 142.6116,-9.2568 142.5949,-9.2607 142.5664,-9.2726 142.5082,-9.31 142.4974,-9.3193 142.4815,-9.3242 142.4677,-9.324 142.4256,-9.3203 142.4145,-9.3175 142.3857,-9.2984 142.3751,-9.2881 142.3627,-9.2719 142.3404,-9.2549 142.3199,-9.2413 142.2686,-9.2176 142.0491,-9.1547 141.8973,-9.1768 141.7877,-9.1966 141.5649,-9.2041 141.4557,-9.2254 141.3663,-9.2104 141.3491,-9.2003 141.3358,-9.1866 141.3044,-9.1633 141.2921,-9.1552 141.2732,-9.1471 141.2319,-9.1336 141.2187,-9.133 141.1669,-9.1394 141.1534,-9.1436 141.1386,-9.1525 141.1285,-9.1627 141.1102,-9.1783 141.0705,-9.2068 141.0575,-9.2142 141.0203,-9.2232 141.0049,-9.2268 140.9641,-9.2203 140.9536,-9.214 140.9347,-9.1987 140.8779,-9.1464 140.8573,-9.1264 140.851,-9.1182 140.8467,-6.8969 140.8467,-6.8853 140.8351,-6.8887 140.8216,-6.8987 140.7899,-6.8958 140.7435,-6.8481 140.7156,-6.7885 140.7114,-6.7787 140.6997,-6.7208 140.6993,-6.6707 140.7032,-6.6236 140.734,-6.5933 140.7873,-6.4924 140.7911,-6.473 140.7872,-6.4633 140.7681,-6.4436 140.7721,-6.427 140.8069,-6.3294 140.8255,-6.3259 140.846,-6.3256 140.8458,-5.9929 140.845,-4.8999 140.8475,-2.6108 140.8438,-2.604 140.8438,-2.604 24,-5.0,Ecuador -80.1209,-3.0332 -80.1261,-3.0329 -80.1724,-3.0207 -80.1823,-3.0115 -80.1751,-2.8612 -80.1743,-2.8473 -80.1712,-2.8367 -80.1674,-2.8265 -80.1496,-2.789 -80.1177,-2.723 -79.995,-2.6707 -79.9481,-2.6604 -79.9296,-2.6589 -79.9117,-2.6622 -79.8126,-2.7189 -79.8205,-2.7407 -79.8338,-2.758 -80.033,-2.8849 -80.0102,-2.9503 -80.0218,-2.9965 -80.0326,-3.0111 -80.1027,-3.0311 -80.1209,-3.0332 -80.1209,-3.0332 21,-3.0,Brazil -44.5404,-3.049 -44.5433,-3.0083 -44.5267,-2.9849 -44.5093,-2.9095 -44.5353,-2.8409 -44.5271,-2.7988 -44.5216,-2.7828 -44.5144,-2.7694 -44.4687,-2.7188 -44.4583,-2.7123 -44.4334,-2.7067 -44.4304,-2.7227 -44.4268,-2.7455 -44.4304,-2.8583 -44.4444,-2.9446 -44.4681,-2.9627 -44.4819,-2.969 -44.4954,-2.983 -44.5198,-3.0206 -44.5404,-3.049 -44.5404,-3.049 41,7.0,Indonesia 100.3462,-3.3298 100.328,-3.3207 100.3143,-3.3067 100.2557,-3.237 100.2222,-3.1964 100.2249,-3.1758 100.2277,-3.1319 100.2229,-3.1158 100.2112,-3.1037 100.1871,-3.0802 100.1341,-3.0457 100.0897,-2.9888 100.0783,-2.9722 100.0729,-2.9599 100.0614,-2.8046 100.0673,-2.7935 100.0845,-2.7837 100.1018,-2.777 100.1196,-2.7756 100.1309,-2.7801 100.1423,-2.7891 100.2382,-2.8854 100.2582,-2.9069 100.3514,-3.0113 100.3566,-3.0202 100.3599,-3.0306 100.3631,-3.1022 100.3616,-3.1178 100.348,-3.13 100.31,-3.1371 100.2902,-3.1313 100.2669,-3.148 100.285,-3.1899 100.3071,-3.2296 100.3235,-3.254 100.3385,-3.2664 100.3581,-3.2941 100.3648,-3.3117 100.3606,-3.3241 100.3462,-3.3298 100.3462,-3.3298 133,9.0,Indonesia 130.6819,-3.8682 130.6519,-3.8572 130.4684,-3.7841 130.4461,-3.7599 130.4102,-3.7224 130.2955,-3.651 130.2509,-3.6292 130.1669,-3.5963 130.0881,-3.5725 129.9869,-3.5395 129.8712,-3.481 129.8446,-3.4664 129.8277,-3.4492 129.8123,-3.4234 129.809,-3.401 129.8107,-3.3746 129.7851,-3.3511 129.7652,-3.3379 129.7421,-3.3305 129.6713,-3.3251 129.5057,-3.3129 129.3697,-3.2937 129.3532,-3.3121 129.3602,-3.3433 129.386,-3.372 129.4024,-3.3934 129.4129,-3.4258 129.3984,-3.4589 129.3714,-3.4658 129.3335,-3.4579 129.3077,-3.4461 129.16,-3.413 129.0994,-3.4087 129.0628,-3.3977 129.0054,-3.373 128.9617,-3.3463 128.9288,-3.3435 128.8561,-3.3464 128.8225,-3.3498 128.8266,-3.2651 128.828,-3.2414 128.8093,-3.2222 128.7879,-3.2129 128.7372,-3.2055 128.6263,-3.2754 128.5413,-3.3553 128.5267,-3.3825 128.468,-3.4323 128.3523,-3.4577 128.3251,-3.4567 128.2878,-3.4408 128.2596,-3.4165 128.2154,-3.3509 128.1581,-3.2651 128.0729,-3.2074 128.0533,-3.1123 128.0374,-3.0706 127.9975,-3.0714 127.9529,-3.1171 127.9355,-3.148 127.9259,-3.1723 127.9171,-3.2047 127.911,-3.2463 127.9074,-3.2772 127.9064,-3.3069 127.8978,-3.3343 127.8713,-3.3714 127.8465,-3.3777 127.7928,-3.4742 127.7737,-3.5554 127.7645,-3.5406 127.7532,-3.5005 127.7506,-3.4804 127.7677,-3.4397 127.7807,-3.4134 127.7889,-3.3656 127.788,-3.3408 127.7777,-3.3156 127.752,-3.2791 127.7381,-3.2625 127.712,-3.1828 127.7446,-3.1516 127.8393,-3.0833 127.9296,-2.9777 128.0274,-2.8535 128.1194,-2.8526 128.2572,-2.8595 128.4203,-2.8521 128.6945,-2.8629 128.7269,-2.8619 128.7683,-2.855 128.9189,-2.8972 128.9387,-2.9236 128.9556,-2.9409 128.9877,-2.9597 129.0672,-2.9427 129.2009,-2.8574 129.2196,-2.8421 129.23,-2.8017 129.2576,-2.7891 129.3807,-2.7803 129.4833,-2.8116 129.6247,-2.8707 129.6499,-2.9044 129.8412,-2.9849 129.8733,-2.9936 129.9108,-2.9975 129.9441,-2.9973 130.018,-2.9888 130.0897,-2.9813 130.1911,-2.9751 130.2292,-2.9852 130.2521,-2.9998 130.4418,-3.1368 130.4826,-3.2417 130.4864,-3.2648 130.4827,-3.285 130.4826,-3.3211 130.4887,-3.3491 130.4982,-3.3734 130.5241,-3.4035 130.5555,-3.4002 130.5938,-3.4015 130.6188,-3.4042 130.6421,-3.4133 130.6789,-3.4503 130.726,-3.5888 130.722,-3.6247 130.7076,-3.6478 130.6876,-3.674 130.6729,-3.821 130.6819,-3.8682 130.6819,-3.8682 13,7.0,Indonesia 106.7051,-2.8972 106.7764,-2.925 106.7868,-2.9318 106.7942,-2.9484 106.7712,-3.02 106.7339,-3.0303 106.7009,-3.0204 106.6037,-2.964 106.6222,-2.919 106.6888,-2.8895 106.7015,-2.8938 106.7051,-2.8972 106.7051,-2.8972 15,10.0,Papua New Guinea 150.6038,-2.9821 150.5971,-2.9784 150.6031,-2.9691 150.6219,-2.9537 150.7051,-2.9074 150.7395,-2.906 150.7711,-2.9184 150.8519,-2.965 150.8268,-2.98 150.7124,-2.965 150.7021,-2.9618 150.6858,-2.9586 150.6651,-2.9566 150.6038,-2.9821 150.6038,-2.9821 16,10.0,Papua New Guinea 152.4686,-3.2261 152.464,-3.224 152.4329,-3.2001 152.4051,-3.1735 152.366,-3.0998 152.3665,-3.089 152.3839,-3.0656 152.4181,-3.0485 152.431,-3.0441 152.4736,-3.0428 152.4956,-3.1256 152.4959,-3.1527 152.4816,-3.2154 152.4739,-3.2249 152.4686,-3.2261 152.4686,-3.2261 48,9.0,Indonesia 125.9856,-3.1161 126.002,-3.14 126.0344,-3.1674 126.0699,-3.1689 126.0883,-3.1428 126.102,-3.1256 126.1415,-3.1034 126.2738,-3.068 126.4675,-3.0592 126.4989,-3.0577 126.5943,-3.0557 126.6837,-3.0706 126.8508,-3.1411 126.9411,-3.1947 126.9584,-3.2097 126.9706,-3.2663 126.9408,-3.2668 126.9112,-3.2631 126.8983,-3.2839 126.9097,-3.3266 126.9527,-3.3661 126.9832,-3.3546 127.0012,-3.3354 127.117,-3.3734 127.0974,-3.5906 127.0928,-3.6132 127.0729,-3.65 127.0416,-3.6592 127.003,-3.6487 126.9616,-3.6593 126.8723,-3.6966 126.8436,-3.7179 126.723,-3.7766 126.5845,-3.8229 126.5496,-3.8306 126.365,-3.7644 126.2389,-3.7056 126.0996,-3.6115 125.9194,-3.4427 125.9019,-3.4226 125.8751,-3.3471 125.8667,-3.1806 125.8824,-3.1483 125.9287,-3.1123 125.9535,-3.0995 125.977,-3.1047 125.9856,-3.1161 125.9856,-3.1161 15,9.0,Indonesia 127.564,-3.1567 127.5708,-3.1543 127.6119,-3.1495 127.6454,-3.1759 127.6474,-3.2118 127.643,-3.2418 127.6292,-3.2505 127.5519,-3.2513 127.529,-3.2499 127.5139,-3.241 127.4943,-3.2209 127.5111,-3.2007 127.5558,-3.1632 127.564,-3.1567 127.564,-3.1567 39,8.0,Indonesia 116.1398,-3.2813 116.1267,-3.3586 116.1247,-3.3772 116.1403,-3.5307 116.1614,-3.6175 116.17,-3.6569 116.1874,-3.7617 116.1737,-3.9027 116.0285,-4.0116 116.0139,-4.0207 115.9865,-4.0315 115.9544,-4.041 115.9237,-4.0375 115.9195,-4.0251 115.9196,-4.0115 115.9229,-3.9807 115.9284,-3.9591 115.934,-3.9505 115.9459,-3.9067 115.9445,-3.8245 115.9425,-3.8027 115.9356,-3.7854 115.9129,-3.7659 115.9,-3.7514 115.8904,-3.7303 115.8805,-3.7055 115.8761,-3.6832 115.8756,-3.67 115.8759,-3.657 115.8774,-3.645 115.8817,-3.6287 115.9415,-3.4408 115.9829,-3.3319 115.9872,-3.3225 116.1291,-3.2205 116.1418,-3.2239 116.1453,-3.2444 116.1398,-3.2813 116.1398,-3.2813 15,9.0,Indonesia 127.4292,-3.2629 127.4797,-3.3115 127.5064,-3.3497 127.4989,-3.3579 127.4885,-3.3615 127.4732,-3.3623 127.3766,-3.3288 127.3653,-3.3229 127.3447,-3.3024 127.337,-3.2894 127.3808,-3.2542 127.4074,-3.2544 127.4259,-3.2599 127.4292,-3.2629 127.4292,-3.2629 15,8.0,Indonesia 116.298,-3.4009 116.2979,-3.4352 116.2964,-3.4475 116.2718,-3.58 116.2635,-3.6125 116.2587,-3.6286 116.2489,-3.6405 116.1856,-3.537 116.2232,-3.4413 116.2322,-3.4296 116.273,-3.3782 116.2866,-3.3749 116.2942,-3.385 116.298,-3.4009 116.298,-3.4009 19,9.0,Indonesia 128.4386,-3.4904 128.478,-3.5173 128.5252,-3.534 128.5325,-3.5194 128.5459,-3.4962 128.561,-3.498 128.5674,-3.5055 128.5713,-3.5149 128.5777,-3.5429 128.5812,-3.5866 128.5774,-3.6122 128.4944,-3.6247 128.4816,-3.6193 128.4696,-3.605 128.4122,-3.5217 128.4105,-3.5035 128.4233,-3.4912 128.4386,-3.4904 128.4386,-3.4904 40,9.0,Indonesia 127.8917,-3.5888 127.9392,-3.5819 128.0427,-3.56 128.0575,-3.5473 128.077,-3.5329 128.0918,-3.5237 128.1311,-3.5073 128.153,-3.5057 128.193,-3.5147 128.2016,-3.5288 128.1947,-3.6126 128.1898,-3.6215 128.1369,-3.6836 128.0898,-3.7254 127.9886,-3.7677 127.9728,-3.7726 127.9511,-3.7702 127.9949,-3.7262 128.0558,-3.6707 128.0653,-3.6597 128.0682,-3.6449 128.0522,-3.6378 127.9387,-3.7069 127.8565,-3.7615 127.8405,-3.7698 127.8115,-3.7717 127.7976,-3.7669 127.7822,-3.755 127.7737,-3.7366 127.7707,-3.7254 127.7693,-3.6996 127.7716,-3.6877 127.7796,-3.6758 127.792,-3.6605 127.8052,-3.6464 127.8235,-3.6303 127.8599,-3.605 127.8862,-3.5904 127.8917,-3.5888 127.8917,-3.5888 18,9.0,Indonesia 128.2956,-3.5158 128.3159,-3.5148 128.3555,-3.5184 128.3653,-3.5226 128.386,-3.536 128.4131,-3.5636 128.4181,-3.5756 128.4169,-3.5869 128.4035,-3.5977 128.3774,-3.6125 128.2576,-3.6364 128.2406,-3.6343 128.2425,-3.6151 128.2645,-3.5384 128.2733,-3.5264 128.2861,-3.5182 128.2956,-3.5158 128.2956,-3.5158 30,8.0,Indonesia 122.9068,-3.9739 122.9395,-4.0 122.9491,-4.0041 122.9699,-4.0074 122.9842,-4.0049 123.0028,-3.996 123.035,-3.9871 123.0552,-3.9869 123.0693,-3.9936 123.0971,-4.0272 123.1051,-4.0397 123.114,-4.0579 123.117,-4.0687 123.1182,-4.0878 123.1117,-4.1107 123.021,-4.2306 123.0065,-4.2378 122.9395,-4.2348 122.9279,-4.233 122.8934,-4.1987 122.8767,-4.1815 122.8256,-4.1118 122.8181,-4.0956 122.8156,-4.0845 122.8141,-4.0423 122.8688,-3.9816 122.8875,-3.9732 122.9006,-3.9725 122.9068,-3.9739 122.9068,-3.9739 17,9.0,Indonesia 133.1778,-4.1029 133.1948,-4.11 133.2666,-4.1649 133.3537,-4.2074 133.3638,-4.2109 133.3878,-4.2211 133.401,-4.2288 133.4201,-4.2435 133.4639,-4.2956 133.4494,-4.2935 133.2783,-4.2165 133.1751,-4.1659 133.1702,-4.1535 133.1641,-4.1117 133.1656,-4.0991 133.1778,-4.1029 133.1778,-4.1029 277,10.0,Papua New Guinea 149.0509,-5.5998 149.1008,-5.5878 149.1402,-5.5798 149.2554,-5.5606 149.3786,-5.5321 149.3965,-5.5225 149.4116,-5.5168 149.4409,-5.5121 149.4978,-5.5129 149.5143,-5.5539 149.54,-5.556 149.7072,-5.5291 149.7167,-5.5253 149.7456,-5.5055 149.7578,-5.4972 149.785,-5.4699 149.7935,-5.4578 149.8102,-5.4269 149.813,-5.413 149.8056,-5.4016 149.7813,-5.3969 149.7496,-5.3501 149.7474,-5.34 149.7574,-5.3092 149.7637,-5.3012 149.8315,-5.1633 149.8442,-5.0515 149.8486,-5.0418 149.861,-5.0235 149.9209,-5.002 149.9525,-5.0045 149.9834,-5.018 150.0102,-5.0329 150.0253,-5.0452 150.0325,-5.0658 150.0111,-5.0944 149.993,-5.107 149.9832,-5.111 149.9615,-5.1161 149.9302,-5.1258 149.9203,-5.13 149.9116,-5.1353 149.9011,-5.1458 149.8932,-5.1578 149.8904,-5.1687 149.8714,-5.3024 149.8912,-5.3576 149.9514,-5.5086 149.9728,-5.5315 149.9934,-5.5449 150.0102,-5.5519 150.1155,-5.5642 150.1275,-5.5614 150.1355,-5.5523 150.1508,-5.5292 150.1738,-5.5082 150.2411,-5.4522 150.2514,-5.4491 150.3168,-5.4406 150.3397,-5.4444 150.4047,-5.4713 150.4239,-5.4898 150.4298,-5.5109 150.4407,-5.5379 150.4485,-5.5472 150.4723,-5.5505 150.5063,-5.5449 150.5244,-5.5405 150.742,-5.4846 150.7525,-5.4808 150.8071,-5.4387 150.8307,-5.4148 150.8393,-5.4026 150.8432,-5.3932 150.8468,-5.383 150.8509,-5.3629 150.8465,-5.329 150.8522,-5.2819 150.8565,-5.2656 150.8667,-5.2351 150.8746,-5.216 150.8939,-5.1797 150.8987,-5.1709 150.9121,-5.1506 150.9247,-5.137 151.0915,-4.9792 151.1846,-4.9417 151.2681,-4.931 151.3407,-4.9324 151.4378,-4.9638 151.4718,-4.9461 151.4809,-4.9351 151.5031,-4.9024 151.5113,-4.8832 151.5148,-4.8594 151.5094,-4.809 151.4858,-4.6109 151.4568,-4.4965 151.4195,-4.4255 151.3751,-4.355 151.3285,-4.2268 151.3315,-4.2116 151.3379,-4.2012 151.3651,-4.177 151.6106,-4.2008 151.6696,-4.2199 151.6825,-4.2273 151.6878,-4.2389 151.6912,-4.2664 151.6976,-4.2804 151.7088,-4.2966 151.7225,-4.3099 151.7317,-4.3149 151.7981,-4.3314 151.8154,-4.3245 151.9673,-4.1973 151.973,-4.1861 151.978,-4.1708 151.9808,-4.1565 151.9866,-4.1461 151.996,-4.1401 152.009,-4.1421 152.0418,-4.1611 152.0624,-4.2025 152.0666,-4.2118 152.0679,-4.2375 152.054,-4.2457 152.0247,-4.2361 152.0181,-4.2157 152.0066,-4.2113 152.0001,-4.2219 151.9967,-4.2389 151.9991,-4.2852 152.0101,-4.3033 152.0203,-4.3104 152.0907,-4.3299 152.1135,-4.3345 152.1322,-4.3366 152.1828,-4.3381 152.2283,-4.6053 152.2293,-4.6176 152.2317,-4.6636 152.2323,-4.6834 152.2214,-4.7554 152.2156,-4.7774 152.2125,-4.7876 152.1607,-4.8714 152.1202,-4.9234 152.0943,-4.9519 152.0633,-4.9815 151.9854,-5.0013 151.9497,-4.9937 151.9389,-4.9907 151.9121,-4.9801 151.8766,-4.974 151.8201,-4.9667 151.8046,-4.9748 151.7973,-4.9877 151.7947,-4.9985 151.7931,-5.0175 151.7913,-5.0989 151.7965,-5.1425 151.8035,-5.1557 151.8199,-5.1697 151.8975,-5.2305 151.9477,-5.2899 151.9561,-5.3016 151.9713,-5.3377 151.9739,-5.3578 151.9707,-5.368 151.9578,-5.3958 151.9503,-5.41 151.9225,-5.4508 151.7975,-5.5259 151.6688,-5.5909 151.6492,-5.5948 151.6353,-5.5913 151.6026,-5.5765 151.5795,-5.5381 151.5295,-5.5243 151.3189,-5.522 151.2978,-5.5244 151.2842,-5.532 151.2716,-5.582 151.2303,-5.7449 151.2123,-5.8003 151.1455,-5.8432 150.9937,-5.9512 150.8313,-6.0156 150.7691,-6.0217 150.6844,-6.0337 150.6404,-6.0694 150.6411,-6.0823 150.622,-6.1111 150.602,-6.1333 150.5749,-6.1285 150.556,-6.1407 150.536,-6.1484 150.4924,-6.1598 150.4838,-6.1416 150.4639,-6.1417 150.3386,-6.228 150.3141,-6.2513 150.3058,-6.2635 150.2978,-6.2687 150.2326,-6.2859 150.0521,-6.2812 150.0409,-6.2688 150.0129,-6.2486 149.9999,-6.2498 149.9103,-6.2729 149.8686,-6.292 149.8481,-6.3165 149.8429,-6.2916 149.8159,-6.2686 149.8052,-6.2663 149.7221,-6.2851 149.6737,-6.2852 149.5166,-6.2979 149.4646,-6.3009 149.4374,-6.284 149.4033,-6.256 149.3855,-6.2199 149.3696,-6.1907 149.3408,-6.1455 149.3161,-6.1157 149.2975,-6.1025 149.275,-6.0909 149.1687,-6.0531 149.142,-6.0504 149.1202,-6.0556 148.9942,-6.1056 148.9654,-6.1445 148.9498,-6.1497 148.8969,-6.1573 148.8824,-6.1523 148.8797,-6.1364 148.8885,-6.1317 148.9028,-6.1394 148.9103,-6.1295 148.9092,-6.1122 148.9026,-6.0856 148.8861,-6.0374 148.8705,-6.03 148.8134,-6.0127 148.7732,-6.0014 148.7513,-5.9931 148.7138,-5.9748 148.708,-5.9389 148.5953,-5.8583 148.5327,-5.8414 148.4204,-5.8215 148.359,-5.8217 148.2328,-5.7767 148.221,-5.7712 148.1943,-5.746 148.1704,-5.7077 148.1618,-5.6884 148.1535,-5.666 148.1474,-5.6216 148.1889,-5.4861 148.2053,-5.4688 148.2592,-5.4447 148.2812,-5.449 148.3387,-5.4803 148.3503,-5.496 148.4488,-5.4987 148.714,-5.4905 148.792,-5.4672 148.8034,-5.4652 148.8161,-5.4667 148.831,-5.4719 148.9547,-5.5189 149.0193,-5.5521 149.0439,-5.5699 149.0509,-5.5998 149.0509,-5.5998 62,8.0,Indonesia 122.9357,-4.3983 122.9228,-4.4133 122.9368,-4.4575 122.9637,-4.4749 122.9949,-4.4901 123.0525,-4.5712 123.0605,-4.5941 123.0725,-4.6919 123.0763,-4.7494 123.0764,-4.7837 123.0747,-4.8161 123.0636,-4.8356 123.0457,-4.7935 123.0374,-4.7676 122.9953,-4.7042 122.9053,-4.7518 122.8743,-4.8296 122.8496,-4.9409 122.8427,-5.0285 122.8394,-5.1014 122.8814,-5.1369 122.9029,-5.1325 123.0723,-5.2661 123.0742,-5.2876 123.025,-5.3573 123.0026,-5.3797 122.91,-5.4202 122.8903,-5.415 122.8578,-5.3889 122.761,-5.433 122.735,-5.4579 122.722,-5.4982 122.7609,-5.5011 122.7744,-5.5206 122.7624,-5.5536 122.6892,-5.67 122.6634,-5.6855 122.5159,-5.6785 122.4641,-5.5914 122.4371,-5.5293 122.429,-5.5006 122.5206,-5.3554 122.5949,-5.2484 122.6412,-5.1239 122.6777,-4.9656 122.7132,-4.805 122.7096,-4.7579 122.7052,-4.7213 122.7032,-4.6798 122.7043,-4.6431 122.7146,-4.595 122.7242,-4.5676 122.7603,-4.4871 122.7745,-4.4665 122.7993,-4.4469 122.8503,-4.4086 122.8702,-4.3946 122.8925,-4.3829 122.9191,-4.3756 122.9402,-4.3831 122.9357,-4.3983 122.9357,-4.3983 63,1.0,Angola 12.0126,-5.0091 12.1525,-4.8903 12.1654,-4.849 12.1727,-4.8215 12.2013,-4.7545 12.2522,-4.7818 12.281,-4.7838 12.3173,-4.7814 12.3672,-4.7069 12.3815,-4.6598 12.3743,-4.6286 12.3866,-4.6042 12.4486,-4.5869 12.6299,-4.5517 12.6469,-4.5236 12.6772,-4.4743 12.7278,-4.4142 12.751,-4.3888 12.7646,-4.3839 12.8552,-4.3946 12.8825,-4.4122 12.8868,-4.4319 12.8899,-4.4526 12.8994,-4.4706 13.004,-4.5798 13.0234,-4.5992 13.0402,-4.6133 13.063,-4.6243 13.0766,-4.6278 13.0779,-4.6408 13.0629,-4.6646 13.0276,-4.6631 12.8423,-4.7096 12.8059,-4.732 12.6978,-4.8723 12.6951,-4.9017 12.5928,-4.9923 12.5581,-5.0161 12.518,-5.11 12.5211,-5.2674 12.5125,-5.7176 12.4707,-5.7185 12.3532,-5.724 12.2608,-5.73 12.2161,-5.7484 12.2007,-5.762 12.1623,-5.7074 12.141,-5.6707 12.1391,-5.6082 12.1482,-5.575 12.169,-5.5319 12.2117,-5.5225 12.2188,-5.4952 12.2149,-5.4708 12.1622,-5.3173 12.1501,-5.2879 12.1167,-5.2223 12.0698,-5.1403 12.0527,-5.1166 12.0316,-5.0829 12.0047,-5.0342 12.0126,-5.0091 12.0126,-5.0091 22,10.0,Papua New Guinea 145.7848,-4.7589 145.7781,-4.7588 145.7671,-4.7563 145.7521,-4.7509 145.729,-4.7332 145.7085,-4.6888 145.7071,-4.6641 145.7262,-4.604 145.7359,-4.5866 145.7488,-4.5721 145.8022,-4.5265 145.8123,-4.5225 145.8453,-4.544 145.8608,-4.5562 145.8884,-4.5936 145.8876,-4.6558 145.8729,-4.7058 145.8572,-4.7211 145.8281,-4.7399 145.7953,-4.7554 145.7848,-4.7589 145.7848,-4.7589 41,8.0,Indonesia 122.5695,-4.6131 122.5939,-4.6381 122.6095,-4.7419 122.6281,-4.8695 122.64,-4.8911 122.6353,-4.95 122.5678,-5.0085 122.5066,-5.0617 122.4605,-5.1625 122.4646,-5.1896 122.4918,-5.2109 122.5175,-5.2699 122.5163,-5.2973 122.5038,-5.3463 122.463,-5.4163 122.4089,-5.4314 122.315,-5.3977 122.1723,-5.386 122.1454,-5.3756 122.1342,-5.3217 122.1829,-5.1477 122.1982,-5.1126 122.2262,-5.0979 122.2485,-5.0823 122.2574,-5.0625 122.2501,-4.9779 122.2179,-4.8973 122.2086,-4.8758 122.1918,-4.8432 122.2347,-4.7504 122.2566,-4.738 122.2819,-4.7384 122.3164,-4.7353 122.3472,-4.729 122.382,-4.717 122.4134,-4.6984 122.4511,-4.6674 122.4645,-4.6523 122.5587,-4.6064 122.5695,-4.6131 122.5695,-4.6131 21,10.0,Papua New Guinea 154.4609,-5.4523 154.4418,-5.4251 154.4106,-5.3387 154.3895,-5.2705 154.354,-5.1279 154.3559,-5.1161 154.3648,-5.098 154.3703,-5.0897 154.382,-5.0743 154.4257,-5.0214 154.4439,-5.0129 154.4661,-5.0104 154.4787,-5.015 154.4922,-5.0291 154.5511,-5.1939 154.5517,-5.2104 154.5166,-5.4148 154.5108,-5.4256 154.499,-5.4347 154.4609,-5.4523 154.4609,-5.4523 21,8.0,Indonesia 121.8421,-5.0753 121.8845,-5.1505 121.9208,-5.226 121.9145,-5.4184 121.9093,-5.4438 121.9043,-5.4535 121.8929,-5.4627 121.8808,-5.4672 121.8226,-5.4703 121.7256,-5.3537 121.6772,-5.2827 121.6692,-5.263 121.6735,-5.2163 121.7168,-5.0975 121.7224,-5.086 121.7305,-5.0775 121.7543,-5.0603 121.7714,-5.0535 121.8308,-5.0654 121.8421,-5.0753 121.8421,-5.0753 16,10.0,Papua New Guinea 146.9679,-5.4447 146.954,-5.4382 146.8413,-5.3463 146.8347,-5.2976 146.8404,-5.2529 146.847,-5.2329 146.9414,-5.1874 146.9569,-5.1857 146.9672,-5.1892 147.0233,-5.2424 147.0437,-5.2632 147.061,-5.3577 147.056,-5.4225 146.9884,-5.4429 146.9679,-5.4447 146.9679,-5.4447 20,8.0,Indonesia 123.4446,-5.2492 123.4579,-5.2531 123.4728,-5.2624 123.4861,-5.2763 123.4919,-5.2846 123.4961,-5.2974 123.4922,-5.3674 123.4644,-5.3704 123.4361,-5.3681 123.4247,-5.3622 123.4158,-5.3508 123.4065,-5.333 123.3954,-5.3097 123.3873,-5.291 123.3808,-5.2698 123.379,-5.2546 123.3822,-5.2443 123.399,-5.245 123.4446,-5.2492 123.4446,-5.2492 15,7.0,Indonesia 102.2614,-5.481 102.211,-5.4613 102.1402,-5.4483 101.9836,-5.3288 101.9981,-5.3123 102.0445,-5.2729 102.062,-5.2715 102.1517,-5.309 102.2641,-5.3664 102.2757,-5.3753 102.2868,-5.3914 102.2881,-5.4042 102.2698,-5.4777 102.2614,-5.481 102.2614,-5.481 42,9.0,Indonesia 133.0308,-5.3038 133.037,-5.3192 133.0378,-5.3314 133.0349,-5.345 132.9776,-5.5338 132.9602,-5.5853 132.9555,-5.5942 132.947,-5.6061 132.9294,-5.6226 132.9174,-5.6309 132.8944,-5.6422 132.8801,-5.6516 132.8587,-5.6775 132.8517,-5.6865 132.8125,-5.7445 132.8059,-5.758 132.7976,-5.7908 132.7962,-5.803 132.7967,-5.8194 132.8021,-5.8309 132.8046,-5.8428 132.8038,-5.8588 132.6983,-5.9963 132.6885,-5.9935 132.6882,-5.9752 132.7201,-5.8722 132.7331,-5.8309 132.7804,-5.6861 132.7865,-5.6714 132.8001,-5.6513 132.8119,-5.6387 132.8242,-5.6339 132.8344,-5.6191 132.8659,-5.5457 132.9542,-5.3153 132.9625,-5.2961 132.9715,-5.2883 132.9862,-5.286 133.0053,-5.2871 133.0191,-5.2907 133.0308,-5.3038 133.0308,-5.3038 52,9.0,Indonesia 134.3628,-5.43 134.4157,-5.4231 134.4783,-5.4426 134.5391,-5.5238 134.5258,-5.5864 134.5678,-5.7304 134.5819,-5.8398 134.602,-5.854 134.6066,-5.8865 134.577,-5.9703 134.5607,-5.972 134.5264,-5.9511 134.5097,-5.9302 134.5004,-5.926 134.4771,-5.9282 134.379,-5.9511 134.3599,-5.9556 134.3364,-5.9646 134.3133,-5.9767 134.301,-5.9848 134.2847,-5.9947 134.2647,-6.0037 134.2437,-6.0117 134.2268,-6.0169 134.1914,-6.0236 134.1784,-6.0229 134.1497,-6.0158 134.1494,-5.9031 134.1646,-5.8909 134.2058,-5.8462 134.228,-5.8 134.2131,-5.7813 134.1306,-5.759 134.1141,-5.7626 134.1024,-5.761 134.0622,-5.7366 134.0535,-5.7281 134.0512,-5.7165 134.0564,-5.6975 134.0748,-5.6768 134.0879,-5.6708 134.1014,-5.6744 134.1308,-5.6863 134.1566,-5.7013 134.1649,-5.7072 134.207,-5.6996 134.2542,-5.6266 134.3296,-5.4855 134.3403,-5.4311 134.3537,-5.427 134.3628,-5.43 134.3628,-5.43 57,10.0,Papua New Guinea 155.2274,-5.993 155.2403,-6.0747 155.2532,-6.1076 155.3005,-6.1622 155.3182,-6.1781 155.4011,-6.2153 155.438,-6.2128 155.5932,-6.3496 155.6264,-6.3588 155.6557,-6.3914 155.7381,-6.5132 155.7903,-6.7065 155.7675,-6.7745 155.7361,-6.7975 155.714,-6.7721 155.6795,-6.7669 155.6435,-6.7714 155.5991,-6.8068 155.5694,-6.8384 155.5325,-6.8729 155.4477,-6.8603 155.3828,-6.8448 155.3092,-6.8195 155.2691,-6.8012 155.1641,-6.7337 155.0639,-6.6149 155.0166,-6.5532 155.0328,-6.5214 155.0489,-6.47 155.0568,-6.4303 155.052,-6.3476 155.0403,-6.3175 155.0214,-6.2945 155.0047,-6.2801 154.9514,-6.2689 154.9253,-6.27 154.887,-6.2496 154.8119,-6.2053 154.795,-6.188 154.7084,-6.0695 154.6476,-6.0213 154.5745,-5.9423 154.5236,-5.766 154.5421,-5.6636 154.5774,-5.5118 154.6159,-5.4744 154.7059,-5.537 154.7443,-5.5434 154.7876,-5.5398 154.8968,-5.5552 154.9856,-5.7259 155.0392,-5.8621 155.0965,-5.8799 155.1914,-5.9542 155.2237,-5.989 155.2274,-5.993 155.2274,-5.993 32,10.0,Papua New Guinea 147.8219,-5.8491 147.8144,-5.8113 147.8024,-5.784 147.7768,-5.7733 147.7583,-5.7725 147.6968,-5.741 147.6339,-5.6664 147.625,-5.6547 147.6017,-5.6157 147.5971,-5.6031 147.593,-5.5189 147.6135,-5.486 147.646,-5.4785 147.6732,-5.4838 147.6837,-5.4873 147.84,-5.5698 147.852,-5.5778 147.8738,-5.5939 147.8967,-5.6212 147.9056,-5.6384 147.9097,-5.6477 147.9119,-5.6593 147.9097,-5.6845 147.908,-5.6967 147.904,-5.72 147.8994,-5.7424 147.893,-5.7703 147.889,-5.7797 147.8485,-5.838 147.8323,-5.8458 147.8219,-5.8491 147.8219,-5.8491 23,9.0,Indonesia 132.5874,-5.6724 132.6534,-5.7908 132.6575,-5.8032 132.6581,-5.8269 132.6567,-5.8389 132.6531,-5.8562 132.6308,-5.9191 132.6239,-5.929 132.5886,-5.9435 132.541,-5.9286 132.5155,-5.9031 132.5144,-5.8908 132.515,-5.8537 132.5185,-5.8315 132.5051,-5.7071 132.4899,-5.6705 132.4777,-5.6281 132.484,-5.6096 132.5482,-5.5912 132.5808,-5.6461 132.5846,-5.6566 132.5874,-5.6724 132.5874,-5.6724 15,7.0,Indonesia 112.5663,-5.7246 112.5931,-5.7347 112.6089,-5.7704 112.6093,-5.7835 112.604,-5.8187 112.5962,-5.8333 112.5645,-5.8462 112.4918,-5.8527 112.4621,-5.8382 112.4563,-5.7916 112.4596,-5.778 112.5092,-5.7318 112.5535,-5.7235 112.5663,-5.7246 112.5663,-5.7246 27,8.0,Indonesia 120.3584,-5.7807 120.3573,-5.8182 120.3841,-5.8664 120.4119,-5.9548 120.4223,-5.9991 120.4241,-6.0209 120.3988,-6.2471 120.3672,-6.4195 120.3434,-6.4746 120.3363,-6.4672 120.3246,-6.3862 120.3233,-6.3706 120.332,-6.3355 120.3347,-6.3178 120.335,-6.2971 120.3081,-6.1539 120.3039,-6.0249 120.3033,-5.925 120.3032,-5.9044 120.3121,-5.8385 120.3181,-5.8105 120.3258,-5.7839 120.3369,-5.7642 120.3502,-5.7631 120.3574,-5.773 120.3584,-5.7807 120.3584,-5.7807 597,1.0,Angola 13.164,-5.8496 13.2299,-5.8545 13.3901,-5.8478 13.4432,-5.8419 13.4981,-5.8476 13.5258,-5.858 13.744,-5.8558 13.923,-5.8339 13.9575,-5.8298 13.9817,-5.8419 14.0645,-5.8597 14.2267,-5.8788 14.3253,-5.8865 14.5799,-5.9012 14.6956,-5.8738 14.7419,-5.8712 14.8344,-5.8659 15.0594,-5.8562 15.6685,-5.8505 15.7948,-5.8631 15.9103,-5.8545 16.0817,-5.8528 16.1248,-5.8497 16.1974,-5.8459 16.3011,-5.8453 16.3499,-5.8465 16.4956,-5.869 16.5608,-5.8942 16.5774,-5.9149 16.5866,-5.9749 16.5872,-6.0203 16.6665,-6.1299 16.6968,-6.1615 16.7063,-6.1905 16.6748,-6.3477 16.6696,-6.3977 16.6893,-6.4596 16.7638,-6.674 16.8151,-6.7846 16.8519,-6.8498 16.8841,-6.8558 16.9109,-6.8843 16.9505,-7.0099 16.9388,-7.0597 16.9159,-7.1045 16.9241,-7.1906 16.9753,-7.2891 17.0455,-7.3306 17.076,-7.3704 17.0862,-7.4139 17.1317,-7.4441 17.1675,-7.5044 17.2643,-7.6705 17.2899,-7.7472 17.3711,-7.8368 17.4004,-7.846 17.4187,-7.8676 17.4856,-7.9943 17.5059,-8.0445 17.5307,-8.0715 17.5356,-8.0737 17.6113,-8.0889 17.6404,-8.0834 17.7368,-8.0573 17.8696,-8.033 17.9022,-8.0373 17.9326,-8.0523 17.9568,-8.074 17.9848,-8.0977 18.0214,-8.0983 18.0951,-8.0977 18.0893,-8.072 18.0923,-8.0193 18.1756,-7.9877 18.3094,-7.9884 18.3829,-7.9999 18.505,-7.9798 18.4983,-7.9485 18.5062,-7.9281 18.7452,-7.9288 18.752,-7.9632 18.7708,-7.9897 18.9806,-7.9902 19.3512,-7.9841 19.3374,-7.926 19.3306,-7.9051 19.3278,-7.884 19.3394,-7.8039 19.3517,-7.7818 19.3657,-7.7542 19.3798,-7.6836 19.3598,-7.6108 19.3507,-7.5924 19.3532,-7.5705 19.3776,-7.5641 19.4464,-7.5604 19.5088,-7.4688 19.5062,-7.4266 19.4805,-7.3614 19.4682,-7.3079 19.4682,-7.2784 19.4768,-7.1711 19.4811,-7.1441 19.5171,-6.9887 19.9401,-6.9875 20.2886,-6.9867 20.2951,-6.9634 20.2945,-6.9431 20.3087,-6.9069 20.6065,-6.9058 20.5929,-6.9648 20.5647,-7.0229 20.5232,-7.1072 20.5105,-7.1722 20.5079,-7.2413 20.5256,-7.2754 21.1842,-7.2745 21.5788,-7.2738 21.7532,-7.273 21.7881,-7.3037 21.8156,-7.3594 21.835,-7.4683 21.8268,-7.583 21.8084,-7.627 21.8017,-7.6365 21.7926,-7.6455 21.7493,-7.7647 21.739,-7.8264 21.7248,-7.9265 21.7308,-7.9947 21.7489,-8.0143 21.7796,-8.0444 21.8118,-8.1222 21.8344,-8.1908 21.8546,-8.2741 21.885,-8.3225 21.8793,-8.334 21.8896,-8.3805 21.9123,-8.4113 21.9155,-8.4866 21.9107,-8.5366 21.9003,-8.5743 21.8662,-8.7223 21.8517,-8.7912 21.8286,-8.9237 21.8113,-9.0607 21.8172,-9.1438 21.8014,-9.2917 21.7832,-9.3356 21.7674,-9.4005 21.8264,-9.6093 21.8357,-9.6315 21.8509,-9.654 21.9993,-9.8386 22.0371,-9.8714 22.1078,-9.8905 22.1342,-9.913 22.1513,-9.9511 22.1766,-10.0718 22.183,-10.1428 22.2041,-10.1905 22.2444,-10.266 22.2895,-10.363 22.2799,-10.4109 22.248,-10.5009 22.2788,-10.5711 22.2838,-10.6007 22.2818,-10.6633 22.2906,-10.7152 22.2277,-10.7777 22.1845,-10.7968 22.166,-10.8135 22.1423,-10.8477 22.17,-10.9549 22.1933,-11.0063 22.2196,-11.0557 22.2344,-11.1711 22.2295,-11.1968 22.2744,-11.2245 22.456,-11.1181 22.4753,-11.081 22.4799,-11.052 22.4939,-11.0318 22.5428,-11.0209 22.5733,-11.0287 22.5986,-11.0486 22.622,-11.0601 22.6414,-11.0686 22.6918,-11.0809 22.7499,-11.0787 22.782,-11.0622 22.811,-11.0432 22.8318,-11.0367 22.8816,-11.0523 22.916,-11.0805 22.9916,-11.0834 23.0626,-11.0839 23.1916,-11.0641 23.2166,-11.0491 23.2682,-11.0146 23.3423,-10.9702 23.3717,-10.9577 23.3961,-10.9509 23.4304,-10.9466 23.4507,-10.9457 23.4711,-10.9466 23.4942,-10.9496 23.5171,-10.9544 23.5599,-10.9675 23.5843,-10.9776 23.6392,-10.9984 23.8324,-11.0147 23.8598,-11.0023 23.9278,-10.9215 23.9599,-10.858 23.9616,-10.9074 23.9816,-11.1102 24.0004,-11.2372 24.0579,-11.3897 24.0299,-11.4134 24.0055,-11.4393 23.9408,-11.649 23.9631,-11.6836 23.972,-11.7023 23.9856,-11.8109 23.9576,-11.8688 23.9579,-12.1979 23.977,-12.2156 24.0043,-12.2436 24.0122,-12.2631 24.0158,-12.2837 24.0239,-12.3784 23.9585,-12.4777 23.9446,-12.4984 23.86,-12.7491 23.8652,-12.8109 23.8849,-12.8379 23.9193,-12.8657 23.9348,-12.8816 23.9675,-12.9186 23.9793,-12.9385 23.9922,-12.9848 23.8531,-12.9923 23.5581,-12.9918 23.3967,-12.9906 23.2562,-12.9907 22.97,-12.9898 22.4748,-12.9903 21.9766,-12.9898 21.9714,-13.3004 21.9718,-13.4374 21.973,-13.6823 21.9728,-13.7116 21.9732,-13.9005 21.9741,-13.9516 21.9743,-13.9908 21.9741,-14.4361 21.9732,-14.7274 21.9735,-14.8302 21.9731,-14.8816 21.9734,-14.9331 21.9738,-15.4338 21.9738,-15.588 21.9728,-15.982 21.9736,-16.1046 21.9741,-16.1533 21.988,-16.1652 22.041,-16.2158 22.0855,-16.3042 22.0976,-16.3301 22.105,-16.3635 22.1084,-16.4673 22.1619,-16.5222 22.191,-16.5428 22.2667,-16.5935 22.4669,-16.7619 22.7031,-17.0221 22.7351,-17.0507 23.0371,-17.3123 23.1736,-17.4601 23.426,-17.5959 23.4479,-17.6059 23.261,-17.6412 23.2568,-17.6426 22.9687,-17.6968 22.8824,-17.7134 22.8536,-17.7195 22.5369,-17.7789 22.2635,-17.8298 21.729,-17.9269 21.3535,-17.9945 21.2378,-17.9361 21.2112,-17.9187 21.1402,-17.9113 21.113,-17.9142 20.9962,-17.9329 20.9282,-17.948 20.8646,-17.9742 20.8291,-17.996 20.7565,-17.9898 20.7268,-17.9756 20.6134,-17.9582 20.5706,-17.9609 20.5289,-17.9628 20.4679,-17.9218 20.4204,-17.8816 20.2969,-17.8372 20.2465,-17.8412 20.2203,-17.8601 20.1047,-17.8741 20.0746,-17.876 19.9929,-17.8705 19.9471,-17.8601 19.9222,-17.8431 19.8964,-17.837 19.7949,-17.8378 19.774,-17.8434 19.6777,-17.8505 19.5357,-17.8473 19.4223,-17.8424 19.3899,-17.841 19.3139,-17.8238 19.2756,-17.805 19.2224,-17.7863 19.1522,-17.7808 19.1106,-17.7841 19.0939,-17.7992 19.0327,-17.8076 19.003,-17.8099 18.961,-17.8057 18.8965,-17.7963 18.7818,-17.7486 18.7313,-17.7254 18.6196,-17.6282 18.556,-17.5522 18.4912,-17.4532 18.4293,-17.3703 18.368,-17.3672 18.1669,-17.3676 18.0953,-17.3671 17.979,-17.3664 17.7124,-17.3694 17.5406,-17.3711 17.4895,-17.3722 17.2582,-17.3727 16.5861,-17.371 15.9843,-17.3672 15.9375,-17.3669 15.5642,-17.3695 15.4783,-17.3698 14.9759,-17.3699 14.617,-17.3685 14.4306,-17.3678 14.3443,-17.3675 14.201,-17.3674 14.1778,-17.3915 14.1544,-17.4016 14.066,-17.4102 14.0343,-17.3999 13.9999,-17.3913 13.9764,-17.4042 13.9122,-17.3815 13.8247,-17.3039 13.6815,-17.222 13.6443,-17.1993 13.5119,-17.0681 13.4783,-17.0063 13.456,-16.9914 13.3599,-16.9517 13.3303,-16.9515 13.3019,-16.959 13.2451,-16.9656 13.1931,-16.9545 13.155,-16.9371 13.1335,-16.9351 13.0029,-16.9588 12.9702,-16.9717 12.908,-16.997 12.8644,-17.0209 12.8362,-17.0533 12.8025,-17.0877 12.5893,-17.2064 12.542,-17.224 12.464,-17.2221 12.4193,-17.1934 12.2776,-17.2104 12.2234,-17.1957 12.1912,-17.1752 12.0733,-17.117 12.0337,-17.1244 11.9619,-17.1448 11.9187,-17.1613 11.8881,-17.1863 11.8702,-17.2051 11.7976,-17.2506 11.7386,-17.2354 11.7443,-17.1201 11.758,-16.9467 11.7593,-16.8075 11.7984,-16.7722 11.8069,-16.6835 11.8082,-16.654 11.8066,-16.4844 11.8055,-16.453 11.8036,-16.4287 11.8014,-16.4049 11.7962,-16.3519 11.7936,-16.3289 11.7802,-16.2234 11.7723,-16.1779 11.7674,-16.0711 11.7775,-16.0346 11.7916,-16.0066 11.7963,-15.9821 11.789,-15.95 11.7574,-15.9062 11.7275,-15.8607 11.7172,-15.8327 11.7273,-15.8017 11.7594,-15.7659 11.7975,-15.7615 11.8138,-15.7816 11.8433,-15.7702 11.8767,-15.7374 11.9916,-15.579 12.0009,-15.5517 12.0197,-15.4778 12.022,-15.4464 12.0167,-15.411 12.016,-15.3846 12.0433,-15.2012 12.0917,-15.0969 12.1449,-14.9717 12.1911,-14.8609 12.233,-14.7727 12.2592,-14.7357 12.2636,-14.6513 12.2678,-14.6209 12.2864,-14.5127 12.3016,-14.4497 12.3181,-14.4078 12.3261,-14.3806 12.3335,-14.2913 12.3272,-14.2437 12.3121,-14.2145 12.303,-14.1741 12.3182,-14.0891 12.3436,-14.0254 12.3945,-13.9347 12.4687,-13.8617 12.4903,-13.8287 12.5216,-13.5623 12.5178,-13.5524 12.5089,-13.5374 12.4984,-13.4092 12.526,-13.3851 12.7521,-13.1777 12.8479,-13.0708 12.9236,-12.9795 12.9475,-12.9334 12.9366,-12.9119 12.9124,-12.8422 12.9179,-12.8124 12.9556,-12.7701 13.1107,-12.6412 13.1834,-12.5952 13.2151,-12.5986 13.3394,-12.5892 13.3608,-12.5759 13.4443,-12.4944 13.4574,-12.4698 13.4588,-12.4425 13.4585,-12.4208 13.471,-12.3913 13.4931,-12.3582 13.5104,-12.3367 13.5417,-12.3092 13.5608,-12.2984 13.6472,-12.1559 13.7491,-11.9224 13.777,-11.7815 13.7793,-11.7454 13.7775,-11.7353 13.7713,-11.7025 13.7603,-11.5641 13.7638,-11.5037 13.7765,-11.3213 13.8011,-11.2902 13.8325,-11.0829 13.8385,-10.9903 13.8344,-10.9438 13.8208,-10.9091 13.7668,-10.839 13.7094,-10.7534 13.7257,-10.7179 13.7547,-10.6883 13.7534,-10.6608 13.7314,-10.6308 13.6278,-10.5192 13.5241,-10.4119 13.5084,-10.3862 13.506,-10.3626 13.515,-10.3349 13.4965,-10.2702 13.4737,-10.2393 13.465,-10.2295 13.434,-10.1849 13.3016,-9.9517 13.3197,-9.9391 13.3147,-9.8983 13.2904,-9.8404 13.2759,-9.8173 13.2389,-9.7646 13.2079,-9.6374 13.2089,-9.6022 13.1555,-9.3979 13.1281,-9.3271 13.1021,-9.2906 12.9702,-9.0708 12.9885,-9.0117 13.0144,-8.9513 13.0618,-8.9071 13.1167,-8.8716 13.0896,-8.897 13.0741,-8.917 13.056,-8.9322 13.0405,-8.9457 13.0152,-8.9759 12.993,-9.0241 12.9861,-9.0445 12.9992,-9.0765 13.041,-9.0144 13.0852,-8.9474 13.1758,-8.8514 13.2637,-8.7711 13.3457,-8.7585 13.3727,-8.7303 13.3926,-8.6491 13.3854,-8.6207 13.3541,-8.5716 13.3364,-8.4948 13.3346,-8.4579 13.3644,-8.4492 13.377,-8.3843 13.3549,-8.3197 13.3371,-8.2911 13.3042,-8.2479 13.2444,-8.1564 13.201,-8.0562 13.1851,-8.0195 13.1802,-7.9999 13.1408,-7.9052 13.1013,-7.8127 13.0931,-7.7938 13.0865,-7.7832 13.0731,-7.7657 13.0577,-7.7412 12.9957,-7.5848 12.9699,-7.5182 12.9373,-7.4295 12.8548,-7.2603 12.8276,-7.0791 12.8187,-7.0113 12.8139,-6.9825 12.8032,-6.9421 12.6512,-6.7587 12.5844,-6.6877 12.5536,-6.6629 12.5348,-6.6474 12.522,-6.6252 12.448,-6.4662 12.3488,-6.2502 12.327,-6.2155 12.2993,-6.188 12.2493,-6.1273 12.2326,-6.0965 12.2428,-6.0705 12.266,-6.0565 12.2921,-6.053 12.3007,-6.0904 12.3944,-6.0698 12.5137,-6.0409 12.5656,-6.0293 12.7134,-6.0123 12.7806,-6.0094 12.8121,-5.9999 12.8769,-5.9693 12.9161,-5.9389 12.9306,-5.9121 12.9383,-5.8928 12.9651,-5.8776 13.0447,-5.8715 13.0773,-5.8914 13.1108,-5.8845 13.1578,-5.8571 13.164,-5.8496 13.164,-5.8496 548,7.0,Indonesia 113.4294,-8.4258 113.3152,-8.3697 113.1898,-8.298 113.1655,-8.2872 113.1505,-8.2816 113.1064,-8.2715 113.075,-8.2682 113.0559,-8.2681 113.0316,-8.2707 112.9829,-8.2781 112.9533,-8.283 112.9012,-8.2938 112.8619,-8.3139 112.8424,-8.3287 112.8337,-8.3406 112.8227,-8.3636 112.806,-8.3808 112.7927,-8.3878 112.7758,-8.3917 112.5208,-8.4247 112.3977,-8.3865 112.2385,-8.3332 112.1662,-8.3214 112.0412,-8.3075 111.822,-8.2742 111.7316,-8.2585 111.6622,-8.2513 111.5904,-8.2857 111.5697,-8.3282 111.5782,-8.3445 111.5266,-8.3531 111.3226,-8.3045 111.261,-8.2682 110.9882,-8.2324 110.9549,-8.2398 110.9444,-8.2431 110.9212,-8.2474 110.8938,-8.2474 110.792,-8.2125 110.7096,-8.1924 110.6616,-8.1856 110.6487,-8.1848 110.5944,-8.1879 110.3467,-8.0987 110.2563,-8.065 110.2446,-8.0559 110.0907,-7.9713 109.9947,-7.9299 109.9609,-7.909 109.9329,-7.8883 109.9138,-7.8804 109.7959,-7.8411 109.5796,-7.789 109.4606,-7.7668 109.3867,-7.7585 109.2749,-7.7141 109.167,-7.6908 109.1421,-7.6879 109.0348,-7.6817 108.9957,-7.6838 108.9486,-7.691 108.9315,-7.6948 108.9197,-7.7033 108.8692,-7.7083 108.7721,-7.6839 108.7643,-7.6728 108.7601,-7.6568 108.7577,-7.6323 108.6869,-7.6478 108.6576,-7.6727 108.5629,-7.671 108.459,-7.6776 108.4414,-7.6803 108.406,-7.6896 108.3948,-7.6955 108.383,-7.7123 108.3818,-7.7299 108.384,-7.7516 108.3784,-7.7769 108.3526,-7.7954 108.3388,-7.7985 108.3053,-7.7977 108.2594,-7.7959 108.0655,-7.7776 108.0415,-7.7741 108.0196,-7.7687 107.9493,-7.7503 107.8,-7.7093 107.7086,-7.6805 107.6851,-7.6633 107.6738,-7.6605 107.5615,-7.6169 107.5159,-7.58 107.4992,-7.5691 107.4547,-7.5457 107.4321,-7.534 107.3478,-7.4958 107.2758,-7.4847 107.1968,-7.4798 107.0811,-7.4667 106.962,-7.4397 106.5894,-7.4111 106.4711,-7.4118 106.4578,-7.411 106.4472,-7.4085 106.3032,-7.363 106.2863,-7.3417 106.2679,-7.3019 106.2647,-7.2883 106.2595,-7.2346 106.2813,-7.1985 106.2919,-7.1823 106.3442,-7.1267 106.3551,-7.1169 106.3698,-7.1077 106.389,-7.0959 106.4048,-7.0845 106.4153,-7.0743 106.4247,-7.0598 106.4253,-7.0369 106.4193,-7.0021 106.415,-6.9892 106.4071,-6.9807 106.3862,-6.9702 106.324,-6.9582 106.3082,-6.9671 106.2947,-6.9804 106.2645,-6.9916 106.249,-6.9962 106.2372,-6.9981 106.2049,-6.9941 106.166,-6.9792 106.0515,-6.9092 106.027,-6.8928 106.0071,-6.8781 105.9826,-6.8615 105.9565,-6.8466 105.9156,-6.8286 105.8982,-6.8234 105.8804,-6.8208 105.8166,-6.8173 105.8032,-6.8173 105.565,-6.8353 105.4898,-6.8475 105.4731,-6.8512 105.4486,-6.8608 105.4293,-6.8658 105.364,-6.8614 105.3539,-6.8539 105.3273,-6.8371 105.2512,-6.812 105.2395,-6.8099 105.2013,-6.807 105.1856,-6.8074 105.1241,-6.8024 105.0967,-6.7676 105.1316,-6.763 105.1433,-6.7612 105.1547,-6.7556 105.1995,-6.7147 105.2874,-6.7343 105.3052,-6.7645 105.3377,-6.8071 105.3478,-6.814 105.3629,-6.81 105.3718,-6.8012 105.495,-6.6381 105.5073,-6.62 105.5101,-6.6098 105.5064,-6.5544 105.5075,-6.4811 105.5118,-6.4687 105.5173,-6.4603 105.5278,-6.4504 105.54,-6.4454 105.5532,-6.456 105.5598,-6.4838 105.5647,-6.4926 105.5733,-6.5041 105.5927,-6.5127 105.6491,-6.489 105.6606,-6.4804 105.6811,-6.4597 105.6856,-6.451 105.694,-6.4319 105.7026,-6.4029 105.7119,-6.3051 105.7116,-6.2821 105.708,-6.2585 105.7082,-6.2449 105.7119,-6.221 105.7171,-6.1991 105.7545,-6.0794 105.7594,-6.0706 105.882,-5.905 105.8929,-5.8958 105.9132,-5.8822 105.9262,-5.8774 105.9553,-5.8753 105.9773,-5.8873 105.9868,-5.9017 105.9892,-5.9228 105.9891,-5.9364 105.9866,-5.9541 105.9882,-5.97 105.9964,-5.9855 106.008,-5.9944 106.0225,-6.0005 106.0424,-6.0072 106.0632,-6.0109 106.0803,-6.0071 106.0893,-5.9991 106.0968,-5.9863 106.1098,-5.9583 106.1186,-5.9469 106.1303,-5.9378 106.1435,-5.9339 106.159,-5.9352 106.1693,-5.9384 106.2105,-5.9659 106.3447,-6.0296 106.3543,-6.0338 106.3718,-6.0358 106.3921,-6.0236 106.4059,-6.0104 106.4229,-5.9997 106.5807,-6.0075 106.5916,-6.0134 106.5988,-6.0268 106.6066,-6.0596 106.6104,-6.0701 106.6202,-6.084 106.6343,-6.0937 106.6826,-6.0915 106.7798,-6.0834 106.806,-6.0814 106.8315,-6.0804 106.8621,-6.077 106.8732,-6.0743 106.8822,-6.0663 106.8929,-6.0406 106.8964,-6.0304 106.8958,-5.9645 106.8918,-5.9177 106.9023,-5.9078 106.9168,-5.9093 106.9813,-5.9298 106.9897,-5.9355 106.9975,-5.9446 107.003,-5.9529 107.0214,-5.9694 107.0352,-5.976 107.0463,-5.9785 107.0661,-5.9781 107.077,-5.9752 107.1008,-5.965 107.1448,-5.9471 107.157,-5.946 107.1709,-5.9459 107.1837,-5.9469 107.1982,-5.9493 107.21,-5.9547 107.2385,-5.9745 107.2462,-5.9807 107.2686,-6.0057 107.2861,-6.0299 107.3144,-6.0759 107.4276,-6.165 107.5162,-6.2346 107.5282,-6.2429 107.5446,-6.247 107.5721,-6.2471 107.6014,-6.2424 107.6189,-6.2373 107.7541,-6.2224 107.9452,-6.3259 107.965,-6.3331 107.9766,-6.3354 108.0025,-6.3366 108.0294,-6.3359 108.0485,-6.3346 108.0651,-6.3276 108.0706,-6.3153 108.0614,-6.2962 108.0888,-6.2591 108.1122,-6.2488 108.1764,-6.2507 108.1903,-6.2544 108.2067,-6.272 108.2318,-6.3115 108.2848,-6.3814 108.2936,-6.3931 108.3007,-6.4006 108.3273,-6.4285 108.3443,-6.4454 108.3607,-6.4566 108.3801,-6.4646 108.4009,-6.4748 108.4126,-6.4838 108.421,-6.496 108.4243,-6.506 108.4301,-6.5551 108.4394,-6.6339 108.4429,-6.6509 108.4493,-6.6786 108.4539,-6.6944 108.4679,-6.7283 108.4724,-6.7373 108.4805,-6.7493 108.4978,-6.7663 108.5077,-6.7707 108.5897,-6.8017 108.6146,-6.8074 108.6426,-6.8104 108.6628,-6.8104 108.6976,-6.7907 108.7068,-6.786 108.762,-6.7986 108.8696,-6.8315 109.1576,-6.8744 109.1845,-6.8752 109.1976,-6.8744 109.2811,-6.8624 109.2919,-6.8596 109.3083,-6.8554 109.3253,-6.8497 109.3359,-6.8432 109.3425,-6.8356 109.3981,-6.8235 109.5164,-6.8486 109.6528,-6.8827 109.6944,-6.8961 109.7422,-6.9097 109.8094,-6.9178 109.867,-6.9221 109.8802,-6.9213 109.971,-6.903 109.9872,-6.8992 109.9978,-6.8956 110.0102,-6.8913 110.025,-6.8819 110.0779,-6.8897 110.0868,-6.8941 110.2106,-6.9615 110.2249,-6.9676 110.2505,-6.9731 110.2688,-6.9711 110.3414,-6.9437 110.3507,-6.9397 110.3659,-6.9275 110.3827,-6.9097 110.4354,-6.8468 110.4541,-6.818 110.4963,-6.7379 110.5028,-6.7238 110.5205,-6.6736 110.5243,-6.6603 110.5347,-6.6074 110.5368,-6.5823 110.5369,-6.5701 110.537,-6.5534 110.5566,-6.5138 110.5762,-6.4869 110.6041,-6.4518 110.6424,-6.4334 110.7275,-6.4095 110.8013,-6.4036 110.9001,-6.4331 110.9323,-6.459 110.9591,-6.5379 110.9628,-6.5513 110.9618,-6.5733 110.9638,-6.5848 110.9703,-6.5992 110.9769,-6.6128 110.9856,-6.6312 111.0049,-6.6664 111.023,-6.6894 111.0748,-6.6965 111.2248,-6.7078 111.2387,-6.7078 111.2569,-6.7057 111.2844,-6.6991 111.3042,-6.6918 111.315,-6.6854 111.3249,-6.6712 111.3293,-6.6589 111.3388,-6.6382 111.3488,-6.6273 111.365,-6.6224 111.4613,-6.6478 111.4862,-6.6672 111.4966,-6.6774 111.5132,-6.6938 111.5223,-6.7047 111.5334,-6.721 111.5432,-6.7318 111.5615,-6.7474 111.5903,-6.7663 111.5952,-6.7684 111.6275,-6.7774 111.7896,-6.7897 111.8089,-6.7812 111.827,-6.7761 111.8429,-6.7762 111.8614,-6.7847 111.8983,-6.8295 111.913,-6.8494 111.9177,-6.8584 111.9257,-6.8703 111.9373,-6.8861 111.9531,-6.8993 111.9678,-6.9036 111.9798,-6.9051 111.9999,-6.9058 112.0322,-6.9038 112.0557,-6.9004 112.0854,-6.8958 112.1477,-6.8827 112.2056,-6.8657 112.2181,-6.8642 112.3165,-6.868 112.433,-6.9041 112.4812,-7.0356 112.5498,-7.1572 112.5533,-7.1745 112.5469,-7.1903 112.5382,-7.1954 112.5244,-7.1933 112.5038,-7.186 112.4887,-7.1843 112.4778,-7.1919 112.4902,-7.208 112.5294,-7.2306 112.538,-7.2354 112.5527,-7.2414 112.5675,-7.2468 112.5792,-7.2446 112.5889,-7.2372 112.5943,-7.2256 112.604,-7.2082 112.6177,-7.1982 112.632,-7.1952 112.6437,-7.1972 112.655,-7.2027 112.6701,-7.2182 112.6815,-7.2345 112.686,-7.2432 112.7013,-7.2842 112.6863,-7.3941 112.6791,-7.4016 112.6601,-7.4163 112.6343,-7.4286 112.63,-7.4419 112.6363,-7.5039 112.6514,-7.5353 112.6913,-7.5704 112.7102,-7.5856 112.7211,-7.5921 112.8398,-7.6341 112.9659,-7.6957 112.9843,-7.7084 113.0451,-7.7363 113.1721,-7.7834 113.2136,-7.7726 113.2234,-7.7684 113.2389,-7.7571 113.2497,-7.7475 113.2616,-7.7389 113.2752,-7.7319 113.3659,-7.6932 113.3775,-7.6912 113.4416,-7.6984 113.4641,-7.7021 113.5537,-7.7138 113.6409,-7.7226 113.6545,-7.7226 113.7975,-7.6811 113.8111,-7.6743 113.8331,-7.6555 113.8603,-7.6282 113.8932,-7.6058 113.9099,-7.6031 113.9303,-7.6148 113.9482,-7.6313 113.957,-7.6429 113.9695,-7.6611 113.9964,-7.6855 114.0089,-7.6934 114.0179,-7.6981 114.185,-7.7414 114.239,-7.7489 114.2541,-7.7509 114.3116,-7.7855 114.3199,-7.7915 114.3335,-7.812 114.3377,-7.8217 114.3408,-7.8686 114.2738,-8.1983 114.2643,-8.2438 114.2593,-8.266 114.2565,-8.2768 114.2519,-8.2923 114.2443,-8.319 114.2388,-8.3475 114.2293,-8.426 114.2452,-8.5138 114.3365,-8.6197 114.3465,-8.6175 114.3664,-8.6127 114.4566,-8.6531 114.4814,-8.6792 114.4936,-8.6976 114.4961,-8.7122 114.4941,-8.7337 114.4828,-8.7596 114.4635,-8.7677 114.4409,-8.7724 114.4278,-8.7719 114.4053,-8.7673 114.2929,-8.736 114.252,-8.7089 114.2637,-8.697 114.2683,-8.6775 114.2659,-8.6663 114.2612,-8.6574 114.2519,-8.6463 114.2404,-8.6379 114.2264,-8.631 114.1654,-8.6032 114.1529,-8.5991 114.1366,-8.5995 114.1196,-8.6095 114.1039,-8.6275 114.0887,-8.6367 113.9712,-8.6309 113.9348,-8.6261 113.837,-8.5903 113.7449,-8.5519 113.6104,-8.5226 113.5945,-8.5215 113.5344,-8.4829 113.5254,-8.4748 113.5205,-8.4627 113.5136,-8.4521 113.487,-8.4381 113.4294,-8.4258 113.4294,-8.4258 36,9.0,Indonesia 134.3253,-5.9818 134.3369,-5.9766 134.3561,-5.9693 134.3734,-5.9635 134.4539,-5.9461 134.4893,-5.9426 134.5767,-6.0276 134.5951,-6.0537 134.6007,-6.0617 134.6139,-6.083 134.6169,-6.0964 134.5917,-6.2319 134.5876,-6.2413 134.5659,-6.2877 134.5551,-6.3041 134.5406,-6.3167 134.5207,-6.3313 134.4527,-6.3621 134.3963,-6.3475 134.3858,-6.3376 134.3749,-6.3212 134.3408,-6.2871 134.2756,-6.2591 134.2448,-6.2523 134.182,-6.2175 134.135,-6.1516 134.116,-6.1079 134.1189,-6.0929 134.1317,-6.054 134.1402,-6.0421 134.1599,-6.035 134.2137,-6.0299 134.2708,-6.0108 134.2924,-6.0007 134.3253,-5.9818 134.3253,-5.9818 25,9.0,Indonesia 134.062,-6.0194 134.0705,-6.0235 134.0872,-6.0698 134.0892,-6.0908 134.0757,-6.1216 134.0791,-6.1339 134.1757,-6.2297 134.1847,-6.2346 134.2173,-6.2507 134.2515,-6.2745 134.2123,-6.3012 134.1806,-6.3192 134.0876,-6.2446 133.978,-6.1441 133.9675,-6.1272 133.9601,-6.1037 133.9598,-6.087 133.9683,-6.0378 133.9749,-6.0269 133.9996,-6.0057 133.9997,-6.0277 134.0059,-6.0403 134.037,-6.0395 134.062,-6.0194 134.062,-6.0194 42,9.0,Indonesia 133.9686,-6.1632 134.0395,-6.2168 134.0645,-6.2293 134.1244,-6.2897 134.1449,-6.2979 134.1474,-6.3112 134.1326,-6.332 134.1517,-6.3571 134.179,-6.3806 134.2419,-6.4065 134.2769,-6.4372 134.3019,-6.4392 134.3089,-6.4494 134.3633,-6.5849 134.3596,-6.5989 134.3412,-6.6345 134.3271,-6.6512 134.3071,-6.6636 134.2835,-6.6794 134.2537,-6.7105 134.1918,-6.7932 134.201,-6.7978 134.2115,-6.8006 134.2092,-6.8106 134.1708,-6.8473 134.0486,-6.9128 134.0309,-6.9135 133.9167,-6.8208 133.8996,-6.7698 133.8994,-6.7541 133.9418,-6.5138 133.9712,-6.434 133.9734,-6.3367 133.9719,-6.2905 133.9694,-6.2788 133.9588,-6.2407 133.9486,-6.2203 133.9409,-6.2041 133.9382,-6.1854 133.9522,-6.1658 133.9686,-6.1632 133.9686,-6.1632 22,9.0,Indonesia 134.3001,-6.2806 134.3113,-6.2944 134.4043,-6.3652 134.421,-6.3726 134.4362,-6.3881 134.445,-6.3998 134.4512,-6.4174 134.4462,-6.4354 134.3911,-6.5262 134.3754,-6.5226 134.3571,-6.5096 134.3326,-6.4638 134.3031,-6.4202 134.2837,-6.4248 134.2337,-6.3865 134.2086,-6.3854 134.1932,-6.3526 134.2257,-6.3143 134.2561,-6.2923 134.295,-6.2776 134.3001,-6.2806 134.3001,-6.2806 15,9.0,Indonesia 134.7322,-6.3011 134.7359,-6.3217 134.7338,-6.3365 134.6803,-6.4621 134.6633,-6.4626 134.6469,-6.4516 134.6392,-6.4385 134.6356,-6.3829 134.6404,-6.3709 134.6878,-6.2858 134.7014,-6.2821 134.7188,-6.2855 134.7305,-6.2941 134.7322,-6.3011 134.7322,-6.3011 13,7.0,Indonesia 105.1418,-6.5258 105.1442,-6.537 105.1421,-6.6048 105.1312,-6.6316 105.0762,-6.6757 105.066,-6.6759 104.9985,-6.6187 104.9953,-6.6034 105.0454,-6.559 105.067,-6.547 105.1352,-6.5214 105.1418,-6.5258 105.1418,-6.5258 15,9.0,Indonesia 134.5572,-6.5837 134.567,-6.5883 134.5779,-6.598 134.5865,-6.6095 134.5891,-6.6211 134.5691,-6.6827 134.5147,-6.7667 134.494,-6.762 134.4717,-6.7436 134.474,-6.7078 134.5233,-6.6046 134.5326,-6.5871 134.5423,-6.5797 134.5572,-6.5837 134.5572,-6.5837 22,9.0,Indonesia 138.4771,-6.7216 138.498,-6.7411 138.5064,-6.7467 138.5333,-6.7538 138.5578,-6.757 138.5711,-6.7569 138.5814,-6.7603 138.5919,-6.7705 138.6125,-6.7984 138.6287,-6.8297 138.5884,-6.8601 138.5715,-6.8652 138.5551,-6.8634 138.5453,-6.8597 138.5284,-6.8494 138.4612,-6.7611 138.4549,-6.7466 138.4537,-6.7315 138.4607,-6.7212 138.4713,-6.7181 138.4771,-6.7216 138.4771,-6.7216 35,7.0,Indonesia 115.1627,-6.8311 115.1861,-6.8316 115.1982,-6.8314 115.219,-6.8315 115.2647,-6.8338 115.3023,-6.8371 115.3314,-6.8427 115.3552,-6.8525 115.4044,-6.8784 115.4294,-6.8946 115.4399,-6.913 115.433,-6.9316 115.4159,-6.9427 115.371,-6.9294 115.3351,-6.9168 115.3132,-6.908 115.256,-6.9041 115.2116,-6.9298 115.2176,-6.9384 115.2272,-6.9424 115.2436,-6.9463 115.2589,-6.9551 115.2637,-6.9642 115.2593,-6.9752 115.1654,-7.0001 115.1403,-6.9866 115.0846,-6.9249 115.0815,-6.9144 115.0807,-6.9018 115.0839,-6.8917 115.1166,-6.8335 115.1272,-6.827 115.1408,-6.8268 115.1627,-6.8311 115.1627,-6.8311 46,7.0,Indonesia 112.8117,-6.8853 112.8739,-6.8793 112.9746,-6.8759 113.1841,-6.8846 113.4233,-6.8873 113.6377,-6.8792 113.7438,-6.8648 113.7775,-6.8574 113.8121,-6.8575 113.8429,-6.8644 113.8624,-6.8723 113.9755,-6.9234 113.9942,-6.9417 113.999,-6.9654 113.9373,-6.996 113.857,-7.0111 113.7638,-7.0307 113.7312,-7.0571 113.6989,-7.1157 113.6214,-7.1048 113.5761,-7.1022 113.5492,-7.1047 113.4964,-7.117 113.4322,-7.1616 113.4208,-7.1805 113.3759,-7.2169 113.3129,-7.2194 113.2731,-7.221 113.046,-7.2133 112.9783,-7.1819 112.8543,-7.1919 112.7275,-7.1613 112.6977,-7.1572 112.6591,-7.1542 112.615,-7.1561 112.5895,-7.1406 112.5669,-7.0842 112.5606,-7.0395 112.5755,-7.0258 112.6163,-7.0169 112.6428,-6.9955 112.6861,-6.9438 112.7113,-6.9007 112.794,-6.8855 112.8117,-6.8853 112.8117,-6.8853 16,8.0,Indonesia 120.5218,-7.0145 120.5477,-7.0364 120.6123,-7.068 120.6266,-7.0641 120.6391,-7.0522 120.6472,-7.0625 120.6475,-7.0792 120.6448,-7.0899 120.6334,-7.1258 120.5366,-7.1385 120.5163,-7.1265 120.5017,-7.114 120.4887,-7.0769 120.4975,-7.0078 120.5218,-7.0145 120.5218,-7.0145 17,7.0,Indonesia 114.1977,-7.0557 114.2068,-7.054 114.2285,-7.0533 114.2412,-7.0579 114.2506,-7.0688 114.2669,-7.0933 114.2785,-7.1156 114.2893,-7.1582 114.2733,-7.1729 114.2597,-7.1758 114.197,-7.1563 114.1683,-7.1003 114.1635,-7.088 114.1634,-7.0771 114.1799,-7.0609 114.1977,-7.0557 114.1977,-7.0557 16,9.0,Indonesia 128.4781,-7.057 128.5535,-7.1004 128.5578,-7.1116 128.5343,-7.1688 128.5096,-7.2002 128.492,-7.2115 128.4814,-7.2099 128.394,-7.1556 128.381,-7.1318 128.3845,-7.1199 128.4029,-7.0987 128.4393,-7.0737 128.4518,-7.0656 128.4728,-7.0562 128.4781,-7.057 128.4781,-7.057 24,9.0,Indonesia 131.7672,-7.096 131.778,-7.0987 131.8253,-7.1675 131.8303,-7.1761 131.8391,-7.2132 131.8237,-7.2431 131.8131,-7.2463 131.765,-7.2123 131.757,-7.1999 131.7554,-7.1811 131.7501,-7.1694 131.7414,-7.1614 131.7301,-7.1585 131.6844,-7.1511 131.6727,-7.1533 131.6514,-7.1578 131.6169,-7.1658 131.5872,-7.1599 131.5796,-7.1473 131.58,-7.1312 131.585,-7.1198 131.6017,-7.1084 131.7672,-7.096 131.7672,-7.096 36,9.0,Indonesia 131.4972,-7.1086 131.5052,-7.1081 131.5619,-7.1361 131.5915,-7.2004 131.5493,-7.2187 131.5275,-7.2144 131.4919,-7.2434 131.5221,-7.3952 131.5309,-7.432 131.5308,-7.4727 131.4819,-7.6206 131.4242,-7.6952 131.341,-7.762 131.2536,-7.8212 131.2295,-7.855 131.1968,-7.9129 131.1975,-7.9558 131.1932,-7.9854 131.1822,-8.0053 131.1555,-8.019 130.9892,-8.0029 130.9617,-7.9894 130.9371,-7.857 131.0422,-7.6762 131.029,-7.6466 131.0406,-7.607 131.0519,-7.5775 131.0891,-7.4825 131.1585,-7.4246 131.1855,-7.414 131.2379,-7.3644 131.3086,-7.2787 131.3867,-7.1401 131.4305,-7.1162 131.4972,-7.1086 131.4972,-7.1086 22,8.0,Indonesia 120.6945,-7.257 120.7018,-7.2604 120.7343,-7.2693 120.7951,-7.2752 120.8245,-7.2766 120.8588,-7.2724 120.8908,-7.2779 120.9167,-7.286 120.9265,-7.2937 120.9222,-7.305 120.9075,-7.3207 120.8956,-7.3265 120.8765,-7.3276 120.863,-7.3274 120.6801,-7.2972 120.6663,-7.2901 120.6553,-7.281 120.655,-7.2671 120.663,-7.2582 120.6783,-7.2516 120.6945,-7.257 120.6945,-7.257 15,9.0,Indonesia 130.8891,-7.409 131.0172,-7.3952 131.0296,-7.4032 131.0242,-7.4179 130.9866,-7.4549 130.9253,-7.5029 130.9128,-7.5039 130.8474,-7.4783 130.8365,-7.4653 130.8342,-7.4476 130.8524,-7.42 130.8625,-7.4129 130.8828,-7.4091 130.8891,-7.409 130.8891,-7.409 18,9.0,Indonesia 127.2726,-7.5039 127.3413,-7.5257 127.345,-7.5406 127.3447,-7.5601 127.342,-7.5715 127.3377,-7.5808 127.3105,-7.6011 127.2509,-7.6425 127.236,-7.6496 127.2159,-7.646 127.2069,-7.6377 127.2022,-7.6224 127.2037,-7.6078 127.2234,-7.5075 127.2322,-7.4991 127.2441,-7.494 127.2726,-7.5039 127.2726,-7.5039 45,9.0,Indonesia 125.8307,-7.65 125.8723,-7.6655 125.9587,-7.6925 126.0439,-7.7125 126.197,-7.6861 126.21,-7.6784 126.2322,-7.6624 126.241,-7.6442 126.2686,-7.6239 126.3431,-7.5897 126.4,-7.5723 126.4759,-7.5562 126.4881,-7.5649 126.4899,-7.5799 126.488,-7.5947 126.4927,-7.6036 126.5768,-7.6627 126.592,-7.6649 126.6232,-7.6635 126.648,-7.741 126.6343,-7.7408 126.5666,-7.744 126.5309,-7.7531 126.4695,-7.7733 126.4171,-7.8101 126.3834,-7.846 126.3746,-7.8573 126.3662,-7.8695 126.3615,-7.8785 126.2764,-7.923 126.1362,-7.9072 125.9897,-7.8781 125.9784,-7.8755 125.9206,-7.8772 125.8551,-7.8865 125.7877,-7.9046 125.7563,-7.9313 125.7004,-7.9774 125.659,-8.008 125.6418,-8.0114 125.6314,-7.9969 125.6716,-7.8433 125.7726,-7.728 125.8307,-7.65 125.8307,-7.65 26,9.0,Indonesia 129.4867,-7.7898 129.5248,-7.7829 129.5402,-7.7809 129.5556,-7.782 129.6741,-7.8139 129.6968,-7.8322 129.7172,-7.9026 129.717,-7.9151 129.712,-7.9275 129.7009,-7.9437 129.6319,-8.0442 129.6218,-8.0513 129.6094,-8.0512 129.5494,-8.0337 129.5309,-8.0182 129.4649,-7.9341 129.4472,-7.9109 129.4389,-7.8987 129.4305,-7.8765 129.4395,-7.8345 129.4449,-7.8126 129.4512,-7.8023 129.4613,-7.795 129.4737,-7.7902 129.4867,-7.7898 129.4867,-7.7898 69,8.0,Indonesia 114.3505,-8.0808 114.3735,-8.0838 114.5889,-8.1339 114.6167,-8.1506 114.6394,-8.1624 114.7086,-8.1786 114.7494,-8.1814 114.8652,-8.1769 114.8876,-8.1717 114.9109,-8.1577 114.9707,-8.1028 114.9946,-8.0787 115.0165,-8.0593 115.0373,-8.05 115.0668,-8.049 115.2319,-8.1048 115.2654,-8.1192 115.3319,-8.1481 115.3732,-8.1692 115.3997,-8.1834 115.4318,-8.2058 115.5795,-8.3508 115.5848,-8.3753 115.5806,-8.395 115.5634,-8.4186 115.4863,-8.4843 115.3739,-8.5411 115.3179,-8.5598 115.2667,-8.5776 115.2476,-8.5856 115.2097,-8.6054 115.1697,-8.6371 115.1396,-8.6942 115.0946,-8.7152 115.0778,-8.731 115.0757,-8.7637 115.0928,-8.7779 115.1,-8.7563 115.1128,-8.7971 115.0922,-8.8265 115.0305,-8.8433 115.0081,-8.8446 114.975,-8.8367 114.9638,-8.8173 115.0099,-8.7804 115.0453,-8.7652 115.0511,-8.7438 115.0477,-8.7027 115.0339,-8.6683 115.0173,-8.6508 114.948,-8.5825 114.8382,-8.4871 114.7978,-8.4603 114.7564,-8.4372 114.6642,-8.4014 114.6254,-8.3928 114.5823,-8.3858 114.5259,-8.3878 114.5008,-8.3902 114.4813,-8.386 114.4436,-8.35 114.4009,-8.2986 114.3695,-8.2528 114.3566,-8.2315 114.3371,-8.1932 114.3279,-8.1687 114.3217,-8.0931 114.3505,-8.0808 114.3505,-8.0808 127,8.0,Indonesia 119.6629,-8.7103 119.6714,-8.6651 119.6694,-8.621 119.6644,-8.5819 119.6702,-8.5578 119.6851,-8.539 119.7758,-8.4544 119.8731,-8.4071 119.9497,-8.3865 120.0621,-8.296 120.1309,-8.2608 120.3877,-8.2478 120.5256,-8.2718 120.6183,-8.3242 120.7199,-8.331 120.7868,-8.3367 120.8835,-8.3815 120.9044,-8.395 120.9678,-8.4156 121.0372,-8.431 121.0684,-8.4329 121.1466,-8.4634 121.1677,-8.4836 121.1846,-8.5125 121.2069,-8.5336 121.2505,-8.5681 121.2712,-8.5782 121.3784,-8.5968 121.4333,-8.5601 121.4615,-8.5256 121.5015,-8.4653 121.6374,-8.4789 121.7477,-8.4844 121.7735,-8.48 121.9034,-8.4339 121.9715,-8.5231 122.1008,-8.6223 122.126,-8.6312 122.1524,-8.6347 122.2039,-8.6111 122.2269,-8.6064 122.2927,-8.594 122.3459,-8.5037 122.3475,-8.4798 122.4673,-8.3834 122.4914,-8.3766 122.5464,-8.3757 122.634,-8.3463 122.7536,-8.2754 122.8089,-8.1958 122.7524,-8.1749 122.6837,-8.1987 122.6547,-8.2218 122.6045,-8.2165 122.6626,-8.1015 122.7303,-8.0629 122.8243,-8.1186 122.8421,-8.1382 122.893,-8.2877 122.8859,-8.315 122.8448,-8.345 122.7596,-8.3758 122.663,-8.4298 122.6587,-8.4573 122.6667,-8.4765 122.683,-8.495 122.7011,-8.518 122.7106,-8.5354 122.7157,-8.5604 122.7094,-8.5818 122.7008,-8.5883 122.6913,-8.594 122.6587,-8.606 122.6024,-8.6095 122.545,-8.6244 122.4226,-8.6656 122.3965,-8.6942 122.3764,-8.7085 122.3303,-8.7236 122.2441,-8.7438 122.1237,-8.7404 122.0865,-8.7366 122.0428,-8.7258 121.7703,-8.8164 121.664,-8.8709 121.6297,-8.8808 121.4901,-8.8333 121.4292,-8.8054 121.2517,-8.79 121.2336,-8.8107 121.2372,-8.8441 121.2391,-8.8721 121.2155,-8.8983 121.1838,-8.9141 121.1599,-8.9136 121.1233,-8.8957 121.0734,-8.8834 121.0435,-8.8856 121.0013,-8.8947 120.983,-8.9039 120.9519,-8.9205 120.8983,-8.9387 120.8823,-8.9396 120.8702,-8.9381 120.7845,-8.9144 120.7249,-8.861 120.626,-8.8627 120.5996,-8.8626 120.5147,-8.8354 120.4839,-8.8146 120.4542,-8.7882 120.4041,-8.7831 120.3016,-8.7838 120.2482,-8.7907 120.2143,-8.8013 120.1898,-8.821 120.1194,-8.8214 120.0682,-8.7931 119.9556,-8.7865 119.9356,-8.7936 119.8059,-8.8403 119.7607,-8.8402 119.7006,-8.788 119.6784,-8.7655 119.6683,-8.736 119.6629,-8.7103 119.6629,-8.7103 161,8.0,Indonesia 119.0521,-8.6906 119.0443,-8.7126 119.0182,-8.7406 118.9728,-8.7496 118.8434,-8.7496 118.8066,-8.7123 118.788,-8.6898 118.768,-8.6812 118.6831,-8.7019 118.6188,-8.7054 118.5711,-8.7373 118.6053,-8.7554 118.6257,-8.7621 118.7088,-8.7678 118.7598,-8.7734 118.8004,-8.7973 118.8113,-8.8308 118.7801,-8.8423 118.6969,-8.8428 118.6663,-8.8147 118.6122,-8.7981 118.5903,-8.7982 118.5503,-8.8003 118.5109,-8.8089 118.4524,-8.8261 118.3386,-8.8622 118.3257,-8.8617 118.2929,-8.8504 118.2768,-8.8353 118.2606,-8.8039 118.2527,-8.7764 118.2835,-8.7354 118.2998,-8.7105 118.3097,-8.6539 118.2993,-8.6236 118.2733,-8.5797 118.2635,-8.6248 118.0918,-8.8108 118.0574,-8.8406 118.0376,-8.855 118.0178,-8.8625 117.9844,-8.8541 117.9654,-8.8378 117.8978,-8.8439 117.8778,-8.8581 117.8177,-8.892 117.7535,-8.9244 117.6639,-8.9253 117.6081,-8.9083 117.5852,-8.9062 117.5209,-8.9339 117.5064,-8.9513 117.4335,-8.9922 117.4077,-9.0045 117.3087,-9.0314 117.2758,-9.0392 117.2214,-9.0393 117.1779,-9.0314 117.1588,-9.0166 117.1142,-9.007 117.0756,-9.0204 117.0368,-9.0573 117.0201,-9.0809 116.9702,-9.0931 116.9183,-9.1004 116.6751,-9.0332 116.6262,-9.0041 116.6142,-8.9714 116.626,-8.8697 116.665,-8.8175 116.6496,-8.6636 116.6733,-8.5815 116.7281,-8.5247 116.758,-8.513 116.8018,-8.5096 116.8843,-8.4733 116.9491,-8.4293 116.9661,-8.4123 116.9888,-8.3727 117.0194,-8.359 117.0619,-8.3541 117.1395,-8.388 117.2944,-8.4522 117.314,-8.3999 117.4323,-8.4027 117.4365,-8.4225 117.4343,-8.4584 117.4483,-8.4929 117.5171,-8.5524 117.6271,-8.6398 117.7163,-8.7006 117.7666,-8.6911 117.826,-8.7278 117.8354,-8.7387 117.8456,-8.7351 117.89,-8.6981 117.9064,-8.6803 117.9275,-8.6574 117.9474,-8.6463 117.9992,-8.6371 118.0255,-8.6384 118.0461,-8.6452 118.0802,-8.6553 118.1255,-8.651 118.1496,-8.6324 118.1566,-8.6097 118.1483,-8.5784 118.0998,-8.5417 117.9453,-8.4526 117.9134,-8.4495 117.8883,-8.4585 117.8611,-8.4659 117.6972,-8.3603 117.5743,-8.2279 117.5804,-8.1874 117.5907,-8.1637 117.6055,-8.1428 117.6708,-8.1103 117.79,-8.0761 117.8133,-8.0734 117.9649,-8.0994 117.9954,-8.1151 118.0256,-8.1415 118.0344,-8.1987 118.0631,-8.2568 118.1234,-8.3361 118.1844,-8.3651 118.2422,-8.327 118.2817,-8.2858 118.3111,-8.257 118.3333,-8.2413 118.353,-8.2371 118.4541,-8.2604 118.5193,-8.2885 118.5552,-8.3527 118.5554,-8.4029 118.5504,-8.4416 118.5359,-8.4747 118.5327,-8.5356 118.5742,-8.4877 118.5907,-8.4496 118.5867,-8.4147 118.5811,-8.3818 118.6043,-8.3355 118.6406,-8.3035 118.666,-8.2901 118.7463,-8.2797 118.7664,-8.2792 118.7971,-8.2824 118.8187,-8.2879 118.8669,-8.3063 118.9174,-8.4668 118.9076,-8.5229 118.8953,-8.541 118.8885,-8.5815 118.9057,-8.6217 118.9259,-8.6414 118.9996,-8.6282 119.0428,-8.6398 119.0521,-8.6906 119.0521,-8.6906 22,9.0,Indonesia 130.6196,-8.3456 130.6188,-8.3322 130.6939,-8.2512 130.7102,-8.2338 130.7224,-8.2247 130.7812,-8.1951 130.8152,-8.1382 130.8669,-8.0809 130.8859,-8.0755 131.02,-8.113 131.0314,-8.1218 131.0108,-8.1463 130.9951,-8.1574 130.9002,-8.1996 130.8128,-8.2274 130.7509,-8.2717 130.7494,-8.2867 130.7419,-8.2973 130.6757,-8.34 130.658,-8.3426 130.6196,-8.3456 130.6196,-8.3456 28,9.0,Indonesia 127.6547,-8.0946 127.6678,-8.0934 127.7004,-8.0917 127.7219,-8.098 127.7382,-8.1055 127.7542,-8.1139 127.7842,-8.1245 127.8067,-8.1291 127.825,-8.1313 127.9074,-8.1382 127.9246,-8.1331 127.942,-8.1282 127.9572,-8.1293 127.9736,-8.1366 127.9827,-8.1449 127.9842,-8.1592 127.9782,-8.17 127.893,-8.2552 127.8821,-8.2581 127.8665,-8.2534 127.6872,-8.1936 127.6687,-8.1848 127.6594,-8.1765 127.6204,-8.1008 127.6314,-8.0953 127.6439,-8.094 127.6547,-8.0946 127.6547,-8.0946 30,8.0,Indonesia 124.3356,-8.1266 124.3701,-8.1235 124.4088,-8.1246 124.439,-8.1276 124.5306,-8.1637 124.7154,-8.1679 124.778,-8.1631 124.7906,-8.1555 124.9475,-8.1459 124.9574,-8.1537 124.9959,-8.2197 124.9986,-8.2424 124.9998,-8.316 124.9864,-8.3401 124.961,-8.3486 124.9119,-8.3608 124.8941,-8.3639 124.6776,-8.3906 124.4628,-8.4216 124.2833,-8.4619 124.2204,-8.4503 124.2106,-8.4431 124.2031,-8.4333 124.1964,-8.4157 124.1964,-8.4002 124.2592,-8.2162 124.3142,-8.1414 124.3283,-8.1263 124.3356,-8.1266 124.3356,-8.1266 23,8.0,Indonesia 118.9549,-8.1272 118.972,-8.1361 118.9894,-8.1491 119.0006,-8.1654 119.0035,-8.1827 119.0015,-8.1977 118.9946,-8.2147 118.9703,-8.2413 118.959,-8.2506 118.9504,-8.2552 118.9396,-8.2579 118.926,-8.2579 118.9122,-8.2549 118.9032,-8.2464 118.8912,-8.2307 118.8816,-8.1935 118.8909,-8.1583 118.8946,-8.1492 118.9091,-8.1361 118.9276,-8.1269 118.942,-8.1244 118.9549,-8.1272 118.9549,-8.1272 14,9.0,Indonesia 125.507,-8.1407 125.4572,-8.2892 125.4523,-8.298 125.4434,-8.3066 125.4322,-8.3086 125.3956,-8.3007 125.3857,-8.2965 125.3572,-8.2677 125.3586,-8.2558 125.3845,-8.2207 125.4755,-8.1306 125.5047,-8.131 125.507,-8.1407 125.507,-8.1407 24,8.0,Indonesia 117.4048,-8.3811 117.3952,-8.3769 117.3564,-8.3511 117.3522,-8.3419 117.3457,-8.239 117.3448,-8.1909 117.3498,-8.1822 117.4137,-8.1403 117.4302,-8.1364 117.4475,-8.1361 117.5318,-8.1423 117.5479,-8.15 117.5573,-8.1611 117.5599,-8.1743 117.5478,-8.182 117.5075,-8.2134 117.4955,-8.2291 117.4889,-8.2424 117.4635,-8.2986 117.4452,-8.3413 117.4244,-8.3686 117.4119,-8.3794 117.4048,-8.3811 117.4048,-8.3811 22,9.0,Indonesia 138.6677,-8.1638 138.6795,-8.1999 138.7413,-8.3338 138.7493,-8.346 138.7537,-8.3553 138.7549,-8.3748 138.7436,-8.3956 138.7304,-8.4029 138.7151,-8.4053 138.6918,-8.4042 138.6406,-8.4011 138.5852,-8.3947 138.4231,-8.3662 138.4022,-8.3563 138.39,-8.3377 138.3898,-8.3235 138.3948,-8.3115 138.5519,-8.1741 138.6505,-8.1459 138.6637,-8.1489 138.6677,-8.1638 138.6677,-8.1638 20,9.0,Indonesia 128.7145,-8.1794 128.7247,-8.1754 128.7471,-8.1706 128.8011,-8.1711 128.8254,-8.1747 128.8347,-8.1786 128.8848,-8.2036 128.8905,-8.2186 128.8887,-8.2338 128.8711,-8.2575 128.8609,-8.2601 128.7809,-8.2531 128.7688,-8.2487 128.7406,-8.2356 128.7049,-8.2168 128.6958,-8.212 128.6865,-8.1928 128.6929,-8.1846 128.7145,-8.1794 128.7145,-8.1794 46,8.0,Indonesia 123.8422,-8.3332 123.8497,-8.327 123.8985,-8.3008 123.9099,-8.2987 123.9332,-8.3031 123.9383,-8.3117 123.939,-8.3309 123.9679,-8.3625 124.0148,-8.3143 124.0443,-8.2754 124.0695,-8.2331 124.1049,-8.1868 124.1167,-8.1745 124.1335,-8.1715 124.1433,-8.1755 124.1551,-8.1874 124.161,-8.1988 124.1641,-8.2126 124.1579,-8.2984 124.1559,-8.3101 124.1517,-8.3195 124.0473,-8.487 124.0242,-8.5182 124.0097,-8.5308 123.9871,-8.5424 123.9768,-8.5459 123.9319,-8.5483 123.9106,-8.5349 123.9112,-8.5153 123.9141,-8.4945 123.9119,-8.4743 123.8946,-8.4457 123.8792,-8.427 123.8675,-8.4215 123.8529,-8.423 123.8425,-8.4268 123.8258,-8.4371 123.8114,-8.4501 123.796,-8.4586 123.7847,-8.4572 123.7731,-8.4491 123.7686,-8.4362 123.8265,-8.3475 123.837,-8.337 123.8422,-8.3332 123.8422,-8.3332 53,8.0,Indonesia 123.2687,-8.5872 123.2382,-8.5628 123.1641,-8.5448 123.1495,-8.547 123.0941,-8.5418 123.0816,-8.5223 123.2161,-8.4052 123.2293,-8.3974 123.2491,-8.3892 123.2695,-8.3828 123.3017,-8.3738 123.319,-8.3636 123.3322,-8.3454 123.3376,-8.336 123.333,-8.3232 123.3296,-8.3094 123.2824,-8.3034 123.2688,-8.3033 123.257,-8.3056 123.2239,-8.3063 123.2264,-8.2952 123.253,-8.274 123.2646,-8.2657 123.2772,-8.2604 123.3882,-8.2335 123.4117,-8.2383 123.4208,-8.2445 123.4239,-8.2582 123.4193,-8.2769 123.4043,-8.2925 123.3918,-8.3217 123.3869,-8.3381 123.4047,-8.3633 123.418,-8.3669 123.4444,-8.3685 123.4587,-8.3642 123.5,-8.2898 123.639,-8.1828 123.6491,-8.1754 123.6596,-8.1719 123.7807,-8.2185 123.7938,-8.2259 123.8029,-8.2469 123.7976,-8.2583 123.7806,-8.2689 123.7608,-8.2762 123.7136,-8.2836 123.626,-8.3176 123.5289,-8.4231 123.3985,-8.5572 123.3162,-8.56 123.2687,-8.5872 123.2687,-8.5872 602,2.0,Zambia 32.904,-9.3945 32.9034,-9.4052 32.9074,-9.4449 32.911,-9.4666 32.9638,-9.6107 32.9827,-9.6203 33.0361,-9.6205 33.0728,-9.6139 33.0988,-9.5873 33.1707,-9.5915 33.1926,-9.6231 33.1978,-9.6445 33.1926,-9.6665 33.188,-9.6941 33.2024,-9.7204 33.266,-9.7877 33.2859,-9.8 33.3232,-9.9216 33.2946,-9.9822 33.2898,-10.0525 33.425,-10.1535 33.4972,-10.1944 33.5204,-10.212 33.5238,-10.2331 33.5138,-10.2594 33.5092,-10.2846 33.5083,-10.3201 33.5309,-10.3806 33.6097,-10.4887 33.6508,-10.5366 33.6654,-10.5498 33.6589,-10.5646 33.6437,-10.5843 33.6011,-10.609 33.5679,-10.6355 33.5102,-10.7009 33.505,-10.7314 33.4743,-10.7634 33.4241,-10.7915 33.3811,-10.7908 33.3605,-10.7865 33.3077,-10.8015 33.2259,-10.8515 33.2138,-10.8798 33.3133,-11.0675 33.3478,-11.1004 33.3735,-11.1505 33.3642,-11.1812 33.3543,-11.2026 33.3027,-11.2875 33.2564,-11.355 33.2128,-11.3979 33.2176,-11.5073 33.2336,-11.5578 33.272,-11.5695 33.2879,-11.5998 33.294,-11.7313 33.2951,-11.8836 33.2756,-11.9865 33.243,-12.0435 33.2344,-12.1161 33.3179,-12.2959 33.3318,-12.3124 33.3525,-12.3261 33.373,-12.3279 33.3992,-12.3225 33.4425,-12.3006 33.5082,-12.3216 33.5044,-12.3503 33.4912,-12.3636 33.4678,-12.372 33.439,-12.3985 33.4423,-12.4253 33.3268,-12.526 33.2008,-12.5717 33.127,-12.575 33.1067,-12.5668 33.032,-12.571 33.0093,-12.5896 32.925,-12.7434 32.9352,-12.8387 32.9894,-12.871 32.9975,-12.899 32.9916,-12.9266 32.9833,-12.9479 32.973,-12.9662 32.9656,-12.9876 32.9555,-13.0221 32.9492,-13.0817 32.9491,-13.1255 32.9402,-13.214 32.8813,-13.3741 32.8591,-13.4151 32.7943,-13.5131 32.7762,-13.526 32.716,-13.5487 32.658,-13.5507 32.6446,-13.5974 32.6726,-13.616 32.7167,-13.6264 32.7434,-13.6232 32.7932,-13.6886 32.8614,-13.8042 32.9519,-13.919 33.0407,-13.9654 33.1284,-13.911 33.1516,-13.9576 33.1662,-13.9814 33.1839,-13.9968 32.9458,-14.0808 32.3351,-14.2921 32.3059,-14.3008 32.1928,-14.3251 32.0574,-14.3609 31.9136,-14.4071 31.838,-14.4414 31.8185,-14.4493 31.7986,-14.4563 31.7727,-14.4641 31.7453,-14.4705 31.694,-14.4787 31.664,-14.4855 31.4981,-14.5721 31.4671,-14.5949 31.448,-14.6032 31.4265,-14.6087 31.2682,-14.6488 31.0798,-14.6917 31.0579,-14.6948 31.0095,-14.6998 30.876,-14.7337 30.772,-14.7614 30.5663,-14.8328 30.4918,-14.859 30.4687,-14.8678 30.3076,-14.9507 30.1775,-14.9649 30.1836,-15.0792 30.1922,-15.1224 30.2168,-15.1988 30.2358,-15.2406 30.2673,-15.2739 30.2967,-15.2951 30.3251,-15.32 30.3521,-15.4612 30.3607,-15.576 30.3796,-15.614 30.3487,-15.6295 30.3184,-15.6411 30.2578,-15.6326 30.2252,-15.6224 30.1239,-15.6137 29.7996,-15.5987 29.7639,-15.6069 29.6926,-15.6304 29.6209,-15.6529 29.5921,-15.6537 29.5662,-15.645 29.5434,-15.6433 29.3103,-15.7188 29.2108,-15.7593 29.0451,-15.8719 28.9544,-15.934 28.9088,-15.9457 28.8934,-15.9543 28.8318,-16.0184 28.8252,-16.0379 28.8133,-16.1417 28.8029,-16.2857 28.8093,-16.3216 28.819,-16.3436 28.818,-16.3755 28.7861,-16.4571 28.7184,-16.537 28.5514,-16.5717 28.226,-16.7052 28.1048,-16.8044 27.9924,-16.8541 27.7919,-16.94 27.7741,-16.9643 27.6727,-17.1088 27.6058,-17.2053 27.5811,-17.3218 27.4865,-17.4044 27.3148,-17.5556 27.1135,-17.7864 27.1174,-17.834 26.9968,-17.9411 26.9635,-17.9467 26.9112,-17.9541 26.8555,-17.9654 26.809,-17.9804 26.7127,-18.0133 26.6931,-18.0292 26.6663,-18.0544 26.5734,-18.0224 26.5361,-17.9771 26.3976,-17.9299 26.3298,-17.9107 26.1985,-17.8826 26.1589,-17.8818 26.0919,-17.9111 26.0613,-17.9471 25.9363,-17.9843 25.873,-17.9685 25.8303,-17.9545 25.8106,-17.9203 25.823,-17.9016 25.7516,-17.8447 25.655,-17.7874 25.6261,-17.7939 25.5876,-17.8162 25.4832,-17.843 25.4021,-17.8368 25.3803,-17.834 25.3083,-17.8236 25.2892,-17.8159 25.2341,-17.782 25.2216,-17.7631 25.0352,-17.6048 25.0,-17.5901 24.9544,-17.564 24.9399,-17.54 24.8827,-17.5209 24.788,-17.4957 24.679,-17.4784 24.6341,-17.474 24.6084,-17.4769 24.5895,-17.4862 24.5608,-17.5142 24.5359,-17.5137 24.5127,-17.5053 24.4729,-17.4884 24.4109,-17.4627 24.352,-17.4539 24.2099,-17.4585 24.0003,-17.4998 23.7921,-17.5403 23.4479,-17.6059 23.426,-17.5959 23.1736,-17.4601 23.0371,-17.3123 22.7351,-17.0507 22.7031,-17.0221 22.4669,-16.7619 22.2667,-16.5935 22.191,-16.5428 22.1619,-16.5222 22.1084,-16.4673 22.105,-16.3635 22.0976,-16.3301 22.0855,-16.3042 22.041,-16.2158 21.988,-16.1652 21.9741,-16.1533 21.9736,-16.1046 21.9728,-15.982 21.9738,-15.588 21.9738,-15.4338 21.9734,-14.9331 21.9731,-14.8816 21.9735,-14.8302 21.9732,-14.7274 21.9741,-14.4361 21.9743,-13.9908 21.9741,-13.9516 21.9732,-13.9005 21.9728,-13.7116 21.973,-13.6823 21.9718,-13.4374 21.9714,-13.3004 21.9766,-12.9898 22.4748,-12.9903 22.97,-12.9898 23.2562,-12.9907 23.3967,-12.9906 23.5581,-12.9918 23.8531,-12.9923 23.9922,-12.9848 23.9793,-12.9385 23.9675,-12.9186 23.9348,-12.8816 23.9193,-12.8657 23.8849,-12.8379 23.8652,-12.8109 23.86,-12.7491 23.9446,-12.4984 23.9585,-12.4777 24.0239,-12.3784 24.0158,-12.2837 24.0122,-12.2631 24.0043,-12.2436 23.977,-12.2156 23.9579,-12.1979 23.9576,-11.8688 23.9856,-11.8109 23.972,-11.7023 23.9631,-11.6836 23.9408,-11.649 24.0055,-11.4393 24.0299,-11.4134 24.0579,-11.3897 24.0004,-11.2372 23.9816,-11.1102 23.9616,-10.9074 23.9599,-10.858 23.9683,-10.8569 24.0322,-10.8663 24.066,-10.8814 24.1056,-10.9042 24.1157,-10.967 24.1592,-11.017 24.2917,-11.0387 24.35,-11.076 24.3718,-11.0993 24.3896,-11.2037 24.3831,-11.2673 24.3391,-11.3368 24.3484,-11.3919 24.4222,-11.4497 24.4993,-11.4485 24.5569,-11.4247 24.5759,-11.3918 24.6655,-11.3271 24.7127,-11.3044 24.9528,-11.2522 25.0018,-11.249 25.0389,-11.2483 25.0994,-11.2494 25.1615,-11.2396 25.2275,-11.2144 25.2565,-11.1947 25.2924,-11.1819 25.3166,-11.1925 25.3171,-11.2654 25.2948,-11.3144 25.2638,-11.3529 25.2882,-11.5031 25.2982,-11.5412 25.3356,-11.6297 25.4703,-11.6967 25.6637,-11.7542 25.814,-11.7887 25.9547,-11.8821 25.976,-11.8888 26.015,-11.8916 26.0432,-11.8913 26.1691,-11.8888 26.4073,-11.8969 26.4284,-11.902 26.4481,-11.9137 26.5693,-11.9577 26.6485,-11.9754 26.7212,-11.9708 26.8443,-11.958 26.8724,-11.9474 26.9299,-11.9012 26.9461,-11.8823 26.9549,-11.8637 26.9647,-11.8223 26.9668,-11.7462 27.0032,-11.5837 27.179,-11.5633 27.189,-11.5917 27.1984,-11.6691 27.199,-11.7036 27.1983,-11.7302 27.2011,-11.7623 27.2145,-11.7839 27.2337,-11.7998 27.3225,-11.858 27.3444,-11.8706 27.3886,-11.896 27.4236,-11.9234 27.4502,-11.9578 27.4562,-11.9867 27.4565,-12.007 27.4635,-12.0453 27.4998,-12.1475 27.505,-12.1597 27.5109,-12.168 27.5377,-12.1997 27.5561,-12.2127 27.5694,-12.2193 27.5926,-12.2314 27.6098,-12.2486 27.6247,-12.2764 27.6462,-12.2884 27.7665,-12.2837 27.791,-12.2695 27.8072,-12.246 27.8293,-12.2409 27.8545,-12.2507 27.8835,-12.2637 27.9047,-12.2769 27.9326,-12.2978 28.0177,-12.3537 28.132,-12.4152 28.1981,-12.4103 28.2878,-12.4191 28.315,-12.4261 28.4144,-12.5116 28.4986,-12.6426 28.4984,-12.6749 28.4837,-12.6927 28.4632,-12.7138 28.4658,-12.7406 28.5407,-12.8772 28.5652,-12.8774 28.5851,-12.8492 28.605,-12.8254 28.6414,-12.826 28.7106,-12.894 28.7924,-13.0117 28.8875,-13.1394 28.9178,-13.2358 28.9217,-13.2598 28.9252,-13.3161 28.9377,-13.3449 28.9858,-13.3833 29.0074,-13.3815 29.0329,-13.3722 29.065,-13.3738 29.1642,-13.4187 29.2751,-13.3577 29.4309,-13.2882 29.4521,-13.2746 29.4852,-13.2453 29.5118,-13.2196 29.5369,-13.2078 29.561,-13.2086 29.6497,-13.2518 29.6481,-13.2852 29.6175,-13.3013 29.5874,-13.367 29.6002,-13.4004 29.6208,-13.4194 29.6927,-13.4428 29.7676,-13.4344 29.7683,-13.4027 29.7695,-13.1565 29.7708,-12.7665 29.7721,-12.5269 29.7724,-12.4582 29.7735,-12.2117 29.7733,-12.1499 29.772,-12.1416 29.737,-12.1402 29.5359,-12.1769 29.4406,-12.2352 29.414,-12.3248 29.4565,-12.3793 29.4909,-12.3814 29.4945,-12.4112 29.4841,-12.4284 29.4489,-12.4454 29.4377,-12.4432 29.3672,-12.4198 29.2285,-12.3513 29.1442,-12.3548 29.1164,-12.3622 29.0714,-12.377 29.0246,-12.3733 28.9946,-12.363 28.9926,-12.3417 28.9685,-12.2913 28.9034,-12.1866 28.8874,-12.1676 28.8036,-12.0834 28.6658,-11.9746 28.6452,-11.9675 28.6004,-11.9429 28.4687,-11.8572 28.417,-11.7631 28.4136,-11.7109 28.3944,-11.6493 28.3757,-11.6055 28.3639,-11.5818 28.348,-11.5636 28.3343,-11.5425 28.326,-11.5113 28.3269,-11.4626 28.3356,-11.4213 28.3794,-11.3567 28.4337,-11.2319 28.4399,-11.2101 28.4544,-11.1499 28.4989,-10.9434 28.5178,-10.8433 28.5225,-10.8203 28.545,-10.7781 28.594,-10.7028 28.6299,-10.6985 28.6674,-10.6399 28.6319,-10.5448 28.6022,-10.5072 28.5637,-10.2345 28.5918,-10.1361 28.591,-9.9751 28.5947,-9.9366 28.6,-9.9146 28.6295,-9.8412 28.664,-9.7845 28.6384,-9.7375 28.5064,-9.4602 28.4876,-9.3484 28.456,-9.3264 28.3974,-9.3122 28.3591,-9.292 28.3409,-9.2685 28.346,-9.2399 28.3665,-9.2168 28.3843,-9.2073 28.4116,-9.1951 28.4423,-9.181 28.4853,-9.1578 28.5723,-9.0981 28.5909,-9.0835 28.6734,-9.0066 28.6967,-8.9817 28.7732,-8.8928 28.8117,-8.8473 28.8364,-8.817 28.8939,-8.7318 28.9206,-8.6768 28.9298,-8.6549 28.9283,-8.6258 28.9214,-8.5872 28.8984,-8.5195 28.8696,-8.4691 28.8904,-8.4651 28.9596,-8.4544 29.1682,-8.4236 29.2028,-8.418 29.3622,-8.3938 29.5355,-8.3671 29.5422,-8.364 29.5565,-8.364 29.8894,-8.3127 30.0489,-8.2881 30.2223,-8.2611 30.4028,-8.2325 30.4721,-8.2215 30.7008,-8.1861 30.7288,-8.1823 30.7368,-8.1827 30.7364,-8.1888 30.7599,-8.2562 30.8013,-8.3432 30.8186,-8.3719 30.8732,-8.4579 30.9264,-8.5225 30.9425,-8.5377 30.9982,-8.5752 31.0248,-8.5899 31.0445,-8.5975 31.0759,-8.6039 31.1075,-8.603 31.1355,-8.5854 31.1682,-8.5692 31.1919,-8.57 31.2607,-8.6101 31.38,-8.6236 31.4506,-8.6565 31.5288,-8.7415 31.5388,-8.8076 31.5579,-8.8296 31.6484,-8.8986 31.6711,-8.9068 31.7062,-8.9027 31.7521,-8.8777 31.7996,-8.8875 31.8625,-8.904 31.9169,-8.926 31.903,-8.9427 31.8964,-8.9635 31.8976,-8.9995 31.9039,-9.0209 31.9464,-9.0601 31.9674,-9.0578 31.9944,-9.0361 32.0234,-9.0312 32.051,-9.0415 32.0593,-9.0482 32.1247,-9.0542 32.1641,-9.0894 32.186,-9.11 32.2231,-9.1228 32.2659,-9.1242 32.3298,-9.122 32.3855,-9.1186 32.4548,-9.1663 32.4695,-9.2066 32.5041,-9.2506 32.5922,-9.2637 32.6667,-9.2718 32.7318,-9.322 32.8079,-9.3632 32.8385,-9.3664 32.8792,-9.3796 32.904,-9.3945 32.904,-9.3945 43,8.0,Indonesia 116.2096,-8.2091 116.2466,-8.1965 116.3344,-8.2146 116.5281,-8.2771 116.5856,-8.3256 116.6044,-8.3561 116.6066,-8.3866 116.5473,-8.5389 116.4642,-8.6935 116.4195,-8.7649 116.4299,-8.8464 116.4723,-8.8619 116.4535,-8.8861 116.416,-8.8995 116.3392,-8.9011 116.348,-8.868 116.3562,-8.8311 116.3141,-8.8269 116.2899,-8.8503 116.2535,-8.9064 116.1305,-8.913 116.0683,-8.9067 116.036,-8.8713 115.9524,-8.8496 115.9284,-8.8529 115.9068,-8.8661 115.8726,-8.8869 115.7292,-8.8125 115.7155,-8.7534 115.7439,-8.7229 115.759,-8.7417 115.8148,-8.7676 115.8419,-8.765 115.9439,-8.7211 115.9612,-8.6134 115.9604,-8.5901 115.9519,-8.5545 115.9394,-8.5123 115.973,-8.3967 116.1458,-8.2338 116.1793,-8.218 116.2096,-8.2091 116.2096,-8.2091 23,8.0,Indonesia 122.9532,-8.2761 123.0112,-8.2371 123.021,-8.233 123.0798,-8.2243 123.1221,-8.2297 123.2033,-8.2569 123.2088,-8.274 123.1914,-8.3555 123.1877,-8.3685 123.1786,-8.3831 123.1663,-8.3915 123.1561,-8.3949 123.1437,-8.3962 122.9505,-8.4057 122.8804,-8.4004 122.8795,-8.3658 122.8833,-8.3528 122.9011,-8.3228 122.9097,-8.3106 122.9305,-8.291 122.9457,-8.2791 122.9532,-8.2761 122.9532,-8.2761 225,8.0,Indonesia 124.8132,-8.9401 124.8318,-8.9244 124.9539,-8.7494 124.9559,-8.731 124.9615,-8.7028 124.9668,-8.681 124.9702,-8.6709 124.979,-8.6525 124.985,-8.6444 124.9874,-8.6406 124.9975,-8.6305 125.0058,-8.6249 125.0791,-8.6027 125.0901,-8.5999 125.2843,-8.5622 125.467,-8.5331 125.5681,-8.521 125.585,-8.5165 125.6468,-8.497 125.6567,-8.493 125.6657,-8.4883 125.6776,-8.4799 125.6876,-8.4763 125.7037,-8.4718 125.7161,-8.4704 125.7484,-8.4725 125.7672,-8.474 125.7978,-8.4779 125.8253,-8.4849 125.8463,-8.4908 125.8813,-8.5106 125.9007,-8.5149 125.9358,-8.5148 126.0796,-8.4918 126.0913,-8.4893 126.1448,-8.468 126.1964,-8.4382 126.2041,-8.4313 126.2153,-8.4187 126.2693,-8.4157 126.281,-8.4178 126.3518,-8.4399 126.3624,-8.4432 126.3774,-8.4554 126.399,-8.4747 126.4096,-8.4779 126.422,-8.4767 126.6299,-8.4144 126.7196,-8.3747 126.7374,-8.3652 126.757,-8.3509 126.8633,-8.315 127.0567,-8.3231 127.1613,-8.3872 127.1664,-8.3999 127.1667,-8.4147 127.1623,-8.4239 127.1225,-8.4624 127.1113,-8.468 127.0298,-8.5293 126.9849,-8.5659 126.9518,-8.5948 126.9218,-8.6257 126.876,-8.6716 126.7468,-8.719 126.6486,-8.7462 126.6356,-8.7451 126.6235,-8.7467 126.5586,-8.757 126.5153,-8.7652 126.4411,-8.8011 126.3998,-8.8417 126.3924,-8.8544 126.3875,-8.87 126.38,-8.8894 126.3559,-8.9198 126.3344,-8.941 126.3214,-8.9447 126.1846,-8.9652 126.1185,-8.9719 126.0995,-8.9704 126.0859,-8.9706 126.0242,-8.9774 126.0137,-8.9802 126.0039,-8.984 125.9867,-8.9943 125.9745,-9.0023 125.9471,-9.0228 125.8042,-9.1166 125.782,-9.1225 125.752,-9.1221 125.7404,-9.1197 125.7287,-9.1189 125.7064,-9.1204 125.6439,-9.1369 125.4205,-9.2078 125.266,-9.2576 125.2561,-9.2618 125.2143,-9.2849 125.1919,-9.2995 125.1482,-9.3378 125.0969,-9.3883 125.0855,-9.4039 125.0737,-9.4124 125.0639,-9.4164 125.0531,-9.4192 124.9915,-9.4246 124.9869,-9.4269 124.9704,-9.4377 124.8991,-9.4882 124.8657,-9.522 124.8547,-9.5376 124.8482,-9.5509 124.8469,-9.5629 124.8467,-9.5831 124.8483,-9.5956 124.848,-9.6091 124.846,-9.6271 124.8434,-9.6378 124.8368,-9.6483 124.8189,-9.661 124.7819,-9.6854 124.6371,-9.8228 124.5174,-9.941 124.4594,-9.9779 124.4312,-9.9974 124.4113,-10.0182 124.404,-10.0309 124.3991,-10.0431 124.393,-10.0609 124.3828,-10.0777 124.3731,-10.0886 124.3567,-10.106 124.3114,-10.1432 124.2991,-10.1513 124.2901,-10.1558 124.2725,-10.1619 124.251,-10.1644 124.2239,-10.1645 124.1608,-10.1591 124.1339,-10.1583 123.9875,-10.168 123.9695,-10.1734 123.9577,-10.1921 123.9544,-10.2021 123.9455,-10.2207 123.892,-10.2666 123.8726,-10.2712 123.841,-10.2736 123.8165,-10.2796 123.8012,-10.2852 123.7664,-10.3048 123.7499,-10.3156 123.7306,-10.33 123.7198,-10.3395 123.704,-10.3513 123.6952,-10.3559 123.6762,-10.3641 123.477,-10.3596 123.3915,-10.325 123.3533,-10.3047 123.3555,-10.2273 123.3966,-10.1782 123.4699,-10.1489 123.4803,-10.1457 123.4914,-10.143 123.5081,-10.1427 123.5224,-10.1394 123.5365,-10.1333 123.5543,-10.1243 123.5988,-10.1008 123.6131,-10.0907 123.6229,-10.0773 123.627,-10.0673 123.6288,-10.0529 123.62,-10.0415 123.5645,-10.018 123.5502,-10.0149 123.5235,-10.0146 123.5046,-10.0177 123.4833,-10.0352 123.4664,-10.0467 123.4463,-10.0311 123.4402,-10.0168 123.4403,-10.0037 123.4416,-9.9376 123.4466,-9.9221 123.4611,-9.9098 123.5081,-9.8885 123.5228,-9.8693 123.5264,-9.8592 123.5307,-9.8387 123.5362,-9.7184 123.5377,-9.686 123.5346,-9.6613 123.531,-9.6516 123.5279,-9.6344 123.5387,-9.6186 123.6508,-9.5063 123.8408,-9.3461 123.8583,-9.34 123.9091,-9.3292 123.9299,-9.3227 123.9992,-9.2969 124.0139,-9.2909 124.0222,-9.2848 124.0336,-9.2696 124.046,-9.2511 124.1534,-9.2113 124.283,-9.1756 124.3253,-9.174 124.3658,-9.1741 124.3908,-9.1715 124.4152,-9.1687 124.4661,-9.1509 124.5215,-9.1113 124.5336,-9.0964 124.6041,-9.0442 124.6594,-9.0046 124.6799,-8.9973 124.6999,-8.9971 124.721,-8.9909 124.7961,-8.9502 124.8132,-8.9401 124.8132,-8.9401 17,10.0,Papua New Guinea 143.4128,-8.484 143.399,-8.4843 143.349,-8.4728 143.3357,-8.469 143.1949,-8.4083 143.1572,-8.3812 143.1544,-8.3705 143.1631,-8.3567 143.179,-8.3493 143.1961,-8.3482 143.3346,-8.3534 143.4182,-8.366 143.456,-8.4563 143.4521,-8.4656 143.4213,-8.4825 143.4128,-8.484 143.4128,-8.484 26,10.0,Papua New Guinea 143.4727,-8.7245 143.4413,-8.6826 143.426,-8.6697 143.328,-8.6189 143.2073,-8.535 143.1191,-8.5006 143.1103,-8.496 143.0929,-8.4854 143.0807,-8.4774 143.0227,-8.4137 143.055,-8.4061 143.0678,-8.4164 143.0734,-8.4249 143.0917,-8.447 143.102,-8.4573 143.1148,-8.4648 143.1648,-8.4762 143.2114,-8.4843 143.2628,-8.5012 143.3074,-8.5181 143.4861,-8.6563 143.4933,-8.6748 143.4933,-8.6907 143.4798,-8.7216 143.4727,-8.7245 143.4727,-8.7245 19,10.0,Papua New Guinea 150.9764,-8.8205 150.9272,-8.7612 150.9329,-8.629 150.8873,-8.5423 150.8637,-8.5417 150.8329,-8.5315 150.8294,-8.5174 150.8564,-8.4571 150.8649,-8.4451 150.8899,-8.4228 150.9079,-8.4164 150.9548,-8.4132 150.9555,-8.6147 150.9351,-8.7191 150.9344,-8.732 150.9358,-8.7442 150.9394,-8.7546 150.9764,-8.8205 150.9764,-8.8205 31,8.0,Indonesia 119.2449,-8.7082 119.2502,-8.7043 119.2713,-8.671 119.2723,-8.6463 119.2648,-8.628 119.2826,-8.4362 119.3135,-8.4189 119.3222,-8.4204 119.3283,-8.4306 119.3634,-8.4774 119.3879,-8.4749 119.4071,-8.4747 119.4331,-8.4849 119.4521,-8.5503 119.4373,-8.5799 119.4225,-8.5893 119.4041,-8.5911 119.3934,-8.5879 119.3916,-8.576 119.3792,-8.5631 119.3581,-8.5667 119.3229,-8.5931 119.305,-8.6633 119.312,-8.6982 119.3187,-8.7103 119.3321,-8.7331 119.3186,-8.7434 119.2442,-8.7299 119.2417,-8.7121 119.2449,-8.7082 119.2449,-8.7082 24,8.0,Indonesia 122.7888,-8.6021 122.7669,-8.6008 122.7557,-8.5925 122.7475,-8.5736 122.7513,-8.5564 122.759,-8.5309 122.7632,-8.5215 122.7723,-8.5073 122.781,-8.4998 122.8509,-8.447 122.8602,-8.443 122.8715,-8.4402 123.0196,-8.4211 123.037,-8.4291 123.0426,-8.4406 123.0405,-8.4512 123.0319,-8.463 123.0211,-8.4692 123.0106,-8.472 122.9438,-8.486 122.9317,-8.4875 122.8324,-8.5627 122.7888,-8.6021 122.7888,-8.6021 15,8.0,Indonesia 119.4993,-8.7153 119.5112,-8.6611 119.4998,-8.5908 119.528,-8.6081 119.5868,-8.677 119.5664,-8.7132 119.5885,-8.7282 119.594,-8.745 119.5832,-8.7726 119.5497,-8.7931 119.4766,-8.7665 119.4775,-8.7461 119.4825,-8.7272 119.4993,-8.7153 119.4993,-8.7153 21,8.0,Indonesia 115.4617,-8.7961 115.4417,-8.7953 115.4313,-8.792 115.4179,-8.7851 115.3836,-8.7643 115.3754,-8.7589 115.3513,-8.7352 115.3412,-8.7222 115.3435,-8.7121 115.3731,-8.6704 115.3818,-8.6614 115.392,-8.6576 115.4389,-8.6614 115.4552,-8.671 115.4743,-8.6929 115.488,-8.7198 115.4911,-8.7374 115.4903,-8.7535 115.4698,-8.7908 115.4617,-8.7961 115.4617,-8.7961 19,10.0,Papua New Guinea 152.6666,-9.2252 152.661,-9.2129 152.5108,-9.0801 152.4821,-9.058 152.4041,-9.0101 152.391,-9.0058 152.3714,-9.0098 152.3296,-9.0129 152.3604,-8.9792 152.4534,-8.9508 152.4778,-8.951 152.642,-8.9613 152.7663,-9.0348 152.7834,-9.0487 152.8501,-9.1127 152.8309,-9.1585 152.8173,-9.1667 152.6666,-9.2252 152.6666,-9.2252 19,10.0,Papua New Guinea 150.1691,-9.5158 150.1447,-9.5152 150.0275,-9.4429 150.0119,-9.4316 149.9439,-9.36 149.9375,-9.3231 149.9383,-9.3079 149.9412,-9.2972 149.9587,-9.2509 149.978,-9.2352 150.0276,-9.1988 150.0442,-9.1949 150.0663,-9.1972 150.165,-9.2629 150.2112,-9.3757 150.1973,-9.4765 150.1765,-9.5098 150.1691,-9.5158 150.1691,-9.5158 74,8.0,Indonesia 119.07,-9.7363 119.0576,-9.7351 118.9894,-9.7157 118.9532,-9.7039 118.9349,-9.6955 118.9174,-9.6821 118.8024,-9.5485 118.8545,-9.4606 118.8743,-9.4395 118.9023,-9.4205 119.0142,-9.3842 119.1507,-9.3497 119.1909,-9.3626 119.2484,-9.3692 119.4621,-9.3343 119.5122,-9.3346 119.5431,-9.3581 119.5928,-9.3735 119.674,-9.3771 119.6952,-9.3681 119.7741,-9.3103 119.8073,-9.2791 119.8753,-9.346 119.8967,-9.3725 119.9237,-9.4139 119.9487,-9.443 119.9901,-9.4664 120.0192,-9.47 120.0542,-9.4567 120.1044,-9.4946 120.1168,-9.5692 120.1181,-9.608 120.1295,-9.6359 120.2022,-9.665 120.2222,-9.6498 120.2414,-9.6323 120.3228,-9.6199 120.461,-9.7338 120.4876,-9.7842 120.4922,-9.8083 120.5368,-9.8809 120.5871,-9.9088 120.609,-9.9141 120.6328,-9.9248 120.654,-9.9412 120.6823,-9.9738 120.6945,-9.9988 120.7043,-10.0431 120.7009,-10.066 120.6899,-10.0854 120.5924,-10.188 120.5678,-10.2042 120.4953,-10.2272 120.3626,-10.2528 120.2595,-10.2543 120.0887,-10.2365 120.0307,-10.2187 119.9585,-10.1611 119.9114,-10.1066 119.898,-10.0729 119.8862,-10.0406 119.8513,-9.99 119.8246,-9.9639 119.7975,-9.9653 119.6534,-9.8941 119.601,-9.8646 119.5697,-9.8452 119.5559,-9.8194 119.5516,-9.796 119.4986,-9.7609 119.3492,-9.739 119.0926,-9.7318 119.07,-9.7363 119.07,-9.7363 40,10.0,Papua New Guinea 150.6812,-9.707 150.6785,-9.6747 150.6361,-9.6474 150.5979,-9.6515 150.5259,-9.6523 150.4924,-9.6518 150.4573,-9.6428 150.349,-9.6122 150.3252,-9.5727 150.2616,-9.4302 150.2577,-9.4205 150.2542,-9.4038 150.254,-9.3903 150.256,-9.3787 150.2601,-9.366 150.273,-9.3463 150.3146,-9.3272 150.3363,-9.3305 150.3643,-9.341 150.4054,-9.36 150.4319,-9.3743 150.4554,-9.3903 150.4714,-9.4127 150.5007,-9.4276 150.5141,-9.4304 150.5659,-9.4171 150.58,-9.4097 150.5953,-9.3946 150.6115,-9.404 150.6384,-9.4219 150.6623,-9.4457 150.7209,-9.5123 150.7664,-9.6337 150.7648,-9.6483 150.7561,-9.66 150.7383,-9.6711 150.726,-9.6612 150.7096,-9.668 150.6812,-9.707 150.6812,-9.707 349,2.0,Malawi 32.904,-9.3945 32.907,-9.389 32.9313,-9.3736 32.9651,-9.3658 32.983,-9.389 32.9955,-9.4083 33.0927,-9.4811 33.1631,-9.4968 33.2181,-9.4813 33.2752,-9.4751 33.3614,-9.5319 33.3811,-9.5676 33.3923,-9.5985 33.4568,-9.6111 33.4949,-9.6029 33.5127,-9.5841 33.5419,-9.5738 33.7257,-9.5742 33.8342,-9.6488 33.863,-9.673 33.8816,-9.6956 33.9075,-9.6751 33.9215,-9.6177 33.9229,-9.5933 33.915,-9.5673 33.9122,-9.5409 33.9201,-9.516 33.9653,-9.4769 34.0041,-9.4729 34.0369,-9.4969 34.099,-9.5601 34.1387,-9.5925 34.1684,-9.6164 34.292,-9.7291 34.3362,-9.8004 34.3891,-9.8703 34.4453,-9.94 34.4631,-9.9578 34.4868,-10.0042 34.4973,-10.0344 34.5357,-10.3349 34.5313,-10.356 34.5277,-10.3911 34.5382,-10.5045 34.5422,-10.5225 34.5431,-10.5268 34.547,-10.5496 34.5832,-10.5947 34.6134,-10.6319 34.6199,-10.6519 34.6251,-10.7168 34.6251,-10.749 34.6119,-10.8779 34.6035,-10.9144 34.5891,-10.9391 34.5614,-10.9691 34.5553,-11.0085 34.5778,-11.0981 34.6006,-11.1243 34.6708,-11.1863 34.7641,-11.3188 34.8251,-11.3445 34.8522,-11.3702 34.919,-11.4689 34.9257,-11.4959 34.9283,-11.559 34.919,-11.5595 34.8522,-11.5606 34.6649,-11.5625 34.5866,-11.5662 34.588,-11.591 34.5936,-11.6125 34.5959,-11.654 34.5952,-11.6786 34.5913,-11.701 34.5783,-11.7433 34.5699,-11.7636 34.5146,-11.8583 34.4769,-11.9099 34.4329,-11.9676 34.3726,-12.067 34.3463,-12.116 34.337,-12.1419 34.3316,-12.1721 34.3312,-12.2135 34.335,-12.2326 34.3693,-12.3056 34.386,-12.3963 34.4082,-12.497 34.427,-12.5548 34.4379,-12.5812 34.4604,-12.6182 34.4691,-12.6396 34.4851,-12.7004 34.4913,-12.7446 34.4938,-12.7682 34.4952,-12.8269 34.5002,-12.912 34.5029,-12.9459 34.5102,-12.9984 34.5171,-13.0315 34.524,-13.274 34.5237,-13.2942 34.5263,-13.3244 34.5422,-13.3583 34.6186,-13.4809 34.7912,-13.4817 34.8263,-13.491 34.8596,-13.5071 35.0551,-13.6705 35.1309,-13.7805 35.165,-13.8287 35.4498,-14.1399 35.4639,-14.1754 35.489,-14.235 35.5033,-14.2533 35.7794,-14.5864 35.8342,-14.6444 35.8354,-14.6833 35.8363,-14.7572 35.8387,-14.8683 35.8787,-14.8771 35.8255,-15.0026 35.7599,-15.1696 35.7977,-15.3066 35.8114,-15.3552 35.8248,-15.4019 35.822,-15.436 35.8205,-15.4407 35.8198,-15.4589 35.7889,-15.8372 35.7733,-15.9953 35.751,-16.0369 35.7316,-16.0522 35.6669,-16.0923 35.498,-16.146 35.4444,-16.1145 35.3998,-16.1047 35.3692,-16.1081 35.2493,-16.2099 35.232,-16.2858 35.2127,-16.3818 35.2008,-16.4548 35.1516,-16.488 35.0965,-16.5309 35.114,-16.5805 35.1306,-16.6054 35.1486,-16.6149 35.1808,-16.6272 35.2135,-16.6583 35.2358,-16.6858 35.2597,-16.7903 35.2468,-16.8486 35.2405,-16.9471 35.2542,-16.9962 35.2655,-17.0419 35.2618,-17.0888 35.2478,-17.1149 35.2296,-17.1157 35.0851,-17.1112 35.0456,-17.1078 35.0126,-17.0046 35.0264,-16.9814 35.058,-16.9634 35.0877,-16.9445 35.101,-16.9185 35.103,-16.8171 35.0822,-16.7988 35.0339,-16.805 35.0016,-16.8031 34.9808,-16.794 34.9563,-16.7755 34.7994,-16.6027 34.7257,-16.5278 34.6784,-16.4893 34.6184,-16.435 34.5526,-16.3611 34.5305,-16.302 34.5073,-16.2827 34.4839,-16.2762 34.457,-16.2749 34.4264,-16.2741 34.4096,-16.2622 34.3962,-16.2467 34.3686,-16.1807 34.3665,-16.1135 34.3858,-16.0737 34.3876,-16.0507 34.3798,-16.032 34.2906,-15.9398 34.2741,-15.9267 34.2454,-15.9116 34.2217,-15.8936 34.2137,-15.8707 34.2105,-15.8199 34.226,-15.7752 34.2395,-15.7597 34.2598,-15.7418 34.2834,-15.7257 34.3059,-15.719 34.3351,-15.6965 34.3841,-15.6346 34.3973,-15.5939 34.4023,-15.5299 34.3952,-15.5044 34.3856,-15.4843 34.3936,-15.452 34.4877,-15.3252 34.5088,-15.3168 34.5253,-15.3044 34.5488,-15.2656 34.5524,-15.2358 34.5493,-15.2158 34.5458,-15.2066 34.5345,-15.1944 34.5228,-15.1006 34.5262,-15.044 34.548,-14.947 34.5214,-14.7498 34.5008,-14.5988 34.4918,-14.5763 34.4819,-14.555 34.4558,-14.534 34.4268,-14.5099 34.406,-14.4798 34.387,-14.4453 34.3709,-14.4133 34.3442,-14.3771 34.3236,-14.3696 34.0896,-14.4277 33.8529,-14.473 33.738,-14.5014 33.657,-14.5165 33.5939,-14.5233 33.4929,-14.4155 33.396,-14.305 33.3078,-14.1926 33.2637,-14.1267 33.2193,-14.0203 33.1839,-13.9968 33.1662,-13.9814 33.1516,-13.9576 33.1284,-13.911 33.0407,-13.9654 32.9519,-13.919 32.8614,-13.8042 32.7932,-13.6886 32.7434,-13.6232 32.7167,-13.6264 32.6726,-13.616 32.6446,-13.5974 32.658,-13.5507 32.716,-13.5487 32.7762,-13.526 32.7943,-13.5131 32.8591,-13.4151 32.8813,-13.3741 32.9402,-13.214 32.9491,-13.1255 32.9492,-13.0817 32.9555,-13.0221 32.9656,-12.9876 32.973,-12.9662 32.9833,-12.9479 32.9916,-12.9266 32.9975,-12.899 32.9894,-12.871 32.9352,-12.8387 32.925,-12.7434 33.0093,-12.5896 33.032,-12.571 33.1067,-12.5668 33.127,-12.575 33.2008,-12.5717 33.3268,-12.526 33.4423,-12.4253 33.439,-12.3985 33.4678,-12.372 33.4912,-12.3636 33.5044,-12.3503 33.5082,-12.3216 33.4425,-12.3006 33.3992,-12.3225 33.373,-12.3279 33.3525,-12.3261 33.3318,-12.3124 33.3179,-12.2959 33.2344,-12.1161 33.243,-12.0435 33.2756,-11.9865 33.2951,-11.8836 33.294,-11.7313 33.2879,-11.5998 33.272,-11.5695 33.2336,-11.5578 33.2176,-11.5073 33.2128,-11.3979 33.2564,-11.355 33.3027,-11.2875 33.3543,-11.2026 33.3642,-11.1812 33.3735,-11.1505 33.3478,-11.1004 33.3133,-11.0675 33.2138,-10.8798 33.2259,-10.8515 33.3077,-10.8015 33.3605,-10.7865 33.3811,-10.7908 33.4241,-10.7915 33.4743,-10.7634 33.505,-10.7314 33.5102,-10.7009 33.5679,-10.6355 33.6011,-10.609 33.6437,-10.5843 33.6589,-10.5646 33.6654,-10.5498 33.6508,-10.5366 33.6097,-10.4887 33.5309,-10.3806 33.5083,-10.3201 33.5092,-10.2846 33.5138,-10.2594 33.5238,-10.2331 33.5204,-10.212 33.4972,-10.1944 33.425,-10.1535 33.2898,-10.0525 33.2946,-9.9822 33.3232,-9.9216 33.2859,-9.8 33.266,-9.7877 33.2024,-9.7204 33.188,-9.6941 33.1926,-9.6665 33.1978,-9.6445 33.1926,-9.6231 33.1707,-9.5915 33.0988,-9.5873 33.0728,-9.6139 33.0361,-9.6205 32.9827,-9.6203 32.9638,-9.6107 32.911,-9.4666 32.9074,-9.4449 32.9034,-9.4052 32.904,-9.3945 32.904,-9.3945 613,-4.0,Bolivia -69.4155,-17.4853 -69.4165,-17.4071 -69.4172,-17.3592 -69.4495,-17.328 -69.5066,-17.2757 -69.5721,-17.2678 -69.5346,-17.1954 -69.5088,-17.1654 -69.4476,-17.1104 -69.3813,-17.0776 -69.3226,-17.0529 -69.3031,-17.0335 -69.2369,-16.907 -69.1086,-16.7592 -69.0242,-16.6927 -68.9676,-16.6649 -68.9292,-16.6381 -68.9311,-16.6105 -68.949,-16.5897 -68.9582,-16.5289 -68.9511,-16.4545 -68.9077,-16.401 -68.7508,-16.3355 -68.7417,-16.3079 -68.7558,-16.2799 -68.8852,-16.1909 -68.9619,-16.1894 -68.9879,-16.2092 -69.057,-16.2038 -69.0767,-16.1934 -69.1308,-16.139 -69.3382,-15.604 -69.2497,-15.4214 -69.1858,-15.3095 -69.1136,-15.2444 -69.0874,-15.2461 -69.0609,-15.237 -69.0547,-15.2103 -69.0885,-15.1704 -69.1154,-15.1415 -69.2127,-15.0624 -69.2991,-14.9479 -69.283,-14.7837 -69.2615,-14.763 -69.2286,-14.7503 -69.1674,-14.6708 -69.1672,-14.6376 -69.1635,-14.5998 -69.1541,-14.5726 -69.0346,-14.4679 -68.9037,-14.362 -68.9192,-14.3199 -68.9218,-14.2325 -68.906,-14.2154 -68.8786,-14.2077 -68.8327,-14.2007 -68.7777,-14.1842 -68.8188,-14.016 -68.8577,-13.9896 -68.881,-13.9713 -68.8952,-13.9506 -68.922,-13.8239 -68.9345,-13.7754 -68.9833,-13.6922 -68.9439,-13.6267 -68.9001,-13.5507 -68.8822,-13.4913 -68.8805,-13.4374 -68.8818,-13.2573 -68.8899,-13.151 -68.8903,-13.082 -68.8851,-13.0117 -68.8952,-12.9871 -68.8951,-12.851 -68.8442,-12.7881 -68.8017,-12.7432 -68.7378,-12.7185 -68.6907,-12.6299 -68.6661,-12.5704 -68.5968,-12.4871 -68.6001,-12.4817 -68.6216,-12.4401 -68.6592,-12.3639 -68.6725,-12.3362 -68.7584,-12.1632 -68.8034,-12.0731 -68.8482,-11.9849 -68.8803,-11.9312 -68.9102,-11.8826 -68.9241,-11.8618 -68.9626,-11.7993 -68.9928,-11.7507 -69.1039,-11.5705 -69.1381,-11.5151 -69.1723,-11.4595 -69.3558,-11.1611 -69.4237,-11.0501 -69.4909,-10.9381 -69.4637,-10.9398 -69.4103,-10.9385 -69.371,-10.9351 -69.3356,-10.9252 -69.1465,-10.9384 -68.9998,-10.9547 -68.7727,-11.0036 -68.6908,-11.1243 -68.6245,-11.1222 -68.5789,-11.1117 -68.5451,-11.1037 -68.5005,-11.0906 -68.4767,-11.0764 -68.4471,-11.0469 -68.327,-11.0053 -68.2687,-10.9945 -68.2376,-10.9842 -68.2054,-10.9673 -68.1551,-10.8994 -68.0497,-10.747 -68.0439,-10.7198 -68.0268,-10.6929 -68.0071,-10.6783 -67.986,-10.6644 -67.9428,-10.6481 -67.7913,-10.6449 -67.762,-10.647 -67.7429,-10.6532 -67.7126,-10.6719 -67.6678,-10.7008 -67.6286,-10.6825 -67.6005,-10.6078 -67.5354,-10.5182 -67.5082,-10.4924 -67.455,-10.4692 -67.4351,-10.461 -67.3755,-10.4297 -67.2527,-10.3471 -67.2492,-10.3119 -67.2262,-10.3049 -67.1515,-10.3002 -67.1093,-10.3119 -67.0033,-10.257 -66.9727,-10.232 -66.8974,-10.1607 -66.8767,-10.1397 -66.852,-10.1116 -66.8204,-10.08 -66.687,-9.9795 -66.6592,-9.9655 -66.6205,-9.9519 -66.5863,-9.9371 -66.5693,-9.9188 -66.5673,-9.907 -66.5572,-9.8946 -66.4725,-9.8768 -66.4063,-9.8704 -66.364,-9.8772 -66.3104,-9.8556 -66.1021,-9.786 -66.0049,-9.7646 -65.8994,-9.7685 -65.7716,-9.7668 -65.7199,-9.7639 -65.6734,-9.7596 -65.5337,-9.8238 -65.4973,-9.8238 -65.4438,-9.7629 -65.4401,-9.7302 -65.4202,-9.708 -65.3701,-9.6682 -65.3349,-9.6752 -65.3051,-9.6921 -65.2699,-9.7513 -65.2302,-9.831 -65.2508,-9.8922 -65.2646,-9.9359 -65.2588,-10.0323 -65.2415,-10.0637 -65.232,-10.0895 -65.217,-10.1837 -65.2174,-10.206 -65.2396,-10.2772 -65.2529,-10.2951 -65.2761,-10.3138 -65.3064,-10.3432 -65.317,-10.3606 -65.3241,-10.3816 -65.3194,-10.4018 -65.3303,-10.4304 -65.3702,-10.4617 -65.366,-10.6068 -65.3181,-10.7435 -65.257,-10.8397 -65.2439,-10.8686 -65.2306,-10.9729 -65.271,-11.0455 -65.3214,-11.1369 -65.3295,-11.1569 -65.3185,-11.2617 -65.2761,-11.3919 -65.2378,-11.481 -65.2173,-11.4921 -65.1692,-11.4928 -65.1506,-11.5057 -65.0972,-11.6014 -65.1158,-11.6431 -65.1285,-11.6724 -65.1365,-11.6983 -65.119,-11.7386 -65.0771,-11.7586 -65.046,-11.6856 -64.9898,-11.7414 -64.971,-11.7964 -64.9631,-11.8682 -64.9444,-11.9564 -64.9357,-11.9758 -64.9119,-11.9974 -64.8238,-12.0096 -64.7634,-12.0097 -64.7374,-12.0151 -64.7188,-12.028 -64.6909,-12.084 -64.6661,-12.1362 -64.5452,-12.197 -64.4442,-12.2284 -64.4246,-12.3521 -64.3489,-12.427 -64.3269,-12.4441 -64.3007,-12.4543 -64.2212,-12.4678 -64.1666,-12.4651 -64.1044,-12.4714 -63.9675,-12.5036 -63.9478,-12.5229 -63.8561,-12.5329 -63.8267,-12.5143 -63.7987,-12.4799 -63.7606,-12.46 -63.7256,-12.4458 -63.6002,-12.4563 -63.3998,-12.5561 -63.3929,-12.5815 -63.3441,-12.6397 -63.3232,-12.654 -63.2535,-12.6897 -63.1757,-12.6915 -63.1447,-12.6667 -63.0923,-12.6346 -63.0623,-12.6216 -62.9959,-12.6456 -62.9911,-12.6835 -62.9778,-12.7329 -62.9228,-12.8246 -62.9024,-12.8383 -62.8256,-12.8858 -62.7728,-12.9276 -62.6983,-12.9909 -62.6172,-12.954 -62.5747,-12.9924 -62.5743,-13.0176 -62.3482,-13.1178 -62.3138,-13.1308 -62.26,-13.1328 -62.1977,-13.1261 -62.1737,-13.1119 -62.1431,-13.1062 -62.0431,-13.1386 -62.039,-13.1684 -62.0148,-13.2564 -61.9318,-13.347 -61.9023,-13.3604 -61.8736,-13.3808 -61.8035,-13.4386 -61.7977,-13.4656 -61.7693,-13.5232 -61.7391,-13.5333 -61.6592,-13.5217 -61.5457,-13.4976 -61.5228,-13.4918 -61.5069,-13.5105 -61.4506,-13.5352 -61.4221,-13.538 -61.1913,-13.5077 -60.9692,-13.4778 -60.9341,-13.5254 -60.8877,-13.5675 -60.7215,-13.6639 -60.7009,-13.6679 -60.6746,-13.6668 -60.6055,-13.7229 -60.5135,-13.7529 -60.4071,-13.7879 -60.3147,-13.9715 -60.3306,-14.0139 -60.3558,-14.0512 -60.3948,-14.086 -60.4118,-14.1518 -60.3801,-14.2749 -60.3568,-14.3082 -60.2758,-14.4669 -60.2102,-14.6067 -60.2052,-14.69 -60.1931,-14.8967 -60.1885,-15.0197 -60.1872,-15.0765 -60.2207,-15.0774 -60.3129,-15.0753 -60.4993,-15.0805 -60.3677,-15.224 -60.1553,-15.4609 -60.1121,-15.9624 -60.0878,-16.2445 -60.0346,-16.2473 -59.9333,-16.2517 -59.4613,-16.2707 -59.4183,-16.2723 -58.902,-16.2924 -58.4715,-16.3082 -58.3688,-16.3114 -58.3449,-16.3014 -58.3304,-16.2873 -58.3188,-16.2646 -58.2573,-16.2608 -58.2557,-16.2881 -58.2544,-16.3777 -58.2763,-16.4873 -58.2917,-16.507 -58.3273,-16.5345 -58.3489,-16.5547 -58.3613,-16.5712 -58.3976,-16.6252 -58.4054,-16.6558 -58.4058,-16.7026 -58.3928,-16.8814 -58.3883,-16.9053 -58.3746,-16.9334 -58.3645,-16.9516 -58.354,-16.9906 -58.3367,-17.0928 -58.3361,-17.119 -58.3388,-17.1712 -58.3325,-17.207 -58.3197,-17.2402 -58.3004,-17.2593 -58.2807,-17.2675 -58.2513,-17.2734 -58.2241,-17.2803 -58.1796,-17.3067 -58.0501,-17.3931 -58.0386,-17.4193 -58.0215,-17.4357 -57.9463,-17.4779 -57.9132,-17.4807 -57.8315,-17.4423 -57.8108,-17.4572 -57.7179,-17.5336 -57.6756,-17.574 -57.6957,-17.5928 -57.7095,-17.6177 -57.6893,-17.667 -57.6593,-17.7007 -57.6475,-17.7077 -57.6482,-17.7185 -57.6511,-17.7547 -57.6487,-17.8249 -57.5118,-18.0755 -57.4514,-18.1835 -57.4824,-18.2263 -57.4933,-18.2542 -57.5569,-18.4473 -57.6998,-18.8849 -57.6529,-18.8924 -57.6466,-18.9132 -57.6343,-19.022 -57.7065,-19.0258 -57.7167,-19.0465 -57.751,-19.1154 -57.7846,-19.1848 -57.8901,-19.3992 -58.0165,-19.655 -58.0502,-19.7191 -58.0324,-19.738 -57.7812,-19.9529 -57.8305,-20.0065 -58.039,-20.1265 -58.0879,-20.1452 -58.0665,-20.0937 -58.0622,-20.0596 -58.0605,-19.9636 -58.0802,-19.8086 -58.1611,-19.7603 -58.197,-19.7417 -58.4492,-19.6163 -58.7211,-19.4796 -59.0238,-19.3271 -59.0845,-19.3235 -59.3559,-19.308 -59.5011,-19.2997 -59.9088,-19.2749 -59.9454,-19.2804 -59.9842,-19.2929 -60.3508,-19.389 -60.4426,-19.4127 -60.5396,-19.4372 -60.7223,-19.4681 -61.2824,-19.5609 -61.5939,-19.6111 -61.6672,-19.6227 -61.6992,-19.7023 -61.7723,-19.8885 -61.8376,-20.0573 -62.0261,-20.3145 -62.1231,-20.4481 -62.1936,-20.5391 -62.1916,-20.5986 -62.1894,-20.719 -62.1879,-20.7875 -62.185,-20.977 -62.1827,-21.0332 -62.3011,-21.4023 -62.3936,-21.6895 -62.3981,-21.7037 -62.4093,-21.7403 -62.4475,-21.8589 -62.5238,-22.0954 -62.5567,-22.1967 -62.5663,-22.214 -62.5797,-22.211 -62.6876,-22.1298 -62.715,-22.0905 -62.7155,-22.0687 -62.7153,-22.034 -62.7233,-21.9921 -62.7397,-21.9724 -62.8084,-21.9731 -63.0523,-21.9759 -63.515,-21.9786 -63.6075,-21.9784 -63.6544,-21.9778 -63.8621,-21.9761 -63.914,-22.0694 -63.9794,-22.2248 -64.0475,-22.3848 -64.0934,-22.4451 -64.12,-22.4697 -64.1435,-22.4874 -64.1648,-22.5244 -64.1737,-22.5425 -64.2004,-22.6201 -64.2062,-22.7018 -64.204,-22.7288 -64.2214,-22.8069 -64.2367,-22.8348 -64.2583,-22.8438 -64.2683,-22.8171 -64.2681,-22.7886 -64.2726,-22.7414 -64.2834,-22.7114 -64.3367,-22.6579 -64.3733,-22.6185 -64.3756,-22.5899 -64.3641,-22.5546 -64.382,-22.4892 -64.4464,-22.3838 -64.4604,-22.2616 -64.4673,-22.2354 -64.5129,-22.188 -64.6039,-22.1505 -64.6357,-22.1572 -64.8893,-22.0827 -64.9081,-22.066 -65.1096,-22.0697 -65.5179,-22.0749 -65.5763,-22.0839 -65.6687,-22.0852 -65.7318,-22.0464 -65.7861,-21.9809 -65.8447,-21.9087 -65.9961,-21.8072 -66.1131,-21.7636 -66.1414,-21.7558 -66.1547,-21.7722 -66.1814,-21.8775 -66.2002,-21.9534 -66.2097,-22.0106 -66.225,-22.0521 -66.2637,-22.0916 -66.3203,-22.109 -66.4136,-22.1359 -66.4776,-22.1535 -66.534,-22.1668 -66.6064,-22.1711 -66.6543,-22.2024 -66.6888,-22.3496 -66.6921,-22.4017 -66.7674,-22.4278 -66.8435,-22.4525 -66.9394,-22.4986 -66.9352,-22.5484 -66.9298,-22.6087 -67.0414,-22.6939 -67.1002,-22.7958 -67.2513,-22.8268 -67.4161,-22.8597 -67.4952,-22.8751 -67.709,-22.8522 -67.7921,-22.8022 -67.7998,-22.6872 -67.7657,-22.5294 -67.8067,-22.4012 -67.8488,-22.2751 -67.8388,-22.2486 -67.8387,-22.214 -67.8608,-22.0797 -67.8889,-22.0352 -67.9132,-22.0219 -68.0014,-21.9367 -68.0035,-21.8885 -68.0022,-21.8555 -68.0036,-21.8182 -68.0067,-21.7952 -68.0214,-21.7208 -68.0383,-21.6734 -68.0551,-21.6423 -68.0861,-21.6034 -68.1022,-21.5852 -68.1049,-21.2729 -68.1462,-21.2093 -68.3405,-20.9153 -68.3699,-20.9159 -68.3952,-20.9181 -68.4221,-20.9138 -68.4481,-20.9028 -68.4687,-20.8813 -68.4762,-20.8679 -68.4818,-20.8467 -68.4814,-20.7106 -68.4452,-20.6643 -68.4254,-20.6484 -68.3886,-20.6272 -68.3833,-20.6073 -68.4088,-20.5815 -68.4658,-20.5443 -68.4871,-20.5356 -68.5159,-20.5269 -68.5458,-20.5153 -68.5781,-20.5 -68.6073,-20.482 -68.6409,-20.4477 -68.6552,-20.4271 -68.6685,-20.4008 -68.671,-20.3505 -68.6511,-20.3294 -68.6201,-20.3151 -68.6375,-20.2151 -68.6829,-20.1139 -68.7009,-20.0919 -68.6935,-20.0664 -68.5669,-20.0339 -68.5272,-20.0289 -68.4942,-20.031 -68.4398,-19.8937 -68.4833,-19.8116 -68.5424,-19.7633 -68.6062,-19.7204 -68.6035,-19.6813 -68.5185,-19.5855 -68.4889,-19.5445 -68.4678,-19.5177 -68.3604,-19.4116 -68.4083,-19.347 -68.4677,-19.2974 -68.4992,-19.282 -68.5247,-19.2755 -68.5588,-19.2604 -68.5748,-19.2454 -68.6572,-19.156 -68.6987,-19.1202 -68.8161,-19.0432 -68.8819,-18.9315 -68.849,-18.8615 -68.8675,-18.8244 -68.9167,-18.7217 -68.9405,-18.6377 -68.9454,-18.5904 -68.9485,-18.5389 -68.9418,-18.4867 -68.9394,-18.4624 -68.9461,-18.4385 -68.9559,-18.4201 -68.9764,-18.3935 -68.9907,-18.3713 -69.0018,-18.265 -69.007,-18.2074 -69.0305,-18.1804 -69.0515,-18.1591 -69.0649,-18.1303 -69.0558,-18.1047 -69.0347,-18.0884 -68.9987,-18.0663 -68.9892,-18.0479 -68.991,-18.0176 -69.0498,-18.0085 -69.2074,-17.9593 -69.2222,-17.9355 -69.2313,-17.9065 -69.2372,-17.8719 -69.2345,-17.8049 -69.2435,-17.7773 -69.2715,-17.7255 -69.2921,-17.7067 -69.4031,-17.613 -69.4155,-17.4853 -69.4155,-17.4853 48,10.0,Papua New Guinea 151.0637,-10.1895 151.0285,-10.1583 150.9808,-10.1348 150.9213,-10.1155 150.9107,-10.1129 150.8608,-10.1025 150.833,-10.0994 150.8182,-10.1014 150.8051,-10.1005 150.7936,-10.0987 150.7846,-10.094 150.7506,-9.9928 150.7127,-9.9153 150.6616,-9.8276 150.5954,-9.7927 150.5851,-9.7372 150.5834,-9.7199 150.5972,-9.6969 150.6224,-9.7084 150.6374,-9.7201 150.656,-9.7357 150.7348,-9.8079 150.77,-9.8412 150.7974,-9.8824 150.8653,-9.974 150.8744,-9.9854 150.8947,-10.0057 150.9077,-10.0132 150.9528,-10.0351 150.9714,-10.03 150.983,-10.0188 150.9834,-10.0081 150.9736,-9.9921 150.9712,-9.9777 151.0228,-9.9308 151.0353,-9.9255 151.0987,-9.9086 151.1171,-9.9139 151.1331,-9.9394 151.1336,-9.951 151.1308,-9.9615 151.1055,-10.0501 151.0811,-10.0936 151.0687,-10.1215 151.0561,-10.1593 151.0574,-10.1771 151.0637,-10.1895 151.0637,-10.1895 14,10.0,Australia 142.1241,-10.254 142.0551,-10.2252 142.0457,-10.2141 142.034,-10.1925 142.0575,-10.1455 142.0729,-10.134 142.1286,-10.1243 142.1611,-10.14 142.175,-10.1605 142.1841,-10.1796 142.1829,-10.1913 142.1333,-10.2495 142.1241,-10.254 142.1241,-10.254 13,8.0,Indonesia 123.2813,-10.1419 123.2936,-10.1347 123.3146,-10.1281 123.3718,-10.1687 123.2721,-10.3278 123.1864,-10.3292 123.1774,-10.3127 123.1745,-10.3019 123.1747,-10.2642 123.1838,-10.2481 123.2599,-10.1546 123.2813,-10.1419 123.2813,-10.1419 24,8.0,Indonesia 121.5928,-10.5325 121.6353,-10.5079 121.7073,-10.4509 121.7226,-10.4321 121.7436,-10.4192 121.7613,-10.4096 121.7733,-10.4077 121.7862,-10.4085 121.8567,-10.4256 121.8659,-10.4337 121.8698,-10.4433 121.8684,-10.4557 121.8607,-10.5039 121.8452,-10.5256 121.7376,-10.5955 121.7264,-10.5981 121.7126,-10.5983 121.6122,-10.5947 121.6033,-10.5903 121.5779,-10.5747 121.5609,-10.561 121.56,-10.5505 121.5928,-10.5325 121.5928,-10.5325 33,8.0,Indonesia 122.7213,-10.7475 122.7982,-10.7253 122.9401,-10.6689 122.9501,-10.6586 123.0473,-10.5736 123.125,-10.51 123.2414,-10.4258 123.2559,-10.4263 123.2625,-10.4379 123.2686,-10.5845 123.2589,-10.672 123.1843,-10.6876 123.1344,-10.7193 123.0982,-10.775 123.083,-10.797 123.0629,-10.8108 123.0531,-10.8146 123.0412,-10.8161 123.0296,-10.8142 123.0152,-10.808 122.9998,-10.807 122.8635,-10.8467 122.8277,-10.8652 122.8196,-10.8797 122.7138,-10.9174 122.6955,-10.9111 122.6874,-10.8988 122.6744,-10.7945 122.6744,-10.7754 122.7051,-10.7536 122.7142,-10.7489 122.7213,-10.7475 122.7213,-10.7475 856,2.0,Mozambique 34.9283,-11.559 34.9725,-11.56 35.1998,-11.5628 35.3979,-11.5807 35.5342,-11.5937 35.6086,-11.5738 35.6331,-11.5452 35.6941,-11.4701 35.789,-11.4037 35.8984,-11.4197 36.1284,-11.5726 36.1378,-11.6305 36.1345,-11.6555 36.1474,-11.6922 36.227,-11.6962 36.2536,-11.6942 36.3024,-11.683 36.3354,-11.6706 36.477,-11.7071 36.5168,-11.7269 36.6373,-11.7015 36.6845,-11.6686 36.7055,-11.6508 36.7254,-11.6303 36.7453,-11.6042 36.7862,-11.559 36.9568,-11.5784 37.0779,-11.6568 37.1496,-11.6766 37.2267,-11.6895 37.358,-11.7097 37.4317,-11.7054 37.5556,-11.6266 37.6517,-11.5895 37.7501,-11.548 37.7752,-11.5233 37.7808,-11.4969 37.7683,-11.4709 37.7775,-11.4382 37.8236,-11.3198 37.8585,-11.2915 37.8927,-11.2751 37.9205,-11.2661 37.9907,-11.248 38.0546,-11.2434 38.1317,-11.2721 38.2917,-11.3352 38.3151,-11.3515 38.3355,-11.3643 38.3745,-11.3842 38.4493,-11.4023 38.4915,-11.3595 38.5286,-11.3297 38.5927,-11.2818 38.6127,-11.2682 38.63,-11.2582 38.8629,-11.1574 38.8886,-11.1529 39.093,-11.1295 39.1395,-11.1466 39.1628,-11.1605 39.1898,-11.1613 39.2192,-11.1567 39.2494,-11.1398 39.272,-11.1228 39.348,-11.0653 39.4603,-10.985 39.4796,-10.9776 39.6204,-10.9336 39.6478,-10.9316 39.7234,-10.908 39.7517,-10.8896 39.7682,-10.8733 39.7955,-10.8536 39.8247,-10.8364 39.8545,-10.8193 39.8984,-10.8025 39.919,-10.7965 39.9758,-10.7667 40.1147,-10.6654 40.302,-10.5522 40.3371,-10.5284 40.3834,-10.4873 40.3924,-10.4664 40.4034,-10.4592 40.4721,-10.4701 40.5251,-10.5852 40.5399,-10.642 40.5438,-10.6745 40.4586,-10.7789 40.5068,-10.7874 40.5576,-10.8114 40.5726,-10.8294 40.5636,-10.8498 40.5308,-10.8666 40.4888,-10.8854 40.4647,-10.9172 40.4571,-10.9455 40.4616,-11.019 40.4869,-11.0039 40.5192,-11.0118 40.517,-11.0538 40.4541,-11.164 40.4231,-11.206 40.3726,-11.2685 40.3432,-11.3048 40.4321,-11.3912 40.4066,-11.5089 40.3841,-11.5614 40.3795,-11.6365 40.4013,-11.7236 40.4265,-11.7978 40.4605,-11.9435 40.4696,-12.3025 40.4649,-12.4199 40.4288,-12.4907 40.4535,-12.5067 40.5134,-12.5392 40.5653,-12.6945 40.6002,-12.7408 40.5985,-12.763 40.4679,-12.8703 40.4312,-12.8694 40.404,-12.8886 40.3701,-12.9206 40.3673,-12.9544 40.4155,-13.0018 40.4481,-13.0105 40.4652,-12.9921 40.4633,-12.9712 40.4725,-12.9403 40.5471,-12.9558 40.5261,-13.1876 40.4934,-13.297 40.5137,-13.3143 40.5438,-13.3567 40.4959,-13.4607 40.4798,-13.4998 40.5025,-13.5154 40.5324,-13.552 40.5305,-13.5717 40.4931,-13.6251 40.5013,-13.6723 40.5562,-13.8809 40.5784,-13.9085 40.5892,-13.9303 40.6028,-14.0056 40.596,-14.0548 40.5692,-14.1158 40.5382,-14.1321 40.5079,-14.1406 40.4857,-14.1514 40.5125,-14.1918 40.5515,-14.2297 40.5758,-14.2105 40.602,-14.1816 40.6217,-14.1741 40.6517,-14.1672 40.6756,-14.1859 40.6974,-14.2587 40.6814,-14.3266 40.635,-14.3494 40.5963,-14.3849 40.5889,-14.4682 40.6232,-14.4712 40.6424,-14.4194 40.6608,-14.4114 40.7277,-14.3879 40.759,-14.3898 40.7734,-14.4072 40.7836,-14.4432 40.7982,-14.6811 40.7974,-14.7173 40.7844,-14.7643 40.772,-14.7945 40.6806,-14.8721 40.7025,-14.9164 40.7222,-14.9614 40.6557,-15.0649 40.5593,-15.098 40.5254,-15.1057 40.49,-15.107 40.4666,-15.1665 40.4905,-15.1771 40.5336,-15.1788 40.5576,-15.1461 40.5835,-15.1407 40.6202,-15.1743 40.6359,-15.2377 40.6236,-15.2718 40.5394,-15.4622 40.5301,-15.4814 40.5111,-15.5044 40.4953,-15.5165 40.4317,-15.5572 40.3897,-15.5844 40.3622,-15.6281 40.3331,-15.6771 40.3124,-15.7054 40.2904,-15.7267 40.1966,-15.8159 40.0775,-15.922 40.0855,-15.9586 40.0861,-15.9796 40.0496,-16.0649 39.9803,-16.159 39.9287,-16.217 39.8852,-16.2248 39.8577,-16.2225 39.8362,-16.221 39.7605,-16.2635 39.735,-16.287 39.7554,-16.3539 39.77,-16.3943 39.6509,-16.5184 39.6268,-16.5367 39.4591,-16.6344 39.3915,-16.6663 39.2635,-16.7331 39.2368,-16.7492 39.1456,-16.8122 39.0804,-16.8515 39.081,-16.8624 39.078,-16.9185 39.0492,-16.9653 38.85,-17.0202 38.7776,-17.0375 38.6394,-17.0514 38.5581,-17.0798 38.3456,-17.157 38.2845,-17.1795 38.2036,-17.2099 38.1689,-17.2312 38.1523,-17.2502 38.0508,-17.2972 37.9958,-17.3097 37.955,-17.3177 37.915,-17.3252 37.887,-17.3337 37.8661,-17.3408 37.8265,-17.3568 37.8073,-17.366 37.7358,-17.4066 37.5637,-17.506 37.372,-17.613 37.1758,-17.7302 37.0439,-17.8518 37.0228,-17.8744 37.0107,-17.8911 36.9871,-17.9319 36.9595,-17.9692 36.9393,-17.9811 36.8717,-17.9302 36.8635,-17.8891 36.8554,-17.8699 36.8255,-17.8553 36.8019,-17.8552 36.7769,-17.8744 36.8473,-17.9487 36.9077,-18.0089 36.926,-18.039 36.8991,-18.088 36.8489,-18.1522 36.7292,-18.2809 36.5683,-18.433 36.4581,-18.5341 36.4355,-18.556 36.3747,-18.6529 36.3546,-18.7121 36.2766,-18.7731 36.209,-18.8701 36.1142,-18.8826 36.0871,-18.8787 36.0789,-18.8198 36.0872,-18.7874 36.0795,-18.7812 36.0566,-18.7916 36.0155,-18.8447 35.9393,-18.9054 35.8355,-18.9535 35.7687,-18.9998 35.7054,-19.0444 35.6274,-19.1002 35.6128,-19.1308 35.5935,-19.1656 35.5332,-19.2497 35.4041,-19.3969 35.3202,-19.4746 35.2488,-19.5386 35.0698,-19.6946 34.8485,-19.8379 34.8053,-19.8333 34.7865,-19.7892 34.7704,-19.7562 34.5849,-19.5966 34.5911,-19.6301 34.5996,-19.6499 34.6417,-19.7168 34.6809,-19.7335 34.7004,-19.7467 34.7209,-19.7748 34.7341,-19.8035 34.7228,-19.8765 34.7177,-19.9137 34.7128,-19.9479 34.7086,-20.014 34.7104,-20.0469 34.7173,-20.1578 34.6529,-20.3581 34.625,-20.3681 34.6973,-20.5346 34.8287,-20.6335 34.9104,-20.672 34.9411,-20.6999 34.9477,-20.704 34.97,-20.7554 34.9663,-20.7835 35.0317,-20.8894 35.0691,-20.9095 35.0604,-20.9335 35.0753,-20.9507 35.0397,-21.0636 35.0077,-21.0741 35.0365,-21.3002 35.0945,-21.4073 35.1407,-21.4922 35.1687,-21.5295 35.1851,-21.545 35.2036,-21.566 35.2264,-21.6242 35.2288,-21.6546 35.2203,-21.6872 35.2335,-21.7947 35.2577,-21.8589 35.2865,-21.9686 35.294,-22.0494 35.2946,-22.079 35.2836,-22.2088 35.2666,-22.2853 35.2591,-22.3052 35.2569,-22.3324 35.2631,-22.3824 35.3281,-22.4406 35.3535,-22.4347 35.3657,-22.389 35.3478,-22.3218 35.3457,-22.2737 35.35,-22.2447 35.3595,-22.1965 35.3752,-22.146 35.4024,-22.0952 35.4368,-22.0707 35.5016,-22.2074 35.4992,-22.3654 35.4969,-22.3887 35.4897,-22.4274 35.4801,-22.4519 35.4688,-22.4804 35.4483,-22.545 35.4422,-22.6038 35.4605,-22.8085 35.4785,-22.8895 35.4912,-22.9245 35.5532,-22.894 35.5194,-22.9892 35.5045,-23.016 35.4885,-23.0355 35.475,-23.0569 35.436,-23.1522 35.4349,-23.1915 35.4425,-23.2231 35.4429,-23.2556 35.4365,-23.2858 35.4244,-23.3148 35.4101,-23.3545 35.3771,-23.4631 35.3685,-23.4949 35.3644,-23.5856 35.3629,-23.6293 35.3036,-23.6684 35.2944,-23.879 35.2955,-23.9426 35.3162,-23.9265 35.3954,-23.8518 35.4312,-23.7988 35.4456,-23.766 35.4786,-23.7686 35.4953,-23.8461 35.4729,-23.8942 35.4572,-23.9398 35.4389,-24.021 35.4408,-24.0499 35.4511,-24.0751 35.4117,-24.142 35.3606,-24.2172 35.3457,-24.2388 35.2651,-24.3384 35.241,-24.3643 35.2193,-24.3813 35.1484,-24.4626 35.1412,-24.4945 35.0996,-24.5424 35.0744,-24.561 35.053,-24.5764 35.0349,-24.588 35.0067,-24.6049 34.9683,-24.6265 34.9276,-24.6467 34.769,-24.7154 34.6501,-24.7581 34.6101,-24.772 34.5702,-24.786 34.4393,-24.8281 34.3996,-24.8404 34.3309,-24.8638 34.2857,-24.8862 34.2605,-24.8988 34.2025,-24.9181 34.065,-24.9588 33.9516,-24.9918 33.6798,-25.0807 33.3234,-25.2365 33.1955,-25.2989 33.1799,-25.312 33.09,-25.3527 33.0672,-25.3657 33.0065,-25.4017 32.8616,-25.4944 32.8401,-25.5094 32.7695,-25.5832 32.7284,-25.6545 32.7208,-25.6745 32.697,-25.7466 32.6917,-25.7772 32.6627,-25.7969 32.6559,-25.8171 32.6521,-25.845 32.6337,-25.8703 32.6062,-25.8972 32.5649,-25.933 32.5458,-25.943 32.5623,-26.0021 32.6814,-26.15 32.7647,-26.2457 32.8013,-26.2615 32.8312,-26.2427 32.827,-26.2094 32.8222,-26.1797 32.8515,-26.0971 32.8602,-26.0783 32.9035,-26.0585 32.9011,-26.1232 32.895,-26.1695 32.887,-26.2498 32.8857,-26.3241 32.8604,-26.685 32.8399,-26.7891 32.8483,-26.8169 32.7258,-26.8214 32.6472,-26.8234 32.3534,-26.8294 32.3067,-26.8302 32.1336,-26.8216 32.1128,-26.8166 32.0923,-26.8092 32.0914,-26.7664 32.0849,-26.469 32.048,-26.3954 32.0314,-26.3636 32.02,-26.2319 32.0611,-26.1259 32.0337,-26.0077 31.958,-25.9616 31.9277,-25.9284 31.8789,-25.7851 31.9416,-25.6426 31.9655,-25.5869 31.9644,-25.5083 31.9476,-25.4823 31.9505,-25.3924 31.9695,-25.3177 31.9761,-25.0821 31.9782,-25.0069 31.9709,-24.8969 31.9624,-24.7729 31.9553,-24.6766 31.9761,-24.4317 31.9673,-24.4046 31.924,-24.2794 31.9017,-24.2402 31.8458,-24.1438 31.8442,-24.1164 31.8375,-23.9372 31.8375,-23.9238 31.8051,-23.8803 31.7301,-23.8293 31.6807,-23.7219 31.6493,-23.6535 31.6466,-23.6124 31.6443,-23.5871 31.6119,-23.5473 31.5822,-23.5143 31.5115,-23.4502 31.4985,-23.3907 31.5066,-23.2799 31.5164,-23.2019 31.5225,-23.1606 31.4772,-23.0249 31.2644,-22.3994 31.2588,-22.3893 31.2675,-22.3844 31.3163,-22.3542 31.3616,-22.3221 31.6496,-22.0295 31.8873,-21.7866 32.3646,-21.2943 32.3764,-21.2833 32.4256,-21.301 32.4493,-21.3202 32.4364,-21.2976 32.3725,-21.1937 32.3211,-21.1117 32.3366,-21.0822 32.4412,-20.9684 32.4819,-20.8907 32.4706,-20.8358 32.4612,-20.7958 32.4446,-20.6468 32.4627,-20.5754 32.5114,-20.5319 32.6262,-20.5339 32.7629,-20.3396 32.834,-20.2512 32.8446,-20.208 32.8527,-20.1437 32.8643,-20.1015 32.943,-19.9997 32.9789,-19.9209 33.0192,-19.758 32.9449,-19.6651 32.8108,-19.5958 32.8121,-19.4781 32.8006,-19.4535 32.7726,-19.452 32.7458,-19.445 32.7531,-19.3407 32.8005,-19.2808 32.8153,-19.2523 32.8451,-19.0836 32.7943,-19.0017 32.7432,-19.0007 32.7001,-19.0042 32.6751,-18.9966 32.6597,-18.9265 32.6646,-18.8117 32.7506,-18.7675 32.7925,-18.757 32.8295,-18.7662 32.8531,-18.77 32.8804,-18.7556 32.9097,-18.6693 32.866,-18.5923 32.8496,-18.5502 32.8487,-18.5098 32.8753,-18.4931 32.9057,-18.486 32.9563,-18.4608 32.9807,-18.4389 33.0317,-18.3291 33.0102,-18.3082 32.9799,-18.281 32.9344,-18.2295 32.9596,-18.1671 32.9483,-18.1019 32.9374,-18.0816 32.9249,-18.0579 32.9151,-18.0211 32.9064,-17.9548 32.9124,-17.8607 32.9353,-17.7976 32.9752,-17.7254 33.0027,-17.6094 33.0009,-17.58 32.9888,-17.5583 32.9387,-17.5377 32.9167,-17.4857 33.0022,-17.3368 32.9977,-17.3214 32.9776,-17.305 32.9541,-17.2885 32.9481,-17.2454 32.9488,-17.2328 32.9474,-17.2084 32.9403,-17.1636 32.9287,-17.1283 32.8952,-17.0661 32.8778,-17.0354 32.8254,-16.8993 32.8527,-16.8776 32.8734,-16.8555 32.8873,-16.84 32.8989,-16.8233 32.9088,-16.8037 32.9197,-16.7781 32.9273,-16.7561 32.9341,-16.7333 32.9415,-16.6901 32.8909,-16.6838 32.76,-16.6995 32.7281,-16.6991 32.689,-16.6748 32.6681,-16.5931 32.541,-16.527 32.3683,-16.4597 32.3392,-16.4512 32.315,-16.4451 32.2544,-16.4298 32.2162,-16.4215 32.1919,-16.4203 32.1175,-16.4227 32.0466,-16.4294 32.0172,-16.4298 31.9449,-16.4167 31.873,-16.3943 31.8649,-16.3471 31.7441,-16.2425 31.6774,-16.1923 31.6243,-16.1804 31.5393,-16.174 31.5186,-16.1766 31.4733,-16.1681 31.3889,-16.1441 31.3633,-16.1282 31.3063,-16.0753 31.3045,-16.0544 31.2744,-16.0143 31.2393,-16.0005 31.1117,-15.9765 31.0341,-15.9973 30.7842,-15.9863 30.3861,-15.9873 30.381,-15.6244 30.3796,-15.614 30.3607,-15.576 30.3521,-15.4612 30.3251,-15.32 30.2967,-15.2951 30.2673,-15.2739 30.2358,-15.2406 30.2168,-15.1988 30.1922,-15.1224 30.1836,-15.0792 30.1775,-14.9649 30.3076,-14.9507 30.4687,-14.8678 30.4918,-14.859 30.5663,-14.8328 30.772,-14.7614 30.876,-14.7337 31.0095,-14.6998 31.0579,-14.6948 31.0798,-14.6917 31.2682,-14.6488 31.4265,-14.6087 31.448,-14.6032 31.4671,-14.5949 31.4981,-14.5721 31.664,-14.4855 31.694,-14.4787 31.7453,-14.4705 31.7727,-14.4641 31.7986,-14.4563 31.8185,-14.4493 31.838,-14.4414 31.9136,-14.4071 32.0574,-14.3609 32.1928,-14.3251 32.3059,-14.3008 32.3351,-14.2921 32.9458,-14.0808 33.1839,-13.9968 33.2193,-14.0203 33.2637,-14.1267 33.3078,-14.1926 33.396,-14.305 33.4929,-14.4155 33.5939,-14.5233 33.657,-14.5165 33.738,-14.5014 33.8529,-14.473 34.0896,-14.4277 34.3236,-14.3696 34.3442,-14.3771 34.3709,-14.4133 34.387,-14.4453 34.406,-14.4798 34.4268,-14.5099 34.4558,-14.534 34.4819,-14.555 34.4918,-14.5763 34.5008,-14.5988 34.5214,-14.7498 34.548,-14.947 34.5262,-15.044 34.5228,-15.1006 34.5345,-15.1944 34.5458,-15.2066 34.5493,-15.2158 34.5524,-15.2358 34.5488,-15.2656 34.5253,-15.3044 34.5088,-15.3168 34.4877,-15.3252 34.3936,-15.452 34.3856,-15.4843 34.3952,-15.5044 34.4023,-15.5299 34.3973,-15.5939 34.3841,-15.6346 34.3351,-15.6965 34.3059,-15.719 34.2834,-15.7257 34.2598,-15.7418 34.2395,-15.7597 34.226,-15.7752 34.2105,-15.8199 34.2137,-15.8707 34.2217,-15.8936 34.2454,-15.9116 34.2741,-15.9267 34.2906,-15.9398 34.3798,-16.032 34.3876,-16.0507 34.3858,-16.0737 34.3665,-16.1135 34.3686,-16.1807 34.3962,-16.2467 34.4096,-16.2622 34.4264,-16.2741 34.457,-16.2749 34.4839,-16.2762 34.5073,-16.2827 34.5305,-16.302 34.5526,-16.3611 34.6184,-16.435 34.6784,-16.4893 34.7257,-16.5278 34.7994,-16.6027 34.9563,-16.7755 34.9808,-16.794 35.0016,-16.8031 35.0339,-16.805 35.0822,-16.7988 35.103,-16.8171 35.101,-16.9185 35.0877,-16.9445 35.058,-16.9634 35.0264,-16.9814 35.0126,-17.0046 35.0456,-17.1078 35.0851,-17.1112 35.2296,-17.1157 35.2478,-17.1149 35.2618,-17.0888 35.2655,-17.0419 35.2542,-16.9962 35.2405,-16.9471 35.2468,-16.8486 35.2597,-16.7903 35.2358,-16.6858 35.2135,-16.6583 35.1808,-16.6272 35.1486,-16.6149 35.1306,-16.6054 35.114,-16.5805 35.0965,-16.5309 35.1516,-16.488 35.2008,-16.4548 35.2127,-16.3818 35.232,-16.2858 35.2493,-16.2099 35.3692,-16.1081 35.3998,-16.1047 35.4444,-16.1145 35.498,-16.146 35.6669,-16.0923 35.7316,-16.0522 35.751,-16.0369 35.7733,-15.9953 35.7889,-15.8372 35.8198,-15.4589 35.8205,-15.4407 35.822,-15.436 35.8248,-15.4019 35.8114,-15.3552 35.7977,-15.3066 35.7599,-15.1696 35.8255,-15.0026 35.8787,-14.8771 35.8387,-14.8683 35.8363,-14.7572 35.8354,-14.6833 35.8342,-14.6444 35.7794,-14.5864 35.5033,-14.2533 35.489,-14.235 35.4639,-14.1754 35.4498,-14.1399 35.165,-13.8287 35.1309,-13.7805 35.0551,-13.6705 34.8596,-13.5071 34.8263,-13.491 34.7912,-13.4817 34.6186,-13.4809 34.5422,-13.3583 34.5263,-13.3244 34.5237,-13.2942 34.524,-13.274 34.5171,-13.0315 34.5102,-12.9984 34.5029,-12.9459 34.5002,-12.912 34.4952,-12.8269 34.4938,-12.7682 34.4913,-12.7446 34.4851,-12.7004 34.4691,-12.6396 34.4604,-12.6182 34.4379,-12.5812 34.427,-12.5548 34.4082,-12.497 34.386,-12.3963 34.3693,-12.3056 34.335,-12.2326 34.3312,-12.2135 34.3316,-12.1721 34.337,-12.1419 34.3463,-12.116 34.3726,-12.067 34.4329,-11.9676 34.4769,-11.9099 34.5146,-11.8583 34.5699,-11.7636 34.5783,-11.7433 34.5913,-11.701 34.5952,-11.6786 34.5959,-11.654 34.5936,-11.6125 34.588,-11.591 34.5866,-11.5662 34.6649,-11.5625 34.8522,-11.5606 34.919,-11.5595 34.9283,-11.559 34.9283,-11.559 5,2.0,Mozambique 34.58,-12.0235 34.5898,-12.017 34.5783,-11.9946 34.58,-12.0235 34.58,-12.0235 7,2.0,Mozambique 34.6876,-12.0826 34.7056,-12.0712 34.7127,-12.0255 34.6824,-12.0245 34.6703,-12.0715 34.6876,-12.0826 34.6876,-12.0826 12,10.0,Papua New Guinea 150.7151,-10.6408 150.6909,-10.6374 150.6289,-10.6272 150.62,-10.6227 150.6033,-10.5971 150.6276,-10.5298 150.7065,-10.5268 150.7308,-10.5386 150.739,-10.5504 150.7282,-10.6365 150.7151,-10.6408 150.7151,-10.6408 15,10.0,Australia 142.0271,-10.7582 141.9946,-10.7427 141.9646,-10.7084 141.9599,-10.6932 141.9597,-10.6454 141.9673,-10.6331 142.0197,-10.6067 142.061,-10.5981 142.1098,-10.6716 142.103,-10.7089 142.0551,-10.7208 142.0426,-10.734 142.0347,-10.7453 142.0271,-10.7582 142.0271,-10.7582 20,10.0,Papua New Guinea 152.5768,-10.7045 152.5347,-10.6943 152.5192,-10.6896 152.4066,-10.6448 152.3976,-10.64 152.375,-10.6206 152.3914,-10.6108 152.4067,-10.6133 152.4475,-10.6265 152.5241,-10.6507 152.592,-10.6251 152.62,-10.6082 152.6474,-10.617 152.7043,-10.6479 152.7057,-10.6584 152.6993,-10.6677 152.6772,-10.6831 152.6472,-10.6843 152.5768,-10.7045 152.5768,-10.7045 15,9.5,Australia 136.3524,-11.4434 136.3481,-11.4376 136.3565,-11.397 136.4925,-11.2036 136.5781,-11.0326 136.5863,-11.0233 136.6138,-11.0062 136.6232,-11.0086 136.6274,-11.0223 136.5777,-11.1838 136.5744,-11.1943 136.4114,-11.4193 136.3895,-11.4393 136.3524,-11.4434 136.3524,-11.4434 15,9.5,Australia 132.4497,-11.3319 132.4452,-11.3297 132.4321,-11.3154 132.4202,-11.3009 132.3856,-11.2052 132.3666,-11.1304 132.3562,-11.039 132.4331,-11.0098 132.4493,-11.0523 132.4676,-11.1019 132.4804,-11.1649 132.4798,-11.2123 132.4784,-11.2633 132.4497,-11.3319 132.4497,-11.3319 47,9.5,Australia 130.8131,-11.9255 130.7363,-11.8573 130.7159,-11.8452 130.6731,-11.8369 130.5329,-11.7714 130.3669,-11.6494 130.3491,-11.6288 130.2744,-11.4355 130.221,-11.2404 130.2214,-11.2027 130.2281,-11.1667 130.2492,-11.1506 130.3881,-11.2707 130.4293,-11.3367 130.5605,-11.3775 130.6682,-11.3555 130.7006,-11.345 130.7207,-11.3315 130.7552,-11.2951 130.8216,-11.3147 130.8597,-11.3394 130.9139,-11.2947 130.9768,-11.2508 131.0071,-11.2481 131.0182,-11.2835 131.0271,-11.3163 131.0785,-11.3891 131.083,-11.3634 131.0666,-11.3295 131.049,-11.2792 131.0605,-11.2292 131.0821,-11.2021 131.1062,-11.1842 131.1267,-11.1777 131.2735,-11.2355 131.3835,-11.3791 131.3907,-11.4142 131.3918,-11.4538 131.3769,-11.4693 131.3119,-11.547 131.1362,-11.7173 131.1041,-11.7221 130.9807,-11.8001 130.9023,-11.865 130.8234,-11.9224 130.8131,-11.9255 130.8131,-11.9255 18,10.0,Papua New Guinea 153.9419,-11.4266 153.9362,-11.4268 153.8903,-11.4188 153.835,-11.3727 153.8509,-11.336 153.9197,-11.3026 153.9839,-11.3014 154.0549,-11.3067 154.102,-11.3287 154.117,-11.3499 154.1273,-11.3788 154.1171,-11.3994 154.0941,-11.4068 154.0839,-11.3919 154.0201,-11.3866 153.966,-11.3878 153.9419,-11.4266 153.9419,-11.4266 32,10.0,Papua New Guinea 153.3961,-11.6293 153.3522,-11.589 153.3093,-11.5602 153.2514,-11.5554 153.2062,-11.5539 153.195,-11.5379 153.2098,-11.5104 153.2173,-11.4904 153.1561,-11.4624 153.1022,-11.4463 153.0204,-11.3578 153.0182,-11.3386 153.0303,-11.3092 153.0516,-11.3145 153.1226,-11.3441 153.2286,-11.3916 153.2445,-11.4033 153.2573,-11.4172 153.2683,-11.4269 153.3382,-11.4594 153.3895,-11.479 153.4034,-11.4821 153.4758,-11.502 153.5167,-11.5137 153.5825,-11.5531 153.6068,-11.5869 153.603,-11.6003 153.5031,-11.6148 153.4324,-11.6042 153.4124,-11.6151 153.3961,-11.6293 153.3961,-11.6293 42,9.5,Australia 130.3486,-11.825 130.1831,-11.7624 130.1671,-11.7631 130.0918,-11.7789 130.0814,-11.7817 130.0583,-11.7916 130.0401,-11.8006 130.0302,-11.8039 129.9798,-11.8171 129.9518,-11.8203 129.8963,-11.8096 129.8806,-11.7849 129.8732,-11.7593 129.9287,-11.6603 129.939,-11.6602 129.9531,-11.6707 129.9645,-11.68 129.9746,-11.6872 130.0125,-11.6898 130.0256,-11.6814 130.0409,-11.6652 130.0494,-11.6538 130.0526,-11.6426 130.047,-11.515 130.03,-11.4721 130.1119,-11.3312 130.2,-11.3127 130.2541,-11.4227 130.254,-11.4348 130.288,-11.5431 130.3465,-11.6755 130.4168,-11.6934 130.4344,-11.7045 130.4593,-11.7223 130.4705,-11.7318 130.4815,-11.7421 130.4916,-11.7594 130.4853,-11.7792 130.469,-11.8092 130.424,-11.8186 130.3486,-11.825 130.3486,-11.825 18,9.5,Australia 136.0319,-11.6775 136.0273,-11.6745 136.0317,-11.6312 136.123,-11.5592 136.139,-11.559 136.1979,-11.5556 136.2666,-11.507 136.2779,-11.4982 136.2983,-11.4773 136.3302,-11.4543 136.3251,-11.4939 136.321,-11.5043 136.2223,-11.5793 136.1923,-11.5967 136.1157,-11.6402 136.0464,-11.6719 136.0319,-11.6775 136.0319,-11.6775 961,3.0,Madagascar 46.274,-15.6273 46.2765,-15.6165 46.2832,-15.607 46.2921,-15.5983 46.4076,-15.4884 46.4182,-15.4804 46.4288,-15.4758 46.519,-15.4257 46.6499,-15.3474 46.778,-15.2506 46.7861,-15.2447 46.8,-15.2305 46.8247,-15.2133 46.8339,-15.2087 46.8915,-15.1816 46.9035,-15.1801 46.9125,-15.185 46.919,-15.1926 47.0205,-15.3169 47.016,-15.3265 46.9993,-15.3516 46.9884,-15.3622 46.9571,-15.38 46.9513,-15.3882 46.9065,-15.4846 46.903,-15.4959 46.9011,-15.5252 46.9036,-15.5404 46.9135,-15.5371 46.9189,-15.5282 46.9863,-15.4761 47.0369,-15.462 47.0732,-15.4277 47.0868,-15.4272 47.1246,-15.4413 47.1504,-15.4309 47.1676,-15.4311 47.1808,-15.3999 47.156,-15.3957 47.1399,-15.3838 47.0561,-15.2884 47.0271,-15.2429 47.004,-15.2062 47.0021,-15.1807 47.0026,-15.1676 47.0071,-15.1579 47.0249,-15.133 47.0529,-15.0984 47.1669,-14.9769 47.2549,-14.8957 47.2441,-14.8585 47.2313,-14.839 47.2372,-14.8254 47.2606,-14.793 47.2862,-14.7612 47.3339,-14.7099 47.3994,-14.6486 47.4098,-14.647 47.4452,-14.6951 47.4506,-14.81 47.4435,-14.8317 47.439,-14.8411 47.4174,-14.8684 47.3925,-14.8929 47.38,-14.9082 47.3565,-14.9545 47.3547,-14.9654 47.3529,-15.07 47.3549,-15.0815 47.3604,-15.09 47.3709,-15.0936 47.3825,-15.0909 47.3918,-15.0864 47.4273,-15.0657 47.4358,-15.0596 47.5108,-14.9334 47.5569,-14.8402 47.569,-14.8106 47.583,-14.7708 47.5877,-14.7612 47.6319,-14.6853 47.6428,-14.6668 47.7555,-14.5873 47.9124,-14.605 47.9225,-14.6092 47.9279,-14.6175 47.9392,-14.646 47.9425,-14.67 47.9413,-14.6896 47.9352,-14.7116 47.933,-14.7235 47.9313,-14.7433 47.9405,-14.7506 47.9568,-14.7327 47.9645,-14.7113 47.9662,-14.6956 47.9589,-14.6185 47.9508,-14.6063 47.885,-14.5592 47.8758,-14.5543 47.863,-14.5525 47.8504,-14.5542 47.84,-14.5572 47.8312,-14.5626 47.7721,-14.5742 47.6952,-14.5867 47.665,-14.5419 47.6459,-14.4266 47.6437,-14.4044 47.6443,-14.3922 47.6582,-14.3409 47.6621,-14.3307 47.7235,-14.2452 47.7744,-14.2178 47.7972,-14.2303 47.8196,-14.2362 47.872,-14.2379 47.8803,-14.2102 47.8859,-14.199 47.8929,-14.1724 47.8929,-14.1618 47.8835,-14.1152 47.8641,-14.0988 47.8488,-14.0811 47.8588,-14.0728 47.8701,-14.073 47.8903,-14.0823 47.9316,-14.1044 47.9405,-14.1098 47.9554,-14.1223 47.9611,-14.1315 47.9596,-14.1424 47.9418,-14.1788 47.932,-14.2152 47.9188,-14.2686 47.9156,-14.2904 47.9219,-14.3046 47.9372,-14.3109 47.9474,-14.3065 47.9929,-14.1395 47.997,-14.0903 47.9891,-14.0634 47.9858,-14.053 47.9758,-14.0473 47.9484,-14.0407 47.9394,-14.0359 47.931,-14.03 47.8927,-13.9988 47.8867,-13.9907 47.8913,-13.9808 47.9038,-13.9795 47.9171,-13.9805 47.9279,-13.9789 47.9666,-13.9448 47.9129,-13.9094 47.894,-13.8994 47.8717,-13.8938 47.8556,-13.8816 47.8465,-13.8625 47.8287,-13.8112 47.8196,-13.7725 47.8177,-13.7609 47.8353,-13.6361 47.8379,-13.6235 47.8432,-13.6014 47.8506,-13.5808 47.8579,-13.5741 47.8725,-13.5719 47.8879,-13.5767 47.9006,-13.577 47.9648,-13.5657 47.9719,-13.5588 47.9931,-13.5346 47.9906,-13.525 47.9827,-13.5184 47.9738,-13.5139 47.9684,-13.5056 47.9796,-13.4992 48.0085,-13.5027 48.017,-13.5083 48.0978,-13.5853 48.1106,-13.648 48.1196,-13.7002 48.1282,-13.742 48.1867,-13.7887 48.1972,-13.7922 48.2317,-13.7922 48.2501,-13.783 48.2624,-13.7745 48.2802,-13.7574 48.3005,-13.5885 48.2941,-13.5704 48.2799,-13.5498 48.2826,-13.5356 48.2954,-13.5275 48.3704,-13.5099 48.4484,-13.5004 48.4454,-13.4288 48.4815,-13.4102 48.5899,-13.4261 48.6009,-13.429 48.6101,-13.4341 48.6271,-13.4245 48.6659,-13.408 48.6806,-13.4088 48.7374,-13.3526 48.743,-13.339 48.7531,-13.272 48.7601,-13.2043 48.7572,-13.1793 48.7687,-13.1053 48.7896,-13.0631 48.8084,-13.0265 48.8451,-12.9582 48.863,-12.9413 48.8905,-12.8725 48.8941,-12.8625 48.9042,-12.8076 48.902,-12.797 48.8476,-12.6597 48.8248,-12.5588 48.7677,-12.4931 48.7275,-12.4515 48.7127,-12.4442 48.6901,-12.4327 48.6789,-12.4236 48.702,-12.3889 48.7118,-12.3851 48.7964,-12.3992 48.8074,-12.4019 48.8156,-12.4088 48.8209,-12.4307 48.8243,-12.4412 48.8409,-12.466 48.8525,-12.4817 48.8638,-12.4804 48.8894,-12.4717 48.8989,-12.4604 48.9065,-12.401 48.9146,-12.3437 48.9227,-12.3311 49.009,-12.2628 49.0418,-12.2668 49.0962,-12.2382 49.1097,-12.224 49.1147,-12.2154 49.1367,-12.1458 49.1347,-12.1116 49.1088,-12.1005 49.0748,-12.09 49.1025,-12.0403 49.1696,-11.961 49.2038,-11.9321 49.2175,-11.9336 49.2293,-11.9407 49.2423,-11.9508 49.255,-11.9708 49.2658,-11.9894 49.2922,-12.0483 49.302,-12.0772 49.315,-12.1733 49.3124,-12.1921 49.3001,-12.18 49.2949,-12.1708 49.2804,-12.1505 49.2706,-12.1437 49.207,-12.1302 49.1971,-12.1342 49.1873,-12.156 49.1778,-12.2112 49.2159,-12.2683 49.2726,-12.2872 49.2914,-12.2892 49.3053,-12.2825 49.3134,-12.2695 49.3154,-12.2581 49.3112,-12.2487 49.3736,-12.2687 49.4631,-12.3319 49.4886,-12.3705 49.5355,-12.4711 49.5401,-12.4934 49.5412,-12.506 49.5413,-12.5181 49.5369,-12.5279 49.5192,-12.5509 49.5209,-12.5684 49.5188,-12.5856 49.509,-12.5997 49.5065,-12.6192 49.5148,-12.6344 49.5386,-12.636 49.5977,-12.6876 49.7418,-12.8017 49.8386,-12.9351 49.844,-12.9437 49.8867,-13.0245 49.891,-13.0596 49.8906,-13.0719 49.8869,-13.082 49.8844,-13.104 49.8768,-13.166 49.8868,-13.2093 49.9226,-13.3316 49.9677,-13.4341 49.9809,-13.4488 49.9773,-13.4684 49.9772,-13.4806 49.9807,-13.4982 49.9862,-13.5064 49.994,-13.514 50.0025,-13.5194 50.0094,-13.5263 50.0144,-13.5351 50.0448,-13.612 50.0804,-13.7462 50.0829,-13.7578 50.0907,-13.8047 50.0922,-13.8171 50.0925,-13.8369 50.0889,-13.8611 50.0877,-13.8806 50.0865,-13.973 50.092,-13.9829 50.103,-13.9991 50.1171,-14.0336 50.1181,-14.0459 50.1132,-14.089 50.1023,-14.1855 50.1019,-14.2054 50.1052,-14.2159 50.1103,-14.2255 50.1202,-14.236 50.1341,-14.2433 50.1447,-14.2535 50.1571,-14.2759 50.1585,-14.2913 50.1555,-14.3263 50.1454,-14.3584 50.1337,-14.4021 50.1325,-14.4147 50.1319,-14.4353 50.1414,-14.5536 50.1793,-14.6946 50.2127,-14.8093 50.2406,-14.8882 50.278,-14.9817 50.3414,-15.0805 50.374,-15.1287 50.4241,-15.1867 50.4371,-15.2322 50.4382,-15.2456 50.4416,-15.2915 50.4414,-15.3056 50.4228,-15.3885 50.3737,-15.5625 50.2665,-15.801 50.2398,-15.8555 50.1809,-15.9507 50.1724,-15.9565 50.1127,-15.9616 50.0781,-15.9096 50.0409,-15.9025 49.9744,-15.8489 49.9695,-15.8395 49.9668,-15.7925 49.967,-15.7804 49.9021,-15.6635 49.8446,-15.5434 49.8436,-15.5305 49.8429,-15.451 49.8069,-15.4149 49.7651,-15.4141 49.6922,-15.4185 49.6709,-15.4251 49.6614,-15.4301 49.6369,-15.4485 49.6178,-15.4709 49.6054,-15.4872 49.5822,-15.5198 49.5744,-15.5398 49.5737,-15.553 49.5749,-15.5658 49.5983,-15.6643 49.6075,-15.6882 49.6166,-15.7073 49.6749,-15.8863 49.6717,-15.9041 49.6585,-15.9275 49.6453,-15.9462 49.6286,-15.9917 49.6212,-16.0168 49.6219,-16.0369 49.6364,-16.0799 49.6428,-16.0959 49.6503,-16.1092 49.661,-16.1199 49.6702,-16.1272 49.6895,-16.1349 49.6997,-16.1366 49.7098,-16.1341 49.7572,-16.1637 49.7765,-16.1787 49.7906,-16.1987 49.7946,-16.2132 49.7927,-16.2293 49.7789,-16.2682 49.7729,-16.29 49.7659,-16.325 49.7658,-16.3472 49.7708,-16.3769 49.7746,-16.398 49.7893,-16.4056 49.7997,-16.4158 49.8033,-16.4365 49.803,-16.4554 49.7888,-16.5354 49.7861,-16.5471 49.7399,-16.6227 49.7324,-16.6326 49.7127,-16.653 49.6942,-16.6708 49.6834,-16.6785 49.6644,-16.6871 49.6595,-16.6957 49.6576,-16.7093 49.6613,-16.7381 49.6771,-16.7672 49.6835,-16.7773 49.6903,-16.7869 49.6998,-16.795 49.7196,-16.8072 49.729,-16.8114 49.5785,-16.8683 49.5686,-16.8707 49.5576,-16.8752 49.5474,-16.8815 49.5374,-16.8893 49.5305,-16.9001 49.4719,-17.0272 49.3693,-17.2776 49.3633,-17.2964 49.3609,-17.3066 49.3594,-17.3244 49.3621,-17.3428 49.3759,-17.3621 49.3953,-17.3957 49.4158,-17.4673 49.4289,-17.5344 49.4498,-17.6585 49.4515,-17.6696 49.4506,-17.6914 49.4412,-17.7509 49.4353,-17.7739 49.4219,-17.8114 49.3959,-17.8955 49.3859,-17.9277 49.3735,-17.9767 49.3548,-18.0522 49.3246,-18.1935 49.3124,-18.292 49.311,-18.3047 49.3088,-18.3308 49.2445,-18.5164 49.1719,-18.6827 49.1081,-18.858 49.0843,-18.919 49.0708,-18.9492 49.0379,-19.0134 49.0158,-19.0475 49.0069,-19.0664 48.9721,-19.1729 48.9657,-19.194 48.9586,-19.2292 48.9547,-19.2544 48.9429,-19.3125 48.9371,-19.3346 48.9294,-19.3552 48.897,-19.4357 48.8627,-19.5096 48.8334,-19.5664 48.8239,-19.5858 48.8164,-19.606 48.8102,-19.6279 48.8024,-19.6621 48.7901,-19.7204 48.7854,-19.7436 48.7742,-19.8029 48.7538,-19.9107 48.7188,-20.0167 48.6999,-20.0683 48.6917,-20.0884 48.6633,-20.1443 48.6469,-20.1701 48.6324,-20.199 48.5956,-20.2755 48.5774,-20.3137 48.5575,-20.3651 48.5488,-20.393 48.5421,-20.4163 48.5259,-20.4705 48.4806,-20.6224 48.4621,-20.674 48.4087,-20.8905 48.3975,-20.9618 48.3114,-21.2683 48.2449,-21.4553 48.1585,-21.7203 48.0816,-21.8982 48.0612,-21.9344 48.0513,-21.9536 47.9918,-22.0856 47.9564,-22.1659 47.9439,-22.1953 47.8606,-22.4068 47.8492,-22.4367 47.8418,-22.4604 47.8353,-22.4885 47.8056,-22.6437 47.7888,-22.7561 47.7834,-22.8011 47.7805,-22.8236 47.778,-22.8416 47.7727,-22.8624 47.7512,-22.9424 47.7437,-22.9717 47.7004,-23.1122 47.6533,-23.3133 47.5695,-23.5351 47.5576,-23.5952 47.5566,-23.6162 47.5532,-23.6379 47.5278,-23.7674 47.5165,-23.8123 47.5038,-23.8454 47.4389,-23.988 47.4289,-24.0036 47.3669,-24.097 47.3445,-24.1504 47.2801,-24.2789 47.2603,-24.3848 47.2562,-24.4312 47.2536,-24.4434 47.2441,-24.4761 47.2222,-24.5297 47.1392,-24.7133 47.0894,-24.7855 47.076,-24.8036 47.0708,-24.818 47.0677,-24.8329 47.0679,-24.8473 47.0721,-24.8668 47.0778,-24.8846 47.0738,-24.9 47.0351,-24.9456 46.847,-25.0405 46.6708,-25.139 46.6601,-25.1429 46.5875,-25.1632 46.5251,-25.1542 46.485,-25.1466 46.4641,-25.1387 46.444,-25.1332 46.3545,-25.1333 46.2778,-25.1452 46.2321,-25.1578 46.1994,-25.1686 46.1347,-25.1911 46.1135,-25.1985 45.9046,-25.2814 45.8647,-25.3004 45.8462,-25.3108 45.7361,-25.3747 45.6809,-25.4075 45.6554,-25.4251 45.6405,-25.4395 45.6125,-25.4685 45.5951,-25.4803 45.5135,-25.5226 45.4923,-25.5333 45.4724,-25.5398 45.4298,-25.5467 45.4047,-25.5493 45.1571,-25.5594 45.0698,-25.5197 45.0607,-25.5064 45.0407,-25.4922 44.8575,-25.3738 44.7515,-25.3069 44.7254,-25.2924 44.7129,-25.2882 44.6908,-25.2821 44.6546,-25.2754 44.5313,-25.2653 44.4655,-25.2578 44.3867,-25.2441 44.2993,-25.227 44.2927,-25.2178 44.2413,-25.1348 44.2668,-25.1393 44.2762,-25.1484 44.2936,-25.1659 44.3124,-25.1872 44.3329,-25.2045 44.3429,-25.2018 44.3512,-25.1923 44.3557,-25.1834 44.3455,-25.1649 44.281,-25.1247 44.1283,-25.0408 44.1186,-25.0365 44.1068,-25.0311 44.0942,-25.0275 44.0839,-25.0256 44.0737,-25.0295 44.0637,-25.0345 44.0524,-25.0334 44.0417,-25.026 43.9766,-24.9764 43.9616,-24.9528 43.9675,-24.9303 43.9663,-24.9162 43.961,-24.8921 43.9556,-24.8716 43.9499,-24.8522 43.9383,-24.8334 43.9299,-24.8222 43.912,-24.8022 43.8987,-24.783 43.8706,-24.7333 43.8625,-24.7131 43.8589,-24.6899 43.8738,-24.6604 43.8761,-24.6451 43.8674,-24.6064 43.8505,-24.571 43.7794,-24.4778 43.7644,-24.464 43.7425,-24.4498 43.7323,-24.4436 43.711,-24.4351 43.7007,-24.4287 43.6772,-24.4112 43.6571,-24.3898 43.637,-24.357 43.6167,-24.3043 43.6096,-24.2841 43.6098,-24.1616 43.6103,-24.0163 43.6076,-23.8415 43.5986,-23.7975 43.5945,-23.783 43.5708,-23.735 43.5821,-23.6312 43.5841,-23.6212 43.5954,-23.5973 43.6189,-23.5872 43.6496,-23.576 43.681,-23.5621 43.6934,-23.5509 43.7055,-23.4416 43.6987,-23.4257 43.6909,-23.4168 43.6334,-23.3688 43.592,-23.3355 43.5827,-23.3311 43.5762,-23.3212 43.5609,-23.2851 43.5577,-23.2754 43.553,-23.2519 43.5518,-23.2395 43.5434,-23.1447 43.5428,-23.1248 43.5437,-23.1035 43.5431,-23.0733 43.5339,-23.0521 43.5242,-23.0416 43.502,-23.0229 43.4666,-22.9972 43.451,-22.9868 43.4388,-22.982 43.4286,-22.9715 43.3391,-22.87 43.3222,-22.8495 43.3123,-22.8361 43.3083,-22.8271 43.3043,-22.8158 43.2954,-22.775 43.2639,-22.634 43.2328,-22.4726 43.1855,-22.2572 43.2078,-22.1881 43.1973,-22.1376 43.1942,-22.1271 43.1836,-22.0437 43.2262,-21.8838 43.2612,-21.8579 43.2748,-21.8219 43.2798,-21.7525 43.2811,-21.7342 43.3681,-21.6461 43.378,-21.6393 43.3946,-21.6372 43.419,-21.6437 43.4163,-21.5738 43.4129,-21.4522 43.4129,-21.439 43.4232,-21.3715 43.4251,-21.359 43.4287,-21.3484 43.4475,-21.3098 43.4918,-21.2773 43.5264,-21.2567 43.5383,-21.2547 43.5629,-21.2525 43.6116,-21.2484 43.6454,-21.2479 43.6588,-21.2499 43.6689,-21.2529 43.6767,-21.2596 43.6877,-21.2622 43.7149,-21.2466 43.7234,-21.2408 43.7491,-21.2093 43.7551,-21.2015 43.7662,-21.1832 43.7878,-21.1332 43.8079,-21.0562 43.8222,-20.9852 43.8254,-20.9221 43.8444,-20.8556 43.8533,-20.8357 43.8584,-20.8264 43.8961,-20.7644 43.9145,-20.7408 43.9384,-20.7201 43.9491,-20.7227 43.9618,-20.7224 43.9701,-20.7167 43.9827,-20.7005 43.988,-20.6917 44.026,-20.6287 44.047,-20.5775 44.0506,-20.5666 44.1226,-20.419 44.2127,-20.2714 44.2866,-20.1345 44.2995,-20.1146 44.3072,-20.1059 44.3171,-20.0968 44.3364,-20.0808 44.3461,-20.0736 44.3751,-20.055 44.3835,-20.046 44.4258,-19.958 44.429,-19.9433 44.4284,-19.9187 44.418,-19.8551 44.3863,-19.8233 44.3721,-19.8189 44.3565,-19.8178 44.3457,-19.8101 44.3335,-19.7899 44.3169,-19.7547 44.3864,-19.5306 44.4008,-19.5226 44.4109,-19.5229 44.4223,-19.5205 44.4291,-19.505 44.4288,-19.4809 44.4154,-19.4162 44.3848,-19.3571 44.3718,-19.336 44.2981,-19.2296 44.2827,-19.2083 44.2329,-19.1477 44.212,-19.1232 44.2082,-19.1182 44.1778,-19.0594 44.1736,-19.0444 44.1779,-18.9521 44.1949,-18.9404 44.2082,-18.8319 44.2076,-18.8205 44.2034,-18.7991 44.1882,-18.7492 44.1774,-18.7198 44.1456,-18.6465 44.1103,-18.5702 44.1055,-18.5611 44.0606,-18.4927 44.052,-18.4807 44.0287,-18.4491 44.0193,-18.4382 44.01,-18.4304 44.0007,-18.421 43.9872,-18.4024 43.9823,-18.3872 43.9898,-18.3196 43.9926,-18.2201 43.9902,-18.1808 43.9861,-18.1469 43.9798,-18.1107 43.9714,-18.0916 43.9587,-18.0358 43.9503,-17.9599 43.9482,-17.9386 43.948,-17.9284 43.9498,-17.9088 43.9514,-17.8974 43.9603,-17.8574 43.9688,-17.8455 43.9736,-17.8268 43.977,-17.7973 43.979,-17.7554 43.9783,-17.7368 43.9405,-17.6727 43.9348,-17.6638 43.9165,-17.6424 43.9065,-17.6324 43.8903,-17.6127 43.8758,-17.5921 43.8715,-17.581 43.8687,-17.5608 43.8698,-17.5503 43.8763,-17.4924 43.8784,-17.4806 43.8841,-17.4596 43.8943,-17.4313 43.8994,-17.4197 43.9113,-17.4013 43.9868,-17.2978 44.0848,-17.1569 44.1293,-17.0789 44.1622,-17.0181 44.2219,-16.9004 44.2929,-16.7781 44.2986,-16.7692 44.3102,-16.7603 44.3203,-16.7535 44.3302,-16.745 44.3393,-16.7344 44.3792,-16.6849 44.3844,-16.6732 44.4126,-16.4879 44.4128,-16.4773 44.4101,-16.459 44.4053,-16.4481 44.3999,-16.4387 44.3837,-16.4149 44.3689,-16.3943 44.3564,-16.3749 44.3513,-16.3642 44.3466,-16.3507 44.345,-16.323 44.3859,-16.1964 44.3897,-16.1854 44.3964,-16.177 44.407,-16.1655 44.4358,-16.1589 44.4507,-16.1615 44.5198,-16.1686 44.5563,-16.1699 44.7494,-16.1812 44.8199,-16.1921 44.9461,-16.1244 44.9805,-16.1023 44.9963,-16.0894 45.0059,-16.0782 45.0196,-16.056 45.0371,-16.0312 45.0763,-15.9859 45.087,-15.9754 45.1628,-15.9322 45.2009,-15.9134 45.211,-15.9093 45.2199,-15.9147 45.2234,-15.925 45.2394,-16.0373 45.2371,-16.0491 45.2346,-16.0785 45.2374,-16.0925 45.2487,-16.0997 45.2728,-16.0921 45.2814,-16.0866 45.3415,-16.0489 45.3585,-16.0234 45.357,-16.0128 45.3469,-16.0086 45.338,-16.0152 45.3204,-15.9882 45.3128,-15.9652 45.3365,-15.9551 45.5181,-15.9311 45.5399,-15.9694 45.539,-15.9803 45.5349,-15.99 45.523,-16.0062 45.522,-16.02 45.5526,-16.0373 45.5634,-16.0395 45.5729,-16.0185 45.5907,-15.8893 45.5911,-15.8767 45.5896,-15.8652 45.662,-15.7739 45.6845,-15.7799 45.7531,-15.7967 45.7716,-15.7967 45.7802,-15.7916 45.8142,-15.7689 45.8238,-15.7644 45.8563,-15.7553 45.8665,-15.7547 45.9028,-15.7659 45.9015,-15.7866 45.8971,-15.8174 45.901,-15.8272 45.9103,-15.8353 46.0085,-15.854 46.0174,-15.8432 46.017,-15.7931 46.0156,-15.7663 46.0056,-15.765 45.9941,-15.771 45.9837,-15.7803 45.9763,-15.7899 45.9667,-15.7983 45.9567,-15.8061 45.9499,-15.7908 45.9584,-15.7758 45.9729,-15.7576 45.9935,-15.739 46.0142,-15.7223 46.0247,-15.7143 46.0445,-15.7026 46.0656,-15.6933 46.0964,-15.6858 46.1171,-15.6857 46.147,-15.6874 46.1774,-15.6962 46.1912,-15.742 46.1805,-15.7882 46.1916,-15.8291 46.2022,-15.8605 46.2107,-15.8831 46.2246,-15.9145 46.2377,-15.9338 46.2468,-15.943 46.2657,-15.9551 46.2757,-15.959 46.4224,-15.9432 46.3919,-15.8677 46.3579,-15.8361 46.3249,-15.8176 46.2848,-15.76 46.2483,-15.6944 46.2538,-15.6688 46.2575,-15.6568 46.274,-15.6273 46.274,-15.6273 5,2.0,Malawi 34.58,-12.0235 34.5783,-11.9946 34.5898,-12.017 34.58,-12.0235 34.58,-12.0235 7,2.0,Malawi 34.6876,-12.0826 34.6703,-12.0715 34.6824,-12.0245 34.7127,-12.0255 34.7056,-12.0712 34.6876,-12.0826 34.6876,-12.0826 26,-3.0,Brazil -38.7355,-13.1202 -38.7419,-13.1167 -38.7475,-13.0845 -38.7487,-13.0723 -38.75,-13.0454 -38.7413,-13.0368 -38.7114,-13.0249 -38.7027,-13.0195 -38.6838,-13.004 -38.6664,-12.9867 -38.6351,-12.9543 -38.6234,-12.928 -38.6252,-12.9143 -38.6335,-12.9014 -38.6427,-12.893 -38.6491,-12.8686 -38.6326,-12.8649 -38.6007,-12.8771 -38.5777,-12.8971 -38.5483,-12.9428 -38.5439,-12.9596 -38.5512,-12.9762 -38.6186,-13.0267 -38.7106,-13.098 -38.7355,-13.1202 -38.7355,-13.1202 17,3.0,Madagascar 48.277,-13.4047 48.1673,-13.3904 48.1524,-13.378 48.1434,-13.349 48.1374,-13.3231 48.1371,-13.3028 48.1419,-13.255 48.2117,-13.1877 48.2294,-13.1811 48.2396,-13.1805 48.266,-13.183 48.2703,-13.1962 48.3071,-13.3789 48.3065,-13.3931 48.2876,-13.403 48.277,-13.4047 48.277,-13.4047 15,-3.0,Brazil -38.8967,-13.5499 -38.9373,-13.5483 -38.9366,-13.5062 -38.9196,-13.4835 -38.9708,-13.4694 -38.9972,-13.4444 -38.989,-13.3772 -38.8695,-13.3675 -38.8594,-13.3802 -38.8517,-13.4336 -38.8519,-13.4511 -38.8619,-13.4782 -38.8907,-13.545 -38.8967,-13.5499 -38.8967,-13.5499 65,9.5,Australia 136.7499,-14.1633 136.7528,-14.1567 136.7656,-14.1385 136.8086,-14.1358 136.7827,-14.2616 136.7668,-14.2698 136.7409,-14.2788 136.7302,-14.2817 136.7151,-14.2789 136.7064,-14.2664 136.5918,-14.2455 136.5756,-14.2456 136.5519,-14.2489 136.542,-14.2519 136.4735,-14.2625 136.2197,-14.2002 136.2553,-14.0287 136.2482,-13.9549 136.2712,-13.871 136.3004,-13.8231 136.3973,-13.8059 136.4351,-13.7978 136.4669,-13.774 136.4681,-13.7626 136.4383,-13.7112 136.5222,-13.6426 136.5566,-13.6364 136.5653,-13.645 136.5676,-13.6652 136.5575,-13.6912 136.5501,-13.698 136.5283,-13.7064 136.5187,-13.7174 136.5196,-13.735 136.5556,-13.8223 136.6349,-13.8394 136.6506,-13.8386 136.6674,-13.8283 136.6759,-13.8199 136.6838,-13.8045 136.6788,-13.7862 136.6732,-13.7706 136.6915,-13.7459 136.7243,-13.7373 136.7409,-13.746 136.7536,-13.7576 136.7612,-13.7941 136.7164,-13.8434 136.6625,-13.8926 136.6478,-13.8945 136.6323,-13.9033 136.6175,-13.9159 136.6095,-13.9257 136.5479,-14.0596 136.5411,-14.1016 136.5496,-14.1517 136.562,-14.1698 136.578,-14.1755 136.6193,-14.1819 136.7114,-14.1955 136.7243,-14.1923 136.737,-14.1836 136.7436,-14.176 136.7499,-14.1633 136.7499,-14.1633 24,9.5,Australia 136.0448,-13.8442 136.0477,-13.8083 136.032,-13.7712 136.0267,-13.7604 136.0162,-13.7535 136.0012,-13.7553 135.9901,-13.7706 135.9938,-13.7907 136.0019,-13.8055 136.0059,-13.8185 135.997,-13.823 135.964,-13.8188 135.9486,-13.7998 135.9577,-13.7162 136.0271,-13.6607 136.0458,-13.6492 136.0883,-13.6564 136.1273,-13.6944 136.1325,-13.7145 136.1182,-13.7787 136.0853,-13.8309 136.0534,-13.843 136.0448,-13.8442 136.0448,-13.8442 14,8.0,Australia 124.9917,-14.632 124.986,-14.632 124.9394,-14.6043 124.9396,-14.5869 124.946,-14.5279 124.9692,-14.4702 125.0062,-14.4253 125.016,-14.4226 125.0273,-14.4295 125.062,-14.4727 125.0386,-14.5822 125.0023,-14.5992 124.9917,-14.632 124.9917,-14.632 11,8.0,Australia 124.3746,-15.4276 124.3659,-15.3996 124.3125,-15.3517 124.3212,-15.3073 124.3465,-15.2689 124.3944,-15.2445 124.4118,-15.2427 124.4982,-15.3831 124.4782,-15.393 124.3746,-15.4276 124.3746,-15.4276 12,9.5,Australia 136.3619,-15.6285 136.3536,-15.6265 136.3361,-15.6157 136.3568,-15.532 136.4145,-15.4944 136.4428,-15.5071 136.4475,-15.5255 136.4357,-15.5955 136.4252,-15.6172 136.3675,-15.6276 136.3619,-15.6285 136.3619,-15.6285 17,9.5,Australia 136.8908,-15.812 136.8775,-15.8105 136.841,-15.7787 136.8337,-15.7711 136.7775,-15.7014 136.7713,-15.681 136.7725,-15.6659 136.7898,-15.6297 136.8316,-15.5803 136.8471,-15.5753 136.8921,-15.6299 136.9095,-15.675 136.9297,-15.7487 136.9287,-15.7698 136.9036,-15.8117 136.8908,-15.812 136.8908,-15.812 350,2.0,Zimbabwe 30.3796,-15.614 30.381,-15.6244 30.3861,-15.9873 30.7842,-15.9863 31.0341,-15.9973 31.1117,-15.9765 31.2393,-16.0005 31.2744,-16.0143 31.3045,-16.0544 31.3063,-16.0753 31.3633,-16.1282 31.3889,-16.1441 31.4733,-16.1681 31.5186,-16.1766 31.5393,-16.174 31.6243,-16.1804 31.6774,-16.1923 31.7441,-16.2425 31.8649,-16.3471 31.873,-16.3943 31.9449,-16.4167 32.0172,-16.4298 32.0466,-16.4294 32.1175,-16.4227 32.1919,-16.4203 32.2162,-16.4215 32.2544,-16.4298 32.315,-16.4451 32.3392,-16.4512 32.3683,-16.4597 32.541,-16.527 32.6681,-16.5931 32.689,-16.6748 32.7281,-16.6991 32.76,-16.6995 32.8909,-16.6838 32.9415,-16.6901 32.9341,-16.7333 32.9273,-16.7561 32.9197,-16.7781 32.9088,-16.8037 32.8989,-16.8233 32.8873,-16.84 32.8734,-16.8555 32.8527,-16.8776 32.8254,-16.8993 32.8778,-17.0354 32.8952,-17.0661 32.9287,-17.1283 32.9403,-17.1636 32.9474,-17.2084 32.9488,-17.2328 32.9481,-17.2454 32.9541,-17.2885 32.9776,-17.305 32.9977,-17.3214 33.0022,-17.3368 32.9167,-17.4857 32.9387,-17.5377 32.9888,-17.5583 33.0009,-17.58 33.0027,-17.6094 32.9752,-17.7254 32.9353,-17.7976 32.9124,-17.8607 32.9064,-17.9548 32.9151,-18.0211 32.9249,-18.0579 32.9374,-18.0816 32.9483,-18.1019 32.9596,-18.1671 32.9344,-18.2295 32.9799,-18.281 33.0102,-18.3082 33.0317,-18.3291 32.9807,-18.4389 32.9563,-18.4608 32.9057,-18.486 32.8753,-18.4931 32.8487,-18.5098 32.8496,-18.5502 32.866,-18.5923 32.9097,-18.6693 32.8804,-18.7556 32.8531,-18.77 32.8295,-18.7662 32.7925,-18.757 32.7506,-18.7675 32.6646,-18.8117 32.6597,-18.9265 32.6751,-18.9966 32.7001,-19.0042 32.7432,-19.0007 32.7943,-19.0017 32.8451,-19.0836 32.8153,-19.2523 32.8005,-19.2808 32.7531,-19.3407 32.7458,-19.445 32.7726,-19.452 32.8006,-19.4535 32.8121,-19.4781 32.8108,-19.5958 32.9449,-19.6651 33.0192,-19.758 32.9789,-19.9209 32.943,-19.9997 32.8643,-20.1015 32.8527,-20.1437 32.8446,-20.208 32.834,-20.2512 32.7629,-20.3396 32.6262,-20.5339 32.5114,-20.5319 32.4627,-20.5754 32.4446,-20.6468 32.4612,-20.7958 32.4706,-20.8358 32.4819,-20.8907 32.4412,-20.9684 32.3366,-21.0822 32.3211,-21.1117 32.3725,-21.1937 32.4364,-21.2976 32.4493,-21.3202 32.4256,-21.301 32.3764,-21.2833 32.3646,-21.2943 31.8873,-21.7866 31.6496,-22.0295 31.3616,-22.3221 31.3163,-22.3542 31.2675,-22.3844 31.2588,-22.3893 31.2517,-22.3782 31.2272,-22.3451 31.119,-22.2983 31.0842,-22.3001 31.0587,-22.3096 31.0512,-22.3123 31.0265,-22.3084 30.9345,-22.2855 30.8908,-22.2688 30.8663,-22.264 30.8008,-22.2626 30.7431,-22.2682 30.666,-22.2848 30.5992,-22.3047 30.522,-22.2969 30.4746,-22.2872 30.4487,-22.2865 30.4228,-22.2978 30.3793,-22.3104 30.33,-22.3184 30.2636,-22.3193 29.9941,-22.2128 29.9022,-22.1661 29.8661,-22.1694 29.7948,-22.151 29.774,-22.1397 29.6896,-22.1141 29.6336,-22.1113 29.4083,-22.1394 29.3374,-22.1673 29.326,-22.152 29.2318,-22.0528 29.2128,-22.0453 29.1846,-22.0541 29.1455,-22.0558 29.1126,-22.0494 29.0779,-22.0375 29.0583,-22.0289 29.0402,-22.0144 29.0231,-21.9924 29.0105,-21.9692 28.9993,-21.9408 28.9964,-21.9115 29.0004,-21.8783 29.0093,-21.8529 29.0394,-21.8088 29.0368,-21.7848 28.9517,-21.7458 28.92,-21.7465 28.8898,-21.7451 28.8283,-21.7273 28.6114,-21.6252 28.533,-21.6079 28.4914,-21.6236 28.4716,-21.6362 28.4277,-21.63 28.3735,-21.6061 28.3463,-21.5913 28.316,-21.5783 28.246,-21.5634 28.2038,-21.571 28.1683,-21.5723 28.1277,-21.5694 28.0145,-21.552 27.9814,-21.5419 27.9785,-21.5369 27.9735,-21.5214 27.9363,-21.4163 27.9079,-21.3592 27.8657,-21.2844 27.8092,-21.2007 27.7462,-21.1454 27.7138,-21.1281 27.6937,-21.1079 27.6529,-21.0473 27.6562,-20.9109 27.6602,-20.8414 27.6764,-20.8204 27.6932,-20.7685 27.6971,-20.7248 27.6926,-20.5258 27.6819,-20.4869 27.6584,-20.4659 27.5774,-20.4483 27.4831,-20.4531 27.3994,-20.4492 27.3243,-20.4427 27.2979,-20.4488 27.2607,-20.466 27.2543,-20.4718 27.2577,-20.4318 27.2628,-20.3623 27.2658,-20.2886 27.2575,-20.219 27.2496,-20.1983 27.1997,-20.0863 27.1808,-20.0647 27.0466,-20.0039 26.9462,-19.9887 26.6963,-19.9061 26.6634,-19.8553 26.6032,-19.8432 26.5788,-19.8305 26.5636,-19.8051 26.558,-19.7787 26.5363,-19.7628 26.5046,-19.7411 26.3723,-19.6538 26.3248,-19.5947 26.2317,-19.555 26.2115,-19.5498 26.1651,-19.5251 26.1375,-19.5078 26.1201,-19.4843 26.0671,-19.3535 26.023,-19.2433 25.9909,-19.1662 25.9686,-19.1393 25.9329,-19.0834 25.9329,-19.0401 25.9553,-18.977 25.9553,-18.9667 25.9453,-18.9313 25.9246,-18.8924 25.909,-18.8719 25.839,-18.8226 25.7656,-18.6909 25.6879,-18.5705 25.6305,-18.515 25.5708,-18.4588 25.4957,-18.3766 25.4836,-18.3569 25.4756,-18.3303 25.47,-18.3077 25.4487,-18.2536 25.4191,-18.1993 25.3658,-18.1076 25.3358,-18.0901 25.2869,-18.0544 25.2452,-17.9851 25.211,-17.9042 25.2076,-17.8837 25.2115,-17.8348 25.2341,-17.782 25.2892,-17.8159 25.3083,-17.8236 25.3803,-17.834 25.4021,-17.8368 25.4832,-17.843 25.5876,-17.8162 25.6261,-17.7939 25.655,-17.7874 25.7516,-17.8447 25.823,-17.9016 25.8106,-17.9203 25.8303,-17.9545 25.873,-17.9685 25.9363,-17.9843 26.0613,-17.9471 26.0919,-17.9111 26.1589,-17.8818 26.1985,-17.8826 26.3298,-17.9107 26.3976,-17.9299 26.5361,-17.9771 26.5734,-18.0224 26.6663,-18.0544 26.6931,-18.0292 26.7127,-18.0133 26.809,-17.9804 26.8555,-17.9654 26.9112,-17.9541 26.9635,-17.9467 26.9968,-17.9411 27.1174,-17.834 27.1135,-17.7864 27.3148,-17.5556 27.4865,-17.4044 27.5811,-17.3218 27.6058,-17.2053 27.6727,-17.1088 27.7741,-16.9643 27.7919,-16.94 27.9924,-16.8541 28.1048,-16.8044 28.226,-16.7052 28.5514,-16.5717 28.7184,-16.537 28.7861,-16.4571 28.818,-16.3755 28.819,-16.3436 28.8093,-16.3216 28.8029,-16.2857 28.8133,-16.1417 28.8252,-16.0379 28.8318,-16.0184 28.8934,-15.9543 28.9088,-15.9457 28.9544,-15.934 29.0451,-15.8719 29.2108,-15.7593 29.3103,-15.7188 29.5434,-15.6433 29.5662,-15.645 29.5921,-15.6537 29.6209,-15.6529 29.6926,-15.6304 29.7639,-15.6069 29.7996,-15.5987 30.1239,-15.6137 30.2252,-15.6224 30.2578,-15.6326 30.3184,-15.6411 30.3487,-15.6295 30.3796,-15.614 30.3796,-15.614 14,2.0,Mozambique 39.8382,-16.3993 39.8016,-16.3966 39.7868,-16.3883 39.7628,-16.3422 39.7653,-16.3063 39.7705,-16.2939 39.7875,-16.2719 39.8165,-16.2591 39.8504,-16.2544 39.8611,-16.2566 39.8671,-16.2646 39.8552,-16.3936 39.8382,-16.3993 39.8382,-16.3993 31,10.0,Australia 138.9813,-16.742 138.9744,-16.738 138.9713,-16.6966 138.9714,-16.6836 138.9936,-16.5916 138.998,-16.5817 139.0554,-16.5052 139.1104,-16.4627 139.1222,-16.454 139.1397,-16.444 139.1516,-16.4434 139.1974,-16.4434 139.284,-16.4285 139.3126,-16.4235 139.3671,-16.3955 139.5598,-16.4258 139.5662,-16.4371 139.5703,-16.462 139.5651,-16.484 139.5215,-16.5037 139.4563,-16.5172 139.4134,-16.484 139.3217,-16.5194 139.3362,-16.5505 139.2845,-16.641 139.2744,-16.6491 139.1627,-16.6901 139.0636,-16.7101 139.0181,-16.7161 138.9813,-16.742 138.9813,-16.742 13,3.0,Madagascar 49.7673,-17.0759 49.7602,-17.0689 49.7577,-17.025 49.8005,-16.8949 49.8075,-16.8838 49.9018,-16.7407 49.9507,-16.7067 49.8923,-16.8595 49.8798,-16.8883 49.8502,-16.9396 49.7737,-17.0705 49.7673,-17.0759 49.7673,-17.0759 531,2.0,Namibia 23.4479,-17.6059 23.7921,-17.5403 24.0003,-17.4998 24.2099,-17.4585 24.352,-17.4539 24.4109,-17.4627 24.4729,-17.4884 24.5127,-17.5053 24.5359,-17.5137 24.5608,-17.5142 24.5895,-17.4862 24.6084,-17.4769 24.6341,-17.474 24.679,-17.4784 24.788,-17.4957 24.8827,-17.5209 24.9399,-17.54 24.9544,-17.564 25.0,-17.5901 25.0352,-17.6048 25.2216,-17.7631 25.2341,-17.782 25.2219,-17.7754 25.1492,-17.762 25.1059,-17.7766 25.0689,-17.8077 25.036,-17.8119 24.9697,-17.8059 24.9427,-17.8008 24.906,-17.7939 24.8027,-17.8176 24.6494,-17.9237 24.5366,-18.0337 24.4947,-18.0394 24.4682,-18.0388 24.4439,-18.0122 24.4224,-17.9787 24.4104,-17.9576 24.3874,-17.9336 24.359,-17.9254 24.3338,-17.9287 24.2398,-17.993 23.9778,-18.1471 23.9382,-18.1643 23.8834,-18.2162 23.858,-18.244 23.8415,-18.2426 23.8151,-18.2692 23.8012,-18.2942 23.7628,-18.3333 23.6906,-18.4045 23.622,-18.449 23.5847,-18.4644 23.5541,-18.4545 23.5356,-18.4163 23.5268,-18.3408 23.5258,-18.3054 23.4914,-18.2464 23.4747,-18.2276 23.425,-18.1832 23.4027,-18.1732 23.37,-18.1555 23.3349,-18.1066 23.302,-18.056 23.2975,-18.0245 23.2884,-17.995 23.2689,-17.9755 23.2591,-17.9761 23.05,-17.9842 22.61,-18.0664 22.473,-18.0908 22.2352,-18.1334 21.7905,-18.2179 21.4364,-18.2838 21.2099,-18.2912 20.9681,-18.2977 20.9684,-18.3178 20.9689,-18.4546 20.9686,-18.6743 20.968,-19.1504 20.9676,-19.9756 20.9678,-20.1562 20.9674,-20.8009 20.9673,-20.9689 20.9669,-20.9952 20.967,-21.2981 20.9672,-21.5729 20.967,-21.9173 20.967,-21.9447 20.9664,-21.9722 20.892,-21.9734 20.6243,-21.9751 20.2836,-21.9765 19.9759,-21.9766 19.9721,-21.9801 19.9715,-22.0626 19.9726,-22.242 19.9732,-22.4745 19.9728,-22.697 19.9731,-22.9176 19.9735,-22.934 19.974,-22.9448 19.9743,-23.0965 19.974,-23.2826 19.9746,-23.4279 19.9753,-23.6207 19.9753,-23.7306 19.9755,-23.8373 19.9749,-23.9238 19.9757,-24.255 19.976,-24.3789 19.977,-24.5444 19.977,-24.6961 19.9764,-24.7377 19.9764,-24.7658 19.9767,-24.8346 19.9761,-25.0552 19.9752,-25.1932 19.9749,-25.3864 19.9752,-25.5875 19.9745,-25.8417 19.9745,-26.3795 19.9737,-27.0 19.9737,-27.2893 19.9733,-27.3386 19.9726,-27.4548 19.9724,-27.5512 19.9721,-27.8404 19.9727,-28.0335 19.9724,-28.3227 19.9714,-28.3835 19.7868,-28.4604 19.7641,-28.4635 19.718,-28.4535 19.5421,-28.4963 19.4881,-28.5627 19.4686,-28.6008 19.4656,-28.6366 19.4413,-28.6672 19.4226,-28.6784 19.3935,-28.6864 19.3243,-28.7036 19.2977,-28.6952 19.2766,-28.6931 19.2522,-28.699 19.2366,-28.7124 19.2152,-28.7701 19.2231,-28.7993 19.235,-28.8229 19.2292,-28.867 19.159,-28.9047 19.1211,-28.9225 19.0838,-28.9292 18.978,-28.8954 18.9613,-28.8725 18.9459,-28.8452 18.9271,-28.8337 18.695,-28.8039 18.3146,-28.8518 18.158,-28.8761 18.0212,-28.8357 18.0028,-28.8175 17.9784,-28.7946 17.9467,-28.7716 17.8894,-28.7466 17.7269,-28.7142 17.6881,-28.7242 17.6566,-28.7373 17.6205,-28.7415 17.5826,-28.7208 17.5797,-28.6883 17.567,-28.6574 17.4754,-28.6623 17.4388,-28.6704 17.3995,-28.6828 17.3787,-28.6761 17.339,-28.5029 17.363,-28.3923 17.3739,-28.3704 17.3771,-28.3311 17.3755,-28.3104 17.3208,-28.2013 17.2875,-28.1893 17.2566,-28.2063 17.1966,-28.2101 17.1766,-28.192 17.1621,-28.1687 17.1663,-28.1399 17.1671,-28.0823 17.1495,-28.0705 17.1323,-28.0657 17.1122,-28.0553 17.0984,-28.0337 17.086,-28.0144 17.0537,-27.9987 16.8903,-28.036 16.8654,-28.0607 16.801,-28.2059 16.78,-28.3309 16.755,-28.4097 16.698,-28.4668 16.6792,-28.4582 16.6557,-28.4323 16.6038,-28.4639 16.4683,-28.5461 16.4305,-28.5823 16.3721,-28.5591 16.3333,-28.5304 16.151,-28.3671 16.1373,-28.3519 16.0965,-28.3057 16.029,-28.2346 16.0025,-28.2097 15.9769,-28.1975 15.953,-28.1833 15.8781,-28.1311 15.7361,-28.0026 15.7161,-27.9795 15.6694,-27.9248 15.6566,-27.8977 15.6627,-27.8778 15.6514,-27.8419 15.6267,-27.8125 15.5854,-27.7663 15.5504,-27.7361 15.5327,-27.723 15.5112,-27.6992 15.5019,-27.6507 15.5114,-27.6304 15.4991,-27.5958 15.3796,-27.4239 15.3409,-27.3763 15.2744,-27.2919 15.2678,-27.2715 15.245,-27.1841 15.2505,-27.1316 15.216,-26.9391 15.199,-26.9064 15.1828,-26.8929 15.1596,-26.8878 15.1383,-26.8723 15.0934,-26.7538 15.0756,-26.7052 15.0649,-26.6669 15.0605,-26.6199 15.0747,-26.6042 15.1124,-26.6016 15.1173,-26.6446 15.1474,-26.5933 15.1523,-26.5716 15.1118,-26.4488 15.0982,-26.4172 15.0688,-26.3735 15.0283,-26.3451 15.0041,-26.3351 14.9729,-26.3241 14.9506,-26.3105 14.94,-26.2783 14.9283,-26.1081 14.9552,-26.1006 14.9628,-26.0596 14.9619,-26.0342 14.9504,-25.9848 14.9386,-25.9585 14.9164,-25.9337 14.8965,-25.9075 14.8188,-25.733 14.8156,-25.7129 14.8305,-25.6047 14.8458,-25.5614 14.8619,-25.5383 14.822,-25.3899 14.8112,-25.3728 14.7984,-25.3504 14.7821,-25.2519 14.793,-25.2248 14.8154,-25.1591 14.8389,-25.0591 14.838,-25.0305 14.8202,-24.983 14.8134,-24.9714 14.7827,-24.9287 14.7729,-24.9097 14.7686,-24.865 14.7759,-24.8304 14.7608,-24.7761 14.7109,-24.6861 14.6465,-24.6144 14.5884,-24.5509 14.5799,-24.5321 14.5869,-24.4933 14.601,-24.4592 14.596,-24.4339 14.5527,-24.3323 14.5361,-24.3062 14.4929,-24.2244 14.4702,-24.1723 14.4548,-24.1261 14.4448,-24.0762 14.4371,-23.9608 14.442,-23.9314 14.4923,-23.7996 14.4824,-23.5904 14.4772,-23.556 14.4631,-23.5268 14.4229,-23.4248 14.4164,-23.388 14.4235,-23.3665 14.4558,-23.3198 14.4638,-23.3467 14.4783,-23.3244 14.48,-23.2981 14.4647,-23.2133 14.4436,-23.1403 14.4362,-23.1203 14.4496,-23.1289 14.6714,-23.1784 14.6947,-23.1345 14.6721,-23.047 14.6501,-22.9582 14.6513,-22.9061 14.648,-22.6127 14.6262,-22.6136 14.5209,-22.6579 14.5068,-22.6663 14.5094,-22.6425 14.5067,-22.6036 14.4936,-22.5273 14.3989,-22.3092 14.3699,-22.2582 14.2682,-22.0984 14.1104,-21.9158 14.0854,-21.8893 14.0254,-21.8375 13.9355,-21.7545 13.9508,-21.7101 13.9398,-21.6775 13.9184,-21.65 13.8612,-21.5704 13.8489,-21.5246 13.8421,-21.4835 13.7959,-21.4073 13.7623,-21.37 13.6843,-21.272 13.5604,-21.1055 13.3875,-20.8387 13.3686,-20.8011 13.3616,-20.7808 13.3582,-20.758 13.3602,-20.7166 13.3533,-20.6804 13.3368,-20.6235 13.2904,-20.5327 13.2632,-20.4968 13.2368,-20.4462 13.2283,-20.41 13.2262,-20.3793 13.2228,-20.3501 13.2081,-20.285 13.2014,-20.2647 13.183,-20.2156 13.1592,-20.1579 13.1438,-20.1319 13.1246,-20.1085 13.101,-20.0922 13.0686,-20.0767 13.0401,-20.0509 13.0263,-20.0236 13.0147,-19.9789 12.9734,-19.8869 12.9642,-19.8689 12.9545,-19.8509 12.929,-19.8015 12.9122,-19.7671 12.7966,-19.576 12.7759,-19.5427 12.7581,-19.5169 12.6919,-19.396 12.6833,-19.3771 12.6729,-19.3476 12.6248,-19.2401 12.5716,-19.1309 12.527,-19.0461 12.4459,-18.9068 12.4268,-18.8778 12.4037,-18.8454 12.2917,-18.6961 12.276,-18.6797 12.2161,-18.6293 12.1989,-18.6177 12.182,-18.606 12.16,-18.5919 12.1316,-18.5719 12.1111,-18.5568 12.0684,-18.5146 12.0064,-18.4502 11.9833,-18.3926 11.9832,-18.3537 11.9387,-18.2452 11.9296,-18.227 11.8781,-18.1599 11.8329,-18.1188 11.7929,-18.066 11.7533,-17.968 11.7471,-17.9415 11.7279,-17.8102 11.7186,-17.7419 11.7025,-17.5442 11.7025,-17.5193 11.7032,-17.464 11.7065,-17.4375 11.7183,-17.3525 11.7338,-17.3101 11.7357,-17.2897 11.7396,-17.2456 11.7386,-17.2354 11.7976,-17.2506 11.8702,-17.2051 11.8881,-17.1863 11.9187,-17.1613 11.9619,-17.1448 12.0337,-17.1244 12.0733,-17.117 12.1912,-17.1752 12.2234,-17.1957 12.2776,-17.2104 12.4193,-17.1934 12.464,-17.2221 12.542,-17.224 12.5893,-17.2064 12.8025,-17.0877 12.8362,-17.0533 12.8644,-17.0209 12.908,-16.997 12.9702,-16.9717 13.0029,-16.9588 13.1335,-16.9351 13.155,-16.9371 13.1931,-16.9545 13.2451,-16.9656 13.3019,-16.959 13.3303,-16.9515 13.3599,-16.9517 13.456,-16.9914 13.4783,-17.0063 13.5119,-17.0681 13.6443,-17.1993 13.6815,-17.222 13.8247,-17.3039 13.9122,-17.3815 13.9764,-17.4042 13.9999,-17.3913 14.0343,-17.3999 14.066,-17.4102 14.1544,-17.4016 14.1778,-17.3915 14.201,-17.3674 14.3443,-17.3675 14.4306,-17.3678 14.617,-17.3685 14.9759,-17.3699 15.4783,-17.3698 15.5642,-17.3695 15.9375,-17.3669 15.9843,-17.3672 16.5861,-17.371 17.2582,-17.3727 17.4895,-17.3722 17.5406,-17.3711 17.7124,-17.3694 17.979,-17.3664 18.0953,-17.3671 18.1669,-17.3676 18.368,-17.3672 18.4293,-17.3703 18.4912,-17.4532 18.556,-17.5522 18.6196,-17.6282 18.7313,-17.7254 18.7818,-17.7486 18.8965,-17.7963 18.961,-17.8057 19.003,-17.8099 19.0327,-17.8076 19.0939,-17.7992 19.1106,-17.7841 19.1522,-17.7808 19.2224,-17.7863 19.2756,-17.805 19.3139,-17.8238 19.3899,-17.841 19.4223,-17.8424 19.5357,-17.8473 19.6777,-17.8505 19.774,-17.8434 19.7949,-17.8378 19.8964,-17.837 19.9222,-17.8431 19.9471,-17.8601 19.9929,-17.8705 20.0746,-17.876 20.1047,-17.8741 20.2203,-17.8601 20.2465,-17.8412 20.2969,-17.8372 20.4204,-17.8816 20.4679,-17.9218 20.5289,-17.9628 20.5706,-17.9609 20.6134,-17.9582 20.7268,-17.9756 20.7565,-17.9898 20.8291,-17.996 20.8646,-17.9742 20.9282,-17.948 20.9962,-17.9329 21.113,-17.9142 21.1402,-17.9113 21.2112,-17.9187 21.2378,-17.9361 21.3535,-17.9945 21.729,-17.9269 22.2635,-17.8298 22.5369,-17.7789 22.8536,-17.7195 22.8824,-17.7134 22.9687,-17.6968 23.2568,-17.6426 23.261,-17.6412 23.4479,-17.6059 23.4479,-17.6059 19,10.0,Australia 139.2602,-17.1266 139.2552,-17.1243 139.247,-17.1105 139.2401,-17.0965 139.2323,-17.0693 139.3348,-16.9773 139.3701,-16.9993 139.3862,-17.0128 139.4082,-17.0764 139.4021,-17.0856 139.3929,-17.0901 139.3493,-17.0916 139.2995,-17.0804 139.2849,-17.0836 139.2759,-17.0891 139.2666,-17.1002 139.2618,-17.1126 139.2602,-17.1266 139.2602,-17.1266 2441,-3.0,Chile -73.9682,-45.9514 -73.9504,-45.9322 -73.8722,-45.9853 -73.8653,-46.0068 -73.8682,-46.0359 -73.8816,-46.0623 -73.895,-46.0779 -73.9209,-46.0981 -73.9706,-46.1286 -74.0234,-46.1502 -74.0894,-46.1717 -74.2064,-46.1962 -74.2371,-46.198 -74.2677,-46.1888 -74.3108,-46.1662 -74.335,-46.1517 -74.3791,-46.1313 -74.2959,-46.1913 -74.2735,-46.2035 -74.2544,-46.2113 -74.2275,-46.2126 -74.1286,-46.1945 -74.0491,-46.1786 -74.0172,-46.1661 -73.9656,-46.1485 -73.9416,-46.1451 -73.9,-46.237 -73.7964,-46.2845 -73.7673,-46.2932 -73.7584,-46.2944 -73.7477,-46.2845 -73.775,-46.2556 -73.7999,-46.2445 -73.8321,-46.2284 -73.9126,-46.1607 -73.8796,-46.1054 -73.856,-46.0903 -73.788,-46.0861 -73.6582,-46.1883 -73.6625,-46.2434 -73.6719,-46.2804 -73.6868,-46.3096 -73.7035,-46.3337 -73.7749,-46.3955 -73.8065,-46.4188 -73.8889,-46.5061 -73.8072,-46.549 -73.7695,-46.55 -73.7417,-46.5388 -73.7265,-46.5246 -73.6741,-46.4444 -73.6615,-46.4217 -73.639,-46.3686 -73.5965,-46.332 -73.4677,-46.2207 -73.4286,-46.1366 -73.3219,-46.0217 -73.3394,-46.0108 -73.4355,-46.1053 -73.4757,-46.1544 -73.493,-46.1885 -73.5229,-46.2307 -73.5499,-46.2538 -73.5833,-46.2618 -73.5872,-46.218 -73.5803,-46.1975 -73.5682,-46.1804 -73.5459,-46.1461 -73.5305,-46.107 -73.5185,-46.0644 -73.516,-46.0317 -73.5411,-45.972 -73.5613,-45.9277 -73.4396,-45.7577 -73.3376,-45.6756 -73.3187,-45.6614 -73.2871,-45.642 -73.2608,-45.6338 -73.2402,-45.6318 -73.1894,-45.632 -73.1342,-45.6361 -73.1025,-45.6321 -73.0812,-45.6159 -73.2184,-45.5835 -73.2568,-45.5864 -73.2998,-45.5967 -73.3343,-45.6168 -73.3623,-45.6535 -73.376,-45.6687 -73.456,-45.7228 -73.4761,-45.726 -73.4668,-45.6338 -73.4116,-45.4038 -73.2941,-45.326 -73.1915,-45.2735 -73.1124,-45.2498 -73.0813,-45.2708 -73.0739,-45.3024 -73.0428,-45.325 -73.0007,-45.3507 -72.9122,-45.3969 -72.8484,-45.4125 -72.7726,-45.4206 -72.7572,-45.4184 -72.725,-45.3704 -72.7352,-45.3509 -72.7965,-45.3424 -72.818,-45.358 -72.8447,-45.3608 -72.9439,-45.3277 -72.9971,-45.2828 -73.0451,-45.2477 -73.1244,-45.2023 -73.157,-45.1933 -73.1791,-45.1979 -73.2085,-45.2215 -73.2276,-45.2395 -73.2647,-45.243 -73.3117,-45.2393 -73.3362,-45.2353 -73.3543,-45.224 -73.3589,-45.2012 -73.3445,-45.1496 -73.3186,-45.145 -73.2586,-45.143 -73.2391,-45.1364 -73.2028,-45.096 -73.2315,-45.0662 -73.2719,-45.0232 -73.3007,-44.9796 -73.2937,-44.9433 -73.2722,-44.9167 -73.2423,-44.9073 -73.2219,-44.9058 -73.1932,-44.9105 -73.1596,-44.9159 -73.1283,-44.9154 -73.0396,-44.8933 -72.8398,-44.8142 -72.7854,-44.7805 -72.6638,-44.7023 -72.6249,-44.6429 -72.5959,-44.5884 -72.5119,-44.422 -72.5054,-44.3277 -72.5605,-44.3643 -72.6398,-44.4055 -72.7444,-44.3482 -72.8244,-44.2965 -72.8245,-44.2681 -72.917,-44.2372 -72.9813,-44.2225 -73.0125,-44.2198 -73.0542,-44.2137 -73.0816,-44.2022 -73.1795,-44.1278 -73.1866,-44.0968 -73.1767,-44.0645 -73.1078,-44.0183 -73.0346,-43.9734 -73.0339,-43.9354 -72.9992,-43.8824 -72.9154,-43.7595 -72.8897,-43.7599 -72.8442,-43.752 -72.7438,-43.7268 -72.7504,-43.6993 -72.751,-43.6582 -72.7665,-43.6924 -72.7809,-43.7025 -72.8443,-43.7065 -72.94,-43.6842 -72.9442,-43.6494 -72.9374,-43.5323 -73.0042,-43.4162 -73.0142,-43.3934 -72.9797,-43.2649 -72.9592,-43.2472 -72.9202,-43.228 -72.8917,-43.2148 -72.8683,-43.2051 -72.8478,-43.1999 -72.8124,-43.1886 -72.8139,-43.1156 -72.8318,-43.0732 -72.8237,-43.0483 -72.7834,-42.9934 -72.7472,-42.9636 -72.7141,-42.9646 -72.6438,-42.9996 -72.6415,-42.8642 -72.6722,-42.8356 -72.7015,-42.8218 -72.73,-42.7999 -72.7453,-42.7712 -72.7595,-42.7125 -72.7608,-42.6592 -72.7557,-42.5183 -72.7207,-42.4525 -72.6982,-42.4459 -72.6088,-42.4497 -72.5803,-42.4537 -72.5593,-42.4738 -72.4817,-42.5121 -72.4517,-42.5183 -72.4389,-42.506 -72.4642,-42.4749 -72.5114,-42.4656 -72.5437,-42.4545 -72.5833,-42.4302 -72.7482,-42.241 -72.6999,-42.1982 -72.6506,-42.1714 -72.5036,-42.1366 -72.4718,-42.1496 -72.4431,-42.1888 -72.4435,-42.2109 -72.3531,-42.4061 -72.3349,-42.4157 -72.3208,-42.3977 -72.3294,-42.3237 -72.3641,-42.1914 -72.3776,-42.1483 -72.39,-42.075 -72.3878,-42.0474 -72.3814,-42.0094 -72.3739,-41.983 -72.3647,-41.9579 -72.3613,-41.926 -72.38,-41.9155 -72.4226,-41.9162 -72.4567,-41.9457 -72.5221,-41.9746 -72.6484,-41.9603 -72.7258,-41.929 -72.7672,-41.8848 -72.7585,-41.8593 -72.7052,-41.7962 -72.5544,-41.6809 -72.5128,-41.6821 -72.4788,-41.6877 -72.376,-41.669 -72.306,-41.6426 -72.2505,-41.6053 -72.233,-41.5887 -72.2104,-41.3887 -72.2466,-41.3989 -72.2813,-41.5772 -72.304,-41.6089 -72.3757,-41.6361 -72.4783,-41.6616 -72.5115,-41.662 -72.5351,-41.6551 -72.575,-41.6313 -72.6044,-41.5647 -72.6384,-41.529 -72.7046,-41.4697 -72.7431,-41.4535 -72.8352,-41.4364 -72.9117,-41.4536 -72.9443,-41.4637 -73.0057,-41.5371 -72.992,-41.5768 -72.9724,-41.59 -72.9583,-41.6484 -73.0281,-41.7037 -73.0944,-41.7406 -73.1281,-41.7451 -73.1986,-41.733 -73.231,-41.7255 -73.2975,-41.7269 -73.3173,-41.7332 -73.3656,-41.7503 -73.3922,-41.7571 -73.4091,-41.758 -73.473,-41.727 -73.5914,-41.7092 -73.6436,-41.707 -73.6281,-41.6306 -73.583,-41.5795 -73.565,-41.5699 -73.5318,-41.5687 -73.4987,-41.5725 -73.4613,-41.5638 -73.3963,-41.4729 -73.4272,-41.4949 -73.4478,-41.5289 -73.4674,-41.5489 -73.4958,-41.5558 -73.6159,-41.5465 -73.6767,-41.5174 -73.7694,-41.4322 -73.7712,-41.3953 -73.753,-41.3632 -73.7567,-41.2958 -73.7686,-41.2573 -73.8033,-41.1839 -73.8186,-41.1687 -73.8353,-41.1539 -73.8505,-41.1285 -73.8705,-41.033 -73.8927,-40.9206 -73.8448,-40.8116 -73.7303,-40.5763 -73.6849,-40.5308 -73.6446,-40.4638 -73.6518,-40.4264 -73.6804,-40.3718 -73.6265,-40.13 -73.5739,-40.0816 -73.5591,-40.0673 -73.5639,-40.0089 -73.5744,-39.9828 -73.6011,-39.9586 -73.6147,-39.9367 -73.5944,-39.9122 -73.5791,-39.8987 -73.3914,-39.8284 -73.3044,-39.84 -73.2784,-39.8099 -73.2801,-39.6916 -73.2069,-39.5457 -73.1914,-39.5236 -73.1556,-39.4518 -73.1254,-39.3725 -73.1471,-39.3413 -73.1215,-39.3067 -73.1286,-39.1965 -73.1847,-39.0412 -73.2604,-38.8731 -73.3618,-38.6471 -73.395,-38.5613 -73.4206,-38.4938 -73.4248,-38.4732 -73.4444,-38.3748 -73.4426,-38.3425 -73.4253,-38.2847 -73.4073,-38.2781 -73.4228,-38.2261 -73.4074,-38.2012 -73.3877,-38.1848 -73.3751,-38.1637 -73.3576,-38.0143 -73.3699,-37.9734 -73.3929,-37.9208 -73.4382,-37.835 -73.5089,-37.7384 -73.5704,-37.6842 -73.5887,-37.5613 -73.5758,-37.5349 -73.5387,-37.4972 -73.5082,-37.4728 -73.497,-37.4344 -73.5016,-37.3973 -73.5204,-37.3661 -73.5436,-37.3427 -73.5699,-37.3244 -73.58,-37.3052 -73.5427,-37.1576 -73.5313,-37.1352 -73.4901,-37.1105 -73.446,-37.1508 -73.4203,-37.1643 -73.3401,-37.1931 -73.2975,-37.1929 -73.2772,-37.192 -73.2511,-37.1887 -73.1968,-37.1762 -73.1552,-37.1605 -73.1307,-37.1458 -73.1073,-37.1199 -73.0925,-37.0927 -73.0682,-37.0158 -73.0491,-36.8344 -73.0335,-36.6413 -72.9978,-36.6541 -72.9748,-36.6729 -72.9439,-36.6792 -72.9198,-36.6789 -72.8999,-36.6719 -72.886,-36.6577 -72.8664,-36.5826 -72.8286,-36.4705 -72.7838,-36.3732 -72.7412,-36.2844 -72.7207,-36.0805 -72.701,-35.9344 -72.6863,-35.92 -72.6675,-35.9093 -72.6174,-35.8719 -72.5094,-35.783 -72.4968,-35.7622 -72.4885,-35.7306 -72.4901,-35.6942 -72.5143,-35.6467 -72.5563,-35.5617 -72.5533,-35.5341 -72.5315,-35.512 -72.4897,-35.4933 -72.4211,-35.4452 -72.3572,-35.3133 -72.3222,-35.2295 -72.3072,-35.2053 -72.2649,-35.1638 -72.233,-35.1464 -72.1941,-35.128 -72.1374,-35.0823 -72.1171,-35.0458 -72.108,-35.0009 -72.1051,-34.9714 -72.1041,-34.9364 -72.1018,-34.9068 -72.0937,-34.8528 -72.0388,-34.7523 -72.0167,-34.7329 -71.9971,-34.7079 -71.9733,-34.6484 -71.9633,-34.6097 -71.9483,-34.4771 -71.9559,-34.4178 -71.9588,-34.3793 -71.9378,-34.3504 -71.9007,-34.3334 -71.8906,-34.3072 -71.8914,-34.256 -71.8979,-34.1824 -71.919,-34.1589 -71.9266,-34.1391 -71.923,-34.106 -71.8041,-33.9251 -71.7766,-33.8959 -71.7703,-33.8762 -71.7463,-33.804 -71.712,-33.7361 -71.6854,-33.7278 -71.65,-33.7222 -71.6209,-33.7098 -71.586,-33.6841 -71.5672,-33.6445 -71.5619,-33.6245 -71.5554,-33.5928 -71.5466,-33.5169 -71.5649,-33.4549 -71.6011,-33.334 -71.6129,-33.2177 -71.6628,-33.0681 -71.6526,-33.0496 -71.6047,-33.0522 -71.4761,-32.9722 -71.4303,-32.8629 -71.4057,-32.7259 -71.3647,-32.6572 -71.3536,-32.6281 -71.3493,-32.5976 -71.3487,-32.4547 -71.3132,-32.3576 -71.3768,-32.2642 -71.418,-32.2112 -71.4451,-32.1509 -71.4389,-32.0555 -71.4278,-32.0073 -71.4212,-31.9844 -71.4132,-31.9442 -71.4122,-31.8578 -71.4184,-31.7368 -71.4324,-31.7086 -71.4474,-31.6776 -71.4717,-31.5765 -71.4723,-31.5146 -71.4763,-31.4878 -71.5279,-31.2802 -71.5661,-31.1464 -71.5733,-31.1277 -71.5737,-31.0965 -71.5679,-31.073 -71.5607,-31.0427 -71.5562,-30.9512 -71.5673,-30.916 -71.5829,-30.8929 -71.5882,-30.8698 -71.6101,-30.7272 -71.6094,-30.6236 -71.6052,-30.5255 -71.6027,-30.4724 -71.5852,-30.3079 -71.5522,-30.2395 -71.5223,-30.2298 -71.5099,-30.2464 -71.4771,-30.2571 -71.453,-30.2584 -71.4178,-30.243 -71.3131,-30.152 -71.2931,-30.1213 -71.1973,-29.8759 -71.1995,-29.801 -71.2292,-29.7731 -71.2476,-29.7138 -71.2434,-29.5178 -71.2286,-29.4419 -71.2162,-29.4085 -71.217,-29.3855 -71.2492,-29.2912 -71.2635,-29.2703 -71.2881,-29.2497 -71.3417,-29.2158 -71.3657,-29.2036 -71.3871,-29.1893 -71.3981,-29.1669 -71.4006,-29.151 -71.3854,-29.0754 -71.415,-28.9425 -71.4175,-28.8625 -71.4096,-28.8371 -71.3751,-28.8033 -71.2845,-28.7259 -71.2036,-28.6386 -71.1952,-28.5854 -71.1907,-28.5258 -71.1661,-28.4822 -71.1378,-28.4429 -71.071,-28.3171 -71.0654,-28.2031 -71.0646,-28.1224 -71.0484,-27.9298 -71.0134,-27.8127 -70.9902,-27.7534 -70.9536,-27.6917 -70.9165,-27.6456 -70.8732,-27.6279 -70.8224,-27.5935 -70.8007,-27.4569 -70.8177,-27.4035 -70.8447,-27.3032 -70.8754,-27.1487 -70.8668,-27.1242 -70.8537,-27.0974 -70.8317,-27.0816 -70.7728,-27.0701 -70.7226,-27.0088 -70.6941,-26.9583 -70.7098,-26.8967 -70.7267,-26.8631 -70.7326,-26.8367 -70.6645,-26.6847 -70.6117,-26.5663 -70.6024,-26.5321 -70.5918,-26.4065 -70.5476,-26.2717 -70.5776,-26.1708 -70.5778,-26.1369 -70.5676,-26.0578 -70.5404,-26.0135 -70.5363,-25.9933 -70.5401,-25.9611 -70.5598,-25.9065 -70.5877,-25.8797 -70.6073,-25.8594 -70.6407,-25.7868 -70.6086,-25.6813 -70.5922,-25.6352 -70.5431,-25.538 -70.4836,-25.4672 -70.4467,-25.4424 -70.3605,-25.3369 -70.3437,-25.2319 -70.343,-25.1741 -70.3657,-25.1187 -70.4127,-25.0604 -70.4076,-24.9277 -70.4394,-24.8694 -70.4578,-24.8142 -70.4944,-24.6881 -70.4778,-24.5299 -70.4587,-24.3696 -70.4502,-24.3216 -70.463,-24.3009 -70.4454,-24.2182 -70.4297,-24.1677 -70.4188,-24.1484 -70.411,-24.0791 -70.4162,-24.0195 -70.433,-23.984 -70.4335,-23.9497 -70.4235,-23.8252 -70.4104,-23.7566 -70.3803,-23.7198 -70.3544,-23.7011 -70.3383,-23.6735 -70.3183,-23.6274 -70.3086,-23.6002 -70.3023,-23.5769 -70.3032,-23.5352 -70.312,-23.5041 -70.3246,-23.4729 -70.338,-23.4583 -70.3715,-23.4365 -70.3995,-23.4231 -70.4216,-23.4314 -70.4487,-23.4874 -70.534,-23.4731 -70.5117,-23.3523 -70.5063,-23.2057 -70.487,-23.0408 -70.4516,-23.0041 -70.416,-22.9892 -70.4085,-23.0331 -70.3892,-23.0572 -70.3288,-23.0469 -70.2968,-23.032 -70.2774,-23.0158 -70.2602,-22.997 -70.2485,-22.9794 -70.2192,-22.9165 -70.199,-22.861 -70.204,-22.8321 -70.213,-22.8102 -70.2227,-22.7648 -70.196,-22.6204 -70.1707,-22.4267 -70.1552,-22.2886 -70.1363,-22.1372 -70.1209,-22.0741 -70.1003,-22.0003 -70.0624,-21.7467 -70.0669,-21.7159 -70.0682,-21.6492 -70.0506,-21.5948 -70.0054,-21.558 -69.9995,-21.5078 -69.9675,-21.4015 -69.9994,-21.3429 -70.0046,-21.3119 -69.9812,-21.2783 -70.0363,-21.0827 -70.0602,-21.0318 -70.0817,-20.9889 -70.0655,-20.9339 -70.0473,-20.9019 -70.0542,-20.8493 -70.0709,-20.8216 -70.0875,-20.8092 -70.1247,-20.7783 -70.0832,-20.372 -70.0544,-20.281 -70.049,-20.2542 -70.0752,-20.1916 -70.0644,-20.1159 -70.0505,-20.0868 -70.041,-20.0574 -70.039,-19.98 -70.0394,-19.9519 -70.0534,-19.8854 -70.0691,-19.7755 -70.0894,-19.6222 -70.1198,-19.4682 -70.155,-19.3468 -70.1774,-19.3077 -70.1988,-19.27 -70.1952,-19.1865 -70.1833,-19.1616 -70.1861,-19.1198 -70.2334,-18.8708 -70.2377,-18.8492 -70.2541,-18.8082 -70.2641,-18.613 -70.2541,-18.5555 -70.2267,-18.4168 -70.2528,-18.3801 -70.2777,-18.3555 -70.3108,-18.3309 -70.3201,-18.3276 -70.3047,-18.3144 -70.2818,-18.302 -70.2425,-18.2988 -70.1637,-18.3071 -70.1156,-18.3095 -70.0928,-18.3083 -70.0473,-18.3006 -69.9058,-18.2495 -69.8737,-18.229 -69.7828,-18.1371 -69.7597,-18.1119 -69.7119,-18.0194 -69.7016,-17.995 -69.6897,-17.9651 -69.6851,-17.9322 -69.7278,-17.7811 -69.7371,-17.7625 -69.7536,-17.7476 -69.765,-17.7291 -69.7614,-17.6882 -69.7503,-17.6614 -69.7302,-17.6323 -69.6856,-17.637 -69.6497,-17.6399 -69.5994,-17.6435 -69.5458,-17.5974 -69.4155,-17.4853 -69.4031,-17.613 -69.2921,-17.7067 -69.2715,-17.7255 -69.2435,-17.7773 -69.2345,-17.8049 -69.2372,-17.8719 -69.2313,-17.9065 -69.2222,-17.9355 -69.2074,-17.9593 -69.0498,-18.0085 -68.991,-18.0176 -68.9892,-18.0479 -68.9987,-18.0663 -69.0347,-18.0884 -69.0558,-18.1047 -69.0649,-18.1303 -69.0515,-18.1591 -69.0305,-18.1804 -69.007,-18.2074 -69.0018,-18.265 -68.9907,-18.3713 -68.9764,-18.3935 -68.9559,-18.4201 -68.9461,-18.4385 -68.9394,-18.4624 -68.9418,-18.4867 -68.9485,-18.5389 -68.9454,-18.5904 -68.9405,-18.6377 -68.9167,-18.7217 -68.8675,-18.8244 -68.849,-18.8615 -68.8819,-18.9315 -68.8161,-19.0432 -68.6987,-19.1202 -68.6572,-19.156 -68.5748,-19.2454 -68.5588,-19.2604 -68.5247,-19.2755 -68.4992,-19.282 -68.4677,-19.2974 -68.4083,-19.347 -68.3604,-19.4116 -68.4678,-19.5177 -68.4889,-19.5445 -68.5185,-19.5855 -68.6035,-19.6813 -68.6062,-19.7204 -68.5424,-19.7633 -68.4833,-19.8116 -68.4398,-19.8937 -68.4942,-20.031 -68.5272,-20.0289 -68.5669,-20.0339 -68.6935,-20.0664 -68.7009,-20.0919 -68.6829,-20.1139 -68.6375,-20.2151 -68.6201,-20.3151 -68.6511,-20.3294 -68.671,-20.3505 -68.6685,-20.4008 -68.6552,-20.4271 -68.6409,-20.4477 -68.6073,-20.482 -68.5781,-20.5 -68.5458,-20.5153 -68.5159,-20.5269 -68.4871,-20.5356 -68.4658,-20.5443 -68.4088,-20.5815 -68.3833,-20.6073 -68.3886,-20.6272 -68.4254,-20.6484 -68.4452,-20.6643 -68.4814,-20.7106 -68.4818,-20.8467 -68.4762,-20.8679 -68.4687,-20.8813 -68.4481,-20.9028 -68.4221,-20.9138 -68.3952,-20.9181 -68.3699,-20.9159 -68.3405,-20.9153 -68.1462,-21.2093 -68.1049,-21.2729 -68.1022,-21.5852 -68.0861,-21.6034 -68.0551,-21.6423 -68.0383,-21.6734 -68.0214,-21.7208 -68.0067,-21.7952 -68.0036,-21.8182 -68.0022,-21.8555 -68.0035,-21.8885 -68.0014,-21.9367 -67.9132,-22.0219 -67.8889,-22.0352 -67.8608,-22.0797 -67.8387,-22.214 -67.8388,-22.2486 -67.8488,-22.2751 -67.8067,-22.4012 -67.7657,-22.5294 -67.7998,-22.6872 -67.7921,-22.8022 -67.709,-22.8522 -67.4952,-22.8751 -67.4161,-22.8597 -67.2513,-22.8268 -67.1002,-22.7958 -67.0214,-22.8746 -66.9175,-22.977 -66.9642,-23.098 -67.0101,-23.215 -67.0548,-23.3321 -67.0673,-23.3655 -67.107,-23.502 -67.1669,-23.7063 -67.2515,-23.9945 -67.4924,-24.0944 -67.5549,-24.1203 -67.8138,-24.2267 -68.1043,-24.344 -68.1677,-24.371 -68.1916,-24.4197 -68.2329,-24.4692 -68.2797,-24.4624 -68.3047,-24.4762 -68.3766,-24.5768 -68.4218,-24.6426 -68.4543,-24.7017 -68.4808,-24.754 -68.4844,-24.7852 -68.4618,-24.8416 -68.4137,-24.8671 -68.2687,-25.0928 -68.3331,-25.1244 -68.3986,-25.1341 -68.4098,-25.1427 -68.4276,-25.1703 -68.4426,-25.2235 -68.4472,-25.2415 -68.4521,-25.2455 -68.4725,-25.2869 -68.4849,-25.3174 -68.5055,-25.3946 -68.51,-25.4148 -68.5121,-25.4452 -68.509,-25.4695 -68.4656,-25.5888 -68.4136,-25.6893 -68.4059,-25.7138 -68.3668,-25.8762 -68.3122,-26.1298 -68.3319,-26.1582 -68.392,-26.2084 -68.4319,-26.2338 -68.4574,-26.2523 -68.4764,-26.2745 -68.4894,-26.321 -68.4931,-26.3524 -68.4971,-26.4067 -68.4975,-26.4274 -68.4956,-26.4753 -68.4901,-26.4956 -68.4801,-26.5155 -68.453,-26.5544 -68.4077,-26.6031 -68.3623,-26.6513 -68.3485,-26.6663 -68.3366,-26.6824 -68.2079,-26.8614 -68.1999,-26.8825 -68.2352,-26.993 -68.2658,-27.0099 -68.3043,-27.0282 -68.323,-27.0359 -68.5576,-27.1077 -68.6066,-27.0793 -68.6502,-27.0728 -68.6939,-27.0755 -68.7188,-27.0879 -68.759,-27.1454 -68.7782,-27.1787 -68.7892,-27.2095 -68.7809,-27.248 -68.8147,-27.3332 -68.9561,-27.5706 -68.9843,-27.5996 -69.0239,-27.7017 -69.0314,-27.7428 -69.066,-27.8714 -69.0752,-27.8941 -69.0883,-27.9205 -69.1039,-27.9391 -69.1328,-27.9453 -69.1696,-27.9488 -69.2066,-27.9652 -69.2365,-28.0277 -69.248,-28.0716 -69.2609,-28.0943 -69.3093,-28.1487 -69.4419,-28.2823 -69.5152,-28.3362 -69.5653,-28.3689 -69.5719,-28.5092 -69.5792,-28.5434 -69.6107,-28.5587 -69.6558,-28.6377 -69.656,-28.6868 -69.6494,-28.7093 -69.6393,-28.7317 -69.6329,-28.7653 -69.667,-28.854 -69.6985,-28.9842 -69.6964,-29.038 -69.7023,-29.063 -69.7155,-29.0807 -69.7477,-29.1 -69.8111,-29.1062 -69.8696,-29.1682 -69.9382,-29.2581 -69.944,-29.319 -69.9383,-29.3419 -69.9124,-29.3907 -69.8741,-29.5023 -69.8691,-29.5223 -69.866,-29.567 -69.873,-29.5952 -69.8779,-29.6222 -69.8721,-29.6447 -69.8593,-29.661 -69.8264,-29.68 -69.8238,-29.687 -69.8144,-29.7659 -69.8168,-29.8843 -69.8279,-29.9403 -69.8341,-29.9662 -69.7727,-30.07 -69.7507,-30.0865 -69.7382,-30.11 -69.7407,-30.1564 -69.8079,-30.291 -69.8476,-30.3384 -69.9074,-30.3611 -69.9388,-30.3635 -69.9604,-30.3606 -70.0427,-30.4053 -70.1203,-30.525 -70.161,-30.6033 -70.1779,-30.6437 -70.2249,-30.7902 -70.2356,-30.8563 -70.24,-30.8964 -70.2365,-30.9221 -70.1998,-30.961 -70.2035,-30.9946 -70.2705,-31.0579 -70.3384,-31.0786 -70.3598,-31.0595 -70.4289,-31.1241 -70.4394,-31.1463 -70.4684,-31.2873 -70.4754,-31.4338 -70.4873,-31.4947 -70.4947,-31.5284 -70.367,-31.7965 -70.3547,-31.8131 -70.3386,-31.8326 -70.3203,-31.8431 -70.2816,-31.8503 -70.2481,-31.8486 -70.2124,-31.8463 -70.193,-31.856 -70.146,-31.9026 -70.1407,-31.9292 -70.1733,-32.0062 -70.2152,-32.0115 -70.2571,-32.0507 -70.2255,-32.192 -70.2292,-32.2291 -70.2215,-32.2479 -70.1528,-32.2733 -70.1394,-32.3053 -70.0626,-32.4394 -70.0552,-32.4695 -70.0608,-32.5065 -70.073,-32.5446 -70.0793,-32.5911 -70.0535,-32.7224 -69.9538,-32.8171 -69.9022,-32.8392 -69.9297,-32.912 -69.9804,-32.9686 -70.0082,-33.0145 -69.9932,-33.0398 -69.9998,-33.0854 -70.0093,-33.1159 -70.0044,-33.142 -69.9093,-33.2612 -69.8847,-33.2583 -69.8644,-33.2277 -69.8364,-33.2033 -69.8114,-33.1998 -69.7843,-33.2078 -69.7126,-33.2416 -69.6841,-33.3495 -69.6927,-33.3753 -69.7183,-33.4002 -69.7786,-33.5175 -69.814,-33.7406 -69.8131,-33.7894 -69.7933,-33.8538 -69.7574,-34.0587 -69.7266,-34.1962 -69.7973,-34.2398 -69.8438,-34.2373 -69.8663,-34.232 -69.8951,-34.2312 -69.9386,-34.2382 -69.9564,-34.2473 -69.9615,-34.2573 -69.961,-34.3162 -69.9545,-34.3615 -70.0587,-34.493 -70.1414,-34.6228 -70.206,-34.8143 -70.2683,-34.9576 -70.2707,-34.965 -70.2717,-35.0033 -70.2705,-35.0395 -70.2666,-35.0609 -70.2717,-35.1051 -70.2897,-35.1294 -70.3596,-35.1587 -70.3908,-35.1635 -70.4248,-35.1652 -70.4489,-35.1706 -70.4734,-35.2021 -70.4754,-35.2283 -70.4586,-35.2569 -70.4414,-35.2681 -70.3304,-35.3246 -70.3048,-35.4749 -70.3127,-35.5745 -70.3269,-35.5949 -70.3169,-35.6322 -70.2828,-35.6948 -70.2522,-35.7708 -70.2834,-35.7928 -70.3106,-35.8304 -70.3196,-35.8525 -70.3156,-35.9306 -70.3041,-36.035 -70.3325,-36.0952 -70.3468,-36.1107 -70.3757,-36.1232 -70.4124,-36.1215 -70.4963,-36.124 -70.6123,-36.2297 -70.6264,-36.3032 -70.6038,-36.3499 -70.6144,-36.3733 -70.8599,-36.4458 -70.8891,-36.4426 -70.9235,-36.4347 -70.9414,-36.4426 -70.9617,-36.5058 -71.0438,-36.7003 -71.0928,-36.804 -71.0552,-36.9337 -71.0194,-37.0725 -71.0366,-37.15 -71.0541,-37.1941 -71.0892,-37.2264 -71.1026,-37.2602 -71.0729,-37.337 -71.0515,-37.3634 -71.0241,-37.3927 -71.015,-37.4165 -71.0291,-37.5458 -71.0633,-37.5663 -71.0816,-37.5839 -71.0883,-37.6166 -71.0857,-37.6538 -71.0667,-37.7028 -71.0432,-37.7484 -71.0361,-37.7714 -71.0298,-37.7949 -71.0007,-37.8396 -70.9041,-38.0273 -70.9063,-38.1111 -70.9145,-38.161 -70.9188,-38.1845 -70.9085,-38.2419 -70.877,-38.3723 -70.8556,-38.4074 -70.8127,-38.4428 -70.7861,-38.4554 -70.7496,-38.4786 -70.7311,-38.5125 -70.7351,-38.5444 -70.7673,-38.6464 -70.8287,-38.697 -70.851,-38.7055 -70.8997,-38.7044 -70.9313,-38.7018 -70.9583,-38.7047 -71.0028,-38.7225 -71.1435,-38.7871 -71.2388,-38.832 -71.2652,-38.845 -71.2981,-38.8695 -71.3148,-38.8916 -71.3229,-38.9165 -71.3268,-38.9699 -71.3263,-38.9955 -71.3162,-39.0221 -71.3063,-39.0856 -71.2918,-39.196 -71.3069,-39.2856 -71.354,-39.3908 -71.3888,-39.5169 -71.3959,-39.5544 -71.4105,-39.573 -71.5022,-39.5765 -71.5282,-39.5671 -71.5697,-39.522 -71.5853,-39.5227 -71.5927,-39.5309 -71.6119,-39.5821 -71.6079,-39.6825 -71.5724,-39.8094 -71.5358,-39.9055 -71.5692,-40.0023 -71.6519,-40.044 -71.6932,-40.0696 -71.7201,-40.1589 -71.6933,-40.2002 -71.6217,-40.2568 -71.6046,-40.2332 -71.5707,-40.2513 -71.566,-40.289 -71.6036,-40.3587 -71.6177,-40.3779 -71.6376,-40.3818 -71.6605,-40.3645 -71.6816,-40.3633 -71.7393,-40.4858 -71.7422,-40.5277 -71.7408,-40.5548 -71.7609,-40.5975 -71.7807,-40.6191 -71.8016,-40.6354 -71.8319,-40.6552 -71.8513,-40.6808 -71.8154,-40.76 -71.7644,-40.8444 -71.7514,-40.8661 -71.7394,-40.9091 -71.7605,-40.9647 -71.7417,-41.0124 -71.7623,-41.1951 -71.7672,-41.2191 -71.7846,-41.2471 -71.7998,-41.3097 -71.7941,-41.34 -71.7834,-41.3591 -71.7688,-41.3857 -71.7507,-41.5024 -71.7929,-41.5568 -71.8151,-41.5763 -71.8154,-41.6048 -71.751,-41.7191 -71.6885,-41.8136 -71.6784,-41.8398 -71.6642,-41.8987 -71.6606,-41.9521 -71.6321,-41.9818 -71.6271,-42.0473 -71.6779,-42.0827 -71.8075,-42.1283 -71.8382,-42.1243 -71.8483,-42.0989 -71.8621,-42.0815 -71.8939,-42.0766 -71.9177,-42.0861 -71.9384,-42.1014 -72.0304,-42.2373 -72.0088,-42.2677 -71.9818,-42.2851 -71.9567,-42.3012 -71.9447,-42.3209 -72.0112,-42.4786 -72.026,-42.499 -72.0347,-42.5209 -72.0388,-42.5425 -72.028,-42.6203 -72.0104,-42.6722 -72.0071,-42.7119 -72.0015,-42.8059 -72.0042,-42.833 -72.0133,-42.8654 -72.026,-42.8877 -72.033,-42.9072 -72.0364,-42.957 -72.0175,-42.9902 -71.9778,-43.0398 -71.9522,-43.0556 -71.8991,-43.0729 -71.8587,-43.072 -71.8308,-43.0733 -71.7677,-43.0775 -71.7355,-43.0838 -71.6396,-43.127 -71.6333,-43.2293 -71.6399,-43.2485 -71.6588,-43.2581 -71.6952,-43.2516 -71.7953,-43.2762 -71.8293,-43.3376 -71.8352,-43.4038 -71.7484,-43.4511 -71.6014,-43.5519 -71.5904,-43.6167 -71.6026,-43.6394 -71.6662,-43.6702 -71.6858,-43.6762 -71.7069,-43.6847 -71.7073,-43.7134 -71.6559,-43.7694 -71.5981,-43.8169 -71.5482,-43.8664 -71.5466,-43.8881 -71.5553,-43.9063 -71.6462,-44.0089 -71.6787,-44.0338 -71.7174,-44.112 -71.6997,-44.1398 -71.6933,-44.1654 -71.6966,-44.2779 -71.7423,-44.3017 -71.7527,-44.3221 -71.7271,-44.3497 -71.6781,-44.3573 -71.5258,-44.3595 -71.4451,-44.3591 -71.3805,-44.3521 -71.301,-44.3498 -71.0957,-44.3796 -71.062,-44.4006 -71.009,-44.4846 -71.022,-44.5179 -71.0451,-44.5358 -71.0899,-44.541 -71.1319,-44.6125 -71.1274,-44.6376 -71.1204,-44.6661 -71.126,-44.6958 -71.1776,-44.7472 -71.2054,-44.7527 -71.2393,-44.7522 -71.2694,-44.7453 -71.2956,-44.7361 -71.3426,-44.7105 -71.371,-44.696 -71.3914,-44.6929 -71.4178,-44.6931 -71.4552,-44.7034 -71.508,-44.7235 -71.5284,-44.7289 -71.5529,-44.7317 -71.5728,-44.7263 -71.5927,-44.7192 -71.6137,-44.7131 -71.6704,-44.7044 -71.6941,-44.7121 -71.7127,-44.7339 -71.7401,-44.7415 -71.8504,-44.7319 -71.8731,-44.7253 -71.8929,-44.7183 -71.9182,-44.708 -71.946,-44.7031 -71.974,-44.7153 -71.9807,-44.7362 -71.9657,-44.8507 -71.8334,-44.871 -71.7058,-44.8795 -71.6401,-44.8859 -71.4819,-44.9241 -71.4486,-44.9477 -71.398,-45.0242 -71.2296,-45.1797 -71.1987,-45.2533 -71.3672,-45.4254 -71.5055,-45.4704 -71.5286,-45.4694 -71.549,-45.472 -71.5718,-45.4756 -71.6118,-45.4869 -71.6497,-45.5066 -71.6811,-45.6027 -71.6911,-45.6768 -71.6528,-45.7967 -71.6234,-45.8095 -71.5935,-45.8166 -71.5487,-45.831 -71.5283,-45.8509 -71.5034,-45.9244 -71.5374,-45.9443 -71.5437,-45.9468 -71.5646,-45.9599 -71.5986,-45.9918 -71.6196,-46.0155 -71.6395,-46.0438 -71.6644,-46.0642 -71.6917,-46.0726 -71.7226,-46.0776 -71.7494,-46.0797 -71.8002,-46.0962 -71.7332,-46.148 -71.699,-46.1567 -71.6656,-46.1686 -71.6449,-46.1942 -71.6394,-46.2185 -71.6232,-46.3775 -71.5883,-46.4373 -71.5687,-46.4852 -71.5646,-46.5992 -71.571,-46.6303 -71.5846,-46.6491 -71.7115,-46.7324 -71.7479,-46.7431 -71.8148,-46.7463 -71.8368,-46.7624 -71.8735,-46.9806 -71.7899,-47.0616 -71.76,-47.0855 -71.7495,-47.1186 -71.7652,-47.1643 -71.78,-47.1785 -71.9141,-47.2231 -71.978,-47.2986 -72.0557,-47.3565 -72.0906,-47.3643 -72.1264,-47.3562 -72.1528,-47.3566 -72.1895,-47.3654 -72.2101,-47.3717 -72.2317,-47.381 -72.2465,-47.3955 -72.2553,-47.4236 -72.2377,-47.4356 -72.2045,-47.4508 -72.2255,-47.5413 -72.2357,-47.563 -72.2489,-47.5818 -72.2701,-47.6051 -72.3,-47.6372 -72.3246,-47.6662 -72.3516,-47.7084 -72.4304,-47.8603 -72.4267,-47.8862 -72.4103,-47.9059 -72.3738,-47.9335 -72.3452,-47.9461 -72.3024,-47.9532 -72.2175,-48.0232 -72.1954,-48.1349 -72.1871,-48.2922 -72.3211,-48.3495 -72.3855,-48.3672 -72.4515,-48.3912 -72.4725,-48.4012 -72.4899,-48.4172 -72.4983,-48.4383 -72.485,-48.4778 -72.474,-48.509 -72.4681,-48.5315 -72.4554,-48.5955 -72.4502,-48.6382 -72.4463,-48.6752 -72.4462,-48.7206 -72.4551,-48.7431 -72.4807,-48.7684 -72.6025,-48.8474 -72.6306,-48.8633 -72.6488,-48.8718 -72.6748,-48.8815 -72.7041,-48.8896 -72.7497,-48.8957 -72.7891,-48.8944 -72.8091,-48.8979 -72.845,-48.9082 -72.8755,-48.9219 -72.8996,-48.9417 -72.9701,-49.0114 -73.0693,-49.1652 -73.067,-49.186 -73.0602,-49.1959 -72.9791,-49.2107 -73.0285,-49.2475 -73.0606,-49.2477 -73.3151,-49.2529 -73.3566,-49.2547 -73.4316,-49.3861 -73.4736,-49.4837 -73.4603,-49.5022 -73.4066,-49.548 -73.3377,-49.7334 -73.357,-49.752 -73.3926,-49.7738 -73.42,-49.7953 -73.4451,-49.8829 -73.4055,-49.9108 -73.3807,-49.9259 -73.3605,-49.9439 -73.3644,-49.9742 -73.3912,-49.9986 -73.4144,-50.0296 -73.4258,-50.062 -73.4117,-50.0905 -73.3748,-50.1089 -73.3258,-50.1331 -73.2386,-50.1782 -73.2214,-50.1912 -73.207,-50.2088 -73.1668,-50.2703 -73.1557,-50.2972 -73.1383,-50.4418 -73.1176,-50.5392 -73.0651,-50.6809 -73.0467,-50.7001 -73.0254,-50.7108 -72.9974,-50.7135 -72.9721,-50.7096 -72.9409,-50.7029 -72.9066,-50.6906 -72.8728,-50.671 -72.8458,-50.6473 -72.8149,-50.6202 -72.795,-50.6088 -72.7622,-50.5955 -72.6555,-50.562 -72.6263,-50.5622 -72.5981,-50.5786 -72.5805,-50.5937 -72.5606,-50.6052 -72.5288,-50.6131 -72.4964,-50.6102 -72.4766,-50.6011 -72.4543,-50.5725 -72.4326,-50.555 -72.4081,-50.5473 -72.3812,-50.5442 -72.2602,-50.5557 -72.1839,-50.594 -72.1902,-50.6185 -72.2285,-50.6728 -72.2239,-50.6972 -72.1924,-50.7215 -72.1699,-50.7416 -72.1438,-50.7726 -72.1323,-50.7955 -72.155,-50.9515 -72.1708,-50.971 -72.223,-50.9749 -72.2838,-51.0486 -72.2646,-51.0994 -72.2406,-51.1203 -72.2151,-51.1325 -72.179,-51.1449 -72.1382,-51.1781 -72.1513,-51.2054 -72.1807,-51.225 -72.1997,-51.2516 -72.2013,-51.2996 -72.1978,-51.3393 -72.2352,-51.4249 -72.257,-51.439 -72.2882,-51.4537 -72.1763,-51.6362 -72.1457,-51.6469 -72.0959,-51.6521 -72.0689,-51.6596 -72.0482,-51.6681 -72.0227,-51.6797 -71.9749,-51.7042 -71.847,-51.7943 -71.8297,-51.8207 -71.8293,-51.8537 -71.7973,-51.9351 -71.5816,-51.9363 -71.1214,-51.9369 -70.5511,-51.9367 -70.324,-51.9367 -69.9998,-51.9358 -69.9566,-51.9356 -69.8884,-51.9356 -69.833,-51.9502 -69.7778,-51.9654 -69.6557,-51.9998 -69.3515,-52.083 -69.1779,-52.0831 -69.1244,-52.0826 -68.9236,-52.1338 -68.8821,-52.1451 -68.8266,-52.1698 -68.7707,-52.195 -68.7196,-52.2187 -68.6184,-52.229 -68.5397,-52.2361 -68.4668,-52.2442 -68.3274,-52.2676 -68.3331,-52.3165 -68.3692,-52.2725 -68.4001,-52.264 -68.5704,-52.2461 -68.6895,-52.2425 -68.7096,-52.2436 -68.8333,-52.2287 -68.8733,-52.2191 -68.8938,-52.2102 -68.9114,-52.2008 -68.9346,-52.1876 -68.959,-52.1749 -69.0077,-52.1562 -69.0428,-52.1465 -69.0788,-52.144 -69.1009,-52.1437 -69.1589,-52.1473 -69.335,-52.1957 -69.3601,-52.208 -69.3728,-52.2247 -69.3756,-52.253 -69.3806,-52.3223 -69.4471,-52.3902 -69.4716,-52.4102 -69.5234,-52.4422 -69.5413,-52.4572 -69.5645,-52.4668 -69.6708,-52.457 -69.6999,-52.4394 -69.8028,-52.4533 -70.0293,-52.5145 -70.0591,-52.5238 -70.3839,-52.643 -70.4152,-52.6448 -70.5711,-52.6569 -70.6981,-52.6707 -70.7293,-52.817 -70.7164,-52.8452 -70.6973,-52.8585 -70.6978,-52.9312 -70.7748,-53.0677 -70.7938,-53.088 -70.8153,-53.1035 -70.8314,-53.1252 -70.84,-53.1554 -70.8772,-53.3247 -70.8759,-53.3567 -70.872,-53.3813 -70.8606,-53.4147 -70.8453,-53.4402 -70.832,-53.4728 -70.8242,-53.5016 -70.8195,-53.5389 -70.8245,-53.5706 -70.8593,-53.6979 -70.8803,-53.7238 -70.9292,-53.7604 -71.1168,-53.8121 -71.1665,-53.8232 -71.3344,-53.7724 -71.3648,-53.7673 -71.4076,-53.7639 -71.4531,-53.7618 -71.4754,-53.7617 -71.5157,-53.7587 -71.58,-53.7472 -71.7348,-53.6793 -71.8161,-53.6669 -71.9318,-53.6458 -71.996,-53.6249 -72.1697,-53.5181 -72.2295,-53.4649 -72.2772,-53.4186 -72.3013,-53.3924 -72.3339,-53.3419 -72.3045,-53.2566 -72.1658,-53.1828 -71.9947,-53.1954 -71.9662,-53.242 -71.9594,-53.2645 -71.9632,-53.3011 -71.9766,-53.3249 -72.0401,-53.351 -72.1092,-53.3731 -72.0708,-53.3825 -71.9874,-53.3673 -71.9526,-53.3538 -71.8947,-53.3281 -71.8882,-53.3068 -71.8938,-53.2738 -71.903,-53.2332 -71.9058,-53.2115 -71.8973,-53.1796 -71.8734,-53.1606 -71.7497,-53.1605 -71.7197,-53.1823 -71.6686,-53.3671 -71.68,-53.3912 -71.6996,-53.4033 -71.7307,-53.4193 -71.8249,-53.4516 -71.852,-53.4588 -71.8868,-53.4737 -71.8875,-53.5027 -71.8779,-53.5074 -71.8292,-53.4891 -71.7107,-53.4622 -71.6796,-53.45 -71.6378,-53.3998 -71.6431,-53.3338 -71.6569,-53.2857 -71.6507,-53.2244 -71.6222,-53.1528 -71.3614,-53.0707 -71.3312,-53.0724 -71.3043,-53.0721 -71.2736,-53.0673 -71.2522,-53.0597 -71.2319,-53.0504 -71.2128,-53.0377 -71.0136,-52.827 -71.0033,-52.8021 -71.0522,-52.7488 -71.1397,-52.7334 -71.235,-52.7295 -71.489,-52.8138 -71.7008,-52.8957 -71.7825,-52.9372 -71.7985,-52.9645 -71.9029,-53.0623 -71.9592,-53.0717 -71.9883,-53.0708 -72.0242,-53.0559 -72.0457,-53.0396 -72.0662,-53.0161 -72.0844,-52.9967 -72.1043,-52.9847 -72.1866,-52.9674 -72.3997,-53.0004 -72.428,-53.0203 -72.347,-53.0136 -72.2468,-53.0145 -72.0933,-53.0942 -72.0724,-53.1205 -72.0841,-53.1391 -72.2237,-53.1647 -72.2557,-53.1603 -72.2942,-53.1396 -72.3668,-53.1259 -72.4156,-53.1416 -72.3898,-53.1674 -72.3531,-53.1773 -72.3321,-53.1778 -72.3013,-53.1873 -72.3991,-53.3029 -72.4308,-53.3109 -72.4826,-53.3009 -72.5122,-53.276 -72.5293,-53.2637 -72.5208,-53.3013 -72.437,-53.3602 -72.4096,-53.3453 -72.3806,-53.3416 -72.2787,-53.4345 -72.2642,-53.4594 -72.2814,-53.4777 -72.3775,-53.4867 -72.3877,-53.487 -72.4154,-53.4673 -72.6111,-53.3711 -72.7448,-53.3261 -72.8214,-53.2941 -72.8439,-53.275 -72.9497,-53.2236 -72.9696,-53.2179 -72.9999,-53.217 -73.0251,-53.211 -73.0933,-53.1726 -73.1798,-53.0986 -72.9574,-53.1071 -72.8788,-53.097 -72.8255,-53.102 -72.729,-53.1496 -72.6581,-53.2214 -72.6354,-53.2352 -72.5919,-53.2318 -72.5759,-53.1795 -72.6322,-53.1493 -72.674,-53.1218 -72.6398,-53.0805 -72.5947,-53.0867 -72.5379,-53.0869 -72.586,-53.0664 -72.6541,-53.0584 -72.6819,-53.0633 -72.7067,-53.0813 -72.7331,-53.086 -72.8193,-53.0409 -72.7934,-53.0219 -72.7817,-53.0117 -72.7601,-52.9665 -72.8013,-52.9332 -72.832,-52.8745 -72.8407,-52.7956 -72.7987,-52.7628 -72.6027,-52.6844 -72.4666,-52.7349 -72.35,-52.7587 -72.3051,-52.751 -72.1865,-52.6893 -72.0691,-52.6052 -72.0552,-52.5855 -71.8916,-52.571 -71.8167,-52.6038 -71.7795,-52.6204 -71.732,-52.6272 -71.6762,-52.6291 -71.6035,-52.6272 -71.5645,-52.6244 -71.5362,-52.6219 -71.5032,-52.6147 -71.361,-52.5719 -71.404,-52.5098 -71.4298,-52.4975 -71.4686,-52.4967 -71.4935,-52.5015 -71.5243,-52.501 -71.6536,-52.4882 -71.8025,-52.4679 -72.0161,-52.4514 -72.1614,-52.4559 -72.1961,-52.4606 -72.2288,-52.4861 -72.2536,-52.524 -72.3047,-52.594 -72.4309,-52.5289 -72.3834,-52.4861 -72.3561,-52.4739 -72.3249,-52.4753 -72.2796,-52.4606 -72.3008,-52.4434 -72.4086,-52.4644 -72.4295,-52.4759 -72.5137,-52.482 -72.6737,-52.4813 -72.7823,-52.5639 -72.7644,-52.5763 -72.6934,-52.5475 -72.5645,-52.5776 -72.5619,-52.6005 -72.6376,-52.6681 -72.6824,-52.6959 -72.7485,-52.7311 -72.8085,-52.7386 -72.834,-52.7431 -72.8639,-52.7665 -72.8884,-52.7924 -72.856,-52.8542 -72.8294,-52.9209 -72.8328,-52.964 -72.8623,-53.0027 -72.9671,-53.0252 -72.9732,-53.0289 -73.0065,-53.0397 -73.0849,-53.0442 -73.1996,-53.0149 -73.3308,-52.9399 -73.1929,-52.8768 -73.1168,-52.8277 -73.2391,-52.8175 -73.4383,-52.7408 -73.3878,-52.7159 -73.2951,-52.7204 -73.2705,-52.7373 -73.1142,-52.7261 -73.1351,-52.695 -73.1387,-52.657 -72.9846,-52.4463 -72.9427,-52.4316 -72.857,-52.4417 -72.8045,-52.4516 -72.7744,-52.4562 -72.8019,-52.433 -72.8968,-52.4205 -72.9279,-52.4177 -72.9574,-52.4193 -73.0333,-52.4283 -73.0596,-52.4453 -73.0449,-52.4988 -73.0534,-52.5177 -73.1486,-52.6083 -73.1864,-52.6092 -73.2103,-52.599 -73.2179,-52.5793 -73.2204,-52.5354 -73.2476,-52.5257 -73.2726,-52.5321 -73.385,-52.5914 -73.4412,-52.6264 -73.4776,-52.6641 -73.4934,-52.684 -73.5752,-52.6606 -73.5651,-52.538 -73.5121,-52.4972 -73.4719,-52.49 -73.4454,-52.4981 -73.4326,-52.4811 -73.4806,-52.4716 -73.4979,-52.4524 -73.549,-52.3615 -73.5482,-52.3315 -73.5326,-52.3125 -73.5033,-52.3175 -73.4742,-52.3203 -73.4482,-52.2674 -73.467,-52.174 -73.528,-52.1086 -73.6066,-52.0366 -73.6229,-52.0097 -73.6156,-51.9768 -73.5876,-51.9627 -73.5617,-51.9804 -73.5458,-52.0171 -73.4263,-52.1319 -73.3956,-52.1342 -73.3487,-52.1115 -73.2292,-52.1591 -73.2056,-52.163 -73.1474,-52.155 -73.1247,-52.1435 -73.0999,-52.0998 -73.0494,-52.0511 -72.9824,-52.029 -72.9093,-52.0065 -72.8713,-52.0098 -72.8679,-52.0808 -72.8712,-52.1266 -72.7957,-52.1885 -72.751,-52.203 -72.7168,-52.1788 -72.6589,-52.0386 -72.6702,-52.0017 -72.7021,-52.022 -72.7335,-52.0751 -72.7316,-52.1004 -72.7601,-52.142 -72.8273,-52.1125 -72.8282,-52.0272 -72.7468,-51.8986 -72.6878,-51.8795 -72.5797,-51.9286 -72.584,-51.985 -72.545,-52.0278 -72.5056,-52.04 -72.4875,-52.051 -72.4392,-52.1096 -72.4197,-52.1393 -72.4604,-52.2605 -72.4945,-52.2848 -72.6259,-52.3179 -72.8129,-52.3902 -72.7832,-52.3974 -72.7048,-52.3797 -72.5194,-52.3346 -72.4655,-52.3131 -72.3759,-52.2558 -72.3534,-52.1428 -72.3678,-52.1212 -72.4353,-52.0705 -72.5348,-51.9905 -72.5525,-51.9048 -72.5199,-51.8859 -72.4047,-51.8973 -72.3789,-51.8894 -72.357,-51.8756 -72.3431,-51.8593 -72.3556,-51.7287 -72.3933,-51.6682 -72.5456,-51.5559 -72.5996,-51.5237 -72.6256,-51.5153 -72.6691,-51.5104 -72.7161,-51.5096 -72.8029,-51.4857 -72.9409,-51.4274 -72.963,-51.4037 -73.003,-51.3836 -73.0461,-51.3883 -73.1287,-51.4029 -73.1564,-51.4234 -73.1429,-51.4411 -73.1038,-51.4512 -73.0794,-51.4466 -73.0403,-51.4287 -72.9522,-51.4452 -72.8652,-51.4749 -72.7384,-51.5448 -72.596,-51.6345 -72.5732,-51.6414 -72.5186,-51.6511 -72.4577,-51.6617 -72.4368,-51.6793 -72.4523,-51.7286 -72.5128,-51.7717 -72.606,-51.7769 -72.6758,-51.7472 -72.7005,-51.7145 -72.865,-51.6684 -73.0644,-51.5761 -73.1279,-51.5501 -73.1696,-51.5533 -73.1123,-51.6495 -73.0791,-51.6622 -73.0406,-51.6674 -73.0132,-51.6666 -72.9785,-51.6559 -72.9428,-51.6697 -72.916,-51.6879 -72.883,-51.7229 -72.9449,-51.7877 -72.9685,-51.7969 -73.0077,-51.8021 -73.076,-51.8161 -72.956,-51.8048 -72.8938,-51.7735 -72.8575,-51.7594 -72.8237,-51.7741 -72.8125,-51.8006 -72.8453,-51.8224 -72.9139,-51.8403 -72.9748,-51.8594 -73.0253,-51.88 -73.0413,-51.9057 -73.069,-52.0337 -73.0915,-52.0325 -73.1252,-52.0263 -73.1598,-51.9722 -73.1778,-51.8607 -73.1852,-51.7518 -73.2053,-51.6657 -73.2206,-51.6417 -73.266,-51.6097 -73.2565,-51.6334 -73.2256,-51.6858 -73.2144,-51.7363 -73.1623,-52.0645 -73.1711,-52.0991 -73.201,-52.1095 -73.2336,-52.0985 -73.4295,-51.9958 -73.4491,-51.9804 -73.4635,-51.9512 -73.4595,-51.9126 -73.4911,-51.8472 -73.5337,-51.7743 -73.4838,-51.7552 -73.4729,-51.7784 -73.3919,-51.8867 -73.316,-51.9636 -73.2838,-51.9567 -73.3613,-51.8513 -73.4715,-51.696 -73.4335,-51.6844 -73.4014,-51.6707 -73.3567,-51.634 -73.501,-51.6593 -73.5851,-51.729 -73.6474,-51.654 -73.6765,-51.5836 -73.7399,-51.5737 -73.7908,-51.5623 -73.8141,-51.3748 -73.81,-51.3509 -73.7904,-51.3177 -73.6989,-51.3356 -73.5959,-51.4096 -73.5683,-51.4496 -73.5166,-51.5298 -73.5035,-51.5738 -73.4902,-51.5684 -73.484,-51.5426 -73.4986,-51.5145 -73.5811,-51.3597 -73.6655,-51.1615 -73.6254,-51.1443 -73.5829,-51.1799 -73.5982,-51.1003 -73.6206,-51.0841 -73.6451,-51.094 -73.7418,-51.1674 -73.7659,-51.1795 -73.7866,-51.1829 -73.9695,-51.1495 -74.0143,-51.127 -74.0383,-51.0144 -74.0988,-50.9872 -74.1216,-50.9754 -74.1336,-50.8686 -74.1097,-50.8432 -74.0668,-50.8226 -74.0251,-50.8121 -73.7954,-50.8117 -73.7726,-50.8218 -73.7383,-50.8577 -73.6675,-50.7318 -73.6689,-50.6299 -73.6395,-50.6031 -73.5533,-50.5863 -73.5212,-50.5861 -73.4639,-50.6108 -73.4505,-50.6421 -73.4212,-50.6553 -73.3908,-50.6109 -73.4519,-50.5719 -73.5001,-50.566 -73.541,-50.558 -73.6077,-50.5093 -73.6107,-50.4869 -73.5921,-50.464 -73.5684,-50.4592 -73.5344,-50.4545 -73.5086,-50.4433 -73.4915,-50.43 -73.4603,-50.346 -73.6458,-50.4632 -73.6616,-50.4848 -73.6872,-50.5483 -73.7148,-50.6331 -73.7067,-50.6575 -73.7003,-50.6862 -73.7106,-50.7048 -73.8157,-50.7694 -73.8346,-50.7761 -73.9304,-50.7692 -74.0066,-50.7126 -74.0479,-50.6471 -74.1201,-50.5447 -74.1766,-50.4218 -74.1017,-50.4052 -74.0104,-50.4276 -73.9847,-50.4391 -73.9626,-50.453 -73.9384,-50.4656 -73.9091,-50.475 -73.7789,-50.4883 -73.8284,-50.4658 -73.8791,-50.4551 -73.9643,-50.4146 -74.0078,-50.3809 -74.1791,-50.371 -74.3612,-50.288 -74.5764,-50.1489 -74.5809,-50.1194 -74.5579,-50.0933 -74.5232,-50.0669 -74.4737,-50.0443 -74.3796,-50.0239 -74.3202,-50.0371 -74.237,-50.0306 -74.1814,-50.0768 -74.1611,-50.1088 -74.0916,-50.1596 -73.852,-50.23 -73.788,-50.2386 -73.77,-50.2388 -73.756,-50.2307 -74.0205,-50.1503 -74.0421,-50.151 -74.0648,-50.1442 -74.0958,-50.1227 -74.2602,-49.9344 -74.2501,-49.8932 -74.2266,-49.87 -74.1578,-49.8757 -74.1108,-49.8852 -74.0626,-49.9195 -74.0139,-49.9543 -73.7793,-50.0169 -73.776,-49.9867 -73.7897,-49.9592 -73.8981,-49.9283 -73.9883,-49.9034 -74.1868,-49.8365 -74.2146,-49.8104 -74.2386,-49.7435 -74.1362,-49.7058 -74.0834,-49.6932 -74.0346,-49.6878 -74.0037,-49.6953 -73.9633,-49.689 -73.9536,-49.6584 -74.0805,-49.6699 -74.1693,-49.6854 -74.1891,-49.6816 -74.2115,-49.6403 -74.2178,-49.5894 -74.2115,-49.5656 -74.1337,-49.5142 -74.0023,-49.4849 -73.9782,-49.4803 -73.8385,-49.5021 -73.821,-49.5238 -73.7992,-49.5807 -73.7721,-49.6103 -73.7357,-49.6223 -73.706,-49.6287 -73.6407,-49.6724 -73.6142,-49.7318 -73.6031,-49.7 -73.6237,-49.6544 -73.6479,-49.6166 -73.6672,-49.605 -73.7136,-49.6026 -73.7427,-49.6003 -73.7684,-49.532 -73.7651,-49.4747 -73.8054,-49.4557 -73.8502,-49.4595 -73.8815,-49.462 -73.9854,-49.4396 -74.0015,-49.4262 -74.0125,-49.3568 -73.9745,-49.2211 -73.9594,-49.206 -73.9285,-49.2065 -73.8926,-49.228 -73.8805,-49.2487 -73.8593,-49.2706 -73.8088,-49.2905 -73.7776,-49.2969 -73.7391,-49.2899 -73.7842,-49.2724 -73.8159,-49.2675 -73.8342,-49.2583 -73.8902,-49.1975 -73.9203,-49.0363 -73.9085,-49.0171 -73.8764,-48.9889 -73.8586,-48.9767 -73.8344,-48.969 -73.8028,-48.9678 -73.7744,-48.9805 -73.7547,-48.995 -73.7198,-48.998 -73.7228,-48.9756 -73.7845,-48.9542 -73.9348,-48.9656 -73.9427,-49.0062 -73.9332,-49.0967 -73.9998,-49.1783 -74.041,-49.2624 -74.0509,-49.3178 -74.0848,-49.454 -74.1064,-49.4752 -74.1297,-49.4776 -74.1552,-49.4662 -74.2643,-49.3707 -74.2875,-49.2852 -74.2898,-49.1051 -74.2871,-48.907 -74.3026,-48.8736 -74.3235,-48.8418 -74.3413,-48.7912 -74.3412,-48.7594 -74.331,-48.7374 -74.2697,-48.6712 -74.2288,-48.6891 -74.1985,-48.6967 -74.1748,-48.6928 -74.1355,-48.6727 -74.1043,-48.6657 -74.0221,-48.6704 -73.9564,-48.6875 -73.9593,-48.6784 -74.0082,-48.6579 -74.0627,-48.6506 -74.0902,-48.6519 -74.1269,-48.6607 -74.1476,-48.6671 -74.1693,-48.673 -74.2056,-48.6712 -74.2632,-48.6211 -74.2894,-48.5558 -74.2443,-48.5128 -74.1457,-48.445 -74.0933,-48.421 -74.0426,-48.4417 -73.9388,-48.4921 -73.9195,-48.4778 -73.9135,-48.3578 -74.0055,-48.3419 -74.0282,-48.3162 -74.0458,-48.3042 -74.0683,-48.3016 -74.1249,-48.2962 -74.0997,-48.2782 -74.0118,-48.2643 -74.1567,-48.2273 -74.2909,-48.146 -74.3815,-48.0758 -74.4751,-48.0297 -74.5126,-48.0293 -74.5384,-48.0215 -74.5491,-47.9745 -74.524,-47.9453 -74.4187,-47.9021 -74.3073,-47.9325 -74.2422,-47.9674 -74.2216,-47.991 -74.2077,-48.0115 -74.1893,-48.0493 -74.1774,-48.1001 -74.1697,-48.1339 -74.1075,-48.1762 -74.077,-48.1701 -74.1536,-48.0432 -74.2152,-47.9694 -74.2206,-47.9499 -74.1949,-47.9401 -74.0915,-47.9374 -73.9687,-47.9407 -73.9432,-47.9526 -73.9122,-47.9783 -73.8556,-47.9925 -73.7509,-47.9915 -73.6652,-47.9745 -73.4867,-48.082 -73.4827,-48.1297 -73.4466,-48.1902 -73.4324,-48.1532 -73.386,-48.1203 -73.3372,-48.1231 -73.3141,-48.129 -73.2882,-48.14 -73.2429,-48.1419 -73.1947,-48.1123 -73.1789,-48.0988 -73.1708,-48.0716 -73.1677,-48.0382 -73.1813,-48.0159 -73.1843,-48.0359 -73.189,-48.07 -73.2082,-48.0885 -73.2488,-48.1095 -73.2687,-48.1126 -73.2948,-48.105 -73.3802,-48.0677 -73.4728,-47.9956 -73.5389,-47.9303 -73.5481,-47.8542 -73.4644,-47.8538 -73.4555,-47.8856 -73.4221,-47.9148 -73.4034,-47.9231 -73.3818,-47.9298 -73.331,-47.9391 -73.1207,-47.9478 -73.1642,-47.9228 -73.2335,-47.9084 -73.2678,-47.9072 -73.2937,-47.9095 -73.3293,-47.9157 -73.3669,-47.9107 -73.4101,-47.8891 -73.6076,-47.7253 -73.6366,-47.6748 -73.6315,-47.6486 -73.6115,-47.6285 -73.5805,-47.6077 -73.5522,-47.5784 -73.5712,-47.5124 -73.6203,-47.4768 -73.6663,-47.5405 -73.6281,-47.5593 -73.6221,-47.5817 -73.6648,-47.7316 -73.6848,-47.7462 -73.7092,-47.757 -73.8277,-47.792 -73.9088,-47.781 -73.928,-47.7741 -73.9535,-47.7322 -73.9848,-47.7284 -74.034,-47.7271 -74.2022,-47.704 -74.2812,-47.6918 -74.367,-47.7083 -74.3917,-47.7187 -74.4402,-47.7243 -74.5115,-47.7171 -74.5389,-47.7101 -74.6064,-47.6865 -74.634,-47.6565 -74.4971,-47.5163 -74.4533,-47.4962 -74.4331,-47.4936 -74.3469,-47.5002 -74.3195,-47.507 -74.265,-47.538 -74.2422,-47.5891 -74.2067,-47.6527 -74.166,-47.685 -74.1307,-47.6973 -74.093,-47.7007 -74.0693,-47.6938 -74.0973,-47.6942 -74.1481,-47.6836 -74.1755,-47.664 -74.1917,-47.6261 -74.1505,-47.5781 -74.0615,-47.5625 -74.0089,-47.5778 -73.9832,-47.5777 -73.9402,-47.5654 -73.9556,-47.4853 -74.0246,-47.5091 -74.0612,-47.5349 -74.1781,-47.5518 -74.1982,-47.5486 -74.4096,-47.3985 -74.4212,-47.3798 -74.3663,-47.3125 -74.2633,-47.242 -74.2405,-47.2113 -74.2265,-47.1892 -74.2134,-47.1658 -74.0875,-47.1519 -74.0665,-47.1598 -74.0564,-47.1877 -74.0549,-47.222 -74.012,-47.2814 -74.035,-47.2193 -74.0351,-47.1939 -74.0256,-47.1603 -74.0131,-47.1441 -73.9401,-47.0955 -73.8326,-46.9806 -73.9094,-46.9281 -73.9315,-46.9215 -73.9544,-46.9203 -73.974,-46.9272 -74.0029,-46.9393 -74.0324,-46.9328 -74.1412,-46.8178 -74.159,-46.7585 -74.1601,-46.7338 -74.2335,-46.7125 -74.5126,-46.7319 -74.5157,-46.7887 -74.4848,-46.7831 -74.4441,-46.7823 -74.3313,-46.8059 -74.3426,-46.8331 -74.3711,-46.8486 -74.3979,-46.8492 -74.4612,-46.8437 -74.5398,-46.8197 -74.781,-46.7407 -74.9018,-46.6985 -74.9688,-46.6049 -74.9715,-46.5758 -74.958,-46.5527 -74.9036,-46.5054 -74.8342,-46.4563 -74.8391,-46.3896 -74.8616,-46.415 -74.8781,-46.4471 -74.9751,-46.5209 -75.0134,-46.5423 -75.0818,-46.5732 -75.2438,-46.6051 -75.285,-46.5991 -75.3246,-46.5966 -75.3975,-46.6122 -75.463,-46.6341 -75.4904,-46.6496 -75.5452,-46.7131 -75.5249,-46.7287 -75.4761,-46.7005 -75.3666,-46.6491 -75.3393,-46.6502 -75.3125,-46.6615 -75.2353,-46.8249 -75.2445,-46.8502 -75.3054,-46.8799 -75.3595,-46.8964 -75.3805,-46.9018 -75.3892,-46.9029 -75.399,-46.9019 -75.46,-46.888 -75.5336,-46.8273 -75.6028,-46.7399 -75.6098,-46.6719 -75.5972,-46.581 -75.5347,-46.5168 -75.5147,-46.514 -75.4906,-46.5155 -75.458,-46.5188 -75.4118,-46.5018 -75.3406,-46.4588 -75.2874,-46.4263 -75.2946,-46.3913 -75.2495,-46.3544 -75.2257,-46.3396 -75.1592,-46.3148 -75.1115,-46.3432 -75.108,-46.2961 -75.093,-46.2475 -74.9817,-46.1626 -74.9401,-46.1598 -74.8502,-46.1628 -74.7158,-46.0598 -74.6832,-46.0041 -74.6184,-45.8709 -74.584,-45.7888 -74.5696,-45.7743 -74.352,-45.7549 -74.2639,-45.74 -74.2302,-45.7481 -74.2109,-45.7829 -74.1589,-45.7581 -74.0515,-45.7463 -74.0319,-45.757 -74.0061,-45.7834 -73.9532,-45.8935 -73.9682,-45.9514 -73.9682,-45.9514 12,-3.0,Chile -73.9682,-45.9514 -73.9805,-45.9986 -73.9953,-46.0275 -74.0185,-46.0578 -74.04,-46.0735 -74.0566,-46.0846 -74.0346,-46.0824 -73.9716,-46.0465 -73.9528,-45.9939 -73.9549,-45.973 -73.9682,-45.9514 -73.9682,-45.9514 414,2.0,Botswana 25.2341,-17.782 25.2115,-17.8348 25.2076,-17.8837 25.211,-17.9042 25.2452,-17.9851 25.2869,-18.0544 25.3358,-18.0901 25.3658,-18.1076 25.4191,-18.1993 25.4487,-18.2536 25.47,-18.3077 25.4756,-18.3303 25.4836,-18.3569 25.4957,-18.3766 25.5708,-18.4588 25.6305,-18.515 25.6879,-18.5705 25.7656,-18.6909 25.839,-18.8226 25.909,-18.8719 25.9246,-18.8924 25.9453,-18.9313 25.9553,-18.9667 25.9553,-18.977 25.9329,-19.0401 25.9329,-19.0834 25.9686,-19.1393 25.9909,-19.1662 26.023,-19.2433 26.0671,-19.3535 26.1201,-19.4843 26.1375,-19.5078 26.1651,-19.5251 26.2115,-19.5498 26.2317,-19.555 26.3248,-19.5947 26.3723,-19.6538 26.5046,-19.7411 26.5363,-19.7628 26.558,-19.7787 26.5636,-19.8051 26.5788,-19.8305 26.6032,-19.8432 26.6634,-19.8553 26.6963,-19.9061 26.9462,-19.9887 27.0466,-20.0039 27.1808,-20.0647 27.1997,-20.0863 27.2496,-20.1983 27.2575,-20.219 27.2658,-20.2886 27.2628,-20.3623 27.2577,-20.4318 27.2543,-20.4718 27.2607,-20.466 27.2979,-20.4488 27.3243,-20.4427 27.3994,-20.4492 27.4831,-20.4531 27.5774,-20.4483 27.6584,-20.4659 27.6819,-20.4869 27.6926,-20.5258 27.6971,-20.7248 27.6932,-20.7685 27.6764,-20.8204 27.6602,-20.8414 27.6562,-20.9109 27.6529,-21.0473 27.6937,-21.1079 27.7138,-21.1281 27.7462,-21.1454 27.8092,-21.2007 27.8657,-21.2844 27.9079,-21.3592 27.9363,-21.4163 27.9735,-21.5214 27.9785,-21.5369 27.9814,-21.5419 28.0145,-21.552 28.1277,-21.5694 28.1683,-21.5723 28.2038,-21.571 28.246,-21.5634 28.316,-21.5783 28.3463,-21.5913 28.3735,-21.6061 28.4277,-21.63 28.4716,-21.6362 28.4914,-21.6236 28.533,-21.6079 28.6114,-21.6252 28.8283,-21.7273 28.8898,-21.7451 28.92,-21.7465 28.9517,-21.7458 29.0368,-21.7848 29.0394,-21.8088 29.0093,-21.8529 29.0004,-21.8783 28.9964,-21.9115 28.9993,-21.9408 29.0105,-21.9692 29.0231,-21.9924 29.0402,-22.0144 29.0583,-22.0289 29.0779,-22.0375 29.1126,-22.0494 29.1455,-22.0558 29.1846,-22.0541 29.2128,-22.0453 29.2318,-22.0528 29.326,-22.152 29.3374,-22.1673 29.2383,-22.1691 29.0359,-22.1956 29.0092,-22.1991 28.9893,-22.2021 28.9253,-22.301 28.9326,-22.3432 28.9291,-22.3634 28.915,-22.3879 28.8988,-22.4139 28.8823,-22.4295 28.7934,-22.4654 28.6029,-22.5364 28.421,-22.5485 28.3217,-22.551 28.2633,-22.5839 28.162,-22.6495 28.1449,-22.6609 28.1331,-22.6779 28.125,-22.698 28.1271,-22.7184 28.1219,-22.7456 28.0751,-22.7804 28.0147,-22.8372 27.9376,-22.9268 27.9094,-23.0054 27.7494,-23.1441 27.6704,-23.1748 27.5698,-23.1928 27.5388,-23.2406 27.5311,-23.2847 27.5232,-23.3221 27.495,-23.3529 27.4681,-23.3576 27.4187,-23.359 27.3731,-23.3607 27.3059,-23.3732 27.1143,-23.4982 27.0651,-23.5626 27.0362,-23.6095 26.997,-23.6272 26.9716,-23.6171 26.9449,-23.6649 26.9255,-23.7251 26.9297,-23.7328 26.8862,-23.9004 26.8469,-24.0605 26.8187,-24.2263 26.7969,-24.2477 26.7544,-24.2679 26.7258,-24.2769 26.693,-24.2834 26.5216,-24.4095 26.4809,-24.4527 26.4606,-24.4836 26.4519,-24.503 26.4446,-24.5269 26.428,-24.5568 26.4072,-24.5785 26.378,-24.6007 26.368,-24.6042 26.357,-24.5998 26.3269,-24.5912 26.2324,-24.6099 26.1348,-24.6361 25.9863,-24.6829 25.8858,-24.7105 25.839,-24.7164 25.8426,-24.7859 25.8396,-24.8772 25.7949,-25.0136 25.7369,-25.1799 25.6523,-25.4068 25.6389,-25.4416 25.5895,-25.522 25.5575,-25.5857 25.5493,-25.5963 25.4773,-25.6487 25.3818,-25.7043 25.3286,-25.7256 25.1431,-25.733 25.1203,-25.733 25.0963,-25.7236 25.0546,-25.7062 25.0011,-25.6996 24.9806,-25.705 24.9218,-25.7422 24.869,-25.7792 24.7699,-25.8032 24.6531,-25.7991 24.6175,-25.7936 24.5907,-25.7831 24.5019,-25.7428 24.4703,-25.7324 24.441,-25.7176 24.4077,-25.7108 24.3679,-25.7317 24.3207,-25.7266 24.2504,-25.6912 24.2123,-25.6472 24.1976,-25.6207 24.1584,-25.5942 24.0847,-25.6053 24.0159,-25.6226 23.9763,-25.6288 23.8714,-25.5958 23.8591,-25.5762 23.8415,-25.5548 23.7063,-25.435 23.6837,-25.4257 23.6402,-25.4072 23.6203,-25.3946 23.5661,-25.3609 23.5009,-25.3088 23.4245,-25.2485 23.2456,-25.2372 23.165,-25.2358 22.9856,-25.2711 22.9432,-25.3088 22.881,-25.3682 22.8009,-25.502 22.7833,-25.5396 22.8008,-25.5854 22.7838,-25.6495 22.7481,-25.683 22.7275,-25.7073 22.7144,-25.7688 22.7161,-25.8191 22.6938,-25.9448 22.6781,-25.9741 22.6347,-25.9857 22.5977,-26.0636 22.596,-26.0823 22.4503,-26.1734 22.3379,-26.2566 22.2209,-26.3116 22.1688,-26.3645 22.1471,-26.4012 22.1299,-26.4627 22.1058,-26.51 22.0284,-26.5946 21.9875,-26.6143 21.9343,-26.6319 21.8636,-26.6389 21.8345,-26.6322 21.7806,-26.6362 21.7419,-26.6539 21.7463,-26.704 21.751,-26.7373 21.7446,-26.7598 21.7224,-26.7884 21.6654,-26.8229 21.6408,-26.8336 21.5854,-26.8305 21.4891,-26.8222 21.4541,-26.8118 21.4327,-26.7993 21.4081,-26.7934 21.3831,-26.7916 21.3504,-26.7913 21.3115,-26.7989 21.2498,-26.8152 21.1507,-26.8321 21.117,-26.8365 21.102,-26.8361 21.0742,-26.8326 20.9857,-26.8173 20.9615,-26.8075 20.9396,-26.7868 20.8973,-26.7684 20.8653,-26.7651 20.8293,-26.7746 20.7969,-26.7873 20.7752,-26.8112 20.7374,-26.831 20.6773,-26.8451 20.6146,-26.7959 20.5924,-26.7375 20.5757,-26.5065 20.577,-26.4867 20.5835,-26.4247 20.597,-26.4092 20.6258,-26.3961 20.6653,-26.3582 20.7181,-26.2911 20.7307,-26.2747 20.77,-26.22 20.8335,-26.1125 20.7836,-25.8517 20.7575,-25.7958 20.7129,-25.734 20.656,-25.6568 20.6527,-25.6079 20.663,-25.5624 20.6237,-25.4507 20.6056,-25.4083 20.5835,-25.3688 20.5105,-25.2697 20.4238,-25.1254 20.3643,-25.0087 20.2364,-24.9036 20.2117,-24.888 20.1406,-24.8582 20.107,-24.8562 20.034,-24.7984 20.0194,-24.7844 19.9764,-24.7377 19.977,-24.6961 19.977,-24.5444 19.976,-24.3789 19.9757,-24.255 19.9749,-23.9238 19.9755,-23.8373 19.9753,-23.7306 19.9753,-23.6207 19.9746,-23.4279 19.974,-23.2826 19.9743,-23.0965 19.974,-22.9448 19.9735,-22.934 19.9731,-22.9176 19.9728,-22.697 19.9732,-22.4745 19.9726,-22.242 19.9715,-22.0626 19.9721,-21.9801 19.9759,-21.9766 20.2836,-21.9765 20.6243,-21.9751 20.892,-21.9734 20.9664,-21.9722 20.967,-21.9447 20.967,-21.9173 20.9672,-21.5729 20.967,-21.2981 20.9669,-20.9952 20.9673,-20.9689 20.9674,-20.8009 20.9678,-20.1562 20.9676,-19.9756 20.968,-19.1504 20.9686,-18.6743 20.9689,-18.4546 20.9684,-18.3178 20.9681,-18.2977 21.2099,-18.2912 21.4364,-18.2838 21.7905,-18.2179 22.2352,-18.1334 22.473,-18.0908 22.61,-18.0664 23.05,-17.9842 23.2591,-17.9761 23.2689,-17.9755 23.2884,-17.995 23.2975,-18.0245 23.302,-18.056 23.3349,-18.1066 23.37,-18.1555 23.4027,-18.1732 23.425,-18.1832 23.4747,-18.2276 23.4914,-18.2464 23.5258,-18.3054 23.5268,-18.3408 23.5356,-18.4163 23.5541,-18.4545 23.5847,-18.4644 23.622,-18.449 23.6906,-18.4045 23.7628,-18.3333 23.8012,-18.2942 23.8151,-18.2692 23.8415,-18.2426 23.858,-18.244 23.8834,-18.2162 23.9382,-18.1643 23.9778,-18.1471 24.2398,-17.993 24.3338,-17.9287 24.359,-17.9254 24.3874,-17.9336 24.4104,-17.9576 24.4224,-17.9787 24.4439,-18.0122 24.4682,-18.0388 24.4947,-18.0394 24.5366,-18.0337 24.6494,-17.9237 24.8027,-17.8176 24.906,-17.7939 24.9427,-17.8008 24.9697,-17.8059 25.036,-17.8119 25.0689,-17.8077 25.1059,-17.7766 25.1492,-17.762 25.2219,-17.7754 25.2341,-17.782 25.2341,-17.782 26,10.0,Australia 146.1129,-18.4731 146.0558,-18.4556 146.0434,-18.4476 146.0378,-18.4376 146.0317,-18.4242 146.0291,-18.4138 146.0272,-18.4018 146.0306,-18.3808 146.0286,-18.3655 146.0244,-18.356 146.0161,-18.3436 145.9807,-18.2988 145.9506,-18.2886 145.9412,-18.2845 145.9342,-18.2775 145.9196,-18.2578 145.9091,-18.2339 145.9379,-18.2254 145.9505,-18.2245 146.0481,-18.2599 146.0924,-18.2878 146.1751,-18.4022 146.1457,-18.4568 146.122,-18.4684 146.1129,-18.4731 146.1129,-18.4731 404,-3.0,Paraguay -58.0879,-20.1452 -58.0851,-20.2059 -58.066,-20.256 -58.0263,-20.3184 -57.9882,-20.3782 -57.9381,-20.4904 -57.9251,-20.5948 -57.897,-20.6867 -57.8651,-20.6483 -57.8382,-20.6532 -57.7887,-20.7112 -57.7858,-20.8149 -57.7437,-20.9551 -57.7817,-21.3174 -57.8081,-21.3563 -57.8445,-21.405 -57.8614,-21.4373 -57.8831,-21.4898 -57.8665,-21.6121 -57.8551,-21.6321 -57.8645,-21.7475 -57.8918,-21.9474 -57.9126,-22.0009 -57.9155,-22.0358 -57.9134,-22.0669 -57.8573,-22.0927 -57.8206,-22.1042 -57.7536,-22.1191 -57.7205,-22.1043 -57.6963,-22.0882 -57.5687,-22.0963 -57.5382,-22.15 -57.3037,-22.1927 -57.2611,-22.1931 -57.1687,-22.1874 -57.1271,-22.182 -57.0827,-22.1787 -56.9184,-22.2077 -56.8072,-22.2489 -56.7383,-22.2396 -56.6992,-22.2228 -56.688,-22.2162 -56.6279,-22.1911 -56.6079,-22.2086 -56.5643,-22.2268 -56.5042,-22.1644 -56.4862,-22.1417 -56.4763,-22.1194 -56.4565,-22.0905 -56.4256,-22.0635 -56.3871,-22.0509 -56.3269,-22.0437 -56.3013,-22.1012 -56.2912,-22.1328 -56.2597,-22.1616 -56.2395,-22.1781 -56.1336,-22.2496 -56.0988,-22.2588 -56.0163,-22.2669 -55.9773,-22.2532 -55.9197,-22.2481 -55.7808,-22.2638 -55.6755,-22.3724 -55.6721,-22.395 -55.6719,-22.4284 -55.6708,-22.4526 -55.6652,-22.5009 -55.6581,-22.5209 -55.6404,-22.5484 -55.6208,-22.5658 -55.5952,-22.5816 -55.5573,-22.5952 -55.5404,-22.6131 -55.5409,-22.7086 -55.5637,-22.7517 -55.5792,-22.7893 -55.576,-22.8323 -55.5374,-22.9943 -55.5146,-23.0593 -55.4802,-23.1112 -55.4803,-23.2809 -55.4743,-23.3069 -55.433,-23.3535 -55.4657,-23.4327 -55.4515,-23.5787 -55.4357,-23.5976 -55.4157,-23.6114 -55.3935,-23.6349 -55.3729,-23.6758 -55.3637,-23.7236 -55.3583,-23.776 -55.3512,-23.8513 -55.3509,-23.8977 -55.3425,-23.9273 -55.3273,-23.9439 -55.3019,-23.9575 -55.2779,-23.9656 -55.1273,-23.9924 -55.1056,-23.9934 -55.0812,-23.9893 -54.9623,-23.9673 -54.8559,-23.9384 -54.8339,-23.922 -54.8127,-23.8941 -54.5574,-23.7779 -54.4712,-23.8206 -54.3391,-23.8898 -54.2203,-23.993 -54.1757,-24.0265 -54.2015,-24.0385 -54.2262,-24.0581 -54.2575,-24.0903 -54.2685,-24.1208 -54.2485,-24.2145 -54.2342,-24.23 -54.2118,-24.2452 -54.1949,-24.2658 -54.1812,-24.3261 -54.2077,-24.3856 -54.2252,-24.4014 -54.2442,-24.4231 -54.2547,-24.4421 -54.2627,-24.465 -54.2657,-24.4907 -54.2529,-24.5272 -54.2432,-24.5751 -54.2468,-24.6002 -54.2563,-24.6343 -54.262,-24.6518 -54.3277,-24.7765 -54.3393,-24.8109 -54.3842,-24.9892 -54.3891,-25.0383 -54.386,-25.0616 -54.3541,-25.1047 -54.3583,-25.1247 -54.436,-25.252 -54.4548,-25.2747 -54.4798,-25.3037 -54.5047,-25.3258 -54.5466,-25.4171 -54.529,-25.4816 -54.5291,-25.5442 -54.5536,-25.6195 -54.5416,-25.7528 -54.5346,-25.9142 -54.5904,-25.947 -54.591,-26.1286 -54.5696,-26.1582 -54.5708,-26.1849 -54.5975,-26.2095 -54.5887,-26.2561 -54.6229,-26.3983 -54.7717,-26.6275 -54.8061,-26.6254 -54.8371,-26.6378 -54.8584,-26.6581 -54.8698,-26.7106 -54.8784,-26.7381 -54.8927,-26.7529 -54.9218,-26.7638 -54.9636,-26.7648 -54.9848,-26.7732 -55.0589,-26.8424 -55.1801,-26.9057 -55.1999,-26.907 -55.308,-26.9359 -55.3296,-26.9436 -55.3463,-26.956 -55.4759,-27.0817 -55.5016,-27.1362 -55.5095,-27.1843 -55.4986,-27.2047 -55.4969,-27.225 -55.513,-27.2862 -55.5284,-27.3112 -55.6596,-27.4058 -55.6859,-27.411 -55.7726,-27.3752 -55.787,-27.3607 -55.7955,-27.3274 -55.8205,-27.3017 -55.8509,-27.2957 -55.8929,-27.3013 -55.9633,-27.2744 -55.9922,-27.2721 -56.0264,-27.2741 -56.0715,-27.2807 -56.1957,-27.3584 -56.1988,-27.3942 -56.1962,-27.4177 -56.2024,-27.4375 -56.2726,-27.5392 -56.2928,-27.5537 -56.3252,-27.5533 -56.3458,-27.5436 -56.3833,-27.5161 -56.4209,-27.4713 -56.4312,-27.4442 -56.4472,-27.4312 -56.4769,-27.4217 -56.5052,-27.4176 -56.5339,-27.4175 -56.5715,-27.423 -56.5998,-27.4304 -56.6233,-27.4432 -56.6329,-27.4526 -56.6581,-27.4742 -56.6933,-27.4709 -56.7192,-27.4589 -56.74,-27.4393 -56.7626,-27.4184 -56.7891,-27.3971 -56.8074,-27.3885 -56.8427,-27.3884 -56.8911,-27.4034 -56.925,-27.4201 -56.9706,-27.4458 -57.0041,-27.4612 -57.0479,-27.4594 -57.0905,-27.4532 -57.1334,-27.441 -57.1635,-27.4286 -57.1954,-27.4113 -57.2229,-27.4002 -57.2496,-27.3948 -57.2709,-27.3951 -57.3391,-27.3869 -57.5427,-27.341 -57.5706,-27.3299 -57.6082,-27.3043 -57.6296,-27.2885 -57.6553,-27.2763 -57.7169,-27.2613 -57.861,-27.245 -57.9362,-27.2394 -58.0815,-27.2383 -58.2145,-27.2431 -58.4044,-27.2553 -58.4302,-27.2579 -58.4535,-27.2626 -58.4853,-27.2705 -58.529,-27.2863 -58.5232,-27.2186 -58.5392,-27.1967 -58.578,-27.1623 -58.5766,-27.1283 -58.5525,-27.1006 -58.5304,-27.0946 -58.5032,-27.0918 -58.396,-26.9567 -58.3192,-26.8777 -58.2776,-26.8549 -58.2414,-26.8426 -58.1067,-26.6261 -58.0937,-26.5702 -58.1081,-26.5413 -58.1425,-26.5113 -58.1352,-26.3905 -58.0873,-26.271 -58.0566,-26.2277 -58.07,-26.1775 -57.9738,-26.0899 -57.9285,-26.0747 -57.786,-25.9686 -57.8167,-25.9448 -57.8267,-25.9258 -57.7799,-25.8752 -57.7316,-25.8041 -57.7368,-25.7441 -57.7188,-25.7376 -57.6749,-25.7062 -57.5032,-25.5205 -57.4802,-25.4395 -57.4829,-25.4115 -57.5148,-25.3866 -57.5585,-25.3579 -57.595,-25.2775 -57.599,-25.2658 -57.6329,-25.2428 -57.6635,-25.2047 -57.6761,-25.1719 -57.6875,-25.1432 -57.7845,-25.0691 -57.8056,-25.0565 -57.8342,-25.0499 -57.8619,-25.0492 -57.9859,-25.0062 -58.0555,-24.9799 -58.108,-24.9472 -58.208,-24.9503 -58.2783,-24.9398 -58.3755,-24.8317 -58.4588,-24.8052 -58.5016,-24.7983 -58.5304,-24.8007 -58.5957,-24.7944 -58.7336,-24.7535 -58.8071,-24.7022 -58.848,-24.67 -58.8643,-24.6577 -58.9154,-24.627 -58.9842,-24.5909 -59.0272,-24.5806 -59.215,-24.4875 -59.2642,-24.4612 -59.282,-24.4437 -59.3083,-24.4076 -59.3958,-24.3272 -59.4588,-24.2882 -59.5952,-24.2064 -59.9074,-24.0155 -59.9629,-23.9827 -59.9913,-23.9893 -60.0124,-23.997 -60.0404,-24.0052 -60.064,-24.0108 -60.0872,-24.0146 -60.2041,-24.0113 -60.3804,-23.962 -60.5013,-23.9195 -60.5162,-23.8919 -60.5379,-23.8674 -60.6562,-23.8453 -60.6846,-23.8456 -60.7991,-23.8229 -60.9099,-23.7947 -60.9342,-23.784 -60.9482,-23.7593 -60.9585,-23.7272 -61.0351,-23.5816 -61.1061,-23.5282 -61.218,-23.4625 -61.2874,-23.4296 -61.3743,-23.3917 -61.5174,-23.2708 -61.556,-23.2574 -61.595,-23.26 -61.6673,-23.2079 -61.6693,-23.1617 -61.6808,-23.1453 -61.7784,-23.0638 -61.812,-23.0482 -61.8419,-23.0424 -61.9135,-22.9797 -61.93,-22.9495 -61.9278,-22.9242 -61.9486,-22.8731 -61.9651,-22.8507 -62.025,-22.7907 -62.0778,-22.7306 -62.1605,-22.5448 -62.1633,-22.5174 -62.1733,-22.4998 -62.208,-22.4706 -62.2388,-22.4554 -62.2641,-22.445 -62.2864,-22.4431 -62.315,-22.4316 -62.4442,-22.3457 -62.5405,-22.2503 -62.5663,-22.214 -62.5567,-22.1967 -62.5238,-22.0954 -62.4475,-21.8589 -62.4093,-21.7403 -62.3981,-21.7037 -62.3936,-21.6895 -62.3011,-21.4023 -62.1827,-21.0332 -62.185,-20.977 -62.1879,-20.7875 -62.1894,-20.719 -62.1916,-20.5986 -62.1936,-20.5391 -62.1231,-20.4481 -62.0261,-20.3145 -61.8376,-20.0573 -61.7723,-19.8885 -61.6992,-19.7023 -61.6672,-19.6227 -61.5939,-19.6111 -61.2824,-19.5609 -60.7223,-19.4681 -60.5396,-19.4372 -60.4426,-19.4127 -60.3508,-19.389 -59.9842,-19.2929 -59.9454,-19.2804 -59.9088,-19.2749 -59.5011,-19.2997 -59.3559,-19.308 -59.0845,-19.3235 -59.0238,-19.3271 -58.7211,-19.4796 -58.4492,-19.6163 -58.197,-19.7417 -58.1611,-19.7603 -58.0802,-19.8086 -58.0605,-19.9636 -58.0622,-20.0596 -58.0665,-20.0937 -58.0879,-20.1452 -58.0879,-20.1452 22,8.0,Australia 115.2282,-20.8573 115.2169,-20.8373 115.1944,-20.8301 115.1695,-20.8524 115.1616,-20.845 115.1577,-20.8333 115.1596,-20.8081 115.1624,-20.7925 115.1721,-20.7776 115.2006,-20.7413 115.2649,-20.6627 115.2871,-20.6467 115.2977,-20.6437 115.3094,-20.6504 115.3237,-20.7186 115.3223,-20.7371 115.3189,-20.7493 115.3144,-20.759 115.2614,-20.8344 115.2374,-20.8525 115.2282,-20.8573 115.2282,-20.8573 15,2.0,Mozambique 35.4088,-21.7629 35.4023,-21.7628 35.3923,-21.7588 35.3846,-21.7517 35.3798,-21.7381 35.3812,-21.7031 35.3926,-21.6307 35.428,-21.5093 35.4398,-21.5008 35.4534,-21.5221 35.4539,-21.5572 35.4513,-21.634 35.4447,-21.6607 35.4088,-21.7629 35.4088,-21.7629 1869,-3.0,Argentina -67.1002,-22.7958 -67.0414,-22.6939 -66.9298,-22.6087 -66.9352,-22.5484 -66.9394,-22.4986 -66.8435,-22.4525 -66.7674,-22.4278 -66.6921,-22.4017 -66.6888,-22.3496 -66.6543,-22.2024 -66.6064,-22.1711 -66.534,-22.1668 -66.4776,-22.1535 -66.4136,-22.1359 -66.3203,-22.109 -66.2637,-22.0916 -66.225,-22.0521 -66.2097,-22.0106 -66.2002,-21.9534 -66.1814,-21.8775 -66.1547,-21.7722 -66.1414,-21.7558 -66.1131,-21.7636 -65.9961,-21.8072 -65.8447,-21.9087 -65.7861,-21.9809 -65.7318,-22.0464 -65.6687,-22.0852 -65.5763,-22.0839 -65.5179,-22.0749 -65.1096,-22.0697 -64.9081,-22.066 -64.8893,-22.0827 -64.6357,-22.1572 -64.6039,-22.1505 -64.5129,-22.188 -64.4673,-22.2354 -64.4604,-22.2616 -64.4464,-22.3838 -64.382,-22.4892 -64.3641,-22.5546 -64.3756,-22.5899 -64.3733,-22.6185 -64.3367,-22.6579 -64.2834,-22.7114 -64.2726,-22.7414 -64.2681,-22.7886 -64.2683,-22.8171 -64.2583,-22.8438 -64.2367,-22.8348 -64.2214,-22.8069 -64.204,-22.7288 -64.2062,-22.7018 -64.2004,-22.6201 -64.1737,-22.5425 -64.1648,-22.5244 -64.1435,-22.4874 -64.12,-22.4697 -64.0934,-22.4451 -64.0475,-22.3848 -63.9794,-22.2248 -63.914,-22.0694 -63.8621,-21.9761 -63.6544,-21.9778 -63.6075,-21.9784 -63.515,-21.9786 -63.0523,-21.9759 -62.8084,-21.9731 -62.7397,-21.9724 -62.7233,-21.9921 -62.7153,-22.034 -62.7155,-22.0687 -62.715,-22.0905 -62.6876,-22.1298 -62.5797,-22.211 -62.5663,-22.214 -62.5405,-22.2503 -62.4442,-22.3457 -62.315,-22.4316 -62.2864,-22.4431 -62.2641,-22.445 -62.2388,-22.4554 -62.208,-22.4706 -62.1733,-22.4998 -62.1633,-22.5174 -62.1605,-22.5448 -62.0778,-22.7306 -62.025,-22.7907 -61.9651,-22.8507 -61.9486,-22.8731 -61.9278,-22.9242 -61.93,-22.9495 -61.9135,-22.9797 -61.8419,-23.0424 -61.812,-23.0482 -61.7784,-23.0638 -61.6808,-23.1453 -61.6693,-23.1617 -61.6673,-23.2079 -61.595,-23.26 -61.556,-23.2574 -61.5174,-23.2708 -61.3743,-23.3917 -61.2874,-23.4296 -61.218,-23.4625 -61.1061,-23.5282 -61.0351,-23.5816 -60.9585,-23.7272 -60.9482,-23.7593 -60.9342,-23.784 -60.9099,-23.7947 -60.7991,-23.8229 -60.6846,-23.8456 -60.6562,-23.8453 -60.5379,-23.8674 -60.5162,-23.8919 -60.5013,-23.9195 -60.3804,-23.962 -60.2041,-24.0113 -60.0872,-24.0146 -60.064,-24.0108 -60.0404,-24.0052 -60.0124,-23.997 -59.9913,-23.9893 -59.9629,-23.9827 -59.9074,-24.0155 -59.5952,-24.2064 -59.4588,-24.2882 -59.3958,-24.3272 -59.3083,-24.4076 -59.282,-24.4437 -59.2642,-24.4612 -59.215,-24.4875 -59.0272,-24.5806 -58.9842,-24.5909 -58.9154,-24.627 -58.8643,-24.6577 -58.848,-24.67 -58.8071,-24.7022 -58.7336,-24.7535 -58.5957,-24.7944 -58.5304,-24.8007 -58.5016,-24.7983 -58.4588,-24.8052 -58.3755,-24.8317 -58.2783,-24.9398 -58.208,-24.9503 -58.108,-24.9472 -58.0555,-24.9799 -57.9859,-25.0062 -57.8619,-25.0492 -57.8342,-25.0499 -57.8056,-25.0565 -57.7845,-25.0691 -57.6875,-25.1432 -57.6761,-25.1719 -57.6635,-25.2047 -57.6329,-25.2428 -57.599,-25.2658 -57.595,-25.2775 -57.5585,-25.3579 -57.5148,-25.3866 -57.4829,-25.4115 -57.4802,-25.4395 -57.5032,-25.5205 -57.6749,-25.7062 -57.7188,-25.7376 -57.7368,-25.7441 -57.7316,-25.8041 -57.7799,-25.8752 -57.8267,-25.9258 -57.8167,-25.9448 -57.786,-25.9686 -57.9285,-26.0747 -57.9738,-26.0899 -58.07,-26.1775 -58.0566,-26.2277 -58.0873,-26.271 -58.1352,-26.3905 -58.1425,-26.5113 -58.1081,-26.5413 -58.0937,-26.5702 -58.1067,-26.6261 -58.2414,-26.8426 -58.2776,-26.8549 -58.3192,-26.8777 -58.396,-26.9567 -58.5032,-27.0918 -58.5304,-27.0946 -58.5525,-27.1006 -58.5766,-27.1283 -58.578,-27.1623 -58.5392,-27.1967 -58.5232,-27.2186 -58.529,-27.2863 -58.4853,-27.2705 -58.4535,-27.2626 -58.4302,-27.2579 -58.4044,-27.2553 -58.2145,-27.2431 -58.0815,-27.2383 -57.9362,-27.2394 -57.861,-27.245 -57.7169,-27.2613 -57.6553,-27.2763 -57.6296,-27.2885 -57.6082,-27.3043 -57.5706,-27.3299 -57.5427,-27.341 -57.3391,-27.3869 -57.2709,-27.3951 -57.2496,-27.3948 -57.2229,-27.4002 -57.1954,-27.4113 -57.1635,-27.4286 -57.1334,-27.441 -57.0905,-27.4532 -57.0479,-27.4594 -57.0041,-27.4612 -56.9706,-27.4458 -56.925,-27.4201 -56.8911,-27.4034 -56.8427,-27.3884 -56.8074,-27.3885 -56.7891,-27.3971 -56.7626,-27.4184 -56.74,-27.4393 -56.7192,-27.4589 -56.6933,-27.4709 -56.6581,-27.4742 -56.6329,-27.4526 -56.6233,-27.4432 -56.5998,-27.4304 -56.5715,-27.423 -56.5339,-27.4175 -56.5052,-27.4176 -56.4769,-27.4217 -56.4472,-27.4312 -56.4312,-27.4442 -56.4209,-27.4713 -56.3833,-27.5161 -56.3458,-27.5436 -56.3252,-27.5533 -56.2928,-27.5537 -56.2726,-27.5392 -56.2024,-27.4375 -56.1962,-27.4177 -56.1988,-27.3942 -56.1957,-27.3584 -56.0715,-27.2807 -56.0264,-27.2741 -55.9922,-27.2721 -55.9633,-27.2744 -55.8929,-27.3013 -55.8509,-27.2957 -55.8205,-27.3017 -55.7955,-27.3274 -55.787,-27.3607 -55.7726,-27.3752 -55.6859,-27.411 -55.6596,-27.4058 -55.5284,-27.3112 -55.513,-27.2862 -55.4969,-27.225 -55.4986,-27.2047 -55.5095,-27.1843 -55.5016,-27.1362 -55.4759,-27.0817 -55.3463,-26.956 -55.3296,-26.9436 -55.308,-26.9359 -55.1999,-26.907 -55.1801,-26.9057 -55.0589,-26.8424 -54.9848,-26.7732 -54.9636,-26.7648 -54.9218,-26.7638 -54.8927,-26.7529 -54.8784,-26.7381 -54.8698,-26.7106 -54.8584,-26.6581 -54.8371,-26.6378 -54.8061,-26.6254 -54.7717,-26.6275 -54.6229,-26.3983 -54.5887,-26.2561 -54.5975,-26.2095 -54.5708,-26.1849 -54.5696,-26.1582 -54.591,-26.1286 -54.5904,-25.947 -54.5346,-25.9142 -54.5416,-25.7528 -54.5536,-25.6195 -54.5291,-25.5442 -54.4767,-25.5413 -54.3993,-25.5916 -54.3827,-25.6042 -54.3144,-25.5518 -54.244,-25.5264 -54.2092,-25.5239 -54.1083,-25.5332 -54.0869,-25.5066 -54.0385,-25.4676 -53.8196,-25.6048 -53.7927,-25.6565 -53.7563,-25.7722 -53.7569,-25.7938 -53.7657,-25.8524 -53.7578,-25.9222 -53.6696,-26.0585 -53.5954,-26.164 -53.5854,-26.1881 -53.581,-26.2204 -53.5815,-26.2333 -53.5852,-26.2478 -53.5999,-26.2803 -53.6222,-26.3053 -53.6429,-26.3344 -53.6406,-26.4814 -53.6568,-26.6268 -53.6665,-26.6659 -53.648,-26.7525 -53.6293,-26.8527 -53.6363,-26.8813 -53.6649,-26.9476 -53.6763,-26.9723 -53.7385,-27.0986 -53.7694,-27.1406 -53.7885,-27.1185 -53.8304,-27.1245 -53.9361,-27.1604 -53.9569,-27.1945 -53.9789,-27.2195 -54.0012,-27.2374 -54.0222,-27.2524 -54.0441,-27.2599 -54.0757,-27.2591 -54.1642,-27.3505 -54.2101,-27.3937 -54.2877,-27.4259 -54.3806,-27.4382 -54.4592,-27.4599 -54.5563,-27.5 -54.6155,-27.5244 -54.7005,-27.5339 -54.7188,-27.5227 -54.7218,-27.5021 -54.743,-27.5046 -54.8275,-27.6392 -54.8309,-27.6798 -54.8373,-27.6989 -54.9504,-27.8025 -54.9925,-27.8142 -55.1084,-27.8248 -55.2496,-27.8908 -55.3026,-27.942 -55.3078,-27.9618 -55.3086,-27.9942 -55.3759,-28.0552 -55.5104,-28.1014 -55.5543,-28.1092 -55.562,-28.127 -55.6067,-28.1636 -55.6374,-28.177 -55.6763,-28.1852 -55.698,-28.2039 -55.6952,-28.2245 -55.6456,-28.2489 -55.6086,-28.2704 -55.5957,-28.3037 -55.6256,-28.3756 -55.6486,-28.3555 -55.6608,-28.3312 -55.7608,-28.3212 -55.7975,-28.3244 -55.8208,-28.3377 -55.9062,-28.4564 -55.9387,-28.529 -55.9936,-28.5937 -56.0974,-28.6959 -56.2028,-28.7442 -56.2226,-28.765 -56.2288,-28.7993 -56.34,-29.0135 -56.3542,-29.0368 -56.4418,-29.06 -56.461,-29.0707 -56.4983,-29.0921 -56.5189,-29.108 -56.5517,-29.1416 -56.5706,-29.1677 -56.5815,-29.1978 -56.5817,-29.2304 -56.6223,-29.3101 -56.7397,-29.4339 -56.8392,-29.5254 -56.9708,-29.6725 -57.002,-29.7046 -57.0297,-29.7285 -57.0705,-29.7428 -57.1205,-29.7439 -57.1535,-29.7471 -57.1832,-29.7579 -57.2057,-29.772 -57.2231,-29.7921 -57.2443,-29.8415 -57.2446,-29.8771 -57.2509,-29.9445 -57.2701,-29.9663 -57.4121,-30.0983 -57.4589,-30.1293 -57.4792,-30.1388 -57.5075,-30.1467 -57.5329,-30.1508 -57.5545,-30.2037 -57.5499,-30.2449 -57.5564,-30.2645 -57.5939,-30.3204 -57.6709,-30.3832 -57.7219,-30.4139 -57.7932,-30.465 -57.8074,-30.4806 -57.8141,-30.5006 -57.8145,-30.5639 -57.7961,-30.5871 -57.7706,-30.6083 -57.7388,-30.679 -57.731,-30.7136 -57.7275,-30.7307 -57.7241,-30.7571 -57.7227,-30.771 -57.7217,-30.8486 -57.7784,-31.0305 -57.8453,-31.2356 -57.9288,-31.3823 -57.9632,-31.3982 -57.9924,-31.4143 -58.0033,-31.4403 -57.9895,-31.4587 -57.9601,-31.4719 -57.9372,-31.4881 -57.9142,-31.513 -57.9024,-31.5455 -57.9058,-31.584 -57.9644,-31.7532 -57.9878,-31.7766 -58.022,-31.7911 -58.0632,-31.7986 -58.0863,-31.8051 -58.1086,-31.8246 -58.1241,-31.8589 -58.0846,-31.9152 -58.07,-31.9572 -58.0754,-32.0301 -58.0855,-32.0649 -58.1027,-32.0902 -58.1065,-32.1208 -58.087,-32.1605 -58.0642,-32.1852 -58.026,-32.2182 -58.0218,-32.2584 -58.0257,-32.2894 -58.0595,-32.3179 -58.0745,-32.3334 -58.1011,-32.3676 -58.1235,-32.4139 -58.1369,-32.4276 -58.1454,-32.45 -58.149,-32.485 -58.1481,-32.5349 -58.1227,-32.6687 -58.0923,-32.8222 -58.0749,-32.9072 -58.0709,-33.0083 -58.0791,-33.0296 -58.0935,-33.0441 -58.1122,-33.0538 -58.1458,-33.0579 -58.1686,-33.0561 -58.1897,-33.0518 -58.2913,-33.044 -58.3269,-33.0439 -58.3496,-33.06 -58.3505,-33.2245 -58.3795,-33.2979 -58.396,-33.3158 -58.431,-33.3716 -58.4494,-33.4477 -58.4556,-33.4792 -58.4731,-33.6225 -58.4734,-33.6482 -58.4707,-33.6983 -58.456,-33.7333 -58.4127,-33.7894 -58.3904,-33.8105 -58.3644,-33.9424 -58.3723,-33.9722 -58.3483,-33.9818 -58.3211,-33.9947 -58.3093,-34.012 -58.3015,-34.1476 -58.336,-34.196 -58.3583,-34.2233 -58.3993,-34.2432 -58.4229,-34.2881 -58.4174,-34.3582 -58.4,-34.45 -58.3935,-34.5009 -58.387,-34.509 -58.3516,-34.5338 -58.3242,-34.5377 -58.2939,-34.5476 -58.2704,-34.5948 -58.2502,-34.619 -58.1552,-34.678 -58.0884,-34.7086 -58.0543,-34.7166 -58.002,-34.7318 -57.9354,-34.7522 -57.7798,-34.8117 -57.7208,-34.8397 -57.422,-35.0077 -57.261,-35.1159 -57.2384,-35.1383 -57.1142,-35.2809 -57.0612,-35.3589 -57.0486,-35.3838 -57.0556,-35.4304 -57.0678,-35.449 -57.1046,-35.4994 -57.1587,-35.549 -57.2353,-35.648 -57.2805,-35.709 -57.3014,-35.741 -57.3085,-35.7608 -57.3131,-35.7905 -57.3128,-35.866 -57.3102,-35.8899 -57.3019,-35.9222 -57.2909,-35.9463 -57.2358,-36.0541 -57.1672,-36.1374 -57.1454,-36.1578 -57.0714,-36.2152 -57.0304,-36.2443 -56.9786,-36.2733 -56.859,-36.3277 -56.8286,-36.3237 -56.7977,-36.308 -56.696,-36.2642 -56.6711,-36.2751 -56.6242,-36.3682 -56.6194,-36.3904 -56.5968,-36.5404 -56.5861,-36.8319 -56.5886,-36.8588 -56.604,-36.882 -56.6292,-36.9106 -56.6484,-36.9295 -56.6636,-36.9453 -56.7463,-37.0409 -56.8707,-37.2091 -56.9508,-37.3286 -56.9582,-37.3478 -57.0075,-37.4104 -57.0445,-37.4506 -57.1088,-37.5177 -57.1351,-37.5383 -57.1798,-37.5713 -57.1977,-37.5842 -57.2543,-37.6311 -57.3357,-37.7125 -57.4078,-37.7876 -57.4254,-37.8166 -57.4396,-37.8421 -57.449,-37.871 -57.4554,-37.8948 -57.4644,-37.9466 -57.4496,-37.9827 -57.457,-38.0431 -57.4755,-38.0707 -57.5015,-38.0954 -57.5494,-38.13 -57.5686,-38.1426 -57.5976,-38.1606 -57.7594,-38.25 -58.0839,-38.3918 -58.1117,-38.4035 -58.2232,-38.4417 -58.579,-38.5312 -58.6884,-38.5562 -58.7148,-38.5655 -58.953,-38.6469 -58.9859,-38.6537 -59.0208,-38.6582 -59.0926,-38.6659 -59.188,-38.6814 -59.4152,-38.7232 -59.5928,-38.76 -59.7097,-38.7932 -59.8077,-38.7982 -59.8287,-38.8005 -60.1103,-38.8426 -60.386,-38.8842 -60.6198,-38.9097 -60.7421,-38.9286 -60.7782,-38.9325 -61.0123,-38.9519 -61.0801,-38.9548 -61.1124,-38.9535 -61.2288,-38.9478 -61.2776,-38.9386 -61.3083,-38.9365 -61.3407,-38.94 -61.3708,-38.9461 -61.4225,-38.965 -61.4576,-38.9693 -61.5516,-38.9614 -61.7349,-38.9421 -61.7582,-38.9376 -61.8946,-38.9104 -61.9401,-38.8992 -62.0054,-38.872 -62.0211,-38.8432 -62.0295,-38.8204 -62.1251,-38.7726 -62.2681,-38.7462 -62.3014,-38.759 -62.3117,-38.7763 -62.2982,-38.8152 -62.2831,-38.8369 -62.241,-38.8801 -62.1954,-38.9119 -62.2317,-38.9924 -62.2533,-39.0346 -62.2657,-39.1232 -62.2434,-39.2156 -62.2012,-39.2266 -62.1652,-39.2315 -62.1409,-39.2321 -62.0821,-39.242 -61.9889,-39.2828 -61.9406,-39.3212 -61.9408,-39.3431 -61.9727,-39.3671 -62.0519,-39.3265 -62.0808,-39.3041 -62.094,-39.2843 -62.1076,-39.2649 -62.1751,-39.272 -62.191,-39.294 -62.0627,-39.3889 -61.9847,-39.4639 -62.0095,-39.5972 -62.0229,-39.6734 -62.0258,-39.6991 -62.0283,-39.7374 -62.0327,-39.792 -62.0886,-39.8156 -62.1777,-39.8004 -62.2244,-39.8473 -62.2568,-39.969 -62.257,-40.0575 -62.2528,-40.0791 -62.2666,-40.1333 -62.2837,-40.1636 -62.3019,-40.1771 -62.3375,-40.1875 -62.3897,-40.2322 -62.4031,-40.2568 -62.3572,-40.3714 -62.3359,-40.4123 -62.2113,-40.5109 -62.1815,-40.5116 -62.162,-40.5553 -62.1777,-40.5861 -62.223,-40.5847 -62.2509,-40.561 -62.2528,-40.6251 -62.2411,-40.6322 -62.1745,-40.5994 -62.1102,-40.5825 -62.1147,-40.6035 -62.1405,-40.6155 -62.1938,-40.735 -62.2353,-40.8191 -62.3044,-40.8554 -62.3243,-40.8633 -62.5085,-40.9385 -62.6405,-41.0001 -62.6669,-41.0019 -62.6852,-41.0007 -62.8591,-41.061 -62.9123,-41.0799 -62.9286,-41.0921 -62.9495,-41.1026 -62.9744,-41.1069 -63.0322,-41.1122 -63.0551,-41.114 -63.2794,-41.1152 -63.3519,-41.1119 -63.476,-41.1151 -63.5905,-41.1195 -63.6141,-41.1196 -63.6871,-41.118 -63.7196,-41.1125 -63.7517,-41.1005 -63.7872,-41.0825 -63.8211,-41.0552 -63.8425,-41.0374 -63.8701,-41.0197 -63.9052,-41.0064 -63.9756,-40.9894 -64.0608,-40.9732 -64.211,-40.9132 -64.3977,-40.8522 -64.4213,-40.8477 -64.4428,-40.8414 -64.6338,-40.7858 -64.6601,-40.7527 -64.6889,-40.6849 -64.7154,-40.6757 -64.7959,-40.6624 -64.8205,-40.6607 -64.8482,-40.6647 -64.8944,-40.6776 -65.0406,-40.7978 -65.077,-40.8852 -65.0899,-40.944 -65.0778,-41.0444 -65.0722,-41.0674 -65.043,-41.1794 -64.9766,-41.3933 -64.9557,-41.4191 -64.935,-41.434 -64.9144,-41.4458 -64.902,-41.4702 -64.9063,-41.5132 -64.9106,-41.5332 -64.9253,-41.5638 -64.9374,-41.5935 -64.9383,-41.6383 -64.9309,-41.6711 -64.9218,-41.6925 -64.9045,-41.7208 -64.9182,-41.7649 -64.933,-41.7943 -64.9469,-41.8179 -64.9821,-41.8792 -64.9896,-41.91 -64.9861,-41.9345 -64.9722,-41.9625 -64.9237,-42.0445 -64.904,-42.0644 -64.8729,-42.0894 -64.8445,-42.1091 -64.7871,-42.1415 -64.6479,-42.1804 -64.5143,-42.2088 -64.4934,-42.2093 -64.4494,-42.198 -64.4107,-42.2028 -64.3749,-42.2178 -64.3902,-42.236 -64.4179,-42.2535 -64.4442,-42.275 -64.4625,-42.2961 -64.5114,-42.3592 -64.5055,-42.3863 -64.3623,-42.3978 -64.0464,-42.388 -64.0245,-42.3833 -63.9737,-42.3485 -63.9583,-42.3295 -63.956,-42.2626 -63.9743,-42.2306 -63.9948,-42.2186 -64.0216,-42.212 -64.0533,-42.2088 -64.1337,-42.211 -64.1594,-42.2135 -64.204,-42.2141 -64.2389,-42.1982 -64.207,-42.1818 -64.0724,-42.1623 -63.925,-42.1177 -63.8096,-42.064 -63.7835,-42.0546 -63.7599,-42.051 -63.6848,-42.0423 -63.6626,-42.0422 -63.6443,-42.0523 -63.6083,-42.1166 -63.5966,-42.1433 -63.5841,-42.1694 -63.5634,-42.1957 -63.5283,-42.2246 -63.5158,-42.2433 -63.5064,-42.261 -63.4988,-42.2836 -63.4908,-42.5666 -63.54,-42.7164 -63.5958,-42.7673 -63.6286,-42.7767 -63.6627,-42.7804 -63.7494,-42.7946 -63.9746,-42.8372 -64.0091,-42.84 -64.0478,-42.8242 -64.1587,-42.7265 -64.1613,-42.7013 -64.1359,-42.643 -64.1096,-42.5968 -64.2274,-42.5026 -64.2459,-42.4922 -64.3085,-42.4675 -64.3647,-42.459 -64.405,-42.4593 -64.4327,-42.4601 -64.5285,-42.4709 -64.6445,-42.511 -64.6652,-42.5319 -64.6883,-42.5562 -64.7307,-42.5802 -64.7497,-42.587 -64.7858,-42.5886 -64.8385,-42.5991 -64.8636,-42.6127 -64.9284,-42.6954 -64.9187,-42.7297 -64.899,-42.7459 -64.8501,-42.7535 -64.7155,-42.7927 -64.6398,-42.8256 -64.5881,-42.8592 -64.5665,-42.8709 -64.5376,-42.8836 -64.5041,-42.8923 -64.3245,-42.9288 -64.3002,-42.9264 -64.2642,-42.9144 -64.2323,-42.9032 -64.2068,-42.9422 -64.2749,-42.982 -64.3022,-42.9965 -64.437,-43.0448 -64.5015,-43.0677 -64.614,-43.0842 -64.6789,-43.1 -64.71,-43.1121 -64.7411,-43.1275 -64.8394,-43.1865 -64.943,-43.2621 -64.9525,-43.2802 -65.0414,-43.4098 -65.1642,-43.523 -65.1927,-43.5566 -65.2355,-43.612 -65.245,-43.6669 -65.2431,-43.6904 -65.2247,-43.7774 -65.2065,-43.8021 -65.1926,-43.8272 -65.1798,-43.8599 -65.167,-43.9198 -65.1397,-43.9114 -65.1187,-43.9079 -65.1373,-44.0609 -65.164,-44.0697 -65.2019,-44.081 -65.2208,-44.1367 -65.2172,-44.1572 -65.1778,-44.2353 -65.1579,-44.2626 -65.231,-44.3546 -65.2475,-44.3768 -65.2957,-44.4708 -65.5047,-44.5659 -65.5324,-44.5843 -65.5475,-44.5977 -65.5967,-44.661 -65.6268,-44.7251 -65.6284,-44.7546 -65.6204,-44.7785 -65.5765,-44.8006 -65.5562,-44.8024 -65.5357,-44.8039 -65.4452,-44.8411 -65.5192,-44.9693 -65.5963,-44.9911 -65.6327,-44.9734 -65.6572,-44.9598 -65.75,-44.9353 -66.0188,-44.91 -66.0899,-44.9134 -66.2608,-44.9806 -66.4244,-45.0327 -66.4396,-45.0603 -66.4733,-45.1059 -66.5923,-45.1468 -66.7357,-45.1572 -66.7595,-45.1608 -66.8525,-45.2023 -66.8965,-45.2301 -66.9438,-45.2855 -67.007,-45.3699 -67.0873,-45.4746 -67.1031,-45.4878 -67.1562,-45.519 -67.1786,-45.5308 -67.2037,-45.5444 -67.2243,-45.5676 -67.2349,-45.591 -67.2862,-45.743 -67.3223,-45.7659 -67.4417,-45.8762 -67.4891,-45.9478 -67.5224,-46.0188 -67.5248,-46.0773 -67.523,-46.1242 -67.5135,-46.159 -67.4861,-46.2505 -67.4778,-46.2725 -67.4379,-46.3693 -67.4068,-46.4092 -67.3504,-46.4715 -67.3092,-46.5143 -67.2617,-46.5575 -67.2424,-46.572 -67.1129,-46.6446 -67.0837,-46.6552 -67.0041,-46.7046 -66.8584,-46.8166 -66.7233,-46.9352 -66.6396,-46.9781 -66.6142,-46.988 -66.5737,-46.9948 -66.5464,-46.9965 -66.5264,-46.9961 -66.4817,-46.9925 -66.4112,-46.9919 -66.2753,-47.0075 -66.2565,-47.0241 -66.1147,-47.0397 -66.0061,-47.0376 -65.9596,-47.0204 -65.9192,-47.013 -65.895,-47.0134 -65.8004,-47.0477 -65.6811,-47.1412 -65.6385,-47.2762 -65.6383,-47.2966 -65.6413,-47.3347 -65.6502,-47.4058 -65.6608,-47.4819 -65.6904,-47.5569 -65.7754,-47.7008 -65.7931,-47.7114 -65.836,-47.7128 -65.874,-47.7039 -65.9067,-47.7026 -65.9346,-47.7079 -65.9539,-47.7163 -65.9705,-47.7294 -65.9956,-47.7504 -66.0187,-47.7624 -66.075,-47.7682 -66.1336,-47.7854 -66.1482,-47.8051 -66.1162,-47.789 -66.0865,-47.7842 -66.0317,-47.7807 -65.9849,-47.7644 -65.8822,-47.73 -65.8619,-47.7313 -65.8097,-47.7545 -65.6933,-47.878 -65.6947,-47.9107 -65.7333,-47.9174 -65.7576,-47.91 -65.7889,-47.8969 -65.8177,-47.8911 -65.8722,-47.9067 -65.8508,-47.9945 -65.8688,-48.0376 -65.9714,-48.045 -66.1855,-48.1887 -66.2392,-48.2281 -66.314,-48.2857 -66.3706,-48.3422 -66.4531,-48.3523 -66.5427,-48.376 -66.5676,-48.3846 -66.5913,-48.4002 -66.6542,-48.4554 -66.7284,-48.5141 -66.7825,-48.5219 -66.8155,-48.5276 -66.8404,-48.5336 -66.869,-48.5422 -66.9655,-48.5753 -66.9908,-48.586 -67.0266,-48.6141 -67.1068,-48.7084 -67.1462,-48.7671 -67.1864,-48.7783 -67.2145,-48.7875 -67.2394,-48.7991 -67.306,-48.8378 -67.3879,-48.9077 -67.4054,-48.9236 -67.4094,-48.9277 -67.42,-48.9345 -67.4615,-48.9624 -67.4868,-48.984 -67.5391,-49.0616 -67.5288,-49.0854 -67.5149,-49.1145 -67.5787,-49.1875 -67.6267,-49.2274 -67.6687,-49.2599 -67.6911,-49.273 -67.7279,-49.3296 -67.6226,-49.3216 -67.598,-49.295 -67.5885,-49.2666 -67.5513,-49.2034 -67.5261,-49.1959 -67.5065,-49.2073 -67.557,-49.3706 -67.5899,-49.4657 -67.6191,-49.5745 -67.6289,-49.65 -67.6371,-49.7 -67.6463,-49.7352 -67.6528,-49.7583 -67.6652,-49.7985 -67.6741,-49.8204 -67.6875,-49.8466 -67.7094,-49.8671 -67.775,-49.9144 -67.7964,-49.9283 -67.824,-49.9445 -67.8719,-49.972 -67.9035,-49.9894 -67.94,-50.0069 -67.9592,-50.0154 -68.0753,-50.0513 -68.0978,-50.0571 -68.1409,-50.0641 -68.1708,-50.0652 -68.1922,-50.0652 -68.2286,-50.0625 -68.321,-50.0101 -68.4047,-49.9208 -68.4904,-49.8708 -68.504,-49.8917 -68.5899,-49.9169 -68.6271,-49.9148 -68.731,-49.9105 -68.7517,-49.9113 -68.8437,-49.927 -68.8638,-49.9312 -68.9002,-49.9519 -68.8063,-49.9454 -68.7805,-49.9345 -68.7416,-49.9249 -68.7117,-49.9254 -68.6799,-49.9321 -68.5662,-49.9346 -68.5441,-49.9316 -68.5157,-49.9223 -68.4831,-49.9228 -68.4509,-49.9399 -68.4337,-49.9669 -68.4201,-49.9996 -68.4059,-50.0149 -68.385,-50.0262 -68.367,-50.0351 -68.3155,-50.0571 -68.2752,-50.0748 -68.2701,-50.0972 -68.2938,-50.1231 -68.3204,-50.137 -68.3418,-50.1439 -68.3719,-50.1521 -68.4444,-50.1682 -68.5466,-50.1919 -68.5688,-50.1989 -68.668,-50.2311 -68.7166,-50.2478 -68.7483,-50.2623 -68.7706,-50.2752 -68.8367,-50.3295 -68.8544,-50.3458 -68.9628,-50.4637 -68.9759,-50.4828 -68.9976,-50.5351 -69.0403,-50.685 -69.0397,-50.7449 -69.0325,-50.8015 -69.038,-50.8226 -69.0664,-50.8496 -69.1406,-50.9057 -69.2052,-50.9416 -69.2273,-50.9553 -69.2716,-50.9889 -69.2991,-51.0201 -69.2599,-50.9932 -69.196,-50.951 -69.0863,-50.9075 -69.057,-50.9463 -69.0374,-50.9868 -69.0366,-51.0181 -69.0389,-51.0482 -69.0349,-51.0728 -69.0256,-51.0977 -68.951,-51.2662 -68.9408,-51.287 -68.9011,-51.3587 -68.884,-51.3892 -68.8707,-51.4119 -68.8572,-51.4445 -68.846,-51.4798 -68.8629,-51.5126 -68.8885,-51.5125 -68.9072,-51.5033 -68.947,-51.5077 -68.9709,-51.5168 -69.0232,-51.5499 -69.0474,-51.5473 -69.0982,-51.534 -69.1884,-51.4978 -69.2667,-51.4964 -69.3718,-51.5163 -69.5011,-51.564 -69.441,-51.5582 -69.4174,-51.5524 -69.3877,-51.5433 -69.2797,-51.5319 -69.2387,-51.5345 -69.1494,-51.5495 -69.0714,-51.574 -68.9061,-51.5568 -68.8825,-51.5644 -68.815,-51.641 -68.7581,-51.7222 -68.7023,-51.8117 -68.6837,-51.8385 -68.6633,-51.8634 -68.5794,-51.9614 -68.5572,-51.9836 -68.5055,-52.035 -68.4875,-52.0513 -68.4647,-52.0685 -68.4052,-52.1111 -68.3317,-52.1835 -68.2992,-52.2227 -68.2742,-52.2662 -68.3123,-52.3113 -68.3331,-52.3165 -68.3274,-52.2676 -68.4668,-52.2442 -68.5397,-52.2361 -68.6184,-52.229 -68.7196,-52.2187 -68.7707,-52.195 -68.8266,-52.1698 -68.8821,-52.1451 -68.9236,-52.1338 -69.1244,-52.0826 -69.1779,-52.0831 -69.3515,-52.083 -69.6557,-51.9998 -69.7778,-51.9654 -69.833,-51.9502 -69.8884,-51.9356 -69.9566,-51.9356 -69.9998,-51.9358 -70.324,-51.9367 -70.5511,-51.9367 -71.1214,-51.9369 -71.5816,-51.9363 -71.7973,-51.9351 -71.8293,-51.8537 -71.8297,-51.8207 -71.847,-51.7943 -71.9749,-51.7042 -72.0227,-51.6797 -72.0482,-51.6681 -72.0689,-51.6596 -72.0959,-51.6521 -72.1457,-51.6469 -72.1763,-51.6362 -72.2882,-51.4537 -72.257,-51.439 -72.2352,-51.4249 -72.1978,-51.3393 -72.2013,-51.2996 -72.1997,-51.2516 -72.1807,-51.225 -72.1513,-51.2054 -72.1382,-51.1781 -72.179,-51.1449 -72.2151,-51.1325 -72.2406,-51.1203 -72.2646,-51.0994 -72.2838,-51.0486 -72.223,-50.9749 -72.1708,-50.971 -72.155,-50.9515 -72.1323,-50.7955 -72.1438,-50.7726 -72.1699,-50.7416 -72.1924,-50.7215 -72.2239,-50.6972 -72.2285,-50.6728 -72.1902,-50.6185 -72.1839,-50.594 -72.2602,-50.5557 -72.3812,-50.5442 -72.4081,-50.5473 -72.4326,-50.555 -72.4543,-50.5725 -72.4766,-50.6011 -72.4964,-50.6102 -72.5288,-50.6131 -72.5606,-50.6052 -72.5805,-50.5937 -72.5981,-50.5786 -72.6263,-50.5622 -72.6555,-50.562 -72.7622,-50.5955 -72.795,-50.6088 -72.8149,-50.6202 -72.8458,-50.6473 -72.8728,-50.671 -72.9066,-50.6906 -72.9409,-50.7029 -72.9721,-50.7096 -72.9974,-50.7135 -73.0254,-50.7108 -73.0467,-50.7001 -73.0651,-50.6809 -73.1176,-50.5392 -73.1383,-50.4418 -73.1557,-50.2972 -73.1668,-50.2703 -73.207,-50.2088 -73.2214,-50.1912 -73.2386,-50.1782 -73.3258,-50.1331 -73.3748,-50.1089 -73.4117,-50.0905 -73.4258,-50.062 -73.4144,-50.0296 -73.3912,-49.9986 -73.3644,-49.9742 -73.3605,-49.9439 -73.3807,-49.9259 -73.4055,-49.9108 -73.4451,-49.8829 -73.42,-49.7953 -73.3926,-49.7738 -73.357,-49.752 -73.3377,-49.7334 -73.4066,-49.548 -73.4603,-49.5022 -73.4736,-49.4837 -73.4316,-49.3861 -73.3566,-49.2547 -73.3151,-49.2529 -73.0606,-49.2477 -73.0285,-49.2475 -72.9791,-49.2107 -73.0602,-49.1959 -73.067,-49.186 -73.0693,-49.1652 -72.9701,-49.0114 -72.8996,-48.9417 -72.8755,-48.9219 -72.845,-48.9082 -72.8091,-48.8979 -72.7891,-48.8944 -72.7497,-48.8957 -72.7041,-48.8896 -72.6748,-48.8815 -72.6488,-48.8718 -72.6306,-48.8633 -72.6025,-48.8474 -72.4807,-48.7684 -72.4551,-48.7431 -72.4462,-48.7206 -72.4463,-48.6752 -72.4502,-48.6382 -72.4554,-48.5955 -72.4681,-48.5315 -72.474,-48.509 -72.485,-48.4778 -72.4983,-48.4383 -72.4899,-48.4172 -72.4725,-48.4012 -72.4515,-48.3912 -72.3855,-48.3672 -72.3211,-48.3495 -72.1871,-48.2922 -72.1954,-48.1349 -72.2175,-48.0232 -72.3024,-47.9532 -72.3452,-47.9461 -72.3738,-47.9335 -72.4103,-47.9059 -72.4267,-47.8862 -72.4304,-47.8603 -72.3516,-47.7084 -72.3246,-47.6662 -72.3,-47.6372 -72.2701,-47.6051 -72.2489,-47.5818 -72.2357,-47.563 -72.2255,-47.5413 -72.2045,-47.4508 -72.2377,-47.4356 -72.2553,-47.4236 -72.2465,-47.3955 -72.2317,-47.381 -72.2101,-47.3717 -72.1895,-47.3654 -72.1528,-47.3566 -72.1264,-47.3562 -72.0906,-47.3643 -72.0557,-47.3565 -71.978,-47.2986 -71.9141,-47.2231 -71.78,-47.1785 -71.7652,-47.1643 -71.7495,-47.1186 -71.76,-47.0855 -71.7899,-47.0616 -71.8735,-46.9806 -71.8368,-46.7624 -71.8148,-46.7463 -71.7479,-46.7431 -71.7115,-46.7324 -71.5846,-46.6491 -71.571,-46.6303 -71.5646,-46.5992 -71.5687,-46.4852 -71.5883,-46.4373 -71.6232,-46.3775 -71.6394,-46.2185 -71.6449,-46.1942 -71.6656,-46.1686 -71.699,-46.1567 -71.7332,-46.148 -71.8002,-46.0962 -71.7494,-46.0797 -71.7226,-46.0776 -71.6917,-46.0726 -71.6644,-46.0642 -71.6395,-46.0438 -71.6196,-46.0155 -71.5986,-45.9918 -71.5646,-45.9599 -71.5437,-45.9468 -71.5374,-45.9443 -71.5034,-45.9244 -71.5283,-45.8509 -71.5487,-45.831 -71.5935,-45.8166 -71.6234,-45.8095 -71.6528,-45.7967 -71.6911,-45.6768 -71.6811,-45.6027 -71.6497,-45.5066 -71.6118,-45.4869 -71.5718,-45.4756 -71.549,-45.472 -71.5286,-45.4694 -71.5055,-45.4704 -71.3672,-45.4254 -71.1987,-45.2533 -71.2296,-45.1797 -71.398,-45.0242 -71.4486,-44.9477 -71.4819,-44.9241 -71.6401,-44.8859 -71.7058,-44.8795 -71.8334,-44.871 -71.9657,-44.8507 -71.9807,-44.7362 -71.974,-44.7153 -71.946,-44.7031 -71.9182,-44.708 -71.8929,-44.7183 -71.8731,-44.7253 -71.8504,-44.7319 -71.7401,-44.7415 -71.7127,-44.7339 -71.6941,-44.7121 -71.6704,-44.7044 -71.6137,-44.7131 -71.5927,-44.7192 -71.5728,-44.7263 -71.5529,-44.7317 -71.5284,-44.7289 -71.508,-44.7235 -71.4552,-44.7034 -71.4178,-44.6931 -71.3914,-44.6929 -71.371,-44.696 -71.3426,-44.7105 -71.2956,-44.7361 -71.2694,-44.7453 -71.2393,-44.7522 -71.2054,-44.7527 -71.1776,-44.7472 -71.126,-44.6958 -71.1204,-44.6661 -71.1274,-44.6376 -71.1319,-44.6125 -71.0899,-44.541 -71.0451,-44.5358 -71.022,-44.5179 -71.009,-44.4846 -71.062,-44.4006 -71.0957,-44.3796 -71.301,-44.3498 -71.3805,-44.3521 -71.4451,-44.3591 -71.5258,-44.3595 -71.6781,-44.3573 -71.7271,-44.3497 -71.7527,-44.3221 -71.7423,-44.3017 -71.6966,-44.2779 -71.6933,-44.1654 -71.6997,-44.1398 -71.7174,-44.112 -71.6787,-44.0338 -71.6462,-44.0089 -71.5553,-43.9063 -71.5466,-43.8881 -71.5482,-43.8664 -71.5981,-43.8169 -71.6559,-43.7694 -71.7073,-43.7134 -71.7069,-43.6847 -71.6858,-43.6762 -71.6662,-43.6702 -71.6026,-43.6394 -71.5904,-43.6167 -71.6014,-43.5519 -71.7484,-43.4511 -71.8352,-43.4038 -71.8293,-43.3376 -71.7953,-43.2762 -71.6952,-43.2516 -71.6588,-43.2581 -71.6399,-43.2485 -71.6333,-43.2293 -71.6396,-43.127 -71.7355,-43.0838 -71.7677,-43.0775 -71.8308,-43.0733 -71.8587,-43.072 -71.8991,-43.0729 -71.9522,-43.0556 -71.9778,-43.0398 -72.0175,-42.9902 -72.0364,-42.957 -72.033,-42.9072 -72.026,-42.8877 -72.0133,-42.8654 -72.0042,-42.833 -72.0015,-42.8059 -72.0071,-42.7119 -72.0104,-42.6722 -72.028,-42.6203 -72.0388,-42.5425 -72.0347,-42.5209 -72.026,-42.499 -72.0112,-42.4786 -71.9447,-42.3209 -71.9567,-42.3012 -71.9818,-42.2851 -72.0088,-42.2677 -72.0304,-42.2373 -71.9384,-42.1014 -71.9177,-42.0861 -71.8939,-42.0766 -71.8621,-42.0815 -71.8483,-42.0989 -71.8382,-42.1243 -71.8075,-42.1283 -71.6779,-42.0827 -71.6271,-42.0473 -71.6321,-41.9818 -71.6606,-41.9521 -71.6642,-41.8987 -71.6784,-41.8398 -71.6885,-41.8136 -71.751,-41.7191 -71.8154,-41.6048 -71.8151,-41.5763 -71.7929,-41.5568 -71.7507,-41.5024 -71.7688,-41.3857 -71.7834,-41.3591 -71.7941,-41.34 -71.7998,-41.3097 -71.7846,-41.2471 -71.7672,-41.2191 -71.7623,-41.1951 -71.7417,-41.0124 -71.7605,-40.9647 -71.7394,-40.9091 -71.7514,-40.8661 -71.7644,-40.8444 -71.8154,-40.76 -71.8513,-40.6808 -71.8319,-40.6552 -71.8016,-40.6354 -71.7807,-40.6191 -71.7609,-40.5975 -71.7408,-40.5548 -71.7422,-40.5277 -71.7393,-40.4858 -71.6816,-40.3633 -71.6605,-40.3645 -71.6376,-40.3818 -71.6177,-40.3779 -71.6036,-40.3587 -71.566,-40.289 -71.5707,-40.2513 -71.6046,-40.2332 -71.6217,-40.2568 -71.6933,-40.2002 -71.7201,-40.1589 -71.6932,-40.0696 -71.6519,-40.044 -71.5692,-40.0023 -71.5358,-39.9055 -71.5724,-39.8094 -71.6079,-39.6825 -71.6119,-39.5821 -71.5927,-39.5309 -71.5853,-39.5227 -71.5697,-39.522 -71.5282,-39.5671 -71.5022,-39.5765 -71.4105,-39.573 -71.3959,-39.5544 -71.3888,-39.5169 -71.354,-39.3908 -71.3069,-39.2856 -71.2918,-39.196 -71.3063,-39.0856 -71.3162,-39.0221 -71.3263,-38.9955 -71.3268,-38.9699 -71.3229,-38.9165 -71.3148,-38.8916 -71.2981,-38.8695 -71.2652,-38.845 -71.2388,-38.832 -71.1435,-38.7871 -71.0028,-38.7225 -70.9583,-38.7047 -70.9313,-38.7018 -70.8997,-38.7044 -70.851,-38.7055 -70.8287,-38.697 -70.7673,-38.6464 -70.7351,-38.5444 -70.7311,-38.5125 -70.7496,-38.4786 -70.7861,-38.4554 -70.8127,-38.4428 -70.8556,-38.4074 -70.877,-38.3723 -70.9085,-38.2419 -70.9188,-38.1845 -70.9145,-38.161 -70.9063,-38.1111 -70.9041,-38.0273 -71.0007,-37.8396 -71.0298,-37.7949 -71.0361,-37.7714 -71.0432,-37.7484 -71.0667,-37.7028 -71.0857,-37.6538 -71.0883,-37.6166 -71.0816,-37.5839 -71.0633,-37.5663 -71.0291,-37.5458 -71.015,-37.4165 -71.0241,-37.3927 -71.0515,-37.3634 -71.0729,-37.337 -71.1026,-37.2602 -71.0892,-37.2264 -71.0541,-37.1941 -71.0366,-37.15 -71.0194,-37.0725 -71.0552,-36.9337 -71.0928,-36.804 -71.0438,-36.7003 -70.9617,-36.5058 -70.9414,-36.4426 -70.9235,-36.4347 -70.8891,-36.4426 -70.8599,-36.4458 -70.6144,-36.3733 -70.6038,-36.3499 -70.6264,-36.3032 -70.6123,-36.2297 -70.4963,-36.124 -70.4124,-36.1215 -70.3757,-36.1232 -70.3468,-36.1107 -70.3325,-36.0952 -70.3041,-36.035 -70.3156,-35.9306 -70.3196,-35.8525 -70.3106,-35.8304 -70.2834,-35.7928 -70.2522,-35.7708 -70.2828,-35.6948 -70.3169,-35.6322 -70.3269,-35.5949 -70.3127,-35.5745 -70.3048,-35.4749 -70.3304,-35.3246 -70.4414,-35.2681 -70.4586,-35.2569 -70.4754,-35.2283 -70.4734,-35.2021 -70.4489,-35.1706 -70.4248,-35.1652 -70.3908,-35.1635 -70.3596,-35.1587 -70.2897,-35.1294 -70.2717,-35.1051 -70.2666,-35.0609 -70.2705,-35.0395 -70.2717,-35.0033 -70.2707,-34.965 -70.2683,-34.9576 -70.206,-34.8143 -70.1414,-34.6228 -70.0587,-34.493 -69.9545,-34.3615 -69.961,-34.3162 -69.9615,-34.2573 -69.9564,-34.2473 -69.9386,-34.2382 -69.8951,-34.2312 -69.8663,-34.232 -69.8438,-34.2373 -69.7973,-34.2398 -69.7266,-34.1962 -69.7574,-34.0587 -69.7933,-33.8538 -69.8131,-33.7894 -69.814,-33.7406 -69.7786,-33.5175 -69.7183,-33.4002 -69.6927,-33.3753 -69.6841,-33.3495 -69.7126,-33.2416 -69.7843,-33.2078 -69.8114,-33.1998 -69.8364,-33.2033 -69.8644,-33.2277 -69.8847,-33.2583 -69.9093,-33.2612 -70.0044,-33.142 -70.0093,-33.1159 -69.9998,-33.0854 -69.9932,-33.0398 -70.0082,-33.0145 -69.9804,-32.9686 -69.9297,-32.912 -69.9022,-32.8392 -69.9538,-32.8171 -70.0535,-32.7224 -70.0793,-32.5911 -70.073,-32.5446 -70.0608,-32.5065 -70.0552,-32.4695 -70.0626,-32.4394 -70.1394,-32.3053 -70.1528,-32.2733 -70.2215,-32.2479 -70.2292,-32.2291 -70.2255,-32.192 -70.2571,-32.0507 -70.2152,-32.0115 -70.1733,-32.0062 -70.1407,-31.9292 -70.146,-31.9026 -70.193,-31.856 -70.2124,-31.8463 -70.2481,-31.8486 -70.2816,-31.8503 -70.3203,-31.8431 -70.3386,-31.8326 -70.3547,-31.8131 -70.367,-31.7965 -70.4947,-31.5284 -70.4873,-31.4947 -70.4754,-31.4338 -70.4684,-31.2873 -70.4394,-31.1463 -70.4289,-31.1241 -70.3598,-31.0595 -70.3384,-31.0786 -70.2705,-31.0579 -70.2035,-30.9946 -70.1998,-30.961 -70.2365,-30.9221 -70.24,-30.8964 -70.2356,-30.8563 -70.2249,-30.7902 -70.1779,-30.6437 -70.161,-30.6033 -70.1203,-30.525 -70.0427,-30.4053 -69.9604,-30.3606 -69.9388,-30.3635 -69.9074,-30.3611 -69.8476,-30.3384 -69.8079,-30.291 -69.7407,-30.1564 -69.7382,-30.11 -69.7507,-30.0865 -69.7727,-30.07 -69.8341,-29.9662 -69.8279,-29.9403 -69.8168,-29.8843 -69.8144,-29.7659 -69.8238,-29.687 -69.8264,-29.68 -69.8593,-29.661 -69.8721,-29.6447 -69.8779,-29.6222 -69.873,-29.5952 -69.866,-29.567 -69.8691,-29.5223 -69.8741,-29.5023 -69.9124,-29.3907 -69.9383,-29.3419 -69.944,-29.319 -69.9382,-29.2581 -69.8696,-29.1682 -69.8111,-29.1062 -69.7477,-29.1 -69.7155,-29.0807 -69.7023,-29.063 -69.6964,-29.038 -69.6985,-28.9842 -69.667,-28.854 -69.6329,-28.7653 -69.6393,-28.7317 -69.6494,-28.7093 -69.656,-28.6868 -69.6558,-28.6377 -69.6107,-28.5587 -69.5792,-28.5434 -69.5719,-28.5092 -69.5653,-28.3689 -69.5152,-28.3362 -69.4419,-28.2823 -69.3093,-28.1487 -69.2609,-28.0943 -69.248,-28.0716 -69.2365,-28.0277 -69.2066,-27.9652 -69.1696,-27.9488 -69.1328,-27.9453 -69.1039,-27.9391 -69.0883,-27.9205 -69.0752,-27.8941 -69.066,-27.8714 -69.0314,-27.7428 -69.0239,-27.7017 -68.9843,-27.5996 -68.9561,-27.5706 -68.8147,-27.3332 -68.7809,-27.248 -68.7892,-27.2095 -68.7782,-27.1787 -68.759,-27.1454 -68.7188,-27.0879 -68.6939,-27.0755 -68.6502,-27.0728 -68.6066,-27.0793 -68.5576,-27.1077 -68.323,-27.0359 -68.3043,-27.0282 -68.2658,-27.0099 -68.2352,-26.993 -68.1999,-26.8825 -68.2079,-26.8614 -68.3366,-26.6824 -68.3485,-26.6663 -68.3623,-26.6513 -68.4077,-26.6031 -68.453,-26.5544 -68.4801,-26.5155 -68.4901,-26.4956 -68.4956,-26.4753 -68.4975,-26.4274 -68.4971,-26.4067 -68.4931,-26.3524 -68.4894,-26.321 -68.4764,-26.2745 -68.4574,-26.2523 -68.4319,-26.2338 -68.392,-26.2084 -68.3319,-26.1582 -68.3122,-26.1298 -68.3668,-25.8762 -68.4059,-25.7138 -68.4136,-25.6893 -68.4656,-25.5888 -68.509,-25.4695 -68.5121,-25.4452 -68.51,-25.4148 -68.5055,-25.3946 -68.4849,-25.3174 -68.4725,-25.2869 -68.4521,-25.2455 -68.4472,-25.2415 -68.4426,-25.2235 -68.4276,-25.1703 -68.4098,-25.1427 -68.3986,-25.1341 -68.3331,-25.1244 -68.2687,-25.0928 -68.4137,-24.8671 -68.4618,-24.8416 -68.4844,-24.7852 -68.4808,-24.754 -68.4543,-24.7017 -68.4218,-24.6426 -68.3766,-24.5768 -68.3047,-24.4762 -68.2797,-24.4624 -68.2329,-24.4692 -68.1916,-24.4197 -68.1677,-24.371 -68.1043,-24.344 -67.8138,-24.2267 -67.5549,-24.1203 -67.4924,-24.0944 -67.2515,-23.9945 -67.1669,-23.7063 -67.107,-23.502 -67.0673,-23.3655 -67.0548,-23.3321 -67.0101,-23.215 -66.9642,-23.098 -66.9175,-22.977 -67.0214,-22.8746 -67.1002,-22.7958 -67.1002,-22.7958 792,2.0,South Africa 29.3374,-22.1673 29.4083,-22.1394 29.6336,-22.1113 29.6896,-22.1141 29.774,-22.1397 29.7948,-22.151 29.8661,-22.1694 29.9022,-22.1661 29.9941,-22.2128 30.2636,-22.3193 30.33,-22.3184 30.3793,-22.3104 30.4228,-22.2978 30.4487,-22.2865 30.4746,-22.2872 30.522,-22.2969 30.5992,-22.3047 30.666,-22.2848 30.7431,-22.2682 30.8008,-22.2626 30.8663,-22.264 30.8908,-22.2688 30.9345,-22.2855 31.0265,-22.3084 31.0512,-22.3123 31.0587,-22.3096 31.0842,-22.3001 31.119,-22.2983 31.2272,-22.3451 31.2517,-22.3782 31.2588,-22.3893 31.2644,-22.3994 31.4772,-23.0249 31.5225,-23.1606 31.5164,-23.2019 31.5066,-23.2799 31.4985,-23.3907 31.5115,-23.4502 31.5822,-23.5143 31.6119,-23.5473 31.6443,-23.5871 31.6466,-23.6124 31.6493,-23.6535 31.6807,-23.7219 31.7301,-23.8293 31.8051,-23.8803 31.8375,-23.9238 31.8375,-23.9372 31.8442,-24.1164 31.8458,-24.1438 31.9017,-24.2402 31.924,-24.2794 31.9673,-24.4046 31.9761,-24.4317 31.9553,-24.6766 31.9624,-24.7729 31.9709,-24.8969 31.9782,-25.0069 31.9761,-25.0821 31.9695,-25.3177 31.9505,-25.3924 31.9476,-25.4823 31.9644,-25.5083 31.9655,-25.5869 31.9416,-25.6426 31.8789,-25.7851 31.9277,-25.9284 31.8373,-25.9664 31.773,-25.9297 31.7293,-25.9038 31.6933,-25.8823 31.5505,-25.7985 31.3817,-25.6994 31.286,-25.7244 31.087,-25.8918 31.0695,-25.9585 31.0558,-25.9916 31.0374,-26.0337 31.0244,-26.0621 31.0114,-26.0835 30.966,-26.1545 30.9301,-26.2086 30.8627,-26.2756 30.7902,-26.3612 30.7692,-26.4173 30.7627,-26.4384 30.7591,-26.513 30.7609,-26.582 30.7629,-26.6511 30.7641,-26.6723 30.7696,-26.7135 30.7811,-26.7798 30.8407,-26.7631 30.86,-26.7417 30.8711,-26.7743 30.9286,-26.9304 31.0172,-27.0464 31.1215,-27.1725 31.1787,-27.19 31.2382,-27.2084 31.3732,-27.2505 31.477,-27.2823 31.6399,-27.2844 31.7215,-27.2847 31.8842,-27.2857 31.9446,-27.2856 31.9438,-27.2587 31.9272,-27.2335 31.9238,-27.1789 31.9196,-27.1124 31.9178,-27.0823 31.9269,-27.0224 31.9744,-26.7769 32.0487,-26.7806 32.0923,-26.8092 32.1128,-26.8166 32.1336,-26.8216 32.3067,-26.8302 32.3534,-26.8294 32.6472,-26.8234 32.7258,-26.8214 32.8483,-26.8169 32.8338,-26.8925 32.83,-26.9409 32.8262,-26.977 32.8213,-27.0027 32.7995,-27.0794 32.7926,-27.0999 32.7055,-27.3225 32.6875,-27.3669 32.6673,-27.4095 32.6397,-27.4658 32.632,-27.485 32.6083,-27.5736 32.5893,-27.6537 32.5846,-27.6759 32.5464,-27.8599 32.5535,-27.898 32.5228,-28.0831 32.5149,-28.1226 32.5035,-28.1523 32.4884,-28.1731 32.467,-28.202 32.4529,-28.2234 32.4348,-28.2548 32.4174,-28.2853 32.3905,-28.346 32.3836,-28.3934 32.3665,-28.4677 32.3526,-28.4994 32.3338,-28.5203 32.2349,-28.6139 32.1486,-28.6897 31.9774,-28.8299 31.9528,-28.847 31.8822,-28.8798 31.8555,-28.8915 31.8218,-28.9042 31.7865,-28.9081 31.7333,-28.9129 31.6824,-28.9656 31.6279,-29.0213 31.5165,-29.134 31.4112,-29.2361 31.3873,-29.2585 31.359,-29.2816 31.3201,-29.3196 31.2855,-29.3578 31.1694,-29.5019 31.1023,-29.6063 31.0774,-29.646 30.9695,-29.8387 30.9601,-29.8656 31.0118,-29.8587 30.995,-29.8914 30.9325,-29.9471 30.9067,-29.9658 30.8782,-29.9868 30.8299,-30.0429 30.8124,-30.0688 30.8006,-30.0951 30.7925,-30.1202 30.78,-30.1478 30.7125,-30.2654 30.6995,-30.2876 30.6872,-30.3076 30.6702,-30.3307 30.5935,-30.441 30.4371,-30.6791 30.3764,-30.7831 30.3656,-30.8004 30.3505,-30.8221 30.1775,-31.0222 30.1534,-31.0379 30.1465,-31.0508 30.1231,-31.0849 29.9851,-31.2457 29.9618,-31.2676 29.8559,-31.3552 29.8121,-31.387 29.7928,-31.3947 29.7606,-31.3966 29.7346,-31.4052 29.7071,-31.4264 29.673,-31.4584 29.6513,-31.4878 29.5911,-31.5459 29.5074,-31.5985 29.4886,-31.6104 29.3739,-31.6685 29.2825,-31.7665 29.2591,-31.7942 29.2297,-31.8294 29.2057,-31.864 29.1631,-31.9159 29.0538,-32.0285 28.8967,-32.1831 28.789,-32.2767 28.7418,-32.3057 28.6164,-32.4118 28.5283,-32.4937 28.5183,-32.5122 28.5055,-32.5312 28.3181,-32.6662 28.2262,-32.7182 28.1915,-32.7308 28.0692,-32.8272 28.0552,-32.8496 28.0418,-32.865 27.8639,-33.0034 27.8028,-33.0346 27.7612,-33.0535 27.6943,-33.0802 27.5703,-33.1747 27.4158,-33.2727 27.3158,-33.3323 27.1711,-33.4212 27.066,-33.4879 26.9955,-33.5186 26.9536,-33.5352 26.8542,-33.5661 26.6972,-33.6164 26.6097,-33.6631 26.5941,-33.6792 26.4963,-33.7153 26.426,-33.7343 26.2437,-33.7273 26.2225,-33.7176 26.1893,-33.7049 26.0716,-33.6816 26.0455,-33.6769 26.0244,-33.6744 25.9694,-33.6729 25.9298,-33.6733 25.8566,-33.681 25.835,-33.6839 25.7967,-33.6934 25.73,-33.713 25.6915,-33.7292 25.642,-33.7565 25.5954,-33.8131 25.58,-33.8764 25.5826,-33.8987 25.6168,-33.9349 25.6396,-33.9452 25.6685,-33.9842 25.6688,-33.9938 25.5941,-34.01 25.5512,-34.0105 25.404,-33.9966 25.3596,-33.9891 25.3197,-33.9782 25.2794,-33.9573 25.2544,-33.948 25.2105,-33.9364 25.1588,-33.9253 25.1317,-33.9206 25.035,-33.9238 24.9903,-33.9298 24.9543,-33.9383 24.91,-33.9521 24.8861,-33.9696 24.8866,-33.9966 24.8871,-34.0285 24.7924,-34.1632 24.7506,-34.153 24.6232,-34.1313 24.5945,-34.1335 24.5585,-34.1415 24.4842,-34.1319 24.4435,-34.1214 24.4143,-34.1014 24.3539,-34.0687 24.0129,-34.0088 23.6638,-33.9513 23.6188,-33.9458 23.6095,-33.9468 23.5849,-33.9462 23.5548,-33.9481 23.5155,-33.9523 23.4214,-33.9697 23.3592,-33.9907 23.3388,-34.012 23.3358,-34.0525 23.2106,-34.0553 23.0374,-34.0454 22.9296,-34.0529 22.783,-34.0082 22.7537,-33.9727 22.5102,-33.9729 22.4858,-33.9943 22.4504,-34.0154 22.41,-34.0259 22.3738,-34.0297 22.3353,-34.0237 22.2683,-34.0162 22.1725,-34.0388 22.1337,-34.0511 22.1048,-34.069 22.0883,-34.0972 21.9155,-34.1917 21.8883,-34.2204 21.8853,-34.2414 21.8886,-34.269 21.8711,-34.2993 21.8035,-34.3345 21.7744,-34.3444 21.6974,-34.3584 21.6207,-34.3508 21.5803,-34.3393 21.5525,-34.325 21.5289,-34.3168 21.5042,-34.3134 21.4693,-34.3216 21.3977,-34.3475 21.3442,-34.3781 21.2737,-34.3939 21.253,-34.3932 21.1828,-34.3763 21.1599,-34.3678 21.1389,-34.3575 21.1094,-34.3475 21.0553,-34.3298 21.0357,-34.3254 20.9385,-34.3222 20.9153,-34.3215 20.8601,-34.3329 20.8223,-34.3622 20.7719,-34.4198 20.6956,-34.4065 20.6592,-34.402 20.6358,-34.402 20.5694,-34.4075 20.5176,-34.415 20.4779,-34.426 20.4548,-34.4338 20.4364,-34.4421 20.4073,-34.466 20.387,-34.4939 20.3677,-34.5154 20.204,-34.6219 20.1597,-34.6376 20.0934,-34.6711 20.0636,-34.6873 20.0215,-34.7352 19.9741,-34.783 19.9657,-34.7817 19.934,-34.7732 19.9041,-34.7566 19.8879,-34.7431 19.8542,-34.7227 19.8321,-34.7135 19.6883,-34.7155 19.6526,-34.7226 19.6209,-34.7338 19.5769,-34.709 19.5168,-34.6695 19.4913,-34.6365 19.3986,-34.5828 19.2954,-34.5563 19.3389,-34.4917 19.3285,-34.4546 19.3115,-34.425 19.2993,-34.4082 19.2828,-34.3892 19.2532,-34.3706 19.2226,-34.3729 19.189,-34.3878 19.0955,-34.3697 19.0756,-34.3356 19.0587,-34.3076 18.9748,-34.3023 18.8893,-34.3182 18.827,-34.3394 18.7952,-34.3401 18.7804,-34.3197 18.7842,-34.2701 18.8039,-34.241 18.8185,-34.2181 18.8302,-34.1149 18.7993,-34.0689 18.7749,-34.0505 18.7285,-34.0396 18.6818,-34.036 18.5777,-34.0353 18.5227,-34.0409 18.489,-34.0491 18.462,-34.0611 18.4182,-34.1028 18.418,-34.1366 18.455,-34.196 18.4612,-34.3097 18.4339,-34.3061 18.3965,-34.2844 18.381,-34.2642 18.3566,-34.2172 18.2867,-33.9972 18.3611,-33.8724 18.3912,-33.8646 18.4218,-33.8733 18.4426,-33.779 18.415,-33.664 18.2851,-33.4475 18.271,-33.4284 18.2404,-33.3928 18.2254,-33.3781 18.137,-33.3034 18.0844,-33.2131 18.0937,-33.1665 18.1043,-33.1429 18.0048,-32.9889 17.9721,-32.9657 17.9295,-32.9733 17.8899,-33.0064 17.8528,-32.9638 17.8242,-32.794 17.8445,-32.7749 17.8797,-32.7374 17.963,-32.6959 18.0143,-32.731 18.0361,-32.7416 18.09,-32.744 18.2378,-32.6339 18.2662,-32.5926 18.2851,-32.549 18.3003,-32.5026 18.31,-32.4513 18.3262,-32.252 18.3196,-32.211 18.3128,-32.1831 18.2958,-32.1436 18.2883,-32.1109 18.248,-31.9146 18.2506,-31.8915 18.2556,-31.867 18.1943,-31.699 18.1544,-31.635 18.0909,-31.5587 18.054,-31.516 18.0214,-31.4817 17.9097,-31.3526 17.8861,-31.3243 17.8648,-31.2957 17.7814,-31.1835 17.7646,-31.1576 17.7439,-31.1208 17.7029,-31.0554 17.5924,-30.8986 17.4598,-30.6613 17.4259,-30.5828 17.4167,-30.5609 17.3974,-30.5238 17.3309,-30.4213 17.3106,-30.3992 17.2555,-30.3083 17.2072,-30.1686 17.1588,-30.0368 17.0964,-29.8889 17.0848,-29.8649 17.0639,-29.8068 17.0368,-29.6845 17.0323,-29.6491 16.9794,-29.4866 16.9127,-29.3299 16.8889,-29.3002 16.8126,-29.124 16.7966,-29.0618 16.6456,-28.8695 16.6236,-28.8514 16.5934,-28.844 16.5118,-28.6656 16.4704,-28.6134 16.4623,-28.5761 16.4683,-28.5461 16.6038,-28.4639 16.6557,-28.4323 16.6792,-28.4582 16.698,-28.4668 16.755,-28.4097 16.78,-28.3309 16.801,-28.2059 16.8654,-28.0607 16.8903,-28.036 17.0537,-27.9987 17.086,-28.0144 17.0984,-28.0337 17.1122,-28.0553 17.1323,-28.0657 17.1495,-28.0705 17.1671,-28.0823 17.1663,-28.1399 17.1621,-28.1687 17.1766,-28.192 17.1966,-28.2101 17.2566,-28.2063 17.2875,-28.1893 17.3208,-28.2013 17.3755,-28.3104 17.3771,-28.3311 17.3739,-28.3704 17.363,-28.3923 17.339,-28.5029 17.3787,-28.6761 17.3995,-28.6828 17.4388,-28.6704 17.4754,-28.6623 17.567,-28.6574 17.5797,-28.6883 17.5826,-28.7208 17.6205,-28.7415 17.6566,-28.7373 17.6881,-28.7242 17.7269,-28.7142 17.8894,-28.7466 17.9467,-28.7716 17.9784,-28.7946 18.0028,-28.8175 18.0212,-28.8357 18.158,-28.8761 18.3146,-28.8518 18.695,-28.8039 18.9271,-28.8337 18.9459,-28.8452 18.9613,-28.8725 18.978,-28.8954 19.0838,-28.9292 19.1211,-28.9225 19.159,-28.9047 19.2292,-28.867 19.235,-28.8229 19.2231,-28.7993 19.2152,-28.7701 19.2366,-28.7124 19.2522,-28.699 19.2766,-28.6931 19.2977,-28.6952 19.3243,-28.7036 19.3935,-28.6864 19.4226,-28.6784 19.4413,-28.6672 19.4656,-28.6366 19.4686,-28.6008 19.4881,-28.5627 19.5421,-28.4963 19.718,-28.4535 19.7641,-28.4635 19.7868,-28.4604 19.9714,-28.3835 19.9724,-28.3227 19.9727,-28.0335 19.9721,-27.8404 19.9724,-27.5512 19.9726,-27.4548 19.9733,-27.3386 19.9737,-27.2893 19.9737,-27.0 19.9745,-26.3795 19.9745,-25.8417 19.9752,-25.5875 19.9749,-25.3864 19.9752,-25.1932 19.9761,-25.0552 19.9767,-24.8346 19.9764,-24.7658 19.9764,-24.7377 20.0194,-24.7844 20.034,-24.7984 20.107,-24.8562 20.1406,-24.8582 20.2117,-24.888 20.2364,-24.9036 20.3643,-25.0087 20.4238,-25.1254 20.5105,-25.2697 20.5835,-25.3688 20.6056,-25.4083 20.6237,-25.4507 20.663,-25.5624 20.6527,-25.6079 20.656,-25.6568 20.7129,-25.734 20.7575,-25.7958 20.7836,-25.8517 20.8335,-26.1125 20.77,-26.22 20.7307,-26.2747 20.7181,-26.2911 20.6653,-26.3582 20.6258,-26.3961 20.597,-26.4092 20.5835,-26.4247 20.577,-26.4867 20.5757,-26.5065 20.5924,-26.7375 20.6146,-26.7959 20.6773,-26.8451 20.7374,-26.831 20.7752,-26.8112 20.7969,-26.7873 20.8293,-26.7746 20.8653,-26.7651 20.8973,-26.7684 20.9396,-26.7868 20.9615,-26.8075 20.9857,-26.8173 21.0742,-26.8326 21.102,-26.8361 21.117,-26.8365 21.1507,-26.8321 21.2498,-26.8152 21.3115,-26.7989 21.3504,-26.7913 21.3831,-26.7916 21.4081,-26.7934 21.4327,-26.7993 21.4541,-26.8118 21.4891,-26.8222 21.5854,-26.8305 21.6408,-26.8336 21.6654,-26.8229 21.7224,-26.7884 21.7446,-26.7598 21.751,-26.7373 21.7463,-26.704 21.7419,-26.6539 21.7806,-26.6362 21.8345,-26.6322 21.8636,-26.6389 21.9343,-26.6319 21.9875,-26.6143 22.0284,-26.5946 22.1058,-26.51 22.1299,-26.4627 22.1471,-26.4012 22.1688,-26.3645 22.2209,-26.3116 22.3379,-26.2566 22.4503,-26.1734 22.596,-26.0823 22.5977,-26.0636 22.6347,-25.9857 22.6781,-25.9741 22.6938,-25.9448 22.7161,-25.8191 22.7144,-25.7688 22.7275,-25.7073 22.7481,-25.683 22.7838,-25.6495 22.8008,-25.5854 22.7833,-25.5396 22.8009,-25.502 22.881,-25.3682 22.9432,-25.3088 22.9856,-25.2711 23.165,-25.2358 23.2456,-25.2372 23.4245,-25.2485 23.5009,-25.3088 23.5661,-25.3609 23.6203,-25.3946 23.6402,-25.4072 23.6837,-25.4257 23.7063,-25.435 23.8415,-25.5548 23.8591,-25.5762 23.8714,-25.5958 23.9763,-25.6288 24.0159,-25.6226 24.0847,-25.6053 24.1584,-25.5942 24.1976,-25.6207 24.2123,-25.6472 24.2504,-25.6912 24.3207,-25.7266 24.3679,-25.7317 24.4077,-25.7108 24.441,-25.7176 24.4703,-25.7324 24.5019,-25.7428 24.5907,-25.7831 24.6175,-25.7936 24.6531,-25.7991 24.7699,-25.8032 24.869,-25.7792 24.9218,-25.7422 24.9806,-25.705 25.0011,-25.6996 25.0546,-25.7062 25.0963,-25.7236 25.1203,-25.733 25.1431,-25.733 25.3286,-25.7256 25.3818,-25.7043 25.4773,-25.6487 25.5493,-25.5963 25.5575,-25.5857 25.5895,-25.522 25.6389,-25.4416 25.6523,-25.4068 25.7369,-25.1799 25.7949,-25.0136 25.8396,-24.8772 25.8426,-24.7859 25.839,-24.7164 25.8858,-24.7105 25.9863,-24.6829 26.1348,-24.6361 26.2324,-24.6099 26.3269,-24.5912 26.357,-24.5998 26.368,-24.6042 26.378,-24.6007 26.4072,-24.5785 26.428,-24.5568 26.4446,-24.5269 26.4519,-24.503 26.4606,-24.4836 26.4809,-24.4527 26.5216,-24.4095 26.693,-24.2834 26.7258,-24.2769 26.7544,-24.2679 26.7969,-24.2477 26.8187,-24.2263 26.8469,-24.0605 26.8862,-23.9004 26.9297,-23.7328 26.9255,-23.7251 26.9449,-23.6649 26.9716,-23.6171 26.997,-23.6272 27.0362,-23.6095 27.0651,-23.5626 27.1143,-23.4982 27.3059,-23.3732 27.3731,-23.3607 27.4187,-23.359 27.4681,-23.3576 27.495,-23.3529 27.5232,-23.3221 27.5311,-23.2847 27.5388,-23.2406 27.5698,-23.1928 27.6704,-23.1748 27.7494,-23.1441 27.9094,-23.0054 27.9376,-22.9268 28.0147,-22.8372 28.0751,-22.7804 28.1219,-22.7456 28.1271,-22.7184 28.125,-22.698 28.1331,-22.6779 28.1449,-22.6609 28.162,-22.6495 28.2633,-22.5839 28.3217,-22.551 28.421,-22.5485 28.6029,-22.5364 28.7934,-22.4654 28.8823,-22.4295 28.8988,-22.4139 28.915,-22.3879 28.9291,-22.3634 28.9326,-22.3432 28.9253,-22.301 28.9893,-22.2021 29.0092,-22.1991 29.0359,-22.1956 29.2383,-22.1691 29.3374,-22.1673 29.3374,-22.1673 103,2.0,South Africa 28.9852,-29.9561 29.0065,-29.9461 29.0639,-29.9195 29.1287,-29.8817 29.1166,-29.8158 29.0918,-29.8013 29.0865,-29.7757 29.0989,-29.7459 29.0953,-29.7217 29.1079,-29.6835 29.1353,-29.6304 29.1791,-29.6063 29.2031,-29.599 29.2333,-29.5971 29.2554,-29.585 29.2575,-29.5486 29.256,-29.4718 29.2723,-29.4422 29.3094,-29.4225 29.3361,-29.4108 29.3619,-29.4051 29.3838,-29.3949 29.4176,-29.3161 29.393,-29.2457 29.2892,-29.0549 29.2479,-29.0392 29.163,-29.001 28.961,-28.8767 28.9137,-28.8444 28.8961,-28.8093 28.8657,-28.7627 28.8337,-28.7322 28.8286,-28.7292 28.7698,-28.7251 28.7555,-28.6747 28.6493,-28.5639 28.6107,-28.5384 28.5743,-28.5551 28.541,-28.5747 28.4772,-28.5792 28.4514,-28.5778 28.423,-28.5813 28.3632,-28.5954 28.3318,-28.6322 28.3197,-28.6604 28.2509,-28.6781 28.1646,-28.6798 28.1466,-28.6661 28.0822,-28.708 28.0307,-28.7776 27.9806,-28.8297 27.8564,-28.8698 27.7616,-28.8854 27.6012,-29.0077 27.598,-29.0434 27.6072,-29.0582 27.5934,-29.0737 27.5052,-29.1736 27.4564,-29.2438 27.4161,-29.2671 27.3239,-29.4161 27.2774,-29.4661 27.2653,-29.4925 27.2576,-29.4995 27.2166,-29.5128 27.1797,-29.5211 27.1221,-29.5334 26.9789,-29.5938 27.0005,-29.6428 27.0309,-29.6589 27.0653,-29.702 27.125,-29.8223 27.1564,-29.89 27.1694,-29.9179 27.1899,-29.9606 27.2617,-30.0128 27.327,-30.192 27.3433,-30.283 27.3813,-30.2842 27.4293,-30.2872 27.5289,-30.3707 27.5376,-30.3937 27.5768,-30.4501 27.7015,-30.562 27.8972,-30.6033 27.9364,-30.6098 27.9855,-30.6147 28.0436,-30.6161 28.1117,-30.5177 28.1237,-30.4638 28.2209,-30.2924 28.2737,-30.2127 28.3133,-30.174 28.3411,-30.1265 28.3677,-30.1098 28.4845,-30.095 28.5818,-30.0958 28.6373,-30.1013 28.7534,-30.0673 28.848,-30.0312 28.869,-30.0216 28.9852,-29.9561 28.9852,-29.9561 26,2.0,South Africa 14.4362,-23.1203 14.4334,-23.1163 14.4226,-23.098 14.4133,-23.0733 14.3917,-23.0005 14.3927,-22.9412 14.4187,-22.8563 14.4301,-22.9008 14.4268,-22.9345 14.4447,-22.971 14.499,-22.9002 14.517,-22.8558 14.5212,-22.7762 14.5112,-22.6945 14.5068,-22.6663 14.5209,-22.6579 14.6262,-22.6136 14.648,-22.6127 14.6513,-22.9061 14.6501,-22.9582 14.6721,-23.047 14.6947,-23.1345 14.6714,-23.1784 14.4496,-23.1289 14.4362,-23.1203 14.4362,-23.1203 16,-3.0,Brazil -44.2686,-23.1949 -44.2741,-23.1939 -44.3129,-23.1487 -44.3117,-23.1374 -44.1765,-23.0458 -44.0572,-23.1013 -44.0296,-23.1425 -44.0493,-23.1546 -44.1222,-23.1659 -44.1868,-23.1721 -44.1962,-23.164 -44.2131,-23.1514 -44.2431,-23.1511 -44.2566,-23.1706 -44.2686,-23.1949 -44.2686,-23.1949 20,10.0,Australia 151.0384,-23.7597 151.0287,-23.7574 150.9901,-23.7213 150.9838,-23.7134 150.9715,-23.6823 150.9453,-23.6347 150.8778,-23.5788 150.8592,-23.5487 150.8504,-23.5296 150.8397,-23.4994 150.8306,-23.4298 150.8748,-23.4206 150.9421,-23.4592 151.0146,-23.5024 151.034,-23.5319 151.0983,-23.6459 151.1104,-23.7238 151.0834,-23.7531 151.0384,-23.7597 151.0384,-23.7597 31,-3.0,Brazil -45.1867,-23.94 -45.2178,-23.924 -45.2851,-23.902 -45.2975,-23.9083 -45.3127,-23.9113 -45.3447,-23.9129 -45.3594,-23.9131 -45.3704,-23.9103 -45.3828,-23.9037 -45.3908,-23.8907 -45.397,-23.8692 -45.3848,-23.8444 -45.3765,-23.8379 -45.3537,-23.8279 -45.3365,-23.8165 -45.3243,-23.8064 -45.3039,-23.7832 -45.2939,-23.7712 -45.285,-23.7541 -45.2791,-23.7341 -45.2759,-23.7188 -45.2653,-23.7003 -45.2542,-23.6973 -45.208,-23.7124 -45.1965,-23.7197 -45.1659,-23.7506 -45.1574,-23.9217 -45.1638,-23.9304 -45.1756,-23.9364 -45.1867,-23.94 -45.1867,-23.94 80,10.0,Australia 152.8863,-25.7666 152.879,-25.7707 152.8585,-25.7687 152.8428,-25.7581 152.8027,-25.7088 152.7988,-25.6992 152.7593,-25.5863 152.7487,-25.5543 152.7472,-25.5424 152.7481,-25.5297 152.7971,-25.4197 152.8017,-25.4106 152.814,-25.3943 152.8209,-25.387 152.8379,-25.3715 152.8601,-25.3323 152.8694,-25.31 152.8688,-25.2238 152.866,-25.2092 152.855,-25.2025 152.8963,-25.1237 152.9406,-25.096 152.9769,-25.0679 152.9997,-25.0471 153.0164,-25.028 153.0243,-25.0147 153.0368,-24.9905 153.0437,-24.9752 153.0467,-24.965 153.0533,-24.9359 153.0547,-24.9209 153.0514,-24.9039 153.0445,-24.8859 153.0385,-24.8772 152.9967,-24.8132 152.9912,-24.8052 152.9851,-24.7967 152.9762,-24.791 152.9656,-24.7871 152.9802,-24.7569 152.9964,-24.7304 153.003,-24.7229 153.0263,-24.7034 153.0431,-24.691 153.0569,-24.6829 153.0886,-24.6713 153.0907,-24.6969 153.0912,-24.7303 153.0906,-24.7562 153.09,-24.7755 153.0892,-24.7883 153.0882,-24.8213 153.0885,-24.8343 153.0908,-24.8526 153.0965,-24.876 153.1023,-24.8937 153.1196,-24.922 153.1269,-24.9295 153.1352,-24.9352 153.1557,-24.9424 153.1676,-24.9504 153.1752,-24.9744 153.1768,-24.9861 153.1718,-25.0023 153.1063,-25.1429 153.0601,-25.2385 153.0418,-25.2761 152.9898,-25.3815 152.932,-25.5074 152.8908,-25.6279 152.8877,-25.639 152.8869,-25.6584 152.8921,-25.6774 152.8999,-25.7017 152.9021,-25.7197 152.9012,-25.7389 152.8962,-25.7552 152.8912,-25.7639 152.8863,-25.7666 152.8863,-25.7666 30,8.0,Australia 113.061,-26.1151 113.0316,-26.0936 112.8832,-25.891 112.8086,-25.7554 112.7633,-25.5988 112.7635,-25.5549 112.7644,-25.5359 112.7701,-25.5109 112.7758,-25.498 112.7994,-25.4667 112.81,-25.4589 112.8593,-25.4704 112.8535,-25.4844 112.8433,-25.5001 112.8392,-25.5147 112.8394,-25.5291 112.8434,-25.5422 112.883,-25.6256 112.9319,-25.7566 112.9552,-25.8202 112.9609,-25.8473 113.0148,-25.9484 113.038,-25.9688 113.0455,-25.9761 113.0523,-25.9894 113.0625,-26.0134 113.0823,-26.0793 113.0645,-26.1114 113.061,-26.1151 113.061,-26.1151 59,2.0,Swaziland 32.0923,-26.8092 32.0487,-26.7806 31.9744,-26.7769 31.9269,-27.0224 31.9178,-27.0823 31.9196,-27.1124 31.9238,-27.1789 31.9272,-27.2335 31.9438,-27.2587 31.9446,-27.2856 31.8842,-27.2857 31.7215,-27.2847 31.6399,-27.2844 31.477,-27.2823 31.3732,-27.2505 31.2382,-27.2084 31.1787,-27.19 31.1215,-27.1725 31.0172,-27.0464 30.9286,-26.9304 30.8711,-26.7743 30.86,-26.7417 30.8407,-26.7631 30.7811,-26.7798 30.7696,-26.7135 30.7641,-26.6723 30.7629,-26.6511 30.7609,-26.582 30.7591,-26.513 30.7627,-26.4384 30.7692,-26.4173 30.7902,-26.3612 30.8627,-26.2756 30.9301,-26.2086 30.966,-26.1545 31.0114,-26.0835 31.0244,-26.0621 31.0374,-26.0337 31.0558,-25.9916 31.0695,-25.9585 31.087,-25.8918 31.286,-25.7244 31.3817,-25.6994 31.5505,-25.7985 31.6933,-25.8823 31.7293,-25.9038 31.773,-25.9297 31.8373,-25.9664 31.9277,-25.9284 31.958,-25.9616 32.0337,-26.0077 32.0611,-26.1259 32.02,-26.2319 32.0314,-26.3636 32.048,-26.3954 32.0849,-26.469 32.0914,-26.7664 32.0923,-26.8092 32.0923,-26.8092 15,-3.0,Brazil -48.5233,-26.3958 -48.5635,-26.3637 -48.6431,-26.2793 -48.4803,-26.1386 -48.4642,-26.141 -48.4536,-26.1488 -48.4228,-26.2019 -48.4282,-26.2136 -48.4555,-26.2503 -48.4669,-26.2643 -48.478,-26.278 -48.4826,-26.2874 -48.5177,-26.3596 -48.5233,-26.3958 -48.5233,-26.3958 23,10.0,Australia 153.228,-27.332 153.2083,-27.2705 153.1908,-27.2325 153.1793,-27.2146 153.1702,-27.1958 153.1618,-27.166 153.1614,-27.031 153.1714,-27.0213 153.2475,-26.9888 153.2627,-26.9907 153.2694,-27.0036 153.2668,-27.0237 153.2621,-27.0393 153.2543,-27.0597 153.2483,-27.075 153.2243,-27.144 153.2215,-27.1548 153.2188,-27.1665 153.2173,-27.1782 153.2164,-27.1913 153.2179,-27.2173 153.228,-27.332 153.228,-27.332 19,-3.0,Chile -109.2869,-27.1714 -109.3042,-27.1677 -109.3052,-27.1476 -109.2806,-27.0742 -109.2748,-27.0619 -109.2685,-27.054 -109.2526,-27.0368 -109.2278,-27.0333 -109.0792,-27.0672 -109.0773,-27.0782 -109.0834,-27.0905 -109.0979,-27.1016 -109.15,-27.1196 -109.181,-27.1185 -109.193,-27.1209 -109.2481,-27.1467 -109.2751,-27.1626 -109.2869,-27.1714 -109.2869,-27.1714 29,-3.0,Brazil -48.4937,-27.7916 -48.5026,-27.7838 -48.5034,-27.7646 -48.4878,-27.6648 -48.4688,-27.6158 -48.4394,-27.528 -48.4397,-27.5158 -48.4588,-27.4875 -48.4651,-27.4606 -48.461,-27.4354 -48.4553,-27.4023 -48.3653,-27.3584 -48.351,-27.3621 -48.3091,-27.4157 -48.3438,-27.5616 -48.35,-27.5702 -48.3856,-27.5995 -48.3963,-27.6107 -48.4338,-27.68 -48.4373,-27.6942 -48.4362,-27.7063 -48.4296,-27.7174 -48.4223,-27.7248 -48.4169,-27.7369 -48.4213,-27.7469 -48.4779,-27.7855 -48.4877,-27.7899 -48.4937,-27.7916 -48.4937,-27.7916 20,10.0,Australia 153.2094,-27.7 153.2002,-27.6972 153.194,-27.6803 153.1919,-27.6652 153.1979,-27.5801 153.1993,-27.5679 153.2111,-27.49 153.2362,-27.3851 153.2748,-27.3768 153.3434,-27.3871 153.3434,-27.4004 153.3278,-27.4343 153.3144,-27.4636 153.2923,-27.5343 153.2775,-27.5827 153.2679,-27.6217 153.2632,-27.6555 153.2562,-27.6951 153.2094,-27.7 153.2094,-27.7 103,2.0,Lesotho 28.9852,-29.9561 28.869,-30.0216 28.848,-30.0312 28.7534,-30.0673 28.6373,-30.1013 28.5818,-30.0958 28.4845,-30.095 28.3677,-30.1098 28.3411,-30.1265 28.3133,-30.174 28.2737,-30.2127 28.2209,-30.2924 28.1237,-30.4638 28.1117,-30.5177 28.0436,-30.6161 27.9855,-30.6147 27.9364,-30.6098 27.8972,-30.6033 27.7015,-30.562 27.5768,-30.4501 27.5376,-30.3937 27.5289,-30.3707 27.4293,-30.2872 27.3813,-30.2842 27.3433,-30.283 27.327,-30.192 27.2617,-30.0128 27.1899,-29.9606 27.1694,-29.9179 27.1564,-29.89 27.125,-29.8223 27.0653,-29.702 27.0309,-29.6589 27.0005,-29.6428 26.9789,-29.5938 27.1221,-29.5334 27.1797,-29.5211 27.2166,-29.5128 27.2576,-29.4995 27.2653,-29.4925 27.2774,-29.4661 27.3239,-29.4161 27.4161,-29.2671 27.4564,-29.2438 27.5052,-29.1736 27.5934,-29.0737 27.6072,-29.0582 27.598,-29.0434 27.6012,-29.0077 27.7616,-28.8854 27.8564,-28.8698 27.9806,-28.8297 28.0307,-28.7776 28.0822,-28.708 28.1466,-28.6661 28.1646,-28.6798 28.2509,-28.6781 28.3197,-28.6604 28.3318,-28.6322 28.3632,-28.5954 28.423,-28.5813 28.4514,-28.5778 28.4772,-28.5792 28.541,-28.5747 28.5743,-28.5551 28.6107,-28.5384 28.6493,-28.5639 28.7555,-28.6747 28.7698,-28.7251 28.8286,-28.7292 28.8337,-28.7322 28.8657,-28.7627 28.8961,-28.8093 28.9137,-28.8444 28.961,-28.8767 29.163,-29.001 29.2479,-29.0392 29.2892,-29.0549 29.393,-29.2457 29.4176,-29.3161 29.3838,-29.3949 29.3619,-29.4051 29.3361,-29.4108 29.3094,-29.4225 29.2723,-29.4422 29.256,-29.4718 29.2575,-29.5486 29.2554,-29.585 29.2333,-29.5971 29.2031,-29.599 29.1791,-29.6063 29.1353,-29.6304 29.1079,-29.6835 29.0953,-29.7217 29.0989,-29.7459 29.0865,-29.7757 29.0918,-29.8013 29.1166,-29.8158 29.1287,-29.8817 29.0639,-29.9195 29.0065,-29.9461 28.9852,-29.9561 28.9852,-29.9561 307,-3.0,Uruguay -57.5329,-30.1508 -57.5017,-30.1629 -57.4896,-30.1812 -57.4915,-30.2133 -57.4726,-30.2325 -57.4499,-30.2406 -57.4207,-30.2459 -57.2818,-30.2382 -57.2476,-30.2324 -57.2291,-30.2413 -57.2107,-30.2594 -57.1594,-30.2592 -57.1395,-30.2578 -57.1193,-30.2487 -57.0736,-30.2043 -57.0729,-30.1742 -57.07,-30.1512 -57.0295,-30.1015 -56.9967,-30.0748 -56.8596,-30.0636 -56.7865,-30.0627 -56.7376,-30.0712 -56.7163,-30.0818 -56.5653,-30.1945 -56.4943,-30.2649 -56.4745,-30.2888 -56.4535,-30.3118 -56.4377,-30.3246 -56.314,-30.4258 -56.242,-30.4739 -56.1935,-30.5016 -56.1627,-30.5241 -56.0433,-30.6411 -55.9289,-30.761 -55.9169,-30.778 -55.9039,-30.8163 -55.912,-30.8561 -55.9292,-30.8872 -55.9336,-30.9287 -55.9393,-31.0314 -55.9358,-31.0447 -55.9136,-31.0467 -55.8376,-31.0474 -55.8176,-31.0452 -55.7653,-31.0378 -55.6868,-30.982 -55.5993,-30.9144 -55.5679,-30.8359 -55.5567,-30.8155 -55.5119,-30.8114 -55.4488,-30.8542 -55.3494,-30.9281 -55.2786,-31.0108 -55.2583,-31.0435 -55.1753,-31.1962 -55.1567,-31.2145 -55.0176,-31.2904 -54.9912,-31.2902 -54.9054,-31.2838 -54.871,-31.3156 -54.8422,-31.3392 -54.7945,-31.3744 -54.7626,-31.3914 -54.7356,-31.4002 -54.6915,-31.4058 -54.657,-31.4034 -54.6337,-31.4048 -54.523,-31.4254 -54.4014,-31.5442 -54.3923,-31.637 -54.3708,-31.6458 -54.3439,-31.6581 -54.3125,-31.6801 -54.2803,-31.7144 -54.2149,-31.7687 -54.0938,-31.8513 -54.0252,-31.8483 -54.0009,-31.8397 -53.8483,-31.9063 -53.8052,-31.9386 -53.6728,-32.0606 -53.5946,-32.1706 -53.5671,-32.2351 -53.5738,-32.2692 -53.5609,-32.3214 -53.4976,-32.3948 -53.4834,-32.4096 -53.4673,-32.4244 -53.4514,-32.4377 -53.3345,-32.5313 -53.3087,-32.5375 -53.2801,-32.5426 -53.1907,-32.5643 -53.1222,-32.5973 -53.0897,-32.6243 -53.0289,-32.6868 -53.1016,-32.7652 -53.1761,-32.8254 -53.2293,-32.9095 -53.3659,-33.003 -53.3927,-33.0218 -53.4108,-33.0376 -53.4304,-33.0627 -53.446,-33.092 -53.4511,-33.1045 -53.4549,-33.1199 -53.4604,-33.1621 -53.4587,-33.1838 -53.4526,-33.2219 -53.4459,-33.253 -53.4394,-33.2837 -53.4315,-33.3704 -53.4316,-33.3906 -53.4351,-33.4228 -53.4387,-33.4485 -53.4443,-33.4869 -53.4532,-33.5362 -53.4592,-33.5731 -53.4649,-33.6191 -53.4518,-33.6438 -53.328,-33.7031 -53.3047,-33.7028 -53.3295,-33.7188 -53.3472,-33.7319 -53.37,-33.7542 -53.3909,-33.7786 -53.4127,-33.8163 -53.4208,-33.8381 -53.4296,-33.8663 -53.4432,-33.9414 -53.4659,-34.0239 -53.4986,-34.0441 -53.5293,-34.0668 -53.6281,-34.1508 -53.6483,-34.1756 -53.682,-34.223 -53.7069,-34.3036 -53.7718,-34.382 -53.834,-34.412 -53.9121,-34.4603 -54.0231,-34.5529 -54.0434,-34.5705 -54.0691,-34.5976 -54.0702,-34.6255 -54.1011,-34.6374 -54.165,-34.6363 -54.1818,-34.5895 -54.1789,-34.5667 -54.1733,-34.5452 -54.2422,-34.524 -54.2204,-34.6216 -54.2083,-34.6516 -54.2659,-34.6856 -54.4602,-34.767 -54.4775,-34.7721 -54.5177,-34.7856 -54.6151,-34.8197 -54.6532,-34.8362 -54.7592,-34.8844 -54.8246,-34.9041 -54.883,-34.9046 -54.9814,-34.8536 -55.0203,-34.8461 -55.0584,-34.8471 -55.0988,-34.8534 -55.1515,-34.8673 -55.1769,-34.8688 -55.2118,-34.8422 -55.2327,-34.8121 -55.2618,-34.7878 -55.2845,-34.775 -55.3016,-34.7693 -55.3613,-34.7649 -55.5277,-34.7425 -55.6203,-34.7361 -55.7151,-34.7498 -55.7391,-34.7566 -55.8377,-34.7891 -55.8584,-34.7992 -55.8928,-34.822 -55.9324,-34.844 -55.955,-34.8521 -55.9615,-34.8514 -56.0854,-34.8881 -56.2449,-34.871 -56.3524,-34.8012 -56.3304,-34.7756 -56.2936,-34.7564 -56.3384,-34.7483 -56.5054,-34.7248 -56.7557,-34.6506 -56.822,-34.6179 -57.0368,-34.4253 -57.1001,-34.4143 -57.1111,-34.4098 -57.3588,-34.411 -57.4784,-34.4044 -57.5867,-34.4214 -57.7615,-34.4539 -57.8023,-34.4039 -57.8224,-34.347 -57.8354,-34.3275 -57.8891,-34.2698 -58.0037,-34.1521 -58.0297,-34.1385 -58.1352,-34.0847 -58.1452,-34.0663 -58.1755,-34.0242 -58.2249,-33.9636 -58.2397,-33.9484 -58.2589,-33.9365 -58.286,-33.9232 -58.3276,-33.8881 -58.3389,-33.8374 -58.3468,-33.8173 -58.3539,-33.7971 -58.3619,-33.6647 -58.3623,-33.5165 -58.354,-33.4909 -58.3408,-33.47 -58.3082,-33.4302 -58.3039,-33.401 -58.3129,-33.385 -58.3397,-33.3709 -58.3254,-33.3227 -58.3041,-33.3079 -58.282,-33.2861 -58.271,-33.2341 -58.2814,-33.1825 -58.2892,-33.1439 -58.2911,-33.1201 -58.2846,-33.0936 -58.2644,-33.0799 -58.2378,-33.0767 -58.2136,-33.0779 -58.1655,-33.082 -58.1272,-33.0835 -58.0857,-33.0725 -58.0662,-33.0618 -58.0132,-33.0182 -57.9698,-32.8976 -57.972,-32.8641 -57.9832,-32.8343 -58.0137,-32.8077 -58.0449,-32.7823 -58.0577,-32.7565 -58.0628,-32.7285 -58.0625,-32.7032 -58.0624,-32.6716 -58.0646,-32.6355 -58.0763,-32.5617 -58.1174,-32.4556 -58.1218,-32.4418 -58.1235,-32.4139 -58.1011,-32.3676 -58.0745,-32.3334 -58.0595,-32.3179 -58.0257,-32.2894 -58.0218,-32.2584 -58.026,-32.2182 -58.0642,-32.1852 -58.087,-32.1605 -58.1065,-32.1208 -58.1027,-32.0902 -58.0855,-32.0649 -58.0754,-32.0301 -58.07,-31.9572 -58.0846,-31.9152 -58.1241,-31.8589 -58.1086,-31.8246 -58.0863,-31.8051 -58.0632,-31.7986 -58.022,-31.7911 -57.9878,-31.7766 -57.9644,-31.7532 -57.9058,-31.584 -57.9024,-31.5455 -57.9142,-31.513 -57.9372,-31.4881 -57.9601,-31.4719 -57.9895,-31.4587 -58.0033,-31.4403 -57.9924,-31.4143 -57.9632,-31.3982 -57.9288,-31.3823 -57.8453,-31.2356 -57.7784,-31.0305 -57.7217,-30.8486 -57.7227,-30.771 -57.7241,-30.7571 -57.7275,-30.7307 -57.731,-30.7136 -57.7388,-30.679 -57.7706,-30.6083 -57.7961,-30.5871 -57.8145,-30.5639 -57.8141,-30.5006 -57.8074,-30.4806 -57.7932,-30.465 -57.7219,-30.4139 -57.6709,-30.3832 -57.5939,-30.3204 -57.5564,-30.2645 -57.5499,-30.2449 -57.5545,-30.2037 -57.5329,-30.1508 -57.5329,-30.1508 759,13.0,New Zealand 172.9891,-34.8325 173.0182,-34.8456 173.0465,-34.9043 173.0367,-34.9235 173.0349,-34.9397 173.0425,-34.9777 173.0931,-34.9795 173.104,-34.97 173.1343,-34.9419 173.1401,-34.933 173.1477,-34.8927 173.1763,-34.824 173.2013,-34.781 173.2262,-34.7688 173.2732,-34.8295 173.2232,-34.8493 173.2087,-34.8513 173.1884,-34.8496 173.1779,-34.8557 173.1764,-34.871 173.1869,-34.8923 173.1945,-34.9064 173.2046,-34.9213 173.2172,-34.9339 173.2294,-34.9422 173.2469,-34.951 173.2685,-34.9558 173.3168,-34.9491 173.3373,-34.9155 173.342,-34.8966 173.3512,-34.8902 173.3646,-34.8893 173.6139,-34.9646 173.8757,-35.0817 173.8737,-35.1217 173.8315,-35.1161 173.7968,-35.1246 173.7828,-35.1679 173.7843,-35.1786 173.7932,-35.1852 173.872,-35.1873 173.918,-35.2889 173.9822,-35.2834 173.9922,-35.2825 174.0222,-35.2388 174.0944,-35.1931 174.158,-35.2978 174.2357,-35.4054 174.2658,-35.4452 174.3494,-35.562 174.3506,-35.574 174.3401,-35.6096 174.3039,-35.6093 174.294,-35.6085 174.2829,-35.6034 174.2503,-35.6061 174.2942,-35.6864 174.3316,-35.7112 174.3571,-35.7245 174.3756,-35.804 174.3661,-35.8103 174.3509,-35.8118 174.3311,-35.8051 174.3119,-35.7792 174.2947,-35.7532 174.2645,-35.7292 174.1332,-35.6833 174.1221,-35.6944 174.1221,-35.796 174.1315,-35.807 174.1567,-35.8075 174.1589,-35.7885 174.1683,-35.7822 174.2111,-35.7822 174.2495,-35.7838 174.2596,-35.7845 174.2958,-35.8065 174.296,-35.8185 174.2723,-35.8523 174.2606,-35.8744 174.2698,-35.9508 174.2871,-35.9679 174.3469,-35.9975 174.3652,-35.9973 174.3826,-35.9992 174.3952,-36.0124 174.4021,-36.0299 174.389,-36.0601 174.4079,-36.084 174.4813,-36.1649 174.5534,-36.226 174.5851,-36.2983 174.5405,-36.3055 174.4829,-36.4848 174.4802,-36.4963 174.4876,-36.5581 174.546,-36.6888 174.5795,-36.7637 174.6257,-36.8064 174.6679,-36.8368 174.7871,-36.8311 174.8263,-36.8388 174.8474,-36.8493 174.8557,-36.8564 174.8623,-36.8838 174.9323,-36.9137 174.996,-36.897 175.0487,-36.9234 175.0808,-36.9534 175.0923,-36.9672 175.0992,-36.985 175.1004,-36.9981 175.0919,-37.0228 175.0897,-37.0535 175.0885,-37.1065 175.0986,-37.1268 175.143,-37.1748 175.1548,-37.184 175.1747,-37.1859 175.3484,-37.2024 175.3589,-37.1276 175.3215,-36.9829 175.3173,-36.9675 175.3125,-36.9526 175.3062,-36.9392 175.2951,-36.9198 175.2688,-36.8856 175.2505,-36.8775 175.2345,-36.8673 175.2055,-36.8253 175.2373,-36.7683 175.2797,-36.7348 175.2571,-36.6383 175.2346,-36.5802 175.1494,-36.5295 175.1349,-36.5177 175.1277,-36.5006 175.125,-36.4837 175.1236,-36.4487 175.1283,-36.4388 175.3112,-36.4763 175.3757,-36.5813 175.4015,-36.669 175.5339,-36.6724 175.6108,-36.7129 175.5036,-36.7644 175.4717,-36.8025 175.4789,-36.831 175.4875,-36.8415 175.5098,-36.851 175.5288,-36.8297 175.5211,-36.813 175.5212,-36.7979 175.531,-36.7876 175.5827,-36.7833 175.6037,-36.7892 175.6173,-36.8013 175.6497,-36.8764 175.6877,-37.0258 175.6857,-37.0375 175.6677,-37.0731 175.653,-37.1311 175.6588,-37.2051 175.6901,-37.2095 175.6979,-37.2174 175.7053,-37.237 175.709,-37.2578 175.7428,-37.3757 175.7444,-37.411 175.7994,-37.4427 175.8276,-37.4603 175.859,-37.486 175.9333,-37.5784 175.8503,-37.5601 175.835,-37.554 175.8271,-37.5463 175.8349,-37.5369 175.8586,-37.5345 175.8304,-37.5042 175.789,-37.4848 175.7789,-37.4822 175.7239,-37.4788 175.712,-37.4829 175.7217,-37.5164 175.7624,-37.5965 175.8396,-37.6126 175.9126,-37.6327 176.0097,-37.6669 176.035,-37.6338 176.2553,-37.714 176.2916,-37.7291 176.3046,-37.7418 176.3167,-37.7506 176.4231,-37.8129 176.4378,-37.8196 176.4531,-37.8255 176.5254,-37.8502 176.5505,-37.8576 176.5693,-37.8605 176.586,-37.8618 176.6046,-37.8647 176.684,-37.8835 176.7098,-37.8895 176.8487,-37.9245 176.8733,-37.9442 176.925,-37.9704 177.1806,-37.9397 177.2389,-37.9197 177.3145,-37.8741 177.3369,-37.8596 177.3667,-37.8326 177.4124,-37.7624 177.4978,-37.6399 177.5087,-37.6341 177.5577,-37.6245 177.6195,-37.6146 177.6376,-37.6106 177.7653,-37.5498 177.7749,-37.5436 177.7834,-37.5085 177.8261,-37.5003 177.9529,-37.5045 178.0471,-37.5186 178.0746,-37.5284 178.0748,-37.539 178.0859,-37.5599 178.1015,-37.5759 178.1147,-37.5844 178.1327,-37.5883 178.2176,-37.6035 178.2326,-37.6043 178.2534,-37.6017 178.2654,-37.6058 178.3152,-37.6451 178.3223,-37.6533 178.3283,-37.6743 178.2475,-37.7836 178.2169,-37.8199 178.1939,-37.8341 178.184,-37.8451 178.1146,-37.9619 178.1113,-37.9724 178.1157,-37.987 178.126,-37.9977 178.1394,-38.0299 178.1417,-38.0513 178.1172,-38.1425 178.0834,-38.2049 178.081,-38.2166 178.0837,-38.3554 178.0652,-38.4854 178.061,-38.4957 177.9213,-38.6057 177.8373,-38.6702 177.8269,-38.6757 177.8102,-38.6757 177.6914,-38.6787 177.7034,-38.7499 177.686,-38.8745 177.6799,-38.8989 177.6715,-38.9256 177.6594,-39.0038 177.6555,-39.0206 177.6682,-39.0201 177.6845,-39.0451 177.7035,-39.0478 177.7291,-39.054 177.7528,-39.071 177.7594,-39.0799 177.6711,-39.2126 177.6597,-39.2233 177.6361,-39.2419 177.6258,-39.2436 177.6062,-39.2069 177.6005,-39.1927 177.5854,-39.149 177.5864,-39.1362 177.6029,-39.1086 177.5837,-39.0701 177.5826,-39.0596 177.4421,-39.0312 177.3909,-39.0272 177.1883,-39.0199 177.1501,-39.0337 177.0093,-39.0841 176.9685,-39.0994 176.9113,-39.1208 176.8172,-39.1603 176.6957,-39.3083 176.6659,-39.3534 176.6606,-39.3676 176.6604,-39.3976 176.7074,-39.6196 176.7717,-39.6104 176.8681,-39.6159 176.8795,-39.6208 176.8781,-39.6344 176.8434,-39.685 176.8314,-39.6989 176.8153,-39.7055 176.7916,-39.7153 176.7824,-39.7266 176.6542,-39.9893 176.6496,-40.0087 176.6532,-40.0411 176.6333,-40.0761 176.5932,-40.1361 176.5675,-40.1712 176.556,-40.181 176.446,-40.2758 176.4031,-40.3341 176.387,-40.3762 176.2987,-40.449 176.2802,-40.4678 176.2595,-40.4892 176.2007,-40.5543 176.1641,-40.5977 176.1448,-40.6289 176.1109,-40.6448 176.0471,-40.7478 175.9976,-40.8625 175.9794,-40.8852 175.9541,-40.8951 175.9314,-40.9058 175.9141,-40.9158 175.9009,-40.9289 175.8925,-40.9409 175.8791,-40.9671 175.8713,-40.9888 175.8568,-41.0408 175.846,-41.0696 175.8391,-41.0827 175.8206,-41.1053 175.7429,-41.1845 175.7134,-41.2086 175.5774,-41.3005 175.4984,-41.3471 175.3162,-41.4381 175.2294,-41.4943 175.186,-41.5173 175.0767,-41.5682 174.9895,-41.5738 174.9781,-41.5683 174.9435,-41.4886 174.941,-41.4722 174.9401,-41.4536 174.9476,-41.4139 174.9524,-41.3949 174.9476,-41.3807 174.8395,-41.3385 174.8224,-41.3335 174.8084,-41.3318 174.7865,-41.3348 174.7491,-41.3485 174.7323,-41.3589 174.7197,-41.3682 174.7067,-41.3812 174.6987,-41.3934 174.6731,-41.4012 174.6321,-41.3826 174.6232,-41.3753 174.6222,-41.2969 174.6305,-41.2803 174.641,-41.2654 174.6541,-41.2432 174.6585,-41.2319 174.6615,-41.2078 174.6585,-41.1878 174.6509,-41.1793 174.5831,-41.1737 174.5474,-41.1975 174.5362,-41.2122 174.5346,-41.2328 174.5559,-41.2403 174.5809,-41.24 174.5913,-41.2511 174.5908,-41.2662 174.5836,-41.2791 174.5714,-41.2883 174.5045,-41.3006 174.4602,-41.2974 174.4319,-41.2916 174.4114,-41.2839 174.3897,-41.2683 174.352,-41.2317 174.353,-41.2207 174.3614,-41.204 174.3725,-41.1878 174.3928,-41.188 174.4087,-41.1877 174.4271,-41.183 174.4413,-41.1751 174.4546,-41.1668 174.4758,-41.1505 174.5609,-41.0535 174.6044,-40.9951 174.6344,-40.9717 174.6479,-40.9676 174.6647,-40.9619 174.6922,-40.9412 174.702,-40.93 174.7066,-40.9195 174.7751,-40.8022 174.8591,-40.7095 174.8731,-40.6928 174.8812,-40.6809 174.8882,-40.6674 174.9248,-40.5857 174.9304,-40.5709 174.9326,-40.5636 174.948,-40.4848 174.9989,-40.2839 174.9925,-40.2351 174.9629,-40.1362 174.9577,-40.1213 174.9396,-40.0888 174.917,-40.0505 174.8339,-39.9578 174.818,-39.9427 174.7849,-39.913 174.7489,-39.885 174.7369,-39.8756 174.7235,-39.8675 174.7018,-39.8572 174.6859,-39.8509 174.5956,-39.8187 174.5542,-39.8098 174.5443,-39.8079 174.5146,-39.8207 174.5039,-39.8218 174.4931,-39.821 174.3397,-39.7842 174.3217,-39.7797 174.3095,-39.7756 174.2876,-39.7601 174.1856,-39.6822 174.1749,-39.6719 174.1406,-39.6339 174.1158,-39.5926 174.1014,-39.5808 174.077,-39.5674 173.9781,-39.5336 173.8059,-39.5082 173.763,-39.5068 173.7524,-39.5059 173.732,-39.4988 173.6369,-39.4387 173.6175,-39.426 173.6059,-39.4167 173.5767,-39.3929 173.5612,-39.3774 173.5526,-39.3654 173.5419,-39.3462 173.5358,-39.3324 173.5285,-39.3104 173.5209,-39.2608 173.5185,-39.2444 173.5182,-39.2257 173.5503,-39.1439 173.5672,-39.125 173.5968,-39.1015 173.6114,-39.0943 173.6348,-39.0846 173.6594,-39.0763 173.7778,-39.0294 173.8816,-38.9804 173.9545,-38.9446 173.976,-38.9332 173.9933,-38.9285 174.0149,-38.9266 174.0267,-38.9261 174.0481,-38.926 174.0596,-38.9259 174.0798,-38.9287 174.1181,-38.9355 174.1419,-38.9351 174.1555,-38.932 174.223,-38.8965 174.3129,-38.8279 174.3245,-38.8165 174.3347,-38.8063 174.3546,-38.785 174.3613,-38.772 174.3702,-38.7425 174.3755,-38.7195 174.3925,-38.6343 174.41,-38.5471 174.449,-38.3357 174.4927,-38.1427 174.6067,-38.1143 174.6204,-38.1125 174.6977,-38.0707 174.7086,-38.0583 174.6669,-38.0319 174.6458,-38.0211 174.6616,-37.9302 174.6371,-37.9008 174.6269,-37.8994 174.6033,-37.9209 174.5981,-37.9299 174.5974,-37.9523 174.5875,-37.9582 174.5695,-37.9573 174.5574,-37.9481 174.5527,-37.9333 174.5577,-37.8215 174.5624,-37.807 174.5921,-37.7847 174.6106,-37.7758 174.6417,-37.7634 174.6525,-37.7623 174.6719,-37.765 174.7143,-37.7679 174.7405,-37.7651 174.7442,-37.7075 174.7398,-37.6979 174.7169,-37.7014 174.6998,-37.7098 174.6762,-37.7317 174.6352,-37.7413 174.6174,-37.7271 174.5975,-37.6681 174.534,-37.4853 174.5144,-37.4454 174.495,-37.4051 174.4875,-37.3829 174.4848,-37.3618 174.4927,-37.3497 174.5147,-37.3438 174.5307,-37.3382 174.5406,-37.3319 174.6019,-37.266 174.6111,-37.2522 174.6004,-37.2483 174.5876,-37.2506 174.5715,-37.2564 174.5364,-37.2792 174.5235,-37.2916 174.5131,-37.3199 174.499,-37.3265 174.4845,-37.3206 174.4719,-37.3077 174.4647,-37.295 174.4306,-37.2313 174.4165,-37.1944 174.4105,-37.1824 174.3707,-37.1121 174.3495,-37.0735 174.3412,-37.0616 174.3267,-37.0455 174.322,-37.0352 174.3271,-37.023 174.34,-37.0196 174.415,-37.0193 174.434,-37.0269 174.4353,-37.0412 174.4198,-37.0581 174.4744,-37.156 174.5044,-37.1541 174.4907,-37.1103 174.6499,-37.047 174.6583,-37.0175 174.5664,-36.9814 174.5754,-36.9307 174.5959,-36.9191 174.6021,-36.9102 174.5945,-36.9007 174.5415,-36.8951 174.468,-36.8982 174.4572,-36.899 174.4278,-36.9077 174.4129,-36.9193 174.3939,-36.9405 174.3893,-36.9506 174.3718,-36.9806 174.2959,-37.0036 174.2834,-37.0018 174.2714,-36.9929 174.2623,-36.9774 174.256,-36.9638 174.2307,-36.9022 174.2235,-36.8822 174.2185,-36.8677 174.2145,-36.8519 174.211,-36.827 174.2084,-36.8106 174.2058,-36.7942 174.1996,-36.7713 174.1946,-36.7566 174.1886,-36.7428 174.18,-36.7268 174.1624,-36.699 174.1164,-36.638 174.0733,-36.5859 174.0574,-36.5715 174.0399,-36.5578 174.0095,-36.5268 173.9815,-36.494 173.9605,-36.4558 173.9507,-36.4219 173.9526,-36.4051 173.9601,-36.3927 173.9739,-36.387 174.0167,-36.3996 174.0275,-36.4046 174.0729,-36.4747 174.1213,-36.5606 174.1417,-36.5896 174.1984,-36.6264 174.2269,-36.6064 174.2378,-36.5415 174.2377,-36.4912 174.215,-36.3738 174.1932,-36.3274 174.1646,-36.3541 174.1536,-36.3592 174.073,-36.3524 174.058,-36.3415 174.0496,-36.3297 174.043,-36.3166 174.0415,-36.3047 174.0649,-36.276 174.0769,-36.2745 174.1029,-36.2901 174.1455,-36.2901 174.1941,-36.2697 174.2798,-36.2264 174.2922,-36.2125 174.2781,-36.1906 174.1863,-36.2223 174.151,-36.2456 174.1376,-36.2534 174.1193,-36.2571 174.1093,-36.2578 174.0782,-36.2465 174.1382,-36.2191 174.2151,-36.1289 174.1692,-36.1038 174.1684,-36.1146 174.1447,-36.169 174.1318,-36.1812 174.1183,-36.189 174.1079,-36.1902 174.0808,-36.136 174.0521,-36.0791 174.0125,-36.0706 174.0026,-36.0717 173.9684,-36.0903 173.9617,-36.1033 173.959,-36.1312 173.968,-36.1374 173.9954,-36.1417 174.0133,-36.1412 174.0607,-36.1694 174.0867,-36.1994 174.0403,-36.2294 174.0283,-36.2317 173.8391,-36.1277 173.7728,-36.0802 173.7665,-36.0721 173.7051,-35.9413 173.7125,-35.8943 173.7213,-35.8834 173.7211,-35.8714 173.6853,-35.8317 173.6786,-35.8438 173.6952,-35.9626 173.7546,-36.0807 173.7636,-36.0963 173.8977,-36.2226 173.9514,-36.2388 173.9722,-36.307 173.9708,-36.3277 173.9647,-36.3365 173.8882,-36.3625 173.8631,-36.3703 173.8539,-36.3683 173.8408,-36.356 173.8304,-36.3335 173.8221,-36.3125 173.8178,-36.2978 173.813,-36.2823 173.8043,-36.252 173.7937,-36.2329 173.6001,-35.9918 173.5116,-35.8932 173.5012,-35.8833 173.3652,-35.7379 173.1724,-35.5305 173.1741,-35.5134 173.2218,-35.4002 173.2412,-35.3891 173.2794,-35.3826 173.3152,-35.3909 173.4051,-35.317 173.4307,-35.2782 173.3395,-35.2382 173.3291,-35.2437 173.3251,-35.2631 173.326,-35.2852 173.342,-35.3042 173.3431,-35.3217 173.3381,-35.3312 173.2151,-35.3363 173.1883,-35.3469 173.1667,-35.383 173.1709,-35.4139 173.1682,-35.4427 173.1569,-35.4846 173.0825,-35.4091 173.0135,-35.3305 172.93,-35.237 172.8792,-35.1864 172.8657,-35.1744 172.8713,-35.1458 172.895,-35.1459 172.9072,-35.1495 172.9246,-35.1509 172.9421,-35.1369 172.9569,-35.1163 172.9634,-35.1037 172.9678,-35.0886 172.9727,-35.0608 172.9745,-35.0392 172.9745,-35.0116 172.9697,-34.9879 172.9654,-34.9733 172.9534,-34.9507 172.9347,-34.919 172.9268,-34.9073 172.9134,-34.8906 172.7229,-34.678 172.6042,-34.5456 172.5883,-34.5298 172.4987,-34.4564 172.5151,-34.397 172.6765,-34.3759 172.6878,-34.3761 172.7965,-34.3833 172.8147,-34.3982 172.8175,-34.4812 172.8044,-34.4878 172.7878,-34.4889 172.773,-34.4596 172.76,-34.434 172.7344,-34.4281 172.6865,-34.5079 172.6999,-34.5201 172.7121,-34.5283 172.7487,-34.5421 172.8289,-34.6264 172.8334,-34.6412 172.8863,-34.7523 172.8965,-34.7712 172.9042,-34.7833 172.9114,-34.791 172.9278,-34.8007 172.9891,-34.8325 172.9891,-34.8325 57,9.5,Australia 137.7321,-35.689 137.7833,-35.6941 137.8491,-35.708 137.8835,-35.7228 137.9325,-35.7772 137.9332,-35.8292 137.8609,-35.8824 137.8005,-35.8658 137.777,-35.8494 137.7418,-35.835 137.6446,-35.8278 137.6139,-35.8256 137.5822,-35.8256 137.4408,-35.8793 137.4225,-35.9002 137.4315,-35.9345 137.4357,-35.9691 137.4073,-35.9925 137.3121,-36.0346 137.2765,-36.0448 137.2155,-35.9997 137.1789,-35.9638 137.0477,-35.9435 137.011,-35.9533 137.0001,-35.99 136.9719,-36.0034 136.8533,-35.995 136.7215,-36.0115 136.567,-36.0203 136.5344,-36.0161 136.5025,-35.9725 136.4345,-35.9204 136.4032,-35.9036 136.3612,-35.8772 136.3566,-35.8418 136.4039,-35.7291 136.733,-35.6488 136.7696,-35.6408 136.8263,-35.6384 136.8482,-35.6402 136.8889,-35.6349 136.9426,-35.6219 137.0493,-35.5844 137.1391,-35.5507 137.1595,-35.5487 137.3479,-35.5646 137.4063,-35.6107 137.4052,-35.6914 137.4194,-35.7066 137.5145,-35.7171 137.6125,-35.763 137.6506,-35.7716 137.6717,-35.7663 137.6904,-35.7541 137.7109,-35.7287 137.7321,-35.689 137.7321,-35.689 14,13.0,New Zealand 175.2941,-36.3072 175.2846,-36.3059 175.2356,-36.2795 175.1303,-36.1886 175.1314,-36.0518 175.1366,-36.0379 175.1477,-36.0285 175.1608,-36.025 175.1851,-36.0278 175.301,-36.1379 175.3308,-36.278 175.3137,-36.3094 175.2941,-36.3072 175.2941,-36.3072 11,13.0,New Zealand 174.9402,-36.7878 174.9357,-36.7925 174.8598,-36.7921 174.7784,-36.7614 174.7735,-36.7513 174.7849,-36.7274 174.9601,-36.6871 174.9831,-36.7149 174.9568,-36.7797 174.9402,-36.7878 174.9402,-36.7878 18,10.0,Australia 145.1625,-38.3876 145.1387,-38.3842 145.0906,-38.3656 145.0805,-38.3311 145.078,-38.3199 145.1028,-38.2555 145.1128,-38.2537 145.2626,-38.2817 145.2937,-38.3088 145.3034,-38.3192 145.3012,-38.3292 145.2921,-38.3334 145.2693,-38.3314 145.2282,-38.334 145.2152,-38.3412 145.1702,-38.3798 145.1625,-38.3876 145.1625,-38.3876 23,10.0,Australia 145.1606,-38.5266 145.1426,-38.5087 145.1265,-38.4941 145.1167,-38.489 145.1051,-38.4843 145.0779,-38.4772 145.0618,-38.4771 145.0476,-38.4792 145.0354,-38.4822 144.9891,-38.4861 144.9238,-38.4878 144.9271,-38.4772 144.9685,-38.4409 144.9865,-38.4283 144.9973,-38.4234 145.0095,-38.42 145.0716,-38.4107 145.0898,-38.4093 145.0998,-38.4118 145.1163,-38.4226 145.1692,-38.5233 145.1606,-38.5266 145.1606,-38.5266 17,-3.0,Argentina -61.81,-39.1995 -61.8205,-39.1974 -61.9776,-39.1225 -62.0072,-39.0764 -62.0127,-39.0675 -62.0149,-39.0534 -62.0088,-39.0436 -61.9956,-39.044 -61.874,-39.0715 -61.8609,-39.0759 -61.8069,-39.0961 -61.7933,-39.1203 -61.7763,-39.1739 -61.7802,-39.1913 -61.7955,-39.198 -61.81,-39.1995 -61.81,-39.1995 38,10.0,Australia 143.7255,-40.0911 143.7178,-40.0894 143.6903,-40.0712 143.6779,-40.0195 143.6965,-40.0088 143.6967,-39.9396 143.6905,-39.925 143.6755,-39.9119 143.6566,-39.9002 143.6453,-39.8918 143.6396,-39.8823 143.643,-39.8282 143.6606,-39.6671 143.6767,-39.6556 143.7051,-39.6436 143.7223,-39.6356 143.7314,-39.6292 143.739,-39.6223 143.7471,-39.6108 143.7513,-39.5961 143.7495,-39.584 143.7412,-39.5638 143.7377,-39.5535 143.7412,-39.5382 143.7832,-39.5294 143.7936,-39.5324 143.8723,-39.5713 143.9141,-39.6178 143.9175,-39.6282 143.9271,-39.7671 143.9271,-39.7801 143.9509,-39.8843 143.9412,-39.9392 143.9101,-39.9909 143.8128,-40.0423 143.7616,-40.0644 143.7255,-40.0911 143.7255,-40.0911 33,10.0,Australia 147.9267,-40.2287 147.9133,-40.2261 147.8991,-40.2216 147.8625,-40.2085 147.8473,-40.1999 147.837,-40.1908 147.8117,-40.1161 147.8169,-40.0946 147.7033,-39.9306 147.6092,-39.8686 147.5734,-39.8498 147.5604,-39.8328 147.5839,-39.8053 147.6819,-39.7092 147.7258,-39.6927 147.7675,-39.6805 147.7709,-39.6916 147.778,-39.6999 147.8688,-39.794 147.9648,-39.8845 147.9733,-39.8909 147.9859,-39.8995 148.0019,-39.9051 148.0428,-39.9169 148.0783,-39.9205 148.0868,-39.9496 148.1331,-40.1467 148.1293,-40.1735 148.1192,-40.1864 148.1012,-40.1936 147.9754,-40.2114 147.9267,-40.2287 147.9267,-40.2287 36,10.0,Australia 148.1365,-40.4574 148.137,-40.4212 148.1336,-40.4088 148.1274,-40.3973 148.1159,-40.3894 148.0896,-40.3885 147.9279,-40.4013 147.9126,-40.4031 147.9016,-40.4087 147.8846,-40.4124 147.8663,-40.4089 147.795,-40.3823 147.7915,-40.3714 147.7935,-40.3558 147.7964,-40.3439 147.8061,-40.3336 147.8632,-40.3023 147.8815,-40.2992 147.897,-40.2977 147.9149,-40.298 147.9311,-40.2992 147.9462,-40.3014 147.9854,-40.3167 148.0003,-40.3154 148.0856,-40.2792 148.1067,-40.2685 148.1269,-40.2594 148.1407,-40.2612 148.1524,-40.2698 148.2764,-40.3848 148.2744,-40.3957 148.2607,-40.3964 148.2049,-40.416 148.1556,-40.4448 148.1365,-40.4574 148.1365,-40.4574 645,13.0,New Zealand 174.0058,-41.2774 173.9925,-41.2812 173.9692,-41.2825 173.9541,-41.2735 173.9125,-41.26 173.8723,-41.2897 173.8117,-41.3775 173.8057,-41.3995 173.8106,-41.4195 173.8242,-41.4458 173.8445,-41.4789 173.857,-41.4681 173.8649,-41.4603 173.8751,-41.4666 173.886,-41.4768 173.9112,-41.5042 173.9377,-41.5353 173.9397,-41.5513 173.9344,-41.5613 173.9204,-41.5736 173.953,-41.6381 174.0494,-41.6903 174.049,-41.701 174.043,-41.7147 173.9961,-41.7899 173.9719,-41.8178 173.9611,-41.8282 173.9407,-41.8452 173.9208,-41.8578 173.9033,-41.8681 173.8481,-41.91 173.7687,-41.9798 173.7395,-42.0135 173.7249,-42.039 173.7188,-42.0532 173.7133,-42.0717 173.7133,-42.0856 173.7161,-42.1184 173.6902,-42.1517 173.6405,-42.1977 173.6264,-42.2057 173.5944,-42.2234 173.5577,-42.2473 173.3281,-42.4287 173.3182,-42.4395 173.3008,-42.4635 173.2924,-42.4803 173.2605,-42.5514 173.2403,-42.5735 173.2257,-42.6085 173.2196,-42.6222 173.2083,-42.6416 173.1472,-42.745 173.1111,-42.7921 173.0874,-42.854 173.0851,-42.8649 173.0447,-42.9093 172.8624,-43.0105 172.8499,-43.0156 172.7859,-43.0331 172.7353,-43.0421 172.7128,-43.0437 172.6952,-43.0494 172.6797,-43.0567 172.5976,-43.099 172.5776,-43.1118 172.5574,-43.134 172.532,-43.1706 172.519,-43.1937 172.4864,-43.3701 172.5348,-43.5625 172.653,-43.57 172.6647,-43.5712 172.8183,-43.6032 172.8618,-43.6507 172.8731,-43.6917 172.8753,-43.7164 172.8701,-43.7792 172.85,-43.8066 172.8172,-43.8212 172.7602,-43.8176 172.7494,-43.7996 172.7239,-43.7524 172.7189,-43.7108 172.7102,-43.7055 172.6987,-43.7065 172.6834,-43.719 172.6793,-43.7787 172.6793,-43.8228 172.6928,-43.8347 172.6973,-43.8443 172.6248,-43.853 172.567,-43.8304 172.5022,-43.7851 172.4957,-43.7761 172.4742,-43.7586 172.4019,-43.7226 172.2724,-43.6795 172.2548,-43.674 172.2429,-43.6732 172.2318,-43.6738 172.1844,-43.6837 172.1727,-43.6939 172.1498,-43.7143 172.1447,-43.729 172.1421,-43.7451 172.1434,-43.7669 172.1535,-43.8047 172.1464,-43.8133 172.1267,-43.8178 172.0568,-43.8312 172.0464,-43.8333 172.0352,-43.8338 171.9493,-43.8591 171.8107,-43.9153 171.7386,-43.9459 171.7151,-43.9566 171.7008,-43.9649 171.5424,-44.0268 171.4147,-44.0722 171.3436,-44.1036 171.3074,-44.1238 171.2987,-44.1283 171.1158,-44.2349 171.1049,-44.2435 171.0802,-44.2659 171.0539,-44.293 171.0458,-44.3058 171.0389,-44.3196 171.0307,-44.3369 171.0375,-44.3488 171.0383,-44.3742 171.0357,-44.3868 171.0303,-44.4014 171.0236,-44.4149 171.0152,-44.4277 170.9719,-44.4846 170.9609,-44.4905 170.9564,-44.5094 170.9526,-44.5951 170.9531,-44.6123 170.965,-44.6493 170.9749,-44.6924 170.967,-44.8002 170.9571,-44.8724 170.9452,-44.8873 170.9419,-44.8904 170.935,-44.8988 170.9264,-44.9118 170.9246,-44.9192 170.9231,-44.9269 170.9095,-44.9454 170.8409,-45.0158 170.7879,-45.0517 170.7367,-45.0996 170.725,-45.1147 170.6826,-45.1915 170.6341,-45.3107 170.6376,-45.3219 170.6321,-45.3721 170.6184,-45.4388 170.5108,-45.5676 170.4348,-45.6928 170.3771,-45.787 170.3166,-45.8324 170.3156,-45.8434 170.3556,-45.8404 170.3685,-45.8355 170.4184,-45.806 170.4815,-45.7627 170.5373,-45.7321 170.5506,-45.7547 170.5506,-45.794 170.5485,-45.8113 170.5396,-45.828 170.4597,-45.8593 170.4243,-45.8557 170.3331,-45.864 170.3104,-45.8665 170.2445,-45.8744 170.2126,-45.8793 170.1844,-45.8868 170.1428,-45.9034 170.1025,-45.9211 170.0725,-45.9414 170.0546,-45.9612 170.0418,-45.9767 170.0235,-45.9991 170.0163,-46.0129 170.0127,-46.0336 170.0134,-46.059 169.999,-46.0977 169.9866,-46.1122 169.9741,-46.122 169.9537,-46.1352 169.9293,-46.1458 169.8278,-46.1935 169.672,-46.2871 169.6207,-46.3208 169.6093,-46.3361 169.6077,-46.3639 169.6107,-46.3838 169.612,-46.408 169.605,-46.4169 169.4615,-46.5047 169.3909,-46.5284 169.2178,-46.5698 169.0264,-46.6031 168.8932,-46.6173 168.868,-46.6156 168.8575,-46.6134 168.8448,-46.6039 168.8277,-46.5817 168.8183,-46.6233 168.7684,-46.6273 168.6414,-46.6112 168.623,-46.5703 168.6255,-46.5541 168.6012,-46.5088 168.5849,-46.5078 168.4943,-46.5242 168.3979,-46.5519 168.3759,-46.5575 168.3541,-46.5609 168.3299,-46.5616 168.278,-46.5606 168.2538,-46.56 168.2005,-46.5473 168.208,-46.5308 168.2035,-46.5218 168.2158,-46.521 168.2517,-46.5198 168.2645,-46.5279 168.3126,-46.541 168.325,-46.5313 168.3076,-46.5157 168.1528,-46.4868 168.1193,-46.4929 168.1133,-46.5071 168.1241,-46.5305 168.112,-46.53 168.1238,-46.5358 168.1258,-46.5485 168.1129,-46.5499 168.0371,-46.5046 168.0303,-46.4792 168.0431,-46.4712 168.0694,-46.4671 168.0802,-46.4716 168.0865,-46.4854 168.1012,-46.4857 168.1511,-46.4419 168.1576,-46.4281 168.1557,-46.4171 168.1331,-46.3658 168.1169,-46.3629 168.0124,-46.3475 167.9708,-46.3001 167.9525,-46.2908 167.9375,-46.2873 167.8786,-46.2907 167.8262,-46.2987 167.7182,-46.3184 167.6555,-46.334 167.6134,-46.3463 167.5908,-46.3434 167.517,-46.2807 167.5421,-46.2565 167.5453,-46.2416 167.5409,-46.2312 167.4653,-46.1567 167.3604,-46.1135 167.3201,-46.1035 167.31,-46.1014 167.298,-46.1 167.2468,-46.0968 167.235,-46.0971 167.2199,-46.1001 167.2099,-46.1072 167.1793,-46.1517 167.1204,-46.2014 167.0439,-46.2202 167.0249,-46.2147 167.0024,-46.2109 166.8509,-46.1875 166.7656,-46.1762 166.7304,-46.1716 166.7145,-46.1709 166.6797,-46.173 166.6474,-46.177 166.6007,-46.1794 166.5874,-46.1789 166.5326,-46.1707 166.4866,-46.1594 166.4699,-46.1484 166.4354,-46.1049 166.4539,-46.0911 166.4744,-46.0825 166.5037,-46.0665 166.5263,-46.0407 166.5499,-46.0124 166.5696,-45.9804 166.5951,-45.9511 166.6198,-45.9414 166.652,-45.9377 166.7095,-45.8967 166.6947,-45.8945 166.5973,-45.9304 166.5537,-45.9548 166.5461,-45.9636 166.5263,-45.9929 166.5046,-46.0134 166.4357,-46.0345 166.3797,-46.036 166.3845,-46.0035 166.406,-45.9623 166.4271,-45.9394 166.3911,-45.9148 166.2541,-45.9609 166.2405,-45.9502 166.2319,-45.9342 166.2308,-45.7869 166.2366,-45.7671 166.2428,-45.7575 166.3033,-45.7465 166.3797,-45.7486 166.4181,-45.7478 166.4658,-45.7464 166.6517,-45.7264 166.7395,-45.6827 166.7527,-45.6573 166.6888,-45.6537 166.6782,-45.653 166.6531,-45.6529 166.62,-45.6556 166.5915,-45.6626 166.5753,-45.6689 166.5531,-45.6377 166.5418,-45.6105 166.5789,-45.559 166.6355,-45.5366 166.65,-45.5335 166.6642,-45.5342 166.6788,-45.5387 166.7462,-45.5264 166.7618,-45.5265 166.7717,-45.5197 166.7983,-45.4758 166.8073,-45.4494 166.7554,-45.4672 166.6577,-45.4927 166.5599,-45.5181 166.547,-45.5192 166.4737,-45.5247 166.4643,-45.4986 166.5237,-45.3735 166.5678,-45.3016 166.5881,-45.2687 166.6354,-45.2279 166.6475,-45.2275 166.7744,-45.2897 166.8044,-45.3059 166.9128,-45.3754 166.9344,-45.4206 166.9711,-45.4259 166.9786,-45.4192 166.9752,-45.4093 166.9394,-45.3708 166.9241,-45.3546 166.8981,-45.3318 166.8816,-45.3205 166.8637,-45.3143 166.8535,-45.3116 166.828,-45.2931 166.8174,-45.2814 166.849,-45.2718 166.861,-45.2636 166.8802,-45.2586 166.937,-45.2534 166.9435,-45.2621 166.9816,-45.2642 167.0018,-45.2772 167.0144,-45.2824 167.026,-45.2842 167.0368,-45.2827 167.0716,-45.2758 167.0697,-45.2648 166.9606,-45.2198 166.9043,-45.2171 166.8595,-45.2184 166.7687,-45.1495 166.7634,-45.0941 166.9119,-44.9503 166.9671,-44.9023 166.9937,-44.8798 167.0067,-44.8701 167.0296,-44.8541 167.0823,-44.8222 167.1655,-44.8119 167.1877,-44.8451 167.1847,-44.8592 167.2055,-44.8817 167.207,-44.8939 167.2247,-44.9436 167.2713,-44.9488 167.2762,-44.9355 167.2441,-44.8521 167.2294,-44.8212 167.226,-44.8074 167.2249,-44.7901 167.2161,-44.7409 167.224,-44.7327 167.3649,-44.6331 167.5082,-44.5608 167.6038,-44.4481 167.6154,-44.4375 167.7148,-44.353 167.7287,-44.3446 167.8001,-44.3031 167.8929,-44.2664 167.9081,-44.2541 167.9091,-44.2419 167.889,-44.201 167.9083,-44.2026 167.9184,-44.2009 167.9346,-44.1942 168.056,-44.1198 168.1032,-44.0701 168.1009,-44.0557 168.101,-44.0441 168.1372,-43.9906 168.1477,-43.9844 168.1676,-43.9797 168.439,-43.9408 168.4512,-43.9501 168.4836,-43.9621 168.5181,-43.9601 168.5285,-43.9584 168.5888,-43.9383 168.6267,-43.9249 168.6467,-43.9116 168.7261,-43.8535 168.845,-43.7985 168.9064,-43.7444 168.9884,-43.6937 169.0356,-43.6729 169.1513,-43.6296 169.255,-43.594 169.3027,-43.5839 169.3902,-43.5643 169.4124,-43.5576 169.4239,-43.5522 169.4883,-43.5215 169.5027,-43.5084 169.5309,-43.4733 169.554,-43.4471 169.6344,-43.3572 169.6476,-43.3486 169.725,-43.3226 169.7887,-43.3007 169.7991,-43.2901 169.8128,-43.2578 169.8749,-43.205 170.0514,-43.0589 170.1811,-43.0037 170.2906,-42.9605 170.3459,-42.9415 170.4373,-42.9099 170.4673,-42.8972 170.5136,-42.8761 170.544,-42.8617 170.557,-42.8525 170.8288,-42.5997 170.871,-42.5598 170.9143,-42.5122 170.9588,-42.4285 170.9888,-42.3855 170.9934,-42.3606 170.9988,-42.3459 171.0104,-42.327 171.0231,-42.3178 171.0336,-42.3069 171.0608,-42.2621 171.0673,-42.2487 171.0726,-42.234 171.0798,-42.2019 171.0843,-42.1766 171.0859,-42.1593 171.0877,-42.1417 171.0897,-42.1243 171.0924,-42.1081 171.1071,-42.063 171.1244,-42.0201 171.2251,-41.8124 171.2742,-41.717 171.2965,-41.7189 171.3212,-41.7193 171.3325,-41.7187 171.4141,-41.714 171.4264,-41.7103 171.4493,-41.6995 171.5538,-41.6491 171.6183,-41.6057 171.6501,-41.5829 171.7054,-41.5031 171.786,-41.3961 171.8172,-41.3704 171.8285,-41.3566 171.8857,-41.231 171.8752,-41.1893 171.869,-41.1065 171.8703,-40.8651 171.872,-40.8428 171.8782,-40.8338 171.9509,-40.7669 171.9828,-40.7396 171.9888,-40.7348 172.0239,-40.7294 172.0355,-40.7242 172.0637,-40.7089 172.1124,-40.6813 172.1468,-40.6521 172.1911,-40.6119 172.2425,-40.5679 172.2844,-40.5573 172.2843,-40.5823 172.2941,-40.5862 172.3361,-40.5718 172.3605,-40.5555 172.3937,-40.5247 172.3957,-40.5139 172.3689,-40.5119 172.3573,-40.5101 172.3464,-40.509 172.3541,-40.4953 172.3945,-40.4646 172.4257,-40.4571 172.4762,-40.4495 172.5815,-40.4583 172.6254,-40.4617 172.752,-40.485 172.7415,-40.488 172.7089,-40.4851 172.659,-40.4785 172.5611,-40.4702 172.4998,-40.4724 172.4208,-40.6072 172.4652,-40.7023 172.6241,-40.8067 172.6385,-40.8047 172.6705,-40.7827 172.696,-40.7533 172.7442,-40.7355 172.7684,-40.7427 172.7764,-40.7503 172.7837,-40.7636 172.8141,-40.8232 172.8223,-40.9208 172.8189,-40.9323 172.7944,-40.9811 172.84,-41.2475 172.8479,-41.2553 172.8675,-41.2663 172.9302,-41.2692 172.9508,-41.2665 172.9652,-41.263 173.0373,-41.2254 173.088,-41.1759 173.1025,-41.1592 173.1134,-41.1489 173.139,-41.1315 173.188,-41.1038 173.3641,-41.0064 173.4014,-41.0271 173.4347,-41.0239 173.4858,-41.0116 173.5018,-41.0006 173.5057,-40.982 173.4999,-40.9721 173.4851,-40.9744 173.4557,-40.9896 173.441,-40.9924 173.436,-40.9785 173.4403,-40.968 173.4585,-40.954 173.5132,-40.9303 173.5619,-40.9229 173.6748,-40.8851 173.7512,-40.8506 173.7869,-40.8693 173.7918,-40.884 173.7874,-40.8988 173.6914,-40.9458 173.5937,-40.9487 173.5829,-40.9478 173.5422,-40.9658 173.5312,-41.052 173.5402,-41.0679 173.556,-41.0628 173.5838,-41.0341 173.5833,-41.0158 173.6032,-41.0073 173.6923,-41.0028 173.7114,-41.0117 173.6791,-41.041 173.649,-41.0569 173.6102,-41.0976 173.5818,-41.1992 173.5232,-41.2235 173.5371,-41.2428 173.5494,-41.2438 173.5674,-41.2427 173.7983,-41.1717 173.8608,-41.1516 173.8915,-41.1329 173.7658,-41.1303 173.7619,-41.1438 173.7539,-41.1516 173.7431,-41.1529 173.694,-41.1532 173.6651,-41.152 173.655,-41.146 173.6477,-41.1192 173.6492,-41.1074 173.6616,-41.0843 173.7943,-40.9532 173.8504,-40.976 174.0073,-40.998 174.0192,-40.9888 174.0604,-40.957 174.0805,-40.9555 174.0835,-40.968 173.9707,-41.1507 173.9177,-41.1793 173.8757,-41.1845 173.8133,-41.1881 173.7877,-41.1893 173.8148,-41.2075 173.9714,-41.2214 174.0522,-41.1921 174.064,-41.1829 174.0843,-41.1748 174.049,-41.2301 174.0058,-41.2774 174.0058,-41.2774 10,10.0,Australia 144.6907,-40.6831 144.6802,-40.68 144.6727,-40.6734 144.6677,-40.6252 144.7282,-40.5712 144.7949,-40.6204 144.8176,-40.6496 144.7282,-40.6764 144.6907,-40.6831 144.6907,-40.6831 15,13.0,New Zealand 173.5467,-40.865 173.5611,-40.8333 173.5711,-40.7697 173.5842,-40.7201 173.5914,-40.7114 173.7221,-40.6635 173.7282,-40.672 173.7291,-40.6935 173.7211,-40.7488 173.6854,-40.8196 173.5677,-40.8814 173.5454,-40.886 173.5392,-40.8771 173.5467,-40.865 173.5467,-40.865 260,10.0,Australia 146.7119,-43.5683 146.6586,-43.5868 146.6287,-43.5984 146.6104,-43.5683 146.5658,-43.5611 146.482,-43.5538 146.3953,-43.5067 146.3101,-43.4934 146.0924,-43.4853 146.0715,-43.4744 146.0564,-43.4457 146.0277,-43.4394 145.9068,-43.4659 145.8348,-43.4485 145.7296,-43.3268 145.7889,-43.2964 145.8994,-43.3086 145.953,-43.3302 146.0291,-43.3417 146.031,-43.2758 145.96,-43.2333 145.9362,-43.2653 145.9214,-43.2841 145.6557,-43.2594 145.634,-43.248 145.5562,-43.1355 145.5243,-43.0842 145.3929,-42.9305 145.3715,-42.9149 145.3452,-42.9127 145.3094,-42.9167 145.2576,-42.8555 145.2213,-42.7978 145.1961,-42.7271 145.1522,-42.6099 145.1092,-42.575 145.0585,-42.564 145.0304,-42.4082 144.9967,-42.2653 145.0044,-42.2089 145.023,-42.1912 145.0491,-42.2267 145.1218,-42.2719 145.1769,-42.301 145.2249,-42.3265 145.2385,-42.3506 145.2441,-42.4093 145.2574,-42.4575 145.2678,-42.4746 145.2738,-42.4719 145.3508,-42.3029 145.2982,-42.2754 145.2572,-42.2785 145.0793,-42.1334 145.0599,-42.0922 145.0644,-42.0634 145.0622,-42.0323 145.0472,-41.987 144.9841,-41.8908 144.8548,-41.7991 144.7553,-41.6661 144.659,-41.4973 144.5826,-41.3436 144.5328,-41.2591 144.487,-41.17 144.4968,-41.1343 144.4695,-41.0286 144.4553,-41.0005 144.4388,-40.9855 144.4206,-40.8847 144.4505,-40.855 144.4823,-40.8498 144.5016,-40.8291 144.5105,-40.7792 144.5035,-40.7129 144.564,-40.6819 144.7877,-40.7024 144.8374,-40.7331 144.8816,-40.7642 144.9178,-40.776 145.0761,-40.7565 145.1366,-40.7958 145.3398,-40.8463 145.5514,-40.9412 145.6723,-40.9962 145.9688,-41.1034 145.9927,-41.1101 146.0282,-41.1137 146.1687,-41.1243 146.2045,-41.1248 146.2492,-41.1181 146.2982,-41.1033 146.3635,-41.1287 146.3848,-41.14 146.3808,-41.1048 146.4591,-41.0421 146.5303,-41.0231 146.5627,-41.0264 146.5831,-41.0356 146.5998,-41.061 146.6051,-41.1016 146.6576,-41.1215 146.7411,-41.12 146.7115,-41.088 146.6781,-41.0803 146.6415,-41.0765 146.6216,-41.0617 146.6175,-41.0133 146.6623,-40.9819 146.8157,-40.9295 146.8843,-40.9454 146.9042,-40.9515 146.9229,-40.9584 146.9456,-40.9625 146.9698,-40.9624 146.9973,-40.9559 147.154,-40.9298 147.2142,-40.9712 147.2597,-40.9548 147.286,-40.9387 147.3152,-40.907 147.3393,-40.8777 147.3711,-40.8327 147.3871,-40.8068 147.4095,-40.796 147.4728,-40.7846 147.4966,-40.8111 147.6007,-40.8464 147.6355,-40.8448 147.6737,-40.8324 147.6991,-40.8167 147.719,-40.7944 147.7312,-40.7757 147.7418,-40.7492 147.7488,-40.7153 147.7692,-40.6986 147.8116,-40.6999 147.8767,-40.7227 148.0182,-40.8029 148.0703,-40.8548 148.1042,-40.9109 148.1157,-40.9259 148.1251,-40.9489 148.0989,-41.0289 148.0866,-41.061 148.0762,-41.0842 148.0608,-41.1205 148.0682,-41.1718 148.11,-41.2125 148.1129,-41.2877 148.0836,-41.3768 148.0699,-41.4072 148.0764,-41.4922 148.0924,-41.5186 148.1081,-41.544 148.1099,-41.5656 148.0878,-41.6814 148.0666,-41.7354 148.0601,-41.7671 148.0934,-41.9872 148.1065,-42.0158 148.1292,-42.0398 148.1537,-42.0609 148.1586,-42.1744 148.1415,-42.2012 148.1195,-42.2226 148.1058,-42.2299 148.0977,-42.2284 148.0701,-42.2074 148.0659,-42.1838 148.0926,-42.1582 148.1047,-42.0928 148.0342,-41.9505 147.9907,-41.8978 147.8745,-42.0696 147.799,-42.4743 147.7538,-42.5081 147.7389,-42.5655 147.7504,-42.618 147.7496,-42.6689 147.7196,-42.6927 147.6936,-42.708 147.6781,-42.7235 147.6375,-42.824 147.6513,-42.8401 147.6946,-42.8378 147.6767,-42.8085 147.7056,-42.7921 147.7689,-42.8207 147.7943,-42.8585 147.7993,-42.928 147.7615,-42.9464 147.7457,-43.0332 147.7734,-43.0776 147.7989,-43.1218 147.7895,-43.1785 147.7649,-43.1799 147.6938,-43.1345 147.6217,-43.1569 147.5841,-43.1978 147.492,-43.1144 147.4265,-43.0165 147.4137,-42.969 147.4687,-42.8964 147.5014,-42.8897 147.5255,-42.9058 147.5307,-42.9302 147.5146,-42.9536 147.5545,-42.991 147.5766,-43.0022 147.6035,-43.0056 147.6624,-42.9974 147.6939,-42.9778 147.6207,-42.883 147.3868,-42.778 147.3525,-42.782 147.2975,-42.812 147.3164,-42.8799 147.3312,-42.9004 147.3478,-42.9303 147.3205,-42.9693 147.2716,-42.9854 147.2224,-42.9927 147.199,-42.951 147.2181,-42.9422 147.2032,-42.8408 147.1471,-42.8125 147.1131,-42.798 147.1441,-42.8561 147.1363,-42.9022 147.1215,-42.9597 147.0881,-42.9793 147.0635,-43.0114 147.0373,-43.0845 147.0354,-43.1064 147.0575,-43.1547 147.0584,-43.1758 147.0426,-43.2199 147.0086,-43.2363 146.9734,-43.2331 146.8935,-43.1954 146.8367,-43.1506 146.8212,-43.1327 146.8182,-43.0893 146.8077,-43.0698 146.7871,-43.0635 146.7656,-43.0879 146.76,-43.115 146.7599,-43.1354 146.765,-43.155 146.7896,-43.1748 146.815,-43.1885 146.8564,-43.2091 146.8908,-43.2396 146.8501,-43.313 146.7974,-43.3734 146.7475,-43.4787 146.7325,-43.5509 146.7119,-43.5683 146.7119,-43.5683 102,-3.0,Chile -73.4671,-42.9455 -73.4614,-42.9609 -73.4268,-43.0094 -73.4011,-43.0363 -73.3893,-43.0669 -73.4124,-43.0814 -73.6364,-43.0666 -73.6775,-43.0782 -73.6623,-43.1621 -73.6382,-43.182 -73.6097,-43.1962 -73.5914,-43.2322 -73.6117,-43.3211 -73.6313,-43.3272 -73.7635,-43.3489 -73.7986,-43.3292 -73.8249,-43.3107 -73.8511,-43.3044 -73.9443,-43.3014 -74.0495,-43.2908 -74.1782,-43.2637 -74.267,-43.2293 -74.2854,-43.2182 -74.3019,-43.197 -74.2302,-43.0601 -74.1355,-42.9754 -74.1493,-42.943 -74.1181,-42.9208 -74.0747,-42.8384 -74.0418,-42.5999 -74.0474,-42.5294 -74.066,-42.4777 -74.0839,-42.4664 -74.1086,-42.4536 -74.0915,-42.3689 -74.0712,-42.187 -74.0612,-42.1695 -74.0422,-42.1485 -74.0216,-42.1291 -73.9987,-42.1123 -73.975,-42.0949 -73.944,-42.0168 -73.9106,-41.8659 -73.9489,-41.8073 -73.9601,-41.786 -73.9593,-41.7659 -73.9265,-41.727 -73.8098,-41.7347 -73.784,-41.7755 -73.8037,-41.7959 -73.8313,-41.7956 -73.8567,-41.7819 -73.8774,-41.7775 -73.8931,-41.7984 -73.8593,-41.8268 -73.7709,-41.8506 -73.745,-41.8354 -73.7042,-41.8148 -73.5989,-41.7662 -73.5006,-41.7562 -73.4713,-41.7586 -73.4017,-41.794 -73.4242,-41.9254 -73.3477,-42.0148 -73.3637,-42.0479 -73.391,-42.0557 -73.3979,-42.0775 -73.3863,-42.1051 -73.3189,-42.1389 -73.293,-42.1435 -73.2675,-42.2011 -73.2785,-42.237 -73.2913,-42.2594 -73.3963,-42.2776 -73.4508,-42.2715 -73.4747,-42.2732 -73.5426,-42.3003 -73.5652,-42.3105 -73.5813,-42.33 -73.5886,-42.4143 -73.557,-42.4386 -73.5307,-42.4492 -73.5144,-42.4626 -73.6227,-42.4958 -73.6783,-42.459 -73.6597,-42.4191 -73.6916,-42.4263 -73.7183,-42.4659 -73.7066,-42.5573 -73.5188,-42.6966 -73.4699,-42.7089 -73.4148,-42.738 -73.3986,-42.7519 -73.3844,-42.8053 -73.3921,-42.8276 -73.4697,-42.8367 -73.5074,-42.8339 -73.5405,-42.8476 -73.5497,-42.8867 -73.5185,-42.9152 -73.4671,-42.9455 -73.4671,-42.9455 20,-3.0,Chile -73.3344,-42.5066 -73.344,-42.4803 -73.3486,-42.4706 -73.3548,-42.4618 -73.3708,-42.4529 -73.464,-42.4161 -73.4776,-42.4122 -73.5097,-42.4071 -73.5234,-42.3999 -73.5511,-42.3418 -73.5484,-42.3318 -73.5321,-42.3267 -73.5089,-42.3245 -73.4745,-42.3242 -73.4509,-42.3284 -73.4317,-42.339 -73.3138,-42.4746 -73.3158,-42.5092 -73.3344,-42.5066 -73.3344,-42.5066 14,10.0,Australia 147.8089,-42.7043 147.8048,-42.6826 147.806,-42.6036 147.8075,-42.5802 147.8137,-42.5712 147.8714,-42.5384 147.9228,-42.5419 147.9675,-42.6068 147.9626,-42.6171 147.9495,-42.6205 147.8926,-42.6177 147.8364,-42.6835 147.8089,-42.7043 147.8089,-42.7043 10,10.0,Australia 147.1568,-43.2137 147.0883,-43.1082 147.1244,-43.0537 147.1524,-43.0259 147.1915,-43.0706 147.2266,-43.1648 147.2276,-43.1926 147.2247,-43.2045 147.1568,-43.2137 147.1568,-43.2137 15,10.0,Australia 147.0974,-43.464 147.034,-43.4422 146.9704,-43.4521 146.918,-43.3725 146.9853,-43.3051 147.0847,-43.2149 147.0954,-43.2135 147.1028,-43.221 147.1572,-43.325 147.1597,-43.3364 147.1575,-43.3486 147.1154,-43.4533 147.1054,-43.4626 147.0974,-43.464 147.0974,-43.464 22,-3.0,Chile -74.6812,-43.5991 -74.6893,-43.5981 -74.705,-43.5917 -74.7392,-43.5521 -74.7456,-43.5435 -74.7509,-43.5342 -74.7555,-43.5245 -74.7527,-43.508 -74.6688,-43.4774 -74.6567,-43.4783 -74.5719,-43.5095 -74.5625,-43.5162 -74.5398,-43.5339 -74.5304,-43.5522 -74.5495,-43.5655 -74.5718,-43.5669 -74.5987,-43.5644 -74.6135,-43.5672 -74.6329,-43.5727 -74.6449,-43.5776 -74.6812,-43.5991 -74.6812,-43.5991 56,13.0,New Zealand -176.4081,-43.9617 -176.3982,-43.9609 -176.3839,-43.9566 -176.3164,-43.9246 -176.2765,-43.886 -176.2705,-43.8686 -176.2712,-43.8579 -176.2856,-43.8237 -176.3068,-43.7958 -176.3176,-43.7848 -176.3331,-43.7727 -176.3714,-43.7553 -176.3846,-43.7519 -176.4076,-43.7505 -176.4167,-43.7609 -176.4365,-43.7811 -176.5451,-43.7909 -176.5866,-43.7922 -176.6017,-43.7661 -176.5955,-43.7533 -176.5022,-43.7227 -176.3583,-43.679 -176.3112,-43.6678 -176.2328,-43.6742 -176.217,-43.6807 -176.2058,-43.6863 -176.1394,-43.6992 -176.1281,-43.6991 -176.0843,-43.6992 -176.023,-43.7141 -176.0675,-43.7465 -176.1057,-43.7408 -176.1154,-43.7277 -176.1258,-43.7211 -176.1514,-43.7131 -176.1781,-43.7064 -176.1887,-43.7053 -176.2648,-43.6996 -176.2805,-43.7059 -176.2889,-43.722 -176.2861,-43.7339 -176.2515,-43.8199 -176.2051,-43.905 -176.1083,-43.9624 -176.1305,-44.0058 -176.2653,-44.0702 -176.2752,-44.0728 -176.2862,-44.0748 -176.298,-44.0749 -176.3305,-44.0732 -176.3551,-44.0701 -176.3632,-44.0438 -176.362,-44.0322 -176.3818,-43.9928 -176.4081,-43.9617 -176.4081,-43.9617 33,-3.0,Chile -73.8892,-43.8899 -73.9156,-43.8676 -73.996,-43.8502 -74.015,-43.8462 -74.0615,-43.8328 -74.0692,-43.8249 -74.0494,-43.7706 -74.0362,-43.7608 -74.0203,-43.7556 -73.9601,-43.7614 -73.9441,-43.7642 -73.812,-43.7498 -73.7569,-43.7145 -73.6867,-43.7719 -73.6666,-43.8172 -73.6607,-43.8395 -73.7507,-43.8449 -73.764,-43.8359 -73.7806,-43.8305 -73.7857,-43.8203 -73.7707,-43.812 -73.7612,-43.8026 -73.7758,-43.7951 -73.8023,-43.7923 -73.861,-43.8028 -73.8665,-43.8246 -73.8544,-43.8346 -73.851,-43.8459 -73.8267,-43.8565 -73.858,-43.8847 -73.8748,-43.8891 -73.8892,-43.8899 -73.8892,-43.8899 17,-3.0,Chile -73.0627,-43.979 -73.0918,-43.9744 -73.1695,-43.9465 -73.1815,-43.9329 -73.1864,-43.9139 -73.1839,-43.8975 -73.167,-43.8708 -73.1546,-43.8589 -73.0883,-43.8328 -73.0689,-43.8302 -73.0566,-43.8324 -73.0459,-43.8383 -73.0378,-43.8462 -73.0347,-43.8637 -73.0496,-43.9697 -73.0627,-43.979 -73.0627,-43.979 14,-3.0,Chile -73.5532,-44.0871 -73.6236,-43.9961 -73.6521,-43.947 -73.6531,-43.9305 -73.6475,-43.9148 -73.6338,-43.8968 -73.6253,-43.8889 -73.6031,-43.8895 -73.5315,-43.96 -73.5093,-44.0298 -73.5151,-44.0562 -73.5431,-44.0811 -73.5532,-44.0871 -73.5532,-44.0871 18,-3.0,Chile -73.7632,-44.1489 -73.8398,-44.1382 -73.8741,-44.1305 -73.888,-44.1235 -73.8969,-44.1159 -73.9034,-44.1071 -73.9079,-44.0943 -73.8707,-44.0666 -73.8447,-44.0515 -73.8227,-44.0483 -73.8119,-44.051 -73.7695,-44.0728 -73.7249,-44.1131 -73.7317,-44.1321 -73.7382,-44.1412 -73.7493,-44.1454 -73.7632,-44.1489 -73.7632,-44.1489 15,-3.0,Chile -73.924,-44.2852 -73.9328,-44.277 -73.9717,-44.2526 -73.9882,-44.236 -74.0207,-44.1496 -73.9594,-44.1013 -73.9449,-44.1039 -73.8822,-44.1579 -73.8473,-44.1904 -73.905,-44.2056 -73.9086,-44.2213 -73.9079,-44.2338 -73.9036,-44.2822 -73.924,-44.2852 -73.924,-44.2852 13,-3.0,Chile -73.7522,-44.288 -73.8513,-44.2745 -73.8636,-44.2643 -73.8687,-44.2302 -73.714,-44.2196 -73.6975,-44.2229 -73.6897,-44.2597 -73.6915,-44.275 -73.7054,-44.282 -73.7203,-44.2849 -73.7435,-44.2875 -73.7522,-44.288 -73.7522,-44.288 12,-3.0,Chile -73.924,-44.2852 -73.8277,-44.3069 -73.8229,-44.3886 -73.8293,-44.3983 -73.8486,-44.3944 -73.8635,-44.3843 -73.9674,-44.3446 -73.9818,-44.3327 -74.0025,-44.2765 -73.9852,-44.2711 -73.924,-44.2852 -73.924,-44.2852 75,-3.0,Chile -72.768,-44.687 -72.7724,-44.6908 -72.8216,-44.718 -72.8678,-44.7353 -72.9351,-44.7865 -72.9455,-44.8023 -72.9567,-44.8153 -72.966,-44.8225 -73.0324,-44.8606 -73.0936,-44.881 -73.1217,-44.8878 -73.1579,-44.8918 -73.174,-44.89 -73.1884,-44.8826 -73.2947,-44.7954 -73.3026,-44.7841 -73.3049,-44.7728 -73.298,-44.7635 -73.1994,-44.7381 -73.1822,-44.7433 -73.1717,-44.7494 -73.1553,-44.7617 -73.1133,-44.7547 -73.1042,-44.7494 -73.1309,-44.7322 -73.1961,-44.7124 -73.237,-44.7306 -73.2481,-44.74 -73.2587,-44.7461 -73.2705,-44.7467 -73.2861,-44.7399 -73.2967,-44.7305 -73.3288,-44.6828 -73.342,-44.6588 -73.36,-44.5952 -73.3204,-44.5531 -73.3121,-44.5455 -73.2814,-44.5406 -73.2701,-44.5418 -73.1726,-44.5289 -73.1601,-44.4826 -73.1555,-44.4432 -73.1579,-44.4286 -73.1544,-44.4162 -73.1346,-44.3771 -73.1246,-44.3668 -73.1118,-44.3624 -73.0908,-44.3574 -72.9847,-44.3323 -72.8956,-44.3167 -72.8844,-44.3191 -72.7655,-44.389 -72.6862,-44.4087 -72.6672,-44.4196 -72.6234,-44.4731 -72.6163,-44.4844 -72.6192,-44.4961 -72.6965,-44.5768 -72.7054,-44.5842 -72.7169,-44.5899 -72.7356,-44.5926 -72.7986,-44.588 -72.8098,-44.5821 -72.8234,-44.5711 -72.8763,-44.5571 -72.8746,-44.5707 -72.8653,-44.5813 -72.8049,-44.6111 -72.7743,-44.6181 -72.7347,-44.6238 -72.7261,-44.6397 -72.7402,-44.6611 -72.7556,-44.6783 -72.768,-44.687 -72.768,-44.687 19,-3.0,Chile -74.2973,-44.5002 -74.4085,-44.4814 -74.426,-44.4694 -74.4317,-44.4601 -74.4444,-44.4265 -74.4379,-44.4119 -74.4159,-44.395 -74.4022,-44.388 -74.2108,-44.3463 -74.1607,-44.3583 -74.126,-44.3995 -74.1146,-44.415 -74.1154,-44.4254 -74.1391,-44.4315 -74.2275,-44.4478 -74.2951,-44.4583 -74.3079,-44.462 -74.2973,-44.5002 -74.2973,-44.5002 21,-3.0,Chile -73.9413,-44.5075 -73.9656,-44.5033 -73.9973,-44.4966 -74.0166,-44.489 -74.0253,-44.4819 -74.0303,-44.4688 -74.0253,-44.3977 -73.9216,-44.4086 -73.8957,-44.4117 -73.8755,-44.4186 -73.8644,-44.4248 -73.8541,-44.4345 -73.8473,-44.4462 -73.8416,-44.4619 -73.8396,-44.4798 -73.8436,-44.4952 -73.8574,-44.5024 -73.874,-44.5033 -73.9159,-44.506 -73.9413,-44.5075 -73.9413,-44.5075 14,-3.0,Chile -74.2214,-44.531 -74.2299,-44.5296 -74.2411,-44.5225 -74.2556,-44.5086 -74.2634,-44.4975 -74.2643,-44.4854 -74.2583,-44.476 -74.1883,-44.4523 -74.0883,-44.446 -74.0352,-44.4998 -74.0855,-44.5098 -74.1912,-44.5263 -74.2214,-44.531 -74.2214,-44.531 17,-3.0,Chile -73.6419,-44.6927 -73.6551,-44.6921 -73.7185,-44.6293 -73.7221,-44.534 -73.7175,-44.5185 -73.7027,-44.5088 -73.606,-44.492 -73.589,-44.4928 -73.572,-44.4989 -73.5559,-44.5098 -73.5247,-44.5676 -73.4862,-44.6505 -73.488,-44.6612 -73.4988,-44.6668 -73.6077,-44.6908 -73.6419,-44.6927 -73.6419,-44.6927 19,-3.0,Chile -74.681,-44.6369 -74.6902,-44.633 -74.7107,-44.6103 -74.7148,-44.6004 -74.72,-44.5776 -74.7204,-44.559 -74.7185,-44.52 -74.7114,-44.5071 -74.7021,-44.4995 -74.6872,-44.4995 -74.6338,-44.5225 -74.6247,-44.5332 -74.6211,-44.5471 -74.6229,-44.5606 -74.6369,-44.6211 -74.6602,-44.632 -74.6721,-44.6365 -74.681,-44.6369 -74.681,-44.6369 29,-3.0,Chile -74.1587,-44.7565 -74.1769,-44.7544 -74.2042,-44.7476 -74.2227,-44.7397 -74.2332,-44.7333 -74.2477,-44.7228 -74.2699,-44.7026 -74.3091,-44.6414 -74.3098,-44.6287 -74.3067,-44.5862 -74.2947,-44.5775 -74.1588,-44.5518 -74.1434,-44.5496 -74.0821,-44.5502 -74.0552,-44.5504 -73.8961,-44.5566 -73.8627,-44.5649 -73.8494,-44.5693 -73.8253,-44.5807 -73.8158,-44.5871 -73.8025,-44.5983 -73.7908,-44.6107 -73.7764,-44.6275 -73.7705,-44.6424 -73.912,-44.6703 -74.0809,-44.7239 -74.1053,-44.7335 -74.1587,-44.7565 -74.1587,-44.7565 16,-3.0,Chile -74.3621,-44.6487 -74.4,-44.6469 -74.5241,-44.6474 -74.5694,-44.6307 -74.5687,-44.6178 -74.5631,-44.6078 -74.5229,-44.5776 -74.5079,-44.5711 -74.4877,-44.5687 -74.4737,-44.5693 -74.4483,-44.5728 -74.373,-44.585 -74.3568,-44.5912 -74.3492,-44.6391 -74.3621,-44.6487 -74.3621,-44.6487 14,-3.0,Chile -74.2806,-44.809 -74.2989,-44.8071 -74.3605,-44.779 -74.4221,-44.7096 -74.4235,-44.6953 -74.413,-44.6831 -74.4019,-44.6776 -74.3422,-44.6637 -74.3227,-44.6706 -74.2086,-44.7865 -74.209,-44.7969 -74.2724,-44.8084 -74.2806,-44.809 -74.2806,-44.809 15,-3.0,Chile -73.5885,-44.7859 -73.6241,-44.7706 -73.6425,-44.7597 -73.6501,-44.7193 -73.6431,-44.7055 -73.5307,-44.6847 -73.517,-44.6845 -73.5034,-44.6924 -73.5001,-44.7032 -73.5153,-44.7773 -73.5328,-44.7905 -73.5519,-44.7935 -73.5775,-44.7905 -73.5885,-44.7859 -73.5885,-44.7859 24,-3.0,Chile -73.7405,-44.9061 -73.7688,-44.8869 -73.7785,-44.88 -73.8101,-44.8541 -73.8204,-44.841 -73.8262,-44.832 -73.833,-44.7579 -73.8265,-44.7423 -73.8115,-44.7293 -73.7964,-44.7225 -73.7818,-44.72 -73.7604,-44.7191 -73.7395,-44.7257 -73.7299,-44.7358 -73.6665,-44.8511 -73.6617,-44.8813 -73.6673,-44.8949 -73.6742,-44.9043 -73.6899,-44.9139 -73.7097,-44.916 -73.7221,-44.914 -73.735,-44.9093 -73.7405,-44.9061 -73.7405,-44.9061 20,-3.0,Chile -73.9378,-44.8077 -73.9631,-44.8064 -74.0665,-44.7763 -74.0804,-44.7649 -74.0621,-44.756 -74.022,-44.752 -74.006,-44.7502 -73.9758,-44.7457 -73.9616,-44.7423 -73.9374,-44.7325 -73.9199,-44.7241 -73.9017,-44.7205 -73.8615,-44.7275 -73.8529,-44.7399 -73.8596,-44.7792 -73.8706,-44.7885 -73.8829,-44.7938 -73.9186,-44.8049 -73.9378,-44.8077 -73.9378,-44.8077 16,-3.0,Chile -74.9801,-44.8761 -74.9896,-44.8755 -75.0047,-44.8685 -75.0381,-44.7988 -75.0425,-44.789 -75.0446,-44.7777 -75.042,-44.7646 -75.0316,-44.751 -75.0099,-44.73 -74.987,-44.7256 -74.9717,-44.7325 -74.9178,-44.7969 -74.9178,-44.8431 -74.9641,-44.8745 -74.9801,-44.8761 -74.9801,-44.8761 24,-3.0,Chile -74.1732,-44.9796 -74.183,-44.9788 -74.2562,-44.965 -74.2613,-44.9562 -74.2473,-44.9304 -74.0967,-44.8269 -74.0822,-44.8193 -74.0643,-44.8155 -74.0461,-44.8161 -73.8661,-44.8496 -73.8531,-44.858 -73.815,-44.8924 -73.8083,-44.9043 -73.8194,-44.9129 -73.855,-44.9283 -73.8763,-44.9331 -73.938,-44.9458 -73.9546,-44.9464 -74.0345,-44.9461 -74.0858,-44.9434 -74.104,-44.9471 -74.1162,-44.9518 -74.1732,-44.9796 -74.1732,-44.9796 47,-3.0,Chile -73.628,-45.2328 -73.6891,-45.2188 -73.7262,-45.1877 -73.7682,-45.1868 -73.8248,-45.1971 -73.8426,-45.1974 -73.8811,-45.1954 -73.8946,-45.1905 -73.9059,-45.1845 -73.9159,-45.1714 -74.0062,-45.0974 -74.0369,-45.1093 -74.1045,-45.1202 -74.1207,-45.118 -74.1306,-45.111 -74.1367,-45.0864 -74.143,-45.0545 -74.1417,-45.0445 -74.135,-45.0239 -74.1205,-45.0103 -74.0863,-44.9857 -74.0727,-44.9778 -74.0536,-44.9747 -74.0308,-44.9756 -74.0212,-44.9795 -74.003,-44.984 -73.9574,-44.981 -73.8796,-44.9709 -73.8577,-44.9665 -73.845,-44.9613 -73.8199,-44.9498 -73.808,-44.9431 -73.7928,-44.941 -73.7713,-44.9431 -73.7533,-44.9478 -73.7428,-44.9513 -73.6821,-44.9848 -73.6724,-44.9919 -73.6637,-44.9992 -73.6555,-45.0073 -73.6157,-45.0534 -73.6001,-45.0825 -73.5984,-45.0944 -73.5991,-45.1072 -73.6017,-45.1348 -73.628,-45.2328 -73.628,-45.2328 16,-3.0,Chile -74.2322,-45.2465 -74.2837,-45.217 -74.2992,-45.2073 -74.308,-45.1997 -74.3159,-45.1884 -74.3144,-45.1732 -74.3008,-45.1205 -74.2881,-45.1029 -74.2618,-45.1018 -74.2489,-45.1068 -74.168,-45.1603 -74.1982,-45.2481 -74.2089,-45.2542 -74.2212,-45.2525 -74.2322,-45.2465 -74.2322,-45.2465 14,13.0,New Zealand 166.7379,-45.1151 166.7383,-45.1378 166.7544,-45.1797 166.7748,-45.193 166.7962,-45.2487 166.7717,-45.2594 166.7566,-45.2585 166.6891,-45.2269 166.6795,-45.2198 166.6575,-45.1944 166.6731,-45.16 166.7255,-45.104 166.7379,-45.1151 166.7379,-45.1151 32,-3.0,Chile -73.8966,-45.3054 -73.91,-45.3041 -74.0292,-45.2716 -74.0398,-45.2621 -74.0621,-45.1989 -74.0395,-45.1779 -73.9784,-45.1593 -73.963,-45.1581 -73.9492,-45.1625 -73.9401,-45.17 -73.9329,-45.1847 -73.9277,-45.1974 -73.9189,-45.2048 -73.9066,-45.2106 -73.8904,-45.2137 -73.8728,-45.2156 -73.8358,-45.2164 -73.8184,-45.2161 -73.7828,-45.2112 -73.7547,-45.2086 -73.7278,-45.2112 -73.7141,-45.2164 -73.7041,-45.2231 -73.6906,-45.2401 -73.6811,-45.26 -73.6786,-45.2787 -73.6891,-45.2944 -73.6985,-45.2978 -73.7715,-45.2979 -73.858,-45.3003 -73.8966,-45.3054 -73.8966,-45.3054 23,-3.0,Chile -74.2832,-45.3457 -74.3779,-45.3065 -74.3885,-45.3005 -74.4028,-45.2898 -74.4216,-45.2721 -74.4257,-45.262 -74.4182,-45.248 -74.4045,-45.2386 -74.3846,-45.2331 -74.3685,-45.2312 -74.3509,-45.2306 -74.306,-45.2308 -74.2864,-45.235 -74.2728,-45.2431 -74.2561,-45.2586 -74.2442,-45.2737 -74.2062,-45.3407 -74.2168,-45.3483 -74.2334,-45.3534 -74.253,-45.356 -74.2786,-45.3507 -74.2832,-45.3457 -74.2832,-45.3457 16,-3.0,Chile -73.8166,-45.3823 -73.8876,-45.3671 -73.9141,-45.3609 -73.9201,-45.3514 -73.9142,-45.3381 -73.9004,-45.3306 -73.8551,-45.3194 -73.8349,-45.3175 -73.7331,-45.3188 -73.7208,-45.3237 -73.7178,-45.338 -73.7199,-45.3565 -73.7896,-45.3813 -73.8013,-45.383 -73.8166,-45.3823 -73.8166,-45.3823 55,-3.0,Chile -74.0351,-45.5275 -74.0404,-45.5206 -74.039,-45.5093 -74.0368,-45.4988 -74.0339,-45.4828 -74.0291,-45.4674 -74.0203,-45.4598 -74.006,-45.4517 -74.0051,-45.4304 -73.9969,-45.4169 -73.983,-45.4039 -73.9731,-45.3907 -73.9681,-45.3801 -73.956,-45.3711 -73.9418,-45.3695 -73.9274,-45.3761 -73.9137,-45.3812 -73.8954,-45.3826 -73.8728,-45.3825 -73.8615,-45.3852 -73.8502,-45.3912 -73.8413,-45.3988 -73.8139,-45.408 -73.8005,-45.416 -73.7873,-45.4209 -73.7729,-45.4183 -73.7485,-45.4049 -73.7318,-45.4001 -73.7161,-45.4085 -73.7122,-45.4239 -73.7192,-45.4439 -73.7301,-45.4613 -73.737,-45.4744 -73.7449,-45.4829 -73.7549,-45.4954 -73.7609,-45.5151 -73.7741,-45.5175 -73.7942,-45.5078 -73.804,-45.5069 -73.8193,-45.5033 -73.8295,-45.4934 -73.8373,-45.4853 -73.8576,-45.4811 -73.8768,-45.4805 -73.8951,-45.4752 -73.9086,-45.4706 -73.9417,-45.4655 -73.9524,-45.4678 -73.968,-45.4773 -73.9905,-45.4817 -74.006,-45.4932 -74.0162,-45.5122 -74.0257,-45.5237 -74.0351,-45.5275 -74.0351,-45.5275 22,-3.0,Chile -73.5489,-45.7089 -73.5577,-45.7076 -73.5748,-45.7003 -73.6783,-45.6182 -73.6834,-45.5122 -73.6839,-45.4965 -73.681,-45.48 -73.6757,-45.4691 -73.6657,-45.4553 -73.6115,-45.399 -73.6004,-45.3926 -73.5798,-45.3903 -73.5623,-45.3911 -73.4891,-45.4077 -73.4785,-45.4191 -73.4758,-45.454 -73.5085,-45.6448 -73.5151,-45.6616 -73.5312,-45.6968 -73.5418,-45.7069 -73.5489,-45.7089 -73.5489,-45.7089 33,-3.0,Chile -74.3537,-45.7267 -74.3689,-45.7227 -74.3802,-45.7095 -74.3908,-45.6909 -74.3933,-45.6775 -74.3847,-45.6653 -74.362,-45.6469 -74.3447,-45.629 -74.3443,-45.5907 -74.3538,-45.5482 -74.3635,-45.5163 -74.3641,-45.5005 -74.3619,-45.487 -74.3571,-45.4684 -74.3526,-45.4573 -74.3421,-45.4355 -74.3291,-45.4164 -74.3125,-45.3981 -74.2902,-45.3919 -74.198,-45.4234 -74.1813,-45.4328 -74.1708,-45.4421 -74.1566,-45.4623 -74.1506,-45.4717 -74.1409,-45.4915 -74.1175,-45.5432 -74.1057,-45.5839 -74.1243,-45.6208 -74.1323,-45.6296 -74.2871,-45.7142 -74.2985,-45.7197 -74.3537,-45.7267 -74.3537,-45.7267 18,-3.0,Chile -73.8827,-45.6726 -73.8918,-45.6725 -73.9441,-45.6656 -73.957,-45.6571 -73.9882,-45.6015 -74.0072,-45.5649 -74.008,-45.5444 -73.9581,-45.5009 -73.9249,-45.4865 -73.9081,-45.4855 -73.8596,-45.5032 -73.8131,-45.5364 -73.7929,-45.5657 -73.7925,-45.5813 -73.8009,-45.6121 -73.8207,-45.6501 -73.8827,-45.6726 -73.8827,-45.6726 25,-3.0,Chile -74.5963,-45.6798 -74.5986,-45.6683 -74.5992,-45.6497 -74.5958,-45.6376 -74.5837,-45.6024 -74.5775,-45.5849 -74.5713,-45.5746 -74.564,-45.5656 -74.551,-45.5538 -74.54,-45.5479 -74.5275,-45.5429 -74.4716,-45.5238 -74.4475,-45.5244 -74.4365,-45.5308 -74.4322,-45.5408 -74.4455,-45.636 -74.4754,-45.6883 -74.4886,-45.6965 -74.5002,-45.7019 -74.5197,-45.7045 -74.5329,-45.7033 -74.5838,-45.6949 -74.5937,-45.6881 -74.5963,-45.6798 -74.5963,-45.6798 19,13.0,New Zealand 166.5022,-45.5855 166.5076,-45.5959 166.5141,-45.61 166.5177,-45.625 166.5192,-45.6498 166.515,-45.6713 166.5069,-45.6795 166.4821,-45.6894 166.4185,-45.6937 166.2707,-45.6706 166.2743,-45.6598 166.2929,-45.6346 166.3319,-45.5915 166.343,-45.586 166.3829,-45.5754 166.4815,-45.5639 166.4943,-45.5722 166.5022,-45.5855 166.5022,-45.5855 16,-3.0,Chile -73.9185,-45.8662 -73.9652,-45.7892 -73.9888,-45.7596 -74.0006,-45.7345 -73.9895,-45.7168 -73.9809,-45.709 -73.9443,-45.6872 -73.9299,-45.6845 -73.8613,-45.7017 -73.8583,-45.7356 -73.8617,-45.8093 -73.8662,-45.8244 -73.8801,-45.8497 -73.9105,-45.8652 -73.9185,-45.8662 -73.9185,-45.8662 24,-3.0,Chile -73.8044,-45.9364 -73.8157,-45.9336 -73.8244,-45.9234 -73.8399,-45.8915 -73.8412,-45.8759 -73.8325,-45.8605 -73.8258,-45.8514 -73.7982,-45.8211 -73.7827,-45.8077 -73.6371,-45.747 -73.6228,-45.7489 -73.6102,-45.7643 -73.605,-45.7744 -73.6002,-45.7904 -73.5962,-45.8414 -73.6116,-45.8339 -73.6208,-45.8267 -73.6369,-45.8239 -73.6793,-45.8268 -73.6991,-45.8329 -73.7175,-45.8799 -73.7493,-45.9231 -73.8044,-45.9364 -73.8044,-45.9364 39,-3.0,Chile -74.9655,-46.0446 -74.9769,-46.0358 -74.9837,-46.024 -74.9951,-45.9923 -74.9897,-45.9819 -74.9783,-45.9761 -74.8603,-45.9528 -74.846,-45.9571 -74.8536,-45.9357 -74.8786,-45.9313 -74.9059,-45.9385 -74.9423,-45.9409 -74.9587,-45.9378 -74.9675,-45.9234 -75.0041,-45.8334 -74.9982,-45.8236 -74.982,-45.8145 -74.96,-45.8102 -74.869,-45.8357 -74.8557,-45.8406 -74.8386,-45.8498 -74.7771,-45.8257 -74.692,-45.771 -74.6401,-45.7536 -74.6171,-45.7511 -74.6063,-45.7677 -74.6064,-45.7838 -74.6103,-45.7994 -74.6566,-45.9379 -74.6629,-45.9477 -74.671,-45.9565 -74.6977,-45.9798 -74.8046,-46.0516 -74.8206,-46.0578 -74.8914,-46.0614 -74.9155,-46.0594 -74.9511,-46.0513 -74.9655,-46.0446 -74.9655,-46.0446 13,-3.0,Chile -73.5847,-45.9775 -73.5944,-45.9767 -73.6914,-45.9579 -73.7156,-45.9451 -73.7232,-45.9321 -73.7218,-45.9184 -73.674,-45.8526 -73.6602,-45.8453 -73.6492,-45.8426 -73.6046,-45.8729 -73.5753,-45.9719 -73.5847,-45.9775 -73.5847,-45.9775 20,-3.0,Chile -73.6685,-46.159 -73.7011,-46.1378 -73.7107,-46.1308 -73.8306,-46.0189 -73.8293,-46.0023 -73.8164,-45.9754 -73.8049,-45.9658 -73.791,-45.9623 -73.7437,-45.9613 -73.725,-45.9627 -73.6358,-45.9901 -73.5931,-46.0128 -73.5793,-46.0239 -73.574,-46.0411 -73.5807,-46.0591 -73.6349,-46.1342 -73.6489,-46.1525 -73.6608,-46.1582 -73.6685,-46.159 -73.6685,-46.159 61,13.0,New Zealand 167.7734,-46.6771 167.8159,-46.7381 167.8567,-46.7655 167.944,-46.8127 167.9527,-46.8514 167.9338,-46.8564 167.9202,-46.856 167.8092,-46.8818 167.986,-46.9178 168.0198,-46.9493 168.003,-46.99 167.9779,-47.0186 167.9165,-47.0608 167.9049,-47.0596 167.8743,-47.0519 167.8623,-47.0527 167.8134,-47.0561 167.8028,-47.0576 167.7617,-47.0704 167.717,-47.0993 167.6649,-47.1326 167.6516,-47.1368 167.6395,-47.1355 167.5433,-47.1134 167.5386,-47.1033 167.5301,-47.0867 167.4852,-47.1007 167.454,-47.1181 167.3807,-47.1692 167.3977,-47.1726 167.4086,-47.1712 167.4499,-47.1629 167.4801,-47.1585 167.4718,-47.1884 167.4615,-47.1951 167.439,-47.207 167.3663,-47.2199 167.2973,-47.2252 167.2832,-47.2222 167.2795,-47.2115 167.2829,-47.1752 167.291,-47.1469 167.3044,-47.1331 167.3853,-47.0583 167.5016,-46.9485 167.5576,-46.8855 167.5705,-46.8663 167.5747,-46.85 167.573,-46.8378 167.5636,-46.8091 167.5544,-46.793 167.5406,-46.7799 167.528,-46.77 167.518,-46.7547 167.5193,-46.7026 167.5348,-46.6493 167.5604,-46.6347 167.6837,-46.6286 167.7602,-46.6644 167.7734,-46.6771 167.7734,-46.6771 26,2.0,South Africa 37.7663,-46.9158 37.7367,-46.9046 37.7145,-46.9041 37.661,-46.9059 37.6443,-46.9079 37.5891,-46.9062 37.5715,-46.9035 37.5557,-46.9 37.5432,-46.8944 37.5323,-46.885 37.5237,-46.871 37.5228,-46.859 37.5262,-46.8487 37.5983,-46.7792 37.6173,-46.7718 37.6469,-46.7699 37.6567,-46.7705 37.7238,-46.7778 37.7574,-46.7869 37.7767,-46.7955 37.7959,-46.8063 37.8383,-46.8464 37.795,-46.9051 37.7785,-46.9145 37.7663,-46.9158 37.7663,-46.9158 19,-3.0,Chile -74.0651,-47.1203 -74.0775,-47.1147 -74.1215,-47.0757 -74.1233,-47.0627 -74.1215,-47.0492 -74.1053,-47.0164 -74.0892,-46.9844 -74.0802,-46.9733 -74.0694,-46.967 -74.0579,-46.9645 -73.9275,-46.9696 -73.871,-46.9995 -73.9527,-47.0791 -73.9745,-47.095 -73.9859,-47.101 -73.9981,-47.1062 -74.0485,-47.1182 -74.0651,-47.1203 -74.0651,-47.1203 18,-3.0,Chile -74.3588,-47.1063 -74.383,-47.0719 -74.3829,-47.0368 -74.3752,-47.0279 -74.315,-47.0047 -74.3001,-47.0011 -74.2665,-46.9984 -74.2362,-47.0003 -74.2148,-47.0039 -74.2061,-47.0116 -74.2092,-47.0264 -74.2179,-47.046 -74.2264,-47.0544 -74.3371,-47.1169 -74.3529,-47.1234 -74.3613,-47.1125 -74.3588,-47.1063 -74.3588,-47.1063 16,-3.0,Chile -74.8893,-47.7318 -74.8974,-47.7313 -74.9368,-47.7087 -74.945,-47.7006 -74.9687,-47.6423 -74.958,-47.6358 -74.9349,-47.6354 -74.8532,-47.6476 -74.8435,-47.6516 -74.8248,-47.6666 -74.8029,-47.6921 -74.7969,-47.704 -74.8075,-47.7176 -74.8467,-47.7282 -74.8893,-47.7318 -74.8893,-47.7318 23,-3.0,Chile -75.0746,-47.783 -75.0703,-47.7657 -75.0727,-47.7549 -75.0821,-47.7472 -75.1246,-47.7361 -75.1429,-47.7336 -75.1632,-47.7322 -75.1804,-47.7288 -75.1924,-47.7172 -75.1551,-47.6898 -75.0311,-47.6435 -75.014,-47.6489 -74.9836,-47.6766 -74.9707,-47.6947 -74.9527,-47.7346 -74.9578,-47.7499 -74.9725,-47.7669 -74.9814,-47.7743 -74.9945,-47.7831 -75.0235,-47.7938 -75.0927,-47.8029 -75.0746,-47.783 -75.0746,-47.783 38,-3.0,Chile -74.2102,-47.9288 -74.2478,-47.9153 -74.3554,-47.8862 -74.3702,-47.8814 -74.3894,-47.8703 -74.39,-47.8589 -74.3093,-47.7986 -74.2991,-47.7915 -74.2807,-47.7839 -74.1862,-47.7499 -74.1666,-47.7464 -73.9414,-47.7971 -73.8212,-47.83 -73.7944,-47.8324 -73.7795,-47.829 -73.763,-47.8196 -73.7495,-47.8113 -73.7368,-47.8063 -73.7268,-47.807 -73.7138,-47.8124 -73.698,-47.8255 -73.6939,-47.8362 -73.6998,-47.8503 -73.7184,-47.8881 -73.7368,-47.8964 -73.7694,-47.9042 -73.7832,-47.905 -73.8201,-47.9059 -73.9276,-47.9056 -73.9471,-47.9036 -73.97,-47.8976 -73.9837,-47.8926 -74.0054,-47.8897 -74.019,-47.8909 -74.1803,-47.9221 -74.1954,-47.9255 -74.2102,-47.9288 -74.2102,-47.9288 36,-3.0,Chile -74.7792,-48.015 -74.793,-48.0145 -74.8468,-48.0034 -74.9077,-47.9851 -74.9213,-47.9802 -74.9288,-47.9682 -74.9145,-47.9483 -74.9353,-47.9367 -74.9619,-47.9328 -74.988,-47.9342 -75.0077,-47.9423 -75.0302,-47.9601 -75.0473,-47.9776 -75.0618,-47.981 -75.0863,-47.9843 -75.1212,-47.9869 -75.1424,-47.9841 -75.1561,-47.9749 -75.0991,-47.9191 -75.0711,-47.9035 -75.0586,-47.8978 -74.9908,-47.8844 -74.9592,-47.8793 -74.9393,-47.8798 -74.8492,-47.8386 -74.7806,-47.7727 -74.7226,-47.7531 -74.7077,-47.7601 -74.7,-47.7939 -74.6985,-47.8057 -74.6974,-47.8432 -74.6993,-47.9834 -74.7518,-48.0102 -74.7615,-48.0141 -74.7792,-48.015 -74.7792,-48.015 56,-3.0,Chile -75.0914,-48.6437 -75.1036,-48.6491 -75.1275,-48.6539 -75.1727,-48.5822 -75.1879,-48.534 -75.2099,-48.439 -75.2072,-48.4231 -75.1858,-48.3811 -75.2869,-48.3408 -75.3374,-48.3582 -75.3509,-48.3626 -75.3657,-48.3658 -75.3891,-48.3697 -75.408,-48.3701 -75.4214,-48.3677 -75.4405,-48.3591 -75.4472,-48.3504 -75.4495,-48.3391 -75.4448,-48.3275 -75.4254,-48.3164 -75.4072,-48.3076 -75.3791,-48.3001 -75.3431,-48.2984 -75.3181,-48.2957 -75.3027,-48.2926 -75.283,-48.2857 -75.267,-48.2757 -75.2503,-48.2586 -75.2378,-48.2425 -75.2516,-48.2398 -75.298,-48.2582 -75.4299,-48.2688 -75.441,-48.2574 -75.4778,-48.0402 -75.4714,-48.029 -75.4299,-47.9938 -75.4013,-47.9787 -75.2561,-47.9516 -75.2389,-47.9537 -75.2271,-47.9634 -75.166,-48.0926 -75.1591,-48.1098 -75.1519,-48.1682 -75.1305,-48.215 -75.1158,-48.2449 -75.0921,-48.289 -75.08,-48.2979 -75.0632,-48.3109 -75.0265,-48.3539 -74.9746,-48.4525 -74.9633,-48.5388 -74.9702,-48.5573 -74.9788,-48.5659 -75.0811,-48.6369 -75.0914,-48.6437 -75.0914,-48.6437 25,-3.0,Chile -74.9164,-48.3889 -74.9306,-48.3884 -74.944,-48.3838 -75.0861,-48.1737 -75.1483,-48.0463 -75.1451,-48.0169 -75.111,-48.0148 -75.0462,-48.024 -74.9301,-48.0429 -74.9027,-48.053 -74.8907,-48.0595 -74.8192,-48.0987 -74.7068,-48.1181 -74.6956,-48.1272 -74.6937,-48.1442 -74.697,-48.1647 -74.7302,-48.3086 -74.7386,-48.3174 -74.7533,-48.3208 -74.7812,-48.3196 -74.833,-48.3428 -74.8567,-48.3546 -74.8846,-48.3701 -74.9164,-48.3889 -74.9164,-48.3889 18,-3.0,Chile -74.4174,-48.2845 -74.4267,-48.2802 -74.4885,-48.1912 -74.4913,-48.1801 -74.493,-48.162 -74.4941,-48.137 -74.4927,-48.0994 -74.4587,-48.0658 -74.4419,-48.0658 -74.4218,-48.0768 -74.4009,-48.0903 -74.3904,-48.0973 -74.2827,-48.1706 -74.2589,-48.2028 -74.2998,-48.2426 -74.3109,-48.249 -74.4174,-48.2845 -74.4174,-48.2845 69,-3.0,Chile -74.5007,-48.645 -74.5141,-48.6361 -74.6361,-48.5781 -74.6539,-48.5782 -74.6706,-48.5839 -74.6856,-48.5866 -74.7046,-48.5871 -74.8212,-48.571 -74.8862,-48.5463 -74.8999,-48.5381 -74.9055,-48.5286 -74.9222,-48.4552 -74.9178,-48.4365 -74.909,-48.4246 -74.9003,-48.4163 -74.829,-48.3626 -74.8133,-48.3565 -74.7475,-48.3513 -74.7354,-48.3533 -74.7272,-48.367 -74.7062,-48.3901 -74.7021,-48.4035 -74.694,-48.4151 -74.6498,-48.4395 -74.6019,-48.4006 -74.5994,-48.39 -74.6115,-48.3775 -74.6217,-48.3734 -74.6508,-48.3691 -74.6852,-48.3257 -74.693,-48.3137 -74.7045,-48.2759 -74.7047,-48.2636 -74.7028,-48.2499 -74.6603,-48.1016 -74.6509,-48.0862 -74.6435,-48.0773 -74.6306,-48.0686 -74.6188,-48.0729 -74.5999,-48.0908 -74.5929,-48.0996 -74.5886,-48.1162 -74.5882,-48.1352 -74.5828,-48.1741 -74.5707,-48.2441 -74.4796,-48.3531 -74.4999,-48.4002 -74.4995,-48.4577 -74.4949,-48.5028 -74.4882,-48.5196 -74.4388,-48.564 -74.4244,-48.5661 -74.4152,-48.5584 -74.4154,-48.5484 -74.4209,-48.5386 -74.4204,-48.5269 -74.4082,-48.5231 -74.3973,-48.5265 -74.3857,-48.5326 -74.3763,-48.5398 -74.3737,-48.5545 -74.3817,-48.5822 -74.3882,-48.6 -74.3964,-48.6085 -74.4078,-48.615 -74.4587,-48.6361 -74.477,-48.6407 -74.5007,-48.645 -74.5007,-48.645 28,-3.0,Chile -74.1649,-48.4119 -74.179,-48.398 -74.1894,-48.3916 -74.2083,-48.3825 -74.278,-48.3513 -74.2992,-48.3436 -74.35,-48.3307 -74.364,-48.3231 -74.3788,-48.309 -74.3833,-48.2985 -74.2541,-48.2331 -74.2373,-48.2275 -74.2241,-48.2266 -74.2024,-48.2302 -74.1881,-48.241 -74.189,-48.2573 -74.2029,-48.2859 -74.2036,-48.2984 -74.1912,-48.3138 -74.1627,-48.3431 -74.1436,-48.3579 -74.1227,-48.3686 -74.1088,-48.3782 -74.1134,-48.3921 -74.1248,-48.3984 -74.1527,-48.4104 -74.1649,-48.4119 -74.1649,-48.4119 18,-3.0,Chile -74.0055,-48.3419 -73.967,-48.3599 -73.9553,-48.3661 -73.9451,-48.3762 -73.9412,-48.3871 -73.9583,-48.4355 -73.9666,-48.4354 -73.9877,-48.4264 -74.0723,-48.3873 -74.1327,-48.3463 -74.1416,-48.3304 -74.135,-48.3161 -74.1149,-48.3114 -74.0963,-48.3106 -74.086,-48.3112 -74.064,-48.315 -74.0055,-48.3419 -74.0055,-48.3419 21,-3.0,Chile -74.3265,-48.4697 -74.3463,-48.4363 -74.3897,-48.3844 -74.3969,-48.3758 -74.4017,-48.3658 -74.4033,-48.3551 -74.386,-48.3427 -74.37,-48.3434 -74.3437,-48.351 -74.2693,-48.3793 -74.2189,-48.4022 -74.2014,-48.4116 -74.1934,-48.4228 -74.1946,-48.4341 -74.2083,-48.4422 -74.2282,-48.4496 -74.2823,-48.4678 -74.3076,-48.4747 -74.3196,-48.4732 -74.3265,-48.4697 -74.3265,-48.4697 39,-3.0,Chile -75.4943,-48.6329 -75.4797,-48.6196 -75.4685,-48.6091 -75.4375,-48.6134 -75.4101,-48.6077 -75.394,-48.6055 -75.3676,-48.5962 -75.3563,-48.5902 -75.3371,-48.5747 -75.3312,-48.5607 -75.3408,-48.5548 -75.3591,-48.5661 -75.3761,-48.5761 -75.389,-48.5809 -75.41,-48.5835 -75.424,-48.5835 -75.4925,-48.5783 -75.5073,-48.5734 -75.5396,-48.5626 -75.5596,-48.5325 -75.5406,-48.4263 -75.5114,-48.3908 -75.492,-48.3873 -75.2792,-48.3737 -75.2307,-48.38 -75.2248,-48.3947 -75.2053,-48.5356 -75.2104,-48.5464 -75.2565,-48.5745 -75.2792,-48.5868 -75.3427,-48.6197 -75.3728,-48.634 -75.3865,-48.6383 -75.4015,-48.6419 -75.4316,-48.6441 -75.4674,-48.6422 -75.4871,-48.637 -75.4943,-48.6329 -75.4943,-48.6329 24,-3.0,Chile -75.5023,-48.7409 -75.5117,-48.7397 -75.5237,-48.7361 -75.5387,-48.7246 -75.5442,-48.7102 -75.5374,-48.6495 -75.5137,-48.6475 -75.4685,-48.6608 -75.423,-48.6679 -75.4034,-48.6699 -75.3872,-48.6676 -75.3759,-48.6614 -75.3165,-48.6252 -75.2382,-48.5796 -75.1914,-48.6013 -75.1821,-48.6183 -75.1776,-48.6284 -75.1734,-48.6392 -75.1715,-48.6536 -75.1912,-48.6734 -75.208,-48.6825 -75.3812,-48.7248 -75.5023,-48.7409 -75.5023,-48.7409 17,-3.0,Chile -75.0194,-48.7782 -75.0265,-48.7757 -75.1347,-48.7291 -75.1376,-48.7139 -75.0771,-48.6618 -74.9723,-48.5817 -74.959,-48.5801 -74.9522,-48.5919 -74.9485,-48.6025 -74.9444,-48.6197 -74.9452,-48.6326 -74.9471,-48.6465 -74.9732,-48.7196 -74.9977,-48.7647 -75.0078,-48.7757 -75.0194,-48.7782 -75.0194,-48.7782 15,-3.0,Chile -74.8965,-48.6882 -74.9203,-48.6868 -74.9338,-48.6796 -74.9349,-48.6668 -74.8991,-48.6086 -74.8823,-48.5928 -74.7976,-48.5933 -74.7477,-48.5978 -74.7179,-48.6075 -74.8093,-48.6659 -74.8265,-48.6751 -74.8394,-48.68 -74.8701,-48.6862 -74.8965,-48.6882 -74.8965,-48.6882 121,-3.0,Chile -74.5007,-48.645 -74.4325,-48.6559 -74.4148,-48.697 -74.3904,-48.8461 -74.3665,-48.8899 -74.3621,-48.9108 -74.3695,-49.0356 -74.3381,-49.1432 -74.3334,-49.1649 -74.3339,-49.2497 -74.3603,-49.3713 -74.379,-49.4176 -74.4027,-49.4444 -74.4118,-49.4827 -74.3887,-49.5277 -74.4381,-49.5631 -74.4871,-49.632 -74.4846,-49.661 -74.4185,-49.6172 -74.4228,-49.5978 -74.4201,-49.5769 -74.3576,-49.5681 -74.3333,-49.5866 -74.3097,-49.6188 -74.3038,-49.6818 -74.3548,-49.8744 -74.368,-49.8907 -74.4316,-49.9404 -74.5161,-49.9895 -74.5474,-49.9957 -74.6505,-49.9975 -74.6625,-49.9959 -74.7384,-49.9687 -74.7585,-49.9526 -74.7307,-49.9173 -74.7002,-49.8986 -74.6371,-49.8716 -74.6118,-49.8644 -74.5898,-49.8738 -74.5558,-49.8895 -74.6033,-49.8475 -74.6299,-49.8438 -74.6583,-49.852 -74.7404,-49.8959 -74.7747,-49.9002 -74.7999,-49.8717 -74.794,-49.8243 -74.7739,-49.7309 -74.8089,-49.6288 -74.7742,-49.4801 -74.7328,-49.4519 -74.674,-49.4209 -74.5457,-49.3037 -74.5849,-49.3129 -74.6457,-49.3665 -74.7563,-49.4513 -74.8368,-49.4862 -74.8518,-49.4655 -74.8597,-49.425 -74.8952,-49.4541 -74.8985,-49.4811 -74.8975,-49.5324 -74.8954,-49.5711 -74.8787,-49.5967 -74.8534,-49.6196 -74.8751,-49.7516 -74.9059,-49.842 -74.9397,-49.837 -75.0328,-49.7916 -75.105,-49.6972 -75.1857,-49.5759 -75.1618,-49.517 -75.1813,-49.4467 -75.2159,-49.4057 -75.2578,-49.3774 -75.2925,-49.388 -75.3237,-49.4 -75.3485,-49.346 -75.3536,-49.3152 -75.3547,-49.2594 -75.317,-49.2277 -75.2949,-49.222 -75.2733,-49.2254 -75.2208,-49.2869 -75.2089,-49.3141 -75.1731,-49.3626 -75.0935,-49.4304 -75.0651,-49.4433 -75.0567,-49.4455 -75.0555,-49.4369 -75.0926,-49.3941 -75.1281,-49.3612 -75.1464,-49.3458 -75.1674,-49.3237 -75.21,-49.2572 -75.2066,-49.2095 -75.1596,-49.2017 -75.1381,-49.2187 -75.0835,-49.2774 -75.0524,-49.2846 -75.0013,-49.2394 -74.9672,-49.2086 -74.957,-49.1894 -74.9802,-49.1479 -74.9462,-49.1644 -74.8662,-49.2287 -74.8076,-49.2793 -74.779,-49.233 -74.7174,-49.0393 -74.7802,-48.9905 -74.8171,-48.965 -74.8391,-48.9547 -74.8598,-48.9324 -74.9141,-48.8524 -74.9512,-48.7842 -74.9396,-48.7402 -74.8673,-48.704 -74.7305,-48.641 -74.6325,-48.6242 -74.5007,-48.645 -74.5007,-48.645 20,-3.0,Chile -75.0962,-48.9383 -75.1164,-48.9104 -75.1995,-48.744 -75.1675,-48.7427 -75.1176,-48.7534 -75.1026,-48.7578 -75.0745,-48.7675 -75.0406,-48.7816 -75.0073,-48.7985 -74.9951,-48.8074 -74.9868,-48.8155 -74.9725,-48.833 -74.9676,-48.843 -74.9491,-48.8934 -74.9518,-48.9047 -74.96,-48.9135 -75.062,-48.9425 -75.08,-48.943 -75.0962,-48.9383 -75.0962,-48.9383 30,-3.0,Chile -75.1474,-49.0254 -75.203,-48.9126 -75.2121,-48.8981 -75.3119,-48.931 -75.3444,-48.972 -75.3529,-48.9804 -75.3675,-48.9884 -75.3893,-48.9898 -75.5175,-48.924 -75.5294,-48.9177 -75.5366,-48.9088 -75.5422,-48.8995 -75.5459,-48.8826 -75.5464,-48.8702 -75.544,-48.8563 -75.5402,-48.8444 -75.5227,-48.8122 -75.5118,-48.8019 -75.4347,-48.7849 -75.259,-48.793 -75.2425,-48.7964 -75.2042,-48.8074 -75.1925,-48.8137 -75.1713,-48.8337 -75.0918,-48.9768 -75.0918,-48.9893 -75.1293,-49.0169 -75.1409,-49.0228 -75.1474,-49.0254 -75.1474,-49.0254 26,-3.0,Chile -75.403,-49.2151 -75.4122,-49.2141 -75.4961,-49.1842 -75.5242,-49.174 -75.5392,-49.1666 -75.5454,-49.1572 -75.4908,-49.0856 -75.4376,-49.0614 -75.4233,-49.0594 -75.4045,-49.0652 -75.3541,-49.0334 -75.3353,-48.9995 -75.3262,-48.9831 -75.2791,-48.9432 -75.2615,-48.9338 -75.2439,-48.929 -75.2317,-48.9315 -75.2175,-48.9552 -75.1789,-49.0263 -75.1751,-49.0401 -75.1947,-49.0668 -75.2118,-49.0836 -75.2213,-49.091 -75.3637,-49.1928 -75.403,-49.2151 -75.403,-49.2151 20,-3.0,Chile -74.8421,-49.2214 -74.9354,-49.1484 -75.0833,-49.116 -75.1283,-49.0959 -75.126,-49.0793 -75.1164,-49.0662 -75.1009,-49.0477 -75.0894,-49.0341 -75.0762,-49.0216 -75.0111,-48.967 -74.8662,-48.9733 -74.839,-48.9871 -74.7939,-49.02 -74.7845,-49.0278 -74.7802,-49.0633 -74.7807,-49.0762 -74.8161,-49.2412 -74.83,-49.2336 -74.8421,-49.2214 -74.8421,-49.2214 14,-3.0,Chile -74.3187,-49.5573 -74.3284,-49.5184 -74.3399,-49.4278 -74.3328,-49.3883 -74.3281,-49.3728 -74.3164,-49.3697 -74.257,-49.4042 -74.2319,-49.4196 -74.2221,-49.4303 -74.1773,-49.4926 -74.1821,-49.5016 -74.3057,-49.5711 -74.3187,-49.5573 -74.3187,-49.5573 19,13.0,New Zealand 178.5692,-49.6122 178.5604,-49.6586 178.5523,-49.6666 178.5411,-49.6689 178.4728,-49.6606 178.4591,-49.6563 178.4532,-49.6462 178.4524,-49.6244 178.4636,-49.6095 178.4754,-49.5987 178.4901,-49.5858 178.5149,-49.5698 178.5388,-49.5579 178.5514,-49.5565 178.572,-49.5658 178.5772,-49.5764 178.5728,-49.6036 178.5692,-49.6122 178.5692,-49.6122 31,-3.0,Chile -75.068,-49.847 -75.0849,-49.8277 -75.1421,-49.7824 -75.166,-49.7774 -75.1574,-49.8079 -75.15,-49.8258 -75.1495,-49.8365 -75.1629,-49.841 -75.1863,-49.8352 -75.2177,-49.8143 -75.237,-49.7994 -75.2629,-49.7657 -75.2631,-49.7533 -75.2594,-49.7411 -75.3161,-49.7129 -75.428,-49.7822 -75.4474,-49.7768 -75.475,-49.7364 -75.4801,-49.7264 -75.4916,-49.6042 -75.4511,-49.569 -75.2717,-49.5581 -75.2602,-49.5605 -75.2481,-49.5671 -75.2338,-49.5784 -75.1975,-49.6125 -75.0869,-49.7589 -75.0822,-49.7688 -75.0617,-49.8412 -75.068,-49.847 -75.068,-49.847 68,-3.0,Chile -74.9417,-50.2412 -74.9631,-50.2625 -75.0849,-50.3674 -75.0974,-50.3765 -75.12,-50.382 -75.1926,-50.3789 -75.2031,-50.3758 -75.2073,-50.367 -75.2077,-50.3517 -75.1964,-50.3357 -75.1613,-50.3212 -75.1332,-50.2987 -75.089,-50.2575 -75.1033,-50.2487 -75.1707,-50.2611 -75.2195,-50.2818 -75.3213,-50.3099 -75.3347,-50.3102 -75.3457,-50.3031 -75.345,-50.2871 -75.3367,-50.241 -75.3321,-50.2171 -75.3076,-50.162 -75.2807,-50.1133 -75.2726,-50.1001 -75.261,-50.0901 -75.2476,-50.0856 -75.2289,-50.0847 -75.2122,-50.0886 -75.1452,-50.1067 -75.1411,-50.1165 -75.1518,-50.1273 -75.1616,-50.1312 -75.19,-50.1347 -75.2298,-50.1352 -75.236,-50.1432 -75.2213,-50.1609 -75.2068,-50.1692 -75.1647,-50.1834 -75.0847,-50.1961 -75.0318,-50.1908 -75.0353,-50.1417 -75.0465,-50.1106 -75.1153,-50.0965 -75.1905,-50.0654 -75.2699,-50.0221 -75.2874,-49.9862 -75.2069,-49.9446 -75.1899,-49.9432 -75.0313,-49.9683 -75.0189,-49.9747 -74.887,-50.0779 -74.9355,-50.109 -74.9503,-50.12 -74.9575,-50.1306 -74.9152,-50.1322 -74.7505,-50.1064 -74.7332,-50.0813 -74.7448,-50.0696 -74.7026,-50.0572 -74.6882,-50.0685 -74.678,-50.0902 -74.6806,-50.1237 -74.6981,-50.1553 -74.8898,-50.2277 -74.9038,-50.2321 -74.9417,-50.2412 -74.9417,-50.2412 16,-3.0,Chile -74.6446,-50.4416 -74.6661,-50.4372 -74.6731,-50.4295 -74.6427,-50.3332 -74.5867,-50.3059 -74.5758,-50.3033 -74.5572,-50.3037 -74.4966,-50.3079 -74.4337,-50.3212 -74.4309,-50.3311 -74.4448,-50.347 -74.5281,-50.3938 -74.6099,-50.4373 -74.6251,-50.4414 -74.6446,-50.4416 -74.6446,-50.4416 37,-3.0,Chile -74.0957,-50.7927 -74.1229,-50.7464 -74.1344,-50.737 -74.1562,-50.7266 -74.2009,-50.7418 -74.2059,-50.7528 -74.2924,-50.732 -74.3913,-50.6818 -74.4015,-50.6743 -74.4494,-50.6064 -74.4572,-50.5916 -74.462,-50.5718 -74.4578,-50.56 -74.3824,-50.5135 -74.3127,-50.4676 -74.388,-50.4474 -74.3984,-50.447 -74.4177,-50.4516 -74.4332,-50.4548 -74.4482,-50.4548 -74.5543,-50.4201 -74.4946,-50.385 -74.4818,-50.3791 -74.469,-50.3735 -74.4495,-50.3653 -74.4316,-50.3602 -74.4184,-50.3618 -74.251,-50.433 -74.1616,-50.5635 -74.1238,-50.6198 -74.0678,-50.7114 -74.0633,-50.7311 -74.0655,-50.7549 -74.0776,-50.7873 -74.087,-50.7919 -74.0957,-50.7927 -74.0957,-50.7927 36,-3.0,Chile -75.213,-50.7337 -75.3103,-50.7168 -75.3307,-50.7116 -75.3412,-50.7043 -75.3994,-50.6011 -75.3908,-50.5885 -75.3453,-50.5584 -75.3128,-50.5453 -75.2992,-50.5443 -75.2848,-50.5463 -75.2597,-50.5571 -75.2544,-50.5283 -75.2852,-50.481 -75.3141,-50.4654 -75.3486,-50.4496 -75.3464,-50.4356 -75.2986,-50.4078 -75.2762,-50.4061 -75.0727,-50.4344 -74.9862,-50.4377 -74.9761,-50.4443 -74.9824,-50.4577 -75.082,-50.542 -75.0985,-50.5442 -75.1097,-50.5437 -75.1275,-50.5406 -75.1432,-50.5359 -75.1604,-50.5261 -75.1633,-50.5541 -75.1586,-50.6187 -75.1545,-50.6922 -75.1705,-50.7237 -75.1879,-50.7317 -75.2036,-50.7349 -75.213,-50.7337 -75.213,-50.7337 38,13.0,New Zealand 166.04,-50.5096 165.9899,-50.5409 165.9465,-50.5694 165.8889,-50.6391 165.9184,-50.6644 165.9763,-50.6952 165.9971,-50.7638 165.9943,-50.7806 165.9841,-50.7926 165.9717,-50.7987 165.9588,-50.7991 165.9477,-50.7964 165.901,-50.78 165.7683,-50.7791 165.7582,-50.7862 165.7477,-50.7885 165.6399,-50.7884 165.6344,-50.7496 165.6467,-50.712 165.6556,-50.7039 165.731,-50.6615 165.7492,-50.6551 165.7599,-50.6527 165.7873,-50.6488 165.8046,-50.6371 165.8371,-50.6069 165.866,-50.5175 165.8647,-50.5054 165.8551,-50.4895 165.8566,-50.4779 165.8722,-50.4696 165.8824,-50.4675 165.9363,-50.4683 165.9476,-50.4687 165.9717,-50.4709 166.0298,-50.4965 166.04,-50.5096 166.04,-50.5096 15,-3.0,Chile -74.9505,-50.7397 -74.963,-50.7309 -74.971,-50.7218 -74.9953,-50.6774 -74.9975,-50.6589 -74.9649,-50.5984 -74.9518,-50.5934 -74.8758,-50.5954 -74.8667,-50.6032 -74.864,-50.6176 -74.8714,-50.7493 -74.8836,-50.7554 -74.9164,-50.753 -74.9505,-50.7397 -74.9505,-50.7397 18,-3.0,Chile -74.5846,-50.832 -74.6644,-50.8278 -74.7047,-50.8204 -74.8102,-50.7965 -74.8228,-50.784 -74.8483,-50.7146 -74.8437,-50.6808 -74.8383,-50.6697 -74.7785,-50.6205 -74.7091,-50.605 -74.6947,-50.608 -74.6333,-50.6452 -74.5505,-50.7608 -74.5484,-50.7723 -74.5587,-50.8097 -74.5726,-50.8298 -74.5846,-50.832 -74.5846,-50.832 42,-3.0,Chile -74.6055,-51.0526 -74.7699,-51.0033 -74.8456,-50.9172 -74.85,-50.9068 -74.8494,-50.8906 -74.8453,-50.8749 -74.8183,-50.8309 -74.8063,-50.825 -74.7486,-50.828 -74.6321,-50.8478 -74.5768,-50.8618 -74.5018,-50.8359 -74.4968,-50.7574 -74.4998,-50.7377 -74.5094,-50.7238 -74.5357,-50.7063 -74.5475,-50.7026 -74.5645,-50.6959 -74.5708,-50.6867 -74.5657,-50.6763 -74.5438,-50.6678 -74.5082,-50.6732 -74.4392,-50.6934 -74.376,-50.7205 -74.2958,-50.7715 -74.2873,-50.7845 -74.283,-50.8013 -74.2568,-50.9646 -74.2767,-51.022 -74.2873,-51.0297 -74.2999,-51.0253 -74.3043,-51.0053 -74.3203,-50.9693 -74.3481,-50.9425 -74.3635,-50.9385 -74.3744,-50.9409 -74.488,-50.9845 -74.5077,-51.0257 -74.5155,-51.0343 -74.5977,-51.0523 -74.6055,-51.0526 -74.6055,-51.0526 12,13.0,New Zealand 165.913,-50.8441 165.8428,-50.8641 165.8327,-50.8644 165.7523,-50.8521 165.7201,-50.8461 165.6799,-50.8133 165.6745,-50.7951 165.8542,-50.7966 165.9409,-50.8172 165.9617,-50.8291 165.913,-50.8441 165.913,-50.8441 17,-3.0,Chile -74.1675,-51.1587 -74.2095,-51.0255 -74.2238,-50.9697 -74.2344,-50.8752 -74.227,-50.8653 -74.2012,-50.8648 -74.1818,-50.8909 -74.1764,-50.9011 -74.1217,-51.013 -74.0858,-51.1023 -74.078,-51.1392 -74.1347,-51.1833 -74.1488,-51.1881 -74.1625,-51.1873 -74.1704,-51.1783 -74.1675,-51.1587 -74.1675,-51.1587 17,-3.0,Chile -74.3131,-51.1471 -74.4464,-51.1069 -74.4609,-51.0984 -74.4903,-51.0439 -74.4864,-51.0161 -74.3803,-50.9669 -74.3634,-50.9654 -74.3523,-50.9691 -74.3408,-50.9821 -74.2788,-51.0627 -74.2735,-51.0725 -74.2709,-51.0838 -74.2705,-51.1118 -74.2943,-51.1469 -74.3069,-51.1487 -74.3131,-51.1471 -74.3131,-51.1471 40,-3.0,Chile -74.8725,-51.4165 -74.8814,-51.4162 -74.9038,-51.4065 -74.8985,-51.3806 -74.8281,-51.3459 -74.7761,-51.3318 -74.755,-51.3242 -74.6814,-51.2734 -74.6734,-51.2612 -74.6839,-51.2593 -74.7912,-51.2974 -74.8128,-51.3081 -74.8331,-51.3038 -74.8446,-51.2925 -74.8489,-51.2788 -74.8452,-51.2668 -74.8373,-51.2576 -74.6787,-51.1501 -74.6004,-51.1359 -74.4984,-51.1328 -74.4536,-51.1665 -74.4459,-51.1753 -74.4211,-51.2194 -74.4282,-51.3023 -74.4407,-51.3157 -74.4821,-51.3455 -74.4917,-51.3497 -74.5151,-51.3498 -74.5274,-51.3434 -74.563,-51.2704 -74.6034,-51.2838 -74.6242,-51.3137 -74.6677,-51.3723 -74.6818,-51.3771 -74.7249,-51.3829 -74.7626,-51.385 -74.8175,-51.3893 -74.835,-51.3953 -74.8725,-51.4165 -74.8725,-51.4165 17,-3.0,Chile -73.9635,-51.318 -73.9755,-51.3125 -73.9873,-51.3024 -74.0055,-51.2352 -74.0042,-51.2255 -73.9937,-51.1772 -73.9858,-51.1679 -73.9747,-51.1647 -73.9557,-51.1635 -73.8824,-51.171 -73.8572,-51.1814 -73.851,-51.1957 -73.8383,-51.2466 -73.8405,-51.2698 -73.9351,-51.3203 -73.9635,-51.318 -73.9635,-51.318 20,-3.0,Chile -73.6729,-51.3124 -73.7452,-51.3026 -73.755,-51.2985 -73.78,-51.2829 -73.8012,-51.2435 -73.7948,-51.2332 -73.7717,-51.2163 -73.7322,-51.1928 -73.7157,-51.1899 -73.6982,-51.1936 -73.6806,-51.2 -73.6671,-51.2089 -73.658,-51.2166 -73.6504,-51.2252 -73.6434,-51.2426 -73.6455,-51.264 -73.6605,-51.3017 -73.667,-51.3117 -73.6729,-51.3124 -73.6729,-51.3124 33,-3.0,Chile -75.193,-51.5742 -75.2003,-51.5592 -75.1977,-51.4813 -75.1566,-51.4531 -75.1136,-51.4106 -75.1052,-51.3606 -75.1027,-51.2904 -75.1043,-51.274 -75.102,-51.2599 -75.0972,-51.2488 -75.0892,-51.2397 -75.0431,-51.2131 -75.027,-51.2062 -75.0141,-51.206 -74.8888,-51.276 -74.8804,-51.3067 -74.8839,-51.3358 -74.8891,-51.3471 -74.9047,-51.3548 -74.9177,-51.3547 -74.9326,-51.3463 -74.9509,-51.3442 -74.9603,-51.3487 -75.0216,-51.4347 -75.0176,-51.4517 -75.0158,-51.4697 -75.0179,-51.4857 -75.0247,-51.4999 -75.0368,-51.5173 -75.1714,-51.5713 -75.1831,-51.5737 -75.193,-51.5742 -75.193,-51.5742 16,-3.0,Chile -74.0198,-51.3915 -74.0805,-51.37 -74.1201,-51.3518 -74.1321,-51.3425 -74.1463,-51.2893 -74.149,-51.2588 -74.1452,-51.2403 -74.0678,-51.223 -74.0546,-51.2285 -74.0017,-51.3184 -73.9966,-51.3285 -73.9945,-51.3819 -74.0002,-51.3927 -74.0127,-51.3945 -74.0198,-51.3915 -74.0198,-51.3915 25,-3.0,Chile -73.9064,-51.7418 -73.9293,-51.7377 -73.9443,-51.7329 -74.0835,-51.6685 -74.1045,-51.6574 -74.1207,-51.6437 -74.1225,-51.6253 -74.1145,-51.6161 -74.0681,-51.61 -74.0246,-51.6101 -73.9731,-51.5547 -73.9894,-51.4942 -73.9833,-51.484 -73.9737,-51.4795 -73.959,-51.4813 -73.9432,-51.4905 -73.8098,-51.6996 -73.8101,-51.7151 -73.8245,-51.7254 -73.8369,-51.7309 -73.8623,-51.7395 -73.8832,-51.7429 -73.8933,-51.7429 -73.9064,-51.7418 -73.9064,-51.7418 35,-3.0,Chile -74.8513,-52.0574 -74.8687,-52.0369 -74.9419,-51.91 -74.8552,-51.7644 -74.8387,-51.7501 -74.8082,-51.7705 -74.8049,-51.7809 -74.8168,-51.7946 -74.8151,-51.8055 -74.7902,-51.8089 -74.7574,-51.8055 -74.7367,-51.8017 -74.7135,-51.7843 -74.7437,-51.6641 -74.7736,-51.6143 -74.8001,-51.6059 -74.8144,-51.5973 -74.8166,-51.5865 -74.8058,-51.5758 -74.7867,-51.567 -74.7726,-51.5625 -74.7523,-51.5593 -74.6894,-51.5745 -74.673,-51.588 -74.6688,-51.5988 -74.6533,-51.6874 -74.6483,-51.7198 -74.664,-51.7613 -74.7137,-51.8835 -74.7664,-51.9847 -74.8163,-52.0393 -74.8313,-52.051 -74.8435,-52.057 -74.8513,-52.0574 -74.8513,-52.0574 15,-3.0,Chile -73.6813,-51.7588 -73.6909,-51.7587 -73.7153,-51.7557 -73.7336,-51.7493 -73.7413,-51.7406 -73.8273,-51.6308 -73.8283,-51.6114 -73.8205,-51.6018 -73.7978,-51.6014 -73.732,-51.6234 -73.6798,-51.6661 -73.6504,-51.7082 -73.6521,-51.7207 -73.6813,-51.7588 -73.6813,-51.7588 13,-3.0,Chile -74.0466,-51.8924 -74.115,-51.8845 -74.2577,-51.8308 -74.3113,-51.7888 -74.3871,-51.6523 -74.2578,-51.6794 -74.0559,-51.7817 -73.9739,-51.8167 -73.9756,-51.828 -74.0175,-51.8837 -74.0284,-51.891 -74.0466,-51.8924 -74.0466,-51.8924 21,-3.0,Chile -74.9905,-51.8395 -74.9987,-51.834 -75.0039,-51.824 -74.9777,-51.7301 -74.9596,-51.6905 -74.9535,-51.6802 -74.9384,-51.6685 -74.917,-51.6577 -74.8972,-51.6532 -74.8721,-51.6564 -74.851,-51.6691 -74.8471,-51.6848 -74.8559,-51.7221 -74.8731,-51.7627 -74.8888,-51.7929 -74.8984,-51.8046 -74.9094,-51.8118 -74.9539,-51.8359 -74.9767,-51.8413 -74.9905,-51.8395 -74.9905,-51.8395 15,-3.0,Chile -73.7437,-51.8421 -73.8241,-51.8327 -73.8356,-51.8258 -73.8444,-51.7793 -73.8137,-51.7415 -73.8015,-51.7352 -73.7886,-51.7362 -73.7772,-51.743 -73.767,-51.7506 -73.7478,-51.7658 -73.704,-51.8102 -73.7083,-51.8242 -73.7296,-51.837 -73.7437,-51.8421 -73.7437,-51.8421 16,-3.0,Chile -74.7524,-52.0809 -74.7588,-52.0793 -74.7792,-52.0557 -74.6775,-51.8408 -74.6699,-51.8274 -74.6489,-51.7973 -74.638,-51.7825 -74.6265,-51.7723 -74.6139,-51.7715 -74.4839,-51.783 -74.4879,-51.7986 -74.652,-52.0228 -74.6621,-52.0307 -74.7455,-52.0782 -74.7524,-52.0809 -74.7524,-52.0809 17,-3.0,Chile -72.9983,-51.991 -73.0031,-51.9702 -72.9977,-51.9518 -72.9907,-51.9384 -72.984,-51.9284 -72.9421,-51.8729 -72.9328,-51.8682 -72.853,-51.8434 -72.7741,-51.8251 -72.7788,-51.8572 -72.8751,-51.9827 -72.9019,-51.9895 -72.958,-52.0016 -72.9795,-52.0037 -72.9902,-51.9997 -72.9983,-51.991 -72.9983,-51.991 28,-3.0,Chile -73.6079,-52.1636 -73.6132,-52.155 -73.6413,-52.1239 -73.6872,-52.0807 -73.7563,-52.0361 -73.7755,-52.0269 -73.8358,-52.0011 -73.9005,-51.9773 -73.9648,-51.9533 -73.9786,-51.9477 -73.9961,-51.9378 -73.9973,-51.9029 -73.9789,-51.8622 -73.9437,-51.8456 -73.9313,-51.8473 -73.9123,-51.8565 -73.7428,-51.9523 -73.7311,-51.9591 -73.6903,-51.9834 -73.6543,-52.0058 -73.6448,-52.017 -73.5937,-52.0895 -73.5716,-52.144 -73.5713,-52.1595 -73.5765,-52.1778 -73.5923,-52.1775 -73.6079,-52.1636 -73.6079,-52.1636 15,-3.0,Chile -74.6068,-52.0045 -74.5979,-51.9825 -74.5918,-51.9715 -74.5803,-51.9615 -74.4272,-51.8654 -74.3923,-51.8788 -74.3724,-51.8945 -74.3734,-51.9241 -74.3846,-51.9437 -74.4422,-51.9678 -74.5605,-52.0135 -74.6042,-52.0269 -74.6147,-52.0214 -74.6068,-52.0045 -74.6068,-52.0045 13,-3.0,Chile -74.6544,-52.1279 -74.6719,-52.1245 -74.6813,-52.1166 -74.6853,-52.1061 -74.6839,-52.0855 -74.6708,-52.0636 -74.4947,-51.9999 -74.4821,-52.0198 -74.5651,-52.1085 -74.627,-52.1249 -74.6444,-52.1274 -74.6544,-52.1279 -74.6544,-52.1279 39,-3.0,Chile -74.0267,-52.3317 -74.0715,-52.3102 -74.109,-52.2661 -74.1165,-52.1877 -74.1095,-52.1777 -74.0939,-52.1703 -74.0823,-52.1674 -74.0608,-52.1691 -74.0372,-52.1766 -74.0255,-52.1833 -74.0003,-52.1926 -73.9883,-52.1902 -74.0285,-52.1365 -74.0393,-52.1287 -74.0646,-52.1167 -74.1518,-52.0982 -74.2086,-52.1035 -74.2251,-52.1071 -74.2486,-52.1059 -74.2681,-52.1 -74.2961,-52.0857 -74.2979,-52.0727 -74.2309,-52.0339 -74.2133,-52.0276 -74.1936,-52.023 -74.1834,-52.0227 -74.1685,-52.0277 -74.1559,-52.034 -74.1255,-52.05 -74.0769,-52.076 -74.0108,-52.1176 -73.969,-52.1473 -73.8171,-52.2624 -73.8175,-52.2762 -73.8595,-52.2956 -73.9856,-52.3357 -74.0178,-52.3365 -74.0267,-52.3317 -74.0267,-52.3317 24,-3.0,Chile -73.7227,-52.3324 -73.7643,-52.3004 -73.7977,-52.2419 -73.8833,-52.1974 -73.9609,-52.1354 -73.9689,-52.1269 -73.9773,-52.1054 -73.9626,-52.0916 -73.9316,-52.0804 -73.9204,-52.0807 -73.8733,-52.1004 -73.8316,-52.1414 -73.7697,-52.1623 -73.6929,-52.1885 -73.6721,-52.2033 -73.6602,-52.2163 -73.6559,-52.2266 -73.6303,-52.2947 -73.6344,-52.3107 -73.648,-52.3215 -73.6909,-52.336 -73.7154,-52.3355 -73.7227,-52.3324 -73.7227,-52.3324 12,-3.0,Chile -74.6302,-52.2569 -74.6911,-52.2189 -74.7022,-52.1687 -74.5453,-52.1438 -74.5279,-52.1415 -74.5045,-52.1451 -74.4997,-52.1553 -74.5706,-52.2389 -74.6012,-52.2512 -74.621,-52.2558 -74.6302,-52.2569 -74.6302,-52.2569 27,-3.0,Chile -73.7982,-52.6652 -73.8074,-52.6646 -73.8216,-52.6593 -73.8313,-52.6527 -73.9519,-52.5668 -73.9601,-52.5553 -73.9592,-52.5454 -73.9374,-52.5085 -73.9275,-52.5004 -73.87,-52.4591 -73.7109,-52.3672 -73.6492,-52.3425 -73.6348,-52.3412 -73.6211,-52.3435 -73.608,-52.3501 -73.5974,-52.3611 -73.5544,-52.4165 -73.6115,-52.5409 -73.667,-52.6147 -73.675,-52.6243 -73.689,-52.6367 -73.7068,-52.642 -73.7236,-52.6384 -73.734,-52.6394 -73.7673,-52.6515 -73.7982,-52.6652 -73.7982,-52.6652 21,13.0,New Zealand 168.9404,-52.4044 168.9404,-52.4245 168.9475,-52.467 168.9668,-52.4778 168.9683,-52.493 168.9563,-52.5039 168.9157,-52.5155 168.8918,-52.5165 168.8552,-52.5148 168.8435,-52.5129 168.759,-52.4978 168.7478,-52.4866 168.7387,-52.4746 168.7312,-52.4576 168.7344,-52.4427 168.8948,-52.3848 168.9053,-52.3821 168.9393,-52.383 168.9435,-52.3971 168.9404,-52.4044 168.9404,-52.4044 506,-3.0,Chile -70.7991,-54.6454 -70.814,-54.6524 -70.8719,-54.6954 -70.8905,-54.7093 -70.9157,-54.7135 -70.9252,-54.7058 -70.9242,-54.6935 -70.9152,-54.6815 -70.9061,-54.6728 -70.8913,-54.661 -70.8823,-54.6521 -70.8745,-54.6419 -70.848,-54.5775 -70.8503,-54.5559 -70.8936,-54.5501 -70.9205,-54.5618 -70.9171,-54.576 -70.9225,-54.5869 -70.9377,-54.5989 -71.0438,-54.6347 -71.0593,-54.6392 -71.1516,-54.6155 -71.1712,-54.6094 -71.1809,-54.6013 -71.1813,-54.5903 -71.1691,-54.5837 -71.1544,-54.5824 -71.1404,-54.5514 -71.1443,-54.5142 -71.2152,-54.4588 -71.234,-54.4597 -71.282,-54.4911 -71.3565,-54.6053 -71.3637,-54.6271 -71.3743,-54.6261 -71.3896,-54.621 -71.5488,-54.5514 -71.5611,-54.542 -71.5888,-54.5401 -71.6179,-54.5462 -71.6602,-54.5678 -71.6811,-54.5849 -71.6998,-54.5898 -71.7843,-54.5934 -71.795,-54.5935 -71.8058,-54.5928 -71.8298,-54.5888 -71.8456,-54.579 -71.8563,-54.5603 -71.8799,-54.502 -71.8874,-54.4434 -71.8798,-54.397 -71.8679,-54.3901 -71.8534,-54.3886 -71.8,-54.4006 -71.7527,-54.431 -71.7386,-54.4522 -71.7348,-54.4635 -71.7216,-54.4759 -71.7028,-54.4827 -71.6284,-54.4997 -71.5657,-54.5126 -71.5537,-54.5128 -71.4607,-54.4846 -71.5767,-54.4061 -71.5989,-54.3989 -71.6124,-54.4006 -71.6467,-54.411 -71.6628,-54.4115 -71.7062,-54.3956 -71.7189,-54.3852 -71.7268,-54.3543 -71.67,-54.3347 -71.6444,-54.3334 -71.6221,-54.3343 -71.6121,-54.3354 -71.5939,-54.3466 -71.5831,-54.3729 -71.5137,-54.4315 -71.4968,-54.4391 -71.481,-54.4433 -71.4437,-54.4486 -71.3718,-54.4316 -71.3672,-54.4217 -71.3847,-54.4115 -71.4229,-54.4089 -71.444,-54.4069 -71.46,-54.4021 -71.4714,-54.3953 -71.4875,-54.3775 -71.4982,-54.3554 -71.4818,-54.3429 -71.4686,-54.342 -71.3282,-54.3782 -71.2576,-54.3589 -71.3046,-54.3424 -71.2858,-54.3267 -71.248,-54.3106 -71.2328,-54.311 -71.066,-54.3698 -70.8481,-54.4085 -70.8147,-54.3554 -70.814,-54.3415 -70.8156,-54.329 -70.8185,-54.3177 -70.8274,-54.2924 -70.8173,-54.281 -70.7751,-54.2656 -70.7358,-54.2582 -70.6924,-54.2569 -70.6583,-54.2584 -70.5505,-54.2649 -70.5399,-54.2659 -70.5011,-54.2744 -70.4949,-54.2831 -70.5533,-54.3357 -70.593,-54.3914 -70.6142,-54.4508 -70.6344,-54.5307 -70.5995,-54.5068 -70.5236,-54.5453 -70.5696,-54.4957 -70.5774,-54.4864 -70.5873,-54.4638 -70.5833,-54.4475 -70.5517,-54.3882 -70.544,-54.3788 -70.5227,-54.3601 -70.5094,-54.3509 -70.4712,-54.3286 -70.4545,-54.3283 -70.442,-54.3462 -70.428,-54.3604 -70.3232,-54.4132 -70.2885,-54.4221 -70.2759,-54.4271 -70.2647,-54.4331 -70.2119,-54.4586 -70.2017,-54.4664 -70.1926,-54.4749 -70.1812,-54.4886 -70.168,-54.501 -70.1469,-54.5065 -70.1268,-54.5077 -70.0158,-54.4794 -70.1083,-54.4384 -70.1324,-54.4286 -70.1742,-54.4147 -70.1986,-54.4083 -70.2483,-54.3927 -70.2664,-54.3866 -70.2882,-54.378 -70.3277,-54.3614 -70.3398,-54.3514 -70.3897,-54.3 -70.3806,-54.2803 -70.3845,-54.2653 -70.3991,-54.25 -70.4114,-54.24 -70.4273,-54.2289 -70.4524,-54.2192 -70.5111,-54.2078 -70.5307,-54.2058 -70.5737,-54.2027 -70.66,-54.2056 -70.6949,-54.2048 -70.7137,-54.2017 -70.7277,-54.1962 -70.7463,-54.1847 -70.7606,-54.171 -70.7996,-54.0775 -70.7618,-54.0704 -70.7371,-54.0833 -70.6617,-54.1158 -70.6385,-54.1232 -70.5292,-54.1564 -70.2263,-54.2568 -70.0938,-54.3291 -70.0384,-54.3587 -70.0207,-54.364 -69.9524,-54.3178 -69.9489,-54.3074 -69.9611,-54.3007 -70.0327,-54.2902 -70.0503,-54.2863 -70.0733,-54.2727 -70.0826,-54.2609 -70.081,-54.2498 -70.0166,-54.2134 -70.0041,-54.2064 -69.9795,-54.1939 -69.9623,-54.1863 -69.9485,-54.1845 -69.9378,-54.1853 -69.8896,-54.2053 -69.8553,-54.2335 -69.7531,-54.3639 -69.6802,-54.4737 -69.6555,-54.492 -69.6371,-54.4866 -69.6235,-54.4145 -69.6902,-54.3203 -69.7282,-54.2694 -69.7451,-54.2622 -69.767,-54.2491 -69.7511,-54.2239 -69.7417,-54.2192 -69.7196,-54.2192 -69.6793,-54.2255 -69.567,-54.2601 -69.544,-54.2741 -69.5176,-54.295 -69.2715,-54.3305 -69.1386,-54.3766 -69.1243,-54.3826 -69.115,-54.3909 -69.1102,-54.4049 -69.1134,-54.4162 -69.1872,-54.4699 -69.1975,-54.4742 -69.2347,-54.4867 -69.2484,-54.4961 -69.2882,-54.5453 -69.3007,-54.5622 -69.2688,-54.6158 -69.2583,-54.6222 -69.2481,-54.5881 -69.2122,-54.536 -69.1867,-54.5021 -69.1756,-54.4881 -69.1628,-54.4782 -69.1324,-54.465 -69.1111,-54.4613 -69.0992,-54.4641 -69.0899,-54.4724 -69.0762,-54.4919 -69.0604,-54.5168 -69.032,-54.4899 -69.047,-54.4555 -69.0574,-54.4412 -69.0585,-54.4208 -69.052,-54.4057 -69.0378,-54.3896 -69.0267,-54.386 -68.9817,-54.3861 -68.9712,-54.3872 -68.9417,-54.3944 -68.9047,-54.4136 -68.8913,-54.4122 -68.8784,-54.4037 -68.8769,-54.3669 -68.8918,-54.3567 -68.906,-54.3514 -68.9713,-54.3275 -69.1564,-54.2638 -69.2936,-54.2262 -69.3201,-54.2206 -69.3866,-54.2041 -69.403,-54.1998 -69.4167,-54.1941 -69.43,-54.1847 -69.4501,-54.1655 -69.4666,-54.1613 -69.5595,-54.1396 -69.5873,-54.1351 -69.6072,-54.1329 -69.6298,-54.1318 -69.6494,-54.1296 -69.6764,-54.124 -69.765,-54.1035 -69.9289,-54.0357 -69.9464,-54.0248 -69.9549,-54.013 -70.0337,-53.8596 -70.062,-53.7738 -70.0681,-53.7505 -70.0708,-53.7316 -70.0673,-53.711 -70.048,-53.6894 -70.0304,-53.6796 -69.8034,-53.5923 -69.79,-53.59 -69.7589,-53.5926 -69.7369,-53.5934 -69.7248,-53.5939 -69.7043,-53.5928 -69.653,-53.5825 -69.2533,-53.4493 -69.2402,-53.4433 -69.2272,-53.4288 -69.2219,-53.4093 -69.222,-53.3989 -69.2248,-53.3806 -69.2386,-53.2964 -69.2477,-53.2831 -69.2669,-53.2721 -69.4575,-53.2622 -69.4896,-53.263 -69.7391,-53.2859 -69.778,-53.2893 -69.788,-53.291 -69.829,-53.3005 -69.8646,-53.3135 -69.8831,-53.3229 -69.9047,-53.3339 -69.9176,-53.3434 -69.9397,-53.3665 -69.9588,-53.374 -70.088,-53.4092 -70.1023,-53.4105 -70.1127,-53.4097 -70.1288,-53.4056 -70.149,-53.397 -70.1683,-53.3873 -70.3191,-53.312 -70.3316,-53.3056 -70.3377,-53.2955 -70.3538,-53.2515 -70.3659,-53.218 -70.3725,-53.1685 -70.3719,-53.1548 -70.3429,-52.9753 -70.337,-52.961 -70.3304,-52.9507 -70.3164,-52.939 -70.2407,-52.8838 -70.2279,-52.8912 -70.2359,-52.9046 -70.242,-52.9148 -70.2446,-52.9304 -70.2247,-52.979 -70.2077,-52.9816 -70.1173,-52.9639 -70.0922,-52.9588 -70.0763,-52.9548 -70.0551,-52.9471 -70.0431,-52.9402 -70.0326,-52.9329 -70.0235,-52.9249 -70.0163,-52.9153 -70.0036,-52.8882 -69.9897,-52.8581 -69.9867,-52.8459 -69.9886,-52.8298 -69.9989,-52.819 -70.0822,-52.8099 -70.1023,-52.8081 -70.1496,-52.7626 -70.151,-52.7502 -70.1599,-52.7361 -70.1784,-52.7235 -70.2022,-52.7169 -70.2326,-52.7143 -70.2436,-52.7142 -70.263,-52.716 -70.2908,-52.7195 -70.3051,-52.7173 -70.3106,-52.7085 -70.2873,-52.6882 -70.2593,-52.6778 -70.0764,-52.6574 -70.0573,-52.6555 -70.0326,-52.6583 -70.0076,-52.6674 -69.9966,-52.6746 -69.9834,-52.6869 -69.9687,-52.7086 -69.9347,-52.7393 -69.9191,-52.7506 -69.8947,-52.7636 -69.8698,-52.7692 -69.8492,-52.7709 -69.829,-52.7701 -69.8048,-52.7639 -69.6319,-52.7013 -69.611,-52.69 -69.5925,-52.6737 -69.5026,-52.5797 -69.4933,-52.5612 -69.492,-52.5478 -69.498,-52.4677 -69.4766,-52.4525 -69.4547,-52.442 -69.3419,-52.4047 -69.3067,-52.3983 -69.2504,-52.4429 -69.2413,-52.451 -69.2351,-52.4607 -69.2306,-52.4719 -69.2286,-52.4845 -69.2202,-52.4961 -69.1223,-52.5778 -69.1093,-52.5886 -69.0979,-52.5958 -69.0799,-52.6055 -69.0677,-52.6119 -69.0408,-52.623 -69.0135,-52.6275 -68.9978,-52.6269 -68.9706,-52.6194 -68.8575,-52.5856 -68.7412,-52.5389 -68.7276,-52.5334 -68.7152,-52.5272 -68.7014,-52.5148 -68.585,-52.5438 -68.5078,-52.5802 -68.5087,-52.5892 -68.5098,-52.6577 -68.5102,-52.7333 -68.5115,-53.0769 -68.5119,-53.2142 -68.5112,-53.2623 -68.5112,-53.2758 -68.512,-53.4474 -68.5133,-53.777 -68.5148,-53.9347 -68.5163,-54.2709 -68.5149,-54.2914 -68.5159,-54.4818 -68.5189,-54.7238 -68.5191,-54.7403 -68.5198,-54.8203 -68.5256,-54.8241 -68.5329,-54.8251 -68.5493,-54.8245 -68.5615,-54.8208 -68.5822,-54.8091 -68.5991,-54.7982 -68.6182,-54.785 -68.6382,-54.7761 -68.7724,-54.7383 -68.7319,-54.7789 -68.7217,-54.7867 -68.7082,-54.7958 -68.6836,-54.8062 -68.6413,-54.8161 -68.6311,-54.836 -68.6522,-54.8526 -68.6847,-54.8615 -68.8422,-54.8797 -68.9379,-54.8856 -68.9487,-54.8863 -68.9725,-54.8857 -68.9928,-54.8837 -69.3613,-54.8053 -69.4299,-54.7896 -69.5346,-54.757 -69.5446,-54.7343 -69.5391,-54.7231 -69.51,-54.7044 -69.5051,-54.6935 -69.5094,-54.6313 -69.5197,-54.6325 -69.5962,-54.6627 -69.6032,-54.7223 -69.6217,-54.7441 -69.97,-54.7881 -70.0927,-54.7933 -70.126,-54.794 -70.1594,-54.7891 -70.1849,-54.7795 -70.199,-54.7599 -70.2023,-54.7271 -70.1864,-54.7118 -70.1656,-54.6969 -70.1129,-54.6439 -70.1088,-54.6305 -70.1205,-54.6247 -70.2067,-54.6891 -70.2335,-54.7229 -70.2431,-54.739 -70.2438,-54.7494 -70.274,-54.7559 -70.3118,-54.7498 -70.5077,-54.7426 -70.6161,-54.7748 -70.6301,-54.777 -70.642,-54.7766 -70.6806,-54.771 -70.7016,-54.7624 -70.7153,-54.749 -70.6678,-54.7136 -70.6511,-54.7055 -70.6358,-54.7022 -70.5956,-54.6975 -70.5651,-54.6908 -70.5047,-54.6697 -70.4189,-54.637 -70.4002,-54.6275 -70.342,-54.5784 -70.336,-54.5663 -70.3447,-54.5612 -70.3649,-54.5599 -70.4253,-54.5618 -70.4385,-54.564 -70.505,-54.6069 -70.4898,-54.6158 -70.4643,-54.6254 -70.4714,-54.6338 -70.5177,-54.6511 -70.608,-54.6694 -70.6793,-54.6801 -70.7761,-54.6779 -70.7991,-54.6454 -70.7991,-54.6454 11,-3.0,Chile -70.7856,-54.6392 -70.7403,-54.6414 -70.6617,-54.6264 -70.6512,-54.6193 -70.6625,-54.6126 -70.6773,-54.6107 -70.6877,-54.611 -70.7054,-54.6142 -70.7497,-54.6222 -70.7856,-54.6392 -70.7856,-54.6392 188,-3.0,Argentina -68.5189,-54.7238 -68.5159,-54.4818 -68.5149,-54.2914 -68.5163,-54.2709 -68.5148,-53.9347 -68.5133,-53.777 -68.512,-53.4474 -68.5112,-53.2758 -68.5112,-53.2623 -68.5119,-53.2142 -68.5115,-53.0769 -68.5102,-52.7333 -68.5098,-52.6577 -68.5087,-52.5892 -68.5078,-52.5802 -68.4616,-52.625 -68.4146,-52.6788 -68.341,-52.751 -68.3003,-52.782 -68.238,-52.82 -68.222,-52.8314 -68.2093,-52.8441 -68.1925,-52.8614 -68.1847,-52.8705 -68.1774,-52.88 -68.1596,-52.9103 -68.1517,-52.9261 -68.1473,-52.9372 -68.1134,-53.0441 -68.1129,-53.0562 -68.1293,-53.0551 -68.1427,-53.0307 -68.1476,-53.0196 -68.1531,-53.0022 -68.1609,-52.9731 -68.1675,-52.9564 -68.181,-52.942 -68.2031,-52.933 -68.2169,-52.9323 -68.2579,-52.9418 -68.2812,-52.9517 -68.4324,-53.0643 -68.4512,-53.0908 -68.4558,-53.1118 -68.4561,-53.1259 -68.4514,-53.137 -68.4462,-53.1477 -68.4319,-53.1671 -68.4139,-53.1839 -68.4039,-53.1911 -68.3864,-53.2017 -68.3463,-53.2192 -68.3188,-53.2302 -68.2928,-53.2349 -68.2526,-53.2384 -68.1985,-53.2394 -68.172,-53.2381 -68.1148,-53.2244 -68.0892,-53.2223 -68.0684,-53.2236 -68.0519,-53.2315 -68.0399,-53.2418 -67.988,-53.307 -67.9811,-53.3174 -67.9753,-53.3273 -67.9721,-53.3393 -67.9546,-53.3983 -67.9314,-53.4599 -67.8965,-53.5068 -67.8852,-53.5205 -67.8769,-53.5296 -67.8583,-53.5458 -67.6918,-53.6466 -67.6268,-53.6843 -67.5461,-53.7284 -67.517,-53.7421 -67.4737,-53.7683 -67.4723,-53.7833 -67.477,-53.7945 -67.477,-53.8078 -67.4743,-53.8206 -67.4672,-53.8367 -67.4613,-53.8471 -67.4515,-53.8555 -67.3786,-53.8946 -67.247,-53.9654 -67.1549,-54.0075 -66.8819,-54.1223 -66.7581,-54.1647 -66.7317,-54.17 -66.645,-54.2011 -66.6179,-54.2133 -66.6048,-54.2193 -66.5916,-54.2253 -66.5736,-54.2358 -66.5428,-54.2624 -66.4572,-54.3358 -66.4373,-54.3482 -66.2088,-54.4444 -66.1655,-54.4605 -66.1513,-54.4661 -66.1297,-54.4736 -66.1154,-54.4779 -65.9513,-54.5242 -65.9354,-54.5288 -65.6959,-54.5931 -65.5943,-54.6074 -65.5739,-54.6089 -65.5618,-54.6087 -65.3171,-54.5851 -65.2195,-54.5712 -65.1864,-54.5693 -65.1246,-54.5695 -65.1083,-54.5701 -65.0484,-54.5788 -65.0294,-54.589 -65.127,-54.7493 -65.207,-54.8374 -65.225,-54.8538 -65.2386,-54.8633 -65.2648,-54.8661 -65.2846,-54.8605 -65.2898,-54.8493 -65.3738,-54.838 -65.4906,-54.8672 -65.5941,-54.8611 -65.6019,-54.8513 -65.615,-54.8417 -65.6251,-54.8378 -65.6552,-54.8311 -65.7654,-54.827 -65.776,-54.8276 -65.8232,-54.8339 -65.8393,-54.8539 -65.8701,-54.8745 -65.8968,-54.8901 -65.9909,-54.9153 -66.01,-54.9182 -66.0516,-54.9222 -66.0727,-54.9238 -66.147,-54.9194 -66.2257,-54.9177 -66.238,-54.9177 -66.2617,-54.9215 -66.271,-54.9264 -66.3321,-54.9868 -66.3441,-54.9868 -66.4374,-54.9797 -66.4662,-54.9759 -66.5179,-54.9648 -66.5387,-54.9596 -66.5601,-54.9484 -66.5713,-54.9409 -66.5801,-54.9319 -66.5945,-54.9197 -66.6128,-54.9097 -66.6324,-54.9002 -66.6817,-54.8807 -66.7072,-54.875 -66.8785,-54.8468 -66.8966,-54.8439 -66.907,-54.8428 -67.0418,-54.8337 -67.3733,-54.8128 -67.4887,-54.8178 -67.5089,-54.8203 -67.5411,-54.8222 -67.5636,-54.823 -67.5981,-54.8222 -67.7103,-54.8129 -67.8841,-54.7967 -67.9126,-54.7928 -67.9459,-54.7842 -67.9503,-54.7828 -67.9839,-54.7719 -68.0008,-54.7676 -68.0362,-54.761 -68.1291,-54.7524 -68.1927,-54.763 -68.2035,-54.7776 -68.2161,-54.7806 -68.3755,-54.791 -68.3978,-54.7915 -68.4172,-54.7888 -68.4372,-54.7834 -68.4585,-54.7715 -68.5189,-54.7238 -68.5189,-54.7238 79,-3.0,Chile -73.2481,-53.2075 -73.1818,-53.1998 -73.1697,-53.2019 -73.0963,-53.2316 -72.983,-53.2795 -72.9718,-53.2908 -72.9827,-53.305 -72.9971,-53.3099 -73.0071,-53.3104 -73.121,-53.306 -73.3699,-53.2666 -73.3794,-53.2392 -73.3858,-53.2278 -73.4543,-53.2089 -73.4832,-53.1722 -73.5987,-53.106 -73.6145,-53.1086 -73.7114,-53.0509 -73.7735,-53.0028 -73.8575,-53.0142 -73.9,-53.0274 -73.9476,-53.0455 -74.1825,-53.0399 -74.2055,-53.0317 -74.2307,-52.9731 -74.3043,-52.9176 -74.3239,-52.9172 -74.3865,-52.9078 -74.454,-52.8752 -74.4673,-52.8689 -74.4756,-52.8577 -74.4676,-52.8405 -74.4488,-52.7923 -74.4762,-52.7658 -74.4867,-52.7615 -74.5119,-52.7581 -74.5588,-52.7442 -74.573,-52.7387 -74.6241,-52.6969 -74.5817,-52.658 -74.5695,-52.6574 -74.5231,-52.6766 -74.3789,-52.762 -74.3227,-52.8022 -74.2843,-52.857 -74.2405,-52.887 -74.1294,-52.9024 -74.1169,-52.8886 -74.0762,-52.8821 -74.0088,-52.8742 -73.9046,-52.8986 -73.7768,-52.9441 -73.7143,-52.9772 -73.6729,-52.9931 -73.5975,-53.0157 -73.535,-53.0171 -73.5337,-52.9978 -73.4855,-53.005 -73.4433,-53.0391 -73.4363,-53.0469 -73.4181,-53.0898 -73.4279,-53.1017 -73.4428,-53.1134 -73.4518,-53.1266 -73.4147,-53.1864 -73.4041,-53.1967 -73.3887,-53.2019 -73.3511,-53.1605 -73.3612,-53.1418 -73.3713,-53.1195 -73.3813,-53.0847 -73.3689,-53.0743 -73.3545,-53.0735 -73.3362,-53.0769 -73.3076,-53.0845 -73.1975,-53.1664 -73.193,-53.1781 -73.2481,-53.2075 -73.2481,-53.2075 23,-3.0,Chile -73.2932,-52.892 -73.322,-52.8941 -73.3355,-52.8928 -73.3693,-52.8717 -73.3768,-52.8629 -73.366,-52.8495 -73.3495,-52.8484 -73.3395,-52.845 -73.3747,-52.831 -73.4144,-52.8226 -73.4949,-52.8184 -73.5132,-52.8204 -73.6016,-52.8316 -73.6226,-52.8388 -73.6333,-52.8314 -73.5805,-52.8014 -73.4573,-52.7835 -73.3103,-52.8091 -73.2976,-52.8149 -73.257,-52.8452 -73.2695,-52.89 -73.2932,-52.892 -73.2932,-52.892 17,-3.0,Chile -73.9357,-53.1899 -73.9404,-53.2018 -73.9848,-53.2468 -74.0124,-53.258 -74.0752,-53.27 -74.0929,-53.2689 -74.1034,-53.2644 -74.1213,-53.2512 -74.1235,-53.2404 -74.0691,-53.2078 -74.0271,-53.1849 -73.9851,-53.1657 -73.9728,-53.1661 -73.9586,-53.1714 -73.9374,-53.1833 -73.9357,-53.1899 -73.9357,-53.1899 30,-3.0,Chile -73.3097,-53.3346 -73.2877,-53.3406 -73.2751,-53.3531 -73.346,-53.4106 -73.2824,-53.4644 -73.2751,-53.4798 -73.3689,-53.5112 -73.3894,-53.5065 -73.5237,-53.4588 -73.6464,-53.403 -73.6622,-53.3887 -73.68,-53.3689 -73.6768,-53.3583 -73.6601,-53.3588 -73.6242,-53.3822 -73.5914,-53.3973 -73.5705,-53.4059 -73.5538,-53.4102 -73.5433,-53.4111 -73.5017,-53.4132 -73.4168,-53.3937 -73.418,-53.3834 -73.4275,-53.3784 -73.443,-53.3735 -73.4586,-53.3687 -73.4446,-53.3308 -73.3306,-53.3326 -73.3189,-53.3331 -73.3097,-53.3346 -73.3097,-53.3346 121,-3.0,Chile -73.1873,-53.7656 -73.1385,-53.7456 -73.1289,-53.6493 -73.2606,-53.6539 -73.3033,-53.6726 -73.3395,-53.683 -73.3691,-53.6885 -73.4554,-53.6897 -73.41,-53.6676 -73.3812,-53.6575 -73.3625,-53.6442 -73.3712,-53.6039 -73.4008,-53.6026 -73.4403,-53.6052 -73.4711,-53.6027 -73.493,-53.59 -73.492,-53.5496 -73.4784,-53.5291 -73.4608,-53.519 -73.4185,-53.5148 -73.3919,-53.5276 -73.3715,-53.5286 -73.3484,-53.5183 -73.3167,-53.5002 -73.2965,-53.5015 -73.2195,-53.5261 -73.2006,-53.5422 -73.1875,-53.5612 -73.1621,-53.5866 -73.1333,-53.5972 -73.0462,-53.6137 -73.0177,-53.6153 -72.9248,-53.6135 -72.8341,-53.6045 -72.8357,-53.5784 -72.8657,-53.5791 -72.887,-53.5905 -72.9552,-53.5936 -73.0211,-53.589 -73.0529,-53.5862 -73.1247,-53.575 -73.1563,-53.5623 -73.2789,-53.4439 -73.3014,-53.4054 -73.258,-53.4025 -73.2229,-53.4099 -73.1672,-53.4267 -72.9834,-53.4479 -73.0099,-53.3969 -73.0526,-53.3594 -72.9558,-53.3402 -72.88,-53.3454 -72.7918,-53.367 -72.7538,-53.476 -72.7697,-53.5212 -72.7882,-53.5592 -72.7563,-53.6159 -72.697,-53.5109 -72.6889,-53.4792 -72.7162,-53.4422 -72.7405,-53.4039 -72.6673,-53.4198 -72.6153,-53.4586 -72.5542,-53.542 -72.469,-53.5014 -72.3675,-53.5099 -72.3214,-53.5273 -72.2828,-53.5671 -72.2871,-53.595 -72.3175,-53.593 -72.3465,-53.5992 -72.3643,-53.6195 -72.322,-53.6864 -72.2883,-53.657 -72.2522,-53.6307 -72.142,-53.6571 -72.1187,-53.6677 -72.0231,-53.7416 -72.0577,-53.7561 -72.0751,-53.7588 -72.094,-53.7999 -72.1269,-53.8128 -72.1522,-53.8111 -72.2322,-53.8011 -72.2969,-53.8337 -72.2954,-53.9052 -72.2765,-53.915 -72.2353,-53.9263 -72.2032,-53.932 -72.2073,-53.9782 -72.3098,-53.9848 -72.4154,-54.0385 -72.4407,-54.0385 -72.4623,-54.0326 -72.5038,-54.0027 -72.5884,-54.029 -72.7021,-54.0729 -72.7535,-54.0721 -72.874,-54.0369 -72.9043,-54.0167 -72.8841,-54.0 -72.7702,-53.9986 -72.6558,-53.954 -72.6075,-53.7825 -72.6815,-53.7591 -72.709,-53.7696 -72.7732,-53.8035 -72.8044,-53.812 -72.8918,-53.8084 -72.8982,-53.7858 -72.9017,-53.7596 -72.9383,-53.7507 -72.9798,-53.8548 -72.9807,-53.8793 -73.0107,-53.9481 -73.1016,-53.924 -73.1367,-53.8724 -73.171,-53.8164 -73.193,-53.7771 -73.1873,-53.7656 -73.1873,-53.7656 15,-3.0,Chile -73.7201,-53.5286 -73.7316,-53.5247 -73.753,-53.476 -73.7419,-53.3979 -73.732,-53.39 -73.7189,-53.391 -73.5892,-53.4451 -73.5683,-53.4565 -73.5703,-53.4693 -73.5784,-53.4783 -73.6797,-53.5193 -73.6943,-53.524 -73.7104,-53.5273 -73.7201,-53.5286 -73.7201,-53.5286 84,-3.0,Chile -70.4028,-54.1295 -70.3974,-54.1546 -70.4063,-54.1649 -70.4155,-54.1632 -70.4999,-54.1429 -70.5405,-54.132 -70.5788,-54.1193 -70.5911,-54.1131 -70.682,-54.0632 -70.7011,-54.0505 -70.7608,-53.9858 -70.78,-53.8854 -70.7812,-53.8729 -70.7805,-53.8164 -70.7728,-53.8072 -70.7192,-53.7837 -70.6694,-53.7723 -70.6535,-53.7742 -70.5843,-53.7878 -70.5672,-53.7914 -70.5453,-53.8031 -70.5328,-53.8063 -70.5226,-53.8072 -70.5042,-53.8011 -70.491,-53.7878 -70.4904,-53.7753 -70.5,-53.7611 -70.518,-53.7475 -70.5314,-53.7417 -70.5749,-53.7293 -70.5844,-53.7211 -70.5901,-53.7074 -70.5943,-53.6422 -70.5888,-53.6279 -70.5586,-53.6222 -70.5442,-53.6172 -70.5312,-53.6113 -70.5137,-53.6013 -70.5024,-53.5942 -70.4915,-53.5866 -70.4774,-53.5746 -70.4697,-53.5653 -70.4615,-53.549 -70.454,-53.5291 -70.4463,-53.5161 -70.4378,-53.5073 -70.4221,-53.4994 -70.3759,-53.4949 -70.36,-53.5047 -70.3647,-53.5782 -70.3689,-53.5896 -70.3743,-53.6008 -70.3771,-53.6129 -70.3784,-53.6334 -70.3779,-53.6466 -70.3748,-53.6585 -70.3251,-53.7975 -70.2672,-53.8844 -70.2304,-53.9442 -70.2341,-53.9593 -70.2545,-53.9728 -70.2759,-53.9774 -70.3136,-53.9784 -70.3241,-53.9779 -70.3425,-53.9746 -70.3587,-53.9703 -70.3858,-53.9589 -70.4169,-53.9424 -70.4435,-53.9173 -70.4563,-53.9078 -70.5506,-53.8523 -70.5571,-53.8634 -70.5569,-53.8765 -70.5448,-53.9094 -70.538,-53.9195 -70.5305,-53.9284 -70.5104,-53.9439 -70.4933,-53.9546 -70.4831,-53.9623 -70.4637,-53.9816 -70.4208,-54.0635 -70.4136,-54.0799 -70.4028,-54.1295 -70.4028,-54.1295 62,-3.0,Chile -71.5521,-53.8808 -71.602,-53.9112 -71.5913,-53.9229 -71.5691,-53.936 -71.5335,-54.0178 -71.537,-54.0341 -71.5949,-54.0849 -71.613,-54.0984 -71.6271,-54.1005 -71.6372,-54.0995 -71.6742,-54.0927 -71.6891,-54.0876 -71.7014,-54.0809 -71.717,-54.0697 -71.7885,-54.0028 -71.8016,-53.9902 -71.8035,-53.9745 -71.7995,-53.9532 -71.8078,-53.944 -71.8233,-53.9448 -71.8345,-53.9593 -71.8356,-53.972 -71.8305,-53.9857 -71.7958,-54.0556 -71.7597,-54.0823 -71.7458,-54.0876 -71.7215,-54.0952 -71.6233,-54.1676 -71.6227,-54.183 -71.6322,-54.1948 -71.711,-54.271 -71.7217,-54.275 -71.7365,-54.2749 -71.8211,-54.2635 -71.8396,-54.2427 -71.8299,-54.2012 -71.8267,-54.1889 -71.9084,-54.1405 -71.984,-54.0955 -72.0752,-54.038 -72.0884,-54.0283 -72.0979,-54.017 -72.1038,-54.0074 -72.1328,-53.9014 -72.1371,-53.8792 -72.1325,-53.8629 -72.0902,-53.8578 -72.0797,-53.8576 -72.0694,-53.8587 -72.008,-53.8738 -71.9944,-53.8833 -71.982,-53.9029 -71.9401,-53.9024 -71.8884,-53.8294 -71.8727,-53.8015 -71.8469,-53.7931 -71.8264,-53.7881 -71.6058,-53.8359 -71.5376,-53.8569 -71.542,-53.8728 -71.5521,-53.8808 -71.5521,-53.8808 46,-3.0,Chile -71.1626,-53.9501 -71.1387,-54.0125 -71.0576,-54.023 -70.9683,-53.9998 -70.9003,-54.0277 -70.8912,-54.0394 -70.8727,-54.1153 -70.8679,-54.2067 -70.988,-54.3156 -71.0003,-54.3219 -71.0185,-54.3212 -71.0359,-54.3108 -71.074,-54.2821 -71.1311,-54.2742 -71.2251,-54.2489 -71.3209,-54.144 -71.3263,-54.1271 -71.3187,-54.1107 -71.3065,-54.1039 -71.2751,-54.1025 -71.2602,-54.0977 -71.2532,-54.0898 -71.2919,-54.0529 -71.374,-54.0931 -71.4117,-54.1592 -71.4173,-54.17 -71.4202,-54.1918 -71.5216,-54.1783 -71.5391,-54.171 -71.5605,-54.1398 -71.5657,-54.1294 -71.5707,-54.1191 -71.5787,-54.1005 -71.5742,-54.0869 -71.5156,-54.0447 -71.541,-53.929 -71.5296,-53.9065 -71.5085,-53.8913 -71.4927,-53.8838 -71.4502,-53.8785 -71.35,-53.88 -71.2576,-53.904 -71.1808,-53.9285 -71.1719,-53.9334 -71.1626,-53.9501 -71.1626,-53.9501 16,-3.0,Chile -73.1501,-54.0722 -73.2123,-54.0519 -73.3351,-54.0189 -73.3458,-54.0084 -73.2673,-53.9655 -73.2302,-53.9648 -73.1976,-53.9659 -73.1294,-53.9715 -73.1167,-53.9749 -73.0615,-53.993 -73.0565,-54.0036 -73.0399,-54.0525 -73.0542,-54.0629 -73.0718,-54.0652 -73.1501,-54.0722 -73.1501,-54.0722 18,-3.0,Chile -70.2362,-54.0924 -70.2465,-54.0916 -70.2603,-54.086 -70.3347,-54.0539 -70.3632,-54.0359 -70.3767,-54.0235 -70.3814,-54.0097 -70.3748,-53.9998 -70.3646,-53.9956 -70.1958,-53.9764 -70.1869,-53.9847 -70.1756,-54.0037 -70.1695,-54.0237 -70.1927,-54.0631 -70.2076,-54.0823 -70.2195,-54.0889 -70.2362,-54.0924 -70.2362,-54.0924 18,-3.0,Chile -72.1736,-54.0153 -72.118,-54.0453 -72.0874,-54.082 -72.131,-54.1371 -72.1805,-54.1897 -72.2008,-54.1942 -72.3085,-54.1982 -72.3469,-54.1948 -72.3685,-54.1867 -72.3797,-54.1792 -72.3897,-54.1393 -72.266,-54.0281 -72.2458,-54.0158 -72.2113,-54.0056 -72.1852,-54.007 -72.1759,-54.012 -72.1736,-54.0153 -72.1736,-54.0153 21,-3.0,Chile -70.4028,-54.1295 -70.3992,-54.1151 -70.3932,-54.0973 -70.3841,-54.0852 -70.3705,-54.0832 -70.3505,-54.0858 -70.1751,-54.127 -70.1172,-54.1488 -70.0997,-54.1655 -70.102,-54.181 -70.114,-54.1931 -70.1396,-54.2088 -70.1527,-54.2115 -70.1634,-54.212 -70.1749,-54.2119 -70.1963,-54.2097 -70.3305,-54.1776 -70.3499,-54.1711 -70.3896,-54.1363 -70.4028,-54.1295 -70.4028,-54.1295 13,-3.0,Chile -72.341,-54.3659 -72.3531,-54.3625 -72.4029,-54.3236 -72.4183,-54.2818 -72.3068,-54.2441 -72.2846,-54.2458 -72.1776,-54.2715 -72.1726,-54.282 -72.1824,-54.3027 -72.2522,-54.321 -72.2635,-54.3206 -72.341,-54.3659 -72.341,-54.3659 41,-3.0,Argentina -64.5674,-54.8425 -64.5586,-54.8048 -64.5926,-54.7827 -64.6165,-54.7798 -64.64,-54.7784 -64.6449,-54.7671 -64.6302,-54.7419 -64.5824,-54.7125 -64.5577,-54.7105 -64.5383,-54.7164 -64.5138,-54.7294 -64.4991,-54.7343 -64.4881,-54.7348 -64.4061,-54.7189 -64.2688,-54.6837 -64.2279,-54.6634 -64.0591,-54.6785 -63.9139,-54.668 -63.8113,-54.6499 -63.7992,-54.6493 -63.7137,-54.656 -63.705,-54.6641 -63.7597,-54.7198 -63.8457,-54.7476 -63.8665,-54.7265 -63.9022,-54.714 -63.9312,-54.7254 -64.026,-54.7543 -64.1476,-54.7765 -64.1583,-54.7634 -64.1556,-54.7415 -64.2167,-54.7243 -64.2393,-54.7386 -64.3129,-54.7754 -64.3423,-54.7823 -64.353,-54.7834 -64.3749,-54.7826 -64.4666,-54.8033 -64.5288,-54.8367 -64.5674,-54.8425 -64.5674,-54.8425 24,-3.0,Chile -70.9383,-54.8905 -70.9549,-54.8898 -71.0277,-54.8694 -71.0832,-54.8419 -71.2022,-54.8858 -71.2179,-54.8899 -71.2845,-54.8789 -71.332,-54.8189 -71.2793,-54.7622 -71.2313,-54.7648 -71.0779,-54.7839 -71.013,-54.7959 -70.9853,-54.8072 -70.9516,-54.8156 -70.9269,-54.8132 -70.9049,-54.8053 -70.8892,-54.7938 -70.8771,-54.792 -70.8252,-54.8144 -70.7941,-54.8613 -70.8142,-54.8666 -70.8475,-54.8674 -70.9383,-54.8905 -70.9383,-54.8905 17,-3.0,Chile -70.3453,-54.7753 -70.3205,-54.7795 -70.3005,-54.7855 -70.2765,-54.8045 -70.2874,-54.8152 -70.2999,-54.8178 -70.4835,-54.8397 -70.5579,-54.8397 -70.61,-54.8217 -70.6239,-54.8076 -70.6097,-54.7992 -70.5763,-54.7877 -70.469,-54.77 -70.3946,-54.7653 -70.35,-54.7741 -70.3453,-54.7753 -70.3453,-54.7753 24,-3.0,Chile -69.7863,-54.978 -69.7782,-54.9499 -69.7794,-54.9378 -69.7971,-54.9155 -69.8265,-54.91 -69.832,-54.8952 -69.8097,-54.8323 -69.7999,-54.8281 -69.7404,-54.8152 -69.7301,-54.8136 -69.6206,-54.8031 -69.5673,-54.8042 -69.2847,-54.8392 -69.2561,-54.8436 -69.0877,-54.8746 -69.0502,-54.8953 -69.0678,-54.9022 -69.1004,-54.904 -69.2873,-54.9307 -69.3847,-54.9477 -69.5322,-54.9628 -69.6425,-54.9736 -69.7863,-54.978 -69.7863,-54.978 69,-3.0,Chile -70.2305,-54.8341 -70.2025,-54.8361 -70.1928,-54.8421 -70.3227,-54.8769 -70.3654,-54.8798 -70.3851,-54.8893 -70.3878,-54.9053 -70.3843,-54.9223 -70.3929,-54.9315 -70.4829,-54.9404 -70.5034,-54.942 -70.5381,-54.9405 -70.5649,-54.9351 -70.5874,-54.9274 -70.5993,-54.9311 -70.6113,-54.948 -70.5314,-54.9671 -70.3697,-54.9791 -70.2423,-54.9673 -70.2267,-54.9664 -70.175,-54.9652 -70.1651,-54.9683 -70.1588,-54.9878 -70.1435,-55.0481 -70.1733,-55.0647 -70.1997,-55.0665 -70.2131,-55.0637 -70.2255,-55.0573 -70.2343,-55.0421 -70.2598,-55.0256 -70.28,-55.0234 -70.2905,-55.0212 -70.3242,-55.037 -70.3276,-55.0602 -70.3182,-55.0685 -70.2914,-55.0771 -70.2696,-55.0789 -70.2585,-55.0831 -70.252,-55.0926 -70.2623,-55.1068 -70.4095,-55.1458 -70.4282,-55.1443 -70.438,-55.1365 -70.4439,-55.1227 -70.4464,-55.1046 -70.4462,-55.0792 -70.429,-55.057 -70.4858,-55.0179 -70.5779,-55.0627 -70.5996,-55.0603 -70.8155,-55.0132 -70.8865,-54.9799 -70.8942,-54.9018 -70.8806,-54.8924 -70.8661,-54.8873 -70.756,-54.8733 -70.6742,-54.8841 -70.6318,-54.8921 -70.5851,-54.9052 -70.4607,-54.9077 -70.4437,-54.9023 -70.4685,-54.8958 -70.4988,-54.8882 -70.4916,-54.8783 -70.3908,-54.8447 -70.3776,-54.8422 -70.3168,-54.8408 -70.2305,-54.8341 -70.2305,-54.8341 81,-3.0,Chile -67.9495,-55.1724 -67.9565,-55.1729 -67.9783,-55.1718 -67.9947,-55.1675 -68.0092,-55.1618 -68.0275,-55.1518 -68.0346,-55.1423 -68.074,-55.0353 -68.0674,-55.0185 -68.09,-54.924 -68.1092,-54.9266 -68.2006,-54.9296 -68.2307,-54.908 -68.2441,-54.8731 -68.2275,-54.8601 -68.2162,-54.8565 -68.0947,-54.8446 -68.0836,-54.8439 -67.9499,-54.8427 -67.8542,-54.8433 -67.7517,-54.8502 -67.6643,-54.855 -67.5262,-54.8585 -67.463,-54.855 -67.4405,-54.8538 -67.3262,-54.8538 -67.3142,-54.8536 -67.2711,-54.8563 -67.2032,-54.8654 -67.1662,-54.8714 -67.1327,-54.8797 -67.1086,-54.886 -67.07,-54.8984 -67.0518,-54.9082 -67.0422,-54.9168 -66.9407,-55.0071 -66.9387,-55.0712 -66.9443,-55.0813 -66.9647,-55.1148 -66.978,-55.1307 -66.9873,-55.1393 -67.1181,-55.2388 -67.1279,-55.2434 -67.1714,-55.2467 -67.1834,-55.2467 -67.2846,-55.2291 -67.3016,-55.2253 -67.3229,-55.2172 -67.3364,-55.2076 -67.3434,-55.1975 -67.3407,-55.1813 -67.3203,-55.1671 -67.3091,-55.1563 -67.3064,-55.1458 -67.3138,-55.1364 -67.3343,-55.1239 -67.3549,-55.1151 -67.3809,-55.1097 -67.4103,-55.1056 -67.4304,-55.1051 -67.4494,-55.1078 -67.4831,-55.1163 -67.4948,-55.1233 -67.5044,-55.1313 -67.5153,-55.1458 -67.5252,-55.1707 -67.5223,-55.1953 -67.5336,-55.2026 -67.5495,-55.2042 -67.6814,-55.1988 -67.6925,-55.1981 -67.7103,-55.1948 -67.7639,-55.1765 -67.7487,-55.1654 -67.7355,-55.1654 -67.7369,-55.1477 -67.7674,-55.1167 -67.7861,-55.1208 -67.9171,-55.1615 -67.9495,-55.1724 -67.9495,-55.1724 17,-3.0,Chile -70.0428,-54.9448 -70.0535,-54.9437 -70.0682,-54.939 -70.0832,-54.9298 -70.0831,-54.9195 -70.0695,-54.9101 -70.0574,-54.9033 -69.9132,-54.8585 -69.8966,-54.8544 -69.8814,-54.855 -69.8718,-54.8597 -69.8596,-54.8706 -69.8587,-54.8854 -69.893,-54.9156 -69.9873,-54.9374 -70.0428,-54.9448 -70.0428,-54.9448 150,-3.0,Chile -67.949,-55.4039 -67.9906,-55.4565 -67.9284,-55.5156 -67.8981,-55.5224 -67.8497,-55.5263 -67.8616,-55.6061 -67.9354,-55.6466 -67.9483,-55.6522 -67.9802,-55.65 -67.9937,-55.6354 -68.0266,-55.606 -68.105,-55.5547 -68.1443,-55.5056 -68.1327,-55.4688 -68.2425,-55.4159 -68.2623,-55.4122 -68.2961,-55.4359 -68.3535,-55.4385 -68.4208,-55.4039 -68.4894,-55.4014 -68.6103,-55.4023 -68.6505,-55.431 -68.7051,-55.4442 -68.7305,-55.4442 -68.7749,-55.4247 -68.8199,-55.3941 -68.8487,-55.3614 -68.8157,-55.3329 -68.7489,-55.3216 -68.7229,-55.3193 -68.6983,-55.325 -68.6645,-55.3206 -68.6508,-55.2702 -68.7785,-55.2958 -68.7936,-55.2766 -68.7746,-55.22 -68.7444,-55.1694 -68.7037,-55.144 -68.6942,-55.1247 -68.8511,-55.1948 -68.9139,-55.2038 -69.027,-55.1837 -69.0524,-55.1746 -69.0797,-55.1595 -69.1019,-55.1381 -69.1303,-55.0721 -69.2591,-55.0856 -69.2854,-55.0908 -69.3078,-55.1001 -69.245,-55.0972 -69.1762,-55.1012 -69.1474,-55.1611 -69.2531,-55.1838 -69.2687,-55.2252 -69.1833,-55.3008 -69.1801,-55.362 -69.0922,-55.3737 -69.023,-55.3763 -69.0312,-55.4354 -69.0489,-55.446 -69.2038,-55.4232 -69.307,-55.4343 -69.3725,-55.3473 -69.3461,-55.313 -69.2933,-55.3056 -69.2752,-55.296 -69.3463,-55.2736 -69.3732,-55.2724 -69.4535,-55.3123 -69.4917,-55.2694 -69.5823,-55.2459 -69.5764,-55.215 -69.5461,-55.1812 -69.4694,-55.1462 -69.4423,-55.1418 -69.4096,-55.1331 -69.3859,-55.1136 -69.4261,-55.1133 -69.4701,-55.1291 -69.5616,-55.1696 -69.7113,-55.1942 -69.7367,-55.195 -69.7983,-55.161 -69.7433,-55.1553 -69.7218,-55.1452 -69.7832,-55.1072 -69.8941,-55.1042 -69.9112,-55.0936 -69.8893,-55.0647 -69.8111,-55.0136 -69.7755,-55.0034 -69.6733,-54.9898 -69.6314,-54.9869 -69.5233,-54.9799 -69.2439,-54.9499 -69.0746,-54.9246 -68.8727,-54.9148 -68.7133,-54.9182 -68.69,-54.9155 -68.6482,-54.8966 -68.6199,-54.884 -68.5401,-54.8753 -68.3933,-54.8666 -68.2874,-54.8907 -68.225,-54.9394 -68.209,-54.9789 -68.2209,-55.005 -68.4497,-55.0657 -68.4678,-55.0812 -68.5269,-55.09 -68.6501,-55.0707 -68.7012,-55.0521 -68.7366,-55.0313 -68.7688,-55.0153 -68.7887,-55.0062 -68.9015,-54.9614 -68.9225,-54.9612 -68.9414,-54.9853 -68.8459,-55.0471 -68.776,-55.072 -68.6586,-55.1116 -68.4795,-55.1163 -68.3292,-55.1177 -68.2637,-55.1203 -68.1603,-55.1598 -68.0914,-55.2037 -68.097,-55.2227 -68.3943,-55.2479 -68.4483,-55.2485 -68.4698,-55.2472 -68.4933,-55.2433 -68.5134,-55.2271 -68.5323,-55.2003 -68.5571,-55.1875 -68.5868,-55.1877 -68.622,-55.2034 -68.4821,-55.2891 -68.4273,-55.2802 -68.3979,-55.2694 -68.3731,-55.2627 -68.3426,-55.2598 -68.2933,-55.265 -68.2261,-55.2815 -68.0455,-55.3316 -68.0272,-55.3524 -68.0349,-55.3802 -68.0506,-55.4007 -68.0084,-55.4081 -67.949,-55.4039 -67.949,-55.4039 15,-3.0,Chile -66.9014,-54.9322 -66.8529,-54.9401 -66.7444,-54.9631 -66.7316,-54.973 -66.692,-55.049 -66.7069,-55.0533 -66.726,-55.0484 -66.949,-54.9602 -66.96,-54.9464 -66.9546,-54.9359 -66.9461,-54.9303 -66.9263,-54.928 -66.9073,-54.9307 -66.9014,-54.9322 -66.9014,-54.9322 15,-3.0,Chile -66.4673,-55.2202 -66.5137,-55.2134 -66.5235,-55.2051 -66.5292,-55.1879 -66.5299,-55.1777 -66.5131,-55.1367 -66.4261,-55.1006 -66.4031,-55.0997 -66.3877,-55.1008 -66.3185,-55.1194 -66.3065,-55.1368 -66.3974,-55.2029 -66.4567,-55.2194 -66.4673,-55.2202 -66.4673,-55.2202 19,-3.0,Chile -66.7546,-55.1672 -66.735,-55.1794 -66.7123,-55.2287 -66.7277,-55.2522 -66.7593,-55.2669 -66.7784,-55.2697 -66.8013,-55.2692 -66.887,-55.2665 -66.9365,-55.264 -66.946,-55.2591 -66.9566,-55.2101 -66.9282,-55.1835 -66.9055,-55.1759 -66.8273,-55.1586 -66.7998,-55.157 -66.7805,-55.1593 -66.7635,-55.1635 -66.7546,-55.1672 -66.7546,-55.1672 17,-3.0,Chile -67.611,-55.5586 -67.6212,-55.5511 -67.5853,-55.4484 -67.5709,-55.436 -67.5492,-55.4279 -67.5348,-55.4284 -67.5179,-55.4389 -67.5068,-55.4463 -67.4909,-55.4577 -67.4814,-55.466 -67.471,-55.4822 -67.4734,-55.5166 -67.524,-55.5384 -67.5457,-55.5476 -67.5724,-55.5529 -67.611,-55.5586 -67.611,-55.5586 18,-3.0,Chile -67.2217,-55.7246 -67.2205,-55.6943 -67.2295,-55.6893 -67.2832,-55.6816 -67.3428,-55.6903 -67.435,-55.6716 -67.4389,-55.6464 -67.4259,-55.5977 -67.3123,-55.527 -67.2538,-55.5098 -67.2363,-55.5095 -67.151,-55.6553 -67.1348,-55.6947 -67.1393,-55.7058 -67.1622,-55.7169 -67.1838,-55.7219 -67.2217,-55.7246 -67.2217,-55.7246 26,-3.0,Chile -67.4939,-55.8359 -67.5261,-55.7875 -67.5371,-55.7832 -67.5955,-55.7834 -67.6649,-55.7953 -67.7133,-55.803 -67.7265,-55.7996 -67.736,-55.7915 -67.7371,-55.7757 -67.7226,-55.7551 -67.6907,-55.7503 -67.6797,-55.7493 -67.6532,-55.7549 -67.6335,-55.7579 -67.5933,-55.7622 -67.4888,-55.7636 -67.4507,-55.7472 -67.4392,-55.7443 -67.3939,-55.7515 -67.3768,-55.7641 -67.4059,-55.8105 -67.4168,-55.818 -67.464,-55.8092 -67.476,-55.8097 -67.4939,-55.8359 -67.4939,-55.8359 12,-3.0,Chile -67.1298,-55.8287 -67.2324,-55.7973 -67.2939,-55.7682 -67.2876,-55.7541 -67.2769,-55.7496 -67.2586,-55.746 -67.2029,-55.7486 -67.1299,-55.7617 -67.0952,-55.7895 -67.0916,-55.8247 -67.1298,-55.8287 -67.1298,-55.8287 19,2.0,Andorra 1.4439,42.5538 1.4847,42.6023 1.5576,42.6077 1.696,42.578 1.7364,42.5684 1.7792,42.5218 1.7691,42.5229 1.7394,42.5126 1.7218,42.4735 1.7212,42.4616 1.7165,42.4552 1.6556,42.4217 1.5354,42.3886 1.5102,42.3886 1.4497,42.3983 1.4223,42.4455 1.4194,42.4977 1.4327,42.5285 1.4439,42.5538 10,2.0,San Marino 12.4874,43.9371 12.4423,43.9336 12.3984,43.9083 12.3897,43.9019 12.3929,43.8632 12.4541,43.8492 12.4777,43.8649 12.479,43.8735 12.4937,43.8916 12.4874,43.9371 2581,-3.0,Antarctica -65.4477,-72.7927 -65.4108,-72.7877 -65.5418,-72.6859 -65.6167,-72.5756 -65.5447,-72.4888 -65.4126,-72.248 -65.406,-72.1176 -65.5495,-71.8377 -65.4327,-71.7099 -65.2459,-71.6909 -65.2107,-71.6248 -65.2757,-71.5058 -65.4369,-71.3319 -65.3648,-71.2788 -65.2786,-71.2658 -65.1188,-71.2157 -65.0227,-71.1056 -65.4029,-70.6839 -65.167,-70.5437 -65.1577,-70.387 -65.2366,-70.3137 -65.2569,-70.2399 -65.3717,-70.1977 -65.8279,-69.8929 -65.8289,-69.8158 -65.7618,-69.7629 -65.5069,-69.7046 -65.5099,-69.6278 -65.3988,-69.5495 -65.3989,-69.4897 -65.3587,-69.3706 -65.328,-69.3056 -65.2649,-69.2958 -65.2769,-69.2717 -65.2258,-69.2378 -65.1947,-69.1716 -65.299,-69.061 -65.4245,-69.0047 -65.9477,-68.8517 -66.0147,-68.6577 -65.9407,-68.551 -66.0057,-68.4508 -66.0507,-68.382 -66.0397,-68.3457 -66.102,-68.2619 -66.1047,-68.2287 -66.188,-68.1565 -66.1476,-68.0989 -66.1026,-68.0149 -66.1617,-67.9477 -66.0886,-67.9348 -66.1078,-67.426 -66.1506,-67.3566 -66.245,-67.2106 -66.2327,-67.1745 -66.2559,-67.0768 -66.1987,-66.9897 -66.2279,-66.9948 -66.2408,-66.9208 -66.2908,-66.7508 -66.2707,-66.7387 -66.3328,-66.6807 -66.3957,-66.6068 -66.6438,-66.4977 -66.766,-66.4609 -66.8248,-66.4199 -67.144,-65.9167 -67.1609,-65.852 -67.1339,-65.8296 -67.2198,-65.5998 -67.2466,-65.5877 -67.2549,-65.5638 -67.3226,-65.5756 -67.3837,-65.5608 -67.4516,-65.5557 -67.5477,-65.5389 -67.6026,-65.4989 -67.6986,-65.4478 -67.68,-65.3687 -67.6818,-65.2848 -67.6967,-65.2197 -67.6967,-65.2369 -67.7108,-65.2048 -67.6447,-65.1597 -67.686,-65.1169 -67.6939,-65.0588 -67.727,-65.0555 -67.8017,-64.9769 -67.7755,-64.9549 -67.7576,-64.8428 -67.7119,-64.843 -67.6869,-64.7708 -67.6179,-64.6648 -67.5255,-64.6487 -67.5046,-64.4758 -67.5518,-64.4248 -67.6626,-64.3867 -68.2129,-64.427 -68.8088,-64.4147 -69.1447,-64.3886 -69.2139,-64.3418 -69.275,-64.2519 -69.2286,-64.2027 -69.2517,-64.1397 -69.1019,-64.055 -69.028,-63.9337 -69.0447,-63.8777 -68.93,-63.6156 -68.8988,-63.6188 -68.7815,-63.414 -68.775,-63.387 -68.5447,-63.3696 -68.3577,-63.353 -68.308,-63.3266 -68.2948,-63.2068 -68.3136,-63.1676 -68.2888,-62.9277 -68.3427,-62.7619 -68.343,-62.7789 -68.3857,-62.8289 -68.3556,-62.832 -68.4035,-62.7226 -68.3859,-62.6779 -68.5827,-62.4718 -68.697,-62.4177 -68.9297,-62.3686 -69.0657,-62.3019 -69.1006,-62.2918 -69.0996,-62.2589 -69.1449,-62.1497 -69.0278,-62.0359 -68.9926,-62.0466 -68.9396,-62.0449 -68.9398,-62.0616 -68.8207,-62.0557 -68.8448,-62.0437 -68.7737,-62.0469 -68.7316,-62.0137 -68.5828,-61.96 -68.4768,-61.9568 -68.453,-61.9349 -68.4179,-61.9617 -68.3757,-61.9617 -68.1928,-61.8506 -68.1818,-61.7818 -68.1228,-61.7028 -68.0997,-61.6138 -68.0647,-61.624 -68.0368,-61.5418 -68.0316,-61.4149 -67.9978,-61.3578 -68.0328,-61.3138 -68.0098,-61.2087 -68.057,-61.0997 -68.1097,-60.8838 -68.036,-60.8437 -67.911,-60.8009 -67.9117,-60.7678 -67.8558,-60.7388 -67.7948,-60.6166 -67.8247,-60.5299 -67.7398,-60.5209 -67.6897,-60.5358 -67.5537,-60.5407 -67.4687,-60.5649 -67.3357,-60.5027 -67.2599,-60.4186 -67.2317,-60.4209 -67.156,-60.3698 -67.1056,-60.3509 -67.0586,-60.2806 -67.1038,-60.1128 -66.9889,-60.0796 -66.9518,-60.0456 -66.8849,-60.0479 -66.858,-60.0328 -66.7426,-60.0158 -66.6349,-59.9749 -66.5778,-59.9957 -66.5008,-59.9947 -66.4427,-59.9557 -66.4306,-59.9709 -66.3228,-59.929 -65.9245,-59.9388 -65.9368,-59.9249 -65.8676,-59.9599 -65.802,-59.9607 -65.7729,-59.9796 -65.6878,-60.0028 -65.6589,-60.0217 -65.6137,-60.0279 -65.5008,-59.9929 -65.4095,-59.902 -65.3967,-59.917 -65.3467,-59.8698 -65.2785,-59.7248 -65.1916,-59.6599 -65.2037,-59.6458 -65.0658,-59.5516 -64.9479,-59.5396 -64.7659,-59.5548 -64.614,-59.5509 -64.4869,-59.4758 -64.5158,-59.3707 -64.5179,-59.3106 -64.5527,-59.1986 -64.4626,-59.0978 -64.444,-59.0758 -64.3779,-59.0497 -64.2239,-59.036 -64.1098,-58.9627 -63.9927,-58.88 -64.0078,-58.8917 -63.694,-58.7737 -63.3218,-58.6639 -63.1338,-58.5507 -62.9317,-58.4936 -62.8807,-58.4797 -62.7729,-58.405 -62.6788,-58.3699 -62.652,-58.3178 -62.697,-58.1467 -62.7989,-58.1048 -63.7557,-58.1977 -63.8009,-58.176 -64.1368,-58.276 -64.3889,-58.4038 -64.7907,-58.6638 -64.8409,-58.6937 -65.3197,-58.8408 -65.4167,-58.8309 -65.6029,-58.8338 -65.7998,-58.8397 -65.9407,-58.8656 -66.0377,-58.8548 -66.176,-58.9477 -66.2189,-59.0179 -66.4125,-59.0886 -66.641,-59.134 -67.0637,-59.1716 -67.0788,-59.2008 -67.1757,-59.206 -67.2977,-59.2589 -67.4199,-59.3288 -67.4786,-59.3328 -67.4997,-59.3719 -67.6337,-59.4429 -67.7727,-59.5749 -67.8319,-59.63 -68.164,-59.911 -68.2128,-59.9128 -68.2579,-59.9388 -68.3178,-59.9426 -68.3289,-59.9628 -68.3959,-59.9599 -68.6109,-59.9619 -68.6487,-59.9447 -68.6927,-59.9369 -68.9468,-59.9379 -68.9456,-59.9216 -68.9849,-59.904 -69.1119,-60.1297 -69.173,-60.3099 -69.248,-60.3657 -69.2426,-60.39 -69.4087,-60.4968 -69.4149,-60.6316 -69.4386,-60.6867 -69.4527,-60.7558 -69.4199,-60.7656 -69.602,-60.8929 -69.683,-60.9246 -69.6729,-60.956 -69.7958,-61.1289 -70.0579,-61.5508 -70.066,-61.6678 -70.1259,-61.6958 -70.1517,-61.7329 -70.3025,-61.8758 -70.3406,-61.9907 -70.3688,-62.0447 -70.3608,-62.0938 -70.539,-62.091 -70.655,-62.0616 -70.6927,-62.0847 -70.9618,-62.1627 -71.0029,-62.2196 -71.033,-62.216 -71.1747,-62.322 -71.271,-62.3789 -71.4336,-62.5376 -71.417,-62.6006 -71.4726,-62.816 -71.4567,-62.8947 -71.5267,-63.0126 -71.5887,-63.0639 -71.5689,-63.0526 -71.756,-63.4026 -71.8319,-63.4546 -71.8299,-63.5367 -71.8027,-63.6149 -71.5857,-63.9359 -71.6047,-63.9879 -71.7578,-64.176 -72.138,-64.518 -72.2647,-64.6269 -72.3188,-64.6747 -72.6049,-64.8127 -72.7187,-64.968 -72.7877,-65.0589 -72.8308,-65.5468 -72.7479,-65.724 -72.6049,-65.9179 -72.4757,-66.007 -72.3626,-66.1147 -72.1529,-66.4067 -72.1038,-66.4488 -71.8969,-66.7497 -71.846,-66.9726 -71.7959,-67.0736 -71.5078,-67.3397 -71.3976,-67.548 -71.4789,-68.2166 -71.5018,-68.269 -71.4919,-68.4568 -71.5617,-68.4579 -71.6638,-68.6189 -72.3069,-69.1799 -72.5916,-69.286 -73.0508,-69.4269 -73.4186,-69.6379 -73.7059,-69.7328 -74.1708,-69.8617 -74.2366,-69.917 -74.4288,-70.0009 -74.5256,-70.0179 -74.7448,-70.0227 -74.923,-70.007 -74.9807,-69.9807 -75.4726,-69.9126 -76.8527,-69.8468 -78.2297,-69.8189 -78.9939,-69.9048 -79.3978,-69.8597 -79.5169,-69.8039 -79.8397,-69.7697 -80.4598,-69.6328 -80.899,-69.6036 -81.4419,-69.6178 -81.7008,-69.5919 -82.0038,-69.5839 -82.4456,-69.4867 -82.8508,-69.3328 -83.0876,-69.2489 -83.3637,-69.1978 -83.4659,-69.2018 -83.5996,-69.1609 -83.658,-69.1388 -83.7219,-69.0397 -83.8328,-69.0129 -84.1287,-69.0555 -84.1079,-69.0706 -84.5127,-69.0928 -84.534,-69.0778 -84.7136,-69.0448 -84.8078,-69.0089 -85.0,-68.8509 -85.1669,-68.7858 -85.2126,-68.7316 -85.3517,-68.7128 -85.5039,-68.7098 -85.7448,-68.7638 -85.7967,-68.757 -86.1326,-68.8518 -86.2028,-68.8377 -86.1837,-68.8529 -86.2187,-68.846 -86.6188,-68.8789 -86.9627,-68.8386 -88.1437,-68.8498 -88.3827,-68.8139 -88.5538,-68.7689 -88.7226,-68.7538 -88.8437,-68.7008 -89.3479,-68.6649 -91.272,-68.3948 -92.2257,-68.1888 -92.6847,-68.0636 -92.6069,-67.9557 -92.8898,-67.8887 -93.5287,-67.843 -93.6655,-67.7928 -93.7935,-67.79 -93.8377,-67.7648 -93.924,-67.7008 -93.9779,-67.6438 -94.0856,-67.6257 -94.4088,-67.6397 -94.4949,-67.6678 -94.8509,-67.6096 -95.01,-67.5338 -95.1565,-67.4818 -95.1677,-67.4577 -95.5495,-67.3339 -95.93,-67.3348 -96.4037,-67.385 -96.6266,-67.3359 -97.1189,-67.2336 -97.4327,-67.131 -97.6159,-67.114 -97.7498,-67.1847 -97.745,-67.17 -97.8179,-67.2919 -97.756,-67.2948 -97.307,-67.4758 -97.0996,-67.6279 -97.1108,-67.6116 -97.0777,-67.6608 -97.006,-67.79 -96.4139,-68.2019 -96.168,-68.322 -96.2577,-68.4599 -96.1987,-68.4857 -96.1408,-68.6917 -96.1398,-68.7469 -95.9869,-68.8628 -95.9158,-68.9126 -95.7858,-69.0586 -95.7208,-69.0687 -95.5916,-69.293 -95.5959,-69.3717 -95.6327,-69.3779 -95.566,-69.3886 -95.5739,-69.4817 -95.6148,-69.5038 -95.6627,-69.6747 -95.9978,-69.914 -96.1377,-69.9638 -96.1026,-69.9649 -96.1337,-69.9488 -96.135,-69.8937 -96.2218,-69.7717 -96.2608,-69.6139 -96.3857,-69.5067 -96.5708,-69.429 -96.6099,-69.388 -96.7349,-69.3428 -96.7419,-69.256 -96.8479,-69.2117 -96.8446,-69.1497 -96.9378,-69.0668 -96.9197,-69.0128 -97.0019,-69.0008 -97.0957,-68.9259 -97.1596,-68.9149 -97.2888,-68.9407 -97.3658,-69.0158 -97.3997,-69.0619 -97.6026,-69.2408 -97.7218,-69.2349 -97.8889,-69.1716 -98.0078,-69.0787 -98.0399,-68.9819 -98.021,-68.8886 -98.1427,-68.8506 -98.3157,-68.771 -98.3497,-68.7289 -98.5889,-68.6058 -98.6377,-68.6027 -98.6697,-68.6407 -98.7287,-68.661 -99.126,-68.9539 -99.3119,-69.1009 -99.3596,-69.1297 -99.4128,-69.2448 -99.3828,-69.2948 -99.087,-69.3749 -99.0078,-69.4348 -98.8637,-69.4668 -98.742,-69.5528 -98.7368,-69.6626 -98.878,-69.7428 -99.0418,-69.789 -99.2237,-69.9519 -99.1858,-69.9857 -98.8537,-70.0517 -98.5678,-70.1859 -98.3646,-70.393 -98.4387,-70.4367 -98.771,-70.436 -99.3378,-70.2696 -99.4799,-70.2228 -99.5227,-70.2358 -99.6319,-70.3089 -99.6089,-70.4127 -99.4416,-70.4859 -99.1747,-70.5479 -98.7357,-70.7689 -98.6528,-70.876 -98.4969,-70.9469 -98.2857,-71.1147 -98.3949,-71.3148 -98.9949,-71.2769 -99.3958,-71.1929 -99.9876,-70.9686 -100.5058,-71.0098 -100.6618,-71.0479 -101.3638,-71.2889 -101.4629,-71.2899 -102.2009,-71.4639 -102.2996,-71.4636 -102.9819,-71.5908 -103.0138,-71.5807 -103.0627,-71.5928 -103.0838,-71.5678 -103.2099,-71.5495 -103.18,-71.5358 -103.3219,-71.4847 -103.4587,-71.4827 -103.6859,-71.5208 -103.7267,-71.4699 -103.7107,-71.423 -103.8826,-71.3367 -103.9897,-71.2718 -104.0707,-71.2488 -104.0907,-71.2238 -104.2137,-71.2046 -104.605,-71.2049 -104.7147,-71.2188 -104.899,-71.2995 -104.8988,-71.3247 -105.0288,-71.4097 -105.0106,-71.4849 -105.2817,-71.6628 -105.7057,-71.617 -106.6158,-71.2466 -106.7588,-71.1439 -106.9258,-70.9387 -107.1539,-70.8257 -107.156,-70.7438 -107.2828,-70.5677 -107.2837,-70.3796 -107.0837,-70.1146 -107.1229,-69.8408 -107.037,-69.7846 -107.0947,-69.7459 -107.1829,-69.7198 -107.3108,-69.7389 -107.5578,-69.81 -107.5248,-69.813 -107.7029,-69.867 -107.7839,-69.9147 -108.0526,-69.9829 -108.1718,-69.9699 -108.548,-70.0497 -108.5819,-70.046 -108.6858,-70.0748 -108.8529,-70.2449 -108.6287,-70.3859 -108.5338,-70.4457 -108.536,-70.4866 -108.4667,-70.5938 -108.2458,-70.7259 -108.2199,-70.7778 -108.3198,-71.0377 -108.3718,-71.0898 -108.301,-71.2377 -108.4187,-71.3727 -108.757,-71.5998 -109.0939,-71.7607 -109.1749,-71.8348 -109.3586,-71.8889 -109.4869,-71.9647 -109.9659,-72.0519 -110.435,-72.0728 -110.765,-72.1348 -111.1077,-72.1347 -111.3847,-72.1858 -111.599,-72.2006 -111.7389,-72.176 -111.8218,-72.1069 -112.161,-71.9536 -112.1499,-71.8627 -112.3548,-71.6928 -112.5237,-71.628 -112.6609,-71.4749 -112.471,-71.2127 -112.503,-71.1237 -112.4048,-71.0779 -112.3326,-71.004 -112.1299,-70.9047 -111.6878,-70.5689 -111.5949,-70.4716 -111.5107,-70.417 -111.5277,-70.3807 -111.453,-70.3146 -111.5207,-70.2729 -111.7227,-70.2449 -112.034,-70.2779 -112.3356,-70.2687 -112.6889,-70.2687 -112.9887,-70.2427 -113.045,-70.1916 -113.1787,-70.1889 -113.394,-70.1567 -113.4697,-70.171 -113.9559,-70.1829 -114.4549,-70.1565 -114.6158,-70.1737 -114.8339,-70.1739 -115.3138,-70.1907 -116.1097,-70.1877 -116.3147,-70.0918 -116.4066,-69.9888 -116.4769,-69.9677 -116.6459,-69.9476 -116.8969,-69.9559 -117.0058,-69.9889 -117.1359,-70.01 -117.3688,-70.126 -117.364,-70.1087 -117.4729,-70.1685 -117.6047,-70.2149 -117.6087,-70.259 -117.736,-70.3417 -117.9918,-70.4537 -118.0889,-70.569 -118.0678,-70.6089 -118.4898,-70.8328 -118.602,-70.902 -118.733,-71.0207 -118.8998,-71.1595 -119.0249,-71.2076 -119.1186,-71.2887 -119.6056,-71.5947 -119.8019,-71.7299 -120.0318,-71.8318 -120.3869,-72.0736 -120.444,-72.1899 -120.5239,-72.2569 -120.5917,-72.3528 -120.7638,-72.4669 -121.1357,-73.1369 -121.2,-73.1806 -121.2098,-73.2337 -121.3499,-73.3369 -121.3519,-73.4096 -121.4429,-73.5118 -121.4156,-73.5348 -121.4868,-73.5689 -121.5308,-73.6249 -121.5996,-73.7047 -121.5398,-73.7238 -121.5967,-73.7508 -121.6126,-73.7937 -121.682,-73.837 -122.0568,-73.8536 -122.9639,-73.6439 -123.5939,-73.5435 -124.0529,-73.4837 -124.5279,-73.277 -124.8166,-73.1039 -124.9617,-73.045 -125.3248,-72.9599 -125.7819,-72.8718 -125.802,-72.849 -126.1519,-72.7919 -126.855,-72.7419 -127.5949,-72.799 -128.0457,-72.8807 -128.3717,-72.924 -128.699,-72.9268 -129.8497,-73.0299 -129.8349,-73.0435 -130.5216,-73.1588 -130.6927,-73.1977 -130.8136,-73.2289 -130.9048,-73.2889 -130.9436,-73.331 -130.9558,-73.4098 -131.233,-73.5688 -131.4529,-73.6588 -131.723,-73.7259 -132.2827,-73.6988 -132.6996,-73.653 -133.0698,-73.6938 -133.2559,-73.7406 -133.6677,-73.7908 -134.6348,-73.9727 -134.887,-74.0348 -134.918,-74.1148 -135.175,-74.2207 -135.2237,-74.2959 -135.508,-74.3716 -136.0549,-74.3868 -136.192,-74.3709 -136.6547,-74.3968 -137.0057,-74.4778 -137.2747,-74.5029 -138.631,-74.7637 -138.7056,-74.7649 -139.6636,-74.9005 -139.8898,-74.9267 -139.8957,-74.9327 -140.0037,-75.0007 -140.0487,-75.1327 -140.3112,-75.1893 -140.3487,-75.1901 -140.443,-75.1928 -140.4498,-75.179 -140.6139,-75.2376 -140.6627,-75.2957 -140.7109,-75.3308 -140.4077,-75.412 -140.2668,-75.4306 -140.0946,-75.435 -139.7775,-75.555 -140.1979,-75.6589 -140.2698,-75.6737 -140.75,-75.7006 -140.8109,-75.6329 -140.929,-75.6086 -140.9496,-75.5648 -141.0708,-75.4769 -141.323,-75.4728 -141.8858,-75.5696 -142.0163,-75.5873 -142.0803,-75.5996 -142.1559,-75.6229 -142.2306,-75.6998 -142.979,-75.9587 -143.7799,-76.0886 -144.1079,-76.1388 -145.1548,-76.2418 -145.4308,-76.2419 -145.7729,-76.2607 -146.1048,-76.254 -147.0477,-76.1657 -147.2259,-76.1708 -147.5969,-76.1468 -148.5249,-76.0957 -149.1549,-76.1299 -149.3666,-76.0738 -150.5517,-76.0748 -150.798,-76.0799 -151.1047,-76.1068 -151.7236,-76.1248 -151.8667,-76.1437 -152.8337,-76.2027 -152.8928,-76.2133 -153.1225,-76.2378 -153.3498,-76.2519 -153.5707,-76.2845 -153.6526,-76.2807 -153.6588,-76.2947 -153.7287,-76.2968 -153.9047,-76.3166 -153.918,-76.3466 -154.0166,-76.3507 -154.0368,-76.5196 -154.0087,-76.5507 -153.9655,-76.571 -153.9159,-76.596 -153.8029,-76.5969 -153.7017,-76.6267 -153.5567,-76.6571 -153.4627,-76.7039 -153.2217,-76.78 -152.9968,-76.7957 -152.7617,-76.7817 -152.6098,-76.7989 -152.1399,-76.7697 -152.0419,-76.7799 -151.5777,-76.7649 -151.5138,-76.7919 -151.1327,-76.8218 -150.6907,-76.8438 -150.453,-76.8777 -150.3257,-76.8967 -150.1659,-76.9767 -150.1569,-77.0106 -150.3127,-77.0598 -151.1927,-77.1207 -151.4159,-77.1269 -151.9278,-77.1609 -152.1209,-77.1625 -152.4675,-77.182 -152.5035,-77.2007 -152.6468,-77.224 -152.6259,-77.25 -152.5046,-77.2845 -152.609,-77.325 -153.4616,-77.3857 -154.4008,-77.4798 -154.5086,-77.5387 -154.4407,-77.6428 -154.4367,-77.6589 -154.423,-77.6685 -154.4377,-77.8428 -154.421,-77.8473 -154.405,-77.8389 -154.2109,-77.8888 -154.1927,-77.9137 -154.068,-77.9147 -154.049,-77.941 -153.9097,-77.9478 -153.7907,-77.9629 -153.6588,-77.9838 -153.278,-77.9926 -153.1994,-77.9968 -153.0268,-77.9869 -152.6938,-77.9867 -152.5617,-77.9717 -152.5538,-77.9918 -152.2016,-77.9818 -152.179,-78.0078 -151.86,-78.0496 -151.5068,-78.0375 -150.7549,-78.1437 -150.5816,-78.1597 -150.3678,-78.2058 -150.2596,-78.23 -150.2499,-78.2275 -150.1057,-78.2688 -150.0807,-78.3089 -149.7108,-78.3299 -149.6517,-78.3658 -149.1899,-78.4629 -149.1098,-78.4899 -148.7337,-78.524 -148.6937,-78.5442 -148.6696,-78.5598 -148.6046,-78.5709 -148.573,-78.5918 -148.2769,-78.7016 -148.2745,-78.7183 -148.1097,-78.7697 -147.9418,-78.7928 -147.7209,-78.8329 -147.3069,-78.9724 -147.1997,-79.0305 -147.0839,-79.1238 -147.0336,-79.1548 -146.5858,-79.3827 -146.4438,-79.3799 -146.4206,-79.4147 -146.2569,-79.4318 -146.1328,-79.4238 -145.6727,-79.48 -145.4516,-79.4966 -144.7259,-79.5109 -144.1708,-79.492 -143.0899,-79.4846 -142.0599,-79.4499 -141.8547,-79.4598 -141.4298,-79.4449 -141.0499,-79.4449 -141.0406,-79.4597 -140.8559,-79.4639 -140.8117,-79.4498 -140.5189,-79.4539 -140.0746,-79.4428 -140.0746,-79.4668 -139.9549,-79.5048 -139.9978,-79.5198 -139.9219,-79.4998 -139.9978,-79.5198 -140.2376,-79.5159 -140.5229,-79.5509 -140.6119,-79.5808 -141.1225,-79.6397 -141.3366,-79.6787 -141.9,-79.7269 -143.4227,-79.8867 -146.9047,-80.1498 -147.673,-80.2336 -147.7308,-80.2187 -148.1588,-80.2785 -148.7296,-80.3449 -148.9067,-80.3557 -149.4738,-80.4557 -149.7059,-80.5287 -149.8351,-80.5644 -149.9227,-80.6077 -150.2948,-80.7216 -150.473,-80.7872 -150.5528,-80.8377 -150.9898,-80.9698 -151.2557,-81.1207 -151.584,-81.1908 -151.5967,-81.1975 -151.6729,-81.2478 -152.0648,-81.3091 -152.1004,-81.3311 -152.1819,-81.4018 -152.3078,-81.5168 -152.3192,-81.5499 -152.7867,-81.8057 -153.0139,-81.9837 -152.9924,-82.0448 -152.9159,-82.1308 -152.8469,-82.2519 -152.7048,-82.936 -152.5098,-83.0497 -152.4198,-83.2047 -152.1257,-83.5888 -150.977,-83.7889 -150.6389,-83.8548 -150.279,-83.8924 -150.2588,-83.9097 -148.7596,-84.0997 -148.312,-84.1296 -147.631,-84.197 -146.5129,-84.2279 -146.2727,-84.2638 -146.0088,-84.2609 -145.8239,-84.3158 -145.4386,-84.3577 -144.2858,-84.424 -144.1165,-84.4726 -144.0552,-84.4776 -144.0298,-84.5078 -144.044,-84.5759 -144.3678,-84.5991 -144.3785,-84.5987 -145.8728,-84.643 -147.5657,-84.7166 -147.8168,-84.753 -147.7482,-84.7788 -147.5969,-84.7995 -147.0449,-84.8337 -146.485,-84.8679 -146.2869,-84.909 -145.5679,-84.933 -145.1738,-84.9698 -144.1288,-85.004 -143.6728,-85.0591 -143.6988,-85.108 -143.5858,-85.1479 -143.4409,-85.1767 -143.8527,-85.2486 -143.942,-85.2389 -144.3446,-85.2857 -144.6878,-85.3136 -145.3599,-85.3447 -146.0888,-85.3549 -146.4187,-85.3428 -147.2747,-85.3359 -148.3647,-85.2667 -148.8838,-85.2567 -149.376,-85.0347 -149.1147,-84.9057 -149.5109,-84.8607 -149.8818,-84.8657 -150.4189,-84.9077 -151.5339,-84.956 -153.047,-85.1056 -153.0208,-85.2336 -152.9558,-85.2684 -152.932,-85.2827 -152.9798,-85.3403 -153.7267,-85.4846 -153.8859,-85.4779 -154.4337,-85.4778 -155.6776,-85.4888 -155.704,-85.4932 -155.9237,-85.4836 -157.3249,-85.4238 -158.274,-85.3607 -158.3069,-85.3748 -159.1319,-85.3536 -160.31,-85.3898 -160.9796,-85.3289 -161.1688,-85.3077 -161.4877,-85.3039 -161.8779,-85.2816 -163.8316,-85.3179 -163.7899,-85.3298 -165.0248,-85.2867 -165.4929,-85.2007 -165.8007,-85.1947 -165.6757,-85.173 -165.8728,-85.1707 -166.1396,-85.1117 -170.1619,-84.7918 -171.0848,-84.7606 -171.7447,-84.7256 -172.5187,-84.7239 -172.5628,-84.6929 -174.5948,-84.614 -175.223,-84.5627 -175.6489,-84.5467 -176.0208,-84.4869 -178.1779,-84.3548 -179.1379,-84.2948 -179.9997,-84.295 -179.9996,-89.9999 179.9999,-89.9999 180.0,-84.1759 178.9253,-84.1759 176.5382,-84.0539 176.5521,-84.0285 173.3942,-83.8928 173.224,-83.8469 172.9492,-83.8309 172.079,-83.7117 171.5501,-83.6775 170.9582,-83.5928 169.7902,-83.5256 169.0242,-83.4397 168.2342,-83.3779 167.9809,-83.3647 167.7512,-83.3398 167.2332,-83.2878 167.1271,-83.2728 165.914,-83.2957 165.3223,-83.4066 165.271,-83.5218 165.5331,-83.6258 165.7422,-83.642 165.7761,-83.6778 165.7889,-83.736 165.0471,-83.8888 165.0683,-83.9408 164.587,-83.9789 164.3959,-84.0507 164.2333,-84.111 164.3631,-84.1208 164.4279,-84.1548 164.3532,-84.2106 164.5781,-84.2755 164.581,-84.3919 164.2249,-84.5436 164.8283,-84.6309 165.0642,-84.6686 165.2178,-84.7379 165.4793,-84.7696 165.5601,-84.8038 165.8772,-84.8168 165.944,-84.8568 166.662,-84.9239 166.721,-84.9697 166.7473,-84.9761 166.775,-84.9838 166.418,-85.0465 166.2272,-85.0816 166.2147,-85.0858 166.1933,-85.0936 166.0701,-85.1358 166.0349,-85.1479 165.1761,-85.1488 164.4363,-85.0539 163.7153,-85.0166 162.7711,-84.9657 162.433,-84.9308 161.8291,-84.8938 160.7453,-84.769 160.5843,-84.7628 160.4572,-84.7257 160.2741,-84.7269 159.4321,-84.5788 160.1002,-84.4959 160.6551,-84.4618 161.1902,-84.408 161.342,-84.242 161.0822,-84.1738 161.3752,-84.0847 162.5661,-84.0068 162.5841,-83.9488 162.7779,-83.9357 162.7538,-83.7069 163.2712,-83.6267 163.3362,-83.6026 163.6671,-83.5878 163.7451,-83.5579 163.9553,-83.5328 164.0941,-83.42 164.1931,-83.2935 164.5692,-83.1638 164.4361,-83.0759 164.2371,-83.0168 164.148,-83.0267 163.8259,-82.9378 163.3212,-82.8739 163.1821,-82.8236 162.8968,-82.7798 162.7342,-82.7148 161.9161,-82.531 161.6982,-82.4428 161.285,-82.3847 161.1528,-82.34 160.1189,-82.2177 159.7299,-82.046 159.7612,-82.0348 159.419,-81.9838 158.9929,-81.8337 158.398,-81.6669 158.016,-81.6379 157.9473,-81.6007 157.164,-81.4716 154.731,-81.4048 154.7091,-81.4025 153.5634,-81.3301 153.5452,-81.3303 153.5301,-81.3308 153.456,-81.3189 153.5201,-81.2815 153.6027,-81.2592 153.629,-81.2479 153.7012,-81.2257 154.08,-81.1777 154.333,-81.1688 154.322,-81.1549 154.6891,-81.1268 154.6002,-81.0097 154.4723,-80.9787 154.1152,-80.7376 154.2291,-80.664 154.4219,-80.4718 154.3501,-80.424 154.3141,-80.3108 154.2153,-80.2196 154.2238,-80.1843 154.1971,-80.1006 154.6042,-79.9347 154.5472,-79.8467 154.2753,-79.8028 154.1059,-79.7399 153.9233,-79.683 153.7981,-79.6578 153.7189,-79.6156 153.527,-79.5989 153.5,-79.5734 153.48,-79.546 153.4259,-79.4427 153.3883,-79.3347 153.4078,-79.3079 153.4989,-79.2409 153.6391,-79.1708 153.4612,-79.0977 153.417,-79.0797 153.2418,-78.9726 153.3695,-78.8661 153.383,-78.8518 153.3849,-78.8515 154.0622,-78.7388 154.2103,-78.7316 154.3662,-78.6499 154.603,-78.6247 154.7281,-78.6088 154.8569,-78.628 155.0432,-78.6036 155.1143,-78.6099 155.1682,-78.5705 155.1981,-78.5447 155.2056,-78.5346 155.2139,-78.5298 155.4561,-78.4427 155.6163,-78.4095 156.1803,-78.3446 156.3332,-78.3518 156.8533,-78.3429 157.3723,-78.334 159.4142,-78.3437 160.038,-78.3847 160.406,-78.3847 161.4772,-78.4269 161.653,-78.4186 163.953,-78.4774 164.0203,-78.4878 164.5023,-78.4899 164.5271,-78.4709 164.9261,-78.3837 164.8549,-78.3477 164.6861,-78.325 164.6362,-78.3026 164.5793,-78.2868 163.7081,-78.23 163.4699,-78.2019 163.268,-78.1505 163.1693,-78.138 163.0409,-78.0906 162.709,-78.0498 161.9943,-77.9148 161.958,-77.9019 161.7471,-77.7629 161.6521,-77.75 161.0372,-77.7247 160.8303,-77.7097 160.811,-77.712 160.6049,-77.7058 160.3702,-77.7079 160.131,-77.6888 159.9738,-77.6896 159.0822,-77.6249 159.0601,-77.5497 159.0694,-77.5249 159.082,-77.5097 159.0755,-77.4891 158.5509,-77.3199 158.3632,-77.1489 158.3161,-77.0919 158.1402,-77.0016 158.0502,-76.9057 158.0362,-76.8508 158.096,-76.796 158.0873,-76.6799 158.0874,-76.5673 158.0997,-76.4607 158.0371,-76.2869 157.9953,-76.2499 157.8806,-76.1789 157.8312,-76.1399 157.8556,-76.0974 157.8681,-76.0756 158.3052,-75.9576 158.488,-75.9287 158.6419,-75.7897 158.5889,-75.7376 158.5635,-75.7027 158.5198,-75.6651 158.4242,-75.6079 158.3908,-75.5436 158.2952,-75.5408 158.2342,-75.4746 158.3065,-75.4581 158.3259,-75.4367 158.4631,-75.3697 158.7839,-75.2889 158.915,-75.2889 158.952,-75.2704 158.9581,-75.26 159.1522,-75.2389 159.3311,-75.1829 159.2382,-75.1137 159.284,-75.0375 159.2403,-74.9806 159.132,-74.9227 159.0183,-74.7177 159.1762,-74.5407 159.2852,-74.4857 159.5913,-74.397 159.9013,-74.3487 160.0253,-74.3018 160.27,-74.2528 160.4541,-74.251 160.773,-74.1896 160.798,-74.146 161.0602,-74.0788 161.2532,-74.018 161.5772,-73.9696 161.6048,-73.9457 161.8521,-73.9096 161.867,-73.8719 162.219,-73.8447 162.318,-73.8078 162.523,-73.7546 162.7849,-73.6999 162.8173,-73.6697 162.9212,-73.6267 163.0701,-73.5949 163.267,-73.4879 163.4512,-73.4188 163.6291,-73.3826 163.6911,-73.3489 163.7753,-73.3498 163.921,-73.2577 164.2453,-73.1819 165.152,-73.0929 165.7582,-73.0557 166.2092,-73.0375 166.6709,-72.9689 166.7163,-72.9458 166.7969,-72.9448 167.125,-72.834 167.1422,-72.7066 166.9833,-72.4977 167.0451,-72.4508 167.3111,-72.3736 167.423,-72.3629 167.6108,-72.3176 167.6328,-72.3136 167.644,-72.3078 167.76,-72.2899 167.8428,-72.2448 167.7731,-72.0869 167.9201,-72.0587 168.0447,-71.9453 168.059,-71.9276 168.0749,-71.8636 168.2385,-71.7708 168.2492,-71.756 168.427,-71.5957 168.323,-71.5249 168.2904,-71.5089 168.2683,-71.4956 168.1619,-71.4243 168.1541,-71.4057 168.0289,-71.3338 167.8729,-71.3098 167.7521,-71.308 167.5733,-71.2816 167.4871,-71.302 167.4399,-71.2978 167.3679,-71.3308 167.09,-71.3429 166.8992,-71.3347 166.8882,-71.3147 166.8532,-71.2609 166.5811,-71.1627 166.4613,-71.128 166.286,-71.1327 166.1339,-71.0757 166.0831,-71.0777 166.0461,-71.0617 165.9363,-71.0465 165.9269,-71.0268 165.6991,-71.0079 165.749,-71.0057 165.4629,-70.936 165.3731,-70.8958 165.212,-70.8239 164.9533,-70.7557 164.7441,-70.7179 164.5552,-70.6547 164.468,-70.614 164.2711,-70.5629 164.3402,-70.5376 164.352,-70.4937 164.3991,-70.4656 164.375,-70.4367 164.1872,-70.406 163.9029,-70.4048 163.2379,-70.376 162.991,-70.253 162.3322,-70.1948 161.8813,-70.171 161.6479,-70.1896 161.4501,-70.174 160.547,-70.007 160.417,-69.9708 160.3781,-69.9386 159.6611,-69.6747 159.2654,-69.5591 159.2546,-69.5585 159.0452,-69.5255 158.576,-69.4408 158.281,-69.4117 157.9721,-69.3747 157.4955,-69.3058 157.4813,-69.3086 157.3252,-69.2847 157.2251,-69.2899 157.1262,-69.2749 157.0521,-69.3177 157.4329,-69.6997 157.4,-69.7887 157.3452,-69.7949 157.311,-69.8838 157.428,-70.0498 157.3871,-70.0837 157.4442,-70.3218 157.2622,-70.3897 157.1152,-70.3688 156.9752,-70.3208 156.847,-70.1268 156.7522,-70.0848 156.7461,-70.0495 156.6241,-69.9907 156.5443,-69.9177 156.5931,-69.7016 156.5563,-69.5936 156.5697,-69.5514 156.5652,-69.5242 156.5456,-69.5109 156.5131,-69.4929 156.4881,-69.4549 156.4222,-69.4308 156.4246,-69.4083 156.4444,-69.403 156.4604,-69.3998 156.4737,-69.3887 156.4826,-69.3714 156.4851,-69.3589 156.1973,-69.2658 155.5512,-69.14 155.3241,-69.096 154.89,-68.974 154.8352,-68.9437 154.6769,-68.903 154.7102,-68.8946 154.5483,-68.8386 154.3908,-68.7968 154.3941,-68.7767 154.302,-68.7396 154.13,-68.6747 154.0882,-68.6529 154.0569,-68.6059 153.9612,-68.5188 153.8823,-68.4906 153.8671,-68.4669 153.4651,-68.3849 153.351,-68.3498 153.0269,-68.2809 152.2641,-68.0106 152.1592,-68.0038 152.1122,-67.9866 151.8131,-67.9538 151.5912,-67.9147 151.4432,-67.906 151.3451,-67.878 150.9261,-67.8318 150.793,-67.8597 150.7223,-67.909 150.708,-67.9978 150.7551,-68.0299 150.776,-68.1267 150.8993,-68.2029 151.0982,-68.3727 151.2261,-68.6907 151.1853,-68.7186 151.2173,-68.7457 151.1881,-68.733 151.2309,-68.7847 151.1839,-68.8819 151.2479,-68.8868 151.1731,-68.8719 151.2213,-68.8887 151.1762,-68.887 151.0171,-68.8478 150.7652,-68.8386 150.5639,-68.8109 150.314,-68.8157 150.1892,-68.8177 150.097,-68.799 150.037,-68.8219 149.7311,-68.7989 149.3619,-68.7696 149.208,-68.7289 148.9932,-68.7099 148.9302,-68.6877 148.9809,-68.4597 148.9951,-68.4049 148.93,-68.31 148.944,-68.2406 148.8813,-68.1899 148.9831,-68.1547 149.0952,-67.9779 149.0423,-67.9506 149.1001,-67.9139 148.991,-67.7868 149.0422,-67.769 149.0329,-67.608 149.0662,-67.5857 149.0313,-67.5637 149.0629,-67.5269 148.731,-67.4407 148.47,-67.4147 148.1262,-67.4409 147.7991,-67.4268 147.1451,-67.3949 146.929,-67.3549 146.2572,-67.2757 146.1239,-67.2708 145.9671,-67.2518 145.894,-67.224 145.738,-67.2046 145.6362,-67.1397 145.5988,-67.024 145.5611,-66.9897 145.386,-66.9268 145.0863,-66.8959 145.0218,-66.8777 144.9041,-66.9057 144.771,-66.9138 144.6361,-66.8828 144.5423,-66.8558 144.3511,-66.8157 143.9021,-66.7608 143.6482,-66.7167 143.6213,-66.7316 143.6239,-66.7166 143.5843,-66.7128 143.452,-66.7186 143.3502,-66.6969 143.2239,-66.635 143.1442,-66.626 143.037,-66.5927 142.7873,-66.5858 142.808,-66.6007 142.665,-66.5868 142.5552,-66.569 142.586,-66.578 142.4491,-66.5357 142.2562,-66.5607 142.1702,-66.5179 142.1371,-66.4839 142.1829,-66.4979 142.0892,-66.4836 141.8602,-66.617 141.834,-66.6557 141.8729,-66.6595 141.8261,-66.685 141.8472,-66.6989 141.8543,-66.7327 141.7572,-66.8208 141.7551,-66.8596 141.5602,-66.909 141.5083,-66.9476 141.4061,-66.9869 141.3739,-67.0405 141.2452,-67.0548 141.221,-67.0798 141.1562,-67.0747 140.985,-67.0347 140.7103,-66.9859 140.4113,-66.9348 140.2822,-66.9 140.1972,-66.8557 140.1033,-66.816 140.1482,-66.7815 140.1333,-66.753 140.2609,-66.715 140.4021,-66.6329 140.519,-66.5999 140.7171,-66.5127 140.8022,-66.2608 140.8652,-66.2407 140.9152,-66.1778 140.9773,-66.1589 141.0641,-66.0518 141.102,-66.0567 141.0529,-66.0077 141.125,-66.0327 141.078,-66.0328 141.082,-66.0178 140.9473,-65.9887 140.8992,-65.9637 140.8509,-65.9638 140.8652,-65.9439 140.8199,-65.8808 140.7523,-65.8166 140.5809,-65.7578 140.472,-65.7519 140.4152,-65.7317 140.3593,-65.7367 140.3771,-65.727 140.17,-65.6379 139.763,-65.5166 139.7492,-65.4866 139.6802,-65.438 139.4311,-65.3467 139.2189,-65.3087 139.159,-65.3028 139.004,-65.2607 138.9252,-65.2647 138.7742,-65.233 138.7291,-65.2068 138.8721,-65.1126 138.7969,-65.0668 138.7842,-65.0375 138.0621,-64.8407 137.7682,-64.7748 137.5662,-64.7099 137.2292,-64.6067 136.7891,-64.5527 136.674,-64.6069 136.4492,-64.6328 136.3428,-64.614 136.218,-64.6049 136.0089,-64.5315 135.845,-64.3828 135.724,-64.305 135.4199,-64.2319 134.815,-64.1628 134.7272,-64.158 134.6023,-64.137 134.5392,-64.1428 134.425,-64.117 134.361,-64.1236 134.1591,-64.0918 133.9282,-64.0739 133.8871,-64.0807 133.7222,-64.0666 133.6802,-64.0739 133.5591,-64.0608 132.9279,-63.966 132.4551,-63.8247 132.34,-63.7669 132.383,-63.7699 132.239,-63.7248 132.124,-63.6667 131.6962,-63.5396 131.6182,-63.5097 131.562,-63.4796 131.4751,-63.4537 131.333,-63.4067 131.256,-63.3658 131.16,-63.3527 131.0101,-63.3109 130.6942,-63.283 130.418,-63.2187 130.1851,-63.1579 129.8249,-63.0246 129.4601,-62.9336 129.314,-62.8789 129.1702,-62.8447 129.0972,-62.8116 128.4619,-62.6549 128.1672,-62.5869 128.1261,-62.5918 127.3571,-62.503 126.9251,-62.4246 126.7542,-62.4077 126.415,-62.3448 126.2352,-62.3318 126.1111,-62.3557 124.6462,-62.2836 124.5532,-62.2957 124.4353,-62.2777 124.156,-62.2567 124.0591,-62.2319 124.0151,-62.2559 123.9771,-62.2398 123.9241,-62.2577 123.906,-62.2449 123.8433,-62.2557 123.7542,-62.2468 123.511,-62.2498 123.4271,-62.2677 123.1132,-62.2738 123.033,-62.3179 122.9612,-62.4238 122.8792,-62.5238 122.6613,-62.5919 122.5661,-62.6477 122.4922,-62.6617 122.397,-62.6257 122.2542,-62.6228 122.1891,-62.5959 122.1472,-62.6 122.1521,-62.5797 121.7611,-62.2189 121.5632,-62.1217 121.2953,-62.0278 121.0271,-62.0158 120.7511,-61.96 120.6252,-61.9789 120.1832,-62.0777 119.969,-62.1468 119.914,-62.1628 119.7369,-62.2389 119.6322,-62.2497 119.6083,-62.2928 119.3943,-62.414 119.207,-62.4819 119.0663,-62.5017 118.959,-62.5129 118.2792,-62.4859 118.2331,-62.472 118.1992,-62.4797 117.951,-62.4819 117.7682,-62.4488 117.6002,-62.4827 117.031,-62.3867 116.9222,-62.3519 116.6722,-62.3338 116.5072,-62.2868 116.1539,-62.2498 116.0982,-62.2368 115.9912,-62.2448 115.7941,-62.2476 115.5781,-62.1597 115.3343,-62.1118 115.1821,-62.0868 115.0739,-62.0336 114.964,-62.0069 114.6571,-61.905 114.5993,-61.9179 114.5272,-61.8999 114.51,-61.9117 114.4309,-61.8868 114.2452,-61.8509 114.137,-61.8236 113.992,-61.7868 113.6599,-61.646 113.3351,-61.4946 112.7129,-61.3208 112.0739,-61.0319 111.959,-60.9876 111.748,-60.8539 111.4713,-60.7338 111.3921,-60.6827 111.291,-60.6517 110.7572,-60.3899 110.5531,-60.3206 110.1373,-60.2599 109.9243,-60.192 109.2412,-60.0449 109.0632,-59.9868 108.8712,-59.9798 108.818,-59.957 108.7501,-59.969 108.625,-59.9499 108.5032,-59.9548 108.084,-59.945 108.0481,-59.9677 107.8882,-59.9697 107.3521,-60.1167 107.3172,-60.1627 107.2832,-60.1686 107.159,-60.3198 107.0553,-60.3768 107.0452,-60.4027 106.9521,-60.4587 106.891,-60.4839 106.8089,-60.5376 106.7289,-60.5748 106.7192,-60.6006 106.6432,-60.6447 106.4711,-60.7198 106.3391,-60.8209 106.3182,-60.8077 106.273,-60.8386 106.1832,-60.8606 106.0013,-61.0579 105.9279,-61.133 105.67,-61.2918 105.5423,-61.3177 105.4392,-61.3647 105.309,-61.2449 105.2712,-61.1528 105.1752,-61.1168 105.1833,-61.0839 105.0829,-60.968 104.8932,-60.8729 104.751,-60.7947 104.822,-60.7367 104.7952,-60.612 104.7492,-60.521 104.6671,-60.4839 104.5739,-60.3987 104.4811,-60.3876 104.3282,-60.3027 104.2552,-60.2807 104.0283,-60.2217 103.8301,-60.2467 103.4992,-60.2249 103.448,-60.2468 102.9852,-60.2317 102.7249,-60.1977 102.506,-60.2319 102.352,-60.2167 102.2699,-60.2266 102.1643,-60.2067 101.9142,-60.1949 101.8583,-60.1769 101.5611,-60.1367 101.1982,-60.0799 101.116,-60.088 101.0258,-60.073 100.9581,-60.0877 100.8469,-60.0829 100.6538,-60.0868 100.33,-60.0629 100.2039,-60.082 100.0789,-60.142 100.0033,-60.2038 99.837,-60.2906 99.8259,-60.3308 99.6979,-60.3498 99.53,-60.3566 99.2903,-60.4089 99.2953,-60.4248 99.266,-60.4107 99.2592,-60.4279 98.6741,-60.5148 98.2472,-60.5627 97.9579,-60.6707 97.9249,-60.7286 97.8913,-60.7386 97.696,-60.887 97.6842,-60.9347 97.6069,-60.9706 97.5318,-61.0156 97.4991,-61.0339 97.054,-60.8889 96.7862,-60.7488 96.654,-60.6549 96.6151,-60.6408 96.393,-60.411 96.1232,-60.2217 96.0132,-60.2117 95.926,-60.1377 95.7781,-60.1229 95.657,-60.0509 95.5769,-60.0079 95.5679,-60.0239 95.553,-60.009 95.4702,-60.0127 95.3179,-59.9658 95.0163,-59.9408 94.7409,-59.859 94.628,-59.8949 94.4992,-59.9089 94.2131,-59.9038 94.2153,-59.92 94.0941,-59.9009 94.0613,-59.9258 93.9053,-59.9158 93.8362,-59.9337 93.2453,-59.9609 92.8592,-59.9088 92.8113,-59.9029 92.7072,-59.9287 92.506,-59.941 91.812,-60.064 91.6382,-60.145 91.5081,-60.1706 91.461,-60.2018 91.3312,-60.2427 91.2732,-60.283 91.201,-60.2908 91.059,-60.3319 90.9031,-60.3568 90.7961,-60.4037 90.5911,-60.4369 90.5912,-60.4206 90.519,-60.4448 90.0363,-60.4309 89.8551,-60.4379 89.7713,-60.4298 89.6382,-60.4378 89.493,-60.4139 89.1311,-60.4427 89.0343,-60.4418 88.5303,-60.3737 88.4699,-60.3728 87.5903,-60.5219 87.4901,-60.5589 87.081,-60.6496 86.6191,-60.7468 86.5082,-60.7588 85.894,-60.9487 85.801,-60.993 85.685,-61.0277 85.564,-61.093 85.4093,-61.213 85.0753,-61.3468 84.9002,-61.3478 84.6802,-61.3848 84.59,-61.3958 84.3512,-61.4629 84.2381,-61.5276 83.8479,-61.6408 83.825,-61.6868 83.6161,-61.77 83.4871,-61.8337 83.442,-61.862 83.375,-61.8737 83.2781,-61.9077 83.115,-62.0478 82.82,-62.1949 82.7502,-62.2149 82.699,-62.2118 82.6682,-62.2327 82.6152,-62.2379 82.636,-62.255 82.594,-62.2677 82.6111,-62.2528 82.555,-62.2658 82.483,-62.2919 82.332,-62.322 82.257,-62.3569 82.234,-62.3468 82.2169,-62.3617 82.1142,-62.4017 81.944,-62.4456 81.897,-62.4738 81.7051,-62.4998 81.6452,-62.5279 81.6251,-62.5498 81.4792,-62.5946 81.3462,-62.6407 81.133,-62.7667 81.0581,-62.8326 80.968,-62.8648 80.9442,-62.9739 81.0019,-63.2787 80.9921,-63.3489 80.9002,-63.3819 80.8382,-63.4409 80.796,-63.445 80.5183,-63.5347 80.4731,-63.5467 80.4399,-63.6 80.4001,-63.5968 80.1553,-63.7759 79.5082,-64.1428 79.4892,-64.1888 79.373,-64.2666 79.3052,-64.2929 79.2593,-64.3368 79.041,-64.3819 78.6482,-64.4349 78.5932,-64.462 77.808,-64.4917 77.6473,-64.5555 77.577,-64.5817 77.3031,-64.8108 77.0849,-65.0608 77.0232,-65.0947 76.95,-65.1758 76.8823,-65.1929 76.5011,-65.4268 76.3202,-65.456 76.142,-65.4538 75.9702,-65.3388 75.978,-65.3239 75.867,-65.183 75.8853,-65.0238 75.7818,-64.9479 75.7423,-64.8148 75.681,-64.7428 75.614,-64.5828 75.545,-64.551 75.5271,-64.5079 75.241,-64.3057 75.2322,-64.2478 74.922,-63.9757 74.9128,-63.9428 74.8172,-63.8659 74.67,-63.7109 74.6622,-63.6766 74.5922,-63.6517 74.5471,-63.5407 74.4692,-63.5066 74.4622,-63.4726 74.3679,-63.3966 74.0691,-63.317 74.0251,-63.3428 74.0392,-63.3206 74.0001,-63.3157 73.8439,-63.343 73.6642,-63.3189 73.5571,-63.2229 73.5169,-63.1119 73.5471,-63.1079 73.57,-63.07 73.6321,-63.0377 73.786,-62.9449 73.7871,-62.9206 73.8679,-62.8098 73.8662,-62.7687 73.7752,-62.6508 73.7818,-62.5949 73.749,-62.5826 73.742,-62.5489 73.6069,-62.4809 73.497,-62.4409 73.3012,-62.4946 73.2071,-62.5377 72.9451,-62.5649 72.8832,-62.5969 72.377,-62.6188 71.9331,-62.6076 71.5438,-62.5958 71.28,-62.6197 71.156,-62.6 71.0722,-62.6018 70.7661,-62.5679 70.4552,-62.5409 70.1962,-62.5378 69.7633,-62.4696 69.7743,-62.4559 69.545,-62.4309 69.0361,-62.3049 68.9279,-62.2846 68.606,-62.3419 68.3541,-62.4117 68.2881,-62.4067 68.0361,-62.4259 67.9512,-62.4597 67.3941,-62.392 67.335,-62.3627 67.281,-62.3607 67.0032,-62.4056 66.7842,-62.4629 66.7063,-62.4548 66.4323,-62.4916 65.72,-62.4336 65.5691,-62.4438 64.7071,-62.2599 64.459,-62.2809 64.3011,-62.2527 64.2992,-62.2259 64.3389,-62.0708 64.3392,-62.0278 64.291,-61.9897 64.2803,-61.944 63.9023,-61.7407 63.6921,-61.6989 63.435,-61.6878 63.198,-61.6987 62.8372,-61.6789 62.6439,-61.6729 62.4192,-61.7386 62.118,-61.7667 61.7532,-61.8116 61.159,-61.893 61.0113,-61.9597 60.617,-62.0486 60.3272,-62.0588 60.284,-62.0826 60.149,-62.1348 59.8699,-62.2827 59.701,-62.3978 59.513,-62.4529 59.4642,-62.4938 59.4142,-62.4979 59.2842,-62.6147 59.1781,-62.676 58.8969,-62.7408 58.8579,-62.7477 58.6232,-62.8358 58.5262,-62.8629 58.477,-62.9116 58.2989,-63.1908 58.1649,-63.4456 58.1229,-63.4887 58.2072,-63.7339 58.2372,-63.8058 58.1882,-63.8659 58.1229,-64.0308 58.1292,-64.0976 58.1189,-64.1408 58.0692,-64.1998 57.9481,-64.3228 57.71,-64.4217 57.6071,-64.4479 57.4489,-64.5238 57.2761,-64.5387 57.1542,-64.4857 57.0053,-64.5077 56.7493,-64.5449 56.4909,-64.6288 56.3783,-64.6707 56.3851,-64.6537 55.9531,-64.7047 55.7801,-64.7277 55.5821,-64.7347 55.4341,-64.7089 55.2049,-64.7338 54.6629,-64.8136 54.6602,-64.7935 54.5502,-64.7979 54.418,-64.8048 54.2402,-64.8056 54.1303,-64.8097 54.0542,-64.8237 54.052,-64.804 53.977,-64.828 53.9332,-64.8337 53.871,-64.882 53.8403,-64.9095 53.035,-65.1848 52.9129,-65.2128 52.514,-65.3568 52.423,-65.3567 52.2438,-65.4057 52.1302,-65.3867 51.7209,-65.3487 51.4612,-65.3298 51.3143,-65.3588 51.1552,-65.3747 50.6791,-65.3787 50.3741,-65.3719 50.2613,-65.373 50.0332,-65.3929 49.792,-65.4379 49.6212,-65.4476 49.389,-65.4958 49.3441,-65.4899 48.918,-65.6529 48.7301,-65.6869 48.5391,-65.751 48.0529,-65.9337 48.078,-65.9217 47.9171,-65.9879 47.7352,-66.0345 47.3172,-66.1607 46.8092,-66.3599 46.6409,-66.4867 46.577,-66.5698 46.513,-66.5878 46.1291,-66.8598 46.034,-66.9529 45.7631,-67.218 45.6532,-67.4047 45.4672,-67.5948 45.4533,-67.6446 45.3582,-67.674 45.3872,-67.7067 45.2541,-67.8208 45.1689,-67.8538 45.1461,-67.8888 44.978,-67.9005 44.855,-67.8428 44.825,-67.7758 44.6039,-67.712 44.4062,-67.7 44.089,-67.7066 44.019,-67.6896 43.4783,-67.6506 43.2522,-67.6477 43.142,-67.6367 42.41,-67.6386 42.3352,-67.6059 41.9181,-67.5769 41.5171,-67.6009 41.0062,-67.5028 40.8782,-67.4798 40.7941,-67.4177 40.7503,-67.3269 40.6962,-67.23 40.7299,-67.2098 40.6499,-67.1959 40.6242,-67.1718 40.4621,-67.1209 40.2661,-67.0408 40.1212,-67.0328 39.9171,-67.0438 39.9173,-67.0199 39.543,-67.0466 39.3682,-67.0479 39.3481,-67.0629 39.1331,-67.0929 38.9442,-67.1857 38.4372,-67.4347 38.3771,-67.4939 38.3781,-67.557 38.403,-67.6438 37.9511,-67.9005 37.8811,-67.9297 37.851,-67.915 37.7731,-67.9148 37.7689,-67.8999 37.504,-67.9077 37.4431,-67.9028 37.369,-67.9168 37.1452,-67.9197 36.782,-67.9939 36.727,-68.018 36.3561,-68.2456 36.38,-68.2319 36.1393,-68.2527 36.084,-68.2367 35.5303,-68.2658 35.2371,-68.3517 35.1711,-68.3849 35.1001,-68.5639 34.8971,-68.7006 34.6433,-68.8119 34.5131,-68.8518 34.286,-68.9089 33.9413,-68.9726 33.7819,-69.012 33.6122,-69.0307 33.0739,-69.1298 32.8121,-69.1547 32.6213,-69.177 32.139,-69.2066 31.9842,-69.2349 31.563,-69.2707 31.1759,-69.3417 30.017,-69.4648 29.8852,-69.4918 29.7381,-69.4789 29.7092,-69.492 29.6262,-69.4878 29.5829,-69.4608 29.3889,-69.4637 29.0592,-69.4446 28.736,-69.4449 28.5799,-69.6027 28.5861,-69.6227 28.3823,-69.7189 28.3241,-69.73 28.2791,-69.718 28.185,-69.7208 27.5582,-69.8025 27.3791,-69.8009 27.2732,-69.8127 27.3121,-69.8058 27.269,-69.8277 27.2931,-69.8099 27.3401,-69.8078 27.2893,-69.8236 27.1313,-69.8526 26.886,-69.9245 26.2749,-70.0388 26.2592,-70.0268 25.5399,-70.0659 25.0401,-70.0998 24.712,-70.0768 24.651,-70.0868 24.336,-70.0339 23.1392,-69.8577 22.5321,-69.8127 22.0772,-69.771 22.0169,-69.7186 21.8971,-69.6758 21.9182,-69.6519 21.8252,-69.6118 21.73,-69.6117 21.3422,-69.5588 21.06,-69.5579 20.2402,-69.602 20.0423,-69.5678 19.8883,-69.5087 19.8382,-69.4816 19.7882,-69.409 19.3872,-69.2358 19.3042,-69.2196 19.048,-69.2387 18.7773,-69.3376 18.6209,-69.4888 18.4372,-69.5627 17.6771,-69.7169 17.0872,-69.7818 16.6999,-69.8427 16.6822,-69.8778 16.5901,-69.9327 16.646,-69.9978 16.5282,-70.0238 16.1189,-70.1498 15.767,-70.1776 15.5262,-70.1685 15.3303,-70.1879 13.95,-70.2478 13.8089,-70.2787 13.3322,-70.3308 12.7532,-70.4088 12.4932,-70.4418 12.329,-70.4418 11.867,-70.4878 11.2442,-70.5436 10.009,-70.5968 9.8143,-70.628 9.3989,-70.6889 9.2479,-70.7166 8.959,-70.7509 8.0313,-70.8347 7.4281,-70.9188 7.1701,-70.9867 7.0061,-70.9936 6.8313,-71.0315 6.6219,-71.0467 6.3121,-71.1139 5.768,-71.2016 4.9423,-71.3338 3.8382,-71.4549 3.4142,-71.5196 3.294,-71.5218 2.72,-71.5759 2.6221,-71.5708 2.3822,-71.5927 1.7781,-71.637 1.3162,-71.6476 1.146,-71.6608 0.9022,-71.6499 0.6803,-71.5826 0.5581,-71.5577 -0.266,-71.4836 -0.3618,-71.4649 -0.3619,-71.4468 -0.6479,-71.3588 -0.8138,-71.3139 -0.7887,-71.3018 -0.8358,-71.2707 -0.7778,-71.0217 -0.7026,-70.9156 -0.7467,-70.8469 -0.6988,-70.81 -0.7399,-70.6669 -0.7377,-70.5977 -0.668,-70.5797 -0.6408,-70.4618 -0.887,-70.3236 -1.1338,-70.2719 -1.4696,-70.2258 -1.6747,-70.2428 -2.0589,-70.2259 -2.607,-70.2618 -3.1538,-70.2767 -3.3838,-70.2979 -3.479,-70.3208 -3.6386,-70.3236 -3.8999,-70.3738 -3.9539,-70.4157 -4.0258,-70.433 -4.0227,-70.6389 -3.9578,-70.6597 -3.8846,-70.8736 -3.7106,-70.9457 -3.2927,-70.9727 -3.1798,-70.9999 -3.1603,-71.0056 -3.088,-71.0149 -3.0669,-71.0339 -2.9299,-71.0608 -2.8858,-71.0867 -2.9937,-71.1716 -3.2658,-71.2297 -3.8688,-71.2607 -4.4908,-71.2588 -4.9729,-71.271 -5.072,-71.2797 -5.2127,-71.2697 -5.3587,-71.2778 -6.0576,-71.2106 -6.12,-71.1836 -6.1728,-71.1259 -6.7079,-71.0868 -7.0738,-71.1096 -8.2298,-71.2407 -8.4678,-71.2867 -8.5293,-71.2956 -8.5708,-71.2996 -8.83,-71.3377 -8.9608,-71.3556 -9.047,-71.4339 -9.1249,-71.4927 -9.1555,-71.5158 -9.1626,-71.5354 -9.1346,-71.5618 -9.1326,-71.6059 -9.067,-71.6216 -9.1706,-71.7809 -9.4836,-71.9027 -9.5178,-71.9104 -9.5298,-71.913 -9.5488,-71.9168 -9.5788,-71.9225 -9.6849,-71.9498 -9.6894,-71.9497 -10.0286,-71.9809 -10.66,-71.9387 -10.701,-71.924 -10.9457,-71.8707 -11.0477,-71.8326 -11.1858,-71.8109 -11.5396,-71.7 -11.6996,-71.6767 -11.8228,-71.6369 -11.9177,-71.6299 -12.3237,-71.4937 -12.3816,-71.4709 -12.4248,-71.4609 -12.5288,-71.445 -12.5436,-71.3963 -12.55,-71.3793 -12.5774,-71.375 -12.5977,-71.3528 -12.6391,-71.3578 -12.7116,-71.3767 -12.7135,-71.3855 -12.7092,-71.4324 -12.682,-71.4746 -12.669,-71.5003 -12.6598,-71.5138 -12.6605,-71.5554 -12.6788,-71.5767 -12.7038,-71.6837 -12.762,-71.8007 -12.788,-71.8318 -12.7569,-71.9348 -12.7418,-72.1278 -12.6998,-72.1758 -12.7217,-72.2757 -12.8198,-72.3389 -12.8219,-72.3777 -13.0479,-72.4699 -13.08,-72.5127 -13.2719,-72.5569 -13.3248,-72.5908 -13.4779,-72.6507 -13.4768,-72.6829 -13.8469,-72.7449 -13.9966,-72.7979 -13.9869,-72.8178 -14.1078,-72.867 -14.5809,-72.9148 -15.0876,-72.9068 -15.6398,-72.8867 -15.7598,-72.8708 -16.402,-72.8609 -16.6019,-72.8428 -16.9128,-72.8536 -17.853,-72.8637 -18.1088,-72.8977 -18.4469,-72.9038 -18.9757,-73.0278 -19.2267,-73.0749 -19.7459,-73.18 -20.71,-73.2678 -21.2868,-73.25 -21.4768,-73.2419 -21.7989,-73.2037 -21.8967,-73.2128 -22.1998,-73.2038 -22.6906,-73.1848 -23.4739,-73.1269 -23.919,-73.0756 -23.8697,-73.0828 -23.9768,-73.0958 -24.1457,-73.1686 -24.8028,-73.2528 -25.1897,-73.2547 -25.3319,-73.2698 -25.7097,-73.355 -26.1907,-73.676 -26.0398,-73.8008 -25.914,-73.8529 -25.908,-73.867 -25.7608,-73.9427 -26.2239,-73.9417 -26.4317,-73.9896 -26.922,-74.018 -26.9179,-74.0329 -27.018,-74.054 -26.9988,-74.0769 -27.1699,-74.1019 -27.3437,-74.161 -27.3919,-74.2037 -27.8567,-74.2629 -28.146,-74.3618 -28.7909,-74.4729 -29.216,-74.5509 -29.3317,-74.5907 -29.3338,-74.7828 -29.3988,-74.8446 -30.0887,-75.0207 -30.713,-75.1139 -31.0499,-75.2139 -31.262,-75.319 -31.3777,-75.3227 -31.4636,-75.4188 -31.4786,-75.3949 -31.4777,-75.4089 -31.4256,-75.4027 -31.4517,-75.4138 -31.6457,-75.4336 -31.8269,-75.4937 -32.1407,-75.5906 -32.3779,-75.6267 -32.5387,-75.6896 -32.7788,-75.7256 -32.9549,-75.7787 -36.7807,-76.4536 -37.0929,-76.4998 -37.4479,-76.5069 -37.4757,-76.5406 -38.0307,-76.6458 -38.1958,-76.6948 -38.3768,-76.7727 -38.6247,-76.8067 -38.7939,-76.855 -39.3568,-76.9267 -39.6879,-77.0189 -39.9089,-77.0417 -40.4699,-77.1549 -41.142,-77.1976 -41.9948,-77.3296 -43.06,-77.5037 -43.2169,-77.5398 -43.6308,-77.6008 -44.2177,-77.721 -44.712,-77.7399 -45.2217,-77.727 -46.3389,-77.6769 -46.7157,-77.7007 -47.0559,-77.7049 -48.3968,-77.7966 -48.9009,-77.7965 -49.2206,-77.7949 -49.8687,-77.7378 -50.8039,-77.7006 -51.0758,-77.6788 -51.7757,-77.5887 -53.2429,-77.48 -53.3558,-77.4889 -53.3307,-77.4748 -53.4707,-77.5069 -53.6717,-77.5106 -53.8258,-77.4959 -54.1387,-77.4979 -54.2686,-77.4798 -55.0057,-77.3269 -55.4817,-77.2288 -56.106,-77.0789 -56.4959,-77.0247 -56.5259,-76.9919 -56.941,-76.9047 -57.195,-76.849 -57.3239,-76.8028 -57.8617,-76.6878 -58.1787,-76.6058 -59.9728,-76.0608 -60.5218,-75.8497 -61.2827,-75.6249 -61.3807,-75.5667 -61.9348,-75.4117 -62.0418,-75.3477 -62.3057,-75.2859 -62.4337,-75.277 -63.084,-75.0996 -63.5549,-74.9516 -63.878,-74.9065 -64.436,-74.8308 -64.5756,-74.7967 -64.6986,-74.7857 -65.3827,-74.6899 -66.284,-74.6698 -67.0068,-74.694 -67.2138,-74.6746 -67.3897,-74.6268 -67.5828,-74.6487 -68.2628,-74.6128 -68.3169,-74.6268 -68.98,-74.5128 -69.7667,-74.3509 -69.9536,-74.3197 -70.4546,-74.1949 -70.5936,-74.1427 -70.7636,-74.0267 -70.5688,-73.9748 -70.4109,-73.9508 -70.2447,-73.9508 -69.8358,-73.8837 -69.5389,-73.7696 -69.4327,-73.7246 -69.4918,-73.6976 -69.3287,-73.6806 -69.1716,-73.6049 -68.6919,-73.4095 -68.5496,-73.3097 -68.5148,-72.962 -68.6189,-72.8316 -68.5789,-72.7426 -68.7979,-72.3999 -68.8337,-72.3547 -68.8978,-72.287 -69.0436,-72.2208 -69.0428,-72.1866 -69.1327,-72.1309 -69.2537,-71.9606 -69.1289,-71.8549 -69.1819,-71.828 -69.153,-71.799 -69.0338,-71.7757 -68.6979,-71.7936 -68.4798,-71.8499 -68.2517,-71.8798 -67.756,-71.9688 -67.5399,-72.0837 -67.4656,-72.0749 -67.3809,-72.1229 -66.9819,-72.2568 -66.9417,-72.2857 -66.7787,-72.3408 -66.6937,-72.3376 -66.5478,-72.3948 -66.2707,-72.4348 -66.2456,-72.4817 -66.159,-72.4958 -65.9617,-72.555 -65.8597,-72.6086 -65.8025,-72.6019 -65.6087,-72.6866 -65.4477,-72.7927 109,-3.0,Antarctica -74.2047,-64.1219 -74.183,-64.1349 -74.12,-64.1427 -74.0429,-64.1738 -73.9759,-64.1896 -73.9217,-64.2069 -73.8038,-64.2316 -73.677,-64.3617 -73.694,-64.3796 -73.7207,-64.6277 -73.7689,-64.6668 -73.6608,-65.1159 -72.831,-66.3068 -72.7587,-66.4448 -72.6828,-66.5248 -72.6109,-66.7847 -72.6938,-67.2207 -72.6997,-67.3609 -72.7579,-67.7276 -72.8596,-67.8948 -73.2289,-68.265 -73.2328,-68.3469 -73.3949,-68.5119 -73.578,-68.7188 -73.6609,-68.8578 -73.7987,-68.9057 -73.8819,-68.89 -73.9688,-68.8908 -74.4037,-68.9197 -74.5676,-68.8887 -74.7966,-68.8626 -74.9289,-68.7785 -75.4037,-68.721 -75.7367,-68.6398 -75.9876,-68.5988 -76.2978,-68.5706 -77.6159,-68.2777 -77.6857,-68.2436 -78.049,-68.1056 -78.248,-67.9538 -78.4726,-67.7166 -78.6459,-67.4437 -78.6969,-67.1849 -78.7846,-67.0727 -78.7618,-66.9275 -78.6138,-66.8758 -78.4546,-66.879 -78.337,-66.9245 -78.0857,-66.9517 -77.8397,-67.027 -77.4607,-67.1368 -77.2755,-67.153 -76.8688,-67.1626 -76.6338,-67.1817 -76.4819,-67.1669 -76.2069,-67.1158 -76.0258,-66.9699 -75.9656,-66.9637 -75.8899,-66.9317 -75.6608,-66.9409 -75.611,-66.9438 -75.5555,-66.9298 -75.5549,-66.8809 -75.5136,-66.8207 -75.4638,-66.8238 -75.3459,-66.8598 -75.2219,-66.9029 -74.9727,-66.8676 -74.7858,-66.7426 -74.7229,-66.6709 -74.5628,-66.5558 -74.549,-66.5058 -74.6329,-66.2396 -74.7118,-66.1438 -74.7696,-66.126 -75.0307,-65.8637 -75.0028,-65.7399 -74.923,-65.6738 -74.8989,-65.6878 -74.8339,-65.5747 -74.8668,-65.5708 -74.8686,-65.4246 -74.8969,-65.3798 -75.0046,-65.3519 -75.0837,-65.394 -75.2429,-65.379 -75.3868,-65.3147 -75.2139,-65.2069 -75.1669,-65.1117 -75.1388,-65.0117 -75.2679,-64.9708 -75.4048,-64.9137 -75.4409,-64.8288 -75.5345,-64.7188 -75.5787,-64.643 -75.608,-64.542 -75.6297,-64.4797 -75.6037,-64.2996 -75.5667,-64.263 -75.4096,-64.2128 -75.0449,-64.1527 -75.018,-64.1258 -74.9696,-64.1119 -74.8107,-64.0188 -74.7709,-64.0136 -74.7307,-64.0338 -74.4746,-64.0097 -74.1938,-64.0708 -74.2047,-64.1219 33,-3.0,Antarctica -79.0498,-65.0818 -79.1068,-65.1508 -79.25,-65.2258 -79.2738,-65.2038 -79.631,-65.3279 -79.6097,-65.5167 -79.5677,-65.545 -79.4906,-65.6189 -79.4587,-65.6237 -79.1258,-65.6367 -78.7698,-65.6625 -78.7227,-65.6988 -78.677,-65.7029 -78.6367,-65.7237 -78.5357,-65.7149 -78.4808,-65.7978 -78.4446,-65.8419 -78.1579,-65.8728 -78.1179,-65.8617 -77.9779,-65.8406 -77.7308,-65.763 -77.5518,-65.7299 -77.4788,-65.6677 -77.5377,-65.3527 -77.6469,-65.284 -77.7627,-65.2309 -77.926,-65.1978 -78.0968,-65.15 -78.269,-65.1568 -78.3959,-65.1369 -78.6036,-65.0997 -78.9589,-65.1217 -79.0498,-65.0818 56,-3.0,Antarctica -81.4678,-69.4298 -81.3478,-69.423 -81.2869,-69.444 -81.2247,-69.4238 -81.1356,-69.427 -81.037,-69.4139 -80.7696,-69.4218 -80.7458,-69.3968 -80.4956,-69.4059 -80.2357,-69.3978 -80.1088,-69.406 -79.977,-69.39 -79.8626,-69.4057 -79.8529,-69.3899 -79.7298,-69.3899 -79.3007,-69.3689 -79.0376,-69.399 -78.8807,-69.3959 -78.8727,-69.3789 -78.5498,-69.3879 -78.152,-69.3417 -78.1057,-69.3308 -77.9999,-69.3307 -77.9267,-69.245 -78.0077,-69.2278 -78.0677,-69.1838 -78.1997,-69.1387 -78.5435,-69.0848 -78.9689,-68.941 -79.909,-68.8147 -80.0159,-68.8056 -80.3067,-68.7689 -80.6187,-68.757 -80.7319,-68.7317 -80.9137,-68.7027 -81.0928,-68.7218 -81.1889,-68.6959 -81.1859,-68.7817 -81.2166,-68.8709 -81.1775,-68.8849 -81.1278,-68.921 -80.8028,-68.9968 -80.8128,-69.0138 -80.9238,-69.0748 -80.9879,-69.0868 -81.0109,-69.0728 -81.1926,-69.0908 -81.2308,-69.0848 -81.3338,-69.209 -81.304,-69.2387 -81.3149,-69.2949 -81.3397,-69.3198 -81.3809,-69.346 -81.3438,-69.3518 -81.3916,-69.3626 -81.4678,-69.4298 33,-5.0,Turks and Caicos -71.0655,21.496 -71.0613,21.4937 -71.0596,21.4887 -71.0602,21.4817 -71.0599,21.4693 -71.0599,21.4629 -71.0605,21.4561 -71.0602,21.45 -71.0593,21.4444 -71.0584,21.4388 -71.0578,21.433 -71.0581,21.4262 -71.0616,21.4224 -71.0658,21.4195 -71.0701,21.4168 -71.0757,21.4154 -71.0798,21.4183 -71.0798,21.4248 -71.0801,21.4309 -71.0795,21.4377 -71.0795,21.4438 -71.0801,21.4497 -71.0804,21.4559 -71.0772,21.4597 -71.0743,21.4644 -71.0734,21.4705 -71.0734,21.4767 -71.0728,21.4823 -71.0716,21.4884 -71.0699,21.4943 -71.0655,21.4966 -71.0655,21.496 -71.0655,21.496 40,-5.0,Turks and Caicos -72.3867,21.6847 -72.3823,21.6879 -72.3785,21.6911 -72.3738,21.6935 -72.3685,21.6958 -72.3635,21.6982 -72.3586,21.6958 -72.3577,21.6902 -72.3574,21.6838 -72.3586,21.6776 -72.3606,21.6723 -72.3624,21.6671 -72.3647,21.6615 -72.3665,21.6562 -72.3685,21.6506 -72.3706,21.6457 -72.3724,21.6404 -72.3744,21.6348 -72.3767,21.6295 -72.3797,21.6254 -72.3829,21.6216 -72.3867,21.6178 -72.3905,21.6146 -72.3958,21.6131 -72.4032,21.6137 -72.4081,21.6146 -72.4081,21.6187 -72.4032,21.621 -72.3999,21.6248 -72.3979,21.6301 -72.3967,21.6363 -72.3946,21.6418 -72.3932,21.648 -72.3926,21.655 -72.3908,21.6603 -72.3894,21.6665 -72.3882,21.6723 -72.387,21.6785 -72.3867,21.6847 -72.3867,21.6847 44,-5.0,Turks and Caicos -71.4231,21.5535 -71.4187,21.5518 -71.4175,21.5462 -71.4184,21.5395 -71.4201,21.5339 -71.4216,21.5277 -71.4222,21.521 -71.4204,21.516 -71.4195,21.5104 -71.4192,21.5043 -71.4207,21.4981 -71.4228,21.4928 -71.4248,21.4872 -71.4272,21.4828 -71.4301,21.4781 -71.4342,21.4749 -71.4392,21.4732 -71.4459,21.4732 -71.4527,21.4729 -71.4586,21.4749 -71.4618,21.4784 -71.4635,21.4834 -71.4647,21.489 -71.4656,21.4949 -71.4656,21.501 -71.4653,21.5081 -71.4644,21.5133 -71.4591,21.5136 -71.4533,21.5119 -71.4483,21.5136 -71.4439,21.5116 -71.4404,21.5081 -71.4363,21.5048 -71.4316,21.5057 -71.4298,21.5113 -71.4292,21.518 -71.4292,21.5245 -71.4295,21.5304 -71.431,21.5356 -71.4321,21.5409 -71.4316,21.5465 -71.4283,21.5506 -71.4231,21.5535 -71.4231,21.5535 69,-5.0,Turks and Caicos -71.5158,21.7319 -71.5137,21.7375 -71.5128,21.7422 -71.5084,21.7451 -71.5034,21.7469 -71.499,21.7448 -71.4949,21.7419 -71.4923,21.7392 -71.4911,21.736 -71.4882,21.7319 -71.4832,21.7293 -71.4773,21.7275 -71.4726,21.7249 -71.4685,21.7219 -71.4632,21.7193 -71.4562,21.7187 -71.4495,21.7187 -71.4453,21.7158 -71.4395,21.7137 -71.4321,21.7134 -71.4254,21.7122 -71.4181,21.7117 -71.4116,21.7102 -71.404,21.7096 -71.3967,21.709 -71.3928,21.7058 -71.3908,21.7011 -71.3899,21.6955 -71.3881,21.6902 -71.3873,21.6847 -71.3864,21.6791 -71.387,21.6721 -71.3881,21.6662 -71.3896,21.66 -71.3908,21.6539 -71.3923,21.6477 -71.3946,21.6433 -71.3987,21.6401 -71.4037,21.6377 -71.406,21.6421 -71.4063,21.6483 -71.4081,21.6533 -71.4107,21.6577 -71.4143,21.6612 -71.4172,21.6653 -71.4198,21.6694 -71.4225,21.6738 -71.4257,21.6773 -71.4283,21.682 -71.4316,21.6855 -71.4351,21.6894 -71.4409,21.6914 -71.4474,21.6926 -71.4542,21.6938 -71.4574,21.6976 -71.46,21.702 -71.465,21.7043 -71.4709,21.7061 -71.4767,21.7081 -71.4832,21.709 -71.4905,21.7099 -71.4961,21.7117 -71.5014,21.714 -71.5061,21.7166 -71.5096,21.7205 -71.5131,21.724 -71.5134,21.7304 -71.5158,21.7319 -71.5158,21.7319 34,-5.0,Turks and Caicos -71.4272,21.6615 -71.4272,21.6556 -71.4292,21.6503 -71.433,21.6471 -71.4357,21.6424 -71.4377,21.6371 -71.4404,21.6325 -71.4424,21.6272 -71.4415,21.6216 -71.4398,21.6163 -71.4389,21.6107 -71.438,21.6052 -71.4377,21.599 -71.4398,21.5934 -71.4448,21.5914 -71.4498,21.5896 -71.4556,21.5917 -71.458,21.5958 -71.4591,21.6016 -71.4591,21.6078 -71.4559,21.6116 -71.453,21.616 -71.4509,21.6216 -71.4509,21.6286 -71.4512,21.6342 -71.4524,21.6398 -71.4518,21.6465 -71.4492,21.6509 -71.4451,21.6545 -71.4398,21.6559 -71.4351,21.6583 -71.4298,21.66 -71.4272,21.6615 -71.4272,21.6615 14,-5.0,Turks and Caicos -71.5334,21.7542 -71.5281,21.753 -71.526,21.7495 -71.5257,21.7439 -71.5272,21.7392 -71.5339,21.7389 -71.5389,21.7398 -71.5425,21.743 -71.5457,21.7469 -71.546,21.7501 -71.5407,21.7518 -71.5378,21.7545 -71.5334,21.7542 -71.5334,21.7542 132,-5.0,Turks and Caicos -71.7777,21.8396 -71.7716,21.8378 -71.7669,21.8352 -71.7616,21.8328 -71.7569,21.8302 -71.7519,21.8281 -71.746,21.8261 -71.7411,21.8234 -71.7355,21.8217 -71.7287,21.8205 -71.7214,21.8199 -71.7147,21.8199 -71.7085,21.8211 -71.7026,21.822 -71.6968,21.8228 -71.6897,21.8228 -71.6824,21.8223 -71.6765,21.8205 -71.6706,21.8184 -71.6645,21.8176 -71.6577,21.8161 -71.651,21.8149 -71.6445,21.8149 -71.6396,21.8176 -71.6369,21.822 -71.6316,21.8234 -71.6249,21.8237 -71.6184,21.8228 -71.6117,21.8214 -71.6061,21.8193 -71.6002,21.8179 -71.5953,21.8152 -71.5911,21.8123 -71.5876,21.8082 -71.5862,21.8032 -71.5841,21.7982 -71.5821,21.7932 -71.58,21.7891 -71.5771,21.7847 -71.5756,21.7797 -71.5727,21.7753 -71.5703,21.7712 -71.5677,21.7665 -71.5659,21.7615 -71.5636,21.7571 -71.5686,21.7568 -71.5744,21.7589 -71.5785,21.7618 -71.5812,21.7662 -71.5838,21.7709 -71.5856,21.7759 -71.5879,21.78 -71.5914,21.7838 -71.5947,21.7873 -71.5958,21.7929 -71.5973,21.7979 -71.6008,21.802 -71.6055,21.8008 -71.6067,21.7961 -71.6046,21.7912 -71.6026,21.7868 -71.6005,21.7815 -71.5988,21.7768 -71.597,21.7718 -71.597,21.7656 -71.5953,21.7606 -71.5932,21.7554 -71.5891,21.7524 -71.585,21.7495 -71.5809,21.7463 -71.5774,21.7425 -71.575,21.7384 -71.573,21.7334 -71.5735,21.7293 -71.5788,21.7275 -71.5835,21.7249 -71.5888,21.7246 -71.5929,21.7281 -71.5964,21.7316 -71.5988,21.736 -71.6017,21.7401 -71.6041,21.7448 -71.6076,21.7486 -71.6108,21.7521 -71.6161,21.7533 -71.619,21.7495 -71.6219,21.7448 -71.6243,21.7401 -71.6287,21.7419 -71.6305,21.7454 -71.6319,21.7498 -71.6343,21.7542 -71.6369,21.7583 -71.6381,21.7642 -71.6396,21.7692 -71.6431,21.7727 -71.6489,21.7747 -71.6548,21.7738 -71.6616,21.7736 -71.6683,21.7733 -71.6742,21.7753 -71.68,21.7771 -71.6871,21.7777 -71.6932,21.7768 -71.6994,21.7759 -71.705,21.7744 -71.71,21.7727 -71.7152,21.7712 -71.7214,21.7703 -71.727,21.7686 -71.7323,21.7668 -71.7369,21.7645 -71.7411,21.7612 -71.7463,21.7598 -71.7531,21.7595 -71.7575,21.7612 -71.7598,21.7656 -71.7625,21.77 -71.7651,21.7744 -71.7677,21.7785 -71.771,21.7824 -71.7727,21.7873 -71.7739,21.7929 -71.7739,21.7991 -71.7727,21.8052 -71.7739,21.8111 -71.7754,21.8158 -71.7777,21.8202 -71.7804,21.8246 -71.7804,21.8308 -71.7777,21.8396 -71.7777,21.8396 116,-5.0,Turks and Caicos -71.935,21.9428 -71.9288,21.9422 -71.9218,21.9416 -71.9159,21.9411 -71.9097,21.9422 -71.903,21.9422 -71.8962,21.9411 -71.8898,21.9396 -71.883,21.9384 -71.8772,21.9381 -71.8713,21.9364 -71.8657,21.9343 -71.859,21.9331 -71.854,21.9323 -71.8475,21.9308 -71.8423,21.9282 -71.8387,21.9246 -71.8364,21.9202 -71.837,21.9135 -71.8396,21.9088 -71.842,21.9035 -71.8437,21.8979 -71.8443,21.8915 -71.8443,21.885 -71.844,21.8789 -71.8437,21.8724 -71.8428,21.8668 -71.8411,21.8619 -71.8393,21.8569 -71.8376,21.8519 -71.8349,21.8478 -71.8308,21.8445 -71.8267,21.8413 -71.8223,21.8384 -71.8191,21.8346 -71.8141,21.8322 -71.8109,21.8284 -71.8079,21.824 -71.8021,21.8223 -71.7983,21.8252 -71.7921,21.8264 -71.7897,21.822 -71.793,21.8181 -71.7971,21.8149 -71.8012,21.8117 -71.8059,21.8093 -71.8117,21.8085 -71.8191,21.8091 -71.825,21.8108 -71.8317,21.8123 -71.8358,21.8152 -71.839,21.8187 -71.8431,21.822 -71.8475,21.8252 -71.8484,21.8308 -71.8525,21.834 -71.8602,21.8343 -71.8643,21.8375 -71.8692,21.8399 -71.8734,21.8431 -71.8766,21.8469 -71.8801,21.8504 -71.8836,21.8545 -71.886,21.8586 -71.8886,21.863 -71.8904,21.868 -71.8921,21.873 -71.8874,21.8753 -71.8851,21.8786 -71.8807,21.8815 -71.8783,21.8862 -71.8757,21.8912 -71.8745,21.8959 -71.8731,21.9017 -71.871,21.907 -71.8698,21.9132 -71.8701,21.9182 -71.8736,21.922 -71.8778,21.9249 -71.8848,21.9249 -71.8868,21.9202 -71.8877,21.9147 -71.8889,21.9085 -71.8907,21.9032 -71.8956,21.9009 -71.8998,21.8976 -71.9045,21.8953 -71.9088,21.8929 -71.9144,21.8915 -71.9197,21.8897 -71.9177,21.8865 -71.9144,21.883 -71.9165,21.8792 -71.9218,21.8774 -71.9282,21.8786 -71.9323,21.8815 -71.9367,21.8847 -71.9417,21.8871 -71.9482,21.8883 -71.9549,21.8883 -71.959,21.89 -71.9578,21.8962 -71.9552,21.9009 -71.9537,21.907 -71.9531,21.9138 -71.957,21.9176 -71.964,21.9179 -71.9658,21.9229 -71.9634,21.9279 -71.9599,21.9317 -71.9567,21.934 -71.952,21.9364 -71.9473,21.9387 -71.9411,21.9396 -71.935,21.9428 -71.935,21.9428 16,-5.0,Turks and Caicos -71.8238,21.9282 -71.8211,21.9252 -71.817,21.9223 -71.8126,21.9191 -71.8094,21.9155 -71.8068,21.9111 -71.8059,21.9056 -71.8117,21.9047 -71.8162,21.9064 -71.8197,21.91 -71.8226,21.9138 -71.8247,21.9188 -71.8264,21.9226 -71.8244,21.9279 -71.8238,21.9282 -71.8238,21.9282 481,-4.0,Bahamas -78.893,26.6708 -78.8901,26.6679 -78.8857,26.6649 -78.8804,26.6626 -78.8751,26.6605 -78.8699,26.6582 -78.8643,26.6561 -78.8593,26.6538 -78.8546,26.6509 -78.8502,26.6479 -78.8458,26.6453 -78.8414,26.6421 -78.8364,26.64 -78.8291,26.6391 -78.822,26.638 -78.8162,26.6365 -78.8118,26.6336 -78.8074,26.6309 -78.8044,26.6262 -78.803,26.6206 -78.8018,26.6154 -78.8,26.6104 -78.7968,26.6063 -78.7915,26.6042 -78.7839,26.6039 -78.7772,26.6028 -78.7698,26.6019 -78.7648,26.5995 -78.7604,26.5966 -78.7566,26.5934 -78.754,26.589 -78.7502,26.5852 -78.7475,26.581 -78.7452,26.5764 -78.7434,26.5714 -78.7402,26.5673 -78.7367,26.5634 -78.7329,26.5614 -78.7302,26.5661 -78.7279,26.5708 -78.7232,26.572 -78.7164,26.5711 -78.7085,26.5708 -78.7012,26.5705 -78.6938,26.5708 -78.6862,26.5705 -78.6789,26.5705 -78.6715,26.5693 -78.6642,26.569 -78.6566,26.5687 -78.649,26.5684 -78.6419,26.569 -78.634,26.5687 -78.6281,26.5699 -78.6226,26.5717 -78.617,26.5734 -78.6117,26.5755 -78.6067,26.5781 -78.6023,26.5805 -78.5979,26.584 -78.5941,26.5872 -78.5909,26.591 -78.5868,26.5945 -78.5835,26.5986 -78.5812,26.6033 -78.5786,26.608 -78.5753,26.6118 -78.5721,26.6157 -78.5686,26.6201 -78.5656,26.6239 -78.5621,26.628 -78.558,26.6309 -78.5551,26.6353 -78.5516,26.6391 -78.5483,26.6432 -78.5457,26.6479 -78.5434,26.6526 -78.5407,26.6573 -78.5392,26.6614 -78.5384,26.6614 -78.5357,26.6647 -78.5328,26.6688 -78.5316,26.6749 -78.5296,26.6802 -78.5302,26.6867 -78.534,26.6899 -78.5398,26.6916 -78.5469,26.6928 -78.5539,26.6937 -78.5615,26.6937 -78.5674,26.6955 -78.5689,26.6996 -78.5651,26.7031 -78.5615,26.7069 -78.5627,26.7125 -78.5618,26.7172 -78.5571,26.7198 -78.5516,26.7216 -78.546,26.7236 -78.5407,26.7251 -78.5366,26.7286 -78.5343,26.7333 -78.5334,26.7395 -78.5319,26.7459 -78.5319,26.7524 -78.5322,26.7588 -78.5328,26.765 -78.5302,26.7697 -78.5269,26.7735 -78.5243,26.7782 -78.5225,26.7838 -78.5216,26.7899 -78.5161,26.7902 -78.5099,26.7887 -78.5064,26.7852 -78.5035,26.7811 -78.4996,26.7776 -78.4961,26.7738 -78.4932,26.7697 -78.4894,26.7662 -78.4867,26.7618 -78.4847,26.7568 -78.4823,26.7518 -78.4806,26.7471 -78.4782,26.7421 -78.4765,26.7374 -78.4741,26.7324 -78.4729,26.7268 -78.4712,26.7221 -78.4688,26.7172 -78.4633,26.7148 -78.4583,26.7142 -78.4533,26.7166 -78.4489,26.7192 -78.4424,26.7201 -78.4348,26.7201 -78.4281,26.7192 -78.4228,26.7169 -78.4166,26.7151 -78.4113,26.7131 -78.4061,26.7104 -78.4008,26.7084 -78.3955,26.706 -78.3893,26.7043 -78.3841,26.7022 -78.3788,26.6999 -78.3726,26.6984 -78.3668,26.6969 -78.36,26.6957 -78.3527,26.6949 -78.3459,26.6937 -78.3401,26.6922 -78.3348,26.6899 -78.3286,26.6887 -78.3233,26.6861 -78.3181,26.6837 -78.316,26.6831 -78.3148,26.6831 -78.3113,26.6802 -78.306,26.6781 -78.2999,26.6764 -78.2937,26.6746 -78.2861,26.6743 -78.2793,26.6735 -78.2717,26.6732 -78.2638,26.6729 -78.257,26.6732 -78.2518,26.6752 -78.2462,26.677 -78.2409,26.6787 -78.2365,26.6823 -78.2327,26.6855 -78.2295,26.6893 -78.2259,26.6934 -78.2221,26.6966 -78.218,26.699 -78.2127,26.701 -78.2072,26.7031 -78.1992,26.7028 -78.1934,26.701 -78.1881,26.699 -78.1831,26.6966 -78.1761,26.6955 -78.1696,26.6966 -78.1635,26.6978 -78.157,26.6969 -78.1508,26.6952 -78.1438,26.694 -78.1362,26.6937 -78.1285,26.6937 -78.1212,26.694 -78.1153,26.6952 -78.1101,26.6969 -78.1036,26.6981 -78.0972,26.6993 -78.0901,26.6996 -78.0828,26.6993 -78.0766,26.6978 -78.0713,26.6955 -78.0669,26.6925 -78.0625,26.6896 -78.0573,26.6875 -78.0502,26.6864 -78.0432,26.6869 -78.0364,26.6872 -78.032,26.6896 -78.0262,26.6916 -78.0215,26.694 -78.0165,26.6966 -78.0118,26.6993 -78.0065,26.701 -78.0004,26.7022 -77.9951,26.7043 -77.9895,26.7057 -77.9848,26.7087 -77.9784,26.7095 -77.9731,26.7113 -77.9666,26.7125 -77.9596,26.7131 -77.9528,26.7133 -77.9458,26.7125 -77.9396,26.7107 -77.9338,26.7092 -77.9273,26.7089 -77.9209,26.7095 -77.9135,26.7095 -77.9082,26.7116 -77.9021,26.7128 -77.8965,26.7145 -77.8918,26.7169 -77.8877,26.7201 -77.8839,26.7236 -77.8804,26.7274 -77.8771,26.7315 -77.8745,26.7362 -77.8727,26.7415 -77.8704,26.7462 -77.8654,26.7497 -77.8607,26.7509 -77.8575,26.7547 -77.8543,26.7588 -77.849,26.7576 -77.8443,26.755 -77.8408,26.7515 -77.8402,26.7453 -77.8428,26.7406 -77.8446,26.7351 -77.8472,26.7304 -77.8478,26.7233 -77.8481,26.7166 -77.8499,26.711 -77.8493,26.7048 -77.8484,26.6993 -77.8469,26.6937 -77.8455,26.6884 -77.8428,26.684 -77.8405,26.679 -77.8384,26.6743 -77.8358,26.6699 -77.8328,26.6658 -77.8308,26.6608 -77.8296,26.6553 -77.8299,26.6485 -77.8302,26.6415 -77.8323,26.6362 -77.8346,26.6315 -77.8384,26.6274 -77.8428,26.6245 -77.8475,26.6215 -77.8531,26.6201 -77.8598,26.6206 -77.8645,26.6239 -77.8681,26.6274 -77.8725,26.6303 -77.8769,26.6333 -77.8821,26.6356 -77.8874,26.6377 -77.8936,26.6394 -77.9012,26.6397 -77.9088,26.64 -77.9159,26.6397 -77.9232,26.64 -77.9311,26.6403 -77.9379,26.6415 -77.9431,26.6435 -77.9511,26.6438 -77.9564,26.6418 -77.9628,26.6409 -77.969,26.6397 -77.9751,26.6385 -77.9813,26.6368 -77.9874,26.6359 -77.993,26.6339 -77.9986,26.6321 -78.0048,26.6309 -78.01,26.6292 -78.0156,26.6271 -78.0224,26.6268 -78.0303,26.6271 -78.0373,26.6268 -78.0435,26.6256 -78.0496,26.6245 -78.0549,26.6227 -78.0614,26.6215 -78.0667,26.6198 -78.0731,26.6186 -78.079,26.6174 -78.0869,26.6177 -78.0945,26.618 -78.1021,26.6183 -78.1101,26.6186 -78.1165,26.6183 -78.1239,26.6177 -78.1315,26.6183 -78.1385,26.6177 -78.1462,26.618 -78.1526,26.6192 -78.1596,26.6201 -78.1676,26.6204 -78.1734,26.6192 -78.179,26.6171 -78.1852,26.616 -78.1907,26.6145 -78.1978,26.6139 -78.2039,26.6127 -78.2101,26.6116 -78.2163,26.6104 -78.2224,26.6095 -78.2289,26.6089 -78.2342,26.6072 -78.2403,26.606 -78.2459,26.6042 -78.2518,26.603 -78.2582,26.6019 -78.2653,26.6013 -78.2708,26.5995 -78.277,26.5986 -78.2837,26.5981 -78.2899,26.5969 -78.2961,26.5957 -78.3019,26.594 -78.3072,26.5922 -78.3128,26.5901 -78.3175,26.5878 -78.3228,26.5857 -78.3283,26.584 -78.3339,26.5822 -78.3395,26.5802 -78.3456,26.579 -78.3515,26.5781 -78.3571,26.5761 -78.3624,26.5743 -78.3685,26.5734 -78.375,26.572 -78.3805,26.5702 -78.3867,26.569 -78.3929,26.5681 -78.399,26.567 -78.4052,26.5655 -78.4113,26.5643 -78.4169,26.5629 -78.4231,26.5617 -78.4295,26.5605 -78.4354,26.559 -78.441,26.5576 -78.4465,26.5555 -78.4518,26.5535 -78.4565,26.5511 -78.4621,26.5491 -78.4668,26.5467 -78.4715,26.5441 -78.4765,26.5417 -78.4803,26.5382 -78.4844,26.535 -78.4891,26.5323 -78.4935,26.53 -78.4994,26.5279 -78.5038,26.5256 -78.5087,26.5227 -78.5096,26.5227 -78.5102,26.5221 -78.5152,26.5197 -78.5214,26.5186 -78.5266,26.5165 -78.5328,26.5156 -78.5384,26.5136 -78.5431,26.5109 -78.5486,26.5092 -78.5548,26.508 -78.5601,26.5059 -78.5651,26.5036 -78.5698,26.501 -78.5744,26.4986 -78.5791,26.4957 -78.5838,26.4933 -78.5885,26.4907 -78.5941,26.4889 -78.5985,26.4863 -78.6035,26.4839 -78.6082,26.481 -78.6135,26.4793 -78.619,26.4775 -78.6252,26.4763 -78.6325,26.4757 -78.6387,26.4746 -78.646,26.4749 -78.6531,26.4746 -78.6598,26.4754 -78.6651,26.4778 -78.671,26.4793 -78.6771,26.481 -78.6833,26.4825 -78.6889,26.4845 -78.693,26.4878 -78.6974,26.4904 -78.7021,26.4936 -78.7059,26.4971 -78.7094,26.5007 -78.7138,26.5036 -78.7173,26.5071 -78.7223,26.5103 -78.7267,26.513 -78.7311,26.5159 -78.7355,26.5189 -78.7399,26.5215 -78.7443,26.5247 -78.749,26.5274 -78.7528,26.5312 -78.7572,26.5341 -78.7607,26.5376 -78.7642,26.5412 -78.7681,26.5447 -78.7728,26.5476 -78.7763,26.5514 -78.7792,26.5555 -78.7827,26.559 -78.7874,26.562 -78.7909,26.5655 -78.7948,26.569 -78.7983,26.5728 -78.8012,26.5769 -78.8059,26.5796 -78.8085,26.584 -78.8121,26.5875 -78.8168,26.5904 -78.8206,26.5942 -78.825,26.5969 -78.8285,26.6004 -78.8329,26.6036 -78.837,26.6069 -78.8405,26.6104 -78.8443,26.6142 -78.8481,26.6177 -78.8508,26.6218 -78.8543,26.6256 -78.8584,26.6292 -78.8619,26.6327 -78.8655,26.6362 -78.8707,26.6385 -78.8751,26.6415 -78.879,26.645 -78.8834,26.6476 -78.8886,26.6503 -78.8939,26.6529 -78.8986,26.6559 -78.9027,26.6588 -78.9074,26.6617 -78.9109,26.6652 -78.9156,26.6682 -78.9191,26.672 -78.9221,26.6761 -78.925,26.6802 -78.9232,26.684 -78.9177,26.6861 -78.9118,26.6846 -78.9089,26.6802 -78.9045,26.6776 -78.9001,26.6743 -78.8954,26.6717 -78.893,26.6708 -78.893,26.6708 183,-5.0,Cayman Islands -81.3249,19.3111 -81.3258,19.3161 -81.3261,19.3223 -81.3267,19.3282 -81.3276,19.3343 -81.3279,19.3408 -81.3302,19.3455 -81.3329,19.3499 -81.3381,19.3519 -81.3437,19.3537 -81.3493,19.3548 -81.3552,19.3566 -81.3596,19.3595 -81.3616,19.3642 -81.3572,19.3669 -81.3528,19.3695 -81.349,19.373 -81.3461,19.3768 -81.3422,19.3804 -81.3384,19.3836 -81.334,19.3862 -81.3279,19.3874 -81.3232,19.3856 -81.3179,19.3833 -81.3144,19.3798 -81.3097,19.3774 -81.3068,19.3733 -81.3103,19.3698 -81.317,19.3707 -81.3208,19.3675 -81.3223,19.3619 -81.3211,19.3563 -81.3188,19.3516 -81.317,19.3466 -81.3147,19.3419 -81.3126,19.337 -81.3106,19.3323 -81.3085,19.3273 -81.3079,19.3211 -81.3088,19.315 -81.3091,19.3079 -81.3079,19.3023 -81.3059,19.2974 -81.3018,19.2941 -81.2971,19.2918 -81.2912,19.2906 -81.2856,19.2888 -81.278,19.2888 -81.2715,19.2891 -81.2663,19.2912 -81.2598,19.2915 -81.2534,19.2921 -81.2469,19.2915 -81.241,19.2927 -81.2363,19.2947 -81.2314,19.2971 -81.229,19.302 -81.2281,19.3082 -81.2243,19.3117 -81.2193,19.3135 -81.2141,19.3114 -81.2091,19.31 -81.2023,19.3106 -81.1994,19.3144 -81.2011,19.3179 -81.2048,19.3197 -81.2058,19.3202 -81.2053,19.3194 -81.2047,19.3194 -81.2048,19.3197 -81.2058,19.3223 -81.2053,19.3282 -81.2073,19.3331 -81.2108,19.3367 -81.2132,19.3411 -81.2132,19.3478 -81.2111,19.3525 -81.2058,19.3531 -81.2014,19.3502 -81.197,19.3475 -81.1929,19.3446 -81.1885,19.3416 -81.1844,19.3387 -81.1777,19.3381 -81.1706,19.3378 -81.1639,19.3378 -81.1571,19.3384 -81.1513,19.3367 -81.1457,19.3352 -81.1404,19.3331 -81.1343,19.3323 -81.1275,19.3314 -81.1205,19.3311 -81.1161,19.3326 -81.1105,19.3343 -81.1049,19.3355 -81.0988,19.337 -81.0923,19.3375 -81.0859,19.3381 -81.08,19.339 -81.0724,19.339 -81.0656,19.3387 -81.0589,19.3381 -81.0521,19.3384 -81.0451,19.3384 -81.0383,19.3375 -81.0336,19.3352 -81.0292,19.3326 -81.026,19.3282 -81.0243,19.3232 -81.0231,19.3176 -81.0231,19.3111 -81.0234,19.3041 -81.0248,19.2985 -81.0272,19.2938 -81.031,19.2906 -81.0354,19.2877 -81.0404,19.2862 -81.0457,19.2839 -81.0515,19.2827 -81.0574,19.2815 -81.0641,19.2809 -81.07,19.2824 -81.0759,19.2839 -81.0806,19.2862 -81.0864,19.2877 -81.0917,19.29 -81.0973,19.2915 -81.1037,19.2921 -81.1105,19.2915 -81.1164,19.2906 -81.1222,19.2891 -81.1281,19.288 -81.134,19.2862 -81.1404,19.2856 -81.1469,19.285 -81.1527,19.2839 -81.1589,19.2824 -81.1654,19.2818 -81.1709,19.2809 -81.1762,19.2789 -81.1794,19.2748 -81.1812,19.2695 -81.1827,19.2639 -81.1832,19.2577 -81.1865,19.2536 -81.1903,19.2501 -81.197,19.2495 -81.2041,19.2498 -81.2114,19.2498 -81.2185,19.2501 -81.2243,19.2516 -81.2293,19.2539 -81.2355,19.2554 -81.2402,19.2577 -81.2469,19.2583 -81.2537,19.2592 -81.2607,19.2595 -81.2666,19.2607 -81.2721,19.2624 -81.2774,19.2648 -81.2824,19.266 -81.2892,19.2668 -81.2936,19.2642 -81.298,19.2616 -81.3015,19.2583 -81.3053,19.2548 -81.3091,19.2516 -81.3141,19.2495 -81.32,19.2495 -81.3241,19.2525 -81.3273,19.2569 -81.3282,19.2621 -81.3305,19.2671 -81.3311,19.2733 -81.3308,19.2789 -81.3308,19.2859 -81.3305,19.2927 -81.329,19.2979 -81.3267,19.3029 -81.3244,19.3076 -81.3249,19.3111 -81.3249,19.3111 69,-5.0,Cayman Islands -79.8233,19.6784 -79.8197,19.6816 -79.8145,19.6837 -79.8083,19.6846 -79.8039,19.6872 -79.7998,19.6899 -79.7936,19.691 -79.7878,19.6922 -79.7819,19.6937 -79.7766,19.6951 -79.7737,19.6995 -79.7696,19.7028 -79.7658,19.706 -79.7622,19.7095 -79.7578,19.7119 -79.7526,19.7139 -79.7476,19.7157 -79.7423,19.7177 -79.7376,19.7204 -79.7332,19.7227 -79.7288,19.7256 -79.7241,19.728 -79.7191,19.73 -79.7159,19.7342 -79.7121,19.738 -79.7086,19.7412 -79.7039,19.7438 -79.6995,19.7465 -79.693,19.7471 -79.6868,19.7456 -79.6827,19.7424 -79.6778,19.7406 -79.671,19.7394 -79.666,19.7371 -79.6628,19.7336 -79.6628,19.7298 -79.6666,19.7262 -79.6707,19.7236 -79.6748,19.7204 -79.6792,19.7177 -79.683,19.7145 -79.6874,19.7119 -79.6918,19.7092 -79.6965,19.7066 -79.7009,19.7039 -79.7059,19.7022 -79.7112,19.7001 -79.7165,19.6984 -79.7223,19.6972 -79.7282,19.6957 -79.7341,19.6946 -79.7399,19.6937 -79.7455,19.6916 -79.7514,19.6904 -79.7573,19.689 -79.7622,19.6872 -79.7678,19.6855 -79.7728,19.6837 -79.7772,19.6808 -79.7816,19.6784 -79.7869,19.6764 -79.7913,19.6737 -79.7963,19.672 -79.8024,19.6708 -79.8089,19.6702 -79.8156,19.6711 -79.8206,19.674 -79.8233,19.6784 -79.8233,19.6784 60,-5.0,Cayman Islands -80.0415,19.647 -80.04,19.6523 -80.0368,19.6567 -80.033,19.6599 -80.0286,19.6626 -80.0242,19.6652 -80.0198,19.6679 -80.0157,19.6711 -80.0128,19.6752 -80.0104,19.6799 -80.0057,19.6825 -79.9993,19.6831 -79.9937,19.684 -79.987,19.6846 -79.9793,19.6843 -79.9729,19.6849 -79.9664,19.6855 -79.9597,19.686 -79.9547,19.6878 -79.9488,19.689 -79.9429,19.6902 -79.9374,19.6922 -79.9324,19.6943 -79.9265,19.6951 -79.9207,19.6963 -79.9142,19.6969 -79.9069,19.6966 -79.9007,19.6951 -79.8966,19.6922 -79.8951,19.6881 -79.8992,19.6846 -79.9045,19.6828 -79.9107,19.6837 -79.9174,19.6846 -79.9242,19.6855 -79.9292,19.6837 -79.9336,19.6811 -79.938,19.6784 -79.9432,19.6764 -79.9485,19.6746 -79.9529,19.672 -79.9582,19.6699 -79.9632,19.6681 -79.9685,19.6661 -79.9735,19.6643 -79.9793,19.6629 -79.9855,19.662 -79.9914,19.6608 -79.9952,19.6576 -79.9993,19.6541 -80.0037,19.6508 -80.0072,19.6473 -80.0116,19.645 -80.0169,19.6429 -80.0219,19.6412 -80.0274,19.6391 -80.0339,19.6385 -80.0398,19.6403 -80.0415,19.647 -80.0415,19.647 96,-4.0,Anguilla -63.0977,18.1495 -63.0944,18.1518 -63.0915,18.1562 -63.0886,18.1609 -63.0853,18.1644 -63.0809,18.1673 -63.0777,18.1712 -63.0748,18.1756 -63.0713,18.1791 -63.0671,18.1823 -63.0619,18.1835 -63.056,18.1841 -63.0504,18.1852 -63.0446,18.1861 -63.0399,18.1879 -63.0346,18.1893 -63.0305,18.1926 -63.0264,18.1952 -63.0217,18.1976 -63.0164,18.1987 -63.0123,18.2017 -63.0088,18.2052 -63.0055,18.209 -63.0044,18.2158 -63.0035,18.2213 -63.0006,18.2257 -62.997,18.2295 -62.9935,18.2331 -62.9903,18.2369 -62.9874,18.2413 -62.9832,18.2442 -62.9786,18.2463 -62.9733,18.2477 -62.9677,18.2492 -62.9633,18.251 -62.9577,18.2524 -62.9524,18.2539 -62.9466,18.2545 -62.9395,18.2536 -62.9322,18.2524 -62.9266,18.2515 -62.9216,18.2539 -62.9184,18.2574 -62.9134,18.2598 -62.9087,18.2615 -62.9026,18.2615 -62.8999,18.2571 -62.8994,18.2512 -62.9026,18.2468 -62.9067,18.2442 -62.9111,18.2419 -62.9146,18.2383 -62.914,18.2325 -62.9143,18.2263 -62.9167,18.2204 -62.9193,18.216 -62.9231,18.2122 -62.9278,18.2102 -62.9331,18.2087 -62.9392,18.2084 -62.9431,18.2052 -62.9466,18.2017 -62.951,18.1993 -62.956,18.1976 -62.9607,18.1952 -62.9659,18.1938 -62.9712,18.1926 -62.9765,18.1914 -62.9803,18.1876 -62.985,18.1852 -62.9903,18.1841 -62.9956,18.1826 -62.9994,18.1797 -63.0041,18.1776 -63.0073,18.1732 -63.0105,18.1694 -63.0155,18.1673 -63.0199,18.1653 -63.0246,18.1629 -63.0287,18.1603 -63.0319,18.1641 -63.0352,18.1671 -63.039,18.1706 -63.0449,18.17 -63.0493,18.1671 -63.0534,18.1641 -63.0572,18.1615 -63.0613,18.1583 -63.066,18.1562 -63.0701,18.1533 -63.0754,18.1518 -63.0806,18.1506 -63.0865,18.15 -63.0915,18.1512 -63.0977,18.1495 -63.0977,18.1495 62,-4.0,Nevis -62.5297,17.1823 -62.5227,17.1811 -62.5174,17.1826 -62.5127,17.1846 -62.506,17.1843 -62.5007,17.1823 -62.496,17.1793 -62.4913,17.1767 -62.4851,17.1752 -62.4787,17.1749 -62.4746,17.1717 -62.4725,17.1673 -62.4713,17.162 -62.4705,17.1564 -62.4699,17.1509 -62.4693,17.1453 -62.4681,17.14 -62.4667,17.135 -62.4652,17.13 -62.4646,17.1245 -62.464,17.1186 -62.4643,17.1124 -62.4652,17.1057 -62.4672,17.0995 -62.4687,17.0937 -62.4713,17.089 -62.4743,17.0846 -62.4778,17.0811 -62.4828,17.079 -62.4884,17.0796 -62.4936,17.0819 -62.5001,17.0822 -62.5054,17.0808 -62.5104,17.0787 -62.5151,17.0767 -62.5212,17.0769 -62.5271,17.0778 -62.5332,17.079 -62.5406,17.0802 -62.5441,17.0837 -62.547,17.0875 -62.5497,17.0919 -62.552,17.0963 -62.5538,17.1007 -62.5552,17.1057 -62.5561,17.1116 -62.5558,17.1177 -62.5555,17.1242 -62.5544,17.1309 -62.5535,17.1362 -62.552,17.1421 -62.5503,17.1482 -62.5479,17.1535 -62.5459,17.1588 -62.5435,17.1638 -62.5415,17.1691 -62.54,17.1761 -62.54,17.1823 -62.5371,17.1867 -62.5315,17.1858 -62.5297,17.1823 -62.5297,17.1823 151,-4.0,Antigua and Barbuda -61.7981,17.6772 -61.796,17.6728 -61.7922,17.6695 -61.7893,17.6654 -61.7861,17.6616 -61.7834,17.6575 -61.7793,17.654 -61.7773,17.6496 -61.7749,17.6452 -61.7729,17.6408 -61.7705,17.6364 -61.7691,17.6314 -61.7696,17.6249 -61.7705,17.6182 -61.7717,17.6114 -61.7732,17.6056 -61.7729,17.5997 -61.7696,17.5959 -61.7638,17.595 -61.7605,17.5988 -61.7588,17.6047 -61.7567,17.61 -61.755,17.6161 -61.7535,17.6226 -61.7526,17.6293 -61.7523,17.6358 -61.7529,17.6414 -61.7535,17.6469 -61.7556,17.6516 -61.7576,17.656 -61.7617,17.6593 -61.7664,17.6622 -61.7702,17.6654 -61.774,17.6689 -61.7787,17.6716 -61.7834,17.6745 -61.7864,17.6783 -61.7884,17.6827 -61.789,17.6883 -61.7887,17.6948 -61.7867,17.6997 -61.7837,17.7041 -61.7802,17.7077 -61.7755,17.71 -61.7691,17.7097 -61.7641,17.7068 -61.7597,17.7041 -61.7567,17.7003 -61.7535,17.6962 -61.7517,17.6918 -61.7494,17.6874 -61.7509,17.6827 -61.7559,17.6813 -61.762,17.6807 -61.7614,17.6766 -61.7564,17.6739 -61.7512,17.6716 -61.7438,17.6704 -61.7394,17.6713 -61.7374,17.6751 -61.7362,17.6804 -61.7333,17.6851 -61.7289,17.6871 -61.723,17.6877 -61.7171,17.6854 -61.7136,17.6821 -61.7104,17.6783 -61.7075,17.6745 -61.7048,17.6704 -61.7013,17.6666 -61.6975,17.6631 -61.6951,17.6587 -61.6916,17.6552 -61.689,17.6513 -61.6849,17.6481 -61.681,17.6446 -61.6769,17.6414 -61.6734,17.6381 -61.6702,17.634 -61.6681,17.6296 -61.667,17.6246 -61.6652,17.6197 -61.6637,17.6144 -61.6617,17.61 -61.6605,17.605 -61.6599,17.5994 -61.659,17.5935 -61.6593,17.5874 -61.6599,17.5809 -61.6602,17.5751 -61.6605,17.5689 -61.6614,17.5619 -61.6608,17.5563 -61.6611,17.5501 -61.6608,17.5443 -61.6608,17.5384 -61.6611,17.5322 -61.6629,17.5261 -61.6687,17.5255 -61.6728,17.5287 -61.6755,17.5328 -61.6819,17.5343 -61.6872,17.5331 -61.6913,17.5302 -61.6972,17.5296 -61.6995,17.534 -61.7016,17.5387 -61.7039,17.5434 -61.7075,17.5472 -61.7121,17.5498 -61.7168,17.5528 -61.7212,17.5554 -61.7277,17.5572 -61.7315,17.5604 -61.7362,17.5633 -61.7412,17.566 -61.7456,17.5689 -61.752,17.5704 -61.7582,17.5718 -61.7647,17.5736 -61.7693,17.5715 -61.7729,17.5677 -61.7776,17.5657 -61.7831,17.568 -61.7852,17.5724 -61.7867,17.5774 -61.7861,17.5839 -61.7858,17.59 -61.7875,17.595 -61.7878,17.6006 -61.7878,17.6067 -61.7875,17.6129 -61.7878,17.6185 -61.7878,17.6249 -61.7884,17.6305 -61.7887,17.6361 -61.7893,17.642 -61.7916,17.6464 -61.7937,17.6508 -61.7958,17.6552 -61.799,17.6593 -61.801,17.6637 -61.8025,17.6689 -61.804,17.6739 -61.8043,17.6795 -61.8051,17.6836 -61.8031,17.6889 -61.7981,17.686 -61.796,17.6816 -61.7981,17.6772 -61.7981,17.6772 171,-4.0,Antigua and Barbuda -61.7564,17.152 -61.7509,17.1515 -61.7444,17.1497 -61.7374,17.1488 -61.7312,17.1491 -61.7245,17.1482 -61.7192,17.1462 -61.7142,17.1432 -61.7113,17.1394 -61.7083,17.1356 -61.706,17.1309 -61.7031,17.1271 -61.7016,17.1218 -61.7025,17.1166 -61.706,17.113 -61.7048,17.1078 -61.7016,17.1039 -61.6978,17.1004 -61.6931,17.0978 -61.6869,17.0963 -61.6854,17.1007 -61.686,17.1066 -61.6849,17.1119 -61.681,17.1151 -61.6769,17.1177 -61.674,17.1221 -61.6696,17.1215 -61.6676,17.1168 -61.6652,17.1124 -61.6608,17.1098 -61.6546,17.1101 -61.6494,17.1116 -61.6444,17.1127 -61.6385,17.1122 -61.6356,17.108 -61.6356,17.1034 -61.6397,17.1004 -61.645,17.0992 -61.6508,17.0987 -61.6564,17.0972 -61.6608,17.0951 -61.6602,17.0907 -61.6573,17.0869 -61.6541,17.0831 -61.652,17.0784 -61.6497,17.074 -61.6447,17.0755 -61.6391,17.0767 -61.6326,17.0752 -61.6265,17.0734 -61.623,17.0772 -61.6192,17.0799 -61.6145,17.0772 -61.6098,17.0793 -61.6042,17.0784 -61.6001,17.0752 -61.5989,17.0699 -61.6001,17.0632 -61.6042,17.0605 -61.6106,17.0608 -61.6168,17.0611 -61.6224,17.0596 -61.6259,17.0561 -61.6236,17.0526 -61.6194,17.0508 -61.613,17.0491 -61.6065,17.0476 -61.6013,17.0456 -61.5983,17.0417 -61.5969,17.0365 -61.5963,17.0309 -61.5974,17.0256 -61.6024,17.0241 -61.6071,17.0221 -61.6106,17.0183 -61.6124,17.0124 -61.6165,17.0095 -61.6218,17.0083 -61.6288,17.0095 -61.6353,17.0107 -61.6417,17.0124 -61.647,17.0148 -61.6517,17.0174 -61.6579,17.0192 -61.6637,17.0186 -61.667,17.0142 -61.6646,17.0098 -61.6617,17.0057 -61.6593,17.0013 -61.6579,16.996 -61.6576,16.9904 -61.6579,16.9843 -61.6585,16.979 -61.6623,16.9752 -61.6681,16.9746 -61.6734,16.9755 -61.6799,16.9772 -61.6852,16.9793 -61.6916,16.981 -61.6972,16.9831 -61.6987,16.9884 -61.7007,16.9928 -61.7036,16.9966 -61.7107,16.9977 -61.7154,16.9954 -61.7183,16.991 -61.7201,16.9851 -61.7271,16.9863 -61.7333,16.9878 -61.7394,16.9872 -61.7444,16.986 -61.7494,16.984 -61.7538,16.9819 -61.7591,16.9819 -61.7623,16.9843 -61.7652,16.9884 -61.7705,16.9904 -61.7779,16.9916 -61.7817,16.9948 -61.7878,16.9963 -61.794,16.998 -61.8002,16.9998 -61.806,17.0019 -61.8104,17.0048 -61.8136,17.0086 -61.8157,17.013 -61.8172,17.018 -61.8154,17.0241 -61.8131,17.0294 -61.8113,17.0353 -61.811,17.0417 -61.8125,17.0467 -61.8154,17.0505 -61.8178,17.0549 -61.8169,17.0605 -61.8122,17.0626 -61.806,17.0629 -61.8002,17.0635 -61.7969,17.0673 -61.7984,17.0708 -61.8022,17.074 -61.8078,17.0764 -61.8131,17.0752 -61.8189,17.0746 -61.821,17.079 -61.8195,17.0849 -61.8172,17.0902 -61.8142,17.0946 -61.8107,17.0984 -61.8075,17.1019 -61.8025,17.1042 -61.799,17.1007 -61.7925,17.0992 -61.7861,17.0975 -61.779,17.0966 -61.7732,17.0972 -61.7696,17.1007 -61.7696,17.1054 -61.7752,17.1078 -61.7817,17.1095 -61.7837,17.1139 -61.784,17.1195 -61.782,17.1248 -61.7781,17.1283 -61.7749,17.1318 -61.7717,17.1359 -61.7685,17.1403 -61.7661,17.1453 -61.7626,17.1488 -61.7564,17.152 -61.7564,17.152 73,-4.0,Montserrat -62.1319,16.7986 -62.1246,16.7974 -62.1184,16.7959 -62.1123,16.7944 -62.1064,16.7936 -62.1076,16.7868 -62.1091,16.7807 -62.1085,16.7751 -62.1064,16.7707 -62.1035,16.7669 -62.0997,16.7636 -62.0959,16.7601 -62.0935,16.7557 -62.092,16.7504 -62.0882,16.7472 -62.0844,16.7437 -62.0809,16.7405 -62.078,16.7367 -62.0762,16.7317 -62.0759,16.7261 -62.0753,16.7205 -62.0765,16.7158 -62.0788,16.7106 -62.0806,16.7044 -62.0794,16.6994 -62.0771,16.695 -62.075,16.6906 -62.0727,16.6862 -62.0697,16.6821 -62.0674,16.6777 -62.0703,16.6733 -62.0744,16.6704 -62.078,16.6665 -62.0815,16.663 -62.0856,16.6601 -62.0903,16.658 -62.0956,16.6566 -62.1014,16.6563 -62.1076,16.6563 -62.1143,16.6566 -62.1199,16.6575 -62.1243,16.6601 -62.129,16.663 -62.1337,16.6657 -62.1387,16.6686 -62.1425,16.6718 -62.1451,16.6756 -62.1475,16.6803 -62.1504,16.6841 -62.1548,16.6868 -62.1598,16.6897 -62.1636,16.6929 -62.1666,16.6968 -62.1671,16.7023 -62.166,16.7091 -62.1657,16.7155 -62.1627,16.7199 -62.1601,16.7243 -62.1572,16.7287 -62.1548,16.7337 -62.1533,16.7399 -62.1525,16.7469 -62.151,16.7537 -62.149,16.759 -62.146,16.7634 -62.1428,16.7669 -62.1404,16.7722 -62.1387,16.778 -62.1387,16.7845 -62.1384,16.7906 -62.1372,16.7959 -62.1319,16.7986 -62.1319,16.7986 219,-4.0,Guadaloupe -61.4525,16.3779 -61.4534,16.3823 -61.4546,16.3876 -61.4566,16.3926 -61.4581,16.3978 -61.4593,16.4028 -61.4599,16.4084 -61.4613,16.4134 -61.4628,16.4184 -61.4634,16.4242 -61.4622,16.4307 -61.4616,16.4369 -61.459,16.4413 -61.456,16.4457 -61.4525,16.4495 -61.4478,16.4515 -61.4443,16.4553 -61.4414,16.4597 -61.439,16.465 -61.437,16.47 -61.4323,16.4721 -61.4264,16.4726 -61.4211,16.4738 -61.417,16.477 -61.4126,16.4797 -61.4088,16.4823 -61.4053,16.4861 -61.4024,16.4905 -61.4003,16.4958 -61.3962,16.4985 -61.3903,16.499 -61.3865,16.4979 -61.3848,16.4935 -61.3824,16.4891 -61.3768,16.487 -61.3704,16.4867 -61.366,16.4838 -61.3631,16.48 -61.3601,16.4762 -61.3569,16.4718 -61.3534,16.4685 -61.3478,16.4665 -61.3422,16.4644 -61.3378,16.4615 -61.3346,16.4577 -61.3325,16.453 -61.3314,16.448 -61.3308,16.4424 -61.3293,16.4374 -61.3281,16.4322 -61.3261,16.4278 -61.3243,16.4228 -61.3229,16.4178 -61.322,16.4128 -61.3214,16.4069 -61.3229,16.4011 -61.3252,16.3958 -61.3279,16.3905 -61.3293,16.3846 -61.3302,16.3776 -61.3287,16.3726 -61.327,16.3682 -61.3246,16.3638 -61.3208,16.3606 -61.3179,16.3565 -61.3149,16.3527 -61.312,16.3488 -61.3088,16.345 -61.3061,16.3403 -61.3032,16.3362 -61.3,16.3324 -61.2965,16.3292 -61.2924,16.3257 -61.2877,16.323 -61.2824,16.3207 -61.2759,16.3192 -61.2695,16.318 -61.2636,16.3186 -61.2563,16.3175 -61.2495,16.3163 -61.2422,16.3151 -61.2357,16.3139 -61.2287,16.3128 -61.2217,16.3116 -61.2155,16.3098 -61.209,16.3084 -61.2038,16.306 -61.1985,16.304 -61.1947,16.3004 -61.19,16.2978 -61.187,16.2937 -61.1832,16.2905 -61.1806,16.2867 -61.1765,16.2834 -61.173,16.2799 -61.1689,16.2767 -61.1645,16.2737 -61.1598,16.2711 -61.1559,16.2676 -61.1521,16.2644 -61.1474,16.2617 -61.1439,16.2582 -61.1392,16.2556 -61.1354,16.252 -61.1298,16.25 -61.124,16.2482 -61.1172,16.2479 -61.1108,16.2476 -61.1037,16.2468 -61.099,16.2438 -61.097,16.2394 -61.0964,16.2338 -61.0993,16.2294 -61.1028,16.2259 -61.1084,16.2245 -61.1137,16.2253 -61.119,16.2274 -61.1243,16.2297 -61.1301,16.2318 -61.1363,16.2336 -61.1416,16.2359 -61.1489,16.2368 -61.1557,16.238 -61.1624,16.2382 -61.1689,16.2385 -61.1741,16.2371 -61.18,16.2365 -61.185,16.2353 -61.1891,16.2324 -61.1932,16.2297 -61.1985,16.2283 -61.2038,16.2271 -61.209,16.2259 -61.2149,16.2253 -61.2202,16.2242 -61.2266,16.2245 -61.2325,16.2239 -61.2384,16.2233 -61.2448,16.2236 -61.2507,16.223 -61.2566,16.2224 -61.2624,16.2218 -61.2683,16.2215 -61.2742,16.2209 -61.2794,16.2198 -61.2847,16.2186 -61.29,16.2171 -61.2953,16.2157 -61.3,16.2139 -61.3038,16.2107 -61.3085,16.2089 -61.3132,16.2066 -61.3185,16.2054 -61.3237,16.2042 -61.329,16.2028 -61.3337,16.2007 -61.339,16.1995 -61.344,16.1975 -61.349,16.196 -61.3543,16.1948 -61.3589,16.1928 -61.3636,16.1907 -61.3689,16.1893 -61.3742,16.1881 -61.3795,16.1869 -61.3848,16.1854 -61.3906,16.1849 -61.3968,16.1852 -61.4041,16.1863 -61.4094,16.1887 -61.4159,16.1901 -61.422,16.1919 -61.4282,16.1934 -61.4335,16.1954 -61.439,16.1978 -61.4431,16.201 -61.4472,16.2039 -61.4511,16.2072 -61.4558,16.2101 -61.4596,16.2133 -61.4634,16.2165 -61.4663,16.2206 -61.4695,16.2245 -61.4725,16.2283 -61.4745,16.2327 -61.4766,16.2374 -61.478,16.2424 -61.4786,16.2479 -61.4792,16.2535 -61.478,16.2605 -61.4766,16.2649 -61.4745,16.2702 -61.4719,16.2755 -61.4692,16.2799 -61.466,16.2843 -61.4634,16.2887 -61.4616,16.2946 -61.4604,16.3016 -61.459,16.3075 -61.4578,16.3145 -61.4566,16.321 -61.4543,16.3263 -61.4511,16.3301 -61.447,16.3327 -61.4411,16.3333 -61.4346,16.333 -61.4288,16.3336 -61.4247,16.3362 -61.4229,16.3424 -61.4226,16.3486 -61.4223,16.3547 -61.4229,16.3606 -61.4232,16.3662 -61.4279,16.3688 -61.434,16.3706 -61.4396,16.3726 -61.4458,16.3744 -61.4525,16.3779 -61.4525,16.3779 226,-4.0,Dominica -61.398,15.6131 -61.3921,15.6134 -61.3865,15.6146 -61.3821,15.6169 -61.3763,15.6172 -61.3701,15.6169 -61.3636,15.6166 -61.3572,15.6152 -61.3528,15.6125 -61.349,15.609 -61.346,15.6049 -61.3431,15.6005 -61.3408,15.5961 -61.3381,15.5923 -61.3358,15.5876 -61.3328,15.5838 -61.3299,15.58 -61.3261,15.5767 -61.3217,15.5738 -61.3144,15.5726 -61.3085,15.5732 -61.3038,15.5753 -61.2994,15.5773 -61.2947,15.5794 -61.2888,15.58 -61.2841,15.577 -61.278,15.5756 -61.2709,15.5744 -61.2651,15.5726 -61.2586,15.5712 -61.2533,15.5691 -61.2478,15.5668 -61.2442,15.5635 -61.2387,15.5615 -61.234,15.5585 -61.2352,15.5515 -61.2363,15.5451 -61.2349,15.5401 -61.2328,15.5354 -61.2308,15.531 -61.2278,15.5272 -61.2246,15.5231 -61.2193,15.521 -61.2131,15.5195 -61.209,15.516 -61.2102,15.5104 -61.2079,15.506 -61.2026,15.504 -61.1973,15.5016 -61.1982,15.4964 -61.1991,15.4893 -61.1988,15.4837 -61.1967,15.4793 -61.1935,15.4755 -61.1914,15.4711 -61.1894,15.4658 -61.1882,15.4609 -61.187,15.4559 -61.1856,15.4509 -61.1832,15.4462 -61.1829,15.4406 -61.1835,15.4353 -61.1867,15.4306 -61.1894,15.4262 -61.1917,15.421 -61.1929,15.4145 -61.1909,15.4098 -61.1876,15.406 -61.185,15.4022 -61.1841,15.3978 -61.1873,15.394 -61.1911,15.3905 -61.1885,15.3875 -61.185,15.384 -61.1818,15.3802 -61.185,15.3758 -61.1888,15.3731 -61.1885,15.3693 -61.185,15.3661 -61.1835,15.3611 -61.185,15.3564 -61.1891,15.3535 -61.1906,15.3488 -61.1885,15.3444 -61.187,15.3394 -61.1867,15.3338 -61.1853,15.3289 -61.1838,15.3239 -61.1818,15.3192 -61.1806,15.3142 -61.1809,15.308 -61.1818,15.3013 -61.1832,15.2951 -61.1835,15.2892 -61.185,15.2825 -61.1844,15.2766 -61.1853,15.2699 -61.187,15.2637 -61.19,15.2596 -61.1929,15.2552 -61.1947,15.2491 -61.195,15.2429 -61.1973,15.2376 -61.1999,15.2332 -61.2032,15.2297 -61.207,15.2262 -61.2102,15.2224 -61.2152,15.2206 -61.2208,15.22 -61.2255,15.2215 -61.2293,15.2247 -61.2334,15.2279 -61.2378,15.2309 -61.2422,15.23 -61.246,15.2271 -61.2492,15.2227 -61.2519,15.2183 -61.2542,15.2133 -61.2572,15.2089 -61.2621,15.2074 -61.2668,15.2056 -61.2704,15.2018 -61.2727,15.1965 -61.275,15.1913 -61.2777,15.1869 -61.2824,15.1848 -61.2877,15.1836 -61.2935,15.1831 -61.3006,15.1842 -61.3041,15.1875 -61.3058,15.1924 -61.3026,15.1968 -61.3006,15.2021 -61.3,15.2083 -61.302,15.2127 -61.3044,15.2171 -61.3073,15.2215 -61.3073,15.2274 -61.3076,15.2329 -61.3067,15.2397 -61.3056,15.2467 -61.3044,15.2532 -61.3041,15.2593 -61.3061,15.2637 -61.31,15.2672 -61.3147,15.2699 -61.3199,15.2722 -61.3214,15.2772 -61.322,15.2831 -61.3223,15.2887 -61.3243,15.2931 -61.324,15.2992 -61.3229,15.306 -61.3208,15.311 -61.3205,15.3174 -61.3202,15.3236 -61.3208,15.3291 -61.3214,15.3347 -61.3229,15.3397 -61.3249,15.3444 -61.3281,15.3482 -61.3308,15.352 -61.3337,15.3561 -61.3375,15.3594 -61.3413,15.3626 -61.3443,15.3667 -61.3481,15.3699 -61.3507,15.3737 -61.3525,15.3787 -61.3528,15.3843 -61.3534,15.3902 -61.3531,15.3963 -61.3528,15.4025 -61.3557,15.4063 -61.3587,15.4101 -61.3633,15.413 -61.368,15.4157 -61.3716,15.4192 -61.3763,15.4218 -61.3786,15.4262 -61.3763,15.4315 -61.3783,15.4359 -61.3804,15.4406 -61.3833,15.4444 -61.3862,15.4482 -61.3892,15.4521 -61.3924,15.4562 -61.3947,15.4609 -61.3974,15.4647 -61.4012,15.4679 -61.4047,15.4714 -61.4065,15.4764 -61.4068,15.482 -61.4071,15.4876 -61.4065,15.4943 -61.4074,15.4993 -61.4097,15.504 -61.4117,15.5084 -61.415,15.5122 -61.4176,15.516 -61.42,15.5204 -61.4214,15.5254 -61.4185,15.5301 -61.4132,15.5313 -61.4085,15.5336 -61.4038,15.5354 -61.4,15.5383 -61.3968,15.5427 -61.3941,15.5471 -61.3924,15.5533 -61.3962,15.5565 -61.4015,15.5588 -61.4079,15.5588 -61.4135,15.56 -61.4167,15.5638 -61.4159,15.5691 -61.4123,15.5726 -61.4076,15.575 -61.4047,15.5794 -61.4035,15.5861 -61.405,15.5911 -61.4056,15.5967 -61.4047,15.6034 -61.4009,15.6072 -61.398,15.6131 -61.398,15.6131 402,-4.0,Martinique -61.1287,14.8439 -61.1243,14.8469 -61.1204,14.8498 -61.1163,14.8524 -61.1125,14.8551 -61.1087,14.8589 -61.1046,14.8618 -61.1002,14.8639 -61.0949,14.8654 -61.0885,14.8651 -61.0817,14.8639 -61.0747,14.8627 -61.0694,14.8604 -61.0647,14.8577 -61.0594,14.8554 -61.0539,14.8533 -61.048,14.8516 -61.0424,14.8498 -61.036,14.848 -61.0301,14.8463 -61.0248,14.8442 -61.0198,14.8413 -61.0154,14.8387 -61.0116,14.8351 -61.0075,14.8325 -61.0037,14.829 -60.999,14.8263 -60.9934,14.824 -60.9881,14.8219 -60.9829,14.8196 -60.9767,14.8181 -60.9697,14.8169 -60.9644,14.814 -60.9615,14.8102 -60.9585,14.8064 -60.955,14.8029 -60.9512,14.7996 -60.9471,14.7964 -60.9409,14.7947 -60.935,14.7929 -60.933,14.7885 -60.9315,14.7835 -60.9289,14.7797 -60.9254,14.7756 -60.9204,14.7735 -60.9157,14.7706 -60.9119,14.7674 -60.9069,14.7653 -60.9063,14.7595 -60.9042,14.755 -60.901,14.7509 -60.8984,14.7471 -60.896,14.7427 -60.894,14.7383 -60.8919,14.7339 -60.8881,14.7304 -60.884,14.7333 -60.8805,14.7369 -60.8778,14.7413 -60.8746,14.7457 -60.872,14.7504 -60.8664,14.7477 -60.8597,14.7468 -60.8544,14.748 -60.8511,14.7507 -60.847,14.7533 -60.8423,14.7553 -60.8371,14.7565 -60.8327,14.7571 -60.8289,14.76 -60.8236,14.7612 -60.8177,14.7618 -60.8121,14.7609 -60.8077,14.7583 -60.806,14.7533 -60.8101,14.7495 -60.8151,14.7483 -60.8221,14.7495 -60.8271,14.748 -60.8262,14.7439 -60.8242,14.7404 -60.8286,14.7386 -60.8321,14.7348 -60.8321,14.7301 -60.8333,14.7245 -60.8379,14.7228 -60.8421,14.7207 -60.8465,14.7242 -60.8491,14.7281 -60.852,14.7319 -60.855,14.7357 -60.8599,14.7357 -60.8644,14.7339 -60.8679,14.7301 -60.8708,14.7257 -60.8723,14.719 -60.8726,14.7128 -60.8679,14.7099 -60.8641,14.7066 -60.8641,14.702 -60.8649,14.6964 -60.8614,14.6932 -60.8591,14.697 -60.855,14.6996 -60.8506,14.697 -60.8503,14.6914 -60.8456,14.6885 -60.8418,14.6852 -60.8388,14.6814 -60.8435,14.6794 -60.8485,14.6779 -60.8541,14.677 -60.8585,14.6747 -60.8602,14.6703 -60.8582,14.6665 -60.8629,14.6644 -60.8673,14.6618 -60.8702,14.6571 -60.8693,14.6512 -60.8676,14.6468 -60.8626,14.6442 -60.8579,14.6442 -60.8538,14.6468 -60.8503,14.6506 -60.8465,14.6535 -60.8409,14.6524 -60.8365,14.65 -60.8309,14.6477 -60.8259,14.6489 -60.8206,14.6489 -60.8186,14.6445 -60.8206,14.6406 -60.8262,14.6401 -60.8315,14.6389 -60.8365,14.6374 -60.8356,14.6324 -60.8318,14.6292 -60.8303,14.6242 -60.83,14.6183 -60.8303,14.6122 -60.8271,14.6084 -60.8209,14.6066 -60.8154,14.6057 -60.8101,14.6063 -60.8039,14.6069 -60.7983,14.606 -60.7998,14.6013 -60.8051,14.5999 -60.8039,14.5972 -60.8001,14.5937 -60.8016,14.5873 -60.796,14.5849 -60.7907,14.5829 -60.7843,14.5826 -60.7796,14.5796 -60.7769,14.5755 -60.7755,14.5714 -60.7734,14.567 -60.774,14.5614 -60.7737,14.5559 -60.7684,14.557 -60.7631,14.5582 -60.7596,14.555 -60.7596,14.5503 -60.7626,14.5459 -60.7658,14.5421 -60.7678,14.5374 -60.7655,14.533 -60.7626,14.5292 -60.7596,14.5254 -60.7579,14.5204 -60.757,14.5151 -60.759,14.5098 -60.7643,14.5086 -60.7678,14.5051 -60.7655,14.5019 -60.7599,14.4995 -60.7555,14.4969 -60.7535,14.4925 -60.7529,14.4869 -60.7517,14.4819 -60.7502,14.477 -60.7476,14.4731 -60.7461,14.4679 -60.7473,14.4611 -60.7467,14.4555 -60.7435,14.4517 -60.74,14.4482 -60.7408,14.4441 -60.7447,14.4415 -60.7505,14.4409 -60.7538,14.4371 -60.7555,14.4315 -60.757,14.4247 -60.759,14.4195 -60.7626,14.4156 -60.7649,14.4107 -60.7678,14.406 -60.7693,14.4001 -60.7737,14.3983 -60.7787,14.396 -60.7816,14.3916 -60.7849,14.3881 -60.7907,14.3878 -60.7978,14.3887 -60.8048,14.3895 -60.8101,14.3919 -60.8113,14.3969 -60.8113,14.4019 -60.8124,14.4068 -60.8148,14.4112 -60.8145,14.4159 -60.8101,14.4183 -60.8054,14.4203 -60.7998,14.4215 -60.7954,14.4236 -60.791,14.4256 -60.7893,14.4315 -60.7878,14.4376 -60.7872,14.4438 -60.7887,14.4488 -60.7904,14.4532 -60.7928,14.4576 -60.7978,14.4576 -60.803,14.4567 -60.8077,14.4544 -60.8127,14.4532 -60.8168,14.4505 -60.8203,14.447 -60.823,14.4423 -60.8271,14.4397 -60.8318,14.4373 -60.8374,14.4382 -60.8394,14.4426 -60.8382,14.4497 -60.8368,14.4541 -60.8418,14.457 -60.8467,14.4576 -60.8503,14.4541 -60.8544,14.4514 -60.8597,14.4503 -60.8661,14.4505 -60.8732,14.4517 -60.8802,14.4523 -60.8858,14.4523 -60.8905,14.4549 -60.8934,14.4585 -60.8969,14.4573 -60.901,14.4544 -60.9048,14.4564 -60.9081,14.4602 -60.9128,14.4582 -60.9177,14.457 -60.9224,14.4549 -60.9283,14.4544 -60.9348,14.4547 -60.9409,14.4549 -60.9462,14.4573 -60.9515,14.4593 -60.9568,14.4582 -60.9612,14.4552 -60.9638,14.4508 -60.9676,14.4479 -60.972,14.4453 -60.9758,14.4423 -60.9817,14.442 -60.9876,14.4426 -60.9928,14.445 -60.9964,14.4482 -60.9999,14.4517 -61.0046,14.4544 -61.0084,14.4576 -61.0104,14.4623 -61.0119,14.4667 -61.0134,14.4717 -61.0154,14.4761 -61.0178,14.4805 -61.0175,14.4866 -61.0178,14.4931 -61.0225,14.4943 -61.0289,14.4946 -61.0324,14.4981 -61.0307,14.5042 -61.028,14.5083 -61.0236,14.5104 -61.0195,14.5133 -61.0163,14.5177 -61.0137,14.5221 -61.0107,14.5256 -61.0069,14.5286 -61.0037,14.5321 -60.9987,14.5344 -60.9934,14.5356 -60.9879,14.5362 -60.9826,14.5374 -60.9776,14.5394 -60.9752,14.5438 -60.9714,14.5441 -60.9694,14.5397 -60.9688,14.5339 -60.9659,14.53 -60.9597,14.5283 -60.9535,14.5265 -60.9483,14.528 -60.943,14.5295 -60.938,14.5306 -60.9321,14.5309 -60.9268,14.5324 -60.923,14.5353 -60.9242,14.5403 -60.9262,14.5447 -60.9315,14.5468 -60.9353,14.5503 -60.9368,14.5553 -60.9371,14.5609 -60.9386,14.5661 -60.9438,14.5679 -60.9462,14.5726 -60.9471,14.5779 -60.9459,14.5834 -60.9441,14.5896 -60.9468,14.5937 -60.9527,14.5931 -60.9571,14.5911 -60.962,14.5887 -60.9653,14.5852 -60.97,14.5831 -60.9758,14.5829 -60.9811,14.5814 -60.987,14.5811 -60.9931,14.5826 -60.9969,14.5858 -61.0005,14.5893 -61.006,14.5893 -61.0107,14.5875 -61.016,14.5861 -61.0216,14.5855 -61.0257,14.5887 -61.0277,14.5937 -61.0304,14.5975 -61.0327,14.6019 -61.0366,14.6051 -61.0404,14.6087 -61.0433,14.6125 -61.0459,14.6163 -61.0509,14.6192 -61.0553,14.6219 -61.0606,14.6242 -61.0653,14.6269 -61.0688,14.6304 -61.0718,14.6342 -61.0747,14.638 -61.0776,14.6418 -61.0817,14.6453 -61.0844,14.6491 -61.0864,14.6535 -61.0894,14.6574 -61.0917,14.6618 -61.0943,14.6659 -61.0976,14.6697 -61.0996,14.6741 -61.1026,14.6779 -61.1046,14.6826 -61.1067,14.6873 -61.1075,14.6929 -61.1081,14.6981 -61.1078,14.7043 -61.1067,14.7099 -61.1064,14.716 -61.107,14.7216 -61.1084,14.7266 -61.1105,14.731 -61.1125,14.7357 -61.1163,14.7392 -61.119,14.743 -61.1213,14.7474 -61.1248,14.7507 -61.1272,14.7553 -61.1301,14.7592 -61.1325,14.7636 -61.1351,14.7674 -61.1378,14.7694 -61.143,14.7715 -61.1477,14.7744 -61.1507,14.7779 -61.1545,14.7815 -61.1565,14.7861 -61.1595,14.79 -61.1615,14.7944 -61.1612,14.8005 -61.1589,14.8058 -61.1574,14.8117 -61.1565,14.8172 -61.153,14.8208 -61.1498,14.8243 -61.1463,14.8281 -61.1427,14.8316 -61.1386,14.8343 -61.1351,14.8381 -61.1304,14.8401 -61.1287,14.8439 -61.1287,14.8439 188,-4.0,Saint Lucia -60.8682,13.7028 -60.8732,13.7007 -60.877,13.6978 -60.8814,13.6949 -60.8846,13.6943 -60.8861,13.6999 -60.8843,13.7054 -60.8869,13.7095 -60.8928,13.7113 -60.8981,13.7131 -60.9022,13.7157 -60.9063,13.7189 -60.9095,13.7224 -60.9128,13.7257 -60.9163,13.7295 -60.9204,13.7324 -60.9251,13.7348 -60.9312,13.7356 -60.9377,13.7354 -60.9444,13.7351 -60.9506,13.7356 -60.9562,13.7374 -60.9612,13.7406 -60.965,13.7433 -60.9691,13.7462 -60.9723,13.75 -60.9767,13.7527 -60.9805,13.7556 -60.9837,13.7591 -60.9876,13.7626 -60.9908,13.7664 -60.9937,13.77 -60.9975,13.7735 -60.9999,13.7776 -61.0028,13.782 -61.0043,13.787 -61.0049,13.7931 -61.0034,13.7984 -61.0008,13.8031 -60.9993,13.8087 -61.0011,13.8134 -60.9999,13.8193 -60.999,13.8254 -60.9975,13.831 -60.9972,13.8366 -61.0013,13.8395 -61.0055,13.8421 -61.0075,13.8471 -61.0084,13.8527 -61.0096,13.8583 -61.0093,13.865 -61.0084,13.8712 -61.0066,13.8767 -61.0049,13.882 -61.0019,13.8861 -60.9993,13.8908 -60.9964,13.8952 -60.9934,13.8993 -60.9905,13.9031 -60.9876,13.9073 -60.9843,13.9111 -60.9814,13.9152 -60.9776,13.9184 -60.9741,13.9216 -60.9711,13.9254 -60.9688,13.9301 -60.9676,13.9363 -60.967,13.9425 -60.9659,13.9486 -60.965,13.9548 -60.9617,13.9589 -60.9588,13.9627 -60.9544,13.9653 -60.95,13.9677 -60.9477,13.9724 -60.9468,13.9785 -60.9459,13.9847 -60.9441,13.9903 -60.9415,13.9947 -60.9389,13.9988 -60.9359,14.0026 -60.9318,14.0061 -60.9268,14.0076 -60.9207,14.0082 -60.9148,14.0093 -60.9107,14.012 -60.9084,14.0167 -60.9066,14.022 -60.9045,14.0272 -60.9034,14.0328 -60.9028,14.0396 -60.9019,14.0457 -60.8996,14.0501 -60.8966,14.0545 -60.8928,14.0575 -60.8899,14.0616 -60.8869,14.0654 -60.8837,14.0695 -60.8822,14.0751 -60.8805,14.0803 -60.8781,14.085 -60.8758,14.0897 -60.8714,14.0921 -60.8664,14.0941 -60.8602,14.0944 -60.8544,14.0927 -60.8497,14.0906 -60.8459,14.0874 -60.8444,14.0847 -60.8479,14.0815 -60.8523,14.0792 -60.8514,14.0736 -60.847,14.0704 -60.8429,14.0677 -60.8418,14.0621 -60.8421,14.0566 -60.8397,14.0525 -60.8347,14.0501 -60.8291,14.0487 -60.8242,14.0463 -60.8218,14.0422 -60.8206,14.0366 -60.8195,14.0311 -60.8209,14.0255 -60.8227,14.0202 -60.823,14.0132 -60.8221,14.0076 -60.8201,14.0029 -60.818,13.9979 -60.8168,13.9923 -60.8154,13.9876 -60.8142,13.9821 -60.8127,13.9765 -60.8118,13.9712 -60.8101,13.9662 -60.8086,13.9606 -60.8083,13.9548 -60.808,13.9483 -60.808,13.9416 -60.8086,13.9345 -60.8089,13.9281 -60.8101,13.9219 -60.8107,13.9158 -60.8133,13.9111 -60.8154,13.9064 -60.818,13.9017 -60.8198,13.8964 -60.8206,13.8902 -60.8206,13.8832 -60.8209,13.8776 -60.8192,13.8729 -60.8201,13.8668 -60.8233,13.863 -60.8268,13.8589 -60.828,13.8527 -60.8239,13.8501 -60.8177,13.8503 -60.8157,13.8457 -60.8154,13.8392 -60.8159,13.833 -60.818,13.8278 -60.8189,13.8216 -60.8201,13.8154 -60.8201,13.8087 -60.8212,13.8025 -60.825,13.7993 -60.8262,13.7937 -60.8274,13.789 -60.8283,13.7829 -60.8289,13.7764 -60.8291,13.7694 -60.8303,13.7632 -60.8338,13.76 -60.8374,13.7568 -60.8444,13.7571 -60.8503,13.7585 -60.855,13.7568 -60.8573,13.7521 -60.8564,13.748 -60.8564,13.7439 -60.8594,13.74 -60.8626,13.7359 -60.8646,13.7312 -60.8658,13.7251 -60.8667,13.7192 -60.8673,13.7122 -60.8682,13.7028 -60.8682,13.7028 169,-4.0,Trinidad and Tobago -60.4551,11.3278 -60.4531,11.3234 -60.451,11.3187 -60.4504,11.3125 -60.451,11.3055 -60.4519,11.2993 -60.4542,11.2946 -60.4572,11.2908 -60.4595,11.2861 -60.4592,11.2811 -60.4566,11.277 -60.4551,11.2715 -60.4548,11.2653 -60.4545,11.2589 -60.4554,11.2527 -60.4572,11.2474 -60.461,11.2442 -60.4645,11.2421 -60.4695,11.2445 -60.4727,11.248 -60.4765,11.2509 -60.4804,11.2477 -60.4818,11.2424 -60.4842,11.2377 -60.4874,11.2336 -60.4921,11.2319 -60.4985,11.2327 -60.5047,11.2339 -60.5117,11.2342 -60.5167,11.2325 -60.5197,11.2283 -60.5217,11.2231 -60.5238,11.2184 -60.5276,11.2148 -60.5326,11.2134 -60.5376,11.2113 -60.5422,11.2093 -60.5466,11.2069 -60.551,11.2043 -60.5554,11.2019 -60.559,11.1984 -60.5619,11.1946 -60.5657,11.1914 -60.5695,11.1879 -60.5742,11.1864 -60.5804,11.1858 -60.5863,11.1846 -60.5924,11.1843 -60.5989,11.1838 -60.6053,11.1849 -60.6115,11.1858 -60.6176,11.187 -60.622,11.1843 -60.6264,11.1817 -60.63,11.1785 -60.6335,11.1752 -60.6373,11.172 -60.6417,11.1694 -60.6461,11.167 -60.6502,11.1644 -60.6567,11.1638 -60.6613,11.1662 -60.6663,11.1685 -60.671,11.1667 -60.6754,11.1641 -60.6795,11.1618 -60.6842,11.1591 -60.6878,11.1559 -60.6922,11.1532 -60.6951,11.1491 -60.6989,11.1462 -60.7024,11.1427 -60.7054,11.1386 -60.7083,11.1348 -60.7112,11.1307 -60.7156,11.1283 -60.7218,11.1277 -60.7274,11.1266 -60.7332,11.1268 -60.7373,11.1301 -60.7397,11.1342 -60.7432,11.1377 -60.7494,11.1365 -60.7558,11.1359 -60.7631,11.1365 -60.769,11.1374 -60.7746,11.1392 -60.7775,11.1433 -60.7784,11.1488 -60.7781,11.1559 -60.7772,11.1618 -60.774,11.1638 -60.7693,11.1618 -60.7637,11.16 -60.757,11.1597 -60.7526,11.1609 -60.7482,11.1632 -60.7455,11.167 -60.7429,11.172 -60.7408,11.1767 -60.7376,11.1808 -60.7341,11.1838 -60.7306,11.1873 -60.7268,11.1905 -60.7232,11.1937 -60.7194,11.197 -60.7144,11.1987 -60.7109,11.2022 -60.7071,11.2055 -60.7042,11.2093 -60.7004,11.2128 -60.6974,11.2166 -60.6945,11.2204 -60.6907,11.2239 -60.6866,11.2272 -60.6822,11.2298 -60.6778,11.2322 -60.6737,11.2348 -60.669,11.2371 -60.664,11.2392 -60.6599,11.2415 -60.6555,11.2442 -60.6511,11.2468 -60.647,11.2495 -60.6429,11.2518 -60.6382,11.2545 -60.6341,11.2568 -60.6308,11.2609 -60.6285,11.2659 -60.627,11.2712 -60.6244,11.2759 -60.6206,11.2782 -60.6153,11.2803 -60.6097,11.2814 -60.6041,11.2823 -60.5983,11.2835 -60.5927,11.2847 -60.5877,11.2864 -60.5827,11.2882 -60.5777,11.2902 -60.5728,11.292 -60.5678,11.2938 -60.5628,11.2955 -60.5581,11.2976 -60.5537,11.2999 -60.5484,11.302 -60.5434,11.3034 -60.539,11.3061 -60.534,11.3081 -60.5296,11.3105 -60.5241,11.3117 -60.5185,11.3128 -60.5117,11.3125 -60.5059,11.3108 -60.5035,11.3067 -60.5,11.3031 -60.4953,11.3008 -60.4894,11.302 -60.4856,11.3043 -60.483,11.309 -60.4827,11.3158 -60.4809,11.3213 -60.4774,11.3246 -60.4721,11.3263 -60.4671,11.3284 -60.4625,11.3298 -60.4566,11.331 -60.4551,11.3278 -60.4551,11.3278 147,-4.0,Grenada -61.5399,12.2128 -61.5364,12.209 -61.5347,12.2055 -61.537,12.2008 -61.5394,12.1961 -61.5379,12.1905 -61.5361,12.1859 -61.5341,12.1809 -61.5323,12.1759 -61.5297,12.1715 -61.53,12.165 -61.5297,12.1586 -61.53,12.1518 -61.532,12.1463 -61.5332,12.141 -61.5341,12.1348 -61.5347,12.1295 -61.5326,12.1242 -61.53,12.1201 -61.5273,12.116 -61.5265,12.1105 -61.5285,12.1058 -61.5338,12.1037 -61.5405,12.104 -61.5479,12.1043 -61.5514,12.1014 -61.5517,12.0943 -61.5502,12.0888 -61.5493,12.0832 -61.5487,12.0773 -61.5461,12.0729 -61.5429,12.0694 -61.5411,12.0644 -61.5446,12.0612 -61.5482,12.058 -61.5514,12.0538 -61.5537,12.0491 -61.5546,12.043 -61.5561,12.0377 -61.5584,12.033 -61.5617,12.0292 -61.5652,12.0257 -61.5687,12.0225 -61.5725,12.0192 -61.5769,12.0166 -61.5813,12.0142 -61.5875,12.0137 -61.5933,12.0125 -61.5969,12.0093 -61.6018,12.0075 -61.6065,12.0084 -61.6092,12.0037 -61.6133,12.001 -61.6197,12.0019 -61.6218,11.9972 -61.6227,11.9911 -61.6262,11.9873 -61.6288,11.9831 -61.6329,11.9846 -61.6368,11.9884 -61.6414,11.989 -61.6473,11.9887 -61.6517,11.9917 -61.6549,11.9952 -61.6608,11.994 -61.6643,11.9908 -61.6681,11.9878 -61.6725,11.9852 -61.6769,11.9826 -61.6825,11.9814 -61.6849,11.9858 -61.686,11.9911 -61.691,11.9937 -61.6951,11.9908 -61.6995,11.9884 -61.7048,11.9867 -61.7095,11.9846 -61.7136,11.9864 -61.7171,11.9896 -61.7198,11.994 -61.7154,11.9952 -61.711,11.9978 -61.7069,12.0002 -61.7025,12.0031 -61.6981,12.0054 -61.694,12.0081 -61.6893,12.0104 -61.6866,12.0145 -61.6834,12.0186 -61.679,12.021 -61.6761,12.0251 -61.6746,12.0304 -61.6749,12.0365 -61.6761,12.0421 -61.6787,12.0462 -61.6819,12.05 -61.681,12.0535 -61.681,12.0588 -61.6837,12.0629 -61.6852,12.0679 -61.6872,12.0729 -61.6854,12.0782 -61.6828,12.0823 -61.6787,12.0855 -61.6769,12.0902 -61.6749,12.0958 -61.674,12.102 -61.6731,12.1081 -61.6714,12.1134 -61.6696,12.119 -61.6676,12.1237 -61.6637,12.1269 -61.6608,12.1307 -61.6573,12.1342 -61.6546,12.1389 -61.6552,12.1451 -61.6546,12.1515 -61.6546,12.1571 -61.6517,12.1612 -61.6488,12.1653 -61.6458,12.1691 -61.6426,12.1732 -61.6397,12.1771 -61.6373,12.182 -61.6329,12.1844 -61.6285,12.187 -61.625,12.1903 -61.6227,12.1949 -61.62,12.1988 -61.6165,12.2029 -61.613,12.2064 -61.6095,12.2093 -61.6057,12.2128 -61.6007,12.2146 -61.5951,12.2158 -61.5916,12.2187 -61.5886,12.2216 -61.5831,12.2228 -61.5775,12.2225 -61.5734,12.2196 -61.5669,12.2184 -61.5608,12.2178 -61.5543,12.2181 -61.5476,12.2178 -61.542,12.2161 -61.5399,12.2128 -61.5399,12.2128 14,-4.0,Martinique -61.307,12.5165 -61.3026,12.515 -61.3,12.5109 -61.2997,12.5044 -61.3006,12.4983 -61.3038,12.4945 -61.3085,12.4924 -61.3141,12.4942 -61.3167,12.4983 -61.3158,12.5044 -61.3126,12.5085 -61.31,12.5124 -61.307,12.5165 -61.307,12.5165 124,-4.0,Saint Vincent -61.0932,13.1287 -61.0949,13.1234 -61.0979,13.1193 -61.1031,13.1175 -61.1084,13.1164 -61.1143,13.1152 -61.1204,13.1161 -61.1246,13.119 -61.1281,13.1228 -61.1328,13.1249 -61.1369,13.1278 -61.1427,13.1293 -61.1495,13.1299 -61.1536,13.1328 -61.1568,13.1363 -61.1609,13.1393 -61.1665,13.1407 -61.1735,13.141 -61.1765,13.1454 -61.1779,13.1501 -61.1809,13.1545 -61.1832,13.1589 -61.1882,13.161 -61.1929,13.1633 -61.1955,13.1674 -61.197,13.173 -61.1985,13.1777 -61.2011,13.1821 -61.2046,13.1859 -61.2087,13.1885 -61.2114,13.1926 -61.2102,13.1988 -61.209,13.205 -61.2082,13.2111 -61.2073,13.2173 -61.2079,13.2234 -61.2082,13.2296 -61.2079,13.2352 -61.2049,13.239 -61.202,13.2431 -61.1994,13.2478 -61.1973,13.2525 -61.1955,13.2581 -61.1961,13.2642 -61.1958,13.2707 -61.1909,13.2727 -61.185,13.2724 -61.1788,13.273 -61.1744,13.2754 -61.1712,13.2795 -61.1683,13.2833 -61.1668,13.2889 -61.1645,13.2936 -61.1627,13.2988 -61.1606,13.3044 -61.1589,13.3091 -61.1557,13.3129 -61.1533,13.3176 -61.1515,13.3229 -61.1507,13.3291 -61.1486,13.3337 -61.1466,13.3393 -61.1439,13.3434 -61.1413,13.3481 -61.1389,13.3528 -61.1351,13.3557 -61.1304,13.3578 -61.126,13.3601 -61.1216,13.3628 -61.1166,13.3645 -61.1125,13.3672 -61.1072,13.3692 -61.1026,13.3681 -61.0982,13.3651 -61.0943,13.3622 -61.0879,13.3613 -61.0823,13.361 -61.0773,13.3631 -61.0738,13.3634 -61.0712,13.359 -61.0694,13.3543 -61.0674,13.3493 -61.0668,13.3434 -61.0662,13.3379 -61.0641,13.3329 -61.0606,13.3293 -61.058,13.3249 -61.0556,13.3208 -61.0536,13.3161 -61.0521,13.3106 -61.0518,13.3041 -61.0509,13.2988 -61.0503,13.2924 -61.0509,13.2856 -61.0509,13.2789 -61.0518,13.2727 -61.0521,13.2657 -61.0533,13.2595 -61.0539,13.2531 -61.0539,13.246 -61.0536,13.2399 -61.0533,13.2337 -61.0542,13.2278 -61.0562,13.2223 -61.0568,13.2161 -61.0583,13.2108 -61.06,13.2053 -61.0624,13.2006 -61.0641,13.1953 -61.0659,13.1897 -61.0679,13.185 -61.07,13.1797 -61.0718,13.1745 -61.0729,13.1689 -61.0747,13.1636 -61.0764,13.158 -61.0779,13.1527 -61.0776,13.1466 -61.0803,13.1419 -61.085,13.1398 -61.0894,13.1375 -61.0917,13.1328 -61.0932,13.1287 -61.0932,13.1287 153,-4.0,Barbados -59.4348,13.0419 -59.4401,13.0398 -59.4457,13.0389 -59.4513,13.0378 -59.4571,13.0366 -59.463,13.0354 -59.4671,13.0386 -59.4695,13.0427 -59.4712,13.0477 -59.4733,13.0524 -59.4774,13.0556 -59.4835,13.0565 -59.4891,13.058 -59.4947,13.0598 -59.5011,13.0609 -59.5076,13.0615 -59.514,13.0621 -59.5205,13.063 -59.5269,13.0642 -59.5334,13.065 -59.5378,13.0674 -59.5413,13.0709 -59.5425,13.0765 -59.5457,13.08 -59.5504,13.0823 -59.5554,13.0847 -59.5586,13.0882 -59.5592,13.0944 -59.5595,13.1005 -59.5604,13.1061 -59.5633,13.1102 -59.5657,13.1146 -59.5683,13.1187 -59.5704,13.1237 -59.5721,13.1287 -59.5733,13.134 -59.5736,13.1401 -59.5724,13.1463 -59.5707,13.1519 -59.5704,13.1586 -59.5707,13.1651 -59.5712,13.1709 -59.5718,13.1771 -59.5727,13.1827 -59.5733,13.1888 -59.5751,13.1938 -59.5759,13.1994 -59.5774,13.205 -59.5783,13.2105 -59.5789,13.2167 -59.5786,13.2234 -59.578,13.2302 -59.5795,13.2358 -59.5803,13.2413 -59.5821,13.2463 -59.5827,13.2525 -59.583,13.2586 -59.585,13.2636 -59.5877,13.2677 -59.5894,13.2727 -59.5891,13.278 -59.5883,13.2842 -59.5862,13.2897 -59.5847,13.295 -59.583,13.3006 -59.5809,13.3053 -59.5777,13.3091 -59.5748,13.3129 -59.571,13.3164 -59.566,13.3179 -59.561,13.32 -59.5551,13.3211 -59.5495,13.3223 -59.5425,13.322 -59.5369,13.3203 -59.5316,13.3185 -59.5258,13.317 -59.5211,13.3147 -59.5184,13.3103 -59.5167,13.3056 -59.5137,13.3015 -59.5117,13.2968 -59.5088,13.2927 -59.5061,13.2886 -59.5035,13.2842 -59.5017,13.2795 -59.4994,13.2754 -59.4979,13.2698 -59.4961,13.2648 -59.4953,13.2592 -59.4932,13.2542 -59.4915,13.2493 -59.4894,13.2443 -59.4868,13.2402 -59.4844,13.2361 -59.4815,13.232 -59.4783,13.2281 -59.475,13.2246 -59.4709,13.2211 -59.4668,13.2179 -59.4645,13.2138 -59.4609,13.2102 -59.4574,13.2067 -59.4545,13.2029 -59.451,13.1994 -59.4469,13.1968 -59.443,13.1935 -59.4381,13.1915 -59.434,13.1882 -59.4298,13.1856 -59.4257,13.1824 -59.4216,13.1797 -59.4178,13.1765 -59.4134,13.1736 -59.4093,13.1706 -59.4046,13.1686 -59.3999,13.1659 -59.3935,13.1654 -59.3879,13.1636 -59.3832,13.1613 -59.3776,13.1598 -59.3721,13.158 -59.3674,13.1557 -59.3633,13.1527 -59.3591,13.1498 -59.3583,13.1442 -59.3568,13.139 -59.3571,13.1319 -59.3583,13.1258 -59.3603,13.1202 -59.3624,13.1158 -59.3647,13.1111 -59.3668,13.1064 -59.3694,13.1017 -59.3723,13.0976 -59.3747,13.0929 -59.3779,13.0891 -59.3803,13.0844 -59.3838,13.0812 -59.3867,13.0771 -59.3905,13.0738 -59.3944,13.0706 -59.3988,13.068 -59.4026,13.065 -59.4067,13.0624 -59.4102,13.0592 -59.4152,13.0571 -59.4208,13.0562 -59.4269,13.0554 -59.4296,13.051 -59.4298,13.0445 -59.4348,13.0419 -59.4348,13.0419 741,-3.0,Bermuda -64.7874,32.2818 -64.7883,32.2806 -64.7891,32.2806 -64.79,32.2815 -64.7909,32.2815 -64.7912,32.2809 -64.79,32.2797 -64.7909,32.2792 -64.7918,32.2792 -64.7927,32.28 -64.7932,32.2797 -64.7932,32.2783 -64.7941,32.2774 -64.795,32.2774 -64.7962,32.2765 -64.7982,32.2765 -64.7985,32.2748 -64.7991,32.2739 -64.7994,32.2724 -64.8009,32.2707 -64.8012,32.2683 -64.8003,32.268 -64.7991,32.2674 -64.8,32.2665 -64.8,32.2663 -64.7994,32.2657 -64.7991,32.2648 -64.8003,32.2639 -64.8018,32.2639 -64.8035,32.2624 -64.8041,32.2624 -64.8053,32.2616 -64.8062,32.2616 -64.8059,32.2607 -64.805,32.2607 -64.8044,32.2601 -64.8023,32.2598 -64.8018,32.2589 -64.7982,32.2589 -64.7974,32.2583 -64.7956,32.258 -64.7935,32.2557 -64.7924,32.2554 -64.7918,32.2563 -64.7891,32.2566 -64.7883,32.2575 -64.7833,32.2575 -64.7824,32.2566 -64.7798,32.2566 -64.7783,32.2548 -64.78,32.2531 -64.7818,32.2533 -64.7827,32.2525 -64.7833,32.2525 -64.7844,32.2531 -64.7842,32.2522 -64.7853,32.2516 -64.7856,32.2516 -64.7859,32.2522 -64.7874,32.2525 -64.7883,32.2531 -64.7888,32.2533 -64.7906,32.2533 -64.7912,32.2533 -64.7918,32.2539 -64.7932,32.2542 -64.7944,32.2533 -64.7953,32.2539 -64.7959,32.2536 -64.7959,32.2533 -64.7956,32.2531 -64.7944,32.2519 -64.7944,32.2513 -64.795,32.2507 -64.795,32.2498 -64.7944,32.2489 -64.7941,32.2487 -64.7941,32.2481 -64.795,32.2472 -64.795,32.246 -64.7959,32.2445 -64.7959,32.2443 -64.795,32.244 -64.7941,32.2431 -64.7941,32.2416 -64.7932,32.2413 -64.7927,32.2407 -64.7918,32.2407 -64.7906,32.2407 -64.7897,32.2416 -64.7891,32.2416 -64.7886,32.241 -64.7886,32.2384 -64.7874,32.2381 -64.7874,32.239 -64.7868,32.2399 -64.7859,32.2401 -64.785,32.239 -64.7842,32.239 -64.7836,32.2384 -64.7824,32.2381 -64.7824,32.239 -64.7818,32.2399 -64.7809,32.2399 -64.7806,32.2399 -64.7798,32.2393 -64.7795,32.2396 -64.7789,32.2396 -64.7786,32.2393 -64.778,32.2393 -64.7777,32.2399 -64.7771,32.2396 -64.7765,32.239 -64.7748,32.239 -64.7742,32.2399 -64.7715,32.2399 -64.7701,32.2416 -64.7695,32.2413 -64.7683,32.2399 -64.7657,32.2399 -64.7648,32.2407 -64.761,32.2407 -64.761,32.2416 -64.7622,32.2419 -64.7627,32.2425 -64.7627,32.2431 -64.7633,32.2437 -64.7639,32.2443 -64.7639,32.2445 -64.7627,32.2454 -64.7613,32.246 -64.7616,32.2466 -64.7627,32.2469 -64.7633,32.2472 -64.7633,32.2478 -64.7619,32.2489 -64.7616,32.2498 -64.7624,32.251 -64.7613,32.2522 -64.7607,32.2525 -64.7601,32.2525 -64.7592,32.2531 -64.7583,32.2525 -64.7539,32.2525 -64.7531,32.2533 -64.7516,32.2533 -64.751,32.2542 -64.7498,32.2542 -64.749,32.2548 -64.7475,32.2548 -64.7466,32.2557 -64.7448,32.2557 -64.7443,32.2566 -64.7443,32.2575 -64.7434,32.2583 -64.739,32.2583 -64.7384,32.2589 -64.7366,32.2592 -64.7357,32.2601 -64.7349,32.2601 -64.7343,32.2607 -64.7337,32.2607 -64.7293,32.2648 -64.7287,32.2648 -64.7275,32.2657 -64.7243,32.2657 -64.7243,32.2665 -64.7252,32.2674 -64.7252,32.2683 -64.7243,32.2692 -64.7234,32.2689 -64.7228,32.2683 -64.7217,32.2689 -64.7211,32.2683 -64.7202,32.2683 -64.7193,32.2689 -64.717,32.2689 -64.7164,32.2698 -64.7143,32.2698 -64.7143,32.2707 -64.7137,32.2715 -64.7126,32.2724 -64.712,32.2724 -64.7111,32.2715 -64.7108,32.2715 -64.7102,32.2715 -64.7091,32.2727 -64.7099,32.2742 -64.7099,32.2745 -64.7093,32.2748 -64.7052,32.2748 -64.7041,32.2756 -64.7035,32.2756 -64.7032,32.2765 -64.7067,32.2765 -64.7076,32.2756 -64.7108,32.2759 -64.712,32.2751 -64.717,32.2751 -64.7176,32.2742 -64.7202,32.2742 -64.7211,32.2733 -64.7249,32.2733 -64.7267,32.2748 -64.7267,32.2742 -64.7275,32.2733 -64.7299,32.2756 -64.7305,32.2756 -64.7316,32.2765 -64.7331,32.2768 -64.7331,32.2756 -64.734,32.2748 -64.7349,32.2751 -64.7357,32.2742 -64.7372,32.2742 -64.7381,32.2745 -64.7387,32.2756 -64.7387,32.2786 -64.7369,32.2792 -64.7363,32.2797 -64.7372,32.28 -64.7393,32.2812 -64.7393,32.2833 -64.7399,32.2833 -64.7407,32.2839 -64.7407,32.2847 -64.7413,32.2847 -64.7416,32.2841 -64.7434,32.2824 -64.7454,32.2821 -64.746,32.2824 -64.7463,32.283 -64.7466,32.2836 -64.746,32.2841 -64.7451,32.2841 -64.7448,32.2856 -64.7478,32.2856 -64.7484,32.2856 -64.749,32.2865 -64.7498,32.2865 -64.7504,32.2871 -64.751,32.2877 -64.7501,32.2883 -64.7495,32.2883 -64.7492,32.2897 -64.7501,32.2906 -64.7484,32.2924 -64.7466,32.2924 -64.7457,32.2915 -64.7448,32.2924 -64.7445,32.2924 -64.744,32.2924 -64.7437,32.2918 -64.7431,32.2915 -64.7425,32.2915 -64.7416,32.2924 -64.741,32.2924 -64.7363,32.2924 -64.7357,32.2915 -64.7346,32.2915 -64.7331,32.2909 -64.7322,32.2906 -64.7269,32.2909 -64.7264,32.2903 -64.7258,32.29 -64.722,32.2897 -64.7208,32.2906 -64.7167,32.2909 -64.7164,32.2915 -64.7161,32.2918 -64.7155,32.2915 -64.7143,32.2909 -64.7135,32.2915 -64.7129,32.2918 -64.7123,32.2915 -64.7123,32.2909 -64.712,32.2909 -64.7111,32.2915 -64.7076,32.2915 -64.7067,32.2924 -64.7026,32.2924 -64.702,32.2932 -64.7003,32.2932 -64.6994,32.2941 -64.6985,32.2941 -64.6976,32.2932 -64.6967,32.2941 -64.6961,32.2941 -64.695,32.295 -64.6941,32.295 -64.6935,32.2959 -64.6917,32.2956 -64.6912,32.2965 -64.6894,32.2965 -64.6885,32.2973 -64.6879,32.2973 -64.6873,32.2976 -64.6859,32.2982 -64.6856,32.2988 -64.6853,32.2988 -64.6844,32.2988 -64.6829,32.3003 -64.6821,32.3006 -64.6812,32.3015 -64.6806,32.3015 -64.6797,32.302 -64.6785,32.3023 -64.6759,32.3047 -64.6759,32.3059 -64.675,32.3067 -64.6741,32.3064 -64.6741,32.3079 -64.6747,32.3085 -64.675,32.3094 -64.675,32.3097 -64.6741,32.3108 -64.6741,32.3114 -64.6718,32.3141 -64.6715,32.3158 -64.6724,32.3158 -64.6736,32.315 -64.6741,32.3155 -64.6741,32.3167 -64.6727,32.3179 -64.6727,32.3185 -64.6727,32.3191 -64.6718,32.3211 -64.6718,32.3232 -64.6709,32.324 -64.67,32.324 -64.67,32.3246 -64.6692,32.3255 -64.6692,32.3273 -64.6674,32.329 -64.6668,32.329 -64.6659,32.3299 -64.6627,32.3299 -64.6609,32.3314 -64.6595,32.3317 -64.6583,32.3323 -64.6577,32.3323 -64.6565,32.3331 -64.656,32.3331 -64.6548,32.334 -64.6548,32.3343 -64.6557,32.3358 -64.6557,32.3361 -64.6551,32.3364 -64.6545,32.3364 -64.6539,32.3372 -64.6524,32.3375 -64.651,32.3387 -64.651,32.3399 -64.6492,32.3416 -64.6483,32.3414 -64.6477,32.3408 -64.6474,32.3402 -64.6474,32.3396 -64.6466,32.3399 -64.6457,32.339 -64.6448,32.339 -64.6442,32.3384 -64.6422,32.3381 -64.6413,32.3372 -64.6404,32.3372 -64.6389,32.3358 -64.6398,32.3352 -64.6398,32.334 -64.6366,32.3308 -64.6375,32.3299 -64.6392,32.3296 -64.6392,32.329 -64.6384,32.329 -64.6366,32.3276 -64.6366,32.3264 -64.6331,32.3267 -64.6325,32.3258 -64.6316,32.3258 -64.6307,32.3249 -64.6298,32.3249 -64.6296,32.3243 -64.6281,32.324 -64.6275,32.3232 -64.6263,32.3232 -64.6257,32.3226 -64.6249,32.3223 -64.6243,32.3232 -64.6237,32.3235 -64.6228,32.3229 -64.6219,32.3211 -64.6216,32.3191 -64.619,32.3191 -64.6181,32.3199 -64.6164,32.3199 -64.6158,32.3208 -64.6152,32.3208 -64.6146,32.3205 -64.614,32.3199 -64.6111,32.3196 -64.6105,32.3199 -64.6099,32.3217 -64.6084,32.3232 -64.6076,32.3232 -64.6067,32.324 -64.6058,32.324 -64.6049,32.3232 -64.6049,32.3223 -64.6058,32.3217 -64.6067,32.3214 -64.6067,32.3199 -64.6076,32.3188 -64.6084,32.3191 -64.609,32.3182 -64.6108,32.3182 -64.612,32.3173 -64.6131,32.3176 -64.6143,32.3167 -64.6152,32.3164 -64.6169,32.315 -64.6193,32.315 -64.6202,32.3141 -64.6219,32.3141 -64.6225,32.3135 -64.6228,32.3132 -64.6234,32.3132 -64.624,32.3135 -64.6252,32.3123 -64.6269,32.3126 -64.6275,32.3114 -64.6296,32.3114 -64.6298,32.3108 -64.6307,32.3108 -64.6316,32.3097 -64.6325,32.31 -64.6342,32.3082 -64.6348,32.3082 -64.636,32.3073 -64.6366,32.3073 -64.6375,32.3067 -64.6381,32.3067 -64.6407,32.3041 -64.6416,32.3041 -64.6433,32.3026 -64.6433,32.3015 -64.6448,32.3 -64.6451,32.2988 -64.6469,32.2973 -64.6501,32.2973 -64.6507,32.2968 -64.6516,32.2965 -64.6521,32.2959 -64.6536,32.2956 -64.6533,32.2947 -64.6551,32.2932 -64.656,32.2932 -64.6574,32.2915 -64.6601,32.2918 -64.6609,32.2909 -64.6624,32.2906 -64.6633,32.29 -64.6645,32.2897 -64.6651,32.2888 -64.6656,32.2891 -64.6677,32.2874 -64.6677,32.2865 -64.6692,32.2847 -64.6709,32.2847 -64.6715,32.2856 -64.6724,32.2859 -64.6733,32.2853 -64.6733,32.2833 -64.6741,32.2824 -64.6744,32.2824 -64.6753,32.2827 -64.6759,32.2833 -64.6759,32.2815 -64.6765,32.2806 -64.6777,32.2806 -64.6783,32.28 -64.6803,32.28 -64.6815,32.2783 -64.6827,32.2783 -64.6844,32.2765 -64.6844,32.2756 -64.6859,32.2742 -64.6876,32.2742 -64.6897,32.2718 -64.6903,32.2715 -64.6923,32.2727 -64.6923,32.2715 -64.692,32.2707 -64.6917,32.2698 -64.6932,32.2683 -64.6941,32.2683 -64.695,32.2674 -64.6959,32.2674 -64.6976,32.2657 -64.6985,32.2657 -64.6991,32.2651 -64.6994,32.2639 -64.7,32.2633 -64.7003,32.2624 -64.7032,32.2589 -64.7044,32.2589 -64.7049,32.2583 -64.7049,32.2575 -64.7067,32.2557 -64.7076,32.2557 -64.7085,32.2551 -64.7093,32.2548 -64.7102,32.2539 -64.7111,32.2539 -64.7117,32.2533 -64.7135,32.2533 -64.7143,32.2522 -64.7152,32.2525 -64.7158,32.2516 -64.7176,32.2516 -64.7184,32.2507 -64.7202,32.2507 -64.7208,32.2498 -64.722,32.2498 -64.7225,32.2492 -64.7246,32.2489 -64.7246,32.2487 -64.7252,32.2484 -64.7258,32.2481 -64.7264,32.2475 -64.7278,32.2472 -64.7281,32.2466 -64.7296,32.2463 -64.7296,32.246 -64.7313,32.2451 -64.7325,32.2448 -64.734,32.2448 -64.7346,32.2443 -64.7352,32.244 -64.736,32.244 -64.7372,32.2425 -64.7381,32.2425 -64.739,32.2416 -64.7399,32.2416 -64.7399,32.2407 -64.7401,32.2401 -64.7413,32.2399 -64.7416,32.2396 -64.7428,32.239 -64.7437,32.2393 -64.7443,32.239 -64.7448,32.2384 -64.746,32.2381 -64.7463,32.2378 -64.7472,32.2375 -64.7478,32.2369 -64.7498,32.2363 -64.7513,32.2357 -64.7525,32.2349 -64.7525,32.2346 -64.7531,32.2334 -64.7545,32.2322 -64.7548,32.2322 -64.756,32.2325 -64.7563,32.2331 -64.7569,32.2334 -64.7583,32.2334 -64.7589,32.2325 -64.7607,32.2322 -64.7607,32.2313 -64.7624,32.2299 -64.7633,32.2308 -64.7639,32.2308 -64.7648,32.2299 -64.7666,32.2299 -64.7668,32.2302 -64.7674,32.2311 -64.768,32.2311 -64.7683,32.2308 -64.7698,32.2308 -64.7707,32.2316 -64.7771,32.2313 -64.7783,32.2322 -64.7803,32.2325 -64.7815,32.2313 -64.7856,32.2316 -64.7868,32.2308 -64.7915,32.2305 -64.7921,32.2313 -64.793,32.2313 -64.7938,32.2322 -64.7947,32.2325 -64.7956,32.2331 -64.7965,32.2331 -64.7968,32.2337 -64.7974,32.234 -64.7991,32.234 -64.7997,32.2346 -64.8003,32.2349 -64.8018,32.2355 -64.8026,32.2355 -64.81,32.2431 -64.81,32.2448 -64.8108,32.2454 -64.8108,32.2469 -64.8117,32.2481 -64.8114,32.2504 -64.8126,32.2516 -64.8126,32.2522 -64.8135,32.2533 -64.8135,32.2548 -64.8141,32.2557 -64.8141,32.2563 -64.815,32.2572 -64.815,32.2589 -64.8161,32.2601 -64.8164,32.2621 -64.8179,32.2633 -64.8185,32.2645 -64.8176,32.2657 -64.8182,32.2663 -64.8182,32.2668 -64.8161,32.2689 -64.815,32.2689 -64.8141,32.2692 -64.8135,32.2698 -64.8129,32.2701 -64.8126,32.2698 -64.812,32.2695 -64.812,32.2686 -64.8123,32.268 -64.8126,32.2674 -64.8141,32.2668 -64.815,32.2665 -64.815,32.266 -64.8144,32.266 -64.8135,32.2651 -64.8135,32.2616 -64.8126,32.2607 -64.8126,32.2621 -64.8117,32.2633 -64.8111,32.2624 -64.8108,32.2619 -64.81,32.2621 -64.8094,32.2616 -64.8067,32.2639 -64.8067,32.2645 -64.8076,32.2648 -64.8091,32.2633 -64.8097,32.263 -64.8106,32.2636 -64.8108,32.2639 -64.8108,32.2645 -64.8103,32.2657 -64.8103,32.2665 -64.8076,32.2689 -64.8082,32.2698 -64.8079,32.2704 -64.8073,32.2707 -64.8067,32.2715 -64.8067,32.2718 -64.8067,32.2724 -64.8076,32.2727 -64.8082,32.2739 -64.8082,32.2748 -64.8076,32.2756 -64.8076,32.2765 -64.8085,32.2771 -64.8085,32.278 -64.8076,32.2792 -64.8076,32.2797 -64.8085,32.2806 -64.8091,32.2815 -64.8091,32.2824 -64.8103,32.283 -64.81,32.2847 -64.8108,32.2856 -64.8108,32.2865 -64.8111,32.2868 -64.8114,32.2868 -64.8135,32.2891 -64.8117,32.2909 -64.81,32.2906 -64.8094,32.29 -64.8094,32.2891 -64.8085,32.2888 -64.8076,32.2883 -64.8041,32.2883 -64.8018,32.2906 -64.8018,32.2915 -64.8026,32.2924 -64.8018,32.2932 -64.8012,32.2932 -64.8003,32.2941 -64.7988,32.2938 -64.7976,32.2947 -64.7959,32.295 -64.795,32.2944 -64.7953,32.2938 -64.7959,32.2932 -64.7971,32.2932 -64.7974,32.2927 -64.7982,32.2924 -64.7985,32.2918 -64.7968,32.2897 -64.7968,32.2883 -64.7962,32.288 -64.795,32.2883 -64.7941,32.2891 -64.7935,32.2891 -64.7924,32.2897 -64.7918,32.29 -64.7912,32.2894 -64.7909,32.2883 -64.79,32.2874 -64.79,32.2871 -64.7903,32.2868 -64.7906,32.2868 -64.7909,32.2865 -64.7909,32.2862 -64.7909,32.2859 -64.7909,32.2856 -64.7912,32.2853 -64.7915,32.285 -64.7915,32.2847 -64.7915,32.2844 -64.7915,32.2841 -64.7915,32.2839 -64.7912,32.2836 -64.7909,32.2833 -64.7906,32.283 -64.7903,32.283 -64.79,32.283 -64.7897,32.283 -64.7894,32.2833 -64.7891,32.283 -64.7886,32.2827 -64.7883,32.2827 -64.788,32.2824 -64.788,32.2821 -64.7877,32.2821 -64.7874,32.2818 -64.7874,32.2818 198,-3.0,Bermuda -64.5773,32.3513 -64.5782,32.3519 -64.5782,32.3528 -64.5782,32.3534 -64.5791,32.354 -64.58,32.354 -64.58,32.3551 -64.5791,32.3557 -64.58,32.3566 -64.5867,32.3566 -64.5882,32.3551 -64.5882,32.354 -64.5891,32.3531 -64.5882,32.3519 -64.5876,32.3516 -64.5867,32.3522 -64.5853,32.3525 -64.5841,32.3534 -64.5823,32.3531 -64.5823,32.3525 -64.5832,32.3525 -64.5841,32.3516 -64.5856,32.3516 -64.5864,32.3507 -64.5891,32.351 -64.5905,32.349 -64.5905,32.3481 -64.5914,32.3484 -64.5923,32.349 -64.5929,32.349 -64.5935,32.3496 -64.5941,32.3499 -64.5958,32.3499 -64.5958,32.3507 -64.5952,32.3507 -64.5944,32.3516 -64.5949,32.3522 -64.5952,32.354 -64.5941,32.3534 -64.5908,32.3531 -64.5891,32.3548 -64.59,32.3557 -64.5917,32.3557 -64.592,32.3563 -64.5935,32.3572 -64.5958,32.3575 -64.5964,32.3584 -64.5976,32.3584 -64.5982,32.359 -64.599,32.359 -64.5999,32.3584 -64.6002,32.359 -64.6005,32.359 -64.602,32.359 -64.6026,32.3581 -64.6026,32.3572 -64.5996,32.3548 -64.599,32.3548 -64.5979,32.354 -64.5973,32.354 -64.5973,32.3531 -64.5979,32.3531 -64.599,32.3531 -64.6002,32.354 -64.6014,32.3546 -64.6017,32.3548 -64.6046,32.3548 -64.6049,32.3557 -64.6076,32.3557 -64.6084,32.3548 -64.6093,32.3548 -64.6102,32.3557 -64.6134,32.3557 -64.6143,32.3566 -64.6166,32.3566 -64.6184,32.3548 -64.6193,32.3548 -64.6202,32.354 -64.621,32.354 -64.6216,32.3548 -64.6228,32.3548 -64.6234,32.354 -64.6243,32.354 -64.6252,32.3534 -64.626,32.3531 -64.6266,32.3525 -64.6275,32.3525 -64.6284,32.3516 -64.6293,32.3516 -64.6298,32.3507 -64.6322,32.3507 -64.6325,32.3499 -64.6342,32.3499 -64.6351,32.349 -64.636,32.349 -64.6369,32.3481 -64.6375,32.3481 -64.6384,32.3478 -64.6392,32.3463 -64.6392,32.3458 -64.6384,32.3443 -64.6381,32.3428 -64.6375,32.3422 -64.636,32.3419 -64.6357,32.3414 -64.6322,32.3416 -64.6316,32.3422 -64.6316,32.3431 -64.6304,32.3443 -64.6301,32.3449 -64.6293,32.3449 -64.6287,32.3458 -64.6269,32.3458 -64.6257,32.3466 -64.6252,32.3466 -64.6243,32.3475 -64.621,32.3475 -64.6202,32.3466 -64.6199,32.3449 -64.619,32.3443 -64.6193,32.339 -64.6187,32.3381 -64.6184,32.3372 -64.6175,32.3364 -64.6158,32.3364 -64.6143,32.3381 -64.614,32.3408 -64.6131,32.3414 -64.6134,32.3422 -64.6143,32.3431 -64.6143,32.3458 -64.6134,32.3466 -64.6102,32.3466 -64.6093,32.3458 -64.6049,32.3458 -64.6043,32.3449 -64.6034,32.3449 -64.6026,32.344 -64.6017,32.344 -64.6011,32.3431 -64.5999,32.3425 -64.5976,32.3425 -64.5967,32.3416 -64.5961,32.3408 -64.5958,32.339 -64.5949,32.3384 -64.5941,32.3381 -64.5935,32.3375 -64.5935,32.3367 -64.5926,32.3358 -64.5926,32.3349 -64.5917,32.3343 -64.5914,32.3323 -64.5908,32.3317 -64.5897,32.332 -64.5888,32.3326 -64.5882,32.3323 -64.5882,32.3314 -64.5891,32.3308 -64.5891,32.3305 -64.5885,32.3299 -64.5867,32.3299 -64.5858,32.3308 -64.585,32.3308 -64.585,32.3299 -64.5841,32.329 -64.5832,32.329 -64.5826,32.3299 -64.5823,32.3314 -64.5853,32.3343 -64.5861,32.3346 -64.5867,32.3349 -64.5864,32.3358 -64.5858,32.3364 -64.5856,32.3381 -64.5867,32.339 -64.5882,32.339 -64.59,32.3408 -64.59,32.344 -64.5894,32.3446 -64.5891,32.3449 -64.5882,32.344 -64.5867,32.344 -64.5858,32.3449 -64.5844,32.3449 -64.5841,32.344 -64.5832,32.3431 -64.5823,32.3431 -64.5817,32.344 -64.5817,32.3449 -64.5809,32.3455 -64.5809,32.3466 -64.58,32.3472 -64.58,32.3499 -64.5791,32.3507 -64.5785,32.3504 -64.5773,32.3513 -64.5773,32.3513 116,-3.0,Bermuda -64.5941,32.3648 -64.5958,32.3666 -64.5967,32.3657 -64.5967,32.3669 -64.6005,32.3707 -64.6017,32.3713 -64.6026,32.3716 -64.6037,32.373 -64.604,32.3748 -64.6049,32.3757 -64.6067,32.3757 -64.6076,32.3748 -64.609,32.3748 -64.6102,32.3748 -64.6149,32.3698 -64.6161,32.3698 -64.6202,32.3657 -64.621,32.3657 -64.6216,32.3648 -64.6228,32.3648 -64.6234,32.3639 -64.6243,32.3639 -64.6249,32.3634 -64.626,32.3631 -64.6278,32.3616 -64.6284,32.3616 -64.629,32.3613 -64.6293,32.3607 -64.6301,32.3607 -64.6316,32.3592 -64.6325,32.359 -64.6342,32.3575 -64.6351,32.3572 -64.6357,32.3566 -64.6369,32.3563 -64.6375,32.3557 -64.6386,32.3557 -64.6392,32.3548 -64.6401,32.3548 -64.641,32.354 -64.6419,32.354 -64.6425,32.3531 -64.6436,32.3531 -64.6469,32.3499 -64.6466,32.3496 -64.6451,32.3481 -64.6472,32.3478 -64.6474,32.3472 -64.6477,32.3463 -64.6483,32.3458 -64.6474,32.3449 -64.6466,32.3449 -64.646,32.3455 -64.6454,32.3458 -64.6448,32.3458 -64.6442,32.3449 -64.6433,32.3458 -64.6433,32.3463 -64.6416,32.3472 -64.6419,32.349 -64.6398,32.349 -64.6389,32.3499 -64.6381,32.349 -64.6372,32.349 -64.6369,32.3496 -64.6366,32.3507 -64.6357,32.3507 -64.6348,32.3516 -64.6328,32.3519 -64.6325,32.3522 -64.6304,32.3525 -64.6298,32.3534 -64.6293,32.3531 -64.6287,32.3531 -64.6278,32.3537 -64.6266,32.3548 -64.626,32.3543 -64.6252,32.3548 -64.6243,32.3548 -64.6234,32.3557 -64.6225,32.3557 -64.6216,32.3566 -64.621,32.3566 -64.6199,32.3557 -64.619,32.3557 -64.6181,32.3566 -64.6181,32.3572 -64.619,32.3581 -64.6249,32.3581 -64.6254,32.3587 -64.6257,32.3592 -64.6257,32.3604 -64.6246,32.3607 -64.6234,32.3598 -64.6216,32.3598 -64.621,32.359 -64.6184,32.359 -64.6172,32.3601 -64.6166,32.3607 -64.6149,32.3607 -64.6143,32.3616 -64.6128,32.3616 -64.6117,32.3625 -64.6099,32.3625 -64.6093,32.3631 -64.6067,32.3631 -64.6052,32.3651 -64.6046,32.3651 -64.6032,32.3642 -64.6023,32.3639 -64.6017,32.3634 -64.6005,32.3631 -64.5993,32.3616 -64.5976,32.3616 -64.5941,32.3648 -64.5941,32.3648 81,-3.0,Bermuda -64.7642,32.3132 -64.7642,32.3144 -64.7636,32.3152 -64.7639,32.3158 -64.7645,32.3158 -64.7651,32.3158 -64.7674,32.3132 -64.7677,32.312 -64.7686,32.3114 -64.7686,32.3097 -64.7692,32.3091 -64.7692,32.3082 -64.7701,32.3082 -64.7736,32.3047 -64.7736,32.3038 -64.7745,32.3038 -64.7754,32.3032 -64.7759,32.3032 -64.7768,32.3023 -64.7777,32.3023 -64.7786,32.3015 -64.7786,32.3006 -64.78,32.2991 -64.78,32.2982 -64.7803,32.2976 -64.7809,32.2973 -64.7827,32.2971 -64.7833,32.2968 -64.7839,32.2953 -64.785,32.2941 -64.7862,32.2938 -64.79,32.29 -64.79,32.2894 -64.79,32.2888 -64.7891,32.2883 -64.7877,32.2883 -64.7859,32.29 -64.7859,32.2906 -64.7847,32.2897 -64.7833,32.29 -64.7824,32.2909 -64.7818,32.2909 -64.78,32.2924 -64.7809,32.2932 -64.7818,32.2935 -64.78,32.295 -64.78,32.2959 -64.7792,32.2959 -64.7783,32.295 -64.7765,32.295 -64.7759,32.2956 -64.7742,32.2959 -64.7733,32.2956 -64.7724,32.2959 -64.7721,32.2962 -64.7715,32.2971 -64.7715,32.2973 -64.7724,32.2982 -64.7724,32.3009 -64.7718,32.3015 -64.7718,32.3023 -64.7701,32.3041 -64.7689,32.3044 -64.7683,32.305 -64.7674,32.305 -64.7666,32.3059 -64.7654,32.3061 -64.7648,32.3067 -64.7642,32.3073 -64.7642,32.3079 -64.7642,32.3082 -64.7648,32.3091 -64.7648,32.3097 -64.7645,32.31 -64.763,32.31 -64.7607,32.3123 -64.7607,32.3126 -64.761,32.3135 -64.7624,32.315 -64.7642,32.3132 -64.7642,32.3132 22,-3.0,Bermuda -64.7586,32.2718 -64.7586,32.2727 -64.7595,32.2733 -64.7604,32.2736 -64.7613,32.2742 -64.7624,32.2742 -64.7636,32.273 -64.7627,32.2721 -64.7633,32.2715 -64.7624,32.2707 -64.7607,32.2707 -64.7607,32.2698 -64.7619,32.2689 -64.7619,32.268 -64.761,32.2674 -64.7589,32.2674 -64.7566,32.2698 -64.7569,32.2707 -64.7575,32.2718 -64.7577,32.2721 -64.7586,32.2718 -64.7586,32.2718 20,-3.0,Bermuda -64.7366,32.2692 -64.7369,32.2686 -64.7369,32.2668 -64.7355,32.2657 -64.7346,32.2645 -64.7334,32.2633 -64.7322,32.263 -64.7316,32.2642 -64.7313,32.2657 -64.7308,32.266 -64.7299,32.2665 -64.7299,32.2671 -64.7305,32.268 -64.7316,32.2692 -64.7325,32.2692 -64.7331,32.2683 -64.7343,32.2683 -64.7355,32.2683 -64.7366,32.2692 -64.7366,32.2692 22,-3.0,Bermuda -64.7551,32.2575 -64.7545,32.2566 -64.7542,32.2566 -64.7525,32.2566 -64.7519,32.2572 -64.7507,32.2575 -64.7504,32.2575 -64.7498,32.2583 -64.7492,32.2589 -64.7478,32.2583 -64.7469,32.2586 -64.7466,32.2589 -64.7466,32.2598 -64.7475,32.2607 -64.7487,32.2616 -64.7492,32.2616 -64.7501,32.2607 -64.751,32.2607 -64.7516,32.2598 -64.7528,32.2598 -64.7551,32.2575 -64.7551,32.2575 15,-3.0,Bermuda -64.7557,32.2724 -64.7563,32.2715 -64.7557,32.2707 -64.7542,32.2707 -64.7534,32.2698 -64.7475,32.2698 -64.7472,32.2701 -64.7457,32.2715 -64.7463,32.2724 -64.7475,32.2724 -64.7487,32.2715 -64.7522,32.2715 -64.7528,32.2724 -64.7557,32.2724 -64.7557,32.2724 18,-3.0,Bermuda -64.5949,32.3592 -64.5944,32.3581 -64.5908,32.3581 -64.5897,32.3572 -64.5882,32.3572 -64.5876,32.3581 -64.5876,32.3587 -64.5885,32.359 -64.5885,32.3598 -64.5891,32.3607 -64.59,32.3607 -64.5908,32.3616 -64.5914,32.3616 -64.5917,32.361 -64.5932,32.3598 -64.5944,32.3598 -64.5949,32.3592 -64.5949,32.3592 19,-3.0,Bermuda -64.5926,32.3282 -64.5917,32.329 -64.5917,32.3305 -64.592,32.3317 -64.5926,32.3326 -64.5935,32.3331 -64.5941,32.3331 -64.5946,32.3326 -64.5961,32.3323 -64.597,32.3317 -64.5976,32.3305 -64.5976,32.3299 -64.597,32.3293 -64.5961,32.329 -64.5946,32.3299 -64.5941,32.3299 -64.5935,32.3293 -64.5926,32.3282 -64.5926,32.3282 18,-3.0,Bermuda -64.7525,32.2683 -64.7534,32.2671 -64.7536,32.2663 -64.7534,32.2651 -64.7528,32.2642 -64.7516,32.2639 -64.751,32.2648 -64.7504,32.2648 -64.7501,32.2642 -64.7495,32.2642 -64.7492,32.2645 -64.749,32.2654 -64.7492,32.2668 -64.7495,32.2671 -64.7501,32.2674 -64.751,32.2683 -64.7525,32.2683 -64.7525,32.2683 13,-3.0,Bermuda -64.7583,32.2648 -64.7575,32.2639 -64.7557,32.2639 -64.7554,32.2642 -64.7548,32.2651 -64.7539,32.268 -64.7542,32.2686 -64.7551,32.2692 -64.756,32.2692 -64.7575,32.2674 -64.7575,32.266 -64.7583,32.2648 -64.7583,32.2648 14,-3.0,Bermuda -64.7466,32.2692 -64.7457,32.268 -64.7448,32.2683 -64.7451,32.2674 -64.7443,32.2665 -64.7434,32.2657 -64.7422,32.2657 -64.7407,32.2674 -64.7425,32.2692 -64.7434,32.2692 -64.7443,32.2701 -64.7457,32.2701 -64.7466,32.2692 -64.7466,32.2692 13,-3.0,Bermuda -64.7592,32.2607 -64.7583,32.2598 -64.7592,32.2589 -64.7586,32.2583 -64.7575,32.258 -64.7569,32.2586 -64.7566,32.2589 -64.7557,32.2583 -64.7542,32.2601 -64.7557,32.2616 -64.7583,32.2616 -64.7592,32.2607 -64.7592,32.2607 9,-3.0,Bermuda -64.6483,32.3425 -64.6466,32.3408 -64.646,32.3405 -64.6439,32.3425 -64.6439,32.3434 -64.6451,32.344 -64.6469,32.344 -64.6483,32.3425 -64.6483,32.3425 12,-3.0,Bermuda -64.7677,32.2575 -64.7677,32.2563 -64.7671,32.256 -64.7668,32.2557 -64.7666,32.2554 -64.766,32.2557 -64.7642,32.2575 -64.7642,32.2583 -64.7648,32.2589 -64.766,32.2592 -64.7677,32.2575 -64.7677,32.2575 13,-3.0,Bermuda -64.7683,32.2425 -64.7671,32.2413 -64.7668,32.2416 -64.766,32.2422 -64.7654,32.2419 -64.7645,32.2413 -64.7639,32.2416 -64.7636,32.2422 -64.7633,32.2425 -64.7651,32.244 -64.7666,32.2443 -64.7683,32.2425 -64.7683,32.2425 15,-3.0,Bermuda -64.6034,32.3223 -64.602,32.3208 -64.6014,32.3205 -64.6008,32.3208 -64.6002,32.3217 -64.6005,32.3226 -64.6002,32.3232 -64.6005,32.3238 -64.6008,32.324 -64.6014,32.324 -64.602,32.3238 -64.602,32.3235 -64.6026,32.3232 -64.6034,32.3223 -64.6034,32.3223 9,-3.0,Bermuda -64.7176,32.2724 -64.7158,32.2707 -64.7149,32.2707 -64.714,32.2712 -64.714,32.2724 -64.7152,32.2733 -64.7167,32.2733 -64.7176,32.2724 -64.7176,32.2724 14,-3.0,Bermuda -64.6043,32.324 -64.6032,32.3249 -64.6026,32.3243 -64.602,32.3243 -64.6017,32.3246 -64.6017,32.3255 -64.6017,32.3261 -64.6023,32.3264 -64.6032,32.3267 -64.6046,32.3264 -64.6049,32.3261 -64.6052,32.3252 -64.6043,32.324 -64.6043,32.324 12,-3.0,Bermuda -64.7419,32.2765 -64.7407,32.2756 -64.7401,32.2756 -64.7399,32.2756 -64.7396,32.2777 -64.7396,32.2786 -64.7401,32.2792 -64.7404,32.2792 -64.7413,32.2789 -64.7416,32.2777 -64.7419,32.2765 -64.7419,32.2765 10,-3.0,Bermuda -64.7407,32.2665 -64.7399,32.2654 -64.739,32.2654 -64.7378,32.2657 -64.7378,32.2663 -64.7378,32.2671 -64.7381,32.268 -64.7393,32.2683 -64.7407,32.2665 -64.7407,32.2665 10,-3.0,Bermuda -64.7416,32.2724 -64.7425,32.2715 -64.7425,32.2709 -64.7416,32.2701 -64.7401,32.2698 -64.7396,32.2701 -64.739,32.2707 -64.7407,32.2724 -64.7416,32.2724 -64.7416,32.2724 10,-3.0,Bermuda -64.5958,32.3616 -64.5946,32.3607 -64.5935,32.3607 -64.5926,32.3613 -64.5923,32.3622 -64.5923,32.3625 -64.5938,32.3634 -64.5941,32.3634 -64.5958,32.3616 -64.5958,32.3616 10,-3.0,Bermuda -64.6049,32.3616 -64.6037,32.3601 -64.6029,32.3598 -64.6023,32.3598 -64.6017,32.3604 -64.6017,32.361 -64.6034,32.3622 -64.6046,32.3622 -64.6049,32.3616 -64.6049,32.3616 8,-3.0,Bermuda -64.6577,32.3367 -64.6592,32.3349 -64.6583,32.334 -64.6574,32.334 -64.6565,32.3349 -64.6565,32.3358 -64.6577,32.3367 -64.6577,32.3367 11,-3.0,Bermuda -64.734,32.2739 -64.7352,32.2733 -64.7352,32.2724 -64.7343,32.2718 -64.7337,32.2715 -64.7331,32.2715 -64.7328,32.2721 -64.7328,32.2724 -64.7328,32.2727 -64.734,32.2739 -64.734,32.2739 9,-3.0,Bermuda -64.5856,32.3434 -64.5867,32.3425 -64.5867,32.3416 -64.5861,32.3408 -64.5856,32.3408 -64.585,32.3414 -64.585,32.3425 -64.5856,32.3434 -64.5856,32.3434 10,-3.0,Bermuda -64.5935,32.351 -64.5926,32.3499 -64.5923,32.3499 -64.5914,32.3499 -64.5908,32.3504 -64.5908,32.351 -64.592,32.3516 -64.5923,32.3516 -64.5935,32.351 -64.5935,32.351 8,-3.0,Bermuda -64.7756,32.2425 -64.7768,32.2413 -64.7768,32.2407 -64.7759,32.2399 -64.7751,32.2404 -64.7751,32.2416 -64.7756,32.2425 -64.7756,32.2425 9,-3.0,Bermuda -64.8106,32.2701 -64.8114,32.2695 -64.8111,32.2686 -64.8106,32.2683 -64.81,32.2683 -64.8091,32.2689 -64.8097,32.2698 -64.8106,32.2701 -64.8106,32.2701 9,-3.0,Bermuda -64.8094,32.273 -64.8103,32.2721 -64.8103,32.2715 -64.8097,32.2709 -64.8091,32.2707 -64.8085,32.2715 -64.8088,32.2724 -64.8094,32.273 -64.8094,32.273 678,-5.0,Navassa -78.135,25.187 -78.1288,25.1879 -78.1218,25.1885 -78.1153,25.1873 -78.1092,25.1859 -78.1024,25.185 -78.0963,25.1832 -78.0895,25.182 -78.0837,25.1809 -78.0775,25.1791 -78.0716,25.1773 -78.0664,25.1753 -78.0611,25.1727 -78.0567,25.17 -78.0529,25.1662 -78.0502,25.1621 -78.0476,25.1577 -78.0455,25.153 -78.0423,25.1489 -78.0379,25.1457 -78.0344,25.1421 -78.0285,25.1404 -78.0224,25.1401 -78.0162,25.1413 -78.0115,25.1442 -78.0068,25.1465 -78.003,25.1498 -77.9983,25.1524 -77.9942,25.1559 -77.9901,25.1589 -77.9863,25.1621 -77.981,25.1641 -77.9745,25.1653 -77.969,25.1636 -77.9637,25.1612 -77.9584,25.1589 -77.9537,25.1559 -77.9493,25.153 -77.9449,25.1504 -77.9408,25.1471 -77.9364,25.1445 -77.932,25.1413 -77.9258,25.1398 -77.9209,25.1374 -77.9165,25.1348 -77.9126,25.131 -77.9109,25.126 -77.9085,25.121 -77.9118,25.1172 -77.915,25.1131 -77.9173,25.1087 -77.92,25.1037 -77.9226,25.099 -77.9244,25.0934 -77.9264,25.0879 -77.9273,25.082 -77.9253,25.0773 -77.9223,25.0726 -77.9188,25.0691 -77.9144,25.0665 -77.9091,25.0641 -77.9038,25.0618 -77.9018,25.0568 -77.903,25.0509 -77.9047,25.0453 -77.9065,25.0398 -77.9085,25.0345 -77.9094,25.0283 -77.9106,25.0222 -77.9123,25.0166 -77.9132,25.0104 -77.9138,25.0037 -77.9141,24.9966 -77.9135,24.9905 -77.9118,24.9855 -77.9088,24.9814 -77.9044,24.9785 -77.8974,24.9776 -77.8927,24.9799 -77.8883,24.9829 -77.8836,24.9837 -77.8792,24.9808 -77.8754,24.9767 -77.8727,24.9723 -77.8698,24.9679 -77.8672,24.9638 -77.8645,24.9597 -77.8604,24.9562 -77.8581,24.9518 -77.8548,24.9474 -77.8525,24.9432 -77.8502,24.9383 -77.8484,24.9333 -77.8463,24.9286 -77.8449,24.923 -77.8428,24.918 -77.8408,24.913 -77.8387,24.9083 -77.8378,24.9028 -77.8355,24.8978 -77.8334,24.8928 -77.8317,24.8881 -77.8302,24.8825 -77.829,24.8769 -77.8273,24.872 -77.8249,24.867 -77.8238,24.8614 -77.8226,24.8558 -77.8205,24.8511 -77.8185,24.8461 -77.8164,24.8412 -77.8138,24.8368 -77.8117,24.8318 -77.8088,24.8277 -77.8062,24.8236 -77.8032,24.8192 -77.8003,24.8151 -77.7968,24.8112 -77.7938,24.8071 -77.7903,24.8036 -77.7865,24.8001 -77.7839,24.7957 -77.7803,24.7922 -77.7777,24.7878 -77.7748,24.7837 -77.7727,24.7793 -77.7692,24.7757 -77.766,24.7716 -77.7624,24.7681 -77.7592,24.7643 -77.7554,24.7608 -77.7516,24.7573 -77.7481,24.7534 -77.7445,24.7499 -77.7401,24.747 -77.7366,24.7432 -77.7322,24.7405 -77.7278,24.7373 -77.724,24.7338 -77.7196,24.7312 -77.7161,24.7273 -77.7117,24.7244 -77.7079,24.7209 -77.7035,24.7177 -77.6991,24.715 -77.695,24.7118 -77.6897,24.7097 -77.6853,24.7068 -77.6812,24.7039 -77.6765,24.7006 -77.6712,24.6986 -77.6686,24.6945 -77.6683,24.688 -77.6692,24.6819 -77.6706,24.6757 -77.6712,24.6695 -77.6715,24.6628 -77.673,24.6566 -77.6724,24.6505 -77.6718,24.644 -77.67,24.6393 -77.6689,24.6338 -77.6668,24.6288 -77.6651,24.6238 -77.6645,24.6176 -77.6659,24.6121 -77.6686,24.6074 -77.6733,24.605 -77.6771,24.6015 -77.6806,24.5977 -77.6821,24.5921 -77.6827,24.5868 -77.6815,24.5812 -77.6791,24.5763 -77.6765,24.5719 -77.6753,24.5663 -77.6733,24.5616 -77.6709,24.5566 -77.6692,24.5516 -77.668,24.546 -77.6653,24.5419 -77.663,24.537 -77.6606,24.5328 -77.6574,24.5284 -77.6554,24.5235 -77.6536,24.5185 -77.6516,24.5138 -77.6501,24.5082 -77.6492,24.5026 -77.648,24.4971 -77.6466,24.4915 -77.6463,24.4853 -77.6472,24.4792 -77.6492,24.4739 -77.6507,24.4683 -77.6533,24.4636 -77.6554,24.4583 -77.6586,24.4542 -77.6615,24.4501 -77.6651,24.446 -77.6683,24.4413 -77.673,24.439 -77.6788,24.4378 -77.6844,24.436 -77.6906,24.4349 -77.6973,24.4343 -77.7041,24.434 -77.7111,24.4337 -77.7179,24.4334 -77.7252,24.4337 -77.7308,24.4319 -77.7346,24.4287 -77.7378,24.4243 -77.7419,24.4214 -77.7457,24.4181 -77.7492,24.4137 -77.7516,24.409 -77.7542,24.4046 -77.7575,24.4005 -77.7642,24.4002 -77.7695,24.4026 -77.773,24.4061 -77.7774,24.4088 -77.7833,24.4105 -77.7877,24.4079 -77.7915,24.4041 -77.7938,24.3994 -77.7956,24.3938 -77.7965,24.3876 -77.7962,24.3815 -77.7959,24.3753 -77.7938,24.3706 -77.7918,24.3656 -77.7941,24.3606 -77.7979,24.3574 -77.8015,24.3536 -77.8073,24.3524 -77.8126,24.3504 -77.8176,24.348 -77.8217,24.3448 -77.8261,24.3422 -77.8308,24.3398 -77.8355,24.3369 -77.8393,24.334 -77.8434,24.3304 -77.8481,24.3281 -77.8528,24.3254 -77.8575,24.3228 -77.8637,24.3216 -77.8704,24.3213 -77.8769,24.3222 -77.8824,24.3246 -77.8865,24.3275 -77.8918,24.3296 -77.898,24.3287 -77.9018,24.3254 -77.9044,24.3205 -77.9065,24.3152 -77.9103,24.312 -77.915,24.3093 -77.9194,24.307 -77.925,24.3049 -77.9302,24.3031 -77.9341,24.2999 -77.9379,24.2967 -77.9423,24.2932 -77.9446,24.2885 -77.9464,24.2829 -77.9443,24.2782 -77.9414,24.2738 -77.9379,24.2703 -77.9373,24.2656 -77.9414,24.2621 -77.9461,24.2597 -77.9514,24.2577 -77.9575,24.2565 -77.9643,24.2562 -77.9701,24.258 -77.9745,24.2609 -77.9775,24.2653 -77.9795,24.27 -77.9807,24.2756 -77.9813,24.282 -77.9833,24.2867 -77.9845,24.2923 -77.9863,24.2973 -77.9877,24.3029 -77.9898,24.3078 -77.991,24.3134 -77.993,24.3184 -77.9942,24.3237 -77.9954,24.3293 -77.9974,24.3342 -77.9986,24.3398 -78.0006,24.3448 -78.0036,24.3489 -78.0062,24.353 -78.0092,24.3574 -78.0127,24.3609 -78.0162,24.3648 -78.0209,24.3674 -78.0253,24.3706 -78.0303,24.3727 -78.0356,24.375 -78.0408,24.3771 -78.0467,24.3788 -78.052,24.3797 -78.0573,24.3821 -78.0623,24.3844 -78.0661,24.3879 -78.0696,24.3917 -78.0708,24.3973 -78.0696,24.4032 -78.0693,24.4102 -78.069,24.417 -78.0681,24.4234 -78.0684,24.4293 -78.0681,24.4363 -78.0669,24.4425 -78.0661,24.4487 -78.0649,24.4548 -78.0631,24.4601 -78.0614,24.4654 -78.0602,24.4715 -78.0608,24.478 -78.0628,24.483 -78.0681,24.4824 -78.0728,24.48 -78.076,24.4756 -78.079,24.4718 -78.0822,24.468 -78.0857,24.4639 -78.0889,24.4601 -78.0922,24.4557 -78.096,24.4525 -78.0992,24.4487 -78.103,24.4451 -78.1071,24.4419 -78.1124,24.4401 -78.1195,24.4396 -78.1262,24.4393 -78.1327,24.4401 -78.1388,24.4419 -78.1441,24.4443 -78.1485,24.4472 -78.1526,24.4498 -78.1579,24.4525 -78.1632,24.4548 -78.1684,24.4569 -78.1731,24.4601 -78.1781,24.4621 -78.184,24.4639 -78.189,24.466 -78.1943,24.4683 -78.1992,24.4704 -78.2054,24.4721 -78.2107,24.4745 -78.2151,24.4774 -78.2204,24.4797 -78.2256,24.4818 -78.2306,24.4841 -78.2359,24.4862 -78.2412,24.4888 -78.2456,24.4915 -78.2509,24.4938 -78.2541,24.4968 -78.2597,24.4991 -78.2638,24.5017 -78.2691,24.5044 -78.2735,24.507 -78.2779,24.5103 -78.2817,24.5138 -78.2858,24.5167 -78.2902,24.5196 -78.2937,24.5232 -78.2978,24.527 -78.3013,24.5305 -78.3046,24.534 -78.3084,24.5375 -78.3119,24.5411 -78.3163,24.5446 -78.3207,24.5478 -78.3245,24.5513 -78.3272,24.5554 -78.3307,24.5592 -78.3345,24.5628 -78.3371,24.5669 -78.3406,24.5704 -78.3453,24.5736 -78.3489,24.5771 -78.3524,24.5804 -78.3568,24.5836 -78.3597,24.5877 -78.3632,24.5912 -78.3668,24.595 -78.3706,24.5986 -78.3697,24.6047 -78.3626,24.6053 -78.3574,24.6068 -78.3527,24.6097 -78.348,24.6121 -78.3448,24.6162 -78.3415,24.6203 -78.3377,24.6235 -78.333,24.6261 -78.3283,24.6285 -78.3216,24.6288 -78.3151,24.6302 -78.3128,24.6349 -78.3119,24.6411 -78.3131,24.6467 -78.3098,24.6499 -78.3043,24.6517 -78.2984,24.6502 -78.2937,24.6473 -78.2896,24.644 -78.2831,24.6431 -78.2761,24.6437 -78.2705,24.6455 -78.2667,24.6487 -78.2641,24.6537 -78.2632,24.6596 -78.2644,24.6651 -78.2655,24.6707 -78.267,24.6763 -78.2653,24.6819 -78.2626,24.6866 -78.2594,24.6904 -78.2556,24.6939 -78.2509,24.6962 -78.2447,24.6959 -78.2403,24.6933 -78.2365,24.6898 -78.233,24.686 -78.2295,24.6825 -78.2274,24.6778 -78.2254,24.6728 -78.2224,24.6687 -78.2204,24.6637 -78.2195,24.6581 -78.218,24.6525 -78.2174,24.6464 -78.2177,24.6408 -78.2195,24.6352 -78.2213,24.6299 -78.2239,24.6253 -78.2262,24.6206 -78.2295,24.6165 -78.2321,24.6118 -78.2347,24.6068 -78.2386,24.6035 -78.2424,24.6006 -78.2465,24.5971 -78.2506,24.5939 -78.2544,24.5906 -78.2582,24.5871 -78.2609,24.5824 -78.2623,24.5771 -78.2614,24.5713 -78.2573,24.568 -78.2518,24.5663 -78.245,24.5666 -78.2389,24.5678 -78.2333,24.5698 -78.2289,24.5722 -78.2251,24.5754 -78.2195,24.5774 -78.2124,24.5777 -78.2063,24.5789 -78.201,24.5807 -78.1972,24.5842 -78.1951,24.5895 -78.1957,24.5959 -78.1978,24.6009 -78.1992,24.6065 -78.1981,24.6112 -78.1904,24.6109 -78.1837,24.6097 -78.1784,24.6074 -78.1787,24.6018 -78.1784,24.5959 -78.1781,24.5895 -78.1787,24.5833 -78.1808,24.578 -78.1831,24.5733 -78.1858,24.5686 -78.1875,24.5631 -78.189,24.5578 -78.1881,24.5519 -78.1843,24.5487 -78.1784,24.5469 -78.1726,24.5458 -78.1655,24.5449 -78.1594,24.546 -78.1541,24.5481 -78.1503,24.5513 -78.1491,24.5575 -78.1506,24.5622 -78.1517,24.5678 -78.1535,24.5727 -78.1558,24.5777 -78.1576,24.5824 -78.1599,24.5874 -78.1588,24.5921 -78.1547,24.5956 -78.1494,24.5959 -78.1462,24.5924 -78.1429,24.588 -78.1403,24.5839 -78.1359,24.581 -78.1315,24.578 -78.1262,24.5786 -78.1227,24.5824 -78.1224,24.5895 -78.123,24.5956 -78.1244,24.6012 -78.1268,24.6053 -78.1306,24.6088 -78.1359,24.6115 -78.1406,24.6141 -78.1447,24.617 -78.1491,24.62 -78.1526,24.6235 -78.1547,24.6285 -78.1544,24.6355 -78.1547,24.6417 -78.1547,24.6484 -78.1558,24.654 -78.1576,24.6587 -78.1608,24.6634 -78.1635,24.6675 -78.167,24.671 -78.1714,24.6739 -78.1743,24.6783 -78.177,24.6825 -78.1799,24.6866 -78.1811,24.6921 -78.1834,24.6971 -78.1846,24.7027 -78.1866,24.7077 -78.1869,24.7138 -78.189,24.7188 -78.1928,24.7212 -78.1981,24.7232 -78.2031,24.7241 -78.2042,24.7194 -78.2022,24.7144 -78.1992,24.7103 -78.1966,24.7059 -78.1951,24.7006 -78.1931,24.6954 -78.1919,24.6901 -78.1913,24.6839 -78.191,24.6775 -78.1907,24.6713 -78.1902,24.6649 -78.1919,24.6596 -78.1948,24.6555 -78.2019,24.6552 -78.2054,24.6587 -78.2069,24.6643 -78.208,24.6698 -78.2092,24.6754 -78.2104,24.681 -78.2127,24.686 -78.216,24.6898 -78.2198,24.693 -78.2233,24.6965 -78.2277,24.6998 -78.2321,24.7024 -78.2359,24.7059 -78.2342,24.7115 -78.2324,24.7171 -78.2306,24.7224 -78.2289,24.7279 -78.2277,24.7341 -78.2256,24.7394 -78.2251,24.7458 -78.2233,24.7511 -78.2213,24.7567 -78.2189,24.7614 -78.2154,24.7652 -78.2116,24.7687 -78.2083,24.7725 -78.2051,24.7766 -78.201,24.7798 -78.1972,24.7834 -78.1934,24.7863 -78.1893,24.7895 -78.1846,24.7922 -78.179,24.7942 -78.1737,24.796 -78.169,24.7986 -78.1661,24.8024 -78.164,24.808 -78.1646,24.8142 -78.1658,24.8197 -78.1687,24.8239 -78.1699,24.8297 -78.1687,24.8359 -78.1673,24.8412 -78.1617,24.8429 -78.1547,24.8435 -78.1479,24.8423 -78.1406,24.842 -78.135,24.8438 -78.1318,24.8479 -78.1294,24.8526 -78.1274,24.8579 -78.1259,24.8635 -78.1233,24.8681 -78.1209,24.8731 -78.1189,24.8784 -78.1162,24.8831 -78.1142,24.8881 -78.1112,24.8928 -78.1098,24.8981 -78.1098,24.8975 -78.1071,24.9022 -78.1068,24.9075 -78.1074,24.9139 -78.1095,24.9186 -78.113,24.9221 -78.1165,24.9256 -78.1203,24.9295 -78.1224,24.9344 -78.1212,24.9406 -78.1186,24.9453 -78.1142,24.9476 -78.1104,24.9512 -78.1063,24.9544 -78.1027,24.9582 -78.0998,24.9623 -78.0972,24.9673 -78.0939,24.972 -78.0928,24.9779 -78.091,24.9831 -78.0898,24.9896 -78.0889,24.9958 -78.0881,25.0019 -78.0866,25.0081 -78.0857,25.0142 -78.0854,25.021 -78.0866,25.0266 -78.0881,25.0321 -78.0898,25.0368 -78.091,25.0427 -78.0931,25.0474 -78.0951,25.0524 -78.0983,25.0565 -78.1007,25.0609 -78.1045,25.0644 -78.1074,25.0688 -78.1104,25.0729 -78.113,25.0773 -78.1145,25.0826 -78.1162,25.0879 -78.1174,25.0932 -78.118,25.0993 -78.1192,25.1049 -78.1206,25.1105 -78.1218,25.116 -78.123,25.1216 -78.125,25.1266 -78.1268,25.1316 -78.1291,25.1363 -78.1318,25.1404 -78.1341,25.1454 -78.1365,25.1498 -78.1397,25.1542 -78.1418,25.1589 -78.1426,25.1644 -78.1444,25.17 -78.1438,25.1768 -78.1435,25.1823 -78.1418,25.1876 -78.135,25.187 -78.135,25.187 595,-5.0,Navassa -77.631,24.2697 -77.6272,24.2729 -77.6225,24.2756 -77.6169,24.2773 -77.6125,24.28 -77.6064,24.2811 -77.6002,24.2794 -77.5967,24.2759 -77.5929,24.2721 -77.5911,24.2671 -77.5891,24.2621 -77.5873,24.2574 -77.5861,24.2518 -77.5856,24.2457 -77.582,24.2421 -77.5767,24.2398 -77.57,24.2389 -77.5641,24.2371 -77.5627,24.233 -77.5638,24.2266 -77.5659,24.2213 -77.5665,24.2151 -77.57,24.211 -77.5762,24.2099 -77.5826,24.2096 -77.5882,24.2078 -77.5926,24.2052 -77.5967,24.2022 -77.6008,24.1987 -77.604,24.1946 -77.6073,24.1908 -77.6111,24.1876 -77.6158,24.1849 -77.6205,24.1826 -77.624,24.1782 -77.6263,24.1735 -77.6301,24.1706 -77.6345,24.1676 -77.6401,24.1662 -77.6454,24.1641 -77.6501,24.1618 -77.6551,24.1591 -77.6609,24.1579 -77.6671,24.1568 -77.6741,24.1565 -77.6794,24.1547 -77.6841,24.1521 -77.6879,24.1488 -77.6868,24.1462 -77.6815,24.145 -77.6753,24.1462 -77.6692,24.1471 -77.6633,24.1459 -77.6598,24.1421 -77.6574,24.1371 -77.6604,24.1324 -77.6633,24.1286 -77.6671,24.1251 -77.6741,24.1248 -77.6812,24.1257 -77.685,24.1239 -77.6871,24.1192 -77.6862,24.1136 -77.6815,24.1104 -77.6765,24.1084 -77.6712,24.106 -77.6653,24.1043 -77.6595,24.1028 -77.6533,24.1025 -77.6466,24.1031 -77.6398,24.1034 -77.6325,24.1031 -77.6319,24.0966 -77.6322,24.0899 -77.6325,24.0831 -77.6345,24.0776 -77.6363,24.0723 -77.6386,24.0676 -77.6404,24.062 -77.6422,24.0567 -77.6433,24.0506 -77.6457,24.0459 -77.6483,24.0412 -77.6489,24.0356 -77.6498,24.0294 -77.6545,24.0268 -77.6589,24.0242 -77.6627,24.0206 -77.6674,24.0183 -77.6715,24.0154 -77.6656,24.0136 -77.658,24.0133 -77.6518,24.0142 -77.6466,24.016 -77.6445,24.0189 -77.641,24.0212 -77.6378,24.0253 -77.6351,24.03 -77.6322,24.0341 -77.6304,24.0394 -77.6278,24.0441 -77.6252,24.0497 -77.6219,24.0576 -77.619,24.0632 -77.6166,24.0676 -77.6149,24.0732 -77.6131,24.0787 -77.6122,24.0849 -77.6102,24.0902 -77.607,24.0943 -77.6037,24.0984 -77.5999,24.1016 -77.5967,24.1054 -77.592,24.1081 -77.5879,24.1113 -77.5841,24.1148 -77.5803,24.118 -77.5767,24.1219 -77.5741,24.1266 -77.5732,24.1327 -77.5718,24.1383 -77.5712,24.1453 -77.5709,24.1518 -77.5712,24.1582 -77.5709,24.165 -77.5703,24.172 -77.5694,24.1779 -77.5682,24.184 -77.5665,24.1896 -77.5641,24.1943 -77.56,24.1978 -77.5547,24.1993 -77.5495,24.2014 -77.5418,24.2011 -77.5366,24.1987 -77.5339,24.1943 -77.5301,24.1908 -77.5275,24.1867 -77.5251,24.1829 -77.5225,24.1788 -77.519,24.1752 -77.516,24.1708 -77.5125,24.167 -77.5096,24.1629 -77.5069,24.1588 -77.5049,24.1538 -77.5022,24.1497 -77.4999,24.1447 -77.499,24.1392 -77.497,24.1342 -77.494,24.1301 -77.4914,24.1257 -77.4879,24.1221 -77.4841,24.1186 -77.4814,24.1142 -77.4794,24.1095 -77.4776,24.1043 -77.4761,24.099 -77.4758,24.0928 -77.4761,24.0858 -77.475,24.0802 -77.4735,24.0746 -77.4723,24.0691 -77.4729,24.0623 -77.4738,24.0561 -77.4732,24.05 -77.4732,24.0435 -77.4711,24.0385 -77.4691,24.0338 -77.4676,24.0283 -77.4667,24.0227 -77.4647,24.0177 -77.4626,24.0127 -77.4615,24.0072 -77.4638,24.0025 -77.4676,23.9992 -77.4706,23.9945 -77.4723,23.9893 -77.4723,23.9837 -77.4697,23.9793 -77.4662,23.9758 -77.4626,23.9722 -77.4597,23.9678 -77.4571,23.9634 -77.4559,23.9579 -77.4553,23.952 -77.4556,23.945 -77.4562,23.9379 -77.4556,23.9318 -77.4582,23.9271 -77.4644,23.9262 -77.4714,23.9256 -77.4773,23.9244 -77.4838,23.9241 -77.4899,23.923 -77.497,23.9227 -77.5031,23.9215 -77.509,23.9206 -77.5143,23.9186 -77.5195,23.9168 -77.5245,23.9142 -77.5283,23.9109 -77.5301,23.9054 -77.5298,23.8995 -77.5307,23.8933 -77.5289,23.8898 -77.5237,23.8898 -77.5181,23.8919 -77.514,23.8951 -77.5102,23.8983 -77.5072,23.9024 -77.5034,23.9057 -77.4984,23.9083 -77.4931,23.9101 -77.4876,23.9118 -77.4823,23.9139 -77.477,23.9156 -77.4708,23.9165 -77.4641,23.9168 -77.4571,23.9174 -77.4506,23.9162 -77.4468,23.9127 -77.4465,23.9065 -77.4474,23.9004 -77.448,23.8936 -77.4474,23.8875 -77.4477,23.8804 -77.4491,23.8743 -77.4509,23.869 -77.4527,23.8637 -77.453,23.8567 -77.4515,23.8511 -77.4497,23.8461 -77.4509,23.8399 -77.4518,23.8338 -77.453,23.8276 -77.4541,23.8215 -77.4544,23.8147 -77.4562,23.8091 -77.4594,23.8053 -77.4632,23.8018 -77.4685,23.8027 -77.4747,23.8044 -77.4805,23.8062 -77.4864,23.8077 -77.4926,23.8094 -77.499,23.8106 -77.5022,23.8062 -77.5028,23.8009 -77.4984,23.798 -77.4931,23.7956 -77.4873,23.7942 -77.482,23.7915 -77.477,23.7895 -77.4723,23.7863 -77.4729,23.7798 -77.4747,23.7742 -77.4758,23.7681 -77.4776,23.7625 -77.4785,23.7563 -77.4805,23.7511 -77.4808,23.744 -77.4826,23.7384 -77.4858,23.7346 -77.4896,23.7314 -77.4934,23.7282 -77.497,23.7241 -77.5017,23.7217 -77.5069,23.7197 -77.5122,23.7179 -77.5184,23.717 -77.5239,23.715 -77.5292,23.7132 -77.5351,23.712 -77.5427,23.7123 -77.5486,23.7141 -77.553,23.717 -77.5565,23.7205 -77.5594,23.7249 -77.5618,23.7291 -77.565,23.7332 -77.5677,23.7379 -77.5721,23.7405 -77.5765,23.7434 -77.5832,23.7443 -77.5891,23.7434 -77.5946,23.7417 -77.5979,23.7379 -77.5949,23.7332 -77.5908,23.7305 -77.5856,23.7279 -77.5797,23.7264 -77.5753,23.7235 -77.5762,23.7185 -77.5803,23.7156 -77.5856,23.7135 -77.5882,23.7088 -77.5914,23.705 -77.5973,23.7053 -77.6008,23.7088 -77.6037,23.7129 -77.6058,23.7179 -77.609,23.7217 -77.6134,23.7244 -77.6187,23.727 -77.6254,23.7276 -77.6331,23.7279 -77.6404,23.7282 -77.648,23.7288 -77.6554,23.7291 -77.6624,23.7285 -77.6692,23.7282 -77.6768,23.7285 -77.6827,23.7276 -77.6894,23.7273 -77.6973,23.7276 -77.7029,23.7276 -77.7044,23.732 -77.7011,23.7358 -77.6967,23.7381 -77.6897,23.7387 -77.6821,23.7384 -77.6762,23.7396 -77.6736,23.7443 -77.6762,23.7484 -77.6791,23.7528 -77.6806,23.7584 -77.6785,23.764 -77.6747,23.7672 -77.6689,23.7654 -77.6659,23.7613 -77.6624,23.7578 -77.6571,23.7552 -77.651,23.7549 -77.6457,23.7569 -77.6413,23.7537 -77.6386,23.7496 -77.6337,23.7475 -77.6266,23.7478 -77.6199,23.7469 -77.6134,23.7458 -77.6058,23.7455 -77.6011,23.7481 -77.5993,23.7537 -77.5988,23.7604 -77.5985,23.7643 -77.5964,23.7692 -77.5938,23.7739 -77.5891,23.7763 -77.5838,23.7783 -77.5782,23.7801 -77.5729,23.7819 -77.5677,23.7839 -77.563,23.7863 -77.5583,23.7889 -77.5527,23.7912 -77.548,23.7942 -77.5436,23.7965 -77.538,23.7983 -77.5336,23.8009 -77.5289,23.8036 -77.5237,23.8053 -77.519,23.8077 -77.5149,23.8112 -77.511,23.8144 -77.5072,23.8176 -77.5037,23.8218 -77.5028,23.8276 -77.5055,23.8323 -77.5116,23.8338 -77.519,23.8341 -77.5248,23.8329 -77.5301,23.8311 -77.5357,23.8294 -77.5401,23.8262 -77.543,23.8218 -77.5459,23.8179 -77.5501,23.8147 -77.5547,23.8121 -77.5594,23.8097 -77.5641,23.8071 -77.5694,23.8053 -77.5741,23.8027 -77.5779,23.7995 -77.582,23.7959 -77.5867,23.7936 -77.5905,23.7904 -77.5944,23.7871 -77.5999,23.7851 -77.6043,23.7827 -77.6099,23.7807 -77.6161,23.7798 -77.6213,23.7778 -77.6266,23.776 -77.6298,23.7722 -77.6281,23.7672 -77.6266,23.7616 -77.6337,23.761 -77.6381,23.7643 -77.6448,23.7651 -77.6507,23.7669 -77.6557,23.7692 -77.6604,23.7719 -77.6621,23.7769 -77.6642,23.7819 -77.6653,23.7874 -77.6671,23.7921 -77.6703,23.7965 -77.6747,23.7995 -77.6797,23.8018 -77.6865,23.8027 -77.6923,23.8044 -77.6891,23.8083 -77.6815,23.808 -77.6756,23.8091 -77.6695,23.8103 -77.6651,23.813 -77.6595,23.8147 -77.6548,23.8171 -77.6472,23.8168 -77.6404,23.8174 -77.6372,23.8215 -77.6334,23.8247 -77.6293,23.8276 -77.6252,23.8311 -77.6205,23.8338 -77.6152,23.8355 -77.6099,23.8376 -77.6043,23.8391 -77.599,23.8411 -77.5938,23.8426 -77.59,23.8461 -77.5882,23.8487 -77.5873,23.8534 -77.5864,23.8596 -77.5873,23.8637 -77.5923,23.8614 -77.5952,23.8575 -77.5985,23.8531 -77.6026,23.8502 -77.6073,23.8479 -77.6125,23.8458 -77.6181,23.8438 -77.6246,23.8435 -77.6313,23.8443 -77.6384,23.8455 -77.6442,23.8473 -77.6507,23.8479 -77.6574,23.849 -77.6645,23.8484 -77.6697,23.847 -77.675,23.8449 -77.6812,23.8438 -77.6879,23.8435 -77.6941,23.8438 -77.6988,23.8414 -77.7026,23.8379 -77.7079,23.8361 -77.714,23.835 -77.7208,23.8361 -77.7275,23.837 -77.7328,23.8391 -77.7378,23.8417 -77.7407,23.8458 -77.741,23.852 -77.7393,23.8575 -77.7384,23.8637 -77.7387,23.8699 -77.7413,23.874 -77.7443,23.8784 -77.7472,23.8828 -77.7475,23.8889 -77.7478,23.8951 -77.7469,23.901 -77.7489,23.9059 -77.7525,23.9098 -77.756,23.9133 -77.7598,23.9168 -77.7624,23.9212 -77.7604,23.9265 -77.7575,23.9306 -77.7542,23.9347 -77.7531,23.9409 -77.7536,23.947 -77.7516,23.9526 -77.7498,23.9564 -77.7495,23.962 -77.7542,23.9649 -77.7595,23.9673 -77.7651,23.9687 -77.7704,23.9711 -77.7715,23.9766 -77.7692,23.9813 -77.7666,23.986 -77.7642,23.9907 -77.7616,23.9954 -77.7604,24.0001 -77.7636,24.0048 -77.766,24.0089 -77.7698,24.0124 -77.7733,24.016 -77.7786,24.0183 -77.7839,24.0206 -77.7888,24.023 -77.7938,24.0253 -77.7982,24.028 -77.7979,24.0321 -77.7935,24.035 -77.7903,24.0388 -77.79,24.0459 -77.7959,24.0473 -77.8018,24.0488 -77.8038,24.0538 -77.8067,24.0579 -77.8135,24.0576 -77.8188,24.0559 -77.8258,24.0556 -77.8308,24.0576 -77.8352,24.0608 -77.8396,24.0635 -77.8434,24.0673 -77.8478,24.0702 -77.8537,24.072 -77.8581,24.074 -77.859,24.0723 -77.8625,24.0758 -77.8651,24.0773 -77.8683,24.0814 -77.8628,24.0834 -77.8625,24.0887 -77.8557,24.089 -77.8484,24.0887 -77.8431,24.0867 -77.8364,24.0855 -77.8317,24.0881 -77.8299,24.0937 -77.832,24.0987 -77.8364,24.1022 -77.8396,24.1057 -77.8434,24.1095 -77.8463,24.1136 -77.8475,24.1192 -77.8463,24.1251 -77.8422,24.1286 -77.8355,24.1289 -77.8284,24.128 -77.8223,24.1268 -77.8144,24.1266 -77.807,24.1263 -77.8038,24.1304 -77.8015,24.1351 -77.7985,24.14 -77.7947,24.143 -77.7886,24.1442 -77.7824,24.1453 -77.7786,24.1486 -77.7756,24.1527 -77.773,24.1571 -77.771,24.1626 -77.7707,24.1697 -77.7704,24.1767 -77.7701,24.1832 -77.7654,24.1861 -77.7577,24.1855 -77.7536,24.184 -77.7475,24.1826 -77.7428,24.1849 -77.7393,24.1887 -77.7349,24.1917 -77.7287,24.1928 -77.722,24.1931 -77.7152,24.1931 -77.7105,24.1958 -77.7073,24.1999 -77.7038,24.2037 -77.7014,24.2087 -77.6997,24.2143 -77.6991,24.221 -77.6982,24.2272 -77.6967,24.2325 -77.6938,24.2371 -77.6909,24.2413 -77.6868,24.2448 -77.6829,24.2477 -77.6774,24.2498 -77.6721,24.2515 -77.6653,24.2518 -77.6586,24.2521 -77.6516,24.2527 -77.6463,24.2545 -77.6416,24.2571 -77.6384,24.2612 -77.6345,24.2644 -77.631,24.2697 -77.631,24.2697 88,-5.0,Navassa -77.8097,24.1644 -77.8059,24.1676 -77.8018,24.1708 -77.7976,24.1741 -77.7959,24.1796 -77.7941,24.1849 -77.7921,24.1905 -77.7906,24.1958 -77.7874,24.1999 -77.7842,24.2037 -77.7809,24.2081 -77.7798,24.2143 -77.7803,24.2201 -77.7795,24.2251 -77.7739,24.2269 -77.7671,24.2275 -77.7627,24.2245 -77.7598,24.2201 -77.756,24.2166 -77.751,24.2143 -77.7437,24.214 -77.739,24.2163 -77.7355,24.2204 -77.7325,24.2245 -77.7299,24.2278 -77.729,24.2339 -77.7302,24.2383 -77.736,24.2398 -77.7422,24.2386 -77.7484,24.2374 -77.7551,24.2371 -77.7619,24.238 -77.7686,24.2392 -77.7756,24.2389 -77.7815,24.2374 -77.7862,24.2351 -77.7903,24.2319 -77.7935,24.2278 -77.7965,24.2239 -77.8,24.2195 -77.8038,24.2163 -77.8079,24.2134 -77.8123,24.2107 -77.8111,24.2063 -77.815,24.2034 -77.822,24.2028 -77.8279,24.2031 -77.834,24.2019 -77.8364,24.1972 -77.839,24.1926 -77.8443,24.1905 -77.8522,24.1911 -77.8581,24.1928 -77.8625,24.1899 -77.8645,24.1846 -77.8663,24.1791 -77.8707,24.1767 -77.8777,24.1764 -77.8836,24.1776 -77.8898,24.1794 -77.8962,24.1805 -77.9015,24.1785 -77.9035,24.1729 -77.9038,24.1664 -77.9033,24.16 -77.9021,24.1544 -77.9015,24.1483 -77.9006,24.1427 -77.8968,24.1392 -77.8927,24.1359 -77.8883,24.1333 -77.8821,24.133 -77.8766,24.1351 -77.8722,24.1374 -77.8675,24.14 -77.8628,24.1424 -77.8584,24.145 -77.8537,24.1477 -77.849,24.1503 -77.844,24.1527 -77.8384,24.1547 -77.8331,24.1565 -77.8273,24.1574 -77.8211,24.1585 -77.8158,24.1606 -77.812,24.1638 -77.8097,24.1644 -77.8097,24.1644 49,-5.0,Navassa -77.9358,24.238 -77.9288,24.2383 -77.922,24.2389 -77.9147,24.2383 -77.9068,24.238 -77.9003,24.2386 -77.8947,24.2404 -77.8895,24.2421 -77.8862,24.2459 -77.883,24.2503 -77.8804,24.255 -77.878,24.2597 -77.8742,24.2627 -77.8686,24.2647 -77.861,24.2644 -77.8575,24.2621 -77.8546,24.258 -77.8534,24.2524 -77.8531,24.2459 -77.8578,24.2436 -77.8639,24.2424 -77.8692,24.2404 -77.8725,24.2366 -77.8742,24.231 -77.8722,24.2263 -77.8701,24.2213 -77.8683,24.2163 -77.8666,24.2107 -77.8716,24.2084 -77.876,24.2099 -77.8804,24.2128 -77.8862,24.2143 -77.893,24.2143 -77.8991,24.2131 -77.9062,24.2125 -77.9121,24.2113 -77.9188,24.211 -77.9258,24.2104 -77.9294,24.2143 -77.9329,24.2178 -77.9373,24.2207 -77.9429,24.2231 -77.9473,24.226 -77.9496,24.2301 -77.9493,24.2357 -77.9449,24.2383 -77.9373,24.238 -77.9358,24.238 -77.9358,24.238 63,-5.0,Navassa -77.7011,24.3328 -77.6979,24.334 -77.6941,24.3357 -77.6903,24.3392 -77.685,24.3407 -77.6794,24.3428 -77.6741,24.3448 -77.668,24.3457 -77.6627,24.3474 -77.6568,24.3495 -77.6507,24.3504 -77.6448,24.3516 -77.6386,24.3527 -77.6334,24.3548 -77.6257,24.3542 -77.6225,24.3504 -77.6202,24.3457 -77.6175,24.3413 -77.6146,24.3372 -77.6125,24.3322 -77.6137,24.326 -77.6169,24.3222 -77.6231,24.321 -77.629,24.3228 -77.6334,24.3254 -77.6378,24.3287 -77.6422,24.3316 -77.6472,24.334 -77.6533,24.3354 -77.6606,24.3357 -77.6668,24.3345 -77.6715,24.3322 -77.6762,24.3293 -77.6803,24.3263 -77.6835,24.3222 -77.6868,24.3184 -77.69,24.3143 -77.6938,24.3111 -77.6976,24.3078 -77.702,24.3043 -77.7073,24.3026 -77.712,24.2999 -77.7158,24.297 -77.7214,24.2949 -77.7267,24.2929 -77.7316,24.2955 -77.7346,24.2996 -77.7366,24.3046 -77.734,24.309 -77.7311,24.312 -77.7278,24.3143 -77.7252,24.3161 -77.7234,24.3172 -77.7261,24.3152 -77.7252,24.3161 -77.7234,24.3178 -77.7181,24.3202 -77.7152,24.3231 -77.7105,24.3254 -77.7076,24.3266 -77.7041,24.3307 -77.7011,24.3328 -77.7011,24.3328 22,-5.0,Navassa -77.7979,24.3202 -77.7924,24.3222 -77.7868,24.324 -77.7815,24.3257 -77.7756,24.3269 -77.7686,24.3272 -77.7619,24.3263 -77.7545,24.326 -77.7507,24.324 -77.7501,24.3175 -77.7536,24.3134 -77.7566,24.3096 -77.7607,24.3064 -77.766,24.3043 -77.7715,24.3026 -77.7783,24.3023 -77.785,24.3031 -77.7894,24.3061 -77.7938,24.309 -77.7965,24.3134 -77.7979,24.3202 -77.7979,24.3202 25,-5.0,Navassa -78.4005,24.6396 -78.3967,24.6417 -78.3888,24.6414 -78.3826,24.6402 -78.3764,24.6414 -78.3717,24.644 -78.3662,24.6458 -78.3591,24.6464 -78.3541,24.6455 -78.3512,24.6411 -78.353,24.6358 -78.3562,24.6317 -78.3615,24.6299 -78.3668,24.6279 -78.3738,24.6288 -78.3788,24.6314 -78.3844,24.6294 -78.3896,24.6273 -78.3967,24.6273 -78.402,24.6279 -78.4064,24.6311 -78.4087,24.6352 -78.4066,24.6399 -78.4005,24.6396 -78.4005,24.6396 20,-5.0,Navassa -77.6331,23.6985 -77.6281,23.6962 -77.6228,23.6939 -77.619,23.6903 -77.6216,23.6856 -77.6246,23.6815 -77.629,23.6783 -77.6328,23.6751 -77.6351,23.6701 -77.6398,23.6677 -77.646,23.6666 -77.6466,23.6727 -77.6442,23.676 -77.6422,23.6815 -77.6404,23.6871 -77.6386,23.6924 -77.6398,23.698 -77.636,23.7 -77.6331,23.6985 -77.6331,23.6985 16,-5.0,Navassa -77.6395,24.1321 -77.6345,24.1342 -77.629,24.1356 -77.6222,24.1362 -77.6164,24.1348 -77.6125,24.131 -77.6099,24.1268 -77.6131,24.1227 -77.6178,24.1201 -77.6243,24.1201 -77.6313,24.1195 -77.6384,24.1204 -77.6425,24.1233 -77.6448,24.1283 -77.6395,24.1321 -77.6395,24.1321 15,-5.0,Navassa -77.751,24.1887 -77.7484,24.1923 -77.7437,24.1946 -77.7399,24.1967 -77.7357,24.1996 -77.7328,24.2037 -77.7346,24.209 -77.7413,24.2096 -77.7469,24.2078 -77.7507,24.2046 -77.7539,24.2005 -77.7545,24.1952 -77.7507,24.1917 -77.751,24.1887 -77.751,24.1887 234,-4.0,Trinidad and Tobago -69.0762,12.3689 -69.0736,12.366 -69.0686,12.3639 -69.0639,12.3616 -69.0592,12.3595 -69.0542,12.3572 -69.0486,12.3557 -69.0431,12.3545 -69.0375,12.3528 -69.0325,12.3504 -69.0278,12.3484 -69.0237,12.3454 -69.0196,12.3428 -69.0155,12.3399 -69.0114,12.3369 -69.0079,12.3337 -69.0052,12.3293 -69.0026,12.3252 -68.9997,12.3211 -68.9973,12.3167 -68.9953,12.312 -68.9923,12.3076 -68.9906,12.3029 -68.9882,12.2979 -68.987,12.2923 -68.9867,12.2865 -68.9862,12.2803 -68.9856,12.2739 -68.9835,12.2692 -68.9818,12.2642 -68.9797,12.2595 -68.9777,12.2548 -68.9753,12.2501 -68.973,12.2454 -68.9703,12.2413 -68.9668,12.2378 -68.9642,12.2337 -68.9612,12.2293 -68.958,12.226 -68.9539,12.2231 -68.9492,12.2208 -68.9445,12.2187 -68.9401,12.2158 -68.9375,12.2117 -68.9342,12.2081 -68.9307,12.2046 -68.9272,12.2011 -68.9231,12.1982 -68.919,12.1955 -68.9149,12.1926 -68.9108,12.1897 -68.9058,12.1873 -68.9005,12.1861 -68.8955,12.1838 -68.8899,12.1823 -68.8844,12.1809 -68.8779,12.18 -68.8718,12.1791 -68.8665,12.1776 -68.86,12.1768 -68.8559,12.1738 -68.8509,12.1715 -68.8465,12.1688 -68.8418,12.1665 -68.8351,12.1665 -68.8286,12.1668 -68.8222,12.1674 -68.816,12.168 -68.809,12.1677 -68.8034,12.1662 -68.7981,12.165 -68.7917,12.1639 -68.7867,12.1618 -68.7811,12.1603 -68.7761,12.158 -68.7714,12.1556 -68.7667,12.1536 -68.7623,12.1506 -68.7582,12.148 -68.7541,12.1454 -68.7515,12.141 -68.748,12.1369 -68.7462,12.1319 -68.745,12.1263 -68.7436,12.1207 -68.7424,12.1154 -68.7406,12.1105 -68.7383,12.1058 -68.7362,12.1008 -68.733,12.0976 -68.7292,12.0943 -68.7251,12.0917 -68.7213,12.0879 -68.7189,12.0838 -68.7151,12.0802 -68.7113,12.0773 -68.7063,12.0753 -68.7031,12.072 -68.6993,12.0682 -68.696,12.0647 -68.6934,12.0606 -68.6899,12.0568 -68.6866,12.0535 -68.6831,12.05 -68.6787,12.0471 -68.6749,12.0445 -68.6723,12.0403 -68.6693,12.0359 -68.6688,12.031 -68.672,12.0271 -68.677,12.0251 -68.6825,12.0266 -68.6866,12.0298 -68.6937,12.0298 -68.6993,12.0286 -68.7048,12.0271 -68.7104,12.026 -68.7169,12.0254 -68.7224,12.0257 -68.7289,12.0251 -68.7353,12.026 -68.7406,12.0274 -68.7468,12.0283 -68.7515,12.0304 -68.7573,12.0321 -68.762,12.0345 -68.7661,12.0371 -68.7703,12.0401 -68.7738,12.0436 -68.7776,12.0462 -68.784,12.0471 -68.7899,12.0489 -68.7946,12.0509 -68.7987,12.0538 -68.8037,12.0562 -68.8078,12.0588 -68.811,12.0624 -68.814,12.0668 -68.8163,12.0709 -68.8222,12.072 -68.8269,12.0703 -68.8342,12.0706 -68.8389,12.0726 -68.8439,12.075 -68.8486,12.0773 -68.8536,12.0791 -68.8583,12.0814 -68.863,12.0835 -68.8671,12.0864 -68.872,12.0885 -68.877,12.0908 -68.882,12.0932 -68.8867,12.0952 -68.8917,12.0976 -68.8955,12.1002 -68.8996,12.1031 -68.9037,12.1061 -68.9072,12.1093 -68.9114,12.1122 -68.9149,12.1157 -68.919,12.1187 -68.9225,12.1222 -68.9266,12.1248 -68.9298,12.1286 -68.9319,12.1336 -68.9345,12.1374 -68.9366,12.1424 -68.9398,12.146 -68.9442,12.1489 -68.9483,12.1515 -68.9515,12.1553 -68.9545,12.1595 -68.9562,12.1641 -68.9574,12.1697 -68.9603,12.1738 -68.963,12.1779 -68.9671,12.1812 -68.9718,12.1829 -68.9768,12.1853 -68.9818,12.1832 -68.9856,12.18 -68.9891,12.1768 -68.9923,12.1732 -68.9973,12.1727 -69.0008,12.1765 -69.0041,12.18 -69.0073,12.1841 -69.009,12.1888 -69.0117,12.1929 -69.0134,12.1979 -69.0164,12.2023 -69.019,12.2064 -69.0225,12.2099 -69.0266,12.2128 -69.0299,12.2161 -69.0337,12.2196 -69.036,12.2237 -69.039,12.2281 -69.0422,12.2316 -69.0448,12.2357 -69.0478,12.2398 -69.051,12.2433 -69.0539,12.2478 -69.0572,12.251 -69.0604,12.2548 -69.0645,12.2583 -69.0686,12.261 -69.0727,12.2639 -69.0768,12.2665 -69.0818,12.2689 -69.0862,12.2718 -69.0894,12.2753 -69.0915,12.2803 -69.0918,12.2865 -69.0903,12.2918 -69.0882,12.2964 -69.088,12.3032 -69.0882,12.3096 -69.0897,12.3149 -69.0903,12.3214 -69.0909,12.3275 -69.0921,12.3331 -69.0924,12.339 -69.0929,12.3451 -69.0935,12.3513 -69.0959,12.3563 -69.0968,12.3619 -69.0968,12.3689 -69.0938,12.3727 -69.0888,12.3748 -69.083,12.3757 -69.0789,12.373 -69.0762,12.3689 -69.0762,12.3689 162,-4.0,Aruba -68.3068,12.292 -68.2997,12.2918 -68.2938,12.2903 -68.29,12.2874 -68.2859,12.2847 -68.2824,12.2812 -68.2792,12.2777 -68.2771,12.2727 -68.2745,12.2686 -68.2715,12.2645 -68.2692,12.2604 -68.2654,12.2566 -68.2616,12.2539 -68.2575,12.251 -68.2534,12.248 -68.2493,12.2451 -68.2449,12.2425 -68.2399,12.2401 -68.2352,12.2381 -68.2305,12.2357 -68.2255,12.2337 -68.2208,12.2313 -68.2158,12.2293 -68.2111,12.2269 -68.2061,12.2249 -68.2011,12.2228 -68.1967,12.2205 -68.1912,12.2187 -68.1862,12.2169 -68.1797,12.2158 -68.1733,12.2149 -68.1671,12.214 -68.1607,12.2134 -68.1548,12.2125 -68.1486,12.2117 -68.1422,12.2108 -68.1357,12.2099 -68.1293,12.209 -68.1252,12.2061 -68.124,12.2005 -68.1228,12.1952 -68.1231,12.1897 -68.126,12.1856 -68.1307,12.1835 -68.1351,12.1812 -68.1384,12.1768 -68.139,12.1709 -68.1387,12.1647 -68.1381,12.1586 -68.1375,12.1524 -68.1363,12.1468 -68.1348,12.1413 -68.134,12.1357 -68.1334,12.1295 -68.1325,12.1234 -68.1328,12.1166 -68.1331,12.1096 -68.1343,12.1034 -68.1354,12.0981 -68.1398,12.0955 -68.1434,12.0923 -68.1486,12.0902 -68.153,12.0926 -68.1571,12.0952 -68.163,12.094 -68.1671,12.0914 -68.1703,12.0876 -68.1698,12.0814 -68.1651,12.0791 -68.1612,12.0756 -68.1607,12.0694 -68.1624,12.0638 -68.1627,12.0568 -68.1601,12.0527 -68.1571,12.0486 -68.156,12.0433 -68.1563,12.0362 -68.1571,12.0304 -68.1589,12.0248 -68.1607,12.0198 -68.163,12.0151 -68.1656,12.0104 -68.1689,12.0072 -68.1747,12.006 -68.1812,12.0054 -68.1859,12.0078 -68.1891,12.011 -68.1918,12.0151 -68.1947,12.0198 -68.197,12.0239 -68.2,12.028 -68.2026,12.0321 -68.2053,12.0362 -68.2073,12.0409 -68.2085,12.0465 -68.2091,12.0527 -68.2094,12.0591 -68.2111,12.0647 -68.212,12.0703 -68.2132,12.0756 -68.2138,12.082 -68.2152,12.0873 -68.2179,12.0917 -68.2205,12.0958 -68.2237,12.099 -68.2223,12.1046 -68.2187,12.1081 -68.2158,12.1119 -68.2135,12.1154 -68.2114,12.1201 -68.2091,12.1248 -68.2091,12.1316 -68.2099,12.1372 -68.2114,12.1427 -68.2132,12.1474 -68.2146,12.153 -68.2167,12.158 -68.2185,12.1627 -68.2214,12.1668 -68.2237,12.1712 -68.2267,12.1756 -68.2284,12.1803 -68.2319,12.1838 -68.2346,12.1879 -68.2387,12.1908 -68.2422,12.1944 -68.2472,12.1967 -68.2525,12.1979 -68.2581,12.2002 -68.2645,12.2011 -68.2715,12.2014 -68.2777,12.2023 -68.2847,12.2026 -68.2912,12.202 -68.2974,12.2014 -68.3044,12.2017 -68.3114,12.2017 -68.3182,12.202 -68.3241,12.2035 -68.3288,12.2058 -68.3323,12.209 -68.3334,12.2146 -68.3346,12.2202 -68.3381,12.2237 -68.3417,12.2272 -68.3443,12.2313 -68.3469,12.2354 -68.3461,12.2419 -68.3431,12.2457 -68.3402,12.2498 -68.3373,12.2539 -68.3358,12.2595 -68.3364,12.2656 -68.3361,12.2724 -68.3343,12.2777 -68.3323,12.2824 -68.3293,12.2865 -68.3249,12.2891 -68.32,12.2912 -68.3141,12.2923 -68.3068,12.292 -68.3068,12.292 19,-4.0,Virgin Islands -64.9586,18.3404 -64.9488,18.3306 -64.9299,18.33 -64.9127,18.3364 -64.8877,18.3124 -64.8597,18.3232 -64.8418,18.3073 -64.7969,18.2901 -64.7861,18.3006 -64.7625,18.2999 -64.7537,18.3117 -64.7899,18.3367 -64.8304,18.3549 -64.8547,18.3546 -64.8712,18.3624 -64.909,18.3627 -64.9242,18.3576 -64.9488,18.3509 -64.9586,18.3404 18,-4.0,Virgin Islands -64.7214,18.3137 -64.7069,18.3006 -64.6718,18.308 -64.6269,18.2881 -64.6228,18.2881 -64.6194,18.3114 -64.6286,18.3323 -64.6171,18.334 -64.5911,18.3158 -64.5816,18.3283 -64.612,18.3468 -64.6272,18.3542 -64.6464,18.3526 -64.6643,18.36 -64.6728,18.3461 -64.6984,18.3407 -64.7153,18.3299 -64.7214,18.3137 20,-4.0,Virgin Islands -64.817,17.7416 -64.8082,17.6997 -64.8257,17.6673 -64.765,17.6721 -64.6853,17.6862 -64.6373,17.6868 -64.58,17.7058 -64.5314,17.7227 -64.5199,17.7308 -64.4889,17.7362 -64.4855,17.743 -64.5031,17.747 -64.5415,17.747 -64.5739,17.7484 -64.634,17.7355 -64.6651,17.7592 -64.7076,17.7713 -64.7535,17.7517 -64.7947,17.7578 -64.817,17.7416 16,-4.0,British Virgin Islands -64.3369,18.7268 -64.3241,18.7132 -64.2877,18.71 -64.2645,18.704 -64.2305,18.6988 -64.2029,18.6788 -64.1909,18.6784 -64.1897,18.688 -64.2033,18.706 -64.2281,18.7264 -64.2509,18.7372 -64.2697,18.732 -64.2973,18.7324 -64.3121,18.7344 -64.3321,18.732 -64.3369,18.7268 29,-4.0,British Virgin Islands -64.6353,18.3776 -64.6343,18.3756 -64.6265,18.3738 -64.6011,18.3756 -64.5909,18.3704 -64.5541,18.3848 -64.5427,18.3908 -64.5345,18.398 -64.5433,18.4094 -64.5339,18.4136 -64.5171,18.4008 -64.5003,18.3998 -64.4849,18.414 -64.4881,18.42 -64.4843,18.4246 -64.4759,18.425 -64.4789,18.4366 -64.4859,18.4426 -64.5169,18.436 -64.5449,18.4344 -64.5647,18.4376 -64.5807,18.4272 -64.5853,18.4162 -64.5803,18.4104 -64.5945,18.4016 -64.6051,18.3874 -64.6203,18.3858 -64.6325,18.3806 -64.6353,18.3776 11,-4.0,British Virgin Islands -64.7006,18.4269 -64.6857,18.4268 -64.6638,18.4208 -64.6503,18.423 -64.6417,18.4276 -64.6529,18.4408 -64.6727,18.4457 -64.6782,18.4452 -64.6877,18.4346 -64.7028,18.4317 -64.7006,18.4269 18,-4.0,British Virgin Islands -64.3679,18.4141 -64.3479,18.4179 -64.3498,18.4384 -64.3123,18.4557 -64.3105,18.47 -64.2892,18.4696 -64.2609,18.4795 -64.2425,18.4913 -64.2449,18.4955 -64.2753,18.4881 -64.3003,18.4803 -64.3185,18.4911 -64.3395,18.4925 -64.3377,18.4601 -64.3443,18.4532 -64.3603,18.4481 -64.3637,18.4431 -64.3679,18.4141 48,10.5,LORD HOWE ISLAND 158.8957,-31.4683 158.8957,-31.47 158.8958,-31.4713 158.8994,-31.4712 158.9015,-31.4719 158.9029,-31.4695 158.9085,-31.4732 158.9125,-31.4705 158.9158,-31.4735 158.9169,-31.4767 158.9199,-31.4778 158.9343,-31.4941 158.9339,-31.4978 158.9318,-31.5151 158.9289,-31.5278 158.924,-31.5323 158.9209,-31.5391 158.922,-31.5448 158.9286,-31.5473 158.9374,-31.5417 158.9494,-31.5251 158.9528,-31.5243 158.9551,-31.5221 158.9612,-31.5162 158.9598,-31.5128 158.9585,-31.5096 158.9546,-31.5073 158.9483,-31.4974 158.9428,-31.4967 158.9379,-31.4936 158.9331,-31.4815 158.9327,-31.4804 158.92,-31.4679 158.9213,-31.4626 158.9199,-31.4607 158.9187,-31.4618 158.9179,-31.4625 158.9164,-31.4618 158.9156,-31.4632 158.9121,-31.4633 158.9106,-31.4634 158.9091,-31.463 158.9056,-31.464 158.903,-31.4641 158.8995,-31.4651 158.8976,-31.4673 158.8957,-31.4683 158.8957,-31.4683 39,11.5,NORFOLK ISLAND 167.919,-28.9953 167.9164,-28.9988 167.9252,-29.0 167.9275,-29.0 167.9274,-29.003 167.9214,-29.0209 167.9214,-29.032 167.9236,-29.0397 167.9197,-29.0432 167.9305,-29.0433 167.936,-29.0455 167.937,-29.0491 167.9421,-29.0497 167.945,-29.046 167.9468,-29.0456 167.9489,-29.0451 167.9506,-29.0448 167.9688,-29.0527 167.9748,-29.0491 167.985,-29.0489 167.9884,-29.0457 167.9881,-29.0449 167.9859,-29.0402 167.9867,-29.0365 167.9923,-29.0355 167.9999,-29.0254 168.0,-29.0253 167.996,-29.0174 167.9937,-29.0128 167.9897,-29.0094 167.9713,-29.0084 167.9655,-29.0004 167.9639,-28.9998 167.9511,-28.9943 167.9327,-28.9924 167.9325,-28.9923 167.9243,-28.9934 167.919,-28.9953 167.919,-28.9953 21,11.5,PHILIP ISLAND 167.9499,-29.1095 167.9483,-29.1116 167.9499,-29.1124 167.9519,-29.1134 167.9521,-29.1144 167.953,-29.1193 167.9538,-29.1192 167.9561,-29.1188 167.9582,-29.1156 167.9599,-29.113 167.9618,-29.11 167.9662,-29.1108 167.9687,-29.1099 167.9665,-29.1071 167.966,-29.1065 167.9587,-29.1043 167.9523,-29.1067 167.9521,-29.1067 167.9516,-29.1073 167.9499,-29.1095 167.9499,-29.1095 9,11.5,NEPEAN ISLAND 167.9624,-29.0624 167.9619,-29.0636 167.9622,-29.0639 167.9635,-29.0654 167.9658,-29.0644 167.9663,-29.0633 167.9667,-29.0621 167.9624,-29.0624 167.9624,-29.0624 912,9.5,Australia 128.846,-31.6546 128.8471,-31.6544 128.8619,-31.6517 128.8926,-31.647 129.0642,-31.6226 129.3074,-31.6028 129.5324,-31.5862 129.6697,-31.5789 129.7164,-31.5676 129.767,-31.5577 129.9797,-31.5436 130.0671,-31.541 130.0939,-31.5405 130.4748,-31.5682 130.5331,-31.5733 130.5622,-31.5753 130.594,-31.5764 130.6237,-31.5745 130.6741,-31.5693 130.8422,-31.5135 130.871,-31.498 130.8993,-31.473 130.92,-31.4559 130.945,-31.4419 130.9781,-31.4386 131.0038,-31.4429 131.1063,-31.4762 131.1943,-31.5077 131.2984,-31.5504 131.3218,-31.56 131.4957,-31.6349 131.598,-31.6865 131.6444,-31.712 131.8553,-31.8462 131.9658,-31.935 131.9829,-31.954 132.001,-31.973 132.0243,-31.9908 132.0931,-32.0054 132.1557,-32.0018 132.2423,-31.9757 132.2834,-31.934 132.3167,-31.9164 132.3462,-31.9089 132.377,-31.9028 132.4121,-31.9 132.5918,-31.915 132.6129,-31.9201 132.6603,-31.942 132.6868,-31.9702 132.8009,-32.0556 132.8533,-32.0651 132.8928,-32.0839 132.9118,-32.1019 132.963,-32.1483 132.9938,-32.1544 133.0529,-32.1613 133.2439,-32.1771 133.3118,-32.1735 133.393,-32.1294 133.4076,-32.0786 133.4323,-32.0621 133.5,-32.0795 133.4893,-32.1164 133.5211,-32.1447 133.5517,-32.1642 133.5827,-32.1777 133.6525,-32.2144 133.6995,-32.2628 133.7278,-32.2929 133.7766,-32.3616 133.76,-32.3853 133.7287,-32.379 133.7095,-32.3682 133.6804,-32.424 133.6791,-32.5051 133.7166,-32.5117 133.7816,-32.4594 133.9399,-32.417 133.9687,-32.4211 134.0098,-32.4502 134.0312,-32.4672 134.0486,-32.4858 134.1018,-32.5519 134.1227,-32.6409 134.1019,-32.6919 134.0499,-32.747 134.0339,-32.7708 134.0195,-32.7201 133.9804,-32.689 133.9004,-32.6839 133.9552,-32.8057 134.0212,-32.9173 134.0947,-33.0828 134.0943,-33.1084 134.1552,-33.1653 134.2131,-33.145 134.234,-33.1273 134.4187,-33.1026 134.5145,-33.1299 134.5324,-33.14 134.6334,-33.3152 134.6528,-33.357 134.6829,-33.4343 134.6883,-33.4585 134.6934,-33.5036 134.6877,-33.5303 134.6731,-33.558 134.6657,-33.6 134.7556,-33.6645 134.8064,-33.6963 134.8585,-33.7306 134.8823,-33.7524 135.0184,-33.8812 135.0854,-33.9681 135.0973,-34.0819 135.1343,-34.1556 135.1737,-34.2504 135.2176,-34.4566 135.2012,-34.4872 135.2069,-34.5134 135.2192,-34.5445 135.2657,-34.5657 135.3204,-34.578 135.2211,-34.6051 135.169,-34.5754 135.0381,-34.4592 135.0352,-34.4332 135.0333,-34.3971 134.9766,-34.4649 134.9374,-34.5557 134.9721,-34.549 135.0407,-34.5261 135.0729,-34.5344 135.1509,-34.5857 135.2992,-34.7121 135.4067,-34.8268 135.4304,-34.8537 135.4438,-34.8815 135.4679,-34.9135 135.4894,-34.9187 135.5041,-34.9143 135.5254,-34.871 135.5301,-34.8488 135.5482,-34.8284 135.5794,-34.8188 135.6107,-34.8211 135.6391,-34.8309 135.6707,-34.8511 135.7542,-34.9273 135.7804,-34.9689 135.8286,-34.9526 135.8436,-34.756 135.8305,-34.7037 135.7777,-34.728 135.726,-34.7679 135.6967,-34.7807 135.6532,-34.7855 135.6279,-34.7762 135.6987,-34.5994 135.7608,-34.4979 135.7909,-34.4769 135.8639,-34.4449 135.9494,-34.3236 135.9721,-34.3079 136.0083,-34.2993 136.0301,-34.2934 136.0646,-34.2586 136.0802,-34.2387 136.1293,-34.1605 136.1415,-34.1518 136.1746,-34.0837 136.1798,-34.052 136.2365,-34.0027 136.4029,-33.8936 136.4839,-33.8524 136.6863,-33.7688 136.725,-33.7352 136.7067,-33.7244 136.7719,-33.643 136.8006,-33.6506 136.8423,-33.6792 136.9641,-33.6759 136.9874,-33.6655 137.0319,-33.6282 137.0486,-33.6053 137.101,-33.5242 137.1829,-33.3919 137.2009,-33.3459 137.197,-33.3142 137.2002,-33.2832 137.2069,-33.2626 137.2646,-33.1571 137.3097,-33.0903 137.4168,-32.9924 137.5438,-32.9583 137.5958,-32.9558 137.6287,-32.8108 137.6222,-32.704 137.613,-32.6855 137.5993,-32.6699 137.5763,-32.6591 137.5753,-32.5394 137.5761,-32.5145 137.5841,-32.4958 137.6372,-32.5302 137.6509,-32.5946 137.6649,-32.6514 137.7174,-32.7503 137.775,-32.9721 137.7984,-32.9845 137.8296,-32.9916 137.8602,-33.0407 137.8675,-33.092 137.8401,-33.1107 137.7759,-33.112 137.7229,-33.13 137.6658,-33.1647 137.6491,-33.1857 137.6354,-33.2404 137.6684,-33.2854 137.7369,-33.4036 137.7627,-33.4726 137.7695,-33.5217 137.753,-33.5573 137.7318,-33.5603 137.711,-33.5674 137.599,-33.6594 137.4536,-33.8109 137.4245,-33.8457 137.4166,-33.9178 137.377,-34.0268 137.3653,-34.0573 137.3366,-34.1048 137.3251,-34.1123 137.2878,-34.1051 137.2734,-34.1221 137.2912,-34.1541 137.3089,-34.204 137.3149,-34.2477 137.3028,-34.4328 137.3204,-34.6198 137.2762,-34.8575 137.2689,-34.8776 137.256,-34.8997 137.2284,-34.9175 137.2069,-34.9214 137.1209,-34.8897 137.1038,-34.8673 137.0155,-34.8716 136.9577,-34.8889 136.93,-34.8901 136.902,-34.8833 136.8748,-34.87 136.8467,-34.8629 136.7997,-34.9195 136.7796,-35.0202 136.7833,-35.0603 136.7596,-35.1078 136.7172,-35.1501 136.6911,-35.1626 136.6545,-35.212 136.6824,-35.2514 136.7151,-35.2644 136.7725,-35.247 136.7897,-35.2295 136.83,-35.2007 136.8502,-35.1909 136.8763,-35.1883 136.8994,-35.1922 136.9368,-35.2051 136.9598,-35.2089 136.9891,-35.2083 137.0135,-35.1955 137.0278,-35.1747 137.0392,-35.1514 137.0561,-35.1386 137.2433,-35.0806 137.2819,-35.0745 137.3541,-35.0894 137.3888,-35.0978 137.4179,-35.1101 137.4528,-35.1328 137.4963,-35.142 137.57,-35.0932 137.5754,-35.0546 137.571,-35.0101 137.6313,-34.8345 137.6485,-34.8001 137.6968,-34.6722 137.7081,-34.6185 137.7084,-34.5614 137.7103,-34.4864 137.7458,-34.3865 137.7617,-34.3684 137.7939,-34.3475 137.8112,-34.3342 137.8401,-34.3055 137.8547,-34.2632 137.8405,-34.2461 137.8278,-34.2187 137.8891,-34.1012 137.9132,-34.0964 137.9726,-34.1685 138.0404,-34.2764 138.0564,-34.3183 138.0633,-34.3444 138.0862,-34.42 138.0956,-34.4412 138.1107,-34.4618 138.2237,-34.575 138.2406,-34.5885 138.256,-34.6034 138.3167,-34.6899 138.3251,-34.7341 138.3018,-34.8235 138.3072,-34.8546 138.3189,-34.895 138.3325,-34.9655 138.3348,-34.9854 138.3299,-35.0061 138.3125,-35.0309 138.2965,-35.0497 138.286,-35.0735 138.2759,-35.1373 138.2882,-35.1719 138.2594,-35.3041 138.1063,-35.4392 138.0793,-35.4543 138.0371,-35.4732 138.0151,-35.4811 137.974,-35.493 137.9494,-35.5137 137.9142,-35.5792 137.9583,-35.6127 137.9707,-35.6208 137.9958,-35.6295 138.0228,-35.6311 138.3566,-35.6134 138.4114,-35.5825 138.4306,-35.5634 138.4472,-35.5411 138.4707,-35.5228 138.5418,-35.4986 138.5974,-35.4957 138.6281,-35.4984 138.6556,-35.5053 138.7205,-35.5146 138.7853,-35.5203 138.8109,-35.5173 138.8556,-35.4698 138.8368,-35.4504 138.8073,-35.4449 138.7793,-35.4355 138.7697,-35.4091 138.7754,-35.3878 138.7898,-35.3686 138.8099,-35.3578 138.8407,-35.3509 138.8783,-35.3527 138.8992,-35.3527 138.9544,-35.339 139.0091,-35.2928 139.0323,-35.2768 139.0567,-35.2823 139.1762,-35.3347 139.1926,-35.4304 139.1808,-35.5639 139.1551,-35.6511 139.0611,-35.6596 139.0456,-35.6423 139.0574,-35.5569 139.0545,-35.517 138.9792,-35.4638 138.9533,-35.4652 138.9174,-35.4841 138.9191,-35.5725 138.9426,-35.5977 138.9736,-35.6169 139.0056,-35.6365 139.1148,-35.7326 139.2667,-35.8436 139.3072,-35.8789 139.3576,-35.9271 139.3852,-35.9549 139.407,-35.9804 139.4227,-36.0009 139.4678,-36.1063 139.4816,-36.1464 139.4784,-36.1756 139.4613,-36.1443 139.4306,-36.0852 139.4025,-36.0479 139.2949,-35.9193 139.2227,-35.8466 139.1622,-35.7992 138.9507,-35.6522 138.9292,-35.641 138.9021,-35.6395 139.0087,-35.7102 139.1086,-35.7979 139.1437,-35.8275 139.1907,-35.87 139.2259,-35.9031 139.2416,-35.9186 139.3128,-35.995 139.3274,-36.0154 139.4664,-36.169 139.4915,-36.2138 139.6408,-36.5132 139.6442,-36.5367 139.6716,-36.5935 139.678,-36.6194 139.6823,-36.6906 139.6823,-36.7206 139.6787,-36.7532 139.6716,-36.7847 139.6627,-36.8023 139.6398,-36.8331 139.6101,-36.8577 139.5688,-36.88 139.5505,-36.9725 139.597,-37.0659 139.5998,-37.1062 139.5805,-37.1262 139.5679,-37.1579 139.6143,-37.2314 139.6306,-37.2576 139.6575,-37.2892 139.8094,-37.45 139.8411,-37.4474 139.8654,-37.4483 139.8961,-37.4622 139.9369,-37.4884 140.0533,-37.6294 140.1499,-37.7768 140.1706,-37.8191 140.3439,-37.9573 140.4001,-37.9893 140.4855,-38.0245 140.5121,-38.029 140.5853,-38.0311 140.6359,-38.0146 140.6642,-38.0118 140.7529,-38.0165 140.7814,-38.0214 140.8152,-38.0311 140.8184,-38.0323 140.8108,-35.2389 140.8069,-34.0814 140.8073,-34.0092 140.8045,-33.9915 140.8067,-33.9858 140.8101,-33.9596 140.8188,-33.9707 140.8281,-33.9899 140.8327,-33.9917 140.8501,-33.9809 140.85,-33.8767 140.85,-32.5311 140.8535,-25.9526 137.8488,-25.9518 137.8462,-16.5465 137.8347,-16.5361 137.806,-16.5085 137.7683,-16.475 137.7214,-16.4381 137.6936,-16.4196 137.6511,-16.3555 137.6266,-16.3091 137.6087,-16.2823 137.5726,-16.2332 137.4817,-16.1899 137.4206,-16.1695 137.379,-16.1564 137.3479,-16.1572 137.3239,-16.1582 137.2698,-16.1381 137.2048,-16.1092 137.175,-16.0892 137.1377,-16.0621 137.1171,-16.0438 136.9727,-15.9504 136.867,-15.8969 136.7571,-15.8885 136.6974,-15.8942 136.6027,-15.8865 136.5544,-15.8451 136.5081,-15.7824 136.4356,-15.7214 136.4058,-15.7007 136.2948,-15.6404 136.1788,-15.5944 136.1577,-15.5852 136.1175,-15.5497 136.103,-15.5228 136.0906,-15.4577 136.079,-15.4009 136.0501,-15.377 135.8951,-15.2984 135.783,-15.242 135.7754,-15.2365 135.7541,-15.2096 135.7211,-15.1798 135.6906,-15.1605 135.5097,-15.0473 135.4481,-15.0278 135.4276,-15.0221 135.3822,-15.0023 135.316,-14.9478 135.2912,-14.9159 135.2742,-14.8856 135.2525,-14.8341 135.246,-14.8134 135.2137,-14.7121 135.2541,-14.7128 135.3469,-14.6527 135.3792,-14.63 135.3724,-14.6028 135.3818,-14.557 135.3927,-14.5327 135.4027,-14.5144 135.4631,-14.4211 135.5951,-14.255 135.6161,-14.2336 135.6461,-14.2147 135.7116,-14.1784 135.7394,-14.1267 135.7511,-14.0515 135.7679,-13.946 135.8322,-13.8508 135.864,-13.7467 135.8699,-13.6722 135.8522,-13.7002 135.8267,-13.7202 135.8041,-13.731 135.7713,-13.7335 135.7329,-13.7131 135.6904,-13.5883 135.6889,-13.5656 135.7091,-13.4764 135.7534,-13.4405 135.78,-13.3816 135.7397,-13.3509 135.7367,-13.3234 135.7726,-13.2628 135.8389,-13.2098 135.9426,-13.1698 135.9909,-13.1884 136.005,-13.227 136.0457,-13.224 136.0891,-13.1904 136.1314,-13.1515 136.1545,-13.0857 136.1712,-13.0465 136.2023,-13.0388 136.2176,-13.0543 136.2165,-13.1594 136.213,-13.2321 136.2536,-13.2244 136.294,-13.2054 136.3028,-13.2375 136.3215,-13.1974 136.3737,-13.1352 136.3908,-13.0402 136.3919,-12.9432 136.3305,-12.8312 136.3408,-12.7648 136.4669,-12.8109 136.4898,-12.6896 136.592,-12.5298 136.6506,-12.4632 136.8042,-12.3676 136.825,-12.3441 136.7782,-12.2697 136.7236,-12.209 136.623,-12.1579 136.5414,-12.1776 136.5359,-12.1971 136.5702,-12.2019 136.6014,-12.2205 136.6045,-12.2422 136.5659,-12.2693 136.5204,-12.2704 136.4633,-12.1927 136.4494,-12.1694 136.3874,-11.9959 136.4103,-11.9207 136.2993,-11.9404 136.1297,-12.0519 136.0259,-12.153 136.03,-12.1778 136.0908,-12.2031 136.1384,-12.1996 136.1605,-12.1925 136.1852,-12.1917 136.2115,-12.226 136.1966,-12.277 136.1413,-12.4003 136.0877,-12.4409 136.0185,-12.4471 136.0044,-12.4234 135.9286,-12.4316 135.8967,-12.446 135.8873,-12.4577 135.8819,-12.4557 135.8582,-12.4307 135.8311,-12.3638 135.9114,-12.25 135.8939,-12.2201 135.8639,-12.2321 135.847,-12.2501 135.82,-12.2539 135.7864,-12.2032 135.8716,-12.0981 135.7319,-12.138 135.6498,-12.2043 135.6348,-12.2447 135.5839,-12.2668 135.5371,-12.2235 135.5231,-12.2009 135.5176,-12.1768 135.5221,-12.1458 135.6373,-12.0299 135.5951,-11.981 135.7048,-11.8811 135.7653,-11.8392 135.7957,-11.7909 135.7846,-11.7716 135.7621,-11.7521 135.7255,-11.7513 135.7316,-11.7813 135.7298,-11.8215 135.6873,-11.8591 135.6026,-11.9215 135.5824,-11.9274 135.5574,-11.9225 135.5349,-11.9199 135.4424,-11.944 135.4214,-12.0193 135.4316,-12.0442 135.4614,-12.0259 135.4883,-12.0111 135.5119,-12.0235 135.4352,-12.0847 135.2868,-12.1016 135.2687,-12.0882 135.2287,-12.0765 135.1776,-12.0981 135.1159,-12.1582 135.091,-12.21 135.0751,-12.2615 135.0801,-12.2804 135.0413,-12.2629 134.9331,-12.2528 134.8466,-12.1824 134.7564,-12.1276 134.7202,-12.118 134.6512,-12.0296 134.6214,-11.9823 134.5229,-11.9877 134.4489,-12.0425 134.3664,-12.053 134.3449,-12.0537 134.2714,-12.0449 134.2451,-12.0365 134.2203,-12.024 134.0571,-12.0479 134.0385,-12.0323 134.0247,-11.9521 134.0364,-11.9328 133.9014,-11.8308 133.8785,-11.8345 133.8663,-11.8507 133.8493,-11.873 133.7939,-11.8987 133.7224,-11.8694 133.6909,-11.8407 133.6863,-11.8162 133.7017,-11.7928 133.771,-11.7539 133.7598,-11.7229 133.684,-11.7043 133.6513,-11.705 133.6353,-11.7354 133.614,-11.7544 133.5171,-11.806 133.4684,-11.8211 133.4007,-11.8192 133.2591,-11.7606 133.209,-11.6883 133.1596,-11.6862 133.1038,-11.7238 133.0906,-11.7216 133.0566,-11.7115 133.0354,-11.7034 133.0142,-11.6904 132.9987,-11.6746 132.9519,-11.5978 132.926,-11.5466 132.905,-11.4895 132.8498,-11.4069 132.7957,-11.3491 132.7715,-11.3242 132.728,-11.3203 132.6876,-11.3874 132.6257,-11.4709 132.5795,-11.5065 132.5252,-11.4952 132.503,-11.4771 132.3674,-11.2955 132.3573,-11.2517 132.3125,-11.2051 132.1948,-11.1174 132.1304,-11.1511 132.0355,-11.1193 132.0011,-11.1273 132.0247,-11.1788 132.0469,-11.2096 132.0897,-11.3425 132.0589,-11.3969 132.0201,-11.3935 131.9446,-11.2171 131.8599,-11.1232 131.8389,-11.1149 131.7289,-11.1647 131.6274,-11.2824 131.619,-11.2937 131.6255,-11.3046 131.6518,-11.3088 131.685,-11.3004 131.7198,-11.2963 131.7572,-11.3097 131.825,-11.3513 131.8444,-11.4168 131.9164,-11.4974 131.9409,-11.5118 131.9596,-11.5132 132.0162,-11.479 132.0836,-11.4482 132.2265,-11.4249 132.25,-11.428 132.3019,-11.4385 132.3436,-11.464 132.3935,-11.5344 132.5111,-11.6224 132.5445,-11.6451 132.4992,-11.7151 132.4879,-11.7317 132.4776,-11.7954 132.4801,-12.0191 132.4906,-12.0647 132.5619,-12.1168 132.6011,-12.1218 132.5683,-12.1321 132.535,-12.1269 132.4535,-12.1037 132.4303,-12.0893 132.2965,-12.1365 132.2767,-12.1716 132.2796,-12.2145 132.2863,-12.2395 132.2969,-12.288 132.2895,-12.3115 132.2583,-12.3459 132.2355,-12.366 132.236,-12.3448 132.2482,-12.3197 132.2694,-12.2931 132.2362,-12.2176 132.2132,-12.1883 132.0759,-12.1861 131.9149,-12.2952 131.8278,-12.2726 131.784,-12.2542 131.6274,-12.2608 131.5892,-12.2684 131.5283,-12.2745 131.3457,-12.2834 131.3132,-12.2811 131.2897,-12.2751 131.2676,-12.2641 131.2241,-12.234 131.1974,-12.2098 131.067,-12.2037 131.0263,-12.1794 130.9679,-12.1399 130.8781,-12.1359 130.8523,-12.173 130.8569,-12.1938 130.8799,-12.2269 130.8895,-12.3127 130.8803,-12.3441 130.8329,-12.3412 130.7795,-12.3342 130.7393,-12.3402 130.701,-12.3591 130.6793,-12.3925 130.6691,-12.4306 130.701,-12.4482 130.8073,-12.5222 130.7495,-12.5932 130.7495,-12.6261 130.6238,-12.4156 130.5098,-12.3751 130.4822,-12.3712 130.448,-12.3757 130.4333,-12.3907 130.4631,-12.4131 130.456,-12.4927 130.4446,-12.5206 130.4289,-12.5566 130.4402,-12.6154 130.4572,-12.6623 130.4974,-12.6667 130.5417,-12.6867 130.4804,-12.6963 130.4539,-12.693 130.4078,-12.6488 130.3626,-12.59 130.2077,-12.6584 130.1974,-12.6916 130.2073,-12.7252 130.2059,-12.8242 130.1938,-12.8615 130.1807,-12.8795 130.1478,-12.9053 130.1161,-12.924 130.0788,-12.9319 130.049,-12.9185 130.0352,-12.8931 129.9937,-12.9114 129.9776,-12.9557 129.9682,-13.052 129.9684,-13.1327 129.9764,-13.1543 130.0102,-13.1613 130.0442,-13.1889 130.1068,-13.273 130.1164,-13.3103 130.0156,-13.414 129.9665,-13.4473 129.8928,-13.4946 129.8445,-13.5108 129.8155,-13.5156 129.7957,-13.5121 129.761,-13.4927 129.7517,-13.4298 129.6807,-13.5015 129.64,-13.6526 129.6335,-13.6829 129.6384,-13.7284 129.5969,-13.9482 129.5829,-13.979 129.564,-13.9974 129.5465,-14.0073 129.4311,-14.0701 129.3425,-14.126 129.2803,-14.2063 129.2198,-14.3172 129.2077,-14.3975 129.3039,-14.4866 129.3884,-14.5337 129.4387,-14.5517 129.508,-14.5558 129.5605,-14.5423 129.6209,-14.5191 129.6169,-14.5408 129.5514,-14.5853 129.5183,-14.5925 129.4956,-14.5925 129.4721,-14.594 129.4345,-14.6115 129.4514,-14.6578 129.5229,-14.7495 129.566,-14.78 129.613,-14.8061 129.6525,-14.7982 129.7916,-14.7512 129.776,-14.7733 129.7117,-14.8261 129.6486,-14.8472 129.5443,-14.8369 129.4946,-14.8211 129.4909,-14.8559 129.4833,-14.8881 129.4609,-14.9299 129.4728,-15.0047 129.5097,-15.0785 129.5421,-15.1138 129.5782,-15.1651 129.5229,-15.1859 129.5149,-15.1374 129.4777,-15.0903 129.3338,-14.9322 129.3092,-14.9138 129.1801,-14.8502 129.0772,-14.8225 129.0659,-14.8446 129.0847,-14.9844 129.1032,-15.0869 129.0379,-15.1655 129.0214,-15.1452 129.0325,-14.9631 128.9372,-14.8824 128.9115,-14.8705 128.8477,-14.8544 128.8471,-14.8542 128.8471,-14.8649 128.846,-25.9493 128.8398,-31.6558 128.846,-31.6546 1011,10.0,Australia 137.8462,-16.5465 137.9007,-16.5959 137.953,-16.6357 137.9815,-16.6571 138.029,-16.6883 138.1246,-16.7234 138.2688,-16.7598 138.3004,-16.7663 138.3206,-16.7687 138.3478,-16.7693 138.4233,-16.7645 138.4731,-16.7603 138.4924,-16.7691 138.5207,-16.7938 138.6763,-16.8566 138.7007,-16.8615 138.74,-16.8659 138.7669,-16.8662 138.8203,-16.8713 138.8435,-16.8802 138.8639,-16.8956 138.974,-17.0547 138.9755,-17.1043 138.9783,-17.128 138.983,-17.1493 138.995,-17.1834 139.0452,-17.2774 139.0763,-17.3094 139.0927,-17.3228 139.1156,-17.3346 139.1688,-17.3481 139.2058,-17.352 139.244,-17.3517 139.2692,-17.3594 139.3672,-17.4221 139.4201,-17.4695 139.4478,-17.5009 139.473,-17.5148 139.4965,-17.522 139.5239,-17.5299 139.5778,-17.5439 139.6114,-17.5512 139.6452,-17.5554 139.7139,-17.5944 139.7829,-17.6461 139.8103,-17.6772 139.8495,-17.6926 139.8894,-17.6985 139.963,-17.699 140.205,-17.6596 140.2271,-17.6534 140.3252,-17.621 140.3646,-17.6047 140.4503,-17.5603 140.4679,-17.547 140.4913,-17.5286 140.588,-17.458 140.6161,-17.4436 140.6409,-17.4386 140.6635,-17.4323 140.6897,-17.3914 140.7075,-17.3588 140.7159,-17.3401 140.7725,-17.1316 140.7828,-17.0778 140.7853,-17.0401 140.7781,-17.004 140.7871,-16.982 140.8028,-16.9621 140.8814,-16.8649 141.0091,-16.706 141.025,-16.6849 141.0447,-16.6488 141.0994,-16.5244 141.1165,-16.4848 141.1287,-16.43 141.146,-16.339 141.1577,-16.3136 141.1809,-16.238 141.2441,-16.0889 141.2575,-16.056 141.2315,-15.8878 141.2542,-15.7243 141.2629,-15.6616 141.2674,-15.6374 141.2921,-15.5186 141.3034,-15.4867 141.4035,-15.2614 141.4668,-15.1321 141.4978,-15.0094 141.4911,-14.9764 141.465,-14.921 141.4509,-14.8973 141.4398,-14.8777 141.4284,-14.8448 141.4001,-14.747 141.3555,-14.4649 141.3569,-14.4329 141.3713,-14.3821 141.3804,-14.3575 141.4013,-14.3069 141.422,-14.2634 141.4286,-14.2393 141.435,-14.1763 141.436,-14.1278 141.4292,-14.0883 141.4146,-14.0496 141.3882,-14.0165 141.3593,-13.9936 141.3386,-13.9696 141.3142,-13.9327 141.3065,-13.9099 141.3027,-13.8813 141.303,-13.8527 141.3062,-13.8123 141.3111,-13.7815 141.3174,-13.7516 141.3354,-13.6644 141.3426,-13.6346 141.3559,-13.5888 141.3802,-13.5175 141.3994,-13.4768 141.4511,-13.3995 141.5221,-13.2659 141.5277,-13.239 141.5258,-13.218 141.5166,-13.195 141.4901,-13.1783 141.4703,-13.1446 141.4258,-12.9716 141.4337,-12.9429 141.4467,-12.92 141.4821,-12.8963 141.5488,-12.8563 141.5633,-12.8406 141.588,-12.81 141.6072,-12.7786 141.6313,-12.7051 141.6374,-12.6767 141.6632,-12.6772 141.6973,-12.6949 141.7296,-12.7491 141.7331,-12.7821 141.7312,-12.807 141.7301,-12.829 141.7717,-12.8926 141.7802,-12.8503 141.7243,-12.6898 141.68,-12.658 141.6099,-12.5556 141.5689,-12.4986 141.5589,-12.479 141.5888,-12.4555 141.5691,-12.4413 141.5036,-12.4368 141.4949,-12.4957 141.5025,-12.5179 141.5263,-12.5375 141.4681,-12.5552 141.4336,-12.5402 141.4355,-12.5174 141.4481,-12.4949 141.4631,-12.4682 141.5016,-12.3873 141.5105,-12.368 141.53,-12.3179 141.5948,-12.2326 141.6178,-12.1998 141.602,-12.1649 141.6475,-12.0381 141.6623,-12.0144 141.6912,-11.9748 141.7348,-11.9553 141.7333,-11.9807 141.7587,-12.0752 141.8655,-12.054 141.8737,-12.0299 141.8207,-11.9678 141.7928,-11.952 141.7887,-11.9108 141.8,-11.8374 141.8112,-11.7951 141.8987,-11.5371 141.9247,-11.4725 141.9433,-11.4339 141.966,-11.3599 141.9722,-11.3239 142.0024,-11.1366 142.0023,-11.1113 142.0003,-11.0799 141.9965,-11.0385 141.9912,-11.012 141.9817,-10.9611 141.9912,-10.9368 142.0283,-10.9106 142.0552,-10.9108 142.1479,-10.8952 142.1864,-10.8831 142.243,-10.8096 142.2555,-10.7835 142.2607,-10.7565 142.2675,-10.7286 142.2882,-10.6975 142.3623,-10.6945 142.4003,-10.7095 142.4564,-10.7386 142.4256,-10.7863 142.3597,-10.8458 142.3527,-10.9378 142.3741,-10.9232 142.3974,-10.878 142.4159,-10.8577 142.4522,-10.8601 142.5676,-10.9503 142.5879,-10.9742 142.6312,-11.0678 142.6469,-11.1547 142.7031,-11.3488 142.708,-11.3783 142.6823,-11.498 142.698,-11.6099 142.7091,-11.7025 142.7078,-11.7288 142.702,-11.7647 142.7014,-11.8198 142.7195,-11.845 142.8097,-11.914 142.8292,-11.9221 142.8554,-11.923 142.8786,-11.9193 142.9016,-11.9051 142.9236,-11.893 142.9444,-11.89 142.9724,-11.9013 143.04,-11.9737 143.0018,-12.0323 142.9879,-12.0536 142.9428,-12.1266 142.922,-12.2112 142.9152,-12.2783 142.9176,-12.3203 142.969,-12.3351 143.0002,-12.3266 143.0515,-12.3502 143.0623,-12.3629 143.0884,-12.3691 143.1153,-12.399 143.1163,-12.445 143.1113,-12.4755 143.1185,-12.5034 143.163,-12.5487 143.2008,-12.5519 143.2523,-12.579 143.2689,-12.6026 143.2499,-12.6633 143.2301,-12.6992 143.2138,-12.7284 143.2051,-12.7658 143.1987,-12.8134 143.2005,-12.8343 143.2441,-12.8558 143.3135,-12.8482 143.3425,-12.8447 143.3523,-12.8644 143.3477,-12.9868 143.3433,-13.0297 143.3382,-13.0582 143.3357,-13.0839 143.3537,-13.2543 143.3583,-13.2892 143.3651,-13.3255 143.3812,-13.3492 143.4049,-13.3622 143.4311,-13.4169 143.4226,-13.5109 143.4137,-13.546 143.389,-13.626 143.3662,-13.7406 143.3806,-13.7867 143.436,-13.9202 143.4503,-13.94 143.4743,-13.9643 143.5035,-13.9869 143.5197,-14.0073 143.5276,-14.054 143.537,-14.1265 143.5319,-14.1693 143.5451,-14.2233 143.5697,-14.3031 143.6056,-14.3788 143.6144,-14.3969 143.63,-14.416 143.6482,-14.4332 143.6923,-14.4619 143.7195,-14.4707 143.7661,-14.4756 143.7953,-14.477 143.8437,-14.4713 143.9242,-14.421 143.9857,-14.3639 144.174,-14.2852 144.2214,-14.2642 144.2674,-14.2378 144.2816,-14.2205 144.2948,-14.1953 144.3034,-14.1729 144.3087,-14.1469 144.3483,-14.1557 144.3913,-14.2138 144.4106,-14.247 144.3994,-14.2876 144.3985,-14.3422 144.4456,-14.4683 144.5075,-14.5409 144.6141,-14.5817 144.6583,-14.5973 144.6801,-14.6 144.7268,-14.6015 144.7622,-14.673 144.7697,-14.7169 144.7889,-14.7371 144.8249,-14.7518 144.905,-14.7865 145.0353,-14.8457 145.1439,-14.9287 145.1375,-14.9873 145.1128,-15.0178 145.0991,-15.0395 145.0828,-15.0658 145.0709,-15.088 145.0622,-15.1174 145.0619,-15.1427 145.0655,-15.1759 145.1044,-15.2395 145.1128,-15.2871 145.1167,-15.3138 145.076,-15.4289 145.1051,-15.4718 145.1318,-15.5373 145.1861,-15.7163 145.1884,-15.7445 145.1837,-15.801 145.1793,-15.8679 145.1857,-15.8975 145.2028,-15.9133 145.2216,-15.9262 145.2363,-15.9465 145.2758,-16.0197 145.2884,-16.0649 145.2721,-16.2691 145.2448,-16.3019 145.2348,-16.3196 145.2278,-16.4225 145.2371,-16.4516 145.2899,-16.4837 145.335,-16.5425 145.4415,-16.6799 145.4931,-16.7182 145.5531,-16.7973 145.598,-16.866 145.6307,-16.8941 145.6633,-16.8672 145.7562,-16.8519 145.7799,-16.8801 145.7356,-16.9524 145.7204,-16.9787 145.7025,-17.0212 145.7072,-17.0523 145.7782,-17.1692 145.856,-17.3447 145.9092,-17.5331 145.9279,-17.6717 145.9095,-17.7673 145.9241,-17.8696 145.9172,-17.9354 145.9024,-17.9663 145.8865,-17.985 145.8605,-18.0305 145.8248,-18.1219 145.8247,-18.1554 145.8326,-18.2176 145.8467,-18.2481 146.0346,-18.4707 146.051,-18.484 146.08,-18.4902 146.116,-18.4937 146.1562,-18.5145 146.16,-18.5459 146.155,-18.5965 146.1488,-18.6263 146.1272,-18.6601 146.1135,-18.6894 146.1037,-18.726 146.0909,-18.8324 146.1001,-18.8656 146.1582,-18.939 146.202,-18.9765 146.2461,-19.0039 146.2703,-19.0496 146.3874,-19.1218 146.4566,-19.1538 146.4763,-19.1624 146.5213,-19.1718 146.5597,-19.1597 146.5856,-19.165 146.6367,-19.2212 146.7077,-19.281 146.7753,-19.284 146.8936,-19.321 146.9391,-19.3682 146.9609,-19.3807 147.0744,-19.4037 147.2528,-19.3905 147.2675,-19.3609 147.2594,-19.3415 147.243,-19.3201 147.2225,-19.2862 147.2484,-19.303 147.28,-19.3483 147.3762,-19.5134 147.3865,-19.5538 147.3968,-19.5992 147.4087,-19.6541 147.4158,-19.705 147.4395,-19.7508 147.4904,-19.8024 147.5449,-19.8147 147.5905,-19.8038 147.5829,-19.7814 147.5747,-19.7228 147.5818,-19.6879 147.6424,-19.6884 147.6716,-19.7179 147.6719,-19.7938 147.6842,-19.8284 147.7325,-19.8713 147.763,-19.8892 147.7922,-19.896 147.8232,-19.897 147.917,-19.8905 148.0399,-19.9246 148.0897,-19.9685 148.1192,-20.0153 148.0867,-20.0272 148.095,-20.0541 148.1538,-20.1227 148.2335,-20.1837 148.2862,-20.1618 148.2905,-20.1027 148.2593,-20.0757 148.273,-20.0408 148.3421,-20.0655 148.3838,-20.0983 148.457,-20.1601 148.4928,-20.1931 148.5884,-20.2097 148.6227,-20.2538 148.6551,-20.3653 148.6858,-20.4218 148.7099,-20.4304 148.7229,-20.4318 148.7532,-20.5116 148.7282,-20.5113 148.6974,-20.4982 148.675,-20.485 148.6497,-20.452 148.6094,-20.434 148.5602,-20.4527 148.4863,-20.5384 148.5109,-20.601 148.5481,-20.6941 148.6685,-20.8126 148.7398,-20.8594 148.8465,-20.895 148.9784,-20.9916 149.0326,-21.0561 149.0229,-21.1306 149.0575,-21.2544 149.107,-21.2947 149.1119,-21.3157 149.1458,-21.4134 149.2026,-21.5069 149.26,-21.5582 149.2585,-21.6052 149.2468,-21.7486 149.2863,-21.8874 149.337,-22.0522 149.4056,-22.2084 149.4691,-22.2929 149.5123,-22.3252 149.5185,-22.3553 149.5149,-22.4272 149.4847,-22.4696 149.5282,-22.4531 149.5516,-22.438 149.6048,-22.397 149.6299,-22.3587 149.7827,-22.5217 149.7919,-22.5454 149.7915,-22.5607 149.8528,-22.6153 149.8269,-22.5202 149.8015,-22.4502 149.7682,-22.3856 149.7361,-22.3255 149.7368,-22.2783 149.7755,-22.1831 149.7908,-22.1566 149.8151,-22.1353 149.8592,-22.124 149.8944,-22.1376 149.9704,-22.2471 150.0021,-22.3172 150.0005,-22.3493 150.0153,-22.3665 150.0524,-22.3839 150.1364,-22.4122 150.209,-22.4487 150.2333,-22.4752 150.2943,-22.5132 150.3717,-22.5516 150.4072,-22.5608 150.3496,-22.4333 150.349,-22.3582 150.3763,-22.3061 150.4488,-22.3177 150.5197,-22.416 150.49,-22.4795 150.4975,-22.5282 150.5559,-22.6035 150.6328,-22.7064 150.6177,-22.7557 150.6045,-22.831 150.5847,-22.95 150.5689,-23.1041 150.6249,-23.2118 150.6177,-23.2816 150.6099,-23.3094 150.6129,-23.3545 150.6792,-23.4785 150.7606,-23.5195 150.8352,-23.53 150.8534,-23.5559 150.864,-23.5906 150.9319,-23.6384 150.954,-23.6798 150.967,-23.7449 150.9794,-23.7655 151.0502,-23.8011 151.0829,-23.8006 151.1294,-23.8315 151.2079,-23.9219 151.2347,-23.9515 151.2733,-23.9683 151.3034,-23.9703 151.3571,-24.009 151.3506,-24.0186 151.3417,-24.0314 151.3484,-24.0591 151.3758,-24.0696 151.4244,-24.0255 151.4264,-23.971 151.4502,-23.9504 151.4943,-23.9619 151.5982,-24.0719 151.6904,-24.154 151.7159,-24.1671 151.7429,-24.1906 151.7541,-24.2082 151.7905,-24.3096 151.7969,-24.3375 151.8105,-24.3797 151.8192,-24.3987 151.8338,-24.4264 151.8613,-24.4759 151.9405,-24.5804 152.012,-24.6395 152.0856,-24.6823 152.1198,-24.6989 152.1537,-24.7096 152.1984,-24.7168 152.2265,-24.7324 152.2536,-24.7568 152.2757,-24.7843 152.2955,-24.8141 152.3056,-24.8495 152.3045,-24.8834 152.3011,-24.9077 152.3053,-24.9446 152.3153,-24.9695 152.3325,-25.0075 152.3675,-25.0591 152.4772,-25.2165 152.5283,-25.2327 152.6146,-25.2543 152.6597,-25.2538 152.7135,-25.2605 152.7519,-25.4079 152.7394,-25.4961 152.6984,-25.5334 152.7036,-25.6501 152.7253,-25.7063 152.7584,-25.735 152.789,-25.7428 152.8276,-25.8077 152.8424,-25.8614 152.8692,-25.8712 152.9041,-25.8805 152.9861,-25.92 152.9897,-25.9441 152.9416,-26.0384 152.9046,-26.1495 152.8949,-26.1888 152.8761,-26.279 152.8804,-26.318 152.8945,-26.3436 152.908,-26.4764 152.9189,-26.6393 152.9346,-26.6539 152.9467,-26.6999 152.9592,-26.9251 152.9604,-27.0524 152.8989,-27.07 152.874,-27.0895 152.8592,-27.1072 152.8432,-27.1345 152.8379,-27.146 152.868,-27.2825 152.8935,-27.3025 152.9775,-27.358 153.059,-27.4486 153.071,-27.4717 153.1075,-27.5738 153.1148,-27.6148 153.1214,-27.64 153.1799,-27.7217 153.2058,-27.7459 153.2352,-27.817 153.2261,-27.8821 153.2125,-27.9503 153.2524,-28.0432 153.2625,-28.061 153.2911,-28.1074 153.3081,-28.1185 153.3283,-28.1451 153.3575,-28.1515 153.3795,-28.1763 153.3935,-28.2419 153.3864,-28.33 153.3788,-28.3751 153.3713,-28.4055 153.3638,-28.4272 153.3615,-28.4596 153.3643,-28.4977 153.3725,-28.5515 153.3801,-28.5734 153.3931,-28.5895 153.4087,-28.6029 153.4256,-28.6287 153.4077,-28.8296 153.3807,-28.8647 153.3636,-28.8801 153.3345,-28.9026 153.32,-28.9177 153.2934,-28.9497 153.2776,-28.9698 153.2497,-29.0112 153.2359,-29.0427 153.1578,-29.239 153.1471,-29.2675 153.1392,-29.2954 153.143,-29.3235 153.1614,-29.3451 153.1673,-29.3654 153.1483,-29.496 153.0939,-29.7479 153.0554,-29.9187 153.0063,-30.0807 152.9716,-30.171 152.9393,-30.2249 152.8339,-30.4797 152.82,-30.5341 152.8146,-30.5746 152.8065,-30.6862 152.8052,-30.7498 152.8052,-30.779 152.8068,-30.8007 152.8231,-30.8491 152.8582,-30.8529 152.8764,-30.9136 152.8538,-31.0002 152.7743,-31.208 152.7553,-31.3242 152.6877,-31.5038 152.6629,-31.571 152.6501,-31.6209 152.6297,-31.6687 152.5617,-31.7749 152.486,-31.854 152.4663,-31.8715 152.4517,-31.8865 152.4263,-31.9129 152.3951,-31.9482 152.3594,-31.9931 152.3138,-32.095 152.343,-32.2272 152.3315,-32.3671 152.1989,-32.4642 152.1793,-32.4748 152.158,-32.4916 152.13,-32.5163 152.0831,-32.5646 152.0295,-32.5946 151.9297,-32.6455 151.9217,-32.6885 151.9469,-32.7337 151.7992,-32.7763 151.7555,-32.7903 151.6403,-32.8351 151.6151,-32.8519 151.4718,-33.0327 151.4335,-33.127 151.3968,-33.1975 151.3772,-33.2298 151.3555,-33.2448 151.3321,-33.2393 151.3053,-33.2479 151.2578,-33.2795 151.248,-33.3248 151.2706,-33.3376 151.2902,-33.356 151.2579,-33.463 151.1437,-33.5907 151.1007,-33.8592 151.0765,-33.9311 151.0404,-33.9546 150.9823,-33.9492 150.9037,-33.9757 150.9589,-33.9875 150.9993,-34.0183 150.9179,-34.1278 150.8892,-34.1414 150.8678,-34.154 150.828,-34.1836 150.7807,-34.239 150.7642,-34.2599 150.7384,-34.293 150.645,-34.5195 150.6796,-34.5454 150.6858,-34.5601 150.678,-34.6223 150.6358,-34.7468 150.6057,-34.7571 150.587,-34.7654 150.5716,-34.7803 150.5609,-34.7985 150.5517,-34.8383 150.5868,-34.9225 150.6568,-34.9822 150.6418,-35.0488 150.6145,-35.0682 150.5819,-35.0388 150.5943,-35.0189 150.5802,-34.9727 150.5534,-34.9703 150.4905,-35.0028 150.4824,-35.0362 150.5083,-35.0873 150.4526,-35.1389 150.4223,-35.1486 150.3619,-35.1727 150.3455,-35.187 150.2908,-35.2712 150.2854,-35.3132 150.2115,-35.4877 150.161,-35.5548 150.0803,-35.6955 149.9675,-35.8999 149.942,-36.071 149.9486,-36.2173 149.9401,-36.287 149.9029,-36.3195 149.8814,-36.348 149.8701,-36.3868 149.8559,-36.4604 149.8272,-36.5869 149.7835,-36.7194 149.7702,-36.7534 149.7424,-36.8155 149.7063,-36.8815 149.71,-37.0274 149.7502,-37.0748 149.8097,-37.1198 149.8227,-37.1895 149.8222,-37.2226 149.793,-37.2149 149.751,-37.2397 149.7522,-37.3561 149.7589,-37.387 149.7792,-37.4316 149.782,-37.4588 149.7805,-37.4705 149.7741,-37.4797 149.7019,-37.5096 149.6264,-37.5159 149.5884,-37.5182 149.5492,-37.5565 149.4755,-37.6539 149.3811,-37.693 149.3656,-37.6945 149.3081,-37.716 149.26,-37.7408 149.1122,-37.7528 149.0576,-37.7509 148.8835,-37.7501 148.6298,-37.755 148.5786,-37.763 148.5567,-37.7694 148.4622,-37.7738 148.2976,-37.769 148.1133,-37.7789 148.0856,-37.7835 148.0111,-37.797 147.7683,-37.8594 147.7412,-37.8683 147.6508,-37.9025 147.5638,-37.9397 147.5387,-37.9537 147.4594,-37.9995 147.3925,-38.0399 147.3456,-38.0702 147.2341,-38.1515 147.1769,-38.1948 147.0174,-38.3196 146.9901,-38.345 146.9188,-38.4114 146.7925,-38.5259 146.7737,-38.5419 146.6779,-38.6081 146.6399,-38.6163 146.4543,-38.63 146.3064,-38.6567 146.2356,-38.6735 146.1577,-38.6543 146.066,-38.6584 146.0417,-38.6624 146.0241,-38.6722 145.9897,-38.7137 146.1007,-38.8728 146.2163,-38.8093 146.2237,-38.7816 146.2374,-38.749 146.2738,-38.762 146.2874,-39.0323 146.2287,-39.0905 146.2112,-39.1002 146.1976,-39.1031 146.1892,-39.1023 146.1506,-39.0857 146.1235,-39.0535 146.073,-38.9379 146.0516,-38.905 146.0309,-38.8777 146.0135,-38.858 145.9976,-38.8431 145.9703,-38.8189 145.9471,-38.8021 145.9255,-38.7916 145.8939,-38.7814 145.8702,-38.7762 145.8432,-38.7776 145.8211,-38.7883 145.8075,-38.8195 145.7094,-38.8129 145.629,-38.685 145.6399,-38.6611 145.6484,-38.6616 145.6528,-38.6549 145.6217,-38.6088 145.5904,-38.6001 145.5593,-38.5962 145.5335,-38.5977 145.4876,-38.6184 145.4642,-38.6335 145.4133,-38.6401 145.3722,-38.6213 145.2224,-38.5025 145.2228,-38.4802 145.2387,-38.4088 145.302,-38.3867 145.3267,-38.3798 145.362,-38.331 145.2926,-38.2051 145.2512,-38.1836 145.0628,-38.1943 145.0201,-38.3059 144.8375,-38.4538 144.7487,-38.4674 144.7085,-38.4624 144.5689,-38.3344 144.598,-38.3335 144.6216,-38.3397 144.6465,-38.3406 144.6877,-38.3345 144.7182,-38.3266 144.7484,-38.3174 144.7925,-38.2973 144.9268,-38.1246 144.9388,-38.094 144.9226,-38.0273 144.9072,-38.0002 144.7838,-37.849 144.7566,-37.8328 144.7263,-37.8257 144.6332,-37.8598 144.5556,-37.92 144.4998,-37.9609 144.4698,-37.9803 144.3354,-38.0583 144.1947,-38.0702 144.1772,-38.0835 144.1714,-38.1029 144.1832,-38.1199 144.2049,-38.1271 144.3214,-38.1384 144.3555,-38.133 144.399,-38.1173 144.4184,-38.1065 144.4454,-38.0908 144.4877,-38.0931 144.5144,-38.1061 144.5293,-38.135 144.5186,-38.1792 144.4669,-38.2419 144.442,-38.2567 144.4077,-38.2546 144.3784,-38.242 144.3566,-38.2404 144.2034,-38.2662 144.1714,-38.2811 143.8701,-38.441 143.807,-38.4936 143.7138,-38.5988 143.6503,-38.6527 143.5778,-38.6706 143.54,-38.6766 143.5035,-38.6966 143.492,-38.7103 143.4814,-38.74 143.3513,-38.8153 143.3138,-38.8073 143.2923,-38.7913 143.2524,-38.7505 143.1959,-38.7245 143.1477,-38.714 142.989,-38.6723 142.9425,-38.6349 142.9055,-38.6154 142.8575,-38.5935 142.8271,-38.5856 142.7813,-38.5858 142.6697,-38.5549 142.6132,-38.5325 142.5687,-38.5022 142.5517,-38.4883 142.4226,-38.4118 142.3459,-38.3694 142.1904,-38.3207 142.08,-38.3412 142.0613,-38.3585 142.0386,-38.3596 141.9715,-38.3566 141.8994,-38.3263 141.8737,-38.3121 141.7994,-38.2675 141.7763,-38.2487 141.6331,-38.2242 141.5627,-38.2237 141.5335,-38.2275 141.4914,-38.2396 141.4321,-38.2786 141.4318,-38.3096 141.4475,-38.324 141.4621,-38.3564 141.383,-38.3738 141.2663,-38.3292 141.2051,-38.2716 141.18,-38.2464 141.1019,-38.1851 141.0525,-38.1498 141.0058,-38.1175 140.9594,-38.0918 140.9385,-38.0809 140.9167,-38.071 140.8392,-38.0398 140.8184,-38.0323 140.8108,-35.2389 140.8069,-34.0814 140.8073,-34.0092 140.8045,-33.9915 140.8067,-33.9858 140.8101,-33.9596 140.8188,-33.9707 140.8281,-33.9899 140.8327,-33.9917 140.8501,-33.9809 140.85,-33.8767 140.85,-32.5311 140.8535,-25.9526 137.8488,-25.9518 137.8462,-16.5465 4,9.0,Australia 128.8398,-31.6558 128.8471,-14.8649 128.846,-25.9493 128.8398,-31.6558 1024,9.0,Australia 113.0795,-26.2095 113.1089,-26.1662 113.1256,-26.127 113.129,-26.0988 113.1256,-26.0707 113.1196,-26.0346 113.1232,-26.0105 113.1428,-25.9984 113.1569,-26.0967 113.1585,-26.1379 113.1594,-26.1928 113.1892,-26.2491 113.2128,-26.1569 113.2207,-26.0895 113.3689,-26.2546 113.3894,-26.3081 113.3943,-26.3709 113.4011,-26.4781 113.4244,-26.5399 113.4978,-26.6242 113.521,-26.6292 113.5288,-26.63 113.5319,-26.6041 113.596,-26.564 113.6383,-26.5735 113.6693,-26.5441 113.7099,-26.4776 113.7179,-26.4547 113.719,-26.4295 113.7156,-26.3069 113.6832,-26.2552 113.6438,-26.2208 113.5983,-26.1973 113.5071,-26.1401 113.4063,-26.0457 113.3872,-25.9601 113.3479,-25.8296 113.302,-25.765 113.2589,-25.7083 113.2466,-25.6815 113.2481,-25.6493 113.2536,-25.6259 113.264,-25.5991 113.2752,-25.5809 113.325,-25.512 113.3531,-25.5315 113.385,-25.5946 113.4462,-25.6834 113.5067,-25.7349 113.5523,-25.7662 113.5888,-25.8599 113.5645,-25.9783 113.5368,-26.0056 113.5388,-26.09 113.5686,-26.1673 113.6194,-26.1715 113.6531,-26.1389 113.6752,-26.1046 113.7179,-26.0262 113.7332,-25.9994 113.7595,-26.0927 113.7814,-26.18 113.7857,-26.2341 113.8131,-26.298 113.9231,-26.432 114.0489,-26.343 114.0755,-26.2627 114.0639,-26.2373 114.045,-26.2239 114.0369,-26.2006 114.026,-26.1533 114.0496,-26.0016 114.0604,-25.9598 114.0937,-25.9721 114.111,-25.9412 114.1125,-25.8186 113.9938,-25.703 113.9077,-25.6234 113.8889,-25.605 113.8065,-25.4668 113.77,-25.4031 113.724,-25.2969 113.6922,-25.2203 113.6622,-25.153 113.6461,-25.1392 113.6009,-25.1127 113.5565,-25.0941 113.5078,-24.9872 113.468,-24.8613 113.4595,-24.8165 113.4719,-24.7851 113.4711,-24.7257 113.4611,-24.7054 113.4321,-24.6642 113.409,-24.632 113.3618,-24.5785 113.3417,-24.5564 113.3168,-24.5345 113.283,-24.4978 113.2577,-24.445 113.2521,-24.4242 113.2473,-24.4019 113.242,-24.2036 113.2825,-24.1072 113.3044,-23.9845 113.3462,-23.8513 113.3905,-23.7303 113.4597,-23.6037 113.4937,-23.5724 113.5299,-23.5597 113.6013,-23.5005 113.6216,-23.4464 113.627,-23.4152 113.6406,-23.3003 113.619,-23.1677 113.6412,-23.0793 113.6582,-23.0591 113.6719,-23.0297 113.6772,-23.0044 113.6664,-22.9074 113.6599,-22.8875 113.6255,-22.7925 113.6124,-22.7682 113.5959,-22.7415 113.5698,-22.7126 113.5307,-22.6605 113.5161,-22.5791 113.552,-22.5122 113.593,-22.4498 113.6594,-22.309 113.6802,-22.2554 113.6976,-22.2066 113.7231,-22.1289 113.7549,-22.0305 113.7934,-21.9512 113.8563,-21.8555 113.8731,-21.8323 113.8902,-21.8172 113.9492,-21.7862 114.0228,-21.7744 114.0358,-21.7982 114.0153,-21.8218 113.996,-21.8538 113.9863,-21.8854 113.9373,-22.1492 113.9458,-22.1755 113.9807,-22.2482 114.0014,-22.2761 113.9775,-22.3717 113.9695,-22.461 113.9964,-22.4959 114.013,-22.5022 114.0568,-22.4836 114.2315,-22.4173 114.2493,-22.3393 114.259,-22.3102 114.2673,-22.289 114.3201,-22.1651 114.3771,-22.0623 114.4848,-21.8983 114.4893,-21.8754 114.4954,-21.8345 114.5104,-21.8152 114.5555,-21.7886 114.5982,-21.7763 114.6988,-21.7234 114.8019,-21.664 114.8403,-21.6634 114.8828,-21.6658 114.9118,-21.6565 115.0187,-21.606 115.1044,-21.5675 115.1955,-21.5419 115.3106,-21.4936 115.3283,-21.4792 115.3549,-21.4483 115.3798,-21.4162 115.4081,-21.3803 115.4781,-21.3077 115.4938,-21.2953 115.5384,-21.2636 115.5952,-21.2434 115.6449,-21.2239 115.6651,-21.2126 115.6807,-21.196 115.6955,-21.1668 115.7212,-21.1218 115.7363,-21.1013 115.7692,-21.0589 115.7838,-21.0454 115.813,-21.0285 115.8461,-21.0128 115.8672,-21.0061 115.9877,-20.9609 116.018,-20.9421 116.0304,-20.9217 116.0441,-20.8782 116.1073,-20.8453 116.1676,-20.8381 116.3338,-20.7827 116.4644,-20.7065 116.5654,-20.6257 116.6463,-20.6421 116.6896,-20.6826 116.7336,-20.694 116.7562,-20.6878 116.7835,-20.6737 116.8076,-20.6538 116.851,-20.6291 116.9031,-20.6047 116.9241,-20.5985 117.0226,-20.6304 117.0549,-20.6648 117.1252,-20.6942 117.1525,-20.7008 117.1745,-20.7045 117.1993,-20.7071 117.2375,-20.7081 117.2632,-20.7065 117.3389,-20.693 117.5421,-20.6532 117.5945,-20.633 117.6882,-20.5951 117.7068,-20.5851 117.7785,-20.5313 117.7904,-20.5068 117.8571,-20.4451 117.9256,-20.3868 117.995,-20.3417 118.0351,-20.3257 118.0485,-20.3503 118.0913,-20.3512 118.2539,-20.3267 118.4014,-20.3022 118.5137,-20.3082 118.657,-20.2631 118.6764,-20.2505 118.8058,-20.0942 118.818,-20.0711 118.8357,-20.0188 118.9358,-19.9461 119.024,-19.9344 119.044,-19.9368 119.221,-19.9767 119.2893,-19.9944 119.4075,-20.044 119.437,-20.048 119.4563,-20.0435 119.5477,-19.9959 119.5756,-19.9756 119.6401,-19.9493 119.8767,-19.9104 120.0183,-19.8941 120.0581,-19.8921 120.0936,-19.8864 120.1913,-19.8559 120.4132,-19.7697 120.7319,-19.6432 120.7644,-19.6282 120.8468,-19.5891 120.8804,-19.5699 120.9293,-19.5357 120.9837,-19.4959 121.0608,-19.4371 121.0866,-19.4164 121.1296,-19.3729 121.1731,-19.3254 121.1865,-19.3105 121.3411,-19.1014 121.3561,-19.0744 121.4098,-18.9721 121.4919,-18.7925 121.6296,-18.6156 121.6167,-18.5815 121.6174,-18.535 121.653,-18.4592 121.6765,-18.4374 121.7014,-18.4494 121.742,-18.4527 121.7919,-18.4271 121.8448,-18.3893 121.866,-18.3716 121.8808,-18.3554 121.8953,-18.3344 121.919,-18.2968 121.9441,-18.29 121.9639,-18.2789 121.9809,-18.2681 122.1664,-18.1361 122.1893,-18.1109 122.2072,-18.0801 122.2196,-18.0403 122.2216,-18.0181 122.2136,-17.9852 122.2031,-17.9684 122.1841,-17.9591 122.105,-17.9379 122.0634,-17.8735 122.0523,-17.6847 122.0437,-17.6658 122.029,-17.6432 121.9994,-17.5627 121.9933,-17.5381 121.9913,-17.4985 121.9966,-17.3434 122.0279,-17.2238 122.1093,-17.0884 122.1375,-17.0617 122.2151,-16.9917 122.232,-16.9769 122.2521,-16.9627 122.3,-16.9349 122.377,-16.9373 122.4268,-16.9342 122.3796,-16.8457 122.3765,-16.8256 122.4194,-16.7707 122.4466,-16.7602 122.4686,-16.7808 122.4922,-16.7807 122.5294,-16.769 122.6049,-16.7433 122.6146,-16.7147 122.5892,-16.6784 122.6132,-16.5816 122.6412,-16.5505 122.67,-16.5501 122.6939,-16.5399 122.7467,-16.4838 122.7471,-16.4576 122.752,-16.4288 122.7728,-16.3959 122.8442,-16.3712 122.9126,-16.4371 122.8917,-16.4628 122.8643,-16.4566 122.8418,-16.4572 122.8086,-16.5679 122.8296,-16.6091 122.8721,-16.6515 122.9206,-16.6766 122.9482,-16.6972 122.9684,-16.7736 123.0566,-16.9331 123.1592,-17.118 123.2259,-17.2274 123.286,-17.3231 123.329,-17.3896 123.3868,-17.4742 123.4044,-17.4951 123.4261,-17.5778 123.4346,-17.5669 123.4448,-17.4899 123.4192,-17.4502 123.411,-17.426 123.4144,-17.3475 123.47,-17.1867 123.4251,-17.0535 123.4279,-17.0108 123.4437,-16.9776 123.507,-16.9757 123.5784,-17.0474 123.6161,-17.0991 123.6334,-17.123 123.7065,-17.1871 123.742,-17.2016 123.7667,-17.1888 123.7285,-17.1714 123.6826,-17.1167 123.6539,-17.0203 123.6473,-16.9787 123.688,-16.9247 123.7428,-16.8741 123.7092,-16.8572 123.6332,-16.8797 123.6177,-16.8692 123.6052,-16.8506 123.5692,-16.7689 123.4592,-16.6544 123.4652,-16.5454 123.3962,-16.5496 123.353,-16.5474 123.3109,-16.519 123.2772,-16.4808 123.345,-16.4786 123.4146,-16.497 123.4689,-16.5128 123.4926,-16.5108 123.5604,-16.4117 123.5692,-16.3603 123.5593,-16.3215 123.5311,-16.3142 123.4478,-16.3006 123.4123,-16.2697 123.4092,-16.1824 123.4231,-16.1535 123.4553,-16.1379 123.5782,-16.1203 123.6582,-16.1808 123.6358,-16.2276 123.5844,-16.2413 123.6909,-16.3496 123.7429,-16.3605 123.7444,-16.3212 123.8159,-16.2271 123.9375,-16.2439 123.9646,-16.2551 123.9915,-16.267 124.0178,-16.2842 124.0336,-16.3203 124.0536,-16.3667 124.0811,-16.3857 124.1839,-16.3912 124.195,-16.3734 124.2355,-16.3342 124.266,-16.3476 124.3266,-16.3773 124.4293,-16.387 124.5152,-16.3752 124.5795,-16.3664 124.6129,-16.371 124.686,-16.4113 124.6977,-16.4103 124.7433,-16.388 124.6913,-16.3851 124.6657,-16.3816 124.5995,-16.3574 124.5479,-16.3285 124.4658,-16.3094 124.4133,-16.3057 124.3533,-16.317 124.3307,-16.3291 124.269,-16.3291 124.2515,-16.3108 124.2333,-16.2642 124.2274,-16.2036 124.2429,-16.1539 124.2817,-16.0844 124.3219,-16.075 124.3507,-16.1258 124.3697,-16.1452 124.4442,-16.0959 124.4363,-16.0047 124.453,-15.9379 124.4659,-15.9006 124.5163,-15.845 124.5781,-15.7911 124.5489,-15.7759 124.5215,-15.7692 124.4676,-15.7842 124.4285,-15.8369 124.4122,-15.863 124.402,-15.8813 124.3858,-15.9184 124.339,-15.9191 124.2519,-15.8464 124.2293,-15.7142 124.2239,-15.6505 124.3091,-15.4608 124.3408,-15.4477 124.3907,-15.4731 124.4336,-15.4994 124.4583,-15.49 124.5082,-15.4622 124.5258,-15.4374 124.5129,-15.3254 124.5153,-15.2457 124.5572,-15.2359 124.7642,-15.3386 124.7932,-15.3622 124.8452,-15.4144 125.0327,-15.5033 125.0281,-15.4894 124.9711,-15.4454 124.9526,-15.4332 124.9278,-15.4129 124.9225,-15.3903 124.9477,-15.3276 124.97,-15.3059 124.9486,-15.2843 124.863,-15.2832 124.8381,-15.2922 124.8127,-15.3037 124.7637,-15.3188 124.7524,-15.2615 124.7892,-15.211 124.8276,-15.1934 124.8562,-15.2107 124.8959,-15.1443 124.8645,-15.1366 124.782,-15.1848 124.7336,-15.22 124.7061,-15.219 124.677,-15.143 124.7091,-15.1031 124.7527,-15.0833 124.8112,-15.0999 124.8323,-15.0936 124.8846,-15.0575 124.8702,-15.0238 124.9303,-14.9829 124.9987,-15.1341 125.0163,-15.1451 125.026,-15.1025 125.0137,-15.0627 125.0133,-15.0168 125.0726,-15.0455 125.1007,-15.0626 125.1308,-15.0841 125.1332,-15.12 125.1729,-15.139 125.266,-15.1343 125.286,-15.116 125.2684,-15.1019 125.2384,-15.1048 125.2116,-15.0817 125.2414,-15.0536 125.2166,-15.0359 125.1329,-14.9784 125.0348,-14.9314 125.0684,-14.8937 125.0951,-14.885 125.0535,-14.8365 124.9888,-14.7309 125.0966,-14.5815 125.1182,-14.5606 125.1896,-14.5065 125.2415,-14.5284 125.4063,-14.5395 125.4418,-14.533 125.4481,-14.476 125.453,-14.4107 125.4341,-14.2928 125.4388,-14.245 125.4469,-14.2257 125.4726,-14.2065 125.5826,-14.2569 125.5606,-14.3235 125.4949,-14.6137 125.5135,-14.5952 125.5582,-14.4666 125.5664,-14.4217 125.5762,-14.388 125.6962,-14.4484 125.6779,-14.5558 125.6964,-14.5909 125.755,-14.6271 125.7614,-14.6287 125.7762,-14.6009 125.8437,-14.5307 125.8903,-14.4987 125.9197,-14.3281 125.997,-14.1763 126.0006,-14.114 125.9362,-13.9502 125.9082,-13.9359 125.8723,-13.9106 125.9224,-13.8996 126.0027,-13.9119 126.072,-13.9462 126.0632,-14.0213 126.0387,-14.0323 126.0113,-14.043 126.0453,-14.1523 126.0877,-14.1635 126.1339,-14.1989 126.141,-14.217 126.1668,-14.1776 126.1482,-14.1247 126.163,-14.0733 126.1883,-14.0344 126.2855,-13.9592 126.3566,-13.9488 126.3452,-13.9933 126.3092,-14.0617 126.4214,-14.2045 126.4536,-14.2134 126.5573,-14.1079 126.6428,-13.9554 126.6161,-13.8237 126.6005,-13.7796 126.7121,-13.7355 126.8103,-13.7128 126.8718,-13.7606 126.9285,-13.8328 126.9111,-13.8704 126.9816,-13.9556 127.0071,-13.9168 127.0077,-13.8842 127.0952,-13.8808 127.2088,-13.9137 127.2784,-13.9381 127.3043,-13.9774 127.3736,-14.0701 127.5099,-14.1598 127.5834,-14.2517 127.6119,-14.2842 127.6305,-14.3191 127.7241,-14.4571 127.8073,-14.5651 127.833,-14.5573 127.8504,-14.5441 127.8816,-14.5665 127.9733,-14.6397 128.0191,-14.6863 128.0321,-14.7249 128.0374,-14.7835 127.9889,-14.851 127.9361,-15.0082 127.9175,-15.0836 127.918,-15.1189 127.9277,-15.1887 127.9207,-15.3789 127.9109,-15.4141 127.901,-15.4346 127.8795,-15.4551 127.8685,-15.4808 127.8914,-15.4738 127.9165,-15.4541 127.9336,-15.4357 127.9449,-15.4167 127.9535,-15.3855 127.9616,-15.3258 127.9669,-15.2733 127.966,-15.2312 127.9802,-15.1969 128.0294,-15.216 128.0697,-15.2558 128.1051,-15.2886 128.1123,-15.3339 128.1348,-15.3833 128.1404,-15.3247 128.1394,-15.2863 128.1325,-15.2639 128.0943,-15.2055 128.0724,-15.1734 128.0404,-15.0482 128.0529,-15.021 128.0689,-14.9978 128.1549,-14.8958 128.1748,-14.8995 128.1769,-14.9312 128.1883,-15.0021 128.201,-15.0272 128.2962,-15.0302 128.3062,-14.9847 128.2781,-14.9413 128.2667,-14.9151 128.2577,-14.8878 128.2364,-14.7832 128.3592,-14.7473 128.3849,-14.7419 128.5066,-14.7657 128.7507,-14.8235 128.8471,-14.8542 128.8398,-31.6558 128.8325,-31.6571 128.8112,-31.6604 128.7849,-31.6675 128.6256,-31.7338 128.6059,-31.7434 128.5368,-31.7805 128.3874,-31.8524 128.016,-31.9957 127.846,-32.0533 127.783,-32.065 127.6624,-32.0832 127.5717,-32.0984 127.463,-32.1346 127.3727,-32.1666 127.1692,-32.2305 127.1026,-32.2422 126.9996,-32.2577 126.9598,-32.2623 126.8578,-32.2673 126.8255,-32.2687 126.5226,-32.2793 126.4742,-32.2777 126.4093,-32.2727 126.2947,-32.2634 126.2351,-32.2557 126.1646,-32.2358 126.1391,-32.2259 126.1188,-32.2201 126.0972,-32.215 126.0752,-32.2107 126.0448,-32.2045 126.0158,-32.202 125.989,-32.2071 125.9669,-32.2183 125.9281,-32.242 125.9056,-32.2485 125.8813,-32.2483 125.8486,-32.2377 125.8087,-32.2306 125.643,-32.3074 125.4547,-32.4312 125.4197,-32.4579 125.3969,-32.4796 125.3778,-32.4941 125.3521,-32.5101 125.2812,-32.5366 125.2361,-32.546 125.2148,-32.5473 125.1741,-32.5537 125.1395,-32.562 125.0835,-32.5879 124.8332,-32.7054 124.7649,-32.7486 124.7346,-32.7764 124.7173,-32.7928 124.5846,-32.8608 124.543,-32.8731 124.5027,-32.8794 124.4189,-32.8909 124.3357,-32.8998 124.2916,-32.9036 124.2413,-32.9086 124.1911,-32.9203 124.1674,-32.9276 124.14,-32.9378 124.1206,-32.9485 124.0287,-33.0121 123.9966,-33.0424 123.98,-33.0591 123.9451,-33.1022 123.9297,-33.1249 123.8416,-33.3562 123.8036,-33.5011 123.795,-33.5217 123.7781,-33.5355 123.7575,-33.5453 123.6994,-33.5781 123.6292,-33.6392 123.609,-33.6572 123.5917,-33.6761 123.5751,-33.7146 123.5745,-33.7419 123.5304,-33.7826 123.4885,-33.809 123.3804,-33.8675 123.3099,-33.8703 123.2914,-33.8621 123.2693,-33.8589 123.2453,-33.8577 123.2088,-33.8571 123.1829,-33.8657 123.1451,-33.9036 123.1227,-33.9328 123.0764,-33.9616 123.0084,-33.9804 122.9795,-33.9109 122.9409,-33.8489 122.9207,-33.8378 122.858,-33.8196 122.7554,-33.8474 122.6855,-33.8688 122.6583,-33.8685 122.5712,-33.8551 122.4348,-33.8601 122.4166,-33.8752 122.2743,-33.8878 122.2182,-33.874 122.1958,-33.8746 122.1397,-33.8934 122.1035,-33.9278 122.0928,-33.9785 121.9597,-33.9902 121.9212,-33.9796 121.9425,-33.9419 121.9279,-33.8889 121.9132,-33.8552 121.8939,-33.8303 121.8787,-33.8149 121.8554,-33.7929 121.8354,-33.7867 121.7584,-33.7984 121.7278,-33.8208 121.7036,-33.8425 121.6765,-33.8538 121.6229,-33.8614 121.5145,-33.8221 121.365,-33.7834 121.3036,-33.7793 121.2133,-33.7773 121.1787,-33.7775 121.0622,-33.8008 120.8944,-33.8188 120.7728,-33.8247 120.7281,-33.8187 120.7056,-33.8185 120.678,-33.8289 120.6529,-33.8413 120.6347,-33.8499 120.5661,-33.8563 120.5372,-33.8577 120.384,-33.8791 120.3293,-33.9106 120.2609,-33.9358 120.2129,-33.9255 120.1318,-33.9073 120.0969,-33.9016 120.074,-33.8995 119.8724,-33.8875 119.8494,-33.8909 119.8242,-33.8961 119.6574,-33.9398 119.6336,-33.9532 119.615,-33.9721 119.5994,-33.9938 119.5834,-34.0077 119.5524,-34.0258 119.5174,-34.0406 119.4889,-34.0513 119.4608,-34.0617 119.4087,-34.1111 119.3259,-34.232 119.3126,-34.293 119.171,-34.4081 119.054,-34.4656 119.0309,-34.4563 118.9571,-34.436 118.9246,-34.4275 118.7812,-34.4107 118.7574,-34.4142 118.736,-34.4236 118.6109,-34.4943 118.5858,-34.511 118.5677,-34.5305 118.5654,-34.5359 118.6003,-34.568 118.5817,-34.5871 118.5655,-34.6007 118.5453,-34.6114 118.4843,-34.6413 118.4587,-34.6467 118.4286,-34.6518 118.3647,-34.6686 118.3237,-34.6848 118.2913,-34.7043 118.2647,-34.7352 118.2464,-34.7618 118.2342,-34.8011 118.1286,-34.8662 117.9289,-34.9544 117.6856,-34.9906 117.6814,-35.0111 117.7052,-35.0326 117.7307,-35.0431 117.7964,-35.053 117.8432,-35.0575 117.7816,-35.0857 117.7061,-35.0745 117.657,-35.0398 117.6319,-35.0258 117.5965,-35.0123 117.5745,-35.0087 117.5118,-35.0117 117.4805,-35.0301 117.4675,-35.0513 117.4577,-35.0988 117.4023,-35.0591 117.3813,-35.0486 117.2032,-34.9852 117.1806,-34.9796 117.0324,-34.9724 116.7971,-34.9764 116.7643,-35.0024 116.7447,-35.0165 116.7218,-35.0172 116.6869,-35.0097 116.6635,-35.0004 116.5732,-34.9774 116.5072,-34.9926 116.4512,-34.9937 116.3098,-34.9603 116.2247,-34.9089 116.174,-34.879 116.1181,-34.8486 116.096,-34.8386 116.0664,-34.8269 116.0284,-34.8153 115.9423,-34.7989 115.8233,-34.7801 115.8023,-34.7305 115.7936,-34.7119 115.7631,-34.6643 115.6641,-34.5687 115.6383,-34.546 115.4981,-34.4291 115.346,-34.3448 115.2363,-34.2954 115.1643,-34.2661 115.0916,-34.2595 115.0552,-34.2627 115.0189,-34.274 114.9974,-34.3054 114.973,-34.3241 114.9246,-34.2853 114.8597,-34.2239 114.8555,-34.1862 114.8579,-34.1647 114.8612,-34.1374 114.8276,-33.9804 114.8085,-33.8281 114.8044,-33.6546 114.8479,-33.4864 114.8905,-33.4959 114.9323,-33.5378 114.9519,-33.5732 115.0064,-33.5976 115.0711,-33.6153 115.1121,-33.6142 115.1329,-33.6126 115.166,-33.6083 115.2138,-33.5954 115.2471,-33.5835 115.2798,-33.5673 115.5174,-33.2728 115.5402,-33.2654 115.5541,-33.2489 115.5625,-33.2265 115.5639,-33.2047 115.5193,-32.9447 115.5027,-32.8872 115.4855,-32.8305 115.4692,-32.7697 115.444,-32.6341 115.4676,-32.566 115.5442,-32.4857 115.5407,-32.5173 115.5027,-32.5494 115.4834,-32.5711 115.4818,-32.612 115.5225,-32.7089 115.5501,-32.7442 115.568,-32.7333 115.5657,-32.679 115.5832,-32.6078 115.6115,-32.5358 115.5933,-32.4125 115.5823,-32.2843 115.5846,-32.2284 115.6047,-32.1557 115.5874,-32.059 115.5938,-31.8985 115.5931,-31.8575 115.5897,-31.8322 115.5557,-31.6807 115.5434,-31.6479 115.5313,-31.625 115.4893,-31.5597 115.417,-31.448 115.3012,-31.2665 115.2877,-31.2443 115.245,-31.149 115.2253,-31.0871 115.2188,-31.0673 115.1605,-30.9518 115.0972,-30.8571 115.06,-30.8127 115.0179,-30.7373 114.9317,-30.5543 114.8982,-30.4702 114.9052,-30.4429 114.8746,-30.2401 114.8362,-30.1117 114.808,-30.0419 114.7882,-30.0265 114.7905,-29.7034 114.7934,-29.637 114.7982,-29.5959 114.8124,-29.5339 114.8248,-29.5045 114.8308,-29.475 114.8295,-29.4545 114.7797,-29.3026 114.7542,-29.2661 114.7546,-29.2257 114.7387,-29.1729 114.6863,-29.0636 114.5718,-28.9354 114.5429,-28.9114 114.5078,-28.8865 114.471,-28.8385 114.4488,-28.796 114.4435,-28.7649 114.4442,-28.7354 114.4486,-28.6929 114.4439,-28.6489 114.4361,-28.6006 114.3821,-28.5 114.3664,-28.4739 114.3551,-28.456 114.2222,-28.2889 114.1599,-28.1982 114.1142,-28.1765 114.0845,-28.1573 114.0627,-28.1345 114.05,-28.1188 114.0071,-28.0594 113.9985,-28.0375 113.9695,-27.9161 113.9477,-27.8202 113.9496,-27.7887 113.9606,-27.746 113.9782,-27.7044 113.994,-27.6762 113.9883,-27.6314 113.9744,-27.5724 113.9465,-27.4744 113.926,-27.4203 113.8804,-27.3332 113.7906,-27.1682 113.6532,-26.937 113.6412,-26.9201 113.5421,-26.7855 113.4402,-26.6606 113.3899,-26.6033 113.3529,-26.5664 113.3013,-26.5257 113.136,-26.3695 113.1089,-26.2928 113.0795,-26.2095 632,8.0,Indonesia 113.6955,0.5909 113.7603,0.5824 113.8963,0.6464 113.9643,0.6464 114.0643,0.5824 114.3163,0.5544 114.4723,0.6264 114.6163,0.7024 114.6883,0.7264 114.8083,0.7544 114.8843,0.6664 114.9643,0.5104 114.9883,0.4024 114.8363,0.3424 114.7603,0.2704 114.7203,0.1024 114.7403,-0.0216 114.8083,-0.1736 114.9323,-0.1856 115.0243,-0.0616 115.1643,-0.0016 115.2123,-0.0976 115.1523,-0.2216 115.1203,-0.3176 115.1403,-0.4096 115.1763,-0.4776 115.2843,-0.5656 115.2763,-0.6456 115.2683,-0.7736 115.2843,-0.8416 115.3843,-0.8736 115.4603,-0.9376 115.5723,-1.0376 115.6163,-1.1056 115.6483,-1.1976 115.6363,-1.3016 115.5883,-1.3896 115.5123,-1.4776 115.4323,-1.4736 115.3283,-1.4816 115.2683,-1.5696 115.2403,-1.7176 115.2603,-1.8536 115.2443,-1.9456 115.0523,-2.3376 115.0163,-2.3816 114.9443,-2.4016 114.8443,-2.5616 114.7123,-2.7616 114.5803,-2.8696 114.4683,-2.9576 114.3763,-3.1496 114.2643,-3.4696 114.2643,-3.4703 114.2976,-3.4939 114.3094,-3.4994 114.3306,-3.5006 114.3424,-3.4985 114.3519,-3.4945 114.3555,-3.4978 114.3926,-3.5327 114.4518,-3.6107 114.4642,-3.6322 114.4723,-3.6516 114.478,-3.6766 114.4784,-3.6999 114.4777,-3.7132 114.4772,-3.8976 114.4782,-4.0772 114.4787,-4.1243 114.4813,-4.1419 114.4859,-4.1577 114.4943,-4.17 114.5068,-4.1802 114.5545,-4.1775 114.5788,-4.1708 114.6287,-4.1421 114.6694,-4.1148 114.7612,-4.0571 114.7791,-4.0477 114.7977,-4.0388 114.8073,-4.0349 114.8553,-4.0143 114.8937,-3.9979 115.0441,-3.9342 115.1556,-3.8886 115.1867,-3.8787 115.2475,-3.8564 115.4171,-3.7937 115.6042,-3.714 115.6179,-3.707 115.6305,-3.6987 115.6416,-3.6898 115.6527,-3.6805 115.6734,-3.6599 115.6825,-3.6481 115.6997,-3.6316 115.7083,-3.6264 115.7234,-3.6211 115.7528,-3.6153 115.7719,-3.6134 115.8112,-3.6113 115.8227,-3.6094 115.8352,-3.6045 115.8446,-3.5968 115.8526,-3.5848 115.8585,-3.5698 115.8668,-3.5299 115.8713,-3.5005 115.8733,-3.4824 115.8748,-3.4496 115.8763,-3.4371 115.8804,-3.4277 115.9584,-3.279 115.9631,-3.2703 115.9684,-3.2612 116.0405,-3.162 116.0754,-3.1432 116.0855,-3.139 116.0797,-3.082 116.0468,-3.0532 115.9902,-2.9718 115.9801,-2.9328 115.9793,-2.9198 116.0012,-2.8201 116.0088,-2.8117 116.0205,-2.8227 116.0753,-2.9184 116.0812,-2.9328 116.0842,-2.9504 116.0848,-2.9636 116.0875,-2.988 116.0917,-3.001 116.1011,-3.0085 116.1139,-3.0114 116.1311,-3.0043 116.1433,-2.9964 116.1604,-2.9788 116.2132,-2.9088 116.2238,-2.8917 116.24,-2.8537 116.243,-2.8423 116.2432,-2.8226 116.2312,-2.6622 116.173,-2.6092 116.1757,-2.5148 116.2904,-2.4918 116.3042,-2.495 116.3136,-2.4993 116.3339,-2.5149 116.3389,-2.5319 116.341,-2.5506 116.3504,-2.5598 116.3733,-2.5588 116.3835,-2.5523 116.397,-2.5346 116.4031,-2.5206 116.4102,-2.5 116.4161,-2.4787 116.4209,-2.4356 116.435,-2.3676 116.4378,-2.3562 116.4644,-2.2729 116.4664,-2.2682 116.473,-2.227 116.4746,-2.208 116.4728,-2.1872 116.3992,-2.167 116.3876,-2.165 116.371,-2.169 116.3561,-2.1744 116.333,-2.1856 116.3042,-2.2044 116.2867,-2.2109 116.2757,-2.2088 116.1965,-2.1447 116.2419,-2.0935 116.2885,-2.0785 116.3049,-2.0709 116.3232,-2.0518 116.3274,-2.0427 116.3295,-1.911 116.3149,-1.781 116.2947,-1.7685 116.2689,-1.7637 116.253,-1.7638 116.2055,-1.774 116.1934,-1.7827 116.1799,-1.796 116.1715,-1.8018 116.1542,-1.8084 116.1312,-1.8102 116.1158,-1.8062 116.1003,-1.7948 116.0937,-1.777 116.1764,-1.7243 116.2722,-1.6772 116.3918,-1.6328 116.4092,-1.6225 116.4197,-1.6128 116.4283,-1.5997 116.433,-1.5876 116.4343,-1.5718 116.4304,-1.5623 116.4172,-1.5492 116.4118,-1.5407 116.4063,-1.5258 116.4005,-1.5007 116.4012,-1.4819 116.4083,-1.4718 116.4278,-1.4566 116.4632,-1.4308 116.4836,-1.4171 116.4949,-1.4112 116.5116,-1.404 116.5543,-1.392 116.6115,-1.3734 116.6249,-1.3659 116.6305,-1.3576 116.6344,-1.3472 116.6568,-1.2499 116.6229,-1.1733 116.6145,-1.1645 116.5955,-1.1495 116.582,-1.1328 116.5794,-1.1165 116.582,-1.1017 116.5879,-1.0805 116.5975,-1.049 116.6016,-1.0391 116.6094,-1.0267 116.6236,-1.0227 116.628,-1.0343 116.6211,-1.0494 116.6123,-1.0769 116.6101,-1.0996 116.6862,-1.2723 116.6961,-1.2752 116.7548,-1.263 116.7926,-1.2527 116.8646,-1.2222 116.8732,-1.2172 116.8889,-1.2056 116.8953,-1.1978 116.8992,-1.1885 116.9425,-1.1113 116.9971,-1.0283 117.0134,-1.0036 117.0467,-0.9612 117.1265,-0.8669 117.1347,-0.8204 117.1589,-0.8052 117.1994,-0.8537 117.3223,-0.8608 117.4835,-0.7886 117.4917,-0.7762 117.4936,-0.7607 117.4899,-0.7504 117.4819,-0.7382 117.4428,-0.6478 117.4458,-0.6367 117.5044,-0.4386 117.4997,-0.4235 117.4883,-0.418 117.4763,-0.42 117.462,-0.4259 117.3949,-0.4684 117.3799,-0.4811 117.3132,-0.523 117.3243,-0.4336 117.3398,-0.342 117.334,-0.3334 117.3047,-0.2672 117.3024,-0.2555 117.3042,-0.2397 117.3124,-0.2172 117.33,-0.1762 117.3284,-0.1638 117.3292,-0.1473 117.3502,-0.0966 117.3627,-0.0816 117.3737,-0.0721 117.3859,-0.0574 117.3974,-0.0327 117.3886,0.0073 117.3744,0.0244 117.3614,0.0316 117.3422,0.0755 117.3359,0.1035 117.35,0.1748 117.3912,0.2974 117.427,0.3774 117.4377,0.3976 117.4901,0.4362 117.5888,0.6412 117.5899,0.6531 117.5892,0.6698 117.5892,0.6944 117.6025,0.7265 117.6106,0.739 117.6645,0.7944 117.6798,0.8065 117.7028,0.8177 117.7713,0.8368 117.7845,0.8376 117.7954,0.8346 117.8048,0.8306 117.8166,0.8216 117.8275,0.8088 117.848,0.7897 117.8679,0.7841 117.8811,0.7835 117.89,0.7879 117.8987,0.7996 117.9028,0.8093 117.9043,0.8217 117.9014,0.8393 117.8978,0.8529 117.8533,0.9355 117.7994,1.0317 117.7686,1.0763 117.7592,1.0911 117.7562,1.1037 117.7612,1.1168 117.7748,1.122 117.8215,1.099 117.86,1.0656 117.8675,1.0523 117.8827,1.0064 117.8931,0.9757 117.8985,0.9606 117.9309,0.9242 117.9392,0.9188 117.9649,0.9038 117.9782,0.8964 117.9974,0.8878 118.0336,0.8764 118.0555,0.871 118.2114,0.8424 118.3724,0.8279 118.5126,0.8415 118.5277,0.8435 118.5437,0.8438 118.5603,0.8398 118.6108,0.8183 118.6278,0.8081 118.6442,0.8005 118.6615,0.7993 118.6751,0.8034 118.6838,0.8086 118.8015,0.8965 118.8124,0.9058 118.8433,0.9367 118.8686,0.9661 118.8756,0.9828 118.8716,0.994 118.8722,1.0379 118.8611,1.0475 118.8208,1.0621 118.7895,1.0713 118.7738,1.0696 118.7062,1.097 118.6624,1.1487 118.6476,1.177 118.6504,1.187 118.642,1.2023 118.5841,1.2535 118.4628,1.3569 118.4435,1.3651 118.4285,1.3672 118.4091,1.3625 118.394,1.3618 118.3179,1.3972 118.2874,1.4759 118.1552,1.5505 118.1423,1.5579 118.0024,1.6445 117.9889,1.6579 117.9189,1.729 117.7863,1.8217 117.7398,1.8747 117.7314,1.909 117.736,2.0355 117.7237,2.077 117.7101,2.0835 117.6971,2.1019 117.7145,2.1028 117.7724,2.0784 117.8069,2.114 117.9286,2.2211 117.9406,2.2359 117.9592,2.2652 117.9638,2.2743 117.9651,2.2995 117.9594,2.312 117.9222,2.3707 117.8655,2.4371 117.8229,2.4766 117.812,2.486 117.7451,2.5501 117.7065,2.5876 117.6838,2.6126 117.6781,2.6209 117.6737,2.6298 117.6678,2.6448 117.6647,2.6627 117.6623,2.6811 117.6614,2.7208 117.6568,2.7402 117.6446,2.7594 117.6302,2.772 117.5984,2.7878 117.5856,2.7899 117.5392,2.7979 117.5398,2.8715 117.556,2.9646 117.4857,3.0856 117.3293,3.1543 117.2132,3.1745 117.1432,3.2166 117.1306,3.2539 117.1473,3.2591 117.1796,3.2416 117.2235,3.2732 117.3007,3.3558 117.3061,3.3643 117.311,3.3796 117.3151,3.4131 117.3098,3.4288 117.2633,3.4409 117.2191,3.4385 117.1908,3.4322 117.1051,3.4859 117.0901,3.4992 117.0804,3.5163 117.0727,3.5363 117.0704,3.5477 117.071,3.5647 117.076,3.5901 117.0727,3.6097 116.9917,3.6167 116.9763,3.6147 116.9651,3.612 116.9486,3.6078 116.9222,3.6005 116.8992,3.5966 116.9194,3.6299 116.9393,3.6388 117.0312,3.6437 117.0443,3.644 117.2229,3.6327 117.3827,3.61 117.5653,3.623 117.6173,3.6313 117.6272,3.6352 117.6963,3.7004 117.698,3.7141 117.6577,3.7286 117.6367,3.7328 117.6511,3.77 117.6489,3.7849 117.5759,3.8623 117.5615,3.8689 117.5432,3.871 117.5296,3.8709 117.5076,3.869 117.4854,3.8723 117.3892,3.9274 117.4019,3.9322 117.4159,3.9322 117.4309,3.9304 117.4907,3.9428 117.4124,4.0155 117.3378,4.0716 117.2825,4.0848 117.2685,4.0909 117.2597,4.1031 117.2595,4.135 117.2692,4.1462 117.3595,4.12 117.4123,4.1366 117.4585,4.1654 117.3953,4.1706 117.3643,4.1745 117.3422,4.1792 117.3193,4.1842 117.3062,4.1911 117.291,4.2099 117.2868,4.2202 117.2776,4.2377 117.2684,4.2501 117.1184,4.3492 117.1061,4.3536 117.0904,4.3539 117.0778,4.3498 117.0695,4.3414 117.0586,4.3315 117.0437,4.3307 116.9108,4.3322 116.804,4.3462 116.7916,4.3476 116.7776,4.3476 116.7563,4.3444 116.7441,4.3405 116.7073,4.3257 116.5563,4.326 116.5094,4.3299 116.4014,4.3262 116.3952,4.3147 116.3335,4.2892 116.322,4.29 116.3092,4.2947 116.2935,4.3054 116.1824,4.3529 116.0215,4.3502 116.0082,4.3325 115.9424,4.279 115.9294,4.2733 115.916,4.2763 115.8992,4.2962 115.8724,4.3253 115.8549,4.3349 115.8445,4.3382 115.7563,4.3633 115.7407,4.3564 115.726,4.3393 115.7189,4.3169 115.6389,4.2402 115.6299,4.2349 115.5597,4.1755 115.5521,4.1627 115.5287,4.1041 115.5301,4.0934 115.5313,4.0737 115.4856,3.8498 115.4546,3.7374 115.446,3.7046 115.4405,3.6621 115.4407,3.609 115.4435,3.5908 115.4482,3.5818 115.4711,3.5354 115.4955,3.4539 115.4971,3.4306 115.4832,3.4167 115.4663,3.4208 115.4525,3.4243 115.4402,3.414 115.4283,3.3856 115.4227,3.3702 115.4085,3.3301 115.4036,3.3147 115.3997,3.2982 115.3815,3.2066 115.3795,3.1949 115.3829,3.1804 115.3981,3.1725 115.3686,3.047 115.3653,3.0367 115.3572,3.0241 115.2479,2.9884 115.1883,2.9844 115.1804,2.9945 115.1756,3.0033 115.1715,3.0132 115.1199,3.0075 115.0222,2.919 115.0101,2.9031 114.9886,2.848 114.9529,2.6106 114.9624,2.5979 114.9783,2.5944 114.9936,2.6029 115.0042,2.6085 115.04,2.6025 115.0556,2.5942 115.0697,2.5803 115.1067,2.527 115.1014,2.5054 115.0862,2.4899 115.0742,2.4847 115.0579,2.4802 114.9614,2.4197 114.8725,2.3579 114.8201,2.2909 114.8103,2.2832 114.8005,2.2798 114.7753,2.2741 114.7441,2.2768 114.6848,2.2583 114.6757,2.2463 114.6624,2.2144 114.6497,2.1633 114.6474,2.1478 114.6716,2.0624 114.7103,2.0416 114.7199,2.0452 114.7336,2.0444 114.7434,2.0182 114.7437,2.0057 114.733,1.9132 114.7276,1.8985 114.7159,1.8897 114.6545,1.8618 114.5823,1.7685 114.5457,1.6409 114.4604,1.4505 114.4481,1.4392 114.4316,1.4315 114.4154,1.4307 114.4048,1.4339 114.3831,1.4464 114.3642,1.4617 114.3473,1.4758 114.3244,1.4905 114.3153,1.4952 114.2963,1.503 114.2851,1.5061 114.2734,1.5083 114.2613,1.5069 114.1717,1.4721 114.1627,1.4686 114.1035,1.4422 113.974,1.4653 114.0043,1.3024 113.8923,1.2264 113.7243,1.0064 113.7203,0.8864 113.8163,0.8464 113.7843,0.7424 113.6683,0.5944 113.6955,0.5909 583,7.0,Indonesia 108.7257,0.8075 108.7367,0.7954 108.7539,0.7785 108.7629,0.767 108.7669,0.7572 108.7996,0.6457 108.8102,0.6082 108.8249,0.4261 108.8242,0.4061 108.8149,0.3865 108.7986,0.3512 108.7939,0.332 108.7966,0.3148 108.8039,0.3052 108.8128,0.3002 108.8305,0.2972 108.8511,0.2971 108.8643,0.2981 108.884,0.2974 108.9152,0.2928 108.9315,0.2833 108.9423,0.2735 108.9567,0.2597 108.9771,0.2393 108.9948,0.2158 108.9997,0.207 109.0434,0.1062 109.0559,0.0311 109.0689,-0.1325 109.0723,-0.1986 109.0535,-0.2119 108.99,-0.2046 108.9495,-0.2097 108.9399,-0.2139 108.9312,-0.2219 108.9219,-0.2367 108.9206,-0.2486 108.9248,-0.261 108.9778,-0.3987 108.9982,-0.5015 109.0025,-0.5108 109.0194,-0.5352 109.0288,-0.5458 109.0442,-0.558 109.1414,-0.5933 109.1534,-0.5882 109.1648,-0.5856 109.2352,-0.5814 109.2462,-0.5839 109.2835,-0.6045 109.2943,-0.6119 109.3919,-0.7258 109.3646,-0.7382 109.355,-0.7424 109.3495,-0.7438 109.1358,-0.6685 109.1285,-0.6773 109.1257,-0.688 109.1248,-0.7082 109.1456,-0.8382 109.1494,-0.8515 109.1575,-0.8667 109.1678,-0.8771 109.2541,-0.915 109.2693,-0.9167 109.2853,-0.9122 109.2934,-0.906 109.2982,-0.8902 109.2933,-0.8742 109.289,-0.8647 109.2917,-0.8547 109.3009,-0.8499 109.3192,-0.8479 109.3474,-0.8504 109.4273,-0.8729 109.4371,-0.877 109.4526,-0.8886 109.4681,-0.9108 109.4919,-0.9551 109.5279,-0.9723 109.5541,-0.9826 109.6067,-0.9524 109.749,-1.09 109.795,-1.1808 109.8842,-1.2801 109.9079,-1.2972 109.9224,-1.3102 109.9277,-1.3186 109.9343,-1.3322 109.9449,-1.3636 109.9471,-1.3752 109.9474,-1.3916 109.9461,-1.4636 109.9131,-1.6417 109.9086,-1.6573 109.8901,-1.6933 109.8767,-1.7151 109.8686,-1.7271 109.8562,-1.7385 109.834,-1.7536 109.825,-1.7582 109.8077,-1.7652 109.7913,-1.773 109.7833,-1.787 109.7804,-1.8261 109.7891,-1.8378 109.813,-1.8619 109.8257,-1.8701 109.8433,-1.8797 109.8767,-1.8924 109.9222,-1.911 109.9444,-1.9228 109.9617,-1.9399 109.9677,-1.9538 109.9913,-2.0135 110.0023,-2.0443 110.0042,-2.0593 110.0013,-2.0842 109.9881,-2.1293 109.9781,-2.1534 109.9733,-2.1689 109.9718,-2.1811 109.971,-2.2331 109.9742,-2.2438 110.0008,-2.2621 110.0086,-2.2743 110.0128,-2.2841 110.0164,-2.2941 110.0731,-2.5047 110.1009,-2.7063 110.1036,-2.7614 110.1172,-2.7763 110.1237,-2.7869 110.124,-2.8035 110.1222,-2.8154 110.1036,-2.8583 110.0879,-2.8837 110.0816,-2.8978 110.1077,-2.9675 110.1165,-2.9793 110.1377,-2.9988 110.1591,-3.0101 110.1811,-2.9928 110.1978,-2.9761 110.2056,-2.9696 110.2281,-2.9512 110.2365,-2.9455 110.363,-2.8773 110.3834,-2.8703 110.4131,-2.8659 110.4264,-2.8658 110.4451,-2.8676 110.4614,-2.8717 110.4724,-2.8783 110.4821,-2.8922 110.4892,-2.906 110.4924,-2.9162 110.5188,-3.0131 110.5167,-3.0293 110.4987,-3.0401 110.497,-3.0502 110.5163,-3.0652 110.5284,-3.0737 110.5415,-3.0779 110.5546,-3.0751 110.5793,-3.0586 110.5969,-3.0418 110.6101,-3.0141 110.6265,-2.9887 110.6547,-2.9553 110.665,-2.9452 110.6778,-2.9376 110.7872,-2.8857 110.8088,-2.8835 110.8361,-2.8851 110.8422,-2.8909 110.8396,-2.8989 110.7549,-2.9344 110.745,-2.9376 110.7064,-2.9469 110.6963,-2.9503 110.6689,-2.9641 110.6511,-2.9806 110.6421,-2.9924 110.6314,-3.0087 110.6273,-3.0217 110.632,-3.0306 110.782,-3.0908 110.7988,-3.094 110.8258,-3.0945 110.8373,-3.0926 110.9141,-3.0736 110.9378,-3.0634 110.9468,-3.0586 111.0154,-3.0175 111.0235,-3.012 111.0391,-2.9996 111.1048,-2.9629 111.1797,-2.9279 111.1988,-2.9198 111.2106,-2.9178 111.3013,-2.9252 111.3255,-2.9286 111.3419,-2.9328 111.3602,-2.9418 111.3746,-2.9544 111.3837,-2.966 111.3931,-2.9838 111.4014,-3.003 111.4118,-3.0163 111.4213,-3.0204 111.4342,-3.0182 111.4536,-3.01 111.4624,-3.0053 111.5711,-2.9431 111.5775,-2.9293 111.5566,-2.8807 111.5767,-2.7871 111.5808,-2.7775 111.5855,-2.7687 111.6027,-2.7513 111.626,-2.7467 111.6121,-2.7713 111.6053,-2.7851 111.6035,-2.8038 111.626,-2.8973 111.6307,-2.9059 111.6382,-2.9192 111.6683,-2.971 111.6763,-2.9835 111.6847,-2.9958 111.6996,-3.0221 111.7045,-3.038 111.7065,-3.0635 111.7063,-3.08 111.6989,-3.1104 111.6938,-3.1255 111.6898,-3.1427 111.6898,-3.1902 111.6987,-3.2703 111.7022,-3.2875 111.7057,-3.3044 111.7125,-3.3454 111.7155,-3.3633 111.7169,-3.3758 111.7173,-3.4023 111.7145,-3.4233 111.7064,-3.4528 111.6941,-3.4884 111.6866,-3.5014 111.6779,-3.5206 111.6797,-3.5348 111.7411,-3.5643 111.7628,-3.5696 111.77,-3.5695 111.7761,-3.5692 111.7869,-3.5663 111.822,-3.5462 111.8433,-3.5268 111.9513,-3.4228 112.0248,-3.3524 112.035,-3.3423 112.0474,-3.3339 112.0563,-3.3293 112.0664,-3.3257 112.1028,-3.314 112.1193,-3.3101 112.1662,-3.3096 112.1786,-3.311 112.2059,-3.3173 112.2407,-3.3306 112.2903,-3.3498 112.3066,-3.3605 112.3331,-3.3887 112.3445,-3.3984 112.3799,-3.4241 112.4046,-3.4405 112.4234,-3.4424 112.5147,-3.415 112.5244,-3.4112 112.5357,-3.4023 112.5462,-3.3921 112.5517,-3.3837 112.5649,-3.3695 112.633,-3.3215 112.682,-3.2882 112.7065,-3.2718 112.7982,-3.2179 112.8241,-3.2033 112.8418,-3.1457 112.8294,-3.1374 112.8197,-3.1234 112.8162,-3.1126 112.816,-3.0966 112.8224,-3.0793 112.8483,-3.0502 112.9075,-2.9863 112.9371,-2.9902 113.0078,-3.0635 113.1008,-3.1615 113.1172,-3.1796 113.1802,-3.226 113.2377,-3.2569 113.3112,-3.2399 113.3183,-3.2302 113.3191,-3.2171 113.3211,-3.2052 113.334,-3.1842 113.3471,-3.1767 113.3815,-3.1712 113.4776,-3.1689 113.4869,-3.1768 113.4986,-3.1993 113.5044,-3.2136 113.5111,-3.2348 113.5136,-3.2525 113.5135,-3.3141 113.5096,-3.3441 113.5067,-3.3551 113.4963,-3.3859 113.4811,-3.4219 113.4812,-3.4344 113.4883,-3.4444 113.5099,-3.457 113.5287,-3.466 113.5428,-3.4722 113.5542,-3.474 113.5887,-3.4741 113.6196,-3.4707 113.6488,-3.4659 113.6955,-3.4574 113.7265,-3.4473 113.7446,-3.4386 113.9034,-3.3578 113.9735,-3.3525 114.0807,-3.3819 114.1412,-3.4113 114.1656,-3.4277 114.1746,-3.4324 114.1897,-3.4378 114.2458,-3.4572 114.2643,-3.4703 114.2643,-3.4696 114.3763,-3.1496 114.4683,-2.9576 114.5803,-2.8696 114.7123,-2.7616 114.8443,-2.5616 114.9443,-2.4016 115.0163,-2.3816 115.0523,-2.3376 115.2443,-1.9456 115.2603,-1.8536 115.2403,-1.7176 115.2683,-1.5696 115.3283,-1.4816 115.4323,-1.4736 115.5123,-1.4776 115.5883,-1.3896 115.6363,-1.3016 115.6483,-1.1976 115.6163,-1.1056 115.5723,-1.0376 115.4603,-0.9376 115.3843,-0.8736 115.2843,-0.8416 115.2683,-0.7736 115.2763,-0.6456 115.2843,-0.5656 115.1763,-0.4776 115.1403,-0.4096 115.1203,-0.3176 115.1523,-0.2216 115.2123,-0.0976 115.1643,-0.0016 115.0243,-0.0616 114.9323,-0.1856 114.8083,-0.1736 114.7403,-0.0216 114.7203,0.1024 114.7603,0.2704 114.8363,0.3424 114.9883,0.4024 114.9643,0.5104 114.8843,0.6664 114.8083,0.7544 114.6883,0.7264 114.6163,0.7024 114.4723,0.6264 114.3163,0.5544 114.0643,0.5824 113.9643,0.6464 113.8963,0.6464 113.7603,0.5824 113.6683,0.5944 113.7843,0.7424 113.8163,0.8464 113.7203,0.8864 113.7243,1.0064 113.8923,1.2264 114.0043,1.3024 113.974,1.4653 113.9567,1.4684 113.906,1.4574 113.8771,1.4521 113.8593,1.4494 113.8407,1.447 113.803,1.4437 113.7943,1.4394 113.7603,1.4043 113.7483,1.3889 113.7376,1.3727 113.7149,1.347 113.6629,1.3035 113.5316,1.2246 113.5151,1.228 113.5027,1.2363 113.4892,1.2501 113.4597,1.2822 113.3291,1.2869 113.2475,1.3426 113.2326,1.3547 113.2138,1.3637 112.9997,1.43 112.9306,1.5381 112.9118,1.5551 112.8729,1.5711 112.8503,1.576 112.7577,1.5862 112.5541,1.5615 112.3735,1.569 112.3465,1.5665 112.1839,1.498 112.0757,1.4485 112.059,1.4236 112.0559,1.4101 112.066,1.4013 112.0841,1.4019 112.089,1.3925 112.0873,1.3746 112.0065,1.1487 111.9852,1.1395 111.9491,1.1343 111.9296,1.1328 111.9163,1.1329 111.8581,1.1367 111.84,1.1338 111.8292,1.1309 111.8204,1.1262 111.7659,1.0745 111.7547,1.0546 111.7485,1.0401 111.735,1.0195 111.7206,1.0066 111.7019,0.9976 111.6847,0.9941 111.6726,0.9927 111.6077,1.0049 111.5992,1.0105 111.5751,1.0237 111.5567,1.0327 111.5445,1.0374 111.5303,1.0358 111.5104,1.0285 111.4404,0.9993 111.2947,1.007 111.2818,1.0078 111.2699,1.0106 111.1864,1.0433 111.1336,1.066 111.0876,1.0687 111.0709,1.0612 110.8997,1.0238 110.8825,1.02 110.8704,1.0191 110.8168,1.0174 110.7827,1.0141 110.7614,1.0044 110.6954,0.9491 110.689,0.9332 110.6886,0.9166 110.6839,0.9074 110.5782,0.8773 110.4747,0.8551 110.4507,0.8519 110.4314,0.8531 110.4209,0.856 110.3985,0.8643 110.3363,0.9017 110.2089,1.0009 110.0753,1.1749 110.0613,1.1845 110.0461,1.1867 110.0324,1.1864 110.0137,1.1884 109.9924,1.1939 109.9779,1.2 109.9607,1.2106 109.9485,1.2187 109.8729,1.2874 109.8621,1.3005 109.8567,1.3158 109.8086,1.4055 109.7016,1.467 109.6168,1.5375 109.5991,1.5541 109.5887,1.5641 109.576,1.5785 109.5458,1.6153 109.5443,1.7044 109.4927,1.7873 109.4805,1.7892 109.471,1.7932 109.4608,1.8004 109.441,1.8317 109.4244,1.905 109.5077,2.0294 109.5254,2.0712 109.453,1.9866 109.3169,1.9521 109.2146,1.8862 109.2122,1.8134 109.2089,1.7892 109.1604,1.7064 109.1522,1.6933 109.1406,1.6775 109.111,1.6456 109.087,1.6286 109.078,1.6229 109.0494,1.6108 109.0365,1.6032 109.0239,1.5949 108.9831,1.5674 108.9715,1.5587 108.9548,1.5449 108.9447,1.5307 108.94,1.5217 108.937,1.5111 108.9358,1.4918 108.9363,1.4582 108.9387,1.4394 108.9407,1.4212 108.9405,1.3804 108.9384,1.3649 108.9341,1.3527 108.9182,1.3207 108.9031,1.2946 108.8868,1.2728 108.876,1.257 108.8646,1.2369 108.8602,1.225 108.8592,1.213 108.9333,1.2166 109.0178,1.2606 109.0273,1.2783 109.0432,1.3101 109.0516,1.3229 109.1097,1.3944 109.1211,1.4036 109.141,1.393 109.052,1.2761 109.0363,1.2575 108.9737,1.2106 108.9594,1.2045 108.9428,1.2 108.8367,1.1755 108.8381,1.0543 108.8526,1.021 108.858,1.0055 108.8608,0.9947 108.8627,0.9761 108.8626,0.9627 108.8568,0.9415 108.8484,0.9223 108.8403,0.9098 108.8211,0.8879 108.802,0.8698 108.7876,0.8671 108.7719,0.8666 108.732,0.8347 108.7257,0.8242 108.7236,0.8098 108.7257,0.8075 895,7.0,Kazakhstan 46.4602,48.3556 46.592,48.3256 46.7522,48.2883 46.912,48.2508 47.0533,48.217 47.0669,48.1931 47.0621,48.1822 47.0542,48.0472 47.0522,47.8913 47.0769,47.7574 47.1215,47.7294 47.1881,47.6962 47.3281,47.6425 47.3449,47.7166 47.3428,47.7585 47.3516,47.7829 47.3768,47.7874 47.4171,47.7782 47.4533,47.7661 47.5315,47.7397 47.5648,47.7252 47.5951,47.715 47.6229,47.7114 47.6697,47.7183 47.7271,47.7241 47.8499,47.7279 47.9684,47.7281 47.9959,47.7253 48.0336,47.7143 48.0741,47.695 48.1352,47.6505 48.154,47.6357 48.1718,47.6204 48.1954,47.5867 48.2471,47.5182 48.3106,47.4476 48.3882,47.3778 48.5031,47.3115 48.5555,47.2169 48.6516,47.0446 48.9122,46.7708 48.9577,46.7228 48.8721,46.651 48.6881,46.6501 48.6571,46.6931 48.6415,46.7065 48.6219,46.7145 48.5969,46.7193 48.5681,46.7217 48.5274,46.7183 48.4757,46.7007 48.4466,46.684 48.4364,46.6663 48.4297,46.635 48.4257,46.614 48.5076,46.5078 48.5512,46.5064 48.604,46.5105 48.6544,46.5086 48.6741,46.5035 48.6955,46.4831 48.7167,46.4622 48.7716,46.4291 48.8142,46.4288 48.8455,46.4348 49.1056,46.317 49.153,46.2937 49.147,46.3253 49.1839,46.3706 49.2113,46.3858 49.2556,46.3542 49.2988,46.342 49.3175,46.4403 49.2545,46.5121 49.3313,46.4861 49.3841,46.458 49.4928,46.477 49.5497,46.5221 49.7023,46.5089 49.7419,46.4791 49.7561,46.5071 49.865,46.5487 49.997,46.6229 50.0746,46.6827 50.1209,46.7042 50.1504,46.7074 50.226,46.7452 50.2918,46.7967 50.361,46.8474 50.4499,46.8188 50.541,46.8541 50.58,46.8731 50.6376,46.8929 50.6601,46.8732 50.7141,46.8862 50.7473,46.9284 50.7719,46.9544 50.9019,47.0051 50.9381,47.0148 51.1212,47.0611 51.1478,47.0598 51.1749,47.0522 51.2152,47.0415 51.2859,47.0282 51.4538,47.0014 51.5614,46.9889 51.6087,46.9356 51.6105,46.9057 51.7064,46.8503 51.7938,46.8316 52.0171,46.7613 52.099,46.7521 52.1315,46.7495 52.166,46.7491 52.3442,46.8964 52.3553,46.9329 52.3797,46.9421 52.4756,46.9216 52.4978,46.9014 52.5539,46.8905 52.6852,46.8877 52.7908,46.8984 52.8592,46.8805 52.9839,46.835 53.0125,46.7889 53.0211,46.7579 53.0254,46.7248 53.0988,46.6699 53.1189,46.6617 53.1328,46.6305 53.1307,46.5903 53.016,46.5002 52.9747,46.4907 52.9577,46.5008 52.9318,46.4771 52.9267,46.4294 52.9616,46.4298 52.9883,46.4066 53.0517,46.3402 53.0712,46.3173 53.083,46.2848 53.0892,46.2617 53.0826,46.2213 53.0316,46.0306 53.0031,45.9929 53.008,45.9509 52.886,45.7786 52.8573,45.7469 52.8378,45.7375 52.8042,45.7261 52.6726,45.5921 52.6631,45.533 52.6593,45.4975 52.6739,45.4673 52.8186,45.4091 53.0615,45.3301 53.0856,45.3239 53.114,45.32 53.1537,45.2864 53.0305,45.2468 52.7745,45.2748 52.692,45.2875 52.551,45.3235 52.4676,45.3509 52.4448,45.3547 52.4097,45.3566 52.0048,45.3279 51.8761,45.3139 51.8556,45.3129 51.7155,45.3521 51.6516,45.3513 51.6312,45.3379 51.5235,45.286 51.4945,45.282 51.4339,45.2806 51.4031,45.2839 51.3798,45.3018 51.3335,45.319 51.2362,45.1995 51.1768,45.1146 51.1711,45.0486 51.1115,45.0087 50.9496,44.9419 50.8909,44.9225 50.8759,44.9037 50.8912,44.8013 50.9296,44.7762 50.952,44.7639 50.9981,44.7427 51.0414,44.7273 51.0864,44.7084 51.1349,44.6859 51.1549,44.6721 51.1744,44.6524 51.2099,44.5776 51.2218,44.5528 51.2444,44.5401 51.294,44.5459 51.327,44.5561 51.3647,44.555 51.4778,44.4968 51.5014,44.4767 51.4885,44.4607 51.3573,44.4614 51.304,44.4675 51.0772,44.4285 51.0601,44.4306 51.0159,44.4437 50.9684,44.4611 50.9214,44.4818 50.8486,44.5457 50.8322,44.5612 50.802,44.5753 50.7139,44.5779 50.6227,44.5652 50.4579,44.5769 50.3148,44.5904 50.2359,44.6028 50.1693,44.5261 50.1606,44.4492 50.159,44.3471 50.1625,44.3178 50.2131,44.278 50.318,44.2508 50.3771,44.2391 50.4429,44.2363 50.5186,44.2279 50.5995,44.2159 50.6532,44.2023 50.6796,44.192 50.7548,44.1568 50.7719,44.1386 50.7806,44.1137 50.7906,44.018 50.8295,43.9572 50.92,43.8151 50.9464,43.7581 50.9574,43.7402 51.0409,43.6122 51.0839,43.5683 51.1388,43.5641 51.1973,43.5058 51.2464,43.3928 51.2512,43.3634 51.2476,43.3046 51.2438,43.2499 51.2238,43.199 51.2052,43.1682 51.1922,43.1294 51.1971,43.103 51.2189,43.0963 51.2436,43.1008 51.3506,43.1143 51.5803,43.1338 51.601,43.12 51.71,42.9609 51.7137,42.9363 51.7226,42.9164 51.7594,42.8593 51.8252,42.7967 51.8791,42.7903 51.906,42.8028 51.9305,42.8103 52.0189,42.8334 52.1002,42.8352 52.1303,42.8248 52.2706,42.7773 52.3114,42.7837 52.3508,42.7844 52.3934,42.7772 52.4343,42.7686 52.4784,42.7586 52.503,42.7507 52.5387,42.7338 52.6601,42.6647 52.6727,42.6011 52.6467,42.5381 52.5645,42.3707 52.5219,42.2874 52.4939,42.2521 52.4456,42.2023 52.4305,42.1842 52.394,42.1395 52.3656,42.1299 52.3331,42.0437 52.3599,41.9492 52.3832,41.9307 52.3997,41.9171 52.4096,41.896 52.4214,41.8533 52.4171,41.8322 52.3984,41.8019 52.36,41.7124 52.368,41.694 52.4192,41.7338 52.7345,41.9688 52.85,42.0462 52.884,42.065 52.9331,42.0882 53.243,42.1881 53.2671,42.1955 53.3244,42.2097 53.3727,42.2203 53.4664,42.2316 53.524,42.2366 53.5679,42.2393 53.5889,42.2414 53.6977,42.2588 53.8028,42.2772 53.8289,42.2827 53.8606,42.2908 53.9209,42.3009 53.9488,42.3027 53.9809,42.3009 54.098,42.2894 54.1238,42.2847 54.1509,42.2748 54.1734,42.2628 54.2402,42.2207 54.4914,42.1056 54.6565,42.0259 54.6855,42.0115 54.8586,41.8827 54.8871,41.8535 54.8826,41.808 54.8872,41.7693 54.9048,41.7454 54.9261,41.7242 54.9723,41.6867 55.05,41.6049 55.0709,41.5779 55.1181,41.5159 55.1311,41.4966 55.152,41.4589 55.1639,41.4419 55.213,41.3932 55.2408,41.3772 55.2795,41.3617 55.3163,41.3422 55.3312,41.3241 55.3387,41.305 55.3598,41.2616 55.3787,41.2421 55.4525,41.2173 55.5759,41.2206 55.7293,41.2422 55.7574,41.2536 55.7885,41.2743 55.8178,41.2849 55.8567,41.2872 55.9241,41.2819 55.9233,41.3073 55.9223,41.5294 55.922,41.8487 55.9218,42.0852 55.9228,42.1689 55.9222,42.433 55.9213,42.7118 55.921,42.9631 55.9216,43.0328 55.9212,43.2981 55.9204,43.5773 55.9198,43.8293 55.9209,43.899 55.9202,44.459 55.9191,44.6835 55.9204,44.951 56.1789,45.0123 56.3089,45.0427 56.5697,45.1025 56.635,45.1172 56.6709,45.1216 56.6783,45.1272 56.7002,45.1323 56.984,45.1963 57.3121,45.2691 57.5093,45.3122 57.6987,45.3529 57.927,45.402 58.1916,45.4576 58.4833,45.518 58.4886,45.5188 59.5692,44.9491 61.0638,44.1612 61.0805,44.1484 61.2262,44.0297 61.5285,43.7805 61.7286,43.6137 61.8705,43.4942 61.9387,43.4355 61.9584,43.4392 62.2956,43.4836 62.4009,43.497 62.5277,43.5131 62.7393,43.5398 63.1235,43.5872 63.3343,43.5702 63.4489,43.5607 63.6782,43.541 63.9081,43.5214 63.9322,43.5199 64.3681,43.4989 64.4954,43.551 64.7529,43.6541 64.841,43.6883 64.9362,43.6033 65.1253,43.4316 65.1773,43.3833 65.3877,43.2906 65.4277,43.2722 65.5467,43.1047 65.6567,42.9407 65.7307,42.8289 66.0321,42.9482 66.0187,42.7521 66.0095,42.6234 66.0042,42.5562 65.9792,42.376 65.9452,42.3756 65.9452,42.3745 65.9527,42.3741 66.1184,42.3852 67.7313,43.2026 67.5656,43.302 67.6429,43.4567 67.7423,43.5561 67.7423,43.7108 67.8638,43.6335 67.8749,43.7881 67.8307,43.8323 67.8638,43.9096 67.9854,43.9428 67.8307,44.0532 67.6761,44.1306 67.6871,44.2189 67.3999,44.3405 67.3999,45.1137 67.2563,45.1248 67.0574,45.2242 67.0574,45.3015 67.1237,45.3568 67.1348,45.5114 67.2563,45.7324 67.0795,45.8649 67.0685,45.9643 67.0022,46.119 66.3283,46.0859 65.533,46.13 65.2126,46.2847 65.069,46.4394 64.8812,46.4061 64.2957,46.6381 63.6992,46.7817 63.2131,46.9032 62.9811,47.0248 62.5945,46.9916 62.727,47.091 63.0584,47.2899 63.6992,47.555 64.2073,47.8422 64.0195,47.9306 63.9201,48.1074 63.7765,48.2731 63.655,48.3946 63.434,48.4719 63.2794,48.5382 62.959,48.6376 63.0032,48.7923 62.8817,48.8585 62.7602,48.7923 62.484,48.9469 62.3625,49.1237 62.2299,49.1568 62.252,49.2231 62.4288,49.212 62.2078,49.4551 62.2852,49.5214 62.3846,49.5103 62.3514,49.6318 62.5061,49.7092 62.473,49.7975 62.6276,49.8749 62.8044,49.8307 62.8375,49.9632 62.6497,50.1621 62.4951,50.3499 62.3404,50.5045 62.2741,50.6702 62.0974,50.6371 62.1416,50.7697 62.3183,50.8138 62.0753,50.9575 62.1195,51.0679 62.009,51.09 61.9096,51.0458 61.7991,51.1011 61.8322,51.1784 61.7549,51.2668 61.5911,51.2067 61.5879,51.2069 61.5909,51.2064 61.5662,51.2026 61.5269,51.1935 61.4973,51.1847 61.4725,51.1732 61.4563,51.1586 61.4464,51.1401 61.4038,50.9663 61.3738,50.8389 61.3679,50.8143 61.329,50.7419 61.31,50.7315 61.2881,50.7249 61.2461,50.7181 61.2097,50.7145 61.1847,50.7101 61.0849,50.6925 61.0522,50.6865 60.9992,50.6762 60.9551,50.6649 60.8376,50.6365 60.6779,50.6028 60.6376,50.6019 60.606,50.6032 60.2661,50.6277 60.2264,50.6323 60.179,50.6494 60.1461,50.6631 60.0852,50.7104 60.0777,50.7366 60.0788,50.7769 60.0278,50.8037 59.9612,50.8055 59.9276,50.7996 59.8965,50.7844 59.8767,50.7549 59.855,50.72 59.8451,50.6909 59.8485,50.6532 59.8043,50.5867 59.724,50.488 59.6644,50.4755 59.6302,50.4743 59.6084,50.4777 59.5686,50.4772 59.5353,50.4645 59.51,50.4532 59.4526,50.42 59.4397,50.4249 59.3774,50.4751 59.4069,50.4995 59.4518,50.4945 59.4874,50.5021 59.4937,50.528 59.3984,50.5718 59.3724,50.5765 59.2678,50.5767 59.1522,50.6077 59.1035,50.6102 59.0059,50.6112 58.8604,50.6236 58.8342,50.6283 58.8085,50.6394 58.5763,50.7463 58.5072,50.8073 58.4807,50.8631 58.5214,50.9002 58.5361,50.9437 58.5255,50.9723 58.5118,50.9875 58.4832,51.0045 58.2883,51.0686 58.2481,51.0969 58.2247,51.0907 58.1311,51.0587 58.1228,51.0378 58.0934,50.9992 58.0623,50.9949 57.755,51.0431 57.704,51.0573 57.6666,51.0234 57.6614,50.9937 57.6636,50.9639 57.6724,50.922 57.6717,50.9 57.6652,50.8707 57.648,50.8517 57.6077,50.8477 57.5565,50.8652 57.5249,50.8679 57.4737,50.8651 57.4516,50.8503 57.4406,50.8282 57.4226,50.8139 57.376,50.8066 57.34,50.8142 57.297,50.8297 57.2685,50.8448 57.2529,50.8615 57.1785,50.9592 57.1204,51.0064 57.0399,51.0255 57.012,51.0169 56.9633,51.0112 56.7765,51.0002 56.748,51.0052 56.7192,51.0231 56.693,51.0327 56.6668,51.0251 56.6193,51.0042 56.6152,50.984 56.6267,50.9599 56.6415,50.9251 56.5365,50.9304 56.5041,50.9532 56.4866,50.9697 56.4671,50.9904 56.4432,51.0156 56.4154,51.0217 56.3923,51.0103 56.3548,50.975 56.3607,50.9478 56.3648,50.9179 56.2699,50.8428 56.2418,50.8305 56.1753,50.8389 56.1487,50.8458 56.1177,50.8567 56.0902,50.8552 56.077,50.8358 56.049,50.7564 56.0414,50.7138 56.0335,50.6849 55.9498,50.6335 55.9152,50.6137 55.8466,50.5812 55.8269,50.5735 55.7828,50.5636 55.7545,50.5554 55.6952,50.5331 55.6722,50.5195 55.6083,50.4742 55.591,50.4792 55.5714,50.4884 55.4538,50.5544 55.4416,50.5797 55.4258,50.5966 55.4061,50.6052 55.3683,50.6109 55.3276,50.6062 55.2922,50.5937 55.2149,50.6286 55.0064,50.7553 54.9903,50.7763 54.9039,50.8399 54.7452,50.9244 54.6301,50.9708 54.5904,50.9784 54.5634,50.9779 54.4706,50.951 54.4655,50.8635 54.4973,50.8591 54.5514,50.8457 54.5892,50.8125 54.5883,50.7348 54.5751,50.6692 54.5827,50.6376 54.6108,50.5912 54.6189,50.5511 54.6039,50.5316 54.5241,50.4844 54.4414,50.4705 54.4164,50.475 54.3688,50.4993 54.3364,50.5298 54.3293,50.5382 54.3161,50.5674 54.3585,50.7108 54.3853,50.7368 54.4211,50.7715 54.4185,50.8006 54.3428,50.827 54.2913,50.8365 54.2267,50.846 54.1214,50.9081 54.0855,50.9397 54.061,51.0253 54.0523,51.045 53.8675,51.1368 53.832,51.1406 53.8022,51.1336 53.669,51.1551 53.593,51.1701 53.5293,51.2418 53.5296,51.2902 53.5551,51.3235 53.3411,51.4332 53.2726,51.4414 53.243,51.4325 53.2119,51.4268 53.1214,51.4334 53.0651,51.4416 52.9663,51.4319 52.9042,51.4111 52.8033,51.4056 52.7594,51.4253 52.6864,51.4438 52.6172,51.4132 52.5828,51.3972 52.5263,51.3967 52.4778,51.4113 52.4495,51.4247 52.4259,51.4442 52.4085,51.4691 52.4015,51.4896 52.3925,51.523 52.2836,51.6992 52.26,51.7207 52.2319,51.7187 52.0839,51.6585 52.0576,51.6218 52.0283,51.6051 52.0082,51.6019 51.9446,51.6036 51.9248,51.6064 51.8755,51.624 51.8363,51.6265 51.8128,51.622 51.7909,51.6118 51.7065,51.5439 51.6994,51.5227 51.7162,51.4853 51.7219,51.4436 51.6321,51.4022 51.5972,51.3961 51.569,51.4171 51.4451,51.4333 51.3459,51.4096 51.2201,51.4215 51.1782,51.4812 51.2221,51.4954 51.3096,51.5112 51.3226,51.5557 51.3049,51.5807 51.1956,51.6239 51.1245,51.6183 51.097,51.6168 50.8651,51.6283 50.8341,51.6418 50.8107,51.6733 50.7842,51.6916 50.7628,51.6999 50.7326,51.7048 50.6941,51.7091 50.6814,51.6926 50.6799,51.6617 50.6968,51.6346 50.7161,51.6131 50.7374,51.5804 50.7412,51.5553 50.7333,51.5344 50.6997,51.5161 50.6318,51.5123 50.6046,51.5157 50.6104,51.5352 50.6348,51.5605 50.5428,51.5849 50.5219,51.578 50.4792,51.5206 50.4732,51.4688 50.4742,51.4334 50.4722,51.4122 50.3974,51.3727 50.3064,51.364 50.279,51.3105 50.2909,51.2682 50.1867,51.2183 50.123,51.2069 50.0932,51.2038 49.9973,51.1912 49.9415,51.1815 49.8911,51.1669 49.8628,51.1519 49.7875,51.0988 49.7525,51.0707 49.7263,51.0523 49.5086,51.0491 49.4616,51.051 49.399,51.065 49.3438,51.023 49.2897,50.912 49.3147,50.89 49.3465,50.8714 49.3645,50.8449 49.3639,50.8078 49.3504,50.7927 49.3319,50.7842 49.2485,50.7568 49.226,50.7513 49.1441,50.7394 49.0909,50.7356 49.0682,50.7264 49.0528,50.7112 49.0154,50.677 48.9534,50.628 48.9202,50.6102 48.7841,50.5467 48.7465,50.5386 48.6657,50.5499 48.6237,50.5335 48.6171,50.4464 48.6323,50.3665 48.6494,50.2949 48.6556,50.2735 48.6754,50.2098 48.7363,50.1051 48.8077,50.0414 48.8416,49.9751 48.7926,49.9236 48.7615,49.9016 48.7183,49.8822 48.672,49.865 48.6164,49.8479 48.5811,49.8381 48.5436,49.8293 48.4199,49.7895 48.3978,49.7725 48.3751,49.7603 48.3051,49.776 48.1775,49.8142 48.0943,49.9088 48.0683,49.9511 48.0631,49.9854 48.0577,50.0136 48.0384,50.041 47.9401,50.1335 47.8674,50.1929 47.6888,50.3173 47.5553,50.3992 47.5277,50.4024 47.5044,50.398 47.482,50.3916 47.4492,50.3781 47.4142,50.3594 47.375,50.3189 47.3641,50.2974 47.3391,50.2706 47.2911,50.2545 47.2486,50.2383 47.211,50.1233 47.2343,50.0995 47.2524,50.087 47.2701,50.0711 47.2845,50.0414 47.2745,50.018 47.2319,49.9745 47.1927,49.9399 47.1244,49.89 47.081,49.8771 47.0498,49.8712 47.0196,49.8645 46.9757,49.8534 46.9394,49.8434 46.9121,49.8343 46.8797,49.8214 46.862,49.8085 46.7919,49.5392 46.7336,49.3082 46.7354,49.2818 46.7695,49.2755 46.8061,49.2634 46.8311,49.2514 46.8544,49.2387 46.8773,49.2257 46.9516,49.1831 46.9711,49.1682 46.9901,49.1408 46.9957,49.1029 46.9908,49.0773 46.975,49.0475 46.9477,49.015 46.927,48.9934 46.8932,48.9625 46.8752,48.95 46.8463,48.9341 46.8136,48.9224 46.78,48.9109 46.7412,48.8959 46.7107,48.8804 46.5635,48.608 46.5392,48.5616 46.4884,48.4685 46.4602,48.4153 46.4319,48.362 46.4602,48.3556 5,4.0,Russia 47.0894,54.6046 47.0984,54.6035 47.0741,54.6014 47.0833,54.6053 47.0894,54.6046 877,4.0,Russia 41.0469,50.7189 41.2347,50.6462 41.3022,50.5664 41.4311,50.5541 41.425,50.5173 41.3206,50.4743 41.3206,50.4252 41.3882,50.37 41.4127,50.3209 41.2654,50.1797 41.382,50.0324 41.4925,50.0079 41.4802,49.9342 41.5784,49.8974 41.7564,49.8545 41.8423,49.7992 42.0878,49.6273 42.0449,49.5844 42.008,49.4739 41.9774,49.4616 41.9467,49.3512 41.9774,49.3266 41.9896,49.2407 41.9283,49.2345 41.9589,49.1732 42.0019,49.0872 42.2106,49.1118 42.272,49.0811 42.2904,48.989 42.3763,49.0075 42.5604,48.9277 42.5604,48.8602 42.585,48.8172 42.6463,48.7435 42.5543,48.6638 42.5543,48.6331 42.5911,48.5471 42.5481,48.4919 42.1369,48.4367 41.9774,48.3507 42.051,48.228 41.9405,48.2157 41.9651,48.1666 42.0019,48.1114 41.9528,48.0807 41.9221,48.007 41.9589,47.9763 42.0756,47.9886 42.1799,47.9702 42.2229,48.0009 42.272,47.9702 42.364,47.9763 42.6463,47.7922 42.72,47.6326 42.8305,47.4669 42.8918,47.4669 42.9409,47.5283 43.0637,47.5283 43.0576,47.4362 43.211,47.4117 43.432,47.4362 43.567,47.3994 43.6161,47.4362 43.5363,47.5099 43.6038,47.6449 43.7081,47.7063 43.8554,47.7063 43.9598,47.7738 43.9168,47.8106 43.9843,47.8658 44.2912,47.8106 44.2851,47.8842 44.3587,47.9149 44.3649,47.9947 44.2176,48.0192 44.1869,48.1665 44.2176,48.2095 44.4447,48.1481 44.4385,48.007 44.5244,48.007 44.549,48.0438 44.7024,48.0008 44.8436,48.099 44.819,48.1543 44.8436,48.1727 45.0154,48.0683 45.1934,48.0499 45.31,48.0561 45.4451,47.9579 45.6046,48.0008 45.6353,47.9394 45.6046,47.8719 45.6046,47.8167 45.666,47.786 45.7213,47.6755 45.801,47.6571 45.8195,47.6019 45.9606,47.4914 46.2429,47.3871 46.5682,47.5957 46.7278,47.5221 46.4087,47.3564 46.7094,46.9452 46.826,46.9452 46.8751,46.804 47.0224,46.8101 47.1513,46.6874 47.0347,46.6321 46.8997,46.583 46.8322,46.5094 46.8628,46.3682 46.5682,46.3928 46.378,46.2271 46.7831,46.1964 46.7278,46.0245 47.0286,46.0736 47.0899,46.0429 46.9488,45.9386 46.8076,45.5151 47.2495,45.6379 47.452,45.4476 47.4533,45.4448 47.4511,45.4701 47.4365,45.5071 47.477,45.4767 47.5015,45.512 47.4933,45.5485 47.474,45.5843 47.414,45.6007 47.3477,45.6224 47.3238,45.6925 47.4215,45.6739 47.4373,45.6612 47.5068,45.5825 47.5293,45.5521 47.5488,45.5125 47.5805,45.5068 47.5759,45.5369 47.5875,45.5567 47.557,45.659 47.5218,45.6726 47.487,45.6871 47.4888,45.7158 47.5297,45.7121 47.549,45.7053 47.7634,45.6037 47.7872,45.6649 47.9107,45.676 48.0697,45.6885 48.1252,45.6856 48.1561,45.6922 48.1892,45.7158 48.2736,45.7855 48.3055,45.8229 48.3845,45.8815 48.5025,45.9118 48.531,45.8949 48.5585,45.8584 48.6447,45.7783 48.6933,45.8024 48.6702,45.9156 48.6564,45.9708 48.628,46.0075 48.5664,46.0282 48.6013,46.0658 48.6416,46.079 48.7132,46.0403 48.8423,46.0781 48.9771,46.1433 49.0851,46.234 49.1182,46.2209 49.2265,46.2051 49.1877,46.2374 49.162,46.2587 49.153,46.2937 49.1056,46.317 48.8455,46.4348 48.8142,46.4288 48.7716,46.4291 48.7167,46.4622 48.6955,46.4831 48.6741,46.5035 48.6544,46.5086 48.604,46.5105 48.5512,46.5064 48.5076,46.5078 48.4257,46.614 48.4297,46.635 48.4364,46.6663 48.4466,46.684 48.4757,46.7007 48.5274,46.7183 48.5681,46.7217 48.5969,46.7193 48.6219,46.7145 48.6415,46.7065 48.6571,46.6931 48.6881,46.6501 48.8721,46.651 48.9577,46.7228 48.9122,46.7708 48.6516,47.0446 48.5555,47.2169 48.5031,47.3115 48.3882,47.3778 48.3106,47.4476 48.2471,47.5182 48.1954,47.5867 48.1718,47.6204 48.154,47.6357 48.1352,47.6505 48.0741,47.695 48.0336,47.7143 47.9959,47.7253 47.9684,47.7281 47.8499,47.7279 47.7271,47.7241 47.6697,47.7183 47.6229,47.7114 47.5951,47.715 47.5648,47.7252 47.5315,47.7397 47.4533,47.7661 47.4171,47.7782 47.3768,47.7874 47.3516,47.7829 47.3428,47.7585 47.3449,47.7166 47.3281,47.6425 47.1881,47.6962 47.1215,47.7294 47.0769,47.7574 47.0522,47.8913 47.0542,48.0472 47.0621,48.1822 47.0669,48.1931 47.0533,48.217 46.912,48.2508 46.7522,48.2883 46.592,48.3256 46.4319,48.362 46.4602,48.4153 46.4884,48.4685 46.5392,48.5616 46.5635,48.608 46.7107,48.8804 46.7412,48.8959 46.78,48.9109 46.8136,48.9224 46.8463,48.9341 46.8752,48.95 46.8932,48.9625 46.927,48.9934 46.9477,49.015 46.975,49.0475 46.9908,49.0773 46.9957,49.1029 46.9901,49.1408 46.9711,49.1682 46.9516,49.1831 46.8773,49.2257 46.8544,49.2387 46.8311,49.2514 46.8061,49.2634 46.7695,49.2755 46.7354,49.2818 46.7336,49.3082 46.7919,49.5392 46.862,49.8085 46.8797,49.8214 46.9121,49.8343 46.9394,49.8434 46.9757,49.8534 47.0196,49.8645 47.0498,49.8712 47.081,49.8771 47.1244,49.89 47.1927,49.9399 47.2319,49.9745 47.2745,50.018 47.2845,50.0414 47.2701,50.0711 47.2524,50.087 47.2343,50.0995 47.211,50.1233 47.2486,50.2383 47.2911,50.2545 47.3391,50.2706 47.3641,50.2974 47.375,50.3189 47.4142,50.3594 47.4492,50.3781 47.482,50.3916 47.5044,50.398 47.5277,50.4024 47.5553,50.3992 47.6888,50.3173 47.8674,50.1929 47.9401,50.1335 48.0384,50.041 48.0577,50.0136 48.0631,49.9854 48.0683,49.9511 48.0943,49.9088 48.1775,49.8142 48.3051,49.776 48.3751,49.7603 48.3978,49.7725 48.4199,49.7895 48.5436,49.8293 48.5811,49.8381 48.6164,49.8479 48.672,49.865 48.7183,49.8822 48.7615,49.9016 48.7926,49.9236 48.8416,49.9751 48.8077,50.0414 48.7363,50.1051 48.6754,50.2098 48.6556,50.2735 48.6494,50.2949 48.6323,50.3665 48.6171,50.4464 48.6237,50.5335 48.6657,50.5499 48.7465,50.5386 48.7841,50.5467 48.9202,50.6102 48.9534,50.628 49.0154,50.677 49.0528,50.7112 49.0682,50.7264 49.0909,50.7356 49.1441,50.7394 49.226,50.7513 49.2485,50.7568 49.3319,50.7842 49.3504,50.7927 49.3639,50.8078 49.3645,50.8449 49.3465,50.8714 49.3147,50.89 49.2897,50.912 49.3438,51.023 49.399,51.065 49.4616,51.051 49.5086,51.0491 49.7263,51.0523 49.7525,51.0707 49.7875,51.0988 49.8628,51.1519 49.8911,51.1669 49.9415,51.1815 49.9973,51.1912 50.0932,51.2038 50.123,51.2069 50.1867,51.2183 50.2909,51.2682 50.279,51.3105 50.3064,51.364 50.3974,51.3727 50.4722,51.4122 50.4742,51.4334 50.4732,51.4688 50.4792,51.5206 50.5219,51.578 50.5428,51.5849 50.6348,51.5605 50.6104,51.5352 50.6046,51.5157 50.6318,51.5123 50.6997,51.5161 50.7166,51.5253 50.693,51.6406 50.6799,51.6617 50.6814,51.6926 50.6822,51.6936 50.6774,51.7171 50.7352,51.7638 50.8107,51.8082 50.8996,51.8327 50.9151,51.8549 50.9373,51.8682 51.0196,51.886 51.0373,51.9104 51.0707,51.9282 51.3106,52.0371 51.3529,52.1904 51.3151,52.1993 51.3062,52.2171 51.3173,52.2549 51.3062,52.2971 51.3529,52.306 51.3706,52.3282 51.3618,52.3615 51.4351,52.3748 51.4573,52.3926 51.4306,52.4348 51.3751,52.4504 51.3706,52.4993 51.3729,52.5326 51.4018,52.5237 51.4462,52.5193 51.4262,52.5459 51.4084,52.5859 51.4351,52.6037 51.4329,52.6259 51.4862,52.6348 51.544,52.5992 51.6239,52.6104 51.6528,52.6792 51.675,52.7481 51.6128,52.7681 51.6395,52.8281 51.7239,52.8281 51.7417,52.8592 51.7906,52.8881 51.8461,52.897 51.8795,52.9236 51.9394,52.937 51.9639,52.9636 51.9594,53.0103 51.9683,53.0325 52.055,53.0458 52.0572,53.0725 51.9594,53.0836 51.9594,53.1081 52.0328,53.1236 52.0217,53.1769 52.055,53.1858 52.0661,53.2058 52.0372,53.2414 52.0728,53.2636 52.0928,53.328 52.035,53.357 52.035,53.3992 51.9928,53.4169 51.995,53.4436 51.975,53.4569 51.9861,53.4747 51.9861,53.4969 52.0439,53.5014 52.0772,53.5036 52.0905,53.528 52.1194,53.5858 52.155,53.6014 52.1594,53.6325 52.1905,53.6858 52.2394,53.7347 52.255,53.7902 52.2883,53.8435 52.3171,53.8791 52.3149,53.8946 52.2749,53.9124 52.2727,53.9302 52.3282,53.9746 52.3794,53.9969 52.3816,54.0302 52.3394,54.0391 52.3194,54.0657 52.286,54.0813 52.2327,54.0724 52.1794,54.0613 52.1572,54.0991 52.2238,54.1168 52.2527,54.1324 52.246,54.1835 52.1749,54.2146 52.1105,54.2279 52.0972,54.2479 52.1327,54.259 52.1838,54.2813 52.2349,54.2724 52.3194,54.2813 52.3971,54.2724 52.426,54.2857 52.4371,54.3301 52.406,54.3435 52.3927,54.3612 52.4082,54.3879 52.3882,54.4123 52.3482,54.4257 52.3083,54.4212 52.3038,54.3879 52.2816,54.3635 52.2483,54.3724 52.266,54.3857 52.266,54.4101 52.2172,54.4035 52.1505,54.399 52.1038,54.3879 52.1038,54.3568 52.0861,54.3568 52.0105,54.3524 52.0016,54.3279 52.0172,54.3124 52.0172,54.2968 51.9883,54.2879 51.9661,54.3057 51.9527,54.3635 51.915,54.3857 51.8839,54.3768 51.8305,54.3812 51.8417,54.4212 51.8394,54.4679 51.8105,54.4879 51.7484,54.4834 51.6551,54.499 51.5707,54.5167 51.504,54.5567 51.424,54.599 51.3951,54.5501 51.2951,54.539 51.2929,54.5723 51.3018,54.6212 51.264,54.619 51.1685,54.5812 51.1218,54.6012 51.0596,54.5901 51.0374,54.5545 50.9974,54.5034 50.9685,54.5012 50.9085,54.5034 50.8908,54.4501 50.9152,54.4279 50.8952,54.4123 50.8885,54.3657 50.8463,54.3346 50.8508,54.2946 50.8108,54.2946 50.7774,54.3234 50.7086,54.3257 50.5997,54.379 50.5241,54.3501 50.4664,54.2968 50.4019,54.2901 50.3886,54.3257 50.3731,54.3701 50.3242,54.3768 50.2953,54.4345 50.2553,54.4301 50.2553,54.4145 50.2131,54.3945 50.1575,54.3945 50.1198,54.4545 50.042,54.4545 49.9798,54.4634 49.9398,54.4768 49.8813,54.4552 49.863,54.4715 49.8447,54.4857 49.8265,54.4836 49.7615,54.4816 49.6965,54.5141 49.6132,54.5263 49.5238,54.51 49.4588,54.5222 49.4832,54.5425 49.4669,54.5568 49.408,54.5669 49.4182,54.5913 49.4588,54.6055 49.4568,54.6218 49.3958,54.64 49.3918,54.6543 49.4304,54.6685 49.3958,54.6807 49.3735,54.7335 49.3166,54.7477 49.3065,54.7782 49.2841,54.7904 49.2658,54.7863 49.2435,54.7924 49.1744,54.8411 49.15,54.829 49.1561,54.8066 49.1257,54.7924 49.0891,54.8046 49.0363,54.7863 49.0363,54.7538 49.0079,54.7416 48.9388,54.7497 48.8779,54.7233 48.7864,54.6522 48.7194,54.5974 48.6808,54.5974 48.5508,54.6055 48.4554,54.6055 48.3782,54.5791 48.2664,54.6461 48.24,54.6522 48.1994,54.6279 48.1649,54.6421 48.1954,54.6644 48.1994,54.6908 48.1486,54.6868 48.0694,54.6766 48.0186,54.6868 47.9963,54.7111 47.9719,54.7193 47.9435,54.6908 47.9191,54.6847 47.8907,54.699 47.846,54.6766 47.8094,54.6015 47.7383,54.5933 47.7119,54.6157 47.7424,54.638 47.7464,54.6665 47.7241,54.6847 47.6611,54.6868 47.6408,54.6807 47.653,54.6705 47.6449,54.6461 47.6144,54.6218 47.5738,54.5791 47.5453,54.5608 47.5514,54.5202 47.4844,54.4877 47.4397,54.4918 47.3828,54.504 47.3402,54.4857 47.3138,54.4511 47.265,54.4654 47.2589,54.4958 47.2427,54.5547 47.2163,54.5832 47.2528,54.5913 47.2589,54.6177 47.2061,54.6319 47.2081,54.6583 47.0833,54.6053 47.0477,54.6095 46.9928,54.64 46.9359,54.6319 46.8669,54.6258 46.7673,54.5791 46.7267,54.5852 46.7145,54.6136 46.6739,54.6258 46.5866,54.6278 46.5459,54.6481 46.4281,54.705 46.3448,54.7192 46.3306,54.6908 46.3306,54.6583 46.3672,54.6238 46.4261,54.5953 46.3367,54.5364 46.3509,54.5202 46.4281,54.5445 46.4383,54.5324 46.422,54.5222 46.4403,54.5019 46.3773,54.447 46.3875,54.441 46.4403,54.4491 46.4911,54.4592 46.483,54.4328 46.4322,54.4186 46.4119,54.4024 46.4484,54.3475 46.5338,54.3597 46.6292,54.3374 46.6414,54.3069 46.6191,54.2581 46.5338,54.2358 46.4748,54.2074 46.4302,54.2155 46.3814,54.2053 46.3367,54.1728 46.2433,54.1484 46.227,54.1545 46.2027,54.1566 46.1844,54.1322 46.1295,54.1322 46.0625,54.1058 45.9467,54.118 45.8837,54.0997 45.8594,54.0509 45.8269,54.0266 45.7944,53.9758 45.7599,53.9575 45.703,53.9392 45.7416,53.9149 45.8107,53.9372 45.8574,53.9636 45.9244,53.9453 45.9325,53.9271 45.9894,53.925 46.0199,53.8966 46.0971,53.8763 46.1154,53.8377 46.0889,53.8113 46.1194,53.7706 46.1885,53.7585 46.1641,53.7138 46.1804,53.7016 46.2352,53.7158 46.2982,53.6224 46.3814,53.6041 46.4018,53.5716 46.3652,53.5594 46.3713,53.5025 46.3855,53.5005 46.4058,53.4802 46.3835,53.4639 46.4261,53.4518 46.4708,53.4253 46.5541,53.4355 46.5866,53.4294 46.5785,53.3949 46.6151,53.3949 46.6354,53.3685 46.6902,53.3624 46.7085,53.3339 46.7349,53.3339 46.7552,53.3075 46.8019,53.2974 46.804,53.2466 46.8365,53.2385 46.8466,53.206 46.7816,53.1958 46.7674,53.1389 46.7694,53.1207 46.8507,53.141 46.871,53.1288 46.8283,53.1003 46.8486,53.078 46.806,53.0333 46.8344,52.8688 46.8019,52.8424 46.8019,52.8139 46.8751,52.7916 46.8547,52.753 46.8933,52.7185 46.8669,52.7124 46.8283,52.7103 46.808,52.6778 46.7552,52.6758 46.7126,52.6352 46.728,52.5691 46.6572,52.5716 46.5913,52.5893 46.5483,52.607 46.5129,52.6248 46.5179,52.6729 46.48,52.683 46.4572,52.6577 46.399,52.645 46.3154,52.6349 46.3104,52.6197 46.2597,52.6298 46.2015,52.6324 46.1737,52.602 46.1813,52.5767 46.1636,52.564 46.1281,52.5716 46.1028,52.5488 46.0598,52.5564 46.0497,52.5438 46.0547,52.5159 46.0395,52.4982 46.0117,52.5058 45.9864,52.5134 45.9687,52.4855 45.8927,52.4552 45.8674,52.4349 45.9079,52.4223 45.913,52.4045 45.8775,52.3868 45.8851,52.3539 45.8066,52.3716 45.7484,52.3868 45.6826,52.3944 45.6598,52.4121 45.6143,52.4071 45.6193,52.4425 45.6396,52.4704 45.5839,52.4628 45.5282,52.4704 45.4826,52.4349 45.427,52.4324 45.4143,52.3818 45.3713,52.3818 45.3409,52.3514 45.2979,52.364 45.2523,52.3691 45.1688,52.3387 45.0903,52.3615 45.0371,52.3666 44.9891,52.3337 44.9713,52.321 44.9992,52.3008 44.9435,52.2653 44.8776,52.3184 44.8194,52.3184 44.7966,52.3437 44.784,52.3868 44.7181,52.4019 44.6751,52.4247 44.6144,52.4247 44.5612,52.4323 44.5207,52.4526 44.4473,52.5032 44.3967,52.4754 44.4372,52.4399 44.4119,52.4121 44.4448,52.3792 44.3941,52.3741 44.3106,52.3614 44.2878,52.3133 44.2347,52.2982 44.2575,52.2703 44.222,52.2653 44.0879,52.2956 44.0625,52.2779 43.9107,52.3032 43.8195,52.3488 43.7537,52.3488 43.6803,52.3868 43.5538,52.3614 43.4576,52.3741 43.3664,52.3488 43.2854,52.3463 43.2323,52.3437 43.2044,52.3969 43.1083,52.4146 43.0551,52.4019 43.0197,52.3538 42.9719,52.3533 42.9524,52.3489 42.922,52.3294 42.9025,52.3142 42.8657,52.3229 42.8331,52.3294 42.8179,52.3099 42.8266,52.286 42.8288,52.26 42.8006,52.2361 42.7572,52.1906 42.703,52.1646 42.6509,52.1299 42.6531,52.0583 42.6531,52.0214 42.6878,51.9802 42.7117,51.9607 42.6466,51.9564 42.5902,51.9065 42.5859,51.8111 42.5165,51.7373 42.382,51.6419 42.3799,51.6115 42.4124,51.579 42.3885,51.5573 42.5924,51.4445 42.677,51.3827 42.763,51.3213 42.7261,51.2784 42.8059,51.1802 42.763,51.1863 42.6463,51.1863 42.5175,51.1433 42.4377,51.1127 42.2904,51.1065 42.0449,51.082 41.8792,51.1372 41.7564,51.1311 41.6766,51.0329 41.603,50.9408 41.4373,50.8978 41.2654,50.8426 41.2715,50.7689 41.1733,50.7628 41.0445,50.7198 41.0469,50.7189 857,4.0,Russia 46.2015,60.1946 46.2517,60.1597 46.2742,60.0945 46.2562,60.0743 46.3079,60.0541 46.3506,60.0653 46.3933,60.0541 46.4607,60.0361 46.5146,60.0204 46.5595,60.0316 46.5708,60.0159 46.6247,60.0114 46.6359,60.0249 46.6561,60.0316 46.6719,60.0181 46.7348,60.0294 46.7685,60.0541 46.782,60.0496 46.7999,60.0743 46.937,60.0765 46.9415,60.0518 46.8202,59.7979 46.8224,59.7373 47.0134,59.7125 47.0224,59.6946 47.0426,59.6676 47.0133,59.5573 46.9757,59.4372 46.9557,59.3296 47.1534,59.3045 47.1209,59.1819 47.2185,59.1293 47.2986,59.1043 47.3437,59.1193 47.3487,59.0792 47.3712,59.0717 47.4263,59.0342 47.4738,59.0092 47.4613,58.9841 47.4538,58.919 47.4939,58.889 47.5039,58.8615 47.4688,58.8514 47.4188,58.8389 47.3887,58.8339 47.3612,58.8364 47.3637,58.8615 47.3387,58.864 47.2711,58.864 47.2035,58.8615 47.1835,58.8439 47.201,58.8064 47.181,58.7713 47.226,58.7538 47.2135,58.7438 47.1359,58.7013 47.0834,58.7238 47.0233,58.7238 46.9982,58.6988 46.9156,58.6587 46.9081,58.6136 46.8731,58.5611 46.773,58.5536 46.6603,58.531 46.5677,58.516 46.5627,58.5386 46.5277,58.5335 46.4901,58.511 46.4926,58.466 46.4501,58.4284 46.4801,58.4059 46.4826,58.3784 46.4526,58.3683 46.4175,58.3408 46.3374,58.3308 46.3149,58.3058 46.3499,58.3008 46.3725,58.3033 46.375,58.2857 46.3224,58.2657 46.3099,58.2332 46.3174,58.1631 46.2598,58.1406 46.2398,58.0905 46.2098,58.0655 46.2373,58.0529 46.2421,58.0247 46.2744,58.0108 46.3066,57.9855 46.3643,57.9693 46.4081,57.9832 46.4519,57.9901 46.5142,57.9739 46.6272,57.9762 46.8071,57.9739 47.0423,57.9762 47.2222,57.9739 47.2937,57.9739 47.3537,57.9417 47.5174,57.9024 47.6028,57.9117 47.665,57.8564 47.6489,57.8241 47.5751,57.8056 47.5013,57.7826 47.4552,57.7434 47.4759,57.6972 47.4275,57.6673 47.4344,57.635 47.4367,57.6004 47.4298,57.5404 47.386,57.5312 47.3747,57.4838 47.2763,57.4808 47.2655,57.5008 47.2083,57.5044 47.1944,57.5172 47.1419,57.5186 47.1213,57.5013 47.0805,57.4977 47.0074,57.4691 46.8497,57.453 46.7961,57.4674 46.7241,57.4644 46.6826,57.4782 46.6457,57.4759 46.6549,57.4621 46.6756,57.4321 46.7056,57.4228 46.6895,57.3998 46.6687,57.3952 46.6434,57.3744 46.6203,57.3721 46.5903,57.3629 46.6065,57.3398 46.6226,57.349 46.6618,57.3375 46.648,57.3214 46.5811,57.3075 46.5765,57.296 46.6088,57.2522 46.6526,57.2476 46.6872,57.243 46.7056,57.1991 46.7494,57.1853 46.7333,57.1484 46.6664,57.1553 46.6249,57.1484 46.6249,57.1161 46.6641,57.1 46.6595,57.0377 46.6664,56.9777 46.6272,56.9754 46.6134,56.957 46.6503,56.9339 46.6203,56.9178 46.6434,56.9039 46.6018,56.9016 46.6295,56.8809 46.6941,56.8763 46.7702,56.8901 46.8463,56.8993 46.9293,56.867 46.9708,56.8832 47.0608,56.8601 47.0677,56.8048 47.0308,56.7909 47.0746,56.7586 47.0931,56.7863 47.1254,56.784 47.1807,56.7886 47.2569,56.8024 47.3122,56.8163 47.3376,56.8301 47.386,56.8047 47.4022,56.807 47.4137,56.8555 47.4506,56.8647 47.4598,56.8831 47.4829,56.8855 47.5152,56.9224 47.5451,56.9385 47.5867,56.9662 47.6259,56.9546 47.6697,56.95 47.6651,56.9685 47.6259,56.9915 47.6282,57.0008 47.6697,57.0146 47.6974,57.0008 47.7158,56.9662 47.7458,56.9385 47.7827,56.9477 47.8127,56.9247 47.8196,56.9639 47.845,56.9569 47.8565,56.9316 47.8795,56.9247 47.8888,56.9385 47.8888,56.9639 47.9164,56.9593 47.9441,56.9454 47.9718,56.9569 47.9902,56.9523 48.041,56.9523 48.0571,56.9708 48.0733,56.9708 48.1056,56.9731 48.1009,56.9985 48.0571,57.0215 48.0687,57.0354 48.1309,57.0354 48.1448,57.0607 48.0917,57.07 48.0963,57.0792 48.1494,57.0838 48.1817,57.0953 48.1863,57.1138 48.2001,57.1207 48.2555,57.1069 48.2647,57.0884 48.304,57.085 48.327,57.085 48.3501,57.0689 48.417,57.1023 48.4262,57.115 48.4423,57.1208 48.4804,57.1219 48.4919,57.1127 48.5288,57.1046 48.5715,57.1046 48.5807,57.13 48.6407,57.1242 48.7352,57.1115 48.7295,57.0919 48.7641,57.0781 48.7594,57.0585 48.7422,57.0424 48.7872,57.0297 48.8414,57.0343 48.8771,57.0527 48.9013,57.0689 48.9025,57.0839 48.9059,57.1323 48.9163,57.145 48.9428,57.1484 48.9463,57.1657 48.929,57.1727 48.9117,57.175 48.9071,57.2119 48.9267,57.2407 48.9797,57.2465 49.004,57.2557 49.0443,57.2707 49.0789,57.281 49.0881,57.2753 49.1031,57.258 49.1262,57.2476 49.1262,57.2361 49.0997,57.2269 49.0881,57.2072 49.0789,57.1796 49.0835,57.1623 49.0766,57.1554 49.042,57.1323 49.0397,57.115 49.0524,57.0954 49.102,57.085 49.1296,57.0793 49.1285,57.0389 49.155,57.002 49.23,56.9882 49.3061,56.9731 49.328,56.9777 49.3199,56.9893 49.3119,57.0043 49.3592,57.0089 49.3753,57.0066 49.4133,57.0089 49.4283,57.0239 49.5137,57.0216 49.6036,57.0239 49.6163,57.0192 49.6036,56.9904 49.6071,56.9812 49.6209,56.9789 49.6244,56.942 49.6509,56.9385 49.6624,56.9155 49.6198,56.8832 49.6567,56.8682 49.6324,56.8532 49.6394,56.8428 49.6993,56.8382 49.742,56.844 49.7731,56.8428 49.8562,56.8128 49.9138,56.8163 49.9253,56.8128 49.9703,56.7817 49.9622,56.7483 49.9726,56.7379 49.998,56.7471 50.0072,56.7148 49.983,56.6698 49.9795,56.6479 49.9692,56.6157 49.9818,56.5995 49.9738,56.573 50.0414,56.5657 50.0652,56.5752 50.0795,56.6062 50.0985,56.6109 50.1318,56.6109 50.1628,56.5919 50.1961,56.5895 50.2176,56.599 50.2033,56.6205 50.2176,56.63 50.2533,56.6205 50.2985,56.5943 50.3128,56.5681 50.3128,56.5419 50.3414,56.5371 50.3509,56.5633 50.37,56.5705 50.3938,56.5633 50.3462,56.5085 50.3485,56.4919 50.4009,56.4562 50.4009,56.4323 50.4152,56.4109 50.4462,56.3776 50.4867,56.349 50.5224,56.3609 50.5248,56.3514 50.5128,56.3228 50.4795,56.3085 50.4914,56.3038 50.5224,56.3061 50.5724,56.2895 50.6295,56.2823 50.6748,56.3014 50.6867,56.3157 50.6581,56.3514 50.6867,56.3633 50.7224,56.3419 50.7534,56.3395 50.7795,56.3085 50.7653,56.2966 50.7795,56.2704 50.8057,56.2633 50.7986,56.2276 50.7557,56.2204 50.7557,56.2109 50.7391,56.2085 50.7367,56.1918 50.7915,56.168 50.8557,56.149 50.9272,56.1013 50.9629,56.0894 50.97,56.0728 51.0129,56.1013 51.1058,56.0918 51.1129,56.0513 51.1725,56.0466 51.1915,56.0228 51.2367,56.0228 51.2367,56.0418 51.2677,56.0775 51.3377,56.0921 51.4006,56.08 51.4683,56.0994 51.5385,56.1042 51.5506,56.0873 51.5143,56.0583 51.3958,56.0292 51.3474,55.9784 51.3039,55.947 51.3111,55.8914 51.3426,55.8744 51.3692,55.8865 51.4659,55.8986 51.4925,55.8938 51.5409,55.9035 51.5893,55.8865 51.611,55.9131 51.628,55.9156 51.6304,55.8841 51.6715,55.8696 51.6763,55.8357 51.6884,55.8309 51.7102,55.8599 51.7513,55.8769 51.8191,55.8914 51.8263,55.9301 51.8578,55.9349 51.8771,55.9107 51.9255,55.9107 51.9715,55.8817 51.9449,55.8648 51.9545,55.8454 52.073,55.8454 52.0972,55.889 52.148,55.8817 52.1529,55.9131 52.1021,55.9397 52.1117,55.9809 52.1504,55.9905 52.1432,56.0171 52.1142,56.0026 52.09,56.0026 52.0755,56.0196 52.0972,56.0317 52.1674,56.0365 52.1795,56.0196 52.1891,56.0244 52.2133,56.0268 52.2496,55.9857 52.3198,55.9954 52.3343,55.9809 52.3826,55.9833 52.3512,56.0147 52.3706,56.0244 52.4528,56.0171 52.5616,55.9664 52.6269,56.0171 52.6197,56.0558 52.6003,56.0679 52.5931,56.097 52.6342,56.0897 52.6366,56.0752 52.6681,56.0679 52.6874,56.0462 52.7334,56.0413 52.7527,56.0704 52.7164,56.08 52.743,56.1139 52.7068,56.1332 52.7189,56.1526 52.6463,56.1599 52.6076,56.184 52.5616,56.1744 52.5495,56.1889 52.4746,56.1744 52.46,56.2131 52.5036,56.2397 52.535,56.2397 52.5326,56.2566 52.5495,56.2711 52.5834,56.3026 52.6415,56.3243 52.6245,56.3437 52.6753,56.3606 52.7213,56.3364 52.7576,56.3534 52.8132,56.3679 52.8325,56.3872 52.8543,56.3945 52.8543,56.4187 52.7406,56.4525 52.7285,56.4767 52.8156,56.4501 52.8398,56.467 52.8325,56.4936 52.8954,56.4912 52.9559,56.4719 52.9922,56.484 52.9922,56.4646 52.9656,56.4501 52.9632,56.4235 52.8954,56.3703 52.835,56.3219 52.8809,56.3025 52.8422,56.259 52.8592,56.2518 52.8761,56.23 52.8568,56.2082 52.9003,56.1768 52.893,56.1429 52.9196,56.1308 52.939,56.1574 52.9656,56.1332 52.939,56.097 52.9632,56.0824 52.9849,56.0994 53.043,56.1139 53.0623,56.0728 53.1277,56.0679 53.1567,56.0413 53.2486,56.0316 53.2438,56.0655 53.2389,56.1042 53.1954,56.155 53.1567,56.1913 53.1881,56.2179 53.2994,56.2276 53.3526,56.2179 53.4493,56.1961 53.4397,56.1598 53.4566,56.1357 53.4373,56.0776 53.3671,56.0655 53.3163,55.9833 53.251,55.9373 53.2075,55.8986 53.1639,55.8865 53.0841,55.8889 53.0841,55.8696 53.2026,55.8019 53.3599,55.8357 53.5316,55.8648 53.5429,55.8869 53.5649,55.9121 53.6218,55.9216 53.6849,55.9247 53.7007,55.9531 53.7417,55.9942 53.808,55.9784 53.8869,55.9689 53.9405,55.9942 53.9689,56.0415 53.9974,56.0889 54.0479,56.1173 54.0857,56.133 54.1362,56.1646 54.1899,56.1867 54.253,56.2025 54.272,56.2372 54.2688,56.2625 54.2372,56.2656 54.2183,56.294 54.253,56.3097 54.2436,56.3445 54.2278,56.4171 54.171,56.3823 54.1268,56.4013 54.111,56.4549 54.0794,56.4833 54.0352,56.477 53.9942,56.4991 53.991,56.5181 53.9847,56.537 53.9532,56.5338 53.9248,56.537 53.95,56.5559 53.9879,56.5812 53.9942,56.5938 53.9942,56.6096 53.9626,56.6127 53.9437,56.6443 53.9058,56.6222 53.8711,56.5843 53.8301,56.5875 53.7985,56.5717 53.7638,56.5559 53.7354,56.5875 53.7449,56.597 53.7733,56.6096 53.7827,56.638 53.7575,56.6569 53.7385,56.6822 53.7101,56.7264 53.7385,56.7674 53.789,56.7611 53.7859,56.7169 53.8364,56.7074 53.8837,56.6917 53.9374,56.7169 53.9847,56.7422 53.9847,56.7958 53.9974,56.8527 53.9879,56.8968 54.0321,56.9253 54.1205,56.9663 54.2562,56.9537 54.3035,56.9852 54.2909,57.0136 54.2499,57.0263 54.2025,57.0389 54.1773,57.0641 54.1931,57.0673 54.2152,57.0799 54.2341,57.1241 54.2215,57.1462 54.2373,57.1714 54.2089,57.1904 54.2373,57.2219 54.1994,57.244 54.1457,57.2535 54.1079,57.2535 54.07,57.263 54.0258,57.2503 54.0163,57.2693 54.0321,57.2914 54.0416,57.3293 54.0479,57.3419 54.0889,57.3513 54.1331,57.3608 54.171,57.3734 54.171,57.4113 54.1363,57.4145 54.1205,57.4082 54.0763,57.4176 54.07,57.465 54.1015,57.4871 54.0605,57.5092 54.0226,57.5028 53.9974,57.465 53.9343,57.4871 53.9469,57.4934 53.9437,57.5123 53.8901,57.506 53.8901,57.5407 53.9343,57.5407 53.9563,57.5565 54.0005,57.5565 54.0163,57.5691 53.9816,57.5881 53.969,57.6196 54.0132,57.6449 54.0573,57.6449 54.0542,57.6859 54.0321,57.7396 54.0258,57.809 53.9879,57.8564 53.9974,57.9037 54.0005,57.9384 53.9374,57.9731 53.8869,58.0016 53.8459,58.0457 53.8364,58.0805 53.8048,58.0994 53.7954,58.131 53.7512,58.1499 53.7038,58.1783 53.7291,58.2099 53.7859,58.273 53.7385,58.3046 53.6849,58.3393 53.6849,58.3898 53.6786,58.4182 53.666,58.4497 53.6281,58.516 53.5902,58.5381 53.5934,58.5602 53.6596,58.6044 53.6407,58.6297 53.6533,58.6549 53.688,58.6802 53.767,58.7022 53.8301,58.7307 53.8111,58.7464 53.7354,58.7591 53.6975,58.7875 53.6565,58.8096 53.6281,58.8664 53.6312,58.9106 53.6628,58.9768 53.7038,58.9768 53.7449,58.9832 53.7291,59.0052 53.7827,59.04 53.7417,59.0715 53.7101,59.0557 53.6759,59.0752 53.6473,59.0834 53.5861,59.0711 53.6187,59.0384 53.4635,59.0793 53.4104,59.0956 53.3492,59.0874 53.2593,59.1242 53.1654,59.2059 53.1082,59.2631 53.1204,59.3325 53.1776,59.3815 53.2675,59.4755 53.3287,59.6347 53.5085,59.6511 53.5738,59.794 53.5738,59.8635 53.6146,59.9615 53.4962,60.1085 53.4554,60.1085 53.3982,60.129 53.3859,60.1698 53.3124,60.1698 53.292,60.1126 53.0428,60.1044 52.7814,60.1126 52.5813,60.1249 52.3362,60.1494 52.2001,60.1929 52.1363,60.2161 52.0686,60.2393 52.0086,60.2664 51.9525,60.2664 51.9003,60.2451 51.8249,60.2103 51.7552,60.1503 51.7204,60.0807 51.6759,60.0517 51.5947,60.0033 51.5038,59.9472 51.4303,59.8969 51.3781,59.895 51.3162,59.8911 51.2871,59.9143 51.2755,59.9511 51.2504,59.9666 51.1517,59.9937 51.0666,60.013 50.9718,60.0072 50.9196,59.9608 50.8268,59.8969 50.761,59.866 50.7475,59.835 50.7107,59.8118 50.6314,59.8118 50.583,59.8157 50.5037,59.806 50.3992,59.7905 50.3141,59.7924 50.2174,59.7712 50.1768,59.7576 50.1652,59.7363 50.14,59.7035 50.1149,59.7073 50.0356,59.7073 49.9466,59.7247 49.8982,59.7305 49.8615,59.7131 49.8537,59.6996 49.9253,59.6551 49.9524,59.6454 49.9485,59.6358 49.8847,59.6261 49.8054,59.6145 49.7512,59.6125 49.7318,59.5951 49.7125,59.5371 49.6873,59.4616 49.6951,59.4403 49.7202,59.4345 49.7164,59.3862 49.6989,59.3378 49.7222,59.3223 49.7164,59.2914 49.7183,59.2566 49.6951,59.1715 49.6525,59.1695 49.6158,59.154 49.5094,59.1637 49.4359,59.1792 49.4088,59.1927 49.4088,59.2217 49.4378,59.2972 49.4513,59.3436 49.3836,59.3552 49.3005,59.3572 49.2444,59.3668 49.2328,59.3842 49.2192,59.4094 49.1883,59.4191 49.0935,59.4326 49.0722,59.45 49.0335,59.4577 48.9929,59.4326 48.9349,59.4326 48.9871,59.6067 48.9581,59.6125 48.9175,59.6144 48.4106,59.6531 48.4029,59.7015 48.3913,59.7459 48.399,59.8233 48.3952,59.8814 48.3952,59.9394 48.3662,59.9994 48.3584,60.0632 48.3545,60.1057 48.3681,60.1541 48.4164,60.1812 48.6041,60.2547 48.608,60.276 48.6254,60.2856 48.6602,60.3185 48.5693,60.3572 48.5538,60.3437 48.5209,60.3495 48.4571,60.3611 48.4397,60.3669 48.4706,60.3824 48.5054,60.3746 48.5132,60.394 48.4029,60.4404 48.4106,60.4655 48.3874,60.4771 48.4406,60.5082 48.4333,60.5521 48.4077,60.6105 48.3675,60.7165 48.321,60.8023 48.2896,60.8023 47.9593,60.8292 47.8852,60.8405 47.8807,60.8585 47.8672,60.9034 47.8604,60.9528 47.8402,60.9551 47.7953,60.946 47.7413,60.9663 47.6829,60.9753 47.5728,60.9775 47.5301,61.0 47.4695,61.0045 47.4021,60.9977 47.3571,60.991 47.1347,61.0134 47.0987,61.0112 47.1032,60.973 47.0785,60.9393 47.0089,60.9191 46.9954,60.8517 46.9729,60.8045 46.9437,60.8045 46.9639,60.7865 46.9841,60.7753 46.928,60.6764 46.8898,60.636 46.8561,60.6202 46.8606,60.6 46.8965,60.5933 46.928,60.5865 46.9213,60.5506 46.964,60.5214 46.8561,60.5079 46.8584,60.49 46.7977,60.472 46.7572,60.4697 46.764,60.4563 46.7775,60.4338 46.7078,60.3417 46.7325,60.3372 46.7011,60.2967 46.7078,60.29 46.7123,60.2743 46.6359,60.1956 46.6179,60.2069 46.5258,60.2293 46.427,60.2046 46.3416,60.2248 46.2629,60.2001 46.209,60.2069 46.2,60.1956 46.2015,60.1946 432,6.0,Russia 70.2638,57.8398 70.2951,57.8142 70.2982,57.7927 70.3197,57.7743 70.3228,57.7436 70.3043,57.7252 70.3043,57.7068 70.3596,57.7068 70.378,57.6485 70.4578,57.6485 70.4547,57.5227 70.5007,57.5319 70.5621,57.5319 70.5683,57.4859 70.5683,57.4582 70.4148,57.3969 70.3074,57.3539 70.3105,57.3201 70.335,57.2925 70.4056,57.2219 70.4701,57.2097 70.5284,57.2097 70.5345,57.179 70.4823,57.1606 70.4854,57.1422 70.5836,57.136 70.6573,57.1391 70.6695,57.1851 70.6358,57.1851 70.6388,57.2219 70.6971,57.268 70.7156,57.2649 70.8352,57.271 70.8782,57.2987 70.9856,57.2802 70.9703,57.2281 71.0194,57.2281 71.0194,57.1913 70.9641,57.182 70.9764,57.1544 71.0562,57.1483 71.1145,57.1422 71.1145,57.1207 71.2373,57.0163 71.3447,56.958 71.449,56.9243 71.5349,56.8598 71.5503,56.7586 71.4674,56.7371 71.4705,56.7156 71.4367,56.6634 71.3938,56.6511 71.3355,56.6634 71.2986,56.6757 71.2771,56.6696 71.2802,56.6511 71.2802,56.6205 71.228,56.6143 71.1544,56.6235 71.0378,56.6143 70.9396,56.6511 70.912,56.6327 70.9887,56.5836 70.9673,56.4885 70.8261,56.4302 70.7463,56.4394 70.6972,56.4333 70.6358,56.4057 70.6635,56.3811 70.7432,56.4057 70.7678,56.3658 70.823,56.3658 70.8108,56.2798 70.7248,56.2737 70.6481,56.2338 70.6481,56.2001 70.7156,56.2123 70.7248,56.1663 70.6819,56.1479 70.7003,56.0988 70.7647,56.0834 70.8015,56.0589 70.7463,55.9515 70.7156,55.8901 70.6328,55.8471 70.4885,55.8379 70.3535,55.8257 70.3535,55.798 70.4609,55.7858 70.6328,55.8042 70.6696,55.7766 70.5652,55.7459 70.5192,55.7551 70.467,55.7367 70.467,55.706 70.421,55.6661 70.4302,55.6108 70.5131,55.571 70.5837,55.571 70.642,55.5341 70.5775,55.4482 70.4333,55.4267 70.3688,55.3776 70.3535,55.3162 70.3903,55.2764 70.3504,55.2334 70.3502,55.2314 70.3963,55.2201 70.4298,55.2128 70.4661,55.2126 70.4982,55.2201 70.5285,55.2361 70.5531,55.2478 70.6804,55.2528 70.7186,55.2387 70.6877,55.2027 70.6867,55.1818 70.7087,55.1667 70.8722,55.034 70.8796,55.0146 70.8791,54.9909 70.875,54.9597 70.8674,54.9401 70.8544,54.9163 70.8481,54.8276 70.8921,54.7334 70.9844,54.6719 71.1064,54.6697 71.1581,54.6262 71.1645,54.5976 71.1688,54.5718 71.1436,54.5645 71.1096,54.5591 71.0777,54.5518 71.0453,54.5358 71.0527,54.4481 71.0758,54.4076 71.1019,54.3466 71.0942,54.2624 71.0058,54.2542 70.9672,54.2755 70.9431,54.2762 70.8775,54.2687 70.8785,54.2171 70.9561,54.2072 70.9605,54.1465 70.9484,54.1302 70.9958,54.1182 71.0668,54.04 71.1389,54.063 71.1607,54.0887 71.217,54.1518 71.365,54.1231 71.3761,54.0726 71.3818,54.0501 71.5344,54.0469 71.5967,54.0674 71.6294,54.091 71.6159,54.1559 71.6476,54.1917 71.7691,54.1946 71.8381,54.1844 71.9153,54.1542 72.0018,54.0699 72.0736,54.0752 72.0917,54.0929 72.083,54.1327 72.0488,54.1457 72.0282,54.1496 71.9748,54.187 71.928,54.3165 72.0475,54.3129 72.0757,54.3102 72.2234,54.2003 72.2391,54.1806 72.223,54.1544 72.2009,54.1226 72.2457,54.1131 72.3879,54.0794 72.3654,54.0504 72.3161,53.9714 72.2828,53.8942 72.2745,53.8663 72.2938,53.8597 72.3287,53.8499 72.3625,53.8491 72.3996,53.8716 72.415,53.8842 72.4302,53.8971 72.5688,53.8962 72.607,53.9014 72.5969,53.9377 72.5816,53.961 72.5439,53.9996 72.4775,53.9967 72.444,53.9909 72.4117,53.9962 72.4254,54.0394 72.4455,54.057 72.4867,54.0804 72.6083,54.0703 72.7443,54.0598 72.8537,54.065 72.8719,54.053 72.8783,53.9931 72.9483,53.9259 73.1694,53.8909 73.2694,53.8855 73.3727,53.8882 73.4238,53.8966 73.4225,53.9249 73.4196,53.952 73.4893,54.0143 73.5583,54.0232 73.641,54.0025 73.6155,53.9071 73.5896,53.8122 73.5316,53.8011 73.3868,53.8195 73.3216,53.8129 73.2353,53.7269 73.2081,53.6317 73.1397,53.6206 73.1184,53.5818 73.1338,53.5175 73.1556,53.5113 73.2613,53.4766 73.2901,53.4588 73.2505,53.4045 73.3172,53.3737 73.4614,53.4574 73.4783,53.5042 73.5558,53.5569 73.6543,53.5548 73.796,53.5916 73.9598,53.5695 74.1248,53.5397 74.1451,53.5035 74.1624,53.4649 74.255,53.4093 74.3074,53.4161 74.3615,53.522 74.3169,53.5475 74.3439,53.6308 74.4857,53.6261 74.5243,53.6256 74.5512,53.6973 74.6657,53.7735 74.6884,53.7816 74.8233,53.7758 74.91,53.744 75.0662,53.8206 75.2444,53.9079 75.332,53.931 75.3161,53.9476 75.2586,54.0042 75.3754,54.0521 75.4478,54.0341 75.4921,54.0354 75.5652,54.0471 75.5739,54.05 75.5737,54.0522 75.5695,54.1425 75.5653,54.2496 75.559,54.3294 75.5632,54.4239 75.559,54.4722 75.6241,54.4869 75.6745,54.4995 75.6913,54.5142 75.7165,54.5499 75.6976,54.5793 75.6766,54.6003 75.6724,54.6192 75.685,54.6339 75.6556,54.6486 75.6283,54.6339 75.5968,54.6213 75.5821,54.6402 75.5674,54.6675 75.5569,54.7179 75.5317,54.7515 75.4456,54.7536 75.4078,54.7599 75.3721,54.7872 75.3784,54.8082 75.4162,54.8355 75.3532,54.8565 75.2671,54.846 75.2167,54.8544 75.2125,54.8838 75.244,54.9153 75.2776,54.9615 75.2566,55.0077 75.2419,55.0119 75.1957,55.014 75.181,55.0245 75.1852,55.0476 75.1306,55.0707 75.1306,55.0812 75.1537,55.1316 75.1537,55.1694 75.1558,55.1925 75.1243,55.2177 75.0865,55.2177 75.0865,55.245 75.0508,55.2555 75.0508,55.2807 75.0256,55.2975 74.9752,55.3227 74.9941,55.3374 75.0508,55.3605 75.0487,55.392 75.097,55.4088 75.1411,55.4214 75.2041,55.4466 75.2041,55.4739 75.1831,55.5075 75.0781,55.497 75.0088,55.5432 75.0634,55.5726 75.1117,55.5999 75.0088,55.6398 75.0151,55.6587 74.9983,55.6734 74.9647,55.6902 74.9941,55.7091 75.097,55.6818 75.2503,55.707 75.2566,55.7406 75.2398,55.7553 75.1894,55.77 75.1705,55.8057 75.2293,55.8561 75.391,55.9338 75.4036,55.9653 75.4309,55.9926 75.5821,56.0094 75.5968,56.0577 75.6514,56.0829 75.7375,56.0766 75.8446,56.0661 75.8677,56.1165 75.9706,56.1081 76.0294,56.1249 76.0399,56.0871 76.1302,56.1228 76.2016,56.1228 76.1932,56.1669 76.1386,56.1984 76.1029,56.2026 76.0798,56.2362 75.9958,56.253 75.9559,56.3559 76.0231,56.3685 76.0231,56.3958 75.9559,56.4063 75.9412,56.4294 75.8929,56.3958 75.8299,56.4168 75.7837,56.3811 75.7228,56.3916 75.7417,56.4378 75.8152,56.4588 75.9034,56.4903 75.9385,56.5437 76.0429,56.5683 76.0613,56.6235 76.1718,56.6665 76.1411,56.7279 76.1411,56.8506 76.0736,56.8936 76.0736,56.9365 76.0429,57.0593 75.9815,57.1882 75.8649,57.3477 75.7421,57.3355 75.601,57.5932 75.4598,57.5932 75.4353,57.8694 74.9565,58.0658 75.1161,58.1579 74.9443,58.2807 75.2327,58.4218 74.9841,58.5231 74.8338,58.4525 74.8154,58.4187 74.7724,58.4187 74.7724,58.3666 74.6773,58.3696 74.5085,58.2776 74.5054,58.2438 74.4256,58.2193 74.3643,58.2101 74.085,58.075 73.5419,58.0842 73.1061,58.0873 72.9496,58.0873 72.8146,58.029 72.8514,58.0044 72.7532,57.9461 72.4003,57.9523 72.3604,57.9768 72.0014,57.9645 71.9584,58.0351 71.8664,58.0658 71.3876,58.0229 71.3385,58.0229 71.2986,58.0321 71.1145,58.0136 71.1299,58.0597 71.0992,58.0904 71.1268,58.3052 71.1698,58.3082 71.1912,58.3359 71.0869,58.3696 71.0685,58.388 71.0071,58.388 70.9826,58.4249 70.9549,58.477 70.8997,58.4555 70.8567,58.4586 70.826,58.4862 70.7769,58.4893 70.7401,58.474 70.3381,57.9124 70.3074,57.8909 70.3166,57.8756 70.2951,57.8725 70.2614,57.8602 70.2614,57.8418 70.2638,57.8398 3491,5.0,Russia 50.6822,51.7111 50.6891,51.7025 50.6941,51.7091 50.7326,51.7048 50.7628,51.6999 50.7842,51.6916 50.8107,51.6733 50.8341,51.6418 50.8651,51.6283 51.097,51.6168 51.1245,51.6183 51.1956,51.6239 51.3049,51.5807 51.3226,51.5557 51.3096,51.5112 51.2221,51.4954 51.1782,51.4812 51.2201,51.4215 51.3459,51.4096 51.4451,51.4333 51.569,51.4171 51.5972,51.3961 51.6321,51.4022 51.7219,51.4436 51.7162,51.4853 51.6994,51.5227 51.7065,51.5439 51.7909,51.6118 51.8128,51.622 51.8363,51.6265 51.8755,51.624 51.9248,51.6064 51.9446,51.6036 52.0082,51.6019 52.0283,51.6051 52.0576,51.6218 52.0839,51.6585 52.2319,51.7187 52.26,51.7207 52.2836,51.6992 52.3925,51.523 52.4015,51.4896 52.4085,51.4691 52.4259,51.4442 52.4495,51.4247 52.4778,51.4113 52.5263,51.3967 52.5828,51.3972 52.6172,51.4132 52.6864,51.4438 52.7594,51.4253 52.8033,51.4056 52.9042,51.4111 52.9663,51.4319 53.0651,51.4416 53.1214,51.4334 53.2119,51.4268 53.243,51.4325 53.2726,51.4414 53.3411,51.4332 53.5551,51.3235 53.5296,51.2902 53.5293,51.2418 53.593,51.1701 53.669,51.1551 53.8022,51.1336 53.832,51.1406 53.8675,51.1368 54.0523,51.045 54.061,51.0253 54.0855,50.9397 54.1214,50.9081 54.2267,50.846 54.2913,50.8365 54.3428,50.827 54.4185,50.8006 54.4211,50.7715 54.3853,50.7368 54.3585,50.7108 54.3161,50.5674 54.3293,50.5382 54.3364,50.5298 54.3688,50.4993 54.4164,50.475 54.4414,50.4705 54.5241,50.4844 54.6039,50.5316 54.6189,50.5511 54.6108,50.5912 54.5827,50.6376 54.5751,50.6692 54.5883,50.7348 54.5892,50.8125 54.5514,50.8457 54.4973,50.8591 54.4655,50.8635 54.4706,50.951 54.5634,50.9779 54.5904,50.9784 54.6301,50.9708 54.7452,50.9244 54.9039,50.8399 54.9903,50.7763 55.0064,50.7553 55.2149,50.6286 55.2922,50.5937 55.3276,50.6062 55.3683,50.6109 55.4061,50.6052 55.4258,50.5966 55.4416,50.5797 55.4538,50.5544 55.5714,50.4884 55.591,50.4792 55.6083,50.4742 55.6722,50.5195 55.6952,50.5331 55.7545,50.5554 55.7828,50.5636 55.8269,50.5735 55.8466,50.5812 55.9152,50.6137 55.9498,50.6335 56.0335,50.6849 56.0414,50.7138 56.049,50.7564 56.077,50.8358 56.0902,50.8552 56.1177,50.8567 56.1487,50.8458 56.1753,50.8389 56.2418,50.8305 56.2699,50.8428 56.3648,50.9179 56.3607,50.9478 56.3548,50.975 56.3923,51.0103 56.4154,51.0217 56.4432,51.0156 56.4671,50.9904 56.4866,50.9697 56.5041,50.9532 56.5365,50.9304 56.6415,50.9251 56.6267,50.9599 56.6152,50.984 56.6193,51.0042 56.6668,51.0251 56.693,51.0327 56.7192,51.0231 56.748,51.0052 56.7765,51.0002 56.9633,51.0112 57.012,51.0169 57.0399,51.0255 57.1204,51.0064 57.1785,50.9592 57.2529,50.8615 57.2685,50.8448 57.297,50.8297 57.34,50.8142 57.376,50.8066 57.4226,50.8139 57.4406,50.8282 57.4516,50.8503 57.4737,50.8651 57.5249,50.8679 57.5565,50.8652 57.6077,50.8477 57.648,50.8517 57.6652,50.8707 57.6717,50.9 57.6724,50.922 57.6636,50.9639 57.6614,50.9937 57.6666,51.0234 57.704,51.0573 57.755,51.0431 58.0623,50.9949 58.0934,50.9992 58.1228,51.0378 58.1311,51.0587 58.2247,51.0907 58.2481,51.0969 58.2883,51.0686 58.4832,51.0045 58.5118,50.9875 58.5255,50.9723 58.5361,50.9437 58.5214,50.9002 58.4807,50.8631 58.5072,50.8073 58.5763,50.7463 58.8085,50.6394 58.8342,50.6283 58.8604,50.6236 59.0059,50.6112 59.1035,50.6102 59.1522,50.6077 59.2678,50.5767 59.3724,50.5765 59.3984,50.5718 59.4937,50.528 59.4874,50.5021 59.4518,50.4945 59.4069,50.4995 59.3774,50.4751 59.4397,50.4249 59.4526,50.42 59.51,50.4532 59.5353,50.4645 59.5686,50.4772 59.6084,50.4777 59.6302,50.4743 59.6644,50.4755 59.724,50.488 59.8043,50.5867 59.8485,50.6532 59.8451,50.6909 59.855,50.72 59.8767,50.7549 59.8965,50.7844 59.9276,50.7996 59.9612,50.8055 60.0278,50.8037 60.0788,50.7769 60.0777,50.7366 60.0852,50.7104 60.1461,50.6631 60.179,50.6494 60.2264,50.6323 60.2661,50.6277 60.606,50.6032 60.6376,50.6019 60.6779,50.6028 60.8376,50.6365 60.9551,50.6649 60.9992,50.6762 61.0522,50.6865 61.0849,50.6925 61.1847,50.7101 61.2097,50.7145 61.2461,50.7181 61.2881,50.7249 61.31,50.7315 61.329,50.7419 61.3679,50.8143 61.3738,50.8389 61.4038,50.9663 61.4464,51.1401 61.4563,51.1586 61.4725,51.1732 61.4973,51.1847 61.5269,51.1935 61.5662,51.2026 61.5909,51.2064 61.5767,51.2089 61.553,51.2155 61.5089,51.2298 61.4805,51.2501 61.3957,51.3655 61.2539,51.3984 61.1155,51.4089 61.0819,51.4067 61.0459,51.4 60.9296,51.4207 60.8809,51.4407 60.8434,51.493 60.8371,51.5381 60.8478,51.5567 60.8277,51.5608 60.7609,51.5624 60.4419,51.5675 60.2831,51.6305 60.3069,51.6533 60.3651,51.6757 60.405,51.7342 60.3914,51.7489 60.3684,51.7556 60.1299,51.8118 60.0436,51.8048 60.0201,51.8022 59.9935,51.8068 59.9579,51.8231 59.9093,51.8952 59.9145,51.9187 59.9313,51.9404 60.1287,51.939 60.3012,52.0458 60.3652,52.0842 60.3954,52.095 60.4432,52.0989 60.5069,52.0924 60.5463,52.0877 60.5884,52.0886 60.6261,52.0995 60.6514,52.1187 60.6819,52.1555 60.7149,52.1695 60.7531,52.1789 60.8061,52.1939 60.8386,52.2092 60.9633,52.2801 60.9493,52.296 60.882,52.352 60.8738,52.4339 60.7385,52.4758 60.7387,52.5381 60.7282,52.5751 60.6682,52.5729 60.6428,52.5752 60.5985,52.6154 60.6002,52.6465 60.6094,52.6649 60.6345,52.6885 60.7862,52.7614 60.915,52.8224 60.9824,52.8683 61.0005,52.9198 61.0719,52.9526 61.1046,52.9602 61.1361,52.9576 61.1555,52.9518 61.1733,52.9416 61.2013,52.9332 61.256,52.9304 61.2851,52.9327 61.304,52.942 61.3279,52.959 61.349,52.9667 61.3731,52.9666 61.3962,52.9605 61.5963,52.9212 61.7654,52.9235 61.8026,52.9051 61.8551,52.8778 61.9985,52.9153 62.0137,52.9341 62.0318,52.9772 62.0436,53.0143 62.0076,53.0599 61.977,53.0684 61.9461,53.0716 61.8973,53.078 61.7567,53.1005 61.7211,53.1078 61.6808,53.1188 61.6532,53.1302 61.6312,53.1446 61.5066,53.1666 61.4824,53.1569 61.46,53.1537 61.4383,53.1537 61.4098,53.1579 61.3795,53.1676 61.3595,53.1767 61.3361,53.1897 61.3119,53.2038 61.2817,53.2135 61.2527,53.2177 61.2217,53.218 61.175,53.2169 61.1362,53.2189 61.1128,53.2265 61.0852,53.2444 61.068,53.2615 61.0537,53.3062 61.1456,53.4456 61.1867,53.4428 61.2109,53.4405 61.2486,53.4181 61.2769,53.3939 61.3046,53.3823 61.3383,53.3838 61.474,53.4579 61.438,53.531 61.369,53.5323 61.3186,53.5325 61.287,53.5281 61.2645,53.5135 61.2241,53.4932 61.1825,53.4987 61.1281,53.5007 61.0824,53.5069 61.0028,53.5511 60.9731,53.5563 60.9263,53.5575 60.8507,53.5556 60.806,53.5597 60.8113,53.5974 60.8466,53.6015 60.8807,53.5951 60.9069,53.578 60.9501,53.5796 61.1221,53.7441 61.1257,53.7678 61.0208,53.8189 60.9976,53.8228 60.9353,53.8235 60.8989,53.8299 60.8924,53.8564 60.9079,53.8806 60.9342,53.8926 60.9892,53.9008 61.0119,53.9005 61.1139,53.9628 61.2242,54.0059 61.3182,54.0036 61.3533,53.9943 61.3846,53.9523 61.4863,53.9352 61.5399,53.9389 61.6873,53.9412 61.7492,53.8978 61.9232,53.8767 61.923,53.9249 61.9218,53.9617 61.9504,53.9649 61.9929,53.9662 62.2545,53.9598 62.3006,53.8983 62.322,53.8737 62.4297,53.8189 62.4682,53.8307 62.4645,53.8898 62.4733,53.9806 62.5369,54.012 62.574,54.0206 62.6252,54.0232 62.7927,54.0242 62.8144,54.0229 63.0049,54.0324 63.0397,54.0499 63.0444,54.0725 63.0327,54.1046 63.0581,54.1213 63.0868,54.1243 63.1094,54.124 63.22,54.1193 63.244,54.1088 63.2704,54.1059 63.3036,54.1104 63.436,54.1434 63.5802,54.1856 63.6111,54.1947 63.6528,54.1942 63.6992,54.1807 63.7262,54.1683 63.7868,54.1378 63.8706,54.151 63.9111,54.1807 63.8835,54.2079 63.8707,54.2293 63.8881,54.2477 63.978,54.2549 64.1332,54.2676 64.1864,54.2836 64.2114,54.2835 64.2332,54.2784 64.2543,54.2759 64.2746,54.2755 64.3033,54.2781 64.4304,54.3002 64.623,54.278 64.6547,54.2823 64.7149,54.3085 64.7755,54.3359 64.8067,54.3445 64.8578,54.3434 64.8849,54.3342 64.9056,54.322 64.9265,54.3069 64.9512,54.2838 64.9905,54.2553 65.0107,54.2492 65.1156,54.2606 65.1305,54.281 65.1216,54.313 65.106,54.3418 65.091,54.401 65.1106,54.4665 65.2367,54.5041 65.3611,54.5666 65.3911,54.5765 65.4124,54.5767 65.4454,54.5734 65.5454,54.5571 65.5732,54.5512 65.6142,54.5389 65.6414,54.5371 65.6657,54.5431 65.6836,54.5573 65.7043,54.5838 65.7355,54.6208 65.8593,54.6447 65.869,54.6012 65.8741,54.5638 65.9799,54.5753 65.9963,54.581 66.1082,54.5998 66.1595,54.6096 66.2096,54.6203 66.2927,54.6381 66.3243,54.6463 66.3563,54.6547 66.3823,54.6588 66.4105,54.6611 66.4699,54.6632 66.5123,54.6637 66.5794,54.6616 66.6094,54.6627 66.637,54.6702 66.6677,54.6935 66.7045,54.7038 66.7627,54.7082 66.8365,54.709 66.9181,54.7118 67.1347,54.744 67.15,54.7586 67.173,54.7855 67.1888,54.7977 67.2129,54.8036 67.2465,54.7994 67.2772,54.7884 67.4455,54.7897 67.466,54.7904 67.5677,54.8099 67.6427,54.8254 67.6756,54.8533 67.6927,54.8765 67.7187,54.899 67.7817,54.9139 67.8277,54.9139 67.9099,54.8872 67.9387,54.8863 68.0893,54.9033 68.2116,55.002 68.208,55.0223 68.1762,55.0303 68.1309,55.0384 68.0998,55.0676 68.0828,55.1136 68.1034,55.1222 68.1509,55.1351 68.1874,55.1404 68.3592,55.1274 68.3827,55.1257 68.5041,55.1361 68.5227,55.1533 68.6052,55.303 68.6184,55.3044 68.6527,55.3004 68.7366,55.2852 68.768,55.2743 68.7897,55.2527 68.8211,55.2207 68.8558,55.2187 68.885,55.226 68.8887,55.2486 68.8786,55.2866 68.8497,55.2989 68.8242,55.3033 68.8074,55.361 68.8287,55.3773 68.9503,55.3564 69.0509,55.3283 69.0667,55.2786 69.1136,55.2675 69.2321,55.3292 69.3465,55.2997 69.5528,55.2893 69.726,55.23 69.761,55.1982 69.8294,55.1391 69.9281,55.1421 70.0493,55.0956 70.1188,55.0742 70.1435,55.0997 70.1675,55.1222 70.301,55.1962 70.3491,55.2317 70.3502,55.2314 70.3504,55.2334 70.3903,55.2764 70.3535,55.3162 70.3688,55.3776 70.4333,55.4267 70.5775,55.4482 70.642,55.5341 70.5837,55.571 70.5131,55.571 70.4302,55.6108 70.421,55.6661 70.467,55.706 70.467,55.7367 70.5192,55.7551 70.5652,55.7459 70.6696,55.7766 70.6328,55.8042 70.4609,55.7858 70.3535,55.798 70.3535,55.8257 70.4885,55.8379 70.6328,55.8471 70.7156,55.8901 70.7463,55.9515 70.8015,56.0589 70.7647,56.0834 70.7003,56.0988 70.6819,56.1479 70.7248,56.1663 70.7156,56.2123 70.6481,56.2001 70.6481,56.2338 70.7248,56.2737 70.8108,56.2798 70.823,56.3658 70.7678,56.3658 70.7432,56.4057 70.6635,56.3811 70.6358,56.4057 70.6972,56.4333 70.7463,56.4394 70.8261,56.4302 70.9673,56.4885 70.9887,56.5836 70.912,56.6327 70.9396,56.6511 71.0378,56.6143 71.1544,56.6235 71.228,56.6143 71.2802,56.6205 71.2802,56.6511 71.2771,56.6696 71.2986,56.6757 71.3355,56.6634 71.3938,56.6511 71.4367,56.6634 71.4705,56.7156 71.4674,56.7371 71.5503,56.7586 71.5349,56.8598 71.449,56.9243 71.3447,56.958 71.2373,57.0163 71.1145,57.1207 71.1145,57.1422 71.0562,57.1483 70.9764,57.1544 70.9641,57.182 71.0194,57.1913 71.0194,57.2281 70.9703,57.2281 70.9856,57.2802 70.8782,57.2987 70.8352,57.271 70.7156,57.2649 70.6971,57.268 70.6388,57.2219 70.6358,57.1851 70.6695,57.1851 70.6573,57.1391 70.5836,57.136 70.4854,57.1422 70.4823,57.1606 70.5345,57.179 70.5284,57.2097 70.4701,57.2097 70.4056,57.2219 70.335,57.2925 70.3105,57.3201 70.3074,57.3539 70.4148,57.3969 70.5683,57.4582 70.5683,57.4859 70.5621,57.5319 70.5007,57.5319 70.4547,57.5227 70.4578,57.6485 70.378,57.6485 70.3596,57.7068 70.3043,57.7068 70.3043,57.7252 70.3228,57.7436 70.3197,57.7743 70.2982,57.7927 70.2951,57.8142 70.2614,57.8418 70.2614,57.8602 70.2951,57.8725 70.3166,57.8756 70.3074,57.8909 70.3381,57.9124 70.7401,58.474 70.7769,58.4893 70.826,58.4862 70.8567,58.4586 70.8997,58.4555 70.9549,58.477 70.9826,58.4249 71.0071,58.388 71.0685,58.388 71.0869,58.3696 71.1912,58.3359 71.1698,58.3082 71.1268,58.3052 71.0992,58.0904 71.1299,58.0597 71.1145,58.0136 71.2986,58.0321 71.3385,58.0229 71.3876,58.0229 71.8664,58.0658 71.9584,58.0351 72.0014,57.9645 72.3604,57.9768 72.4003,57.9523 72.7532,57.9461 72.8514,58.0044 72.8146,58.029 72.9496,58.0873 73.1061,58.0873 73.5419,58.0842 74.085,58.075 74.3643,58.2101 74.4256,58.2193 74.5054,58.2438 74.5085,58.2776 74.6773,58.3696 74.7724,58.3666 74.7724,58.4187 74.8154,58.4187 74.8338,58.4525 74.9841,58.5231 75.0514,58.5582 75.0304,58.6182 75.2462,58.7231 75.5698,58.9478 75.5459,59.0437 75.5039,59.1846 75.6957,59.2235 75.7736,59.3794 75.8516,59.3554 75.9415,59.4004 76.0464,59.4753 76.3281,59.4813 76.5289,59.5172 76.5289,59.6341 76.6277,59.6641 76.6128,59.8978 76.6367,60.0117 76.5678,60.0507 76.6397,60.1016 76.7326,60.2005 76.6967,60.2754 76.6218,60.2844 76.6547,60.4253 76.7656,60.4313 76.9155,60.4702 76.9304,60.5182 76.9125,60.5751 76.8405,60.5811 76.8495,60.6231 76.8495,60.662 76.9394,60.656 76.9664,60.674 76.9514,60.704 76.9664,60.7849 77.0024,60.7969 77.1282,60.7699 77.2092,60.7729 77.2871,60.7519 77.4399,60.7699 77.5868,60.7669 77.6887,60.737 77.7546,60.704 77.7935,60.689 77.8625,60.701 77.9464,60.731 78.0483,60.74 78.2041,60.728 78.291,60.719 78.345,60.719 78.3869,60.722 78.4708,60.749 78.5667,60.7729 78.6416,60.737 78.6896,60.719 78.7885,60.725 78.8304,60.7639 78.8694,60.7729 78.8934,60.752 78.9413,60.7669 78.9833,60.755 79.0432,60.7789 79.0942,60.7639 79.1391,60.746 79.1751,60.749 79.202,60.734 79.1691,60.719 79.1601,60.662 79.211,60.6261 79.268,60.5901 79.3399,60.6141 79.4568,60.6291 79.6126,60.6351 79.7685,60.6261 79.9243,60.6141 80.0651,60.5991 80.3049,60.704 80.5087,60.704 80.5746,60.74 80.9163,60.6951 80.9312,60.6171 80.9942,60.5752 81.3808,60.5572 81.4257,60.5782 81.7374,60.5932 82.0491,60.4583 82.2708,60.5542 82.2708,60.6561 82.6694,60.8329 82.7803,60.8719 83.023,60.9767 83.3887,60.9917 83.5775,60.8838 83.6734,60.8509 83.7663,60.8179 83.8682,60.7639 84.1439,60.7969 84.4915,60.9378 84.5874,60.9438 85.5884,61.2375 85.5284,61.2884 85.5194,61.3154 85.5794,61.3514 85.6303,61.3813 85.8251,61.4023 85.8521,61.4173 85.8521,61.4503 85.8491,61.4862 85.7592,61.5312 85.7232,61.5372 85.6753,61.5342 85.6093,61.5222 85.5914,61.5192 85.3486,61.5701 85.2617,61.6481 85.1838,61.6241 85.1358,61.6241 85.0549,61.6421 85.0339,61.6541 84.974,61.693 84.8182,61.744 84.7282,61.735 84.6653,61.735 84.5604,61.753 84.5364,61.7979 84.5155,61.8219 84.4406,61.8399 84.4016,61.8759 84.4316,61.9418 84.3177,62.1246 84.5604,62.3044 84.5964,62.3314 84.6054,62.3494 84.6743,62.3554 84.7582,62.3973 84.8002,62.4453 84.7672,62.4753 84.8002,62.4902 84.8302,62.5322 84.8871,62.5352 84.9141,62.5622 84.98,62.5831 84.962,62.6101 84.977,62.6281 85.0249,62.6491 85.0399,62.6731 85.0549,62.703 85.1298,62.766 85.1568,62.769 85.1988,62.8139 85.3306,62.8229 85.4056,62.8738 85.3756,62.9368 85.4505,62.9697 85.4715,63.0117 85.3366,63.0626 85.3366,63.1316 85.4235,63.2005 85.4955,63.2604 85.4026,63.2724 85.2707,63.2664 85.2287,63.2544 85.1778,63.3114 85.2048,63.3264 85.1898,63.3593 85.1298,63.3983 85.0849,63.4253 85.028,63.4103 84.983,63.4343 84.8901,63.4403 84.8542,63.4942 84.9051,63.5092 85.004,63.4912 85.061,63.5362 85.1389,63.5871 85.1658,63.668 85.1958,63.707 85.2288,63.74 85.2498,63.7729 85.3157,63.7999 85.3457,63.8299 85.4356,63.8508 85.4745,63.8898 85.6304,63.9228 85.7592,63.9497 85.7892,63.9827 85.7892,64.0007 85.7622,64.0247 85.7742,64.0516 85.7952,64.0876 85.8282,64.1116 85.8522,64.1835 85.8012,64.2105 85.7623,64.2555 85.7413,64.2914 85.7413,64.3214 85.6634,64.3543 85.6634,64.4113 85.7353,64.4652 85.7353,64.4952 85.6454,64.5312 85.6274,64.5611 85.6634,64.6121 85.6843,64.654 85.6634,64.678 85.4925,64.717 85.4086,64.729 85.3397,64.726 85.2828,64.702 85.2648,64.693 85.1689,64.687 85.046,64.654 84.9801,64.651 84.9351,64.669 84.9231,64.699 84.8992,64.714 84.8392,64.708 84.7583,64.723 84.7523,64.7559 84.7913,64.7709 84.7763,64.8129 84.6984,64.8279 84.6055,64.8309 84.5006,64.8159 84.3927,64.8039 84.2998,64.7889 84.1709,64.7949 84.114,64.8069 84.09,64.8398 84.1559,64.8728 84.2129,64.8878 84.1979,64.9357 84.1469,64.9477 84.129,65.0017 84.1949,65.0646 84.2608,65.1006 84.3537,65.1216 84.3987,65.1815 84.4077,65.2085 84.3687,65.2384 84.3687,65.2564 84.3357,65.2744 84.3208,65.3044 84.3597,65.3223 84.3747,65.3403 84.3417,65.3673 84.3208,65.4122 84.2668,65.4212 84.2668,65.4452 84.2009,65.4572 84.087,65.4812 84.0061,65.4962 84.0271,65.5081 84.12,65.5171 84.12,65.5501 84.138,65.5861 84.0421,65.5861 83.9521,65.619 83.8862,65.661 83.8592,65.6939 83.7514,65.6999 83.5835,65.7059 83.4816,65.6969 83.4157,65.676 83.3258,65.7299 83.3498,65.7599 83.3348,65.7749 83.3438,65.8108 83.2269,65.8618 83.128,65.9517 83.116,65.9757 83.158,65.9996 83.176,66.0146 83.1939,66.0386 83.2928,66.0596 83.3498,66.0746 83.3618,66.0925 83.2808,66.1435 83.1819,66.2274 83.113,66.2723 83.0051,66.3083 82.9152,66.3623 82.9002,66.4522 82.9182,66.5151 82.9872,66.5241 83.0801,66.5511 83.113,66.56 83.125,66.566 83.104,66.59 83.0381,66.632 83.0051,66.65 82.9931,66.6799 82.9961,66.7159 82.9362,66.7489 82.9062,66.7399 82.8673,66.7459 82.8403,66.7638 82.8763,66.7848 82.7324,66.8328 81.9772,67.1235 81.9382,67.1355 81.9352,67.1534 81.9922,67.1534 82.0132,67.1624 82.0072,67.1804 82.0102,67.1924 82.0431,67.1804 82.0821,67.1834 82.0701,67.2014 82.0401,67.2134 82.124,67.2134 82.166,67.2224 82.175,67.2343 82.142,67.2403 82.1061,67.2403 82.1031,67.2523 82.127,67.2523 82.154,67.2553 82.13,67.2733 82.1001,67.2883 82.0581,67.3093 82.0731,67.3243 82.0941,67.3422 82.121,67.3692 82.154,67.3902 82.193,67.3812 82.178,67.3932 82.172,67.4022 82.196,67.4112 82.2109,67.4291 82.208,67.4321 82.181,67.4321 82.16,67.4351 82.187,67.4621 82.166,67.4651 82.0941,67.4531 81.9982,67.4741 81.9982,67.4891 81.9322,67.4921 81.9173,67.528 81.8753,67.546 81.8603,67.555 81.8813,67.57 81.9113,67.573 81.9412,67.588 81.8933,67.597 81.9262,67.618 81.9262,67.6299 81.8843,67.6419 81.8603,67.6629 81.8214,67.6479 81.7674,67.6809 81.7344,67.6779 81.7045,67.6989 81.6895,67.7139 81.6206,67.7678 81.5396,67.8157 81.5576,67.8427 81.5876,67.8547 81.6266,67.8547 81.7075,67.8397 81.7644,67.8367 81.8154,67.8667 81.8663,67.8577 81.9113,67.8427 82.151,67.8427 82.193,67.8487 82.199,67.8727 82.205,67.8877 82.202,67.9386 82.202,67.9476 82.2199,67.9686 82.187,67.9836 82.175,67.9986 82.208,68.0225 82.2139,68.0705 82.2409,68.0825 82.2769,68.0825 82.3278,68.0765 82.3608,68.0705 82.3668,68.0854 82.3398,68.1064 82.3728,68.1394 82.4357,68.1753 82.4836,68.1783 82.5196,68.1933 82.4986,68.2592 82.5316,68.2952 82.4986,68.3911 82.4147,68.445 82.3308,68.466 82.2769,68.478 82.3128,68.484 82.3428,68.487 82.3518,68.487 82.3578,68.517 82.4177,68.499 82.4687,68.523 82.5106,68.532 82.6605,68.532 82.7234,68.526 82.7534,68.5469 82.8103,68.5589 82.8583,68.5589 82.8283,68.5889 82.7354,68.6189 82.6665,68.6309 82.6185,68.6368 82.6005,68.6578 82.6305,68.6638 82.6155,68.6908 82.5975,68.7028 82.5496,68.6908 82.4776,68.6998 82.3698,68.7178 82.3578,68.7387 82.3728,68.7777 82.3578,68.8197 82.3278,68.8586 82.3128,68.8886 82.2559,68.9066 82.2199,68.9186 82.163,68.9216 82.145,68.9515 82.1929,68.9695 82.2858,68.9755 82.2858,68.9935 82.3188,69.0145 82.2769,69.0264 82.2799,69.0594 82.2289,69.0774 82.139,69.0654 82.0761,69.0624 81.9112,69.0714 81.8303,69.0834 81.6745,69.0924 81.5876,69.1343 81.5756,69.1643 81.6295,69.1823 81.6955,69.2033 81.7464,69.2332 81.7374,69.2602 81.6535,69.3022 81.5816,69.3351 81.4947,69.3471 81.4407,69.3082 81.4587,69.2842 81.4317,69.2272 81.4557,69.2093 81.3778,69.1733 81.2849,69.1523 81.2489,69.1523 81.162,69.1913 81.0481,69.1673 80.9522,69.1313 80.9193,69.1313 80.8024,69.1103 80.7544,69.1073 80.7485,69.1253 80.6765,69.1463 80.6196,69.1643 80.5896,69.1883 80.5806,69.2062 80.4608,69.2092 80.3888,69.2122 80.3439,69.2212 80.272,69.2212 80.239,69.2332 80.1551,69.2362 80.0562,69.2602 79.9783,69.2482 79.9573,69.2482 79.9603,69.2602 79.9333,69.2632 79.9123,69.2572 79.8584,69.2572 79.8164,69.2482 79.7835,69.2392 79.7595,69.2512 79.7151,69.2509 79.6774,69.2462 79.6695,69.2572 79.6899,69.2682 79.6931,69.2761 79.6617,69.2824 79.6381,69.3044 79.6444,69.3217 79.6176,69.3264 79.5626,69.3264 79.5359,69.3327 79.5595,69.3405 79.5579,69.3484 79.5375,69.3484 79.506,69.3578 79.4966,69.361 79.4982,69.372 79.4715,69.3814 79.462,69.3908 79.4667,69.4144 79.4384,69.449 79.4196,69.4663 79.4196,69.4867 79.374,69.4961 79.3206,69.5008 79.319,69.5119 79.3504,69.5213 79.3583,69.5307 79.3331,69.5354 79.3111,69.5386 79.3253,69.5527 79.2907,69.559 79.2592,69.5496 79.2262,69.5464 79.2011,69.5574 79.1382,69.5653 78.9779,69.5794 78.9449,69.5826 78.9244,69.5826 78.9024,69.581 78.8899,69.5967 78.8647,69.5967 78.8474,69.5936 78.8223,69.5967 78.8286,69.6125 78.8726,69.6125 78.9103,69.625 78.9464,69.6329 78.959,69.6455 78.9354,69.6502 78.9024,69.6486 78.8851,69.6486 78.8836,69.6612 78.8914,69.68 78.8679,69.691 78.8301,69.6989 78.805,69.7052 78.805,69.7178 78.8254,69.7209 78.8317,69.7366 78.7971,69.7398 78.761,69.7476 78.7342,69.7555 78.7122,69.7634 78.6981,69.7838 78.7327,69.7791 78.772,69.7775 78.8097,69.7869 78.8396,69.8011 78.8663,69.8215 78.871,69.8341 78.904,69.8294 78.9354,69.8388 78.9622,69.8624 78.9936,69.864 79.0109,69.8671 79.0172,69.875 78.9873,69.8844 78.959,69.9001 78.9402,69.908 78.9543,69.9158 78.981,69.9174 79.0093,69.9127 79.0156,69.9095 79.0376,69.9127 79.0109,69.9237 78.9999,69.9363 79.0156,69.952 79.0549,69.9567 79.1021,69.9583 79.1272,69.9614 79.1445,69.9426 79.176,69.9457 79.1822,69.9661 79.1477,69.985 79.1602,70.018 79.1508,70.0495 79.2105,70.0495 79.2404,70.0463 79.231,70.0416 79.209,70.0369 79.2153,70.0243 79.2483,70.018 79.286,70.0133 79.319,70.0117 79.3614,70.0416 79.4007,70.073 79.4306,70.0856 79.4369,70.1029 79.4573,70.1265 79.4809,70.1343 79.5343,70.139 79.5548,70.1516 79.5312,70.1611 79.5328,70.1815 79.5642,70.1831 79.5972,70.1783 79.6302,70.1689 79.6601,70.1689 79.7025,70.1799 79.7906,70.2098 79.7748,70.2161 79.8283,70.2271 79.8896,70.2459 79.9289,70.2585 79.9383,70.2695 79.9226,70.2774 79.899,70.2868 79.9085,70.2947 79.9352,70.2962 79.9666,70.2931 79.9918,70.29 80.0075,70.3025 80.0028,70.3198 79.9918,70.3292 79.9996,70.3371 80.0232,70.3355 80.0562,70.3277 80.0877,70.3277 80.1159,70.3355 80.1269,70.3481 80.1505,70.356 80.1835,70.3623 80.3879,70.3638 80.4068,70.3576 80.4241,70.345 80.4382,70.3293 80.4602,70.3199 80.4807,70.3199 80.5011,70.3214 80.5121,70.3214 80.5168,70.3057 80.5294,70.2963 80.5514,70.2916 80.5797,70.2916 80.5875,70.2994 80.564,70.3057 80.5498,70.3199 80.5655,70.3199 80.5891,70.3214 80.608,70.3167 80.6174,70.3246 80.6206,70.3419 80.6064,70.3434 80.5797,70.3434 80.5545,70.3419 80.5215,70.345 80.4979,70.3482 80.4807,70.356 80.4807,70.3702 80.4854,70.3765 80.4586,70.389 80.4319,70.3953 80.4241,70.4032 80.4351,70.4158 80.4681,70.4142 80.4822,70.4158 80.4885,70.422 80.4807,70.4346 80.4964,70.4378 80.5011,70.4488 80.4854,70.4598 80.4791,70.4771 80.5089,70.4818 80.531,70.4881 80.5482,70.5069 80.5545,70.5195 80.5765,70.5352 80.5797,70.5572 80.5467,70.5808 80.5231,70.5902 80.5011,70.5949 80.4744,70.5949 80.4429,70.6044 80.4115,70.6138 80.4115,70.6358 80.4209,70.6515 80.4791,70.6767 80.5027,70.6924 80.5105,70.7018 80.4838,70.7128 80.4036,70.7411 80.3911,70.7506 80.3753,70.7883 80.3737,70.8354 80.3737,70.8637 80.3675,70.8983 80.3706,70.9313 80.3706,70.9549 80.3376,70.9659 80.2527,70.9848 80.2291,70.991 80.2181,70.9926 80.1867,70.9926 80.1348,70.9942 80.0531,71.0036 79.9462,71.0162 79.8534,71.0256 79.7843,71.0319 79.7513,71.0382 79.701,71.0571 79.6428,71.0775 79.5517,71.1121 79.4212,71.1624 79.2986,71.1986 79.1634,71.2143 79.0503,71.2174 78.989,71.2473 78.9921,71.285 78.9638,71.3086 78.9748,71.3338 79.0173,71.3495 79.1037,71.3683 79.1634,71.3856 79.1854,71.4013 79.2027,71.4312 79.198,71.4689 79.1666,71.4925 79.1493,71.4957 79.1996,71.5161 79.2185,71.5177 79.2876,71.5004 79.3395,71.4988 79.3662,71.5082 79.4338,71.5082 79.5061,71.4988 79.5768,71.5067 79.6586,71.5035 79.7262,71.5051 79.7922,71.5161 79.8252,71.535 79.8394,71.5507 79.8456,71.5601 79.8912,71.5617 79.9085,71.5601 79.9557,71.5743 79.9384,71.5837 79.9415,71.601 79.9211,71.6167 79.9117,71.645 79.8849,71.6686 79.9447,71.6686 79.9447,71.678 79.9117,71.7 79.8928,71.711 79.8535,71.7094 79.8661,71.7377 79.9242,71.7503 79.9682,71.7519 79.9824,71.7582 79.9903,71.7707 80.0673,71.7534 80.094,71.7503 80.0956,71.7613 80.0909,71.777 80.1223,71.7723 80.1459,71.7723 80.1631,71.7755 80.1663,71.7865 80.1254,71.8054 80.0672,71.8132 80.061,71.8384 80.0389,71.8447 80.0059,71.8352 79.9462,71.8478 79.9038,71.8525 79.9195,71.8588 79.9132,71.8651 79.8629,71.8714 79.8598,71.8808 79.8,71.8855 79.7764,71.8887 79.7277,71.8887 79.6947,71.895 79.69,71.9122 79.6727,71.9295 79.624,71.9374 79.5815,71.9421 79.5328,71.9547 79.5029,71.9594 79.4715,71.9515 79.4275,71.9421 79.3615,71.9453 79.3096,71.95 79.2719,71.939 79.2341,71.939 79.231,71.9515 79.2027,71.9625 79.1823,71.961 79.1493,71.9563 79.077,71.9735 79.0345,71.9767 78.9779,71.9799 78.9465,71.9752 78.9198,71.9689 78.9056,71.9767 78.9072,71.9909 78.9072,72.005 78.8663,72.0145 78.816,72.0255 78.7815,72.0192 78.7437,72.0176 78.7233,72.0129 78.7217,72.0255 78.7359,72.038 78.7123,72.049 78.662,72.0585 78.629,72.0663 78.6101,72.0663 78.5897,72.0742 78.6117,72.0742 78.629,72.0805 78.6133,72.0883 78.5818,72.0868 78.5567,72.082 78.519,72.0789 78.4985,72.0789 78.4969,72.0868 78.5032,72.0962 78.4875,72.0993 78.4702,72.1009 78.4451,72.1041 78.4262,72.1056 78.4262,72.1119 78.4482,72.1119 78.4718,72.1151 78.4922,72.1213 78.4938,72.1261 78.4812,72.1292 78.4718,72.1323 78.4828,72.1402 78.4859,72.1559 78.4655,72.1654 78.4466,72.1764 78.4341,72.189 78.4262,72.2015 78.401,72.2031 78.3602,72.2031 78.3177,72.222 78.2816,72.233 78.2674,72.2597 78.2863,72.2676 78.313,72.2754 78.3086,72.282 78.2631,72.2949 78.2426,72.2957 78.1364,72.2876 78.1198,72.2764 78.0926,72.268 78.0731,72.2644 78.0323,72.2636 77.9039,72.2572 77.74,72.2195 77.7204,72.2144 77.5972,72.1511 77.5734,72.1263 77.5552,72.1136 77.4863,72.0922 77.4589,72.0877 77.4387,72.0899 77.3942,72.103 77.3701,72.1151 77.3406,72.1227 77.3202,72.1249 77.2904,72.1212 77.2654,72.1142 77.1907,72.0014 77.215,71.9815 77.2646,71.9709 77.3055,71.9664 77.3552,71.9684 77.3842,71.9741 77.4276,71.9875 77.4618,71.9996 77.5891,72.0165 77.6286,72.0194 77.6682,72.0211 77.7283,72.0222 77.7687,72.0177 77.7893,72.0143 77.8104,72.01 77.8315,72.0038 77.8803,71.9831 77.9299,71.9561 77.987,71.9198 78.0096,71.9041 78.0312,71.8895 78.0431,71.8605 78.0199,71.8279 77.9943,71.8057 77.9505,71.7871 77.9218,71.7808 77.8385,71.767 77.6547,71.7412 77.5772,71.7303 77.5286,71.727 77.4793,71.7274 77.4392,71.7294 77.3789,71.7369 77.3173,71.7497 77.2773,71.7641 77.2375,71.7859 77.0628,71.8542 77.0289,71.8661 76.7788,71.9451 76.737,71.9529 76.7165,71.9551 76.6368,71.9549 76.6054,71.9517 76.5471,71.9456 76.4307,71.9287 76.3724,71.9215 76.2451,71.9115 76.2155,71.9096 76.1845,71.9045 76.1201,71.8902 75.9188,71.833 75.8829,71.783 75.9936,71.6229 76.0774,71.5136 76.0705,71.4918 76.087,71.4801 76.1353,71.4653 76.1556,71.4623 76.2154,71.4561 76.2749,71.4526 76.3152,71.446 76.3765,71.4323 76.4265,71.4179 76.4477,71.4091 76.4929,71.3792 76.5541,71.3654 76.717,71.3384 76.8256,71.3282 76.854,71.331 76.9019,71.3338 76.9385,71.3268 76.9879,71.2932 77.0119,71.274 77.1339,71.2396 77.1741,71.2317 77.2934,71.2102 77.339,71.2046 77.3039,71.2176 77.2837,71.2226 77.2596,71.2288 77.2834,71.2367 77.3125,71.2352 77.3525,71.2284 77.3922,71.2191 77.4128,71.2133 77.4376,71.2014 77.4578,71.1957 77.478,71.191 77.5463,71.1865 77.57,71.1941 77.5581,71.2204 77.8025,71.2786 77.8291,71.2683 77.8185,71.2496 77.7474,71.2321 77.7259,71.2155 77.7601,71.1591 77.7989,71.165 77.9155,71.1761 78.0808,71.1662 78.1166,71.156 78.1322,71.1411 78.1353,71.1162 78.1141,71.0727 78.0937,71.0537 78.0551,71.0254 78.0695,71.0039 78.1982,70.9541 78.2358,70.9441 78.2738,70.942 78.3186,70.9506 78.2967,70.9585 78.2578,70.964 78.1747,70.9968 78.2401,71.0136 78.2875,71.0178 78.3164,71.0168 78.3405,71.008 78.3566,70.9676 78.3502,70.9413 78.3062,70.8985 78.3709,70.8622 78.5348,70.8403 78.5728,70.8404 78.6193,70.8473 78.6561,70.8578 78.7088,70.8836 78.7039,70.9116 78.8871,70.9257 78.9284,70.9137 78.8752,70.8494 78.8513,70.8412 78.777,70.8281 78.6944,70.8212 78.5809,70.8188 78.5242,70.8182 78.4478,70.8222 78.3812,70.8238 78.2581,70.7927 78.2293,70.7954 78.1998,70.8029 78.1683,70.8149 78.1341,70.8298 78.0961,70.8439 77.9422,70.8592 77.8565,70.8591 77.8277,70.8634 77.7884,70.8728 77.7603,70.882 77.7356,70.8936 77.7114,70.9308 77.7135,70.9553 77.7058,70.9957 77.6839,71.014 77.6387,71.035 77.6103,71.0437 77.5906,71.0483 77.5019,71.0631 77.3976,71.0696 77.2054,71.0724 76.9643,71.08 76.8664,71.0894 76.828,71.0887 76.8005,71.0837 76.7587,71.061 76.7833,71.0101 76.7565,70.9819 76.7404,70.976 76.7409,70.9946 76.7044,71.0618 76.6674,71.0948 76.4811,71.1146 76.4421,71.1163 76.3949,71.1126 76.309,71.1098 76.2418,71.1098 76.2028,71.1112 76.1246,71.1179 76.0852,71.1221 76.0357,71.1272 75.9497,71.1296 75.6176,71.162 75.2761,71.214 75.214,71.2301 75.1345,71.2526 75.094,71.267 75.0591,71.2975 75.0628,71.3538 75.093,71.365 75.1509,71.367 75.2447,71.3873 75.3237,71.4293 75.3199,71.5643 75.2962,71.5795 75.2751,71.585 75.2545,71.5893 75.2317,71.5928 75.202,71.6016 75.0959,71.6407 75.0382,71.6963 75.0462,71.7458 75.1073,71.8559 75.1274,71.8556 75.2137,71.8676 75.2487,71.8775 75.2605,71.8987 75.2402,71.9314 75.3361,72.053 75.4136,72.1163 75.4571,72.1348 75.515,72.1447 75.5484,72.1564 75.5666,72.1723 75.5801,72.1971 75.5611,72.2092 75.5192,72.2129 75.4933,72.2204 75.3718,72.3864 75.3892,72.436 75.4128,72.4478 75.4326,72.4492 75.4767,72.4449 75.5071,72.4456 75.5308,72.4613 75.509,72.4777 75.4675,72.4952 75.4276,72.5065 75.2961,72.551 75.196,72.5855 75.2486,72.6107 75.2724,72.6072 75.3457,72.6473 75.3231,72.6621 75.1777,72.7077 75.0688,72.7272 74.9185,72.7718 74.8874,72.7789 74.8661,72.7809 74.8239,72.7822 74.8034,72.7804 74.6487,72.7363 74.6338,72.6773 74.6783,72.6537 74.7701,72.6035 74.8312,72.5617 74.8468,72.5467 74.8607,72.5285 74.8702,72.5103 74.8804,72.4892 74.9166,72.3519 74.9301,72.2948 74.9318,72.2575 74.9095,72.1355 74.8834,72.1024 74.8652,72.0834 74.8362,72.058 74.7971,72.0261 74.7738,72.0101 74.7488,72.0001 74.6375,71.9697 74.3176,71.8984 74.2799,71.8915 74.2231,71.8809 73.9777,71.8378 73.7862,71.8144 73.5612,71.7738 73.5247,71.7649 73.4876,71.7565 73.4326,71.7433 73.3962,71.7348 73.3536,71.7205 73.3059,71.6685 73.3276,71.6482 73.3499,71.6241 73.3518,71.5964 73.3323,71.5677 73.3134,71.5548 73.199,71.4887 73.1591,71.4687 73.024,71.408 72.9388,71.3741 72.8957,71.354 72.8479,71.324 72.8663,71.3061 72.9379,71.2905 72.9792,71.2847 73.0004,71.2803 73.0643,71.2643 73.1713,71.237 73.2236,71.2204 73.2721,71.2033 73.3035,71.1919 73.3343,71.1806 73.3577,71.1689 73.3967,71.1453 73.418,71.1274 73.4534,71.0914 73.4732,71.0673 73.4929,71.0431 73.506,71.0156 73.517,70.9941 73.5579,70.9519 73.5867,70.9343 73.6165,70.9196 73.6575,70.9053 73.7078,70.8855 73.7269,70.8735 73.741,70.8504 73.7485,70.8231 73.7454,70.7922 73.7591,70.7552 73.7854,70.7373 73.8252,70.72 73.8855,70.6969 73.9194,70.6854 74.0263,70.6458 74.0759,70.6254 74.0955,70.6166 74.1223,70.6019 74.1417,70.5869 74.1533,70.5626 74.1731,70.482 74.1602,70.4378 74.1435,70.4189 74.1266,70.4047 74.1082,70.3919 74.0337,70.3425 73.9973,70.326 73.925,70.2955 73.8956,70.2751 73.8786,70.2338 73.842,70.2075 73.8092,70.1935 73.7662,70.1822 73.7415,70.1726 73.5549,70.0723 73.5245,70.0429 73.5529,70.0262 73.5891,70.0165 73.6028,69.9859 73.4903,69.7859 73.3861,69.6885 73.3567,69.6528 73.3852,69.61 73.4424,69.5619 73.4777,69.5347 73.4974,69.5228 73.5245,69.5111 73.558,69.497 73.5796,69.4851 73.6111,69.4638 73.6869,69.4037 73.7173,69.3669 73.737,69.3251 73.7294,69.2855 73.7206,69.2663 73.7083,69.2474 73.6809,69.2084 73.6377,69.1625 73.5961,69.111 73.5905,69.082 73.6059,69.0672 73.6236,69.0549 73.6413,69.043 73.7385,68.9964 73.7767,68.9843 73.8117,68.9858 73.944,69.017 74.0081,69.0403 74.0326,69.0473 74.1778,69.0528 74.278,69.0476 74.3329,69.0417 74.4251,69.0259 74.4813,69.0141 74.5268,69.001 74.5629,68.9921 74.5899,68.9898 74.6769,68.9943 74.8482,69.0134 74.9818,69.0297 74.9831,69.0674 75.0157,69.0786 75.0487,69.0898 75.1916,69.1293 75.2881,69.156 75.3217,69.1645 75.3733,69.1695 75.4174,69.1703 75.4446,69.1681 75.5554,69.1482 75.6012,69.142 75.6726,69.1389 75.7162,69.1412 75.7686,69.1452 75.8034,69.1486 75.8386,69.1497 75.8837,69.1457 75.9361,69.1313 76.0701,69.09 76.2104,69.0585 76.2466,69.0527 76.3478,69.0396 76.3836,69.0381 76.4156,69.0443 76.4381,69.057 76.4629,69.0574 76.5628,69.0404 76.6289,69.0166 76.6518,69.0043 76.6703,68.98 76.6876,68.9612 76.7275,68.9341 76.7563,68.9199 76.7828,68.9161 76.872,68.908 76.9782,68.9025 77.0495,68.8942 77.1307,68.8779 77.1627,68.8639 77.1887,68.8516 77.2346,68.8395 77.2792,68.8321 77.3407,68.83 77.3666,68.8313 77.4018,68.829 77.4425,68.8249 77.4788,68.8162 77.5107,68.801 77.527,68.7824 77.5792,68.6326 77.5843,68.5948 77.5761,68.5758 77.559,68.5517 77.5503,68.5262 77.6148,68.4284 77.6468,68.423 77.6799,68.431 77.7306,68.4378 77.7643,68.4287 77.7847,68.4037 77.7704,68.3816 77.7711,68.3516 77.792,68.3077 77.809,68.2952 77.8374,68.2844 77.9237,68.2689 78.0069,68.1806 77.9846,68.1645 77.8588,68.1517 77.7476,68.1435 77.6969,68.1417 77.646,68.1406 77.5708,68.1329 77.5379,68.1249 77.4814,68.1025 77.4527,68.0892 77.4145,68.0696 77.3961,68.0568 77.3808,68.0439 77.3585,68.0237 77.3407,68.0044 77.3099,67.9024 77.2925,67.6915 77.305,67.6729 77.3285,67.6608 77.3721,67.6482 77.4061,67.6425 77.4401,67.6397 77.4988,67.6367 77.5641,67.645 77.5944,67.6556 77.7784,67.6381 77.844,67.6062 77.9327,67.5734 77.9747,67.5691 78.0041,67.5746 78.1376,67.5865 78.2959,67.5988 78.4413,67.5762 78.4548,67.5572 78.4359,67.5453 78.4115,67.5398 78.3781,67.5415 78.3359,67.5482 78.3059,67.5422 78.3397,67.5271 78.4158,67.5157 78.4489,67.5156 78.4973,67.5277 78.527,67.5467 78.5523,67.5619 78.5853,67.5659 78.6184,67.5664 78.6937,67.5612 78.8457,67.509 78.8772,67.4875 78.8106,67.4707 78.7778,67.4704 78.7191,67.4779 78.6852,67.4852 78.6516,67.4948 78.6176,67.5008 78.5592,67.5051 78.4523,67.4958 78.4116,67.4909 78.3792,67.4803 78.3505,67.4686 78.318,67.465 78.2021,67.4639 78.1683,67.4692 78.1405,67.4808 78.1096,67.492 78.0763,67.4948 78.0517,67.4913 77.9872,67.475 77.9548,67.4683 77.8819,67.4546 77.8181,67.4624 77.798,67.479 77.706,67.4848 77.6728,67.4832 77.6242,67.4761 77.5351,67.5104 77.5188,67.5224 77.3434,67.5766 77.2662,67.5929 77.2323,67.5999 77.1805,67.6116 77.128,67.6266 76.9621,67.6771 76.9236,67.6985 76.912,67.7255 76.9312,67.7468 76.9616,67.7585 76.9845,67.7607 76.999,67.7419 77.0319,67.7357 77.0565,67.7385 77.0813,67.752 77.1388,67.8224 77.0853,67.8595 77.0351,67.887 77.081,67.9778 77.1483,68.0707 77.1973,68.1411 77.1754,68.1508 77.0975,68.1615 77.0358,68.1739 77.0028,68.2043 77.0151,68.2302 77.0448,68.2384 77.0867,68.2481 77.1406,68.2931 77.1576,68.4306 77.1158,68.4572 77.0353,68.4963 76.7255,68.5981 76.6412,68.6228 76.6052,68.6321 76.5133,68.6616 76.4789,68.6796 76.4584,68.7102 76.4797,68.733 76.5315,68.7594 76.5373,68.7815 76.4478,68.8704 76.4192,68.8819 76.392,68.8873 76.3477,68.892 76.1628,68.8971 76.0578,68.8945 75.9374,68.8837 75.664,68.8514 75.6304,68.8456 75.5633,68.8313 75.3659,68.8134 75.3398,68.8133 75.3059,68.8099 74.9843,68.7636 74.9178,68.7514 74.8678,68.7414 74.6663,68.7096 74.5655,68.695 74.5322,68.6901 74.4823,68.6809 74.4006,68.6592 74.3688,68.648 74.3317,68.6309 74.2929,68.6012 74.2578,68.5148 74.2708,68.4931 74.2964,68.475 74.3093,68.4535 74.3057,68.4274 74.2934,68.4015 74.2706,68.3782 74.2303,68.3481 74.185,68.312 74.1821,68.2835 74.215,68.2623 74.2651,68.2414 74.3345,68.2122 74.38,68.1949 74.4504,68.1594 74.4754,68.1412 74.5351,68.0926 74.5693,68.0623 74.6554,67.8872 74.6643,67.8433 74.6473,67.7344 74.6382,67.7023 74.6274,67.6765 74.6188,67.6571 74.5998,67.6247 74.5848,67.6053 74.5495,67.5852 74.5194,67.5715 74.4893,67.5577 74.3837,67.5135 74.2626,67.4657 74.2172,67.4489 74.1176,67.414 74.0952,67.406 74.0049,67.3708 73.938,67.3425 73.9075,67.3255 73.888,67.3117 73.7509,67.2043 73.7766,67.1732 73.7982,67.1387 73.7668,66.9845 73.717,66.9132 73.701,66.8997 73.6739,66.8864 73.6216,66.8691 73.5909,66.8615 73.5603,66.8548 73.4623,66.8211 73.3722,66.7475 73.3497,66.7408 73.2247,66.7253 73.0553,66.6949 73.0093,66.6851 72.8434,66.6395 72.8454,66.616 72.7997,66.5752 72.7636,66.5651 72.6478,66.5489 72.5926,66.5459 72.5439,66.546 72.4647,66.5422 72.3869,66.5334 72.3556,66.5292 72.3262,66.5202 72.2074,66.4486 72.2024,66.4244 72.2148,66.3756 72.2473,66.3326 72.2421,66.278 72.2279,66.2513 72.1966,66.2148 72.1751,66.2065 72.1446,66.2027 72.0667,66.1972 71.9064,66.1558 71.8645,66.1431 71.8543,66.1361 71.8305,66.15 71.7992,66.1634 71.7679,66.1608 71.7464,66.1547 71.709,66.1469 71.6762,66.1496 71.652,66.1604 71.629,66.1816 71.6037,66.2094 71.5702,66.2236 71.5268,66.2344 71.3167,66.2636 71.284,66.2668 71.1683,66.2771 71.1035,66.2785 70.8622,66.2826 70.8298,66.2834 70.7364,66.2767 70.5333,66.2619 70.4878,66.2552 70.4253,66.2512 70.3138,66.2468 70.2816,66.2457 70.2329,66.2479 70.1816,66.2564 70.0936,66.2764 69.9552,66.3014 69.8867,66.3124 69.8529,66.3169 69.6672,66.3703 69.6099,66.3886 69.5234,66.4023 69.4984,66.4044 69.4487,66.4078 69.4162,66.408 69.3651,66.4106 69.2795,66.4184 69.2359,66.4262 69.0899,66.4764 69.0131,66.5032 68.9735,66.5232 68.9595,66.5445 68.9577,66.5702 68.966,66.5967 68.9743,66.6295 68.9734,66.6679 68.9451,66.6885 68.911,66.6947 68.8531,66.699 68.8307,66.722 68.8641,66.7312 68.8945,66.7359 68.9734,66.7427 69.021,66.7459 69.2395,66.743 69.2739,66.7398 69.3191,66.7298 69.3729,66.7181 69.4683,66.7043 69.659,66.7286 69.7203,66.7378 69.7489,66.7473 69.8374,66.718 69.9198,66.672 70.0068,66.6263 70.0402,66.6153 70.0936,66.6032 70.1451,66.5961 70.1872,66.5927 70.2112,66.5939 70.3672,66.6097 70.3915,66.6534 70.4332,66.6694 70.4724,66.6727 70.5609,66.6756 70.5938,66.6636 70.5347,66.6287 70.4564,66.6044 70.4255,66.6004 70.3639,66.5925 70.3,66.5902 70.1664,66.5626 70.1492,66.5366 70.1545,66.5112 70.1767,66.4996 70.326,66.4645 70.3612,66.4578 70.5427,66.4248 70.5672,66.4238 70.5988,66.4256 70.8379,66.4501 70.9038,66.4808 70.9214,66.5089 70.8979,66.519 70.9149,66.5392 70.9375,66.5434 71.125,66.5529 71.2288,66.5561 71.2534,66.5548 71.405,66.56 71.4266,66.5684 71.4534,66.6032 71.446,66.6379 71.4218,66.646 71.3697,66.6754 71.2583,66.8423 71.2637,66.8822 71.4142,66.8443 71.5333,66.8493 71.6274,66.8606 71.7272,66.9029 71.8627,66.9832 71.8659,67.025 71.9168,67.0696 71.9657,67.109 72.0198,67.0806 72.0403,67.0633 72.0642,67.0663 72.0832,67.0883 72.0584,67.1383 72.0325,67.1517 71.8958,67.1751 71.899,67.2121 72.0454,67.2423 72.0772,67.2356 72.0992,67.2244 72.1311,67.2221 72.2275,67.231 72.2618,67.2467 72.2863,67.278 72.2986,67.3153 72.2704,67.3474 72.2476,67.3718 72.2591,67.39 72.3068,67.4 72.3521,67.4135 72.3869,67.4287 72.3983,67.4452 72.3909,67.4943 72.4055,67.5158 72.4386,67.5317 72.4627,67.5363 72.5048,67.5343 72.5384,67.5331 72.6847,67.5457 72.7165,67.5522 72.738,67.574 72.7398,67.5998 72.881,67.6369 72.922,67.7298 72.9543,67.7477 73.0222,67.7523 73.0516,67.768 73.0497,67.8775 73.0398,67.8995 73.0066,67.9361 72.9675,67.9689 72.9347,67.9865 72.9186,68.0049 72.9494,68.1317 73.1097,68.2108 73.2238,68.2625 73.2582,68.2795 73.2715,68.315 73.2946,68.3475 73.3145,68.3613 73.372,68.3876 73.4138,68.3985 73.4452,68.3918 73.4363,68.3566 73.4613,68.3416 73.4836,68.3537 73.4952,68.3797 73.4964,68.4048 73.4743,68.4326 73.4308,68.4625 73.3579,68.4989 73.317,68.5133 73.2619,68.524 73.2335,68.5315 73.1518,68.5598 73.1049,68.5772 73.068,68.5946 73.0,68.6234 72.972,68.6347 72.9404,68.6462 72.9018,68.6573 72.8469,68.6665 72.809,68.675 72.7367,68.6932 72.6697,68.7156 72.6383,68.7273 72.5659,68.7556 72.5157,68.7787 72.4867,68.7971 72.4575,68.821 72.4203,68.8555 72.3994,68.8879 72.3263,69.0364 72.3178,69.0612 72.3245,69.0931 72.3527,69.1279 72.3942,69.1535 72.4247,69.1672 72.4664,69.2523 72.4792,69.3488 72.4758,69.3948 72.4625,69.4336 72.4361,69.4719 72.4004,69.5176 72.3777,69.5353 72.3994,69.5963 72.4164,69.6097 72.4787,69.6441 72.4984,69.6606 72.5134,69.6895 72.5212,69.7089 72.529,69.7529 72.5199,69.7843 72.4893,69.8146 72.4343,69.8497 72.4054,69.8643 72.3707,69.885 72.3313,69.9582 72.348,69.9716 72.3758,69.9849 72.4072,69.9988 72.4584,70.0695 72.4474,70.0924 72.428,70.1038 72.3776,70.1203 72.3573,70.126 72.3233,70.137 72.2968,70.1483 72.2681,70.1757 72.271,70.1976 72.3046,70.2177 72.338,70.238 72.3708,70.2549 72.4274,70.2781 72.4762,70.2976 72.5347,70.3164 72.5614,70.3198 72.6116,70.3279 72.6121,70.4384 72.5976,70.4565 72.5717,70.4711 72.5361,70.4914 72.5182,70.5221 72.6092,70.6318 72.6693,70.7468 72.6742,70.7752 72.6491,70.8019 72.5448,70.8664 72.4532,70.9302 72.4686,70.9574 72.494,70.977 72.5093,71.0022 72.4929,71.0204 72.4451,71.0496 72.425,71.0616 72.4037,71.0668 72.3732,71.071 72.3434,71.0731 72.3229,71.076 72.177,71.114 72.053,71.1523 71.9643,71.1802 71.9326,71.1913 71.8908,71.2081 71.6804,71.33 71.6637,71.3415 71.6403,71.3687 71.6371,71.3971 71.6538,71.4199 71.6923,71.4402 71.7846,71.4683 71.8798,71.4756 72.025,71.5055 72.1954,71.6248 72.1809,71.6705 72.1591,71.6948 72.1471,71.7133 72.1492,71.7381 72.1699,71.7607 72.1942,71.7736 72.2191,71.7808 72.2765,71.7867 72.3133,71.7952 72.3443,71.8124 72.3632,71.8292 72.3816,71.8637 72.3952,71.9045 72.5645,72.0994 72.5955,72.1285 72.637,72.1517 72.6899,72.1721 72.706,72.1972 72.6887,72.2153 72.6628,72.2391 72.6212,72.3083 72.618,72.373 72.5504,72.5086 72.5644,72.5246 72.6171,72.5426 72.6358,72.5523 72.6481,72.6138 72.594,72.6252 72.4368,72.6539 72.3696,72.6659 72.105,72.7018 71.8906,72.7244 71.8649,72.7172 71.7971,72.7047 71.7486,72.6983 71.7278,72.6972 71.7064,72.6992 71.6491,72.715 71.6761,72.7197 71.6976,72.718 71.7395,72.7178 71.7889,72.7232 71.8221,72.7378 71.7654,72.7532 71.7442,72.7534 71.6794,72.7585 71.6357,72.7629 71.5914,72.7682 71.5684,72.7724 71.5025,72.7882 71.4093,72.808 71.3866,72.812 71.365,72.8136 71.3439,72.8136 71.3231,72.813 71.16,72.804 70.9956,72.8056 70.9737,72.8073 70.9527,72.8077 70.805,72.81 70.745,72.804 70.7064,72.7972 70.6266,72.7884 70.5857,72.7871 70.4584,72.7898 70.4155,72.7915 70.3509,72.795 70.2638,72.8011 70.1371,72.8027 70.0746,72.802 69.7229,72.7917 69.7023,72.7909 69.6517,72.7882 69.6033,72.7803 69.5419,72.7772 69.4792,72.7768 69.4358,72.7795 69.4036,72.7838 69.3873,72.8088 69.532,72.8323 69.6239,72.8467 69.6181,72.866 69.5969,72.8704 69.5748,72.872 69.3826,72.8763 69.3613,72.8768 69.3406,72.8755 69.2103,72.8635 69.1587,72.8473 69.1388,72.8309 69.1408,72.8061 69.1423,72.7815 69.1283,72.7624 69.0621,72.7002 69.036,72.6831 68.9938,72.6662 68.9486,72.6543 68.8775,72.633 68.8441,72.6191 68.81,72.597 68.7616,72.4841 68.6103,72.1964 68.5761,72.1433 68.5139,72.034 68.4919,71.986 68.4031,71.8717 68.3357,71.7817 68.3053,71.7236 68.1541,71.6211 67.9689,71.5202 67.9414,71.5064 67.8113,71.446 67.6379,71.3928 67.4689,71.3456 67.2618,71.2788 67.2116,71.2644 67.1772,71.2572 66.9314,71.2095 66.8487,71.2004 66.7712,71.1993 66.7497,71.1926 66.6835,71.1158 66.6838,71.1094 66.6749,71.0866 66.6583,71.0699 66.6256,71.0449 66.5897,71.0277 66.5372,71.0036 66.4857,70.9747 66.4676,70.9515 66.4664,70.9291 66.5008,70.9126 66.5273,70.9077 66.5574,70.9063 66.615,70.9191 66.5928,70.9569 66.6641,71.0058 66.7352,70.9866 66.6818,70.909 66.6069,70.8504 66.571,70.8332 66.5311,70.8204 66.5063,70.8136 66.4702,70.7977 66.4596,70.7751 66.5342,70.6707 66.5566,70.669 66.8564,70.7121 66.8989,70.7222 66.9306,70.7348 66.955,70.7423 67.0335,70.7396 67.0546,70.7371 67.0768,70.7323 67.1064,70.7215 67.1322,70.711 67.1617,70.6936 67.1847,70.6652 67.186,70.6287 67.129,70.5714 67.0998,70.5186 67.0616,70.4251 67.1089,70.3691 67.0567,70.3048 66.9497,70.1452 66.9408,70.1223 66.9562,70.1087 67.1073,70.0535 67.1044,70.0845 67.1369,70.0728 67.1788,70.0062 67.1611,69.9857 67.1298,69.9519 67.0965,69.9212 67.0699,69.9075 67.0292,69.8972 66.8744,69.8673 66.8426,69.8705 66.8192,69.9007 66.8313,69.92 66.8567,69.93 66.8413,69.9606 66.8119,69.9624 66.774,69.9488 66.753,69.9348 66.726,69.907 66.623,69.664 66.6496,69.4905 66.7296,69.4516 66.7719,69.4354 66.8034,69.442 66.7952,69.4639 66.7896,69.5413 66.8317,69.6068 66.8651,69.6092 66.9142,69.6037 66.9348,69.6001 66.963,69.5925 66.9878,69.5846 67.0266,69.5747 67.1846,69.5358 67.2155,69.5297 67.2401,69.5285 67.2929,69.5318 67.3294,69.532 67.3497,69.5279 67.467,69.5018 67.4951,69.4941 67.5437,69.459 67.64,69.4267 67.6607,69.4219 67.6811,69.4182 67.8115,69.3956 67.8493,69.3929 67.8857,69.403 67.8615,69.4241 67.8841,69.4463 67.9113,69.4594 67.9524,69.4547 67.9529,69.3116 67.8968,69.2716 67.8763,69.2495 67.9065,69.1861 67.932,69.1624 67.9487,69.1508 68.1001,69.0474 68.1309,69.0301 68.1714,69.0138 68.2119,68.9907 68.2582,68.9496 68.2892,68.9101 68.3087,68.892 68.3275,68.8838 68.4117,68.8575 68.5091,68.8329 68.529,68.829 68.584,68.8249 68.6388,68.8221 68.6734,68.8233 68.7008,68.8323 68.7513,68.8561 68.8745,68.8755 69.0361,68.8714 69.07,68.8673 68.9705,68.8278 68.9284,68.8228 68.8589,68.821 68.816,68.8176 68.8033,68.8004 68.8368,68.7864 68.8722,68.786 68.9329,68.7887 68.963,68.7809 68.9485,68.7448 68.7771,68.5468 68.7554,68.523 68.7339,68.5058 68.6419,68.4295 68.6001,68.4013 68.5311,68.3648 68.5128,68.3519 68.4223,68.2852 68.413,68.2654 68.4321,68.2476 68.4198,68.2233 68.3845,68.1899 68.3387,68.1637 68.2926,68.1378 68.1477,68.0997 68.1216,68.1005 68.0423,68.1519 68.0618,68.2093 68.1111,68.2455 68.0159,68.3238 67.9062,68.3507 67.7391,68.3831 67.6689,68.3845 67.6402,68.3898 67.6136,68.4007 67.563,68.4227 67.592,68.4208 67.6542,68.4157 67.6293,68.4298 67.5029,68.487 67.4655,68.5005 67.2667,68.5695 67.124,68.605 67.0871,68.6076 67.0592,68.6137 66.8986,68.7031 66.9075,68.7297 66.9388,68.7371 66.9762,68.7463 66.9125,68.7677 66.853,68.7785 66.7567,68.7923 66.6999,68.7981 66.6627,68.8006 66.5918,68.8005 66.5363,68.8041 66.4788,68.811 66.4397,68.8174 66.2266,68.8573 66.206,68.8623 66.1574,68.8775 66.1293,68.8915 66.0551,68.9174 65.9755,68.9421 65.9545,68.9466 65.7803,68.9677 65.7415,68.9726 65.6834,68.9795 65.6259,68.985 65.5673,68.992 65.542,68.9984 65.5219,69.0257 65.5714,69.032 65.5914,69.0205 65.6114,69.0111 65.6387,69.0105 65.7487,69.0186 65.7293,69.0383 65.621,69.0533 65.5109,69.0605 65.4797,69.0624 65.4037,69.0689 65.3638,69.0746 65.2419,69.0954 65.1804,69.1073 65.1378,69.1166 65.048,69.1381 64.9924,69.1562 64.9672,69.1672 64.9366,69.1807 64.9039,69.1839 64.8744,69.1812 64.8131,69.1746 64.7948,69.17 64.7778,69.1542 64.8,69.1186 64.6939,69.0629 64.6583,69.0538 64.6322,69.0606 64.626,69.0769 64.593,69.0517 64.4604,69.0139 64.3847,68.9318 64.3847,68.875 64.4288,68.7929 64.574,68.7866 64.7003,68.8182 64.877,68.7487 65.0538,68.7235 65.199,68.7235 65.2242,68.6414 65.3442,68.5594 65.4136,68.5215 65.483,68.4647 65.3883,68.4268 65.3252,68.3637 65.2179,68.2879 65.1422,68.1869 65.1737,68.0859 65.1737,67.9723 65.2495,67.8713 65.3883,67.8397 65.5272,67.8334 65.7355,67.8461 65.8302,67.8839 65.9186,67.8271 65.8933,67.7135 66.0512,67.6756 66.0827,67.6062 65.9438,67.5809 65.7987,67.5809 65.6977,67.5683 65.6977,67.4989 65.8618,67.4862 65.9502,67.4799 65.988,67.3726 65.7482,67.3158 65.603,67.2969 65.584,67.259 65.4704,67.2211 65.2432,67.1643 65.1043,67.1012 65.0853,67.0317 64.997,67.0128 64.997,66.836 64.8013,66.7919 64.5362,66.754 64.4288,66.6845 64.2395,66.615 64.1132,66.615 63.9933,66.6024 63.8733,66.6087 63.785,66.533 63.7092,66.514 63.5956,66.4762 63.5198,66.432 63.4125,66.432 63.3115,66.4383 63.2736,66.3688 63.1979,66.3247 63.1411,66.2678 63.2105,66.2363 63.16,66.1921 63.0653,66.23 62.9833,66.1984 62.9012,66.1353 62.8381,66.0532 62.756,66.0343 62.7245,65.9838 62.7434,65.9775 62.7686,65.9207 62.7181,65.8891 62.756,65.8449 62.7497,65.8197 62.6676,65.8197 62.5288,65.807 62.2763,65.7439 62.0175,65.6682 61.7776,65.6492 61.6324,65.5735 61.4809,65.4788 61.3294,65.3652 61.2347,65.321 61.1526,65.2831 61.241,65.2389 61.2094,65.2137 61.1526,65.1758 61.0958,65.119 61.0011,65.1063 60.9759,65.0369 60.8244,64.999 60.7171,65.018 60.7108,64.9738 60.6098,64.8791 60.5024,64.8475 60.4961,64.8854 60.4267,64.917 60.3257,64.9675 60.3383,65.0053 60.2058,65.0243 60.0543,65.0243 59.928,64.9359 59.7513,64.8349 59.6061,64.7781 59.5429,64.7023 59.5934,64.6392 59.5934,64.6013 59.5303,64.5761 59.4735,64.513 59.3914,64.4561 59.4609,64.4246 59.5051,64.3993 59.5493,64.2668 59.4798,64.2226 59.5556,64.1468 59.6439,64.0963 59.7639,64.1026 59.726,64.0143 59.6628,63.9574 59.5366,63.9006 59.4734,63.888 59.4734,63.8059 59.4419,63.7807 59.4103,63.6797 59.3724,63.5282 59.3156,63.4398 59.2336,63.3514 59.2588,63.3073 59.1894,63.2946 59.2336,63.2315 59.1704,63.1494 59.202,63.0674 59.1326,63.0232 59.1326,62.9664 59.2209,62.9033 59.3409,62.8843 59.3724,62.8212 59.3535,62.7391 59.3093,62.7076 59.3156,62.6634 59.3472,62.5876 59.4356,62.4803 59.5555,62.474 59.4861,62.3667 59.4987,62.3036 59.4482,62.2783 59.404,62.2594 59.404,62.2026 59.303,62.07 59.3851,61.9437 59.2967,61.8617 59.2336,61.8175 59.2336,61.7607 59.2904,61.7102 59.2399,61.6281 59.101,61.5839 59.0379,61.5902 58.9495,61.5018 58.899,61.5081 58.8233,61.5081 58.7159,61.4639 58.5265,61.4639 58.0152,61.4513 57.2199,61.4576 57.0936,61.4703 57.0305,61.4324 56.5697,61.4639 56.557,61.445 56.4876,61.445 56.4497,61.3882 56.2919,61.3945 56.2162,61.2809 56.2414,61.2493 56.1972,61.1546 55.7238,61.2051 55.6418,61.0284 55.181,61.0852 55.1115,60.959 54.96,60.9779 54.9537,60.9085 54.8653,60.8201 53.7669,60.94 53.7164,60.7948 53.2367,60.8516 53.2935,60.9779 52.7759,61.041 52.6938,60.8958 52.334,60.9274 52.2583,60.7885 51.7911,60.8264 51.6712,60.555 52.0626,60.4918 52.031,60.4287 52.2456,60.4161 52.2267,60.3403 52.2456,60.3151 52.2001,60.1929 52.3362,60.1494 52.5813,60.1249 52.7814,60.1126 53.0428,60.1044 53.292,60.1126 53.3124,60.1698 53.3859,60.1698 53.3982,60.129 53.4554,60.1085 53.4962,60.1085 53.6146,59.9615 53.5738,59.8635 53.5738,59.794 53.5085,59.6511 53.3287,59.6347 53.2675,59.4755 53.1776,59.3815 53.1204,59.3325 53.1082,59.2631 53.1654,59.2059 53.2593,59.1242 53.3492,59.0874 53.4104,59.0956 53.4635,59.0793 53.6187,59.0384 53.5861,59.0711 53.6473,59.0834 53.6759,59.0752 53.7101,59.0557 53.7417,59.0715 53.7827,59.04 53.7291,59.0052 53.7449,58.9832 53.7038,58.9768 53.6628,58.9768 53.6312,58.9106 53.6281,58.8664 53.6565,58.8096 53.6975,58.7875 53.7354,58.7591 53.8111,58.7464 53.8301,58.7307 53.767,58.7022 53.688,58.6802 53.6533,58.6549 53.6407,58.6297 53.6596,58.6044 53.5934,58.5602 53.5902,58.5381 53.6281,58.516 53.666,58.4497 53.6786,58.4182 53.6849,58.3898 53.6849,58.3393 53.7385,58.3046 53.7859,58.273 53.7291,58.2099 53.7038,58.1783 53.7512,58.1499 53.7954,58.131 53.8048,58.0994 53.8364,58.0805 53.8459,58.0457 53.8869,58.0016 53.9374,57.9731 54.0005,57.9384 53.9974,57.9037 53.9879,57.8564 54.0258,57.809 54.0321,57.7396 54.0542,57.6859 54.0573,57.6449 54.0132,57.6449 53.969,57.6196 53.9816,57.5881 54.0163,57.5691 54.0005,57.5565 53.9563,57.5565 53.9343,57.5407 53.8901,57.5407 53.8901,57.506 53.9437,57.5123 53.9469,57.4934 53.9343,57.4871 53.9974,57.465 54.0226,57.5028 54.0605,57.5092 54.1015,57.4871 54.07,57.465 54.0763,57.4176 54.1205,57.4082 54.1363,57.4145 54.171,57.4113 54.171,57.3734 54.1331,57.3608 54.0889,57.3513 54.0479,57.3419 54.0416,57.3293 54.0321,57.2914 54.0163,57.2693 54.0258,57.2503 54.07,57.263 54.1079,57.2535 54.1457,57.2535 54.1994,57.244 54.2373,57.2219 54.2089,57.1904 54.2373,57.1714 54.2215,57.1462 54.2341,57.1241 54.2152,57.0799 54.1931,57.0673 54.1773,57.0641 54.2025,57.0389 54.2499,57.0263 54.2909,57.0136 54.3035,56.9852 54.2562,56.9537 54.1205,56.9663 54.0321,56.9253 53.9879,56.8968 53.9974,56.8527 53.9847,56.7958 53.9847,56.7422 53.9374,56.7169 53.8837,56.6917 53.8364,56.7074 53.7859,56.7169 53.789,56.7611 53.7385,56.7674 53.7101,56.7264 53.7385,56.6822 53.7575,56.6569 53.7827,56.638 53.7733,56.6096 53.7449,56.597 53.7354,56.5875 53.7638,56.5559 53.7985,56.5717 53.8301,56.5875 53.8711,56.5843 53.9058,56.6222 53.9437,56.6443 53.9626,56.6127 53.9942,56.6096 53.9942,56.5938 53.9879,56.5812 53.95,56.5559 53.9248,56.537 53.9532,56.5338 53.9847,56.537 53.991,56.5181 53.9942,56.4991 54.0352,56.477 54.0794,56.4833 54.111,56.4549 54.1268,56.4013 54.171,56.3823 54.2278,56.4171 54.2436,56.3445 54.253,56.3097 54.2183,56.294 54.2372,56.2656 54.2688,56.2625 54.272,56.2372 54.253,56.2025 54.1899,56.1867 54.1362,56.1646 54.0857,56.133 54.0479,56.1173 53.9974,56.0889 53.9689,56.0415 53.9405,55.9942 53.8869,55.9689 53.808,55.9784 53.7417,55.9942 53.7007,55.9531 53.6849,55.9247 53.6218,55.9216 53.5649,55.9121 53.5429,55.8869 53.5316,55.8648 53.5703,55.8696 53.6162,55.8357 53.6719,55.8357 53.7203,55.8236 53.7807,55.8309 53.8194,55.7922 53.8775,55.8019 53.9016,55.785 53.8799,55.7777 53.8702,55.7656 53.8629,55.7342 53.8823,55.7293 53.9307,55.7535 53.9524,55.739 53.9234,55.7076 53.9476,55.6906 53.9984,55.7318 54.0081,55.7052 54.0661,55.6616 54.1338,55.6423 54.1338,55.6278 54.0855,55.6036 54.0831,55.5745 54.0444,55.5673 53.9839,55.5383 53.9065,55.5092 53.8896,55.4826 53.8944,55.4415 53.8605,55.4294 53.8267,55.4028 53.8291,55.3762 53.8049,55.3375 53.7468,55.3157 53.6114,55.2891 53.5799,55.2335 53.5098,55.2166 53.505,55.1827 53.4856,55.1609 53.3985,55.1513 53.3477,55.1706 53.2824,55.1682 53.2413,55.1488 53.2437,55.1222 53.2147,55.1101 53.1518,55.115 53.043,55.1005 53.043,55.0521 53.1035,55.0279 53.1567,55.0085 53.1567,54.9723 53.1688,54.9602 53.205,54.9505 53.297,54.9553 53.3477,54.9021 53.3913,54.8489 53.4348,54.8271 53.5001,54.8562 53.5388,54.8441 53.5171,54.8223 53.4808,54.7667 53.5098,54.7594 53.505,54.7376 53.4856,54.7352 53.4759,54.7159 53.4759,54.6965 53.505,54.6844 53.5025,54.653 53.43,54.5877 53.3647,54.5393 53.3139,54.5127 53.3139,54.4934 53.3235,54.4643 53.3211,54.4401 53.2921,54.4063 53.2921,54.3845 53.2582,54.3603 53.2437,54.3386 53.2558,54.3047 53.2969,54.2466 53.3381,54.2176 53.3066,54.1741 53.3356,54.1378 53.326,54.0967 53.3574,54.0676 53.3574,54.0314 53.3719,53.9927 53.309,53.9782 53.2848,53.9153 53.251,53.9298 53.2437,53.954 53.1808,53.9806 53.1857,54.0072 53.1687,54.0241 53.1083,54.0289 53.0913,54.0435 53.0236,54.0193 52.9656,54.0193 52.9922,54.0676 52.9365,54.0725 52.8422,54.162 52.8519,54.1813 52.9099,54.1692 52.9438,54.1862 53.0091,54.2031 53.0115,54.2442 52.9486,54.2878 52.9003,54.2587 52.9365,54.237 52.922,54.2152 52.8761,54.22 52.8374,54.22 52.7793,54.2225 52.7963,54.2442 52.8374,54.237 52.835,54.266 52.7866,54.266 52.7334,54.2757 52.6366,54.3047 52.5689,54.3119 52.5254,54.2829 52.5036,54.3071 52.4371,54.3301 52.426,54.2857 52.3971,54.2724 52.3194,54.2813 52.2349,54.2724 52.1838,54.2813 52.1327,54.259 52.0972,54.2479 52.1105,54.2279 52.1749,54.2146 52.246,54.1835 52.2527,54.1324 52.2238,54.1168 52.1572,54.0991 52.1794,54.0613 52.2327,54.0724 52.286,54.0813 52.3194,54.0657 52.3394,54.0391 52.3816,54.0302 52.3794,53.9969 52.3282,53.9746 52.2727,53.9302 52.2749,53.9124 52.3149,53.8946 52.3171,53.8791 52.2883,53.8435 52.255,53.7902 52.2394,53.7347 52.1905,53.6858 52.1594,53.6325 52.155,53.6014 52.1194,53.5858 52.0905,53.528 52.0772,53.5036 52.0439,53.5014 51.9861,53.4969 51.9861,53.4747 51.975,53.4569 51.995,53.4436 51.9928,53.4169 52.035,53.3992 52.035,53.357 52.0928,53.328 52.0728,53.2636 52.0372,53.2414 52.0661,53.2058 52.055,53.1858 52.0217,53.1769 52.0328,53.1236 51.9594,53.1081 51.9594,53.0836 52.0572,53.0725 52.055,53.0458 51.9683,53.0325 51.9594,53.0103 51.9639,52.9636 51.9394,52.937 51.8795,52.9236 51.8461,52.897 51.7906,52.8881 51.7417,52.8592 51.7239,52.8281 51.6395,52.8281 51.6128,52.7681 51.675,52.7481 51.6528,52.6792 51.6239,52.6104 51.544,52.5992 51.4862,52.6348 51.4329,52.6259 51.4351,52.6037 51.4084,52.5859 51.4262,52.5459 51.4462,52.5193 51.4018,52.5237 51.3729,52.5326 51.3706,52.4993 51.3751,52.4504 51.4306,52.4348 51.4573,52.3926 51.4351,52.3748 51.3618,52.3615 51.3706,52.3282 51.3529,52.306 51.3062,52.2971 51.3173,52.2549 51.3062,52.2171 51.3151,52.1993 51.3529,52.1904 51.3106,52.0371 51.0707,51.9282 51.0373,51.9104 51.0196,51.886 50.9373,51.8682 50.9151,51.8549 50.8996,51.8327 50.8107,51.8082 50.7352,51.7638 50.6774,51.7171 50.6822,51.7111 2533,8.0,Russia 95.4998,54.2102 95.5145,54.1754 95.5292,54.1701 95.6108,54.154 95.6563,54.142 95.6804,54.13 95.6951,54.1072 95.7339,54.1032 95.7606,54.1019 95.778,54.0751 95.782,54.0537 95.8195,54.0363 95.8382,54.0283 95.8583,54.0337 95.8904,54.0337 95.9091,54.023 95.9265,54.0002 95.9211,53.9868 95.9131,53.9855 95.9024,53.9614 95.8944,53.94 95.9078,53.9293 95.9559,53.9173 95.9867,53.9079 96.0094,53.8839 96.0455,53.8705 96.0656,53.8517 96.1177,53.8116 96.198,53.7608 96.2582,53.7193 96.2769,53.6846 96.3037,53.6752 96.3277,53.6591 96.3411,53.6324 96.3465,53.6244 96.3839,53.615 96.4053,53.6083 96.4067,53.5936 96.4174,53.5869 96.4361,53.5923 96.4454,53.615 96.4602,53.6123 96.4882,53.5842 96.5271,53.5789 96.5431,53.5829 96.5511,53.6016 96.5565,53.6364 96.5712,53.6458 96.626,53.6605 96.6862,53.6685 96.7371,53.6672 96.7732,53.6364 96.816,53.6271 96.836,53.6137 96.8548,53.5976 96.8922,53.595 96.923,53.5789 96.9484,53.5723 96.9671,53.5495 96.9845,53.5549 97.0059,53.5642 97.0447,53.5656 97.0674,53.5415 97.0848,53.5335 97.1129,53.5321 97.1383,53.5295 97.1611,53.5375 97.1744,53.5415 97.1851,53.5201 97.1932,53.504 97.2213,53.4987 97.232,53.476 97.2427,53.4559 97.2641,53.4479 97.2801,53.4305 97.2801,53.4091 97.3002,53.3957 97.3336,53.397 97.3925,53.393 97.4299,53.377 97.4366,53.3583 97.4272,53.3315 97.4353,53.3154 97.4647,53.3101 97.5102,53.3114 97.557,53.3208 97.6025,53.3181 97.6412,53.3047 97.6814,53.3074 97.7068,53.3061 97.7442,53.2914 97.7884,53.3007 97.8124,53.2981 97.8178,53.2793 97.8111,53.2499 97.8151,53.2352 97.8445,53.2151 97.8646,53.1964 97.894,53.1883 97.9288,53.191 97.9957,53.1883 98.0425,53.1776 98.0652,53.1643 98.0947,53.1683 98.1308,53.1656 98.1468,53.1522 98.1321,53.1402 98.1254,53.1255 98.1361,53.0987 98.1294,53.0733 98.1441,53.0425 98.1642,53.0425 98.1803,53.0412 98.203,53.0278 98.2311,53.0439 98.2485,53.0439 98.3488,53.0506 98.3902,53.0519 98.4464,53.0412 98.4625,53.0479 98.4852,53.0679 98.5187,53.0947 98.5508,53.0947 98.6283,53.0827 98.722,53.0599 98.7313,53.0907 98.75,53.0947 98.7862,53.0893 98.8076,53.0786 98.8651,53.0532 98.9029,53.0304 98.8604,53.014 98.8407,53.0075 98.8276,52.9813 98.9225,52.9388 99.0207,52.9191 99.0872,52.8948 99.0809,52.8695 99.0588,52.8412 99.0651,52.797 99.0399,52.7907 98.9895,52.8191 98.9453,52.8222 98.9012,52.8286 98.8633,52.8412 98.8287,52.8664 98.7971,52.8664 98.7687,52.8569 98.7624,52.838 98.6931,52.7781 98.7025,52.7592 98.7025,52.734 98.7278,52.7371 98.7845,52.7403 98.7877,52.7277 98.7656,52.6993 98.7814,52.6583 98.7719,52.6331 98.7814,52.6015 98.753,52.5826 98.7246,52.5984 98.7025,52.5637 98.6458,52.5479 98.6268,52.5101 98.6489,52.4943 98.6678,52.4754 98.63,52.447 98.6048,52.4439 98.5732,52.4533 98.5669,52.4092 98.5575,52.3903 98.507,52.3682 98.4723,52.365 98.5165,52.3177 98.5007,52.2641 98.485,52.2011 98.5165,52.2011 98.5575,52.2358 98.5859,52.2263 98.6268,52.2168 98.6615,52.2105 98.6521,52.1506 98.6647,52.1223 98.7025,52.1286 98.753,52.1443 98.7814,52.1286 98.7908,52.0781 98.7908,52.0754 98.8646,52.0047 98.9852,51.9669 99.1375,51.9093 99.1615,51.8908 99.1894,51.8818 99.415,51.8404 99.4592,51.8359 99.5414,51.8371 99.5724,51.8304 99.6016,51.8154 99.6543,51.7738 99.6987,51.7405 99.732,51.7173 99.7639,51.7007 99.7909,51.6915 99.8222,51.6848 99.8661,51.6797 100.0965,51.6716 100.1771,51.6704 100.2698,51.6721 100.3369,51.6771 100.3693,51.6779 100.4009,51.6752 100.5374,51.6388 100.6272,51.6023 100.7355,51.5639 100.7564,51.5567 100.8812,51.5162 100.9668,51.491 101.0526,51.4746 101.0876,51.4693 101.1309,51.4536 101.1584,51.4306 101.1906,51.4041 101.2287,51.3924 101.2517,51.3925 101.291,51.4054 101.3512,51.4219 101.3764,51.4263 101.4181,51.4281 101.4437,51.4244 101.5834,51.3997 101.6192,51.389 101.7098,51.3599 101.8351,51.3361 101.8657,51.3321 101.891,51.3317 101.9244,51.3293 102.0657,51.2671 102.0672,51.2471 102.0383,51.219 102.0002,51.1883 102.0114,51.0613 102.0299,51.0178 102.0588,50.972 102.0714,50.9565 102.0982,50.9282 102.1061,50.8298 102.0761,50.7923 102.0797,50.7618 102.1207,50.7225 102.1838,50.6919 102.1995,50.6617 102.187,50.6363 102.1523,50.6053 102.1394,50.587 102.1412,50.5656 102.157,50.5353 102.1771,50.5076 102.1985,50.4943 102.2187,50.4872 102.2261,50.4855 102.2978,50.4784 102.3318,50.4733 102.3859,50.4506 102.4403,50.3947 102.4509,50.3661 102.4717,50.3509 102.5171,50.347 102.5937,50.3364 102.6248,50.329 102.6634,50.3133 102.6942,50.2929 102.7363,50.2664 102.7635,50.2573 102.7869,50.2519 102.8117,50.2483 102.8476,50.2447 102.8884,50.2455 102.9364,50.2485 103.0021,50.2549 103.0427,50.2543 103.0683,50.2507 103.0986,50.2352 103.1101,50.1999 103.1248,50.1642 103.1614,50.1417 103.182,50.1386 103.3758,50.1179 103.452,50.0897 103.4932,50.0794 103.5504,50.0799 103.5792,50.0891 103.5977,50.1085 103.6156,50.1269 103.6472,50.1406 103.6696,50.1432 103.6999,50.14 103.7544,50.1221 103.7797,50.1139 103.8745,50.0916 103.907,50.0892 103.9368,50.0908 103.9613,50.0956 104.0981,50.1308 104.1147,50.1503 104.1367,50.1801 104.2351,50.2407 104.261,50.2511 104.2929,50.2581 104.3391,50.2625 104.407,50.2595 104.4631,50.2598 104.4941,50.2705 104.5186,50.2885 104.5517,50.3009 104.8081,50.3468 104.8404,50.3498 104.8655,50.3384 104.9009,50.3341 104.9412,50.334 104.9735,50.34 104.9956,50.3461 105.0218,50.3564 105.0502,50.3717 105.0892,50.3938 105.1239,50.4148 105.1531,50.4232 105.1762,50.4252 105.2021,50.4248 105.3628,50.3964 105.5687,50.3728 105.6477,50.3776 105.8292,50.3524 105.8661,50.3425 105.8918,50.3288 105.9093,50.3171 105.9145,50.2879 106.085,50.242 106.1147,50.2409 106.1385,50.2483 106.1754,50.2581 106.2751,50.2736 106.3264,50.2803 106.3864,50.2881 106.4389,50.2874 106.4668,50.2851 106.5023,50.2804 106.5769,50.2676 106.5998,50.2619 106.6274,50.2524 106.665,50.2363 106.8466,50.1411 106.8913,50.0734 106.9031,50.0507 106.9202,50.0256 107.0164,49.9694 107.0956,49.9459 107.3033,49.9249 107.392,49.9255 107.578,49.923 107.5938,49.9223 107.5999,49.9193 107.6002,49.92 107.6194,49.9443 107.6425,49.97 107.6464,50.0263 107.6412,50.034 107.6105,50.0417 107.6066,50.0481 107.6118,50.0763 107.6156,50.0955 107.631,50.0968 107.6502,50.1058 107.6617,50.1173 107.6592,50.1404 107.6669,50.1468 107.7079,50.1506 107.7399,50.1327 107.7822,50.1634 107.7796,50.1942 107.7835,50.2044 107.795,50.2198 107.8309,50.2301 107.8347,50.2582 107.8309,50.2775 107.8603,50.2749 107.877,50.2787 107.9026,50.2928 107.9129,50.2928 107.9231,50.2877 107.9206,50.2723 107.9449,50.2621 107.9769,50.2557 107.991,50.2723 107.9974,50.2954 108.0218,50.3018 108.0346,50.3082 108.0295,50.3172 108.0295,50.339 108.05,50.3505 108.0897,50.3569 108.164,50.3415 108.1845,50.3454 108.2255,50.362 108.2614,50.3812 108.2639,50.3902 108.2793,50.4005 108.2908,50.4005 108.3011,50.3953 108.3254,50.3889 108.3536,50.3953 108.3805,50.4017 108.4036,50.412 108.4215,50.4094 108.4331,50.3979 108.4484,50.3915 108.4728,50.3992 108.4958,50.4017 108.506,50.4184 108.5137,50.4325 108.5265,50.4414 108.5317,50.4504 108.5227,50.4645 108.5073,50.4773 108.4855,50.4722 108.4663,50.4658 108.4445,50.4658 108.4253,50.4684 108.3958,50.4671 108.3818,50.4709 108.3587,50.4901 108.3574,50.5029 108.3472,50.5094 108.3331,50.5183 108.3356,50.5273 108.319,50.5337 108.2933,50.5337 108.2741,50.5388 108.269,50.5478 108.2549,50.5529 108.2101,50.5516 108.1601,50.5683 108.1024,50.5875 108.0807,50.5965 108.0268,50.5965 107.9833,50.6208 107.9436,50.6503 107.9179,50.6798 107.9102,50.6939 107.9154,50.7054 107.932,50.7169 107.9551,50.7284 107.9833,50.74 108.014,50.7515 108.0461,50.763 108.0794,50.7733 108.0947,50.772 108.1012,50.7912 108.1024,50.8156 108.1114,50.8476 108.1268,50.8771 108.1434,50.9078 108.1511,50.9424 108.1613,50.9744 108.1818,50.9936 108.2113,50.9975 108.2574,50.9949 108.3112,50.9962 108.3458,50.9975 108.3625,51.0128 108.3766,51.0256 108.4022,51.0397 108.4201,51.0564 108.4176,51.082 108.3971,51.0987 108.3548,51.1166 108.3151,51.1333 108.2984,51.1435 108.3035,51.1589 108.2959,51.1653 108.2805,51.1679 108.26,51.1691 108.2267,51.1768 108.2075,51.1896 108.1959,51.2089 108.2062,51.2281 108.2344,51.2447 108.2728,51.2524 108.3125,51.2781 108.3381,51.3139 108.3394,51.3447 108.3689,51.3562 108.3804,51.3742 108.3779,51.3947 108.3958,51.419 108.4291,51.4433 108.4624,51.4549 108.4996,51.4357 108.538,51.4152 108.5752,51.4023 108.5816,51.3895 108.5918,51.387 108.6111,51.3908 108.6444,51.3998 108.6918,51.3831 108.7187,51.3831 108.7686,51.3793 108.8122,51.3857 108.8481,51.3946 108.8686,51.4062 108.8814,51.4202 108.8904,51.442 108.9071,51.4484 108.9327,51.4433 108.9634,51.4279 108.9724,51.4023 109.0032,51.3818 109.0467,51.3357 109.1069,51.2998 109.1543,51.3203 109.1723,51.3318 109.1902,51.3254 109.1992,51.2998 109.2222,51.2844 109.2363,51.3344 109.2722,51.3536 109.3401,51.3652 109.3888,51.378 109.4516,51.3869 109.5246,51.4023 109.5567,51.4292 109.6169,51.442 109.6617,51.4728 109.7168,51.4933 109.7488,51.4972 109.7706,51.5126 109.7949,51.5292 109.8154,51.542 109.8295,51.5484 109.859,51.5446 109.8731,51.5497 109.8948,51.5587 109.9076,51.5549 109.9281,51.5446 109.9653,51.5382 110.0345,51.5331 110.1062,51.5318 110.1601,51.5305 110.1908,51.5228 110.2139,51.5164 110.2318,51.5241 110.2433,51.5151 110.2536,51.4767 110.2613,51.4639 110.3394,51.4523 110.392,51.4357 110.465,51.4459 110.5022,51.4459 110.5393,51.4421 110.5598,51.46 110.5777,51.4639 110.6085,51.4754 110.6162,51.5036 110.6252,51.5164 110.6572,51.5228 110.6956,51.5305 110.7096,51.5343 110.7148,51.5446 110.7045,51.56 110.6994,51.583 110.6891,51.5997 110.6866,51.6086 110.7225,51.6151 110.7391,51.6189 110.7724,51.6484 110.807,51.6637 110.8467,51.665 110.8531,51.6791 110.8647,51.7035 110.8621,51.7214 110.948,51.7573 110.9774,51.7726 110.9941,51.7726 111.0453,51.7637 111.071,51.7726 111.1209,51.7816 111.1376,51.7932 111.1683,51.8098 111.2042,51.8085 111.235,51.8072 111.2734,51.8175 111.317,51.8162 111.3336,51.8367 111.3695,51.8508 111.4156,51.8559 111.4566,51.8675 111.4669,51.8957 111.4887,51.8982 111.5092,51.9046 111.5912,51.961 111.6104,51.9815 111.6258,52.0148 111.645,52.0315 111.6604,52.0417 111.6796,52.0468 111.6988,52.0584 111.7231,52.0597 111.7295,52.0699 111.7283,52.0853 111.7308,52.0891 111.7436,52.0891 111.7616,52.1019 111.7757,52.1199 111.7744,52.1378 111.7821,52.1442 111.8269,52.1519 111.85,52.1596 111.8641,52.1711 111.8807,52.1814 111.8936,52.1916 111.9051,52.216 111.9217,52.2211 111.9538,52.2237 111.9832,52.2211 111.9858,52.2301 111.9884,52.2403 112.0089,52.2429 112.0242,52.2352 112.0383,52.2173 112.0447,52.1852 112.0768,52.1788 112.0998,52.1865 112.1331,52.1916 112.1536,52.1865 112.1754,52.1724 112.1946,52.166 112.2113,52.1532 112.251,52.1468 112.2741,52.1622 112.2856,52.1737 112.301,52.1776 112.3215,52.1853 112.3445,52.2019 112.3445,52.2519 112.365,52.2596 112.3804,52.2698 112.383,52.289 112.4073,52.2878 112.4163,52.2878 112.4419,52.2993 112.5316,52.2685 112.5713,52.2762 112.6366,52.2788 112.6802,52.2839 112.6994,52.2839 112.7212,52.289 112.734,52.2801 112.7673,52.2762 112.8211,52.2929 112.8698,52.3236 112.9121,52.3377 112.9493,52.3493 112.9672,52.3787 113.0031,52.38 113.0313,52.3928 113.0889,52.4108 113.1184,52.421 113.1504,52.4108 113.1812,52.4146 113.2299,52.4082 113.3003,52.4108 113.3439,52.4159 113.3682,52.4287 113.3785,52.4351 113.3887,52.4287 113.4067,52.3992 113.4221,52.3903 113.44,52.4018 113.4554,52.4287 113.4759,52.4377 113.4951,52.4428 113.5041,52.4646 113.5258,52.4851 113.554,52.4889 113.5758,52.512 113.5925,52.5222 113.6424,52.5222 113.6629,52.5453 113.7014,52.5415 113.7411,52.5735 113.8,52.5658 113.8692,52.6106 113.8936,52.6171 113.9051,52.6247 113.9397,52.6376 113.9589,52.6542 113.9756,52.667 113.9743,52.6798 113.9845,52.6901 114.0563,52.7503 114.0652,52.7606 114.0857,52.7606 114.0819,52.7708 114.0703,52.7849 114.0588,52.8054 114.0601,52.831 114.0767,52.8477 114.0844,52.8592 114.0793,52.8759 114.0678,52.89 114.0767,52.9041 114.1113,52.9041 114.1485,52.9015 114.1652,52.9053 114.1613,52.922 114.1472,52.9361 114.1318,52.9527 114.128,52.9643 114.1382,52.9822 114.1562,52.9925 114.1741,53.004 114.1664,53.0117 114.1434,53.0142 114.1203,53.0207 114.0998,53.0296 114.0947,53.0373 114.078,53.0424 114.0652,53.0373 114.0537,53.0232 114.0332,53.013 114.0204,53.0194 114.0063,53.0296 113.9883,53.0168 113.9742,53.0091 113.9704,53.0232 113.9781,53.0437 113.996,53.0565 114.0127,53.0655 114.0396,53.0975 114.046,53.1232 114.0409,53.1385 114.0229,53.1449 114.0037,53.1449 113.9781,53.1424 113.955,53.1424 113.9371,53.1462 113.9076,53.159 113.891,53.1667 113.8935,53.1757 113.8999,53.1898 113.8884,53.1898 113.8692,53.1859 113.8474,53.1795 113.8282,53.1718 113.8243,53.1783 113.8179,53.1885 113.7987,53.2077 113.7846,53.2167 113.7885,53.2321 113.8,53.2449 113.809,53.2615 113.7974,53.2833 113.7808,53.3 113.7654,53.2961 113.7423,53.3013 113.7141,53.3089 113.6872,53.3192 113.6744,53.3345 113.6833,53.3512 113.6923,53.3717 113.682,53.3807 113.6731,53.3883 113.682,53.4088 113.6936,53.4306 113.7115,53.4319 113.7307,53.4409 113.7423,53.4665 113.7307,53.4921 113.7141,53.5101 113.691,53.5293 113.6692,53.5447 113.6615,53.5562 113.6795,53.5626 113.7064,53.5652 113.7256,53.56 113.7359,53.5728 113.7512,53.5844 113.764,53.5895 113.7833,53.5895 113.8063,53.5818 113.8243,53.5895 113.8345,53.6049 113.8243,53.6215 113.814,53.6395 113.8409,53.6587 113.8755,53.66 113.8947,53.6625 113.9357,53.6638 113.9678,53.6766 113.987,53.6933 114.0075,53.6933 114.0395,53.6741 114.0715,53.6818 114.0972,53.6843 114.1356,53.6869 114.1869,53.7074 114.2061,53.7202 114.2074,53.7394 114.2253,53.7522 114.2561,53.7471 114.2817,53.7433 114.3111,53.7484 114.3406,53.7458 114.3534,53.7612 114.3803,53.7779 114.3893,53.7919 114.4124,53.8086 114.4303,53.8355 114.4572,53.8496 114.4662,53.8445 114.4969,53.8509 114.5469,53.8624 114.5982,53.874 114.6059,53.8906 114.6456,53.8842 114.6917,53.8842 114.7173,53.8996 114.7532,53.9073 114.7814,53.9227 114.8198,53.9329 114.8288,53.9598 114.8442,53.9611 114.8672,53.9726 114.8711,53.9867 114.8685,54.0098 114.9364,54.0316 114.9569,54.0457 114.9762,54.0521 115.0069,54.0764 115.0159,54.1059 115.0236,54.12 115.0543,54.1328 115.0902,54.1392 115.1158,54.1648 115.1402,54.1725 115.1748,54.1802 115.1901,54.1943 115.2145,54.202 115.2593,54.2097 115.3131,54.2327 115.3439,54.2443 115.3567,54.2699 115.349,54.2968 115.3631,54.3109 115.3785,54.3134 115.4143,54.3173 115.4438,54.3314 115.4694,54.348 115.5117,54.3583 115.554,54.3621 115.5861,54.375 115.6194,54.3738 115.6553,54.3814 115.6873,54.3917 115.7104,54.3981 115.7322,54.3994 115.7539,54.4045 115.7744,54.4096 115.8142,54.4058 115.8398,54.4083 115.8526,54.4173 115.8692,54.4199 115.9167,54.4237 115.9525,54.4288 115.9935,54.4429 116.0243,54.4455 116.0499,54.4404 116.0845,54.4365 116.105,54.4481 116.1306,54.4442 116.1575,54.4365 116.1793,54.4378 116.2088,54.4417 116.2575,54.4353 116.2767,54.4237 116.3062,54.4263 116.3292,54.4109 116.3625,54.4058 116.3702,54.4314 116.3715,54.4468 116.3907,54.4468 116.4343,54.4519 116.4714,54.4519 116.5073,54.4532 116.5317,54.4647 116.5586,54.4724 116.5714,54.4852 116.5586,54.4904 116.5661,54.5106 116.5818,54.5126 116.6172,54.5361 116.6132,54.5675 116.6113,54.597 116.6407,54.6048 116.6643,54.6146 116.6741,54.6303 116.7055,54.6421 116.7271,54.6617 116.7133,54.6833 116.7133,54.701 116.729,54.7167 116.7702,54.7343 116.7585,54.75 116.7658,54.7743 116.7539,54.7959 116.7371,54.8102 116.7227,54.8294 116.7227,54.8581 116.7371,54.882 116.7251,54.8868 116.7156,54.894 116.7156,54.9108 116.694,54.9084 116.6749,54.9203 116.682,54.9443 116.6916,54.9658 116.6653,54.9826 116.6581,55.0041 116.6461,55.0161 116.6198,55.052 116.5863,55.052 116.5384,55.0616 116.5049,55.0735 116.4594,55.0879 116.4283,55.1238 116.3948,55.1334 116.3589,55.1501 116.3182,55.1645 116.3062,55.1884 116.3086,55.2076 116.299,55.2219 116.3062,55.2435 116.2943,55.2507 116.2703,55.265 116.2536,55.289 116.2392,55.3033 116.1913,55.3153 116.1458,55.3105 116.1075,55.2962 116.0285,55.2962 115.9998,55.2938 115.9663,55.2866 115.94,55.2985 115.928,55.3129 115.8897,55.3177 115.837,55.3009 115.8059,55.3105 115.7844,55.3225 115.77,55.344 115.7868,55.3584 115.8083,55.3775 115.8035,55.3967 115.7389,55.4326 115.7317,55.4494 115.7317,55.4877 115.7557,55.514 115.7317,55.5284 115.7365,55.5403 115.7533,55.5643 115.7557,55.5858 115.7293,55.5954 115.7006,55.605 115.6862,55.6241 115.6982,55.6648 115.7102,55.6768 115.6934,55.7007 115.6791,55.7366 115.6982,55.7869 115.7389,55.8156 115.7413,55.8611 115.7102,55.8946 115.6647,55.9114 115.6408,55.9257 115.6312,55.9497 115.6192,55.9736 115.6001,55.9784 115.6001,55.9927 115.624,56.0047 115.6192,56.0239 115.6144,56.055 115.6383,56.0718 115.6743,56.0742 115.6743,56.0957 115.636,56.1029 115.6024,56.1196 115.5977,56.1508 115.5641,56.1699 115.5498,56.201 115.533,56.2417 115.5402,56.28 115.5234,56.3135 115.5258,56.3494 115.5617,56.3566 115.6096,56.3471 115.6431,56.359 115.6336,56.3782 115.5953,56.4045 115.5354,56.4237 115.5163,56.4596 115.533,56.4931 115.4923,56.5146 115.4109,56.5218 115.3224,56.529 115.2793,56.5529 115.2793,56.596 115.3056,56.6152 115.3774,56.6247 115.4397,56.6654 115.4588,56.7301 115.4325,56.7875 115.4349,56.8258 115.4851,56.8497 115.5306,56.8641 115.5809,56.8952 115.6503,56.8833 115.715,56.8737 115.7963,56.8043 115.8849,56.8067 115.9495,56.7636 116.0183,56.7481 116.0464,56.7582 116.0887,56.7582 116.1088,56.7622 116.1229,56.7763 116.143,56.7884 116.1712,56.7884 116.2115,56.7864 116.2175,56.7703 116.2517,56.7622 116.292,56.7542 116.3161,56.7461 116.3624,56.734 116.3865,56.7099 116.4107,56.6958 116.4972,56.6878 116.5335,56.6958 116.5576,56.6998 116.5878,56.6958 116.616,56.6737 116.6482,56.6636 116.6784,56.6737 116.779,56.7039 116.8031,56.7179 116.8212,56.722 116.8414,56.72 116.8716,56.7159 116.8877,56.7179 116.8937,56.724 116.8776,56.73 116.8575,56.734 116.8474,56.7461 116.8555,56.7522 116.8716,56.7542 116.9138,56.7542 116.942,56.7522 116.9762,56.7401 116.9863,56.7461 117.0064,56.7642 117.0165,56.7944 117.0386,56.8166 117.0567,56.8306 117.0849,56.8387 117.099,56.8568 117.1111,56.8608 117.1372,56.8649 117.1594,56.8649 117.1694,56.8689 117.1694,56.887 117.1815,56.891 117.1916,56.885 117.1916,56.8669 117.2097,56.8588 117.1976,56.8286 117.1916,56.8105 117.2077,56.8065 117.2318,56.8045 117.256,56.8045 117.256,56.7884 117.2378,56.7823 117.2439,56.7743 117.262,56.7662 117.2861,56.7582 117.3063,56.7602 117.3083,56.7763 117.3063,56.7924 117.3224,56.8025 117.3385,56.8105 117.3666,56.8085 117.4129,56.7864 117.423,56.7964 117.423,56.8327 117.4149,56.8749 117.425,56.883 117.4512,56.885 117.4793,56.895 117.5196,56.9172 117.5256,56.9454 117.5337,56.9595 117.5176,56.9776 117.5256,57.0017 117.5015,57.0178 117.4773,57.0299 117.4673,57.0581 117.4572,57.0802 117.4451,57.0883 117.4411,57.0983 117.4693,57.1023 117.4954,57.1164 117.5357,57.1205 117.5739,57.1245 117.5961,57.1466 117.6202,57.1889 117.6424,57.2372 117.6242,57.2432 117.6021,57.2432 117.5417,57.2472 117.4995,57.2452 117.4451,57.2674 117.429,57.2573 117.4149,57.2352 117.3928,57.203 117.3727,57.1949 117.3465,57.1929 117.3123,57.1748 117.27,57.1989 117.2781,57.213 117.2902,57.2472 117.2861,57.2754 117.262,57.2694 117.2298,57.2593 117.2157,57.2694 117.1996,57.2875 117.1815,57.3137 117.1996,57.3257 117.1774,57.352 117.1935,57.3621 117.1674,57.3943 117.1473,57.3963 117.1291,57.4124 117.1171,57.4345 117.101,57.4527 117.105,57.4808 117.1211,57.4989 117.1613,57.507 117.1452,57.5171 117.1392,57.5452 117.1191,57.5633 117.0808,57.5694 117.0466,57.5754 117.0225,57.5815 116.9883,57.5774 116.9903,57.5875 116.9822,57.6116 117.0024,57.6197 117.0084,57.6358 117.0144,57.6499 117.0124,57.67 117.0245,57.6801 117.0164,57.6841 117.0024,57.6942 116.9903,57.7082 116.9702,57.7203 116.942,57.7304 116.9319,57.7445 116.944,57.7666 116.9681,57.7827 117.0084,57.7827 117.0607,57.7807 117.0829,57.7928 117.113,57.7948 117.1513,57.7847 117.1976,57.8089 117.1976,57.827 117.2036,57.829 117.2459,57.833 117.2559,57.8491 117.2358,57.8632 117.2157,57.8753 117.2237,57.8974 117.2197,57.9135 117.2117,57.9397 117.2257,57.9477 117.2358,57.9659 117.2298,57.9779 117.2137,58.0061 117.2278,58.0101 117.2519,58.0182 117.2539,58.0343 117.2559,58.0665 117.2841,58.0947 117.3022,58.0846 117.3546,58.0786 117.423,58.0765 117.433,58.1228 117.4149,58.149 117.4008,58.1671 117.3747,58.1852 117.3626,58.2053 117.3425,58.2114 117.3143,58.2335 117.3284,58.2597 117.3666,58.2758 117.433,58.2939 117.4753,58.31 117.5055,58.312 117.5156,58.3402 117.5498,58.3362 117.592,58.3301 117.6303,58.3321 117.6605,58.3462 117.6826,58.3502 117.6987,58.3402 117.7249,58.3281 117.759,58.3463 117.7731,58.3383 117.8113,58.3383 117.8536,58.3322 117.8777,58.294 117.9281,58.2779 117.9603,58.296 117.9824,58.3282 118.0428,58.3222 118.083,58.3182 118.1333,58.3 118.1736,58.286 118.2138,58.2236 118.2541,58.1994 118.3004,58.1954 118.3245,58.1571 118.3909,58.1571 118.4292,58.135 118.5137,58.1088 118.5801,58.141 118.6687,58.1571 118.7653,58.1571 118.8297,58.1672 118.8981,58.1712 118.952,58.155 118.9593,58.1939 118.9739,58.2279 118.9691,58.2352 118.9375,58.2522 118.9156,58.2765 118.918,58.3179 118.9472,58.3349 118.9642,58.3543 118.9861,58.3835 118.9885,58.4175 118.9423,58.4273 118.884,58.4394 118.8256,58.4807 118.7794,58.4905 118.7357,58.4905 118.7162,58.5026 118.687,58.5075 118.6311,58.5221 118.6044,58.5537 118.6603,58.5537 118.67,58.5683 118.6846,58.6047 118.704,58.6193 118.7332,58.6339 118.7259,58.6485 118.7211,58.6874 118.7332,58.7142 118.7381,58.7506 118.7284,58.7676 118.6968,58.7822 118.6627,58.8017 118.6311,58.8284 118.6311,58.8552 118.6408,58.877 118.6724,58.877 118.6968,58.8795 118.6992,58.9135 118.6967,58.9476 118.653,58.9621 118.5946,58.967 118.5727,58.9792 118.5533,59.0059 118.5533,59.0375 118.5387,59.074 118.529,59.125 118.5484,59.1639 118.5946,59.1834 118.6505,59.1931 118.6432,59.2126 118.6481,59.2223 118.6967,59.2296 118.687,59.2442 118.6481,59.2515 118.6043,59.2685 118.5995,59.3001 118.6043,59.3463 118.563,59.3657 118.5095,59.3657 118.4731,59.3828 118.4293,59.3973 118.4001,59.4168 118.3637,59.4338 118.2786,59.4435 118.2226,59.4654 118.2032,59.5165 118.1716,59.5408 118.1157,59.5457 118.067,59.5408 118.0014,59.5505 117.9625,59.5311 117.9187,59.5262 117.8847,59.5092 117.8312,59.4703 117.8069,59.4338 117.768,59.3876 117.6902,59.373 117.661,59.4119 117.6367,59.4581 117.6027,59.4824 117.52,59.4533 117.4544,59.4144 117.4057,59.4119 117.3401,59.4314 117.289,59.4411 117.1723,59.4338 117.131,59.4606 117.0702,59.4703 117.0556,59.5092 116.9997,59.5213 116.9535,59.5286 116.9268,59.5238 116.9243,59.5359 116.9681,59.5529 117.0094,59.5748 117.046,59.5895 117.0363,59.6308 117.0582,59.66 117.063,59.694 117.0655,59.7232 117.0776,59.7621 117.0436,59.7961 117.0071,59.7961 116.9512,59.8253 116.9026,59.8545 116.9293,59.8934 116.9658,59.9055 116.9998,59.9055 117.0582,59.8958 117.1165,59.9225 117.1627,59.942 117.1384,59.9566 117.0849,59.9614 117.0533,59.9639 117.0241,59.976 116.9901,59.9736 116.9391,59.9687 116.8904,59.9736 116.8856,59.9979 116.8758,60.0319 116.8491,60.0563 116.8418,60.083 116.8175,60.1024 116.7713,60.1195 116.7227,60.1413 116.6984,60.1681 116.674,60.1875 116.6133,60.1875 116.5817,60.1973 116.55,60.224 116.5014,60.2653 116.465,60.2921 116.3969,60.3042 116.3215,60.3067 116.2218,60.3261 116.1465,60.3237 116.1003,60.314 116.0443,60.3334 115.9762,60.3431 115.9251,60.348 115.8959,60.3674 115.8814,60.3893 115.84,60.399 115.7841,60.399 115.699,60.4063 115.6723,60.4161 115.5945,60.4598 115.5483,60.4647 115.4753,60.4574 115.3854,60.4452 115.2638,60.4306 115.1714,60.4136 115.0499,60.3723 114.9769,60.3334 114.9137,60.2969 114.8845,60.2361 114.8456,60.1997 114.7776,60.1778 114.7192,60.1438 114.6487,60.1267 114.6074,60.1486 114.5636,60.1608 114.5247,60.1438 114.4907,60.1097 114.4566,60.0805 114.4104,60.066 114.3861,60.0392 114.3667,59.9906 114.3715,59.9736 114.4129,59.9614 114.4056,59.9249 114.3399,59.9006 114.2743,59.869 114.1916,59.8399 114.1357,59.8034 114.1236,59.7791 114.0871,59.7669 114.0871,59.7523 114.0725,59.7353 114.0433,59.7183 114.019,59.694 113.9947,59.6867 113.9947,59.694 113.8902,59.677 113.8804,59.6259 113.8172,59.6283 113.7613,59.6259 113.6981,59.6308 113.6738,59.587 113.6324,59.5554 113.5619,59.5384 113.4866,59.5335 113.4379,59.5141 113.4404,59.4825 113.4501,59.4557 113.4477,59.4338 113.4039,59.4071 113.3626,59.3852 113.3164,59.3779 113.2702,59.3366 113.275,59.3098 113.3139,59.288 113.3261,59.2685 113.3042,59.2345 113.3115,59.198 113.2678,59.1834 113.2289,59.164 113.1656,59.1324 113.1073,59.0935 113.0441,59.0983 112.9809,59.1032 112.9249,59.0886 112.8496,59.0886 112.8034,59.0813 112.7693,59.091 112.745,59.0764 112.7013,59.0546 112.6405,59.04 112.5748,59.0254 112.5261,58.9864 112.48,58.9694 112.4411,58.9864 112.4119,59.0107 112.3973,58.984 112.4167,58.9573 112.4727,58.9038 112.4532,58.8916 112.4119,58.8624 112.3778,58.8187 112.3438,58.8089 112.3098,58.8357 112.3146,58.8551 112.2976,58.86 112.2976,58.9402 112.3098,58.9645 112.3025,59.0132 112.2976,59.0472 112.3146,59.0861 112.3098,59.1104 112.3462,59.1566 112.3924,59.1858 112.4265,59.1882 112.4265,59.2077 112.4727,59.2052 112.4848,59.232 112.4581,59.2563 112.4143,59.2514 112.356,59.2587 112.3,59.2685 112.2538,59.2563 112.176,59.2417 112.1347,59.249 112.142,59.283 112.1201,59.3049 112.142,59.3268 112.1809,59.3487 112.1712,59.3706 112.1226,59.4022 112.1153,59.4386 112.0642,59.4386 111.9986,59.39 111.9402,59.339 111.8819,59.3098 111.8235,59.2612 111.7822,59.2174 111.7433,59.2247 111.6703,59.215 111.6217,59.215 111.5901,59.2028 111.5488,59.1712 111.4929,59.1493 111.4515,59.1566 111.3883,59.1712 111.364,59.1882 111.3129,59.2101 111.2424,59.2101 111.1938,59.198 111.1428,59.1907 111.1209,59.1736 111.0941,59.1712 111.0698,59.1372 111.0431,59.125 111.0017,59.1323 110.9726,59.1469 110.9458,59.1761 110.9094,59.1761 110.8875,59.1615 110.8413,59.1493 110.7756,59.1736 110.7003,59.1931 110.6103,59.2053 110.5301,59.1955 110.4839,59.1615 110.4426,59.1445 110.4207,59.1031 110.4328,59.0667 110.3964,59.0472 110.3842,58.9986 110.3356,58.9767 110.2772,58.9791 110.214,58.9816 110.1654,58.9597 110.1338,58.9184 110.0706,58.9208 110.0147,58.9208 109.9077,58.9257 109.842,58.9451 109.7715,58.9427 109.7205,58.9305 109.6743,58.9208 109.6427,58.9427 109.6111,58.9791 109.5746,59.0083 109.5187,58.9913 109.4701,59.0083 109.4774,59.0472 109.4798,59.0813 109.4506,59.108 109.4165,59.1153 109.3679,59.1202 109.3825,59.1372 109.3947,59.1591 109.3485,59.1761 109.3509,59.215 109.3533,59.2272 109.2998,59.2247 109.2147,59.2345 109.1224,59.2515 109.098,59.2685 109.1102,59.288 109.0956,59.3074 109.1345,59.3244 109.1734,59.339 109.1904,59.3585 109.1564,59.3755 109.1053,59.3876 109.1297,59.4071 109.171,59.4241 109.1686,59.4436 109.2172,59.4679 109.2609,59.5068 109.278,59.5262 109.3169,59.5432 109.3849,59.5821 109.3655,59.5967 109.3314,59.6186 109.3412,59.6891 109.3655,59.7304 109.4384,59.7693 109.4919,59.8034 109.4603,59.8374 109.4846,59.8544 109.5162,59.8763 109.56,59.9249 109.6159,59.9663 109.5649,59.9906 109.5551,60.0271 109.5382,60.0732 109.5625,60.1024 109.5722,60.1632 109.5795,60.1705 109.6232,60.1802 109.6597,60.2021 109.6621,60.2264 109.65,60.2507 109.7181,60.275 109.7108,60.2872 109.7059,60.309 109.7351,60.3139 109.7813,60.3382 109.791,60.3625 109.757,60.3747 109.7764,60.4087 109.8226,60.4403 109.8639,60.4598 109.8785,60.4914 109.9077,60.506 109.9515,60.5157 109.9636,60.54 109.9661,60.5643 109.9417,60.5716 109.9296,60.5838 109.9077,60.5935 109.8858,60.6154 109.915,60.6178 109.9636,60.6154 109.9904,60.6178 110.0244,60.6154 110.0609,60.6154 110.1119,60.6348 110.1144,60.664 110.1144,60.7029 110.1314,60.7078 110.0998,60.7224 110.0706,60.7369 110.0803,60.7564 110.1144,60.7904 110.1484,60.8318 110.1946,60.8561 110.2335,60.8828 110.2457,60.8974 110.2991,60.9193 110.3064,60.9728 110.321,60.9898 110.3599,61.0092 110.3502,61.0457 110.355,61.0821 110.3186,61.1016 110.2626,61.121 110.2237,61.1186 110.18,61.0894 110.1386,61.0943 110.0949,61.0894 110.0268,61.0967 109.9976,61.1235 109.9709,61.1356 109.9612,61.1697 109.9441,61.211 109.859,61.2304 109.8031,61.2402 109.7545,61.2377 109.6961,61.2329 109.6889,61.2402 109.667,61.2499 109.6354,61.2572 109.6378,61.2742 109.6621,61.2888 109.6475,61.3034 109.6572,61.3253 109.6864,61.3496 109.6913,61.3812 109.6718,61.4177 109.7083,61.4298 109.7205,61.4638 109.6986,61.493 109.6427,61.5295 109.6038,61.5708 109.5746,61.5757 109.5478,61.5927 109.5624,61.6146 109.5308,61.6243 109.4992,61.6389 109.4627,61.6583 109.4846,61.6997 109.4603,61.7094 109.4287,61.707 109.4409,61.7362 109.4336,61.758 109.4433,61.7969 109.453,61.831 109.4822,61.8334 109.577,61.8966 109.6013,61.9234 109.6743,61.9452 109.7253,62.0182 109.7521,62.0595 109.8031,62.079 109.8566,62.1179 109.7983,62.1543 109.7788,62.1762 109.791,62.1908 109.8323,62.2078 109.8445,62.2297 109.808,62.2491 109.808,62.2807 109.735,62.2953 109.7715,62.3415 109.7034,62.3585 109.6135,62.3537 109.5211,62.3537 109.3922,62.3707 109.329,62.344 109.3168,62.3464 109.2974,62.3658 109.2634,62.3999 109.1953,62.4072 109.1515,62.4218 109.1467,62.4412 109.1078,62.4631 109.1126,62.485 109.0883,62.502 109.0883,62.5093 109.2269,62.5214 109.222,62.5506 109.2293,62.5652 109.2172,62.5919 109.2998,62.5968 109.312,62.6795 109.3509,62.7111 109.4044,62.733 109.4579,62.7403 109.4943,62.7646 109.4749,62.7889 109.4579,62.8205 109.3363,62.8545 109.3071,62.9104 109.3217,62.9348 109.3023,62.9372 109.2998,62.9469 109.3241,62.9542 109.3314,62.9737 109.2901,62.9834 109.3144,62.998 109.3023,63.0223 109.2779,63.0344 109.2828,63.0417 109.2974,63.0612 109.2828,63.0758 109.3071,63.0928 109.2585,63.0928 109.2585,63.1341 109.2998,63.156 109.2682,63.1852 109.222,63.1876 109.2269,63.2508 109.2366,63.263 109.2074,63.2946 109.1394,63.2824 109.1126,63.2994 109.0956,63.3359 109.0712,63.3797 108.9862,63.4137 108.9813,63.4405 108.9691,63.4551 108.9278,63.4575 108.9254,63.4794 108.8865,63.494 108.8111,63.494 108.7139,63.4769 108.6482,63.494 108.5412,63.5207 108.478,63.5158 108.4464,63.5304 108.4051,63.5401 108.3176,63.5304 108.1911,63.5183 108.0817,63.5134 107.9966,63.5037 107.9747,63.5085 107.9577,63.5353 107.9529,63.5547 107.9918,63.5718 108.0258,63.5693 108.1133,63.6107 108.1231,63.6714 108.1206,63.7274 108.1668,63.7565 108.213,63.7663 108.213,63.7517 108.2616,63.7371 108.2932,63.7395 108.303,63.7298 108.337,63.7346 108.4367,63.7444 108.461,63.7346 108.4975,63.7274 108.5631,63.759 108.5777,63.7784 108.6117,63.7954 108.6166,63.8149 108.5339,63.8489 108.5364,63.8586 108.585,63.9219 108.551,63.9437 108.4148,63.9948 108.3856,64.0434 108.337,64.0629 108.3613,64.092 108.3929,64.1212 108.3492,64.1309 108.3151,64.1407 108.3467,64.1504 108.3759,64.1577 108.3832,64.1796 108.3394,64.1917 108.3224,64.2136 108.2908,64.2282 108.2422,64.2282 108.2227,64.2428 108.1863,64.2379 108.1863,64.2233 108.179,64.2039 108.1401,64.1893 108.0355,64.1893 107.9991,64.2015 107.9747,64.199 107.9407,64.1869 107.8897,64.182 107.8678,64.1601 107.9091,64.1723 107.965,64.1771 108.0234,64.1723 108.0671,64.148 108.0915,64.0969 108.1182,64.0507 108.1547,63.9972 108.1498,63.9583 108.1206,63.9437 108.0915,63.9316 108.0477,63.9389 107.9748,63.9267 107.8994,63.9292 107.8386,63.9365 107.7778,63.9389 107.7073,63.9267 107.6344,63.9462 107.5615,63.9316 107.4909,63.917 107.4666,63.8781 107.4545,63.8392 107.4204,63.8027 107.3718,63.8003 107.3232,63.81 107.2867,63.8003 107.2089,63.8076 107.187,63.8416 107.1554,63.8903 107.046,63.8951 107.0071,63.8732 106.9439,63.8295 106.8758,63.8416 106.8102,63.8805 106.73,63.917 106.674,63.9219 106.6254,63.9316 106.55,63.917 106.5257,63.8732 106.5744,63.8416 106.623,63.8076 106.6327,63.776 106.5744,63.7322 106.5282,63.6885 106.5136,63.6593 106.4722,63.6277 106.499,63.6034 106.5355,63.5791 106.5184,63.5426 106.4698,63.511 106.4479,63.4915 106.4163,63.4769 106.3726,63.4648 106.3555,63.4308 106.3823,63.4113 106.4261,63.4016 106.4479,63.3724 106.5184,63.3335 106.5841,63.314 106.5623,63.2994 106.5355,63.2678 106.5088,63.2337 106.358,63.2483 106.341,63.2653 106.3021,63.2629 106.2583,63.2386 106.217,63.2167 106.2049,63.1705 106.2267,63.1511 106.2705,63.1268 106.2267,63.0854 106.2486,63.0514 106.1854,63.0149 106.1198,63.0052 106.0444,63.0101 105.9763,63.0028 105.9715,62.9906 105.9909,62.9541 106.0274,62.9201 105.9933,62.9007 106.0468,62.8982 106.0565,62.8691 106.0614,62.8374 106.1052,62.835 106.1587,62.818 106.2049,62.801 106.2948,62.7864 106.3143,62.7183 106.3605,62.6964 106.3556,62.6551 106.3094,62.6308 106.3337,62.6162 106.3896,62.6138 106.4237,62.5943 106.6571,62.5433 106.5477,62.5189 106.5258,62.5092 106.4966,62.4703 106.5428,62.4533 106.5428,62.4144 106.4917,62.3828 106.4334,62.3536 106.3896,62.322 106.3483,62.3196 106.3094,62.3293 106.2656,62.3172 106.2729,62.2904 106.324,62.271 106.3045,62.2491 106.2388,62.2612 106.2145,62.232 106.1635,62.2077 106.2097,62.1834 106.2875,62.1883 106.285,62.1542 106.2704,62.1177 106.251,62.0764 106.2218,62.0472 106.251,62.0205 106.2364,61.9913 106.2486,61.9694 106.1781,61.9646 106.1124,61.9427 106.0346,61.9354 105.9884,61.8941 105.9179,61.8722 105.8887,61.8479 105.828,61.8114 105.7599,61.7968 105.738,61.7312 105.7793,61.6996 105.7891,61.6461 105.7696,61.6218 105.7186,61.6096 105.6699,61.5683 105.6237,61.5658 105.5946,61.5853 105.5459,61.5853 105.4779,61.5683 105.4292,61.5488 105.4098,61.5124 105.3782,61.5002 105.3198,61.4905 105.2469,61.4735 105.208,61.4662 105.1837,61.437 105.1278,61.4248 105.118,61.3932 105.1156,61.3592 105.0451,61.3568 104.9649,61.3568 104.9138,61.3495 104.8725,61.3495 104.8044,61.3397 104.7558,61.3179 104.7242,61.2984 104.678,61.2935 104.6269,61.2863 104.6512,61.2765 104.7023,61.2717 104.7582,61.2644 104.7655,61.2182 104.7922,61.2036 104.8263,61.1793 104.8433,61.1161 104.768,61.1161 104.6902,61.1282 104.6537,61.0966 104.6269,61.0772 104.588,61.0553 104.5467,61.0261 104.4908,61.0164 104.4446,60.997 104.4859,60.9775 104.464,60.9556 104.4495,60.9313 104.4519,60.907 104.4179,60.8973 104.413,60.8803 104.4543,60.8584 104.4762,60.8268 104.4081,60.8025 104.3328,60.8 104.2987,60.7733 104.3717,60.7149 104.4397,60.7052 104.4397,60.6785 104.4081,60.6517 104.3644,60.5763 104.4008,60.5545 104.4057,60.5253 104.4106,60.484 104.4689,60.4523 104.4884,60.3964 104.5127,60.3673 104.4932,60.3478 104.5175,60.3381 104.5662,60.3308 104.6245,60.3016 104.6975,60.27 104.7145,60.253 104.7996,60.236 104.8603,60.2262 104.9284,60.2262 105.0305,60.2141 105.0743,60.2214 105.1035,60.236 105.1545,60.2311 105.1934,60.2117 105.225,60.2019 105.2931,60.2117 105.3247,60.2019 105.3271,60.1241 105.2809,60.0876 105.2688,60.039 105.3101,59.9952 105.3393,59.9393 105.3052,59.9004 105.2761,59.8445 105.315,59.8153 105.3271,59.7764 105.2663,59.7691 105.1885,59.774 105.1472,59.7862 105.084,59.7935 105.0013,59.7935 104.9089,59.7813 104.8749,59.7667 104.8773,59.7229 104.8141,59.7011 104.7606,59.6913 104.6926,59.6719 104.6464,59.6476 104.6537,59.6208 104.6488,59.5698 104.6999,59.5406 104.6974,59.5017 104.7436,59.4506 104.8044,59.4093 104.9187,59.4044 104.96,59.4044 105.0305,59.4117 105.0767,59.368 105.0573,59.3339 105.0962,59.295 105.0305,59.2561 105.0451,59.2343 105.1083,59.2124 105.1399,59.1929 105.1715,59.1443 105.1472,59.103 105.1594,59.0714 105.1958,59.0471 105.1983,59.0276 105.1496,59.0009 105.084,59.0009 104.9988,58.9863 104.9332,58.9328 104.8797,58.9158 104.8043,58.9061 104.7557,58.8501 104.6998,58.838 104.6658,58.8161 104.6098,58.7723 104.6123,58.7432 104.6512,58.7334 104.6706,58.7067 104.6949,58.6897 104.7217,58.6654 104.6682,58.6265 104.622,58.5997 104.5564,58.5997 104.4859,58.5876 104.4226,58.5584 104.3862,58.5754 104.3521,58.5632 104.3011,58.5438 104.2816,58.5657 104.2452,58.5876 104.2427,58.641 104.1892,58.6435 104.1358,58.6337 104.0847,58.6362 104.0409,58.6289 104.0215,58.6532 104.0166,58.6702 103.9704,58.6751 103.9267,58.6824 103.8926,58.6775 103.8562,58.6508 103.7978,58.6532 103.7297,58.6483 103.6762,58.6556 103.6641,58.6897 103.7127,58.7091 103.7443,58.7383 103.7443,58.7675 103.7078,58.7821 103.7176,58.8088 103.6787,58.8185 103.6398,58.8112 103.5595,58.8258 103.5061,58.8331 103.455,58.8331 103.4039,58.838 103.3723,58.8501 103.365,58.8817 103.3116,58.8987 103.2265,58.9303 103.1462,58.9765 103.0782,59.0397 103.0393,59.0883 103.1195,59.1078 103.1414,59.1613 103.0903,59.1953 103.0004,59.205 102.9201,59.2196 102.835,59.2294 102.7694,59.205 102.6794,59.1516 102.5992,59.1321 102.5044,59.12 102.4193,59.1151 102.3366,59.0956 102.2491,59.0519 102.1956,58.9862 102.2224,58.9352 102.2126,58.8963 102.2224,58.872 102.2758,58.8428 102.305,58.8209 102.3172,58.782 102.3366,58.7091 102.2734,58.6337 102.1762,58.5948 102.0984,58.534 102.0157,58.4805 101.9355,58.4392 101.8334,58.4173 101.6996,58.3906 101.6072,58.3687 101.5238,58.3474 101.4957,58.318 101.485,58.2886 101.4556,58.2552 101.4195,58.2338 101.3874,58.1936 101.3646,58.1589 101.3151,58.1575 101.2737,58.1629 101.2041,58.1602 101.1426,58.1602 101.1092,58.1455 101.0931,58.108 101.069,58.088 101.0289,58.0773 100.9834,58.0679 100.95,58.0492 100.962,58.0197 101.0035,58.001 101.0035,57.9823 100.9968,57.9542 100.9821,57.9382 100.9781,57.9168 100.9433,57.8994 100.9219,57.8833 100.9059,57.8766 100.8831,57.8699 100.8751,57.8485 100.8804,57.8392 100.8417,57.8205 100.7989,57.8071 100.7587,57.8084 100.7159,57.8258 100.6731,57.8271 100.6517,57.8231 100.6718,57.8044 100.6959,57.7856 100.6892,57.7723 100.6825,57.7522 100.6906,57.7308 100.7133,57.7214 100.736,57.7134 100.7307,57.7014 100.7186,57.6933 100.6999,57.6813 100.6852,57.6599 100.6785,57.6332 100.6692,57.6251 100.6571,57.6238 100.6464,57.6198 100.6424,57.6091 100.6531,57.6037 100.6678,57.597 100.6638,57.581 100.6772,57.5636 100.7093,57.5409 100.7507,57.5221 100.7869,57.5061 100.8016,57.4954 100.7962,57.474 100.7828,57.4579 100.7895,57.4459 100.8096,57.4392 100.8029,57.4325 100.7828,57.4044 100.7588,57.3884 100.736,57.3924 100.7133,57.4058 100.6678,57.3964 100.6585,57.379 100.6437,57.359 100.6103,57.3549 100.5956,57.3429 100.5769,57.3442 100.5501,57.3576 100.5314,57.3804 100.5153,57.3991 100.4926,57.4138 100.4297,57.4312 100.3669,57.4526 100.2612,57.482 100.2478,57.4874 100.2465,57.5168 100.2385,57.5395 100.2104,57.569 100.189,57.5797 100.1997,57.593 100.2104,57.6131 100.1917,57.6211 100.1716,57.6278 100.193,57.6519 100.2211,57.6706 100.205,57.6786 100.1756,57.6893 100.1515,57.7 100.1181,57.6987 100.1141,57.7107 100.1248,57.7361 100.1101,57.7522 100.0766,57.7589 100.0566,57.7776 100.0231,57.783 99.9937,57.7937 99.9736,57.803 99.967,57.8151 99.967,57.8378 99.9549,57.8646 99.9322,57.8833 99.9215,57.898 99.9188,57.9234 99.9188,57.9542 99.9255,57.9823 99.9188,58.005 99.8961,58.0144 99.8573,58.0197 99.8105,58.0224 99.7757,58.0144 99.7369,58.013 99.6981,58.0117 99.6767,58.0064 99.65,57.997 99.6326,57.9997 99.6072,58.0144 99.5751,58.0251 99.5483,58.0251 99.5216,58.0184 99.5055,58.0064 99.4801,57.997 99.4614,57.993 99.4614,57.9809 99.4747,57.9769 99.4734,57.9595 99.4547,57.9355 99.4186,57.9127 99.3932,57.8967 99.3784,57.8806 99.3597,57.882 99.3423,57.8753 99.3383,57.8552 99.3236,57.8352 99.3156,57.803 99.3035,57.7857 99.2781,57.7629 99.2714,57.7402 99.2487,57.7322 99.2139,57.7362 99.1684,57.7348 99.1149,57.7295 99.0721,57.7121 99.0293,57.7014 98.9919,57.7054 98.9504,57.7134 98.9277,57.7121 98.8876,57.692 98.8408,57.6813 98.8261,57.6639 98.8034,57.6639 98.7606,57.6613 98.675,57.68 98.6241,57.7027 98.6241,57.7281 98.6148,57.7308 98.576,57.7322 98.5452,57.7215 98.4676,57.7161 98.4021,57.7308 98.3419,57.7334 98.263,57.7388 98.1827,57.7455 98.0784,57.7495 97.9861,57.7589 97.9286,57.7615 97.8778,57.7629 97.8403,57.7629 97.8002,57.7562 97.7614,57.7468 97.7453,57.7308 97.5314,57.4485 97.185,56.9817 97.2452,56.9657 97.2719,56.9496 97.2987,56.9229 97.3214,56.9041 97.3588,56.9001 97.407,56.9028 97.4618,56.9001 97.4632,56.8814 97.4364,56.8667 97.3829,56.8493 97.3415,56.8386 97.3161,56.8078 97.3108,56.7743 97.3509,56.7463 97.3991,56.7315 97.4378,56.7409 97.502,56.7489 97.5689,56.7409 97.6171,56.7262 97.6144,56.6994 97.5983,56.67 97.5997,56.6312 97.6291,56.6085 97.6211,56.5938 97.5997,56.5831 97.6024,56.567 97.6197,56.5537 97.6077,56.5216 97.5903,56.5002 97.7227,56.4988 97.7268,56.333 97.4004,56.3276 97.4057,56.2447 97.4017,56.2313 97.4338,56.2233 97.4311,56.1296 97.3509,56.1256 97.2746,56.0842 97.276,56.0333 97.2559,56.028 97.2265,56.0106 97.2024,55.9892 97.185,55.9932 97.1583,56.0052 97.1275,56.0173 97.1181,56.0266 96.9697,56.0547 96.9055,55.9665 96.8252,55.9624 96.8145,55.7979 96.7864,55.7912 96.761,55.7912 96.7423,55.7752 96.7236,55.7645 96.6942,55.7645 96.6902,55.7484 96.6768,55.739 96.6487,55.7297 96.626,55.723 96.6166,55.7069 96.6166,55.7003 96.6006,55.6882 96.6166,55.6682 96.6353,55.6575 96.6634,55.6441 96.6648,55.6334 96.6407,55.6187 96.6153,55.608 96.5925,55.5959 96.6046,55.5826 96.6353,55.5705 96.6715,55.5545 96.6995,55.5384 96.6915,55.517 96.6688,55.5077 96.6648,55.4916 96.6808,55.4729 96.6781,55.4448 96.6969,55.4261 96.6928,55.406 96.6861,55.3873 96.6955,55.3686 96.7222,55.3579 96.7289,55.3298 96.741,55.3044 96.7543,55.2937 96.7664,55.2669 96.7557,55.2535 96.7276,55.2415 96.6968,55.2362 96.6513,55.2281 96.6059,55.2188 96.5697,55.2094 96.547,55.1947 96.539,55.176 96.5457,55.1613 96.547,55.1305 96.5403,55.1104 96.5256,55.085 96.5256,55.0649 96.5069,55.0502 96.4962,55.0395 96.5082,55.0342 96.5216,55.0342 96.5336,55.0235 96.5203,55.0088 96.4948,54.9954 96.4895,54.9834 96.4574,54.97 96.428,54.966 96.4226,54.962 96.4266,54.9566 96.4413,54.9526 96.4627,54.9459 96.4975,54.9165 96.535,54.8924 96.5604,54.8643 96.547,54.8402 96.5537,54.8081 96.5403,54.7774 96.5229,54.7667 96.5203,54.7439 96.4869,54.7251 96.4748,54.6971 96.4467,54.677 96.4293,54.6556 96.4106,54.6422 96.4039,54.6288 96.4146,54.6181 96.432,54.6021 96.424,54.5713 96.4173,54.5473 96.4053,54.5339 96.3946,54.5138 96.4173,54.4724 96.4146,54.455 96.3959,54.4456 96.3625,54.4456 96.3076,54.4563 96.2622,54.471 96.2207,54.4884 96.1832,54.5071 96.1592,54.5111 96.1578,54.5018 96.1391,54.4938 96.1043,54.4884 96.0589,54.4804 96.0,54.4897 95.9666,54.4938 95.9371,54.5045 95.9077,54.5152 95.8863,54.5085 95.8743,54.4884 95.8836,54.4683 95.8729,54.4683 95.8582,54.4697 95.8582,54.4576 95.8636,54.4389 95.8422,54.4255 95.8181,54.4162 95.8234,54.3961 95.8301,54.3867 95.8101,54.3801 95.7887,54.3587 95.7606,54.3346 95.7258,54.3279 95.695,54.3373 95.679,54.3546 95.6456,54.3613 95.6242,54.3533 95.6108,54.3426 95.5907,54.3399 95.5573,54.3266 95.5466,54.2985 95.5386,54.2904 95.5118,54.2864 95.5038,54.2731 95.4984,54.2383 95.4998,54.2102 4982,7.0,Russia 74.9565,58.272 75.1161,58.1579 74.9565,58.0658 75.4353,57.8694 75.4598,57.5932 75.601,57.5932 75.7421,57.3355 75.8649,57.3477 75.9815,57.1882 76.0429,57.0593 76.0736,56.9365 76.0736,56.8936 76.1411,56.8506 76.1411,56.7279 76.1718,56.6665 76.0613,56.6235 76.0429,56.5683 75.9385,56.5437 75.9034,56.4903 75.8152,56.4588 75.7417,56.4378 75.7228,56.3916 75.7837,56.3811 75.8299,56.4168 75.8929,56.3958 75.9412,56.4294 75.9559,56.4063 76.0231,56.3958 76.0231,56.3685 75.9559,56.3559 75.9958,56.253 76.0798,56.2362 76.1029,56.2026 76.1386,56.1984 76.1932,56.1669 76.2016,56.1228 76.1302,56.1228 76.0399,56.0871 76.0294,56.1249 75.9706,56.1081 75.8677,56.1165 75.8446,56.0661 75.7375,56.0766 75.6514,56.0829 75.5968,56.0577 75.5821,56.0094 75.4309,55.9926 75.4036,55.9653 75.391,55.9338 75.2293,55.8561 75.1705,55.8057 75.1894,55.77 75.2398,55.7553 75.2566,55.7406 75.2503,55.707 75.097,55.6818 74.9941,55.7091 74.9647,55.6902 74.9983,55.6734 75.0151,55.6587 75.0088,55.6398 75.1117,55.5999 75.0634,55.5726 75.0088,55.5432 75.0781,55.497 75.1831,55.5075 75.2041,55.4739 75.2041,55.4466 75.1411,55.4214 75.097,55.4088 75.0487,55.392 75.0508,55.3605 74.9941,55.3374 74.9752,55.3227 75.0256,55.2975 75.0508,55.2807 75.0508,55.2555 75.0865,55.245 75.0865,55.2177 75.1243,55.2177 75.1558,55.1925 75.1537,55.1694 75.1537,55.1316 75.1306,55.0812 75.1306,55.0707 75.1852,55.0476 75.181,55.0245 75.1957,55.014 75.2419,55.0119 75.2566,55.0077 75.2776,54.9615 75.244,54.9153 75.2125,54.8838 75.2167,54.8544 75.2671,54.846 75.3532,54.8565 75.4162,54.8355 75.3784,54.8082 75.3721,54.7872 75.4078,54.7599 75.4456,54.7536 75.5317,54.7515 75.5569,54.7179 75.5674,54.6675 75.5821,54.6402 75.5968,54.6213 75.6283,54.6339 75.6556,54.6486 75.685,54.6339 75.6724,54.6192 75.6766,54.6003 75.6976,54.5793 75.7165,54.5499 75.6913,54.5142 75.6745,54.4995 75.6241,54.4869 75.559,54.4722 75.5632,54.4239 75.559,54.3294 75.5653,54.2496 75.5695,54.1425 75.5737,54.0522 75.5739,54.05 75.7604,54.1118 76.0795,54.1958 76.0579,54.2322 76.1107,54.2954 76.2256,54.2772 76.3595,54.2621 76.5307,54.3066 76.5409,54.3338 76.5445,54.3601 76.5707,54.3805 76.6822,54.3842 76.7366,54.2766 76.7302,54.2377 76.6742,54.1643 76.6552,54.1444 76.596,54.0919 76.5716,54.0827 76.5315,54.075 76.5092,54.0742 76.4862,54.0791 76.4361,54.1016 76.4146,54.1057 76.3937,54.1076 76.3531,54.1093 76.3161,54.1085 76.2749,54.0934 76.2985,54.0673 76.3209,54.0469 76.3443,54.021 76.3787,53.9748 76.3955,53.9326 76.4158,53.9102 76.6549,53.7891 76.7875,53.7368 76.909,53.6853 77.1432,53.5633 77.2784,53.4993 77.3972,53.4441 77.4199,53.4317 77.6274,53.3111 77.6732,53.2836 77.7384,53.244 77.7638,53.2245 77.7881,53.2029 77.8084,53.183 77.8565,53.1328 77.9202,53.0642 77.9356,53.0326 77.947,53.0135 78.1705,52.7912 78.2851,52.6854 78.3426,52.6255 78.5045,52.448 78.6262,52.3117 78.7985,52.1158 79.1234,51.7228 79.2136,51.6092 79.2425,51.5861 79.3711,51.4397 79.4185,51.3822 79.5581,51.1736 79.6142,51.1015 79.6287,51.0843 79.8387,50.8149 79.8515,50.786 79.8669,50.7609 79.8948,50.7377 79.9137,50.7246 79.9373,50.7099 79.96,50.6989 79.9809,50.7057 79.9675,50.726 79.9452,50.7407 79.9696,50.7908 80.1616,50.8641 80.2212,50.8625 80.2552,50.864 80.2815,50.8737 80.3051,50.8857 80.3417,50.9075 80.359,50.9367 80.3647,50.9622 80.3641,50.992 80.3529,51.0246 80.313,51.0522 80.3202,51.1401 80.3648,51.1577 80.4592,51.1532 80.4851,51.1534 80.514,51.1617 80.5113,51.1925 80.534,51.2289 80.5606,51.2531 80.581,51.2508 80.6346,51.2361 80.6953,51.2167 80.7478,51.1998 80.818,51.1602 80.9161,51.1222 80.9702,51.1227 81.0095,51.1438 81.0548,51.1337 81.0531,51.1052 81.0407,51.0717 81.0287,51.0538 81.0127,51.0357 80.9845,50.9914 80.9712,50.9655 80.9578,50.9284 80.9508,50.8924 81.0643,50.8861 81.1037,50.8933 81.1258,50.8997 81.1464,50.906 81.1729,50.9108 81.2032,50.9105 81.2958,50.9078 81.3291,50.8191 81.344,50.7575 81.3154,50.7102 81.3399,50.6844 81.4142,50.6792 81.4582,50.6774 81.4711,50.6772 81.5143,50.6789 81.5545,50.6823 81.6069,50.6931 81.6913,50.7131 81.7907,50.7283 81.8899,50.7113 81.947,50.6771 81.9767,50.6616 81.9986,50.6559 82.0343,50.6516 82.0682,50.6518 82.0909,50.6555 82.1217,50.668 82.1551,50.6948 82.2312,50.7012 82.3221,50.6965 82.3555,50.6732 82.3735,50.6626 82.3945,50.6687 82.4212,50.6788 82.5464,50.7272 82.5768,50.7417 82.5955,50.7553 82.597,50.7878 82.5989,50.8312 82.6348,50.8519 82.6635,50.8593 82.7119,50.8463 82.7383,50.8382 82.7961,50.8335 82.8881,50.8326 82.9299,50.8484 82.9663,50.873 82.9763,50.8936 83.0111,50.9407 83.1227,50.9437 83.3406,50.9304 83.6789,50.8276 83.7116,50.8204 83.8498,50.7362 83.8503,50.7126 83.8385,50.6719 83.8469,50.6528 83.8738,50.634 83.9136,50.613 83.9786,50.5844 83.9986,50.5731 84.0195,50.5573 84.0413,50.5398 84.0969,50.4488 84.0796,50.416 84.0712,50.3912 84.1387,50.2148 84.2505,50.1547 84.3939,50.159 84.5685,50.1193 84.6834,50.0864 84.8554,50.0305 84.884,50.02 84.9292,49.9551 84.8734,49.9456 84.8532,49.9402 84.8483,49.8706 84.8633,49.8481 84.926,49.835 84.9546,49.826 85.0717,49.6763 85.0894,49.6427 85.0864,49.5931 85.1335,49.5359 85.1698,49.526 85.1985,49.5385 85.2297,49.5534 85.2942,49.564 85.3393,49.5408 85.3781,49.5335 85.4022,49.5341 85.4278,49.5383 85.5313,49.5516 85.6199,49.5229 85.6801,49.5073 85.8327,49.4815 86.0573,49.4201 86.1026,49.432 86.123,49.4511 86.1494,49.5077 86.1602,49.5288 86.2107,49.5597 86.2464,49.5635 86.2859,49.5742 86.3177,49.5889 86.3793,49.6316 86.4052,49.6706 86.4952,49.7417 86.5339,49.7453 86.6538,49.7268 86.6663,49.641 86.6198,49.617 86.5666,49.6159 86.5125,49.5762 86.4879,49.5492 86.4933,49.5262 86.5218,49.5033 86.5556,49.4952 86.5866,49.4967 86.6157,49.5072 86.7222,49.4563 86.7131,49.4259 86.7113,49.3979 86.7988,49.2965 86.9126,49.2156 86.9843,49.194 87.0406,49.1934 87.0824,49.1907 87.1153,49.1818 87.1377,49.1717 87.1773,49.1451 87.1861,49.1107 87.197,49.0721 87.2123,49.0449 87.2204,49.0364 87.2462,49.0289 87.2842,49.0222 87.3187,49.0213 87.3389,49.0235 87.3792,49.043 87.3913,49.0611 87.577,49.1065 87.679,49.1151 87.7076,49.1171 87.7289,49.1108 87.7594,49.1061 87.8632,49.1233 88.0272,49.2124 88.044,49.2309 88.0293,49.2542 88.004,49.3128 88.0497,49.3773 88.0724,49.3961 88.0911,49.4051 88.2165,49.4253 88.2777,49.427 88.4386,49.4192 88.6005,49.3942 88.721,49.385 88.772,49.3932 88.7469,49.4216 88.7556,49.4829 88.7935,49.4897 88.8191,49.4616 88.8565,49.4123 88.8774,49.4065 89.0192,49.4415 89.0571,49.4528 89.0774,49.464 89.1051,49.4891 89.1017,49.5133 89.0697,49.5443 89.0726,49.5656 89.0918,49.58 89.1215,49.586 89.154,49.5755 89.1882,49.5526 89.2414,49.5253 89.2714,49.5347 89.3101,49.5705 89.3248,49.5917 89.4329,49.6212 89.4578,49.6238 89.4945,49.6273 89.5895,49.6653 89.603,49.6888 89.5891,49.7073 89.561,49.7183 89.5265,49.7309 89.5046,49.801 89.5098,49.8475 89.5181,49.8548 89.5403,49.8672 89.5684,49.8775 89.5935,49.8833 89.6298,49.8893 89.6743,49.8938 89.7048,49.8925 89.7377,49.8892 89.767,49.8908 89.8478,49.9136 89.8723,49.9235 89.8875,49.9389 89.888,49.9886 89.8972,50.0104 89.9135,50.0234 89.9369,50.0327 89.9687,50.0412 90.0441,50.0526 90.0837,50.057 90.1089,50.0626 90.1419,50.0763 90.1692,50.0928 90.2028,50.1122 90.2428,50.1278 90.3738,50.1666 90.3943,50.1683 90.4217,50.1681 90.4767,50.1579 90.5072,50.1541 90.5369,50.1559 90.5621,50.1617 90.587,50.173 90.7559,50.2811 90.7889,50.3094 90.822,50.3378 90.8424,50.3517 90.8652,50.3643 90.9021,50.3761 90.9636,50.3735 90.9909,50.3731 91.022,50.3757 91.213,50.4178 91.3198,50.4493 91.4765,50.5193 91.4954,50.5371 91.5142,50.5725 91.5297,50.5857 91.5585,50.6022 91.5845,50.6137 91.6403,50.6337 91.6802,50.6449 91.7451,50.6543 91.7659,50.6561 91.8123,50.656 91.8674,50.6469 91.8984,50.6392 91.9452,50.633 91.972,50.6322 92.0223,50.6345 92.0503,50.6387 92.0812,50.6471 92.1237,50.6685 92.1549,50.6965 92.1766,50.7319 92.1819,50.7561 92.3067,50.752 92.3294,50.7286 92.4998,50.6297 92.5291,50.623 92.5582,50.6245 92.5957,50.6388 92.6213,50.6558 92.6379,50.6819 92.648,50.722 92.6713,50.7359 92.7917,50.7407 92.826,50.7343 92.8528,50.714 92.8571,50.6901 92.8322,50.6336 92.8297,50.6124 92.8854,50.5523 92.9479,50.5414 92.9715,50.5377 93.0008,50.5386 93.2,50.5465 93.2427,50.5556 93.2675,50.5614 93.309,50.5636 93.3388,50.5588 93.4362,50.532 93.5938,50.521 93.7529,50.5258 93.8404,50.527 94.076,50.5193 94.1014,50.5173 94.1407,50.5064 94.1587,50.4904 94.2097,50.3567 94.2139,50.3242 94.2123,50.2884 94.2153,50.2532 94.2312,50.1884 94.2449,50.1617 94.2582,50.1456 94.2891,50.1287 94.3629,50.1091 94.3852,50.0898 94.4321,50.031 94.4881,49.9698 94.5237,49.9685 94.5751,49.9779 94.6391,49.9988 94.6778,50.0023 94.8383,49.9944 94.8578,49.9799 94.8708,49.9655 94.9236,49.9071 94.9564,49.899 95.0146,49.9 95.0635,49.9005 95.0845,49.9021 95.1228,49.9022 95.2077,49.9014 95.2727,49.8997 95.2971,49.8925 95.35,49.8504 95.3825,49.8382 95.6056,49.9033 95.6254,49.9203 95.6433,49.9448 95.662,49.9591 95.6833,49.9661 95.7212,49.9676 95.7449,49.9636 95.7689,49.9526 95.7824,49.9222 95.793,49.9044 95.8144,49.8878 95.8444,49.8944 95.8733,49.9197 95.8922,49.934 95.9254,49.9482 95.9641,49.9446 96.0689,49.9146 96.1318,49.8963 96.1542,49.8874 96.1673,49.872 96.1916,49.8537 96.216,49.8426 96.2406,49.836 96.2638,49.838 96.3022,49.8513 96.3445,49.869 96.3752,49.8731 96.4007,49.8695 96.4248,49.8548 96.4339,49.8326 96.4474,49.8094 96.4709,49.8065 96.511,49.8248 96.5539,49.8557 96.5744,49.8632 96.5982,49.8634 96.6581,49.8575 96.864,49.8319 97.005,49.7397 97.0256,49.7049 97.061,49.6946 97.1338,49.6767 97.164,49.674 97.2047,49.6795 97.3401,49.7304 97.421,49.7732 97.4523,49.7981 97.462,49.8193 97.5742,49.8944 97.5955,49.9014 97.6246,49.9097 97.6448,49.911 97.6671,49.9022 97.7456,49.8981 97.9299,49.9741 97.9551,49.9882 97.9726,50.003 97.9876,50.0201 98.0516,50.1038 98.145,50.2447 98.1796,50.4128 98.1771,50.4492 98.1694,50.4687 98.156,50.484 98.1341,50.4976 98.1021,50.5068 98.0746,50.5079 98.044,50.5077 98.0172,50.5115 97.9168,50.5701 97.9027,50.5849 97.818,50.7144 97.8188,50.7406 97.8601,50.7946 97.7986,50.8468 97.7492,50.8613 97.7192,50.8789 97.6809,50.9405 97.7007,50.9702 97.729,51.0033 97.7584,51.0602 97.8056,51.1589 97.8037,51.1933 97.8463,51.3141 97.9061,51.4032 97.9339,51.4148 97.9583,51.4199 97.9861,51.4198 98.0207,51.4079 98.0513,51.4014 98.0836,51.4061 98.1055,51.4481 98.1073,51.4685 98.0963,51.496 98.0948,51.5186 98.1594,51.6394 98.1852,51.6595 98.2161,51.671 98.2401,51.677 98.3556,51.7012 98.4454,51.7148 98.4773,51.7223 98.514,51.7399 98.5349,51.7534 98.5537,51.7679 98.5716,51.7831 98.6109,51.8243 98.6512,51.8813 98.7159,51.9836 98.7181,52.0045 98.7175,52.0299 98.724,52.0513 98.7439,52.0717 98.7701,52.0823 98.786,52.08 98.7908,52.0754 98.7908,52.0781 98.7814,52.1286 98.753,52.1443 98.7025,52.1286 98.6647,52.1223 98.6521,52.1506 98.6615,52.2105 98.6268,52.2168 98.5859,52.2263 98.5575,52.2358 98.5165,52.2011 98.485,52.2011 98.5007,52.2641 98.5165,52.3177 98.4723,52.365 98.507,52.3682 98.5575,52.3903 98.5669,52.4092 98.5732,52.4533 98.6048,52.4439 98.63,52.447 98.6678,52.4754 98.6489,52.4943 98.6268,52.5101 98.6458,52.5479 98.7025,52.5637 98.7246,52.5984 98.753,52.5826 98.7814,52.6015 98.7719,52.6331 98.7814,52.6583 98.7656,52.6993 98.7877,52.7277 98.7845,52.7403 98.7278,52.7371 98.7025,52.734 98.7025,52.7592 98.6931,52.7781 98.7624,52.838 98.7687,52.8569 98.7971,52.8664 98.8287,52.8664 98.8633,52.8412 98.9012,52.8286 98.9453,52.8222 98.9895,52.8191 99.0399,52.7907 99.0651,52.797 99.0588,52.8412 99.0809,52.8695 99.0872,52.8948 99.0207,52.9191 98.9225,52.9388 98.8276,52.9813 98.8407,53.0075 98.8604,53.014 98.9029,53.0304 98.8651,53.0532 98.8076,53.0786 98.7862,53.0893 98.75,53.0947 98.7313,53.0907 98.722,53.0599 98.6283,53.0827 98.5508,53.0947 98.5187,53.0947 98.4852,53.0679 98.4625,53.0479 98.4464,53.0412 98.3902,53.0519 98.3488,53.0506 98.2485,53.0439 98.2311,53.0439 98.203,53.0278 98.1803,53.0412 98.1642,53.0425 98.1441,53.0425 98.1294,53.0733 98.1361,53.0987 98.1254,53.1255 98.1321,53.1402 98.1468,53.1522 98.1308,53.1656 98.0947,53.1683 98.0652,53.1643 98.0425,53.1776 97.9957,53.1883 97.9288,53.191 97.894,53.1883 97.8646,53.1964 97.8445,53.2151 97.8151,53.2352 97.8111,53.2499 97.8178,53.2793 97.8124,53.2981 97.7884,53.3007 97.7442,53.2914 97.7068,53.3061 97.6814,53.3074 97.6412,53.3047 97.6025,53.3181 97.557,53.3208 97.5102,53.3114 97.4647,53.3101 97.4353,53.3154 97.4272,53.3315 97.4366,53.3583 97.4299,53.377 97.3925,53.393 97.3336,53.397 97.3002,53.3957 97.2801,53.4091 97.2801,53.4305 97.2641,53.4479 97.2427,53.4559 97.232,53.476 97.2213,53.4987 97.1932,53.504 97.1851,53.5201 97.1744,53.5415 97.1611,53.5375 97.1383,53.5295 97.1129,53.5321 97.0848,53.5335 97.0674,53.5415 97.0447,53.5656 97.0059,53.5642 96.9845,53.5549 96.9671,53.5495 96.9484,53.5723 96.923,53.5789 96.8922,53.595 96.8548,53.5976 96.836,53.6137 96.816,53.6271 96.7732,53.6364 96.7371,53.6672 96.6862,53.6685 96.626,53.6605 96.5712,53.6458 96.5565,53.6364 96.5511,53.6016 96.5431,53.5829 96.5271,53.5789 96.4882,53.5842 96.4602,53.6123 96.4454,53.615 96.4361,53.5923 96.4174,53.5869 96.4067,53.5936 96.4053,53.6083 96.3839,53.615 96.3465,53.6244 96.3411,53.6324 96.3277,53.6591 96.3037,53.6752 96.2769,53.6846 96.2582,53.7193 96.198,53.7608 96.1177,53.8116 96.0656,53.8517 96.0455,53.8705 96.0094,53.8839 95.9867,53.9079 95.9559,53.9173 95.9078,53.9293 95.8944,53.94 95.9024,53.9614 95.9131,53.9855 95.9211,53.9868 95.9265,54.0002 95.9091,54.023 95.8904,54.0337 95.8583,54.0337 95.8382,54.0283 95.8195,54.0363 95.782,54.0537 95.778,54.0751 95.7606,54.1019 95.7339,54.1032 95.6951,54.1072 95.6804,54.13 95.6563,54.142 95.6108,54.154 95.5292,54.1701 95.5145,54.1754 95.4998,54.2102 95.4984,54.2383 95.5038,54.2731 95.5118,54.2864 95.5386,54.2904 95.5466,54.2985 95.5573,54.3266 95.5907,54.3399 95.6108,54.3426 95.6242,54.3533 95.6456,54.3613 95.679,54.3546 95.695,54.3373 95.7258,54.3279 95.7606,54.3346 95.7887,54.3587 95.8101,54.3801 95.8301,54.3867 95.8234,54.3961 95.8181,54.4162 95.8422,54.4255 95.8636,54.4389 95.8582,54.4576 95.8582,54.4697 95.8729,54.4683 95.8836,54.4683 95.8743,54.4884 95.8863,54.5085 95.9077,54.5152 95.9371,54.5045 95.9666,54.4938 96.0,54.4897 96.0589,54.4804 96.1043,54.4884 96.1391,54.4938 96.1578,54.5018 96.1592,54.5111 96.1832,54.5071 96.2207,54.4884 96.2622,54.471 96.3076,54.4563 96.3625,54.4456 96.3959,54.4456 96.4146,54.455 96.4173,54.4724 96.3946,54.5138 96.4053,54.5339 96.4173,54.5473 96.424,54.5713 96.432,54.6021 96.4146,54.6181 96.4039,54.6288 96.4106,54.6422 96.4293,54.6556 96.4467,54.677 96.4748,54.6971 96.4869,54.7251 96.5203,54.7439 96.5229,54.7667 96.5403,54.7774 96.5537,54.8081 96.547,54.8402 96.5604,54.8643 96.535,54.8924 96.4975,54.9165 96.4627,54.9459 96.4413,54.9526 96.4266,54.9566 96.4226,54.962 96.428,54.966 96.4574,54.97 96.4895,54.9834 96.4948,54.9954 96.5203,55.0088 96.5336,55.0235 96.5216,55.0342 96.5082,55.0342 96.4962,55.0395 96.5069,55.0502 96.5256,55.0649 96.5256,55.085 96.5403,55.1104 96.547,55.1305 96.5457,55.1613 96.539,55.176 96.547,55.1947 96.5697,55.2094 96.6059,55.2188 96.6513,55.2281 96.6968,55.2362 96.7276,55.2415 96.7557,55.2535 96.7664,55.2669 96.7543,55.2937 96.741,55.3044 96.7289,55.3298 96.7222,55.3579 96.6955,55.3686 96.6861,55.3873 96.6928,55.406 96.6969,55.4261 96.6781,55.4448 96.6808,55.4729 96.6648,55.4916 96.6688,55.5077 96.6915,55.517 96.6995,55.5384 96.6715,55.5545 96.6353,55.5705 96.6046,55.5826 96.5925,55.5959 96.6153,55.608 96.6407,55.6187 96.6648,55.6334 96.6634,55.6441 96.6353,55.6575 96.6166,55.6682 96.6006,55.6882 96.6166,55.7003 96.6166,55.7069 96.626,55.723 96.6487,55.7297 96.6768,55.739 96.6902,55.7484 96.6942,55.7645 96.7236,55.7645 96.7423,55.7752 96.761,55.7912 96.7864,55.7912 96.8145,55.7979 96.8252,55.9624 96.9055,55.9665 96.9697,56.0547 97.1181,56.0266 97.1275,56.0173 97.1583,56.0052 97.185,55.9932 97.2024,55.9892 97.2265,56.0106 97.2559,56.028 97.276,56.0333 97.2746,56.0842 97.3509,56.1256 97.4311,56.1296 97.4338,56.2233 97.4017,56.2313 97.4057,56.2447 97.4004,56.3276 97.7268,56.333 97.7227,56.4988 97.5903,56.5002 97.6077,56.5216 97.6197,56.5537 97.6024,56.567 97.5997,56.5831 97.6211,56.5938 97.6291,56.6085 97.5997,56.6312 97.5983,56.67 97.6144,56.6994 97.6171,56.7262 97.5689,56.7409 97.502,56.7489 97.4378,56.7409 97.3991,56.7315 97.3509,56.7463 97.3108,56.7743 97.3161,56.8078 97.3415,56.8386 97.3829,56.8493 97.4364,56.8667 97.4632,56.8814 97.4618,56.9001 97.407,56.9028 97.3588,56.9001 97.3214,56.9041 97.2987,56.9229 97.2719,56.9496 97.2452,56.9657 97.185,56.9817 97.5314,57.4485 97.7453,57.7308 97.7614,57.7468 97.8002,57.7562 97.8403,57.7629 97.8778,57.7629 97.9286,57.7615 97.9861,57.7589 98.0784,57.7495 98.1827,57.7455 98.263,57.7388 98.3419,57.7334 98.4021,57.7308 98.4676,57.7161 98.5452,57.7215 98.576,57.7322 98.6148,57.7308 98.6241,57.7281 98.6241,57.7027 98.675,57.68 98.7606,57.6613 98.8034,57.6639 98.8261,57.6639 98.8408,57.6813 98.8876,57.692 98.9277,57.7121 98.9504,57.7134 98.9919,57.7054 99.0293,57.7014 99.0721,57.7121 99.1149,57.7295 99.1684,57.7348 99.2139,57.7362 99.2487,57.7322 99.2714,57.7402 99.2781,57.7629 99.3035,57.7857 99.3156,57.803 99.3236,57.8352 99.3383,57.8552 99.3423,57.8753 99.3597,57.882 99.3784,57.8806 99.3932,57.8967 99.4186,57.9127 99.4547,57.9355 99.4734,57.9595 99.4747,57.9769 99.4614,57.9809 99.4614,57.993 99.4801,57.997 99.5055,58.0064 99.5216,58.0184 99.5483,58.0251 99.5751,58.0251 99.6072,58.0144 99.6326,57.9997 99.65,57.997 99.6767,58.0064 99.6981,58.0117 99.7369,58.013 99.7757,58.0144 99.8105,58.0224 99.8573,58.0197 99.8961,58.0144 99.9188,58.005 99.9255,57.9823 99.9188,57.9542 99.9188,57.9234 99.9215,57.898 99.9322,57.8833 99.9549,57.8646 99.967,57.8378 99.967,57.8151 99.9736,57.803 99.9937,57.7937 100.0231,57.783 100.0566,57.7776 100.0766,57.7589 100.1101,57.7522 100.1248,57.7361 100.1141,57.7107 100.1181,57.6987 100.1515,57.7 100.1756,57.6893 100.205,57.6786 100.2211,57.6706 100.193,57.6519 100.1716,57.6278 100.1917,57.6211 100.2104,57.6131 100.1997,57.593 100.189,57.5797 100.2104,57.569 100.2385,57.5395 100.2465,57.5168 100.2478,57.4874 100.2612,57.482 100.3669,57.4526 100.4297,57.4312 100.4926,57.4138 100.5153,57.3991 100.5314,57.3804 100.5501,57.3576 100.5769,57.3442 100.5956,57.3429 100.6103,57.3549 100.6437,57.359 100.6585,57.379 100.6678,57.3964 100.7133,57.4058 100.736,57.3924 100.7588,57.3884 100.7828,57.4044 100.8029,57.4325 100.8096,57.4392 100.7895,57.4459 100.7828,57.4579 100.7962,57.474 100.8016,57.4954 100.7869,57.5061 100.7507,57.5221 100.7093,57.5409 100.6772,57.5636 100.6638,57.581 100.6678,57.597 100.6531,57.6037 100.6424,57.6091 100.6464,57.6198 100.6571,57.6238 100.6692,57.6251 100.6785,57.6332 100.6852,57.6599 100.6999,57.6813 100.7186,57.6933 100.7307,57.7014 100.736,57.7134 100.7133,57.7214 100.6906,57.7308 100.6825,57.7522 100.6892,57.7723 100.6959,57.7856 100.6718,57.8044 100.6517,57.8231 100.6731,57.8271 100.7159,57.8258 100.7587,57.8084 100.7989,57.8071 100.8417,57.8205 100.8804,57.8392 100.8751,57.8485 100.8831,57.8699 100.9059,57.8766 100.9219,57.8833 100.9433,57.8994 100.9781,57.9168 100.9821,57.9382 100.9968,57.9542 101.0035,57.9823 101.0035,58.001 100.962,58.0197 100.95,58.0492 100.9834,58.0679 101.0289,58.0773 101.069,58.088 101.0931,58.108 101.1092,58.1455 101.1426,58.1602 101.2041,58.1602 101.2737,58.1629 101.3151,58.1575 101.3646,58.1589 101.3874,58.1936 101.4195,58.2338 101.4556,58.2552 101.485,58.2886 101.4957,58.318 101.5238,58.3474 101.6072,58.3687 101.6996,58.3906 101.8334,58.4173 101.9355,58.4392 102.0157,58.4805 102.0984,58.534 102.1762,58.5948 102.2734,58.6337 102.3366,58.7091 102.3172,58.782 102.305,58.8209 102.2758,58.8428 102.2224,58.872 102.2126,58.8963 102.2224,58.9352 102.1956,58.9862 102.2491,59.0519 102.3366,59.0956 102.4193,59.1151 102.5044,59.12 102.5992,59.1321 102.6794,59.1516 102.7694,59.205 102.835,59.2294 102.9201,59.2196 103.0004,59.205 103.0903,59.1953 103.1414,59.1613 103.1195,59.1078 103.0393,59.0883 103.0782,59.0397 103.1462,58.9765 103.2265,58.9303 103.3116,58.8987 103.365,58.8817 103.3723,58.8501 103.4039,58.838 103.455,58.8331 103.5061,58.8331 103.5595,58.8258 103.6398,58.8112 103.6787,58.8185 103.7176,58.8088 103.7078,58.7821 103.7443,58.7675 103.7443,58.7383 103.7127,58.7091 103.6641,58.6897 103.6762,58.6556 103.7297,58.6483 103.7978,58.6532 103.8562,58.6508 103.8926,58.6775 103.9267,58.6824 103.9704,58.6751 104.0166,58.6702 104.0215,58.6532 104.0409,58.6289 104.0847,58.6362 104.1358,58.6337 104.1892,58.6435 104.2427,58.641 104.2452,58.5876 104.2816,58.5657 104.3011,58.5438 104.3521,58.5632 104.3862,58.5754 104.4226,58.5584 104.4859,58.5876 104.5564,58.5997 104.622,58.5997 104.6682,58.6265 104.7217,58.6654 104.6949,58.6897 104.6706,58.7067 104.6512,58.7334 104.6123,58.7432 104.6098,58.7723 104.6658,58.8161 104.6998,58.838 104.7557,58.8501 104.8043,58.9061 104.8797,58.9158 104.9332,58.9328 104.9988,58.9863 105.084,59.0009 105.1496,59.0009 105.1983,59.0276 105.1958,59.0471 105.1594,59.0714 105.1472,59.103 105.1715,59.1443 105.1399,59.1929 105.1083,59.2124 105.0451,59.2343 105.0305,59.2561 105.0962,59.295 105.0573,59.3339 105.0767,59.368 105.0305,59.4117 104.96,59.4044 104.9187,59.4044 104.8044,59.4093 104.7436,59.4506 104.6974,59.5017 104.6999,59.5406 104.6488,59.5698 104.6537,59.6208 104.6464,59.6476 104.6926,59.6719 104.7606,59.6913 104.8141,59.7011 104.8773,59.7229 104.8749,59.7667 104.9089,59.7813 105.0013,59.7935 105.084,59.7935 105.1472,59.7862 105.1885,59.774 105.2663,59.7691 105.3271,59.7764 105.315,59.8153 105.2761,59.8445 105.3052,59.9004 105.3393,59.9393 105.3101,59.9952 105.2688,60.039 105.2809,60.0876 105.3271,60.1241 105.3247,60.2019 105.2931,60.2117 105.225,60.2019 105.1934,60.2117 105.1545,60.2311 105.1035,60.236 105.0743,60.2214 105.0305,60.2141 104.9284,60.2262 104.8603,60.2262 104.7996,60.236 104.7145,60.253 104.6975,60.27 104.6245,60.3016 104.5662,60.3308 104.5175,60.3381 104.4932,60.3478 104.5127,60.3673 104.4884,60.3964 104.4689,60.4523 104.4106,60.484 104.4057,60.5253 104.4008,60.5545 104.3644,60.5763 104.4081,60.6517 104.4397,60.6785 104.4397,60.7052 104.3717,60.7149 104.2987,60.7733 104.3328,60.8 104.4081,60.8025 104.4762,60.8268 104.4543,60.8584 104.413,60.8803 104.4179,60.8973 104.4519,60.907 104.4495,60.9313 104.464,60.9556 104.4859,60.9775 104.4446,60.997 104.4908,61.0164 104.5467,61.0261 104.588,61.0553 104.6269,61.0772 104.6537,61.0966 104.6902,61.1282 104.768,61.1161 104.8433,61.1161 104.8263,61.1793 104.7922,61.2036 104.7655,61.2182 104.7582,61.2644 104.7023,61.2717 104.6512,61.2765 104.6269,61.2863 104.678,61.2935 104.7242,61.2984 104.7558,61.3179 104.8044,61.3397 104.8725,61.3495 104.9138,61.3495 104.9649,61.3568 105.0451,61.3568 105.1156,61.3592 105.118,61.3932 105.1278,61.4248 105.1837,61.437 105.208,61.4662 105.2469,61.4735 105.3198,61.4905 105.3782,61.5002 105.4098,61.5124 105.4292,61.5488 105.4779,61.5683 105.5459,61.5853 105.5946,61.5853 105.6237,61.5658 105.6699,61.5683 105.7186,61.6096 105.7696,61.6218 105.7891,61.6461 105.7793,61.6996 105.738,61.7312 105.7599,61.7968 105.828,61.8114 105.8887,61.8479 105.9179,61.8722 105.9884,61.8941 106.0346,61.9354 106.1124,61.9427 106.1781,61.9646 106.2486,61.9694 106.2364,61.9913 106.251,62.0205 106.2218,62.0472 106.251,62.0764 106.2704,62.1177 106.285,62.1542 106.2875,62.1883 106.2097,62.1834 106.1635,62.2077 106.2145,62.232 106.2388,62.2612 106.3045,62.2491 106.324,62.271 106.2729,62.2904 106.2656,62.3172 106.3094,62.3293 106.3483,62.3196 106.3896,62.322 106.4334,62.3536 106.4917,62.3828 106.5428,62.4144 106.5428,62.4533 106.4966,62.4703 106.5258,62.5092 106.5477,62.5189 106.6571,62.5433 106.4237,62.5943 106.3896,62.6138 106.3337,62.6162 106.3094,62.6308 106.3556,62.6551 106.3605,62.6964 106.3143,62.7183 106.2948,62.7864 106.2049,62.801 106.1587,62.818 106.1052,62.835 106.0614,62.8374 106.0565,62.8691 106.0468,62.8982 105.9933,62.9007 106.0274,62.9201 105.9909,62.9541 105.9715,62.9906 105.9763,63.0028 106.0444,63.0101 106.1198,63.0052 106.1854,63.0149 106.2486,63.0514 106.2267,63.0854 106.2705,63.1268 106.2267,63.1511 106.2049,63.1705 106.217,63.2167 106.2583,63.2386 106.3021,63.2629 106.341,63.2653 106.358,63.2483 106.5088,63.2337 106.5355,63.2678 106.5623,63.2994 106.5841,63.314 106.5184,63.3335 106.4479,63.3724 106.4261,63.4016 106.3823,63.4113 106.3555,63.4308 106.3726,63.4648 106.4163,63.4769 106.4479,63.4915 106.4698,63.511 106.5184,63.5426 106.5355,63.5791 106.499,63.6034 106.4722,63.6277 106.5136,63.6593 106.5282,63.6885 106.5744,63.7322 106.6327,63.776 106.623,63.8076 106.5744,63.8416 106.5257,63.8732 106.55,63.917 106.6254,63.9316 106.674,63.9219 106.73,63.917 106.8102,63.8805 106.8758,63.8416 106.9439,63.8295 107.0071,63.8732 107.046,63.8951 107.1554,63.8903 107.187,63.8416 107.2089,63.8076 107.2867,63.8003 107.3232,63.81 107.3718,63.8003 107.4204,63.8027 107.4545,63.8392 107.4666,63.8781 107.4909,63.917 107.5615,63.9316 107.6344,63.9462 107.7073,63.9267 107.7778,63.9389 107.8386,63.9365 107.8994,63.9292 107.9748,63.9267 108.0477,63.9389 108.0915,63.9316 108.1206,63.9437 108.1498,63.9583 108.1547,63.9972 108.1182,64.0507 108.0915,64.0969 108.0671,64.148 108.0234,64.1723 107.965,64.1771 107.9091,64.1723 107.8678,64.1601 107.8448,64.1123 107.7828,64.114 107.7101,64.1194 107.6764,64.13 107.6268,64.1601 107.556,64.1761 107.5063,64.1902 107.478,64.2204 107.3805,64.2239 107.2742,64.1991 107.1502,64.1725 107.0545,64.1831 107.0067,64.2062 107.0191,64.2416 106.9943,64.254 106.9092,64.2593 106.8578,64.2593 106.8118,64.2664 106.7941,64.2823 106.7515,64.2859 106.7001,64.2983 106.6381,64.3195 106.5921,64.3195 106.5035,64.3107 106.4468,64.3213 106.4184,64.3585 106.3901,64.3975 106.3475,64.4117 106.3068,64.4152 106.2855,64.401 106.2997,64.3745 106.3156,64.355 106.2873,64.3443 106.2058,64.339 106.1154,64.3408 106.0605,64.3266 106.0003,64.3266 105.9666,64.3178 105.9187,64.2947 105.8567,64.3071 105.7876,64.3248 105.8089,64.3479 105.8319,64.3479 105.8674,64.3603 105.8638,64.3886 105.7912,64.3975 105.7664,64.4134 105.7168,64.4134 105.6849,64.3975 105.6547,64.3798 105.6228,64.3869 105.5963,64.3886 105.536,64.3691 105.5094,64.394 105.5218,64.4081 105.5165,64.4365 105.4581,64.4684 105.4421,64.4701 105.4403,64.4896 105.4651,64.5162 105.4244,64.5499 105.4244,64.5605 105.4421,64.5676 105.4669,64.5641 105.4953,64.5517 105.5661,64.5428 105.6034,64.5729 105.5591,64.603 105.5555,64.6686 105.5768,64.7005 105.6228,64.7182 105.6636,64.7129 105.6813,64.7076 105.7256,64.72 105.7185,64.7342 105.6795,64.7448 105.6725,64.7767 105.6618,64.7944 105.7203,64.805 105.761,64.805 105.7894,64.7838 105.8213,64.7625 105.9081,64.7501 105.9436,64.7519 105.9241,64.7785 105.8479,64.7962 105.8142,64.8476 105.7522,64.8777 105.6902,64.9061 105.731,64.945 105.816,64.9645 105.8975,64.9946 105.9152,65.0301 106.0092,65.0372 106.0499,65.0797 106.1137,65.1098 106.158,65.1134 106.22,65.0992 106.236,65.1045 106.2253,65.1134 106.1917,65.1222 106.1509,65.1559 106.1509,65.186 106.1722,65.209 106.243,65.2392 106.2714,65.264 106.2767,65.2781 106.3263,65.2781 106.3369,65.2905 106.3883,65.287 106.4663,65.2764 106.4857,65.2817 106.5035,65.2711 106.5637,65.2746 106.5531,65.2941 106.585,65.3047 106.5867,65.3278 106.5974,65.3419 106.686,65.3986 106.6842,65.4057 106.5513,65.4341 106.4166,65.45 106.4166,65.466 106.4255,65.4731 106.4326,65.489 106.4184,65.5032 106.344,65.5085 106.344,65.512 106.3617,65.5209 106.3723,65.528 106.3635,65.5315 106.344,65.5351 106.2962,65.5386 106.2377,65.5528 106.181,65.5546 106.142,65.5652 106.1349,65.59 106.1367,65.6059 106.1597,65.6148 106.1828,65.6343 106.1898,65.6467 106.1721,65.6662 106.1721,65.6786 106.1792,65.691 106.1952,65.7069 106.1704,65.73 106.1881,65.7371 106.2041,65.7477 106.2041,65.7637 106.1952,65.7743 106.2023,65.7814 106.2147,65.792 106.2023,65.8097 106.1864,65.8186 106.1899,65.8416 106.2094,65.8523 106.2005,65.87 106.1917,65.8859 106.2094,65.9054 106.1881,65.9249 106.1722,65.9462 106.1421,65.9621 106.1367,65.9816 106.1031,65.9993 106.0783,66.0153 106.0783,66.0419 106.0712,66.0489 106.0464,66.0578 106.0251,66.0507 105.979,66.0507 105.9188,66.0543 105.871,66.0649 105.8426,66.0844 105.8373,66.1074 105.8462,66.1322 105.8515,66.1429 105.8656,66.1553 105.8568,66.1641 105.8444,66.173 105.8515,66.1854 105.8355,66.196 105.8426,66.2155 105.8178,66.2279 105.8202,66.2528 105.8217,66.2781 105.8549,66.2997 105.8592,66.3106 105.9054,66.3344 105.9552,66.3358 106.0267,66.3611 106.0462,66.3748 106.0454,66.3813 106.0108,66.4037 106.0166,66.4116 106.0317,66.4261 106.031,66.4499 106.013,66.4636 105.9754,66.4751 105.961,66.4809 105.9624,66.4975 105.9646,66.5242 105.948,66.5603 105.974,66.5878 105.9776,66.6 105.9697,66.6037 105.8686,66.6231 105.8636,66.6419 105.8571,66.6592 105.8708,66.6643 105.9184,66.6831 105.9163,66.6982 105.8953,66.7062 105.8693,66.7098 105.839,66.7033 105.7957,66.6975 105.7575,66.6859 105.7315,66.6888 105.7105,66.6961 105.712,66.7119 105.7531,66.7336 105.7871,66.7524 105.8,66.7697 105.795,66.7899 105.7784,66.7986 105.7502,66.8022 105.7178,66.8022 105.6759,66.8036 105.6225,66.8122 105.5742,66.8216 105.5525,66.8396 105.5316,66.8497 105.4883,66.8404 105.4233,66.8368 105.3482,66.8519 105.2919,66.8851 105.2471,66.9104 105.2399,66.9183 105.2804,66.9241 105.3446,66.9212 105.4305,66.9241 105.5179,66.9335 105.6175,66.9443 105.6911,66.9638 105.7416,67.0129 105.764,67.0641 105.8406,67.0822 105.9286,67.0822 105.9539,67.0844 106.0044,67.1024 106.0427,67.1111 106.13,67.1674 106.2239,67.1861 106.3091,67.1717 106.3611,67.1443 106.3813,67.1428 106.4051,67.1508 106.4549,67.2006 106.5141,67.2367 106.5242,67.2511 106.5264,67.2742 106.5257,67.3118 106.5279,67.3298 106.538,67.3565 106.5401,67.3948 106.5445,67.4532 106.551,67.5355 106.551,67.5788 106.564,67.6106 106.5849,67.6951 106.595,67.7521 106.6008,67.8142 106.6008,67.908 106.6073,67.965 106.6152,68.0307 106.6093,68.1187 106.6079,68.1556 106.5963,68.2205 106.5992,68.2783 106.6122,68.3339 106.6166,68.4126 106.621,68.5143 106.6145,68.6486 106.6116,68.7323 106.6123,68.7554 106.6051,68.7677 106.4319,68.8918 105.9771,69.216 105.8522,69.3041 105.8573,69.3099 105.8573,69.3186 105.8797,69.3279 105.9879,69.3503 106.0168,69.364 106.024,69.3944 106.0984,69.4398 106.1626,69.4694 106.2139,69.4673 106.2745,69.442 106.2854,69.4305 106.2998,69.4196 106.3344,69.416 106.3742,69.4247 106.4449,69.424 106.5207,69.4139 106.5481,69.4139 106.5814,69.4247 106.629,69.4326 106.6636,69.4348 106.7495,69.4601 106.8239,69.4824 106.8586,69.4911 106.943,69.5012 107.0578,69.5185 107.1827,69.5337 107.2895,69.5554 107.3711,69.5683 107.4678,69.5828 107.5444,69.5842 107.6093,69.5727 107.6591,69.5842 107.7357,69.6066 107.74,69.6124 107.7328,69.6405 107.7515,69.6658 107.8288,69.7055 107.8735,69.7279 107.9233,69.7394 107.9436,69.7524 108.0064,69.7567 108.1154,69.751 108.1818,69.7539 108.2367,69.7495 108.2995,69.7387 108.332,69.7365 108.4114,69.7344 108.4597,69.7401 108.5319,69.7423 108.6027,69.7394 108.6135,69.7315 108.6417,69.7019 108.6554,69.6903 108.6814,69.6838 108.7326,69.6759 108.8698,69.6594 108.9217,69.6673 108.9867,69.6839 109.0423,69.7251 109.082,69.7366 109.108,69.7691 109.1383,69.7922 109.1001,69.8124 109.1029,69.8268 109.1159,69.8413 109.1383,69.8557 109.1665,69.8868 109.2249,69.9026 109.2524,69.9134 109.2625,69.9365 109.2625,69.9445 109.2177,69.9438 109.1708,69.9495 109.1174,69.9683 109.0957,69.9842 109.0986,70.0022 109.1051,70.0102 109.1029,70.0188 109.0704,70.0427 109.0387,70.0658 109.0264,70.0752 109.0243,70.0867 109.0365,70.1156 109.0531,70.125 109.0712,70.1293 109.1123,70.1279 109.139,70.1286 109.1896,70.1373 109.2524,70.1517 109.3036,70.1705 109.3325,70.1986 109.3513,70.2174 109.3505,70.2275 109.3491,70.2333 109.3015,70.2542 109.3368,70.2751 109.3621,70.286 109.3946,70.2845 109.4718,70.2881 109.5649,70.3084 109.6631,70.3033 109.6783,70.3033 109.7368,70.3185 109.7591,70.3163 109.814,70.3113 109.8804,70.3228 109.988,70.317 110.019,70.3351 110.0226,70.351 109.9721,70.3647 109.9078,70.3705 109.8595,70.3798 109.8551,70.3849 109.8653,70.4044 109.866,70.4239 109.8595,70.4333 109.8162,70.4455 109.8089,70.4499 109.8082,70.4578 109.879,70.4542 109.8862,70.4643 109.8689,70.4824 109.8616,70.5119 109.8421,70.5322 109.845,70.5351 109.8991,70.5517 109.9345,70.5698 109.9951,70.5705 110.0095,70.577 110.0449,70.6058 110.1424,70.6051 110.2326,70.616 110.2362,70.6275 110.2283,70.6578 110.2232,70.6672 110.2355,70.686 110.2694,70.6983 110.3322,70.7047 110.3431,70.704 110.4022,70.6961 110.4289,70.7054 110.4412,70.7191 110.5213,70.7162 110.5235,70.7047 110.5711,70.6982 110.6,70.6953 110.6238,70.7018 110.6339,70.7169 110.6679,70.722 110.7032,70.7328 110.7256,70.7437 110.7372,70.7343 110.7725,70.7429 110.8238,70.7509 110.8974,70.7516 110.9573,70.7523 110.9768,70.7538 111.0605,70.7531 111.0894,70.7567 111.1103,70.7668 111.1168,70.782 111.1276,70.787 111.132,70.7928 111.1746,70.8181 111.1847,70.8376 111.22,70.8455 111.2352,70.8368 111.503,70.865 111.5861,70.8736 111.6878,70.8808 111.7174,70.8895 111.7427,70.9047 111.7579,70.9364 111.7781,70.9552 111.807,70.9617 111.8445,70.9602 111.8755,70.9523 111.8871,70.94 111.9059,70.9278 111.9145,70.9119 111.9456,70.9018 111.9939,70.9039 112.0408,70.9321 112.082,70.9559 112.1116,70.966 112.1939,70.9624 112.2214,70.9769 112.2668,70.9942 112.3051,71.0007 112.3167,71.0079 112.3087,71.0166 112.2632,71.0418 112.2416,71.0555 112.2409,71.0635 112.2531,71.0722 112.3203,71.0851 112.4004,71.1025 112.4249,71.1119 112.4372,71.1371 112.4452,71.1451 112.4379,71.1487 112.4069,71.1559 112.386,71.1617 112.3795,71.171 112.373,71.1833 112.3592,71.1891 112.3369,71.1884 112.3159,71.184 112.2488,71.1689 112.2243,71.1674 112.2185,71.1754 112.2185,71.1783 112.2033,71.1855 112.1679,71.1927 112.1384,71.1985 112.134,71.2086 112.0806,71.2317 112.0214,71.2504 111.9182,71.2742 111.8171,71.2945 111.7312,71.3082 111.7319,71.3226 111.7305,71.5355 111.7341,71.6113 111.732,71.786 111.732,72.0127 111.7349,72.0286 111.732,72.0343 111.6973,72.0293 111.6208,72.0286 111.5551,72.0315 111.4959,72.0452 111.4779,72.0567 111.4764,72.0654 111.4663,72.0777 111.4605,72.0885 111.4598,72.1029 111.4642,72.1072 111.454,72.1109 111.4403,72.108 111.4021,72.0993 111.3653,72.1065 111.345,72.1145 111.3739,72.1398 111.3876,72.1578 111.3811,72.1758 111.366,72.186 111.3032,72.217 111.2909,72.2213 111.2678,72.2184 111.2202,72.2156 111.1545,72.2156 111.1018,72.2163 111.0758,72.217 111.0613,72.2206 111.0556,72.2343 111.0447,72.2372 111.0231,72.2358 111.0014,72.2336 110.9596,72.243 110.9271,72.2545 110.8795,72.2604 110.8333,72.2647 110.8044,72.2741 110.7965,72.2806 110.7965,72.3051 110.8384,72.3217 110.8947,72.3326 110.917,72.3427 110.9286,72.3593 110.9827,72.3694 111.0333,72.3831 111.0398,72.4047 111.0325,72.4141 110.9936,72.425 110.9849,72.4343 110.9517,72.4459 110.8853,72.4538 110.8138,72.4654 110.7539,72.4748 110.7286,72.4769 110.6896,72.4704 110.624,72.4762 110.6102,72.482 110.6355,72.4899 110.6348,72.495 110.616,72.5036 110.6153,72.5065 110.6391,72.5116 110.6536,72.5195 110.6601,72.5246 110.6492,72.5318 110.6182,72.534 110.5821,72.5369 110.4984,72.5397 110.4493,72.5448 110.4268,72.5578 110.4088,72.5781 110.3944,72.6149 110.3741,72.651 110.3547,72.6842 110.3561,72.6964 110.3713,72.7008 110.4319,72.7174 110.4499,72.7282 110.4427,72.7398 110.4081,72.747 110.3792,72.7528 110.3734,72.7679 110.3843,72.7722 110.3871,72.7787 110.3727,72.7852 110.3698,72.7953 110.385,72.8033 110.4225,72.8069 110.4803,72.8112 110.5192,72.8271 110.5525,72.8372 110.5806,72.8423 110.5922,72.8473 110.5929,72.8531 110.5842,72.8538 110.5662,72.8509 110.5423,72.8509 110.5344,72.8545 110.5351,72.8596 110.5207,72.8798 110.494,72.8892 110.5005,72.9 110.5258,72.9094 110.5691,72.9173 110.6175,72.9231 110.6485,72.9274 110.6622,72.9368 110.6521,72.9484 110.6276,72.9599 110.5958,72.97 110.5777,72.978 110.572,72.9888 110.5691,73.0126 110.5561,73.0278 110.5222,73.0437 110.5294,73.0588 110.5287,73.0689 110.5034,73.0761 110.4572,73.0805 110.4182,73.0819 110.3648,73.0805 110.3013,73.079 110.2608,73.0805 110.2176,73.0812 110.1743,73.0827 110.1483,73.0877 110.1403,73.0964 110.1475,73.1079 110.1605,73.1115 110.1952,73.1188 110.258,73.1361 110.3193,73.1534 110.3461,73.1678 110.3468,73.1794 110.3309,73.1895 110.297,73.1989 110.2912,73.2104 110.2811,73.2205 110.2327,73.2292 110.1916,73.2343 110.1504,73.2343 110.1049,73.2429 110.058,73.2523 110.0125,73.2617 109.975,73.2747 109.9368,73.2783 109.9035,73.2834 109.8906,73.2935 109.8848,73.3014 109.9411,73.3007 110.0501,73.3 110.1216,73.3 110.1937,73.3043 110.2638,73.305 110.3121,73.3151 110.3627,73.3353 110.4002,73.3555 110.4262,73.3794 110.4623,73.3988 110.5237,73.4089 110.5244,73.414 110.5273,73.4277 110.5475,73.445 110.5598,73.458 110.5764,73.4667 110.6327,73.4703 110.6861,73.4667 110.7409,73.4681 110.7915,73.4761 110.829,73.4891 110.8435,73.5006 110.8536,73.5122 110.8716,73.5208 110.8651,73.5353 110.8283,73.5512 110.7958,73.5598 110.7207,73.5793 110.6745,73.588 110.6442,73.5901 110.6348,73.5966 110.6299,73.5969 110.632,73.5943 110.5956,73.5801 110.5695,73.5743 110.3524,73.5479 110.2596,73.5468 110.1492,73.5042 110.1173,73.4979 109.9774,73.482 109.8689,73.4385 109.8288,73.409 109.5999,73.3679 109.5415,73.36 109.4802,73.3546 109.3957,73.3486 109.3292,73.3465 109.3044,73.3468 109.2777,73.3487 109.2492,73.3516 109.2247,73.355 109.1693,73.3719 109.1376,73.385 109.1,73.3996 108.9414,73.4455 108.9066,73.4401 108.9126,73.4074 108.9701,73.4006 109.0119,73.393 109.0496,73.3846 109.1358,73.3446 109.1537,73.3157 109.0842,73.3254 109.0608,73.339 109.0187,73.3504 108.9822,73.3594 108.9323,73.3489 108.9667,73.3221 108.9766,73.3015 108.9201,73.284 108.8837,73.2775 108.8186,73.2671 108.5844,73.2454 108.5159,73.2441 108.4533,73.2395 108.3979,73.2302 108.3467,73.2189 108.3087,73.2138 108.2233,73.2084 108.0947,73.201 108.002,73.1999 107.9717,73.1969 107.9391,73.179 107.9669,73.1698 107.9942,73.1744 108.0682,73.1725 108.1012,73.1674 108.1246,73.1537 108.1096,73.1284 108.0867,73.1212 108.0641,73.1207 107.9961,73.119 107.972,73.1195 107.9303,73.1271 107.8795,73.1401 107.8265,73.1462 107.8035,73.1458 107.7662,73.1404 107.732,73.1326 107.6871,73.1182 107.6424,73.1031 107.6066,73.0898 107.5655,73.08 107.5277,73.0743 107.4633,73.0697 107.4182,73.0684 107.3446,73.0697 107.1849,73.0669 107.1233,73.0618 107.0781,73.0606 107.0534,73.0608 107.0271,73.0626 106.9989,73.0652 106.9497,73.0716 106.8931,73.0766 106.7909,73.0809 106.7686,73.0801 106.7201,73.0744 106.6869,73.0596 106.6485,73.0481 106.5305,73.0416 106.506,73.0417 106.4794,73.0433 106.4057,73.05 106.2327,73.0717 106.1621,73.0817 106.1202,73.0891 106.0824,73.0904 105.9309,73.0345 105.9122,72.9967 105.9231,72.9534 105.9498,72.885 105.9679,72.8741 105.9916,72.8677 106.0247,72.8638 105.989,72.8585 105.9464,72.8563 105.8774,72.855 105.8048,72.8561 105.7713,72.8551 105.7462,72.8494 105.721,72.8311 105.7025,72.8039 105.5778,72.7773 105.4459,72.734 105.3791,72.7066 105.2382,72.6684 105.2019,72.6625 105.1819,72.6606 105.1296,72.6633 104.9576,72.6672 104.921,72.6894 105.0726,72.7168 105.3347,72.7912 105.4156,72.8261 105.5809,72.9068 105.588,72.9771 105.5901,72.9997 105.6171,73.0109 105.6644,73.0238 105.7365,73.0429 105.7614,73.0537 105.7898,73.1036 105.7864,73.1274 105.7838,73.1582 105.8067,73.1753 105.9343,73.2094 106.0035,73.2191 106.0241,73.2207 106.1685,73.2179 106.3045,73.2117 106.3344,73.2059 106.3631,73.2031 106.3878,73.2029 106.4086,73.2046 106.5411,73.2431 106.5589,73.258 106.6026,73.3232 106.7846,73.4006 106.8927,73.4509 106.8366,73.4747 106.872,73.512 106.8946,73.5179 107.0615,73.527 107.3539,73.5283 107.4136,73.5262 107.4401,73.5171 107.4735,73.5088 107.5023,73.5103 107.5789,73.5349 107.6113,73.5436 107.644,73.5519 107.6871,73.5614 107.7169,73.5652 107.7631,73.5663 107.7883,73.5657 107.8287,73.5546 107.9195,73.5706 107.9602,73.5882 108.0254,73.6167 108.13,73.6528 108.1921,73.6654 108.2193,73.6702 108.271,73.7051 108.3155,73.7444 108.3559,73.7695 108.4602,73.8201 108.4995,73.8388 108.8049,73.9361 108.8475,73.9466 108.9553,73.9615 109.0205,73.966 109.0858,73.9705 109.2465,73.9902 109.4683,74.0465 109.5331,74.0651 109.5656,74.0745 109.6149,74.0955 109.6426,74.1151 109.6668,74.1348 109.6885,74.1961 109.6599,74.2042 109.6342,74.2046 109.5611,74.1904 109.5209,74.1851 109.4771,74.1821 109.429,74.1812 109.4033,74.182 109.3734,74.1848 109.3206,74.1981 109.297,74.2062 109.3369,74.2183 109.4639,74.2233 109.5016,74.2181 109.6327,74.224 109.6653,74.2332 109.6808,74.2472 109.7008,74.261 109.7274,74.2673 109.7476,74.2696 109.7714,74.2702 109.7998,74.2675 109.8511,74.2614 109.8988,74.2621 109.9273,74.2668 110.0879,74.3168 110.1064,74.3389 110.0554,74.3713 110.001,74.3769 110.0423,74.3871 110.0627,74.3897 110.0886,74.389 110.1484,74.3832 110.1769,74.3766 110.2133,74.3711 110.2378,74.3716 110.26,74.3731 110.349,74.3856 110.3716,74.3946 110.4047,74.4039 110.52,74.4304 110.5518,74.4336 110.6005,74.4342 110.6601,74.4425 110.7058,74.4519 110.7605,74.4761 110.7328,74.4988 110.9212,74.5251 110.9344,74.532 110.965,74.5437 111.0617,74.5747 111.107,74.5846 111.1786,74.5933 111.2274,74.594 111.2876,74.5875 111.3309,74.5795 111.3875,74.5666 111.439,74.5594 111.4655,74.5587 111.4966,74.5621 111.6096,74.6091 111.7584,74.6811 111.7752,74.6919 111.7946,74.7238 111.7899,74.7479 111.807,74.7617 111.8476,74.7748 111.8862,74.7816 111.9285,74.7863 111.9532,74.7866 111.999,74.7889 112.0201,74.7911 112.2314,74.8146 112.2723,74.8203 112.431,74.8456 112.4504,74.849 112.5673,74.8775 112.592,74.8853 112.7061,74.9631 112.9055,75.0306 113.0385,75.073 113.0893,75.089 113.2693,75.1657 113.3024,75.1827 113.3592,75.259 113.3393,75.2765 113.3048,75.2788 113.2846,75.2754 113.2611,75.2742 113.2248,75.2842 113.2657,75.3031 113.2876,75.3053 113.3349,75.3075 113.3603,75.3076 113.3876,75.3062 113.4081,75.3031 113.4073,75.329 113.3885,75.3659 113.3657,75.3953 113.3398,75.409 113.3173,75.4078 113.289,75.4018 113.2668,75.3998 113.243,75.3986 113.2174,75.3985 113.1928,75.4009 113.0316,75.424 112.9548,75.4655 112.9727,75.484 112.9949,75.508 112.9733,75.5382 112.9394,75.5429 112.9169,75.5407 112.8747,75.5352 112.8544,75.5316 112.6818,75.4936 112.7015,75.4716 112.7229,75.4544 112.7026,75.4405 112.6809,75.4379 112.6569,75.4366 112.6076,75.4352 112.5469,75.4363 112.5195,75.4419 112.4856,75.4787 112.5675,75.5221 112.5584,75.5995 112.5162,75.6239 112.4934,75.6312 112.3748,75.6577 112.3432,75.6608 112.2689,75.6583 112.2024,75.6648 112.0389,75.7403 112.0691,75.7456 112.0968,75.7449 112.239,75.7389 112.2689,75.7371 112.2961,75.7334 112.3375,75.7246 112.3787,75.7159 112.7307,75.6331 112.8219,75.6005 113.2114,75.5602 113.283,75.5517 113.2967,75.5354 113.26,75.5045 113.1947,75.4687 113.1371,75.4486 113.1116,75.4331 113.1992,75.4268 113.223,75.4277 113.2432,75.4311 113.402,75.5007 113.4056,75.538 113.4095,75.5579 113.4487,75.6097 113.4749,75.6285 113.5195,75.655 113.5763,75.7384 113.539,75.803 113.5116,75.8195 113.4865,75.8265 113.461,75.8292 113.3273,75.8166 113.3027,75.8123 113.3062,75.785 113.2331,75.7598 113.2167,75.8133 113.2379,75.8604 113.1947,75.9198 113.1673,75.9234 113.1374,75.9301 113.1211,75.9445 113.1209,75.9988 113.1365,76.0133 113.1489,76.0305 113.0993,76.0661 113.0475,76.0958 112.948,76.15 112.9247,76.1544 112.8989,76.1568 112.8641,76.1536 112.842,76.1464 112.8213,76.143 112.7409,76.1427 112.6161,76.1473 112.6468,76.1136 112.6753,76.1033 112.7122,76.0976 112.7446,76.0943 112.8149,76.0879 112.9129,76.0625 112.9389,76.0358 112.9022,76.0363 112.8742,76.0401 112.8096,76.0461 112.7814,76.0474 112.7282,76.0474 112.6947,76.0434 112.6782,76.0255 112.7253,76.0061 112.7114,75.9705 112.6243,75.949 112.5998,75.9479 112.5394,75.9522 112.5147,75.9509 112.4411,75.9475 112.3853,75.9478 112.4378,75.9597 112.4787,75.9718 112.537,76.0371 112.4737,76.0824 112.4433,76.0885 112.3938,76.0864 112.3731,76.0831 112.3503,76.0807 112.3217,76.0816 112.2892,76.0847 112.2465,76.0996 112.1965,76.1308 112.2419,76.1292 112.2702,76.1195 112.3293,76.1106 112.3709,76.1174 112.4207,76.1664 112.4268,76.2177 112.3417,76.2513 112.2585,76.2721 111.9911,76.3351 111.948,76.3437 111.9189,76.3446 111.7954,76.3077 111.7119,76.2716 111.6828,76.2655 111.5908,76.2562 111.7448,76.3114 111.8725,76.3617 111.7811,76.4014 111.757,76.4054 111.7001,76.4122 111.6763,76.4161 111.6568,76.4208 111.627,76.4306 111.5892,76.4525 111.5368,76.473 111.4495,76.4945 111.3675,76.5052 111.3364,76.507 111.2349,76.502 111.1805,76.5014 111.135,76.51 111.1755,76.552 111.2259,76.5692 111.1811,76.5782 110.9077,76.5978 110.8828,76.5965 110.8105,76.6421 110.786,76.6459 110.7543,76.6477 110.6122,76.6486 110.586,76.6419 110.5163,76.6235 110.421,76.6143 110.3893,76.6163 110.3333,76.6222 110.3147,76.6398 110.2843,76.6494 110.2248,76.6508 110.1739,76.6483 110.0533,76.638 109.9814,76.6316 109.9395,76.6248 109.8523,76.6052 109.8097,76.5914 109.7688,76.5825 109.7202,76.5789 109.5708,76.5884 109.3689,76.6045 109.3075,76.6188 109.2814,76.6275 109.2496,76.629 109.0931,76.6321 108.9509,76.6299 108.8216,76.6155 108.6135,76.6143 108.4853,76.6081 108.3035,76.6041 108.2763,76.6035 108.0774,76.6036 108.0111,76.6104 107.8852,76.6261 107.6905,76.6233 107.6357,76.6222 107.6084,76.6178 107.6017,76.5546 107.6279,76.5477 107.6669,76.5457 107.6882,76.5241 107.6099,76.4576 107.5698,76.4265 107.3739,76.3995 107.3243,76.396 107.2702,76.395 107.2411,76.3954 107.2115,76.3985 107.1662,76.4061 107.1043,76.419 107.0384,76.4227 107.0116,76.4224 106.8149,76.4073 106.7053,76.3926 106.5639,76.3682 106.541,76.3594 106.5213,76.3559 106.4984,76.3583 106.2725,76.3853 106.1454,76.3934 106.0912,76.4032 106.0694,76.4443 106.0682,76.4744 106.0974,76.4869 106.1264,76.493 106.1533,76.4937 106.1852,76.4925 106.219,76.4864 106.2427,76.4762 106.3376,76.4682 106.4826,76.5457 106.6551,76.606 106.7518,76.6461 106.7475,76.6724 106.7657,76.6893 106.8285,76.6935 106.8542,76.6899 106.8838,76.6894 106.9121,76.6965 106.9652,76.7174 107.0314,76.7592 106.9657,76.7736 107.0091,76.7849 107.0577,76.7891 107.1587,76.7957 107.1888,76.8084 107.0881,76.8239 107.0265,76.8436 107.0191,76.8491 107.0327,76.8558 106.9633,76.9054 106.8229,76.9013 106.7236,76.908 106.6749,76.9172 106.5988,76.9321 106.573,76.9357 106.5049,76.9394 106.4746,76.9398 106.3378,76.9169 106.3606,76.9109 106.4388,76.8998 106.4638,76.893 106.4445,76.8875 106.4191,76.8858 106.3636,76.8848 106.3354,76.8865 106.2332,76.9049 106.1804,76.9197 105.9857,76.9445 105.9196,76.9499 105.8868,76.9512 105.8641,76.9483 105.817,76.9308 105.7094,76.902 105.6529,76.8883 105.6123,76.8807 105.4074,76.868 105.1444,76.8661 105.1364,76.9 105.184,76.9145 105.2298,76.9201 105.3259,76.917 105.3562,76.9167 105.412,76.9184 105.4691,76.9241 105.562,76.97 105.6271,77.017 105.6027,77.0307 105.5577,77.0147 105.5315,77.0044 105.4813,76.9974 105.4174,76.9987 105.3818,77.0012 105.3233,77.0009 105.2749,76.9962 105.229,76.9909 105.188,76.9829 105.1423,76.9776 105.0939,76.9727 105.0379,76.9716 104.7005,76.9724 104.6093,76.9729 104.5856,76.9754 104.5367,76.9826 104.5149,76.9871 104.4756,76.9951 104.4094,76.9976 104.3325,76.995 104.3047,76.9939 104.2082,76.9844 104.1631,76.9787 104.0617,76.9715 103.8612,76.9767 103.8216,76.9792 103.8855,76.9998 104.0421,77.0211 104.0647,77.0242 104.0962,77.0214 104.1494,77.0147 104.208,77.0155 104.237,77.0219 104.2796,77.0404 104.3975,77.0592 104.4206,77.0623 104.4459,77.0638 104.4745,77.0624 104.5015,77.0586 104.5233,77.0548 104.5548,77.0518 104.608,77.0546 104.8893,77.0866 104.9557,77.0959 105.139,77.1261 105.2047,77.1424 105.2291,77.1504 105.3813,77.2177 105.4238,77.2467 105.4516,77.2529 105.4776,77.2547 105.5059,77.2554 105.5372,77.255 105.7189,77.2525 105.7429,77.2499 105.8091,77.238 105.8403,77.235 105.8736,77.2338 105.8975,77.2364 105.9714,77.2547 105.8103,77.296 105.7789,77.2991 105.7164,77.3 105.6874,77.3018 105.6669,77.3127 105.6001,77.3577 105.6037,77.3878 105.56,77.4517 105.528,77.4543 105.3597,77.4509 105.3311,77.4498 105.2785,77.4461 105.2076,77.438 105.0763,77.4291 105.0425,77.4304 104.9518,77.443 104.8571,77.4581 104.7627,77.471 104.7307,77.4737 104.6677,77.4742 104.6015,77.4781 104.4992,77.5124 104.4732,77.5294 104.4744,77.5613 104.4604,77.5792 104.4356,77.5859 104.3667,77.5886 104.3377,77.5879 104.3115,77.5859 104.2641,77.5804 104.2128,77.5702 104.183,77.5635 104.1121,77.5552 104.0596,77.5514 104.0279,77.5515 103.9539,77.5729 103.9691,77.59 103.9899,77.594 104.0175,77.6052 103.9931,77.6183 103.9664,77.6192 103.7629,77.6198 103.7159,77.6142 103.5474,77.5806 103.4861,77.5611 103.3361,77.5264 103.2602,77.5195 103.1559,77.5115 103.0518,77.5043 103.0198,77.5088 102.9893,77.536 102.9533,77.544 102.9214,77.5444 102.8984,77.5412 102.801,77.5196 102.6162,77.4716 102.5927,77.46 102.5491,77.4292 102.3472,77.4003 102.2466,77.386 102.1531,77.3431 102.1292,77.3234 102.108,77.3134 101.9864,77.2667 101.9663,77.2623 101.9258,77.2647 101.9001,77.2799 101.8566,77.2861 101.8281,77.2853 101.8052,77.282 101.7569,77.2716 101.7306,77.2524 101.5874,77.1842 101.5561,77.1734 101.2002,77.0682 100.9417,76.9942 100.9017,76.9809 100.8728,76.9551 100.8971,76.9466 100.9407,76.9372 100.9452,76.9079 100.9334,76.8788 100.909,76.8715 100.8842,76.8693 100.8537,76.8691 100.8289,76.8779 100.806,76.8816 100.773,76.8826 100.6773,76.8774 100.6457,76.8718 100.6232,76.8604 100.6393,76.8385 100.5994,76.809 100.56,76.7689 100.5813,76.7211 100.6749,76.6754 100.7109,76.667 100.7392,76.6653 100.7664,76.6664 100.8261,76.6668 100.8592,76.6661 100.8902,76.6636 100.9259,76.6584 100.9416,76.6423 100.8469,76.5928 100.8141,76.5014 100.7653,76.4723 100.7387,76.4655 100.6957,76.4592 100.6717,76.457 100.6293,76.4508 100.5917,76.4426 100.7475,76.4098 100.7824,76.4078 100.8654,76.4106 100.9269,76.4094 101.0287,76.4052 101.1289,76.3986 101.1592,76.3961 101.4922,76.3516 101.5271,76.3427 101.6907,76.317 101.7473,76.311 101.8077,76.3059 101.8768,76.3017 101.9112,76.2965 101.9522,76.2707 101.9212,76.2668 101.8867,76.2687 101.6013,76.2857 101.5492,76.2922 101.5154,76.3046 101.4937,76.3219 101.4477,76.336 101.4168,76.3424 101.3865,76.3447 101.3279,76.3444 101.2504,76.3399 101.2211,76.3402 101.198,76.3421 101.1278,76.3529 101.1062,76.3568 101.0529,76.3697 101.0311,76.3732 101.0093,76.3702 100.9116,76.3557 100.813,76.3484 100.7679,76.3753 100.5778,76.4239 100.5476,76.4229 100.5226,76.4153 100.4712,76.4036 100.3917,76.389 100.3706,76.3858 100.1023,76.3635 99.9865,76.3707 99.9534,76.3765 99.7156,76.3752 99.6332,76.3723 99.5856,76.3682 99.5591,76.3665 99.3995,76.3593 99.2181,76.3593 99.1537,76.3604 98.9999,76.372 98.8136,76.3883 98.742,76.3983 98.6703,76.4084 98.6393,76.4108 98.6098,76.4101 98.58,76.4048 98.5559,76.3973 98.5343,76.3736 98.549,76.3581 98.6225,76.3411 98.6547,76.3319 98.7411,76.2726 98.7441,76.2447 98.7721,76.2366 98.8011,76.2372 98.9064,76.2424 98.9355,76.2424 98.9631,76.2413 99.0032,76.2336 99.0424,76.2221 99.0687,76.2085 99.0858,76.1895 99.1154,76.1695 99.1563,76.1672 99.2141,76.1676 99.2403,76.1685 99.3142,76.1628 99.336,76.1449 99.3354,76.1199 99.349,76.0937 99.3729,76.0799 99.4259,76.0705 99.5212,76.0464 99.5984,75.9843 99.6327,75.8351 99.618,75.8116 99.5925,75.7943 99.5715,75.7861 99.5213,75.7719 99.4686,75.7595 99.4179,75.7405 99.3798,75.7118 99.3462,75.6814 99.3208,75.6692 99.297,75.6662 99.2663,75.6667 99.1741,75.6732 99.1176,75.6726 99.0949,75.6701 99.0522,75.6647 99.0322,75.6615 99.0042,75.6394 98.9739,75.571 98.9416,75.5254 98.9026,75.4627 98.931,75.4443 98.9553,75.4377 98.9815,75.4362 99.069,75.4293 99.1195,75.4235 99.1576,75.4153 99.2433,75.3939 99.3241,75.3784 99.349,75.3757 99.3753,75.3746 99.4058,75.3736 99.4886,75.3743 99.53,75.3705 99.5554,75.3534 99.5204,75.3292 99.5208,75.2661 99.5865,75.2423 99.6203,75.2334 99.7082,75.216 99.7993,75.1885 99.9332,75.0872 99.916,75.0639 99.9119,75.0759 99.7593,75.1791 99.7415,75.1904 99.6985,75.2043 99.6482,75.2175 99.5972,75.2306 99.5348,75.2415 99.4943,75.2525 99.4523,75.3003 99.4426,75.3302 99.3642,75.3605 99.0779,75.4057 98.9267,75.4235 98.8887,75.4315 98.8452,75.4419 98.8218,75.4563 98.825,75.4783 98.8637,75.5362 98.9498,75.6522 98.9738,75.6645 98.9986,75.6716 99.0388,75.6781 99.1016,75.6871 99.1699,75.6938 99.1955,75.695 99.2408,75.6997 99.3062,75.7153 99.3419,75.7288 99.395,75.7605 99.4875,75.9272 99.4431,75.9519 99.412,75.9613 99.3714,75.9725 99.3505,75.9641 99.3067,75.9542 99.2809,75.9532 99.1918,75.9951 99.2152,76.0024 99.285,76.0093 99.318,76.0189 99.3007,76.0451 99.2055,76.0376 99.0346,76.0248 98.9856,76.0212 98.9336,76.0182 98.9045,76.0181 98.8728,76.0271 98.8223,76.0525 98.8537,76.0519 98.9487,76.0501 99.0174,76.0989 98.9983,76.1062 98.9404,76.1099 98.7258,76.1139 98.6509,76.1088 98.6139,76.0943 98.5813,76.0849 98.4628,76.0886 98.4405,76.0943 98.4682,76.1045 98.4967,76.1157 98.54,76.1541 98.5177,76.1576 98.4914,76.1564 98.4682,76.1539 98.4477,76.1502 98.3357,76.1268 98.2263,76.0961 98.1965,76.0853 98.1063,76.0699 98.0861,76.0666 98.0343,76.0637 97.971,76.065 97.8814,76.0637 97.7752,76.0503 97.7465,76.0448 97.6503,76.0125 97.7244,75.9918 97.7465,75.988 97.7785,75.9904 97.8061,75.9966 97.9433,75.9904 97.8731,75.9776 97.7533,75.9586 97.6558,75.9513 97.6218,75.9504 97.6015,75.9591 97.5851,75.9706 97.4873,75.9865 97.4528,75.9879 97.3121,75.9539 97.2759,75.9426 97.3004,75.9373 97.3571,75.9387 97.3802,75.9409 97.4061,75.9423 97.4373,75.9418 97.5343,75.9152 97.5684,75.8883 97.5494,75.8725 97.4356,75.8708 97.3297,75.8847 97.3035,75.8872 97.2721,75.8878 97.2465,75.8862 97.0974,75.8738 97.0555,75.8614 97.036,75.8485 97.0586,75.833 96.9424,75.8218 96.9139,75.8211 96.9232,75.8779 96.9499,75.8892 96.9786,75.8949 97.0299,75.9082 97.1183,75.9341 97.0929,75.9378 97.0183,75.9321 96.9728,75.9272 96.944,75.9216 96.7737,75.8728 96.7258,75.8587 96.5819,75.816 96.2904,75.7745 96.1757,75.7617 96.2667,75.8085 96.3338,75.8365 96.3614,75.8475 96.368,75.8733 96.2698,75.9001 96.2434,75.903 96.1925,75.8994 96.079,75.8869 96.0663,75.8555 96.0384,75.8442 95.9151,75.8431 95.8401,75.8517 95.6847,75.8429 95.6651,75.8397 95.5643,75.8082 95.5212,75.7828 95.479,75.7437 95.4452,75.7452 95.31,75.7812 95.3372,75.7862 95.504,75.8209 95.6381,75.8764 95.8035,75.9395 95.9286,75.974 95.9116,75.9858 95.8854,75.9922 95.4504,76.0356 95.3099,76.0374 95.1448,76.0503 95.1163,76.0498 95.0673,76.0411 94.9312,76.0165 94.7786,75.9953 94.7509,75.9963 94.6503,76.0046 94.6135,76.0176 94.5753,76.0348 94.5199,76.0433 94.4933,76.0459 94.4281,76.0489 94.3362,76.0482 94.3076,76.0474 94.2797,76.0416 94.3014,76.0356 94.3298,76.0365 94.3991,76.0345 94.4372,76.0266 94.4725,76.0088 94.3426,75.9554 94.3203,75.9527 94.2303,75.9417 94.208,75.9395 94.1804,75.9495 94.1813,75.9748 94.124,76.0099 94.0897,76.0145 94.0643,76.0129 93.9062,75.9998 93.7516,76.0063 93.4932,76.0162 93.4583,76.0172 93.3981,76.0162 93.3754,76.0119 93.4081,75.9846 93.431,75.9818 93.5737,75.9725 93.6622,75.9676 93.6945,75.9652 93.7308,75.9436 93.7105,75.9376 93.6822,75.9365 93.4752,75.9348 93.3693,75.9331 93.2388,75.9157 93.2007,75.9079 93.1784,75.9054 93.1498,75.9046 93.1273,75.9075 93.0831,75.9628 93.1299,75.9747 93.1665,75.9928 93.1331,76.0042 92.9208,75.9921 92.8786,75.9815 92.9025,75.9677 92.9333,75.9659 92.9642,75.9529 92.955,75.9322 92.8383,75.9184 92.7957,75.9551 92.7628,75.9602 92.6665,75.9468 92.6072,75.8412 92.6485,75.7917 92.7309,75.7818 92.7615,75.7803 92.7892,75.7811 92.821,75.786 92.8472,75.7947 92.7719,75.813 92.7507,75.8275 92.8046,75.8398 92.9348,75.8589 93.0006,75.8672 93.0258,75.8689 93.0546,75.8633 93.0566,75.8294 93.1465,75.7674 93.1838,75.7662 93.2154,75.7709 93.2294,75.7874 93.1975,75.8113 93.2654,75.8381 93.2907,75.8399 93.3376,75.8319 93.3387,75.8047 93.3765,75.7929 93.403,75.7902 93.4935,75.7911 93.5686,75.7969 93.5908,75.7996 93.6926,75.816 93.8938,75.8398 93.8738,75.8249 93.8162,75.8091 93.6323,75.7846 93.4876,75.7721 93.4314,75.77 93.4065,75.7685 93.2744,75.7517 93.2143,75.742 93.1515,75.7327 93.0885,75.7234 92.9516,75.7177 92.7709,75.7068 92.6963,75.701 92.6309,75.6927 92.5376,75.6833 92.4662,75.6767 92.4411,75.6746 92.2988,75.6709 92.2457,75.6677 92.2149,75.6628 92.1588,75.6474 92.1373,75.6441 92.0786,75.643 91.9828,75.6439 91.9272,75.6415 91.9055,75.6389 91.8157,75.6188 91.7941,75.616 91.7665,75.6151 91.5456,75.61 91.5149,75.6242 91.4814,75.6308 91.4566,75.6291 91.4291,75.6231 91.3746,75.5873 91.3957,75.5591 91.3895,75.5341 91.3683,75.5313 91.3407,75.5302 91.3104,75.5317 91.2311,75.5384 91.2009,75.5401 91.1705,75.5396 91.124,75.5339 91.0878,75.5262 91.0665,75.5233 91.0141,75.52 90.9837,75.52 90.9524,75.5236 90.9322,75.535 90.8228,75.5326 90.7188,75.5103 90.6819,75.5172 90.6647,75.5367 90.6548,75.5566 90.6174,75.5575 90.5932,75.5554 90.5717,75.5527 90.4591,75.5341 90.4354,75.5273 90.4089,75.5119 90.3782,75.5074 90.1509,75.4943 90.1205,75.494 90.0531,75.4951 89.8522,75.4801 89.7828,75.4727 89.7134,75.4656 89.6848,75.4601 89.6691,75.4512 89.6936,75.4406 89.6634,75.413 89.5638,75.4055 89.4159,75.3934 89.386,75.3883 89.3649,75.3762 89.29,75.341 89.194,75.3327 89.1539,75.3341 89.0763,75.3638 89.0583,75.3758 89.009,75.3974 88.9825,75.3915 88.9528,75.3685 88.9335,75.3565 88.8958,75.3446 88.8599,75.3411 88.7403,75.3303 88.6087,75.2871 88.358,75.2286 88.3266,75.2196 88.0981,75.1322 88.0792,75.1155 88.0784,75.077 88.0578,75.0608 87.9479,75.0429 87.7956,75.0138 87.7707,74.999 87.7507,74.9955 87.7273,74.9933 87.6976,74.9929 87.6714,74.9947 87.6247,75.004 87.5491,75.0192 87.3696,75.0335 87.3434,75.0353 87.0549,75.0561 86.9662,75.0591 86.9034,75.0603 86.8505,75.0572 86.8237,75.0557 86.8005,75.0534 86.7521,75.0448 86.7133,75.0334 86.6861,75.0192 86.6708,74.9757 86.6903,74.9684 86.7349,74.9724 86.7799,74.9836 86.8057,74.9852 86.8355,74.9857 87.035,74.9645 87.1146,74.9427 87.1419,74.9328 87.2368,74.9324 87.296,74.9337 87.3518,74.9357 87.3846,74.9355 87.5057,74.9317 87.5436,74.9214 87.3626,74.8394 87.2452,74.8772 87.2065,74.8943 87.1758,74.8995 87.1501,74.9011 87.1205,74.9025 87.0618,74.901 87.0124,74.8971 86.9527,74.8785 87.0248,74.8524 87.054,74.851 87.0835,74.8518 87.1099,74.8532 87.1503,74.8433 87.137,74.8285 86.9798,74.7848 86.9465,74.7762 86.9072,74.7699 86.8452,74.7497 86.8188,74.7197 86.8106,74.6959 86.7297,74.6507 86.6715,74.6493 86.6456,74.6475 86.5367,74.6007 86.548,74.5802 86.5707,74.5792 86.6352,74.5874 86.6642,74.5882 86.7028,74.5854 86.7231,74.5745 86.6879,74.5105 86.4863,74.5099 86.4609,74.5162 86.3802,74.5663 86.3559,74.5979 86.2924,74.6152 86.2476,74.6207 86.1733,74.6189 86.1351,74.6042 86.0955,74.604 86.0024,74.6579 86.0397,74.6618 86.059,74.6677 86.0082,74.6975 85.9825,74.708 85.8439,74.7174 85.811,74.7088 85.8432,74.6955 85.8688,74.6852 85.8991,74.6635 85.8903,74.6411 85.8512,74.6174 85.8189,74.6089 85.7833,74.6055 85.7526,74.6102 85.7253,74.6159 85.7029,74.6185 85.6706,74.6144 85.6384,74.6059 85.614,74.5952 85.5667,74.5287 85.6983,74.5088 85.7206,74.5063 85.763,74.5142 85.7978,74.5197 85.878,74.5174 86.0152,74.5075 86.0885,74.5016 86.3972,74.457 86.4599,74.4381 86.3858,74.4278 86.3212,74.4066 86.4832,74.3469 86.5643,74.3206 86.593,74.3199 86.6217,74.3206 86.7932,74.3291 86.8299,74.3056 86.8938,74.2723 86.9091,74.2677 86.8702,74.253 86.8025,74.2336 86.7231,74.2293 86.6882,74.2238 86.6665,74.2117 86.6203,74.1997 86.5948,74.1979 86.5162,74.1959 86.4805,74.2051 86.5017,74.2172 86.5268,74.2186 86.5589,74.223 86.652,74.2541 86.6772,74.2697 86.6545,74.2896 86.626,74.2891 86.5403,74.2868 86.4613,74.286 86.4173,74.3018 86.3653,74.3308 86.3339,74.3397 86.2773,74.3503 86.2551,74.353 86.2328,74.3521 86.0991,74.3405 85.8635,74.3191 85.8352,74.3141 85.8748,74.3025 85.927,74.2984 85.9556,74.2958 86.018,74.2873 86.0495,74.2787 86.0854,74.2239 86.0709,74.2085 86.0096,74.2233 85.9821,74.2415 85.8919,74.2564 85.7802,74.2641 85.7519,74.2649 85.7264,74.263 85.6915,74.2513 85.73,74.1815 85.7752,74.166 85.8192,74.1609 85.8445,74.1594 85.9951,74.1569 86.1587,74.1564 86.303,74.1527 86.3283,74.1507 86.35,74.148 86.4993,74.1216 86.5437,74.1043 86.5759,74.0729 86.5625,74.0175 86.6313,73.9735 86.6684,73.9667 86.7082,73.9658 86.7417,73.9668 86.7835,73.9668 86.8704,73.9664 86.9263,73.964 86.9511,73.9626 87.0504,73.9551 87.0994,73.9509 87.1455,73.9421 87.1725,73.9285 87.1896,73.9069 87.1406,73.9042 87.1185,73.9149 87.0775,73.9296 87.0332,73.9387 86.9809,73.9418 86.8348,73.9454 86.7602,73.9282 86.773,73.9052 86.8213,73.8844 86.9179,73.832 86.9306,73.8147 86.9518,73.7909 86.9855,73.7708 87.0214,73.755 87.0485,73.7454 87.1025,73.7303 87.1998,73.7214 87.2524,73.7241 87.3084,73.7602 87.3098,73.8087 87.3472,73.8107 87.3962,73.8069 87.4264,73.8023 87.4453,73.7906 87.4223,73.7365 87.3873,73.718 87.3587,73.7089 87.3298,73.6999 87.2527,73.6804 87.2303,73.6761 87.1795,73.6649 87.0797,73.6415 87.0437,73.6171 87.0408,73.5879 87.0992,73.6015 87.1223,73.6036 87.0573,73.5585 86.9661,73.5199 86.9072,73.5066 86.8828,73.5048 86.8249,73.5042 86.7368,73.5058 86.6425,73.503 86.5716,73.4845 86.55,73.482 86.4313,73.4732 86.3523,73.47 86.322,73.4701 86.2186,73.4705 86.0637,73.4601 85.8083,73.4211 85.7351,73.4077 85.7021,73.3997 85.6479,73.3832 85.6292,73.3518 85.6328,73.2717 85.6626,73.246 85.703,73.2275 85.7326,73.2188 85.7714,73.2124 85.9088,73.1917 86.0132,73.1785 86.0639,73.1673 86.1139,73.1557 86.1688,73.1413 86.4174,73.0618 86.4756,73.0356 86.5429,72.991 86.5638,72.9715 86.5702,72.952 86.5722,72.8959 86.533,72.9176 86.5105,72.9456 86.5049,72.9786 86.468,73.0105 86.4509,73.0229 86.3779,73.0448 86.3071,73.0586 86.2864,73.0617 86.2212,73.0684 86.1739,73.0725 86.1531,73.075 86.1041,73.0822 86.0703,73.0939 86.0448,73.1103 86.0363,73.1455 86.0038,73.1624 85.8277,73.1852 85.75,73.1972 85.6634,73.2136 85.6279,73.2249 85.6011,73.2386 85.5817,73.2674 85.5733,73.3713 85.6263,73.4036 85.887,73.4841 85.9158,73.4889 86.0619,73.4986 86.083,73.5011 86.1382,73.5113 86.1753,73.5222 86.2186,73.5401 86.2944,73.5657 86.3231,73.5705 86.3783,73.5721 86.3998,73.5746 86.5392,73.6124 86.5931,73.6444 86.6303,73.6557 86.7047,73.6688 86.7294,73.6705 86.8031,73.6817 86.8767,73.7417 86.8286,73.7699 86.7765,73.7769 86.5682,73.8005 86.5377,73.8008 86.3051,73.782 86.1196,73.7658 85.8949,73.7638 85.8332,73.7636 85.8083,73.7621 85.7775,73.7578 85.7142,73.7393 85.6661,73.724 85.6448,73.7215 85.6202,73.7198 85.5893,73.7198 85.5649,73.7217 85.5067,73.7208 85.3989,73.7164 85.3746,73.7147 85.3485,73.7091 85.2979,73.6761 85.2754,73.6343 85.2587,73.618 85.2281,73.6139 85.0357,73.5992 85.0114,73.5973 84.837,73.6116 84.766,73.6262 84.6459,73.6506 84.6179,73.6549 84.5966,73.6574 84.5721,73.6591 84.5413,73.6592 84.5138,73.6578 84.4128,73.6517 84.3886,73.6499 84.346,73.6447 84.3245,73.6419 84.2627,73.6295 84.1827,73.6131 84.1404,73.6079 83.842,73.5957 83.6311,73.5954 83.5491,73.5924 83.5245,73.5906 83.4794,73.586 83.4225,73.5757 83.3621,73.5671 83.3169,73.5622 83.2445,73.5563 83.19,73.5545 83.068,73.5535 82.7077,73.5567 82.5485,73.5621 82.5023,73.5641 82.3922,73.566 82.2762,73.5664 82.2456,73.5661 82.0852,73.5599 81.8323,73.5566 81.7713,73.5557 81.5649,73.5511 81.3136,73.5428 81.2658,73.5385 81.1076,73.5212 80.8665,73.497 80.6791,73.4793 80.5578,73.4771 80.514,73.4813 80.3746,73.4801 80.3473,73.4788 80.3182,73.4742 80.3106,73.3916 80.3326,73.3824 80.364,73.397 80.405,73.4069 80.4258,73.4098 80.4529,73.4095 80.4744,73.4026 80.4094,73.3435 80.3878,73.3326 80.1896,73.2821 80.1683,73.2823 80.1491,73.2752 80.0551,73.2242 80.0802,73.2063 80.1337,73.1915 80.166,73.1886 80.24,73.1925 80.2773,73.1864 80.3123,73.1793 80.3497,73.1685 80.3649,73.1549 80.372,73.1239 80.31,73.1061 80.2867,73.1039 80.1792,73.1035 80.1261,73.1006 80.1061,73.0977 80.0721,73.0898 80.042,73.0768 80.0646,73.0744 80.1954,73.0641 80.2627,73.0584 80.2837,73.0562 80.3399,73.0473 80.3755,73.0356 80.3908,73.0156 80.3529,73.0069 80.297,73.0047 80.27,73.0054 80.2504,72.9943 80.34,72.9748 80.3827,72.9702 80.4549,72.9664 80.4841,72.9624 80.5179,72.9507 80.5463,72.9369 80.6142,72.8753 80.6398,72.8112 80.61,72.7459 80.5618,72.694 80.4833,72.6535 80.4411,72.6358 80.4325,72.6099 80.4795,72.5533 80.5068,72.544 80.5448,72.5429 80.5955,72.5371 80.6295,72.5221 80.5818,72.4719 80.5597,72.465 80.5291,72.461 80.5131,72.449 80.5329,72.4259 80.636,72.3732 80.7129,72.3531 80.9186,72.2786 81.0204,72.2582 81.1611,72.2565 81.2789,72.2538 81.5283,72.2378 81.5489,72.2351 81.634,72.2227 81.6598,72.2132 81.7358,72.1974 81.7888,72.1878 81.8703,72.1786 81.9369,72.1735 81.9412,72.1804 81.9646,72.1863 82.0035,72.1839 82.0926,72.1289 82.1143,72.0952 82.1057,72.0308 82.0772,72.0163 81.9991,71.9983 82.0675,71.9766 82.1201,71.9668 82.1494,71.9586 82.2768,71.9194 82.3007,71.9092 82.382,71.8727 82.425,71.842 82.539,71.7914 82.5655,71.8002 82.5876,71.8026 82.6104,71.8028 82.7067,71.7985 82.8441,71.7907 82.9516,71.7809 83.0112,71.774 83.0747,71.7588 83.1765,71.7342 83.2072,71.7223 83.2229,71.7046 83.3213,71.6078 83.3394,71.596 83.4319,71.5305 83.4369,71.4704 83.3838,71.4188 83.3654,71.407 83.3446,71.3965 83.323,71.3904 83.258,71.3797 83.2143,71.3761 83.1916,71.37 83.1813,71.3354 83.1857,71.2945 83.1814,71.2691 83.0979,71.2035 83.0458,71.1829 83.0229,71.1771 82.9798,71.1606 82.9595,71.144 83.0684,71.0173 83.1622,70.9522 83.2051,70.9197 83.2877,70.8179 83.3031,70.7963 83.327,70.755 83.3578,70.6925 83.4108,70.6072 83.4884,70.5411 83.5344,70.4932 83.56,70.4374 83.558,70.3677 83.4679,70.3108 83.3453,70.2471 83.1816,70.2214 83.1494,70.219 83.0211,70.2184 82.937,70.2244 82.8836,70.2327 82.8608,70.238 82.8308,70.2406 82.8007,70.239 82.7668,70.2284 82.86,70.1622 82.9268,70.1225 82.9488,70.113 82.9938,70.0535 83.0093,70.0317 82.9956,69.9941 82.9737,69.9863 82.9236,69.9772 82.8886,69.9721 82.7982,69.9903 82.6431,70.0289 82.461,70.0795 82.4593,70.142 82.4715,70.1604 82.6309,70.2369 82.8147,70.3188 82.8324,70.3341 82.8661,70.4108 82.8379,70.4321 82.8072,70.4726 82.8676,70.5765 82.9223,70.6517 82.944,70.6826 82.9583,70.7538 82.9461,70.7815 82.9209,70.7974 82.7073,70.8508 82.5584,70.8693 82.4954,70.8601 82.4758,70.8539 82.3944,70.8177 82.2988,70.7188 82.3038,70.6908 82.3355,70.6802 82.2479,70.5163 82.0693,70.4991 82.0319,70.4942 81.9733,70.4803 82.0779,70.2606 82.1656,70.1231 82.163,70.107 82.1417,70.1195 82.0523,70.1856 82.0256,70.2448 82.0152,70.2695 81.985,70.3443 81.8964,70.4719 82.009,70.574 82.0245,70.5864 82.0475,70.5985 82.1047,70.6169 82.1468,70.6323 82.1816,70.6474 82.2222,70.6767 82.1139,70.8202 82.0917,70.8326 82.062,70.8453 82.04,70.8642 82.0146,70.895 82.0129,70.9168 82.0799,70.9467 82.128,70.9615 82.1516,70.9735 82.1677,70.9952 82.1577,71.023 82.1435,71.0447 82.0982,71.0759 82.0684,71.1627 82.0921,71.181 82.1389,71.194 82.1973,71.2084 82.3927,71.2488 82.5099,71.2726 82.5295,71.2763 82.6665,71.2989 82.7932,71.36 82.819,71.4414 82.8378,71.4599 82.8675,71.4648 82.9266,71.4679 82.9558,71.4728 82.9822,71.4819 83.096,71.5518 83.1246,71.5775 83.0677,71.6259 83.0485,71.6324 83.0192,71.6369 82.9503,71.6368 82.8419,71.6312 82.7836,71.6365 82.7533,71.6543 82.7251,71.673 82.6689,71.683 82.6098,71.6835 82.5801,71.6805 82.0656,71.6197 82.0262,71.6138 81.9467,71.6051 81.8488,71.6031 81.594,71.6043 81.4629,71.613 81.2275,71.6547 81.1487,71.6691 81.1015,71.6815 81.0693,71.709 81.0766,71.7432 81.0604,71.756 80.9571,71.7885 80.7421,71.8519 80.4611,71.9354 80.4463,71.9553 80.4801,71.972 80.5198,71.9771 80.5594,71.9808 80.6086,71.9744 80.5741,71.9523 80.6307,71.9355 80.6581,71.9539 80.6595,71.9785 80.6353,71.9908 80.615,71.9945 80.5952,71.9956 80.495,72.0077 80.3745,72.0283 80.274,72.0465 80.2335,72.0512 80.1529,72.0599 80.0524,72.0693 79.98,72.0799 79.9191,72.0909 79.6955,72.1388 79.6543,72.1485 79.6137,72.1592 79.5929,72.1654 79.5476,72.1804 79.4811,72.2074 79.4188,72.2314 79.3521,72.2557 79.3107,72.2674 79.2903,72.2711 79.1884,72.2804 79.1072,72.2846 79.0462,72.2839 78.9433,72.2802 78.8223,72.2752 78.7414,72.2746 78.6582,72.2769 78.638,72.2779 78.5764,72.2832 78.3918,72.3034 78.3508,72.307 78.3304,72.3065 78.309,72.3022 78.3131,72.2807 78.3086,72.282 78.313,72.2754 78.2863,72.2676 78.2674,72.2597 78.2816,72.233 78.3177,72.222 78.3602,72.2031 78.401,72.2031 78.4262,72.2015 78.4341,72.189 78.4466,72.1764 78.4655,72.1654 78.4859,72.1559 78.4828,72.1402 78.4718,72.1323 78.4812,72.1292 78.4938,72.1261 78.4922,72.1213 78.4718,72.1151 78.4482,72.1119 78.4262,72.1119 78.4262,72.1056 78.4451,72.1041 78.4702,72.1009 78.4875,72.0993 78.5032,72.0962 78.4969,72.0868 78.4985,72.0789 78.519,72.0789 78.5567,72.082 78.5818,72.0868 78.6133,72.0883 78.629,72.0805 78.6117,72.0742 78.5897,72.0742 78.6101,72.0663 78.629,72.0663 78.662,72.0585 78.7123,72.049 78.7359,72.038 78.7217,72.0255 78.7233,72.0129 78.7437,72.0176 78.7815,72.0192 78.816,72.0255 78.8663,72.0145 78.9072,72.005 78.9072,71.9909 78.9056,71.9767 78.9198,71.9689 78.9465,71.9752 78.9779,71.9799 79.0345,71.9767 79.077,71.9735 79.1493,71.9563 79.1823,71.961 79.2027,71.9625 79.231,71.9515 79.2341,71.939 79.2719,71.939 79.3096,71.95 79.3615,71.9453 79.4275,71.9421 79.4715,71.9515 79.5029,71.9594 79.5328,71.9547 79.5815,71.9421 79.624,71.9374 79.6727,71.9295 79.69,71.9122 79.6947,71.895 79.7277,71.8887 79.7764,71.8887 79.8,71.8855 79.8598,71.8808 79.8629,71.8714 79.9132,71.8651 79.9195,71.8588 79.9038,71.8525 79.9462,71.8478 80.0059,71.8352 80.0389,71.8447 80.061,71.8384 80.0672,71.8132 80.1254,71.8054 80.1663,71.7865 80.1631,71.7755 80.1459,71.7723 80.1223,71.7723 80.0909,71.777 80.0956,71.7613 80.094,71.7503 80.0673,71.7534 79.9903,71.7707 79.9824,71.7582 79.9682,71.7519 79.9242,71.7503 79.8661,71.7377 79.8535,71.7094 79.8928,71.711 79.9117,71.7 79.9447,71.678 79.9447,71.6686 79.8849,71.6686 79.9117,71.645 79.9211,71.6167 79.9415,71.601 79.9384,71.5837 79.9557,71.5743 79.9085,71.5601 79.8912,71.5617 79.8456,71.5601 79.8394,71.5507 79.8252,71.535 79.7922,71.5161 79.7262,71.5051 79.6586,71.5035 79.5768,71.5067 79.5061,71.4988 79.4338,71.5082 79.3662,71.5082 79.3395,71.4988 79.2876,71.5004 79.2185,71.5177 79.1996,71.5161 79.1493,71.4957 79.1666,71.4925 79.198,71.4689 79.2027,71.4312 79.1854,71.4013 79.1634,71.3856 79.1037,71.3683 79.0173,71.3495 78.9748,71.3338 78.9638,71.3086 78.9921,71.285 78.989,71.2473 79.0503,71.2174 79.1634,71.2143 79.2986,71.1986 79.4212,71.1624 79.5517,71.1121 79.6428,71.0775 79.701,71.0571 79.7513,71.0382 79.7843,71.0319 79.8534,71.0256 79.9462,71.0162 80.0531,71.0036 80.1348,70.9942 80.1867,70.9926 80.2181,70.9926 80.2291,70.991 80.2527,70.9848 80.3376,70.9659 80.3706,70.9549 80.3706,70.9313 80.3675,70.8983 80.3737,70.8637 80.3737,70.8354 80.3753,70.7883 80.3911,70.7506 80.4036,70.7411 80.4838,70.7128 80.5105,70.7018 80.5027,70.6924 80.4791,70.6767 80.4209,70.6515 80.4115,70.6358 80.4115,70.6138 80.4429,70.6044 80.4744,70.5949 80.5011,70.5949 80.5231,70.5902 80.5467,70.5808 80.5797,70.5572 80.5765,70.5352 80.5545,70.5195 80.5482,70.5069 80.531,70.4881 80.5089,70.4818 80.4791,70.4771 80.4854,70.4598 80.5011,70.4488 80.4964,70.4378 80.4807,70.4346 80.4885,70.422 80.4822,70.4158 80.4681,70.4142 80.4351,70.4158 80.4241,70.4032 80.4319,70.3953 80.4586,70.389 80.4854,70.3765 80.4807,70.3702 80.4807,70.356 80.4979,70.3482 80.5215,70.345 80.5545,70.3419 80.5797,70.3434 80.6064,70.3434 80.6206,70.3419 80.6174,70.3246 80.608,70.3167 80.5891,70.3214 80.5655,70.3199 80.5498,70.3199 80.564,70.3057 80.5875,70.2994 80.5797,70.2916 80.5514,70.2916 80.5294,70.2963 80.5168,70.3057 80.5121,70.3214 80.5011,70.3214 80.4807,70.3199 80.4602,70.3199 80.4382,70.3293 80.4241,70.345 80.4068,70.3576 80.3879,70.3638 80.1835,70.3623 80.1505,70.356 80.1269,70.3481 80.1159,70.3355 80.0877,70.3277 80.0562,70.3277 80.0232,70.3355 79.9996,70.3371 79.9918,70.3292 80.0028,70.3198 80.0075,70.3025 79.9918,70.29 79.9666,70.2931 79.9352,70.2962 79.9085,70.2947 79.899,70.2868 79.9226,70.2774 79.9383,70.2695 79.9289,70.2585 79.8896,70.2459 79.8283,70.2271 79.7748,70.2161 79.7906,70.2098 79.7025,70.1799 79.6601,70.1689 79.6302,70.1689 79.5972,70.1783 79.5642,70.1831 79.5328,70.1815 79.5312,70.1611 79.5548,70.1516 79.5343,70.139 79.4809,70.1343 79.4573,70.1265 79.4369,70.1029 79.4306,70.0856 79.4007,70.073 79.3614,70.0416 79.319,70.0117 79.286,70.0133 79.2483,70.018 79.2153,70.0243 79.209,70.0369 79.231,70.0416 79.2404,70.0463 79.2105,70.0495 79.1508,70.0495 79.1602,70.018 79.1477,69.985 79.1822,69.9661 79.176,69.9457 79.1445,69.9426 79.1272,69.9614 79.1021,69.9583 79.0549,69.9567 79.0156,69.952 78.9999,69.9363 79.0109,69.9237 79.0376,69.9127 79.0156,69.9095 79.0093,69.9127 78.981,69.9174 78.9543,69.9158 78.9402,69.908 78.959,69.9001 78.9873,69.8844 79.0172,69.875 79.0109,69.8671 78.9936,69.864 78.9622,69.8624 78.9354,69.8388 78.904,69.8294 78.871,69.8341 78.8663,69.8215 78.8396,69.8011 78.8097,69.7869 78.772,69.7775 78.7327,69.7791 78.6981,69.7838 78.7122,69.7634 78.7342,69.7555 78.761,69.7476 78.7971,69.7398 78.8317,69.7366 78.8254,69.7209 78.805,69.7178 78.805,69.7052 78.8301,69.6989 78.8679,69.691 78.8914,69.68 78.8836,69.6612 78.8851,69.6486 78.9024,69.6486 78.9354,69.6502 78.959,69.6455 78.9464,69.6329 78.9103,69.625 78.8726,69.6125 78.8286,69.6125 78.8223,69.5967 78.8474,69.5936 78.8647,69.5967 78.8899,69.5967 78.9024,69.581 78.9244,69.5826 78.9449,69.5826 78.9779,69.5794 79.1382,69.5653 79.2011,69.5574 79.2262,69.5464 79.2592,69.5496 79.2907,69.559 79.3253,69.5527 79.3111,69.5386 79.3331,69.5354 79.3583,69.5307 79.3504,69.5213 79.319,69.5119 79.3206,69.5008 79.374,69.4961 79.4196,69.4867 79.4196,69.4663 79.4384,69.449 79.4667,69.4144 79.462,69.3908 79.4715,69.3814 79.4982,69.372 79.4966,69.361 79.506,69.3578 79.5375,69.3484 79.5579,69.3484 79.5595,69.3405 79.5359,69.3327 79.5626,69.3264 79.6176,69.3264 79.6444,69.3217 79.6381,69.3044 79.6617,69.2824 79.6931,69.2761 79.6899,69.2682 79.6695,69.2572 79.6774,69.2462 79.7151,69.2509 79.7595,69.2512 79.7835,69.2392 79.8164,69.2482 79.8584,69.2572 79.9123,69.2572 79.9333,69.2632 79.9603,69.2602 79.9573,69.2482 79.9783,69.2482 80.0562,69.2602 80.1551,69.2362 80.239,69.2332 80.272,69.2212 80.3439,69.2212 80.3888,69.2122 80.4608,69.2092 80.5806,69.2062 80.5896,69.1883 80.6196,69.1643 80.6765,69.1463 80.7485,69.1253 80.7544,69.1073 80.8024,69.1103 80.9193,69.1313 80.9522,69.1313 81.0481,69.1673 81.162,69.1913 81.2489,69.1523 81.2849,69.1523 81.3778,69.1733 81.4557,69.2093 81.4317,69.2272 81.4587,69.2842 81.4407,69.3082 81.4947,69.3471 81.5816,69.3351 81.6535,69.3022 81.7374,69.2602 81.7464,69.2332 81.6955,69.2033 81.6295,69.1823 81.5756,69.1643 81.5876,69.1343 81.6745,69.0924 81.8303,69.0834 81.9112,69.0714 82.0761,69.0624 82.139,69.0654 82.2289,69.0774 82.2799,69.0594 82.2769,69.0264 82.3188,69.0145 82.2858,68.9935 82.2858,68.9755 82.1929,68.9695 82.145,68.9515 82.163,68.9216 82.2199,68.9186 82.2559,68.9066 82.3128,68.8886 82.3278,68.8586 82.3578,68.8197 82.3728,68.7777 82.3578,68.7387 82.3698,68.7178 82.4776,68.6998 82.5496,68.6908 82.5975,68.7028 82.6155,68.6908 82.6305,68.6638 82.6005,68.6578 82.6185,68.6368 82.6665,68.6309 82.7354,68.6189 82.8283,68.5889 82.8583,68.5589 82.8103,68.5589 82.7534,68.5469 82.7234,68.526 82.6605,68.532 82.5106,68.532 82.4687,68.523 82.4177,68.499 82.3578,68.517 82.3518,68.487 82.3428,68.487 82.3128,68.484 82.2769,68.478 82.3308,68.466 82.4147,68.445 82.4986,68.3911 82.5316,68.2952 82.4986,68.2592 82.5196,68.1933 82.4836,68.1783 82.4357,68.1753 82.3728,68.1394 82.3398,68.1064 82.3668,68.0854 82.3608,68.0705 82.3278,68.0765 82.2769,68.0825 82.2409,68.0825 82.2139,68.0705 82.208,68.0225 82.175,67.9986 82.187,67.9836 82.2199,67.9686 82.202,67.9476 82.202,67.9386 82.205,67.8877 82.199,67.8727 82.193,67.8487 82.151,67.8427 81.9113,67.8427 81.8663,67.8577 81.8154,67.8667 81.7644,67.8367 81.7075,67.8397 81.6266,67.8547 81.5876,67.8547 81.5576,67.8427 81.5396,67.8157 81.6206,67.7678 81.6895,67.7139 81.7045,67.6989 81.7344,67.6779 81.7674,67.6809 81.8214,67.6479 81.8603,67.6629 81.8843,67.6419 81.9262,67.6299 81.9262,67.618 81.8933,67.597 81.9412,67.588 81.9113,67.573 81.8813,67.57 81.8603,67.555 81.8753,67.546 81.9173,67.528 81.9322,67.4921 81.9982,67.4891 81.9982,67.4741 82.0941,67.4531 82.166,67.4651 82.187,67.4621 82.16,67.4351 82.181,67.4321 82.208,67.4321 82.2109,67.4291 82.196,67.4112 82.172,67.4022 82.178,67.3932 82.193,67.3812 82.154,67.3902 82.121,67.3692 82.0941,67.3422 82.0731,67.3243 82.0581,67.3093 82.1001,67.2883 82.13,67.2733 82.154,67.2553 82.127,67.2523 82.1031,67.2523 82.1061,67.2403 82.142,67.2403 82.175,67.2343 82.166,67.2224 82.124,67.2134 82.0401,67.2134 82.0701,67.2014 82.0821,67.1834 82.0431,67.1804 82.0102,67.1924 82.0072,67.1804 82.0132,67.1624 81.9922,67.1534 81.9352,67.1534 81.9382,67.1355 81.9772,67.1235 82.7324,66.8328 82.8763,66.7848 82.8403,66.7638 82.8673,66.7459 82.9062,66.7399 82.9362,66.7489 82.9961,66.7159 82.9931,66.6799 83.0051,66.65 83.0381,66.632 83.104,66.59 83.125,66.566 83.113,66.56 83.0801,66.5511 82.9872,66.5241 82.9182,66.5151 82.9002,66.4522 82.9152,66.3623 83.0051,66.3083 83.113,66.2723 83.1819,66.2274 83.2808,66.1435 83.3618,66.0925 83.3498,66.0746 83.2928,66.0596 83.1939,66.0386 83.176,66.0146 83.158,65.9996 83.116,65.9757 83.128,65.9517 83.2269,65.8618 83.3438,65.8108 83.3348,65.7749 83.3498,65.7599 83.3258,65.7299 83.4157,65.676 83.4816,65.6969 83.5835,65.7059 83.7514,65.6999 83.8592,65.6939 83.8862,65.661 83.9521,65.619 84.0421,65.5861 84.138,65.5861 84.12,65.5501 84.12,65.5171 84.0271,65.5081 84.0061,65.4962 84.087,65.4812 84.2009,65.4572 84.2668,65.4452 84.2668,65.4212 84.3208,65.4122 84.3417,65.3673 84.3747,65.3403 84.3597,65.3223 84.3208,65.3044 84.3357,65.2744 84.3687,65.2564 84.3687,65.2384 84.4077,65.2085 84.3987,65.1815 84.3537,65.1216 84.2608,65.1006 84.1949,65.0646 84.129,65.0017 84.1469,64.9477 84.1979,64.9357 84.2129,64.8878 84.1559,64.8728 84.09,64.8398 84.114,64.8069 84.1709,64.7949 84.2998,64.7889 84.3927,64.8039 84.5006,64.8159 84.6055,64.8309 84.6984,64.8279 84.7763,64.8129 84.7913,64.7709 84.7523,64.7559 84.7583,64.723 84.8392,64.708 84.8992,64.714 84.9231,64.699 84.9351,64.669 84.9801,64.651 85.046,64.654 85.1689,64.687 85.2648,64.693 85.2828,64.702 85.3397,64.726 85.4086,64.729 85.4925,64.717 85.6634,64.678 85.6843,64.654 85.6634,64.6121 85.6274,64.5611 85.6454,64.5312 85.7353,64.4952 85.7353,64.4652 85.6634,64.4113 85.6634,64.3543 85.7413,64.3214 85.7413,64.2914 85.7623,64.2555 85.8012,64.2105 85.8522,64.1835 85.8282,64.1116 85.7952,64.0876 85.7742,64.0516 85.7622,64.0247 85.7892,64.0007 85.7892,63.9827 85.7592,63.9497 85.6304,63.9228 85.4745,63.8898 85.4356,63.8508 85.3457,63.8299 85.3157,63.7999 85.2498,63.7729 85.2288,63.74 85.1958,63.707 85.1658,63.668 85.1389,63.5871 85.061,63.5362 85.004,63.4912 84.9051,63.5092 84.8542,63.4942 84.8901,63.4403 84.983,63.4343 85.028,63.4103 85.0849,63.4253 85.1298,63.3983 85.1898,63.3593 85.2048,63.3264 85.1778,63.3114 85.2287,63.2544 85.2707,63.2664 85.4026,63.2724 85.4955,63.2604 85.4235,63.2005 85.3366,63.1316 85.3366,63.0626 85.4715,63.0117 85.4505,62.9697 85.3756,62.9368 85.4056,62.8738 85.3306,62.8229 85.1988,62.8139 85.1568,62.769 85.1298,62.766 85.0549,62.703 85.0399,62.6731 85.0249,62.6491 84.977,62.6281 84.962,62.6101 84.98,62.5831 84.9141,62.5622 84.8871,62.5352 84.8302,62.5322 84.8002,62.4902 84.7672,62.4753 84.8002,62.4453 84.7582,62.3973 84.6743,62.3554 84.6054,62.3494 84.5964,62.3314 84.5604,62.3044 84.3177,62.1246 84.4316,61.9418 84.4016,61.8759 84.4406,61.8399 84.5155,61.8219 84.5364,61.7979 84.5604,61.753 84.6653,61.735 84.7282,61.735 84.8182,61.744 84.974,61.693 85.0339,61.6541 85.0549,61.6421 85.1358,61.6241 85.1838,61.6241 85.2617,61.6481 85.3486,61.5701 85.5914,61.5192 85.6093,61.5222 85.6753,61.5342 85.7232,61.5372 85.7592,61.5312 85.8491,61.4862 85.8521,61.4503 85.8521,61.4173 85.8251,61.4023 85.6303,61.3813 85.5794,61.3514 85.5194,61.3154 85.5284,61.2884 85.5884,61.2375 84.5874,60.9438 84.4915,60.9378 84.1439,60.7969 83.8682,60.7639 83.7663,60.8179 83.6734,60.8509 83.5775,60.8838 83.3887,60.9917 83.023,60.9767 82.7803,60.8719 82.6694,60.8329 82.2708,60.6561 82.2708,60.5542 82.0491,60.4583 81.7374,60.5932 81.4257,60.5782 81.3808,60.5572 80.9942,60.5752 80.9312,60.6171 80.9163,60.6951 80.5746,60.74 80.5087,60.704 80.3049,60.704 80.0651,60.5991 79.9243,60.6141 79.7685,60.6261 79.6126,60.6351 79.4568,60.6291 79.3399,60.6141 79.268,60.5901 79.211,60.6261 79.1601,60.662 79.1691,60.719 79.202,60.734 79.1751,60.749 79.1391,60.746 79.0942,60.7639 79.0432,60.7789 78.9833,60.755 78.9413,60.7669 78.8934,60.752 78.8694,60.7729 78.8304,60.7639 78.7885,60.725 78.6896,60.719 78.6416,60.737 78.5667,60.7729 78.4708,60.749 78.3869,60.722 78.345,60.719 78.291,60.719 78.2041,60.728 78.0483,60.74 77.9464,60.731 77.8625,60.701 77.7935,60.689 77.7546,60.704 77.6887,60.737 77.5868,60.7669 77.4399,60.7699 77.2871,60.7519 77.2092,60.7729 77.1282,60.7699 77.0024,60.7969 76.9664,60.7849 76.9514,60.704 76.9664,60.674 76.9394,60.656 76.8495,60.662 76.8495,60.6231 76.8405,60.5811 76.9125,60.5751 76.9304,60.5182 76.9155,60.4702 76.7656,60.4313 76.6547,60.4253 76.6218,60.2844 76.6967,60.2754 76.7326,60.2005 76.6397,60.1016 76.5678,60.0507 76.6367,60.0117 76.6128,59.8978 76.6277,59.6641 76.5289,59.6341 76.5289,59.5172 76.3281,59.4813 76.0464,59.4753 75.9415,59.4004 75.8516,59.3554 75.7736,59.3794 75.6957,59.2235 75.5039,59.1846 75.5459,59.0437 75.5698,58.9478 75.2462,58.7231 75.0304,58.6182 75.0514,58.5582 74.9841,58.5231 75.2327,58.4218 74.9443,58.2807 74.9565,58.272 89,7.0,Russia 109.2548,73.676 109.2654,73.6581 109.3592,73.5962 109.3777,73.5854 109.4041,73.5752 109.4381,73.5665 109.4592,73.5627 109.4838,73.5594 109.5063,73.5675 109.5737,73.5991 109.7131,73.6012 109.8962,73.5974 109.9193,73.5948 109.9655,73.5955 109.9871,73.597 110.113,73.6213 110.353,73.6781 110.3707,73.6874 110.3938,73.688 110.4169,73.6853 110.543,73.6695 110.6153,73.6655 110.6149,73.6647 110.6175,73.6659 110.6435,73.6818 110.7142,73.702 110.7807,73.7179 110.8442,73.7165 110.8832,73.7222 110.9265,73.741 110.9683,73.7526 111.0102,73.7612 111.0116,73.7616 110.9574,73.8121 110.9375,73.8361 110.9221,73.8691 110.9418,73.8909 110.97,73.8961 110.9936,73.8963 111.0225,73.8927 111.0568,73.884 111.0773,73.88 111.101,73.8802 111.1209,73.8827 111.2538,73.9041 111.2926,73.9256 111.2694,73.9422 111.2356,73.948 111.1597,73.951 111.0902,73.9489 111.045,73.9474 110.9575,73.9421 110.9157,73.9379 110.8955,73.9357 110.8588,73.9288 110.8262,73.9193 110.7849,73.8857 110.7973,73.8608 110.8172,73.8499 110.7804,73.8196 110.7515,73.8081 110.7216,73.8042 110.6965,73.8049 110.6692,73.8068 110.6236,73.8146 110.4345,73.8506 110.3859,73.8663 110.3481,73.8794 110.2845,73.8915 110.2557,73.8944 110.1176,73.9079 110.0887,73.9106 109.9214,73.9241 109.8339,73.9183 109.7925,73.9141 109.7528,73.9093 109.7088,73.8996 109.6327,73.8732 109.608,73.8592 109.5734,73.8047 109.5608,73.7794 109.5396,73.7707 109.4276,73.7449 109.3794,73.7379 109.3384,73.7336 109.2865,73.7287 109.2548,73.7194 109.2524,73.6801 109.2548,73.676 7,7.0,Russia 112.2632,75.9378 112.2689,75.9361 112.2814,75.9323 112.3477,75.9429 112.2948,75.9427 112.2613,75.9384 112.2632,75.9378 4442,3.0,Russia 27.2992,57.5203 27.3539,57.6127 27.4988,57.7498 27.5273,57.7541 27.5799,57.7597 27.6236,57.7613 27.6521,57.7627 27.6939,57.7684 27.7352,57.7795 27.7699,57.7987 27.7631,57.8173 27.7289,57.8315 27.6363,57.8963 27.6235,58.0063 27.5955,58.0257 27.5596,58.0381 27.5229,58.0531 27.5016,58.0657 27.4258,58.1438 27.4159,58.2274 27.4411,58.2551 27.47,58.2742 27.4897,58.2951 27.4931,58.3242 27.4921,58.3443 27.4848,58.3812 27.469,58.434 27.4481,58.4846 27.4391,58.5036 27.4006,58.6168 27.3713,58.7147 27.3779,58.7455 27.389,58.7637 27.4067,58.7822 27.4431,58.8113 27.491,58.8346 27.5459,58.8608 27.6381,58.9089 27.6539,58.9154 27.7389,58.9904 27.7555,59.0231 27.7857,59.0801 27.8283,59.1571 27.8647,59.2028 27.9095,59.2152 27.9439,59.2135 27.9684,59.2072 28.0034,59.2082 28.0435,59.213 28.0918,59.2198 28.1118,59.2327 28.127,59.2573 28.1415,59.2969 28.123,59.3225 28.0572,59.3647 28.0239,59.3821 27.9742,59.4036 27.9637,59.4074 27.9697,59.4116 27.987,59.431 28.0137,59.4731 28.0173,59.4986 28.0112,59.5315 27.9764,59.5772 27.9505,59.6004 27.9404,59.618 27.9561,59.687 28.0219,59.7227 28.049,59.7216 28.1168,59.6956 28.1431,59.6768 28.1519,59.6456 28.1602,59.6228 28.1912,59.6062 28.3138,59.5896 28.3371,59.5952 28.354,59.6097 28.3657,59.632 28.3687,59.6626 28.3611,59.6857 28.3642,59.7164 28.3839,59.7507 28.4423,59.7835 28.466,59.7886 28.6119,59.7428 28.6404,59.7209 28.6734,59.7098 28.7781,59.7118 28.9023,59.7473 28.9269,59.7577 28.9728,59.7947 28.9816,59.8229 28.9737,59.8584 29.0082,59.8969 29.0521,59.9164 29.1398,59.9348 29.4374,59.9019 29.707,59.8681 29.7357,59.8639 29.8748,59.8303 29.953,59.8093 29.9829,59.8008 30.0199,59.7958 30.0989,59.7921 30.1284,59.7997 30.1615,59.8249 30.1898,59.8949 30.177,59.9109 30.1134,59.9266 30.0201,59.9319 29.9806,59.9358 29.9149,59.9457 29.8913,59.9551 29.8373,60.0211 29.8459,60.0482 29.8237,60.0727 29.7895,60.0878 29.7681,60.0956 29.6928,60.1144 29.6658,60.1196 29.6165,60.1232 29.5243,60.1258 29.4981,60.1251 29.463,60.1207 29.4158,60.1103 29.3895,60.0947 29.3453,60.0864 29.1075,60.0959 28.992,60.1091 28.9717,60.1133 28.9489,60.1249 28.9327,60.1391 28.8217,60.2162 28.7882,60.2358 28.7329,60.2619 28.6854,60.2685 28.6648,60.2733 28.5841,60.2969 28.5446,60.3141 28.393,60.4757 28.4515,60.478 28.4687,60.4502 28.5099,60.4266 28.5281,60.4169 28.6022,60.3891 28.6282,60.3808 28.6516,60.3877 28.6119,60.5053 28.5751,60.5193 28.5511,60.5031 28.5153,60.5119 28.5005,60.5349 28.5206,60.5643 28.5578,60.5607 28.5727,60.5457 28.6235,60.5382 28.6782,60.6036 28.6765,60.6428 28.6226,60.6623 28.4596,60.6068 28.3568,60.5916 28.3352,60.5756 28.3297,60.5509 28.2876,60.5206 28.0937,60.4562 27.9674,60.4546 27.7714,60.4527 27.7552,60.4731 27.8319,60.5159 28.0406,60.6388 28.1927,60.7197 28.2158,60.7304 28.2448,60.7468 28.2756,60.7676 28.2882,60.7846 28.3349,60.8127 28.4122,60.8512 28.4753,60.8807 28.5234,60.8876 28.5653,60.886 28.591,60.8971 28.6195,60.9276 28.6654,60.9712 28.7618,61.0309 28.9158,61.0883 29.0166,61.1249 29.1101,61.1577 29.1578,61.1789 29.1938,61.2015 29.2183,61.2177 29.229,61.2285 29.2461,61.2436 29.2781,61.2707 29.2992,61.285 29.441,61.3621 29.5956,61.4427 29.6267,61.4589 29.7448,61.5286 29.9411,61.6592 30.0844,61.7714 30.097,61.7808 30.1459,61.8149 30.2421,61.8805 30.3377,61.9408 30.5733,62.0903 30.645,62.1344 30.7332,62.1777 30.7748,62.1951 30.9043,62.2631 31.0228,62.3366 31.1978,62.4319 31.2195,62.4594 31.2337,62.4877 31.25,62.5213 31.2613,62.5385 31.3689,62.682 31.4127,62.7355 31.44,62.7584 31.4602,62.7764 31.5204,62.8308 31.4582,62.9053 31.3217,62.9918 31.1815,63.1269 31.1586,63.1455 31.1256,63.1604 30.8518,63.2756 30.6547,63.3465 30.5891,63.3615 30.4189,63.4029 30.3977,63.4252 30.336,63.4698 30.2979,63.4818 30.2497,63.4941 30.1863,63.515 30.147,63.5342 29.9402,63.6569 29.938,63.6693 29.9499,63.6759 29.9742,63.6822 30.0039,63.688 30.0555,63.6966 30.0759,63.7013 30.1511,63.7223 30.2039,63.7439 30.3381,63.8518 30.4205,63.8943 30.4686,63.921 30.4912,63.9361 30.5349,63.9678 30.5501,63.9914 30.5523,64.015 30.5169,64.1443 30.5032,64.1613 30.3297,64.2297 30.2994,64.24 30.2617,64.2498 30.1372,64.2693 30.1038,64.2731 30.0698,64.2844 30.0023,64.3256 30.0263,64.3801 30.0285,64.4008 30.0093,64.4148 29.9894,64.4227 29.9512,64.4322 29.9278,64.4729 29.9173,64.4988 29.9677,64.5177 30.013,64.5245 30.082,64.5393 30.1169,64.5512 30.1469,64.5831 30.0832,64.6917 30.0615,64.7037 30.0215,64.7123 29.9885,64.7151 29.8909,64.7151 29.8669,64.7144 29.8324,64.7127 29.7839,64.7121 29.7497,64.7138 29.7155,64.7292 29.6961,64.7422 29.6746,64.7569 29.6555,64.7718 29.6129,64.8065 29.5941,64.824 29.582,64.8402 29.5493,64.9251 29.5624,64.9712 29.5872,64.9906 29.615,65.0006 29.6672,65.0114 29.7147,65.0134 29.7477,65.0179 29.7772,65.0258 29.8101,65.0386 29.8109,65.1206 29.7888,65.1367 29.7612,65.1421 29.7282,65.1447 29.6781,65.1452 29.5997,65.1418 29.574,65.1445 29.543,65.1627 29.5539,65.1896 29.6119,65.2214 29.647,65.2379 29.6892,65.2644 29.6863,65.333 29.6801,65.3734 29.6787,65.3992 29.6867,65.4325 29.7107,65.4444 29.7382,65.4555 29.7745,65.5061 29.7589,65.5711 29.9322,65.6028 29.97,65.6083 30.0165,65.5932 30.0597,65.5859 30.0745,65.6265 30.0421,65.736 30.0335,65.7555 29.9719,65.8395 29.888,65.9667 29.8583,66.0294 29.8433,66.0508 29.8161,66.0688 29.7896,66.0803 29.7659,66.0924 29.7387,66.1093 29.7164,66.1265 29.5718,66.246 29.5304,66.2991 29.5169,66.3194 29.508,66.3447 29.4944,66.3865 29.3541,66.5159 29.3257,66.5443 29.2949,66.5936 29.2647,66.6201 29.2135,66.6538 29.1931,66.6665 29.1522,66.6862 29.0691,66.7359 29.0342,66.7668 29.0168,66.793 29.0157,66.8188 29.0219,66.8665 29.0306,66.8882 29.0744,66.9288 29.097,66.9459 29.4643,67.2085 29.6841,67.3308 29.82,67.3976 29.838,67.4066 29.8709,67.4279 29.8976,67.4527 29.9157,67.4867 29.9664,67.6085 29.8404,67.6544 29.6658,67.7169 29.6297,67.7287 29.4779,67.8521 29.3221,67.9754 29.2954,67.9957 29.0988,68.0296 28.7631,68.0852 28.635,68.1084 28.6031,68.152 28.5,68.2983 28.4,68.447 28.4577,68.4959 28.5944,68.5919 28.6776,68.6458 28.7009,68.6666 28.7385,68.7217 28.7561,68.7585 28.7318,68.7692 28.6769,68.7873 28.6447,68.7896 28.5042,68.786 28.4487,68.7843 28.4104,68.7859 28.3796,68.794 28.375,68.814 28.3912,68.828 28.685,68.9084 28.7941,68.9408 28.8162,68.9472 28.8516,68.9543 28.8957,68.9627 28.9381,68.9482 28.9583,68.9427 28.9946,68.9398 29.0371,68.9475 29.0677,68.9592 29.1155,68.9818 29.1381,68.9943 29.1726,69.0157 29.1918,69.0308 29.233,69.099 29.2556,69.1542 29.2451,69.1752 29.2329,69.2059 29.2511,69.2269 29.3454,69.2438 29.4202,69.2512 29.4749,69.2576 29.5085,69.2646 29.5399,69.2706 29.6012,69.2843 29.8342,69.3432 29.9979,69.3982 30.0329,69.4136 30.1163,69.4881 30.0723,69.5383 30.0302,69.5382 30.0119,69.5564 30.0447,69.5736 30.0645,69.5765 30.0998,69.5781 30.1307,69.5753 30.2397,69.5407 30.2753,69.5273 30.3051,69.5132 30.3274,69.5006 30.3876,69.4775 30.4545,69.4576 30.4802,69.4544 30.7011,69.4406 30.7308,69.4403 30.7584,69.4418 30.7975,69.4469 30.8459,69.4604 30.8746,69.484 30.8841,69.5187 30.8805,69.5643 30.8763,69.6005 30.8358,69.6417 30.7881,69.7018 30.8543,69.6979 31.1732,69.6677 31.3378,69.6261 31.4734,69.6067 31.6594,69.5909 31.7054,69.591 31.7298,69.599 31.692,69.6215 31.6578,69.6278 31.623,69.642 31.6455,69.7342 31.6881,69.7562 31.7248,69.7608 31.7483,69.7607 31.7683,69.7586 31.7891,69.7542 31.8954,69.7221 31.9294,69.7096 31.9726,69.6785 32.0271,69.7026 31.9679,69.7543 31.9446,69.7641 31.9193,69.7771 31.846,69.8326 31.8672,69.8738 31.9434,69.873 31.966,69.8711 31.9863,69.8689 32.0207,69.8587 32.1435,69.8083 32.2877,69.788 32.3119,69.783 32.3983,69.7571 32.4336,69.7219 32.51,69.692 32.5384,69.6878 32.5615,69.6868 32.5847,69.6881 32.6076,69.693 32.6334,69.7067 32.8457,69.6865 32.8658,69.6837 33.0219,69.6571 33.0416,69.6472 33.0588,69.6358 33.0368,69.5564 32.9999,69.5364 32.9742,69.5274 32.8566,69.4985 32.824,69.4927 32.7997,69.492 32.7558,69.4941 32.5471,69.5225 32.3973,69.5441 32.2565,69.5506 32.1008,69.5646 32.0409,69.5856 31.9572,69.5467 31.9948,69.5231 32.0307,69.5042 32.1442,69.5001 32.3165,69.4884 32.3365,69.486 32.3592,69.4804 32.4248,69.4158 32.2,69.3491 32.1325,69.3388 32.1534,69.3344 32.1989,69.3347 32.2237,69.3391 32.2942,69.363 32.3678,69.3917 32.4178,69.4 32.598,69.4101 32.7546,69.3983 32.9584,69.3822 32.9374,69.3461 32.8689,69.3179 32.8425,69.3047 32.7623,69.2563 32.764,69.2411 32.7356,69.2134 32.8306,69.2212 32.8506,69.252 32.8739,69.2814 32.9019,69.2982 33.0944,69.3294 33.2553,69.3594 33.3854,69.3544 33.444,69.3327 33.3995,69.261 33.2893,69.2102 33.2271,69.2079 33.1703,69.1796 33.1968,69.1767 33.3078,69.1955 33.3377,69.1954 33.4028,69.1857 33.4666,69.1149 33.4451,69.0924 33.2429,69.0269 33.2022,69.0147 33.166,69.011 33.1254,69.0087 33.0511,69.0017 33.0058,68.9919 32.9729,68.9815 32.9476,68.9626 32.9403,68.8783 32.962,68.874 32.9703,68.9055 32.9771,68.9504 33.0046,68.9707 33.0263,68.9761 33.2145,68.9975 33.3477,69.0085 33.3693,69.014 33.4959,69.0949 33.5022,69.1173 33.4885,69.1902 33.5061,69.2189 33.5372,69.2302 33.5694,69.2361 33.6469,69.2421 33.7983,69.2435 33.9283,69.2379 34.1002,69.2318 34.288,69.2275 34.3434,69.2151 34.3694,69.1921 34.5731,69.1617 34.7182,69.1455 34.872,69.1325 34.9633,69.1305 34.9949,69.1313 35.0324,69.1306 35.061,69.1243 35.0725,69.0991 35.1098,69.0917 35.1855,69.1288 35.0826,69.1745 35.1027,69.1843 35.2195,69.1798 35.3827,69.1641 35.4674,69.1475 35.7598,69.1098 35.8979,69.0838 36.1875,68.9854 36.3988,68.9448 36.4838,68.933 36.523,68.9244 36.9128,68.8085 37.0723,68.7573 37.2158,68.7111 37.4154,68.6471 37.5665,68.6246 37.6133,68.6134 37.6934,68.5879 37.7445,68.5701 37.874,68.5027 37.9672,68.4489 38.2465,68.3512 38.315,68.2999 38.3519,68.2516 38.4649,68.2378 38.5274,68.2401 38.4411,68.2639 38.4267,68.2784 38.5227,68.3001 38.5486,68.2949 38.8486,68.2163 38.8687,68.2029 39.0272,68.124 39.1798,68.0791 39.3823,68.0083 39.413,67.9935 39.4453,67.9824 39.4884,67.974 39.6582,67.9596 39.7692,67.957 39.7081,68.0352 39.689,68.0456 39.6379,68.0688 39.669,68.0819 39.6945,68.0764 39.7267,68.0658 39.8119,68.0337 39.8366,68.0246 39.8472,68.0024 39.9027,67.9418 39.9293,67.9261 40.0608,67.8639 40.0994,67.8547 40.1858,67.8399 40.2777,67.8134 40.3277,67.7783 40.306,67.763 40.2466,67.7601 40.3153,67.7058 40.3794,67.6685 40.4001,67.6627 40.4362,67.66 40.612,67.6838 40.7191,67.6387 40.7489,67.6355 40.7932,67.6442 40.8248,67.6487 40.8539,67.6469 40.9069,67.6299 40.9645,67.5726 40.9708,67.5478 40.9666,67.5281 40.9489,67.5033 40.9511,67.3819 40.9735,67.3799 40.9982,67.375 41.0212,67.3658 41.0653,67.3312 41.0561,67.2654 41.0469,67.2215 41.0259,67.1654 41.0484,67.1468 41.0771,67.1387 41.1396,67.1281 41.1604,67.1272 41.1811,67.1322 41.1998,67.1445 41.2333,67.1428 41.2591,67.1305 41.2759,67.1158 41.3057,67.034 41.2174,66.8619 41.1984,66.8323 41.187,66.816 41.1618,66.784 41.1352,66.7532 41.0715,66.7099 41.0432,66.6924 41.0128,66.6754 40.9659,66.6578 40.8888,66.6233 40.6538,66.5031 40.6384,66.4893 40.6381,66.4599 40.4831,66.3699 40.3843,66.3262 40.3611,66.317 40.3195,66.3076 40.2713,66.3025 40.241,66.2978 40.2144,66.2909 40.0912,66.2549 40.0564,66.2358 40.0197,66.2065 39.9853,66.1927 39.7294,66.1467 39.505,66.1107 39.3038,66.0606 39.2729,66.0505 39.2414,66.0433 39.197,66.036 39.0316,66.0211 38.9404,66.019 38.768,65.9973 38.7384,65.9923 38.5297,65.9693 38.4751,65.9677 38.415,65.9694 38.122,65.9843 37.9133,65.9959 37.8912,65.9977 37.8332,66.0045 37.5974,66.038 37.4069,66.0844 37.3313,66.1095 37.3196,66.1143 37.2199,66.1409 37.1909,66.1479 37.0725,66.1684 36.9412,66.1851 36.8995,66.1887 36.8337,66.1928 36.6833,66.2022 36.6407,66.2039 36.5803,66.2049 36.5509,66.2048 36.4607,66.2057 36.3086,66.2159 36.2304,66.2242 36.1524,66.2367 35.8415,66.2695 35.6597,66.2861 35.5075,66.2974 35.4851,66.2985 35.4371,66.3039 35.3651,66.3179 35.3331,66.3244 35.3063,66.3318 35.0929,66.401 35.0074,66.4309 34.9564,66.4554 34.903,66.48 34.8046,66.514 34.7747,66.5207 34.7002,66.5226 34.67,66.5174 34.6376,66.4978 34.6165,66.488 34.5915,66.4799 34.4809,66.4541 34.4426,66.4478 34.4088,66.4482 34.3731,66.4615 34.2906,66.5291 34.3052,66.5501 34.3323,66.557 34.3642,66.5595 34.2488,66.5816 34.1721,66.585 34.0879,66.5859 33.8642,66.6004 33.7866,66.6083 33.7496,66.6188 33.7286,66.649 33.7076,66.6767 33.6748,66.6908 33.5303,66.7384 33.4498,66.7283 33.4674,66.7015 33.5016,66.6837 33.539,66.6714 33.5593,66.6617 33.4663,66.6353 33.4154,66.6372 33.1834,66.7099 33.1201,66.7305 33.087,66.7443 33.0207,66.7722 32.8754,66.8401 32.8343,66.8595 32.7674,66.8958 32.7463,66.9136 32.73,66.9415 32.7344,66.9679 32.7267,67.0006 32.629,67.0269 32.6005,67.0342 32.5455,67.0453 32.5067,67.0475 32.4545,67.0425 32.4221,67.0426 32.3838,67.0466 32.3465,67.0553 32.298,67.0767 32.273,67.0775 32.1741,67.0595 32.0001,67.048 31.9592,67.0517 31.9197,67.0612 31.8674,67.0754 31.8146,67.0768 31.7932,67.0676 31.858,67.0374 32.005,67.0285 32.035,67.0283 32.0581,67.0325 32.0807,67.0416 32.1267,67.0448 32.1496,67.0439 32.1932,67.0375 32.2898,66.9907 32.4308,66.9464 32.454,66.9333 32.4721,66.923 32.4924,66.9011 32.4629,66.8637 32.4519,66.7975 32.6128,66.7429 32.7834,66.7012 32.8454,66.6847 32.8634,66.6519 32.7689,66.6424 32.7339,66.6423 32.8673,66.6069 32.9026,66.6021 32.9926,66.5986 33.052,66.5999 33.0894,66.6019 33.1119,66.601 33.1543,66.5944 33.2541,66.5567 33.24,66.5376 33.1275,66.5553 33.0848,66.5661 33.0546,66.563 33.0284,66.528 33.0013,66.5111 32.9665,66.5033 32.9465,66.5047 32.9113,66.5099 32.8711,66.5129 32.8282,66.5138 32.8035,66.5107 32.7957,66.5012 32.8042,66.4967 32.9899,66.4943 33.0164,66.4967 33.086,66.5188 33.1724,66.5319 33.2156,66.528 33.3382,66.5105 33.3594,66.5048 33.4568,66.4435 33.4191,66.4381 33.3668,66.4458 33.3216,66.4561 33.2742,66.4653 33.2392,66.4703 33.1317,66.4799 33.1137,66.4701 33.1068,66.4678 33.0724,66.4646 33.0518,66.4646 33.0036,66.4666 32.8914,66.4465 32.9643,66.4226 33.0091,66.421 33.0498,66.4213 33.0725,66.4253 33.1004,66.4418 33.1455,66.4499 33.1797,66.4461 33.2347,66.4191 33.2625,66.3993 33.3398,66.3875 33.377,66.3832 33.476,66.3897 33.5052,66.4057 33.5404,66.4055 33.5652,66.3972 33.6533,66.3388 33.6005,66.3311 33.495,66.3084 33.3714,66.2588 33.2756,66.2454 33.2538,66.2362 33.4341,66.2283 33.4851,66.2386 33.568,66.2293 33.6817,66.2071 33.7108,66.2006 33.8147,66.1767 34.0406,66.1656 34.0979,66.131 34.281,66.0743 34.3544,66.0492 34.4271,66.0237 34.4612,66.0104 34.4968,65.995 34.6424,65.908 34.7798,65.8159 34.7974,65.7974 34.8945,65.6388 34.8604,65.6146 34.8187,65.6227 34.7714,65.648 34.7452,65.6639 34.6883,65.694 34.6193,65.719 34.6044,65.6945 34.6203,65.6346 34.6827,65.552 34.7088,65.5182 34.6038,65.3658 34.5487,65.3612 34.4722,65.3693 34.4262,65.3677 34.3535,65.3369 34.3125,65.3009 34.4055,65.1965 34.4815,65.1704 34.5171,65.1724 34.5384,65.171 34.5656,65.1597 34.6162,65.1019 34.6133,65.027 34.676,64.9766 34.7263,64.935 34.7056,64.888 34.7702,64.8362 34.8667,64.7577 34.8881,64.5726 34.7662,64.5065 34.7418,64.4883 34.7188,64.4676 34.7913,64.4399 34.8788,64.4344 34.8975,64.4174 34.8917,64.3779 35.0664,64.3053 35.255,64.2471 35.329,64.241 35.3525,64.2434 35.4684,64.2758 35.4972,64.3184 35.5263,64.3242 35.5621,64.3156 35.7333,64.2632 35.8078,64.2272 35.8276,64.2056 35.8222,64.179 35.9134,64.1166 35.9485,64.1194 36.0384,64.152 36.2063,64.0645 36.1959,63.9998 36.1924,63.9405 36.211,63.9306 36.4017,63.8914 36.4266,63.8882 36.4508,63.8886 36.4887,63.889 36.5248,63.8848 36.7245,63.85 36.7608,63.8326 36.9078,63.822 37.0162,63.8185 37.0661,63.8154 37.0997,63.8103 37.1306,63.8006 37.1726,63.7693 37.1948,63.7447 37.2244,63.7343 37.2859,63.7261 37.3153,63.7245 37.3491,63.7261 37.4309,63.7358 37.4641,63.7432 37.505,63.7649 37.5102,63.8026 37.5806,63.8446 37.6144,63.8426 37.6724,63.8335 37.712,63.8273 37.7535,63.8294 37.797,63.8358 37.8747,63.8577 37.9219,63.8773 37.9343,63.8917 37.9698,63.914 37.9872,63.9252 38.0053,63.942 38.0096,63.978 37.9882,64.0339 37.9722,64.0682 37.9513,64.0856 37.9297,64.0945 37.9077,64.1035 37.8515,64.1319 37.8333,64.1506 37.8477,64.1706 37.904,64.2369 37.8308,64.2622 37.7374,64.308 37.7265,64.34 37.6143,64.3431 37.4868,64.3043 37.3165,64.2752 37.2855,64.2721 37.2604,64.2727 37.1181,64.3121 37.0937,64.3202 37.0715,64.329 37.0538,64.3398 36.9331,64.4212 36.9028,64.4432 36.8725,64.4656 36.8473,64.4894 36.7937,64.5361 36.683,64.6203 36.6563,64.636 36.6311,64.6484 36.6038,64.6558 36.5354,64.662 36.4894,64.6636 36.3862,64.8062 36.3673,64.8573 36.4013,64.8697 36.4398,64.868 36.4762,64.8555 36.4991,64.8469 36.5366,64.8401 36.5803,64.8419 36.7599,64.9112 36.794,64.995 36.7868,65.0403 36.7747,65.0604 36.7609,65.0758 36.7833,65.0969 36.9267,65.1235 36.9679,65.1259 37.045,65.1137 37.2946,65.0663 37.3988,65.0426 37.6152,64.9748 37.6568,64.9559 37.6739,64.9187 37.6696,64.8882 37.7021,64.8708 37.8633,64.8093 37.9018,64.7977 37.9288,64.7899 37.9542,64.7837 38.0019,64.7738 38.0416,64.7696 38.0797,64.7686 38.1377,64.7671 38.1727,64.7683 38.2587,64.7773 38.2974,64.782 38.3283,64.7734 38.2891,64.7267 38.1806,64.6988 38.1598,64.7003 38.1341,64.7036 38.0895,64.7028 37.9973,64.6953 37.964,64.6794 37.9662,64.5632 37.9968,64.5623 38.0828,64.5908 38.0887,64.617 38.1122,64.6378 38.2519,64.6733 38.2768,64.6762 38.4147,64.6812 38.4601,64.7179 38.4923,64.7119 38.5745,64.6973 38.6272,64.6892 38.6783,64.6829 38.7151,64.6778 38.7706,64.6772 38.7914,64.6756 38.8551,64.6633 39.152,64.5791 39.3114,64.5264 39.4177,64.4956 39.4677,64.483 39.536,64.4773 39.6588,64.4736 39.8371,64.5299 39.7994,64.5375 39.7736,64.531 39.7535,64.5209 39.7152,64.5146 39.7162,64.5472 39.7388,64.5838 39.7839,64.5856 39.9387,64.5528 39.9785,64.5408 40.0024,64.5326 40.0557,64.5093 40.0846,64.4826 40.1373,64.4726 40.3707,64.4566 40.417,64.455 40.4435,64.4611 40.4519,64.4849 40.4354,64.5145 40.411,64.5353 40.3902,64.5498 40.3327,64.6449 40.3364,64.6698 40.3668,64.6843 40.3705,64.7088 40.3464,64.7441 40.3296,64.7586 40.3319,64.7804 40.2958,64.8429 40.1995,64.9313 40.1627,64.9478 40.1359,64.9555 40.1017,64.961 40.0719,64.966 40.0219,65.0003 39.9795,65.0344 39.9384,65.0763 39.8816,65.1293 39.8344,65.1624 39.7783,65.1966 39.7534,65.2089 39.7339,65.2187 39.7035,65.2378 39.6747,65.2605 39.6388,65.2965 39.6249,65.3235 39.6221,65.3458 39.6243,65.3808 39.6441,65.4283 39.6719,65.4685 39.6949,65.4888 39.7324,65.5114 39.7766,65.5297 39.8118,65.5424 39.8358,65.5507 39.8597,65.5587 39.8982,65.5693 39.942,65.5768 40.1214,65.628 40.3089,65.6847 40.3316,65.6938 40.3524,65.7042 40.3909,65.7267 40.4624,65.7745 40.5135,65.8123 40.5278,65.8269 40.5599,65.8536 40.5773,65.8658 40.5983,65.876 40.6212,65.8853 40.6474,65.8922 40.6769,65.8969 40.7709,65.9079 40.804,65.9107 40.8572,65.9123 40.9249,65.9164 41.1213,65.9572 41.2155,65.9679 41.2717,65.9794 41.3411,66.0065 41.5634,66.1033 41.69,66.1655 41.7198,66.1819 41.7583,66.2051 41.8236,66.2474 41.9512,66.3367 41.9826,66.3706 41.9978,66.385 42.0567,66.4282 42.0893,66.4403 42.1196,66.445 42.15,66.4433 42.2626,66.4265 42.2984,66.4205 42.4661,66.3871 42.4989,66.3801 42.5673,66.3593 42.5803,66.3384 42.583,66.3126 42.6679,66.3117 42.7412,66.3186 42.7871,66.325 42.8679,66.3329 42.9255,66.338 42.986,66.3407 43.156,66.346 43.2051,66.3406 43.2308,66.3285 43.2607,66.2983 43.3787,66.251 43.4204,66.2476 43.4478,66.2431 43.4828,66.233 43.5583,66.1994 43.5772,66.1889 43.5985,66.1721 43.6054,66.1483 43.5878,66.1353 43.5465,66.1198 43.5196,66.1132 43.4589,66.1046 43.4321,66.0984 43.3604,66.0724 43.2069,66.0075 43.2673,65.9554 43.4283,65.8929 43.437,65.9241 43.4288,65.9535 43.3837,65.9703 43.3638,65.9718 43.3194,65.9733 43.2976,65.9896 43.3655,66.0326 43.3877,66.0422 43.4183,66.0527 43.6039,66.0941 43.6279,66.097 43.7693,66.0935 43.8546,66.0551 43.9597,65.9952 43.9639,65.9742 43.9359,65.9361 43.9518,65.9086 44.0854,65.7921 44.0605,65.9652 44.0147,66.0408 43.9897,66.081 43.9873,66.1173 44.0196,66.1985 44.0342,66.2311 44.0455,66.2484 44.0614,66.2731 44.0746,66.2891 44.0924,66.3021 44.1206,66.3206 44.1285,66.3232 44.1281,66.328 44.1512,66.363 44.1677,66.3771 44.1991,66.3931 44.2304,66.4031 44.2699,66.4191 44.2992,66.5131 44.3069,66.5332 44.3333,66.5532 44.3663,66.5622 44.3922,66.5898 44.358,66.6188 44.2708,66.6992 44.2904,66.7168 44.3434,66.7253 44.3764,66.7341 44.3939,66.7511 44.4051,66.8229 44.3886,66.8643 44.3173,66.9268 44.2587,66.9447 44.222,66.9621 44.1558,67.0136 44.0769,67.0693 44.0509,67.0814 44.0176,67.0886 43.9854,67.0926 43.9458,67.0941 43.9111,67.0916 43.878,67.0888 43.8437,67.0802 43.8137,67.0747 43.7805,67.0803 43.6889,67.1108 43.6699,67.1322 43.6603,67.1669 43.6611,67.2038 43.6614,67.2261 43.668,67.2568 43.6969,67.3074 43.7104,67.3237 43.7235,67.3399 43.7653,67.3874 43.8483,67.4806 43.9395,67.5785 43.9677,67.5943 44.0006,67.5946 44.0221,67.6204 44.0355,67.6993 44.0335,67.7208 43.9942,67.7522 43.9944,67.7905 44.0206,67.8057 44.0752,67.8016 44.1185,67.808 44.1657,67.8413 44.1287,67.8497 44.1034,67.8471 44.0708,67.8371 44.0394,67.8415 44.0481,67.9081 44.0862,68.0129 44.1171,68.0879 44.1331,68.1201 44.1518,68.1771 44.1351,68.2044 44.1106,68.2175 44.0906,68.228 44.0388,68.253 43.958,68.2867 43.9088,68.3053 43.807,68.3343 43.7542,68.345 43.6904,68.3603 43.6266,68.3763 43.5974,68.3848 43.5711,68.3935 43.5445,68.4024 43.4713,68.4304 43.2635,68.5105 43.2403,68.5204 43.2197,68.531 43.1875,68.5532 43.178,68.58 43.22,68.597 43.275,68.5998 43.2951,68.6 43.3171,68.5986 43.3644,68.5942 43.3941,68.5899 43.5787,68.5442 43.6926,68.5133 43.7514,68.4969 43.8276,68.4766 43.8805,68.4659 43.9598,68.4538 43.9801,68.4509 44.0256,68.4475 44.0475,68.4463 44.0872,68.4464 44.1239,68.4483 44.3951,68.4648 44.6187,68.4742 44.6854,68.4821 44.7083,68.4861 44.7901,68.4909 44.8487,68.4913 45.0448,68.4899 45.1686,68.4865 45.1902,68.4851 45.3073,68.4732 45.409,68.4578 45.8064,68.3944 45.8621,68.3614 45.8436,68.3475 45.8572,68.3216 45.9289,68.2391 46.1853,68.1201 46.2223,68.1146 46.2488,68.1217 46.2959,68.1104 46.4016,68.0668 46.4298,68.0509 46.4521,67.9995 46.4395,67.9683 46.4527,67.9354 46.4696,67.9101 46.5639,67.847 46.6174,67.836 46.621,67.7561 46.614,67.7305 46.5744,67.7179 46.5231,67.7206 46.3123,67.7411 46.1918,67.7323 46.1462,67.7242 46.0982,67.7165 46.0494,67.7106 45.7427,67.6861 45.6303,67.6786 45.572,67.6844 45.5266,67.6828 45.4418,67.6746 45.4092,67.6708 45.3622,67.6634 45.3318,67.6582 45.2883,67.6493 45.2283,67.6315 45.2064,67.6133 45.2537,67.5989 45.2574,67.5687 45.2529,67.5463 45.2401,67.5226 45.2009,67.499 45.1752,67.4972 45.1444,67.4984 45.1059,67.499 45.0668,67.4932 45.021,67.4791 44.9637,67.4536 44.9302,67.438 44.9094,67.426 44.8549,67.3923 44.8387,67.3715 44.8286,67.3475 44.8202,67.2801 44.8346,67.2614 44.8996,67.2357 45.0323,67.195 45.0707,67.1851 45.2778,67.1393 45.314,67.1326 45.372,67.1235 45.449,67.1074 45.4846,67.0969 45.5132,67.0826 45.5412,67.0498 45.544,67.0216 45.5563,66.9878 45.6152,66.9426 45.6221,66.928 45.7213,66.8166 45.7476,66.8027 45.9396,66.7404 46.1527,66.7493 46.1857,66.752 46.2325,66.7576 46.3241,66.7711 46.3523,66.7774 46.3833,66.7879 46.4157,66.7913 46.4358,66.7896 46.4658,66.7855 46.4925,66.7768 46.5023,66.7544 46.4218,66.7278 46.2872,66.6568 46.4117,66.6838 46.4403,66.7131 46.4593,66.7258 46.5015,66.7355 46.5436,66.7379 46.663,66.7441 46.8277,66.7571 46.9921,66.7839 47.1195,66.8116 47.1481,66.8179 47.2049,66.8293 47.2351,66.834 47.2669,66.8377 47.2988,66.8385 47.3363,66.8376 47.3566,66.8359 47.4003,66.8309 47.5007,66.8539 47.602,66.9017 47.6336,66.9256 47.65,66.9575 47.6542,67.0332 47.6418,67.0521 47.6088,67.0811 47.5841,67.1011 47.7445,67.2859 47.7911,67.3067 47.8375,67.3375 47.8519,67.3661 47.8375,67.3883 47.8176,67.4058 47.7898,67.4251 47.7591,67.4442 47.7151,67.4884 47.7379,67.5079 47.7805,67.5248 47.902,67.5663 47.9898,67.5519 48.045,67.5401 48.1371,67.5829 48.1638,67.5905 48.2498,67.6029 48.2788,67.5994 48.325,67.5798 48.358,67.5733 48.4417,67.5772 48.4818,67.5961 48.534,67.6203 48.5667,67.6239 48.7604,67.6106 48.8439,67.5877 48.8725,67.5641 48.9012,67.549 48.9636,67.541 48.9952,67.5465 48.9453,67.584 48.7774,67.6389 48.7005,67.7357 48.674,67.7572 48.6424,67.7727 48.6082,67.7874 48.5395,67.8168 48.5122,67.8257 48.494,67.8439 48.5511,67.8445 48.571,67.841 48.5979,67.8321 48.6502,67.8065 48.6846,67.7918 48.7087,67.782 48.7676,67.7684 48.8206,67.7621 48.8414,67.7603 48.8775,67.7617 48.9448,67.7671 48.9779,67.7705 49.0914,67.7831 49.1234,67.7873 49.4908,67.8783 49.5469,67.8926 49.6157,67.9122 49.6416,67.9206 49.6797,67.9344 49.7302,67.9532 49.7794,67.9733 49.8194,67.9862 49.8607,67.9978 49.8987,67.9981 49.8654,67.9693 49.81,67.9537 49.7668,67.9441 49.7465,67.9319 49.7849,67.9326 49.8615,67.9531 49.8983,67.9681 49.9293,67.984 49.9524,68.005 50.0089,68.0412 50.1098,68.0799 50.1359,68.0887 50.1638,68.0964 50.253,68.1149 50.2946,68.1261 50.403,68.1587 50.4306,68.1685 50.482,68.1871 50.5197,68.2016 50.5437,68.2128 50.5726,68.227 50.6353,68.2671 50.662,68.2832 50.6938,68.2799 50.748,68.2547 50.7747,68.2515 50.8305,68.2535 50.9603,68.2621 51.3974,68.329 51.4449,68.3378 51.4661,68.3508 51.4323,68.3654 51.4413,68.385 51.4662,68.3955 51.5163,68.4 51.5653,68.3988 51.621,68.3993 51.6721,68.4035 51.7033,68.4088 51.936,68.4489 51.9648,68.4565 52.091,68.4672 52.0685,68.4171 52.2006,68.4064 52.2284,68.4005 52.2452,68.3896 52.173,68.3244 52.1473,68.3149 52.089,68.3086 52.0619,68.3081 52.0314,68.2944 52.1261,68.2241 52.1489,68.2188 52.3125,68.2533 52.3533,68.2663 52.4062,68.2925 52.4474,68.3127 52.4762,68.32 52.5122,68.321 52.5538,68.3253 52.5882,68.3399 52.6192,68.3715 52.6191,68.3952 52.6009,68.4064 52.562,68.4171 52.512,68.4265 52.4643,68.4428 52.4447,68.4532 52.377,68.4974 52.3964,68.5272 52.43,68.5306 52.468,68.5304 52.4996,68.5352 52.5265,68.554 52.4729,68.554 52.4325,68.5505 52.3952,68.5412 52.337,68.5112 52.2974,68.4967 52.2506,68.4968 52.2128,68.5003 52.1725,68.5109 52.1842,68.5288 52.2457,68.5481 52.2814,68.5577 52.4037,68.589 52.4727,68.6075 52.6025,68.6437 52.7919,68.6909 52.848,68.7007 52.9062,68.7153 53.005,68.7437 53.0581,68.763 53.0862,68.7714 53.173,68.7939 53.2331,68.8071 53.2641,68.8129 53.3256,68.8249 53.3566,68.8309 53.556,68.8626 53.6611,68.8784 53.7289,68.8849 53.894,68.8975 53.9814,68.9035 54.3023,68.92 54.3599,68.9189 54.4005,68.9166 54.4217,68.9142 54.4427,68.9069 54.4149,68.888 54.2227,68.8666 54.0838,68.856 53.8579,68.8394 53.7601,68.8346 53.7103,68.8365 53.6875,68.8399 53.6411,68.8392 53.4902,68.8196 53.4937,68.7923 53.5718,68.7698 53.6072,68.7729 53.5849,68.7973 53.6225,68.7996 53.6838,68.7954 53.767,68.7885 53.8297,68.7827 53.8748,68.776 53.8979,68.7693 53.9056,68.7508 53.8678,68.7345 53.817,68.7214 53.7299,68.6462 53.7209,68.6145 53.6989,68.5942 53.6673,68.5805 53.6188,68.5705 53.6097,68.5441 53.6331,68.5204 53.6981,68.4756 53.7335,68.4572 53.7677,68.4384 53.7919,68.4148 53.8086,68.3832 53.8306,68.3137 53.6986,68.2568 53.6763,68.257 53.6121,68.2915 53.5655,68.3078 53.5191,68.318 53.4889,68.3201 53.464,68.3131 53.4818,68.3021 53.5232,68.2913 53.5704,68.2469 53.5178,68.2469 53.4859,68.256 53.4503,68.2673 53.4187,68.2727 53.3781,68.276 53.3384,68.2783 53.3126,68.2768 53.208,68.2579 53.101,68.1977 53.0973,68.1774 53.1337,68.1591 53.2243,68.1495 53.2608,68.1496 53.3163,68.1574 53.4089,68.1683 53.5947,68.1647 53.7049,68.1563 53.7336,68.1505 53.7515,68.1327 53.8484,68.1265 53.8824,68.1287 53.9283,68.1371 53.9861,68.1595 54.0571,68.1634 54.086,68.12 54.1316,68.12 54.2812,68.1763 54.317,68.1938 54.3386,68.208 54.3575,68.2152 54.3921,68.2177 54.432,68.2116 54.4585,68.1914 54.4932,68.156 54.5086,68.1382 54.5213,68.1195 54.5463,68.0926 54.5746,68.0868 54.6672,68.0766 54.7085,68.0807 54.7297,68.0863 54.7535,68.0979 54.8077,68.1555 54.8037,68.1955 54.7413,68.2268 54.8045,68.2963 54.8241,68.3123 54.8787,68.3472 55.1094,68.4334 55.2156,68.4634 55.3373,68.4788 55.4127,68.4775 55.4638,68.4727 55.5399,68.4789 55.5719,68.4834 55.6769,68.5063 55.7218,68.5163 55.7492,68.5257 55.7815,68.5387 55.828,68.5649 55.8583,68.5713 55.8877,68.5699 55.9318,68.5623 56.0264,68.5349 56.0916,68.5251 56.1337,68.5201 56.1729,68.5171 56.21,68.5171 56.2702,68.5212 56.3332,68.5315 56.389,68.5397 56.4713,68.549 56.5084,68.5487 56.5291,68.5463 56.5671,68.5379 56.6451,68.5149 56.6731,68.5052 56.7052,68.4911 56.7503,68.475 56.8925,68.4564 56.9517,68.452 56.9787,68.4522 57.0211,68.4559 57.1551,68.4679 57.2276,68.4781 57.2768,68.4928 57.2939,68.5039 57.308,68.5286 57.3272,68.5621 57.4646,68.6455 57.4864,68.6514 57.5289,68.6549 57.6406,68.6528 57.7925,68.6571 57.821,68.6655 57.8539,68.6904 57.8223,68.7346 57.8482,68.7583 57.8789,68.765 58.0605,68.7964 58.1165,68.7906 58.0979,68.7665 58.0778,68.749 58.2217,68.642 58.2662,68.6431 58.2978,68.6484 58.3115,68.6642 58.27,68.686 58.2417,68.6914 58.1855,68.6925 58.1585,68.7057 58.1509,68.7414 58.1482,68.7674 58.1523,68.8035 58.365,68.8545 58.4763,68.8732 58.6865,68.9046 58.7374,68.9093 58.7727,68.9109 58.8095,68.9111 59.0505,68.9091 59.0956,68.902 59.0657,68.8922 59.0194,68.8927 58.9274,68.8825 58.8938,68.8787 58.8476,68.8693 58.7763,68.8447 58.8259,68.8368 58.8844,68.8328 58.945,68.8265 58.9747,68.8203 59.1443,68.7476 59.185,68.729 59.2952,68.6763 59.3013,68.6569 59.2946,68.6233 59.2757,68.614 59.2423,68.6105 59.1937,68.6142 59.1521,68.62 59.1247,68.6203 59.0834,68.6161 59.0457,68.607 58.9369,68.532 58.9356,68.4887 58.9477,68.3369 58.9734,68.32 59.0026,68.3137 59.063,68.3063 59.1201,68.3026 59.3846,68.2663 59.4897,68.248 59.523,68.2468 59.5557,68.2505 59.5871,68.2554 59.7168,68.2818 59.7477,68.298 59.7702,68.3139 59.842,68.3766 59.8199,68.4236 59.7454,68.4939 59.7259,68.5081 59.6959,68.5179 59.6577,68.5288 59.6365,68.5493 59.6558,68.5772 59.6848,68.5936 59.7115,68.6049 59.7672,68.6243 59.7965,68.6327 59.8232,68.6286 59.8502,68.6186 59.8737,68.6078 59.9127,68.6005 59.9593,68.5986 59.9958,68.5988 60.1163,68.6055 60.2535,68.6144 60.3032,68.6195 60.3351,68.6247 60.3663,68.6308 60.41,68.6432 60.4392,68.6519 60.4662,68.6626 60.5419,68.702 60.5767,68.7256 60.5916,68.7403 60.6077,68.7585 60.6468,68.7858 60.6711,68.8002 60.6985,68.8107 60.739,68.8172 60.7847,68.8163 60.8058,68.8616 60.8143,68.9018 60.8003,68.9985 60.7645,69.0343 60.7153,69.0607 60.6698,69.0752 60.6257,69.084 60.5987,69.0836 60.5983,69.0305 60.5632,69.0126 60.5084,69.0211 60.4726,69.0367 60.4539,69.0675 60.464,69.1076 60.4637,69.16 60.4417,69.1905 60.4116,69.223 60.3015,69.2802 60.181,69.3586 60.1613,69.373 60.1505,69.3979 60.086,69.4629 60.0156,69.4832 60.0311,69.542 60.1103,69.5691 60.1405,69.5776 60.1652,69.5814 60.2211,69.584 60.2735,69.5776 60.2941,69.5761 60.3733,69.5733 60.4099,69.5747 60.5173,69.5804 60.5348,69.5937 60.5186,69.6394 60.5607,69.7148 60.5929,69.7383 60.6281,69.7525 60.6587,69.7605 60.7336,69.7724 60.7993,69.7725 60.8295,69.7683 60.87,69.7563 60.8914,69.7533 61.0221,69.7419 61.1191,69.7383 61.2123,69.722 61.3024,69.6997 61.4006,69.69 61.5156,69.687 61.5823,69.6858 61.6331,69.6817 61.7725,69.6665 61.8565,69.6553 61.8769,69.6534 61.9714,69.6523 62.0816,69.655 62.1936,69.6554 62.2496,69.6551 62.287,69.6551 62.364,69.652 62.4237,69.6472 62.444,69.6453 62.5442,69.6364 62.6426,69.6299 62.7591,69.6238 62.8551,69.6203 62.9498,69.613 63.0906,69.5988 63.1321,69.5936 63.2981,69.5698 63.3403,69.5632 63.5089,69.5356 64.0124,69.4522 64.1386,69.4243 64.1997,69.4101 64.2394,69.4007 64.3187,69.3816 64.3766,69.3672 64.411,69.3542 64.4422,69.3407 64.5298,69.3095 64.5711,69.297 64.634,69.2795 64.7628,69.2453 64.8198,69.2304 64.8591,69.207 64.8242,69.1914 64.7797,69.1897 64.7412,69.2011 64.7205,69.2046 64.6962,69.1979 64.6454,69.1518 64.6228,69.0853 64.626,69.0769 64.593,69.0517 64.4604,69.0139 64.3847,68.9318 64.3847,68.875 64.4288,68.7929 64.574,68.7866 64.7003,68.8182 64.877,68.7487 65.0538,68.7235 65.199,68.7235 65.2242,68.6414 65.3442,68.5594 65.4136,68.5215 65.483,68.4647 65.3883,68.4268 65.3252,68.3637 65.2179,68.2879 65.1422,68.1869 65.1737,68.0859 65.1737,67.9723 65.2495,67.8713 65.3883,67.8397 65.5272,67.8334 65.7355,67.8461 65.8302,67.8839 65.9186,67.8271 65.8933,67.7135 66.0512,67.6756 66.0827,67.6062 65.9438,67.5809 65.7987,67.5809 65.6977,67.5683 65.6977,67.4989 65.8618,67.4862 65.9502,67.4799 65.988,67.3726 65.7482,67.3158 65.603,67.2969 65.584,67.259 65.4704,67.2211 65.2432,67.1643 65.1043,67.1012 65.0853,67.0317 64.997,67.0128 64.997,66.836 64.8013,66.7919 64.5362,66.754 64.4288,66.6845 64.2395,66.615 64.1132,66.615 63.9933,66.6024 63.8733,66.6087 63.785,66.533 63.7092,66.514 63.5956,66.4762 63.5198,66.432 63.4125,66.432 63.3115,66.4383 63.2736,66.3688 63.1979,66.3247 63.1411,66.2678 63.2105,66.2363 63.16,66.1921 63.0653,66.23 62.9833,66.1984 62.9012,66.1353 62.8381,66.0532 62.756,66.0343 62.7245,65.9838 62.7434,65.9775 62.7686,65.9207 62.7181,65.8891 62.756,65.8449 62.7497,65.8197 62.6676,65.8197 62.5288,65.807 62.2763,65.7439 62.0175,65.6682 61.7776,65.6492 61.6324,65.5735 61.4809,65.4788 61.3294,65.3652 61.2347,65.321 61.1526,65.2831 61.241,65.2389 61.2094,65.2137 61.1526,65.1758 61.0958,65.119 61.0011,65.1063 60.9759,65.0369 60.8244,64.999 60.7171,65.018 60.7108,64.9738 60.6098,64.8791 60.5024,64.8475 60.4961,64.8854 60.4267,64.917 60.3257,64.9675 60.3383,65.0053 60.2058,65.0243 60.0543,65.0243 59.928,64.9359 59.7513,64.8349 59.6061,64.7781 59.5429,64.7023 59.5934,64.6392 59.5934,64.6013 59.5303,64.5761 59.4735,64.513 59.3914,64.4561 59.4609,64.4246 59.5051,64.3993 59.5493,64.2668 59.4798,64.2226 59.5556,64.1468 59.6439,64.0963 59.7639,64.1026 59.726,64.0143 59.6628,63.9574 59.5366,63.9006 59.4734,63.888 59.4734,63.8059 59.4419,63.7807 59.4103,63.6797 59.3724,63.5282 59.3156,63.4398 59.2336,63.3514 59.2588,63.3073 59.1894,63.2946 59.2336,63.2315 59.1704,63.1494 59.202,63.0674 59.1326,63.0232 59.1326,62.9664 59.2209,62.9033 59.3409,62.8843 59.3724,62.8212 59.3535,62.7391 59.3093,62.7076 59.3156,62.6634 59.3472,62.5876 59.4356,62.4803 59.5555,62.474 59.4861,62.3667 59.4987,62.3036 59.4482,62.2783 59.404,62.2594 59.404,62.2026 59.303,62.07 59.3851,61.9437 59.2967,61.8617 59.2336,61.8175 59.2336,61.7607 59.2904,61.7102 59.2399,61.6281 59.101,61.5839 59.0379,61.5902 58.9495,61.5018 58.899,61.5081 58.8233,61.5081 58.7159,61.4639 58.5265,61.4639 58.0152,61.4513 57.2199,61.4576 57.0936,61.4703 57.0305,61.4324 56.5697,61.4639 56.557,61.445 56.4876,61.445 56.4497,61.3882 56.2919,61.3945 56.2162,61.2809 56.2414,61.2493 56.1972,61.1546 55.7238,61.2051 55.6418,61.0284 55.181,61.0852 55.1115,60.959 54.96,60.9779 54.9537,60.9085 54.8653,60.8201 53.7669,60.94 53.7164,60.7948 53.2367,60.8516 53.2935,60.9779 52.7759,61.041 52.6938,60.8958 52.334,60.9274 52.2583,60.7885 51.7911,60.8264 51.6712,60.555 52.0626,60.4918 52.031,60.4287 52.2456,60.4161 52.2267,60.3403 52.2456,60.3151 52.2001,60.1929 52.1363,60.2161 52.0686,60.2393 52.0086,60.2664 51.9525,60.2664 51.9003,60.2451 51.8249,60.2103 51.7552,60.1503 51.7204,60.0807 51.6759,60.0517 51.5947,60.0033 51.5038,59.9472 51.4303,59.8969 51.3781,59.895 51.3162,59.8911 51.2871,59.9143 51.2755,59.9511 51.2504,59.9666 51.1517,59.9937 51.0666,60.013 50.9718,60.0072 50.9196,59.9608 50.8268,59.8969 50.761,59.866 50.7475,59.835 50.7107,59.8118 50.6314,59.8118 50.583,59.8157 50.5037,59.806 50.3992,59.7905 50.3141,59.7924 50.2174,59.7712 50.1768,59.7576 50.1652,59.7363 50.14,59.7035 50.1149,59.7073 50.0356,59.7073 49.9466,59.7247 49.8982,59.7305 49.8615,59.7131 49.8537,59.6996 49.9253,59.6551 49.9524,59.6454 49.9485,59.6358 49.8847,59.6261 49.8054,59.6145 49.7512,59.6125 49.7318,59.5951 49.7125,59.5371 49.6873,59.4616 49.6951,59.4403 49.7202,59.4345 49.7164,59.3862 49.6989,59.3378 49.7222,59.3223 49.7164,59.2914 49.7183,59.2566 49.6951,59.1715 49.6525,59.1695 49.6158,59.154 49.5094,59.1637 49.4359,59.1792 49.4088,59.1927 49.4088,59.2217 49.4378,59.2972 49.4513,59.3436 49.3836,59.3552 49.3005,59.3572 49.2444,59.3668 49.2328,59.3842 49.2192,59.4094 49.1883,59.4191 49.0935,59.4326 49.0722,59.45 49.0335,59.4577 48.9929,59.4326 48.9349,59.4326 48.9871,59.6067 48.9581,59.6125 48.9175,59.6144 48.4106,59.6531 48.4029,59.7015 48.3913,59.7459 48.399,59.8233 48.3952,59.8814 48.3952,59.9394 48.3662,59.9994 48.3584,60.0632 48.3545,60.1057 48.3681,60.1541 48.4164,60.1812 48.6041,60.2547 48.608,60.276 48.6254,60.2856 48.6602,60.3185 48.5693,60.3572 48.5538,60.3437 48.5209,60.3495 48.4571,60.3611 48.4397,60.3669 48.4706,60.3824 48.5054,60.3746 48.5132,60.394 48.4029,60.4404 48.4106,60.4655 48.3874,60.4771 48.4406,60.5082 48.4333,60.5521 48.4077,60.6105 48.3675,60.7165 48.321,60.8023 48.2896,60.8023 47.9593,60.8292 47.8852,60.8405 47.8807,60.8585 47.8672,60.9034 47.8604,60.9528 47.8402,60.9551 47.7953,60.946 47.7413,60.9663 47.6829,60.9753 47.5728,60.9775 47.5301,61.0 47.4695,61.0045 47.4021,60.9977 47.3571,60.991 47.1347,61.0134 47.0987,61.0112 47.1032,60.973 47.0785,60.9393 47.0089,60.9191 46.9954,60.8517 46.9729,60.8045 46.9437,60.8045 46.9639,60.7865 46.9841,60.7753 46.928,60.6764 46.8898,60.636 46.8561,60.6202 46.8606,60.6 46.8965,60.5933 46.928,60.5865 46.9213,60.5506 46.964,60.5214 46.8561,60.5079 46.8584,60.49 46.7977,60.472 46.7572,60.4697 46.764,60.4563 46.7775,60.4338 46.7078,60.3417 46.7325,60.3372 46.7011,60.2967 46.7078,60.29 46.7123,60.2743 46.6359,60.1956 46.6179,60.2069 46.5258,60.2293 46.427,60.2046 46.3416,60.2248 46.2629,60.2001 46.209,60.2069 46.2,60.1956 46.2015,60.1946 46.2517,60.1597 46.2742,60.0945 46.2562,60.0743 46.3079,60.0541 46.3506,60.0653 46.3933,60.0541 46.4607,60.0361 46.5146,60.0204 46.5595,60.0316 46.5708,60.0159 46.6247,60.0114 46.6359,60.0249 46.6561,60.0316 46.6719,60.0181 46.7348,60.0294 46.7685,60.0541 46.782,60.0496 46.7999,60.0743 46.937,60.0765 46.9415,60.0518 46.8202,59.7979 46.8224,59.7373 47.0134,59.7125 47.0224,59.6946 47.0426,59.6676 47.0133,59.5573 46.9757,59.4372 46.9557,59.3296 47.1534,59.3045 47.1209,59.1819 47.2185,59.1293 47.2986,59.1043 47.3437,59.1193 47.3487,59.0792 47.3712,59.0717 47.4263,59.0342 47.4738,59.0092 47.4613,58.9841 47.4538,58.919 47.4939,58.889 47.5039,58.8615 47.4688,58.8514 47.4188,58.8389 47.3887,58.8339 47.3612,58.8364 47.3637,58.8615 47.3387,58.864 47.2711,58.864 47.2035,58.8615 47.1835,58.8439 47.201,58.8064 47.181,58.7713 47.226,58.7538 47.2135,58.7438 47.1359,58.7013 47.0834,58.7238 47.0233,58.7238 46.9982,58.6988 46.9156,58.6587 46.9081,58.6136 46.8731,58.5611 46.773,58.5536 46.6603,58.531 46.5677,58.516 46.5627,58.5386 46.5277,58.5335 46.4901,58.511 46.4926,58.466 46.4501,58.4284 46.4801,58.4059 46.4826,58.3784 46.4526,58.3683 46.4175,58.3408 46.3374,58.3308 46.3149,58.3058 46.3499,58.3008 46.3725,58.3033 46.375,58.2857 46.3224,58.2657 46.3099,58.2332 46.3174,58.1631 46.2598,58.1406 46.2398,58.0905 46.2098,58.0655 46.2373,58.0529 46.2421,58.0247 46.2744,58.0108 46.3066,57.9855 46.3643,57.9693 46.4081,57.9832 46.4519,57.9901 46.5142,57.9739 46.6272,57.9762 46.8071,57.9739 47.0423,57.9762 47.2222,57.9739 47.2937,57.9739 47.3537,57.9417 47.5174,57.9024 47.6028,57.9117 47.665,57.8564 47.6489,57.8241 47.5751,57.8056 47.5013,57.7826 47.4552,57.7434 47.4759,57.6972 47.4275,57.6673 47.4344,57.635 47.4367,57.6004 47.4298,57.5404 47.386,57.5312 47.3747,57.4838 47.2763,57.4808 47.2655,57.5008 47.2083,57.5044 47.1944,57.5172 47.1419,57.5186 47.1213,57.5013 47.0805,57.4977 47.0074,57.4691 46.8497,57.453 46.7961,57.4674 46.7241,57.4644 46.6826,57.4782 46.6457,57.4759 46.6549,57.4621 46.6756,57.4321 46.7056,57.4228 46.6895,57.3998 46.6687,57.3952 46.6434,57.3744 46.6203,57.3721 46.5903,57.3629 46.6065,57.3398 46.6226,57.349 46.6618,57.3375 46.648,57.3214 46.5811,57.3075 46.5765,57.296 46.6088,57.2522 46.6526,57.2476 46.6872,57.243 46.7056,57.1991 46.7494,57.1853 46.7333,57.1484 46.6664,57.1553 46.6249,57.1484 46.6249,57.1161 46.6641,57.1 46.6595,57.0377 46.6664,56.9777 46.6272,56.9754 46.6134,56.957 46.6503,56.9339 46.6203,56.9178 46.6434,56.9039 46.6018,56.9016 46.6295,56.8809 46.6941,56.8763 46.7702,56.8901 46.8463,56.8993 46.9293,56.867 46.9708,56.8832 47.0608,56.8601 47.0677,56.8048 47.0308,56.7909 47.0746,56.7586 47.0931,56.7863 47.1254,56.784 47.1807,56.7886 47.2569,56.8024 47.3122,56.8163 47.3376,56.8301 47.386,56.8047 47.4022,56.807 47.4137,56.8555 47.4506,56.8647 47.4598,56.8831 47.4829,56.8855 47.5152,56.9224 47.5451,56.9385 47.5867,56.9662 47.6259,56.9546 47.6697,56.95 47.6651,56.9685 47.6259,56.9915 47.6282,57.0008 47.6697,57.0146 47.6974,57.0008 47.7158,56.9662 47.7458,56.9385 47.7827,56.9477 47.8127,56.9247 47.8196,56.9639 47.845,56.9569 47.8565,56.9316 47.8795,56.9247 47.8888,56.9385 47.8888,56.9639 47.9164,56.9593 47.9441,56.9454 47.9718,56.9569 47.9902,56.9523 48.041,56.9523 48.0571,56.9708 48.0733,56.9708 48.1056,56.9731 48.1009,56.9985 48.0571,57.0215 48.0687,57.0354 48.1309,57.0354 48.1448,57.0607 48.0917,57.07 48.0963,57.0792 48.1494,57.0838 48.1817,57.0953 48.1863,57.1138 48.2001,57.1207 48.2555,57.1069 48.2647,57.0884 48.304,57.085 48.327,57.085 48.3501,57.0689 48.417,57.1023 48.4262,57.115 48.4423,57.1208 48.4804,57.1219 48.4919,57.1127 48.5288,57.1046 48.5715,57.1046 48.5807,57.13 48.6407,57.1242 48.7352,57.1115 48.7295,57.0919 48.7641,57.0781 48.7594,57.0585 48.7422,57.0424 48.7872,57.0297 48.8414,57.0343 48.8771,57.0527 48.9013,57.0689 48.9025,57.0839 48.9059,57.1323 48.9163,57.145 48.9428,57.1484 48.9463,57.1657 48.929,57.1727 48.9117,57.175 48.9071,57.2119 48.9267,57.2407 48.9797,57.2465 49.004,57.2557 49.0443,57.2707 49.0789,57.281 49.0881,57.2753 49.1031,57.258 49.1262,57.2476 49.1262,57.2361 49.0997,57.2269 49.0881,57.2072 49.0789,57.1796 49.0835,57.1623 49.0766,57.1554 49.042,57.1323 49.0397,57.115 49.0524,57.0954 49.102,57.085 49.1296,57.0793 49.1285,57.0389 49.155,57.002 49.23,56.9882 49.3061,56.9731 49.328,56.9777 49.3199,56.9893 49.3119,57.0043 49.3592,57.0089 49.3753,57.0066 49.4133,57.0089 49.4283,57.0239 49.5137,57.0216 49.6036,57.0239 49.6163,57.0192 49.6036,56.9904 49.6071,56.9812 49.6209,56.9789 49.6244,56.942 49.6509,56.9385 49.6624,56.9155 49.6198,56.8832 49.6567,56.8682 49.6324,56.8532 49.6394,56.8428 49.6993,56.8382 49.742,56.844 49.7731,56.8428 49.8562,56.8128 49.9138,56.8163 49.9253,56.8128 49.9703,56.7817 49.9622,56.7483 49.9726,56.7379 49.998,56.7471 50.0072,56.7148 49.983,56.6698 49.9795,56.6479 49.9692,56.6157 49.9818,56.5995 49.9738,56.573 50.0414,56.5657 50.0652,56.5752 50.0795,56.6062 50.0985,56.6109 50.1318,56.6109 50.1628,56.5919 50.1961,56.5895 50.2176,56.599 50.2033,56.6205 50.2176,56.63 50.2533,56.6205 50.2985,56.5943 50.3128,56.5681 50.3128,56.5419 50.3414,56.5371 50.3509,56.5633 50.37,56.5705 50.3938,56.5633 50.3462,56.5085 50.3485,56.4919 50.4009,56.4562 50.4009,56.4323 50.4152,56.4109 50.4462,56.3776 50.4867,56.349 50.5224,56.3609 50.5248,56.3514 50.5128,56.3228 50.4795,56.3085 50.4914,56.3038 50.5224,56.3061 50.5724,56.2895 50.6295,56.2823 50.6748,56.3014 50.6867,56.3157 50.6581,56.3514 50.6867,56.3633 50.7224,56.3419 50.7534,56.3395 50.7795,56.3085 50.7653,56.2966 50.7795,56.2704 50.8057,56.2633 50.7986,56.2276 50.7557,56.2204 50.7557,56.2109 50.7391,56.2085 50.7367,56.1918 50.7915,56.168 50.8557,56.149 50.9272,56.1013 50.9629,56.0894 50.97,56.0728 51.0129,56.1013 51.1058,56.0918 51.1129,56.0513 51.1725,56.0466 51.1915,56.0228 51.2367,56.0228 51.2367,56.0418 51.2677,56.0775 51.3377,56.0921 51.4006,56.08 51.4683,56.0994 51.5385,56.1042 51.5506,56.0873 51.5143,56.0583 51.3958,56.0292 51.3474,55.9784 51.3039,55.947 51.3111,55.8914 51.3426,55.8744 51.3692,55.8865 51.4659,55.8986 51.4925,55.8938 51.5409,55.9035 51.5893,55.8865 51.611,55.9131 51.628,55.9156 51.6304,55.8841 51.6715,55.8696 51.6763,55.8357 51.6884,55.8309 51.7102,55.8599 51.7513,55.8769 51.8191,55.8914 51.8263,55.9301 51.8578,55.9349 51.8771,55.9107 51.9255,55.9107 51.9715,55.8817 51.9449,55.8648 51.9545,55.8454 52.073,55.8454 52.0972,55.889 52.148,55.8817 52.1529,55.9131 52.1021,55.9397 52.1117,55.9809 52.1504,55.9905 52.1432,56.0171 52.1142,56.0026 52.09,56.0026 52.0755,56.0196 52.0972,56.0317 52.1674,56.0365 52.1795,56.0196 52.1891,56.0244 52.2133,56.0268 52.2496,55.9857 52.3198,55.9954 52.3343,55.9809 52.3826,55.9833 52.3512,56.0147 52.3706,56.0244 52.4528,56.0171 52.5616,55.9664 52.6269,56.0171 52.6197,56.0558 52.6003,56.0679 52.5931,56.097 52.6342,56.0897 52.6366,56.0752 52.6681,56.0679 52.6874,56.0462 52.7334,56.0413 52.7527,56.0704 52.7164,56.08 52.743,56.1139 52.7068,56.1332 52.7189,56.1526 52.6463,56.1599 52.6076,56.184 52.5616,56.1744 52.5495,56.1889 52.4746,56.1744 52.46,56.2131 52.5036,56.2397 52.535,56.2397 52.5326,56.2566 52.5495,56.2711 52.5834,56.3026 52.6415,56.3243 52.6245,56.3437 52.6753,56.3606 52.7213,56.3364 52.7576,56.3534 52.8132,56.3679 52.8325,56.3872 52.8543,56.3945 52.8543,56.4187 52.7406,56.4525 52.7285,56.4767 52.8156,56.4501 52.8398,56.467 52.8325,56.4936 52.8954,56.4912 52.9559,56.4719 52.9922,56.484 52.9922,56.4646 52.9656,56.4501 52.9632,56.4235 52.8954,56.3703 52.835,56.3219 52.8809,56.3025 52.8422,56.259 52.8592,56.2518 52.8761,56.23 52.8568,56.2082 52.9003,56.1768 52.893,56.1429 52.9196,56.1308 52.939,56.1574 52.9656,56.1332 52.939,56.097 52.9632,56.0824 52.9849,56.0994 53.043,56.1139 53.0623,56.0728 53.1277,56.0679 53.1567,56.0413 53.2486,56.0316 53.2438,56.0655 53.2389,56.1042 53.1954,56.155 53.1567,56.1913 53.1881,56.2179 53.2994,56.2276 53.3526,56.2179 53.4493,56.1961 53.4397,56.1598 53.4566,56.1357 53.4373,56.0776 53.3671,56.0655 53.3163,55.9833 53.251,55.9373 53.2075,55.8986 53.1639,55.8865 53.0841,55.8889 53.0841,55.8696 53.2026,55.8019 53.3599,55.8357 53.5316,55.8648 53.5703,55.8696 53.6162,55.8357 53.6719,55.8357 53.7203,55.8236 53.7807,55.8309 53.8194,55.7922 53.8775,55.8019 53.9016,55.785 53.8799,55.7777 53.8702,55.7656 53.8629,55.7342 53.8823,55.7293 53.9307,55.7535 53.9524,55.739 53.9234,55.7076 53.9476,55.6906 53.9984,55.7318 54.0081,55.7052 54.0661,55.6616 54.1338,55.6423 54.1338,55.6278 54.0855,55.6036 54.0831,55.5745 54.0444,55.5673 53.9839,55.5383 53.9065,55.5092 53.8896,55.4826 53.8944,55.4415 53.8605,55.4294 53.8267,55.4028 53.8291,55.3762 53.8049,55.3375 53.7468,55.3157 53.6114,55.2891 53.5799,55.2335 53.5098,55.2166 53.505,55.1827 53.4856,55.1609 53.3985,55.1513 53.3477,55.1706 53.2824,55.1682 53.2413,55.1488 53.2437,55.1222 53.2147,55.1101 53.1518,55.115 53.043,55.1005 53.043,55.0521 53.1035,55.0279 53.1567,55.0085 53.1567,54.9723 53.1688,54.9602 53.205,54.9505 53.297,54.9553 53.3477,54.9021 53.3913,54.8489 53.4348,54.8271 53.5001,54.8562 53.5388,54.8441 53.5171,54.8223 53.4808,54.7667 53.5098,54.7594 53.505,54.7376 53.4856,54.7352 53.4759,54.7159 53.4759,54.6965 53.505,54.6844 53.5025,54.653 53.43,54.5877 53.3647,54.5393 53.3139,54.5127 53.3139,54.4934 53.3235,54.4643 53.3211,54.4401 53.2921,54.4063 53.2921,54.3845 53.2582,54.3603 53.2437,54.3386 53.2558,54.3047 53.2969,54.2466 53.3381,54.2176 53.3066,54.1741 53.3356,54.1378 53.326,54.0967 53.3574,54.0676 53.3574,54.0314 53.3719,53.9927 53.309,53.9782 53.2848,53.9153 53.251,53.9298 53.2437,53.954 53.1808,53.9806 53.1857,54.0072 53.1687,54.0241 53.1083,54.0289 53.0913,54.0435 53.0236,54.0193 52.9656,54.0193 52.9922,54.0676 52.9365,54.0725 52.8422,54.162 52.8519,54.1813 52.9099,54.1692 52.9438,54.1862 53.0091,54.2031 53.0115,54.2442 52.9486,54.2878 52.9003,54.2587 52.9365,54.237 52.922,54.2152 52.8761,54.22 52.8374,54.22 52.7793,54.2225 52.7963,54.2442 52.8374,54.237 52.835,54.266 52.7866,54.266 52.7334,54.2757 52.6366,54.3047 52.5689,54.3119 52.5254,54.2829 52.5036,54.3071 52.4371,54.3301 52.406,54.3435 52.3927,54.3612 52.4082,54.3879 52.3882,54.4123 52.3482,54.4257 52.3083,54.4212 52.3038,54.3879 52.2816,54.3635 52.2483,54.3724 52.266,54.3857 52.266,54.4101 52.2172,54.4035 52.1505,54.399 52.1038,54.3879 52.1038,54.3568 52.0861,54.3568 52.0105,54.3524 52.0016,54.3279 52.0172,54.3124 52.0172,54.2968 51.9883,54.2879 51.9661,54.3057 51.9527,54.3635 51.915,54.3857 51.8839,54.3768 51.8305,54.3812 51.8417,54.4212 51.8394,54.4679 51.8105,54.4879 51.7484,54.4834 51.6551,54.499 51.5707,54.5167 51.504,54.5567 51.424,54.599 51.3951,54.5501 51.2951,54.539 51.2929,54.5723 51.3018,54.6212 51.264,54.619 51.1685,54.5812 51.1218,54.6012 51.0596,54.5901 51.0374,54.5545 50.9974,54.5034 50.9685,54.5012 50.9085,54.5034 50.8908,54.4501 50.9152,54.4279 50.8952,54.4123 50.8885,54.3657 50.8463,54.3346 50.8508,54.2946 50.8108,54.2946 50.7774,54.3234 50.7086,54.3257 50.5997,54.379 50.5241,54.3501 50.4664,54.2968 50.4019,54.2901 50.3886,54.3257 50.3731,54.3701 50.3242,54.3768 50.2953,54.4345 50.2553,54.4301 50.2553,54.4145 50.2131,54.3945 50.1575,54.3945 50.1198,54.4545 50.042,54.4545 49.9798,54.4634 49.9398,54.4768 49.8813,54.4552 49.863,54.4715 49.8447,54.4857 49.8265,54.4836 49.7615,54.4816 49.6965,54.5141 49.6132,54.5263 49.5238,54.51 49.4588,54.5222 49.4832,54.5425 49.4669,54.5568 49.408,54.5669 49.4182,54.5913 49.4588,54.6055 49.4568,54.6218 49.3958,54.64 49.3918,54.6543 49.4304,54.6685 49.3958,54.6807 49.3735,54.7335 49.3166,54.7477 49.3065,54.7782 49.2841,54.7904 49.2658,54.7863 49.2435,54.7924 49.1744,54.8411 49.15,54.829 49.1561,54.8066 49.1257,54.7924 49.0891,54.8046 49.0363,54.7863 49.0363,54.7538 49.0079,54.7416 48.9388,54.7497 48.8779,54.7233 48.7864,54.6522 48.7194,54.5974 48.6808,54.5974 48.5508,54.6055 48.4554,54.6055 48.3782,54.5791 48.2664,54.6461 48.24,54.6522 48.1994,54.6279 48.1649,54.6421 48.1954,54.6644 48.1994,54.6908 48.1486,54.6868 48.0694,54.6766 48.0186,54.6868 47.9963,54.7111 47.9719,54.7193 47.9435,54.6908 47.9191,54.6847 47.8907,54.699 47.846,54.6766 47.8094,54.6015 47.7383,54.5933 47.7119,54.6157 47.7424,54.638 47.7464,54.6665 47.7241,54.6847 47.6611,54.6868 47.6408,54.6807 47.653,54.6705 47.6449,54.6461 47.6144,54.6218 47.5738,54.5791 47.5453,54.5608 47.5514,54.5202 47.4844,54.4877 47.4397,54.4918 47.3828,54.504 47.3402,54.4857 47.3138,54.4511 47.265,54.4654 47.2589,54.4958 47.2427,54.5547 47.2163,54.5832 47.2528,54.5913 47.2589,54.6177 47.2061,54.6319 47.2081,54.6583 47.0833,54.6053 47.0477,54.6095 46.9928,54.64 46.9359,54.6319 46.8669,54.6258 46.7673,54.5791 46.7267,54.5852 46.7145,54.6136 46.6739,54.6258 46.5866,54.6278 46.5459,54.6481 46.4281,54.705 46.3448,54.7192 46.3306,54.6908 46.3306,54.6583 46.3672,54.6238 46.4261,54.5953 46.3367,54.5364 46.3509,54.5202 46.4281,54.5445 46.4383,54.5324 46.422,54.5222 46.4403,54.5019 46.3773,54.447 46.3875,54.441 46.4403,54.4491 46.4911,54.4592 46.483,54.4328 46.4322,54.4186 46.4119,54.4024 46.4484,54.3475 46.5338,54.3597 46.6292,54.3374 46.6414,54.3069 46.6191,54.2581 46.5338,54.2358 46.4748,54.2074 46.4302,54.2155 46.3814,54.2053 46.3367,54.1728 46.2433,54.1484 46.227,54.1545 46.2027,54.1566 46.1844,54.1322 46.1295,54.1322 46.0625,54.1058 45.9467,54.118 45.8837,54.0997 45.8594,54.0509 45.8269,54.0266 45.7944,53.9758 45.7599,53.9575 45.703,53.9392 45.7416,53.9149 45.8107,53.9372 45.8574,53.9636 45.9244,53.9453 45.9325,53.9271 45.9894,53.925 46.0199,53.8966 46.0971,53.8763 46.1154,53.8377 46.0889,53.8113 46.1194,53.7706 46.1885,53.7585 46.1641,53.7138 46.1804,53.7016 46.2352,53.7158 46.2982,53.6224 46.3814,53.6041 46.4018,53.5716 46.3652,53.5594 46.3713,53.5025 46.3855,53.5005 46.4058,53.4802 46.3835,53.4639 46.4261,53.4518 46.4708,53.4253 46.5541,53.4355 46.5866,53.4294 46.5785,53.3949 46.6151,53.3949 46.6354,53.3685 46.6902,53.3624 46.7085,53.3339 46.7349,53.3339 46.7552,53.3075 46.8019,53.2974 46.804,53.2466 46.8365,53.2385 46.8466,53.206 46.7816,53.1958 46.7674,53.1389 46.7694,53.1207 46.8507,53.141 46.871,53.1288 46.8283,53.1003 46.8486,53.078 46.806,53.0333 46.8344,52.8688 46.8019,52.8424 46.8019,52.8139 46.8751,52.7916 46.8547,52.753 46.8933,52.7185 46.8669,52.7124 46.8283,52.7103 46.808,52.6778 46.7552,52.6758 46.7126,52.6352 46.728,52.5691 46.6572,52.5716 46.5913,52.5893 46.5483,52.607 46.5129,52.6248 46.5179,52.6729 46.48,52.683 46.4572,52.6577 46.399,52.645 46.3154,52.6349 46.3104,52.6197 46.2597,52.6298 46.2015,52.6324 46.1737,52.602 46.1813,52.5767 46.1636,52.564 46.1281,52.5716 46.1028,52.5488 46.0598,52.5564 46.0497,52.5438 46.0547,52.5159 46.0395,52.4982 46.0117,52.5058 45.9864,52.5134 45.9687,52.4855 45.8927,52.4552 45.8674,52.4349 45.9079,52.4223 45.913,52.4045 45.8775,52.3868 45.8851,52.3539 45.8066,52.3716 45.7484,52.3868 45.6826,52.3944 45.6598,52.4121 45.6143,52.4071 45.6193,52.4425 45.6396,52.4704 45.5839,52.4628 45.5282,52.4704 45.4826,52.4349 45.427,52.4324 45.4143,52.3818 45.3713,52.3818 45.3409,52.3514 45.2979,52.364 45.2523,52.3691 45.1688,52.3387 45.0903,52.3615 45.0371,52.3666 44.9891,52.3337 44.9713,52.321 44.9992,52.3008 44.9435,52.2653 44.8776,52.3184 44.8194,52.3184 44.7966,52.3437 44.784,52.3868 44.7181,52.4019 44.6751,52.4247 44.6144,52.4247 44.5612,52.4323 44.5207,52.4526 44.4473,52.5032 44.3967,52.4754 44.4372,52.4399 44.4119,52.4121 44.4448,52.3792 44.3941,52.3741 44.3106,52.3614 44.2878,52.3133 44.2347,52.2982 44.2575,52.2703 44.222,52.2653 44.0879,52.2956 44.0625,52.2779 43.9107,52.3032 43.8195,52.3488 43.7537,52.3488 43.6803,52.3868 43.5538,52.3614 43.4576,52.3741 43.3664,52.3488 43.2854,52.3463 43.2323,52.3437 43.2044,52.3969 43.1083,52.4146 43.0551,52.4019 43.0197,52.3538 42.9719,52.3533 42.9524,52.3489 42.922,52.3294 42.9025,52.3142 42.8657,52.3229 42.8331,52.3294 42.8179,52.3099 42.8266,52.286 42.8288,52.26 42.8006,52.2361 42.7572,52.1906 42.703,52.1646 42.6509,52.1299 42.6531,52.0583 42.6531,52.0214 42.6878,51.9802 42.7117,51.9607 42.6466,51.9564 42.5902,51.9065 42.5859,51.8111 42.5165,51.7373 42.382,51.6419 42.3799,51.6115 42.4124,51.579 42.3885,51.5573 42.5924,51.4445 42.677,51.3827 42.763,51.3213 42.7261,51.2784 42.8059,51.1802 42.763,51.1863 42.6463,51.1863 42.5175,51.1433 42.4377,51.1127 42.2904,51.1065 42.0449,51.082 41.8792,51.1372 41.7564,51.1311 41.6766,51.0329 41.603,50.9408 41.4373,50.8978 41.2654,50.8426 41.2715,50.7689 41.1733,50.7628 41.0445,50.7198 41.2347,50.6462 41.3022,50.5664 41.4311,50.5541 41.425,50.5173 41.3206,50.4743 41.3206,50.4252 41.3882,50.37 41.4127,50.3209 41.2654,50.1797 41.382,50.0324 41.4925,50.0079 41.4802,49.9342 41.5784,49.8974 41.7564,49.8545 41.8423,49.7992 42.0878,49.6273 42.0449,49.5844 42.008,49.4739 41.9774,49.4616 41.9467,49.3512 41.9774,49.3266 41.9896,49.2407 41.9283,49.2345 41.9589,49.1732 42.0019,49.0872 42.2106,49.1118 42.272,49.0811 42.2904,48.989 42.3763,49.0075 42.5604,48.9277 42.5604,48.8602 42.585,48.8172 42.6463,48.7435 42.5543,48.6638 42.5543,48.6331 42.5911,48.5471 42.5481,48.4919 42.1369,48.4367 41.9774,48.3507 42.051,48.228 41.9405,48.2157 41.9651,48.1666 42.0019,48.1114 41.9528,48.0807 41.9221,48.007 41.9589,47.9763 42.0756,47.9886 42.1799,47.9702 42.2229,48.0009 42.272,47.9702 42.364,47.9763 42.6463,47.7922 42.72,47.6326 42.8305,47.4669 42.8918,47.4669 42.9409,47.5283 43.0637,47.5283 43.0576,47.4362 43.211,47.4117 43.432,47.4362 43.567,47.3994 43.6161,47.4362 43.5363,47.5099 43.6038,47.6449 43.7081,47.7063 43.8554,47.7063 43.9598,47.7738 43.9168,47.8106 43.9843,47.8658 44.2912,47.8106 44.2851,47.8842 44.3587,47.9149 44.3649,47.9947 44.2176,48.0192 44.1869,48.1665 44.2176,48.2095 44.4447,48.1481 44.4385,48.007 44.5244,48.007 44.549,48.0438 44.7024,48.0008 44.8436,48.099 44.819,48.1543 44.8436,48.1727 45.0154,48.0683 45.1934,48.0499 45.31,48.0561 45.4451,47.9579 45.6046,48.0008 45.6353,47.9394 45.6046,47.8719 45.6046,47.8167 45.666,47.786 45.7213,47.6755 45.801,47.6571 45.8195,47.6019 45.9606,47.4914 46.2429,47.3871 46.5682,47.5957 46.7278,47.5221 46.4087,47.3564 46.7094,46.9452 46.826,46.9452 46.8751,46.804 47.0224,46.8101 47.1513,46.6874 47.0347,46.6321 46.8997,46.583 46.8322,46.5094 46.8628,46.3682 46.5682,46.3928 46.378,46.2271 46.7831,46.1964 46.7278,46.0245 47.0286,46.0736 47.0899,46.0429 46.9488,45.9386 46.8076,45.5151 47.2495,45.6379 47.452,45.4476 47.4533,45.4448 47.4534,45.4431 47.4153,45.3673 47.3552,45.3116 47.3049,45.1818 47.1749,45.0045 47.0693,44.8892 47.0505,44.8145 47.0076,44.7326 46.9671,44.7793 46.9222,44.7576 46.9039,44.7353 46.8833,44.7181 46.8211,44.6978 46.7907,44.6758 46.7075,44.641 46.6498,44.552 46.6149,44.4649 46.6333,44.3975 46.6483,44.375 46.6951,44.3417 46.7369,44.3382 46.766,44.346 46.9236,44.316 46.9464,44.3106 46.9718,44.2975 46.9911,44.2681 46.9976,44.2445 47.0193,44.1997 47.0894,44.1518 47.1145,44.1524 47.1998,44.0937 47.284,43.977 47.4241,43.7608 47.4348,43.7204 47.3854,43.6316 47.3264,43.5591 47.3023,43.5637 47.2976,43.5402 47.339,43.4538 47.3725,43.4539 47.3967,43.4823 47.3982,43.5221 47.4073,43.5848 47.4565,43.707 47.4726,43.7428 47.476,43.7655 47.4715,43.799 47.4844,43.8229 47.522,43.8427 47.5428,43.8506 47.5695,43.8511 47.6179,43.8198 47.5826,43.7853 47.5693,43.7665 47.5409,43.7142 47.5187,43.6728 47.5001,43.6355 47.4888,43.6069 47.4666,43.5486 47.4589,43.5248 47.4213,43.4072 47.4178,43.3778 47.4261,43.2831 47.4691,43.2672 47.491,43.2779 47.5133,43.2732 47.5198,43.2426 47.4714,43.1945 47.4351,43.1815 47.4217,43.167 47.3886,43.0407 47.4003,42.9653 47.472,42.9047 47.5488,42.8558 47.5701,42.8437 47.5902,42.837 47.6274,42.8188 47.6457,42.7791 47.6543,42.7254 47.6524,42.6985 47.6424,42.6736 47.6664,42.5944 47.6881,42.5767 47.7327,42.5656 47.7716,42.5577 47.799,42.5402 47.8208,42.5135 47.831,42.4957 47.8425,42.4723 47.8587,42.4411 47.8825,42.4107 47.9578,42.3388 47.9745,42.3254 48.0206,42.3041 48.0473,42.2826 48.2394,42.0454 48.2527,42.0103 48.2565,41.9886 48.3006,41.904 48.3277,41.8728 48.3574,41.8555 48.3811,41.8493 48.4125,41.8437 48.4391,41.8411 48.4757,41.8332 48.5172,41.7887 48.4645,41.7201 48.3703,41.5923 48.353,41.562 48.3331,41.5422 48.3116,41.5278 48.1824,41.4623 48.1623,41.4549 48.12,41.4456 48.0839,41.4414 48.0399,41.4335 48.0044,41.4172 47.8926,41.3093 47.8426,41.2315 47.8562,41.2051 47.8499,41.1786 47.7936,41.1615 47.7304,41.1523 47.6952,41.1501 47.6559,41.164 47.5863,41.1889 47.5654,41.1856 47.5342,41.1687 47.5108,41.1647 47.3062,41.2253 47.2098,41.2744 47.1961,41.3278 47.1943,41.3735 47.0937,41.5162 47.0646,41.5296 47.0276,41.5225 46.9568,41.5715 46.8759,41.637 46.7973,41.6878 46.7423,41.7219 46.7098,41.7485 46.7048,41.7837 46.6972,41.8131 46.5778,41.7705 46.5005,41.8345 46.441,41.8463 46.3878,41.8498 46.3824,41.8572 46.3617,41.8754 46.3363,41.8908 46.1754,41.9534 45.9906,41.9775 45.9234,41.9811 45.5919,42.1524 45.575,42.1727 45.5878,42.2042 45.6265,42.2713 45.6442,42.3083 45.6944,42.4174 45.697,42.4301 45.6877,42.4396 45.6644,42.4568 45.6374,42.4682 45.5129,42.4981 45.4898,42.5022 45.4638,42.5029 45.4251,42.4998 45.3693,42.4895 45.305,42.4792 45.2793,42.4927 45.2707,42.5108 45.2566,42.5301 45.1793,42.6027 45.1494,42.628 45.1025,42.6551 45.0805,42.6605 45.0577,42.6586 45.0291,42.6493 45.0038,42.6452 44.9834,42.6477 44.9476,42.6664 44.9119,42.6887 44.8926,42.7021 44.8688,42.713 44.8317,42.7134 44.7975,42.6986 44.7464,42.617 44.7037,42.6224 44.6888,42.6447 44.6435,42.6789 44.6163,42.6934 44.5869,42.7005 44.5764,42.7007 44.5677,42.7041 44.532,42.7101 44.4963,42.7115 44.4654,42.7082 44.4379,42.7027 44.3078,42.6599 44.1798,42.6079 44.162,42.5904 44.1339,42.5791 43.8511,42.5353 43.7165,42.556 43.6792,42.6014 43.7021,42.6249 43.7453,42.6539 43.7731,42.6809 43.7684,42.701 43.6958,42.7275 43.644,42.7325 43.6104,42.7427 43.5805,42.7615 43.5612,42.785 43.5372,42.7981 43.5001,42.8125 43.4723,42.8199 43.3868,42.8409 43.3329,42.8515 43.3175,42.8522 43.1473,42.8857 43.1241,42.896 43.0793,42.9182 42.9509,43.0152 42.8894,43.0728 42.7957,43.129 42.7102,43.137 42.6357,43.1315 42.6107,43.1105 42.5867,43.0958 42.5603,43.0968 42.4739,43.133 42.4247,43.1705 42.4013,43.1813 42.3652,43.1898 42.321,43.1901 42.3052,43.1887 42.2119,43.1893 42.1306,43.1877 42.1107,43.1823 42.0525,43.1484 41.9729,43.1388 41.5397,43.1726 41.5072,43.1835 41.3781,43.247 41.1565,43.3297 41.1358,43.3355 41.111,43.3381 41.0698,43.3353 41.0117,43.324 40.9841,43.3272 40.9571,43.3415 40.904,43.3746 40.8332,43.4164 40.8072,43.4279 40.7775,43.4343 40.7542,43.4379 40.687,43.4576 40.6622,43.4703 40.6393,43.4938 40.6238,43.497 40.5864,43.4946 40.5515,43.4795 40.5207,43.463 40.4866,43.4594 40.4622,43.4626 40.4324,43.4686 40.2966,43.51 40.2684,43.5204 40.2385,43.5267 40.1972,43.5334 40.1553,43.5354 40.1141,43.5318 40.0708,43.523 40.0428,43.5132 40.0253,43.5018 39.9654,43.3952 39.9535,43.3628 39.9472,43.3301 39.8901,43.3477 39.8614,43.364 39.8371,43.416 39.8192,43.4419 39.7901,43.4612 39.6413,43.5523 39.535,43.6252 39.4168,43.7082 39.3993,43.7216 39.3622,43.7603 39.3371,43.7944 39.3219,43.81 39.2322,43.8773 38.9972,44.0305 38.9098,44.0974 38.8752,44.11 38.8465,44.1146 38.8216,44.1207 38.7902,44.1398 38.7607,44.1645 38.7181,44.2106 38.6996,44.2233 38.5459,44.2793 38.5172,44.2836 38.36,44.2999 38.2974,44.3046 38.2707,44.3094 38.1665,44.3335 38.1441,44.339 38.1223,44.3503 38.1054,44.3656 38.0927,44.3904 38.0802,44.4162 38.0627,44.4387 37.8124,44.6422 37.7301,44.6728 37.7463,44.6397 37.7697,44.613 37.7607,44.5875 37.7058,44.5792 37.504,44.6035 37.4317,44.6207 37.322,44.692 37.2469,44.8087 37.2443,44.821 37.2572,44.8426 37.2241,44.8801 37.1509,44.9288 36.8308,45.0345 36.6654,45.0479 36.5745,45.076 36.5293,45.1412 36.6184,45.1541 36.6513,45.1486 36.6772,45.1521 36.7852,45.1767 36.8371,45.1957 36.9106,45.2277 36.9151,45.256 36.7184,45.3322 36.6677,45.3105 36.6466,45.2902 36.6187,45.2809 36.6288,45.3079 36.6736,45.3462 36.6998,45.3625 36.7761,45.3841 36.8447,45.372 37.0423,45.2889 37.0158,45.1995 37.0584,45.1832 37.1021,45.1881 37.1742,45.1974 37.2617,45.224 37.159,45.2474 37.152,45.2726 37.2648,45.27 37.3457,45.2648 37.382,45.2719 37.4095,45.2833 37.4311,45.2952 37.4684,45.3105 37.5443,45.2763 37.6607,45.2447 37.6821,45.2475 37.6879,45.3316 37.6487,45.5059 37.5899,45.5348 37.5719,45.5158 37.5946,45.4684 37.5937,45.4 37.5788,45.3723 37.555,45.3638 37.5313,45.3756 37.5385,45.5756 37.5496,45.5985 37.5779,45.6061 37.5927,45.5771 37.6168,45.5635 37.6521,45.5686 37.65,45.5763 37.6129,45.6082 37.64,45.6263 37.667,45.6395 37.7568,45.6879 37.7815,45.7094 37.7983,45.7309 37.8153,45.7647 37.8238,45.7867 37.831,45.8204 37.8376,45.8705 37.8593,45.9353 37.874,45.9591 37.8979,45.9798 37.9985,46.0066 38.0228,46.0068 38.0419,45.9999 38.0169,45.9015 38.0418,45.8928 38.1079,46.0511 38.1222,46.0658 38.1426,46.0772 38.1669,46.0833 38.2126,46.0783 38.2604,46.0452 38.3017,46.0207 38.3524,45.9927 38.3999,45.9739 38.4936,45.9743 38.5121,45.9909 38.5164,46.0386 38.4608,46.0768 38.3707,46.1149 38.2909,46.1464 38.242,46.166 38.2261,46.1909 38.2136,46.2198 38.1071,46.2956 38.0335,46.3372 38.0131,46.3438 37.9297,46.3405 37.9507,46.3146 37.9396,46.2929 37.8443,46.3544 37.7705,46.4272 37.684,46.6141 37.7234,46.6019 37.7518,46.5834 37.7919,46.5699 37.8198,46.5683 37.9469,46.5658 37.9715,46.5675 38.001,46.5778 38.0458,46.6151 38.0677,46.628 38.2132,46.6709 38.2364,46.651 38.248,46.6259 38.3335,46.5997 38.4029,46.5875 38.5303,46.604 38.527,46.6426 38.5034,46.6593 38.4284,46.6859 38.363,46.6899 38.3391,46.6812 38.3297,46.658 38.3121,46.6917 38.356,46.7735 38.4121,46.8051 38.4356,46.8069 38.5845,46.8057 38.6189,46.8076 38.6475,46.808 38.7226,46.8284 38.7454,46.836 38.859,46.8843 38.9346,46.9236 38.9594,46.9401 39.019,46.9735 39.128,46.9665 39.204,46.9547 39.2238,46.9634 39.2441,47.0233 39.2215,47.1772 39.2132,47.1959 39.1954,47.2094 39.0368,47.2265 39.0116,47.2238 38.9013,47.2003 38.8749,47.1633 38.7552,47.1085 38.706,47.1053 38.6041,47.082 38.5047,47.0576 38.4681,47.063 38.4315,47.0743 38.4489,47.1083 38.5075,47.1619 38.544,47.1707 38.6212,47.1826 38.688,47.1881 38.7132,47.1993 38.6193,47.1946 38.5496,47.1864 38.5269,47.1809 38.4904,47.1662 38.4684,47.1532 38.4335,47.1169 38.3974,47.0814 38.2994,47.068 38.2791,47.0658 38.2589,47.0718 38.1812,47.0556 38.1713,47.0741 38.1604,47.1338 38.1726,47.1569 38.1992,47.1743 38.2466,47.2473 38.1687,47.286 38.2259,47.4518 38.2462,47.5007 38.2989,47.5541 38.3987,47.5743 38.4414,47.5728 38.4821,47.5736 38.5224,47.5779 38.5549,47.5849 38.7026,47.635 38.715,47.6664 38.7342,47.7241 38.7669,47.7836 38.7903,47.802 38.8113,47.8097 38.8414,47.8136 38.8687,47.8135 38.9821,47.8109 39.0623,47.7828 39.0855,47.7798 39.1327,47.7882 39.1985,47.7981 39.2974,47.7976 39.3278,47.7908 39.3531,47.777 39.3755,47.7769 39.423,47.7848 39.5481,47.7844 39.5863,47.7779 39.6267,47.7689 39.6743,47.7647 39.7073,47.7745 39.7239,47.7876 39.7461,47.8138 39.7604,47.9195 39.7426,47.9461 39.7189,47.9692 39.846,48.1264 39.8597,48.1433 39.8833,48.162 39.9411,48.2421 39.8639,48.313 39.8095,48.4485 39.7911,48.5015 39.7572,48.5222 39.7325,48.5281 39.703,48.5268 39.6748,48.5269 39.6025,48.5482 39.6463,48.663 39.6694,48.7063 39.7247,48.7469 39.7502,48.7638 39.7709,48.7688 39.7988,48.7653 39.9632,48.7527 39.9813,48.7643 40.0107,48.7937 40.0165,48.8202 40.0008,48.8349 39.9684,48.8376 39.8918,48.8115 39.7175,48.8452 39.6357,48.9203 39.6401,48.9605 39.6474,48.9798 39.7653,48.9962 39.8592,48.9942 39.8832,49.0083 39.8809,49.0334 39.8925,49.0516 39.9081,49.0675 39.9417,49.0932 39.9956,49.1176 40.0229,49.1274 40.1089,49.1952 40.1199,49.2763 40.1136,49.2961 40.0899,49.314 40.0508,49.3474 40.03,49.3679 39.9956,49.4172 40.0003,49.449 40.0202,49.4739 40.0445,49.4856 40.077,49.4987 40.0899,49.5207 40.0807,49.5443 40.0092,49.5563 39.9839,49.5598 39.9396,49.5556 39.9161,49.5429 39.8953,49.524 39.8717,49.5118 39.8398,49.5026 39.801,49.495 39.7537,49.4936 39.5958,49.5508 39.5715,49.5705 39.5547,49.6117 39.5292,49.6644 39.4118,49.7003 39.3847,49.6995 39.3537,49.6883 39.325,49.6784 39.3017,49.6757 39.2705,49.6799 39.2384,49.6868 39.2083,49.6994 39.19,49.7171 39.1811,49.7455 39.145,49.8138 39.1259,49.8231 39.0639,49.7987 39.0342,49.7741 39.0149,49.7627 38.9139,49.75 38.8842,49.754 38.8634,49.7784 38.8415,49.8042 38.809,49.8173 38.7682,49.824 38.6318,49.878 38.595,49.9015 38.5572,49.9064 38.5306,49.9074 38.4901,49.8973 38.4488,49.8949 38.3276,49.9277 38.3044,49.9434 38.294,49.9652 38.2866,49.9888 38.2723,50.0081 38.2475,50.0161 38.1298,50.0079 38.047,49.8811 37.9678,49.8459 37.9572,49.877 37.9254,49.9119 37.8684,49.9671 37.7666,50.004 37.7366,50.0113 37.6894,50.0226 37.5928,50.1264 37.4056,50.3779 37.3622,50.38 37.2664,50.3706 37.2363,50.354 37.2145,50.3356 37.1895,50.3219 37.1607,50.3117 37.0745,50.2903 37.0034,50.2798 36.9611,50.2889 36.9201,50.2909 36.8362,50.2792 36.7549,50.2563 36.6622,50.2166 36.6384,50.2047 36.6147,50.1856 36.5964,50.1614 36.5534,50.1551 36.5235,50.1594 36.4991,50.1732 36.5051,50.2115 36.4225,50.2432 36.365,50.2558 36.3204,50.2377 36.2991,50.2294 36.2726,50.2228 36.2456,50.2257 36.2244,50.2365 36.1612,50.297 36.145,50.3154 36.134,50.3401 36.0938,50.364 36.0376,50.3731 36.005,50.3769 35.9533,50.381 35.9242,50.3802 35.8731,50.3776 35.8398,50.3753 35.8041,50.3714 35.7737,50.3649 35.6894,50.3271 35.6394,50.2892 35.6276,50.2888 35.591,50.2961 35.5443,50.3153 35.4048,50.4298 35.3876,50.4537 35.3457,50.5833 35.4322,50.6203 35.4069,50.7045 35.3038,50.8697 35.252,50.9016 35.2559,50.9236 35.291,50.9475 35.3164,50.9624 35.3147,50.983 35.2397,51.0007 35.1903,50.9918 35.1682,50.9893 35.1412,50.9894 35.1118,50.9994 35.0971,51.0148 35.0657,51.0927 35.0709,51.1194 35.0651,51.1402 35.0226,51.1615 34.9213,51.1643 34.8905,51.1568 34.8668,51.1385 34.7736,51.1187 34.7477,51.1143 34.7134,51.1122 34.6818,51.1131 34.6554,51.1151 34.6192,51.1194 34.4976,51.1741 34.3539,51.2044 34.3292,51.2044 34.187,51.3722 34.1922,51.4415 34.1818,51.4843 34.1101,51.5548 34.0488,51.588 34.0526,51.6148 34.1446,51.6367 34.2021,51.6411 34.3355,51.6552 34.3725,51.6682 34.3876,51.6948 34.3684,51.7442 34.3302,51.7832 34.2839,51.7964 34.1871,51.8511 34.0757,51.926 34.0302,51.977 34.0203,51.9981 34.0239,52.0608 34.046,52.0846 34.0091,52.1357 33.7782,52.3025 33.7088,52.3079 33.6356,52.2989 33.5754,52.2812 33.5485,52.2712 33.4599,52.2661 33.3647,52.2946 33.3258,52.304 33.1532,52.3179 32.986,52.245 32.9197,52.212 32.8896,52.1931 32.865,52.1871 32.7069,52.197 32.6798,52.2008 32.6491,52.2075 32.5876,52.2287 32.5572,52.24 32.5329,52.2488 32.5011,52.2594 32.4758,52.2635 32.3622,52.2748 32.3381,52.2734 32.3132,52.2583 32.2806,52.1088 32.2473,52.0485 32.1744,52.0192 32.0735,51.9842 31.9457,51.9942 31.8588,52.0091 31.85,52.0329 31.8059,52.0475 31.7752,52.0508 31.7338,52.0474 31.736,52.0637 31.7361,52.0972 31.7152,52.116 31.6515,52.1603 31.5437,52.2523 31.5559,52.2712 31.5787,52.3062 31.5586,52.4303 31.5367,52.5312 31.4547,52.6266 31.5047,52.6402 31.5433,52.6759 31.5368,52.7207 31.5292,52.7432 31.488,52.7933 31.4583,52.7959 31.4342,52.7999 31.3884,52.8181 31.365,52.8315 31.3404,52.8489 31.2164,52.9616 31.2643,52.9896 31.3362,53.0422 31.3242,53.06 31.3323,53.0917 31.3493,53.1266 31.3747,53.1468 31.572,53.1557 31.7251,53.1309 31.7378,53.1082 31.7482,53.0702 31.8667,53.0366 31.9063,53.0325 32.0604,53.0255 32.09,53.0276 32.1712,53.0438 32.2465,53.07 32.3693,53.134 32.3937,53.1531 32.559,53.2508 32.6713,53.2981 32.6831,53.3762 32.6865,53.3964 32.6118,53.4361 32.5877,53.4394 32.5671,53.4376 32.4206,53.4905 32.3905,53.5105 32.3712,53.5389 32.3675,53.5849 32.4521,53.6202 32.4307,53.6495 32.4031,53.6619 32.2762,53.6994 32.0668,53.7573 31.9404,53.7397 31.9187,53.7354 31.883,53.7263 31.8377,53.7152 31.7119,53.7416 31.7266,53.7744 31.7528,53.7935 31.7763,53.8236 31.8044,53.9067 31.8124,53.943 31.7928,53.998 31.7029,54.0416 31.6736,54.0432 31.6229,54.0434 31.4917,54.0799 31.4716,54.0877 31.2763,54.1797 31.258,54.2369 31.2596,54.2778 31.1734,54.3955 31.1462,54.3971 31.0782,54.4149 31.0402,54.4289 31.0348,54.4524 31.059,54.4838 31.0857,54.5127 31.0504,54.5815 30.9562,54.6453 30.8669,54.6873 30.824,54.7049 30.7857,54.717 30.7305,54.7349 30.7424,54.7794 30.7864,54.8581 30.8118,54.8829 30.8553,54.8895 30.8875,54.8995 30.9747,54.9838 30.925,55.0874 30.8909,55.1267 30.8649,55.1359 30.7629,55.2368 30.7785,55.265 30.8046,55.2885 30.8361,55.3103 30.8603,55.3133 30.8832,55.3341 30.8866,55.4304 30.8768,55.5124 30.873,55.5369 30.8612,55.5453 30.8317,55.553 30.7923,55.5491 30.7356,55.5291 30.7042,55.5316 30.6023,55.5951 30.5579,55.6522 30.4386,55.7333 30.4139,55.7396 30.1934,55.7885 29.9205,55.7904 29.8854,55.7872 29.855,55.7801 29.605,55.6996 29.4734,55.6273 29.4338,55.6266 29.3314,55.6944 29.3088,55.7311 29.359,55.8314 29.4046,55.8534 29.359,55.8919 29.1212,55.9495 29.0882,55.9557 29.0089,55.9666 28.9769,55.9631 28.9557,55.9576 28.8147,55.9121 28.7936,55.8851 28.6962,55.89 28.6755,55.9026 28.6569,55.9375 28.6505,55.9676 28.5999,56.025 28.5711,56.0332 28.4785,56.039 28.3295,56.024 28.2988,55.9895 28.2605,55.9851 28.1377,56.0676 28.1188,56.084 28.1343,56.0955 28.1477,56.1149 28.1865,56.21 28.1334,56.3395 28.0984,56.4044 28.0646,56.4505 27.9598,56.5811 27.8942,56.6557 27.8774,56.7267 27.8895,56.7552 27.8112,56.8013 27.7882,56.8083 27.753,56.8107 27.7132,56.8061 27.682,56.8019 27.6523,56.8471 27.7253,56.9894 27.7995,57.112 27.8142,57.1945 27.8057,57.2378 27.7756,57.2556 27.6375,57.3117 27.5569,57.3425 27.5218,57.3501 27.4782,57.3759 27.4934,57.4254 27.4976,57.4678 27.4221,57.4631 27.4001,57.4626 27.3756,57.4637 27.3228,57.4672 27.3135,57.4772 27.2992,57.5203 3732,9.0,Russia 105.2469,66.9106 105.2471,66.9104 105.2919,66.8851 105.3482,66.8519 105.4233,66.8368 105.4883,66.8404 105.5316,66.8497 105.5525,66.8396 105.5742,66.8216 105.6225,66.8122 105.6759,66.8036 105.7178,66.8022 105.7502,66.8022 105.7784,66.7986 105.795,66.7899 105.8,66.7697 105.7871,66.7524 105.7531,66.7336 105.712,66.7119 105.7105,66.6961 105.7315,66.6888 105.7575,66.6859 105.7957,66.6975 105.839,66.7033 105.8693,66.7098 105.8953,66.7062 105.9163,66.6982 105.9184,66.6831 105.8708,66.6643 105.8571,66.6592 105.8636,66.6419 105.8686,66.6231 105.9697,66.6037 105.9776,66.6 105.974,66.5878 105.948,66.5603 105.9646,66.5242 105.9624,66.4975 105.961,66.4809 105.9754,66.4751 106.013,66.4636 106.031,66.4499 106.0317,66.4261 106.0166,66.4116 106.0108,66.4037 106.0454,66.3813 106.0462,66.3748 106.0267,66.3611 105.9552,66.3358 105.9054,66.3344 105.8592,66.3106 105.8549,66.2997 105.8217,66.2781 105.8202,66.2528 105.8178,66.2279 105.8426,66.2155 105.8355,66.196 105.8515,66.1854 105.8444,66.173 105.8568,66.1641 105.8656,66.1553 105.8515,66.1429 105.8462,66.1322 105.8373,66.1074 105.8426,66.0844 105.871,66.0649 105.9188,66.0543 105.979,66.0507 106.0251,66.0507 106.0464,66.0578 106.0712,66.0489 106.0783,66.0419 106.0783,66.0153 106.1031,65.9993 106.1367,65.9816 106.1421,65.9621 106.1722,65.9462 106.1881,65.9249 106.2094,65.9054 106.1917,65.8859 106.2005,65.87 106.2094,65.8523 106.1899,65.8416 106.1864,65.8186 106.2023,65.8097 106.2147,65.792 106.2023,65.7814 106.1952,65.7743 106.2041,65.7637 106.2041,65.7477 106.1881,65.7371 106.1704,65.73 106.1952,65.7069 106.1792,65.691 106.1721,65.6786 106.1721,65.6662 106.1898,65.6467 106.1828,65.6343 106.1597,65.6148 106.1367,65.6059 106.1349,65.59 106.142,65.5652 106.181,65.5546 106.2377,65.5528 106.2962,65.5386 106.344,65.5351 106.3635,65.5315 106.3723,65.528 106.3617,65.5209 106.344,65.512 106.344,65.5085 106.4184,65.5032 106.4326,65.489 106.4255,65.4731 106.4166,65.466 106.4166,65.45 106.5513,65.4341 106.6842,65.4057 106.686,65.3986 106.5974,65.3419 106.5867,65.3278 106.585,65.3047 106.5531,65.2941 106.5637,65.2746 106.5035,65.2711 106.4857,65.2817 106.4663,65.2764 106.3883,65.287 106.3369,65.2905 106.3263,65.2781 106.2767,65.2781 106.2714,65.264 106.243,65.2392 106.1722,65.209 106.1509,65.186 106.1509,65.1559 106.1917,65.1222 106.2253,65.1134 106.236,65.1045 106.22,65.0992 106.158,65.1134 106.1137,65.1098 106.0499,65.0797 106.0092,65.0372 105.9152,65.0301 105.8975,64.9946 105.816,64.9645 105.731,64.945 105.6902,64.9061 105.7522,64.8777 105.8142,64.8476 105.8479,64.7962 105.9241,64.7785 105.9436,64.7519 105.9081,64.7501 105.8213,64.7625 105.7894,64.7838 105.761,64.805 105.7203,64.805 105.6618,64.7944 105.6725,64.7767 105.6795,64.7448 105.7185,64.7342 105.7256,64.72 105.6813,64.7076 105.6636,64.7129 105.6228,64.7182 105.5768,64.7005 105.5555,64.6686 105.5591,64.603 105.6034,64.5729 105.5661,64.5428 105.4953,64.5517 105.4669,64.5641 105.4421,64.5676 105.4244,64.5605 105.4244,64.5499 105.4651,64.5162 105.4403,64.4896 105.4421,64.4701 105.4581,64.4684 105.5165,64.4365 105.5218,64.4081 105.5094,64.394 105.536,64.3691 105.5963,64.3886 105.6228,64.3869 105.6547,64.3798 105.6849,64.3975 105.7168,64.4134 105.7664,64.4134 105.7912,64.3975 105.8638,64.3886 105.8674,64.3603 105.8319,64.3479 105.8089,64.3479 105.7876,64.3248 105.8567,64.3071 105.9187,64.2947 105.9666,64.3178 106.0003,64.3266 106.0605,64.3266 106.1154,64.3408 106.2058,64.339 106.2873,64.3443 106.3156,64.355 106.2997,64.3745 106.2855,64.401 106.3068,64.4152 106.3475,64.4117 106.3901,64.3975 106.4184,64.3585 106.4468,64.3213 106.5035,64.3107 106.5921,64.3195 106.6381,64.3195 106.7001,64.2983 106.7515,64.2859 106.7941,64.2823 106.8118,64.2664 106.8578,64.2593 106.9092,64.2593 106.9943,64.254 107.0191,64.2416 107.0067,64.2062 107.0545,64.1831 107.1502,64.1725 107.2742,64.1991 107.3805,64.2239 107.478,64.2204 107.5063,64.1902 107.556,64.1761 107.6268,64.1601 107.6764,64.13 107.7101,64.1194 107.7828,64.114 107.8448,64.1123 107.8678,64.1601 107.8897,64.182 107.9407,64.1869 107.9747,64.199 107.9991,64.2015 108.0355,64.1893 108.1401,64.1893 108.179,64.2039 108.1863,64.2233 108.1863,64.2379 108.2227,64.2428 108.2422,64.2282 108.2908,64.2282 108.3224,64.2136 108.3394,64.1917 108.3832,64.1796 108.3759,64.1577 108.3467,64.1504 108.3151,64.1407 108.3492,64.1309 108.3929,64.1212 108.3613,64.092 108.337,64.0629 108.3856,64.0434 108.4148,63.9948 108.551,63.9437 108.585,63.9219 108.5364,63.8586 108.5339,63.8489 108.6166,63.8149 108.6117,63.7954 108.5777,63.7784 108.5631,63.759 108.4975,63.7274 108.461,63.7346 108.4367,63.7444 108.337,63.7346 108.303,63.7298 108.2932,63.7395 108.2616,63.7371 108.213,63.7517 108.213,63.7663 108.1668,63.7565 108.1206,63.7274 108.1231,63.6714 108.1133,63.6107 108.0258,63.5693 107.9918,63.5718 107.9529,63.5547 107.9577,63.5353 107.9747,63.5085 107.9966,63.5037 108.0817,63.5134 108.1911,63.5183 108.3176,63.5304 108.4051,63.5401 108.4464,63.5304 108.478,63.5158 108.5412,63.5207 108.6482,63.494 108.7139,63.4769 108.8111,63.494 108.8865,63.494 108.9254,63.4794 108.9278,63.4575 108.9691,63.4551 108.9813,63.4405 108.9862,63.4137 109.0712,63.3797 109.0956,63.3359 109.1126,63.2994 109.1394,63.2824 109.2074,63.2946 109.2366,63.263 109.2269,63.2508 109.222,63.1876 109.2682,63.1852 109.2998,63.156 109.2585,63.1341 109.2585,63.0928 109.3071,63.0928 109.2828,63.0758 109.2974,63.0612 109.2828,63.0417 109.2779,63.0344 109.3023,63.0223 109.3144,62.998 109.2901,62.9834 109.3314,62.9737 109.3241,62.9542 109.2998,62.9469 109.3023,62.9372 109.3217,62.9348 109.3071,62.9104 109.3363,62.8545 109.4579,62.8205 109.4749,62.7889 109.4943,62.7646 109.4579,62.7403 109.4044,62.733 109.3509,62.7111 109.312,62.6795 109.2998,62.5968 109.2172,62.5919 109.2293,62.5652 109.222,62.5506 109.2269,62.5214 109.0883,62.5093 109.0883,62.502 109.1126,62.485 109.1078,62.4631 109.1467,62.4412 109.1515,62.4218 109.1953,62.4072 109.2634,62.3999 109.2974,62.3658 109.3168,62.3464 109.329,62.344 109.3922,62.3707 109.5211,62.3537 109.6135,62.3537 109.7034,62.3585 109.7715,62.3415 109.735,62.2953 109.808,62.2807 109.808,62.2491 109.8445,62.2297 109.8323,62.2078 109.791,62.1908 109.7788,62.1762 109.7983,62.1543 109.8566,62.1179 109.8031,62.079 109.7521,62.0595 109.7253,62.0182 109.6743,61.9452 109.6013,61.9234 109.577,61.8966 109.4822,61.8334 109.453,61.831 109.4433,61.7969 109.4336,61.758 109.4409,61.7362 109.4287,61.707 109.4603,61.7094 109.4846,61.6997 109.4627,61.6583 109.4992,61.6389 109.5308,61.6243 109.5624,61.6146 109.5478,61.5927 109.5746,61.5757 109.6038,61.5708 109.6427,61.5295 109.6986,61.493 109.7205,61.4638 109.7083,61.4298 109.6718,61.4177 109.6913,61.3812 109.6864,61.3496 109.6572,61.3253 109.6475,61.3034 109.6621,61.2888 109.6378,61.2742 109.6354,61.2572 109.667,61.2499 109.6889,61.2402 109.6961,61.2329 109.7545,61.2377 109.8031,61.2402 109.859,61.2304 109.9441,61.211 109.9612,61.1697 109.9709,61.1356 109.9976,61.1235 110.0268,61.0967 110.0949,61.0894 110.1386,61.0943 110.18,61.0894 110.2237,61.1186 110.2626,61.121 110.3186,61.1016 110.355,61.0821 110.3502,61.0457 110.3599,61.0092 110.321,60.9898 110.3064,60.9728 110.2991,60.9193 110.2457,60.8974 110.2335,60.8828 110.1946,60.8561 110.1484,60.8318 110.1144,60.7904 110.0803,60.7564 110.0706,60.7369 110.0998,60.7224 110.1314,60.7078 110.1144,60.7029 110.1144,60.664 110.1119,60.6348 110.0609,60.6154 110.0244,60.6154 109.9904,60.6178 109.9636,60.6154 109.915,60.6178 109.8858,60.6154 109.9077,60.5935 109.9296,60.5838 109.9417,60.5716 109.9661,60.5643 109.9636,60.54 109.9515,60.5157 109.9077,60.506 109.8785,60.4914 109.8639,60.4598 109.8226,60.4403 109.7764,60.4087 109.757,60.3747 109.791,60.3625 109.7813,60.3382 109.7351,60.3139 109.7059,60.309 109.7108,60.2872 109.7181,60.275 109.65,60.2507 109.6621,60.2264 109.6597,60.2021 109.6232,60.1802 109.5795,60.1705 109.5722,60.1632 109.5625,60.1024 109.5382,60.0732 109.5551,60.0271 109.5649,59.9906 109.6159,59.9663 109.56,59.9249 109.5162,59.8763 109.4846,59.8544 109.4603,59.8374 109.4919,59.8034 109.4384,59.7693 109.3655,59.7304 109.3412,59.6891 109.3314,59.6186 109.3655,59.5967 109.3849,59.5821 109.3169,59.5432 109.278,59.5262 109.2609,59.5068 109.2172,59.4679 109.1686,59.4436 109.171,59.4241 109.1297,59.4071 109.1053,59.3876 109.1564,59.3755 109.1904,59.3585 109.1734,59.339 109.1345,59.3244 109.0956,59.3074 109.1102,59.288 109.098,59.2685 109.1224,59.2515 109.2147,59.2345 109.2998,59.2247 109.3533,59.2272 109.3509,59.215 109.3485,59.1761 109.3947,59.1591 109.3825,59.1372 109.3679,59.1202 109.4165,59.1153 109.4506,59.108 109.4798,59.0813 109.4774,59.0472 109.4701,59.0083 109.5187,58.9913 109.5746,59.0083 109.6111,58.9791 109.6427,58.9427 109.6743,58.9208 109.7205,58.9305 109.7715,58.9427 109.842,58.9451 109.9077,58.9257 110.0147,58.9208 110.0706,58.9208 110.1338,58.9184 110.1654,58.9597 110.214,58.9816 110.2772,58.9791 110.3356,58.9767 110.3842,58.9986 110.3964,59.0472 110.4328,59.0667 110.4207,59.1031 110.4426,59.1445 110.4839,59.1615 110.5301,59.1955 110.6103,59.2053 110.7003,59.1931 110.7756,59.1736 110.8413,59.1493 110.8875,59.1615 110.9094,59.1761 110.9458,59.1761 110.9726,59.1469 111.0017,59.1323 111.0431,59.125 111.0698,59.1372 111.0941,59.1712 111.1209,59.1736 111.1428,59.1907 111.1938,59.198 111.2424,59.2101 111.3129,59.2101 111.364,59.1882 111.3883,59.1712 111.4515,59.1566 111.4929,59.1493 111.5488,59.1712 111.5901,59.2028 111.6217,59.215 111.6703,59.215 111.7433,59.2247 111.7822,59.2174 111.8235,59.2612 111.8819,59.3098 111.9402,59.339 111.9986,59.39 112.0642,59.4386 112.1153,59.4386 112.1226,59.4022 112.1712,59.3706 112.1809,59.3487 112.142,59.3268 112.1201,59.3049 112.142,59.283 112.1347,59.249 112.176,59.2417 112.2538,59.2563 112.3,59.2685 112.356,59.2587 112.4143,59.2514 112.4581,59.2563 112.4848,59.232 112.4727,59.2052 112.4265,59.2077 112.4265,59.1882 112.3924,59.1858 112.3462,59.1566 112.3098,59.1104 112.3146,59.0861 112.2976,59.0472 112.3025,59.0132 112.3098,58.9645 112.2976,58.9402 112.2976,58.86 112.3146,58.8551 112.3098,58.8357 112.3438,58.8089 112.3778,58.8187 112.4119,58.8624 112.4532,58.8916 112.4727,58.9038 112.4167,58.9573 112.3973,58.984 112.4119,59.0107 112.4411,58.9864 112.48,58.9694 112.5261,58.9864 112.5748,59.0254 112.6405,59.04 112.7013,59.0546 112.745,59.0764 112.7693,59.091 112.8034,59.0813 112.8496,59.0886 112.9249,59.0886 112.9809,59.1032 113.0441,59.0983 113.1073,59.0935 113.1656,59.1324 113.2289,59.164 113.2678,59.1834 113.3115,59.198 113.3042,59.2345 113.3261,59.2685 113.3139,59.288 113.275,59.3098 113.2702,59.3366 113.3164,59.3779 113.3626,59.3852 113.4039,59.4071 113.4477,59.4338 113.4501,59.4557 113.4404,59.4825 113.4379,59.5141 113.4866,59.5335 113.5619,59.5384 113.6324,59.5554 113.6738,59.587 113.6981,59.6308 113.7613,59.6259 113.8172,59.6283 113.8804,59.6259 113.8902,59.677 113.9947,59.694 113.9947,59.6867 114.019,59.694 114.0433,59.7183 114.0725,59.7353 114.0871,59.7523 114.0871,59.7669 114.1236,59.7791 114.1357,59.8034 114.1916,59.8399 114.2743,59.869 114.3399,59.9006 114.4056,59.9249 114.4129,59.9614 114.3715,59.9736 114.3667,59.9906 114.3861,60.0392 114.4104,60.066 114.4566,60.0805 114.4907,60.1097 114.5247,60.1438 114.5636,60.1608 114.6074,60.1486 114.6487,60.1267 114.7192,60.1438 114.7776,60.1778 114.8456,60.1997 114.8845,60.2361 114.9137,60.2969 114.9769,60.3334 115.0499,60.3723 115.1714,60.4136 115.2638,60.4306 115.3854,60.4452 115.4753,60.4574 115.5483,60.4647 115.5945,60.4598 115.6723,60.4161 115.699,60.4063 115.7841,60.399 115.84,60.399 115.8814,60.3893 115.8959,60.3674 115.9251,60.348 115.9762,60.3431 116.0443,60.3334 116.1003,60.314 116.1465,60.3237 116.2218,60.3261 116.3215,60.3067 116.3969,60.3042 116.465,60.2921 116.5014,60.2653 116.55,60.224 116.5817,60.1973 116.6133,60.1875 116.674,60.1875 116.6984,60.1681 116.7227,60.1413 116.7713,60.1195 116.8175,60.1024 116.8418,60.083 116.8491,60.0563 116.8758,60.0319 116.8856,59.9979 116.8904,59.9736 116.9391,59.9687 116.9901,59.9736 117.0241,59.976 117.0533,59.9639 117.0849,59.9614 117.1384,59.9566 117.1627,59.942 117.1165,59.9225 117.0582,59.8958 116.9998,59.9055 116.9658,59.9055 116.9293,59.8934 116.9026,59.8545 116.9512,59.8253 117.0071,59.7961 117.0436,59.7961 117.0776,59.7621 117.0655,59.7232 117.063,59.694 117.0582,59.66 117.0363,59.6308 117.046,59.5895 117.0094,59.5748 116.9681,59.5529 116.9243,59.5359 116.9268,59.5238 116.9535,59.5286 116.9997,59.5213 117.0556,59.5092 117.0702,59.4703 117.131,59.4606 117.1723,59.4338 117.289,59.4411 117.3401,59.4314 117.4057,59.4119 117.4544,59.4144 117.52,59.4533 117.6027,59.4824 117.6367,59.4581 117.661,59.4119 117.6902,59.373 117.768,59.3876 117.8069,59.4338 117.8312,59.4703 117.8847,59.5092 117.9187,59.5262 117.9625,59.5311 118.0014,59.5505 118.067,59.5408 118.1157,59.5457 118.1716,59.5408 118.2032,59.5165 118.2226,59.4654 118.2786,59.4435 118.3637,59.4338 118.4001,59.4168 118.4293,59.3973 118.4731,59.3828 118.5095,59.3657 118.563,59.3657 118.6043,59.3463 118.5995,59.3001 118.6043,59.2685 118.6481,59.2515 118.687,59.2442 118.6967,59.2296 118.6481,59.2223 118.6432,59.2126 118.6505,59.1931 118.5946,59.1834 118.5484,59.1639 118.529,59.125 118.5387,59.074 118.5533,59.0375 118.5533,59.0059 118.5727,58.9792 118.5946,58.967 118.653,58.9621 118.6967,58.9476 118.6992,58.9135 118.6968,58.8795 118.6724,58.877 118.6408,58.877 118.6311,58.8552 118.6311,58.8284 118.6627,58.8017 118.6968,58.7822 118.7284,58.7676 118.7381,58.7506 118.7332,58.7142 118.7211,58.6874 118.7259,58.6485 118.7332,58.6339 118.704,58.6193 118.6846,58.6047 118.67,58.5683 118.6603,58.5537 118.6044,58.5537 118.6311,58.5221 118.687,58.5075 118.7162,58.5026 118.7357,58.4905 118.7794,58.4905 118.8256,58.4807 118.884,58.4394 118.9423,58.4273 118.9885,58.4175 118.9861,58.3835 118.9642,58.3543 118.9472,58.3349 118.918,58.3179 118.9156,58.2765 118.9375,58.2522 118.9691,58.2352 118.9739,58.2279 118.9593,58.1939 118.952,58.155 118.8981,58.1712 118.8297,58.1672 118.7653,58.1571 118.6687,58.1571 118.5801,58.141 118.5137,58.1088 118.4292,58.135 118.3909,58.1571 118.3245,58.1571 118.3004,58.1954 118.2541,58.1994 118.2138,58.2236 118.1736,58.286 118.1333,58.3 118.083,58.3182 118.0428,58.3222 117.9824,58.3282 117.9603,58.296 117.9281,58.2779 117.8777,58.294 117.8536,58.3322 117.8113,58.3383 117.7731,58.3383 117.759,58.3463 117.7249,58.3281 117.6987,58.3402 117.6826,58.3502 117.6605,58.3462 117.6303,58.3321 117.592,58.3301 117.5498,58.3362 117.5156,58.3402 117.5055,58.312 117.4753,58.31 117.433,58.2939 117.3666,58.2758 117.3284,58.2597 117.3143,58.2335 117.3425,58.2114 117.3626,58.2053 117.3747,58.1852 117.4008,58.1671 117.4149,58.149 117.433,58.1228 117.423,58.0765 117.3546,58.0786 117.3022,58.0846 117.2841,58.0947 117.2559,58.0665 117.2539,58.0343 117.2519,58.0182 117.2278,58.0101 117.2137,58.0061 117.2298,57.9779 117.2358,57.9659 117.2257,57.9477 117.2117,57.9397 117.2197,57.9135 117.2237,57.8974 117.2157,57.8753 117.2358,57.8632 117.2559,57.8491 117.2459,57.833 117.2036,57.829 117.1976,57.827 117.1976,57.8089 117.1513,57.7847 117.113,57.7948 117.0829,57.7928 117.0607,57.7807 117.0084,57.7827 116.9681,57.7827 116.944,57.7666 116.9319,57.7445 116.942,57.7304 116.9702,57.7203 116.9903,57.7082 117.0024,57.6942 117.0164,57.6841 117.0245,57.6801 117.0124,57.67 117.0144,57.6499 117.0084,57.6358 117.0024,57.6197 116.9822,57.6116 116.9903,57.5875 116.9883,57.5774 117.0225,57.5815 117.0466,57.5754 117.0808,57.5694 117.1191,57.5633 117.1392,57.5452 117.1452,57.5171 117.1613,57.507 117.1211,57.4989 117.105,57.4808 117.101,57.4527 117.1171,57.4345 117.1291,57.4124 117.1473,57.3963 117.1674,57.3943 117.1935,57.3621 117.1774,57.352 117.1996,57.3257 117.1815,57.3137 117.1996,57.2875 117.2157,57.2694 117.2298,57.2593 117.262,57.2694 117.2861,57.2754 117.2902,57.2472 117.2781,57.213 117.27,57.1989 117.3123,57.1748 117.3465,57.1929 117.3727,57.1949 117.3928,57.203 117.4149,57.2352 117.429,57.2573 117.4451,57.2674 117.4995,57.2452 117.5417,57.2472 117.6021,57.2432 117.6242,57.2432 117.6424,57.2372 117.6202,57.1889 117.5961,57.1466 117.5739,57.1245 117.5357,57.1205 117.4954,57.1164 117.4693,57.1023 117.4411,57.0983 117.4451,57.0883 117.4572,57.0802 117.4673,57.0581 117.4773,57.0299 117.5015,57.0178 117.5256,57.0017 117.5176,56.9776 117.5337,56.9595 117.5256,56.9454 117.5196,56.9172 117.4793,56.895 117.4512,56.885 117.425,56.883 117.4149,56.8749 117.423,56.8327 117.423,56.7964 117.4129,56.7864 117.3666,56.8085 117.3385,56.8105 117.3224,56.8025 117.3063,56.7924 117.3083,56.7763 117.3063,56.7602 117.2861,56.7582 117.262,56.7662 117.2439,56.7743 117.2378,56.7823 117.256,56.7884 117.256,56.8045 117.2318,56.8045 117.2077,56.8065 117.1916,56.8105 117.1976,56.8286 117.2097,56.8588 117.1916,56.8669 117.1916,56.885 117.1815,56.891 117.1694,56.887 117.1694,56.8689 117.1594,56.8649 117.1372,56.8649 117.1111,56.8608 117.099,56.8568 117.0849,56.8387 117.0567,56.8306 117.0386,56.8166 117.0165,56.7944 117.0064,56.7642 116.9863,56.7461 116.9762,56.7401 116.942,56.7522 116.9138,56.7542 116.8716,56.7542 116.8555,56.7522 116.8474,56.7461 116.8575,56.734 116.8776,56.73 116.8937,56.724 116.8877,56.7179 116.8716,56.7159 116.8414,56.72 116.8212,56.722 116.8031,56.7179 116.779,56.7039 116.6784,56.6737 116.6482,56.6636 116.616,56.6737 116.5878,56.6958 116.5576,56.6998 116.5335,56.6958 116.4972,56.6878 116.4107,56.6958 116.3865,56.7099 116.3624,56.734 116.3161,56.7461 116.292,56.7542 116.2517,56.7622 116.2175,56.7703 116.2115,56.7864 116.1712,56.7884 116.143,56.7884 116.1229,56.7763 116.1088,56.7622 116.0887,56.7582 116.0464,56.7582 116.0183,56.7481 115.9495,56.7636 115.8849,56.8067 115.7963,56.8043 115.715,56.8737 115.6503,56.8833 115.5809,56.8952 115.5306,56.8641 115.4851,56.8497 115.4349,56.8258 115.4325,56.7875 115.4588,56.7301 115.4397,56.6654 115.3774,56.6247 115.3056,56.6152 115.2793,56.596 115.2793,56.5529 115.3224,56.529 115.4109,56.5218 115.4923,56.5146 115.533,56.4931 115.5163,56.4596 115.5354,56.4237 115.5953,56.4045 115.6336,56.3782 115.6431,56.359 115.6096,56.3471 115.5617,56.3566 115.5258,56.3494 115.5234,56.3135 115.5402,56.28 115.533,56.2417 115.5498,56.201 115.5641,56.1699 115.5977,56.1508 115.6024,56.1196 115.636,56.1029 115.6743,56.0957 115.6743,56.0742 115.6383,56.0718 115.6144,56.055 115.6192,56.0239 115.624,56.0047 115.6001,55.9927 115.6001,55.9784 115.6192,55.9736 115.6312,55.9497 115.6408,55.9257 115.6647,55.9114 115.7102,55.8946 115.7413,55.8611 115.7389,55.8156 115.6982,55.7869 115.6791,55.7366 115.6934,55.7007 115.7102,55.6768 115.6982,55.6648 115.6862,55.6241 115.7006,55.605 115.7293,55.5954 115.7557,55.5858 115.7533,55.5643 115.7365,55.5403 115.7317,55.5284 115.7557,55.514 115.7317,55.4877 115.7317,55.4494 115.7389,55.4326 115.8035,55.3967 115.8083,55.3775 115.7868,55.3584 115.77,55.344 115.7844,55.3225 115.8059,55.3105 115.837,55.3009 115.8897,55.3177 115.928,55.3129 115.94,55.2985 115.9663,55.2866 115.9998,55.2938 116.0285,55.2962 116.1075,55.2962 116.1458,55.3105 116.1913,55.3153 116.2392,55.3033 116.2536,55.289 116.2703,55.265 116.2943,55.2507 116.3062,55.2435 116.299,55.2219 116.3086,55.2076 116.3062,55.1884 116.3182,55.1645 116.3589,55.1501 116.3948,55.1334 116.4283,55.1238 116.4594,55.0879 116.5049,55.0735 116.5384,55.0616 116.5863,55.052 116.6198,55.052 116.6461,55.0161 116.6581,55.0041 116.6653,54.9826 116.6916,54.9658 116.682,54.9443 116.6749,54.9203 116.694,54.9084 116.7156,54.9108 116.7156,54.894 116.7251,54.8868 116.7371,54.882 116.7227,54.8581 116.7227,54.8294 116.7371,54.8102 116.7539,54.7959 116.7658,54.7743 116.7585,54.75 116.7702,54.7343 116.729,54.7167 116.7133,54.701 116.7133,54.6833 116.7271,54.6617 116.7055,54.6421 116.6741,54.6303 116.6643,54.6146 116.6407,54.6048 116.6113,54.597 116.6132,54.5675 116.6172,54.5361 116.5818,54.5126 116.5661,54.5106 116.5586,54.4904 116.5714,54.4852 116.5586,54.4724 116.5317,54.4647 116.5073,54.4532 116.4714,54.4519 116.4343,54.4519 116.3907,54.4468 116.3715,54.4468 116.3702,54.4314 116.3625,54.4058 116.3292,54.4109 116.3062,54.4263 116.2767,54.4237 116.2575,54.4353 116.2088,54.4417 116.1793,54.4378 116.1575,54.4365 116.1306,54.4442 116.105,54.4481 116.0845,54.4365 116.0499,54.4404 116.0243,54.4455 115.9935,54.4429 115.9525,54.4288 115.9167,54.4237 115.8692,54.4199 115.8526,54.4173 115.8398,54.4083 115.8142,54.4058 115.7744,54.4096 115.7539,54.4045 115.7322,54.3994 115.7104,54.3981 115.6873,54.3917 115.6553,54.3814 115.6194,54.3738 115.5861,54.375 115.554,54.3621 115.5117,54.3583 115.4694,54.348 115.4438,54.3314 115.4143,54.3173 115.3785,54.3134 115.3631,54.3109 115.349,54.2968 115.3567,54.2699 115.3439,54.2443 115.3131,54.2327 115.2593,54.2097 115.2145,54.202 115.1901,54.1943 115.1748,54.1802 115.1402,54.1725 115.1158,54.1648 115.0902,54.1392 115.0543,54.1328 115.0236,54.12 115.0159,54.1059 115.0069,54.0764 114.9762,54.0521 114.9569,54.0457 114.9364,54.0316 114.8685,54.0098 114.8711,53.9867 114.8672,53.9726 114.8442,53.9611 114.8288,53.9598 114.8198,53.9329 114.7814,53.9227 114.7532,53.9073 114.7173,53.8996 114.6917,53.8842 114.6456,53.8842 114.6059,53.8906 114.5982,53.874 114.5469,53.8624 114.4969,53.8509 114.4662,53.8445 114.4572,53.8496 114.4303,53.8355 114.4124,53.8086 114.3893,53.7919 114.3803,53.7779 114.3534,53.7612 114.3406,53.7458 114.3111,53.7484 114.2817,53.7433 114.2561,53.7471 114.2253,53.7522 114.2074,53.7394 114.2061,53.7202 114.1869,53.7074 114.1356,53.6869 114.0972,53.6843 114.0715,53.6818 114.0395,53.6741 114.0075,53.6933 113.987,53.6933 113.9678,53.6766 113.9357,53.6638 113.8947,53.6625 113.8755,53.66 113.8409,53.6587 113.814,53.6395 113.8243,53.6215 113.8345,53.6049 113.8243,53.5895 113.8063,53.5818 113.7833,53.5895 113.764,53.5895 113.7512,53.5844 113.7359,53.5728 113.7256,53.56 113.7064,53.5652 113.6795,53.5626 113.6615,53.5562 113.6692,53.5447 113.691,53.5293 113.7141,53.5101 113.7307,53.4921 113.7423,53.4665 113.7307,53.4409 113.7115,53.4319 113.6936,53.4306 113.682,53.4088 113.6731,53.3883 113.682,53.3807 113.6923,53.3717 113.6833,53.3512 113.6744,53.3345 113.6872,53.3192 113.7141,53.3089 113.7423,53.3013 113.7654,53.2961 113.7808,53.3 113.7974,53.2833 113.809,53.2615 113.8,53.2449 113.7885,53.2321 113.7846,53.2167 113.7987,53.2077 113.8179,53.1885 113.8243,53.1783 113.8282,53.1718 113.8474,53.1795 113.8692,53.1859 113.8884,53.1898 113.8999,53.1898 113.8935,53.1757 113.891,53.1667 113.9076,53.159 113.9371,53.1462 113.955,53.1424 113.9781,53.1424 114.0037,53.1449 114.0229,53.1449 114.0409,53.1385 114.046,53.1232 114.0396,53.0975 114.0127,53.0655 113.996,53.0565 113.9781,53.0437 113.9704,53.0232 113.9742,53.0091 113.9883,53.0168 114.0063,53.0296 114.0204,53.0194 114.0332,53.013 114.0537,53.0232 114.0652,53.0373 114.078,53.0424 114.0947,53.0373 114.0998,53.0296 114.1203,53.0207 114.1434,53.0142 114.1664,53.0117 114.1741,53.004 114.1562,52.9925 114.1382,52.9822 114.128,52.9643 114.1318,52.9527 114.1472,52.9361 114.1613,52.922 114.1652,52.9053 114.1485,52.9015 114.1113,52.9041 114.0767,52.9041 114.0678,52.89 114.0793,52.8759 114.0844,52.8592 114.0767,52.8477 114.0601,52.831 114.0588,52.8054 114.0703,52.7849 114.0819,52.7708 114.0857,52.7606 114.0652,52.7606 114.0563,52.7503 113.9845,52.6901 113.9743,52.6798 113.9756,52.667 113.9589,52.6542 113.9397,52.6376 113.9051,52.6247 113.8936,52.6171 113.8692,52.6106 113.8,52.5658 113.7411,52.5735 113.7014,52.5415 113.6629,52.5453 113.6424,52.5222 113.5925,52.5222 113.5758,52.512 113.554,52.4889 113.5258,52.4851 113.5041,52.4646 113.4951,52.4428 113.4759,52.4377 113.4554,52.4287 113.44,52.4018 113.4221,52.3903 113.4067,52.3992 113.3887,52.4287 113.3785,52.4351 113.3682,52.4287 113.3439,52.4159 113.3003,52.4108 113.2299,52.4082 113.1812,52.4146 113.1504,52.4108 113.1184,52.421 113.0889,52.4108 113.0313,52.3928 113.0031,52.38 112.9672,52.3787 112.9493,52.3493 112.9121,52.3377 112.8698,52.3236 112.8211,52.2929 112.7673,52.2762 112.734,52.2801 112.7212,52.289 112.6994,52.2839 112.6802,52.2839 112.6366,52.2788 112.5713,52.2762 112.5316,52.2685 112.4419,52.2993 112.4163,52.2878 112.4073,52.2878 112.383,52.289 112.3804,52.2698 112.365,52.2596 112.3445,52.2519 112.3445,52.2019 112.3215,52.1853 112.301,52.1776 112.2856,52.1737 112.2741,52.1622 112.251,52.1468 112.2113,52.1532 112.1946,52.166 112.1754,52.1724 112.1536,52.1865 112.1331,52.1916 112.0998,52.1865 112.0768,52.1788 112.0447,52.1852 112.0383,52.2173 112.0242,52.2352 112.0089,52.2429 111.9884,52.2403 111.9858,52.2301 111.9832,52.2211 111.9538,52.2237 111.9217,52.2211 111.9051,52.216 111.8936,52.1916 111.8807,52.1814 111.8641,52.1711 111.85,52.1596 111.8269,52.1519 111.7821,52.1442 111.7744,52.1378 111.7757,52.1199 111.7616,52.1019 111.7436,52.0891 111.7308,52.0891 111.7283,52.0853 111.7295,52.0699 111.7231,52.0597 111.6988,52.0584 111.6796,52.0468 111.6604,52.0417 111.645,52.0315 111.6258,52.0148 111.6104,51.9815 111.5912,51.961 111.5092,51.9046 111.4887,51.8982 111.4669,51.8957 111.4566,51.8675 111.4156,51.8559 111.3695,51.8508 111.3336,51.8367 111.317,51.8162 111.2734,51.8175 111.235,51.8072 111.2042,51.8085 111.1683,51.8098 111.1376,51.7932 111.1209,51.7816 111.071,51.7726 111.0453,51.7637 110.9941,51.7726 110.9774,51.7726 110.948,51.7573 110.8621,51.7214 110.8647,51.7035 110.8531,51.6791 110.8467,51.665 110.807,51.6637 110.7724,51.6484 110.7391,51.6189 110.7225,51.6151 110.6866,51.6086 110.6891,51.5997 110.6994,51.583 110.7045,51.56 110.7148,51.5446 110.7096,51.5343 110.6956,51.5305 110.6572,51.5228 110.6252,51.5164 110.6162,51.5036 110.6085,51.4754 110.5777,51.4639 110.5598,51.46 110.5393,51.4421 110.5022,51.4459 110.465,51.4459 110.392,51.4357 110.3394,51.4523 110.2613,51.4639 110.2536,51.4767 110.2433,51.5151 110.2318,51.5241 110.2139,51.5164 110.1908,51.5228 110.1601,51.5305 110.1062,51.5318 110.0345,51.5331 109.9653,51.5382 109.9281,51.5446 109.9076,51.5549 109.8948,51.5587 109.8731,51.5497 109.859,51.5446 109.8295,51.5484 109.8154,51.542 109.7949,51.5292 109.7706,51.5126 109.7488,51.4972 109.7168,51.4933 109.6617,51.4728 109.6169,51.442 109.5567,51.4292 109.5246,51.4023 109.4516,51.3869 109.3888,51.378 109.3401,51.3652 109.2722,51.3536 109.2363,51.3344 109.2222,51.2844 109.1992,51.2998 109.1902,51.3254 109.1723,51.3318 109.1543,51.3203 109.1069,51.2998 109.0467,51.3357 109.0032,51.3818 108.9724,51.4023 108.9634,51.4279 108.9327,51.4433 108.9071,51.4484 108.8904,51.442 108.8814,51.4202 108.8686,51.4062 108.8481,51.3946 108.8122,51.3857 108.7686,51.3793 108.7187,51.3831 108.6918,51.3831 108.6444,51.3998 108.6111,51.3908 108.5918,51.387 108.5816,51.3895 108.5752,51.4023 108.538,51.4152 108.4996,51.4357 108.4624,51.4549 108.4291,51.4433 108.3958,51.419 108.3779,51.3947 108.3804,51.3742 108.3689,51.3562 108.3394,51.3447 108.3381,51.3139 108.3125,51.2781 108.2728,51.2524 108.2344,51.2447 108.2062,51.2281 108.1959,51.2089 108.2075,51.1896 108.2267,51.1768 108.26,51.1691 108.2805,51.1679 108.2959,51.1653 108.3035,51.1589 108.2984,51.1435 108.3151,51.1333 108.3548,51.1166 108.3971,51.0987 108.4176,51.082 108.4201,51.0564 108.4022,51.0397 108.3766,51.0256 108.3625,51.0128 108.3458,50.9975 108.3112,50.9962 108.2574,50.9949 108.2113,50.9975 108.1818,50.9936 108.1613,50.9744 108.1511,50.9424 108.1434,50.9078 108.1268,50.8771 108.1114,50.8476 108.1024,50.8156 108.1012,50.7912 108.0947,50.772 108.0794,50.7733 108.0461,50.763 108.014,50.7515 107.9833,50.74 107.9551,50.7284 107.932,50.7169 107.9154,50.7054 107.9102,50.6939 107.9179,50.6798 107.9436,50.6503 107.9833,50.6208 108.0268,50.5965 108.0807,50.5965 108.1024,50.5875 108.1601,50.5683 108.2101,50.5516 108.2549,50.5529 108.269,50.5478 108.2741,50.5388 108.2933,50.5337 108.319,50.5337 108.3356,50.5273 108.3331,50.5183 108.3472,50.5094 108.3574,50.5029 108.3587,50.4901 108.3818,50.4709 108.3958,50.4671 108.4253,50.4684 108.4445,50.4658 108.4663,50.4658 108.4855,50.4722 108.5073,50.4773 108.5227,50.4645 108.5317,50.4504 108.5265,50.4414 108.5137,50.4325 108.506,50.4184 108.4958,50.4017 108.4728,50.3992 108.4484,50.3915 108.4331,50.3979 108.4215,50.4094 108.4036,50.412 108.3805,50.4017 108.3536,50.3953 108.3254,50.3889 108.3011,50.3953 108.2908,50.4005 108.2793,50.4005 108.2639,50.3902 108.2614,50.3812 108.2255,50.362 108.1845,50.3454 108.164,50.3415 108.0897,50.3569 108.05,50.3505 108.0295,50.339 108.0295,50.3172 108.0346,50.3082 108.0218,50.3018 107.9974,50.2954 107.991,50.2723 107.9769,50.2557 107.9449,50.2621 107.9206,50.2723 107.9231,50.2877 107.9129,50.2928 107.9026,50.2928 107.877,50.2787 107.8603,50.2749 107.8309,50.2775 107.8347,50.2582 107.8309,50.2301 107.795,50.2198 107.7835,50.2044 107.7796,50.1942 107.7822,50.1634 107.7399,50.1327 107.7079,50.1506 107.6669,50.1468 107.6592,50.1404 107.6617,50.1173 107.6502,50.1058 107.631,50.0968 107.6156,50.0955 107.6118,50.0763 107.6066,50.0481 107.6105,50.0417 107.6412,50.034 107.6464,50.0263 107.6425,49.97 107.6194,49.9443 107.6002,49.92 107.5999,49.9193 107.6566,49.8915 107.7459,49.8874 107.8245,49.8716 107.8163,49.7317 107.7892,49.6253 107.8826,49.5538 107.9128,49.5331 107.9541,49.5124 107.9782,49.501 108.01,49.4945 108.1393,49.4365 108.2043,49.3849 108.3685,49.289 108.4042,49.2784 108.4418,49.275 108.4909,49.2753 108.5521,49.2814 108.7991,49.3 108.8242,49.2953 108.8666,49.2818 108.9147,49.2778 108.9933,49.2924 109.0372,49.3034 109.1528,49.2898 109.1842,49.2826 109.3357,49.2038 109.3566,49.1856 109.3927,49.1751 109.4207,49.1737 109.4504,49.1733 109.6408,49.1626 109.9271,49.1319 110.0089,49.1163 110.0467,49.113 110.0837,49.1142 110.107,49.1188 110.1325,49.1288 110.1628,49.1419 110.1903,49.157 110.3202,49.1437 110.4681,49.0962 110.5003,49.0894 110.5382,49.0858 110.5755,49.0871 110.6263,49.0933 110.7665,49.1258 110.793,49.1348 110.8186,49.1446 110.8462,49.158 110.8707,49.1757 110.9048,49.1967 110.9653,49.2309 111.0099,49.2482 111.1633,49.2859 111.2886,49.298 111.3138,49.2936 111.3426,49.2935 111.3802,49.3014 111.4067,49.311 111.4294,49.3227 111.4813,49.3417 111.5275,49.3501 111.5778,49.3485 111.6352,49.3435 111.6766,49.3414 111.704,49.3423 111.7573,49.3457 111.7994,49.3504 111.9664,49.3801 112.0057,49.3907 112.2506,49.4615 112.326,49.4845 112.371,49.4795 112.425,49.4719 112.4888,49.4612 112.5214,49.4482 112.5446,49.4421 112.5699,49.4412 112.6083,49.4455 112.637,49.4529 112.6654,49.4616 112.9293,49.5466 112.9311,49.6131 113.0193,49.7372 113.044,49.7587 113.0714,49.774 113.1895,49.8314 113.2919,49.8786 113.3161,49.9064 113.3885,49.9446 113.4172,49.9588 113.5395,50.0041 113.6144,50.0291 113.6588,50.0284 113.7013,50.0293 113.7254,50.042 113.7616,50.066 113.7942,50.0894 113.8181,50.1041 113.8407,50.1163 114.0048,50.1904 114.0234,50.198 114.0652,50.2102 114.1503,50.2263 114.1774,50.2231 114.2053,50.2134 114.224,50.2049 114.2494,50.1941 114.2717,50.1874 114.3272,50.1835 114.3828,50.188 114.4066,50.1921 114.4501,50.2028 114.4932,50.2064 114.576,50.1947 114.6816,50.1704 114.7081,50.1597 114.838,50.0996 114.8614,50.0874 114.8795,50.0722 114.9225,50.0234 115.0423,49.936 115.0895,49.9086 115.2192,49.8465 115.2437,49.841 115.3507,49.8381 115.3843,49.8471 115.4082,49.8498 115.4382,49.8473 115.4636,49.842 115.5026,49.8318 115.5584,49.8235 115.5904,49.8293 115.6166,49.8384 115.647,49.8515 115.7155,49.8798 115.8771,49.9388 115.8975,49.9452 115.925,49.9531 115.9775,49.9636 116.0433,49.9707 116.073,49.9701 116.1179,49.9566 116.1802,49.9336 116.2525,49.91 116.2795,49.9026 116.3265,49.8933 116.444,49.8717 116.5279,49.7871 116.5387,49.7731 116.5482,49.767 116.5793,49.7523 116.7508,49.676 116.7888,49.6592 116.8103,49.6525 116.9972,49.5955 117.0371,49.5849 117.0616,49.5793 117.0865,49.5743 117.1146,49.5696 117.1454,49.5674 117.1814,49.5677 117.2611,49.5697 117.3212,49.566 117.3521,49.5573 117.4,49.5391 117.5653,49.4783 117.6215,49.4612 117.7012,49.4638 117.8753,49.5474 117.9979,49.6118 118.0313,49.6338 118.1906,49.7211 118.3052,49.7847 118.3169,49.8128 118.3508,49.8393 118.399,49.8652 118.4649,49.8914 118.4986,49.8978 118.5399,49.8921 118.6947,49.915 118.7449,49.9289 118.7796,49.9257 118.8236,49.9194 118.8903,49.9256 118.9228,49.933 118.9591,49.9377 118.9973,49.9441 119.039,49.9595 119.1422,50.0386 119.1675,50.0922 119.1668,50.1354 119.1497,50.1526 119.1506,50.2172 119.18,50.2721 119.1681,50.2881 119.11,50.2898 119.0733,50.2831 119.0185,50.2872 118.9971,50.2947 118.9588,50.3322 118.9867,50.3543 119.024,50.3527 119.058,50.3829 119.0752,50.4123 119.0827,50.4558 119.1134,50.5391 119.18,50.5748 119.2771,50.6378 119.3242,50.6902 119.3345,50.7349 119.3372,50.7875 119.3384,50.8436 119.4067,50.9138 119.4609,50.9391 119.4816,50.9445 119.5054,50.9594 119.5264,50.9775 119.5644,51.0175 119.596,51.1094 119.5819,51.1293 119.5916,51.1545 119.6307,51.2099 119.6797,51.2279 119.7712,51.3306 119.7859,51.3639 119.7895,51.4072 119.7972,51.4333 119.8777,51.5611 119.9206,51.6042 119.9745,51.6066 120.0101,51.6264 120.035,51.6526 120.1225,51.7132 120.3031,51.8183 120.3687,51.835 120.4324,51.8435 120.4629,51.8541 120.5216,51.9196 120.5864,52.0546 120.5915,52.0972 120.5612,52.1499 120.5313,52.191 120.4617,52.2379 120.4347,52.2834 120.4723,52.3446 120.4915,52.3674 120.5201,52.4817 120.2726,52.5696 120.2481,52.576 120.0975,52.5544 120.0625,52.5441 120.0188,52.5253 119.994,52.5189 119.9705,52.5176 119.8905,52.5269 119.8491,52.5457 119.8339,52.5801 119.839,52.7068 119.9241,52.7455 119.9563,52.7456 119.976,52.7482 120.0757,52.7957 120.137,52.8364 120.157,52.8637 120.2751,52.9582 120.3683,53.0155 120.4983,53.0972 120.6345,53.2018 120.67,53.2176 120.8691,53.2293 120.9101,53.2165 120.9331,53.2106 120.9837,53.2079 121.0149,53.2096 121.0746,53.2292 121.1162,53.2498 121.136,53.2572 121.2167,53.2535 121.2264,53.254 121.2761,53.2616 121.3252,53.2708 121.3547,53.2779 121.3839,53.2855 121.438,53.3041 121.5788,53.3387 121.631,53.3508 121.6565,53.3536 121.7542,53.3601 121.7839,53.359 121.8269,53.3517 121.862,53.3506 122.0462,53.3948 122.2817,53.3864 122.4123,53.3945 122.516,53.3931 122.565,53.3901 122.6142,53.3875 122.6399,53.3898 122.6759,53.3998 122.7224,53.4164 122.9182,53.4347 122.9518,53.4382 122.9736,53.4477 122.9923,53.4602 123.0239,53.4838 123.0527,53.4911 123.0811,53.491 123.1125,53.4871 123.1369,53.4803 123.1724,53.4669 123.2407,53.46 123.2847,53.4771 123.333,53.4798 123.4122,53.4813 123.6638,53.4184 123.6874,53.4106 123.7083,53.4022 123.7789,53.3689 123.8027,53.3462 123.8194,53.3238 123.9023,53.2786 123.9311,53.2739 123.9576,53.2877 123.9922,53.2987 124.0268,53.3009 124.0665,53.2847 124.0943,53.2577 124.1201,53.226 124.1368,53.1937 124.2004,53.1504 124.2914,53.1262 124.3134,53.1268 124.3439,53.1283 124.4122,53.1298 124.4418,53.1257 124.4896,53.1086 124.6161,53.0652 124.6766,53.0848 124.7164,53.1102 124.7609,53.1209 124.7857,53.1248 124.8591,53.1334 124.9313,53.1355 124.9621,53.1312 125.078,53.0878 125.1531,53.0563 125.1957,53.0398 125.2829,53.0073 125.3654,52.9952 125.417,52.9887 125.5248,52.9199 125.5197,52.8839 125.486,52.8703 125.4579,52.8619 125.443,52.8362 125.4555,52.8136 125.5202,52.8231 125.5423,52.8285 125.6534,52.8014 125.6735,52.7745 125.7709,52.7026 125.8089,52.7165 125.8626,52.7203 125.8947,52.6959 125.8356,52.6548 125.7717,52.5765 125.7758,52.5498 125.7933,52.515 125.8323,52.5033 125.8596,52.5196 125.8857,52.5279 125.9791,52.4829 126.0007,52.4666 126.0125,52.449 126.0088,52.4403 125.9956,52.4153 126.0084,52.3996 126.038,52.4023 126.0752,52.3925 126.1333,52.3351 126.1471,52.3085 126.1486,52.231 126.1282,52.1741 126.1082,52.1519 126.1195,52.1317 126.1525,52.1223 126.1922,52.1159 126.2703,52.1051 126.2913,52.0993 126.3556,52.0665 126.3354,52.0091 126.3108,51.9769 126.2781,51.9738 126.2559,51.9602 126.2428,51.9342 126.2729,51.8696 126.4115,51.727 126.5208,51.65 126.5294,51.5741 126.5982,51.3637 126.6728,51.3459 126.6973,51.3391 126.7176,51.3218 126.6946,51.2909 126.6598,51.2847 126.6242,51.2678 126.6118,51.2453 126.6223,51.2062 126.6556,51.1818 126.698,51.1819 126.7047,51.2015 126.6979,51.2436 126.7414,51.2547 126.7729,51.2598 126.7792,51.2402 126.7366,51.183 126.7107,51.1515 126.7036,51.1217 126.7177,51.0663 126.7387,50.9992 126.8518,50.8966 126.9117,50.8706 126.9391,50.8506 126.9563,50.8298 126.9993,50.766 127.0983,50.6826 127.086,50.6263 127.1166,50.5897 127.1654,50.5375 127.1739,50.5178 127.1688,50.493 127.1405,50.4661 127.0985,50.4011 127.1421,50.2565 127.16,50.2415 127.1836,50.2288 127.2042,50.2203 127.2427,50.208 127.2771,50.1993 127.3514,50.1732 127.3839,50.1584 127.3943,50.1508 127.3956,50.1399 127.3938,50.1099 127.3829,50.0792 127.3589,50.0504 127.3123,50.0094 127.299,49.9876 127.2961,49.9612 127.3177,49.7701 127.3263,49.7488 127.3471,49.7286 127.375,49.7203 127.403,49.7155 127.4396,49.7078 127.4831,49.6888 127.4897,49.651 127.5002,49.6136 127.5244,49.5965 127.6299,49.5356 127.6494,49.5298 127.914,49.48 127.998,49.4772 128.0256,49.4802 128.056,49.4916 128.2083,49.5202 128.324,49.5306 128.4634,49.5353 128.5223,49.5276 128.6003,49.5113 128.6137,49.4903 128.6855,49.4209 128.8127,49.3794 128.8344,49.3586 128.8497,49.3286 128.8627,49.3073 128.8872,49.2962 128.922,49.29 128.9465,49.2958 128.9756,49.3194 128.9949,49.3307 129.2004,49.3711 129.231,49.3748 129.3,49.3591 129.3213,49.3481 129.3332,49.3347 129.3406,49.2572 129.3623,49.2313 129.39,49.217 129.4149,49.212 129.4632,49.2207 129.4958,49.2224 129.5352,49.2055 129.5464,49.1712 129.5418,49.1461 129.5563,49.125 129.5833,49.114 129.7225,49.0154 129.7179,48.9854 129.9206,48.8762 130.0108,48.8228 130.0349,48.8085 130.0742,48.8045 130.1622,48.829 130.1901,48.8355 130.2278,48.8402 130.2611,48.8365 130.282,48.8225 130.2943,48.8051 130.3187,48.7954 130.3476,48.7959 130.374,48.8003 130.4372,48.8188 130.4521,48.8195 130.4801,48.806 130.6215,48.8473 130.6233,48.8877 130.6768,48.9305 130.8417,48.9871 130.9726,48.9632 131.0121,49.0143 131.0034,49.0525 131.0388,49.0888 131.1685,49.2497 131.3949,49.2454 131.5084,49.4236 131.4787,49.45 131.5082,49.6105 131.3737,49.6606 131.3576,49.7242 131.4821,49.7341 131.4822,49.9521 131.2849,49.9706 131.3026,50.0628 131.4701,50.1458 131.3349,50.2545 131.3088,50.3688 131.1792,50.3311 131.1309,50.4336 131.0472,50.4212 130.9998,50.3809 130.9205,50.3833 130.9308,50.4258 130.8663,50.4506 130.9575,50.5074 131.0108,50.5773 130.9027,50.6736 130.899,50.6515 130.7939,50.6509 130.7578,50.6714 130.7255,50.5931 130.6454,50.6575 130.7064,50.704 130.6757,50.7265 130.7389,50.7804 130.7937,50.8651 130.8416,50.8725 130.8128,50.9354 130.7665,50.9408 130.8106,51.0195 130.9302,51.028 130.9858,51.1107 130.9827,51.1453 131.0455,51.1825 131.0466,51.2337 131.1105,51.26 131.1721,51.2476 131.2346,51.3249 131.3368,51.3798 131.4557,51.3382 131.5059,51.36 131.4854,51.4727 131.4465,51.4878 131.4259,51.5273 131.3913,51.5956 131.4304,51.6499 131.4095,51.6913 131.5918,51.6663 131.6114,51.6761 131.739,51.6802 131.8613,51.7588 131.9648,51.7363 132.0475,51.8044 132.0852,51.7635 132.1265,51.7994 132.2183,51.8219 132.2758,51.7887 132.4342,51.8695 132.3963,51.9653 132.5085,51.9479 132.5384,52.0381 132.5888,52.0813 132.6526,52.0937 132.7681,52.129 132.833,52.1815 132.9256,52.1505 133.002,52.1502 133.1272,52.1744 133.1807,52.1607 133.2061,52.1849 133.3436,52.2017 133.3573,52.2275 133.4097,52.2429 133.4375,52.2871 133.3982,52.3139 133.3083,52.349 133.3267,52.4077 133.242,52.4555 133.2792,52.4872 133.2831,52.5365 133.2377,52.5595 133.2452,52.5924 133.2372,52.6434 133.3158,52.683 133.3753,52.682 133.418,52.6535 133.4894,52.6509 133.5111,52.6257 133.6097,52.6051 133.6464,52.5709 133.7804,52.5543 133.8307,52.5549 133.8583,52.5205 133.9294,52.5213 134.0,52.5402 134.0573,52.4951 134.0839,52.4953 134.1287,52.4775 134.2142,52.4946 134.2947,52.4605 134.4692,52.4505 134.5347,52.4162 134.6292,52.4166 134.6641,52.4769 134.6196,52.5004 134.6368,52.5625 134.6781,52.5827 134.7017,52.6101 134.7402,52.6084 134.7934,52.6523 134.7636,52.6723 134.7604,52.7106 134.6652,52.7121 134.6532,52.734 134.7185,52.7615 134.6349,52.785 134.6282,52.8597 134.6909,52.8672 134.6545,52.9309 134.8004,53.0625 134.8723,53.0772 134.8332,53.1118 134.857,53.1865 134.9412,53.214 134.9622,53.265 134.9079,53.2796 134.8776,53.3214 134.8082,53.3323 134.8321,53.3852 134.9077,53.3688 134.9288,53.4035 134.9136,53.429 134.8318,53.4508 134.8317,53.4799 134.7772,53.4707 134.7377,53.4852 134.7617,53.5326 134.6398,53.5961 134.5575,53.6249 134.5243,53.5993 134.4423,53.5952 134.4492,53.5388 134.3949,53.5166 134.3703,53.5384 134.2614,53.5158 134.2189,53.521 134.2227,53.4809 134.2138,53.4699 134.1896,53.4679 134.1528,53.4895 134.1083,53.4436 134.0689,53.4469 134.0027,53.4317 133.8866,53.4707 133.8203,53.4591 133.7951,53.4916 133.7654,53.4694 133.7171,53.4652 133.6296,53.5461 133.5599,53.5434 133.5281,53.4974 133.495,53.4915 133.4729,53.5149 133.4078,53.4738 133.3199,53.4725 133.2188,53.429 133.1735,53.3571 133.1782,53.3208 133.1613,53.2913 133.1003,53.3067 132.981,53.2771 132.9352,53.289 132.8899,53.2298 132.7987,53.2444 132.7115,53.2408 132.6472,53.2594 132.5919,53.2236 132.4468,53.2312 132.3977,53.2464 132.1675,53.2169 132.0948,53.2223 132.0107,53.1343 131.9496,53.1471 131.894,53.1255 131.8341,53.162 131.8625,53.2249 131.7828,53.2408 131.6728,53.221 131.5174,53.2052 131.4345,53.2226 131.5101,53.256 131.5331,53.306 131.5164,53.3603 131.4761,53.4429 131.4828,53.4705 131.4594,53.4952 131.5021,53.5641 131.4392,53.6241 131.4467,53.6772 131.4373,53.7499 131.3276,53.7809 131.1735,53.7939 131.0188,53.8121 130.9227,53.7629 130.8497,53.7894 130.8424,53.831 130.7434,53.84 130.6585,53.8896 130.5742,53.8753 130.5197,53.8968 130.4386,53.8807 130.3861,53.9113 130.4127,53.9471 130.4733,53.9825 130.4849,54.0706 130.5325,54.1418 130.6222,54.1965 130.6733,54.2387 130.7369,54.2813 130.8296,54.283 130.9364,54.3289 130.9799,54.2977 131.0497,54.2802 131.117,54.3208 131.1671,54.4447 131.2265,54.5398 131.1767,54.6037 131.2761,54.6417 131.3878,54.7183 131.5594,54.7237 131.6139,54.7818 131.6952,54.7843 131.8157,54.8442 131.9968,54.8966 131.9488,54.9882 132.0308,55.0286 132.1927,55.0564 132.418,55.0837 132.3445,55.1439 132.3631,55.1953 132.4068,55.2054 132.5971,55.1987 132.6908,55.2735 132.6563,55.3201 132.6819,55.3697 132.7243,55.3506 132.8161,55.3578 132.9455,55.373 132.854,55.4186 132.7522,55.4185 132.7182,55.4542 132.609,55.5193 132.6641,55.5587 132.5871,55.6153 132.5415,55.678 132.4677,55.6782 132.3955,55.7039 132.2286,55.7054 132.1089,55.6333 132.0269,55.6585 131.9073,55.6317 131.8029,55.616 131.7459,55.6472 131.6172,55.6526 131.5888,55.6117 131.4384,55.6453 131.3611,55.6156 131.1821,55.6443 131.1082,55.6145 130.9897,55.645 130.8773,55.6797 130.8735,55.7148 130.8153,55.7925 130.797,55.8834 130.7993,55.975 130.893,55.9948 130.9556,56.0721 130.9736,56.1385 131.0381,56.2017 131.1047,56.2462 131.1251,56.3337 131.121,56.4133 131.1964,56.5002 131.3252,56.5231 131.3686,56.4682 131.4445,56.4682 131.4279,56.5099 131.5077,56.5592 131.5865,56.5311 131.6301,56.469 131.6969,56.478 131.742,56.4933 131.6571,56.5448 131.6835,56.5807 131.6793,56.6275 131.6908,56.6888 131.8047,56.7459 131.8105,56.7765 131.7734,56.8599 131.7301,56.868 131.6029,56.9512 131.5278,57.0217 131.4637,57.0643 131.5065,57.1101 131.3389,57.1543 131.336,57.1823 131.2786,57.197 131.2136,57.1597 131.1877,57.2011 131.1322,57.2368 131.1899,57.2621 131.2432,57.2896 131.2814,57.3377 131.3431,57.2833 131.4336,57.2837 131.5165,57.2745 131.5301,57.3124 131.6206,57.315 131.59,57.4102 131.6437,57.4843 131.7646,57.5392 131.7098,57.5682 131.7246,57.5967 131.7951,57.5869 131.8662,57.6192 132.0019,57.611 131.9803,57.6596 132.0705,57.6759 132.0433,57.7408 131.9565,57.7855 131.9219,57.8315 131.77,57.865 131.8193,57.9014 131.8109,57.9457 131.7671,57.9446 131.6181,58.0318 131.6748,58.0381 131.653,58.082 131.5675,58.0984 131.4862,58.1616 131.4841,58.1827 131.5619,58.2013 131.6206,58.1889 131.7392,58.1991 131.7704,58.1484 131.8582,58.1554 131.8953,58.1353 131.9611,58.0901 132.0804,58.0345 132.1006,58.056 132.1649,58.0786 132.1366,58.1014 132.0237,58.1315 132.0517,58.1673 132.0349,58.209 132.1404,58.2724 132.2044,58.2481 132.227,58.354 132.1971,58.4493 132.148,58.5043 132.2895,58.5216 132.4077,58.4937 132.4515,58.504 132.3947,58.5473 132.5925,58.6589 132.5459,58.6838 132.5861,58.7501 132.5419,58.803 132.6215,58.8875 132.539,58.9316 132.4111,58.8742 132.244,58.8706 132.2682,59.0082 132.1239,59.1466 131.7425,59.1418 131.6738,59.2086 131.6231,59.5362 131.5787,59.9691 131.8341,60.0579 131.8595,60.2686 132.0095,60.3361 132.2836,60.3604 132.3736,60.4992 132.474,60.6336 132.8101,60.6077 133.0641,60.703 133.0934,60.8357 132.9938,61.0807 132.9833,61.2447 133.2939,61.2765 133.7469,61.318 134.2872,61.3311 134.6466,61.4328 134.3965,61.5687 134.0818,61.8634 133.6373,61.8733 133.2092,61.9277 133.0416,62.126 132.6247,62.3475 132.6325,62.4982 132.5211,62.5328 132.6057,62.8307 132.7524,63.1296 132.7524,63.3896 132.4441,63.6535 132.128,63.7342 132.7294,64.0642 132.9208,64.2905 132.9189,64.4546 132.7491,64.5935 132.6159,64.6598 132.2888,64.6314 132.1988,64.6799 132.2418,64.781 131.9898,65.1229 131.6834,65.3218 131.4935,65.5183 131.5931,65.767 131.3668,65.8759 131.1016,65.9334 130.6153,66.0301 130.3908,66.0921 130.1177,66.1067 130.0032,66.3453 130.1038,66.4719 129.9522,66.5997 129.6879,66.5453 129.4815,66.6481 129.3836,66.5715 128.9903,66.5342 128.6391,66.4701 128.3473,66.4902 127.8793,66.5615 127.2493,66.6972 127.2801,66.9695 127.3712,67.2401 127.2899,67.4198 127.228,67.6097 126.7718,67.6749 126.6866,67.8821 126.8037,68.1728 126.8055,68.3062 127.0233,68.3579 127.1991,68.389 127.1987,68.4992 126.9262,68.5969 126.6586,68.7082 127.135,68.7903 127.581,68.7824 128.1597,68.7512 128.3959,68.8062 128.6042,68.8735 128.8592,68.9148 129.405,68.8645 129.8061,68.8814 130.0314,69.0069 130.5595,68.9754 130.9387,68.916 131.6063,69.0216 131.9498,69.0492 132.237,69.0673 132.5866,69.203 132.7642,69.3058 132.7924,69.4936 133.043,69.5668 133.4859,69.6548 133.4516,69.7315 133.1543,69.8291 132.9161,69.959 133.4227,69.9923 133.4514,70.1331 133.1142,70.2807 132.4409,70.3697 132.2165,70.4337 132.0855,70.4956 132.2015,70.6435 132.0461,70.769 132.1145,70.9664 131.9762,71.0511 131.784,71.0717 131.5756,71.1182 131.5734,71.1179 131.5409,71.1076 131.4693,71.0455 131.4438,70.9888 131.3576,70.8835 131.3299,70.8573 131.2723,70.811 131.2372,70.7847 131.1999,70.7642 131.0527,70.6966 131.0203,70.6829 130.9875,70.67 130.9119,70.6471 130.8854,70.6418 130.8339,70.6384 130.7285,70.6417 130.6681,70.6489 130.6278,70.6547 130.6018,70.6622 130.5875,70.6907 130.6013,70.7114 130.5957,70.7443 130.4858,70.8783 130.4501,70.8724 130.4234,70.8599 130.4136,70.8345 130.4138,70.8123 130.3971,70.7896 130.3662,70.7777 130.33,70.7733 130.2811,70.7762 130.2182,70.788 130.1956,70.7996 130.0643,70.828 129.9924,70.8375 129.9278,70.8533 129.8728,70.8723 129.8994,70.8777 129.9259,70.8902 129.8594,70.9534 129.7809,70.9889 129.6146,71.0051 129.509,71.0119 129.447,71.0274 129.4611,71.0499 129.4105,71.1228 129.3558,71.1641 129.3266,71.1722 129.305,71.1763 129.1222,71.2292 129.0863,71.2493 129.0607,71.2949 129.0478,71.3194 129.0153,71.3676 128.9403,71.455 128.8842,71.496 128.8534,71.5093 128.8047,71.5116 128.7674,71.5074 128.7282,71.5035 128.6231,71.4962 128.5928,71.4976 128.5706,71.5017 128.5444,71.5095 128.5143,71.5608 128.537,71.5839 128.5837,71.6038 128.6287,71.6131 128.6867,71.6161 128.7464,71.6159 128.8135,71.6211 128.9133,71.6393 128.9735,71.6536 129.0793,71.6414 129.1238,71.6323 129.2251,71.6246 129.178,71.6425 129.0124,71.7037 128.9863,71.7305 129.0039,71.7532 128.9925,71.7711 128.9746,71.7858 128.7685,71.9063 128.7513,71.8793 128.7769,71.8242 128.7944,71.8036 128.8165,71.7893 128.8386,71.7776 128.8675,71.7544 128.8824,71.7301 128.8802,71.7082 128.8577,71.6943 128.7798,71.6722 128.6589,71.6448 128.6191,71.6452 128.4109,71.6751 128.3454,71.7031 128.3554,71.7317 128.3114,71.7949 128.2454,71.8052 128.2247,71.8067 128.1934,71.8184 128.1287,71.8698 128.0811,71.9436 127.9536,72.0152 127.7163,72.0891 127.6344,72.1096 127.5415,72.1633 127.4833,72.1959 127.4601,72.2073 127.3936,72.2376 127.3547,72.2509 127.3317,72.2548 127.3099,72.2559 127.2492,72.2549 127.1888,72.253 127.1684,72.2529 127.147,72.2543 126.9893,72.2751 126.9436,72.2824 126.8729,72.2958 126.7261,72.3057 126.6432,72.3056 126.6027,72.3046 126.418,72.2909 126.5126,72.2353 126.5901,72.1965 126.6035,72.1532 126.6149,72.0781 126.675,71.9583 126.7265,71.9193 126.748,71.9113 126.7791,71.9044 126.8145,71.8961 126.8924,71.8761 126.9232,71.8653 126.9698,71.8429 126.9931,71.832 127.0162,71.8175 127.0274,71.7996 127.0154,71.7769 126.9922,71.7629 126.944,71.7419 126.9007,71.6785 126.8913,71.6522 126.9287,71.5474 126.9435,71.5107 126.9667,71.4871 126.9985,71.4483 127.017,71.3959 127.0186,71.3646 127.018,71.3364 127.0118,71.3169 126.9947,71.3002 126.9827,71.2944 126.9216,71.3003 126.9205,71.3277 126.9358,71.3633 126.9252,71.4288 126.9087,71.4998 126.8839,71.5203 126.808,71.6411 126.7925,71.672 126.8071,71.7055 126.8333,71.7526 126.8161,71.7674 126.7309,71.8124 126.6999,71.8232 126.6765,71.8276 126.6454,71.8384 126.6105,71.8552 126.5047,71.9208 126.5098,71.9467 126.4758,72.0168 126.4516,72.0442 126.3255,72.082 126.2518,72.1552 126.0995,72.246 126.0638,72.2557 126.0157,72.2389 125.9734,72.2112 125.9458,72.1934 125.8278,72.1711 125.7953,72.174 125.7551,72.1843 125.6748,72.2103 125.6065,72.231 125.5826,72.2357 125.5603,72.2379 125.5297,72.2371 125.5009,72.2341 125.4614,72.2317 125.4186,72.2337 125.3724,72.2405 125.3482,72.2454 125.2914,72.2605 125.2533,72.2737 125.2273,72.2988 125.1558,72.3267 125.1074,72.3361 125.0426,72.3396 125.0203,72.3418 124.997,72.3451 124.9565,72.355 124.9314,72.3659 124.9179,72.3841 124.9004,72.4018 124.8603,72.427 124.8373,72.435 124.8171,72.4399 124.7926,72.4447 124.7466,72.4502 124.6758,72.4606 124.6517,72.4653 124.5611,72.4838 124.4636,72.5125 124.4381,72.5267 124.4071,72.5314 124.3636,72.5335 124.2554,72.537 124.1519,72.54 124.1311,72.5397 124.0884,72.5407 124.0439,72.5437 123.9706,72.5562 123.9304,72.5689 123.8999,72.5855 123.8473,72.6041 123.8095,72.6139 123.5604,72.6487 123.4885,72.6587 123.4446,72.6605 123.3818,72.6596 123.3613,72.6584 123.2717,72.6393 123.1958,72.6288 123.1757,72.6268 123.1141,72.6252 123.0922,72.6258 123.0463,72.6299 122.9247,72.6457 122.8513,72.6565 122.7999,72.6715 122.7498,72.6802 122.7033,72.6843 122.6594,72.6862 122.5701,72.6907 122.4522,72.7032 122.3567,72.7146 122.2219,72.7409 122.1939,72.7483 122.1749,72.7595 122.1226,72.7696 122.0994,72.7716 122.0774,72.7726 122.014,72.7714 121.9699,72.7732 121.9243,72.7758 121.829,72.7859 121.7568,72.7941 121.7313,72.7984 121.7096,72.803 121.6289,72.831 121.6639,72.8543 121.6403,72.8632 121.5692,72.8699 121.5465,72.871 121.5035,72.8711 121.1763,72.8719 121.0929,72.8688 121.0041,72.8602 120.9194,72.8466 120.8609,72.8407 120.8411,72.839 120.7598,72.8333 120.7201,72.8322 120.6754,72.8335 120.6297,72.836 120.5819,72.8405 120.5324,72.8469 120.4834,72.8529 120.3878,72.8701 120.336,72.8785 120.3114,72.8814 120.288,72.8829 120.2655,72.8835 120.1809,72.8813 120.1349,72.8838 120.0655,72.888 119.8423,72.9017 119.5875,72.9163 119.519,72.9189 119.4905,72.9151 119.4654,72.8996 119.4985,72.8727 119.5271,72.8621 119.5631,72.8529 119.5852,72.8485 119.6097,72.8453 119.6545,72.8442 119.767,72.8402 119.8799,72.8362 119.9767,72.8267 120.0729,72.8175 120.1467,72.8084 120.2688,72.7841 120.1638,72.7834 120.0878,72.7945 120.0401,72.8029 119.967,72.8108 119.9433,72.8124 119.8978,72.8148 119.806,72.8196 119.7084,72.8221 119.6723,72.823 119.6256,72.8265 119.5759,72.8321 119.5263,72.838 119.4695,72.8488 119.2947,72.8982 119.2722,72.9266 119.2414,72.9605 119.2091,72.9658 119.1853,72.9677 119.1628,72.968 119.1417,72.9674 119.0069,72.9704 118.9592,72.9737 118.7131,73.006 118.5613,73.0356 118.3813,73.0663 118.3563,73.0689 118.1804,73.1031 118.0977,73.1401 118.0601,73.1846 118.0545,73.3109 118.0739,73.3285 118.1775,73.3803 118.2028,73.384 118.3039,73.3762 118.3385,73.354 118.3935,73.3432 118.6164,73.3559 118.66,73.3669 118.6908,73.3862 118.6584,73.4055 118.5367,73.4452 118.3648,73.4694 118.339,73.4724 118.1725,73.4799 118.1262,73.4804 117.6578,73.4866 117.5277,73.4819 117.5071,73.4799 117.4206,73.4771 117.2819,73.479 117.0455,73.4868 116.9978,73.4885 116.9504,73.4906 116.9244,73.4929 116.8736,73.501 116.7914,73.5123 116.7136,73.5197 116.4396,73.5452 116.31,73.561 116.2837,73.5632 116.2345,73.5662 116.1418,73.5674 116.0982,73.5654 116.0377,73.5591 115.9942,73.5572 115.9477,73.5579 115.8736,73.562 115.8214,73.5669 115.7658,73.574 115.7121,73.5802 115.5824,73.5914 115.5311,73.5954 115.5065,73.5962 115.308,73.6021 115.168,73.6034 115.1015,73.6014 114.9551,73.5934 114.8657,73.5777 114.829,73.5712 114.6935,73.5438 114.6696,73.5361 114.6342,73.5198 114.5924,73.5081 114.5727,73.5059 114.3632,73.4909 114.2552,73.4857 114.1427,73.4835 114.1197,73.4837 114.0919,73.4869 114.0396,73.4918 113.9896,73.494 113.9222,73.4931 113.8145,73.4876 113.7348,73.4782 113.6979,73.4717 113.6636,73.4552 113.6379,73.4492 113.5619,73.4379 113.5419,73.4357 113.3551,73.4208 113.2696,73.4161 113.2302,73.4117 113.1887,73.4015 113.2233,73.3571 113.2456,73.3401 113.3365,73.304 113.489,73.2548 113.5403,73.2475 113.5755,73.2471 113.6434,73.2553 113.6664,73.2552 113.6908,73.254 113.7167,73.252 113.7464,73.2457 113.7293,73.2349 113.7027,73.2295 113.5784,73.2127 113.5457,73.2114 113.5237,73.2139 113.5,73.2178 113.4738,73.2199 113.4429,73.2177 113.4148,73.2132 113.2638,73.1397 113.2511,73.1156 113.2518,73.0824 113.2623,73.064 113.2835,72.9782 113.258,72.8693 113.232,72.8465 113.0943,72.7878 113.059,72.7807 112.9632,72.7696 112.9011,72.7579 112.8788,72.745 112.8817,72.7223 112.9059,72.6988 112.9375,72.6763 112.9378,72.6697 112.9503,72.6416 113.0749,72.5904 113.1019,72.5842 113.1669,72.5723 113.4108,72.5395 113.4376,72.5362 113.4629,72.534 113.4851,72.534 113.5054,72.5349 113.5494,72.5351 113.5731,72.5337 113.6958,72.5246 113.7487,72.5179 113.7814,72.512 113.8178,72.4977 113.7706,72.5001 113.7457,72.5023 113.7203,72.5048 113.6406,72.515 113.5219,72.5244 113.4747,72.5265 113.4086,72.5268 113.3882,72.5256 113.3658,72.5254 113.3407,72.5279 113.2607,72.5379 113.1919,72.5492 113.1075,72.5656 113.0283,72.581 112.9637,72.6001 112.9122,72.6219 112.8154,72.7373 112.8365,72.7593 112.8572,72.7682 112.9146,72.7751 112.9458,72.7773 113.0222,72.7863 113.0544,72.7955 113.199,72.8634 113.1773,72.9012 113.1827,72.9215 113.209,72.9512 113.2388,72.9878 113.2417,73.0144 113.2155,73.2382 113.1956,73.2456 113.1716,73.2494 113.116,73.2562 113.038,73.2626 113.0103,73.2661 112.9841,73.2727 112.8551,73.3489 112.9774,73.45 113.0107,73.4672 113.0371,73.4729 113.0572,73.4749 113.1285,73.4798 113.1471,73.5027 113.1416,73.5412 113.1198,73.5782 113.0811,73.6029 113.0544,73.6163 113.0257,73.6327 112.9844,73.6575 112.9263,73.7002 112.8758,73.7399 112.8583,73.7595 112.6025,73.8646 112.5839,73.827 112.6488,73.7625 112.6682,73.6973 112.6347,73.6783 112.5917,73.6598 112.5622,73.6484 112.4703,73.6314 112.4504,73.6287 112.4092,73.6256 112.3244,73.6192 112.1735,73.6106 112.1289,73.6094 111.9908,73.6073 111.9676,73.6071 111.818,73.6126 111.7412,73.6169 111.4951,73.6476 111.368,73.6652 111.3058,73.6774 111.1309,73.719 111.0384,73.7441 111.0143,73.7591 111.0116,73.7616 111.0102,73.7612 110.9683,73.7526 110.9265,73.741 110.8832,73.7222 110.8442,73.7165 110.7807,73.7179 110.7142,73.702 110.6435,73.6818 110.6175,73.6659 110.6149,73.6647 110.5999,73.6337 110.6299,73.5969 110.6348,73.5966 110.6442,73.5901 110.6745,73.588 110.7207,73.5793 110.7958,73.5598 110.8283,73.5512 110.8651,73.5353 110.8716,73.5208 110.8536,73.5122 110.8435,73.5006 110.829,73.4891 110.7915,73.4761 110.7409,73.4681 110.6861,73.4667 110.6327,73.4703 110.5764,73.4667 110.5598,73.458 110.5475,73.445 110.5273,73.4277 110.5244,73.414 110.5237,73.4089 110.4623,73.3988 110.4262,73.3794 110.4002,73.3555 110.3627,73.3353 110.3121,73.3151 110.2638,73.305 110.1937,73.3043 110.1216,73.3 110.0501,73.3 109.9411,73.3007 109.8848,73.3014 109.8906,73.2935 109.9035,73.2834 109.9368,73.2783 109.975,73.2747 110.0125,73.2617 110.058,73.2523 110.1049,73.2429 110.1504,73.2343 110.1916,73.2343 110.2327,73.2292 110.2811,73.2205 110.2912,73.2104 110.297,73.1989 110.3309,73.1895 110.3468,73.1794 110.3461,73.1678 110.3193,73.1534 110.258,73.1361 110.1952,73.1188 110.1605,73.1115 110.1475,73.1079 110.1403,73.0964 110.1483,73.0877 110.1743,73.0827 110.2176,73.0812 110.2608,73.0805 110.3013,73.079 110.3648,73.0805 110.4182,73.0819 110.4572,73.0805 110.5034,73.0761 110.5287,73.0689 110.5294,73.0588 110.5222,73.0437 110.5561,73.0278 110.5691,73.0126 110.572,72.9888 110.5777,72.978 110.5958,72.97 110.6276,72.9599 110.6521,72.9484 110.6622,72.9368 110.6485,72.9274 110.6175,72.9231 110.5691,72.9173 110.5258,72.9094 110.5005,72.9 110.494,72.8892 110.5207,72.8798 110.5351,72.8596 110.5344,72.8545 110.5423,72.8509 110.5662,72.8509 110.5842,72.8538 110.5929,72.8531 110.5922,72.8473 110.5806,72.8423 110.5525,72.8372 110.5192,72.8271 110.4803,72.8112 110.4225,72.8069 110.385,72.8033 110.3698,72.7953 110.3727,72.7852 110.3871,72.7787 110.3843,72.7722 110.3734,72.7679 110.3792,72.7528 110.4081,72.747 110.4427,72.7398 110.4499,72.7282 110.4319,72.7174 110.3713,72.7008 110.3561,72.6964 110.3547,72.6842 110.3741,72.651 110.3944,72.6149 110.4088,72.5781 110.4268,72.5578 110.4493,72.5448 110.4984,72.5397 110.5821,72.5369 110.6182,72.534 110.6492,72.5318 110.6601,72.5246 110.6536,72.5195 110.6391,72.5116 110.6153,72.5065 110.616,72.5036 110.6348,72.495 110.6355,72.4899 110.6102,72.482 110.624,72.4762 110.6896,72.4704 110.7286,72.4769 110.7539,72.4748 110.8138,72.4654 110.8853,72.4538 110.9517,72.4459 110.9849,72.4343 110.9936,72.425 111.0325,72.4141 111.0398,72.4047 111.0333,72.3831 110.9827,72.3694 110.9286,72.3593 110.917,72.3427 110.8947,72.3326 110.8384,72.3217 110.7965,72.3051 110.7965,72.2806 110.8044,72.2741 110.8333,72.2647 110.8795,72.2604 110.9271,72.2545 110.9596,72.243 111.0014,72.2336 111.0231,72.2358 111.0447,72.2372 111.0556,72.2343 111.0613,72.2206 111.0758,72.217 111.1018,72.2163 111.1545,72.2156 111.2202,72.2156 111.2678,72.2184 111.2909,72.2213 111.3032,72.217 111.366,72.186 111.3811,72.1758 111.3876,72.1578 111.3739,72.1398 111.345,72.1145 111.3653,72.1065 111.4021,72.0993 111.4403,72.108 111.454,72.1109 111.4642,72.1072 111.4598,72.1029 111.4605,72.0885 111.4663,72.0777 111.4764,72.0654 111.4779,72.0567 111.4959,72.0452 111.5551,72.0315 111.6208,72.0286 111.6973,72.0293 111.732,72.0343 111.7349,72.0286 111.732,72.0127 111.732,71.786 111.7341,71.6113 111.7305,71.5355 111.7319,71.3226 111.7312,71.3082 111.8171,71.2945 111.9182,71.2742 112.0214,71.2504 112.0806,71.2317 112.134,71.2086 112.1384,71.1985 112.1679,71.1927 112.2033,71.1855 112.2185,71.1783 112.2185,71.1754 112.2243,71.1674 112.2488,71.1689 112.3159,71.184 112.3369,71.1884 112.3592,71.1891 112.373,71.1833 112.3795,71.171 112.386,71.1617 112.4069,71.1559 112.4379,71.1487 112.4452,71.1451 112.4372,71.1371 112.4249,71.1119 112.4004,71.1025 112.3203,71.0851 112.2531,71.0722 112.2409,71.0635 112.2416,71.0555 112.2632,71.0418 112.3087,71.0166 112.3167,71.0079 112.3051,71.0007 112.2668,70.9942 112.2214,70.9769 112.1939,70.9624 112.1116,70.966 112.082,70.9559 112.0408,70.9321 111.9939,70.9039 111.9456,70.9018 111.9145,70.9119 111.9059,70.9278 111.8871,70.94 111.8755,70.9523 111.8445,70.9602 111.807,70.9617 111.7781,70.9552 111.7579,70.9364 111.7427,70.9047 111.7174,70.8895 111.6878,70.8808 111.5861,70.8736 111.503,70.865 111.2352,70.8368 111.22,70.8455 111.1847,70.8376 111.1746,70.8181 111.132,70.7928 111.1276,70.787 111.1168,70.782 111.1103,70.7668 111.0894,70.7567 111.0605,70.7531 110.9768,70.7538 110.9573,70.7523 110.8974,70.7516 110.8238,70.7509 110.7725,70.7429 110.7372,70.7343 110.7256,70.7437 110.7032,70.7328 110.6679,70.722 110.6339,70.7169 110.6238,70.7018 110.6,70.6953 110.5711,70.6982 110.5235,70.7047 110.5213,70.7162 110.4412,70.7191 110.4289,70.7054 110.4022,70.6961 110.3431,70.704 110.3322,70.7047 110.2694,70.6983 110.2355,70.686 110.2232,70.6672 110.2283,70.6578 110.2362,70.6275 110.2326,70.616 110.1424,70.6051 110.0449,70.6058 110.0095,70.577 109.9951,70.5705 109.9345,70.5698 109.8991,70.5517 109.845,70.5351 109.8421,70.5322 109.8616,70.5119 109.8689,70.4824 109.8862,70.4643 109.879,70.4542 109.8082,70.4578 109.8089,70.4499 109.8162,70.4455 109.8595,70.4333 109.866,70.4239 109.8653,70.4044 109.8551,70.3849 109.8595,70.3798 109.9078,70.3705 109.9721,70.3647 110.0226,70.351 110.019,70.3351 109.988,70.317 109.8804,70.3228 109.814,70.3113 109.7591,70.3163 109.7368,70.3185 109.6783,70.3033 109.6631,70.3033 109.5649,70.3084 109.4718,70.2881 109.3946,70.2845 109.3621,70.286 109.3368,70.2751 109.3015,70.2542 109.3491,70.2333 109.3505,70.2275 109.3513,70.2174 109.3325,70.1986 109.3036,70.1705 109.2524,70.1517 109.1896,70.1373 109.139,70.1286 109.1123,70.1279 109.0712,70.1293 109.0531,70.125 109.0365,70.1156 109.0243,70.0867 109.0264,70.0752 109.0387,70.0658 109.0704,70.0427 109.1029,70.0188 109.1051,70.0102 109.0986,70.0022 109.0957,69.9842 109.1174,69.9683 109.1708,69.9495 109.2177,69.9438 109.2625,69.9445 109.2625,69.9365 109.2524,69.9134 109.2249,69.9026 109.1665,69.8868 109.1383,69.8557 109.1159,69.8413 109.1029,69.8268 109.1001,69.8124 109.1383,69.7922 109.108,69.7691 109.082,69.7366 109.0423,69.7251 108.9867,69.6839 108.9217,69.6673 108.8698,69.6594 108.7326,69.6759 108.6814,69.6838 108.6554,69.6903 108.6417,69.7019 108.6135,69.7315 108.6027,69.7394 108.5319,69.7423 108.4597,69.7401 108.4114,69.7344 108.332,69.7365 108.2995,69.7387 108.2367,69.7495 108.1818,69.7539 108.1154,69.751 108.0064,69.7567 107.9436,69.7524 107.9233,69.7394 107.8735,69.7279 107.8288,69.7055 107.7515,69.6658 107.7328,69.6405 107.74,69.6124 107.7357,69.6066 107.6591,69.5842 107.6093,69.5727 107.5444,69.5842 107.4678,69.5828 107.3711,69.5683 107.2895,69.5554 107.1827,69.5337 107.0578,69.5185 106.943,69.5012 106.8586,69.4911 106.8239,69.4824 106.7495,69.4601 106.6636,69.4348 106.629,69.4326 106.5814,69.4247 106.5481,69.4139 106.5207,69.4139 106.4449,69.424 106.3742,69.4247 106.3344,69.416 106.2998,69.4196 106.2854,69.4305 106.2745,69.442 106.2139,69.4673 106.1626,69.4694 106.0984,69.4398 106.024,69.3944 106.0168,69.364 105.9879,69.3503 105.8797,69.3279 105.8573,69.3186 105.8573,69.3099 105.8522,69.3041 105.9771,69.216 106.4319,68.8918 106.6051,68.7677 106.6123,68.7554 106.6116,68.7323 106.6145,68.6486 106.621,68.5143 106.6166,68.4126 106.6122,68.3339 106.5992,68.2783 106.5963,68.2205 106.6079,68.1556 106.6093,68.1187 106.6152,68.0307 106.6073,67.965 106.6008,67.908 106.6008,67.8142 106.595,67.7521 106.5849,67.6951 106.564,67.6106 106.551,67.5788 106.551,67.5355 106.5445,67.4532 106.5401,67.3948 106.538,67.3565 106.5279,67.3298 106.5257,67.3118 106.5264,67.2742 106.5242,67.2511 106.5141,67.2367 106.4549,67.2006 106.4051,67.1508 106.3813,67.1428 106.3611,67.1443 106.3091,67.1717 106.2239,67.1861 106.13,67.1674 106.0427,67.1111 106.0044,67.1024 105.9539,67.0844 105.9286,67.0822 105.8406,67.0822 105.764,67.0641 105.7416,67.0129 105.6911,66.9638 105.6175,66.9443 105.5179,66.9335 105.4305,66.9241 105.3446,66.9212 105.2804,66.9241 105.2399,66.9183 105.2469,66.9106 2060,10.0,Russia 126.6598,68.7077 126.9262,68.5969 127.1987,68.4992 127.1991,68.389 127.0233,68.3579 126.8055,68.3062 126.8037,68.1728 126.6866,67.8821 126.7718,67.6749 127.228,67.6097 127.2899,67.4198 127.3712,67.2401 127.2801,66.9695 127.2493,66.6972 127.8793,66.5615 128.3473,66.4902 128.6391,66.4701 128.9903,66.5342 129.3836,66.5715 129.4815,66.6481 129.6879,66.5453 129.9522,66.5997 130.1038,66.4719 130.0032,66.3453 130.1177,66.1067 130.3908,66.0921 130.6153,66.0301 131.1016,65.9334 131.3668,65.8759 131.5931,65.767 131.4935,65.5183 131.6834,65.3218 131.9898,65.1229 132.2418,64.781 132.1988,64.6799 132.2888,64.6314 132.6159,64.6598 132.7491,64.5935 132.9189,64.4546 132.9208,64.2905 132.7294,64.0642 132.128,63.7342 132.4441,63.6535 132.7524,63.3896 132.7524,63.1296 132.6057,62.8307 132.5211,62.5328 132.6325,62.4982 132.6247,62.3475 133.0416,62.126 133.2092,61.9277 133.6373,61.8733 134.0818,61.8634 134.3965,61.5687 134.6466,61.4328 134.2872,61.3311 133.7469,61.318 133.2939,61.2765 132.9833,61.2447 132.9938,61.0807 133.0934,60.8357 133.0641,60.703 132.8101,60.6077 132.474,60.6336 132.3736,60.4992 132.2836,60.3604 132.0095,60.3361 131.8595,60.2686 131.8341,60.0579 131.5787,59.9691 131.6231,59.5362 131.6738,59.2086 131.7425,59.1418 132.1239,59.1466 132.2682,59.0082 132.244,58.8706 132.4111,58.8742 132.539,58.9316 132.6215,58.8875 132.5419,58.803 132.5861,58.7501 132.5459,58.6838 132.5925,58.6589 132.3947,58.5473 132.4515,58.504 132.4077,58.4937 132.2895,58.5216 132.148,58.5043 132.1971,58.4493 132.227,58.354 132.2044,58.2481 132.1404,58.2724 132.0349,58.209 132.0517,58.1673 132.0237,58.1315 132.1366,58.1014 132.1649,58.0786 132.1006,58.056 132.0804,58.0345 131.9611,58.0901 131.8953,58.1353 131.8582,58.1554 131.7704,58.1484 131.7392,58.1991 131.6206,58.1889 131.5619,58.2013 131.4841,58.1827 131.4862,58.1616 131.5675,58.0984 131.653,58.082 131.6748,58.0381 131.6181,58.0318 131.7671,57.9446 131.8109,57.9457 131.8193,57.9014 131.77,57.865 131.9219,57.8315 131.9565,57.7855 132.0433,57.7408 132.0705,57.6759 131.9803,57.6596 132.0019,57.611 131.8662,57.6192 131.7951,57.5869 131.7246,57.5967 131.7098,57.5682 131.7646,57.5392 131.6437,57.4843 131.59,57.4102 131.6206,57.315 131.5301,57.3124 131.5165,57.2745 131.4336,57.2837 131.3431,57.2833 131.2814,57.3377 131.2432,57.2896 131.1899,57.2621 131.1322,57.2368 131.1877,57.2011 131.2136,57.1597 131.2786,57.197 131.336,57.1823 131.3389,57.1543 131.5065,57.1101 131.4637,57.0643 131.5278,57.0217 131.6029,56.9512 131.7301,56.868 131.7734,56.8599 131.8105,56.7765 131.8047,56.7459 131.6908,56.6888 131.6793,56.6275 131.6835,56.5807 131.6571,56.5448 131.742,56.4933 131.6969,56.478 131.6301,56.469 131.5865,56.5311 131.5077,56.5592 131.4279,56.5099 131.4445,56.4682 131.3686,56.4682 131.3252,56.5231 131.1964,56.5002 131.121,56.4133 131.1251,56.3337 131.1047,56.2462 131.0381,56.2017 130.9736,56.1385 130.9556,56.0721 130.893,55.9948 130.7993,55.975 130.797,55.8834 130.8153,55.7925 130.8735,55.7148 130.8773,55.6797 130.9897,55.645 131.1082,55.6145 131.1821,55.6443 131.3611,55.6156 131.4384,55.6453 131.5888,55.6117 131.6172,55.6526 131.7459,55.6472 131.8029,55.616 131.9073,55.6317 132.0269,55.6585 132.1089,55.6333 132.2286,55.7054 132.3955,55.7039 132.4677,55.6782 132.5415,55.678 132.5871,55.6153 132.6641,55.5587 132.609,55.5193 132.7182,55.4542 132.7522,55.4185 132.854,55.4186 132.9455,55.373 132.8161,55.3578 132.7243,55.3506 132.6819,55.3697 132.6563,55.3201 132.6908,55.2735 132.5971,55.1987 132.4068,55.2054 132.3631,55.1953 132.3445,55.1439 132.418,55.0837 132.1927,55.0564 132.0308,55.0286 131.9488,54.9882 131.9968,54.8966 131.8157,54.8442 131.6952,54.7843 131.6139,54.7818 131.5594,54.7237 131.3878,54.7183 131.2761,54.6417 131.1767,54.6037 131.2265,54.5398 131.1671,54.4447 131.117,54.3208 131.0497,54.2802 130.9799,54.2977 130.9364,54.3289 130.8296,54.283 130.7369,54.2813 130.6733,54.2387 130.6222,54.1965 130.5325,54.1418 130.4849,54.0706 130.4733,53.9825 130.4127,53.9471 130.3861,53.9113 130.4386,53.8807 130.5197,53.8968 130.5742,53.8753 130.6585,53.8896 130.7434,53.84 130.8424,53.831 130.8497,53.7894 130.9227,53.7629 131.0188,53.8121 131.1735,53.7939 131.3276,53.7809 131.4373,53.7499 131.4467,53.6772 131.4392,53.6241 131.5021,53.5641 131.4594,53.4952 131.4828,53.4705 131.4761,53.4429 131.5164,53.3603 131.5331,53.306 131.5101,53.256 131.4345,53.2226 131.5174,53.2052 131.6728,53.221 131.7828,53.2408 131.8625,53.2249 131.8341,53.162 131.894,53.1255 131.9496,53.1471 132.0107,53.1343 132.0948,53.2223 132.1675,53.2169 132.3977,53.2464 132.4468,53.2312 132.5919,53.2236 132.6472,53.2594 132.7115,53.2408 132.7987,53.2444 132.8899,53.2298 132.9352,53.289 132.981,53.2771 133.1003,53.3067 133.1613,53.2913 133.1782,53.3208 133.1735,53.3571 133.2188,53.429 133.3199,53.4725 133.4078,53.4738 133.4729,53.5149 133.495,53.4915 133.5281,53.4974 133.5599,53.5434 133.6296,53.5461 133.7171,53.4652 133.7654,53.4694 133.7951,53.4916 133.8203,53.4591 133.8866,53.4707 134.0027,53.4317 134.0689,53.4469 134.1083,53.4436 134.1528,53.4895 134.1896,53.4679 134.2138,53.4699 134.2227,53.4809 134.2189,53.521 134.2614,53.5158 134.3703,53.5384 134.3949,53.5166 134.4492,53.5388 134.4423,53.5952 134.5243,53.5993 134.5575,53.6249 134.6398,53.5961 134.7617,53.5326 134.7377,53.4852 134.7772,53.4707 134.8317,53.4799 134.8318,53.4508 134.9136,53.429 134.9288,53.4035 134.9077,53.3688 134.8321,53.3852 134.8082,53.3323 134.8776,53.3214 134.9079,53.2796 134.9622,53.265 134.9412,53.214 134.857,53.1865 134.8332,53.1118 134.8723,53.0772 134.8004,53.0625 134.6545,52.9309 134.6909,52.8672 134.6282,52.8597 134.6349,52.785 134.7185,52.7615 134.6532,52.734 134.6652,52.7121 134.7604,52.7106 134.7636,52.6723 134.7934,52.6523 134.7402,52.6084 134.7017,52.6101 134.6781,52.5827 134.6368,52.5625 134.6196,52.5004 134.6641,52.4769 134.6292,52.4166 134.5347,52.4162 134.4692,52.4505 134.2947,52.4605 134.2142,52.4946 134.1287,52.4775 134.0839,52.4953 134.0573,52.4951 134.0,52.5402 133.9294,52.5213 133.8583,52.5205 133.8307,52.5549 133.7804,52.5543 133.6464,52.5709 133.6097,52.6051 133.5111,52.6257 133.4894,52.6509 133.418,52.6535 133.3753,52.682 133.3158,52.683 133.2372,52.6434 133.2452,52.5924 133.2377,52.5595 133.2831,52.5365 133.2792,52.4872 133.242,52.4555 133.3267,52.4077 133.3083,52.349 133.3982,52.3139 133.4375,52.2871 133.4097,52.2429 133.3573,52.2275 133.3436,52.2017 133.2061,52.1849 133.1807,52.1607 133.1272,52.1744 133.002,52.1502 132.9256,52.1505 132.833,52.1815 132.7681,52.129 132.6526,52.0937 132.5888,52.0813 132.5384,52.0381 132.5085,51.9479 132.3963,51.9653 132.4342,51.8695 132.2758,51.7887 132.2183,51.8219 132.1265,51.7994 132.0852,51.7635 132.0475,51.8044 131.9648,51.7363 131.8613,51.7588 131.739,51.6802 131.6114,51.6761 131.5918,51.6663 131.4095,51.6913 131.4304,51.6499 131.3913,51.5956 131.4259,51.5273 131.4465,51.4878 131.4854,51.4727 131.5059,51.36 131.4557,51.3382 131.3368,51.3798 131.2346,51.3249 131.1721,51.2476 131.1105,51.26 131.0466,51.2337 131.0455,51.1825 130.9827,51.1453 130.9858,51.1107 130.9302,51.028 130.8106,51.0195 130.7665,50.9408 130.8128,50.9354 130.8416,50.8725 130.7937,50.8651 130.7389,50.7804 130.6757,50.7265 130.7064,50.704 130.6454,50.6575 130.7255,50.5931 130.7578,50.6714 130.7939,50.6509 130.899,50.6515 130.9027,50.6736 131.0108,50.5773 130.9575,50.5074 130.8663,50.4506 130.9308,50.4258 130.9205,50.3833 130.9998,50.3809 131.0472,50.4212 131.1309,50.4336 131.1792,50.3311 131.3088,50.3688 131.3349,50.2545 131.4701,50.1458 131.3026,50.0628 131.2849,49.9706 131.4822,49.9521 131.4821,49.7341 131.3576,49.7242 131.3737,49.6606 131.5082,49.6105 131.4787,49.45 131.5084,49.4236 131.3949,49.2454 131.1685,49.2497 131.0388,49.0888 131.0034,49.0525 131.0121,49.0143 130.9726,48.9632 130.8417,48.9871 130.6768,48.9305 130.6233,48.8877 130.6215,48.8473 130.4801,48.806 130.4833,48.8045 130.48,48.7838 130.4436,48.7547 130.3872,48.6574 130.3393,48.5704 130.3339,48.55 130.4199,48.4645 130.5479,48.3742 130.6348,48.2716 130.6421,48.2386 130.565,48.1373 130.4896,48.084 130.4711,48.0533 130.4913,47.9927 130.5696,47.933 130.6096,47.91 130.6653,47.8763 130.6954,47.8515 130.7251,47.8104 130.7418,47.7841 130.7515,47.7629 130.7579,47.743 130.7472,47.6861 130.7521,47.6657 130.7665,47.6516 130.804,47.6328 130.8429,47.6232 130.898,47.6177 130.9714,47.6386 131.009,47.6519 131.0363,47.6634 131.0796,47.6759 131.2278,47.6839 131.2575,47.6834 131.298,47.6775 131.3463,47.6648 131.3584,47.6429 131.4292,47.6096 131.626,47.6204 131.7258,47.6157 131.9319,47.6383 132.021,47.6588 132.0654,47.6734 132.0998,47.6818 132.1508,47.6879 132.1752,47.6874 132.1992,47.6817 132.228,47.6706 132.276,47.6623 132.3307,47.6559 132.352,47.6593 132.3873,47.6789 132.4714,47.8173 132.6725,47.9397 132.8909,48.0437 133.002,48.0546 133.08,48.0493 133.2363,48.0304 133.2566,48.0192 133.2918,48.0139 133.3224,48.0211 133.3481,48.0438 133.3629,48.0659 133.3808,48.0967 133.4032,48.1188 133.5579,48.1944 133.691,48.209 133.817,48.2506 133.8453,48.2679 133.8723,48.2741 134.0127,48.2872 134.2208,48.3356 134.2375,48.3233 134.2692,48.3045 134.288,48.2949 134.4492,48.2363 134.5228,48.2159 134.546,48.2121 134.5218,48.2054 134.486,48.1597 134.4915,48.1277 134.4867,48.1001 134.4666,48.0458 134.4426,48.0331 134.4075,48.0212 134.3875,48.0055 134.3723,47.9771 134.3638,47.9373 134.4001,47.8565 134.4906,47.7461 134.5213,47.7218 134.5751,47.6828 134.5675,47.6459 134.3623,47.4148 134.2935,47.3753 134.2667,47.3735 134.2252,47.3772 134.1954,47.3766 134.1507,47.3719 134.1224,47.3669 134.1036,47.3596 133.9907,47.2692 133.9578,47.1948 133.999,47.1272 134.0316,47.0762 134.0241,47.046 133.9958,47.03 133.9459,47.0231 133.9225,47.002 133.8749,46.9007 133.8489,46.8072 133.853,46.7137 133.8294,46.6133 133.8151,46.591 133.8076,46.5869 133.8076,46.5805 133.7809,46.5582 133.7193,46.525 133.6576,46.426 133.6613,46.3903 133.7136,46.3683 133.7402,46.3289 133.7125,46.2011 133.6414,46.1425 133.556,46.1031 133.5355,46.0167 133.4723,45.8827 133.3918,45.819 133.3627,45.8325 133.3333,45.8314 133.2883,45.7712 133.2872,45.7458 133.3002,45.6262 133.283,45.5728 133.2301,45.5379 133.1952,45.5182 133.0816,45.4736 133.0574,45.4644 133.03,45.4594 133.0057,45.4521 132.9627,45.3993 132.9438,45.3629 132.9157,45.243 132.9133,45.1776 132.9276,45.1459 132.9402,45.1133 132.9316,45.0735 132.889,45.0377 132.8395,45.0058 132.7666,44.9734 132.7454,44.9702 132.6856,44.9869 132.6141,45.0138 132.3828,45.065 132.1791,45.1096 132.1141,45.1238 132.0122,45.146 131.938,45.1623 131.808,45.1901 131.7769,45.2047 131.7393,45.2346 131.726,45.2571 131.7111,45.2861 131.6839,45.2942 131.6517,45.2827 131.5191,45.1649 131.4689,45.0826 131.4625,45.057 131.4443,45.0404 131.2848,44.923 131.157,44.92 131.1304,44.9042 131.1022,44.8808 131.0285,44.8596 130.9934,44.8611 130.9655,44.8773 130.9406,44.8764 130.9083,44.8678 130.8838,44.8587 130.7694,44.7859 130.8171,44.7314 130.8364,44.7225 130.872,44.7026 130.9119,44.6409 130.945,44.5355 131.0723,44.1346 131.1014,44.0439 131.1146,44.002 131.0795,43.9876 131.0613,43.9716 131.048,43.9242 131.0161,43.7693 131.0086,43.4871 131.0401,43.4626 131.0526,43.4565 131.0899,43.4329 131.1004,43.4241 131.1181,43.4081 131.1274,43.3407 131.0815,43.2212 131.0095,43.137 130.9242,42.9903 130.9211,42.9671 130.9217,42.9336 130.933,42.9102 130.9514,42.8911 130.9463,42.8681 130.8397,42.8085 130.7055,42.8036 130.6838,42.8092 130.6601,42.8217 130.6369,42.8278 130.6139,42.8237 130.4568,42.7834 130.3517,42.7418 130.2947,42.7171 130.2517,42.6964 130.2304,42.6547 130.2903,42.6308 130.3165,42.6368 130.3551,42.634 130.4041,42.5968 130.4243,42.5715 130.4379,42.5372 130.4267,42.5155 130.3996,42.4331 130.4236,42.3739 130.4519,42.3636 130.4782,42.3274 130.4721,42.2923 130.4744,42.2703 130.5168,42.2445 130.5432,42.2603 130.5632,42.2831 130.6879,42.4757 130.656,42.5083 130.6091,42.5172 130.5663,42.5384 130.4954,42.6037 130.533,42.6374 130.6238,42.6397 130.7031,42.6062 130.7863,42.5791 130.8097,42.5878 130.9323,42.6143 130.9823,42.5557 130.9855,42.5268 131.0211,42.508 131.0413,42.5104 131.0496,42.5413 131.0513,42.5479 131.0305,42.5667 131.0372,42.603 131.0959,42.7154 131.1216,42.73 131.1742,42.7513 131.2902,42.8237 131.3167,42.8947 131.3421,42.9567 131.4014,42.9969 131.4558,43.0517 131.5702,43.1726 131.5785,43.229 131.5942,43.2549 131.6269,43.2767 131.8669,43.2642 131.8613,43.2317 131.8082,43.1863 131.7793,43.1789 131.7478,43.1653 131.7247,43.1455 131.6614,43.0346 131.7653,43.0151 131.8625,43.075 131.8889,43.1056 131.9138,43.1275 131.9483,43.1435 131.9729,43.1516 132.0035,43.1605 132.045,43.1818 132.103,43.2386 132.1184,43.2682 132.1674,43.2433 132.1848,43.1646 132.1668,43.1182 132.1513,43.0849 132.1214,43.0043 132.101,42.9129 132.1042,42.8313 132.1275,42.7981 132.168,42.8023 132.1679,42.8479 132.2392,42.881 132.2778,42.8853 132.3224,42.8606 132.4052,42.7937 132.5043,42.811 132.5876,42.8214 132.59,42.7723 132.6142,42.7146 132.6336,42.7033 132.6565,42.6928 132.6689,42.6907 132.6933,42.7059 132.7074,42.7494 132.7316,42.7698 132.7515,42.7734 132.81,42.7706 132.8547,42.7224 132.8443,42.6919 132.8164,42.6677 132.8486,42.6364 132.906,42.6336 132.9702,42.6345 133.0043,42.6509 133.0315,42.6797 133.1866,42.7085 133.2574,42.7301 133.3844,42.7707 133.7197,42.827 133.7544,42.8428 133.944,42.9814 133.9992,43.0297 134.0839,43.0534 134.1157,43.0615 134.1611,43.0695 134.2351,43.1029 134.4104,43.1833 134.4587,43.2109 134.6387,43.3229 134.6748,43.3459 134.8119,43.4132 134.8694,43.4395 134.9014,43.4475 134.9429,43.4543 135.0341,43.5892 135.086,43.6383 135.1705,43.6654 135.2336,43.7066 135.2778,43.7522 135.3139,43.799 135.3131,43.829 135.288,43.8264 135.2702,43.894 135.3705,43.9615 135.409,43.9637 135.4405,43.9835 135.4425,43.9995 135.4434,44.0275 135.4578,44.1066 135.5328,44.1838 135.5802,44.1974 135.6117,44.2146 135.6474,44.2669 135.6469,44.299 135.7019,44.3513 135.7918,44.3765 135.8592,44.3954 135.9395,44.4266 135.9935,44.4631 136.0349,44.5477 136.0366,44.5786 136.0531,44.613 136.0667,44.6308 136.1829,44.737 136.2461,44.7358 136.3073,44.7958 136.3683,44.8676 136.3849,44.8998 136.4092,44.93 136.4634,44.9789 136.5046,45.0003 136.6019,45.0869 136.6663,45.162 136.8143,45.2575 136.8511,45.2788 136.8993,45.3031 136.9844,45.3644 137.0667,45.4277 137.0984,45.4734 137.1412,45.5207 137.1843,45.5576 137.2523,45.5977 137.3352,45.6394 137.4704,45.7365 137.4963,45.7706 137.5118,45.8077 137.581,45.8815 137.6001,45.8987 137.659,45.9462 137.7369,46.0119 137.8678,46.1287 137.9063,46.1722 137.9157,46.1951 137.9152,46.2247 137.9617,46.3309 138.0045,46.3938 138.0378,46.4295 138.0576,46.44 138.08,46.4472 138.1095,46.4606 138.1281,46.4724 138.1475,46.496 138.157,46.5299 138.1528,46.5502 138.1486,46.5728 138.1526,46.5925 138.1638,46.6288 138.1874,46.6816 138.1973,46.701 138.358,46.9653 138.3758,46.9893 138.4094,47.0247 138.4361,47.0396 138.4747,47.0596 138.5189,47.0906 138.5653,47.1249 138.6436,47.2018 138.6978,47.2537 138.7884,47.3002 138.8263,47.336 138.845,47.3511 138.8531,47.3855 138.8464,47.4167 138.8998,47.4984 139.0655,47.7354 139.0836,47.7595 139.1709,47.8312 139.2242,47.8674 139.2545,47.8801 139.2726,47.8882 139.3218,47.9134 139.4536,48.0119 139.4727,48.0296 139.5024,48.0654 139.6632,48.1841 139.8027,48.268 139.9729,48.3945 139.9884,48.4594 139.9721,48.4926 139.9805,48.6147 140.0093,48.7077 140.0407,48.7839 140.0619,48.8034 140.0969,48.8214 140.1433,48.8495 140.1836,48.9097 140.188,48.9347 140.1621,48.9543 140.1341,49.2154 140.2281,49.2974 140.3466,49.4998 140.3205,49.6717 140.2626,49.7366 140.2371,49.7592 140.2028,49.8083 140.2783,49.9216 140.3505,49.9449 140.4479,49.9958 140.4788,50.0324 140.4192,50.0327 140.3815,50.0165 140.323,50.0734 140.3053,50.1137 140.3057,50.1321 140.3211,50.1594 140.315,50.3083 140.2963,50.3859 140.2807,50.4118 140.2367,50.4533 140.2266,50.4787 140.2729,50.5511 140.2481,50.6433 140.3141,50.8069 140.3727,50.857 140.4033,50.8711 140.4257,50.8746 140.4622,50.8877 140.4914,50.9682 140.4948,50.9926 140.4813,51.0415 140.46,51.1144 140.4585,51.1451 140.4731,51.2576 140.4915,51.2704 140.5121,51.2765 140.5456,51.2809 140.5679,51.2722 140.6011,51.2766 140.6501,51.3022 140.6682,51.3639 140.5965,51.3536 140.5781,51.3959 140.6174,51.4223 140.6626,51.4199 140.6843,51.4344 140.6887,51.5156 140.6892,51.5527 140.7767,51.5996 140.797,51.6053 140.8619,51.6186 140.9669,51.7337 140.9804,51.763 140.9951,51.777 141.0549,51.8143 141.144,51.8468 141.18,51.8487 141.2013,51.8628 141.2066,51.8836 141.1349,51.9244 141.104,51.9336 141.0832,51.9483 141.0876,51.9728 141.1208,52.0426 141.1757,52.078 141.2634,52.1006 141.2836,52.1513 141.2424,52.1504 141.2113,52.153 141.1724,52.165 141.0537,52.228 140.941,52.3015 140.9066,52.3486 140.9,52.3697 140.9034,52.3997 140.9255,52.4224 140.9445,52.4308 140.9738,52.4355 140.9957,52.4461 141.0301,52.4838 141.0433,52.4999 141.0584,52.5236 141.0869,52.5968 141.0568,52.6551 140.9741,52.7814 140.8528,52.8181 140.7323,52.8794 140.7139,52.9265 140.5725,53.0097 140.4855,53.0539 140.5223,53.0602 140.5726,53.0606 140.6126,53.0581 140.6375,53.0469 140.7341,52.9957 140.8997,52.9233 140.929,52.9175 140.9507,52.9199 140.979,52.9271 141.0255,52.9658 141.0058,52.972 140.962,52.9789 141.0082,53.0158 141.0325,53.0286 141.1252,53.0338 141.2068,53.0917 141.1846,53.2314 141.1644,53.2409 141.0826,53.25 141.0394,53.245 141.0121,53.2457 140.9915,53.2528 140.911,53.2988 140.8042,53.3412 140.6958,53.3737 140.7085,53.4191 140.7334,53.4371 140.6754,53.4544 140.5551,53.4902 140.3517,53.5694 140.3243,53.5851 140.2964,53.6226 140.3073,53.6468 140.2554,53.6785 140.2218,53.6943 140.1779,53.7023 140.1503,53.7066 140.1291,53.7169 140.0471,53.7787 140.0237,53.7997 140.0196,53.8279 140.0256,53.9211 140.0071,53.987 139.9554,54.0069 139.9053,54.025 139.8638,54.0294 139.8329,54.035 139.7942,54.0472 139.7661,54.0582 139.5816,54.1479 139.5586,54.1643 139.5584,54.1873 139.5677,54.2287 139.5176,54.2448 139.4951,54.244 139.4676,54.2346 139.4458,54.224 139.4248,54.2088 139.4019,54.1949 139.3359,54.1778 139.1043,54.1202 139.0094,54.1282 138.976,54.1316 138.8302,54.1548 138.7627,54.1656 138.7402,54.1718 138.6953,54.184 138.6386,54.2 138.5728,54.2242 138.499,54.2509 138.4709,54.2498 138.4256,54.2254 138.4572,54.217 138.4797,54.2095 138.5092,54.1854 138.5477,53.9842 138.5454,53.9615 138.5397,53.9418 138.5266,53.9023 138.4759,53.7689 138.4404,53.6902 138.4206,53.6575 138.394,53.6177 138.3327,53.5323 138.3229,53.5174 138.2598,53.4722 138.2383,53.4589 138.2042,53.4445 138.174,53.4421 138.0232,53.4582 138.0131,53.4968 138.1461,53.6159 138.1626,53.6292 138.2236,53.6749 138.2449,53.6883 138.2788,53.7016 138.3426,53.7521 138.3606,53.7917 138.3436,53.8889 138.3236,53.9264 138.1618,53.8572 138.1124,53.8229 138.0945,53.7685 138.0647,53.68 137.9539,53.6241 137.8787,53.6017 137.7284,53.5376 137.6726,53.5106 137.4801,53.4826 137.4576,53.4802 137.1641,53.4624 137.1424,53.462 137.1205,53.4628 137.0859,53.4704 137.0179,53.4944 136.9871,53.5197 137.004,53.5409 137.0417,53.5471 137.0742,53.578 137.1108,53.5981 137.1437,53.6033 137.1822,53.6033 137.2149,53.6025 137.26,53.6017 137.3376,53.6679 137.3376,53.7153 137.3702,53.7637 137.4238,53.7982 137.4664,53.8148 137.4882,53.8207 137.5101,53.8239 137.5321,53.828 137.5533,53.8341 137.5749,53.8461 137.6271,53.8991 137.4354,53.903 137.3673,53.8909 137.3301,53.9016 137.285,53.9263 137.2609,53.941 137.2358,53.9576 137.1987,53.9725 137.1623,53.9758 137.1402,53.9752 137.1122,53.9778 137.0775,53.9884 137.0647,54.0119 137.0897,54.0584 137.1282,54.0719 137.2,54.0827 137.2227,54.0738 137.2829,54.088 137.3832,54.1673 137.51,54.244 137.4561,54.2569 137.4203,54.2312 137.3088,54.2288 137.286,54.2379 137.2625,54.2472 137.2349,54.2491 137.201,54.248 137.1571,54.2415 137.0647,54.2028 136.9632,54.1543 136.8345,54.0744 136.9283,53.9852 136.9497,53.9719 136.9816,53.9729 137.0253,53.9813 137.0545,53.9746 137.0365,53.9177 136.9737,53.8053 136.9489,53.7754 136.9161,53.7512 136.8866,53.7414 136.8483,53.751 136.8336,53.7693 136.8004,53.7819 136.7333,53.7896 136.7112,53.7892 136.6354,53.7718 136.6157,53.7626 136.5464,53.7038 136.5353,53.706 136.4554,53.7482 136.4276,53.8566 136.4306,53.8766 136.4617,53.9433 136.4864,53.9662 136.5368,54.0067 136.5775,54.0683 136.5816,54.0912 136.5708,54.1107 136.5373,54.1538 136.5182,54.3643 136.5768,54.447 136.6487,54.5194 136.5805,54.5862 136.5368,54.5831 136.4901,54.549 136.3048,54.5258 136.1405,54.5356 136.0185,54.5504 135.9788,54.5532 135.8695,54.5427 135.8085,54.5277 135.7432,54.5106 135.6315,54.5041 135.5414,54.5044 135.5014,54.5079 135.4759,54.5202 135.4534,54.5565 135.4441,54.5762 135.2743,54.6158 135.193,54.6334 135.0557,54.648 135.0317,54.6564 134.9475,54.7408 134.9344,54.7597 134.9258,54.7971 134.9402,54.8223 134.9864,54.8661 135.0675,54.9166 135.2185,55.0011 135.3261,55.0589 135.3539,55.064 135.4215,55.0694 135.4448,55.0675 135.4814,55.0713 135.5115,55.0805 135.693,55.1638 135.7707,55.2018 135.8301,55.2307 135.8525,55.2361 135.8932,55.237 135.9324,55.265 136.0639,55.3694 136.0738,55.3972 136.0938,55.4386 136.1227,55.4693 136.1811,55.5033 136.2085,55.5165 136.2479,55.5249 136.3017,55.5358 136.364,55.5613 136.4301,55.592 136.4524,55.5979 136.4917,55.5958 136.5862,55.6437 136.6081,55.6574 136.7311,55.7249 136.9553,55.8278 136.9891,55.8402 137.0339,55.8569 137.2176,55.9771 137.2839,56.0178 137.323,56.0411 137.3627,56.0547 137.4846,56.1086 137.6006,56.1839 137.6397,56.2227 137.6556,56.2457 137.6741,56.2788 137.7699,56.3158 137.816,56.3326 137.9012,56.3914 137.9058,56.4293 137.8859,56.4547 137.8724,56.5002 137.8941,56.5265 137.929,56.5461 137.9608,56.555 138.0001,56.5701 138.0183,56.5796 138.0287,56.5992 138.0608,56.6496 138.096,56.6578 138.1195,56.6609 138.1557,56.6696 138.2324,56.7784 138.2845,56.7935 138.308,56.7979 138.3409,56.8075 138.3676,56.8795 138.3875,56.906 138.4058,56.9179 138.4293,56.9234 138.5406,56.9446 138.6623,56.9592 138.7176,56.9937 138.8342,57.1019 138.8714,57.1543 138.93,57.1958 138.9954,57.2127 139.1608,57.2499 139.191,57.2483 139.2212,57.2501 139.2697,57.2778 139.3148,57.3123 139.3319,57.3593 139.3457,57.3757 139.3694,57.3876 139.4374,57.4146 139.4795,57.4234 139.5038,57.4263 139.5398,57.4279 139.5701,57.4324 139.5882,57.4409 139.6091,57.4672 139.6183,57.4868 139.6324,57.5094 139.6921,57.5812 139.7318,57.6107 139.7567,57.6273 139.8141,57.6532 139.994,57.6903 140.0367,57.693 140.0599,57.6841 140.1207,57.7011 140.2468,57.7576 140.2517,57.7807 140.2546,57.8266 140.2607,57.8727 140.382,58.073 140.428,58.1611 140.5332,58.2388 140.6443,58.3054 140.7621,58.3624 140.8308,58.3907 140.8555,58.3983 140.8806,58.4009 140.9051,58.4008 140.9609,58.4077 141.0172,58.4264 141.0771,58.4478 141.2325,58.5158 141.2704,58.5323 141.2956,58.5451 141.3557,58.5759 141.4367,58.6207 141.4598,58.6402 141.5777,58.7429 141.6086,58.7817 141.6504,58.8332 141.6902,58.8779 141.7152,58.897 141.7819,58.9356 141.8965,58.9984 141.9559,59.0289 141.9817,59.0415 142.0393,59.0671 142.2773,59.1544 142.3225,59.1669 142.5082,59.2016 142.7161,59.241 142.8093,59.2629 142.8717,59.2859 142.9442,59.3053 143.0435,59.3011 143.0687,59.298 143.1124,59.2853 143.1586,59.2669 143.2064,59.2668 143.2637,59.2699 143.3091,59.2773 143.3579,59.2879 143.3998,59.2999 143.4258,59.3086 143.4521,59.3143 143.5166,59.3284 143.5555,59.3339 143.5812,59.3372 143.6326,59.3413 143.6582,59.3419 143.6863,59.3425 143.7476,59.3422 143.8865,59.3298 144.0585,59.3251 144.1096,59.3262 144.1407,59.323 144.1796,59.3101 144.2841,59.3019 144.3225,59.3008 144.4102,59.3028 144.3687,59.306 144.3482,59.318 144.4918,59.3239 144.5274,59.3163 144.5536,59.3076 144.5917,59.305 144.6145,59.3044 144.6607,59.3044 144.7889,59.3131 144.8149,59.3175 144.8479,59.3267 144.8942,59.3395 144.9333,59.3461 144.9787,59.3518 145.0226,59.3421 145.0442,59.3229 145.0886,59.3225 145.1146,59.3255 145.1949,59.3345 145.2472,59.343 145.394,59.3532 145.5339,59.3308 145.6046,59.3428 145.6364,59.3422 145.6514,59.3136 145.639,59.279 145.6163,59.2739 145.5947,59.2629 145.5554,59.2291 145.5265,59.194 145.5404,59.1743 145.6855,59.0815 145.7195,59.078 145.7585,59.0845 145.8371,59.1007 146.0429,59.1117 146.0701,59.13 146.0647,59.1611 146.0488,59.2218 146.0448,59.2905 146.0524,59.3192 146.0972,59.3468 146.1856,59.3813 146.2123,59.388 146.2382,59.3896 146.271,59.3876 146.391,59.3533 146.4232,59.3268 146.4722,59.3025 146.5534,59.2917 146.6011,59.2871 146.6148,59.2929 146.6279,59.2962 146.6674,59.3021 146.7249,59.3021 146.8051,59.2841 146.8517,59.2597 146.8796,59.2509 146.8836,59.3341 146.8967,59.3825 146.9443,59.4028 147.0458,59.3963 147.1043,59.4112 147.0954,59.4682 147.1303,59.4994 147.1134,59.5346 147.129,59.5655 147.1222,59.6104 147.1688,59.6383 147.0825,59.6942 147.1416,59.7382 147.1449,59.7757 147.0999,59.8049 147.1377,59.8315 147.1393,59.8529 147.1203,59.8829 147.0469,59.8996 147.0413,59.9368 146.9878,59.9495 146.8866,59.932 146.7924,59.9041 146.7345,59.958 146.635,59.9931 146.6795,60.0149 146.6911,60.0948 146.5994,60.1344 146.534,60.1091 146.4529,60.1304 146.4704,60.1795 146.4322,60.2185 146.4198,60.2509 146.3689,60.2727 146.3098,60.2531 146.2288,60.2387 146.1489,60.1896 145.8437,60.2159 145.8205,60.192 145.7805,60.1954 145.7517,60.2129 145.6622,60.23 145.586,60.3407 145.6564,60.3435 145.6449,60.394 145.5223,60.4116 145.5052,60.4721 145.5563,60.5078 145.61,60.5184 145.612,60.557 145.6811,60.5739 145.7734,60.6072 145.8586,60.5936 145.9027,60.6136 145.9036,60.6415 145.9617,60.6571 146.0039,60.6836 146.0528,60.7355 146.111,60.7381 146.1951,60.7082 146.3134,60.6635 146.4059,60.6575 146.4581,60.6863 146.4876,60.7312 146.4501,60.7614 146.4937,60.8083 146.5235,60.8714 146.4777,60.9218 146.5364,60.9608 146.6936,60.9533 146.7318,61.0017 146.6626,61.0608 146.6738,61.0846 146.7319,61.0967 146.7158,61.1369 146.7549,61.2046 146.7284,61.2588 146.7016,61.3184 146.7453,61.3975 146.6614,61.4082 146.6104,61.4342 146.6302,61.4746 146.5776,61.5266 146.5848,61.623 146.5063,61.6557 146.441,61.7055 146.4551,61.7248 146.3666,61.7679 146.3645,61.8231 146.2643,61.8606 146.1994,61.9134 146.1494,61.9143 146.1062,61.9524 146.0345,61.9443 145.9976,61.9936 145.8744,62.0272 145.8011,62.0084 145.7418,62.0604 145.6655,62.0525 145.6394,62.005 145.4833,61.9516 145.4241,61.9853 145.285,62.0002 145.223,61.9727 145.0469,61.9999 144.9943,62.0413 144.853,62.0506 144.7341,62.0442 144.596,61.9843 144.5401,61.8509 144.441,61.8246 144.3785,61.7914 144.2912,61.7803 144.2416,61.7366 144.1329,61.744 144.0145,61.7263 143.9155,61.8132 143.9413,61.893 143.9966,61.9568 143.9456,61.9999 143.7992,61.9516 143.7636,61.8918 143.6904,61.8344 143.6307,61.8318 143.629,61.8897 143.6269,61.9702 143.6003,62.0286 143.4961,62.0234 143.4454,62.0459 143.3763,62.0191 143.254,62.0555 143.2275,62.117 143.125,62.1018 143.0982,62.036 143.0684,62.0099 142.9975,61.966 142.9981,61.9168 142.9312,61.895 142.8754,61.9336 142.6708,61.9688 142.5514,61.9093 142.4209,61.8577 142.4007,61.9422 142.2626,61.9625 142.2717,62.0004 142.1742,62.059 142.1307,62.087 142.0588,62.0234 141.9739,62.0299 141.8747,62.004 141.824,62.0109 141.8601,62.0795 141.742,62.0811 141.662,62.1214 141.5799,62.1627 141.5139,62.2587 141.4207,62.2834 141.2971,62.4363 141.2003,62.4247 141.1057,62.4012 141.0368,62.487 140.8816,62.4884 140.7854,62.5563 140.6911,62.4857 140.5645,62.4243 140.4658,62.4815 140.3865,62.615 140.3334,62.7368 140.149,62.7437 139.809,62.6867 139.6157,62.672 139.629,62.7938 139.6453,62.8598 139.5953,62.9491 139.4481,63.0177 139.4091,63.0694 139.4729,63.179 139.5842,63.3243 139.7929,63.5115 140.2449,63.6046 140.5898,63.565 140.6121,63.6173 140.5289,63.7429 140.5393,63.857 140.7057,63.9037 140.7,63.9944 140.7638,64.1862 140.5302,64.2085 140.2738,64.3377 140.0792,64.3472 139.9207,64.4217 140.4104,64.5642 140.3926,64.5994 139.6651,64.8713 139.4602,64.9174 139.3359,65.0007 139.4208,65.0966 139.5734,65.2143 139.7419,65.342 139.8988,65.4327 140.2935,65.5206 140.4768,65.5993 140.1871,65.6306 140.3657,65.7468 140.0395,65.8988 140.1095,66.0215 139.7325,66.2088 139.7206,66.2863 140.2823,66.3828 140.5675,66.4129 140.6801,66.4994 140.3635,66.5769 140.0317,66.7207 139.6973,66.8345 139.5683,66.9393 139.4904,67.069 139.2944,67.077 139.1524,67.0833 138.9235,67.1421 138.7757,67.2014 138.6964,67.2643 138.9752,67.3747 138.9286,67.4688 138.792,67.5676 139.2312,67.5755 139.5992,67.68 139.8727,67.7866 140.0657,67.9005 140.6587,67.9001 141.0668,67.8938 141.0375,68.0813 141.1361,68.1577 141.219,68.2799 141.0539,68.4164 141.0636,68.48 141.6656,68.6042 141.8055,68.7294 141.7117,68.9305 141.5262,69.1801 141.9302,69.2741 142.7507,69.2534 142.6823,69.422 142.4056,69.4551 142.3999,69.6156 142.1092,69.638 142.2096,69.845 141.5915,69.8684 141.0122,69.9764 140.9119,70.089 141.074,70.1636 140.9161,70.2967 141.5876,70.5488 141.6537,70.6533 141.598,70.778 141.9313,70.8782 142.5778,71.1476 142.3159,71.3074 142.5069,71.3937 142.4422,71.5512 142.6745,71.6065 142.9663,71.6993 142.9747,71.8006 143.1474,71.8847 143.3397,72.0482 143.5384,72.1042 143.6567,72.2278 144.0141,72.2257 144.1994,72.3167 144.4025,72.2953 144.4248,72.3044 144.4547,72.3132 144.5396,72.3314 144.5602,72.3345 144.561,72.3346 144.7287,72.4785 144.6986,72.4802 144.3134,72.5009 144.2528,72.5058 144.2126,72.5111 144.1329,72.5235 144.0929,72.5301 143.992,72.5405 143.7895,72.5548 143.7483,72.5564 143.687,72.5589 143.6053,72.5601 143.564,72.558 143.5222,72.5536 143.4648,72.5544 143.4446,72.5562 143.4245,72.5587 143.3038,72.5775 143.2435,72.5869 143.2231,72.5897 143.2026,72.5922 143.1621,72.5938 143.0799,72.595 143.0389,72.5944 143.018,72.5932 142.9561,72.5928 142.8945,72.5919 142.7711,72.5912 142.7097,72.5918 142.5497,72.596 142.4469,72.5992 142.3653,72.605 142.1389,72.6008 141.9541,72.6056 141.6714,72.621 141.6509,72.6225 141.5276,72.6319 141.5076,72.6342 141.2409,72.6698 141.2203,72.6736 141.1797,72.6834 141.1304,72.6977 141.0731,72.7254 141.0508,72.7408 141.0282,72.75 141.0077,72.7535 140.5937,72.7802 140.4072,72.7918 140.3221,72.7959 140.3016,72.7959 140.2806,72.7945 140.2515,72.7897 140.2375,72.7735 140.325,72.7049 140.4845,72.6613 140.6285,72.6159 140.6612,72.6039 140.6798,72.5884 140.6852,72.4887 140.6605,72.4729 140.469,72.4316 140.3262,72.4049 140.2655,72.3973 140.0622,72.386 139.7577,72.3761 139.7169,72.3783 139.5329,72.3999 139.4512,72.4045 139.3291,72.4042 139.2884,72.4029 139.2072,72.3977 139.1593,72.385 139.1356,72.3762 138.9818,72.3107 138.8343,72.2271 138.8046,72.1987 138.7575,72.1338 138.8052,72.0936 138.8222,72.0814 138.8555,72.0663 138.9154,72.0449 138.9357,72.0386 138.956,72.0339 138.9962,72.0315 139.038,72.0638 139.1549,72.1128 139.2297,72.1365 139.2979,72.1387 139.3989,72.1328 139.4391,72.1328 139.5194,72.133 139.6199,72.1358 139.6799,72.141 139.7,72.1387 139.8175,72.123 139.8619,72.1103 139.8848,72.0859 139.8669,72.0733 139.752,72.0417 139.7321,72.038 139.7119,72.0405 139.6876,72.0498 139.6348,72.0712 139.6144,72.0748 139.5944,72.077 139.5741,72.0783 139.5541,72.0769 139.5284,72.069 139.4104,72.001 139.3832,71.9794 139.3672,71.941 139.3852,71.907 139.3609,71.881 139.3181,71.8594 139.2808,71.8517 139.2316,71.8506 139.1914,71.8556 139.1316,71.8614 139.0817,71.8623 139.052,71.8608 139.0094,71.8499 139.0293,71.8451 139.0694,71.8402 139.2088,71.8323 139.2687,71.8276 139.2887,71.8251 139.3167,71.8159 139.4117,71.7407 139.3632,71.6914 139.3831,71.614 139.4067,71.574 139.4747,71.5096 139.5226,71.4818 139.602,71.4546 139.6088,71.3905 139.4194,71.37 139.3173,71.3856 139.2315,71.3949 139.1243,71.4014 139.0952,71.3966 139.048,71.347 139.032,71.3269 138.9299,71.317 138.8815,71.3181 138.793,71.3335 138.7655,71.3887 138.7217,71.4714 138.7036,71.4797 138.6641,71.4853 138.5048,71.5186 138.41,71.5477 138.381,71.5461 138.333,71.5359 138.2667,71.5177 138.2399,71.5084 138.2673,71.4932 138.2701,71.4562 138.1362,71.4389 138.1144,71.4424 138.0768,71.4766 138.1083,71.4995 138.1351,71.5047 138.1669,71.5164 138.0696,71.5131 137.9183,71.5015 137.7837,71.4841 137.7458,71.4787 137.7143,71.4642 137.7032,71.4423 137.705,71.401 137.6889,71.3745 137.6171,71.3265 137.5959,71.314 137.5569,71.3013 137.5078,71.2926 137.559,71.2688 137.6751,71.2405 137.7656,71.2395 137.8468,71.2389 137.8701,71.2386 137.9151,71.2292 137.8467,71.2282 137.8068,71.2307 137.6687,71.1999 137.733,71.1928 137.7617,71.1973 137.8003,71.1951 137.8878,71.182 137.8982,71.1651 137.8564,71.1465 137.7451,71.1267 137.6971,71.1259 137.6294,71.1298 137.5639,71.1466 137.512,71.1623 137.4672,71.1512 137.4312,71.1274 137.4763,71.1116 137.601,71.1002 137.6943,71.0895 137.7519,71.0423 137.6694,71.0131 137.6389,71.0446 137.5907,71.0482 137.5608,71.0397 137.5442,71.021 137.4886,71.0221 137.4567,71.0316 137.3937,71.0871 137.3803,71.1265 137.3253,71.1616 137.2794,71.1467 137.2222,71.1445 137.1061,71.1853 137.1289,71.2121 137.1598,71.2372 137.1352,71.2469 136.9618,71.2913 136.9217,71.3007 136.8655,71.3121 136.8456,71.3154 136.806,71.3198 136.7578,71.3195 136.569,71.3665 136.5159,71.4013 136.4896,71.4166 136.461,71.4239 136.4008,71.4342 136.3522,71.4344 136.3145,71.4264 136.2483,71.4061 136.1807,71.4727 136.1441,71.4794 136.1055,71.4781 136.0365,71.4804 135.9968,71.4836 135.9372,71.4887 135.8766,71.4985 135.8558,71.503 135.7699,71.5208 135.6889,71.5316 135.6487,71.5372 135.5393,71.5446 135.4552,71.5429 135.2762,71.5202 135.1262,71.4935 135.0397,71.4709 135.0645,71.4575 135.1047,71.4374 135.0443,71.4298 135.0243,71.4306 134.9841,71.4368 134.9648,71.4432 134.9437,71.4487 134.9135,71.453 134.7449,71.4396 134.7075,71.4337 134.497,71.3822 134.473,71.3701 134.3853,71.3207 134.1427,71.2731 133.9645,71.272 133.6973,71.2885 133.6158,71.3004 133.3702,71.3387 133.3085,71.3495 133.2669,71.3569 133.2043,71.3696 133.1614,71.3808 133.0589,71.4072 133.0236,71.4184 132.8486,71.478 132.7984,71.504 132.6791,71.5732 132.6534,71.5895 132.6341,71.6105 132.6157,71.6286 132.5878,71.6401 132.4955,71.6547 132.4319,71.666 132.4054,71.6731 132.3964,71.6976 132.4109,71.7168 132.4453,71.7336 132.4411,71.8388 132.4068,71.8454 132.3412,71.8339 132.3053,71.8226 132.2272,71.7934 132.1992,71.7768 131.9471,71.5754 131.807,71.4258 131.7807,71.3938 131.6433,71.1951 131.6378,71.1605 131.665,71.1548 131.7137,71.1541 131.7541,71.1494 131.7946,71.1447 131.8155,71.1418 131.8363,71.1375 131.8726,71.124 131.7951,71.125 131.7148,71.1318 131.6854,71.1326 131.5756,71.1182 131.784,71.0717 131.9762,71.0511 132.1145,70.9664 132.0461,70.769 132.2015,70.6435 132.0855,70.4956 132.2165,70.4337 132.4409,70.3697 133.1142,70.2807 133.4514,70.1331 133.4227,69.9923 132.9161,69.959 133.1543,69.8291 133.4516,69.7315 133.4859,69.6548 133.043,69.5668 132.7924,69.4936 132.7642,69.3058 132.5866,69.203 132.237,69.0673 131.9498,69.0492 131.6063,69.0216 130.9387,68.916 130.5595,68.9754 130.0314,69.0069 129.8061,68.8814 129.405,68.8645 128.8592,68.9148 128.6042,68.8735 128.3959,68.8062 128.1597,68.7512 127.581,68.7824 127.135,68.7903 126.6586,68.7082 126.6598,68.7077 6,12.0,Russia 144.2416,72.3123 144.4025,72.2953 144.4025,72.2953 144.2416,72.3123 144.1994,72.3167 144.2416,72.3123 4,12.0,Russia 144.561,72.3346 144.621,72.3861 144.561,72.3346 144.561,72.3346 1904,12.0,Russia 155.2774,55.2351 155.2994,55.0828 155.3329,54.8655 155.3677,54.7149 155.4239,54.498 155.4366,54.4486 155.4613,54.3659 155.5335,54.1495 155.56,54.1061 155.58,54.0805 155.6027,54.0208 155.6284,53.9374 155.6731,53.7746 155.6992,53.616 155.7728,53.2787 155.824,53.0706 155.8399,52.8745 155.8515,52.7913 155.8782,52.7308 155.9219,52.645 155.9337,52.6236 155.9597,52.5798 156.0134,52.505 156.0913,52.4631 156.1159,52.4558 156.1549,52.4645 156.1916,52.4546 156.1929,52.4329 156.1744,52.4122 156.1312,52.3892 156.1276,52.4162 156.1123,52.4371 156.0326,52.4601 156.0581,52.4119 156.1055,52.3254 156.1514,52.2186 156.1776,52.1484 156.1815,52.1412 156.1945,52.102 156.201,52.0779 156.2474,51.8645 156.2552,51.7237 156.2515,51.6311 156.2436,51.532 156.2354,51.5064 156.231,51.4738 156.2301,51.4539 156.2386,51.4061 156.2792,51.2563 156.2976,51.2239 156.3144,51.2121 156.3513,51.196 156.3801,51.1954 156.4113,51.1857 156.4322,51.1703 156.4655,51.1321 156.505,51.0187 156.5059,50.9353 156.4875,50.9047 156.4696,50.8876 156.4486,50.8705 156.4244,50.8541 156.4085,50.8296 156.4177,50.8205 156.4291,50.8227 156.4539,50.8326 156.4869,50.8541 156.5588,50.9034 156.5788,50.9209 156.8554,51.0994 156.9294,51.1379 156.9726,51.1471 157.0176,51.1734 157.1247,51.2807 157.293,51.4272 157.3647,51.4632 157.4131,51.4823 157.4379,51.4907 157.4847,51.4995 157.5313,51.5053 157.6667,51.5834 158.0294,51.8812 158.0405,51.9079 158.0358,51.9284 158.0336,51.9491 158.035,51.969 158.0684,52.0678 158.179,52.2051 158.2365,52.2039 158.2758,52.2143 158.2942,52.2316 158.3041,52.2502 158.3047,52.3384 158.2585,52.5064 158.2299,52.5139 158.1828,52.5398 158.1662,52.5909 158.2042,52.5825 158.2229,52.5742 158.2466,52.5642 158.2717,52.5581 158.2943,52.5615 158.3453,52.643 158.3128,52.6714 158.3069,52.7279 158.3781,52.7853 158.3869,52.8404 158.3717,52.8696 158.2559,52.8812 158.2291,52.8742 158.267,52.8454 158.1913,52.841 158.1706,52.8726 158.1628,52.9472 158.1836,52.9654 158.2752,53.0077 158.3282,53.0009 158.3511,52.9891 158.3942,52.9459 158.4035,52.9024 158.4432,52.8381 158.4696,52.8291 158.4875,52.8357 158.573,52.9094 158.6198,52.9422 158.763,53.022 158.8525,53.0549 158.9979,53.0912 159.1098,53.093 159.1333,53.0973 159.1662,53.1255 159.194,53.1544 159.2329,53.1712 159.3554,53.1975 159.3904,53.1936 159.4939,53.157 159.6519,53.0891 159.7915,53.0332 159.799,53.0757 159.753,53.2095 159.7183,53.206 159.598,53.3544 159.5365,53.459 159.5608,53.4687 159.6082,53.4392 159.6338,53.4211 159.6569,53.4102 159.6856,53.4115 159.7002,53.4538 159.7027,53.508 159.6825,53.5516 159.6602,53.5825 159.6276,53.6085 159.617,53.5849 159.6338,53.5654 159.6415,53.5385 159.5716,53.5837 159.5546,53.5959 159.5916,53.7898 159.6342,53.9175 159.7215,54.0583 159.739,54.0761 159.8347,54.1408 159.8728,54.1619 159.9229,54.1681 159.9832,54.1896 160.0818,54.2541 160.103,54.2747 160.1188,54.2919 160.2232,54.3488 160.3088,54.3953 160.4568,54.4656 160.5373,54.4835 160.6024,54.4966 160.6922,54.5126 160.7428,54.52 160.7676,54.5224 160.8414,54.5266 160.8875,54.5252 160.9307,54.5083 160.9438,54.4824 160.9526,54.4603 160.9683,54.4474 161.0126,54.4314 161.0342,54.4276 161.081,54.4274 161.158,54.4409 161.2217,54.4501 161.3502,54.4562 161.3718,54.4525 161.4155,54.4412 161.4655,54.4438 161.4901,54.4591 161.5073,54.4814 161.5267,54.5121 161.6122,54.5561 161.7183,54.6184 161.8372,54.6994 161.8749,54.7948 161.6927,54.9612 161.6418,54.9865 161.5969,55.0029 161.5357,55.0798 161.5198,55.1032 161.5068,55.1293 161.4398,55.3008 161.4321,55.4247 161.4692,55.5619 161.5327,55.646 161.6353,55.7506 161.736,55.8931 161.7658,55.956 161.7535,55.9835 161.8027,56.0347 161.9407,56.0948 161.9607,56.0999 162.0001,56.1053 162.0494,56.1158 162.1593,56.1411 162.2302,56.1703 162.2817,56.2066 162.2681,56.2313 162.206,56.2741 162.1822,56.2862 162.1298,56.3036 162.108,56.3229 162.196,56.3573 162.3191,56.389 162.342,56.4089 162.3716,56.4201 162.4119,56.4251 162.4541,56.4228 162.4869,56.4102 162.543,56.3831 162.611,56.365 162.6355,56.3839 162.6396,56.4191 162.6497,56.4496 162.6754,56.4723 162.6976,56.4806 162.8058,56.4581 162.7865,56.4108 162.4325,56.2606 162.3422,56.1771 162.3605,56.1257 162.4619,56.0372 162.5845,55.9739 162.6049,55.9674 162.7493,55.9517 162.8058,55.9959 162.8223,56.0203 162.9401,56.0736 163.0191,56.107 163.0636,56.1294 163.0538,56.2651 163.0449,56.2873 163.0332,56.3167 162.9749,56.4183 162.9263,56.5618 162.9326,56.5867 162.9587,56.6199 162.9215,56.6745 162.783,56.6786 162.7125,56.6693 162.6312,56.6379 162.614,56.64 162.5897,56.6521 162.5647,56.6661 162.5414,56.6839 162.5257,56.699 162.5012,56.7277 162.4927,56.7871 162.4926,56.8145 162.5009,56.8608 162.5245,56.932 162.5377,56.9567 162.5373,56.9772 162.5329,57.0054 162.5214,57.035 162.5066,57.0648 162.4838,57.103 162.4607,57.1499 162.4576,57.1902 162.4593,57.2137 162.4669,57.2503 162.474,57.2824 162.4503,57.2911 162.4886,57.3159 162.5497,57.3482 162.5899,57.3683 162.6619,57.3996 162.7083,57.4023 162.7597,57.4197 162.7795,57.4334 162.866,57.5247 162.9872,57.6711 162.9139,57.7706 162.8718,57.7753 162.8366,57.7708 162.8035,57.7657 162.7238,57.7771 162.7004,57.781 162.6762,57.7938 162.6516,57.8062 162.5798,57.8363 162.5484,57.8475 162.4066,57.8948 162.3715,57.8956 162.2689,57.8805 162.2485,57.8745 162.2316,57.8638 162.2088,57.8473 162.1799,57.8182 162.1707,57.7991 162.1719,57.7515 162.1735,57.7204 162.1838,57.6929 162.0878,57.6207 162.0463,57.6229 162.0482,57.6467 162.0229,57.729 161.9988,57.7319 161.9524,57.7398 161.9196,57.7491 161.8127,57.7851 161.7467,57.8383 161.7089,57.8786 161.6455,57.9741 161.6442,57.9984 161.6859,58.0934 161.7543,58.2183 161.8464,58.3831 162.107,58.6095 162.2102,58.6705 162.2399,58.6827 162.2916,58.7023 162.3341,58.7157 162.4012,58.7388 162.4651,58.7654 162.4858,58.7942 162.4255,58.7824 162.4595,58.8202 162.519,58.8429 162.5631,58.8588 162.6028,58.8671 162.6809,58.8882 162.707,58.9023 162.7312,58.9257 162.7414,58.9507 162.7184,58.9509 162.697,58.9553 162.6566,58.9861 162.5947,59.0346 162.5798,59.0566 162.6397,59.0724 162.7097,59.0867 162.8722,58.9995 162.8443,58.9717 162.8637,58.9629 162.8848,58.9771 162.8969,58.9955 162.8893,59.0586 162.8757,59.0772 162.853,59.0932 162.807,59.1153 162.7634,59.1233 162.7582,59.1694 162.7793,59.1967 162.8003,59.2069 162.8657,59.225 162.9542,59.2251 162.9527,59.1939 162.9278,59.1691 162.9584,59.1677 162.9928,59.1907 163.003,59.218 163.0078,59.2379 163.0245,59.3168 163.0147,59.3389 162.9967,59.3585 162.9143,59.4079 162.8919,59.4167 162.8615,59.4309 162.8742,59.4951 162.9616,59.5134 162.9989,59.5083 163.0224,59.5134 163.0657,59.5401 163.0839,59.5577 163.0814,59.5782 163.0628,59.6159 163.0497,59.6657 163.0536,59.752 163.1974,59.8266 163.2276,59.8311 163.2542,59.8306 163.3311,59.8229 163.3622,59.8186 163.3915,59.8254 163.4411,59.9048 163.4146,59.8962 163.3684,59.8988 163.3298,59.9285 163.3133,59.9512 163.3323,59.9735 163.4315,59.9781 163.5008,59.9696 163.6602,59.9589 163.7353,59.958 163.7984,59.8995 163.7697,59.871 163.7383,59.8608 163.7316,59.8292 163.7439,59.8021 163.8378,59.7951 163.8271,59.8387 163.8314,59.8605 163.8574,59.8765 163.9094,59.9031 164.0315,59.9565 164.0085,59.9846 164.0087,60.0136 164.1334,60.0408 164.1593,60.0387 164.1829,60.0332 164.2058,60.0264 164.2325,60.0133 164.3651,59.9246 164.3917,59.9035 164.4246,59.8686 164.4696,59.7831 164.4639,59.7566 164.4877,59.7231 164.5142,59.7098 164.6881,59.7668 164.717,59.7856 164.8716,59.909 164.8713,59.935 164.8093,60.0129 164.7654,60.0143 164.7444,60.0022 164.7271,59.9918 164.6961,60.0064 164.6862,60.054 164.8445,60.0486 164.8795,60.0191 164.9244,60.0238 165.0881,60.094 165.1278,60.1142 165.1926,60.138 165.2163,60.1414 165.332,60.1739 165.4553,60.2149 165.6164,60.3077 165.6404,60.3279 165.6686,60.3506 165.6876,60.3608 165.7502,60.3767 165.784,60.3842 165.9089,60.4077 165.954,60.4117 166.0343,60.4132 166.0666,60.3973 166.0326,60.3386 166.0075,60.3192 165.985,60.3129 165.9411,60.3108 165.9459,60.184 165.8656,60.0565 165.8238,59.9529 165.7894,59.842 165.7844,59.7805 165.7883,59.7561 165.8072,59.7464 165.8257,59.7434 165.8565,59.7472 165.9337,59.7587 165.9742,59.7684 165.9933,59.7749 166.0306,59.7956 166.2046,59.9144 166.3187,59.9966 166.356,60.0248 166.3872,60.0465 166.492,60.1164 166.7353,60.251 166.8687,60.2791 166.8899,60.2791 166.9207,60.2826 166.9609,60.2924 167.1385,60.3496 167.2983,60.3741 167.4421,60.4131 167.7571,60.4882 167.791,60.4951 167.8707,60.5083 168.0026,60.5215 168.0825,60.5226 168.1597,60.5214 168.1917,60.5169 168.2161,60.5117 168.256,60.4998 168.3984,60.4879 168.6546,60.4864 168.8335,60.4881 168.885,60.5256 168.8861,60.5466 168.9445,60.546 168.9689,60.5411 169.001,60.5284 169.0243,60.5158 169.0463,60.4901 169.0272,60.4833 168.998,60.4824 169.0072,60.4585 169.0836,60.4312 169.1275,60.4164 169.2173,60.3884 169.2673,60.3731 169.3244,60.3566 169.3537,60.3495 169.383,60.3342 169.3902,60.2759 169.4268,60.2045 169.6122,59.9967 169.6394,59.984 169.7182,59.9729 169.7564,59.9603 169.7891,59.9307 169.7828,59.906 169.8947,59.8466 169.9223,59.8382 170.0493,59.874 170.0733,59.8863 170.0873,59.9086 170.1109,59.9671 170.1243,60.021 170.1369,60.082 170.138,60.1069 170.1399,60.1313 170.1475,60.1507 170.1611,60.1693 170.1777,60.1902 170.2085,60.2119 170.2373,60.2194 170.2608,60.2217 170.3016,60.2306 170.3369,60.253 170.3346,60.2803 170.2958,60.3215 170.3199,60.3444 170.3337,60.3443 170.3645,60.3458 170.4399,60.3621 170.4626,60.371 170.534,60.4326 170.6635,60.45 170.8446,60.4799 171.0421,60.5587 171.0825,60.6404 171.2601,60.6567 171.286,60.6607 171.306,60.6736 171.2932,60.6966 171.284,60.7284 171.3622,60.7517 171.4425,60.7664 171.4802,60.7557 171.5393,60.7529 171.6263,60.7794 171.6121,60.7989 171.6089,60.8227 171.6243,60.8724 171.6451,60.8757 171.675,60.8478 171.675,60.8264 171.6642,60.8024 171.6936,60.7728 171.7413,60.8071 171.7869,60.864 171.8189,60.8654 171.8586,60.8711 171.8735,60.8888 171.8566,60.9254 171.834,60.9534 171.7978,60.9607 171.7227,60.9965 171.6904,61.018 171.8052,60.9891 171.8813,60.9583 171.9131,60.9394 171.9535,60.9353 172.0343,60.9345 172.0564,60.9402 172.1246,60.9669 172.1538,60.9969 172.0653,61.0251 172.0442,61.0261 172.0307,61.0481 172.0141,61.1445 172.0401,61.1543 172.075,61.1446 172.1038,61.136 172.1354,61.1274 172.2156,61.111 172.315,61.1159 172.4398,61.2014 172.4187,61.2196 172.3991,61.2297 172.3416,61.2543 172.3714,61.254 172.4245,61.2398 172.4682,61.2237 172.4887,61.2145 172.5139,61.2028 172.5431,61.2019 172.5668,61.2059 172.6254,61.2283 172.6069,61.266 172.5876,61.2816 172.5681,61.2924 172.5234,61.3072 172.4873,61.316 172.4016,61.3422 172.3831,61.3523 172.462,61.3795 172.4874,61.3865 172.5355,61.3963 172.557,61.3954 172.6286,61.3702 172.6503,61.3507 172.7098,61.3246 172.7318,61.3166 172.7662,61.3134 172.8054,61.3205 172.8294,61.3294 172.9446,61.3777 172.9726,61.4112 172.9608,61.4395 172.9819,61.4596 173.0166,61.4766 173.0405,61.4803 173.1353,61.4769 173.1617,61.4889 173.1575,61.528 173.1633,61.5823 173.194,61.6545 173.2082,61.669 173.2344,61.6764 173.2576,61.6768 173.2843,61.6729 173.4436,61.6219 173.4747,61.6048 173.5401,61.6011 173.6556,61.6366 173.6727,61.6471 173.7139,61.6995 173.6863,61.7162 173.6823,61.7435 173.7443,61.7655 173.7769,61.7668 173.8037,61.7632 173.8314,61.7536 173.9767,61.7454 174.0631,61.7432 174.1181,61.7308 174.126,61.7304 174.1792,61.7392 174.2578,61.7546 174.3384,61.7768 174.3606,61.786 174.3871,61.8098 174.3437,61.8485 174.3106,61.8616 174.2803,61.8765 174.268,61.9029 174.3955,61.8768 174.44,61.8491 174.4496,61.8568 174.4717,61.8659 174.5178,61.8766 174.582,61.8895 174.6167,61.8953 174.8334,61.94 174.8769,61.9545 174.9065,61.9724 174.9795,62.0251 175.2467,62.0939 175.4574,62.1503 175.5529,62.1697 175.6636,62.1915 175.6965,62.1978 175.7705,62.2066 175.8547,62.2215 175.9393,62.2367 176.2513,62.404 176.2984,62.4474 176.342,62.4623 176.3739,62.454 176.471,62.443 176.5015,62.4497 176.6921,62.474 176.7449,62.4778 176.798,62.4818 176.8335,62.4842 176.8989,62.4928 176.9201,62.5022 176.8293,62.5121 176.7763,62.5083 176.7314,62.5019 176.7063,62.5012 176.6848,62.5101 176.6162,62.5599 176.5861,62.5877 176.5769,62.6079 176.6298,62.787 176.6529,62.7895 176.6776,62.7832 176.7681,62.7358 176.8068,62.7009 176.787,62.6711 176.7985,62.6395 176.8474,62.6265 176.8965,62.627 176.9138,62.6437 176.9113,62.6649 176.9308,62.6854 176.9657,62.7137 176.9834,62.7234 177.0072,62.7321 177.0863,62.7433 177.1073,62.7329 177.083,62.702 177.0529,62.6948 177.022,62.6949 176.9969,62.6865 176.9703,62.6601 176.9468,62.5312 176.9941,62.4996 177.0242,62.4974 177.1324,62.4941 177.1681,62.4965 177.2237,62.5024 177.2563,62.5026 177.3187,62.5007 177.3499,62.4995 177.3945,62.4965 177.6391,62.4724 177.6825,62.4677 177.7352,62.4574 177.7951,62.4407 177.8316,62.43 177.9783,62.3925 178.1243,62.3676 178.3789,62.3246 178.4056,62.3199 178.6143,62.2809 178.6433,62.2717 178.6829,62.2463 178.7063,62.2206 178.755,62.2133 178.8029,62.2598 178.7927,62.3482 178.7562,62.3768 178.782,62.4023 178.8312,62.4223 178.8656,62.4262 178.8887,62.4252 178.9226,62.42 178.9722,62.4201 179.0101,62.4302 179.0501,62.4566 179.0646,62.4885 179.1721,62.5402 179.2052,62.5428 179.2552,62.6234 179.2447,62.6718 179.1904,62.765 179.1468,62.7955 179.0704,62.8063 179.001,62.8103 178.9565,62.8266 178.9074,62.8823 178.8862,62.9282 178.9,62.9509 178.9393,62.9737 178.9651,62.9817 179.0156,62.9838 179.0382,62.9756 179.0598,62.9796 179.0611,63.0613 178.9818,63.1137 178.952,63.1286 178.9144,63.1441 178.8919,63.1522 178.8552,63.1624 178.6123,63.2154 178.5791,63.2155 178.5788,63.2364 178.5506,63.2548 178.5261,63.2518 178.5025,63.247 178.472,63.2613 178.4561,63.2747 178.4538,63.3026 178.4778,63.3205 178.5057,63.3213 178.5477,63.2961 178.5752,63.2795 178.5921,63.2677 178.6081,63.2541 178.6266,63.2431 178.6518,63.2421 178.6265,63.2655 178.563,63.3175 178.5044,63.3717 178.4859,63.3914 178.4693,63.413 178.4307,63.4735 178.4278,63.5071 178.4061,63.5139 178.3959,63.4678 178.417,63.4261 178.4225,63.4005 178.4574,63.3636 178.4238,63.3216 178.371,63.3094 178.3306,63.3057 178.3044,63.3113 178.2447,63.3337 178.3171,63.3806 178.371,63.3956 178.3876,63.4227 178.3536,63.495 178.155,63.5003 178.1233,63.4951 178.0999,63.4755 178.0457,63.441 178.0203,63.438 177.9731,63.447 177.9113,63.4962 177.9793,63.5392 178.0037,63.5481 178.1741,63.5632 178.2388,63.5925 178.2584,63.5966 178.3746,63.5672 178.4067,63.5616 178.3942,63.6322 178.3411,63.8175 178.3121,63.8649 178.1708,63.8961 178.1244,63.8908 178.0583,63.8859 178.0256,63.8931 178.0257,63.926 178.0465,63.9526 178.1116,63.984 178.1318,63.9864 178.1256,64.0446 178.0521,64.1457 178.0185,64.1906 177.9937,64.2162 177.9506,64.2602 177.9339,64.2741 177.7238,64.1758 177.7493,64.151 177.7873,64.1379 177.8076,64.134 177.8297,64.1257 177.7892,64.1213 177.7364,64.1203 177.6466,64.13 177.6044,64.1365 177.5278,64.1557 177.4517,64.1753 177.3175,64.2219 177.2809,64.2392 177.0825,64.3507 177.0678,64.3656 177.0355,64.412 177.01,64.4647 177.0244,64.4959 177.0634,64.5314 177.1007,64.5664 177.1354,64.6786 177.0295,64.6937 176.9909,64.6968 176.948,64.6908 176.6587,64.631 176.6262,64.6207 176.5489,64.5842 176.5166,64.5664 176.4789,64.5266 176.4559,64.5074 176.3887,64.4849 176.3668,64.507 176.3471,64.5354 176.2524,64.5811 176.1758,64.6075 176.138,64.6116 176.1029,64.6083 176.0679,64.5873 176.0471,64.5666 176.0271,64.5566 175.9797,64.5423 175.944,64.5388 175.8989,64.5432 175.8673,64.5414 175.7816,64.4961 175.7611,64.4642 175.7648,64.5093 175.7721,64.5153 175.7988,64.5491 175.8222,64.5582 175.8473,64.5628 175.9241,64.5697 175.9521,64.5739 176.0211,64.594 176.0727,64.6239 175.9309,64.7405 175.8492,64.7951 175.7973,64.8109 175.7154,64.8207 175.675,64.8227 175.6243,64.7972 175.5972,64.7616 175.5738,64.749 175.4737,64.7031 175.3631,64.6777 175.3339,64.6737 175.296,64.6709 175.0811,64.6657 174.9403,64.6499 174.8272,64.6543 174.767,64.6607 174.7054,64.6588 174.6456,64.6521 174.616,64.6443 174.5914,64.6356 174.519,64.6157 174.4994,64.6104 174.4359,64.5948 174.3719,64.5896 174.2958,64.5854 174.173,64.5882 174.129,64.5937 174.1043,64.6061 174.1682,64.6021 174.2161,64.6004 174.315,64.598 174.3579,64.5986 174.3964,64.6036 174.5,64.6271 174.5597,64.6427 174.5968,64.6559 174.6951,64.6809 174.7215,64.6828 174.7653,64.6768 174.8455,64.6733 174.9738,64.6733 175.0431,64.6817 175.0759,64.6884 175.1151,64.6977 175.2139,64.7097 175.2384,64.709 175.2743,64.7036 175.3182,64.698 175.3436,64.6978 175.3895,64.7053 175.4246,64.715 175.4994,64.7413 175.5215,64.7508 175.5612,64.7708 175.5879,64.803 175.6572,64.8503 175.6771,64.8603 175.71,64.8672 175.8478,64.8381 176.0683,64.7635 176.076,64.7341 176.1022,64.7256 176.2013,64.7525 176.2633,64.7851 176.2831,64.7885 176.519,64.7673 176.5451,64.7507 176.5759,64.7186 176.6926,64.6897 176.8014,64.7028 176.8449,64.7104 176.8961,64.7241 176.9237,64.7319 176.9467,64.7504 176.8647,64.8284 176.8089,64.8617 176.7858,64.8702 176.7369,64.8858 176.6408,64.9253 176.6232,64.9445 176.6053,64.9572 176.5781,64.9629 176.5291,64.9651 176.4988,64.9621 176.4042,64.9408 176.3587,64.9262 176.3303,64.922 176.2541,64.9166 176.2156,64.9139 176.1672,64.9169 175.9792,64.9565 175.9565,64.9658 176.087,64.9922 176.1226,64.9796 176.2394,64.9434 176.3109,64.9569 176.3905,64.9747 176.4543,64.989 176.4987,64.9972 176.5379,65.0016 176.5637,65.0012 176.8145,64.9441 176.8375,64.9291 176.8594,64.8812 176.8745,64.8662 176.9078,64.8525 176.9462,64.849 176.9829,64.8501 177.0608,64.8498 177.0895,64.8356 177.1336,64.7725 177.1527,64.7243 177.2537,64.6401 177.3755,64.6239 177.6017,64.6043 177.74,64.6063 177.8965,64.6002 177.9162,64.5891 178.021,64.5856 178.1967,64.5942 178.2553,64.605 178.3474,64.6178 178.3948,64.603 178.3909,64.582 178.3333,64.5563 178.3022,64.549 178.2666,64.5472 178.1661,64.5364 178.1418,64.5311 178.1291,64.5272 178.144,64.5091 178.1687,64.508 178.2078,64.5115 178.2693,64.5253 178.4809,64.5941 178.5105,64.6052 178.5541,64.6236 178.5953,64.6428 178.6287,64.6567 178.7192,64.6854 178.8069,64.7075 178.9002,64.7281 179.0154,64.7384 179.0579,64.7349 179.1039,64.7324 179.2922,64.8363 179.3874,64.9014 179.4195,64.9309 179.4381,64.9409 179.4641,64.9486 179.5273,64.9657 179.6412,64.9876 179.6395,65.3167 179.6362,65.8973 179.6298,66.8953 179.623,67.8934 179.6156,68.8913 179.5415,68.8905 179.5025,68.892 179.406,68.8958 179.3662,68.9024 179.3354,68.9146 179.2944,68.9326 179.204,68.9864 179.1658,69.0171 179.1906,69.0206 179.2113,69.0144 179.3089,68.974 179.3929,68.9394 179.4263,68.9229 179.4527,68.9144 179.5008,68.9062 179.5341,68.9019 179.5627,68.9068 179.4779,68.9336 179.3812,68.973 179.19,69.0536 178.9973,69.123 178.9674,69.1356 178.936,69.1536 178.9127,69.1729 178.7481,69.1951 178.4952,69.207 178.4747,69.2072 178.4443,69.2024 178.4048,69.1928 178.3836,69.1899 178.3323,69.19 178.3103,69.1953 178.2682,69.2201 178.2748,69.2453 178.2953,69.2696 178.3594,69.2827 178.3802,69.2828 178.4274,69.2742 178.4648,69.2657 178.4932,69.2488 178.556,69.2306 178.5976,69.2304 178.6812,69.2343 178.6584,69.2468 178.6202,69.2606 178.4892,69.2931 178.386,69.3179 178.2812,69.3413 178.0954,69.3766 178.0591,69.3798 177.9845,69.3857 177.9467,69.388 177.9258,69.3881 177.8856,69.3859 177.8035,69.3597 177.4718,69.4173 177.3517,69.4448 177.3015,69.4594 177.2741,69.4679 177.2097,69.4853 177.053,69.5141 176.9328,69.5281 176.803,69.5313 176.6449,69.5357 176.6102,69.5396 176.3588,69.5769 176.3222,69.5863 176.291,69.5989 176.2536,69.6205 176.2195,69.631 176.1479,69.6507 176.0299,69.6741 175.9483,69.681 175.8527,69.7038 175.8548,69.7363 175.7366,69.798 175.7021,69.8025 175.5759,69.8076 175.3817,69.8133 175.3413,69.8138 175.1409,69.7993 175.1172,69.779 175.0875,69.7704 175.051,69.763 175.0022,69.7579 174.937,69.7559 174.9161,69.7556 174.8352,69.7566 174.775,69.7575 174.6653,69.7609 174.5098,69.7613 174.3446,69.7603 174.2477,69.7636 174.0747,69.7712 174.0246,69.7786 173.9854,69.7864 173.9459,69.7941 173.7107,69.7928 173.6468,69.7893 173.6083,69.7785 173.5813,69.7658 173.5569,69.7561 173.3652,69.7768 173.2967,69.8005 173.1064,69.8581 173.0812,69.8618 173.0586,69.86 172.8601,69.839 172.8288,69.8337 172.7926,69.8028 172.8313,69.8145 172.8944,69.8202 172.9178,69.8155 173.0411,69.7746 173.0994,69.7429 173.0845,69.7211 173.0031,69.697 172.8263,69.6891 172.8028,69.7035 172.8267,69.726 172.79,69.7566 172.6768,69.7692 172.5011,69.8019 172.4506,69.8163 172.4307,69.8238 172.4084,69.8421 172.2628,69.8749 172.1678,69.8695 172.1159,69.8685 172.0327,69.8742 171.9184,69.8848 171.884,69.8891 171.8332,69.8962 171.7793,69.9011 171.7416,69.9027 171.6538,69.9051 171.6015,69.9041 171.5549,69.9066 171.4934,69.9132 171.3345,69.9305 171.2995,69.9346 171.1255,69.9556 171.0421,69.9689 171.0072,69.9729 170.9706,69.9761 170.8008,69.985 170.6004,70.0011 170.5215,70.0026 170.4811,69.9992 170.4405,70.0011 170.4047,70.0036 170.3333,70.0106 170.2553,70.0204 170.2166,70.0292 170.1847,70.0353 170.1423,70.0412 170.0939,70.0426 170.0711,70.0404 170.0429,70.0347 170.0266,70.0233 170.0463,70.014 170.0911,70.0102 170.139,70.0083 170.1809,69.9879 170.1652,69.9517 170.1532,69.9262 170.1511,69.8375 170.1681,69.8185 170.1853,69.8029 170.1977,69.6877 170.1548,69.6671 170.127,69.6579 170.0925,69.6495 170.0701,69.6477 170.0403,69.6472 169.9925,69.6488 169.9499,69.6477 169.9134,69.6383 169.8624,69.6139 169.8306,69.5983 169.8124,69.5871 169.7848,69.5671 169.7699,69.5521 169.7549,69.5236 169.7739,69.5107 169.8037,69.5034 169.8954,69.4983 169.9259,69.499 170.0142,69.5124 170.0569,69.5152 170.0985,69.5173 170.1387,69.5177 170.1825,69.5133 170.212,69.5059 170.2408,69.4905 170.2606,69.4749 170.2975,69.4431 170.3754,69.3549 170.4984,69.244 170.5407,69.2166 170.5625,69.1376 170.5985,69.0625 170.6428,68.9767 170.6669,68.9535 170.6576,68.9344 170.5714,68.9209 170.3983,68.8666 170.3467,68.8154 170.3606,68.7321 170.3422,68.7159 170.2897,68.8149 170.2563,68.8213 170.2364,68.8177 170.0954,68.7751 170.0799,68.7511 170.1888,68.735 170.25,68.6682 170.1821,68.681 170.1592,68.6931 170.1318,68.7094 169.9978,68.732 169.9704,68.7331 169.9502,68.7322 169.9288,68.73 169.8891,68.7253 169.8444,68.7184 169.6948,68.7055 169.4226,68.6876 169.3687,68.6863 169.3203,68.6858 169.2292,68.6889 169.1134,68.7343 169.0931,68.7522 169.0801,68.7746 169.0639,68.818 169.079,68.843 169.0635,68.9088 169.0404,68.9584 169.0255,68.9779 169.0038,68.9915 168.9742,68.9986 168.899,69.0078 168.8451,69.0105 168.692,69.0424 168.5464,69.0806 168.5015,69.0916 168.3718,69.1193 168.2496,69.1213 168.1154,69.1212 168.0598,69.1225 167.9947,69.1323 167.9501,69.1429 167.9225,69.1526 167.8724,69.19 167.8327,69.2922 167.84,69.3146 167.8744,69.3776 167.8951,69.4394 167.8768,69.4616 167.8592,69.4711 167.7377,69.513 167.7074,69.5202 167.6615,69.5306 167.6309,69.5375 167.6308,69.5969 167.6316,69.624 167.4963,69.6646 167.4527,69.6774 167.4138,69.6859 167.3833,69.6847 167.3388,69.6799 167.2903,69.6703 167.2419,69.6535 167.2182,69.6431 167.1799,69.625 167.1613,69.6107 167.1313,69.595 167.0581,69.5645 167.0313,69.5551 166.8522,69.4924 166.5736,69.4087 166.5421,69.403 166.5012,69.4007 166.3923,69.4065 166.3365,69.4199 166.289,69.4338 166.2307,69.4336 166.067,69.4239 166.0112,69.4218 165.984,69.4215 165.7797,69.4213 165.7374,69.4263 165.705,69.4321 165.6119,69.4523 165.567,69.4637 165.5301,69.474 165.4669,69.4861 165.2698,69.5005 165.1782,69.4952 165.1189,69.4936 165.0819,69.4942 165.0196,69.4972 164.9654,69.4999 164.9112,69.5029 164.8754,69.5048 164.839,69.5066 164.7993,69.5073 164.7401,69.5053 164.641,69.4978 164.588,69.4927 164.5027,69.4927 164.4291,69.4954 164.1772,69.5094 164.1354,69.5155 164.0503,69.5344 164.0211,69.5434 163.8773,69.59 163.8032,69.6208 163.7788,69.6344 163.7604,69.6563 163.7369,69.669 163.6954,69.6756 163.6591,69.6774 163.6374,69.6744 163.605,69.6652 163.5728,69.6517 163.5407,69.6424 163.4052,69.6092 163.3727,69.6031 163.3294,69.5975 163.246,69.5905 163.1881,69.5892 163.1531,69.5919 163.093,69.5987 163.0496,69.6128 162.966,69.6247 162.9389,69.6264 162.8638,69.6271 162.825,69.6266 162.7152,69.6063 162.6132,69.5861 162.5034,69.5659 162.4806,69.5621 162.3917,69.5578 162.3661,69.5608 162.346,69.5666 162.3623,69.549 162.3098,69.5152 162.413,69.4359 162.3456,69.3957 162.5024,69.3611 162.5085,69.2954 162.6392,69.2514 162.7888,69.1705 162.4935,69.1016 162.5735,69.0347 162.5383,68.9804 162.7466,68.9118 162.8476,68.8522 162.723,68.7685 162.5915,68.7864 162.6124,68.6758 162.709,68.6414 162.7598,68.568 162.5949,68.4892 162.5294,68.3356 162.4001,68.2776 162.1699,68.3347 161.9785,68.3559 161.7255,68.3472 161.5843,68.3794 161.3437,68.3902 161.2326,68.3685 160.9921,68.2796 160.8306,68.2748 160.5075,68.2493 160.026,68.2656 159.8404,68.2592 159.8084,68.1898 159.7424,68.189 159.7073,68.2206 159.5234,68.2203 159.19,68.1702 159.1273,68.1774 158.9911,68.1499 158.8885,68.1151 158.7875,68.13 158.7318,68.1165 158.6509,68.1283 158.4892,68.1085 158.3614,68.0707 158.2549,68.0471 158.253,67.9846 158.19,67.9244 158.0662,67.9055 158.0795,67.8235 158.2663,67.8203 158.3586,67.7266 158.1535,67.7003 158.1003,67.721 157.9343,67.7212 157.8126,67.6804 157.6956,67.5245 157.7586,67.4571 157.9054,67.4229 157.7918,67.3207 157.8689,67.2512 157.9699,67.2342 158.2004,67.1677 158.2118,67.14 158.3267,67.1207 158.3622,67.0894 158.4735,67.0942 158.7072,67.0326 158.8213,66.9478 158.7887,66.916 158.8157,66.877 158.8637,66.8587 158.8761,66.8221 158.9182,66.7764 158.8046,66.7138 158.717,66.7036 158.6749,66.6125 158.609,66.5686 158.5382,66.5471 158.4917,66.5001 158.5009,66.4597 158.3695,66.4259 158.4264,66.4063 158.5547,66.3322 158.7552,66.2768 158.9782,66.2175 159.2587,66.1462 159.1184,66.0494 159.0421,65.9727 158.9811,65.9109 158.9111,65.8615 158.9407,65.8154 158.9089,65.7338 159.0446,65.7204 159.2176,65.6637 159.5571,65.6203 159.7467,65.5709 159.838,65.5139 160.0291,65.5139 160.1721,65.4717 160.248,65.4213 160.2357,65.3469 160.3904,65.276 160.5993,65.1557 160.6818,65.1388 160.8937,65.1401 161.0336,65.163 161.223,65.1372 161.3024,65.1423 161.4302,65.1033 161.5116,65.0507 161.6787,65.0194 161.7404,64.9636 161.7614,64.9045 161.8311,64.8714 161.8041,64.8412 161.9255,64.8026 162.1798,64.7757 162.3027,64.7341 162.4973,64.7537 162.614,64.7307 162.6304,64.6786 162.741,64.6456 162.8637,64.6522 163.0419,64.6565 163.1947,64.7036 163.2618,64.6789 163.1752,64.6251 163.2047,64.5857 163.1722,64.5566 163.2531,64.5023 163.3615,64.4868 163.4008,64.405 163.4733,64.3811 163.3714,64.3553 163.3395,64.3173 163.2421,64.2905 163.1741,64.1864 162.9432,64.207 162.8095,64.1408 162.862,64.0368 162.9312,64.0248 162.9731,63.9495 162.9193,63.9139 162.9461,63.8817 162.849,63.8816 162.7595,63.8311 162.8067,63.7415 162.8942,63.7235 162.8937,63.6658 163.0202,63.6418 163.0196,63.5129 162.9125,63.4353 162.843,63.4408 162.7968,63.4016 162.7119,63.397 162.7014,63.3726 162.7511,63.3578 162.7827,63.3113 162.9007,63.2711 162.809,63.1926 162.6224,63.1805 162.6456,63.1402 162.4869,63.1111 162.439,63.1321 162.329,63.0773 162.3621,63.0417 162.3099,62.9264 162.4768,62.8873 162.5767,62.8598 162.648,62.8138 162.6436,62.7659 162.717,62.7127 162.7234,62.6803 162.8325,62.6771 162.7027,62.5583 162.792,62.4683 162.7846,62.379 162.7752,62.2923 162.6719,62.2369 162.5994,62.2657 162.5824,62.2339 162.4434,62.2392 162.3259,62.1778 162.2712,62.2005 162.1724,62.1727 162.1789,62.1448 162.3035,62.1008 162.5558,62.0801 162.5277,61.9489 162.3171,61.9476 162.2888,61.9183 162.3944,61.836 162.4932,61.8059 162.4228,61.7525 162.4971,61.7364 162.5095,61.6449 162.5252,61.6444 162.5664,61.6291 162.5975,61.612 162.6188,61.5944 162.631,61.5021 162.693,61.4433 162.7755,61.4802 162.7663,61.5011 162.7525,61.5216 162.7815,61.5423 162.8131,61.5529 162.9016,61.5548 162.9698,61.5865 162.9918,61.6073 162.9895,61.6424 162.9248,61.671 162.8099,61.686 162.7298,61.6947 162.7028,61.6975 162.6715,61.7042 162.6392,61.7259 162.6471,61.7499 162.715,61.8601 162.7563,61.9066 162.8236,61.9697 162.7928,62.0709 162.7658,62.1223 162.8103,62.2078 162.9175,62.2578 163.0108,62.2695 163.0348,62.2858 163.0253,62.3044 162.9953,62.3138 162.9752,62.316 162.9383,62.3158 162.9129,62.321 162.8481,62.3683 162.9114,62.4502 162.9405,62.466 162.9729,62.4738 163.0155,62.4804 163.0714,62.4857 163.2695,62.5109 163.4386,62.5399 163.626,62.5708 163.7513,62.5836 163.7884,62.5838 163.831,62.5913 163.9122,62.6081 164.0164,62.6316 164.0468,62.6348 164.194,62.6228 164.2621,62.6141 164.3342,62.5594 164.3615,62.5312 164.3862,62.5075 164.4437,62.4913 164.7139,62.4362 164.7485,62.4327 164.8276,62.4297 164.9286,62.4264 164.9738,62.4268 165.0169,62.423 165.0714,62.4165 165.2459,62.3933 165.3092,62.3665 165.1913,62.3695 165.1251,62.382 165.0703,62.3967 165.0224,62.4021 164.8662,62.4012 164.8018,62.3947 164.7741,62.3794 164.8005,62.3571 164.8533,62.3394 164.9116,62.3246 164.9702,62.2793 165.0101,62.2397 164.9647,62.2405 164.9426,62.257 164.9115,62.2969 164.7714,62.3445 164.7365,62.3476 164.6963,62.3435 164.6645,62.3406 164.6431,62.3415 164.6017,62.3455 164.4647,62.3693 164.4426,62.378 164.399,62.3939 164.2946,62.3979 164.2142,62.3817 164.196,62.3711 164.1718,62.3509 164.0982,62.3085 164.0787,62.2983 164.0099,62.2715 163.9792,62.266 163.9563,62.2648 163.9147,62.2544 163.803,62.2009 163.7799,62.1757 163.7647,62.1253 163.7475,62.0252 163.7572,61.876 163.756,61.7083 163.7218,61.6354 163.6964,61.6123 163.6702,61.6001 163.6334,61.5968 163.558,61.5782 163.5323,61.5581 163.4349,61.3759 163.4451,61.358 163.4703,61.3494 163.4951,61.3621 163.5244,61.3729 163.6259,61.3654 163.6596,61.3477 163.7067,61.289 163.7013,61.2557 163.6662,61.2342 163.5412,61.1385 163.4518,61.1127 163.4086,61.0994 163.3245,61.0722 163.3021,61.0588 163.1986,60.9729 163.1977,60.9308 163.3012,60.8973 163.4176,60.8626 163.3322,60.8014 163.2743,60.804 163.2507,60.8002 163.1334,60.7743 163.0903,60.7607 163.0593,60.7421 162.9638,60.7392 162.8824,60.7469 162.829,60.7259 162.8008,60.7042 162.705,60.7117 162.6617,60.7089 162.5909,60.6975 162.5661,60.69 162.4943,60.623 162.4671,60.5866 162.4457,60.5729 162.3137,60.5349 162.1521,60.5186 162.06,60.4744 161.8403,60.4194 161.6363,60.3593 161.6066,60.3468 161.5699,60.2445 161.6106,60.2545 161.6235,60.2162 161.6244,60.1953 161.6138,60.1701 161.533,60.1147 161.4888,60.0876 161.4147,60.0517 161.3221,60.0293 161.1964,59.9927 161.162,59.9741 161.0382,59.8693 160.9676,59.8057 160.9448,59.7786 160.7993,59.6905 160.5599,59.5509 160.5191,59.5341 160.3266,59.5033 160.2242,59.4876 160.1838,59.4715 160.1628,59.4426 160.1553,59.403 160.145,59.3844 160.1149,59.3551 160.0423,59.2901 160.0087,59.2698 159.8597,59.216 159.6262,59.105 159.602,59.0917 159.5706,59.0728 159.4938,59.0131 159.4382,58.9484 159.4331,58.9287 159.4482,58.9063 159.4612,58.8742 159.4236,58.7992 159.4076,58.7811 159.2025,58.6435 159.1571,58.6165 159.0464,58.5528 158.9065,58.4718 158.8554,58.4338 158.8374,58.4081 158.7526,58.351 158.4678,58.2279 158.4463,58.2208 158.3753,58.2011 158.3013,58.1573 158.1849,58.0988 158.0703,58.0351 157.996,57.9917 157.9458,57.9501 157.7812,57.923 157.754,57.9185 157.6361,57.9105 157.5733,57.9108 157.5112,57.9195 157.3574,57.9354 157.2735,57.8123 157.2493,57.7823 157.2139,57.7536 157.1912,57.7399 157.1493,57.7218 157.1217,57.7162 157.0406,57.7039 157.0018,57.7011 156.921,57.7024 156.8844,57.704 156.7703,57.7293 156.7453,57.7466 156.6973,57.7818 156.5033,57.6948 156.4767,57.6696 156.533,57.6624 156.5568,57.659 156.6008,57.6252 156.6188,57.6097 156.6347,57.5945 156.6503,57.5754 156.6881,57.494 156.6979,57.4593 156.7051,57.3815 156.6985,57.3527 156.6817,57.3273 156.4909,57.1116 156.4155,57.0407 156.3668,57.0089 156.2663,57.0369 156.2477,56.9922 156.2362,56.9598 156.2028,56.9132 156.171,56.887 156.1447,56.8737 156.1112,56.8577 156.0758,56.8422 155.9244,56.7827 155.7873,56.6553 155.793,56.6868 155.8221,56.7167 155.853,56.7326 155.8805,56.7525 155.8874,56.7739 155.8337,56.7518 155.8,56.728 155.7435,56.6784 155.7242,56.6607 155.6664,56.5863 155.665,56.5667 155.6654,56.5415 155.6205,56.4382 155.571,56.3244 155.5581,56.2929 155.526,56.2035 155.4922,56.1074 155.4825,56.0883 155.4656,56.0571 155.4454,56.0236 155.4229,55.9929 155.4123,55.9675 155.3749,55.846 155.3731,55.7662 155.3748,55.737 155.3745,55.726 155.3694,55.6937 155.335,55.5376 155.3104,55.4408 155.2813,55.2914 155.2774,55.2652 155.2769,55.2386 155.2774,55.2351 1375,11.0,Russia 138.6978,67.2632 138.7757,67.2014 138.9235,67.1421 139.1524,67.0833 139.2944,67.077 139.4904,67.069 139.5683,66.9393 139.6973,66.8345 140.0317,66.7207 140.3635,66.5769 140.6801,66.4994 140.5675,66.4129 140.2823,66.3828 139.7206,66.2863 139.7325,66.2088 140.1095,66.0215 140.0395,65.8988 140.3657,65.7468 140.1871,65.6306 140.4768,65.5993 140.2935,65.5206 139.8988,65.4327 139.7419,65.342 139.5734,65.2143 139.4208,65.0966 139.3359,65.0007 139.4602,64.9174 139.6651,64.8713 140.3926,64.5994 140.4104,64.5642 139.9207,64.4217 140.0792,64.3472 140.2738,64.3377 140.5302,64.2085 140.7638,64.1862 140.7,63.9944 140.7057,63.9037 140.5393,63.857 140.5289,63.7429 140.6121,63.6173 140.5898,63.565 140.2449,63.6046 139.7929,63.5115 139.5842,63.3243 139.4729,63.179 139.4091,63.0694 139.4481,63.0177 139.5953,62.9491 139.6453,62.8598 139.629,62.7938 139.6157,62.672 139.809,62.6867 140.149,62.7437 140.3334,62.7368 140.3865,62.615 140.4658,62.4815 140.5645,62.4243 140.6911,62.4857 140.7854,62.5563 140.8816,62.4884 141.0368,62.487 141.1057,62.4012 141.2003,62.4247 141.2971,62.4363 141.4207,62.2834 141.5139,62.2587 141.5799,62.1627 141.662,62.1214 141.742,62.0811 141.8601,62.0795 141.824,62.0109 141.8747,62.004 141.9739,62.0299 142.0588,62.0234 142.1307,62.087 142.1742,62.059 142.2717,62.0004 142.2626,61.9625 142.4007,61.9422 142.4209,61.8577 142.5514,61.9093 142.6708,61.9688 142.8754,61.9336 142.9312,61.895 142.9981,61.9168 142.9975,61.966 143.0684,62.0099 143.0982,62.036 143.125,62.1018 143.2275,62.117 143.254,62.0555 143.3763,62.0191 143.4454,62.0459 143.4961,62.0234 143.6003,62.0286 143.6269,61.9702 143.629,61.8897 143.6307,61.8318 143.6904,61.8344 143.7636,61.8918 143.7992,61.9516 143.9456,61.9999 143.9966,61.9568 143.9413,61.893 143.9155,61.8132 144.0145,61.7263 144.1329,61.744 144.2416,61.7366 144.2912,61.7803 144.3785,61.7914 144.441,61.8246 144.5401,61.8509 144.596,61.9843 144.7341,62.0442 144.853,62.0506 144.9943,62.0413 145.0469,61.9999 145.223,61.9727 145.285,62.0002 145.4241,61.9853 145.4833,61.9516 145.6394,62.005 145.6655,62.0525 145.7418,62.0604 145.8011,62.0084 145.8744,62.0272 145.9976,61.9936 146.0345,61.9443 146.1062,61.9524 146.1494,61.9143 146.1994,61.9134 146.2643,61.8606 146.3645,61.8231 146.3666,61.7679 146.4551,61.7248 146.441,61.7055 146.5063,61.6557 146.5848,61.623 146.5776,61.5266 146.6302,61.4746 146.6104,61.4342 146.6614,61.4082 146.7453,61.3975 146.7016,61.3184 146.7284,61.2588 146.7549,61.2046 146.7158,61.1369 146.7319,61.0967 146.6738,61.0846 146.6626,61.0608 146.7318,61.0017 146.6936,60.9533 146.5364,60.9608 146.4777,60.9218 146.5235,60.8714 146.4937,60.8083 146.4501,60.7614 146.4876,60.7312 146.4581,60.6863 146.4059,60.6575 146.3134,60.6635 146.1951,60.7082 146.111,60.7381 146.0528,60.7355 146.0039,60.6836 145.9617,60.6571 145.9036,60.6415 145.9027,60.6136 145.8586,60.5936 145.7734,60.6072 145.6811,60.5739 145.612,60.557 145.61,60.5184 145.5563,60.5078 145.5052,60.4721 145.5223,60.4116 145.6449,60.394 145.6564,60.3435 145.586,60.3407 145.6622,60.23 145.7517,60.2129 145.7805,60.1954 145.8205,60.192 145.8437,60.2159 146.1489,60.1896 146.2288,60.2387 146.3098,60.2531 146.3689,60.2727 146.4198,60.2509 146.4322,60.2185 146.4704,60.1795 146.4529,60.1304 146.534,60.1091 146.5994,60.1344 146.6911,60.0948 146.6795,60.0149 146.635,59.9931 146.7345,59.958 146.7924,59.9041 146.8866,59.932 146.9878,59.9495 147.0413,59.9368 147.0469,59.8996 147.1203,59.8829 147.1393,59.8529 147.1377,59.8315 147.0999,59.8049 147.1449,59.7757 147.1416,59.7382 147.0825,59.6942 147.1688,59.6383 147.1222,59.6104 147.129,59.5655 147.1134,59.5346 147.1303,59.4994 147.0954,59.4682 147.1043,59.4112 147.0458,59.3963 146.9443,59.4028 146.8967,59.3825 146.8836,59.3341 146.8796,59.2509 146.8911,59.2472 146.9657,59.2557 146.9914,59.2569 147.0231,59.2546 147.0997,59.2274 147.1313,59.2104 147.1515,59.191 147.215,59.1686 147.2781,59.1776 147.2701,59.2033 147.2882,59.2185 147.3314,59.2281 147.3728,59.2265 147.3988,59.2139 147.4321,59.194 147.4797,59.1933 147.5061,59.1971 147.5545,59.217 147.5389,59.2423 147.5068,59.2781 147.5406,59.3027 147.5679,59.3115 147.6012,59.3173 147.6271,59.3196 147.9106,59.3466 147.9366,59.3475 147.9745,59.3455 148.0116,59.3396 148.0888,59.3227 148.1222,59.2895 148.1351,59.1912 148.1806,59.1827 148.2679,59.1749 148.3336,59.1829 148.4135,59.1977 148.5222,59.2102 148.547,59.206 148.5933,59.1841 148.6213,59.1682 148.635,59.1711 148.6719,59.1877 148.6847,59.3088 148.5839,59.3309 148.545,59.3164 148.5197,59.3015 148.4946,59.2926 148.4447,59.2987 148.426,59.3115 148.4125,59.3502 148.4172,59.3776 148.4369,59.3957 148.4654,59.4203 148.4928,59.4384 148.5577,59.4762 148.5833,59.4811 148.5996,59.4678 148.5702,59.4505 148.5636,59.4282 148.5773,59.4086 148.6247,59.3915 148.7092,59.3894 148.7551,59.4057 148.8102,59.4218 148.8429,59.4202 148.884,59.4066 148.9305,59.3975 148.9312,59.4348 148.8938,59.463 148.8453,59.4692 148.8058,59.4796 148.7545,59.56 148.8574,59.6004 149.067,59.6701 149.092,59.6882 149.2003,59.6955 149.3115,59.6995 149.3595,59.6976 149.5279,59.6676 149.5522,59.6621 149.6868,59.6306 149.7954,59.6013 149.9843,59.5802 150.0156,59.5757 150.135,59.5499 150.1548,59.5212 150.2134,59.4903 150.2436,59.4826 150.2927,59.4789 150.3233,59.4867 150.3512,59.4936 150.3992,59.5033 150.4252,59.504 150.4464,59.485 150.4125,59.4734 150.3462,59.4668 150.3065,59.4627 150.252,59.4526 150.2172,59.4446 150.1987,59.4365 150.1775,59.4252 150.1618,59.4113 150.185,59.4147 150.2718,59.4301 150.3115,59.4348 150.3712,59.4405 150.4029,59.4388 150.4475,59.4223 150.4322,59.4045 150.4002,59.3811 150.432,59.3717 150.5878,59.3813 150.6155,59.3869 150.6553,59.4002 150.6411,59.4355 150.6075,59.4491 150.5877,59.4817 150.6217,59.495 150.7668,59.519 150.8195,59.5202 150.8567,59.5159 150.9057,59.5057 150.9548,59.4964 151.1031,59.4997 151.3228,59.4014 151.3768,59.3541 151.4341,59.2821 151.4662,59.2251 151.6989,59.1937 151.7435,59.2033 151.787,59.218 151.8207,59.2232 151.8588,59.2213 152.0014,59.1491 151.9813,59.135 151.9566,59.1378 151.911,59.1364 151.8839,59.131 151.84,59.1157 151.8125,59.1002 151.7911,59.0887 151.7633,59.0819 151.5188,59.0822 151.3258,59.0967 151.1632,59.0881 151.0546,59.0539 151.0088,59.0426 150.8836,59.0196 150.859,59.0229 150.8364,59.0329 150.7967,59.0352 150.8548,58.96 150.9369,58.8736 150.9631,58.8622 150.9932,58.8501 151.0285,58.8035 151.0344,58.7899 151.0294,58.7686 151.0564,58.7698 151.1224,58.7934 151.1761,58.8048 151.2146,58.8056 151.2378,58.7984 151.2604,58.7887 151.2835,58.7815 151.3086,58.7809 151.3339,58.7814 151.4253,58.7883 151.7404,58.8211 151.7801,58.8256 151.8072,58.8312 151.8403,58.8522 151.8291,58.8924 151.843,58.9186 151.9101,58.9361 151.9437,58.9406 152.0751,58.9525 152.19,58.9268 152.2852,58.8841 152.4555,58.8507 152.5949,58.8469 152.6315,58.8965 152.6885,58.9778 152.7107,59.0042 152.777,59.0146 152.8035,59.0174 152.8297,59.0191 152.8702,59.0215 152.8961,59.0216 152.9474,59.0221 152.9852,59.0198 153.0124,59.072 153.046,59.1546 153.0768,59.1705 153.0967,59.1722 153.1656,59.1669 153.2378,59.1522 153.374,59.1193 153.4858,59.107 153.5097,59.1036 153.5316,59.0921 153.5494,59.0784 153.5713,59.0597 153.6018,59.0272 153.6295,59.007 153.737,58.9753 153.7558,58.9748 153.8697,59.0251 153.9041,59.0241 153.9454,59.0147 153.9694,59.0097 154.004,59.023 154.0594,59.0655 154.0303,59.1066 154.044,59.1318 154.1643,59.1492 154.2014,59.1452 154.2419,59.1279 154.2681,59.1071 154.3271,59.0767 154.362,59.0658 154.4546,59.0561 154.4552,59.0907 154.541,59.1187 154.624,59.1156 154.7097,59.1139 154.8116,59.1161 154.8522,59.133 154.8973,59.2906 154.859,59.3129 154.8351,59.3184 154.7943,59.3222 154.7346,59.3655 154.7146,59.389 154.6986,59.4088 154.6775,59.4215 154.6451,59.4218 154.6041,59.406 154.5598,59.3911 154.4728,59.411 154.4019,59.4459 154.1493,59.4772 154.1284,59.474 154.1433,59.4127 154.169,59.3903 154.1969,59.3784 154.2134,59.3616 154.1318,59.3513 154.0873,59.3946 154.0559,59.4171 154.0037,59.3727 153.9767,59.3705 153.9499,59.3709 153.8436,59.3823 153.8212,59.3917 153.7995,59.4099 153.7774,59.4417 153.7998,59.4626 153.899,59.5189 154.0089,59.5658 153.9525,59.6241 153.9385,59.652 153.934,59.6886 153.9341,59.7117 153.9417,59.8066 153.9627,59.8172 153.9835,59.8206 154.1022,59.8209 154.1775,59.8481 154.1927,59.8862 154.2051,59.9113 154.228,59.9553 154.241,59.9769 154.3329,60.0635 154.509,60.1993 154.5347,60.217 154.5705,60.2397 154.5886,60.2508 154.6064,60.2622 154.6249,60.2737 154.6531,60.2907 154.6736,60.3019 154.9279,60.4035 155.0777,60.4577 155.26,60.55 155.3478,60.5809 155.4164,60.5926 155.4895,60.621 155.6012,60.6884 155.5945,60.7159 155.6011,60.7547 155.6175,60.8132 155.6319,60.8331 155.6427,60.8417 155.6522,60.8505 155.7879,60.9386 156.0565,61.0846 156.1184,61.1074 156.1505,61.1175 156.2114,61.1307 156.2938,61.1444 156.3188,61.1391 156.3572,61.1353 156.3672,61.1534 156.3615,61.2478 156.3366,61.3235 156.3341,61.3467 156.36,61.4003 156.3953,61.459 156.4385,61.4591 156.4709,61.455 156.4976,61.4519 156.5263,61.454 156.5576,61.4612 156.5985,61.4762 156.678,61.527 156.7009,61.5509 156.7253,61.5747 156.8502,61.6175 156.8818,61.6248 156.9598,61.6408 157.0657,61.6778 157.1298,61.7106 157.1837,61.7278 157.221,61.7316 157.2624,61.7309 157.3072,61.7215 157.3337,61.7185 157.4998,61.7137 157.5897,61.7108 157.6264,61.7006 157.6465,61.6801 157.7179,61.6547 157.8052,61.6664 157.8967,61.6979 157.9309,61.7137 157.9478,61.7249 158.0008,61.7474 158.0646,61.7536 158.1067,61.7525 158.3127,61.7576 158.4278,61.7606 158.533,61.7822 158.5787,61.8132 158.5998,61.8202 158.6463,61.8279 158.7984,61.8459 158.8991,61.8481 158.9406,61.8466 159.0574,61.8147 159.0749,61.7839 159.1877,61.6066 159.2192,61.5899 159.2498,61.5964 159.2723,61.6067 159.3092,61.6185 159.4425,61.6441 159.5239,61.6377 159.5622,61.6528 159.6023,61.6946 159.6142,61.7196 159.6583,61.7505 159.7674,61.793 159.8856,61.8332 160.0136,61.875 160.0459,61.8718 160.0669,61.7093 160.0583,61.6904 159.8512,61.4447 159.7023,61.316 159.6365,61.2805 159.5487,61.2383 159.5304,61.1892 159.5686,61.1892 159.6074,61.1774 159.6354,61.0897 159.6415,61.0617 159.6345,61.0251 159.6092,60.9815 159.5985,60.963 159.5722,60.9463 159.516,60.9208 159.4955,60.9068 159.4768,60.8694 159.5536,60.8562 159.5665,60.8546 159.5708,60.8731 159.6297,60.9023 159.7916,60.9613 159.8664,60.9776 160.0266,60.9791 160.0861,60.9518 160.0236,60.8745 159.9822,60.8395 159.9324,60.8162 159.8623,60.7534 159.8993,60.7287 159.9207,60.7106 159.9191,60.6605 159.8787,60.6291 159.8307,60.5835 159.8357,60.5157 159.9036,60.5297 159.9587,60.5536 160.0063,60.5978 160.0945,60.6665 160.3719,60.7017 160.3992,60.6898 160.4202,60.6789 160.4541,60.6658 160.4911,60.6646 160.5047,60.7003 160.5198,60.7387 160.5825,60.8104 160.633,60.8395 160.729,60.8916 160.7589,60.8953 160.7915,60.9027 160.8219,60.912 160.8592,60.9266 161.0219,61.0135 161.0552,61.0357 161.0797,61.052 161.1097,61.0956 161.1602,61.1273 161.1855,61.136 161.2258,61.1357 161.2559,61.1262 161.3031,61.1622 161.4748,61.2677 161.5361,61.2778 161.5564,61.2758 161.63,61.303 161.7177,61.3459 161.9031,61.4644 162.0393,61.5575 162.0977,61.5984 162.1852,61.5924 162.1916,61.5915 162.2241,61.5865 162.2606,61.577 162.2822,61.5666 162.3064,61.5517 162.3472,61.5362 162.4316,61.5238 162.4493,61.5354 162.4401,61.5533 162.4139,61.5563 162.3882,61.5604 162.3593,61.5711 162.3281,61.5933 162.3412,61.618 162.3797,61.6263 162.4513,61.6387 162.4905,61.6454 162.5095,61.6449 162.4971,61.7364 162.4228,61.7525 162.4932,61.8059 162.3944,61.836 162.2888,61.9183 162.3171,61.9476 162.5277,61.9489 162.5558,62.0801 162.3035,62.1008 162.1789,62.1448 162.1724,62.1727 162.2712,62.2005 162.3259,62.1778 162.4434,62.2392 162.5824,62.2339 162.5994,62.2657 162.6719,62.2369 162.7752,62.2923 162.7846,62.379 162.792,62.4683 162.7027,62.5583 162.8325,62.6771 162.7234,62.6803 162.717,62.7127 162.6436,62.7659 162.648,62.8138 162.5767,62.8598 162.4768,62.8873 162.3099,62.9264 162.3621,63.0417 162.329,63.0773 162.439,63.1321 162.4869,63.1111 162.6456,63.1402 162.6224,63.1805 162.809,63.1926 162.9007,63.2711 162.7827,63.3113 162.7511,63.3578 162.7014,63.3726 162.7119,63.397 162.7968,63.4016 162.843,63.4408 162.9125,63.4353 163.0196,63.5129 163.0202,63.6418 162.8937,63.6658 162.8942,63.7235 162.8067,63.7415 162.7595,63.8311 162.849,63.8816 162.9461,63.8817 162.9193,63.9139 162.9731,63.9495 162.9312,64.0248 162.862,64.0368 162.8095,64.1408 162.9432,64.207 163.1741,64.1864 163.2421,64.2905 163.3395,64.3173 163.3714,64.3553 163.4733,64.3811 163.4008,64.405 163.3615,64.4868 163.2531,64.5023 163.1722,64.5566 163.2047,64.5857 163.1752,64.6251 163.2618,64.6789 163.1947,64.7036 163.0419,64.6565 162.8637,64.6522 162.741,64.6456 162.6304,64.6786 162.614,64.7307 162.4973,64.7537 162.3027,64.7341 162.1798,64.7757 161.9255,64.8026 161.8041,64.8412 161.8311,64.8714 161.7614,64.9045 161.7404,64.9636 161.6787,65.0194 161.5116,65.0507 161.4302,65.1033 161.3024,65.1423 161.223,65.1372 161.0336,65.163 160.8937,65.1401 160.6818,65.1388 160.5993,65.1557 160.3904,65.276 160.2357,65.3469 160.248,65.4213 160.1721,65.4717 160.0291,65.5139 159.838,65.5139 159.7467,65.5709 159.5571,65.6203 159.2176,65.6637 159.0446,65.7204 158.9089,65.7338 158.9407,65.8154 158.9111,65.8615 158.9811,65.9109 159.0421,65.9727 159.1184,66.0494 159.2587,66.1462 158.9782,66.2175 158.7552,66.2768 158.5547,66.3322 158.4264,66.4063 158.3695,66.4259 158.5009,66.4597 158.4917,66.5001 158.5382,66.5471 158.609,66.5686 158.6749,66.6125 158.717,66.7036 158.8046,66.7138 158.9182,66.7764 158.8761,66.8221 158.8637,66.8587 158.8157,66.877 158.7887,66.916 158.8213,66.9478 158.7072,67.0326 158.4735,67.0942 158.3622,67.0894 158.3267,67.1207 158.2118,67.14 158.2004,67.1677 157.9699,67.2342 157.8689,67.2512 157.7918,67.3207 157.9054,67.4229 157.7586,67.4571 157.6956,67.5245 157.8126,67.6804 157.9343,67.7212 158.1003,67.721 158.1535,67.7003 158.3586,67.7266 158.2663,67.8203 158.0795,67.8235 158.0662,67.9055 158.19,67.9244 158.253,67.9846 158.2549,68.0471 158.3614,68.0707 158.4892,68.1085 158.6509,68.1283 158.7318,68.1165 158.7875,68.13 158.8885,68.1151 158.9911,68.1499 159.1273,68.1774 159.19,68.1702 159.5234,68.2203 159.7073,68.2206 159.7424,68.189 159.8084,68.1898 159.8404,68.2592 160.026,68.2656 160.5075,68.2493 160.8306,68.2748 160.9921,68.2796 161.2326,68.3685 161.3437,68.3902 161.5843,68.3794 161.7255,68.3472 161.9785,68.3559 162.1699,68.3347 162.4001,68.2776 162.5294,68.3356 162.5949,68.4892 162.7598,68.568 162.709,68.6414 162.6124,68.6758 162.5915,68.7864 162.723,68.7685 162.8476,68.8522 162.7466,68.9118 162.5383,68.9804 162.5735,69.0347 162.4935,69.1016 162.7888,69.1705 162.6392,69.2514 162.5085,69.2954 162.5024,69.3611 162.3456,69.3957 162.413,69.4359 162.3098,69.5152 162.3623,69.549 162.346,69.5666 162.3064,69.578 162.2802,69.5832 162.2583,69.5875 162.2028,69.5881 162.1641,69.5874 162.1437,69.5856 162.0802,69.5796 162.0619,69.579 161.9724,69.5723 161.8835,69.5573 161.8302,69.5355 161.6669,69.4573 161.6268,69.4386 161.5823,69.4303 161.5528,69.4289 161.5219,69.4366 161.4894,69.442 161.462,69.4387 161.3206,69.3773 161.3017,69.3599 161.2616,69.3358 161.2126,69.3194 161.1068,69.2982 161.0882,69.2874 161.0759,69.1517 161.0798,69.1137 161.1052,69.0611 161.1353,69.0014 161.1596,68.9717 161.2012,68.9515 161.2228,68.9232 161.2332,68.8233 161.1962,68.808 161.1084,68.7747 160.9762,68.7025 160.9505,68.6496 160.9335,68.5887 160.8251,68.4959 160.7955,68.4732 160.7191,68.4452 160.6694,68.4369 160.6102,68.4303 160.5754,68.4315 160.498,68.4361 160.4238,68.4505 160.4222,68.4729 160.5325,68.4675 160.6629,68.4627 160.7255,68.4752 160.7517,68.4986 160.8686,68.6105 160.8633,68.6305 160.8733,68.6953 160.9378,68.76 160.9971,68.8071 161.018,68.8209 161.0408,68.8413 161.0572,68.8657 161.0669,68.8876 161.051,68.9061 161.0185,68.9218 160.9189,68.9555 160.8798,68.9636 160.8455,68.9661 160.7649,68.9683 160.6856,68.9832 160.6643,68.9908 160.6245,69.0256 160.645,69.0444 160.6802,69.0603 160.6984,69.078 160.6763,69.1836 160.6691,69.2105 160.6369,69.2761 160.6141,69.2974 160.593,69.312 160.5757,69.3691 160.5856,69.4204 160.6158,69.4561 160.6387,69.47 160.6518,69.4899 160.5719,69.5482 160.3395,69.5722 159.9415,69.6164 159.7862,69.6322 159.7452,69.6372 159.7004,69.6468 159.4581,69.711 159.383,69.7442 159.3374,69.8034 159.3514,69.8263 159.3594,69.832 159.3645,69.8379 159.3984,69.857 159.4306,69.8734 159.4653,69.8861 159.5258,69.986 159.4433,70.0119 159.4405,70.0456 159.6022,70.0432 159.7384,70.1526 159.747,70.1909 159.6772,70.3168 159.5347,70.4401 159.4509,70.5027 159.4157,70.5256 159.3202,70.5768 159.1497,70.6414 159.1038,70.6566 158.9192,70.717 158.8874,70.7262 158.791,70.7517 158.6838,70.7765 158.6034,70.7861 158.5514,70.7949 158.3972,70.8222 158.3461,70.8315 158.295,70.8415 158.0884,70.878 157.7407,70.9283 157.5431,70.9521 157.3008,70.9692 157.2442,70.9726 157.206,70.9745 156.957,70.9827 156.4608,70.9989 156.4122,70.9995 156.3624,70.9986 156.2821,70.996 156.2405,70.9927 156.1602,70.9901 155.9871,70.9938 155.8726,70.9987 155.7753,70.9994 155.5808,71.0009 155.4803,70.9965 155.459,70.9944 155.375,70.9849 155.146,70.96 155.1072,70.9603 155.0672,70.9593 154.7057,70.9414 154.6456,70.9377 154.5412,70.9271 154.4575,70.9176 154.3538,70.9066 154.1473,70.8864 154.0051,70.875 153.8699,70.8623 153.686,70.8251 153.4327,70.7837 153.3492,70.7722 153.2875,70.7818 153.1042,70.7842 152.9864,70.7799 152.965,70.7763 152.8882,70.7619 152.7381,70.7471 152.6555,70.7506 152.5201,70.7514 152.423,70.7498 152.2645,70.7399 152.1925,70.7447 151.951,70.7743 151.8787,70.7836 151.7737,70.8041 151.7319,70.8165 151.7021,70.8303 151.6806,70.8406 151.6261,70.8471 151.4988,70.8628 151.398,70.8724 151.3432,70.8787 151.3144,70.8907 151.4615,70.8843 151.5634,70.8763 151.65,70.8768 151.6708,70.8794 151.7884,70.9014 151.7845,70.9236 151.7605,70.9371 151.7211,70.9582 151.5476,71.0464 151.4552,71.0876 151.411,71.1246 151.3839,71.1487 151.2766,71.2017 151.1132,71.2468 151.0853,71.25 151.0077,71.2516 150.9305,71.2531 150.8375,71.2634 150.7629,71.284 150.6909,71.2976 150.6422,71.2978 150.5092,71.276 150.4703,71.2639 150.347,71.2176 150.3261,71.2062 150.2935,71.1891 150.2603,71.1843 150.2957,71.2478 150.3151,71.266 150.3454,71.2805 150.3817,71.2963 150.3278,71.2939 150.3064,71.2901 150.2781,71.2831 150.2413,71.2662 150.2182,71.2485 150.0531,71.1811 150.0093,71.1791 149.972,71.1829 149.952,71.1816 149.9306,71.1772 149.8877,71.1666 149.852,71.1559 149.8247,71.1417 149.8012,71.1271 149.7797,71.1216 149.7586,71.1176 149.7184,71.1143 149.6797,71.1137 149.7003,71.1306 149.7898,71.1603 149.8568,71.1811 149.9915,71.2151 150.0133,71.2206 150.0865,71.237 150.1073,71.2401 150.1473,71.2429 150.1737,71.25 150.3013,71.3455 150.3194,71.3885 150.2868,71.4105 150.2051,71.4212 149.9117,71.4241 149.892,71.4241 149.8519,71.4218 149.7913,71.4183 149.7712,71.4168 149.7294,71.4108 149.6245,71.3843 149.5602,71.3709 149.5189,71.3686 149.5212,71.3955 149.5985,71.4938 149.6205,71.504 149.6557,71.5038 149.6655,71.4748 149.7496,71.4924 149.613,71.5622 149.5204,71.5672 149.4492,71.5534 149.4212,71.5479 149.3422,71.5474 149.1922,71.5571 149.0781,71.5682 148.9278,71.5873 148.7644,71.6002 148.7357,71.5916 148.7043,71.5807 148.6522,71.5682 148.483,71.5772 148.506,71.6006 148.5596,71.6014 148.6172,71.5965 148.6496,71.6038 148.6895,71.6636 148.6288,71.666 148.5806,71.6696 148.5434,71.6757 148.4928,71.708 148.6066,71.6916 148.7476,71.67 148.7773,71.6704 148.8081,71.6809 148.8453,71.7134 148.8678,71.7313 148.9404,71.786 148.9875,71.8046 149.0192,71.809 149.0554,71.8002 149.2329,71.7039 149.284,71.674 149.3187,71.6664 149.3494,71.6681 149.3929,71.6777 149.6296,71.7367 149.6729,71.7535 149.7194,71.7887 149.71,71.8231 149.6929,71.8393 149.6651,71.8591 149.5792,71.9084 149.3664,72.02 149.1729,72.065 149.0486,72.0821 148.9917,72.0914 148.887,72.1129 148.8313,72.1263 148.6754,72.1418 148.5574,72.1513 148.3606,72.167 148.2648,72.1824 148.1988,72.1958 148.1504,72.2027 147.9141,72.2229 147.7936,72.227 147.5316,72.233 147.2072,72.2333 146.874,72.2317 146.8319,72.2268 146.7807,72.2179 146.7163,72.1918 146.376,72.0118 146.2027,71.918 146.1776,71.9023 145.984,71.794 145.8471,71.7379 145.7382,71.6958 145.4835,71.6516 145.33,71.6358 145.2723,71.6417 145.233,71.6426 145.2047,71.6376 145.1427,71.6144 145.0383,71.5767 145.0008,71.5648 144.9806,71.5629 144.9282,71.5845 144.8999,71.5907 144.7484,71.599 144.6469,71.6033 144.5829,71.5982 144.5552,71.629 144.5499,71.6754 144.5814,71.6852 144.6292,71.6788 144.6878,71.6754 144.7084,71.6782 144.852,71.717 144.8742,71.7441 144.772,71.7748 144.7429,71.7777 144.6971,71.7864 144.6172,71.8255 144.6266,71.87 144.6542,71.8753 144.8691,71.8245 144.9502,71.7926 144.9781,71.7747 145.0073,71.7711 145.1462,71.7927 145.3345,71.8101 145.3643,71.809 145.3844,71.8107 145.4049,71.814 145.4596,71.8315 145.4749,71.8604 145.4627,71.9101 145.4473,71.932 145.4115,71.9414 145.3668,71.9339 145.3332,71.9308 145.3111,71.9466 145.2744,71.986 145.3137,72.0147 145.3379,72.0322 145.3874,72.0742 145.3953,72.0927 145.3964,72.1182 145.3696,72.1201 145.3378,72.122 145.2762,72.1466 145.3454,72.1566 145.3755,72.155 145.4046,72.1502 145.4902,72.1287 145.5556,72.1065 145.6112,72.0367 145.611,72.0161 145.592,72.0045 145.608,71.9793 145.6412,71.9698 145.7142,72.0287 145.7061,72.0579 145.8586,72.0778 145.8877,72.074 145.9951,72.0289 145.9069,71.9886 145.8104,71.9542 145.7621,71.9368 145.7314,71.9332 145.6952,71.942 145.6526,71.9343 145.5925,71.7616 145.6228,71.7517 145.6434,71.756 145.6849,71.7706 145.7219,71.7941 145.7432,71.8092 145.8499,71.8557 145.9273,71.8783 145.993,71.9044 146.056,71.9309 146.083,71.9423 146.2761,72.0359 146.3363,72.0654 146.4777,72.1413 146.4992,72.1538 146.568,72.2034 146.3165,72.2089 146.1954,72.2111 146.1143,72.2109 146.0739,72.2105 146.0332,72.2103 145.7,72.2034 145.6388,72.2013 145.4753,72.1943 145.3322,72.1865 145.2496,72.1807 145.1886,72.1771 145.1271,72.1736 144.9031,72.1635 144.8425,72.1633 144.7823,72.1644 144.7419,72.1627 144.4756,72.1407 144.4344,72.1368 144.4136,72.1334 144.3718,72.1257 144.3314,72.1122 144.3136,72.1001 144.2925,72.085 144.2717,72.0792 144.1899,72.071 144.0896,72.0727 144.0404,72.0778 143.9538,72.1009 143.9344,72.106 143.8503,72.1345 143.801,72.1672 143.9412,72.1991 144.0355,72.1842 144.0808,72.1659 144.1926,72.1346 144.2461,72.1881 144.2655,72.2059 144.3437,72.2602 144.3895,72.29 144.4025,72.2953 144.1994,72.3167 144.0141,72.2257 143.6567,72.2278 143.5384,72.1042 143.3397,72.0482 143.1474,71.8847 142.9747,71.8006 142.9663,71.6993 142.6745,71.6065 142.4422,71.5512 142.5069,71.3937 142.3159,71.3074 142.5778,71.1476 141.9313,70.8782 141.598,70.778 141.6537,70.6533 141.5876,70.5488 140.9161,70.2967 141.074,70.1636 140.9119,70.089 141.0122,69.9764 141.5915,69.8684 142.2096,69.845 142.1092,69.638 142.3999,69.6156 142.4056,69.4551 142.6823,69.422 142.7507,69.2534 141.9302,69.2741 141.5262,69.1801 141.7117,68.9305 141.8055,68.7294 141.6656,68.6042 141.0636,68.48 141.0539,68.4164 141.219,68.2799 141.1361,68.1577 141.0375,68.0813 141.0668,67.8938 140.6587,67.9001 140.0657,67.9005 139.8727,67.7866 139.5992,67.68 139.2312,67.5755 138.792,67.5676 138.9286,67.4688 138.9752,67.3747 138.6964,67.2643 138.6978,67.2632 39,11.0,Russia 144.5807,72.3364 144.622,72.3382 144.6418,72.3368 144.8273,72.318 144.9069,72.2998 144.9256,72.2931 144.9583,72.2738 145.0637,72.2557 145.4476,72.2501 145.5895,72.2504 145.7516,72.2505 145.8724,72.2475 146.0967,72.2519 146.2362,72.2419 146.3153,72.2349 146.3956,72.2328 146.4572,72.236 146.489,72.2472 146.4051,72.2658 146.3659,72.2718 146.3261,72.2753 146.2871,72.2799 146.1787,72.2938 145.9758,72.3346 145.8777,72.3562 145.8481,72.3609 145.7092,72.3752 145.6693,72.3791 145.6289,72.3796 145.5682,72.3835 145.4692,72.3954 145.1806,72.4387 145.122,72.4498 144.9011,72.4689 144.7287,72.4785 144.6532,72.4137 144.621,72.3861 144.561,72.3346 144.5807,72.3364 692,1.0,Zaire 12.2161,-5.7952 12.2213,-5.8064 12.2513,-5.8581 12.4217,-6.0099 12.5106,-6.0001 12.6454,-5.9726 12.6998,-5.9438 12.7083,-5.9053 12.7437,-5.8542 12.8832,-5.8054 12.9601,-5.8208 12.9833,-5.8364 13.093,-5.8624 13.164,-5.8496 13.2299,-5.8545 13.3901,-5.8478 13.4432,-5.8419 13.4981,-5.8476 13.5258,-5.858 13.744,-5.8558 13.923,-5.8339 13.9575,-5.8298 13.9817,-5.8419 14.0645,-5.8597 14.2267,-5.8788 14.3253,-5.8865 14.5799,-5.9012 14.6956,-5.8738 14.7419,-5.8712 14.8344,-5.8659 15.0594,-5.8562 15.6685,-5.8505 15.7948,-5.8631 15.9103,-5.8545 16.0817,-5.8528 16.1248,-5.8497 16.1974,-5.8459 16.3011,-5.8453 16.3499,-5.8465 16.4956,-5.869 16.5608,-5.8942 16.5774,-5.9149 16.5866,-5.9749 16.5872,-6.0203 16.6665,-6.1299 16.6968,-6.1615 16.7063,-6.1905 16.6748,-6.3477 16.6696,-6.3977 16.6893,-6.4596 16.7638,-6.674 16.8151,-6.7846 16.8519,-6.8498 16.8841,-6.8558 16.9109,-6.8843 16.9505,-7.0099 16.9388,-7.0597 16.9159,-7.1045 16.9241,-7.1906 16.9753,-7.2891 17.0455,-7.3306 17.076,-7.3704 17.0862,-7.4139 17.1317,-7.4441 17.1675,-7.5044 17.2643,-7.6705 17.2899,-7.7472 17.3711,-7.8368 17.4004,-7.846 17.4187,-7.8676 17.4856,-7.9943 17.5059,-8.0445 17.5307,-8.0715 17.5356,-8.0737 17.6113,-8.0889 17.6404,-8.0834 17.7368,-8.0573 17.8696,-8.033 17.9022,-8.0373 17.9326,-8.0523 17.9568,-8.074 17.9848,-8.0977 18.0214,-8.0983 18.0951,-8.0977 18.0893,-8.072 18.0923,-8.0193 18.1756,-7.9877 18.3094,-7.9884 18.3829,-7.9999 18.505,-7.9798 18.4983,-7.9485 18.5062,-7.9281 18.7452,-7.9288 18.752,-7.9632 18.7708,-7.9897 18.9806,-7.9902 19.3512,-7.9841 19.3374,-7.926 19.3306,-7.9051 19.3278,-7.884 19.3394,-7.8039 19.3517,-7.7818 19.3657,-7.7542 19.3798,-7.6836 19.3598,-7.6108 19.3507,-7.5924 19.3532,-7.5705 19.3776,-7.5641 19.4464,-7.5604 19.5088,-7.4688 19.5062,-7.4266 19.4805,-7.3614 19.4682,-7.3079 19.4682,-7.2784 19.4768,-7.1711 19.4811,-7.1441 19.5171,-6.9887 19.9401,-6.9875 19.9661,-6.9874 19.9502,-6.8858 19.927,-6.8255 19.8202,-6.7001 19.7366,-6.5724 19.7088,-6.3982 19.6925,-6.1846 19.7018,-6.1474 19.9224,-5.9895 19.9595,-5.9919 20.0106,-5.9454 20.0524,-5.8618 20.1058,-5.8479 20.1151,-5.8015 20.1592,-5.769 20.1732,-5.6947 20.1801,-5.6273 20.1476,-5.5576 20.1453,-5.3556 20.1755,-5.3115 20.1755,-5.2836 20.2033,-5.2744 20.1917,-5.2372 20.1964,-5.1652 20.1731,-5.0677 20.136,-5.0282 20.1499,-5.0027 20.1012,-4.9261 20.0803,-4.7984 20.0547,-4.745 20.0547,-4.6846 20.071,-4.666 20.0594,-4.6103 20.0803,-4.5499 20.1058,-4.5337 20.1151,-4.4988 20.0896,-4.4733 20.0919,-4.4338 20.0408,-4.3642 20.0408,-4.2783 20.1267,-4.2713 20.1778,-4.334 20.2196,-4.3293 20.2451,-4.3804 20.2707,-4.3944 20.3078,-4.3827 20.345,-4.399 20.3682,-4.2992 20.41,-4.2736 20.4402,-4.2829 20.4541,-4.2528 20.5006,-4.2574 20.626,-4.1947 20.6399,-4.1552 20.6724,-4.1576 20.6794,-4.0902 20.6701,-4.0043 20.6724,-3.9695 20.6608,-3.8557 20.6654,-3.7118 20.6446,-3.5585 20.6446,-3.4982 20.6469,-3.3681 20.6585,-3.3078 20.7746,-2.985 20.8675,-2.7876 20.9325,-2.7273 20.965,-2.6646 20.9534,-2.5903 21.0045,-2.4904 21.0788,-2.4997 21.2134,-2.5137 21.362,-2.4835 21.4526,-2.4719 21.4665,-2.3372 21.5524,-2.3627 21.6035,-2.4138 21.643,-2.4185 21.6801,-2.451 21.7591,-2.4835 21.831,-2.5253 21.9004,-2.4963 21.9571,-2.4077 22.0598,-2.3723 22.1378,-2.273 22.1839,-2.2943 22.2016,-2.3404 22.1839,-2.4361 22.2477,-2.4679 22.3008,-2.4254 22.2866,-2.3439 22.2299,-2.1809 22.2158,-2.071 22.1662,-1.9364 22.1874,-1.9045 22.3114,-1.9364 22.4178,-1.9506 22.5241,-1.9541 22.6339,-1.8053 22.6765,-1.7982 22.7721,-1.862 22.8288,-1.862 22.9351,-1.9576 23.0379,-1.9222 23.1371,-1.9612 23.2222,-2.0817 23.2824,-2.0462 23.5801,-2.0037 23.6935,-2.0179 23.69,-1.9435 23.7786,-1.9187 23.7786,-1.8017 23.8388,-1.7627 24.0018,-1.7769 24.0373,-1.7344 24.2782,-1.7769 24.4235,-1.784 24.4205,-1.7498 24.3775,-1.5332 24.3346,-1.4739 24.2999,-1.386 24.1343,-1.3901 24.0546,-1.3656 23.9197,-1.2838 23.8278,-1.1939 23.7685,-1.1796 23.7522,-1.104 23.5355,-0.9834 23.3557,-0.8056 23.4947,-0.6952 23.5866,-0.6728 23.6316,-0.6339 23.556,-0.5747 23.464,-0.4316 23.2535,-0.497 23.229,-0.4316 22.9735,-0.405 23.1452,-0.2783 23.2923,-0.3192 23.3291,-0.2804 23.4027,-0.2599 23.4089,-0.2047 23.2842,-0.031 23.2699,0.0078 23.1166,0.1917 23.0819,0.2817 22.9981,0.3737 22.947,0.4799 22.9327,0.5862 22.855,0.6823 22.855,0.8069 22.8182,0.8907 22.8203,0.9888 22.7753,1.0501 22.7549,1.091 22.7304,1.1727 22.6772,1.232 22.6527,1.3178 22.5832,1.3934 22.4872,1.465 22.3891,1.4977 22.2889,1.5018 22.3257,1.5733 22.4279,1.6367 22.4831,1.7082 22.4954,1.8145 22.5097,1.9044 22.5894,2.0495 22.569,2.1027 22.5894,2.1272 22.6589,2.1047 22.6936,2.0352 22.7304,2.0291 22.7467,2.0107 22.8305,2.0312 22.8837,2.0679 22.8837,2.0986 22.9143,2.0945 22.9409,2.1252 22.9327,2.1436 22.9695,2.1558 22.9797,2.1906 23.0615,2.1027 23.1085,2.0945 23.3456,2.2539 23.5275,2.2192 23.5765,2.1926 23.6297,2.1783 23.6542,2.1947 23.6317,2.3337 23.411,2.4624 23.3844,2.5013 23.3477,2.5319 23.3027,2.534 23.129,2.4992 23.0513,2.5381 22.9573,2.6668 23.0064,2.767 22.9777,2.8467 23.0247,2.91 23.0268,2.9754 23.0656,3.049 23.084,3.1512 23.0329,3.1696 22.9757,3.143 22.9062,3.0613 22.8285,2.9857 22.7856,3.0347 22.7795,3.1144 22.8061,3.2268 22.7816,3.2779 22.7141,3.3004 22.6365,3.325 22.6222,3.3781 22.6692,3.4517 22.8613,3.5048 22.9226,3.5477 22.9819,3.5334 23.0411,3.5477 23.1699,3.6806 23.2333,3.6356 23.3048,3.6397 23.3436,3.609 23.3947,3.6356 23.4335,3.6969 23.4806,3.7255 23.5173,3.8236 23.4806,3.8155 23.4029,3.8339 23.3702,3.8073 23.2108,3.8727 23.1433,3.8952 23.0411,3.8604 22.9941,3.8788 22.894,3.8522 22.7652,3.9033 22.7632,3.9933 22.6896,3.9912 22.5547,4.1057 22.5016,4.1159 22.4607,4.1486 22.4486,4.1561 22.4281,4.14 22.3961,4.1299 22.3611,4.1237 22.3213,4.1228 22.2603,4.1251 22.2269,4.1319 22.188,4.1439 22.168,4.1511 22.126,4.1718 22.0943,4.1995 22.0725,4.2111 22.0125,4.2206 21.9621,4.2416 21.8063,4.2608 21.7121,4.291 21.6306,4.2944 21.6061,4.2879 21.5726,4.2674 21.5519,4.2506 21.5238,4.2417 21.4894,4.2425 21.1847,4.2841 21.1396,4.3007 21.0795,4.3457 21.0541,4.3845 21.0106,4.4041 20.9462,4.4275 20.8502,4.4404 20.8118,4.4441 20.692,4.4219 20.5765,4.403 20.5487,4.4125 20.4535,4.4938 20.4302,4.5187 20.4348,4.6144 20.316,4.7623 20.1553,4.867 19.9795,4.9717 19.9553,4.9783 19.9289,4.9789 19.9046,4.9817 19.8786,4.9896 19.8578,5.0063 19.8356,5.0563 19.8189,5.0791 19.7901,5.0943 19.7376,5.1128 19.6782,5.1309 19.6268,5.1372 19.5349,5.145 19.394,5.1253 19.2061,4.9943 19.1861,4.9637 19.1637,4.9388 19.0845,4.9269 19.0636,4.9093 19.0423,4.8842 19.0069,4.8099 18.9665,4.7353 18.9341,4.707 18.8181,4.5726 18.801,4.5388 18.7825,4.4799 18.7726,4.4554 18.75,4.4106 18.7305,4.3857 18.7117,4.3741 18.6865,4.3623 18.6078,4.3493 18.57,4.3651 18.5462,4.3569 18.5233,4.3354 18.5148,4.3068 18.5226,4.2838 18.5464,4.2563 18.5714,4.2241 18.6094,4.1301 18.623,4.0496 18.6262,4.0229 18.6271,3.9886 18.6223,3.9628 18.5895,3.8627 18.5741,3.765 18.5699,3.7218 18.5717,3.6968 18.5774,3.6622 18.5977,3.5455 18.6038,3.4757 18.6112,3.4497 18.6225,3.315 18.621,3.2042 18.5949,3.1346 18.5773,3.1152 18.5588,3.0998 18.5384,3.0862 18.5202,3.073 18.4494,2.9126 18.3925,2.7733 18.3623,2.6989 18.3222,2.6098 18.2966,2.5746 18.2799,2.561 18.254,2.5463 18.2167,2.519 18.2069,2.4877 18.2068,2.4552 18.2032,2.4134 18.1864,2.3859 18.142,2.3249 18.1067,2.2994 18.0901,2.278 18.0716,2.2202 18.0549,2.0646 18.0523,2.0344 18.0452,1.873 18.0529,1.755 18.0577,1.7271 18.0585,1.6672 18.0557,1.5615 18.0501,1.5271 17.9589,1.2444 17.9326,1.1727 17.9188,1.1385 17.9055,1.1141 17.8791,1.0792 17.865,1.0518 17.8576,1.0289 17.8537,0.9915 17.8556,0.9694 17.8618,0.9323 17.8695,0.8983 17.8792,0.8623 17.8859,0.8282 17.8876,0.7954 17.8836,0.7416 17.8698,0.6869 17.875,0.5996 17.902,0.5571 17.9467,0.4746 17.9484,0.4526 17.9411,0.3994 17.9361,0.3695 17.926,0.3423 17.9113,0.3229 17.8927,0.3009 17.8532,0.2575 17.82,0.2186 17.7823,0.1435 17.7768,0.1193 17.7504,0.0185 17.7234,-0.0639 17.7062,-0.1144 17.6958,-0.1419 17.6904,-0.1738 17.6893,-0.2034 17.6902,-0.2266 17.6957,-0.2589 17.7169,-0.3164 17.7226,-0.3384 17.7262,-0.3759 17.7216,-0.4127 17.7165,-0.4489 17.7023,-0.5094 17.6923,-0.5438 17.6778,-0.574 17.6619,-0.6028 17.5988,-0.694 17.5387,-0.7626 17.5293,-0.7785 17.3783,-0.94 17.3036,-1.003 17.2793,-1.0192 17.2521,-1.0331 17.2295,-1.0382 17.1934,-1.0433 17.1401,-1.0528 17.1028,-1.067 16.9493,-1.1525 16.9276,-1.1721 16.8597,-1.2351 16.8431,-1.253 16.7826,-1.3227 16.7319,-1.4092 16.7199,-1.4316 16.7011,-1.4677 16.6923,-1.4872 16.6594,-1.5708 16.6529,-1.5893 16.6509,-1.597 16.6384,-1.6378 16.6089,-1.6842 16.585,-1.7224 16.5256,-1.8282 16.5143,-1.8511 16.51,-1.8601 16.4951,-1.88 16.4439,-1.935 16.389,-1.9857 16.3493,-2.0214 16.3191,-2.0464 16.2517,-2.0883 16.2259,-2.1106 16.1888,-2.1564 16.176,-2.1784 16.169,-2.2114 16.1659,-2.2433 16.1657,-2.3041 16.1681,-2.3562 16.1701,-2.3919 16.1975,-2.5243 16.1958,-2.699 16.1898,-2.7204 16.1847,-2.7497 16.1644,-2.8752 16.1639,-2.9084 16.1681,-2.9319 16.1694,-2.9386 16.1778,-2.9971 16.1751,-3.0923 16.1705,-3.1298 16.1786,-3.2602 16.2004,-3.2797 16.209,-3.2987 16.2086,-3.3243 16.2009,-3.3444 16.1691,-3.41 16.1103,-3.5175 16.0879,-3.5565 16.0662,-3.5836 16.0403,-3.6024 15.961,-3.7621 15.9064,-3.8804 15.8725,-3.9383 15.8624,-3.9463 15.8443,-3.9558 15.8181,-3.9673 15.7501,-3.9815 15.6744,-3.9907 15.5669,-4.0274 15.5467,-4.0345 15.5179,-4.0536 15.503,-4.0735 15.4987,-4.0917 15.4684,-4.1354 15.4658,-4.1483 15.4707,-4.1723 15.4683,-4.2126 15.4506,-4.2468 15.434,-4.268 15.3986,-4.2908 15.3738,-4.2853 15.3341,-4.2765 15.3153,-4.2733 15.3109,-4.2722 15.2669,-4.2907 15.2556,-4.3017 15.201,-4.329 15.1791,-4.3487 15.1323,-4.4186 15.1165,-4.4448 15.0753,-4.4969 15.0554,-4.5147 14.9984,-4.5542 14.9098,-4.6446 14.8941,-4.6641 14.8762,-4.6946 14.8584,-4.7324 14.8152,-4.8134 14.6896,-4.8869 14.6525,-4.9014 14.6223,-4.9015 14.5698,-4.8791 14.5461,-4.856 14.4718,-4.8352 14.4024,-4.8817 14.398,-4.8682 14.3955,-4.8216 14.4026,-4.751 14.3674,-4.6198 14.3511,-4.5499 14.3771,-4.5192 14.4008,-4.5088 14.4299,-4.4832 14.4604,-4.4512 14.4708,-4.4241 14.3895,-4.2779 14.3558,-4.2784 14.2853,-4.3032 13.9924,-4.4481 13.9445,-4.4896 13.8899,-4.4843 13.8346,-4.4341 13.7996,-4.4166 13.7674,-4.4188 13.7147,-4.4431 13.7134,-4.4713 13.7242,-4.5052 13.7254,-4.5307 13.724,-4.5568 13.6841,-4.7204 13.5849,-4.7761 13.5637,-4.7737 13.5283,-4.7477 13.4884,-4.7697 13.4996,-4.7878 13.397,-4.877 13.1781,-4.6764 13.1684,-4.6521 13.1608,-4.6254 13.1272,-4.5803 13.1046,-4.5681 13.0802,-4.5735 13.0731,-4.6142 13.0766,-4.6278 13.0779,-4.6408 13.0629,-4.6646 13.0276,-4.6631 12.8423,-4.7096 12.8059,-4.732 12.6978,-4.8723 12.6951,-4.9017 12.5928,-4.9923 12.5581,-5.0161 12.518,-5.11 12.5211,-5.2674 12.5125,-5.7176 12.4707,-5.7185 12.3532,-5.724 12.2608,-5.73 12.2161,-5.7484 12.2007,-5.762 12.2161,-5.7952 263,-5.0,Brazil -73.9185,-7.5474 -73.8905,-7.5657 -73.8489,-7.6005 -73.7823,-7.6666 -73.7687,-7.6909 -73.7588,-7.7085 -73.7384,-7.7227 -73.6687,-7.7479 -73.6412,-7.7556 -73.6238,-7.7676 -73.6107,-7.7943 -73.6154,-7.8372 -73.6426,-7.8704 -73.6939,-7.864 -73.6888,-7.9391 -73.6732,-7.9579 -73.627,-7.9746 -73.569,-8.0076 -73.513,-8.1122 -73.474,-8.2399 -73.4588,-8.2933 -73.4509,-8.3429 -73.3964,-8.3892 -73.3224,-8.441 -73.2638,-8.5924 -73.1915,-8.6645 -73.1592,-8.6695 -73.134,-8.6763 -73.1021,-8.69 -73.0851,-8.7044 -73.0709,-8.725 -73.0603,-8.7523 -73.0513,-8.7804 -73.0404,-8.7976 -72.9777,-8.8923 -72.9244,-8.9202 -72.8811,-8.9781 -72.87,-9.0357 -72.867,-9.0562 -72.8682,-9.0799 -72.8744,-9.1089 -72.8854,-9.1325 -72.9428,-9.2105 -73.0385,-9.3028 -73.077,-9.3338 -73.1018,-9.3545 -73.1197,-9.3902 -72.9001,-9.4002 -72.7814,-9.4013 -72.7602,-9.4008 -72.6497,-9.4025 -72.5266,-9.4355 -72.3222,-9.4727 -72.2916,-9.4817 -72.2219,-9.5222 -72.1729,-9.6461 -72.178,-9.6817 -72.1899,-9.7195 -72.1808,-9.7479 -72.1469,-9.7668 -72.1009,-9.7921 -72.0855,-9.8236 -72.0717,-9.8756 -72.0893,-9.9429 -72.1068,-9.9912 -72.0649,-9.9934 -71.9732,-9.9934 -71.9315,-9.9932 -71.9001,-9.9929 -71.8516,-9.9929 -71.5633,-9.9932 -71.3808,-9.9926 -71.29,-9.9923 -71.2184,-9.9841 -71.1025,-9.9209 -71.0808,-9.8789 -71.0606,-9.8524 -70.9358,-9.8096 -70.9071,-9.7856 -70.8914,-9.7528 -70.8038,-9.6588 -70.7657,-9.6346 -70.7011,-9.5947 -70.5653,-9.48 -70.5105,-9.4302 -70.4901,-9.4229 -70.4369,-9.4172 -70.4674,-9.4899 -70.4993,-9.5278 -70.5296,-9.5646 -70.5131,-9.6205 -70.5177,-9.7703 -70.5349,-9.7877 -70.548,-9.8149 -70.5512,-9.8847 -70.5513,-9.937 -70.5518,-10.0576 -70.5517,-10.1749 -70.5518,-10.3268 -70.5526,-10.5966 -70.5532,-10.7693 -70.554,-10.9007 -70.554,-10.9626 -70.5533,-10.9967 -70.504,-10.9586 -70.4487,-10.9234 -70.4216,-10.9409 -70.3934,-10.9687 -70.3792,-10.9891 -70.3588,-11.0143 -70.3248,-11.0328 -70.275,-11.0537 -70.2514,-11.0567 -70.149,-11.0401 -70.0977,-11.025 -70.0769,-11.0174 -69.9745,-10.9667 -69.9226,-10.9343 -69.8923,-10.9162 -69.8727,-10.9074 -69.8488,-10.9015 -69.7032,-10.9124 -69.6611,-10.9493 -69.6117,-10.9462 -69.5893,-10.941 -69.5095,-10.9378 -69.4909,-10.9381 -69.4637,-10.9398 -69.4103,-10.9385 -69.371,-10.9351 -69.3356,-10.9252 -69.1465,-10.9384 -68.9998,-10.9547 -68.7727,-11.0036 -68.6908,-11.1243 -68.6245,-11.1222 -68.5789,-11.1117 -68.5451,-11.1037 -68.5005,-11.0906 -68.4767,-11.0764 -68.4471,-11.0469 -68.327,-11.0053 -68.2687,-10.9945 -68.2376,-10.9842 -68.2054,-10.9673 -68.1551,-10.8994 -68.0497,-10.747 -68.0439,-10.7198 -68.0268,-10.6929 -68.0071,-10.6783 -67.986,-10.6644 -67.9428,-10.6481 -67.7913,-10.6449 -67.762,-10.647 -67.7429,-10.6532 -67.7126,-10.6719 -67.6678,-10.7008 -67.6286,-10.6825 -67.6005,-10.6078 -67.5354,-10.5182 -67.5082,-10.4924 -67.455,-10.4692 -67.4351,-10.461 -67.3755,-10.4297 -67.2527,-10.3471 -67.2492,-10.3119 -67.2262,-10.3049 -67.1515,-10.3002 -67.1093,-10.3119 -67.0033,-10.257 -66.9727,-10.232 -66.8974,-10.1607 -66.8767,-10.1397 -66.852,-10.1116 -66.8204,-10.08 -66.687,-9.9795 -66.6592,-9.9655 -66.6205,-9.9519 -66.5863,-9.9371 -66.5823,-9.9328 -66.8272,-9.8355 -70.1877,-4.3067 -70.4116,-4.169 -70.4196,-4.1749 -70.5039,-4.1906 -70.5454,-4.1558 -70.682,-4.1428 -70.7298,-4.1657 -70.7514,-4.1822 -70.7881,-4.2462 -70.7917,-4.2752 -70.8753,-4.377 -70.9558,-4.377 -70.984,-4.358 -71.0883,-4.3526 -71.2045,-4.376 -71.3008,-4.4256 -71.5689,-4.5036 -71.6447,-4.4879 -71.6654,-4.4852 -71.7999,-4.5056 -71.8203,-4.5128 -71.9458,-4.6071 -72.0468,-4.6881 -72.1525,-4.748 -72.1711,-4.756 -72.1967,-4.7582 -72.2184,-4.7514 -72.2427,-4.7552 -72.2925,-4.7787 -72.3068,-4.8 -72.3079,-4.8328 -72.3206,-4.8687 -72.3939,-4.9352 -72.5345,-5.0143 -72.6733,-5.0712 -72.7033,-5.0828 -72.7687,-5.1189 -72.8152,-5.1667 -72.8348,-5.3154 -72.878,-5.4461 -72.8809,-5.4709 -72.869,-5.5039 -72.8593,-5.5309 -72.8786,-5.6422 -72.9054,-5.7052 -72.9647,-5.7854 -72.9987,-5.8205 -73.0469,-5.8698 -73.1222,-6.0107 -73.1347,-6.0384 -73.1461,-6.0866 -73.142,-6.1143 -73.135,-6.1391 -73.0829,-6.2329 -73.0353,-6.3743 -73.0369,-6.4108 -73.0408,-6.4398 -73.0619,-6.4816 -73.0777,-6.508 -73.1027,-6.5397 -73.1332,-6.5592 -73.1932,-6.5674 -73.2154,-6.5667 -73.2518,-6.5669 -73.2776,-6.5743 -73.5041,-6.7272 -73.5929,-6.7968 -73.6603,-6.869 -73.6708,-6.8864 -73.7161,-7.0729 -73.7114,-7.1145 -73.6919,-7.129 -73.6367,-7.2147 -73.6223,-7.3008 -73.6547,-7.3254 -73.8476,-7.3506 -73.8471,-7.4343 -73.8788,-7.5188 -73.9037,-7.5202 -73.9185,-7.5218 -73.921,-7.5458 -73.9185,-7.5474 1614,-4.0,Brazil -70.3934,-4.1802 -70.1877,-4.3067 -66.8272,-9.8355 -66.5823,-9.9328 -66.5693,-9.9188 -66.5673,-9.907 -66.5572,-9.8946 -66.4725,-9.8768 -66.4063,-9.8704 -66.364,-9.8772 -66.3104,-9.8556 -66.1021,-9.786 -66.0049,-9.7646 -65.8994,-9.7685 -65.7716,-9.7668 -65.7199,-9.7639 -65.6734,-9.7596 -65.5337,-9.8238 -65.4973,-9.8238 -65.4438,-9.7629 -65.4401,-9.7302 -65.4202,-9.708 -65.3701,-9.6682 -65.3349,-9.6752 -65.3051,-9.6921 -65.2699,-9.7513 -65.2302,-9.831 -65.2508,-9.8922 -65.2646,-9.9359 -65.2588,-10.0323 -65.2415,-10.0637 -65.232,-10.0895 -65.217,-10.1837 -65.2174,-10.206 -65.2396,-10.2772 -65.2529,-10.2951 -65.2761,-10.3138 -65.3064,-10.3432 -65.317,-10.3606 -65.3241,-10.3816 -65.3194,-10.4018 -65.3303,-10.4304 -65.3702,-10.4617 -65.366,-10.6068 -65.3181,-10.7435 -65.257,-10.8397 -65.2439,-10.8686 -65.2306,-10.9729 -65.271,-11.0455 -65.3214,-11.1369 -65.3295,-11.1569 -65.3185,-11.2617 -65.2761,-11.3919 -65.2378,-11.481 -65.2173,-11.4921 -65.1692,-11.4928 -65.1506,-11.5057 -65.0972,-11.6014 -65.1158,-11.6431 -65.1285,-11.6724 -65.1365,-11.6983 -65.119,-11.7386 -65.0771,-11.7586 -65.046,-11.6856 -64.9898,-11.7414 -64.971,-11.7964 -64.9631,-11.8682 -64.9444,-11.9564 -64.9357,-11.9758 -64.9119,-11.9974 -64.8238,-12.0096 -64.7634,-12.0097 -64.7374,-12.0151 -64.7188,-12.028 -64.6909,-12.084 -64.6661,-12.1362 -64.5452,-12.197 -64.4442,-12.2284 -64.4246,-12.3521 -64.3489,-12.427 -64.3269,-12.4441 -64.3007,-12.4543 -64.2212,-12.4678 -64.1666,-12.4651 -64.1044,-12.4714 -63.9675,-12.5036 -63.9478,-12.5229 -63.8561,-12.5329 -63.8267,-12.5143 -63.7987,-12.4799 -63.7606,-12.46 -63.7256,-12.4458 -63.6002,-12.4563 -63.3998,-12.5561 -63.3929,-12.5815 -63.3441,-12.6397 -63.3232,-12.654 -63.2535,-12.6897 -63.1757,-12.6915 -63.1447,-12.6667 -63.0923,-12.6346 -63.0623,-12.6216 -62.9959,-12.6456 -62.9911,-12.6835 -62.9778,-12.7329 -62.9228,-12.8246 -62.9024,-12.8383 -62.8256,-12.8858 -62.7728,-12.9276 -62.6983,-12.9909 -62.6172,-12.954 -62.5747,-12.9924 -62.5743,-13.0176 -62.3482,-13.1178 -62.3138,-13.1308 -62.26,-13.1328 -62.1977,-13.1261 -62.1737,-13.1119 -62.1431,-13.1062 -62.0431,-13.1386 -62.039,-13.1684 -62.0148,-13.2564 -61.9318,-13.347 -61.9023,-13.3604 -61.8736,-13.3808 -61.8035,-13.4386 -61.7977,-13.4656 -61.7693,-13.5232 -61.7391,-13.5333 -61.6592,-13.5217 -61.5457,-13.4976 -61.5228,-13.4918 -61.5069,-13.5105 -61.4506,-13.5352 -61.4221,-13.538 -61.1913,-13.5077 -60.9692,-13.4778 -60.9341,-13.5254 -60.8877,-13.5675 -60.7215,-13.6639 -60.7009,-13.6679 -60.6746,-13.6668 -60.6055,-13.7229 -60.5135,-13.7529 -60.4071,-13.7879 -60.3147,-13.9715 -60.3306,-14.0139 -60.3558,-14.0512 -60.3948,-14.086 -60.4118,-14.1518 -60.3801,-14.2749 -60.3568,-14.3082 -60.2758,-14.4669 -60.2102,-14.6067 -60.2052,-14.69 -60.1931,-14.8967 -60.1885,-15.0197 -60.1872,-15.0765 -60.2207,-15.0774 -60.3129,-15.0753 -60.4993,-15.0805 -60.3677,-15.224 -60.1553,-15.4609 -60.1121,-15.9624 -60.0878,-16.2445 -60.0346,-16.2473 -59.9333,-16.2517 -59.4613,-16.2707 -59.4183,-16.2723 -58.902,-16.2924 -58.4715,-16.3082 -58.3688,-16.3114 -58.3449,-16.3014 -58.3304,-16.2873 -58.3188,-16.2646 -58.2573,-16.2608 -58.2557,-16.2881 -58.2544,-16.3777 -58.2763,-16.4873 -58.2917,-16.507 -58.3273,-16.5345 -58.3489,-16.5547 -58.3613,-16.5712 -58.3976,-16.6252 -58.4054,-16.6558 -58.4058,-16.7026 -58.3928,-16.8814 -58.3883,-16.9053 -58.3746,-16.9334 -58.3645,-16.9516 -58.354,-16.9906 -58.3367,-17.0928 -58.3361,-17.119 -58.3388,-17.1712 -58.3325,-17.207 -58.3197,-17.2402 -58.3004,-17.2593 -58.2807,-17.2675 -58.2513,-17.2734 -58.2241,-17.2803 -58.1796,-17.3067 -58.0501,-17.3931 -58.0386,-17.4193 -58.0215,-17.4357 -57.9463,-17.4779 -57.9132,-17.4807 -57.8315,-17.4423 -57.8108,-17.4572 -57.7179,-17.5336 -57.6756,-17.574 -57.6957,-17.5928 -57.7095,-17.6177 -57.6893,-17.667 -57.6593,-17.7007 -57.6475,-17.7077 -57.6482,-17.7185 -57.6511,-17.7547 -57.6487,-17.8249 -57.5118,-18.0755 -57.4514,-18.1835 -57.4824,-18.2263 -57.4933,-18.2542 -57.5569,-18.4473 -57.6998,-18.8849 -57.6529,-18.8924 -57.6466,-18.9132 -57.6343,-19.022 -57.7065,-19.0258 -57.7167,-19.0465 -57.751,-19.1154 -57.7846,-19.1848 -57.8901,-19.3992 -58.0165,-19.655 -58.0502,-19.7191 -58.0324,-19.738 -57.7812,-19.9529 -57.8305,-20.0065 -58.039,-20.1265 -58.0879,-20.1452 -58.0851,-20.2059 -58.066,-20.256 -58.0263,-20.3184 -57.9882,-20.3782 -57.9381,-20.4904 -57.9251,-20.5948 -57.897,-20.6867 -57.8651,-20.6483 -57.8382,-20.6532 -57.7887,-20.7112 -57.7858,-20.8149 -57.7437,-20.9551 -57.7817,-21.3174 -57.8081,-21.3563 -57.8445,-21.405 -57.8614,-21.4373 -57.8831,-21.4898 -57.8665,-21.6121 -57.8551,-21.6321 -57.8645,-21.7475 -57.8918,-21.9474 -57.9126,-22.0009 -57.9155,-22.0358 -57.9134,-22.0669 -57.8573,-22.0927 -57.8206,-22.1042 -57.7536,-22.1191 -57.7205,-22.1043 -57.6963,-22.0882 -57.5687,-22.0963 -57.5382,-22.15 -57.3037,-22.1927 -57.2611,-22.1931 -57.1687,-22.1874 -57.1271,-22.182 -57.0827,-22.1787 -56.9184,-22.2077 -56.8072,-22.2489 -56.7383,-22.2396 -56.6992,-22.2228 -56.688,-22.2162 -56.6279,-22.1911 -56.6079,-22.2086 -56.5643,-22.2268 -56.5042,-22.1644 -56.4862,-22.1417 -56.4763,-22.1194 -56.4565,-22.0905 -56.4256,-22.0635 -56.3871,-22.0509 -56.3269,-22.0437 -56.3013,-22.1012 -56.2912,-22.1328 -56.2597,-22.1616 -56.2395,-22.1781 -56.1336,-22.2496 -56.0988,-22.2588 -56.0163,-22.2669 -55.9773,-22.2532 -55.9197,-22.2481 -55.7808,-22.2638 -55.6755,-22.3724 -55.6721,-22.395 -55.6719,-22.4284 -55.6708,-22.4526 -55.6652,-22.5009 -55.6581,-22.5209 -55.6404,-22.5484 -55.6208,-22.5658 -55.5952,-22.5816 -55.5573,-22.5952 -55.5404,-22.6131 -55.5409,-22.7086 -55.5637,-22.7517 -55.5792,-22.7893 -55.576,-22.8323 -55.5374,-22.9943 -55.5146,-23.0593 -55.4802,-23.1112 -55.4803,-23.2809 -55.4743,-23.3069 -55.433,-23.3535 -55.4657,-23.4327 -55.4515,-23.5787 -55.4357,-23.5976 -55.4157,-23.6114 -55.3935,-23.6349 -55.3729,-23.6758 -55.3637,-23.7236 -55.3583,-23.776 -55.3512,-23.8513 -55.3509,-23.8977 -55.3425,-23.9273 -55.3273,-23.9439 -55.3019,-23.9575 -55.2779,-23.9656 -55.1273,-23.9924 -55.1056,-23.9934 -55.0812,-23.9893 -54.9623,-23.9673 -54.8559,-23.9384 -54.8339,-23.922 -54.8127,-23.8941 -54.5574,-23.7779 -54.4712,-23.8206 -54.3391,-23.8898 -54.2203,-23.993 -54.1882,-24.0171 -54.1584,-23.9958 -54.0908,-23.9637 -54.0712,-23.9227 -54.0676,-23.8693 -54.064,-23.807 -54.0533,-23.7517 -54.0355,-23.7232 -54.0338,-23.7001 -54.0035,-23.6181 -54.007,-23.5879 -53.9892,-23.5505 -53.9857,-23.5148 -53.9732,-23.4899 -53.9732,-23.4685 -53.9643,-23.44 -53.9251,-23.4132 -53.8806,-23.4097 -53.8271,-23.3741 -53.7737,-23.3491 -53.7309,-23.3153 -53.6989,-23.2618 -53.6989,-23.2244 -53.6721,-23.171 -53.6365,-23.1104 -53.6347,-23.0695 -53.6365,-23.0036 -53.6205,-22.984 -53.5831,-22.9002 -53.5546,-22.8717 -53.4922,-22.8361 -53.3497,-22.7791 -53.1546,-22.7039 -53.0768,-22.5915 -53.0011,-22.5244 -52.893,-22.4531 -52.7827,-22.3774 -52.6767,-22.3039 -52.5124,-22.226 -52.4064,-22.146 -52.3394,-22.0465 -52.294,-21.9622 -52.2399,-21.919 -52.1707,-21.8541 -52.1707,-21.8303 -52.1448,-21.7784 -52.0756,-21.7308 -52.0474,-21.7113 -52.0518,-21.6919 -52.0366,-21.653 -52.0518,-21.6357 -52.0712,-21.5773 -52.0929,-21.5643 -52.0842,-21.5405 -52.0518,-21.5016 -51.9999,-21.5081 -51.9653,-21.4951 -51.9134,-21.4064 -51.8723,-21.3545 -51.8485,-21.268 -51.8723,-21.1967 -51.8615,-21.1361 -51.8031,-21.1015 -51.775,-21.0604 -51.7425,-20.9977 -51.7079,-20.9696 -51.6301,-20.8918 -51.6301,-20.8225 -51.6214,-20.7425 -51.6084,-20.6841 -51.5782,-20.5955 -51.5133,-20.5803 -51.4614,-20.5371 -51.3943,-20.4484 -51.3338,-20.3706 -51.2321,-20.3014 -51.1781,-20.3057 -51.1002,-20.2733 -51.0591,-20.256 -51.0332,-20.2257 -51.0224,-20.1543 -51.0072,-20.0916 -51.0072,-20.044 -50.9878,-20.0051 -50.9964,-19.9532 -50.9834,-19.9056 -51.0051,-19.8602 -51.0072,-19.8126 -51.0224,-19.7672 -51.0202,-19.7045 -50.9921,-19.6396 -50.9791,-19.5683 -50.9488,-19.5726 -50.9337,-19.5488 -50.9618,-19.5012 -50.9575,-19.4645 -50.9232,-19.4584 -50.9408,-19.4145 -51.0088,-19.375 -51.1294,-19.2807 -51.1755,-19.2939 -51.2238,-19.2653 -51.2852,-19.2675 -51.3466,-19.2215 -51.4212,-19.16 -51.5485,-19.1381 -51.6625,-19.1271 -51.7942,-19.0657 -51.8359,-19.0547 -51.8775,-18.9998 -51.9412,-18.9757 -51.9938,-18.9757 -52.0662,-18.9362 -52.1167,-18.8726 -52.268,-18.8134 -52.3338,-18.8222 -52.4786,-18.7081 -52.641,-18.7212 -52.7594,-18.7081 -52.8911,-18.6664 -52.8296,-18.5194 -52.7529,-18.4119 -52.9064,-18.3439 -52.9964,-18.3922 -53.0578,-18.3066 -53.0403,-18.1289 -53.0556,-18.0148 -53.1148,-17.8898 -53.1241,-17.8051 -53.117,-17.7587 -53.128,-17.7114 -53.1264,-17.6721 -53.1375,-17.654 -53.1706,-17.5957 -53.1918,-17.5784 -53.1973,-17.5571 -53.2186,-17.5366 -53.2257,-17.5091 -53.2241,-17.4768 -53.2194,-17.4287 -53.2005,-17.3831 -53.1911,-17.3689 -53.195,-17.3405 -53.1958,-17.3201 -53.2045,-17.2988 -53.1824,-17.2452 -53.1541,-17.2248 -53.1509,-17.2043 -53.1226,-17.1578 -53.0966,-17.1334 -53.0839,-17.0987 -53.0595,-17.079 -53.0516,-17.0632 -53.0414,-17.0569 -53.0343,-17.0152 -53.039,-17.0002 -53.0115,-16.8908 -53.0146,-16.8671 -52.9697,-16.8199 -52.8918,-16.7852 -52.8272,-16.7592 -52.7138,-16.6529 -52.6933,-16.5781 -52.6374,-16.5395 -52.624,-16.4521 -52.6099,-16.4001 -52.5752,-16.3379 -52.5343,-16.3016 -52.4957,-16.2851 -52.4587,-16.2835 -52.4366,-16.2725 -52.4264,-16.2315 -52.4437,-16.2134 -52.4484,-16.1874 -52.4539,-16.1481 -52.4405,-16.0953 -52.4106,-16.0748 -52.3783,-16.0646 -52.3587,-16.0488 -52.3461,-16.0504 -52.3311,-16.0449 -52.3035,-15.9866 -52.2838,-15.9583 -52.2681,-15.948 -52.2547,-15.9236 -52.2413,-15.8779 -52.2201,-15.8787 -52.1893,-15.8724 -52.1563,-15.8748 -52.1216,-15.8795 -52.0822,-15.8716 -52.0499,-15.8771 -52.0294,-15.8732 -52.0208,-15.8614 -52.0019,-15.8559 -51.9924,-15.8386 -51.9767,-15.8338 -51.9704,-15.8094 -51.9617,-15.8 -51.9389,-15.8 -51.9074,-15.822 -51.8759,-15.8015 -51.8609,-15.7653 -51.8302,-15.7259 -51.8042,-15.6621 -51.783,-15.6362 -51.7742,-15.6038 -51.7789,-15.581 -51.7915,-15.544 -51.7845,-15.5314 -51.7624,-15.5416 -51.7467,-15.5353 -51.7388,-15.5022 -51.7152,-15.4936 -51.7018,-15.481 -51.7002,-15.4542 -51.6963,-15.4101 -51.686,-15.3936 -51.6742,-15.3565 -51.6844,-15.3337 -51.6718,-15.2872 -51.6506,-15.2762 -51.6466,-15.2589 -51.6641,-15.232 -51.6373,-15.1745 -51.6089,-15.1627 -51.583,-15.1501 -51.5672,-15.1226 -51.5452,-15.1115 -51.5263,-15.0753 -51.5144,-15.0564 -51.4664,-15.0477 -51.4357,-15.0194 -51.4129,-14.9973 -51.3877,-14.995 -51.353,-14.9895 -51.3278,-14.9627 -51.3097,-14.9666 -51.3034,-14.991 -51.2963,-15.0162 -51.2625,-15.0233 -51.2239,-14.9973 -51.1924,-14.9808 -51.1601,-14.9769 -51.1381,-14.9162 -51.1058,-14.8965 -51.0963,-14.8839 -51.0947,-14.8327 -51.0719,-14.806 -51.06,-14.7863 -51.0663,-14.7351 -51.0419,-14.7044 -51.0372,-14.6548 -51.0136,-14.6351 -50.9868,-14.5744 -50.9868,-14.554 -50.9679,-14.5335 -50.9687,-14.5004 -50.9671,-14.4799 -50.9876,-14.439 -51.0009,-14.4059 -50.9931,-14.3862 -50.9899,-14.3469 -50.971,-14.3225 -50.9742,-14.2917 -50.9624,-14.2311 -50.9372,-14.1917 -50.9175,-14.1586 -50.9167,-14.1453 -50.9261,-14.1224 -50.9214,-14.113 -50.9025,-14.1177 -50.8757,-14.1114 -50.8474,-14.0925 -50.8427,-14.0673 -50.8592,-14.0452 -50.8568,-14.0043 -50.8671,-13.9665 -50.8553,-13.9358 -50.8466,-13.9027 -50.8435,-13.8712 -50.8608,-13.8145 -50.86,-13.7491 -50.8711,-13.7176 -50.8262,-13.7019 -50.7884,-13.6672 -50.7805,-13.6334 -50.7647,-13.5932 -50.764,-13.5664 -50.7592,-13.5404 -50.7387,-13.5152 -50.719,-13.4979 -50.6915,-13.4593 -50.6694,-13.4467 -50.6631,-13.4286 -50.6639,-13.3948 -50.6017,-13.3137 -50.5812,-13.2711 -50.567,-13.2215 -50.5828,-13.1939 -50.5796,-13.1585 -50.5725,-13.1286 -50.578,-13.0994 -50.5906,-13.079 -50.5757,-13.0632 -50.5489,-13.0506 -50.5536,-13.0317 -50.567,-13.0254 -50.5662,-13.0152 -50.5143,-12.9845 -50.4954,-12.9333 -50.4765,-12.875 -50.4812,-12.8428 -50.5315,-12.846 -50.5688,-12.8265 -50.5574,-12.8022 -50.5818,-12.8022 -50.6012,-12.8103 -50.598,-12.7795 -50.6126,-12.7649 -50.6093,-12.7455 -50.6223,-12.6919 -50.6239,-12.6562 -50.6677,-12.6433 -50.6742,-12.6206 -50.6694,-12.6011 -50.658,-12.6076 -50.6531,-12.5768 -50.6417,-12.5281 -50.6336,-12.4762 -50.6369,-12.4519 -50.6174,-12.447 -50.6109,-12.4308 -50.6158,-12.3903 -50.6304,-12.3189 -50.6174,-12.2881 -50.632,-12.2686 -50.6417,-12.2297 -50.6596,-12.2281 -50.6742,-12.2005 -50.6742,-12.0837 -50.6823,-12.0529 -50.6823,-11.9978 -50.658,-11.9799 -50.6531,-11.9507 -50.6677,-11.9394 -50.6645,-11.9199 -50.645,-11.915 -50.645,-11.8794 -50.6791,-11.8729 -50.6758,-11.8372 -50.6936,-11.8097 -50.692,-11.7756 -50.7131,-11.7513 -50.7099,-11.714 -50.6596,-11.6702 -50.6482,-11.6021 -50.6596,-11.5842 -50.7147,-11.5599 -50.7212,-11.5404 -50.7374,-11.5226 -50.7439,-11.4918 -50.7423,-11.4658 -50.7261,-11.4026 -50.6953,-11.3004 -50.6758,-11.2647 -50.658,-11.2404 -50.6564,-11.2225 -50.6693,-11.1593 -50.6434,-11.1009 -50.6223,-11.0912 -50.6093,-11.0668 -50.6126,-11.0247 -50.6207,-11.0149 -50.6207,-10.989 -50.6385,-10.9436 -50.6369,-10.9225 -50.611,-10.8803 -50.6288,-10.8333 -50.6207,-10.8073 -50.598,-10.7911 -50.5834,-10.7538 -50.5866,-10.7084 -50.6077,-10.6581 -50.5915,-10.6452 -50.5769,-10.6176 -50.5493,-10.6095 -50.5412,-10.5884 -50.5282,-10.5706 -50.5218,-10.5284 -50.5039,-10.4992 -50.4958,-10.4489 -50.4812,-10.3889 -50.4325,-10.3662 -50.4196,-10.337 -50.405,-10.2754 -50.3904,-10.2283 -50.3936,-10.1521 -50.3774,-10.1051 -50.3352,-10.0661 -50.2901,-9.9967 -50.2901,-9.962 -50.2727,-9.903 -50.2324,-9.8458 -51.3471,-9.7876 -52.1618,-9.7447 -52.6334,-9.7171 -52.6273,-9.6957 -52.6211,-9.662 -52.6089,-9.6467 -52.5936,-9.6467 -52.5783,-9.5916 -52.5384,-9.5793 -52.5017,-9.5946 -52.4803,-9.5916 -52.4435,-9.613 -52.4037,-9.6345 -52.3271,-9.6436 -52.2843,-9.6559 -52.2353,-9.6467 -52.1893,-9.6008 -52.1954,-9.5732 -52.174,-9.515 -52.1709,-9.4538 -52.1495,-9.4293 -52.125,-9.4139 -52.1127,-9.3772 -52.0913,-9.3404 -52.0117,-9.2669 -52.0239,-9.2394 -52.0454,-9.221 -52.0484,-9.1873 -52.076,-9.1444 -52.0362,-9.074 -52.0576,-8.9974 -52.0882,-8.9729 -52.0974,-8.9209 -52.1648,-8.8872 -52.2076,-8.8382 -52.2811,-8.8075 -52.2689,-8.7095 -52.3056,-8.6881 -52.3087,-8.636 -52.3822,-8.5779 -52.4373,-8.5625 -52.4955,-8.5625 -52.5629,-8.5411 -52.5782,-8.4921 -52.615,-8.4523 -52.6732,-8.4339 -52.6456,-8.3359 -52.6517,-8.2257 -52.6762,-8.2073 -52.713,-8.1185 -52.7344,-8.0327 -52.7926,-7.9378 -52.811,-7.8643 -52.814,-7.8367 -52.7865,-7.8152 -52.7803,-7.7478 -52.7558,-7.6437 -52.7068,-7.5763 -52.6732,-7.5733 -52.6487,-7.5457 -52.6732,-7.5212 -52.6946,-7.4875 -52.6946,-7.4355 -52.6088,-7.3344 -52.5874,-7.316 -52.5813,-7.267 -52.5874,-7.2272 -52.5782,-7.1813 -52.5323,-7.1139 -52.5047,-7.1139 -52.4618,-7.0833 -52.4465,-7.0067 -52.4006,-6.9761 -52.3271,-6.9546 -52.2352,-6.9516 -52.1801,-6.9546 -52.0821,-6.924 -52.0025,-6.8199 -52.0025,-6.7831 -51.9871,-6.7127 -52.0086,-6.6606 -52.0362,-6.627 -52.0904,-6.5617 -52.1768,-6.5833 -52.2416,-6.5761 -52.2632,-6.5113 -52.3568,-6.3889 -52.4288,-6.3601 -52.4216,-6.2017 -52.5224,-6.0721 -52.5296,-5.8777 -52.6304,-5.7049 -52.6952,-5.4745 -52.8536,-5.4025 -52.8824,-5.1937 -52.9328,-5.0209 -52.8248,-4.8841 -52.8176,-4.8049 -52.724,-4.6825 -52.6592,-4.4449 -52.7528,-4.3873 -52.724,-4.2433 -52.6232,-4.1569 -52.6016,-3.9697 -52.6016,-3.8617 -52.4648,-3.7609 -52.3513,-3.666 -52.314,-3.5779 -52.2327,-3.5101 -52.2225,-3.4322 -52.1853,-3.4322 -52.1548,-3.3441 -52.1683,-3.2527 -52.1345,-3.2324 -52.0904,-3.2764 -52.0464,-3.2899 -52.0362,-3.334 -51.982,-3.3746 -51.9414,-3.4187 -51.9515,-3.5101 -51.921,-3.5576 -51.8397,-3.6084 -51.7381,-3.5406 -51.6771,-3.4559 -51.7076,-3.395 -51.7483,-3.3577 -51.6975,-3.3374 -51.6297,-3.273 -51.6229,-3.2086 -51.6162,-3.1443 -51.7212,-3.1104 -51.8126,-3.0867 -51.8364,-3.0393 -51.877,-2.958 -51.9448,-2.8699 -52.0227,-2.8089 -52.0362,-2.6971 -51.9888,-2.6429 -52.0053,-2.5386 -52.1324,-2.3085 -52.2354,-2.036 -52.2838,-1.7089 -52.2912,-1.5424 -52.463,-1.5712 -52.6476,-1.6011 -52.6506,-1.5637 -52.5783,-1.5332 -52.5515,-1.5254 -52.5111,-1.5267 -52.4087,-1.48 -52.385,-1.4453 -52.1688,-1.3432 -52.1269,-1.3526 -52.1058,-1.373 -52.0798,-1.3975 -51.9386,-1.3395 -51.9053,-1.1517 -51.9793,-1.1353 -51.9898,-1.1588 -52.0072,-1.1684 -52.0273,-1.1649 -52.0552,-1.178 -52.0517,-1.2068 -52.0613,-1.2173 -52.0822,-1.2129 -52.0927,-1.1754 -52.111,-1.158 -52.1371,-1.1519 -52.2121,-1.1475 -52.2557,-1.1414 -52.2845,-1.1205 -52.3185,-1.0847 -52.3481,-1.0734 -52.3673,-1.0664 -52.3708,-1.0464 -52.3769,-1.0281 -52.3769,-0.9984 -52.3943,-0.9679 -52.3821,-0.9444 -52.3682,-0.9243 -52.3716,-0.9016 -52.3917,-0.8746 -52.4231,-0.8598 -52.451,-0.8668 -52.5085,-0.8824 -52.5216,-0.8694 -52.5103,-0.8293 -52.5207,-0.7987 -52.5146,-0.7796 -52.5059,-0.7386 -52.5225,-0.6941 -52.5216,-0.661 -52.5303,-0.6357 -52.5469,-0.6165 -52.5739,-0.6165 -52.6018,-0.6139 -52.6149,-0.5991 -52.6298,-0.5669 -52.6376,-0.5355 -52.6359,-0.5067 -52.6271,-0.4901 -52.6263,-0.3968 -52.6324,-0.3803 -52.6603,-0.3646 -52.6856,-0.3488 -52.6917,-0.3183 -52.7083,-0.2913 -52.7405,-0.2573 -52.7867,-0.2207 -52.7893,-0.2015 -52.8094,-0.1849 -52.8199,-0.1753 -52.8713,-0.2041 -52.9245,-0.1884 -52.9315,-0.157 -52.9437,-0.1353 -52.955,-0.0934 -52.9698,-0.0472 -52.9716,-0.015 -52.9829,-0.0071 -53.0047,0.0129 -53.0161,0.0347 -53.0161,0.0565 -53.0082,0.0914 -53.0056,0.1141 -53.0099,0.1489 -53.023,0.1768 -53.0335,0.2012 -53.0387,0.2248 -53.0466,0.2579 -53.0736,0.2754 -53.091,0.2972 -53.1041,0.3373 -53.1268,0.3826 -53.132,0.4 -53.1294,0.4707 -53.1407,0.5291 -53.1294,0.5788 -53.1294,0.6163 -53.1102,0.6825 -53.111,0.7069 -53.1163,0.7427 -53.1294,0.7505 -53.2139,0.7662 -53.2741,0.7854 -53.3099,0.8159 -53.3299,0.8464 -53.3526,0.8891 -53.3875,0.91 -53.3962,0.924 -53.4188,0.9379 -53.4249,0.9981 -53.4415,1.0155 -53.4311,1.0426 -53.4607,1.0993 -53.4668,1.1403 -53.4616,1.169 -53.4389,1.1708 -53.4119,1.1777 -53.4058,1.1873 -53.4101,1.2039 -53.4215,1.2135 -53.4284,1.2475 -53.445,1.2649 -53.4973,1.2545 -53.5357,1.2414 -53.5505,1.244 -53.5496,1.2562 -53.5418,1.2763 -53.5427,1.2911 -53.5636,1.3094 -53.5645,1.3242 -53.5636,1.3338 -53.5479,1.3469 -53.5549,1.3687 -53.5758,1.3643 -53.5906,1.373 -53.6054,1.3757 -53.6325,1.3704 -53.6525,1.3608 -53.6612,1.3678 -53.663,1.3861 -53.6595,1.414 -53.6639,1.4297 -53.6761,1.4297 -53.69,1.4114 -53.7118,1.4132 -53.7266,1.4227 -53.7118,1.4288 -53.7136,1.4367 -53.7301,1.4393 -53.7423,1.4341 -53.7406,1.4123 -53.7537,1.3905 -53.7676,1.3966 -53.7763,1.4123 -53.8042,1.4079 -53.8201,1.4135 -53.8211,1.4138 -53.8263,1.3853 -53.8635,1.3853 -53.8521,1.4024 -53.8978,1.4024 -53.8892,1.4224 -53.9169,1.4474 -53.9178,1.4482 -53.9321,1.4625 -53.9521,1.4853 -53.975,1.4911 -53.9779,1.5196 -54.0151,1.5196 -54.0379,1.5054 -54.067,1.5009 -54.0688,1.5006 -54.0751,1.4996 -54.0791,1.5042 -54.08,1.5053 -54.0923,1.5196 -54.0808,1.5482 -54.1123,1.5797 -54.0951,1.6083 -54.1294,1.6111 -54.178,1.6683 -54.1895,1.6455 -54.2867,1.7227 -54.3668,1.7627 -54.4983,1.7513 -54.5898,1.7856 -54.6899,1.7627 -54.7429,1.7613 -54.7628,1.9868 -54.8092,2.0133 -54.7429,2.0863 -54.796,2.1791 -54.7495,2.199 -54.7031,2.2985 -54.7363,2.3913 -54.7615,2.4346 -54.7857,2.4333 -54.8071,2.4392 -54.9075,2.5479 -55.0298,2.5321 -55.0497,2.5243 -55.4407,2.4361 -55.6508,2.3977 -55.801,2.4687 -55.8231,2.4943 -55.8545,2.5178 -55.8786,2.5277 -55.8994,2.5302 -55.9193,2.5193 -55.9372,2.4482 -56.0213,2.3551 -56.0527,2.2469 -55.9731,2.2066 -55.8408,2.0455 -55.8388,1.8991 -55.8795,1.8541 -55.9027,1.8433 -55.933,1.8357 -55.9646,1.8343 -56.0051,1.8437 -56.05,1.8618 -56.1385,1.8896 -56.2634,1.9233 -56.3628,1.932 -56.407,1.9424 -56.462,1.9204 -56.5141,1.9196 -56.5311,1.93 -56.5646,1.9374 -56.6709,1.9119 -56.688,1.895 -56.7066,1.8735 -56.8097,1.8898 -56.9395,1.9209 -56.9865,1.95 -56.9966,1.9821 -57.0101,2.0135 -57.0357,2.0207 -57.0986,1.9945 -57.1346,1.9692 -57.1708,1.9476 -57.2122,1.9772 -57.2337,1.9799 -57.2672,1.9701 -57.3608,1.8992 -57.3632,1.8694 -57.3863,1.8092 -57.4478,1.729 -57.4633,1.7139 -57.4945,1.6981 -57.5685,1.6911 -57.5886,1.695 -57.6226,1.7058 -57.6575,1.7155 -57.6946,1.716 -57.8108,1.6633 -57.9071,1.6118 -57.9175,1.5706 -57.9418,1.5139 -58.0623,1.5161 -58.2027,1.5688 -58.2316,1.5811 -58.3217,1.4763 -58.4364,1.453 -58.4035,1.3571 -58.4018,1.3362 -58.4094,1.3128 -58.4539,1.2684 -58.5067,1.2738 -58.6271,1.2833 -58.643,1.2614 -58.6569,1.231 -58.6857,1.2083 -58.7447,1.1857 -58.7704,1.1889 -58.8036,1.2038 -58.8323,1.2298 -58.8311,1.2606 -58.8588,1.298 -58.8913,1.3132 -58.9065,1.3183 -59.0382,1.3433 -59.1773,1.385 -59.3476,1.5615 -59.4165,1.6487 -59.4404,1.6856 -59.5385,1.7177 -59.5788,1.7332 -59.6083,1.7652 -59.5863,1.8003 -59.5653,1.8403 -59.659,1.8522 -59.6816,1.8596 -59.6889,1.907 -59.6762,2.0705 -59.6596,2.2388 -59.6683,2.2821 -59.7256,2.2953 -59.7824,2.3279 -59.8257,2.3614 -59.834,2.3819 -59.8212,2.4046 -59.8251,2.4516 -59.8581,2.5648 -59.8866,2.6135 -59.9208,2.6852 -59.915,2.8571 -59.9109,2.8959 -59.8951,3.0227 -59.8818,3.0687 -59.8368,3.2005 -59.8021,3.2727 -59.7882,3.2943 -59.7677,3.3185 -59.743,3.3559 -59.7467,3.495 -59.7639,3.5205 -59.7182,3.6165 -59.5976,3.7074 -59.5008,3.895 -59.514,3.9946 -59.6407,4.1662 -59.6542,4.1868 -59.6629,4.2147 -59.6629,4.2888 -59.6071,4.3684 -59.6064,4.3804 -59.6489,4.4094 -59.7228,4.4514 -59.8734,4.5031 -59.8993,4.4968 -59.9769,4.4891 -60.062,4.5049 -60.0797,4.5151 -60.0834,4.5685 -60.0552,4.5915 -60.0227,4.5955 -60.0033,4.6132 -59.9572,4.7019 -59.9518,4.7292 -59.9373,4.8316 -59.9145,5.017 -59.9453,5.1042 -60.0122,5.1558 -60.0132,5.1672 -60.0296,5.2113 -60.0457,5.2398 -60.1333,5.2667 -60.1809,5.2526 -60.1994,5.2296 -60.2488,5.1918 -60.4771,5.1858 -60.5043,5.1915 -60.5282,5.2064 -60.6198,5.2102 -60.661,5.1991 -60.6416,5.1973 -60.6155,5.1914 -60.5859,5.1758 -60.5747,5.1531 -60.5129,4.983 -60.5092,4.9471 -60.523,4.9195 -60.5797,4.8374 -60.6063,4.8087 -60.6509,4.7707 -60.7692,4.7132 -60.7973,4.7082 -60.8168,4.7044 -60.8551,4.6328 -60.8604,4.5868 -60.8822,4.552 -60.8987,4.5335 -60.9175,4.5142 -60.9829,4.5028 -61.094,4.4895 -61.2436,4.5018 -61.4222,4.4017 -61.4372,4.3859 -61.4425,4.357 -61.4372,4.3227 -61.4407,4.2986 -61.4541,4.27 -61.4842,4.244 -61.5549,4.2397 -61.5924,4.2505 -61.629,4.2544 -61.6925,4.2383 -61.7202,4.2112 -61.741,4.1801 -61.7785,4.1561 -61.8443,4.1423 -61.8815,4.1524 -61.9168,4.165 -61.9827,4.1454 -62.0087,4.1205 -62.0341,4.0995 -62.0719,4.0889 -62.1103,4.0952 -62.1499,4.1081 -62.1916,4.1225 -62.2106,4.1317 -62.25,4.148 -62.3211,4.1748 -62.3691,4.178 -62.4686,4.1077 -62.5328,4.0376 -62.5985,4.0425 -62.657,4.0341 -62.6862,4.0159 -62.709,3.9043 -62.7059,3.8781 -62.6869,3.8304 -62.6688,3.7865 -62.6562,3.7272 -62.6559,3.7013 -62.6627,3.6726 -62.6802,3.6345 -62.7101,3.6002 -62.8069,3.5562 -62.8318,3.5591 -62.8522,3.5632 -62.919,3.6002 -63.0925,3.7911 -63.1705,3.8937 -63.2221,3.9352 -63.2635,3.9538 -63.2872,3.9613 -63.3104,3.9663 -63.3469,3.9627 -63.3615,3.9374 -63.3668,3.9108 -63.3734,3.8859 -63.3862,3.8621 -63.4192,3.8537 -63.4578,3.8631 -63.4757,3.8765 -63.5012,3.9053 -63.5167,3.9241 -63.542,3.9404 -63.572,3.9441 -63.7754,3.9547 -63.8362,3.9287 -63.8678,3.9005 -63.8836,3.887 -63.9216,3.8788 -63.9451,3.8819 -63.98,3.9042 -63.9919,3.9508 -64.0147,4.0282 -64.0361,4.0783 -64.0535,4.1049 -64.148,4.1365 -64.1759,4.1436 -64.2624,4.1496 -64.3064,4.1489 -64.3289,4.1447 -64.3571,4.1353 -64.3941,4.1295 -64.4793,4.1177 -64.5185,4.1231 -64.5343,4.1406 -64.5684,4.2191 -64.5784,4.2347 -64.6012,4.2528 -64.6192,4.2624 -64.6506,4.2766 -64.6723,4.2827 -64.7078,4.2815 -64.726,4.2603 -64.7283,4.2061 -64.7121,4.1811 -64.6603,4.1565 -64.6396,4.1395 -64.6311,4.1142 -64.6208,4.0776 -64.5875,4.0122 -64.5686,3.9799 -64.5531,3.9612 -64.4446,3.8501 -64.3731,3.783 -64.3323,3.7632 -64.2926,3.7466 -64.2352,3.7142 -64.1172,3.5857 -64.1095,3.5456 -64.112,3.524 -64.1208,3.4974 -64.1517,3.4633 -64.163,3.4291 -64.1538,3.3338 -64.1325,3.1898 -64.0864,3.0575 -64.0734,3.0365 -64.0164,2.9376 -63.9622,2.8298 -63.9155,2.7157 -63.9232,2.6204 -63.9449,2.5713 -63.9588,2.5469 -63.9743,2.5068 -63.9616,2.4685 -63.7497,2.4232 -63.7101,2.4246 -63.5098,2.4319 -63.294,2.4172 -63.275,2.4035 -63.2893,2.2567 -63.3085,2.2266 -63.3281,2.1473 -63.4169,2.1281 -63.4738,2.1277 -63.5355,2.1038 -63.6467,2.0213 -63.6675,2.0009 -63.7533,1.9755 -63.8645,1.9746 -63.8985,1.9651 -63.9302,1.9476 -63.9581,1.9225 -63.9799,1.8885 -63.9802,1.839 -63.9777,1.805 -63.9906,1.6793 -64.0058,1.6337 -64.0411,1.5813 -64.1921,1.4744 -64.2934,1.5058 -64.3218,1.5104 -64.457,1.4322 -64.4764,1.4136 -64.4906,1.39 -64.5065,1.3482 -64.5227,1.3287 -64.6247,1.2615 -64.6588,1.2457 -64.6843,1.2429 -64.7103,1.2585 -64.7462,1.2783 -64.8702,1.2094 -64.9337,1.1648 -65.0309,1.141 -65.0629,1.1172 -65.0735,1.0967 -65.0806,1.0544 -65.0811,1.0341 -65.0875,0.9882 -65.0926,0.9685 -65.1006,0.9491 -65.1192,0.9258 -65.1545,0.914 -65.1798,0.9143 -65.2183,0.9255 -65.2484,0.9111 -65.3125,0.8362 -65.3217,0.8179 -65.3249,0.7881 -65.3268,0.7532 -65.3628,0.6944 -65.4121,0.6611 -65.4482,0.6485 -65.4686,0.6511 -65.4848,0.6656 -65.5021,0.6957 -65.509,0.7291 -65.4937,0.764 -65.4536,0.8057 -65.4374,0.838 -65.4335,0.8709 -65.4366,0.9011 -65.4486,0.926 -65.4661,0.9491 -65.4856,0.9703 -65.5217,0.9896 -65.5833,0.9886 -65.6615,0.9816 -65.797,0.9074 -65.8388,0.8709 -65.8549,0.8531 -65.8812,0.8176 -65.9056,0.798 -66.0528,0.7334 -66.2127,0.7472 -66.2404,0.7506 -66.2634,0.7651 -66.7121,1.1481 -66.7952,1.2197 -66.8101,1.2198 -66.9575,1.1811 -66.9998,1.1713 -67.0089,1.1926 -67.0125,1.2652 -67.0122,1.2851 -67.0052,1.3839 -66.9983,1.4129 -66.9882,1.4367 -66.9816,1.5187 -66.9956,1.6187 -67.0382,1.733 -67.0853,1.8167 -67.131,1.8738 -67.1524,1.8896 -67.1889,1.945 -67.2331,2.0304 -67.2439,2.0609 -67.2495,2.0863 -67.2638,2.1107 -67.3468,2.1405 -67.4299,2.1045 -67.4899,2.0649 -67.5097,2.0508 -67.59,1.9714 -67.6008,1.9347 -67.6112,1.9174 -67.6946,1.8167 -67.7352,1.7824 -67.7963,1.7534 -67.8384,1.7434 -67.8655,1.7406 -67.8914,1.7439 -67.9142,1.752 -67.9336,1.7665 -67.9589,1.7996 -67.9889,1.8515 -67.9985,1.8701 -68.0117,1.9252 -68.0282,1.9499 -68.0475,1.9618 -68.0976,1.9754 -68.1196,1.9754 -68.1498,1.9317 -68.1603,1.9078 -68.1803,1.8506 -68.1559,1.7738 -68.1349,1.7698 -68.1059,1.7648 -68.0764,1.7224 -68.7515,1.7244 -69.0253,1.7256 -69.1619,1.7261 -69.2945,1.7262 -69.3221,1.7426 -69.381,1.7584 -69.4756,1.782 -69.6221,1.7436 -69.7063,1.7057 -69.7676,1.7087 -69.7635,1.6962 -69.7639,1.0712 -69.6401,1.0714 -69.5353,1.0769 -69.3571,1.0374 -69.299,1.0556 -69.2606,1.072 -69.1872,1.0329 -69.15,0.9979 -69.0626,0.8628 -69.0817,0.7522 -69.0502,0.6435 -69.1321,0.6157 -69.2098,0.6224 -69.2511,0.6559 -69.3813,0.736 -69.6053,0.6767 -69.6715,0.6334 -69.7172,0.6009 -69.8441,0.5973 -69.905,0.5973 -69.966,0.5844 -69.9676,0.5109 -69.9696,0.3681 -69.9708,0.3066 -69.974,0.1436 -69.9771,3.0E-4 -69.9788,-0.0876 -69.9795,-0.157 -69.9429,-0.203 -69.855,-0.3039 -69.6612,-0.4551 -69.6387,-0.4604 -69.6103,-0.4661 -69.5524,-0.4935 -69.5285,-0.5192 -69.4955,-0.6342 -69.5045,-0.6671 -69.518,-0.6994 -69.5371,-0.7233 -69.5346,-0.7549 -69.4396,-0.9323 -69.4028,-0.9539 -69.3562,-0.9999 -69.364,-1.0164 -69.3535,-1.0395 -69.3339,-1.1306 -69.3121,-1.2444 -69.3004,-1.3364 -69.3129,-1.3796 -69.3745,-1.5242 -69.4443,-1.912 -69.5159,-2.3084 -69.5291,-2.3836 -69.5474,-2.4792 -69.5567,-2.5313 -69.7141,-3.4153 -69.8027,-3.9155 -69.8638,-4.2075 -69.8771,-4.2321 -69.8706,-4.2574 -69.881,-4.2783 -69.9,-4.3074 -69.9373,-4.3329 -70.1177,-4.3277 -70.1756,-4.2862 -70.2214,-4.245 -70.2285,-4.2253 -70.2181,-4.1942 -70.2198,-4.1691 -70.24,-4.1347 -70.3492,-4.1273 -70.3852,-4.1498 -70.4116,-4.169 -70.3934,-4.1802 326,-7.0,Mexico -114.8815,27.7541 -114.8746,27.7378 -114.8406,27.6901 -114.7798,27.6573 -114.7411,27.6638 -114.6285,27.564 -114.5206,27.4795 -114.4623,27.4574 -114.3685,27.3847 -114.3387,27.3311 -114.3322,27.2916 -114.3311,27.2413 -114.3279,27.2075 -114.1832,27.132 -114.1345,27.1177 -114.1002,27.1347 -114.0754,27.1331 -114.045,27.1255 -114.0182,27.1147 -113.981,27.0927 -113.945,27.0698 -113.9295,27.0531 -113.9154,27.025 -113.9022,26.9958 -113.852,26.9517 -113.8297,26.9518 -113.8079,26.9684 -113.7583,26.9699 -113.7374,26.9651 -113.6959,26.9486 -113.669,26.9277 -113.6263,26.8843 -113.609,26.8637 -113.595,26.8273 -113.5781,26.7954 -113.453,26.7098 -113.3905,26.7241 -113.3304,26.801 -113.306,26.8133 -113.2857,26.8143 -113.257,26.8019 -113.1296,26.7514 -113.0609,26.7966 -113.038,26.8508 -113.0375,26.8726 -113.0404,26.9096 -113.0222,26.941 -112.9854,26.9298 -112.9788,26.8725 -112.9872,26.844 -113.0375,26.7895 -113.0554,26.7709 -113.068,26.7451 -113.0772,26.6995 -113.0697,26.6737 -113.0415,26.6634 -112.9715,26.6426 -112.959,26.6249 -112.9348,26.6015 -112.8324,26.5213 -112.8026,26.5177 -112.748,26.4922 -112.709,26.452 -112.6378,26.3883 -112.5286,26.3011 -112.3265,26.2356 -112.3063,26.2553 -112.2822,26.2602 -112.2568,26.2469 -112.2342,26.2259 -112.2238,26.2078 -112.2145,26.1892 -112.2021,26.134 -112.1813,26.0514 -112.1044,26.0122 -112.0791,25.9771 -112.0619,25.9519 -112.0496,25.9295 -111.9664,25.7372 -111.9567,25.6992 -111.9591,25.6626 -111.9652,25.6396 -111.969,25.5237 -111.9597,25.4923 -111.944,25.5307 -111.9402,25.5725 -111.9181,25.3404 -111.9247,25.2507 -111.9359,25.2039 -111.9627,25.1852 -111.9837,25.1448 -112.0277,24.9294 -112.0333,24.868 -112.0094,24.8717 -112.0011,24.9032 -111.9925,24.9456 -111.9649,24.9962 -111.9534,24.9107 -111.9742,24.8388 -111.9461,24.7284 -111.8367,24.7261 -111.8279,24.7643 -111.7827,24.729 -111.7226,24.6683 -111.7022,24.6412 -111.6858,24.6152 -111.6528,24.5351 -111.5462,24.5364 -111.5129,24.5218 -111.501,24.4944 -111.4763,24.4536 -111.4622,24.4325 -111.4356,24.4085 -111.4195,24.4021 -111.3957,24.3991 -111.3611,24.3653 -111.3323,24.3175 -111.0823,24.176 -110.9574,24.1128 -110.9074,24.0883 -110.8771,24.0672 -110.6715,23.8833 -110.5559,23.7682 -110.496,23.7053 -110.4325,23.6615 -110.3824,23.6424 -110.3209,23.621 -110.2669,23.6066 -110.236,23.5864 -110.1736,23.5343 -110.0345,23.301 -109.997,23.1972 -109.9896,23.1676 -109.9829,23.124 -109.9788,23.0952 -109.9632,23.0203 -109.9532,22.9867 -109.9437,22.9612 -109.8921,22.8806 -109.8618,22.8566 -109.8424,22.8458 -109.8188,22.8388 -109.7867,22.8413 -109.7177,22.8692 -109.6835,22.8881 -109.5811,22.9551 -109.5651,22.9728 -109.5608,22.9989 -109.5293,23.0282 -109.5002,23.049 -109.467,23.0661 -109.4409,23.0751 -109.4073,23.0845 -109.3827,23.0987 -109.349,23.1335 -109.3027,23.1999 -109.2646,23.3714 -109.2711,23.4352 -109.3418,23.5494 -109.3841,23.5733 -109.4069,23.5835 -109.4381,23.5942 -109.4593,23.5995 -109.521,23.6175 -109.5454,23.6304 -109.5573,23.6533 -109.5629,23.6743 -109.568,23.7131 -109.5635,23.7417 -109.5604,23.7681 -109.5846,23.7974 -109.6129,23.8214 -109.6466,23.8443 -109.6749,23.8663 -109.6868,23.8955 -109.686,23.9182 -109.6742,23.9614 -109.662,23.9856 -109.7341,24.0086 -109.8361,24.0694 -109.8436,24.1023 -109.8655,24.1372 -109.8801,24.1511 -109.9028,24.1654 -110.0269,24.2665 -110.0715,24.3211 -110.0932,24.3289 -110.1511,24.3152 -110.167,24.2763 -110.1469,24.2327 -110.1319,24.198 -110.1325,24.1638 -110.1858,24.0987 -110.2158,24.0888 -110.238,24.0972 -110.257,24.1546 -110.2183,24.1535 -110.2017,24.1332 -110.168,24.1587 -110.2012,24.1705 -110.2819,24.1818 -110.3107,24.1823 -110.3564,24.1903 -110.4757,24.259 -110.5184,24.3069 -110.552,24.3597 -110.5565,24.3996 -110.5559,24.4265 -110.5749,24.4887 -110.5825,24.502 -110.5911,24.5147 -110.5948,24.5511 -110.5942,24.6066 -110.5901,24.6354 -110.5844,24.6547 -110.5586,24.6906 -110.547,24.7116 -110.5357,24.7402 -110.5282,24.7762 -110.5314,24.8059 -110.5462,24.8687 -110.6059,24.992 -110.6295,25.0149 -110.6523,25.0256 -110.6845,25.0354 -110.7188,25.0661 -110.7698,25.1448 -110.8067,25.226 -110.8758,25.3857 -110.8801,25.4079 -110.8755,25.4463 -110.8774,25.4935 -110.9226,25.5157 -110.9767,25.5186 -111.025,25.5509 -111.1574,25.7515 -111.1828,25.816 -111.2188,25.9282 -111.201,25.9981 -111.2074,26.1073 -111.2404,26.1718 -111.2552,26.2156 -111.2656,26.2618 -111.2494,26.2761 -111.2554,26.3094 -111.356,26.5002 -111.4095,26.5289 -111.4172,26.5552 -111.4193,26.596 -111.4163,26.6359 -111.4184,26.69 -111.4547,26.7098 -111.5011,26.731 -111.5539,26.7797 -111.6054,26.8236 -111.6658,26.8633 -111.701,26.872 -111.7125,26.823 -111.6878,26.7283 -111.6601,26.6743 -111.611,26.6407 -111.5787,26.6244 -111.544,26.5709 -111.5664,26.5396 -111.5915,26.5227 -111.622,26.538 -111.7149,26.6323 -111.7642,26.697 -111.7727,26.7179 -111.7591,26.7382 -111.7652,26.7925 -111.7711,26.8144 -111.8275,26.8874 -111.8851,26.9751 -111.8702,27.0111 -111.9505,27.1038 -112.0855,27.2022 -112.1725,27.4721 -112.2019,27.5105 -112.3485,27.5849 -112.3919,27.5968 -112.4275,27.5997 -112.525,27.6879 -112.6076,27.8065 -112.5866,27.952 -112.5776,27.9684 -112.6123,27.9823 -112.6326,28.0 -113.9825,28.0 -113.9811,27.9922 -114.0072,27.9817 -114.0036,27.9882 -114.0041,28.0 -114.0198,28.0 -114.037,27.9858 -114.0603,27.9692 -114.1312,27.9202 -114.1437,27.9035 -114.1599,27.8348 -114.1021,27.8084 -114.0728,27.775 -114.0699,27.7287 -114.0108,27.6851 -113.9677,27.6994 -113.9271,27.7216 -113.8832,27.7379 -113.8378,27.7087 -113.8261,27.6925 -113.8379,27.6701 -113.8589,27.6558 -114.0281,27.664 -114.1398,27.706 -114.1701,27.7291 -114.1868,27.7554 -114.2864,27.7739 -114.3125,27.7568 -114.3366,27.7439 -114.3604,27.7381 -114.4656,27.7362 -114.5341,27.7522 -114.6419,27.7819 -114.6855,27.7905 -114.7768,27.8051 -114.8719,27.8156 -114.8953,27.7867 -114.8815,27.7541 206,-8.0,Mexico -116.9715,32.4281 -116.9136,32.3257 -116.8743,32.2639 -116.8578,32.2436 -116.8388,32.2324 -116.8018,32.2191 -116.7745,32.2085 -116.754,32.1851 -116.7424,32.1578 -116.7248,32.0986 -116.7219,32.0734 -116.7221,32.0506 -116.7187,32.0064 -116.7119,31.9858 -116.691,31.9552 -116.5776,31.8727 -116.5116,31.8332 -116.4759,31.8249 -116.4564,31.8091 -116.4467,31.784 -116.4534,31.7399 -116.4973,31.5692 -116.5237,31.5254 -116.4422,31.4361 -116.3281,31.3554 -116.2008,31.1996 -116.1815,31.1723 -116.1639,31.1369 -116.1574,31.1154 -116.1516,31.0868 -116.111,30.9257 -115.9047,30.762 -115.8871,30.6901 -115.8791,30.5627 -115.8794,30.5366 -115.883,30.4985 -115.8912,30.4396 -115.8883,30.4166 -115.8533,30.3513 -115.8485,30.3765 -115.8607,30.4011 -115.8289,30.4606 -115.7808,30.4229 -115.6984,30.3358 -115.6861,30.3162 -115.6725,30.291 -115.661,30.2639 -115.6542,30.2426 -115.647,30.215 -115.6428,30.1919 -115.6326,30.074 -115.5855,29.9053 -115.5468,29.741 -115.356,29.5924 -115.1901,29.5106 -115.1288,29.485 -115.0832,29.4563 -115.0678,29.4424 -115.0549,29.4265 -115.0405,29.4046 -114.9488,29.3865 -114.8286,29.3583 -114.7972,29.3411 -114.5529,29.0975 -114.4091,28.9428 -114.3558,28.9068 -114.2928,28.881 -114.279,28.8528 -114.264,28.857 -114.2133,28.7915 -114.1672,28.717 -114.1137,28.6816 -114.0663,28.653 -114.0199,28.6399 -113.9328,28.5212 -113.9137,28.4856 -113.9198,28.4415 -113.9371,28.3973 -113.9499,28.367 -113.9623,28.3435 -113.9983,28.279 -113.9809,28.1864 -113.9653,28.1498 -113.9657,28.1127 -113.972,28.076 -113.9877,28.0285 -113.9825,28.0 -112.6326,28.0 -112.6328,28.0002 -112.6461,28.0691 -112.649,28.0965 -112.6449,28.1475 -112.6751,28.1969 -112.7151,28.2271 -112.7212,28.2319 -112.7281,28.2524 -112.7241,28.3302 -112.7171,28.3867 -112.7721,28.4177 -112.811,28.4089 -112.8363,28.4042 -112.8651,28.4047 -112.8931,28.4116 -112.9694,28.4548 -112.9832,28.5272 -112.9924,28.5919 -113.0301,28.7487 -113.0482,28.7818 -113.0834,28.7971 -113.1435,28.7775 -113.2012,28.8505 -113.2015,28.8763 -113.216,28.909 -113.2624,28.9319 -113.3049,28.9206 -113.3153,28.8944 -113.3103,28.8603 -113.3618,28.864 -113.3979,28.9187 -113.3923,29.0083 -113.3979,29.0703 -113.5034,29.229 -113.5206,29.2516 -113.6467,29.3828 -113.7011,29.4312 -113.7388,29.4467 -113.7663,29.464 -113.8859,29.5549 -113.9168,29.5823 -113.9485,29.6159 -114.0641,29.7286 -114.1072,29.7385 -114.1523,29.7298 -114.2274,29.7643 -114.248,29.7953 -114.3105,29.8924 -114.3969,29.9678 -114.4078,29.985 -114.4797,30.1055 -114.5106,30.1648 -114.4931,30.2397 -114.4838,30.3282 -114.4765,30.4496 -114.4975,30.5301 -114.5148,30.5524 -114.5282,30.5708 -114.5435,30.6113 -114.5465,30.6353 -114.5419,30.6997 -114.5365,30.768 -114.54,30.8046 -114.557,30.893 -114.5709,30.9085 -114.6132,30.9301 -114.6371,30.9341 -114.6754,30.9574 -114.7251,31.0918 -114.7311,31.1168 -114.7291,31.1945 -114.7146,31.3911 -114.7057,31.4666 -114.7018,31.4911 -114.6943,31.5193 -114.6836,31.5484 -114.6588,31.5784 -114.6365,31.5965 -114.6372,31.6289 -114.6707,31.7047 -114.7647,31.8265 -114.8077,31.861 -114.8262,31.8706 -114.8637,31.8746 -114.8803,31.921 -114.8816,31.9221 -114.8814,31.9242 -114.8815,31.9244 -114.8814,31.9244 -114.8769,31.984 -114.8459,32.0531 -114.9007,32.1316 -114.8983,32.2007 -114.884,32.2245 -114.9245,32.2864 -114.8626,32.3507 -114.8721,32.3864 -114.8364,32.4293 -114.8197,32.4769 -114.8102,32.515 -114.8007,32.5436 -114.8102,32.5746 -114.8126,32.615 -114.7721,32.6341 -114.75,32.6694 -114.8763,32.6605 -115.0524,32.6481 -115.2538,32.6332 -115.4549,32.6184 -115.7569,32.5955 -116.0913,32.5695 -116.3566,32.5485 -116.561,32.5321 -116.7619,32.5159 -116.9428,32.5003 -116.9701,32.4991 -116.9745,32.4551 -116.9715,32.4281 5,-8.0,Mexico -114.0182,28.0 -114.0041,28.0 -114.0047,28.0124 -114.0198,28.0 -114.0182,28.0 928,-7.0,Mexico -114.9007,32.25 -114.884,32.2245 -114.8983,32.2007 -114.9007,32.1316 -114.8459,32.0531 -114.8769,31.984 -114.8814,31.9244 -114.8675,31.9187 -114.7791,31.8681 -114.6754,31.7999 -114.6592,31.7866 -114.5625,31.7477 -114.4848,31.732 -114.4353,31.7249 -114.3691,31.6761 -114.3533,31.6586 -114.3332,31.6423 -114.2825,31.6096 -114.1061,31.5063 -114.0687,31.487 -114.0212,31.4694 -113.9824,31.4602 -113.9019,31.4576 -113.8724,31.4626 -113.8422,31.4825 -113.8272,31.4971 -113.799,31.5318 -113.8222,31.5374 -113.8265,31.6204 -113.674,31.5455 -113.5197,31.4809 -113.4962,31.4672 -113.4813,31.4463 -113.4777,31.4203 -113.481,31.3959 -113.4743,31.3552 -113.4656,31.3137 -113.4418,31.2967 -113.3632,31.2609 -113.3283,31.2492 -113.1804,31.2255 -112.9899,31.1982 -112.9698,31.2006 -112.9445,31.1948 -112.8918,31.1301 -112.8906,31.0702 -112.9024,31.0191 -112.9487,30.8454 -112.9622,30.8084 -112.9689,30.7803 -112.9344,30.6645 -112.9258,30.6453 -112.9146,30.6246 -112.8954,30.5972 -112.8559,30.5435 -112.7812,30.4576 -112.7114,30.3687 -112.6189,30.1938 -112.608,30.1697 -112.6024,30.1283 -112.603,30.1018 -112.6052,30.0127 -112.5895,29.9377 -112.5595,29.8882 -112.4307,29.6794 -112.3481,29.5799 -112.3258,29.5581 -112.2948,29.5365 -112.2799,29.5213 -112.2304,29.4621 -112.2318,29.427 -112.2441,29.3889 -112.1839,29.2949 -112.1432,29.3024 -112.1041,29.2993 -112.068,29.2733 -112.056,29.2503 -112.0516,29.2276 -112.0444,29.1422 -112.031,29.0261 -112.0167,28.9392 -111.9699,28.934 -111.8922,28.8516 -111.7729,28.7552 -111.8025,28.7297 -111.7901,28.7068 -111.7029,28.6265 -111.6774,28.6076 -111.651,28.589 -111.6221,28.5605 -111.5937,28.5237 -111.5815,28.5041 -111.5681,28.4719 -111.5525,28.4368 -111.5254,28.4211 -111.4962,28.4117 -111.4345,28.3887 -111.3906,28.3719 -111.3193,28.3433 -111.1982,28.1723 -111.1816,28.1463 -111.1627,28.1158 -111.1242,28.0579 -111.1059,28.0366 -111.0725,28.0041 -110.96,27.9058 -110.9389,27.9077 -110.9126,27.9181 -110.8177,27.8764 -110.7286,27.8117 -110.6466,27.8856 -110.454,27.8565 -110.3689,27.824 -110.4124,27.8018 -110.4626,27.7265 -110.4919,27.6313 -110.4913,27.6042 -110.4795,27.5711 -110.3874,27.3405 -110.3041,27.2812 -110.1931,27.1543 -110.16,27.1321 -110.0832,27.1065 -109.9103,27.0665 -109.8822,27.0817 -109.8348,27.0804 -109.8075,27.0631 -109.7794,27.0265 -109.7568,26.9441 -109.746,26.8804 -109.7392,26.8409 -109.7345,26.8185 -109.7254,26.7935 -109.6808,26.7216 -109.6316,26.6775 -109.6129,26.6664 -109.5767,26.65 -109.5511,26.6444 -109.5363,26.6428 -109.5064,26.6676 -109.4134,26.7211 -109.3791,26.7345 -109.3036,26.6859 -109.1243,26.4838 -109.0145,26.3387 -109.0038,26.3088 -108.9642,26.2544 -108.9561,26.1855 -108.9834,26.195 -109.034,26.2333 -109.0202,26.2753 -109.0248,26.2945 -109.065,26.3128 -109.0917,26.2899 -109.0897,26.2337 -109.1439,26.1331 -109.1653,26.1725 -109.2626,26.0355 -109.2818,26.0062 -109.2923,25.9766 -109.3027,25.9176 -109.2977,25.7913 -109.2419,25.7303 -109.168,25.7097 -109.0298,25.615 -109.0144,25.5845 -109.0016,25.5545 -108.9375,25.5718 -108.9023,25.5811 -108.7588,25.6705 -108.7372,25.7147 -108.6957,25.7649 -108.7393,25.6416 -108.763,25.6108 -108.8313,25.5359 -108.852,25.5306 -108.8789,25.5318 -108.9183,25.5354 -108.9454,25.51 -108.9696,25.4978 -108.9292,25.4586 -108.8923,25.4337 -108.7809,25.4279 -108.7473,25.4514 -108.7406,25.4731 -108.738,25.494 -108.757,25.5207 -108.699,25.533 -108.6265,25.5107 -108.625,25.4642 -108.6234,25.4062 -108.59,25.3682 -108.4783,25.3117 -108.4198,25.2863 -108.3177,25.2458 -108.2987,25.2347 -108.2826,25.2223 -108.2689,25.2036 -108.2543,25.1719 -108.256,25.113 -108.2147,25.1391 -108.1054,25.1312 -107.9881,25.0957 -107.9581,25.0809 -107.9229,25.0605 -107.9049,25.0455 -107.884,25.0234 -107.8705,25.0054 -107.8641,24.9801 -107.9593,24.9849 -107.9932,24.9447 -108.0412,24.9537 -108.0836,25.0016 -108.0445,24.9087 -107.9914,24.8126 -107.9676,24.7944 -107.9112,24.7985 -107.8916,24.8922 -107.9077,24.9229 -107.9053,24.9642 -107.8753,24.9548 -107.8535,24.9316 -107.8605,24.7233 -107.8804,24.7076 -107.8703,24.645 -107.8593,24.6216 -107.8059,24.5738 -107.7805,24.5554 -107.6815,24.5 -107.7157,24.528 -107.7581,24.5587 -107.7952,24.6026 -107.7369,24.5861 -107.6727,24.5598 -107.6134,24.5103 -107.6127,24.4896 -107.5462,24.4524 -107.5178,24.4622 -107.5065,24.4838 -107.4825,24.4897 -107.455,24.425 -107.4611,24.401 -107.4957,24.4046 -107.5178,24.4048 -107.5403,24.4195 -107.5922,24.4439 -107.54,24.3967 -107.5146,24.3746 -107.4541,24.345 -107.4307,24.3307 -107.413,24.3192 -107.3874,24.3008 -107.2874,24.2254 -107.2538,24.1976 -106.9368,23.9725 -106.9089,23.9562 -106.8912,23.9414 -106.867,23.9185 -106.8244,23.8755 -106.782,23.8384 -106.7654,23.8162 -106.7345,23.7546 -106.7075,23.6994 -106.6699,23.6232 -106.6517,23.6027 -106.5287,23.4969 -106.3947,23.3808 -106.3787,23.3584 -106.3607,23.3282 -106.3461,23.3002 -106.2378,23.1526 -106.0946,23.0277 -106.0076,22.9309 -105.9785,22.8961 -105.9485,22.8627 -105.8693,22.7906 -105.8429,22.7731 -105.7885,22.7328 -105.6895,22.6389 -105.6681,22.6107 -105.6141,22.5188 -105.5998,22.4879 -105.5839,22.4434 -105.5601,22.4057 -105.5296,22.3446 -105.5193,22.3178 -105.5137,22.2903 -105.5099,22.262 -105.5077,22.2323 -105.5062,22.1985 -105.5085,22.1619 -105.5152,22.1101 -105.5252,22.0316 -105.5259,21.9776 -105.5201,21.9566 -105.4984,21.9262 -105.4796,21.903 -105.466,21.8881 -105.4472,21.8715 -105.4286,21.8493 -105.3788,21.7676 -105.3283,21.6744 -105.312,21.6334 -105.3128,21.6102 -105.3071,21.5851 -105.1476,21.4967 -105.1165,21.4896 -105.0603,21.4134 -105.0991,21.288 -105.0845,21.2101 -105.0963,21.0877 -105.1038,21.0619 -105.1127,21.0413 -105.1302,21.0194 -105.1635,21.0144 -105.1841,20.9992 -105.4074,20.7692 -105.2792,20.7315 -105.2388,20.7467 -105.2149,20.7503 -105.1933,20.7425 -105.1356,20.6737 -105.1302,20.6612 -105.13,20.665 -105.1268,20.6701 -105.1232,20.6732 -105.1217,20.6817 -105.1053,20.7083 -105.1076,20.7137 -105.1079,20.7168 -105.1009,20.7194 -105.0962,20.7303 -105.0913,20.7307 -105.0897,20.7381 -105.0784,20.74 -105.067,20.7457 -105.0677,20.7506 -105.0635,20.7632 -105.0554,20.7676 -105.0533,20.77 -105.0527,20.7766 -105.0557,20.7851 -105.0526,20.7866 -105.0492,20.7919 -105.0417,20.7946 -105.0326,20.8045 -105.0351,20.8195 -105.023,20.846 -105.0171,20.8495 -105.0088,20.8637 -105.0003,20.8641 -104.9976,20.8664 -104.9959,20.8703 -104.9847,20.8764 -104.9803,20.8845 -104.9746,20.8882 -104.9695,20.8892 -104.9579,20.8975 -104.9521,20.8974 -104.9447,20.906 -104.9241,20.9063 -104.9182,20.9064 -104.9099,20.9033 -104.9079,20.8886 -104.8994,20.8853 -104.8817,20.895 -104.8774,20.8965 -104.8738,20.8935 -104.8742,20.8879 -104.8729,20.8833 -104.8662,20.8811 -104.8648,20.882 -104.862,20.8842 -104.8578,20.8835 -104.8379,20.8739 -104.8216,20.8933 -104.8185,20.8947 -104.8056,20.9007 -104.7963,20.9023 -104.7906,20.9054 -104.7799,20.9054 -104.7747,20.9082 -104.771,20.9125 -104.7702,20.9237 -104.7666,20.9307 -104.7433,20.9471 -104.7389,20.9524 -104.7353,20.9612 -104.7288,20.9616 -104.7253,20.9631 -104.7186,20.9717 -104.7057,20.9751 -104.6999,20.9844 -104.6795,20.9825 -104.6735,20.9804 -104.663,20.9832 -104.6565,20.9837 -104.6538,20.9828 -104.6531,20.9831 -104.6435,20.9873 -104.6404,20.9849 -104.6327,20.9744 -104.6258,20.9772 -104.6029,20.9737 -104.593,20.9807 -104.5948,20.9563 -104.5966,20.9493 -104.5887,20.946 -104.5841,20.938 -104.5822,20.9384 -104.5772,20.9326 -104.5729,20.9293 -104.5619,20.9301 -104.5549,20.9226 -104.55,20.9227 -104.5485,20.9216 -104.5485,20.9125 -104.5473,20.908 -104.5353,20.9076 -104.531,20.9097 -104.5293,20.9029 -104.5258,20.8993 -104.5089,20.9009 -104.5036,20.8988 -104.4995,20.891 -104.4962,20.8872 -104.4879,20.8874 -104.4843,20.8863 -104.4716,20.8981 -104.4648,20.8994 -104.459,20.9005 -104.4497,20.9007 -104.4455,20.8992 -104.4319,20.8909 -104.4237,20.8827 -104.4161,20.883 -104.4122,20.8794 -104.4121,20.8676 -104.4105,20.8658 -104.4056,20.8663 -104.4023,20.8641 -104.401,20.851 -104.3949,20.8524 -104.3922,20.8511 -104.3916,20.8428 -104.3794,20.8281 -104.3756,20.8266 -104.3678,20.8059 -104.3547,20.8012 -104.3517,20.7991 -104.3517,20.7954 -104.348,20.787 -104.3316,20.7807 -104.3308,20.7776 -104.3223,20.771 -104.3068,20.7731 -104.3015,20.7706 -104.2963,20.763 -104.2926,20.7598 -104.2882,20.7612 -104.2745,20.755 -104.2647,20.7459 -104.2455,20.7236 -104.2435,20.7068 -104.2409,20.7048 -104.2321,20.7089 -104.2192,20.6953 -104.2047,20.6883 -104.1865,20.6818 -104.1772,20.671 -104.1761,20.6638 -104.1727,20.6605 -104.1613,20.6599 -104.1494,20.6497 -104.1412,20.6487 -104.1385,20.6619 -104.1395,20.6875 -104.1406,20.7185 -104.1453,20.742 -104.1449,20.755 -104.1451,20.7804 -104.1469,20.786 -104.1452,20.7984 -104.1392,20.8105 -104.1397,20.8325 -104.1382,20.8483 -104.1377,20.8528 -104.1371,20.859 -104.1323,20.8746 -104.1285,20.8825 -104.1219,20.8887 -104.1102,20.9029 -104.0856,20.9201 -104.081,20.9225 -104.0881,20.9302 -104.0935,20.9352 -104.0964,20.9401 -104.0992,20.9572 -104.1006,20.9656 -104.103,20.9802 -104.0945,21.021 -104.0938,21.0331 -104.0886,21.0506 -104.0816,21.0611 -104.0851,21.0668 -104.0791,21.0845 -104.0966,21.1026 -104.1002,21.1157 -104.1006,21.1212 -104.0978,21.1408 -104.0957,21.144 -104.088,21.1474 -104.0829,21.1482 -104.0787,21.1508 -104.0723,21.1582 -104.0614,21.1635 -104.0575,21.1628 -104.0562,21.1626 -104.0526,21.1585 -104.0275,21.1564 -104.0241,21.1536 -104.0178,21.1548 -104.0101,21.1596 -104.0029,21.1607 -103.9969,21.1594 -103.9866,21.1632 -103.9755,21.1582 -103.9696,21.1654 -103.9607,21.169 -103.9544,21.1662 -103.9511,21.1732 -103.9491,21.1736 -103.9453,21.1638 -103.9447,21.1613 -103.9354,21.1594 -103.9353,21.1626 -103.9353,21.1667 -103.9332,21.1682 -103.9257,21.1678 -103.9243,21.1664 -103.9197,21.1724 -103.9161,21.1729 -103.9113,21.1713 -103.9102,21.1727 -103.9065,21.1725 -103.8977,21.1667 -103.894,21.1655 -103.8984,21.1753 -103.896,21.1783 -103.8916,21.18 -103.8853,21.1784 -103.8814,21.1945 -103.875,21.1974 -103.86,21.224 -103.8465,21.2378 -103.822,21.3403 -104.0684,21.5014 -104.0183,21.5641 -104.0153,21.5699 -104.0228,21.5912 -104.0238,21.6016 -104.0263,21.6284 -104.0194,21.7956 -104.0631,21.8112 -104.0723,21.8145 -104.0991,21.828 -104.1208,21.8422 -104.1298,21.8513 -104.1538,21.8766 -104.1929,21.9387 -104.2077,21.9733 -104.2326,22.0312 -104.1703,22.2191 -104.184,22.418 -104.1837,22.422 -104.1867,22.4236 -104.347,22.3731 -104.4379,22.3991 -104.4823,22.5574 -104.6546,22.5936 -104.817,22.4999 -104.828,22.5036 -104.8759,22.52 -104.8795,22.5854 -104.8823,22.6356 -104.763,22.7101 -104.8396,22.9076 -104.9874,22.9738 -105.09,23.012 -105.2662,23.0143 -105.2763,23.0991 -105.4416,23.1037 -105.4508,23.1174 -105.4672,23.1471 -105.4831,23.1688 -105.4948,23.1891 -105.4979,23.2021 -105.4989,23.2118 -105.5018,23.2137 -105.5053,23.214 -105.5066,23.2293 -105.5105,23.2317 -105.5084,23.2508 -105.516,23.2564 -105.5247,23.2621 -105.5398,23.2599 -105.5411,23.2621 -105.5518,23.2614 -105.5554,23.2714 -105.5542,23.2788 -105.5581,23.2816 -105.5586,23.2916 -105.5598,23.2933 -105.565,23.3012 -105.5645,23.3062 -105.5654,23.3093 -105.5595,23.3165 -105.5663,23.3169 -105.5718,23.3243 -105.5783,23.3275 -105.5799,23.3371 -105.5922,23.349 -105.5937,23.3505 -105.5945,23.3527 -105.5914,23.3536 -105.588,23.3572 -105.5892,23.3596 -105.5682,23.3865 -105.568,23.3899 -105.5869,23.3997 -105.5949,23.4084 -105.5976,23.4157 -105.6043,23.4222 -105.5989,23.4308 -105.5939,23.4442 -105.5931,23.4483 -105.6198,23.474 -105.6246,23.4826 -105.6243,23.5039 -105.633,23.5166 -105.6393,23.5317 -105.6516,23.5474 -105.6532,23.5495 -105.6586,23.5507 -105.6796,23.5628 -105.6832,23.5673 -105.6824,23.57 -105.7036,23.58 -105.7118,23.5854 -105.7343,23.6203 -105.7432,23.6576 -105.7466,23.6719 -105.748,23.6848 -105.7483,23.6878 -105.7714,23.7149 -105.7872,23.8844 -105.7108,24.0214 -105.7612,24.0175 -105.8278,24.0667 -105.8338,24.0715 -105.8353,24.0789 -105.8588,24.1325 -105.881,24.1669 -105.8927,24.191 -105.8989,24.2007 -105.9186,24.236 -105.9288,24.2503 -105.9372,24.2667 -105.9494,24.2858 -105.9575,24.2919 -106.0009,24.325 -106.0542,24.3474 -106.0666,24.3526 -106.0698,24.3536 -106.1071,24.3647 -106.1154,24.3659 -106.1339,24.3682 -106.1484,24.3639 -106.1729,24.3526 -106.1943,24.3327 -106.2169,24.287 -106.2218,24.2837 -106.2321,24.2812 -106.2446,24.2744 -106.309,24.2558 -106.324,24.2555 -106.3398,24.2575 -106.3682,24.2765 -106.441,24.3621 -106.4446,24.3747 -106.443,24.4218 -106.4432,24.4363 -106.4665,24.4646 -106.4719,24.4692 -106.5249,24.5308 -106.5403,24.5616 -106.5479,24.5822 -106.556,24.5967 -106.575,24.6125 -106.5983,24.6381 -106.6322,24.6674 -106.6397,24.6832 -106.6596,24.7121 -106.6742,24.7187 -106.704,24.736 -106.7239,24.7464 -106.7368,24.7563 -106.747,24.7676 -106.7507,24.7691 -106.7565,24.7774 -106.7752,24.7784 -106.7833,24.7779 -106.823,24.7792 -106.8273,24.7812 -106.8301,24.7869 -106.8334,24.8332 -106.8338,24.8395 -106.8367,24.8494 -106.8591,24.8782 -106.8661,24.8902 -106.8966,24.9233 -106.9261,24.9599 -106.9266,24.9606 -106.9321,24.9696 -106.948,24.9997 -106.954,25.019 -106.9727,25.0578 -106.9879,25.0942 -106.9956,25.1396 -106.9951,25.1666 -106.9967,25.1864 -106.9865,25.2367 -106.9786,25.2675 -106.977,25.2826 -106.9733,25.2941 -106.9681,25.306 -106.9341,25.4698 -106.865,25.5209 -106.8599,25.5267 -106.8162,25.6266 -106.8192,25.6326 -106.8352,25.6533 -106.8438,25.6686 -106.8544,25.6819 -106.8635,25.6869 -106.867,25.6913 -106.8744,25.6954 -107.0062,25.7794 -107.0118,25.7894 -107.0453,25.8292 -107.0513,25.8406 -107.0637,25.8574 -107.0726,25.8574 -107.1067,25.8556 -107.1283,25.866 -107.139,25.8743 -107.145,25.8823 -107.154,25.8994 -107.1682,25.9458 -107.1706,25.9481 -107.1924,25.9488 -107.2013,25.9534 -107.212,25.9645 -107.2157,25.9763 -107.2188,25.987 -107.2275,26.018 -107.2399,26.0662 -107.2476,26.0809 -107.2767,26.1107 -107.2855,26.1167 -107.3211,26.1258 -107.3236,26.126 -107.4403,26.1313 -107.4576,26.1306 -107.4714,26.1327 -107.4976,26.1326 -107.5086,26.1336 -107.6283,26.1382 -107.6726,26.1433 -107.6801,26.1475 -107.6834,26.1524 -107.6863,26.1566 -107.6902,26.1622 -107.781,26.2836 -107.8826,26.7017 -107.8895,26.7454 -107.8813,26.8665 -107.8808,26.8738 -107.8868,26.8875 -107.8953,26.8946 -107.9014,26.8969 -107.9158,26.8985 -107.9285,26.8985 -108.0204,26.8988 -108.0256,26.9 -108.0348,26.902 -108.0586,26.9143 -108.0931,26.9425 -108.103,26.955 -108.1141,26.9833 -108.117,26.9878 -108.1235,26.9926 -108.1302,26.9958 -108.1421,26.9978 -108.1426,26.9977 -108.15,26.9972 -108.1775,27.0002 -108.1964,27.008 -108.2153,27.0305 -108.2979,26.945 -108.3376,26.9835 -108.3427,26.9874 -108.3576,26.9856 -108.3676,26.9844 -108.3821,26.9827 -108.3955,26.9831 -108.4116,26.9992 -108.4287,27.0244 -108.4391,27.0344 -108.4761,27.1022 -108.4795,27.1096 -108.5284,27.1999 -108.5008,27.2582 -108.4903,27.2633 -108.4755,27.285 -108.4715,27.2982 -108.4723,27.3066 -108.5273,27.443 -108.5169,27.5112 -108.5237,27.5167 -108.5279,27.5229 -108.5497,27.5304 -108.5743,27.5451 -108.6189,27.605 -108.5893,27.6547 -108.6012,27.6655 -108.721,27.7737 -108.7417,27.7923 -108.76,27.8593 -108.7696,27.8946 -108.7842,27.8986 -108.8277,27.9194 -108.841,27.9308 -108.8465,27.9355 -108.8625,27.9541 -108.8724,27.9626 -108.8765,27.9749 -108.8802,27.9768 -108.895,27.9946 -108.9839,28.182 -108.9647,28.1996 -108.9085,28.2513 -108.4483,28.2096 -108.4007,28.2544 -108.4518,28.402 -108.4914,28.516 -108.5059,28.5576 -108.4481,28.737 -108.4301,28.7925 -108.4805,28.9706 -108.5059,29.0704 -108.5374,29.2065 -108.5456,29.2376 -108.5704,29.3316 -108.5811,29.3919 -108.5267,29.3808 -108.4855,29.3743 -108.4614,29.3683 -108.4418,29.5727 -108.4243,29.8249 -108.4181,29.9037 -108.4151,29.9411 -108.4141,29.9532 -108.406,30.0564 -108.4195,30.23 -108.422,30.2449 -108.4157,30.3166 -108.4099,30.3829 -108.4019,30.4742 -108.54,30.5587 -108.5803,30.5791 -108.6584,30.5919 -108.7489,30.6538 -108.8582,30.7321 -108.8609,30.7286 -108.9813,30.8166 -108.9094,30.9791 -108.8633,31.0832 -108.8577,31.0714 -108.7601,31.2977 -108.9056,31.2978 -108.9168,31.2979 -109.3698,31.2982 -109.7361,31.2976 -110.1682,31.2976 -110.9015,31.2982 -111.2725,31.4189 -111.8005,31.5884 -112.1532,31.7 -112.3537,31.7628 -112.7204,31.8778 -112.9059,31.9352 -113.1969,32.0252 -113.544,32.1316 -113.7099,32.1823 -113.9129,32.2436 -114.195,32.3288 -114.4364,32.4009 -114.6457,32.4642 -114.6603,32.4707 -114.6423,32.5215 -114.5822,32.6488 -114.5721,32.6747 -114.5699,32.6819 -114.5806,32.681 -114.7218,32.6714 -114.75,32.6694 -114.7721,32.6341 -114.8126,32.615 -114.8102,32.5746 -114.8007,32.5436 -114.8102,32.515 -114.8197,32.4769 -114.8364,32.4293 -114.8721,32.3864 -114.8626,32.3507 -114.9245,32.2864 -114.9007,32.25 5,-7.0,Mexico -114.8815,31.922 -114.8803,31.921 -114.8814,31.9242 -114.8816,31.9221 -114.8815,31.922 6,-7.0,Mexico -114.8007,31.8554 -114.7647,31.8265 -114.7723,31.8363 -114.7949,31.8543 -114.8077,31.861 -114.8007,31.8554 3392,-8.0,United States -124.525,48.3158 -124.5015,48.1972 -124.5067,48.1292 -124.501,48.0715 -124.4925,48.0093 -124.4882,47.9851 -124.4759,47.9419 -124.4649,47.9183 -124.4385,47.8702 -124.3994,47.8306 -124.3691,47.8282 -124.3463,47.8164 -124.3196,47.7974 -124.2841,47.7696 -124.216,47.675 -124.1807,47.6128 -124.1489,47.4817 -124.1292,47.3788 -124.1227,47.3191 -124.0895,47.2877 -124.0503,47.2599 -124.0311,47.2254 -124.0057,47.1673 -123.9757,47.0375 -123.9713,47.007 -123.9719,46.9795 -123.9751,46.954 -123.9805,46.923 -123.9874,46.8928 -123.9755,46.888 -123.9339,46.9219 -123.9454,46.9479 -123.9569,46.9884 -123.9344,47.0058 -123.8979,47.0126 -123.8738,47.0085 -123.845,46.9937 -123.8237,46.9701 -123.8123,46.9471 -123.7851,46.935 -123.7327,46.9372 -123.6248,46.9233 -123.6956,46.8998 -123.7624,46.8838 -123.7953,46.8794 -123.9055,46.8325 -123.9207,46.8079 -123.9016,46.6961 -123.8771,46.6822 -123.783,46.6696 -123.7266,46.6871 -123.7006,46.7017 -123.6706,46.6935 -123.5836,46.6326 -123.614,46.6244 -123.6342,46.6443 -123.6547,46.661 -123.7191,46.6343 -123.7649,46.5836 -123.7459,46.566 -123.7306,46.5528 -123.7064,46.5109 -123.7036,46.4795 -123.7237,46.39 -123.7659,46.34 -123.8079,46.3409 -123.8376,46.446 -123.8376,46.4891 -123.8294,46.5211 -123.8421,46.6032 -123.8624,46.6033 -123.8739,46.5721 -123.8627,46.3569 -123.8244,46.2709 -123.7172,46.2131 -123.6828,46.2078 -123.6472,46.2202 -123.5621,46.2411 -123.5185,46.248 -123.4807,46.2396 -123.4452,46.2237 -123.4148,46.2199 -123.3734,46.2221 -123.3435,46.2285 -123.313,46.2345 -123.2869,46.2369 -123.2558,46.2341 -123.2346,46.2199 -123.2187,46.189 -123.197,46.1701 -123.121,46.1249 -123.084,46.1189 -122.9896,46.1424 -123.03,46.1084 -123.0677,46.0931 -123.0892,46.0925 -123.1932,46.1102 -123.2242,46.1223 -123.2423,46.1339 -123.2555,46.156 -123.2996,46.1936 -123.3317,46.1973 -123.3607,46.1871 -123.3794,46.1721 -123.4211,46.15 -123.5275,46.1354 -123.6539,46.1376 -123.7517,46.1618 -123.7769,46.1286 -123.7523,46.0808 -123.7419,46.043 -123.7365,46.0133 -123.7343,45.9779 -123.7418,45.9452 -123.7623,45.8426 -123.7754,45.7538 -123.7774,45.7136 -123.7553,45.6799 -123.7304,45.6571 -123.7262,45.6226 -123.7568,45.5402 -123.7183,45.5207 -123.6975,45.4772 -123.7701,45.4687 -123.7707,45.4095 -123.7822,45.164 -123.7714,45.1287 -123.8208,44.9267 -123.8289,44.8981 -123.8482,44.8359 -123.8805,44.7863 -123.8854,44.7391 -123.876,44.7187 -123.8668,44.6886 -123.8737,44.5748 -123.884,44.547 -123.894,44.4721 -123.9366,44.1019 -123.9579,43.8713 -123.9805,43.7442 -123.9611,43.7053 -123.9425,43.676 -124.014,43.6249 -124.0305,43.5871 -124.039,43.5474 -124.0488,43.5136 -124.1043,43.3903 -124.1215,43.3604 -124.1291,43.3516 -124.1117,43.3542 -124.0903,43.3666 -124.0647,43.3894 -124.0236,43.4071 -123.9696,43.3228 -124.0153,43.329 -124.0335,43.3433 -124.0747,43.3466 -124.1608,43.3062 -124.2052,43.27 -124.2,43.2401 -124.1965,43.2154 -124.2141,43.1402 -124.2536,42.992 -124.3,42.9161 -124.3151,42.8933 -124.3306,42.8765 -124.3417,42.8573 -124.3514,42.8175 -124.3487,42.7802 -124.3085,42.6998 -124.2601,42.6467 -124.2393,42.6343 -124.22,42.6181 -124.2094,42.5809 -124.212,42.5063 -124.2287,42.469 -124.2471,42.4358 -124.2361,42.327 -124.2244,42.2682 -124.2089,42.1954 -124.1835,42.1206 -124.1673,42.0774 -124.1555,42.0586 -124.1176,42.0256 -124.081,42.0084 -124.0319,41.9713 -124.0141,41.9521 -124.0125,41.9467 -124.0036,41.9024 -124.0188,41.8221 -124.0257,41.8007 -124.0438,41.7729 -124.0098,41.7069 -123.9473,41.6359 -123.8926,41.4683 -123.8758,41.4163 -123.8692,41.3809 -123.8749,41.3477 -123.8905,41.2977 -123.9201,41.2035 -123.9516,41.1112 -123.9421,41.0111 -123.9289,40.9922 -123.9286,40.9459 -123.9727,40.7661 -124.0292,40.6997 -124.059,40.7006 -124.0828,40.6786 -124.1046,40.649 -124.1618,40.5359 -124.182,40.4866 -124.2058,40.402 -124.1844,40.3698 -124.1534,40.2909 -124.1543,40.2664 -124.1612,40.2271 -124.1274,40.1928 -124.0329,40.129 -123.9833,40.1027 -123.9237,40.0713 -123.8931,40.0465 -123.7628,39.9047 -123.6995,39.8243 -123.6526,39.7471 -123.6046,39.6651 -123.5697,39.5105 -123.5961,39.475 -123.6072,39.4523 -123.6289,39.3417 -123.629,39.3093 -123.5875,39.2154 -123.5464,39.1341 -123.5201,39.0779 -123.501,38.9816 -123.5088,38.961 -123.5415,38.9273 -123.5359,38.8866 -123.4546,38.8174 -123.371,38.7526 -123.2825,38.6905 -123.1886,38.5812 -123.1484,38.5306 -123.1024,38.4976 -123.0731,38.4795 -123.0076,38.4488 -122.9651,38.4297 -122.9434,38.4196 -122.7951,38.2423 -122.6675,38.0847 -122.6448,38.0522 -122.6401,38.0391 -122.677,38.0652 -122.7639,38.1196 -122.7934,38.0154 -122.7655,38.0111 -122.7338,38.0116 -122.6542,37.9777 -122.6194,37.9587 -122.4944,37.8681 -122.3435,37.7886 -122.2945,37.7909 -122.2579,37.8406 -122.2811,37.8645 -122.3176,37.8941 -122.3158,38.0769 -122.2285,38.1048 -122.2027,38.1128 -122.1491,38.0935 -122.1297,38.0842 -122.102,38.0673 -121.9477,38.0187 -121.8882,38.0662 -121.8565,38.1053 -121.8161,38.0544 -121.7434,38.0234 -121.6569,38.0386 -121.5614,38.0049 -121.5238,38.024 -121.5008,38.054 -121.4237,38.0728 -121.3918,38.0678 -121.3093,38.0125 -121.2662,37.9705 -121.3371,38.0062 -121.4297,38.0621 -121.4822,38.0364 -121.4929,38.0061 -121.5234,37.9755 -121.6723,37.9942 -121.6958,38.0004 -121.7539,38.0115 -121.8276,38.023 -121.854,38.0235 -121.9659,37.9927 -122.0012,38.0047 -122.0631,38.0217 -122.1906,37.9481 -122.2313,37.9167 -122.1382,37.7841 -122.0813,37.7243 -122.0133,37.6725 -121.9959,37.6526 -121.9771,37.62 -121.9696,37.5902 -121.9646,37.5605 -121.9199,37.4682 -121.8688,37.4373 -121.8451,37.4292 -121.8622,37.4161 -121.9033,37.4175 -122.1963,37.5736 -122.2056,37.6123 -122.1953,37.6455 -122.1898,37.6893 -122.1983,37.7448 -122.2178,37.7715 -122.2861,37.7677 -122.3225,37.7474 -122.3288,37.7101 -122.3377,37.5477 -122.3343,37.5239 -122.3289,37.4878 -122.319,37.4701 -122.2819,37.4625 -122.2645,37.4422 -122.2169,37.3327 -122.2122,37.2874 -122.2234,37.2478 -122.2327,37.2103 -122.2274,37.1785 -122.2182,37.1583 -122.0191,36.976 -121.9869,36.9542 -121.9107,36.921 -121.8813,36.9127 -121.8602,36.9134 -121.8184,36.9276 -121.7537,36.9388 -121.7194,36.9309 -121.6912,36.9092 -121.6396,36.8429 -121.6045,36.7712 -121.6153,36.7182 -121.64,36.6268 -121.6498,36.6076 -121.6663,36.5859 -121.6855,36.5742 -121.7062,36.5788 -121.7401,36.6003 -121.7837,36.5536 -121.7621,36.4773 -121.7385,36.4265 -121.7254,36.3931 -121.7144,36.353 -121.7049,36.3022 -121.7087,36.2747 -121.6374,36.2007 -121.5993,36.189 -121.5066,36.1424 -121.3139,35.9575 -121.3028,35.9391 -121.2839,35.8879 -121.2769,35.8541 -121.2103,35.7891 -121.1636,35.754 -121.1387,35.7259 -121.1111,35.6602 -121.0092,35.6092 -120.8905,35.4851 -120.8425,35.4395 -120.82,35.4261 -120.7629,35.4092 -120.6843,35.3156 -120.7022,35.2679 -120.7113,35.2406 -120.7131,35.2179 -120.7,35.1895 -120.6746,35.1707 -120.582,35.1254 -120.5623,35.1412 -120.5241,35.1318 -120.4617,35.1 -120.4439,35.0607 -120.4574,34.9793 -120.4682,34.8559 -120.4415,34.822 -120.435,34.672 -120.4376,34.6516 -120.4467,34.6308 -120.4673,34.6023 -120.4719,34.5851 -120.4692,34.546 -120.4492,34.5199 -120.4265,34.5236 -120.4019,34.5233 -120.3389,34.4921 -120.3254,34.4709 -120.2925,34.4171 -120.2679,34.4177 -120.1988,34.4275 -120.0888,34.435 -119.9747,34.4403 -119.8478,34.4293 -119.6429,34.3879 -119.4694,34.3862 -119.4443,34.385 -119.4219,34.382 -119.3865,34.3759 -119.2917,34.3349 -119.261,34.3193 -119.1573,34.2454 -119.1008,34.1852 -119.0648,34.1268 -119.0196,34.0979 -118.9743,34.0757 -118.8265,34.0295 -118.8067,34.0242 -118.7817,34.0174 -118.6819,33.9925 -118.6269,33.9951 -118.5981,34.0017 -118.5433,34.0079 -118.5008,34.0115 -118.4005,34.0178 -118.376,34.0097 -118.3549,33.9933 -118.3173,33.9499 -118.3005,33.9298 -118.2784,33.9013 -118.2671,33.8834 -118.2323,33.8033 -118.2446,33.7701 -118.2633,33.7439 -118.2462,33.712 -118.1642,33.683 -118.1439,33.6786 -118.1182,33.6858 -118.1135,33.7199 -118.0684,33.7466 -117.981,33.729 -117.9544,33.7193 -117.9295,33.702 -117.8918,33.6719 -117.8737,33.6565 -117.8415,33.6251 -117.8203,33.6078 -117.8016,33.5953 -117.7828,33.5831 -117.7576,33.5691 -117.7306,33.5632 -117.7105,33.5582 -117.6214,33.5021 -117.5193,33.4331 -117.479,33.4055 -117.3423,33.3049 -117.3281,33.2901 -117.2567,33.2072 -117.1875,33.1048 -117.1768,33.0876 -117.1672,33.0684 -117.1174,32.9401 -117.0973,32.8531 -117.0963,32.8344 -117.1002,32.8243 -117.1277,32.7925 -117.1062,32.7337 -117.1136,32.672 -117.116,32.6521 -117.1022,32.6205 -117.0895,32.6262 -117.0878,32.6483 -117.0763,32.6791 -117.0494,32.691 -116.9888,32.6442 -116.9644,32.6059 -116.9632,32.585 -116.9949,32.5823 -117.0214,32.6385 -117.0479,32.6612 -117.06,32.6604 -117.0602,32.6467 -117.0301,32.6227 -116.9807,32.5295 -116.9701,32.4991 -116.9428,32.5003 -116.7619,32.5159 -116.561,32.5321 -116.3566,32.5485 -116.0913,32.5695 -115.7569,32.5955 -115.4549,32.6184 -115.2538,32.6332 -115.0524,32.6481 -114.8763,32.6605 -114.7218,32.6714 -114.5806,32.681 -114.5806,32.6811 -114.5731,32.6816 -114.5699,32.6819 -114.5693,32.6819 -114.5671,32.6855 -114.5661,32.691 -114.5646,32.6938 -114.5631,32.6957 -114.5622,32.6976 -114.5607,32.6995 -114.5592,32.7009 -114.5565,32.7024 -114.555,32.7039 -114.5518,32.7049 -114.5475,32.7065 -114.5443,32.7067 -114.5405,32.7073 -114.5361,32.7071 -114.5311,32.7064 -114.5233,32.7032 -114.5189,32.7025 -114.5149,32.7013 -114.5115,32.6997 -114.5089,32.7002 -114.5028,32.6992 -114.4978,32.6981 -114.494,32.6982 -114.4907,32.6989 -114.4858,32.6987 -114.4814,32.698 -114.4738,32.6983 -114.4688,32.6972 -114.4609,32.6944 -114.4543,32.6929 -114.4504,32.6922 -114.45,32.7018 -114.4289,32.7028 -114.4295,32.7085 -114.4185,32.7082 -114.4187,32.7147 -114.4162,32.7148 -114.4161,32.7191 -114.4075,32.7185 -114.408,32.7267 -114.3995,32.7267 -114.3993,32.7306 -114.3895,32.7307 -114.3897,32.7371 -114.3851,32.7372 -114.3858,32.7453 -114.3851,32.7517 -114.3809,32.7592 -114.3815,32.7621 -114.3804,32.7651 -114.3785,32.7702 -114.3768,32.7721 -114.3734,32.776 -114.3705,32.778 -114.3667,32.7807 -114.3639,32.7827 -114.3595,32.7861 -114.3561,32.7889 -114.351,32.7922 -114.3488,32.7937 -114.3405,32.7967 -114.3342,32.797 -114.3199,32.8113 -114.3202,32.8177 -114.3188,32.8281 -114.3178,32.8409 -114.3169,32.8522 -114.3171,32.8618 -114.3206,32.8728 -114.3247,32.8829 -114.3261,32.8902 -114.3259,32.8971 -114.3235,32.9034 -114.3223,32.9072 -114.3215,32.9101 -114.3202,32.9131 -114.3196,32.9186 -114.3173,32.923 -114.317,32.925 -114.3159,32.9277 -114.3186,32.9347 -114.3234,32.9403 -114.3298,32.945 -114.3416,32.9511 -114.3485,32.9577 -114.3542,32.9692 -114.3567,32.9756 -114.362,32.9835 -114.37,32.9896 -114.3797,32.9937 -114.3872,32.9938 -114.401,32.9952 -114.4224,32.993 -114.434,32.9905 -114.445,32.9871 -114.4565,32.9869 -114.4685,32.9898 -114.4787,32.996 -114.4868,33.0002 -114.4922,33.0013 -114.4983,32.9991 -114.5055,32.9983 -114.5136,32.9999 -114.5169,33.0013 -114.5232,33.0101 -114.5268,33.017 -114.5293,33.0243 -114.5308,33.0284 -114.5324,33.0326 -114.5376,33.0404 -114.5402,33.0423 -114.5396,33.0449 -114.5415,33.0489 -114.5439,33.0515 -114.5469,33.0541 -114.5503,33.0562 -114.555,33.0567 -114.5568,33.0599 -114.5588,33.0749 -114.5585,33.0781 -114.5556,33.0818 -114.5559,33.0883 -114.554,33.0916 -114.5515,33.0949 -114.5484,33.0982 -114.5447,33.1007 -114.5418,33.1059 -114.5366,33.1075 -114.5353,33.11 -114.5336,33.1111 -114.5319,33.1153 -114.531,33.1176 -114.5288,33.1194 -114.5274,33.1233 -114.5258,33.1276 -114.5246,33.1332 -114.5244,33.1394 -114.5244,33.1424 -114.5246,33.1482 -114.5249,33.156 -114.5259,33.1595 -114.5269,33.1636 -114.5283,33.169 -114.5269,33.1732 -114.5272,33.1777 -114.5265,33.1828 -114.5267,33.185 -114.5265,33.1905 -114.5284,33.1934 -114.5299,33.1957 -114.5322,33.201 -114.5324,33.2053 -114.5326,33.2106 -114.5317,33.2126 -114.53,33.2163 -114.5273,33.2215 -114.5242,33.2275 -114.5242,33.2339 -114.5273,33.2392 -114.5308,33.2427 -114.5354,33.2452 -114.5422,33.2472 -114.5478,33.2492 -114.5539,33.2502 -114.5608,33.2544 -114.566,33.2569 -114.575,33.2606 -114.5763,33.2645 -114.5799,33.2676 -114.5819,33.2716 -114.5812,33.2771 -114.5803,33.2804 -114.5767,33.2833 -114.5727,33.289 -114.569,33.2914 -114.5686,33.2941 -114.5646,33.2989 -114.5612,33.3031 -114.5594,33.3065 -114.5566,33.3116 -114.5529,33.3118 -114.551,33.316 -114.5501,33.3183 -114.5509,33.3229 -114.5523,33.3264 -114.5531,33.3305 -114.5551,33.3349 -114.5576,33.3394 -114.5597,33.3452 -114.5623,33.351 -114.5655,33.3572 -114.5687,33.3621 -114.5696,33.367 -114.5723,33.3705 -114.5714,33.377 -114.5663,33.3765 -114.5547,33.3749 -114.5492,33.377 -114.5397,33.3805 -114.5347,33.3822 -114.52,33.3783 -114.5058,33.3757 -114.498,33.3778 -114.4902,33.3827 -114.4862,33.3868 -114.4842,33.3874 -114.4822,33.3952 -114.4788,33.3952 -114.4773,33.3998 -114.4757,33.4049 -114.4739,33.4105 -114.4681,33.4204 -114.4651,33.4277 -114.462,33.4398 -114.4597,33.442 -114.4579,33.445 -114.4548,33.4466 -114.4534,33.4483 -114.4482,33.4491 -114.4445,33.452 -114.4426,33.4562 -114.4402,33.4609 -114.4394,33.4651 -114.4369,33.4711 -114.4279,33.4756 -114.42,33.4799 -114.416,33.4849 -114.4106,33.4943 -114.4062,33.4996 -114.404,33.5023 -114.4024,33.5043 -114.3983,33.5091 -114.3943,33.5137 -114.3907,33.5175 -114.3865,33.5205 -114.3822,33.5221 -114.3779,33.5236 -114.3759,33.526 -114.3751,33.5301 -114.376,33.536 -114.379,33.5391 -114.3819,33.5412 -114.3848,33.5429 -114.3866,33.547 -114.3858,33.549 -114.3841,33.5533 -114.3841,33.5557 -114.384,33.5579 -114.3838,33.5629 -114.3815,33.5678 -114.3788,33.5753 -114.3775,33.5769 -114.375,33.5843 -114.3774,33.5914 -114.38,33.5974 -114.382,33.6052 -114.3789,33.6142 -114.3755,33.6187 -114.3747,33.6234 -114.3742,33.6268 -114.3717,33.6314 -114.3782,33.6365 -114.3825,33.6411 -114.3819,33.644 -114.3813,33.6463 -114.3817,33.6483 -114.3811,33.6506 -114.3771,33.656 -114.3703,33.6595 -114.3615,33.6602 -114.3551,33.6601 -114.3521,33.66 -114.3493,33.6618 -114.3478,33.6646 -114.3457,33.6686 -114.3421,33.6743 -114.3426,33.6802 -114.3438,33.6829 -114.3447,33.6869 -114.349,33.6926 -114.3527,33.6984 -114.3559,33.7055 -114.3567,33.7091 -114.3586,33.7143 -114.3566,33.7183 -114.3549,33.7218 -114.3538,33.7239 -114.351,33.7376 -114.3516,33.7451 -114.3533,33.753 -114.354,33.7559 -114.3564,33.7648 -114.3575,33.7666 -114.362,33.7733 -114.3637,33.7754 -114.3642,33.7792 -114.365,33.7862 -114.3678,33.7909 -114.366,33.7963 -114.3652,33.8049 -114.3735,33.8215 -114.3688,33.8299 -114.3674,33.8318 -114.3653,33.8347 -114.3633,33.8409 -114.3624,33.8441 -114.359,33.8502 -114.3559,33.8545 -114.3538,33.8564 -114.3515,33.8588 -114.3578,33.8625 -114.3615,33.8667 -114.3625,33.8704 -114.3625,33.8727 -114.3596,33.8762 -114.3557,33.8771 -114.3525,33.8769 -114.3505,33.8802 -114.3469,33.8834 -114.3455,33.8873 -114.3481,33.8896 -114.3526,33.8956 -114.3571,33.8972 -114.3608,33.9008 -114.368,33.9076 -114.3711,33.9151 -114.3721,33.9184 -114.3693,33.9253 -114.3647,33.931 -114.3609,33.9325 -114.3577,33.935 -114.3546,33.9369 -114.3487,33.9409 -114.346,33.9419 -114.3423,33.9434 -114.3368,33.9435 -114.3338,33.9493 -114.3308,33.9536 -114.3284,33.9591 -114.3221,33.9649 -114.3183,33.9655 -114.3129,33.9681 -114.3071,33.9691 -114.3051,33.9695 -114.304,33.9749 -114.2987,33.9768 -114.2914,33.9807 -114.2829,33.9855 -114.2777,33.9909 -114.2768,33.9941 -114.2752,33.9994 -114.2735,34.0038 -114.2717,34.008 -114.2716,34.0103 -114.2702,34.0156 -114.2696,34.0211 -114.2694,34.0235 -114.269,34.0291 -114.268,34.0354 -114.2673,34.0393 -114.2687,34.0507 -114.2646,34.0533 -114.2615,34.0612 -114.2599,34.0653 -114.256,34.0671 -114.2412,34.0737 -114.2321,34.078 -114.2264,34.0802 -114.2209,34.0823 -114.2125,34.0849 -114.2062,34.0888 -114.2019,34.0937 -114.1975,34.0977 -114.1908,34.1012 -114.1838,34.1041 -114.1773,34.1068 -114.1666,34.1102 -114.161,34.1132 -114.1568,34.1155 -114.1498,34.1192 -114.1392,34.1318 -114.1313,34.1362 -114.1252,34.1383 -114.1189,34.1405 -114.1125,34.1424 -114.1045,34.1448 -114.0991,34.1463 -114.0942,34.1478 -114.0872,34.1499 -114.0825,34.1526 -114.0795,34.1544 -114.0773,34.1561 -114.0733,34.1589 -114.0715,34.1611 -114.0692,34.1638 -114.0657,34.1678 -114.0639,34.1707 -114.0619,34.1739 -114.0595,34.1776 -114.0552,34.184 -114.0494,34.1855 -114.0405,34.1932 -114.0362,34.1956 -114.0284,34.2024 -114.0218,34.2061 -114.0185,34.208 -114.0123,34.217 -114.0076,34.2224 -114.0046,34.2282 -114.0001,34.2317 -113.9963,34.2326 -113.9934,34.2333 -113.9884,34.2345 -113.9783,34.2369 -113.977,34.2372 -113.9717,34.2386 -113.9698,34.242 -113.9711,34.2445 -113.9718,34.2469 -113.9755,34.2543 -113.978,34.2583 -113.9783,34.2624 -113.9781,34.2662 -113.978,34.2684 -113.9796,34.2726 -113.9806,34.2772 -113.9806,34.2805 -113.9844,34.2867 -113.9898,34.2933 -113.9952,34.299 -113.9999,34.3024 -114.0048,34.3094 -114.0132,34.3182 -114.0163,34.323 -114.0227,34.3278 -114.0285,34.3311 -114.0332,34.3337 -114.0389,34.3361 -114.0469,34.3374 -114.0514,34.3397 -114.0588,34.3408 -114.0619,34.346 -114.0682,34.3494 -114.0792,34.3553 -114.0857,34.359 -114.0944,34.364 -114.1051,34.3699 -114.112,34.3737 -114.1191,34.3758 -114.1332,34.3835 -114.1358,34.3875 -114.1375,34.3901 -114.1412,34.395 -114.1462,34.3987 -114.1491,34.4021 -114.1527,34.4042 -114.1605,34.4098 -114.1679,34.4113 -114.1709,34.4135 -114.1748,34.4163 -114.1773,34.4173 -114.1826,34.4206 -114.1848,34.4219 -114.1899,34.423 -114.2011,34.4248 -114.2078,34.4215 -114.2099,34.4217 -114.2122,34.4221 -114.2155,34.4227 -114.2183,34.4232 -114.2204,34.4251 -114.2221,34.4266 -114.2269,34.4307 -114.2279,34.4357 -114.2276,34.4434 -114.2262,34.4507 -114.226,34.4584 -114.2251,34.4675 -114.2224,34.4821 -114.2216,34.4862 -114.2209,34.4917 -114.2211,34.4949 -114.2218,34.4971 -114.2233,34.5025 -114.2283,34.5062 -114.2272,34.5101 -114.2291,34.5132 -114.2334,34.5189 -114.2366,34.5246 -114.2416,34.5321 -114.2477,34.5401 -114.2562,34.5497 -114.2638,34.5543 -114.2719,34.5589 -114.2751,34.5611 -114.2808,34.5649 -114.2804,34.5676 -114.2783,34.5691 -114.2761,34.5701 -114.2726,34.5707 -114.2713,34.573 -114.2689,34.5772 -114.2701,34.5804 -114.2726,34.5848 -114.2758,34.5892 -114.2771,34.5928 -114.2798,34.5986 -114.2812,34.6045 -114.2829,34.6112 -114.2856,34.6151 -114.2895,34.6204 -114.2916,34.6246 -114.2938,34.6268 -114.2956,34.6299 -114.2975,34.6365 -114.2991,34.6422 -114.3,34.6451 -114.3028,34.6547 -114.3036,34.6573 -114.3051,34.6599 -114.3076,34.6644 -114.3105,34.6697 -114.3116,34.6718 -114.3132,34.6752 -114.3146,34.678 -114.3173,34.684 -114.3249,34.6928 -114.3303,34.6988 -114.3344,34.701 -114.338,34.703 -114.3406,34.7068 -114.3443,34.7107 -114.3488,34.7119 -114.3561,34.7124 -114.362,34.7121 -114.3658,34.7136 -114.3719,34.715 -114.3768,34.7177 -114.3816,34.7203 -114.3886,34.7258 -114.3911,34.7308 -114.3963,34.7415 -114.4007,34.7472 -114.4041,34.7552 -114.4044,34.7597 -114.4094,34.7668 -114.4097,34.7718 -114.415,34.7796 -114.4121,34.7816 -114.414,34.7925 -114.4167,34.7978 -114.4215,34.8021 -114.4271,34.8037 -114.4293,34.8072 -114.4338,34.8113 -114.4432,34.8196 -114.4443,34.8215 -114.4577,34.83 -114.4658,34.8379 -114.4756,34.8476 -114.4754,34.8527 -114.4752,34.8569 -114.475,34.8603 -114.4747,34.8634 -114.4743,34.8661 -114.4736,34.8706 -114.4731,34.8739 -114.4736,34.8788 -114.4766,34.8814 -114.4769,34.8854 -114.4754,34.8905 -114.4736,34.8938 -114.4727,34.897 -114.4692,34.8994 -114.4683,34.902 -114.4678,34.9063 -114.4675,34.9096 -114.4685,34.9159 -114.4703,34.9249 -114.4729,34.9371 -114.4715,34.9457 -114.4724,34.9521 -114.4734,34.9566 -114.4762,34.9596 -114.4774,34.9616 -114.4787,34.9639 -114.479,34.9668 -114.4786,34.97 -114.4806,34.975 -114.4823,34.9812 -114.4848,34.9851 -114.4861,34.9878 -114.4875,34.9909 -114.488,34.9977 -114.4867,35.0028 -114.4843,35.0088 -114.4823,35.0126 -114.4782,35.0145 -114.4755,35.0159 -114.4689,35.0209 -114.4665,35.0221 -114.4628,35.0252 -114.4609,35.0265 -114.4576,35.0288 -114.4528,35.0322 -114.4493,35.0382 -114.4497,35.0437 -114.4516,35.0468 -114.4553,35.0507 -114.46,35.0541 -114.4654,35.0584 -114.4729,35.0612 -114.48,35.0659 -114.486,35.0706 -114.4868,35.0737 -114.4875,35.076 -114.4872,35.0796 -114.4855,35.087 -114.4841,35.0898 -114.4787,35.0932 -114.4757,35.0986 -114.4729,35.0999 -114.4678,35.1002 -114.4591,35.0994 -114.4487,35.0984 -114.438,35.0991 -114.436,35.0997 -114.4338,35.0993 -114.4287,35.1024 -114.4255,35.1053 -114.4224,35.1096 -114.4197,35.1192 -114.4185,35.1257 -114.4193,35.1293 -114.419,35.1325 -114.4192,35.1352 -114.42,35.1388 -114.4204,35.1438 -114.4212,35.1469 -114.4202,35.1492 -114.4188,35.1529 -114.4185,35.157 -114.4182,35.1598 -114.4179,35.163 -114.4175,35.1662 -114.4172,35.1698 -114.4169,35.1803 -114.4159,35.1908 -114.417,35.198 -114.4191,35.2034 -114.4231,35.2114 -114.4239,35.2154 -114.4266,35.2208 -114.4287,35.2266 -114.4285,35.2311 -114.4303,35.2333 -114.4328,35.2446 -114.4335,35.2532 -114.4353,35.2558 -114.4374,35.2603 -114.4404,35.2633 -114.4414,35.2687 -114.4431,35.2764 -114.4414,35.2842 -114.4414,35.2919 -114.4413,35.2992 -114.4413,35.3069 -114.4396,35.3138 -114.4411,35.3192 -114.4435,35.3286 -114.4497,35.3365 -114.4568,35.348 -114.4646,35.3626 -114.471,35.3728 -114.4774,35.3825 -114.4851,35.3949 -114.493,35.4104 -114.5023,35.429 -114.512,35.4449 -114.5215,35.459 -114.5232,35.4658 -114.5242,35.4725 -114.524,35.4776 -114.5196,35.4858 -114.5181,35.4889 -114.5178,35.4913 -114.5155,35.4939 -114.5125,35.4975 -114.5081,35.4994 -114.5036,35.5072 -114.5034,35.5117 -114.5039,35.5185 -114.5037,35.524 -114.5028,35.5268 -114.5014,35.5305 -114.5,35.5346 -114.5013,35.5377 -114.5026,35.54 -114.5087,35.546 -114.512,35.5513 -114.5133,35.554 -114.5123,35.5563 -114.508,35.5583 -114.5037,35.5617 -114.4955,35.5662 -114.4925,35.5714 -114.4907,35.5783 -114.4918,35.5846 -114.4955,35.5885 -114.4997,35.5919 -114.5037,35.5931 -114.5046,35.5971 -114.509,35.6028 -114.5094,35.6078 -114.5148,35.6121 -114.5215,35.6186 -114.524,35.6221 -114.5255,35.6261 -114.5252,35.6303 -114.5251,35.6357 -114.5254,35.6398 -114.522,35.6481 -114.5185,35.6547 -114.5181,35.657 -114.519,35.6606 -114.5232,35.6635 -114.528,35.6669 -114.5329,35.6722 -114.5391,35.6791 -114.5406,35.6845 -114.5404,35.6886 -114.5391,35.695 -114.5381,35.7037 -114.5368,35.7092 -114.5366,35.7143 -114.5357,35.717 -114.535,35.723 -114.5369,35.7333 -114.5403,35.7413 -114.5399,35.7509 -114.5393,35.7578 -114.5409,35.7636 -114.5446,35.768 -114.5454,35.7711 -114.5463,35.7752 -114.546,35.7793 -114.5441,35.7843 -114.542,35.7863 -114.54,35.7895 -114.539,35.7923 -114.5392,35.795 -114.5401,35.7986 -114.5441,35.8066 -114.5456,35.8111 -114.547,35.8147 -114.5455,35.8184 -114.5435,35.8212 -114.5419,35.8226 -114.5391,35.8228 -114.5368,35.8233 -114.5353,35.8252 -114.5332,35.8285 -114.5272,35.8315 -114.5156,35.8362 -114.513,35.839 -114.5126,35.8422 -114.514,35.8458 -114.5165,35.8479 -114.5225,35.8522 -114.5261,35.8543 -114.5319,35.8567 -114.5367,35.8602 -114.5409,35.8622 -114.5428,35.8658 -114.5467,35.871 -114.5493,35.8755 -114.5512,35.879 -114.5534,35.8853 -114.5537,35.8913 -114.5538,35.8935 -114.5569,35.8942 -114.5611,35.8972 -114.5665,35.9001 -114.5733,35.9075 -114.5766,35.9128 -114.5774,35.9159 -114.578,35.9245 -114.5788,35.9277 -114.5802,35.9312 -114.5831,35.9397 -114.5856,35.9423 -114.5897,35.9508 -114.5906,35.9557 -114.5909,35.9598 -114.5906,35.963 -114.5912,35.9707 -114.5864,35.975 -114.58,35.9812 -114.5721,35.9863 -114.5693,35.9899 -114.568,35.9959 -114.5687,36.0045 -114.572,36.0112 -114.5776,36.0168 -114.5814,36.0225 -114.5823,36.0266 -114.5844,36.0319 -114.5836,36.0365 -114.5831,36.0438 -114.5803,36.0526 -114.5756,36.0583 -114.5679,36.0642 -114.5644,36.0681 -114.5592,36.0712 -114.5442,36.0768 -114.5383,36.0803 -114.5336,36.0831 -114.5303,36.0848 -114.5226,36.0881 -114.5188,36.0887 -114.5129,36.0943 -114.506,36.0964 -114.5015,36.0968 -114.498,36.0971 -114.494,36.0992 -114.4912,36.1006 -114.489,36.1011 -114.4771,36.1058 -114.4747,36.1068 -114.468,36.1079 -114.4618,36.1078 -114.4505,36.1053 -114.4448,36.1032 -114.4378,36.1066 -114.4346,36.1082 -114.4293,36.1103 -114.4184,36.1157 -114.4165,36.1164 -114.4076,36.1179 -114.4016,36.1188 -114.3944,36.1208 -114.3908,36.1205 -114.3856,36.1212 -114.377,36.1211 -114.3697,36.1191 -114.3606,36.1166 -114.3533,36.1133 -114.3472,36.11 -114.336,36.1034 -114.3264,36.0991 -114.3231,36.0968 -114.3181,36.0931 -114.3131,36.0907 -114.3043,36.0914 -114.3004,36.0934 -114.2976,36.0945 -114.2925,36.0947 -114.2846,36.096 -114.28,36.0948 -114.2748,36.0951 -114.2717,36.0946 -114.2674,36.0949 -114.2641,36.096 -114.2608,36.098 -114.2587,36.1008 -114.2533,36.1056 -114.2447,36.1119 -114.2388,36.1136 -114.2353,36.1146 -114.2272,36.117 -114.2211,36.1146 -114.2131,36.1139 -114.2092,36.1125 -114.2002,36.1082 -114.1907,36.1034 -114.1829,36.0965 -114.1808,36.0923 -114.1787,36.0877 -114.1731,36.0849 -114.167,36.0811 -114.1625,36.0774 -114.1598,36.0733 -114.1572,36.0664 -114.1562,36.0632 -114.1534,36.0609 -114.1518,36.0581 -114.1503,36.0531 -114.1504,36.0494 -114.1528,36.0463 -114.1556,36.0455 -114.1559,36.0376 -114.1569,36.0344 -114.1575,36.0322 -114.1555,36.0282 -114.1518,36.0268 -114.1474,36.0231 -114.1378,36.0197 -114.1311,36.0172 -114.1249,36.0139 -114.1177,36.0083 -114.1122,36.0032 -114.1067,35.9994 -114.1,35.9952 -114.0922,35.99 -114.0799,35.9843 -114.0736,35.9803 -114.0696,35.9807 -114.0677,35.9801 -114.0639,35.9815 -114.0604,35.9816 -114.0577,35.9826 -114.0531,35.9827 -114.0499,35.9838 -114.0469,35.9842 -114.041,35.9871 -114.0388,35.9877 -114.0325,35.99 -114.0273,35.993 -114.0209,35.9947 -114.0141,35.9959 -114.0084,35.9962 -114.0004,35.9969 -113.9923,35.9986 -113.9861,36.0011 -113.9852,36.0048 -113.9822,36.0103 -113.9755,36.0302 -113.972,36.0458 -113.9677,36.0659 -113.9626,36.083 -113.9563,36.0914 -113.9509,36.0962 -113.9473,36.1013 -113.9318,36.117 -113.9209,36.1334 -113.9117,36.1501 -113.9052,36.1554 -113.9015,36.1587 -113.8976,36.1607 -113.8949,36.1635 -113.8929,36.1668 -113.8925,36.17 -113.8922,36.1745 -113.8921,36.1895 -113.8944,36.2062 -113.8929,36.2277 -113.8932,36.2477 -113.8933,36.2494 -113.8915,36.2654 -113.8938,36.2839 -113.8929,36.304 -113.8928,36.328 -113.8931,36.3814 -113.8934,36.422 -113.8924,36.5878 -113.8943,36.6413 -113.8927,36.6941 -113.8937,36.8079 -113.8902,36.8078 -113.8906,36.8812 -113.8908,36.9308 -113.8908,36.9643 -113.891,37.2088 -113.8944,37.5169 -113.8937,37.5645 -113.8945,37.7772 -113.8944,37.9259 -113.8937,38.0592 -113.8937,38.1036 -113.8938,38.232 -113.8938,38.3063 -113.8931,38.397 -113.8928,38.4913 -113.8915,38.5371 -113.891,38.5643 -113.8888,38.6055 -113.8912,38.6337 -113.8907,38.645 -113.8918,38.7634 -113.8904,38.8699 -113.8894,38.9837 -113.8882,39.0857 -113.888,39.2077 -113.8882,39.3025 -113.8884,39.3714 -113.8881,39.4226 -113.8865,39.5047 -113.8867,39.5428 -113.8872,39.6054 -113.8867,39.6467 -113.8864,39.6965 -113.8859,39.7523 -113.8862,39.8172 -113.8873,39.8485 -113.8863,39.8748 -113.8875,39.917 -113.8864,39.9288 -113.886,39.9392 -113.8857,39.9909 -113.8854,40.0403 -113.8845,40.0771 -113.8837,40.1696 -113.8842,40.2889 -113.8845,40.3406 -113.8866,40.3819 -113.8866,40.4686 -113.8859,40.5448 -113.8856,40.6092 -113.8862,40.6691 -113.8858,40.6868 -113.885,40.7191 -113.8865,40.8062 -113.8862,40.8402 -113.8858,40.8956 -113.8855,40.912 -113.8846,40.9637 -113.8854,41.1921 -113.8852,41.3551 -113.8852,41.3834 -113.8848,41.5122 -113.8859,41.7193 -113.886,41.8315 -113.8866,41.9356 -113.8855,41.9613 -114.1154,41.9585 -114.4674,41.9587 -114.8701,41.9591 -115.8254,41.9579 -116.0081,41.9595 -116.1434,41.9607 -116.2199,41.9613 -116.2798,41.9614 -116.5151,41.9607 -116.5231,41.9606 -116.6601,41.959 -116.8387,41.957 -116.8658,41.9551 -116.8652,41.9609 -116.8655,42.3696 -118.0529,42.3647 -118.0553,42.8706 -118.0653,42.8705 -118.0661,43.1307 -118.0674,43.1689 -118.0651,43.2854 -118.0668,43.4187 -118.0733,43.7428 -118.0669,43.7433 -118.0715,43.996 -118.0723,44.0808 -118.0711,44.084 -118.0701,44.0945 -118.0722,44.1063 -118.0737,44.1177 -118.0751,44.13 -118.0766,44.14 -118.0748,44.1441 -118.076,44.2125 -118.0422,44.2128 -118.0405,44.2256 -117.9978,44.2273 -117.9989,44.2546 -117.9798,44.2566 -117.98,44.2712 -117.9577,44.2732 -117.9572,44.2851 -117.9349,44.2871 -117.9366,44.3126 -117.9175,44.3141 -117.9189,44.3264 -117.8979,44.3289 -117.8975,44.3457 -117.8777,44.3473 -117.878,44.3696 -117.857,44.3707 -117.8579,44.3889 -117.8099,44.392 -117.8101,44.4048 -117.4371,44.406 -117.4345,44.3919 -117.4108,44.3911 -117.4113,44.3792 -117.3749,44.3776 -117.3735,44.3643 -117.3524,44.3631 -117.3503,44.3462 -117.3318,44.3458 -117.3293,44.2647 -117.1099,44.2664 -117.0637,44.2667 -117.0592,44.2727 -117.0542,44.2809 -117.0497,44.2891 -117.0478,44.2978 -117.0478,44.3055 -117.053,44.3164 -117.062,44.3246 -117.0735,44.3328 -117.0786,44.3401 -117.0812,44.3474 -117.0832,44.3561 -117.0787,44.367 -117.073,44.378 -117.0673,44.3862 -117.0654,44.3894 -117.0635,44.3939 -117.0635,44.3989 -117.0629,44.4053 -117.0642,44.4108 -117.0674,44.4185 -117.0725,44.4263 -117.0738,44.4295 -117.0738,44.4331 -117.0706,44.4391 -117.0662,44.4418 -117.0611,44.4473 -117.0566,44.4496 -117.0502,44.4519 -117.0464,44.456 -117.0425,44.4614 -117.0415,44.464 -117.0406,44.466 -117.0362,44.4756 -117.0346,44.477 -117.0304,44.4797 -117.0202,44.4829 -117.0151,44.4852 -117.0093,44.4884 -117.001,44.4934 -116.9965,44.4971 -116.9914,44.5007 -116.9895,44.5048 -116.9901,44.5103 -116.9902,44.5162 -116.9921,44.5212 -116.9902,44.5254 -116.9876,44.5285 -116.9831,44.5313 -116.9799,44.5331 -116.9787,44.5349 -116.9767,44.5386 -116.9761,44.5432 -116.9697,44.5664 -116.964,44.5765 -116.9595,44.586 -116.9537,44.592 -116.9486,44.5965 -116.9467,44.6016 -116.9454,44.6098 -116.9403,44.6235 -116.9378,44.6285 -116.932,44.6353 -116.9301,44.6422 -116.9269,44.6513 -116.9256,44.6554 -116.9198,44.6591 -116.9128,44.6636 -116.9108,44.6682 -116.9089,44.6791 -116.907,44.6828 -116.9012,44.6933 -116.8961,44.6997 -116.8935,44.7056 -116.8858,44.7152 -116.8755,44.7179 -116.8537,44.7229 -116.8402,44.7243 -116.828,44.7302 -116.8196,44.7339 -116.8125,44.7375 -116.7977,44.7421 -116.7913,44.7462 -116.7862,44.7494 -116.781,44.7572 -116.7784,44.7663 -116.7765,44.7736 -116.7733,44.7781 -116.7688,44.7841 -116.7662,44.7891 -116.7623,44.7914 -116.7559,44.795 -116.7507,44.795 -116.7488,44.8009 -116.7475,44.8101 -116.7436,44.8146 -116.7346,44.8183 -116.7243,44.8265 -116.7133,44.8347 -116.7082,44.8438 -116.7017,44.8547 -116.6939,44.8639 -116.6849,44.8762 -116.6817,44.8862 -116.6816,44.8981 -116.6906,44.9145 -116.6938,44.9209 -116.6919,44.9273 -116.6854,44.93 -116.6809,44.9346 -116.6783,44.9373 -116.6789,44.9424 -116.6822,44.9424 -116.6912,44.941 -116.6944,44.9378 -116.6989,44.9401 -116.7021,44.946 -116.697,44.9565 -116.6944,44.9661 -116.6995,44.9766 -116.7008,44.983 -116.6937,44.9885 -116.684,44.9944 -116.6768,45.0017 -116.6736,45.0072 -116.6665,45.009 -116.6607,45.0122 -116.6536,45.0158 -116.6471,45.0218 -116.6445,45.0263 -116.6406,45.03 -116.6361,45.0336 -116.6341,45.0368 -116.6335,45.0418 -116.6334,45.0523 -116.6283,45.0587 -116.6244,45.0656 -116.6172,45.0692 -116.6075,45.0724 -116.6056,45.0751 -116.603,45.0865 -116.5952,45.0934 -116.5926,45.0965 -116.5874,45.1007 -116.5829,45.1034 -116.5783,45.1143 -116.5763,45.1225 -116.5718,45.1276 -116.5685,45.1344 -116.5659,45.1408 -116.562,45.1508 -116.56,45.1613 -116.5593,45.17 -116.558,45.1814 -116.556,45.1887 -116.5527,45.196 -116.5507,45.2006 -116.5488,45.2065 -116.5468,45.212 -116.5435,45.2184 -116.5396,45.223 -116.5351,45.2284 -116.5312,45.2362 -116.5292,45.2458 -116.5291,45.254 -116.5284,45.2627 -116.5271,45.2736 -116.5251,45.2805 -116.5218,45.2928 -116.5185,45.3015 -116.514,45.3074 -116.5062,45.312 -116.4984,45.3183 -116.4931,45.3297 -116.4872,45.3393 -116.48,45.3484 -116.4722,45.3576 -116.4624,45.3676 -116.4552,45.3744 -116.45,45.3794 -116.4448,45.3863 -116.4434,45.3954 -116.4382,45.4032 -116.429,45.4127 -116.4199,45.4191 -116.412,45.4259 -116.4068,45.4396 -116.4073,45.4506 -116.4008,45.4597 -116.3903,45.4716 -116.3818,45.4789 -116.3694,45.4889 -116.3478,45.5039 -116.3393,45.5134 -116.3327,45.5221 -116.3248,45.5321 -116.3209,45.5394 -116.3156,45.5476 -116.3167,45.5723 -116.3212,45.5774 -116.3257,45.582 -116.3296,45.5888 -116.3348,45.5943 -116.3425,45.604 -116.3483,45.6113 -116.3535,45.6186 -116.3612,45.6306 -116.365,45.6425 -116.3643,45.6498 -116.3655,45.6608 -116.3701,45.6672 -116.3745,45.6768 -116.3784,45.6823 -116.3836,45.6878 -116.3914,45.6974 -116.3952,45.7029 -116.3998,45.708 -116.4069,45.7135 -116.4121,45.7153 -116.418,45.7176 -116.4251,45.7204 -116.433,45.72 -116.4414,45.726 -116.4538,45.7297 -116.4662,45.7329 -116.4746,45.7352 -116.4896,45.7412 -116.5007,45.7467 -116.5111,45.7559 -116.5208,45.7618 -116.5306,45.7692 -116.5358,45.7738 -116.5403,45.7774 -116.5462,45.7839 -116.5495,45.7852 -116.5625,45.7876 -116.571,45.788 -116.5828,45.7867 -116.5919,45.7844 -116.6108,45.7845 -116.62,45.7858 -116.6291,45.7932 -116.6343,45.8005 -116.6349,45.8051 -116.6375,45.8119 -116.6401,45.8165 -116.646,45.8216 -116.6493,45.8248 -116.6525,45.8316 -116.6584,45.8348 -116.6623,45.839 -116.6688,45.8417 -116.6773,45.8472 -116.6812,45.8491 -116.689,45.8541 -116.693,45.8605 -116.6969,45.8651 -116.7027,45.8697 -116.706,45.8797 -116.7079,45.8889 -116.7138,45.8962 -116.7197,45.9077 -116.7255,45.9145 -116.7295,45.92 -116.741,45.9332 -116.7419,45.9352 -116.7425,45.9402 -116.7445,45.9466 -116.7471,45.948 -116.7523,45.9512 -116.7589,45.9539 -116.7607,45.9558 -116.7634,45.959 -116.7654,45.9613 -116.7667,45.9645 -116.768,45.9672 -116.7687,45.9704 -116.77,45.9732 -116.7719,45.9768 -116.7752,45.9805 -116.7772,45.9841 -116.7778,45.9887 -116.7791,45.9951 -116.7811,45.9974 -116.787,46.0011 -116.7929,46.0061 -116.7987,46.0185 -116.8001,46.0231 -116.8007,46.0267 -116.804,46.0318 -116.8066,46.034 -116.8118,46.0382 -116.8158,46.0414 -116.8197,46.0423 -116.8243,46.0432 -116.8276,46.0432 -116.8309,46.0437 -116.8328,46.0441 -116.8335,46.0473 -116.8328,46.0496 -116.8289,46.0519 -116.8243,46.0547 -116.8204,46.0569 -116.8171,46.0579 -116.8138,46.0592 -116.8099,46.0615 -116.8079,46.0634 -116.8059,46.0666 -116.8046,46.073 -116.8046,46.0766 -116.8033,46.0798 -116.8013,46.0858 -116.7994,46.0904 -116.7954,46.094 -116.7895,46.0991 -116.7882,46.1068 -116.7869,46.1119 -116.7842,46.1155 -116.781,46.1197 -116.7783,46.1247 -116.7757,46.127 -116.7757,46.1316 -116.7796,46.1357 -116.7855,46.1421 -116.7921,46.1476 -116.796,46.1531 -116.8105,46.1604 -116.8138,46.1636 -116.8151,46.17 -116.817,46.1751 -116.817,46.1787 -116.8151,46.1966 -116.8157,46.203 -116.817,46.209 -116.819,46.2154 -116.8216,46.2204 -116.8256,46.2264 -116.8302,46.2305 -116.8341,46.2342 -116.8374,46.2406 -116.8394,46.2461 -116.8407,46.2516 -116.8413,46.2575 -116.8433,46.2621 -116.8479,46.2685 -116.8512,46.2703 -116.8565,46.2722 -116.8611,46.2768 -116.8644,46.2855 -116.8668,46.2885 -116.8683,46.2905 -116.8703,46.2946 -116.8729,46.2983 -116.8742,46.3015 -116.8808,46.3061 -116.8867,46.3074 -116.8933,46.3084 -116.8993,46.3093 -116.9032,46.3097 -116.9104,46.3148 -116.9105,46.3194 -116.9078,46.3271 -116.9059,46.3326 -116.9052,46.3391 -116.8999,46.3427 -116.8907,46.3546 -116.8894,46.3597 -116.8894,46.3675 -116.8881,46.3739 -116.8855,46.3785 -116.8842,46.3826 -116.8835,46.3867 -116.8835,46.3918 -116.8848,46.3941 -116.8882,46.5027 -116.5548,46.4996 -116.5521,46.5051 -116.5508,46.5097 -116.5495,46.5157 -116.5481,46.5211 -116.5461,46.5285 -116.5434,46.5344 -116.5408,46.5376 -116.5328,46.544 -116.5262,46.5491 -116.5202,46.5532 -116.5176,46.5568 -116.5149,46.56 -116.5036,46.5646 -116.4937,46.5692 -116.4891,46.5714 -116.4857,46.5774 -116.4771,46.581 -116.4698,46.5856 -116.4632,46.587 -116.4539,46.5865 -116.4534,46.5866 -116.4467,46.5878 -116.3092,46.5878 -116.3023,46.4594 -116.2904,46.4575 -116.2759,46.4566 -116.2198,46.4591 -116.2182,46.4335 -116.2181,46.432 -116.2232,46.432 -116.2267,46.4321 -116.2346,46.4303 -116.2412,46.4296 -116.2486,46.4288 -116.2518,46.4285 -116.2557,46.4276 -116.2577,46.4262 -116.2597,46.4244 -116.2584,46.4203 -116.2539,46.4116 -116.2487,46.4037 -116.2448,46.3982 -116.2383,46.3913 -116.2379,46.3911 -116.2329,46.3878 -116.2284,46.3849 -116.2166,46.3802 -116.2081,46.3756 -116.2086,46.3731 -116.2095,46.3683 -116.2102,46.361 -116.207,46.3509 -116.2064,46.3444 -116.208,46.3409 -116.2085,46.3399 -116.2093,46.3391 -116.2131,46.3358 -116.2138,46.3307 -116.2129,46.3269 -116.2125,46.3252 -116.2124,46.3232 -116.212,46.317 -116.214,46.311 -116.2232,46.3088 -116.2311,46.3088 -116.2476,46.3103 -116.2588,46.3112 -116.2647,46.3103 -116.2805,46.3067 -116.2884,46.3095 -116.2936,46.3118 -116.3015,46.3123 -116.3134,46.311 -116.3167,46.3099 -116.3227,46.308 -116.3246,46.3074 -116.3267,46.3057 -116.3293,46.3037 -116.3332,46.3001 -116.3359,46.2941 -116.3379,46.2891 -116.3393,46.2859 -116.5564,46.287 -116.5565,46.2868 -116.5604,46.2806 -116.5617,46.2733 -116.5598,46.2632 -116.5611,46.2581 -116.5579,46.2522 -116.5506,46.2494 -116.5421,46.2434 -116.5448,46.2366 -116.5428,46.2306 -116.533,46.2237 -116.5291,46.2214 -116.5238,46.2173 -116.5219,46.2127 -116.5219,46.2077 -116.5226,46.2054 -116.5259,46.2022 -116.5325,46.199 -116.5397,46.194 -116.5411,46.1908 -116.5421,45.9577 -116.5382,45.9564 -116.5231,45.9568 -116.5088,45.9535 -116.4989,45.9517 -116.4852,45.9571 -116.4841,45.9645 -116.4838,45.9649 -116.4838,45.9667 -116.4877,45.9754 -116.4857,45.9805 -116.4857,45.9864 -116.4839,45.9891 -116.4824,45.9915 -116.4771,45.9951 -116.4692,45.9965 -116.4614,45.996 -116.4588,45.9941 -116.4561,45.9946 -116.4555,45.9923 -116.4542,45.9905 -116.4529,45.9813 -116.4536,45.9786 -116.4549,45.9754 -116.4563,45.9731 -116.455,45.9712 -116.4543,45.9708 -116.451,45.9703 -116.4471,45.9698 -116.4425,45.9694 -116.436,45.9689 -116.4301,45.9666 -116.4242,45.9652 -116.4177,45.9629 -116.4131,45.9606 -116.4099,45.9578 -116.4066,45.9546 -116.3962,45.9431 -116.3936,45.9399 -116.3897,45.9381 -116.3877,45.9376 -116.3858,45.9367 -116.3832,45.9362 -116.3812,45.9358 -116.3779,45.9362 -116.376,45.9367 -116.3727,45.9371 -116.3688,45.938 -116.3629,45.9389 -116.3556,45.9412 -116.3511,45.9416 -116.3432,45.943 -116.336,45.9434 -116.3281,45.9429 -116.3196,45.9419 -116.3066,45.9373 -116.3007,45.935 -116.2961,45.9327 -116.2922,45.9295 -116.2896,45.9267 -116.2858,45.9221 -116.2825,45.9153 -116.2729,45.8951 -116.2703,45.8905 -116.2697,45.8873 -116.2671,45.8836 -116.2652,45.8813 -116.2639,45.8799 -116.2613,45.8786 -116.2587,45.8781 -116.2567,45.8785 -116.2548,45.8776 -116.2541,45.8767 -116.2548,45.8758 -116.2548,45.874 -116.2541,45.8712 -116.2522,45.8694 -116.247,45.8671 -116.2444,45.8661 -116.2411,45.8666 -116.2398,45.8661 -116.2378,45.8675 -116.2372,45.8688 -116.2352,45.8693 -116.2326,45.8688 -116.23,45.8693 -116.2274,45.8688 -116.2084,45.8646 -116.2013,45.8618 -116.1935,45.859 -116.1883,45.8558 -116.1824,45.853 -116.172,45.8507 -116.1674,45.8484 -116.1622,45.8461 -116.1603,45.8433 -116.1564,45.8396 -116.1551,45.8364 -116.1525,45.8323 -116.1506,45.8291 -116.1468,45.8236 -116.1429,45.8194 -116.1409,45.8176 -116.1397,45.8093 -116.1398,45.8039 -116.1425,45.797 -116.1438,45.7911 -116.1472,45.7856 -116.1492,45.7815 -116.1545,45.771 -116.1565,45.7655 -116.1566,45.76 -116.1586,45.755 -116.1586,45.7504 -116.1619,45.744 -116.1639,45.7408 -116.1653,45.7367 -116.1673,45.7271 -116.1688,45.7171 -116.1675,45.7111 -116.1663,45.7066 -116.163,45.7029 -116.1592,45.6987 -116.1572,45.6955 -116.1566,45.6928 -116.1566,45.6914 -116.1573,45.6896 -116.158,45.6868 -116.1593,45.685 -116.1606,45.6814 -116.162,45.6759 -116.162,45.6718 -116.1595,45.6681 -116.1538,45.6507 -116.1525,45.6475 -116.1525,45.6466 -116.1532,45.6447 -116.1539,45.6438 -116.1558,45.6416 -116.1585,45.6384 -116.1618,45.6343 -116.1624,45.6324 -116.1599,45.6306 -116.156,45.6297 -116.1527,45.6283 -116.1469,45.6273 -116.1404,45.6264 -116.1338,45.6259 -116.1326,45.6241 -116.1319,45.6236 -116.13,45.6208 -116.1307,45.6199 -116.1313,45.6186 -116.132,45.6172 -116.1327,45.6154 -116.1353,45.6117 -116.136,45.609 -116.1353,45.6072 -116.1341,45.6049 -116.1328,45.6035 -116.127,45.5998 -116.127,45.5957 -116.1277,45.5943 -116.1303,45.5939 -116.1335,45.5934 -116.1388,45.593 -116.1433,45.5903 -116.144,45.5885 -116.1447,45.5871 -116.1447,45.5862 -116.144,45.5857 -116.1428,45.5821 -116.1415,45.5839 -116.1369,45.5825 -116.1343,45.5815 -116.1317,45.5802 -116.1285,45.5797 -116.1265,45.5788 -116.1252,45.5774 -116.1233,45.5751 -116.1214,45.5723 -116.1208,45.5691 -116.1202,45.5655 -116.1208,45.5632 -116.1222,45.5618 -116.1248,45.5605 -116.1294,45.5568 -116.1333,45.5523 -116.1445,45.5405 -116.1459,45.5368 -116.1479,45.5318 -116.1466,45.529 -116.146,45.5267 -116.146,45.5249 -116.1454,45.5231 -116.1454,45.5208 -116.1448,45.5185 -116.1461,45.5112 -116.1474,45.5098 -116.1501,45.5067 -116.1527,45.5021 -116.1534,45.4971 -116.1541,45.4957 -116.1535,45.493 -116.1528,45.4916 -116.1496,45.4879 -116.1484,45.4852 -116.1445,45.476 -116.1446,45.4691 -116.1453,45.4678 -116.1466,45.466 -116.1486,45.4637 -116.1512,45.4619 -116.1538,45.4605 -116.1571,45.4587 -116.1597,45.4569 -116.161,45.4546 -116.1611,45.4509 -116.1598,45.4496 -116.1605,45.4464 -116.1579,45.4418 -116.1567,45.4336 -116.1561,45.4253 -116.1568,45.4217 -116.1588,45.4176 -116.1621,45.413 -116.1634,45.4084 -116.1628,45.4071 -116.1615,45.4057 -116.1589,45.4043 -116.1551,45.4002 -116.1512,45.3947 -116.15,45.3887 -116.1507,45.3823 -116.154,45.3782 -116.1508,45.3787 -116.141,45.3782 -116.1293,45.3781 -116.1222,45.3776 -116.1131,45.3766 -116.1086,45.3771 -116.1015,45.3752 -116.0944,45.3729 -116.0892,45.3701 -116.0834,45.3664 -116.0776,45.3632 -116.0724,45.3609 -116.0634,45.359 -116.0569,45.3585 -116.0523,45.3585 -116.0465,45.3594 -116.0406,45.3607 -116.038,45.363 -116.036,45.3639 -116.0295,45.3684 -116.0275,45.3707 -116.0236,45.3743 -116.0203,45.3757 -116.0177,45.3766 -116.0138,45.3774 -116.0099,45.3774 -116.004,45.3801 -115.9995,45.3815 -115.9923,45.3828 -115.9878,45.3837 -115.9832,45.3836 -115.9787,45.3823 -115.9761,45.3809 -115.9735,45.379 -115.9723,45.3758 -115.971,45.3731 -115.9717,45.3703 -115.9711,45.3685 -115.9646,45.3652 -115.9601,45.3638 -115.9517,45.3629 -115.9478,45.3638 -115.9452,45.3651 -115.9412,45.3674 -115.9367,45.3687 -115.9321,45.3691 -115.9269,45.3714 -115.9197,45.3741 -115.9106,45.3781 -115.9015,45.3813 -115.8956,45.3831 -115.8885,45.383 -115.88,45.3834 -115.8755,45.3834 -115.8689,45.3852 -115.8663,45.3851 -115.8585,45.386 -115.8442,45.3877 -115.8318,45.3922 -115.826,45.394 -115.8214,45.3958 -115.8161,45.3994 -115.8122,45.403 -115.8082,45.4062 -115.7997,45.4102 -115.7939,45.4129 -115.7867,45.4152 -115.7808,45.4165 -115.7743,45.4173 -115.7684,45.4182 -115.7632,45.4182 -115.7568,45.4172 -115.749,45.4167 -115.7405,45.4162 -115.7353,45.4157 -115.7276,45.4151 -115.7152,45.4155 -115.7042,45.4168 -115.6924,45.4176 -115.6859,45.4198 -115.6813,45.4211 -115.6742,45.4238 -115.6611,45.4251 -115.6533,45.4264 -115.6442,45.4268 -115.639,45.4263 -115.6345,45.4262 -115.6306,45.4244 -115.6268,45.4229 -115.6222,45.4206 -115.6036,45.4109 -115.5991,45.409 -115.5946,45.4057 -115.5914,45.4053 -115.5849,45.4057 -115.5738,45.4055 -115.5615,45.4045 -115.5544,45.4035 -115.5427,45.403 -115.5362,45.4029 -115.5291,45.4024 -115.5252,45.4019 -115.5207,45.4 -115.5168,45.3986 -115.5123,45.3958 -115.5104,45.3935 -115.5085,45.393 -115.504,45.3902 -115.5008,45.3879 -115.4969,45.3856 -115.4924,45.3833 -115.4834,45.3804 -115.4802,45.3786 -115.4764,45.3763 -115.4738,45.3744 -115.47,45.3707 -115.4681,45.3679 -115.4649,45.3629 -115.4598,45.3596 -115.4534,45.3582 -115.4475,45.3577 -115.4424,45.3572 -115.4371,45.3585 -115.4346,45.3566 -115.432,45.3557 -115.4314,45.3552 -115.4256,45.3538 -115.4197,45.3533 -115.4139,45.3509 -115.4075,45.3499 -115.3997,45.3508 -115.3932,45.3512 -115.3893,45.3516 -115.3867,45.3515 -115.3841,45.3506 -115.3822,45.3488 -115.3718,45.3468 -115.368,45.3459 -115.359,45.3421 -115.3525,45.3393 -115.3468,45.3365 -115.3455,45.3351 -115.3448,45.336 -115.3441,45.3383 -115.3434,45.3415 -115.342,45.3451 -115.34,45.3478 -115.3367,45.3501 -115.3315,45.3523 -115.3275,45.3555 -115.3255,45.3577 -115.3248,45.3605 -115.3248,45.3632 -115.3227,45.3664 -115.3188,45.3682 -115.3142,45.3704 -115.3089,45.3735 -115.3062,45.3785 -115.3042,45.3822 -115.3041,45.3867 -115.3047,45.3899 -115.3,45.3949 -115.296,45.3976 -115.2921,45.4012 -115.2842,45.4062 -115.2703,45.4161 -115.2538,45.4259 -115.2499,45.4282 -115.2446,45.4299 -115.2361,45.4316 -115.2309,45.4334 -115.2263,45.4366 -115.223,45.4365 -115.2204,45.436 -115.2172,45.4355 -115.214,45.4341 -115.2101,45.4345 -115.2048,45.4358 -115.1989,45.4376 -115.1937,45.4384 -115.1898,45.4393 -115.1871,45.4434 -115.1845,45.4452 -115.1812,45.4456 -115.1766,45.4483 -115.1765,45.4524 -115.1751,45.4556 -115.1725,45.4578 -115.1691,45.4601 -115.1652,45.4637 -115.1624,45.4682 -115.1604,45.471 -115.1603,45.4746 -115.1589,45.4782 -115.1576,45.4805 -115.1536,45.4841 -115.1489,45.4877 -115.143,45.4908 -115.1377,45.4935 -115.1305,45.4953 -115.124,45.4952 -115.1182,45.4956 -115.1129,45.4973 -115.1096,45.4987 -115.1057,45.5013 -115.1024,45.504 -115.0971,45.5058 -115.0912,45.5071 -115.0866,45.508 -115.0859,45.5098 -115.0865,45.5125 -115.0851,45.5157 -115.0825,45.518 -115.0759,45.5202 -115.072,45.5219 -115.0687,45.5237 -115.0653,45.5264 -115.0594,45.5291 -115.0522,45.5295 -115.0457,45.5294 -115.034,45.5288 -115.0256,45.5286 -115.021,45.5281 -115.0171,45.5276 -115.0159,45.5267 -115.0146,45.5253 -115.0121,45.5234 -115.0108,45.522 -115.0096,45.5197 -115.007,45.5179 -115.0058,45.516 -115.0038,45.5146 -115.0013,45.5118 -114.9923,45.5076 -114.9859,45.5034 -114.9725,45.4968 -114.9648,45.4935 -114.9564,45.4911 -114.9493,45.4892 -114.9428,45.4877 -114.9363,45.4867 -114.9273,45.4848 -114.9195,45.4833 -114.915,45.4823 -114.9099,45.4795 -114.9054,45.4771 -114.8997,45.4729 -114.8938,45.4724 -114.8925,45.4719 -114.8912,45.4724 -114.888,45.4728 -114.8854,45.4732 -114.8814,45.474 -114.8775,45.4744 -114.873,45.4744 -114.8697,45.4734 -114.8653,45.4715 -114.8588,45.4701 -114.8555,45.47 -114.8491,45.4681 -114.8453,45.4653 -114.8409,45.4611 -114.8364,45.4587 -114.8306,45.4577 -114.8267,45.4568 -114.8241,45.4549 -114.8198,45.4494 -114.8122,45.441 -114.8059,45.4345 -114.7976,45.4298 -114.7893,45.426 -114.7823,45.4223 -114.7746,45.4167 -114.7721,45.4148 -114.7715,45.4139 -114.7657,45.4129 -114.7585,45.4118 -114.754,45.4109 -114.7521,45.409 -114.7503,45.4067 -114.744,45.3993 -114.7389,45.3955 -114.7318,45.3941 -114.7254,45.3926 -114.7196,45.3902 -114.7184,45.3888 -114.7178,45.387 -114.7146,45.3837 -114.7134,45.3801 -114.7102,45.38 -114.707,45.3777 -114.6935,45.3747 -114.6883,45.3737 -114.6826,45.3709 -114.6788,45.3667 -114.6673,45.3615 -114.6609,45.3573 -114.6474,45.3534 -114.6404,45.3515 -114.6358,45.3509 -114.6241,45.3521 -114.6163,45.3538 -114.598,45.3572 -114.5914,45.3593 -114.591,45.3595 -114.5996,45.3663 -114.6053,45.3728 -114.6064,45.3788 -114.6055,45.3838 -114.6074,45.3866 -114.6099,45.3889 -114.6151,45.3904 -114.6196,45.3913 -114.6273,45.3942 -114.6363,45.3962 -114.6453,45.4 -114.6463,45.4064 -114.6416,45.4132 -114.6374,45.4213 -114.6384,45.4305 -114.6386,45.4429 -114.6358,45.4488 -114.6317,45.4578 -114.6282,45.4623 -114.621,45.465 -114.6106,45.4662 -114.5983,45.4623 -114.5881,45.4571 -114.578,45.4496 -114.5722,45.4472 -114.5677,45.4458 -114.5566,45.4465 -114.5489,45.445 -114.5412,45.4412 -114.5362,45.4366 -114.5324,45.4328 -114.5247,45.43 -114.5085,45.4292 -114.5017,45.4369 -114.4976,45.4446 -114.492,45.4546 -114.4865,45.4618 -114.4836,45.4722 -114.4775,45.479 -114.4637,45.4824 -114.4453,45.4867 -114.4355,45.4897 -114.4313,45.4969 -114.4278,45.5033 -114.4225,45.5068 -114.4072,45.5148 -114.4071,45.518 -114.4055,45.5257 -114.402,45.5343 -114.3998,45.5398 -114.3969,45.5498 -114.3928,45.5543 -114.3901,45.5575 -114.3873,45.5624 -114.3941,45.5703 -114.3998,45.575 -114.4062,45.5797 -114.4099,45.5848 -114.411,45.5903 -114.4037,45.5943 -114.3931,45.6 -114.3852,45.6008 -114.3753,45.6038 -114.372,45.6061 -114.3667,45.6087 -114.3593,45.6154 -114.3533,45.6172 -114.3481,45.6184 -114.3446,45.6234 -114.3476,45.6308 -114.3507,45.6354 -114.357,45.6401 -114.3535,45.6474 -114.3481,45.6532 -114.3446,45.6595 -114.3456,45.6655 -114.35,45.6715 -114.3564,45.6744 -114.3635,45.6764 -114.3679,45.6796 -114.3749,45.6843 -114.3794,45.6872 -114.3813,45.689 -114.3855,45.6978 -114.3878,45.7065 -114.3883,45.712 -114.392,45.7162 -114.4002,45.7237 -114.406,45.7261 -114.4099,45.7284 -114.4078,45.7321 -114.3983,45.7401 -114.3934,45.7492 -114.3853,45.7573 -114.3732,45.7671 -114.3637,45.7761 -114.3613,45.787 -114.359,45.7966 -114.3535,45.8034 -114.3455,45.8087 -114.3389,45.8095 -114.3311,45.808 -114.3201,45.8055 -114.3109,45.8076 -114.3009,45.8138 -114.2935,45.8169 -114.2896,45.8187 -114.2771,45.8189 -114.2701,45.816 -114.2636,45.814 -114.2584,45.8126 -114.2539,45.8125 -114.2483,45.8202 -114.2421,45.8292 -114.2392,45.8369 -114.2382,45.8461 -114.2456,45.8558 -114.2551,45.8633 -114.2595,45.8694 -114.2598,45.8767 -114.2668,45.8823 -114.2758,45.8875 -114.2721,45.8975 -114.2545,45.9137 -114.2516,45.92 -114.2515,45.9241 -114.2551,45.932 -114.2588,45.938 -114.2685,45.9409 -114.2945,45.9465 -114.3074,45.9495 -114.3133,45.9509 -114.3237,45.952 -114.3308,45.9558 -114.3252,45.9635 -114.3231,45.9694 -114.3209,45.9758 -114.324,45.9795 -114.333,45.9847 -114.3406,45.9894 -114.3364,45.9972 -114.3315,46.0053 -114.3201,46.0129 -114.3121,46.0168 -114.3086,46.0223 -114.3111,46.026 -114.3142,46.0288 -114.3081,46.0342 -114.3028,46.0364 -114.2987,46.04 -114.3024,46.0483 -114.3067,46.0552 -114.3129,46.0627 -114.318,46.0687 -114.3237,46.0734 -114.3328,46.0754 -114.3438,46.0783 -114.3529,46.0822 -114.3566,46.0873 -114.3609,46.0956 -114.3653,46.1021 -114.3637,46.1094 -114.3615,46.1162 -114.3559,46.1235 -114.3461,46.1242 -114.3369,46.124 -114.3271,46.122 -114.3193,46.1205 -114.3133,46.1213 -114.304,46.1262 -114.2972,46.1301 -114.2939,46.1319 -114.2899,46.1332 -114.2872,46.135 -114.2864,46.1387 -114.2822,46.1629 -114.2853,46.1675 -114.2881,46.1785 -114.2859,46.1863 -114.2909,46.1933 -114.2979,46.1984 -114.3063,46.2022 -114.3134,46.206 -114.3192,46.2098 -114.3201,46.219 -114.3139,46.2276 -114.3017,46.2361 -114.2904,46.2395 -114.283,46.243 -114.2781,46.2507 -114.279,46.2608 -114.2808,46.2673 -114.2786,46.2727 -114.2717,46.2813 -114.2653,46.2936 -114.2615,46.3045 -114.2606,46.3127 -114.2607,46.3247 -114.2631,46.332 -114.2561,46.3589 -114.2521,46.3612 -114.2433,46.3656 -114.241,46.3756 -114.2407,46.382 -114.2338,46.3911 -114.2303,46.3942 -114.2314,46.4011 -114.2357,46.4094 -114.2359,46.4195 -114.241,46.4251 -114.2453,46.4316 -114.2525,46.435 -114.258,46.4443 -114.257,46.4534 -114.2463,46.4582 -114.2316,46.4635 -114.2162,46.4678 -114.2068,46.4722 -114.2013,46.4771 -114.1964,46.4834 -114.1966,46.4949 -114.1987,46.5087 -114.1956,46.5201 -114.1892,46.5314 -114.1915,46.5411 -114.1896,46.5539 -114.1847,46.5602 -114.1777,46.5697 -114.1734,46.5779 -114.171,46.5889 -114.1706,46.599 -114.1748,46.6087 -114.1773,46.6124 -114.181,46.6203 -114.1889,46.6218 -114.1953,46.6251 -114.2012,46.6266 -114.2098,46.6282 -114.2217,46.6284 -114.2303,46.6276 -114.2411,46.6228 -114.2531,46.6203 -114.2618,46.6186 -114.2718,46.6165 -114.2785,46.6139 -114.2878,46.6117 -114.2946,46.6077 -114.3034,46.6033 -114.3068,46.6011 -114.3109,46.598 -114.3149,46.5957 -114.3176,46.5939 -114.3243,46.5922 -114.331,46.5896 -114.3436,46.5898 -114.3461,46.5931 -114.3572,46.5974 -114.3663,46.6008 -114.3802,46.6011 -114.3867,46.6039 -114.3979,46.6041 -114.4087,46.6002 -114.4187,46.5967 -114.4391,46.5934 -114.4393,46.5934 -114.4466,46.5935 -114.4571,46.5951 -114.4611,46.5951 -114.4702,46.5999 -114.4753,46.6046 -114.481,46.6106 -114.4861,46.6167 -114.4892,46.6218 -114.491,46.6269 -114.4913,46.637 -114.4839,46.6423 -114.475,46.6491 -114.4722,46.6531 -114.4799,46.6611 -114.4849,46.6699 -114.4912,46.6787 -114.497,46.6834 -114.5033,46.6904 -114.5091,46.696 -114.515,46.6979 -114.5202,46.7008 -114.5255,46.7008 -114.5328,46.7001 -114.5401,46.6997 -114.5447,46.6998 -114.5522,46.6949 -114.5563,46.6899 -114.5645,46.6841 -114.5712,46.6814 -114.5739,46.6783 -114.5773,46.6769 -114.5828,46.6715 -114.5862,46.6688 -114.5903,46.6638 -114.5944,46.6612 -114.6123,46.6615 -114.6201,46.6657 -114.6292,46.6691 -114.6316,46.6765 -114.63,46.6856 -114.6278,46.6924 -114.6256,46.6979 -114.6221,46.7034 -114.6204,46.7134 -114.6216,46.7185 -114.6241,46.7218 -114.6293,46.7264 -114.6345,46.7297 -114.6403,46.7326 -114.6482,46.7341 -114.6548,46.7351 -114.6648,46.7348 -114.6779,46.7378 -114.6838,46.7401 -114.6871,46.7416 -114.7,46.7509 -114.7058,46.7561 -114.7091,46.7589 -114.7129,46.7631 -114.7201,46.765 -114.7321,46.7634 -114.7388,46.763 -114.7486,46.7655 -114.7491,46.7724 -114.7568,46.7803 -114.7646,46.7841 -114.7731,46.7892 -114.7775,46.7962 -114.778,46.8013 -114.7811,46.8077 -114.7857,46.8101 -114.7929,46.8139 -114.7947,46.8185 -114.7945,46.8258 -114.7868,46.8386 -114.7846,46.8431 -114.7871,46.8487 -114.7869,46.8569 -114.7814,46.8628 -114.7759,46.8664 -114.7712,46.8705 -114.7704,46.8732 -114.7756,46.8779 -114.7868,46.8799 -114.8052,46.887 -114.811,46.8913 -114.8194,46.8992 -114.8279,46.903 -114.8331,46.9076 -114.8396,46.9123 -114.8447,46.9197 -114.8479,46.9248 -114.8531,46.9272 -114.8577,46.9291 -114.8683,46.9288 -114.8737,46.9289 -114.879,46.9285 -114.8836,46.929 -114.8895,46.9319 -114.8948,46.9342 -114.9019,46.9394 -114.9063,46.9473 -114.9133,46.9579 -114.9178,46.9649 -114.9206,46.981 -114.9232,46.9856 -114.9276,46.9926 -114.9322,46.9963 -114.9387,47.001 -114.9426,47.0029 -114.9505,47.008 -114.9564,47.0113 -114.9596,47.0155 -114.9653,47.0229 -114.9726,47.0249 -114.9818,47.0296 -114.9868,47.0388 -114.9906,47.0472 -114.9924,47.0531 -114.995,47.0578 -114.9996,47.0578 -115.0075,47.0612 -115.0188,47.0636 -115.0246,47.0683 -115.029,47.0775 -115.0341,47.0859 -115.0394,47.0901 -115.0532,47.0962 -115.059,47.1013 -115.067,47.1037 -115.0762,47.108 -115.088,47.1132 -115.0965,47.1188 -115.1017,47.1253 -115.1062,47.13 -115.1122,47.1333 -115.1167,47.137 -115.1313,47.1399 -115.1425,47.1456 -115.1457,47.1525 -115.1481,47.1622 -115.1479,47.1705 -115.155,47.1784 -115.1674,47.1872 -115.1678,47.1987 -115.1696,47.2056 -115.1715,47.2112 -115.1899,47.2211 -115.1999,47.2221 -115.2126,47.2236 -115.2239,47.2256 -115.2352,47.2271 -115.2545,47.2296 -115.2616,47.2366 -115.2729,47.2404 -115.2823,47.2396 -115.293,47.2388 -115.3016,47.2407 -115.3082,47.2436 -115.3162,47.2436 -115.3269,47.2447 -115.3369,47.2462 -115.3482,47.2477 -115.3522,47.2496 -115.3614,47.2538 -115.3693,47.258 -115.3772,47.2654 -115.3844,47.2729 -115.3895,47.2812 -115.3954,47.2891 -115.3986,47.2951 -115.4018,47.3006 -115.4057,47.3044 -115.409,47.3071 -115.4143,47.31 -115.4203,47.3114 -115.4255,47.3142 -115.4281,47.3188 -115.4307,47.323 -115.4359,47.3286 -115.4425,47.3332 -115.4458,47.336 -115.4557,47.3403 -115.4644,47.3413 -115.4711,47.3423 -115.4771,47.3432 -115.485,47.3461 -115.4916,47.3503 -115.4975,47.3558 -115.5035,47.36 -115.5127,47.3652 -115.5227,47.3667 -115.5347,47.37 -115.5467,47.3729 -115.5534,47.3743 -115.5613,47.3776 -115.568,47.379 -115.5759,47.3828 -115.5846,47.3852 -115.5913,47.3862 -115.5966,47.3885 -115.5985,47.3917 -115.5978,47.3959 -115.5964,47.4 -115.5916,47.4045 -115.5868,47.4082 -115.5787,47.4113 -115.5666,47.4135 -115.5546,47.4139 -115.5399,47.4137 -115.5318,47.4132 -115.5211,47.4126 -115.5097,47.4139 -115.5023,47.4152 -115.4949,47.4197 -115.4894,47.4238 -115.4866,47.4302 -115.4859,47.4344 -115.4865,47.4367 -115.4864,47.4413 -115.4924,47.4432 -115.5044,47.4451 -115.5177,47.4485 -115.5304,47.4513 -115.539,47.4556 -115.5416,47.4629 -115.5439,47.4804 -115.5478,47.4869 -115.5571,47.4907 -115.5678,47.4922 -115.5891,47.4997 -115.5897,47.5034 -115.5835,47.5135 -115.5773,47.5208 -115.5684,47.5285 -115.5589,47.5353 -115.5487,47.5403 -115.5399,47.548 -115.5383,47.5567 -115.5422,47.566 -115.5407,47.5742 -115.5445,47.5821 -115.5538,47.5882 -115.5658,47.5938 -115.5751,47.5994 -115.5803,47.6059 -115.5829,47.6133 -115.5833,47.6234 -115.5818,47.6335 -115.5789,47.6436 -115.5761,47.6505 -115.578,47.6574 -115.5799,47.6616 -115.5839,47.6662 -115.5925,47.6695 -115.6039,47.6724 -115.6126,47.6734 -115.622,47.6758 -115.6259,47.6809 -115.6258,47.6859 -115.6277,47.6951 -115.6302,47.7025 -115.6328,47.7062 -115.6368,47.7109 -115.6428,47.7137 -115.6502,47.7156 -115.6569,47.7161 -115.6643,47.7162 -115.673,47.7167 -115.683,47.7223 -115.6842,47.7283 -115.6861,47.7375 -115.6886,47.7449 -115.6879,47.7509 -115.6911,47.7587 -115.6956,47.7712 -115.7029,47.7768 -115.7114,47.7875 -115.7161,47.7935 -115.7234,47.7981 -115.7294,47.8014 -115.7368,47.8028 -115.7435,47.8038 -115.7502,47.8071 -115.7554,47.8136 -115.7688,47.8234 -115.7761,47.8271 -115.7841,47.8331 -115.7934,47.8415 -115.7987,47.8471 -115.804,47.8536 -115.8112,47.8633 -115.8198,47.8735 -115.8312,47.8819 -115.8452,47.8912 -115.8524,47.9027 -115.861,47.9157 -115.8636,47.9212 -115.8715,47.931 -115.8796,47.9333 -115.8877,47.9361 -115.8944,47.938 -115.8997,47.9422 -115.9012,48.1063 -115.9017,48.1745 -115.9029,48.4647 -115.9058,48.9435 -116.8303,48.9434 -116.8652,48.947 -116.896,48.9436 -117.0292,48.9432 -117.0631,48.9439 -117.1289,48.9439 -117.3956,48.9437 -117.6621,48.9438 -117.6948,48.9431 -117.8282,48.9431 -117.9611,48.9433 -118.195,48.9433 -118.5938,48.9431 -118.7935,48.9432 -118.9598,48.9434 -119.2928,48.9434 -119.6919,48.9432 -119.7587,48.9434 -119.8584,48.9434 -120.3584,48.9432 -120.9079,48.9434 -121.922,48.9438 -122.1547,48.9438 -122.2543,48.9437 -122.3874,48.9437 -122.5204,48.9439 -122.5806,48.9434 -122.5738,48.9376 -122.5547,48.9061 -122.5906,48.9081 -122.6301,48.8867 -122.5022,48.7396 -122.4707,48.7087 -122.4303,48.6969 -122.409,48.7162 -122.3871,48.7191 -122.3431,48.7058 -122.3213,48.689 -122.2587,48.5349 -122.3085,48.3971 -122.339,48.3977 -122.3583,48.4119 -122.3723,48.4295 -122.4417,48.4558 -122.5203,48.4391 -122.5015,48.363 -122.4803,48.3495 -122.448,48.3476 -122.4293,48.3559 -122.4129,48.3705 -122.2156,48.2541 -122.2007,48.2295 -122.2204,48.1832 -122.2386,48.1919 -122.2566,48.2001 -122.2782,48.1998 -122.321,48.1952 -122.3431,48.1807 -122.3536,48.1498 -122.3513,48.1278 -122.3234,48.0741 -122.2744,48.0598 -122.2531,48.0647 -122.2699,48.0787 -122.2929,48.1148 -122.2654,48.1702 -122.1974,48.1581 -122.1437,48.0192 -122.1148,47.9033 -122.1972,47.7776 -122.2422,47.6176 -122.2228,47.532 -122.2097,47.4925 -122.176,47.4311 -122.1345,47.3503 -122.1383,47.3177 -122.2412,47.2607 -122.284,47.2438 -122.3518,47.2219 -122.3902,47.1707 -122.4164,47.14 -122.435,47.1189 -122.4647,47.0983 -122.5419,47.0664 -122.6175,47.1286 -122.6695,47.1212 -122.7097,47.1027 -122.7033,47.0104 -122.7258,47.0128 -122.7757,47.0814 -122.8501,47.0704 -122.889,47.0603 -122.8866,47.102 -122.8495,47.1158 -122.8045,47.1266 -122.7639,47.1518 -122.7512,47.1968 -122.741,47.2306 -122.7271,47.246 -122.6707,47.2591 -122.6366,47.3138 -122.6216,47.3413 -122.5945,47.318 -122.5918,47.2665 -122.6196,47.2381 -122.6354,47.2167 -122.615,47.1686 -122.5956,47.1477 -122.5734,47.1356 -122.5531,47.1579 -122.5388,47.1986 -122.5675,47.2368 -122.534,47.3014 -122.4433,47.3664 -122.4382,47.3404 -122.4694,47.2948 -122.4973,47.2679 -122.3958,47.2248 -122.3726,47.234 -122.333,47.4462 -122.3605,47.539 -122.3992,47.5243 -122.4268,47.5073 -122.4873,47.4914 -122.5046,47.5848 -122.4949,47.6042 -122.4794,47.5842 -122.4624,47.5653 -122.4222,47.5539 -122.4174,47.5861 -122.422,47.6522 -122.3653,47.6876 -122.284,47.7091 -122.3373,47.8674 -122.3889,47.8831 -122.552,47.6934 -122.5596,47.6671 -122.6598,47.6023 -122.7267,47.5799 -122.766,47.5536 -122.8233,47.491 -122.9079,47.3888 -122.9211,47.3469 -122.8488,47.3259 -122.82,47.336 -122.7785,47.356 -122.7421,47.372 -122.69,47.3909 -122.6644,47.3932 -122.7002,47.3609 -122.7287,47.3498 -122.8305,47.3145 -122.9278,47.3023 -122.9533,47.3053 -122.9715,47.3177 -122.928,47.4152 -122.8406,47.5153 -122.8072,47.5487 -122.7899,47.564 -122.738,47.6042 -122.7174,47.623 -122.6987,47.6491 -122.6745,47.6968 -122.6652,47.7285 -122.6726,47.7515 -122.6724,47.7766 -122.618,47.8055 -122.6079,47.7778 -122.603,47.7574 -122.6114,47.7109 -122.5712,47.7086 -122.4949,47.8021 -122.4535,47.8612 -122.5015,47.9325 -122.5366,47.9555 -122.6008,48.0354 -122.5999,48.0555 -122.5694,48.0726 -122.5717,48.0987 -122.6042,48.103 -122.6478,48.0908 -122.6689,48.0811 -122.6906,48.0572 -122.7923,48.0585 -122.9352,48.1358 -122.9684,48.1243 -123.0095,48.1041 -123.0309,48.0872 -123.0644,48.0745 -123.176,48.0737 -123.2229,48.077 -123.3303,48.0932 -123.4949,48.1156 -123.5794,48.1115 -123.6077,48.1105 -123.628,48.1108 -123.7181,48.1167 -123.7556,48.1207 -123.8376,48.1339 -123.8609,48.1381 -123.9055,48.1566 -123.9195,48.1768 -123.9652,48.1962 -124.0524,48.2207 -124.1294,48.2287 -124.2356,48.2613 -124.2982,48.2869 -124.3662,48.3167 -124.3854,48.3244 -124.4564,48.3447 -124.5334,48.3415 -124.525,48.3158 1162,-7.0,United States -114.6548,32.4683 -114.6457,32.4642 -114.4364,32.4009 -114.195,32.3288 -113.9129,32.2436 -113.7099,32.1823 -113.544,32.1316 -113.1969,32.0252 -112.9059,31.9352 -112.7204,31.8778 -112.3537,31.7628 -112.1532,31.7 -111.8005,31.5884 -111.2725,31.4189 -110.9015,31.2982 -110.1682,31.2976 -109.7361,31.2976 -109.3698,31.2982 -108.9168,31.2979 -108.9056,31.2978 -108.8923,31.2978 -108.8923,31.3093 -108.8912,31.428 -108.8929,31.5608 -108.8946,31.6794 -108.8936,31.7469 -108.8936,31.7975 -108.8953,31.8646 -108.8937,31.9252 -108.8927,32.0333 -108.8933,32.1413 -108.895,32.3068 -108.8961,32.4079 -108.8973,32.4612 -108.8973,32.4799 -108.8967,32.4895 -108.8951,32.515 -108.8946,32.5277 -108.8951,32.546 -108.898,32.7454 -108.8975,32.8115 -108.897,32.8816 -108.8987,32.953 -108.8982,33.0127 -108.8982,33.0527 -108.8979,33.0579 -108.8971,33.0755 -108.8977,33.1092 -108.8971,33.1501 -108.8972,33.1711 -108.8973,33.3221 -108.8984,33.4217 -108.8982,33.5545 -108.898,33.6546 -108.897,33.7492 -108.8971,33.9933 -108.895,34.1306 -108.8952,34.1823 -108.8952,34.1837 -108.8957,34.3178 -108.8953,34.5577 -108.8942,34.6594 -108.8943,34.7923 -108.8943,34.7993 -108.8938,34.8806 -108.8934,34.9071 -108.8932,34.9206 -108.8927,34.9791 -108.8922,35.0536 -108.8928,35.129 -108.8939,35.1991 -108.894,35.2075 -108.8944,35.9626 -108.8939,36.0297 -108.8934,36.0987 -108.894,36.1713 -108.8946,36.2493 -108.8953,36.3627 -108.8953,36.4575 -108.8954,36.476 -108.8955,36.4842 -108.896,36.5545 -108.896,36.6175 -108.8966,36.7114 -108.8967,36.7943 -108.8967,36.8003 -108.8964,36.8284 -108.8956,36.9023 -108.8971,36.9639 -108.8971,36.9642 -108.907,36.9638 -108.9309,36.9629 -108.9423,36.9624 -108.952,36.9621 -108.9654,36.962 -109.0403,36.9616 -109.0816,36.9616 -109.1676,36.9606 -109.1985,36.9607 -109.2724,36.9592 -109.3201,36.9596 -109.3848,36.9587 -109.4218,36.9589 -109.4868,36.9583 -109.516,36.9587 -109.5819,36.9592 -109.6091,36.9594 -109.7858,36.9594 -109.844,36.958 -109.8649,36.9598 -109.9449,36.9594 -109.9504,36.9595 -110.0336,36.9604 -110.0474,36.96 -110.0769,36.9598 -110.0965,36.9594 -110.143,36.9586 -110.1972,36.9576 -110.2173,36.9576 -110.2988,36.9577 -110.305,36.96 -110.3084,36.9612 -110.3206,36.9657 -110.3294,36.9689 -110.3427,36.9699 -110.3553,36.97 -110.4115,36.9696 -110.43,36.9696 -110.4936,36.9698 -110.5882,36.97 -110.6297,36.9703 -110.6587,36.9701 -110.7248,36.9696 -110.7552,36.9695 -110.8175,36.9693 -110.8793,36.9691 -110.9262,36.9691 -110.9809,36.9692 -111.01,36.9692 -111.0958,36.9693 -111.1732,36.9663 -111.192,36.9678 -111.1992,36.9682 -111.2015,36.9684 -111.2062,36.9677 -111.2119,36.9683 -111.2142,36.9685 -111.2182,36.9687 -111.225,36.9708 -111.2323,36.973 -111.2344,36.9735 -111.2391,36.9747 -111.2455,36.9749 -111.2473,36.9734 -111.2547,36.9672 -111.2576,36.9667 -111.305,36.9667 -111.4203,36.9658 -111.4482,36.9656 -111.4537,36.9656 -111.5494,36.9647 -111.5856,36.9643 -111.6439,36.9644 -111.7674,36.9644 -111.7748,36.9645 -111.8595,36.9647 -111.922,36.9639 -112.0497,36.9622 -112.0837,36.9628 -112.1697,36.9645 -112.2493,36.965 -112.2566,36.965 -112.3115,36.9645 -112.3292,36.9648 -112.3825,36.9657 -112.3847,36.9657 -112.4845,36.9636 -112.5099,36.9639 -112.6183,36.9654 -112.7441,36.9659 -112.7464,36.9659 -112.7995,36.9651 -112.8501,36.9643 -112.9412,36.965 -113.0958,36.965 -113.1488,36.9651 -113.2481,36.9661 -113.3693,36.966 -113.4054,36.966 -113.4777,36.9655 -113.5579,36.9649 -113.581,36.9647 -113.7079,36.9638 -113.8908,36.9643 -113.8908,36.9308 -113.8906,36.8812 -113.8902,36.8078 -113.8937,36.8079 -113.8927,36.6941 -113.8943,36.6413 -113.8924,36.5878 -113.8934,36.422 -113.8931,36.3814 -113.8928,36.328 -113.8929,36.304 -113.8938,36.2839 -113.8915,36.2654 -113.8933,36.2494 -113.8932,36.2477 -113.8929,36.2277 -113.8944,36.2062 -113.8921,36.1895 -113.8922,36.1745 -113.8925,36.17 -113.8929,36.1668 -113.8949,36.1635 -113.8976,36.1607 -113.9015,36.1587 -113.9052,36.1554 -113.9117,36.1501 -113.9209,36.1334 -113.9318,36.117 -113.9473,36.1013 -113.9509,36.0962 -113.9563,36.0914 -113.9626,36.083 -113.9677,36.0659 -113.972,36.0458 -113.9755,36.0302 -113.9822,36.0103 -113.9852,36.0048 -113.9861,36.0011 -113.9923,35.9986 -114.0004,35.9969 -114.0084,35.9962 -114.0141,35.9959 -114.0209,35.9947 -114.0273,35.993 -114.0325,35.99 -114.0388,35.9877 -114.041,35.9871 -114.0469,35.9842 -114.0499,35.9838 -114.0531,35.9827 -114.0577,35.9826 -114.0604,35.9816 -114.0639,35.9815 -114.0677,35.9801 -114.0696,35.9807 -114.0736,35.9803 -114.0799,35.9843 -114.0922,35.99 -114.1,35.9952 -114.1067,35.9994 -114.1122,36.0032 -114.1177,36.0083 -114.1249,36.0139 -114.1311,36.0172 -114.1378,36.0197 -114.1474,36.0231 -114.1518,36.0268 -114.1555,36.0282 -114.1575,36.0322 -114.1569,36.0344 -114.1559,36.0376 -114.1556,36.0455 -114.1528,36.0463 -114.1504,36.0494 -114.1503,36.0531 -114.1518,36.0581 -114.1534,36.0609 -114.1562,36.0632 -114.1572,36.0664 -114.1598,36.0733 -114.1625,36.0774 -114.167,36.0811 -114.1731,36.0849 -114.1787,36.0877 -114.1808,36.0923 -114.1829,36.0965 -114.1907,36.1034 -114.2002,36.1082 -114.2092,36.1125 -114.2131,36.1139 -114.2211,36.1146 -114.2272,36.117 -114.2353,36.1146 -114.2388,36.1136 -114.2447,36.1119 -114.2533,36.1056 -114.2587,36.1008 -114.2608,36.098 -114.2641,36.096 -114.2674,36.0949 -114.2717,36.0946 -114.2748,36.0951 -114.28,36.0948 -114.2846,36.096 -114.2925,36.0947 -114.2976,36.0945 -114.3004,36.0934 -114.3043,36.0914 -114.3131,36.0907 -114.3181,36.0931 -114.3231,36.0968 -114.3264,36.0991 -114.336,36.1034 -114.3472,36.11 -114.3533,36.1133 -114.3606,36.1166 -114.3697,36.1191 -114.377,36.1211 -114.3856,36.1212 -114.3908,36.1205 -114.3944,36.1208 -114.4016,36.1188 -114.4076,36.1179 -114.4165,36.1164 -114.4184,36.1157 -114.4293,36.1103 -114.4346,36.1082 -114.4378,36.1066 -114.4448,36.1032 -114.4505,36.1053 -114.4618,36.1078 -114.468,36.1079 -114.4747,36.1068 -114.4771,36.1058 -114.489,36.1011 -114.4912,36.1006 -114.494,36.0992 -114.498,36.0971 -114.5015,36.0968 -114.506,36.0964 -114.5129,36.0943 -114.5188,36.0887 -114.5226,36.0881 -114.5303,36.0848 -114.5336,36.0831 -114.5383,36.0803 -114.5442,36.0768 -114.5592,36.0712 -114.5644,36.0681 -114.5679,36.0642 -114.5756,36.0583 -114.5803,36.0526 -114.5831,36.0438 -114.5836,36.0365 -114.5844,36.0319 -114.5823,36.0266 -114.5814,36.0225 -114.5776,36.0168 -114.572,36.0112 -114.5687,36.0045 -114.568,35.9959 -114.5693,35.9899 -114.5721,35.9863 -114.58,35.9812 -114.5864,35.975 -114.5912,35.9707 -114.5906,35.963 -114.5909,35.9598 -114.5906,35.9557 -114.5897,35.9508 -114.5856,35.9423 -114.5831,35.9397 -114.5802,35.9312 -114.5788,35.9277 -114.578,35.9245 -114.5774,35.9159 -114.5766,35.9128 -114.5733,35.9075 -114.5665,35.9001 -114.5611,35.8972 -114.5569,35.8942 -114.5538,35.8935 -114.5537,35.8913 -114.5534,35.8853 -114.5512,35.879 -114.5493,35.8755 -114.5467,35.871 -114.5428,35.8658 -114.5409,35.8622 -114.5367,35.8602 -114.5319,35.8567 -114.5261,35.8543 -114.5225,35.8522 -114.5165,35.8479 -114.514,35.8458 -114.5126,35.8422 -114.513,35.839 -114.5156,35.8362 -114.5272,35.8315 -114.5332,35.8285 -114.5353,35.8252 -114.5368,35.8233 -114.5391,35.8228 -114.5419,35.8226 -114.5435,35.8212 -114.5455,35.8184 -114.547,35.8147 -114.5456,35.8111 -114.5441,35.8066 -114.5401,35.7986 -114.5392,35.795 -114.539,35.7923 -114.54,35.7895 -114.542,35.7863 -114.5441,35.7843 -114.546,35.7793 -114.5463,35.7752 -114.5454,35.7711 -114.5446,35.768 -114.5409,35.7636 -114.5393,35.7578 -114.5399,35.7509 -114.5403,35.7413 -114.5369,35.7333 -114.535,35.723 -114.5357,35.717 -114.5366,35.7143 -114.5368,35.7092 -114.5381,35.7037 -114.5391,35.695 -114.5404,35.6886 -114.5406,35.6845 -114.5391,35.6791 -114.5329,35.6722 -114.528,35.6669 -114.5232,35.6635 -114.519,35.6606 -114.5181,35.657 -114.5185,35.6547 -114.522,35.6481 -114.5254,35.6398 -114.5251,35.6357 -114.5252,35.6303 -114.5255,35.6261 -114.524,35.6221 -114.5215,35.6186 -114.5148,35.6121 -114.5094,35.6078 -114.509,35.6028 -114.5046,35.5971 -114.5037,35.5931 -114.4997,35.5919 -114.4955,35.5885 -114.4918,35.5846 -114.4907,35.5783 -114.4925,35.5714 -114.4955,35.5662 -114.5037,35.5617 -114.508,35.5583 -114.5123,35.5563 -114.5133,35.554 -114.512,35.5513 -114.5087,35.546 -114.5026,35.54 -114.5013,35.5377 -114.5,35.5346 -114.5014,35.5305 -114.5028,35.5268 -114.5037,35.524 -114.5039,35.5185 -114.5034,35.5117 -114.5036,35.5072 -114.5081,35.4994 -114.5125,35.4975 -114.5155,35.4939 -114.5178,35.4913 -114.5181,35.4889 -114.5196,35.4858 -114.524,35.4776 -114.5242,35.4725 -114.5232,35.4658 -114.5215,35.459 -114.512,35.4449 -114.5023,35.429 -114.493,35.4104 -114.4851,35.3949 -114.4774,35.3825 -114.471,35.3728 -114.4646,35.3626 -114.4568,35.348 -114.4497,35.3365 -114.4435,35.3286 -114.4411,35.3192 -114.4396,35.3138 -114.4413,35.3069 -114.4413,35.2992 -114.4414,35.2919 -114.4414,35.2842 -114.4431,35.2764 -114.4414,35.2687 -114.4404,35.2633 -114.4374,35.2603 -114.4353,35.2558 -114.4335,35.2532 -114.4328,35.2446 -114.4303,35.2333 -114.4285,35.2311 -114.4287,35.2266 -114.4266,35.2208 -114.4239,35.2154 -114.4231,35.2114 -114.4191,35.2034 -114.417,35.198 -114.4159,35.1908 -114.4169,35.1803 -114.4172,35.1698 -114.4175,35.1662 -114.4179,35.163 -114.4182,35.1598 -114.4185,35.157 -114.4188,35.1529 -114.4202,35.1492 -114.4212,35.1469 -114.4204,35.1438 -114.42,35.1388 -114.4192,35.1352 -114.419,35.1325 -114.4193,35.1293 -114.4185,35.1257 -114.4197,35.1192 -114.4224,35.1096 -114.4255,35.1053 -114.4287,35.1024 -114.4338,35.0993 -114.436,35.0997 -114.438,35.0991 -114.4487,35.0984 -114.4591,35.0994 -114.4678,35.1002 -114.4729,35.0999 -114.4757,35.0986 -114.4787,35.0932 -114.4841,35.0898 -114.4855,35.087 -114.4872,35.0796 -114.4875,35.076 -114.4868,35.0737 -114.486,35.0706 -114.48,35.0659 -114.4729,35.0612 -114.4654,35.0584 -114.46,35.0541 -114.4553,35.0507 -114.4516,35.0468 -114.4497,35.0437 -114.4493,35.0382 -114.4528,35.0322 -114.4576,35.0288 -114.4609,35.0265 -114.4628,35.0252 -114.4665,35.0221 -114.4689,35.0209 -114.4755,35.0159 -114.4782,35.0145 -114.4823,35.0126 -114.4843,35.0088 -114.4867,35.0028 -114.488,34.9977 -114.4875,34.9909 -114.4861,34.9878 -114.4848,34.9851 -114.4823,34.9812 -114.4806,34.975 -114.4786,34.97 -114.479,34.9668 -114.4787,34.9639 -114.4774,34.9616 -114.4762,34.9596 -114.4734,34.9566 -114.4724,34.9521 -114.4715,34.9457 -114.4729,34.9371 -114.4703,34.9249 -114.4685,34.9159 -114.4675,34.9096 -114.4678,34.9063 -114.4683,34.902 -114.4692,34.8994 -114.4727,34.897 -114.4736,34.8938 -114.4754,34.8905 -114.4769,34.8854 -114.4766,34.8814 -114.4736,34.8788 -114.4731,34.8739 -114.4736,34.8706 -114.4743,34.8661 -114.4747,34.8634 -114.475,34.8603 -114.4752,34.8569 -114.4754,34.8527 -114.4756,34.8476 -114.4658,34.8379 -114.4577,34.83 -114.4443,34.8215 -114.4432,34.8196 -114.4338,34.8113 -114.4293,34.8072 -114.4271,34.8037 -114.4215,34.8021 -114.4167,34.7978 -114.414,34.7925 -114.4121,34.7816 -114.415,34.7796 -114.4097,34.7718 -114.4094,34.7668 -114.4044,34.7597 -114.4041,34.7552 -114.4007,34.7472 -114.3963,34.7415 -114.3911,34.7308 -114.3886,34.7258 -114.3816,34.7203 -114.3768,34.7177 -114.3719,34.715 -114.3658,34.7136 -114.362,34.7121 -114.3561,34.7124 -114.3488,34.7119 -114.3443,34.7107 -114.3406,34.7068 -114.338,34.703 -114.3344,34.701 -114.3303,34.6988 -114.3249,34.6928 -114.3173,34.684 -114.3146,34.678 -114.3132,34.6752 -114.3116,34.6718 -114.3105,34.6697 -114.3076,34.6644 -114.3051,34.6599 -114.3036,34.6573 -114.3028,34.6547 -114.3,34.6451 -114.2991,34.6422 -114.2975,34.6365 -114.2956,34.6299 -114.2938,34.6268 -114.2916,34.6246 -114.2895,34.6204 -114.2856,34.6151 -114.2829,34.6112 -114.2812,34.6045 -114.2798,34.5986 -114.2771,34.5928 -114.2758,34.5892 -114.2726,34.5848 -114.2701,34.5804 -114.2689,34.5772 -114.2713,34.573 -114.2726,34.5707 -114.2761,34.5701 -114.2783,34.5691 -114.2804,34.5676 -114.2808,34.5649 -114.2751,34.5611 -114.2719,34.5589 -114.2638,34.5543 -114.2562,34.5497 -114.2477,34.5401 -114.2416,34.5321 -114.2366,34.5246 -114.2334,34.5189 -114.2291,34.5132 -114.2272,34.5101 -114.2283,34.5062 -114.2233,34.5025 -114.2218,34.4971 -114.2211,34.4949 -114.2209,34.4917 -114.2216,34.4862 -114.2224,34.4821 -114.2251,34.4675 -114.226,34.4584 -114.2262,34.4507 -114.2276,34.4434 -114.2279,34.4357 -114.2269,34.4307 -114.2221,34.4266 -114.2204,34.4251 -114.2183,34.4232 -114.2155,34.4227 -114.2122,34.4221 -114.2099,34.4217 -114.2078,34.4215 -114.2011,34.4248 -114.1899,34.423 -114.1848,34.4219 -114.1826,34.4206 -114.1773,34.4173 -114.1748,34.4163 -114.1709,34.4135 -114.1679,34.4113 -114.1605,34.4098 -114.1527,34.4042 -114.1491,34.4021 -114.1462,34.3987 -114.1412,34.395 -114.1375,34.3901 -114.1358,34.3875 -114.1332,34.3835 -114.1191,34.3758 -114.112,34.3737 -114.1051,34.3699 -114.0944,34.364 -114.0857,34.359 -114.0792,34.3553 -114.0682,34.3494 -114.0619,34.346 -114.0588,34.3408 -114.0514,34.3397 -114.0469,34.3374 -114.0389,34.3361 -114.0332,34.3337 -114.0285,34.3311 -114.0227,34.3278 -114.0163,34.323 -114.0132,34.3182 -114.0048,34.3094 -113.9999,34.3024 -113.9952,34.299 -113.9898,34.2933 -113.9844,34.2867 -113.9806,34.2805 -113.9806,34.2772 -113.9796,34.2726 -113.978,34.2684 -113.9781,34.2662 -113.9783,34.2624 -113.978,34.2583 -113.9755,34.2543 -113.9718,34.2469 -113.9711,34.2445 -113.9698,34.242 -113.9717,34.2386 -113.977,34.2372 -113.9783,34.2369 -113.9884,34.2345 -113.9934,34.2333 -113.9963,34.2326 -114.0001,34.2317 -114.0046,34.2282 -114.0076,34.2224 -114.0123,34.217 -114.0185,34.208 -114.0218,34.2061 -114.0284,34.2024 -114.0362,34.1956 -114.0405,34.1932 -114.0494,34.1855 -114.0552,34.184 -114.0595,34.1776 -114.0619,34.1739 -114.0639,34.1707 -114.0657,34.1678 -114.0692,34.1638 -114.0715,34.1611 -114.0733,34.1589 -114.0773,34.1561 -114.0795,34.1544 -114.0825,34.1526 -114.0872,34.1499 -114.0942,34.1478 -114.0991,34.1463 -114.1045,34.1448 -114.1125,34.1424 -114.1189,34.1405 -114.1252,34.1383 -114.1313,34.1362 -114.1392,34.1318 -114.1498,34.1192 -114.1568,34.1155 -114.161,34.1132 -114.1666,34.1102 -114.1773,34.1068 -114.1838,34.1041 -114.1908,34.1012 -114.1975,34.0977 -114.2019,34.0937 -114.2062,34.0888 -114.2125,34.0849 -114.2209,34.0823 -114.2264,34.0802 -114.2321,34.078 -114.2412,34.0737 -114.256,34.0671 -114.2599,34.0653 -114.2615,34.0612 -114.2646,34.0533 -114.2687,34.0507 -114.2673,34.0393 -114.268,34.0354 -114.269,34.0291 -114.2694,34.0235 -114.2696,34.0211 -114.2702,34.0156 -114.2716,34.0103 -114.2717,34.008 -114.2735,34.0038 -114.2752,33.9994 -114.2768,33.9941 -114.2777,33.9909 -114.2829,33.9855 -114.2914,33.9807 -114.2987,33.9768 -114.304,33.9749 -114.3051,33.9695 -114.3071,33.9691 -114.3129,33.9681 -114.3183,33.9655 -114.3221,33.9649 -114.3284,33.9591 -114.3308,33.9536 -114.3338,33.9493 -114.3368,33.9435 -114.3423,33.9434 -114.346,33.9419 -114.3487,33.9409 -114.3546,33.9369 -114.3577,33.935 -114.3609,33.9325 -114.3647,33.931 -114.3693,33.9253 -114.3721,33.9184 -114.3711,33.9151 -114.368,33.9076 -114.3608,33.9008 -114.3571,33.8972 -114.3526,33.8956 -114.3481,33.8896 -114.3455,33.8873 -114.3469,33.8834 -114.3505,33.8802 -114.3525,33.8769 -114.3557,33.8771 -114.3596,33.8762 -114.3625,33.8727 -114.3625,33.8704 -114.3615,33.8667 -114.3578,33.8625 -114.3515,33.8588 -114.3538,33.8564 -114.3559,33.8545 -114.359,33.8502 -114.3624,33.8441 -114.3633,33.8409 -114.3653,33.8347 -114.3674,33.8318 -114.3688,33.8299 -114.3735,33.8215 -114.3652,33.8049 -114.366,33.7963 -114.3678,33.7909 -114.365,33.7862 -114.3642,33.7792 -114.3637,33.7754 -114.362,33.7733 -114.3575,33.7666 -114.3564,33.7648 -114.354,33.7559 -114.3533,33.753 -114.3516,33.7451 -114.351,33.7376 -114.3538,33.7239 -114.3549,33.7218 -114.3566,33.7183 -114.3586,33.7143 -114.3567,33.7091 -114.3559,33.7055 -114.3527,33.6984 -114.349,33.6926 -114.3447,33.6869 -114.3438,33.6829 -114.3426,33.6802 -114.3421,33.6743 -114.3457,33.6686 -114.3478,33.6646 -114.3493,33.6618 -114.3521,33.66 -114.3551,33.6601 -114.3615,33.6602 -114.3703,33.6595 -114.3771,33.656 -114.3811,33.6506 -114.3817,33.6483 -114.3813,33.6463 -114.3819,33.644 -114.3825,33.6411 -114.3782,33.6365 -114.3717,33.6314 -114.3742,33.6268 -114.3747,33.6234 -114.3755,33.6187 -114.3789,33.6142 -114.382,33.6052 -114.38,33.5974 -114.3774,33.5914 -114.375,33.5843 -114.3775,33.5769 -114.3788,33.5753 -114.3815,33.5678 -114.3838,33.5629 -114.384,33.5579 -114.3841,33.5557 -114.3841,33.5533 -114.3858,33.549 -114.3866,33.547 -114.3848,33.5429 -114.3819,33.5412 -114.379,33.5391 -114.376,33.536 -114.3751,33.5301 -114.3759,33.526 -114.3779,33.5236 -114.3822,33.5221 -114.3865,33.5205 -114.3907,33.5175 -114.3943,33.5137 -114.3983,33.5091 -114.4024,33.5043 -114.404,33.5023 -114.4062,33.4996 -114.4106,33.4943 -114.416,33.4849 -114.42,33.4799 -114.4279,33.4756 -114.4369,33.4711 -114.4394,33.4651 -114.4402,33.4609 -114.4426,33.4562 -114.4445,33.452 -114.4482,33.4491 -114.4534,33.4483 -114.4548,33.4466 -114.4579,33.445 -114.4597,33.442 -114.462,33.4398 -114.4651,33.4277 -114.4681,33.4204 -114.4739,33.4105 -114.4757,33.4049 -114.4773,33.3998 -114.4788,33.3952 -114.4822,33.3952 -114.4842,33.3874 -114.4862,33.3868 -114.4902,33.3827 -114.498,33.3778 -114.5058,33.3757 -114.52,33.3783 -114.5347,33.3822 -114.5397,33.3805 -114.5492,33.377 -114.5547,33.3749 -114.5663,33.3765 -114.5714,33.377 -114.5723,33.3705 -114.5696,33.367 -114.5687,33.3621 -114.5655,33.3572 -114.5623,33.351 -114.5597,33.3452 -114.5576,33.3394 -114.5551,33.3349 -114.5531,33.3305 -114.5523,33.3264 -114.5509,33.3229 -114.5501,33.3183 -114.551,33.316 -114.5529,33.3118 -114.5566,33.3116 -114.5594,33.3065 -114.5612,33.3031 -114.5646,33.2989 -114.5686,33.2941 -114.569,33.2914 -114.5727,33.289 -114.5767,33.2833 -114.5803,33.2804 -114.5812,33.2771 -114.5819,33.2716 -114.5799,33.2676 -114.5763,33.2645 -114.575,33.2606 -114.566,33.2569 -114.5608,33.2544 -114.5539,33.2502 -114.5478,33.2492 -114.5422,33.2472 -114.5354,33.2452 -114.5308,33.2427 -114.5273,33.2392 -114.5242,33.2339 -114.5242,33.2275 -114.5273,33.2215 -114.53,33.2163 -114.5317,33.2126 -114.5326,33.2106 -114.5324,33.2053 -114.5322,33.201 -114.5299,33.1957 -114.5284,33.1934 -114.5265,33.1905 -114.5267,33.185 -114.5265,33.1828 -114.5272,33.1777 -114.5269,33.1732 -114.5283,33.169 -114.5269,33.1636 -114.5259,33.1595 -114.5249,33.156 -114.5246,33.1482 -114.5244,33.1424 -114.5244,33.1394 -114.5246,33.1332 -114.5258,33.1276 -114.5274,33.1233 -114.5288,33.1194 -114.531,33.1176 -114.5319,33.1153 -114.5336,33.1111 -114.5353,33.11 -114.5366,33.1075 -114.5418,33.1059 -114.5447,33.1007 -114.5484,33.0982 -114.5515,33.0949 -114.554,33.0916 -114.5559,33.0883 -114.5556,33.0818 -114.5585,33.0781 -114.5588,33.0749 -114.5568,33.0599 -114.555,33.0567 -114.5503,33.0562 -114.5469,33.0541 -114.5439,33.0515 -114.5415,33.0489 -114.5396,33.0449 -114.5402,33.0423 -114.5376,33.0404 -114.5324,33.0326 -114.5308,33.0284 -114.5293,33.0243 -114.5268,33.017 -114.5232,33.0101 -114.5169,33.0013 -114.5136,32.9999 -114.5055,32.9983 -114.4983,32.9991 -114.4922,33.0013 -114.4868,33.0002 -114.4787,32.996 -114.4685,32.9898 -114.4565,32.9869 -114.445,32.9871 -114.434,32.9905 -114.4224,32.993 -114.401,32.9952 -114.3872,32.9938 -114.3797,32.9937 -114.37,32.9896 -114.362,32.9835 -114.3567,32.9756 -114.3542,32.9692 -114.3485,32.9577 -114.3416,32.9511 -114.3298,32.945 -114.3234,32.9403 -114.3186,32.9347 -114.3159,32.9277 -114.317,32.925 -114.3173,32.923 -114.3196,32.9186 -114.3202,32.9131 -114.3215,32.9101 -114.3223,32.9072 -114.3235,32.9034 -114.3259,32.8971 -114.3261,32.8902 -114.3247,32.8829 -114.3206,32.8728 -114.3171,32.8618 -114.3169,32.8522 -114.3178,32.8409 -114.3188,32.8281 -114.3202,32.8177 -114.3199,32.8113 -114.3342,32.797 -114.3405,32.7967 -114.3488,32.7937 -114.351,32.7922 -114.3561,32.7889 -114.3595,32.7861 -114.3639,32.7827 -114.3667,32.7807 -114.3705,32.778 -114.3734,32.776 -114.3768,32.7721 -114.3785,32.7702 -114.3804,32.7651 -114.3815,32.7621 -114.3809,32.7592 -114.3851,32.7517 -114.3858,32.7453 -114.3851,32.7372 -114.3897,32.7371 -114.3895,32.7307 -114.3993,32.7306 -114.3995,32.7267 -114.408,32.7267 -114.4075,32.7185 -114.4161,32.7191 -114.4162,32.7148 -114.4187,32.7147 -114.4185,32.7082 -114.4295,32.7085 -114.4289,32.7028 -114.45,32.7018 -114.4504,32.6922 -114.4543,32.6929 -114.4609,32.6944 -114.4688,32.6972 -114.4738,32.6983 -114.4814,32.698 -114.4858,32.6987 -114.4907,32.6989 -114.494,32.6982 -114.4978,32.6981 -114.5028,32.6992 -114.5089,32.7002 -114.5115,32.6997 -114.5149,32.7013 -114.5189,32.7025 -114.5233,32.7032 -114.5311,32.7064 -114.5361,32.7071 -114.5405,32.7073 -114.5443,32.7067 -114.5475,32.7065 -114.5518,32.7049 -114.555,32.7039 -114.5565,32.7024 -114.5592,32.7009 -114.5607,32.6995 -114.5622,32.6976 -114.5631,32.6957 -114.5646,32.6938 -114.5661,32.691 -114.5671,32.6855 -114.5693,32.6819 -114.5705,32.6799 -114.5721,32.6747 -114.5822,32.6488 -114.6423,32.5215 -114.6603,32.4707 -114.6548,32.4683 233,-8.0,United States -116.9104,46.3148 -116.9032,46.3097 -116.8993,46.3093 -116.8933,46.3084 -116.8867,46.3074 -116.8808,46.3061 -116.8742,46.3015 -116.8729,46.2983 -116.8703,46.2946 -116.8683,46.2905 -116.8668,46.2885 -116.8644,46.2855 -116.8611,46.2768 -116.8565,46.2722 -116.8512,46.2703 -116.8479,46.2685 -116.8433,46.2621 -116.8413,46.2575 -116.8407,46.2516 -116.8394,46.2461 -116.8374,46.2406 -116.8341,46.2342 -116.8302,46.2305 -116.8256,46.2264 -116.8216,46.2204 -116.819,46.2154 -116.817,46.209 -116.8157,46.203 -116.8151,46.1966 -116.817,46.1787 -116.817,46.1751 -116.8151,46.17 -116.8138,46.1636 -116.8105,46.1604 -116.796,46.1531 -116.7921,46.1476 -116.7855,46.1421 -116.7796,46.1357 -116.7757,46.1316 -116.7757,46.127 -116.7783,46.1247 -116.781,46.1197 -116.7842,46.1155 -116.7869,46.1119 -116.7882,46.1068 -116.7895,46.0991 -116.7954,46.094 -116.7994,46.0904 -116.8013,46.0858 -116.8033,46.0798 -116.8046,46.0766 -116.8046,46.073 -116.8059,46.0666 -116.8079,46.0634 -116.8099,46.0615 -116.8138,46.0592 -116.8171,46.0579 -116.8204,46.0569 -116.8243,46.0547 -116.8289,46.0519 -116.8328,46.0496 -116.8335,46.0473 -116.8328,46.0441 -116.8309,46.0437 -116.8276,46.0432 -116.8243,46.0432 -116.8197,46.0423 -116.8158,46.0414 -116.8118,46.0382 -116.8066,46.034 -116.804,46.0318 -116.8007,46.0267 -116.8001,46.0231 -116.7987,46.0185 -116.7929,46.0061 -116.787,46.0011 -116.7811,45.9974 -116.7791,45.9951 -116.7778,45.9887 -116.7772,45.9841 -116.7752,45.9805 -116.7719,45.9768 -116.77,45.9732 -116.7687,45.9704 -116.768,45.9672 -116.7667,45.9645 -116.7654,45.9613 -116.7634,45.959 -116.7607,45.9558 -116.7589,45.9539 -116.7523,45.9512 -116.7471,45.948 -116.7445,45.9466 -116.7425,45.9402 -116.7419,45.9352 -116.741,45.9332 -116.7295,45.92 -116.7255,45.9145 -116.7197,45.9077 -116.7138,45.8962 -116.7079,45.8889 -116.706,45.8797 -116.7027,45.8697 -116.6969,45.8651 -116.693,45.8605 -116.689,45.8541 -116.6812,45.8491 -116.6773,45.8472 -116.6688,45.8417 -116.6506,45.8777 -116.6258,45.911 -116.5905,45.9387 -116.5421,45.9577 -116.5411,46.1908 -116.5397,46.194 -116.5325,46.199 -116.5259,46.2022 -116.5226,46.2054 -116.5219,46.2077 -116.5219,46.2127 -116.5238,46.2173 -116.5291,46.2214 -116.533,46.2237 -116.5428,46.2306 -116.5448,46.2366 -116.5421,46.2434 -116.5506,46.2494 -116.5579,46.2522 -116.5611,46.2581 -116.5598,46.2632 -116.5617,46.2733 -116.5604,46.2806 -116.5565,46.2868 -116.5564,46.287 -116.3393,46.2859 -116.3379,46.2891 -116.3359,46.2941 -116.3332,46.3001 -116.3293,46.3037 -116.3267,46.3057 -116.3246,46.3074 -116.3227,46.308 -116.3167,46.3099 -116.3134,46.311 -116.3015,46.3123 -116.2936,46.3118 -116.2884,46.3095 -116.2805,46.3067 -116.2647,46.3103 -116.2588,46.3112 -116.2476,46.3103 -116.2311,46.3088 -116.2232,46.3088 -116.214,46.311 -116.212,46.317 -116.2124,46.3232 -116.2125,46.3252 -116.2129,46.3269 -116.2138,46.3307 -116.2131,46.3358 -116.2093,46.3391 -116.2085,46.3399 -116.208,46.3409 -116.2064,46.3444 -116.207,46.3509 -116.2102,46.361 -116.2095,46.3683 -116.2086,46.3731 -116.2081,46.3756 -116.2166,46.3802 -116.2284,46.3849 -116.2329,46.3878 -116.2379,46.3911 -116.2383,46.3913 -116.2448,46.3982 -116.2487,46.4037 -116.2539,46.4116 -116.2584,46.4203 -116.2597,46.4244 -116.2577,46.4262 -116.2557,46.4276 -116.2518,46.4285 -116.2486,46.4288 -116.2412,46.4296 -116.2346,46.4303 -116.2267,46.4321 -116.2232,46.432 -116.2181,46.432 -116.2182,46.4335 -116.2198,46.4591 -116.2759,46.4566 -116.2904,46.4575 -116.3023,46.4594 -116.3092,46.5878 -116.4467,46.5878 -116.4534,46.5866 -116.4539,46.5865 -116.4632,46.587 -116.4698,46.5856 -116.4771,46.581 -116.4857,46.5774 -116.4891,46.5714 -116.4937,46.5692 -116.5036,46.5646 -116.5149,46.56 -116.5176,46.5568 -116.5202,46.5532 -116.5262,46.5491 -116.5328,46.544 -116.5408,46.5376 -116.5434,46.5344 -116.5461,46.5285 -116.5481,46.5211 -116.5495,46.5157 -116.5508,46.5097 -116.5521,46.5051 -116.5548,46.4996 -116.8882,46.5027 -116.8848,46.3941 -116.8835,46.3918 -116.8835,46.3867 -116.8842,46.3826 -116.8855,46.3785 -116.8881,46.3739 -116.8894,46.3675 -116.8894,46.3597 -116.8907,46.3546 -116.8999,46.3427 -116.9052,46.3391 -116.9059,46.3326 -116.9078,46.3271 -116.9105,46.3194 -116.9104,46.3148 4,-8.0,United States -114.4391,46.5934 -114.4187,46.5967 -114.4393,46.5934 -114.4391,46.5934 2915,-7.0,United States -118.076,44.136 -118.0751,44.13 -118.0737,44.1177 -118.0722,44.1063 -118.0701,44.0945 -118.0711,44.084 -118.0723,44.0808 -118.0715,43.996 -118.0669,43.7433 -118.0733,43.7428 -118.0668,43.4187 -118.0651,43.2854 -118.0674,43.1689 -118.0661,43.1307 -118.0653,42.8705 -118.0553,42.8706 -118.0529,42.3647 -116.8655,42.3696 -116.8652,41.9609 -116.8658,41.9551 -116.8387,41.957 -116.6601,41.959 -116.5231,41.9606 -116.5151,41.9607 -116.2798,41.9614 -116.2199,41.9613 -116.1434,41.9607 -116.0081,41.9595 -115.8254,41.9579 -114.8701,41.9591 -114.4674,41.9587 -114.1154,41.9585 -113.8855,41.9613 -113.8866,41.9356 -113.886,41.8315 -113.8859,41.7193 -113.8848,41.5122 -113.8852,41.3834 -113.8852,41.3551 -113.8854,41.1921 -113.8846,40.9637 -113.8855,40.912 -113.8858,40.8956 -113.8862,40.8402 -113.8865,40.8062 -113.885,40.7191 -113.8858,40.6868 -113.8862,40.6691 -113.8856,40.6092 -113.8859,40.5448 -113.8866,40.4686 -113.8866,40.3819 -113.8845,40.3406 -113.8842,40.2889 -113.8837,40.1696 -113.8845,40.0771 -113.8854,40.0403 -113.8857,39.9909 -113.886,39.9392 -113.8864,39.9288 -113.8875,39.917 -113.8863,39.8748 -113.8873,39.8485 -113.8862,39.8172 -113.8859,39.7523 -113.8864,39.6965 -113.8867,39.6467 -113.8872,39.6054 -113.8867,39.5428 -113.8865,39.5047 -113.8881,39.4226 -113.8884,39.3714 -113.8882,39.3025 -113.888,39.2077 -113.8882,39.0857 -113.8894,38.9837 -113.8904,38.8699 -113.8918,38.7634 -113.8907,38.645 -113.8912,38.6337 -113.8888,38.6055 -113.891,38.5643 -113.8915,38.5371 -113.8928,38.4913 -113.8931,38.397 -113.8938,38.3063 -113.8938,38.232 -113.8937,38.1036 -113.8937,38.0592 -113.8944,37.9259 -113.8945,37.7772 -113.8937,37.5645 -113.8944,37.5169 -113.891,37.2088 -113.8908,36.9643 -113.7079,36.9638 -113.581,36.9647 -113.5579,36.9649 -113.4777,36.9655 -113.4054,36.966 -113.3693,36.966 -113.2481,36.9661 -113.1488,36.9651 -113.0958,36.965 -112.9412,36.965 -112.8501,36.9643 -112.7995,36.9651 -112.7464,36.9659 -112.7441,36.9659 -112.6183,36.9654 -112.5099,36.9639 -112.4845,36.9636 -112.3847,36.9657 -112.3825,36.9657 -112.3292,36.9648 -112.3115,36.9645 -112.2566,36.965 -112.2493,36.965 -112.1697,36.9645 -112.0837,36.9628 -112.0497,36.9622 -111.922,36.9639 -111.8595,36.9647 -111.7748,36.9645 -111.7674,36.9644 -111.6439,36.9644 -111.5856,36.9643 -111.5494,36.9647 -111.4537,36.9656 -111.4482,36.9656 -111.4203,36.9658 -111.305,36.9667 -111.2576,36.9667 -111.2547,36.9672 -111.2473,36.9734 -111.2455,36.9749 -111.2391,36.9747 -111.2323,36.973 -111.225,36.9708 -111.2182,36.9687 -111.2142,36.9685 -111.2119,36.9683 -111.2062,36.9677 -111.2015,36.9684 -111.1992,36.9682 -111.192,36.9678 -111.1732,36.9663 -111.0958,36.9693 -111.01,36.9692 -110.9809,36.9692 -110.9144,36.9691 -110.8793,36.9691 -110.8175,36.9693 -110.7552,36.9695 -110.7248,36.9696 -110.6587,36.9701 -110.6297,36.9703 -110.5882,36.97 -110.4936,36.9698 -110.43,36.9696 -110.4115,36.9696 -110.3553,36.97 -110.3427,36.9699 -110.3294,36.9689 -110.3206,36.9657 -110.3084,36.9612 -110.305,36.96 -110.2988,36.9577 -110.1972,36.9576 -110.143,36.9586 -110.0965,36.9594 -110.0769,36.9598 -110.0474,36.96 -110.0336,36.9604 -109.9504,36.9595 -109.9449,36.9594 -109.8649,36.9598 -109.844,36.958 -109.7858,36.9594 -109.6091,36.9594 -109.5819,36.9592 -109.516,36.9587 -109.4868,36.9583 -109.4218,36.9589 -109.3848,36.9587 -109.3201,36.9596 -109.2724,36.9592 -109.1985,36.9607 -109.1676,36.9606 -109.0816,36.9616 -109.0403,36.9616 -108.9654,36.962 -108.952,36.9621 -108.9423,36.9624 -108.9309,36.9629 -108.907,36.9638 -108.8971,36.9642 -108.8956,36.9023 -108.8967,36.8003 -108.8966,36.7114 -108.896,36.6175 -108.896,36.5545 -108.8955,36.4842 -108.8954,36.476 -108.8953,36.4575 -108.8953,36.3627 -108.8946,36.2493 -108.894,36.1713 -108.8934,36.0987 -108.8939,36.0297 -108.8944,35.9626 -108.894,35.2075 -108.8939,35.1991 -108.8928,35.129 -108.8922,35.0536 -108.8927,34.9791 -108.8932,34.9206 -108.8934,34.9071 -108.8938,34.8806 -108.8943,34.7993 -108.8943,34.7923 -108.8942,34.6594 -108.8953,34.5577 -108.8957,34.3178 -108.8952,34.1837 -108.895,34.1306 -108.8971,33.9933 -108.897,33.7492 -108.898,33.6546 -108.8982,33.5545 -108.8984,33.4217 -108.8973,33.3221 -108.8972,33.1711 -108.8971,33.1501 -108.8977,33.1092 -108.8971,33.0755 -108.8979,33.0579 -108.8982,33.0527 -108.8982,33.0127 -108.8987,32.953 -108.897,32.8816 -108.8975,32.8115 -108.898,32.7454 -108.8951,32.546 -108.8946,32.5277 -108.8951,32.515 -108.8967,32.4895 -108.8973,32.4799 -108.8973,32.4612 -108.8961,32.4079 -108.895,32.3068 -108.8933,32.1413 -108.8927,32.0333 -108.8937,31.9252 -108.8953,31.8646 -108.8936,31.7975 -108.8936,31.7469 -108.8946,31.6794 -108.8929,31.5608 -108.8912,31.428 -108.8923,31.3093 -108.8923,31.2978 -108.6911,31.2976 -108.675,31.2981 -108.6371,31.2978 -108.0674,31.2981 -108.0669,31.3315 -108.0676,31.3984 -108.0671,31.4974 -108.0678,31.5642 -108.067,31.6642 -108.0679,31.748 -108.0341,31.7486 -107.7677,31.7474 -107.5678,31.7483 -107.468,31.7479 -107.4348,31.7485 -107.368,31.7477 -107.3015,31.7486 -107.2351,31.7479 -107.2014,31.7484 -107.1352,31.7478 -107.1022,31.7483 -107.0351,31.7479 -107.0024,31.7486 -106.936,31.7479 -106.4696,31.7482 -106.401,31.7465 -106.3842,31.7451 -106.3577,31.7216 -106.3215,31.7148 -106.3005,31.7161 -106.2781,31.7186 -106.2575,31.7122 -106.196,31.6521 -106.1648,31.6022 -106.1508,31.5623 -106.134,31.524 -106.0718,31.4371 -106.0056,31.3968 -105.9247,31.3675 -105.8735,31.3601 -105.8347,31.3347 -105.7202,31.2475 -105.7042,31.2343 -105.6899,31.2196 -105.6493,31.1734 -105.634,31.1435 -105.5723,31.1093 -105.4628,31.0469 -105.4434,31.0233 -105.404,30.9616 -105.3536,30.9117 -105.2559,30.8315 -105.1163,30.7627 -105.0856,30.7702 -105.0328,30.7441 -104.9882,30.7153 -104.9252,30.6599 -104.8545,30.5981 -104.8344,30.6089 -104.8342,30.6073 -104.7621,30.6476 -104.7628,30.7816 -104.7493,30.781 -104.7492,30.9471 -104.7628,30.9496 -104.769,31.9665 -104.758,31.9663 -104.7265,31.9693 -104.7101,31.969 -104.6981,31.9694 -104.6891,31.9693 -104.6783,31.9692 -104.6348,31.9687 -104.5743,31.9691 -104.5647,31.9692 -104.5289,31.9694 -104.5041,31.9696 -104.4549,31.9699 -104.4256,31.9701 -104.3787,31.9703 -104.3208,31.9704 -104.2721,31.9706 -104.2436,31.9707 -104.1747,31.9709 -103.8661,31.9732 -103.8426,31.9719 -103.8281,31.971 -103.5635,31.9708 -103.1795,31.9655 -103.1689,31.9654 -102.9052,31.9668 -102.9024,32.0509 -102.9054,32.4817 -102.8993,32.4818 -102.8992,32.9174 -102.8955,33.3459 -102.8882,33.5317 -102.888,33.5359 -102.8842,33.7944 -102.8796,34.2152 -102.8803,34.2757 -102.8788,34.5798 -102.8736,34.7181 -102.872,34.9325 -102.8729,35.1432 -102.8729,35.1478 -102.869,35.5896 -102.8691,35.5928 -102.8694,35.7082 -102.8708,36.0254 -102.8741,36.458 -102.8502,36.459 -102.8509,36.9648 -102.8445,36.9648 -102.6143,36.9644 -102.6022,36.9643 -102.5851,36.9643 -102.5819,36.9637 -102.577,36.9627 -102.5702,36.9613 -102.5607,36.9612 -102.5578,36.9611 -102.3826,36.9591 -102.2783,36.958 -101.8877,36.9535 -101.8888,37.3522 -101.8912,37.6074 -101.8908,37.7003 -101.3676,37.6975 -101.37,37.789 -101.384,37.7904 -101.3859,38.2214 -101.4076,38.2228 -101.4103,38.6592 -101.3254,38.6606 -101.32,39.0939 -101.234,39.0952 -101.2321,39.5313 -101.2536,39.5331 -101.8956,39.5288 -101.8962,39.5347 -101.8983,39.9649 -101.2542,39.967 -101.169,39.9678 -101.1693,40.3088 -101.1886,40.3092 -101.1878,40.6634 -101.0902,40.6637 -101.0922,40.9668 -101.0902,41.0071 -101.1097,41.0104 -101.1097,41.3561 -101.2499,41.3577 -101.2556,41.7031 -100.6865,41.7046 -100.6919,42.048 -100.5934,42.0474 -100.5945,42.0475 -100.5945,42.1737 -100.6548,42.1738 -100.6552,42.3185 -100.6644,42.3185 -100.6644,42.3975 -100.6254,42.3975 -100.6266,42.5751 -100.7354,42.5762 -100.7351,42.727 -100.6987,42.7274 -100.6987,42.7526 -100.7045,42.7526 -100.7045,42.7893 -100.7503,42.7893 -100.7516,42.9541 -100.7511,42.9541 -100.0469,42.957 -100.0501,43.1003 -100.0664,43.1003 -100.0647,43.3603 -100.0632,43.444 -100.0809,43.445 -100.0786,43.6809 -100.0914,43.6781 -100.0985,43.676 -100.106,43.678 -100.1111,43.6786 -100.122,43.6758 -100.1291,43.6728 -100.1343,43.6706 -100.1379,43.6739 -100.1403,43.6772 -100.1438,43.6823 -100.1505,43.687 -100.1575,43.6868 -100.1695,43.6871 -100.1809,43.6879 -100.1852,43.6894 -100.1901,43.6927 -100.2025,43.6985 -100.2124,43.7024 -100.22,43.7022 -100.2271,43.6992 -100.2355,43.6967 -100.2437,43.6983 -100.2493,43.7007 -100.2549,43.7022 -100.2619,43.701 -100.2646,43.6975 -100.2643,43.6925 -100.2638,43.6893 -100.2645,43.687 -100.2715,43.6867 -100.2759,43.6873 -100.2815,43.6893 -100.2858,43.6917 -100.2907,43.695 -100.2957,43.6969 -100.3009,43.6948 -100.3042,43.6922 -100.3119,43.6896 -100.3171,43.687 -100.3241,43.6868 -100.324,43.6895 -100.3232,43.6927 -100.3222,43.6986 -100.3232,43.7041 -100.3277,43.7037 -100.3316,43.702 -100.3354,43.7007 -100.3392,43.7018 -100.346,43.7038 -100.3512,43.7021 -100.3564,43.6995 -100.3634,43.6983 -100.3684,43.6998 -100.3693,43.7071 -100.3717,43.7099 -100.3779,43.7123 -100.3837,43.7107 -100.3902,43.7086 -100.3959,43.7069 -100.3998,43.7056 -100.4042,43.7057 -100.406,43.7085 -100.4044,43.7158 -100.4036,43.7189 -100.404,43.7231 -100.4076,43.7263 -100.4127,43.7269 -100.4159,43.7252 -100.4185,43.7239 -100.4223,43.7244 -100.4241,43.7272 -100.4278,43.7291 -100.4308,43.731 -100.4346,43.733 -100.4441,43.7327 -100.4518,43.7302 -100.461,43.7236 -100.4651,43.7169 -100.4742,43.7121 -100.4807,43.7104 -100.4881,43.7129 -100.4944,43.714 -100.5073,43.7107 -100.5087,43.7075 -100.5063,43.7038 -100.5059,43.7006 -100.5078,43.6993 -100.5117,43.6976 -100.5201,43.695 -100.5234,43.6919 -100.5254,43.6888 -100.5268,43.6861 -100.5313,43.6848 -100.5376,43.6864 -100.5439,43.6884 -100.544,43.9512 -100.3679,44.1396 -100.203,44.3161 -100.2076,44.3169 -100.2145,44.3184 -100.2199,44.3245 -100.226,44.3315 -100.23,44.3394 -100.232,44.3508 -100.2346,44.3623 -100.2309,44.37 -100.2278,44.3799 -100.2282,44.3859 -100.229,44.3946 -100.2324,44.4024 -100.2353,44.4084 -100.2382,44.414 -100.2462,44.4201 -100.2594,44.4255 -100.2732,44.43 -100.2911,44.4314 -100.3129,44.4306 -100.3303,44.4288 -100.3464,44.426 -100.364,44.4214 -100.3757,44.4181 -100.3878,44.4179 -100.3974,44.4182 -100.4108,44.4194 -100.4209,44.4234 -100.4334,44.4292 -100.4401,44.4362 -100.4417,44.4421 -100.4425,44.4517 -100.4394,44.4612 -100.4333,44.4693 -100.4266,44.4742 -100.4129,44.4788 -100.4025,44.4813 -100.3922,44.4824 -100.3799,44.4862 -100.374,44.4883 -100.3692,44.4932 -100.3663,44.5009 -100.3658,44.5095 -100.3688,44.5146 -100.3805,44.5236 -100.3939,44.5258 -100.4047,44.5265 -100.4142,44.5295 -100.422,44.527 -100.4305,44.5231 -100.4458,44.5258 -100.4578,44.5293 -100.4698,44.5337 -100.4816,44.5413 -100.4882,44.551 -100.492,44.5643 -100.4934,44.5744 -100.4934,44.5877 -100.489,44.5976 -100.4802,44.6079 -100.4758,44.6182 -100.4722,44.6264 -100.4679,44.6349 -100.4643,44.6435 -100.4638,44.6531 -100.4648,44.6586 -100.4696,44.6656 -100.4725,44.6716 -100.4753,44.6794 -100.4768,44.6886 -100.4777,44.6968 -100.48,44.7028 -100.4861,44.708 -100.4937,44.7109 -100.5013,44.7134 -100.5134,44.7164 -100.521,44.7189 -100.528,44.7204 -100.5387,44.7239 -100.5476,44.7264 -100.5564,44.7303 -100.562,44.7354 -100.5657,44.7369 -100.5738,44.7439 -100.576,44.7499 -100.578,44.7618 -100.5775,44.7723 -100.5753,44.7787 -100.5691,44.7863 -100.5644,44.7916 -100.5577,44.7965 -100.5487,44.7967 -100.5352,44.795 -100.5218,44.7924 -100.5137,44.7881 -100.5056,44.7815 -100.4982,44.7759 -100.4927,44.7693 -100.4793,44.7553 -100.4697,44.7414 -100.4589,44.7374 -100.447,44.7316 -100.4298,44.7285 -100.4138,44.7271 -100.4028,44.7287 -100.3885,44.7315 -100.3753,44.7371 -100.368,44.7424 -100.3598,44.7513 -100.3524,44.7575 -100.3462,44.7651 -100.3394,44.7727 -100.3312,44.7807 -100.3232,44.786 -100.3152,44.7922 -100.3025,44.8 -100.2886,44.807 -100.2781,44.8113 -100.2688,44.8165 -100.2543,44.8216 -100.2501,44.8283 -100.2472,44.8346 -100.2456,44.841 -100.2447,44.846 -100.2457,44.851 -100.2487,44.8548 -100.2534,44.8636 -100.2623,44.8784 -100.2686,44.8923 -100.2752,44.9149 -100.2755,44.9336 -100.2773,44.9469 -100.2772,44.9611 -100.2767,44.9716 -100.2718,44.9778 -100.2583,44.9889 -100.2432,44.9935 -100.2243,44.9976 -100.2017,44.9965 -100.1844,44.9937 -100.1678,44.9905 -100.1492,44.9882 -100.1401,44.9898 -100.1301,44.9954 -100.1277,45.0027 -100.1345,45.0088 -100.1477,45.0156 -100.1565,45.0195 -100.1639,45.0265 -100.1687,45.0331 -100.1783,45.047 -100.179,45.0571 -100.179,45.0699 -100.1764,45.0822 -100.1715,45.0884 -100.1646,45.0965 -100.1539,45.1035 -100.143,45.1123 -100.1375,45.1177 -100.1345,45.1263 -100.1331,45.139 -100.1346,45.1473 -100.1354,45.1569 -100.1265,45.1777 -100.1188,45.1994 -100.1178,45.2168 -100.1233,45.2347 -100.1349,45.2474 -100.149,45.262 -100.1582,45.2709 -100.1692,45.2845 -100.1688,45.2904 -100.1659,45.2976 -100.1595,45.3061 -100.15,45.3146 -100.1386,45.3211 -100.1291,45.3286 -100.1267,45.3368 -100.1267,45.3487 -100.1308,45.3566 -100.1373,45.3673 -100.1426,45.377 -100.153,45.3887 -100.1622,45.3986 -100.1722,45.4071 -100.1779,45.41 -100.1834,45.4161 -100.1856,45.4226 -100.1872,45.4285 -100.1918,45.441 -100.1988,45.4549 -100.2069,45.4606 -100.2176,45.4678 -100.233,45.4728 -100.2426,45.4753 -100.2549,45.4766 -100.275,45.4766 -100.2899,45.4789 -100.3041,45.4811 -100.3128,45.4872 -100.3185,45.4906 -100.3267,45.4958 -100.3322,45.5037 -100.3356,45.5125 -100.3378,45.5208 -100.3369,45.5254 -100.3333,45.5317 -100.3285,45.5366 -100.3197,45.5419 -100.3111,45.5439 -100.3006,45.5473 -100.2972,45.5495 -100.2911,45.553 -100.2897,45.5548 -100.2854,45.5625 -100.2814,45.5761 -100.2794,45.5897 -100.2776,45.5998 -100.2757,45.6107 -100.2734,45.6175 -100.2692,45.6211 -100.2593,45.6245 -100.2404,45.6249 -100.2188,45.6247 -100.2052,45.6248 -100.1893,45.629 -100.1779,45.6337 -100.1685,45.6394 -100.159,45.6465 -100.1532,45.6573 -100.1515,45.6637 -100.1498,45.6714 -100.1519,45.6806 -100.1541,45.6871 -100.1604,45.6914 -100.1692,45.698 -100.1766,45.7051 -100.1846,45.7144 -100.1913,45.7238 -100.1968,45.7299 -100.1997,45.7368 -100.2063,45.7471 -100.2093,45.7522 -100.2137,45.755 -100.2172,45.7574 -100.2187,45.7584 -100.2215,45.7681 -100.222,45.7832 -100.2268,45.7911 -100.2323,45.7981 -100.2346,45.8032 -100.2271,45.809 -100.2221,45.8162 -100.2199,45.8216 -100.2215,45.8271 -100.2246,45.8318 -100.2309,45.8356 -100.2425,45.8387 -100.2548,45.8408 -100.2645,45.8425 -100.2722,45.8459 -100.2753,45.8496 -100.2729,45.8573 -100.2718,45.8646 -100.2766,45.873 -100.285,45.876 -100.2901,45.8775 -100.2975,45.874 -100.314,45.8708 -100.3191,45.8741 -100.3255,45.877 -100.3357,45.8819 -100.3439,45.8876 -100.3503,45.8896 -100.3575,45.8911 -100.3626,45.8936 -100.3663,45.8978 -100.3661,45.9014 -100.3612,45.9063 -100.3604,45.9219 -100.3607,45.9224 -100.3645,45.9289 -100.3712,45.9405 -100.3815,45.9573 -100.3964,45.97 -100.4214,45.9833 -100.439,46.0032 -100.4586,46.0317 -100.4589,46.0324 -100.4618,46.0394 -100.4622,46.0402 -100.4623,46.0484 -100.4686,46.0739 -100.4753,46.0851 -100.4766,46.0975 -100.475,46.1158 -100.4705,46.1271 -100.4632,46.1407 -100.4539,46.1556 -100.4429,46.1654 -100.4297,46.1788 -100.4199,46.1909 -100.4122,46.1999 -100.4086,46.2067 -100.4134,46.2155 -100.4196,46.223 -100.4269,46.2337 -100.4316,46.2449 -100.4278,46.2544 -100.4228,46.263 -100.4101,46.2778 -100.3985,46.2981 -100.4004,46.3133 -100.4015,46.3294 -100.4131,46.3475 -100.4207,46.367 -100.4266,46.3786 -100.436,46.388 -100.4415,46.3968 -100.4452,46.4144 -100.4454,46.4178 -100.4462,46.4217 -100.4456,46.4239 -100.446,46.4373 -100.4444,46.4442 -100.44,46.4523 -100.4344,46.4619 -100.4334,46.4641 -100.4262,46.4758 -100.4195,46.4903 -100.4191,46.4995 -100.4238,46.5221 -100.4236,46.5248 -100.4243,46.5262 -100.4253,46.5317 -100.4243,46.5386 -100.4211,46.541 -100.4192,46.5476 -100.4304,46.5603 -100.4411,46.565 -100.444,46.5657 -100.4604,46.5689 -100.4707,46.5742 -100.4789,46.5817 -100.4853,46.5874 -100.4884,46.5911 -100.4902,46.5939 -100.4964,46.6014 -100.5016,46.6047 -100.5001,46.6079 -100.506,46.6209 -100.5178,46.6244 -100.5312,46.6252 -100.5397,46.6231 -100.5557,46.6203 -100.567,46.6201 -100.578,46.6245 -100.5829,46.6319 -100.5849,46.6427 -100.5907,46.6486 -100.5999,46.6501 -100.6039,46.6503 -100.6191,46.6502 -100.6277,46.6509 -100.6328,46.6547 -100.6377,46.6621 -100.6441,46.6664 -100.6472,46.6711 -100.649,46.6753 -100.6488,46.6794 -100.6434,46.6815 -100.6374,46.6828 -100.6332,46.6864 -100.6311,46.6895 -100.6295,46.6941 -100.6294,46.6973 -100.6312,46.701 -100.6317,46.7033 -100.6356,46.7052 -100.6442,46.7064 -100.6515,46.7056 -100.6587,46.7067 -100.664,46.7073 -100.6698,46.7097 -100.6743,46.7126 -100.675,46.713 -100.6828,46.716 -100.6865,46.7225 -100.6826,46.7334 -100.6789,46.7404 -100.6772,46.7498 -100.6735,46.7584 -100.6723,46.7685 -100.6732,46.7782 -100.8752,46.778 -100.8777,46.7747 -100.8853,46.7721 -100.8904,46.7654 -100.8972,46.7637 -100.9031,46.7637 -100.9065,46.7586 -100.9039,46.7527 -100.9056,46.7459 -100.9132,46.7392 -100.9377,46.7315 -100.9412,46.7308 -100.9412,46.8688 -101.0557,46.8688 -101.0557,46.9501 -101.2591,46.9506 -101.613,46.9499 -101.613,46.9514 -101.6124,46.9514 -101.613,47.2072 -101.1061,47.2114 -101.1073,47.2326 -101.113,47.2387 -101.12,47.2462 -101.1253,47.2491 -101.1285,47.251 -101.1331,47.2524 -101.1365,47.2529 -101.1464,47.2554 -101.1657,47.2577 -101.175,47.2588 -101.1829,47.2607 -101.1895,47.2623 -101.1947,47.2656 -101.1959,47.2697 -101.1964,47.2734 -101.1977,47.2757 -101.1995,47.2795 -101.2021,47.2827 -101.204,47.2837 -101.2053,47.2855 -101.2111,47.2898 -101.2129,47.2963 -101.2124,47.3077 -101.2128,47.3151 -101.2137,47.3257 -101.2158,47.3386 -101.217,47.3432 -101.2228,47.3498 -101.2247,47.3503 -101.2287,47.3527 -101.2313,47.3545 -101.2353,47.3551 -101.2425,47.3584 -101.2451,47.3599 -101.2477,47.3627 -101.2482,47.3654 -101.2611,47.3956 -101.2663,47.4164 -101.2662,47.4187 -101.2688,47.4201 -101.2721,47.4225 -101.2811,47.4277 -101.2838,47.4305 -101.2843,47.4346 -101.2842,47.4374 -101.2834,47.442 -101.2805,47.4461 -101.2714,47.4556 -101.2679,47.4592 -101.261,47.465 -101.2583,47.4664 -101.2534,47.4699 -101.2507,47.4708 -101.2459,47.4735 -101.2418,47.4748 -101.2364,47.4774 -101.2337,47.4783 -101.2316,47.4797 -101.2288,47.4824 -101.2279,47.4879 -101.2312,47.4907 -101.2324,47.493 -101.2519,47.509 -101.2754,47.5242 -101.2787,47.5252 -101.282,47.5266 -101.2854,47.5271 -101.2887,47.5267 -101.2928,47.5268 -101.2961,47.5282 -101.3014,47.5279 -101.3061,47.5284 -101.3135,47.5276 -101.3196,47.5268 -101.3291,47.5247 -101.3365,47.5225 -101.3494,47.52 -101.3568,47.5178 -101.3643,47.5161 -101.3806,47.5109 -101.3941,47.5075 -101.4009,47.5048 -101.4097,47.5036 -101.4643,47.4958 -101.4764,47.4951 -101.4811,47.4947 -101.4898,47.4958 -101.4938,47.4963 -101.4993,47.4974 -101.5071,47.4984 -101.5151,47.4994 -101.5291,47.5006 -101.5385,47.5012 -101.5432,47.5008 -101.5479,47.5 -101.5526,47.5001 -101.5573,47.4997 -101.5641,47.4984 -101.5715,47.4972 -101.5756,47.4963 -101.5918,47.4915 -101.5986,47.4893 -101.6054,47.4876 -101.6128,47.4845 -101.6203,47.4819 -101.6359,47.4752 -101.642,47.4735 -101.6448,47.4712 -101.6489,47.4699 -101.6523,47.4686 -101.657,47.4682 -101.6616,47.4683 -101.6663,47.4688 -101.671,47.4689 -101.6817,47.4699 -101.6857,47.4709 -101.689,47.471 -101.693,47.472 -101.6977,47.472 -101.701,47.4725 -101.7098,47.4718 -101.7245,47.472 -101.7365,47.4731 -101.7432,47.4746 -101.7485,47.4756 -101.7518,47.477 -101.7558,47.4789 -101.7611,47.4813 -101.7651,47.4827 -101.7683,47.4846 -101.7729,47.4879 -101.7768,47.4916 -101.7821,47.4945 -101.7867,47.4968 -101.7894,47.4978 -101.7947,47.4983 -101.7987,47.4989 -101.8041,47.4985 -101.8088,47.4981 -101.8155,47.4991 -101.8215,47.5006 -101.8275,47.5016 -101.8334,47.504 -101.8374,47.5045 -101.8421,47.505 -101.8488,47.5047 -101.8542,47.5043 -101.8609,47.5048 -101.8636,47.5053 -101.8682,47.5082 -101.8695,47.51 -101.8687,47.5123 -101.8673,47.515 -101.8659,47.5173 -101.8657,47.5219 -101.867,47.5242 -101.8703,47.528 -101.8735,47.5303 -101.9047,47.5423 -101.9087,47.5432 -101.9174,47.5438 -101.9235,47.5434 -101.9362,47.5432 -101.9503,47.5415 -101.9772,47.54 -101.988,47.5397 -102.0007,47.5403 -102.0114,47.541 -102.0342,47.5426 -102.0388,47.5436 -102.0442,47.5446 -102.0468,47.5456 -102.0534,47.5521 -102.0635,47.5593 -102.0778,47.5662 -102.097,47.5779 -102.1028,47.5831 -102.1292,47.5765 -102.1608,47.5751 -102.1702,47.5752 -102.1783,47.5739 -102.1851,47.5689 -102.1906,47.5639 -102.2021,47.5594 -102.223,47.5569 -102.237,47.5589 -102.2431,47.559 -102.2565,47.5564 -102.2613,47.5551 -102.266,47.5524 -102.2702,47.5474 -102.2769,47.5451 -102.2811,47.541 -102.2838,47.5379 -102.286,47.5328 -102.2861,47.5264 -102.2849,47.5218 -102.2837,47.5149 -102.2825,47.5098 -102.2833,47.5033 -102.2848,47.4978 -102.2862,47.4937 -102.2857,47.4891 -102.2844,47.4845 -102.2845,47.4822 -102.2859,47.4799 -102.2886,47.4786 -102.298,47.4768 -102.3208,47.4771 -102.3349,47.4777 -102.3496,47.4783 -102.3696,47.4827 -102.3829,47.4874 -102.3896,47.4893 -102.4015,47.4931 -102.4102,47.4955 -102.4215,47.4998 -102.4308,47.5031 -102.4395,47.5046 -102.4515,47.5079 -102.4582,47.5084 -102.4656,47.5076 -102.4724,47.5035 -102.4791,47.5022 -102.4892,47.5014 -102.5013,47.4987 -102.5114,47.4975 -102.5234,47.498 -102.5287,47.5008 -102.5307,47.5041 -102.5313,47.5059 -102.5305,47.5133 -102.5283,47.5215 -102.5275,47.5266 -102.5295,47.5312 -102.5307,47.5344 -102.5347,47.5377 -102.5414,47.5387 -102.5615,47.5398 -102.5756,47.5395 -102.5789,47.5418 -102.5835,47.5455 -102.5875,47.5488 -102.5921,47.5534 -102.5981,47.5567 -102.6027,47.5586 -102.6101,47.5596 -102.6201,47.5606 -102.6342,47.5602 -102.647,47.5608 -102.6543,47.5627 -102.6583,47.5646 -102.6643,47.566 -102.6683,47.5656 -102.6777,47.5647 -102.6905,47.5662 -102.6938,47.5676 -102.6958,47.569 -102.7005,47.5691 -102.7045,47.5686 -102.7126,47.5696 -102.7139,47.5715 -102.7151,47.5752 -102.7158,47.5779 -102.7224,47.5798 -102.7251,47.5821 -102.7271,47.584 -102.7303,47.5886 -102.733,47.5914 -102.737,47.5933 -102.7423,47.5943 -102.7497,47.5952 -102.7544,47.5948 -102.7605,47.5939 -102.7652,47.594 -102.7698,47.5958 -102.7765,47.5982 -102.7811,47.6019 -102.7845,47.601 -102.7899,47.5992 -102.796,47.5993 -102.7979,47.6007 -102.7979,47.6043 -102.7951,47.6085 -102.7943,47.6163 -102.795,47.6177 -102.803,47.6209 -102.8097,47.6224 -102.8103,47.6284 -102.8129,47.6316 -102.8189,47.6326 -102.821,47.6317 -102.8264,47.6299 -102.8324,47.6304 -102.8357,47.6345 -102.841,47.6383 -102.8483,47.6424 -102.8637,47.6458 -102.8785,47.6445 -102.8792,47.644 -102.8826,47.6422 -102.8839,47.6422 -102.8874,47.6367 -102.8888,47.6331 -102.8895,47.6276 -102.8869,47.6229 -102.8837,47.616 -102.8743,47.6104 -102.8703,47.6081 -102.8697,47.6058 -102.8691,47.603 -102.8705,47.6012 -102.8738,47.5989 -102.8779,47.5976 -102.8819,47.5958 -102.884,47.593 -102.8854,47.5866 -102.8869,47.5806 -102.8909,47.5779 -102.897,47.5752 -102.9011,47.5729 -102.9038,47.5683 -102.9052,47.5651 -102.9046,47.5586 -102.9054,47.555 -102.9121,47.5518 -102.9222,47.5491 -102.9309,47.5492 -102.9363,47.5497 -102.941,47.552 -102.9463,47.552 -102.951,47.5511 -102.954,47.55 -102.9557,47.5493 -102.9625,47.5494 -102.9658,47.5517 -102.9711,47.5536 -102.9758,47.5527 -102.9799,47.5504 -102.9819,47.549 -102.986,47.5477 -102.9907,47.5482 -102.9967,47.55 -103.0,47.5505 -103.004,47.5505 -103.0054,47.5483 -103.0048,47.5455 -103.0075,47.5414 -103.0109,47.54 -103.0196,47.5405 -103.023,47.5382 -103.0297,47.5364 -103.0357,47.5379 -103.0411,47.5406 -103.0471,47.5425 -103.0598,47.5458 -103.0711,47.5486 -103.0859,47.5519 -103.0926,47.5529 -103.0972,47.5557 -103.1053,47.5562 -103.112,47.5576 -103.118,47.5599 -103.126,47.5614 -103.1314,47.5605 -103.1341,47.5582 -103.1355,47.554 -103.1389,47.5504 -103.1463,47.5467 -103.1523,47.5454 -103.1557,47.5463 -103.1577,47.5482 -103.1643,47.5528 -103.1697,47.5542 -103.1771,47.5533 -103.1851,47.5534 -103.1871,47.5543 -103.1898,47.5585 -103.1931,47.5635 -103.1951,47.5654 -103.2018,47.5654 -103.2065,47.5631 -103.2132,47.5604 -103.2159,47.5604 -103.2206,47.5618 -103.2239,47.5632 -103.2286,47.5642 -103.2333,47.5642 -103.2387,47.5637 -103.2421,47.5633 -103.2474,47.5606 -103.2522,47.5578 -103.2555,47.556 -103.2596,47.5555 -103.2649,47.5556 -103.2696,47.5565 -103.2743,47.557 -103.2777,47.5579 -103.2791,47.5519 -103.2791,47.5492 -103.2798,47.5418 -103.2819,47.5391 -103.2846,47.5368 -103.2866,47.535 -103.288,47.5308 -103.29,47.5258 -103.2907,47.5216 -103.2914,47.5166 -103.2901,47.5129 -103.2868,47.5101 -103.2815,47.506 -103.2775,47.5027 -103.2768,47.4986 -103.2775,47.4954 -103.2809,47.4931 -103.2896,47.4908 -103.2964,47.4895 -103.2984,47.4876 -103.3018,47.4849 -103.3038,47.4854 -103.3064,47.4877 -103.3098,47.49 -103.3131,47.49 -103.3165,47.4882 -103.3205,47.4882 -103.3285,47.4887 -103.3433,47.4906 -103.3466,47.491 -103.352,47.4924 -103.3573,47.4934 -103.3606,47.4961 -103.366,47.4985 -103.3727,47.4994 -103.3787,47.4985 -103.3828,47.4967 -103.3834,47.4953 -103.3848,47.4907 -103.3875,47.4889 -103.3929,47.488 -103.3989,47.4866 -103.4023,47.4852 -103.407,47.482 -103.4084,47.4765 -103.4111,47.4756 -103.4131,47.4765 -103.4164,47.4793 -103.4191,47.4816 -103.4244,47.4826 -103.4311,47.4789 -103.4351,47.4798 -103.4392,47.4826 -103.4438,47.4845 -103.4472,47.484 -103.4493,47.4833 -103.4492,47.548 -103.5882,47.5481 -103.5886,47.6361 -103.6363,47.6361 -103.6363,47.8168 -103.8121,47.8177 -103.8121,47.8205 -103.8149,47.8275 -103.8149,47.8359 -103.8135,47.8415 -103.8051,47.8583 -103.8071,47.8693 -103.8065,47.8778 -103.8107,47.8876 -103.8121,47.8946 -103.8121,47.9043 -103.8153,47.9238 -103.8173,47.9292 -103.8169,47.9336 -103.8205,47.9379 -103.8211,47.9389 -103.8211,47.9398 -103.8187,47.9423 -103.8178,47.9453 -103.8205,47.9446 -103.8232,47.9434 -103.8282,47.9392 -103.832,47.9388 -103.8363,47.9376 -103.8417,47.9361 -103.8467,47.9361 -103.8513,47.9376 -103.8582,47.9453 -103.8663,47.9581 -103.881,47.9642 -103.8952,47.9658 -103.8952,47.966 -103.8989,48.3569 -103.8991,48.6117 -103.9025,48.944 -103.9829,48.9435 -104.1824,48.9434 -104.6814,48.9432 -104.8475,48.9434 -105.1141,48.9438 -105.5474,48.9434 -105.8796,48.9434 -105.98,48.9431 -106.1131,48.9433 -106.3123,48.9432 -106.5795,48.9434 -107.1782,48.9438 -107.2777,48.9439 -107.4772,48.9432 -107.578,48.9431 -107.6433,48.9433 -108.0107,48.9434 -108.1763,48.9432 -108.3758,48.9433 -108.5086,48.9432 -108.6755,48.9431 -109.1745,48.9433 -109.4744,48.9434 -109.6413,48.9433 -109.8068,48.9436 -109.8388,48.9443 -109.9403,48.9434 -110.04,48.9433 -110.1401,48.944 -110.3393,48.944 -110.5057,48.9439 -110.6065,48.9431 -111.2052,48.9433 -111.6374,48.9432 -111.8709,48.9433 -112.004,48.9434 -112.0706,48.944 -112.1707,48.9438 -112.2703,48.944 -112.3703,48.9439 -112.4367,48.9437 -112.7693,48.9437 -112.869,48.9439 -113.0686,48.9433 -113.2024,48.9432 -113.4013,48.9431 -113.8676,48.9433 -113.8931,48.9444 -114.1675,48.9434 -114.3,48.9432 -114.367,48.9438 -114.4663,48.9438 -114.7328,48.9433 -114.8656,48.9434 -114.999,48.9431 -115.1992,48.9439 -115.2991,48.9438 -115.3982,48.9439 -115.4321,48.9434 -115.5649,48.9434 -115.8786,48.9435 -115.9058,48.9435 -115.9029,48.4647 -115.9017,48.1745 -115.9012,48.1063 -115.8997,47.9422 -115.8944,47.938 -115.8877,47.9361 -115.8796,47.9333 -115.8715,47.931 -115.8636,47.9212 -115.861,47.9157 -115.8524,47.9027 -115.8452,47.8912 -115.8312,47.8819 -115.8198,47.8735 -115.8112,47.8633 -115.804,47.8536 -115.7987,47.8471 -115.7934,47.8415 -115.7841,47.8331 -115.7761,47.8271 -115.7688,47.8234 -115.7554,47.8136 -115.7502,47.8071 -115.7435,47.8038 -115.7368,47.8028 -115.7294,47.8014 -115.7234,47.7981 -115.7161,47.7935 -115.7114,47.7875 -115.7029,47.7768 -115.6956,47.7712 -115.6911,47.7587 -115.6879,47.7509 -115.6886,47.7449 -115.6861,47.7375 -115.6842,47.7283 -115.683,47.7223 -115.673,47.7167 -115.6643,47.7162 -115.6569,47.7161 -115.6502,47.7156 -115.6428,47.7137 -115.6368,47.7109 -115.6328,47.7062 -115.6302,47.7025 -115.6277,47.6951 -115.6258,47.6859 -115.6259,47.6809 -115.622,47.6758 -115.6126,47.6734 -115.6039,47.6724 -115.5925,47.6695 -115.5839,47.6662 -115.5799,47.6616 -115.578,47.6574 -115.5761,47.6505 -115.5789,47.6436 -115.5818,47.6335 -115.5833,47.6234 -115.5829,47.6133 -115.5803,47.6059 -115.5751,47.5994 -115.5658,47.5938 -115.5538,47.5882 -115.5445,47.5821 -115.5407,47.5742 -115.5422,47.566 -115.5383,47.5567 -115.5399,47.548 -115.5487,47.5403 -115.5589,47.5353 -115.5684,47.5285 -115.5773,47.5208 -115.5835,47.5135 -115.5897,47.5034 -115.5891,47.4997 -115.5678,47.4922 -115.5571,47.4907 -115.5478,47.4869 -115.5439,47.4804 -115.5416,47.4629 -115.539,47.4556 -115.5304,47.4513 -115.5177,47.4485 -115.5044,47.4451 -115.4924,47.4432 -115.4864,47.4413 -115.4865,47.4367 -115.4859,47.4344 -115.4866,47.4302 -115.4894,47.4238 -115.4949,47.4197 -115.5023,47.4152 -115.5097,47.4139 -115.5211,47.4126 -115.5318,47.4132 -115.5399,47.4137 -115.5546,47.4139 -115.5666,47.4135 -115.5787,47.4113 -115.5868,47.4082 -115.5916,47.4045 -115.5964,47.4 -115.5978,47.3959 -115.5985,47.3917 -115.5966,47.3885 -115.5913,47.3862 -115.5846,47.3852 -115.5759,47.3828 -115.568,47.379 -115.5613,47.3776 -115.5534,47.3743 -115.5467,47.3729 -115.5347,47.37 -115.5227,47.3667 -115.5127,47.3652 -115.5035,47.36 -115.4975,47.3558 -115.4916,47.3503 -115.485,47.3461 -115.4771,47.3432 -115.4711,47.3423 -115.4644,47.3413 -115.4557,47.3403 -115.4458,47.336 -115.4425,47.3332 -115.4359,47.3286 -115.4307,47.323 -115.4281,47.3188 -115.4255,47.3142 -115.4203,47.3114 -115.4143,47.31 -115.409,47.3071 -115.4057,47.3044 -115.4018,47.3006 -115.3986,47.2951 -115.3954,47.2891 -115.3895,47.2812 -115.3844,47.2729 -115.3772,47.2654 -115.3693,47.258 -115.3614,47.2538 -115.3522,47.2496 -115.3482,47.2477 -115.3369,47.2462 -115.3269,47.2447 -115.3162,47.2436 -115.3082,47.2436 -115.3016,47.2407 -115.293,47.2388 -115.2823,47.2396 -115.2729,47.2404 -115.2616,47.2366 -115.2545,47.2296 -115.2352,47.2271 -115.2239,47.2256 -115.2126,47.2236 -115.1999,47.2221 -115.1899,47.2211 -115.1715,47.2112 -115.1696,47.2056 -115.1678,47.1987 -115.1674,47.1872 -115.155,47.1784 -115.1479,47.1705 -115.1481,47.1622 -115.1457,47.1525 -115.1425,47.1456 -115.1313,47.1399 -115.1167,47.137 -115.1122,47.1333 -115.1062,47.13 -115.1017,47.1253 -115.0965,47.1188 -115.088,47.1132 -115.0762,47.108 -115.067,47.1037 -115.059,47.1013 -115.0532,47.0962 -115.0394,47.0901 -115.0341,47.0859 -115.029,47.0775 -115.0246,47.0683 -115.0188,47.0636 -115.0075,47.0612 -114.9996,47.0578 -114.995,47.0578 -114.9924,47.0531 -114.9906,47.0472 -114.9868,47.0388 -114.9818,47.0296 -114.9726,47.0249 -114.9653,47.0229 -114.9596,47.0155 -114.9564,47.0113 -114.9505,47.008 -114.9426,47.0029 -114.9387,47.001 -114.9322,46.9963 -114.9276,46.9926 -114.9232,46.9856 -114.9206,46.981 -114.9178,46.9649 -114.9133,46.9579 -114.9063,46.9473 -114.9019,46.9394 -114.8948,46.9342 -114.8895,46.9319 -114.8836,46.929 -114.879,46.9285 -114.8737,46.9289 -114.8683,46.9288 -114.8577,46.9291 -114.8531,46.9272 -114.8479,46.9248 -114.8447,46.9197 -114.8396,46.9123 -114.8331,46.9076 -114.8279,46.903 -114.8194,46.8992 -114.811,46.8913 -114.8052,46.887 -114.7868,46.8799 -114.7756,46.8779 -114.7704,46.8732 -114.7712,46.8705 -114.7759,46.8664 -114.7814,46.8628 -114.7869,46.8569 -114.7871,46.8487 -114.7846,46.8431 -114.7868,46.8386 -114.7945,46.8258 -114.7947,46.8185 -114.7929,46.8139 -114.7857,46.8101 -114.7811,46.8077 -114.778,46.8013 -114.7775,46.7962 -114.7731,46.7892 -114.7646,46.7841 -114.7568,46.7803 -114.7491,46.7724 -114.7486,46.7655 -114.7388,46.763 -114.7321,46.7634 -114.7201,46.765 -114.7129,46.7631 -114.7091,46.7589 -114.7058,46.7561 -114.7,46.7509 -114.6871,46.7416 -114.6838,46.7401 -114.6779,46.7378 -114.6648,46.7348 -114.6548,46.7351 -114.6482,46.7341 -114.6403,46.7326 -114.6345,46.7297 -114.6293,46.7264 -114.6241,46.7218 -114.6216,46.7185 -114.6204,46.7134 -114.6221,46.7034 -114.6256,46.6979 -114.6278,46.6924 -114.63,46.6856 -114.6316,46.6765 -114.6292,46.6691 -114.6201,46.6657 -114.6123,46.6615 -114.5944,46.6612 -114.5903,46.6638 -114.5862,46.6688 -114.5828,46.6715 -114.5773,46.6769 -114.5739,46.6783 -114.5712,46.6814 -114.5645,46.6841 -114.5563,46.6899 -114.5522,46.6949 -114.5447,46.6998 -114.5401,46.6997 -114.5328,46.7001 -114.5255,46.7008 -114.5202,46.7008 -114.515,46.6979 -114.5091,46.696 -114.5033,46.6904 -114.497,46.6834 -114.4912,46.6787 -114.4849,46.6699 -114.4799,46.6611 -114.4722,46.6531 -114.475,46.6491 -114.4839,46.6423 -114.4913,46.637 -114.491,46.6269 -114.4892,46.6218 -114.4861,46.6167 -114.481,46.6106 -114.4753,46.6046 -114.4702,46.5999 -114.4611,46.5951 -114.4571,46.5951 -114.4466,46.5935 -114.4393,46.5934 -114.4187,46.5967 -114.4087,46.6002 -114.3979,46.6041 -114.3867,46.6039 -114.3802,46.6011 -114.3663,46.6008 -114.3572,46.5974 -114.3461,46.5931 -114.3436,46.5898 -114.331,46.5896 -114.3243,46.5922 -114.3176,46.5939 -114.3149,46.5957 -114.3109,46.598 -114.3068,46.6011 -114.3034,46.6033 -114.2946,46.6077 -114.2878,46.6117 -114.2785,46.6139 -114.2718,46.6165 -114.2618,46.6186 -114.2531,46.6203 -114.2411,46.6228 -114.2303,46.6276 -114.2217,46.6284 -114.2098,46.6282 -114.2012,46.6266 -114.1953,46.6251 -114.1889,46.6218 -114.181,46.6203 -114.1773,46.6124 -114.1748,46.6087 -114.1706,46.599 -114.171,46.5889 -114.1734,46.5779 -114.1777,46.5697 -114.1847,46.5602 -114.1896,46.5539 -114.1915,46.5411 -114.1892,46.5314 -114.1956,46.5201 -114.1987,46.5087 -114.1966,46.4949 -114.1964,46.4834 -114.2013,46.4771 -114.2068,46.4722 -114.2162,46.4678 -114.2316,46.4635 -114.2463,46.4582 -114.257,46.4534 -114.258,46.4443 -114.2525,46.435 -114.2453,46.4316 -114.241,46.4251 -114.2359,46.4195 -114.2357,46.4094 -114.2314,46.4011 -114.2303,46.3942 -114.2338,46.3911 -114.2407,46.382 -114.241,46.3756 -114.2433,46.3656 -114.2521,46.3612 -114.2561,46.3589 -114.2631,46.332 -114.2607,46.3247 -114.2606,46.3127 -114.2615,46.3045 -114.2653,46.2936 -114.2717,46.2813 -114.2786,46.2727 -114.2808,46.2673 -114.279,46.2608 -114.2781,46.2507 -114.283,46.243 -114.2904,46.2395 -114.3017,46.2361 -114.3139,46.2276 -114.3201,46.219 -114.3192,46.2098 -114.3134,46.206 -114.3063,46.2022 -114.2979,46.1984 -114.2909,46.1933 -114.2859,46.1863 -114.2881,46.1785 -114.2853,46.1675 -114.2822,46.1629 -114.2864,46.1387 -114.2872,46.135 -114.2899,46.1332 -114.2939,46.1319 -114.2972,46.1301 -114.304,46.1262 -114.3133,46.1213 -114.3193,46.1205 -114.3271,46.122 -114.3369,46.124 -114.3461,46.1242 -114.3559,46.1235 -114.3615,46.1162 -114.3637,46.1094 -114.3653,46.1021 -114.3609,46.0956 -114.3566,46.0873 -114.3529,46.0822 -114.3438,46.0783 -114.3328,46.0754 -114.3237,46.0734 -114.318,46.0687 -114.3129,46.0627 -114.3067,46.0552 -114.3024,46.0483 -114.2987,46.04 -114.3028,46.0364 -114.3081,46.0342 -114.3142,46.0288 -114.3111,46.026 -114.3086,46.0223 -114.3121,46.0168 -114.3201,46.0129 -114.3315,46.0053 -114.3364,45.9972 -114.3406,45.9894 -114.333,45.9847 -114.324,45.9795 -114.3209,45.9758 -114.3231,45.9694 -114.3252,45.9635 -114.3308,45.9558 -114.3237,45.952 -114.3133,45.9509 -114.3074,45.9495 -114.2945,45.9465 -114.2685,45.9409 -114.2588,45.938 -114.2551,45.932 -114.2515,45.9241 -114.2516,45.92 -114.2545,45.9137 -114.2721,45.8975 -114.2758,45.8875 -114.2668,45.8823 -114.2598,45.8767 -114.2595,45.8694 -114.2551,45.8633 -114.2456,45.8558 -114.2382,45.8461 -114.2392,45.8369 -114.2421,45.8292 -114.2483,45.8202 -114.2539,45.8125 -114.2584,45.8126 -114.2636,45.814 -114.2701,45.816 -114.2771,45.8189 -114.2896,45.8187 -114.2935,45.8169 -114.3009,45.8138 -114.3109,45.8076 -114.3201,45.8055 -114.3311,45.808 -114.3389,45.8095 -114.3455,45.8087 -114.3535,45.8034 -114.359,45.7966 -114.3613,45.787 -114.3637,45.7761 -114.3732,45.7671 -114.3853,45.7573 -114.3934,45.7492 -114.3983,45.7401 -114.4078,45.7321 -114.4099,45.7284 -114.406,45.7261 -114.4002,45.7237 -114.392,45.7162 -114.3883,45.712 -114.3878,45.7065 -114.3855,45.6978 -114.3813,45.689 -114.3794,45.6872 -114.3749,45.6843 -114.3679,45.6796 -114.3635,45.6764 -114.3564,45.6744 -114.35,45.6715 -114.3456,45.6655 -114.3446,45.6595 -114.3481,45.6532 -114.3535,45.6474 -114.357,45.6401 -114.3507,45.6354 -114.3476,45.6308 -114.3446,45.6234 -114.3481,45.6184 -114.3533,45.6172 -114.3593,45.6154 -114.3667,45.6087 -114.372,45.6061 -114.3753,45.6038 -114.3852,45.6008 -114.3931,45.6 -114.4037,45.5943 -114.411,45.5903 -114.4099,45.5848 -114.4062,45.5797 -114.3998,45.575 -114.3941,45.5703 -114.3873,45.5624 -114.3901,45.5575 -114.3928,45.5543 -114.3969,45.5498 -114.3998,45.5398 -114.402,45.5343 -114.4055,45.5257 -114.4071,45.518 -114.4072,45.5148 -114.4225,45.5068 -114.4278,45.5033 -114.4313,45.4969 -114.4355,45.4897 -114.4453,45.4867 -114.4637,45.4824 -114.4775,45.479 -114.4836,45.4722 -114.4865,45.4618 -114.492,45.4546 -114.4976,45.4446 -114.5017,45.4369 -114.5085,45.4292 -114.5247,45.43 -114.5324,45.4328 -114.5362,45.4366 -114.5412,45.4412 -114.5489,45.445 -114.5566,45.4465 -114.5677,45.4458 -114.5722,45.4472 -114.578,45.4496 -114.5881,45.4571 -114.5983,45.4623 -114.6106,45.4662 -114.621,45.465 -114.6282,45.4623 -114.6317,45.4578 -114.6358,45.4488 -114.6386,45.4429 -114.6384,45.4305 -114.6374,45.4213 -114.6416,45.4132 -114.6463,45.4064 -114.6453,45.4 -114.6363,45.3962 -114.6273,45.3942 -114.6196,45.3913 -114.6151,45.3904 -114.6099,45.3889 -114.6074,45.3866 -114.6055,45.3838 -114.6064,45.3788 -114.6053,45.3728 -114.5996,45.3663 -114.591,45.3595 -114.5914,45.3593 -114.598,45.3572 -114.6163,45.3538 -114.6241,45.3521 -114.6358,45.3509 -114.6404,45.3515 -114.6474,45.3534 -114.6609,45.3573 -114.6673,45.3615 -114.6788,45.3667 -114.6826,45.3709 -114.6883,45.3737 -114.6935,45.3747 -114.707,45.3777 -114.7102,45.38 -114.7134,45.3801 -114.7146,45.3837 -114.7178,45.387 -114.7184,45.3888 -114.7196,45.3902 -114.7254,45.3926 -114.7318,45.3941 -114.7389,45.3955 -114.744,45.3993 -114.7503,45.4067 -114.7521,45.409 -114.754,45.4109 -114.7585,45.4118 -114.7657,45.4129 -114.7715,45.4139 -114.7721,45.4148 -114.7746,45.4167 -114.7823,45.4223 -114.7893,45.426 -114.7976,45.4298 -114.8059,45.4345 -114.8122,45.441 -114.8198,45.4494 -114.8241,45.4549 -114.8267,45.4568 -114.8306,45.4577 -114.8364,45.4587 -114.8409,45.4611 -114.8453,45.4653 -114.8491,45.4681 -114.8555,45.47 -114.8588,45.4701 -114.8653,45.4715 -114.8697,45.4734 -114.873,45.4744 -114.8775,45.4744 -114.8814,45.474 -114.8854,45.4732 -114.888,45.4728 -114.8912,45.4724 -114.8925,45.4719 -114.8938,45.4724 -114.8997,45.4729 -114.9054,45.4771 -114.9099,45.4795 -114.915,45.4823 -114.9195,45.4833 -114.9273,45.4848 -114.9363,45.4867 -114.9428,45.4877 -114.9493,45.4892 -114.9564,45.4911 -114.9648,45.4935 -114.9725,45.4968 -114.9859,45.5034 -114.9923,45.5076 -115.0013,45.5118 -115.0038,45.5146 -115.0058,45.516 -115.007,45.5179 -115.0096,45.5197 -115.0108,45.522 -115.0121,45.5234 -115.0146,45.5253 -115.0159,45.5267 -115.0171,45.5276 -115.021,45.5281 -115.0256,45.5286 -115.034,45.5288 -115.0457,45.5294 -115.0522,45.5295 -115.0594,45.5291 -115.0653,45.5264 -115.0687,45.5237 -115.072,45.5219 -115.0759,45.5202 -115.0825,45.518 -115.0851,45.5157 -115.0865,45.5125 -115.0859,45.5098 -115.0866,45.508 -115.0912,45.5071 -115.0971,45.5058 -115.1024,45.504 -115.1057,45.5013 -115.1096,45.4987 -115.1129,45.4973 -115.1182,45.4956 -115.124,45.4952 -115.1305,45.4953 -115.1377,45.4935 -115.143,45.4908 -115.1489,45.4877 -115.1536,45.4841 -115.1576,45.4805 -115.1589,45.4782 -115.1603,45.4746 -115.1604,45.471 -115.1624,45.4682 -115.1652,45.4637 -115.1691,45.4601 -115.1725,45.4578 -115.1751,45.4556 -115.1765,45.4524 -115.1766,45.4483 -115.1812,45.4456 -115.1845,45.4452 -115.1871,45.4434 -115.1898,45.4393 -115.1937,45.4384 -115.1989,45.4376 -115.2048,45.4358 -115.2101,45.4345 -115.214,45.4341 -115.2172,45.4355 -115.2204,45.436 -115.223,45.4365 -115.2263,45.4366 -115.2309,45.4334 -115.2361,45.4316 -115.2446,45.4299 -115.2499,45.4282 -115.2538,45.4259 -115.2703,45.4161 -115.2842,45.4062 -115.2921,45.4012 -115.296,45.3976 -115.3,45.3949 -115.3047,45.3899 -115.3041,45.3867 -115.3042,45.3822 -115.3062,45.3785 -115.3089,45.3735 -115.3142,45.3704 -115.3188,45.3682 -115.3227,45.3664 -115.3248,45.3632 -115.3248,45.3605 -115.3255,45.3577 -115.3275,45.3555 -115.3315,45.3523 -115.3367,45.3501 -115.34,45.3478 -115.342,45.3451 -115.3434,45.3415 -115.3441,45.3383 -115.3448,45.336 -115.3455,45.3351 -115.3468,45.3365 -115.3525,45.3393 -115.359,45.3421 -115.368,45.3459 -115.3718,45.3468 -115.3822,45.3488 -115.3841,45.3506 -115.3867,45.3515 -115.3893,45.3516 -115.3932,45.3512 -115.3997,45.3508 -115.4075,45.3499 -115.4139,45.3509 -115.4197,45.3533 -115.4256,45.3538 -115.4314,45.3552 -115.432,45.3557 -115.4346,45.3566 -115.4371,45.3585 -115.4424,45.3572 -115.4475,45.3577 -115.4534,45.3582 -115.4598,45.3596 -115.4649,45.3629 -115.4681,45.3679 -115.47,45.3707 -115.4738,45.3744 -115.4764,45.3763 -115.4802,45.3786 -115.4834,45.3804 -115.4924,45.3833 -115.4969,45.3856 -115.5008,45.3879 -115.504,45.3902 -115.5085,45.393 -115.5104,45.3935 -115.5123,45.3958 -115.5168,45.3986 -115.5207,45.4 -115.5252,45.4019 -115.5291,45.4024 -115.5362,45.4029 -115.5427,45.403 -115.5544,45.4035 -115.5615,45.4045 -115.5738,45.4055 -115.5849,45.4057 -115.5914,45.4053 -115.5946,45.4057 -115.5991,45.409 -115.6036,45.4109 -115.6222,45.4206 -115.6268,45.4229 -115.6306,45.4244 -115.6345,45.4262 -115.639,45.4263 -115.6442,45.4268 -115.6533,45.4264 -115.6611,45.4251 -115.6742,45.4238 -115.6813,45.4211 -115.6859,45.4198 -115.6924,45.4176 -115.7042,45.4168 -115.7152,45.4155 -115.7276,45.4151 -115.7353,45.4157 -115.7405,45.4162 -115.749,45.4167 -115.7568,45.4172 -115.7632,45.4182 -115.7684,45.4182 -115.7743,45.4173 -115.7808,45.4165 -115.7867,45.4152 -115.7939,45.4129 -115.7997,45.4102 -115.8082,45.4062 -115.8122,45.403 -115.8161,45.3994 -115.8214,45.3958 -115.826,45.394 -115.8318,45.3922 -115.8442,45.3877 -115.8585,45.386 -115.8663,45.3851 -115.8689,45.3852 -115.8755,45.3834 -115.88,45.3834 -115.8885,45.383 -115.8956,45.3831 -115.9015,45.3813 -115.9106,45.3781 -115.9197,45.3741 -115.9269,45.3714 -115.9321,45.3691 -115.9367,45.3687 -115.9412,45.3674 -115.9452,45.3651 -115.9478,45.3638 -115.9517,45.3629 -115.9601,45.3638 -115.9646,45.3652 -115.9711,45.3685 -115.9717,45.3703 -115.971,45.3731 -115.9723,45.3758 -115.9735,45.379 -115.9761,45.3809 -115.9787,45.3823 -115.9832,45.3836 -115.9878,45.3837 -115.9923,45.3828 -115.9995,45.3815 -116.004,45.3801 -116.0099,45.3774 -116.0138,45.3774 -116.0177,45.3766 -116.0203,45.3757 -116.0236,45.3743 -116.0275,45.3707 -116.0295,45.3684 -116.036,45.3639 -116.038,45.363 -116.0406,45.3607 -116.0465,45.3594 -116.0523,45.3585 -116.0569,45.3585 -116.0634,45.359 -116.0724,45.3609 -116.0776,45.3632 -116.0834,45.3664 -116.0892,45.3701 -116.0944,45.3729 -116.1015,45.3752 -116.1086,45.3771 -116.1131,45.3766 -116.1222,45.3776 -116.1293,45.3781 -116.141,45.3782 -116.1508,45.3787 -116.154,45.3782 -116.1507,45.3823 -116.15,45.3887 -116.1512,45.3947 -116.1551,45.4002 -116.1589,45.4043 -116.1615,45.4057 -116.1628,45.4071 -116.1634,45.4084 -116.1621,45.413 -116.1588,45.4176 -116.1568,45.4217 -116.1561,45.4253 -116.1567,45.4336 -116.1579,45.4418 -116.1605,45.4464 -116.1598,45.4496 -116.1611,45.4509 -116.161,45.4546 -116.1597,45.4569 -116.1571,45.4587 -116.1538,45.4605 -116.1512,45.4619 -116.1486,45.4637 -116.1466,45.466 -116.1453,45.4678 -116.1446,45.4691 -116.1445,45.476 -116.1484,45.4852 -116.1496,45.4879 -116.1528,45.4916 -116.1535,45.493 -116.1541,45.4957 -116.1534,45.4971 -116.1527,45.5021 -116.1501,45.5067 -116.1474,45.5098 -116.1461,45.5112 -116.1448,45.5185 -116.1454,45.5208 -116.1454,45.5231 -116.146,45.5249 -116.146,45.5267 -116.1466,45.529 -116.1479,45.5318 -116.1459,45.5368 -116.1445,45.5405 -116.1333,45.5523 -116.1294,45.5568 -116.1248,45.5605 -116.1222,45.5618 -116.1208,45.5632 -116.1202,45.5655 -116.1208,45.5691 -116.1214,45.5723 -116.1233,45.5751 -116.1252,45.5774 -116.1265,45.5788 -116.1285,45.5797 -116.1317,45.5802 -116.1343,45.5815 -116.1369,45.5825 -116.1415,45.5839 -116.1428,45.5821 -116.144,45.5857 -116.1447,45.5862 -116.1447,45.5871 -116.144,45.5885 -116.1433,45.5903 -116.1388,45.593 -116.1335,45.5934 -116.1303,45.5939 -116.1277,45.5943 -116.127,45.5957 -116.127,45.5998 -116.1328,45.6035 -116.1341,45.6049 -116.1353,45.6072 -116.136,45.609 -116.1353,45.6117 -116.1327,45.6154 -116.132,45.6172 -116.1313,45.6186 -116.1307,45.6199 -116.13,45.6208 -116.1319,45.6236 -116.1326,45.6241 -116.1338,45.6259 -116.1404,45.6264 -116.1469,45.6273 -116.1527,45.6283 -116.156,45.6297 -116.1599,45.6306 -116.1624,45.6324 -116.1618,45.6343 -116.1585,45.6384 -116.1558,45.6416 -116.1539,45.6438 -116.1532,45.6447 -116.1525,45.6466 -116.1525,45.6475 -116.1538,45.6507 -116.1595,45.6681 -116.162,45.6718 -116.162,45.6759 -116.1606,45.6814 -116.1593,45.685 -116.158,45.6868 -116.1573,45.6896 -116.1566,45.6914 -116.1566,45.6928 -116.1572,45.6955 -116.1592,45.6987 -116.163,45.7029 -116.1663,45.7066 -116.1675,45.7111 -116.1688,45.7171 -116.1673,45.7271 -116.1653,45.7367 -116.1639,45.7408 -116.1619,45.744 -116.1586,45.7504 -116.1586,45.755 -116.1566,45.76 -116.1565,45.7655 -116.1545,45.771 -116.1492,45.7815 -116.1472,45.7856 -116.1438,45.7911 -116.1425,45.797 -116.1398,45.8039 -116.1397,45.8093 -116.1409,45.8176 -116.1429,45.8194 -116.1468,45.8236 -116.1506,45.8291 -116.1525,45.8323 -116.1551,45.8364 -116.1564,45.8396 -116.1603,45.8433 -116.1622,45.8461 -116.1674,45.8484 -116.172,45.8507 -116.1824,45.853 -116.1883,45.8558 -116.1935,45.859 -116.2013,45.8618 -116.2084,45.8646 -116.2274,45.8688 -116.23,45.8693 -116.2326,45.8688 -116.2352,45.8693 -116.2372,45.8688 -116.2378,45.8675 -116.2398,45.8661 -116.2411,45.8666 -116.2444,45.8661 -116.247,45.8671 -116.2522,45.8694 -116.2541,45.8712 -116.2548,45.874 -116.2548,45.8758 -116.2541,45.8767 -116.2548,45.8776 -116.2567,45.8785 -116.2587,45.8781 -116.2613,45.8786 -116.2639,45.8799 -116.2652,45.8813 -116.2671,45.8836 -116.2697,45.8873 -116.2703,45.8905 -116.2729,45.8951 -116.2825,45.9153 -116.2858,45.9221 -116.2896,45.9267 -116.2922,45.9295 -116.2961,45.9327 -116.3007,45.935 -116.3066,45.9373 -116.3196,45.9419 -116.3281,45.9429 -116.336,45.9434 -116.3432,45.943 -116.3511,45.9416 -116.3556,45.9412 -116.3629,45.9389 -116.3688,45.938 -116.3727,45.9371 -116.376,45.9367 -116.3779,45.9362 -116.3812,45.9358 -116.3832,45.9362 -116.3858,45.9367 -116.3877,45.9376 -116.3897,45.9381 -116.3936,45.9399 -116.3962,45.9431 -116.4066,45.9546 -116.4099,45.9578 -116.4131,45.9606 -116.4177,45.9629 -116.4242,45.9652 -116.4301,45.9666 -116.436,45.9689 -116.4425,45.9694 -116.4471,45.9698 -116.451,45.9703 -116.4543,45.9708 -116.455,45.9712 -116.4563,45.9731 -116.4549,45.9754 -116.4536,45.9786 -116.4529,45.9813 -116.4542,45.9905 -116.4555,45.9923 -116.4561,45.9946 -116.4588,45.9941 -116.4614,45.996 -116.4692,45.9965 -116.4771,45.9951 -116.4824,45.9915 -116.4839,45.9891 -116.4844,45.9873 -116.4844,45.9791 -116.4838,45.9764 -116.4831,45.9741 -116.4838,45.9713 -116.4831,45.969 -116.4838,45.9663 -116.4838,45.9649 -116.4841,45.9645 -116.4852,45.9571 -116.4989,45.9517 -116.5088,45.9535 -116.5231,45.9568 -116.5382,45.9564 -116.5413,45.9574 -116.5421,45.9573 -116.5421,45.9577 -116.5905,45.9387 -116.6258,45.911 -116.6506,45.8777 -116.6688,45.8417 -116.6623,45.839 -116.6584,45.8348 -116.6525,45.8316 -116.6493,45.8248 -116.646,45.8216 -116.6401,45.8165 -116.6375,45.8119 -116.6349,45.8051 -116.6343,45.8005 -116.6291,45.7932 -116.62,45.7858 -116.6108,45.7845 -116.5919,45.7844 -116.5828,45.7867 -116.571,45.788 -116.5625,45.7876 -116.5495,45.7852 -116.5462,45.7839 -116.5403,45.7774 -116.5358,45.7738 -116.5306,45.7692 -116.5208,45.7618 -116.5111,45.7559 -116.5007,45.7467 -116.4896,45.7412 -116.4746,45.7352 -116.4662,45.7329 -116.4538,45.7297 -116.4414,45.726 -116.433,45.72 -116.4251,45.7204 -116.418,45.7176 -116.4121,45.7153 -116.4069,45.7135 -116.3998,45.708 -116.3952,45.7029 -116.3914,45.6974 -116.3836,45.6878 -116.3784,45.6823 -116.3745,45.6768 -116.3701,45.6672 -116.3655,45.6608 -116.3643,45.6498 -116.365,45.6425 -116.3612,45.6306 -116.3535,45.6186 -116.3483,45.6113 -116.3425,45.604 -116.3348,45.5943 -116.3296,45.5888 -116.3257,45.582 -116.3212,45.5774 -116.3167,45.5723 -116.3156,45.5476 -116.3209,45.5394 -116.3248,45.5321 -116.3327,45.5221 -116.3393,45.5134 -116.3478,45.5039 -116.3694,45.4889 -116.3818,45.4789 -116.3903,45.4716 -116.4008,45.4597 -116.4073,45.4506 -116.4068,45.4396 -116.412,45.4259 -116.4199,45.4191 -116.429,45.4127 -116.4382,45.4032 -116.4434,45.3954 -116.4448,45.3863 -116.45,45.3794 -116.4552,45.3744 -116.4624,45.3676 -116.4722,45.3576 -116.48,45.3484 -116.4872,45.3393 -116.4931,45.3297 -116.4984,45.3183 -116.5062,45.312 -116.514,45.3074 -116.5185,45.3015 -116.5218,45.2928 -116.5251,45.2805 -116.5271,45.2736 -116.5284,45.2627 -116.5291,45.254 -116.5292,45.2458 -116.5312,45.2362 -116.5351,45.2284 -116.5396,45.223 -116.5435,45.2184 -116.5468,45.212 -116.5488,45.2065 -116.5507,45.2006 -116.5527,45.196 -116.556,45.1887 -116.558,45.1814 -116.5593,45.17 -116.56,45.1613 -116.562,45.1508 -116.5659,45.1408 -116.5685,45.1344 -116.5718,45.1276 -116.5763,45.1225 -116.5783,45.1143 -116.5829,45.1034 -116.5874,45.1007 -116.5926,45.0965 -116.5952,45.0934 -116.603,45.0865 -116.6056,45.0751 -116.6075,45.0724 -116.6172,45.0692 -116.6244,45.0656 -116.6283,45.0587 -116.6334,45.0523 -116.6335,45.0418 -116.6341,45.0368 -116.6361,45.0336 -116.6406,45.03 -116.6445,45.0263 -116.6471,45.0218 -116.6536,45.0158 -116.6607,45.0122 -116.6665,45.009 -116.6736,45.0072 -116.6768,45.0017 -116.684,44.9944 -116.6937,44.9885 -116.7008,44.983 -116.6995,44.9766 -116.6944,44.9661 -116.697,44.9565 -116.7021,44.946 -116.6989,44.9401 -116.6944,44.9378 -116.6912,44.941 -116.6822,44.9424 -116.6789,44.9424 -116.6783,44.9373 -116.6809,44.9346 -116.6854,44.93 -116.6919,44.9273 -116.6938,44.9209 -116.6906,44.9145 -116.6816,44.8981 -116.6817,44.8862 -116.6849,44.8762 -116.6939,44.8639 -116.7017,44.8547 -116.7082,44.8438 -116.7133,44.8347 -116.7243,44.8265 -116.7346,44.8183 -116.7436,44.8146 -116.7475,44.8101 -116.7488,44.8009 -116.7507,44.795 -116.7559,44.795 -116.7623,44.7914 -116.7662,44.7891 -116.7688,44.7841 -116.7733,44.7781 -116.7765,44.7736 -116.7784,44.7663 -116.781,44.7572 -116.7862,44.7494 -116.7913,44.7462 -116.7977,44.7421 -116.8125,44.7375 -116.8196,44.7339 -116.828,44.7302 -116.8402,44.7243 -116.8537,44.7229 -116.8755,44.7179 -116.8858,44.7152 -116.8935,44.7056 -116.8961,44.6997 -116.9012,44.6933 -116.907,44.6828 -116.9089,44.6791 -116.9108,44.6682 -116.9128,44.6636 -116.9198,44.6591 -116.9256,44.6554 -116.9269,44.6513 -116.9301,44.6422 -116.932,44.6353 -116.9378,44.6285 -116.9403,44.6235 -116.9454,44.6098 -116.9467,44.6016 -116.9486,44.5965 -116.9537,44.592 -116.9595,44.586 -116.964,44.5765 -116.9697,44.5664 -116.9761,44.5432 -116.9767,44.5386 -116.9787,44.5349 -116.9799,44.5331 -116.9831,44.5313 -116.9876,44.5285 -116.9902,44.5254 -116.9921,44.5212 -116.9902,44.5162 -116.9901,44.5103 -116.9895,44.5048 -116.9914,44.5007 -116.9965,44.4971 -117.001,44.4934 -117.0093,44.4884 -117.0151,44.4852 -117.0202,44.4829 -117.0304,44.4797 -117.0346,44.477 -117.0362,44.4756 -117.0406,44.466 -117.0415,44.464 -117.0425,44.4614 -117.0464,44.456 -117.0502,44.4519 -117.0566,44.4496 -117.0611,44.4473 -117.0662,44.4418 -117.0706,44.4391 -117.0738,44.4331 -117.0738,44.4295 -117.0725,44.4263 -117.0674,44.4185 -117.0642,44.4108 -117.0629,44.4053 -117.0635,44.3989 -117.0635,44.3939 -117.0654,44.3894 -117.0673,44.3862 -117.073,44.378 -117.0787,44.367 -117.0832,44.3561 -117.0812,44.3474 -117.0786,44.3401 -117.0735,44.3328 -117.062,44.3246 -117.053,44.3164 -117.0478,44.3055 -117.0478,44.2978 -117.0497,44.2891 -117.0542,44.2809 -117.0592,44.2727 -117.0637,44.2667 -117.3293,44.2647 -117.3318,44.3458 -117.3503,44.3462 -117.3524,44.3631 -117.3735,44.3643 -117.3749,44.3776 -117.4113,44.3792 -117.4108,44.3911 -117.4345,44.3919 -117.4371,44.406 -117.8101,44.4048 -117.8099,44.392 -117.8579,44.3889 -117.857,44.3707 -117.878,44.3696 -117.8777,44.3473 -117.8975,44.3457 -117.8979,44.3289 -117.9189,44.3264 -117.9175,44.3141 -117.9366,44.3126 -117.9349,44.2871 -117.9572,44.2851 -117.9577,44.2732 -117.98,44.2712 -117.9798,44.2566 -117.9989,44.2546 -117.9978,44.2273 -118.0405,44.2256 -118.0422,44.2128 -118.076,44.2125 -118.0748,44.1441 -118.0766,44.14 -118.076,44.136 6210,-6.0,United States -104.8475,30.595 -104.7981,30.5735 -104.7602,30.5321 -104.7435,30.4908 -104.7285,30.4322 -104.6858,30.352 -104.6408,30.2841 -104.5693,30.1994 -104.5464,30.1536 -104.5388,30.1343 -104.5432,30.0718 -104.5655,30.0255 -104.559,29.9714 -104.5423,29.9076 -104.4062,29.6397 -104.318,29.5627 -104.2838,29.5365 -104.2028,29.4922 -104.1814,29.4979 -104.1498,29.4931 -104.1178,29.4754 -104.0932,29.4617 -104.0673,29.428 -104.0346,29.3898 -103.9459,29.3225 -103.9287,29.3096 -103.9105,29.2979 -103.889,29.2885 -103.8403,29.2733 -103.7547,29.2533 -103.6014,29.1665 -103.3973,29.0935 -103.3509,29.0563 -103.3281,29.0407 -103.2673,29.004 -103.2411,28.9912 -103.1623,28.9648 -103.1572,28.9641 -103.0299,28.9515 -102.9186,29.0618 -102.8215,29.1504 -102.7625,29.2217 -102.7178,29.3194 -102.6716,29.4413 -102.5373,29.7096 -102.4277,29.7344 -102.3633,29.7486 -102.2228,29.8174 -102.1691,29.8545 -102.1288,29.8347 -102.095,29.8138 -101.9895,29.7771 -101.9652,29.7697 -101.9406,29.7651 -101.916,29.7654 -101.8584,29.7724 -101.7602,29.773 -101.6936,29.7713 -101.6427,29.7635 -101.6129,29.7555 -101.5749,29.7448 -101.4971,29.733 -101.4073,29.7378 -101.325,29.7389 -101.2736,29.7396 -101.238,29.6593 -101.2245,29.6276 -101.1793,29.5821 -101.0873,29.5073 -101.0081,29.4576 -100.9756,29.4491 -100.9122,29.4285 -100.8945,29.4048 -100.8062,29.3172 -100.6649,29.226 -100.5353,29.0765 -100.4979,28.9634 -100.504,28.9262 -100.4918,28.901 -100.4602,28.8624 -100.4341,28.8314 -100.3973,28.7906 -100.3619,28.6938 -100.3623,28.6721 -100.3499,28.644 -100.3139,28.5944 -100.2697,28.5394 -100.2292,28.4866 -100.2209,28.463 -100.2,28.3936 -100.2013,28.3686 -100.1518,28.2491 -100.1108,28.2111 -100.0569,28.1659 -99.9791,28.1342 -99.949,28.1241 -99.9216,28.085 -99.833,27.9535 -99.8058,27.9303 -99.752,27.8728 -99.7431,27.8245 -99.7318,27.7741 -99.7039,27.7435 -99.678,27.7406 -99.6694,27.7357 -99.6534,27.7067 -99.6301,27.6962 -99.6127,27.6837 -99.5989,27.6581 -99.5854,27.6382 -99.5676,27.6262 -99.525,27.6105 -99.4776,27.6103 -99.4024,27.5692 -99.3754,27.5373 -99.345,27.4459 -99.3151,27.2275 -99.3305,27.0167 -99.1916,26.8399 -99.1433,26.8301 -99.1256,26.8007 -99.1123,26.7737 -99.073,26.6848 -99.0054,26.4972 -98.9776,26.4056 -98.8487,26.3764 -98.7984,26.3619 -98.6575,26.3194 -98.6033,26.2852 -98.569,26.2603 -98.4783,26.2274 -98.4518,26.2269 -98.3136,26.1942 -98.262,26.1624 -98.2354,26.1243 -98.1792,26.08 -98.1604,26.0686 -98.0743,26.0334 -97.9346,26.0099 -97.9077,26.0186 -97.8544,26.0297 -97.7221,26.0344 -97.6779,26.029 -97.5539,26.0091 -97.523,26.0003 -97.4893,25.9761 -97.4344,25.9222 -97.3897,25.8694 -97.2926,25.8145 -97.2401,25.8109 -97.2204,25.8309 -97.2221,25.8642 -97.1909,25.8912 -97.1407,25.9122 -97.0364,25.9382 -97.0165,25.9373 -97.0168,25.9508 -97.0218,25.9882 -97.0261,26.0113 -97.0433,26.0409 -97.0563,25.9987 -97.085,25.9635 -97.1162,25.9531 -97.1825,26.0935 -97.193,26.132 -97.1946,26.1841 -97.194,26.2169 -97.2445,26.3357 -97.2772,26.3402 -97.2878,26.3825 -97.2979,26.516 -97.3521,26.7095 -97.3667,26.7604 -97.3787,26.7769 -97.4145,26.7869 -97.4348,26.812 -97.4402,26.9517 -97.4318,26.9755 -97.3497,27.0007 -97.3188,27.0976 -97.3038,27.232 -97.3513,27.2273 -97.4084,27.2048 -97.5083,27.2222 -97.5349,27.2463 -97.5509,27.2866 -97.5975,27.3648 -97.6433,27.4191 -97.5972,27.4017 -97.5511,27.3549 -97.5126,27.3405 -97.4989,27.3143 -97.3996,27.3466 -97.3644,27.2758 -97.2876,27.2967 -97.2616,27.3647 -97.1541,27.6253 -97.1901,27.6847 -97.2672,27.7522 -97.3587,27.7946 -97.3912,27.8329 -97.3667,27.8469 -97.2197,27.8216 -97.1008,27.7897 -97.0689,27.7908 -96.897,28.0003 -96.9003,28.0471 -96.9208,28.0605 -96.9726,28.0384 -97.0187,27.9968 -97.0211,28.0088 -97.0574,28.029 -97.088,28.0372 -97.0438,28.1302 -96.9027,28.155 -96.8908,28.1045 -96.8579,28.0897 -96.8056,28.0956 -96.7575,28.109 -96.6558,28.2099 -96.6588,28.3174 -96.7067,28.3563 -96.7198,28.378 -96.6751,28.4398 -96.6217,28.4059 -96.5821,28.3659 -96.577,28.3385 -96.5719,28.3026 -96.5342,28.2835 -96.4998,28.2925 -96.2752,28.41 -96.3653,28.4775 -96.4591,28.5351 -96.5263,28.6536 -96.5195,28.6798 -96.4695,28.6871 -96.4374,28.6656 -96.4378,28.6421 -96.4301,28.616 -96.3706,28.5874 -96.3071,28.5673 -96.2866,28.5696 -96.2508,28.5901 -96.2838,28.6036 -96.3127,28.694 -96.3179,28.7281 -96.2692,28.7042 -96.1428,28.653 -96.0677,28.6634 -96.0162,28.5954 -96.0587,28.571 -96.0829,28.5712 -96.0928,28.5501 -96.0091,28.57 -95.9827,28.5802 -95.9569,28.5907 -95.9349,28.6023 -95.9055,28.6129 -95.8663,28.6191 -95.8574,28.6002 -95.8723,28.572 -95.9012,28.56 -95.9217,28.5525 -95.9482,28.5421 -96.0224,28.5065 -96.071,28.478 -96.0874,28.4564 -96.032,28.4786 -96.0069,28.4902 -95.9399,28.5258 -95.9353,28.5291 -95.9119,28.5419 -95.8762,28.5583 -95.855,28.5667 -95.8274,28.5718 -95.8051,28.5782 -95.7713,28.5894 -95.7341,28.6033 -95.7031,28.6165 -95.6416,28.6603 -95.6928,28.6488 -95.7236,28.636 -95.7519,28.6184 -95.7719,28.608 -95.8173,28.5944 -95.817,28.6544 -95.6733,28.705 -95.6217,28.7051 -95.5661,28.7059 -95.4947,28.7236 -95.2364,28.8638 -95.2084,28.8804 -95.1799,28.8991 -95.0252,29.0187 -94.9639,29.1495 -94.7799,29.2816 -94.7709,29.3051 -94.7645,29.3523 -94.775,29.3879 -94.8925,29.5326 -94.9367,29.6819 -94.884,29.6835 -94.8323,29.6628 -94.7176,29.7159 -94.7013,29.7287 -94.6342,29.7516 -94.5883,29.7234 -94.5838,29.6778 -94.5944,29.6204 -94.5994,29.6007 -94.6074,29.58 -94.6431,29.5351 -94.5527,29.5197 -94.4512,29.5401 -94.354,29.5259 -94.3927,29.4834 -94.4894,29.4617 -94.5693,29.4346 -94.6584,29.3644 -94.6641,29.3409 -94.6313,29.335 -94.6109,29.348 -94.5851,29.3765 -94.5608,29.3963 -94.531,29.4144 -94.4974,29.429 -94.3364,29.4946 -94.1952,29.5513 -94.0121,29.6206 -93.9463,29.6409 -93.9146,29.6461 -93.7986,29.6484 -93.7691,29.6392 -93.7366,29.6485 -93.7689,29.7074 -93.7928,29.7322 -93.8257,29.753 -93.8367,29.7832 -93.7304,29.9516 -93.675,29.9608 -93.6682,29.9614 -93.6465,29.943 -93.6515,29.867 -93.6901,29.8006 -93.7402,29.7973 -93.7703,29.7842 -93.7792,29.758 -93.7639,29.712 -93.7288,29.6758 -93.7016,29.6751 -93.6724,29.6943 -93.6283,29.7166 -93.5979,29.7258 -93.5461,29.7307 -93.1788,29.7536 -93.1514,29.7536 -93.1199,29.7518 -93.0239,29.7361 -92.9977,29.7304 -92.917,29.7058 -92.7849,29.6602 -92.7348,29.6301 -92.6934,29.6107 -92.631,29.5875 -92.5675,29.5671 -92.45,29.5429 -92.2173,29.5094 -92.1887,29.5068 -92.1535,29.5079 -92.0176,29.557 -91.9804,29.5825 -92.0561,29.6573 -92.0292,29.7356 -91.7798,29.8028 -91.7198,29.795 -91.7049,29.7622 -91.5453,29.7153 -91.512,29.7059 -91.4384,29.5976 -91.4325,29.5529 -91.4247,29.5096 -91.4043,29.4993 -91.2964,29.5074 -91.149,29.4342 -91.0082,29.3145 -90.9965,29.2928 -90.9998,29.2299 -91.0311,29.2169 -91.0554,29.2409 -91.0447,29.2604 -91.0441,29.297 -91.1051,29.3276 -91.2208,29.2921 -91.2039,29.2624 -91.1811,29.2389 -91.1595,29.2231 -91.1367,29.2116 -91.1012,29.199 -91.0766,29.1945 -90.9788,29.1698 -90.9598,29.1623 -90.9304,29.1616 -90.9173,29.1804 -90.8811,29.1867 -90.8122,29.1316 -90.7945,29.1182 -90.7606,29.0964 -90.6476,29.077 -90.5845,29.0834 -90.5613,29.0973 -90.5299,29.1254 -90.4722,29.2007 -90.4072,29.2571 -90.3272,29.2932 -90.2765,29.2846 -90.2279,29.2764 -90.1559,29.2271 -90.1387,29.1648 -90.1186,29.086 -90.1189,29.0599 -90.131,29.0499 -90.1205,29.0511 -90.0926,29.0586 -90.019,29.0939 -89.9992,29.1064 -89.9493,29.1509 -89.9349,29.189 -89.9402,29.2791 -89.9097,29.3923 -89.9418,29.4268 -89.9799,29.4283 -90.008,29.4329 -90.055,29.4553 -90.074,29.4778 -90.0864,29.5117 -90.0656,29.5367 -90.0021,29.5183 -89.8685,29.4533 -89.7152,29.411 -89.6571,29.382 -89.6345,29.3279 -89.6543,29.3063 -89.5922,29.2681 -89.4923,29.2185 -89.3625,29.2011 -89.2739,29.0596 -89.2397,29.0544 -89.2157,29.069 -89.208,29.0895 -89.2137,29.1204 -89.2085,29.1455 -89.1562,29.1171 -89.1863,29.0499 -89.2501,28.9714 -89.2656,28.9569 -89.2817,28.9423 -89.2973,28.8988 -89.2891,28.8942 -89.2749,28.8997 -89.2474,28.9212 -89.2227,28.9543 -89.21,28.986 -89.1913,29.0098 -89.1338,29.0637 -89.0385,29.0074 -88.9271,29.078 -88.9063,29.1079 -88.8935,29.1418 -88.8938,29.1636 -88.9136,29.1832 -89.0716,29.3071 -89.1403,29.302 -89.2016,29.3176 -89.3483,29.3702 -89.4032,29.4297 -89.5613,29.4926 -89.6363,29.5999 -89.5463,29.6334 -89.4743,29.7057 -89.3605,29.799 -89.3321,29.7879 -89.3138,29.7749 -89.2961,29.7571 -89.2881,29.7293 -89.2177,29.8447 -89.2834,30.0174 -89.3599,30.041 -89.4498,29.9276 -89.4731,29.8663 -89.5093,29.8402 -89.5417,29.8404 -89.5673,29.8455 -89.7013,29.9121 -89.7189,29.9475 -89.727,29.9737 -89.7112,29.9993 -89.689,30.0108 -89.653,30.0107 -89.6024,30.0246 -89.5263,30.0995 -89.5571,30.1333 -89.6056,30.109 -89.6953,30.0656 -89.917,30.0032 -90.0146,29.9888 -90.0529,29.9901 -90.2323,30.0283 -90.2953,30.0642 -90.3076,30.09 -90.313,30.118 -90.3104,30.145 -90.2974,30.1698 -90.1189,30.3427 -90.0963,30.3532 -90.0704,30.354 -89.9724,30.3316 -89.9466,30.3248 -89.8839,30.2854 -89.8711,30.2673 -89.8626,30.2326 -89.7028,30.1894 -89.5783,30.15 -89.4768,30.1197 -89.4057,30.1531 -89.3824,30.15 -89.3322,30.1505 -89.1956,30.2766 -89.1483,30.2845 -89.0864,30.2934 -88.8692,30.3525 -88.8651,30.3842 -88.717,30.3791 -88.6726,30.3436 -88.6293,30.3203 -88.607,30.3124 -88.5809,30.3117 -88.4991,30.3296 -88.4448,30.3143 -88.3695,30.2892 -88.3431,30.2838 -88.2912,30.3224 -88.2872,30.3539 -88.2387,30.3703 -88.0775,30.326 -88.0795,30.2978 -88.017,30.2853 -87.9966,30.3333 -87.9925,30.3636 -87.9878,30.4361 -87.9864,30.4786 -87.9679,30.5406 -87.9056,30.6667 -87.8346,30.6362 -87.816,30.6069 -87.7989,30.5599 -87.7951,30.5353 -87.8035,30.5 -87.8198,30.4613 -87.794,30.3758 -87.7574,30.3504 -87.7175,30.3269 -87.6494,30.2693 -87.6436,30.2488 -87.6642,30.229 -87.7595,30.2037 -87.8011,30.2113 -87.8381,30.2147 -87.907,30.1916 -87.6632,30.198 -87.6195,30.2014 -87.5421,30.2183 -87.4546,30.2455 -87.3495,30.3257 -87.3092,30.3865 -87.2952,30.4187 -87.3069,30.4469 -87.2414,30.4223 -87.2274,30.4007 -87.3043,30.3043 -87.3452,30.2731 -87.3847,30.2695 -87.4087,30.2454 -87.3394,30.2569 -87.2208,30.2809 -87.1931,30.2874 -87.1886,30.3117 -87.1527,30.3174 -87.0664,30.3978 -87.0433,30.4381 -87.0397,30.4647 -87.0476,30.4836 -86.9885,30.4924 -86.8992,30.4858 -86.8404,30.437 -86.8232,30.4161 -86.8733,30.3831 -86.8962,30.3735 -86.9716,30.3667 -87.0025,30.3606 -87.0622,30.336 -87.0127,30.3298 -86.9849,30.3391 -86.9589,30.3446 -86.8577,30.3596 -86.8135,30.3654 -86.6673,30.3826 -86.596,30.3853 -86.5519,30.3831 -86.5056,30.3809 -86.4853,30.3812 -86.3803,30.4359 -86.3258,30.4622 -86.1479,30.4617 -86.0855,30.4392 -86.0107,30.3921 -85.9924,30.3451 -86.0506,30.357 -86.2252,30.3504 -86.2001,30.3387 -86.1433,30.3246 -86.0527,30.2954 -85.9738,30.2698 -85.9188,30.2501 -85.8181,30.2108 -85.7908,30.1985 -85.7607,30.1834 -85.7187,30.1619 -85.6687,30.1293 -85.6142,30.0922 -85.611,30.1284 -85.6274,30.1652 -85.6527,30.2067 -85.6921,30.2077 -85.7181,30.1937 -85.7339,30.2135 -85.7272,30.2535 -85.6356,30.2635 -85.5523,30.2124 -85.5767,30.157 -85.5359,30.1123 -85.3316,30.0207 -85.3021,30.0219 -85.2828,30.0081 -85.3286,29.9843 -85.3659,29.9925 -85.4106,30.027 -85.4393,30.041 -85.4873,30.0689 -85.518,30.071 -85.5023,30.0366 -85.4351,30.0002 -85.3291,29.9244 -85.2197,29.9854 -85.2171,29.983 -85.2176,29.9785 -85.2171,29.9734 -85.216,29.9689 -85.2144,29.9648 -85.2144,29.9615 -85.2155,29.9593 -85.2181,29.9556 -85.2197,29.9529 -85.2203,29.951 -85.2203,29.9446 -85.214,29.9345 -85.2129,29.9341 -85.2108,29.9322 -85.2082,29.9313 -85.2045,29.9322 -85.2018,29.9327 -85.1981,29.9331 -85.195,29.9331 -85.1908,29.9327 -85.1887,29.9327 -85.1845,29.9313 -85.1813,29.9304 -85.1776,29.929 -85.1745,29.9267 -85.1739,29.9262 -85.1739,29.9267 -85.1729,29.9235 -85.1718,29.9221 -85.1692,29.9198 -85.165,29.9184 -85.1613,29.9171 -85.1587,29.9157 -85.155,29.9143 -85.1518,29.9129 -85.1503,29.9106 -85.1487,29.9079 -85.1482,29.9065 -85.1477,29.9006 -85.1466,29.8964 -85.145,29.8882 -85.1424,29.8868 -85.1387,29.8841 -85.1351,29.8827 -85.1288,29.879 -85.1256,29.8781 -85.1224,29.8762 -85.1203,29.8739 -85.1161,29.8698 -85.1088,29.8634 -85.1067,29.8625 -85.103,29.8606 -85.0999,29.8592 -85.0914,29.8569 -85.0878,29.8565 -85.0809,29.8546 -85.0704,29.8532 -85.0657,29.8523 -85.0609,29.8509 -85.0567,29.8491 -85.0557,29.8472 -85.0546,29.8449 -85.0536,29.8408 -85.0526,29.8371 -85.0531,29.833 -85.0542,29.8262 -85.0558,29.8239 -85.0563,29.8211 -85.0563,29.8193 -85.0553,29.8184 -85.0532,29.8175 -85.0469,29.8142 -85.0432,29.8129 -85.0416,29.811 -85.0406,29.8078 -85.0406,29.806 -85.0385,29.8028 -85.0374,29.8018 -85.0353,29.8005 -85.0301,29.8 -85.0285,29.7991 -85.0269,29.7968 -85.0259,29.7945 -85.0254,29.7931 -85.0175,29.7913 -85.0117,29.7876 -85.0065,29.7839 -84.9955,29.7774 -84.9939,29.7751 -84.9913,29.7715 -84.9735,29.7572 -84.9546,29.7457 -84.9483,29.7461 -84.9409,29.7443 -84.9346,29.7443 -84.9299,29.7438 -84.9262,29.7451 -84.922,29.7483 -84.9209,29.7502 -84.9188,29.7543 -84.9156,29.7565 -84.9109,29.7565 -84.9051,29.7574 -84.9025,29.757 -84.8999,29.7551 -84.8962,29.7537 -84.8931,29.751 -84.891,29.7473 -84.8894,29.7487 -84.8894,29.7519 -84.8878,29.756 -84.8835,29.7624 -84.8798,29.7669 -84.8782,29.7697 -84.876,29.7857 -84.8755,29.7935 -84.8765,29.7985 -84.8775,29.8031 -84.8796,29.8082 -84.8801,29.8136 -84.8801,29.8173 -84.8763,29.8228 -84.8732,29.8269 -84.8695,29.8301 -84.8663,29.8333 -84.8636,29.8356 -84.8626,29.8424 -84.8614,29.8511 -84.8603,29.8644 -84.8608,29.8772 -84.8634,29.8846 -84.8623,29.891 -84.8606,29.8978 -84.8637,29.9116 -84.8663,29.9194 -84.871,29.934 -84.8741,29.9455 -84.8751,29.9478 -84.8788,29.9519 -84.883,29.9542 -84.8872,29.9561 -84.8914,29.9598 -84.8966,29.9639 -84.9003,29.968 -84.904,29.9726 -84.9097,29.9759 -84.915,29.9768 -84.9197,29.9786 -84.9229,29.98 -84.9261,29.98 -84.9313,29.981 -84.9376,29.9837 -84.9413,29.987 -84.9455,29.9916 -84.9502,29.9939 -84.9545,29.9953 -84.9566,29.9962 -84.9602,29.9976 -84.9639,29.9994 -84.9692,30.0035 -84.9739,30.0109 -84.9755,30.015 -84.977,30.0164 -84.9807,30.0246 -84.9822,30.0301 -84.9827,30.0347 -84.9833,30.0411 -84.9838,30.0466 -84.9848,30.0512 -84.9885,30.0562 -84.9932,30.0604 -84.9953,30.0695 -84.9926,30.0769 -84.9899,30.0801 -84.9873,30.0823 -84.9857,30.0869 -84.9846,30.0892 -84.9872,30.0919 -84.9894,30.0929 -84.9925,30.0965 -84.992,30.1002 -84.9882,30.1048 -84.9867,30.107 -84.9835,30.1134 -84.9824,30.1162 -84.9813,30.1198 -84.9813,30.1221 -84.9829,30.129 -84.9839,30.1382 -84.9833,30.1441 -84.9807,30.1496 -84.9769,30.1532 -84.9732,30.1573 -84.9711,30.1605 -84.9705,30.1656 -84.9674,30.1656 -84.9679,30.1678 -84.9647,30.1733 -84.953,30.1838 -84.9493,30.1856 -84.9424,30.1893 -84.9377,30.1929 -84.9334,30.2007 -84.9302,30.2084 -84.9264,30.2189 -84.9238,30.2235 -84.9195,30.2262 -84.9158,30.2294 -84.9137,30.2331 -84.9115,30.2404 -84.9099,30.245 -84.9093,30.2514 -84.9093,30.2628 -84.9055,30.2678 -84.9028,30.2783 -84.8986,30.2806 -84.8928,30.281 -84.8885,30.2838 -84.8896,30.2879 -84.8917,30.2925 -84.8921,30.298 -84.8942,30.3076 -84.892,30.319 -84.8894,30.3231 -84.8862,30.3249 -84.883,30.3258 -84.8803,30.3304 -84.8814,30.3336 -84.8866,30.3382 -84.8856,30.3414 -84.884,30.3427 -84.8797,30.3427 -84.8771,30.3413 -84.8692,30.3363 -84.8654,30.3399 -84.868,30.3486 -84.8664,30.3564 -84.8695,30.3665 -84.8748,30.3692 -84.8737,30.3752 -84.8716,30.3761 -84.8689,30.3774 -84.8673,30.3793 -84.8689,30.3825 -84.871,30.3839 -84.8752,30.3857 -84.8763,30.388 -84.8768,30.3907 -84.8762,30.3939 -84.8678,30.3985 -84.8593,30.4007 -84.8502,30.403 -84.8433,30.4066 -84.8385,30.4093 -84.8364,30.4102 -84.8359,30.4134 -84.8459,30.4148 -84.8432,30.4281 -84.8389,30.4327 -84.84,30.4349 -84.8426,30.4363 -84.8458,30.4377 -84.849,30.44 -84.8457,30.4514 -84.8409,30.4619 -84.8387,30.4702 -84.8365,30.4802 -84.8349,30.488 -84.8332,30.498 -84.831,30.5081 -84.8283,30.5131 -84.8251,30.5167 -84.8171,30.5268 -84.8112,30.534 -84.8091,30.5386 -84.8085,30.5427 -84.8053,30.5477 -84.7995,30.5495 -84.7968,30.5495 -84.7925,30.5504 -84.7915,30.5531 -84.7898,30.5605 -84.7882,30.5632 -84.785,30.5664 -84.7829,30.5686 -84.7781,30.5704 -84.7749,30.5736 -84.7722,30.5759 -84.7674,30.5795 -84.7631,30.585 -84.7599,30.5882 -84.7583,30.5909 -84.7507,30.6055 -84.7464,30.6114 -84.7432,30.6155 -84.7368,30.6223 -84.7325,30.6283 -84.7271,30.6351 -84.7218,30.6405 -84.7196,30.6437 -84.718,30.6488 -84.7174,30.6529 -84.7153,30.6579 -84.7115,30.6675 -84.7132,30.6751 -84.7122,30.6789 -84.7158,30.6839 -84.7235,30.6945 -84.7309,30.7055 -84.7356,30.7096 -84.7399,30.712 -84.7457,30.7147 -84.7521,30.7152 -84.7583,30.7157 -84.7598,30.7172 -84.7627,30.7199 -84.7652,30.7238 -84.7664,30.7257 -84.7667,30.7281 -84.7708,30.7385 -84.7735,30.7471 -84.7755,30.7548 -84.7785,30.7662 -84.7782,30.7686 -84.7788,30.7731 -84.7779,30.777 -84.7775,30.7825 -84.7766,30.7853 -84.7765,30.7896 -84.7754,30.794 -84.7743,30.8022 -84.7748,30.8102 -84.7749,30.8127 -84.7747,30.8156 -84.7751,30.8177 -84.7762,30.8212 -84.7762,30.8233 -84.7784,30.8287 -84.7798,30.8365 -84.7802,30.8386 -84.7807,30.8425 -84.7841,30.852 -84.7846,30.8571 -84.7851,30.8607 -84.7872,30.8639 -84.7925,30.8699 -84.7967,30.8736 -84.8015,30.8782 -84.8084,30.8851 -84.8136,30.8882 -84.8159,30.893 -84.8175,30.8963 -84.8189,30.8993 -84.8198,30.9021 -84.8206,30.9048 -84.8211,30.9075 -84.8208,30.9104 -84.8218,30.9139 -84.8204,30.9262 -84.8209,30.9294 -84.8241,30.9336 -84.8283,30.9359 -84.8347,30.9386 -84.8384,30.94 -84.8437,30.9423 -84.849,30.9463 -84.8512,30.951 -84.8502,30.955 -84.8511,30.9597 -84.85,30.9629 -84.8489,30.967 -84.8433,30.9732 -84.8421,30.9765 -84.841,30.9797 -84.8391,30.9839 -84.8371,30.9883 -84.8397,30.9939 -84.8411,31.0026 -84.8426,31.0066 -84.8458,31.0142 -84.8509,31.0273 -84.8556,31.0339 -84.8597,31.0401 -84.8643,31.0459 -84.8697,31.0557 -84.8704,31.0579 -84.8731,31.0661 -84.8756,31.0728 -84.8769,31.0769 -84.8777,31.08 -84.883,31.088 -84.8854,31.0925 -84.8894,31.0964 -84.8933,31.099 -84.8978,31.1029 -84.9008,31.1078 -84.905,31.1145 -84.9085,31.1211 -84.9098,31.1234 -84.9122,31.1259 -84.9139,31.1276 -84.9199,31.1302 -84.9248,31.1323 -84.9324,31.1338 -84.9384,31.1358 -84.9407,31.138 -84.9425,31.142 -84.9445,31.1483 -84.9447,31.1506 -84.9454,31.1529 -84.9467,31.1565 -84.949,31.1595 -84.9503,31.1627 -84.9499,31.1659 -84.9496,31.1696 -84.9473,31.1723 -84.9456,31.1767 -84.9445,31.1793 -84.9441,31.1817 -84.9429,31.1854 -84.9428,31.1882 -84.9393,31.1927 -84.9393,31.1974 -84.9406,31.1997 -84.9426,31.2033 -84.9434,31.2065 -84.9454,31.2123 -84.9473,31.2177 -84.9483,31.2272 -84.9531,31.243 -84.9519,31.2462 -84.949,31.2497 -84.9417,31.2554 -84.9363,31.257 -84.9318,31.2609 -84.9304,31.2673 -84.9295,31.2693 -84.9279,31.2731 -84.9276,31.2786 -84.9273,31.2836 -84.9283,31.2908 -84.9291,31.294 -84.9322,31.3094 -84.9335,31.3143 -84.9345,31.3207 -84.9342,31.33 -84.9364,31.3342 -84.9339,31.3367 -84.9258,31.3526 -84.9229,31.3583 -84.9203,31.3637 -84.9194,31.3673 -84.92,31.3726 -84.9192,31.375 -84.9172,31.3814 -84.9167,31.3919 -84.9149,31.3934 -84.9135,31.3991 -84.9114,31.4023 -84.9087,31.4064 -84.9093,31.4156 -84.9107,31.4201 -84.9125,31.4328 -84.9121,31.4389 -84.9113,31.447 -84.91,31.4506 -84.9088,31.4539 -84.9035,31.4597 -84.898,31.4663 -84.8945,31.4711 -84.8907,31.4795 -84.8895,31.4864 -84.8852,31.493 -84.8856,31.4962 -84.886,31.499 -84.8894,31.5054 -84.8883,31.5084 -84.8882,31.511 -84.8883,31.5133 -84.89,31.5202 -84.8862,31.5246 -84.8865,31.5283 -84.8885,31.5311 -84.8926,31.5354 -84.8955,31.5414 -84.8996,31.5479 -84.8997,31.553 -84.8987,31.5612 -84.9011,31.5667 -84.9045,31.5735 -84.9024,31.5819 -84.9026,31.5883 -84.9018,31.5933 -84.8998,31.5987 -84.9014,31.6006 -84.9067,31.6008 -84.9138,31.6001 -84.9203,31.6003 -84.9234,31.6064 -84.925,31.6109 -84.9247,31.6175 -84.9301,31.6259 -84.9366,31.6344 -84.9433,31.6415 -84.9494,31.6468 -84.9555,31.6534 -84.9594,31.6609 -84.9613,31.666 -84.9624,31.6756 -84.9626,31.6841 -84.9628,31.6908 -84.962,31.6939 -84.9608,31.6966 -84.9595,31.6997 -84.9585,31.7069 -84.9593,31.722 -84.962,31.7322 -84.9649,31.7378 -84.9684,31.743 -84.9696,31.7452 -84.9723,31.7504 -84.9738,31.7541 -84.9762,31.7588 -84.9774,31.767 -84.9786,31.7835 -84.9797,31.8032 -84.9798,31.811 -84.9779,31.8168 -84.977,31.8227 -84.9723,31.8299 -84.9675,31.8388 -84.9618,31.855 -84.9612,31.8659 -84.9616,31.8745 -84.959,31.8784 -84.9551,31.8854 -84.9515,31.89 -84.9482,31.8937 -84.9427,31.8976 -84.9376,31.9025 -84.9334,31.9105 -84.9303,31.9178 -84.9269,31.926 -84.9237,31.931 -84.9216,31.9344 -84.9192,31.9405 -84.914,31.9465 -84.9104,31.9543 -84.9108,31.9571 -84.9106,31.9607 -84.9116,31.9668 -84.9099,31.9721 -84.9083,31.9756 -84.905,31.9796 -84.9057,31.9836 -84.902,31.9887 -84.9001,31.9941 -84.8992,32.0005 -84.8989,32.005 -84.9007,32.0115 -84.9042,32.0175 -84.9055,32.0231 -84.9071,32.0282 -84.9051,32.0307 -84.9043,32.0353 -84.9026,32.0376 -84.8991,32.0427 -84.8943,32.0521 -84.8935,32.0567 -84.8911,32.059 -84.8892,32.0635 -84.8878,32.0689 -84.8881,32.0726 -84.8945,32.0847 -84.8968,32.0921 -84.8969,32.0976 -84.8932,32.1037 -84.8907,32.1067 -84.8869,32.1112 -84.8821,32.1168 -84.8795,32.1192 -84.8771,32.1227 -84.8744,32.1263 -84.8702,32.1321 -84.8677,32.1364 -84.8619,32.1407 -84.8551,32.1447 -84.8477,32.1464 -84.8423,32.148 -84.8322,32.1498 -84.8209,32.1526 -84.8141,32.1552 -84.8077,32.1577 -84.8074,32.1614 -84.8103,32.1651 -84.8059,32.167 -84.8058,32.1692 -84.8078,32.1711 -84.8115,32.1736 -84.8168,32.1756 -84.8205,32.1762 -84.8221,32.1782 -84.8188,32.1787 -84.8134,32.1789 -84.8069,32.1797 -84.7988,32.18 -84.7896,32.1809 -84.7816,32.1826 -84.7757,32.1838 -84.7705,32.1872 -84.7663,32.1901 -84.7632,32.1921 -84.7633,32.1944 -84.7608,32.1972 -84.7615,32.2019 -84.7592,32.2052 -84.7585,32.2088 -84.7596,32.2132 -84.7569,32.2133 -84.7527,32.2154 -84.7465,32.2206 -84.7413,32.225 -84.7411,32.23 -84.7419,32.2345 -84.7477,32.2398 -84.7516,32.2419 -84.7566,32.243 -84.7589,32.2457 -84.7613,32.2501 -84.764,32.2543 -84.7652,32.2562 -84.7684,32.2589 -84.7703,32.2598 -84.772,32.266 -84.7751,32.2688 -84.7797,32.2736 -84.785,32.2761 -84.7989,32.2794 -84.8229,32.2881 -84.8425,32.2971 -84.8461,32.3 -84.85,32.3083 -84.8484,32.3125 -84.8467,32.3178 -84.8438,32.3218 -84.8382,32.3243 -84.8349,32.3255 -84.8309,32.3286 -84.8291,32.3326 -84.8267,32.3366 -84.8243,32.3392 -84.8222,32.3387 -84.8184,32.3388 -84.8157,32.3389 -84.8145,32.3407 -84.8126,32.3442 -84.8129,32.3488 -84.8139,32.3511 -84.8176,32.3527 -84.8213,32.3537 -84.8234,32.3574 -84.8208,32.3589 -84.8181,32.3618 -84.8185,32.3658 -84.8198,32.3689 -84.8199,32.3712 -84.8199,32.3788 -84.8181,32.3819 -84.8152,32.3854 -84.8117,32.3877 -84.8127,32.3953 -84.8163,32.4001 -84.8242,32.4052 -84.8293,32.4087 -84.8322,32.4108 -84.8352,32.4157 -84.8353,32.4185 -84.8355,32.4215 -84.8368,32.4242 -84.8366,32.4271 -84.837,32.433 -84.8373,32.437 -84.8372,32.4476 -84.8387,32.4593 -84.8383,32.4676 -84.8382,32.4702 -84.8384,32.4727 -84.8394,32.4813 -84.8399,32.4863 -84.8407,32.4922 -84.8469,32.498 -84.8553,32.5033 -84.8583,32.5071 -84.8639,32.5146 -84.8675,32.5179 -84.8744,32.5209 -84.8803,32.523 -84.8854,32.5296 -84.89,32.5343 -84.8934,32.5422 -84.897,32.5465 -84.9022,32.5508 -84.9064,32.5537 -84.9095,32.5565 -84.9135,32.5621 -84.916,32.5663 -84.9164,32.5691 -84.9167,32.5741 -84.9181,32.5778 -84.9183,32.5842 -84.9201,32.5902 -84.9232,32.5935 -84.9258,32.5964 -84.9261,32.6005 -84.928,32.6051 -84.9312,32.6071 -84.9366,32.6077 -84.9431,32.6094 -84.9451,32.6117 -84.9443,32.6158 -84.9415,32.6184 -84.9375,32.621 -84.9341,32.624 -84.9322,32.6276 -84.9325,32.6322 -84.9342,32.6418 -84.9382,32.647 -84.944,32.6509 -84.9497,32.6566 -84.9511,32.6603 -84.957,32.6733 -84.9616,32.6787 -84.9608,32.6806 -84.9599,32.6898 -84.9609,32.6957 -84.9612,32.7002 -84.9631,32.7051 -84.9659,32.7064 -84.9683,32.7098 -84.9722,32.7098 -84.9741,32.7142 -84.977,32.7164 -84.9793,32.7195 -84.9806,32.7221 -84.9804,32.7276 -84.9774,32.7309 -84.9762,32.7347 -84.9704,32.7371 -84.9685,32.7403 -84.9666,32.7452 -84.9675,32.7498 -84.9711,32.7531 -84.9759,32.7551 -84.9791,32.7575 -84.9816,32.7604 -84.9856,32.7669 -84.9889,32.7679 -84.9948,32.77 -85.0017,32.7725 -85.0048,32.7763 -85.0051,32.7804 -85.0049,32.7841 -85.0041,32.7886 -85.0062,32.7905 -85.0105,32.7916 -85.012,32.7939 -85.0127,32.8012 -85.0147,32.8145 -85.0207,32.8375 -85.028,32.8376 -85.0804,33.0755 -85.0808,33.086 -85.0812,33.0951 -85.1411,33.3917 -85.1523,33.4564 -85.1826,33.6208 -85.2313,33.8713 -85.2417,33.9177 -85.243,33.9257 -85.2639,34.0528 -85.2651,34.0585 -85.3076,34.256 -85.3552,34.4713 -85.3592,34.4889 -85.3731,34.5506 -85.382,34.5884 -85.4304,34.8282 -85.4562,34.9565 -85.4507,34.9565 -85.3135,34.9605 -85.3048,34.9652 -85.3007,34.9687 -85.2972,34.9709 -85.2938,34.9721 -85.2909,34.9738 -85.2874,34.9765 -85.2822,34.9795 -85.2793,34.9807 -85.2769,34.9829 -85.2699,34.9881 -85.2664,34.9912 -85.2639,34.9952 -85.2621,34.9974 -85.2597,35.0 -85.2585,35.0023 -85.2578,35.0045 -85.2571,35.0077 -85.2564,35.0099 -85.2545,35.0126 -85.2516,35.0152 -85.247,35.0169 -85.2431,35.0172 -85.2402,35.018 -85.2363,35.0174 -85.2301,35.0172 -85.2273,35.018 -85.2238,35.0201 -85.2195,35.0263 -85.2183,35.029 -85.2152,35.033 -85.2144,35.0371 -85.212,35.0406 -85.2095,35.0451 -85.2092,35.0505 -85.2079,35.0546 -85.2081,35.0618 -85.2096,35.0646 -85.2123,35.0665 -85.2151,35.0675 -85.2184,35.069 -85.2211,35.0705 -85.2249,35.0724 -85.2277,35.0739 -85.2304,35.0758 -85.2342,35.0769 -85.2364,35.0792 -85.2396,35.0816 -85.2406,35.0839 -85.2393,35.087 -85.2392,35.0897 -85.2379,35.0929 -85.2372,35.0951 -85.2353,35.0987 -85.2335,35.1009 -85.2321,35.1054 -85.2314,35.1081 -85.2312,35.1126 -85.2343,35.1173 -85.2347,35.1205 -85.2335,35.1227 -85.2317,35.1249 -85.1259,35.2566 -85.0988,35.2879 -85.0734,35.3292 -85.0316,35.3986 -85.0183,35.4344 -84.9949,35.419 -84.9805,35.4326 -84.9637,35.4492 -84.9758,35.4551 -84.9756,35.4601 -84.9843,35.465 -84.987,35.4678 -84.9662,35.5052 -84.9555,35.5134 -84.9515,35.5251 -84.953,35.5374 -84.9542,35.547 -84.8997,35.5881 -84.8756,35.5936 -84.8392,35.644 -84.827,35.6385 -84.8178,35.6414 -84.8191,35.6482 -84.8221,35.6547 -84.7471,35.7413 -84.7287,35.746 -84.6404,35.7966 -84.6297,35.7953 -84.6268,35.7956 -84.6234,35.795 -84.6201,35.794 -84.6173,35.7925 -84.6145,35.7929 -84.6111,35.7923 -84.6063,35.7962 -84.6022,35.7983 -84.5921,35.8056 -84.5903,35.8078 -84.586,35.8131 -84.5852,35.8162 -84.5803,35.821 -84.5779,35.8237 -84.5761,35.8259 -84.5718,35.8298 -84.5688,35.8328 -84.5634,35.8372 -84.5592,35.8406 -84.5538,35.845 -84.552,35.8471 -84.5489,35.8502 -84.546,35.8524 -84.5447,35.855 -84.5403,35.8612 -84.5354,35.866 -84.5336,35.8687 -84.5305,35.8717 -84.5281,35.8748 -84.5273,35.8775 -84.526,35.8802 -84.5343,35.8937 -84.541,35.9135 -84.5477,35.9328 -84.5547,35.9486 -84.563,35.9607 -84.5737,35.9716 -84.5852,35.9798 -84.5921,35.9869 -84.6009,35.9922 -84.6113,35.9981 -84.6159,36.0078 -84.6245,36.0154 -84.6358,36.0263 -84.6396,36.0382 -84.6434,36.0507 -84.6459,36.0562 -84.6519,36.0519 -84.6617,36.0586 -84.6684,36.0603 -84.6738,36.0573 -84.6767,36.0556 -84.6812,36.0571 -84.6837,36.0622 -84.7065,36.0895 -84.7134,36.0984 -84.7239,36.1042 -84.7294,36.1076 -84.7377,36.1116 -84.7438,36.115 -84.7525,36.1212 -84.7512,36.1234 -84.7494,36.1256 -84.747,36.1283 -84.7455,36.1337 -84.7448,36.1359 -84.7446,36.1382 -84.7455,36.1427 -84.7454,36.145 -84.7463,36.1482 -84.7478,36.1515 -84.7482,36.1547 -84.7486,36.1574 -84.7495,36.162 -84.7487,36.1651 -84.7485,36.1678 -84.7472,36.1719 -84.747,36.1741 -84.7457,36.1768 -84.7432,36.1813 -84.7354,36.1869 -84.7324,36.1899 -84.7299,36.1921 -84.7295,36.1989 -84.7288,36.2011 -84.727,36.2033 -84.7262,36.206 -84.722,36.2195 -84.7211,36.2245 -84.7181,36.2361 -84.718,36.2384 -84.7165,36.2434 -84.7158,36.246 -84.7132,36.25 -84.7068,36.2525 -84.7046,36.252 -84.7006,36.2514 -84.6954,36.2521 -84.6925,36.2529 -84.6879,36.2531 -84.6833,36.2539 -84.6753,36.2536 -84.6719,36.2539 -84.6672,36.2555 -84.6642,36.2572 -84.6614,36.2575 -84.6573,36.2578 -84.6482,36.2575 -84.6453,36.2583 -84.6418,36.26 -84.6389,36.2603 -84.6331,36.2614 -84.634,36.266 -84.6337,36.2701 -84.636,36.2797 -84.6347,36.2819 -84.6282,36.2858 -84.6251,36.2888 -84.6267,36.2911 -84.6265,36.2934 -84.6252,36.2965 -84.6221,36.3 -84.6164,36.3007 -84.6101,36.3 -84.6055,36.2999 -84.6014,36.3015 -84.5962,36.3027 -84.5927,36.3048 -84.5914,36.307 -84.5895,36.3101 -84.5882,36.3123 -84.588,36.315 -84.5845,36.3167 -84.5809,36.3189 -84.5763,36.3196 -84.5733,36.3208 -84.5701,36.327 -84.5688,36.3293 -84.5645,36.3332 -84.5575,36.3365 -84.554,36.3368 -84.5409,36.3363 -84.5367,36.3484 -84.5253,36.3561 -84.5009,36.362 -84.536,36.4038 -84.5627,36.4707 -84.5773,36.4935 -84.6292,36.571 -84.6459,36.5716 -84.631,36.5781 -84.5295,36.7121 -84.5237,36.7305 -84.5184,36.7316 -84.5133,36.7305 -84.5076,36.7303 -84.5042,36.7297 -84.5017,36.7327 -84.4975,36.7353 -84.4934,36.7365 -84.4887,36.7381 -84.4849,36.7425 -84.4835,36.747 -84.4827,36.7497 -84.4798,36.7509 -84.4772,36.7545 -84.4818,36.7556 -84.4816,36.7578 -84.4797,36.7605 -84.4773,36.7622 -84.4727,36.7625 -84.4704,36.7633 -84.4552,36.7658 -84.4545,36.7685 -84.4526,36.7703 -84.4452,36.77 -84.4428,36.7708 -84.4426,36.7739 -84.4436,36.7758 -84.4441,36.7781 -84.4414,36.7834 -84.4378,36.786 -84.4351,36.7913 -84.4366,36.795 -84.4381,36.7983 -84.4403,36.8006 -84.444,36.8053 -84.4438,36.8089 -84.4413,36.8111 -84.4378,36.8119 -84.4343,36.8131 -84.4346,36.8163 -84.4384,36.8205 -84.4429,36.8221 -84.4467,36.8263 -84.4454,36.8281 -84.4412,36.8302 -84.4382,36.8328 -84.4345,36.8367 -84.4349,36.839 -84.437,36.8418 -84.4374,36.8446 -84.4384,36.8469 -84.4405,36.8501 -84.4421,36.8525 -84.4449,36.8535 -84.4495,36.8528 -84.453,36.852 -84.4559,36.8521 -84.4586,36.8545 -84.4614,36.8564 -84.467,36.8589 -84.4698,36.8604 -84.4725,36.8623 -84.4776,36.8643 -84.4803,36.8663 -84.4846,36.8719 -84.4877,36.8766 -84.4908,36.8821 -84.4917,36.8867 -84.4944,36.89 -84.4965,36.8928 -84.4998,36.8952 -84.5025,36.898 -84.5064,36.9005 -84.509,36.9047 -84.5105,36.9074 -84.5121,36.9098 -84.513,36.9134 -84.515,36.9181 -84.5155,36.9203 -84.517,36.9227 -84.5186,36.9259 -84.5207,36.9292 -84.5233,36.9329 -84.5248,36.9357 -84.5264,36.938 -84.5274,36.9403 -84.5301,36.9441 -84.5328,36.9465 -84.5362,36.948 -84.5401,36.949 -84.5436,36.9483 -84.55,36.9485 -84.5558,36.9483 -84.5604,36.948 -84.5633,36.9477 -84.5669,36.9456 -84.5705,36.9439 -84.5718,36.9417 -84.5742,36.9395 -84.5826,36.9344 -84.5879,36.9328 -84.5915,36.9306 -84.5968,36.929 -84.5997,36.9278 -84.6027,36.927 -84.6062,36.9267 -84.6154,36.9257 -84.6196,36.9245 -84.6242,36.9233 -84.627,36.9248 -84.6324,36.9304 -84.6345,36.9337 -84.6361,36.9369 -84.6387,36.9402 -84.6443,36.9441 -84.6482,36.9456 -84.6516,36.9475 -84.655,36.9486 -84.6577,36.95 -84.6617,36.9515 -84.6662,36.9531 -84.6702,36.9541 -84.673,36.9552 -84.677,36.9562 -84.6809,36.9582 -84.6859,36.9602 -84.6888,36.9612 -84.6961,36.9638 -84.7179,36.975 -84.7681,37.0219 -84.7699,37.0678 -84.7659,37.0863 -84.8174,37.076 -84.9006,37.153 -84.9135,37.1685 -84.9173,37.2226 -85.0269,37.2783 -85.0271,37.2751 -85.0306,37.2744 -85.0336,37.2736 -85.0371,37.2723 -85.0395,37.2701 -85.0414,37.2679 -85.0421,37.2657 -85.0417,37.2634 -85.042,37.2584 -85.0415,37.2561 -85.0416,37.2539 -85.0412,37.2516 -85.0415,37.2466 -85.0422,37.2444 -85.0441,37.2422 -85.0448,37.2399 -85.0461,37.2372 -85.0474,37.235 -85.0503,37.2338 -85.0533,37.2321 -85.0574,37.2313 -85.0633,37.2297 -85.0685,37.2294 -85.072,37.2291 -85.0755,37.2283 -85.0814,37.2276 -85.0842,37.2277 -85.0872,37.2273 -85.0918,37.2266 -85.0988,37.2259 -85.1053,37.2248 -85.1122,37.2241 -85.1151,37.2242 -85.1209,37.224 -85.1244,37.2241 -85.1296,37.2247 -85.1314,37.2225 -85.134,37.2181 -85.1377,37.2132 -85.1384,37.211 -85.1403,37.2083 -85.1422,37.2061 -85.1451,37.2058 -85.1491,37.2064 -85.152,37.2065 -85.156,37.2075 -85.1628,37.2096 -85.1658,37.2088 -85.1693,37.2071 -85.1712,37.2044 -85.1719,37.2022 -85.1709,37.1994 -85.1693,37.1971 -85.1671,37.1947 -85.1655,37.192 -85.1663,37.1893 -85.167,37.187 -85.1694,37.1844 -85.1743,37.18 -85.1773,37.1788 -85.1809,37.1762 -85.1845,37.174 -85.1893,37.1705 -85.1935,37.168 -85.1971,37.1654 -85.1996,37.1632 -85.2037,37.1615 -85.2067,37.1598 -85.2085,37.1576 -85.2095,37.1603 -85.2111,37.1627 -85.2133,37.1655 -85.2155,37.1678 -85.2187,37.1725 -85.2236,37.1772 -85.2294,37.1778 -85.2328,37.1784 -85.2357,37.1785 -85.2392,37.1791 -85.2437,37.1806 -85.2489,37.1812 -85.2517,37.1817 -85.2546,37.1818 -85.2592,37.1825 -85.2621,37.183 -85.2614,37.1857 -85.2601,37.1879 -85.2582,37.1901 -85.2558,37.1923 -85.2522,37.1945 -85.2492,37.1962 -85.2462,37.1974 -85.2444,37.2001 -85.2454,37.2029 -85.2502,37.2098 -85.2523,37.2126 -85.2534,37.2154 -85.2561,37.2173 -85.2566,37.22 -85.2588,37.2224 -85.2604,37.2247 -85.2631,37.2284 -85.2647,37.2307 -85.2674,37.234 -85.2707,37.2368 -85.2723,37.2396 -85.2744,37.2424 -85.2772,37.2448 -85.2793,37.248 -85.2809,37.2508 -85.2831,37.254 -85.2835,37.2563 -85.2857,37.2591 -85.2879,37.2615 -85.2889,37.2642 -85.2904,37.2674 -85.2938,37.2698 -85.2948,37.2726 -85.2964,37.2749 -85.2991,37.2782 -85.3002,37.2805 -85.3012,37.2832 -85.3045,37.2865 -85.3049,37.2888 -85.3071,37.2916 -85.3081,37.2944 -85.3113,37.299 -85.3135,37.3018 -85.3162,37.3051 -85.3172,37.3074 -85.3188,37.3101 -85.3199,37.3124 -85.3215,37.3148 -85.3297,37.3232 -85.3352,37.3279 -85.3374,37.3303 -85.3419,37.3336 -85.3452,37.336 -85.348,37.3383 -85.3553,37.3422 -85.3581,37.3441 -85.361,37.3447 -85.3626,37.347 -85.3654,37.3489 -85.3694,37.3508 -85.3721,37.3532 -85.3749,37.3551 -85.3778,37.3556 -85.38,37.358 -85.3845,37.3599 -85.3873,37.3618 -85.3924,37.3652 -85.3952,37.3671 -85.3997,37.3695 -85.4025,37.3719 -85.4058,37.3742 -85.4097,37.3771 -85.4136,37.3795 -85.4193,37.3824 -85.4221,37.3848 -85.4249,37.3867 -85.427,37.3895 -85.4326,37.3933 -85.4348,37.3956 -85.437,37.3984 -85.4386,37.4007 -85.4396,37.4053 -85.4394,37.4075 -85.4416,37.4099 -85.4415,37.4121 -85.442,37.4144 -85.4419,37.4167 -85.4411,37.4194 -85.441,37.4217 -85.4403,37.4239 -85.4377,37.4288 -85.4406,37.4294 -85.444,37.4304 -85.4469,37.4318 -85.4497,37.4328 -85.4526,37.4334 -85.4555,37.433 -85.4619,37.4328 -85.4649,37.4315 -85.4678,37.4307 -85.4702,37.4303 -85.4736,37.4313 -85.4752,37.4336 -85.478,37.4355 -85.4815,37.4357 -85.4849,37.4367 -85.4884,37.4368 -85.4943,37.4342 -85.4956,37.432 -85.4952,37.4288 -85.497,37.4271 -85.4972,37.4226 -85.498,37.4198 -85.5005,37.4154 -85.5041,37.4132 -85.5065,37.411 -85.5095,37.4093 -85.5131,37.4081 -85.5149,37.4059 -85.5162,37.4036 -85.5169,37.4014 -85.5176,37.3982 -85.5183,37.396 -85.5191,37.3933 -85.518,37.3905 -85.517,37.3882 -85.5166,37.3855 -85.5167,37.3832 -85.585,37.3854 -85.6027,37.3909 -85.613,37.393 -85.7372,37.4032 -85.9027,37.412 -85.9055,37.4144 -85.9112,37.4173 -85.9134,37.4196 -85.9154,37.4251 -85.9159,37.4278 -85.9157,37.4324 -85.9144,37.4346 -85.912,37.4368 -85.9085,37.4381 -85.9066,37.4412 -85.9059,37.4434 -85.9069,37.4466 -85.9097,37.449 -85.9125,37.4509 -85.913,37.4532 -85.9117,37.4554 -85.911,37.4576 -85.9103,37.4603 -85.9108,37.4626 -85.9124,37.4649 -85.9152,37.4677 -85.9174,37.4701 -85.9202,37.472 -85.9207,37.4742 -85.9235,37.4775 -85.9257,37.4803 -85.9312,37.4859 -85.9345,37.4896 -85.9362,37.4919 -85.9378,37.4947 -85.9394,37.497 -85.9422,37.4998 -85.9438,37.503 -85.9471,37.5067 -85.9499,37.5077 -85.9504,37.5109 -85.952,37.5132 -85.9542,37.5155 -85.9559,37.5179 -85.9587,37.5202 -85.9602,37.5239 -85.9624,37.5267 -85.9641,37.529 -85.9663,37.5313 -85.9685,37.5341 -85.9701,37.5369 -85.9729,37.5387 -85.9799,37.5389 -85.9864,37.5364 -85.9888,37.5342 -85.9924,37.5325 -85.9959,37.5312 -85.9995,37.529 -86.0024,37.5287 -86.0053,37.5288 -86.0082,37.5293 -86.0111,37.5303 -86.0167,37.5341 -86.0196,37.5346 -86.026,37.5348 -86.029,37.533 -86.0319,37.5322 -86.0348,37.5318 -86.0389,37.5324 -86.0417,37.5338 -86.0446,37.5339 -86.0503,37.5368 -86.0537,37.5382 -86.0594,37.5402 -86.0629,37.5412 -86.0663,37.5427 -86.0709,37.5437 -86.0737,37.5451 -86.0772,37.5461 -86.0806,37.548 -86.084,37.549 -86.0869,37.55 -86.0897,37.5515 -86.0919,37.5542 -86.0936,37.5565 -86.0946,37.5588 -86.0945,37.5611 -86.0968,37.5634 -86.1002,37.564 -86.1043,37.5645 -86.1077,37.5646 -86.1106,37.5652 -86.1176,37.5653 -86.1223,37.565 -86.1287,37.5652 -86.0073,37.7692 -86.1052,37.8489 -86.3504,38.0175 -86.3539,38.0172 -86.3575,38.0163 -86.3604,38.0151 -86.3634,38.0147 -86.3664,38.0129 -86.3676,38.0102 -86.3703,38.0012 -86.3704,37.999 -86.3718,37.9945 -86.3731,37.9918 -86.3732,37.9895 -86.3744,37.9873 -86.3751,37.9846 -86.3752,37.9819 -86.3759,37.9796 -86.3754,37.9773 -86.3761,37.9751 -86.3777,37.9642 -86.3784,37.9611 -86.3785,37.9588 -86.378,37.9565 -86.3781,37.9534 -86.3776,37.9506 -86.3772,37.9474 -86.3767,37.9447 -86.3757,37.9411 -86.3731,37.9328 -86.371,37.9278 -86.3699,37.925 -86.3683,37.9218 -86.3672,37.9191 -86.3667,37.9168 -86.3651,37.9141 -86.3646,37.9118 -86.3642,37.9081 -86.365,37.9032 -86.3656,37.9009 -86.3675,37.8987 -86.3687,37.8965 -86.37,37.8938 -86.3724,37.8916 -86.376,37.8898 -86.379,37.889 -86.3825,37.8886 -86.3854,37.8878 -86.3884,37.8874 -86.3976,37.8885 -86.4006,37.8882 -86.4035,37.8882 -86.4069,37.8897 -86.4098,37.8902 -86.4128,37.8898 -86.4169,37.8895 -86.4203,37.8904 -86.4261,37.8915 -86.4291,37.8916 -86.4331,37.8912 -86.4361,37.8899 -86.4391,37.8891 -86.4426,37.8883 -86.4456,37.887 -86.4462,37.8847 -86.4487,37.8825 -86.4511,37.8794 -86.4518,37.8771 -86.4519,37.874 -86.4528,37.8658 -86.4531,37.8599 -86.4538,37.8559 -86.4533,37.8527 -86.4541,37.8491 -86.4542,37.8464 -86.4549,37.8437 -86.455,37.8405 -86.4557,37.8378 -86.4564,37.8346 -86.4571,37.8319 -86.4596,37.8274 -86.462,37.8239 -86.4656,37.8217 -86.4727,37.8191 -86.4763,37.8169 -86.4793,37.8161 -86.4852,37.8135 -86.4893,37.8127 -86.4928,37.8119 -86.4958,37.8115 -86.5028,37.8108 -86.5057,37.8108 -86.5098,37.8114 -86.5132,37.8133 -86.5143,37.8151 -86.516,37.8174 -86.5181,37.822 -86.5179,37.8265 -86.5167,37.8288 -86.516,37.831 -86.5153,37.8337 -86.5147,37.836 -86.514,37.8387 -86.5133,37.8409 -86.512,37.8432 -86.512,37.8454 -86.5107,37.8477 -86.5106,37.8504 -86.5093,37.8531 -86.5086,37.8562 -86.5084,37.8617 -86.5089,37.864 -86.5076,37.8685 -86.508,37.8712 -86.5109,37.874 -86.5131,37.8763 -86.5159,37.8791 -86.5188,37.8792 -86.5218,37.8788 -86.5252,37.8793 -86.5287,37.8794 -86.5323,37.8786 -86.5364,37.8777 -86.54,37.8756 -86.5429,37.8747 -86.5465,37.8734 -86.5494,37.8731 -86.553,37.8713 -86.556,37.8691 -86.559,37.8674 -86.5631,37.8661 -86.5661,37.8648 -86.5732,37.8614 -86.5761,37.8605 -86.5802,37.8602 -86.589,37.8604 -86.5919,37.8609 -86.5948,37.8618 -86.5982,37.8633 -86.6011,37.8643 -86.6033,37.8666 -86.6062,37.8689 -86.6106,37.8744 -86.6128,37.8781 -86.6151,37.8804 -86.6173,37.8837 -86.6194,37.8901 -86.6216,37.8928 -86.6233,37.8956 -86.6271,37.9011 -86.6276,37.9038 -86.6304,37.9075 -86.6337,37.9135 -86.6354,37.9163 -86.637,37.9186 -86.6381,37.9213 -86.6403,37.9245 -86.642,37.9273 -86.6442,37.9296 -86.6453,37.9323 -86.6464,37.9346 -86.6463,37.9369 -86.6479,37.9397 -86.649,37.9424 -86.6501,37.9447 -86.6535,37.9475 -86.6551,37.9498 -86.658,37.9517 -86.6637,37.955 -86.6672,37.9569 -86.6706,37.9578 -86.6736,37.9575 -86.6717,37.961 -86.6698,37.9642 -86.668,37.9664 -86.665,37.9686 -86.6631,37.9708 -86.659,37.9721 -86.656,37.9738 -86.6537,37.9742 -86.6495,37.9751 -86.6425,37.9758 -86.6396,37.9753 -86.6362,37.973 -86.6321,37.972 -86.6293,37.9701 -86.6263,37.9705 -86.6239,37.9727 -86.6227,37.9749 -86.622,37.9772 -86.6225,37.9795 -86.6224,37.9817 -86.6246,37.9868 -86.6257,37.989 -86.6273,37.9918 -86.6272,37.9941 -86.6277,37.9963 -86.627,37.9991 -86.6266,38.0104 -86.6259,38.014 -86.6252,38.0162 -86.6257,38.0199 -86.6256,38.0226 -86.6261,38.0253 -86.6265,38.0285 -86.6264,38.0312 -86.6269,38.034 -86.6274,38.0362 -86.6285,38.0385 -86.629,38.0413 -86.6306,38.0445 -86.6311,38.0472 -86.6316,38.0495 -86.6304,38.0517 -86.6285,38.054 -86.6278,38.0589 -86.6271,38.0616 -86.6264,38.0639 -86.6274,38.0684 -86.6308,38.073 -86.6336,38.074 -86.6371,38.075 -86.6412,38.0746 -86.6465,38.0752 -86.6499,38.0771 -86.6527,38.0794 -86.6538,38.0817 -86.6555,38.0845 -86.6553,38.0904 -86.6558,38.0931 -86.6574,38.0963 -86.6602,38.0986 -86.6619,38.1014 -86.6618,38.1037 -86.6611,38.1082 -86.661,38.1104 -86.6603,38.1136 -86.6596,38.1163 -86.6607,38.119 -86.6612,38.1218 -86.6617,38.1241 -86.6621,38.1268 -86.6615,38.1295 -86.6608,38.1317 -86.6578,38.1339 -86.6489,38.1378 -86.6452,38.1423 -86.6445,38.1445 -86.6455,38.15 -86.6454,38.1527 -86.6459,38.155 -86.6458,38.1577 -86.6463,38.1604 -86.6474,38.1627 -86.6466,38.1677 -86.8727,38.1688 -86.9266,38.1695 -86.9274,38.198 -87.1506,38.2009 -87.1508,38.2122 -87.169,38.2121 -87.1663,38.344 -87.1914,38.3476 -87.1966,38.3495 -87.2019,38.3482 -87.2085,38.3461 -87.215,38.3448 -87.2208,38.3467 -87.2254,38.3486 -87.2319,38.3478 -87.2361,38.3456 -87.2419,38.3466 -87.2478,38.3472 -87.2513,38.3459 -87.2614,38.3447 -87.2654,38.3452 -87.2668,38.4006 -87.3067,38.4026 -87.3076,38.4325 -87.3241,38.4328 -87.327,38.4981 -87.3294,38.4963 -87.3324,38.4937 -87.3337,38.4914 -87.3361,38.4892 -87.339,38.4879 -87.3446,38.4798 -87.3453,38.4735 -87.346,38.4712 -87.3467,38.4676 -87.3473,38.4654 -87.348,38.4627 -87.3516,38.4604 -87.3568,38.461 -87.3603,38.4628 -87.3632,38.4633 -87.3655,38.4666 -87.369,38.4662 -87.372,38.4649 -87.375,38.464 -87.3808,38.4668 -87.3813,38.47 -87.3824,38.4727 -87.3847,38.4759 -87.3882,38.4769 -87.3911,38.4769 -87.3947,38.4761 -87.3971,38.4739 -87.3989,38.4707 -87.399,38.4662 -87.3986,38.4607 -87.3993,38.458 -87.4011,38.4535 -87.4036,38.4508 -87.4095,38.4491 -87.4124,38.451 -87.4176,38.4551 -87.421,38.4575 -87.4239,38.4598 -87.4268,38.4607 -87.4298,38.4608 -87.4327,38.4599 -87.4352,38.4572 -87.437,38.4527 -87.4377,38.45 -87.4389,38.4469 -87.4396,38.4437 -87.4415,38.4406 -87.4427,38.4379 -87.4452,38.4334 -87.447,38.4302 -87.4507,38.4253 -87.4531,38.4231 -87.4603,38.4186 -87.4632,38.4169 -87.4662,38.4156 -87.4698,38.4147 -87.4727,38.4138 -87.4763,38.4134 -87.481,38.4135 -87.488,38.4145 -87.4909,38.4159 -87.4944,38.4169 -87.5002,38.4197 -87.506,38.4207 -87.5143,38.4208 -87.5184,38.4204 -87.5214,38.4196 -87.5244,38.4173 -87.5262,38.4151 -87.5274,38.4124 -87.5275,38.4101 -87.5258,38.4078 -87.5252,38.4051 -87.5247,38.4019 -87.5289,38.3988 -87.536,38.3989 -87.5419,38.3981 -87.5466,38.3968 -87.5496,38.3959 -87.5526,38.3937 -87.5555,38.392 -87.5585,38.3902 -87.5615,38.3889 -87.5645,38.3871 -87.5686,38.3858 -87.5716,38.384 -87.5769,38.3827 -87.5834,38.3828 -87.5863,38.3833 -87.5904,38.3843 -87.595,38.3857 -87.5938,38.388 -87.592,38.3902 -87.5869,38.4083 -87.5862,38.4114 -87.5879,38.4137 -87.5908,38.416 -87.5943,38.4179 -87.5972,38.4188 -87.6001,38.4207 -87.603,38.423 -87.6059,38.423 -87.6046,38.4276 -87.6046,38.4298 -87.6033,38.4321 -87.5998,38.4334 -87.5956,38.4347 -87.5921,38.4355 -87.5862,38.4373 -87.5826,38.4377 -87.5791,38.4385 -87.5749,38.4403 -87.5708,38.4416 -87.5672,38.4429 -87.5613,38.4446 -87.5572,38.445 -87.5536,38.4459 -87.5507,38.4467 -87.5465,38.4471 -87.5436,38.4475 -87.5401,38.4475 -87.5382,38.4497 -87.5376,38.4524 -87.5351,38.4569 -87.5333,38.4605 -87.532,38.4632 -87.5314,38.4655 -87.5296,38.4677 -87.5272,38.47 -87.5242,38.4708 -87.5212,38.4712 -87.5183,38.4707 -87.5154,38.4698 -87.5125,38.4675 -87.5102,38.4652 -87.5073,38.4638 -87.5044,38.4642 -87.5008,38.4664 -87.4995,38.4686 -87.4988,38.4736 -87.4982,38.4763 -87.4981,38.479 -87.4986,38.4813 -87.5003,38.4841 -87.5026,38.4873 -87.5055,38.49 -87.5112,38.4965 -87.514,38.5015 -87.5174,38.5061 -87.5185,38.5088 -87.5191,38.5111 -87.5202,38.5134 -87.5201,38.5156 -87.5195,38.5179 -87.5177,38.5201 -87.5147,38.5224 -87.5123,38.5246 -87.5116,38.5278 -87.5074,38.5304 -87.505,38.5331 -87.5013,38.5376 -87.5001,38.5412 -87.4988,38.5434 -87.4964,38.5457 -87.494,38.5483 -87.4922,38.5506 -87.4909,38.5528 -87.4903,38.5551 -87.4878,38.5591 -87.4843,38.56 -87.4813,38.5608 -87.4784,38.5608 -87.4748,38.5612 -87.4719,38.5616 -87.4689,38.5629 -87.4671,38.5652 -87.467,38.5674 -87.4693,38.5711 -87.4715,38.5757 -87.4732,38.5789 -87.4748,38.5843 -87.4759,38.5889 -87.4752,38.5911 -87.4746,38.5943 -87.4745,38.5966 -87.4738,38.6015 -87.4731,38.6042 -87.4725,38.6065 -87.4724,38.6088 -87.47,38.611 -87.467,38.6137 -87.4646,38.6159 -87.4633,38.6186 -87.4586,38.6208 -87.4556,38.6221 -87.4526,38.6225 -87.4508,38.6247 -87.4495,38.6284 -87.4477,38.6306 -87.4447,38.6324 -87.4417,38.6346 -87.4387,38.6359 -87.4357,38.6381 -87.4286,38.6407 -87.4256,38.6425 -87.4226,38.6434 -87.4185,38.6446 -87.4155,38.6451 -87.4108,38.6454 -87.4078,38.6463 -87.4048,38.6467 -87.4019,38.6476 -87.3983,38.6493 -87.3911,38.6519 -87.3881,38.6546 -87.3857,38.6573 -87.3784,38.6649 -87.3754,38.6666 -87.3742,38.6693 -87.3723,38.672 -87.3717,38.6747 -87.3704,38.677 -87.3692,38.6797 -87.3679,38.6819 -87.3661,38.6842 -87.3654,38.6869 -87.363,38.69 -87.3611,38.6927 -87.3599,38.6954 -87.358,38.6981 -87.3556,38.7026 -87.3549,38.7048 -87.3548,38.7098 -87.3559,38.7121 -87.3576,38.7144 -87.3581,38.7176 -87.3586,38.7203 -87.3586,38.7226 -87.3579,38.7248 -87.3572,38.728 -87.356,38.7312 -87.3553,38.7334 -87.3552,38.7357 -87.357,38.738 -87.3599,38.7389 -87.3634,38.7408 -87.3663,38.7426 -87.365,38.7453 -87.3644,38.7476 -87.3584,38.7502 -87.3554,38.7511 -87.3548,38.7533 -87.3541,38.7565 -87.3546,38.7592 -87.3551,38.7615 -87.3586,38.7647 -87.3644,38.7694 -87.3666,38.7726 -87.3689,38.7753 -87.37,38.7785 -87.3717,38.7808 -87.3729,38.7831 -87.3775,38.7877 -87.3792,38.7905 -87.3803,38.7927 -87.3801,38.7986 -87.3812,38.8018 -87.3817,38.805 -87.3822,38.8073 -87.3834,38.8096 -87.3851,38.8119 -87.3867,38.816 -87.3884,38.8192 -87.3914,38.8201 -87.3948,38.8233 -87.3983,38.8243 -87.4,38.8266 -87.4029,38.8289 -87.4052,38.8312 -87.4064,38.8335 -87.4063,38.8358 -87.4051,38.8385 -87.4038,38.8407 -87.4025,38.8452 -87.4007,38.8475 -87.3982,38.8497 -87.3952,38.8519 -87.394,38.8546 -87.3939,38.8569 -87.3927,38.8591 -87.392,38.8614 -87.3914,38.8641 -87.3901,38.8663 -87.3883,38.869 -87.3858,38.8713 -87.3846,38.8735 -87.3845,38.8762 -87.385,38.879 -87.3867,38.8817 -87.3873,38.884 -87.3866,38.8862 -87.3866,38.8885 -87.3824,38.8907 -87.3799,38.8929 -87.3787,38.8956 -87.3774,38.8979 -87.3773,38.9019 -87.3784,38.9042 -87.379,38.9065 -87.3786,38.9201 -87.378,38.9224 -87.3791,38.9251 -87.3802,38.9274 -87.3807,38.9297 -87.3824,38.9319 -87.3853,38.9343 -87.387,38.9366 -87.39,38.9384 -87.3929,38.9407 -87.3952,38.943 -87.3987,38.944 -87.4046,38.9459 -87.4081,38.9473 -87.4116,38.9483 -87.4145,38.9488 -87.4181,38.9488 -87.421,38.9502 -87.4239,38.9512 -87.4269,38.9526 -87.4298,38.9545 -87.4333,38.9559 -87.4362,38.9573 -87.4391,38.96 -87.4361,38.9609 -87.4332,38.9608 -87.429,38.9617 -87.4289,38.964 -87.4301,38.9662 -87.4318,38.9685 -87.4311,38.9708 -87.4304,38.9753 -87.4298,38.9776 -87.4297,38.9798 -87.4302,38.9821 -87.4301,38.9875 -87.4294,38.9903 -87.43,38.993 -87.4299,38.9953 -87.431,38.998 -87.4333,39.0003 -87.4356,39.0035 -87.4344,39.0057 -87.4353,39.0139 -87.434,39.0193 -87.432,39.0261 -87.4326,39.0284 -87.4355,39.0307 -87.4396,39.0335 -87.4413,39.0358 -87.4442,39.0385 -87.4488,39.0409 -87.4517,39.0436 -87.454,39.0464 -87.4563,39.0487 -87.4593,39.0506 -87.4622,39.0511 -87.4651,39.052 -87.4722,39.053 -87.4752,39.0535 -87.4781,39.0549 -87.4798,39.0581 -87.4797,39.0631 -87.4784,39.0676 -87.4789,39.0699 -87.4819,39.0708 -87.4854,39.0718 -87.4883,39.0728 -87.4919,39.0733 -87.4948,39.0738 -87.4984,39.0734 -87.5013,39.0743 -87.5055,39.0757 -87.5084,39.0771 -87.5095,39.0794 -87.51,39.0821 -87.5106,39.0844 -87.5105,39.0867 -87.5093,39.0889 -87.5092,39.0917 -87.5074,39.0939 -87.5067,39.0966 -87.5078,39.0993 -87.5101,39.103 -87.5136,39.1044 -87.5159,39.1081 -87.5176,39.1104 -87.5176,39.1126 -87.5157,39.1149 -87.5145,39.1171 -87.5138,39.1194 -87.5102,39.1239 -87.5077,39.1261 -87.5041,39.1274 -87.5005,39.1292 -87.4975,39.1305 -87.4915,39.1345 -87.4874,39.1339 -87.486,39.1389 -87.4836,39.1434 -87.4811,39.1456 -87.4781,39.1474 -87.4751,39.1501 -87.4709,39.1514 -87.4649,39.1531 -87.4613,39.1544 -87.4589,39.1566 -87.4576,39.1589 -87.4552,39.162 -87.4504,39.1629 -87.4474,39.1628 -87.4444,39.1632 -87.4415,39.1641 -87.4396,39.1668 -87.4383,39.1699 -87.4358,39.1744 -87.4352,39.1776 -87.4345,39.1798 -87.4332,39.183 -87.432,39.1857 -87.4313,39.1884 -87.4312,39.1934 -87.4317,39.1957 -87.4334,39.1984 -87.4333,39.2016 -87.432,39.2061 -87.4318,39.2147 -87.4329,39.217 -87.4371,39.2184 -87.44,39.2185 -87.443,39.219 -87.4466,39.2186 -87.4501,39.2204 -87.453,39.2214 -87.4541,39.2241 -87.4565,39.226 -87.4576,39.2292 -87.4604,39.2351 -87.4602,39.2419 -87.463,39.2474 -87.4623,39.2533 -87.4616,39.256 -87.4586,39.26 -87.4579,39.2636 -87.4661,39.2683 -87.4702,39.2692 -87.4731,39.2711 -87.4725,39.2734 -87.4676,39.2765 -87.464,39.2782 -87.4598,39.2818 -87.4561,39.2858 -87.4512,39.2907 -87.4481,39.2975 -87.4468,39.3011 -87.4449,39.3042 -87.4383,39.3068 -87.4329,39.3077 -87.4252,39.3084 -87.4192,39.3079 -87.4127,39.3078 -87.4078,39.3118 -87.4048,39.3145 -87.3994,39.3171 -87.3875,39.3165 -87.3858,39.4434 -87.3828,39.5753 -87.383,39.8533 -87.3826,40.1321 -87.3829,40.4492 -87.3844,40.4606 -87.3799,40.7114 -87.113,40.7097 -86.9492,40.7103 -86.9506,40.8106 -86.8333,40.8129 -86.8338,40.8842 -86.7784,40.8844 -86.7801,41.1404 -86.7826,41.2058 -86.7795,41.2085 -86.7764,41.2098 -86.7732,41.212 -86.7701,41.2133 -86.767,41.216 -86.7632,41.2182 -86.7601,41.2204 -86.757,41.2221 -86.7539,41.223 -86.7501,41.2247 -86.747,41.226 -86.7439,41.2268 -86.7396,41.229 -86.7309,41.232 -86.7272,41.2324 -86.7162,41.234 -86.71,41.2348 -86.7063,41.2356 -86.7033,41.236 -86.6989,41.2368 -86.6952,41.2377 -86.6891,41.2389 -86.686,41.2406 -86.6829,41.241 -86.6798,41.2419 -86.6682,41.2416 -86.6639,41.2424 -86.6602,41.2424 -86.6571,41.2441 -86.6534,41.2449 -86.6509,41.2476 -86.6433,41.2529 -86.6396,41.2546 -86.6358,41.2568 -86.6309,41.2585 -86.6271,41.2616 -86.6233,41.2638 -86.6164,41.2682 -86.6139,41.2704 -86.6107,41.2731 -86.607,41.2757 -86.605,41.2784 -86.6025,41.2802 -86.5999,41.2833 -86.5948,41.2887 -86.5929,41.2909 -86.5891,41.2949 -86.5858,41.3016 -86.5838,41.3052 -86.5824,41.3084 -86.5817,41.3106 -86.5804,41.3133 -86.5778,41.3164 -86.577,41.3214 -86.5763,41.3237 -86.5749,41.3277 -86.5736,41.3304 -86.5723,41.3327 -86.5697,41.3353 -86.5684,41.3376 -86.5659,41.3402 -86.5646,41.3425 -86.5632,41.3452 -86.5606,41.3497 -86.5586,41.3528 -86.5573,41.3559 -86.556,41.3586 -86.554,41.3609 -86.5521,41.3635 -86.5496,41.3658 -86.5452,41.3679 -86.5426,41.3701 -86.5395,41.3719 -86.5357,41.3741 -86.532,41.3758 -86.5282,41.3785 -86.5239,41.3802 -86.5201,41.3828 -86.5175,41.385 -86.5144,41.3868 -86.5112,41.3894 -86.5043,41.3943 -86.5024,41.397 -86.5004,41.3987 -86.4979,41.4014 -86.4948,41.4031 -86.4911,41.4035 -86.488,41.4039 -86.4849,41.4038 -86.4781,41.4046 -86.4714,41.4044 -86.4683,41.4048 -86.4634,41.4052 -86.4365,41.4046 -86.4322,41.404 -86.426,41.4048 -86.4052,41.4043 -86.4015,41.4047 -86.3984,41.4055 -86.385,41.4057 -86.3788,41.4055 -86.3764,41.4059 -86.3776,41.4918 -86.3531,41.4921 -86.3538,41.5048 -86.347,41.5047 -86.3473,41.5278 -86.3458,41.5328 -86.333,41.5466 -86.3332,41.6256 -86.3725,41.627 -86.3724,41.7281 -86.676,41.7289 -86.6932,41.7239 -86.6991,41.7222 -86.7122,41.7166 -86.726,41.7101 -86.7366,41.7066 -86.7435,41.7027 -86.7517,41.6974 -86.7618,41.6903 -86.7711,41.6874 -86.7823,41.6839 -86.7897,41.6824 -86.7923,41.6819 -86.8073,41.6754 -86.8235,41.6693 -86.8391,41.6628 -86.8535,41.6563 -86.8721,41.6498 -86.8834,41.6455 -86.8939,41.6421 -86.9077,41.6355 -86.9257,41.6291 -86.9407,41.6239 -86.9581,41.6183 -86.9767,41.6137 -86.9903,41.6094 -87.0077,41.606 -87.0262,41.6027 -87.0441,41.599 -87.0547,41.5969 -87.067,41.5949 -87.0811,41.5921 -87.0862,41.5911 -87.0979,41.5895 -87.1127,41.5884 -87.1268,41.5882 -87.144,41.5889 -87.1575,41.5896 -87.1722,41.5903 -87.1857,41.5919 -87.201,41.5944 -87.2186,41.5997 -87.2249,41.5948 -87.242,41.6001 -87.259,41.6058 -87.2576,41.6113 -87.2643,41.6127 -87.2693,41.6105 -87.2892,41.624 -87.2665,41.6423 -87.2775,41.6461 -87.2924,41.6386 -87.2901,41.6354 -87.2932,41.6332 -87.3028,41.6406 -87.3109,41.6375 -87.3428,41.6603 -87.3585,41.6714 -87.3706,41.6789 -87.3774,41.6836 -87.3765,41.6871 -87.3774,41.6907 -87.3782,41.694 -87.3792,41.7004 -87.3799,41.7042 -87.3815,41.7086 -87.3851,41.71 -87.3895,41.714 -87.3913,41.7156 -87.3935,41.7174 -87.395,41.7218 -87.3958,41.7251 -87.4007,41.7252 -87.4044,41.7257 -87.4091,41.7317 -87.4115,41.734 -87.4147,41.737 -87.4187,41.7409 -87.423,41.749 -87.4247,41.7522 -87.4282,41.7565 -87.4295,41.7633 -87.4291,41.7674 -87.4333,41.772 -87.438,41.778 -87.445,41.7882 -87.4462,41.79 -87.4523,41.7964 -87.46,41.8087 -87.4647,41.817 -87.4633,41.8229 -87.4625,41.8306 -87.4646,41.8438 -87.4644,41.851 -87.4594,41.8537 -87.4624,41.8583 -87.4648,41.861 -87.4698,41.8658 -87.4756,41.8698 -87.4798,41.8744 -87.4772,41.8794 -87.4796,41.8835 -87.4813,41.8867 -87.4837,41.8913 -87.4854,41.8968 -87.4864,41.9031 -87.4888,41.9086 -87.4912,41.9118 -87.4928,41.9196 -87.4884,41.9218 -87.4865,41.9249 -87.487,41.9281 -87.4907,41.9309 -87.4929,41.9327 -87.4953,41.9346 -87.4959,41.9366 -87.5009,41.9401 -87.5044,41.9439 -87.5043,41.9515 -87.5048,41.9547 -87.5041,41.9597 -87.5057,41.9647 -87.5062,41.9725 -87.5097,41.9745 -87.5103,41.9825 -87.5132,41.9903 -87.5131,41.9926 -87.513,41.9962 -87.5141,42.0035 -87.5175,42.014 -87.5179,42.0208 -87.5178,42.0258 -87.5208,42.0308 -87.5262,42.0354 -87.5292,42.0391 -87.5297,42.0423 -87.5395,42.0461 -87.5487,42.0512 -87.5529,42.0558 -87.5626,42.0623 -87.5698,42.0697 -87.5759,42.0756 -87.5812,42.0834 -87.5872,42.0926 -87.5944,42.1022 -87.6016,42.1123 -87.6075,42.1224 -87.6135,42.1316 -87.6182,42.1407 -87.6237,42.144 -87.6279,42.1468 -87.6346,42.1537 -87.6382,42.1583 -87.6411,42.1642 -87.6478,42.172 -87.6525,42.1789 -87.6567,42.1848 -87.6597,42.1908 -87.6602,42.1967 -87.6631,42.2022 -87.6643,42.2049 -87.6678,42.2132 -87.6701,42.2218 -87.6718,42.2282 -87.6729,42.2346 -87.6752,42.2419 -87.6787,42.2506 -87.6785,42.2583 -87.679,42.2646 -87.6807,42.271 -87.6824,42.276 -87.6842,42.2802 -87.6822,42.2856 -87.6809,42.2878 -87.6777,42.2923 -87.6764,42.2969 -87.6768,42.3028 -87.6786,42.3078 -87.6783,42.3192 -87.6739,42.3214 -87.6714,42.3232 -87.6694,42.3259 -87.6663,42.329 -87.663,42.3344 -87.661,42.3398 -87.6597,42.3457 -87.657,42.353 -87.655,42.3593 -87.6542,42.367 -87.6547,42.3716 -87.6557,42.3793 -87.6575,42.3834 -87.6536,42.3893 -87.6516,42.3952 -87.6509,42.3988 -87.6508,42.4047 -87.6499,42.4133 -87.6479,42.4215 -87.6463,42.4328 -87.6449,42.4419 -87.6443,42.45 -87.6439,42.4545 -87.6427,42.4567 -87.6426,42.4608 -87.643,42.4658 -87.6454,42.4731 -87.6488,42.485 -87.6517,42.4946 -87.654,42.5028 -87.6531,42.5128 -87.6503,42.5259 -87.6495,42.5341 -87.6493,42.5423 -87.6491,42.5477 -87.6521,42.5532 -87.6526,42.5569 -87.6538,42.561 -87.6543,42.566 -87.6554,42.5719 -87.6547,42.5764 -87.6545,42.5828 -87.6531,42.5878 -87.6504,42.5959 -87.647,42.6086 -87.6424,42.6185 -87.6391,42.6271 -87.6377,42.6344 -87.6349,42.643 -87.6323,42.6484 -87.6271,42.6556 -87.6239,42.6628 -87.6212,42.6683 -87.6198,42.6746 -87.6184,42.6828 -87.6182,42.6882 -87.6188,42.6919 -87.6198,42.6996 -87.6209,42.7074 -87.6207,42.7124 -87.6174,42.7205 -87.6116,42.7277 -87.607,42.7363 -87.6037,42.7435 -87.6049,42.7467 -87.6073,42.7513 -87.6141,42.7541 -87.6252,42.7588 -87.6338,42.7639 -87.6418,42.7695 -87.6491,42.7778 -87.6551,42.7865 -87.6611,42.797 -87.6659,42.8057 -87.6672,42.8082 -87.6695,42.8126 -87.6738,42.8176 -87.6774,42.8231 -87.6804,42.8259 -87.684,42.8323 -87.6851,42.8387 -87.6874,42.8469 -87.6877,42.8615 -87.687,42.8655 -87.6863,42.8687 -87.6856,42.8728 -87.6854,42.8787 -87.6859,42.8833 -87.6871,42.8883 -87.6882,42.8947 -87.6874,42.901 -87.6841,42.906 -87.6833,42.9128 -87.6826,42.9169 -87.6831,42.9237 -87.6835,42.9305 -87.6866,42.9351 -87.6889,42.9406 -87.6932,42.9443 -87.6994,42.948 -87.7062,42.9527 -87.7111,42.9549 -87.7142,42.9564 -87.7189,42.9629 -87.7234,42.9656 -87.7265,42.9699 -87.7288,42.9757 -87.7318,42.9821 -87.7349,42.9858 -87.7373,42.9881 -87.7391,42.9917 -87.7396,42.9981 -87.7376,43.0013 -87.7337,43.0071 -87.726,43.0161 -87.7157,43.0251 -87.71,43.0318 -87.7092,43.0359 -87.7085,43.0418 -87.709,43.0464 -87.7094,43.0488 -87.7101,43.0523 -87.7131,43.0578 -87.7174,43.0624 -87.7217,43.0666 -87.7235,43.0702 -87.7246,43.0752 -87.7276,43.0798 -87.7301,43.083 -87.7338,43.0858 -87.7375,43.089 -87.7399,43.0932 -87.7398,43.0968 -87.7391,43.1013 -87.7358,43.1068 -87.7326,43.1108 -87.7274,43.1167 -87.7248,43.1221 -87.7234,43.1271 -87.7233,43.1312 -87.7238,43.1371 -87.7237,43.1421 -87.7254,43.1485 -87.7278,43.1535 -87.7315,43.1568 -87.7345,43.16 -87.737,43.1627 -87.7369,43.1659 -87.7375,43.1691 -87.7359,43.1731 -87.7379,43.1773 -87.7385,43.18 -87.7403,43.1842 -87.7433,43.1892 -87.745,43.1947 -87.7468,43.1993 -87.748,43.2038 -87.7478,43.2093 -87.7483,43.2166 -87.7481,43.2243 -87.7473,43.2325 -87.7459,43.2402 -87.7425,43.2483 -87.7399,43.2538 -87.7379,43.2597 -87.7359,43.2651 -87.7311,43.2727 -87.7302,43.2896 -87.7268,43.3009 -87.7253,43.3118 -87.7225,43.3245 -87.7184,43.3381 -87.7157,43.3431 -87.7092,43.354 -87.7027,43.3612 -87.695,43.3688 -87.6852,43.3805 -87.6723,43.394 -87.6625,43.4084 -87.6501,43.4247 -87.6427,43.4428 -87.6385,43.4596 -87.6357,43.4714 -87.6339,43.4914 -87.633,43.5046 -87.6332,43.5124 -87.6333,43.5164 -87.6337,43.5255 -87.6276,43.5427 -87.6236,43.5504 -87.619,43.5576 -87.6112,43.5653 -87.6027,43.5761 -87.5923,43.5869 -87.5767,43.6035 -87.5676,43.6134 -87.5578,43.6247 -87.5552,43.6301 -87.5499,43.6391 -87.549,43.6464 -87.5474,43.66 -87.5482,43.6778 -87.5479,43.6906 -87.5494,43.7042 -87.5467,43.7115 -87.5453,43.7169 -87.5439,43.7233 -87.5418,43.7292 -87.5411,43.7324 -87.5428,43.7379 -87.5447,43.7402 -87.5484,43.7434 -87.5582,43.7545 -87.563,43.7668 -87.5672,43.7751 -87.5743,43.7957 -87.5725,43.8139 -87.5698,43.822 -87.5702,43.8298 -87.5707,43.8343 -87.5737,43.8417 -87.5761,43.8485 -87.5746,43.8563 -87.5733,43.8597 -87.5712,43.8653 -87.5672,43.873 -87.5631,43.8834 -87.5615,43.898 -87.56,43.9048 -87.5593,43.9075 -87.5561,43.9098 -87.5436,43.9246 -87.5402,43.9341 -87.538,43.9446 -87.5345,43.9555 -87.5303,43.9695 -87.5242,43.9868 -87.5195,43.9954 -87.5148,44.0035 -87.5115,44.0089 -87.5062,44.0148 -87.5016,44.022 -87.4995,44.0274 -87.5006,44.0352 -87.4985,44.0402 -87.4964,44.047 -87.4969,44.0534 -87.4935,44.0602 -87.4915,44.0638 -87.4793,44.07 -87.4741,44.074 -87.4662,44.0808 -87.4617,44.083 -87.4521,44.0865 -87.4424,44.0895 -87.4309,44.093 -87.4167,44.0969 -87.4057,44.1027 -87.3947,44.1089 -87.3875,44.1152 -87.3816,44.1215 -87.3744,44.1291 -87.3697,44.1363 -87.3645,44.1417 -87.3603,44.154 -87.3575,44.1603 -87.3566,44.1708 -87.357,44.1799 -87.3574,44.1858 -87.3603,44.1964 -87.362,44.2041 -87.3649,44.2137 -87.3678,44.2224 -87.3714,44.2307 -87.3769,44.2408 -87.3817,44.25 -87.3847,44.2569 -87.3877,44.266 -87.3881,44.2743 -87.3879,44.2806 -87.3857,44.2893 -87.3846,44.2938 -87.3835,44.2984 -87.3789,44.3047 -87.3754,44.3142 -87.3719,44.3233 -87.3692,44.3282 -87.3677,44.3378 -87.3648,44.3478 -87.3639,44.3578 -87.3624,44.3637 -87.3615,44.3742 -87.3599,44.3846 -87.3559,44.3919 -87.3512,44.3987 -87.3484,44.405 -87.3469,44.4132 -87.3468,44.4182 -87.3383,44.4441 -87.3262,44.4626 -87.3257,44.4817 -87.3248,44.4908 -87.3206,44.4999 -87.3159,44.5094 -87.3092,44.5175 -87.3052,44.5238 -87.2984,44.5365 -87.2935,44.5483 -87.2895,44.556 -87.2872,44.566 -87.2845,44.5714 -87.2819,44.5741 -87.276,44.5781 -87.2708,44.5799 -87.2655,44.5848 -87.2589,44.5916 -87.2517,44.596 -87.2431,44.6027 -87.2371,44.6113 -87.2264,44.6248 -87.2202,44.6429 -87.2186,44.6475 -87.2145,44.6547 -87.2064,44.6617 -87.1999,44.6686 -87.1945,44.6781 -87.1917,44.6849 -87.1912,44.6953 -87.1883,44.7017 -87.186,44.7066 -87.1795,44.7151 -87.1767,44.7187 -87.1739,44.7242 -87.1691,44.7279 -87.1657,44.7338 -87.1649,44.7388 -87.1651,44.7418 -87.1645,44.7498 -87.1638,44.7534 -87.1611,44.7579 -87.1616,44.7607 -87.1641,44.7625 -87.1679,44.7644 -87.1743,44.7664 -87.1819,44.7706 -87.1953,44.7749 -87.2029,44.7773 -87.2125,44.7802 -87.2225,44.7877 -87.2275,44.7919 -87.2331,44.7983 -87.24,44.8044 -87.245,44.8104 -87.2506,44.8155 -87.2562,44.8224 -87.2605,44.828 -87.268,44.8363 -87.2699,44.8391 -87.2743,44.841 -87.2775,44.841 -87.2814,44.8411 -87.2846,44.8407 -87.2904,44.8412 -87.2851,44.8475 -87.2818,44.8489 -87.2721,44.8487 -87.2676,44.8505 -87.2668,44.8541 -87.2687,44.855 -87.2726,44.856 -87.2751,44.8561 -87.2777,44.8565 -87.2809,44.8571 -87.2841,44.8562 -87.2881,44.8549 -87.2913,44.854 -87.3005,44.8473 -87.3058,44.8424 -87.3124,44.8365 -87.3177,44.8334 -87.3235,44.8317 -87.3261,44.8317 -87.3281,44.8308 -87.3314,44.8286 -87.3327,44.8259 -87.3329,44.8213 -87.3349,44.8163 -87.3369,44.815 -87.3389,44.8141 -87.3407,44.816 -87.3426,44.8174 -87.3445,44.8206 -87.3463,44.8234 -87.3488,44.8257 -87.3513,44.8275 -87.3597,44.8295 -87.3616,44.8281 -87.3637,44.8241 -87.3625,44.8199 -87.3613,44.8181 -87.3633,44.8158 -87.3672,44.8154 -87.3729,44.8164 -87.3755,44.8174 -87.378,44.8179 -87.3794,44.8156 -87.3854,44.8075 -87.3862,44.8029 -87.3896,44.7966 -87.3929,44.7921 -87.3956,44.7903 -87.4001,44.789 -87.402,44.7904 -87.4032,44.7932 -87.4018,44.7959 -87.4044,44.7955 -87.4077,44.7946 -87.4109,44.7928 -87.4148,44.7933 -87.4147,44.7956 -87.4146,44.7983 -87.412,44.802 -87.4087,44.8037 -87.4035,44.8064 -87.3936,44.814 -87.3955,44.8163 -87.3999,44.8173 -87.4051,44.8169 -87.4077,44.8165 -87.4174,44.8157 -87.429,44.8141 -87.4348,44.8123 -87.4394,44.8092 -87.4447,44.8056 -87.4531,44.8035 -87.4616,44.799 -87.4669,44.7945 -87.4788,44.7828 -87.4874,44.7743 -87.4947,44.7671 -87.5086,44.7536 -87.5113,44.7468 -87.5167,44.7377 -87.5214,44.7314 -87.5312,44.7238 -87.5425,44.7111 -87.553,44.7026 -87.5596,44.6958 -87.5663,44.6868 -87.5657,44.6827 -87.5607,44.6803 -87.5581,44.6794 -87.5588,44.6767 -87.5634,44.6726 -87.5661,44.6681 -87.569,44.6576 -87.5769,44.6482 -87.5805,44.6433 -87.5829,44.64 -87.5865,44.6356 -87.5961,44.6283 -87.5994,44.6234 -87.6054,44.6152 -87.6126,44.6089 -87.6204,44.6068 -87.6281,44.6069 -87.6326,44.6051 -87.6391,44.6038 -87.6449,44.6025 -87.6538,44.6031 -87.6583,44.6036 -87.6628,44.6027 -87.6674,44.6014 -87.67,44.6001 -87.6758,44.597 -87.6843,44.5911 -87.6888,44.5903 -87.6927,44.5894 -87.7049,44.5877 -87.7159,44.5829 -87.7199,44.5784 -87.7239,44.5734 -87.7285,44.5671 -87.7325,44.5621 -87.7364,44.5571 -87.7436,44.5522 -87.7468,44.5508 -87.7514,44.5495 -87.7565,44.5478 -87.7605,44.5442 -87.7624,44.5424 -87.7586,44.5405 -87.7529,44.5386 -87.7511,44.5354 -87.7524,44.5322 -87.7551,44.5286 -87.7577,44.5263 -87.7649,44.5191 -87.7715,44.5092 -87.7736,44.5051 -87.7768,44.5033 -87.7826,44.502 -87.7871,44.5016 -87.7916,44.5017 -87.7999,44.5008 -87.8134,44.5015 -87.8268,44.5039 -87.8363,44.5058 -87.8421,44.5082 -87.8471,44.5119 -87.8553,44.517 -87.8598,44.5161 -87.8631,44.5152 -87.8657,44.5125 -87.8688,44.5139 -87.8707,44.5181 -87.8706,44.5203 -87.8731,44.5231 -87.8757,44.5245 -87.8763,44.5268 -87.8737,44.5277 -87.8704,44.529 -87.8679,44.5299 -87.8672,44.5326 -87.8735,44.535 -87.8786,44.5359 -87.8837,44.5365 -87.8876,44.5374 -87.8862,44.542 -87.8791,44.5455 -87.8707,44.5477 -87.8642,44.5481 -87.8636,44.5504 -87.8686,44.5568 -87.8671,44.5641 -87.8631,44.5714 -87.8617,44.5773 -87.8609,44.5832 -87.8608,44.5864 -87.8595,44.5882 -87.8539,44.5808 -87.8521,44.5767 -87.8496,44.5739 -87.8439,44.5716 -87.8394,44.5693 -87.835,44.5656 -87.8332,44.5605 -87.8314,44.5569 -87.8281,44.5573 -87.8242,44.56 -87.8229,44.5618 -87.8259,44.57 -87.829,44.5746 -87.8335,44.5765 -87.8468,44.5826 -87.8506,44.5876 -87.8518,44.5913 -87.8542,44.5963 -87.8567,44.6014 -87.8604,44.6064 -87.8577,44.6114 -87.8563,44.6169 -87.8549,44.6237 -87.8529,44.6273 -87.8502,44.631 -87.8476,44.6346 -87.8455,44.6396 -87.843,44.6391 -87.8411,44.6382 -87.8392,44.6372 -87.8373,44.6358 -87.8354,44.6335 -87.8336,44.6303 -87.8317,44.6271 -87.8305,44.6244 -87.8254,44.6238 -87.8239,44.6293 -87.8245,44.6325 -87.827,44.6366 -87.8294,44.6421 -87.8318,44.6452 -87.8338,44.6481 -87.8337,44.6545 -87.8329,44.6586 -87.8322,44.6622 -87.834,44.6682 -87.8384,44.6705 -87.839,44.6733 -87.8364,44.6746 -87.8332,44.6764 -87.8331,44.6796 -87.8336,44.6842 -87.8329,44.6864 -87.8297,44.6891 -87.8264,44.69 -87.8225,44.6932 -87.8166,44.6967 -87.8133,44.7017 -87.8107,44.7049 -87.8067,44.7112 -87.8021,44.7144 -87.7982,44.7162 -87.7917,44.7193 -87.7865,44.7201 -87.7839,44.7219 -87.7838,44.726 -87.7851,44.7283 -87.7856,44.7311 -87.783,44.7338 -87.7757,44.7428 -87.7691,44.751 -87.7624,44.7618 -87.7583,44.7732 -87.7536,44.78 -87.7477,44.7858 -87.7392,44.7917 -87.7242,44.7993 -87.7093,44.8041 -87.7066,44.8073 -87.7072,44.8105 -87.7064,44.815 -87.7051,44.8186 -87.7017,44.8232 -87.699,44.8291 -87.6918,44.8358 -87.684,44.838 -87.6801,44.838 -87.6781,44.8411 -87.6793,44.8434 -87.6793,44.8457 -87.676,44.8484 -87.6727,44.8525 -87.6739,44.8557 -87.6776,44.8603 -87.6782,44.8626 -87.6801,44.8672 -87.6825,44.8718 -87.6862,44.8809 -87.6867,44.8837 -87.688,44.886 -87.6885,44.8896 -87.6871,44.8933 -87.6845,44.896 -87.6819,44.8982 -87.6786,44.9 -87.672,44.9041 -87.6668,44.9086 -87.6648,44.9099 -87.6608,44.9135 -87.6563,44.9157 -87.6517,44.9184 -87.6484,44.9202 -87.6426,44.9215 -87.6336,44.9205 -87.6161,44.9225 -87.6044,44.926 -87.5985,44.9271 -87.5902,44.9286 -87.5779,44.9307 -87.561,44.9341 -87.5403,44.938 -87.5299,44.9383 -87.5196,44.9381 -87.5151,44.9376 -87.5126,44.9371 -87.5099,44.9385 -87.5073,44.9402 -87.5073,44.9425 -87.5123,44.9467 -87.5161,44.95 -87.5186,44.9523 -87.5166,44.9536 -87.5121,44.9531 -87.5064,44.9512 -87.5019,44.9488 -87.4987,44.9479 -87.4943,44.946 -87.4891,44.9468 -87.4865,44.9473 -87.4813,44.949 -87.4761,44.9503 -87.4702,44.953 -87.4688,44.9552 -87.4675,44.958 -87.4668,44.9607 -87.466,44.963 -87.4653,44.9666 -87.4659,44.9698 -87.4657,44.9739 -87.4663,44.978 -87.468,44.984 -87.4678,44.994 -87.4683,44.9995 -87.4681,45.0055 -87.4672,45.015 -87.4657,45.0228 -87.4629,45.0287 -87.4595,45.0359 -87.4581,45.04 -87.4547,45.045 -87.4513,45.0495 -87.45,45.0513 -87.4461,45.0531 -87.4415,45.0539 -87.4383,45.0534 -87.4298,45.0574 -87.4299,45.0627 -87.4314,45.0648 -87.4337,45.0656 -87.4367,45.0667 -87.4406,45.0649 -87.4445,45.0645 -87.4528,45.0655 -87.4554,45.0656 -87.4663,45.068 -87.476,45.0681 -87.4889,45.071 -87.494,45.0716 -87.5011,45.074 -87.5056,45.0745 -87.512,45.075 -87.5132,45.0787 -87.5131,45.0837 -87.5143,45.0869 -87.5175,45.0893 -87.52,45.0916 -87.5225,45.0948 -87.5248,45.1026 -87.5248,45.1049 -87.5196,45.1066 -87.5183,45.1045 -87.5145,45.1029 -87.5126,45.1011 -87.5108,45.0974 -87.5051,45.0905 -87.5007,45.0864 -87.4931,45.0825 -87.488,45.0806 -87.4655,45.0757 -87.4546,45.0729 -87.4462,45.0727 -87.4397,45.0745 -87.4389,45.079 -87.442,45.0832 -87.4438,45.0882 -87.4467,45.0988 -87.4473,45.1029 -87.4446,45.107 -87.4405,45.1115 -87.4358,45.1187 -87.4337,45.1242 -87.431,45.1287 -87.4263,45.1337 -87.4217,45.1377 -87.4117,45.1476 -87.4084,45.1508 -87.4031,45.1553 -87.3997,45.1584 -87.3912,45.1633 -87.3819,45.17 -87.378,45.1727 -87.3759,45.1754 -87.3746,45.1786 -87.3639,45.1903 -87.3559,45.1966 -87.3526,45.1997 -87.3393,45.211 -87.3286,45.2209 -87.3165,45.2353 -87.3072,45.2448 -87.2971,45.256 -87.2892,45.2605 -87.2846,45.2636 -87.2812,45.2686 -87.2792,45.2704 -87.279,45.2768 -87.2755,45.2836 -87.2727,45.2904 -87.2673,45.2962 -87.2607,45.3007 -87.2554,45.3034 -87.2534,45.3056 -87.2533,45.3111 -87.2545,45.3129 -87.253,45.3198 -87.2496,45.3229 -87.247,45.3238 -87.2424,45.3251 -87.2391,45.3278 -87.239,45.3328 -87.2369,45.3374 -87.2308,45.3432 -87.2235,45.3481 -87.2155,45.3548 -87.2088,45.3611 -87.2054,45.3679 -87.2,45.3742 -87.1939,45.3815 -87.1873,45.385 -87.1827,45.3868 -87.1794,45.3899 -87.176,45.3944 -87.1739,45.399 -87.1737,45.4035 -87.1756,45.4072 -87.1792,45.4137 -87.1791,45.4178 -87.1757,45.4219 -87.1709,45.4291 -87.1643,45.4326 -87.161,45.4353 -87.1596,45.4381 -87.1576,45.4408 -87.1516,45.4439 -87.1469,45.4488 -87.1436,45.4515 -87.1422,45.4547 -87.1414,45.4583 -87.1406,45.4629 -87.1343,45.4751 -87.1274,45.4874 -87.1191,45.5023 -87.1108,45.5164 -87.1078,45.5208 -87.1712,45.5201 -87.1717,45.8659 -87.2115,45.867 -87.212,45.9531 -87.4608,45.9554 -87.4574,46.2127 -87.959,46.2146 -87.9612,46.3901 -88.5188,46.3887 -88.8346,46.3843 -88.8345,46.3009 -89.2064,46.3031 -89.2093,46.4718 -89.5815,46.4762 -89.5838,46.5615 -89.7041,46.5654 -89.705,46.7346 -89.7305,46.7371 -89.7347,46.7339 -89.746,46.7253 -89.7691,46.7083 -89.7862,46.6958 -89.808,46.6857 -89.8265,46.6737 -89.8344,46.6677 -89.8495,46.6548 -89.8659,46.6446 -89.8864,46.6372 -89.9022,46.6321 -89.9168,46.6288 -89.93,46.627 -89.9584,46.6222 -89.9742,46.618 -89.9927,46.6138 -90.0191,46.6091 -90.0488,46.6021 -90.0698,46.5956 -90.0916,46.5886 -90.1041,46.5858 -90.1113,46.5825 -90.1179,46.5793 -90.1245,46.5769 -90.1324,46.575 -90.1377,46.5746 -90.1483,46.5759 -90.1569,46.5795 -90.1589,46.5804 -90.1629,46.5804 -90.1675,46.5799 -90.1714,46.578 -90.1787,46.5748 -90.1892,46.5701 -90.2082,46.5595 -90.224,46.5511 -90.2436,46.5414 -90.2553,46.5346 -90.2581,46.533 -90.2659,46.5288 -90.2699,46.5279 -90.2738,46.5269 -90.2778,46.5265 -90.2857,46.5273 -90.291,46.5291 -90.2983,46.5314 -90.3096,46.5354 -90.3189,46.5395 -90.3249,46.5431 -90.3303,46.5467 -90.3343,46.5499 -90.3389,46.5526 -90.3423,46.554 -90.3476,46.5548 -90.3502,46.5544 -90.3548,46.5539 -90.3575,46.5539 -90.3607,46.5529 -90.3654,46.552 -90.3713,46.5524 -90.3879,46.5564 -90.3978,46.5563 -90.4117,46.5603 -90.4317,46.5684 -90.4497,46.5784 -90.4631,46.5865 -90.4767,46.5951 -90.4824,46.5987 -90.4878,46.5996 -90.4923,46.5973 -90.4956,46.5963 -90.5002,46.5949 -90.5029,46.5963 -90.5036,46.599 -90.503,46.6022 -90.5017,46.6059 -90.5005,46.6091 -90.5012,46.6114 -90.5105,46.6178 -90.5152,46.6205 -90.5219,46.6236 -90.5393,46.6349 -90.552,46.644 -90.5728,46.6562 -90.5868,46.6639 -90.5897,46.6635 -90.5874,46.6593 -90.5827,46.6552 -90.5773,46.6525 -90.5699,46.6457 -90.5586,46.6394 -90.5519,46.6348 -90.5472,46.6326 -90.5498,46.6298 -90.5544,46.6302 -90.5591,46.6306 -90.5664,46.6319 -90.5717,46.6333 -90.577,46.6341 -90.5876,46.6345 -90.5949,46.6344 -90.6001,46.6326 -90.6054,46.6293 -90.604,46.6261 -90.6,46.6257 -90.5973,46.6262 -90.5921,46.6262 -90.5808,46.6254 -90.5709,46.6255 -90.5596,46.6242 -90.547,46.6229 -90.5423,46.6207 -90.539,46.6198 -90.5357,46.6162 -90.5389,46.6143 -90.5416,46.6138 -90.5449,46.6129 -90.5468,46.6124 -90.5501,46.6124 -90.5541,46.6137 -90.5608,46.6146 -90.5694,46.6182 -90.5754,46.6181 -90.58,46.6181 -90.5873,46.618 -90.5965,46.6142 -90.5991,46.6128 -90.6056,46.6077 -90.6108,46.604 -90.6128,46.6026 -90.6173,46.5975 -90.6206,46.5948 -90.6245,46.5911 -90.629,46.5892 -90.6343,46.5878 -90.6422,46.5849 -90.6534,46.583 -90.6692,46.5801 -90.6876,46.5762 -90.71,46.5701 -90.7211,46.5654 -90.7283,46.5621 -90.7361,46.5579 -90.7453,46.5532 -90.7532,46.5504 -90.7578,46.5494 -90.7624,46.5489 -90.767,46.5498 -90.771,46.5506 -90.7733,46.5515 -90.7757,46.5524 -90.7784,46.5547 -90.7797,46.5574 -90.7805,46.5602 -90.7799,46.5638 -90.7753,46.5676 -90.7708,46.5713 -90.7618,46.5819 -90.7586,46.5888 -90.7555,46.5967 -90.753,46.6045 -90.7518,46.6114 -90.7505,46.6137 -90.7486,46.616 -90.7434,46.6211 -90.7389,46.6234 -90.731,46.6295 -90.7232,46.6346 -90.7141,46.6402 -90.7056,46.6467 -90.701,46.6509 -90.6978,46.6555 -90.6966,46.6605 -90.6954,46.666 -90.6949,46.6734 -90.697,46.6784 -90.699,46.6807 -90.7031,46.6862 -90.7071,46.6898 -90.7105,46.6939 -90.7166,46.698 -90.72,46.7043 -90.7221,46.7084 -90.7229,46.7126 -90.7216,46.7158 -90.7203,46.7186 -90.7144,46.7214 -90.7072,46.7233 -90.7026,46.7261 -90.6994,46.7293 -90.6974,46.733 -90.6962,46.7358 -90.6969,46.7381 -90.6989,46.7412 -90.6997,46.7458 -90.6964,46.7477 -90.6911,46.7491 -90.6872,46.7501 -90.6832,46.751 -90.6786,46.7525 -90.6753,46.7539 -90.6728,46.7558 -90.6688,46.759 -90.6662,46.7627 -90.6624,46.7678 -90.6584,46.771 -90.6539,46.7747 -90.646,46.7808 -90.6415,46.7845 -90.635,46.7905 -90.6304,46.796 -90.6292,46.7993 -90.6286,46.8039 -90.6286,46.8062 -90.6281,46.8121 -90.6275,46.8153 -90.6262,46.8177 -90.623,46.8218 -90.6197,46.8255 -90.6171,46.8297 -90.6159,46.8343 -90.6186,46.837 -90.6206,46.8384 -90.6247,46.8429 -90.6254,46.847 -90.6242,46.8489 -90.6222,46.8494 -90.6175,46.8499 -90.6136,46.8499 -90.6096,46.849 -90.6049,46.8481 -90.6003,46.8491 -90.5964,46.8533 -90.5971,46.8569 -90.5998,46.8601 -90.6099,46.8665 -90.6139,46.8682 -90.6193,46.871 -90.6247,46.8755 -90.6254,46.8787 -90.6275,46.8856 -90.6296,46.8911 -90.635,46.8965 -90.6418,46.9001 -90.6458,46.9015 -90.6504,46.9 -90.655,46.8995 -90.6616,46.8972 -90.6696,46.8971 -90.6763,46.8993 -90.6758,46.9062 -90.6752,46.9104 -90.6739,46.9145 -90.674,46.9195 -90.6754,46.9214 -90.6867,46.9222 -90.6954,46.9244 -90.704,46.9248 -90.71,46.9256 -90.7166,46.9237 -90.7186,46.9228 -90.7219,46.9191 -90.7225,46.9163 -90.7238,46.9145 -90.727,46.9103 -90.7296,46.9089 -90.7336,46.9079 -90.7376,46.9084 -90.7442,46.9083 -90.7502,46.9059 -90.758,46.9017 -90.7613,46.8999 -90.7679,46.897 -90.7732,46.8965 -90.7772,46.8974 -90.7806,46.8987 -90.7859,46.9001 -90.7906,46.9028 -90.7973,46.9041 -90.8013,46.9054 -90.8046,46.9058 -90.8093,46.9053 -90.8112,46.9044 -90.8165,46.903 -90.8185,46.9011 -90.8204,46.8979 -90.8256,46.8923 -90.8295,46.8886 -90.8314,46.8876 -90.8374,46.8862 -90.8427,46.8852 -90.85,46.8847 -90.8533,46.8837 -90.8598,46.8805 -90.8631,46.8777 -90.867,46.8753 -90.871,46.8739 -90.8729,46.873 -90.8769,46.8706 -90.8801,46.8674 -90.8821,46.8651 -90.8833,46.8609 -90.8845,46.8568 -90.8877,46.8521 -90.8936,46.8484 -90.9002,46.8465 -90.9029,46.846 -90.9068,46.846 -90.9108,46.8455 -90.9155,46.8468 -90.9228,46.8467 -90.9261,46.8453 -90.9313,46.8425 -90.9345,46.8383 -90.9377,46.8332 -90.9416,46.8286 -90.9455,46.8249 -90.9501,46.823 -90.956,46.822 -90.9613,46.8205 -90.9673,46.82 -90.9732,46.82 -90.9773,46.8222 -90.9767,46.8268 -90.9768,46.8314 -90.9776,46.835 -90.9816,46.8359 -90.9869,46.8354 -90.9888,46.834 -90.9894,46.8289 -90.9893,46.8248 -90.9905,46.8225 -90.9998,46.8196 -91.0024,46.8191 -91.0076,46.8154 -91.0155,46.813 -91.0235,46.8134 -91.0328,46.8146 -91.0408,46.8173 -91.0442,46.8191 -91.0456,46.8218 -91.0457,46.8246 -91.0431,46.8278 -91.0372,46.8325 -91.0301,46.839 -91.0269,46.8436 -91.0257,46.8469 -91.0277,46.8482 -91.0304,46.8486 -91.0323,46.8481 -91.0343,46.8472 -91.0395,46.8439 -91.0493,46.8383 -91.0559,46.8346 -91.0605,46.8331 -91.0651,46.8312 -91.0716,46.8284 -91.0763,46.8274 -91.0834,46.8227 -91.0886,46.8172 -91.0951,46.8111 -91.1035,46.805 -91.1094,46.8022 -91.1121,46.8013 -91.1193,46.7998 -91.1252,46.7979 -91.1365,46.7964 -91.1516,46.7929 -91.1628,46.79 -91.172,46.7853 -91.1889,46.7759 -91.1973,46.7671 -91.2045,46.7633 -91.2091,46.7614 -91.2144,46.7604 -91.219,46.7585 -91.2215,46.7562 -91.2235,46.7548 -91.2237,46.7525 -91.224,46.7484 -91.2252,46.7461 -91.2272,46.7451 -91.2318,46.7441 -91.2364,46.7436 -91.2391,46.744 -91.2411,46.7449 -91.2405,46.7477 -91.2373,46.75 -91.2387,46.7528 -91.2427,46.7536 -91.2487,46.7545 -91.2546,46.7521 -91.2605,46.7506 -91.2723,46.7459 -91.2854,46.7411 -91.3031,46.7363 -91.3281,46.7304 -91.3485,46.7251 -91.3637,46.7235 -91.3769,46.7228 -91.3909,46.7231 -91.4001,46.7229 -91.4028,46.7228 -91.4186,46.7203 -91.4252,46.7184 -91.4357,46.7164 -91.4468,46.7126 -91.462,46.7091 -91.479,46.7043 -91.5014,46.6984 -91.5177,46.6922 -91.5341,46.6869 -91.5473,46.6853 -91.5598,46.6837 -91.5703,46.6817 -91.5855,46.6787 -91.5979,46.6744 -91.6142,46.6668 -91.6227,46.6639 -91.6319,46.6619 -91.6457,46.6598 -91.6688,46.6567 -91.6827,46.656 -91.6939,46.6549 -91.6971,46.6525 -91.6997,46.6507 -91.7029,46.6492 -91.7062,46.6487 -91.7083,46.6501 -91.7111,46.6541 -91.7131,46.6564 -91.7151,46.6568 -91.7178,46.6568 -91.725,46.6562 -91.7375,46.6546 -91.7639,46.6509 -91.7849,46.646 -91.7961,46.6458 -91.8029,46.6489 -91.8117,46.6542 -91.8225,46.66 -91.8326,46.6648 -91.8393,46.6665 -91.8433,46.6688 -91.8473,46.6692 -91.8499,46.6677 -91.8498,46.665 -91.8484,46.6627 -91.8436,46.6596 -91.8389,46.6569 -91.8321,46.652 -91.8293,46.6475 -91.8352,46.6469 -91.8425,46.6472 -91.8479,46.6485 -91.8512,46.6498 -91.8527,46.653 -91.8542,46.658 -91.8569,46.6603 -91.8596,46.6602 -91.8622,46.6606 -91.8664,46.666 -91.8704,46.6655 -91.8751,46.6677 -91.8867,46.6767 -91.9024,46.6902 -91.9215,46.7049 -91.9312,46.7144 -91.9337,46.7116 -91.9383,46.7097 -91.941,46.7101 -91.9443,46.7109 -91.9469,46.7095 -91.9488,46.7067 -91.9553,46.7038 -91.9594,46.707 -91.9634,46.7069 -91.9685,46.7036 -91.9722,46.6966 -91.9774,46.6929 -91.9798,46.6882 -91.9816,46.6827 -91.9789,46.6818 -91.9781,46.6777 -91.9813,46.6754 -91.9846,46.6748 -91.9865,46.6734 -91.9884,46.6706 -91.9897,46.6688 -91.9929,46.6673 -91.9948,46.6641 -91.9988,46.6654 -92.0003,46.669 -92.0019,46.6759 -92.0039,46.6763 -92.0065,46.6753 -92.009,46.673 -92.0089,46.6689 -92.0077,46.6663 -92.0059,46.662 -91.9957,46.654 -91.9882,46.65 -91.9795,46.6474 -91.9761,46.6438 -91.9759,46.6397 -91.9812,46.6396 -91.9852,46.6409 -91.9872,46.6413 -91.9913,46.6435 -91.9966,46.6452 -92.0013,46.6465 -92.0067,46.6483 -92.0108,46.6505 -92.0129,46.655 -92.0144,46.6591 -92.0163,46.6577 -92.0182,46.6545 -92.0207,46.6517 -92.0219,46.6489 -92.0218,46.6461 -92.0211,46.6439 -92.0176,46.6398 -92.0215,46.6383 -92.0241,46.6378 -92.0306,46.6349 -92.0351,46.6316 -92.0382,46.6265 -92.0407,46.6224 -92.0439,46.6182 -92.0497,46.6148 -92.0562,46.6129 -92.0628,46.6123 -92.0694,46.6131 -92.0748,46.6134 -92.082,46.6128 -92.0859,46.6118 -92.0919,46.6126 -92.0966,46.6144 -92.1053,46.616 -92.1106,46.6164 -92.1145,46.6199 -92.1194,46.6213 -92.1275,46.6252 -92.1343,46.6248 -92.1502,46.6326 -92.1431,46.6345 -92.1366,46.6356 -92.1279,46.6348 -92.122,46.6359 -92.1173,46.6351 -92.1146,46.6328 -92.1106,46.6311 -92.1071,46.6275 -92.105,46.6257 -92.1017,46.6244 -92.0984,46.6249 -92.0931,46.6245 -92.0852,46.6252 -92.0752,46.6249 -92.0679,46.6241 -92.058,46.6248 -92.0528,46.6258 -92.0477,46.6266 -92.0496,46.6295 -92.0499,46.6364 -92.0474,46.641 -92.0415,46.6414 -92.0384,46.6453 -92.0411,46.648 -92.0446,46.6526 -92.0507,46.657 -92.0535,46.6602 -92.0538,46.6666 -92.0526,46.6703 -92.0501,46.6731 -92.0455,46.675 -92.0403,46.6761 -92.0356,46.6761 -92.0299,46.6808 -92.0307,46.684 -92.0302,46.6891 -92.025,46.6915 -92.0158,46.6931 -92.0065,46.6914 -92.0024,46.6901 -91.9997,46.6892 -91.9971,46.6895 -91.9951,46.6898 -91.9929,46.6905 -91.9913,46.6926 -91.9901,46.6945 -91.9882,46.6977 -91.9909,46.7004 -91.9904,46.7032 -91.9899,46.7078 -91.9854,46.7111 -91.9821,46.7125 -91.9782,46.7123 -91.9744,46.7122 -91.9737,46.7173 -91.9738,46.72 -91.9699,46.7215 -91.9673,46.7215 -91.9639,46.7216 -91.962,46.7219 -91.9588,46.7258 -91.9562,46.7263 -91.9542,46.7259 -91.9476,46.726 -91.945,46.7284 -91.9471,46.732 -91.9493,46.7361 -91.9494,46.7388 -91.9475,46.7416 -91.9463,46.7439 -91.945,46.7458 -91.9445,46.7486 -91.9426,46.7514 -91.9388,46.7551 -91.9356,46.7579 -91.9297,46.7608 -91.9231,46.7623 -91.9043,46.7723 -91.8978,46.7765 -91.8881,46.7836 -91.8758,46.7893 -91.866,46.7941 -91.8537,46.8026 -91.8398,46.8037 -91.8333,46.8066 -91.8229,46.8119 -91.8124,46.8153 -91.804,46.8205 -91.7943,46.8275 -91.7826,46.8346 -91.7741,46.8393 -91.7676,46.8427 -91.754,46.8498 -91.7442,46.8569 -91.7267,46.864 -91.7111,46.8716 -91.7011,46.8764 -91.6926,46.8793 -91.6854,46.8809 -91.679,46.8878 -91.675,46.8902 -91.6724,46.8907 -91.6684,46.8903 -91.6644,46.8895 -91.6571,46.8886 -91.6512,46.891 -91.6481,46.8931 -91.644,46.8958 -91.6375,46.8995 -91.6264,46.9052 -91.6225,46.9085 -91.6116,46.9179 -91.6006,46.9268 -91.5882,46.9339 -91.57,46.9461 -91.5583,46.9545 -91.5519,46.9606 -91.5493,46.9643 -91.5441,46.9681 -91.5369,46.971 -91.5297,46.9729 -91.5231,46.9753 -91.5178,46.9763 -91.5119,46.9796 -91.5093,46.9792 -91.5066,46.9783 -91.5046,46.9788 -91.5021,46.9825 -91.4989,46.989 -91.4923,46.99 -91.4877,46.991 -91.4837,46.9906 -91.4804,46.9916 -91.4765,46.9935 -91.4752,46.9967 -91.4787,47.0022 -91.4755,47.0059 -91.4717,47.0096 -91.4645,47.013 -91.4547,47.0191 -91.4488,47.0224 -91.4455,47.0243 -91.4337,47.0309 -91.4286,47.0356 -91.4241,47.0411 -91.4196,47.0458 -91.4157,47.0491 -91.4104,47.051 -91.4011,47.052 -91.3919,47.0549 -91.3841,47.0606 -91.3762,47.063 -91.3683,47.0663 -91.3597,47.0706 -91.3467,47.0809 -91.3389,47.0851 -91.3283,47.0871 -91.3157,47.091 -91.306,47.098 -91.3014,47.1022 -91.2936,47.1069 -91.2858,47.1153 -91.2793,47.1218 -91.2716,47.1293 -91.2651,47.1367 -91.2586,47.1428 -91.2501,47.147 -91.2382,47.1531 -91.2198,47.1621 -91.2172,47.1626 -91.212,47.1668 -91.2054,47.172 -91.2028,47.1748 -91.1996,47.1794 -91.1952,47.1859 -91.1912,47.1892 -91.1834,47.1939 -91.1676,47.2037 -91.1591,47.2103 -91.1486,47.2164 -91.1413,47.2183 -91.1347,47.2211 -91.1302,47.2249 -91.1309,47.2276 -91.1317,47.2304 -91.1291,47.2332 -91.1258,47.2351 -91.1218,47.2379 -91.1179,47.2411 -91.1023,47.2551 -91.0904,47.2608 -91.0786,47.2674 -91.0707,47.2721 -91.0628,47.2786 -91.0577,47.2855 -91.0525,47.292 -91.0453,47.2976 -91.0361,47.3033 -91.0301,47.3075 -91.0257,47.3154 -91.016,47.3293 -91.0055,47.3372 -90.9957,47.3451 -90.9865,47.3512 -90.9773,47.3596 -90.9662,47.3689 -90.9603,47.3736 -90.9537,47.3774 -90.9444,47.3811 -90.9305,47.3877 -90.9142,47.4045 -90.9023,47.411 -90.8818,47.4228 -90.8686,47.4271 -90.8585,47.4304 -90.8533,47.4341 -90.8487,47.4392 -90.8447,47.442 -90.8348,47.4477 -90.8038,47.4659 -90.7786,47.4809 -90.7608,47.4917 -90.7243,47.5113 -90.6998,47.5245 -90.6779,47.5357 -90.6679,47.5413 -90.6567,47.5483 -90.6401,47.5572 -90.6215,47.5675 -90.6042,47.5774 -90.5902,47.5835 -90.5756,47.59 -90.5556,47.5962 -90.5456,47.6027 -90.5289,47.6061 -90.5149,47.609 -90.5035,47.6132 -90.4982,47.6165 -90.4909,47.6211 -90.4856,47.6248 -90.4803,47.6281 -90.4769,47.6295 -90.4548,47.6334 -90.4475,47.6357 -90.4328,47.6405 -90.4215,47.6451 -90.4128,47.6484 -90.4021,47.6531 -90.3921,47.6573 -90.3874,47.6615 -90.3788,47.6657 -90.3694,47.6699 -90.3568,47.676 -90.3373,47.6798 -90.3166,47.6841 -90.2991,47.6861 -90.2904,47.6871 -90.2844,47.6908 -90.2797,47.6945 -90.2764,47.6968 -90.2717,47.6987 -90.269,47.6992 -90.263,47.6992 -90.2549,47.6979 -90.2334,47.7022 -90.2127,47.7069 -90.2019,47.7079 -90.1925,47.7075 -90.1824,47.7075 -90.1764,47.7085 -90.1724,47.7104 -90.1684,47.7136 -90.1651,47.7173 -90.1591,47.7219 -90.151,47.7243 -90.1396,47.7257 -90.1242,47.7286 -90.0939,47.7334 -90.0711,47.7376 -90.055,47.7418 -90.0463,47.7428 -90.0349,47.7438 -90.0268,47.7443 -90.0194,47.7471 -90.0141,47.7499 -90.0067,47.754 -89.9993,47.7559 -89.9913,47.7569 -89.9819,47.7592 -89.9738,47.7606 -89.9678,47.7625 -89.9429,47.7686 -89.9194,47.7747 -89.9107,47.7747 -89.9032,47.7743 -89.8959,47.7771 -89.8892,47.7817 -89.8858,47.7836 -89.8778,47.785 -89.8636,47.7869 -89.8468,47.7906 -89.8368,47.7966 -89.8328,47.7994 -89.8193,47.8041 -89.8059,47.8073 -89.7958,47.8083 -89.785,47.8148 -89.7804,47.8194 -89.7764,47.8231 -89.769,47.8291 -89.7623,47.8323 -89.7528,47.8337 -89.7353,47.8375 -89.7232,47.8403 -89.7091,47.8422 -89.6943,47.844 -89.6727,47.8492 -89.6613,47.8519 -89.6371,47.8603 -89.6196,47.8704 -89.6129,47.8746 -89.6055,47.8769 -89.5987,47.8788 -89.594,47.8806 -89.5806,47.8889 -89.5691,47.8954 -89.561,47.9 -89.5557,47.9056 -89.5476,47.9093 -89.5382,47.9143 -89.5307,47.9157 -89.5267,47.9171 -89.5226,47.919 -89.5233,47.9217 -89.5274,47.9254 -89.5294,47.9263 -89.5247,47.9305 -89.5132,47.9346 -89.5038,47.936 -89.4998,47.9356 -89.4977,47.9305 -89.4964,47.9282 -89.4937,47.9264 -89.4835,47.9255 -89.4835,47.9278 -89.4829,47.9319 -89.4836,47.9356 -89.4849,47.9374 -89.487,47.9439 -89.4863,47.9499 -89.4816,47.954 -89.4761,47.9569 -89.477,47.9571 -89.6259,47.9747 -89.7092,47.9569 -89.7328,47.9459 -89.77,47.9359 -89.8641,47.9705 -89.9027,48.0148 -89.9355,48.0515 -90.016,48.0663 -90.1494,48.058 -90.6185,48.0377 -90.6426,48.0487 -90.7041,48.1495 -90.7037,48.1718 -90.7369,48.1825 -90.7665,48.1815 -90.7966,48.1735 -90.8375,48.1595 -90.9943,48.1 -91.0175,48.0889 -91.0608,48.06 -91.1085,48.0286 -91.1443,48.0178 -91.1866,48.0146 -91.2153,48.0129 -91.2548,48.004 -91.2863,47.986 -91.3306,48.0029 -91.4411,48.038 -91.5127,48.0435 -91.5547,48.0896 -91.6072,48.1362 -91.651,48.1395 -91.7174,48.1486 -91.8071,48.1752 -91.8304,48.1852 -91.8586,48.206 -91.8747,48.2259 -91.8808,48.2493 -91.906,48.2902 -92.0079,48.3017 -92.0284,48.3013 -92.1233,48.2917 -92.143,48.2795 -92.1659,48.2442 -92.1523,48.2148 -92.1576,48.1936 -92.1978,48.1789 -92.2259,48.1764 -92.2922,48.2562 -92.3212,48.3389 -92.4478,48.3861 -92.5629,48.4298 -92.5804,48.4857 -92.816,48.567 -93.1093,48.5847 -93.18,48.5734 -93.2722,48.5529 -93.3179,48.5286 -93.3284,48.4961 -93.3602,48.483 -93.5244,48.4598 -93.5879,48.4584 -93.6495,48.4614 -93.6682,48.4762 -93.6824,48.5306 -93.6972,48.5609 -93.722,48.5731 -93.7464,48.5745 -93.9268,48.5822 -93.975,48.5854 -93.997,48.5869 -94.1106,48.6053 -94.1299,48.6402 -94.1608,48.6513 -94.2628,48.6549 -94.2957,48.6463 -94.3234,48.6394 -94.3629,48.6411 -94.3863,48.646 -94.4677,48.6686 -94.5023,48.6854 -94.5566,48.7228 -94.5697,48.741 -94.5686,48.8022 -94.5624,48.8465 -94.5673,48.877 -94.5801,48.9185 -94.5913,48.9406 -94.6063,48.9723 -94.6282,49.0194 -94.6591,49.101 -94.6666,49.1304 -94.6783,49.2491 -94.7921,49.3019 -94.8225,49.3045 -94.8586,49.301 -94.886,49.3011 -94.9418,49.3029 -94.9807,49.3085 -95.0024,49.3149 -95.0128,49.3199 -95.014,49.3098 -95.0146,49.2767 -95.0142,49.1171 -95.0148,48.9433 -95.1271,48.9438 -97.0775,48.9437 -97.3599,48.9433 -97.493,48.9432 -97.6586,48.9437 -97.8257,48.9443 -98.1252,48.944 -98.3579,48.9434 -98.724,48.9439 -99.1901,48.9433 -99.6896,48.944 -99.8559,48.9438 -100.3547,48.9434 -100.9213,48.9439 -101.1538,48.9442 -101.219,48.9427 -101.3205,48.9433 -102.0192,48.9437 -102.1857,48.9434 -102.3853,48.9442 -102.6179,48.9433 -102.8845,48.9434 -103.0173,48.9433 -103.1177,48.9438 -103.2841,48.944 -103.3839,48.9434 -103.5833,48.9431 -103.8808,48.9441 -103.9025,48.944 -103.8991,48.6117 -103.8989,48.3569 -103.8952,47.966 -103.8952,47.9658 -103.881,47.9642 -103.8663,47.9581 -103.8582,47.9453 -103.8513,47.9376 -103.8467,47.9361 -103.8417,47.9361 -103.8363,47.9376 -103.832,47.9388 -103.8282,47.9392 -103.8232,47.9434 -103.8205,47.9446 -103.8178,47.9453 -103.8187,47.9423 -103.8211,47.9398 -103.8211,47.9389 -103.8205,47.9379 -103.8169,47.9336 -103.8173,47.9292 -103.8153,47.9238 -103.8121,47.9043 -103.8121,47.8946 -103.8107,47.8876 -103.8065,47.8778 -103.8071,47.8693 -103.8051,47.8583 -103.8135,47.8415 -103.8149,47.8359 -103.8149,47.8275 -103.8121,47.8205 -103.8121,47.8177 -103.6363,47.8168 -103.6363,47.6361 -103.5886,47.6361 -103.5882,47.5481 -103.4492,47.548 -103.4493,47.4833 -103.4472,47.484 -103.4438,47.4845 -103.4392,47.4826 -103.4351,47.4798 -103.4311,47.4789 -103.4244,47.4826 -103.4191,47.4816 -103.4164,47.4793 -103.4131,47.4765 -103.4111,47.4756 -103.4084,47.4765 -103.407,47.482 -103.4023,47.4852 -103.3989,47.4866 -103.3929,47.488 -103.3875,47.4889 -103.3848,47.4907 -103.3834,47.4953 -103.3828,47.4967 -103.3787,47.4985 -103.3727,47.4994 -103.366,47.4985 -103.3606,47.4961 -103.3573,47.4934 -103.352,47.4924 -103.3466,47.491 -103.3433,47.4906 -103.3285,47.4887 -103.3205,47.4882 -103.3165,47.4882 -103.3131,47.49 -103.3098,47.49 -103.3064,47.4877 -103.3038,47.4854 -103.3018,47.4849 -103.2984,47.4876 -103.2964,47.4895 -103.2896,47.4908 -103.2809,47.4931 -103.2775,47.4954 -103.2768,47.4986 -103.2775,47.5027 -103.2815,47.506 -103.2868,47.5101 -103.2901,47.5129 -103.2914,47.5166 -103.2907,47.5216 -103.29,47.5258 -103.288,47.5308 -103.2866,47.535 -103.2846,47.5368 -103.2819,47.5391 -103.2798,47.5418 -103.2791,47.5492 -103.2791,47.5519 -103.2777,47.5579 -103.2743,47.557 -103.2696,47.5565 -103.2649,47.5556 -103.2596,47.5555 -103.2555,47.556 -103.2522,47.5578 -103.2474,47.5606 -103.2421,47.5633 -103.2387,47.5637 -103.2333,47.5642 -103.2286,47.5642 -103.2239,47.5632 -103.2206,47.5618 -103.2159,47.5604 -103.2132,47.5604 -103.2065,47.5631 -103.2018,47.5654 -103.1951,47.5654 -103.1931,47.5635 -103.1898,47.5585 -103.1871,47.5543 -103.1851,47.5534 -103.1771,47.5533 -103.1697,47.5542 -103.1643,47.5528 -103.1577,47.5482 -103.1557,47.5463 -103.1523,47.5454 -103.1463,47.5467 -103.1389,47.5504 -103.1355,47.554 -103.1341,47.5582 -103.1314,47.5605 -103.126,47.5614 -103.118,47.5599 -103.112,47.5576 -103.1053,47.5562 -103.0972,47.5557 -103.0926,47.5529 -103.0859,47.5519 -103.0711,47.5486 -103.0598,47.5458 -103.0471,47.5425 -103.0411,47.5406 -103.0357,47.5379 -103.0297,47.5364 -103.023,47.5382 -103.0196,47.5405 -103.0109,47.54 -103.0075,47.5414 -103.0048,47.5455 -103.0054,47.5483 -103.004,47.5505 -103.0,47.5505 -102.9967,47.55 -102.9907,47.5482 -102.986,47.5477 -102.9819,47.549 -102.9799,47.5504 -102.9758,47.5527 -102.9711,47.5536 -102.9658,47.5517 -102.9625,47.5494 -102.9557,47.5493 -102.954,47.55 -102.951,47.5511 -102.9463,47.552 -102.941,47.552 -102.9363,47.5497 -102.9309,47.5492 -102.9222,47.5491 -102.9121,47.5518 -102.9054,47.555 -102.9046,47.5586 -102.9052,47.5651 -102.9038,47.5683 -102.9011,47.5729 -102.897,47.5752 -102.8909,47.5779 -102.8869,47.5806 -102.8854,47.5866 -102.884,47.593 -102.8819,47.5958 -102.8779,47.5976 -102.8738,47.5989 -102.8705,47.6012 -102.8691,47.603 -102.8697,47.6058 -102.8703,47.6081 -102.8743,47.6104 -102.8837,47.616 -102.8869,47.6229 -102.8895,47.6276 -102.8888,47.6331 -102.8874,47.6367 -102.8839,47.6422 -102.8826,47.6422 -102.8792,47.644 -102.8785,47.6445 -102.8637,47.6458 -102.8483,47.6424 -102.841,47.6383 -102.8357,47.6345 -102.8324,47.6304 -102.8264,47.6299 -102.821,47.6317 -102.8189,47.6326 -102.8129,47.6316 -102.8103,47.6284 -102.8097,47.6224 -102.803,47.6209 -102.795,47.6177 -102.7943,47.6163 -102.7951,47.6085 -102.7979,47.6043 -102.7979,47.6007 -102.796,47.5993 -102.7899,47.5992 -102.7845,47.601 -102.7811,47.6019 -102.7765,47.5982 -102.7698,47.5958 -102.7652,47.594 -102.7605,47.5939 -102.7544,47.5948 -102.7497,47.5952 -102.7423,47.5943 -102.737,47.5933 -102.733,47.5914 -102.7303,47.5886 -102.7271,47.584 -102.7251,47.5821 -102.7224,47.5798 -102.7158,47.5779 -102.7151,47.5752 -102.7139,47.5715 -102.7126,47.5696 -102.7045,47.5686 -102.7005,47.5691 -102.6958,47.569 -102.6938,47.5676 -102.6905,47.5662 -102.6777,47.5647 -102.6683,47.5656 -102.6643,47.566 -102.6583,47.5646 -102.6543,47.5627 -102.647,47.5608 -102.6342,47.5602 -102.6201,47.5606 -102.6101,47.5596 -102.6027,47.5586 -102.5981,47.5567 -102.5921,47.5534 -102.5875,47.5488 -102.5835,47.5455 -102.5789,47.5418 -102.5756,47.5395 -102.5615,47.5398 -102.5414,47.5387 -102.5347,47.5377 -102.5307,47.5344 -102.5295,47.5312 -102.5275,47.5266 -102.5283,47.5215 -102.5305,47.5133 -102.5313,47.5059 -102.5307,47.5041 -102.5287,47.5008 -102.5234,47.498 -102.5114,47.4975 -102.5013,47.4987 -102.4892,47.5014 -102.4791,47.5022 -102.4724,47.5035 -102.4656,47.5076 -102.4582,47.5084 -102.4515,47.5079 -102.4395,47.5046 -102.4308,47.5031 -102.4215,47.4998 -102.4102,47.4955 -102.4015,47.4931 -102.3896,47.4893 -102.3829,47.4874 -102.3696,47.4827 -102.3496,47.4783 -102.3349,47.4777 -102.3208,47.4771 -102.298,47.4768 -102.2886,47.4786 -102.2859,47.4799 -102.2845,47.4822 -102.2844,47.4845 -102.2857,47.4891 -102.2862,47.4937 -102.2848,47.4978 -102.2833,47.5033 -102.2825,47.5098 -102.2837,47.5149 -102.2849,47.5218 -102.2861,47.5264 -102.286,47.5328 -102.2838,47.5379 -102.2811,47.541 -102.2769,47.5451 -102.2702,47.5474 -102.266,47.5524 -102.2613,47.5551 -102.2565,47.5564 -102.2431,47.559 -102.237,47.5589 -102.223,47.5569 -102.2021,47.5594 -102.1906,47.5639 -102.1851,47.5689 -102.1783,47.5739 -102.1702,47.5752 -102.1608,47.5751 -102.1292,47.5765 -102.1028,47.5831 -102.097,47.5779 -102.0778,47.5662 -102.0668,47.5609 -102.0668,47.5609 -102.0635,47.5593 -102.0534,47.5521 -102.0468,47.5456 -102.0442,47.5446 -102.0388,47.5436 -102.0342,47.5426 -102.0114,47.541 -102.0007,47.5403 -101.988,47.5397 -101.9772,47.54 -101.9503,47.5415 -101.9362,47.5432 -101.9235,47.5434 -101.9174,47.5438 -101.9087,47.5432 -101.9047,47.5423 -101.8735,47.5303 -101.8703,47.528 -101.867,47.5242 -101.8657,47.5219 -101.8659,47.5173 -101.8673,47.515 -101.8687,47.5123 -101.8695,47.51 -101.8682,47.5082 -101.8636,47.5053 -101.8609,47.5048 -101.8542,47.5043 -101.8488,47.5047 -101.8421,47.505 -101.8374,47.5045 -101.8334,47.504 -101.8275,47.5016 -101.8215,47.5006 -101.8155,47.4991 -101.8088,47.4981 -101.8041,47.4985 -101.7987,47.4989 -101.7947,47.4983 -101.7894,47.4978 -101.7867,47.4968 -101.7821,47.4945 -101.7768,47.4916 -101.7729,47.4879 -101.7683,47.4846 -101.7651,47.4827 -101.7611,47.4813 -101.7558,47.4789 -101.7518,47.477 -101.7485,47.4756 -101.7432,47.4746 -101.7365,47.4731 -101.7245,47.472 -101.7098,47.4718 -101.701,47.4725 -101.6977,47.472 -101.693,47.472 -101.689,47.471 -101.6857,47.4709 -101.6817,47.4699 -101.671,47.4689 -101.6663,47.4688 -101.6616,47.4683 -101.657,47.4682 -101.6523,47.4686 -101.6489,47.4699 -101.6448,47.4712 -101.642,47.4735 -101.6359,47.4752 -101.6203,47.4819 -101.6128,47.4845 -101.6054,47.4876 -101.5986,47.4893 -101.5918,47.4915 -101.5756,47.4963 -101.5715,47.4972 -101.5641,47.4984 -101.5573,47.4997 -101.5526,47.5001 -101.5479,47.5 -101.5432,47.5008 -101.5385,47.5012 -101.5291,47.5006 -101.5151,47.4994 -101.5071,47.4984 -101.4993,47.4974 -101.4938,47.4963 -101.4898,47.4958 -101.4811,47.4947 -101.4764,47.4951 -101.4643,47.4958 -101.4097,47.5036 -101.4009,47.5048 -101.3941,47.5075 -101.3806,47.5109 -101.3643,47.5161 -101.3568,47.5178 -101.3494,47.52 -101.3365,47.5225 -101.3291,47.5247 -101.3196,47.5268 -101.3135,47.5276 -101.3061,47.5284 -101.3014,47.5279 -101.2961,47.5282 -101.2928,47.5268 -101.2887,47.5267 -101.2854,47.5271 -101.282,47.5266 -101.2787,47.5252 -101.2754,47.5242 -101.2519,47.509 -101.2324,47.493 -101.2312,47.4907 -101.2279,47.4879 -101.2288,47.4824 -101.2316,47.4797 -101.2337,47.4783 -101.2364,47.4774 -101.2418,47.4748 -101.2459,47.4735 -101.2507,47.4708 -101.2534,47.4699 -101.2583,47.4664 -101.261,47.465 -101.2679,47.4592 -101.2714,47.4556 -101.2805,47.4461 -101.2834,47.442 -101.2842,47.4374 -101.2843,47.4346 -101.2838,47.4305 -101.2811,47.4277 -101.2721,47.4225 -101.2688,47.4201 -101.2662,47.4187 -101.2663,47.4164 -101.2611,47.3956 -101.2482,47.3654 -101.2477,47.3627 -101.2451,47.3599 -101.2425,47.3584 -101.2353,47.3551 -101.2313,47.3545 -101.2287,47.3527 -101.2247,47.3503 -101.2228,47.3498 -101.217,47.3432 -101.2158,47.3386 -101.2137,47.3257 -101.2128,47.3151 -101.2124,47.3077 -101.2129,47.2963 -101.2111,47.2898 -101.2053,47.2855 -101.204,47.2837 -101.2021,47.2827 -101.1995,47.2795 -101.1977,47.2757 -101.1964,47.2734 -101.1959,47.2697 -101.1947,47.2656 -101.1895,47.2623 -101.1829,47.2607 -101.175,47.2588 -101.1657,47.2577 -101.1464,47.2554 -101.1365,47.2529 -101.1331,47.2524 -101.1285,47.251 -101.1253,47.2491 -101.12,47.2462 -101.113,47.2387 -101.1073,47.2326 -101.1061,47.2114 -101.613,47.2072 -101.6124,46.9514 -101.613,46.9514 -101.613,46.9499 -101.2591,46.9506 -101.0557,46.9501 -101.0557,46.8688 -100.9412,46.8688 -100.9412,46.7308 -100.9377,46.7315 -100.9132,46.7392 -100.9056,46.7459 -100.9039,46.7527 -100.9065,46.7586 -100.9031,46.7637 -100.8972,46.7637 -100.8904,46.7654 -100.8853,46.7721 -100.8777,46.7747 -100.8752,46.778 -100.6732,46.7782 -100.6723,46.7685 -100.6735,46.7584 -100.6772,46.7498 -100.6789,46.7404 -100.6826,46.7334 -100.6865,46.7225 -100.6828,46.716 -100.675,46.713 -100.6743,46.7126 -100.6698,46.7097 -100.664,46.7073 -100.6587,46.7067 -100.6515,46.7056 -100.6442,46.7064 -100.6356,46.7052 -100.6317,46.7033 -100.6312,46.701 -100.6294,46.6973 -100.6295,46.6941 -100.6311,46.6895 -100.6332,46.6864 -100.6374,46.6828 -100.6434,46.6815 -100.6488,46.6794 -100.649,46.6753 -100.6472,46.6711 -100.6441,46.6664 -100.6377,46.6621 -100.6328,46.6547 -100.6277,46.6509 -100.6191,46.6502 -100.6039,46.6503 -100.5999,46.6501 -100.592,46.6496 -100.5855,46.6462 -100.5849,46.6427 -100.5829,46.6319 -100.578,46.6245 -100.567,46.6201 -100.5557,46.6203 -100.5397,46.6231 -100.5312,46.6252 -100.5178,46.6244 -100.506,46.6209 -100.5001,46.6079 -100.5016,46.6047 -100.4964,46.6014 -100.4902,46.5939 -100.4884,46.5911 -100.4853,46.5874 -100.4789,46.5817 -100.4707,46.5742 -100.4604,46.5689 -100.444,46.5657 -100.4411,46.565 -100.4257,46.5616 -100.4123,46.5525 -100.4099,46.5483 -100.4121,46.5447 -100.4148,46.5429 -100.4211,46.541 -100.4243,46.5386 -100.4253,46.5317 -100.4243,46.5262 -100.4236,46.5248 -100.4238,46.5221 -100.4191,46.4995 -100.4195,46.4903 -100.4262,46.4758 -100.4334,46.4641 -100.4342,46.4622 -100.44,46.4523 -100.4444,46.4442 -100.446,46.4373 -100.4456,46.4239 -100.4462,46.4217 -100.4454,46.4178 -100.4452,46.4144 -100.4415,46.3968 -100.436,46.388 -100.4266,46.3786 -100.4207,46.367 -100.4131,46.3475 -100.4015,46.3294 -100.4004,46.3133 -100.3985,46.2981 -100.4101,46.2778 -100.4228,46.263 -100.4278,46.2544 -100.4316,46.2449 -100.4269,46.2337 -100.4196,46.223 -100.4134,46.2155 -100.4086,46.2067 -100.4122,46.1999 -100.4199,46.1909 -100.4297,46.1788 -100.4429,46.1654 -100.4539,46.1556 -100.4632,46.1407 -100.4705,46.1271 -100.475,46.1158 -100.4766,46.0975 -100.4753,46.0851 -100.4686,46.0739 -100.4671,46.0716 -100.4625,46.0587 -100.4625,46.0518 -100.4623,46.0484 -100.4622,46.0402 -100.4618,46.0394 -100.4589,46.0325 -100.4589,46.0324 -100.4586,46.0317 -100.4433,46.0095 -100.4431,46.0092 -100.439,46.0032 -100.4152,45.98 -100.3964,45.97 -100.3921,45.9685 -100.3877,45.9626 -100.3815,45.9573 -100.3712,45.9405 -100.3645,45.9289 -100.3607,45.9224 -100.3604,45.9219 -100.3612,45.9063 -100.3661,45.9014 -100.3663,45.8978 -100.3626,45.8936 -100.3575,45.8911 -100.3503,45.8896 -100.3439,45.8876 -100.3357,45.8819 -100.3255,45.877 -100.3191,45.8741 -100.314,45.8708 -100.2975,45.874 -100.2901,45.8775 -100.285,45.876 -100.2766,45.873 -100.2718,45.8646 -100.2729,45.8573 -100.2753,45.8496 -100.2722,45.8459 -100.2645,45.8425 -100.2548,45.8408 -100.2425,45.8387 -100.2309,45.8356 -100.2246,45.8318 -100.2215,45.8271 -100.2199,45.8216 -100.2221,45.8162 -100.2271,45.809 -100.2346,45.8032 -100.2323,45.7981 -100.2268,45.7911 -100.222,45.7832 -100.2215,45.7681 -100.2187,45.7584 -100.2172,45.7574 -100.2137,45.755 -100.2093,45.7522 -100.2063,45.7471 -100.1997,45.7368 -100.1968,45.7299 -100.1913,45.7238 -100.1846,45.7144 -100.1766,45.7051 -100.1692,45.698 -100.1604,45.6914 -100.1541,45.6871 -100.1519,45.6806 -100.1498,45.6714 -100.1515,45.6637 -100.1532,45.6573 -100.159,45.6465 -100.1685,45.6394 -100.1779,45.6337 -100.1893,45.629 -100.2052,45.6248 -100.2188,45.6247 -100.2404,45.6249 -100.2593,45.6245 -100.2692,45.6211 -100.2734,45.6175 -100.2757,45.6107 -100.2776,45.5998 -100.2794,45.5897 -100.2814,45.5761 -100.2854,45.5625 -100.2897,45.5548 -100.2911,45.553 -100.2972,45.5495 -100.3006,45.5473 -100.3111,45.5439 -100.3197,45.5419 -100.3285,45.5366 -100.3333,45.5317 -100.3369,45.5254 -100.3378,45.5208 -100.3356,45.5125 -100.3322,45.5037 -100.3267,45.4958 -100.3185,45.4906 -100.3128,45.4872 -100.3041,45.4811 -100.2899,45.4789 -100.275,45.4766 -100.2549,45.4766 -100.2426,45.4753 -100.233,45.4728 -100.2176,45.4678 -100.2069,45.4606 -100.1988,45.4549 -100.1918,45.441 -100.1872,45.4285 -100.1856,45.4226 -100.1834,45.4161 -100.1779,45.41 -100.1722,45.4071 -100.1622,45.3986 -100.153,45.3887 -100.1426,45.377 -100.1373,45.3673 -100.1308,45.3566 -100.1267,45.3487 -100.1267,45.3368 -100.1291,45.3286 -100.1386,45.3211 -100.15,45.3146 -100.1595,45.3061 -100.1659,45.2976 -100.1688,45.2904 -100.1692,45.2845 -100.1582,45.2709 -100.149,45.262 -100.1349,45.2474 -100.1233,45.2347 -100.1178,45.2168 -100.1188,45.1994 -100.1265,45.1777 -100.1354,45.1569 -100.1346,45.1473 -100.1331,45.139 -100.1345,45.1263 -100.1375,45.1177 -100.143,45.1123 -100.1539,45.1035 -100.1646,45.0965 -100.1715,45.0884 -100.1764,45.0822 -100.179,45.0699 -100.179,45.0571 -100.1783,45.047 -100.1687,45.0331 -100.1639,45.0265 -100.1565,45.0195 -100.1477,45.0156 -100.1345,45.0088 -100.1277,45.0027 -100.1301,44.9954 -100.1401,44.9898 -100.1492,44.9882 -100.1678,44.9905 -100.1844,44.9937 -100.2017,44.9965 -100.2243,44.9976 -100.2432,44.9935 -100.2583,44.9889 -100.2718,44.9778 -100.2767,44.9716 -100.2772,44.9611 -100.2773,44.9469 -100.2755,44.9336 -100.2752,44.9149 -100.2686,44.8923 -100.2623,44.8784 -100.2534,44.8636 -100.2487,44.8548 -100.2457,44.851 -100.2447,44.846 -100.2456,44.841 -100.2472,44.8346 -100.2501,44.8283 -100.2543,44.8216 -100.2688,44.8165 -100.2781,44.8113 -100.2886,44.807 -100.3025,44.8 -100.3152,44.7922 -100.3232,44.786 -100.3312,44.7807 -100.3394,44.7727 -100.3462,44.7651 -100.3524,44.7575 -100.3598,44.7513 -100.368,44.7424 -100.3753,44.7371 -100.3885,44.7315 -100.4028,44.7287 -100.4138,44.7271 -100.4298,44.7285 -100.447,44.7316 -100.4589,44.7374 -100.4697,44.7414 -100.4793,44.7553 -100.4927,44.7693 -100.4982,44.7759 -100.5056,44.7815 -100.5137,44.7881 -100.5218,44.7924 -100.5352,44.795 -100.5487,44.7967 -100.5577,44.7965 -100.5644,44.7916 -100.5691,44.7863 -100.5753,44.7787 -100.5775,44.7723 -100.578,44.7618 -100.576,44.7499 -100.5738,44.7439 -100.5657,44.7369 -100.562,44.7354 -100.5564,44.7303 -100.5476,44.7264 -100.5387,44.7239 -100.528,44.7204 -100.521,44.7189 -100.5134,44.7164 -100.5013,44.7134 -100.4937,44.7109 -100.4861,44.708 -100.48,44.7028 -100.4777,44.6968 -100.4768,44.6886 -100.4753,44.6794 -100.4725,44.6716 -100.4696,44.6656 -100.4648,44.6586 -100.4638,44.6531 -100.4643,44.6435 -100.4679,44.6349 -100.4722,44.6264 -100.4758,44.6182 -100.4802,44.6079 -100.489,44.5976 -100.4934,44.5877 -100.4934,44.5744 -100.492,44.5643 -100.4882,44.551 -100.4816,44.5413 -100.4698,44.5337 -100.4578,44.5293 -100.4458,44.5258 -100.4305,44.5231 -100.422,44.527 -100.4142,44.5295 -100.4047,44.5265 -100.3939,44.5258 -100.3805,44.5236 -100.3688,44.5146 -100.3658,44.5095 -100.3663,44.5009 -100.3692,44.4932 -100.374,44.4883 -100.3799,44.4862 -100.3922,44.4824 -100.4025,44.4813 -100.4129,44.4788 -100.4266,44.4742 -100.4333,44.4693 -100.4394,44.4612 -100.4425,44.4517 -100.4417,44.4421 -100.4401,44.4362 -100.4334,44.4292 -100.4209,44.4234 -100.4108,44.4194 -100.3974,44.4182 -100.3878,44.4179 -100.3757,44.4181 -100.364,44.4214 -100.3464,44.426 -100.3303,44.4288 -100.3129,44.4306 -100.2911,44.4314 -100.2732,44.43 -100.2594,44.4255 -100.2462,44.4201 -100.2382,44.414 -100.2353,44.4084 -100.2324,44.4024 -100.229,44.3946 -100.2282,44.3859 -100.2278,44.3799 -100.2309,44.37 -100.2346,44.3623 -100.232,44.3508 -100.23,44.3394 -100.226,44.3315 -100.2199,44.3245 -100.2145,44.3184 -100.2076,44.3169 -100.203,44.3161 -100.3679,44.1396 -100.544,43.9512 -100.5439,43.6884 -100.5438,43.6884 -100.5376,43.6864 -100.5313,43.6848 -100.5268,43.6861 -100.5254,43.6888 -100.5234,43.6919 -100.5201,43.695 -100.5117,43.6976 -100.5078,43.6993 -100.5059,43.7006 -100.5063,43.7038 -100.5087,43.7075 -100.5073,43.7107 -100.4944,43.714 -100.4881,43.7129 -100.4807,43.7104 -100.4742,43.7121 -100.4651,43.7169 -100.461,43.7236 -100.4518,43.7302 -100.4441,43.7327 -100.4346,43.733 -100.4308,43.731 -100.4278,43.7291 -100.4241,43.7272 -100.4223,43.7244 -100.4185,43.7239 -100.4159,43.7252 -100.4127,43.7269 -100.4076,43.7263 -100.404,43.7231 -100.4036,43.7189 -100.4044,43.7158 -100.406,43.7085 -100.4042,43.7057 -100.3998,43.7056 -100.3959,43.7069 -100.3902,43.7086 -100.3837,43.7107 -100.3779,43.7123 -100.3717,43.7099 -100.3693,43.7071 -100.3684,43.6998 -100.3634,43.6983 -100.3564,43.6995 -100.3512,43.7021 -100.346,43.7038 -100.3392,43.7018 -100.3354,43.7007 -100.3316,43.702 -100.3277,43.7037 -100.3232,43.7041 -100.3222,43.6986 -100.3232,43.6927 -100.324,43.6895 -100.3241,43.6868 -100.3171,43.687 -100.3119,43.6896 -100.3042,43.6922 -100.3009,43.6948 -100.2957,43.6969 -100.2907,43.695 -100.2858,43.6917 -100.2815,43.6893 -100.2759,43.6873 -100.2715,43.6867 -100.2645,43.687 -100.2638,43.6893 -100.2643,43.6925 -100.2646,43.6975 -100.2619,43.701 -100.2549,43.7022 -100.2493,43.7007 -100.2437,43.6983 -100.2355,43.6967 -100.2271,43.6992 -100.22,43.7022 -100.2124,43.7024 -100.2025,43.6985 -100.1901,43.6927 -100.1852,43.6894 -100.1809,43.6879 -100.1695,43.6871 -100.1575,43.6868 -100.1505,43.687 -100.1438,43.6823 -100.1403,43.6772 -100.1379,43.6739 -100.1343,43.6706 -100.1291,43.6728 -100.122,43.6758 -100.1111,43.6786 -100.106,43.678 -100.0985,43.676 -100.0914,43.6781 -100.0786,43.6809 -100.0809,43.445 -100.0632,43.444 -100.0647,43.3603 -100.0664,43.1003 -100.0501,43.1003 -100.0469,42.957 -100.7511,42.9541 -100.7516,42.9541 -100.7503,42.7893 -100.7045,42.7893 -100.7045,42.7526 -100.6987,42.7526 -100.6987,42.7274 -100.7351,42.727 -100.7354,42.5762 -100.6266,42.5751 -100.6254,42.3975 -100.6644,42.3975 -100.6644,42.3185 -100.6552,42.3185 -100.6548,42.1738 -100.5945,42.1737 -100.5945,42.0475 -100.5934,42.0474 -100.5945,42.0474 -100.6919,42.048 -100.6865,41.7046 -101.2556,41.7031 -101.2499,41.3577 -101.1097,41.3561 -101.1097,41.0104 -101.0902,41.0071 -101.0922,40.9668 -101.0902,40.6637 -101.1878,40.6634 -101.1886,40.3092 -101.1693,40.3088 -101.169,39.9678 -101.2542,39.967 -101.8983,39.9649 -101.8962,39.5347 -101.8956,39.5288 -101.2536,39.5331 -101.2321,39.5313 -101.234,39.0952 -101.32,39.0939 -101.3254,38.6606 -101.4103,38.6592 -101.4076,38.2228 -101.3859,38.2214 -101.384,37.7904 -101.37,37.789 -101.3676,37.6975 -101.8908,37.7003 -101.8912,37.6074 -101.8888,37.3522 -101.8877,36.9535 -102.2783,36.958 -102.3826,36.9591 -102.5578,36.9611 -102.5607,36.9612 -102.5702,36.9613 -102.577,36.9627 -102.5819,36.9637 -102.5851,36.9643 -102.6022,36.9643 -102.6143,36.9644 -102.8445,36.9648 -102.8509,36.9648 -102.8502,36.459 -102.8741,36.458 -102.8708,36.0254 -102.8694,35.7082 -102.8691,35.5928 -102.869,35.5896 -102.8729,35.1478 -102.8729,35.1432 -102.872,34.9325 -102.8736,34.7181 -102.8788,34.5798 -102.8803,34.2757 -102.8796,34.2152 -102.8842,33.7944 -102.888,33.5359 -102.8882,33.5317 -102.8955,33.3459 -102.8992,32.9174 -102.8993,32.4818 -102.9054,32.4817 -102.9024,32.0509 -102.9052,31.9668 -103.1689,31.9654 -103.1795,31.9655 -103.5635,31.9708 -103.8281,31.971 -103.8426,31.9719 -103.8661,31.9732 -104.1747,31.9709 -104.2436,31.9707 -104.2721,31.9706 -104.3208,31.9704 -104.3787,31.9703 -104.4256,31.9701 -104.4549,31.9699 -104.5041,31.9696 -104.5289,31.9694 -104.5647,31.9692 -104.5743,31.9691 -104.6348,31.9687 -104.6783,31.9692 -104.6891,31.9693 -104.6981,31.9694 -104.7101,31.969 -104.7265,31.9693 -104.758,31.9663 -104.769,31.9665 -104.7628,30.9496 -104.7492,30.9471 -104.7493,30.781 -104.7628,30.7816 -104.7621,30.6476 -104.8342,30.6073 -104.8344,30.6089 -104.8545,30.5981 -104.8475,30.595 2000,-5.0,United States -89.7236,46.7364 -89.705,46.7346 -89.7041,46.5654 -89.5838,46.5615 -89.5815,46.4762 -89.2093,46.4718 -89.2064,46.3031 -88.8345,46.3009 -88.8346,46.3843 -88.5188,46.3887 -87.9612,46.3901 -87.959,46.2146 -87.4574,46.2127 -87.4608,45.9554 -87.212,45.9531 -87.2115,45.867 -87.1717,45.8659 -87.1712,45.5201 -87.1078,45.5208 -87.1047,45.5254 -87.0985,45.534 -87.0898,45.5412 -87.0852,45.5443 -87.0811,45.5497 -87.0783,45.5556 -87.0721,45.5637 -87.062,45.5732 -87.058,45.5772 -87.0506,45.5849 -87.0416,45.5984 -87.0321,45.6092 -87.0295,45.6115 -87.0194,45.6191 -87.0167,45.6213 -87.0127,45.6263 -87.0113,45.629 -87.0066,45.6312 -86.9981,45.6334 -86.9907,45.6396 -86.9834,45.6441 -86.9734,45.6485 -86.9636,45.6506 -86.9485,45.6517 -86.9407,45.6529 -86.938,45.6556 -86.9391,45.6589 -86.9384,45.6616 -86.9337,45.6656 -86.9284,45.6669 -86.9225,45.6682 -86.9192,45.669 -86.9153,45.6699 -86.9126,45.6707 -86.9112,45.673 -86.9145,45.673 -86.9191,45.6727 -86.925,45.6714 -86.9289,45.6719 -86.9315,45.672 -86.9392,45.6744 -86.9339,45.6771 -86.926,45.6783 -86.9228,45.6782 -86.9161,45.6831 -86.9106,45.6904 -86.9059,45.6939 -86.8992,45.6993 -86.8938,45.7029 -86.8903,45.7101 -86.8922,45.7115 -86.8947,45.7143 -86.8966,45.7157 -86.8997,45.7213 -86.9039,45.7296 -86.9025,45.7341 -86.9029,45.7396 -86.9047,45.7438 -86.9064,45.7521 -86.903,45.7561 -86.8989,45.7592 -86.8989,45.7615 -86.8974,45.7661 -86.895,45.7775 -86.8894,45.7865 -86.8853,45.7919 -86.8759,45.8005 -86.8678,45.8067 -86.8625,45.8089 -86.8545,45.8115 -86.8486,45.8128 -86.8446,45.8141 -86.8445,45.8173 -86.8477,45.8192 -86.8516,45.8202 -86.8542,45.8216 -86.8567,45.8225 -86.8586,45.8253 -86.8591,45.8294 -86.8544,45.8326 -86.8497,45.8371 -86.8495,45.8407 -86.8407,45.8488 -86.836,45.8515 -86.8307,45.8536 -86.8279,45.8577 -86.8265,45.8618 -86.8277,45.8646 -86.8302,45.8669 -86.8295,45.8692 -86.8248,45.8723 -86.8234,45.8746 -86.8233,45.8768 -86.8225,45.88 -86.8192,45.8827 -86.8152,45.8826 -86.8106,45.883 -86.8066,45.8848 -86.8048,45.8811 -86.7997,45.8787 -86.7964,45.88 -86.7904,45.8817 -86.7879,45.8798 -86.79,45.8758 -86.7927,45.8735 -86.7967,45.8718 -86.8006,45.8705 -86.8046,45.8701 -86.8092,45.8683 -86.8074,45.8656 -86.801,45.8609 -86.7966,45.8558 -86.7943,45.8493 -86.8096,45.8253 -86.815,45.8204 -86.8217,45.8164 -86.8284,45.811 -86.8272,45.8087 -86.8327,45.802 -86.8353,45.8006 -86.8407,45.798 -86.844,45.7958 -86.8473,45.7949 -86.8493,45.7936 -86.8488,45.7899 -86.847,45.7862 -86.8433,45.7811 -86.8389,45.776 -86.8333,45.7681 -86.8306,45.7543 -86.8315,45.7466 -86.8324,45.7388 -86.8321,45.7319 -86.8316,45.7273 -86.8286,45.7204 -86.8275,45.7154 -86.8263,45.7108 -86.8266,45.7026 -86.8275,45.6966 -86.8285,45.687 -86.83,45.6834 -86.8314,45.6807 -86.8348,45.6753 -86.8357,45.6707 -86.8313,45.667 -86.8262,45.6637 -86.8224,45.6599 -86.8193,45.6553 -86.8182,45.6507 -86.8183,45.6461 -86.8185,45.642 -86.816,45.6388 -86.8122,45.6373 -86.8101,45.6409 -86.8086,45.6441 -86.8092,45.6473 -86.8091,45.6501 -86.8077,45.6519 -86.8009,45.6577 -86.7935,45.6649 -86.7868,45.6698 -86.7794,45.6747 -86.7762,45.6751 -86.7729,45.6745 -86.7724,45.6718 -86.7725,45.6686 -86.7726,45.6659 -86.7715,45.6617 -86.7636,45.662 -86.7603,45.6624 -86.7563,45.6669 -86.7534,45.6723 -86.7474,45.6763 -86.7376,45.6771 -86.7291,45.6778 -86.7107,45.6807 -86.7002,45.6832 -86.6903,45.6858 -86.6876,45.6885 -86.6868,45.6916 -86.6873,45.6962 -86.6903,45.7027 -86.6933,45.7073 -86.6938,45.7115 -86.6918,45.7132 -86.6885,45.7136 -86.6847,45.7117 -86.6814,45.7112 -86.6793,45.7162 -86.6792,45.7185 -86.6777,45.7226 -86.6768,45.7294 -86.674,45.7335 -86.6679,45.7393 -86.6613,45.7419 -86.6567,45.7423 -86.6501,45.7426 -86.6468,45.7444 -86.6467,45.7471 -86.6493,45.7476 -86.6532,45.7486 -86.6557,45.7501 -86.6576,45.7528 -86.6601,45.7556 -86.6573,45.7583 -86.6547,45.7596 -86.6507,45.7605 -86.6454,45.7627 -86.6421,45.7635 -86.6388,45.7639 -86.6362,45.7657 -86.6328,45.7679 -86.6281,45.771 -86.6241,45.7732 -86.6213,45.7764 -86.6205,45.7805 -86.6229,45.7869 -86.624,45.792 -86.627,45.7971 -86.629,45.798 -86.6328,45.7986 -86.6374,45.7996 -86.6406,45.8019 -86.6364,45.8069 -86.6324,45.8095 -86.6304,45.8113 -86.6294,45.8186 -86.63,45.8214 -86.6292,45.825 -86.6225,45.829 -86.6132,45.8325 -86.6026,45.8341 -86.5909,45.832 -86.5877,45.8315 -86.5858,45.8292 -86.5847,45.8251 -86.5842,45.8209 -86.5791,45.8181 -86.5733,45.8152 -86.5695,45.8138 -86.5681,45.8116 -86.5658,45.8082 -86.5639,45.8077 -86.5599,45.8081 -86.5579,45.8089 -86.5526,45.8102 -86.5474,45.8106 -86.5416,45.8095 -86.5351,45.8071 -86.528,45.8051 -86.5177,45.8026 -86.5119,45.7998 -86.5026,45.8032 -86.4981,45.8018 -86.4922,45.8016 -86.4897,45.8007 -86.4882,45.8029 -86.4855,45.8061 -86.4795,45.8096 -86.4781,45.8119 -86.4786,45.8146 -86.479,45.8201 -86.4761,45.8269 -86.4733,45.831 -86.4645,45.8372 -86.4611,45.8413 -86.4596,45.8444 -86.4531,45.8443 -86.4499,45.8428 -86.4467,45.8423 -86.4406,45.8463 -86.4372,45.8499 -86.4284,45.857 -86.419,45.8619 -86.4105,45.8626 -86.402,45.8615 -86.3949,45.8591 -86.3879,45.8539 -86.3836,45.8483 -86.3807,45.8395 -86.3818,45.8304 -86.3835,45.8213 -86.3851,45.8158 -86.3928,45.8041 -86.4046,45.7888 -86.4081,45.7824 -86.4083,45.7788 -86.4118,45.7738 -86.4192,45.768 -86.4246,45.7649 -86.4259,45.7631 -86.4254,45.7608 -86.4242,45.7581 -86.4191,45.7543 -86.4122,45.7487 -86.4066,45.743 -86.4054,45.7407 -86.4081,45.7371 -86.4121,45.7372 -86.416,45.7378 -86.4276,45.7412 -86.4314,45.7422 -86.4385,45.7442 -86.4451,45.7434 -86.4471,45.7421 -86.4497,45.7421 -86.4523,45.7427 -86.4555,45.7441 -86.4594,45.7456 -86.4619,45.747 -86.4671,45.7485 -86.4703,45.7495 -86.4742,45.7495 -86.4788,45.7492 -86.4814,45.7492 -86.4834,45.7484 -86.4822,45.7456 -86.4778,45.7409 -86.4773,45.7386 -86.4793,45.7377 -86.4819,45.7369 -86.4853,45.7338 -86.4821,45.7328 -86.4743,45.7312 -86.4711,45.7302 -86.4686,45.7275 -86.4701,45.7243 -86.4689,45.722 -86.4677,45.7178 -86.4666,45.7146 -86.4673,45.7123 -86.4693,45.7119 -86.4712,45.7124 -86.4731,45.7143 -86.475,45.7161 -86.4769,45.7176 -86.4807,45.7199 -86.4827,45.7195 -86.4841,45.7177 -86.4863,45.7109 -86.4898,45.705 -86.4912,45.7028 -86.4966,45.6997 -86.5019,45.6975 -86.5071,45.6971 -86.5118,45.6959 -86.5144,45.6946 -86.5185,45.6919 -86.5205,45.6901 -86.5188,45.6841 -86.515,45.6804 -86.5127,45.6748 -86.5141,45.6712 -86.5169,45.6676 -86.5248,45.6646 -86.5315,45.6615 -86.5362,45.6589 -86.5447,45.6563 -86.5487,45.6559 -86.5539,45.6551 -86.5579,45.6529 -86.5606,45.6502 -86.562,45.648 -86.5635,45.6439 -86.5644,45.6389 -86.5652,45.6352 -86.5628,45.6301 -86.5605,45.6228 -86.5549,45.6162 -86.551,45.6166 -86.5463,45.6188 -86.5423,45.6206 -86.5392,45.6178 -86.5374,45.6145 -86.5356,45.6108 -86.5325,45.6057 -86.5263,45.5992 -86.5193,45.594 -86.5116,45.5916 -86.5039,45.5887 -86.4924,45.5852 -86.4827,45.5818 -86.475,45.5807 -86.4712,45.5779 -86.4694,45.5747 -86.4662,45.5737 -86.4623,45.5722 -86.4584,45.5717 -86.4558,45.573 -86.4504,45.5761 -86.4477,45.5783 -86.4476,45.5815 -86.4488,45.5834 -86.4507,45.5843 -86.4546,45.5858 -86.4565,45.5867 -86.4597,45.5882 -86.4615,45.591 -86.4651,45.597 -86.4675,45.6025 -86.468,45.6066 -86.4696,45.6135 -86.4705,45.6227 -86.4696,45.6286 -86.4675,45.6327 -86.4628,45.6363 -86.4588,45.6385 -86.4529,45.6393 -86.4503,45.6383 -86.4471,45.6382 -86.4432,45.6377 -86.4379,45.6385 -86.4346,45.6402 -86.4345,45.6425 -86.4343,45.6457 -86.4329,45.6494 -86.4308,45.6516 -86.4293,45.6566 -86.4292,45.6589 -86.429,45.6639 -86.4274,45.6703 -86.4232,45.6761 -86.4179,45.6788 -86.4146,45.6801 -86.4093,45.6813 -86.4041,45.6817 -86.3962,45.6824 -86.3923,45.6833 -86.3864,45.6827 -86.3838,45.6817 -86.3812,45.6821 -86.3787,45.6836 -86.3745,45.6861 -86.3718,45.6892 -86.3691,45.691 -86.371,45.6929 -86.376,45.6962 -86.3753,45.6984 -86.3732,45.7002 -86.3692,45.702 -86.3671,45.7056 -86.3689,45.7088 -86.3715,45.7098 -86.3741,45.7103 -86.376,45.7117 -86.3765,45.7149 -86.3738,45.7158 -86.3719,45.7162 -86.3692,45.7171 -86.3653,45.7179 -86.3587,45.7187 -86.3547,45.7213 -86.3526,45.7231 -86.3481,45.7225 -86.3455,45.722 -86.3416,45.7215 -86.3384,45.721 -86.3358,45.7204 -86.3332,45.7195 -86.3298,45.7217 -86.3278,45.7244 -86.3264,45.7262 -86.3242,45.7312 -86.3202,45.7329 -86.3169,45.7333 -86.315,45.7323 -86.3125,45.7312 -86.3099,45.7299 -86.3054,45.728 -86.3032,45.7291 -86.2995,45.7293 -86.2929,45.7296 -86.2884,45.7295 -86.2863,45.7317 -86.2849,45.7344 -86.2814,45.7389 -86.2799,45.7409 -86.2754,45.7432 -86.268,45.7469 -86.2684,45.7523 -86.2663,45.7541 -86.2623,45.7568 -86.2589,45.759 -86.2437,45.7592 -86.2412,45.7604 -86.2366,45.7621 -86.2274,45.7619 -86.2216,45.7609 -86.217,45.7608 -86.2111,45.7611 -86.2053,45.7614 -86.2013,45.7627 -86.1972,45.7654 -86.1919,45.7666 -86.1874,45.7665 -86.1833,45.7696 -86.1858,45.7719 -86.1897,45.7734 -86.1962,45.774 -86.1993,45.7768 -86.1973,45.7782 -86.1953,45.779 -86.1919,45.7822 -86.1889,45.789 -86.1867,45.7944 -86.1844,45.8026 -86.1821,45.808 -86.1797,45.818 -86.1743,45.8211 -86.1689,45.8246 -86.1721,45.827 -86.1766,45.8276 -86.1785,45.8295 -86.1807,45.8373 -86.1779,45.8427 -86.1744,45.8468 -86.1695,45.854 -86.1673,45.8594 -86.165,45.8653 -86.1627,45.8717 -86.1593,45.8762 -86.1564,45.8802 -86.1503,45.8851 -86.1416,45.8899 -86.1389,45.8922 -86.1309,45.8938 -86.1283,45.8942 -86.1222,45.8973 -86.116,45.9035 -86.1133,45.9067 -86.1098,45.9112 -86.1064,45.9129 -86.0992,45.9132 -86.0972,45.9136 -86.0932,45.9153 -86.0872,45.9179 -86.08,45.9187 -86.076,45.9186 -86.0682,45.9189 -86.0635,45.9201 -86.0549,45.9231 -86.0475,45.9266 -86.0389,45.9282 -86.0311,45.9262 -86.0253,45.9251 -86.0182,45.9227 -86.013,45.9212 -86.0054,45.9178 -85.9968,45.918 -85.9836,45.92 -85.9784,45.9208 -85.971,45.9243 -85.9623,45.9277 -85.953,45.9293 -85.9438,45.9309 -85.93,45.931 -85.915,45.9302 -85.9066,45.9286 -85.8923,45.9264 -85.8748,45.9223 -85.8606,45.9178 -85.8432,45.9132 -85.8373,45.9131 -85.8282,45.9124 -85.8224,45.9109 -85.8166,45.9084 -85.8109,45.9055 -85.8,45.9002 -85.7808,45.8924 -85.7675,45.8852 -85.7642,45.8842 -85.7615,45.8855 -85.7575,45.8886 -85.7573,45.8922 -85.7597,45.895 -85.7628,45.8983 -85.7685,45.9021 -85.771,45.904 -85.7715,45.9072 -85.77,45.9109 -85.7636,45.9194 -85.7621,45.9239 -85.7567,45.9275 -85.7452,45.934 -85.7359,45.9365 -85.728,45.9363 -85.7214,45.9366 -85.707,45.9354 -85.7045,45.9352 -85.6908,45.9344 -85.6863,45.9329 -85.6829,45.9342 -85.6803,45.9355 -85.6748,45.9395 -85.6721,45.9412 -85.6626,45.946 -85.658,45.9468 -85.6502,45.9466 -85.641,45.9454 -85.6352,45.9448 -85.6287,45.9428 -85.6229,45.9413 -85.6178,45.9398 -85.6094,45.9372 -85.6003,45.9341 -85.5966,45.9328 -85.5932,45.9336 -85.59,45.933 -85.5861,45.932 -85.5822,45.9314 -85.5777,45.9309 -85.5744,45.9303 -85.5718,45.9307 -85.5691,45.9311 -85.5658,45.9319 -85.5626,45.9314 -85.5573,45.9326 -85.552,45.9334 -85.5494,45.9333 -85.5396,45.9325 -85.5363,45.9325 -85.5343,45.9333 -85.5323,45.9342 -85.5302,45.9359 -85.521,45.9375 -85.5184,45.937 -85.5124,45.9373 -85.5072,45.9371 -85.5025,45.9388 -85.4985,45.941 -85.4942,45.9468 -85.4914,45.9509 -85.4865,45.9549 -85.4831,45.9575 -85.4749,45.9628 -85.4694,45.9681 -85.4619,45.9734 -85.4507,45.985 -85.4457,45.9913 -85.4422,45.9962 -85.4364,46.0043 -85.4295,46.0105 -85.4252,46.0163 -85.4212,46.018 -85.4185,46.0193 -85.4163,46.0225 -85.4127,46.0283 -85.4097,46.0347 -85.4061,46.0401 -85.4032,46.0446 -85.3997,46.0481 -85.3936,46.0516 -85.3908,46.0543 -85.388,46.0574 -85.3826,46.0605 -85.3785,46.0626 -85.3705,46.0651 -85.3632,46.0658 -85.3541,46.0656 -85.3416,46.0648 -85.3312,46.0631 -85.3086,46.0578 -85.3028,46.0563 -85.2996,46.0548 -85.295,46.0537 -85.2931,46.0532 -85.2878,46.054 -85.2835,46.0598 -85.2827,46.0625 -85.2792,46.0657 -85.2772,46.066 -85.2719,46.0668 -85.2667,46.0667 -85.2602,46.0655 -85.2563,46.064 -85.2524,46.0635 -85.2486,46.0624 -85.2382,46.0598 -85.2363,46.0584 -85.2352,46.0561 -85.234,46.0533 -85.2322,46.0519 -85.2317,46.0491 -85.2284,46.049 -85.2236,46.0516 -85.2216,46.0525 -85.2169,46.0546 -85.2135,46.0563 -85.2048,46.0597 -85.2027,46.0606 -85.1988,46.0614 -85.1915,46.0616 -85.1863,46.0615 -85.1778,46.0598 -85.1713,46.0587 -85.1617,46.0561 -85.1572,46.0542 -85.1527,46.0526 -85.1508,46.0508 -85.149,46.0484 -85.1453,46.0455 -85.1428,46.0432 -85.1364,46.0411 -85.1325,46.0406 -85.1255,46.0371 -85.1222,46.0361 -85.1158,46.0345 -85.1119,46.0335 -85.0918,46.0306 -85.0846,46.0304 -85.0774,46.0297 -85.0709,46.0286 -85.0606,46.0255 -85.0514,46.0252 -85.0482,46.0251 -85.045,46.0236 -85.0412,46.0207 -85.0387,46.0197 -85.0341,46.0187 -85.0315,46.0195 -85.0344,46.0251 -85.0349,46.0274 -85.0322,46.0283 -85.029,46.0268 -85.0226,46.0243 -85.0182,46.0223 -85.0091,46.0197 -84.9943,46.016 -84.9795,46.0119 -84.9712,46.0084 -84.9508,45.9995 -84.9367,45.994 -84.9291,45.9897 -84.9246,45.9881 -84.9156,45.9856 -84.9046,45.9843 -84.8981,45.9836 -84.889,45.9824 -84.8799,45.9803 -84.8696,45.9781 -84.8252,45.9468 -84.8104,45.9331 -84.7968,45.9202 -84.7839,45.9083 -84.7652,45.8949 -84.7661,45.8903 -84.7625,45.8865 -84.7599,45.8851 -84.7547,45.8854 -84.7514,45.8862 -84.748,45.8874 -84.744,45.8891 -84.7407,45.8886 -84.7395,45.8867 -84.7378,45.8839 -84.7334,45.8805 -84.724,45.8752 -84.7151,45.8707 -84.705,45.8653 -84.6993,45.8633 -84.6942,45.8613 -84.6914,45.8543 -84.6888,45.8451 -84.6847,45.8381 -84.6816,45.8348 -84.6784,45.8342 -84.6719,45.834 -84.6693,45.8334 -84.6634,45.8332 -84.6564,45.8312 -84.6519,45.8292 -84.6488,45.8272 -84.6469,45.8258 -84.6445,45.8239 -84.6401,45.821 -84.6337,45.8185 -84.628,45.8164 -84.6228,45.8153 -84.6177,45.8138 -84.6101,45.8098 -84.6083,45.808 -84.6044,45.8074 -84.6017,45.8086 -84.5963,45.8117 -84.5929,45.8129 -84.5862,45.8145 -84.5784,45.8142 -84.5712,45.8144 -84.5666,45.8152 -84.5626,45.8155 -84.5599,45.8163 -84.5579,45.8172 -84.5558,45.8198 -84.5556,45.8226 -84.5587,45.8254 -84.5611,45.8275 -84.5646,45.8306 -84.5715,45.8369 -84.574,45.8393 -84.5758,45.8416 -84.5761,45.8467 -84.5744,45.8512 -84.5733,45.8585 -84.575,45.8618 -84.5798,45.8674 -84.5822,45.8703 -84.5846,45.8735 -84.5851,45.8768 -84.5849,45.8791 -84.5847,45.8823 -84.5819,45.8844 -84.5798,45.8857 -84.5753,45.8851 -84.5721,45.8832 -84.5695,45.8831 -84.5681,45.8853 -84.5685,45.889 -84.5708,45.8928 -84.5739,45.8952 -84.5775,45.8994 -84.5805,45.9036 -84.5841,45.9088 -84.5851,45.9121 -84.5843,45.9152 -84.5819,45.9211 -84.5775,45.9269 -84.5752,45.9314 -84.5718,45.934 -84.5677,45.9362 -84.5629,45.9383 -84.5557,45.9385 -84.5485,45.9383 -84.5452,45.9386 -84.5405,45.9407 -84.5396,45.9444 -84.5399,45.9494 -84.5401,45.9545 -84.5393,45.9572 -84.5376,45.9617 -84.5346,45.968 -84.5352,45.9767 -84.5392,45.986 -84.5396,45.9897 -84.5397,45.9971 -84.5367,46.002 -84.5339,46.0047 -84.5283,46.0095 -84.5234,46.0134 -84.5153,46.0164 -84.5099,46.0185 -84.5052,46.0197 -84.5025,46.0205 -84.4975,46.0176 -84.4912,46.0146 -84.4848,46.0116 -84.4797,46.0096 -84.4754,46.0062 -84.4703,46.0042 -84.462,46.0012 -84.4601,46.0002 -84.4557,45.9968 -84.4546,45.994 -84.4528,45.9926 -84.4488,45.9924 -84.4461,45.9937 -84.4434,45.9945 -84.4414,45.9949 -84.4382,45.9948 -84.4349,45.9951 -84.4303,45.9941 -84.4278,45.9935 -84.4238,45.9934 -84.4198,45.9941 -84.4172,45.994 -84.4099,45.9956 -84.4047,45.9954 -84.3969,45.9933 -84.392,45.9895 -84.3889,45.9866 -84.3865,45.9833 -84.3854,45.9814 -84.3843,45.9782 -84.3833,45.974 -84.3822,45.9717 -84.38,45.9657 -84.3795,45.9633 -84.3798,45.9601 -84.3788,45.9551 -84.3792,45.9505 -84.3807,45.9473 -84.3816,45.9437 -84.3826,45.9392 -84.3806,45.938 -84.3782,45.9367 -84.3736,45.9365 -84.3684,45.9373 -84.3649,45.9394 -84.362,45.943 -84.361,45.948 -84.3614,45.9512 -84.3599,45.9544 -84.3589,45.958 -84.3554,45.9611 -84.3508,45.9614 -84.3456,45.9612 -84.3423,45.9611 -84.3372,45.9595 -84.3358,45.958 -84.3335,45.9557 -84.3344,45.9534 -84.3308,45.9478 -84.3229,45.9406 -84.3171,45.9386 -84.3132,45.938 -84.31,45.9374 -84.3048,45.9372 -84.3032,45.9404 -84.3036,45.9436 -84.308,45.947 -84.3105,45.9484 -84.313,45.9499 -84.3173,45.9533 -84.3151,45.9573 -84.3111,45.9581 -84.3077,45.9598 -84.3081,45.9621 -84.3105,45.9654 -84.3128,45.9696 -84.3138,45.9742 -84.3121,45.9783 -84.3089,45.9782 -84.3056,45.9776 -84.3025,45.9752 -84.3014,45.9733 -84.2982,45.9718 -84.2962,45.9722 -84.2929,45.9721 -84.2883,45.9733 -84.2844,45.9727 -84.2818,45.9726 -84.2773,45.9715 -84.2753,45.971 -84.2729,45.9686 -84.2703,45.9676 -84.2677,45.9675 -84.2606,45.9667 -84.2521,45.966 -84.2444,45.9643 -84.2367,45.9613 -84.2304,45.9583 -84.2254,45.9553 -84.2223,45.952 -84.2198,45.951 -84.2148,45.9476 -84.2124,45.9448 -84.2106,45.9433 -84.2057,45.939 -84.2019,45.937 -84.1985,45.9378 -84.1996,45.9406 -84.2,45.9447 -84.201,45.9484 -84.2033,45.9522 -84.2063,45.956 -84.2074,45.9588 -84.2026,45.9613 -84.1954,45.9611 -84.1928,45.961 -84.1849,45.9616 -84.1796,45.9623 -84.1743,45.9626 -84.171,45.9624 -84.1659,45.9613 -84.1607,45.9607 -84.1536,45.959 -84.1505,45.9571 -84.1474,45.9547 -84.1436,45.9527 -84.1406,45.9498 -84.1394,45.9479 -84.137,45.9455 -84.1332,45.9431 -84.1306,45.9426 -84.1281,45.942 -84.1285,45.9452 -84.1296,45.9476 -84.132,45.9509 -84.1344,45.9532 -84.1381,45.9557 -84.1399,45.958 -84.1371,45.9602 -84.1339,45.9601 -84.1294,45.9585 -84.1257,45.9552 -84.1207,45.9523 -84.1188,45.9513 -84.1162,45.9516 -84.1101,45.9532 -84.105,45.9517 -84.0994,45.9482 -84.0962,45.9476 -84.0935,45.948 -84.0902,45.9483 -84.0817,45.948 -84.0793,45.9456 -84.0769,45.9428 -84.0732,45.939 -84.0701,45.937 -84.0682,45.936 -84.065,45.935 -84.0617,45.9362 -84.0621,45.9385 -84.065,45.9432 -84.0662,45.9451 -84.0627,45.9473 -84.0582,45.9471 -84.055,45.9456 -84.0519,45.9436 -84.0481,45.9417 -84.0424,45.9396 -84.0384,45.9399 -84.0351,45.9407 -84.0331,45.9411 -84.029,45.9427 -84.0253,45.9403 -84.021,45.936 -84.0192,45.9346 -84.017,45.9377 -84.0161,45.9399 -84.0166,45.9422 -84.0178,45.9441 -84.0168,45.9473 -84.0128,45.949 -84.0095,45.9484 -84.0057,45.9478 -83.9978,45.9475 -83.9927,45.9454 -83.9896,45.9439 -83.9877,45.9429 -83.9846,45.9405 -83.9793,45.9417 -83.9753,45.9425 -83.9733,45.9428 -83.9712,45.9437 -83.9692,45.944 -83.9652,45.9448 -83.9598,45.9443 -83.953,45.9425 -83.948,45.9395 -83.9398,45.9355 -83.9334,45.933 -83.9277,45.9309 -83.9206,45.9293 -83.9116,45.9271 -83.9058,45.9264 -83.8999,45.9257 -83.8947,45.9259 -83.8901,45.9262 -83.8802,45.9263 -83.87,45.9231 -83.8636,45.9215 -83.8591,45.9195 -83.8566,45.9185 -83.8547,45.9175 -83.8521,45.9178 -83.8444,45.9239 -83.8421,45.928 -83.8399,45.9306 -83.8378,45.9324 -83.8324,45.934 -83.8225,45.9349 -83.81,45.9344 -83.8029,45.9332 -83.799,45.9331 -83.7944,45.9333 -83.7911,45.9332 -83.7857,45.9357 -83.7789,45.9387 -83.7743,45.9389 -83.7717,45.9388 -83.7692,45.9364 -83.7654,45.9354 -83.7621,45.9352 -83.7596,45.9342 -83.7578,45.9323 -83.7561,45.9286 -83.7537,45.9262 -83.7521,45.9302 -83.7518,45.933 -83.7504,45.9347 -83.7487,45.9388 -83.7471,45.9419 -83.7502,45.9444 -83.7519,45.9481 -83.7527,45.9532 -83.7498,45.9567 -83.748,45.9631 -83.7056,46.0731 -83.7199,46.073 -83.772,46.042 -83.8053,46.0183 -83.8358,46.018 -83.9576,46.1505 -83.9706,46.1678 -83.9834,46.1876 -84.0384,46.3415 -84.0411,46.3722 -84.0352,46.3923 -84.0253,46.4128 -84.0006,46.4539 -84.0059,46.4763 -84.1497,46.4451 -84.1552,46.4508 -84.1588,46.4546 -84.1697,46.4596 -84.184,46.462 -84.1985,46.4625 -84.2126,46.4603 -84.2274,46.4567 -84.2383,46.4525 -84.2492,46.4484 -84.2632,46.4466 -84.2721,46.4423 -84.2886,46.4342 -84.2962,46.4295 -84.2992,46.425 -84.301,46.4182 -84.3023,46.4099 -84.3046,46.4059 -84.3101,46.4029 -84.3208,46.4015 -84.3293,46.4022 -84.3371,46.4043 -84.3429,46.405 -84.3455,46.406 -84.3497,46.4025 -84.3514,46.398 -84.3516,46.3957 -84.355,46.3935 -84.3604,46.3928 -84.3676,46.3926 -84.373,46.3919 -84.379,46.3907 -84.3824,46.3899 -84.3915,46.3829 -84.399,46.3791 -84.4098,46.3762 -84.4199,46.3739 -84.4245,46.374 -84.4309,46.3756 -84.4374,46.3782 -84.4399,46.3801 -84.4442,46.3844 -84.4458,46.3895 -84.4468,46.3936 -84.4451,46.3977 -84.4437,46.4 -84.4416,46.4008 -84.4396,46.4016 -84.4377,46.4007 -84.4358,46.3997 -84.434,46.3964 -84.4309,46.3935 -84.4278,46.3916 -84.4252,46.391 -84.4226,46.3905 -84.4185,46.3917 -84.4202,46.3964 -84.4219,46.3992 -84.4275,46.4044 -84.4358,46.4084 -84.4501,46.4128 -84.4626,46.4257 -84.47,46.4322 -84.4753,46.4369 -84.4796,46.4393 -84.4833,46.4422 -84.4854,46.4437 -84.488,46.4455 -84.4919,46.4474 -84.4937,46.4483 -84.502,46.4507 -84.5065,46.4518 -84.5111,46.4528 -84.5215,46.455 -84.5241,46.4551 -84.5321,46.454 -84.5382,46.452 -84.543,46.4494 -84.5546,46.4443 -84.5643,46.4377 -84.5857,46.4256 -84.5987,46.4197 -84.6243,46.4123 -84.6382,46.4109 -84.6508,46.41 -84.6594,46.4107 -84.6665,46.4119 -84.6781,46.4164 -84.6852,46.419 -84.6903,46.4219 -84.6985,46.4263 -84.7042,46.4302 -84.71,46.4327 -84.7131,46.4346 -84.719,46.4353 -84.7237,46.4345 -84.7264,46.4341 -84.7298,46.4329 -84.7371,46.4322 -84.7509,46.4322 -84.76,46.4348 -84.7671,46.4373 -84.7708,46.4402 -84.7731,46.4453 -84.7766,46.4523 -84.7785,46.4538 -84.7851,46.454 -84.7919,46.451 -84.7975,46.4466 -84.8036,46.4436 -84.8116,46.4425 -84.8163,46.4422 -84.8228,46.4429 -84.8287,46.444 -84.8353,46.4442 -84.838,46.4438 -84.8427,46.4426 -84.8499,46.4428 -84.8573,46.4417 -84.8651,46.4429 -84.8792,46.4498 -84.8867,46.4555 -84.8947,46.4636 -84.8988,46.4715 -84.8987,46.483 -84.8987,46.4931 -84.8982,46.4999 -84.8926,46.5043 -84.8825,46.5081 -84.871,46.5114 -84.8661,46.515 -84.8673,46.5173 -84.8697,46.521 -84.8776,46.5305 -84.881,46.5388 -84.8859,46.5551 -84.8843,46.5683 -84.8788,46.5916 -84.8728,46.6111 -84.8707,46.6225 -84.8713,46.6335 -84.8729,46.6497 -84.8741,46.6603 -84.8697,46.6771 -84.8617,46.6865 -84.8513,46.6944 -84.8421,46.7028 -84.8329,46.7113 -84.8181,46.7236 -84.8069,46.7315 -84.8027,46.7351 -84.8032,46.7374 -84.8065,46.7384 -84.8097,46.7394 -84.8202,46.7412 -84.8268,46.7418 -84.8442,46.7392 -84.8618,46.7343 -84.8753,46.7306 -84.8821,46.7285 -84.9022,46.7259 -84.9148,46.7259 -84.9287,46.7263 -84.9372,46.7275 -84.9629,46.7302 -84.9806,46.7326 -85.0018,46.7337 -85.0152,46.7309 -85.0326,46.7283 -85.0421,46.7258 -85.0609,46.7218 -85.0689,46.7216 -85.0772,46.7227 -85.082,46.7234 -85.0913,46.7241 -85.0972,46.7243 -85.1095,46.7196 -85.1263,46.7156 -85.1649,46.703 -85.2367,46.6776 -85.2652,46.6679 -85.2848,46.6611 -85.3153,46.6492 -85.3368,46.6443 -85.351,46.6401 -85.3696,46.6388 -85.3788,46.64 -85.4005,46.6416 -85.4274,46.646 -85.459,46.6492 -85.4741,46.6524 -85.4881,46.6509 -85.5186,46.649 -85.5438,46.6493 -85.5769,46.6488 -85.6,46.6499 -85.6166,46.6504 -85.6362,46.6536 -85.6579,46.6565 -85.6764,46.6584 -85.6981,46.6604 -85.7047,46.6608 -85.71,46.6611 -85.722,46.6601 -85.7346,46.659 -85.7473,46.6566 -85.7699,46.6544 -85.8033,46.6503 -85.846,46.6436 -85.8789,46.6352 -85.901,46.6303 -85.9177,46.6266 -85.9277,46.625 -85.9438,46.6213 -85.957,46.623 -85.9725,46.6298 -85.9783,46.6336 -85.9847,46.6374 -85.9906,46.6389 -85.9952,46.639 -86.0074,46.6343 -86.0135,46.6312 -86.023,46.6264 -86.0325,46.622 -86.0521,46.6124 -86.0806,46.598 -86.1132,46.5813 -86.1374,46.5736 -86.1596,46.565 -86.1927,46.5506 -86.2189,46.5416 -86.2417,46.5347 -86.2564,46.5319 -86.2726,46.5244 -86.2793,46.5223 -86.2846,46.521 -86.2906,46.5207 -86.2931,46.5235 -86.2983,46.5268 -86.3008,46.5292 -86.3047,46.5293 -86.3095,46.5271 -86.317,46.5222 -86.3239,46.5141 -86.3369,46.5048 -86.3561,46.4891 -86.376,46.474 -86.386,46.471 -86.4,46.4676 -86.4048,46.464 -86.4032,46.4553 -86.406,46.4512 -86.4212,46.4373 -86.4287,46.4306 -86.4467,46.426 -86.4561,46.422 -86.4531,46.4165 -86.456,46.4101 -86.4609,46.4047 -86.4663,46.4002 -86.4738,46.3963 -86.4785,46.3936 -86.4806,46.3905 -86.4853,46.3883 -86.4912,46.3884 -86.4971,46.3894 -86.5029,46.3932 -86.5007,46.3973 -86.4974,46.3981 -86.494,46.3999 -86.4932,46.4031 -86.4944,46.4068 -86.4988,46.4128 -86.5033,46.4143 -86.5118,46.4159 -86.5185,46.4146 -86.5298,46.4126 -86.5403,46.4132 -86.5449,46.4143 -86.5527,46.4167 -86.561,46.4219 -86.5713,46.429 -86.5795,46.437 -86.5807,46.4407 -86.5832,46.443 -86.589,46.4463 -86.5968,46.4506 -86.6066,46.4526 -86.6218,46.452 -86.6331,46.4504 -86.6432,46.446 -86.6493,46.4402 -86.6543,46.4311 -86.6552,46.4261 -86.6567,46.4211 -86.6609,46.4157 -86.6676,46.4121 -86.6829,46.4088 -86.6942,46.4081 -86.7021,46.4078 -86.7185,46.4104 -86.7256,46.4146 -86.7293,46.4193 -86.7298,46.4243 -86.7323,46.429 -86.744,46.4333 -86.7459,46.4338 -86.7498,46.4362 -86.7603,46.4378 -86.7629,46.4374 -86.7662,46.4374 -86.7708,46.4384 -86.778,46.4413 -86.785,46.446 -86.7901,46.4502 -86.7899,46.4562 -86.7923,46.4617 -86.7962,46.4619 -86.807,46.4744 -86.8108,46.4804 -86.8125,46.486 -86.8137,46.4901 -86.8169,46.4925 -86.8201,46.4944 -86.826,46.4954 -86.8326,46.496 -86.8359,46.4969 -86.8398,46.4975 -86.8438,46.498 -86.849,46.5004 -86.8535,46.5023 -86.8575,46.5024 -86.8635,46.5002 -86.8669,46.4961 -86.8717,46.493 -86.8763,46.4926 -86.8789,46.4931 -86.8842,46.4928 -86.8915,46.4915 -86.8963,46.4875 -86.9037,46.4853 -86.9103,46.4841 -86.9169,46.4837 -86.9196,46.4838 -86.9236,46.4825 -86.9256,46.4802 -86.9277,46.4784 -86.9297,46.4771 -86.9418,46.4709 -86.9518,46.4678 -86.9578,46.4675 -86.9637,46.4671 -86.9764,46.4641 -86.9889,46.4639 -87.0001,46.465 -87.0028,46.4651 -87.0086,46.4688 -87.0124,46.4712 -87.0151,46.4699 -87.0178,46.4676 -87.0219,46.4658 -87.0279,46.4646 -87.0391,46.4629 -87.0484,46.4631 -87.0603,46.4619 -87.0676,46.4607 -87.0841,46.4591 -87.1059,46.4604 -87.1355,46.4627 -87.1651,46.4645 -87.1914,46.4672 -87.2013,46.4679 -87.2092,46.4684 -87.2112,46.4694 -87.2137,46.4717 -87.2188,46.4778 -87.2239,46.4847 -87.2328,46.494 -87.2358,46.5032 -87.2337,46.5073 -87.2303,46.5105 -87.2263,46.5127 -87.2255,46.515 -87.23,46.5192 -87.2357,46.5271 -87.2362,46.5335 -87.2353,46.5408 -87.2332,46.5454 -87.2297,46.5485 -87.227,46.5522 -87.2275,46.5568 -87.2294,46.5586 -87.2308,46.5564 -87.2322,46.5536 -87.2369,46.5519 -87.2402,46.551 -87.2462,46.5511 -87.2481,46.552 -87.2507,46.5535 -87.2533,46.5558 -87.2565,46.5604 -87.2577,46.5632 -87.2604,46.5623 -87.2644,46.5601 -87.2664,46.5592 -87.269,46.5597 -87.275,46.5602 -87.2789,46.5608 -87.2821,46.5645 -87.284,46.5668 -87.2879,46.5705 -87.293,46.5743 -87.2996,46.5767 -87.3048,46.5781 -87.3133,46.5819 -87.3165,46.5843 -87.3191,46.5875 -87.3176,46.5934 -87.3155,46.5975 -87.314,46.603 -87.3159,46.6049 -87.3198,46.6059 -87.3257,46.6073 -87.3323,46.6088 -87.3369,46.6107 -87.3401,46.6135 -87.344,46.6163 -87.3485,46.621 -87.351,46.6242 -87.3561,46.6312 -87.3606,46.6349 -87.369,46.6419 -87.3682,46.6483 -87.3674,46.652 -87.3673,46.6547 -87.3705,46.6575 -87.3725,46.6585 -87.3758,46.6594 -87.3809,46.6664 -87.3841,46.6692 -87.386,46.6715 -87.3886,46.6734 -87.3925,46.6771 -87.399,46.6809 -87.4022,46.6837 -87.4081,46.6865 -87.4133,46.6902 -87.4198,46.6931 -87.4237,46.6968 -87.4256,46.6991 -87.4281,46.7037 -87.4299,46.7102 -87.4317,46.7148 -87.4353,46.7286 -87.4372,46.7328 -87.4363,46.7387 -87.4369,46.742 -87.4341,46.746 -87.4327,46.7497 -87.4353,46.7529 -87.4372,46.7539 -87.4425,46.7558 -87.4445,46.7563 -87.4484,46.7573 -87.4575,46.7643 -87.4627,46.7689 -87.4678,46.7727 -87.4731,46.7764 -87.4763,46.7774 -87.4783,46.7783 -87.4816,46.7784 -87.4856,46.7784 -87.4889,46.7785 -87.4916,46.778 -87.4969,46.7776 -87.4995,46.7791 -87.5028,46.78 -87.5054,46.7828 -87.5079,46.7856 -87.5105,46.7898 -87.5124,46.793 -87.5136,46.7981 -87.5187,46.805 -87.5233,46.8069 -87.5312,46.8088 -87.5332,46.8084 -87.5352,46.8066 -87.5355,46.803 -87.5358,46.8007 -87.5361,46.7965 -87.5382,46.7947 -87.5415,46.7934 -87.5442,46.7925 -87.5475,46.793 -87.5535,46.794 -87.562,46.7964 -87.5719,46.7988 -87.5784,46.804 -87.5796,46.8081 -87.5795,46.8127 -87.5781,46.8159 -87.5773,46.8195 -87.5799,46.8214 -87.5812,46.8237 -87.5831,46.8251 -87.5844,46.8279 -87.5863,46.8311 -87.5883,46.8316 -87.5943,46.8312 -87.5996,46.8295 -87.6056,46.8305 -87.6102,46.8319 -87.6134,46.8333 -87.616,46.8361 -87.6192,46.8398 -87.6237,46.8468 -87.627,46.8482 -87.6316,46.8491 -87.6369,46.8501 -87.6435,46.8502 -87.6501,46.8521 -87.6547,46.854 -87.6586,46.8573 -87.6626,46.8587 -87.6691,46.8606 -87.6751,46.8607 -87.6858,46.8567 -87.6959,46.8541 -87.6999,46.8541 -87.7051,46.8551 -87.711,46.8588 -87.7208,46.8645 -87.7274,46.8678 -87.7346,46.8724 -87.7412,46.8748 -87.7478,46.8758 -87.7591,46.8764 -87.7796,46.8762 -87.7962,46.8764 -87.8089,46.876 -87.8175,46.8743 -87.8275,46.8726 -87.8349,46.8717 -87.8388,46.8722 -87.8481,46.8728 -87.8587,46.8734 -87.8719,46.8758 -87.8838,46.8779 -87.8838,46.881 -87.9056,46.8844 -87.9115,46.8877 -87.9175,46.8878 -87.9235,46.8869 -87.9308,46.8856 -87.9422,46.883 -87.9628,46.88 -87.9828,46.8774 -87.9995,46.8748 -88.0148,46.8731 -88.0274,46.8705 -88.0321,46.8683 -88.0341,46.8664 -88.0375,46.8628 -88.0416,46.8605 -88.0476,46.8601 -88.0529,46.8584 -88.0543,46.8561 -88.0551,46.8455 -88.0612,46.8419 -88.0725,46.8383 -88.0786,46.8324 -88.0834,46.8279 -88.0861,46.8206 -88.0909,46.8142 -88.097,46.8078 -88.1017,46.8037 -88.1078,46.8001 -88.1158,46.7942 -88.1252,46.7906 -88.1326,46.787 -88.1385,46.7866 -88.1418,46.7876 -88.1424,46.7913 -88.1384,46.7949 -88.1337,46.7967 -88.1297,46.7989 -88.125,46.8021 -88.1189,46.8062 -88.1122,46.8112 -88.1095,46.8144 -88.1054,46.8212 -88.1033,46.8253 -88.0999,46.8299 -88.0979,46.8317 -88.0952,46.8335 -88.0938,46.8367 -88.0931,46.8413 -88.0909,46.8491 -88.0848,46.8573 -88.0787,46.8646 -88.0733,46.8686 -88.0532,46.8776 -88.0398,46.8807 -88.0224,46.8879 -88.0097,46.8956 -87.9982,46.9046 -87.988,46.9146 -87.9826,46.921 -87.9792,46.9228 -87.9771,46.9269 -87.9797,46.9288 -87.9844,46.9298 -87.9877,46.9298 -87.9937,46.9308 -87.9996,46.9304 -88.0037,46.9295 -88.0063,46.9295 -88.0144,46.9255 -88.021,46.9237 -88.027,46.9233 -88.0317,46.922 -88.035,46.9215 -88.0365,46.9165 -88.0399,46.9124 -88.0453,46.9092 -88.0553,46.9066 -88.066,46.9025 -88.0753,46.8994 -88.0874,46.8949 -88.0927,46.8927 -88.0981,46.8895 -88.1035,46.8854 -88.1156,46.8777 -88.1451,46.8601 -88.1673,46.8465 -88.18,46.8398 -88.1888,46.8334 -88.1981,46.8294 -88.2061,46.8294 -88.21,46.8304 -88.2127,46.8313 -88.2153,46.8341 -88.2179,46.8378 -88.2199,46.8383 -88.2232,46.8378 -88.2259,46.8365 -88.2299,46.8347 -88.2359,46.8297 -88.2413,46.8256 -88.2434,46.8215 -88.2414,46.8187 -88.2388,46.8178 -88.2335,46.8163 -88.2322,46.8145 -88.2302,46.8126 -88.2323,46.8062 -88.2344,46.8026 -88.2418,46.7971 -88.2492,46.7894 -88.26,46.7775 -88.2668,46.7693 -88.2809,46.7543 -88.2938,46.7397 -88.3031,46.7338 -88.3065,46.7307 -88.3099,46.7279 -88.3118,46.7275 -88.3185,46.7262 -88.3218,46.7266 -88.3258,46.7276 -88.3291,46.7285 -88.331,46.7299 -88.3323,46.7322 -88.3336,46.7341 -88.3336,46.7373 -88.3315,46.74 -88.3302,46.7418 -88.3268,46.7455 -88.3248,46.7473 -88.3221,46.7491 -88.3188,46.7505 -88.3141,46.7509 -88.3115,46.7513 -88.3082,46.7518 -88.3055,46.7545 -88.3034,46.7572 -88.3053,46.7618 -88.3092,46.772 -88.3111,46.7775 -88.3129,46.7844 -88.3181,46.7945 -88.3179,46.8041 -88.3224,46.8161 -88.3237,46.818 -88.3236,46.8212 -88.3229,46.8235 -88.3202,46.8285 -88.3175,46.8317 -88.3161,46.834 -88.3141,46.8367 -88.3121,46.8404 -88.312,46.8431 -88.3139,46.8473 -88.3139,46.8509 -88.3132,46.8537 -88.3111,46.8573 -88.3104,46.8596 -88.3084,46.8628 -88.307,46.8665 -88.3027,46.8745 -88.2993,46.8807 -88.2933,46.8939 -88.2893,46.9098 -88.2842,46.9195 -88.2817,46.929 -88.2826,46.9379 -88.2845,46.9466 -88.2883,46.9568 -88.2948,46.9655 -88.3,46.9697 -88.3119,46.9776 -88.3171,46.9818 -88.3198,46.9845 -88.3289,46.9933 -88.3362,46.9989 -88.3428,47.0012 -88.3448,46.9999 -88.3475,46.9976 -88.3489,46.9958 -88.3555,46.9935 -88.3588,46.9963 -88.3601,46.9986 -88.3581,47.0023 -88.3572,47.0133 -88.3538,47.0206 -88.3517,47.027 -88.3503,47.0339 -88.3509,47.0376 -88.3515,47.0436 -88.3527,47.0486 -88.3553,47.0546 -88.3558,47.0647 -88.3564,47.0698 -88.3583,47.0725 -88.3603,47.0744 -88.4054,47.0862 -88.4301,47.0859 -88.4407,47.0873 -88.4652,47.0971 -88.4743,47.1128 -88.475,47.1165 -88.4769,47.1202 -88.4789,47.1239 -88.4808,47.1253 -88.4848,47.1299 -88.4847,47.1345 -88.4833,47.1386 -88.482,47.1418 -88.4792,47.1473 -88.4752,47.1505 -88.4691,47.1569 -88.467,47.1656 -88.4662,47.1711 -88.4675,47.1762 -88.4688,47.1808 -88.4707,47.184 -88.474,47.19 -88.4785,47.1984 -88.49,47.1933 -88.506,47.192 -88.5187,47.1889 -88.5254,47.1852 -88.5335,47.1802 -88.549,47.1679 -88.5685,47.1561 -88.5819,47.1456 -88.6015,47.1255 -88.6048,47.1232 -88.6162,47.1219 -88.6262,47.1224 -88.6368,47.1211 -88.6496,47.1161 -88.6583,47.1097 -88.6657,47.1015 -88.6705,47.0937 -88.6745,47.0878 -88.6805,47.0864 -88.6999,47.0814 -88.7213,47.076 -88.732,47.0706 -88.7407,47.0605 -88.7468,47.0514 -88.7529,47.0371 -88.7563,47.0271 -88.7591,47.0179 -88.7631,47.0087 -88.7705,47.0009 -88.7755,46.9978 -88.7803,46.9942 -88.796,46.9827 -88.8046,46.9781 -88.816,46.9731 -88.8333,46.9668 -88.842,46.9631 -88.8586,46.9618 -88.8639,46.9678 -88.8659,46.9719 -88.8712,46.9729 -88.8738,46.972 -88.8805,46.9683 -88.8899,46.9642 -88.9005,46.9587 -88.9232,46.9524 -88.9318,46.951 -88.9404,46.9534 -88.9471,46.9566 -88.9557,46.9598 -88.9603,46.9621 -88.9637,46.9635 -88.9676,46.9635 -88.9723,46.9626 -88.979,46.9576 -88.9923,46.9498 -89.0037,46.9407 -89.0123,46.932 -89.031,46.9146 -89.0484,46.9004 -89.0617,46.8894 -89.087,46.8775 -89.1123,46.8647 -89.1614,46.8487 -89.1787,46.8391 -89.1913,46.8322 -89.2013,46.829 -89.2132,46.8245 -89.2338,46.8162 -89.2551,46.8126 -89.2736,46.8066 -89.2889,46.8062 -89.3041,46.8066 -89.3147,46.808 -89.33,46.8098 -89.34,46.8098 -89.3499,46.8103 -89.3612,46.8089 -89.3711,46.8071 -89.4076,46.7984 -89.4255,46.7947 -89.4421,46.7915 -89.4533,46.7896 -89.4633,46.7905 -89.4746,46.7928 -89.4839,46.7956 -89.5004,46.801 -89.5157,46.801 -89.5336,46.7992 -89.5628,46.7977 -89.5953,46.7945 -89.6006,46.7922 -89.6284,46.7921 -89.6383,46.7907 -89.6463,46.7893 -89.6549,46.787 -89.6642,46.7833 -89.6741,46.7783 -89.684,46.7732 -89.7064,46.7575 -89.7236,46.7423 -89.7305,46.7371 -89.7236,46.7364 5,-5.0,United States -100.3964,45.97 -100.3921,45.9685 -100.3877,45.9626 -100.3959,45.9696 -100.3964,45.97 5,-5.0,United States -100.439,46.0032 -100.4152,45.98 -100.4214,45.9833 -100.436,45.9998 -100.439,46.0032 6,-5.0,United States -100.44,46.4523 -100.4344,46.4619 -100.4334,46.4641 -100.4342,46.4622 -100.4394,46.4533 -100.44,46.4523 11,-5.0,United States -100.4411,46.565 -100.4257,46.5616 -100.4123,46.5525 -100.4099,46.5483 -100.4121,46.5447 -100.4148,46.5429 -100.4211,46.541 -100.4192,46.5476 -100.4304,46.5603 -100.4401,46.5646 -100.4411,46.565 4,-5.0,United States -100.4609,46.0373 -100.4589,46.0325 -100.4589,46.0324 -100.4609,46.0373 5,-5.0,United States -100.4618,46.0394 -100.461,46.0375 -100.4609,46.0373 -100.461,46.0375 -100.4618,46.0394 7,-5.0,United States -100.4686,46.0739 -100.4671,46.0716 -100.4625,46.0587 -100.4625,46.0518 -100.4623,46.0484 -100.4679,46.0711 -100.4686,46.0739 7,-5.0,United States -100.5999,46.6501 -100.592,46.6496 -100.5855,46.6462 -100.5849,46.6427 -100.5907,46.6486 -100.5945,46.6492 -100.5999,46.6501 5,-5.0,United States -100.6101,42.0475 -100.5934,42.0474 -100.5945,42.0474 -100.5999,42.0474 -100.6101,42.0475 5,-5.0,United States -100.6919,42.048 -100.6865,42.048 -100.6101,42.0475 -100.6865,42.048 -100.6919,42.048 5,-5.0,United States -104.8545,30.5981 -104.8475,30.6019 -104.8344,30.6089 -104.8475,30.6019 -104.8545,30.5981 5,-5.0,United States -108.8952,34.1823 -108.8952,34.1837 -108.895,34.1306 -108.8951,34.1565 -108.8952,34.1823 5,-5.0,United States -108.8967,36.8003 -108.8964,36.8284 -108.8956,36.9023 -108.8966,36.8096 -108.8967,36.8003 4,-5.0,United States -108.8967,36.7943 -108.8967,36.8003 -108.8966,36.7114 -108.8967,36.7943 5,-5.0,United States -108.8971,36.9639 -108.8971,36.9642 -108.8956,36.9023 -108.897,36.9598 -108.8971,36.9639 4,-5.0,United States -110.2988,36.9577 -110.1972,36.9576 -110.2173,36.9576 -110.2988,36.9577 4,-5.0,United States -110.9809,36.9692 -110.9144,36.9691 -110.9262,36.9691 -110.9809,36.9692 4,-5.0,United States -111.2391,36.9747 -111.2323,36.973 -111.2344,36.9735 -111.2391,36.9747 5,-5.0,United States -114.5705,32.6799 -114.5699,32.6819 -114.5693,32.6819 -114.5699,32.6809 -114.5705,32.6799 5,-5.0,United States -114.5806,32.681 -114.5806,32.6811 -114.5731,32.6816 -114.5803,32.681 -114.5806,32.681 14,-5.0,United States -116.4877,45.9754 -116.4857,45.9805 -116.4857,45.9864 -116.4839,45.9891 -116.4844,45.9873 -116.4844,45.9791 -116.4838,45.9764 -116.4831,45.9741 -116.4838,45.9713 -116.4831,45.969 -116.4838,45.9663 -116.4838,45.9667 -116.4872,45.9743 -116.4877,45.9754 5,-5.0,United States -116.5421,45.9573 -116.5421,45.9577 -116.5382,45.9564 -116.5413,45.9574 -116.5421,45.9573 7978,-5.0,United States -86.6742,41.7289 -86.3724,41.7281 -86.0806,41.7302 -85.9155,41.7305 -85.6474,41.7306 -85.5068,41.7253 -85.1452,41.728 -85.0404,41.7288 -84.677,41.7278 -84.6733,41.7278 -84.6451,41.7271 -84.6418,41.6651 -84.6377,41.6652 -84.6386,41.5011 -84.6387,41.4953 -84.6392,41.3966 -84.6393,41.3938 -84.648,41.251 -84.647,41.2283 -84.647,41.2191 -84.6463,40.9639 -84.6464,40.9543 -84.6468,40.9012 -84.6478,40.7032 -84.6478,40.6948 -84.6476,40.5588 -84.6508,40.3269 -84.6512,40.319 -84.6529,40.2865 -84.665,39.9819 -84.6655,39.8912 -84.6656,39.883 -84.6679,39.6979 -84.6697,39.5327 -84.6696,39.5299 -84.6696,39.4783 -84.672,39.2755 -84.6721,39.2689 -84.6752,39.0696 -84.6777,39.0674 -84.6807,39.0662 -84.6832,39.064 -84.684,39.0617 -84.6958,39.0536 -84.6995,39.0514 -84.7031,39.0498 -84.7044,39.048 -84.7075,39.0472 -84.71,39.045 -84.7142,39.0438 -84.7179,39.0421 -84.7198,39.0399 -84.7246,39.0383 -84.729,39.0353 -84.734,39.0309 -84.7367,39.0265 -84.7374,39.0238 -84.7382,39.0216 -84.7377,39.0193 -84.7373,39.0165 -84.7341,39.011 -84.7313,39.0081 -84.728,39.0048 -84.7246,39.002 -84.7236,38.9988 -84.7214,38.9964 -84.7185,38.9945 -84.7157,38.9921 -84.7089,38.9873 -84.706,38.9863 -84.7026,38.9839 -84.6998,38.9811 -84.6966,38.9764 -84.695,38.9732 -84.6915,38.9717 -84.6878,38.9652 -84.6863,38.9606 -84.6853,38.9574 -84.6831,38.9546 -84.6827,38.9519 -84.6817,38.9487 -84.6823,38.9405 -84.6831,38.9369 -84.6844,38.9347 -84.6864,38.932 -84.6877,38.9294 -84.6903,38.9268 -84.6916,38.9241 -84.6936,38.9205 -84.6967,38.9179 -84.6987,38.9153 -84.7018,38.9131 -84.7049,38.9101 -84.7075,38.9079 -84.7094,38.9057 -84.7125,38.9035 -84.7156,38.9009 -84.7181,38.8983 -84.7213,38.8957 -84.7232,38.8935 -84.7245,38.8908 -84.7253,38.8881 -84.7256,38.8831 -84.7246,38.8804 -84.7242,38.8781 -84.7226,38.8753 -84.7215,38.8726 -84.7187,38.8711 -84.7129,38.8691 -84.707,38.8679 -84.7035,38.8673 -84.6911,38.8673 -84.6888,38.8668 -84.6734,38.8662 -84.6698,38.867 -84.6651,38.8668 -84.6581,38.8656 -84.6546,38.8646 -84.6505,38.8631 -84.6471,38.8607 -84.645,38.857 -84.6409,38.8559 -84.6387,38.8536 -84.636,38.8503 -84.6346,38.8443 -84.633,38.8415 -84.6333,38.8366 -84.6347,38.8325 -84.6372,38.8313 -84.6403,38.8296 -84.6428,38.8274 -84.6459,38.8252 -84.649,38.8226 -84.6515,38.8205 -84.6545,38.8192 -84.6576,38.8175 -84.6607,38.8154 -84.6626,38.8132 -84.6657,38.8106 -84.6665,38.8083 -84.669,38.8061 -84.6703,38.8035 -84.6717,38.8004 -84.6725,38.7977 -84.6722,38.7936 -84.6729,38.7904 -84.6725,38.7881 -84.671,38.7844 -84.6689,38.7798 -84.6674,38.7748 -84.6652,38.7724 -84.6637,38.7687 -84.6621,38.766 -84.6623,38.7637 -84.663,38.761 -84.6661,38.7593 -84.6691,38.7585 -84.6727,38.7577 -84.6757,38.7574 -84.6786,38.7575 -84.6816,38.7572 -84.6851,38.7573 -84.6886,38.7579 -84.6916,38.7575 -84.6993,38.7578 -84.7046,38.7576 -84.7088,38.7573 -84.7135,38.757 -84.717,38.758 -84.7206,38.7573 -84.7241,38.7574 -84.7277,38.7566 -84.7343,38.756 -84.7372,38.7556 -84.745,38.755 -84.7491,38.7547 -84.7575,38.7532 -84.7629,38.7525 -84.7664,38.7522 -84.7754,38.7511 -84.7795,38.7504 -84.7825,38.75 -84.7897,38.7489 -84.7938,38.7486 -84.7968,38.7478 -84.8015,38.748 -84.8057,38.7477 -84.8087,38.7474 -84.814,38.7471 -84.8164,38.7472 -84.8193,38.7469 -84.8229,38.7465 -84.8277,38.7453 -84.8325,38.7446 -84.8361,38.7443 -84.8397,38.7426 -84.8451,38.7414 -84.8482,38.7393 -84.8536,38.7377 -84.8566,38.7364 -84.8651,38.7331 -84.8688,38.731 -84.8724,38.7302 -84.8766,38.729 -84.8802,38.7282 -84.8832,38.7278 -84.8862,38.727 -84.8904,38.7258 -84.8933,38.7255 -84.8958,38.7238 -84.8994,38.723 -84.9025,38.7213 -84.9055,38.7205 -84.9115,38.718 -84.9158,38.7163 -84.9182,38.7141 -84.9244,38.7107 -84.9269,38.7085 -84.9305,38.7069 -84.9324,38.7042 -84.9355,38.703 -84.938,38.7008 -84.9411,38.6982 -84.9453,38.696 -84.9473,38.6934 -84.9572,38.686 -84.9608,38.6843 -84.9651,38.6822 -84.967,38.68 -84.9724,38.6784 -84.9765,38.6776 -84.9826,38.6747 -84.9899,38.6713 -84.9936,38.6687 -84.9979,38.6666 -85.0009,38.6644 -85.004,38.6632 -85.0082,38.6611 -85.0136,38.6608 -85.0166,38.66 -85.0201,38.6601 -85.0254,38.6599 -85.0308,38.6591 -85.0373,38.6585 -85.0408,38.6586 -85.0456,38.6583 -85.0496,38.6598 -85.0525,38.6617 -85.0594,38.6642 -85.0623,38.6652 -85.0639,38.6675 -85.0679,38.6695 -85.0736,38.6742 -85.0764,38.6761 -85.0791,38.6799 -85.0831,38.6827 -85.0859,38.6855 -85.0887,38.6875 -85.0921,38.6898 -85.0938,38.6922 -85.096,38.6941 -85.0982,38.6964 -85.1011,38.6983 -85.1061,38.703 -85.1083,38.7054 -85.1118,38.7073 -85.1158,38.7093 -85.1187,38.7103 -85.1222,38.7113 -85.1275,38.711 -85.1305,38.7107 -85.1376,38.7109 -85.1417,38.7101 -85.1453,38.7103 -85.15,38.7095 -85.1548,38.7092 -85.1589,38.7089 -85.1625,38.7081 -85.1667,38.7078 -85.172,38.7071 -85.175,38.7063 -85.1798,38.7046 -85.1823,38.7029 -85.187,38.7031 -85.193,38.7024 -85.1965,38.702 -85.2001,38.7012 -85.2031,38.7009 -85.206,38.701 -85.2089,38.702 -85.2124,38.7025 -85.2154,38.7026 -85.2189,38.7032 -85.2218,38.7038 -85.2248,38.7039 -85.2306,38.705 -85.2335,38.7051 -85.2365,38.7056 -85.243,38.7058 -85.2459,38.7055 -85.2489,38.7056 -85.2518,38.7052 -85.2554,38.7049 -85.2584,38.7045 -85.2625,38.7042 -85.2655,38.7043 -85.2691,38.7031 -85.2721,38.7027 -85.2756,38.7024 -85.2786,38.7011 -85.2829,38.6994 -85.2859,38.6977 -85.289,38.6956 -85.2915,38.6934 -85.294,38.6907 -85.2966,38.6863 -85.2973,38.684 -85.2986,38.6814 -85.2988,38.6791 -85.2995,38.6764 -85.2997,38.6737 -85.3004,38.671 -85.301,38.6606 -85.2994,38.6578 -85.2983,38.655 -85.2967,38.6527 -85.2951,38.6495 -85.2929,38.6462 -85.2925,38.6426 -85.2903,38.6403 -85.2893,38.637 -85.2882,38.6347 -85.2887,38.627 -85.2883,38.6234 -85.2878,38.6211 -85.2879,38.6189 -85.2875,38.6157 -85.2871,38.6129 -85.2861,38.6093 -85.2857,38.6061 -85.2859,38.6034 -85.2855,38.5993 -85.2851,38.5961 -85.2852,38.5934 -85.2848,38.5902 -85.2844,38.5865 -85.2846,38.5834 -85.2837,38.5779 -85.2833,38.5756 -85.2829,38.5724 -85.2812,38.5701 -85.2802,38.5673 -85.2786,38.5641 -85.277,38.5613 -85.2759,38.559 -85.2743,38.5567 -85.2733,38.5535 -85.2717,38.5507 -85.2702,38.5461 -85.2687,38.5411 -85.2682,38.5388 -85.2661,38.5347 -85.2652,38.5301 -85.2647,38.5274 -85.2655,38.5242 -85.2663,38.5206 -85.2682,38.5184 -85.2707,38.5158 -85.2732,38.5127 -85.2764,38.5091 -85.2789,38.5061 -85.2797,38.5029 -85.2833,38.5017 -85.2893,38.4982 -85.293,38.4965 -85.296,38.4957 -85.2984,38.4935 -85.3014,38.4923 -85.3045,38.4901 -85.3075,38.4884 -85.3137,38.4841 -85.3186,38.4797 -85.3224,38.4744 -85.3306,38.4656 -85.3331,38.4629 -85.3357,38.4585 -85.3383,38.4531 -85.3402,38.4509 -85.3427,38.4487 -85.3452,38.4461 -85.3488,38.4439 -85.3545,38.4373 -85.3575,38.4365 -85.3605,38.4352 -85.3641,38.434 -85.3677,38.4332 -85.3742,38.4316 -85.3778,38.4303 -85.3808,38.4291 -85.3838,38.4287 -85.3873,38.4284 -85.3903,38.428 -85.3938,38.4286 -85.3968,38.4273 -85.4038,38.428 -85.4127,38.4269 -85.4198,38.4263 -85.4257,38.4251 -85.4287,38.4238 -85.4323,38.423 -85.4359,38.4227 -85.4395,38.4214 -85.4424,38.4206 -85.4454,38.4194 -85.449,38.4181 -85.4532,38.4169 -85.4569,38.4147 -85.4599,38.4126 -85.4624,38.4104 -85.4643,38.4077 -85.4668,38.4055 -85.4681,38.4028 -85.4706,38.4006 -85.4713,38.3984 -85.4726,38.3957 -85.4733,38.3935 -85.4746,38.3908 -85.4759,38.3886 -85.4766,38.3863 -85.4791,38.3841 -85.4792,38.3819 -85.4811,38.3797 -85.4818,38.3774 -85.4819,38.3747 -85.4832,38.3725 -85.4834,38.3693 -85.4854,38.3644 -85.4867,38.3621 -85.4874,38.3599 -85.4881,38.3572 -85.4888,38.3549 -85.4902,38.3518 -85.4909,38.3496 -85.4929,38.3446 -85.4936,38.3424 -85.4934,38.3356 -85.4948,38.3311 -85.4952,38.3234 -85.4959,38.3202 -85.4966,38.318 -85.4974,38.3148 -85.4982,38.3112 -85.4995,38.3086 -85.5008,38.3063 -85.5015,38.3036 -85.504,38.301 -85.5092,38.2921 -85.5099,38.2898 -85.5118,38.2872 -85.5131,38.2849 -85.515,38.2818 -85.5175,38.2792 -85.5193,38.277 -85.5218,38.2743 -85.5243,38.2721 -85.5268,38.2695 -85.5287,38.2668 -85.5311,38.266 -85.5341,38.2647 -85.5383,38.2626 -85.5413,38.2613 -85.5449,38.2587 -85.5509,38.2562 -85.5546,38.2545 -85.5576,38.2528 -85.5685,38.2463 -85.5715,38.2446 -85.5734,38.2424 -85.5769,38.2416 -85.5799,38.2407 -85.5841,38.2395 -85.5877,38.2383 -85.5912,38.2375 -85.5942,38.2362 -85.5972,38.2358 -85.6065,38.2366 -85.6094,38.2371 -85.6146,38.2386 -85.6203,38.2415 -85.6243,38.2435 -85.6272,38.2458 -85.63,38.2477 -85.6335,38.2483 -85.6347,38.2507 -85.6445,38.2518 -85.6538,38.2521 -85.661,38.2505 -85.6639,38.2501 -85.668,38.2498 -85.671,38.2485 -85.677,38.2469 -85.68,38.2451 -85.6872,38.2422 -85.6879,38.2399 -85.6898,38.2368 -85.6913,38.231 -85.6925,38.2287 -85.6928,38.2242 -85.6942,38.2192 -85.695,38.2156 -85.6963,38.213 -85.697,38.2098 -85.6996,38.2044 -85.7021,38.2018 -85.7046,38.1987 -85.7071,38.196 -85.7101,38.1939 -85.7114,38.1916 -85.7144,38.1904 -85.7169,38.1873 -85.7205,38.1856 -85.7266,38.1798 -85.7291,38.1777 -85.7328,38.1741 -85.7329,38.1719 -85.7359,38.1706 -85.7372,38.1684 -85.7414,38.1662 -85.7444,38.164 -85.7492,38.161 -85.7523,38.1584 -85.7542,38.1553 -85.7561,38.1526 -85.7587,38.1481 -85.7594,38.1459 -85.7608,38.1409 -85.7611,38.1337 -85.7618,38.1314 -85.7625,38.1287 -85.7627,38.126 -85.7634,38.1238 -85.7635,38.1215 -85.763,38.1192 -85.7634,38.1111 -85.7641,38.1084 -85.7644,38.1029 -85.7639,38.1002 -85.7641,38.0975 -85.7636,38.0948 -85.7631,38.0925 -85.7627,38.0893 -85.763,38.0838 -85.7625,38.0807 -85.7615,38.0779 -85.761,38.0756 -85.7606,38.0729 -85.7597,38.0665 -85.7581,38.0642 -85.7588,38.0615 -85.7577,38.0592 -85.7583,38.0479 -85.759,38.0456 -85.7591,38.0434 -85.762,38.0308 -85.7627,38.0285 -85.7634,38.0258 -85.7648,38.0227 -85.7661,38.02 -85.7674,38.0178 -85.7687,38.0146 -85.77,38.0106 -85.7737,38.0071 -85.775,38.0048 -85.7769,38.0026 -85.7782,37.9999 -85.7812,37.9977 -85.7825,37.9951 -85.7843,37.9929 -85.7862,37.9902 -85.7887,37.988 -85.7911,37.9853 -85.7972,37.981 -85.8002,37.9797 -85.8031,37.9789 -85.8061,37.9781 -85.8085,37.9768 -85.8121,37.9755 -85.8198,37.9735 -85.8227,37.9726 -85.8269,37.9714 -85.8304,37.9706 -85.8345,37.9707 -85.8375,37.9703 -85.8474,37.9706 -85.8509,37.9694 -85.8539,37.9676 -85.8658,37.9644 -85.8724,37.9614 -85.8789,37.9588 -85.8832,37.9553 -85.8857,37.9509 -85.8895,37.9451 -85.897,37.9344 -85.9,37.9327 -85.9046,37.9337 -85.9114,37.9389 -85.9158,37.9445 -85.9208,37.9509 -85.9269,37.9566 -85.9325,37.9631 -85.9426,37.9715 -85.9523,37.9772 -85.9615,37.9788 -85.972,37.9809 -85.9813,37.9821 -85.993,37.9811 -86.0059,37.981 -86.0146,37.9807 -86.0263,37.9815 -86.0379,37.9836 -86.0483,37.9862 -86.0598,37.9901 -86.0713,37.9945 -86.0811,37.9984 -86.0903,38.0018 -86.0994,38.0066 -86.1097,38.0128 -86.1176,38.018 -86.125,38.0241 -86.1323,38.0315 -86.1355,38.0375 -86.1387,38.0444 -86.1402,38.0517 -86.1409,38.0617 -86.1411,38.0703 -86.1406,38.0821 -86.1414,38.0898 -86.1411,38.0961 -86.1414,38.1039 -86.1429,38.1098 -86.1449,38.1162 -86.1512,38.1213 -86.1569,38.1242 -86.1742,38.1315 -86.1833,38.1371 -86.1889,38.1432 -86.1882,38.1459 -86.1923,38.1455 -86.1951,38.1474 -86.1986,38.1498 -86.2002,38.1521 -86.2042,38.1545 -86.2088,38.1568 -86.2116,38.1592 -86.2186,38.1603 -86.2215,38.1612 -86.232,38.1615 -86.2356,38.1607 -86.2369,38.158 -86.2364,38.1557 -86.2378,38.1508 -86.2379,38.1481 -86.2374,38.1453 -86.2376,38.1417 -86.2383,38.139 -86.2366,38.1362 -86.2344,38.1339 -86.231,38.1316 -86.2281,38.1297 -86.2246,38.1287 -86.2206,38.1272 -86.2113,38.1256 -86.2078,38.1246 -86.2049,38.1241 -86.202,38.1231 -86.198,38.1225 -86.1944,38.1225 -86.1904,38.1214 -86.1875,38.12 -86.1841,38.1172 -86.1826,38.1131 -86.1827,38.1099 -86.1846,38.1063 -86.1883,38.1019 -86.1913,38.1002 -86.1949,38.0993 -86.1978,38.0985 -86.2013,38.0981 -86.2043,38.0978 -86.2084,38.0974 -86.2143,38.0962 -86.219,38.0959 -86.222,38.0946 -86.2255,38.0947 -86.2296,38.0939 -86.2326,38.093 -86.2368,38.0909 -86.2409,38.0892 -86.244,38.0865 -86.2453,38.0834 -86.249,38.079 -86.252,38.0763 -86.2545,38.0741 -86.2574,38.0742 -86.2608,38.0756 -86.2642,38.078 -86.2671,38.079 -86.2712,38.08 -86.2746,38.0819 -86.2775,38.0838 -86.2809,38.0852 -86.2843,38.0871 -86.2878,38.0895 -86.2894,38.0918 -86.2929,38.0928 -86.2998,38.0956 -86.3045,38.0958 -86.3074,38.0954 -86.3121,38.095 -86.3157,38.0938 -86.3186,38.0929 -86.3205,38.0907 -86.3212,38.0885 -86.3219,38.0853 -86.3221,38.0799 -86.3216,38.0776 -86.32,38.0753 -86.3178,38.0716 -86.3143,38.0693 -86.3052,38.0649 -86.3017,38.063 -86.2995,38.0607 -86.2966,38.0593 -86.2926,38.0574 -86.2898,38.0546 -86.2876,38.0518 -86.2877,38.0491 -86.2884,38.0464 -86.2897,38.0419 -86.291,38.0396 -86.2936,38.0343 -86.299,38.029 -86.302,38.0272 -86.3056,38.025 -86.3098,38.0242 -86.3127,38.0234 -86.3157,38.0221 -86.3193,38.0209 -86.3234,38.0191 -86.3363,38.0195 -86.3404,38.0187 -86.3439,38.0187 -86.3468,38.0184 -86.3454,38.0141 -86.1052,37.8489 -86.0073,37.7692 -86.1287,37.5652 -86.1223,37.565 -86.1176,37.5653 -86.1106,37.5652 -86.1077,37.5646 -86.1043,37.5645 -86.1002,37.564 -86.0968,37.5634 -86.0945,37.5611 -86.0946,37.5588 -86.0936,37.5565 -86.0919,37.5542 -86.0897,37.5515 -86.0869,37.55 -86.084,37.549 -86.0806,37.548 -86.0772,37.5461 -86.0737,37.5451 -86.0709,37.5437 -86.0663,37.5427 -86.0629,37.5412 -86.0594,37.5402 -86.0537,37.5382 -86.0503,37.5368 -86.0446,37.5339 -86.0417,37.5338 -86.0389,37.5324 -86.0348,37.5318 -86.0319,37.5322 -86.029,37.533 -86.026,37.5348 -86.0196,37.5346 -86.0167,37.5341 -86.0111,37.5303 -86.0082,37.5293 -86.0053,37.5288 -86.0024,37.5287 -85.9995,37.529 -85.9959,37.5312 -85.9924,37.5325 -85.9888,37.5342 -85.9864,37.5364 -85.9799,37.5389 -85.9729,37.5387 -85.9701,37.5369 -85.9685,37.5341 -85.9663,37.5313 -85.9641,37.529 -85.9624,37.5267 -85.9602,37.5239 -85.9587,37.5202 -85.9559,37.5179 -85.9542,37.5155 -85.952,37.5132 -85.9504,37.5109 -85.9499,37.5077 -85.9471,37.5067 -85.9438,37.503 -85.9422,37.4998 -85.9394,37.497 -85.9378,37.4947 -85.9362,37.4919 -85.9345,37.4896 -85.9312,37.4859 -85.9257,37.4803 -85.9235,37.4775 -85.9207,37.4742 -85.9202,37.472 -85.9174,37.4701 -85.9152,37.4677 -85.9124,37.4649 -85.9108,37.4626 -85.9103,37.4603 -85.911,37.4576 -85.9117,37.4554 -85.913,37.4532 -85.9125,37.4509 -85.9097,37.449 -85.9069,37.4466 -85.9059,37.4434 -85.9066,37.4412 -85.9085,37.4381 -85.912,37.4368 -85.9144,37.4346 -85.9157,37.4324 -85.9159,37.4278 -85.9154,37.4251 -85.9134,37.4196 -85.9112,37.4173 -85.9055,37.4144 -85.9027,37.412 -85.7372,37.4032 -85.613,37.393 -85.6027,37.3909 -85.585,37.3854 -85.5167,37.3832 -85.5166,37.3855 -85.517,37.3882 -85.518,37.3905 -85.5191,37.3933 -85.5183,37.396 -85.5176,37.3982 -85.5169,37.4014 -85.5162,37.4036 -85.5149,37.4059 -85.5131,37.4081 -85.5095,37.4093 -85.5065,37.411 -85.5041,37.4132 -85.5005,37.4154 -85.498,37.4198 -85.4972,37.4226 -85.497,37.4271 -85.4952,37.4288 -85.4956,37.432 -85.4943,37.4342 -85.4884,37.4368 -85.4849,37.4367 -85.4815,37.4357 -85.478,37.4355 -85.4752,37.4336 -85.4736,37.4313 -85.4702,37.4303 -85.4678,37.4307 -85.4649,37.4315 -85.4619,37.4328 -85.4555,37.433 -85.4526,37.4334 -85.4497,37.4328 -85.4469,37.4318 -85.444,37.4304 -85.4406,37.4294 -85.4377,37.4288 -85.4403,37.4239 -85.441,37.4217 -85.4411,37.4194 -85.4419,37.4167 -85.442,37.4144 -85.4415,37.4121 -85.4416,37.4099 -85.4394,37.4075 -85.4396,37.4053 -85.4386,37.4007 -85.437,37.3984 -85.4348,37.3956 -85.4326,37.3933 -85.427,37.3895 -85.4249,37.3867 -85.4221,37.3848 -85.4193,37.3824 -85.4136,37.3795 -85.4097,37.3771 -85.4058,37.3742 -85.4025,37.3719 -85.3997,37.3695 -85.3952,37.3671 -85.3924,37.3652 -85.3873,37.3618 -85.3845,37.3599 -85.38,37.358 -85.3778,37.3556 -85.3749,37.3551 -85.3721,37.3532 -85.3694,37.3508 -85.3654,37.3489 -85.3626,37.347 -85.361,37.3447 -85.3581,37.3441 -85.3553,37.3422 -85.348,37.3383 -85.3452,37.336 -85.3419,37.3336 -85.3374,37.3303 -85.3352,37.3279 -85.3297,37.3232 -85.3215,37.3148 -85.3199,37.3124 -85.3188,37.3101 -85.3172,37.3074 -85.3162,37.3051 -85.3135,37.3018 -85.3113,37.299 -85.3081,37.2944 -85.3071,37.2916 -85.3049,37.2888 -85.3045,37.2865 -85.3012,37.2832 -85.3002,37.2805 -85.2991,37.2782 -85.2964,37.2749 -85.2948,37.2726 -85.2938,37.2698 -85.2904,37.2674 -85.2889,37.2642 -85.2879,37.2615 -85.2857,37.2591 -85.2835,37.2563 -85.2831,37.254 -85.2809,37.2508 -85.2793,37.248 -85.2772,37.2448 -85.2744,37.2424 -85.2723,37.2396 -85.2707,37.2368 -85.2674,37.234 -85.2647,37.2307 -85.2631,37.2284 -85.2604,37.2247 -85.2588,37.2224 -85.2566,37.22 -85.2561,37.2173 -85.2534,37.2154 -85.2523,37.2126 -85.2502,37.2098 -85.2454,37.2029 -85.2444,37.2001 -85.2462,37.1974 -85.2492,37.1962 -85.2522,37.1945 -85.2558,37.1923 -85.2582,37.1901 -85.2601,37.1879 -85.2614,37.1857 -85.2621,37.183 -85.2592,37.1825 -85.2546,37.1818 -85.2517,37.1817 -85.2489,37.1812 -85.2437,37.1806 -85.2392,37.1791 -85.2357,37.1785 -85.2328,37.1784 -85.2294,37.1778 -85.2236,37.1772 -85.2187,37.1725 -85.2155,37.1678 -85.2133,37.1655 -85.2111,37.1627 -85.2095,37.1603 -85.2085,37.1576 -85.2067,37.1598 -85.2037,37.1615 -85.1996,37.1632 -85.1971,37.1654 -85.1935,37.168 -85.1893,37.1705 -85.1845,37.174 -85.1809,37.1762 -85.1773,37.1788 -85.1743,37.18 -85.1694,37.1844 -85.167,37.187 -85.1663,37.1893 -85.1655,37.192 -85.1671,37.1947 -85.1693,37.1971 -85.1709,37.1994 -85.1719,37.2022 -85.1712,37.2044 -85.1693,37.2071 -85.1658,37.2088 -85.1628,37.2096 -85.156,37.2075 -85.152,37.2065 -85.1491,37.2064 -85.1451,37.2058 -85.1422,37.2061 -85.1403,37.2083 -85.1384,37.211 -85.1377,37.2132 -85.134,37.2181 -85.1314,37.2225 -85.1296,37.2247 -85.1244,37.2241 -85.1209,37.224 -85.1151,37.2242 -85.1122,37.2241 -85.1053,37.2248 -85.0988,37.2259 -85.0918,37.2266 -85.0872,37.2273 -85.0842,37.2277 -85.0814,37.2276 -85.0755,37.2283 -85.072,37.2291 -85.0685,37.2294 -85.0633,37.2297 -85.0574,37.2313 -85.0533,37.2321 -85.0503,37.2338 -85.0474,37.235 -85.0461,37.2372 -85.0448,37.2399 -85.0441,37.2422 -85.0422,37.2444 -85.0415,37.2466 -85.0412,37.2516 -85.0416,37.2539 -85.0415,37.2561 -85.042,37.2584 -85.0417,37.2634 -85.0421,37.2657 -85.0414,37.2679 -85.0395,37.2701 -85.0371,37.2723 -85.0336,37.2736 -85.0306,37.2744 -85.0271,37.2751 -85.0269,37.2783 -84.9173,37.2226 -84.9135,37.1685 -84.9006,37.153 -84.8174,37.076 -84.7659,37.0863 -84.7699,37.0678 -84.7681,37.0219 -84.7179,36.975 -84.6961,36.9638 -84.6888,36.9612 -84.6859,36.9602 -84.6809,36.9582 -84.677,36.9562 -84.673,36.9552 -84.6702,36.9541 -84.6662,36.9531 -84.6617,36.9515 -84.6577,36.95 -84.655,36.9486 -84.6516,36.9475 -84.6482,36.9456 -84.6443,36.9441 -84.6387,36.9402 -84.6361,36.9369 -84.6345,36.9337 -84.6324,36.9304 -84.627,36.9248 -84.6242,36.9233 -84.6196,36.9245 -84.6154,36.9257 -84.6062,36.9267 -84.6027,36.927 -84.5997,36.9278 -84.5968,36.929 -84.5915,36.9306 -84.5879,36.9328 -84.5826,36.9344 -84.5742,36.9395 -84.5718,36.9417 -84.5705,36.9439 -84.5669,36.9456 -84.5633,36.9477 -84.5604,36.948 -84.5558,36.9483 -84.55,36.9485 -84.5436,36.9483 -84.5401,36.949 -84.5362,36.948 -84.5328,36.9465 -84.5301,36.9441 -84.5274,36.9403 -84.5264,36.938 -84.5248,36.9357 -84.5233,36.9329 -84.5207,36.9292 -84.5186,36.9259 -84.517,36.9227 -84.5155,36.9203 -84.515,36.9181 -84.513,36.9134 -84.5121,36.9098 -84.5105,36.9074 -84.509,36.9047 -84.5064,36.9005 -84.5025,36.898 -84.4998,36.8952 -84.4965,36.8928 -84.4944,36.89 -84.4917,36.8867 -84.4908,36.8821 -84.4877,36.8766 -84.4846,36.8719 -84.4803,36.8663 -84.4776,36.8643 -84.4725,36.8623 -84.4698,36.8604 -84.467,36.8589 -84.4614,36.8564 -84.4586,36.8545 -84.4559,36.8521 -84.453,36.852 -84.4495,36.8528 -84.4449,36.8535 -84.4421,36.8525 -84.4405,36.8501 -84.4384,36.8469 -84.4374,36.8446 -84.437,36.8418 -84.4349,36.839 -84.4345,36.8367 -84.4382,36.8328 -84.4412,36.8302 -84.4454,36.8281 -84.4467,36.8263 -84.4429,36.8221 -84.4384,36.8205 -84.4346,36.8163 -84.4343,36.8131 -84.4378,36.8119 -84.4413,36.8111 -84.4438,36.8089 -84.444,36.8053 -84.4403,36.8006 -84.4381,36.7983 -84.4366,36.795 -84.4351,36.7913 -84.4378,36.786 -84.4414,36.7834 -84.4441,36.7781 -84.4436,36.7758 -84.4426,36.7739 -84.4428,36.7708 -84.4452,36.77 -84.4526,36.7703 -84.4545,36.7685 -84.4552,36.7658 -84.4704,36.7633 -84.4727,36.7625 -84.4773,36.7622 -84.4797,36.7605 -84.4816,36.7578 -84.4818,36.7556 -84.4772,36.7545 -84.4798,36.7509 -84.4827,36.7497 -84.4835,36.747 -84.4849,36.7425 -84.4887,36.7381 -84.4934,36.7365 -84.4975,36.7353 -84.5017,36.7327 -84.5042,36.7297 -84.5076,36.7303 -84.5133,36.7305 -84.5184,36.7316 -84.5237,36.7305 -84.5295,36.7121 -84.631,36.5781 -84.6459,36.5716 -84.6292,36.571 -84.5773,36.4935 -84.5627,36.4707 -84.536,36.4038 -84.5009,36.362 -84.5253,36.3561 -84.5367,36.3484 -84.5409,36.3363 -84.554,36.3368 -84.5575,36.3365 -84.5645,36.3332 -84.5688,36.3293 -84.5701,36.327 -84.5733,36.3208 -84.5763,36.3196 -84.5809,36.3189 -84.5845,36.3167 -84.588,36.315 -84.5882,36.3123 -84.5895,36.3101 -84.5914,36.307 -84.5927,36.3048 -84.5962,36.3027 -84.6014,36.3015 -84.6055,36.2999 -84.6101,36.3 -84.6164,36.3007 -84.6221,36.3 -84.6252,36.2965 -84.6265,36.2934 -84.6267,36.2911 -84.6251,36.2888 -84.6282,36.2858 -84.6347,36.2819 -84.636,36.2797 -84.6337,36.2701 -84.634,36.266 -84.6331,36.2614 -84.6389,36.2603 -84.6418,36.26 -84.6453,36.2583 -84.6482,36.2575 -84.6573,36.2578 -84.6614,36.2575 -84.6642,36.2572 -84.6672,36.2555 -84.6719,36.2539 -84.6753,36.2536 -84.6833,36.2539 -84.6879,36.2531 -84.6925,36.2529 -84.6954,36.2521 -84.7006,36.2514 -84.7046,36.252 -84.7068,36.2525 -84.7132,36.25 -84.7158,36.246 -84.7165,36.2434 -84.718,36.2384 -84.7181,36.2361 -84.7211,36.2245 -84.722,36.2195 -84.7262,36.206 -84.727,36.2033 -84.7288,36.2011 -84.7295,36.1989 -84.7299,36.1921 -84.7324,36.1899 -84.7354,36.1869 -84.7432,36.1813 -84.7457,36.1768 -84.747,36.1741 -84.7472,36.1719 -84.7485,36.1678 -84.7487,36.1651 -84.7495,36.162 -84.7486,36.1574 -84.7482,36.1547 -84.7478,36.1515 -84.7463,36.1482 -84.7454,36.145 -84.7455,36.1427 -84.7446,36.1382 -84.7448,36.1359 -84.7455,36.1337 -84.747,36.1283 -84.7494,36.1256 -84.7512,36.1234 -84.7525,36.1212 -84.7438,36.115 -84.7377,36.1116 -84.7294,36.1076 -84.7239,36.1042 -84.7134,36.0984 -84.7065,36.0895 -84.6837,36.0622 -84.6812,36.0571 -84.6767,36.0556 -84.6738,36.0573 -84.6684,36.0603 -84.6617,36.0586 -84.6519,36.0519 -84.6459,36.0562 -84.6434,36.0507 -84.6396,36.0382 -84.6358,36.0263 -84.6245,36.0154 -84.6159,36.0078 -84.6113,35.9981 -84.6009,35.9922 -84.5921,35.9869 -84.5852,35.9798 -84.5737,35.9716 -84.563,35.9607 -84.5547,35.9486 -84.5477,35.9328 -84.541,35.9135 -84.5343,35.8937 -84.526,35.8802 -84.5273,35.8775 -84.5281,35.8748 -84.5305,35.8717 -84.5336,35.8687 -84.5354,35.866 -84.5403,35.8612 -84.5447,35.855 -84.546,35.8524 -84.5489,35.8502 -84.552,35.8471 -84.5538,35.845 -84.5592,35.8406 -84.5634,35.8372 -84.5688,35.8328 -84.5718,35.8298 -84.5761,35.8259 -84.5779,35.8237 -84.5803,35.821 -84.5852,35.8162 -84.586,35.8131 -84.5903,35.8078 -84.5921,35.8056 -84.6022,35.7983 -84.6063,35.7962 -84.6111,35.7923 -84.6145,35.7929 -84.6173,35.7925 -84.6201,35.794 -84.6234,35.795 -84.6268,35.7956 -84.6297,35.7953 -84.6404,35.7966 -84.7287,35.746 -84.7471,35.7413 -84.8221,35.6547 -84.8191,35.6482 -84.8178,35.6414 -84.827,35.6385 -84.8392,35.644 -84.8756,35.5936 -84.8997,35.5881 -84.9542,35.547 -84.953,35.5374 -84.9515,35.5251 -84.9555,35.5134 -84.9662,35.5052 -84.987,35.4678 -84.9843,35.465 -84.9756,35.4601 -84.9758,35.4551 -84.9637,35.4492 -84.9805,35.4326 -84.9949,35.419 -85.0183,35.4344 -85.0316,35.3986 -85.0734,35.3292 -85.0988,35.2879 -85.1259,35.2566 -85.2317,35.1249 -85.2335,35.1227 -85.2347,35.1205 -85.2343,35.1173 -85.2312,35.1126 -85.2314,35.1081 -85.2321,35.1054 -85.2335,35.1009 -85.2353,35.0987 -85.2372,35.0951 -85.2379,35.0929 -85.2392,35.0897 -85.2393,35.087 -85.2406,35.0839 -85.2396,35.0816 -85.2364,35.0792 -85.2342,35.0769 -85.2304,35.0758 -85.2277,35.0739 -85.2249,35.0724 -85.2211,35.0705 -85.2184,35.069 -85.2151,35.0675 -85.2123,35.0665 -85.2096,35.0646 -85.2081,35.0618 -85.2079,35.0546 -85.2092,35.0505 -85.2095,35.0451 -85.212,35.0406 -85.2144,35.0371 -85.2152,35.033 -85.2183,35.029 -85.2195,35.0263 -85.2238,35.0201 -85.2273,35.018 -85.2301,35.0172 -85.2363,35.0174 -85.2402,35.018 -85.2431,35.0172 -85.247,35.0169 -85.2516,35.0152 -85.2545,35.0126 -85.2564,35.0099 -85.2571,35.0077 -85.2578,35.0045 -85.2585,35.0023 -85.2597,35.0 -85.2621,34.9974 -85.2639,34.9952 -85.2664,34.9912 -85.2699,34.9881 -85.2769,34.9829 -85.2793,34.9807 -85.2822,34.9795 -85.2874,34.9765 -85.2909,34.9738 -85.2938,34.9721 -85.2972,34.9709 -85.3007,34.9687 -85.3048,34.9652 -85.3135,34.9605 -85.4507,34.9565 -85.4562,34.9565 -85.4304,34.8282 -85.382,34.5884 -85.3731,34.5506 -85.3592,34.4889 -85.3552,34.4713 -85.3076,34.256 -85.2651,34.0585 -85.2639,34.0528 -85.243,33.9257 -85.2417,33.9177 -85.2313,33.8713 -85.1826,33.6208 -85.1523,33.4564 -85.1411,33.3917 -85.0812,33.0951 -85.0808,33.086 -85.0804,33.0755 -85.028,32.8376 -85.0207,32.8375 -85.0147,32.8145 -85.0127,32.8012 -85.012,32.7939 -85.0105,32.7916 -85.0062,32.7905 -85.0041,32.7886 -85.0049,32.7841 -85.0051,32.7804 -85.0048,32.7763 -85.0017,32.7725 -84.9948,32.77 -84.9889,32.7679 -84.9856,32.7669 -84.9816,32.7604 -84.9791,32.7575 -84.9759,32.7551 -84.9711,32.7531 -84.9675,32.7498 -84.9666,32.7452 -84.9685,32.7403 -84.9704,32.7371 -84.9762,32.7347 -84.9774,32.7309 -84.9804,32.7276 -84.9806,32.7221 -84.9793,32.7195 -84.977,32.7164 -84.9741,32.7142 -84.9722,32.7098 -84.9683,32.7098 -84.9659,32.7064 -84.9631,32.7051 -84.9612,32.7002 -84.9609,32.6957 -84.9599,32.6898 -84.9608,32.6806 -84.9616,32.6787 -84.957,32.6733 -84.9511,32.6603 -84.9497,32.6566 -84.944,32.6509 -84.9382,32.647 -84.9342,32.6418 -84.9325,32.6322 -84.9322,32.6276 -84.9341,32.624 -84.9375,32.621 -84.9415,32.6184 -84.9443,32.6158 -84.9451,32.6117 -84.9431,32.6094 -84.9366,32.6077 -84.9312,32.6071 -84.928,32.6051 -84.9261,32.6005 -84.9258,32.5964 -84.9232,32.5935 -84.9201,32.5902 -84.9183,32.5842 -84.9181,32.5778 -84.9167,32.5741 -84.9164,32.5691 -84.916,32.5663 -84.9135,32.5621 -84.9095,32.5565 -84.9064,32.5537 -84.9022,32.5508 -84.897,32.5465 -84.8934,32.5422 -84.89,32.5343 -84.8854,32.5296 -84.8803,32.523 -84.8744,32.5209 -84.8675,32.5179 -84.8639,32.5146 -84.8583,32.5071 -84.8553,32.5033 -84.8469,32.498 -84.8407,32.4922 -84.8399,32.4863 -84.8394,32.4813 -84.8384,32.4727 -84.8382,32.4702 -84.8383,32.4676 -84.8387,32.4593 -84.8372,32.4476 -84.8373,32.437 -84.837,32.433 -84.8366,32.4271 -84.8368,32.4242 -84.8355,32.4215 -84.8353,32.4185 -84.8352,32.4157 -84.8322,32.4108 -84.8293,32.4087 -84.8242,32.4052 -84.8163,32.4001 -84.8127,32.3953 -84.8117,32.3877 -84.8152,32.3854 -84.8181,32.3819 -84.8199,32.3788 -84.8199,32.3712 -84.8198,32.3689 -84.8185,32.3658 -84.8181,32.3618 -84.8208,32.3589 -84.8234,32.3574 -84.8213,32.3537 -84.8176,32.3527 -84.8139,32.3511 -84.8129,32.3488 -84.8126,32.3442 -84.8145,32.3407 -84.8157,32.3389 -84.8184,32.3388 -84.8222,32.3387 -84.8243,32.3392 -84.8267,32.3366 -84.8291,32.3326 -84.8309,32.3286 -84.8349,32.3255 -84.8382,32.3243 -84.8438,32.3218 -84.8467,32.3178 -84.8484,32.3125 -84.85,32.3083 -84.8461,32.3 -84.8425,32.2971 -84.8229,32.2881 -84.7989,32.2794 -84.785,32.2761 -84.7797,32.2736 -84.7751,32.2688 -84.772,32.266 -84.7703,32.2598 -84.7684,32.2589 -84.7652,32.2562 -84.764,32.2543 -84.7613,32.2501 -84.7589,32.2457 -84.7566,32.243 -84.7516,32.2419 -84.7477,32.2398 -84.7419,32.2345 -84.7411,32.23 -84.7413,32.225 -84.7465,32.2206 -84.7527,32.2154 -84.7569,32.2133 -84.7596,32.2132 -84.7585,32.2088 -84.7592,32.2052 -84.7615,32.2019 -84.7608,32.1972 -84.7633,32.1944 -84.7632,32.1921 -84.7663,32.1901 -84.7705,32.1872 -84.7757,32.1838 -84.7816,32.1826 -84.7896,32.1809 -84.7988,32.18 -84.8069,32.1797 -84.8134,32.1789 -84.8188,32.1787 -84.8221,32.1782 -84.8205,32.1762 -84.8168,32.1756 -84.8115,32.1736 -84.8078,32.1711 -84.8058,32.1692 -84.8059,32.167 -84.8103,32.1651 -84.8074,32.1614 -84.8077,32.1577 -84.8141,32.1552 -84.8209,32.1526 -84.8322,32.1498 -84.8423,32.148 -84.8477,32.1464 -84.8551,32.1447 -84.8619,32.1407 -84.8677,32.1364 -84.8702,32.1321 -84.8744,32.1263 -84.8771,32.1227 -84.8795,32.1192 -84.8821,32.1168 -84.8869,32.1112 -84.8907,32.1067 -84.8932,32.1037 -84.8969,32.0976 -84.8968,32.0921 -84.8945,32.0847 -84.8881,32.0726 -84.8878,32.0689 -84.8892,32.0635 -84.8911,32.059 -84.8935,32.0567 -84.8943,32.0521 -84.8991,32.0427 -84.9026,32.0376 -84.9043,32.0353 -84.9051,32.0307 -84.9071,32.0282 -84.9055,32.0231 -84.9042,32.0175 -84.9007,32.0115 -84.8989,32.005 -84.8992,32.0005 -84.9001,31.9941 -84.902,31.9887 -84.9057,31.9836 -84.905,31.9796 -84.9083,31.9756 -84.9099,31.9721 -84.9116,31.9668 -84.9106,31.9607 -84.9108,31.9571 -84.9104,31.9543 -84.914,31.9465 -84.9192,31.9405 -84.9216,31.9344 -84.9237,31.931 -84.9269,31.926 -84.9303,31.9178 -84.9334,31.9105 -84.9376,31.9025 -84.9427,31.8976 -84.9482,31.8937 -84.9515,31.89 -84.9551,31.8854 -84.959,31.8784 -84.9616,31.8745 -84.9612,31.8659 -84.9618,31.855 -84.9675,31.8388 -84.9723,31.8299 -84.977,31.8227 -84.9779,31.8168 -84.9798,31.811 -84.9797,31.8032 -84.9786,31.7835 -84.9774,31.767 -84.9762,31.7588 -84.9738,31.7541 -84.9723,31.7504 -84.9696,31.7452 -84.9684,31.743 -84.9649,31.7378 -84.962,31.7322 -84.9593,31.722 -84.9585,31.7069 -84.9595,31.6997 -84.9608,31.6966 -84.962,31.6939 -84.9628,31.6908 -84.9626,31.6841 -84.9624,31.6756 -84.9613,31.666 -84.9594,31.6609 -84.9555,31.6534 -84.9494,31.6468 -84.9433,31.6415 -84.9366,31.6344 -84.9301,31.6259 -84.9247,31.6175 -84.925,31.6109 -84.9234,31.6064 -84.9203,31.6003 -84.9138,31.6001 -84.9067,31.6008 -84.9014,31.6006 -84.8998,31.5987 -84.9018,31.5933 -84.9026,31.5883 -84.9024,31.5819 -84.9045,31.5735 -84.9011,31.5667 -84.8987,31.5612 -84.8997,31.553 -84.8996,31.5479 -84.8955,31.5414 -84.8926,31.5354 -84.8885,31.5311 -84.8865,31.5283 -84.8862,31.5246 -84.89,31.5202 -84.8883,31.5133 -84.8882,31.511 -84.8883,31.5084 -84.8894,31.5054 -84.886,31.499 -84.8856,31.4962 -84.8852,31.493 -84.8895,31.4864 -84.8907,31.4795 -84.8945,31.4711 -84.898,31.4663 -84.9035,31.4597 -84.9088,31.4539 -84.91,31.4506 -84.9113,31.447 -84.9121,31.4389 -84.9125,31.4328 -84.9107,31.4201 -84.9093,31.4156 -84.9087,31.4064 -84.9114,31.4023 -84.9135,31.3991 -84.9149,31.3934 -84.9167,31.3919 -84.9172,31.3814 -84.9192,31.375 -84.92,31.3726 -84.9194,31.3673 -84.9203,31.3637 -84.9229,31.3583 -84.9258,31.3526 -84.9339,31.3367 -84.9364,31.3342 -84.9342,31.33 -84.9345,31.3207 -84.9335,31.3143 -84.9322,31.3094 -84.9291,31.294 -84.9283,31.2908 -84.9273,31.2836 -84.9276,31.2786 -84.9279,31.2731 -84.9295,31.2693 -84.9304,31.2673 -84.9318,31.2609 -84.9363,31.257 -84.9417,31.2554 -84.949,31.2497 -84.9519,31.2462 -84.9531,31.243 -84.9483,31.2272 -84.9473,31.2177 -84.9454,31.2123 -84.9434,31.2065 -84.9426,31.2033 -84.9406,31.1997 -84.9393,31.1974 -84.9393,31.1927 -84.9428,31.1882 -84.9429,31.1854 -84.9441,31.1817 -84.9445,31.1793 -84.9456,31.1767 -84.9473,31.1723 -84.9496,31.1696 -84.9499,31.1659 -84.9503,31.1627 -84.949,31.1595 -84.9467,31.1565 -84.9454,31.1529 -84.9447,31.1506 -84.9445,31.1483 -84.9425,31.142 -84.9407,31.138 -84.9384,31.1358 -84.9324,31.1338 -84.9248,31.1323 -84.9199,31.1302 -84.9139,31.1276 -84.9122,31.1259 -84.9098,31.1234 -84.9085,31.1211 -84.905,31.1145 -84.9008,31.1078 -84.8978,31.1029 -84.8933,31.099 -84.8894,31.0964 -84.8854,31.0925 -84.883,31.088 -84.8777,31.08 -84.8769,31.0769 -84.8756,31.0728 -84.8731,31.0661 -84.8704,31.0579 -84.8697,31.0557 -84.8643,31.0459 -84.8597,31.0401 -84.8556,31.0339 -84.8509,31.0273 -84.8458,31.0142 -84.8426,31.0066 -84.8411,31.0026 -84.8397,30.9939 -84.8371,30.9883 -84.8391,30.9839 -84.841,30.9797 -84.8421,30.9765 -84.8433,30.9732 -84.8489,30.967 -84.85,30.9629 -84.8511,30.9597 -84.8502,30.955 -84.8512,30.951 -84.849,30.9463 -84.8437,30.9423 -84.8384,30.94 -84.8347,30.9386 -84.8283,30.9359 -84.8241,30.9336 -84.8209,30.9294 -84.8204,30.9262 -84.8218,30.9139 -84.8208,30.9104 -84.8211,30.9075 -84.8206,30.9048 -84.8198,30.9021 -84.8189,30.8993 -84.8175,30.8963 -84.8159,30.893 -84.8136,30.8882 -84.8084,30.8851 -84.8015,30.8782 -84.7967,30.8736 -84.7925,30.8699 -84.7872,30.8639 -84.7851,30.8607 -84.7846,30.8571 -84.7841,30.852 -84.7807,30.8425 -84.7802,30.8386 -84.7798,30.8365 -84.7784,30.8287 -84.7762,30.8233 -84.7762,30.8212 -84.7751,30.8177 -84.7747,30.8156 -84.7749,30.8127 -84.7748,30.8102 -84.7743,30.8022 -84.7754,30.794 -84.7765,30.7896 -84.7766,30.7853 -84.7775,30.7825 -84.7779,30.777 -84.7788,30.7731 -84.7782,30.7686 -84.7785,30.7662 -84.7755,30.7548 -84.7735,30.7471 -84.7708,30.7385 -84.7667,30.7281 -84.7664,30.7257 -84.7652,30.7238 -84.7627,30.7199 -84.7598,30.7172 -84.7583,30.7157 -84.7521,30.7152 -84.7457,30.7147 -84.7399,30.712 -84.7356,30.7096 -84.7309,30.7055 -84.7235,30.6945 -84.7158,30.6839 -84.7122,30.6789 -84.7132,30.6751 -84.7115,30.6675 -84.7153,30.6579 -84.7174,30.6529 -84.718,30.6488 -84.7196,30.6437 -84.7218,30.6405 -84.7271,30.6351 -84.7325,30.6283 -84.7368,30.6223 -84.7432,30.6155 -84.7464,30.6114 -84.7507,30.6055 -84.7583,30.5909 -84.7599,30.5882 -84.7631,30.585 -84.7674,30.5795 -84.7722,30.5759 -84.7749,30.5736 -84.7781,30.5704 -84.7829,30.5686 -84.785,30.5664 -84.7882,30.5632 -84.7898,30.5605 -84.7915,30.5531 -84.7925,30.5504 -84.7968,30.5495 -84.7995,30.5495 -84.8053,30.5477 -84.8085,30.5427 -84.8091,30.5386 -84.8112,30.534 -84.8171,30.5268 -84.8251,30.5167 -84.8283,30.5131 -84.831,30.5081 -84.8332,30.498 -84.8349,30.488 -84.8365,30.4802 -84.8387,30.4702 -84.8409,30.4619 -84.8457,30.4514 -84.849,30.44 -84.8458,30.4377 -84.8426,30.4363 -84.84,30.4349 -84.8389,30.4327 -84.8432,30.4281 -84.8459,30.4148 -84.8359,30.4134 -84.8364,30.4102 -84.8385,30.4093 -84.8433,30.4066 -84.8502,30.403 -84.8593,30.4007 -84.8678,30.3985 -84.8762,30.3939 -84.8768,30.3907 -84.8763,30.388 -84.8752,30.3857 -84.871,30.3839 -84.8689,30.3825 -84.8673,30.3793 -84.8689,30.3774 -84.8716,30.3761 -84.8737,30.3752 -84.8748,30.3692 -84.8695,30.3665 -84.8664,30.3564 -84.868,30.3486 -84.8654,30.3399 -84.8692,30.3363 -84.8771,30.3413 -84.8797,30.3427 -84.884,30.3427 -84.8856,30.3414 -84.8866,30.3382 -84.8814,30.3336 -84.8803,30.3304 -84.883,30.3258 -84.8862,30.3249 -84.8894,30.3231 -84.892,30.319 -84.8942,30.3076 -84.8921,30.298 -84.8917,30.2925 -84.8896,30.2879 -84.8885,30.2838 -84.8928,30.281 -84.8986,30.2806 -84.9028,30.2783 -84.9055,30.2678 -84.9093,30.2628 -84.9093,30.2514 -84.9099,30.245 -84.9115,30.2404 -84.9137,30.2331 -84.9158,30.2294 -84.9195,30.2262 -84.9238,30.2235 -84.9264,30.2189 -84.9302,30.2084 -84.9334,30.2007 -84.9377,30.1929 -84.9424,30.1893 -84.9493,30.1856 -84.953,30.1838 -84.9647,30.1733 -84.9679,30.1678 -84.9674,30.1656 -84.9705,30.1656 -84.9711,30.1605 -84.9732,30.1573 -84.9769,30.1532 -84.9807,30.1496 -84.9833,30.1441 -84.9839,30.1382 -84.9829,30.129 -84.9813,30.1221 -84.9813,30.1198 -84.9824,30.1162 -84.9835,30.1134 -84.9867,30.107 -84.9882,30.1048 -84.992,30.1002 -84.9925,30.0965 -84.9894,30.0929 -84.9872,30.0919 -84.9846,30.0892 -84.9857,30.0869 -84.9873,30.0823 -84.9899,30.0801 -84.9926,30.0769 -84.9953,30.0695 -84.9932,30.0604 -84.9885,30.0562 -84.9848,30.0512 -84.9838,30.0466 -84.9833,30.0411 -84.9827,30.0347 -84.9822,30.0301 -84.9807,30.0246 -84.977,30.0164 -84.9755,30.015 -84.9739,30.0109 -84.9692,30.0035 -84.9639,29.9994 -84.9602,29.9976 -84.9566,29.9962 -84.9545,29.9953 -84.9502,29.9939 -84.9455,29.9916 -84.9413,29.987 -84.9376,29.9837 -84.9313,29.981 -84.9261,29.98 -84.9229,29.98 -84.9197,29.9786 -84.915,29.9768 -84.9097,29.9759 -84.904,29.9726 -84.9003,29.968 -84.8966,29.9639 -84.8914,29.9598 -84.8872,29.9561 -84.883,29.9542 -84.8788,29.9519 -84.8751,29.9478 -84.8741,29.9455 -84.871,29.934 -84.8663,29.9194 -84.8637,29.9116 -84.8606,29.8978 -84.8623,29.891 -84.8634,29.8846 -84.8608,29.8772 -84.8603,29.8644 -84.8614,29.8511 -84.8626,29.8424 -84.8636,29.8356 -84.8663,29.8333 -84.8695,29.8301 -84.8732,29.8269 -84.8763,29.8228 -84.8801,29.8173 -84.8801,29.8136 -84.8796,29.8082 -84.8775,29.8031 -84.8765,29.7985 -84.8755,29.7935 -84.876,29.7857 -84.8782,29.7697 -84.8798,29.7669 -84.8835,29.7624 -84.8878,29.756 -84.8894,29.7519 -84.8894,29.7487 -84.891,29.7473 -84.8931,29.751 -84.8962,29.7537 -84.8999,29.7551 -84.9025,29.757 -84.9051,29.7574 -84.9109,29.7565 -84.9156,29.7565 -84.9188,29.7543 -84.9209,29.7502 -84.922,29.7483 -84.9262,29.7451 -84.9299,29.7438 -84.9346,29.7443 -84.9409,29.7443 -84.9483,29.7461 -84.9546,29.7457 -84.9735,29.7572 -84.9913,29.7715 -84.9939,29.7751 -84.9955,29.7774 -85.0065,29.7839 -85.0117,29.7876 -85.0175,29.7913 -85.0254,29.7931 -85.0259,29.7945 -85.0269,29.7968 -85.0285,29.7991 -85.0301,29.8 -85.0353,29.8005 -85.0374,29.8018 -85.0385,29.8028 -85.0406,29.806 -85.0406,29.8078 -85.0416,29.811 -85.0432,29.8129 -85.0469,29.8142 -85.0532,29.8175 -85.0553,29.8184 -85.0563,29.8193 -85.0563,29.8211 -85.0558,29.8239 -85.0542,29.8262 -85.0531,29.833 -85.0526,29.8371 -85.0536,29.8408 -85.0546,29.8449 -85.0557,29.8472 -85.0567,29.8491 -85.0609,29.8509 -85.0657,29.8523 -85.0704,29.8532 -85.0809,29.8546 -85.0878,29.8565 -85.0914,29.8569 -85.0999,29.8592 -85.103,29.8606 -85.1067,29.8625 -85.1088,29.8634 -85.1161,29.8698 -85.1203,29.8739 -85.1224,29.8762 -85.1256,29.8781 -85.1288,29.879 -85.1351,29.8827 -85.1387,29.8841 -85.1424,29.8868 -85.145,29.8882 -85.1466,29.8964 -85.1477,29.9006 -85.1482,29.9065 -85.1487,29.9079 -85.1503,29.9106 -85.1518,29.9129 -85.155,29.9143 -85.1587,29.9157 -85.1613,29.9171 -85.165,29.9184 -85.1692,29.9198 -85.1718,29.9221 -85.1729,29.9235 -85.1739,29.9267 -85.1739,29.9262 -85.1745,29.9267 -85.1776,29.929 -85.1813,29.9304 -85.1845,29.9313 -85.1887,29.9327 -85.1908,29.9327 -85.195,29.9331 -85.1981,29.9331 -85.2018,29.9327 -85.2045,29.9322 -85.2082,29.9313 -85.2108,29.9322 -85.2129,29.9341 -85.214,29.9345 -85.2203,29.9446 -85.2203,29.951 -85.2197,29.9529 -85.2181,29.9556 -85.2155,29.9593 -85.2144,29.9615 -85.2144,29.9648 -85.216,29.9689 -85.2171,29.9734 -85.2176,29.9785 -85.2171,29.983 -85.2197,29.9854 -85.3291,29.9244 -85.2952,29.9002 -85.2522,29.8647 -85.1965,29.7828 -85.1917,29.7109 -85.1959,29.6669 -85.2364,29.6538 -85.2616,29.6808 -85.2749,29.7079 -85.286,29.7583 -85.2884,29.788 -85.2883,29.8315 -85.3026,29.7806 -85.3013,29.7605 -85.2898,29.7184 -85.276,29.6779 -85.2635,29.658 -85.2464,29.6445 -85.2308,29.6432 -85.1846,29.6558 -85.0985,29.6664 -84.9496,29.6868 -84.8674,29.7004 -84.805,29.7466 -84.7539,29.7623 -84.775,29.714 -84.7556,29.7042 -84.72,29.7177 -84.6421,29.7479 -84.6129,29.7677 -84.542,29.8124 -84.4649,29.8534 -84.4413,29.866 -84.4062,29.8815 -84.3397,29.8877 -84.3003,29.8836 -84.2671,29.8713 -84.238,29.8611 -84.2254,29.8864 -84.2275,29.9081 -84.2765,29.9246 -84.3028,29.9223 -84.328,29.9246 -84.3493,29.9634 -84.2196,30.0372 -84.1549,30.0629 -84.0963,30.0719 -83.9226,30.0678 -83.9016,30.064 -83.8285,30.0171 -83.7803,29.9841 -83.7156,29.9509 -83.6794,29.9405 -83.6293,29.9192 -83.5607,29.8726 -83.5235,29.8425 -83.4749,29.7723 -83.4699,29.7333 -83.4281,29.6895 -83.3586,29.6473 -83.3197,29.6353 -83.2992,29.5428 -83.2901,29.4926 -83.2663,29.4814 -83.2441,29.4724 -83.1146,29.39 -82.9927,29.2418 -82.9639,29.192 -82.8763,29.1473 -82.8552,29.1536 -82.8255,29.1504 -82.7244,29.1313 -82.6955,29.1224 -82.6624,29.0381 -82.6436,28.9752 -82.5376,28.8629 -82.5226,28.8479 -82.5218,28.8174 -82.5342,28.7938 -82.5686,28.7719 -82.5471,28.7355 -82.5299,28.7203 -82.5218,28.6642 -82.5347,28.5076 -82.5571,28.4051 -82.6092,28.274 -82.6429,28.1989 -82.667,28.0389 -82.6907,27.9385 -82.7023,27.9053 -82.7286,27.8662 -82.7206,27.9106 -82.7453,27.8636 -82.7473,27.8276 -82.7368,27.8018 -82.7281,27.7832 -82.6377,27.6487 -82.6181,27.6273 -82.53,27.6653 -82.5163,27.6917 -82.4883,27.7909 -82.4969,27.842 -82.5307,27.8525 -82.6081,27.8945 -82.5844,27.9986 -82.3369,27.8996 -82.3177,27.8881 -82.3009,27.8493 -82.2823,27.7901 -82.2985,27.7495 -82.3358,27.7142 -82.3593,27.7019 -82.4282,27.6259 -82.4411,27.6096 -82.5095,27.5227 -82.4774,27.5194 -82.4843,27.4663 -82.5396,27.4346 -82.5485,27.4312 -82.4808,27.3791 -82.4652,27.3608 -82.4385,27.2892 -82.4321,27.258 -82.3499,27.0607 -82.3185,26.9919 -82.2905,26.9321 -82.2728,26.9054 -82.2037,26.8143 -82.1853,26.7996 -82.0531,26.7531 -82.0452,26.7891 -82.0586,26.8441 -82.0862,26.908 -81.9946,26.9225 -81.9115,26.9347 -81.9439,26.8178 -81.9743,26.678 -81.9746,26.6543 -81.9615,26.5249 -81.9182,26.4995 -81.8437,26.5113 -81.8147,26.5698 -81.8102,26.5985 -81.7858,26.6304 -81.6807,26.6773 -81.8175,26.5039 -81.8136,26.4827 -81.85,26.4717 -81.8642,26.4521 -81.7766,26.4161 -81.7361,26.3208 -81.7122,26.1365 -81.7063,26.1098 -81.6955,26.0708 -81.6759,26.0577 -81.632,25.9304 -81.5703,25.8855 -81.5137,25.9016 -81.4541,25.8908 -81.2981,25.8201 -81.2725,25.8069 -81.2369,25.7808 -81.2235,25.7594 -81.0685,25.4426 -81.0412,25.3799 -81.0229,25.3514 -81.0043,25.3371 -80.9391,25.3015 -80.8874,25.2943 -80.8513,25.2711 -80.8146,25.2187 -80.8258,25.1918 -80.8742,25.1729 -80.9001,25.183 -80.9881,25.2522 -81.0053,25.2704 -81.0322,25.2924 -81.0739,25.2122 -81.0433,25.1323 -80.9999,25.0983 -80.9846,25.0876 -80.9433,25.0996 -80.7247,25.1343 -80.5794,25.1354 -80.5496,25.1588 -80.4711,25.2124 -80.4375,25.2174 -80.4082,25.2059 -80.4006,25.1705 -80.3862,25.1881 -80.351,25.2138 -80.3128,25.1632 -80.295,25.1584 -80.3169,25.1796 -80.3184,25.2215 -80.2736,25.2913 -80.2367,25.4739 -80.2092,25.5097 -80.2108,25.5141 -80.2103,25.571 -80.1531,25.6554 -80.0889,25.7145 -80.0335,25.8765 -79.9922,26.1714 -79.9647,26.354 -79.9482,26.463 -79.9437,26.4856 -79.9326,26.5233 -79.926,26.6028 -79.9326,26.7657 -79.9488,26.8345 -79.9796,26.9557 -80.002,27.0213 -80.0478,27.1079 -80.1116,27.1634 -80.2084,27.3995 -80.246,27.5073 -80.2524,27.5526 -80.2683,27.6013 -80.282,27.6377 -80.2936,27.6645 -80.3288,27.7382 -80.3381,27.7563 -80.3569,27.7815 -80.3829,27.8232 -80.4725,28.0033 -80.6143,28.3058 -80.6529,28.3889 -80.7186,28.6197 -80.739,28.7488 -80.7083,28.7397 -80.6469,28.6996 -80.6404,28.676 -80.6657,28.6552 -80.6779,28.6039 -80.6507,28.5723 -80.5702,28.5571 -80.5549,28.5764 -80.4953,28.5777 -80.534,28.6372 -80.5767,28.6841 -80.5981,28.715 -80.7252,28.9076 -80.8613,29.1206 -80.909,29.2106 -81.0538,29.5252 -81.08,29.5865 -81.1428,29.7433 -81.1499,29.7633 -81.1816,29.8704 -81.1988,29.9403 -81.2241,30.041 -81.2555,30.1567 -81.2804,30.2274 -81.285,30.2495 -81.2869,30.3241 -81.285,30.351 -81.3067,30.4332 -81.3472,30.4743 -81.3382,30.5388 -81.3293,30.6053 -81.3667,30.6576 -81.4014,30.6793 -81.3891,30.6979 -81.3813,30.7178 -81.3867,30.7436 -81.4039,30.7659 -81.4277,30.815 -81.3953,30.8663 -81.3675,30.8926 -81.3536,30.9075 -81.3133,30.9944 -81.3041,31.0549 -81.3295,31.05 -81.3825,31.0786 -81.3379,31.1723 -81.3024,31.1702 -81.298,31.1428 -81.28,31.1276 -81.1786,31.1862 -81.1633,31.2324 -81.1882,31.2879 -81.1718,31.3221 -81.099,31.4396 -81.1463,31.4668 -81.1783,31.4558 -81.2233,31.5194 -81.1967,31.5324 -81.173,31.5299 -81.1361,31.5249 -81.0604,31.5298 -81.0312,31.578 -81.0213,31.6574 -81.0162,31.693 -80.9498,31.7566 -80.8723,31.8262 -80.8293,31.8589 -80.7496,31.9364 -80.7301,31.9706 -80.7874,31.992 -80.791,32.006 -80.7738,32.0435 -80.7202,32.1207 -80.6957,32.1164 -80.7143,32.0737 -80.6156,32.1208 -80.5672,32.1812 -80.6053,32.2228 -80.635,32.2239 -80.661,32.2486 -80.6782,32.2745 -80.7108,32.3829 -80.7221,32.4264 -80.7272,32.4837 -80.7017,32.4641 -80.693,32.425 -80.6592,32.3367 -80.606,32.2835 -80.5774,32.292 -80.5696,32.3611 -80.5692,32.4142 -80.5485,32.3867 -80.5367,32.3068 -80.538,32.2577 -80.5263,32.2202 -80.4694,32.232 -80.4286,32.25 -80.3602,32.2813 -80.3379,32.316 -80.3249,32.3619 -80.3773,32.4388 -80.4255,32.4548 -80.4499,32.4496 -80.575,32.4639 -80.5644,32.4868 -80.5062,32.4839 -80.4322,32.4787 -80.327,32.4619 -80.3045,32.4353 -80.223,32.444 -80.1183,32.5047 -79.9426,32.5698 -79.8834,32.5821 -79.8132,32.626 -79.7964,32.6372 -79.7738,32.6585 -79.7782,32.6913 -79.8061,32.7085 -79.8458,32.7269 -79.8649,32.7514 -79.8387,32.8168 -79.7915,32.8153 -79.7745,32.8022 -79.7895,32.7816 -79.7798,32.7544 -79.7534,32.7342 -79.712,32.7307 -79.6909,32.7385 -79.6287,32.7677 -79.5086,32.8809 -79.5242,32.9025 -79.4987,32.9495 -79.4677,32.9786 -79.4195,32.9964 -79.3908,32.9724 -79.342,32.9678 -79.2848,32.9712 -79.2684,33.0222 -79.241,33.043 -79.194,33.0622 -79.1299,33.1042 -79.1026,33.1285 -79.1014,33.1486 -79.1218,33.1956 -79.1523,33.2069 -79.1791,33.2294 -79.1913,33.2468 -79.1924,33.268 -79.1862,33.2924 -79.168,33.3362 -79.1228,33.3759 -79.0965,33.3931 -79.1341,33.3398 -79.1604,33.2999 -79.1659,33.277 -79.0935,33.2416 -79.061,33.2772 -79.0457,33.3522 -79.0345,33.3785 -78.878,33.5541 -78.8348,33.6004 -78.8151,33.6199 -78.7788,33.6542 -78.7587,33.6694 -78.725,33.6926 -78.4982,33.8331 -78.48,33.8413 -78.47,33.844 -78.4158,33.8422 -78.335,33.8601 -78.1356,33.8819 -78.0524,33.877 -77.9996,33.8667 -77.968,33.857 -77.9243,33.8516 -77.8746,33.9048 -77.8516,33.9546 -77.845,33.9906 -77.8436,34.0269 -77.8465,34.0535 -77.8496,34.0812 -77.8544,34.1107 -77.826,34.0793 -77.8192,33.9814 -77.8212,33.954 -77.8332,33.8892 -77.8212,33.8993 -77.783,33.9949 -77.7808,34.0238 -77.7685,34.0927 -77.7608,34.1126 -77.7336,34.1536 -77.6562,34.2471 -77.6041,34.3034 -77.5813,34.3273 -77.5633,34.3412 -77.5359,34.3597 -77.5137,34.3737 -77.4726,34.3986 -77.3546,34.4656 -77.3207,34.4758 -77.2812,34.4781 -77.2785,34.5245 -77.285,34.5738 -77.3088,34.6506 -77.3238,34.6742 -77.3285,34.7032 -77.2878,34.6943 -77.2307,34.6012 -77.2499,34.5624 -77.2334,34.5374 -77.2092,34.5213 -77.1726,34.5457 -77.0754,34.6162 -77.0232,34.6545 -76.9939,34.6389 -76.6603,34.7276 -76.5835,34.7586 -76.5612,34.719 -76.5539,34.6785 -76.5264,34.6714 -76.4012,34.6973 -76.3821,34.7377 -76.3123,34.8089 -76.2837,34.8252 -76.2442,34.843 -76.1934,34.898 -76.1726,34.9237 -76.2137,34.9737 -76.2522,34.9832 -76.2345,34.9572 -76.2244,34.9353 -76.3163,34.9022 -76.354,34.8962 -76.3629,34.9239 -76.3347,34.9489 -76.3332,35.0035 -76.3545,35.0275 -76.3901,34.9702 -76.4297,34.9653 -76.5345,34.9435 -76.5975,34.91 -76.6393,34.8798 -76.6535,34.8661 -76.6793,34.8876 -76.7165,34.9003 -76.741,34.9046 -76.79,34.915 -76.8319,34.9306 -76.8652,34.9587 -76.9682,35.1105 -76.8766,35.0289 -76.7674,34.9609 -76.7363,34.9533 -76.7058,34.9465 -76.6616,34.9488 -76.6275,34.9626 -76.5547,35.0042 -76.5047,35.0349 -76.4661,35.0756 -76.4535,35.0985 -76.4736,35.1206 -76.5656,35.1277 -76.4642,35.1942 -76.3884,35.1864 -76.3697,35.232 -76.4036,35.2683 -76.7329,35.3526 -76.9228,35.4471 -76.9494,35.4873 -76.8426,35.4377 -76.8129,35.422 -76.5529,35.3754 -76.5018,35.3919 -76.5167,35.4191 -76.5324,35.4826 -76.5152,35.4961 -76.4886,35.5114 -76.416,35.492 -76.4642,35.4689 -76.4677,35.4452 -76.4231,35.3644 -76.3968,35.3452 -76.3626,35.3325 -76.0502,35.2973 -76.0344,35.3202 -75.9425,35.3844 -75.9034,35.4263 -75.8808,35.477 -75.7949,35.5356 -75.7614,35.5448 -75.7396,35.5273 -75.7183,35.5263 -75.6908,35.5316 -75.6421,35.5786 -75.6224,35.6526 -75.6222,35.7746 -75.6507,35.8378 -75.6845,35.8796 -75.726,35.9246 -75.7519,35.9349 -75.8442,35.8777 -75.8717,35.8574 -75.8906,35.8403 -75.8966,35.7731 -75.8895,35.7509 -75.8951,35.6704 -75.93,35.6142 -76.0044,35.6204 -76.0367,35.6524 -76.0105,35.6514 -75.9459,35.6443 -75.9428,35.709 -75.9539,35.7535 -75.9613,35.807 -75.9538,35.8335 -75.9226,35.8827 -75.9276,35.9218 -75.952,35.9421 -75.9785,35.9529 -76.0753,35.9556 -76.2023,35.9138 -76.1681,35.8786 -76.1798,35.879 -76.2802,35.9174 -76.2931,35.9352 -76.3205,35.9384 -76.3705,35.9248 -76.4302,35.9059 -76.4539,35.8995 -76.5622,35.8928 -76.6296,35.8997 -76.6338,36.0074 -76.6536,36.0543 -76.6603,36.1046 -76.6573,36.1638 -76.646,36.1878 -76.6045,36.206 -76.6187,36.1688 -76.6275,36.127 -76.61,36.077 -76.5912,36.0312 -76.5597,35.9926 -76.4188,35.9668 -76.3954,35.9694 -76.2716,36.0365 -76.268,36.0777 -76.271,36.1094 -76.2346,36.0944 -76.1363,36.0546 -76.1149,36.0544 -75.9717,36.1087 -75.9767,36.1385 -75.993,36.1569 -76.0515,36.218 -76.084,36.2284 -76.1232,36.2517 -76.1002,36.2768 -76.0403,36.2474 -75.9436,36.1792 -75.9333,36.1617 -75.9056,36.1406 -75.8503,36.128 -75.8275,36.1305 -75.8536,36.152 -75.8979,36.2702 -75.8769,36.2708 -75.8396,36.2433 -75.7537,36.0704 -75.6944,36.0335 -75.6976,36.0777 -75.7844,36.255 -75.817,36.3108 -75.8474,36.3314 -75.8878,36.3709 -75.9351,36.4559 -75.9395,36.4774 -75.9294,36.5091 -75.9427,36.5336 -75.92,36.5257 -75.9134,36.5091 -75.8704,36.451 -75.8278,36.4441 -75.8002,36.4519 -75.8099,36.5092 -75.8132,36.5322 -75.8387,36.5227 -75.8441,36.5086 -75.8495,36.5017 -75.8693,36.5086 -75.8763,36.5249 -75.8762,36.58 -75.8672,36.6397 -75.8458,36.6713 -75.8119,36.6241 -75.7828,36.5409 -75.7835,36.5092 -75.7798,36.4918 -75.7709,36.4579 -75.7648,36.4355 -75.7128,36.2788 -75.6695,36.182 -75.6594,36.1616 -75.6525,36.1423 -75.6398,36.0832 -75.6299,36.0206 -75.602,35.9677 -75.5845,35.9514 -75.5623,35.9342 -75.5385,35.9127 -75.4912,35.8575 -75.4906,35.8163 -75.4585,35.7681 -75.4342,35.7616 -75.455,35.8187 -75.4771,35.8685 -75.5372,35.9676 -75.5607,36.0031 -75.6014,36.0563 -75.6135,36.0761 -75.6864,36.2428 -75.7102,36.3303 -75.7287,36.4001 -75.7451,36.4659 -75.7503,36.4907 -75.7525,36.508 -75.7869,36.5997 -75.8632,36.813 -75.8876,36.868 -75.9143,36.8788 -75.9573,36.8652 -76.0607,36.8776 -76.0954,36.8881 -76.1353,36.9093 -76.155,36.9167 -76.2143,36.9036 -76.2181,36.8397 -76.1934,36.8021 -76.2314,36.8225 -76.377,36.8641 -76.3792,36.9164 -76.4749,36.9742 -76.5442,37.0053 -76.6156,37.1059 -76.7639,37.1716 -76.9256,37.2417 -77.0444,37.25 -77.1305,37.2547 -77.1369,37.2944 -76.889,37.2712 -76.8727,37.2572 -76.8026,37.2244 -76.7863,37.2063 -76.6842,37.1933 -76.5774,37.1846 -76.5528,37.1852 -76.5304,37.1745 -76.513,37.1419 -76.5132,37.1146 -76.5122,37.0922 -76.4569,37.0427 -76.336,36.9557 -76.2895,36.9321 -76.1912,36.9637 -76.1675,37.0448 -76.1897,37.0939 -76.2768,37.1725 -76.3422,37.1815 -76.3651,37.1881 -76.4423,37.2273 -76.4849,37.2502 -76.5053,37.2641 -76.5696,37.3448 -76.5815,37.3876 -76.4782,37.282 -76.379,37.2271 -76.3542,37.2201 -76.3476,37.2211 -76.2758,37.2386 -76.303,37.3039 -76.2648,37.3422 -76.1891,37.2938 -76.1606,37.2925 -76.1388,37.3315 -76.1363,37.3868 -76.1447,37.4532 -76.1901,37.5264 -76.3205,37.5611 -76.4177,37.5781 -76.4376,37.588 -76.463,37.6184 -76.4756,37.6505 -76.4883,37.6852 -76.5137,37.7106 -76.5348,37.7187 -76.5625,37.7212 -76.6186,37.7528 -76.7465,37.8851 -76.801,37.9636 -76.8212,38.0111 -76.8458,38.0342 -76.8836,38.0508 -76.9184,38.0536 -77.0081,38.0993 -77.0275,38.1264 -76.952,38.118 -76.83,38.047 -76.809,38.0249 -76.7841,37.9825 -76.7327,37.9107 -76.6011,37.7906 -76.3777,37.6363 -76.2689,37.5913 -76.2526,37.5763 -76.2366,37.5844 -76.1847,37.6547 -76.1274,37.8391 -76.1424,37.8638 -76.1803,37.8884 -76.2481,37.914 -76.3036,37.9321 -76.3998,37.981 -76.4892,38.0799 -76.5877,38.1086 -76.7433,38.1262 -76.7748,38.1357 -76.8301,38.1604 -76.9209,38.2663 -76.966,38.3361 -77.0634,38.3002 -77.1213,38.2906 -77.1437,38.2898 -77.2172,38.3021 -77.2232,38.3593 -77.2012,38.4523 -77.1459,38.5555 -77.0314,38.6554 -76.9926,38.6615 -76.9391,38.6831 -76.9339,38.7997 -76.947,38.8353 -76.9584,38.861 -76.9501,38.8574 -76.9135,38.8206 -76.9184,38.7652 -76.9197,38.7594 -76.9165,38.7527 -76.903,38.7115 -76.9264,38.6554 -76.9614,38.6515 -76.9843,38.6423 -77.0773,38.5625 -77.1315,38.5075 -77.1449,38.481 -77.1603,38.4445 -77.1407,38.3553 -77.0938,38.3251 -76.9727,38.3734 -76.9417,38.3953 -76.8676,38.3155 -76.8133,38.2661 -76.7683,38.2315 -76.6374,38.1907 -76.6001,38.1979 -76.5726,38.1998 -76.5518,38.1989 -76.5282,38.1965 -76.5045,38.1901 -76.48,38.1783 -76.4585,38.1606 -76.447,38.1436 -76.2372,38.0161 -76.211,38.0045 -76.2161,38.1057 -76.2322,38.1353 -76.2461,38.1511 -76.2787,38.177 -76.2895,38.2053 -76.2693,38.2453 -76.3469,38.2571 -76.3803,38.2727 -76.4923,38.3621 -76.5473,38.4102 -76.5611,38.4314 -76.5765,38.6193 -76.5636,38.5933 -76.5648,38.5649 -76.5634,38.5419 -76.5348,38.4478 -76.4771,38.3888 -76.3439,38.2965 -76.3046,38.2942 -76.2769,38.3222 -76.2995,38.3768 -76.3402,38.4141 -76.3764,38.4473 -76.39,38.4625 -76.4029,38.488 -76.4092,38.5144 -76.4353,38.6882 -76.4211,38.8111 -76.3513,38.8698 -76.2915,38.9672 -76.319,39.0644 -76.3381,39.1015 -76.3755,39.1334 -76.4164,39.161 -76.4796,39.1982 -76.5072,39.2065 -76.4734,39.2233 -76.4462,39.2171 -76.4082,39.2037 -76.3863,39.1927 -76.3705,39.1789 -76.3358,39.1684 -76.3134,39.1657 -76.2843,39.1823 -76.2922,39.1858 -76.3049,39.1873 -76.3243,39.195 -76.3489,39.2146 -76.3768,39.2578 -76.3246,39.2727 -76.249,39.3313 -76.2568,39.3559 -76.1541,39.4005 -76.1225,39.3746 -76.1264,39.3427 -76.1098,39.3215 -76.0853,39.3278 -75.9875,39.3868 -75.9605,39.4136 -76.0091,39.4392 -75.9821,39.5047 -75.838,39.5597 -75.7328,39.5274 -75.749,39.4916 -75.8754,39.3458 -75.9934,39.3156 -76.0657,39.2725 -76.1577,39.1096 -76.1183,39.0171 -76.0391,39.0686 -75.9701,39.0979 -76.0541,38.9591 -76.0896,38.941 -76.1179,38.9377 -76.1398,38.9401 -76.1641,38.953 -76.1946,38.9821 -76.2364,38.9232 -76.2453,38.897 -76.2555,38.8515 -76.2577,38.8118 -76.2147,38.8443 -76.1939,38.879 -76.1225,38.9203 -76.0399,38.8424 -76.0024,38.7555 -76.0302,38.7292 -76.0539,38.7199 -76.0841,38.7325 -76.1053,38.7501 -76.1132,38.7696 -76.1532,38.7973 -76.198,38.7752 -76.23,38.7169 -76.2401,38.6449 -76.2187,38.6387 -76.1026,38.6962 -76.0891,38.6406 -75.9662,38.5705 -75.9314,38.5601 -75.9006,38.5636 -75.8779,38.591 -75.8596,38.6084 -75.8612,38.5702 -75.8739,38.5504 -75.9011,38.5367 -75.9268,38.5307 -75.9506,38.5315 -76.0021,38.5428 -76.03,38.5567 -76.0762,38.5685 -76.1634,38.5766 -76.1833,38.5269 -76.1632,38.5085 -76.1231,38.5131 -76.1123,38.5304 -76.0854,38.5361 -76.0646,38.525 -76.0834,38.4911 -76.1068,38.48 -76.1452,38.4671 -76.1958,38.4574 -76.2201,38.4453 -76.1408,38.324 -76.1209,38.3003 -76.1194,38.3415 -76.0597,38.3064 -75.9864,38.2433 -75.9366,38.184 -75.921,38.2009 -75.7454,38.3559 -75.7952,38.2073 -75.8114,38.1027 -75.7525,38.0465 -75.7815,37.9434 -75.7779,37.9049 -75.7513,37.8864 -75.7203,37.9058 -75.6999,37.9209 -75.6739,37.9322 -75.6547,37.937 -75.5929,37.9367 -75.5698,37.9309 -75.5438,37.9186 -75.5457,37.9021 -75.5623,37.7983 -75.5971,37.757 -75.6811,37.6826 -75.7743,37.6146 -75.8165,37.5663 -75.8302,37.5339 -75.8561,37.4556 -75.908,37.2728 -75.9165,37.2293 -75.9026,37.1821 -75.8611,37.1105 -75.7681,37.1754 -75.7513,37.2342 -75.7426,37.3058 -75.7419,37.3308 -75.7039,37.411 -75.6206,37.5058 -75.6013,37.5103 -75.5877,37.4819 -75.5602,37.4553 -75.4968,37.5169 -75.5091,37.5353 -75.47,37.6387 -75.4033,37.7561 -75.3912,37.7724 -75.3124,37.8769 -75.2998,37.9459 -75.2702,37.9816 -75.2685,37.9916 -75.2557,38.0401 -75.2295,38.0663 -75.0835,38.1815 -75.0546,38.1988 -74.9951,38.2858 -74.9793,38.4028 -74.9826,38.4099 -74.9794,38.4143 -74.9652,38.4103 -74.9605,38.4035 -74.9612,38.3649 -74.9734,38.2978 -74.9566,38.3196 -74.9446,38.3742 -74.9436,38.4079 -74.9395,38.4142 -74.9382,38.4364 -74.9635,38.5437 -75.0401,38.5462 -75.0701,38.5352 -75.1006,38.5545 -75.0396,38.6515 -75.0878,38.7731 -75.2014,38.8752 -75.2877,39.0339 -75.3041,39.1135 -75.2911,39.1569 -75.2939,39.2023 -75.3308,39.2666 -75.4253,39.3726 -75.4703,39.4085 -75.5021,39.5694 -75.4864,39.6044 -75.357,39.7438 -75.319,39.7674 -75.3075,39.7771 -75.2589,39.805 -75.207,39.8191 -75.1195,39.8282 -75.0752,39.8508 -75.0363,39.8906 -75.0242,39.9119 -75.0096,39.9284 -74.9577,39.9557 -74.9367,39.9654 -74.9265,39.9673 -74.9633,39.9197 -74.9989,39.8557 -75.0357,39.8293 -75.0938,39.8186 -75.187,39.7982 -75.2426,39.7849 -75.2659,39.7735 -75.2983,39.7552 -75.3222,39.7383 -75.3503,39.7121 -75.4549,39.576 -75.4409,39.4564 -75.4251,39.4211 -75.3141,39.3338 -75.2766,39.3094 -75.2096,39.2698 -75.0631,39.1888 -74.9853,39.1637 -74.9399,39.1698 -74.8231,39.1458 -74.7943,39.1252 -74.782,39.097 -74.7916,39.0602 -74.8071,39.0277 -74.8303,38.9926 -74.8479,38.9657 -74.8568,38.9418 -74.8641,38.8898 -74.8447,38.8794 -74.8078,38.8836 -74.7761,38.8947 -74.7466,38.907 -74.7206,38.9284 -74.6586,38.9943 -74.6108,39.0463 -74.5511,39.1489 -74.4994,39.2136 -74.511,39.2356 -74.5496,39.246 -74.4536,39.2909 -74.415,39.2924 -74.4221,39.2717 -74.3202,39.3098 -74.3284,39.3468 -74.3467,39.356 -74.3622,39.3768 -74.3407,39.3993 -74.322,39.4146 -74.2929,39.3971 -74.276,39.4304 -74.3051,39.4718 -74.219,39.5171 -74.1107,39.5991 -74.0811,39.6261 -74.0509,39.6591 -74.0558,39.6806 -74.078,39.7018 -74.0705,39.7359 -73.9999,39.9059 -73.9704,40.0027 -73.9444,40.008 -73.9436,39.9549 -73.9512,39.9208 -73.966,39.8953 -73.9824,39.8324 -73.9878,39.7304 -73.9203,39.9845 -73.851,40.2545 -73.8553,40.3526 -73.8945,40.4133 -73.9824,40.3926 -74.0985,40.3921 -74.1425,40.4071 -74.1612,40.4207 -74.1574,40.4768 -74.1506,40.5066 -74.0975,40.5953 -74.0323,40.655 -74.007,40.6675 -74.0057,40.647 -74.018,40.6175 -73.9848,40.6233 -73.9195,40.6716 -73.8267,40.8584 -73.8028,40.9134 -73.802,40.9348 -73.8027,40.9432 -73.8112,41.0995 -73.8164,41.1238 -73.8344,41.1411 -73.8583,41.1579 -73.8841,41.222 -73.8493,41.2577 -73.7764,41.1322 -73.7715,41.1125 -73.7647,41.043 -73.7649,41.018 -73.7714,40.9803 -73.7822,40.9279 -73.7901,40.8973 -73.8015,40.8703 -73.822,40.8244 -73.8325,40.7523 -73.7215,40.7801 -73.6805,40.8338 -73.6472,40.879 -73.607,40.9083 -73.5759,40.9077 -73.545,40.9379 -73.5441,40.9614 -73.4583,40.9698 -73.3709,41.005 -73.3328,41.022 -73.2782,41.0483 -73.2221,41.072 -73.176,41.0895 -73.0769,41.1244 -73.0497,41.1112 -73.0029,41.1314 -72.9408,41.1677 -72.8361,41.227 -72.8059,41.2396 -72.79,41.2077 -72.7181,41.2118 -72.5359,41.2309 -72.5069,41.2327 -72.468,41.2278 -72.4317,41.2172 -72.2887,41.2244 -72.1554,41.2405 -72.1358,41.2596 -72.0837,41.2794 -71.8602,41.3009 -71.7796,41.2946 -71.7467,41.2724 -71.7094,41.2749 -71.6834,41.2794 -71.6341,41.2911 -71.5727,41.3072 -71.491,41.3267 -71.465,41.3305 -71.4366,41.3302 -71.4131,41.3235 -71.3763,41.3465 -71.3297,41.4142 -71.3231,41.437 -71.3153,41.558 -71.2909,41.7596 -71.2094,41.6177 -71.1731,41.6061 -71.1363,41.6306 -71.1381,41.6622 -71.1176,41.6782 -71.0164,41.7423 -71.0373,41.702 -71.0584,41.6728 -71.0976,41.6241 -71.1001,41.6205 -71.1079,41.5934 -71.1096,41.5022 -71.1039,41.4516 -71.09,41.4217 -71.0443,41.4474 -71.03,41.4639 -70.9675,41.4638 -70.8287,41.5072 -70.7161,41.5829 -70.6285,41.6806 -70.5365,41.6543 -70.5536,41.5948 -70.5612,41.5555 -70.551,41.4925 -70.3884,41.5131 -70.342,41.5574 -70.3214,41.5865 -70.261,41.5879 -70.1351,41.5972 -70.0885,41.6084 -69.9922,41.6212 -69.9506,41.6232 -69.921,41.6225 -69.891,41.6213 -69.839,41.6255 -69.8316,41.6729 -69.8306,41.7851 -69.838,41.8093 -69.8628,41.873 -69.8805,41.9069 -69.8963,41.9334 -69.9108,41.9494 -69.9364,41.9751 -69.977,42.0115 -70.0153,42.0302 -70.047,42.04 -70.1288,42.0429 -70.1468,42.0264 -70.0901,41.9816 -70.0753,42.0085 -70.0375,42.0114 -70.01,41.992 -69.8918,41.8652 -69.8944,41.7834 -69.9225,41.7453 -69.9884,41.7216 -70.0151,41.7147 -70.0495,41.7123 -70.0751,41.7062 -70.1078,41.6967 -70.1965,41.6617 -70.2358,41.6667 -70.3547,41.7083 -70.4292,41.759 -70.4298,41.7927 -70.424,41.8182 -70.4364,41.8872 -70.476,41.9044 -70.4968,41.9007 -70.5473,41.9167 -70.5842,41.9497 -70.5539,42.0098 -70.6197,42.1661 -70.6589,42.1979 -70.7505,42.2267 -70.7695,42.2097 -70.8591,42.1929 -70.9409,42.257 -70.9462,42.3195 -70.7896,42.4598 -70.7697,42.4927 -70.681,42.5126 -70.5307,42.5474 -70.4838,42.6046 -70.5198,42.6427 -70.5449,42.6322 -70.5665,42.6157 -70.5642,42.5936 -70.6486,42.6066 -70.7077,42.6677 -70.7093,42.6949 -70.7142,42.829 -70.7121,42.8452 -70.6917,42.8902 -70.6608,42.9272 -70.6209,42.9743 -70.606,43.0092 -70.6391,43.0292 -70.625,43.0712 -70.5956,43.0515 -70.5726,43.0359 -70.5031,43.129 -70.4733,43.1777 -70.4855,43.208 -70.4712,43.2486 -70.4507,43.2748 -70.4158,43.3052 -70.3836,43.3078 -70.3531,43.3087 -70.2955,43.354 -70.2557,43.3938 -70.2478,43.4121 -70.1927,43.5073 -70.0938,43.5261 -70.0983,43.5936 -70.118,43.6087 -70.1545,43.603 -70.1328,43.6247 -70.1102,43.6754 -70.0742,43.731 -70.0318,43.757 -69.9939,43.7784 -69.8937,43.8256 -69.8242,43.8151 -69.7594,43.7513 -69.7541,43.7099 -69.7336,43.6668 -69.703,43.7393 -69.7151,43.8166 -69.721,43.8533 -69.7328,43.878 -69.7703,43.9192 -69.7755,43.9425 -69.6739,44.0245 -69.6816,43.9978 -69.6844,43.9134 -69.6545,43.7805 -69.6216,43.7427 -69.6026,43.7917 -69.5952,43.8327 -69.6196,43.8557 -69.5815,43.9173 -69.5671,43.9589 -69.5454,43.9789 -69.5199,43.9891 -69.5291,43.9696 -69.5447,43.9536 -69.5537,43.8513 -69.4898,43.8348 -69.494,43.8698 -69.4915,43.9085 -69.4312,43.9744 -69.4589,43.9259 -69.4537,43.8876 -69.4563,43.848 -69.4433,43.825 -69.4032,43.8007 -69.3896,43.8199 -69.3617,43.8756 -69.273,43.9973 -69.2009,43.9475 -69.1516,43.8884 -69.1024,43.9306 -68.9687,44.0161 -68.9534,44.0512 -68.985,44.0497 -68.9868,44.0788 -68.9258,44.207 -68.8842,44.3916 -68.8055,44.412 -68.7533,44.4229 -68.7145,44.4718 -68.7004,44.5241 -68.6351,44.5053 -68.6546,44.4672 -68.6972,44.4078 -68.7168,44.28 -68.5196,44.2563 -68.4529,44.2711 -68.4628,44.3685 -68.4081,44.3723 -68.3671,44.3492 -68.2829,44.3718 -68.2683,44.3968 -68.2254,44.4157 -68.1743,44.4162 -68.0125,44.4046 -67.9993,44.3546 -67.9642,44.3014 -67.9139,44.3432 -67.8781,44.3554 -67.8409,44.3766 -67.7698,44.4434 -67.6802,44.4965 -67.6406,44.4696 -67.616,44.4621 -67.4681,44.5022 -67.4665,44.5465 -67.4702,44.5837 -67.451,44.6164 -67.4086,44.5994 -67.3212,44.5779 -67.1692,44.5924 -67.0957,44.6098 -66.9029,44.7528 -66.8769,44.7773 -66.8888,44.8156 -66.9637,44.8499 -66.9807,44.8362 -66.9974,44.8186 -67.0276,44.8276 -67.0842,44.8483 -67.0976,44.8748 -67.0325,44.8804 -66.9808,44.9013 -66.94,44.934 -67.0112,45.0473 -67.0686,45.1171 -67.1123,45.1317 -67.142,45.1426 -67.1698,45.1486 -67.1956,45.1287 -67.2114,45.1036 -67.2443,45.0991 -67.3116,45.1452 -67.3278,45.1635 -67.3605,45.2116 -67.3697,45.2326 -67.3561,45.2814 -67.387,45.4443 -67.3263,45.4733 -67.3182,45.5335 -67.3633,45.5619 -67.3827,45.5566 -67.4124,45.5497 -67.479,45.5597 -67.5652,45.5803 -67.6989,45.644 -67.7088,45.6792 -67.7107,45.7327 -67.6911,45.836 -67.6769,45.9051 -67.6831,46.2305 -67.6923,46.7346 -67.6952,46.8679 -67.6983,47.0162 -67.7701,47.0467 -67.7952,47.0606 -67.8528,47.1146 -67.8637,47.1365 -68.0882,47.2787 -68.111,47.2877 -68.1474,47.2979 -68.217,47.3112 -68.245,47.3078 -68.2725,47.2953 -68.4664,47.2359 -68.6636,47.1788 -68.6891,47.171 -68.7331,47.155 -68.793,47.135 -68.8631,47.1648 -68.9335,47.2018 -68.9522,47.2279 -68.9548,47.2396 -68.9563,47.248 -68.957,47.2882 -68.9537,47.3265 -68.9456,47.349 -68.9464,47.3767 -69.0291,47.4049 -69.1368,47.4135 -69.2059,47.3462 -69.3244,47.2293 -69.5546,47.0016 -69.6132,46.9435 -69.7477,46.8086 -69.8931,46.6625 -69.9098,46.6448 -69.9276,46.5343 -69.9393,46.4571 -69.9447,46.4221 -69.9485,46.4009 -69.9579,46.3783 -69.9789,46.3648 -70.0196,46.3408 -70.1009,46.2837 -70.1429,46.2265 -70.1882,46.1506 -70.2063,46.0263 -70.2057,45.9277 -70.1703,45.9211 -70.1458,45.908 -70.1591,45.8567 -70.2946,45.7258 -70.3676,45.6599 -70.4561,45.6208 -70.4776,45.6089 -70.5324,45.5757 -70.5935,45.5202 -70.621,45.4765 -70.6255,45.4456 -70.6134,45.4261 -70.5976,45.4118 -70.7772,45.1895 -70.9214,45.2753 -70.9854,45.2562 -71.0435,45.2013 -71.0799,45.2045 -71.1119,45.2145 -71.1364,45.2251 -71.1726,45.2448 -71.1955,45.2523 -71.2211,45.2454 -71.3241,45.1986 -71.3012,45.1629 -71.3341,45.0764 -71.3593,45.0515 -71.3885,45.0266 -71.3981,44.9984 -71.3939,44.9693 -71.4543,44.969 -71.7919,44.968 -71.9489,44.9683 -72.1702,44.9677 -72.3573,44.9665 -72.4083,44.9661 -72.6768,44.9698 -72.8538,44.9673 -73.2385,44.9606 -73.2498,44.9584 -73.2649,44.9597 -73.5195,44.9555 -73.8078,44.9489 -74.1446,44.9411 -74.5772,44.9558 -74.6462,44.9514 -74.6629,44.9554 -74.6664,44.9538 -74.678,44.9528 -74.6903,44.9546 -74.6993,44.9541 -74.7025,44.9527 -74.7077,44.9526 -74.7128,44.9512 -74.7173,44.9489 -74.7185,44.9448 -74.7089,44.9449 -74.7044,44.9444 -74.7011,44.9426 -74.7075,44.9389 -74.7158,44.9357 -74.7229,44.9324 -74.7287,44.9324 -74.7313,44.9342 -74.7339,44.9369 -74.7442,44.9346 -74.7551,44.9327 -74.7622,44.9308 -74.7654,44.9281 -74.7686,44.9244 -74.782,44.9202 -74.7891,44.9174 -74.8007,44.9155 -74.8059,44.9173 -74.8065,44.92 -74.8033,44.9214 -74.8002,44.9242 -74.8073,44.9246 -74.8137,44.9236 -74.8214,44.9194 -74.8233,44.9167 -74.8329,44.9134 -74.8393,44.9111 -74.8431,44.906 -74.8449,44.9001 -74.8532,44.8923 -74.8576,44.8886 -74.8704,44.8821 -74.8801,44.8825 -74.8891,44.8806 -74.8961,44.8773 -74.9045,44.8768 -74.9167,44.8767 -74.9348,44.8748 -74.9444,44.8742 -74.9502,44.871 -74.9533,44.8668 -74.9578,44.8627 -74.9616,44.8622 -74.968,44.8617 -74.9751,44.8584 -74.9815,44.8547 -74.9923,44.8505 -75.0025,44.8436 -75.0076,44.8422 -75.0173,44.843 -75.0218,44.8412 -75.0507,44.8296 -75.0807,44.8201 -75.0945,44.8122 -75.1011,44.8112 -75.1085,44.8123 -75.1134,44.8129 -75.1204,44.812 -75.1258,44.8091 -75.1364,44.8036 -75.1395,44.8004 -75.1407,44.7976 -75.1397,44.7943 -75.1399,44.7894 -75.1412,44.7871 -75.1552,44.7783 -75.1845,44.7662 -75.1922,44.7629 -75.1979,44.7587 -75.2016,44.7505 -75.204,44.7431 -75.2084,44.7404 -75.2155,44.7371 -75.2224,44.7334 -75.23,44.7278 -75.2561,44.7143 -75.2892,44.6998 -75.3032,44.6905 -75.3126,44.6808 -75.319,44.6785 -75.3346,44.6739 -75.3445,44.6709 -75.3517,44.6622 -75.356,44.6584 -75.3602,44.6548 -75.3644,44.6523 -75.3703,44.6489 -75.378,44.6445 -75.4019,44.6265 -75.4127,44.6199 -75.431,44.6056 -75.4556,44.5893 -75.4778,44.5758 -75.4999,44.5646 -75.5062,44.5604 -75.5106,44.5544 -75.5162,44.5466 -75.5281,44.5369 -75.5395,44.5304 -75.5471,44.5275 -75.5528,44.5238 -75.5559,44.5187 -75.5615,44.5137 -75.5678,44.5104 -75.5716,44.5062 -75.5758,44.4966 -75.5866,44.4919 -75.6062,44.4834 -75.61,44.4793 -75.6098,44.4733 -75.6148,44.4692 -75.6185,44.4646 -75.624,44.4549 -75.6288,44.4412 -75.6319,44.4361 -75.6414,44.4323 -75.6438,44.4286 -75.6393,44.4264 -75.6336,44.4274 -75.6259,44.4271 -75.6207,44.4244 -75.6174,44.4183 -75.6662,44.3769 -75.6742,44.3701 -75.6881,44.3601 -75.6953,44.3563 -75.7051,44.3512 -75.7076,44.3493 -75.7062,44.3443 -75.7017,44.3449 -75.6928,44.3464 -75.6946,44.3436 -75.6958,44.3395 -75.6913,44.3373 -75.6931,44.3336 -75.6963,44.3322 -75.702,44.3307 -75.7077,44.3288 -75.7102,44.3265 -75.7126,44.3219 -75.7157,44.32 -75.7177,44.3218 -75.7197,44.3241 -75.7204,44.3277 -75.7187,44.3341 -75.7257,44.3322 -75.7383,44.3261 -75.761,44.3148 -75.7698,44.3097 -75.7766,44.3023 -75.7846,44.2935 -75.806,44.2818 -75.8136,44.2794 -75.8167,44.2771 -75.8185,44.2721 -75.8242,44.2701 -75.8318,44.2691 -75.8425,44.2626 -75.8492,44.2529 -75.8555,44.2492 -75.8618,44.2454 -75.8642,44.2422 -75.8634,44.234 -75.8697,44.2321 -75.8717,44.2339 -75.8737,44.237 -75.8762,44.2375 -75.8807,44.2356 -75.885,44.2328 -75.8867,44.2241 -75.8949,44.2212 -75.905,44.217 -75.9144,44.2127 -75.9232,44.2089 -75.9335,44.2115 -75.9374,44.2133 -75.9373,44.2096 -75.9377,44.2019 -75.9428,44.2009 -75.9511,44.2021 -75.9575,44.2034 -75.9619,44.2019 -75.9631,44.1987 -75.97,44.194 -75.9751,44.1944 -75.9796,44.1939 -75.9865,44.1906 -75.9928,44.1891 -76.0048,44.1867 -76.0175,44.1837 -76.0289,44.1799 -76.0332,44.1771 -76.0376,44.1752 -76.0434,44.1764 -76.0491,44.175 -76.0528,44.1708 -76.0546,44.1662 -76.0583,44.163 -76.0633,44.1602 -76.0727,44.1559 -76.0778,44.1549 -76.086,44.1507 -76.0941,44.1473 -76.0966,44.1441 -76.0983,44.1381 -76.1077,44.1348 -76.1103,44.1338 -76.1171,44.1296 -76.1253,44.1277 -76.1368,44.127 -76.1393,44.1256 -76.1436,44.121 -76.1498,44.1168 -76.1579,44.1116 -76.1674,44.1078 -76.1794,44.1048 -76.1882,44.101 -76.1944,44.0959 -76.1998,44.0881 -76.2085,44.0815 -76.2128,44.0774 -76.2138,44.07 -76.2118,44.0664 -76.2092,44.0633 -76.2097,44.0606 -76.2038,44.0561 -76.2061,44.0492 -76.2084,44.0405 -76.2089,44.0378 -76.2069,44.0364 -76.1993,44.0361 -76.1923,44.0376 -76.1873,44.0377 -76.1816,44.041 -76.1766,44.0438 -76.1722,44.0439 -76.1708,44.0416 -76.1726,44.0375 -76.1775,44.0324 -76.1755,44.0293 -76.1704,44.028 -76.1565,44.0305 -76.1481,44.0275 -76.1505,44.0242 -76.1516,44.0183 -76.1508,44.0137 -76.1519,44.0096 -76.1543,44.0032 -76.1567,43.9991 -76.1597,43.9944 -76.1583,43.9908 -76.1531,43.9873 -76.151,43.9832 -76.1522,43.9795 -76.1527,43.9772 -76.147,43.9773 -76.1407,43.9788 -76.1332,43.9831 -76.1346,43.9867 -76.1354,43.9898 -76.1335,43.9908 -76.1272,43.9941 -76.1249,43.9991 -76.1287,44.0009 -76.1401,43.9989 -76.1377,44.0021 -76.1314,44.0059 -76.124,44.0101 -76.1191,44.0179 -76.113,44.0244 -76.1049,44.0291 -76.0954,44.0329 -76.0839,44.0313 -76.0769,44.03 -76.0694,44.0356 -76.0602,44.0449 -76.0506,44.0446 -76.0511,44.0391 -76.0529,44.0364 -76.0579,44.0322 -76.0596,44.028 -76.057,44.0254 -76.0532,44.0245 -76.0386,44.0261 -76.0354,44.0271 -76.019,44.0319 -76.0152,44.0311 -76.0062,44.0298 -75.9968,44.0318 -75.9967,44.0286 -75.994,44.0264 -75.9889,44.0237 -75.9868,44.0201 -75.9931,44.0155 -76.0049,44.008 -76.0174,44.0019 -76.009,43.9956 -76.0002,43.9985 -75.9927,44.0036 -75.9808,44.0107 -75.967,44.0154 -75.9599,44.0133 -75.9604,44.0101 -75.9642,44.0077 -75.9679,44.0045 -75.9696,43.9994 -75.9688,43.9926 -75.9749,43.9848 -75.99,43.9781 -76.0032,43.9743 -76.024,43.9671 -76.0341,43.9651 -76.0448,43.9613 -76.0575,43.942 -76.0522,43.9366 -76.0383,43.9386 -76.0307,43.9397 -76.0256,43.9379 -76.0248,43.9334 -76.0176,43.9276 -76.0043,43.9292 -75.9792,43.9391 -75.945,43.962 -75.9471,43.9679 -75.9427,43.9721 -75.9389,43.9726 -75.932,43.9759 -75.9264,43.9783 -75.9194,43.9784 -75.9168,43.9761 -75.9192,43.9729 -75.923,43.9701 -75.9286,43.9661 -75.9215,43.9633 -75.9015,43.9741 -75.883,43.9744 -75.874,43.9698 -75.8791,43.9694 -75.8855,43.9707 -75.8911,43.9697 -75.8962,43.9673 -75.8999,43.9645 -75.9054,43.9585 -75.9097,43.953 -75.9096,43.9503 -75.9063,43.9458 -75.9017,43.9413 -75.9029,43.9381 -75.9067,43.9362 -75.9111,43.9352 -75.913,43.9338 -75.9141,43.9297 -75.9178,43.926 -75.9254,43.9254 -75.9293,43.9272 -75.9307,43.9313 -75.9302,43.9354 -75.929,43.9399 -75.9334,43.9362 -75.939,43.9343 -75.944,43.931 -75.9527,43.9254 -75.9683,43.9165 -75.9853,43.9094 -75.9915,43.9057 -75.9933,43.9016 -75.9875,43.8985 -75.9835,43.8949 -75.9834,43.8894 -75.9812,43.8803 -75.9773,43.8768 -75.9765,43.8736 -75.979,43.8708 -75.9827,43.8685 -75.9838,43.8639 -75.985,43.8598 -75.9912,43.8565 -75.9975,43.8555 -76.0039,43.8549 -76.0095,43.853 -76.0189,43.8483 -76.0294,43.8404 -76.05,43.8291 -76.0518,43.8263 -76.0536,43.8222 -76.0567,43.8199 -76.0599,43.8203 -76.0663,43.8238 -76.0709,43.826 -76.08,43.8327 -76.082,43.8358 -76.0808,43.84 -76.079,43.8436 -76.0741,43.8483 -76.0737,43.8533 -76.0787,43.8528 -76.085,43.8504 -76.0925,43.8475 -76.0982,43.8465 -76.1065,43.8473 -76.1141,43.8476 -76.1222,43.8447 -76.1284,43.8405 -76.135,43.8286 -76.1455,43.8188 -76.1486,43.8165 -76.1484,43.8124 -76.1456,43.8038 -76.1386,43.8034 -76.1273,43.805 -76.1189,43.8024 -76.1194,43.7969 -76.1224,43.7932 -76.1229,43.7878 -76.1064,43.789 -76.1007,43.7891 -76.0961,43.7823 -76.0929,43.7824 -76.0879,43.7843 -76.0847,43.7839 -76.0833,43.7789 -76.0851,43.7752 -76.0867,43.7683 -76.084,43.7611 -76.0777,43.7453 -76.0741,43.7308 -76.0691,43.7126 -76.0646,43.6922 -76.0582,43.6914 -76.0571,43.6793 -76.0554,43.6608 -76.0536,43.6488 -76.0529,43.6441 -76.0544,43.6304 -76.0546,43.6191 -76.0536,43.6072 -76.0522,43.6018 -76.049,43.6005 -76.0459,43.6019 -76.0441,43.6051 -76.0436,43.6115 -76.0438,43.616 -76.0446,43.6229 -76.0462,43.6319 -76.0433,43.6393 -76.0389,43.6416 -76.0369,43.638 -76.038,43.6339 -76.036,43.6303 -76.0302,43.6277 -76.0232,43.6237 -76.0212,43.6228 -76.0162,43.6224 -76.0097,43.6198 -76.0077,43.6148 -76.0095,43.6116 -76.0132,43.6093 -76.0169,43.6065 -76.0194,43.6046 -76.0187,43.6023 -76.0198,43.5987 -76.0243,43.5995 -76.0282,43.6017 -76.0325,43.6007 -76.0356,43.5975 -76.0387,43.5947 -76.0392,43.5906 -76.0333,43.5862 -76.0364,43.5843 -76.0401,43.5801 -76.0426,43.5801 -76.044,43.5833 -76.0512,43.5922 -76.0537,43.5913 -76.0555,43.5876 -76.0565,43.5794 -76.0567,43.5657 -76.0554,43.5457 -76.0515,43.5426 -76.0445,43.54 -76.033,43.5374 -76.026,43.5344 -76.0279,43.533 -76.0335,43.532 -76.0404,43.531 -76.048,43.5322 -76.0506,43.5322 -76.0556,43.5316 -76.0611,43.5261 -76.0654,43.5219 -76.069,43.5145 -76.0738,43.5067 -76.0792,43.5007 -76.0892,43.4951 -76.0986,43.4935 -76.1061,43.4925 -76.1136,43.4906 -76.1306,43.4875 -76.1474,43.48 -76.1543,43.4798 -76.1632,43.4806 -76.1676,43.4814 -76.1701,43.4796 -76.1769,43.4763 -76.1896,43.4783 -76.1992,43.4813 -76.2171,43.4874 -76.2299,43.4921 -76.24,43.4924 -76.2526,43.4917 -76.2683,43.4883 -76.2794,43.4817 -76.2972,43.4677 -76.3053,43.4644 -76.3147,43.4624 -76.3215,43.459 -76.3271,43.4558 -76.3282,43.4521 -76.3299,43.4466 -76.3366,43.4406 -76.3484,43.4358 -76.3689,43.4272 -76.3901,43.42 -76.4119,43.4122 -76.4256,43.4065 -76.4354,43.3995 -76.4539,43.3877 -76.4672,43.3802 -76.4946,43.3642 -76.5054,43.3498 -76.5241,43.329 -76.5363,43.3178 -76.5505,43.3111 -76.5529,43.3093 -76.5528,43.307 -76.552,43.302 -76.5537,43.2961 -76.5566,43.2919 -76.5545,43.2865 -76.557,43.2837 -76.5614,43.2841 -76.5669,43.2908 -76.5695,43.2985 -76.568,43.3026 -76.5655,43.3086 -76.5687,43.3108 -76.575,43.3106 -76.5768,43.307 -76.576,43.3029 -76.5757,43.297 -76.5788,43.2937 -76.5851,43.295 -76.5871,43.2976 -76.5844,43.3086 -76.5912,43.3058 -76.5949,43.3025 -76.6015,43.2946 -76.6119,43.2876 -76.6249,43.2818 -76.6492,43.2763 -76.6723,43.2726 -76.6792,43.2716 -76.6817,43.2692 -76.6816,43.267 -76.6776,43.2616 -76.6741,43.2548 -76.6744,43.2448 -76.6805,43.242 -76.6825,43.2451 -76.6815,43.2506 -76.6831,43.2596 -76.6895,43.2613 -76.6947,43.2653 -76.6974,43.2698 -76.7111,43.2668 -76.7186,43.2639 -76.7267,43.2623 -76.7342,43.2622 -76.7431,43.2633 -76.7544,43.2635 -76.7668,43.2578 -76.7816,43.2502 -76.7921,43.2472 -76.799,43.2457 -76.7995,43.2421 -76.7992,43.2357 -76.7929,43.2367 -76.791,43.2354 -76.7901,43.2291 -76.7869,43.2269 -76.7841,43.2215 -76.7858,43.2169 -76.7868,43.2109 -76.7823,43.2083 -76.7745,43.2035 -76.7699,43.199 -76.7703,43.1917 -76.7724,43.1826 -76.7743,43.1835 -76.7763,43.1852 -76.7778,43.1911 -76.778,43.1952 -76.7795,43.202 -76.793,43.2076 -76.8036,43.2078 -76.8144,43.209 -76.8166,43.2162 -76.8219,43.2229 -76.8264,43.2246 -76.8283,43.2255 -76.829,43.2277 -76.8273,43.231 -76.8242,43.2319 -76.8187,43.2357 -76.8176,43.2394 -76.8196,43.2421 -76.8278,43.2432 -76.838,43.2448 -76.8769,43.2421 -76.8914,43.2431 -76.9009,43.2452 -76.9099,43.2491 -76.9174,43.2485 -76.9263,43.2505 -76.9455,43.2565 -76.9611,43.2543 -76.9781,43.2534 -76.9825,43.2533 -76.9907,43.2554 -77.0014,43.2556 -77.0176,43.2511 -77.0251,43.2505 -77.0347,43.252 -77.0428,43.2518 -77.0559,43.2492 -77.0635,43.2495 -77.0735,43.2479 -77.1024,43.2467 -77.1287,43.2438 -77.1469,43.2443 -77.1533,43.2455 -77.1666,43.247 -77.1767,43.2476 -77.1873,43.2469 -77.2123,43.2431 -77.2248,43.2416 -77.2274,43.2413 -77.2331,43.2421 -77.2368,43.242 -77.2482,43.2421 -77.2513,43.2416 -77.2649,43.2371 -77.2767,43.2346 -77.2897,43.2301 -77.3052,43.2243 -77.3263,43.2182 -77.3487,43.2149 -77.3569,43.2151 -77.3687,43.2126 -77.3762,43.2101 -77.3961,43.2054 -77.4232,43.2074 -77.4361,43.2126 -77.4476,43.2168 -77.4541,43.2212 -77.4615,43.2287 -77.4718,43.2343 -77.4834,43.2399 -77.5008,43.2458 -77.511,43.2496 -77.5273,43.2597 -77.5342,43.2704 -77.5426,43.2752 -77.552,43.274 -77.5653,43.2759 -77.572,43.2834 -77.5571,43.2861 -77.561,43.2897 -77.5662,43.2927 -77.5746,43.2957 -77.5925,43.3011 -77.6117,43.3064 -77.6287,43.3055 -77.6462,43.3041 -77.6633,43.3045 -77.6743,43.3096 -77.6847,43.3157 -77.6966,43.3154 -77.7194,43.317 -77.7398,43.3205 -77.7697,43.3264 -77.7996,43.3301 -77.8149,43.3342 -77.8232,43.3348 -77.8288,43.3342 -77.8356,43.3313 -77.8395,43.3315 -77.8463,43.3318 -77.8522,43.3349 -77.8812,43.3349 -77.8875,43.3356 -77.8931,43.334 -77.8993,43.3316 -77.9111,43.3298 -77.9246,43.3331 -77.9424,43.3371 -77.9653,43.3391 -77.9917,43.3378 -78.0148,43.3344 -78.0367,43.3318 -78.0549,43.3303 -78.0707,43.3307 -78.1075,43.3355 -78.117,43.3365 -78.1296,43.3361 -78.1479,43.336 -78.1763,43.3355 -78.2034,43.3364 -78.2288,43.3388 -78.2439,43.3387 -78.2609,43.3377 -78.2778,43.3358 -78.2999,43.3368 -78.3121,43.3379 -78.3189,43.3385 -78.338,43.3401 -78.3624,43.3384 -78.3787,43.3369 -78.3956,43.3345 -78.4179,43.3291 -78.4311,43.3278 -78.4424,43.3274 -78.4538,43.3274 -78.4626,43.328 -78.4775,43.3248 -78.493,43.3201 -78.5183,43.3124 -78.5432,43.307 -78.5546,43.3084 -78.5635,43.3099 -78.571,43.3087 -78.5807,43.3033 -78.5937,43.2992 -78.5974,43.2986 -78.6063,43.2992 -78.6124,43.2967 -78.6191,43.2933 -78.6267,43.293 -78.6417,43.2925 -78.6548,43.2897 -78.6672,43.2865 -78.6739,43.2836 -78.6811,43.2787 -78.6906,43.2788 -78.6952,43.2819 -78.697,43.2804 -78.7069,43.2787 -78.7113,43.2785 -78.7156,43.277 -78.744,43.2677 -78.7773,43.2583 -78.7997,43.2538 -78.8295,43.2477 -78.8704,43.2393 -78.8941,43.2365 -78.9005,43.2377 -78.9097,43.2341 -78.9114,43.2318 -78.906,43.2261 -78.9014,43.2244 -78.897,43.2241 -78.8937,43.222 -78.8935,43.2193 -78.8963,43.2146 -78.9017,43.2103 -78.9055,43.2024 -78.9009,43.1959 -78.8998,43.1844 -78.8984,43.1744 -78.8952,43.165 -78.8953,43.1577 -78.898,43.1521 -78.8956,43.1449 -78.8931,43.1364 -78.8899,43.1278 -78.8874,43.1184 -78.8868,43.1106 -78.8926,43.104 -78.9033,43.0959 -78.9105,43.091 -78.9133,43.0864 -78.9093,43.0829 -78.9048,43.0735 -78.9091,43.0633 -78.91,43.0592 -78.9086,43.0565 -78.9066,43.0548 -78.9026,43.0517 -78.8923,43.0489 -78.8644,43.0445 -78.836,43.0424 -78.7904,43.0382 -78.7731,43.0325 -78.7626,43.0265 -78.7517,43.0233 -78.7419,43.0173 -78.7365,43.0125 -78.7323,43.0058 -78.7299,42.9995 -78.7297,42.9877 -78.7326,42.984 -78.7343,42.9816 -78.7361,42.9797 -78.7409,42.9773 -78.7537,42.9722 -78.7635,42.9687 -78.7737,42.9628 -78.7831,42.9529 -78.7846,42.9478 -78.784,42.9401 -78.7818,42.9357 -78.7725,42.9278 -78.7644,42.9204 -78.7614,42.9132 -78.7564,42.9047 -78.7514,42.8954 -78.7531,42.8839 -78.7557,42.8761 -78.7534,42.8703 -78.7466,42.8632 -78.7385,42.8549 -78.7368,42.849 -78.7318,42.8406 -78.7276,42.8343 -78.7227,42.8259 -78.7125,42.8153 -78.7065,42.8014 -78.7036,42.7956 -78.7099,42.7963 -78.7135,42.793 -78.7137,42.788 -78.7114,42.7821 -78.7065,42.7655 -78.7067,42.7586 -78.7144,42.7524 -78.731,42.7409 -78.7447,42.7304 -78.7629,42.7137 -78.7727,42.7106 -78.785,42.7079 -78.8034,42.7036 -78.8201,42.6929 -78.823,42.6896 -78.8273,42.689 -78.8316,42.6875 -78.8414,42.6848 -78.8493,42.6822 -78.8597,42.6791 -78.8732,42.6745 -78.8847,42.6695 -78.8912,42.6651 -78.894,42.6605 -78.9002,42.6511 -78.9045,42.6423 -78.906,42.6364 -78.9046,42.6255 -78.9085,42.6199 -78.9122,42.6193 -78.9214,42.6171 -78.9281,42.6146 -78.929,42.6095 -78.9457,42.5998 -78.958,42.5888 -78.9649,42.5799 -78.9779,42.5625 -78.9837,42.5482 -78.9888,42.5412 -78.9941,42.5373 -79.0071,42.535 -79.0129,42.5297 -79.0197,42.529 -79.0265,42.5278 -79.0361,42.5238 -79.0404,42.5218 -79.049,42.521 -79.0545,42.519 -79.0617,42.515 -79.0751,42.5109 -79.0925,42.5029 -79.1062,42.4937 -79.1199,42.4858 -79.1321,42.4817 -79.1388,42.4796 -79.1448,42.4766 -79.1494,42.4728 -79.1605,42.4701 -79.1749,42.4636 -79.1864,42.459 -79.1926,42.4588 -79.1964,42.4591 -79.2026,42.4593 -79.2089,42.4444 -79.2202,42.4367 -79.2365,42.4305 -79.241,42.4244 -79.2513,42.4204 -79.2581,42.4201 -79.2639,42.4148 -79.2749,42.3962 -79.2921,42.385 -79.3114,42.3778 -79.3464,42.3558 -79.3732,42.3411 -79.405,42.326 -79.4385,42.3096 -79.4601,42.3 -79.479,42.2887 -79.5135,42.2699 -79.5254,42.2635 -79.543,42.2577 -79.5606,42.2524 -79.5732,42.2473 -79.5901,42.2411 -79.6094,42.2366 -79.6148,42.2306 -79.6228,42.2264 -79.6344,42.223 -79.6424,42.2206 -79.6522,42.2168 -79.6582,42.2121 -79.6686,42.206 -79.6771,42.2013 -79.6857,42.198 -79.6912,42.1956 -79.7028,42.1922 -79.7089,42.1903 -79.7139,42.1911 -79.7208,42.1932 -79.7295,42.1931 -79.735,42.1903 -79.7435,42.1847 -79.7501,42.1809 -79.7587,42.178 -79.7661,42.176 -79.7772,42.174 -79.7857,42.1707 -79.7906,42.1674 -79.7954,42.1637 -79.8058,42.1599 -79.818,42.1555 -79.8284,42.1508 -79.8363,42.1465 -79.8436,42.1423 -79.8514,42.1372 -79.8593,42.1329 -79.869,42.1277 -79.8733,42.1245 -79.8787,42.1216 -79.8946,42.1168 -79.9038,42.113 -79.9087,42.1106 -79.916,42.1082 -79.919,42.1068 -79.9227,42.1062 -79.9259,42.1071 -79.929,42.1079 -79.9358,42.1073 -79.9381,42.1023 -79.9435,42.0995 -79.9551,42.0951 -79.96,42.0928 -79.966,42.0895 -79.9765,42.0865 -79.9881,42.0827 -79.9923,42.0807 -79.9978,42.0793 -80.004,42.0782 -80.0078,42.0804 -80.0073,42.085 -80.0049,42.0869 -80.0,42.0874 -79.9976,42.0893 -79.9971,42.0929 -79.996,42.0966 -79.9955,42.0998 -79.9906,42.1008 -79.9882,42.1022 -79.9853,42.1068 -79.9822,42.1087 -79.9779,42.1097 -79.9699,42.1098 -79.9637,42.11 -79.9594,42.1105 -79.9557,42.111 -79.952,42.1116 -79.9515,42.1138 -79.9503,42.1161 -79.9485,42.118 -79.9455,42.1194 -79.943,42.1176 -79.9392,42.1159 -79.9336,42.1165 -79.9318,42.1174 -79.9319,42.1197 -79.9332,42.1224 -79.9327,42.1256 -79.9322,42.1292 -79.936,42.1305 -79.9422,42.1295 -79.9471,42.1298 -79.9521,42.1302 -79.9553,42.1324 -79.9596,42.1314 -79.9656,42.1276 -79.9704,42.1239 -79.9746,42.1206 -79.9821,42.1209 -79.9882,42.1195 -79.9937,42.118 -79.9949,42.1157 -79.9959,42.1102 -80.0018,42.101 -80.0059,42.0959 -80.013,42.0876 -80.0165,42.0825 -80.0188,42.0779 -80.0211,42.0738 -80.0241,42.0706 -80.0333,42.0672 -80.0502,42.0582 -80.0661,42.052 -80.0789,42.0485 -80.0948,42.0436 -80.1093,42.0347 -80.1232,42.0276 -80.1402,42.0195 -80.1585,42.0127 -80.1737,42.0074 -80.1927,42.0011 -80.2055,41.9972 -80.2245,41.994 -80.2325,41.9925 -80.2447,41.9886 -80.2526,41.9857 -80.2727,41.9793 -80.2862,41.9767 -80.2979,41.9751 -80.3094,41.9703 -80.3179,41.9674 -80.3234,41.965 -80.3301,41.9621 -80.3375,41.9624 -80.3437,41.964 -80.3511,41.9639 -80.3572,41.9601 -80.3644,41.9554 -80.3668,41.9536 -80.3704,41.9511 -80.3769,41.9455 -80.3847,41.9404 -80.3906,41.9348 -80.4051,41.9272 -80.4156,41.926 -80.4309,41.9238 -80.4432,41.9226 -80.4535,41.9178 -80.4607,41.9136 -80.4741,41.9082 -80.4858,41.9084 -80.4999,41.9067 -80.5109,41.9042 -80.5182,41.9013 -80.5297,41.8964 -80.5376,41.8949 -80.5487,41.8928 -80.5584,41.8894 -80.5663,41.8864 -80.5748,41.8844 -80.5791,41.8843 -80.5871,41.8832 -80.597,41.8829 -80.6056,41.8823 -80.6105,41.8817 -80.6147,41.8798 -80.6177,41.8774 -80.6237,41.875 -80.6251,41.8777 -80.6246,41.8804 -80.6235,41.8836 -80.6273,41.884 -80.6303,41.8821 -80.6344,41.8793 -80.6394,41.88 -80.643,41.8781 -80.6479,41.8771 -80.6515,41.8756 -80.6532,41.872 -80.6579,41.8655 -80.6651,41.863 -80.6719,41.8633 -80.6755,41.8605 -80.6816,41.8585 -80.689,41.8583 -80.6945,41.8577 -80.7018,41.8557 -80.7074,41.856 -80.7116,41.8536 -80.7157,41.8494 -80.7216,41.8447 -80.7326,41.8422 -80.7429,41.8378 -80.7507,41.8344 -80.7544,41.833 -80.7605,41.8315 -80.7709,41.8303 -80.7808,41.8305 -80.7869,41.8289 -80.7972,41.8264 -80.8064,41.8248 -80.8145,41.8259 -80.8248,41.8229 -80.8309,41.8209 -80.8369,41.8185 -80.8448,41.8165 -80.8474,41.8161 -80.8534,41.8153 -80.8607,41.8133 -80.8697,41.8094 -80.891,41.8039 -80.9056,41.7998 -80.9208,41.7953 -80.9317,41.7905 -80.9443,41.7847 -80.9503,41.7809 -80.9599,41.776 -80.9684,41.7744 -80.9873,41.7703 -81.0055,41.7634 -81.0151,41.759 -81.0259,41.7546 -81.0343,41.7503 -81.0403,41.747 -81.0487,41.7426 -81.0566,41.7401 -81.0643,41.7349 -81.0758,41.7314 -81.0849,41.728 -81.0965,41.7262 -81.1087,41.7241 -81.1147,41.7212 -81.1202,41.7206 -81.1276,41.7199 -81.1336,41.7179 -81.1371,41.7142 -81.1455,41.7094 -81.1533,41.7064 -81.1667,41.7028 -81.1794,41.6988 -81.1885,41.6958 -81.2018,41.6927 -81.2097,41.6902 -81.2113,41.6856 -81.2153,41.6809 -81.2205,41.674 -81.2271,41.671 -81.241,41.6665 -81.2445,41.6628 -81.2479,41.6581 -81.2526,41.6544 -81.2574,41.651 -81.2634,41.6486 -81.2699,41.6443 -81.2753,41.6409 -81.2806,41.6371 -81.29,41.63 -81.2971,41.6244 -81.3081,41.6131 -81.32,41.6046 -81.3251,41.5981 -81.338,41.5877 -81.347,41.5829 -81.3603,41.5788 -81.3708,41.5794 -81.3786,41.5773 -81.3826,41.5732 -81.3844,41.5712 -81.3891,41.5661 -81.3949,41.5614 -81.3995,41.5558 -81.409,41.5505 -81.4187,41.547 -81.4313,41.5416 -81.4365,41.5373 -81.4431,41.5335 -81.4502,41.5292 -81.4549,41.5254 -81.4625,41.5197 -81.4651,41.5186 -81.4685,41.5172 -81.4723,41.515 -81.4822,41.5091 -81.4906,41.5027 -81.4981,41.4972 -81.5048,41.4937 -81.5082,41.4919 -81.5148,41.4888 -81.5237,41.4836 -81.5337,41.4774 -81.5391,41.4745 -81.5423,41.4733 -81.5492,41.4706 -81.5552,41.4676 -81.5618,41.4647 -81.567,41.4631 -81.5702,41.4621 -81.5748,41.4606 -81.582,41.4583 -81.5859,41.4571 -81.5884,41.4566 -81.5914,41.4562 -81.5962,41.4554 -81.5999,41.4548 -81.6103,41.4553 -81.6271,41.4589 -81.6408,41.4616 -81.6519,41.463 -81.6623,41.4627 -81.6739,41.4605 -81.6816,41.4566 -81.6887,41.4523 -81.6973,41.4529 -81.7095,41.4511 -81.7168,41.4504 -81.728,41.4523 -81.7619,41.4557 -81.7767,41.457 -81.7873,41.4589 -81.7967,41.4622 -81.8062,41.4664 -81.8091,41.4677 -81.8163,41.471 -81.8289,41.4761 -81.842,41.4788 -81.8513,41.4807 -81.863,41.4812 -81.8733,41.479 -81.8847,41.4746 -81.8961,41.471 -81.9112,41.4673 -81.9258,41.4654 -81.9519,41.4603 -81.9688,41.4566 -81.9851,41.4519 -81.9964,41.4474 -82.0061,41.4448 -82.0146,41.4444 -82.0202,41.4456 -82.0213,41.4424 -82.0205,41.4401 -82.0279,41.4408 -82.0329,41.442 -82.0338,41.4374 -82.0342,41.4337 -82.0419,41.4298 -82.0526,41.4249 -82.0629,41.4222 -82.0737,41.4196 -82.0821,41.4156 -82.0896,41.409 -82.0936,41.4047 -82.1012,41.3995 -82.1175,41.3952 -82.1262,41.3976 -82.1343,41.3991 -82.1421,41.3961 -82.1512,41.3958 -82.1667,41.397 -82.1808,41.3969 -82.19,41.3975 -82.198,41.3976 -82.2071,41.3964 -82.2174,41.3942 -82.2264,41.3925 -82.2348,41.3885 -82.2419,41.3855 -82.2478,41.3826 -82.2578,41.3767 -82.2686,41.3727 -82.2858,41.3643 -82.3002,41.3592 -82.3141,41.3564 -82.3273,41.3531 -82.3419,41.3517 -82.353,41.3521 -82.363,41.3554 -82.3769,41.3603 -82.3888,41.3648 -82.4072,41.3727 -82.4205,41.3786 -82.4344,41.3844 -82.4372,41.3888 -82.4412,41.3941 -82.4832,41.4184 -82.4913,41.4246 -82.5003,41.4316 -82.5092,41.4385 -82.515,41.443 -82.5193,41.4464 -82.5251,41.4508 -82.5284,41.4533 -82.5387,41.4496 -82.5306,41.4445 -82.5254,41.4385 -82.5164,41.432 -82.5087,41.4282 -82.5023,41.4239 -82.4957,41.4228 -82.4907,41.4197 -82.4861,41.4168 -82.485,41.4137 -82.4803,41.4085 -82.4738,41.4037 -82.4688,41.4021 -82.465,41.4009 -82.4607,41.4011 -82.4575,41.3972 -82.4534,41.3927 -82.4508,41.3905 -82.4481,41.3875 -82.4473,41.3843 -82.4508,41.3824 -82.4558,41.384 -82.4591,41.3866 -82.4618,41.3897 -82.4638,41.3928 -82.4671,41.3954 -82.4735,41.3987 -82.479,41.3994 -82.4838,41.3979 -82.4874,41.3964 -82.4912,41.3976 -82.4899,41.4049 -82.4981,41.4091 -82.4997,41.4136 -82.5059,41.4147 -82.5063,41.412 -82.5074,41.4101 -82.5117,41.4104 -82.5216,41.4104 -82.5254,41.4121 -82.5237,41.4149 -82.5166,41.4184 -82.5143,41.4207 -82.5181,41.4215 -82.5254,41.4216 -82.5385,41.4243 -82.5473,41.4262 -82.5542,41.4287 -82.5628,41.4283 -82.5706,41.4271 -82.5735,41.4242 -82.5781,41.4204 -82.581,41.4176 -82.583,41.4193 -82.5828,41.4257 -82.5847,41.4265 -82.5897,41.4272 -82.5927,41.4266 -82.5941,41.4202 -82.5956,41.4161 -82.6012,41.4177 -82.6095,41.4137 -82.6132,41.4131 -82.6202,41.4173 -82.6294,41.4251 -82.6327,41.4282 -82.6386,41.4329 -82.6443,41.4359 -82.6489,41.4389 -82.654,41.4418 -82.6583,41.4417 -82.665,41.4414 -82.6717,41.4407 -82.6732,41.4365 -82.6758,41.4305 -82.682,41.4225 -82.6902,41.4181 -82.7034,41.413 -82.7098,41.4095 -82.7147,41.4089 -82.721,41.4104 -82.7272,41.412 -82.7337,41.409 -82.7419,41.4036 -82.7502,41.3992 -82.7563,41.3954 -82.7642,41.3904 -82.7733,41.3887 -82.7794,41.3884 -82.785,41.3895 -82.7903,41.3952 -82.7962,41.3995 -82.8014,41.4038 -82.8054,41.4073 -82.8074,41.409 -82.8102,41.4135 -82.8177,41.4154 -82.8214,41.4162 -82.8262,41.415 -82.8317,41.4139 -82.8253,41.4105 -82.821,41.4103 -82.8178,41.409 -82.8176,41.4059 -82.82,41.4053 -82.8179,41.4027 -82.814,41.3992 -82.8143,41.396 -82.8146,41.3915 -82.8156,41.3882 -82.8191,41.3867 -82.8218,41.3893 -82.8214,41.3925 -82.8233,41.3933 -82.8259,41.3955 -82.8257,41.4001 -82.8247,41.4028 -82.8255,41.4051 -82.8309,41.4044 -82.8325,41.4007 -82.8348,41.3983 -82.8407,41.3962 -82.8412,41.394 -82.8447,41.3915 -82.8463,41.3965 -82.8454,41.401 -82.845,41.4038 -82.8398,41.4076 -82.843,41.4098 -82.8439,41.4129 -82.8398,41.4154 -82.8357,41.4183 -82.8347,41.4206 -82.8379,41.4232 -82.8438,41.4193 -82.8497,41.4168 -82.8545,41.4152 -82.8612,41.4154 -82.8692,41.4146 -82.8824,41.4113 -82.8902,41.4096 -82.8946,41.4103 -82.8967,41.4129 -82.9016,41.4132 -82.909,41.4138 -82.9122,41.4154 -82.9156,41.4194 -82.9176,41.4216 -82.9182,41.4247 -82.9168,41.4275 -82.9114,41.4287 -82.9002,41.4273 -82.8897,41.4251 -82.8828,41.4252 -82.8772,41.4229 -82.8743,41.4254 -82.8715,41.4254 -82.8664,41.4265 -82.8604,41.4286 -82.8581,41.4305 -82.8545,41.4316 -82.85,41.429 -82.8437,41.427 -82.8358,41.4269 -82.8375,41.4337 -82.8334,41.4357 -82.8297,41.4363 -82.8254,41.4351 -82.8179,41.4336 -82.8175,41.4372 -82.8172,41.4404 -82.8146,41.4469 -82.8125,41.4515 -82.8115,41.4543 -82.8061,41.4559 -82.798,41.4544 -82.7893,41.4534 -82.7807,41.4524 -82.774,41.4532 -82.7655,41.4554 -82.7607,41.456 -82.7558,41.4567 -82.746,41.4566 -82.7368,41.457 -82.727,41.4574 -82.7228,41.459 -82.7168,41.4601 -82.7102,41.4622 -82.7036,41.4639 -82.6994,41.4654 -82.6952,41.4665 -82.6894,41.464 -82.683,41.4606 -82.676,41.4573 -82.6699,41.4571 -82.6634,41.4601 -82.6593,41.4634 -82.657,41.4658 -82.6537,41.47 -82.6476,41.4717 -82.6353,41.4708 -82.6309,41.4692 -82.6255,41.4707 -82.6175,41.4706 -82.6102,41.4723 -82.606,41.4738 -82.6001,41.4763 -82.5941,41.4789 -82.5892,41.4786 -82.5838,41.4802 -82.5789,41.4804 -82.5745,41.4792 -82.5688,41.4763 -82.5643,41.4746 -82.5629,41.4715 -82.5621,41.4688 -82.5587,41.4653 -82.5532,41.4655 -82.5498,41.4684 -82.5501,41.4725 -82.5521,41.4756 -82.5548,41.4777 -82.5561,41.4795 -82.5582,41.4826 -82.559,41.4853 -82.5573,41.4867 -82.5517,41.4951 -82.5516,41.502 -82.5556,41.5054 -82.5565,41.5095 -82.5591,41.5112 -82.5629,41.5124 -82.5672,41.5127 -82.5698,41.5149 -82.5746,41.5137 -82.585,41.5133 -82.5913,41.5144 -82.6028,41.5126 -82.6111,41.5168 -82.6178,41.5165 -82.6177,41.5143 -82.6125,41.5108 -82.6129,41.5081 -82.6196,41.5074 -82.6313,41.5078 -82.6411,41.5065 -82.6459,41.5054 -82.6537,41.5037 -82.661,41.5016 -82.6675,41.4986 -82.673,41.4979 -82.675,41.5001 -82.6728,41.5038 -82.6693,41.5062 -82.6578,41.5081 -82.6524,41.5096 -82.6482,41.5116 -82.6446,41.5131 -82.6431,41.5168 -82.6445,41.5195 -82.6488,41.5189 -82.6559,41.5159 -82.6583,41.5153 -82.6586,41.5189 -82.657,41.5217 -82.6536,41.5255 -82.657,41.5304 -82.6618,41.5293 -82.6654,41.5273 -82.6663,41.5232 -82.6692,41.5212 -82.6728,41.5193 -82.6736,41.5147 -82.6744,41.5087 -82.6778,41.505 -82.682,41.503 -82.688,41.5018 -82.6922,41.4998 -82.6926,41.4971 -82.6967,41.4946 -82.7033,41.4934 -82.7093,41.4914 -82.7201,41.4877 -82.725,41.4875 -82.7281,41.4879 -82.7295,41.4896 -82.7244,41.4953 -82.7178,41.4974 -82.71,41.5 -82.7027,41.5012 -82.6973,41.5032 -82.6963,41.506 -82.688,41.5095 -82.6842,41.5161 -82.6845,41.5197 -82.6781,41.5245 -82.6721,41.5347 -82.663,41.5365 -82.6608,41.5398 -82.6658,41.5414 -82.672,41.542 -82.6741,41.5447 -82.6744,41.5496 -82.6735,41.5538 -82.6769,41.5582 -82.6848,41.5565 -82.6882,41.5527 -82.6938,41.5538 -82.6988,41.5545 -82.7033,41.5498 -82.7057,41.5483 -82.7042,41.5448 -82.6989,41.5395 -82.7024,41.5376 -82.707,41.5333 -82.7014,41.5326 -82.6963,41.5306 -82.6956,41.5283 -82.6984,41.5255 -82.7032,41.5234 -82.7036,41.5207 -82.7038,41.5157 -82.7049,41.5138 -82.7077,41.5105 -82.7131,41.5089 -82.7123,41.5067 -82.7152,41.5043 -82.7194,41.5023 -82.7236,41.5012 -82.7302,41.4987 -82.7354,41.4953 -82.7395,41.4928 -82.7437,41.4908 -82.749,41.4874 -82.7537,41.485 -82.7597,41.4833 -82.7683,41.483 -82.7775,41.4835 -82.7882,41.4862 -82.7926,41.4883 -82.7984,41.4908 -82.8066,41.4941 -82.8123,41.4966 -82.8206,41.5003 -82.8251,41.5033 -82.8307,41.5031 -82.8304,41.5003 -82.8272,41.4978 -82.8325,41.4953 -82.8377,41.4987 -82.843,41.5034 -82.8471,41.5087 -82.8541,41.5125 -82.8611,41.5154 -82.8768,41.527 -82.8851,41.5312 -82.8929,41.5368 -82.9046,41.5449 -82.9102,41.5528 -82.9116,41.5555 -82.9102,41.5606 -82.9198,41.5661 -82.9301,41.572 -82.9404,41.5774 -82.95,41.5816 -82.9619,41.5847 -82.9712,41.5856 -82.9829,41.586 -82.9878,41.5889 -83.0031,41.5924 -83.0176,41.5963 -83.0313,41.598 -83.0382,41.6 -83.0494,41.6017 -83.0564,41.6042 -83.0628,41.6071 -83.0795,41.6163 -83.0874,41.6214 -83.0957,41.6261 -83.1041,41.6307 -83.1137,41.6348 -83.1196,41.6391 -83.1242,41.643 -83.1275,41.6456 -83.1313,41.6472 -83.1349,41.6457 -83.141,41.6445 -83.1502,41.6441 -83.1566,41.6479 -83.1602,41.6532 -83.1623,41.6563 -83.1679,41.6574 -83.1714,41.6545 -83.1768,41.6529 -83.1812,41.655 -83.1784,41.6583 -83.1719,41.6604 -83.1666,41.6638 -83.17,41.6671 -83.1733,41.6703 -83.1797,41.6737 -83.1832,41.6781 -83.1847,41.6816 -83.1888,41.6865 -83.192,41.6881 -83.1937,41.6862 -83.191,41.6832 -83.1887,41.6783 -83.1877,41.6733 -83.1879,41.6688 -83.1905,41.6618 -83.1969,41.6579 -83.2048,41.6571 -83.2116,41.6572 -83.2205,41.6604 -83.23,41.6632 -83.2425,41.6649 -83.2518,41.6658 -83.2572,41.6647 -83.2621,41.664 -83.2712,41.6622 -83.2786,41.6623 -83.2842,41.663 -83.2867,41.6642 -83.2876,41.6669 -83.2891,41.67 -83.2927,41.6694 -83.3084,41.6889 -83.319,41.6911 -83.3295,41.691 -83.3272,41.6958 -83.3253,41.6989 -83.3228,41.6992 -83.3196,41.7009 -83.3193,41.7041 -83.3196,41.7082 -83.3194,41.7105 -83.3195,41.7159 -83.3178,41.7213 -83.3157,41.7244 -83.3129,41.7283 -83.3089,41.7313 -83.3063,41.733 -83.3032,41.7333 -83.3029,41.737 -83.3046,41.7384 -83.3049,41.7421 -83.3041,41.7443 -83.302,41.7474 -83.2982,41.749 -83.2951,41.7489 -83.2934,41.747 -83.2908,41.7419 -83.2894,41.7363 -83.2875,41.7303 -83.2865,41.7271 -83.2852,41.7211 -83.2813,41.7155 -83.2792,41.719 -83.2796,41.7213 -83.281,41.7264 -83.2818,41.7319 -83.2831,41.7374 -83.2833,41.7429 -83.2849,41.7525 -83.2845,41.7639 -83.2835,41.7693 -83.2809,41.7778 -83.2767,41.7831 -83.2709,41.7864 -83.265,41.7902 -83.2598,41.7932 -83.2556,41.7989 -83.2522,41.8019 -83.243,41.8104 -83.2425,41.8147 -83.2397,41.8182 -83.2375,41.8226 -83.2338,41.8293 -83.2289,41.8354 -83.2242,41.8402 -83.2201,41.8445 -83.2135,41.8492 -83.2095,41.8527 -83.2118,41.8546 -83.2141,41.857 -83.2113,41.86 -83.2082,41.8603 -83.2039,41.8597 -83.1985,41.8585 -83.1953,41.8544 -83.1938,41.8487 -83.193,41.8432 -83.1886,41.8448 -83.1858,41.8479 -83.1836,41.8519 -83.1844,41.8569 -83.1876,41.8698 -83.1884,41.8753 -83.1873,41.8803 -83.1855,41.887 -83.1822,41.8891 -83.1748,41.8956 -83.1682,41.9008 -83.1631,41.9023 -83.1534,41.9069 -83.1475,41.9079 -83.1452,41.9084 -83.1415,41.909 -83.1377,41.9098 -83.134,41.9096 -83.1298,41.908 -83.1261,41.9078 -83.1232,41.9063 -83.1217,41.9026 -83.1213,41.8994 -83.1186,41.8952 -83.1154,41.8968 -83.1132,41.9008 -83.1116,41.9044 -83.1107,41.908 -83.1095,41.9139 -83.1123,41.9176 -83.1133,41.92 -83.113,41.9236 -83.1119,41.9285 -83.1116,41.9322 -83.1112,41.9371 -83.1128,41.939 -83.1162,41.9429 -83.1222,41.945 -83.1257,41.9474 -83.1288,41.9476 -83.1335,41.9523 -83.1317,41.9563 -83.1281,41.9557 -83.1251,41.9542 -83.1214,41.9545 -83.1166,41.952 -83.1124,41.9509 -83.1101,41.9489 -83.1059,41.9474 -83.1013,41.9435 -83.0982,41.9433 -83.0949,41.9455 -83.0911,41.9466 -83.0883,41.9501 -83.0849,41.9541 -83.0803,41.957 -83.0756,41.9614 -83.0691,41.9642 -83.0651,41.9677 -83.0654,41.9709 -83.0645,41.9745 -83.0642,41.9781 -83.0624,41.9835 -83.0608,41.9875 -83.0598,41.9925 -83.0593,41.9974 -83.0618,42.0026 -83.0693,42.0179 -83.0657,42.016 -83.0627,42.0144 -83.0608,42.0116 -83.0557,42.0078 -83.0519,42.0057 -83.0475,42.0276 -83.0515,42.0294 -83.053,42.0335 -83.0527,42.0367 -83.054,42.0427 -83.0586,42.0474 -83.0591,42.0548 -83.056,42.0551 -83.0539,42.0533 -83.0495,42.0511 -83.0466,42.0492 -83.0435,42.0474 -83.0413,42.0582 -83.0419,42.0599 -83.0437,42.0672 -83.0439,42.0727 -83.0429,42.0763 -83.0412,42.0817 -83.0375,42.0879 -83.0354,42.0914 -83.0342,42.0931 -83.0219,42.1539 -83.0171,42.1731 -83.0081,42.198 -82.9978,42.2177 -82.9716,42.2528 -82.942,42.2738 -82.936,42.2759 -82.9359,42.2759 -82.9286,42.281 -82.9233,42.2844 -82.9156,42.2876 -82.9058,42.2926 -82.8917,42.2969 -82.881,42.2987 -82.8698,42.3049 -82.8567,42.312 -82.8481,42.3171 -82.8416,42.3208 -82.8369,42.3238 -82.8305,42.3257 -82.8231,42.3254 -82.8143,42.3263 -82.8019,42.3261 -82.792,42.3256 -82.7837,42.3275 -82.7828,42.3266 -82.7728,42.3306 -82.7721,42.3331 -82.7711,42.3388 -82.769,42.3415 -82.764,42.348 -82.7599,42.3502 -82.7585,42.3518 -82.7521,42.3518 -82.7431,42.355 -82.7403,42.3585 -82.7367,42.3638 -82.7361,42.3697 -82.7332,42.3746 -82.7324,42.3787 -82.7319,42.3813 -82.7295,42.3867 -82.7302,42.3926 -82.7274,42.3961 -82.7242,42.3973 -82.7215,42.399 -82.7213,42.4013 -82.721,42.4045 -82.7212,42.4086 -82.7209,42.4117 -82.7205,42.4158 -82.7219,42.4209 -82.7222,42.424 -82.722,42.4264 -82.7237,42.4283 -82.728,42.4285 -82.7322,42.431 -82.7331,42.4342 -82.7357,42.4398 -82.7364,42.4449 -82.7367,42.449 -82.7349,42.4544 -82.7355,42.4617 -82.7344,42.4662 -82.7331,42.4739 -82.7322,42.4761 -82.7286,42.4809 -82.7264,42.4849 -82.7248,42.4885 -82.7224,42.4938 -82.7196,42.4973 -82.7174,42.5008 -82.7138,42.5057 -82.7109,42.5096 -82.7067,42.5144 -82.7027,42.5179 -82.6986,42.5213 -82.6951,42.5248 -82.6904,42.5282 -82.6864,42.5316 -82.6811,42.5345 -82.6703,42.5358 -82.6635,42.5354 -82.6548,42.535 -82.6486,42.5347 -82.6421,42.5307 -82.6369,42.5268 -82.6329,42.5298 -82.6326,42.532 -82.6342,42.5353 -82.6351,42.539 -82.6347,42.5426 -82.6333,42.5448 -82.6305,42.5479 -82.6295,42.5515 -82.6299,42.5538 -82.6328,42.5557 -82.6372,42.5595 -82.6442,42.5656 -82.6467,42.5678 -82.6507,42.5712 -82.6554,42.5747 -82.6606,42.579 -82.6653,42.582 -82.6685,42.5876 -82.6698,42.5932 -82.6695,42.5968 -82.6677,42.6017 -82.6649,42.6052 -82.6608,42.6087 -82.6566,42.6135 -82.6514,42.6155 -82.6451,42.6165 -82.6368,42.6184 -82.6288,42.617 -82.6223,42.619 -82.6166,42.6205 -82.6123,42.6257 -82.6082,42.6292 -82.6026,42.6357 -82.5986,42.6378 -82.5928,42.6393 -82.5858,42.6408 -82.5825,42.6424 -82.5797,42.6459 -82.5771,42.6472 -82.5727,42.6469 -82.5658,42.647 -82.5594,42.6485 -82.5554,42.6515 -82.5527,42.6536 -82.5475,42.6552 -82.5434,42.6531 -82.5349,42.6504 -82.5277,42.6469 -82.5116,42.6387 -82.5062,42.6371 -82.5025,42.6364 -82.4967,42.6379 -82.4924,42.6373 -82.4862,42.6369 -82.4814,42.6353 -82.478,42.631 -82.4759,42.6277 -82.475,42.6236 -82.4754,42.62 -82.4784,42.6146 -82.4831,42.6112 -82.4905,42.6062 -82.4937,42.605 -82.4971,42.6029 -82.4962,42.5992 -82.4932,42.5977 -82.487,42.5969 -82.4808,42.5965 -82.474,42.5962 -82.4696,42.596 -82.4644,42.5925 -82.4575,42.5921 -82.4512,42.5932 -82.4442,42.5946 -82.4323,42.5949 -82.4195,42.5915 -82.4118,42.5874 -82.403,42.5815 -82.402,42.5816 -82.3701,42.6711 -82.3581,42.7124 -82.3592,42.7479 -82.367,42.7779 -82.3487,42.8531 -82.304,42.9702 -82.2893,43.0003 -82.2975,43.0166 -82.3034,43.0261 -82.3091,43.0323 -82.3124,43.0361 -82.3164,43.0464 -82.3184,43.0515 -82.3217,43.0567 -82.3272,43.0643 -82.3311,43.0686 -82.336,43.0762 -82.34,43.08 -82.3395,43.085 -82.3378,43.0963 -82.3406,43.1056 -82.3428,43.1144 -82.3463,43.1237 -82.3493,43.1312 -82.3515,43.1382 -82.3531,43.1496 -82.3549,43.157 -82.3575,43.1622 -82.3597,43.1714 -82.3624,43.1757 -82.3686,43.1828 -82.3716,43.1907 -82.3738,43.2 -82.3754,43.2087 -82.3738,43.2182 -82.3735,43.2273 -82.3736,43.2397 -82.3739,43.2488 -82.3765,43.2544 -82.3778,43.2604 -82.3804,43.2656 -82.379,43.2728 -82.3764,43.2804 -82.3764,43.2859 -82.3782,43.2928 -82.382,43.2999 -82.3832,43.3059 -82.3858,43.3115 -82.3864,43.3183 -82.3877,43.3239 -82.3882,43.3317 -82.3851,43.3438 -82.383,43.3515 -82.3857,43.3566 -82.3905,43.3646 -82.3937,43.3707 -82.3921,43.3802 -82.3909,43.3861 -82.393,43.3899 -82.392,43.3935 -82.3905,43.4021 -82.3875,43.4069 -82.389,43.417 -82.3917,43.4217 -82.3962,43.4275 -82.4037,43.4342 -82.4118,43.4474 -82.4162,43.4541 -82.4228,43.4708 -82.4259,43.4838 -82.433,43.507 -82.4404,43.5284 -82.4437,43.5459 -82.4488,43.5827 -82.4516,43.6179 -82.4515,43.6444 -82.453,43.6605 -82.4536,43.6669 -82.4592,43.6804 -82.4627,43.6966 -82.4654,43.7077 -82.466,43.7205 -82.467,43.7304 -82.4659,43.7379 -82.4646,43.7469 -82.4658,43.7538 -82.4711,43.7582 -82.4731,43.7633 -82.4768,43.7704 -82.4775,43.7763 -82.4836,43.7913 -82.489,43.8007 -82.4914,43.8086 -82.4956,43.8179 -82.4992,43.8263 -82.5072,43.8349 -82.5134,43.8426 -82.5207,43.853 -82.5261,43.8624 -82.5293,43.869 -82.5332,43.8806 -82.5401,43.8878 -82.5478,43.8996 -82.5538,43.9095 -82.5618,43.9195 -82.5704,43.9291 -82.5752,43.9385 -82.581,43.9442 -82.589,43.9533 -82.599,43.9611 -82.6078,43.9689 -82.6194,43.9745 -82.6284,43.98 -82.638,43.9864 -82.6436,43.9935 -82.6532,43.9995 -82.6688,44.0035 -82.6793,44.0063 -82.6887,44.0082 -82.6976,44.009 -82.71,44.0129 -82.7263,44.0155 -82.7375,44.0179 -82.7431,44.0264 -82.7499,44.0281 -82.7583,44.0272 -82.7704,44.0278 -82.78,44.0333 -82.7874,44.0359 -82.796,44.0327 -82.803,44.033 -82.8107,44.0329 -82.8155,44.0364 -82.8194,44.0347 -82.829,44.0279 -82.8357,44.0246 -82.846,44.0173 -82.855,44.0159 -82.8685,44.0148 -82.8781,44.0148 -82.8842,44.0114 -82.8899,44.0049 -82.8958,43.996 -82.9037,43.9864 -82.9093,43.9812 -82.9156,43.976 -82.9198,43.9721 -82.9302,43.9694 -82.9418,43.9681 -82.9518,43.9704 -82.9636,43.9728 -82.9768,43.968 -82.9894,43.9627 -83.0072,43.9567 -83.0181,43.9558 -83.0303,43.9546 -83.0365,43.9567 -83.0454,43.9567 -83.0595,43.9555 -83.0827,43.9534 -83.0968,43.9518 -83.106,43.949 -83.1172,43.9454 -83.1214,43.9406 -83.1237,43.9366 -83.1275,43.9295 -83.1298,43.9259 -83.1309,43.9242 -83.1371,43.908 -83.1422,43.9014 -83.151,43.895 -83.161,43.89 -83.1709,43.8863 -83.1819,43.885 -83.2023,43.8841 -83.2146,43.882 -83.2259,43.8839 -83.2377,43.8862 -83.2485,43.8872 -83.2528,43.8888 -83.255,43.8852 -83.2573,43.8803 -83.2582,43.8781 -83.2564,43.8762 -83.2477,43.8739 -83.24,43.8754 -83.2311,43.8754 -83.2202,43.8763 -83.2114,43.8745 -83.2015,43.8722 -83.1922,43.8695 -83.1879,43.8675 -83.1863,43.8642 -83.188,43.8588 -83.189,43.8552 -83.192,43.8499 -83.1951,43.8441 -83.1985,43.8411 -83.2052,43.8377 -83.2074,43.8342 -83.2103,43.8302 -83.2191,43.8251 -83.2276,43.8223 -83.236,43.8209 -83.2412,43.8189 -83.2417,43.8134 -83.2415,43.8084 -83.2404,43.8065 -83.2403,43.801 -83.2435,43.7939 -83.2471,43.7886 -83.2546,43.7834 -83.2575,43.7794 -83.2614,43.7778 -83.2619,43.7724 -83.266,43.7674 -83.27,43.7656 -83.2734,43.7569 -83.2783,43.7536 -83.2836,43.7501 -83.2884,43.7462 -83.2928,43.7391 -83.2946,43.7304 -83.2982,43.7279 -83.3013,43.7226 -83.3079,43.7188 -83.3122,43.7135 -83.3136,43.7119 -83.3172,43.7074 -83.3189,43.7024 -83.3223,43.6957 -83.3292,43.6905 -83.3311,43.6861 -83.3339,43.683 -83.3368,43.6791 -83.3383,43.6764 -83.3392,43.6741 -83.3415,43.6688 -83.3474,43.6672 -83.3512,43.6674 -83.3543,43.668 -83.3634,43.6648 -83.3698,43.665 -83.3707,43.6683 -83.3701,43.676 -83.3712,43.6847 -83.3745,43.6904 -83.3782,43.6919 -83.3818,43.6866 -83.3863,43.6795 -83.3942,43.6762 -83.4027,43.6729 -83.4075,43.6681 -83.4077,43.6658 -83.4083,43.659 -83.4109,43.6509 -83.4168,43.6445 -83.4194,43.6417 -83.4221,43.6387 -83.4322,43.6317 -83.4392,43.6259 -83.4472,43.6206 -83.4539,43.6148 -83.4619,43.6117 -83.466,43.6082 -83.4601,43.6093 -83.478,43.5937 -83.4835,43.589 -83.4929,43.5825 -83.5019,43.5734 -83.5113,43.5665 -83.5219,43.5619 -83.5295,43.5618 -83.5406,43.5646 -83.5464,43.5656 -83.5512,43.5664 -83.559,43.5722 -83.5669,43.5762 -83.5732,43.5766 -83.5777,43.5776 -83.5784,43.5817 -83.5861,43.5885 -83.5936,43.5902 -83.5991,43.5922 -83.6054,43.5925 -83.6121,43.5951 -83.6207,43.5986 -83.6326,43.601 -83.6433,43.6014 -83.6533,43.6023 -83.6615,43.6027 -83.6688,43.6067 -83.6762,43.6088 -83.6818,43.6109 -83.686,43.6133 -83.6897,43.6148 -83.6935,43.6141 -83.6945,43.6105 -83.691,43.6062 -83.6913,43.6026 -83.695,43.5964 -83.6992,43.6 -83.7038,43.604 -83.7027,43.6104 -83.7042,43.6155 -83.7082,43.6207 -83.7157,43.6219 -83.7219,43.624 -83.7421,43.6289 -83.7502,43.6334 -83.7567,43.6396 -83.7662,43.6473 -83.7735,43.6585 -83.7771,43.6696 -83.7808,43.6789 -83.7841,43.6845 -83.7877,43.6943 -83.7922,43.7022 -83.7946,43.7114 -83.7979,43.717 -83.7983,43.7207 -83.7969,43.7225 -83.795,43.7292 -83.7971,43.7348 -83.7935,43.7401 -83.7893,43.7454 -83.7842,43.7452 -83.7806,43.7505 -83.7786,43.7596 -83.779,43.7705 -83.7787,43.7815 -83.7785,43.7919 -83.7769,43.8033 -83.7775,43.8124 -83.7751,43.8178 -83.7686,43.8194 -83.7645,43.8155 -83.7616,43.8118 -83.7593,43.8098 -83.7554,43.8101 -83.7537,43.8151 -83.7566,43.8193 -83.7601,43.8226 -83.7642,43.8265 -83.7664,43.8316 -83.7678,43.8371 -83.7669,43.8407 -83.7668,43.8498 -83.7665,43.8608 -83.7666,43.8681 -83.7686,43.8736 -83.7668,43.8809 -83.7656,43.8829 -83.7638,43.8862 -83.7604,43.8884 -83.755,43.8904 -83.7462,43.8909 -83.7429,43.8926 -83.742,43.8962 -83.7404,43.8998 -83.7411,43.9062 -83.7428,43.9091 -83.7406,43.9131 -83.7375,43.9198 -83.7339,43.9251 -83.7277,43.9303 -83.719,43.9315 -83.7162,43.9347 -83.713,43.9384 -83.7095,43.9423 -83.7067,43.9459 -83.7013,43.95 -83.6971,43.956 -83.6952,43.9618 -83.693,43.9658 -83.6875,43.9661 -83.6851,43.9687 -83.6805,43.9703 -83.673,43.9716 -83.6614,43.9699 -83.6578,43.9675 -83.6581,43.9643 -83.6547,43.9587 -83.6482,43.9598 -83.6461,43.9629 -83.6429,43.9632 -83.6342,43.9605 -83.6281,43.9566 -83.6185,43.958 -83.6065,43.9566 -83.5999,43.9595 -83.5971,43.9617 -83.5989,43.9709 -83.5974,43.974 -83.5915,43.9756 -83.586,43.9731 -83.5774,43.9695 -83.5666,43.969 -83.5537,43.963 -83.5458,43.959 -83.5396,43.9569 -83.5331,43.9584 -83.5307,43.9638 -83.5331,43.9657 -83.536,43.9695 -83.5373,43.9764 -83.5364,43.98 -83.5354,43.9841 -83.5355,43.9896 -83.5346,43.9932 -83.534,43.9954 -83.5273,43.9965 -83.5249,44.0019 -83.5204,44.0104 -83.5118,44.0141 -83.5015,44.0155 -83.491,44.0182 -83.4807,44.0196 -83.4673,44.0194 -83.4558,44.0203 -83.4465,44.0176 -83.4394,44.0177 -83.434,44.0211 -83.4319,44.0242 -83.4326,44.0302 -83.4372,44.0359 -83.4388,44.0469 -83.4356,44.0541 -83.4294,44.0597 -83.421,44.0685 -83.4173,44.0738 -83.4156,44.0797 -83.4161,44.0884 -83.4161,44.0957 -83.4159,44.1052 -83.4167,44.1108 -83.4177,44.114 -83.4168,44.1168 -83.418,44.1245 -83.4166,44.1336 -83.4155,44.1361 -83.4102,44.1484 -83.4069,44.1573 -83.4055,44.166 -83.4037,44.1791 -83.4027,44.1905 -83.4006,44.1991 -83.396,44.2085 -83.3896,44.215 -83.3834,44.2207 -83.3622,44.2362 -83.3522,44.2412 -83.3437,44.2426 -83.3321,44.2435 -83.32,44.2434 -83.3107,44.2407 -83.303,44.2403 -83.2994,44.2383 -83.3004,44.2334 -83.3014,44.2298 -83.3054,44.2208 -83.3094,44.2187 -83.3123,44.2152 -83.308,44.2136 -83.3053,44.2149 -83.2991,44.2201 -83.2922,44.2252 -83.2839,44.2326 -83.2754,44.2414 -83.2676,44.2497 -83.2597,44.2598 -83.2514,44.2668 -83.2441,44.2769 -83.2372,44.2821 -83.2323,44.2873 -83.2251,44.2888 -83.2185,44.2908 -83.2089,44.2904 -83.2018,44.291 -83.1966,44.2925 -83.192,44.2942 -83.1892,44.2959 -83.1873,44.3031 -83.1871,44.3127 -83.1853,44.3249 -83.1832,44.334 -83.1782,44.3465 -83.1743,44.361 -83.1716,44.3695 -83.1717,44.3755 -83.1752,44.4076 -83.1744,44.4167 -83.1693,44.4306 -83.1667,44.4451 -83.1657,44.4551 -83.1632,44.4635 -83.1667,44.473 -83.1673,44.4814 -83.1676,44.4845 -83.1643,44.4916 -83.1617,44.4988 -83.1614,44.5025 -83.1614,44.5135 -83.1613,44.521 -83.1655,44.5278 -83.1685,44.5375 -83.1683,44.5467 -83.1677,44.5535 -83.1689,44.5613 -83.1672,44.5722 -83.1612,44.5888 -83.1579,44.5965 -83.1515,44.6039 -83.145,44.6114 -83.1402,44.6212 -83.1316,44.6455 -83.1293,44.6564 -83.1281,44.6691 -83.1295,44.6815 -83.1305,44.6852 -83.1344,44.6918 -83.1372,44.6956 -83.1394,44.7003 -83.1433,44.7069 -83.1481,44.7176 -83.1499,44.7264 -83.1469,44.7441 -83.1456,44.7513 -83.146,44.7614 -83.1487,44.7743 -83.1497,44.784 -83.1515,44.7923 -83.1562,44.8044 -83.1612,44.8138 -83.1649,44.8226 -83.167,44.8266 -83.1715,44.8348 -83.1715,44.8412 -83.1738,44.845 -83.1761,44.8479 -83.1841,44.8523 -83.1885,44.8539 -83.1942,44.8542 -83.2034,44.8532 -83.209,44.8553 -83.2151,44.8588 -83.2205,44.8632 -83.2247,44.867 -83.2303,44.8696 -83.2391,44.8722 -83.2482,44.8786 -83.2493,44.8809 -83.2503,44.8837 -83.2525,44.8875 -83.2633,44.8903 -83.2723,44.8898 -83.2766,44.8922 -83.2814,44.897 -83.2853,44.9032 -83.288,44.9097 -83.2928,44.9282 -83.2951,44.9379 -83.296,44.9425 -83.2975,44.9476 -83.3008,44.9542 -83.3057,44.9567 -83.3112,44.9601 -83.3122,44.9638 -83.3112,44.9679 -83.3086,44.9747 -83.303,44.9794 -83.2979,44.9792 -83.2922,44.9776 -83.2812,44.9771 -83.2847,44.9823 -83.2933,44.9863 -83.3002,44.9889 -83.3034,44.9895 -83.3032,44.9918 -83.2999,44.993 -83.297,44.9956 -83.2961,44.9988 -83.2982,45.0039 -83.298,45.0062 -83.2956,45.012 -83.2932,45.0165 -83.2917,45.0187 -83.2846,45.0257 -83.2771,45.0304 -83.2676,45.0355 -83.2529,45.0403 -83.2456,45.0418 -83.2395,45.0452 -83.2324,45.0449 -83.2272,45.0446 -83.2237,45.0413 -83.2234,45.0376 -83.2237,45.0344 -83.2227,45.0302 -83.2193,45.025 -83.2162,45.0235 -83.2127,45.0193 -83.2042,45.0134 -83.1948,45.0102 -83.1823,45.006 -83.1721,45.0037 -83.1664,45.0025 -83.1562,45.0006 -83.1366,44.9965 -83.1296,44.9944 -83.117,44.9911 -83.1137,44.9918 -83.1135,44.9941 -83.1176,44.9989 -83.1227,45.0064 -83.1243,45.0106 -83.1299,45.0127 -83.1349,45.0148 -83.1437,45.0174 -83.15,45.0187 -83.1569,45.0213 -83.1633,45.022 -83.1659,45.0226 -83.1652,45.0294 -83.1674,45.0341 -83.169,45.0374 -83.1686,45.0424 -83.1711,45.0494 -83.1748,45.0523 -83.1752,45.0546 -83.1678,45.0575 -83.1645,45.0578 -83.1526,45.0609 -83.1506,45.0617 -83.1479,45.0629 -83.149,45.0648 -83.1506,45.0681 -83.155,45.0706 -83.1599,45.0727 -83.161,45.0754 -83.1601,45.0782 -83.1612,45.08 -83.163,45.0819 -83.1668,45.083 -83.1718,45.0846 -83.1748,45.0866 -83.1739,45.0893 -83.1712,45.0906 -83.1686,45.0914 -83.1652,45.093 -83.1663,45.0954 -83.1674,45.0972 -83.1697,45.1074 -83.1693,45.1115 -83.1715,45.1162 -83.1733,45.1177 -83.1783,45.1193 -83.1834,45.12 -83.1905,45.1212 -83.2028,45.1277 -83.2083,45.1321 -83.2144,45.136 -83.2168,45.1375 -83.2206,45.139 -83.2252,45.1447 -83.2269,45.148 -83.2278,45.1526 -83.2275,45.1558 -83.2294,45.1632 -83.235,45.1722 -83.2411,45.1766 -83.246,45.1796 -83.2471,45.1819 -83.2488,45.1852 -83.251,45.1894 -83.2546,45.1928 -83.2588,45.1966 -83.2635,45.2019 -83.2667,45.2093 -83.2663,45.2139 -83.2664,45.2194 -83.268,45.2231 -83.2678,45.2259 -83.2657,45.2271 -83.2618,45.227 -83.2581,45.2254 -83.255,45.2234 -83.2512,45.2233 -83.2486,45.2232 -83.2458,45.2253 -83.2437,45.2271 -83.2394,45.231 -83.2392,45.2337 -83.2413,45.2388 -83.2443,45.2417 -83.2504,45.2452 -83.2548,45.2472 -83.2641,45.2527 -83.2728,45.2563 -83.2762,45.2615 -83.2804,45.2658 -83.2821,45.2682 -83.2883,45.2716 -83.2921,45.2727 -83.2964,45.2752 -83.2989,45.2767 -83.3023,45.2823 -83.3091,45.2859 -83.3123,45.2865 -83.316,45.2885 -83.3189,45.2927 -83.3206,45.2946 -83.3225,45.2956 -83.3257,45.2967 -83.3283,45.2959 -83.3323,45.2947 -83.3344,45.2934 -83.3369,45.2949 -83.3371,45.2999 -83.3324,45.3157 -83.3347,45.3186 -83.3376,45.3224 -83.3431,45.3267 -83.3469,45.3278 -83.3498,45.3248 -83.3467,45.3159 -83.3446,45.3099 -83.3486,45.3087 -83.3557,45.3099 -83.3601,45.3115 -83.374,45.3158 -83.3943,45.3208 -83.3982,45.3209 -83.4016,45.3188 -83.4056,45.3176 -83.4199,45.3182 -83.4245,45.3175 -83.427,45.3186 -83.4308,45.3196 -83.434,45.3202 -83.4362,45.3176 -83.4396,45.3154 -83.4484,45.3186 -83.4522,45.3201 -83.4559,45.323 -83.465,45.3303 -83.4741,45.3302 -83.5107,45.3492 -83.5271,45.3559 -83.5315,45.357 -83.5384,45.36 -83.5523,45.3725 -83.5553,45.3749 -83.5596,45.3783 -83.5621,45.3789 -83.5771,45.3791 -83.5825,45.3766 -83.5912,45.3737 -83.5964,45.373 -83.6068,45.3739 -83.6179,45.3735 -83.6301,45.3754 -83.6331,45.3783 -83.6302,45.3818 -83.6272,45.3858 -83.6311,45.386 -83.6377,45.3853 -83.6455,45.3852 -83.6545,45.3865 -83.6613,45.39 -83.6662,45.3934 -83.6724,45.3978 -83.6761,45.3998 -83.6825,45.4014 -83.6913,45.405 -83.6969,45.408 -83.7024,45.4119 -83.706,45.4157 -83.7103,45.4186 -83.7139,45.422 -83.7175,45.4253 -83.7236,45.4301 -83.7297,45.435 -83.7345,45.4402 -83.7394,45.4436 -83.7444,45.4466 -83.7518,45.451 -83.7575,45.4535 -83.7606,45.455 -83.7663,45.4566 -83.7701,45.4577 -83.7746,45.4584 -83.7785,45.459 -83.7998,45.4612 -83.8096,45.4607 -83.8207,45.4603 -83.8331,45.4598 -83.8448,45.4608 -83.8552,45.4607 -83.8689,45.4604 -83.8772,45.4626 -83.8823,45.4628 -83.8849,45.4633 -83.8901,45.4635 -83.896,45.4629 -83.9052,45.4614 -83.9139,45.4595 -83.9283,45.4587 -83.9379,45.46 -83.9455,45.4621 -83.9531,45.4647 -83.9582,45.4672 -83.9625,45.4701 -83.9673,45.4753 -83.97,45.4818 -83.972,45.4893 -83.9747,45.4967 -83.9754,45.504 -83.976,45.5123 -83.9775,45.5183 -83.9777,45.5243 -83.9779,45.5289 -83.979,45.5312 -83.9801,45.534 -83.9825,45.5373 -83.9854,45.5411 -83.9913,45.5486 -84.0041,45.5597 -84.0115,45.565 -84.0245,45.5747 -84.0325,45.5805 -84.0441,45.5905 -84.0495,45.5953 -84.0528,45.5968 -84.0571,45.5988 -84.0659,45.6028 -84.0844,45.6082 -84.1114,45.6138 -84.1348,45.622 -84.1475,45.6275 -84.159,45.6298 -84.1687,45.6316 -84.1811,45.632 -84.1935,45.6307 -84.2034,45.6301 -84.2205,45.6285 -84.229,45.6279 -84.2375,45.6278 -84.2503,45.631 -84.2637,45.6347 -84.269,45.634 -84.2712,45.6304 -84.2688,45.6285 -84.2677,45.6252 -84.2645,45.6237 -84.2627,45.6223 -84.2623,45.6195 -84.265,45.6183 -84.2729,45.6163 -84.2789,45.6156 -84.2852,45.6176 -84.2936,45.6193 -84.3008,45.6187 -84.3047,45.6188 -84.3125,45.6196 -84.3182,45.6221 -84.3244,45.6255 -84.3301,45.6289 -84.3369,45.6329 -84.34,45.6348 -84.3437,45.6386 -84.3481,45.641 -84.3507,45.6411 -84.3532,45.6417 -84.3558,45.6423 -84.3577,45.6437 -84.3601,45.6456 -84.3632,45.648 -84.3657,45.6499 -84.3688,45.6514 -84.3752,45.6535 -84.3809,45.656 -84.3859,45.6589 -84.3927,45.6642 -84.3963,45.6676 -84.3993,45.6718 -84.401,45.6746 -84.4022,45.6765 -84.4079,45.6794 -84.4117,45.6809 -84.4193,45.683 -84.4302,45.6866 -84.441,45.6907 -84.4582,45.6968 -84.4708,45.7032 -84.4929,45.7127 -84.5052,45.7145 -84.5122,45.7166 -84.5295,45.7214 -84.5339,45.7243 -84.5402,45.7272 -84.5441,45.7283 -84.5498,45.7308 -84.5549,45.7323 -84.5631,45.7358 -84.5662,45.7387 -84.5692,45.742 -84.5713,45.749 -84.5757,45.7523 -84.5782,45.7528 -84.5834,45.753 -84.586,45.7536 -84.5938,45.7539 -84.6017,45.7541 -84.6081,45.7557 -84.6165,45.7569 -84.6244,45.7558 -84.6317,45.7547 -84.6352,45.7512 -84.6379,45.7494 -84.6394,45.7477 -84.6384,45.743 -84.6368,45.738 -84.6352,45.7333 -84.634,45.731 -84.635,45.7264 -84.6365,45.7242 -84.642,45.7198 -84.6475,45.7159 -84.6509,45.7137 -84.6542,45.7129 -84.6575,45.7135 -84.6639,45.7155 -84.6677,45.7161 -84.6703,45.7167 -84.6749,45.7168 -84.6796,45.7142 -84.6856,45.7131 -84.6895,45.7137 -84.6927,45.7147 -84.6985,45.7158 -84.7068,45.7179 -84.7138,45.7205 -84.7274,45.7218 -84.7301,45.721 -84.7342,45.718 -84.7376,45.7171 -84.7421,45.7173 -84.7447,45.7183 -84.7472,45.7198 -84.7536,45.7209 -84.7645,45.724 -84.778,45.7272 -84.8,45.7303 -84.8123,45.7316 -84.8353,45.7296 -84.8492,45.7273 -84.8538,45.7266 -84.8559,45.7243 -84.8497,45.72 -84.8439,45.7189 -84.8406,45.7197 -84.8355,45.7182 -84.8253,45.7142 -84.8226,45.7145 -84.8194,45.7135 -84.8157,45.7106 -84.8132,45.7087 -84.8076,45.7053 -84.8033,45.7015 -84.8002,45.6982 -84.7959,45.6944 -84.795,45.6893 -84.7954,45.6834 -84.7976,45.6793 -84.8013,45.6726 -84.8056,45.6682 -84.8104,45.6647 -84.8151,45.6621 -84.8212,45.6586 -84.8262,45.6519 -84.8337,45.648 -84.8363,45.6472 -84.8411,45.6451 -84.8445,45.6429 -84.8466,45.6398 -84.8489,45.6353 -84.8511,45.6312 -84.8534,45.6272 -84.8582,45.6232 -84.8643,45.6202 -84.873,45.6168 -84.8844,45.6122 -84.9049,45.6069 -84.9217,45.5997 -84.9252,45.5961 -84.9267,45.5934 -84.9289,45.5894 -84.9326,45.5822 -84.935,45.5759 -84.94,45.5701 -84.947,45.5625 -84.9526,45.5567 -84.9575,45.551 -84.9625,45.5443 -84.9654,45.5402 -84.9676,45.5357 -84.9685,45.5326 -84.9694,45.528 -84.9685,45.5229 -84.9682,45.517 -84.9673,45.511 -84.9657,45.5059 -84.9642,45.4986 -84.9614,45.4916 -84.9582,45.4814 -84.9554,45.4749 -84.9519,45.4675 -84.9432,45.4517 -84.9367,45.4427 -84.9331,45.4371 -84.929,45.4306 -84.9174,45.4197 -84.9124,45.4159 -84.9082,45.4107 -84.904,45.406 -84.8972,45.4007 -84.8941,45.3983 -84.8846,45.3939 -84.8757,45.3918 -84.8686,45.3906 -84.8635,45.3895 -84.8514,45.3859 -84.8462,45.3853 -84.8385,45.3841 -84.8353,45.3844 -84.8298,45.3849 -84.8317,45.388 -84.8342,45.3895 -84.8341,45.3918 -84.8283,45.3911 -84.8231,45.39 -84.8155,45.3884 -84.8065,45.3863 -84.7923,45.3844 -84.7866,45.3829 -84.7815,45.3818 -84.7776,45.3816 -84.775,45.3806 -84.7725,45.3796 -84.7694,45.3772 -84.7713,45.3695 -84.7741,45.3655 -84.7864,45.3577 -84.7993,45.3494 -84.8205,45.3424 -84.8331,45.3391 -84.8442,45.3381 -84.852,45.3384 -84.8578,45.3381 -84.8644,45.337 -84.8703,45.3358 -84.8827,45.3348 -84.8957,45.3353 -84.9106,45.3362 -84.9248,45.3367 -84.9391,45.3362 -84.9417,45.3361 -84.9489,45.3356 -84.9574,45.3355 -84.9631,45.337 -84.967,45.3376 -84.974,45.3397 -84.9778,45.3411 -84.9849,45.3418 -84.9908,45.3411 -84.996,45.3404 -85.0052,45.3384 -85.0104,45.3381 -85.0145,45.3355 -85.0166,45.3328 -85.0228,45.3275 -85.0268,45.3267 -85.0353,45.3256 -85.0423,45.3268 -85.0489,45.3265 -85.0542,45.3248 -85.0582,45.3222 -85.063,45.3187 -85.0724,45.3131 -85.0785,45.3101 -85.0831,45.3084 -85.0897,45.3072 -85.095,45.3056 -85.097,45.3043 -85.0998,45.3016 -85.1033,45.2976 -85.1082,45.2918 -85.113,45.2878 -85.115,45.2865 -85.1197,45.2839 -85.125,45.2827 -85.1321,45.2829 -85.1353,45.284 -85.1385,45.285 -85.1436,45.2856 -85.1461,45.2866 -85.1494,45.2867 -85.1527,45.2863 -85.1589,45.2806 -85.163,45.2761 -85.1659,45.2721 -85.1701,45.2672 -85.1747,45.2651 -85.1814,45.2621 -85.1855,45.2585 -85.1876,45.2559 -85.1896,45.255 -85.193,45.2524 -85.197,45.2511 -85.2002,45.2512 -85.2042,45.25 -85.2063,45.2482 -85.2117,45.2438 -85.2158,45.2416 -85.2204,45.2395 -85.2226,45.2354 -85.2241,45.2332 -85.2262,45.2305 -85.2271,45.226 -85.2288,45.2192 -85.2303,45.2156 -85.2324,45.2133 -85.2359,45.2084 -85.2401,45.2035 -85.2416,45.2008 -85.2418,45.1967 -85.237,45.1911 -85.2365,45.1883 -85.2383,45.1811 -85.2378,45.1788 -85.2368,45.1728 -85.2397,45.1683 -85.2399,45.1647 -85.2391,45.1573 -85.2349,45.1522 -85.2318,45.1493 -85.2307,45.1461 -85.2266,45.1391 -85.2269,45.1341 -85.2291,45.1305 -85.2306,45.126 -85.2315,45.1219 -85.2311,45.1182 -85.23,45.1154 -85.2282,45.1136 -85.2264,45.1108 -85.2249,45.1029 -85.224,45.097 -85.2231,45.0905 -85.2233,45.0873 -85.2216,45.0841 -85.2205,45.0799 -85.2183,45.0744 -85.2172,45.0716 -85.2173,45.0689 -85.2175,45.0661 -85.2198,45.0607 -85.2213,45.0562 -85.2236,45.0508 -85.2252,45.0458 -85.2241,45.0426 -85.2219,45.0361 -85.2254,45.0317 -85.2292,45.0235 -85.2335,45.0168 -85.233,45.0145 -85.232,44.9985 -85.2318,44.9912 -85.2319,44.9889 -85.2324,44.9811 -85.232,44.9766 -85.2364,44.9694 -85.2409,44.9581 -85.2406,44.9526 -85.2398,44.9453 -85.2411,44.9343 -85.2446,44.9294 -85.2468,44.9258 -85.2495,44.9127 -85.2486,44.9067 -85.2501,44.9031 -85.2539,44.8941 -85.2588,44.8869 -85.263,44.882 -85.274,44.8709 -85.279,44.8629 -85.2839,44.8566 -85.2911,44.844 -85.2949,44.8336 -85.2979,44.8273 -85.309,44.8131 -85.316,44.8041 -85.3195,44.7997 -85.3231,44.7929 -85.326,44.7875 -85.3283,44.7826 -85.329,44.7803 -85.3325,44.7768 -85.3351,44.7764 -85.339,44.7747 -85.3443,44.7721 -85.3497,44.7681 -85.3507,44.7627 -85.3536,44.7578 -85.3551,44.7532 -85.3562,44.7464 -85.3575,44.7446 -85.3597,44.741 -85.3678,44.7344 -85.3733,44.7291 -85.378,44.7256 -85.3806,44.7252 -85.3916,44.7228 -85.3987,44.7235 -85.4083,44.7242 -85.4153,44.7249 -85.4199,44.7276 -85.4244,44.7304 -85.4238,44.7333 -85.421,44.7378 -85.4163,44.7418 -85.4121,44.7467 -85.4066,44.7529 -85.4046,44.7661 -85.4061,44.7726 -85.4044,44.7798 -85.4014,44.7875 -85.3991,44.7929 -85.3964,44.7956 -85.3903,44.8 -85.367,44.813 -85.359,44.8178 -85.3494,44.828 -85.3465,44.8338 -85.3461,44.8398 -85.3452,44.8438 -85.3404,44.8492 -85.3386,44.8569 -85.3389,44.8628 -85.34,44.8661 -85.3412,44.8688 -85.3443,44.8708 -85.3427,44.8753 -85.3387,44.8784 -85.3359,44.8806 -85.3371,44.8829 -85.3388,44.887 -85.3397,44.8926 -85.3396,44.8948 -85.3367,44.9002 -85.3344,44.9061 -85.3335,44.9102 -85.3348,44.9216 -85.3364,44.9272 -85.3362,44.9299 -85.3342,44.9321 -85.3296,44.932 -85.3272,44.9301 -85.3253,44.9287 -85.319,44.9271 -85.3163,44.9284 -85.3167,44.9321 -85.3199,44.9436 -85.3231,44.9556 -85.328,44.9589 -85.3417,44.9575 -85.3522,44.9551 -85.3641,44.949 -85.3715,44.9438 -85.3757,44.9384 -85.3759,44.9357 -85.3757,44.9288 -85.3769,44.9192 -85.3779,44.912 -85.381,44.9034 -85.3834,44.8957 -85.3971,44.8828 -85.408,44.8722 -85.4101,44.87 -85.4143,44.8642 -85.4144,44.8614 -85.4146,44.8587 -85.4103,44.8558 -85.4057,44.8566 -85.4017,44.8588 -85.3983,44.8619 -85.3943,44.864 -85.3916,44.8662 -85.3877,44.8666 -85.3826,44.865 -85.3801,44.8636 -85.3816,44.8609 -85.3843,44.8582 -85.3864,44.8565 -85.3853,44.8523 -85.3835,44.85 -85.3817,44.8486 -85.3805,44.8463 -85.3873,44.841 -85.3934,44.8361 -85.3968,44.833 -85.4043,44.825 -85.4067,44.8178 -85.4075,44.8155 -85.4093,44.8065 -85.4113,44.8047 -85.4142,44.7993 -85.4195,44.7962 -85.4264,44.7882 -85.4327,44.7802 -85.4356,44.7752 -85.4383,44.7621 -85.4428,44.7513 -85.4442,44.7486 -85.4444,44.7454 -85.4445,44.7426 -85.4466,44.74 -85.4493,44.7382 -85.454,44.7351 -85.4669,44.7346 -85.4783,44.7368 -85.4852,44.7444 -85.4861,44.747 -85.4858,44.753 -85.4836,44.7579 -85.4827,44.762 -85.4812,44.7656 -85.4797,44.7697 -85.4808,44.772 -85.4833,44.7744 -85.4875,44.7786 -85.493,44.7842 -85.4966,44.788 -85.499,44.7922 -85.5012,44.7986 -85.5002,44.8054 -85.4979,44.8104 -85.4976,44.8159 -85.4997,44.8242 -85.5,44.831 -85.4949,44.8409 -85.4876,44.8562 -85.481,44.8697 -85.4789,44.8733 -85.478,44.8765 -85.4745,44.8819 -85.4698,44.8854 -85.4672,44.8862 -85.4606,44.8888 -85.4587,44.8878 -85.4555,44.8873 -85.4528,44.8886 -85.4532,44.8927 -85.4522,44.8991 -85.4518,44.9064 -85.4517,44.9192 -85.4499,44.9287 -85.4514,44.9356 -85.4516,44.9443 -85.4526,44.9484 -85.4525,44.9507 -85.4516,44.9539 -85.4535,44.9548 -85.4561,44.9554 -85.4581,44.9541 -85.4609,44.9496 -85.4686,44.9397 -85.4733,44.9371 -85.4798,44.9355 -85.4858,44.9329 -85.4884,44.9321 -85.4904,44.9317 -85.4941,44.9332 -85.4939,44.9368 -85.4911,44.9418 -85.4881,44.9481 -85.4825,44.9561 -85.4788,44.9633 -85.4747,44.9687 -85.4706,44.9722 -85.4644,44.978 -85.4556,44.9851 -85.452,44.9927 -85.4515,45.0014 -85.4491,45.0091 -85.4476,45.0132 -85.444,45.0194 -85.4388,45.0193 -85.4333,45.0141 -85.4316,45.0099 -85.4291,45.0085 -85.4245,45.0097 -85.4236,45.0134 -85.4233,45.0184 -85.4218,45.0234 -85.4209,45.0279 -85.4219,45.0311 -85.4309,45.0328 -85.4335,45.0333 -85.4359,45.0352 -85.4407,45.0422 -85.4471,45.0547 -85.4545,45.0718 -85.4568,45.0769 -85.4598,45.0807 -85.4621,45.0853 -85.459,45.1053 -85.4547,45.1125 -85.4512,45.117 -85.434,45.1238 -85.4309,45.1223 -85.4261,45.1149 -85.4251,45.1098 -85.4228,45.1052 -85.4211,45.1015 -85.4191,45.1019 -85.4177,45.1041 -85.4169,45.1064 -85.4167,45.1091 -85.4172,45.1119 -85.4171,45.1142 -85.4167,45.1206 -85.4145,45.1251 -85.4104,45.1291 -85.4042,45.1348 -85.3981,45.1392 -85.3927,45.1445 -85.3915,45.1747 -85.3933,45.1779 -85.3971,45.1794 -85.4004,45.1786 -85.4057,45.1765 -85.4125,45.1703 -85.4181,45.1636 -85.4255,45.1578 -85.4395,45.1514 -85.4527,45.1477 -85.4566,45.1469 -85.4669,45.1481 -85.4713,45.1505 -85.4751,45.152 -85.479,45.1521 -85.4816,45.1508 -85.4853,45.1436 -85.4882,45.1377 -85.491,45.1337 -85.498,45.1257 -85.509,45.1141 -85.5139,45.1069 -85.5194,45.1011 -85.5217,45.0957 -85.5269,45.0835 -85.5273,45.0771 -85.5309,45.0708 -85.533,45.0663 -85.5398,45.061 -85.5452,45.0575 -85.5486,45.0549 -85.5528,45.0486 -85.5638,45.0375 -85.5724,45.0332 -85.5848,45.0308 -85.5901,45.0291 -85.6001,45.023 -85.6066,45.0122 -85.6082,45.0063 -85.6117,45.0 -85.6186,44.9924 -85.6253,44.9885 -85.6293,44.9854 -85.6327,44.9828 -85.6329,44.9787 -85.6312,44.9754 -85.6295,44.9713 -85.6291,44.9671 -85.6321,44.9585 -85.6323,44.9553 -85.632,44.9498 -85.6349,44.9435 -85.6404,44.9364 -85.6439,44.9319 -85.6473,44.9293 -85.6514,44.9243 -85.6555,44.9203 -85.6616,44.9159 -85.6688,44.9134 -85.6792,44.9114 -85.6916,44.9099 -85.7051,44.9103 -85.7167,44.9111 -85.7269,44.9136 -85.73,44.916 -85.735,44.9184 -85.738,44.9226 -85.7441,44.9287 -85.7497,44.9334 -85.7534,44.9358 -85.7635,44.9402 -85.7686,44.9408 -85.7725,44.9409 -85.7789,44.941 -85.7836,44.9393 -85.7875,44.9372 -85.7904,44.9322 -85.7913,44.9277 -85.7921,44.9249 -85.793,44.9195 -85.7945,44.915 -85.7966,44.9127 -85.8039,44.9088 -85.8078,44.9071 -85.8126,44.9031 -85.816,44.8986 -85.8216,44.8906 -85.825,44.8865 -85.8319,44.8794 -85.8352,44.8763 -85.8445,44.872 -85.8586,44.8737 -85.865,44.8748 -85.8706,44.8772 -85.875,44.8801 -85.8819,44.8834 -85.887,44.8854 -85.8922,44.8851 -85.9018,44.8853 -85.9072,44.8804 -85.9139,44.8765 -85.9206,44.8703 -85.9235,44.864 -85.9267,44.8535 -85.9254,44.8407 -85.9246,44.8179 -85.9227,44.805 -85.9233,44.7927 -85.9229,44.7877 -85.9219,44.7826 -85.9241,44.7768 -85.9257,44.7718 -85.9306,44.7623 -85.9328,44.7573 -85.933,44.7532 -85.9308,44.7468 -85.93,44.7435 -85.9287,44.7381 -85.9265,44.7307 -85.9281,44.7244 -85.9315,44.7208 -85.9383,44.7123 -85.9556,44.7004 -85.9687,44.6971 -85.9821,44.6983 -85.991,44.7008 -86.0006,44.7011 -86.0116,44.6995 -86.0208,44.6956 -86.0379,44.6888 -86.0548,44.6851 -86.0672,44.6808 -86.0815,44.6761 -86.0894,44.674 -86.0953,44.6719 -86.0992,44.6702 -86.1058,44.6667 -86.1072,44.6635 -86.108,44.6613 -86.1095,44.6572 -86.1091,44.6522 -86.1095,44.643 -86.1106,44.6326 -86.1068,44.6192 -86.1039,44.6128 -86.1022,44.6086 -86.101,44.6059 -86.0986,44.6017 -86.0968,44.6003 -86.0937,44.5984 -86.0911,44.5974 -86.0926,44.5942 -86.0921,44.5915 -86.0923,44.5874 -86.0912,44.5824 -86.089,44.575 -86.086,44.5699 -86.0796,44.557 -86.0767,44.5501 -86.0751,44.5436 -86.0736,44.5349 -86.0743,44.5199 -86.0782,44.5072 -86.0819,44.4972 -86.0852,44.4882 -86.0906,44.4824 -86.0962,44.4657 -86.1015,44.448 -86.1021,44.4357 -86.1031,44.4289 -86.1032,44.4261 -86.1021,44.4101 -86.1013,44.3996 -86.1024,44.3905 -86.1048,44.3787 -86.1153,44.3607 -86.1154,44.358 -86.115,44.3534 -86.1173,44.3453 -86.1175,44.3425 -86.1191,44.3339 -86.1199,44.3312 -86.118,44.3302 -86.1134,44.3329 -86.1081,44.3377 -86.1054,44.3395 -86.1023,44.3376 -86.1005,44.3362 -86.0974,44.3338 -86.0955,44.3329 -86.093,44.3324 -86.0909,44.336 -86.0914,44.3387 -86.0894,44.3405 -86.0874,44.3432 -86.0841,44.344 -86.0815,44.3444 -86.0778,44.3416 -86.076,44.3392 -86.0724,44.3355 -86.0655,44.3331 -86.0623,44.3325 -86.0529,44.3291 -86.051,44.3272 -86.0524,44.3254 -86.0564,44.3228 -86.0595,44.3233 -86.064,44.3239 -86.0697,44.3245 -86.0768,44.3242 -86.0807,44.3229 -86.0859,44.3212 -86.0917,44.32 -86.0955,44.3206 -86.1038,44.3203 -86.1089,44.3213 -86.1127,44.321 -86.1153,44.3201 -86.1199,44.3171 -86.1214,44.3134 -86.1229,44.3085 -86.133,44.2973 -86.1378,44.2919 -86.1477,44.2844 -86.1525,44.2772 -86.1572,44.2733 -86.1648,44.2602 -86.1664,44.2539 -86.1705,44.248 -86.1799,44.2373 -86.188,44.2279 -86.1969,44.2154 -86.2025,44.2059 -86.2077,44.1901 -86.2113,44.1797 -86.2148,44.1738 -86.2169,44.1689 -86.2218,44.1608 -86.2277,44.1559 -86.2336,44.1491 -86.2358,44.1465 -86.242,44.1375 -86.25,44.1282 -86.2542,44.1214 -86.2565,44.1133 -86.2579,44.1101 -86.2633,44.102 -86.2707,44.0954 -86.2779,44.0901 -86.2825,44.087 -86.2884,44.0835 -86.3034,44.076 -86.3216,44.0664 -86.3295,44.0616 -86.3386,44.0568 -86.3439,44.0519 -86.3492,44.0479 -86.3519,44.0452 -86.3558,44.0431 -86.3633,44.0314 -86.3648,44.0264 -86.3657,44.0196 -86.3642,44.0118 -86.3601,44.0035 -86.3577,43.9998 -86.3487,43.9882 -86.3438,43.9826 -86.339,43.9766 -86.3298,43.9682 -86.3238,43.9603 -86.3209,43.9538 -86.3192,43.9497 -86.3175,43.9446 -86.3145,43.94 -86.3127,43.9386 -86.3083,43.9371 -86.3045,43.9361 -86.3015,43.9338 -86.2997,43.9301 -86.2968,43.9255 -86.2919,43.9194 -86.2883,43.9166 -86.2853,43.9115 -86.2836,43.9065 -86.2887,43.9075 -86.2968,43.91 -86.3011,43.9137 -86.3029,43.917 -86.3052,43.9216 -86.3066,43.9193 -86.3067,43.9161 -86.3038,43.9106 -86.3023,43.9019 -86.2997,43.8891 -86.2959,43.874 -86.2945,43.863 -86.2912,43.8467 -86.2875,43.8288 -86.2852,43.8171 -86.2812,43.8057 -86.2778,43.7965 -86.2762,43.7888 -86.276,43.7861 -86.2757,43.7723 -86.2765,43.7683 -86.2782,43.7601 -86.2809,43.7565 -86.2823,43.7534 -86.2824,43.7511 -86.2813,43.7474 -86.2769,43.7455 -86.2707,43.7431 -86.2663,43.7416 -86.2607,43.7387 -86.2576,43.7373 -86.2533,43.7349 -86.2515,43.7326 -86.2548,43.7304 -86.2573,43.7305 -86.2617,43.7319 -86.2648,43.7325 -86.2691,43.7348 -86.2754,43.7363 -86.2792,43.7378 -86.2854,43.7398 -86.2904,43.7403 -86.293,43.739 -86.2963,43.7364 -86.301,43.7315 -86.3078,43.7198 -86.3132,43.7144 -86.3245,43.701 -86.3338,43.6912 -86.3469,43.681 -86.3581,43.6722 -86.3661,43.6633 -86.3719,43.6611 -86.3786,43.6517 -86.3814,43.6454 -86.3847,43.6418 -86.3862,43.6377 -86.3876,43.6337 -86.3884,43.6291 -86.3887,43.6241 -86.3888,43.6209 -86.3892,43.6109 -86.3876,43.6059 -86.3837,43.5917 -86.3813,43.5761 -86.3778,43.5679 -86.3744,43.5587 -86.3742,43.5496 -86.3713,43.544 -86.3683,43.539 -86.3641,43.5339 -86.3604,43.5315 -86.3543,43.5277 -86.3507,43.5235 -86.3502,43.5203 -86.3473,43.5134 -86.342,43.506 -86.3344,43.4917 -86.321,43.4668 -86.3124,43.4471 -86.3105,43.4416 -86.3068,43.4305 -86.3,43.4126 -86.2952,43.3939 -86.2897,43.376 -86.2876,43.3664 -86.2842,43.3572 -86.2819,43.3526 -86.2801,43.3507 -86.2782,43.3498 -86.2732,43.3501 -86.2668,43.3509 -86.263,43.3517 -86.2587,43.3502 -86.2543,43.3483 -86.2473,43.3513 -86.2453,43.3522 -86.2428,43.353 -86.239,43.3532 -86.2352,43.3533 -86.2314,43.3541 -86.2294,43.3568 -86.2286,43.36 -86.2251,43.3667 -86.2213,43.3675 -86.2181,43.3688 -86.2155,43.3706 -86.2116,43.3728 -86.209,43.375 -86.2077,43.3768 -86.2049,43.3822 -86.2035,43.384 -86.201,43.3839 -86.1999,43.3807 -86.2001,43.377 -86.2003,43.372 -86.2011,43.368 -86.2019,43.3639 -86.2033,43.3612 -86.2066,43.3576 -86.2106,43.3545 -86.2164,43.3519 -86.2254,43.3471 -86.2318,43.345 -86.2376,43.342 -86.2422,43.338 -86.2479,43.3363 -86.2531,43.3346 -86.2594,43.3343 -86.2637,43.3362 -86.2676,43.3386 -86.2698,43.34 -86.2723,43.3405 -86.2719,43.3364 -86.2672,43.3276 -86.2591,43.3124 -86.2462,43.2921 -86.2324,43.2626 -86.2122,43.2358 -86.2003,43.2209 -86.192,43.2107 -86.1902,43.2088 -86.1878,43.2051 -86.1846,43.2069 -86.182,43.2086 -86.18,43.2109 -86.1836,43.2155 -86.184,43.2196 -86.1808,43.2209 -86.1777,43.2204 -86.1752,43.2189 -86.1715,43.2179 -86.1665,43.2164 -86.159,43.2154 -86.1534,43.2143 -86.1503,43.2129 -86.1454,43.2118 -86.1416,43.2117 -86.1372,43.2121 -86.1344,43.214 -86.1313,43.216 -86.1287,43.2173 -86.1243,43.2191 -86.1204,43.2203 -86.1184,43.2226 -86.1177,43.2248 -86.1144,43.2284 -86.113,43.2315 -86.1097,43.2342 -86.1059,43.235 -86.1021,43.2354 -86.1016,43.2326 -86.0993,43.228 -86.0988,43.2257 -86.0958,43.2215 -86.094,43.2201 -86.0973,43.2179 -86.103,43.2167 -86.1094,43.2146 -86.1102,43.211 -86.1135,43.207 -86.1167,43.2057 -86.1205,43.2049 -86.1263,43.2014 -86.1296,43.1987 -86.1329,43.1965 -86.1349,43.1934 -86.1381,43.1921 -86.1412,43.1931 -86.1437,43.194 -86.1462,43.1946 -86.1494,43.1924 -86.1495,43.1901 -86.1503,43.1874 -86.1528,43.1865 -86.156,43.1857 -86.1617,43.1854 -86.1704,43.1874 -86.1734,43.1907 -86.1764,43.193 -86.1788,43.1958 -86.1825,43.1973 -86.1845,43.1959 -86.1816,43.19 -86.1787,43.184 -86.171,43.1747 -86.1675,43.1687 -86.1618,43.1549 -86.1518,43.1401 -86.1444,43.1253 -86.1361,43.1147 -86.1291,43.1017 -86.1239,43.093 -86.1221,43.0907 -86.121,43.087 -86.1194,43.0819 -86.1143,43.0695 -86.1128,43.0613 -86.1125,43.0549 -86.1108,43.0499 -86.1092,43.0439 -86.1069,43.0411 -86.104,43.0356 -86.1016,43.0337 -86.0996,43.035 -86.0977,43.0368 -86.0937,43.0399 -86.0917,43.0421 -86.091,43.0457 -86.089,43.048 -86.0845,43.0497 -86.0788,43.0509 -86.0743,43.0535 -86.069,43.0579 -86.0645,43.061 -86.0607,43.0614 -86.0563,43.0608 -86.0532,43.0603 -86.0469,43.0619 -86.0454,43.0655 -86.044,43.0705 -86.0425,43.0741 -86.0411,43.0786 -86.0397,43.0809 -86.037,43.0844 -86.0344,43.0877 -86.0262,43.0877 -86.0244,43.0846 -86.0271,43.0815 -86.0292,43.0779 -86.0312,43.0743 -86.0327,43.0702 -86.0341,43.0666 -86.0343,43.0625 -86.0325,43.0616 -86.0287,43.0624 -86.0255,43.0628 -86.0211,43.0626 -86.0251,43.0573 -86.0322,43.0534 -86.0391,43.054 -86.0453,43.0551 -86.0503,43.0556 -86.0547,43.0558 -86.0585,43.0549 -86.0624,43.0523 -86.0614,43.0477 -86.0595,43.0468 -86.0546,43.0439 -86.0503,43.0429 -86.0442,43.0391 -86.037,43.0326 -86.0265,43.0282 -86.0217,43.0249 -86.018,43.0225 -86.0137,43.0201 -86.012,43.0183 -86.0102,43.0159 -86.0079,43.0122 -86.0062,43.0086 -86.0025,43.0071 -85.9987,43.0061 -85.997,43.0029 -85.9997,42.9993 -86.0029,42.998 -86.0055,42.9972 -86.0112,42.9959 -86.0129,42.9983 -86.0153,43.0015 -86.0188,43.0066 -86.0193,43.0093 -86.0222,43.014 -86.0264,43.0182 -86.03,43.0219 -86.0349,43.0243 -86.0441,43.0277 -86.0503,43.0292 -86.0553,43.0307 -86.0596,43.0331 -86.0631,43.0378 -86.0662,43.0387 -86.0692,43.0406 -86.0717,43.0412 -86.0761,43.0417 -86.0786,43.0418 -86.0825,43.0392 -86.0845,43.036 -86.0865,43.0342 -86.0904,43.0312 -86.093,43.0299 -86.0949,43.0285 -86.0968,43.0277 -86.0988,43.0255 -86.0942,43.0167 -86.091,43.0052 -86.087,42.9969 -86.0879,42.9915 -86.0849,42.9751 -86.0835,42.9636 -86.0829,42.95 -86.0797,42.9385 -86.0754,42.9248 -86.0731,42.8918 -86.07,42.8932 -86.0676,42.8782 -86.0688,42.8689 -86.0657,42.8522 -86.0677,42.844 -86.0689,42.8302 -86.0645,42.8103 -86.0662,42.7906 -86.0643,42.7748 -86.0667,42.7635 -86.0674,42.7499 -86.065,42.7407 -86.0621,42.7293 -86.0617,42.7129 -86.062,42.7047 -86.0613,42.6942 -86.0612,42.6833 -86.0605,42.6719 -86.0629,42.6611 -86.0692,42.6462 -86.0726,42.6408 -86.0754,42.6327 -86.0783,42.6246 -86.0819,42.6151 -86.084,42.6088 -86.0856,42.603 -86.0858,42.5971 -86.0868,42.5893 -86.0878,42.5826 -86.0877,42.5707 -86.085,42.562 -86.0842,42.5524 -86.0912,42.5222 -86.0922,42.5154 -86.0938,42.5068 -86.0963,42.4932 -86.098,42.4837 -86.1004,42.4719 -86.1042,42.4588 -86.1082,42.4398 -86.1105,42.4299 -86.1139,42.4227 -86.1175,42.4128 -86.1269,42.3976 -86.1318,42.3889 -86.1371,42.3796 -86.1411,42.372 -86.1478,42.3481 -86.1521,42.3377 -86.1619,42.3125 -86.1721,42.2941 -86.1794,42.2825 -86.187,42.2654 -86.1985,42.2452 -86.2096,42.2332 -86.2168,42.2216 -86.2206,42.2165 -86.2242,42.2117 -86.2328,42.1992 -86.2394,42.1907 -86.2511,42.1774 -86.2635,42.164 -86.2765,42.1494 -86.2875,42.1383 -86.3062,42.1223 -86.3203,42.1118 -86.3311,42.1047 -86.3394,42.099 -86.3459,42.0924 -86.3507,42.0811 -86.3541,42.0726 -86.3558,42.0631 -86.3579,42.0567 -86.3613,42.0509 -86.3679,42.0402 -86.3764,42.0299 -86.385,42.0169 -86.3917,42.0039 -86.3957,41.9976 -86.4041,41.9883 -86.4081,41.982 -86.4108,41.9757 -86.413,41.968 -86.4159,41.9576 -86.42,41.9477 -86.4249,41.9356 -86.4277,41.9275 -86.4337,41.9172 -86.4391,41.9041 -86.4477,41.8907 -86.4542,41.8831 -86.458,41.8795 -86.4632,41.8733 -86.4697,41.8671 -86.4754,41.8622 -86.4824,41.8578 -86.4887,41.8534 -86.5065,41.8402 -86.5179,41.8332 -86.5345,41.8208 -86.5415,41.8132 -86.5454,41.8102 -86.5517,41.8067 -86.561,41.8032 -86.5686,41.7979 -86.5781,41.7927 -86.5863,41.7883 -86.5971,41.7808 -86.6084,41.7747 -86.6203,41.7686 -86.6323,41.7616 -86.6417,41.7563 -86.6493,41.7515 -86.6563,41.7467 -86.6633,41.7413 -86.6715,41.7347 -86.6742,41.7313 -86.676,41.7289 -86.6742,41.7289 1634,-5.0,United States -87.6056,38.423 -87.603,38.423 -87.6001,38.4207 -87.5972,38.4188 -87.5943,38.4179 -87.5908,38.416 -87.5879,38.4137 -87.5862,38.4114 -87.5869,38.4083 -87.592,38.3902 -87.5938,38.388 -87.595,38.3857 -87.5904,38.3843 -87.5863,38.3833 -87.5834,38.3828 -87.5769,38.3827 -87.5716,38.384 -87.5686,38.3858 -87.5645,38.3871 -87.5615,38.3889 -87.5585,38.3902 -87.5555,38.392 -87.5526,38.3937 -87.5496,38.3959 -87.5466,38.3968 -87.5419,38.3981 -87.536,38.3989 -87.5289,38.3988 -87.5247,38.4019 -87.5252,38.4051 -87.5258,38.4078 -87.5275,38.4101 -87.5274,38.4124 -87.5262,38.4151 -87.5244,38.4173 -87.5214,38.4196 -87.5184,38.4204 -87.5143,38.4208 -87.506,38.4207 -87.5002,38.4197 -87.4944,38.4169 -87.4909,38.4159 -87.488,38.4145 -87.481,38.4135 -87.4763,38.4134 -87.4727,38.4138 -87.4698,38.4147 -87.4662,38.4156 -87.4632,38.4169 -87.4603,38.4186 -87.4531,38.4231 -87.4507,38.4253 -87.447,38.4302 -87.4452,38.4334 -87.4427,38.4379 -87.4415,38.4406 -87.4396,38.4437 -87.4389,38.4469 -87.4377,38.45 -87.437,38.4527 -87.4352,38.4572 -87.4327,38.4599 -87.4298,38.4608 -87.4268,38.4607 -87.4239,38.4598 -87.421,38.4575 -87.4176,38.4551 -87.4124,38.451 -87.4095,38.4491 -87.4036,38.4508 -87.4011,38.4535 -87.3993,38.458 -87.3986,38.4607 -87.399,38.4662 -87.3989,38.4707 -87.3971,38.4739 -87.3947,38.4761 -87.3911,38.4769 -87.3882,38.4769 -87.3847,38.4759 -87.3824,38.4727 -87.3813,38.47 -87.3808,38.4668 -87.375,38.464 -87.372,38.4649 -87.369,38.4662 -87.3655,38.4666 -87.3632,38.4633 -87.3603,38.4628 -87.3568,38.461 -87.3516,38.4604 -87.348,38.4627 -87.3473,38.4654 -87.3467,38.4676 -87.346,38.4712 -87.3453,38.4735 -87.3446,38.4798 -87.339,38.4879 -87.3361,38.4892 -87.3337,38.4914 -87.3324,38.4937 -87.3294,38.4963 -87.327,38.4981 -87.3241,38.4328 -87.3076,38.4325 -87.3067,38.4026 -87.2668,38.4006 -87.2654,38.3452 -87.2614,38.3447 -87.2513,38.3459 -87.2478,38.3472 -87.2419,38.3466 -87.2361,38.3456 -87.2319,38.3478 -87.2254,38.3486 -87.2208,38.3467 -87.215,38.3448 -87.2085,38.3461 -87.2019,38.3482 -87.1966,38.3495 -87.1914,38.3476 -87.1663,38.344 -87.169,38.2121 -87.1508,38.2122 -87.1506,38.2009 -86.9274,38.198 -86.9266,38.1695 -86.8727,38.1688 -86.6466,38.1677 -86.6474,38.1627 -86.6463,38.1604 -86.6458,38.1577 -86.6459,38.155 -86.6454,38.1527 -86.6455,38.15 -86.6445,38.1445 -86.6452,38.1423 -86.6489,38.1378 -86.6578,38.1339 -86.6608,38.1317 -86.6615,38.1295 -86.6621,38.1268 -86.6617,38.1241 -86.6612,38.1218 -86.6607,38.119 -86.6596,38.1163 -86.6603,38.1136 -86.661,38.1104 -86.6611,38.1082 -86.6618,38.1037 -86.6619,38.1014 -86.6602,38.0986 -86.6574,38.0963 -86.6558,38.0931 -86.6553,38.0904 -86.6555,38.0845 -86.6538,38.0817 -86.6527,38.0794 -86.6499,38.0771 -86.6465,38.0752 -86.6412,38.0746 -86.6371,38.075 -86.6336,38.074 -86.6308,38.073 -86.6274,38.0684 -86.6264,38.0639 -86.6271,38.0616 -86.6278,38.0589 -86.6285,38.054 -86.6304,38.0517 -86.6316,38.0495 -86.6311,38.0472 -86.6306,38.0445 -86.629,38.0413 -86.6285,38.0385 -86.6274,38.0362 -86.6269,38.034 -86.6264,38.0312 -86.6265,38.0285 -86.6261,38.0253 -86.6256,38.0226 -86.6257,38.0199 -86.6252,38.0162 -86.6259,38.014 -86.6266,38.0104 -86.627,37.9991 -86.6277,37.9963 -86.6272,37.9941 -86.6273,37.9918 -86.6257,37.989 -86.6246,37.9868 -86.6224,37.9817 -86.6225,37.9795 -86.622,37.9772 -86.6227,37.9749 -86.6239,37.9727 -86.6263,37.9705 -86.6293,37.9701 -86.6321,37.972 -86.6362,37.973 -86.6396,37.9753 -86.6425,37.9758 -86.6495,37.9751 -86.6537,37.9742 -86.656,37.9738 -86.659,37.9721 -86.6631,37.9708 -86.665,37.9686 -86.668,37.9664 -86.6698,37.9642 -86.6717,37.961 -86.6736,37.9575 -86.6706,37.9578 -86.6672,37.9569 -86.6637,37.955 -86.658,37.9517 -86.6551,37.9498 -86.6535,37.9475 -86.6501,37.9447 -86.649,37.9424 -86.6479,37.9397 -86.6463,37.9369 -86.6464,37.9346 -86.6453,37.9323 -86.6442,37.9296 -86.642,37.9273 -86.6403,37.9245 -86.6381,37.9213 -86.637,37.9186 -86.6354,37.9163 -86.6337,37.9135 -86.6304,37.9075 -86.6276,37.9038 -86.6271,37.9011 -86.6233,37.8956 -86.6216,37.8928 -86.6194,37.8901 -86.6173,37.8837 -86.6151,37.8804 -86.6128,37.8781 -86.6106,37.8744 -86.6062,37.8689 -86.6033,37.8666 -86.6011,37.8643 -86.5982,37.8633 -86.5948,37.8618 -86.5919,37.8609 -86.589,37.8604 -86.5802,37.8602 -86.5761,37.8605 -86.5732,37.8614 -86.5661,37.8648 -86.5631,37.8661 -86.559,37.8674 -86.556,37.8691 -86.553,37.8713 -86.5494,37.8731 -86.5465,37.8734 -86.5429,37.8747 -86.54,37.8756 -86.5364,37.8777 -86.5323,37.8786 -86.5287,37.8794 -86.5252,37.8793 -86.5218,37.8788 -86.5188,37.8792 -86.5159,37.8791 -86.5131,37.8763 -86.5109,37.874 -86.508,37.8712 -86.5076,37.8685 -86.5089,37.864 -86.5084,37.8617 -86.5086,37.8562 -86.5093,37.8531 -86.5106,37.8504 -86.5107,37.8477 -86.512,37.8454 -86.512,37.8432 -86.5133,37.8409 -86.514,37.8387 -86.5147,37.836 -86.5153,37.8337 -86.516,37.831 -86.5167,37.8288 -86.5179,37.8265 -86.5181,37.822 -86.516,37.8174 -86.5143,37.8151 -86.5132,37.8133 -86.5098,37.8114 -86.5057,37.8108 -86.5028,37.8108 -86.4958,37.8115 -86.4928,37.8119 -86.4893,37.8127 -86.4852,37.8135 -86.4793,37.8161 -86.4763,37.8169 -86.4727,37.8191 -86.4656,37.8217 -86.462,37.8239 -86.4596,37.8274 -86.4571,37.8319 -86.4564,37.8346 -86.4557,37.8378 -86.455,37.8405 -86.4549,37.8437 -86.4542,37.8464 -86.4541,37.8491 -86.4533,37.8527 -86.4538,37.8559 -86.4531,37.8599 -86.4528,37.8658 -86.4519,37.874 -86.4518,37.8771 -86.4511,37.8794 -86.4487,37.8825 -86.4462,37.8847 -86.4456,37.887 -86.4426,37.8883 -86.4391,37.8891 -86.4361,37.8899 -86.4331,37.8912 -86.4291,37.8916 -86.4261,37.8915 -86.4203,37.8904 -86.4169,37.8895 -86.4128,37.8898 -86.4098,37.8902 -86.4069,37.8897 -86.4035,37.8882 -86.4006,37.8882 -86.3976,37.8885 -86.3884,37.8874 -86.3854,37.8878 -86.3825,37.8886 -86.379,37.889 -86.376,37.8898 -86.3724,37.8916 -86.37,37.8938 -86.3687,37.8965 -86.3675,37.8987 -86.3656,37.9009 -86.365,37.9032 -86.3642,37.9081 -86.3646,37.9118 -86.3651,37.9141 -86.3667,37.9168 -86.3672,37.9191 -86.3683,37.9218 -86.3699,37.925 -86.371,37.9278 -86.3731,37.9328 -86.3757,37.9411 -86.3767,37.9447 -86.3772,37.9474 -86.3776,37.9506 -86.3781,37.9534 -86.378,37.9565 -86.3785,37.9588 -86.3784,37.9611 -86.3777,37.9642 -86.3761,37.9751 -86.3754,37.9773 -86.3759,37.9796 -86.3752,37.9819 -86.3751,37.9846 -86.3744,37.9873 -86.3732,37.9895 -86.3731,37.9918 -86.3718,37.9945 -86.3704,37.999 -86.3703,38.0012 -86.3676,38.0102 -86.3664,38.0129 -86.3634,38.0147 -86.3604,38.0151 -86.3575,38.0163 -86.3539,38.0172 -86.3504,38.0175 -86.3454,38.0141 -86.3468,38.0184 -86.3439,38.0187 -86.3404,38.0187 -86.3363,38.0195 -86.3234,38.0191 -86.3193,38.0209 -86.3157,38.0221 -86.3127,38.0234 -86.3098,38.0242 -86.3056,38.025 -86.302,38.0272 -86.299,38.029 -86.2936,38.0343 -86.291,38.0396 -86.2897,38.0419 -86.2884,38.0464 -86.2877,38.0491 -86.2876,38.0518 -86.2898,38.0546 -86.2926,38.0574 -86.2966,38.0593 -86.2995,38.0607 -86.3017,38.063 -86.3052,38.0649 -86.3143,38.0693 -86.3178,38.0716 -86.32,38.0753 -86.3216,38.0776 -86.3221,38.0799 -86.3219,38.0853 -86.3212,38.0885 -86.3205,38.0907 -86.3186,38.0929 -86.3157,38.0938 -86.3121,38.095 -86.3074,38.0954 -86.3045,38.0958 -86.2998,38.0956 -86.2929,38.0928 -86.2894,38.0918 -86.2878,38.0895 -86.2843,38.0871 -86.2809,38.0852 -86.2775,38.0838 -86.2746,38.0819 -86.2712,38.08 -86.2671,38.079 -86.2642,38.078 -86.2608,38.0756 -86.2574,38.0742 -86.2545,38.0741 -86.252,38.0763 -86.249,38.079 -86.2453,38.0834 -86.244,38.0865 -86.2409,38.0892 -86.2368,38.0909 -86.2326,38.093 -86.2296,38.0939 -86.2255,38.0947 -86.222,38.0946 -86.219,38.0959 -86.2143,38.0962 -86.2084,38.0974 -86.2043,38.0978 -86.2013,38.0981 -86.1978,38.0985 -86.1949,38.0993 -86.1913,38.1002 -86.1883,38.1019 -86.1846,38.1063 -86.1827,38.1099 -86.1826,38.1131 -86.1841,38.1172 -86.1875,38.12 -86.1904,38.1214 -86.1944,38.1225 -86.198,38.1225 -86.202,38.1231 -86.2049,38.1241 -86.2078,38.1246 -86.2113,38.1256 -86.2206,38.1272 -86.2246,38.1287 -86.2281,38.1297 -86.231,38.1316 -86.2344,38.1339 -86.2366,38.1362 -86.2383,38.139 -86.2376,38.1417 -86.2374,38.1453 -86.2379,38.1481 -86.2378,38.1508 -86.2364,38.1557 -86.2369,38.158 -86.2356,38.1607 -86.232,38.1615 -86.2215,38.1612 -86.2186,38.1603 -86.2116,38.1592 -86.2088,38.1568 -86.2042,38.1545 -86.2002,38.1521 -86.1986,38.1498 -86.1951,38.1474 -86.1923,38.1455 -86.1882,38.1459 -86.1889,38.1432 -86.1833,38.1371 -86.1742,38.1315 -86.1569,38.1242 -86.1512,38.1213 -86.1449,38.1162 -86.1429,38.1098 -86.1414,38.1039 -86.1411,38.0961 -86.1414,38.0898 -86.1406,38.0821 -86.1411,38.0703 -86.1409,38.0617 -86.1402,38.0517 -86.1387,38.0444 -86.1355,38.0375 -86.1323,38.0315 -86.125,38.0241 -86.1176,38.018 -86.1097,38.0128 -86.0994,38.0066 -86.0903,38.0018 -86.0811,37.9984 -86.0713,37.9945 -86.0598,37.9901 -86.0483,37.9862 -86.0379,37.9836 -86.0263,37.9815 -86.0146,37.9807 -86.0059,37.981 -85.993,37.9811 -85.9813,37.9821 -85.972,37.9809 -85.9615,37.9788 -85.9523,37.9772 -85.9426,37.9715 -85.9325,37.9631 -85.9269,37.9566 -85.9208,37.9509 -85.9158,37.9445 -85.9114,37.9389 -85.9046,37.9337 -85.9,37.9327 -85.897,37.9344 -85.8895,37.9451 -85.8857,37.9509 -85.8832,37.9553 -85.8789,37.9588 -85.8724,37.9614 -85.8658,37.9644 -85.8539,37.9676 -85.8509,37.9694 -85.8474,37.9706 -85.8375,37.9703 -85.8345,37.9707 -85.8304,37.9706 -85.8269,37.9714 -85.8227,37.9726 -85.8198,37.9735 -85.8121,37.9755 -85.8085,37.9768 -85.8061,37.9781 -85.8031,37.9789 -85.8002,37.9797 -85.7972,37.981 -85.7911,37.9853 -85.7887,37.988 -85.7862,37.9902 -85.7843,37.9929 -85.7825,37.9951 -85.7812,37.9977 -85.7782,37.9999 -85.7769,38.0026 -85.775,38.0048 -85.7737,38.0071 -85.77,38.0106 -85.7687,38.0146 -85.7674,38.0178 -85.7661,38.02 -85.7648,38.0227 -85.7634,38.0258 -85.7627,38.0285 -85.762,38.0308 -85.7591,38.0434 -85.759,38.0456 -85.7583,38.0479 -85.7577,38.0592 -85.7588,38.0615 -85.7581,38.0642 -85.7597,38.0665 -85.7606,38.0729 -85.761,38.0756 -85.7615,38.0779 -85.7625,38.0807 -85.763,38.0838 -85.7627,38.0893 -85.7631,38.0925 -85.7636,38.0948 -85.7641,38.0975 -85.7639,38.1002 -85.7644,38.1029 -85.7641,38.1084 -85.7634,38.1111 -85.763,38.1192 -85.7635,38.1215 -85.7634,38.1238 -85.7627,38.126 -85.7625,38.1287 -85.7618,38.1314 -85.7611,38.1337 -85.7608,38.1409 -85.7594,38.1459 -85.7587,38.1481 -85.7561,38.1526 -85.7542,38.1553 -85.7523,38.1584 -85.7492,38.161 -85.7444,38.164 -85.7414,38.1662 -85.7372,38.1684 -85.7359,38.1706 -85.7329,38.1719 -85.7328,38.1741 -85.7291,38.1777 -85.7266,38.1798 -85.7205,38.1856 -85.7169,38.1873 -85.7144,38.1904 -85.7114,38.1916 -85.7101,38.1939 -85.7071,38.196 -85.7046,38.1987 -85.7021,38.2018 -85.6996,38.2044 -85.697,38.2098 -85.6963,38.213 -85.695,38.2156 -85.6942,38.2192 -85.6928,38.2242 -85.6925,38.2287 -85.6913,38.231 -85.6898,38.2368 -85.6879,38.2399 -85.6872,38.2422 -85.68,38.2451 -85.677,38.2469 -85.671,38.2485 -85.668,38.2498 -85.6639,38.2501 -85.661,38.2505 -85.6538,38.2521 -85.6445,38.2518 -85.6347,38.2507 -85.6335,38.2483 -85.63,38.2477 -85.6272,38.2458 -85.6243,38.2435 -85.6203,38.2415 -85.6146,38.2386 -85.6094,38.2371 -85.6065,38.2366 -85.5972,38.2358 -85.5942,38.2362 -85.5912,38.2375 -85.5877,38.2383 -85.5841,38.2395 -85.5799,38.2407 -85.5769,38.2416 -85.5734,38.2424 -85.5715,38.2446 -85.5685,38.2463 -85.5576,38.2528 -85.5546,38.2545 -85.5509,38.2562 -85.5449,38.2587 -85.5413,38.2613 -85.5383,38.2626 -85.5341,38.2647 -85.5311,38.266 -85.5287,38.2668 -85.5268,38.2695 -85.5243,38.2721 -85.5218,38.2743 -85.5193,38.277 -85.5175,38.2792 -85.515,38.2818 -85.5131,38.2849 -85.5118,38.2872 -85.5099,38.2898 -85.5092,38.2921 -85.504,38.301 -85.5015,38.3036 -85.5008,38.3063 -85.4995,38.3086 -85.4982,38.3112 -85.4974,38.3148 -85.4966,38.318 -85.4959,38.3202 -85.4952,38.3234 -85.4948,38.3311 -85.4934,38.3356 -85.4936,38.3424 -85.4929,38.3446 -85.4909,38.3496 -85.4902,38.3518 -85.4888,38.3549 -85.4881,38.3572 -85.4874,38.3599 -85.4867,38.3621 -85.4854,38.3644 -85.4834,38.3693 -85.4832,38.3725 -85.4819,38.3747 -85.4818,38.3774 -85.4811,38.3797 -85.4792,38.3819 -85.4791,38.3841 -85.4766,38.3863 -85.4759,38.3886 -85.4746,38.3908 -85.4733,38.3935 -85.4726,38.3957 -85.4713,38.3984 -85.4706,38.4006 -85.4681,38.4028 -85.4668,38.4055 -85.4643,38.4077 -85.4624,38.4104 -85.4599,38.4126 -85.4569,38.4147 -85.4532,38.4169 -85.449,38.4181 -85.4454,38.4194 -85.4424,38.4206 -85.4395,38.4214 -85.4359,38.4227 -85.4323,38.423 -85.4287,38.4238 -85.4257,38.4251 -85.4198,38.4263 -85.4127,38.4269 -85.4038,38.428 -85.3968,38.4273 -85.3938,38.4286 -85.3903,38.428 -85.3873,38.4284 -85.3838,38.4287 -85.3808,38.4291 -85.3778,38.4303 -85.3742,38.4316 -85.3677,38.4332 -85.3641,38.434 -85.3605,38.4352 -85.3575,38.4365 -85.3545,38.4373 -85.3488,38.4439 -85.3452,38.4461 -85.3427,38.4487 -85.3402,38.4509 -85.3383,38.4531 -85.3357,38.4585 -85.3331,38.4629 -85.3306,38.4656 -85.3224,38.4744 -85.3186,38.4797 -85.3137,38.4841 -85.3075,38.4884 -85.3045,38.4901 -85.3014,38.4923 -85.2984,38.4935 -85.296,38.4957 -85.293,38.4965 -85.2893,38.4982 -85.2833,38.5017 -85.2797,38.5029 -85.2789,38.5061 -85.2764,38.5091 -85.2732,38.5127 -85.2707,38.5158 -85.2682,38.5184 -85.2663,38.5206 -85.2655,38.5242 -85.2647,38.5274 -85.2652,38.5301 -85.2661,38.5347 -85.2682,38.5388 -85.2687,38.5411 -85.2702,38.5461 -85.2717,38.5507 -85.2733,38.5535 -85.2743,38.5567 -85.2759,38.559 -85.277,38.5613 -85.2786,38.5641 -85.2802,38.5673 -85.2812,38.5701 -85.2829,38.5724 -85.2833,38.5756 -85.2837,38.5779 -85.2846,38.5834 -85.2844,38.5865 -85.2848,38.5902 -85.2852,38.5934 -85.2851,38.5961 -85.2855,38.5993 -85.2859,38.6034 -85.2857,38.6061 -85.2861,38.6093 -85.2871,38.6129 -85.2875,38.6157 -85.2879,38.6189 -85.2878,38.6211 -85.2883,38.6234 -85.2887,38.627 -85.2882,38.6347 -85.2893,38.637 -85.2903,38.6403 -85.2925,38.6426 -85.2929,38.6462 -85.2951,38.6495 -85.2967,38.6527 -85.2983,38.655 -85.2994,38.6578 -85.301,38.6606 -85.3004,38.671 -85.2997,38.6737 -85.2995,38.6764 -85.2988,38.6791 -85.2986,38.6814 -85.2973,38.684 -85.2966,38.6863 -85.294,38.6907 -85.2915,38.6934 -85.289,38.6956 -85.2859,38.6977 -85.2829,38.6994 -85.2786,38.7011 -85.2756,38.7024 -85.2721,38.7027 -85.2691,38.7031 -85.2655,38.7043 -85.2625,38.7042 -85.2584,38.7045 -85.2554,38.7049 -85.2518,38.7052 -85.2489,38.7056 -85.2459,38.7055 -85.243,38.7058 -85.2365,38.7056 -85.2335,38.7051 -85.2306,38.705 -85.2248,38.7039 -85.2218,38.7038 -85.2189,38.7032 -85.2154,38.7026 -85.2124,38.7025 -85.2089,38.702 -85.206,38.701 -85.2031,38.7009 -85.2001,38.7012 -85.1965,38.702 -85.193,38.7024 -85.187,38.7031 -85.1823,38.7029 -85.1798,38.7046 -85.175,38.7063 -85.172,38.7071 -85.1667,38.7078 -85.1625,38.7081 -85.1589,38.7089 -85.1548,38.7092 -85.15,38.7095 -85.1453,38.7103 -85.1417,38.7101 -85.1376,38.7109 -85.1305,38.7107 -85.1275,38.711 -85.1222,38.7113 -85.1187,38.7103 -85.1158,38.7093 -85.1118,38.7073 -85.1083,38.7054 -85.1061,38.703 -85.1011,38.6983 -85.0982,38.6964 -85.096,38.6941 -85.0938,38.6922 -85.0921,38.6898 -85.0887,38.6875 -85.0859,38.6855 -85.0831,38.6827 -85.0791,38.6799 -85.0764,38.6761 -85.0736,38.6742 -85.0679,38.6695 -85.0639,38.6675 -85.0623,38.6652 -85.0594,38.6642 -85.0525,38.6617 -85.0496,38.6598 -85.0456,38.6583 -85.0408,38.6586 -85.0373,38.6585 -85.0308,38.6591 -85.0254,38.6599 -85.0201,38.6601 -85.0166,38.66 -85.0136,38.6608 -85.0082,38.6611 -85.004,38.6632 -85.0009,38.6644 -84.9979,38.6666 -84.9936,38.6687 -84.9899,38.6713 -84.9826,38.6747 -84.9765,38.6776 -84.9724,38.6784 -84.967,38.68 -84.9651,38.6822 -84.9608,38.6843 -84.9572,38.686 -84.9473,38.6934 -84.9453,38.696 -84.9411,38.6982 -84.938,38.7008 -84.9355,38.703 -84.9324,38.7042 -84.9305,38.7069 -84.9269,38.7085 -84.9244,38.7107 -84.9182,38.7141 -84.9158,38.7163 -84.9115,38.718 -84.9055,38.7205 -84.9025,38.7213 -84.8994,38.723 -84.8958,38.7238 -84.8933,38.7255 -84.8904,38.7258 -84.8862,38.727 -84.8832,38.7278 -84.8802,38.7282 -84.8766,38.729 -84.8724,38.7302 -84.8688,38.731 -84.8651,38.7331 -84.8566,38.7364 -84.8536,38.7377 -84.8482,38.7393 -84.8451,38.7414 -84.8397,38.7426 -84.8361,38.7443 -84.8325,38.7446 -84.8277,38.7453 -84.8229,38.7465 -84.8193,38.7469 -84.8164,38.7472 -84.814,38.7471 -84.8087,38.7474 -84.8057,38.7477 -84.8015,38.748 -84.7968,38.7478 -84.7938,38.7486 -84.7897,38.7489 -84.7825,38.75 -84.7795,38.7504 -84.7754,38.7511 -84.7664,38.7522 -84.7629,38.7525 -84.7575,38.7532 -84.7491,38.7547 -84.745,38.755 -84.7372,38.7556 -84.7343,38.756 -84.7277,38.7566 -84.7241,38.7574 -84.7206,38.7573 -84.717,38.758 -84.7135,38.757 -84.7088,38.7573 -84.7046,38.7576 -84.6993,38.7578 -84.6916,38.7575 -84.6886,38.7579 -84.6851,38.7573 -84.6816,38.7572 -84.6786,38.7575 -84.6757,38.7574 -84.6727,38.7577 -84.6691,38.7585 -84.6661,38.7593 -84.663,38.761 -84.6623,38.7637 -84.6621,38.766 -84.6637,38.7687 -84.6652,38.7724 -84.6674,38.7748 -84.6689,38.7798 -84.671,38.7844 -84.6725,38.7881 -84.6729,38.7904 -84.6722,38.7936 -84.6725,38.7977 -84.6717,38.8004 -84.6703,38.8035 -84.669,38.8061 -84.6665,38.8083 -84.6657,38.8106 -84.6626,38.8132 -84.6607,38.8154 -84.6576,38.8175 -84.6545,38.8192 -84.6515,38.8205 -84.649,38.8226 -84.6459,38.8252 -84.6428,38.8274 -84.6403,38.8296 -84.6372,38.8313 -84.6347,38.8325 -84.6333,38.8366 -84.633,38.8415 -84.6346,38.8443 -84.636,38.8503 -84.6387,38.8536 -84.6409,38.8559 -84.645,38.857 -84.6471,38.8607 -84.6505,38.8631 -84.6546,38.8646 -84.6581,38.8656 -84.6651,38.8668 -84.6698,38.867 -84.6734,38.8662 -84.6888,38.8668 -84.6911,38.8673 -84.7035,38.8673 -84.707,38.8679 -84.7129,38.8691 -84.7187,38.8711 -84.7215,38.8726 -84.7226,38.8753 -84.7242,38.8781 -84.7246,38.8804 -84.7256,38.8831 -84.7253,38.8881 -84.7245,38.8908 -84.7232,38.8935 -84.7213,38.8957 -84.7181,38.8983 -84.7156,38.9009 -84.7125,38.9035 -84.7094,38.9057 -84.7075,38.9079 -84.7049,38.9101 -84.7018,38.9131 -84.6987,38.9153 -84.6967,38.9179 -84.6936,38.9205 -84.6916,38.9241 -84.6903,38.9268 -84.6877,38.9294 -84.6864,38.932 -84.6844,38.9347 -84.6831,38.9369 -84.6823,38.9405 -84.6817,38.9487 -84.6827,38.9519 -84.6831,38.9546 -84.6853,38.9574 -84.6863,38.9606 -84.6878,38.9652 -84.6915,38.9717 -84.695,38.9732 -84.6966,38.9764 -84.6998,38.9811 -84.7026,38.9839 -84.706,38.9863 -84.7089,38.9873 -84.7157,38.9921 -84.7185,38.9945 -84.7214,38.9964 -84.7236,38.9988 -84.7246,39.002 -84.728,39.0048 -84.7313,39.0081 -84.7341,39.011 -84.7373,39.0165 -84.7377,39.0193 -84.7382,39.0216 -84.7374,39.0238 -84.7367,39.0265 -84.734,39.0309 -84.729,39.0353 -84.7246,39.0383 -84.7198,39.0399 -84.7179,39.0421 -84.7142,39.0438 -84.71,39.045 -84.7075,39.0472 -84.7044,39.048 -84.7031,39.0498 -84.6995,39.0514 -84.6958,39.0536 -84.684,39.0617 -84.6832,39.064 -84.6807,39.0662 -84.6777,39.0674 -84.6752,39.0696 -84.6721,39.2689 -84.672,39.2755 -84.6696,39.4783 -84.6696,39.5299 -84.6697,39.5327 -84.6679,39.6979 -84.6656,39.883 -84.6655,39.8912 -84.665,39.9819 -84.6529,40.2865 -84.6512,40.319 -84.6508,40.3269 -84.6476,40.5588 -84.6478,40.6948 -84.6478,40.7032 -84.6468,40.9012 -84.6464,40.9543 -84.6463,40.9639 -84.647,41.2191 -84.647,41.2283 -84.648,41.251 -84.6393,41.3938 -84.6392,41.3966 -84.6387,41.4953 -84.6386,41.5011 -84.6377,41.6652 -84.6418,41.6651 -84.6451,41.7271 -84.6733,41.7278 -84.677,41.7278 -85.0404,41.7288 -85.1452,41.728 -85.5068,41.7253 -85.6474,41.7306 -85.9155,41.7305 -86.0806,41.7302 -86.3724,41.7281 -86.3725,41.627 -86.3332,41.6256 -86.333,41.5466 -86.3458,41.5328 -86.3473,41.5278 -86.347,41.5047 -86.3538,41.5048 -86.3531,41.4921 -86.3776,41.4918 -86.3764,41.4059 -86.3788,41.4055 -86.385,41.4057 -86.3984,41.4055 -86.4015,41.4047 -86.4052,41.4043 -86.426,41.4048 -86.4322,41.404 -86.4365,41.4046 -86.4634,41.4052 -86.4683,41.4048 -86.4714,41.4044 -86.4781,41.4046 -86.4849,41.4038 -86.488,41.4039 -86.4911,41.4035 -86.4948,41.4031 -86.4979,41.4014 -86.5004,41.3987 -86.5024,41.397 -86.5043,41.3943 -86.5112,41.3894 -86.5144,41.3868 -86.5175,41.385 -86.5201,41.3828 -86.5239,41.3802 -86.5282,41.3785 -86.532,41.3758 -86.5357,41.3741 -86.5395,41.3719 -86.5426,41.3701 -86.5452,41.3679 -86.5496,41.3658 -86.5521,41.3635 -86.554,41.3609 -86.556,41.3586 -86.5573,41.3559 -86.5586,41.3528 -86.5606,41.3497 -86.5632,41.3452 -86.5646,41.3425 -86.5659,41.3402 -86.5684,41.3376 -86.5697,41.3353 -86.5723,41.3327 -86.5736,41.3304 -86.5749,41.3277 -86.5763,41.3237 -86.577,41.3214 -86.5778,41.3164 -86.5804,41.3133 -86.5817,41.3106 -86.5824,41.3084 -86.5838,41.3052 -86.5858,41.3016 -86.5891,41.2949 -86.5929,41.2909 -86.5948,41.2887 -86.5999,41.2833 -86.6025,41.2802 -86.605,41.2784 -86.607,41.2757 -86.6107,41.2731 -86.6139,41.2704 -86.6164,41.2682 -86.6233,41.2638 -86.6271,41.2616 -86.6309,41.2585 -86.6358,41.2568 -86.6396,41.2546 -86.6433,41.2529 -86.6509,41.2476 -86.6534,41.2449 -86.6571,41.2441 -86.6602,41.2424 -86.6639,41.2424 -86.6682,41.2416 -86.6798,41.2419 -86.6829,41.241 -86.686,41.2406 -86.6891,41.2389 -86.6952,41.2377 -86.6989,41.2368 -86.7033,41.236 -86.7063,41.2356 -86.71,41.2348 -86.7162,41.234 -86.7272,41.2324 -86.7309,41.232 -86.7396,41.229 -86.7439,41.2268 -86.747,41.226 -86.7501,41.2247 -86.7539,41.223 -86.757,41.2221 -86.7601,41.2204 -86.7632,41.2182 -86.767,41.216 -86.7701,41.2133 -86.7732,41.212 -86.7764,41.2098 -86.7795,41.2085 -86.7826,41.2058 -86.7801,41.1404 -86.7784,40.8844 -86.8338,40.8842 -86.8333,40.8129 -86.9506,40.8106 -86.9492,40.7103 -87.113,40.7097 -87.3799,40.7114 -87.3844,40.4606 -87.3829,40.4492 -87.3826,40.1321 -87.383,39.8533 -87.3828,39.5753 -87.3858,39.4434 -87.3875,39.3165 -87.3994,39.3171 -87.4048,39.3145 -87.4078,39.3118 -87.4127,39.3078 -87.4192,39.3079 -87.4252,39.3084 -87.4329,39.3077 -87.4383,39.3068 -87.4449,39.3042 -87.4468,39.3011 -87.4481,39.2975 -87.4512,39.2907 -87.4561,39.2858 -87.4598,39.2818 -87.464,39.2782 -87.4676,39.2765 -87.4725,39.2734 -87.4731,39.2711 -87.4702,39.2692 -87.4661,39.2683 -87.4579,39.2636 -87.4586,39.26 -87.4616,39.256 -87.4623,39.2533 -87.463,39.2474 -87.4602,39.2419 -87.4604,39.2351 -87.4576,39.2292 -87.4565,39.226 -87.4541,39.2241 -87.453,39.2214 -87.4501,39.2204 -87.4466,39.2186 -87.443,39.219 -87.44,39.2185 -87.4371,39.2184 -87.4329,39.217 -87.4318,39.2147 -87.432,39.2061 -87.4333,39.2016 -87.4334,39.1984 -87.4317,39.1957 -87.4312,39.1934 -87.4313,39.1884 -87.432,39.1857 -87.4332,39.183 -87.4345,39.1798 -87.4352,39.1776 -87.4358,39.1744 -87.4383,39.1699 -87.4396,39.1668 -87.4415,39.1641 -87.4444,39.1632 -87.4474,39.1628 -87.4504,39.1629 -87.4552,39.162 -87.4576,39.1589 -87.4589,39.1566 -87.4613,39.1544 -87.4649,39.1531 -87.4709,39.1514 -87.4751,39.1501 -87.4781,39.1474 -87.4811,39.1456 -87.4836,39.1434 -87.486,39.1389 -87.4874,39.1339 -87.4915,39.1345 -87.4975,39.1305 -87.5005,39.1292 -87.5041,39.1274 -87.5077,39.1261 -87.5102,39.1239 -87.5138,39.1194 -87.5145,39.1171 -87.5157,39.1149 -87.5176,39.1126 -87.5176,39.1104 -87.5159,39.1081 -87.5136,39.1044 -87.5101,39.103 -87.5078,39.0993 -87.5067,39.0966 -87.5074,39.0939 -87.5092,39.0917 -87.5093,39.0889 -87.5105,39.0867 -87.5106,39.0844 -87.51,39.0821 -87.5095,39.0794 -87.5084,39.0771 -87.5055,39.0757 -87.5013,39.0743 -87.4984,39.0734 -87.4948,39.0738 -87.4919,39.0733 -87.4883,39.0728 -87.4854,39.0718 -87.4819,39.0708 -87.4789,39.0699 -87.4784,39.0676 -87.4797,39.0631 -87.4798,39.0581 -87.4781,39.0549 -87.4752,39.0535 -87.4722,39.053 -87.4651,39.052 -87.4622,39.0511 -87.4593,39.0506 -87.4563,39.0487 -87.454,39.0464 -87.4517,39.0436 -87.4488,39.0409 -87.4442,39.0385 -87.4413,39.0358 -87.4396,39.0335 -87.4355,39.0307 -87.4326,39.0284 -87.432,39.0261 -87.434,39.0193 -87.4353,39.0139 -87.4344,39.0057 -87.4356,39.0035 -87.4333,39.0003 -87.431,38.998 -87.4299,38.9953 -87.43,38.993 -87.4294,38.9903 -87.4301,38.9875 -87.4302,38.9821 -87.4297,38.9798 -87.4298,38.9776 -87.4304,38.9753 -87.4311,38.9708 -87.4318,38.9685 -87.4301,38.9662 -87.4289,38.964 -87.429,38.9617 -87.4332,38.9608 -87.4361,38.9609 -87.4391,38.96 -87.4362,38.9573 -87.4333,38.9559 -87.4298,38.9545 -87.4269,38.9526 -87.4239,38.9512 -87.421,38.9502 -87.4181,38.9488 -87.4145,38.9488 -87.4116,38.9483 -87.4081,38.9473 -87.4046,38.9459 -87.3987,38.944 -87.3952,38.943 -87.3929,38.9407 -87.39,38.9384 -87.387,38.9366 -87.3853,38.9343 -87.3824,38.9319 -87.3807,38.9297 -87.3802,38.9274 -87.3791,38.9251 -87.378,38.9224 -87.3786,38.9201 -87.379,38.9065 -87.3784,38.9042 -87.3773,38.9019 -87.3774,38.8979 -87.3787,38.8956 -87.3799,38.8929 -87.3824,38.8907 -87.3866,38.8885 -87.3866,38.8862 -87.3873,38.884 -87.3867,38.8817 -87.385,38.879 -87.3845,38.8762 -87.3846,38.8735 -87.3858,38.8713 -87.3883,38.869 -87.3901,38.8663 -87.3914,38.8641 -87.392,38.8614 -87.3927,38.8591 -87.3939,38.8569 -87.394,38.8546 -87.3952,38.8519 -87.3982,38.8497 -87.4007,38.8475 -87.4025,38.8452 -87.4038,38.8407 -87.4051,38.8385 -87.4063,38.8358 -87.4064,38.8335 -87.4052,38.8312 -87.4029,38.8289 -87.4,38.8266 -87.3983,38.8243 -87.3948,38.8233 -87.3914,38.8201 -87.3884,38.8192 -87.3867,38.816 -87.3851,38.8119 -87.3834,38.8096 -87.3822,38.8073 -87.3817,38.805 -87.3812,38.8018 -87.3801,38.7986 -87.3803,38.7927 -87.3792,38.7905 -87.3775,38.7877 -87.3729,38.7831 -87.3717,38.7808 -87.37,38.7785 -87.3689,38.7753 -87.3666,38.7726 -87.3644,38.7694 -87.3586,38.7647 -87.3551,38.7615 -87.3546,38.7592 -87.3541,38.7565 -87.3548,38.7533 -87.3554,38.7511 -87.3584,38.7502 -87.3644,38.7476 -87.365,38.7453 -87.3663,38.7426 -87.3634,38.7408 -87.3599,38.7389 -87.357,38.738 -87.3552,38.7357 -87.3553,38.7334 -87.356,38.7312 -87.3572,38.728 -87.3579,38.7248 -87.3586,38.7226 -87.3586,38.7203 -87.3581,38.7176 -87.3576,38.7144 -87.3559,38.7121 -87.3548,38.7098 -87.3549,38.7048 -87.3556,38.7026 -87.358,38.6981 -87.3599,38.6954 -87.3611,38.6927 -87.363,38.69 -87.3654,38.6869 -87.3661,38.6842 -87.3679,38.6819 -87.3692,38.6797 -87.3704,38.677 -87.3717,38.6747 -87.3723,38.672 -87.3742,38.6693 -87.3754,38.6666 -87.3784,38.6649 -87.3857,38.6573 -87.3881,38.6546 -87.3911,38.6519 -87.3983,38.6493 -87.4019,38.6476 -87.4048,38.6467 -87.4078,38.6463 -87.4108,38.6454 -87.4155,38.6451 -87.4185,38.6446 -87.4226,38.6434 -87.4256,38.6425 -87.4286,38.6407 -87.4357,38.6381 -87.4387,38.6359 -87.4417,38.6346 -87.4447,38.6324 -87.4477,38.6306 -87.4495,38.6284 -87.4508,38.6247 -87.4526,38.6225 -87.4556,38.6221 -87.4586,38.6208 -87.4633,38.6186 -87.4646,38.6159 -87.467,38.6137 -87.47,38.611 -87.4724,38.6088 -87.4725,38.6065 -87.4731,38.6042 -87.4738,38.6015 -87.4745,38.5966 -87.4746,38.5943 -87.4752,38.5911 -87.4759,38.5889 -87.4748,38.5843 -87.4732,38.5789 -87.4715,38.5757 -87.4693,38.5711 -87.467,38.5674 -87.4671,38.5652 -87.4689,38.5629 -87.4719,38.5616 -87.4748,38.5612 -87.4784,38.5608 -87.4813,38.5608 -87.4843,38.56 -87.4878,38.5591 -87.4903,38.5551 -87.4909,38.5528 -87.4922,38.5506 -87.494,38.5483 -87.4964,38.5457 -87.4988,38.5434 -87.5001,38.5412 -87.5013,38.5376 -87.505,38.5331 -87.5074,38.5304 -87.5116,38.5278 -87.5123,38.5246 -87.5147,38.5224 -87.5177,38.5201 -87.5195,38.5179 -87.5201,38.5156 -87.5202,38.5134 -87.5191,38.5111 -87.5185,38.5088 -87.5174,38.5061 -87.514,38.5015 -87.5112,38.4965 -87.5055,38.49 -87.5026,38.4873 -87.5003,38.4841 -87.4986,38.4813 -87.4981,38.479 -87.4982,38.4763 -87.4988,38.4736 -87.4995,38.4686 -87.5008,38.4664 -87.5044,38.4642 -87.5073,38.4638 -87.5102,38.4652 -87.5125,38.4675 -87.5154,38.4698 -87.5183,38.4707 -87.5212,38.4712 -87.5242,38.4708 -87.5272,38.47 -87.5296,38.4677 -87.5314,38.4655 -87.532,38.4632 -87.5333,38.4605 -87.5351,38.4569 -87.5376,38.4524 -87.5382,38.4497 -87.5401,38.4475 -87.5436,38.4475 -87.5465,38.4471 -87.5507,38.4467 -87.5536,38.4459 -87.5572,38.445 -87.5613,38.4446 -87.5672,38.4429 -87.5708,38.4416 -87.5749,38.4403 -87.5791,38.4385 -87.5826,38.4377 -87.5862,38.4373 -87.5921,38.4355 -87.5956,38.4347 -87.5998,38.4334 -87.6033,38.4321 -87.6046,38.4298 -87.6046,38.4276 -87.6059,38.423 -87.6056,38.423 631,-4.0,Canada -68.9563,47.248 -68.9548,47.2396 -68.9522,47.2279 -68.9335,47.2018 -68.8631,47.1648 -68.793,47.135 -68.7331,47.155 -68.6891,47.171 -68.6636,47.1788 -68.4664,47.2359 -68.2725,47.2953 -68.245,47.3078 -68.217,47.3112 -68.1474,47.2979 -68.111,47.2877 -68.0882,47.2787 -67.8637,47.1365 -67.8528,47.1146 -67.7952,47.0606 -67.7701,47.0467 -67.6983,47.0162 -67.6952,46.8679 -67.6923,46.7346 -67.6831,46.2305 -67.6769,45.9051 -67.6911,45.836 -67.7107,45.7327 -67.7088,45.6792 -67.6989,45.644 -67.5652,45.5803 -67.479,45.5597 -67.4124,45.5497 -67.3827,45.5566 -67.3633,45.5619 -67.3182,45.5335 -67.3263,45.4733 -67.387,45.4443 -67.3561,45.2814 -67.3697,45.2326 -67.3605,45.2116 -67.3278,45.1635 -67.3116,45.1452 -67.2443,45.0991 -67.2114,45.1036 -67.1956,45.1287 -67.1698,45.1486 -67.142,45.1426 -67.1123,45.1317 -67.0927,45.1408 -67.0354,45.1209 -66.9523,45.0756 -66.9306,45.118 -66.8719,45.1283 -66.6848,45.042 -66.6991,45.0041 -66.6614,45.0044 -66.5519,45.0339 -66.5146,45.053 -66.4927,45.0657 -66.4724,45.0786 -66.4411,45.0948 -66.3994,45.0984 -66.3689,45.0647 -66.3346,45.0339 -66.1185,45.1103 -66.0547,45.1409 -66.021,45.1863 -66.0211,45.2074 -66.0476,45.2128 -66.085,45.2522 -66.0989,45.2798 -65.9072,45.4077 -65.9046,45.3661 -65.9092,45.3463 -65.9295,45.3192 -65.9588,45.2993 -65.9881,45.2926 -65.9996,45.2479 -65.894,45.1699 -65.8208,45.1543 -65.7945,45.1568 -65.4399,45.291 -65.3294,45.3513 -65.3028,45.368 -65.2764,45.3863 -65.2411,45.4032 -65.1291,45.4423 -65.0633,45.4631 -65.013,45.4731 -64.956,45.4872 -64.9237,45.497 -64.9005,45.5092 -64.8778,45.5273 -64.8529,45.5482 -64.8128,45.5759 -64.7933,45.5799 -64.7564,45.5813 -64.7341,45.5815 -64.7149,45.5757 -64.691,45.5584 -64.6653,45.5705 -64.4922,45.7748 -64.5119,45.8169 -64.543,45.8718 -64.6127,45.9404 -64.6593,46.034 -64.6004,45.9978 -64.5904,45.9691 -64.506,45.8697 -64.4009,45.7544 -64.3876,45.6985 -64.3274,45.744 -64.2687,45.8156 -64.2382,45.829 -64.1845,45.7884 -64.1825,45.7837 -64.1793,45.7768 -64.1839,45.7537 -64.1994,45.718 -64.2386,45.7058 -64.3394,45.6636 -64.3797,45.6185 -64.4779,45.5524 -64.6081,45.4795 -64.6744,45.4539 -64.7404,45.4276 -64.8225,45.3616 -64.8421,45.3042 -64.8444,45.2802 -64.7247,45.297 -64.5832,45.3315 -64.4392,45.3564 -64.2674,45.3295 -64.2223,45.3398 -64.1245,45.3481 -64.0734,45.3521 -63.9844,45.3582 -63.9528,45.3511 -63.8983,45.3329 -63.7481,45.3338 -63.7075,45.3411 -63.6577,45.3456 -63.2806,45.3082 -63.3818,45.2702 -63.507,45.2639 -63.7162,45.2505 -63.867,45.2 -63.8925,45.1917 -63.9184,45.185 -63.9759,45.1707 -64.0161,45.1617 -64.0684,45.1376 -64.1059,45.0994 -64.1045,45.0621 -64.0727,45.041 -64.0493,45.0255 -64.0284,45.0012 -64.0267,44.9581 -64.0613,44.9311 -64.059,44.9914 -64.1256,45.056 -64.154,45.0726 -64.2136,45.0901 -64.2366,45.0866 -64.2446,45.0676 -64.2655,45.0484 -64.2929,45.0872 -64.2631,45.1878 -64.2372,45.2155 -64.2309,45.2395 -64.2556,45.2618 -64.35,45.28 -64.3754,45.2831 -64.3952,45.2786 -64.3679,45.2718 -64.3403,45.2708 -64.3137,45.2601 -64.3031,45.2382 -64.3356,45.2108 -64.3696,45.1948 -64.46,45.1652 -64.4996,45.1568 -64.6201,45.1327 -64.6542,45.1269 -64.6863,45.1187 -64.7208,45.1078 -64.7797,45.0841 -64.8352,45.0543 -65.0228,44.9606 -65.1107,44.9228 -65.2082,44.8775 -65.5604,44.7112 -65.617,44.6666 -65.6053,44.645 -65.4564,44.6831 -65.4303,44.6872 -65.5333,44.6085 -65.5971,44.5645 -65.6604,44.5585 -65.7048,44.5669 -65.7198,44.6011 -65.8792,44.5413 -65.9754,44.4745 -66.0103,44.4496 -66.1018,44.3678 -66.0948,44.3379 -66.0304,44.3984 -65.942,44.4645 -65.912,44.4855 -65.8661,44.5171 -65.8447,44.5296 -65.759,44.5308 -65.7732,44.4885 -65.855,44.4412 -65.8794,44.4314 -65.945,44.3732 -65.9991,44.3192 -66.0258,44.2878 -66.0966,44.1063 -66.1118,44.0366 -66.0891,44.0177 -66.0569,43.9564 -66.0577,43.8785 -66.0709,43.8562 -66.0749,43.8114 -66.043,43.74 -66.0293,43.7126 -66.0005,43.7146 -65.9415,43.6897 -65.9284,43.6417 -65.9212,43.6424 -65.8826,43.6597 -65.864,43.7266 -65.8486,43.7726 -65.8256,43.7761 -65.7768,43.7369 -65.6808,43.6344 -65.6763,43.614 -65.6783,43.5836 -65.6839,43.557 -65.6895,43.525 -65.6293,43.4515 -65.5816,43.4568 -65.5543,43.4626 -65.521,43.4779 -65.4963,43.5058 -65.4715,43.5168 -65.4056,43.4417 -65.3898,43.4152 -65.3842,43.4566 -65.3598,43.508 -65.2841,43.526 -65.2345,43.6256 -65.1512,43.6297 -64.9755,43.6469 -64.9395,43.6546 -64.8154,43.7509 -64.7904,43.7894 -64.7416,43.8765 -64.7231,43.8983 -64.6859,43.9012 -64.6494,43.8998 -64.5784,43.9384 -64.528,44.0219 -64.5259,44.0831 -64.3543,44.1404 -64.3398,44.1759 -64.3009,44.2034 -64.2657,44.2231 -64.2294,44.2147 -64.1934,44.203 -64.1657,44.2226 -64.1494,44.2439 -64.1768,44.2769 -64.2125,44.2826 -64.2396,44.2787 -64.2561,44.3098 -64.2472,44.3617 -64.215,44.4828 -64.1107,44.526 -64.0801,44.5356 -64.0561,44.5178 -64.0363,44.4987 -64.0344,44.4687 -64.0263,44.4315 -63.9977,44.4173 -63.9198,44.4602 -63.9465,44.5173 -63.9709,44.5357 -63.9603,44.577 -63.9183,44.5971 -63.8189,44.6274 -63.8293,44.6008 -63.8486,44.5684 -63.8543,44.4855 -63.8422,44.4631 -63.8205,44.4466 -63.5456,44.386 -63.4817,44.4117 -63.4586,44.4226 -63.4403,44.4397 -63.4315,44.46 -63.4568,44.538 -63.4692,44.5617 -63.5056,44.6142 -63.549,44.6232 -63.5644,44.6605 -63.5266,44.652 -63.4621,44.6064 -63.4414,44.5889 -63.406,44.5642 -63.3555,44.5415 -63.1943,44.5767 -63.0519,44.6402 -63.0253,44.6815 -62.966,44.6226 -62.9598,44.6255 -62.9277,44.6541 -62.955,44.6894 -62.9702,44.7121 -62.9282,44.7228 -62.8403,44.6832 -62.7628,44.6677 -62.7235,44.6922 -62.7099,44.7289 -62.5534,44.7583 -62.4581,44.771 -62.4339,44.7999 -62.3885,44.8446 -62.3043,44.8573 -62.1987,44.8772 -62.0003,44.9193 -61.9393,44.9339 -61.8113,44.9738 -61.6381,45.0403 -61.5519,45.0691 -61.4575,45.0902 -61.3685,45.094 -61.3049,45.1064 -61.2646,45.1248 -61.282,45.1452 -61.2325,45.1882 -61.1814,45.1948 -61.1362,45.187 -61.0552,45.1615 -61.0309,45.1583 -60.9984,45.166 -60.9653,45.1797 -60.8848,45.2184 -60.881,45.2608 -60.9027,45.2746 -60.9617,45.284 -61.0534,45.2969 -61.1403,45.2928 -61.3744,45.2939 -61.3887,45.3204 -61.3179,45.3582 -61.2853,45.3639 -61.2788,45.3526 -61.2081,45.3829 -61.1464,45.4097 -61.1738,45.4586 -61.23,45.4812 -61.267,45.518 -61.3053,45.5707 -61.3822,45.6288 -61.4099,45.6351 -61.4394,45.6332 -61.4733,45.6236 -61.517,45.5834 -61.5315,45.5585 -61.643,45.5702 -61.7007,45.5861 -61.7975,45.6392 -61.8358,45.789 -61.8117,45.8161 -61.832,45.8317 -61.8861,45.8151 -61.9274,45.7847 -61.9477,45.7688 -62.0053,45.7292 -62.1625,45.6564 -62.3739,45.5608 -62.4161,45.5754 -62.4692,45.6226 -62.5893,45.7121 -62.6353,45.7123 -62.8696,45.7368 -62.9008,45.7436 -62.9979,45.7447 -63.0318,45.7072 -63.1008,45.6823 -63.1932,45.6815 -63.2245,45.6849 -63.2724,45.6944 -63.2833,45.7121 -63.2275,45.7168 -63.1489,45.7488 -63.1899,45.7555 -63.2467,45.746 -63.3401,45.7471 -63.4281,45.7618 -63.3987,45.7686 -63.3506,45.7684 -63.3191,45.806 -63.3678,45.8219 -63.3889,45.8247 -63.4908,45.8224 -63.5105,45.8176 -63.5418,45.8074 -63.556,45.781 -63.5775,45.7645 -63.625,45.7883 -63.7562,45.8786 -63.7714,45.8988 -63.8228,45.9277 -63.9184,45.9532 -63.9524,45.9397 -63.9745,45.9523 -64.0035,45.9691 -63.9799,46.0045 -63.9329,46.005 -63.8984,45.9995 -63.8329,46.0003 -63.7992,46.0074 -63.7124,46.0376 -63.6864,46.0557 -63.7361,46.0927 -63.872,46.1267 -63.9451,46.1297 -64.0263,46.1295 -64.1467,46.1766 -64.3111,46.1803 -64.4128,46.1877 -64.5216,46.3131 -64.5233,46.3397 -64.5232,46.3624 -64.5645,46.4114 -64.5815,46.4479 -64.613,46.585 -64.6166,46.6167 -64.6257,46.635 -64.6522,46.6495 -64.7258,46.6682 -64.7715,46.7212 -64.7848,46.7379 -64.812,46.7925 -64.814,46.819 -64.8095,46.8397 -64.8018,46.8581 -64.7878,46.877 -64.7719,46.8927 -64.7345,46.9163 -64.714,46.9312 -64.7097,47.0277 -64.9242,47.0377 -65.0081,47.0232 -65.1257,46.9998 -65.2728,47.0319 -65.2465,47.0457 -65.17,47.0705 -65.1392,47.0839 -65.0447,47.1382 -64.8169,47.2989 -64.7904,47.3692 -64.7824,47.4068 -64.7777,47.459 -64.7768,47.482 -64.7666,47.5223 -64.71,47.5763 -64.6104,47.6525 -64.5818,47.6703 -64.6232,47.708 -64.7105,47.7536 -64.8912,47.7866 -64.9271,47.7904 -64.9511,47.7896 -65.0735,47.7708 -65.1089,47.7638 -65.1535,47.7494 -65.2386,47.7122 -65.296,47.6814 -65.5373,47.5677 -65.5753,47.5891 -65.6024,47.6787 -65.6233,47.7602 -65.6517,47.798 -65.6701,47.8163 -65.6986,47.8359 -65.7201,47.8477 -65.749,47.8567 -65.7852,47.8657 -65.8119,47.8686 -65.8343,47.8672 -65.8845,47.8674 -65.947,47.8809 -66.1633,47.9446 -66.2252,47.9901 -66.2531,47.9901 -66.29,47.9989 -66.285,48.0017 -66.2843,48.0042 -66.2961,48.0088 -66.2986,48.0145 -66.3044,48.0144 -66.3097,48.0135 -66.3136,48.0094 -66.3341,48.0118 -66.3403,48.0109 -66.341,48.0111 -66.4443,47.9813 -66.4827,47.9678 -66.5144,47.9562 -66.6325,47.9294 -66.6537,47.9252 -66.7376,47.9341 -66.747,47.9414 -66.7744,47.9438 -66.7966,47.9431 -66.8113,47.9412 -66.8449,47.9328 -66.8607,47.9259 -66.8706,47.9184 -66.8825,47.8999 -66.8947,47.8907 -66.898,47.8837 -66.9014,47.8655 -66.8979,47.8601 -66.8809,47.8542 -66.8771,47.8488 -66.8844,47.8429 -66.8914,47.8399 -66.9031,47.8392 -66.9169,47.8439 -66.9245,47.8486 -66.9802,47.8802 -66.9919,47.8811 -66.9984,47.8801 -67.0032,47.8712 -67.0097,47.8686 -67.023,47.867 -67.0388,47.8608 -67.0434,47.8611 -67.0592,47.862 -67.0637,47.8605 -67.0686,47.8439 -67.0738,47.8399 -67.0805,47.8377 -67.0959,47.8418 -67.1027,47.8394 -67.1084,47.8312 -67.1163,47.8282 -67.1444,47.8224 -67.1504,47.8241 -67.159,47.8326 -67.1637,47.8334 -67.1733,47.8306 -67.1821,47.8309 -67.1843,47.8324 -67.1904,47.8367 -67.2057,47.8376 -67.2218,47.8456 -67.2299,47.8455 -67.2251,47.8381 -67.2313,47.8336 -67.2595,47.834 -67.2729,47.8401 -67.2807,47.8411 -67.2828,47.8396 -67.2815,47.837 -67.2711,47.8326 -67.2674,47.8293 -67.2687,47.8209 -67.2719,47.8152 -67.2753,47.8148 -67.2844,47.8181 -67.2858,47.8166 -67.2859,47.8118 -67.2943,47.8048 -67.2901,47.7977 -67.2905,47.7931 -67.2947,47.7911 -67.3034,47.7928 -67.3086,47.791 -67.321,47.7953 -67.3141,47.8012 -67.3167,47.8049 -67.3224,47.8054 -67.3317,47.8151 -67.3441,47.8207 -67.3556,47.8222 -67.4041,47.8399 -67.4456,47.855 -67.4538,47.861 -67.4902,47.8714 -67.5079,47.871 -67.5234,47.8764 -67.5314,47.8817 -67.535,47.8886 -67.5258,47.9145 -67.5256,47.9223 -67.5352,47.9365 -67.5343,47.9387 -67.5315,47.9461 -67.534,47.95 -68.0405,47.95 -68.0493,47.9491 -68.0499,47.9306 -68.052,47.8658 -68.1424,47.8649 -68.3109,47.863 -68.3109,47.8507 -68.3112,47.7653 -68.3132,47.7384 -68.313,47.7252 -68.3113,47.6233 -68.3115,47.5997 -68.3123,47.5014 -68.3367,47.4848 -68.3381,47.4821 -68.3754,47.4597 -68.5019,47.3752 -68.5089,47.3729 -68.6743,47.3166 -68.7078,47.3051 -68.7704,47.2912 -68.7734,47.2892 -68.7832,47.2885 -68.8411,47.2767 -68.9568,47.2774 -68.9563,47.248 3187,-4.0,Canada -67.7414,53.9654 -67.728,53.9644 -67.7066,53.9584 -67.6872,53.9463 -67.6442,53.9327 -67.6371,53.932 -67.6255,53.9281 -67.6098,53.9167 -67.5984,53.8944 -67.5857,53.8844 -67.5814,53.8842 -67.5557,53.8778 -67.5458,53.8701 -67.5406,53.8583 -67.5392,53.848 -67.5426,53.843 -67.5404,53.8353 -67.5327,53.8246 -67.5178,53.8151 -67.4992,53.8108 -67.4866,53.7971 -67.4893,53.7923 -67.488,53.7874 -67.4792,53.79 -67.4634,53.793 -67.4605,53.7874 -67.4824,53.7443 -67.4874,53.7419 -67.5176,53.7371 -67.5238,53.7328 -67.529,53.7226 -67.5279,53.7142 -67.5225,53.7099 -67.5128,53.7055 -67.4938,53.7032 -67.4607,53.7046 -67.4497,53.7036 -67.4498,53.6951 -67.4488,53.6853 -67.4392,53.6723 -67.4199,53.6614 -67.3976,53.6625 -67.3875,53.6668 -67.3876,53.6851 -67.3757,53.6836 -67.3669,53.6708 -67.3627,53.6552 -67.3525,53.639 -67.3421,53.6346 -67.3363,53.6276 -67.339,53.6231 -67.3556,53.6232 -67.3486,53.6094 -67.3339,53.5936 -67.3254,53.5801 -67.3184,53.5642 -67.3129,53.5567 -67.2978,53.5498 -67.275,53.5448 -67.2692,53.5405 -67.2642,53.5245 -67.2588,53.5152 -67.2453,53.5039 -67.2353,53.4994 -67.2223,53.5027 -67.2,53.5054 -67.1669,53.4874 -67.1593,53.4853 -67.1499,53.487 -67.1394,53.4954 -67.1301,53.4999 -67.1148,53.5006 -67.1078,53.498 -67.1013,53.4915 -67.0918,53.4854 -67.0664,53.4804 -67.0533,53.481 -67.0314,53.4813 -67.0021,53.4858 -66.9929,53.4838 -66.9666,53.4733 -66.9503,53.4584 -66.9328,53.4452 -66.9301,53.4217 -66.9254,53.4186 -66.9176,53.4181 -66.907,53.4192 -66.8933,53.4227 -66.8797,53.4239 -66.872,53.4239 -66.867,53.4217 -66.8632,53.3927 -66.8491,53.377 -66.8386,53.3762 -66.8198,53.3784 -66.8177,53.3754 -66.8287,53.3571 -66.8361,53.3505 -66.8499,53.3435 -66.8709,53.3402 -66.9006,53.3126 -66.9088,53.3135 -66.9251,53.3241 -66.9305,53.3219 -66.9322,53.3106 -66.9388,53.2944 -66.948,53.2899 -66.9558,53.2837 -66.9531,53.2812 -66.9429,53.2771 -66.9242,53.2752 -66.8995,53.2695 -66.8919,53.2629 -66.8898,53.252 -66.9007,53.2293 -66.9113,53.2023 -66.906,53.1689 -66.9007,53.1384 -66.9046,53.129 -66.9143,53.1232 -66.9298,53.1221 -66.9378,53.1173 -66.9398,53.1128 -66.9369,53.1045 -66.9174,53.0803 -66.917,53.0756 -66.9275,53.0621 -66.9261,53.0558 -66.9451,53.0319 -66.9575,53.0232 -66.9663,53.0236 -66.9878,53.0272 -67.0074,53.0373 -67.0093,53.0445 -66.9957,53.0781 -66.9983,53.0851 -67.0059,53.0849 -67.024,53.0783 -67.0535,53.063 -67.0623,53.065 -67.0705,53.0737 -67.0875,53.0792 -67.0949,53.0852 -67.0891,53.0912 -67.0899,53.0939 -67.1376,53.0982 -67.1607,53.0971 -67.1709,53.1013 -67.1872,53.1166 -67.2024,53.1251 -67.2093,53.1277 -67.2204,53.1208 -67.223,53.0998 -67.2299,53.0909 -67.252,53.0765 -67.2781,53.0618 -67.2839,53.0622 -67.2961,53.08 -67.302,53.0833 -67.3156,53.0848 -67.3137,53.076 -67.315,53.0674 -67.3216,53.0594 -67.3195,53.0359 -67.3222,53.0245 -67.3181,53.0116 -67.3038,52.9856 -67.297,52.9723 -67.2978,52.961 -67.2941,52.9529 -67.2813,52.9425 -67.2656,52.9372 -67.2477,52.9394 -67.2344,52.9441 -67.2203,52.9462 -67.1982,52.9417 -67.1827,52.9424 -67.1787,52.9388 -67.1843,52.9313 -67.203,52.9199 -67.2242,52.9147 -67.2443,52.9146 -67.2654,52.9131 -67.2744,52.9082 -67.2838,52.9007 -67.2853,52.8869 -67.2817,52.8678 -67.276,52.8539 -67.2683,52.8443 -67.2593,52.8405 -67.234,52.8434 -67.2243,52.8378 -67.2182,52.8283 -67.2093,52.8251 -67.1793,52.809 -67.1602,52.8037 -67.1417,52.7925 -67.1239,52.7834 -67.1103,52.7838 -67.1032,52.7869 -67.0917,52.7977 -67.0773,52.8096 -67.0437,52.8267 -67.0347,52.8277 -67.03,52.8314 -67.034,52.8397 -67.0334,52.8452 -67.0245,52.8444 -67.0033,52.833 -66.9946,52.8188 -66.996,52.8132 -66.994,52.8053 -66.9917,52.7869 -66.9927,52.7622 -66.9984,52.7484 -66.9837,52.7272 -66.9708,52.713 -66.9606,52.7083 -66.9279,52.7146 -66.9112,52.719 -66.9022,52.7193 -66.8928,52.7148 -66.8853,52.7084 -66.8627,52.6828 -66.8385,52.6489 -66.8255,52.6381 -66.8147,52.6342 -66.8066,52.633 -66.7984,52.6365 -66.7964,52.6455 -66.7993,52.6541 -66.8083,52.6685 -66.8072,52.6736 -66.7983,52.6723 -66.7931,52.6726 -66.7904,52.675 -66.792,52.6848 -66.79,52.6989 -66.7837,52.705 -66.7718,52.7034 -66.7635,52.6942 -66.7415,52.6615 -66.7343,52.6468 -66.7217,52.6312 -66.7116,52.6244 -66.7018,52.6247 -66.6987,52.6267 -66.7012,52.633 -66.7032,52.6435 -66.6912,52.6643 -66.6909,52.6866 -66.6952,52.7075 -66.7141,52.7491 -66.7086,52.7501 -66.6879,52.7386 -66.6673,52.7306 -66.6421,52.7141 -66.635,52.7147 -66.6189,52.7356 -66.6075,52.7431 -66.6021,52.7446 -66.5858,52.7367 -66.5828,52.7399 -66.5919,52.7575 -66.5946,52.7675 -66.5949,52.7823 -66.5869,52.8193 -66.5883,52.8362 -66.5851,52.8455 -66.5715,52.8508 -66.5772,52.881 -66.5661,52.9028 -66.5585,52.9101 -66.5507,52.9139 -66.5257,52.902 -66.5109,52.8973 -66.4937,52.8966 -66.4755,52.9015 -66.463,52.9095 -66.4578,52.9158 -66.4511,52.9141 -66.4373,52.9081 -66.4298,52.9088 -66.4222,52.914 -66.427,52.9461 -66.429,52.9665 -66.4244,52.9747 -66.4142,52.9757 -66.3671,52.9784 -66.3439,52.976 -66.3102,52.969 -66.2882,52.9589 -66.2587,52.9206 -66.2552,52.9121 -66.2436,52.8849 -66.2191,52.8616 -66.2089,52.8487 -66.2046,52.8399 -66.2065,52.8295 -66.214,52.8133 -66.2266,52.8 -66.2363,52.797 -66.2406,52.7977 -66.258,52.805 -66.2751,52.811 -66.315,52.817 -66.3392,52.8166 -66.3362,52.7982 -66.32,52.7754 -66.3092,52.764 -66.2974,52.7557 -66.2796,52.7425 -66.2712,52.731 -66.2578,52.7195 -66.2579,52.7046 -66.2544,52.6878 -66.2583,52.6755 -66.2672,52.661 -66.2653,52.645 -66.2562,52.629 -66.2379,52.6013 -66.2151,52.5816 -66.2138,52.5698 -66.2194,52.5589 -66.2337,52.5483 -66.2409,52.5484 -66.2624,52.5647 -66.2911,52.5912 -66.3175,52.6171 -66.3252,52.6212 -66.3369,52.6211 -66.3479,52.6109 -66.3653,52.5852 -66.3676,52.5775 -66.3633,52.5662 -66.3576,52.5606 -66.3273,52.5282 -66.3091,52.504 -66.3055,52.4895 -66.312,52.4795 -66.322,52.4732 -66.3195,52.4695 -66.3014,52.4583 -66.295,52.4506 -66.2927,52.4294 -66.2992,52.4245 -66.3051,52.4239 -66.3172,52.4295 -66.3214,52.4302 -66.3229,52.4276 -66.3233,52.4255 -66.3188,52.4174 -66.2969,52.411 -66.2921,52.4069 -66.2891,52.3938 -66.2948,52.3651 -66.2928,52.359 -66.2764,52.3491 -66.2726,52.336 -66.2723,52.313 -66.2837,52.3085 -66.3049,52.3104 -66.3139,52.3177 -66.3251,52.3226 -66.335,52.3294 -66.3491,52.333 -66.3575,52.3319 -66.3673,52.3217 -66.3715,52.3121 -66.378,52.3049 -66.3916,52.3002 -66.3978,52.2967 -66.413,52.2828 -66.4151,52.2767 -66.4136,52.269 -66.4053,52.2584 -66.401,52.2568 -66.3905,52.2489 -66.3832,52.2371 -66.3693,52.2264 -66.3654,52.2179 -66.366,52.2142 -66.3724,52.212 -66.3891,52.2159 -66.392,52.205 -66.3867,52.1915 -66.3796,52.1841 -66.3624,52.1738 -66.3555,52.1751 -66.3406,52.186 -66.3261,52.1709 -66.3187,52.1583 -66.2975,52.1376 -66.2957,52.1278 -66.2994,52.1169 -66.2969,52.1101 -66.2849,52.1046 -66.2702,52.1056 -66.2561,52.101 -66.245,52.0915 -66.2393,52.0905 -66.2297,52.091 -66.2146,52.1035 -66.2116,52.114 -66.2167,52.1501 -66.235,52.1767 -66.2395,52.195 -66.2377,52.2062 -66.245,52.2285 -66.2426,52.2433 -66.2374,52.2463 -66.2237,52.2397 -66.223,52.256 -66.2094,52.2677 -66.2021,52.2693 -66.1865,52.2595 -66.1723,52.2252 -66.1622,52.2198 -66.1554,52.2192 -66.1492,52.2124 -66.1394,52.1904 -66.1157,52.1621 -66.1075,52.1621 -66.0934,52.1736 -66.0826,52.1794 -66.0742,52.1805 -66.0601,52.173 -66.0501,52.1655 -66.0318,52.1414 -66.0135,52.1222 -66.0101,52.1157 -66.0108,52.1017 -66.0144,52.0818 -66.024,52.0565 -66.0224,52.0504 -66.0158,52.0484 -65.9969,52.0487 -65.9733,52.0426 -65.9559,52.0345 -65.9377,52.021 -65.9251,52.0161 -65.9154,52.0157 -65.9113,52.0132 -65.9064,52.0127 -65.9039,52.0165 -65.9011,52.0403 -65.8886,52.0521 -65.881,52.0544 -65.8567,52.042 -65.8566,52.0411 -65.8419,52.0373 -65.8341,52.037 -65.8232,52.0453 -65.8202,52.0503 -65.81,52.0634 -65.8024,52.0683 -65.7863,52.0733 -65.7686,52.0714 -65.7538,52.0751 -65.7418,52.0722 -65.717,52.0585 -65.7002,52.0587 -65.689,52.0551 -65.675,52.0562 -65.6609,52.0427 -65.6568,52.0422 -65.6479,52.0488 -65.6438,52.0515 -65.6331,52.0571 -65.6204,52.0628 -65.6146,52.0649 -65.6079,52.0679 -65.6039,52.0684 -65.5995,52.0663 -65.5958,52.0637 -65.5846,52.0427 -65.577,52.0178 -65.5809,52.0043 -65.595,51.9924 -65.5992,51.9725 -65.5979,51.9474 -65.5959,51.9372 -65.5902,51.9365 -65.5806,51.9429 -65.5772,51.9543 -65.5646,51.9785 -65.5494,51.993 -65.539,51.9962 -65.5208,51.9902 -65.5112,51.9911 -65.4889,51.9974 -65.4613,52.0327 -65.4504,52.0407 -65.4383,52.0543 -65.4287,52.0582 -65.4167,52.0544 -65.4116,52.043 -65.4149,52.0123 -65.4142,51.9975 -65.4103,51.9871 -65.3983,51.9703 -65.3837,51.9579 -65.3739,51.9533 -65.334,51.9271 -65.3295,51.9296 -65.3186,51.9416 -65.3099,51.9427 -65.3007,51.9378 -65.2941,51.9292 -65.2923,51.9169 -65.2857,51.908 -65.2853,51.9021 -65.2821,51.8846 -65.2891,51.8652 -65.3135,51.846 -65.3194,51.8336 -65.3135,51.824 -65.2883,51.8025 -65.2816,51.7863 -65.2745,51.7793 -65.2677,51.7819 -65.2588,51.791 -65.259,51.802 -65.2548,51.8161 -65.2504,51.8228 -65.2395,51.8244 -65.2353,51.8241 -65.1932,51.8249 -65.1914,51.822 -65.181,51.8123 -65.1799,51.8062 -65.1838,51.7953 -65.1831,51.7829 -65.177,51.7777 -65.167,51.7749 -65.151,51.7733 -65.1291,51.7732 -65.1176,51.7725 -65.1051,51.757 -65.1037,51.742 -65.1119,51.7267 -65.1131,51.7209 -65.1112,51.7169 -65.1061,51.7146 -65.0901,51.7135 -65.0755,51.7086 -65.0587,51.7064 -65.0387,51.7058 -65.0238,51.7085 -65.007,51.7166 -64.9851,51.7194 -64.9769,51.7181 -64.963,51.713 -64.9373,51.7006 -64.9313,51.6997 -64.93,51.699 -64.9082,51.6878 -64.8933,51.677 -64.8849,51.6739 -64.8685,51.6723 -64.8606,51.6777 -64.8577,51.689 -64.8572,51.7009 -64.8593,51.71 -64.8752,51.7137 -64.8789,51.7174 -64.8717,51.7251 -64.8656,51.7269 -64.8447,51.7283 -64.8093,51.7288 -64.7752,51.7279 -64.7469,51.7291 -64.7378,51.7274 -64.7288,51.719 -64.7205,51.7173 -64.7081,51.7224 -64.6996,51.7223 -64.6838,51.7195 -64.6459,51.7105 -64.6359,51.7061 -64.6314,51.7023 -64.6243,51.6866 -64.6077,51.6545 -64.5773,51.6461 -64.5605,51.6364 -64.5543,51.6266 -64.553,51.6138 -64.5505,51.5961 -64.5456,51.5807 -64.5419,51.5772 -64.5302,51.5811 -64.5189,51.5792 -64.5082,51.5709 -64.4998,51.5534 -64.4937,51.5479 -64.489,51.5453 -64.4689,51.5463 -64.4463,51.5557 -64.434,51.5619 -64.4239,51.5636 -64.4164,51.5694 -64.4089,51.5715 -64.3902,51.5798 -64.3847,51.588 -64.3809,51.6126 -64.3714,51.6215 -64.3542,51.6262 -64.3332,51.6185 -64.3217,51.6171 -64.3143,51.6172 -64.3032,51.6206 -64.2938,51.6221 -64.2842,51.6263 -64.278,51.6304 -64.2689,51.6395 -64.2492,51.6601 -64.2277,51.6865 -64.2209,51.7005 -64.2248,51.7065 -64.2347,51.7092 -64.2418,51.7142 -64.2452,51.7191 -64.2475,51.7389 -64.2452,51.7498 -64.2625,51.7686 -64.2839,51.7951 -64.2913,51.8145 -64.2921,51.8231 -64.2861,51.8369 -64.2798,51.8483 -64.2807,51.862 -64.285,51.8717 -64.2877,51.8842 -64.2837,51.8926 -64.2831,51.8983 -64.2875,51.913 -64.2883,51.929 -64.2918,51.9422 -64.299,51.9552 -64.2988,51.9605 -64.2927,51.9667 -64.2844,51.969 -64.2744,51.9696 -64.2602,51.9646 -64.2318,51.9471 -64.1888,51.9276 -64.1806,51.927 -64.1759,51.9281 -64.1784,51.9355 -64.192,51.9577 -64.208,51.9738 -64.2131,51.992 -64.2228,52.0042 -64.2293,52.0143 -64.2319,52.0252 -64.2286,52.0301 -64.2187,52.0348 -64.1974,52.0376 -64.1947,52.0409 -64.1954,52.0482 -64.1921,52.057 -64.1907,52.0694 -64.1882,52.0858 -64.1781,52.0971 -64.1663,52.098 -64.158,52.0933 -64.155,52.0926 -64.1478,52.0918 -64.1351,52.0877 -64.1166,52.076 -64.1131,52.0786 -64.1117,52.0922 -64.1195,52.107 -64.1335,52.1257 -64.1428,52.146 -64.1626,52.1741 -64.1683,52.187 -64.1662,52.1964 -64.1669,52.2033 -64.1812,52.2199 -64.1822,52.2272 -64.1798,52.2328 -64.1656,52.2413 -64.156,52.2417 -64.1542,52.2463 -64.149,52.2504 -64.1256,52.2567 -64.1145,52.261 -64.1108,52.2659 -64.118,52.2863 -64.1157,52.2907 -64.0976,52.2925 -64.0912,52.308 -64.0801,52.3212 -64.0686,52.3301 -64.0545,52.348 -64.0548,52.3633 -64.0655,52.3734 -64.0745,52.3976 -64.0811,52.4368 -64.0893,52.46 -64.0962,52.4774 -64.1071,52.4935 -64.1272,52.5118 -64.1685,52.5356 -64.169,52.541 -64.1635,52.5419 -64.1554,52.5404 -64.1427,52.5408 -64.1417,52.5502 -64.1334,52.5542 -64.1237,52.5547 -64.105,52.5474 -64.1026,52.55 -64.1039,52.5598 -64.1016,52.5633 -64.1019,52.5827 -64.0969,52.593 -64.0972,52.6003 -64.1029,52.6209 -64.1027,52.6271 -64.0914,52.6353 -64.0824,52.6354 -64.0729,52.6389 -64.0684,52.6425 -64.0707,52.6515 -64.0743,52.6661 -64.0798,52.6762 -64.079,52.6794 -64.069,52.6862 -64.0583,52.6881 -64.0486,52.6852 -64.0352,52.6827 -64.0264,52.6862 -64.0072,52.6866 -63.9922,52.6828 -63.9827,52.6822 -63.9721,52.6903 -63.9606,52.6919 -63.9459,52.6887 -63.9386,52.683 -63.9152,52.6785 -63.8941,52.6787 -63.8801,52.6815 -63.866,52.6888 -63.8517,52.7023 -63.842,52.7072 -63.8212,52.7111 -63.8151,52.719 -63.7999,52.7259 -63.7897,52.7262 -63.7542,52.7175 -63.7394,52.7164 -63.7145,52.7201 -63.6998,52.7249 -63.6999,52.7259 -63.6758,52.7273 -63.6745,52.7383 -63.6684,52.7424 -63.6595,52.7525 -63.6445,52.7632 -63.6207,52.7679 -63.599,52.7697 -63.5865,52.7739 -63.5875,52.786 -63.6006,52.8035 -63.598,52.8077 -63.5835,52.8067 -63.5608,52.7971 -63.5582,52.8027 -63.5599,52.8232 -63.5546,52.8316 -63.5478,52.8323 -63.5439,52.8315 -63.5408,52.811 -63.5275,52.8059 -63.5173,52.7972 -63.5171,52.7899 -63.5259,52.7812 -63.5294,52.7596 -63.527,52.7489 -63.5504,52.7391 -63.5509,52.7272 -63.5455,52.7205 -63.5314,52.7195 -63.495,52.7082 -63.4825,52.6933 -63.4671,52.6846 -63.4523,52.6781 -63.441,52.6782 -63.4185,52.6752 -63.3995,52.673 -63.3996,52.6739 -63.3816,52.6653 -63.3522,52.6417 -63.3319,52.6372 -63.3241,52.6328 -63.3157,52.6166 -63.3186,52.6108 -63.3273,52.6064 -63.3434,52.6099 -63.3616,52.597 -63.382,52.5985 -63.4109,52.5974 -63.4245,52.5984 -63.4399,52.598 -63.4486,52.5986 -63.4645,52.5991 -63.538,52.5967 -63.5379,52.5958 -63.5821,52.5888 -63.6102,52.587 -63.6388,52.5831 -63.6903,52.5827 -63.7454,52.5757 -63.7545,52.5722 -63.7782,52.5717 -63.7866,52.5735 -63.794,52.5728 -63.8035,52.5688 -63.8225,52.5625 -63.8481,52.55 -63.8672,52.5494 -63.9038,52.5347 -63.9156,52.532 -63.9453,52.5191 -63.9659,52.5143 -63.9739,52.507 -63.9751,52.5001 -63.98,52.4841 -63.9972,52.4662 -64.0035,52.4572 -64.0055,52.4505 -64.0141,52.4468 -64.0211,52.4283 -64.0218,52.4113 -64.0074,52.3937 -63.9915,52.383 -63.9632,52.3687 -63.9579,52.3643 -63.9518,52.3503 -63.9589,52.3425 -63.9586,52.3391 -63.937,52.3148 -63.9298,52.3135 -63.9114,52.3091 -63.898,52.3095 -63.8827,52.3015 -63.8415,52.2917 -63.8037,52.2739 -63.794,52.2701 -63.7847,52.2699 -63.7737,52.2726 -63.7616,52.2707 -63.7549,52.275 -63.7609,52.2805 -63.7594,52.2849 -63.7397,52.281 -63.707,52.279 -63.6832,52.2667 -63.6733,52.2641 -63.6724,52.2584 -63.6787,52.2536 -63.6895,52.253 -63.7153,52.2577 -63.7372,52.2566 -63.7506,52.2598 -63.7579,52.258 -63.7569,52.2548 -63.7407,52.2489 -63.7257,52.248 -63.7089,52.2394 -63.7028,52.2336 -63.7031,52.2286 -63.712,52.2237 -63.6971,52.2194 -63.6832,52.2088 -63.682,52.2032 -63.6889,52.1968 -63.6874,52.1881 -63.6784,52.1827 -63.6752,52.1759 -63.6544,52.1544 -63.6468,52.1299 -63.636,52.116 -63.623,52.0803 -63.6337,52.0617 -63.6338,52.0353 -63.6225,52.0387 -63.6161,52.0377 -63.6026,52.0269 -63.5991,52.0158 -63.5803,51.9949 -63.5812,51.9914 -63.6024,51.9919 -63.6158,52.0016 -63.6289,51.9987 -63.6473,51.9972 -63.6654,52.0044 -63.6963,52.0149 -63.6963,52.0139 -63.7083,52.02 -63.7185,52.0226 -63.7401,52.0357 -63.7523,52.0351 -63.7636,52.0324 -63.7711,52.0209 -63.7668,51.9913 -63.7623,51.9823 -63.7463,51.9819 -63.7412,51.9789 -63.7348,51.9695 -63.7342,51.9581 -63.7448,51.9426 -63.3199,50.1879 -63.2764,50.1789 -63.1371,50.1766 -63.0633,50.1994 -63.017,50.2333 -62.6524,50.2266 -62.4778,50.2166 -62.3464,50.2034 -62.3262,50.2222 -62.3066,50.2354 -62.2288,50.2245 -62.1751,50.2017 -62.1085,50.1765 -61.9054,50.1662 -61.8769,50.1762 -61.8095,50.1759 -61.7637,50.1676 -61.7047,50.114 -61.6682,50.0951 -61.6465,50.0865 -61.5209,50.1116 -61.4905,50.1275 -61.4869,50.1055 -61.5279,50.0897 -61.5785,50.0791 -61.6096,50.0668 -61.6491,50.0484 -61.6281,50.0342 -61.558,50.0523 -61.491,50.0748 -61.4131,50.0947 -61.3351,50.1137 -61.1972,50.1412 -60.96,50.1575 -60.7468,50.1572 -60.6189,50.165 -60.583,50.1622 -60.4965,50.1505 -60.4334,50.1742 -60.405,50.1901 -60.3678,50.1931 -60.3132,50.1936 -60.2689,50.1928 -60.2334,50.1868 -60.2043,50.1864 -60.1461,50.2101 -60.0934,50.2216 -60.0569,50.216 -60.0236,50.1753 -59.9144,50.1909 -59.8149,50.2331 -59.77,50.2525 -59.7378,50.2655 -59.7323,50.2881 -59.7585,50.2683 -59.7887,50.3133 -59.7224,50.3769 -59.6879,50.3806 -59.6429,50.3867 -59.4998,50.4199 -59.4286,50.4945 -59.3665,50.5612 -59.3067,50.5987 -59.1387,50.6796 -59.0961,50.6838 -59.0656,50.7126 -59.0285,50.7448 -59.0042,50.7485 -58.9997,50.7237 -58.9749,50.6987 -58.9515,50.6929 -58.9227,50.6927 -58.8571,50.7725 -58.8681,50.9393 -58.9031,50.9472 -58.8307,50.9915 -58.6948,51.029 -58.6365,51.0414 -58.5329,51.0913 -58.5017,51.1255 -58.538,51.1353 -58.5821,51.1639 -58.5882,51.1866 -58.5335,51.2172 -58.3173,51.2363 -58.2344,51.213 -58.2114,51.2093 -58.1214,51.2125 -57.9246,51.2513 -57.8969,51.2602 -57.8813,51.2739 -57.8589,51.2925 -57.7974,51.3313 -57.6498,51.4119 -57.6052,51.4033 -57.5956,51.3735 -57.5052,51.3694 -57.3586,51.39 -57.3323,51.4211 -57.1747,51.4441 -57.1544,51.4426 -57.0535,51.3645 -57.0157,51.3533 -56.9894,51.3548 -56.917,51.36 -56.8632,51.3651 -56.72,51.44 -56.676,51.4891 -56.6014,51.5326 -56.3808,51.6496 -56.2584,51.6998 -56.1477,51.7235 -56.1186,51.7313 -55.9352,51.8416 -55.8089,51.8905 -55.6114,52.025 -55.5984,52.049 -55.589,52.1477 -55.6191,52.1875 -55.769,52.2647 -55.8676,52.2893 -56.0859,52.3588 -56.1002,52.3762 -55.979,52.3465 -55.8397,52.3085 -55.7363,52.2821 -55.6941,52.2732 -55.5605,52.2957 -55.5571,52.3718 -55.588,52.3806 -55.6172,52.3807 -55.6439,52.3811 -55.6782,52.3884 -55.6758,52.393 -55.6465,52.4118 -55.6617,52.4339 -55.7407,52.4513 -55.8996,52.4454 -56.0638,52.465 -56.1077,52.4642 -56.1814,52.4721 -56.3582,52.5063 -56.3974,52.533 -56.3661,52.5318 -56.2661,52.5193 -56.2363,52.5142 -56.2077,52.5026 -56.1631,52.4829 -56.1037,52.4898 -56.0745,52.4945 -55.9497,52.524 -55.8908,52.5486 -55.9712,52.583 -56.0221,52.5839 -55.9851,52.5948 -55.951,52.594 -55.8692,52.5744 -55.8503,52.5672 -55.8043,52.548 -55.7035,52.5405 -55.6742,52.5502 -55.6507,52.5809 -55.6874,52.6187 -55.7853,52.6219 -55.8285,52.6164 -55.8525,52.6152 -55.873,52.6191 -55.9708,52.7047 -55.8908,52.747 -55.7892,52.7629 -55.7514,52.7658 -55.7159,52.7695 -55.7149,52.8157 -55.7442,52.8605 -55.7972,52.9062 -55.8637,52.934 -55.95,52.9441 -56.0737,52.9686 -55.9655,52.9766 -55.939,52.9733 -55.9088,52.9641 -55.8737,52.96 -55.8483,52.9596 -55.8286,52.9642 -55.7894,53.012 -55.7426,53.0362 -55.6609,53.0766 -55.6551,53.1876 -55.7165,53.2229 -55.717,53.2782 -55.79,53.3207 -55.8116,53.3302 -55.8405,53.3335 -55.8649,53.3292 -55.8841,53.3148 -55.9034,53.306 -55.9324,53.3061 -55.9126,53.3258 -55.8777,53.3383 -55.874,53.3452 -55.9409,53.3957 -55.9857,53.4211 -56.0232,53.4294 -56.0536,53.4377 -56.1673,53.4853 -56.1165,53.4971 -56.0537,53.4905 -55.9633,53.4747 -55.9193,53.446 -55.8932,53.4848 -55.9371,53.5132 -55.9818,53.5209 -56.0635,53.529 -56.1211,53.5171 -56.2278,53.5227 -56.248,53.5258 -56.5292,53.5865 -56.5778,53.6137 -56.451,53.6472 -56.4206,53.6531 -56.3894,53.6552 -56.3472,53.6536 -56.323,53.6593 -56.3361,53.6982 -56.3551,53.715 -56.3809,53.7195 -56.5096,53.6965 -56.5329,53.6787 -56.5674,53.6579 -56.7036,53.6573 -56.7669,53.66 -56.8277,53.6668 -56.8725,53.6636 -56.9207,53.6487 -56.9674,53.6089 -57.0174,53.559 -57.0364,53.5313 -57.1491,53.4341 -57.1914,53.4137 -57.1895,53.3763 -57.2076,53.3716 -57.2443,53.3849 -57.2293,53.4064 -57.2114,53.4383 -57.2087,53.466 -57.2208,53.5143 -57.2793,53.544 -57.3568,53.5556 -57.392,53.5487 -57.4407,53.5361 -57.393,53.5679 -57.3347,53.5848 -57.2929,53.5958 -57.2201,53.6136 -57.208,53.6164 -57.0569,53.6733 -56.9858,53.7606 -57.0207,53.7757 -57.1259,53.8553 -57.2276,53.9765 -57.2733,54.041 -57.2897,54.0782 -57.332,54.119 -57.3722,54.1304 -57.5624,54.136 -57.7647,54.1336 -57.8382,54.1483 -57.8701,54.1563 -57.901,54.1691 -57.9336,54.1722 -58.0803,54.1734 -58.1058,54.1706 -58.2576,54.1429 -58.2783,54.1325 -58.3193,54.0771 -58.1472,54.0377 -58.1191,54.0467 -58.0913,54.0591 -58.0626,54.0654 -57.9795,54.0612 -57.7642,54.0383 -57.7005,54.0119 -57.8485,54.0072 -57.9319,54.0166 -58.0566,54.0071 -58.0898,54.0124 -58.1138,54.0099 -58.2289,53.9833 -58.4529,53.9459 -58.7726,53.8416 -58.9452,53.7521 -58.9622,53.7372 -58.9461,53.688 -58.9213,53.6841 -58.9242,53.6539 -58.9794,53.6191 -59.0645,53.6087 -59.2319,53.5914 -59.3805,53.5101 -59.4263,53.4888 -59.4632,53.4782 -59.5157,53.466 -59.6499,53.4532 -59.6702,53.4541 -59.7119,53.4675 -59.7584,53.4739 -59.7997,53.4598 -59.7603,53.4336 -59.7256,53.4309 -59.6924,53.4199 -59.716,53.4092 -59.744,53.4142 -59.8338,53.3634 -59.8558,53.3448 -59.9268,53.2928 -60.0357,53.2217 -60.1914,53.202 -60.2177,53.2022 -60.3094,53.2051 -60.2914,53.2148 -60.269,53.2156 -60.2357,53.2184 -60.1912,53.2259 -60.1044,53.2519 -60.0868,53.2827 -60.1251,53.2824 -60.2028,53.2741 -60.2948,53.2693 -60.3106,53.2892 -60.1038,53.3712 -60.0396,53.3914 -60.0164,53.3945 -60.0051,53.438 -60.1546,53.4876 -60.1798,53.4962 -60.1996,53.5054 -60.2315,53.5245 -60.2581,53.5428 -60.3394,53.5795 -60.4123,53.607 -60.4372,53.6157 -60.5495,53.6351 -60.652,53.6507 -60.7342,53.6588 -60.7797,53.6502 -60.7866,53.6887 -60.7564,53.73 -60.6638,53.7008 -60.6047,53.6822 -60.5702,53.6774 -60.5483,53.6747 -60.4602,53.6557 -60.4074,53.6444 -60.2832,53.5988 -60.2586,53.5747 -60.0372,53.466 -59.97,53.4982 -59.9885,53.5212 -60.0118,53.5396 -59.9836,53.6996 -59.8899,53.7169 -59.7785,53.7659 -59.7537,53.7766 -59.7268,53.7799 -59.7039,53.7809 -59.6564,53.7757 -59.6292,53.7724 -59.6087,53.7679 -59.531,53.7576 -59.4975,53.7562 -59.4368,53.7588 -59.3733,53.7664 -59.3381,53.7747 -59.295,53.7925 -59.2683,53.8068 -59.2404,53.8227 -59.103,53.8644 -59.0746,53.872 -59.0241,53.8824 -59.017,53.8834 -58.9739,53.8844 -58.9496,53.8852 -58.9139,53.8912 -58.8829,53.9032 -58.8603,53.9177 -58.8246,53.9486 -58.8497,53.9519 -58.9085,53.9548 -58.9426,53.9612 -58.9041,53.9694 -58.8393,53.9784 -58.7819,53.9817 -58.7377,53.9841 -58.7094,53.9801 -58.6759,53.9732 -58.6563,53.969 -58.6153,53.9643 -58.5804,53.9661 -58.5574,53.9685 -58.5346,53.9721 -58.5098,53.9797 -58.352,54.0911 -58.2772,54.1635 -58.3225,54.161 -58.6049,54.0611 -58.779,54.0317 -58.9509,53.9942 -59.1671,53.9599 -59.405,53.9333 -59.4822,53.9798 -59.4351,53.9951 -59.4107,53.9962 -59.3712,53.9884 -59.3355,53.9839 -59.2769,53.9838 -59.1806,54.0012 -59.1494,54.0088 -59.0917,54.0241 -59.0155,54.0407 -58.8232,54.0743 -58.7616,54.0815 -58.7398,54.0824 -58.6996,54.0766 -58.6657,54.0772 -58.6264,54.0822 -58.5945,54.0885 -58.5387,54.1042 -58.5085,54.1188 -58.4747,54.1387 -58.3557,54.1739 -58.3246,54.1787 -58.2853,54.1779 -58.2463,54.181 -58.1427,54.1899 -58.0018,54.2633 -58.0995,54.2529 -58.1233,54.2481 -58.1574,54.2476 -58.0809,54.291 -58.0524,54.3009 -57.9526,54.314 -57.8126,54.3218 -57.7786,54.3232 -57.6927,54.3252 -57.6457,54.3174 -57.6184,54.3135 -57.5982,54.3116 -57.5725,54.3124 -57.5283,54.3192 -57.4263,54.3534 -57.3256,54.392 -57.3494,54.4026 -57.3827,54.4095 -57.4906,54.4035 -57.5611,54.3994 -57.6002,54.4015 -57.5755,54.4161 -57.5207,54.4198 -57.4937,54.4204 -57.4221,54.4202 -57.3917,54.4191 -57.3301,54.4239 -57.2931,54.4368 -57.2523,54.511 -57.3516,54.585 -57.4481,54.5964 -57.4743,54.579 -57.5286,54.5662 -57.5533,54.5643 -57.5871,54.5684 -57.6088,54.5762 -57.6895,54.6165 -57.7459,54.6666 -57.812,54.6777 -57.8419,54.6764 -57.9026,54.6693 -58.011,54.6733 -58.0464,54.6755 -58.0794,54.6845 -58.0935,54.72 -58.144,54.7304 -58.2286,54.7282 -58.2881,54.7238 -58.3439,54.7096 -58.4609,54.7119 -58.5897,54.754 -58.7293,54.7691 -58.8035,54.7805 -58.9131,54.8276 -58.8638,54.8531 -58.8001,54.8842 -58.846,54.9213 -58.8714,54.9311 -58.9025,54.9606 -58.879,54.9952 -58.8653,55.0135 -58.856,55.0313 -58.8559,55.0646 -58.9322,55.0909 -59.0318,55.0557 -59.1391,55.0041 -59.1426,54.9775 -59.1672,54.9606 -59.2815,54.9169 -59.267,54.9466 -59.1451,55.0423 -59.1054,55.0658 -59.0711,55.0749 -59.0524,55.0902 -59.0237,55.1285 -59.0337,55.1546 -59.0546,55.1688 -59.1922,55.1049 -59.3094,54.9918 -59.5159,54.8842 -59.5721,54.8555 -59.5941,54.8476 -59.6276,54.843 -59.6526,54.8331 -59.6696,54.8054 -59.6856,54.7881 -59.6913,54.7664 -59.6897,54.7236 -59.7836,54.6801 -59.8124,54.677 -59.8387,54.6864 -59.7219,54.7868 -59.7,54.8231 -59.6142,54.8915 -59.5083,54.9484 -59.4914,54.9561 -59.4369,54.9846 -59.3941,55.0137 -59.3298,55.0706 -59.3857,55.1164 -59.4292,55.1164 -59.468,55.0951 -59.5134,55.0715 -59.6954,55.0443 -59.8631,55.0497 -59.8607,55.0919 -59.8155,55.0903 -59.795,55.0865 -59.7613,55.0894 -59.7368,55.0952 -59.6324,55.1319 -59.6106,55.1996 -59.6745,55.2645 -59.6985,55.2607 -59.7556,55.2335 -59.7879,55.2004 -59.8199,55.1697 -59.8615,55.1704 -59.9106,55.1555 -59.9387,55.134 -59.9856,55.082 -60.0214,55.0554 -60.0492,55.0381 -60.1864,54.9627 -60.1822,54.9909 -60.1134,55.0425 -60.0925,55.0431 -60.0484,55.0682 -60.0203,55.0916 -60.0073,55.1343 -59.9716,55.1818 -60.0727,55.2059 -60.1539,55.1792 -60.3715,55.0594 -60.4889,54.994 -60.5791,54.9304 -60.577,54.9403 -60.5666,54.9799 -60.5323,55.0019 -60.5129,55.0124 -60.4839,55.024 -60.4083,55.0558 -60.252,55.1886 -60.3643,55.1724 -60.3828,55.1628 -60.4339,55.1354 -60.3948,55.1882 -60.3648,55.2206 -60.2506,55.3298 -60.2052,55.3462 -60.1757,55.344 -60.0914,55.3662 -60.1012,55.4172 -60.1568,55.4374 -60.2211,55.4237 -60.2448,55.4106 -60.3146,55.355 -60.3158,55.3197 -60.3472,55.292 -60.3742,55.2825 -60.3335,55.3341 -60.338,55.3623 -60.3219,55.3828 -60.2172,55.4445 -60.215,55.4654 -60.2133,55.5077 -60.3209,55.5518 -60.3831,55.5587 -60.4056,55.5403 -60.4251,55.5312 -60.3955,55.5867 -60.3631,55.5988 -60.3015,55.609 -60.2757,55.6261 -60.2288,55.6891 -60.2279,55.7157 -60.3804,55.7432 -60.4032,55.7326 -60.4195,55.7069 -60.4388,55.6611 -60.4852,55.5791 -60.4991,55.5589 -60.5566,55.5216 -60.5246,55.5727 -60.5107,55.6211 -60.5004,55.6683 -60.4934,55.7423 -60.5139,55.7574 -60.5381,55.7561 -60.5631,55.7298 -60.5961,55.6976 -60.6188,55.6765 -60.6467,55.665 -60.774,55.6754 -60.7021,55.6893 -60.6691,55.7068 -60.6317,55.7334 -60.6298,55.7703 -60.653,55.7845 -60.6765,55.7884 -60.7689,55.7954 -60.8112,55.7985 -60.8398,55.7997 -60.9261,55.7886 -60.9617,55.7797 -60.9841,55.7783 -61.0869,55.8126 -61.054,55.8261 -60.9874,55.8295 -60.969,55.8504 -61.0109,55.8989 -61.0421,55.9048 -61.1477,55.9015 -61.2207,55.8982 -61.2809,55.8935 -61.3113,55.896 -61.3923,55.9467 -61.3213,55.961 -61.2813,55.9559 -61.25,55.9525 -61.2031,55.9523 -61.1689,55.9547 -61.1332,55.9776 -61.2082,55.9992 -61.2347,55.9956 -61.2825,55.9782 -61.3053,55.9714 -61.343,55.9901 -61.2985,56.0796 -61.2827,56.0937 -61.2696,56.1021 -61.2274,56.1091 -61.2405,56.154 -61.263,56.157 -61.3003,56.1497 -61.3425,56.1387 -61.4276,56.1299 -61.4643,56.1355 -61.6612,56.1516 -61.6934,56.1498 -61.8063,56.1458 -61.8387,56.1518 -61.8999,56.1691 -61.9685,56.2253 -61.9204,56.2386 -61.7748,56.2324 -61.6921,56.2227 -61.6539,56.2037 -61.5942,56.1989 -61.5681,56.202 -61.6855,56.3271 -61.8004,56.347 -61.8509,56.3498 -61.8753,56.3486 -61.9686,56.3551 -62.0116,56.3701 -62.0271,56.384 -61.9527,56.3917 -61.9029,56.3836 -61.8623,56.3904 -61.844,56.4011 -61.8615,56.4159 -61.9148,56.4175 -61.9679,56.4164 -61.941,56.4361 -61.8423,56.4385 -61.7687,56.4311 -61.6946,56.4211 -61.6548,56.4181 -61.5758,56.4287 -61.5483,56.4589 -61.5819,56.4813 -61.6044,56.5022 -61.7918,56.5207 -61.9314,56.5285 -61.9951,56.53 -62.0822,56.5356 -62.1219,56.5483 -62.0647,56.557 -62.0074,56.556 -61.8955,56.55 -61.913,56.5606 -62.0524,56.6056 -62.2453,56.6551 -62.3921,56.695 -62.4271,56.7082 -62.4608,56.7282 -62.4343,56.7686 -62.4133,56.7783 -62.3824,56.7817 -62.2709,56.7629 -62.124,56.7697 -61.9486,56.7627 -62.0278,56.7435 -62.0793,56.7458 -62.1169,56.7494 -62.2155,56.7453 -62.3579,56.7313 -62.3846,56.7205 -62.2006,56.6685 -61.9567,56.6114 -61.8915,56.5952 -61.8018,56.5755 -61.7259,56.5646 -61.5762,56.5512 -61.5449,56.5709 -61.5687,56.5863 -61.6229,56.5961 -61.6862,56.6148 -61.7128,56.6376 -61.6938,56.6443 -61.6595,56.6327 -61.6347,56.6301 -61.6065,56.6361 -61.595,56.6597 -61.6677,56.6771 -61.7154,56.6782 -61.7604,56.6596 -61.7799,56.6385 -61.7938,56.7259 -61.72,56.7284 -61.6809,56.7263 -61.5592,56.7387 -61.5386,56.7517 -61.5409,56.7749 -61.5362,56.8081 -61.4314,56.8902 -61.4068,56.9028 -61.3798,56.9136 -61.2745,56.914 -61.246,56.9489 -61.2513,57.0247 -61.2767,57.0533 -61.3402,57.084 -61.3749,57.0915 -61.4053,57.0885 -61.4552,57.0817 -61.5496,57.0756 -61.7451,57.0985 -61.9022,57.1795 -61.8364,57.1824 -61.7831,57.2013 -61.7527,57.2175 -61.6916,57.2944 -61.7056,57.3088 -61.78,57.3438 -61.9278,57.3852 -61.9492,57.3881 -62.0582,57.3958 -62.1184,57.3752 -62.2325,57.3507 -62.2591,57.3525 -62.3485,57.3843 -62.4141,57.4202 -62.4278,57.4368 -62.3141,57.4152 -62.1964,57.422 -62.0799,57.4674 -61.9596,57.495 -61.7863,57.548 -61.7729,57.5646 -61.7782,57.5978 -61.8815,57.7014 -61.9056,57.7147 -61.9273,57.7179 -61.9663,57.7117 -62.006,57.7304 -62.0245,57.7667 -62.0026,57.7852 -61.9488,57.8213 -61.964,57.8685 -62.0087,57.8964 -62.034,57.9054 -62.0873,57.8667 -62.1551,57.8797 -62.2115,57.887 -62.3378,57.8988 -62.3988,57.9034 -62.424,57.9021 -62.4638,57.8931 -62.5063,57.8785 -62.534,57.8635 -62.5547,57.8601 -62.5417,57.8834 -62.423,57.934 -62.3963,57.9383 -62.3304,57.9418 -62.2962,57.9342 -62.2744,57.9368 -62.1969,57.9686 -62.254,58.0411 -62.2991,58.0414 -62.3308,58.0375 -62.3716,58.0278 -62.3724,58.0073 -62.3886,57.9886 -62.4162,58.0297 -62.3978,58.0486 -62.3601,58.0742 -62.3365,58.0991 -62.3778,58.1046 -62.4016,58.0998 -62.4465,58.0873 -62.4917,58.0723 -62.5319,58.05 -62.6582,58.0597 -62.7178,58.0748 -62.7716,58.068 -62.8286,58.0558 -62.9778,57.9892 -62.9857,57.9662 -62.9868,57.9451 -63.0141,57.9287 -63.0368,57.9243 -63.22,57.9109 -63.1896,57.9278 -63.156,57.9373 -63.0783,57.9456 -63.0447,57.9574 -63.026,57.9797 -63.075,57.9838 -63.0942,57.9923 -63.0118,58.0176 -62.9302,58.0395 -62.9041,58.0554 -62.8501,58.0847 -62.7171,58.104 -62.6644,58.1075 -62.6259,58.1025 -62.6052,58.1005 -62.5747,58.1005 -62.5427,58.1047 -62.5204,58.1142 -62.469,58.1475 -62.4733,58.1722 -62.4892,58.1848 -62.5425,58.2006 -62.7133,58.1826 -62.6618,58.1989 -62.5938,58.2067 -62.5131,58.2331 -62.5049,58.3074 -62.4421,58.4105 -62.4578,58.4232 -62.5042,58.4338 -62.6481,58.4108 -62.9217,58.3833 -62.9739,58.3879 -63.0165,58.406 -63.0976,58.3998 -63.1255,58.3967 -63.158,58.3907 -63.2418,58.3448 -63.2692,58.324 -63.312,58.2995 -63.4166,58.245 -63.4391,58.2356 -63.4647,58.2322 -63.4135,58.2881 -63.3702,58.3013 -63.2829,58.3354 -63.2629,58.3443 -63.2193,58.3815 -63.053,58.4332 -62.859,58.5065 -62.8002,58.5301 -62.7297,58.5889 -62.7307,58.6176 -62.7895,58.7319 -62.8048,58.749 -62.9167,58.8034 -62.9959,58.8078 -63.0734,58.7844 -63.1777,58.7805 -63.1988,58.7852 -63.1195,58.8066 -63.0447,58.853 -63.0563,58.9048 -63.0875,58.908 -63.1471,58.9149 -63.2151,58.9534 -63.1214,58.9597 -63.0998,58.9569 -63.059,58.9569 -63.011,58.9756 -63.184,59.022 -63.2538,59.0294 -63.3902,58.9819 -63.6163,58.9442 -63.6446,58.9419 -63.6819,58.9419 -63.7939,58.9299 -63.9252,58.9475 -63.8694,58.9974 -63.8475,59.004 -63.8227,59.0093 -63.6937,58.9951 -63.6338,58.989 -63.4626,58.9972 -63.359,59.0335 -63.3234,59.0486 -63.3014,59.0603 -63.2417,59.1283 -63.2753,59.1941 -63.4205,59.275 -63.5354,59.289 -63.5951,59.24 -63.6093,59.2129 -63.6464,59.194 -63.6991,59.1722 -63.6546,59.2122 -63.6376,59.2371 -63.6293,59.2626 -63.6323,59.3047 -63.6722,59.3001 -63.9408,59.3146 -63.9223,59.3321 -63.8897,59.3414 -63.8284,59.3485 -63.7877,59.3504 -63.747,59.3499 -63.6927,59.3477 -63.6661,59.355 -63.6063,59.4448 -63.7511,59.5412 -63.7731,59.5478 -63.8862,59.5516 -63.9122,59.5197 -63.9192,59.4888 -63.9969,59.4461 -63.9377,59.5536 -64.0096,59.6051 -64.04,59.6119 -64.0848,59.64 -64.1373,59.689 -64.1389,59.7139 -64.1077,59.7053 -64.077,59.7031 -64.057,59.711 -64.0449,59.7787 -64.0291,59.9116 -64.0444,59.9494 -64.0956,59.9678 -64.144,59.9758 -64.1996,59.9458 -64.2455,59.8496 -64.3606,59.8229 -64.3832,59.8262 -64.335,59.852 -64.2811,59.8639 -64.2535,59.9589 -64.2474,60.043 -64.2749,60.048 -64.3695,59.9869 -64.6131,59.9288 -64.6761,59.9129 -64.6693,59.9065 -64.6473,59.9078 -64.6143,59.9063 -64.5978,59.9035 -64.5924,59.8966 -64.5953,59.8883 -64.5899,59.8759 -64.5901,59.8754 -64.5985,59.8511 -64.6015,59.8304 -64.6071,59.8235 -64.629,59.8263 -64.6509,59.8347 -64.6975,59.8362 -64.7031,59.8293 -64.6875,59.8146 -64.6841,59.8113 -64.6732,59.8044 -64.6732,59.8016 -64.7034,59.8003 -64.7227,59.7907 -64.7392,59.7866 -64.7557,59.7797 -64.7503,59.7701 -64.7312,59.7618 -64.7479,59.7259 -64.746,59.7244 -64.7343,59.7149 -64.7373,59.69 -64.7346,59.6776 -64.6909,59.6761 -64.6719,59.6692 -64.6775,59.6582 -64.6939,59.6499 -64.7268,59.6403 -64.7272,59.6396 -64.7434,59.6114 -64.7439,59.5562 -64.7739,59.5397 -64.8093,59.5398 -64.8105,59.54 -64.8447,59.5454 -64.8637,59.5413 -64.8638,59.515 -64.8231,59.5095 -64.7988,59.4901 -64.7798,59.4873 -64.7558,59.4764 -64.7554,59.4762 -64.7419,59.4721 -64.7041,59.4472 -64.6988,59.4292 -64.6396,59.3904 -64.6234,59.3863 -64.6076,59.3908 -64.6044,59.3917 -64.588,59.4013 -64.5851,59.4137 -64.5715,59.4178 -64.52,59.4204 -64.5063,59.4286 -64.4952,59.441 -64.4789,59.4451 -64.4436,59.4463 -64.437,59.4583 -64.4324,59.4669 -64.4106,59.4696 -64.397,59.4695 -64.3777,59.486 -64.3587,59.4845 -64.3155,59.4705 -64.2912,59.4648 -64.2832,59.4607 -64.2834,59.451 -64.3008,59.4397 -64.3109,59.4332 -64.3382,59.4251 -64.3599,59.4224 -64.3684,59.4073 -64.442,59.3814 -64.4475,59.3746 -64.4395,59.369 -64.4206,59.3648 -64.4155,59.3621 -64.4099,59.3592 -64.4128,59.3496 -64.4616,59.3429 -64.4753,59.3305 -64.4755,59.3223 -64.4675,59.3153 -64.446,59.3042 -64.4273,59.2972 -64.4274,59.2876 -64.433,59.2807 -64.4493,59.2752 -64.4504,59.2745 -64.4711,59.2615 -64.4739,59.2519 -64.4687,59.2408 -64.4501,59.2228 -64.4314,59.2172 -64.437,59.2035 -64.4535,59.1842 -64.4539,59.1631 -64.4539,59.1608 -64.4515,59.1442 -64.4462,59.1414 -64.4113,59.1357 -64.4087,59.133 -64.4199,59.1041 -64.4208,59.0572 -64.4143,59.0541 -64.3968,59.046 -64.3567,59.0403 -64.3326,59.0402 -64.3192,59.0373 -64.2982,59.0193 -64.2769,59.0136 -64.245,58.9997 -64.2211,58.9912 -64.218,58.9896 -64.2053,58.9829 -64.2109,58.9719 -64.2272,58.9623 -64.2487,58.9583 -64.2887,58.9613 -64.3156,58.9559 -64.3882,58.937 -64.3933,58.937 -64.4069,58.9371 -64.4094,58.9454 -64.4224,58.9647 -64.4303,58.9703 -64.5079,58.9706 -64.5532,58.986 -64.5809,58.99 -64.5826,58.9902 -64.5987,58.9861 -64.6121,58.9889 -64.6198,59.0152 -64.6331,59.0262 -64.6571,59.0291 -64.7547,59.0049 -64.7565,59.0045 -64.7726,58.9948 -64.7835,58.9714 -64.7997,58.959 -64.7997,58.9507 -64.7839,58.9259 -64.7546,58.9038 -64.7627,58.8996 -64.7736,58.9007 -64.8187,58.9053 -64.8374,58.8998 -64.8402,58.8915 -64.7789,58.8721 -64.7443,58.8637 -64.7229,58.8692 -64.7077,58.8796 -64.7068,58.8802 -64.6987,58.8898 -64.6773,58.8953 -64.6586,58.898 -64.6346,58.8952 -64.6106,58.8868 -64.5735,58.8674 -64.5603,58.8577 -64.5128,58.8526 -64.5071,58.852 -64.4992,58.8437 -64.486,58.8381 -64.4593,58.8394 -64.4084,58.8557 -64.3817,58.8542 -64.3631,58.8513 -64.3472,58.8457 -64.3126,58.8414 -64.2984,58.8413 -64.2913,58.8413 -64.2619,58.8466 -64.2433,58.8451 -64.2064,58.827 -64.1804,58.8006 -64.1753,58.7909 -64.1682,58.7612 -64.1681,58.7605 -64.1713,58.7371 -64.1503,58.7287 -64.1077,58.7298 -64.1003,58.709 -64.0688,58.695 -64.0394,58.7017 -64.0296,58.7052 -64.0207,58.7084 -63.9771,58.7426 -63.9848,58.7537 -63.9766,58.7605 -63.9551,58.7658 -63.9362,58.7767 -63.9068,58.7792 -63.8853,58.7845 -63.8771,58.7855 -63.864,58.7871 -63.8107,58.7866 -63.7923,58.7823 -63.7761,58.789 -63.7519,58.7943 -63.741,58.8011 -63.7298,58.8162 -63.7161,58.8257 -63.7026,58.8311 -63.6826,58.8297 -63.6786,58.8295 -63.6598,58.8334 -63.6412,58.8318 -63.6278,58.8344 -63.6173,58.8302 -63.6125,58.8177 -63.5968,58.8106 -63.5783,58.8077 -63.5384,58.8058 -63.5201,58.7987 -63.489,58.7826 -63.4656,58.7677 -63.4505,58.7482 -63.4274,58.73 -63.409,58.727 -63.3989,58.7145 -63.399,58.7141 -63.402,58.7062 -63.4264,58.6955 -63.4933,58.6839 -63.5444,58.6679 -63.6082,58.666 -63.6108,58.6659 -63.6398,58.669 -63.6666,58.6638 -63.7224,58.6602 -63.8047,58.6583 -63.8364,58.6599 -63.8434,58.6562 -63.8743,58.6396 -63.8876,58.6356 -63.9061,58.6371 -63.9509,58.6458 -63.9723,58.6404 -63.9805,58.6322 -64.0048,58.6159 -64.0207,58.6004 -64.0484,58.5734 -64.0413,58.543 -64.0445,58.5251 -63.998,58.4903 -63.9965,58.4865 -63.9931,58.4778 -63.9748,58.4721 -63.9564,58.4692 -63.9327,58.469 -63.9086,58.4785 -63.8651,58.5181 -63.8517,58.5235 -63.8307,58.5205 -63.8289,58.5193 -63.8204,58.5136 -63.7949,58.4885 -63.7906,58.4608 -63.7576,58.4247 -63.7745,58.4045 -63.7851,58.3918 -63.8011,58.3865 -63.8302,58.3812 -63.8486,58.3841 -63.8563,58.3897 -63.8695,58.3871 -63.9115,58.3888 -63.9382,58.378 -63.9597,58.3644 -63.9614,58.3607 -63.9681,58.3466 -63.9714,58.3245 -63.9794,58.3191 -64.0162,58.3194 -64.0609,58.317 -64.0899,58.3117 -64.1085,58.3021 -64.1143,58.2934 -64.1195,58.2857 -64.1319,58.2113 -64.1508,58.1893 -64.1668,58.1756 -64.1712,58.1747 -64.2167,58.1649 -64.2612,58.1625 -64.3006,58.1558 -64.3163,58.1517 -64.3348,58.1436 -64.364,58.1189 -64.3642,58.1158 -64.3679,58.0486 -64.3735,58.0307 -64.3606,58.021 -64.3425,58.0181 -64.3112,58.0193 -64.3081,58.0191 -64.28,58.0177 -64.2567,58.0107 -64.2413,58.0023 -64.231,57.9995 -64.2152,58.0049 -64.1661,57.9936 -64.1636,57.9867 -64.1745,57.9674 -64.17,57.9546 -64.1696,57.9536 -64.1491,57.9438 -64.1389,57.9368 -64.1398,57.901 -64.1144,57.8815 -64.0841,57.8482 -64.0833,57.8438 -64.0796,57.8247 -64.0623,57.7956 -64.0121,57.7414 -64.0047,57.729 -64.001,57.7277 -63.9919,57.7247 -63.9764,57.7246 -63.966,57.7273 -63.9626,57.7548 -63.9572,57.7617 -63.9392,57.7615 -63.8621,57.747 -63.8494,57.74 -63.8446,57.7332 -63.8445,57.7331 -63.8409,57.6861 -63.8234,57.6708 -63.8079,57.6693 -63.7768,57.6745 -63.7692,57.6717 -63.7566,57.6633 -63.752,57.648 -63.7457,57.6471 -63.7418,57.6466 -63.7365,57.6506 -63.7172,57.6835 -63.7017,57.6847 -63.6865,57.6777 -63.6717,57.6596 -63.6622,57.6374 -63.6499,57.6235 -63.6347,57.6178 -63.6191,57.6204 -63.6137,57.6286 -63.5978,57.6381 -63.5894,57.6545 -63.594,57.6684 -63.604,57.6768 -63.6012,57.6823 -63.5728,57.6819 -63.5573,57.6845 -63.544,57.6926 -63.5311,57.6939 -63.5281,57.6904 -63.5212,57.6827 -63.5192,57.6703 -63.5258,57.6359 -63.5345,57.6125 -63.5503,57.6044 -63.5685,57.5991 -63.5818,57.5896 -63.5909,57.5793 -63.5926,57.5773 -63.6239,57.5653 -63.642,57.5627 -63.6577,57.556 -63.6918,57.5371 -63.6973,57.5261 -63.6861,57.4846 -63.6875,57.4825 -63.7051,57.4559 -63.7055,57.4435 -63.6959,57.4282 -63.6996,57.3965 -63.6898,57.3868 -63.6821,57.3853 -63.6641,57.3879 -63.6514,57.3877 -63.6484,57.3835 -63.6465,57.3808 -63.6478,57.3463 -63.6511,57.3284 -63.6593,57.3133 -63.708,57.307 -63.7211,57.3002 -63.7317,57.2879 -63.7389,57.287 -63.7522,57.2854 -63.7879,57.2844 -63.7889,57.2554 -63.8154,57.2267 -63.8076,57.1892 -63.8023,57.1632 -63.7976,57.1507 -63.7902,57.1465 -63.7796,57.1574 -63.7742,57.1684 -63.7674,57.2152 -63.7599,57.2245 -63.7541,57.2316 -63.7412,57.2356 -63.7235,57.2327 -63.7166,57.2133 -63.7092,57.2077 -63.6915,57.2034 -63.684,57.1992 -63.6792,57.1922 -63.6906,57.1606 -63.7089,57.147 -63.7091,57.1469 -63.7244,57.1389 -63.7304,57.1128 -63.7156,57.1016 -63.7135,57.0906 -63.7164,57.0782 -63.727,57.0659 -63.7427,57.0523 -63.7635,57.0387 -63.7687,57.0379 -63.7889,57.0348 -63.8194,57.0324 -63.818,56.9993 -63.8237,56.9787 -63.8141,56.9648 -63.7945,56.9467 -63.7972,56.9412 -63.7998,56.9403 -63.8049,56.9385 -63.8327,56.9374 -63.8481,56.9293 -63.8522,56.8824 -63.8477,56.8659 -63.8228,56.8546 -63.808,56.8448 -63.8077,56.8435 -63.8058,56.8365 -63.8136,56.8297 -63.8463,56.8286 -63.8944,56.8208 -63.9146,56.821 -63.9477,56.8075 -63.9472,56.7884 -63.9399,56.777 -63.9338,56.7674 -63.9291,56.7564 -63.9294,56.7467 -63.9424,56.7317 -63.9602,56.7236 -64.0053,56.7281 -64.0182,56.7158 -64.0339,56.6939 -64.0359,56.6921 -64.0544,56.6761 -64.07,56.6542 -64.0704,56.6404 -64.0558,56.6251 -64.0335,56.6139 -64.0162,56.6083 -63.9937,56.6053 -63.9838,56.6011 -63.9817,56.5967 -63.9791,56.5914 -63.9819,56.5832 -63.9921,56.575 -63.9924,56.5654 -63.9851,56.5584 -63.9259,56.5303 -63.8891,56.5093 -63.8843,56.4979 -63.8822,56.4927 -63.8801,56.4789 -63.8831,56.4624 -63.8936,56.4474 -63.8814,56.4376 -63.8321,56.422 -63.8199,56.4149 -63.8203,56.4012 -63.826,56.3952 -63.8281,56.393 -63.8555,56.3905 -63.883,56.3852 -63.8931,56.3826 -63.8958,56.3757 -63.9233,56.3691 -63.9432,56.3693 -63.9803,56.3751 -64.0275,56.3796 -64.0318,56.3806 -64.072,56.3896 -64.1093,56.3872 -64.1143,56.3858 -64.1145,56.3803 -64.0972,56.3747 -64.0508,56.3454 -64.0485,56.3371 -64.0606,56.3254 -64.0612,56.3248 -64.0589,56.3179 -64.0467,56.3095 -64.0476,56.2765 -64.085,56.2713 -64.0901,56.263 -64.0829,56.2547 -64.0485,56.2448 -64.0388,56.2365 -64.0383,56.2335 -64.0366,56.224 -64.0295,56.213 -64.0148,56.2087 -63.9873,56.2181 -63.9723,56.2207 -63.9353,56.2163 -63.9009,56.2091 -63.8641,56.1991 -63.8587,56.1966 -63.8397,56.1878 -63.8227,56.178 -63.8132,56.1655 -63.8136,56.1531 -63.8237,56.1463 -63.841,56.1465 -63.8783,56.1414 -63.9131,56.1334 -63.9303,56.1276 -63.9331,56.1267 -63.9607,56.1104 -63.9521,56.0663 -63.9677,56.0375 -63.9583,56.0236 -63.9372,56.0248 -63.9361,56.0248 -63.9113,56.0301 -63.8838,56.0436 -63.8558,56.0695 -63.8283,56.083 -63.806,56.0855 -63.7912,56.084 -63.7791,56.077 -63.7843,56.0702 -63.7849,56.0698 -63.7944,56.0634 -63.8069,56.058 -63.8047,56.0511 -63.7875,56.0495 -63.7483,56.0422 -63.746,56.0367 -63.7464,56.0243 -63.7668,56.0039 -63.7571,56.001 -63.7448,56.0009 -63.7275,56.0034 -63.7214,56.0052 -63.7001,56.0114 -63.6728,56.0166 -63.6312,56.0092 -63.6148,55.9884 -63.5979,55.9786 -63.5661,55.9754 -63.536,55.975 -63.5021,55.9746 -63.4501,55.9836 -63.4009,55.9829 -63.3913,55.9773 -63.3917,55.9676 -63.3494,55.95 -63.3612,55.9476 -63.3715,55.9494 -63.4008,55.9443 -63.43,55.95 -63.4747,55.95 -63.4862,55.9477 -63.5689,55.9252 -63.5851,55.9204 -63.6269,55.906 -63.6507,55.8948 -63.6721,55.8885 -63.7133,55.8809 -63.7442,55.8762 -63.7719,55.869 -63.7758,55.8668 -63.7785,55.8613 -63.774,55.8559 -63.7579,55.8363 -63.7577,55.8299 -63.7617,55.8246 -63.7743,55.8164 -63.7745,55.8139 -63.7699,55.8127 -63.7445,55.8146 -63.729,55.8134 -63.7121,55.8105 -63.7006,55.8051 -63.6953,55.7952 -63.6931,55.7848 -63.6973,55.7692 -63.7047,55.7571 -63.6922,55.7438 -63.6891,55.7411 -63.6667,55.7358 -63.6406,55.7382 -63.6239,55.7373 -63.6087,55.7347 -63.6012,55.7279 -63.6027,55.7175 -63.6117,55.7098 -63.6259,55.7002 -63.6412,55.677 -63.6466,55.6606 -63.6483,55.6483 -63.6728,55.6469 -63.67,55.6428 -63.6517,55.6368 -63.6473,55.6287 -63.6589,55.6053 -63.655,55.6015 -63.6374,55.6038 -63.6132,55.6041 -63.6021,55.6014 -63.5914,55.5905 -63.5945,55.5841 -63.6102,55.5749 -63.6092,55.5542 -63.6047,55.5313 -63.5992,55.515 -63.6003,55.504 -63.6075,55.4899 -63.6276,55.4667 -63.6636,55.4511 -63.686,55.4406 -63.703,55.4335 -63.7182,55.4285 -63.7195,55.4246 -63.716,55.4178 -63.7071,55.4119 -63.6872,55.4061 -63.6504,55.3855 -63.6286,55.3793 -63.5867,55.3775 -63.5741,55.3763 -63.5409,55.3776 -63.5101,55.3739 -63.4928,55.3742 -63.4699,55.3778 -63.4441,55.3776 -63.4062,55.3756 -63.3922,55.3705 -63.3862,55.3666 -63.355,55.3578 -63.3189,55.3585 -63.2944,55.363 -63.2768,55.3637 -63.2693,55.36 -63.2564,55.3496 -63.2524,55.3447 -63.252,55.3399 -63.2642,55.331 -63.3275,55.3113 -63.3503,55.3054 -63.3927,55.2997 -63.4119,55.2997 -63.4318,55.3026 -63.4875,55.2974 -63.5082,55.2918 -63.5148,55.2848 -63.5124,55.2803 -63.4996,55.2758 -63.4834,55.2735 -63.4674,55.2735 -63.4651,55.2704 -63.4773,55.2632 -63.5044,55.2561 -63.5547,55.2458 -63.5688,55.242 -63.5876,55.2325 -63.5978,55.2222 -63.596,55.219 -63.5806,55.2119 -63.5806,55.2129 -63.5699,55.209 -63.5567,55.1905 -63.5529,55.1885 -63.5467,55.1903 -63.5448,55.2056 -63.5423,55.2087 -63.5298,55.2031 -63.5162,55.1934 -63.5006,55.1891 -63.4752,55.1868 -63.4378,55.188 -63.4244,55.19 -63.3934,55.2027 -63.3536,55.2145 -63.3397,55.2153 -63.3343,55.2127 -63.3359,55.2029 -63.3493,55.1858 -63.3676,55.1662 -63.4052,55.1565 -63.4193,55.1541 -63.434,55.1532 -63.4529,55.15 -63.4773,55.1406 -63.4803,55.1387 -63.4757,55.1308 -63.4635,55.1234 -63.4669,55.1217 -63.4745,55.1217 -63.4853,55.1262 -63.4899,55.125 -63.495,55.0958 -63.5042,55.086 -63.5208,55.0757 -63.5186,55.0682 -63.5158,55.0631 -63.5217,55.0529 -63.5315,55.0469 -63.5375,55.0383 -63.5372,55.0255 -63.5322,55.0128 -63.5155,55.0046 -63.5006,54.9932 -63.4982,54.988 -63.5008,54.9808 -63.5166,54.9708 -63.5195,54.9629 -63.511,54.9513 -63.5093,54.95 -63.5007,54.9431 -63.5081,54.9365 -63.52,54.931 -63.5409,54.9292 -63.543,54.9216 -63.5334,54.8972 -63.5199,54.8796 -63.5196,54.8755 -63.5358,54.8659 -63.5429,54.8604 -63.5529,54.857 -63.5641,54.8582 -63.5767,54.8618 -63.6056,54.8614 -63.6362,54.8703 -63.6626,54.8862 -63.6759,54.8936 -63.6899,54.8994 -63.715,54.9048 -63.7439,54.9039 -63.7499,54.8992 -63.7519,54.8955 -63.7386,54.8883 -63.7385,54.8836 -63.7537,54.8715 -63.7675,54.8489 -63.7738,54.8311 -63.782,54.8215 -63.7709,54.8077 -63.7558,54.7944 -63.7499,54.7822 -63.7532,54.7751 -63.765,54.769 -63.8023,54.7578 -63.8101,54.756 -63.8203,54.7557 -63.8351,54.7568 -63.836,54.7499 -63.8316,54.7405 -63.8438,54.7278 -63.8417,54.7258 -63.8223,54.7166 -63.8223,54.7175 -63.7987,54.7102 -63.7747,54.7022 -63.7608,54.6928 -63.74,54.6813 -63.7075,54.6531 -63.6946,54.637 -63.6922,54.6323 -63.6912,54.6252 -63.6843,54.6188 -63.6696,54.6133 -63.6573,54.5988 -63.6497,54.5842 -63.6519,54.5816 -63.6575,54.5782 -63.6673,54.5782 -63.6801,54.5801 -63.7148,54.5978 -63.7339,54.6002 -63.7424,54.5981 -63.7708,54.5815 -63.783,54.5768 -63.7971,54.5761 -63.8349,54.5585 -63.8467,54.5581 -63.8863,54.5645 -63.9076,54.5615 -63.9288,54.5565 -63.9377,54.5548 -63.9415,54.5531 -63.9661,54.5546 -63.9923,54.5613 -64.0099,54.5642 -64.033,54.5708 -64.0433,54.5757 -64.0456,54.5832 -64.0403,54.6057 -64.094,54.6337 -64.1015,54.638 -64.1101,54.6414 -64.1182,54.6548 -64.1179,54.6686 -64.1219,54.6767 -64.1354,54.6732 -64.1407,54.6708 -64.1541,54.6706 -64.1669,54.6763 -64.1777,54.6782 -64.2018,54.6777 -64.213,54.6796 -64.2241,54.687 -64.2352,54.6914 -64.2358,54.7012 -64.2314,54.7082 -64.2517,54.7135 -64.2633,54.7227 -64.2959,54.7323 -64.3036,54.7336 -64.3222,54.7367 -64.328,54.7367 -64.3612,54.7394 -64.3744,54.7373 -64.3971,54.7386 -64.4074,54.735 -64.4117,54.72 -64.4059,54.7095 -64.4007,54.7014 -64.4066,54.6976 -64.4226,54.6998 -64.4564,54.7086 -64.47,54.7102 -64.4759,54.7031 -64.4756,54.6963 -64.4643,54.6795 -64.4783,54.6735 -64.4935,54.6716 -64.513,54.6732 -64.5437,54.6755 -64.5881,54.6842 -64.5972,54.6839 -64.6136,54.6755 -64.6215,54.6754 -64.6262,54.6782 -64.6344,54.6777 -64.6538,54.685 -64.6657,54.6857 -64.6711,54.6837 -64.6946,54.6823 -64.7104,54.6851 -64.7149,54.6873 -64.716,54.6966 -64.707,54.7148 -64.6832,54.7458 -64.6807,54.7585 -64.6829,54.7673 -64.691,54.7764 -64.7032,54.7828 -64.7208,54.7808 -64.7505,54.7941 -64.7579,54.7936 -64.7654,54.7898 -64.7751,54.7911 -64.7816,54.7991 -64.7846,54.8216 -64.7904,54.8344 -64.8078,54.8472 -64.8628,54.8769 -64.8869,54.8858 -64.9003,54.885 -64.9171,54.8786 -64.93,54.88 -64.9331,54.8803 -64.9467,54.8871 -64.9581,54.8994 -64.9694,54.9075 -64.977,54.9081 -64.9915,54.9032 -64.9986,54.9026 -64.9995,54.9136 -65.0052,54.9179 -65.0249,54.9162 -65.0286,54.9143 -65.0381,54.9075 -65.0458,54.8923 -65.0469,54.8877 -65.0585,54.8824 -65.0796,54.8795 -65.0955,54.8699 -65.1039,54.8607 -65.1094,54.844 -65.1204,54.8365 -65.1218,54.8222 -65.1192,54.8109 -65.1301,54.8031 -65.1461,54.8009 -65.1668,54.8014 -65.1807,54.7983 -65.1893,54.7975 -65.2103,54.7877 -65.215,54.7781 -65.2116,54.7664 -65.2384,54.7815 -65.256,54.7952 -65.2626,54.7972 -65.2674,54.7945 -65.2731,54.7828 -65.2735,54.7764 -65.2802,54.7701 -65.3203,54.7739 -65.3393,54.7798 -65.3553,54.7928 -65.3657,54.7969 -65.3803,54.7961 -65.3931,54.7914 -65.401,54.7815 -65.4018,54.7757 -65.3921,54.7652 -65.3885,54.7591 -65.3703,54.7434 -65.3614,54.7331 -65.3572,54.7252 -65.3546,54.7082 -65.3559,54.7026 -65.3642,54.6966 -65.3815,54.6892 -65.3968,54.6858 -65.4331,54.6849 -65.4547,54.684 -65.4825,54.6848 -65.505,54.6873 -65.5156,54.6895 -65.543,54.6931 -65.5595,54.6981 -65.5681,54.6975 -65.58,54.6803 -65.5916,54.6688 -65.6004,54.664 -65.6224,54.6628 -65.6308,54.6636 -65.635,54.6657 -65.6419,54.6754 -65.6627,54.7207 -65.6797,54.7408 -65.6952,54.7529 -65.7356,54.7753 -65.7693,54.79 -65.7707,54.7941 -65.7647,54.7994 -65.7546,54.8042 -65.7515,54.8103 -65.7823,54.8491 -65.7831,54.8548 -65.7791,54.8655 -65.7833,54.8706 -65.8193,54.8802 -65.8401,54.881 -65.8742,54.8808 -65.8904,54.8801 -65.9054,54.8761 -65.9052,54.875 -65.9234,54.8769 -65.9542,54.8869 -65.964,54.8857 -65.9705,54.8866 -65.9797,54.8816 -65.9771,54.8693 -65.9844,54.8674 -66.0183,54.887 -66.0483,54.9078 -66.069,54.9187 -66.0803,54.9223 -66.115,54.9227 -66.1502,54.9319 -66.1593,54.9313 -66.1704,54.9227 -66.1761,54.9238 -66.202,54.95 -66.2151,54.9661 -66.2426,54.9876 -66.2691,55.0144 -66.3155,55.0497 -66.3407,55.0649 -66.3638,55.0775 -66.397,55.106 -66.4083,55.1119 -66.4147,55.112 -66.4228,55.1024 -66.4424,55.125 -66.455,55.1544 -66.4684,55.1663 -66.5017,55.1888 -66.5145,55.2067 -66.5434,55.2247 -66.568,55.2301 -66.5761,55.2305 -66.5911,55.2289 -66.5966,55.226 -66.6023,55.2212 -66.6183,55.2313 -66.6369,55.2393 -66.6456,55.2585 -66.66,55.2678 -66.6905,55.2823 -66.7155,55.3 -66.7327,55.3093 -66.7433,55.3106 -66.7456,55.3025 -66.7359,55.273 -66.7389,55.2687 -66.754,55.2727 -66.7652,55.2774 -66.7674,55.2738 -66.762,55.2604 -66.734,55.2367 -66.7267,55.2311 -66.6975,55.2169 -66.6896,55.2081 -66.6721,55.1994 -66.6512,55.1866 -66.6191,55.1564 -66.6166,55.1458 -66.6179,55.1414 -66.6269,55.1429 -66.6521,55.1549 -66.6872,55.1686 -66.6989,55.1694 -66.696,55.1512 -66.6884,55.134 -66.6909,55.1174 -66.6892,55.1071 -66.6922,55.1036 -66.7111,55.1037 -66.7141,55.0953 -66.7081,55.078 -66.6935,55.0574 -66.6727,55.0421 -66.6408,55.0186 -66.661,55.0246 -66.6767,55.0276 -66.6812,55.0231 -66.6762,55.0098 -66.6656,55.001 -66.6441,54.9886 -66.6277,54.9837 -66.6115,54.9747 -66.5987,54.9644 -66.5862,54.95 -66.5806,54.9436 -66.5695,54.9284 -66.5755,54.9265 -66.585,54.9283 -66.6351,54.95 -66.6406,54.9524 -66.6655,54.9584 -66.6796,54.9544 -66.6867,54.9511 -66.6914,54.9508 -66.7076,54.9596 -66.7116,54.9598 -66.7158,54.9564 -66.713,54.95 -66.712,54.9477 -66.6915,54.9291 -66.657,54.9052 -66.6365,54.8891 -66.6209,54.8716 -66.6128,54.8583 -66.6143,54.8525 -66.593,54.8312 -66.5832,54.812 -66.539,54.771 -66.5368,54.7617 -66.5486,54.7439 -66.5662,54.732 -66.5829,54.7252 -66.6087,54.7202 -66.6461,54.7184 -66.6441,54.7107 -66.6299,54.7016 -66.6076,54.6907 -66.5947,54.6771 -66.5912,54.6647 -66.606,54.6607 -66.6364,54.6779 -66.6714,54.7008 -66.6783,54.7018 -66.6866,54.6966 -66.6884,54.6961 -66.6927,54.6989 -66.6942,54.7003 -66.6978,54.7067 -66.7051,54.7122 -66.7163,54.7175 -66.7285,54.722 -66.7697,54.7382 -66.7766,54.7408 -66.7943,54.7472 -66.8154,54.7505 -66.8265,54.7558 -66.8457,54.7628 -66.8563,54.7652 -66.8995,54.7775 -66.9064,54.7801 -66.9121,54.7835 -66.914,54.7871 -66.9208,54.7896 -66.9553,54.8032 -66.9639,54.8086 -66.9674,54.8136 -66.9724,54.8207 -66.9898,54.8414 -67.0085,54.8504 -67.0338,54.8753 -67.0567,54.8924 -67.088,54.9103 -67.1015,54.9169 -67.1213,54.9233 -67.1454,54.9337 -67.1557,54.9448 -67.1587,54.95 -67.1614,54.9545 -67.1768,54.9672 -67.2031,54.9762 -67.2127,54.9855 -67.206,54.9953 -67.2076,54.9996 -67.2364,55.0204 -67.258,55.0284 -67.2995,55.0316 -67.3235,55.0385 -67.3319,55.0387 -67.3597,55.0286 -67.3711,55.0162 -67.3715,55.0119 -67.38,54.9992 -67.3678,54.9733 -67.3435,54.95 -67.3409,54.9474 -67.3386,54.939 -67.3415,54.9306 -67.3379,54.9171 -67.3325,54.9116 -67.3193,54.9019 -67.2914,54.8909 -67.2784,54.8827 -67.2739,54.8662 -67.2685,54.8603 -67.2422,54.8419 -67.2214,54.8181 -67.1955,54.7974 -67.1754,54.7848 -67.1563,54.7684 -67.1437,54.7435 -67.1366,54.7391 -67.1205,54.7379 -67.0909,54.7272 -67.0594,54.7027 -67.0369,54.6893 -67.0072,54.6636 -67.0031,54.6462 -67.0073,54.629 -67.0164,54.6219 -67.0366,54.6127 -67.0558,54.6022 -67.0622,54.5954 -67.0783,54.5718 -67.0943,54.5636 -67.1148,54.5583 -67.1353,54.5583 -67.1475,54.5578 -67.1623,54.559 -67.1676,54.5461 -67.1794,54.5344 -67.1881,54.5321 -67.2122,54.5391 -67.2097,54.5267 -67.2134,54.5184 -67.2155,54.5075 -67.209,54.4978 -67.181,54.4816 -67.163,54.4755 -67.1603,54.4711 -67.1847,54.4479 -67.213,54.4295 -67.2237,54.4344 -67.2259,54.4402 -67.2366,54.4494 -67.2497,54.459 -67.2632,54.4619 -67.2762,54.4664 -67.3114,54.4737 -67.3276,54.4785 -67.3436,54.4819 -67.3518,54.4771 -67.3581,54.468 -67.3578,54.4547 -67.3609,54.4435 -67.3738,54.4359 -67.4211,54.4337 -67.4394,54.4304 -67.4594,54.4301 -67.4977,54.4369 -67.51,54.4373 -67.5238,54.4305 -67.5284,54.4192 -67.5521,54.4174 -67.5545,54.4174 -67.5649,54.4228 -67.5686,54.4299 -67.5792,54.4469 -67.5899,54.4387 -67.6075,54.403 -67.6175,54.3934 -67.6357,54.3891 -67.6638,54.3924 -67.6804,54.3925 -67.6967,54.3867 -67.7024,54.3838 -67.7063,54.3748 -67.6917,54.3576 -67.6801,54.3524 -67.6692,54.342 -67.6604,54.3263 -67.6684,54.2966 -67.6647,54.2893 -67.652,54.2758 -67.6394,54.2693 -67.6277,54.2672 -67.5987,54.2479 -67.593,54.2384 -67.6089,54.2177 -67.6077,54.2134 -67.6103,54.2036 -67.6086,54.1901 -67.5992,54.179 -67.5533,54.157 -67.546,54.1515 -67.5475,54.1441 -67.5565,54.1355 -67.5733,54.1264 -67.5753,54.1201 -67.5723,54.1125 -67.5745,54.1094 -67.5843,54.1051 -67.6167,54.1024 -67.6231,54.1032 -67.6414,54.1027 -67.6621,54.1026 -67.6826,54.1013 -67.7081,54.0954 -67.7207,54.0895 -67.7318,54.0771 -67.7352,54.0659 -67.7267,54.0561 -67.711,54.0511 -67.6951,54.0434 -67.6941,54.0356 -67.7097,54.0271 -67.7113,54.0141 -67.7169,54.0087 -67.7407,53.981 -67.7465,53.9717 -67.7414,53.9654 80,-4.0,Canada -64.8606,60.0092 -64.8532,59.9992 -64.8367,59.9868 -64.7983,59.95 -64.7983,59.9495 -64.7985,59.9316 -64.7848,59.9233 -64.7655,59.9232 -64.761,59.9239 -64.7076,59.9314 -64.6942,59.9265 -64.6945,59.9288 -64.5333,59.9812 -64.3884,59.9995 -64.3543,60.0079 -64.2555,60.0877 -64.2991,60.1418 -64.4234,60.1877 -64.4527,60.1922 -64.4743,60.1943 -64.5182,60.1944 -64.5636,60.1781 -64.6232,60.1581 -64.6011,60.1867 -64.5211,60.2146 -64.4909,60.2166 -64.4582,60.2134 -64.4355,60.2081 -64.3555,60.1901 -64.3359,60.1851 -64.3144,60.1831 -64.3497,60.2071 -64.4115,60.2296 -64.4545,60.2497 -64.464,60.2536 -64.471,60.2479 -64.4959,60.2549 -64.5181,60.2564 -64.526,60.2541 -64.5516,60.2468 -64.5823,60.2414 -64.6294,60.2526 -64.6572,60.2485 -64.7269,60.2266 -64.7347,60.2266 -64.7718,60.166 -64.7331,60.1577 -64.7055,60.1479 -64.6976,60.1427 -64.6697,60.1244 -64.6559,60.123 -64.6419,60.1312 -64.6142,60.1325 -64.6033,60.1228 -64.5867,60.1173 -64.559,60.1213 -64.5508,60.1158 -64.5482,60.1047 -64.5399,60.0878 -64.5347,60.0771 -64.5349,60.0661 -64.5902,60.0635 -64.6234,60.0594 -64.6621,60.0596 -64.6732,60.0568 -64.6761,60.0486 -64.6651,60.0403 -64.6513,60.0361 -64.6471,60.0295 -64.6459,60.0278 -64.6433,60.0195 -64.6489,60.0126 -64.6903,60.01 -64.7151,60.01 -64.7456,59.9922 -64.8007,60.0047 -64.8338,60.0158 -64.8558,60.0158 -64.8614,60.0103 -64.8606,60.0092 35,-4.0,Canada -63.2642,49.2793 -63.1816,49.257 -63.1547,49.2347 -63.1377,49.2237 -63.1164,49.2145 -63.0012,49.173 -62.8542,49.1425 -62.6902,49.1095 -62.6341,49.0983 -62.2764,49.043 -62.1043,49.0186 -61.9337,49.0134 -61.7053,49.0218 -61.6451,49.0399 -61.6116,49.0548 -61.5744,49.0877 -61.7323,49.2539 -61.7929,49.2915 -61.9518,49.3331 -62.0008,49.3303 -62.0775,49.3446 -62.1132,49.3549 -62.2485,49.4302 -62.3514,49.4903 -62.4532,49.543 -62.6178,49.604 -62.6936,49.6195 -62.9029,49.6795 -62.9809,49.707 -63.0424,49.7236 -63.2157,49.7569 -63.2531,49.7629 -63.2575,49.7636 -63.2663,49.2798 -63.2642,49.2793 95,-4.0,Canada -67.9984,62.1407 -67.982,62.1402 -67.8713,62.1378 -67.667,62.0902 -67.6263,62.0847 -67.6004,62.0823 -67.3695,62.0629 -67.3325,62.0637 -67.215,62.0436 -67.1246,62.0023 -66.9685,61.9557 -66.6821,61.9401 -66.6523,61.9398 -66.6224,61.9337 -66.5328,61.8633 -66.5008,61.8426 -66.421,61.8245 -66.3933,61.8216 -66.2718,61.7965 -66.154,61.7828 -65.9344,61.7936 -65.8321,61.8135 -65.821,61.8323 -65.8683,61.886 -65.9051,61.879 -65.9823,61.9416 -66.0045,62.0136 -65.9194,62.0739 -65.8385,62.1097 -65.8087,62.1236 -65.8688,62.1697 -65.8977,62.1726 -65.9239,62.1515 -65.9535,62.1503 -66.0381,62.1592 -66.0841,62.1692 -66.1257,62.1843 -66.0738,62.1843 -66.0356,62.1866 -66.0372,62.2151 -66.0798,62.2559 -66.1612,62.2677 -66.1838,62.2687 -66.204,62.2658 -66.2291,62.2433 -66.1901,62.1884 -66.2006,62.1913 -66.246,62.2098 -66.3421,62.2681 -66.302,62.273 -66.2021,62.3045 -66.226,62.3688 -66.2961,62.3687 -66.4775,62.5283 -66.6423,62.5635 -66.6104,62.5875 -66.6888,62.6028 -66.7829,62.5932 -66.8276,62.6042 -66.8816,62.6575 -66.9176,62.6943 -67.0636,62.7933 -67.2663,62.8898 -67.3346,62.908 -67.4376,62.8874 -67.5151,62.8468 -67.5373,62.8562 -67.5191,62.8903 -67.4986,62.8989 -67.4615,62.9101 -67.4414,62.9131 -67.4092,62.9162 -67.3731,62.9352 -67.3979,62.9596 -67.4271,62.9717 -67.5274,62.9569 -67.5603,62.9464 -67.5989,62.915 -67.594,62.8829 -67.6313,62.8801 -67.6408,62.9484 -67.5912,62.976 -67.5587,62.98 -67.4978,62.9831 -67.4737,63.0059 -67.5072,63.0222 -67.7801,63.0057 -67.788,63.0577 -67.8191,63.0679 -67.9401,63.0859 -67.9823,63.075 -67.9954,63.0706 -68.0,63.0718 -68.0,62.1407 -67.9984,62.1407 7,-4.0,Canada -66.8795,63.2044 -66.8893,63.2259 -66.9077,63.254 -66.8827,63.3204 -66.8464,63.3186 -66.8792,63.2037 -66.8795,63.2044 345,-4.0,Canada -67.9984,63.4871 -67.9347,63.4653 -67.9046,63.4656 -67.8172,63.4284 -67.7264,63.3788 -67.7043,63.3462 -67.691,63.3248 -67.6088,63.2899 -67.5876,63.2861 -67.5569,63.2896 -67.5372,63.3118 -67.5457,63.3455 -67.5776,63.3804 -67.6868,63.5179 -67.7872,63.6761 -67.764,63.6745 -67.7052,63.6511 -67.5502,63.5412 -67.4886,63.4708 -67.3675,63.3645 -67.2992,63.3349 -67.072,63.2073 -67.0438,63.1969 -66.9112,63.1963 -66.8792,63.2037 -66.8893,63.1691 -66.7333,63.0714 -66.7132,63.0696 -66.6963,63.0741 -66.6711,63.0915 -66.6788,63.1136 -66.7081,63.1432 -66.7147,63.1776 -66.681,63.1949 -66.6585,63.1337 -66.6484,63.0659 -66.6394,63.0145 -66.5472,62.9474 -66.4154,62.9165 -66.4283,63.0099 -66.474,63.1288 -66.5124,63.1597 -66.548,63.1676 -66.595,63.1929 -66.6079,63.2135 -66.5231,63.2955 -66.507,63.2748 -66.516,63.2485 -66.4957,63.1744 -66.4217,63.1017 -66.3916,62.9924 -66.3347,62.9548 -66.3145,62.9433 -66.2711,62.921 -66.2427,62.9153 -66.2188,62.9215 -66.1599,62.9141 -66.0916,62.8921 -66.0628,62.877 -66.0348,62.8607 -66.0125,62.8591 -65.9771,62.8688 -65.9671,62.9091 -65.9925,62.9236 -66.0605,62.9501 -66.0774,62.9636 -66.1613,63.0452 -66.1432,63.0546 -66.0326,63.0096 -66.0203,62.9826 -65.9168,62.9152 -65.8938,62.9045 -65.8516,62.8969 -65.8227,62.9091 -65.7972,62.931 -65.7292,62.9531 -65.708,62.9505 -65.7817,62.8903 -65.8044,62.8786 -65.7809,62.8486 -65.6185,62.8406 -65.4794,62.7431 -65.4452,62.7347 -65.3092,62.7423 -65.2644,62.7665 -65.2123,62.7603 -65.2282,62.6129 -65.2148,62.5946 -65.2008,62.5894 -65.1978,62.6145 -65.1448,62.6148 -65.1655,62.5938 -65.0821,62.4928 -65.0609,62.4855 -65.0183,62.489 -64.9883,62.4952 -64.9446,62.5081 -64.8462,62.552 -64.8225,62.5717 -64.8548,62.6327 -64.9953,62.7557 -65.024,62.7681 -65.0612,62.7969 -65.1418,62.8827 -65.1249,62.8979 -65.1052,62.8802 -65.0348,62.8657 -64.878,62.8304 -64.7968,62.8019 -64.7774,62.7954 -64.7555,62.7904 -64.7289,62.7883 -64.643,62.7851 -64.6075,62.8016 -64.5046,62.8217 -64.5139,62.8398 -64.5503,62.8644 -64.5735,62.8753 -64.6448,62.9062 -64.6361,62.9696 -64.6276,63.0202 -64.6638,63.0487 -64.6849,63.0601 -64.7886,63.1047 -64.8175,63.1056 -64.8802,63.0963 -64.927,63.0957 -64.956,63.1262 -65.0159,63.2089 -64.9836,63.2045 -64.9481,63.1789 -64.919,63.1705 -64.7808,63.1588 -64.7819,63.2028 -64.82,63.2798 -64.8374,63.2915 -64.8993,63.3212 -64.973,63.4599 -64.9611,63.4836 -64.9419,63.4905 -64.9112,63.4957 -64.9251,63.5595 -65.0072,63.6369 -65.0276,63.6469 -65.0871,63.6759 -65.1532,63.7101 -65.1685,63.7314 -65.0761,63.7246 -65.032,63.6956 -65.0387,63.669 -64.9391,63.5917 -64.9183,63.5838 -64.8673,63.5741 -64.8364,63.565 -64.8146,63.5536 -64.7231,63.4328 -64.6997,63.3745 -64.6404,63.246 -64.5316,63.1712 -64.4082,63.1712 -64.3622,63.2089 -64.399,63.2129 -64.4534,63.2197 -64.4908,63.242 -64.4624,63.244 -64.3843,63.23 -64.3691,63.2499 -64.3735,63.3585 -64.3959,63.4365 -64.4026,63.4569 -64.4097,63.5028 -64.3917,63.5378 -64.3808,63.564 -64.4057,63.6013 -64.4325,63.6155 -64.4573,63.6261 -64.5564,63.6677 -64.6506,63.669 -64.8237,63.6966 -64.8572,63.745 -64.8466,63.7732 -64.754,63.8191 -64.6895,63.8445 -64.5672,63.8859 -64.5368,63.8871 -64.5065,63.8956 -64.5455,63.9554 -64.6726,63.9487 -64.8208,63.936 -64.964,63.9301 -65.0614,63.9413 -65.0836,63.9561 -65.0298,63.9592 -65.008,63.9624 -64.9705,63.9714 -64.925,63.9901 -65.0333,64.0589 -65.1359,64.0994 -65.1186,64.1261 -65.2991,64.2183 -65.3362,64.2233 -65.376,64.2228 -65.4522,64.2176 -65.4805,64.2136 -65.5278,64.2256 -65.429,64.2434 -65.3951,64.2438 -65.3693,64.2432 -65.3221,64.2406 -65.2793,64.2329 -65.2522,64.2255 -65.2142,64.2155 -65.1643,64.2116 -65.0716,64.2282 -64.9431,64.3547 -64.9493,64.3925 -65.0151,64.4315 -65.0778,64.455 -65.2454,64.4455 -65.2663,64.4415 -65.3758,64.3889 -65.3833,64.4181 -65.4435,64.4186 -65.513,64.4152 -65.5349,64.4122 -65.5715,64.4062 -65.5971,64.4245 -65.5838,64.4907 -65.5285,64.5202 -65.4496,64.5697 -65.4318,64.6512 -65.4685,64.6762 -65.5045,64.6925 -65.5262,64.6927 -65.5497,64.6829 -65.579,64.6446 -65.5768,64.6113 -65.6013,64.6384 -65.6088,64.664 -65.5896,64.6862 -65.5602,64.7079 -65.538,64.7297 -65.5919,64.7615 -65.7076,64.802 -65.8067,64.81 -65.8263,64.8012 -65.7633,64.646 -65.7208,64.6001 -65.7693,64.593 -65.8813,64.6192 -65.8777,64.7034 -65.889,64.7674 -65.9269,64.7523 -65.9547,64.7341 -65.9857,64.7009 -66.0096,64.667 -66.0186,64.6453 -66.0172,64.6173 -66.0363,64.602 -66.0842,64.608 -66.0874,64.6459 -66.0816,64.6758 -66.0632,64.6978 -66.0457,64.7161 -66.0166,64.7884 -66.0463,64.7997 -66.2027,64.8542 -66.2323,64.8404 -66.2517,64.832 -66.3581,64.8619 -66.3637,64.9023 -66.4006,64.9283 -66.4853,64.9495 -66.5341,64.957 -66.5613,64.9543 -66.5435,64.7957 -66.5092,64.6982 -66.5621,64.6815 -66.602,64.7423 -66.6063,64.7793 -66.596,64.8215 -66.6102,64.8825 -66.6346,64.9435 -66.6685,64.9797 -66.6201,65.0321 -66.5992,65.0988 -66.6229,65.0958 -66.702,65.056 -66.7572,65.0222 -66.9468,64.9761 -66.971,64.9787 -66.9358,65.0177 -66.9161,65.0252 -66.8917,65.0269 -66.8196,65.0364 -66.799,65.1511 -66.9298,65.137 -66.9437,65.1688 -66.9883,65.2291 -67.1506,65.2683 -67.1711,65.2545 -67.19,65.2363 -67.2721,65.2578 -67.1811,65.2767 -67.1208,65.2786 -67.0835,65.2767 -66.9876,65.2798 -66.9439,65.3102 -66.9262,65.3401 -66.9316,65.3747 -67.0141,65.386 -67.0479,65.377 -67.0865,65.3744 -67.2126,65.3765 -67.3205,65.4168 -67.1923,65.5021 -67.1217,65.5247 -67.1425,65.5579 -67.1883,65.5787 -67.26,65.5941 -67.293,65.5942 -67.3304,65.5919 -67.5164,65.569 -67.585,65.5561 -67.7238,65.5024 -67.786,65.456 -67.8056,65.443 -67.8869,65.4064 -67.8176,65.4806 -67.8425,65.491 -67.8684,65.4809 -67.876,65.4757 -67.8906,65.4761 -67.9222,65.4857 -67.8523,65.5369 -67.8057,65.5358 -67.7338,65.6069 -67.6846,65.6854 -67.7491,65.7225 -67.7868,65.7113 -67.8659,65.6957 -67.8916,65.6932 -68.0,65.7139 -68.0,63.4877 -67.9984,63.4871 4,-4.0,Canada -67.9984,65.7435 -68.0,65.7599 -68.0,65.7396 -67.9984,65.7435 8,-4.0,Canada -67.9984,65.8814 -67.9913,65.8804 -67.9172,65.9118 -67.9094,65.9817 -67.9886,66.0235 -68.0,66.0274 -68.0,65.8816 -67.9984,65.8814 993,-4.0,Canada -67.9984,66.0464 -67.9926,66.0436 -67.8887,65.98 -67.8913,65.9133 -67.8014,65.8254 -67.7774,65.8165 -67.7276,65.8048 -67.6871,65.7982 -67.6585,65.7944 -67.6038,65.8112 -67.2936,65.8227 -67.053,65.8297 -67.1076,65.8955 -67.028,65.9529 -67.145,65.9998 -67.2634,66.0432 -67.3177,66.0615 -67.4333,66.1008 -67.535,66.145 -67.5871,66.1772 -67.5674,66.2001 -67.6204,66.272 -67.7403,66.3746 -67.7675,66.3841 -67.7986,66.3922 -67.8504,66.4238 -67.8137,66.4308 -67.785,66.4321 -67.6983,66.4037 -67.6813,66.3822 -67.5836,66.3542 -67.553,66.3515 -67.4963,66.3411 -67.4655,66.335 -67.4268,66.3246 -67.3887,66.2985 -67.3574,66.2733 -67.3147,66.2349 -67.2694,66.2112 -67.1608,66.1927 -67.1456,66.1916 -67.1212,66.2174 -67.0973,66.2206 -67.056,66.2146 -67.0258,66.2153 -66.995,66.2256 -67.0555,66.27 -67.1039,66.2752 -67.1517,66.2853 -67.1766,66.2928 -67.2413,66.3155 -67.2667,66.3429 -67.2063,66.3392 -67.1548,66.3155 -67.0547,66.2809 -67.0301,66.2811 -67.0022,66.2957 -67.0092,66.3566 -67.1516,66.4384 -67.2415,66.4613 -67.2792,66.4576 -67.3623,66.461 -67.563,66.4716 -67.596,66.4847 -67.5017,66.4965 -67.443,66.4913 -67.377,66.4894 -67.3259,66.4946 -67.2668,66.5034 -67.197,66.5125 -67.0562,66.4345 -67.055,66.4091 -66.9889,66.4015 -66.9688,66.4021 -66.7507,66.4824 -66.7715,66.4941 -66.8137,66.508 -66.8795,66.531 -66.9175,66.5515 -66.8958,66.5597 -66.8628,66.5542 -66.8355,66.5446 -66.7155,66.4992 -66.67,66.4478 -66.6853,66.3756 -66.6317,66.297 -66.5921,66.2867 -66.48,66.2875 -66.462,66.3032 -66.3366,66.3306 -66.3086,66.3209 -66.3652,66.3044 -66.4013,66.2942 -66.4366,66.2784 -66.3955,66.1474 -66.3575,66.1211 -66.2671,66.1173 -66.2366,66.142 -66.1165,66.1587 -66.0565,66.1567 -66.0663,66.1117 -66.0086,66.0498 -65.9398,66.0373 -65.8265,66.0252 -65.7934,66.0314 -65.7105,66.0524 -65.5663,66.0958 -65.4714,66.157 -65.4323,66.1997 -65.4242,66.2383 -65.3475,66.3011 -65.338,66.259 -65.4125,66.16 -65.4312,66.1434 -65.5107,66.0843 -65.5415,66.0743 -65.6529,66.043 -65.7798,66.0066 -65.83,65.9559 -65.7966,65.8734 -65.7431,65.865 -65.6946,65.8702 -65.2578,65.8922 -64.9941,65.9547 -64.8096,65.9955 -64.7224,66.032 -64.7257,66.0617 -64.7085,66.1101 -64.6609,66.1504 -64.5851,66.1905 -64.3336,66.2593 -64.3128,66.2611 -64.2314,66.2594 -64.2511,66.2407 -64.2744,66.2324 -64.3208,66.2202 -64.3493,66.213 -64.4745,66.1757 -64.5856,66.1373 -64.6194,66.1021 -64.6906,65.9616 -64.6339,65.905 -64.6067,65.8898 -64.6328,65.8833 -64.6702,65.8866 -64.7156,65.8965 -64.7584,65.9103 -64.7977,65.9189 -64.8234,65.917 -64.9189,65.8977 -65.0134,65.8767 -65.2252,65.8197 -65.3177,65.7557 -65.3698,65.6663 -65.3582,65.6533 -65.3284,65.6587 -65.3173,65.5987 -65.2385,65.5789 -65.0353,65.5743 -65.0105,65.587 -64.9784,65.6076 -64.9358,65.6254 -64.8936,65.6345 -64.8661,65.6389 -64.8421,65.6413 -64.7764,65.6464 -64.6713,65.6393 -64.7717,65.626 -64.8018,65.627 -64.854,65.621 -64.9743,65.5842 -64.9757,65.5603 -64.995,65.5509 -65.0229,65.548 -65.0574,65.5475 -65.0868,65.5477 -65.121,65.5478 -65.1441,65.5491 -65.1705,65.5457 -65.2046,65.4873 -65.1855,65.4689 -65.0221,65.4572 -64.9795,65.4589 -64.8532,65.4677 -64.822,65.4821 -64.7638,65.5405 -64.7419,65.5625 -64.7182,65.5742 -64.6929,65.579 -64.6645,65.5796 -64.6379,65.5778 -64.5812,65.5685 -64.6021,65.5605 -64.6371,65.5577 -64.7067,65.5236 -64.7239,65.5012 -64.7993,65.4426 -64.9518,65.4184 -64.9894,65.416 -65.0311,65.4045 -65.0111,65.3448 -64.9367,65.2981 -64.8785,65.2852 -64.8584,65.2963 -64.8489,65.3205 -64.7286,65.3406 -64.7088,65.334 -64.6856,65.3318 -64.6653,65.3335 -64.5657,65.3458 -64.4223,65.3759 -64.2894,65.3978 -64.3095,65.3436 -64.3406,65.3373 -64.3789,65.3438 -64.458,65.348 -64.4795,65.3444 -64.7736,65.2549 -64.7382,65.258 -64.6768,65.2654 -64.5605,65.253 -64.6252,65.232 -64.6587,65.2316 -64.6992,65.237 -64.7261,65.2329 -64.7809,65.22 -64.7629,65.1891 -64.7348,65.1752 -64.6783,65.1514 -64.6537,65.155 -64.633,65.1686 -64.5891,65.1408 -64.5263,65.0846 -64.5119,65.0686 -64.4826,65.0604 -64.4422,65.0411 -64.4218,65.013 -64.3867,65.0335 -64.3364,65.104 -64.3268,65.1258 -64.3315,65.1718 -64.3443,65.1962 -64.3325,65.2135 -64.3022,65.2451 -64.1531,65.3435 -64.1103,65.3453 -64.1243,65.3068 -64.1763,65.2713 -64.2047,65.2554 -64.2271,65.2434 -64.2704,65.2129 -64.2784,65.1942 -64.2671,65.1256 -64.2485,65.0977 -64.2108,65.08 -64.1786,65.0782 -64.0842,65.1174 -64.0022,65.1065 -64.0485,65.0856 -64.0873,65.0699 -64.1422,65.0162 -64.0012,64.9639 -63.8209,65.0193 -63.7571,65.0046 -63.7428,64.9613 -63.7224,64.9495 -63.6971,64.9465 -63.6747,64.9495 -63.6553,64.9533 -63.6247,64.9644 -63.6052,64.968 -63.5646,64.9677 -63.5377,64.9563 -63.5932,64.9498 -63.6998,64.9308 -63.697,64.9038 -63.6209,64.8815 -63.5332,64.859 -63.5272,64.8312 -63.4207,64.8067 -63.4015,64.8893 -63.3382,64.9373 -63.2979,64.9679 -63.2506,65.0295 -63.2922,65.0638 -63.3453,65.1148 -63.2979,65.1478 -63.2091,65.2165 -63.3565,65.3233 -63.4362,65.354 -63.4998,65.374 -63.5242,65.3886 -63.4484,65.3902 -63.4257,65.3868 -63.3997,65.3808 -63.3715,65.3702 -63.3417,65.3577 -63.275,65.3441 -63.1751,65.3581 -63.2354,65.3815 -63.2649,65.3903 -63.3054,65.4024 -63.4027,65.4303 -63.4844,65.4538 -63.4662,65.5082 -63.4342,65.5047 -63.4137,65.4899 -63.4003,65.4725 -63.3593,65.4462 -63.3361,65.4407 -63.2307,65.4568 -63.2093,65.4747 -63.1962,65.515 -63.2244,65.5354 -63.2443,65.5482 -63.2722,65.5519 -63.3051,65.5495 -63.3256,65.5475 -63.3769,65.5486 -63.5495,65.5671 -63.5724,65.5734 -63.5904,65.5958 -63.3277,65.5984 -63.2785,65.5947 -63.2409,65.5872 -63.2406,65.6113 -63.2517,65.638 -63.3462,65.7502 -63.3116,65.7671 -63.1663,65.6265 -63.0788,65.5547 -63.04,65.5461 -63.0108,65.5619 -62.907,65.5545 -62.8838,65.5465 -62.8455,65.4985 -62.8308,65.5027 -62.7689,65.553 -62.7888,65.6379 -62.8032,65.6525 -62.827,65.6678 -62.8026,65.6712 -62.7773,65.6639 -62.7579,65.6436 -62.7358,65.6028 -62.7333,65.5587 -62.6675,65.513 -62.6329,65.5043 -62.5232,65.5045 -62.497,65.5263 -62.481,65.5499 -62.4682,65.5847 -62.5367,65.6185 -62.5639,65.6266 -62.6,65.6291 -62.6673,65.6275 -62.7034,65.6696 -62.5486,65.6535 -62.4912,65.6411 -62.4586,65.642 -62.4445,65.672 -62.4637,65.6861 -62.5326,65.7094 -62.602,65.7262 -62.6268,65.7307 -62.7461,65.8116 -62.7338,65.8283 -62.7026,65.8172 -62.6808,65.8071 -62.6261,65.7708 -62.5965,65.7451 -62.5581,65.7338 -62.4858,65.7193 -62.3872,65.709 -62.3529,65.7082 -62.3159,65.7111 -62.1916,65.7255 -62.1952,65.7483 -62.2649,65.8603 -62.2856,65.8837 -62.3935,65.9184 -62.5478,65.9327 -62.6228,65.9278 -62.6465,65.9268 -62.6664,65.928 -62.6941,65.9352 -62.7147,65.9443 -62.7415,65.9605 -62.7627,65.9857 -62.8786,66.0339 -62.9115,66.0302 -62.9331,66.0355 -62.9138,66.047 -62.886,66.0556 -62.8373,66.065 -62.8112,66.0645 -62.7778,66.0576 -62.7512,66.0424 -62.7358,66.0247 -62.7285,66.0023 -62.7109,65.9779 -62.6775,65.9588 -62.6421,65.9501 -62.6142,65.9554 -62.5688,65.9592 -62.4068,65.9518 -62.272,65.9302 -62.1816,65.891 -62.1656,65.8973 -62.067,65.9286 -62.0438,65.9262 -62.0153,65.9177 -61.9631,65.9171 -61.8344,65.9384 -61.9119,66.0178 -62.0546,66.0652 -62.2402,66.0918 -62.3612,66.1169 -62.4765,66.1217 -62.52,66.1164 -62.5543,66.1136 -62.5832,66.1175 -62.6777,66.1545 -62.7558,66.2502 -62.7311,66.2507 -62.6936,66.2389 -62.6534,66.2215 -62.6536,66.1982 -62.6272,66.1599 -62.5466,66.1321 -62.5163,66.1336 -62.4948,66.1379 -62.2669,66.191 -62.1934,66.2194 -62.2106,66.2323 -62.351,66.2861 -62.5025,66.3042 -62.546,66.3098 -62.5811,66.3248 -62.499,66.3423 -62.4382,66.3443 -62.329,66.3399 -62.2913,66.3372 -62.1353,66.3252 -62.0958,66.3147 -62.1029,66.2891 -62.0827,66.2369 -61.8029,66.2004 -61.7516,66.1999 -61.5397,66.2412 -61.3399,66.2861 -61.4259,66.3279 -61.4485,66.3317 -61.6291,66.3239 -61.8079,66.317 -61.8515,66.3287 -61.8309,66.3402 -61.7278,66.3624 -61.6054,66.3674 -61.5092,66.376 -61.4885,66.3793 -61.4538,66.3973 -61.6279,66.5044 -61.6665,66.5263 -61.704,66.5373 -61.824,66.5618 -61.8587,66.5638 -61.8917,66.5566 -61.9238,66.5409 -61.9967,66.5424 -61.8888,66.587 -61.8236,66.5927 -61.6037,66.5602 -61.5654,66.5442 -61.5432,66.5321 -61.5107,66.5082 -61.4951,66.4782 -61.4661,66.465 -61.4229,66.4634 -61.336,66.4592 -61.3225,66.4545 -61.2996,66.4755 -61.2711,66.4928 -61.2217,66.4873 -61.1752,66.5093 -61.1394,66.5418 -61.1647,66.5856 -61.1886,66.603 -61.4863,66.7862 -61.6052,66.8488 -61.6228,66.8634 -61.7176,66.8847 -61.7383,66.8858 -61.786,66.886 -61.8232,66.8813 -61.8931,66.8216 -61.9447,66.8228 -61.9764,66.8304 -61.9222,66.9024 -61.8786,66.9488 -61.8983,66.9589 -61.9266,66.9641 -61.9734,66.9696 -62.1509,66.9534 -62.1644,66.9301 -62.1516,66.8943 -62.15,66.8686 -62.2189,66.8488 -62.273,66.8444 -62.2946,66.839 -62.3087,66.7996 -62.2946,66.7618 -62.2345,66.7338 -62.1653,66.6756 -62.1872,66.6447 -62.2711,66.7032 -62.2748,66.7247 -62.3916,66.8262 -62.4213,66.8468 -62.445,66.8613 -62.4713,66.8669 -62.5055,66.8666 -62.6051,66.86 -62.634,66.8426 -62.6393,66.8229 -62.6423,66.751 -62.6187,66.7295 -62.6063,66.7119 -62.6916,66.6001 -62.7223,66.573 -62.7806,66.5624 -62.7392,66.6569 -62.7057,66.6938 -62.6919,66.7372 -62.7133,66.8751 -62.743,66.8798 -62.8107,66.8819 -62.8389,66.8778 -63.095,66.8148 -63.1898,66.7327 -63.2469,66.6499 -63.2817,66.6189 -63.3191,66.6249 -63.3064,66.6435 -63.2861,66.6939 -63.278,66.725 -63.3041,66.8201 -63.3348,66.8237 -63.3537,66.8152 -63.3655,66.7885 -63.3513,66.7547 -63.4129,66.7295 -63.4626,66.7193 -63.4941,66.7176 -63.5224,66.7181 -63.643,66.7339 -63.5946,66.7386 -63.5678,66.738 -63.5148,66.7395 -63.4844,66.7427 -63.4629,66.7471 -63.4334,66.7586 -63.4264,66.7881 -63.4271,66.8114 -63.3901,66.8261 -63.3394,66.8359 -63.3061,66.8409 -63.2321,66.8498 -63.1904,66.8553 -63.1478,66.865 -63.0986,66.8897 -63.0904,66.913 -63.0924,66.9357 -63.1271,66.9843 -63.1486,67.0068 -63.1442,67.0284 -63.1071,67.0457 -63.0601,67.058 -63.0399,67.0619 -63.0038,67.0677 -62.9705,67.0702 -62.9453,67.0738 -62.9102,67.084 -62.8931,67.094 -62.8423,67.1444 -62.8651,67.1934 -62.8883,67.2105 -62.9093,67.2205 -62.9795,67.2446 -63.0066,67.2456 -63.0296,67.2427 -63.1456,67.2224 -63.168,67.2121 -63.2133,67.1881 -63.2866,67.1193 -63.2875,67.0978 -63.2685,67.0666 -63.3663,67.0004 -63.4044,66.9859 -63.4348,66.9774 -63.4697,66.9724 -63.5136,66.9685 -63.5583,66.9573 -63.6113,66.9357 -63.6359,66.9194 -63.6428,66.8893 -63.6714,66.9076 -63.6485,66.9326 -63.6065,66.9595 -63.5867,66.9683 -63.5417,66.9785 -63.5171,66.982 -63.4781,66.9891 -63.4029,67.0173 -63.3215,67.0894 -63.3296,67.1392 -63.423,67.1511 -63.6705,67.1544 -63.7303,67.1404 -63.7908,67.1104 -63.8341,67.0981 -63.8702,67.0941 -63.9548,67.0946 -64.0974,67.0788 -64.3419,67.0498 -64.3735,67.0444 -64.394,67.0391 -64.4144,67.0333 -64.4576,67.0135 -64.4736,67.0001 -64.4851,66.9692 -64.4857,66.949 -64.4992,66.9271 -64.5274,66.9189 -64.5637,66.9243 -64.5541,67.0007 -64.5249,67.028 -64.4788,67.0473 -64.4462,67.0583 -64.4123,67.0673 -64.3685,67.0764 -64.3345,67.0822 -64.0875,67.1164 -63.9561,67.1224 -63.9185,67.1191 -63.885,67.1253 -63.8636,67.1395 -63.8435,67.1666 -63.8389,67.1903 -63.8782,67.1897 -63.9822,67.1818 -64.0316,67.1762 -64.1001,67.1662 -64.1344,67.1559 -64.1548,67.1528 -64.2177,67.1496 -64.292,67.1426 -64.3334,67.1439 -64.5223,67.132 -64.5829,67.1151 -64.6322,67.1049 -64.6689,67.1188 -64.6452,67.1336 -64.5906,67.1437 -64.5349,67.1531 -64.4104,67.171 -64.3759,67.1695 -64.2863,67.1619 -64.259,67.1613 -64.2232,67.1648 -64.1829,67.1745 -64.1125,67.2087 -64.1508,67.2147 -64.2115,67.2121 -64.2394,67.2118 -64.2689,67.2135 -64.3083,67.2174 -64.5541,67.2418 -64.5939,67.2469 -64.6582,67.2697 -64.6148,67.2719 -64.3969,67.2523 -64.2068,67.2341 -64.0846,67.228 -64.0489,67.2268 -63.952,67.2278 -63.9229,67.226 -63.8903,67.2227 -63.8051,67.2074 -63.7759,67.2162 -63.8184,67.3243 -63.8711,67.3703 -63.915,67.3784 -63.9535,67.3818 -63.9843,67.38 -64.012,67.3758 -64.0339,67.3713 -64.0644,67.367 -64.1568,67.3621 -64.2234,67.3681 -64.2513,67.3724 -64.2765,67.3785 -64.299,67.39 -64.2786,67.3916 -64.2535,67.3885 -64.2103,67.3843 -64.1431,67.3795 -64.1116,67.3812 -64.0321,67.3967 -64.0065,67.403 -63.9086,67.4426 -63.937,67.5204 -64.1662,67.6457 -64.1929,67.6435 -64.2206,67.6201 -64.2467,67.6116 -64.3201,67.6069 -64.3813,67.5999 -64.4468,67.5881 -64.4958,67.5761 -64.4827,67.5923 -64.4628,67.6033 -64.4436,67.6108 -64.3319,67.6248 -64.3041,67.6244 -64.268,67.6236 -64.2319,67.6743 -64.3724,67.7209 -64.4331,67.7335 -64.4769,67.74 -64.518,67.7423 -64.6153,67.7342 -64.6272,67.6761 -64.6403,67.6159 -64.6647,67.6045 -64.6854,67.602 -64.7242,67.6034 -64.6887,67.6197 -64.6723,67.6563 -64.6804,67.6926 -64.7861,67.7033 -64.9914,67.6305 -65.0153,67.596 -65.0347,67.5492 -65.068,67.5653 -65.056,67.6151 -65.016,67.648 -64.9856,67.6603 -64.9494,67.663 -64.92,67.6668 -64.8757,67.6965 -64.882,67.7345 -64.8794,67.7761 -64.8067,67.8257 -64.7114,67.8482 -64.5988,67.882 -64.5905,67.9022 -64.8368,67.9635 -64.8647,67.9687 -64.9114,67.9625 -65.0399,67.9273 -65.0104,67.8996 -65.0352,67.8793 -65.065,67.8676 -65.0988,67.8581 -65.1559,67.8475 -65.287,67.8115 -65.414,67.6944 -65.3652,67.6689 -65.3262,67.6557 -65.2663,67.6369 -65.2379,67.621 -65.1921,67.5097 -65.2106,67.5074 -65.2245,67.5102 -65.2486,67.5398 -65.2623,67.5635 -65.269,67.5836 -65.2836,67.6039 -65.3109,67.6231 -65.3373,67.6334 -65.381,67.6467 -65.4279,67.6621 -65.4553,67.6768 -65.4714,67.7039 -65.4294,67.7244 -65.4084,67.7359 -65.3862,67.7539 -65.3239,67.8422 -65.3069,67.9021 -65.326,67.9096 -65.5468,67.9055 -65.6795,67.8777 -65.661,67.8518 -65.6267,67.8303 -65.6623,67.7791 -65.6943,67.7679 -65.7314,67.7577 -65.7887,67.7462 -65.8151,67.7331 -65.8163,67.7121 -65.801,67.6855 -65.8129,67.6364 -65.8238,67.6036 -65.8645,67.5427 -65.8837,67.5567 -65.8911,67.6356 -65.8694,67.7227 -65.8361,67.7616 -65.8479,67.8299 -65.8941,67.8658 -65.8495,67.8969 -65.8222,67.9096 -65.7958,67.9256 -65.7166,67.9872 -65.726,68.0326 -65.7873,68.073 -65.8185,68.0541 -65.8103,68.0056 -65.8054,67.9592 -65.8557,67.9373 -65.9899,67.8919 -66.0822,67.8735 -66.1076,67.8759 -66.1341,67.8696 -66.1572,67.8515 -66.1806,67.8243 -66.194,67.8011 -66.2076,67.7744 -66.218,67.735 -66.2627,67.7247 -66.4224,67.7567 -66.5146,67.7728 -66.5558,67.7767 -66.5956,67.7893 -66.5331,67.7938 -66.4895,67.7899 -66.4551,67.7859 -66.3898,67.7756 -66.2649,67.8066 -66.2057,67.8699 -66.1764,67.8956 -66.1554,67.9047 -66.1197,67.914 -66.0494,67.927 -66.1067,67.9909 -66.1271,68.0 -66.1613,67.998 -66.1869,67.9923 -66.2304,67.9846 -66.2506,67.9824 -66.2986,67.9812 -66.3262,67.9932 -66.2812,67.9999 -66.2408,67.9945 -66.2191,67.9998 -66.1786,68.0366 -66.374,68.0613 -66.4119,68.0609 -66.4705,68.0474 -66.4857,68.0164 -66.4937,67.9831 -66.5075,67.9287 -66.5663,67.8986 -66.5941,67.8952 -66.5739,67.9198 -66.5428,67.9494 -66.5306,68.0346 -66.5408,68.053 -66.5617,68.0549 -66.6077,68.0446 -66.6957,68.0087 -66.7846,67.9592 -66.8063,67.9269 -66.8172,67.9344 -66.8315,67.9568 -66.8125,67.985 -66.7567,68.0026 -66.712,68.0281 -66.6398,68.1206 -66.6358,68.1547 -66.6951,68.1589 -66.7249,68.1626 -66.7898,68.1753 -66.8362,68.1903 -66.862,68.2053 -66.9167,68.2036 -66.9983,68.1926 -67.0375,68.1826 -67.1441,68.1473 -67.1343,68.11 -67.1644,68.07 -67.2124,68.0481 -67.2326,68.0406 -67.261,68.0379 -67.2965,68.0409 -67.332,68.0465 -67.403,68.0608 -67.4336,68.0678 -67.4565,68.0766 -67.4326,68.0818 -67.3793,68.0766 -67.3362,68.068 -67.3151,68.0624 -67.2799,68.0569 -67.2515,68.0582 -67.2297,68.0667 -67.2006,68.0814 -67.1859,68.0965 -67.1958,68.1161 -67.1955,68.1428 -67.182,68.1592 -67.1623,68.1717 -67.0933,68.2042 -67.0109,68.2127 -66.8783,68.2263 -66.9366,68.2436 -66.9889,68.2534 -67.041,68.262 -67.0964,68.2702 -67.2537,68.2657 -67.3518,68.2344 -67.3948,68.203 -67.4101,68.1723 -67.4374,68.1639 -67.5453,68.1551 -67.5125,68.1659 -67.4739,68.1711 -67.4385,68.1804 -67.4408,68.2207 -67.4554,68.2355 -67.6062,68.2322 -67.6761,68.198 -67.6885,68.1758 -67.7288,68.1748 -67.7256,68.2089 -67.7069,68.2225 -67.6892,68.233 -67.6677,68.2412 -67.6385,68.2498 -67.6011,68.2558 -67.4964,68.2575 -67.4528,68.2601 -67.3523,68.2732 -67.3134,68.2804 -67.2719,68.2925 -67.2374,68.3031 -67.1445,68.3082 -67.0961,68.3079 -66.9947,68.2935 -66.9699,68.2827 -66.9341,68.2729 -66.9073,68.2683 -66.8705,68.2667 -66.8024,68.2839 -66.773,68.3184 -66.6417,68.3383 -66.5832,68.3415 -66.5615,68.3487 -66.654,68.3782 -66.6803,68.3776 -66.7667,68.3661 -66.9822,68.3862 -66.9632,68.3706 -66.9656,68.3265 -67.0153,68.3187 -67.1897,68.3282 -67.1656,68.3357 -67.0763,68.3457 -67.0846,68.3898 -67.1834,68.4086 -67.2835,68.4065 -67.3682,68.3954 -67.4078,68.3572 -67.4084,68.327 -67.452,68.294 -67.4605,68.2913 -67.4759,68.2946 -67.48,68.4091 -67.4001,68.4184 -67.3634,68.4269 -67.3536,68.445 -67.3894,68.462 -67.5003,68.4747 -67.5252,68.4739 -67.6657,68.4433 -67.7232,68.4221 -67.7766,68.4466 -67.9214,68.458 -67.9925,68.4844 -68.0,68.4857 -68.0,66.0472 -67.9984,66.0464 6,-4.0,Canada -67.9984,68.5405 -67.9464,68.5404 -67.903,68.5912 -68.0,68.6091 -68.0,68.5405 -67.9984,68.5405 16,-4.0,Canada -67.9984,68.7227 -67.9314,68.7137 -67.8,68.6896 -67.7707,68.6859 -67.7211,68.6831 -67.6675,68.685 -67.6299,68.6942 -67.717,68.7171 -67.7423,68.7206 -67.7726,68.7201 -67.8194,68.7226 -67.8635,68.7282 -67.9887,68.7487 -68.0,68.7523 -68.0,68.7229 -67.9984,68.7227 12,-4.0,Canada -67.9984,68.7822 -67.9842,68.7793 -67.9374,68.7739 -67.8612,68.7663 -67.8421,68.766 -67.8301,68.773 -67.8989,68.8538 -67.9278,68.858 -67.9708,68.8587 -68.0,68.8583 -68.0,68.7825 -67.9984,68.7822 9,-4.0,Canada -67.9984,68.8951 -67.9134,68.8847 -67.8843,68.8825 -67.8297,68.884 -67.574,68.9372 -67.9435,69.0371 -68.0,69.0502 -68.0,68.8953 -67.9984,68.8951 8,-4.0,Canada -67.9984,69.1096 -67.9835,69.1086 -67.9516,69.1149 -67.9366,69.1319 -67.9978,69.1704 -68.0,69.1712 -68.0,69.1097 -67.9984,69.1096 44,-4.0,Canada -67.9984,69.2079 -67.7185,69.1326 -67.5314,69.0803 -67.5037,69.0777 -67.3688,69.0687 -67.3178,69.0724 -67.2765,69.0874 -67.2343,69.0952 -66.989,69.0935 -66.8534,69.0888 -66.8158,69.0842 -66.7772,69.0704 -66.7,69.0481 -66.6172,69.0398 -66.5824,69.0524 -66.5466,69.0727 -66.5205,69.094 -66.5038,69.1143 -66.505,69.1413 -66.5457,69.1868 -66.6272,69.2402 -66.6466,69.2496 -66.7772,69.2895 -67.036,69.3649 -67.0649,69.3716 -67.1133,69.3777 -67.1602,69.3775 -67.2875,69.3737 -67.3305,69.3735 -67.3662,69.3766 -67.4165,69.3824 -67.4591,69.3883 -67.6532,69.3929 -67.6731,69.3874 -67.6944,69.3796 -67.7219,69.3689 -67.7468,69.3649 -67.7801,69.3643 -67.7997,69.3649 -67.8358,69.3677 -67.8789,69.3766 -68.0,69.4015 -68.0,69.2083 -67.9984,69.2079 30,-4.0,Canada -67.9984,69.6434 -67.9402,69.6658 -67.8572,69.683 -67.6637,69.6885 -67.6198,69.6889 -67.456,69.6602 -67.3538,69.6417 -67.2898,69.6289 -67.2529,69.6242 -67.2255,69.6244 -67.048,69.6318 -66.9824,69.6368 -67.0046,69.7235 -67.0735,69.85 -67.0958,69.8678 -67.2299,69.9569 -67.2598,69.9754 -67.3784,70.0423 -67.4067,70.0574 -67.4334,70.07 -67.4974,70.0945 -67.5237,70.102 -67.5465,70.1106 -67.5896,70.1271 -67.6182,70.152 -67.6502,70.169 -67.8874,70.2093 -68.0,70.1922 -68.0,69.6428 -67.9984,69.6434 3130,-5.0,Canada -84.9979,76.1877 -84.992,76.1873 -84.9347,76.1721 -84.6891,76.1783 -84.6591,76.1806 -84.5374,76.1954 -84.4781,76.1988 -84.2953,76.1977 -84.1831,76.1957 -84.1455,76.2076 -84.1596,76.2224 -84.198,76.2303 -84.4884,76.282 -84.6642,76.3035 -84.7207,76.3139 -84.7818,76.3477 -84.81,76.4056 -84.7818,76.4664 -84.7493,76.4739 -84.7286,76.4731 -84.7089,76.469 -84.6131,76.4309 -84.5461,76.3708 -84.4051,76.3278 -84.3802,76.323 -84.3315,76.3205 -84.2795,76.3193 -84.25,76.3207 -83.9982,76.335 -83.9644,76.3444 -83.9416,76.38 -83.9614,76.3937 -83.982,76.4019 -84.0089,76.4237 -83.9773,76.4627 -83.954,76.4995 -83.9715,76.5108 -84.0166,76.5195 -84.0757,76.5449 -84.0437,76.5485 -84.0206,76.5462 -83.8987,76.5288 -83.8707,76.5224 -83.8392,76.5114 -83.8225,76.4762 -83.8196,76.4469 -83.8012,76.4298 -83.7798,76.4207 -83.7465,76.4118 -83.6557,76.393 -83.5011,76.3432 -83.464,76.3226 -83.3832,76.3152 -83.2041,76.3028 -83.0501,76.2979 -83.0213,76.299 -82.9882,76.3022 -82.9545,76.3124 -82.9715,76.397 -83.0134,76.4673 -83.0411,76.4793 -83.0703,76.4866 -83.0937,76.4943 -83.1145,76.5033 -83.2605,76.5674 -83.2806,76.5965 -83.2587,76.6144 -83.1666,76.6493 -83.1261,76.6373 -83.1456,76.6216 -83.1008,76.5549 -82.9614,76.5105 -82.8766,76.4739 -82.8438,76.4307 -82.8277,76.3856 -82.8616,76.364 -82.8272,76.3418 -82.7622,76.3195 -82.5992,76.2894 -82.4709,76.2784 -82.2497,76.288 -82.1156,76.2873 -82.0605,76.2873 -82.0277,76.2902 -81.9767,76.3015 -81.9387,76.311 -81.8989,76.3368 -81.9199,76.3551 -81.9562,76.3779 -81.9858,76.4178 -81.9635,76.434 -81.9415,76.4383 -81.8539,76.4502 -81.8746,76.4616 -81.9738,76.4839 -82.0743,76.5003 -82.1801,76.514 -82.2001,76.5188 -82.2255,76.527 -82.3036,76.5611 -82.3281,76.5946 -82.3199,76.6138 -82.4038,76.657 -82.4616,76.6791 -82.4998,76.692 -82.5254,76.7031 -82.4876,76.7095 -82.4613,76.7029 -82.3516,76.6697 -82.2403,76.5958 -82.2071,76.5756 -82.1424,76.5482 -82.1017,76.5342 -82.0483,76.5254 -81.9657,76.5194 -81.9112,76.519 -81.8815,76.5197 -81.8469,76.522 -81.6594,76.5516 -81.6237,76.5622 -81.5949,76.5713 -81.5522,76.567 -81.5806,76.5494 -81.6178,76.5404 -81.64,76.5367 -81.7195,76.5229 -81.8155,76.4982 -81.753,76.4739 -81.7988,76.4449 -81.8465,76.4123 -81.8164,76.4029 -81.6478,76.3752 -81.5569,76.3662 -81.4851,76.3615 -81.4057,76.3603 -81.2908,76.3601 -81.2615,76.3608 -81.23,76.3626 -81.1804,76.3688 -81.1581,76.3729 -81.114,76.3841 -81.0735,76.4017 -81.0442,76.4247 -80.9584,76.4102 -80.762,76.3743 -80.5498,76.3132 -80.5352,76.2902 -80.5552,76.2665 -80.6757,76.2039 -80.8127,76.1447 -80.868,76.1043 -80.8551,76.0248 -80.8264,76.0205 -80.7232,76.0372 -80.4773,76.049 -80.4371,76.0527 -80.4125,76.0615 -80.4012,76.0794 -80.3801,76.0839 -80.2809,76.0887 -80.194,76.089 -80.1642,76.0971 -80.1455,76.1076 -80.1124,76.1206 -80.0675,76.1273 -80.0355,76.1303 -80.0049,76.132 -79.9781,76.1328 -79.9529,76.1319 -79.9311,76.129 -79.9038,76.1184 -79.882,76.115 -79.8622,76.1158 -79.8364,76.119 -79.6997,76.1457 -79.581,76.1705 -79.3723,76.2007 -79.3492,76.2036 -79.3012,76.2065 -79.2767,76.206 -79.2215,76.1984 -79.1906,76.1931 -79.1421,76.1887 -79.1151,76.1882 -79.0895,76.1893 -79.0367,76.204 -79.0405,76.2341 -78.9698,76.2948 -78.9469,76.3014 -78.9155,76.3034 -78.8664,76.3028 -78.8379,76.3044 -78.78,76.314 -78.746,76.3258 -78.7187,76.339 -78.6772,76.3704 -78.6629,76.3887 -78.6445,76.4124 -78.5578,76.4631 -78.527,76.4634 -78.4037,76.4551 -78.3899,76.4388 -78.3742,76.3977 -78.3892,76.3826 -78.33,76.3555 -78.2965,76.3482 -78.2509,76.3431 -78.2212,76.3437 -78.213,76.3448 -78.149,76.3515 -78.0344,76.3979 -77.9839,76.4302 -77.96,76.4539 -77.8713,76.4987 -77.7979,76.5199 -77.7625,76.5234 -77.7249,76.5205 -77.6961,76.5193 -77.6397,76.5205 -77.6191,76.5241 -77.5884,76.5316 -77.555,76.5453 -77.5891,76.575 -77.5615,76.6771 -77.6657,76.8396 -77.853,76.9057 -77.9148,76.9095 -77.9709,76.9091 -78.0664,76.9043 -78.0939,76.9015 -78.1175,76.8976 -78.158,76.8893 -78.3313,76.8248 -78.3387,76.8001 -78.4901,76.7129 -78.5222,76.7129 -78.6887,76.7298 -78.683,76.7767 -78.6502,76.8136 -78.7265,76.8253 -78.7532,76.8262 -78.778,76.8259 -78.9647,76.8193 -79.0159,76.815 -79.0889,76.8077 -79.1172,76.8082 -79.1581,76.8214 -79.1551,76.8424 -79.1364,76.8533 -79.0998,76.8682 -78.9032,76.943 -78.7925,76.9788 -78.7753,76.9897 -78.8066,77.0465 -78.9861,77.0989 -79.0243,77.1075 -79.1927,77.1219 -79.2139,77.1235 -79.4007,77.1323 -79.4282,77.1334 -79.4933,77.1291 -79.5528,77.1204 -79.7029,77.0959 -79.7806,77.0795 -79.8398,77.0598 -79.8618,77.0502 -79.8942,77.0343 -79.9266,77.0121 -79.9743,76.9981 -80.1043,76.966 -80.1402,76.9607 -80.1707,76.9688 -80.0218,77.0424 -79.9116,77.0731 -79.8822,77.0875 -79.9122,77.096 -79.9723,77.0985 -80.0249,77.1014 -80.0464,77.1027 -80.2918,77.124 -80.3577,77.1315 -80.7238,77.1602 -80.9122,77.1634 -81.1576,77.1205 -81.3699,77.0864 -81.397,77.0829 -81.4685,77.0685 -81.5491,77.0468 -81.5588,77.0468 -81.5962,77.0518 -81.6339,77.0622 -81.6671,77.0833 -81.7399,77.1473 -81.8041,77.1546 -81.8423,77.1618 -81.9188,77.187 -81.852,77.205 -81.7146,77.191 -81.6357,77.1812 -81.3,77.1916 -81.1872,77.1953 -81.0461,77.204 -80.9296,77.2223 -80.9376,77.2459 -80.959,77.2578 -81.0135,77.2578 -81.0986,77.257 -81.1939,77.2568 -81.246,77.2608 -81.2849,77.2665 -81.4608,77.3112 -81.5001,77.3274 -81.4747,77.3608 -81.4501,77.3733 -81.4287,77.3873 -81.433,77.4216 -81.5601,77.4803 -81.6154,77.4866 -81.6615,77.4947 -81.7069,77.5379 -81.6844,77.5711 -81.6435,77.5677 -81.6114,77.5564 -81.6025,77.5293 -81.5882,77.5116 -81.3696,77.464 -81.3676,77.4417 -81.3409,77.4041 -81.2941,77.3951 -81.2027,77.3796 -81.1404,77.3664 -81.1056,77.3543 -81.0794,77.3333 -81.0475,77.3151 -81.0162,77.3088 -80.9694,77.3044 -80.9127,77.3021 -80.8833,77.302 -80.8573,77.3004 -80.7869,77.2819 -80.7684,77.2659 -80.6428,77.2416 -80.5394,77.2232 -80.5171,77.2193 -80.2211,77.1849 -79.8089,77.1616 -79.7856,77.1611 -79.7549,77.1624 -79.7271,77.1656 -79.69,77.174 -79.6556,77.1867 -79.6274,77.1921 -79.6034,77.1955 -79.479,77.2072 -79.4212,77.2074 -79.3985,77.2052 -79.2609,77.193 -79.1416,77.182 -79.09,77.1776 -79.0389,77.1756 -78.976,77.177 -78.9402,77.1795 -78.9084,77.1825 -78.8521,77.1887 -78.7734,77.2025 -78.7309,77.2147 -78.7132,77.2243 -78.6892,77.2394 -78.6669,77.2493 -78.6306,77.2588 -78.6101,77.2629 -78.5856,77.2665 -78.5435,77.2693 -78.498,77.2576 -78.5557,77.2246 -78.605,77.1991 -78.5763,77.1961 -78.5471,77.1958 -78.511,77.1983 -78.4607,77.2042 -78.0744,77.2619 -78.0272,77.2703 -77.759,77.3718 -77.7163,77.3956 -77.7286,77.4176 -77.7224,77.4437 -77.6425,77.4562 -77.4947,77.4917 -77.5129,77.5098 -77.6323,77.5442 -77.6521,77.5491 -77.6895,77.5575 -77.7499,77.5889 -77.7092,77.65 -77.7214,77.6866 -77.7401,77.6942 -77.9065,77.744 -77.941,77.7468 -78.027,77.7483 -78.0493,77.7498 -78.0906,77.7541 -78.1814,77.7968 -78.0266,77.8817 -78.0032,77.8824 -77.9283,77.8749 -77.9069,77.8718 -77.8036,77.8532 -77.7643,77.8437 -77.6064,77.8296 -77.1051,77.8276 -77.0672,77.8293 -77.0411,77.8332 -77.0134,77.8352 -76.9798,77.8359 -76.9293,77.8327 -76.8816,77.8236 -76.8548,77.8063 -76.8063,77.7965 -76.7562,77.7914 -76.73,77.7894 -76.7016,77.7881 -76.6327,77.7896 -76.5807,77.8015 -76.5509,77.8166 -76.5279,77.82 -76.5014,77.8227 -76.4654,77.8239 -76.4409,77.8231 -76.3668,77.8264 -76.3196,77.8317 -76.2973,77.8359 -76.2669,77.85 -76.2451,77.8689 -76.216,77.8752 -76.0744,77.8958 -76.048,77.8992 -76.0176,77.9021 -75.9863,77.9016 -75.929,77.8988 -75.7473,77.8619 -75.6958,77.8432 -75.6113,77.8849 -75.5824,77.8948 -75.5341,77.9091 -75.4882,77.9192 -75.4656,77.9263 -75.367,77.9727 -75.355,77.9975 -75.3946,78.0104 -75.5076,78.0171 -75.5357,78.0176 -75.7926,78.024 -76.3071,78.0442 -76.4108,78.0504 -76.4336,78.0521 -76.4574,78.0548 -76.6515,78.0777 -76.6782,78.0841 -76.6614,78.1011 -76.6232,78.1132 -76.5996,78.1166 -76.3988,78.1336 -76.3768,78.135 -76.3426,78.1354 -76.3169,78.134 -76.2892,78.1312 -76.2436,78.125 -76.1622,78.118 -76.1309,78.1175 -76.0941,78.1185 -76.0614,78.1202 -75.9956,78.1258 -75.9589,78.1268 -75.9273,78.1261 -75.7559,78.1159 -75.6732,78.11 -75.5476,78.0965 -75.4511,78.0843 -75.4219,78.083 -75.3857,78.0838 -75.3545,78.0868 -75.2758,78.1007 -75.2512,78.1079 -75.1669,78.1643 -75.1529,78.1794 -75.1306,78.187 -75.0795,78.1912 -75.0453,78.191 -75.0182,78.1887 -74.9941,78.1856 -74.9623,78.1851 -74.8594,78.1919 -74.83,78.1984 -74.8074,78.214 -74.862,78.2541 -75.0409,78.2892 -75.1815,78.3116 -75.214,78.3158 -75.2691,78.318 -75.387,78.3231 -75.5306,78.3289 -75.8259,78.3469 -75.8594,78.3515 -75.8834,78.3695 -76.0199,78.3979 -76.0568,78.4002 -76.0918,78.4001 -76.1319,78.3983 -76.2351,78.3903 -76.3068,78.3883 -76.412,78.3876 -76.4524,78.3994 -76.409,78.413 -76.2355,78.4304 -76.2038,78.4332 -76.1712,78.4328 -75.9185,78.4232 -75.8878,78.4213 -75.8631,78.4183 -75.841,78.4146 -75.7986,78.4061 -75.758,78.3987 -75.7334,78.3957 -75.6569,78.3911 -75.5989,78.3895 -75.2494,78.395 -75.0607,78.4055 -75.032,78.4081 -74.9981,78.4154 -74.9708,78.4224 -74.9378,78.4243 -74.902,78.4241 -74.8721,78.4227 -74.847,78.4157 -74.819,78.4128 -74.7951,78.4168 -74.6414,78.4494 -74.5613,78.4761 -74.5905,78.5118 -74.6286,78.5206 -74.64,78.5566 -74.6135,78.5773 -74.5934,78.5819 -74.5262,78.5823 -74.4939,78.5886 -74.5261,78.7039 -74.5443,78.7136 -74.7333,78.7399 -74.9483,78.7627 -75.0597,78.774 -75.0833,78.7759 -75.228,78.7751 -75.5576,78.7679 -75.7402,78.7563 -75.8426,78.7566 -75.8983,78.7602 -75.9232,78.7629 -75.943,78.764 -75.9691,78.7647 -75.9963,78.7627 -76.1018,78.7439 -76.147,78.7313 -76.1675,78.7226 -76.2141,78.74 -76.179,78.7576 -76.1396,78.7665 -76.0998,78.7754 -76.0795,78.7796 -76.0513,78.7833 -76.0143,78.7856 -75.8598,78.7938 -75.6612,78.8044 -75.6237,78.8068 -75.5909,78.8096 -75.5546,78.8156 -75.5347,78.8233 -75.4917,78.8507 -75.7538,78.8786 -76.1245,78.9028 -76.1868,78.9057 -76.4452,78.9109 -76.4725,78.9114 -76.5158,78.9108 -76.7213,78.8959 -76.7871,78.89 -76.8397,78.8822 -76.8682,78.8786 -76.9382,78.8729 -77.0187,78.8696 -77.1303,78.8676 -77.2861,78.8626 -77.4486,78.8521 -77.4712,78.8493 -77.511,78.8409 -77.6538,78.7987 -77.795,78.7482 -77.8644,78.7123 -77.8969,78.6903 -77.9231,78.668 -77.965,78.6554 -78.0071,78.6541 -78.0364,78.6583 -78.0501,78.6776 -77.9063,78.7491 -77.799,78.7897 -77.7067,78.8305 -77.5939,78.8629 -77.5548,78.8719 -77.468,78.8924 -77.5509,78.9262 -77.5877,78.9311 -77.6192,78.9323 -77.7239,78.9323 -77.8281,78.9295 -77.8655,78.9298 -77.9169,78.9341 -77.993,78.9481 -78.0406,78.9498 -78.1615,78.948 -78.3441,78.942 -78.448,78.9418 -78.6402,78.9447 -78.6146,78.9501 -78.5731,78.9526 -78.4269,78.955 -78.1814,78.9659 -78.1071,78.9693 -78.0463,78.9662 -77.9809,78.9597 -77.9223,78.953 -77.8919,78.9503 -77.8603,78.9491 -77.7923,78.9487 -77.6774,78.9517 -77.6077,78.9525 -77.5495,78.9475 -77.5008,78.9251 -77.4782,78.9198 -77.4517,78.9167 -77.2885,78.9011 -77.2545,78.9009 -77.2167,78.9133 -77.1893,78.9204 -77.1153,78.9314 -77.0865,78.9346 -76.9828,78.9436 -76.9128,78.9491 -76.8336,78.9536 -76.7567,78.9575 -76.5892,78.9657 -76.4378,78.9724 -76.3989,78.9734 -76.3373,78.9724 -76.2771,78.9689 -76.1223,78.9611 -76.0277,78.9573 -75.9731,78.9578 -75.9334,78.9588 -75.9096,78.9609 -75.8713,78.9683 -75.8468,78.9793 -75.8996,79.0019 -75.9225,79.0051 -75.9539,79.0062 -75.996,79.0045 -76.0224,79.0046 -76.0818,79.0076 -76.1925,79.0149 -76.2464,79.019 -76.3721,79.0319 -76.401,79.0336 -76.4667,79.0359 -76.6023,79.0363 -76.7783,79.0364 -76.9403,79.0364 -76.9678,79.0372 -76.9968,79.0398 -77.2301,79.0504 -77.5997,79.0611 -77.6688,79.062 -77.7456,79.0599 -77.7827,79.0575 -77.8123,79.0545 -77.8409,79.0505 -77.9377,79.0419 -77.9845,79.0434 -78.0024,79.0548 -77.9693,79.0662 -77.9148,79.0727 -77.5743,79.0902 -77.5343,79.0913 -77.507,79.0907 -77.4527,79.0871 -77.4,79.0823 -77.3057,79.0769 -77.2688,79.0774 -77.1473,79.0821 -77.0091,79.0806 -76.9637,79.078 -76.9266,79.0727 -76.8707,79.0674 -76.8423,79.066 -76.8046,79.0661 -76.7332,79.066 -76.619,79.0677 -76.2802,79.0727 -76.0712,79.0734 -75.8949,79.0821 -75.8603,79.0816 -75.8339,79.0785 -75.8104,79.0746 -75.7073,79.0555 -75.6183,79.0268 -75.6474,79.0145 -75.6521,78.9827 -75.5278,78.9635 -75.4203,78.9515 -75.3916,78.9491 -75.0091,78.9262 -74.8828,78.9189 -74.7271,78.9116 -74.4928,78.906 -74.4224,78.9055 -74.3468,78.9066 -74.3124,78.9082 -74.2829,78.9117 -74.2321,78.9222 -74.2114,78.9421 -74.3847,79.0339 -74.4395,79.0397 -74.5338,79.0442 -74.562,79.0461 -74.5867,79.0576 -74.5583,79.0655 -74.5246,79.0683 -74.3691,79.0752 -74.3389,79.0788 -74.2874,79.0856 -74.2364,79.0996 -74.2639,79.1075 -74.2927,79.1098 -74.5434,79.1226 -74.5662,79.1231 -74.6418,79.1205 -74.8483,79.1178 -75.1699,79.12 -75.229,79.1223 -75.3718,79.1224 -75.4012,79.122 -75.4387,79.1189 -75.4974,79.1119 -75.5401,79.11 -75.5703,79.1104 -75.7014,79.1129 -75.7544,79.1187 -75.8055,79.1308 -75.8304,79.1398 -75.8674,79.1483 -75.8979,79.1507 -75.9294,79.1524 -75.999,79.1535 -76.4313,79.1596 -76.7585,79.1557 -76.9502,79.1463 -77.1161,79.1325 -77.1823,79.1285 -77.245,79.1296 -77.2108,79.1347 -77.1798,79.137 -77.1074,79.1411 -77.0834,79.1468 -77.2357,79.179 -77.2859,79.1874 -77.3811,79.1978 -77.4072,79.2 -77.4832,79.1996 -77.5161,79.1984 -77.5661,79.1989 -77.6019,79.1998 -77.6317,79.2017 -77.6589,79.2047 -77.7766,79.2222 -77.8064,79.2328 -77.7123,79.2458 -77.6692,79.2476 -77.5754,79.2336 -77.5257,79.2286 -77.4961,79.2263 -77.4634,79.2253 -77.3903,79.2276 -77.3523,79.2277 -77.2285,79.2282 -77.1704,79.2239 -77.1338,79.2194 -77.0746,79.21 -77.0183,79.2047 -76.9858,79.2037 -76.9454,79.2049 -76.9249,79.2138 -77.0193,79.2546 -77.1468,79.3249 -77.1152,79.3374 -77.0826,79.3357 -76.9693,79.3295 -76.8641,79.3001 -76.8407,79.2836 -76.7766,79.264 -76.7176,79.2493 -76.6525,79.2354 -76.6283,79.2313 -76.5881,79.2328 -76.5494,79.2352 -76.477,79.2354 -76.4418,79.2346 -76.1112,79.2239 -75.8845,79.2132 -75.8478,79.2142 -75.6571,79.2354 -75.82,79.2569 -75.8443,79.2608 -75.8777,79.2664 -75.9229,79.2757 -75.9584,79.3119 -75.909,79.3282 -75.939,79.3415 -75.9645,79.3429 -76.1653,79.3554 -76.3709,79.3564 -76.6249,79.3614 -76.6529,79.3621 -76.8285,79.3685 -76.8911,79.3717 -76.9427,79.388 -76.9075,79.4267 -76.8684,79.4268 -76.8489,79.4211 -76.8264,79.4055 -76.8068,79.4002 -76.663,79.3913 -76.6299,79.3899 -76.5918,79.3902 -76.5526,79.3927 -76.4758,79.4015 -76.4232,79.4023 -76.3942,79.4009 -76.0793,79.3827 -76.0203,79.3792 -75.9634,79.3741 -75.9355,79.3705 -75.8911,79.3603 -75.865,79.3475 -75.8009,79.3224 -75.746,79.3116 -75.7185,79.3078 -75.6922,79.3052 -75.6688,79.3079 -75.5611,79.3133 -75.4571,79.2918 -75.2939,79.2742 -75.1731,79.266 -75.077,79.2618 -74.9776,79.2584 -74.8223,79.256 -74.7727,79.2568 -74.7078,79.2647 -74.6756,79.2756 -74.6482,79.2941 -74.669,79.3083 -74.7126,79.3226 -74.753,79.3333 -74.8148,79.3733 -74.7506,79.3915 -74.7276,79.3946 -74.6977,79.3848 -74.4459,79.3274 -74.3824,79.3205 -74.3094,79.3199 -73.9645,79.3179 -73.9265,79.3182 -73.8828,79.3196 -73.8481,79.3224 -73.7904,79.3285 -73.7576,79.3353 -73.7202,79.3599 -73.7304,79.3943 -73.7589,79.4264 -73.7238,79.4363 -73.6822,79.4337 -73.6367,79.424 -73.6045,79.4088 -73.5842,79.397 -73.553,79.3863 -73.5252,79.3819 -73.4965,79.3801 -73.4603,79.3786 -73.4251,79.3777 -73.2144,79.3806 -73.1222,79.3874 -73.0646,79.3942 -73.0159,79.4024 -72.9405,79.4179 -72.8991,79.4417 -72.9392,79.5297 -72.9653,79.5419 -73.0244,79.5589 -73.0625,79.5696 -73.1304,79.596 -73.1512,79.6296 -73.2766,79.6372 -73.48,79.647 -73.7157,79.6651 -73.87,79.676 -73.9994,79.6823 -74.0722,79.6839 -74.1144,79.683 -74.155,79.6807 -74.2076,79.6753 -74.2513,79.672 -74.417,79.6693 -74.4536,79.6717 -74.4785,79.6773 -74.6007,79.7277 -74.5563,79.7313 -74.429,79.734 -74.3382,79.7373 -74.1773,79.7456 -74.1456,79.7487 -74.0684,79.7573 -74.046,79.7615 -74.0012,79.7674 -73.9196,79.7689 -73.8805,79.7692 -73.7737,79.766 -73.7094,79.762 -73.6547,79.7554 -73.5329,79.7392 -73.5094,79.7308 -73.5658,79.7267 -73.6238,79.7142 -73.5449,79.708 -73.5098,79.7086 -73.4326,79.71 -73.3415,79.7133 -73.1993,79.7163 -73.1625,79.7155 -73.1369,79.7134 -73.1146,79.7107 -73.0509,79.7063 -72.9842,79.703 -72.9447,79.7033 -72.8583,79.7069 -72.8261,79.706 -72.6883,79.6948 -72.713,79.6847 -72.7462,79.6825 -72.7858,79.686 -72.8259,79.6835 -72.7067,79.5892 -72.681,79.583 -72.5249,79.563 -72.499,79.5606 -72.4662,79.5588 -72.4305,79.558 -72.3886,79.5586 -72.3436,79.5601 -72.2371,79.5657 -72.1948,79.5665 -72.1621,79.5646 -72.1276,79.5609 -72.0948,79.5509 -72.0577,79.5411 -72.038,79.5403 -71.9884,79.5409 -71.8678,79.5558 -71.7616,79.57 -71.6941,79.5762 -71.589,79.5844 -71.5527,79.5868 -71.5115,79.588 -71.471,79.5907 -71.2635,79.6141 -71.2265,79.6199 -71.1727,79.638 -71.1486,79.6415 -71.1165,79.6445 -70.986,79.6548 -70.9569,79.6581 -70.9095,79.6656 -70.8898,79.6701 -70.7793,79.7 -70.6865,79.7629 -70.7084,79.7723 -70.8354,79.7917 -70.8818,79.7953 -70.9404,79.7944 -71.1174,79.7679 -71.166,79.7652 -71.1875,79.7668 -71.2099,79.7703 -71.2281,79.7826 -71.1801,79.813 -71.0418,79.8372 -71.013,79.8407 -70.8573,79.8484 -70.7266,79.8527 -70.6884,79.8542 -70.5399,79.8616 -70.4926,79.8664 -70.4519,79.8836 -70.4413,79.9022 -70.4207,79.9098 -70.3714,79.9167 -70.3425,79.9199 -70.2702,79.9297 -70.2798,79.968 -70.4033,80.0026 -70.4283,80.0036 -70.5389,80.0053 -70.5972,80.003 -70.6308,80.0006 -70.7435,79.9881 -70.9602,79.9679 -71.09,79.9567 -71.1491,79.9523 -71.2617,79.9446 -71.3899,79.9402 -71.4735,79.94 -71.6207,79.9437 -71.6568,79.9431 -71.6917,79.9423 -71.8233,79.9338 -71.9077,79.9301 -71.94,79.9305 -72.0758,79.9337 -72.1188,79.9383 -72.1619,79.9585 -72.0211,79.9601 -71.8865,79.9621 -71.7263,79.9703 -71.6981,79.9737 -71.6714,79.984 -71.7498,80.0115 -71.7691,80.0151 -71.8245,80.0217 -71.8546,80.0238 -71.9125,80.0289 -71.96,80.0359 -72.1873,80.0808 -72.1662,80.0916 -72.139,80.097 -72.1005,80.0971 -72.0652,80.0948 -72.0364,80.0885 -72.0036,80.0762 -71.9603,80.0639 -71.9367,80.0607 -71.8995,80.0595 -71.862,80.0651 -71.8289,80.0662 -71.7785,80.0602 -71.7255,80.0525 -71.68,80.0432 -71.6513,80.0345 -71.615,80.0098 -71.5845,79.9959 -71.5628,79.9907 -71.5355,79.9874 -71.5046,79.9852 -71.4675,79.984 -71.4274,79.9845 -71.2746,79.9885 -71.2284,79.9922 -71.1927,80.003 -71.1562,80.0112 -71.0128,80.0308 -70.9553,80.0386 -70.8956,80.0444 -70.5966,80.0672 -70.4217,80.0707 -70.3876,80.0688 -70.0923,80.0594 -70.0264,80.0577 -69.9942,80.0581 -69.9565,80.0607 -69.9148,80.0672 -69.7688,80.1148 -69.7407,80.1254 -69.7603,80.1372 -69.8129,80.1496 -69.9276,80.1701 -70.0294,80.184 -70.0864,80.189 -70.1287,80.1953 -70.2001,80.2069 -70.2199,80.2109 -70.244,80.2288 -70.2299,80.2539 -70.2102,80.2619 -70.1986,80.2916 -70.2584,80.3273 -70.3057,80.344 -70.4115,80.3788 -70.4445,80.3873 -70.515,80.4008 -70.5385,80.4039 -70.5773,80.412 -70.592,80.4282 -70.5558,80.432 -70.5276,80.4285 -70.4791,80.4216 -70.4545,80.4174 -70.3139,80.3914 -70.2734,80.3833 -70.0891,80.3344 -70.0506,80.3178 -70.0032,80.2936 -70.0035,80.2718 -70.0263,80.2544 -70.0617,80.243 -70.084,80.2303 -70.0605,80.2216 -69.9953,80.2171 -69.8498,80.215 -69.7597,80.2155 -69.5077,80.2233 -69.3747,80.2317 -69.3294,80.2367 -69.2581,80.2461 -69.2061,80.2532 -69.1633,80.2623 -69.1043,80.2799 -69.0805,80.2917 -69.0686,80.3162 -69.0514,80.3339 -68.9493,80.387 -68.925,80.3991 -68.7307,80.472 -68.5932,80.4971 -68.5176,80.5156 -68.4511,80.5352 -68.0045,80.629 -67.9822,80.6335 -67.9181,80.6402 -67.8691,80.6438 -67.8453,80.6469 -67.7913,80.6557 -67.746,80.6651 -67.6905,80.6792 -67.6438,80.7012 -67.4247,80.7258 -67.364,80.7435 -67.3201,80.766 -67.3481,80.7753 -67.3777,80.7919 -67.3425,80.8021 -67.2213,80.803 -67.1302,80.803 -67.09,80.8011 -67.0603,80.8021 -66.9897,80.8084 -66.9458,80.815 -66.703,80.857 -66.5354,80.8878 -66.4679,80.9017 -66.3857,80.9208 -66.3196,80.9388 -66.289,80.9574 -66.2651,80.972 -66.2202,80.9888 -66.2006,80.9939 -66.047,81.0342 -66.0268,81.0393 -65.9822,81.0484 -65.7932,81.0845 -65.7636,81.0882 -65.7242,81.0909 -65.5313,81.1001 -65.3557,81.109 -65.312,81.1117 -65.2775,81.1147 -65.226,81.1204 -65.1082,81.1421 -65.0711,81.151 -64.9529,81.1739 -64.8454,81.1896 -64.7801,81.1967 -64.6414,81.216 -64.5945,81.2238 -64.5211,81.2373 -64.4449,81.2563 -64.4027,81.268 -64.3403,81.2888 -64.3007,81.3023 -64.278,81.3115 -64.23,81.3445 -64.3153,81.4037 -64.3513,81.4076 -64.3972,81.407 -64.7866,81.3928 -65.0359,81.3792 -65.2489,81.3687 -65.3396,81.3652 -65.4254,81.3613 -65.5061,81.3561 -65.613,81.347 -65.7663,81.3306 -65.8317,81.3216 -65.9146,81.3134 -65.95,81.3104 -66.0703,81.3031 -66.1457,81.2975 -66.4007,81.2767 -66.7688,81.2487 -66.9021,81.2428 -67.025,81.2353 -67.1338,81.2271 -67.3699,81.2038 -67.4672,81.193 -67.5674,81.1792 -67.5998,81.1739 -67.6632,81.1669 -67.8283,81.1501 -67.8921,81.1441 -68.0222,81.1368 -68.1488,81.1306 -68.5346,81.1035 -68.6494,81.0954 -69.1317,81.0578 -69.2026,81.0519 -69.2353,81.0477 -69.3066,81.0319 -69.3723,81.0115 -69.4041,81.0042 -69.6035,80.9769 -69.6931,80.9673 -69.7266,80.9649 -69.7661,80.9646 -69.7896,80.9707 -69.7478,80.9842 -69.7239,80.9874 -69.6587,80.9941 -69.603,81.0023 -69.414,81.0397 -69.531,81.0376 -69.6352,81.0291 -69.6778,81.0263 -69.7306,81.0254 -69.8208,81.0264 -69.8958,81.0302 -69.9775,81.0414 -69.9279,81.0462 -69.7696,81.0445 -69.6822,81.0471 -69.3132,81.077 -69.0907,81.1055 -69.1381,81.1107 -69.2082,81.1133 -69.2321,81.1253 -69.1981,81.134 -69.1628,81.1344 -69.1318,81.1327 -69.1122,81.128 -69.091,81.1245 -68.8013,81.1226 -68.5702,81.1394 -68.3919,81.1545 -68.2609,81.1677 -68.2032,81.1752 -68.1302,81.1874 -68.0193,81.2035 -67.7699,81.2314 -67.5938,81.2486 -67.5295,81.2549 -67.234,81.2858 -67.0251,81.3126 -66.8206,81.3324 -66.7404,81.3373 -66.6655,81.343 -66.5192,81.3544 -66.4013,81.376 -66.5437,81.3996 -66.5691,81.4027 -66.6369,81.4085 -66.8414,81.4244 -66.8841,81.427 -66.9266,81.4268 -66.9587,81.4267 -67.1592,81.4229 -67.499,81.4132 -67.5938,81.4088 -67.6837,81.4041 -67.7848,81.3952 -67.8245,81.3926 -67.8654,81.3912 -68.0587,81.3891 -68.1485,81.3847 -68.2189,81.3798 -68.3089,81.3754 -68.3513,81.3766 -68.5487,81.3916 -68.5841,81.3953 -68.6201,81.4059 -68.5815,81.4106 -68.4864,81.4017 -68.4089,81.3977 -68.323,81.3948 -68.2765,81.3943 -68.1798,81.3958 -68.1397,81.4095 -68.221,81.4328 -68.3956,81.4659 -68.6718,81.5124 -68.7745,81.5285 -68.8923,81.5446 -68.9822,81.5559 -69.0358,81.5634 -69.0648,81.5753 -69.0149,81.5782 -68.9444,81.5733 -68.9081,81.5695 -68.8276,81.5581 -68.7461,81.5454 -68.4856,81.5035 -68.432,81.4947 -68.2314,81.459 -68.1822,81.4498 -68.1246,81.4348 -68.1026,81.4303 -68.0819,81.4272 -68.047,81.4244 -68.0042,81.4234 -67.9296,81.423 -67.8844,81.4249 -67.5665,81.4512 -67.5404,81.4547 -67.3343,81.4609 -67.2839,81.4622 -66.9328,81.4694 -66.673,81.4734 -66.5817,81.4771 -66.5046,81.4815 -66.3533,81.4874 -66.2561,81.4899 -66.2179,81.4881 -66.172,81.481 -66.1335,81.4788 -65.9977,81.4784 -65.9515,81.4793 -65.9201,81.4819 -65.8728,81.5012 -65.8439,81.5091 -65.813,81.5134 -65.7617,81.5141 -65.7041,81.4987 -65.6517,81.4887 -65.5694,81.4935 -65.3988,81.5097 -65.3044,81.5208 -65.1832,81.5355 -65.1518,81.5398 -65.1259,81.5508 -65.185,81.5518 -65.2683,81.5484 -65.393,81.5418 -65.6014,81.5455 -65.7704,81.5435 -65.8164,81.551 -65.7912,81.5578 -65.7036,81.5623 -65.553,81.5635 -65.5055,81.5626 -65.4481,81.5615 -65.4114,81.5633 -65.1903,81.5889 -65.1183,81.5983 -64.9977,81.6061 -64.7439,81.6127 -64.6921,81.6131 -64.6678,81.6112 -64.6191,81.6012 -64.5895,81.59 -64.5504,81.5864 -64.5028,81.5843 -64.4128,81.5829 -64.2564,81.5819 -64.1394,81.5869 -63.9923,81.6025 -63.9098,81.6243 -64.0167,81.6605 -64.037,81.6659 -64.0943,81.6825 -64.0552,81.6816 -63.9915,81.6745 -63.9619,81.6706 -63.921,81.661 -63.8959,81.6549 -63.8714,81.6518 -63.8375,81.6502 -63.7947,81.6505 -63.7477,81.6524 -63.7099,81.6551 -63.635,81.661 -63.6023,81.6645 -63.5464,81.6715 -63.5006,81.6805 -63.4418,81.6972 -63.1735,81.7273 -63.0789,81.737 -62.8277,81.769 -62.7321,81.7814 -62.3581,81.8346 -62.3014,81.863 -62.1453,81.8685 -62.1018,81.8709 -62.0677,81.874 -62.0427,81.8782 -61.9158,81.9021 -61.8668,81.9116 -61.6666,81.9611 -61.5934,82.0039 -61.389,82.018 -61.3241,82.0226 -61.2537,82.0294 -61.2236,82.0336 -61.1782,82.0401 -61.0967,82.0542 -61.0717,82.0594 -60.9839,82.0802 -60.9475,82.0919 -60.9263,82.1038 -60.9208,82.1092 -60.8982,82.1242 -60.8721,82.1532 -60.8666,82.1767 -60.8953,82.2126 -60.9256,82.2358 -60.9593,82.2507 -61.0741,82.2854 -61.1144,82.2947 -61.2361,82.319 -61.2872,82.3289 -61.3181,82.333 -61.3694,82.3369 -61.478,82.3424 -61.6698,82.3473 -61.8831,82.3564 -61.9987,82.3482 -62.0489,82.3402 -62.0853,82.3371 -62.1373,82.3381 -62.112,82.362 -61.9559,82.3777 -62.0291,82.3823 -62.0711,82.3823 -62.2902,82.3808 -62.3366,82.3787 -62.4612,82.3704 -62.606,82.3586 -62.703,82.3457 -62.7729,82.322 -62.7982,82.3143 -62.8539,82.3069 -62.9307,82.3017 -63.0585,82.2941 -63.1098,82.2926 -63.149,82.2968 -63.1272,82.3041 -63.0665,82.3096 -63.0252,82.3125 -62.9019,82.3183 -62.8711,82.3209 -62.841,82.3663 -62.742,82.4117 -62.7169,82.431 -62.7455,82.4394 -62.7774,82.444 -62.8145,82.4482 -62.852,82.4498 -62.8942,82.4511 -63.01,82.4507 -63.0524,82.4521 -63.0948,82.4546 -63.127,82.4583 -63.1551,82.4698 -63.1191,82.4768 -63.0671,82.4782 -63.0357,82.4806 -63.0112,82.4943 -63.0341,82.5033 -63.0663,82.5077 -63.201,82.5187 -63.2803,82.5355 -63.318,82.5472 -63.4291,82.5674 -63.4565,82.5704 -63.5482,82.5736 -63.4436,82.5839 -63.3686,82.5853 -63.296,82.5839 -63.2572,82.5918 -63.1679,82.6167 -63.1634,82.6534 -63.212,82.6684 -63.2681,82.6769 -63.3065,82.6801 -63.4003,82.6852 -63.4491,82.6864 -63.7482,82.6866 -63.8348,82.6848 -63.8778,82.6834 -63.9147,82.6795 -63.9611,82.6707 -64.1034,82.639 -64.1861,82.615 -64.2198,82.6142 -64.2528,82.6168 -64.4214,82.6515 -64.4798,82.6649 -64.5158,82.6816 -64.4901,82.7005 -64.5186,82.7119 -64.612,82.7132 -64.6556,82.7131 -64.6978,82.7233 -64.6618,82.7291 -64.6017,82.7288 -64.5624,82.7272 -64.5242,82.7263 -64.4861,82.7274 -64.4358,82.7432 -64.4569,82.7528 -64.5016,82.7553 -64.607,82.7577 -64.6562,82.7566 -64.7532,82.7522 -64.8755,82.7426 -65.0285,82.7288 -65.0686,82.7206 -65.0432,82.7126 -64.9437,82.7096 -64.882,82.7025 -64.9929,82.6842 -65.1122,82.6469 -65.0304,82.6337 -64.9348,82.6173 -64.9691,82.6164 -65.2014,82.6294 -65.2293,82.6316 -65.2914,82.645 -65.259,82.6659 -65.2313,82.6828 -65.3165,82.6897 -65.4932,82.695 -65.5366,82.6945 -65.5791,82.6925 -65.8547,82.6683 -65.8908,82.6649 -66.4144,82.599 -66.4378,82.5926 -66.6663,82.5719 -66.7638,82.5648 -66.9763,82.5465 -67.011,82.5424 -67.0405,82.539 -67.0932,82.53 -67.1469,82.5159 -67.1957,82.5086 -67.2357,82.5052 -67.2829,82.5041 -67.3712,82.5087 -67.5764,82.5121 -67.6982,82.5113 -68.088,82.4987 -68.186,82.4953 -68.2264,82.4928 -68.335,82.4822 -68.4037,82.4817 -68.4329,82.491 -68.4165,82.4968 -68.3944,82.5017 -68.1858,82.5325 -68.118,82.5407 -68.0377,82.5476 -67.9967,82.5495 -67.8962,82.5512 -67.844,82.5534 -67.8038,82.5564 -67.6769,82.5725 -67.562,82.5842 -67.4083,82.5941 -67.3614,82.5961 -67.264,82.6018 -67.2217,82.6046 -67.1503,82.6098 -67.0795,82.617 -66.9031,82.6357 -66.7248,82.6525 -66.6419,82.6592 -66.6064,82.6627 -66.5769,82.6671 -66.1356,82.7394 -66.1139,82.7491 -66.0666,82.7813 -66.096,82.7844 -66.4178,82.7871 -66.583,82.7858 -66.7027,82.7997 -66.7285,82.8046 -66.8044,82.8101 -66.8552,82.8117 -66.8818,82.8017 -66.8991,82.7874 -66.9596,82.7869 -67.0043,82.7877 -67.0904,82.7914 -67.1722,82.7971 -67.2377,82.8043 -67.263,82.8076 -67.3056,82.8126 -67.3719,82.8194 -67.4277,82.8201 -67.6421,82.8092 -67.8212,82.7877 -67.8596,82.7844 -67.905,82.7856 -67.9393,82.8019 -67.9105,82.8349 -67.9498,82.845 -68.0743,82.8533 -68.116,82.8562 -68.1628,82.8584 -68.2243,82.858 -68.2722,82.8557 -68.308,82.8519 -68.3373,82.847 -68.3861,82.8364 -68.4225,82.8307 -68.4654,82.8285 -68.6592,82.8384 -68.7314,82.8586 -68.7347,82.8822 -68.7711,82.8905 -68.819,82.8877 -68.8529,82.8765 -68.8759,82.8716 -68.9115,82.8675 -68.9879,82.8602 -69.3162,82.852 -69.2899,82.8645 -69.2672,82.8698 -69.217,82.8827 -69.3895,82.8895 -69.4252,82.891 -69.4972,82.8954 -69.5187,82.9034 -69.469,82.9107 -69.4201,82.9204 -69.4147,82.9548 -69.4541,82.9597 -69.5011,82.9611 -69.5639,82.9614 -69.7528,82.9571 -69.8628,82.9587 -69.9106,82.9607 -70.0101,82.9629 -70.1236,82.9623 -70.2196,82.9567 -70.3344,82.9524 -70.4428,82.9528 -70.6354,82.9472 -70.8728,82.9367 -71.172,82.8793 -71.2283,82.8571 -71.0545,82.8327 -70.83,82.7881 -70.7117,82.7696 -70.6542,82.7589 -70.5933,82.7394 -70.622,82.7321 -70.7024,82.7348 -70.7684,82.7432 -70.8338,82.7517 -70.8934,82.7591 -70.9687,82.7659 -71.0852,82.7655 -71.2416,82.7829 -71.3149,82.7916 -71.5357,82.8608 -71.5207,82.8819 -71.4959,82.8927 -71.4421,82.9075 -71.4001,82.9184 -71.3351,82.9376 -71.3573,82.9456 -71.4582,82.9482 -71.5766,82.9469 -71.7499,82.9483 -71.8559,82.9502 -71.9703,82.9508 -72.0795,82.9471 -72.1089,82.9433 -72.1437,82.936 -72.1671,82.9288 -72.2204,82.9263 -72.2663,82.9266 -72.3087,82.9377 -72.3418,82.9464 -72.3924,82.9455 -72.6687,82.9172 -72.6899,82.9049 -72.7751,82.8863 -73.0027,82.8578 -73.3671,82.7894 -73.3807,82.7748 -73.3482,82.7639 -73.318,82.7591 -73.236,82.7533 -73.202,82.7498 -73.1669,82.7431 -73.143,82.7262 -73.0003,82.6774 -72.9546,82.6658 -72.7711,82.6387 -72.728,82.6357 -72.6568,82.6286 -72.4623,82.608 -72.3946,82.5989 -72.2474,82.574 -72.3456,82.5494 -72.3802,82.5473 -72.4186,82.5512 -72.447,82.5559 -72.4959,82.5672 -72.5811,82.5809 -72.6518,82.5884 -72.6944,82.5913 -72.8192,82.5982 -72.9042,82.6037 -72.9909,82.614 -73.0253,82.6186 -73.2905,82.658 -73.3493,82.6675 -73.5583,82.7042 -73.5921,82.7179 -73.6193,82.7484 -73.7566,82.8075 -73.8224,82.8227 -73.9105,82.8415 -74.0162,82.8601 -74.1444,82.8746 -74.1721,82.8771 -74.4418,82.8909 -74.5324,82.8933 -74.6906,82.8954 -74.7341,82.8938 -74.7812,82.8913 -75.0464,82.8773 -75.3129,82.888 -75.6794,82.9017 -75.7102,82.9029 -75.7592,82.9043 -75.8094,82.9034 -75.8437,82.9003 -75.9366,82.8866 -75.9966,82.8789 -76.0899,82.8714 -76.2883,82.862 -76.5909,82.8608 -76.8624,82.8616 -76.8972,82.8656 -76.8627,82.8802 -76.9106,82.8836 -76.9492,82.8803 -76.9787,82.8751 -77.0025,82.8703 -77.0683,82.8556 -77.1056,82.8403 -77.0715,82.8229 -76.8594,82.7907 -76.7948,82.7814 -76.7542,82.7787 -76.6111,82.7646 -76.5733,82.7601 -76.4824,82.7461 -76.4409,82.7371 -76.3968,82.7239 -76.3597,82.7109 -76.3173,82.69 -76.2767,82.6726 -76.2569,82.6658 -76.2333,82.6596 -76.1794,82.6493 -76.1074,82.6411 -76.0211,82.6369 -75.9742,82.6357 -75.9195,82.6359 -75.7244,82.637 -75.7484,82.6278 -75.7906,82.6239 -75.9098,82.6192 -75.9596,82.6167 -76.0024,82.6131 -76.0369,82.5968 -76.0088,82.577 -75.9898,82.5696 -75.9696,82.5649 -75.8376,82.5389 -75.5433,82.5077 -75.4068,82.4959 -75.3623,82.4864 -75.2944,82.4818 -75.241,82.4821 -75.2063,82.481 -75.1724,82.4773 -75.1404,82.4705 -75.158,82.4603 -75.1892,82.4567 -75.2385,82.454 -75.3437,82.4496 -75.3851,82.4451 -75.4085,82.4405 -75.5109,82.411 -75.5398,82.4005 -75.6242,82.3766 -75.712,82.3541 -75.7748,82.3388 -75.8398,82.3252 -75.921,82.3086 -75.9705,82.2998 -75.9943,82.324 -75.9396,82.3617 -75.7749,82.4113 -75.7088,82.425 -75.6746,82.4296 -75.6548,82.4339 -75.6304,82.4436 -75.6498,82.4511 -75.7943,82.4705 -75.8284,82.4741 -76.1209,82.5045 -76.2716,82.5173 -76.3036,82.5198 -76.3379,82.5454 -76.3766,82.5619 -76.4064,82.574 -76.4406,82.5854 -76.498,82.6031 -76.5206,82.6086 -76.5467,82.6133 -76.582,82.617 -76.629,82.6182 -76.6808,82.6233 -76.6968,82.6564 -76.8276,82.7073 -76.8571,82.7148 -77.0473,82.7246 -77.1329,82.73 -77.1947,82.7349 -77.2553,82.7423 -77.3432,82.7537 -77.425,82.7653 -77.4941,82.7734 -77.5386,82.7754 -77.5888,82.7722 -77.6755,82.7652 -77.7119,82.7611 -77.8053,82.7492 -77.8334,82.7444 -77.9568,82.7081 -77.9196,82.6972 -77.8546,82.688 -77.8337,82.6803 -77.8699,82.6751 -77.9013,82.679 -78.0665,82.7018 -78.2247,82.6969 -78.2748,82.7069 -78.2624,82.7277 -78.2457,82.7402 -78.2312,82.7619 -78.2692,82.7776 -78.3546,82.7919 -78.3934,82.7961 -78.442,82.7972 -78.4784,82.7932 -78.5023,82.7889 -78.5474,82.7788 -78.6501,82.7495 -78.7907,82.7485 -78.898,82.8024 -79.0903,82.8246 -79.134,82.8256 -79.1777,82.8244 -79.5116,82.8081 -79.6226,82.8018 -79.8135,82.7879 -80.1151,82.7507 -80.147,82.7418 -80.1103,82.7269 -79.995,82.7022 -79.9379,82.6931 -79.9125,82.6898 -79.8769,82.6872 -79.8288,82.6863 -79.7257,82.6859 -79.6154,82.6872 -79.5674,82.6866 -79.3982,82.6733 -79.6621,82.6633 -79.6955,82.6602 -79.7165,82.655 -79.6563,82.6242 -79.6336,82.6175 -79.6073,82.6116 -79.5578,82.603 -79.3449,82.5803 -79.1256,82.5591 -79.0549,82.5523 -78.9663,82.5481 -78.6565,82.5347 -78.6197,82.5333 -78.566,82.5337 -78.3023,82.5396 -78.2495,82.531 -78.2916,82.5277 -78.5686,82.5181 -78.874,82.5207 -79.1079,82.5258 -79.1913,82.5304 -79.3395,82.5458 -79.4058,82.5523 -79.4689,82.5575 -79.509,82.5605 -79.5508,82.5617 -79.6069,82.5612 -79.6496,82.5584 -79.6932,82.5454 -79.5704,82.5169 -79.5381,82.5053 -79.5836,82.4972 -79.6632,82.5026 -79.7241,82.5096 -79.7917,82.5185 -79.8806,82.5344 -79.9003,82.5485 -79.8593,82.5706 -79.878,82.5804 -80.0122,82.6267 -80.0374,82.6319 -80.0992,82.6409 -80.1365,82.644 -80.2182,82.6495 -80.5185,82.6641 -80.6929,82.6721 -80.7379,82.6734 -81.0742,82.6794 -81.1257,82.6796 -81.1871,82.6766 -81.2283,82.6727 -81.2502,82.6684 -81.2779,82.6605 -81.2934,82.6449 -81.2234,82.6167 -81.165,82.608 -81.0216,82.5863 -80.9399,82.5683 -80.8418,82.5399 -80.8146,82.5254 -80.7947,82.5199 -80.7675,82.514 -80.7122,82.5035 -80.5922,82.483 -80.3197,82.4082 -80.3005,82.3987 -80.6115,82.3868 -80.669,82.3921 -80.7084,82.4014 -80.8542,82.4316 -81.018,82.4646 -81.0765,82.4741 -81.1491,82.4823 -81.2593,82.4903 -81.6458,82.5168 -81.6864,82.5194 -81.7743,82.5226 -81.8684,82.524 -81.9285,82.5216 -81.9681,82.5174 -82.0011,82.5131 -82.0581,82.5011 -82.0897,82.4903 -82.1052,82.4696 -82.0577,82.4488 -82.035,82.4426 -81.9784,82.4305 -81.6822,82.3832 -81.6437,82.3771 -81.5968,82.3721 -81.5637,82.3699 -81.4682,82.3712 -81.4302,82.3697 -81.2597,82.3549 -81.3874,82.3471 -81.8074,82.3557 -82.0319,82.3611 -82.1209,82.3633 -82.1734,82.3627 -82.2125,82.3606 -82.2444,82.3542 -82.4188,82.2773 -82.4437,82.2538 -82.4267,82.2379 -82.3954,82.2264 -82.3413,82.2147 -82.2294,82.1933 -82.1713,82.1839 -81.8887,82.1429 -81.6075,82.0947 -81.5457,82.0833 -81.5197,82.0795 -81.1453,82.0341 -81.0471,82.0222 -80.9759,82.0167 -80.8943,82.0137 -80.7748,82.0118 -80.6331,82.0139 -80.5955,82.0103 -80.6236,82.0038 -80.6554,81.9997 -80.6808,81.9945 -80.6997,81.9831 -80.6799,81.9707 -80.6465,81.9612 -80.6031,81.952 -80.5474,81.9418 -80.5162,81.9371 -80.4512,81.9296 -80.383,81.9225 -80.3502,81.9199 -80.0956,81.8993 -80.0588,81.8967 -79.9416,81.8902 -79.6452,81.8822 -79.6097,81.88 -79.5824,81.877 -79.5643,81.8689 -79.5741,81.8301 -79.4013,81.7865 -79.3108,81.7726 -79.2527,81.7647 -79.2217,81.7594 -79.1839,81.7494 -78.9701,81.676 -79.2248,81.6796 -79.2665,81.6808 -79.3029,81.6867 -79.3204,81.7009 -79.3417,81.7105 -79.6129,81.7836 -79.7644,81.8219 -79.8139,81.8322 -79.8821,81.8398 -79.9541,81.8447 -80.1599,81.856 -80.3665,81.8765 -80.5937,81.8895 -80.8155,81.9173 -80.8742,81.9269 -80.9728,81.9393 -81.076,81.9493 -81.1481,81.9553 -81.3308,81.9761 -81.6385,82.0123 -81.7313,82.0257 -81.8214,82.0402 -81.8796,82.0503 -81.9299,82.0617 -81.9817,82.0787 -82.0049,82.0857 -82.1704,82.1059 -82.2261,82.1146 -82.3384,82.1344 -82.3708,82.1384 -82.41,82.1407 -82.4515,82.1421 -82.7059,82.1487 -82.7408,82.1346 -82.7437,82.0919 -82.7272,82.0782 -82.7036,82.0718 -82.6567,82.0602 -82.6036,82.0509 -82.5771,82.0446 -82.4899,82.0206 -82.4423,82.0036 -82.411,81.986 -82.3986,81.9704 -82.3706,81.9581 -82.3384,81.9537 -82.3033,81.9505 -82.2655,81.948 -82.1371,81.945 -81.9632,81.9426 -81.823,81.9432 -81.7795,81.9423 -81.742,81.9399 -81.6873,81.9291 -81.6456,81.9168 -81.6077,81.8949 -81.648,81.893 -81.6853,81.8955 -81.7768,81.9089 -81.8431,81.9164 -81.9199,81.9221 -82.0044,81.9242 -82.1416,81.9249 -82.3552,81.9283 -82.3934,81.9308 -82.4767,81.9346 -82.5158,81.9357 -82.6064,81.9304 -82.6921,81.9229 -82.7939,81.92 -82.8404,81.9271 -82.7801,81.9379 -82.7197,81.9469 -82.6831,81.9592 -82.6703,81.9776 -82.6937,81.9957 -82.7169,82.0084 -82.7393,82.0167 -82.8002,82.0329 -82.8467,82.0421 -82.9,82.0517 -82.9576,82.0611 -83.0233,82.075 -83.0594,82.084 -83.0826,82.1061 -83.0785,82.1291 -83.0986,82.1385 -83.2295,82.1727 -83.3192,82.1872 -83.4793,82.2088 -83.5535,82.217 -83.5884,82.2198 -83.6725,82.224 -83.758,82.227 -83.8061,82.2267 -83.8572,82.2252 -83.8907,82.2236 -83.9389,82.2194 -84.0133,82.2113 -84.0544,82.2084 -84.0941,82.2193 -84.1274,82.2363 -84.159,82.2413 -84.1915,82.2446 -84.2684,82.2503 -84.4226,82.2609 -84.5959,82.272 -84.6238,82.2757 -84.6489,82.2838 -84.6022,82.2884 -84.4949,82.29 -84.3279,82.3074 -84.3492,82.3202 -84.3701,82.3231 -84.4011,82.3259 -84.709,82.3352 -84.7529,82.3366 -85.0,82.3327 -85.0,81.8965 -84.8278,81.8911 -84.7515,81.8869 -84.6442,81.8779 -84.6117,81.8734 -84.553,81.8643 -84.5278,81.8592 -84.4646,81.8432 -84.4353,81.8322 -84.3279,81.7476 -84.3495,81.7454 -84.3704,81.7469 -84.4026,81.7512 -84.4607,81.7686 -84.5066,81.7868 -84.5298,81.8207 -84.5444,81.8381 -84.5714,81.8437 -84.6014,81.8488 -84.6412,81.8516 -84.7128,81.8528 -84.7681,81.8483 -84.755,81.8292 -84.7373,81.8197 -84.7072,81.8075 -84.6281,81.777 -84.5775,81.7593 -84.5503,81.7489 -84.5931,81.7468 -84.697,81.7701 -84.7317,81.7784 -84.8084,81.8047 -84.8522,81.8249 -84.8745,81.8412 -84.8996,81.8514 -84.9286,81.8539 -84.9695,81.8554 -85.0,81.8559 -85.0,81.1535 -84.9979,81.1537 -84.7486,81.1694 -84.6954,81.1712 -84.6563,81.1714 -84.62,81.1689 -84.4581,81.1484 -84.4967,81.1301 -84.5232,81.1256 -84.5533,81.1224 -84.5969,81.1187 -84.6965,81.1129 -84.7406,81.109 -84.9415,81.0907 -85.0,81.0848 -85.0,80.9205 -84.9716,80.9208 -84.9336,80.9227 -84.7876,80.9318 -84.5203,80.9438 -84.309,80.9516 -84.0967,80.9577 -83.8408,80.9629 -83.483,80.9787 -83.1797,80.9973 -82.877,81.0163 -82.6908,81.023 -82.6547,81.0261 -82.6222,81.0301 -82.5947,81.0344 -82.556,81.0381 -82.3937,81.0391 -82.2943,81.0308 -82.2522,81.0312 -82.2135,81.0347 -82.1502,81.0441 -82.1193,81.0451 -82.0979,81.0418 -82.1964,81.0134 -82.2324,81.0129 -82.2607,81.0149 -82.3282,81.0178 -82.3732,81.0166 -82.4267,81.0112 -82.4676,80.9991 -82.489,80.9942 -82.5138,80.9906 -82.5552,80.9882 -82.5978,80.9865 -82.6719,80.986 -82.7811,80.9885 -82.8509,80.988 -82.8781,80.9856 -83.0387,80.9684 -83.2566,80.9555 -83.5497,80.9389 -83.6335,80.9368 -83.7503,80.9362 -83.8449,80.9329 -83.9315,80.9262 -84.0927,80.9119 -84.1293,80.9097 -84.45,80.8969 -84.6516,80.8966 -84.7254,80.8943 -85.0,80.8714 -85.0,80.3804 -84.9597,80.3785 -84.7947,80.3748 -84.7549,80.3769 -84.6924,80.3839 -84.6185,80.3906 -84.5749,80.3928 -84.4921,80.3954 -84.4179,80.3942 -84.2804,80.3872 -84.2191,80.3838 -84.1107,80.3816 -84.0434,80.3831 -83.7041,80.4014 -83.6658,80.4038 -83.6021,80.4107 -83.5716,80.4146 -83.5521,80.4197 -83.518,80.4345 -83.4665,80.4817 -83.4549,80.5099 -83.4872,80.5382 -83.5222,80.5562 -83.5466,80.5703 -83.566,80.5876 -83.5903,80.6261 -83.5564,80.629 -83.4341,80.6152 -83.3848,80.6225 -83.3604,80.6348 -83.3403,80.6394 -83.317,80.6429 -83.2231,80.6555 -83.1373,80.6667 -83.1113,80.6714 -83.0841,80.6809 -83.0568,80.6961 -83.0274,80.7035 -82.987,80.7059 -82.9215,80.7029 -82.8885,80.701 -82.8603,80.6897 -82.9926,80.6539 -83.122,80.6259 -83.153,80.6215 -83.1868,80.6189 -83.2598,80.6155 -83.2961,80.6094 -83.2745,80.5738 -83.2466,80.5694 -83.0884,80.5537 -83.0432,80.5562 -82.6727,80.5823 -82.3349,80.6061 -82.3005,80.6089 -82.2729,80.6138 -82.253,80.6258 -82.0657,80.6489 -81.9277,80.6642 -81.88,80.6709 -81.8339,80.681 -81.7862,80.6902 -81.7303,80.6974 -81.6868,80.7002 -81.4982,80.6813 -81.6437,80.6354 -81.6835,80.6268 -81.7601,80.6143 -81.8706,80.5975 -81.9509,80.5871 -81.9855,80.5844 -82.1658,80.5768 -82.2614,80.5714 -82.5061,80.5549 -82.789,80.5175 -82.8202,80.5109 -82.8902,80.4711 -82.9023,80.4393 -82.8916,80.4185 -82.8303,80.411 -82.7614,80.4077 -82.6906,80.4055 -82.6153,80.4059 -82.5333,80.4088 -82.1707,80.4223 -82.0897,80.4256 -81.7027,80.4488 -81.5459,80.4621 -81.3135,80.4729 -81.2714,80.4762 -81.0746,80.4922 -80.6961,80.5204 -80.6587,80.524 -80.5952,80.5319 -80.4603,80.5523 -80.3917,80.5602 -80.2512,80.5739 -79.9885,80.605 -79.8066,80.6276 -79.6252,80.6507 -79.3517,80.6891 -79.0077,80.7908 -78.904,80.8413 -78.9266,80.8524 -78.9471,80.8537 -79.0001,80.8506 -79.0331,80.8512 -79.0761,80.8628 -79.0537,80.8914 -78.9961,80.9245 -78.9681,80.9284 -78.8835,80.9348 -78.8227,80.9543 -78.9132,80.9693 -78.9593,80.9764 -79.0155,80.9887 -79.2279,81.0559 -79.2025,81.058 -79.1384,81.0393 -78.983,81.0048 -78.9583,81.0021 -78.9032,80.9973 -78.8162,80.9879 -78.7563,80.9809 -78.7049,80.973 -78.683,80.9662 -78.6585,80.9634 -78.6367,80.9644 -78.5595,80.9712 -78.4517,80.9835 -78.4923,81.002 -78.4665,81.0342 -78.4435,81.0465 -78.4169,81.0564 -78.3942,81.0617 -78.3465,81.0709 -78.2291,81.0876 -78.176,81.0964 -78.1518,81.1007 -78.1031,81.1119 -78.0678,81.1255 -78.0407,81.1395 -78.0155,81.1474 -77.9702,81.1554 -77.9161,81.1644 -77.6388,81.1992 -77.5719,81.2058 -77.3529,81.2277 -77.3147,81.2298 -77.1611,81.2438 -77.0084,81.2638 -76.953,81.2724 -76.7734,81.296 -76.6958,81.3032 -76.601,81.3084 -76.5486,81.3081 -76.508,81.3008 -76.7006,81.2569 -76.8618,81.2312 -76.9782,81.2144 -77.1109,81.1996 -77.247,81.1921 -77.3207,81.186 -77.3565,81.1827 -77.5942,81.141 -77.6188,81.1368 -77.7204,81.1135 -77.7563,81.1001 -77.7874,81.0855 -77.9027,81.0583 -77.9683,81.0465 -77.9978,81.0426 -78.0337,81.0394 -78.1542,81.0321 -78.1812,81.0296 -78.2095,81.0164 -78.1415,81.0056 -78.1642,80.988 -78.2005,80.9729 -78.2443,80.957 -78.272,80.9472 -78.3798,80.9242 -78.5005,80.9014 -78.5428,80.8924 -78.5824,80.8822 -78.6725,80.8522 -78.6795,80.7454 -78.6592,80.7295 -78.6347,80.7211 -78.6135,80.7194 -78.5807,80.721 -78.1665,80.7463 -77.7269,80.7677 -77.5134,80.7736 -77.3289,80.7781 -77.2031,80.7721 -77.1767,80.7699 -77.0579,80.7598 -76.9509,80.7547 -76.9184,80.7537 -76.592,80.7523 -76.548,80.753 -76.4897,80.755 -76.4502,80.7581 -76.4078,80.7648 -76.372,80.7674 -76.2782,80.7533 -76.2379,80.7364 -76.2633,80.7214 -76.3084,80.7134 -76.3425,80.7098 -76.4328,80.7057 -76.4804,80.7053 -76.5959,80.7084 -76.6771,80.7089 -77.0371,80.7023 -77.3875,80.6975 -77.481,80.6927 -77.5538,80.6861 -77.6421,80.6805 -77.9836,80.6607 -78.2516,80.6449 -78.331,80.6397 -78.3698,80.637 -78.5549,80.6147 -78.7359,80.5975 -78.9172,80.5812 -79.036,80.5722 -79.0977,80.5648 -79.3031,80.5385 -79.591,80.5004 -79.6502,80.4926 -79.7034,80.4802 -79.6774,80.4751 -79.6067,80.472 -79.3781,80.4643 -79.3098,80.465 -79.1369,80.4687 -79.0922,80.4698 -79.0004,80.4746 -78.8599,80.4811 -78.7273,80.4848 -78.6713,80.4854 -78.5984,80.4812 -78.4881,80.4781 -78.1058,80.4707 -77.8377,80.466 -77.7689,80.4611 -77.7875,80.4363 -77.8132,80.4337 -77.8483,80.4318 -78.0938,80.4337 -78.2137,80.433 -78.3404,80.4314 -78.5628,80.4252 -78.7578,80.4225 -78.9363,80.423 -78.9787,80.4227 -79.0854,80.4191 -79.2356,80.4091 -79.3031,80.4056 -79.6841,80.3983 -79.802,80.3964 -79.8595,80.397 -79.8963,80.3957 -79.9385,80.393 -79.9705,80.389 -80.0924,80.3666 -80.0455,80.3553 -80.0707,80.3381 -80.1106,80.332 -80.1549,80.3305 -80.2239,80.3325 -80.4021,80.3307 -80.5767,80.3225 -80.7275,80.3136 -80.8205,80.3062 -80.9453,80.2971 -81.0747,80.2905 -81.4132,80.2762 -81.6294,80.2722 -81.7258,80.2704 -81.7698,80.2686 -82.0109,80.2478 -82.3165,80.2289 -82.4433,80.2232 -82.5242,80.2228 -82.5908,80.2216 -82.6787,80.2162 -82.8674,80.2014 -82.9021,80.1977 -82.9324,80.1854 -82.9023,80.1725 -82.8569,80.1637 -82.6848,80.1188 -82.3579,80.0227 -82.0888,79.9425 -82.0232,79.9233 -81.9276,79.8974 -81.9048,79.8925 -81.7418,79.8729 -81.5704,79.8536 -81.4807,79.8461 -81.4483,79.8446 -81.3794,79.842 -81.3279,79.8426 -81.296,79.8408 -81.1592,79.8237 -81.1404,79.8153 -81.156,79.8073 -81.2547,79.8052 -81.2795,79.803 -81.3821,79.7899 -81.3986,79.773 -81.3703,79.7524 -81.3432,79.7354 -81.3246,79.7196 -81.309,79.7002 -81.2605,79.6115 -81.1656,79.5936 -81.1267,79.5944 -81.0333,79.5943 -80.9694,79.5901 -80.914,79.5841 -80.8185,79.5699 -80.7174,79.5531 -80.6929,79.5388 -80.6539,79.5329 -80.5709,79.5294 -80.5389,79.5291 -80.403,79.5333 -80.3621,79.535 -80.2604,79.5452 -80.2182,79.5505 -80.1767,79.5586 -80.1344,79.564 -80.1014,79.5663 -79.7869,79.5782 -79.5075,79.5796 -79.6453,79.5289 -79.6828,79.5256 -79.7191,79.5256 -79.7714,79.5282 -79.8026,79.5279 -79.8463,79.5256 -80.2466,79.4929 -80.3141,79.4863 -80.3427,79.4824 -80.3746,79.471 -80.3422,79.4522 -80.3753,79.4456 -80.435,79.4497 -80.7564,79.48 -80.9959,79.5057 -81.0222,79.5093 -81.1102,79.5155 -81.1664,79.5178 -81.2086,79.5164 -81.2438,79.5079 -81.2865,79.4901 -81.3127,79.4764 -81.3473,79.4696 -81.3809,79.4661 -81.4167,79.4664 -81.4481,79.4677 -81.4695,79.4709 -81.5006,79.4785 -81.5237,79.4933 -81.4988,79.5018 -81.475,79.5009 -81.4339,79.4911 -81.3929,79.4913 -81.361,79.5009 -81.4255,79.5567 -81.4741,79.5672 -81.5077,79.5657 -81.5396,79.5674 -81.5929,79.5744 -81.6563,79.5841 -81.7176,79.6093 -81.7847,79.6821 -81.8007,79.6964 -81.8347,79.7174 -81.8905,79.7393 -82.0207,79.7732 -82.341,79.8443 -82.4705,79.8721 -82.5377,79.8856 -82.6326,79.9037 -82.765,79.9298 -82.8745,79.9536 -82.9811,79.9774 -83.1395,80.0141 -83.161,80.0205 -83.2055,80.0337 -83.2889,80.0645 -83.3615,80.0852 -83.4507,80.1053 -83.5159,80.1172 -83.5453,80.1205 -83.6601,80.1308 -83.7229,80.1355 -83.7825,80.1389 -83.9293,80.1427 -84.3212,80.1446 -84.4336,80.1446 -84.5099,80.1438 -84.6289,80.1408 -84.6678,80.1385 -84.8258,80.1335 -84.9862,80.1382 -85.0,80.1389 -85.0,79.7981 -84.9928,79.7972 -85.0,79.7941 -85.0,79.5504 -84.9835,79.548 -84.7901,79.5049 -84.7561,79.4944 -84.7023,79.4214 -84.622,79.3708 -84.5537,79.3547 -84.4421,79.3335 -84.3935,79.3259 -84.3395,79.3196 -84.3146,79.3156 -84.2283,79.2914 -84.1811,79.2384 -84.1873,79.2174 -84.1642,79.1724 -84.1367,79.1574 -84.0896,79.1438 -84.0715,79.1346 -84.0571,79.0801 -84.0399,79.0692 -83.9305,79.0658 -83.8959,79.066 -83.8592,79.0673 -83.8141,79.0727 -83.7848,79.083 -83.7542,79.0954 -83.7172,79.1043 -83.6866,79.1018 -83.6824,79.067 -83.7498,79.0464 -83.7676,79.037 -83.7417,79.0312 -83.7144,79.0239 -83.4464,78.9608 -83.2865,78.9257 -83.2618,78.9245 -83.2346,78.9265 -83.2024,78.9352 -83.1637,78.9421 -83.1401,78.9426 -83.1128,78.9309 -83.1957,78.9087 -83.2156,78.9073 -83.245,78.9066 -83.3408,78.9082 -83.4848,78.911 -83.6356,78.9212 -83.6898,78.9267 -83.7293,78.9346 -83.7791,78.9586 -83.8073,78.9803 -83.8735,79.0046 -83.9016,79.0071 -84.2096,79.0259 -84.2402,79.027 -84.2728,79.0252 -84.3882,78.9975 -84.5245,78.951 -84.5096,78.925 -84.4847,78.915 -84.4638,78.9107 -84.4167,78.9049 -84.3886,78.9025 -84.311,78.8933 -84.2111,78.8789 -84.1682,78.8711 -84.1153,78.8584 -84.0676,78.8486 -83.9983,78.8426 -83.9397,78.8404 -83.9047,78.8402 -83.774,78.8399 -83.5534,78.8293 -83.528,78.8259 -83.4358,78.818 -83.3786,78.8143 -83.3119,78.8136 -83.2556,78.8138 -83.0065,78.8227 -82.8695,78.8245 -82.806,78.8232 -82.6678,78.8186 -82.5831,78.8098 -82.5577,78.8065 -82.4259,78.7867 -82.3043,78.7682 -82.2482,78.7664 -82.0929,78.7779 -81.8475,78.7994 -81.7455,78.8435 -81.7128,78.8672 -81.6652,78.8856 -81.6116,78.8968 -81.3642,78.9342 -81.2951,78.9443 -81.2587,78.943 -81.2309,78.929 -81.3004,78.9072 -81.4396,78.8615 -81.5016,78.7985 -81.482,78.7898 -81.422,78.7813 -81.4067,78.7656 -81.4537,78.725 -81.4894,78.723 -81.5766,78.7328 -81.5086,78.7395 -81.6611,78.7496 -81.6944,78.7495 -81.826,78.7435 -81.8594,78.7411 -82.0007,78.7242 -82.036,78.721 -82.1752,78.7169 -82.2084,78.7171 -82.3666,78.7211 -82.3954,78.7226 -82.4207,78.7258 -82.5555,78.7317 -82.7354,78.7394 -82.8005,78.7398 -82.8292,78.7392 -82.9308,78.7309 -82.9614,78.7275 -82.9959,78.7174 -82.9631,78.6855 -82.8527,78.6804 -82.8137,78.676 -82.6565,78.6502 -82.5805,78.6239 -82.5551,78.6183 -82.527,78.6152 -82.498,78.6139 -82.4095,78.6123 -82.3652,78.6122 -82.3105,78.617 -82.2804,78.6239 -82.2525,78.6297 -82.2271,78.6324 -82.203,78.6332 -82.1428,78.6331 -82.0579,78.6311 -82.0262,78.6283 -82.0018,78.6249 -81.974,78.6071 -82.0025,78.6007 -82.027,78.602 -82.0977,78.6103 -82.1544,78.6151 -82.1823,78.6158 -82.2033,78.6151 -82.329,78.5886 -82.3091,78.5681 -82.2729,78.5541 -82.2433,78.5462 -82.1643,78.5273 -82.0583,78.5011 -81.9869,78.4776 -82.0107,78.4625 -82.0567,78.4536 -82.0962,78.4516 -82.122,78.4531 -82.1654,78.4586 -82.2548,78.4755 -82.3577,78.496 -82.443,78.5391 -82.5683,78.5796 -82.5905,78.5817 -82.6563,78.5788 -82.6873,78.5799 -82.7399,78.5838 -82.8461,78.5985 -82.981,78.6246 -83.033,78.6371 -83.0519,78.6477 -83.0801,78.6556 -83.1376,78.6627 -83.1719,78.6632 -83.2289,78.6655 -83.2558,78.6679 -83.2811,78.671 -83.3221,78.6804 -83.3444,78.6861 -83.3827,78.6976 -83.4094,78.7064 -83.4363,78.7135 -83.4885,78.7206 -83.5922,78.7289 -83.8851,78.7392 -83.9529,78.7406 -84.1518,78.7391 -84.3022,78.7437 -84.451,78.7515 -84.4789,78.7537 -84.5046,78.7568 -84.5264,78.7616 -84.5836,78.7724 -84.7459,78.7967 -84.773,78.8003 -84.8009,78.8027 -84.8365,78.8012 -84.9937,78.7939 -85.0,78.7926 -85.0,78.0813 -84.9307,78.114 -84.7858,78.1848 -84.7127,78.2377 -84.7199,78.3001 -84.5837,78.399 -84.4094,78.475 -84.3672,78.474 -84.4459,78.4198 -84.4729,78.4066 -84.5171,78.3925 -84.609,78.2558 -84.5583,78.2346 -84.5152,78.2275 -84.478,78.2258 -84.4505,78.2265 -84.4195,78.2317 -84.3741,78.2502 -84.3453,78.2541 -84.3216,78.2368 -84.3488,78.2228 -84.3732,78.2187 -84.4021,78.2149 -84.4745,78.2109 -84.5355,78.2106 -84.5584,78.2071 -84.5777,78.2004 -84.6929,78.1239 -84.7135,78.0967 -84.6885,78.0799 -84.6537,78.0769 -84.6213,78.0789 -84.5216,78.0962 -84.4667,78.1029 -84.4381,78.1031 -84.2515,78.1035 -84.2248,78.1029 -84.1988,78.1007 -83.8737,78.0613 -83.9202,78.0437 -83.9477,78.0429 -83.969,78.0447 -84.0303,78.0524 -84.0614,78.0596 -84.176,78.0722 -84.2944,78.0831 -84.3758,78.0858 -84.4024,78.0832 -84.4331,78.073 -84.4531,78.0686 -84.5057,78.0602 -84.5382,78.0571 -84.574,78.0548 -84.6461,78.0566 -84.739,78.049 -84.8284,77.9817 -84.7388,77.9603 -84.6271,77.9456 -84.601,77.9433 -84.5444,77.9414 -84.5111,77.9429 -84.4827,77.9446 -84.4194,77.9506 -84.3688,77.9577 -84.3033,77.9699 -84.279,77.9719 -84.1563,77.9731 -84.0702,77.9692 -84.0438,77.9627 -84.0755,77.9567 -84.1068,77.9567 -84.2708,77.9585 -84.2936,77.9573 -84.3216,77.9537 -84.4,77.9354 -84.4273,77.9281 -84.4481,77.9179 -84.4729,77.9124 -84.5075,77.9102 -84.5338,77.9107 -84.5626,77.9129 -84.6297,77.9193 -84.7081,77.9307 -84.7548,77.9414 -84.7838,77.9435 -84.8103,77.9427 -85.0,77.9131 -85.0,77.7856 -84.9461,77.7887 -84.9121,77.7891 -84.8029,77.7872 -84.594,77.7956 -84.5636,77.7983 -84.41,77.8121 -84.3817,77.8137 -84.315,77.8101 -84.1496,77.7969 -84.1279,77.7931 -84.0673,77.7772 -84.091,77.7718 -84.1252,77.7759 -84.177,77.7838 -84.2458,77.787 -84.3586,77.7906 -84.4117,77.789 -84.4397,77.7853 -84.5842,77.7744 -84.6722,77.7778 -84.9538,77.7708 -84.9776,77.7685 -85.0,77.7653 -85.0,77.6903 -84.8908,77.7046 -84.8003,77.7176 -84.8022,77.684 -84.937,77.6674 -85.0,77.648 -85.0,77.5427 -84.9065,77.5295 -84.7216,77.4942 -84.7016,77.4892 -84.6716,77.4893 -84.4643,77.5272 -84.2903,77.5706 -84.2703,77.5767 -84.2423,77.5931 -84.2364,77.6322 -84.1825,77.6135 -84.1916,77.5935 -84.2697,77.5522 -84.3775,77.5156 -84.4149,77.5067 -84.4571,77.4977 -84.5233,77.4857 -84.5651,77.4769 -84.5869,77.4718 -84.6187,77.4551 -84.609,77.4307 -84.5203,77.4091 -84.3306,77.4007 -84.3067,77.4007 -84.2431,77.408 -84.2037,77.413 -84.1715,77.4158 -84.1381,77.4165 -83.982,77.4094 -83.9446,77.4036 -83.8961,77.3976 -83.6735,77.38 -83.6515,77.3787 -83.6265,77.3815 -83.4883,77.4069 -83.4017,77.4287 -83.2813,77.4608 -83.1809,77.4885 -83.1403,77.5044 -82.9445,77.5998 -82.9099,77.6323 -82.8759,77.6676 -82.7019,77.7617 -82.6049,77.7837 -82.522,77.8019 -82.4849,77.8222 -82.5326,77.8538 -82.5413,77.893 -82.4445,77.9315 -82.4244,77.9379 -82.4041,77.9425 -82.3015,77.9581 -82.2706,77.9606 -82.0781,77.9588 -82.1266,77.9239 -82.1625,77.9204 -82.2232,77.921 -82.2501,77.9207 -82.2906,77.9175 -82.3242,77.9119 -82.3368,77.8954 -82.2793,77.8486 -82.2951,77.8075 -82.409,77.7349 -82.4281,77.7239 -82.6493,77.6049 -82.7653,77.5535 -82.9707,77.4658 -83.118,77.406 -83.1441,77.3957 -83.1805,77.3878 -83.3483,77.3637 -83.375,77.3602 -83.4363,77.3562 -83.522,77.3553 -83.555,77.3528 -83.583,77.3402 -83.5327,77.3118 -83.4747,77.2948 -83.4099,77.284 -83.3083,77.2816 -83.2278,77.2757 -83.2232,77.2378 -83.2615,77.2332 -83.2877,77.2352 -83.5484,77.2578 -83.6224,77.2654 -83.7038,77.2774 -83.739,77.2839 -83.7597,77.2859 -83.8153,77.2869 -83.907,77.2836 -84.0232,77.2736 -84.0873,77.2717 -84.1393,77.2724 -84.1819,77.2775 -84.2228,77.285 -84.2484,77.2878 -84.2729,77.2901 -84.3024,77.29 -84.3468,77.2845 -84.3659,77.2746 -84.314,77.2244 -84.2733,77.213 -84.2415,77.2082 -84.221,77.19 -84.2329,77.1834 -84.2822,77.1845 -84.3548,77.1894 -84.402,77.1932 -84.472,77.2003 -84.5115,77.2071 -84.5771,77.223 -84.627,77.2404 -84.6972,77.2611 -84.7244,77.2656 -84.9061,77.276 -85.0,77.2753 -85.0,76.1878 -84.9979,76.1877 14,-5.0,Canada -84.9997,79.0852 -84.9741,79.0983 -84.9451,79.1058 -84.8927,79.1143 -84.8336,79.1217 -84.6651,79.1408 -84.6397,79.1534 -84.66,79.179 -84.7725,79.2328 -84.8628,79.2607 -84.8828,79.2643 -85.0,79.2947 -85.0,79.085 -84.9997,79.0852 14,-5.0,Canada -84.9984,78.8648 -84.9825,78.8673 -84.9616,78.8717 -84.9451,78.8769 -84.9222,78.886 -84.912,78.892 -84.9041,78.9008 -84.9179,78.9146 -84.9349,78.9204 -84.9515,78.9245 -84.9984,78.9319 -85.0,78.932 -85.0,78.8645 -84.9984,78.8648 25,-5.0,Canada -84.9977,77.4154 -84.9195,77.3999 -84.902,77.3957 -84.8906,77.385 -84.9089,77.3725 -84.922,77.3618 -84.9283,77.3525 -84.918,77.3454 -84.9036,77.3428 -84.8767,77.3414 -84.8456,77.3427 -84.7774,77.3479 -84.711,77.3548 -84.6848,77.3583 -84.5934,77.3752 -84.5749,77.3802 -84.5643,77.3853 -84.5727,77.3932 -84.7447,77.4572 -84.7603,77.4618 -84.856,77.4689 -84.9838,77.4746 -85.0,77.4746 -85.0,77.4157 -84.9977,77.4154 266,-5.0,Canada -84.9946,74.3904 -84.9055,74.397 -84.8767,74.4017 -84.8544,74.4072 -84.8195,74.4303 -84.8242,74.5103 -84.8474,74.5445 -84.7758,74.5956 -84.7406,74.586 -84.7334,74.5634 -84.7545,74.5157 -84.7641,74.4732 -84.6951,74.4078 -84.6753,74.4011 -84.6522,74.3997 -84.6312,74.4004 -84.423,74.4051 -84.1784,74.406 -84.138,74.4026 -84.1151,74.4022 -84.0678,74.402 -84.0214,74.4039 -83.999,74.4055 -83.9285,74.4138 -83.8903,74.4216 -83.8462,74.4293 -83.8207,74.4326 -83.6904,74.4453 -83.6382,74.4492 -83.6142,74.4495 -83.5888,74.449 -83.569,74.447 -83.5045,74.4437 -83.3891,74.4404 -83.2632,74.4755 -83.2384,74.4891 -83.1087,74.6502 -83.1057,74.6747 -83.1373,74.682 -83.1669,74.6863 -83.212,74.695 -83.2476,74.7091 -83.3045,74.74 -83.3401,74.7815 -83.3186,74.7969 -83.2923,74.7989 -83.2567,74.7942 -83.1837,74.7726 -83.1624,74.764 -83.1188,74.7471 -83.0818,74.7331 -83.0311,74.7213 -83.0101,74.718 -82.9854,74.7185 -82.9385,74.7247 -82.8936,74.725 -82.8717,74.7184 -82.8127,74.6749 -82.8664,74.6576 -82.8911,74.6459 -82.9136,74.6108 -82.9099,74.5862 -82.8753,74.5388 -82.8411,74.5137 -82.8034,74.4927 -82.739,74.4641 -82.6999,74.4475 -82.6577,74.4369 -82.5697,74.4184 -82.5339,74.4163 -82.4019,74.4096 -82.3702,74.4093 -82.3442,74.413 -82.2979,74.4256 -82.1148,74.4087 -81.8797,74.3769 -81.8489,74.374 -81.6439,74.3578 -81.6,74.3554 -81.5743,74.3563 -81.5486,74.3597 -81.4601,74.3769 -81.3005,74.4127 -81.0684,74.4626 -81.009,74.4696 -80.8496,74.4777 -80.8201,74.4748 -80.7748,74.4666 -80.7424,74.4644 -80.6349,74.461 -80.5443,74.4614 -80.383,74.4626 -80.2805,74.4737 -80.2534,74.4783 -80.1767,74.4798 -80.1319,74.4786 -80.0459,74.4742 -80.0323,74.4752 -79.9461,74.5281 -79.9829,74.5959 -79.9505,74.6279 -79.8927,74.6867 -79.8938,74.7199 -79.9439,74.7341 -79.9766,74.7409 -80.0141,74.7469 -80.0509,74.7502 -80.0867,74.7546 -80.1283,74.7608 -80.1508,74.7663 -80.2038,74.7921 -80.1801,74.8086 -80.1513,74.8208 -80.1176,74.8327 -80.0869,74.8263 -80.0679,74.783 -80.043,74.7682 -79.8585,74.7341 -79.7218,74.7111 -79.6717,74.7107 -79.6477,74.7144 -79.5242,74.7341 -79.3716,74.7558 -79.3223,74.7552 -79.2937,74.7568 -79.183,74.7701 -79.1625,74.7737 -79.1332,74.7977 -79.1837,74.8086 -79.226,74.8168 -79.2561,74.8306 -79.3355,74.8854 -79.2957,74.8934 -79.3798,74.9128 -79.4036,74.9167 -79.4817,74.9247 -79.5053,74.9257 -79.5748,74.9246 -79.7081,74.9076 -79.7321,74.9041 -79.7649,74.8964 -79.8162,74.8763 -80.03,74.844 -80.0589,74.8577 -80.0321,74.8701 -80.005,74.8731 -79.9727,74.882 -80.0276,74.8917 -80.086,74.8939 -80.0991,74.8936 -80.1161,74.8958 -80.1897,74.9178 -80.2209,74.9307 -80.0819,74.9552 -80.0008,74.9597 -79.9369,74.9616 -79.9147,74.964 -79.7462,74.9935 -79.7398,75.016 -79.7213,75.0339 -79.6201,75.0557 -79.5586,75.0626 -79.5168,75.0599 -79.4364,75.068 -79.4144,75.0703 -79.3559,75.0944 -79.2917,75.1252 -79.2275,75.1753 -79.3331,75.1761 -79.3634,75.1805 -79.3923,75.2028 -79.3471,75.2135 -79.3176,75.215 -79.294,75.2331 -79.2752,75.2733 -79.3035,75.2859 -79.3449,75.2896 -79.3969,75.2949 -79.4569,75.3326 -79.4182,75.3405 -79.3652,75.346 -79.4268,75.357 -79.5061,75.3656 -79.7106,75.3741 -79.7818,75.3713 -79.8894,75.3636 -80.0874,75.3505 -80.1369,75.3581 -80.0331,75.3801 -79.9725,75.3844 -79.8658,75.4022 -79.7339,75.4306 -79.8487,75.473 -79.882,75.4809 -79.9791,75.5028 -80.045,75.5174 -80.0961,75.5246 -80.2525,75.5442 -80.281,75.5462 -80.3259,75.5448 -80.5578,75.5319 -80.6354,75.5288 -80.7615,75.5273 -80.7875,75.5272 -81.0407,75.5443 -81.0563,75.5583 -80.9972,75.5983 -80.9882,75.665 -81.2255,75.6943 -81.3112,75.7027 -81.4349,75.7049 -81.6592,75.7044 -81.73,75.7086 -81.9127,75.7203 -82.0514,75.7299 -82.0992,75.7301 -82.2382,75.7215 -82.436,75.705 -82.5707,75.6797 -82.5914,75.6753 -82.7309,75.6496 -82.836,75.6329 -82.8941,75.628 -83.0626,75.6313 -83.1962,75.643 -83.2225,75.6565 -83.2416,75.6725 -83.2643,75.6799 -83.2844,75.6834 -83.3351,75.6852 -83.389,75.6829 -83.4416,75.6822 -83.4672,75.6837 -83.5152,75.696 -83.476,75.7075 -83.4999,75.717 -83.5354,75.7176 -83.6462,75.7123 -83.6972,75.7044 -83.8386,75.6557 -84.0667,75.5967 -84.0903,75.5929 -84.1181,75.5916 -84.2501,75.5881 -84.4211,75.5803 -84.4214,75.5395 -84.3985,75.5344 -84.3754,75.5331 -84.3161,75.5323 -84.272,75.5272 -84.2923,75.5219 -84.34,75.5203 -84.3673,75.5205 -84.3898,75.5222 -84.4513,75.5283 -84.4855,75.5366 -84.53,75.544 -84.564,75.5467 -84.6456,75.5507 -84.6934,75.5527 -84.8128,75.5508 -84.8403,75.5457 -84.956,75.5058 -85.0,75.4892 -85.0,74.3902 -84.9946,74.3904 2609,-5.0,Canada -84.9883,70.0014 -84.9807,70.0009 -84.5982,69.928 -84.5437,69.9196 -84.4721,69.9117 -84.3764,69.9031 -84.1303,69.8891 -83.9784,69.8944 -83.8995,69.8947 -83.8584,69.8908 -83.8234,69.8849 -83.7618,69.8752 -83.7157,69.8702 -83.5329,69.857 -83.472,69.8557 -83.4317,69.8583 -83.1607,69.8876 -83.0574,69.908 -82.9686,69.9188 -82.8695,69.9133 -82.8541,69.8975 -82.5614,69.8195 -82.4644,69.802 -82.3955,69.7803 -82.347,69.7702 -82.2316,69.7685 -82.1298,69.7668 -82.0355,69.7374 -82.0632,69.7375 -82.0928,69.736 -82.0651,69.7114 -82.0116,69.6999 -81.9531,69.6931 -81.9403,69.7222 -81.8831,69.7688 -81.8288,69.7837 -81.7854,69.7595 -81.7024,69.7619 -81.6764,69.7651 -81.5623,69.7838 -81.5421,69.8502 -81.5875,69.8623 -81.6635,69.8727 -81.7973,69.9212 -81.9217,69.9742 -82.1171,70.0274 -82.2323,70.0513 -82.3104,70.0672 -82.3898,70.0799 -82.4998,70.0981 -82.6377,70.1292 -82.7129,70.1569 -82.8625,70.2148 -82.8144,70.2123 -82.7925,70.2101 -82.7605,70.2024 -82.729,70.1908 -82.5549,70.146 -82.4262,70.1156 -82.2914,70.0877 -82.2632,70.0832 -82.1785,70.0699 -82.0317,70.0436 -81.9187,70.0164 -81.883,70.0045 -81.7721,69.9546 -81.6168,69.8977 -81.5047,69.8739 -81.4211,69.862 -81.309,69.8376 -81.256,69.8224 -81.1775,69.7897 -81.0404,69.7431 -80.9968,69.7328 -80.9695,69.7222 -80.9534,69.7076 -80.9332,69.6825 -80.9076,69.6708 -80.8467,69.6562 -80.7786,69.6432 -80.7771,69.6238 -80.7636,69.6245 -80.6591,69.6408 -80.5927,69.6801 -80.6161,69.7004 -80.7639,69.7724 -80.8238,69.7957 -80.8521,69.8032 -80.9131,69.8233 -80.9621,69.8454 -80.9768,69.8747 -80.9928,69.8919 -81.0118,69.9005 -81.0845,69.9257 -81.1353,69.9412 -81.2861,69.9339 -81.356,69.9608 -81.3785,69.9658 -81.4457,69.9716 -81.499,69.9753 -81.5335,69.9854 -81.5563,70.0023 -81.5751,70.0334 -81.5384,70.0399 -81.5173,70.0369 -81.4218,70.0223 -81.2817,70.0049 -81.2493,70.0022 -81.1975,70.0009 -81.1051,70.0039 -81.0455,70.0054 -80.8824,69.9943 -80.7276,69.9796 -80.6097,69.9594 -80.4841,69.9485 -80.4203,69.9569 -80.3919,69.9566 -80.3705,69.953 -80.3038,69.9359 -80.286,69.9248 -80.2595,69.9143 -80.156,69.8905 -80.1265,69.8929 -80.093,69.9104 -80.0574,69.9168 -80.0217,69.9171 -79.993,69.9156 -79.8786,69.9066 -79.7171,69.883 -79.6596,69.8586 -79.6229,69.8204 -79.6035,69.7975 -79.5186,69.7606 -79.4631,69.7578 -79.4319,69.7595 -79.3974,69.7673 -79.3744,69.7763 -79.354,69.7814 -79.302,69.7881 -79.2354,69.7944 -79.2053,69.7955 -79.0282,69.794 -79.0065,69.7935 -78.8943,69.7879 -78.6782,69.7955 -78.6204,69.8006 -78.5246,69.8386 -78.4992,69.8625 -78.4912,69.8872 -78.4926,69.9135 -78.5118,69.9581 -78.5627,70.0235 -78.5758,70.0742 -78.5947,70.0978 -78.6153,70.114 -78.7453,70.2088 -78.7629,70.2193 -78.7903,70.2313 -78.8118,70.2393 -78.8563,70.248 -78.8871,70.249 -78.9111,70.2358 -78.9277,70.2149 -78.9493,70.2126 -79.0403,70.2226 -79.061,70.2298 -79.0822,70.2454 -79.1141,70.2593 -79.1398,70.268 -79.187,70.2783 -79.2094,70.2796 -79.2392,70.2694 -79.3916,70.2958 -79.4108,70.3187 -79.3971,70.3374 -79.2385,70.398 -79.2175,70.4006 -79.1272,70.3845 -79.1132,70.3595 -79.0914,70.3443 -79.0524,70.3292 -79.0324,70.3258 -79.0022,70.3336 -78.9821,70.3457 -78.9663,70.3616 -78.89,70.523 -78.9196,70.5178 -78.9727,70.5291 -78.8708,70.5828 -78.8391,70.5873 -78.8205,70.5732 -78.8072,70.5469 -78.7872,70.54 -78.7343,70.5289 -78.6859,70.5373 -78.5492,70.4549 -78.5889,70.4577 -78.6106,70.4634 -78.636,70.4796 -78.6497,70.4996 -78.6926,70.503 -78.7159,70.4979 -78.897,70.4409 -78.9202,70.4035 -78.893,70.3773 -78.8545,70.3626 -78.7673,70.358 -78.7262,70.3572 -78.6816,70.3615 -78.5709,70.3466 -78.5285,70.2828 -78.4829,70.2569 -78.3921,70.2217 -78.3965,70.2498 -78.3532,70.265 -78.3199,70.2655 -78.2559,70.2573 -78.2222,70.2387 -78.3057,70.1967 -78.2289,70.1214 -78.1771,70.1064 -78.0652,70.112 -77.9595,70.1236 -77.7147,70.1665 -77.6373,70.1539 -77.504,70.0926 -77.5014,70.0282 -77.4946,70.0186 -77.4927,69.9966 -77.5009,69.9575 -77.5196,69.9237 -77.5253,69.9035 -77.5227,69.8723 -77.4994,69.7463 -77.4792,69.6751 -77.4639,69.6593 -77.4366,69.6499 -77.3911,69.6551 -77.2832,69.7024 -77.3399,69.7364 -77.2697,69.7667 -77.0924,69.7971 -77.0589,69.8043 -77.0202,69.8156 -76.9964,69.8246 -76.9653,69.8336 -76.8225,69.8462 -76.9487,69.8108 -77.0406,69.796 -77.0805,69.7888 -77.1234,69.7655 -77.137,69.7434 -76.9829,69.7258 -76.8593,69.7215 -76.766,69.7195 -76.6767,69.7245 -76.6148,69.6557 -76.6265,69.63 -76.6547,69.6096 -76.7014,69.5947 -76.7303,69.5891 -76.7682,69.5886 -76.7829,69.6053 -76.9902,69.5885 -77.0242,69.5529 -76.97,69.5365 -76.6788,69.4861 -76.5647,69.4705 -76.5261,69.4735 -76.3919,69.5326 -76.3632,69.5555 -76.3585,69.5776 -76.3847,69.5839 -76.4157,69.5768 -76.4673,69.588 -76.379,69.6057 -76.285,69.6001 -76.2252,69.5867 -76.1305,69.5702 -76.0609,69.5748 -76.0206,69.5719 -76.0621,69.5472 -76.0963,69.5367 -76.1826,69.5501 -76.2853,69.5637 -76.318,69.5601 -76.4556,69.4953 -76.4741,69.4612 -76.4423,69.44 -76.2531,69.3576 -76.1336,69.3183 -76.0776,69.3236 -76.0385,69.3243 -76.0046,69.3218 -75.7997,69.278 -75.6206,69.2244 -75.597,69.2158 -75.5074,69.1817 -75.449,69.1549 -75.4296,69.1326 -75.4081,69.068 -75.4426,68.9999 -75.4849,68.9914 -75.6518,68.9787 -75.7429,68.9481 -75.8067,68.9216 -75.8345,68.9144 -75.9204,68.9198 -75.9565,68.9405 -75.978,68.9457 -76.0451,68.9553 -76.0774,68.9595 -76.1775,68.9657 -76.2052,68.9663 -76.2593,68.9618 -76.338,68.9539 -76.3798,68.9494 -76.4147,68.9434 -76.4399,68.9371 -76.4742,68.9199 -76.492,68.8391 -76.4807,68.8226 -76.4451,68.7953 -76.422,68.7955 -76.3885,68.7953 -76.3624,68.7841 -76.3788,68.749 -76.4067,68.7248 -76.4458,68.7057 -76.4738,68.6933 -76.5099,68.6753 -76.5235,68.6459 -76.5047,68.6166 -76.4661,68.5987 -76.4205,68.5872 -76.3876,68.585 -76.2946,68.5872 -76.2663,68.59 -76.214,68.5994 -76.1652,68.6095 -76.0652,68.6328 -75.8878,68.676 -75.8406,68.689 -75.8177,68.6999 -75.6479,68.7484 -75.4865,68.7806 -75.4429,68.7913 -75.4043,68.8028 -75.3776,68.8128 -75.341,68.8473 -75.3766,68.8625 -75.41,68.8977 -75.3672,68.9171 -75.3254,68.9294 -75.2919,68.9303 -75.2614,68.9131 -75.2393,68.8966 -75.2176,68.8829 -75.155,68.8534 -75.037,68.8044 -75.0098,68.7979 -74.9717,68.798 -74.9527,68.8043 -74.9133,68.8298 -74.8766,68.9001 -74.8874,68.9221 -74.7884,68.9602 -74.6704,68.9923 -74.6257,68.9873 -74.4931,68.9513 -74.4857,68.9254 -74.5154,68.918 -74.5953,68.9169 -74.5724,68.9317 -74.5968,68.9315 -74.7514,68.9046 -74.7978,68.8869 -74.8612,68.8642 -74.8779,68.839 -74.8424,68.8452 -74.768,68.8556 -74.733,68.8648 -74.7082,68.8659 -74.5627,68.8457 -74.5811,68.7843 -74.6051,68.7834 -74.6285,68.7658 -74.6782,68.7524 -74.7564,68.7211 -74.6126,68.686 -74.498,68.6996 -74.478,68.7128 -74.5072,68.7288 -74.5384,68.7322 -74.5603,68.7337 -74.5237,68.751 -74.4986,68.7582 -74.4754,68.758 -74.4455,68.7534 -74.3892,68.7375 -74.4125,68.7092 -74.4335,68.7007 -74.4622,68.6943 -74.5056,68.6858 -74.5632,68.6802 -74.5683,68.6456 -74.5485,68.6328 -74.4406,68.5936 -74.3741,68.5361 -74.3623,68.5173 -74.2279,68.4564 -74.2013,68.4503 -74.0641,68.4375 -74.0148,68.4339 -73.8716,68.4258 -73.834,68.4049 -73.7857,68.417 -73.7652,68.4241 -73.7473,68.4399 -73.7284,68.4697 -73.8352,68.5365 -73.9488,68.6023 -73.9366,68.6316 -73.7368,68.6194 -73.7091,68.6176 -73.6046,68.5978 -73.5485,68.5685 -73.5803,68.4302 -73.6589,68.416 -73.7125,68.4022 -73.7334,68.357 -73.7401,68.3047 -73.698,68.2571 -73.4735,68.1599 -73.439,68.166 -73.3517,68.2041 -73.1951,68.2541 -73.2035,68.2786 -73.1558,68.3071 -73.1246,68.3073 -73.0985,68.3034 -73.076,68.2965 -73.0574,68.2892 -73.1651,68.2414 -73.2,68.2417 -73.2498,68.2254 -73.3415,68.1881 -73.2411,68.1714 -73.2006,68.1803 -73.1822,68.1883 -73.1547,68.1909 -73.117,68.1944 -73.0408,68.1721 -73.0074,68.1418 -72.8398,68.1182 -72.828,68.0519 -72.804,68.0079 -72.7882,67.9913 -72.7593,67.9705 -72.7435,67.9272 -72.7507,67.875 -72.7736,67.864 -72.7904,67.8432 -72.6841,67.7647 -72.5829,67.755 -72.4611,67.7027 -72.4451,67.6561 -72.5224,67.6143 -72.515,67.5979 -72.4467,67.5534 -72.3448,67.5441 -72.3302,67.5235 -72.2861,67.3865 -72.2137,67.2677 -72.1374,67.2053 -72.1091,67.1627 -72.13,67.079 -72.1665,67.0542 -72.1956,67.0381 -72.2196,67.0273 -72.2502,67.0184 -72.2819,67.0109 -72.3148,67.0049 -72.3763,66.9983 -72.4013,66.9976 -72.4763,66.9997 -72.5354,66.9911 -72.5668,66.9834 -72.589,66.9781 -72.6492,66.9551 -72.679,66.9367 -72.688,66.9132 -72.7029,66.8838 -72.7241,66.8472 -72.8514,66.7308 -72.9591,66.639 -73.1172,66.5886 -73.1463,66.5815 -73.1785,66.5759 -73.202,66.5658 -73.2296,66.5482 -73.2486,66.5294 -73.2684,66.4976 -73.2873,66.4706 -73.3105,66.4605 -73.38,66.4388 -73.4567,66.4112 -73.5161,66.3879 -73.5947,66.3541 -73.7105,66.3045 -73.9274,66.2173 -74.0366,66.1864 -74.1605,66.1537 -74.1912,66.1419 -74.2155,66.1307 -74.255,66.1123 -74.2896,66.09 -74.3197,66.0516 -74.2994,66.0181 -74.2747,66.0015 -74.2303,65.9747 -74.1875,65.9537 -74.1467,65.9355 -74.1086,65.9185 -73.9797,65.8418 -73.9085,65.7926 -73.8711,65.7755 -73.7811,65.7429 -73.7361,65.7389 -73.6923,65.7373 -73.6621,65.7283 -73.5616,65.6793 -73.536,65.6403 -73.514,65.5763 -73.4703,65.5376 -73.4158,65.48 -73.353,65.3924 -73.4126,65.3807 -73.5075,65.3739 -73.5574,65.3865 -73.5935,65.4276 -73.6196,65.4387 -73.6431,65.4422 -73.697,65.4502 -73.9572,65.453 -74.0337,65.443 -74.1644,65.3791 -74.1724,65.3606 -74.2038,65.321 -74.3538,65.2568 -74.3751,65.2515 -74.3973,65.2497 -74.44,65.2506 -74.4803,65.2559 -74.5038,65.2621 -74.6738,65.2957 -74.9544,65.3068 -74.9406,65.2738 -74.9207,65.2484 -74.9323,65.2076 -74.956,65.188 -75.0035,65.1753 -75.0365,65.1705 -75.0616,65.169 -75.339,65.1871 -75.4099,65.1928 -75.4326,65.2008 -75.4519,65.2139 -75.7139,65.2383 -75.7526,65.2404 -75.7915,65.2377 -75.7898,65.2122 -75.7387,65.1876 -75.7126,65.1767 -75.684,65.1736 -75.6302,65.1614 -75.6107,65.1563 -75.5767,65.1427 -75.3655,65.0574 -75.2944,65.0103 -75.275,64.9959 -75.2558,64.9789 -75.2278,64.9373 -75.2062,64.9239 -75.1499,64.9438 -75.13,64.9542 -75.1121,64.9746 -75.1129,65.0044 -75.0999,65.024 -75.0688,65.0281 -75.0404,65.0202 -75.0429,64.993 -75.1143,64.8855 -75.199,64.901 -75.2354,64.9003 -75.3237,64.8551 -75.4112,64.7973 -75.3082,64.7923 -75.2727,64.8096 -75.2073,64.8173 -75.2241,64.7526 -75.1845,64.6841 -75.1486,64.6674 -75.1487,64.6471 -75.1671,64.6391 -75.2235,64.6348 -75.2393,64.656 -75.3114,64.7311 -75.4114,64.7692 -75.446,64.7824 -75.5147,64.8623 -75.4942,64.8663 -75.407,64.8595 -75.376,64.8564 -75.3518,64.8587 -75.2699,64.893 -75.2605,64.944 -75.2761,64.965 -75.3015,64.989 -75.3202,65.0027 -75.378,65.0274 -75.4199,65.0396 -75.5893,65.0896 -75.6185,65.1362 -75.6539,65.1483 -75.7621,65.1751 -75.8084,65.1738 -75.9204,65.1954 -76.0119,65.2144 -76.0826,65.2311 -76.2091,65.2605 -76.4733,65.3169 -76.6706,65.3432 -76.6959,65.3465 -76.7666,65.3476 -76.8013,65.3351 -76.9464,65.331 -76.9672,65.3505 -76.9999,65.3637 -77.0831,65.3876 -77.1103,65.39 -77.1817,65.3895 -77.2305,65.3861 -77.2693,65.3662 -77.2433,65.3446 -77.2126,65.3308 -77.1721,65.314 -77.1372,65.2877 -77.1599,65.2768 -77.1871,65.2762 -77.2531,65.2886 -77.3078,65.2934 -77.3543,65.2386 -77.29,65.194 -77.2681,65.183 -77.2351,65.1696 -77.1622,65.1107 -77.1823,65.0948 -77.339,65.0581 -77.3889,65.0585 -77.5249,65.0419 -77.8177,64.9602 -77.9919,64.8675 -77.9697,64.807 -77.9547,64.7918 -77.9121,64.774 -77.9183,64.733 -78.0291,64.6508 -78.0054,64.6103 -78.0134,64.5462 -78.0258,64.4901 -77.8159,64.3748 -77.6774,64.3329 -77.5933,64.2582 -77.5259,64.2414 -77.5062,64.3013 -77.4347,64.2888 -77.2809,64.2408 -77.2239,64.1687 -77.1989,64.1646 -77.1744,64.1671 -77.1433,64.1724 -77.1231,64.1769 -76.9858,64.2099 -76.8162,64.1804 -76.6951,64.1511 -76.5189,64.1049 -76.5058,64.1162 -76.5199,64.1439 -76.5645,64.1559 -76.5805,64.2079 -76.554,64.2213 -76.4405,64.2311 -76.3901,64.2252 -76.3535,64.2071 -76.3377,64.188 -76.1497,64.1994 -76.0509,64.227 -76.1137,64.2395 -76.1028,64.2781 -75.8934,64.2887 -75.8001,64.3194 -75.7113,64.2913 -75.688,64.2896 -75.5713,64.2985 -75.7161,64.3912 -75.7649,64.4028 -75.745,64.4081 -75.7245,64.4069 -75.6193,64.3867 -75.5967,64.3733 -75.5778,64.3626 -75.5527,64.3587 -75.4885,64.3797 -75.5789,64.4233 -75.6679,64.452 -75.6868,64.4815 -75.6945,64.526 -75.6737,64.5316 -75.6465,64.5321 -75.6184,64.5264 -75.5919,64.5103 -75.5625,64.4958 -75.5433,64.49 -75.5165,64.484 -75.4163,64.47 -75.3355,64.4595 -75.2597,64.4429 -75.2324,64.4337 -75.1974,64.4208 -75.179,64.4067 -75.1462,64.3867 -75.0626,64.3495 -75.0011,64.3756 -75.0331,64.4022 -74.9936,64.4036 -74.9077,64.3723 -74.8618,64.3502 -74.8314,64.3377 -74.6497,64.3011 -74.538,64.2916 -74.5376,64.3121 -74.4381,64.4003 -74.3692,64.453 -74.3251,64.4788 -74.3649,64.5036 -74.3972,64.5223 -74.465,64.5601 -74.5196,64.5869 -74.5463,64.596 -74.5851,64.6054 -74.6861,64.6361 -74.8301,64.7103 -74.8006,64.7235 -74.7641,64.7131 -74.7447,64.7044 -74.7194,64.7015 -74.6885,64.6981 -74.5741,64.6919 -74.5599,64.7166 -74.5699,64.7384 -74.5883,64.7664 -74.5058,64.8182 -74.4825,64.823 -74.3988,64.8109 -74.3321,64.757 -74.3528,64.7531 -74.4191,64.7522 -74.535,64.678 -74.5536,64.6549 -74.5093,64.6201 -74.3872,64.5421 -74.2403,64.4904 -74.0854,64.5063 -74.0634,64.5282 -74.0478,64.5829 -73.9702,64.6636 -73.9456,64.6711 -73.9067,64.6476 -73.9087,64.5304 -73.9269,64.4542 -73.9588,64.4557 -73.981,64.4531 -73.9554,64.2879 -73.9162,64.2548 -73.853,64.2484 -73.8264,64.3506 -73.7791,64.3805 -73.6984,64.4221 -73.7817,64.5163 -73.7637,64.5259 -73.7354,64.5223 -73.709,64.511 -73.6915,64.4995 -73.6746,64.4873 -73.6489,64.4715 -73.6084,64.4563 -73.5212,64.4972 -73.5095,64.5475 -73.4489,64.5494 -73.3216,64.5325 -73.3031,64.4854 -73.3275,64.4737 -73.3263,64.4268 -73.2786,64.43 -73.1673,64.4542 -73.1535,64.4724 -73.1596,64.5084 -73.1747,64.524 -73.1988,64.5563 -73.1562,64.5776 -73.0209,64.5271 -73.0209,64.4983 -73.1816,64.3962 -73.27,64.3661 -73.2725,64.2916 -73.2342,64.1908 -73.1946,64.1784 -73.1267,64.1949 -73.0788,64.2321 -72.7587,64.0826 -72.733,64.0128 -72.7783,64.005 -72.7942,63.9815 -72.6923,63.9406 -72.6357,63.9316 -72.6124,63.9231 -72.5764,63.8821 -72.5527,63.8867 -72.5236,63.9105 -72.5592,63.9291 -72.539,63.9983 -72.518,63.9994 -72.4494,63.941 -72.4685,63.864 -72.4978,63.8255 -72.4945,63.7949 -72.4918,63.7739 -72.4427,63.7741 -72.3862,63.7636 -72.3217,63.7313 -72.354,63.7248 -72.382,63.7137 -72.2936,63.703 -72.2249,63.7093 -72.2318,63.7316 -72.2221,63.7668 -72.0995,63.8706 -72.0807,63.8507 -72.0672,63.8142 -72.0725,63.7891 -72.1275,63.7086 -72.1546,63.6965 -72.1788,63.6986 -72.2166,63.6776 -72.1796,63.5976 -72.1447,63.5933 -72.0884,63.5932 -72.0712,63.603 -72.0275,63.6699 -72.0122,63.6571 -71.9103,63.6003 -71.8222,63.5706 -71.7857,63.5741 -71.7395,63.6013 -71.7087,63.6809 -71.802,63.6914 -71.8281,63.671 -71.857,63.6737 -71.8437,63.7032 -71.8227,63.7206 -71.7968,63.7295 -71.7588,63.7305 -71.6856,63.704 -71.5594,63.6177 -71.5218,63.6251 -71.4837,63.6436 -71.4422,63.6373 -71.4251,63.6022 -71.443,63.5712 -71.4346,63.5063 -71.3226,63.5001 -71.3047,63.5125 -71.2682,63.5557 -71.237,63.5544 -71.2278,63.526 -71.2705,63.4908 -71.2396,63.4871 -71.1902,63.4985 -71.1855,63.5254 -71.161,63.5337 -71.1132,63.5334 -71.09,63.5243 -71.1767,63.4526 -71.2713,63.4078 -71.4669,63.3459 -71.4943,63.3416 -71.5426,63.3418 -71.5703,63.3448 -71.6073,63.3501 -71.6446,63.3539 -71.6849,63.3572 -71.7921,63.3651 -71.8817,63.37 -71.9986,63.3649 -71.93,63.3198 -71.8679,63.3129 -71.66,63.3056 -71.6542,63.2488 -71.6296,63.1787 -71.5701,63.0996 -71.4848,63.0633 -71.4657,63.0574 -71.3201,63.0249 -71.2713,62.9822 -71.1199,62.9255 -71.0991,62.9243 -71.0606,62.945 -70.9938,62.9952 -70.8969,62.9931 -70.8532,63.0277 -70.862,63.0505 -70.8448,63.0749 -70.8231,63.0833 -70.7759,63.0921 -70.7176,63.0618 -70.7253,63.0345 -70.8726,62.9665 -70.9523,62.9525 -70.9884,62.9528 -71.0113,62.9112 -70.982,62.902 -70.9272,62.903 -70.8744,62.9125 -70.8374,62.9094 -70.7095,62.87 -70.7177,62.8479 -70.7478,62.8362 -70.7151,62.8227 -70.692,62.8194 -70.5276,62.8035 -70.3663,62.7879 -70.3404,62.7712 -70.2224,62.713 -70.0981,62.673 -70.0806,62.671 -69.9853,62.672 -69.7702,62.6917 -69.5918,62.7032 -69.3472,62.6866 -69.3684,62.6643 -69.3988,62.6583 -69.4258,62.6453 -69.4552,62.5813 -69.3841,62.5258 -69.3017,62.4737 -69.2954,62.5076 -69.2734,62.4932 -69.226,62.4599 -69.136,62.402 -69.0971,62.3789 -69.0587,62.3616 -69.0258,62.349 -68.9871,62.3344 -68.9051,62.3051 -68.8618,62.2972 -68.7889,62.2892 -68.7486,62.2843 -68.6259,62.2517 -68.591,62.228 -68.483,62.1876 -68.4236,62.1743 -68.3871,62.1686 -68.3367,62.1666 -68.2691,62.1634 -68.193,62.159 -68.1673,62.1561 -68.1308,62.1459 -68.101,62.1437 -68.0,62.1407 -68.0,63.0718 -68.0162,63.0761 -68.0529,63.1107 -68.0718,63.1432 -68.1368,63.2072 -68.1546,63.2203 -68.2254,63.2668 -68.3614,63.3433 -68.4232,63.3742 -68.5829,63.4503 -68.6254,63.4744 -68.6582,63.5107 -68.6746,63.5501 -68.6895,63.5655 -68.7908,63.6299 -68.8574,63.6678 -68.8267,63.6807 -68.7843,63.6796 -68.7405,63.6661 -68.6644,63.6507 -68.579,63.6594 -68.5109,63.6688 -68.4077,63.6539 -68.2937,63.6177 -68.2612,63.5826 -68.2313,63.567 -68.0,63.4877 -68.0,65.7139 -68.0098,65.7158 -68.0,65.7396 -68.0,65.7599 -68.0082,65.8439 -68.0565,65.8383 -68.1223,65.8287 -68.1585,65.8255 -68.1904,65.8396 -68.1856,65.9209 -68.166,65.945 -68.1397,65.931 -68.0658,65.8938 -68.0356,65.8865 -68.0,65.8816 -68.0,66.0274 -68.0192,66.0341 -68.0602,66.0451 -68.0815,66.0452 -68.1072,66.0232 -68.0921,65.9935 -68.1396,66.0005 -68.1617,66.0095 -68.2487,66.0499 -68.2704,66.0698 -68.4294,66.0952 -68.5292,66.0956 -68.7043,66.1055 -68.6687,66.1123 -68.5732,66.1154 -68.3989,66.1173 -68.2015,66.1137 -68.1062,66.0994 -68.0,66.0472 -68.0,68.4857 -68.071,68.4975 -68.0997,68.5001 -68.193,68.5055 -68.2514,68.505 -68.2806,68.4886 -68.3088,68.4748 -68.5109,68.4718 -68.5638,68.4821 -68.5434,68.4868 -68.5087,68.4904 -68.4604,68.4911 -68.3814,68.4967 -68.3588,68.502 -68.333,68.5226 -68.3879,68.537 -68.4178,68.5413 -68.4487,68.5454 -68.4924,68.5474 -68.5344,68.5427 -68.5653,68.5331 -68.6044,68.5148 -68.6584,68.5019 -68.6899,68.5013 -68.7518,68.5172 -68.632,68.5551 -68.6021,68.5609 -68.5345,68.5675 -68.512,68.5681 -68.4764,68.5677 -68.4167,68.564 -68.1995,68.5407 -68.0,68.5405 -68.0,68.6091 -68.0517,68.6187 -68.7972,68.6977 -68.8186,68.7023 -69.0462,68.7157 -69.2248,68.7334 -69.1676,68.7432 -69.1467,68.7436 -69.0828,68.7388 -69.0105,68.7409 -69.0312,68.7519 -69.0982,68.7628 -69.1318,68.7666 -69.1839,68.7686 -69.2225,68.7663 -69.2425,68.7761 -69.2141,68.7855 -69.1752,68.788 -69.1331,68.7874 -69.1037,68.7841 -68.9587,68.76 -68.8555,68.7336 -68.8209,68.7263 -68.7537,68.7187 -68.6547,68.7114 -68.5326,68.7081 -68.4566,68.7067 -68.3811,68.707 -68.4118,68.7329 -68.4549,68.7505 -68.4103,68.7585 -68.2805,68.7508 -68.2067,68.744 -68.0256,68.7264 -68.0,68.7229 -68.0,68.7523 -68.0345,68.7633 -68.1213,68.7814 -68.1476,68.7865 -68.2178,68.7932 -68.2868,68.7949 -68.3347,68.8051 -68.2282,68.8087 -68.1437,68.8063 -68.1037,68.8027 -68.0383,68.7902 -68.0,68.7825 -68.0,68.8583 -68.0155,68.8581 -68.0461,68.8603 -68.1184,68.8762 -68.1449,68.8913 -68.1831,68.8973 -68.2946,68.8841 -68.401,68.8868 -68.1892,68.9202 -68.1682,68.9219 -68.1224,68.9139 -68.0955,68.908 -68.0656,68.9033 -68.0,68.8953 -68.0,69.0502 -68.0321,69.0576 -68.205,69.0826 -68.2349,69.0863 -68.2662,69.0879 -68.3243,69.0774 -68.6063,69.0209 -68.7258,68.9942 -68.7454,68.9671 -68.7781,68.9091 -68.8072,68.8897 -68.8257,68.8822 -68.8546,68.876 -68.8754,68.8819 -68.853,68.8918 -68.8134,68.9132 -68.7807,69.0057 -68.8183,69.0189 -68.7255,69.0315 -68.5517,69.0506 -68.3621,69.1081 -68.4708,69.1199 -68.5096,69.1212 -68.5572,69.1199 -68.5903,69.1146 -68.6198,69.1105 -68.6502,69.1093 -68.715,69.1126 -68.7652,69.1184 -68.796,69.1239 -68.8198,69.1317 -68.7751,69.1316 -68.6921,69.1255 -68.5424,69.1343 -68.517,69.139 -68.4964,69.1403 -68.403,69.1376 -68.264,69.1321 -68.1165,69.1222 -68.017,69.1109 -68.0,69.1097 -68.0,69.1712 -68.0196,69.1788 -68.0523,69.1853 -68.0841,69.1884 -68.1055,69.1881 -68.1836,69.1859 -68.3574,69.1908 -68.39,69.1959 -68.5106,69.211 -68.783,69.2427 -68.8084,69.2424 -68.8651,69.238 -68.9996,69.2105 -69.0278,69.1981 -69.0602,69.1787 -69.0992,69.1823 -69.0544,69.2137 -69.0281,69.2215 -68.8916,69.2602 -68.8665,69.2655 -68.8359,69.2675 -68.8053,69.2663 -68.6965,69.2565 -68.6639,69.2525 -68.5924,69.2411 -68.5276,69.2328 -68.3174,69.2121 -68.2187,69.2051 -68.189,69.2061 -68.164,69.2092 -68.1385,69.215 -68.0955,69.221 -68.0691,69.2224 -68.0379,69.2185 -68.0,69.2083 -68.0,69.4015 -68.0348,69.4086 -68.1458,69.434 -68.1699,69.4406 -68.3884,69.4885 -68.4636,69.4976 -68.5199,69.501 -68.6122,69.4986 -68.777,69.4767 -68.8152,69.4682 -68.8483,69.4498 -69.0025,69.4304 -69.0573,69.4253 -69.1504,69.4162 -69.1836,69.4156 -69.2262,69.4201 -69.3002,69.429 -69.3569,69.4398 -69.4634,69.4533 -69.5127,69.4585 -69.5413,69.4589 -69.582,69.4554 -69.6458,69.4468 -69.6695,69.4391 -69.6935,69.4276 -69.7257,69.4187 -69.7487,69.4173 -69.8136,69.4243 -69.8522,69.4293 -69.8776,69.4427 -69.6876,69.4691 -69.5938,69.4778 -69.5383,69.4795 -69.4805,69.4774 -69.3992,69.4708 -69.2688,69.4573 -69.2144,69.4479 -69.1843,69.4425 -69.0612,69.447 -69.0391,69.4521 -68.8316,69.4991 -68.6909,69.526 -68.4966,69.551 -68.4718,69.5472 -68.3697,69.536 -68.348,69.5357 -68.2049,69.537 -68.1711,69.541 -68.088,69.5895 -68.071,69.6155 -68.0,69.6428 -68.0,70.1922 -68.0079,70.191 -68.164,70.1285 -68.1961,70.0826 -68.1754,70.0458 -68.1477,70.0446 -68.117,70.0461 -68.0779,70.0439 -68.0486,70.029 -68.0701,70.0112 -68.0901,70.0043 -68.1875,69.9729 -68.3212,69.9557 -68.4732,69.8918 -68.6095,69.8572 -68.6519,69.8614 -68.7201,69.8625 -68.7895,69.8599 -68.9261,69.8331 -68.9514,69.8254 -69.0437,69.7951 -69.1104,69.7669 -69.1349,69.7464 -69.1633,69.726 -69.2309,69.6922 -69.252,69.6868 -69.3008,69.6853 -69.3392,69.6893 -69.402,69.7069 -69.4218,69.7139 -69.4516,69.7192 -69.4918,69.7206 -69.5706,69.7165 -69.6049,69.7084 -69.6316,69.6954 -69.6607,69.6725 -69.6599,69.6409 -69.7931,69.5596 -69.8392,69.5252 -69.8488,69.5296 -69.8477,69.5749 -69.7207,69.6909 -69.6982,69.7064 -69.6763,69.719 -69.6541,69.7295 -69.6139,69.7432 -69.5934,69.7475 -69.5623,69.7494 -69.5323,69.7496 -69.4221,69.7452 -69.3923,69.7365 -69.3658,69.7296 -69.3167,69.7232 -69.2826,69.7276 -69.2471,69.7382 -69.2199,69.7495 -69.1955,69.7652 -69.1623,69.7918 -69.0026,69.8626 -68.938,69.8844 -68.8039,69.914 -68.7497,69.9208 -68.7173,69.9259 -68.6558,69.9442 -68.6318,69.9532 -68.5922,69.9726 -68.493,70.0613 -68.5307,70.1111 -68.6959,70.1118 -68.7834,70.1015 -68.8576,70.0868 -69.0086,70.093 -69.0285,70.0956 -69.0655,70.0965 -69.2496,70.0863 -69.2715,70.0843 -69.4986,70.0535 -69.521,70.0482 -69.586,70.0228 -69.6351,69.9926 -69.6504,69.9529 -69.6224,69.9322 -69.5998,69.922 -69.5905,69.8909 -69.625,69.873 -69.6609,69.8646 -69.6852,69.8623 -69.716,69.8627 -69.7446,69.8655 -69.7812,69.8713 -69.826,69.8736 -69.9152,69.8681 -69.9459,69.8624 -69.9789,69.8463 -70.0398,69.8172 -70.1024,69.7887 -70.1967,69.753 -70.2255,69.7474 -70.2513,69.7472 -70.2837,69.7489 -70.3125,69.7532 -70.2942,69.7683 -70.2741,69.771 -70.2397,69.7693 -70.1386,69.7991 -70.068,69.8376 -70.0117,69.871 -69.9462,69.8828 -69.9047,69.8905 -69.8503,69.8991 -69.8199,69.9008 -69.7841,69.8987 -69.7451,69.8925 -69.6923,69.8878 -69.6638,69.8981 -69.6771,69.925 -69.7004,69.9386 -69.7409,69.9551 -69.8699,69.9677 -69.9042,69.9643 -69.9361,69.9472 -69.9598,69.9328 -69.9993,69.9247 -70.0274,69.9378 -69.987,69.9522 -69.9277,69.976 -69.883,69.9809 -69.8356,69.9831 -69.8135,69.9833 -69.792,69.985 -69.7627,69.994 -69.7206,70.0105 -69.692,70.0291 -69.6751,70.0602 -69.5128,70.1068 -69.4848,70.1129 -69.3189,70.147 -69.1292,70.1728 -69.0804,70.1785 -68.9176,70.1963 -68.7876,70.2011 -68.753,70.202 -68.6306,70.2183 -68.582,70.2259 -68.5042,70.2499 -68.506,70.2844 -68.5167,70.3143 -68.5046,70.3412 -68.4677,70.3607 -68.4196,70.3731 -68.3991,70.3541 -68.4213,70.3291 -68.4189,70.3037 -68.3597,70.2806 -68.337,70.2761 -68.2988,70.2833 -68.2976,70.3124 -68.2184,70.3637 -68.1694,70.3884 -68.1395,70.4049 -68.1275,70.4333 -68.1398,70.4589 -68.1658,70.4724 -68.2364,70.4896 -68.3302,70.5115 -68.361,70.5167 -68.395,70.521 -68.428,70.5251 -68.4637,70.528 -68.5094,70.5341 -68.7725,70.5888 -68.8021,70.5956 -68.9753,70.6447 -69.0338,70.6741 -69.064,70.6851 -69.086,70.6893 -69.3031,70.6983 -69.3808,70.6855 -69.4116,70.6791 -69.4624,70.6651 -69.4885,70.6433 -69.6182,70.5896 -69.718,70.5845 -69.8297,70.5562 -69.8655,70.518 -69.9346,70.5197 -70.0001,70.5229 -70.186,70.5205 -70.2127,70.481 -70.1903,70.4673 -70.1632,70.4431 -70.1516,70.4057 -70.292,70.3839 -70.3298,70.3915 -70.309,70.4014 -70.2467,70.4324 -70.2594,70.4546 -70.2842,70.4695 -70.302,70.4815 -70.3168,70.5205 -70.2959,70.5352 -70.2566,70.5453 -70.1871,70.5455 -70.1185,70.5433 -70.0767,70.5475 -70.0523,70.5536 -69.9633,70.5787 -69.9208,70.5928 -69.8069,70.635 -69.7572,70.6562 -69.7211,70.675 -69.644,70.7229 -69.6161,70.7641 -69.675,70.7839 -69.7108,70.7898 -69.7482,70.7866 -69.8289,70.7605 -69.9158,70.7372 -70.0696,70.7042 -70.0957,70.7008 -70.1654,70.6928 -70.206,70.6895 -70.2374,70.6854 -70.2623,70.6791 -70.4522,70.6309 -70.6115,70.5762 -70.7532,70.5451 -70.8089,70.5397 -70.8416,70.5286 -70.8909,70.4588 -70.871,70.448 -70.9334,70.3682 -70.9763,70.3182 -71.0126,70.276 -71.0718,70.1962 -71.0538,70.1778 -71.1734,70.0369 -71.2082,70.0204 -71.2351,70.013 -71.2797,69.9954 -71.3178,69.9767 -71.3362,69.9593 -71.3431,69.9474 -71.3765,69.9362 -71.3655,69.961 -71.3332,69.9931 -71.2759,70.0353 -71.2044,70.0906 -71.1581,70.127 -71.1235,70.1655 -71.1335,70.1896 -71.1619,70.216 -71.1009,70.2857 -71.013,70.4398 -71.0928,70.4574 -71.2369,70.4817 -71.2669,70.4856 -71.3446,70.4819 -71.3437,70.4562 -71.3644,70.4322 -71.3827,70.4224 -71.4804,70.3557 -71.5203,70.2708 -71.5805,70.2197 -71.6465,70.2041 -71.6833,70.2015 -71.6563,70.2112 -71.6228,70.2219 -71.5988,70.2344 -71.5858,70.2557 -71.5703,70.3197 -71.5947,70.3343 -71.642,70.3362 -71.5826,70.3746 -71.4224,70.4589 -71.4307,70.5035 -71.3972,70.5168 -71.3007,70.5152 -71.2541,70.5116 -71.229,70.5079 -71.185,70.4989 -71.1518,70.4947 -71.1212,70.4916 -71.0643,70.4895 -71.023,70.4906 -70.9853,70.5019 -70.9683,70.5248 -70.9528,70.5518 -70.931,70.5657 -70.8947,70.5762 -70.8641,70.5824 -70.8054,70.5914 -70.7215,70.6084 -70.6387,70.6325 -70.6131,70.6415 -70.5839,70.6572 -70.5185,70.7475 -70.4289,70.7828 -70.3931,70.8019 -70.3547,70.8322 -70.4415,70.9602 -70.4739,70.9787 -70.5627,71.0108 -70.6014,71.0229 -70.6377,71.0251 -70.6741,71.0205 -70.7332,71.006 -70.9999,70.9349 -71.0231,70.926 -71.0457,70.9114 -71.1262,70.8154 -71.1924,70.7895 -71.3814,70.7792 -71.5262,70.757 -71.6561,70.7301 -71.7339,70.7138 -71.8414,70.6938 -71.9825,70.6819 -72.0219,70.6733 -72.0472,70.6652 -72.0696,70.6539 -72.0838,70.6368 -72.1079,70.6108 -72.1429,70.5846 -72.1709,70.572 -72.2086,70.5622 -72.3334,70.5393 -72.3882,70.5155 -72.4057,70.5174 -72.4476,70.5413 -72.4145,70.5485 -72.3787,70.5522 -72.336,70.554 -72.3039,70.5588 -72.2183,70.5843 -72.1997,70.5935 -72.0067,70.7449 -72.0929,70.772 -72.1384,70.7739 -72.1918,70.7673 -72.2368,70.7566 -72.3124,70.7403 -72.347,70.734 -72.489,70.7312 -72.3601,70.7502 -72.159,70.7939 -72.1519,70.8279 -72.1294,70.8557 -72.105,70.8639 -72.0704,70.8684 -72.0357,70.8679 -72.0081,70.8717 -71.9411,70.9323 -71.9446,70.9583 -71.9128,70.9791 -71.7461,71.014 -71.7257,71.0156 -71.7045,71.0158 -71.6844,71.0147 -71.6482,71.0104 -71.5502,70.9943 -71.477,70.9802 -71.4444,70.9749 -71.3877,70.9711 -71.3164,70.968 -71.2949,70.9717 -71.2526,70.9998 -71.1811,71.0666 -71.1609,71.0839 -71.0643,71.1208 -71.0425,71.1267 -71.0058,71.1392 -70.9842,71.148 -70.9601,71.1671 -71.0769,71.2553 -71.131,71.2904 -71.2822,71.375 -71.3883,71.4093 -71.4194,71.4154 -71.4693,71.4233 -71.5138,71.4285 -71.6811,71.4518 -71.9844,71.4952 -72.1327,71.5174 -72.2758,71.5411 -72.306,71.5477 -72.3342,71.5552 -72.3618,71.5648 -72.4044,71.5603 -72.4247,71.5477 -72.4405,71.5063 -72.444,71.4754 -72.4812,71.4422 -72.5114,71.4299 -72.5986,71.361 -72.5918,71.3357 -72.6679,71.3188 -72.6897,71.3187 -72.7285,71.3223 -72.8173,71.2994 -72.7949,71.2667 -72.7841,71.2195 -72.8137,71.1734 -72.8317,71.1507 -72.8516,71.1367 -72.8776,71.1317 -72.9057,71.137 -72.9405,71.137 -72.9741,71.1305 -73.013,71.1045 -73.0032,71.07 -73.2063,70.8899 -73.2813,70.9392 -73.2587,70.9542 -73.2116,70.9646 -73.1517,70.9832 -73.1266,70.9988 -73.0846,71.0454 -73.0689,71.0657 -73.0715,71.0872 -73.0896,71.1067 -73.1008,71.1288 -73.0718,71.142 -73.0462,71.1466 -72.9873,71.1525 -72.8892,71.1724 -72.9153,71.1915 -73.1517,71.2466 -73.187,71.2512 -73.213,71.2511 -73.2653,71.2434 -73.2618,71.2204 -73.2854,71.2059 -73.3798,71.176 -73.4504,71.134 -73.5022,71.074 -73.4925,71.0378 -73.5004,71.0 -73.5241,70.9857 -73.5557,70.9759 -73.5845,70.9721 -73.6776,70.9684 -73.7038,70.9538 -73.7169,70.9658 -73.6736,70.9806 -73.6191,70.9866 -73.5845,70.9928 -73.5634,71.0024 -73.5461,71.0392 -73.5463,71.076 -73.5093,71.1439 -73.4938,71.1601 -73.4529,71.1968 -73.4209,71.2109 -73.3314,71.2428 -73.2141,71.2933 -73.2679,71.3435 -73.3076,71.3419 -73.33,71.3322 -73.3444,71.3117 -73.3479,71.2867 -73.3706,71.2784 -73.4343,71.2624 -73.4588,71.2636 -73.4597,71.3623 -73.4467,71.4233 -73.4276,71.4337 -73.395,71.4535 -73.4206,71.479 -73.4595,71.49 -73.4823,71.4926 -73.5179,71.4931 -73.5684,71.4914 -73.5901,71.4861 -73.6937,71.4339 -73.7998,71.322 -73.8374,71.2697 -73.8688,71.208 -73.9479,71.1491 -73.9829,71.1324 -74.0203,71.117 -74.0611,71.1103 -74.042,71.1232 -74.0174,71.1353 -73.9744,71.1579 -73.9286,71.186 -73.893,71.2425 -73.8658,71.3447 -73.912,71.3466 -73.95,71.344 -73.9876,71.3381 -74.0201,71.3312 -74.1357,71.3197 -73.9984,71.3512 -73.9235,71.3682 -73.8392,71.3969 -73.8163,71.4363 -73.719,71.5146 -73.6194,71.5663 -73.599,71.5757 -73.5608,71.5887 -73.5224,71.5953 -73.4914,71.6021 -73.4663,71.6113 -73.4442,71.6241 -73.4203,71.6574 -73.4352,71.677 -73.5464,71.6815 -73.5755,71.6816 -73.7554,71.674 -73.798,71.6662 -73.8239,71.6561 -73.8441,71.6444 -73.8666,71.627 -73.9733,71.5425 -73.9906,71.4443 -74.0466,71.4618 -74.0734,71.4812 -74.0809,71.508 -74.0711,71.533 -74.0537,71.5448 -74.0298,71.5507 -74.0002,71.5563 -73.9736,71.5645 -73.9535,71.5814 -73.9357,71.6391 -73.9736,71.6437 -74.0948,71.635 -74.1274,71.6254 -74.1442,71.6093 -74.167,71.5969 -74.2086,71.582 -74.3704,71.5365 -74.4065,71.4937 -74.4509,71.4616 -74.4904,71.4626 -74.5206,71.4582 -74.5456,71.4497 -74.566,71.4264 -74.5564,71.3748 -74.4792,71.3412 -74.4621,71.3285 -74.4557,71.3012 -74.4735,71.281 -74.4992,71.2655 -74.6973,71.156 -74.8215,71.1076 -74.8926,71.0871 -74.9093,71.0855 -74.9026,71.1103 -74.7161,71.1929 -74.5326,71.2892 -74.544,71.3245 -74.6597,71.4249 -74.6836,71.429 -74.7038,71.4294 -74.7704,71.4268 -74.8225,71.4239 -74.8775,71.4142 -74.9154,71.4008 -74.9368,71.3815 -74.9704,71.3723 -74.9422,71.403 -74.9074,71.4206 -74.858,71.4367 -74.8212,71.4414 -74.7968,71.4424 -74.7573,71.4432 -74.6959,71.4468 -74.6381,71.4532 -74.5602,71.4809 -74.5352,71.491 -74.5084,71.5085 -74.4725,71.5372 -74.4575,71.5609 -74.5143,71.6002 -74.5441,71.5987 -74.6175,71.5859 -74.6818,71.5573 -74.8255,71.5122 -75.0307,71.4517 -75.2277,71.4254 -75.0257,71.4987 -74.9394,71.5161 -74.8809,71.5275 -74.8344,71.5372 -74.7656,71.5692 -74.8422,71.6016 -74.8683,71.6047 -74.9099,71.6057 -75.003,71.599 -75.0664,71.591 -75.2142,71.582 -75.1953,71.594 -75.1668,71.6007 -74.9827,71.6201 -74.9612,71.6219 -74.9153,71.6229 -74.8716,71.621 -74.825,71.617 -74.7101,71.6133 -74.5303,71.6417 -74.5036,71.6501 -74.4304,71.6895 -74.3959,71.7142 -74.3328,71.7187 -74.2948,71.7085 -74.2656,71.7065 -74.2289,71.7085 -74.0895,71.7203 -74.0626,71.7252 -73.9979,71.7731 -73.9439,71.8673 -73.9477,71.8879 -74.0023,71.936 -74.0505,71.9667 -74.0764,71.9788 -74.1311,71.9856 -74.359,71.9936 -74.449,71.9952 -74.4827,71.9953 -74.5878,71.9988 -74.6245,72.0024 -74.6578,72.0078 -74.7743,72.0271 -74.8147,72.0321 -74.8351,72.0323 -74.8658,72.028 -74.9099,72.0145 -74.9364,72.0028 -74.9549,71.9877 -74.9771,71.9539 -74.9971,71.9362 -75.0203,71.9274 -75.0713,71.917 -75.1503,71.9036 -75.1718,71.9024 -75.1941,71.9018 -75.2365,71.904 -75.2988,71.9052 -75.3278,71.9013 -75.3605,71.8908 -75.3907,71.8674 -75.3905,71.8357 -75.4023,71.8107 -75.4777,71.7307 -75.4977,71.7152 -75.6141,71.6332 -75.6424,71.6218 -75.6698,71.6133 -75.7032,71.6076 -75.7244,71.6061 -75.9145,71.6012 -75.8959,71.6104 -75.8628,71.6145 -75.8199,71.6142 -75.7666,71.6155 -75.7213,71.6195 -75.6951,71.6261 -75.6529,71.6413 -75.6253,71.6552 -75.5161,71.7545 -75.5088,71.7874 -75.4331,71.8894 -75.4023,71.9057 -75.3698,71.9155 -75.337,71.9225 -75.3162,71.9257 -75.2716,71.9296 -75.2261,71.9297 -75.1604,71.9332 -75.1396,71.9358 -75.1041,71.9429 -75.0776,71.9501 -75.0483,71.9789 -75.2545,72.0169 -75.3092,72.0227 -75.3497,72.0247 -75.407,72.0257 -75.4515,72.0238 -75.5313,72.0174 -75.6173,72.0077 -75.649,72.0011 -75.7152,71.9861 -75.7768,71.9714 -75.819,71.9584 -75.845,71.9476 -75.8681,71.9267 -75.8889,71.899 -75.9105,71.8831 -76.1318,71.7893 -76.1686,71.7963 -76.1389,71.8245 -76.1224,71.8348 -76.0889,71.8514 -76.0553,71.8617 -76.0131,71.8722 -75.9855,71.8845 -75.9555,71.9029 -75.9262,71.9278 -75.9016,71.9588 -75.8749,71.9773 -75.8443,71.9878 -75.6873,72.0177 -75.6345,72.0265 -75.5539,72.0382 -75.5306,72.0405 -75.4283,72.0472 -75.3411,72.05 -75.2988,72.0485 -75.2619,72.045 -75.2089,72.0384 -75.1451,72.0294 -75.1034,72.0222 -75.0675,72.0215 -75.0473,72.0266 -74.8902,72.083 -74.8669,72.0922 -74.7678,72.1634 -74.802,72.1919 -74.8212,72.2021 -74.8553,72.2209 -74.8753,72.2322 -74.9528,72.2971 -74.9807,72.3245 -75.0194,72.3674 -75.0098,72.3907 -75.0429,72.4021 -75.1212,72.4126 -75.189,72.4192 -75.2542,72.4255 -75.2912,72.4305 -75.3481,72.441 -75.3778,72.4563 -75.577,72.4821 -75.6167,72.4849 -75.6597,72.486 -75.7027,72.4869 -75.7494,72.4866 -75.8146,72.4828 -75.8363,72.4775 -75.8885,72.4415 -75.8699,72.4145 -75.8596,72.3912 -75.8963,72.3763 -75.9322,72.3788 -75.9767,72.4253 -75.9801,72.4467 -75.9737,72.4787 -75.9991,72.4927 -76.0317,72.4988 -76.1049,72.508 -76.1445,72.5103 -76.2443,72.5168 -76.4002,72.5314 -76.4612,72.5426 -76.473,72.5708 -76.504,72.5956 -76.5676,72.623 -76.6142,72.6302 -76.761,72.6463 -76.8162,72.6518 -76.8692,72.6554 -77.0729,72.6543 -77.2256,72.6546 -77.3354,72.6585 -77.3888,72.6579 -77.4331,72.6527 -77.4605,72.6425 -77.4824,72.6346 -77.5136,72.6272 -77.5869,72.6109 -77.6571,72.6014 -77.6819,72.6001 -77.8136,72.585 -77.975,72.5581 -78.2481,72.4873 -78.3683,72.4077 -78.372,72.3446 -78.3331,72.3181 -78.3117,72.3082 -78.2859,72.2982 -78.1945,72.2747 -78.1401,72.2626 -78.0333,72.2414 -77.9684,72.229 -77.9353,72.2231 -77.8864,72.2159 -77.7644,72.1997 -77.6808,72.1848 -77.6377,72.1756 -77.5761,72.1608 -77.4742,72.1354 -77.4394,72.125 -77.42,72.1157 -77.3948,72.108 -77.3659,72.1018 -77.3302,72.0975 -77.2933,72.0952 -77.2719,72.0945 -77.2137,72.0965 -77.1235,72.1019 -77.0945,72.1006 -77.0683,72.097 -76.8859,72.0562 -76.8242,72.0333 -76.857,72.0357 -76.9332,72.0522 -77.057,72.0783 -77.106,72.087 -77.1409,72.0899 -77.1974,72.0888 -77.3571,72.0808 -77.4692,72.1006 -77.6088,72.1457 -77.6424,72.1524 -77.7085,72.163 -77.827,72.1784 -78.1187,72.217 -78.2215,72.2292 -78.2584,72.2289 -78.2786,72.2205 -78.2799,72.1418 -78.2285,72.1233 -78.2043,72.0753 -78.2294,72.0724 -78.3432,72.1437 -78.3425,72.215 -78.3269,72.231 -78.393,72.2574 -78.4223,72.2625 -78.5471,72.2319 -78.6825,72.1319 -78.6612,72.1156 -78.623,72.1011 -78.51,72.0676 -78.4138,72.0491 -78.329,72.0354 -78.2832,72.028 -78.245,72.0195 -78.209,72.0042 -78.1902,71.99 -78.1718,71.9625 -78.1571,71.92 -78.1437,71.8929 -78.1057,71.8801 -78.078,71.8771 -78.0119,71.883 -77.9688,71.885 -77.9204,71.876 -77.7768,71.7862 -77.6253,71.7276 -77.6033,71.6924 -77.7919,71.7647 -77.8354,71.7955 -77.9653,71.8705 -77.9948,71.8714 -78.0748,71.8609 -78.095,71.8578 -78.1275,71.8345 -77.9956,71.753 -77.9569,71.7351 -77.9243,71.724 -77.9028,71.7181 -77.847,71.7036 -77.8149,71.698 -77.7842,71.6914 -77.726,71.6743 -77.7422,71.6693 -77.877,71.6988 -77.9078,71.7054 -77.94,71.7112 -77.9745,71.7152 -78.0019,71.722 -78.0354,71.7342 -78.134,71.7928 -78.1895,71.8271 -78.2046,71.8429 -78.2069,71.864 -78.2106,71.8867 -78.2475,71.9422 -78.2753,71.9773 -78.2964,71.9939 -78.3267,72.0051 -78.3687,72.0152 -78.6713,72.0742 -78.6907,72.0573 -78.7333,71.9171 -78.6698,71.884 -78.5551,71.8625 -78.506,71.854 -78.4301,71.8446 -78.4108,71.8378 -78.3286,71.7724 -78.3671,71.7657 -78.3939,71.7687 -78.448,71.7864 -78.4683,71.7984 -78.4989,71.8141 -78.5376,71.8234 -78.5835,71.8315 -78.6325,71.8397 -78.8405,71.875 -78.8804,71.8793 -78.9089,71.874 -78.9447,71.8611 -78.9823,71.8593 -79.0101,71.8645 -79.045,71.8826 -79.0198,71.8911 -78.957,71.9079 -78.8495,71.9735 -78.7581,72.0987 -78.8249,72.1776 -78.8938,72.2173 -78.9249,72.2344 -78.9578,72.2492 -78.9936,72.2616 -79.0543,72.2777 -79.1563,72.3024 -79.2954,72.2289 -79.3765,72.1787 -79.5176,72.1174 -79.5521,72.1175 -79.5765,72.1468 -79.5362,72.1708 -79.5159,72.1772 -79.4783,72.1846 -79.4493,72.1926 -79.4057,72.2381 -79.4976,72.2877 -79.5779,72.315 -79.5055,72.3729 -79.5432,72.3875 -79.5845,72.4012 -79.6078,72.4046 -79.6375,72.4029 -79.6794,72.3815 -79.7662,72.3117 -79.8007,72.306 -79.8763,72.2856 -79.924,72.2629 -79.9426,72.253 -79.9687,72.2279 -79.8551,72.146 -79.7427,72.0971 -79.6656,72.0749 -79.6218,72.0641 -79.601,72.0598 -79.5302,72.0521 -79.4969,72.0383 -79.5723,72.0379 -79.6015,72.0417 -79.6511,72.0492 -79.7102,72.0594 -79.7655,72.071 -79.8019,72.0805 -79.8315,72.0933 -79.8955,72.1302 -79.9226,72.1478 -79.9443,72.1664 -79.9652,72.1773 -80.0033,72.1913 -80.0421,72.2003 -80.0755,72.1961 -80.1016,72.1808 -80.1131,72.1555 -80.0856,72.1259 -80.0501,72.1059 -80.1407,72.0799 -80.1649,72.0781 -80.1947,72.0798 -80.2268,72.094 -80.2889,72.0804 -80.2517,72.042 -80.22,72.0252 -80.1863,72.0145 -80.1602,71.9859 -80.1954,71.9524 -80.2207,71.9434 -80.259,71.9335 -80.3453,71.9203 -80.44,71.9103 -80.4691,71.9072 -80.5614,71.8765 -80.5594,71.8473 -80.5774,71.834 -80.6782,71.7977 -80.7138,71.7896 -80.7363,71.7874 -80.7604,71.7854 -80.7877,71.793 -80.7432,71.8135 -80.6958,71.8252 -80.6512,71.8446 -80.6313,71.8608 -80.6028,71.9292 -80.666,71.9613 -80.7001,71.9511 -80.7364,71.9421 -80.7993,71.9419 -80.8643,71.9451 -80.891,71.953 -80.7498,71.9916 -80.551,71.9982 -80.4959,71.977 -80.4477,71.967 -80.3839,71.9748 -80.3848,71.9955 -80.5188,72.0359 -80.5705,72.045 -80.6253,72.0544 -80.7092,72.0912 -80.6621,72.1393 -80.6088,72.1829 -80.5911,72.194 -80.4826,72.2483 -80.463,72.2555 -80.4105,72.2664 -80.3723,72.27 -80.3414,72.2759 -80.3219,72.2829 -80.3015,72.3602 -80.3129,72.3941 -80.3278,72.409 -80.3538,72.4153 -80.3871,72.4131 -80.4071,72.4099 -80.5217,72.376 -80.6284,72.3425 -80.7362,72.3035 -80.8443,72.2545 -80.9711,72.1908 -81.0512,72.158 -81.1004,72.1503 -81.179,72.1452 -81.1111,72.1721 -81.0376,72.1834 -80.998,72.199 -80.7946,72.3328 -80.7542,72.3562 -80.5714,72.4199 -80.4827,72.4502 -80.4549,72.4578 -80.3622,72.5167 -80.3475,72.5316 -80.2708,72.5678 -80.2508,72.5761 -80.1675,72.6087 -80.1381,72.6149 -80.0586,72.6299 -80.0973,72.6852 -80.1317,72.7035 -80.1545,72.7089 -80.2108,72.7155 -80.2453,72.7211 -80.2926,72.7311 -80.3184,72.7413 -80.3415,72.7534 -80.4451,72.8327 -80.4376,72.8424 -80.4548,72.874 -80.4478,72.8952 -80.4208,72.9073 -80.3963,72.9278 -80.3534,72.9974 -80.3985,73.0498 -80.4194,73.0592 -80.4429,73.0669 -80.4668,73.0727 -80.5146,73.0819 -80.7012,73.111 -80.8749,73.1337 -80.902,73.1397 -80.9848,73.1599 -81.0069,73.1711 -81.0145,73.1991 -81.0133,73.2216 -80.9872,73.2906 -80.9957,73.3781 -81.022,73.4291 -81.0376,73.4474 -81.0799,73.481 -81.2532,73.5913 -81.2722,73.5982 -81.341,73.6156 -81.3679,73.6198 -81.4137,73.6213 -81.7852,73.6315 -82.0133,73.6254 -82.1612,73.6195 -82.2075,73.6191 -82.2684,73.6202 -82.3233,73.6223 -82.429,73.628 -82.6131,73.6338 -82.6393,73.6317 -82.6618,73.6198 -82.6884,73.6031 -82.7237,73.5909 -82.8109,73.5665 -82.8776,73.5581 -83.0111,73.5569 -83.237,73.5162 -83.3689,73.4967 -83.5321,73.4683 -83.7826,73.4055 -83.7462,73.3936 -83.6026,73.3715 -83.5467,73.3641 -83.4806,73.3563 -83.4508,73.3482 -83.4304,73.3351 -83.4177,73.3163 -83.3858,73.213 -83.4008,73.1982 -83.4332,73.1999 -83.455,73.2067 -83.4829,73.2247 -83.5003,73.2467 -83.517,73.2746 -83.5143,73.3041 -83.5443,73.3282 -83.9051,73.3699 -83.9622,73.376 -83.9854,73.3755 -84.0199,73.3711 -84.0753,73.3621 -84.2248,73.3362 -84.3744,73.3101 -84.4241,73.3003 -84.4443,73.2907 -84.3835,73.2282 -84.3613,73.217 -84.2813,73.2008 -84.2476,73.1914 -84.205,73.1733 -84.1419,73.1277 -84.1771,73.1265 -84.2092,73.1318 -84.4459,73.2068 -84.4811,73.2248 -84.5078,73.2565 -84.5395,73.2798 -84.577,73.289 -84.598,73.2894 -84.7697,73.2577 -84.8069,73.2496 -84.8677,73.2305 -84.9056,73.2157 -84.9264,73.204 -84.9681,73.1174 -84.9287,73.1059 -84.8914,73.1028 -84.8493,73.102 -84.811,73.0984 -84.7763,73.0921 -84.7336,73.0833 -84.7042,73.0772 -84.6565,73.0651 -84.5816,73.0473 -84.5286,73.039 -84.377,73.0174 -84.332,73.0125 -84.227,73.0077 -84.0689,72.9886 -84.0362,72.9839 -83.9914,72.9705 -83.8894,72.96 -83.8543,72.9583 -83.8342,72.9582 -83.7598,72.9628 -83.7293,72.9628 -83.7085,72.9601 -83.6746,72.9539 -83.5718,72.9329 -83.4882,72.9074 -83.4337,72.8875 -83.5148,72.891 -83.5569,72.9082 -83.6364,72.9276 -83.6628,72.9316 -83.7183,72.9356 -83.8719,72.9358 -84.0066,72.942 -84.3496,72.9662 -84.5653,72.983 -84.622,72.9873 -84.7047,72.9986 -84.7876,73.0209 -84.8446,73.0338 -84.8806,73.0391 -84.9395,73.0433 -84.983,73.0433 -85.0,73.034 -85.0,73.0139 -84.9784,72.9988 -84.9582,72.9665 -84.9797,72.9616 -85.0,72.9648 -85.0,72.9151 -84.8523,72.8985 -84.6634,72.8442 -84.6493,72.8395 -84.5846,72.8234 -84.5459,72.8146 -84.5003,72.8078 -84.4467,72.8016 -84.3714,72.7943 -84.3236,72.7846 -84.214,72.7555 -84.1307,72.7325 -84.1075,72.7225 -84.0869,72.715 -84.0429,72.7021 -84.0147,72.6973 -83.9043,72.6876 -83.8702,72.6839 -83.8375,72.6799 -83.7863,72.6714 -83.7525,72.6532 -83.7785,72.6475 -83.9843,72.6767 -84.0535,72.6877 -84.0867,72.6939 -84.1165,72.7031 -84.1927,72.7265 -84.2324,72.7358 -84.2992,72.7482 -84.4054,72.7637 -84.4631,72.7698 -84.5016,72.7724 -84.6134,72.7824 -84.6682,72.7876 -84.7259,72.7985 -84.7599,72.8073 -84.8083,72.8182 -84.8702,72.832 -84.9203,72.8424 -85.0,72.8549 -85.0,72.2769 -84.9416,72.2628 -84.8119,72.3005 -84.7154,72.3287 -84.5693,72.3542 -84.5907,72.3109 -84.6245,72.3108 -84.6673,72.3024 -84.6666,72.2722 -84.3697,72.2647 -84.2605,72.2842 -84.2352,72.2812 -84.2911,72.2592 -84.3193,72.2538 -84.3633,72.2522 -84.46,72.2574 -84.513,72.2593 -84.5674,72.2598 -84.6065,72.2572 -84.6271,72.2516 -84.7152,72.2031 -84.7323,72.1905 -84.5208,72.1168 -84.4515,72.0827 -84.4129,72.0676 -84.2646,72.0386 -84.1806,72.0198 -84.1528,71.9773 -84.1205,71.9659 -84.0789,71.9566 -84.0194,71.9483 -83.9692,71.927 -83.9603,71.8814 -83.9767,71.8414 -83.9869,71.8348 -84.0037,71.837 -84.0293,71.8542 -84.0416,71.8782 -84.0611,71.9161 -84.0822,71.9306 -84.3124,72.0181 -84.4037,72.0434 -84.5097,72.0557 -84.6081,72.0835 -84.642,72.1037 -84.6629,72.1231 -84.7265,72.138 -84.8191,72.1539 -85.0,72.1606 -85.0,71.5622 -84.9883,71.5612 -84.8994,71.5601 -84.7773,71.5495 -84.729,71.541 -84.6885,71.5591 -84.6693,71.5732 -84.6297,71.5802 -84.5803,71.5835 -84.5133,71.5811 -84.4374,71.5742 -84.4149,71.5475 -84.4545,71.5183 -84.4483,71.4806 -84.4139,71.4681 -84.3667,71.4565 -84.3543,71.4396 -84.3361,71.403 -84.3306,71.379 -84.3486,71.3557 -84.3758,71.3462 -84.4607,71.3373 -84.4897,71.3402 -84.5305,71.3321 -84.5601,71.3171 -84.6015,71.2064 -84.5878,71.1717 -84.572,71.1036 -84.607,71.0548 -84.6343,70.9832 -84.6176,70.9586 -84.5776,70.9441 -84.5551,70.8884 -84.6124,70.8286 -84.7477,70.8249 -84.774,70.8323 -84.7759,70.8571 -84.7524,70.8748 -84.7354,70.9013 -84.7742,70.9804 -84.7978,70.984 -84.8669,70.9826 -84.9183,70.9854 -84.95,70.9909 -84.8066,71.0069 -84.7792,71.0071 -84.749,71.0009 -84.7102,70.9843 -84.6804,70.978 -84.6535,71.0575 -84.6805,71.079 -84.7578,71.0939 -84.8037,71.0937 -84.8444,71.0884 -84.9155,71.0676 -85.0,71.0655 -85.0,70.0021 -84.9883,70.0014 11,-5.0,Canada -84.9883,71.173 -84.9784,71.1764 -84.8464,71.1844 -84.7262,71.1767 -84.6733,71.1749 -84.6414,71.1869 -84.6634,71.2269 -84.7442,71.3245 -85.0,71.3658 -85.0,71.169 -84.9883,71.173 14,-5.0,Canada -84.9883,73.4958 -84.7727,73.556 -84.7438,73.5658 -84.7145,73.5784 -84.653,73.6135 -84.6274,73.639 -84.7568,73.6777 -84.8212,73.6949 -84.8555,73.7018 -84.8992,73.7091 -84.9492,73.7132 -85.0,73.7159 -85.0,73.4926 -84.9883,73.4958 74,-5.0,Canada -84.9943,66.1889 -84.9588,66.2083 -84.8291,66.1719 -84.8006,66.1622 -84.7767,66.1627 -84.7551,66.1753 -84.7332,66.1836 -84.7032,66.1838 -84.4692,66.1326 -84.3381,66.0948 -84.3075,66.0799 -84.2834,66.0754 -84.2026,66.0802 -84.211,66.1016 -84.2244,66.1206 -84.2446,66.1368 -84.3554,66.1949 -84.459,66.2481 -84.447,66.266 -84.3825,66.3081 -84.3424,66.3196 -84.2626,66.2841 -84.1459,66.2162 -84.0513,66.2377 -84.0136,66.2334 -83.9856,66.2209 -83.9765,66.1967 -83.9559,66.176 -83.8073,66.1159 -83.6736,66.0712 -83.62,66.0801 -83.5979,66.0852 -83.5145,66.1243 -83.5538,66.1523 -83.5993,66.1808 -83.6034,66.2062 -83.6343,66.2238 -83.6986,66.3042 -83.7222,66.3442 -83.7453,66.3627 -83.796,66.3898 -83.9565,66.4705 -84.0116,66.52 -83.969,66.568 -83.9766,66.5994 -84.0317,66.607 -84.1705,66.6153 -84.2315,66.6213 -84.2652,66.6354 -84.294,66.7033 -84.4842,66.7411 -84.5013,66.7574 -84.4605,66.757 -84.4072,66.7438 -84.3682,66.7369 -84.3392,66.7426 -84.3848,66.7661 -84.4122,66.7741 -84.5327,66.8041 -84.5724,66.813 -84.5081,66.8182 -84.4765,66.8161 -84.4434,66.8088 -84.3946,66.8155 -84.4285,66.8512 -84.5873,66.8671 -84.6845,66.8556 -84.7736,66.8234 -84.7329,66.8158 -84.7701,66.7766 -84.9617,66.7534 -85.0,66.7643 -85.0,66.1857 -84.9943,66.1889 324,-5.0,Canada -84.9943,66.828 -84.9677,66.8455 -84.8793,66.8767 -84.8354,66.8798 -84.7852,66.8793 -84.7113,66.8819 -84.5385,66.8878 -84.4716,66.8944 -84.5258,66.9109 -84.6065,66.9197 -84.6368,66.9069 -84.6654,66.8985 -84.6981,66.9015 -84.7567,66.9727 -84.7332,66.9741 -84.7088,66.9615 -84.6696,66.9457 -84.5587,66.9296 -84.5199,66.9248 -84.444,66.9216 -84.3143,66.9039 -84.2627,66.8966 -84.2034,66.8815 -84.2479,66.8761 -84.2632,66.7338 -84.1184,66.6409 -84.0943,66.633 -83.9775,66.6182 -83.9385,66.6223 -83.7699,66.734 -83.7565,66.7784 -83.7399,66.7943 -83.7239,66.7802 -83.7122,66.7441 -83.7168,66.7245 -83.7737,66.6183 -83.8168,66.6177 -83.8409,66.6038 -83.8397,66.5795 -83.8037,66.4983 -83.6862,66.4602 -83.655,66.4586 -83.6241,66.4581 -83.5618,66.4508 -83.5362,66.4467 -83.5061,66.4386 -83.4095,66.3478 -83.3648,66.2943 -83.3754,66.2978 -83.4296,66.326 -83.4323,66.3478 -83.4618,66.3554 -83.4831,66.3264 -83.3975,66.2839 -83.3456,66.2703 -83.281,66.2629 -83.2325,66.2637 -83.1932,66.2674 -82.8851,66.3892 -82.8489,66.4206 -82.8485,66.4559 -82.7009,66.4833 -82.6128,66.4826 -82.5256,66.474 -82.4125,66.4925 -82.3956,66.531 -82.3123,66.5854 -82.2012,66.6415 -82.0136,66.6819 -81.8583,66.8412 -81.8205,66.8648 -81.7842,66.8831 -81.7611,66.8936 -81.6653,66.9127 -81.6345,66.9127 -81.6093,66.9051 -81.5893,66.896 -81.5379,66.8851 -81.3623,66.9044 -81.3344,66.9162 -81.2647,66.9817 -81.2461,67.0064 -81.2125,67.0855 -81.2072,67.1 -81.2071,67.1121 -81.1983,67.1535 -81.1795,67.2074 -81.1299,67.3069 -81.0824,67.3358 -81.0701,67.353 -81.0739,67.3843 -81.2556,67.5204 -81.2882,67.5346 -81.3285,67.546 -81.3686,67.5576 -81.4227,67.5755 -81.4753,67.5986 -81.493,67.6128 -81.5143,67.6315 -81.5373,67.6453 -81.5567,67.6544 -81.6669,67.6975 -81.9035,67.8042 -81.9282,67.8182 -82.0025,67.9131 -81.9422,67.9958 -81.8777,68.0241 -81.8586,68.0333 -81.8419,68.0531 -81.8208,68.0855 -81.8167,68.1168 -81.8458,68.1281 -81.8698,68.1247 -81.8879,68.1152 -81.9079,68.0927 -81.9269,68.0679 -81.9733,68.0383 -82.0004,68.026 -82.0266,68.0271 -82.0583,68.0349 -82.0998,68.0462 -82.1417,68.0595 -82.1709,68.0758 -82.1544,68.0992 -82.1218,68.1232 -82.1015,68.1434 -82.0886,68.1634 -82.0912,68.1923 -82.1138,68.2024 -82.1383,68.1956 -82.1939,68.179 -82.2203,68.1801 -82.2527,68.1892 -82.3099,68.2119 -82.329,68.2268 -82.3012,68.2337 -82.2749,68.2332 -82.2487,68.2313 -82.2151,68.2293 -82.1839,68.2369 -82.1855,68.2597 -82.3164,68.3148 -82.3167,68.366 -82.4577,68.4133 -82.4341,68.4298 -82.4028,68.4374 -82.3715,68.4309 -82.3258,68.4068 -82.3025,68.3976 -82.2746,68.3908 -82.2144,68.38 -82.0805,68.3667 -82.0477,68.3686 -82.0154,68.3808 -82.0043,68.4009 -82.0621,68.4192 -82.0869,68.4411 -82.0556,68.444 -81.911,68.4176 -81.8919,68.4092 -81.8621,68.3722 -81.8527,68.3518 -81.8317,68.3376 -81.7915,68.3344 -81.6635,68.37 -81.6436,68.382 -81.6259,68.402 -81.5145,68.4218 -81.3875,68.4537 -81.1853,68.511 -81.0869,68.5539 -81.0633,68.6817 -81.1808,68.7691 -81.2096,68.778 -81.258,68.7868 -81.4114,68.7789 -81.4819,68.8123 -81.5055,68.8163 -81.652,68.8195 -81.8026,68.7911 -81.8282,68.7858 -81.8748,68.7888 -81.8304,68.8069 -81.7913,68.8158 -81.7396,68.8257 -81.7134,68.8304 -81.635,68.844 -81.581,68.8528 -81.5425,68.8603 -81.4217,68.8953 -81.3961,68.9038 -81.1567,69.0062 -81.1253,69.0312 -81.1613,69.0957 -81.1793,69.105 -81.2209,69.1169 -81.2419,69.1188 -81.3376,69.1121 -81.4752,69.1623 -81.5114,69.1725 -81.5324,69.1754 -81.739,69.1802 -81.8151,69.1655 -81.8585,69.1547 -81.8785,69.1522 -82.0339,69.144 -82.0754,69.1444 -82.0964,69.1482 -82.1141,69.1598 -82.0519,69.3044 -82.1181,69.3243 -82.1469,69.3294 -82.5064,69.3898 -82.6066,69.4044 -82.6707,69.4108 -82.6916,69.4105 -82.7757,69.4137 -82.8462,69.4183 -82.9033,69.4244 -83.0482,69.4489 -82.9747,69.4539 -82.9459,69.45 -82.8884,69.4432 -82.8031,69.4343 -82.7608,69.4317 -82.7184,69.4292 -82.5637,69.4203 -82.3509,69.4057 -82.3104,69.4081 -82.3571,69.4453 -82.428,69.4747 -82.476,69.4789 -82.4752,69.5332 -82.3862,69.5445 -82.3025,69.5367 -82.2122,69.5288 -82.1567,69.5295 -82.1296,69.5322 -82.081,69.547 -82.1135,69.5498 -82.2791,69.5654 -82.3136,69.5693 -82.3397,69.5741 -82.3606,69.5822 -82.5176,69.6058 -82.6475,69.5986 -82.8353,69.5894 -82.9426,69.599 -83.0003,69.605 -83.0658,69.6148 -83.1068,69.6108 -83.126,69.6036 -83.1593,69.5871 -83.1799,69.5862 -83.4156,69.6028 -83.5235,69.6135 -83.5597,69.6177 -83.7598,69.6528 -83.7897,69.6595 -83.9153,69.6931 -83.935,69.7114 -83.9868,69.7319 -84.1559,69.7632 -84.1924,69.7671 -84.2501,69.7708 -84.2932,69.7719 -84.3627,69.7688 -84.3905,69.7669 -84.6813,69.7307 -84.8872,69.6803 -84.9091,69.6829 -84.9861,69.7004 -85.0,69.7048 -85.0,69.0521 -84.9943,69.0547 -84.9683,69.0752 -84.8825,69.0877 -84.8229,69.0762 -84.9263,69.0243 -84.7722,68.9967 -84.5643,68.9509 -84.383,68.9371 -84.3539,68.926 -84.4013,68.9064 -84.5391,68.9181 -84.655,68.9241 -84.7698,68.9291 -84.8028,68.9147 -84.7474,68.8867 -84.7258,68.8831 -84.6774,68.8805 -84.6484,68.875 -84.6176,68.8616 -84.629,68.8411 -84.7336,68.8495 -84.7926,68.8581 -84.9061,68.8695 -84.9457,68.8562 -84.9065,68.8399 -84.8721,68.8377 -84.8245,68.8398 -84.8228,68.7915 -84.8656,68.7708 -84.9437,68.7818 -84.9717,68.7845 -85.0,68.7728 -85.0,68.7682 -84.9816,68.7507 -84.9567,68.74 -84.8509,68.7224 -84.8226,68.7201 -84.7963,68.7212 -84.7254,68.7309 -84.6638,68.7342 -84.5769,68.6801 -84.5912,68.654 -84.6142,68.6457 -84.7108,68.653 -84.7324,68.6586 -84.8867,68.6615 -84.9673,68.6616 -85.0,68.6467 -85.0,66.8243 -84.9943,66.828 776,-2.0,Greenland -72.8268,78.0411 -72.8193,78.0389 -72.7935,78.0365 -72.7254,78.0363 -72.6945,78.0354 -72.6697,78.034 -72.6503,78.0316 -72.4391,77.972 -72.2874,77.9446 -72.1646,77.9429 -72.1059,77.9403 -72.076,77.9347 -72.0937,77.9218 -72.1037,77.9181 -72.1362,77.8991 -72.1302,77.89 -72.0197,77.8335 -71.9043,77.8186 -71.8669,77.8136 -71.8111,77.8016 -71.7622,77.7867 -71.7505,77.7804 -71.7247,77.7732 -71.7071,77.7715 -71.687,77.7706 -71.6555,77.7731 -71.622,77.7809 -71.6119,77.7845 -71.5931,77.79 -71.5625,77.7975 -71.5453,77.8007 -71.5198,77.8024 -71.4138,77.8058 -71.3902,77.8054 -71.3754,77.7973 -71.3857,77.7398 -71.355,77.7385 -71.2854,77.7426 -71.2582,77.7456 -71.211,77.7525 -71.1942,77.7568 -71.1592,77.7627 -71.1315,77.7659 -71.0749,77.769 -71.0557,77.7697 -71.0385,77.7689 -71.0163,77.7655 -71.0023,77.7495 -71.0152,77.7418 -71.0431,77.7354 -71.1113,77.7205 -71.1681,77.7091 -71.207,77.6956 -71.2225,77.6877 -71.2265,77.6782 -71.1303,77.6544 -71.1081,77.651 -71.05,77.6473 -71.0263,77.6462 -70.9909,77.6466 -70.907,77.653 -70.8725,77.6546 -70.7676,77.658 -70.6945,77.657 -70.4911,77.6646 -70.4604,77.6671 -70.4405,77.672 -70.4273,77.6763 -70.4181,77.682 -70.3447,77.7129 -70.3108,77.7258 -70.2759,77.7324 -70.2246,77.7386 -70.1628,77.7446 -69.8578,77.7352 -69.7957,77.7296 -69.7666,77.7217 -69.7749,77.7131 -69.8056,77.7095 -69.9144,77.7066 -69.9719,77.7089 -69.9972,77.7075 -70.0178,77.7041 -70.035,77.7003 -70.051,77.6951 -70.1025,77.6738 -70.1649,77.6555 -70.3019,77.6217 -70.4051,77.601 -70.3938,77.5658 -70.1381,77.5458 -70.1012,77.5433 -70.0752,77.5444 -69.9197,77.5531 -69.8422,77.5684 -69.8252,77.5718 -69.804,77.5744 -69.7379,77.5772 -69.6997,77.578 -69.6407,77.5779 -69.6061,77.5787 -69.5503,77.5826 -69.4982,77.5882 -69.461,77.5954 -69.4237,77.6037 -69.3727,77.6184 -69.3287,77.6347 -69.3118,77.6388 -69.2874,77.6415 -69.2751,77.64 -69.2862,77.5796 -69.2954,77.5722 -69.6207,77.5238 -69.7188,77.5108 -69.7668,77.5051 -69.8423,77.4975 -69.8929,77.4913 -70.0412,77.4668 -70.0815,77.4549 -70.0731,77.4464 -70.0399,77.4401 -69.8798,77.4245 -69.8134,77.4259 -69.7709,77.4301 -69.7237,77.4306 -69.3967,77.3909 -69.2948,77.375 -69.2043,77.362 -69.0942,77.3468 -69.0467,77.3415 -69.0035,77.3377 -68.9848,77.3383 -68.9577,77.3409 -68.9377,77.3451 -68.8496,77.3581 -68.7479,77.3694 -68.6533,77.3764 -68.5393,77.384 -68.497,77.3878 -68.4551,77.3932 -68.4349,77.397 -68.4211,77.4006 -68.4036,77.4072 -68.3919,77.4184 -68.394,77.4351 -68.4628,77.4813 -68.502,77.4956 -68.5261,77.5047 -68.5547,77.5156 -68.6121,77.539 -68.6013,77.5436 -68.581,77.5472 -68.5625,77.5493 -68.5345,77.5505 -68.4962,77.5515 -68.4694,77.5494 -68.4206,77.5426 -68.2165,77.4697 -68.1932,77.4613 -68.1814,77.4566 -68.1665,77.4395 -68.1661,77.4251 -68.1751,77.4083 -68.1892,77.3955 -68.1693,77.3875 -68.1438,77.3867 -68.0268,77.3887 -67.9349,77.3957 -67.7439,77.4011 -67.6086,77.3971 -67.5892,77.3966 -67.5612,77.3975 -67.3819,77.4096 -67.3278,77.4162 -67.0991,77.4487 -67.0816,77.4519 -67.047,77.4611 -67.0193,77.4716 -67.0014,77.4821 -66.9862,77.4927 -66.9477,77.5237 -66.9436,77.5376 -66.9219,77.5565 -66.8412,77.5634 -66.5257,77.566 -66.3306,77.5271 -66.1219,77.5072 -66.0878,77.5007 -66.0556,77.491 -65.968,77.4558 -65.8696,77.3861 -65.8614,77.3796 -65.8818,77.34 -65.9078,77.3268 -65.9193,77.3231 -65.9374,77.3194 -65.9762,77.3133 -66.0253,77.3097 -66.0949,77.3102 -66.1811,77.3151 -66.2679,77.3197 -66.3256,77.3227 -66.3567,77.3207 -66.4407,77.3087 -66.4613,77.3011 -66.3504,77.2219 -66.3062,77.2012 -66.2665,77.1862 -66.2494,77.1806 -66.2225,77.1753 -66.1736,77.1693 -66.1229,77.1668 -66.0731,77.1657 -66.0545,77.1663 -66.0314,77.1631 -66.0106,77.156 -66.0047,77.1463 -66.0154,77.1408 -66.0272,77.1393 -66.0452,77.1376 -66.0611,77.1381 -66.269,77.1574 -66.3317,77.1665 -66.3514,77.1702 -66.3857,77.1793 -66.4287,77.1947 -66.4617,77.2089 -66.5017,77.2241 -66.516,77.2292 -66.5503,77.2382 -66.5736,77.241 -66.6253,77.246 -66.8775,77.2573 -67.1173,77.2678 -67.3237,77.2736 -67.4219,77.2748 -67.4912,77.2747 -67.5532,77.2735 -67.6158,77.2722 -67.7176,77.2681 -67.7786,77.2639 -67.8957,77.2583 -68.035,77.2539 -68.0598,77.2533 -68.1085,77.2564 -68.3107,77.2399 -68.4312,77.2229 -68.5018,77.2136 -68.687,77.1903 -68.7986,77.1823 -68.8191,77.1794 -68.8861,77.1645 -68.8998,77.1609 -68.8927,77.1532 -68.8464,77.1429 -68.8259,77.1393 -68.756,77.1315 -68.6839,77.1241 -68.4673,77.1091 -68.3297,77.1014 -68.2696,77.0989 -68.1024,77.0934 -67.9614,77.0906 -67.9279,77.0922 -67.9046,77.095 -67.8646,77.1032 -67.8174,77.1089 -67.7871,77.1105 -67.7529,77.1105 -67.6863,77.1079 -67.5032,77.1 -67.4371,77.0904 -67.411,77.0884 -67.3036,77.0854 -67.2923,77.0852 -67.2378,77.0815 -66.9187,77.0579 -66.8484,77.051 -66.78,77.0418 -66.7602,77.0381 -66.7379,77.0358 -66.7126,77.035 -66.6783,77.0343 -66.5523,77.0345 -66.5152,77.0353 -66.4575,77.0372 -66.1588,77.0673 -66.0003,77.084 -65.9788,77.0792 -65.9851,77.07 -66.0078,77.058 -66.0343,77.0549 -66.092,77.0511 -66.2,77.0413 -66.2501,77.0317 -66.2554,77.023 -66.5415,77.0131 -66.7101,77.0108 -66.7415,77.0125 -66.8798,77.0282 -67.0335,77.0433 -67.2104,77.0518 -67.5543,77.0832 -67.6004,77.0892 -67.6601,77.091 -67.6974,77.0905 -67.7457,77.0879 -67.8086,77.0823 -67.8755,77.0724 -67.8951,77.0685 -67.948,77.062 -68.0353,77.0563 -68.1783,77.0527 -68.3411,77.0553 -68.4112,77.0592 -68.4561,77.062 -68.5052,77.0669 -68.5829,77.0733 -68.663,77.078 -68.7769,77.0829 -68.915,77.0909 -69.1567,77.1055 -69.3758,77.1125 -69.4807,77.1105 -69.5933,77.1167 -69.7144,77.1259 -69.7406,77.128 -69.8009,77.1296 -69.9448,77.1294 -70.1978,77.1146 -70.3086,77.1076 -70.7041,77.0773 -70.7188,77.0695 -70.705,77.0608 -70.6877,77.0579 -70.6078,77.0499 -70.6437,77.0344 -70.7829,77.0378 -70.9871,77.0225 -71.1602,76.9516 -71.1687,76.9458 -71.1721,76.9333 -71.1741,76.9141 -71.1697,76.8992 -71.1461,76.8832 -71.1213,76.8748 -71.0454,76.8539 -70.977,76.839 -70.956,76.835 -70.9315,76.8327 -70.9121,76.8379 -70.872,76.8469 -70.8442,76.8506 -70.794,76.8494 -70.7683,76.8476 -70.7511,76.8447 -70.7053,76.831 -70.6828,76.8248 -70.6486,76.8195 -70.5999,76.8157 -70.5007,76.8271 -70.4793,76.8226 -70.6177,76.8001 -70.7651,76.7924 -70.7784,76.7876 -70.7718,76.7773 -70.6378,76.729 -70.6231,76.7246 -70.4948,76.6959 -70.345,76.679 -70.3165,76.6769 -70.2792,76.6753 -70.252,76.6756 -70.2234,76.6777 -70.1982,76.6808 -70.1571,76.6884 -69.9017,76.767 -69.8048,76.7983 -69.5896,76.8682 -69.5769,76.8729 -69.5644,76.8812 -69.5679,76.8943 -69.5555,76.8997 -69.5294,76.9023 -69.4711,76.9021 -69.3818,76.8965 -69.3564,76.8946 -69.3424,76.8916 -69.3483,76.8836 -69.3686,76.8784 -69.3944,76.8756 -69.4531,76.8713 -69.4795,76.8681 -69.5177,76.8599 -69.5487,76.8511 -69.5862,76.8369 -69.6378,76.8097 -69.6649,76.7936 -69.6829,76.7719 -69.6912,76.7658 -69.7036,76.7606 -69.7562,76.7475 -69.7886,76.7401 -69.8326,76.7328 -69.8837,76.712 -69.8986,76.6919 -69.8632,76.6723 -69.8358,76.6616 -69.8074,76.6541 -69.7669,76.6472 -69.7313,76.6427 -69.566,76.6269 -69.4404,76.618 -69.4145,76.6149 -69.2106,76.5928 -69.1741,76.5862 -69.0138,76.5662 -68.8735,76.5667 -68.6886,76.5557 -68.6418,76.5514 -68.5891,76.548 -68.5591,76.5475 -68.3989,76.5489 -68.3658,76.5492 -68.3365,76.55 -68.1914,76.5581 -68.0881,76.5678 -67.9861,76.5795 -67.9499,76.5855 -67.9236,76.5934 -67.8976,76.5956 -67.8212,76.5783 -67.7878,76.57 -67.7862,76.4935 -67.7983,76.484 -67.8078,76.4789 -67.8207,76.4739 -67.8366,76.4701 -67.8624,76.4682 -68.2005,76.4625 -68.2304,76.4632 -68.255,76.4647 -68.28,76.4668 -68.3458,76.4753 -68.4006,76.478 -68.4926,76.4778 -68.5159,76.4772 -68.5388,76.4753 -68.6058,76.4603 -68.6216,76.4414 -68.7504,76.3997 -68.7813,76.3912 -68.8696,76.3729 -68.9382,76.3635 -69.0489,76.3494 -69.1237,76.3413 -69.2814,76.3272 -69.3049,76.3275 -69.3559,76.3293 -69.3723,76.3274 -69.4203,76.3107 -69.4349,76.2655 -69.4191,76.2568 -69.2143,76.2068 -69.1302,76.1907 -69.1148,76.189 -69.0803,76.19 -69.0315,76.1854 -68.9283,76.1717 -68.8876,76.1654 -68.8329,76.1549 -68.8166,76.1505 -68.736,76.1147 -68.7191,76.1062 -68.6441,76.088 -68.6316,76.086 -68.5541,76.0747 -68.616,76.053 -68.5973,76.0503 -68.5764,76.0492 -68.4302,76.0498 -68.3336,76.0528 -68.3067,76.0514 -68.2827,76.049 -68.2641,76.0456 -68.2463,76.0376 -68.2569,76.029 -68.278,76.0253 -68.3489,76.0171 -68.3677,76.0137 -68.3808,76.0084 -68.3757,75.9999 -68.3253,75.984 -68.309,75.9797 -68.229,75.9667 -68.1997,75.9661 -68.1858,75.9672 -68.1723,75.9682 -68.1184,75.9689 -68.0125,75.9626 -67.6763,75.9364 -67.6524,75.9343 -67.5683,75.9239 -67.4399,75.9147 -67.3119,75.9106 -67.1621,75.9019 -67.138,75.8996 -67.0403,75.8878 -66.873,75.8714 -66.5633,75.8429 -66.5045,75.8354 -66.4627,75.8296 -66.4415,75.8237 -66.4249,75.8164 -66.407,75.8129 -66.3653,75.8069 -66.3424,75.8043 -66.3188,75.8019 -66.2994,75.8017 -66.269,75.8075 -66.3014,75.8361 -66.3201,75.8434 -66.4632,75.8837 -66.5254,75.9012 -66.5959,75.9166 -66.6537,75.9274 -66.6926,75.9342 -66.7555,75.9434 -66.8032,75.9741 -66.8238,75.9919 -66.8298,76.0018 -66.8388,76.0145 -66.853,76.0256 -66.8655,76.0295 -66.9045,76.0349 -66.9961,76.0417 -67.0196,76.0425 -67.0725,76.0462 -67.0906,76.0487 -67.1167,76.0575 -67.1018,76.0793 -67.0922,76.0836 -66.9462,76.1348 -66.9332,76.1383 -66.9142,76.1423 -66.8978,76.1454 -66.8434,76.1548 -66.8238,76.1558 -66.7715,76.1557 -66.7237,76.1509 -66.6309,76.1334 -66.5862,76.1029 -66.3391,75.9861 -66.3235,75.9816 -66.3081,75.978 -66.2755,75.9741 -66.2472,75.9752 -66.2078,75.9807 -66.1814,75.9932 -66.1782,76.0103 -66.1861,76.0223 -66.1788,76.0502 -66.0207,76.1672 -66.0076,76.1724 -65.9888,76.1737 -65.9671,76.1716 -65.7493,76.1583 -65.6161,76.1664 -65.5842,76.1676 -65.5401,76.1634 -65.4768,76.1541 -65.4195,76.143 -65.389,76.1364 -65.3726,76.1287 -65.3823,76.1219 -65.4618,76.1156 -65.5286,76.108 -65.5508,76.1051 -65.57,76.1012 -65.5858,76.0947 -65.5697,76.0894 -65.5443,76.0904 -65.521,76.0898 -65.5068,76.0837 -65.5665,76.0328 -65.5766,76.027 -65.5893,76.0223 -65.6084,76.0181 -65.6527,76.012 -65.6716,76.0085 -65.6877,76.0041 -65.7024,75.9932 -65.6944,75.9872 -65.6391,75.9716 -65.4655,75.9268 -65.4473,75.9229 -65.3806,75.917 -65.3258,75.9123 -65.2973,75.9115 -65.2308,75.919 -65.1859,75.934 -65.126,75.9581 -65.1142,75.9681 -65.1217,75.9775 -65.1387,75.9885 -65.1618,76.0018 -65.1786,76.0183 -65.1715,76.0631 -65.1451,76.067 -65.0521,76.0744 -65.0262,76.0724 -65.0176,76.0603 -65.0249,76.0476 -65.0495,76.0272 -65.0135,76.0154 -64.9915,76.0121 -64.9589,76.0138 -64.8506,76.0282 -64.8401,76.0635 -64.8188,76.069 -64.7931,76.0691 -64.7128,76.069 -64.6866,76.0678 -64.6633,76.0648 -64.6483,76.0613 -64.6076,76.045 -64.5824,76.0307 -64.5577,76.0208 -64.5132,76.0122 -64.4928,76.0107 -64.4644,76.0121 -64.4421,76.0152 -64.4192,76.022 -64.4249,76.0305 -64.4429,76.0349 -64.4813,76.0415 -64.4967,76.0461 -64.5062,76.0522 -64.5162,76.061 -64.5034,76.1472 -64.4905,76.1549 -64.4711,76.1587 -64.451,76.1594 -64.4307,76.1584 -64.4123,76.1521 -64.4049,76.1434 -64.3954,76.1372 -64.3825,76.1315 -64.2798,76.1201 -64.2599,76.121 -64.1954,76.1487 -64.1847,76.1712 -64.1939,76.2013 -64.2125,76.2165 -64.2246,76.2221 -64.2304,76.2391 -64.1624,76.2463 -64.1358,76.2447 -67.8295,78.9562 -67.8693,78.9561 -67.9371,78.9541 -68.093,78.9478 -68.1279,78.9461 -68.5368,78.8968 -68.5799,78.8908 -68.6268,78.8846 -68.833,78.8562 -68.8744,78.8479 -68.8932,78.8432 -68.908,78.8389 -68.9194,78.834 -68.9299,78.8272 -68.9542,78.8052 -68.936,78.797 -68.9155,78.7934 -68.819,78.782 -68.7894,78.7798 -68.7462,78.7795 -68.6712,78.762 -68.5809,78.7231 -68.5745,78.7155 -68.5954,78.7123 -68.6312,78.7125 -68.6607,78.7148 -68.6874,78.7174 -68.7111,78.7211 -68.7418,78.7306 -68.7533,78.7378 -68.9239,78.7665 -68.9626,78.7546 -69.0616,78.7191 -69.0718,78.7132 -69.2037,78.6916 -69.4075,78.6831 -69.4425,78.6822 -69.628,78.684 -69.6659,78.6823 -69.7128,78.6788 -69.7358,78.676 -69.7577,78.6718 -69.8012,78.6601 -69.7418,78.6458 -69.7554,78.6378 -69.943,78.6228 -70.1722,78.6074 -70.3711,78.5949 -70.4832,78.5843 -70.5477,78.572 -70.565,78.5669 -70.5857,78.557 -70.6548,78.4956 -70.7967,78.5023 -70.8818,78.508 -70.9378,78.5124 -70.9646,78.516 -71.0022,78.523 -71.0435,78.5267 -71.1313,78.5256 -71.3351,78.5181 -71.3681,78.5151 -71.4158,78.5092 -71.458,78.5009 -71.4962,78.4919 -71.5619,78.4742 -71.6042,78.4623 -71.6664,78.4449 -71.6844,78.4416 -71.8845,78.4254 -71.9207,78.4236 -72.0195,78.4245 -72.157,78.4225 -72.331,78.4059 -72.3547,78.4016 -72.3886,78.3928 -72.4014,78.3873 -72.4141,78.3765 -72.4027,78.3701 -72.3636,78.3012 -72.3705,78.2912 -72.3834,78.2866 -72.4577,78.2615 -72.4728,78.2592 -72.5285,78.2521 -72.5878,78.2417 -72.6007,78.2369 -72.6288,78.1997 -72.6093,78.1972 -72.5655,78.1944 -72.5376,78.1942 -72.4493,78.1912 -72.3601,78.1871 -72.3194,78.1834 -72.2956,78.1803 -72.2375,78.1721 -72.2704,78.1707 -72.3755,78.1696 -72.4195,78.1728 -72.4365,78.1732 -72.4541,78.1693 -72.4705,78.1648 -72.5782,78.127 -72.5949,78.104 -72.5772,78.0973 -72.5512,78.0949 -72.5342,78.0914 -72.5158,78.0781 -72.6026,78.0577 -72.6263,78.0541 -72.6594,78.0526 -72.72,78.06 -72.7491,78.0616 -72.7785,78.0607 -72.8028,78.0576 -72.8268,78.0505 -72.8335,78.0431 -72.8268,78.0411 118,-6.0,Canada -101.8733,78.1666 -101.8486,78.1679 -101.8243,78.1685 -101.5253,78.1507 -101.19,78.1229 -101.1588,78.1194 -101.1222,78.1041 -101.0369,78.0753 -101.0111,78.071 -100.9842,78.0684 -100.9263,78.0697 -100.7846,78.0839 -100.7581,78.0846 -100.7163,78.0718 -100.7123,78.0372 -100.6948,78.0179 -100.5726,77.9863 -100.5507,77.9829 -100.5338,77.919 -100.5187,77.8885 -100.4847,77.8609 -100.4541,77.8423 -100.3064,77.7669 -100.1997,77.7387 -100.0312,77.7122 -99.9121,77.6973 -99.6101,77.6658 -99.5642,77.6755 -99.4164,77.6978 -99.2533,77.6996 -99.229,77.7008 -99.101,77.7111 -98.9426,77.725 -98.7295,77.7783 -98.778,77.8065 -98.797,77.85 -98.7252,77.8681 -98.6934,77.876 -98.6708,77.8901 -98.649,77.9449 -98.672,77.9548 -98.692,77.9592 -98.89,78.0192 -99.1064,78.0883 -99.1283,78.0976 -99.1474,78.1098 -99.179,78.135 -99.2211,78.1654 -99.2498,78.1718 -99.3192,78.176 -99.3716,78.1764 -99.4395,78.1757 -99.4896,78.1861 -99.4763,78.2178 -99.4503,78.2707 -99.4783,78.297 -99.4979,78.3061 -99.5178,78.3125 -99.5593,78.3242 -99.5278,78.3357 -99.4737,78.3462 -99.4089,78.3544 -99.3656,78.3662 -99.2325,78.4655 -99.269,78.4799 -99.5117,78.515 -99.5475,78.5173 -99.6038,78.5084 -99.6573,78.4994 -99.6829,78.4982 -99.7105,78.5012 -99.7562,78.5235 -99.6664,78.5445 -99.6068,78.5641 -99.5885,78.5771 -99.6375,78.6068 -99.6978,78.6198 -99.7249,78.6235 -99.826,78.6351 -99.9195,78.6444 -99.9747,78.6518 -100.0166,78.6738 -100.0383,78.7113 -100.2204,78.7005 -100.2451,78.691 -100.278,78.6832 -100.3042,78.6821 -100.3955,78.6834 -100.4901,78.6771 -100.5199,78.6735 -100.5532,78.6652 -100.6808,78.6728 -100.8679,78.6857 -100.8877,78.7021 -100.8406,78.7239 -100.805,78.7405 -100.6735,78.8176 -100.6928,78.8266 -100.7806,78.8468 -100.8321,78.8487 -100.8634,78.8371 -100.8914,78.8374 -100.918,78.8429 -100.9941,78.8593 -101.2049,78.9213 -101.2265,78.9278 -101.3121,78.9549 -101.3328,78.9589 -101.565,78.9689 -101.5856,78.9692 -101.6249,78.9677 -101.6671,78.9615 -101.6977,78.948 -101.7325,78.9374 -101.7766,78.9271 -101.9303,78.9055 -101.9303,78.1628 -101.8733,78.1666 40,-6.0,Canada -101.8391,77.5785 -101.7656,77.5699 -101.7149,77.5673 -101.5248,77.5638 -101.4974,77.5641 -101.351,77.5818 -101.3212,77.5862 -101.3049,77.5912 -101.2887,77.6 -101.2634,77.6078 -101.2341,77.611 -101.206,77.6123 -101.0177,77.6136 -100.9675,77.6132 -100.9167,77.6092 -100.797,77.6069 -100.6651,77.613 -100.6411,77.6143 -100.6273,77.6261 -100.6606,77.6465 -100.8602,77.7098 -100.8903,77.7181 -100.9365,77.7258 -100.9639,77.7298 -101.0665,77.7409 -101.1478,77.7482 -101.2218,77.7569 -101.3179,77.7714 -101.3687,77.7804 -101.4079,77.7886 -101.4459,77.7867 -101.4758,77.7831 -101.5281,77.7806 -101.6117,77.7807 -101.7447,77.7838 -101.7792,77.7839 -101.8352,77.7832 -101.9303,77.7785 -101.9303,77.5907 -101.8391,77.5785 531,-6.0,Canada -101.9268,75.4475 -101.8792,75.4492 -101.8566,75.4477 -101.7876,75.4404 -101.7171,75.4414 -101.6933,75.4426 -101.6193,75.4503 -101.4705,75.4685 -101.217,75.4962 -101.1931,75.4964 -101.1045,75.4935 -101.0284,75.4854 -100.9713,75.4812 -100.948,75.4817 -100.5527,75.5069 -100.5278,75.509 -100.3777,75.5256 -100.3525,75.5288 -100.264,75.5394 -100.1211,75.5485 -100.0975,75.5485 -99.9809,75.5454 -99.7565,75.5583 -99.5748,75.5713 -99.4662,75.5847 -99.3694,75.5881 -99.3455,75.588 -99.2832,75.5857 -99.056,75.589 -98.699,75.6042 -98.6777,75.6036 -98.6443,75.5998 -98.6257,75.5874 -98.6572,75.5801 -98.7101,75.5749 -98.7604,75.5712 -98.811,75.5697 -98.9294,75.5693 -98.9535,75.5692 -99.1851,75.5665 -99.5138,75.5524 -99.5459,75.5472 -99.5884,75.5108 -99.5666,75.5065 -99.5168,75.5106 -99.401,75.5033 -99.4391,75.4834 -99.473,75.4818 -99.5267,75.4806 -99.55,75.4784 -99.7623,75.4467 -99.7164,75.4387 -99.6728,75.439 -99.6265,75.4419 -99.5696,75.4375 -99.6931,75.4276 -99.7605,75.4236 -99.856,75.42 -100.0321,75.3669 -99.9416,75.3621 -99.9183,75.3621 -99.8272,75.365 -99.7402,75.3589 -99.7896,75.3488 -99.838,75.3457 -99.9032,75.3435 -99.9974,75.3431 -100.0659,75.3419 -100.1597,75.3403 -100.3988,75.3333 -100.4233,75.3309 -100.4455,75.3253 -100.4009,75.3215 -100.3327,75.3226 -100.3007,75.3189 -100.1638,75.273 -100.3214,75.2423 -100.3411,75.2408 -100.3646,75.2405 -100.4112,75.2527 -100.37,75.2593 -100.3442,75.2691 -100.3782,75.2733 -100.4023,75.2713 -100.4958,75.2446 -100.3426,75.2025 -100.2504,75.1879 -100.2275,75.1874 -100.0871,75.1948 -100.0606,75.1972 -100.01,75.2052 -99.9824,75.1992 -100.0148,75.179 -100.0399,75.1721 -100.0624,75.1695 -100.1322,75.1648 -100.1126,75.1527 -100.0824,75.1466 -100.0429,75.1458 -99.9547,75.1491 -99.932,75.1486 -99.8484,75.1439 -99.7312,75.1279 -99.7607,75.1222 -99.9544,75.1182 -99.9772,75.1192 -100.0086,75.124 -100.0309,75.126 -100.0537,75.1256 -100.1457,75.1228 -100.1669,75.122 -100.1916,75.1187 -100.2677,75.0917 -100.2394,75.0795 -100.2057,75.0748 -100.182,75.0724 -100.1611,75.069 -100.1343,75.0587 -100.1087,75.0033 -100.1209,74.9827 -100.1297,74.9572 -100.1258,74.9322 -100.0907,74.9159 -99.989,74.8997 -99.9468,74.8943 -99.8822,74.8881 -99.7942,74.8841 -99.7276,74.8817 -99.4394,74.8707 -99.3578,74.8684 -99.3408,74.8683 -99.3009,74.8695 -99.2769,74.8715 -99.1712,74.8952 -99.2304,74.9147 -99.2185,74.9343 -99.1803,74.9544 -99.0657,75.0112 -99.0403,75.0182 -99.0107,75.008 -99.0325,74.9884 -99.07,74.9667 -99.1273,74.929 -99.1388,74.8878 -99.1151,74.8827 -99.093,74.8817 -98.8063,74.8936 -98.7245,74.8973 -98.5249,74.8923 -98.4643,74.8865 -98.3753,74.8895 -98.209,74.9001 -98.1851,74.9019 -98.11,74.9114 -98.0402,74.9179 -98.0082,74.9193 -97.8494,74.9194 -97.7528,74.914 -97.7238,74.9121 -97.6914,74.9197 -97.6809,74.9698 -97.7104,75.0029 -97.739,75.0085 -97.7684,75.0107 -97.8169,75.026 -97.864,75.0462 -97.8814,75.0669 -97.8266,75.1181 -97.7965,75.1154 -97.7684,75.109 -97.7603,75.0871 -97.7646,75.0624 -97.6081,75.0097 -97.5803,75.0059 -97.4836,75.0071 -97.3769,75.012 -97.3564,75.014 -97.311,75.0446 -97.3404,75.0507 -97.365,75.0466 -97.4131,75.0596 -97.4956,75.0838 -97.4717,75.1012 -97.4851,75.1225 -97.6086,75.1654 -97.6477,75.1591 -97.7989,75.1808 -97.8354,75.1869 -97.8586,75.1949 -97.8982,75.2267 -97.881,75.2458 -97.8636,75.2593 -97.841,75.2668 -97.8078,75.2623 -97.7763,75.2539 -97.724,75.2506 -97.652,75.251 -97.6143,75.2629 -97.6445,75.2751 -97.6937,75.2795 -97.7543,75.3004 -97.7178,75.3035 -97.6677,75.3022 -97.5348,75.3055 -97.5121,75.3201 -97.6438,75.3407 -97.6662,75.3426 -97.6902,75.3416 -97.7179,75.3518 -97.7746,75.3768 -97.6841,75.4017 -97.6647,75.4069 -97.6405,75.4075 -97.5939,75.3869 -97.5721,75.3586 -97.5406,75.3513 -97.5165,75.3522 -97.4806,75.3643 -97.4865,75.3851 -97.5147,75.408 -97.5482,75.4336 -97.4852,75.4639 -97.4527,75.4626 -97.3068,75.4073 -97.2315,75.3688 -97.2243,75.3303 -97.2035,75.3172 -97.1762,75.3098 -97.0766,75.2884 -97.0481,75.2853 -97.0232,75.2936 -97.0654,75.3087 -97.0842,75.3147 -97.1128,75.3286 -97.1337,75.3502 -97.1536,75.3951 -97.1573,75.423 -97.1434,75.5123 -97.1219,75.5348 -97.1031,75.5589 -97.1276,75.5793 -97.1572,75.5861 -97.4211,75.6144 -97.5575,75.6207 -97.6007,75.6244 -97.6642,75.6376 -97.6429,75.6452 -97.5672,75.659 -97.4307,75.678 -97.389,75.6893 -97.3276,75.7404 -97.3341,75.789 -97.3741,75.833 -97.3848,75.8659 -97.3155,75.9734 -97.2907,75.99 -97.2696,76.001 -97.2374,76.0157 -97.2216,76.0363 -97.2444,76.0923 -97.3093,76.1262 -97.336,76.1344 -97.3737,76.1423 -97.4246,76.1585 -97.4525,76.1725 -97.4856,76.227 -97.4451,76.2897 -97.3881,76.3128 -97.4119,76.3709 -97.4799,76.4002 -97.5301,76.4056 -97.6198,76.4069 -97.6665,76.4092 -97.8019,76.4222 -98.0431,76.4521 -98.078,76.4568 -98.0981,76.4633 -98.118,76.4815 -98.0824,76.4845 -98.0396,76.4796 -98.0185,76.4764 -97.9985,76.472 -97.971,76.4635 -97.9056,76.4746 -98.0016,76.4933 -98.0867,76.5009 -98.1413,76.5286 -98.1301,76.5556 -98.1588,76.5639 -98.1989,76.57 -98.2234,76.5719 -98.4304,76.5739 -98.4517,76.5733 -98.539,76.5677 -98.5722,76.5577 -98.5322,76.5446 -98.4626,76.5349 -98.393,76.5348 -98.3419,76.5379 -98.3131,76.5474 -98.2658,76.5487 -98.208,76.5388 -98.2338,76.5142 -98.258,76.5075 -98.2857,76.5045 -98.3084,76.5023 -98.33,76.5014 -98.4336,76.5053 -98.579,76.5054 -98.6899,76.4988 -98.7171,76.496 -98.7452,76.4922 -98.7631,76.425 -98.6731,76.3903 -98.6181,76.3726 -98.5807,76.3578 -98.5723,76.3251 -98.6028,76.3229 -98.636,76.3264 -98.667,76.3423 -98.6746,76.3606 -98.707,76.3627 -98.8517,76.347 -98.8337,76.3214 -98.7981,76.2995 -98.8199,76.2896 -98.843,76.2925 -98.883,76.3006 -98.904,76.3073 -98.9762,76.3563 -99.0848,76.4175 -99.2951,76.5133 -99.4002,76.5242 -99.4495,76.5247 -99.4861,76.5187 -99.5192,76.5039 -99.5533,76.4996 -99.6005,76.5014 -99.6266,76.5041 -99.6966,76.5133 -99.7671,76.5221 -99.9062,76.533 -99.9308,76.5341 -100.0327,76.5263 -100.0779,76.5218 -100.0978,76.5183 -100.1722,76.5047 -100.3666,76.4673 -100.4336,76.4444 -100.4512,76.4225 -100.5192,76.4135 -100.5434,76.411 -100.6063,76.4107 -100.6529,76.4057 -100.6763,76.4014 -100.6946,76.3873 -100.6662,76.3661 -100.4102,76.2666 -100.3893,76.2635 -100.2695,76.2628 -100.1974,76.2657 -100.0907,76.2744 -100.067,76.2761 -100.0401,76.2757 -100.0184,76.2744 -99.9941,76.2703 -99.7565,76.2108 -99.5658,76.174 -99.5889,76.1679 -99.6144,76.1666 -99.8295,76.1584 -99.9009,76.1627 -99.9869,76.1707 -100.084,76.1738 -100.1342,76.1722 -100.1553,76.1709 -100.1823,76.1671 -100.2266,76.1491 -100.216,76.1299 -100.19,76.1185 -100.157,76.1048 -99.9442,76.083 -99.9204,76.0824 -99.8974,76.083 -99.8693,76.0855 -99.6683,76.0818 -99.6358,76.0727 -99.5945,76.063 -99.4376,76.032 -99.4138,76.0311 -99.3888,76.0323 -99.27,76.0459 -99.2201,76.05 -99.1664,76.0536 -99.1452,76.0489 -99.2141,76.0389 -99.2775,76.0341 -99.3304,76.0283 -99.3718,76.0199 -99.4019,76.011 -99.4519,76.0098 -99.5888,76.0323 -99.7412,76.047 -99.7914,76.0482 -99.8236,76.0456 -99.8447,76.0413 -99.8724,76.025 -99.862,76.0049 -99.8032,75.9368 -99.621,75.8433 -99.5838,75.8285 -99.5336,75.8415 -99.508,75.8442 -99.3804,75.8545 -99.2176,75.8667 -99.172,75.861 -99.2068,75.8516 -99.2318,75.8505 -99.3107,75.843 -99.4012,75.8244 -99.4462,75.8064 -99.4768,75.7997 -99.6113,75.7796 -99.7052,75.7836 -99.7693,75.8071 -99.8533,75.8456 -100.0327,75.9426 -100.1589,75.9978 -100.3485,76.0258 -100.4283,76.0588 -100.4685,76.0745 -100.5005,76.0833 -100.5825,76.1043 -100.6359,76.116 -100.6972,76.1275 -100.7207,76.1299 -100.8093,76.1752 -100.7783,76.2213 -100.8517,76.2426 -100.9206,76.2531 -100.9484,76.2612 -100.9938,76.2846 -101.0106,76.2967 -101.0294,76.3059 -101.1248,76.3225 -101.1476,76.326 -101.1696,76.3278 -101.3832,76.3406 -101.4949,76.3459 -101.5199,76.3456 -101.5738,76.3416 -101.5973,76.3365 -101.7302,76.3012 -101.7606,76.2866 -101.7411,76.2725 -101.7133,76.2446 -101.7738,76.1494 -101.7951,76.1431 -101.8464,76.1386 -101.8758,76.1326 -101.854,76.1154 -101.8276,76.1078 -101.7655,76.1057 -101.4891,76.1077 -101.4641,76.1082 -101.4134,76.1115 -101.2118,76.1259 -101.1567,76.1336 -101.1062,76.1389 -101.1808,76.111 -101.2038,76.106 -101.2485,76.0976 -101.3232,76.0868 -101.4001,76.08 -101.426,76.0772 -101.4757,76.0665 -101.6105,76.0058 -101.6211,75.9739 -101.6091,75.9529 -101.5566,75.9134 -101.5227,75.9005 -101.4455,75.8805 -101.3979,75.873 -101.3589,75.8725 -101.3342,75.8736 -101.1177,75.8911 -101.0935,75.9066 -101.0431,75.9127 -101.0235,75.9036 -101.1118,75.8685 -101.17,75.8565 -101.205,75.8507 -101.283,75.8227 -101.2971,75.8019 -101.2528,75.7547 -101.2078,75.7474 -101.1351,75.7495 -101.1044,75.7464 -101.0792,75.7389 -101.0572,75.7212 -101.0489,75.698 -101.0736,75.676 -101.0483,75.6681 -100.9516,75.6708 -100.9028,75.6732 -100.9231,75.6609 -100.9678,75.6406 -101.0223,75.6396 -101.1342,75.646 -101.1585,75.6493 -101.1872,75.6617 -101.2752,75.7146 -101.4629,75.7515 -101.4898,75.7619 -101.5201,75.7825 -101.544,75.7916 -101.5818,75.7955 -101.8548,75.7742 -101.8798,75.772 -101.9303,75.7639 -101.9303,75.6801 -101.8246,75.6799 -101.8102,75.6157 -101.7275,75.5978 -101.7465,75.5904 -101.7767,75.5845 -101.7976,75.5823 -101.8798,75.6013 -101.9303,75.6084 -101.9303,75.4472 -101.9268,75.4475 12,-6.0,Canada -101.9128,75.7928 -101.8628,75.7963 -101.8113,75.8047 -101.7373,75.8187 -101.7053,75.8273 -101.7028,75.8415 -101.7944,75.8642 -101.8801,75.8833 -101.9068,75.8824 -101.9303,75.8788 -101.9303,75.792 -101.9128,75.7928 429,-6.0,Canada -101.8874,72.4287 -101.8354,72.4192 -101.7368,72.3813 -101.6978,72.3553 -101.6454,72.2619 -101.595,72.2252 -101.5345,72.2032 -101.4476,72.1916 -101.4203,72.2046 -101.3928,72.2104 -101.3436,72.205 -101.2676,72.1867 -101.2282,72.1692 -101.16,72.1862 -101.0838,72.2184 -101.0354,72.2316 -100.9883,72.2367 -100.9602,72.2305 -100.8772,72.188 -100.8149,72.1379 -100.7775,72.0975 -100.7283,72.078 -100.7119,72.075 -100.6843,72.103 -100.6483,72.1112 -100.4808,72.1056 -100.4005,72.0909 -100.3413,72.0584 -100.0976,71.9062 -100.0821,71.8868 -99.867,71.7894 -99.8247,71.7727 -99.7339,71.7595 -99.6081,71.7396 -99.4423,71.6604 -99.4435,71.6384 -99.3534,71.5341 -99.3347,71.5213 -99.2983,71.5105 -99.2314,71.4984 -99.0836,71.345 -99.0587,71.3085 -99.0007,71.2493 -98.8872,71.2564 -98.8402,71.2618 -98.8149,71.2769 -98.7766,71.2878 -98.7411,71.2869 -98.7099,71.2748 -98.6542,71.2395 -98.6094,71.2054 -98.5888,71.1951 -98.5237,71.1802 -98.498,71.1761 -98.4745,71.178 -98.321,71.1942 -98.2786,71.205 -98.2391,71.2192 -97.9623,71.3247 -97.8936,71.3661 -97.8121,71.4342 -97.952,71.4773 -98.1453,71.5556 -98.2656,71.6226 -98.263,71.646 -98.2476,71.6718 -98.2261,71.6936 -98.0561,71.8013 -98.0303,71.8077 -97.9824,71.7914 -97.9984,71.7669 -98.029,71.7492 -98.0487,71.7393 -98.0939,71.7043 -98.1263,71.6308 -98.1016,71.6132 -98.0177,71.5679 -97.9842,71.5528 -97.9589,71.5477 -97.8936,71.5427 -97.8444,71.5467 -97.8159,71.556 -97.7529,71.5663 -97.5596,71.5493 -97.4926,71.531 -97.4695,71.5248 -97.4293,71.52 -97.2783,71.5167 -97.2438,71.5178 -97.2079,71.5228 -96.9833,71.5687 -96.9385,71.5806 -96.8575,71.6052 -96.7864,71.6539 -96.7569,71.6807 -96.5644,71.7323 -96.5115,71.7296 -96.5181,71.6971 -96.5003,71.6982 -96.3872,71.712 -96.3598,71.7177 -96.3381,71.7291 -96.2993,71.7734 -96.268,71.8272 -96.2891,71.8383 -96.3386,71.8365 -96.3802,71.8315 -96.418,71.8221 -96.4736,71.8044 -96.5029,71.8034 -96.5322,71.8161 -96.5138,71.8307 -96.4108,71.862 -96.3826,71.8634 -96.3543,71.8556 -96.3328,71.8522 -96.2838,71.8717 -96.2644,71.9107 -96.2616,71.9307 -96.2836,71.9427 -96.3398,71.9377 -96.3768,71.93 -96.3987,71.9203 -96.4447,71.917 -96.6006,71.9348 -96.6318,71.9429 -96.5526,71.9568 -96.4931,71.9568 -96.329,71.9758 -96.3009,71.9816 -96.2752,71.9917 -96.2569,72.0114 -96.2575,72.0371 -96.3279,72.1734 -96.3486,72.1822 -96.4389,72.1828 -96.5407,72.2026 -96.6375,72.224 -96.6008,72.2269 -96.5457,72.2268 -96.5082,72.2244 -96.4665,72.2142 -96.4381,72.2132 -96.3083,72.2466 -96.0696,72.3294 -96.1003,72.3976 -96.1433,72.4375 -96.1737,72.4623 -96.2274,72.5104 -96.289,72.5769 -96.2842,72.6171 -96.3781,72.6496 -96.5128,72.6192 -96.6816,72.5811 -96.7417,72.5606 -96.7718,72.5476 -96.8056,72.5288 -96.8496,72.5092 -96.9414,72.5045 -96.9636,72.5102 -96.9559,72.5435 -96.9391,72.5729 -96.8999,72.5909 -96.8714,72.5988 -96.845,72.6045 -96.7922,72.632 -96.8466,72.6826 -96.9677,72.7281 -97.0292,72.7513 -97.0258,72.7831 -96.9905,72.8434 -97.0545,72.8689 -97.2045,72.9012 -97.2893,72.9133 -97.4377,72.934 -97.6163,72.9498 -97.7483,72.9405 -97.9374,72.9004 -97.9876,72.8896 -98.0213,72.877 -98.1615,72.7944 -98.1859,72.7619 -98.2092,72.7725 -98.2142,72.8008 -98.2188,72.8951 -98.2098,72.9221 -98.1255,72.9396 -98.0792,72.9524 -97.9938,72.9845 -97.9822,73.0015 -97.9621,73.0121 -97.911,73.0325 -97.8718,73.0442 -97.836,73.0529 -97.7885,73.0668 -97.7428,73.0825 -97.6108,73.1472 -97.6019,73.172 -97.4677,73.2058 -97.4116,73.2182 -97.1349,73.2484 -96.9996,73.2529 -96.9674,73.2493 -96.9335,73.2553 -96.91,73.2911 -96.9167,73.2965 -96.9279,73.3582 -96.9488,73.3681 -96.9908,73.3752 -97.1676,73.3941 -97.1951,73.3927 -97.2711,73.3817 -97.2921,73.3748 -97.3289,73.3578 -97.373,73.3565 -97.404,73.3645 -97.4242,73.3805 -97.3886,73.4382 -97.1936,73.4264 -96.9518,73.4603 -96.7533,73.5228 -96.724,73.537 -96.6927,73.597 -96.7228,73.6399 -96.9789,73.7561 -97.0152,73.7601 -97.0914,73.7653 -97.1124,73.7624 -97.1544,73.7589 -97.2187,73.7578 -97.2617,73.7649 -97.2794,73.7767 -97.3076,73.7884 -97.3357,73.7938 -97.5152,73.8117 -97.55,73.8116 -97.6408,73.7991 -97.6664,73.7923 -97.6943,73.7664 -97.7076,73.7493 -97.7303,73.7426 -97.825,73.7194 -97.8483,73.7156 -97.8874,73.7099 -97.9384,73.7039 -97.9604,73.7052 -98.0437,73.7018 -98.1772,73.6938 -98.2672,73.6876 -98.3943,73.6771 -98.4406,73.6722 -98.4689,73.6666 -98.5085,73.6561 -98.5812,73.652 -98.7238,73.6505 -98.8666,73.6487 -98.9863,73.6378 -99.2369,73.7239 -99.281,73.732 -99.339,73.7376 -99.4722,73.7481 -99.5557,73.7977 -99.5556,73.8284 -99.6039,73.8406 -99.6444,73.8439 -99.6861,73.8458 -99.7283,73.8456 -99.7849,73.842 -99.8517,73.8359 -99.8821,73.8312 -99.9951,73.806 -100.0195,73.7941 -100.0445,73.7644 -100.0032,73.7359 -99.9231,73.728 -99.8848,73.7273 -99.7976,73.7329 -99.7658,73.7391 -99.7423,73.7482 -99.7282,73.7622 -99.71,73.773 -99.6241,73.7712 -99.6105,73.7403 -99.8121,73.665 -100.0909,73.7168 -100.1177,73.728 -100.14,73.7398 -100.1652,73.7455 -100.2769,73.7535 -100.3011,73.7548 -100.403,73.7467 -100.4536,73.7231 -100.4807,73.7152 -100.5018,73.7124 -100.5321,73.7122 -100.5749,73.7154 -100.6843,73.7101 -100.706,73.7092 -100.7359,73.704 -100.7601,73.6971 -100.8656,73.6255 -100.7901,73.5733 -100.7307,73.5792 -100.6038,73.5649 -100.6191,73.5402 -100.6547,73.5252 -100.516,73.5044 -100.3776,73.4939 -100.3227,73.4973 -100.3001,73.4975 -100.2963,73.4603 -100.3581,73.4127 -100.3453,73.3899 -100.282,73.3668 -100.2445,73.3556 -100.2057,73.343 -100.1744,73.3179 -100.1955,73.3075 -100.2158,73.308 -100.26,73.3158 -100.423,73.3653 -100.4479,73.3862 -100.4618,73.405 -100.5202,73.4408 -100.6324,73.4936 -100.6662,73.5003 -100.9559,73.5054 -100.9917,73.493 -101.0069,73.4665 -101.0286,73.4532 -101.0634,73.4514 -101.1482,73.4544 -101.1815,73.4513 -101.3667,73.3885 -101.3287,73.3513 -101.3066,73.3475 -101.2191,73.3369 -101.0618,73.2948 -101.0585,73.2674 -100.7287,73.1814 -100.6408,73.1657 -100.5833,73.1614 -100.3357,73.1848 -100.3136,73.188 -100.1397,73.2396 -100.1575,73.2625 -100.1378,73.2968 -100.1177,73.2957 -100.0802,73.2871 -100.0242,73.2596 -99.9521,73.2196 -99.9122,73.1906 -99.8396,73.1556 -99.7089,73.1194 -99.68,73.1165 -99.6406,73.1147 -99.6039,73.1166 -99.5666,73.1171 -99.5295,73.108 -99.5562,73.097 -99.5957,73.0929 -99.7671,73.0848 -99.7997,73.0864 -99.8883,73.1223 -100.034,73.1803 -100.1221,73.1913 -100.1547,73.1836 -100.2435,73.1323 -100.3362,73.0719 -100.3581,73.0452 -100.3402,73.0345 -100.2724,72.9995 -100.197,72.9889 -100.1684,73.0064 -100.1407,73.0222 -100.0995,73.0317 -100.0776,73.035 -100.043,73.0374 -99.995,73.0372 -99.9244,72.9802 -99.8684,72.9276 -99.8039,72.8591 -99.7877,72.8371 -99.8238,72.8045 -99.8531,72.7886 -99.9532,72.7801 -99.9737,72.7787 -100.0416,72.776 -100.0793,72.7921 -100.137,72.8513 -100.1055,72.914 -100.0696,72.9314 -100.1131,72.9488 -100.1764,72.9367 -100.212,72.9194 -100.2546,72.8553 -100.2332,72.8517 -100.1091,72.7562 -100.0718,72.7014 -100.1001,72.6765 -100.1696,72.6446 -100.1917,72.6395 -100.2054,72.6381 -100.2327,72.6452 -100.2606,72.6512 -100.2899,72.654 -100.4637,72.6584 -100.5545,72.6462 -100.5745,72.6154 -100.6388,72.5922 -100.6724,72.5908 -100.7894,72.5922 -101.0528,72.6125 -101.1244,72.6289 -101.1682,72.6509 -101.1591,72.6849 -101.2689,72.7771 -101.3482,72.8043 -101.4279,72.8118 -101.5006,72.8295 -101.5659,72.8655 -101.6354,72.9267 -101.7214,72.9723 -101.7647,72.9815 -101.8344,72.9858 -101.8874,72.9886 -101.9303,72.9874 -101.9303,72.4365 -101.8874,72.4287 24,-6.0,Canada -101.9199,68.8653 -101.9015,68.8833 -101.8789,68.8997 -101.8372,68.9083 -101.8096,68.9036 -101.7797,68.8816 -101.7523,68.8781 -101.7312,68.879 -101.6819,68.8865 -101.6338,68.8956 -101.5923,68.9109 -101.5351,69.0738 -101.5595,69.1035 -101.7113,69.172 -101.7385,69.1692 -101.7924,69.1527 -101.822,69.1396 -101.8384,69.1165 -101.8493,69.0992 -101.8686,69.0902 -101.8943,69.0924 -101.9303,69.1075 -101.9303,68.8617 -101.9199,68.8653 9,-6.0,Canada -101.9199,69.1845 -101.8162,69.1977 -101.7144,69.3214 -101.7319,69.3439 -101.8324,69.3922 -101.8728,69.398 -101.9303,69.401 -101.9303,69.1832 -101.9199,69.1845 66,-6.0,Canada -101.9199,69.7936 -101.8437,69.7599 -101.8014,69.7275 -101.7348,69.6571 -101.7143,69.6451 -101.6761,69.6418 -101.6422,69.6534 -101.545,69.6304 -101.4743,69.5925 -101.4326,69.5925 -101.3878,69.6158 -101.3418,69.6652 -101.3232,69.7033 -101.2993,69.738 -101.2535,69.7965 -101.2303,69.8169 -101.1993,69.8026 -101.2171,69.7659 -101.2468,69.7439 -101.2344,69.7087 -101.2181,69.6794 -101.1072,69.5809 -101.0643,69.5737 -100.8456,69.5586 -100.7445,69.5712 -100.7244,69.5798 -100.7056,69.6023 -100.7043,69.6262 -100.6813,69.6637 -100.6594,69.6813 -100.651,69.6979 -100.6508,69.724 -100.6674,69.7937 -100.7021,69.8747 -100.738,69.9619 -100.7505,70.0484 -100.7541,70.0685 -100.7752,70.0812 -100.8152,70.0913 -100.8867,70.1008 -100.9076,70.0715 -101.0057,70.0411 -101.0349,70.0503 -101.0617,70.0607 -101.1415,70.0854 -101.1694,70.0536 -101.3077,70.0162 -101.3307,70.0201 -101.3925,70.066 -101.4202,70.1118 -101.4143,70.1371 -101.379,70.1558 -101.365,70.1783 -101.463,70.2145 -101.4877,70.217 -101.5774,70.208 -101.5943,70.1834 -101.6165,70.1666 -101.6419,70.1619 -101.6664,70.1627 -101.6984,70.1686 -101.7604,70.1912 -101.8892,70.2473 -101.9303,70.2586 -101.9303,69.7982 -101.9199,69.7936 27,-6.0,Canada -95.1529,66.9981 -95.0936,66.9399 -95.029,66.8932 -95.0676,66.8325 -95.1007,66.8112 -95.1313,66.8067 -95.1933,66.8263 -95.2763,66.8269 -95.2972,66.8204 -95.3207,66.8176 -95.5347,66.8166 -95.5612,66.8281 -95.5807,66.8489 -95.6175,66.8565 -95.6776,66.8596 -95.6421,66.8633 -95.5467,66.8751 -95.5243,66.8797 -95.4178,66.8853 -95.4014,66.864 -95.3386,66.8562 -95.2205,66.8672 -95.158,66.8771 -95.1442,66.8979 -95.1311,66.9371 -95.1562,67.0013 -95.1529,66.9981 1761,-6.0,Canada -109.93,48.9435 -109.8388,48.9443 -109.8068,48.9436 -109.6413,48.9433 -109.4744,48.9434 -109.1745,48.9433 -108.6755,48.9431 -108.5086,48.9432 -108.3758,48.9433 -108.1763,48.9432 -108.0107,48.9434 -107.6433,48.9433 -107.578,48.9431 -107.4772,48.9432 -107.2777,48.9439 -107.1782,48.9438 -106.5795,48.9434 -106.3123,48.9432 -106.1131,48.9433 -105.98,48.9431 -105.8796,48.9434 -105.5474,48.9434 -105.1141,48.9438 -104.8475,48.9434 -104.6814,48.9432 -104.1824,48.9434 -103.9829,48.9435 -103.8808,48.9441 -103.5833,48.9431 -103.3839,48.9434 -103.2841,48.944 -103.1177,48.9438 -103.0173,48.9433 -102.8845,48.9434 -102.6179,48.9433 -102.3853,48.9442 -102.1857,48.9434 -102.0192,48.9437 -101.3205,48.9433 -101.219,48.9427 -101.1538,48.9442 -100.9213,48.9439 -100.3547,48.9434 -99.8559,48.9438 -99.6896,48.944 -99.1901,48.9433 -98.724,48.9439 -98.3579,48.9434 -98.1252,48.944 -97.8257,48.9443 -97.6586,48.9437 -97.493,48.9432 -97.3599,48.9433 -97.0775,48.9437 -95.1271,48.9438 -95.0148,48.9433 -95.0142,49.1171 -95.0146,49.2767 -95.014,49.3098 -95.0128,49.3199 -95.0024,49.3149 -94.9807,49.3085 -94.9418,49.3029 -94.886,49.3011 -94.8586,49.301 -94.8225,49.3045 -94.7921,49.3019 -94.6783,49.2491 -94.6666,49.1304 -94.6591,49.101 -94.6282,49.0194 -94.6063,48.9723 -94.5913,48.9406 -94.5801,48.9185 -94.5673,48.877 -94.5624,48.8465 -94.5686,48.8022 -94.5697,48.741 -94.5566,48.7228 -94.5023,48.6854 -94.4677,48.6686 -94.3863,48.646 -94.3629,48.6411 -94.3234,48.6394 -94.2957,48.6463 -94.2628,48.6549 -94.1608,48.6513 -94.1299,48.6402 -94.1106,48.6053 -93.997,48.5869 -93.975,48.5854 -93.9268,48.5822 -93.7464,48.5745 -93.722,48.5731 -93.6972,48.5609 -93.6824,48.5306 -93.6682,48.4762 -93.6495,48.4614 -93.5879,48.4584 -93.5244,48.4598 -93.3602,48.483 -93.3284,48.4961 -93.3179,48.5286 -93.2722,48.5529 -93.18,48.5734 -93.1093,48.5847 -92.816,48.567 -92.5804,48.4857 -92.5629,48.4298 -92.4478,48.3861 -92.3212,48.3389 -92.2922,48.2562 -92.2259,48.1764 -92.1978,48.1789 -92.1576,48.1936 -92.1523,48.2148 -92.1659,48.2442 -92.143,48.2795 -92.1233,48.2917 -92.0284,48.3013 -92.0079,48.3017 -91.906,48.2902 -91.8808,48.2493 -91.8747,48.2259 -91.8586,48.206 -91.8304,48.1852 -91.8071,48.1752 -91.7174,48.1486 -91.651,48.1395 -91.6072,48.1362 -91.5547,48.0896 -91.5127,48.0435 -91.4411,48.038 -91.3306,48.0029 -91.2863,47.986 -91.2548,48.004 -91.2153,48.0129 -91.1866,48.0146 -91.1443,48.0178 -91.1085,48.0286 -91.0608,48.06 -91.0175,48.0889 -90.9943,48.1 -90.8375,48.1595 -90.7966,48.1735 -90.7665,48.1815 -90.7369,48.1825 -90.7037,48.1718 -90.7041,48.1495 -90.6426,48.0487 -90.6185,48.0377 -90.1494,48.058 -90.016,48.0663 -90.0,48.0634 -90.0,56.1247 -88.934,56.7895 -88.9743,56.7974 -89.2798,56.8562 -89.362,56.8618 -89.5552,56.8895 -89.6727,56.9109 -89.8099,56.9364 -89.8397,56.9487 -89.8642,56.9637 -90.0642,57.0366 -90.1494,57.067 -90.2281,57.1058 -90.2467,57.1139 -90.2891,57.1258 -90.4009,57.1444 -90.5518,57.1591 -90.5755,57.1646 -90.5961,57.1696 -90.6246,57.1785 -90.6619,57.1884 -90.8341,57.1933 -90.8823,57.189 -90.9261,57.1831 -90.9924,57.1721 -91.0778,57.1543 -91.6161,57.0323 -91.6649,57.0196 -91.7879,56.9897 -91.8234,56.9849 -91.8672,56.9789 -91.8935,56.976 -91.9286,56.9732 -91.982,56.9699 -92.0156,56.9631 -92.0478,56.954 -92.0706,56.9451 -92.1007,56.9257 -92.1195,56.9092 -92.1385,56.8999 -92.2102,56.8823 -92.3032,56.8662 -92.2608,56.8912 -92.2254,56.8995 -92.1958,56.9043 -92.1764,56.9119 -92.0541,56.9921 -92.08,56.9979 -92.2111,56.9888 -92.2355,56.9846 -92.278,56.9771 -92.3188,56.9674 -92.3495,56.956 -92.3876,56.937 -92.4241,56.9189 -92.4486,56.9044 -92.491,56.8796 -92.5261,56.8661 -92.5662,56.8549 -92.5919,56.8512 -92.6253,56.8465 -92.6758,56.8403 -92.7029,56.839 -92.7069,56.8439 -92.6719,56.8569 -92.6063,56.8704 -92.5563,56.8786 -92.5299,56.894 -92.4047,56.9953 -92.3841,57.0176 -92.2756,57.1627 -92.2629,57.1895 -92.2526,57.2646 -92.2821,57.3693 -92.4536,57.6021 -92.5049,57.6644 -92.5567,57.7325 -92.5854,57.782 -92.6267,57.8999 -92.6365,57.9377 -92.6325,57.9806 -92.6425,58.0023 -92.6996,58.0736 -92.7614,58.1421 -92.7949,58.1914 -92.8648,58.3013 -92.9243,58.3974 -92.9472,58.4391 -92.9554,58.4602 -92.9681,58.5839 -92.9695,58.6218 -92.9819,58.6689 -93.0245,58.6882 -93.0445,58.6937 -93.0646,58.6965 -93.1511,58.6875 -93.1751,58.678 -93.3031,58.6622 -93.4029,58.6936 -93.5003,58.7105 -93.5458,58.7145 -93.6254,58.7033 -93.6707,58.6976 -93.7759,58.6923 -93.8225,58.6905 -93.9404,58.6918 -93.9701,58.6935 -94.0716,58.5178 -94.0657,58.4242 -94.0585,58.361 -94.0569,58.326 -94.0868,58.2819 -94.1856,58.1539 -94.1775,58.212 -94.1538,58.2797 -94.1182,58.3562 -94.1121,58.4427 -94.0786,58.58 -94.0609,58.6444 -94.0551,58.7147 -94.1052,58.7007 -94.1172,58.6735 -94.1613,58.6482 -94.1874,58.6426 -94.242,58.6452 -94.2723,58.6652 -94.2808,58.6982 -94.3058,58.7386 -94.4171,58.8061 -94.501,58.8638 -94.5054,58.9031 -94.6139,59.0216 -94.6052,59.1901 -94.5961,59.2247 -94.5387,59.2521 -94.5038,59.286 -94.5583,59.3551 -94.6115,59.444 -94.6413,59.5648 -94.6255,59.6393 -94.6247,59.8058 -94.6422,59.8836 -94.6216,59.9274 -94.6251,59.9339 -94.5903,59.986 -94.5715,59.9968 -94.5319,60.012 -94.4951,60.1183 -94.5035,60.1512 -94.4374,60.3045 -94.4489,60.343 -94.4927,60.3931 -94.4939,60.4491 -94.4321,60.4545 -94.3902,60.448 -94.328,60.4736 -94.2726,60.5978 -94.2356,60.6858 -94.2117,60.7253 -94.1717,60.7823 -94.0476,60.8687 -93.9686,60.9695 -93.8777,61.104 -93.7568,61.2215 -93.6659,61.2424 -93.6398,61.2781 -93.6828,61.3126 -93.7195,61.3132 -93.7472,61.3115 -93.7884,61.3218 -93.8047,61.3804 -93.6764,61.4741 -93.4749,61.5541 -93.4141,61.573 -93.363,61.5883 -93.2699,61.6071 -93.1773,61.632 -93.076,61.6674 -93.065,61.7031 -93.1032,61.7136 -93.2559,61.7337 -93.3765,61.7725 -93.4366,61.7865 -93.4198,61.8037 -93.4356,61.8642 -93.2816,61.8469 -93.2622,61.8396 -93.1508,61.8107 -93.1247,61.8091 -93.1021,61.8158 -93.0435,61.8804 -93.0646,61.8937 -93.1389,61.9223 -93.172,61.9299 -93.2064,61.9356 -93.2317,61.9528 -93.1449,61.9755 -93.1227,61.9738 -93.0975,61.9671 -93.0619,61.9542 -92.9608,61.934 -92.8114,61.9918 -92.7887,62.0014 -92.757,62.0351 -92.8435,62.0487 -92.8932,62.0286 -92.9426,62.0573 -92.9321,62.0796 -92.8924,62.0975 -92.7746,62.1168 -92.6693,62.0999 -92.615,62.0992 -92.5854,62.1459 -92.6008,62.1609 -92.6545,62.1826 -92.6867,62.1868 -92.7184,62.1848 -92.9419,62.2586 -92.895,62.256 -92.6657,62.2333 -92.5647,62.2122 -92.5212,62.1895 -92.4599,62.1377 -92.4465,62.1158 -92.419,62.0797 -92.3033,62.0786 -92.3578,62.0995 -92.3901,62.1169 -92.4246,62.1604 -92.4265,62.1873 -92.4091,62.2246 -92.4272,62.2385 -92.4486,62.246 -92.4861,62.2565 -92.5399,62.2751 -92.5493,62.3597 -92.5301,62.3892 -92.432,62.3895 -92.3592,62.4558 -92.2883,62.4679 -92.2514,62.4593 -92.211,62.454 -92.1856,62.4569 -92.1462,62.4641 -92.0942,62.4925 -92.0912,62.5165 -92.0121,62.5264 -91.9791,62.5226 -91.8746,62.45 -91.7662,62.4565 -91.7063,62.5262 -91.7042,62.5476 -91.7384,62.5637 -91.7701,62.5751 -91.7926,62.5764 -91.8555,62.5736 -91.8885,62.5749 -92.0042,62.5808 -92.0534,62.5963 -92.1538,62.6331 -92.2763,62.7224 -92.2667,62.7422 -92.2315,62.7573 -92.2074,62.7637 -92.182,62.7672 -92.1601,62.7665 -92.0426,62.7507 -91.908,62.7419 -91.811,62.7698 -91.6612,62.7494 -91.4008,62.7231 -91.2836,62.7056 -91.2622,62.7059 -91.1836,62.7112 -91.0326,62.78 -91.019,62.8118 -91.0,62.8299 -90.8657,62.8661 -90.8394,62.869 -90.7575,62.8676 -90.6928,62.8572 -90.6704,62.8557 -90.6484,62.856 -90.6056,62.8623 -90.5628,62.8848 -90.472,62.959 -90.4502,62.9819 -90.5131,63.1506 -90.564,63.283 -90.6386,63.2913 -90.747,63.3096 -90.7715,63.3193 -90.7897,63.3421 -90.7607,63.3424 -90.7372,63.3326 -90.6764,63.3306 -90.7672,63.362 -90.9542,63.4 -91.0951,63.4241 -91.2187,63.4468 -91.424,63.5045 -91.4377,63.5304 -91.4336,63.562 -91.4907,63.5997 -91.5148,63.6119 -91.5893,63.6359 -91.6417,63.6351 -91.7902,63.6015 -91.9841,63.5459 -92.0211,63.5313 -92.0988,63.4777 -92.1551,63.4787 -92.2476,63.4688 -92.2994,63.4489 -92.3113,63.4626 -92.3081,63.4891 -92.2034,63.5141 -92.0761,63.5444 -92.0231,63.5597 -91.9225,63.6195 -91.9666,63.6382 -92.0754,63.6625 -92.1248,63.6601 -92.1671,63.6553 -92.2072,63.657 -92.2349,63.6672 -92.2504,63.7078 -92.2963,63.7333 -92.2523,63.7262 -91.9993,63.6783 -91.9612,63.6682 -91.8852,63.6632 -91.7296,63.6618 -91.401,63.6367 -91.3758,63.6495 -91.3546,63.6518 -91.2318,63.6287 -91.1694,63.6072 -91.1918,63.6072 -91.2213,63.5942 -91.1963,63.5805 -91.0539,63.5515 -91.0174,63.5504 -90.979,63.557 -90.9585,63.5523 -90.8562,63.5206 -90.8056,63.4998 -90.758,63.4871 -90.6711,63.4816 -90.6497,63.4835 -90.5556,63.4957 -90.3792,63.5219 -90.3635,63.5363 -90.3789,63.5779 -90.425,63.5959 -90.4406,63.5805 -90.4775,63.5763 -90.5128,63.5787 -90.4611,63.6233 -90.4398,63.6249 -90.3166,63.596 -90.287,63.568 -90.2517,63.5376 -90.0811,63.5287 -90.0589,63.5289 -90.0278,63.5338 -89.9755,63.5493 -89.9128,63.6203 -89.8804,63.666 -89.7952,63.7024 -89.7902,63.7356 -89.9363,63.8519 -90.0281,63.9075 -90.0493,63.9152 -90.094,63.9225 -90.0713,63.9284 -90.0104,63.93 -89.8224,63.9051 -89.7775,63.8928 -89.7718,63.8701 -89.7922,63.8555 -89.8156,63.846 -89.7679,63.8322 -89.6488,63.8454 -89.6367,63.8633 -89.6521,63.8985 -89.6897,63.9108 -89.7269,63.9366 -89.7685,63.9784 -89.7729,64.0079 -89.8807,64.0305 -89.9398,64.0466 -89.7993,64.0811 -89.7385,64.0808 -89.7083,64.0647 -89.6679,64.0636 -89.6427,64.0668 -89.6256,64.143 -89.6117,64.1637 -89.5823,64.1504 -89.5675,64.0593 -89.6033,64.0553 -89.6285,64.0513 -89.6435,64.0267 -89.6083,63.9976 -89.55,63.9683 -89.5307,63.9976 -89.4642,63.9724 -89.4101,63.929 -89.3478,63.8791 -89.3207,63.8641 -89.3091,63.8634 -89.3106,63.874 -89.3478,63.9044 -89.3746,63.9192 -89.3877,63.9353 -89.3787,63.9952 -89.3306,63.9915 -89.2197,63.9595 -89.1452,63.9178 -89.0747,63.8824 -88.8601,63.8677 -88.8782,63.8815 -88.9208,63.8948 -89.0066,63.9576 -89.1088,64.0601 -89.074,64.0782 -89.0374,64.0473 -89.0254,64.0204 -89.0066,64.0022 -88.9748,63.9801 -88.9426,63.9631 -88.9019,63.9472 -88.8184,63.9195 -88.5842,63.8904 -88.5618,63.8895 -88.5044,63.8998 -88.3782,63.9438 -88.1111,64.0273 -87.9444,64.0555 -87.8136,64.1091 -87.6912,64.2949 -87.6814,64.3546 -87.6203,64.4381 -87.5906,64.441 -87.5241,64.4473 -87.4094,64.4853 -87.3482,64.5408 -87.2566,64.6318 -86.9365,64.9183 -86.8671,64.9501 -86.8244,64.96 -86.7973,64.9746 -86.7616,65.0614 -86.7779,65.0798 -86.9009,65.1549 -87.0361,65.1725 -87.183,65.1894 -87.4269,65.2088 -87.4978,65.2099 -87.5558,65.2087 -87.7679,65.2045 -87.8023,65.2018 -87.84,65.195 -87.8858,65.1772 -87.9271,65.1949 -87.9571,65.1967 -88.0388,65.1954 -88.188,65.1934 -88.2123,65.1955 -88.3134,65.2115 -88.4298,65.2252 -88.4995,65.2288 -88.5269,65.2248 -88.5564,65.2244 -88.5937,65.226 -88.8791,65.2489 -88.9675,65.3186 -89.1297,65.3876 -89.249,65.4472 -89.4765,65.5988 -89.5398,65.6305 -89.5643,65.6422 -89.7509,65.6988 -89.7788,65.7061 -89.8119,65.7134 -89.8324,65.7178 -89.8963,65.7297 -90.3488,65.7979 -90.5093,65.8035 -90.5587,65.8051 -90.7311,65.8215 -90.7651,65.8279 -90.7998,65.836 -90.8801,65.8381 -90.9098,65.8376 -90.9357,65.8222 -90.8709,65.7639 -90.8285,65.7282 -90.8703,65.7286 -91.0053,65.7705 -91.1503,65.8019 -91.1737,65.8087 -91.2596,65.848 -91.2446,65.8683 -91.141,65.8869 -90.8844,65.8574 -90.6669,65.8323 -90.5505,65.8212 -90.5255,65.8197 -90.4132,65.8138 -90.3912,65.8139 -90.2364,65.8181 -90.178,65.8251 -90.111,65.8356 -90.0766,65.8398 -90.0382,65.8265 -90.0904,65.8148 -90.151,65.8146 -90.1754,65.8154 -90.2106,65.8134 -90.2434,65.798 -90.222,65.7884 -90.1329,65.7793 -90.0836,65.7777 -90.0597,65.7785 -90.0253,65.7816 -89.9809,65.7896 -89.9382,65.8013 -89.8978,65.8071 -89.867,65.8056 -89.7149,65.7725 -89.6474,65.7451 -89.6121,65.7399 -89.5882,65.74 -89.5539,65.7499 -89.5553,65.7885 -89.6182,65.8154 -89.6527,65.8276 -89.6895,65.8382 -89.7177,65.8456 -89.7512,65.8522 -89.7823,65.8539 -89.8138,65.8632 -89.7854,65.8659 -89.528,65.8592 -89.487,65.8542 -89.4165,65.828 -89.3447,65.8043 -89.1996,65.7635 -88.9858,65.692 -88.9676,65.6735 -88.9512,65.654 -88.9202,65.6427 -88.8219,65.6161 -88.7774,65.6053 -88.601,65.5936 -88.3352,65.5622 -88.3208,65.5447 -88.4442,65.5549 -88.5783,65.5605 -88.6506,65.5606 -88.5076,65.5198 -88.4647,65.5103 -88.4015,65.5081 -88.3764,65.5027 -88.1565,65.4104 -88.1363,65.3971 -88.0674,65.3457 -88.0404,65.3233 -87.9182,65.2814 -87.8939,65.2742 -87.8539,65.2634 -87.8284,65.2576 -87.7906,65.2515 -87.7658,65.2491 -87.7172,65.245 -87.6933,65.2437 -87.6577,65.242 -87.2558,65.239 -87.2209,65.2396 -87.1845,65.2438 -86.9372,65.3086 -86.9391,65.3541 -86.9355,65.3765 -86.9167,65.3949 -86.889,65.4046 -86.8609,65.3972 -86.8464,65.4024 -86.7981,65.4383 -86.7793,65.4572 -86.709,65.4743 -86.6849,65.4738 -86.6528,65.4753 -86.5418,65.5353 -86.3561,65.6131 -86.2787,65.6624 -86.2852,65.7044 -86.3194,65.7222 -86.2979,65.7572 -86.2459,65.8097 -86.1802,65.8166 -86.1519,65.8221 -86.0701,65.8514 -86.0475,65.8695 -85.9472,65.9015 -85.9031,65.9129 -85.8057,65.9485 -85.8026,65.9923 -85.7251,66.0872 -85.7466,66.1008 -85.9012,66.1403 -85.9674,66.1564 -86.1306,66.1928 -86.2207,66.2063 -86.3215,66.2158 -86.4368,66.2279 -86.4688,66.236 -86.6313,66.3558 -86.6131,66.364 -86.5802,66.3574 -86.5539,66.3532 -86.502,66.3489 -86.4625,66.354 -86.4861,66.3655 -86.5244,66.3827 -86.5671,66.4045 -86.6015,66.4345 -86.5809,66.4445 -86.5557,66.4392 -86.5154,66.4275 -86.4895,66.423 -86.4524,66.4223 -86.4289,66.4257 -86.4046,66.4402 -86.1075,66.4345 -86.0806,66.4292 -85.9589,66.4146 -85.9276,66.4128 -85.9032,66.4131 -85.8261,66.4237 -85.7071,66.4265 -85.6794,66.4167 -85.5355,66.4522 -85.4239,66.4853 -85.401,66.4905 -85.3774,66.4935 -85.3113,66.4975 -85.2873,66.4922 -85.1704,66.4031 -85.1718,66.3689 -85.1661,66.3154 -85.1306,66.2257 -85.0876,66.1941 -85.0483,66.1799 -85.0145,66.1778 -85.0,66.1857 -85.0,66.7643 -85.0156,66.7687 -85.0523,66.79 -85.0,66.8243 -85.0,68.6467 -85.0386,68.6291 -85.1403,68.6357 -85.1984,68.6566 -85.1851,68.6718 -85.2336,68.6826 -85.2764,68.6896 -85.3322,68.6957 -85.3701,68.6903 -85.3262,68.6784 -85.2878,68.6624 -85.3128,68.6485 -85.3822,68.639 -85.417,68.6505 -85.4547,68.6515 -85.4877,68.6307 -85.5517,68.5106 -85.5456,68.3985 -85.5318,68.324 -85.66,68.232 -85.7074,68.1027 -85.7338,68.0051 -85.7148,67.9643 -85.8154,67.9225 -85.8552,67.9161 -85.9177,67.8912 -86.1068,67.7836 -86.1746,67.7442 -86.3278,67.6111 -86.3431,67.5903 -86.3044,67.5265 -86.2764,67.5135 -86.3056,67.431 -86.3157,67.4112 -86.2943,67.3891 -86.3269,67.287 -86.3503,67.2649 -86.4068,67.2594 -86.4677,67.2726 -86.5052,67.2856 -86.5301,67.3024 -86.5925,67.335 -86.6184,67.3358 -86.6944,67.3192 -86.9069,67.2613 -86.8955,67.2417 -86.829,67.1968 -86.7873,67.1638 -86.8898,67.134 -86.938,67.1273 -87.0607,67.1307 -87.1426,67.0776 -87.3302,67.0297 -87.3261,67.0949 -87.3061,67.1089 -87.2544,67.1214 -87.1785,67.1681 -87.2797,67.2585 -87.3555,67.2934 -87.4037,67.3096 -87.4332,67.3227 -87.6071,67.4193 -87.6519,67.4459 -87.6989,67.482 -87.7778,67.5235 -87.7971,67.5299 -87.826,67.5367 -87.8828,67.5485 -87.9125,67.5563 -87.9487,67.5739 -87.9725,67.5919 -88.0887,67.7117 -88.101,67.7307 -88.1865,67.8761 -88.1889,67.9417 -88.1625,67.9505 -88.1545,67.9808 -88.1384,67.9943 -88.0944,68.0219 -88.1517,68.1323 -88.176,68.1465 -88.1949,68.1581 -88.2155,68.1842 -88.2029,68.2012 -88.036,68.2782 -87.9213,68.1553 -87.7505,68.11 -87.6623,68.1588 -87.6154,68.2246 -87.6073,68.2468 -87.6072,68.3078 -87.6485,68.3392 -87.6966,68.4048 -87.7427,68.4803 -87.7587,68.5202 -87.7436,68.5379 -87.7305,68.5639 -87.7353,68.5851 -87.7608,68.6436 -87.7811,68.675 -87.8579,68.7301 -87.8949,68.7529 -87.9282,68.772 -88.0152,68.8205 -88.0826,68.8465 -88.2173,68.8941 -88.2684,68.9039 -88.2914,68.9103 -88.4344,68.9538 -88.5875,69.0121 -88.6745,69.0564 -88.7464,69.1296 -88.778,69.1523 -88.8084,69.162 -88.8527,69.1738 -88.8992,69.1828 -88.9328,69.1859 -88.9827,69.1841 -89.0289,69.1774 -89.067,69.1708 -89.1228,69.16 -89.2022,69.1211 -89.2078,69.0941 -89.267,69.0445 -89.2949,69.0239 -89.3378,69.0016 -89.3694,68.9883 -89.3912,68.9797 -89.4526,68.9595 -89.4743,68.9496 -89.5007,68.9353 -89.5204,68.9217 -89.5642,68.8593 -89.5452,68.7985 -89.5239,68.7584 -89.4958,68.7279 -89.5026,68.6757 -89.5389,68.611 -89.5672,68.5959 -89.5943,68.62 -89.6153,68.623 -89.7042,68.5642 -89.7588,68.5145 -89.7335,68.4708 -89.712,68.4574 -89.7224,68.3793 -89.7956,68.3084 -89.8487,68.2648 -89.9335,68.1679 -89.9547,68.1565 -89.9891,68.1485 -90.0175,68.1438 -90.0428,68.1432 -90.0733,68.1485 -90.1769,68.2579 -90.1533,68.2779 -90.1307,68.285 -90.1712,68.2966 -90.2759,68.3163 -90.3328,68.3268 -90.3687,68.3358 -90.4132,68.362 -90.3933,68.3778 -90.3664,68.3868 -90.3253,68.4024 -90.2829,68.4431 -90.2875,68.6184 -90.3147,68.6369 -90.3305,68.6543 -90.3,68.6805 -90.2613,68.6867 -90.2269,68.7522 -90.2437,68.7859 -90.2815,68.8019 -90.3439,68.8211 -90.3906,68.8403 -90.4713,68.9663 -90.4631,68.988 -90.6206,69.0445 -90.7002,69.0618 -90.724,69.0718 -90.8362,69.129 -90.9351,69.1527 -91.1392,69.2149 -91.2373,69.2602 -91.1541,69.2408 -91.1002,69.2224 -91.019,69.2009 -90.8857,69.1778 -90.731,69.1578 -90.709,69.1571 -90.6152,69.1659 -90.617,69.2011 -90.6166,69.2494 -90.5951,69.2733 -90.546,69.2932 -90.5084,69.2991 -90.3935,69.3252 -90.4418,69.3399 -90.5069,69.3615 -90.4226,69.3626 -90.3605,69.333 -90.2983,69.3511 -90.2622,69.3596 -90.2385,69.3552 -90.2093,69.3404 -90.1567,69.3414 -90.1187,69.3584 -90.2417,69.3998 -90.2983,69.4145 -90.3414,69.424 -90.4555,69.4447 -90.5117,69.4496 -90.5594,69.4039 -90.6342,69.3953 -90.7734,69.4215 -90.912,69.42 -90.9428,69.4329 -90.9588,69.452 -90.989,69.4708 -91.1303,69.4472 -91.2051,69.4324 -91.365,69.4277 -91.3072,69.4459 -91.2633,69.45 -91.1911,69.4519 -91.1635,69.4555 -91.1372,69.4631 -90.9005,69.5408 -90.9979,69.5645 -91.0236,69.5634 -91.1166,69.5629 -91.221,69.5654 -91.2529,69.5687 -91.2907,69.5713 -91.6041,69.4143 -91.7401,69.428 -91.8854,69.4547 -91.9256,69.4653 -92.0931,69.5501 -92.0441,69.5401 -91.9292,69.5225 -91.8938,69.5313 -92.0058,69.5556 -92.1062,69.5756 -92.1408,69.6042 -92.3151,69.6029 -92.3622,69.5972 -92.4291,69.5827 -92.494,69.5662 -92.6309,69.5656 -92.6964,69.5756 -92.7178,69.587 -92.6638,69.5927 -92.5765,69.586 -92.5356,69.5816 -92.5089,69.5836 -92.3346,69.6172 -92.3578,69.6224 -92.5759,69.6241 -92.4578,69.6707 -92.3424,69.6902 -92.1686,69.7572 -92.0034,69.8299 -91.9483,69.8562 -91.914,69.8657 -91.742,69.9273 -91.7866,69.9651 -91.8232,69.975 -91.8838,69.9884 -91.926,69.9935 -91.973,69.997 -92.0723,69.9987 -92.237,69.9819 -92.1877,70.059 -92.0629,70.1172 -92.0293,70.1204 -91.8491,70.0432 -91.8244,70.0336 -91.7995,70.0297 -91.7585,70.0271 -91.7127,70.0284 -91.3745,70.0458 -91.3326,70.0502 -91.31,70.0647 -91.3206,70.0873 -91.3614,70.1087 -91.4319,70.1398 -91.4951,70.2505 -91.5285,70.2656 -91.6547,70.2686 -91.6921,70.2505 -91.715,70.2045 -91.7455,70.167 -91.7801,70.1977 -91.7886,70.2268 -91.782,70.2638 -91.7909,70.2989 -91.9067,70.3773 -92.0369,70.4018 -92.0574,70.4574 -92.0306,70.4794 -91.9887,70.4786 -91.9572,70.4909 -91.9958,70.5159 -92.2156,70.5719 -92.3838,70.5929 -92.4129,70.5909 -92.4315,70.6187 -92.4729,70.6808 -92.6028,70.7129 -92.7093,70.7176 -92.7479,70.7243 -92.7715,70.7326 -92.827,70.7781 -92.6956,70.8192 -92.6768,70.9765 -92.6533,71.0401 -92.6416,71.0574 -92.7162,71.1219 -92.7226,71.1533 -92.7262,71.1855 -92.769,71.2525 -92.8223,71.2718 -92.8479,71.2752 -92.887,71.2731 -92.9206,71.2775 -92.9748,71.3162 -92.9718,71.3368 -92.9921,71.3697 -93.0148,71.3792 -93.2035,71.4377 -93.2688,71.4464 -93.2959,71.45 -93.3721,71.4666 -93.4005,71.4739 -93.4408,71.487 -93.5912,71.5538 -93.5461,71.5845 -93.5193,71.5945 -93.4787,71.6169 -93.4904,71.6631 -93.5152,71.6727 -93.5737,71.6796 -93.6053,71.6781 -93.6309,71.668 -93.6601,71.6554 -93.6902,71.6498 -93.7229,71.6486 -93.7529,71.6506 -93.7802,71.663 -93.7916,71.6826 -93.8103,71.6914 -93.977,71.6955 -94.0151,71.6809 -94.0419,71.6441 -94.1487,71.5802 -94.1971,71.5674 -94.1697,71.6226 -94.1401,71.7031 -94.1711,71.7189 -94.2706,71.7262 -94.3032,71.6851 -94.3165,71.6647 -94.3416,71.6522 -94.3851,71.6524 -94.4226,71.7231 -94.3466,71.7531 -94.3088,71.7552 -94.2849,71.7523 -94.2449,71.7531 -94.1689,71.8379 -94.2707,71.8899 -94.3074,71.8985 -94.3489,71.9012 -94.4385,71.8994 -94.4747,71.8977 -94.5179,71.8963 -94.7482,71.88 -94.992,71.8486 -95.0313,71.8 -95.0305,71.7681 -95.0128,71.7562 -94.9903,71.7477 -94.9602,71.747 -94.9342,71.7505 -94.8877,71.7554 -94.6815,71.7547 -94.6313,71.754 -94.6037,71.7521 -94.5568,71.7449 -94.528,71.7429 -94.484,71.7528 -94.4339,71.7664 -94.3919,71.7677 -94.4318,71.7498 -94.5129,71.7287 -94.5731,71.7381 -94.6251,71.7469 -94.6679,71.7494 -94.8503,71.7458 -95.0099,71.7291 -95.074,71.6685 -95.079,71.6259 -95.1769,71.6235 -95.3166,71.6085 -95.4562,71.5516 -95.5218,71.5291 -95.5891,71.5269 -95.6473,71.5239 -95.6775,71.5112 -95.7172,71.4554 -95.6107,71.4212 -95.558,71.4094 -95.3265,71.3931 -95.2329,71.2774 -95.3233,71.1962 -95.4389,71.1913 -95.4527,71.1935 -95.5713,71.234 -95.6092,71.2486 -95.6382,71.2608 -95.6581,71.2816 -95.6725,71.2966 -95.7047,71.3063 -95.8151,71.3236 -95.9121,71.3154 -95.9461,71.3054 -95.9711,71.2956 -95.9961,71.2815 -96.0231,71.2594 -96.0562,71.2322 -96.2785,71.1847 -96.2405,71.1615 -96.2365,71.1018 -96.2461,71.0715 -96.3344,71.0399 -96.3241,71.0228 -96.2847,71.0037 -96.2486,70.9892 -96.2104,70.9867 -96.1934,71.0004 -96.1929,71.0229 -96.1513,70.9992 -96.1903,70.9623 -96.23,70.9514 -96.2682,70.9483 -96.2828,70.9036 -96.2923,70.8595 -96.308,70.8333 -96.3256,70.8117 -96.3554,70.7875 -96.3773,70.7652 -96.3954,70.7196 -96.3892,70.6983 -96.362,70.6846 -96.3185,70.6704 -96.2225,70.6467 -96.2009,70.6278 -96.1877,70.6039 -96.1656,70.5839 -95.986,70.529 -95.9423,70.525 -95.9321,70.5427 -95.8986,70.5632 -95.7158,70.6082 -95.6853,70.6149 -95.6341,70.6159 -95.7359,70.5868 -95.8353,70.5525 -95.8387,70.5132 -95.7843,70.4876 -95.7486,70.4763 -95.7071,70.4685 -95.6402,70.4607 -95.5849,70.4419 -95.7134,70.4538 -95.7793,70.4672 -95.825,70.487 -95.8581,70.4951 -96.0162,70.4695 -96.0784,70.4301 -96.3191,70.2522 -96.3409,70.2228 -96.3541,70.1679 -96.3554,70.1377 -96.3412,70.1004 -96.314,70.0355 -96.2905,70.0136 -96.2462,69.9842 -96.1907,69.9489 -96.17,69.9365 -96.0555,69.8764 -96.0314,69.8675 -96.0019,69.8701 -95.9767,69.8743 -95.8978,69.8597 -95.8758,69.8207 -95.8761,69.7807 -95.8659,69.7516 -95.8194,69.7187 -95.7601,69.6896 -95.6554,69.6819 -95.5503,69.6846 -95.5191,69.6987 -95.4404,69.69 -95.3379,69.6369 -95.2089,69.5937 -95.1895,69.5886 -94.9628,69.5405 -94.8732,69.5265 -94.802,69.5302 -94.8053,69.5132 -94.7469,69.4945 -94.6499,69.4762 -94.6207,69.4768 -94.5964,69.4824 -94.5649,69.493 -94.5254,69.5159 -94.5375,69.5385 -94.5505,69.5684 -94.5078,69.5814 -94.4651,69.5875 -94.4245,69.5929 -94.3875,69.5472 -94.2984,69.4665 -94.2479,69.429 -94.1404,69.3694 -94.1032,69.3552 -94.0762,69.3505 -93.8426,69.3496 -93.6674,69.362 -93.6067,69.399 -93.5076,69.4265 -93.4818,69.4326 -93.4199,69.4376 -93.3851,69.4381 -93.3348,69.4324 -93.308,69.4232 -93.286,69.4131 -93.239,69.3882 -93.2946,69.3416 -93.3202,69.3341 -93.3365,69.3208 -93.3616,69.2862 -93.3041,69.2597 -93.2654,69.2678 -93.1667,69.2846 -93.2613,69.2309 -93.4338,69.1625 -93.6475,69.0807 -93.6271,69.1764 -93.5487,69.2329 -93.4842,69.2557 -93.3319,69.342 -93.3671,69.3524 -93.4252,69.3428 -93.535,69.3104 -93.7533,69.2733 -93.8318,69.2693 -93.9642,69.2529 -94.0564,69.2374 -94.0852,69.227 -94.1045,69.2092 -94.121,69.0638 -94.0399,69.0309 -94.0192,69.0314 -93.9361,69.043 -93.8711,69.0469 -93.956,68.9658 -94.023,68.9388 -94.1722,68.9144 -94.3517,68.8851 -94.3972,68.8731 -94.3791,68.8118 -94.3562,68.8043 -94.3454,68.7984 -94.3591,68.7688 -94.3848,68.7551 -94.4076,68.7309 -94.424,68.6729 -94.2902,68.6405 -94.1852,68.6411 -93.9596,68.6593 -93.8935,68.6704 -93.7344,68.7364 -93.6172,68.7978 -93.6383,68.7969 -93.7339,68.7667 -93.8277,68.7462 -93.8751,68.7572 -93.862,68.8078 -93.8346,68.8277 -93.7251,68.8861 -93.5314,68.8862 -93.4672,68.8836 -93.4386,68.8727 -93.3701,68.7511 -93.4402,68.6923 -93.4973,68.6622 -93.5065,68.569 -93.4517,68.5386 -93.4236,68.5364 -93.3615,68.5236 -93.3553,68.4985 -93.4212,68.4562 -93.461,68.4342 -93.613,68.4001 -93.6862,68.3882 -93.7311,68.3872 -93.7623,68.3826 -93.8018,68.3731 -93.9153,68.3328 -94.0096,68.2774 -94.0113,68.2383 -94.0009,68.2184 -94.0002,68.1856 -94.1742,68.134 -94.4062,68.0525 -94.4967,67.9938 -94.5179,67.9717 -94.5895,67.9537 -94.6408,67.9474 -94.6686,67.9473 -94.8173,67.9584 -94.85,67.9665 -94.8724,67.9784 -95.1463,67.9874 -95.2043,67.9824 -95.2703,67.9726 -95.2273,67.9458 -95.2171,67.9408 -95.2525,67.8945 -95.3277,67.7856 -95.3245,67.7585 -95.3401,67.729 -95.3552,67.7144 -95.378,67.7011 -95.4416,67.6822 -95.477,67.6725 -95.5069,67.643 -95.4936,67.618 -95.343,67.5622 -95.294,67.5573 -95.268,67.5512 -95.1487,67.4712 -95.1269,67.4433 -95.1401,67.4155 -95.1865,67.3585 -95.1374,67.2604 -95.1134,67.2432 -95.0827,67.2338 -95.0202,67.2208 -94.9712,67.1977 -95.0693,67.1273 -95.1529,67.0658 -95.1562,67.0013 -95.1827,67.0697 -95.2388,67.1085 -95.3112,67.1232 -95.3468,67.1271 -95.3715,67.1252 -95.4539,67.1136 -95.5149,67.1032 -95.5446,67.0914 -95.5773,67.0825 -95.5993,67.0778 -95.6297,67.0813 -95.6097,67.1008 -95.5655,67.1276 -95.499,67.1596 -95.4797,67.1686 -95.4403,67.1855 -95.4206,67.1928 -95.3601,67.2246 -95.3368,67.2733 -95.3735,67.2927 -95.3984,67.2974 -95.5501,67.2866 -95.6194,67.2466 -95.7228,67.1931 -95.8984,67.1305 -95.924,67.1296 -96.0507,67.1636 -96.0167,67.2378 -95.9729,67.2536 -95.925,67.2914 -95.8707,67.3454 -95.9112,67.3812 -95.9392,67.3659 -95.9588,67.3509 -95.992,67.335 -96.0172,67.335 -96.0946,67.3588 -96.1639,67.3921 -96.255,67.3888 -96.2642,67.4174 -96.2376,67.4555 -96.1294,67.5243 -96.0619,67.5428 -96.0386,67.5355 -96.0098,67.5326 -95.9884,67.5378 -95.9747,67.5569 -95.9753,67.6056 -96.0146,67.605 -96.0131,67.7372 -95.9431,67.8369 -95.8822,67.9155 -95.8203,68.0277 -95.8385,68.0443 -95.8711,68.0674 -95.8414,68.0923 -95.7664,68.1435 -95.7784,68.1673 -95.9341,68.1413 -95.9691,68.1345 -96.0858,68.1105 -96.1083,68.1051 -96.2297,68.0689 -96.2604,68.057 -96.2799,68.0476 -96.3076,68.0323 -96.3369,67.9978 -96.3081,68.0059 -96.2832,68.0054 -96.2485,67.9663 -96.2643,67.952 -96.3321,67.9441 -96.3542,67.9466 -96.4737,67.9317 -96.5059,67.9219 -96.5203,67.9227 -96.5784,67.9288 -96.6071,67.9485 -96.6003,67.9683 -96.5761,67.9844 -96.537,67.9907 -96.4938,67.9919 -96.4203,68.0287 -96.3228,68.0968 -96.3001,68.115 -96.2041,68.2261 -96.2367,68.2264 -96.2675,68.2181 -96.3297,68.1946 -96.3501,68.1864 -96.4218,68.1644 -96.481,68.1923 -96.5641,68.183 -96.6068,68.1736 -96.7149,68.1526 -96.7351,68.1523 -96.8838,68.1774 -96.8613,68.2128 -96.8487,68.266 -96.9554,68.3018 -97.0536,68.3791 -97.0771,68.3864 -97.1477,68.4034 -97.1798,68.4075 -97.3178,68.4139 -97.3382,68.4137 -97.3671,68.407 -97.3914,68.3958 -97.4077,68.3686 -97.3753,68.3577 -97.3356,68.3603 -97.3091,68.3586 -97.2973,68.3399 -97.3247,68.3298 -97.4056,68.347 -97.4413,68.3683 -97.4532,68.4101 -97.4863,68.429 -97.5172,68.4352 -97.6374,68.4536 -97.7897,68.4505 -97.8033,68.4141 -97.6967,68.3343 -97.671,68.3275 -97.5975,68.3229 -97.5689,68.3147 -97.5515,68.2989 -97.5398,68.2801 -97.5631,68.2775 -97.6505,68.2966 -97.6933,68.2979 -97.8673,68.2476 -97.8901,68.2305 -97.987,68.2136 -98.0127,68.215 -98.0819,68.2469 -98.1045,68.2672 -98.2873,68.3218 -98.2899,68.3006 -98.259,68.2709 -98.3087,68.2415 -98.3327,68.2477 -98.3681,68.2686 -98.3923,68.2834 -98.4293,68.2916 -98.466,68.2935 -98.5019,68.2746 -98.4001,68.2059 -98.3536,68.1867 -98.3285,68.1414 -98.2862,68.1197 -98.2628,68.1159 -98.2329,68.1136 -98.2014,68.1095 -98.1707,68.1029 -98.1231,68.0849 -98.1133,68.0566 -98.1389,68.0111 -98.1572,67.9964 -98.1808,67.9922 -98.2061,67.9974 -98.2314,68.0199 -98.2215,68.053 -98.2237,68.0772 -98.2484,68.0946 -98.2726,68.0983 -98.3767,68.0591 -98.1994,67.9215 -98.1721,67.9097 -98.1348,67.8995 -98.1141,67.8917 -98.0777,67.8761 -98.0458,67.8598 -98.0138,67.8384 -97.9925,67.8153 -97.9779,67.7916 -97.9063,67.7525 -97.8823,67.7452 -97.8591,67.7427 -97.8554,67.805 -97.8453,67.8372 -97.8248,67.8551 -97.798,67.8633 -97.6729,67.8767 -97.5003,67.9205 -97.4785,67.9318 -97.4436,67.9235 -97.2383,67.8296 -97.2155,67.808 -97.1942,67.7916 -97.1662,67.7876 -97.1272,67.7893 -97.0849,67.8021 -97.0664,67.8265 -97.044,67.8409 -96.9173,67.7022 -96.9368,67.5881 -96.9648,67.5893 -97.0869,67.5755 -97.1141,67.5682 -97.1321,67.5577 -97.1507,67.5485 -97.1847,67.5335 -97.2126,67.5272 -97.2831,67.5162 -97.307,67.513 -97.3447,67.5105 -97.3663,67.5116 -97.3953,67.5174 -97.4166,67.5275 -97.4497,67.5528 -97.5958,67.5992 -97.7527,67.6416 -97.89,67.6796 -97.9182,67.7015 -97.965,67.7543 -98.0279,67.8153 -98.0613,67.8367 -98.1234,67.8694 -98.3384,67.9743 -98.4089,67.9879 -98.5258,67.9835 -98.54,67.961 -98.5153,67.8646 -98.4907,67.8499 -98.4542,67.8315 -98.3345,67.7856 -98.3009,67.7778 -98.275,67.7788 -98.2436,67.778 -98.1547,67.7093 -98.1805,67.6995 -98.3236,67.6912 -98.6075,67.6556 -98.7808,67.6319 -99.0038,67.6208 -99.0296,67.6272 -99.183,67.6843 -99.2005,67.6999 -99.2929,67.7131 -99.3758,67.7158 -99.4056,67.7041 -99.6116,67.7096 -99.8746,67.7284 -99.9325,67.7403 -99.9531,67.753 -99.975,67.7564 -100.1861,67.761 -100.3718,67.7478 -100.5099,67.7481 -100.601,67.7083 -100.688,67.6721 -100.7173,67.667 -100.7959,67.6567 -100.8915,67.6537 -101.2288,67.6465 -101.3039,67.5934 -101.3313,67.5932 -101.4601,67.6056 -101.5526,67.6372 -101.7135,67.6739 -101.9303,67.6808 -101.9303,59.95 -105.6817,59.95 -105.7649,59.9501 -105.8482,59.9499 -105.9317,59.9497 -106.0149,59.9495 -106.4394,59.9486 -107.181,59.9495 -107.2643,59.9496 -107.3477,59.9496 -107.4309,59.9497 -107.5145,59.9498 -107.5978,59.9499 -107.6809,59.95 -107.7641,59.9501 -108.1807,59.9501 -108.264,59.95 -108.885,59.95 -108.9303,59.9501 -109.0137,59.95 -109.93,59.95 -109.93,55.7829 -109.9297,55.6164 -109.93,55.533 -109.93,48.9497 -109.9305,48.9435 -109.93,48.9435 47,-6.0,Canada -96.255,66.977 -96.2055,66.9234 -96.0757,66.8655 -95.949,66.8101 -95.9308,66.797 -95.9194,66.7743 -95.9127,66.7509 -95.8101,66.7098 -95.7839,66.703 -95.7597,66.6979 -95.7159,66.6911 -95.6872,66.6846 -95.6659,66.6765 -95.6488,66.6662 -95.5889,66.5897 -95.5823,66.5616 -95.5459,66.5538 -95.4561,66.5782 -95.4331,66.5967 -95.4632,66.6454 -95.5887,66.6529 -95.7961,66.7581 -95.8917,66.8286 -95.8696,66.8518 -95.8422,66.8621 -95.8031,66.8659 -95.7045,66.8607 -95.7351,66.8698 -95.791,66.929 -95.7636,66.9588 -95.7405,66.9832 -95.7654,66.9826 -95.8067,66.9607 -95.8495,66.9217 -95.8338,66.8856 -95.9131,66.866 -95.9336,66.8673 -96.0429,66.8986 -96.0646,66.9064 -96.0861,66.9212 -96.0717,66.9428 -96.0656,66.9621 -96.0899,66.9832 -96.1789,66.9995 -96.1996,67.0011 -96.2568,66.979 -96.255,66.977 43,-6.0,Canada -93.5858,64.1095 -93.4776,64.006 -93.4193,63.9654 -93.4701,63.9136 -93.5467,63.9082 -93.5742,63.9053 -93.5858,63.8788 -93.4697,63.8178 -93.4152,63.7913 -93.3693,63.7717 -93.3425,63.7624 -93.1511,63.7302 -93.04,63.7655 -93.0928,63.7645 -93.1581,63.7844 -93.2612,63.8462 -93.261,63.8831 -93.234,63.8923 -93.2057,63.8927 -93.1806,63.8884 -93.0892,63.849 -92.9388,63.8136 -92.777,63.777 -92.659,63.7565 -92.4697,63.7087 -92.3605,63.7346 -92.3194,63.7371 -92.4015,63.7507 -92.4306,63.7519 -92.4867,63.7612 -92.5243,63.768 -92.7558,63.8282 -92.7775,63.8558 -93.0352,63.9006 -93.0873,63.9017 -93.1106,63.9028 -93.2525,63.9364 -93.4273,64.0139 -93.4464,64.0329 -93.5049,64.0767 -93.5663,64.1095 -93.5874,64.111 -93.5858,64.1095 47,-6.0,Canada -85.3822,69.7415 -85.3754,69.7342 -85.3328,69.7332 -85.3044,69.7326 -85.2756,69.7323 -85.2479,69.7333 -85.1842,69.7326 -85.1615,69.7248 -85.1522,69.6825 -85.1879,69.6656 -85.2189,69.664 -85.2064,69.6876 -85.2307,69.6983 -85.2649,69.6944 -85.3291,69.6776 -85.3621,69.5597 -85.3564,69.3819 -85.3339,69.3584 -85.3119,69.3481 -85.2868,69.3489 -85.2479,69.3709 -85.2024,69.3691 -85.1601,69.3525 -85.206,69.3239 -85.2405,69.3239 -85.2762,69.3276 -85.3182,69.3122 -85.3192,69.2252 -85.2921,69.1847 -85.2049,69.1185 -85.1548,69.1048 -85.0652,69.1033 -85.0474,69.0895 -85.1071,69.0746 -85.1295,69.0616 -85.0766,69.0428 -85.0478,69.0395 -85.0216,69.0423 -85.0,69.0521 -85.0,69.7048 -85.0294,69.7142 -85.0891,69.7348 -85.1301,69.7478 -85.184,69.7597 -85.369,69.7691 -85.394,69.7543 -85.3822,69.7415 4,-6.0,Canada -85.0,68.7682 -85.0,68.7728 -85.0034,68.7714 -85.0,68.7682 31,-6.0,Canada -101.9195,68.539 -101.8958,68.5356 -101.7899,68.526 -101.6895,68.4959 -101.6696,68.4884 -101.6445,68.4817 -101.63,68.4789 -101.6155,68.4791 -101.4861,68.5496 -101.4669,68.5736 -101.465,68.5842 -101.4839,68.6497 -101.4777,68.6797 -101.5621,68.6954 -101.695,68.7276 -101.7224,68.7341 -101.7393,68.7356 -101.7682,68.7359 -101.7815,68.7347 -101.8059,68.7311 -101.8297,68.7201 -101.8385,68.7087 -101.8326,68.6938 -101.837,68.6828 -101.8562,68.6686 -101.8758,68.6607 -101.8968,68.6542 -101.9195,68.6488 -101.9303,68.647 -101.9303,68.5405 -101.9195,68.539 8594,-5.0,Canada -89.9891,48.0614 -89.9355,48.0515 -89.9027,48.0148 -89.8641,47.9705 -89.77,47.9359 -89.7328,47.9459 -89.7092,47.9569 -89.6259,47.9747 -89.4779,47.9572 -89.4761,47.9584 -89.4811,47.9604 -89.4873,47.9601 -89.4877,47.9603 -89.4885,47.9635 -89.4737,47.9666 -89.4673,47.966 -89.4422,47.9698 -89.4336,47.9723 -89.4331,47.9748 -89.4426,47.9755 -89.4492,47.9793 -89.4479,47.985 -89.4437,47.9886 -89.4263,47.9884 -89.4261,47.9795 -89.4231,47.9783 -89.4032,47.9806 -89.398,47.9832 -89.3879,47.9816 -89.3854,47.9838 -89.3863,47.9927 -89.3962,47.9918 -89.4126,47.9979 -89.4094,48.0001 -89.3902,48.0027 -89.3839,48.0066 -89.3753,48.0087 -89.3658,48.0076 -89.3486,48.0097 -89.3444,48.0135 -89.3364,48.0158 -89.3373,48.0176 -89.3577,48.0193 -89.3619,48.0173 -89.3725,48.0169 -89.3757,48.0131 -89.388,48.0122 -89.3939,48.01 -89.399,48.0108 -89.3934,48.0141 -89.3872,48.0151 -89.3697,48.0243 -89.3692,48.0264 -89.376,48.0274 -89.3773,48.0291 -89.3754,48.0324 -89.3562,48.035 -89.3554,48.0297 -89.3538,48.0279 -89.3501,48.0278 -89.3369,48.0327 -89.3304,48.0321 -89.3087,48.0364 -89.2981,48.0439 -89.2923,48.0447 -89.2806,48.0403 -89.2753,48.0429 -89.2737,48.0486 -89.2612,48.059 -89.2859,48.0553 -89.2892,48.0579 -89.288,48.0624 -89.2817,48.0641 -89.2766,48.071 -89.2696,48.0738 -89.2648,48.0749 -89.2607,48.0741 -89.2542,48.0691 -89.251,48.0704 -89.2374,48.0833 -89.24,48.0864 -89.25,48.0889 -89.2536,48.0929 -89.2433,48.1072 -89.2258,48.1146 -89.2211,48.1204 -89.2229,48.1234 -89.2296,48.1268 -89.2438,48.1296 -89.2454,48.1357 -89.2458,48.137 -89.2426,48.1451 -89.2359,48.1495 -89.229,48.1496 -89.2262,48.145 -89.2361,48.1326 -89.2232,48.1316 -89.2074,48.1388 -89.2037,48.1444 -89.207,48.1525 -89.2018,48.1731 -89.2036,48.1837 -89.1951,48.2012 -89.1909,48.2099 -89.1739,48.2259 -89.1696,48.2363 -89.1712,48.2444 -89.1717,48.2469 -89.169,48.2527 -89.1513,48.2459 -89.1437,48.2468 -89.1418,48.255 -89.1354,48.2546 -89.1332,48.2566 -89.1407,48.2694 -89.1371,48.2789 -89.1454,48.2834 -89.1489,48.2885 -89.1473,48.2917 -89.1492,48.3009 -89.1592,48.2993 -89.1732,48.3138 -89.1789,48.3146 -89.1879,48.3135 -89.1741,48.3335 -89.1632,48.3392 -89.1517,48.3421 -89.1512,48.3446 -89.1551,48.3495 -89.1562,48.3591 -89.1615,48.3697 -89.148,48.3842 -89.1328,48.3916 -89.1227,48.3943 -89.1173,48.3981 -89.1118,48.4006 -89.1032,48.4044 -89.0922,48.4171 -89.0745,48.4267 -89.0476,48.4333 -89.0261,48.4316 -89.0152,48.4348 -88.9962,48.4368 -88.9876,48.443 -88.9563,48.4494 -88.9445,48.4519 -88.9268,48.4592 -88.9101,48.4574 -88.9052,48.4591 -88.8914,48.4591 -88.8867,48.4629 -88.8919,48.4672 -88.8873,48.4693 -88.8818,48.4696 -88.8746,48.4751 -88.8637,48.4682 -88.8606,48.4686 -88.8572,48.4731 -88.8593,48.4786 -88.8439,48.4882 -88.8158,48.4916 -88.8113,48.491 -88.8068,48.4874 -88.7997,48.4959 -88.7829,48.5048 -88.7584,48.5069 -88.7487,48.5132 -88.7375,48.5159 -88.7322,48.519 -88.7267,48.5222 -88.7061,48.5221 -88.6917,48.5107 -88.6899,48.5063 -88.7058,48.4789 -88.7371,48.4476 -88.7518,48.437 -88.7565,48.4316 -88.7633,48.4238 -88.7741,48.4068 -88.7664,48.3977 -88.7723,48.3908 -88.7928,48.3666 -88.7973,48.3549 -88.7961,48.3523 -88.7883,48.3503 -88.7878,48.3469 -88.8052,48.3263 -88.8065,48.3225 -88.8063,48.3219 -88.802,48.3123 -88.8046,48.3094 -88.8097,48.3102 -88.8179,48.3155 -88.8268,48.3155 -88.8393,48.3076 -88.8501,48.2949 -88.8637,48.2683 -88.8764,48.2518 -88.8738,48.2483 -88.8687,48.2481 -88.8598,48.2534 -88.8449,48.2683 -88.8397,48.2679 -88.8342,48.2636 -88.8305,48.2628 -88.8273,48.2589 -88.8225,48.2596 -88.8172,48.2673 -88.8019,48.2707 -88.7865,48.2705 -88.7656,48.282 -88.7608,48.2817 -88.7539,48.276 -88.7503,48.2747 -88.7468,48.2756 -88.7366,48.2844 -88.7295,48.2828 -88.7244,48.2884 -88.7207,48.2867 -88.7205,48.2794 -88.7074,48.2858 -88.7084,48.2918 -88.7033,48.2958 -88.6971,48.2913 -88.6916,48.2916 -88.6842,48.2955 -88.6826,48.2984 -88.6837,48.3028 -88.6752,48.3011 -88.6699,48.3042 -88.6694,48.3069 -88.6761,48.3087 -88.6773,48.3117 -88.6762,48.3142 -88.6752,48.3164 -88.6678,48.3208 -88.664,48.3257 -88.6552,48.3289 -88.6578,48.3367 -88.6514,48.3445 -88.6516,48.3528 -88.6393,48.3675 -88.6308,48.3864 -88.6288,48.3909 -88.6292,48.3946 -88.6209,48.4106 -88.622,48.4211 -88.6242,48.423 -88.6311,48.4228 -88.6358,48.4252 -88.6372,48.4294 -88.6325,48.4384 -88.624,48.4424 -88.6131,48.4453 -88.6083,48.4408 -88.608,48.4344 -88.5983,48.4353 -88.5928,48.4456 -88.5737,48.4537 -88.5718,48.4567 -88.5756,48.4616 -88.5742,48.4672 -88.5821,48.467 -88.5832,48.47 -88.5697,48.4877 -88.5745,48.4924 -88.5729,48.5063 -88.5674,48.5203 -88.5604,48.5276 -88.5587,48.5378 -88.5637,48.5442 -88.5641,48.549 -88.5578,48.56 -88.5487,48.5682 -88.5466,48.5683 -88.5359,48.5689 -88.526,48.5673 -88.519,48.5682 -88.51,48.5736 -88.5017,48.5738 -88.4938,48.5793 -88.4814,48.5785 -88.4723,48.5898 -88.4732,48.5924 -88.4812,48.5965 -88.4842,48.6028 -88.4854,48.6046 -88.4792,48.615 -88.4919,48.6261 -88.4897,48.6324 -88.4827,48.6386 -88.4738,48.6425 -88.4677,48.6438 -88.4556,48.6465 -88.4509,48.6497 -88.4508,48.66 -88.4557,48.6648 -88.4676,48.6674 -88.4752,48.6763 -88.4819,48.6802 -88.4836,48.6848 -88.4793,48.6966 -88.4791,48.7094 -88.4724,48.7217 -88.4627,48.7308 -88.4616,48.7372 -88.4496,48.7459 -88.4273,48.7576 -88.4212,48.7656 -88.4193,48.7818 -88.4218,48.7814 -88.4293,48.7732 -88.4319,48.7753 -88.4261,48.7843 -88.4054,48.7928 -88.3891,48.7932 -88.3656,48.7915 -88.3428,48.7821 -88.3339,48.7807 -88.3161,48.7781 -88.3033,48.7729 -88.2946,48.7733 -88.2717,48.7645 -88.2628,48.7553 -88.2602,48.7525 -88.2581,48.7479 -88.2631,48.7361 -88.2668,48.7326 -88.2764,48.7293 -88.2696,48.7274 -88.2399,48.7134 -88.2342,48.7071 -88.2337,48.7 -88.2532,48.6601 -88.2593,48.6528 -88.2634,48.6486 -88.2636,48.648 -88.266,48.6379 -88.2698,48.6323 -88.2726,48.6189 -88.3035,48.6062 -88.3191,48.5955 -88.3327,48.5898 -88.3572,48.5744 -88.3805,48.5565 -88.3835,48.5542 -88.3927,48.5414 -88.4325,48.5155 -88.4577,48.4943 -88.4778,48.4828 -88.4805,48.4827 -88.481,48.4911 -88.4849,48.4899 -88.4918,48.4772 -88.5002,48.4616 -88.4987,48.454 -88.5014,48.4493 -88.5153,48.4433 -88.5268,48.4354 -88.5331,48.4288 -88.5319,48.4271 -88.5168,48.4269 -88.507,48.4334 -88.5036,48.4329 -88.5013,48.4273 -88.5024,48.4162 -88.5102,48.4029 -88.5044,48.4025 -88.5042,48.3946 -88.5041,48.3863 -88.501,48.3862 -88.4984,48.3821 -88.4979,48.3813 -88.4914,48.3813 -88.4886,48.3776 -88.4954,48.3636 -88.4917,48.3573 -88.486,48.3608 -88.473,48.3741 -88.4696,48.3733 -88.4675,48.3701 -88.4613,48.3751 -88.4588,48.3808 -88.4632,48.3871 -88.4564,48.3958 -88.4588,48.4004 -88.4526,48.4103 -88.4426,48.4155 -88.4372,48.4146 -88.4324,48.4099 -88.4252,48.4092 -88.422,48.4102 -88.4227,48.4249 -88.4316,48.4309 -88.4362,48.4431 -88.4284,48.4557 -88.4158,48.4686 -88.4114,48.4686 -88.4079,48.4592 -88.4052,48.4579 -88.4017,48.4594 -88.3885,48.475 -88.3864,48.4834 -88.3857,48.4861 -88.3734,48.4992 -88.37,48.5076 -88.357,48.5163 -88.3501,48.5161 -88.3543,48.4968 -88.3512,48.4919 -88.3506,48.4861 -88.3475,48.4851 -88.3386,48.4903 -88.3267,48.4922 -88.3255,48.4904 -88.3353,48.4788 -88.3335,48.4749 -88.3296,48.4761 -88.3238,48.4846 -88.3224,48.4857 -88.3173,48.4894 -88.3157,48.4873 -88.3198,48.4781 -88.3178,48.478 -88.3078,48.488 -88.297,48.5025 -88.2659,48.5234 -88.2625,48.5185 -88.2645,48.514 -88.2637,48.5066 -88.2603,48.5017 -88.2565,48.5014 -88.2536,48.5029 -88.2532,48.5088 -88.2482,48.5203 -88.2461,48.5214 -88.244,48.5206 -88.244,48.5201 -88.2433,48.5119 -88.2376,48.5149 -88.2336,48.5217 -88.2337,48.5258 -88.2426,48.5357 -88.246,48.5362 -88.2524,48.5332 -88.261,48.534 -88.2648,48.538 -88.265,48.554 -88.2697,48.5642 -88.2674,48.5678 -88.2726,48.5769 -88.2746,48.5872 -88.2728,48.5927 -88.2581,48.5956 -88.2555,48.5937 -88.2547,48.5912 -88.2532,48.5868 -88.2466,48.5824 -88.2414,48.5743 -88.2332,48.5687 -88.2298,48.5634 -88.2284,48.5453 -88.2264,48.5452 -88.2201,48.5502 -88.2171,48.5497 -88.2175,48.5389 -88.2108,48.5408 -88.2075,48.5391 -88.205,48.5406 -88.2026,48.5487 -88.1965,48.5526 -88.1911,48.56 -88.1777,48.5687 -88.1644,48.5664 -88.1687,48.5647 -88.1746,48.5643 -88.1809,48.5581 -88.1861,48.5493 -88.1846,48.5417 -88.1909,48.5317 -88.1902,48.5273 -88.1825,48.5286 -88.1688,48.5266 -88.1443,48.5454 -88.1398,48.5457 -88.1345,48.5426 -88.1336,48.5368 -88.1293,48.5396 -88.1282,48.544 -88.132,48.5525 -88.1265,48.5634 -88.1251,48.5662 -88.0975,48.5799 -88.094,48.5896 -88.0849,48.6001 -88.0721,48.6097 -88.0561,48.6245 -88.0483,48.6349 -88.0418,48.6386 -88.0365,48.6446 -88.0361,48.6503 -88.0301,48.6604 -88.0369,48.6815 -88.0373,48.6828 -88.0382,48.6929 -88.0242,48.7258 -88.0294,48.7344 -88.0378,48.7414 -88.0432,48.7431 -88.0571,48.7429 -88.0639,48.7443 -88.0924,48.7643 -88.1071,48.7719 -88.1132,48.7723 -88.15,48.7802 -88.1512,48.781 -88.1563,48.7845 -88.1715,48.8028 -88.1734,48.8141 -88.1788,48.8246 -88.172,48.8408 -88.1593,48.8534 -88.1595,48.8685 -88.162,48.8718 -88.1694,48.8746 -88.1759,48.8848 -88.1858,48.8923 -88.1904,48.8956 -88.1918,48.9089 -88.2008,48.9225 -88.1985,48.9256 -88.1923,48.9291 -88.1903,48.9324 -88.1944,48.9479 -88.1922,48.9576 -88.1882,48.9607 -88.1854,48.9563 -88.188,48.9452 -88.1874,48.9426 -88.1831,48.9233 -88.1761,48.9095 -88.1716,48.9055 -88.1648,48.903 -88.1569,48.902 -88.1481,48.9077 -88.1393,48.9101 -88.1261,48.9104 -88.1138,48.907 -88.1057,48.8999 -88.1001,48.9004 -88.0976,48.9096 -88.089,48.9174 -88.0752,48.926 -88.0667,48.9235 -88.0675,48.9267 -88.0602,48.9351 -88.0475,48.9415 -88.0443,48.9426 -88.0354,48.9416 -88.021,48.9383 -88.0174,48.9362 -88.0052,48.9275 -87.9967,48.9432 -87.9886,48.9523 -87.9787,48.9586 -87.9694,48.9537 -87.9683,48.9463 -87.9726,48.9351 -87.9714,48.9288 -87.9662,48.9241 -87.9536,48.9211 -87.9401,48.9108 -87.9305,48.907 -87.9268,48.9014 -87.92,48.8989 -87.9122,48.8922 -87.9064,48.892 -87.8918,48.8832 -87.8797,48.8787 -87.8731,48.8791 -87.865,48.8761 -87.8491,48.8755 -87.84,48.8802 -87.833,48.8807 -87.8187,48.8776 -87.7825,48.8605 -87.772,48.8555 -87.7608,48.8563 -87.737,48.867 -87.7266,48.8664 -87.7109,48.8599 -87.7053,48.8565 -87.7045,48.853 -87.7083,48.8456 -87.7014,48.8417 -87.6962,48.8408 -87.6785,48.8495 -87.664,48.8483 -87.6475,48.8424 -87.6192,48.8372 -87.6119,48.8333 -87.5957,48.8091 -87.5877,48.8012 -87.5857,48.8003 -87.5824,48.799 -87.5731,48.7984 -87.5571,48.803 -87.5459,48.8081 -87.5291,48.8092 -87.5236,48.8122 -87.5232,48.8172 -87.5169,48.8211 -87.5083,48.8212 -87.5019,48.8187 -87.492,48.8176 -87.4855,48.805 -87.4869,48.7995 -87.4929,48.7762 -87.4881,48.7722 -87.481,48.7705 -87.4647,48.7749 -87.458,48.7753 -87.4553,48.7791 -87.4454,48.7842 -87.4271,48.7841 -87.4165,48.786 -87.3756,48.7823 -87.3658,48.7796 -87.3543,48.7736 -87.3469,48.7706 -87.3376,48.7556 -87.3304,48.7511 -87.3107,48.7432 -87.2955,48.7431 -87.28,48.7454 -87.2666,48.7448 -87.2567,48.7469 -87.2416,48.7454 -87.2303,48.744 -87.2261,48.7413 -87.2243,48.7378 -87.2383,48.7219 -87.238,48.7178 -87.2288,48.7131 -87.217,48.71 -87.1961,48.7073 -87.1946,48.7091 -87.201,48.7144 -87.1987,48.7168 -87.1942,48.7168 -87.177,48.7109 -87.164,48.7064 -87.1502,48.7065 -87.1365,48.7048 -87.1343,48.7093 -87.1265,48.711 -87.1238,48.718 -87.1207,48.7176 -87.117,48.7131 -87.114,48.715 -87.1155,48.7181 -87.1122,48.7227 -87.1112,48.7295 -87.0897,48.7263 -87.0826,48.7178 -87.0797,48.7188 -87.0696,48.7165 -87.0677,48.7185 -87.0618,48.7178 -87.0543,48.7136 -87.053,48.7202 -87.0501,48.7209 -87.0473,48.7178 -87.0345,48.7216 -87.0256,48.7203 -87.0211,48.7238 -87.0155,48.7245 -87.0025,48.723 -86.9957,48.7282 -86.9848,48.7302 -86.9785,48.7338 -86.9695,48.7343 -86.9724,48.7365 -86.9721,48.7386 -86.9646,48.7378 -86.9635,48.7414 -86.9607,48.7417 -86.9503,48.7351 -86.9537,48.7261 -86.9509,48.7232 -86.9389,48.7218 -86.9313,48.7248 -86.9275,48.7318 -86.9296,48.7361 -86.9355,48.7481 -86.9355,48.755 -86.93,48.758 -86.9238,48.7536 -86.916,48.7523 -86.9097,48.7529 -86.9002,48.758 -86.8951,48.7633 -86.8913,48.7631 -86.8874,48.768 -86.8941,48.7566 -86.9015,48.7517 -86.9059,48.7459 -86.905,48.7411 -86.8924,48.7329 -86.8846,48.7248 -86.8784,48.7243 -86.8709,48.7194 -86.856,48.7207 -86.8475,48.7215 -86.8344,48.7209 -86.8272,48.7174 -86.8242,48.7127 -86.8247,48.7074 -86.8108,48.6986 -86.7945,48.6951 -86.7891,48.6976 -86.7628,48.7007 -86.7335,48.716 -86.7352,48.7195 -86.7288,48.7273 -86.7234,48.7291 -86.712,48.7292 -86.6977,48.7233 -86.6804,48.7296 -86.6737,48.7343 -86.6723,48.7402 -86.666,48.7376 -86.6612,48.7406 -86.6599,48.743 -86.6645,48.7458 -86.6432,48.7498 -86.6389,48.7519 -86.6358,48.7575 -86.6251,48.7476 -86.6248,48.7443 -86.6245,48.7404 -86.6146,48.7363 -86.6036,48.7385 -86.594,48.7378 -86.5811,48.7347 -86.5707,48.7383 -86.5673,48.7372 -86.5501,48.7272 -86.5515,48.7053 -86.5532,48.7024 -86.5616,48.7017 -86.5646,48.6991 -86.5723,48.686 -86.572,48.6823 -86.5683,48.6787 -86.5611,48.6776 -86.5323,48.6815 -86.5218,48.6792 -86.515,48.6754 -86.5081,48.6783 -86.493,48.6769 -86.491,48.6771 -86.4842,48.678 -86.4809,48.6774 -86.4755,48.6728 -86.471,48.673 -86.4689,48.6764 -86.4722,48.6836 -86.4713,48.6886 -86.4731,48.6937 -86.4682,48.7004 -86.4682,48.7068 -86.4643,48.7048 -86.4581,48.6953 -86.452,48.6968 -86.4379,48.7087 -86.4307,48.7104 -86.4158,48.7202 -86.4135,48.7096 -86.4104,48.7067 -86.4052,48.7069 -86.3989,48.713 -86.389,48.7123 -86.384,48.715 -86.3779,48.7183 -86.3735,48.7177 -86.3661,48.7127 -86.364,48.7218 -86.3598,48.7225 -86.3569,48.7198 -86.3569,48.7077 -86.3506,48.7053 -86.3512,48.703 -86.3597,48.7021 -86.3575,48.6972 -86.3625,48.6928 -86.3759,48.6901 -86.379,48.687 -86.379,48.6845 -86.3708,48.6862 -86.3614,48.6843 -86.3567,48.6855 -86.3459,48.6984 -86.344,48.6988 -86.3434,48.699 -86.3416,48.6934 -86.3389,48.6928 -86.3346,48.6972 -86.3247,48.6896 -86.3183,48.6792 -86.3176,48.6732 -86.3186,48.6709 -86.3234,48.6684 -86.3311,48.6709 -86.3375,48.6694 -86.3405,48.6643 -86.3381,48.6607 -86.3236,48.6575 -86.3118,48.6491 -86.3052,48.6343 -86.2901,48.621 -86.2882,48.6156 -86.2847,48.6053 -86.2798,48.603 -86.279,48.6009 -86.2858,48.6015 -86.2871,48.5991 -86.2808,48.5974 -86.2785,48.5933 -86.2737,48.5931 -86.2617,48.598 -86.237,48.6018 -86.2358,48.6008 -86.2371,48.5924 -86.2401,48.5905 -86.2473,48.5906 -86.2617,48.5853 -86.2593,48.58 -86.2481,48.5778 -86.2446,48.5756 -86.2473,48.5728 -86.2707,48.572 -86.2709,48.5698 -86.2616,48.5689 -86.2595,48.5665 -86.2658,48.5625 -86.2391,48.5547 -86.2339,48.5492 -86.2319,48.5454 -86.2339,48.5402 -86.2284,48.5372 -86.215,48.5427 -86.209,48.5431 -86.2048,48.5408 -86.2045,48.5376 -86.2064,48.5379 -86.2133,48.5389 -86.2159,48.5375 -86.211,48.5354 -86.2119,48.5334 -86.2219,48.5337 -86.2287,48.5317 -86.2281,48.5303 -86.1868,48.5293 -86.1811,48.5279 -86.1803,48.526 -86.1828,48.5252 -86.2007,48.5262 -86.2109,48.5244 -86.2146,48.5218 -86.2112,48.5189 -86.207,48.5189 -86.2023,48.521 -86.199,48.5194 -86.1968,48.5154 -86.1985,48.5098 -86.2069,48.5052 -86.2037,48.4972 -86.1988,48.4984 -86.1969,48.4882 -86.1897,48.4729 -86.1737,48.4506 -86.178,48.4496 -86.183,48.4506 -86.183,48.4451 -86.1794,48.4344 -86.1661,48.4188 -86.1659,48.4115 -86.1627,48.4065 -86.163,48.3957 -86.1511,48.3766 -86.1534,48.3746 -86.1657,48.3757 -86.1652,48.3734 -86.158,48.3703 -86.1565,48.3631 -86.1474,48.356 -86.1458,48.351 -86.1456,48.3504 -86.142,48.3486 -86.1324,48.3518 -86.1154,48.3442 -86.1143,48.3417 -86.121,48.3347 -86.1327,48.3291 -86.13,48.3256 -86.1246,48.3246 -86.1236,48.3154 -86.1136,48.3098 -86.1128,48.3079 -86.1184,48.3075 -86.1207,48.3049 -86.1129,48.2844 -86.1091,48.277 -86.1007,48.2606 -86.0995,48.2582 -86.0967,48.256 -86.089,48.2542 -86.0869,48.2427 -86.0803,48.232 -86.0801,48.2224 -86.0779,48.2207 -86.0731,48.2211 -86.0613,48.2109 -86.0625,48.2093 -86.0699,48.2127 -86.073,48.2103 -86.0696,48.201 -86.0762,48.1975 -86.0769,48.195 -86.0593,48.1842 -86.0592,48.1824 -86.0627,48.1816 -86.064,48.1796 -86.0526,48.1715 -86.0486,48.1644 -86.0472,48.162 -86.0341,48.154 -86.0455,48.1478 -86.0327,48.1407 -86.0314,48.1337 -86.0249,48.1313 -86.02,48.1233 -86.0183,48.1177 -86.013,48.1133 -86.0177,48.1087 -86.0015,48.0978 -85.9944,48.0857 -85.9833,48.0817 -85.9765,48.0701 -85.9712,48.0657 -85.9711,48.0609 -85.9625,48.0533 -85.9458,48.0439 -85.9339,48.0405 -85.9163,48.0313 -85.9168,48.03 -85.9274,48.0326 -85.943,48.039 -85.9628,48.0396 -85.9624,48.037 -85.9508,48.0314 -85.9567,48.0308 -85.9583,48.0288 -85.9559,48.0277 -85.9366,48.0189 -85.926,48.0186 -85.9116,48.0134 -85.9041,48.0078 -85.8998,48.0068 -85.8978,48.0063 -85.8948,47.9999 -85.8919,47.9988 -85.8671,47.9892 -85.8651,47.9864 -85.8817,47.9875 -85.8808,47.9838 -85.8726,47.9779 -85.8799,47.9744 -85.8795,47.9723 -85.8649,47.9687 -85.8597,47.9689 -85.863,47.9727 -85.8622,47.9741 -85.8475,47.9737 -85.8371,47.964 -85.8412,47.9617 -85.8406,47.9584 -85.8346,47.957 -85.8283,47.953 -85.8247,47.95 -85.8172,47.9466 -85.8112,47.9384 -85.8064,47.9359 -85.7819,47.9209 -85.7413,47.9019 -85.7166,47.8923 -85.6875,47.8859 -85.6687,47.8806 -85.6521,47.8808 -85.6335,47.8727 -85.6254,47.8755 -85.5968,47.8705 -85.5583,47.8671 -85.5365,47.8682 -85.5273,47.8665 -85.5084,47.866 -85.4977,47.8658 -85.4844,47.8638 -85.4613,47.8667 -85.4521,47.8638 -85.4062,47.8635 -85.3702,47.8692 -85.3349,47.869 -85.3243,47.8701 -85.3216,47.8704 -85.2773,47.8873 -85.2569,47.892 -85.2148,47.8975 -85.1944,47.8981 -85.1825,47.9011 -85.175,47.9009 -85.1637,47.8959 -85.1491,47.8972 -85.1359,47.8983 -85.1288,47.9027 -85.1128,47.9041 -85.0774,47.9032 -85.0661,47.9 -85.0423,47.9028 -84.9909,47.9032 -84.9617,47.9027 -84.9464,47.9052 -84.93,47.9046 -84.9229,47.9044 -84.9147,47.9058 -84.9103,47.9081 -84.8946,47.9035 -84.8821,47.9125 -84.8552,47.9052 -84.8432,47.8929 -84.8357,47.8888 -84.8316,47.8893 -84.8344,47.8959 -84.8398,47.8998 -84.8392,47.9023 -84.8324,47.9044 -84.8208,47.9055 -84.8044,47.9024 -84.7908,47.9026 -84.7827,47.9003 -84.7762,47.8946 -84.7765,47.8841 -84.7741,47.8816 -84.771,47.8816 -84.7724,47.8741 -84.7655,47.8659 -84.7662,47.8606 -84.775,47.8599 -84.7801,47.8576 -84.7943,47.8416 -84.8062,47.8359 -84.8262,47.8126 -84.8329,47.802 -84.8397,47.7998 -84.8529,47.7988 -84.8573,47.7963 -84.8604,47.7881 -84.8637,47.7796 -84.8721,47.7688 -84.8673,47.7641 -84.867,47.7577 -84.8581,47.7538 -84.8465,47.7415 -84.8404,47.7397 -84.8289,47.7413 -84.8207,47.739 -84.8234,47.7349 -84.8292,47.731 -84.8404,47.7271 -84.8468,47.7221 -84.8632,47.6933 -84.8722,47.688 -84.8727,47.6878 -84.8757,47.6793 -84.8872,47.6784 -84.9011,47.6797 -84.9045,47.6781 -84.9106,47.6696 -84.9231,47.6632 -84.93,47.6549 -84.9345,47.6494 -84.9307,47.6458 -84.93,47.6456 -84.9161,47.642 -84.9117,47.6395 -84.9042,47.6269 -84.9062,47.6173 -84.9132,47.6079 -84.9211,47.6019 -84.93,47.5952 -84.9415,47.5864 -84.9452,47.5786 -84.9414,47.569 -84.9448,47.5628 -84.9396,47.5544 -84.9427,47.5523 -84.9525,47.5539 -84.9606,47.5532 -84.9615,47.5434 -84.9666,47.5424 -84.9696,47.5395 -84.9649,47.536 -84.9554,47.5358 -84.9435,47.5288 -84.9334,47.5295 -84.93,47.5286 -84.9195,47.5257 -84.912,47.5239 -84.8971,47.5136 -84.8846,47.5139 -84.8761,47.5077 -84.8754,47.5036 -84.8835,47.4906 -84.8841,47.4855 -84.8807,47.4812 -84.8726,47.478 -84.8658,47.4776 -84.8614,47.4744 -84.8594,47.4701 -84.8496,47.4671 -84.8442,47.4632 -84.8323,47.4626 -84.811,47.4483 -84.8032,47.4478 -84.7951,47.4423 -84.762,47.4351 -84.7546,47.4332 -84.7458,47.4273 -84.7174,47.423 -84.71,47.4125 -84.6934,47.3984 -84.6877,47.3947 -84.6769,47.3927 -84.6698,47.3833 -84.6553,47.3758 -84.6475,47.3705 -84.6408,47.3692 -84.635,47.357 -84.628,47.3495 -84.6293,47.3399 -84.6259,47.333 -84.6303,47.3289 -84.6306,47.3196 -84.6276,47.3164 -84.6161,47.3091 -84.6108,47.3084 -84.6033,47.304 -84.5811,47.3075 -84.572,47.3059 -84.5633,47.2992 -84.5545,47.2917 -84.5434,47.2864 -84.529,47.2547 -84.5266,47.2521 -84.5165,47.2505 -84.5132,47.248 -84.5132,47.2444 -84.5165,47.2416 -84.5186,47.2307 -84.5283,47.2256 -84.5337,47.2179 -84.5438,47.2101 -84.5525,47.2085 -84.5591,47.2013 -84.5603,47.2 -84.5744,47.1923 -84.5821,47.1834 -84.5855,47.1708 -84.5912,47.1664 -84.5918,47.16 -84.5972,47.1562 -84.6039,47.1539 -84.6059,47.1463 -84.613,47.1418 -84.62,47.1404 -84.6264,47.1342 -84.6338,47.1317 -84.6375,47.1251 -84.6351,47.1221 -84.623,47.1203 -84.6207,47.1173 -84.6277,47.1045 -84.6403,47.0969 -84.6522,47.0896 -84.6656,47.0871 -84.6683,47.0839 -84.6646,47.0807 -84.6562,47.0802 -84.6538,47.0775 -84.6575,47.0727 -84.6585,47.0668 -84.6508,47.0569 -84.6424,47.056 -84.6394,47.0521 -84.6394,47.0469 -84.6451,47.0389 -84.6635,47.0233 -84.6672,47.0169 -84.6795,47.0112 -84.6835,47.0073 -84.6929,46.9979 -84.7003,46.997 -84.706,46.9929 -84.7096,46.9853 -84.7096,46.9787 -84.7076,46.9718 -84.7005,46.962 -84.7099,46.9613 -84.7142,46.9531 -84.7196,46.9499 -84.7206,46.9442 -84.7138,46.9279 -84.7071,46.9204 -84.6904,46.9177 -84.6821,46.9123 -84.6599,46.898 -84.6462,46.8976 -84.6315,46.912 -84.6255,46.9145 -84.6155,46.9148 -84.6001,46.9118 -84.5881,46.9033 -84.5821,46.872 -84.5777,46.8642 -84.544,46.8352 -84.5396,46.8356 -84.5283,46.8475 -84.5239,46.8482 -84.5216,46.8507 -84.5296,46.858 -84.5333,46.8644 -84.5306,46.8737 -84.5299,46.8761 -84.5253,46.8788 -84.5182,46.8788 -84.5129,46.8823 -84.5045,46.8919 -84.5035,46.893 -84.4968,46.8935 -84.4801,46.8891 -84.4628,46.8809 -84.4571,46.8765 -84.4464,46.8676 -84.4411,46.8671 -84.4367,46.8728 -84.4223,46.8815 -84.4056,46.8815 -84.3689,46.8743 -84.3639,46.8693 -84.3613,46.8647 -84.3559,46.862 -84.3511,46.8616 -84.3299,46.8599 -84.3196,46.853 -84.3103,46.8424 -84.2936,46.8355 -84.2883,46.83 -84.285,46.8206 -84.2863,46.8158 -84.2961,46.809 -84.3011,46.8022 -84.3038,46.7903 -84.3095,46.7846 -84.3222,46.7766 -84.3274,46.7711 -84.3299,46.7684 -84.326,46.7643 -84.3266,46.7617 -84.345,46.7618 -84.347,46.7654 -84.3459,46.7702 -84.3593,46.7755 -84.3639,46.779 -84.3659,46.7851 -84.3695,46.7888 -84.3869,46.7882 -84.3999,46.7914 -84.4096,46.7912 -84.4159,46.7882 -84.43,46.7665 -84.4343,46.7665 -84.4427,46.7714 -84.4433,46.7718 -84.4653,46.7761 -84.4747,46.775 -84.4823,46.7707 -84.4867,46.7617 -84.482,46.7574 -84.4723,46.7569 -84.4687,46.7519 -84.4694,46.7402 -84.4714,46.7261 -84.4777,46.7197 -84.4811,46.7126 -84.4878,46.7071 -84.4858,46.7037 -84.4758,46.6959 -84.4718,46.6895 -84.4721,46.6851 -84.4751,46.6831 -84.4818,46.6842 -84.4885,46.6835 -84.4934,46.6879 -84.4971,46.6874 -84.5004,46.6845 -84.5025,46.6733 -84.5018,46.6449 -84.4975,46.6364 -84.4912,46.6323 -84.4855,46.6307 -84.4749,46.6309 -84.4596,46.6362 -84.4516,46.6405 -84.4493,46.6433 -84.4487,46.6523 -84.4482,46.6599 -84.4399,46.6686 -84.4282,46.6945 -84.4142,46.7018 -84.3928,46.702 -84.3699,46.6923 -84.3683,46.6859 -84.3589,46.6802 -84.3596,46.6765 -84.3636,46.6729 -84.367,46.661 -84.3717,46.6587 -84.3727,46.6537 -84.3684,46.6486 -84.3508,46.636 -84.3505,46.6314 -84.3538,46.6262 -84.3618,46.6244 -84.3672,46.6203 -84.3928,46.6118 -84.3981,46.6066 -84.4091,46.6073 -84.4141,46.6057 -84.4211,46.592 -84.4298,46.5851 -84.4418,46.5787 -84.4422,46.5784 -84.4807,46.5463 -84.4973,46.5369 -84.5189,46.5203 -84.5222,46.5129 -84.5252,46.4928 -84.5198,46.4799 -84.5186,46.4789 -84.514,46.4759 -84.5097,46.4731 -84.4888,46.4672 -84.4699,46.4507 -84.4603,46.4509 -84.4573,46.4488 -84.4553,46.4397 -84.456,46.4303 -84.4537,46.4244 -84.4468,46.4186 -84.4163,46.4111 -84.3953,46.4313 -84.3786,46.4446 -84.3635,46.453 -84.3368,46.4602 -84.315,46.4647 -84.2894,46.4664 -84.2537,46.4669 -84.2444,46.4634 -84.1807,46.4747 -84.1757,46.4786 -84.159,46.4942 -84.1501,46.5009 -84.1378,46.5037 -84.125,46.5043 -84.1122,46.5004 -84.1033,46.4909 -84.0909,46.4905 -84.0731,46.4936 -84.0721,46.4933 -84.0704,46.4937 -84.0537,46.4948 -84.0331,46.4876 -84.0281,46.482 -84.0059,46.4763 -84.0008,46.4549 -83.9821,46.4527 -83.9811,46.4515 -83.9779,46.4428 -83.9846,46.438 -83.9932,46.4369 -83.9969,46.4349 -84.021,46.4067 -84.026,46.3737 -84.0263,46.3692 -84.0317,46.3614 -84.0341,46.3527 -84.0394,46.3525 -84.0384,46.3415 -84.0207,46.292 -84.0175,46.2889 -84.0138,46.2779 -84.0101,46.2798 -84.0106,46.2878 -84.0081,46.2899 -84.0004,46.2823 -83.9922,46.2775 -83.9807,46.2648 -83.9738,46.2623 -83.9639,46.2616 -83.9566,46.2643 -83.9513,46.2642 -83.9401,46.2619 -83.9328,46.2632 -83.9221,46.2677 -83.9188,46.2696 -83.9043,46.2704 -83.8809,46.2682 -83.8801,46.2741 -83.8689,46.2716 -83.8643,46.2727 -83.8533,46.2813 -83.8486,46.2815 -83.844,46.2785 -83.8312,46.2764 -83.8238,46.2795 -83.8169,46.2797 -83.8093,46.2778 -83.8054,46.2741 -83.8036,46.2599 -83.7945,46.2489 -83.7794,46.241 -83.7712,46.2403 -83.7645,46.2437 -83.7562,46.2443 -83.7339,46.237 -83.7194,46.2362 -83.715,46.2424 -83.7143,46.2433 -83.6929,46.2402 -83.6863,46.2403 -83.6819,46.244 -83.6734,46.238 -83.6781,46.2311 -83.6739,46.227 -83.669,46.2263 -83.6636,46.2306 -83.6523,46.2341 -83.6461,46.2329 -83.6343,46.2242 -83.6248,46.2229 -83.6153,46.216 -83.6014,46.2154 -83.599,46.2209 -83.5878,46.2183 -83.5804,46.2178 -83.5654,46.2167 -83.5531,46.2201 -83.541,46.2309 -83.5374,46.2309 -83.5254,46.2214 -83.5128,46.2192 -83.5056,46.2157 -83.4946,46.2051 -83.4911,46.1978 -83.4939,46.1893 -83.491,46.1847 -83.4867,46.1849 -83.4849,46.1956 -83.4802,46.2 -83.4679,46.2019 -83.4578,46.2007 -83.4548,46.2004 -83.439,46.1943 -83.4087,46.1922 -83.384,46.1887 -83.3778,46.1855 -83.3579,46.1878 -83.3352,46.1859 -83.3069,46.1808 -83.2838,46.175 -83.2738,46.1725 -83.2578,46.1656 -83.2462,46.1651 -83.2361,46.1617 -83.2251,46.1637 -83.2159,46.1624 -83.2133,46.1608 -83.2141,46.1571 -83.2115,46.1537 -83.1999,46.1579 -83.19,46.1582 -83.1762,46.1542 -83.1466,46.1506 -83.127,46.1428 -83.1236,46.143 -83.1194,46.1432 -83.1147,46.1473 -83.0992,46.1466 -83.0809,46.1404 -83.078,46.1372 -83.0759,46.1289 -83.0704,46.1263 -83.058,46.1312 -83.0558,46.1298 -83.0515,46.13 -83.035,46.1419 -83.032,46.1426 -83.0188,46.1424 -83.0146,46.1407 -83.0101,46.1352 -83.0046,46.1326 -82.9776,46.1313 -82.9833,46.127 -82.9871,46.1207 -82.9924,46.118 -83.0297,46.1167 -83.0324,46.1146 -83.0302,46.1123 -83.0167,46.1108 -82.9946,46.1116 -82.9817,46.1142 -82.9592,46.1148 -82.938,46.1175 -82.9293,46.1126 -82.8925,46.118 -82.8908,46.1205 -82.8923,46.1249 -82.8663,46.1254 -82.8623,46.124 -82.8477,46.1277 -82.8395,46.128 -82.809,46.1216 -82.7978,46.1212 -82.7862,46.1228 -82.7747,46.1204 -82.774,46.1203 -82.7468,46.1181 -82.737,46.123 -82.7281,46.1238 -82.7237,46.1287 -82.7144,46.1313 -82.6886,46.1316 -82.6716,46.1371 -82.6392,46.1398 -82.603,46.1461 -82.5794,46.1502 -82.5506,46.1534 -82.5481,46.151 -82.5741,46.1419 -82.5943,46.1418 -82.6006,46.1398 -82.6058,46.133 -82.6063,46.1273 -82.6238,46.1166 -82.6255,46.1155 -82.6176,46.1154 -82.6116,46.1182 -82.6036,46.119 -82.6027,46.1163 -82.6122,46.11 -82.6113,46.1075 -82.5995,46.1032 -82.5662,46.1031 -82.5617,46.1005 -82.5578,46.1006 -82.5524,46.1024 -82.5496,46.1087 -82.5289,46.1136 -82.5241,46.1115 -82.5175,46.1109 -82.5131,46.1154 -82.5068,46.116 -82.4923,46.1154 -82.485,46.1152 -82.4709,46.1131 -82.4635,46.1175 -82.4477,46.1163 -82.4259,46.1281 -82.4186,46.1279 -82.4129,46.1299 -82.4044,46.1371 -82.3957,46.1396 -82.3886,46.1457 -82.3744,46.1447 -82.3722,46.1429 -82.3746,46.1397 -82.3813,46.1375 -82.3859,46.1182 -82.3773,46.1215 -82.3717,46.1197 -82.3615,46.1294 -82.3485,46.1335 -82.3299,46.1345 -82.3241,46.1341 -82.3049,46.1327 -82.3028,46.1281 -82.2707,46.13 -82.2459,46.1336 -82.2222,46.1322 -82.1956,46.1358 -82.1653,46.135 -82.1527,46.1278 -82.1564,46.1263 -82.1721,46.1307 -82.1836,46.1307 -82.2001,46.1299 -82.2105,46.1262 -82.2182,46.1253 -82.2405,46.1284 -82.2462,46.1263 -82.2483,46.1226 -82.2449,46.1164 -82.2476,46.1142 -82.2539,46.1138 -82.2808,46.1178 -82.2901,46.1157 -82.2972,46.1112 -82.3009,46.1043 -82.3011,46.1038 -82.2991,46.098 -82.2938,46.0974 -82.2913,46.1017 -82.2903,46.1102 -82.282,46.1112 -82.2781,46.1015 -82.2662,46.1033 -82.2618,46.0973 -82.2239,46.0826 -82.214,46.0819 -82.2099,46.085 -82.2288,46.0948 -82.2252,46.0971 -82.21,46.091 -82.1855,46.0944 -82.1727,46.0921 -82.1659,46.0885 -82.1561,46.0883 -82.1518,46.0882 -82.1474,46.0826 -82.1384,46.0779 -82.1334,46.0773 -82.1375,46.0864 -82.1196,46.0768 -82.1199,46.0699 -82.0915,46.0561 -82.0876,46.056 -82.091,46.0615 -82.0882,46.0633 -82.08,46.0624 -82.0776,46.0509 -82.0738,46.047 -82.0666,46.0455 -82.0655,46.0489 -82.0685,46.0549 -82.0651,46.0576 -82.0572,46.0498 -82.046,46.0489 -82.0459,46.0517 -82.0517,46.0545 -82.0522,46.0565 -82.0502,46.0582 -82.0187,46.0559 -82.0011,46.0585 -81.9959,46.0574 -81.9783,46.0465 -81.9727,46.0462 -81.964,46.0494 -81.9541,46.0487 -81.9415,46.0432 -81.9268,46.0406 -81.9042,46.0389 -81.8835,46.0404 -81.8222,46.0448 -81.8066,46.0406 -81.7998,46.0454 -81.7672,46.0504 -81.7551,46.0503 -81.7466,46.0476 -81.7307,46.0491 -81.7166,46.048 -81.7093,46.0498 -81.6919,46.0541 -81.6711,46.0549 -81.6537,46.0534 -81.6464,46.0498 -81.6455,46.0474 -81.6516,46.0446 -81.6678,46.0436 -81.6646,46.0404 -81.6551,46.0388 -81.6546,46.0362 -81.6611,46.032 -81.6612,46.0291 -81.679,46.0304 -81.6835,46.0243 -81.7085,46.0151 -81.7121,46.0138 -81.7134,46.0077 -81.6974,45.9787 -81.6978,45.9626 -81.6954,45.9587 -81.689,45.9551 -81.6803,45.9551 -81.6711,45.9574 -81.6693,45.9641 -81.6683,45.9681 -81.6733,45.9739 -81.6731,45.9778 -81.6607,45.9871 -81.6575,45.9935 -81.6592,45.9981 -81.6707,46.0039 -81.6716,46.0073 -81.6616,46.0094 -81.624,46.011 -81.6003,46.0097 -81.5909,46.0143 -81.5789,46.0143 -81.5774,46.0107 -81.574,46.0106 -81.5735,46.0116 -81.5711,46.0171 -81.5778,46.0196 -81.5889,46.0211 -81.5927,46.0235 -81.5819,46.0287 -81.584,46.0317 -81.5929,46.0317 -81.5945,46.0336 -81.5919,46.0381 -81.5933,46.0434 -81.5908,46.047 -81.5844,46.0494 -81.5843,46.0526 -81.5909,46.0584 -81.5884,46.062 -81.566,46.061 -81.5593,46.0629 -81.5542,46.0605 -81.539,46.0606 -81.536,46.0561 -81.5445,46.0504 -81.5227,46.0512 -81.512,46.0429 -81.4963,46.0391 -81.4846,46.0388 -81.4811,46.0407 -81.4702,46.0354 -81.4671,46.031 -81.468,46.0271 -81.4748,46.0219 -81.4791,46.0208 -81.49,46.0169 -81.4898,46.0142 -81.4856,46.012 -81.4898,46.008 -81.4862,46.0063 -81.4767,46.007 -81.4786,46.0022 -81.4752,45.9982 -81.4769,45.9962 -81.5023,45.9895 -81.5191,45.986 -81.5283,45.984 -81.5524,45.9762 -81.56,45.9752 -81.5698,45.9771 -81.5747,45.9763 -81.5901,45.9778 -81.5969,45.9741 -81.6055,45.9736 -81.6386,45.9623 -81.6421,45.9597 -81.6386,45.9566 -81.6259,45.9545 -81.6152,45.9572 -81.5985,45.9563 -81.5888,45.9529 -81.5765,45.9493 -81.5413,45.9496 -81.5184,45.9519 -81.5021,45.9506 -81.4891,45.9461 -81.4887,45.9429 -81.5056,45.9342 -81.5113,45.9323 -81.5182,45.9322 -81.5496,45.9159 -81.556,45.9126 -81.5637,45.9114 -81.5744,45.9062 -81.581,45.9059 -81.5916,45.8927 -81.5959,45.8921 -81.6013,45.8957 -81.6185,45.8927 -81.6206,45.8907 -81.6194,45.8886 -81.6065,45.8839 -81.5953,45.8845 -81.5785,45.8912 -81.5656,45.8996 -81.553,45.9006 -81.54,45.9046 -81.5178,45.9148 -81.4919,45.9306 -81.4771,45.9314 -81.4697,45.9342 -81.4626,45.939 -81.4597,45.9433 -81.4615,45.9461 -81.4591,45.949 -81.445,45.9539 -81.4227,45.9584 -81.4168,45.9582 -81.416,45.9552 -81.4293,45.9464 -81.4205,45.9439 -81.42,45.9418 -81.4325,45.9339 -81.441,45.9309 -81.4433,45.9236 -81.4413,45.9188 -81.4356,45.9152 -81.4405,45.9149 -81.4506,45.917 -81.4572,45.9169 -81.4596,45.9154 -81.4581,45.9062 -81.4603,45.9012 -81.4566,45.8972 -81.4515,45.8952 -81.4468,45.8953 -81.4246,45.906 -81.4225,45.9087 -81.4253,45.9115 -81.4318,45.913 -81.4326,45.9158 -81.4075,45.9167 -81.3922,45.9202 -81.3867,45.9242 -81.3895,45.9286 -81.3853,45.9326 -81.3735,45.9321 -81.3565,45.9364 -81.3249,45.9365 -81.3205,45.93 -81.322,45.9286 -81.3189,45.9265 -81.3082,45.9232 -81.2921,45.9237 -81.2836,45.9223 -81.2792,45.9189 -81.2766,45.9129 -81.2675,45.9101 -81.2557,45.9153 -81.2491,45.9213 -81.2461,45.9219 -81.243,45.9198 -81.2398,45.9126 -81.2234,45.9107 -81.2193,45.9134 -81.2185,45.9132 -81.2158,45.9128 -81.2107,45.909 -81.2064,45.8983 -81.2019,45.8968 -81.1889,45.9006 -81.1839,45.8961 -81.1595,45.9087 -81.1523,45.9082 -81.1455,45.9055 -81.1396,45.8994 -81.1325,45.898 -81.1246,45.8987 -81.1242,45.9102 -81.121,45.9204 -81.1172,45.9228 -81.0982,45.9251 -81.0963,45.9254 -81.0933,45.9271 -81.0962,45.932 -81.0832,45.9408 -81.0844,45.9436 -81.0882,45.9446 -81.1083,45.9445 -81.1384,45.9417 -81.148,45.9356 -81.1634,45.9202 -81.1705,45.9168 -81.1738,45.9171 -81.1746,45.9196 -81.1714,45.9244 -81.1624,45.9314 -81.1601,45.9373 -81.1622,45.9404 -81.1535,45.9424 -81.142,45.9531 -81.1354,45.9533 -81.1215,45.9499 -81.0778,45.9486 -81.0737,45.9459 -81.0702,45.9436 -81.0692,45.9282 -81.0747,45.9245 -81.0787,45.9175 -81.0859,45.9132 -81.0922,45.9115 -81.1009,45.9042 -81.1049,45.892 -81.1017,45.8852 -81.1035,45.8825 -81.1144,45.8815 -81.1152,45.8792 -81.1114,45.8766 -81.0892,45.8748 -81.0719,45.8667 -81.0644,45.8658 -81.064,45.8674 -81.0603,45.8799 -81.0535,45.8895 -81.0494,45.8915 -81.0428,45.8864 -81.0379,45.8852 -81.028,45.8915 -81.0196,45.8848 -81.016,45.8843 -80.9978,45.8867 -80.9764,45.8975 -80.958,45.8976 -80.9411,45.8946 -80.9275,45.9008 -80.9241,45.8975 -80.9138,45.8914 -80.9087,45.8917 -80.9031,45.8939 -80.9025,45.8963 -80.8931,45.8947 -80.8947,45.8838 -80.8901,45.8799 -80.8776,45.8798 -80.8707,45.8743 -80.8603,45.8731 -80.8525,45.8765 -80.8485,45.872 -80.8455,45.8724 -80.8368,45.8842 -80.8349,45.8814 -80.8315,45.8825 -80.8287,45.8894 -80.8219,45.8923 -80.8205,45.8885 -80.8143,45.8872 -80.8039,45.8804 -80.7921,45.8908 -80.7872,45.8849 -80.7902,45.8843 -80.7935,45.8744 -80.7716,45.8668 -80.7648,45.8719 -80.7612,45.8718 -80.7611,45.8661 -80.756,45.8688 -80.7503,45.8805 -80.7513,45.8851 -80.7485,45.8866 -80.7468,45.8789 -80.7419,45.8832 -80.7355,45.9055 -80.7267,45.9004 -80.7243,45.887 -80.7174,45.8861 -80.7196,45.8788 -80.7219,45.8734 -80.7283,45.8558 -80.7261,45.8451 -80.7234,45.8457 -80.7195,45.8504 -80.7134,45.8489 -80.7041,45.8747 -80.6992,45.8805 -80.6968,45.8852 -80.6888,45.901 -80.6776,45.8972 -80.6798,45.8929 -80.6835,45.8925 -80.694,45.8828 -80.6938,45.8801 -80.6941,45.8755 -80.69,45.8731 -80.6864,45.8732 -80.6817,45.8778 -80.6653,45.8943 -80.6627,45.8927 -80.673,45.8746 -80.6735,45.8698 -80.6701,45.8667 -80.6643,45.8649 -80.6585,45.859 -80.6669,45.8457 -80.6642,45.8417 -80.6563,45.8419 -80.6546,45.8391 -80.6535,45.8326 -80.6597,45.831 -80.6614,45.8261 -80.6573,45.8133 -80.6579,45.8046 -80.6557,45.8025 -80.6518,45.8019 -80.6426,45.8078 -80.6383,45.8076 -80.6353,45.7982 -80.6265,45.7928 -80.6004,45.7897 -80.5931,45.7896 -80.5937,45.7858 -80.594,45.7835 -80.6015,45.7801 -80.6141,45.7832 -80.6417,45.7823 -80.6467,45.7809 -80.6482,45.7775 -80.6376,45.7657 -80.6344,45.7642 -80.6176,45.7646 -80.605,45.757 -80.6014,45.7615 -80.5981,45.7621 -80.5928,45.7585 -80.5827,45.7581 -80.5805,45.7564 -80.5859,45.7539 -80.6041,45.7515 -80.6052,45.7499 -80.6059,45.7488 -80.6031,45.7467 -80.5956,45.7469 -80.5897,45.7421 -80.5805,45.7425 -80.577,45.74 -80.578,45.7353 -80.5841,45.7318 -80.5838,45.7222 -80.5696,45.696 -80.5679,45.6925 -80.5786,45.6837 -80.5778,45.6816 -80.5747,45.6808 -80.5685,45.6847 -80.5659,45.6846 -80.5651,45.6821 -80.5715,45.6804 -80.5748,45.6779 -80.5733,45.6751 -80.5665,45.6752 -80.5536,45.6798 -80.5556,45.6764 -80.5658,45.672 -80.5665,45.6698 -80.5643,45.6681 -80.5557,45.6692 -80.5529,45.6677 -80.5591,45.6629 -80.5513,45.6574 -80.5438,45.6569 -80.5375,45.6484 -80.5199,45.6476 -80.5194,45.6448 -80.5237,45.6408 -80.5219,45.6378 -80.5079,45.6366 -80.5071,45.6341 -80.5089,45.6323 -80.5219,45.6332 -80.526,45.6308 -80.5295,45.6321 -80.5331,45.6368 -80.5374,45.6367 -80.538,45.6322 -80.5346,45.6278 -80.5257,45.6164 -80.5188,45.612 -80.5065,45.6155 -80.4995,45.621 -80.4907,45.6204 -80.4873,45.6178 -80.4958,45.6176 -80.5018,45.6119 -80.498,45.6099 -80.4764,45.6108 -80.4739,45.6091 -80.4776,45.6067 -80.5107,45.6065 -80.5129,45.6031 -80.5071,45.6011 -80.5051,45.598 -80.5068,45.5919 -80.5059,45.5906 -80.5047,45.5888 -80.4953,45.5883 -80.4982,45.5843 -80.4925,45.5808 -80.4759,45.58 -80.4665,45.5744 -80.4608,45.5816 -80.4578,45.5819 -80.4556,45.5761 -80.4469,45.5701 -80.436,45.5711 -80.4327,45.5668 -80.4183,45.5621 -80.4344,45.5614 -80.4371,45.5564 -80.4494,45.5489 -80.4479,45.5458 -80.4405,45.5442 -80.438,45.5422 -80.4394,45.5411 -80.4468,45.5419 -80.4487,45.5404 -80.4481,45.5351 -80.4407,45.5332 -80.4377,45.5296 -80.41,45.5504 -80.408,45.5469 -80.4127,45.5407 -80.412,45.5365 -80.4254,45.5317 -80.4307,45.527 -80.4204,45.5254 -80.4227,45.5237 -80.428,45.5232 -80.4377,45.5156 -80.4342,45.5149 -80.4271,45.5174 -80.4263,45.5164 -80.4309,45.5122 -80.4286,45.5062 -80.4245,45.5037 -80.415,45.5036 -80.3941,45.5134 -80.3818,45.5153 -80.367,45.5216 -80.3512,45.5236 -80.3431,45.5265 -80.3366,45.5315 -80.334,45.5358 -80.3349,45.5457 -80.3633,45.5547 -80.367,45.5578 -80.3671,45.5613 -80.3643,45.5635 -80.3557,45.5641 -80.3415,45.5709 -80.3383,45.5708 -80.3378,45.5678 -80.3474,45.562 -80.3302,45.551 -80.3246,45.5513 -80.3169,45.5414 -80.314,45.5416 -80.305,45.5425 -80.3033,45.5397 -80.312,45.5371 -80.3142,45.5296 -80.3206,45.5307 -80.3218,45.5234 -80.331,45.5268 -80.3347,45.5262 -80.3382,45.5227 -80.3361,45.5203 -80.3303,45.5185 -80.3166,45.518 -80.3108,45.5132 -80.3102,45.5072 -80.3074,45.5055 -80.2993,45.505 -80.2917,45.5065 -80.2901,45.5114 -80.282,45.5011 -80.2876,45.5002 -80.3012,45.5014 -80.3078,45.4954 -80.3062,45.4906 -80.3094,45.4872 -80.309,45.4801 -80.3045,45.4742 -80.3041,45.4705 -80.3073,45.4674 -80.3142,45.4675 -80.3162,45.4625 -80.3122,45.4539 -80.3138,45.445 -80.3117,45.438 -80.3161,45.4327 -80.3226,45.4322 -80.323,45.4274 -80.3199,45.4203 -80.3185,45.4172 -80.3169,45.4031 -80.3095,45.3848 -80.3039,45.3811 -80.2867,45.3793 -80.2819,45.3734 -80.2769,45.3716 -80.2754,45.3824 -80.2714,45.3843 -80.264,45.3831 -80.2512,45.3702 -80.218,45.3695 -80.2157,45.3676 -80.2153,45.3673 -80.219,45.3649 -80.2322,45.3638 -80.2346,45.3616 -80.2316,45.3542 -80.2332,45.3372 -80.2383,45.3292 -80.2355,45.3238 -80.2257,45.3189 -80.2289,45.3114 -80.2192,45.3023 -80.2088,45.3013 -80.2031,45.2992 -80.1999,45.3037 -80.1935,45.3023 -80.1807,45.3025 -80.1746,45.2981 -80.1685,45.3026 -80.1673,45.3034 -80.1618,45.3027 -80.1583,45.2975 -80.1629,45.2929 -80.1628,45.2899 -80.1594,45.2875 -80.1439,45.2867 -80.1388,45.2933 -80.1329,45.294 -80.1192,45.2903 -80.096,45.2791 -80.0898,45.2786 -80.0837,45.2818 -80.0929,45.2978 -80.1018,45.3026 -80.1067,45.31 -80.1249,45.3116 -80.1429,45.3267 -80.1427,45.3286 -80.1322,45.3234 -80.1248,45.3231 -80.1238,45.3265 -80.1158,45.3223 -80.1124,45.3178 -80.0926,45.3017 -80.0879,45.2997 -80.0744,45.2886 -80.0488,45.2617 -80.044,45.2613 -80.0404,45.2577 -80.0368,45.2578 -80.0433,45.2534 -80.0514,45.254 -80.0513,45.2602 -80.0698,45.2636 -80.0859,45.2702 -80.0924,45.2709 -80.1083,45.2709 -80.1095,45.2675 -80.1133,45.2646 -80.1255,45.2641 -80.1436,45.2479 -80.1486,45.2373 -80.1544,45.2336 -80.1536,45.2313 -80.142,45.2306 -80.1474,45.2235 -80.1473,45.2198 -80.1462,45.2182 -80.1415,45.2194 -80.1344,45.2252 -80.1311,45.2233 -80.1368,45.2176 -80.1266,45.2101 -80.1287,45.2081 -80.1349,45.2084 -80.135,45.2077 -80.1355,45.2049 -80.1326,45.2 -80.1294,45.1992 -80.1215,45.2046 -80.1172,45.1974 -80.12,45.194 -80.1171,45.1852 -80.1138,45.1828 -80.1064,45.1857 -80.0946,45.1871 -80.0922,45.184 -80.0937,45.1813 -80.1039,45.1803 -80.1114,45.1751 -80.1103,45.1723 -80.1019,45.1727 -80.1025,45.1688 -80.0987,45.1669 -80.0919,45.1714 -80.0778,45.1945 -80.0769,45.2054 -80.0839,45.2115 -80.0828,45.2142 -80.0663,45.2121 -80.0642,45.215 -80.0713,45.2229 -80.0699,45.2249 -80.0405,45.2263 -80.0371,45.2243 -80.0296,45.2247 -80.0158,45.2332 -80.0128,45.2278 -80.0048,45.2289 -80.0015,45.2217 -80.0128,45.2108 -80.026,45.2087 -80.0328,45.2061 -80.0402,45.2008 -80.0422,45.197 -80.053,45.1949 -80.0674,45.198 -80.0685,45.1882 -80.0606,45.1812 -80.0594,45.1752 -80.0516,45.176 -80.0495,45.1734 -80.0501,45.162 -80.0459,45.1618 -80.0372,45.1688 -80.0326,45.1693 -80.0309,45.1663 -80.0254,45.1665 -80.0227,45.1712 -80.0233,45.1763 -80.0202,45.1783 -80.0159,45.1751 -80.0079,45.1739 -80.0069,45.1699 -80.0121,45.1582 -80.0208,45.1588 -80.0323,45.148 -80.0353,45.1516 -80.0321,45.1549 -80.0348,45.1584 -80.0432,45.1581 -80.0503,45.1501 -80.0589,45.149 -80.0577,45.1469 -80.0404,45.1398 -80.0401,45.1281 -80.0359,45.1294 -80.0343,45.1332 -80.0304,45.1355 -80.0322,45.1324 -80.0292,45.1263 -80.02,45.1269 -80.0204,45.1342 -80.0135,45.1351 -80.011,45.1387 -80.013,45.1417 -80.0181,45.1426 -80.0202,45.145 -80.0129,45.1475 -80.0068,45.1465 -79.9996,45.1513 -79.9947,45.1637 -79.9915,45.1631 -79.9877,45.1577 -79.9808,45.159 -79.9798,45.1551 -79.9827,45.1511 -79.9894,45.1491 -79.9894,45.1454 -79.9855,45.145 -79.9767,45.1334 -79.9764,45.1247 -79.9741,45.1212 -79.9678,45.1221 -79.9636,45.1258 -79.9618,45.1328 -79.9563,45.1326 -79.9494,45.1411 -79.9436,45.1406 -79.9428,45.1346 -79.9382,45.1319 -79.9413,45.129 -79.942,45.124 -79.9503,45.126 -79.9514,45.1239 -79.9498,45.1195 -79.9465,45.1171 -79.9397,45.1159 -79.9379,45.1142 -79.9393,45.0971 -79.9366,45.0947 -79.9354,45.0946 -79.93,45.094 -79.9249,45.0951 -79.9151,45.0989 -79.9112,45.1031 -79.9116,45.1072 -79.9161,45.1115 -79.9251,45.1123 -79.9269,45.114 -79.9227,45.1226 -79.9184,45.1229 -79.9045,45.1147 -79.902,45.1084 -79.8992,45.1081 -79.8957,45.1107 -79.8895,45.1107 -79.9094,45.0931 -79.8997,45.0776 -79.892,45.0755 -79.8915,45.075 -79.8869,45.0709 -79.888,45.0657 -79.8853,45.0628 -79.865,45.0567 -79.8569,45.0566 -79.8439,45.0536 -79.8359,45.0564 -79.8288,45.0557 -79.8035,45.0443 -79.8119,45.0442 -79.8275,45.0511 -79.834,45.0518 -79.8394,45.049 -79.8607,45.0506 -79.8782,45.054 -79.8942,45.0602 -79.8987,45.0691 -79.9045,45.0737 -79.911,45.0742 -79.9276,45.0728 -79.93,45.0694 -79.9357,45.0612 -79.9383,45.0598 -79.9394,45.0592 -79.9555,45.0606 -79.9721,45.0555 -79.9825,45.0555 -80.0075,45.0585 -80.0106,45.0687 -80.021,45.0687 -80.029,45.066 -80.0321,45.0634 -80.032,45.0602 -80.0274,45.0568 -80.0091,45.0505 -80.0035,45.0526 -79.9944,45.0523 -79.9884,45.0497 -79.9881,45.0458 -79.9826,45.0415 -79.9762,45.0359 -79.9939,45.0343 -80.0123,45.0348 -80.0167,45.0327 -79.9704,45.0199 -79.969,45.0166 -79.9928,45.0187 -79.9949,45.0172 -79.9653,45.0066 -79.9478,45.0057 -79.9453,45.0081 -79.9422,45.011 -79.93,45.0068 -79.9262,45.0055 -79.9238,45.0009 -79.93,44.9995 -79.9253,44.9914 -79.9271,44.9856 -79.93,44.9821 -79.9372,44.9732 -79.9345,44.9698 -79.93,44.9698 -79.9073,44.9699 -79.8984,44.9672 -79.889,44.9598 -79.8981,44.9551 -79.8921,44.95 -79.8879,44.9508 -79.8829,44.95 -79.8785,44.9492 -79.8793,44.9442 -79.8855,44.9392 -79.8802,44.9326 -79.8744,44.9326 -79.8685,44.9328 -79.8712,44.9274 -79.8695,44.9252 -79.8597,44.9262 -79.8543,44.9242 -79.8537,44.9202 -79.8578,44.906 -79.8505,44.8912 -79.8468,44.8897 -79.8462,44.8913 -79.8437,44.8843 -79.8443,44.8802 -79.8366,44.8792 -79.8271,44.8854 -79.8134,44.8906 -79.81,44.8964 -79.8042,44.8967 -79.8007,44.9034 -79.7938,44.9054 -79.7831,44.9017 -79.7754,44.901 -79.7706,44.896 -79.7659,44.8937 -79.7592,44.8856 -79.7554,44.8917 -79.751,44.8901 -79.7495,44.8813 -79.7453,44.8772 -79.7513,44.8747 -79.7537,44.87 -79.7504,44.8647 -79.7491,44.8627 -79.7519,44.8599 -79.7641,44.8574 -79.764,44.8542 -79.7582,44.8498 -79.7334,44.8373 -79.72,44.839 -79.7174,44.8433 -79.7129,44.8433 -79.7127,44.8378 -79.7149,44.8351 -79.727,44.8288 -79.7282,44.8261 -79.7258,44.8234 -79.7142,44.8232 -79.7074,44.8273 -79.7007,44.8265 -79.6938,44.8203 -79.6962,44.8185 -79.7071,44.8198 -79.7084,44.8199 -79.7034,44.8135 -79.708,44.8126 -79.721,44.8191 -79.7342,44.8197 -79.7402,44.8213 -79.7438,44.8171 -79.7405,44.8066 -79.7357,44.8025 -79.7157,44.7982 -79.7001,44.7987 -79.6972,44.7954 -79.7001,44.7909 -79.6954,44.7864 -79.6961,44.7811 -79.7022,44.7779 -79.712,44.7625 -79.7126,44.7616 -79.7118,44.7591 -79.708,44.7585 -79.7008,44.7602 -79.6979,44.7594 -79.694,44.7526 -79.6833,44.7526 -79.6786,44.7439 -79.6734,44.7405 -79.6605,44.7365 -79.6586,44.7398 -79.6611,44.7443 -79.6603,44.7463 -79.6507,44.7455 -79.6497,44.7493 -79.6539,44.7536 -79.6526,44.7575 -79.6313,44.7765 -79.622,44.7796 -79.6179,44.7789 -79.6157,44.774 -79.6244,44.771 -79.6324,44.7596 -79.6389,44.7548 -79.643,44.7447 -79.6363,44.732 -79.6361,44.7267 -79.6404,44.7184 -79.6344,44.7127 -79.6321,44.7093 -79.6391,44.7067 -79.6554,44.6851 -79.6641,44.6811 -79.6694,44.6836 -79.6736,44.6879 -79.6783,44.6964 -79.6802,44.7052 -79.6787,44.7113 -79.6806,44.7153 -79.6838,44.7161 -79.688,44.7154 -79.6998,44.7053 -79.7056,44.7056 -79.7062,44.7024 -79.7027,44.6974 -79.7219,44.6801 -79.7244,44.6807 -79.7247,44.6853 -79.715,44.6975 -79.7266,44.7056 -79.7276,44.7076 -79.7293,44.7109 -79.7296,44.719 -79.7334,44.7198 -79.739,44.7148 -79.7464,44.7151 -79.7565,44.7093 -79.7633,44.7092 -79.7671,44.707 -79.7705,44.6959 -79.7737,44.6933 -79.7809,44.6952 -79.7937,44.7049 -79.799,44.7061 -79.8113,44.7022 -79.8134,44.7043 -79.8146,44.7085 -79.8105,44.7152 -79.8057,44.7192 -79.7996,44.7194 -79.7947,44.7238 -79.7894,44.73 -79.7868,44.7374 -79.7915,44.7516 -79.7968,44.7576 -79.8021,44.7599 -79.8098,44.7599 -79.8293,44.7548 -79.8321,44.7547 -79.851,44.7538 -79.8556,44.7476 -79.8553,44.7396 -79.8599,44.7225 -79.867,44.7146 -79.8718,44.7152 -79.8744,44.7185 -79.8738,44.7227 -79.8687,44.7254 -79.8655,44.7331 -79.8651,44.7427 -79.8692,44.7516 -79.8686,44.755 -79.8637,44.7555 -79.8604,44.7611 -79.8518,44.7598 -79.8484,44.7611 -79.8441,44.7659 -79.8254,44.7865 -79.831,44.7975 -79.8389,44.8068 -79.8599,44.8072 -79.8694,44.8135 -79.8745,44.8144 -79.9106,44.803 -79.9241,44.8029 -79.93,44.8 -79.9336,44.7982 -79.9406,44.7974 -79.9437,44.797 -79.9514,44.8008 -79.9543,44.7977 -79.9533,44.7887 -79.9602,44.7835 -79.9633,44.7733 -79.9705,44.7632 -79.9695,44.7556 -79.9737,44.7512 -79.9816,44.7497 -79.9883,44.7465 -79.9918,44.7469 -79.998,44.7547 -79.9999,44.7672 -80.0018,44.7677 -80.0086,44.7671 -80.0231,44.7587 -80.0334,44.7598 -80.0378,44.7572 -80.0454,44.7579 -80.0547,44.7168 -80.0538,44.7 -80.0484,44.695 -80.0324,44.6932 -80.0261,44.6877 -80.0153,44.6889 -80.0078,44.6858 -79.9974,44.6746 -79.9936,44.6738 -79.9901,44.675 -79.9837,44.6771 -79.972,44.6709 -79.9577,44.6717 -79.9447,44.6533 -79.9354,44.6522 -79.93,44.6451 -79.9287,44.6434 -79.9205,44.6369 -79.9124,44.6224 -79.8991,44.615 -79.9007,44.5944 -79.9036,44.5887 -79.9076,44.5807 -79.9197,44.5662 -79.93,44.5496 -79.933,44.5447 -79.9326,44.5411 -79.93,44.5385 -79.9193,44.5343 -79.9152,44.5294 -79.9145,44.5224 -79.9193,44.5141 -79.9181,44.5049 -79.921,44.4966 -79.93,44.4845 -79.9354,44.4772 -79.9514,44.4619 -79.9559,44.4576 -79.9809,44.4373 -80.0028,44.4241 -80.0286,44.413 -80.036,44.4126 -80.0464,44.4153 -80.0778,44.4287 -80.0909,44.4363 -80.1045,44.4442 -80.1242,44.4514 -80.134,44.4527 -80.1429,44.45 -80.1531,44.4507 -80.157,44.4536 -80.1569,44.4593 -80.1661,44.4574 -80.1709,44.4663 -80.1743,44.4668 -80.1803,44.4648 -80.1863,44.4659 -80.1901,44.4702 -80.1992,44.4696 -80.2034,44.4728 -80.2072,44.4688 -80.2105,44.4689 -80.2129,44.4754 -80.2162,44.4781 -80.2217,44.4774 -80.2226,44.4765 -80.2307,44.4683 -80.2353,44.4666 -80.2473,44.4701 -80.2667,44.4811 -80.2752,44.4833 -80.2925,44.4832 -80.3036,44.4855 -80.309,44.4815 -80.3158,44.4816 -80.3403,44.4923 -80.371,44.5086 -80.3925,44.5176 -80.4076,44.5219 -80.4129,44.5246 -80.4142,44.5322 -80.4333,44.54 -80.4452,44.5395 -80.4589,44.5363 -80.4755,44.5376 -80.4789,44.5398 -80.4811,44.5456 -80.4854,44.548 -80.4944,44.5488 -80.5042,44.5556 -80.5111,44.5579 -80.5251,44.5643 -80.5357,44.5732 -80.5451,44.5827 -80.552,44.5935 -80.5547,44.6021 -80.5489,44.6106 -80.5474,44.6234 -80.5495,44.631 -80.5634,44.653 -80.5624,44.6638 -80.5666,44.6671 -80.5674,44.6673 -80.5746,44.6686 -80.608,44.6693 -80.6344,44.6649 -80.6645,44.6675 -80.6713,44.6719 -80.6767,44.6718 -80.6792,44.6692 -80.677,44.6631 -80.6801,44.6603 -80.6977,44.6572 -80.7041,44.6526 -80.7112,44.6524 -80.7202,44.6475 -80.7243,44.6429 -80.7335,44.6407 -80.7512,44.6305 -80.7672,44.6164 -80.7963,44.5788 -80.8095,44.5687 -80.8268,44.5654 -80.8344,44.5617 -80.8365,44.559 -80.8554,44.5342 -80.8642,44.5272 -80.8678,44.5266 -80.8667,44.5593 -80.8645,44.5678 -80.853,44.5919 -80.8523,44.5933 -80.8399,44.6311 -80.8359,44.6386 -80.8336,44.6557 -80.8134,44.6793 -80.8099,44.6934 -80.8132,44.7118 -80.8137,44.7147 -80.8209,44.7277 -80.8308,44.7391 -80.8402,44.7442 -80.8453,44.7446 -80.8569,44.7392 -80.8634,44.7383 -80.8733,44.7395 -80.9047,44.7529 -80.9149,44.7548 -80.9348,44.752 -80.9519,44.7453 -80.9836,44.7327 -80.9996,44.7293 -81.0083,44.7247 -81.0484,44.69 -81.0572,44.688 -81.062,44.6886 -81.0653,44.6926 -81.0576,44.7026 -81.0552,44.7214 -81.0035,44.7509 -80.9733,44.7745 -80.9595,44.7801 -80.952,44.7862 -80.9428,44.8029 -80.9382,44.8113 -80.9312,44.8202 -80.9302,44.8254 -80.9319,44.8301 -80.9383,44.8346 -80.9504,44.8373 -80.9523,44.8438 -80.9484,44.8542 -80.9427,44.8632 -80.9266,44.8776 -80.8942,44.8908 -80.8884,44.8947 -80.8866,44.8978 -80.8848,44.9008 -80.8862,44.9036 -80.8979,44.9079 -80.9038,44.9119 -80.9089,44.9185 -80.9131,44.9191 -80.928,44.9019 -80.9341,44.903 -80.9411,44.9156 -80.9465,44.9167 -80.9648,44.9088 -80.977,44.8993 -80.9766,44.8952 -80.9804,44.891 -80.9763,44.8792 -80.973,44.8783 -80.9699,44.8776 -80.9645,44.8712 -80.961,44.8707 -80.9545,44.8757 -80.9505,44.8726 -80.9497,44.8698 -80.9529,44.8658 -80.9595,44.8626 -80.9741,44.8628 -80.9817,44.8596 -80.9862,44.8549 -80.9827,44.8475 -80.9853,44.8434 -80.9916,44.8402 -81.0036,44.839 -81.021,44.839 -81.0232,44.8403 -81.024,44.843 -81.0209,44.8471 -81.0118,44.853 -81.0091,44.8598 -81.0113,44.8625 -81.0145,44.8666 -81.0218,44.8693 -81.0357,44.8684 -81.0456,44.8648 -81.0659,44.8505 -81.0808,44.8491 -81.0832,44.8524 -81.0674,44.8728 -81.0578,44.8716 -81.0553,44.8814 -81.0493,44.8846 -81.0398,44.8857 -81.0373,44.8909 -81.0382,44.896 -81.0392,44.9015 -81.0416,44.905 -81.0472,44.9079 -81.0553,44.9084 -81.1067,44.9031 -81.123,44.9047 -81.1342,44.9076 -81.1401,44.9119 -81.14,44.9178 -81.1253,44.9369 -81.1176,44.9419 -81.1166,44.9474 -81.1187,44.949 -81.12,44.95 -81.1219,44.9514 -81.1323,44.951 -81.1414,44.9545 -81.1493,44.9529 -81.1539,44.95 -81.1594,44.9463 -81.1691,44.9354 -81.1743,44.9346 -81.1768,44.9411 -81.1874,44.95 -81.1885,44.9509 -81.1996,44.9668 -81.1987,44.9716 -81.192,44.9808 -81.1916,44.9874 -81.1949,44.9985 -81.1936,45.0037 -81.1881,45.0256 -81.195,45.0402 -81.204,45.0524 -81.206,45.0625 -81.2111,45.0645 -81.2282,45.0664 -81.2406,45.0706 -81.2594,45.0872 -81.2611,45.1041 -81.2619,45.1118 -81.2587,45.1225 -81.2482,45.1366 -81.2244,45.1556 -81.2113,45.169 -81.2065,45.1785 -81.2095,45.1884 -81.2151,45.1923 -81.2215,45.1876 -81.2241,45.1877 -81.2267,45.1937 -81.2396,45.1919 -81.2516,45.1901 -81.2677,45.186 -81.3128,45.1877 -81.3307,45.1797 -81.3874,45.1765 -81.3986,45.1789 -81.4107,45.1838 -81.4177,45.1867 -81.443,45.1874 -81.4596,45.192 -81.4677,45.1924 -81.4714,45.1898 -81.4698,45.1842 -81.4743,45.1841 -81.4821,45.1907 -81.4876,45.1913 -81.4951,45.1847 -81.5075,45.1893 -81.5068,45.195 -81.5096,45.1979 -81.5182,45.1956 -81.5352,45.194 -81.5443,45.1997 -81.55,45.1993 -81.556,45.1989 -81.5662,45.1964 -81.5671,45.203 -81.5578,45.2078 -81.559,45.2099 -81.5635,45.2116 -81.5739,45.2105 -81.5852,45.2117 -81.5874,45.2075 -81.5864,45.2022 -81.5903,45.2007 -81.5931,45.2039 -81.6003,45.2034 -81.6059,45.207 -81.6219,45.1923 -81.6119,45.1847 -81.6193,45.1794 -81.6293,45.181 -81.6382,45.1782 -81.6458,45.1757 -81.6523,45.1699 -81.6533,45.1631 -81.6432,45.1573 -81.6373,45.1572 -81.6241,45.1621 -81.6236,45.1589 -81.628,45.1485 -81.6269,45.1455 -81.6234,45.1435 -81.6114,45.143 -81.6068,45.1454 -81.6001,45.161 -81.5959,45.1614 -81.594,45.1602 -81.5939,45.1561 -81.5968,45.1445 -81.5838,45.1448 -81.5809,45.1443 -81.5805,45.1437 -81.5791,45.1413 -81.5826,45.1365 -81.5893,45.1326 -81.5882,45.1287 -81.5643,45.1384 -81.5591,45.1384 -81.5566,45.1368 -81.5568,45.1333 -81.56,45.1282 -81.5552,45.1264 -81.5484,45.1393 -81.5445,45.1397 -81.5408,45.1357 -81.5396,45.1265 -81.5371,45.1248 -81.5118,45.1384 -81.5053,45.1375 -81.5049,45.1334 -81.5068,45.1284 -81.5086,45.1238 -81.5139,45.1171 -81.5189,45.1005 -81.5182,45.0959 -81.5066,45.0958 -81.5022,45.0978 -81.4981,45.0963 -81.4956,45.0877 -81.5042,45.0845 -81.5059,45.0828 -81.5048,45.0807 -81.498,45.08 -81.4921,45.0812 -81.4896,45.0791 -81.4907,45.0711 -81.4816,45.0711 -81.4781,45.0635 -81.4749,45.0636 -81.4705,45.0674 -81.4667,45.0599 -81.4577,45.0634 -81.4571,45.0574 -81.451,45.0552 -81.4415,45.0396 -81.4435,45.0263 -81.4408,45.0226 -81.4356,45.0224 -81.4325,45.0208 -81.4333,45.0171 -81.4286,45.0142 -81.4208,45.0212 -81.4187,45.0211 -81.4204,45.0166 -81.4175,45.0165 -81.4138,45.0134 -81.4168,45.0114 -81.4239,45.0114 -81.4254,45.008 -81.4233,45.0049 -81.4129,45.0001 -81.4084,44.9935 -81.4052,44.9918 -81.3926,44.9931 -81.3894,44.9919 -81.3883,44.9758 -81.3808,44.9703 -81.3815,44.9641 -81.377,44.9516 -81.3761,44.95 -81.3744,44.947 -81.3593,44.9333 -81.3614,44.9291 -81.364,44.9242 -81.363,44.9189 -81.3595,44.9172 -81.355,44.9173 -81.3489,44.9213 -81.3395,44.9396 -81.3348,44.944 -81.3276,44.9452 -81.3268,44.9418 -81.334,44.9351 -81.3339,44.9312 -81.3286,44.9271 -81.3234,44.9265 -81.3138,44.9322 -81.3113,44.9365 -81.3109,44.9434 -81.3049,44.9466 -81.2977,44.9474 -81.2952,44.9455 -81.2957,44.9377 -81.2897,44.9323 -81.2886,44.9313 -81.2914,44.9277 -81.302,44.9227 -81.3042,44.9187 -81.3012,44.9135 -81.298,44.9125 -81.2864,44.9131 -81.2832,44.9121 -81.2825,44.9075 -81.2951,44.884 -81.3002,44.8677 -81.3009,44.862 -81.2978,44.8539 -81.2947,44.8515 -81.2883,44.8508 -81.2775,44.8533 -81.2756,44.8521 -81.2751,44.8491 -81.2771,44.8475 -81.2835,44.8456 -81.289,44.844 -81.292,44.8411 -81.2809,44.8325 -81.2826,44.8252 -81.2808,44.8234 -81.2738,44.8215 -81.2702,44.8162 -81.269,44.8093 -81.2652,44.8078 -81.2553,44.8224 -81.2478,44.824 -81.2464,44.8201 -81.2562,44.8071 -81.2581,44.8012 -81.2556,44.7947 -81.2449,44.7739 -81.2422,44.7688 -81.2326,44.769 -81.2223,44.7674 -81.2199,44.7643 -81.22,44.7579 -81.2113,44.7521 -81.2099,44.7482 -81.2137,44.743 -81.2225,44.7421 -81.2246,44.7395 -81.2218,44.7323 -81.2233,44.7284 -81.2103,44.7196 -81.2106,44.7138 -81.2025,44.7026 -81.2039,44.6958 -81.2117,44.6834 -81.2112,44.6811 -81.2068,44.681 -81.2019,44.6457 -81.21,44.6396 -81.2151,44.6402 -81.2207,44.6431 -81.2268,44.643 -81.2302,44.6401 -81.2226,44.6223 -81.2149,44.6156 -81.2152,44.6099 -81.2113,44.6059 -81.2027,44.6047 -81.2034,44.5974 -81.1983,44.5851 -81.2009,44.5577 -81.2129,44.5388 -81.2196,44.5339 -81.2273,44.5216 -81.2521,44.4925 -81.2561,44.4912 -81.2609,44.4898 -81.279,44.4761 -81.2873,44.4591 -81.2989,44.4468 -81.3121,44.4337 -81.3103,44.4263 -81.3193,44.4087 -81.3293,44.4019 -81.3326,44.3942 -81.3286,44.3842 -81.3321,44.3783 -81.3497,44.3685 -81.3599,44.3688 -81.3664,44.366 -81.3737,44.3671 -81.3797,44.3632 -81.386,44.3663 -81.3897,44.3642 -81.3952,44.3611 -81.4084,44.3603 -81.4238,44.3527 -81.43,44.3455 -81.4369,44.3416 -81.4509,44.3255 -81.4543,44.3157 -81.4613,44.3092 -81.4743,44.3057 -81.4774,44.301 -81.4774,44.289 -81.4792,44.2847 -81.4825,44.2825 -81.4924,44.2842 -81.4972,44.2861 -81.4999,44.2871 -81.5057,44.2866 -81.5107,44.2817 -81.5232,44.2749 -81.5291,44.2666 -81.5309,44.2566 -81.5242,44.249 -81.5293,44.2435 -81.5278,44.2411 -81.5199,44.2398 -81.5176,44.2349 -81.5205,44.229 -81.5281,44.2223 -81.5327,44.2147 -81.5269,44.2028 -81.5296,44.1935 -81.5351,44.186 -81.5365,44.1841 -81.5439,44.1581 -81.5647,44.1323 -81.5701,44.1196 -81.5873,44.1008 -81.6005,44.0913 -81.6219,44.0717 -81.6555,44.0487 -81.6653,44.038 -81.677,44.0263 -81.6802,44.0182 -81.6789,44.0119 -81.6683,43.9947 -81.6609,43.9776 -81.6583,43.9601 -81.6599,43.9464 -81.6548,43.918 -81.6539,43.913 -81.6456,43.8818 -81.6443,43.8623 -81.6481,43.8299 -81.6465,43.7718 -81.6527,43.7562 -81.6524,43.7493 -81.6449,43.7397 -81.645,43.7253 -81.649,43.7062 -81.6504,43.6993 -81.6533,43.6991 -81.6538,43.6941 -81.6495,43.6594 -81.6521,43.6441 -81.6395,43.5791 -81.6392,43.5761 -81.6337,43.518 -81.6347,43.5102 -81.6318,43.4723 -81.6359,43.4589 -81.635,43.4453 -81.6447,43.4156 -81.645,43.3933 -81.6451,43.3872 -81.643,43.3731 -81.6374,43.3572 -81.6361,43.3406 -81.6584,43.2956 -81.6741,43.2754 -81.6755,43.2742 -81.6928,43.2591 -81.6991,43.2531 -81.7431,43.2255 -81.7727,43.2093 -81.7915,43.1965 -81.8228,43.1844 -81.824,43.1801 -81.8372,43.1795 -81.8423,43.1771 -81.864,43.1689 -81.8719,43.1674 -81.8827,43.1653 -81.9088,43.1565 -81.9211,43.1547 -81.9333,43.1557 -81.9382,43.159 -81.9425,43.1685 -81.9454,43.1663 -81.9476,43.1597 -81.9525,43.1536 -81.9538,43.1454 -81.9621,43.1431 -81.9606,43.1405 -81.9514,43.1371 -81.9484,43.134 -81.948,43.1283 -81.9529,43.1174 -81.9534,43.1168 -81.9598,43.1095 -81.9847,43.092 -82.0147,43.0634 -82.0272,43.0554 -82.0429,43.0487 -82.0625,43.0443 -82.0752,43.0391 -82.0767,43.0343 -82.077,43.0332 -82.0764,43.0253 -82.0788,43.019 -82.0824,43.0152 -82.1055,43.0015 -82.1211,42.9947 -82.1736,42.9812 -82.2141,42.9775 -82.2689,42.9676 -82.2817,42.9676 -82.2971,42.9652 -82.3071,42.9622 -82.3487,42.8531 -82.367,42.7779 -82.3592,42.7479 -82.3581,42.7124 -82.3701,42.6711 -82.4027,42.5797 -82.4075,42.5724 -82.4043,42.5654 -82.4037,42.55 -82.4077,42.5407 -82.4098,42.5342 -82.4172,42.527 -82.4168,42.5102 -82.4134,42.501 -82.4157,42.4967 -82.4299,42.4907 -82.4298,42.5095 -82.4263,42.5235 -82.4257,42.5268 -82.4204,42.5302 -82.4135,42.5388 -82.4084,42.5517 -82.4111,42.5653 -82.4116,42.5661 -82.4212,42.5514 -82.4645,42.5156 -82.5005,42.5083 -82.5038,42.5054 -82.5055,42.502 -82.5042,42.4877 -82.493,42.4739 -82.4913,42.4669 -82.494,42.4572 -82.5013,42.4524 -82.5038,42.4495 -82.4977,42.4469 -82.4866,42.4453 -82.4871,42.4504 -82.4744,42.4499 -82.4668,42.4451 -82.4633,42.4474 -82.4635,42.4509 -82.478,42.4548 -82.483,42.4629 -82.4788,42.4897 -82.4758,42.4907 -82.474,42.491 -82.4743,42.4844 -82.4769,42.461 -82.4728,42.4578 -82.461,42.4548 -82.4581,42.4518 -82.4576,42.4449 -82.4573,42.4418 -82.4507,42.4364 -82.447,42.4354 -82.4372,42.4494 -82.4312,42.453 -82.4216,42.4535 -82.4092,42.4619 -82.4026,42.4632 -82.3989,42.4624 -82.3969,42.458 -82.405,42.4481 -82.403,42.4451 -82.39,42.4439 -82.3802,42.4394 -82.3743,42.4326 -82.3665,42.4327 -82.3621,42.4347 -82.3487,42.4374 -82.3426,42.4338 -82.3374,42.4243 -82.3356,42.4153 -82.3357,42.4016 -82.3389,42.3842 -82.3369,42.3519 -82.3423,42.3252 -82.3407,42.3174 -82.3416,42.3085 -82.3593,42.2825 -82.375,42.2651 -82.3734,42.2589 -82.3789,42.2595 -82.387,42.2603 -82.3902,42.2556 -82.3948,42.2564 -82.4042,42.2533 -82.4182,42.2516 -82.4339,42.2516 -82.4584,42.2587 -82.4781,42.2603 -82.4924,42.2594 -82.5394,42.2486 -82.5412,42.2482 -82.5645,42.2442 -82.5809,42.2457 -82.6131,42.2417 -82.6372,42.2412 -82.6854,42.2425 -82.7133,42.2482 -82.7929,42.2715 -82.7999,42.2724 -82.8056,42.2731 -82.8151,42.2762 -82.836,42.2795 -82.8602,42.2856 -82.8676,42.2857 -82.8836,42.2768 -82.9023,42.2746 -82.9107,42.271 -82.9246,42.2717 -82.946,42.2681 -82.952,42.2667 -82.9716,42.2528 -82.9978,42.2177 -83.0081,42.198 -83.0171,42.1731 -83.0219,42.1539 -83.0306,42.1108 -83.0239,42.1188 -82.9877,42.1331 -83.0113,42.1193 -83.0077,42.1158 -83.0188,42.1127 -83.0224,42.1064 -83.0338,42.095 -83.0392,42.0683 -83.0374,42.0619 -83.0374,42.0477 -83.0344,42.0332 -83.0394,42.017 -83.0369,41.9946 -83.0341,41.992 -83.033,41.9911 -83.0126,41.9841 -82.9918,41.9797 -82.9907,41.9841 -82.9854,41.9892 -82.9788,41.9818 -82.9792,41.9775 -82.9289,41.9623 -82.903,41.95 -82.9,41.9486 -82.8628,41.9279 -82.8454,41.923 -82.8297,41.9244 -82.8194,41.9299 -82.7528,41.9364 -82.7486,41.9379 -82.7205,41.9475 -82.6735,41.9692 -82.6493,41.9734 -82.6312,41.9737 -82.6024,41.9803 -82.5927,41.981 -82.5897,41.9812 -82.5677,41.9788 -82.5503,41.9743 -82.5364,41.975 -82.5188,41.9678 -82.4698,41.9252 -82.4615,41.9149 -82.4583,41.911 -82.4456,41.8885 -82.4396,41.8756 -82.4382,41.8552 -82.4352,41.8517 -82.4271,41.8808 -82.428,41.9097 -82.4276,41.9214 -82.4205,41.948 -82.4118,41.9683 -82.3974,41.993 -82.3755,42.0186 -82.3683,42.0253 -82.3577,42.035 -82.3264,42.0587 -82.3122,42.0675 -82.2987,42.0737 -82.2807,42.0788 -82.2622,42.0864 -82.2433,42.0968 -82.2349,42.1001 -82.2245,42.1042 -82.1381,42.1307 -82.1009,42.1512 -82.0875,42.16 -82.0844,42.1621 -82.0609,42.1718 -82.047,42.1793 -82.03,42.1865 -81.9819,42.2005 -81.966,42.2042 -81.9327,42.2072 -81.9052,42.2097 -81.8785,42.207 -81.8515,42.2017 -81.8334,42.2004 -81.8378,42.2041 -81.8553,42.208 -81.8585,42.2106 -81.859,42.2152 -81.8616,42.2189 -81.8565,42.2277 -81.852,42.2318 -81.8458,42.2346 -81.8388,42.2378 -81.8284,42.2497 -81.8188,42.2571 -81.8109,42.2594 -81.808,42.2634 -81.8036,42.2647 -81.7962,42.2707 -81.7815,42.2745 -81.7722,42.2747 -81.7711,42.2724 -81.7904,42.2431 -81.7961,42.2393 -81.7945,42.2335 -81.7984,42.2302 -81.8029,42.231 -81.8054,42.2315 -81.8051,42.2104 -81.8025,42.1991 -81.8163,42.2015 -81.8278,42.2016 -81.826,42.1988 -81.8193,42.1973 -81.7922,42.1952 -81.7791,42.1981 -81.7737,42.2014 -81.7701,42.2063 -81.7681,42.2175 -81.7681,42.2293 -81.7683,42.2592 -81.7634,42.2843 -81.7531,42.3074 -81.7406,42.3236 -81.7177,42.3454 -81.7067,42.3534 -81.6446,42.3844 -81.6057,42.4118 -81.5853,42.4239 -81.5464,42.4471 -81.5051,42.4794 -81.4591,42.5082 -81.449,42.5145 -81.434,42.5216 -81.4201,42.5258 -81.3938,42.5308 -81.3845,42.5425 -81.3742,42.5493 -81.3635,42.5519 -81.3312,42.5515 -81.3234,42.5531 -81.3189,42.5605 -81.3171,42.5617 -81.2854,42.5831 -81.2726,42.5903 -81.2577,42.5951 -81.2435,42.5989 -81.2257,42.5999 -81.1698,42.6108 -81.1651,42.6108 -81.1567,42.6107 -81.1469,42.6081 -81.1437,42.6105 -81.1385,42.6083 -81.1331,42.6102 -81.0984,42.6089 -81.0638,42.6108 -81.0312,42.6084 -80.9902,42.6075 -80.9748,42.6058 -80.9507,42.603 -80.8964,42.607 -80.8046,42.6041 -80.7949,42.6038 -80.7331,42.5925 -80.7128,42.5891 -80.6837,42.5775 -80.6556,42.5689 -80.5794,42.5389 -80.5445,42.5251 -80.5282,42.5227 -80.4601,42.5183 -80.4141,42.519 -80.3855,42.5194 -80.3539,42.5231 -80.3058,42.5226 -80.2524,42.5127 -80.1988,42.5022 -80.1683,42.4991 -80.145,42.4943 -80.1191,42.4921 -80.1063,42.4884 -80.0809,42.4858 -80.0771,42.4854 -80.0482,42.4856 -80.0268,42.4886 -79.9954,42.4894 -79.9744,42.4917 -79.9671,42.4944 -79.97,42.4971 -79.9986,42.4962 -80.0138,42.502 -80.0185,42.5024 -80.0186,42.4998 -80.0134,42.498 -80.0142,42.4954 -80.0271,42.4964 -80.0268,42.5012 -80.0339,42.5024 -80.0393,42.5006 -80.0539,42.4998 -80.054,42.5028 -80.0502,42.5045 -80.0455,42.5043 -80.0445,42.5063 -80.0461,42.5091 -80.0555,42.5164 -80.0626,42.5254 -80.0715,42.5304 -80.0835,42.5344 -80.0711,42.5269 -80.0643,42.5147 -80.0689,42.5114 -80.0704,42.5083 -80.0769,42.5124 -80.0812,42.505 -80.0888,42.5031 -80.0935,42.5104 -80.1014,42.5093 -80.1135,42.505 -80.1298,42.5025 -80.1493,42.5005 -80.1511,42.5022 -80.1471,42.5048 -80.1365,42.5065 -80.1276,42.5069 -80.1215,42.5092 -80.1261,42.5108 -80.1321,42.5106 -80.152,42.5099 -80.158,42.5127 -80.1679,42.5126 -80.1702,42.5157 -80.1746,42.5152 -80.1775,42.5178 -80.1837,42.514 -80.1984,42.5122 -80.2059,42.5116 -80.2101,42.509 -80.2188,42.5108 -80.2177,42.5129 -80.2063,42.5176 -80.1885,42.5192 -80.1842,42.5268 -80.1902,42.527 -80.2037,42.5233 -80.2272,42.5131 -80.2348,42.5156 -80.2525,42.5164 -80.2533,42.5268 -80.2601,42.5273 -80.2627,42.5188 -80.2759,42.5272 -80.2699,42.5327 -80.2634,42.5322 -80.2597,42.5376 -80.2575,42.5422 -80.2619,42.5463 -80.2695,42.5431 -80.2701,42.5387 -80.2742,42.5347 -80.2792,42.5337 -80.2822,42.5357 -80.2889,42.532 -80.3143,42.5296 -80.3169,42.5322 -80.3178,42.5412 -80.3207,42.5406 -80.3284,42.5313 -80.3327,42.5287 -80.3376,42.5289 -80.3384,42.5319 -80.3358,42.5368 -80.3368,42.5412 -80.3402,42.5413 -80.3433,42.5372 -80.3461,42.5382 -80.3462,42.5412 -80.351,42.542 -80.3499,42.5309 -80.3513,42.5292 -80.3598,42.5274 -80.3668,42.5343 -80.373,42.5481 -80.3745,42.5578 -80.3609,42.5781 -80.3457,42.592 -80.3265,42.6044 -80.3103,42.6081 -80.2989,42.6077 -80.2899,42.6023 -80.2817,42.5994 -80.2719,42.5974 -80.2662,42.5981 -80.2605,42.5963 -80.2583,42.6004 -80.2576,42.6017 -80.2602,42.6085 -80.257,42.6138 -80.2529,42.633 -80.2434,42.6482 -80.2384,42.6533 -80.2144,42.6668 -80.1859,42.6948 -80.1751,42.7015 -80.1732,42.7022 -80.1652,42.7052 -80.1544,42.7211 -80.1449,42.7271 -80.1366,42.7291 -80.1116,42.7306 -80.0923,42.7342 -80.0559,42.7327 -80.0447,42.7366 -80.0218,42.7371 -80.0057,42.7373 -79.9941,42.7419 -79.9861,42.7443 -79.9727,42.7447 -79.967,42.7463 -79.9571,42.7537 -79.9501,42.7543 -79.9404,42.7509 -79.93,42.7502 -79.9262,42.7499 -79.9064,42.739 -79.9036,42.7395 -79.8961,42.7512 -79.8928,42.7531 -79.8827,42.7556 -79.8656,42.7545 -79.8582,42.7569 -79.8563,42.7614 -79.8516,42.7628 -79.8417,42.7656 -79.8088,42.7624 -79.8056,42.7639 -79.8041,42.7677 -79.7942,42.77 -79.7747,42.7715 -79.7656,42.769 -79.7612,42.7695 -79.755,42.7766 -79.7459,42.7813 -79.7316,42.7799 -79.7265,42.7811 -79.7156,42.7887 -79.6989,42.7905 -79.698,42.7906 -79.6845,42.7912 -79.6777,42.7872 -79.6742,42.7873 -79.6644,42.7967 -79.6579,42.8001 -79.6409,42.8015 -79.6271,42.8061 -79.6209,42.8056 -79.6159,42.8024 -79.6079,42.8002 -79.5934,42.7987 -79.5895,42.7964 -79.5887,42.7879 -79.5843,42.7872 -79.5815,42.7912 -79.578,42.792 -79.5651,42.7822 -79.5622,42.7817 -79.5595,42.7813 -79.5209,42.7954 -79.4986,42.8082 -79.4943,42.8036 -79.4807,42.7945 -79.4787,42.7887 -79.4701,42.7876 -79.471,42.7913 -79.4695,42.7938 -79.4643,42.7926 -79.4626,42.7978 -79.4592,42.8013 -79.4558,42.8016 -79.4404,42.7984 -79.4063,42.7879 -79.4019,42.7884 -79.3928,42.8079 -79.3843,42.8142 -79.3744,42.8217 -79.3693,42.8233 -79.3584,42.8224 -79.3512,42.8188 -79.346,42.8181 -79.3399,42.8203 -79.3235,42.8175 -79.3156,42.8151 -79.3087,42.8081 -79.3034,42.8081 -79.2956,42.8125 -79.2828,42.8124 -79.2753,42.8086 -79.2701,42.8031 -79.2574,42.8167 -79.2519,42.8192 -79.2378,42.8192 -79.2267,42.8244 -79.2205,42.8239 -79.2096,42.8169 -79.1984,42.8157 -79.1929,42.8219 -79.1863,42.8261 -79.1822,42.8264 -79.1732,42.8255 -79.1533,42.8204 -79.1432,42.8153 -79.1388,42.8183 -79.1109,42.8163 -79.104,42.8205 -79.093,42.8225 -79.089,42.8232 -79.0787,42.8232 -79.07,42.8159 -79.0364,42.8039 -79.0286,42.7978 -79.0223,42.7839 -79.0184,42.786 -79.0141,42.7915 -79.0188,42.8019 -79.0146,42.8072 -78.9859,42.8062 -78.9783,42.8074 -78.9771,42.8085 -78.9718,42.8135 -78.959,42.8209 -78.9527,42.8213 -78.9414,42.8182 -78.9302,42.8174 -78.9175,42.8264 -78.8981,42.8273 -78.8929,42.832 -78.8861,42.8319 -78.8778,42.8271 -78.8725,42.8296 -78.8575,42.833 -78.843,42.8474 -78.8396,42.8509 -78.8353,42.8633 -78.8372,42.876 -78.8422,42.883 -78.8526,42.8915 -78.8588,42.8953 -78.8646,42.8965 -78.8917,42.8981 -78.8983,42.9007 -78.9088,42.9132 -78.9148,42.916 -78.9313,42.9194 -78.941,42.9229 -78.9469,42.9269 -78.9514,42.9328 -78.9563,42.9447 -78.9591,42.9584 -78.9577,42.97 -78.9522,42.9803 -78.9461,42.9879 -78.9462,42.9885 -78.9544,43.0044 -78.9584,43.0085 -78.9632,43.0078 -78.9679,43.0083 -78.9721,43.0062 -78.9861,42.996 -78.9913,42.9942 -78.9981,42.9926 -79.0156,42.9932 -79.0316,42.9905 -79.0383,42.9916 -79.0429,42.9944 -79.0356,42.9942 -79.0243,42.9973 -78.9932,42.9973 -78.9747,43.0094 -78.9747,43.0127 -78.977,43.0145 -78.9932,43.016 -79.0085,43.0181 -79.0153,43.0236 -79.0167,43.0311 -79.0126,43.0386 -79.0037,43.0434 -78.9975,43.0503 -78.9948,43.0572 -78.9982,43.0606 -79.0009,43.0668 -79.0002,43.075 -78.9954,43.0798 -78.9865,43.0853 -78.9797,43.0915 -78.9817,43.1052 -78.9865,43.1141 -78.9879,43.121 -78.9858,43.1395 -78.9845,43.1463 -78.9852,43.1518 -78.9879,43.1601 -78.9865,43.169 -78.9879,43.182 -78.9906,43.1964 -78.9961,43.2067 -78.9989,43.2108 -79.0159,43.2086 -79.0402,43.2036 -79.0585,43.2038 -79.1083,43.1816 -79.1277,43.175 -79.1314,43.1759 -79.1333,43.1861 -79.1363,43.1906 -79.1388,43.189 -79.1377,43.1796 -79.141,43.1769 -79.1425,43.1875 -79.1452,43.1873 -79.1472,43.1826 -79.1457,43.1779 -79.1469,43.1716 -79.176,43.1548 -79.1854,43.1518 -79.2121,43.1451 -79.2236,43.139 -79.2414,43.1329 -79.2562,43.1325 -79.2984,43.1347 -79.3235,43.1428 -79.339,43.1451 -79.3612,43.1459 -79.4182,43.1437 -79.4312,43.1432 -79.4496,43.1438 -79.4608,43.1459 -79.4806,43.153 -79.5171,43.1555 -79.5471,43.172 -79.552,43.1734 -79.5792,43.1721 -79.5798,43.1722 -79.5879,43.1734 -79.6011,43.177 -79.6166,43.1836 -79.6447,43.1894 -79.6535,43.193 -79.6712,43.1956 -79.6811,43.2007 -79.6899,43.2086 -79.7115,43.2373 -79.7131,43.2399 -79.7213,43.2527 -79.7224,43.258 -79.7175,43.2676 -79.6947,43.2818 -79.655,43.3129 -79.6438,43.3188 -79.6318,43.3387 -79.616,43.3504 -79.6103,43.3619 -79.5906,43.3865 -79.5656,43.4145 -79.5531,43.4213 -79.5371,43.4387 -79.531,43.447 -79.5269,43.4587 -79.527,43.4759 -79.5085,43.4969 -79.4715,43.5235 -79.4678,43.5302 -79.4631,43.5332 -79.448,43.5394 -79.4233,43.5442 -79.4207,43.5487 -79.4083,43.5601 -79.4072,43.5658 -79.3942,43.5808 -79.3878,43.5848 -79.3802,43.5849 -79.3516,43.579 -79.3403,43.5787 -79.3277,43.5809 -79.321,43.585 -79.308,43.5862 -79.2959,43.5902 -79.2871,43.5901 -79.2783,43.5848 -79.2686,43.5841 -79.2575,43.5917 -79.2543,43.5922 -79.2509,43.5879 -79.2532,43.5834 -79.2571,43.5797 -79.2694,43.5679 -79.2669,43.5643 -79.2598,43.566 -79.2483,43.5774 -79.2436,43.591 -79.2435,43.6027 -79.2339,43.6004 -79.2322,43.6026 -79.2334,43.6064 -79.2216,43.6147 -79.2056,43.6195 -79.1949,43.6261 -79.1848,43.6374 -79.1595,43.6536 -79.1544,43.6607 -79.1066,43.6986 -79.0825,43.7057 -79.0692,43.7117 -79.0604,43.7184 -79.0582,43.7206 -79.0404,43.739 -79.0127,43.7604 -79.0202,43.7646 -79.02,43.7708 -79.018,43.7714 -79.0141,43.7687 -79.0064,43.7669 -79.0061,43.7635 -78.9957,43.7586 -78.9767,43.7581 -78.9668,43.762 -78.9569,43.7631 -78.942,43.7661 -78.9215,43.7745 -78.9077,43.7767 -78.8975,43.7804 -78.8926,43.7845 -78.8605,43.7987 -78.8628,43.8048 -78.8619,43.8073 -78.859,43.8074 -78.854,43.8034 -78.8252,43.796 -78.8203,43.8006 -78.8173,43.8016 -78.8144,43.8026 -78.7907,43.8009 -78.7602,43.8079 -78.7477,43.815 -78.7356,43.8183 -78.7258,43.8183 -78.7165,43.8155 -78.7084,43.8176 -78.6772,43.8183 -78.6506,43.8167 -78.6408,43.8162 -78.6135,43.8258 -78.6064,43.8295 -78.5915,43.8418 -78.5883,43.8396 -78.581,43.8392 -78.5428,43.8461 -78.4912,43.8457 -78.4649,43.8454 -78.4561,43.8479 -78.4242,43.8488 -78.4114,43.8467 -78.3986,43.8471 -78.3835,43.8518 -78.3724,43.8579 -78.3648,43.8602 -78.3446,43.8617 -78.3268,43.8648 -78.3239,43.8662 -78.2994,43.8775 -78.2896,43.8795 -78.2708,43.8796 -78.2514,43.8855 -78.2178,43.8907 -78.2141,43.8955 -78.185,43.8994 -78.1614,43.901 -78.1552,43.9014 -78.1358,43.8985 -78.1255,43.9021 -78.1091,43.9039 -78.0407,43.9059 -78.0339,43.9074 -78.0175,43.9147 -78.001,43.914 -77.9921,43.9155 -77.9796,43.9176 -77.9669,43.9171 -77.946,43.9124 -77.933,43.9119 -77.911,43.9214 -77.8959,43.9249 -77.8867,43.9244 -77.864,43.9196 -77.8551,43.9195 -77.8355,43.9236 -77.8265,43.9273 -77.8222,43.929 -77.8023,43.9269 -77.785,43.9365 -77.7432,43.9505 -77.722,43.952 -77.7067,43.9548 -77.6683,43.9534 -77.6634,43.9506 -77.653,43.9449 -77.6487,43.9384 -77.6289,43.9363 -77.6108,43.9434 -77.6037,43.9444 -77.5963,43.9474 -77.5988,43.9507 -77.6051,43.9516 -77.6273,43.9495 -77.6379,43.9462 -77.6481,43.9466 -77.6541,43.9523 -77.6645,43.9584 -77.6557,43.9662 -77.6535,43.9661 -77.6471,43.9661 -77.6435,43.9691 -77.6427,43.9762 -77.6368,43.9751 -77.631,43.9782 -77.6235,43.9768 -77.6051,43.984 -77.606,43.9767 -77.614,43.9735 -77.6164,43.9661 -77.6143,43.9623 -77.6081,43.9614 -77.5982,43.9666 -77.5926,43.9678 -77.5691,43.9673 -77.5583,43.9699 -77.5474,43.9779 -77.5346,43.981 -77.526,43.981 -77.5209,43.9786 -77.5201,43.9743 -77.5197,43.9721 -77.5122,43.9712 -77.5115,43.9638 -77.4986,43.9565 -77.4943,43.9553 -77.4885,43.9582 -77.4629,43.9541 -77.4542,43.9494 -77.4506,43.942 -77.4539,43.939 -77.464,43.9394 -77.4688,43.9367 -77.4797,43.936 -77.4866,43.9394 -77.4924,43.9389 -77.4908,43.934 -77.494,43.9337 -77.5077,43.9449 -77.5088,43.9459 -77.5123,43.9459 -77.5133,43.9434 -77.4863,43.9208 -77.4756,43.9194 -77.4561,43.9127 -77.4478,43.9067 -77.4399,43.8905 -77.4299,43.8917 -77.4371,43.8977 -77.4344,43.8994 -77.4298,43.9003 -77.4211,43.9064 -77.4108,43.9092 -77.4072,43.9084 -77.4184,43.9 -77.4199,43.8953 -77.4249,43.8912 -77.4232,43.889 -77.4178,43.8889 -77.4069,43.8892 -77.4025,43.8861 -77.4066,43.8818 -77.4117,43.8816 -77.4176,43.8855 -77.4164,43.8739 -77.4094,43.8739 -77.393,43.8779 -77.3604,43.8761 -77.3513,43.8803 -77.3405,43.8799 -77.3174,43.8842 -77.2797,43.8953 -77.2654,43.8987 -77.2469,43.9031 -77.2281,43.906 -77.217,43.9055 -77.2123,43.9018 -77.2119,43.8976 -77.2207,43.8881 -77.2127,43.8885 -77.2024,43.8968 -77.196,43.8998 -77.1869,43.8985 -77.1693,43.9068 -77.1667,43.9048 -77.1734,43.8866 -77.1771,43.8852 -77.1795,43.8886 -77.1889,43.8849 -77.1964,43.8838 -77.1974,43.881 -77.1828,43.8808 -77.1807,43.877 -77.1889,43.8649 -77.1931,43.8614 -77.1992,43.8614 -77.2088,43.8687 -77.2218,43.8741 -77.2322,43.8842 -77.2198,43.8956 -77.2236,43.8963 -77.2385,43.8911 -77.2526,43.8986 -77.2541,43.8968 -77.2079,43.8553 -77.2016,43.847 -77.2009,43.8396 -77.1978,43.8394 -77.1914,43.8441 -77.1783,43.8451 -77.1671,43.8508 -77.1596,43.8515 -77.1539,43.8492 -77.1492,43.8457 -77.1388,43.8377 -77.1379,43.8342 -77.1415,43.8286 -77.1528,43.8197 -77.1637,43.8138 -77.1674,43.8094 -77.1653,43.8058 -77.1399,43.8032 -77.1321,43.8046 -77.1285,43.808 -77.107,43.8146 -77.0939,43.8145 -77.0851,43.8063 -77.0841,43.7975 -77.0837,43.7943 -77.0793,43.7887 -77.0757,43.7875 -77.0645,43.7928 -77.0526,43.7936 -77.0371,43.8036 -77.0132,43.8133 -77.0046,43.8138 -76.9659,43.8373 -76.9608,43.8374 -76.9545,43.8347 -76.9434,43.8341 -76.9427,43.8343 -76.93,43.8377 -76.9247,43.8456 -76.913,43.8551 -76.8952,43.8648 -76.8768,43.868 -76.871,43.8769 -76.8632,43.8779 -76.8377,43.8751 -76.8206,43.883 -76.8068,43.8825 -76.7999,43.8859 -76.7957,43.8879 -76.795,43.8923 -76.8002,43.9002 -76.8175,43.8986 -76.8728,43.8853 -76.8785,43.8851 -76.8844,43.8891 -76.8884,43.895 -76.8948,43.895 -76.9139,43.8881 -76.9256,43.8894 -76.93,43.8908 -76.9345,43.8911 -76.9369,43.8898 -76.9421,43.8768 -76.9475,43.8689 -76.9574,43.8613 -76.9616,43.8664 -76.9674,43.868 -76.9686,43.871 -76.9607,43.8806 -76.9614,43.8972 -76.9443,43.9087 -76.9513,43.914 -76.9491,43.9162 -76.93,43.9162 -76.93,43.9372 -76.9325,43.9385 -76.944,43.9315 -76.9481,43.9318 -76.9491,43.936 -76.9457,43.9403 -76.9388,43.9443 -76.93,43.9472 -76.9187,43.9561 -76.9035,43.962 -76.8955,43.9683 -76.891,43.9753 -76.8872,43.9689 -76.8829,43.9678 -76.8685,43.9698 -76.8325,43.9845 -76.8311,43.9876 -76.8328,43.9946 -76.8331,43.9955 -76.8271,44.0102 -76.8176,44.0136 -76.8081,44.0209 -76.7873,44.0279 -76.7819,44.0326 -76.7756,44.0452 -76.7746,44.0547 -76.7759,44.0595 -76.78,44.062 -76.7865,44.0606 -76.8069,44.0477 -76.816,44.0466 -76.8239,44.0431 -76.8305,44.0403 -76.8353,44.0335 -76.8487,44.0261 -76.8699,44.0083 -76.8784,44.0052 -76.8961,44.0012 -76.9269,43.9905 -76.93,43.991 -76.93,44.0109 -76.924,44.0121 -76.9123,44.0099 -76.9042,44.0117 -76.8936,44.0163 -76.8903,44.02 -76.8897,44.0269 -76.8814,44.0319 -76.874,44.0386 -76.8732,44.0421 -76.8657,44.0459 -76.8585,44.0544 -76.8553,44.0548 -76.8519,44.0551 -76.8471,44.0594 -76.8391,44.0597 -76.8276,44.0642 -76.8177,44.0713 -76.8048,44.0752 -76.7934,44.0808 -76.7836,44.0884 -76.7472,44.1079 -76.7225,44.1172 -76.7141,44.1247 -76.7111,44.1274 -76.7025,44.1278 -76.6992,44.1319 -76.6915,44.1322 -76.6814,44.135 -76.673,44.1395 -76.6544,44.1513 -76.636,44.1549 -76.6295,44.1615 -76.6244,44.1618 -76.619,44.1542 -76.6083,44.1558 -76.6027,44.1622 -76.5672,44.1692 -76.5562,44.1784 -76.5529,44.1846 -76.554,44.1912 -76.5429,44.1869 -76.5532,44.1722 -76.5542,44.1677 -76.5526,44.1651 -76.5582,44.1544 -76.554,44.1539 -76.5453,44.1607 -76.5356,44.1602 -76.5277,44.1635 -76.5213,44.163 -76.5155,44.168 -76.499,44.1567 -76.4949,44.157 -76.4884,44.1611 -76.4846,44.1613 -76.4818,44.1544 -76.4767,44.1547 -76.4727,44.1592 -76.4705,44.1616 -76.4669,44.163 -76.4588,44.1624 -76.4361,44.1696 -76.4235,44.1693 -76.4126,44.1737 -76.3992,44.1766 -76.3953,44.1783 -76.3863,44.1809 -76.3867,44.1765 -76.385,44.1753 -76.3836,44.1761 -76.3769,44.1802 -76.3645,44.1831 -76.3458,44.1916 -76.3429,44.1969 -76.338,44.2009 -76.3186,44.2072 -76.3121,44.2164 -76.2958,44.2172 -76.2914,44.2202 -76.2758,44.2235 -76.2473,44.2415 -76.2477,44.2442 -76.2478,44.2451 -76.2458,44.2473 -76.1939,44.2571 -76.1746,44.259 -76.1579,44.2715 -76.1523,44.2728 -76.1496,44.2718 -76.1441,44.2637 -76.1355,44.2619 -76.1297,44.2563 -76.1172,44.2663 -76.1061,44.2728 -76.0964,44.277 -76.0825,44.2791 -76.0449,44.2913 -76.0388,44.291 -76.0313,44.2981 -76.0232,44.3019 -76.0098,44.3029 -75.9866,44.2993 -75.9778,44.3005 -75.9608,44.3108 -75.9506,44.3153 -75.9471,44.3169 -75.933,44.3194 -75.9087,44.32 -75.9053,44.3211 -75.8951,44.3249 -75.8826,44.3273 -75.8709,44.3342 -75.8549,44.348 -75.8405,44.356 -75.8398,44.3584 -75.846,44.3589 -75.8044,44.3984 -75.7952,44.4062 -75.7632,44.4331 -75.7614,44.4369 -75.7554,44.4404 -75.7463,44.4424 -75.7398,44.4584 -75.7346,44.4628 -75.7303,44.4644 -75.7118,44.4796 -75.7066,44.4819 -75.6929,44.4938 -75.6843,44.4947 -75.6826,44.4966 -75.6777,44.502 -75.67,44.5016 -75.6673,44.5033 -75.6635,44.5093 -75.6575,44.5131 -75.6543,44.5215 -75.6288,44.5403 -75.6104,44.5482 -75.5735,44.5745 -75.5611,44.5812 -75.5481,44.5916 -75.5398,44.5953 -75.5268,44.6087 -75.5173,44.6124 -75.5058,44.622 -75.5027,44.6291 -75.497,44.6327 -75.4895,44.6342 -75.4851,44.6441 -75.477,44.6496 -75.4486,44.6609 -75.4407,44.6677 -75.4342,44.6732 -75.4203,44.6758 -75.4132,44.6815 -75.4052,44.696 -75.3939,44.7019 -75.3852,44.7111 -75.3778,44.7136 -75.3765,44.7107 -75.3789,44.706 -75.3769,44.7031 -75.3696,44.7122 -75.3649,44.7286 -75.3614,44.7313 -75.356,44.7325 -75.339,44.7327 -75.336,44.7327 -75.3242,44.7396 -75.3134,44.7415 -75.3049,44.7578 -75.2816,44.7752 -75.268,44.7746 -75.2552,44.7785 -75.2478,44.7789 -75.2439,44.784 -75.2418,44.7949 -75.2318,44.8039 -75.2204,44.8087 -75.219,44.8087 -75.2104,44.809 -75.2012,44.8132 -75.1939,44.8142 -75.1843,44.8214 -75.1567,44.8319 -75.1353,44.8376 -75.1235,44.8449 -75.104,44.8533 -75.0906,44.8547 -75.0845,44.8578 -75.0696,44.8699 -75.0609,44.877 -75.0401,44.8788 -75.0352,44.8811 -75.0313,44.8836 -75.0068,44.8849 -75.0025,44.8865 -75.001,44.8914 -74.9741,44.9024 -74.9522,44.913 -74.944,44.9185 -74.9363,44.9315 -74.9311,44.9348 -74.93,44.935 -74.8987,44.9406 -74.8922,44.9408 -74.8678,44.9417 -74.8329,44.9494 -74.8318,44.95 -74.8262,44.9526 -74.8212,44.9549 -74.8197,44.9561 -74.7915,44.9778 -74.7831,44.9812 -74.7709,44.9825 -74.7623,44.9806 -74.7495,44.9723 -74.7369,44.9727 -74.7303,44.9712 -74.7258,44.9667 -74.7155,44.9673 -74.7031,44.9645 -74.6734,44.9649 -74.6692,44.9653 -74.6564,44.9667 -74.6364,44.9711 -74.6036,44.9842 -74.6071,44.9539 -74.5772,44.9558 -74.1446,44.9411 -73.8078,44.9489 -73.5195,44.9555 -73.2649,44.9597 -73.2498,44.9584 -73.2385,44.9606 -72.8538,44.9673 -72.6768,44.9698 -72.4083,44.9661 -72.3573,44.9665 -72.1702,44.9677 -71.9489,44.9683 -71.7919,44.968 -71.4543,44.969 -71.3939,44.9693 -71.3981,44.9984 -71.3885,45.0266 -71.3593,45.0515 -71.3341,45.0764 -71.3012,45.1629 -71.3241,45.1986 -71.2211,45.2454 -71.1955,45.2523 -71.1726,45.2448 -71.1364,45.2251 -71.1119,45.2145 -71.0799,45.2045 -71.0435,45.2013 -70.9854,45.2562 -70.9214,45.2753 -70.7772,45.1895 -70.5976,45.4118 -70.6134,45.4261 -70.6255,45.4456 -70.621,45.4765 -70.5935,45.5202 -70.5324,45.5757 -70.4776,45.6089 -70.4561,45.6208 -70.3676,45.6599 -70.2946,45.7258 -70.1591,45.8567 -70.1458,45.908 -70.1703,45.9211 -70.2057,45.9277 -70.2063,46.0263 -70.1882,46.1506 -70.1429,46.2265 -70.1009,46.2837 -70.0196,46.3408 -69.9789,46.3648 -69.9579,46.3783 -69.9485,46.4009 -69.9447,46.4221 -69.9393,46.4571 -69.9276,46.5343 -69.9098,46.6448 -69.8931,46.6625 -69.7477,46.8086 -69.6132,46.9435 -69.5546,47.0016 -69.3244,47.2293 -69.2059,47.3462 -69.1368,47.4135 -69.0291,47.4049 -68.9464,47.3767 -68.9456,47.349 -68.9537,47.3265 -68.957,47.2882 -68.9568,47.2774 -68.8411,47.2767 -68.7832,47.2885 -68.7734,47.2892 -68.7704,47.2912 -68.7078,47.3051 -68.6743,47.3166 -68.5089,47.3729 -68.5019,47.3752 -68.3754,47.4597 -68.3381,47.4821 -68.3367,47.4848 -68.3123,47.5014 -68.3115,47.5997 -68.3113,47.6233 -68.313,47.7252 -68.3132,47.7384 -68.3112,47.7653 -68.3109,47.8507 -68.3109,47.863 -68.1424,47.8649 -68.052,47.8658 -68.0499,47.9306 -68.0493,47.9491 -68.0405,47.95 -67.534,47.95 -67.5315,47.9461 -67.5343,47.9387 -67.5352,47.9365 -67.5256,47.9223 -67.5258,47.9145 -67.535,47.8886 -67.5314,47.8817 -67.5234,47.8764 -67.5079,47.871 -67.4902,47.8714 -67.4538,47.861 -67.4456,47.855 -67.4041,47.8399 -67.3556,47.8222 -67.3441,47.8207 -67.3317,47.8151 -67.3224,47.8054 -67.3167,47.8049 -67.3141,47.8012 -67.321,47.7953 -67.3086,47.791 -67.3034,47.7928 -67.2947,47.7911 -67.2905,47.7931 -67.2901,47.7977 -67.2943,47.8048 -67.2859,47.8118 -67.2858,47.8166 -67.2844,47.8181 -67.2753,47.8148 -67.2719,47.8152 -67.2687,47.8209 -67.2674,47.8293 -67.2711,47.8326 -67.2815,47.837 -67.2828,47.8396 -67.2807,47.8411 -67.2729,47.8401 -67.2595,47.834 -67.2313,47.8336 -67.2251,47.8381 -67.2299,47.8455 -67.2218,47.8456 -67.2057,47.8376 -67.1904,47.8367 -67.1843,47.8324 -67.1821,47.8309 -67.1733,47.8306 -67.1637,47.8334 -67.159,47.8326 -67.1504,47.8241 -67.1444,47.8224 -67.1163,47.8282 -67.1084,47.8312 -67.1027,47.8394 -67.0959,47.8418 -67.0805,47.8377 -67.0738,47.8399 -67.0686,47.8439 -67.0637,47.8605 -67.0592,47.862 -67.0434,47.8611 -67.0388,47.8608 -67.023,47.867 -67.0097,47.8686 -67.0032,47.8712 -66.9984,47.8801 -66.9919,47.8811 -66.9802,47.8802 -66.9245,47.8486 -66.9169,47.8439 -66.9031,47.8392 -66.8914,47.8399 -66.8844,47.8429 -66.8771,47.8488 -66.8809,47.8542 -66.8979,47.8601 -66.9014,47.8655 -66.898,47.8837 -66.8947,47.8907 -66.8825,47.8999 -66.8706,47.9184 -66.8607,47.9259 -66.8449,47.9328 -66.8113,47.9412 -66.7966,47.9431 -66.7744,47.9438 -66.747,47.9414 -66.7473,47.9416 -66.6673,47.9513 -66.5741,47.9723 -66.4317,48.028 -66.41,48.0471 -66.3858,48.0604 -66.3363,48.0634 -66.3055,48.0608 -66.147,48.0543 -66.034,48.0521 -65.9293,48.084 -65.9114,48.1042 -65.8577,48.135 -65.801,48.1472 -65.6691,48.0549 -65.5942,48.0387 -65.4015,47.9887 -65.381,47.9608 -65.3653,47.9465 -65.2327,47.9474 -65.2116,47.9507 -65.1758,47.9579 -65.1056,47.9774 -65.059,47.9971 -64.8786,48.0802 -64.8378,48.1166 -64.7793,48.1256 -64.6805,48.1422 -64.6625,48.18 -64.6374,48.2193 -64.5924,48.2829 -64.493,48.313 -64.4062,48.3377 -64.3327,48.3489 -64.229,48.3816 -64.1531,48.4325 -64.1258,48.4727 -64.1523,48.4912 -64.1754,48.4941 -64.1877,48.5099 -64.1788,48.5432 -64.1621,48.5613 -64.0994,48.5681 -64.0721,48.5721 -64.1679,48.6538 -64.2803,48.7319 -64.3703,48.7686 -64.4362,48.8179 -64.2925,48.7929 -64.2217,48.773 -64.2008,48.7667 -64.1433,48.7446 -64.1172,48.7288 -64.0641,48.7041 -64.1178,48.8291 -64.1345,48.8482 -64.2822,48.9417 -64.5026,49.0585 -64.5461,49.0626 -64.5661,49.0666 -64.6455,49.0888 -64.674,49.1009 -64.7012,49.1193 -64.7302,49.1312 -64.8212,49.1501 -64.9013,49.1637 -65.2637,49.2 -65.2981,49.2033 -65.3511,49.2058 -65.4007,49.2051 -65.5819,49.1892 -65.7356,49.1749 -65.9847,49.1627 -66.1279,49.1446 -66.2085,49.1307 -66.3241,49.1066 -66.6245,49.0336 -66.8216,48.9715 -66.8629,48.9556 -66.8935,48.943 -66.9178,48.9307 -66.9695,48.9107 -66.9896,48.9049 -67.1113,48.8797 -67.4325,48.8031 -67.6104,48.7378 -67.8746,48.6396 -68.0194,48.594 -68.0578,48.5936 -68.0799,48.5908 -68.1028,48.5842 -68.1377,48.5697 -68.184,48.5445 -68.2431,48.5022 -68.2621,48.4937 -68.2762,48.4908 -68.3083,48.4925 -68.3287,48.488 -68.3542,48.4771 -68.3719,48.4624 -68.3975,48.4346 -68.4167,48.4112 -68.4358,48.3987 -68.5953,48.3412 -68.7318,48.2892 -68.8407,48.2399 -68.8688,48.2249 -68.9162,48.199 -68.954,48.1733 -68.9943,48.1439 -69.0162,48.1237 -69.175,48.0127 -69.3173,47.9458 -69.3504,47.9242 -69.3693,47.9072 -69.4031,47.8742 -69.4265,47.8492 -69.4439,47.8288 -69.4561,47.8067 -69.4929,47.7542 -69.5397,47.7081 -69.5592,47.69 -69.7055,47.5587 -69.7986,47.4849 -69.8671,47.4516 -69.9431,47.3403 -69.9786,47.3071 -70.0106,47.2864 -70.1726,47.1597 -70.2097,47.123 -70.2337,47.1019 -70.3604,46.9998 -70.3857,46.98 -70.4064,46.9667 -70.438,46.9502 -70.4742,46.9399 -70.511,46.9354 -70.5371,46.9279 -70.6427,46.8896 -70.6683,46.8637 -70.8859,46.8007 -70.9821,46.7939 -71.0076,46.7975 -70.9808,46.7999 -70.936,46.808 -70.9078,46.8177 -70.803,46.8601 -70.7865,46.87 -70.7761,46.8774 -70.7133,46.9446 -70.708,46.9548 -70.7152,46.9673 -70.7398,46.975 -70.759,46.9743 -70.771,46.9706 -70.7955,46.9598 -70.8359,46.9388 -70.9772,46.86 -70.9977,46.8445 -71.0202,46.8206 -71.0271,46.8045 -71.0132,46.7965 -71.0439,46.7901 -71.0712,46.7696 -71.0854,46.7462 -71.1028,46.7324 -71.1844,46.6933 -71.1977,46.6889 -71.0927,46.7988 -71.0122,46.8588 -70.8723,46.9499 -70.8217,46.9784 -70.7922,46.9917 -70.7659,46.9978 -70.7196,47.0041 -70.6912,47.0147 -70.6263,47.0448 -70.5985,47.0724 -70.4852,47.204 -70.4718,47.2238 -70.4664,47.247 -70.4546,47.2687 -70.4014,47.3367 -70.3609,47.3759 -70.2408,47.4063 -70.1988,47.4126 -70.1254,47.4432 -70.1072,47.4759 -70.1059,47.5166 -70.0841,47.5492 -70.0319,47.5907 -69.9821,47.6168 -69.9082,47.653 -69.83,47.714 -69.7385,47.8523 -69.6857,47.94 -69.6317,48.0526 -69.8273,48.1638 -69.894,48.1849 -69.9241,48.1901 -69.96,48.1848 -70.1024,48.2109 -70.1358,48.2274 -70.1708,48.2431 -70.2302,48.2612 -70.2809,48.276 -70.3621,48.294 -70.3965,48.2979 -70.4457,48.3009 -70.6725,48.2939 -70.682,48.3321 -70.8033,48.368 -70.9362,48.3884 -70.9154,48.404 -70.8774,48.4068 -70.8516,48.4043 -70.677,48.3803 -70.6537,48.3749 -70.6309,48.3642 -70.5323,48.3353 -70.3219,48.3058 -70.1707,48.2703 -70.0662,48.2248 -70.0399,48.2168 -69.9984,48.2121 -69.9422,48.2118 -69.8881,48.2195 -69.867,48.2169 -69.7804,48.1673 -69.7657,48.1505 -69.7392,48.1211 -69.7045,48.0996 -69.5905,48.0824 -69.5776,48.0858 -69.497,48.1522 -69.3541,48.2367 -69.3344,48.2501 -69.1961,48.3968 -69.1821,48.4323 -69.1805,48.4544 -69.1645,48.486 -69.1273,48.5307 -69.0922,48.5309 -69.0533,48.5331 -69.0232,48.559 -69.0112,48.5769 -69.002,48.5986 -68.9943,48.6276 -68.9863,48.6598 -68.9584,48.7104 -68.7763,48.7961 -68.5957,48.8841 -68.5254,48.9676 -68.5064,48.9864 -68.4902,48.998 -68.4709,49.0048 -68.342,49.0394 -68.2693,49.0133 -68.1215,49.0439 -68.0942,49.0539 -68.0438,49.1743 -68.0341,49.203 -67.8754,49.2283 -67.8392,49.2313 -67.6068,49.2563 -67.4743,49.273 -67.3744,49.2701 -67.3301,49.2664 -67.2952,49.2653 -67.273,49.2733 -67.1329,49.4184 -67.1297,49.4533 -67.1398,49.4961 -67.1403,49.5278 -67.0746,49.7075 -67.0571,49.7414 -67.0425,49.7598 -67.0193,49.7778 -66.9964,49.7863 -66.969,49.7884 -66.9169,49.7974 -66.8648,49.8596 -66.8761,49.8803 -66.8757,49.8861 -66.8653,49.9087 -66.8509,49.9228 -66.8208,49.9428 -66.7897,49.957 -66.7622,49.9651 -66.6232,50.0207 -66.6006,50.0448 -66.4118,50.1811 -66.3945,50.1915 -66.3693,50.2038 -66.3488,50.2099 -66.3211,50.2077 -66.3065,50.1848 -66.2144,50.1519 -66.0637,50.1394 -65.9869,50.1346 -65.9437,50.1643 -65.925,50.1936 -65.8992,50.2138 -65.8809,50.2231 -65.8529,50.2308 -65.8185,50.2304 -65.7987,50.2271 -65.7709,50.2146 -65.7384,50.1983 -65.6485,50.1988 -65.5913,50.2033 -65.4911,50.2174 -65.4226,50.2277 -65.3877,50.2373 -65.3655,50.2415 -65.1766,50.2499 -65.1379,50.2461 -65.0869,50.2282 -64.8022,50.2128 -64.6273,50.2166 -64.562,50.2194 -64.5223,50.2222 -64.4125,50.2449 -64.3734,50.2599 -64.3527,50.2609 -64.3128,50.2521 -64.2723,50.2355 -64.1658,50.2135 -64.1282,50.2079 -64.0612,50.2043 -64.0372,50.2116 -63.9704,50.2341 -63.8796,50.2474 -63.7159,50.2539 -63.6007,50.2338 -63.5536,50.2146 -63.5206,50.2085 -63.4697,50.2062 -63.3735,50.1991 -63.3199,50.1879 -63.7448,51.9426 -63.7342,51.9581 -63.7348,51.9695 -63.7412,51.9789 -63.7463,51.9819 -63.7623,51.9823 -63.7668,51.9913 -63.7711,52.0209 -63.7636,52.0324 -63.7523,52.0351 -63.7401,52.0357 -63.7185,52.0226 -63.7083,52.02 -63.6963,52.0139 -63.6963,52.0149 -63.6654,52.0044 -63.6473,51.9972 -63.6289,51.9987 -63.6158,52.0016 -63.6024,51.9919 -63.5812,51.9914 -63.5803,51.9949 -63.5991,52.0158 -63.6026,52.0269 -63.6161,52.0377 -63.6225,52.0387 -63.6338,52.0353 -63.6337,52.0617 -63.623,52.0803 -63.636,52.116 -63.6468,52.1299 -63.6544,52.1544 -63.6752,52.1759 -63.6784,52.1827 -63.6874,52.1881 -63.6889,52.1968 -63.682,52.2032 -63.6832,52.2088 -63.6971,52.2194 -63.712,52.2237 -63.7031,52.2286 -63.7028,52.2336 -63.7089,52.2394 -63.7257,52.248 -63.7407,52.2489 -63.7569,52.2548 -63.7579,52.258 -63.7506,52.2598 -63.7372,52.2566 -63.7153,52.2577 -63.6895,52.253 -63.6787,52.2536 -63.6724,52.2584 -63.6733,52.2641 -63.6832,52.2667 -63.707,52.279 -63.7397,52.281 -63.7594,52.2849 -63.7609,52.2805 -63.7549,52.275 -63.7616,52.2707 -63.7737,52.2726 -63.7847,52.2699 -63.794,52.2701 -63.8037,52.2739 -63.8415,52.2917 -63.8827,52.3015 -63.898,52.3095 -63.9114,52.3091 -63.9298,52.3135 -63.937,52.3148 -63.9586,52.3391 -63.9589,52.3425 -63.9518,52.3503 -63.9579,52.3643 -63.9632,52.3687 -63.9915,52.383 -64.0074,52.3937 -64.0218,52.4113 -64.0211,52.4283 -64.0141,52.4468 -64.0055,52.4505 -64.0035,52.4572 -63.9972,52.4662 -63.98,52.4841 -63.9751,52.5001 -63.9739,52.507 -63.9659,52.5143 -63.9453,52.5191 -63.9156,52.532 -63.9038,52.5347 -63.8672,52.5494 -63.8481,52.55 -63.8225,52.5625 -63.8035,52.5688 -63.794,52.5728 -63.7866,52.5735 -63.7782,52.5717 -63.7545,52.5722 -63.7454,52.5757 -63.6903,52.5827 -63.6388,52.5831 -63.6102,52.587 -63.5821,52.5888 -63.5379,52.5958 -63.538,52.5967 -63.4645,52.5991 -63.4486,52.5986 -63.4399,52.598 -63.4245,52.5984 -63.4109,52.5974 -63.382,52.5985 -63.3616,52.597 -63.3434,52.6099 -63.3273,52.6064 -63.3186,52.6108 -63.3157,52.6166 -63.3241,52.6328 -63.3319,52.6372 -63.3522,52.6417 -63.3816,52.6653 -63.3996,52.6739 -63.3995,52.673 -63.4185,52.6752 -63.441,52.6782 -63.4523,52.6781 -63.4671,52.6846 -63.4825,52.6933 -63.495,52.7082 -63.5314,52.7195 -63.5455,52.7205 -63.5509,52.7272 -63.5504,52.7391 -63.527,52.7489 -63.5294,52.7596 -63.5259,52.7812 -63.5171,52.7899 -63.5173,52.7972 -63.5275,52.8059 -63.5408,52.811 -63.5439,52.8315 -63.5478,52.8323 -63.5546,52.8316 -63.5599,52.8232 -63.5582,52.8027 -63.5608,52.7971 -63.5835,52.8067 -63.598,52.8077 -63.6006,52.8035 -63.5875,52.786 -63.5865,52.7739 -63.599,52.7697 -63.6207,52.7679 -63.6445,52.7632 -63.6595,52.7525 -63.6684,52.7424 -63.6745,52.7383 -63.6758,52.7273 -63.6999,52.7259 -63.6998,52.7249 -63.7145,52.7201 -63.7394,52.7164 -63.7542,52.7175 -63.7897,52.7262 -63.7999,52.7259 -63.8151,52.719 -63.8212,52.7111 -63.842,52.7072 -63.8517,52.7023 -63.866,52.6888 -63.8801,52.6815 -63.8941,52.6787 -63.9152,52.6785 -63.9386,52.683 -63.9459,52.6887 -63.9606,52.6919 -63.9721,52.6903 -63.9827,52.6822 -63.9922,52.6828 -64.0072,52.6866 -64.0264,52.6862 -64.0352,52.6827 -64.0486,52.6852 -64.0583,52.6881 -64.069,52.6862 -64.079,52.6794 -64.0798,52.6762 -64.0743,52.6661 -64.0707,52.6515 -64.0684,52.6425 -64.0729,52.6389 -64.0824,52.6354 -64.0914,52.6353 -64.1027,52.6271 -64.1029,52.6209 -64.0972,52.6003 -64.0969,52.593 -64.1019,52.5827 -64.1016,52.5633 -64.1039,52.5598 -64.1026,52.55 -64.105,52.5474 -64.1237,52.5547 -64.1334,52.5542 -64.1417,52.5502 -64.1427,52.5408 -64.1554,52.5404 -64.1635,52.5419 -64.169,52.541 -64.1685,52.5356 -64.1272,52.5118 -64.1071,52.4935 -64.0962,52.4774 -64.0893,52.46 -64.0811,52.4368 -64.0745,52.3976 -64.0655,52.3734 -64.0548,52.3633 -64.0545,52.348 -64.0686,52.3301 -64.0801,52.3212 -64.0912,52.308 -64.0976,52.2925 -64.1157,52.2907 -64.118,52.2863 -64.1108,52.2659 -64.1145,52.261 -64.1256,52.2567 -64.149,52.2504 -64.1542,52.2463 -64.156,52.2417 -64.1656,52.2413 -64.1798,52.2328 -64.1822,52.2272 -64.1812,52.2199 -64.1669,52.2033 -64.1662,52.1964 -64.1683,52.187 -64.1626,52.1741 -64.1428,52.146 -64.1335,52.1257 -64.1195,52.107 -64.1117,52.0922 -64.1131,52.0786 -64.1166,52.076 -64.1351,52.0877 -64.1478,52.0918 -64.155,52.0926 -64.158,52.0933 -64.1663,52.098 -64.1781,52.0971 -64.1882,52.0858 -64.1907,52.0694 -64.1921,52.057 -64.1954,52.0482 -64.1947,52.0409 -64.1974,52.0376 -64.2187,52.0348 -64.2286,52.0301 -64.2319,52.0252 -64.2293,52.0143 -64.2228,52.0042 -64.2131,51.992 -64.208,51.9738 -64.192,51.9577 -64.1784,51.9355 -64.1759,51.9281 -64.1806,51.927 -64.1888,51.9276 -64.2318,51.9471 -64.2602,51.9646 -64.2744,51.9696 -64.2844,51.969 -64.2927,51.9667 -64.2988,51.9605 -64.299,51.9552 -64.2918,51.9422 -64.2883,51.929 -64.2875,51.913 -64.2831,51.8983 -64.2837,51.8926 -64.2877,51.8842 -64.285,51.8717 -64.2807,51.862 -64.2798,51.8483 -64.2861,51.8369 -64.2921,51.8231 -64.2913,51.8145 -64.2839,51.7951 -64.2625,51.7686 -64.2452,51.7498 -64.2475,51.7389 -64.2452,51.7191 -64.2418,51.7142 -64.2347,51.7092 -64.2248,51.7065 -64.2209,51.7005 -64.2277,51.6865 -64.2492,51.6601 -64.2689,51.6395 -64.278,51.6304 -64.2842,51.6263 -64.2938,51.6221 -64.3032,51.6206 -64.3143,51.6172 -64.3217,51.6171 -64.3332,51.6185 -64.3542,51.6262 -64.3714,51.6215 -64.3809,51.6126 -64.3847,51.588 -64.3902,51.5798 -64.4089,51.5715 -64.4164,51.5694 -64.4239,51.5636 -64.434,51.5619 -64.4463,51.5557 -64.4689,51.5463 -64.489,51.5453 -64.4937,51.5479 -64.4998,51.5534 -64.5082,51.5709 -64.5189,51.5792 -64.5302,51.5811 -64.5419,51.5772 -64.5456,51.5807 -64.5505,51.5961 -64.553,51.6138 -64.5543,51.6266 -64.5605,51.6364 -64.5773,51.6461 -64.6077,51.6545 -64.6243,51.6866 -64.6314,51.7023 -64.6359,51.7061 -64.6459,51.7105 -64.6838,51.7195 -64.6996,51.7223 -64.7081,51.7224 -64.7205,51.7173 -64.7288,51.719 -64.7378,51.7274 -64.7469,51.7291 -64.7752,51.7279 -64.8093,51.7288 -64.8447,51.7283 -64.8656,51.7269 -64.8717,51.7251 -64.8789,51.7174 -64.8752,51.7137 -64.8593,51.71 -64.8572,51.7009 -64.8577,51.689 -64.8606,51.6777 -64.8685,51.6723 -64.8849,51.6739 -64.8933,51.677 -64.9082,51.6878 -64.93,51.699 -64.9313,51.6997 -64.9373,51.7006 -64.963,51.713 -64.9769,51.7181 -64.9851,51.7194 -65.007,51.7166 -65.0238,51.7085 -65.0387,51.7058 -65.0587,51.7064 -65.0755,51.7086 -65.0901,51.7135 -65.1061,51.7146 -65.1112,51.7169 -65.1131,51.7209 -65.1119,51.7267 -65.1037,51.742 -65.1051,51.757 -65.1176,51.7725 -65.1291,51.7732 -65.151,51.7733 -65.167,51.7749 -65.177,51.7777 -65.1831,51.7829 -65.1838,51.7953 -65.1799,51.8062 -65.181,51.8123 -65.1914,51.822 -65.1932,51.8249 -65.2353,51.8241 -65.2395,51.8244 -65.2504,51.8228 -65.2548,51.8161 -65.259,51.802 -65.2588,51.791 -65.2677,51.7819 -65.2745,51.7793 -65.2816,51.7863 -65.2883,51.8025 -65.3135,51.824 -65.3194,51.8336 -65.3135,51.846 -65.2891,51.8652 -65.2821,51.8846 -65.2853,51.9021 -65.2857,51.908 -65.2923,51.9169 -65.2941,51.9292 -65.3007,51.9378 -65.3099,51.9427 -65.3186,51.9416 -65.3295,51.9296 -65.334,51.9271 -65.3739,51.9533 -65.3837,51.9579 -65.3983,51.9703 -65.4103,51.9871 -65.4142,51.9975 -65.4149,52.0123 -65.4116,52.043 -65.4167,52.0544 -65.4287,52.0582 -65.4383,52.0543 -65.4504,52.0407 -65.4613,52.0327 -65.4889,51.9974 -65.5112,51.9911 -65.5208,51.9902 -65.539,51.9962 -65.5494,51.993 -65.5646,51.9785 -65.5772,51.9543 -65.5806,51.9429 -65.5902,51.9365 -65.5959,51.9372 -65.5979,51.9474 -65.5992,51.9725 -65.595,51.9924 -65.5809,52.0043 -65.577,52.0178 -65.5846,52.0427 -65.5958,52.0637 -65.5995,52.0663 -65.6039,52.0684 -65.6079,52.0679 -65.6146,52.0649 -65.6204,52.0628 -65.6331,52.0571 -65.6438,52.0515 -65.6479,52.0488 -65.6568,52.0422 -65.6609,52.0427 -65.675,52.0562 -65.689,52.0551 -65.7002,52.0587 -65.717,52.0585 -65.7418,52.0722 -65.7538,52.0751 -65.7686,52.0714 -65.7863,52.0733 -65.8024,52.0683 -65.81,52.0634 -65.8202,52.0503 -65.8232,52.0453 -65.8341,52.037 -65.8419,52.0373 -65.8566,52.0411 -65.8567,52.042 -65.881,52.0544 -65.8886,52.0521 -65.9011,52.0403 -65.9039,52.0165 -65.9064,52.0127 -65.9113,52.0132 -65.9154,52.0157 -65.9251,52.0161 -65.9377,52.021 -65.9559,52.0345 -65.9733,52.0426 -65.9969,52.0487 -66.0158,52.0484 -66.0224,52.0504 -66.024,52.0565 -66.0144,52.0818 -66.0108,52.1017 -66.0101,52.1157 -66.0135,52.1222 -66.0318,52.1414 -66.0501,52.1655 -66.0601,52.173 -66.0742,52.1805 -66.0826,52.1794 -66.0934,52.1736 -66.1075,52.1621 -66.1157,52.1621 -66.1394,52.1904 -66.1492,52.2124 -66.1554,52.2192 -66.1622,52.2198 -66.1723,52.2252 -66.1865,52.2595 -66.2021,52.2693 -66.2094,52.2677 -66.223,52.256 -66.2237,52.2397 -66.2374,52.2463 -66.2426,52.2433 -66.245,52.2285 -66.2377,52.2062 -66.2395,52.195 -66.235,52.1767 -66.2167,52.1501 -66.2116,52.114 -66.2146,52.1035 -66.2297,52.091 -66.2393,52.0905 -66.245,52.0915 -66.2561,52.101 -66.2702,52.1056 -66.2849,52.1046 -66.2969,52.1101 -66.2994,52.1169 -66.2957,52.1278 -66.2975,52.1376 -66.3187,52.1583 -66.3261,52.1709 -66.3406,52.186 -66.3555,52.1751 -66.3624,52.1738 -66.3796,52.1841 -66.3867,52.1915 -66.392,52.205 -66.3891,52.2159 -66.3724,52.212 -66.366,52.2142 -66.3654,52.2179 -66.3693,52.2264 -66.3832,52.2371 -66.3905,52.2489 -66.401,52.2568 -66.4053,52.2584 -66.4136,52.269 -66.4151,52.2767 -66.413,52.2828 -66.3978,52.2967 -66.3916,52.3002 -66.378,52.3049 -66.3715,52.3121 -66.3673,52.3217 -66.3575,52.3319 -66.3491,52.333 -66.335,52.3294 -66.3251,52.3226 -66.3139,52.3177 -66.3049,52.3104 -66.2837,52.3085 -66.2723,52.313 -66.2726,52.336 -66.2764,52.3491 -66.2928,52.359 -66.2948,52.3651 -66.2891,52.3938 -66.2921,52.4069 -66.2969,52.411 -66.3188,52.4174 -66.3233,52.4255 -66.3229,52.4276 -66.3214,52.4302 -66.3172,52.4295 -66.3051,52.4239 -66.2992,52.4245 -66.2927,52.4294 -66.295,52.4506 -66.3014,52.4583 -66.3195,52.4695 -66.322,52.4732 -66.312,52.4795 -66.3055,52.4895 -66.3091,52.504 -66.3273,52.5282 -66.3576,52.5606 -66.3633,52.5662 -66.3676,52.5775 -66.3653,52.5852 -66.3479,52.6109 -66.3369,52.6211 -66.3252,52.6212 -66.3175,52.6171 -66.2911,52.5912 -66.2624,52.5647 -66.2409,52.5484 -66.2337,52.5483 -66.2194,52.5589 -66.2138,52.5698 -66.2151,52.5816 -66.2379,52.6013 -66.2562,52.629 -66.2653,52.645 -66.2672,52.661 -66.2583,52.6755 -66.2544,52.6878 -66.2579,52.7046 -66.2578,52.7195 -66.2712,52.731 -66.2796,52.7425 -66.2974,52.7557 -66.3092,52.764 -66.32,52.7754 -66.3362,52.7982 -66.3392,52.8166 -66.315,52.817 -66.2751,52.811 -66.258,52.805 -66.2406,52.7977 -66.2363,52.797 -66.2266,52.8 -66.214,52.8133 -66.2065,52.8295 -66.2046,52.8399 -66.2089,52.8487 -66.2191,52.8616 -66.2436,52.8849 -66.2552,52.9121 -66.2587,52.9206 -66.2882,52.9589 -66.3102,52.969 -66.3439,52.976 -66.3671,52.9784 -66.4142,52.9757 -66.4244,52.9747 -66.429,52.9665 -66.427,52.9461 -66.4222,52.914 -66.4298,52.9088 -66.4373,52.9081 -66.4511,52.9141 -66.4578,52.9158 -66.463,52.9095 -66.4755,52.9015 -66.4937,52.8966 -66.5109,52.8973 -66.5257,52.902 -66.5507,52.9139 -66.5585,52.9101 -66.5661,52.9028 -66.5772,52.881 -66.5715,52.8508 -66.5851,52.8455 -66.5883,52.8362 -66.5869,52.8193 -66.5949,52.7823 -66.5946,52.7675 -66.5919,52.7575 -66.5828,52.7399 -66.5858,52.7367 -66.6021,52.7446 -66.6075,52.7431 -66.6189,52.7356 -66.635,52.7147 -66.6421,52.7141 -66.6673,52.7306 -66.6879,52.7386 -66.7086,52.7501 -66.7141,52.7491 -66.6952,52.7075 -66.6909,52.6866 -66.6912,52.6643 -66.7032,52.6435 -66.7012,52.633 -66.6987,52.6267 -66.7018,52.6247 -66.7116,52.6244 -66.7217,52.6312 -66.7343,52.6468 -66.7415,52.6615 -66.7635,52.6942 -66.7718,52.7034 -66.7837,52.705 -66.79,52.6989 -66.792,52.6848 -66.7904,52.675 -66.7931,52.6726 -66.7983,52.6723 -66.8072,52.6736 -66.8083,52.6685 -66.7993,52.6541 -66.7964,52.6455 -66.7984,52.6365 -66.8066,52.633 -66.8147,52.6342 -66.8255,52.6381 -66.8385,52.6489 -66.8627,52.6828 -66.8853,52.7084 -66.8928,52.7148 -66.9022,52.7193 -66.9112,52.719 -66.9279,52.7146 -66.9606,52.7083 -66.9708,52.713 -66.9837,52.7272 -66.9984,52.7484 -66.9927,52.7622 -66.9917,52.7869 -66.994,52.8053 -66.996,52.8132 -66.9946,52.8188 -67.0033,52.833 -67.0245,52.8444 -67.0334,52.8452 -67.034,52.8397 -67.03,52.8314 -67.0347,52.8277 -67.0437,52.8267 -67.0773,52.8096 -67.0917,52.7977 -67.1032,52.7869 -67.1103,52.7838 -67.1239,52.7834 -67.1417,52.7925 -67.1602,52.8037 -67.1793,52.809 -67.2093,52.8251 -67.2182,52.8283 -67.2243,52.8378 -67.234,52.8434 -67.2593,52.8405 -67.2683,52.8443 -67.276,52.8539 -67.2817,52.8678 -67.2853,52.8869 -67.2838,52.9007 -67.2744,52.9082 -67.2654,52.9131 -67.2443,52.9146 -67.2242,52.9147 -67.203,52.9199 -67.1843,52.9313 -67.1787,52.9388 -67.1827,52.9424 -67.1982,52.9417 -67.2203,52.9462 -67.2344,52.9441 -67.2477,52.9394 -67.2656,52.9372 -67.2813,52.9425 -67.2941,52.9529 -67.2978,52.961 -67.297,52.9723 -67.3038,52.9856 -67.3181,53.0116 -67.3222,53.0245 -67.3195,53.0359 -67.3216,53.0594 -67.315,53.0674 -67.3137,53.076 -67.3156,53.0848 -67.302,53.0833 -67.2961,53.08 -67.2839,53.0622 -67.2781,53.0618 -67.252,53.0765 -67.2299,53.0909 -67.223,53.0998 -67.2204,53.1208 -67.2093,53.1277 -67.2024,53.1251 -67.1872,53.1166 -67.1709,53.1013 -67.1607,53.0971 -67.1376,53.0982 -67.0899,53.0939 -67.0891,53.0912 -67.0949,53.0852 -67.0875,53.0792 -67.0705,53.0737 -67.0623,53.065 -67.0535,53.063 -67.024,53.0783 -67.0059,53.0849 -66.9983,53.0851 -66.9957,53.0781 -67.0093,53.0445 -67.0074,53.0373 -66.9878,53.0272 -66.9663,53.0236 -66.9575,53.0232 -66.9451,53.0319 -66.9261,53.0558 -66.9275,53.0621 -66.917,53.0756 -66.9174,53.0803 -66.9369,53.1045 -66.9398,53.1128 -66.9378,53.1173 -66.9298,53.1221 -66.9143,53.1232 -66.9046,53.129 -66.9007,53.1384 -66.906,53.1689 -66.9113,53.2023 -66.9007,53.2293 -66.8898,53.252 -66.8919,53.2629 -66.8995,53.2695 -66.9242,53.2752 -66.9429,53.2771 -66.9531,53.2812 -66.9558,53.2837 -66.948,53.2899 -66.9388,53.2944 -66.9322,53.3106 -66.9305,53.3219 -66.9251,53.3241 -66.9088,53.3135 -66.9006,53.3126 -66.8709,53.3402 -66.8499,53.3435 -66.8361,53.3505 -66.8287,53.3571 -66.8177,53.3754 -66.8198,53.3784 -66.8386,53.3762 -66.8491,53.377 -66.8632,53.3927 -66.867,53.4217 -66.872,53.4239 -66.8797,53.4239 -66.8933,53.4227 -66.907,53.4192 -66.9176,53.4181 -66.9254,53.4186 -66.9301,53.4217 -66.9328,53.4452 -66.9503,53.4584 -66.9666,53.4733 -66.9929,53.4838 -67.0021,53.4858 -67.0314,53.4813 -67.0533,53.481 -67.0664,53.4804 -67.0918,53.4854 -67.1013,53.4915 -67.1078,53.498 -67.1148,53.5006 -67.1301,53.4999 -67.1394,53.4954 -67.1499,53.487 -67.1593,53.4853 -67.1669,53.4874 -67.2,53.5054 -67.2223,53.5027 -67.2353,53.4994 -67.2453,53.5039 -67.2588,53.5152 -67.2642,53.5245 -67.2692,53.5405 -67.275,53.5448 -67.2978,53.5498 -67.3129,53.5567 -67.3184,53.5642 -67.3254,53.5801 -67.3339,53.5936 -67.3486,53.6094 -67.3556,53.6232 -67.339,53.6231 -67.3363,53.6276 -67.3421,53.6346 -67.3525,53.639 -67.3627,53.6552 -67.3669,53.6708 -67.3757,53.6836 -67.3876,53.6851 -67.3875,53.6668 -67.3976,53.6625 -67.4199,53.6614 -67.4392,53.6723 -67.4488,53.6853 -67.4498,53.6951 -67.4497,53.7036 -67.4607,53.7046 -67.4938,53.7032 -67.5128,53.7055 -67.5225,53.7099 -67.5279,53.7142 -67.529,53.7226 -67.5238,53.7328 -67.5176,53.7371 -67.4874,53.7419 -67.4824,53.7443 -67.4605,53.7874 -67.4634,53.793 -67.4792,53.79 -67.488,53.7874 -67.4893,53.7923 -67.4866,53.7971 -67.4992,53.8108 -67.5178,53.8151 -67.5327,53.8246 -67.5404,53.8353 -67.5426,53.843 -67.5392,53.848 -67.5406,53.8583 -67.5458,53.8701 -67.5557,53.8778 -67.5814,53.8842 -67.5857,53.8844 -67.5984,53.8944 -67.6098,53.9167 -67.6255,53.9281 -67.6371,53.932 -67.6442,53.9327 -67.6872,53.9463 -67.7066,53.9584 -67.728,53.9644 -67.7414,53.9654 -67.7465,53.9717 -67.7407,53.981 -67.7169,54.0087 -67.7113,54.0141 -67.7097,54.0271 -67.6941,54.0356 -67.6951,54.0434 -67.711,54.0511 -67.7267,54.0561 -67.7352,54.0659 -67.7318,54.0771 -67.7207,54.0895 -67.7081,54.0954 -67.6826,54.1013 -67.6621,54.1026 -67.6414,54.1027 -67.6231,54.1032 -67.6167,54.1024 -67.5843,54.1051 -67.5745,54.1094 -67.5723,54.1125 -67.5753,54.1201 -67.5733,54.1264 -67.5565,54.1355 -67.5475,54.1441 -67.546,54.1515 -67.5533,54.157 -67.5992,54.179 -67.6086,54.1901 -67.6103,54.2036 -67.6077,54.2134 -67.6089,54.2177 -67.593,54.2384 -67.5987,54.2479 -67.6277,54.2672 -67.6394,54.2693 -67.652,54.2758 -67.6647,54.2893 -67.6684,54.2966 -67.6604,54.3263 -67.6692,54.342 -67.6801,54.3524 -67.6917,54.3576 -67.7063,54.3748 -67.7024,54.3838 -67.6967,54.3867 -67.6804,54.3925 -67.6638,54.3924 -67.6357,54.3891 -67.6175,54.3934 -67.6075,54.403 -67.5899,54.4387 -67.5792,54.4469 -67.5686,54.4299 -67.5649,54.4228 -67.5545,54.4174 -67.5521,54.4174 -67.5284,54.4192 -67.5238,54.4305 -67.51,54.4373 -67.4977,54.4369 -67.4594,54.4301 -67.4394,54.4304 -67.4211,54.4337 -67.3738,54.4359 -67.3609,54.4435 -67.3578,54.4547 -67.3581,54.468 -67.3518,54.4771 -67.3436,54.4819 -67.3276,54.4785 -67.3114,54.4737 -67.2762,54.4664 -67.2632,54.4619 -67.2497,54.459 -67.2366,54.4494 -67.2259,54.4402 -67.2237,54.4344 -67.213,54.4295 -67.1847,54.4479 -67.1603,54.4711 -67.163,54.4755 -67.181,54.4816 -67.209,54.4978 -67.2155,54.5075 -67.2134,54.5184 -67.2097,54.5267 -67.2122,54.5391 -67.1881,54.5321 -67.1794,54.5344 -67.1676,54.5461 -67.1623,54.559 -67.1475,54.5578 -67.1353,54.5583 -67.1148,54.5583 -67.0943,54.5636 -67.0783,54.5718 -67.0622,54.5954 -67.0558,54.6022 -67.0366,54.6127 -67.0164,54.6219 -67.0073,54.629 -67.0031,54.6462 -67.0072,54.6636 -67.0369,54.6893 -67.0594,54.7027 -67.0909,54.7272 -67.1205,54.7379 -67.1366,54.7391 -67.1437,54.7435 -67.1563,54.7684 -67.1754,54.7848 -67.1955,54.7974 -67.2214,54.8181 -67.2422,54.8419 -67.2685,54.8603 -67.2739,54.8662 -67.2784,54.8827 -67.2914,54.8909 -67.3193,54.9019 -67.3325,54.9116 -67.3379,54.9171 -67.3415,54.9306 -67.3386,54.939 -67.3409,54.9474 -67.3435,54.95 -67.3678,54.9733 -67.38,54.9992 -67.3715,55.0119 -67.3711,55.0162 -67.3597,55.0286 -67.3319,55.0387 -67.3235,55.0385 -67.2995,55.0316 -67.258,55.0284 -67.2364,55.0204 -67.2076,54.9996 -67.206,54.9953 -67.2127,54.9855 -67.2031,54.9762 -67.1768,54.9672 -67.1614,54.9545 -67.1587,54.95 -67.1557,54.9448 -67.1454,54.9337 -67.1213,54.9233 -67.1015,54.9169 -67.088,54.9103 -67.0567,54.8924 -67.0338,54.8753 -67.0085,54.8504 -66.9898,54.8414 -66.9724,54.8207 -66.9674,54.8136 -66.9639,54.8086 -66.9553,54.8032 -66.9208,54.7896 -66.914,54.7871 -66.9121,54.7835 -66.9064,54.7801 -66.8995,54.7775 -66.8563,54.7652 -66.8457,54.7628 -66.8265,54.7558 -66.8154,54.7505 -66.7943,54.7472 -66.7766,54.7408 -66.7697,54.7382 -66.7285,54.722 -66.7163,54.7175 -66.7051,54.7122 -66.6978,54.7067 -66.6942,54.7003 -66.6927,54.6989 -66.6884,54.6961 -66.6866,54.6966 -66.6783,54.7018 -66.6714,54.7008 -66.6364,54.6779 -66.606,54.6607 -66.5912,54.6647 -66.5947,54.6771 -66.6076,54.6907 -66.6299,54.7016 -66.6441,54.7107 -66.6461,54.7184 -66.6087,54.7202 -66.5829,54.7252 -66.5662,54.732 -66.5486,54.7439 -66.5368,54.7617 -66.539,54.771 -66.5832,54.812 -66.593,54.8312 -66.6143,54.8525 -66.6128,54.8583 -66.6209,54.8716 -66.6365,54.8891 -66.657,54.9052 -66.6915,54.9291 -66.712,54.9477 -66.713,54.95 -66.7158,54.9564 -66.7116,54.9598 -66.7076,54.9596 -66.6914,54.9508 -66.6867,54.9511 -66.6796,54.9544 -66.6655,54.9584 -66.6406,54.9524 -66.6351,54.95 -66.585,54.9283 -66.5755,54.9265 -66.5695,54.9284 -66.5806,54.9436 -66.5862,54.95 -66.5987,54.9644 -66.6115,54.9747 -66.6277,54.9837 -66.6441,54.9886 -66.6656,55.001 -66.6762,55.0098 -66.6812,55.0231 -66.6767,55.0276 -66.661,55.0246 -66.6408,55.0186 -66.6727,55.0421 -66.6935,55.0574 -66.7081,55.078 -66.7141,55.0953 -66.7111,55.1037 -66.6922,55.1036 -66.6892,55.1071 -66.6909,55.1174 -66.6884,55.134 -66.696,55.1512 -66.6989,55.1694 -66.6872,55.1686 -66.6521,55.1549 -66.6269,55.1429 -66.6179,55.1414 -66.6166,55.1458 -66.6191,55.1564 -66.6512,55.1866 -66.6721,55.1994 -66.6896,55.2081 -66.6975,55.2169 -66.7267,55.2311 -66.734,55.2367 -66.762,55.2604 -66.7674,55.2738 -66.7652,55.2774 -66.754,55.2727 -66.7389,55.2687 -66.7359,55.273 -66.7456,55.3025 -66.7433,55.3106 -66.7327,55.3093 -66.7155,55.3 -66.6905,55.2823 -66.66,55.2678 -66.6456,55.2585 -66.6369,55.2393 -66.6183,55.2313 -66.6023,55.2212 -66.5966,55.226 -66.5911,55.2289 -66.5761,55.2305 -66.568,55.2301 -66.5434,55.2247 -66.5145,55.2067 -66.5017,55.1888 -66.4684,55.1663 -66.455,55.1544 -66.4424,55.125 -66.4228,55.1024 -66.4147,55.112 -66.4083,55.1119 -66.397,55.106 -66.3638,55.0775 -66.3407,55.0649 -66.3155,55.0497 -66.2691,55.0144 -66.2426,54.9876 -66.2151,54.9661 -66.202,54.95 -66.1761,54.9238 -66.1704,54.9227 -66.1593,54.9313 -66.1502,54.9319 -66.115,54.9227 -66.0803,54.9223 -66.069,54.9187 -66.0483,54.9078 -66.0183,54.887 -65.9844,54.8674 -65.9771,54.8693 -65.9797,54.8816 -65.9705,54.8866 -65.964,54.8857 -65.9542,54.8869 -65.9234,54.8769 -65.9052,54.875 -65.9054,54.8761 -65.8904,54.8801 -65.8742,54.8808 -65.8401,54.881 -65.8193,54.8802 -65.7833,54.8706 -65.7791,54.8655 -65.7831,54.8548 -65.7823,54.8491 -65.7515,54.8103 -65.7546,54.8042 -65.7647,54.7994 -65.7707,54.7941 -65.7693,54.79 -65.7356,54.7753 -65.6952,54.7529 -65.6797,54.7408 -65.6627,54.7207 -65.6419,54.6754 -65.635,54.6657 -65.6308,54.6636 -65.6224,54.6628 -65.6004,54.664 -65.5916,54.6688 -65.58,54.6803 -65.5681,54.6975 -65.5595,54.6981 -65.543,54.6931 -65.5156,54.6895 -65.505,54.6873 -65.4825,54.6848 -65.4547,54.684 -65.4331,54.6849 -65.3968,54.6858 -65.3815,54.6892 -65.3642,54.6966 -65.3559,54.7026 -65.3546,54.7082 -65.3572,54.7252 -65.3614,54.7331 -65.3703,54.7434 -65.3885,54.7591 -65.3921,54.7652 -65.4018,54.7757 -65.401,54.7815 -65.3931,54.7914 -65.3803,54.7961 -65.3657,54.7969 -65.3553,54.7928 -65.3393,54.7798 -65.3203,54.7739 -65.2802,54.7701 -65.2735,54.7764 -65.2731,54.7828 -65.2674,54.7945 -65.2626,54.7972 -65.256,54.7952 -65.2384,54.7815 -65.2116,54.7664 -65.215,54.7781 -65.2103,54.7877 -65.1893,54.7975 -65.1807,54.7983 -65.1668,54.8014 -65.1461,54.8009 -65.1301,54.8031 -65.1192,54.8109 -65.1218,54.8222 -65.1204,54.8365 -65.1094,54.844 -65.1039,54.8607 -65.0955,54.8699 -65.0796,54.8795 -65.0585,54.8824 -65.0469,54.8877 -65.0458,54.8923 -65.0381,54.9075 -65.0286,54.9143 -65.0249,54.9162 -65.0052,54.9179 -64.9995,54.9136 -64.9986,54.9026 -64.9915,54.9032 -64.977,54.9081 -64.9694,54.9075 -64.9581,54.8994 -64.9467,54.8871 -64.9331,54.8803 -64.93,54.88 -64.9171,54.8786 -64.9003,54.885 -64.8869,54.8858 -64.8628,54.8769 -64.8078,54.8472 -64.7904,54.8344 -64.7846,54.8216 -64.7816,54.7991 -64.7751,54.7911 -64.7654,54.7898 -64.7579,54.7936 -64.7505,54.7941 -64.7208,54.7808 -64.7032,54.7828 -64.691,54.7764 -64.6829,54.7673 -64.6807,54.7585 -64.6832,54.7458 -64.707,54.7148 -64.716,54.6966 -64.7149,54.6873 -64.7104,54.6851 -64.6946,54.6823 -64.6711,54.6837 -64.6657,54.6857 -64.6538,54.685 -64.6344,54.6777 -64.6262,54.6782 -64.6215,54.6754 -64.6136,54.6755 -64.5972,54.6839 -64.5881,54.6842 -64.5437,54.6755 -64.513,54.6732 -64.4935,54.6716 -64.4783,54.6735 -64.4643,54.6795 -64.4756,54.6963 -64.4759,54.7031 -64.47,54.7102 -64.4564,54.7086 -64.4226,54.6998 -64.4066,54.6976 -64.4007,54.7014 -64.4059,54.7095 -64.4117,54.72 -64.4074,54.735 -64.3971,54.7386 -64.3744,54.7373 -64.3612,54.7394 -64.328,54.7367 -64.3222,54.7367 -64.3036,54.7336 -64.2959,54.7323 -64.2633,54.7227 -64.2517,54.7135 -64.2314,54.7082 -64.2358,54.7012 -64.2352,54.6914 -64.2241,54.687 -64.213,54.6796 -64.2018,54.6777 -64.1777,54.6782 -64.1669,54.6763 -64.1541,54.6706 -64.1407,54.6708 -64.1354,54.6732 -64.1219,54.6767 -64.1179,54.6686 -64.1182,54.6548 -64.1101,54.6414 -64.1015,54.638 -64.094,54.6337 -64.0403,54.6057 -64.0456,54.5832 -64.0433,54.5757 -64.033,54.5708 -64.0099,54.5642 -63.9923,54.5613 -63.9661,54.5546 -63.9415,54.5531 -63.9377,54.5548 -63.9288,54.5565 -63.9076,54.5615 -63.8863,54.5645 -63.8467,54.5581 -63.8349,54.5585 -63.7971,54.5761 -63.783,54.5768 -63.7708,54.5815 -63.7424,54.5981 -63.7339,54.6002 -63.7148,54.5978 -63.6801,54.5801 -63.6673,54.5782 -63.6575,54.5782 -63.6519,54.5816 -63.6497,54.5842 -63.6573,54.5988 -63.6696,54.6133 -63.6843,54.6188 -63.6912,54.6252 -63.6922,54.6323 -63.6946,54.637 -63.7075,54.6531 -63.74,54.6813 -63.7608,54.6928 -63.7747,54.7022 -63.7987,54.7102 -63.8223,54.7175 -63.8223,54.7166 -63.8417,54.7258 -63.8438,54.7278 -63.8316,54.7405 -63.836,54.7499 -63.8351,54.7568 -63.8203,54.7557 -63.8101,54.756 -63.8023,54.7578 -63.765,54.769 -63.7532,54.7751 -63.7499,54.7822 -63.7558,54.7944 -63.7709,54.8077 -63.782,54.8215 -63.7738,54.8311 -63.7675,54.8489 -63.7537,54.8715 -63.7385,54.8836 -63.7386,54.8883 -63.7519,54.8955 -63.7499,54.8992 -63.7439,54.9039 -63.715,54.9048 -63.6899,54.8994 -63.6759,54.8936 -63.6626,54.8862 -63.6362,54.8703 -63.6056,54.8614 -63.5767,54.8618 -63.5641,54.8582 -63.5529,54.857 -63.5429,54.8604 -63.5358,54.8659 -63.5196,54.8755 -63.5199,54.8796 -63.5334,54.8972 -63.543,54.9216 -63.5409,54.9292 -63.52,54.931 -63.5081,54.9365 -63.5007,54.9431 -63.5093,54.95 -63.511,54.9513 -63.5195,54.9629 -63.5166,54.9708 -63.5008,54.9808 -63.4982,54.988 -63.5006,54.9932 -63.5155,55.0046 -63.5322,55.0128 -63.5372,55.0255 -63.5375,55.0383 -63.5315,55.0469 -63.5217,55.0529 -63.5158,55.0631 -63.5186,55.0682 -63.5208,55.0757 -63.5042,55.086 -63.495,55.0958 -63.4899,55.125 -63.4853,55.1262 -63.4745,55.1217 -63.4669,55.1217 -63.4635,55.1234 -63.4757,55.1308 -63.4803,55.1387 -63.4773,55.1406 -63.4529,55.15 -63.434,55.1532 -63.4193,55.1541 -63.4052,55.1565 -63.3676,55.1662 -63.3493,55.1858 -63.3359,55.2029 -63.3343,55.2127 -63.3397,55.2153 -63.3536,55.2145 -63.3934,55.2027 -63.4244,55.19 -63.4378,55.188 -63.4752,55.1868 -63.5006,55.1891 -63.5162,55.1934 -63.5298,55.2031 -63.5423,55.2087 -63.5448,55.2056 -63.5467,55.1903 -63.5529,55.1885 -63.5567,55.1905 -63.5699,55.209 -63.5806,55.2129 -63.5806,55.2119 -63.596,55.219 -63.5978,55.2222 -63.5876,55.2325 -63.5688,55.242 -63.5547,55.2458 -63.5044,55.2561 -63.4773,55.2632 -63.4651,55.2704 -63.4674,55.2735 -63.4834,55.2735 -63.4996,55.2758 -63.5124,55.2803 -63.5148,55.2848 -63.5082,55.2918 -63.4875,55.2974 -63.4318,55.3026 -63.4119,55.2997 -63.3927,55.2997 -63.3503,55.3054 -63.3275,55.3113 -63.2642,55.331 -63.252,55.3399 -63.2524,55.3447 -63.2564,55.3496 -63.2693,55.36 -63.2768,55.3637 -63.2944,55.363 -63.3189,55.3585 -63.355,55.3578 -63.3862,55.3666 -63.3922,55.3705 -63.4062,55.3756 -63.4441,55.3776 -63.4699,55.3778 -63.4928,55.3742 -63.5101,55.3739 -63.5409,55.3776 -63.5741,55.3763 -63.5867,55.3775 -63.6286,55.3793 -63.6504,55.3855 -63.6872,55.4061 -63.7071,55.4119 -63.716,55.4178 -63.7195,55.4246 -63.7182,55.4285 -63.703,55.4335 -63.686,55.4406 -63.6636,55.4511 -63.6276,55.4667 -63.6075,55.4899 -63.6003,55.504 -63.5992,55.515 -63.6047,55.5313 -63.6092,55.5542 -63.6102,55.5749 -63.5945,55.5841 -63.5914,55.5905 -63.6021,55.6014 -63.6132,55.6041 -63.6374,55.6038 -63.655,55.6015 -63.6589,55.6053 -63.6473,55.6287 -63.6517,55.6368 -63.67,55.6428 -63.6728,55.6469 -63.6483,55.6483 -63.6466,55.6606 -63.6412,55.677 -63.6259,55.7002 -63.6117,55.7098 -63.6027,55.7175 -63.6012,55.7279 -63.6087,55.7347 -63.6239,55.7373 -63.6406,55.7382 -63.6667,55.7358 -63.6891,55.7411 -63.6922,55.7438 -63.7047,55.7571 -63.6973,55.7692 -63.6931,55.7848 -63.6953,55.7952 -63.7006,55.8051 -63.7121,55.8105 -63.729,55.8134 -63.7445,55.8146 -63.7699,55.8127 -63.7745,55.8139 -63.7743,55.8164 -63.7617,55.8246 -63.7577,55.8299 -63.7579,55.8363 -63.774,55.8559 -63.7785,55.8613 -63.7758,55.8668 -63.7719,55.869 -63.7442,55.8762 -63.7133,55.8809 -63.6721,55.8885 -63.6507,55.8948 -63.6269,55.906 -63.5851,55.9204 -63.5689,55.9252 -63.4862,55.9477 -63.4747,55.95 -63.43,55.95 -63.4008,55.9443 -63.3715,55.9494 -63.3612,55.9476 -63.3494,55.95 -63.3917,55.9676 -63.3913,55.9773 -63.4009,55.9829 -63.4501,55.9836 -63.5021,55.9746 -63.536,55.975 -63.5661,55.9754 -63.5979,55.9786 -63.6148,55.9884 -63.6312,56.0092 -63.6728,56.0166 -63.7001,56.0114 -63.7214,56.0052 -63.7275,56.0034 -63.7448,56.0009 -63.7571,56.001 -63.7668,56.0039 -63.7464,56.0243 -63.746,56.0367 -63.7483,56.0422 -63.7875,56.0495 -63.8047,56.0511 -63.8069,56.058 -63.7944,56.0634 -63.7849,56.0698 -63.7843,56.0702 -63.7791,56.077 -63.7912,56.084 -63.806,56.0855 -63.8283,56.083 -63.8558,56.0695 -63.8838,56.0436 -63.9113,56.0301 -63.9361,56.0248 -63.9372,56.0248 -63.9583,56.0236 -63.9677,56.0375 -63.9521,56.0663 -63.9607,56.1104 -63.9331,56.1267 -63.9303,56.1276 -63.9131,56.1334 -63.8783,56.1414 -63.841,56.1465 -63.8237,56.1463 -63.8136,56.1531 -63.8132,56.1655 -63.8227,56.178 -63.8397,56.1878 -63.8587,56.1966 -63.8641,56.1991 -63.9009,56.2091 -63.9353,56.2163 -63.9723,56.2207 -63.9873,56.2181 -64.0148,56.2087 -64.0295,56.213 -64.0366,56.224 -64.0383,56.2335 -64.0388,56.2365 -64.0485,56.2448 -64.0829,56.2547 -64.0901,56.263 -64.085,56.2713 -64.0476,56.2765 -64.0467,56.3095 -64.0589,56.3179 -64.0612,56.3248 -64.0606,56.3254 -64.0485,56.3371 -64.0508,56.3454 -64.0972,56.3747 -64.1145,56.3803 -64.1143,56.3858 -64.1093,56.3872 -64.072,56.3896 -64.0318,56.3806 -64.0275,56.3796 -63.9803,56.3751 -63.9432,56.3693 -63.9233,56.3691 -63.8958,56.3757 -63.8931,56.3826 -63.883,56.3852 -63.8555,56.3905 -63.8281,56.393 -63.826,56.3952 -63.8203,56.4012 -63.8199,56.4149 -63.8321,56.422 -63.8814,56.4376 -63.8936,56.4474 -63.8831,56.4624 -63.8801,56.4789 -63.8822,56.4927 -63.8843,56.4979 -63.8891,56.5093 -63.9259,56.5303 -63.9851,56.5584 -63.9924,56.5654 -63.9921,56.575 -63.9819,56.5832 -63.9791,56.5914 -63.9817,56.5967 -63.9838,56.6011 -63.9937,56.6053 -64.0162,56.6083 -64.0335,56.6139 -64.0558,56.6251 -64.0704,56.6404 -64.07,56.6542 -64.0544,56.6761 -64.0359,56.6921 -64.0339,56.6939 -64.0182,56.7158 -64.0053,56.7281 -63.9602,56.7236 -63.9424,56.7317 -63.9294,56.7467 -63.9291,56.7564 -63.9338,56.7674 -63.9399,56.777 -63.9472,56.7884 -63.9477,56.8075 -63.9146,56.821 -63.8944,56.8208 -63.8463,56.8286 -63.8136,56.8297 -63.8058,56.8365 -63.8077,56.8435 -63.808,56.8448 -63.8228,56.8546 -63.8477,56.8659 -63.8522,56.8824 -63.8481,56.9293 -63.8327,56.9374 -63.8049,56.9385 -63.7998,56.9403 -63.7972,56.9412 -63.7945,56.9467 -63.8141,56.9648 -63.8237,56.9787 -63.818,56.9993 -63.8194,57.0324 -63.7889,57.0348 -63.7687,57.0379 -63.7635,57.0387 -63.7427,57.0523 -63.727,57.0659 -63.7164,57.0782 -63.7135,57.0906 -63.7156,57.1016 -63.7304,57.1128 -63.7244,57.1389 -63.7091,57.1469 -63.7089,57.147 -63.6906,57.1606 -63.6792,57.1922 -63.684,57.1992 -63.6915,57.2034 -63.7092,57.2077 -63.7166,57.2133 -63.7235,57.2327 -63.7412,57.2356 -63.7541,57.2316 -63.7599,57.2245 -63.7674,57.2152 -63.7742,57.1684 -63.7796,57.1574 -63.7902,57.1465 -63.7976,57.1507 -63.8023,57.1632 -63.8076,57.1892 -63.8154,57.2267 -63.7889,57.2554 -63.7879,57.2844 -63.7522,57.2854 -63.7389,57.287 -63.7317,57.2879 -63.7211,57.3002 -63.708,57.307 -63.6593,57.3133 -63.6511,57.3284 -63.6478,57.3463 -63.6465,57.3808 -63.6484,57.3835 -63.6514,57.3877 -63.6641,57.3879 -63.6821,57.3853 -63.6898,57.3868 -63.6996,57.3965 -63.6959,57.4282 -63.7055,57.4435 -63.7051,57.4559 -63.6875,57.4825 -63.6861,57.4846 -63.6973,57.5261 -63.6918,57.5371 -63.6577,57.556 -63.642,57.5627 -63.6239,57.5653 -63.5926,57.5773 -63.5909,57.5793 -63.5818,57.5896 -63.5685,57.5991 -63.5503,57.6044 -63.5345,57.6125 -63.5258,57.6359 -63.5192,57.6703 -63.5212,57.6827 -63.5281,57.6904 -63.5311,57.6939 -63.544,57.6926 -63.5573,57.6845 -63.5728,57.6819 -63.6012,57.6823 -63.604,57.6768 -63.594,57.6684 -63.5894,57.6545 -63.5978,57.6381 -63.6137,57.6286 -63.6191,57.6204 -63.6347,57.6178 -63.6499,57.6235 -63.6622,57.6374 -63.6717,57.6596 -63.6865,57.6777 -63.7017,57.6847 -63.7172,57.6835 -63.7365,57.6506 -63.7418,57.6466 -63.7457,57.6471 -63.752,57.648 -63.7566,57.6633 -63.7692,57.6717 -63.7768,57.6745 -63.8079,57.6693 -63.8234,57.6708 -63.8409,57.6861 -63.8445,57.7331 -63.8446,57.7332 -63.8494,57.74 -63.8621,57.747 -63.9392,57.7615 -63.9572,57.7617 -63.9626,57.7548 -63.966,57.7273 -63.9764,57.7246 -63.9919,57.7247 -64.001,57.7277 -64.0047,57.729 -64.0121,57.7414 -64.0623,57.7956 -64.0796,57.8247 -64.0833,57.8438 -64.0841,57.8482 -64.1144,57.8815 -64.1398,57.901 -64.1389,57.9368 -64.1491,57.9438 -64.1696,57.9536 -64.17,57.9546 -64.1745,57.9674 -64.1636,57.9867 -64.1661,57.9936 -64.2152,58.0049 -64.231,57.9995 -64.2413,58.0023 -64.2567,58.0107 -64.28,58.0177 -64.3081,58.0191 -64.3112,58.0193 -64.3425,58.0181 -64.3606,58.021 -64.3735,58.0307 -64.3679,58.0486 -64.3642,58.1158 -64.364,58.1189 -64.3348,58.1436 -64.3163,58.1517 -64.3006,58.1558 -64.2612,58.1625 -64.2167,58.1649 -64.1712,58.1747 -64.1668,58.1756 -64.1508,58.1893 -64.1319,58.2113 -64.1195,58.2857 -64.1143,58.2934 -64.1085,58.3021 -64.0899,58.3117 -64.0609,58.317 -64.0162,58.3194 -63.9794,58.3191 -63.9714,58.3245 -63.9681,58.3466 -63.9614,58.3607 -63.9597,58.3644 -63.9382,58.378 -63.9115,58.3888 -63.8695,58.3871 -63.8563,58.3897 -63.8486,58.3841 -63.8302,58.3812 -63.8011,58.3865 -63.7851,58.3918 -63.7745,58.4045 -63.7576,58.4247 -63.7906,58.4608 -63.7949,58.4885 -63.8204,58.5136 -63.8289,58.5193 -63.8307,58.5205 -63.8517,58.5235 -63.8651,58.5181 -63.9086,58.4785 -63.9327,58.469 -63.9564,58.4692 -63.9748,58.4721 -63.9931,58.4778 -63.9965,58.4865 -63.998,58.4903 -64.0445,58.5251 -64.0413,58.543 -64.0484,58.5734 -64.0207,58.6004 -64.0048,58.6159 -63.9805,58.6322 -63.9723,58.6404 -63.9509,58.6458 -63.9061,58.6371 -63.8876,58.6356 -63.8743,58.6396 -63.8434,58.6562 -63.8364,58.6599 -63.8047,58.6583 -63.7224,58.6602 -63.6666,58.6638 -63.6398,58.669 -63.6108,58.6659 -63.6082,58.666 -63.5444,58.6679 -63.4933,58.6839 -63.4264,58.6955 -63.402,58.7062 -63.399,58.7141 -63.3989,58.7145 -63.409,58.727 -63.4274,58.73 -63.4505,58.7482 -63.4656,58.7677 -63.489,58.7826 -63.5201,58.7987 -63.5384,58.8058 -63.5783,58.8077 -63.5968,58.8106 -63.6125,58.8177 -63.6173,58.8302 -63.6278,58.8344 -63.6412,58.8318 -63.6598,58.8334 -63.6786,58.8295 -63.6826,58.8297 -63.7026,58.8311 -63.7161,58.8257 -63.7298,58.8162 -63.741,58.8011 -63.7519,58.7943 -63.7761,58.789 -63.7923,58.7823 -63.8107,58.7866 -63.864,58.7871 -63.8771,58.7855 -63.8853,58.7845 -63.9068,58.7792 -63.9362,58.7767 -63.9551,58.7658 -63.9766,58.7605 -63.9848,58.7537 -63.9771,58.7426 -64.0207,58.7084 -64.0296,58.7052 -64.0394,58.7017 -64.0688,58.695 -64.1003,58.709 -64.1077,58.7298 -64.1503,58.7287 -64.1713,58.7371 -64.1681,58.7605 -64.1682,58.7612 -64.1753,58.7909 -64.1804,58.8006 -64.2064,58.827 -64.2433,58.8451 -64.2619,58.8466 -64.2913,58.8413 -64.2984,58.8413 -64.3126,58.8414 -64.3472,58.8457 -64.3631,58.8513 -64.3817,58.8542 -64.4084,58.8557 -64.4593,58.8394 -64.486,58.8381 -64.4992,58.8437 -64.5071,58.852 -64.5128,58.8526 -64.5603,58.8577 -64.5735,58.8674 -64.6106,58.8868 -64.6346,58.8952 -64.6586,58.898 -64.6773,58.8953 -64.6987,58.8898 -64.7068,58.8802 -64.7077,58.8796 -64.7229,58.8692 -64.7443,58.8637 -64.7789,58.8721 -64.8402,58.8915 -64.8374,58.8998 -64.8187,58.9053 -64.7736,58.9007 -64.7627,58.8996 -64.7546,58.9038 -64.7839,58.9259 -64.7997,58.9507 -64.7997,58.959 -64.7835,58.9714 -64.7726,58.9948 -64.7565,59.0045 -64.7547,59.0049 -64.6571,59.0291 -64.6331,59.0262 -64.6198,59.0152 -64.6121,58.9889 -64.5987,58.9861 -64.5826,58.9902 -64.5809,58.99 -64.5532,58.986 -64.5079,58.9706 -64.4303,58.9703 -64.4224,58.9647 -64.4094,58.9454 -64.4069,58.9371 -64.3933,58.937 -64.3882,58.937 -64.3156,58.9559 -64.2887,58.9613 -64.2487,58.9583 -64.2272,58.9623 -64.2109,58.9719 -64.2053,58.9829 -64.218,58.9896 -64.2211,58.9912 -64.245,58.9997 -64.2769,59.0136 -64.2982,59.0193 -64.3192,59.0373 -64.3326,59.0402 -64.3567,59.0403 -64.3968,59.046 -64.4143,59.0541 -64.4208,59.0572 -64.4199,59.1041 -64.4087,59.133 -64.4113,59.1357 -64.4462,59.1414 -64.4515,59.1442 -64.4539,59.1608 -64.4539,59.1631 -64.4535,59.1842 -64.437,59.2035 -64.4314,59.2172 -64.4501,59.2228 -64.4687,59.2408 -64.4739,59.2519 -64.4711,59.2615 -64.4504,59.2745 -64.4493,59.2752 -64.433,59.2807 -64.4274,59.2876 -64.4273,59.2972 -64.446,59.3042 -64.4675,59.3153 -64.4755,59.3223 -64.4753,59.3305 -64.4616,59.3429 -64.4128,59.3496 -64.4099,59.3592 -64.4155,59.3621 -64.4206,59.3648 -64.4395,59.369 -64.4475,59.3746 -64.442,59.3814 -64.3684,59.4073 -64.3599,59.4224 -64.3382,59.4251 -64.3109,59.4332 -64.3008,59.4397 -64.2834,59.451 -64.2832,59.4607 -64.2912,59.4648 -64.3155,59.4705 -64.3587,59.4845 -64.3777,59.486 -64.397,59.4695 -64.4106,59.4696 -64.4324,59.4669 -64.437,59.4583 -64.4436,59.4463 -64.4789,59.4451 -64.4952,59.441 -64.5063,59.4286 -64.52,59.4204 -64.5715,59.4178 -64.5851,59.4137 -64.588,59.4013 -64.6044,59.3917 -64.6076,59.3908 -64.6234,59.3863 -64.6396,59.3904 -64.6988,59.4292 -64.7041,59.4472 -64.7419,59.4721 -64.7554,59.4762 -64.7558,59.4764 -64.7798,59.4873 -64.7988,59.4901 -64.8231,59.5095 -64.8638,59.515 -64.8637,59.5413 -64.8447,59.5454 -64.8105,59.54 -64.8093,59.5398 -64.7739,59.5397 -64.7439,59.5562 -64.7434,59.6114 -64.7272,59.6396 -64.7268,59.6403 -64.6939,59.6499 -64.6775,59.6582 -64.6719,59.6692 -64.6909,59.6761 -64.7346,59.6776 -64.7373,59.69 -64.7343,59.7149 -64.746,59.7244 -64.7479,59.7259 -64.7312,59.7618 -64.7503,59.7701 -64.7557,59.7797 -64.7392,59.7866 -64.7227,59.7907 -64.7034,59.8003 -64.6732,59.8016 -64.6732,59.8044 -64.6841,59.8113 -64.6875,59.8146 -64.7031,59.8293 -64.6975,59.8362 -64.6509,59.8347 -64.629,59.8263 -64.6071,59.8235 -64.6015,59.8304 -64.5985,59.8511 -64.5901,59.8754 -64.5899,59.8759 -64.5953,59.8883 -64.5924,59.8966 -64.5978,59.9035 -64.6143,59.9063 -64.6473,59.9078 -64.6693,59.9065 -64.6761,59.9129 -64.6918,59.9089 -64.6942,59.9265 -64.7076,59.9314 -64.761,59.9239 -64.7655,59.9232 -64.7848,59.9233 -64.7985,59.9316 -64.7983,59.9495 -64.7983,59.95 -64.8367,59.9868 -64.8532,59.9992 -64.8614,60.0103 -64.8558,60.0158 -64.8338,60.0158 -64.8007,60.0047 -64.7456,59.9922 -64.7151,60.01 -64.6903,60.01 -64.6489,60.0126 -64.6433,60.0195 -64.6459,60.0278 -64.6471,60.0295 -64.6513,60.0361 -64.6651,60.0403 -64.6761,60.0486 -64.6732,60.0568 -64.6621,60.0596 -64.6234,60.0594 -64.5902,60.0635 -64.5349,60.0661 -64.5347,60.0771 -64.5399,60.0878 -64.5482,60.1047 -64.5508,60.1158 -64.559,60.1213 -64.5867,60.1173 -64.6033,60.1228 -64.6142,60.1325 -64.6419,60.1312 -64.6559,60.123 -64.6697,60.1244 -64.6976,60.1427 -64.7055,60.1479 -64.7331,60.1577 -64.7718,60.166 -64.7986,60.1223 -64.9074,60.0048 -64.9874,59.9706 -65.0032,59.9391 -65.0206,59.8781 -65.1011,59.8139 -65.081,59.7664 -65.0387,59.7458 -65.0102,59.7252 -64.9331,59.7064 -64.8677,59.6925 -64.9107,59.6895 -64.9307,59.6918 -65.0136,59.705 -65.0332,59.7093 -65.0783,59.7319 -65.1052,59.7452 -65.2058,59.7746 -65.2521,59.7561 -65.3104,59.7261 -65.379,59.6756 -65.4049,59.6451 -65.3751,59.5614 -65.3403,59.5064 -65.2935,59.4418 -65.2666,59.436 -65.2076,59.4382 -65.1775,59.4368 -65.099,59.4168 -65.0425,59.396 -65.0273,59.3703 -64.9934,59.3511 -64.9544,59.3367 -64.9098,59.3217 -64.868,59.3032 -64.8905,59.3012 -64.9293,59.3104 -65.0055,59.3374 -65.0519,59.3661 -65.0749,59.3776 -65.1385,59.3952 -65.2315,59.41 -65.4268,59.4166 -65.3727,59.3624 -65.3155,59.3226 -65.2421,59.2075 -65.3311,59.246 -65.3514,59.2619 -65.3689,59.2776 -65.4468,59.3054 -65.4917,59.1727 -65.4655,59.1315 -65.5238,59.1736 -65.5584,59.1919 -65.5844,59.1971 -65.6186,59.1932 -65.62,59.1516 -65.5945,59.0798 -65.5302,59.0085 -65.4617,59.0007 -65.434,59.0003 -65.4134,59.0056 -65.2282,58.9953 -65.2064,58.9758 -65.3333,58.9714 -65.3711,58.9906 -65.3952,58.9952 -65.4491,58.9731 -65.4261,58.9464 -65.3914,58.9391 -65.3764,58.9177 -65.4434,58.9231 -65.4924,58.9487 -65.5118,58.9614 -65.5385,58.9733 -65.5733,58.9729 -65.6553,58.9593 -65.7635,58.9314 -65.8664,58.8332 -65.839,58.8178 -65.7494,58.7934 -65.7116,58.7944 -65.6742,58.7905 -65.7211,58.7564 -65.8304,58.7664 -65.8655,58.7816 -65.9153,58.7813 -65.9598,58.7395 -65.9805,58.7021 -65.9103,58.6405 -65.8241,58.595 -65.7588,58.5573 -65.7601,58.5105 -65.8573,58.4077 -65.8114,58.3871 -65.8474,58.3221 -65.8998,58.3104 -65.9269,58.288 -65.9381,58.2507 -65.9484,58.2543 -65.9698,58.2883 -65.9005,58.417 -65.819,58.5186 -65.8175,58.5411 -65.9463,58.5801 -65.9886,58.6223 -66.2286,58.7664 -66.2659,58.7801 -66.3446,58.7478 -66.4293,58.6411 -66.529,58.4727 -66.5073,58.4336 -66.6784,58.4038 -66.7567,58.4069 -66.8149,58.4312 -66.8561,58.3984 -66.868,58.3788 -66.9701,58.2799 -66.9888,58.2896 -67.0218,58.3053 -67.0474,58.3076 -67.2095,58.2467 -67.3507,58.2074 -67.4428,58.1542 -67.4617,58.1387 -67.5217,58.065 -67.5331,58.0473 -67.5861,57.9099 -67.591,57.8541 -67.6054,57.9075 -67.5297,58.1433 -67.5244,58.1844 -67.5741,58.2156 -67.6124,58.2492 -67.5754,58.3258 -67.5474,58.3536 -67.5995,58.3891 -67.6529,58.3986 -67.6914,58.338 -67.7039,58.2617 -67.6844,58.2332 -67.7527,58.1736 -67.8544,58.0943 -67.8677,58.0769 -67.8826,58.0625 -67.9941,58.0067 -67.9741,58.0664 -67.9414,58.0899 -67.9231,58.101 -67.8508,58.1516 -67.8167,58.1692 -67.7916,58.1854 -67.7712,58.2148 -67.7374,58.2559 -67.7786,58.2849 -67.799,58.3383 -67.7911,58.3791 -67.7733,58.4024 -67.7688,58.4231 -67.834,58.4882 -67.8514,58.4995 -67.8832,58.5051 -68.0119,58.4526 -68.0496,58.4152 -68.0503,58.3927 -68.0434,58.3713 -68.0423,58.35 -68.0608,58.2909 -68.1059,58.1992 -68.1651,58.1454 -68.1801,58.1129 -68.1778,58.0699 -68.1829,58.0418 -68.2859,57.968 -68.371,57.9441 -68.4205,57.9314 -68.5036,57.92 -68.5525,57.9206 -68.7789,57.8806 -68.84,57.8649 -68.9864,57.8168 -69.0471,57.7828 -69.0653,57.7717 -69.0847,57.7607 -69.1762,57.7194 -69.2142,57.7047 -69.238,57.6991 -69.1368,57.7648 -69.0957,57.7901 -69.077,57.7998 -69.0556,57.809 -69.0055,57.8291 -68.7489,57.9001 -68.6047,57.9306 -68.4038,57.9603 -68.3788,57.9623 -68.3474,57.9737 -68.2218,58.0569 -68.2217,58.087 -68.1978,58.1575 -68.1844,58.184 -68.1631,58.2226 -68.1258,58.2609 -68.1017,58.3066 -68.079,58.3726 -68.0844,58.3928 -68.0912,58.4208 -68.1651,58.471 -68.1972,58.5154 -68.2199,58.5567 -68.2405,58.6175 -68.2324,58.6999 -68.267,58.7437 -68.4748,58.8152 -68.5199,58.8279 -68.6296,58.842 -68.7143,58.8205 -68.8647,58.8135 -68.9038,58.8229 -68.9706,58.8285 -69.0021,58.8312 -69.026,58.8296 -69.1509,58.8177 -69.2207,58.8013 -69.2602,58.7887 -69.2834,58.7663 -69.3171,58.7378 -69.375,58.7063 -69.4164,58.7032 -69.448,58.6973 -69.4795,58.6845 -69.4966,58.6735 -69.5958,58.5988 -69.6681,58.5314 -69.6873,58.519 -69.7343,58.5462 -69.7815,58.6177 -69.8021,58.663 -69.8457,58.6851 -69.9203,58.6734 -70.0267,58.699 -69.8434,58.7383 -69.687,58.7534 -69.7034,58.881 -69.7362,58.9072 -69.7444,58.9626 -69.7344,58.9801 -69.5803,58.902 -69.5411,58.8577 -69.5403,58.8288 -69.5823,58.7916 -69.5522,58.7298 -69.535,58.7197 -69.4825,58.7221 -69.4592,58.7264 -69.4239,58.7356 -69.3296,58.8111 -69.3265,58.8322 -69.3465,58.9013 -69.3644,58.967 -69.3374,58.9736 -69.3032,58.9546 -69.2239,59.01 -69.2207,59.0303 -69.2469,59.0469 -69.3322,59.0576 -69.3607,59.0447 -69.3793,59.0329 -69.4003,59.0405 -69.4081,59.0997 -69.3828,59.122 -69.3408,59.143 -69.3147,59.1525 -69.2913,59.1492 -69.2863,59.1245 -69.2411,59.1192 -69.1567,59.1372 -69.1092,59.161 -69.1095,59.1885 -69.1256,59.2542 -69.2829,59.284 -69.3112,59.2839 -69.4207,59.2586 -69.5,59.2293 -69.616,59.2402 -69.6103,59.2732 -69.5476,59.2858 -69.5134,59.289 -69.5017,59.3053 -69.5172,59.3527 -69.5373,59.3821 -69.5689,59.4098 -69.5978,59.4082 -69.6281,59.4093 -69.6235,59.4305 -69.5936,59.4612 -69.5677,59.4816 -69.549,59.4921 -69.5286,59.5008 -69.4882,59.5146 -69.4104,59.5993 -69.4794,59.6569 -69.4747,59.7056 -69.4696,59.7611 -69.5916,59.8897 -69.6275,59.8957 -69.8159,59.8868 -69.899,59.8761 -69.9235,59.8732 -69.954,59.8742 -69.9804,59.8775 -70.0324,59.8904 -70.0653,59.902 -70.0927,59.9132 -70.2053,59.9043 -70.343,59.8963 -70.3744,59.8945 -70.4429,59.898 -70.4774,59.9087 -70.4979,59.9135 -70.7666,59.9678 -70.8122,59.9905 -70.6376,59.9558 -70.4534,59.9234 -70.424,59.9206 -70.4015,59.9196 -70.3636,59.9209 -70.2034,59.9322 -70.1638,59.9389 -70.0847,59.9349 -69.7604,59.9274 -69.7056,59.9474 -69.5755,59.9851 -69.4996,59.9938 -69.4724,60.0306 -69.4649,60.1061 -69.5056,60.1064 -69.4791,60.1387 -69.5648,60.2059 -69.6328,60.2376 -69.6227,60.2602 -69.593,60.2864 -69.617,60.3884 -69.646,60.4029 -69.6873,60.4529 -69.6166,60.4663 -69.5643,60.4737 -69.5235,60.5106 -69.5637,60.5903 -69.5776,60.6056 -69.4836,60.6567 -69.4596,60.6654 -69.401,60.6835 -69.3646,60.6909 -69.3064,60.7013 -69.2808,60.7069 -69.2516,60.719 -69.2384,60.734 -69.2359,60.8291 -69.3214,60.9008 -69.3346,60.9187 -69.36,60.9578 -69.3806,60.9919 -69.4214,61.0065 -69.4738,61.0062 -69.5224,60.9811 -69.5455,60.9473 -69.5534,60.8799 -69.5196,60.8441 -69.5122,60.8242 -69.5217,60.8065 -69.5504,60.7974 -69.5777,60.8 -69.6115,60.8149 -69.6137,60.844 -69.6458,60.8373 -69.6966,60.8178 -69.7562,60.7767 -69.7251,60.7738 -69.7551,60.7454 -69.7749,60.7366 -69.7945,60.7341 -69.9545,60.8241 -69.9521,60.8811 -69.9734,60.9903 -70.0144,61.0102 -70.1812,61.0207 -70.2823,61.0119 -70.4029,60.9836 -70.4183,60.9511 -70.5217,60.9765 -70.6382,61.0075 -70.7939,61.0258 -70.8313,61.0395 -70.8756,61.0475 -71.0388,61.0659 -71.149,61.0759 -71.2536,61.0635 -71.3941,61.1391 -71.4619,61.1797 -71.5348,61.2558 -71.5386,61.2976 -71.5553,61.3306 -71.7157,61.3397 -71.7422,61.3517 -71.6724,61.3699 -71.6092,61.3937 -71.6516,61.447 -71.6135,61.463 -71.5159,61.4684 -71.4923,61.4736 -71.4128,61.4886 -71.4356,61.5321 -71.5069,61.5644 -71.6573,61.6072 -71.6813,61.6135 -71.7906,61.6305 -71.8104,61.6185 -71.7978,61.584 -71.8353,61.5302 -71.9188,61.5116 -71.9453,61.5074 -72.1644,61.4936 -72.1238,61.5373 -72.0934,61.5448 -72.0553,61.5408 -72.0212,61.5304 -71.976,61.521 -71.9457,61.5253 -71.8994,61.5497 -71.8715,61.6001 -71.9027,61.6472 -72.0641,61.7862 -72.0959,61.7968 -72.1177,61.8014 -72.1826,61.8083 -72.2062,61.8088 -72.252,61.8131 -72.3088,61.8259 -72.3799,61.8448 -72.4487,61.846 -72.4703,61.8212 -72.4856,61.7918 -72.4546,61.7378 -72.5844,61.77 -72.6083,61.7809 -72.5496,61.8163 -72.5254,61.8528 -72.479,61.8968 -72.4559,61.9733 -72.4814,62.0363 -72.5832,62.0663 -72.7583,62.0626 -72.9287,62.1216 -72.9905,62.1494 -73.0431,62.1736 -73.0657,62.1996 -73.0706,62.2347 -73.2278,62.2873 -73.3602,62.3103 -73.5053,62.3911 -73.5402,62.4035 -73.6948,62.3811 -73.7455,62.3643 -73.7967,62.3357 -73.8304,62.3099 -73.9979,62.2503 -74.2397,62.1826 -74.2753,62.1733 -74.3232,62.1677 -74.3815,62.171 -74.4348,62.1758 -74.5011,62.1775 -74.5337,62.1776 -74.5558,62.1746 -74.5768,62.1702 -74.612,62.1297 -74.5487,62.0833 -74.5179,62.0708 -74.4747,62.0566 -74.4112,62.032 -74.4276,62.027 -74.4538,62.0283 -74.4764,62.0315 -74.5244,62.0432 -74.5523,62.0535 -74.6225,62.0851 -74.7409,62.1581 -74.7737,62.1694 -74.7931,62.174 -74.8626,62.1876 -75.0386,62.2159 -75.1687,62.2346 -75.2103,62.2342 -75.2559,62.2303 -75.3366,62.2209 -75.4034,62.1834 -75.4303,62.167 -75.5106,62.1403 -75.5586,62.1273 -75.615,62.1094 -75.6847,62.0825 -75.7421,62.0854 -75.6733,62.1295 -75.593,62.16 -75.5725,62.1664 -75.563,62.2202 -75.9953,62.303 -76.1697,62.3358 -76.2538,62.3509 -76.3502,62.3648 -76.5069,62.3935 -76.6029,62.4295 -76.7762,62.4499 -76.9237,62.4576 -77.2046,62.4815 -77.3576,62.4852 -77.3846,62.4702 -77.4049,62.4596 -77.5363,62.4003 -77.5605,62.3916 -77.8117,62.3163 -77.8319,62.3119 -77.8601,62.3151 -77.9336,62.2771 -77.9518,62.2611 -78.0017,62.2039 -78.0094,62.0836 -77.9907,61.9473 -77.9642,61.9122 -77.9411,61.8895 -77.9286,61.8702 -77.9237,61.8416 -77.8587,61.6656 -77.8478,61.6463 -77.8291,61.6296 -77.7813,61.6166 -77.7417,61.6111 -77.667,61.6097 -77.5947,61.5653 -77.5544,61.5293 -77.5182,61.5281 -77.4731,61.5311 -77.436,61.5275 -77.3282,61.4664 -77.3683,61.4648 -77.4238,61.4752 -77.447,61.4807 -77.4651,61.4293 -77.3967,61.4089 -77.4133,61.3924 -77.4721,61.3878 -77.5299,61.3862 -77.6119,61.3357 -77.5977,61.2631 -77.5913,61.2239 -77.5759,61.18 -77.5531,61.1431 -77.7095,60.9764 -77.7405,60.9639 -77.7771,60.9448 -77.8062,60.9267 -78.0169,60.7871 -78.0311,60.7143 -77.9729,60.7231 -77.9302,60.7323 -77.8268,60.7489 -77.7475,60.7474 -77.7723,60.7175 -77.7084,60.6909 -77.5604,60.7219 -77.4241,60.7545 -77.3715,60.7589 -77.4624,60.6819 -77.5719,60.6198 -77.6283,60.5977 -77.6814,60.5691 -77.6396,60.5231 -77.5572,60.4885 -77.5285,60.4775 -77.4916,60.4774 -77.4517,60.4903 -77.4264,60.4973 -77.4025,60.4982 -77.3747,60.497 -77.3392,60.4929 -77.3177,60.4887 -77.2832,60.4746 -77.3333,60.4673 -77.4205,60.4566 -77.545,60.3934 -77.5723,60.3739 -77.5919,60.3532 -77.5985,60.3247 -77.5447,60.2971 -77.4994,60.2914 -77.4563,60.2572 -77.3259,60.1424 -77.3508,60.0835 -77.4074,60.0551 -77.4481,60.0394 -77.4462,59.9916 -77.4027,59.978 -77.373,59.9717 -77.1701,59.9584 -77.127,59.9678 -77.0869,59.9814 -77.0499,60.0715 -77.0285,60.0777 -76.9668,60.0743 -76.9196,60.0679 -76.8862,60.0572 -76.8588,60.0492 -76.8119,60.0403 -76.7795,60.0389 -76.7449,60.0398 -76.7146,60.0486 -76.7095,60.0731 -76.6738,60.0858 -76.6142,60.0865 -76.6289,60.0615 -76.7033,60.0266 -76.9251,59.9918 -77.0615,59.9704 -77.2815,59.8428 -77.2281,59.8259 -77.1551,59.726 -77.1881,59.7135 -77.244,59.7169 -77.2673,59.716 -77.2874,59.7122 -77.392,59.68 -77.3569,59.6064 -77.2912,59.5506 -77.1994,59.5053 -77.1714,59.4945 -77.2088,59.4921 -77.2818,59.5 -77.311,59.51 -77.3691,59.548 -77.3841,59.5756 -77.4398,59.5974 -77.5648,59.633 -77.586,59.6361 -77.622,59.6383 -77.6532,59.6047 -77.6174,59.561 -77.5792,59.5222 -77.5759,59.4683 -77.6044,59.4606 -77.6287,59.4574 -77.6532,59.4537 -77.6948,59.4418 -77.7199,59.4287 -77.7643,59.3407 -77.7465,59.3268 -77.686,59.3434 -77.6453,59.3552 -77.5345,59.3282 -77.6817,59.2113 -77.7066,59.2029 -77.7395,59.201 -77.785,59.1944 -77.8102,59.189 -77.9509,59.1361 -77.9416,59.0856 -77.9824,59.0377 -78.0603,58.9798 -78.1629,58.8588 -78.1933,58.8422 -78.2135,58.8427 -78.204,58.8788 -78.251,58.8941 -78.4183,58.8925 -78.3932,58.8165 -78.3673,58.7698 -78.3434,58.7162 -78.3238,58.6283 -78.3702,58.6092 -78.4138,58.6063 -78.4283,58.5588 -78.4121,58.5368 -78.2457,58.4749 -78.2039,58.4669 -78.2792,58.5521 -78.2531,58.5508 -78.2114,58.5315 -77.9871,58.3929 -77.9195,58.3477 -77.8812,58.3154 -77.8045,58.2861 -77.7716,58.2761 -77.7412,58.2705 -77.7093,58.2655 -77.6727,58.2577 -77.5037,58.209 -77.4298,58.1786 -77.3462,58.1433 -77.3193,58.1306 -77.3044,58.1095 -77.303,58.0832 -77.2086,58.0327 -77.1764,58.0226 -77.139,58.0152 -77.1061,58.0046 -77.0068,57.9535 -76.7838,57.7175 -76.7228,57.6505 -76.6697,57.5688 -76.5984,57.4284 -76.55,57.3621 -76.5177,57.3357 -76.4649,57.23 -76.4541,57.2065 -76.4273,57.1393 -76.3946,57.0242 -76.4104,56.9977 -76.4178,56.9763 -76.4181,56.9405 -76.3944,56.8391 -76.3717,56.744 -76.3692,56.724 -76.3698,56.7177 -76.3687,56.7048 -76.3692,56.6666 -76.3714,56.6436 -76.391,56.5387 -76.3912,56.4309 -76.3843,56.398 -76.3825,56.3626 -76.3841,56.3394 -76.3968,56.2522 -76.4038,56.2312 -76.4923,56.0517 -76.5203,56.0 -76.5455,55.9702 -76.5765,55.9466 -76.6107,55.9336 -76.6773,55.905 -76.8791,55.7372 -76.9342,55.6891 -76.953,55.6398 -76.9761,55.6132 -77.0035,55.5884 -77.0864,55.5264 -77.283,55.4208 -77.4883,55.3176 -77.6149,55.2358 -77.7386,55.1785 -77.8387,55.1399 -77.9853,55.0853 -78.048,55.0606 -78.0734,55.047 -78.1222,55.0176 -78.2396,54.9655 -78.4265,54.9134 -78.598,54.8666 -78.7037,54.8502 -78.7774,54.8197 -78.8161,54.7914 -78.8377,54.7798 -78.9661,54.763 -79.1808,54.7159 -79.2027,54.7084 -79.3227,54.688 -79.3587,54.6807 -79.4963,54.6386 -79.6264,54.5877 -79.5456,54.5626 -79.4839,54.56 -79.4308,54.5462 -79.39,54.5263 -79.354,54.3919 -79.3709,54.3622 -79.3428,54.3052 -79.292,54.2188 -79.2124,54.1361 -79.1436,54.1035 -79.1057,54.0957 -79.0672,54.0981 -79.05,54.1107 -78.9181,54.1178 -78.9794,54.0441 -78.9873,54.0156 -78.8363,53.9433 -78.8697,53.9368 -78.9048,53.9441 -78.9383,53.938 -78.9722,53.8407 -78.9256,53.8101 -78.8809,53.7936 -78.8581,53.7918 -78.839,53.7886 -78.7789,53.7588 -78.8099,53.7554 -78.8503,53.7731 -78.8895,53.7766 -78.9169,53.7714 -79.0178,53.6422 -78.9592,53.6291 -78.8731,53.5792 -78.8208,53.5371 -78.7892,53.5003 -78.8334,53.4466 -78.8786,53.4345 -78.9081,53.4569 -78.883,53.4688 -78.9153,53.4698 -78.9543,53.4601 -78.9777,53.4401 -78.9622,53.4103 -78.9279,53.3778 -78.8707,53.3746 -78.8169,53.3303 -78.7668,53.2005 -78.7597,53.1628 -78.7953,53.007 -78.7883,52.9382 -78.7374,52.9019 -78.7514,52.8464 -78.7541,52.8383 -78.7292,52.8163 -78.6677,52.7997 -78.6115,52.8109 -78.599,52.7582 -78.6013,52.7246 -78.6383,52.7163 -78.6705,52.7124 -78.6644,52.676 -78.6269,52.6227 -78.5875,52.5678 -78.5661,52.5351 -78.5954,52.5257 -78.6351,52.5072 -78.5588,52.4902 -78.529,52.486 -78.4653,52.4776 -78.4456,52.4723 -78.4201,52.4538 -78.3822,52.3964 -78.3922,52.307 -78.3998,52.2502 -78.3769,52.1953 -78.4133,52.1203 -78.4553,52.051 -78.572,51.9477 -78.6185,51.9161 -78.6458,51.9059 -78.6865,51.8988 -78.7324,51.8915 -78.7682,51.8754 -78.7375,51.8188 -78.7153,51.8016 -78.7186,51.7769 -78.7565,51.7512 -78.789,51.7364 -78.8295,51.7328 -78.8573,51.7407 -78.8783,51.7389 -78.9094,51.7133 -78.8212,51.6105 -78.7364,51.5744 -78.6715,51.5466 -78.6859,51.5168 -78.7002,51.4882 -78.7003,51.457 -78.6569,51.4155 -78.7101,51.3792 -78.7658,51.3353 -78.7956,51.1695 -78.7232,51.1046 -78.7961,51.1236 -78.8156,51.1386 -78.8329,51.1637 -78.8381,51.1896 -78.8282,51.233 -78.841,51.2938 -78.8862,51.398 -78.8997,51.4154 -79.0095,51.4773 -79.0349,51.4674 -79.0561,51.4607 -79.0794,51.4593 -79.1487,51.4673 -79.1618,51.4999 -79.152,51.5181 -79.1164,51.5678 -79.2031,51.6025 -79.2302,51.5961 -79.2525,51.5825 -79.3503,51.5193 -79.4101,51.4455 -79.4237,51.4004 -79.4626,51.393 -79.5452,51.339 -79.5598,51.2349 -79.5786,51.2049 -79.5975,51.1845 -79.6211,51.1523 -79.6281,51.1231 -79.5792,51.0211 -79.5456,50.9901 -79.4492,50.9437 -79.4154,50.9248 -79.3931,50.8978 -79.3429,50.8543 -79.3184,50.8361 -79.2993,50.8211 -79.2097,50.7057 -79.225,50.6763 -79.2917,50.7861 -79.323,50.8167 -79.3447,50.8307 -79.3963,50.8695 -79.4158,50.8994 -79.4906,50.9491 -79.5627,50.9865 -79.5939,51.0227 -79.6141,51.0603 -79.6711,51.0939 -79.8728,51.1955 -79.8934,51.2037 -80.0014,51.2377 -80.0666,51.2382 -80.0959,51.2422 -80.206,51.2669 -80.2472,51.2772 -80.2808,51.2757 -80.3558,51.248 -80.388,51.2335 -80.4115,51.2207 -80.4409,51.201 -80.4855,51.1549 -80.5673,51.0983 -80.6203,51.0786 -80.6407,51.0744 -80.6694,51.0738 -80.7035,51.0695 -80.7318,51.0602 -80.7509,51.0442 -80.7638,51.0238 -80.8038,50.987 -80.8846,50.9743 -80.8636,50.9985 -80.8328,51.0187 -80.7072,51.0968 -80.575,51.1822 -80.5279,51.219 -80.4439,51.2548 -80.416,51.2638 -80.3783,51.2726 -80.3472,51.2803 -80.3065,51.2967 -80.3134,51.4066 -80.3349,51.4273 -80.3836,51.4584 -80.4494,51.5813 -80.4623,51.6092 -80.4635,51.635 -80.4869,51.6682 -80.5723,51.7346 -80.6832,51.7972 -80.7705,51.8331 -80.7972,51.857 -80.8475,51.9314 -80.864,51.9495 -80.9903,51.9852 -81.0396,51.9839 -81.0584,51.9931 -81.0847,52.0052 -81.1368,52.0222 -81.1724,52.0295 -81.2168,52.0381 -81.237,52.0468 -81.2857,52.0846 -81.3103,52.1247 -81.3436,52.1603 -81.3825,52.1739 -81.4258,52.1767 -81.5896,52.18 -81.6335,52.1768 -81.6661,52.155 -81.7052,52.1365 -81.7493,52.1275 -81.7281,52.1798 -81.6928,52.1937 -81.5337,52.2315 -81.4319,52.2558 -81.4132,52.2782 -81.4235,52.3878 -81.4433,52.4029 -81.4845,52.417 -81.509,52.4297 -81.5753,52.4686 -81.5961,52.4829 -81.8198,52.6757 -81.8438,52.7213 -81.8695,52.7431 -81.8939,52.7626 -81.9185,52.7814 -81.9696,52.8184 -81.9959,52.8305 -82.0637,52.8517 -82.1032,52.8624 -82.1269,52.8732 -82.1412,52.8946 -82.1636,52.9569 -82.1675,52.9923 -82.1398,53.0937 -82.1147,53.132 -82.077,53.1581 -82.0075,53.1925 -81.9834,53.2095 -81.9811,53.2306 -81.9857,53.2537 -81.9918,53.282 -82.0038,53.3268 -82.0135,53.3592 -82.0326,53.3914 -82.0599,53.4348 -82.0754,53.468 -82.0796,53.5509 -82.0704,53.5849 -82.0588,53.6067 -82.0544,53.6115 -82.0132,53.665 -81.998,53.6954 -81.9942,53.721 -81.9962,53.7551 -82.0238,53.8358 -82.1087,54.0052 -82.1467,54.0294 -82.1639,54.04 -82.225,54.0802 -82.2523,54.1049 -82.2899,54.1399 -82.3029,54.2675 -82.2933,54.3069 -82.2651,54.347 -82.1815,54.5075 -82.0809,54.7234 -82.1034,54.8163 -82.1283,54.8613 -82.1445,54.975 -82.1247,54.9985 -82.1067,55.0231 -82.1131,55.0466 -82.1666,55.0839 -82.2018,55.0908 -82.1693,55.0583 -82.1945,55.0062 -82.2598,55.0179 -82.2699,55.0456 -82.308,55.068 -82.3669,55.0879 -82.5209,55.1039 -82.5627,55.093 -82.5978,55.0826 -82.6364,55.0765 -82.6679,55.0775 -82.6962,55.0818 -82.7324,55.0896 -82.7591,55.1197 -82.7708,55.1366 -82.7936,55.1569 -82.8139,55.1664 -82.8424,55.1714 -82.8637,55.1734 -82.8904,55.1737 -82.9394,55.1643 -82.9812,55.1442 -83.0166,55.134 -83.0369,55.1324 -83.3506,55.1698 -83.3828,55.182 -83.4304,55.1973 -83.557,55.2076 -83.5339,55.1865 -83.5054,55.1782 -83.4771,55.1776 -83.447,55.168 -83.4143,55.1172 -83.4159,55.0678 -83.4419,55.0873 -83.426,55.1195 -83.5121,55.1706 -83.7531,55.2517 -83.7817,55.254 -83.8156,55.2507 -83.8617,55.2364 -83.9052,55.221 -83.9396,55.209 -83.9735,55.207 -84.0178,55.215 -84.0557,55.2299 -84.1778,55.225 -84.2433,55.2175 -84.2915,55.2052 -84.3962,55.1823 -84.421,55.1792 -84.4539,55.1768 -84.4901,55.1774 -84.5424,55.1801 -84.5725,55.1837 -84.6056,55.1909 -84.7233,55.2146 -84.8283,55.2307 -84.8556,55.2316 -84.8977,55.2276 -84.9217,55.2223 -84.9702,55.2116 -85.0017,55.2022 -85.0405,55.184 -85.0737,55.1596 -85.1692,55.0653 -85.1892,55.0367 -85.2014,55.016 -85.2163,54.976 -85.2223,54.9626 -85.2467,54.9385 -85.2735,54.9347 -85.2516,54.9824 -85.2375,55.0027 -85.252,55.0322 -85.1289,55.1515 -85.0686,55.2034 -84.99,55.229 -84.9719,55.2469 -84.9833,55.2799 -85.0265,55.2984 -85.0789,55.2997 -85.125,55.3095 -85.2411,55.3418 -85.3266,55.3894 -85.3653,55.427 -85.3811,55.4581 -85.4151,55.4889 -85.5831,55.5707 -85.7182,55.5919 -86.1226,55.662 -86.1687,55.6776 -86.1895,55.6933 -86.2224,55.7091 -86.2483,55.7185 -86.2983,55.7343 -86.3316,55.7444 -86.3937,55.7585 -86.422,55.7645 -86.466,55.7728 -86.6865,55.8255 -86.7305,55.8411 -86.8229,55.8647 -86.8451,55.8656 -86.8797,55.8638 -86.9053,55.861 -86.9487,55.8624 -87.0462,55.8744 -87.1956,55.911 -87.2076,55.9306 -87.3261,55.9631 -87.3954,55.9839 -87.5561,56.0942 -87.5666,56.1328 -87.6866,56.2488 -87.824,56.3726 -87.8686,56.3914 -87.8934,56.3987 -87.9145,56.402 -87.9474,56.4093 -87.9937,56.4202 -88.0629,56.4377 -88.1679,56.476 -88.2095,56.4945 -88.2587,56.5193 -88.284,56.5367 -88.427,56.6034 -88.4784,56.6196 -88.4974,56.6293 -88.5146,56.6421 -88.5852,56.697 -88.6571,56.7571 -88.7882,56.7761 -88.857,56.7805 -88.9096,56.7848 -88.934,56.7895 -90.0,56.1247 -90.0,48.0634 -89.9891,48.0614 9,-5.0,Canada -66.3407,48.011 -66.3403,48.0109 -66.3341,48.0118 -66.3136,48.0094 -66.3097,48.0135 -66.3044,48.0144 -66.3312,48.0139 -66.341,48.0111 -66.3407,48.011 10,-5.0,Canada -66.2975,48.012 -66.2961,48.0088 -66.2843,48.0042 -66.285,48.0017 -66.29,47.9989 -66.2531,47.9901 -66.2252,47.9901 -66.2594,48.0152 -66.2986,48.0145 -66.2975,48.012 17,-5.0,Canada -64.7346,60.2266 -64.7269,60.2266 -64.6572,60.2485 -64.6294,60.2526 -64.5823,60.2414 -64.5516,60.2468 -64.526,60.2541 -64.5181,60.2564 -64.4959,60.2549 -64.471,60.2479 -64.464,60.2536 -64.4882,60.2635 -64.5253,60.2729 -64.7221,60.2882 -64.7142,60.26 -64.7347,60.2266 -64.7346,60.2266 15,-8.0,Canada -124.4402,50.3439 -124.4389,50.3443 -124.4045,50.3552 -124.3298,50.3742 -124.2389,50.4041 -124.2121,50.4214 -124.168,50.4376 -124.2024,50.3983 -124.2389,50.3761 -124.3316,50.3417 -124.3534,50.3367 -124.3861,50.3405 -124.4137,50.3448 -124.4419,50.3433 -124.4402,50.3439 15,-8.0,Canada -126.2843,50.8651 -126.269,50.8686 -126.2257,50.8785 -126.1153,50.8665 -126.0525,50.8643 -126.0289,50.8699 -126.0096,50.8817 -125.9859,50.8892 -125.9865,50.8635 -126.0181,50.8443 -126.0531,50.8399 -126.1699,50.843 -126.269,50.851 -126.2987,50.8618 -126.2843,50.8651 9,-8.0,Canada -127.2701,52.0415 -127.3892,51.9763 -127.4128,51.9737 -127.3856,52.0314 -127.3662,52.0395 -127.343,52.0395 -127.312,52.0336 -127.2684,52.0424 -127.2701,52.0415 14,-8.0,Canada -126.6921,52.1409 -126.6861,52.1368 -126.6632,52.1213 -126.6238,52.1084 -126.5635,52.0719 -126.5383,52.0524 -126.4675,51.9751 -126.4763,51.9304 -126.4933,51.9661 -126.5126,51.9839 -126.5521,52.018 -126.6273,52.0674 -126.7053,52.1498 -126.6921,52.1409 4124,-8.0,Canada -140.7344,60.2937 -140.7296,60.2343 -140.6803,60.2248 -140.2564,60.1493 -140.2326,60.1786 -140.2071,60.211 -140.1856,60.2369 -139.7416,60.1212 -139.7157,60.1152 -139.6494,60.1482 -139.6026,60.1717 -139.5081,60.2198 -139.4129,60.2676 -139.256,60.2718 -138.8043,60.2716 -138.8196,60.2148 -138.8672,60.1285 -138.8932,60.0824 -138.9244,60.0228 -138.8997,59.9977 -138.8546,59.9689 -138.7857,59.9254 -138.71,59.9065 -138.4291,59.8351 -138.4142,59.7948 -138.4064,59.7665 -138.3904,59.7382 -138.3555,59.7025 -138.2788,59.6603 -138.2311,59.6368 -138.0446,59.5414 -137.8595,59.4453 -137.6529,59.3367 -137.335,59.1675 -137.3104,59.1161 -137.29,59.0722 -137.2441,58.9708 -137.2292,58.9197 -137.2425,58.8934 -137.2517,58.8674 -137.2434,58.844 -137.2175,58.8361 -137.1907,58.8369 -137.1698,58.8422 -137.1386,58.8579 -137.0846,58.8951 -137.0597,58.9106 -137.0418,58.9194 -136.9974,58.9353 -136.8159,58.9947 -136.779,59.0067 -136.7154,59.0274 -136.6877,59.0386 -136.6343,59.061 -136.5549,59.0942 -136.4658,59.0944 -136.3577,59.0937 -136.3302,59.0923 -136.3045,59.1154 -136.2327,59.1847 -136.2086,59.225 -136.208,59.3011 -136.2094,59.343 -136.2086,59.3982 -136.1169,59.3811 -136.0417,59.4022 -135.9793,59.4545 -135.9843,59.49 -136.0433,59.5121 -136.0898,59.53 -136.0554,59.5411 -135.9525,59.5677 -135.9049,59.5749 -135.8659,59.5799 -135.8163,59.5857 -135.6943,59.5975 -135.5684,59.634 -135.2517,59.7222 -135.2191,59.7301 -135.0823,59.6548 -134.9243,59.5654 -134.901,59.5556 -134.8733,59.5507 -134.8442,59.5499 -134.7619,59.4962 -134.7624,59.4689 -134.7656,59.4276 -134.7759,59.3981 -134.8111,59.3867 -134.8274,59.3734 -134.8393,59.3555 -134.7005,59.2091 -134.4881,59.1793 -134.4376,59.1724 -134.4232,59.1366 -134.4005,59.1146 -134.3164,59.0596 -134.2824,59.0613 -134.2172,59.0582 -134.1337,58.9827 -134.0769,58.9006 -134.0791,58.8549 -133.9902,58.7841 -133.84,58.7378 -133.5801,58.656 -133.5619,58.6398 -133.4897,58.5745 -133.3135,58.458 -133.1853,58.3892 -133.1434,58.3422 -133.1645,58.3305 -133.1861,58.2905 -133.1172,58.2109 -133.0624,58.1877 -132.9904,58.1418 -132.9682,58.127 -132.9469,58.1107 -132.8944,58.0666 -132.866,58.0166 -132.8491,57.9714 -132.8286,57.9431 -132.8136,57.9278 -132.7968,57.9137 -132.7534,57.8825 -132.7234,57.8643 -132.6919,57.8404 -132.6363,57.7906 -132.5755,57.7291 -132.5556,57.7026 -132.5465,57.6832 -132.5227,57.6516 -132.3801,57.515 -132.2597,57.4021 -132.2336,57.3828 -132.2127,57.3669 -132.1366,57.307 -132.1165,57.2863 -131.99,57.1368 -132.0246,57.1009 -132.0878,57.0214 -131.9852,57.0003 -131.7917,56.9686 -131.801,56.9453 -131.8267,56.8921 -131.8569,56.8262 -131.8683,56.7991 -131.6276,56.7286 -131.6242,56.6515 -131.5911,56.5315 -131.3784,56.5352 -131.3463,56.5363 -131.3161,56.5323 -131.0826,56.4433 -131.0583,56.4336 -130.9819,56.4022 -130.9334,56.3783 -130.9134,56.3678 -130.8947,56.3575 -130.8318,56.334 -130.6894,56.3157 -130.6169,56.3077 -130.5443,56.2995 -130.5258,56.2863 -130.4908,56.2588 -130.3979,56.1922 -130.3314,56.1835 -130.3037,56.1798 -130.2555,56.1731 -130.233,56.1688 -130.2186,56.1399 -130.137,56.0574 -130.0013,56.0242 -129.8608,56.0518 -129.8262,56.0094 -129.7873,55.9585 -129.7884,55.8431 -129.7686,55.8605 -129.7395,55.8564 -129.8129,55.7723 -129.8349,55.7538 -129.8589,55.7381 -129.8887,55.7107 -129.9024,55.6702 -129.8773,55.4962 -129.7844,55.3056 -129.737,55.2437 -129.7228,55.2202 -129.8189,55.1412 -129.8492,55.1249 -129.8932,55.0805 -129.9376,55.0157 -129.9047,54.9492 -129.8858,54.9296 -129.8557,54.928 -129.8055,54.9719 -129.6921,55.0936 -129.5922,55.2216 -129.5578,55.2915 -129.5479,55.4139 -129.5582,55.4329 -129.5623,55.5011 -129.4839,55.3877 -129.4588,55.4048 -129.4046,55.3927 -129.2545,55.4052 -129.2849,55.3793 -129.309,55.3736 -129.3609,55.3784 -129.3899,55.3787 -129.4166,55.3707 -129.4393,55.347 -129.5034,55.2736 -129.6245,55.1454 -129.7364,55.0309 -129.7531,55.0021 -129.7587,54.9488 -129.6871,54.9328 -129.6542,54.9412 -129.5775,54.9423 -129.4013,54.9357 -129.4233,54.9195 -129.6922,54.9023 -129.7188,54.9064 -129.8092,54.9008 -129.8294,54.8921 -129.9456,54.7897 -129.978,54.6647 -129.8074,54.578 -129.7841,54.5687 -129.748,54.5579 -129.6901,54.5415 -129.7397,54.5438 -129.7606,54.546 -129.7802,54.5507 -129.8065,54.559 -129.8453,54.5828 -129.8802,54.6077 -129.9391,54.6363 -130.0113,54.6445 -130.1109,54.6258 -130.1342,54.6155 -130.1502,54.5974 -130.1485,54.576 -130.0931,54.5223 -129.9282,54.3784 -129.8188,54.2787 -129.764,54.2617 -129.7419,54.2562 -129.7695,54.2481 -129.8106,54.2597 -129.842,54.2745 -130.0031,54.4082 -130.0613,54.4647 -130.1116,54.5148 -130.1615,54.556 -130.1909,54.5648 -130.2166,54.5564 -130.2091,54.4988 -130.2133,54.4328 -130.255,54.3696 -130.2641,54.338 -130.2615,54.3011 -130.236,54.2741 -130.1724,54.2668 -130.122,54.2648 -130.0564,54.2827 -130.0199,54.2315 -130.0099,54.1952 -129.9738,54.1298 -129.9003,54.0918 -129.8202,54.1096 -129.774,54.1296 -129.7559,54.1406 -129.6537,54.1718 -129.6281,54.175 -129.5593,54.1715 -129.4682,54.159 -129.3477,54.1622 -129.298,54.1797 -129.2574,54.1758 -129.3753,54.1227 -129.3973,54.1156 -129.4221,54.1177 -129.4753,54.1294 -129.5094,54.1373 -129.5649,54.1472 -129.6145,54.156 -129.6387,54.1521 -129.832,54.0876 -129.8529,54.0615 -129.8742,54.0059 -129.8844,53.8812 -129.8321,53.8222 -129.6982,53.7357 -129.6467,53.7025 -129.6164,53.6844 -129.4728,53.5678 -129.4161,53.5252 -129.3061,53.4527 -129.1423,53.3455 -129.1224,53.3353 -129.0922,53.3228 -129.0615,53.3169 -129.0263,53.3713 -129.023,53.3967 -129.0198,53.4386 -129.0249,53.4749 -129.025,53.5482 -129.0049,53.5778 -128.9046,53.6511 -128.7704,53.6996 -128.719,53.7119 -128.7023,53.7245 -128.586,53.8121 -128.5128,53.8758 -128.4732,53.9306 -128.392,53.9665 -128.43,53.8919 -128.4504,53.8628 -128.4655,53.8461 -128.4496,53.8233 -128.404,53.8058 -128.3286,53.796 -128.2891,53.7944 -128.264,53.7755 -128.3859,53.778 -128.4331,53.7748 -128.4566,53.7799 -128.5575,53.7331 -128.5795,53.7095 -128.5602,53.6705 -128.5719,53.6128 -128.6025,53.5908 -128.6031,53.5589 -128.3338,53.4174 -128.2753,53.4242 -128.244,53.4367 -128.0913,53.4161 -127.9643,53.4217 -127.9172,53.4186 -127.8842,53.3897 -127.8621,53.369 -127.7792,53.2919 -127.7163,53.2622 -127.7247,53.2311 -127.7144,53.2115 -127.663,53.175 -127.7405,53.1923 -127.7477,53.2115 -127.7433,53.2534 -127.7973,53.285 -127.8257,53.3071 -127.8617,53.3317 -127.8899,53.3744 -127.9222,53.3866 -127.9444,53.3923 -127.9797,53.3977 -128.2195,53.3677 -128.2357,53.3525 -128.3138,53.3345 -128.3483,53.3518 -128.4818,53.423 -128.5749,53.499 -128.7579,53.4906 -128.7478,53.4403 -128.7109,53.3914 -128.6772,53.3627 -128.675,53.3122 -128.6683,53.2542 -128.658,53.2327 -128.6439,53.2176 -128.5819,53.1796 -128.4921,53.1336 -128.463,53.1295 -128.4166,53.1402 -128.3314,53.07 -128.308,52.9584 -128.2989,52.9014 -128.287,52.8254 -128.2323,52.7594 -128.2197,52.7561 -128.1337,52.744 -128.0943,52.7387 -128.0682,52.7382 -128.0282,52.7457 -127.9662,52.7927 -127.9254,52.8148 -127.915,52.6958 -127.9404,52.6585 -127.9802,52.6098 -128.0357,52.4996 -128.0303,52.473 -128.0177,52.4091 -128.0561,52.3396 -128.0822,52.3396 -128.1258,52.3196 -128.1903,52.2308 -128.0928,52.2117 -128.0259,52.2655 -127.9447,52.3614 -127.9143,52.4045 -127.8983,52.4368 -127.8309,52.4776 -127.6795,52.5164 -127.6869,52.4867 -127.762,52.4583 -127.8055,52.4476 -127.8332,52.4305 -127.8515,52.4138 -127.864,52.3897 -127.8549,52.3365 -127.8041,52.2768 -127.7638,52.2626 -127.7062,52.3447 -127.7238,52.3684 -127.6894,52.4505 -127.6663,52.4419 -127.7027,52.2181 -127.6708,52.1626 -127.6552,52.1518 -127.6404,52.1637 -127.6023,52.1881 -127.5392,52.2158 -127.5191,52.214 -127.4128,52.2327 -127.2869,52.3012 -127.2631,52.3346 -127.1981,52.3634 -127.1309,52.3731 -127.0586,52.4095 -127.0756,52.4409 -127.0542,52.4846 -127.0377,52.4966 -126.9311,52.5482 -126.8438,52.584 -126.7783,52.6571 -126.809,52.7549 -126.8152,52.775 -126.7699,52.7721 -126.7192,52.6614 -126.7822,52.5748 -126.8015,52.5658 -126.8706,52.5547 -126.9887,52.493 -127.0331,52.4489 -127.0256,52.3921 -126.9845,52.3201 -126.9476,52.2896 -126.881,52.2744 -126.8014,52.2743 -126.7699,52.2822 -126.7432,52.3044 -126.7168,52.3115 -126.5915,52.3347 -126.5561,52.3301 -126.5332,52.3107 -126.578,52.3092 -126.616,52.3039 -126.6722,52.2902 -126.731,52.2629 -126.7396,52.2432 -126.7053,52.1498 -126.738,52.1844 -126.7633,52.2108 -126.806,52.2431 -126.8415,52.2485 -126.973,52.2485 -126.9914,52.2302 -127.0408,52.19 -127.0928,52.169 -127.1299,52.1696 -127.1526,52.1641 -127.1745,52.1564 -127.2503,52.1159 -127.2261,52.0653 -127.2684,52.0424 -127.2701,52.0843 -127.298,52.091 -127.3243,52.0866 -127.3791,52.0688 -127.4245,52.0325 -127.4504,51.9895 -127.4641,51.8937 -127.5374,51.8894 -127.5654,51.8865 -127.5925,51.8797 -127.6263,51.8631 -127.6642,51.8407 -127.6852,51.7952 -127.6896,51.7428 -127.6768,51.6088 -127.5885,51.5004 -127.5144,51.4448 -127.5532,51.4329 -127.5211,51.3994 -127.4611,51.3981 -127.4402,51.4001 -127.3795,51.4546 -127.3618,51.4816 -127.3476,51.5676 -127.3865,51.6177 -127.373,51.6469 -127.2491,51.7171 -127.1478,51.7978 -127.1624,51.7136 -127.2284,51.6718 -127.239,51.6155 -127.2095,51.608 -127.0757,51.6234 -126.9424,51.6346 -126.8766,51.638 -126.8555,51.6378 -126.773,51.6287 -126.7172,51.6224 -126.5006,51.6049 -126.4474,51.6436 -126.4603,51.68 -126.468,51.7093 -126.4621,51.732 -126.4395,51.7118 -126.4088,51.656 -126.4226,51.6203 -126.462,51.5902 -126.5107,51.582 -126.6861,51.5897 -126.7462,51.597 -126.8976,51.608 -127.0349,51.6025 -127.1273,51.5914 -127.1775,51.585 -127.2458,51.5703 -127.2978,51.5546 -127.3172,51.531 -127.323,51.5043 -127.3163,51.4733 -127.354,51.4087 -127.4528,51.3486 -127.4912,51.3312 -127.5365,51.3235 -127.5859,51.2905 -127.5703,51.2619 -127.3649,51.2712 -127.2657,51.2823 -127.2554,51.2564 -127.1991,51.2427 -127.1706,51.2397 -127.0888,51.2413 -127.051,51.2469 -127.012,51.2566 -126.9888,51.2658 -126.9477,51.2986 -126.9242,51.324 -126.9212,51.2981 -126.936,51.269 -127.0074,51.2391 -127.024,51.2293 -127.1737,51.2151 -127.2071,51.223 -127.2547,51.2326 -127.3431,51.2352 -127.3685,51.2337 -127.3992,51.2309 -127.565,51.19 -127.589,51.1694 -127.5991,51.1406 -127.5931,51.1063 -127.4767,51.039 -127.4446,51.0328 -127.36,51.0411 -127.3376,51.049 -127.3051,51.0569 -127.1931,51.0091 -127.1636,51.0043 -127.1382,51.0011 -127.0429,50.9979 -127.0044,50.9979 -126.9459,51.0011 -126.7328,51.0257 -126.6547,51.0339 -126.5226,51.0737 -126.4924,51.1016 -126.4848,51.1285 -126.4626,51.1311 -126.4567,51.0953 -126.4946,51.0535 -126.6271,51.0067 -126.6753,51.0139 -126.7536,51.008 -126.7942,51.0017 -126.9009,50.985 -127.0232,50.9818 -127.0439,50.9821 -127.1351,50.9895 -127.1589,50.9927 -127.1792,50.9985 -127.2052,51.0094 -127.2402,51.0237 -127.2815,51.0384 -127.3028,51.0394 -127.3418,50.9467 -127.2353,50.8815 -127.2038,50.8677 -127.1398,50.8481 -127.0489,50.8378 -126.9384,50.8034 -126.8709,50.775 -126.8462,50.7611 -126.8245,50.7596 -126.7747,50.8077 -126.8192,50.8092 -126.8683,50.8265 -126.9787,50.8635 -126.9176,50.8723 -126.891,50.8625 -126.8538,50.8513 -126.8203,50.8449 -126.7164,50.845 -126.6189,50.8537 -126.528,50.8174 -126.4761,50.8083 -126.3794,50.8433 -126.2987,50.8618 -126.3401,50.841 -126.3622,50.8201 -126.3641,50.7815 -126.3004,50.7577 -126.2386,50.7666 -126.2073,50.7883 -126.1831,50.7967 -126.0763,50.7994 -126.0062,50.7972 -125.9194,50.6951 -126.0199,50.6449 -125.9438,50.6231 -125.7721,50.63 -125.6238,50.6488 -125.5396,50.6768 -125.4994,50.7126 -125.4181,50.8402 -125.3908,50.9158 -125.4453,51.0069 -125.4441,51.0311 -125.418,51.0285 -125.3943,51.0165 -125.3657,50.9903 -125.3155,50.8824 -125.3487,50.8093 -125.4287,50.6935 -125.5025,50.6463 -125.5471,50.6237 -125.717,50.6056 -125.8256,50.6034 -126.0782,50.569 -126.0599,50.5512 -126.0465,50.5331 -125.9947,50.499 -126.0351,50.4778 -126.0856,50.458 -126.0022,50.432 -125.9682,50.4267 -125.8723,50.4125 -125.7698,50.4105 -125.7394,50.4154 -125.665,50.4408 -125.5136,50.3714 -125.4541,50.3854 -125.4209,50.4295 -125.3958,50.4784 -125.3913,50.507 -125.3801,50.5538 -125.3701,50.5842 -125.3517,50.6076 -125.2771,50.6525 -125.2416,50.6525 -125.2627,50.6185 -125.2839,50.6081 -125.3189,50.5988 -125.3413,50.5688 -125.3583,50.4395 -125.2983,50.3983 -125.2616,50.4002 -125.2227,50.4111 -125.1464,50.4215 -125.0564,50.4038 -125.0152,50.361 -124.9935,50.3547 -124.928,50.38 -124.9274,50.4191 -124.9121,50.4402 -124.8372,50.4825 -124.739,50.5381 -124.7149,50.5632 -124.7221,50.641 -124.7546,50.7168 -124.7336,50.776 -124.6655,50.8732 -124.6161,50.8609 -124.597,50.8273 -124.682,50.7557 -124.6785,50.7063 -124.6643,50.6329 -124.6692,50.5296 -124.6912,50.5022 -124.7789,50.4414 -124.8288,50.4259 -124.8558,50.4229 -124.8982,50.2894 -124.8864,50.2631 -124.8752,50.2599 -124.7504,50.2673 -124.662,50.2518 -124.6416,50.2514 -124.6212,50.257 -124.5508,50.2938 -124.5233,50.3176 -124.4419,50.3433 -124.4664,50.3296 -124.5247,50.2659 -124.4771,50.2459 -124.4472,50.2254 -124.4151,50.1826 -124.4294,50.1213 -124.4811,50.0127 -124.5182,49.9381 -124.5805,49.9787 -124.6307,50.0063 -124.6174,49.9628 -124.5876,49.9284 -124.5568,49.9009 -124.5178,49.8775 -124.4474,49.8421 -124.4066,49.8256 -124.3872,49.8172 -124.3452,49.7824 -124.3366,49.7485 -124.2485,49.7107 -124.2247,49.7064 -124.0864,49.711 -123.9974,49.7159 -123.9615,49.7227 -123.9035,49.7405 -123.8762,49.7832 -123.8865,49.8153 -123.851,49.8608 -123.8244,49.7901 -123.8204,49.7535 -123.7986,49.7465 -123.7405,49.773 -123.7302,49.8154 -123.7673,49.8384 -123.7894,49.8544 -123.8079,49.8858 -123.814,49.9446 -123.7696,49.9717 -123.7307,49.9822 -123.6844,50.0 -123.6277,50.0331 -123.691,50.0904 -123.7105,50.0967 -123.7443,50.1031 -123.7672,50.117 -123.8007,50.1531 -123.6605,50.1056 -123.6399,50.0966 -123.5633,50.0272 -123.6169,49.9849 -123.6651,49.9654 -123.6928,49.9592 -123.7419,49.9343 -123.7727,49.9003 -123.7611,49.8825 -123.7405,49.8727 -123.7084,49.8662 -123.6892,49.8151 -123.6964,49.7767 -123.7363,49.7352 -123.7513,49.7191 -123.6236,49.5865 -123.5621,49.5885 -123.5002,49.5949 -123.3962,49.6216 -123.3726,49.6335 -123.3531,49.6399 -123.3726,49.6151 -123.4323,49.5822 -123.4563,49.5781 -123.4992,49.568 -123.554,49.5486 -123.5881,49.5192 -123.5712,49.4809 -123.5827,49.453 -123.6091,49.4532 -123.6403,49.5272 -123.648,49.5654 -123.6936,49.6264 -123.7544,49.6837 -123.7828,49.6887 -123.8092,49.6838 -123.8296,49.674 -123.847,49.6596 -123.8757,49.614 -123.8867,49.5845 -123.8056,49.485 -123.7789,49.4553 -123.708,49.412 -123.6759,49.4112 -123.5925,49.4017 -123.4935,49.3684 -123.4216,49.3422 -123.3585,49.3257 -123.3347,49.3289 -123.2985,49.3578 -123.2917,49.3892 -123.3057,49.4052 -123.3096,49.4517 -123.248,49.4816 -123.2058,49.4976 -123.1612,49.5044 -123.0863,49.545 -123.0643,49.5902 -122.9836,49.6441 -122.9717,49.6259 -123.0195,49.5589 -123.0692,49.4695 -123.0726,49.3282 -123.0551,49.2825 -122.8909,49.2578 -122.8601,49.2565 -122.8246,49.2631 -122.7506,49.2715 -122.7346,49.2856 -122.7207,49.304 -122.7014,49.3437 -122.6946,49.3914 -122.6741,49.3816 -122.6962,49.2885 -122.7372,49.2345 -122.7626,49.2278 -122.8286,49.2254 -122.9137,49.2275 -123.0667,49.2161 -123.0268,49.069 -122.9633,49.0516 -122.9329,48.9804 -122.9134,48.9431 -122.8544,48.9431 -122.8589,48.949 -122.8677,48.9692 -122.8502,48.9907 -122.7614,49.0261 -122.7293,49.031 -122.6874,49.0227 -122.6926,48.9979 -122.6952,48.9756 -122.6426,48.9506 -122.5806,48.9434 -122.5204,48.9439 -122.3874,48.9437 -122.2543,48.9437 -122.1547,48.9438 -121.922,48.9438 -120.9079,48.9434 -120.3584,48.9432 -119.8584,48.9434 -119.7587,48.9434 -119.6919,48.9432 -119.2928,48.9434 -118.9598,48.9434 -118.7935,48.9432 -118.5938,48.9431 -118.195,48.9433 -117.9611,48.9433 -117.8282,48.9431 -117.6948,48.9431 -117.6621,48.9438 -117.3956,48.9437 -117.1289,48.9439 -117.0631,48.9439 -117.0292,48.9432 -116.896,48.9436 -116.8652,48.947 -116.8303,48.9434 -115.8786,48.9435 -115.5649,48.9434 -115.4321,48.9434 -115.3982,48.9439 -115.2991,48.9438 -115.1992,48.9439 -114.999,48.9431 -114.8656,48.9434 -114.7328,48.9433 -114.4663,48.9438 -114.367,48.9438 -114.3,48.9432 -114.1675,48.9434 -113.9971,48.944 -113.9971,48.9489 -113.998,48.9508 -113.9948,48.9606 -113.982,48.977 -113.9893,48.9962 -113.9907,48.9999 -113.9981,49.0053 -114.0286,49.0158 -114.0498,49.0303 -114.0686,49.039 -114.0843,49.0759 -114.0862,49.0848 -114.0803,49.0934 -114.0794,49.0945 -114.083,49.1012 -114.0944,49.1108 -114.1326,49.1251 -114.14,49.1369 -114.1538,49.1404 -114.1611,49.1402 -114.1721,49.1332 -114.1834,49.131 -114.2182,49.1386 -114.2274,49.1425 -114.2395,49.1475 -114.2631,49.1503 -114.2725,49.1455 -114.2946,49.156 -114.3235,49.1631 -114.3198,49.17 -114.3236,49.194 -114.3035,49.2043 -114.3065,49.2077 -114.3102,49.2084 -114.3707,49.22 -114.376,49.2236 -114.3729,49.2337 -114.3758,49.2442 -114.3865,49.2514 -114.3966,49.2617 -114.4104,49.266 -114.4141,49.2719 -114.4043,49.2853 -114.405,49.2901 -114.4053,49.2925 -114.4165,49.3037 -114.4509,49.3144 -114.457,49.3331 -114.4678,49.334 -114.4841,49.3313 -114.4981,49.334 -114.5105,49.3453 -114.5232,49.3685 -114.5301,49.3896 -114.5232,49.4199 -114.5235,49.4508 -114.5169,49.4598 -114.5066,49.4693 -114.4949,49.4865 -114.4945,49.4883 -114.4924,49.4998 -114.5036,49.511 -114.5137,49.5158 -114.524,49.5126 -114.5406,49.5021 -114.5586,49.4972 -114.5733,49.4967 -114.6042,49.5071 -114.6194,49.5035 -114.6277,49.505 -114.6351,49.5127 -114.6532,49.5315 -114.6713,49.5599 -114.6702,49.5704 -114.6608,49.5773 -114.644,49.5801 -114.6332,49.5893 -114.5897,49.5941 -114.5881,49.5952 -114.5835,49.5983 -114.584,49.6049 -114.593,49.6203 -114.5989,49.6513 -114.5954,49.6605 -114.5728,49.6699 -114.5607,49.6807 -114.5632,49.6915 -114.5696,49.6961 -114.5699,49.7044 -114.5714,49.7053 -114.5806,49.7105 -114.583,49.7172 -114.5774,49.7226 -114.5665,49.7271 -114.5615,49.7343 -114.5622,49.7503 -114.5587,49.7588 -114.5669,49.7689 -114.5641,49.7834 -114.5807,49.7971 -114.5859,49.8081 -114.5917,49.8156 -114.613,49.8432 -114.6163,49.8499 -114.6115,49.8717 -114.6162,49.8855 -114.6159,49.9012 -114.6055,49.9179 -114.5795,49.9242 -114.578,49.9245 -114.5746,49.943 -114.5795,49.95 -114.5882,49.9621 -114.5829,49.9804 -114.5959,50.003 -114.5893,50.0089 -114.5896,50.0171 -114.6121,50.023 -114.6191,50.0332 -114.632,50.052 -114.6578,50.0645 -114.6607,50.0735 -114.656,50.0842 -114.6509,50.1113 -114.6561,50.1222 -114.6561,50.1269 -114.6509,50.1352 -114.6505,50.1422 -114.6529,50.1466 -114.662,50.1635 -114.6938,50.1981 -114.694,50.2063 -114.6829,50.2171 -114.6774,50.2272 -114.6764,50.2324 -114.6793,50.2507 -114.6922,50.2552 -114.6964,50.2549 -114.707,50.254 -114.7133,50.2592 -114.7089,50.2682 -114.717,50.2804 -114.7135,50.2891 -114.7057,50.2917 -114.6966,50.3011 -114.6994,50.3088 -114.7068,50.3117 -114.7191,50.3119 -114.7328,50.3204 -114.739,50.3263 -114.7385,50.3326 -114.7508,50.339 -114.7609,50.3407 -114.7817,50.3441 -114.789,50.3509 -114.7858,50.3718 -114.7985,50.3826 -114.8028,50.3923 -114.8313,50.3976 -114.8423,50.4047 -114.8585,50.4333 -114.8799,50.4538 -114.907,50.4903 -114.9271,50.5078 -114.93,50.5137 -114.9419,50.5383 -114.9479,50.5391 -114.9504,50.5368 -114.956,50.5319 -114.9697,50.531 -114.9751,50.5282 -114.9793,50.5289 -114.9923,50.5385 -114.9988,50.5402 -115.0216,50.5297 -115.0319,50.5269 -115.0519,50.5257 -115.0714,50.5263 -115.0822,50.5247 -115.092,50.5215 -115.1062,50.5077 -115.1086,50.5022 -115.1092,50.5009 -115.1061,50.4944 -115.1106,50.4896 -115.1247,50.4898 -115.1298,50.4855 -115.1377,50.4861 -115.1503,50.4944 -115.1542,50.5006 -115.1553,50.5113 -115.1644,50.526 -115.161,50.5414 -115.1664,50.5457 -115.1852,50.5506 -115.2029,50.5585 -115.2052,50.5595 -115.2174,50.57 -115.2216,50.5799 -115.2321,50.5873 -115.2349,50.5933 -115.2271,50.6003 -115.2123,50.5988 -115.2032,50.6056 -115.2042,50.6149 -115.2168,50.6329 -115.2217,50.657 -115.2401,50.6754 -115.2559,50.679 -115.277,50.6784 -115.2907,50.6752 -115.3003,50.6692 -115.3122,50.6651 -115.3392,50.672 -115.3354,50.6863 -115.3542,50.7075 -115.3552,50.7085 -115.3611,50.7123 -115.3654,50.7101 -115.3748,50.7091 -115.3795,50.7119 -115.3901,50.7118 -115.3921,50.7078 -115.4002,50.7104 -115.4064,50.7159 -115.4082,50.7285 -115.4263,50.7414 -115.4439,50.7385 -115.4543,50.7392 -115.4661,50.7513 -115.4844,50.7634 -115.4845,50.7664 -115.4852,50.7851 -115.4899,50.7888 -115.526,50.7971 -115.532,50.7967 -115.5382,50.7913 -115.547,50.7898 -115.5611,50.792 -115.5705,50.8176 -115.5714,50.8277 -115.5478,50.8334 -115.5419,50.8348 -115.525,50.8412 -115.5054,50.8403 -115.4925,50.846 -115.4897,50.8508 -115.4916,50.8555 -115.5007,50.8637 -115.5285,50.8743 -115.5283,50.8797 -115.5319,50.8854 -115.5322,50.8988 -115.5407,50.9132 -115.5454,50.9185 -115.5562,50.9307 -115.5908,50.9549 -115.6074,50.9593 -115.6224,50.9763 -115.6291,50.9775 -115.6401,50.9673 -115.6487,50.9679 -115.6755,50.9839 -115.6783,50.9861 -115.6929,50.9971 -115.6895,51.0137 -115.6803,51.017 -115.6818,51.0219 -115.6874,51.023 -115.7,51.0169 -115.724,51.0222 -115.7336,51.0272 -115.7385,51.0322 -115.7479,51.0314 -115.7628,51.0255 -115.7719,51.0297 -115.7855,51.0313 -115.7914,51.0367 -115.7956,51.0404 -115.8171,51.0433 -115.8215,51.041 -115.8241,51.0324 -115.8305,51.0321 -115.8445,51.0389 -115.8664,51.053 -115.8809,51.0671 -115.9449,51.082 -115.9405,51.1089 -115.964,51.1162 -115.9627,51.1242 -115.9344,51.1465 -115.9342,51.1701 -115.9411,51.1728 -115.9573,51.1744 -115.9664,51.1776 -115.9833,51.1836 -115.9938,51.1975 -116.0044,51.2005 -116.0163,51.2001 -116.0326,51.2017 -116.0476,51.2055 -116.0612,51.2121 -116.0762,51.2154 -116.0829,51.2193 -116.0787,51.2345 -116.0913,51.2474 -116.1,51.2492 -116.1152,51.2523 -116.1335,51.2472 -116.1447,51.2461 -116.1731,51.2519 -116.1952,51.2631 -116.2136,51.2918 -116.2078,51.3053 -116.2131,51.3183 -116.2148,51.3187 -116.2291,51.3221 -116.2327,51.3338 -116.2287,51.3416 -116.2127,51.3619 -116.2135,51.3683 -116.2227,51.3798 -116.2184,51.3893 -116.2163,51.4087 -116.2257,51.4133 -116.2527,51.4169 -116.2735,51.4197 -116.2849,51.4233 -116.3222,51.456 -116.3205,51.4784 -116.3083,51.4857 -116.3177,51.4966 -116.3461,51.5035 -116.3772,51.5111 -116.3936,51.5184 -116.3962,51.5249 -116.3938,51.5444 -116.397,51.552 -116.4051,51.5611 -116.4298,51.5758 -116.4443,51.5798 -116.467,51.5885 -116.5024,51.602 -116.524,51.6135 -116.5223,51.6204 -116.5142,51.6277 -116.5154,51.6329 -116.5111,51.6362 -116.5148,51.6571 -116.5213,51.668 -116.53,51.6732 -116.5508,51.6811 -116.5517,51.6826 -116.5544,51.6868 -116.5538,51.6946 -116.5644,51.7034 -116.5752,51.7072 -116.5797,51.7148 -116.5782,51.7499 -116.5891,51.7572 -116.6055,51.7613 -116.6172,51.7588 -116.6385,51.7515 -116.6505,51.7534 -116.6628,51.7579 -116.6736,51.7574 -116.7038,51.7239 -116.7292,51.7098 -116.7425,51.6879 -116.7395,51.6822 -116.7338,51.6788 -116.7273,51.6714 -116.7322,51.6642 -116.7345,51.6608 -116.7465,51.656 -116.7638,51.6586 -116.7795,51.6591 -116.7912,51.6558 -116.8102,51.6553 -116.8306,51.658 -116.8475,51.6625 -116.8591,51.6827 -116.8897,51.7016 -116.9024,51.7113 -116.896,51.7234 -116.8956,51.7479 -116.8998,51.7563 -116.9135,51.7738 -116.9147,51.7831 -116.9149,51.7854 -116.923,51.7887 -116.9392,51.7892 -116.9563,51.7997 -116.9589,51.819 -116.947,51.8428 -116.9538,51.8494 -116.9744,51.8678 -116.9967,51.8791 -117.0222,51.892 -117.039,51.9054 -117.0572,51.914 -117.0747,51.927 -117.0882,51.9253 -117.099,51.9259 -117.1247,51.9311 -117.1343,51.9455 -117.1478,51.9508 -117.1527,51.9527 -117.1586,51.9607 -117.1467,51.9735 -117.146,51.9787 -117.1497,51.9856 -117.1759,51.9933 -117.1942,51.9957 -117.1971,52.0025 -117.2033,52.0086 -117.2187,52.0157 -117.2255,52.0227 -117.2308,52.0448 -117.2408,52.0856 -117.2458,52.1381 -117.2515,52.1406 -117.2591,52.1136 -117.2611,52.1066 -117.2654,52.1016 -117.2762,52.0987 -117.3002,52.097 -117.3424,52.1014 -117.3577,52.1007 -117.3833,52.0964 -117.4209,52.0938 -117.4272,52.1012 -117.4372,52.1046 -117.443,52.1065 -117.4477,52.1037 -117.4511,52.0964 -117.4694,52.0913 -117.4843,52.0804 -117.4906,52.0789 -117.5081,52.085 -117.5307,52.0895 -117.5447,52.1037 -117.5499,52.1156 -117.5744,52.1333 -117.585,52.141 -117.5902,52.148 -117.5979,52.1499 -117.6148,52.1473 -117.6445,52.1394 -117.6642,52.1381 -117.671,52.1519 -117.7349,52.1751 -117.7364,52.1757 -117.7463,52.1844 -117.7523,52.1993 -117.7625,52.2058 -117.7692,52.2163 -117.7693,52.2253 -117.7386,52.24 -117.7246,52.2442 -117.7214,52.2553 -117.6995,52.2689 -117.6905,52.2696 -117.6883,52.2698 -117.6781,52.2678 -117.6753,52.2801 -117.6661,52.2946 -117.6542,52.3034 -117.6375,52.3047 -117.6394,52.3166 -117.65,52.3227 -117.6519,52.3301 -117.6497,52.338 -117.6582,52.3429 -117.6756,52.3487 -117.6898,52.3576 -117.6935,52.3599 -117.7065,52.3609 -117.7146,52.3599 -117.7265,52.356 -117.7381,52.3582 -117.7542,52.366 -117.7705,52.3674 -117.8165,52.3773 -117.8382,52.3859 -117.8417,52.3944 -117.8502,52.399 -117.8655,52.4015 -117.8864,52.4108 -117.892,52.4162 -117.8964,52.4307 -117.9074,52.4343 -117.9165,52.448 -117.9255,52.4487 -117.9372,52.442 -117.9447,52.4322 -117.9524,52.4159 -117.9508,52.4054 -117.9536,52.401 -117.9632,52.4064 -117.9691,52.4097 -117.9781,52.4104 -117.9826,52.4058 -117.985,52.3958 -117.9808,52.3928 -117.9653,52.3897 -117.9611,52.386 -117.9618,52.3805 -117.966,52.3744 -117.977,52.3631 -117.9796,52.351 -117.9859,52.3465 -118.0435,52.3498 -118.0474,52.3505 -118.068,52.3543 -118.0813,52.3518 -118.1051,52.3341 -118.1121,52.3222 -118.1199,52.3188 -118.1365,52.3181 -118.1463,52.322 -118.1502,52.3274 -118.1478,52.3381 -118.1649,52.3566 -118.1653,52.3638 -118.1664,52.383 -118.176,52.3977 -118.1699,52.4013 -118.155,52.4024 -118.1494,52.4112 -118.1234,52.4239 -118.1222,52.4291 -118.1261,52.4352 -118.1337,52.4379 -118.1454,52.4405 -118.1647,52.441 -118.1757,52.4443 -118.1785,52.4461 -118.189,52.4525 -118.2097,52.4847 -118.209,52.4955 -118.1958,52.506 -118.1952,52.5112 -118.2078,52.5211 -118.2345,52.5249 -118.2549,52.5306 -118.2609,52.5389 -118.261,52.5396 -118.2622,52.5551 -118.2817,52.5621 -118.2773,52.5728 -118.277,52.5823 -118.2718,52.5869 -118.2636,52.5903 -118.2563,52.599 -118.2294,52.6021 -118.2226,52.6071 -118.2163,52.6268 -118.2223,52.636 -118.2241,52.6368 -118.2513,52.6487 -118.2662,52.6617 -118.2686,52.6746 -118.2639,52.6815 -118.2657,52.6868 -118.2873,52.6958 -118.2996,52.7049 -118.3201,52.71 -118.3431,52.7219 -118.3449,52.7259 -118.3481,52.7326 -118.3445,52.75 -118.3263,52.7721 -118.3208,52.7865 -118.3227,52.7971 -118.3269,52.8015 -118.333,52.8027 -118.36,52.8005 -118.377,52.8022 -118.3872,52.8098 -118.3879,52.815 -118.3884,52.8193 -118.3774,52.8331 -118.3864,52.8444 -118.3966,52.8515 -118.4083,52.8515 -118.4244,52.8488 -118.4419,52.8533 -118.4549,52.8496 -118.4693,52.8545 -118.4802,52.8554 -118.4874,52.8542 -118.506,52.8351 -118.5107,52.8333 -118.5224,52.8291 -118.5347,52.8315 -118.5433,52.8385 -118.5342,52.8571 -118.5456,52.868 -118.5466,52.8728 -118.5425,52.888 -118.5745,52.9013 -118.5882,52.9126 -118.5925,52.9231 -118.5967,52.9332 -118.5694,52.948 -118.57,52.9549 -118.5832,52.9843 -118.5947,52.9908 -118.6047,52.9903 -118.6103,52.985 -118.6204,52.9841 -118.6251,52.9873 -118.6349,53.0014 -118.6473,53.0045 -118.653,53.006 -118.6692,53.0084 -118.6756,53.0022 -118.6883,52.9966 -118.6983,52.9966 -118.7034,53.0028 -118.6984,53.0297 -118.6812,53.0359 -118.6579,53.0669 -118.6673,53.0724 -118.669,53.0728 -118.6952,53.0791 -118.7053,53.0851 -118.7089,53.0921 -118.7069,53.0972 -118.708,53.1067 -118.7162,53.1109 -118.737,53.1169 -118.7442,53.1232 -118.754,53.1253 -118.7596,53.1336 -118.7788,53.1352 -118.794,53.1466 -118.8009,53.154 -118.8018,53.155 -118.8336,53.1588 -118.8426,53.1622 -118.8619,53.1835 -118.8738,53.1866 -118.8853,53.1861 -118.9128,53.1906 -118.9283,53.186 -118.9412,53.18 -118.9415,53.1693 -118.9279,53.1609 -118.9267,53.1601 -118.9211,53.1522 -118.9262,53.1442 -118.9372,53.1347 -118.9466,53.1196 -118.9478,53.1076 -118.9322,53.0992 -118.9271,53.093 -118.9498,53.081 -118.9569,53.0743 -118.9669,53.0816 -118.9754,53.0931 -118.9763,53.0944 -119.0007,53.1086 -119.0168,53.1118 -119.0526,53.1126 -119.0799,53.1399 -119.0886,53.1393 -119.0979,53.1343 -119.1172,53.1343 -119.1332,53.1359 -119.1423,53.1388 -119.1546,53.1427 -119.1612,53.141 -119.1706,53.1265 -119.1772,53.1251 -119.1822,53.1285 -119.183,53.1431 -119.2018,53.1711 -119.2106,53.1805 -119.2236,53.2019 -119.2331,53.2105 -119.2409,53.2176 -119.2545,53.222 -119.2632,53.2271 -119.2657,53.2343 -119.262,53.2393 -119.2651,53.2469 -119.2766,53.2505 -119.2865,53.2595 -119.2766,53.2727 -119.2769,53.2808 -119.2842,53.2891 -119.3191,53.3098 -119.32,53.3103 -119.3327,53.3133 -119.3402,53.3136 -119.3487,53.3093 -119.3625,53.3056 -119.3783,53.3042 -119.4078,53.3113 -119.4313,53.3133 -119.4487,53.3184 -119.4563,53.3174 -119.4599,53.3136 -119.4719,53.3124 -119.4836,53.3134 -119.5085,53.3249 -119.524,53.3321 -119.5316,53.3323 -119.5329,53.3292 -119.5227,53.3163 -119.5366,53.3119 -119.5735,53.3159 -119.6057,53.3169 -119.6135,53.3327 -119.6244,53.3385 -119.6329,53.3394 -119.6412,53.3371 -119.6494,53.3373 -119.652,53.3374 -119.6549,53.3496 -119.6791,53.3684 -119.6849,53.3752 -119.7019,53.4092 -119.7149,53.4201 -119.7167,53.4268 -119.7093,53.4346 -119.7151,53.4419 -119.7271,53.4444 -119.7339,53.4458 -119.7555,53.4581 -119.7613,53.4659 -119.7699,53.4671 -119.7824,53.4511 -119.7905,53.4499 -119.7994,53.453 -119.8053,53.4582 -119.8164,53.4594 -119.8263,53.4654 -119.8283,53.4695 -119.8238,53.4806 -119.7965,53.4895 -119.7925,53.4975 -119.7924,53.5072 -119.7972,53.5146 -119.8096,53.5207 -119.8275,53.5341 -119.8367,53.5466 -119.8543,53.5568 -119.8531,53.5628 -119.8282,53.5678 -119.8106,53.5664 -119.789,53.5561 -119.7868,53.5561 -119.7672,53.5559 -119.7228,53.5501 -119.7047,53.5382 -119.6768,53.5378 -119.6744,53.5425 -119.6454,53.5627 -119.6444,53.5667 -119.6533,53.5735 -119.6593,53.5829 -119.6635,53.5896 -119.6615,53.6057 -119.6678,53.6108 -119.6852,53.6153 -119.6994,53.6247 -119.7101,53.6355 -119.7154,53.6454 -119.7264,53.6522 -119.7441,53.6519 -119.7515,53.6457 -119.7645,53.6452 -119.7709,53.6503 -119.7753,53.6574 -119.7781,53.6618 -119.787,53.6617 -119.7975,53.6588 -119.8161,53.6565 -119.8324,53.6577 -119.8415,53.6633 -119.8382,53.6692 -119.8305,53.6719 -119.8253,53.6774 -119.8274,53.6847 -119.8177,53.695 -119.8106,53.7069 -119.8114,53.7211 -119.8165,53.7257 -119.8339,53.7276 -119.8477,53.729 -119.8947,53.7308 -119.9062,53.7404 -119.9109,53.7507 -119.93,53.7544 -119.93,59.9503 -119.9319,59.9503 -120.0152,59.95 -120.0986,59.9497 -120.1819,59.95 -121.0981,59.95 -121.1815,59.9495 -121.2648,59.9495 -121.348,59.9496 -121.4314,59.9496 -121.5147,59.9497 -121.5979,59.9497 -121.6812,59.9498 -121.7646,59.9499 -121.8479,59.9499 -121.9311,59.95 -122.0145,59.95 -122.0978,59.9501 -122.181,59.9501 -122.2643,59.9502 -122.3477,59.9502 -122.4309,59.9503 -122.5142,59.9503 -122.5976,59.9504 -122.6809,59.95 -123.94,59.95 -123.9476,59.9563 -123.9554,59.9626 -123.9663,59.9682 -123.9717,59.9718 -123.9735,59.9789 -123.9726,59.9841 -123.9683,59.992 -123.9577,60.0027 -123.947,60.0179 -123.9348,60.0289 -123.9326,60.0332 -123.9313,60.0406 -123.9327,60.0592 -123.9395,60.0677 -123.9477,60.0765 -123.947,60.0806 -123.9504,60.0959 -123.9578,60.1007 -123.9666,60.1059 -123.9805,60.1117 -123.9962,60.1249 -124.009,60.1332 -124.0186,60.1384 -124.0347,60.1495 -124.0479,60.1597 -124.0551,60.1703 -124.0594,60.1809 -124.0633,60.1937 -124.072,60.2044 -124.0792,60.2151 -124.0927,60.2238 -124.103,60.239 -124.1145,60.2506 -124.1234,60.2606 -124.1284,60.2712 -124.1384,60.2835 -124.1417,60.291 -124.1477,60.2998 -124.1532,60.3126 -124.1609,60.3207 -124.1619,60.333 -124.1592,60.3407 -124.1563,60.3446 -124.1531,60.3549 -124.1495,60.3681 -124.1505,60.3759 -124.1478,60.3877 -124.148,60.3959 -124.1515,60.4019 -124.1554,60.4058 -124.1654,60.4092 -124.1754,60.4121 -124.1855,60.4148 -124.2054,60.417 -124.2301,60.418 -124.2683,60.4187 -124.2932,60.4182 -124.3144,60.4171 -124.3393,60.4162 -124.3516,60.4145 -124.3602,60.417 -124.3603,60.4218 -124.361,60.4267 -124.3611,60.436 -124.3596,60.4452 -124.3577,60.4525 -124.3552,60.4591 -124.3571,60.471 -124.3633,60.4794 -124.3691,60.4863 -124.3812,60.4953 -124.3888,60.5 -124.3992,60.5056 -124.403,60.5102 -124.4165,60.5204 -124.4284,60.5312 -124.4402,60.5427 -124.4641,60.5592 -124.4823,60.5688 -124.5017,60.5754 -124.5239,60.5929 -124.5401,60.6061 -124.5598,60.6305 -124.5645,60.6396 -124.5649,60.6474 -124.5576,60.6556 -124.5475,60.662 -124.5378,60.6661 -124.5355,60.6712 -124.5301,60.6769 -124.5141,60.683 -124.4952,60.6879 -124.4787,60.6962 -124.4528,60.7071 -124.4441,60.7145 -124.4339,60.7216 -124.4218,60.7308 -124.4201,60.737 -124.4228,60.7442 -124.4311,60.7493 -124.4451,60.7524 -124.4567,60.7558 -124.465,60.7609 -124.4682,60.7647 -124.472,60.7745 -124.4759,60.7791 -124.4778,60.7866 -124.4768,60.7929 -124.4776,60.7977 -124.4811,60.8049 -124.4856,60.8199 -124.4929,60.8372 -124.4986,60.8544 -124.5061,60.8699 -124.5146,60.8895 -124.5271,60.9022 -124.5324,60.9076 -124.5425,60.9116 -124.5522,60.9131 -124.5613,60.9134 -124.5652,60.9124 -124.5681,60.9088 -124.5741,60.9042 -124.5809,60.8993 -124.5875,60.8962 -124.5983,60.8951 -124.6135,60.8956 -124.6283,60.8987 -124.6432,60.9007 -124.6548,60.9 -124.6729,60.901 -124.6896,60.902 -124.7057,60.9062 -124.7106,60.9094 -124.7192,60.9134 -124.7304,60.9201 -124.7383,60.9233 -124.7436,60.9235 -124.7467,60.9232 -124.754,60.9201 -124.7562,60.9154 -124.7613,60.9067 -124.7658,60.902 -124.7744,60.8949 -124.7858,60.8849 -124.7927,60.8792 -124.8019,60.8736 -124.8069,60.8656 -124.8083,60.8605 -124.8049,60.8526 -124.7994,60.8383 -124.7955,60.8278 -124.7955,60.8174 -124.7982,60.8094 -124.8018,60.805 -124.8097,60.8031 -124.822,60.802 -124.8425,60.8023 -124.8689,60.8036 -124.889,60.8065 -124.9092,60.8094 -124.93,60.8098 -124.9357,60.8099 -124.9492,60.8111 -124.96,60.81 -124.9724,60.8081 -124.9975,60.8027 -125.0136,60.8017 -125.034,60.802 -125.0553,60.8019 -125.0721,60.8017 -125.0958,60.8003 -125.1171,60.8002 -125.1273,60.7976 -125.1337,60.7952 -125.1396,60.7909 -125.1449,60.7851 -125.1501,60.7809 -125.1561,60.7755 -125.1713,60.7693 -125.1865,60.7635 -125.193,60.76 -125.2014,60.7543 -125.2156,60.7436 -125.2231,60.7391 -125.238,60.7347 -125.2474,60.7328 -125.2642,60.7318 -125.2764,60.7307 -125.2916,60.7308 -125.3142,60.7322 -125.3276,60.7334 -125.3411,60.7349 -125.3619,60.7385 -125.3766,60.7419 -125.392,60.7464 -125.4126,60.7514 -125.4301,60.7571 -125.4447,60.7613 -125.4792,60.7712 -125.5008,60.774 -125.5091,60.775 -125.5129,60.7744 -125.5206,60.7735 -125.5299,60.7723 -125.5407,60.7707 -125.5574,60.7705 -125.5686,60.7719 -125.5867,60.7731 -125.6086,60.7738 -125.621,60.7719 -125.6405,60.7732 -125.6515,60.7764 -125.6681,60.7843 -125.678,60.7905 -125.6923,60.7983 -125.7242,60.8114 -125.7457,60.816 -125.751,60.8228 -125.7705,60.8319 -125.7848,60.8397 -125.7996,60.843 -125.8117,60.8434 -125.8322,60.8372 -125.8479,60.8325 -125.8629,60.8277 -125.8815,60.817 -125.8989,60.8108 -125.9096,60.8037 -125.9167,60.7943 -125.9184,60.7851 -125.9228,60.7729 -125.9293,60.762 -125.9279,60.7538 -125.9336,60.7503 -125.9443,60.7494 -125.9541,60.7493 -125.9622,60.7514 -125.971,60.7546 -125.9798,60.7577 -125.9901,60.7602 -126.003,60.7606 -126.0159,60.7598 -126.0301,60.762 -126.0401,60.7678 -126.0473,60.7717 -126.0512,60.7777 -126.052,60.7851 -126.0513,60.7917 -126.0432,60.7967 -126.0394,60.8033 -126.0359,60.8076 -126.0401,60.8115 -126.0453,60.8127 -126.0568,60.8111 -126.0774,60.8102 -126.112,60.8066 -126.1317,60.8063 -126.1501,60.8053 -126.1716,60.8028 -126.1772,60.7992 -126.1768,60.7959 -126.1703,60.7928 -126.1649,60.786 -126.1597,60.7777 -126.156,60.7695 -126.1585,60.7592 -126.1685,60.7505 -126.1784,60.7426 -126.1926,60.7363 -126.2097,60.7323 -126.2368,60.7263 -126.2843,60.7203 -126.3055,60.7208 -126.3174,60.7226 -126.3307,60.7258 -126.3404,60.7275 -126.3524,60.7285 -126.3605,60.7317 -126.3692,60.7352 -126.3795,60.7388 -126.3891,60.7416 -126.4033,60.7434 -126.4144,60.7466 -126.4261,60.7509 -126.4376,60.7575 -126.4456,60.7613 -126.4546,60.7623 -126.4622,60.7617 -126.4678,60.7588 -126.4756,60.7564 -126.4873,60.7522 -126.4952,60.7487 -126.5164,60.7407 -126.5393,60.73 -126.555,60.7237 -126.5738,60.7086 -126.585,60.7014 -126.5916,60.6956 -126.6024,60.6929 -126.6091,60.6938 -126.6135,60.6953 -126.6201,60.6984 -126.6264,60.7041 -126.6311,60.7105 -126.6412,60.7159 -126.6582,60.7218 -126.6711,60.7294 -126.6815,60.7322 -126.6921,60.7317 -126.7159,60.7277 -126.7298,60.7251 -126.7362,60.7204 -126.7387,60.7175 -126.7407,60.7123 -126.7463,60.7084 -126.7562,60.7071 -126.7652,60.708 -126.7719,60.7096 -126.7814,60.7146 -126.7975,60.7208 -126.8129,60.7271 -126.8205,60.7357 -126.823,60.7428 -126.8239,60.7502 -126.8216,60.7605 -126.8138,60.7718 -126.8057,60.7791 -126.8035,60.7864 -126.8062,60.7909 -126.8128,60.7936 -126.8203,60.7953 -126.833,60.7977 -126.8455,60.802 -126.8512,60.8066 -126.8508,60.8118 -126.849,60.8158 -126.8424,60.8216 -126.8343,60.8281 -126.833,60.8347 -126.8348,60.8418 -126.8371,60.8507 -126.8409,60.8597 -126.8417,60.8693 -126.8375,60.8737 -126.8357,60.8768 -126.8338,60.8819 -126.8327,60.8867 -126.8329,60.8937 -126.8331,60.8997 -126.8384,60.9105 -126.8424,60.9176 -126.8476,60.9282 -126.8553,60.9373 -126.8629,60.9463 -126.8728,60.9564 -126.8817,60.9692 -126.8828,60.9744 -126.88,60.9808 -126.8789,60.9849 -126.8754,60.9903 -126.8719,60.9966 -126.87,61.0013 -126.8712,61.0058 -126.8773,61.0098 -126.8855,61.0125 -126.8922,61.0145 -126.9013,61.0154 -126.9124,61.0158 -126.9189,61.0157 -126.9258,61.0148 -126.9358,61.0135 -126.9487,61.0096 -126.9575,61.0053 -126.9729,60.9986 -126.9842,60.9899 -126.9936,60.9871 -127.0014,60.985 -127.0074,60.9855 -127.0126,60.9875 -127.0163,60.9901 -127.0183,60.9938 -127.0202,60.9992 -127.0251,61.0045 -127.0335,61.0098 -127.037,61.0136 -127.0437,61.0163 -127.0456,61.0215 -127.0452,61.0267 -127.0412,61.0338 -127.038,61.0371 -127.0316,61.0399 -127.023,61.0428 -127.0001,61.0475 -126.9831,61.0502 -126.9729,61.0533 -126.9673,61.0569 -126.9632,61.0606 -126.9596,61.0668 -126.9539,61.0767 -126.9568,61.0832 -126.9607,61.0875 -126.9703,61.0921 -126.9761,61.0967 -126.9812,61.0999 -126.9829,61.1033 -126.9783,61.1073 -126.967,61.1148 -126.9551,61.1213 -126.9442,61.1281 -126.9414,61.1343 -126.9402,61.1393 -126.938,61.1485 -126.9389,61.1563 -126.9412,61.1615 -126.9463,61.1653 -126.9527,61.1721 -126.9601,61.1796 -126.9664,61.1875 -126.9692,61.1916 -126.9695,61.1972 -126.9698,61.2035 -126.9707,61.2124 -126.9738,61.2211 -126.9755,61.2293 -126.9774,61.2343 -126.9781,61.236 -126.9789,61.2399 -126.9817,61.244 -126.9873,61.2511 -126.9912,61.261 -126.9997,61.2704 -127.0008,61.2763 -127.003,61.2828 -127.0017,61.29 -126.999,61.294 -126.9949,61.2984 -126.993,61.3021 -126.9935,61.3058 -126.9971,61.3095 -127.0055,61.3156 -127.0143,61.3209 -127.0238,61.3233 -127.0355,61.3267 -127.0492,61.3287 -127.059,61.3326 -127.064,61.3373 -127.0652,61.3421 -127.0647,61.3484 -127.0642,61.3562 -127.0642,61.3614 -127.0649,61.3664 -127.0672,61.3727 -127.0685,61.3812 -127.0703,61.3879 -127.077,61.4065 -127.0817,61.4162 -127.087,61.4178 -127.0962,61.4187 -127.1036,61.4184 -127.1111,61.4163 -127.1213,61.415 -127.1352,61.4152 -127.1479,61.416 -127.1538,61.4194 -127.1574,61.4228 -127.1639,61.4294 -127.169,61.4335 -127.1726,61.4384 -127.1795,61.4444 -127.1845,61.4501 -127.1958,61.4543 -127.2188,61.4584 -127.2341,61.4605 -127.2476,61.4614 -127.2654,61.4613 -127.277,61.4615 -127.2902,61.4606 -127.2996,61.4596 -127.309,61.4579 -127.3188,61.4558 -127.3251,61.4539 -127.338,61.4534 -127.3484,61.4535 -127.3588,61.4544 -127.3734,61.4565 -127.3833,61.4581 -127.3934,61.4586 -127.4054,61.4575 -127.418,61.4547 -127.4296,61.4541 -127.4367,61.4524 -127.4514,61.4526 -127.4591,61.4527 -127.4683,61.4543 -127.4824,61.4577 -127.4931,61.4604 -127.5007,61.4631 -127.5066,61.4672 -127.514,61.4745 -127.5183,61.4787 -127.5248,61.4804 -127.5325,61.4809 -127.5441,61.4816 -127.5521,61.4838 -127.5613,61.4854 -127.5763,61.4885 -127.5873,61.4924 -127.5949,61.4947 -127.6002,61.4973 -127.6042,61.5011 -127.6063,61.5055 -127.6099,61.51 -127.6131,61.5149 -127.6134,61.5158 -127.6148,61.5195 -127.6179,61.526 -127.6215,61.5312 -127.6297,61.5365 -127.6381,61.5392 -127.6474,61.5404 -127.6624,61.5417 -127.6733,61.5421 -127.6875,61.5448 -127.7067,61.5477 -127.7178,61.5504 -127.7278,61.5527 -127.7323,61.555 -127.7391,61.5584 -127.7498,61.5626 -127.7698,61.5734 -127.7815,61.5803 -127.794,61.5868 -127.8056,61.5947 -127.8138,61.6014 -127.8257,61.6125 -127.8343,61.619 -127.8392,61.6226 -127.8457,61.6245 -127.855,61.6261 -127.8678,61.6275 -127.8755,61.6291 -127.8873,61.6331 -127.8946,61.6359 -127.9034,61.639 -127.9102,61.6431 -127.9169,61.6488 -127.9298,61.6568 -127.9344,61.6672 -127.9365,61.6724 -127.937,61.6787 -127.9359,61.6843 -127.9349,61.6964 -127.9315,61.7034 -127.9324,61.7088 -127.9345,61.7142 -127.9351,61.7173 -127.9388,61.7214 -127.9433,61.7259 -127.9507,61.7345 -127.9529,61.7388 -127.9558,61.7425 -127.958,61.7466 -127.9631,61.7544 -127.9675,61.7589 -127.974,61.7634 -127.98,61.7675 -127.9845,61.7724 -127.9881,61.7787 -127.9933,61.7857 -127.9993,61.7902 -128.005,61.7938 -128.0154,61.7991 -128.0207,61.8021 -128.0323,61.8052 -128.0429,61.8058 -128.0507,61.8055 -128.0624,61.8053 -128.075,61.8054 -128.0836,61.8047 -128.093,61.8033 -128.1045,61.8005 -128.118,61.7966 -128.1334,61.7913 -128.1406,61.7896 -128.1476,61.7904 -128.1514,61.7926 -128.1544,61.7956 -128.1574,61.7997 -128.1595,61.8049 -128.1627,61.8121 -128.1648,61.818 -128.1654,61.8245 -128.166,61.829 -128.1667,61.8312 -128.1673,61.8349 -128.1687,61.8393 -128.17,61.8452 -128.1721,61.851 -128.1758,61.8573 -128.1802,61.864 -128.1854,61.8716 -128.1922,61.8787 -128.1982,61.8854 -128.2035,61.8908 -128.2088,61.8953 -128.2154,61.8979 -128.2239,61.901 -128.234,61.9042 -128.2429,61.9076 -128.2486,61.9111 -128.2555,61.9184 -128.2607,61.9236 -128.2705,61.9267 -128.2767,61.9286 -128.2876,61.9318 -128.2992,61.9348 -128.3073,61.9386 -128.3127,61.9421 -128.3162,61.9444 -128.3192,61.9474 -128.3183,61.9525 -128.3141,61.9593 -128.3124,61.9626 -128.3107,61.966 -128.3098,61.9689 -128.3113,61.9719 -128.3167,61.9741 -128.3257,61.9764 -128.3326,61.9798 -128.3396,61.983 -128.3505,61.9879 -128.3601,61.9942 -128.3709,61.9998 -128.3786,62.0051 -128.393,62.0115 -128.4046,62.016 -128.4162,62.0231 -128.4279,62.0287 -128.4355,62.0369 -128.4404,62.0434 -128.4466,62.0486 -128.4488,62.053 -128.4545,62.0581 -128.4631,62.0624 -128.4763,62.068 -128.4888,62.072 -128.4951,62.074 -128.5022,62.0756 -128.5132,62.0767 -128.5215,62.0768 -128.5274,62.0765 -128.5329,62.0756 -128.5381,62.0745 -128.5453,62.0727 -128.5544,62.0702 -128.5607,62.0709 -128.5634,62.0713 -128.5721,62.0738 -128.5815,62.0764 -128.5913,62.0783 -128.6007,62.0789 -128.6094,62.0793 -128.6138,62.0794 -128.6189,62.0785 -128.6225,62.0774 -128.6257,62.0752 -128.6406,62.0634 -128.6735,62.04 -128.6816,62.033 -128.6845,62.0278 -128.6857,62.0234 -128.6883,62.0164 -128.6892,62.0112 -128.6909,62.0063 -128.6941,62.003 -128.698,62.0019 -128.7075,62.0019 -128.7154,62.0031 -128.7236,62.0042 -128.7295,62.0061 -128.7373,62.0087 -128.7447,62.0106 -128.7553,62.0121 -128.764,62.0127 -128.7711,62.0131 -128.7765,62.0153 -128.7792,62.0189 -128.7815,62.0226 -128.7861,62.0278 -128.7883,62.0342 -128.7905,62.0424 -128.7963,62.0498 -128.8057,62.0561 -128.8178,62.0591 -128.8265,62.0603 -128.8367,62.0603 -128.8474,62.0596 -128.8605,62.0574 -128.8703,62.0567 -128.8743,62.0569 -128.8786,62.0584 -128.8841,62.0607 -128.8926,62.0664 -128.9004,62.072 -128.9098,62.0805 -128.9207,62.0854 -128.9278,62.0867 -128.9314,62.0858 -128.937,62.0836 -128.9417,62.0803 -128.9501,62.0748 -128.958,62.0729 -128.9675,62.0726 -128.977,62.075 -128.9844,62.0773 -128.9896,62.0773 -128.9975,62.0751 -128.9999,62.0721 -129.0039,62.0688 -129.011,62.0653 -129.0209,62.0617 -129.0359,62.0602 -129.047,62.0595 -129.0592,62.0595 -129.0738,62.0603 -129.0837,62.0618 -129.0931,62.0628 -129.1041,62.065 -129.1104,62.0676 -129.1159,62.0706 -129.1206,62.0748 -129.1277,62.0789 -129.1324,62.083 -129.1379,62.0883 -129.1461,62.0946 -129.1532,62.0995 -129.163,62.1019 -129.1713,62.1028 -129.1808,62.1019 -129.1875,62.1015 -129.1946,62.1008 -129.2013,62.101 -129.2069,62.1018 -129.21,62.1051 -129.2108,62.108 -129.2115,62.1125 -129.2083,62.1193 -129.1956,62.1256 -129.1861,62.1291 -129.1687,62.1368 -129.1587,62.1419 -129.1512,62.1454 -129.1428,62.1502 -129.1364,62.1554 -129.1281,62.1607 -129.1225,62.1648 -129.1201,62.1688 -129.1221,62.1701 -129.1292,62.1703 -129.1363,62.1707 -129.1466,62.1711 -129.1581,62.1719 -129.1688,62.1739 -129.1751,62.175 -129.1806,62.1769 -129.1853,62.1799 -129.1877,62.1832 -129.1892,62.1869 -129.1916,62.1921 -129.1947,62.197 -129.1971,62.2011 -129.2026,62.2048 -129.2097,62.2081 -129.2172,62.2131 -129.2247,62.2168 -129.2294,62.222 -129.229,62.2274 -129.2266,62.2333 -129.2214,62.2375 -129.2178,62.242 -129.2158,62.2464 -129.2158,62.2488 -129.2181,62.2521 -129.2209,62.2562 -129.224,62.2582 -129.2312,62.2627 -129.2359,62.2671 -129.2359,62.2708 -129.2351,62.2754 -129.2327,62.2798 -129.2259,62.2857 -129.2219,62.2905 -129.2186,62.2942 -129.2151,62.2972 -129.2047,62.3023 -129.1947,62.3064 -129.1879,62.3097 -129.1863,62.3123 -129.1819,62.3174 -129.1787,62.3204 -129.1739,62.3215 -129.1652,62.3218 -129.1548,62.3226 -129.1508,62.324 -129.152,62.3255 -129.1619,62.3285 -129.1726,62.3322 -129.1786,62.334 -129.1949,62.3367 -129.2116,62.3385 -129.2215,62.3411 -129.2283,62.345 -129.233,62.3495 -129.2354,62.3535 -129.237,62.3576 -129.2405,62.36 -129.2417,62.3628 -129.2409,62.3661 -129.2393,62.3687 -129.2353,62.3716 -129.2341,62.3725 -129.2277,62.3747 -129.2221,62.3773 -129.2073,62.3825 -129.2057,62.3841 -129.2085,62.3858 -129.2117,62.3873 -129.2156,62.3891 -129.2164,62.3921 -129.2172,62.3958 -129.2156,62.4 -129.2144,62.4024 -129.2084,62.4046 -129.2036,62.4057 -129.1956,62.4068 -129.1892,62.4072 -129.174,62.4068 -129.1581,62.4062 -129.1505,62.4069 -129.1425,62.4095 -129.1361,62.4108 -129.1265,62.413 -129.1185,62.4159 -129.1125,62.4179 -129.1093,62.42 -129.1093,62.4222 -129.1112,62.4261 -129.1136,62.4288 -129.1151,62.4318 -129.1175,62.4362 -129.1211,62.4407 -129.1242,62.4436 -129.1286,62.4457 -129.1409,62.4485 -129.1489,62.4522 -129.1545,62.4559 -129.1624,62.4611 -129.1724,62.4659 -129.1783,62.4694 -129.1911,62.4716 -129.2107,62.4733 -129.2207,62.4748 -129.2295,62.4763 -129.2394,62.4778 -129.247,62.4789 -129.2538,62.4808 -129.2642,62.4834 -129.273,62.4867 -129.285,62.4908 -129.2902,62.4937 -129.2993,62.5004 -129.3081,62.5063 -129.3181,62.5142 -129.3277,62.5205 -129.3397,62.5268 -129.3517,62.5327 -129.3629,62.536 -129.3769,62.5384 -129.3897,62.5388 -129.3969,62.5388 -129.4034,62.5381 -129.4098,62.5355 -129.413,62.5333 -129.4158,62.5301 -129.4198,62.5261 -129.4238,62.5231 -129.4286,62.5209 -129.4342,62.518 -129.4526,62.5126 -129.4638,62.5122 -129.4702,62.5137 -129.475,62.5152 -129.479,62.5166 -129.4814,62.5189 -129.4838,62.5222 -129.4855,62.5255 -129.4855,62.5299 -129.4839,62.5336 -129.4815,62.5369 -129.4759,62.5406 -129.4711,62.5429 -129.4643,62.5451 -129.4611,62.5458 -129.4522,62.5477 -129.4454,62.549 -129.439,62.5517 -129.433,62.5549 -129.4262,62.5586 -129.4238,62.5623 -129.4214,62.5682 -129.4186,62.5743 -129.4194,62.5768 -129.4218,62.5794 -129.4254,62.5822 -129.4298,62.5839 -129.4338,62.5857 -129.4406,62.5883 -129.4507,62.5918 -129.4619,62.5953 -129.4668,62.599 -129.4684,62.6021 -129.4619,62.6045 -129.4563,62.6064 -129.4499,62.6086 -129.4451,62.6106 -129.4423,62.6125 -129.4423,62.6156 -129.4431,62.6188 -129.4463,62.621 -129.4491,62.623 -129.4519,62.6243 -129.4592,62.6256 -129.4688,62.6271 -129.4785,62.6282 -129.4817,62.6322 -129.4841,62.6366 -129.4869,62.6424 -129.4914,62.6448 -129.497,62.6459 -129.5058,62.6468 -129.5147,62.646 -129.5235,62.6453 -129.5304,62.646 -129.5344,62.6488 -129.5408,62.6543 -129.5469,62.6595 -129.5493,62.6632 -129.5526,62.6698 -129.5562,62.6778 -129.5587,62.6814 -129.5635,62.6851 -129.5696,62.6888 -129.5752,62.6918 -129.5805,62.6949 -129.5797,62.6975 -129.5724,62.699 -129.5676,62.6999 -129.5624,62.7014 -129.5584,62.7029 -129.5584,62.7056 -129.5608,62.7082 -129.5648,62.7108 -129.5697,62.7126 -129.5754,62.7159 -129.5806,62.7193 -129.5855,62.7233 -129.5911,62.7277 -129.5944,62.7318 -129.596,62.7362 -129.5968,62.7395 -129.6009,62.7443 -129.609,62.748 -129.6171,62.751 -129.6203,62.7535 -129.6212,62.7583 -129.6212,62.7624 -129.622,62.7657 -129.6253,62.769 -129.6301,62.7724 -129.6382,62.7734 -129.6435,62.7755 -129.6492,62.7768 -129.6568,62.7793 -129.665,62.7819 -129.6755,62.7859 -129.6836,62.7907 -129.6885,62.7955 -129.6926,62.8007 -129.6995,62.808 -129.7044,62.8114 -129.7069,62.8173 -129.7069,62.8224 -129.7054,62.83 -129.703,62.8342 -129.7006,62.8365 -129.6966,62.8372 -129.6885,62.8372 -129.6848,62.8369 -129.68,62.8361 -129.6718,62.8343 -129.6597,62.8319 -129.6475,62.8308 -129.6403,62.8308 -129.637,62.8325 -129.6338,62.8347 -129.6355,62.8364 -129.6363,62.839 -129.6395,62.8412 -129.6444,62.8441 -129.6517,62.8478 -129.6586,62.8526 -129.6635,62.8563 -129.6684,62.8611 -129.6681,62.8655 -129.6624,62.8683 -129.656,62.872 -129.6495,62.8761 -129.6386,62.8818 -129.633,62.8883 -129.6298,62.8931 -129.6282,62.8975 -129.6274,62.9016 -129.6262,62.9032 -129.623,62.9053 -129.6197,62.9066 -129.6056,62.9114 -129.6003,62.9138 -129.5979,62.9156 -129.5979,62.918 -129.5987,62.9201 -129.6,62.9236 -129.6016,62.9276 -129.6029,62.9326 -129.6037,62.937 -129.6017,62.9437 -129.5993,62.9488 -129.5961,62.9537 -129.5872,62.9616 -129.5783,62.966 -129.5694,62.9716 -129.558,62.976 -129.5438,62.9812 -129.5365,62.986 -129.5341,62.9897 -129.5333,62.993 -129.5349,62.9967 -129.5402,63.0022 -129.5451,63.0082 -129.5476,63.0142 -129.5493,63.0198 -129.5509,63.024 -129.5542,63.027 -129.557,63.0288 -129.5636,63.0301 -129.5709,63.0305 -129.579,63.029 -129.5855,63.0275 -129.5908,63.0254 -129.6022,63.0236 -129.6164,63.0206 -129.6213,63.0199 -129.6307,63.0189 -129.6445,63.0189 -129.6596,63.0193 -129.6787,63.0196 -129.686,63.0192 -129.6925,63.0186 -129.7015,63.0186 -129.7096,63.0193 -129.7121,63.0212 -129.715,63.0241 -129.7166,63.0278 -129.7208,63.0308 -129.7269,63.0322 -129.7419,63.0337 -129.7607,63.0344 -129.775,63.0351 -129.7823,63.0358 -129.7831,63.0384 -129.7796,63.045 -129.776,63.0517 -129.7687,63.0596 -129.768,63.064 -129.7688,63.0657 -129.7737,63.0686 -129.779,63.0701 -129.7831,63.0716 -129.7897,63.0738 -129.795,63.0762 -129.7979,63.078 -129.8008,63.0811 -129.8021,63.0841 -129.8038,63.0889 -129.8038,63.0935 -129.8039,63.0986 -129.8064,63.1031 -129.8113,63.1079 -129.8167,63.1137 -129.8217,63.1163 -129.8242,63.1196 -129.8234,63.1226 -129.8218,63.1259 -129.8194,63.1292 -129.8194,63.1311 -129.8219,63.1329 -129.8244,63.1336 -129.8289,63.1349 -129.8362,63.1364 -129.8436,63.1376 -129.8469,63.141 -129.8519,63.1457 -129.8552,63.1487 -129.8601,63.15 -129.8675,63.151 -129.8712,63.151 -129.8777,63.1479 -129.885,63.1434 -129.8907,63.1412 -129.898,63.1395 -129.9004,63.1378 -129.9085,63.1319 -129.9142,63.1286 -129.9182,63.1282 -129.9231,63.1282 -129.9264,63.1289 -129.93,63.1309 -129.93,63.1318 -129.9306,63.1346 -129.9307,63.1368 -129.9307,63.1409 -129.93,63.1464 -129.9317,63.1495 -129.9351,63.1573 -129.9384,63.1604 -129.943,63.1626 -129.9463,63.1666 -129.9493,63.1731 -129.951,63.1794 -129.9557,63.1862 -129.9627,63.1926 -129.971,63.1974 -129.9789,63.2014 -129.9854,63.2032 -129.9957,63.2046 -130.0072,63.2052 -130.0166,63.2049 -130.0248,63.2042 -130.0342,63.203 -130.044,63.2015 -130.0554,63.2 -130.0701,63.1977 -130.0844,63.1956 -130.1,63.1955 -130.1073,63.1962 -130.1106,63.1969 -130.1123,63.1984 -130.1124,63.2003 -130.1116,63.2019 -130.1075,63.2042 -130.1027,63.2064 -130.0949,63.2086 -130.0909,63.2112 -130.0865,63.2155 -130.0849,63.2181 -130.0842,63.2223 -130.0851,63.2268 -130.0869,63.2328 -130.0878,63.2373 -130.0863,63.2421 -130.0869,63.2498 -130.0837,63.2541 -130.0796,63.258 -130.0739,63.2598 -130.0654,63.2615 -130.0563,63.262 -130.0481,63.262 -130.0342,63.2617 -130.0223,63.2638 -130.017,63.2658 -130.0146,63.269 -130.0114,63.2716 -130.0094,63.274 -130.0078,63.2777 -130.0067,63.2812 -129.9994,63.2869 -129.9941,63.2884 -129.9887,63.2892 -129.9817,63.2886 -129.9706,63.288 -129.9604,63.288 -129.9547,63.291 -129.9465,63.2939 -129.9359,63.2968 -129.93,63.2979 -129.924,63.299 -129.9158,63.2998 -129.894,63.3008 -129.8842,63.3019 -129.8793,63.3034 -129.8752,63.3053 -129.8732,63.3075 -129.8703,63.311 -129.8679,63.3143 -129.8639,63.3162 -129.8536,63.3179 -129.8425,63.319 -129.836,63.3209 -129.8302,63.3227 -129.8262,63.325 -129.8246,63.3287 -129.8246,63.3307 -129.8255,63.3355 -129.8288,63.3393 -129.8313,63.3427 -129.8355,63.346 -129.8426,63.3515 -129.8492,63.3574 -129.8551,63.3621 -129.8638,63.368 -129.8697,63.3735 -129.8689,63.3774 -129.8656,63.3804 -129.8595,63.3835 -129.8526,63.3874 -129.8514,63.3913 -129.8498,63.3946 -129.8482,63.3994 -129.8475,63.4053 -129.845,63.4087 -129.8406,63.4133 -129.8365,63.4162 -129.8278,63.4174 -129.8208,63.4174 -129.8113,63.4167 -129.8026,63.415 -129.7878,63.4125 -129.7745,63.4092 -129.7596,63.4041 -129.7439,63.3999 -129.7369,63.4005 -129.7328,63.4018 -129.7307,63.4031 -129.7299,63.4049 -129.7316,63.4075 -129.7341,63.4101 -129.7374,63.4121 -129.7437,63.4146 -129.7495,63.417 -129.7594,63.4207 -129.7656,63.4244 -129.7727,63.4303 -129.7761,63.4347 -129.7819,63.4393 -129.7927,63.4466 -129.8011,63.4532 -129.8028,63.4599 -129.8066,63.465 -129.8099,63.4674 -129.8149,63.47 -129.8216,63.4724 -129.8286,63.4746 -129.8308,63.479 -129.83,63.4819 -129.8292,63.4854 -129.8292,63.4884 -129.8314,63.493 -129.836,63.4968 -129.8402,63.5011 -129.8464,63.5051 -129.8514,63.5081 -129.8606,63.5113 -129.8681,63.5132 -129.8776,63.515 -129.8905,63.5175 -129.9092,63.5202 -129.9233,63.5231 -129.9275,63.5257 -129.93,63.5294 -129.9303,63.5318 -129.9302,63.5334 -129.93,63.5386 -129.9294,63.5421 -129.9271,63.5524 -129.9276,63.5572 -129.9285,63.5602 -129.93,63.5626 -129.9315,63.5652 -129.9357,63.5664 -129.9423,63.5664 -129.9464,63.5662 -129.9547,63.5654 -129.963,63.5639 -129.9712,63.5624 -129.9828,63.5602 -129.9919,63.559 -130.0002,63.5594 -130.0044,63.5597 -130.0135,63.5623 -130.0177,63.5659 -130.0237,63.5722 -130.0296,63.5775 -130.0372,63.5852 -130.0411,63.5909 -130.0449,63.5948 -130.0508,63.5986 -130.055,63.6015 -130.0617,63.6063 -130.0626,63.6096 -130.0619,63.6115 -130.0611,63.6141 -130.0595,63.6154 -130.0557,63.617 -130.0516,63.6185 -130.0467,63.6211 -130.0409,63.6239 -130.0344,63.6267 -130.0286,63.6301 -130.0253,63.6334 -130.0246,63.6371 -130.0255,63.64 -130.028,63.6422 -130.0314,63.6428 -130.0489,63.6442 -130.0593,63.6449 -130.0692,63.6439 -130.0837,63.6412 -130.0945,63.6382 -130.1039,63.6356 -130.1151,63.6326 -130.1258,63.6268 -130.1356,63.622 -130.1545,63.6123 -130.1652,63.6093 -130.1726,63.6071 -130.1813,63.6067 -130.1938,63.607 -130.2009,63.6069 -130.2071,63.608 -130.2151,63.61 -130.2222,63.6129 -130.2344,63.6196 -130.2403,63.6233 -130.2523,63.633 -130.2603,63.6381 -130.2667,63.6449 -130.2686,63.6508 -130.2704,63.6561 -130.2697,63.6606 -130.2656,63.6639 -130.2599,63.6662 -130.2557,63.6671 -130.2499,63.6679 -130.2366,63.6687 -130.2204,63.6695 -130.1951,63.67 -130.171,63.6716 -130.1614,63.6724 -130.1577,63.6735 -130.1552,63.675 -130.1536,63.6771 -130.152,63.6796 -130.1513,63.6843 -130.1531,63.6887 -130.1516,63.6953 -130.1513,63.7001 -130.1489,63.7034 -130.1435,63.7046 -130.1377,63.7053 -130.1297,63.7047 -130.1172,63.7031 -130.1034,63.7016 -130.0788,63.701 -130.0672,63.7025 -130.0589,63.7052 -130.0527,63.7085 -130.0474,63.7139 -130.045,63.717 -130.0426,63.7209 -130.0402,63.725 -130.0403,63.7298 -130.0416,63.7351 -130.043,63.7421 -130.0465,63.7454 -130.0519,63.748 -130.057,63.7502 -130.065,63.7523 -130.0684,63.7549 -130.0752,63.76 -130.079,63.7652 -130.0816,63.7696 -130.0826,63.7759 -130.0802,63.7814 -130.0786,63.7855 -130.0763,63.7903 -130.0713,63.7949 -130.0656,63.799 -130.064,63.803 -130.0645,63.8047 -130.0645,63.8069 -130.0671,63.8091 -130.0696,63.8113 -130.0743,63.8131 -130.0789,63.8155 -130.0869,63.8157 -130.0881,63.816 -130.0952,63.8156 -130.1019,63.8147 -130.1127,63.812 -130.1202,63.8113 -130.1269,63.8116 -130.1336,63.813 -130.1417,63.8167 -130.1573,63.8214 -130.1652,63.8228 -130.1698,63.8232 -130.1757,63.8228 -130.179,63.8213 -130.1823,63.82 -130.1843,63.8178 -130.1859,63.8146 -130.1863,63.8117 -130.1845,63.8084 -130.1836,63.8052 -130.1831,63.8016 -130.1868,63.798 -130.1913,63.7949 -130.1971,63.7926 -130.2054,63.7907 -130.2158,63.789 -130.2266,63.7871 -130.2382,63.7859 -130.2474,63.7844 -130.2532,63.7826 -130.259,63.7805 -130.2647,63.7766 -130.2709,63.7751 -130.2759,63.7743 -130.2789,63.7747 -130.2831,63.7756 -130.2894,63.7777 -130.2928,63.7796 -130.2963,63.7836 -130.2977,63.7887 -130.3003,63.7935 -130.3042,63.799 -130.3068,63.802 -130.3128,63.8051 -130.3183,63.8072 -130.328,63.8105 -130.3378,63.816 -130.349,63.8253 -130.3541,63.8297 -130.3593,63.8341 -130.3636,63.8374 -130.3687,63.8412 -130.3747,63.8449 -130.3866,63.8498 -130.3934,63.8534 -130.4045,63.8581 -130.4155,63.8617 -130.4244,63.8643 -130.4366,63.8666 -130.4425,63.868 -130.4489,63.872 -130.4549,63.8764 -130.4592,63.8791 -130.4668,63.8811 -130.4736,63.8814 -130.4798,63.8812 -130.4886,63.8799 -130.496,63.877 -130.5047,63.8744 -130.5122,63.8732 -130.5148,63.8732 -130.5198,63.8743 -130.5237,63.8757 -130.5322,63.8786 -130.5407,63.8822 -130.5467,63.8855 -130.5552,63.8895 -130.5697,63.896 -130.5752,63.898 -130.5854,63.8998 -130.5926,63.9008 -130.606,63.9005 -130.6202,63.9002 -130.6295,63.9005 -130.6354,63.9012 -130.6443,63.9041 -130.6537,63.9092 -130.6589,63.9119 -130.6644,63.9141 -130.6763,63.9165 -130.6882,63.9194 -130.6959,63.9241 -130.7029,63.9292 -130.7081,63.9332 -130.7193,63.9401 -130.7246,63.9456 -130.7255,63.95 -130.7179,63.9648 -130.7079,63.9732 -130.682,63.9845 -130.6792,63.9937 -130.7612,64.0002 -130.7917,63.9916 -130.8195,63.9922 -130.8314,63.9957 -130.824,64.0099 -130.8239,64.0325 -130.8411,64.04 -130.8443,64.0548 -130.8722,64.0554 -130.902,64.0604 -130.8913,64.0749 -130.9212,64.0798 -130.9059,64.0992 -130.8667,64.1041 -130.8054,64.129 -130.8466,64.1511 -130.8938,64.1409 -130.9058,64.152 -130.8805,64.1647 -130.921,64.2079 -130.9817,64.2268 -130.9783,64.2195 -130.987,64.2157 -131.001,64.2311 -131.0144,64.2299 -131.0277,64.2288 -131.0198,64.2566 -130.985,64.2717 -130.9777,64.2784 -131.0486,64.3038 -131.0339,64.3097 -131.0159,64.3157 -131.0628,64.3418 -131.0851,64.367 -131.1582,64.3742 -131.2054,64.4002 -131.2484,64.4024 -131.3088,64.3971 -131.3378,64.4066 -131.3539,64.4036 -131.3805,64.3862 -131.3906,64.349 -131.4536,64.3494 -131.4681,64.336 -131.5063,64.3356 -131.5428,64.3172 -131.5702,64.3162 -131.5987,64.3317 -131.643,64.3367 -131.665,64.3317 -131.7146,64.3332 -131.7499,64.3269 -131.7869,64.331 -131.7959,64.3423 -131.7635,64.3544 -131.7656,64.3799 -131.7306,64.4012 -131.6866,64.4113 -131.6642,64.43 -131.6215,64.443 -131.6343,64.469 -131.6217,64.4792 -131.6835,64.4977 -131.7796,64.4859 -131.7865,64.4928 -131.7699,64.5019 -131.781,64.51 -131.8372,64.5169 -131.8425,64.5346 -131.8603,64.542 -131.8822,64.5506 -131.9056,64.562 -131.9054,64.5756 -131.9259,64.6025 -131.93,64.6049 -131.9333,64.6148 -131.9365,64.6193 -131.9421,64.6245 -131.9443,64.6283 -131.9506,64.6347 -131.9543,64.6463 -131.9608,64.6499 -131.9688,64.653 -131.9751,64.6542 -131.9864,64.6564 -131.995,64.6584 -131.999,64.6588 -132.0087,64.6585 -132.0353,64.6551 -132.0477,64.6551 -132.0603,64.6574 -132.0742,64.6599 -132.0884,64.6618 -132.0953,64.6672 -132.1021,64.6702 -132.1112,64.6739 -132.1172,64.6757 -132.1253,64.6788 -132.1287,64.6803 -132.1315,64.6829 -132.1324,64.6865 -132.1339,64.689 -132.139,64.6924 -132.1461,64.6949 -132.1743,64.7046 -132.1883,64.707 -132.2104,64.7096 -132.2537,64.7278 -132.2675,64.7361 -132.2693,64.738 -132.2783,64.7394 -132.2965,64.7417 -132.3101,64.7394 -132.3319,64.7343 -132.3447,64.7337 -132.3623,64.7371 -132.3875,64.7447 -132.4114,64.7439 -132.4284,64.7431 -132.4361,64.7414 -132.4409,64.7401 -132.4458,64.7358 -132.4521,64.7287 -132.4611,64.7272 -132.4657,64.7264 -132.4736,64.7271 -132.4767,64.7291 -132.4862,64.7324 -132.4915,64.7411 -132.4908,64.7481 -132.486,64.7524 -132.4848,64.7546 -132.4837,64.7569 -132.4877,64.7572 -132.5096,64.7633 -132.5177,64.7664 -132.5296,64.7704 -132.5468,64.7831 -132.5443,64.7853 -132.5336,64.7931 -132.5218,64.7944 -132.4909,64.8011 -132.463,64.821 -132.4553,64.8226 -132.4024,64.8314 -132.3975,64.8357 -132.394,64.8484 -132.3804,64.8589 -132.3797,64.863 -132.398,64.8682 -132.399,64.88 -132.4227,64.8881 -132.4292,64.8945 -132.4333,64.9002 -132.4313,64.9071 -132.426,64.9149 -132.4143,64.9244 -132.4084,64.9251 -132.3974,64.9276 -132.3896,64.9293 -132.3778,64.9306 -132.365,64.9312 -132.3545,64.9326 -132.3475,64.9355 -132.3476,64.9408 -132.3427,64.9451 -132.3428,64.95 -132.3429,64.9557 -132.3345,64.9614 -132.33,64.9675 -132.3254,64.9712 -132.3118,64.9759 -132.2638,64.9881 -132.2602,64.9925 -132.2569,64.9963 -132.2529,65.0042 -132.2549,65.0085 -132.2574,65.0146 -132.2556,65.018 -132.2488,65.0233 -132.2476,65.0255 -132.2534,65.0278 -132.2672,65.0338 -132.2718,65.0383 -132.2744,65.0415 -132.2872,65.0438 -132.2964,65.0423 -132.3045,65.0401 -132.3094,65.0388 -132.3201,65.0368 -132.3396,65.0397 -132.3589,65.0403 -132.3798,65.0404 -132.3972,65.0419 -132.406,65.041 -132.4179,65.0397 -132.4305,65.0396 -132.4379,65.0414 -132.4478,65.0441 -132.455,65.0465 -132.4596,65.054 -132.459,65.0551 -132.4632,65.0578 -132.4651,65.0598 -132.4723,65.0622 -132.4738,65.0647 -132.4793,65.0705 -132.4827,65.0749 -132.4801,65.08 -132.4741,65.0836 -132.4665,65.0876 -132.4505,65.0944 -132.4439,65.0991 -132.4421,65.1084 -132.4352,65.1137 -132.4297,65.1191 -132.4322,65.1252 -132.4335,65.1283 -132.4436,65.1333 -132.4508,65.1357 -132.4574,65.1392 -132.4635,65.1439 -132.4672,65.1478 -132.4682,65.1484 -132.4808,65.1513 -132.4902,65.1522 -132.4945,65.1519 -132.501,65.1502 -132.5114,65.1434 -132.5234,65.1362 -132.5397,65.1318 -132.5548,65.1296 -132.5741,65.1301 -132.5902,65.1315 -132.5957,65.129 -132.599,65.1223 -132.6066,65.1182 -132.6107,65.1156 -132.6207,65.1153 -132.6308,65.1174 -132.6416,65.1183 -132.6469,65.1188 -132.659,65.1199 -132.6665,65.1246 -132.6723,65.1299 -132.6814,65.1342 -132.691,65.1374 -132.7004,65.1411 -132.7006,65.1435 -132.7059,65.1469 -132.6911,65.1486 -132.6851,65.1492 -132.6662,65.1535 -132.6522,65.1534 -132.649,65.1543 -132.629,65.1549 -132.6255,65.1564 -132.6265,65.16 -132.6318,65.1664 -132.6438,65.1704 -132.6551,65.1761 -132.6625,65.1808 -132.6663,65.1817 -132.6773,65.1821 -132.6843,65.1821 -132.6897,65.1826 -132.6932,65.1841 -132.6929,65.1876 -132.6847,65.1898 -132.6799,65.1912 -132.6736,65.1924 -132.6626,65.192 -132.6467,65.19 -132.6349,65.1884 -132.6249,65.1887 -132.6203,65.1895 -132.6152,65.1914 -132.6081,65.1943 -132.6064,65.1977 -132.61,65.2045 -132.6106,65.2063 -132.6094,65.2086 -132.607,65.2107 -132.598,65.2147 -132.5893,65.218 -132.5811,65.2232 -132.5756,65.2257 -132.5703,65.2334 -132.5665,65.2355 -132.5551,65.2386 -132.5405,65.2397 -132.5348,65.2397 -132.5148,65.2403 -132.5051,65.2401 -132.4908,65.2406 -132.4821,65.241 -132.4723,65.2437 -132.4703,65.2476 -132.4664,65.2526 -132.4627,65.2599 -132.4653,65.266 -132.4651,65.2719 -132.4655,65.2767 -132.4708,65.283 -132.4625,65.2882 -132.453,65.3015 -132.4438,65.3113 -132.4381,65.3226 -132.4314,65.3302 -132.4108,65.3319 -132.3976,65.3355 -132.3867,65.3404 -132.3729,65.3457 -132.3479,65.3499 -132.3424,65.3524 -132.3292,65.3589 -132.317,65.3661 -132.3011,65.3694 -132.2847,65.3738 -132.2801,65.3828 -132.275,65.3871 -132.2638,65.3896 -132.2524,65.3898 -132.2404,65.3911 -132.2351,65.3959 -132.2385,65.4003 -132.2402,65.4052 -132.2405,65.4129 -132.2358,65.4219 -132.2291,65.4266 -132.2285,65.4278 -132.2311,65.4339 -132.2287,65.4384 -132.23,65.4415 -132.2309,65.4451 -132.2217,65.4519 -132.2095,65.4591 -132.2002,65.4742 -132.1844,65.4881 -132.1798,65.4971 -132.1702,65.5046 -132.1546,65.5126 -132.1412,65.5138 -132.1249,65.5176 -132.1043,65.5352 -132.092,65.5424 -132.0851,65.55 -132.0838,65.5552 -132.0833,65.5617 -132.0932,65.5673 -132.1052,65.5743 -132.1138,65.5851 -132.1287,65.5893 -132.1324,65.6015 -132.1374,65.6137 -132.138,65.6179 -132.1412,65.62 -132.1442,65.6226 -132.1536,65.6264 -132.2106,65.6432 -132.2094,65.6455 -132.2131,65.6494 -132.2071,65.6553 -132.1999,65.6582 -132.1968,65.6615 -132.1944,65.666 -132.1979,65.6675 -132.2082,65.6725 -132.2221,65.6814 -132.2314,65.6911 -132.2563,65.7039 -132.2726,65.7166 -132.2877,65.7262 -132.2979,65.7341 -132.3208,65.7426 -132.3605,65.752 -132.3758,65.7557 -132.3883,65.7621 -132.3966,65.7681 -132.4018,65.7721 -132.4151,65.7768 -132.436,65.781 -132.45,65.7845 -132.4708,65.7887 -132.4821,65.792 -132.4889,65.7956 -132.4915,65.8017 -132.4896,65.811 -132.4832,65.8234 -132.4719,65.8342 -132.46,65.8432 -132.4538,65.8497 -132.4403,65.8562 -132.432,65.8584 -132.4302,65.8618 -132.3915,65.8726 -132.3812,65.8729 -132.3573,65.8744 -132.3418,65.8766 -132.3364,65.8814 -132.3206,65.8895 -132.2874,65.9031 -132.2617,65.9026 -132.2445,65.9023 -132.2403,65.9049 -132.2382,65.9088 -132.2389,65.913 -132.2481,65.9173 -132.2626,65.9257 -132.2602,65.9302 -132.2511,65.9365 -132.2453,65.9419 -132.2455,65.9443 -132.2533,65.9461 -132.2574,65.9465 -132.2705,65.9464 -132.2827,65.9451 -132.2955,65.9457 -132.3099,65.9457 -132.3245,65.9429 -132.3383,65.9441 -132.3477,65.9455 -132.3633,65.9433 -132.374,65.9395 -132.3846,65.9357 -132.3976,65.9274 -132.4062,65.9276 -132.4122,65.9328 -132.4212,65.9377 -132.4321,65.9445 -132.4435,65.9561 -132.4445,65.9597 -132.4556,65.969 -132.4619,65.9736 -132.4796,65.9787 -132.4961,65.983 -132.5129,65.9815 -132.5368,65.98 -132.5524,65.9778 -132.5686,65.9745 -132.5826,65.9698 -132.5994,65.9653 -132.6112,65.9593 -132.6231,65.9473 -132.6382,65.9403 -132.648,65.9382 -132.673,65.9344 -132.6825,65.9329 -132.6982,65.9248 -132.7099,65.9187 -132.7095,65.9081 -132.7153,65.8968 -132.7216,65.8844 -132.7267,65.8742 -132.7395,65.8717 -132.7536,65.8694 -132.7899,65.8689 -132.8066,65.8644 -132.8301,65.8634 -132.8536,65.8625 -132.8771,65.8644 -132.8984,65.868 -132.9036,65.8719 -132.9097,65.8772 -132.9102,65.8819 -132.9041,65.8884 -132.8924,65.8945 -132.8817,65.9043 -132.8673,65.9101 -132.8561,65.9151 -132.8461,65.9237 -132.8404,65.935 -132.8333,65.9432 -132.8294,65.9511 -132.829,65.9576 -132.8231,65.9635 -132.8289,65.9664 -132.8391,65.9719 -132.8574,65.9788 -132.8685,65.9797 -132.8783,65.9805 -132.8947,65.9766 -132.9042,65.975 -132.9275,65.9746 -132.9442,65.9759 -132.9634,65.9781 -132.9831,65.9792 -133.0198,65.9839 -133.0331,65.9862 -133.0434,65.9829 -133.0484,65.9816 -133.064,65.9764 -133.0712,65.9734 -133.0996,65.9687 -133.1157,65.9653 -133.1379,65.9612 -133.1557,65.9574 -133.174,65.9553 -133.1801,65.9517 -133.1879,65.9476 -133.2001,65.9404 -133.2112,65.9354 -133.2237,65.9364 -133.2481,65.9366 -133.2648,65.938 -133.2747,65.9352 -133.2736,65.9257 -133.2735,65.9199 -133.2796,65.9133 -133.282,65.9082 -133.3003,65.9003 -133.3089,65.8974 -133.3205,65.8942 -133.3446,65.892 -133.3587,65.8896 -133.3687,65.8928 -133.3748,65.898 -133.3893,65.9038 -133.399,65.9076 -133.4085,65.9118 -133.4202,65.9145 -133.4421,65.9139 -133.4576,65.9116 -133.4853,65.9079 -133.5011,65.908 -133.518,65.9117 -133.5309,65.9151 -133.5362,65.919 -133.543,65.9289 -133.5428,65.963 -133.5425,65.9665 -133.541,65.9728 -133.5306,65.9826 -133.5207,65.9912 -133.5203,65.9982 -133.5204,66.0041 -133.5255,66.0116 -133.5325,66.0121 -133.5562,66.014 -133.5851,66.0139 -133.599,66.015 -133.6089,66.0216 -133.6079,66.0268 -133.6019,66.0487 -133.5907,66.0601 -133.5787,66.0733 -133.5643,66.0792 -133.5381,66.0854 -133.5092,66.0914 -133.4939,66.099 -133.4762,66.1117 -133.4688,66.1182 -133.4662,66.1356 -133.4702,66.1424 -133.4793,66.1478 -133.4885,66.162 -133.4752,66.2168 -133.4765,66.2234 -133.4811,66.232 -133.4958,66.2407 -133.5136,66.2492 -133.5264,66.2531 -133.5407,66.2566 -133.5641,66.2596 -133.5839,66.2611 -133.6024,66.2619 -133.6294,66.2605 -133.6518,66.2563 -133.6703,66.2542 -133.6962,66.255 -133.7154,66.2577 -133.7368,66.2617 -133.7454,66.2682 -133.7473,66.2766 -133.7399,66.2924 -133.727,66.295 -133.7225,66.2982 -133.697,66.315 -133.6902,66.3233 -133.6836,66.331 -133.6832,66.338 -133.6838,66.3551 -133.6833,66.3562 -133.6834,66.3621 -133.6798,66.3759 -133.6758,66.3845 -133.6612,66.3904 -133.6489,66.3947 -133.6331,66.397 -133.6138,66.3944 -133.5899,66.389 -133.5645,66.3871 -133.5453,66.3903 -133.5352,66.393 -133.5276,66.3966 -133.5249,66.4022 -133.5287,66.4096 -133.5339,66.417 -133.549,66.4223 -133.5836,66.442 -133.5952,66.4546 -133.6027,66.4634 -133.6068,66.4702 -133.6053,66.4795 -133.6,66.4844 -133.5913,66.4872 -133.5839,66.4902 -133.5279,66.4994 -133.5016,66.505 -133.4925,66.5084 -133.4887,66.5164 -133.495,66.5216 -133.518,66.5351 -133.5365,66.5365 -133.5504,66.5382 -133.583,66.5442 -133.5907,66.5465 -133.601,66.5497 -133.6111,66.5563 -133.6175,66.5644 -133.6148,66.5731 -133.615,66.5789 -133.6236,66.5855 -133.6308,66.589 -133.6458,66.5948 -133.6681,66.6006 -133.6819,66.6028 -133.6982,66.6058 -133.7034,66.6074 -133.7015,66.6113 -133.6936,66.6154 -133.6794,66.6202 -133.6631,66.6296 -133.6653,66.6374 -133.6734,66.645 -133.6821,66.6516 -133.6951,66.6555 -133.7081,66.6623 -133.7357,66.6697 -133.7439,66.6744 -133.7542,66.6776 -133.7603,66.6804 -133.759,66.6832 -133.756,66.6894 -133.7412,66.6954 -133.7265,66.7013 -133.7089,66.707 -133.6965,66.7143 -133.6884,66.7219 -133.684,66.731 -133.6805,66.7413 -133.6768,66.7551 -133.6782,66.7646 -133.688,66.7689 -133.7083,66.7763 -133.7441,66.7825 -133.7491,66.7905 -133.7621,66.8009 -133.768,66.8072 -133.7649,66.8105 -133.7758,66.8189 -133.7969,66.8246 -133.8031,66.8274 -133.805,66.8358 -133.8018,66.8426 -133.8112,66.8509 -133.8321,66.8571 -133.8458,66.8599 -133.8602,66.861 -133.8876,66.863 -133.9107,66.8647 -133.9281,66.866 -133.9362,66.8677 -133.9421,66.8711 -133.9624,66.8819 -133.9875,66.892 -134.0168,66.8965 -134.0256,66.9 -134.0306,66.9086 -134.0229,66.9186 -134.0026,66.9265 -133.9815,66.9332 -133.9614,66.9376 -133.9366,66.9394 -133.9037,66.9393 -133.8741,66.9383 -133.8388,66.9369 -133.8059,66.9368 -133.7757,66.9434 -133.7532,66.9464 -133.7406,66.9508 -133.7444,66.9522 -133.7853,66.9547 -133.82,66.9543 -133.8524,66.9555 -133.8825,66.9554 -133.9553,66.9536 -134.0954,66.9555 -134.5937,66.9571 -134.6377,66.9583 -134.93,66.9572 -136.0062,66.9533 -136.055,66.9544 -136.0749,66.9568 -136.0773,66.9662 -136.0841,66.9795 -136.0891,66.9897 -136.0928,66.9957 -136.1135,67.004 -136.1293,67.0095 -136.1265,67.0246 -136.1246,67.0373 -136.13,67.0428 -136.1343,67.0472 -136.1394,67.0574 -136.1392,67.0656 -136.1269,67.0742 -136.1176,67.083 -136.1124,67.0885 -136.111,67.1001 -136.114,67.1038 -136.1242,67.1084 -136.1351,67.1114 -136.1417,67.1176 -136.1511,67.1246 -136.1421,67.1322 -136.1268,67.1407 -136.0992,67.1461 -136.0918,67.1573 -136.0853,67.1663 -136.0705,67.1736 -136.059,67.1799 -136.0486,67.191 -136.0502,67.1986 -136.0482,67.2114 -136.0442,67.2216 -136.0411,67.2296 -136.0299,67.2389 -136.0104,67.2541 -136.0105,67.2576 -136.0112,67.2635 -136.0208,67.2699 -136.0374,67.2813 -136.0487,67.2913 -136.0544,67.2998 -136.0665,67.3076 -136.0736,67.3126 -136.0718,67.3172 -136.0616,67.3201 -136.0489,67.3217 -136.0441,67.3261 -136.0462,67.3285 -136.0577,67.3339 -136.0683,67.338 -136.086,67.3431 -136.0895,67.3456 -136.0928,67.3528 -136.1086,67.3549 -136.1203,67.3562 -136.1296,67.3596 -136.1282,67.3631 -136.1178,67.3741 -136.1123,67.3884 -136.1105,67.393 -136.1039,67.4019 -136.0949,67.4096 -136.0922,67.4164 -136.0982,67.4243 -136.1006,67.4338 -136.1039,67.441 -136.1016,67.4467 -136.0904,67.4519 -136.0837,67.4614 -136.0857,67.4639 -136.0878,67.4663 -136.1024,67.4718 -136.1035,67.4731 -136.0987,67.4775 -136.096,67.4843 -136.1023,67.4917 -136.1173,67.5194 -136.1124,67.5319 -136.1141,67.5355 -136.1244,67.5443 -136.1396,67.5522 -136.145,67.5618 -136.1509,67.5703 -136.1553,67.5746 -136.1715,67.5802 -136.1813,67.5825 -136.1979,67.5911 -136.2096,67.5923 -136.2186,67.5928 -136.232,67.5901 -136.2399,67.5894 -136.2617,67.5923 -136.2703,67.594 -136.2756,67.596 -136.2871,67.5978 -136.3021,67.5987 -136.3257,67.6012 -136.3462,67.6035 -136.3595,67.6089 -136.3555,67.6191 -136.3516,67.6294 -136.3455,67.6373 -136.3429,67.6441 -136.3473,67.6456 -136.3599,67.9955 -136.3619,68.0464 -136.3689,68.4765 -136.369,68.4922 -136.3714,68.7883 -136.3915,68.7835 -136.4543,68.7869 -136.4983,68.7934 -136.6763,68.8369 -136.838,68.8564 -136.8996,68.8554 -136.9337,68.8562 -136.9622,68.8595 -137.126,68.9002 -137.3007,68.9388 -137.4021,68.9608 -137.7057,69.0263 -137.7442,69.0347 -137.7678,69.0404 -137.8475,69.0616 -137.8812,69.0708 -137.9229,69.0842 -137.9651,69.1031 -138.1529,69.14 -138.3087,69.1638 -138.3216,69.1814 -138.3463,69.2019 -138.4619,69.2605 -138.5007,69.2747 -138.535,69.2837 -138.5838,69.2952 -138.6403,69.3104 -138.6671,69.3217 -138.7557,69.3653 -138.7969,69.3968 -138.8125,69.414 -138.8428,69.4212 -139.0508,69.4465 -139.2337,69.4641 -139.2716,69.4662 -139.3053,69.4697 -139.4298,69.491 -139.4618,69.5012 -139.3755,69.4903 -139.3006,69.4833 -139.479,69.5123 -139.5084,69.5165 -139.5861,69.5266 -139.6328,69.5287 -139.7897,69.5277 -139.8262,69.525 -139.8765,69.5163 -139.9158,69.5107 -139.9583,69.5066 -140.0929,69.5063 -140.1849,69.5093 -140.3115,69.5184 -140.434,69.5276 -140.4655,69.5315 -140.4908,69.5373 -140.5199,69.5444 -140.6047,69.549 -140.6772,69.5528 -140.6981,69.5522 -140.6968,69.4425 -140.6971,69.343 -140.7,68.8768 -140.7035,68.4449 -140.7054,68.1453 -140.7064,67.979 -140.7076,67.7791 -140.7064,67.6464 -140.7079,67.4467 -140.7109,67.2137 -140.7116,66.9814 -140.7115,66.7815 -140.7126,66.5821 -140.7144,66.4156 -140.7165,66.0164 -140.7181,65.617 -140.7187,65.1513 -140.7191,65.0848 -140.7208,65.0515 -140.7217,64.1202 -140.7224,63.8874 -140.7242,63.7541 -140.7259,63.0223 -140.7259,62.6562 -140.733,60.8925 -140.7317,60.8592 -140.7347,60.3264 -140.7344,60.2937 20,-2.0,Greenland -21.8349,73.8218 -21.8171,73.8188 -21.7569,73.8088 -21.7449,73.8046 -21.7259,73.7916 -21.7044,73.761 -21.6516,73.5954 -21.6674,73.5815 -21.7012,73.5602 -21.7125,73.5542 -21.7227,73.5529 -21.767,73.5516 -21.788,73.5703 -21.7989,73.6662 -21.7803,73.7179 -21.761,73.7399 -21.7661,73.7566 -21.8075,73.7983 -21.8357,73.8219 -21.8349,73.8218 1380,-2.0,Greenland -29.2419,69.9615 -29.2408,69.9329 -28.5105,69.9815 -28.5261,69.9981 -28.5122,70.0042 -28.2984,70.0205 -28.212,70.0464 -28.2016,70.0481 -28.1794,70.0497 -28.1482,70.0513 -28.1198,70.0525 -28.0866,70.0524 -28.0589,70.0516 -28.0177,70.0466 -28.003,70.0433 -27.9547,70.0273 -27.9429,70.0219 -27.9179,70.0142 -27.9024,70.0098 -27.8736,70.0034 -27.8149,69.9968 -27.7916,69.9968 -27.7597,70.0018 -27.7443,70.0048 -27.7307,70.0084 -27.7172,70.0128 -27.6951,70.022 -27.6823,70.0261 -27.6591,70.0332 -27.4463,70.0718 -27.309,70.1138 -27.2686,70.1386 -27.2554,70.1437 -27.2325,70.1514 -27.1984,70.1603 -27.0204,70.2043 -27.0076,70.2073 -26.8934,70.2317 -26.8703,70.2322 -26.8441,70.2271 -26.834,70.2222 -26.8253,70.2171 -26.8039,70.2104 -26.6829,70.1968 -26.6677,70.1954 -26.6532,70.1954 -26.6362,70.1967 -26.5392,70.2104 -26.5145,70.2159 -26.3146,70.2631 -26.2816,70.272 -26.268,70.2865 -26.4226,70.3714 -26.4415,70.3761 -26.4923,70.3808 -26.5637,70.3846 -26.6124,70.3858 -26.6642,70.3861 -26.7144,70.3844 -26.7632,70.3789 -26.7798,70.3753 -26.8374,70.3605 -26.8825,70.3523 -26.9606,70.3454 -26.9782,70.3453 -27.006,70.3474 -27.0184,70.3484 -27.1996,70.3523 -27.4955,70.3323 -27.7796,70.3076 -28.0968,70.2841 -28.1534,70.276 -28.1619,70.2761 -28.1787,70.2789 -28.2043,70.2869 -28.2278,70.2962 -28.2615,70.3114 -28.2737,70.3196 -28.2834,70.3366 -28.2792,70.3506 -28.2667,70.3605 -28.2494,70.3668 -28.2362,70.3775 -28.2166,70.413 -28.234,70.415 -28.4227,70.4078 -28.4368,70.4058 -28.4486,70.3995 -28.4652,70.3864 -28.485,70.3806 -28.5018,70.3789 -28.5555,70.3799 -28.5931,70.3834 -28.6251,70.3826 -28.6726,70.3809 -28.6894,70.3792 -28.7564,70.3709 -28.7862,70.3651 -28.8516,70.3522 -28.866,70.3479 -28.8901,70.3379 -28.8988,70.3307 -28.909,70.324 -28.922,70.3193 -29.0638,70.2943 -29.138,70.3008 -29.1712,70.3533 -29.1643,70.3623 -29.1399,70.37 -28.8729,70.4011 -28.7214,70.4264 -28.6784,70.431 -28.6528,70.4308 -28.63,70.4273 -28.6139,70.4231 -28.5992,70.4208 -28.5754,70.4188 -28.5609,70.419 -28.5396,70.4203 -28.3632,70.4399 -28.3445,70.4435 -28.2414,70.4672 -27.9702,70.6134 -27.9593,70.6214 -27.8559,70.7638 -27.8521,70.7765 -27.8685,70.7877 -28.033,70.8374 -28.0765,70.8482 -28.1197,70.8539 -28.2272,70.8611 -28.2777,70.8642 -28.3119,70.8657 -28.3253,70.8676 -28.345,70.8748 -28.3406,70.8835 -28.2526,70.8994 -28.2362,70.9019 -28.0362,70.8907 -27.9763,70.8985 -27.9536,70.8986 -27.7922,70.878 -27.7548,70.8718 -27.7278,70.8627 -27.7158,70.8579 -27.7013,70.8535 -27.6749,70.8479 -27.6495,70.8458 -27.6014,70.8434 -27.5665,70.8462 -27.5543,70.8579 -27.5622,70.8701 -27.5833,70.8825 -27.6342,70.9005 -27.6962,70.9172 -27.7147,70.9224 -27.7368,70.9331 -27.7516,70.9421 -27.7688,70.9546 -27.8451,71.0186 -27.8564,71.0361 -27.7614,71.0543 -27.7351,71.0558 -27.709,71.0521 -27.6967,71.036 -27.6929,71.0237 -27.6843,71.0122 -27.6742,71.0063 -27.5401,70.9287 -27.5089,70.913 -27.4817,70.8959 -27.4648,70.8789 -27.4581,70.8684 -27.4502,70.8526 -27.438,70.8441 -27.2052,70.8388 -27.1588,70.8395 -27.1124,70.845 -26.9252,70.849 -26.7232,70.8374 -26.7084,70.8382 -26.4186,70.867 -26.398,70.8704 -26.3862,70.8736 -26.2899,70.9058 -26.2166,70.9337 -26.2028,70.9427 -26.0595,70.9601 -25.9802,70.9587 -25.9502,70.9621 -25.9384,70.9654 -25.6072,71.0551 -25.5388,71.0753 -25.5249,71.0867 -25.5382,71.0992 -25.5845,71.1125 -25.68,71.1435 -25.7115,71.1576 -25.6871,71.1639 -25.6511,71.1579 -25.5755,71.1422 -25.5224,71.1277 -25.4785,71.1193 -25.4584,71.1185 -25.3518,71.1807 -25.3537,71.2568 -25.3831,71.278 -25.3964,71.28 -25.4318,71.2778 -25.4509,71.2786 -25.468,71.2819 -25.494,71.2901 -25.5135,71.3014 -25.5493,71.3169 -25.5596,71.3221 -25.5857,71.3359 -25.6067,71.3495 -25.6351,71.3682 -25.66,71.3771 -25.6796,71.3817 -25.8177,71.4055 -25.8358,71.4057 -25.9433,71.4047 -25.9608,71.4024 -26.1198,71.3933 -26.2509,71.4039 -26.3596,71.408 -26.4436,71.3955 -26.4683,71.3903 -26.4826,71.3886 -26.6132,71.3811 -26.793,71.41 -26.9177,71.4321 -26.9381,71.4349 -26.9568,71.4352 -26.9736,71.4347 -27.0465,71.4241 -27.1035,71.4114 -27.1163,71.4067 -27.1284,71.4014 -27.1719,71.389 -27.253,71.4147 -27.2603,71.4215 -27.2488,71.4253 -27.232,71.4256 -27.1998,71.4237 -27.1829,71.4242 -27.1696,71.4281 -27.08,71.4557 -27.063,71.4677 -27.0773,71.4766 -27.3097,71.5066 -27.3213,71.5075 -27.4754,71.5167 -27.5297,71.518 -27.5668,71.518 -27.5829,71.5163 -27.6067,71.5125 -27.6844,71.4972 -27.8603,71.4707 -27.9064,71.4648 -27.9736,71.4582 -27.9888,71.4573 -28.0063,71.4561 -28.2999,71.447 -28.3291,71.4464 -28.3883,71.4549 -28.4008,71.4577 -28.4157,71.463 -28.4252,71.4682 -28.4212,71.4835 -28.4027,71.4852 -28.3814,71.4812 -28.3698,71.478 -28.3308,71.472 -28.3,71.4678 -28.2808,71.4676 -28.2656,71.4673 -28.0814,71.477 -28.0,71.4816 -27.9358,71.488 -27.9073,71.492 -27.7245,71.5204 -27.691,71.5263 -27.6749,71.5302 -27.6648,71.534 -27.6528,71.5396 -27.6229,71.5467 -27.6064,71.5496 -27.5887,71.5515 -27.5408,71.555 -27.5071,71.5535 -27.4673,71.5505 -27.3925,71.5402 -27.376,71.5395 -27.3439,71.5408 -27.329,71.5444 -27.308,71.5631 -27.263,71.6176 -27.2958,71.6291 -27.3234,71.6361 -27.3412,71.6372 -27.3752,71.6411 -27.4697,71.6558 -27.5068,71.6643 -27.5409,71.6727 -27.8066,71.75 -27.7476,71.7728 -27.7368,71.7802 -27.7441,71.7886 -27.7639,71.7993 -27.7808,71.8035 -27.8723,71.8162 -27.9092,71.82 -27.9682,71.8196 -28.029,71.8202 -28.1418,71.824 -28.3755,71.8374 -28.394,71.841 -28.4129,71.8517 -28.4261,71.8638 -28.4232,71.8779 -28.4144,71.8831 -28.4035,71.8859 -28.3635,71.8879 -28.3454,71.8898 -28.3065,71.8975 -28.2897,71.9062 -28.2912,71.9193 -28.3224,71.9365 -28.4016,71.9644 -28.4368,71.9725 -28.4776,71.9808 -28.4986,71.9831 -28.5501,71.985 -28.5926,71.9799 -28.6064,71.9769 -28.6289,71.9819 -28.635,71.9924 -28.5716,72.0284 -28.5493,72.0353 -28.5285,72.0377 -28.5101,72.0351 -28.2443,71.9502 -28.2159,71.9396 -28.1936,71.9304 -28.182,71.9218 -28.1719,71.911 -28.1558,71.9042 -28.141,71.9013 -28.0328,71.8814 -28.0028,71.8794 -27.9329,71.8798 -27.9031,71.8821 -27.8166,71.8777 -27.739,71.862 -27.6953,71.853 -27.6285,71.8347 -27.5668,71.8129 -27.5418,71.7985 -27.5638,71.7796 -27.5477,71.7666 -27.4034,71.7118 -27.3922,71.7084 -27.3145,71.6855 -27.2812,71.6828 -27.2587,71.6797 -27.2345,71.6741 -27.1489,71.6411 -27.1452,71.625 -27.1382,71.6111 -27.1294,71.5943 -27.1165,71.5801 -27.1033,71.5733 -26.9434,71.5016 -26.9191,71.4922 -26.8873,71.4839 -26.7547,71.4572 -26.7235,71.4522 -26.6861,71.449 -26.6489,71.447 -26.5927,71.4462 -26.5571,71.4482 -26.5077,71.4543 -26.4539,71.4631 -26.4153,71.4742 -26.2673,71.4842 -25.761,71.4572 -25.5858,71.4448 -25.5641,71.4424 -25.5255,71.4279 -25.5052,71.4191 -25.4943,71.4088 -25.4841,71.3956 -25.4147,71.3642 -25.3894,71.3568 -25.2702,71.3171 -25.223,71.2974 -25.2025,71.2726 -25.1914,71.2658 -25.0557,71.209 -25.0412,71.204 -25.0244,71.2012 -25.0091,71.2008 -24.8146,71.2081 -24.803,71.2094 -24.7727,71.2158 -24.695,71.2349 -24.6828,71.2379 -24.6277,71.1895 -24.5166,71.1161 -24.4762,71.1001 -24.4505,71.092 -24.4083,71.0783 -24.3646,71.0628 -24.3191,71.0426 -24.2234,70.9975 -24.2148,70.9919 -24.1838,70.9632 -24.1372,70.9196 -24.14,70.8991 -24.1509,70.8881 -24.1598,70.8803 -24.1686,70.8627 -24.1764,70.8403 -24.1736,70.8204 -24.1281,70.7048 -24.1163,70.6877 -23.9786,70.5682 -23.9676,70.5596 -23.9566,70.5542 -23.8875,70.523 -23.7746,70.4744 -23.4417,70.3878 -23.3207,70.354 -23.2966,70.3477 -23.2794,70.3451 -23.1146,70.3354 -23.0569,70.3325 -23.0001,70.3357 -22.9369,70.3407 -22.9022,70.3415 -22.7978,70.341 -22.7503,70.3389 -22.6974,70.3351 -22.6626,70.3358 -22.6264,70.3387 -22.5836,70.3501 -22.5721,70.3545 -22.5518,70.3708 -22.5446,70.3827 -22.5396,70.3944 -22.5148,70.4687 -22.514,70.4866 -22.5355,70.5225 -22.5475,70.5322 -22.5726,70.5445 -22.5968,70.5645 -22.5983,70.6079 -22.5935,70.6255 -22.5629,70.67 -22.5323,70.7109 -22.4754,70.7537 -22.4558,70.7572 -22.4381,70.7581 -22.4138,70.757 -22.3808,70.7481 -22.3775,70.7161 -22.3877,70.6869 -22.3939,70.6788 -22.4068,70.6568 -22.42,70.6097 -22.4202,70.5647 -22.3938,70.5448 -22.379,70.5308 -22.3632,70.5019 -22.3601,70.4811 -22.3613,70.4668 -22.3674,70.433 -22.3669,70.4071 -22.3591,70.3841 -22.3501,70.3668 -22.335,70.3544 -22.3226,70.3483 -22.3055,70.3462 -22.2691,70.3506 -22.2081,70.3576 -22.1746,70.3617 -22.1626,70.365 -22.0722,70.3992 -22.0448,70.404 -22.0112,70.4074 -21.9858,70.4057 -21.958,70.4008 -21.9329,70.3941 -21.9166,70.3889 -21.8926,70.3771 -21.8908,70.3626 -21.9081,70.3531 -21.9271,70.341 -21.9412,70.3297 -21.9501,70.3173 -21.9474,70.3046 -21.9327,70.2995 -21.9192,70.2975 -21.9092,70.2975 -21.8349,70.3135 -21.7101,70.3296 -21.6957,70.3263 -21.6735,70.3291 -21.6198,70.3383 -21.5953,70.3451 -21.5165,70.3797 -21.4947,70.3948 -21.4732,70.4102 -21.4272,70.4493 -21.4367,70.4537 -21.568,70.4921 -21.69,70.4821 -21.7013,70.4809 -21.7156,70.4816 -21.728,70.4897 -21.7232,70.4992 -21.7079,70.5106 -21.6049,70.5698 -21.6936,70.6008 -21.7104,70.6081 -21.6975,70.6153 -21.6017,70.6176 -21.583,70.6178 -21.5006,70.6132 -21.5051,70.6234 -21.5904,70.7023 -21.6145,70.7062 -21.6302,70.7043 -21.6438,70.7007 -21.6753,70.6891 -21.6998,70.6827 -21.7359,70.6806 -21.7802,70.681 -21.8303,70.6901 -21.8614,70.6999 -21.877,70.7128 -21.853,70.719 -21.8409,70.7184 -21.8281,70.7157 -21.8076,70.7057 -21.7913,70.7015 -21.779,70.7001 -21.7438,70.7004 -21.7061,70.7025 -21.6797,70.7076 -21.6529,70.7295 -21.5438,70.8692 -21.6294,70.9728 -21.6463,70.9785 -21.6892,70.9865 -21.7103,70.9875 -21.7416,70.9862 -21.9272,70.97 -22.0511,70.955 -22.0853,70.9498 -22.1142,70.9476 -22.2428,70.9479 -22.2771,70.96 -22.0531,70.9798 -21.9954,70.977 -21.904,70.9889 -21.7396,71.0081 -21.6489,71.0485 -21.6333,71.0601 -21.6153,71.0945 -21.6748,71.153 -21.7328,71.1692 -21.7538,71.1709 -21.775,71.1652 -21.7881,71.1547 -21.8037,71.1463 -21.8169,71.1411 -21.8523,71.1378 -21.863,71.1425 -21.9111,71.17 -21.8724,71.1766 -21.804,71.1799 -21.7673,71.1834 -21.7575,71.1854 -21.558,71.2301 -21.5738,71.2342 -21.6472,71.2376 -21.6655,71.2368 -21.7331,71.2211 -21.7641,71.2195 -21.7496,71.263 -21.719,71.2813 -21.6483,71.2977 -21.6221,71.3084 -21.6644,71.3432 -21.7548,71.4148 -21.966,71.3917 -22.0283,71.3997 -22.0419,71.3989 -22.0643,71.3933 -22.08,71.3892 -22.1293,71.3737 -22.2298,71.3384 -22.2466,71.3271 -22.2787,71.2782 -22.2803,71.2243 -22.287,71.2006 -22.3032,71.1761 -22.3166,71.1628 -22.3302,71.1587 -22.3856,71.1528 -22.3981,71.1542 -22.4194,71.1665 -22.4401,71.2997 -22.4821,71.3642 -22.4877,71.3894 -22.4605,71.4471 -22.4511,71.457 -22.4405,71.4634 -22.402,71.4802 -22.3714,71.4891 -22.1982,71.4952 -22.119,71.4935 -22.1014,71.4951 -22.0677,71.5041 -22.0525,71.5151 -22.0617,71.523 -22.0746,71.5242 -22.1048,71.5233 -22.1175,71.5238 -22.1664,71.5363 -22.1338,71.5521 -22.1136,71.557 -22.0271,71.5735 -21.9909,71.5767 -21.9632,71.5768 -21.9434,71.5814 -21.8927,71.6098 -21.8467,71.643 -22.1249,71.6597 -22.1591,71.6592 -22.1769,71.6567 -22.2452,71.6355 -22.2571,71.6295 -22.2584,71.6168 -22.3453,71.5408 -22.5451,71.4766 -22.5697,71.4767 -22.5834,71.4823 -22.6092,71.5524 -22.6064,71.5622 -22.5944,71.5704 -22.5697,71.5802 -22.5529,71.5845 -22.4881,71.6096 -22.3851,71.6494 -22.3729,71.6583 -22.3573,71.6744 -22.3517,71.6846 -22.3554,71.695 -22.3772,71.6995 -22.3999,71.6972 -22.6641,71.6333 -22.8278,71.5909 -22.9076,71.5541 -22.9318,71.5452 -22.9434,71.5419 -22.9573,71.5396 -23.0342,71.5306 -23.0755,71.5328 -23.0796,71.5434 -23.0777,71.5588 -23.0714,71.5744 -22.9772,71.6275 -22.9365,71.6425 -22.9238,71.6463 -22.8719,71.6563 -22.8412,71.6644 -22.7278,71.6962 -22.7098,71.7023 -22.6924,71.7115 -22.6851,71.7193 -22.5469,71.7701 -22.4904,71.7771 -22.4754,71.7795 -22.4491,71.7889 -22.4415,71.7972 -22.4504,71.8046 -22.4691,71.813 -22.4871,71.8192 -22.5186,71.8276 -22.6014,71.848 -22.6834,71.8655 -22.758,71.8788 -22.8055,71.8869 -22.9741,71.9155 -22.989,71.9171 -23.0095,71.9113 -23.0228,71.9027 -23.0474,71.8983 -23.0699,71.8994 -23.1096,71.9083 -23.138,71.9197 -23.1303,71.9269 -23.0606,71.9379 -23.0449,71.9455 -23.037,71.9582 -23.0565,71.9696 -23.0703,71.9729 -23.1992,71.9941 -23.4494,72.0342 -23.5905,72.0521 -23.649,72.0842 -23.6555,72.1115 -23.6906,72.1402 -23.6995,72.1456 -23.762,72.1592 -23.7814,72.1603 -23.8565,72.1638 -24.0061,72.1757 -24.2673,72.2316 -24.3537,72.2536 -24.3658,72.2577 -24.3781,72.2632 -24.4118,72.2794 -24.4417,72.2982 -24.4507,72.3087 -24.4617,72.3152 -24.4985,72.3206 -24.5292,72.3245 -24.7481,72.3309 -24.8638,72.3017 -25.0709,72.2712 -25.1033,72.2679 -25.1332,72.2611 -25.1579,72.2498 -25.301,72.1776 -25.3121,72.163 -25.3442,72.1131 -25.3449,72.0906 -25.3323,72.0724 -25.3295,72.0562 -25.3398,72.0455 -25.3528,72.0399 -25.3664,72.0355 -25.3953,72.0302 -25.4244,72.0256 -25.4527,72.0244 -25.4669,72.0269 -25.4386,72.1185 -25.4327,72.1305 -25.4245,72.1422 -25.4059,72.1607 -25.2737,72.2488 -25.2354,72.273 -25.2276,72.2863 -25.2375,72.2924 -25.2506,72.2949 -25.2904,72.3002 -25.4279,72.3093 -25.4474,72.309 -25.4821,72.307 -25.5344,72.3015 -25.5837,72.2947 -25.6156,72.2917 -25.6538,72.2896 -25.6925,72.2896 -25.7335,72.2932 -25.8304,72.3098 -25.8455,72.3187 -25.8338,72.3237 -25.7893,72.3286 -25.7544,72.3294 -25.7344,72.3287 -25.5742,72.3292 -25.4478,72.3392 -25.4165,72.3409 -25.3563,72.3406 -25.3169,72.3395 -25.2801,72.3378 -25.2387,72.3339 -25.2008,72.332 -25.0993,72.3328 -25.0596,72.3343 -25.0238,72.3373 -24.8492,72.3636 -24.6531,72.3981 -24.6381,72.401 -24.5509,72.4274 -24.5437,72.4521 -24.6024,72.4743 -24.6626,72.4902 -24.6818,72.5412 -24.6801,72.552 -24.6704,72.559 -24.6396,72.572 -24.655,72.5859 -24.6671,72.5901 -24.7669,72.6178 -24.7825,72.622 -25.0717,72.6512 -25.1302,72.6588 -25.4109,72.7316 -25.4311,72.735 -25.4691,72.737 -25.5045,72.7355 -25.541,72.7297 -25.56,72.725 -25.5811,72.7188 -25.6659,72.6905 -25.7206,72.6711 -25.778,72.6527 -25.8072,72.6465 -25.8399,72.6397 -25.9567,72.6222 -26.0126,72.6166 -26.0487,72.6153 -26.0703,72.6159 -26.1869,72.5717 -26.2599,72.526 -26.2832,72.5158 -26.3582,72.4833 -26.3895,72.4758 -26.3991,72.4752 -26.4114,72.4817 -26.4023,72.4906 -26.3539,72.5105 -26.3272,72.5208 -26.3055,72.5336 -26.2414,72.6282 -26.2519,72.6377 -26.2671,72.6404 -26.2813,72.6415 -26.4542,72.6251 -26.5962,72.6113 -26.646,72.6069 -26.6763,72.6069 -26.6974,72.6085 -26.7133,72.6147 -26.6353,72.6311 -26.6171,72.634 -26.5526,72.6417 -26.4739,72.6451 -26.438,72.6489 -26.4002,72.6544 -26.3322,72.6708 -26.3643,72.6804 -26.6136,72.7277 -26.6325,72.7307 -26.6781,72.7339 -26.855,72.7239 -26.9755,72.715 -27.0428,72.7083 -27.0609,72.7078 -27.1036,72.7073 -27.2779,72.7213 -27.3057,72.7251 -27.3152,72.7295 -27.3211,72.7429 -27.3166,72.7532 -27.3035,72.7583 -27.2894,72.7599 -27.2791,72.7603 -27.2554,72.7597 -27.216,72.755 -27.1789,72.7478 -27.1685,72.7441 -27.1069,72.7297 -27.0684,72.7241 -27.035,72.7241 -27.0196,72.7264 -26.8868,72.7452 -26.7126,72.7699 -26.6678,72.7733 -26.6512,72.7735 -26.6185,72.7715 -26.5972,72.7698 -26.5679,72.7655 -26.5304,72.754 -26.5058,72.7465 -26.4742,72.7386 -26.24,72.6884 -26.1969,72.6804 -26.1427,72.6781 -26.1216,72.679 -25.964,72.6898 -25.9262,72.6961 -25.8816,72.7077 -25.8385,72.7214 -25.813,72.7297 -25.7887,72.7385 -25.7688,72.7471 -25.7434,72.7611 -25.7185,72.7751 -25.6921,72.7871 -25.6501,72.7976 -25.6312,72.7997 -25.5777,72.7995 -25.4668,72.797 -25.3485,72.7942 -25.3116,72.794 -25.2582,72.7936 -25.2458,72.7954 -25.0983,72.8297 -25.0842,72.8341 -25.0706,72.8399 -24.9598,72.8881 -24.9318,72.907 -24.9248,72.9185 -24.9897,72.9826 -25.0,72.9852 -25.0381,72.9849 -25.092,72.9841 -25.1639,72.9829 -25.3245,72.9905 -25.3675,72.9954 -25.5666,73.0193 -25.6592,73.0353 -25.7007,73.0432 -25.7136,73.0476 -25.7236,73.0528 -25.7429,73.0658 -25.7564,73.0739 -25.792,73.0835 -25.8187,73.0872 -25.9067,73.0976 -25.9281,73.0993 -25.9496,73.1013 -25.9903,73.101 -26.0292,73.0982 -26.1411,73.0921 -26.2176,73.0902 -26.2584,73.0902 -26.3417,73.0959 -26.3624,73.096 -26.3841,73.095 -26.4013,73.0929 -26.4156,73.089 -26.4299,73.0817 -26.4699,73.0565 -26.5022,73.0333 -26.5178,73.0231 -26.5297,73.0179 -26.5785,73.0045 -26.5989,73.0019 -26.6443,73.0021 -26.6642,73.0032 -26.806,73.0131 -26.8906,73.0207 -26.9347,73.0259 -26.9884,73.0348 -27.0238,73.0427 -27.0429,73.0455 -27.081,73.0488 -27.092,73.0474 -27.1052,73.0443 -27.198,73.0215 -27.2208,73.0151 -27.2306,73.0096 -27.2464,72.9979 -27.2478,72.9429 -27.2458,72.8772 -27.2576,72.8707 -27.2773,72.8634 -27.3787,72.83 -27.4139,72.8264 -27.4304,72.8267 -27.453,72.8327 -27.4474,72.8416 -27.4179,72.8469 -27.3989,72.8492 -27.3737,72.8568 -27.3033,72.8883 -27.2968,72.9043 -27.3391,73.0117 -27.3511,73.0223 -27.3621,73.0276 -27.3822,73.0321 -27.4007,73.0341 -27.4201,73.0355 -27.4519,73.0351 -27.4732,73.0332 -27.4915,73.0302 -27.522,73.0276 -27.5908,73.0248 -27.6252,73.0248 -27.647,73.0272 -27.6602,73.0332 -27.6478,73.0421 -27.6131,73.051 -27.5857,73.0559 -27.5702,73.0576 -27.5284,73.0611 -27.4693,73.0621 -27.264,73.0701 -27.1678,73.0838 -27.0453,73.091 -27.0292,73.0906 -27.0079,73.0885 -26.9909,73.0861 -26.846,73.0604 -26.8047,73.0522 -26.695,73.0349 -26.6622,73.0319 -26.6461,73.0327 -26.6303,73.0346 -26.5502,73.0798 -26.5467,73.0914 -26.5414,73.103 -26.519,73.1143 -26.5013,73.1183 -26.4824,73.1212 -26.4349,73.1268 -26.3991,73.1285 -26.3508,73.1333 -26.3318,73.1362 -26.3246,73.15 -26.3573,73.1702 -26.371,73.1753 -26.3876,73.1804 -26.4102,73.1842 -26.4369,73.1878 -26.4563,73.1892 -26.6227,73.1979 -26.7616,73.2009 -26.7743,73.2016 -26.7896,73.204 -27.016,73.2445 -27.0812,73.2608 -27.3897,73.3428 -27.3852,73.3561 -27.2839,73.3894 -27.2694,73.3934 -27.2595,73.3939 -27.1936,73.3946 -27.1757,73.391 -27.1624,73.3843 -27.1458,73.373 -27.1269,73.3598 -27.091,73.341 -26.9525,73.2911 -26.9219,73.2808 -26.8725,73.2662 -26.7794,73.2424 -26.751,73.2361 -26.7049,73.2288 -26.6867,73.2265 -26.6466,73.2241 -26.5659,73.2205 -26.5042,73.221 -26.4771,73.2265 -26.4656,73.2299 -26.4396,73.2402 -26.4227,73.2432 -26.3922,73.2412 -26.3699,73.2383 -26.3292,73.2288 -26.2236,73.202 -26.2044,73.1966 -26.1768,73.1833 -26.1622,73.1698 -26.1466,73.1582 -26.1333,73.153 -26.1208,73.1495 -26.1028,73.1453 -26.0704,73.1431 -25.9483,73.1435 -25.8002,73.1459 -25.7638,73.1478 -25.7232,73.1512 -25.7058,73.1537 -25.6758,73.16 -25.6578,73.165 -25.4334,73.2384 -25.431,73.2998 -25.2969,73.3504 -25.2521,73.3625 -25.2201,73.3671 -25.18,73.369 -25.0428,73.3729 -24.8639,73.3792 -24.6501,73.3917 -24.6339,73.3961 -24.6139,73.419 -24.6313,73.4264 -24.7701,73.4528 -24.8822,73.474 -24.9617,73.4922 -25.0052,73.5077 -25.0287,73.5183 -25.0497,73.537 -25.0244,73.5596 -25.024,73.588 -25.0391,73.5947 -25.0594,73.5995 -25.156,73.6184 -25.2449,73.6361 -25.3071,73.6495 -25.4868,73.7064 -25.4998,73.7137 -25.5067,73.7248 -25.4983,73.7356 -25.5002,73.7462 -25.5072,73.755 -25.522,73.7644 -25.6166,73.8007 -25.6418,73.8102 -25.6728,73.8247 -25.6561,73.8443 -25.6384,73.8503 -25.6235,73.8522 -25.6071,73.8508 -25.5909,73.8477 -25.4572,73.8089 -25.4434,73.8038 -25.4298,73.7959 -25.4229,73.7878 -25.4005,73.759 -25.3802,73.7339 -25.371,73.7247 -25.3561,73.7174 -25.1354,73.6496 -25.1206,73.6452 -25.1013,73.6421 -24.9903,73.6278 -24.9467,73.6191 -24.9157,73.606 -24.8989,73.5875 -24.9065,73.5735 -24.9144,73.5654 -24.9262,73.549 -24.9324,73.5386 -24.9291,73.5269 -24.8974,73.5135 -24.842,73.4955 -24.7852,73.4865 -24.6686,73.4702 -24.6298,73.4686 -24.6012,73.4729 -24.5805,73.4735 -24.5505,73.4715 -24.4765,73.4599 -24.4564,73.4549 -24.4258,73.4458 -24.4022,73.4363 -24.3894,73.4356 -24.3779,73.4365 -24.3374,73.4452 -24.3193,73.4546 -24.3233,73.4643 -24.3417,73.4791 -24.3513,73.4846 -24.3707,73.5012 -24.3957,73.5268 -24.4038,73.5414 -24.407,73.5532 -24.4041,73.5725 -24.3983,73.5862 -24.3913,73.5989 -24.2758,73.6753 -24.0893,73.7017 -23.9836,73.7146 -23.9668,73.7154 -23.9486,73.7117 -23.9366,73.6994 -23.8697,73.6591 -23.8565,73.6536 -23.8321,73.6471 -23.7878,73.6385 -23.7435,73.6331 -23.7024,73.6317 -23.6444,73.6337 -23.5052,73.6344 -23.4674,73.6313 -23.4303,73.627 -23.1051,73.555 -22.8498,73.4973 -22.8318,73.4918 -22.8044,73.4837 -22.7904,73.4799 -22.762,73.4732 -22.6904,73.4635 -22.6506,73.4638 -22.6053,73.4657 -22.5889,73.4674 -22.4846,73.4815 -22.4437,73.4896 -22.4164,73.5035 -22.3976,73.5092 -22.3616,73.514 -22.2354,73.5269 -22.2173,73.528 -22.1761,73.5293 -22.1554,73.5292 -22.1299,73.5237 -22.1477,73.5183 -22.1676,73.5161 -22.2008,73.513 -22.3866,73.4865 -22.4869,73.4629 -22.6175,73.4459 -22.6379,73.445 -22.7573,73.4519 -22.7721,73.453 -22.7908,73.4563 -22.8546,73.4732 -22.9532,73.4976 -23.0692,73.5244 -23.1034,73.5322 -23.3253,73.5696 -23.4032,73.5952 -23.4264,73.5999 -23.449,73.604 -23.4893,73.6087 -23.529,73.6106 -23.5465,73.611 -23.6628,73.6112 -23.7961,73.6159 -23.9011,73.6213 -23.9226,73.6225 -23.9349,73.6206 -23.9559,73.6121 -23.9718,73.6026 -23.9751,73.5606 -23.9365,73.5015 -23.9235,73.4934 -23.9072,73.4884 -23.6594,73.4147 -23.5285,73.3855 -23.4968,73.3767 -23.4757,73.369 -23.4624,73.3628 -23.4544,73.3534 -23.448,73.3454 -23.4335,73.3416 -23.3176,73.3122 -23.3028,73.3099 -23.2237,73.3089 -23.1651,73.2992 -23.1293,73.2878 -23.1077,73.2741 -23.0868,73.2612 -23.0708,73.2557 -23.0551,73.2517 -22.8818,73.2241 -22.8389,73.2188 -22.7701,73.2209 -22.7122,73.2201 -22.6806,73.2174 -22.5755,73.2015 -22.5608,73.1988 -22.5249,73.189 -22.5074,73.1833 -22.4681,73.1742 -22.4443,73.1697 -22.4074,73.1622 -22.3661,73.1563 -22.3241,73.1518 -22.2306,73.1459 -22.1931,73.1454 -22.1716,73.1467 -22.1345,73.1512 -22.1084,73.1576 -22.0489,73.1786 -22.0138,73.1935 -21.9728,73.2096 -21.9216,73.2275 -21.8947,73.2368 -21.8794,73.2413 -21.8589,73.2454 -21.7093,73.2732 -21.6235,73.2852 -21.5597,73.3639 -21.5199,73.3765 -21.5073,73.3787 -21.471,73.3827 -21.4353,73.3843 -21.4008,73.3831 -21.3833,73.3817 -21.3636,73.379 -21.3341,73.3732 -21.1811,73.3541 -21.0379,73.3541 -20.88,73.3609 -20.7498,73.3602 -20.7295,73.3598 -20.6384,73.3514 -20.6,73.3483 -20.5829,73.3477 -20.5608,73.3478 -20.5151,73.3494 -20.4799,73.351 -20.4648,73.3518 -20.4501,73.3538 -20.426,73.3585 -20.4019,73.3642 -20.3864,73.3694 -20.3775,73.3747 -20.3202,73.4254 -20.333,73.4339 -20.3703,73.4338 -20.3947,73.4343 -20.4198,73.4377 -20.4606,73.449 -20.4727,73.4596 -20.4697,73.4694 -20.4618,73.4764 -20.4394,73.4881 -20.4228,73.4966 -20.41,73.5296 -20.4083,73.5422 -20.4424,73.5824 -20.4554,73.5906 -20.4673,73.5961 -20.477,73.6056 -20.4815,73.621 -20.4297,73.658 -20.4212,73.6642 -20.4024,73.6705 -20.3692,73.676 -20.2962,73.6813 -20.2825,73.6813 -20.2398,73.6884 -20.2307,73.696 -20.2121,73.7403 -20.2281,73.7769 -20.2447,73.7832 -20.2578,73.7852 -20.3134,73.7905 -20.3731,73.7919 -20.4164,73.7905 -20.4911,73.7829 -20.5617,73.7789 -20.5824,73.7783 -20.6252,73.7812 -20.6648,73.7853 -20.7086,73.7909 -20.9902,73.8371 -21.2169,73.8795 -21.2635,73.8927 -21.3538,73.9142 -21.4338,73.9304 -21.4795,73.9387 -21.5133,73.9446 -21.6305,73.9607 -21.6521,73.9618 -21.6665,73.9612 -21.6934,73.9576 -21.8071,73.9355 -21.8329,73.9255 -21.8507,73.9162 -21.8587,73.9101 -21.861,73.8783 -21.8357,73.8219 -21.9303,73.8997 -22.0054,73.9178 -22.0273,73.9201 -22.049,73.9196 -22.0636,73.9187 -22.1299,73.9202 -22.1917,73.9249 -22.2066,73.9272 -22.4238,73.9678 -22.4341,73.9758 -22.4204,73.9815 -23.4705,74.2638 -25.1706,74.2265 -25.8655,74.0652 -27.1312,73.755 -27.7765,73.4448 -28.2481,72.9856 -28.6824,72.5016 -28.8685,72.1542 -29.0299,71.6454 -29.1788,71.087 -29.216,70.7023 -29.2532,70.2555 -29.2419,69.9615 594,-2.0,Greenland -22.7994,76.4456 -22.7135,76.2245 -22.5149,76.026 -22.3164,75.8274 -22.1054,75.7902 -21.8324,75.7281 -21.5346,75.7033 -21.1127,75.6537 -20.7528,75.6289 -20.4922,75.6164 -20.2068,75.5668 -19.9834,75.5296 -19.7476,75.4799 -19.7153,75.4745 -19.7353,75.5544 -19.6907,75.7773 -19.7023,75.7825 -19.727,75.7915 -19.7699,75.8024 -19.8798,75.8236 -19.9328,75.8275 -20.0812,75.8235 -20.1516,75.819 -20.1846,75.8163 -20.2289,75.8162 -20.2768,75.8165 -20.3042,75.8186 -20.3176,75.8194 -20.3407,75.8234 -20.3656,75.8322 -20.4284,75.8416 -20.4534,75.8438 -20.5275,75.8495 -20.5516,75.8508 -20.649,75.8544 -20.7659,75.8569 -21.0285,75.862 -21.0986,75.8617 -21.1616,75.8594 -21.2403,75.8555 -21.3028,75.8522 -21.3459,75.8492 -21.4091,75.8476 -21.5294,75.8465 -21.7983,75.8479 -21.8152,75.8503 -21.9096,75.8772 -21.9203,75.8834 -21.8911,75.9288 -21.8785,75.9346 -21.8646,75.9353 -21.8247,75.9277 -21.7985,75.9083 -21.7942,75.8988 -21.7869,75.891 -21.7725,75.8855 -21.7587,75.882 -21.7195,75.8746 -21.6597,75.8664 -21.616,75.8628 -21.5819,75.8622 -21.3587,75.8658 -21.3244,75.8696 -21.3052,75.8728 -21.2648,75.8827 -21.2423,75.8862 -21.2244,75.8872 -20.8576,75.893 -20.7951,75.8924 -20.6434,75.8835 -20.3788,75.8715 -20.3409,75.8718 -20.3035,75.8741 -20.2266,75.8833 -20.1575,75.8941 -20.0994,75.9064 -20.0559,75.9155 -20.0226,75.9238 -20.0123,75.9298 -20.0016,75.935 -19.9833,75.9403 -19.9491,75.9476 -19.9259,75.9512 -19.871,75.9557 -19.8493,75.9566 -19.8068,75.9558 -19.7821,75.9535 -19.7306,75.9437 -19.7144,75.943 -19.6901,75.9433 -19.6753,75.9466 -19.6608,75.9525 -19.6137,76.0108 -19.6121,76.0221 -19.7101,76.0961 -19.7379,76.1137 -19.7502,76.1206 -19.7776,76.1299 -19.8172,76.1409 -19.848,76.1483 -19.8733,76.1506 -19.8899,76.1512 -20.0952,76.143 -20.1314,76.1402 -20.1548,76.1378 -20.1919,76.132 -20.2502,76.1178 -20.3172,76.1106 -20.3419,76.1111 -20.377,76.1126 -20.4274,76.1178 -20.5135,76.1298 -20.6227,76.1495 -20.727,76.173 -20.7547,76.1802 -20.7949,76.1891 -20.8211,76.1935 -20.8466,76.1969 -20.8896,76.2007 -20.9313,76.2029 -20.9556,76.2032 -20.9798,76.202 -21.0053,76.1987 -21.0258,76.1878 -20.9718,76.1592 -20.9481,76.1508 -20.9344,76.1475 -20.8088,76.1173 -20.7564,76.1073 -20.6235,76.089 -20.3648,76.0287 -20.5038,76.0263 -20.5128,76.0344 -20.5461,76.0494 -20.6672,76.0689 -20.8402,76.1084 -20.885,76.1187 -20.9531,76.1378 -20.972,76.1433 -20.9859,76.1486 -20.9963,76.1542 -21.0089,76.1629 -21.0308,76.1694 -21.0527,76.1725 -21.0981,76.1734 -21.1373,76.1698 -21.3189,76.152 -21.4372,76.1122 -21.4612,76.1109 -21.4753,76.1109 -21.6032,76.1286 -21.6213,76.1311 -21.643,76.1428 -21.5931,76.2148 -21.5851,76.225 -21.5688,76.2349 -21.5366,76.2509 -21.516,76.2602 -21.4999,76.2684 -21.4944,76.2773 -21.5097,76.3256 -21.5236,76.3311 -21.5433,76.3331 -21.5576,76.3333 -21.584,76.3322 -21.6079,76.33 -21.6293,76.3268 -21.6485,76.3222 -21.6837,76.3178 -22.0793,76.3049 -22.127,76.304 -22.1437,76.3047 -22.3158,76.3133 -22.3413,76.3147 -22.3658,76.3181 -22.3889,76.3236 -22.423,76.3323 -22.44,76.3383 -22.3668,76.3876 -22.3386,76.3901 -22.2883,76.3895 -22.2563,76.3834 -22.2401,76.3776 -22.2178,76.3598 -22.2071,76.3506 -22.1943,76.3456 -22.1757,76.3411 -22.1524,76.336 -22.125,76.3308 -22.0816,76.3272 -21.898,76.3194 -21.858,76.3182 -21.8335,76.3191 -21.7755,76.3237 -21.6954,76.3307 -21.6837,76.333 -21.6659,76.3392 -21.6137,76.376 -21.6393,76.3868 -21.6517,76.3865 -21.7653,76.3709 -21.7966,76.3623 -21.8333,76.3559 -21.9475,76.351 -21.9717,76.3592 -21.9437,76.3698 -21.9201,76.3732 -21.7612,76.394 -21.7015,76.4005 -21.6771,76.4019 -21.6375,76.407 -21.6174,76.413 -21.7523,76.4813 -21.7872,76.4932 -21.8445,76.5094 -21.8696,76.5132 -22.0573,76.5321 -22.0967,76.5306 -22.1209,76.528 -22.14,76.5249 -22.1532,76.5208 -22.2753,76.4702 -22.2625,76.4391 -22.2441,76.4266 -22.2243,76.4139 -22.2452,76.4041 -22.27,76.4035 -22.3704,76.4368 -22.4356,76.5134 -22.5324,76.5504 -22.5795,76.5521 -22.6161,76.5578 -22.6424,76.5634 -22.6558,76.5681 -22.6705,76.5766 -22.6769,76.5852 -22.6736,76.595 -22.6549,76.6074 -22.6267,76.6187 -22.5872,76.6282 -22.5476,76.6342 -22.5112,76.637 -22.4857,76.6378 -22.3442,76.6347 -22.2961,76.6659 -22.3121,76.6766 -22.3547,76.724 -22.2614,76.7418 -22.2234,76.7473 -22.2028,76.7486 -22.1764,76.7476 -22.1062,76.7374 -22.0877,76.732 -21.8749,76.6576 -21.8557,76.6476 -21.807,76.6157 -21.7605,76.5876 -21.6865,76.5498 -21.653,76.5413 -21.6041,76.5356 -21.5611,76.5337 -21.5431,76.5355 -21.3782,76.5983 -21.2655,76.6315 -21.2278,76.6733 -21.2462,76.683 -21.2229,76.6929 -21.1603,76.6985 -21.1355,76.6966 -21.0987,76.6908 -21.0888,76.6872 -21.0514,76.6782 -21.0334,76.6758 -21.0079,76.6761 -20.9898,76.6791 -20.9605,76.6861 -20.8881,76.7121 -20.8791,76.7328 -20.9324,76.7492 -20.9512,76.7534 -20.9647,76.7552 -20.9905,76.7557 -21.012,76.7553 -21.1644,76.7517 -21.3848,76.7471 -21.4066,76.7478 -21.6451,76.7652 -21.6651,76.7716 -21.6544,76.7766 -21.5142,76.789 -21.489,76.7896 -21.4299,76.7873 -21.3741,76.7823 -21.14,76.7863 -21.0985,76.7893 -21.0557,76.7892 -20.8716,76.7783 -20.845,76.7761 -20.7903,76.7674 -20.7666,76.7619 -20.7396,76.7588 -20.7189,76.7603 -20.5326,76.8052 -20.5209,76.8117 -20.5275,76.8201 -20.5437,76.8241 -20.6394,76.8444 -20.6898,76.8465 -20.7943,76.844 -20.8886,76.8379 -20.9342,76.8339 -20.9577,76.8329 -20.9727,76.8359 -20.917,76.8719 -20.9023,76.8726 -20.6631,76.878 -20.6413,76.8774 -20.35,76.8588 -20.2426,76.8475 -20.1327,76.8332 -20.1132,76.8321 -20.0658,76.8317 -20.0406,76.8344 -20.0162,76.8386 -20.0028,76.8431 -19.9869,76.8463 -19.968,76.8482 -19.9464,76.8483 -19.8416,76.8495 -19.8136,76.8496 -19.6925,76.8331 -19.4848,76.7988 -19.3918,76.7794 -19.348,76.7686 -19.2412,76.7518 -19.1296,76.7492 -18.9372,76.7463 -18.8907,76.7475 -18.8562,76.7464 -18.755,76.7312 -18.5023,76.6749 -18.4854,76.6645 -18.476,76.6598 -18.4196,76.6341 -18.4004,76.6329 -18.3926,76.6436 -18.4387,76.6753 -18.4527,76.6818 -18.4644,76.6897 -18.4654,76.6999 -18.4537,76.7049 -18.4413,76.7081 -18.4208,76.7103 -18.4038,76.7104 -18.3861,76.7067 -18.3715,76.6973 -18.3536,76.6924 -18.3275,76.6917 -18.2774,76.6933 -18.2525,76.6965 -18.1306,76.7712 -18.0787,76.8245 -18.0696,76.8356 -18.0919,76.977 -18.1787,77.1664 -18.1897,77.1777 -18.2052,77.1894 -18.342,77.2316 -18.3624,77.2337 -18.469,77.2373 -18.5633,77.2349 -18.5793,77.2351 -18.651,77.2399 -18.7594,77.2496 -18.8366,77.2572 -18.8597,77.2608 -18.9131,77.2615 -19.0059,77.2268 -19.0173,77.2197 -19.0163,77.2079 -18.9943,77.1919 -18.9795,77.1863 -18.9694,77.1809 -18.9613,77.1742 -18.9564,77.1178 -18.9809,77.1142 -19.0009,77.1162 -19.0786,77.1279 -19.1618,77.1435 -19.2115,77.1493 -19.2387,77.1509 -19.2621,77.1485 -19.28,77.1416 -19.3007,77.1366 -19.3445,77.1296 -19.364,77.129 -19.3916,77.1335 -19.4042,77.1422 -19.399,77.151 -19.3897,77.1568 -19.353,77.1749 -19.342,77.1891 -19.3524,77.2029 -19.3998,77.2213 -19.4269,77.2311 -19.4658,77.2423 -19.4917,77.2472 -19.5924,77.2666 -19.6489,77.2756 -19.7476,77.2861 -19.7772,77.288 -19.8015,77.2881 -20.0085,77.2825 -20.061,77.2792 -20.1382,77.2718 -20.1668,77.2709 -20.2424,77.2717 -20.2926,77.2745 -20.3731,77.2832 -20.4301,77.2922 -20.5945,77.2975 -20.6354,77.293 -20.6613,77.2917 -20.7111,77.302 -20.6897,77.3074 -20.6617,77.3107 -20.6382,77.3126 -20.5029,77.3209 -20.479,77.3217 -20.4633,77.3213 -20.4382,77.3194 -20.366,77.3119 -20.2919,77.3032 -20.2393,77.2997 -20.215,77.2995 -20.1442,77.3019 -20.079,77.3069 -20.0196,77.3145 -19.9864,77.3207 -19.9653,77.3254 -19.9505,77.3379 -19.9815,77.3464 -20.0088,77.349 -20.2953,77.3614 -20.5483,77.3737 -20.6515,77.3811 -20.8704,77.4108 -20.9875,77.433 -20.9705,77.4352 -20.9258,77.4362 -20.8708,77.434 -20.8027,77.427 -20.6937,77.4128 -20.5579,77.3991 -20.505,77.3955 -20.4226,77.3912 -20.3928,77.3902 -20.3684,77.39 -20.3437,77.3953 -20.3152,77.4037 -20.2998,77.4139 -20.3141,77.426 -20.3345,77.4315 -20.3781,77.4406 -20.4244,77.4436 -20.4464,77.4423 -20.5158,77.4351 -20.5907,77.4362 -20.5526,77.4428 -20.5116,77.4476 -20.4683,77.4523 -20.4204,77.4561 -20.3664,77.4569 -20.311,77.4532 -20.2991,77.4509 -20.226,77.4421 -20.1987,77.4417 -20.1868,77.4461 -20.1992,77.4553 -20.2853,77.487 -20.3057,77.4925 -20.33,77.4981 -20.3869,77.5047 -20.4449,77.5092 -20.5026,77.5112 -20.6103,77.5212 -20.8519,77.5538 -20.836,77.5626 -20.8071,77.5688 -20.5909,77.5979 -20.478,77.6003 -20.429,77.5914 -20.403,77.5885 -20.3748,77.5871 -20.3495,77.587 -20.3231,77.5885 -20.2969,77.5918 -20.2715,77.597 -20.255,77.6017 -20.2439,77.608 -20.2189,77.6143 -20.1968,77.6165 -20.1421,77.6164 -20.0868,77.6155 -20.0287,77.613 -19.9748,77.6085 -19.908,77.5999 -19.5592,77.5178 -19.5193,77.5068 -19.4952,77.5012 -19.3807,77.4816 -19.2964,77.4702 -19.2735,77.4686 -19.2464,77.4682 -19.2245,77.4713 -19.2117,77.4744 -19.1793,77.4866 -19.1582,77.4924 -19.1327,77.4976 -19.1067,77.5019 -19.0535,77.5057 -18.9971,77.5065 -18.9508,77.5086 -18.9241,77.5109 -18.9026,77.5176 -18.979,77.5654 -18.9983,77.5764 -19.0218,77.5879 -19.1518,77.6394 -19.1828,77.6505 -19.2313,77.6606 -19.26,77.665 -19.3683,77.6761 -19.429,77.6792 -19.5074,77.6799 -19.5655,77.6837 -19.787,77.7017 -19.8699,77.7084 -20.0377,77.728 -20.2513,77.7578 -20.3013,77.7676 -20.542,77.8202 -20.5568,77.8326 -20.5388,77.8475 -20.5396,77.8586 -20.5645,77.8652 -20.7696,77.8983 -20.7918,77.9014 -20.8037,77.9017 -20.8172,77.9005 -20.8392,77.8973 -20.856,77.8928 -20.9801,77.8566 -21.0261,77.8387 -21.0645,77.8208 -21.1101,77.7986 -21.2562,77.7227 -21.2673,77.7164 -21.3034,77.6945 -21.3183,77.6777 -21.3307,77.6594 -21.3351,77.6488 -21.3385,77.6369 -21.3403,77.6256 -21.3396,77.6088 -21.3332,77.5749 -21.3243,77.5652 -21.3504,77.5229 -21.501,77.4568 -21.5144,77.452 -21.658,77.4189 -21.661,77.4371 -21.6222,77.4507 -21.4661,77.5035 -21.3671,77.5403 -21.365,77.5452 -21.3659,77.5623 -21.4006,77.5682 -21.4429,77.571 -21.4712,77.5727 -21.7456,77.5753 -21.7724,77.5736 -21.7914,77.571 -21.8266,77.5636 -21.946,77.5658 -21.958,77.5692 -21.9689,77.5647 -22.3784,77.4282 -22.5273,77.2545 -22.6266,77.0807 -22.7507,76.8946 -22.8003,76.6836 -22.8003,76.4479 -22.7994,76.4456 21,-2.0,Greenland -19.7306,75.5356 -19.7153,75.4745 -19.5987,75.4551 -19.425,75.4179 -19.3219,75.4179 -19.3221,75.4187 -19.3306,75.437 -19.34,75.4514 -19.361,75.4656 -19.4561,75.5237 -19.5486,75.5619 -19.5574,75.5698 -19.524,75.6177 -19.5139,75.6235 -19.5031,75.6265 -19.5018,75.6651 -19.6454,75.7561 -19.6548,75.7614 -19.6907,75.7773 -19.7353,75.5544 -19.7306,75.5356 67,1.0,Norway 18.083,80.3113 18.0685,80.2929 18.0928,80.2845 18.1169,80.2886 18.1685,80.2895 18.2119,80.2884 18.2276,80.287 18.2516,80.2758 18.3019,80.2711 18.3607,80.272 18.3749,80.2693 18.3855,80.2578 18.3852,80.2431 18.3949,80.2423 18.422,80.2472 18.4357,80.2539 18.4494,80.2557 18.52,80.2561 18.5679,80.2593 18.5972,80.2638 18.6086,80.2706 18.6127,80.2863 18.6331,80.2891 18.6869,80.2903 18.7059,80.2925 18.722,80.2995 18.7238,80.3078 18.7186,80.3101 18.696,80.3068 18.6934,80.3029 18.6774,80.3014 18.6463,80.3016 18.6197,80.2998 18.6181,80.2999 18.5895,80.3011 18.5444,80.3158 18.5316,80.3166 18.503,80.307 18.4827,80.3048 18.4753,80.3074 18.4946,80.314 18.4947,80.3195 18.5751,80.3326 18.5786,80.337 18.542,80.3353 18.5254,80.337 18.5186,80.342 18.5323,80.3465 18.5318,80.3544 18.5201,80.3578 18.4402,80.3622 18.4335,80.3634 18.4119,80.3673 18.392,80.3764 18.3783,80.3774 18.3581,80.3726 18.3435,80.3724 18.3285,80.3784 18.3099,80.3778 18.2536,80.3707 18.2308,80.3708 18.1686,80.3657 18.0855,80.3441 18.0844,80.3401 18.1059,80.34 18.083,80.3113 18.083,80.3113 52,1.0,Norway 24.9635,76.4633 24.9448,76.445 24.9473,76.4409 24.9586,76.4393 24.9759,76.4368 24.9981,76.4362 25.0,76.4368 25.0233,76.4443 25.0401,76.4462 25.0424,76.4491 25.0169,76.4553 25.0336,76.4806 25.0578,76.4875 25.0792,76.5035 25.1206,76.5149 25.1755,76.534 25.225,76.5513 25.237,76.5598 25.2343,76.5692 25.3087,76.6032 25.3946,76.6262 25.4158,76.6297 25.4338,76.6404 25.4905,76.6737 25.5294,76.6889 25.5436,76.6972 25.5895,76.7114 25.5863,76.7164 25.5494,76.7149 25.5056,76.7066 25.4589,76.6924 25.458,76.6919 25.4347,76.6764 25.4396,76.6764 25.3861,76.655 25.3812,76.655 25.3347,76.6267 25.3216,76.6248 25.2878,76.6084 25.2519,76.5971 25.2174,76.5835 25.1609,76.5613 25.1166,76.5523 25.1035,76.5487 25.0676,76.5273 25.0422,76.5193 25.0387,76.5068 25.0,76.497 24.9965,76.4961 24.9934,76.4779 24.9635,76.4633 24.9635,76.4633 42,1.0,Norway 26.3992,78.781 26.4039,78.7637 26.428,78.7402 26.4621,78.726 26.4657,78.7246 26.469,78.7027 26.5093,78.6973 26.6094,78.6736 26.6525,78.6706 26.6994,78.6567 26.6886,78.6393 26.709,78.6318 26.7233,78.6303 26.7247,78.6402 26.7551,78.6456 26.8138,78.6449 26.878,78.6471 26.9167,78.6564 26.9481,78.6681 26.9389,78.676 26.9502,78.6861 26.9928,78.6926 27.006,78.6977 27.0012,78.7007 26.9091,78.6996 26.9026,78.7002 26.8573,78.7048 26.7812,78.722 26.7524,78.731 26.7077,78.7531 26.6446,78.7691 26.6234,78.7805 26.6038,78.798 26.6126,78.8043 26.6078,78.8049 26.5765,78.809 26.5468,78.816 26.5026,78.8173 26.4535,78.8048 26.4154,78.7979 26.3992,78.781 26.3992,78.781 43,1.0,Norway 19.621,79.3978 19.6492,79.391 19.6581,79.372 19.6364,79.3599 19.6532,79.3539 19.6625,79.3445 19.6813,79.3399 19.7151,79.3378 19.748,79.3389 19.818,79.3465 19.8901,79.3516 19.9838,79.3508 20.0,79.3491 20.0293,79.346 20.041,79.3448 20.0669,79.3402 20.0871,79.3288 20.0891,79.3277 20.1248,79.3233 20.1427,79.3248 20.1579,79.3357 20.1503,79.3406 20.1316,79.3418 20.1172,79.3487 20.0961,79.3496 20.0294,79.3681 20.0289,79.3683 20.0,79.3733 19.9365,79.3842 19.8865,79.39 19.8629,79.3907 19.8117,79.3999 19.7784,79.4021 19.7713,79.4026 19.7153,79.4111 19.6813,79.413 19.6471,79.4117 19.6484,79.4079 19.6676,79.4058 19.6689,79.4022 19.6268,79.4024 19.621,79.3978 19.621,79.3978 170,1.0,Norway 10.4907,78.8982 10.4983,78.8853 10.5386,78.8637 10.5323,78.843 10.5435,78.83 10.5205,78.8115 10.506,78.7997 10.5349,78.7816 10.5399,78.773 10.5648,78.7668 10.5635,78.7617 10.5988,78.7504 10.6288,78.7321 10.6579,78.7231 10.6807,78.7202 10.7006,78.7046 10.7085,78.6936 10.7368,78.6874 10.7248,78.679 10.7472,78.6683 10.791,78.6618 10.8288,78.6445 10.8269,78.6301 10.837,78.6235 10.8712,78.6149 10.9108,78.5928 10.9258,78.5844 10.929,78.5706 10.9459,78.5604 10.9809,78.5561 10.99,78.5476 10.9762,78.5354 10.9941,78.5157 11.022,78.4957 11.035,78.4758 11.066,78.4629 11.1622,78.4398 11.1889,78.4392 11.209,78.4464 11.2455,78.4531 11.3058,78.4575 11.3198,78.4508 11.3453,78.4486 11.3741,78.4339 11.402,78.4316 11.4717,78.4108 11.521,78.4087 11.5745,78.3946 11.5984,78.379 11.6671,78.3387 11.7289,78.3271 11.7501,78.3207 11.8199,78.3054 11.8239,78.2988 11.8197,78.2822 11.7807,78.2748 11.7745,78.2737 11.7723,78.2666 11.8119,78.2668 11.8226,78.264 11.8475,78.2407 11.8756,78.2316 11.9235,78.2254 11.9378,78.226 11.9413,78.2294 11.9555,78.23 11.9844,78.2223 12.0491,78.2186 12.0783,78.2116 12.1208,78.211 12.1469,78.2052 12.15,78.2149 12.1241,78.2255 12.1504,78.2276 12.1227,78.2474 12.0801,78.2696 12.0881,78.2887 12.0444,78.3095 12.018,78.3198 11.9766,78.3359 11.9492,78.3666 11.9084,78.3841 11.8741,78.3966 11.862,78.4042 11.8944,78.4382 11.9088,78.4448 11.9033,78.4469 11.7994,78.4467 11.6753,78.4519 11.6284,78.4615 11.5843,78.4815 11.5605,78.4871 11.534,78.4925 11.5243,78.4968 11.5176,78.5092 11.5015,78.5125 11.4778,78.5134 11.4512,78.5364 11.4613,78.5448 11.4574,78.5485 11.4206,78.5503 11.3054,78.5477 11.2748,78.5502 11.2841,78.5524 11.2848,78.5585 11.2975,78.5597 11.2954,78.5751 11.27,78.5815 11.2446,78.5979 11.2708,78.6143 11.2604,78.6193 11.2468,78.6214 11.1983,78.6218 11.1668,78.6249 11.1577,78.6374 11.1785,78.6549 11.1634,78.6643 11.15,78.6706 11.1022,78.6756 11.0597,78.6858 11.0459,78.6966 11.0449,78.7009 11.0568,78.7076 11.0786,78.715 11.107,78.7196 11.1319,78.7265 11.1522,78.7293 11.1909,78.7309 11.1915,78.7369 11.1217,78.7641 11.1148,78.7703 11.095,78.7744 11.0867,78.7743 11.0847,78.7728 11.0924,78.7678 11.0845,78.764 11.0741,78.7636 11.0675,78.7643 11.0671,78.7703 11.0363,78.7656 11.0276,78.7659 11.0145,78.7705 11.0187,78.7732 11.0056,78.7755 10.9847,78.7716 10.9601,78.7746 10.9558,78.7781 10.9171,78.7891 10.8951,78.8004 10.9195,78.8009 10.9318,78.8039 10.9291,78.8075 10.9184,78.8096 10.9579,78.8161 10.9764,78.8243 11.0092,78.825 11.0215,78.8313 10.8513,78.8724 10.8306,78.8736 10.8059,78.8796 10.7803,78.8799 10.7413,78.8878 10.705,78.888 10.6774,78.8895 10.6438,78.8913 10.6005,78.8934 10.5433,78.9039 10.5133,78.9027 10.4907,78.8982 10.4907,78.8982 23,1.0,Norway 19.8358,80.5105 19.8316,80.4945 19.848,80.4881 19.9137,80.4769 19.9312,80.4756 19.954,80.4766 20.0,80.482 20.0186,80.4842 20.1063,80.503 20.1104,80.5086 20.1031,80.5125 20.0843,80.5159 20.0199,80.5372 20.0,80.5394 19.9986,80.5395 19.9822,80.5388 19.9311,80.5289 19.9305,80.5209 19.8737,80.5135 19.8496,80.5133 19.8407,80.5115 19.8358,80.5105 19.8358,80.5105 22,1.0,Norway 10.6603,79.7549 10.684,79.7504 10.7543,79.742 10.8122,79.7393 10.9241,79.7394 10.9285,79.7381 10.9794,79.7366 11.0163,79.732 11.0467,79.7327 11.0475,79.7352 11.0123,79.7418 10.9428,79.7518 10.9296,79.7632 10.9237,79.7668 10.9143,79.7725 10.8776,79.7716 10.7926,79.7834 10.7551,79.7799 10.7545,79.775 10.7051,79.7705 10.6603,79.7549 10.6603,79.7549 34,1.0,Norway 19.9234,79.242 19.9392,79.234 19.9943,79.2291 20.0,79.2306 20.0214,79.236 20.0288,79.2396 20.0436,79.2469 20.0753,79.247 20.1112,79.2449 20.1121,79.2583 20.1252,79.2596 20.1303,79.2669 20.1205,79.2754 20.0905,79.2779 20.0785,79.2853 20.1126,79.2897 20.0994,79.2973 20.0704,79.2961 20.041,79.3042 20.0291,79.3041 20.0154,79.304 20.0,79.3018 19.9931,79.3008 19.9844,79.2965 19.9814,79.295 19.9421,79.2916 19.9486,79.2864 19.9984,79.2833 20.0,79.2828 20.0162,79.2771 20.0,79.2719 19.9384,79.2522 19.9234,79.242 19.9234,79.242 97,1.0,Norway 27.8725,78.8557 27.8646,78.8508 27.9101,78.8378 28.0512,78.8349 28.0923,78.832 28.0897,78.8283 28.0806,78.8152 28.0781,78.798 28.0856,78.7974 28.0871,78.7959 28.0961,78.7974 28.1072,78.8186 28.1227,78.8288 28.1723,78.8433 28.2704,78.8577 28.2895,78.8638 28.3398,78.871 28.3894,78.8818 28.4279,78.8832 28.4486,78.8871 28.4543,78.8876 28.5113,78.8925 28.5473,78.8909 28.599,78.88 28.6298,78.8804 28.654,78.8841 28.6329,78.892 28.6424,78.8946 28.7061,78.8994 28.7281,78.903 28.7595,78.9069 28.8043,78.909 28.9242,78.9071 28.9554,78.9031 29.0668,78.8702 29.0884,78.8686 29.1195,78.8623 29.194,78.8556 29.2462,78.8538 29.2647,78.8531 29.3273,78.8466 29.3576,78.8458 29.342,78.8544 29.3566,78.8641 29.3849,78.8706 29.4403,78.8791 29.5231,78.888 29.6265,78.8886 29.6544,78.8919 29.6924,78.9025 29.6914,78.9055 29.6898,78.9106 29.6651,78.9175 29.6149,78.9169 29.5663,78.9127 29.51,78.9051 29.4512,78.9038 29.3742,78.8974 29.3333,78.8961 29.2786,78.899 29.194,78.9039 29.1102,78.9045 29.0547,78.9097 29.0553,78.9108 28.9928,78.9186 28.9689,78.9303 28.9786,78.9331 29.014,78.9326 29.0147,78.934 28.963,78.9422 28.9501,78.9571 28.9308,78.9565 28.9145,78.95 28.9064,78.95 28.873,78.9503 28.8479,78.9548 28.7357,78.9566 28.6487,78.9613 28.5559,78.9613 28.5293,78.9552 28.4533,78.9608 28.4276,78.9701 28.4015,78.965 28.4032,78.9614 28.4342,78.9589 28.4549,78.9512 28.4463,78.9374 28.4173,78.9256 28.3301,78.9161 28.2326,78.9126 28.1417,78.9131 28.1277,78.9024 28.1124,78.898 28.0257,78.8732 27.9334,78.8607 27.8725,78.8557 27.8725,78.8557 56,1.0,Norway 20.0945,79.0501 20.0667,79.0471 20.0672,79.0455 20.098,79.0424 20.1282,79.0329 20.1516,79.0304 20.1531,79.0252 20.1963,79.0245 20.2368,79.0206 20.2905,79.0118 20.2889,79.0043 20.3921,79.0062 20.4233,79.0096 20.4365,79.0186 20.4522,79.0202 20.454,79.0204 20.4756,79.0197 20.4959,79.0242 20.5733,79.0299 20.6035,79.0294 20.6294,79.029 20.6455,79.021 20.6551,79.0206 20.6689,79.0288 20.6864,79.0311 20.7592,79.052 20.7793,79.0528 20.8029,79.0648 20.7892,79.0725 20.6662,79.0906 20.5711,79.1011 20.5485,79.1052 20.5136,79.1051 20.4879,79.1119 20.473,79.1125 20.4443,79.1131 20.4177,79.1187 20.3982,79.1195 20.4188,79.114 20.4076,79.1105 20.3824,79.1106 20.2287,79.1097 20.1968,79.1119 20.1476,79.1242 20.1069,79.1233 20.096,79.1191 20.1247,79.1076 20.1138,79.0995 20.0939,79.0936 20.0869,79.0844 20.0727,79.0799 20.0883,79.0634 20.0927,79.0612 20.1052,79.0548 20.0945,79.0501 20.0945,79.0501 39,1.0,Norway 10.7913,79.717 10.7461,79.7166 10.7468,79.7117 10.7743,79.7051 10.8693,79.6974 10.8777,79.6947 10.8215,79.6918 10.8226,79.691 10.7714,79.6904 10.7624,79.6849 10.7769,79.6794 10.7724,79.6735 10.75,79.6631 10.7932,79.654 10.7868,79.6487 10.797,79.6477 10.8617,79.6497 10.8686,79.6495 10.9193,79.648 10.9455,79.652 10.9883,79.6627 11.0422,79.6685 11.0707,79.6619 11.0877,79.6627 11.0971,79.6724 11.0937,79.6797 11.0713,79.6876 11.0136,79.6894 11.0125,79.6947 11.0436,79.698 11.0319,79.7013 10.9943,79.7056 10.9879,79.7189 10.9636,79.7216 10.9293,79.7199 10.861,79.7238 10.8283,79.7174 10.7913,79.717 10.7913,79.717 153,1.0,Norway 20.1691,78.4842 20.1958,78.4781 20.2299,78.4782 20.2675,78.4736 20.2836,78.4685 20.3294,78.4719 20.3502,78.4662 20.3876,78.4666 20.4721,78.4563 20.5653,78.4458 20.5916,78.4401 20.6143,78.4157 20.6748,78.3935 20.6626,78.3765 20.6697,78.3701 20.6519,78.3634 20.6616,78.3599 20.6619,78.3531 20.6544,78.3512 20.6319,78.3506 20.6223,78.3482 20.6403,78.343 20.6739,78.3423 20.6676,78.3413 20.6653,78.3363 20.6655,78.3204 20.5575,78.3243 20.5627,78.321 20.5803,78.3175 20.6222,78.3158 20.6141,78.3117 20.6158,78.3085 20.6424,78.3049 20.6441,78.3078 20.6321,78.3111 20.6757,78.3126 20.7053,78.3108 20.7344,78.3051 20.7741,78.2949 20.7784,78.2801 20.7915,78.2766 20.7805,78.2654 20.7561,78.259 20.7375,78.2574 20.7138,78.2586 20.7129,78.2522 20.7323,78.2401 20.7152,78.2368 20.7298,78.231 20.7666,78.2308 20.8173,78.234 20.8832,78.2332 20.9858,78.2272 21.0129,78.2195 20.9886,78.2127 20.9996,78.2078 21.0677,78.2063 21.1017,78.2149 21.1622,78.2188 21.1894,78.2273 21.1959,78.2293 21.3041,78.2349 21.3963,78.2439 21.5446,78.251 21.6111,78.2619 21.6578,78.2637 21.6758,78.2622 21.6883,78.2612 21.7229,78.2529 21.7534,78.2501 21.8047,78.2504 21.8737,78.264 21.9595,78.2619 22.0444,78.2618 22.075,78.2679 22.1108,78.2782 22.1407,78.2813 22.1321,78.2829 22.141,78.3007 22.1971,78.3452 22.2067,78.3619 22.2011,78.3862 22.187,78.4032 22.1799,78.4056 22.1425,78.4185 22.1324,78.4285 22.1392,78.4508 22.1316,78.4741 22.1165,78.4837 22.0977,78.4872 22.0926,78.4938 22.0758,78.4992 22.0123,78.5194 22.001,78.5287 22.0109,78.5419 21.9979,78.5558 21.94,78.5805 21.8999,78.5889 21.8759,78.5882 21.8686,78.582 21.8422,78.5828 21.8332,78.5851 21.8127,78.5841 21.7951,78.5871 21.7831,78.5921 21.7859,78.5978 21.8034,78.606 21.7865,78.6134 21.7747,78.6054 21.7484,78.6037 21.7404,78.6065 21.6957,78.6218 21.6391,78.6212 21.6135,78.6172 21.5987,78.6149 21.4905,78.6081 21.4694,78.6032 21.4687,78.598 21.4672,78.5871 21.4613,78.576 21.4042,78.5876 21.3445,78.6211 21.3185,78.6311 21.2327,78.6344 21.2171,78.6377 21.2022,78.6372 21.1948,78.6337 21.1788,78.6329 21.1669,78.6287 21.1132,78.6206 21.1015,78.6153 21.0973,78.6011 21.1161,78.5872 21.0666,78.5704 20.999,78.5533 20.9588,78.5536 20.9281,78.5579 20.8871,78.5569 20.8523,78.5531 20.7709,78.5439 20.7267,78.5419 20.6802,78.5449 20.6542,78.5436 20.6449,78.5394 20.5628,78.5334 20.4928,78.525 20.4236,78.5232 20.2886,78.515 20.2798,78.5136 20.2207,78.5041 20.1896,78.4883 20.1691,78.4842 20.1691,78.4842 23,1.0,Norway 30.0802,79.0061 30.0759,78.9989 30.1252,78.9795 30.1237,78.9703 30.1517,78.9706 30.1621,78.9674 30.2071,78.9669 30.2111,78.9714 30.1869,78.9735 30.1839,78.9738 30.1818,78.9782 30.2165,78.9802 30.2371,78.9866 30.3346,78.9903 30.3397,78.9928 30.3006,78.9945 30.3042,79.0022 30.2782,79.0046 30.2336,79.0043 30.1964,79.0021 30.1209,79.0061 30.0802,79.0061 30.0802,79.0061 29,1.0,Norway 20.5048,80.6681 20.4896,80.6605 20.5096,80.6507 20.562,80.6381 20.6314,80.6339 20.6638,80.6286 20.6928,80.6214 20.7112,80.6128 20.7307,80.6104 20.7641,80.6204 20.7598,80.6249 20.7371,80.631 20.7396,80.637 20.7612,80.6422 20.8452,80.6544 20.8318,80.6606 20.8167,80.6643 20.7898,80.6663 20.7688,80.6656 20.6924,80.6578 20.6636,80.6577 20.6617,80.6669 20.6506,80.6698 20.6069,80.6704 20.5831,80.6668 20.5373,80.6691 20.5188,80.6701 20.5048,80.6681 20.5048,80.6681 44,1.0,Norway 20.5402,80.7521 20.5341,80.7483 20.5418,80.7446 20.5783,80.7396 20.6168,80.7367 20.6358,80.7321 20.658,80.7138 20.654,80.7099 20.6527,80.7085 20.664,80.7063 20.6821,80.7057 20.7544,80.7111 20.7769,80.7104 20.789,80.7042 20.7903,80.6819 20.8026,80.6777 20.8201,80.6756 20.8452,80.6747 20.8621,80.676 20.8717,80.6818 20.8723,80.6938 20.9047,80.6971 20.9734,80.6948 21.0016,80.6964 21.0576,80.7055 21.0576,80.7092 20.9844,80.7152 20.9553,80.7261 20.938,80.7277 20.8815,80.7159 20.8273,80.7143 20.8026,80.7166 20.7942,80.7207 20.7812,80.727 20.7164,80.7309 20.7261,80.7398 20.6892,80.7434 20.6738,80.7495 20.6588,80.7514 20.6579,80.7598 20.6299,80.762 20.5896,80.7592 20.5402,80.7521 20.5402,80.7521 311,1.0,Norway 20.8062,78.0805 20.8408,78.073 20.8971,78.0664 20.9511,78.0437 21.0486,78.0267 21.127,78.0055 21.179,77.9853 21.2231,77.9682 21.425,77.9532 21.474,77.9458 21.5306,77.9321 21.5428,77.9292 21.5499,77.9183 21.5533,77.9094 21.5198,77.8939 21.4885,77.886 21.476,77.8825 21.4705,77.8759 21.4742,77.8588 21.3923,77.8298 21.3431,77.8079 21.3242,77.7913 21.287,77.771 21.2749,77.7643 21.23,77.7513 21.2086,77.7386 21.1793,77.7099 21.1743,77.6896 21.1918,77.656 21.1637,77.6337 21.1703,77.6203 21.1562,77.6107 21.1358,77.605 21.0752,77.5926 21.0417,77.5888 21.0269,77.5889 21.0031,77.5921 20.9731,77.5876 20.9636,77.5875 20.9606,77.5925 20.9511,77.5927 20.9138,77.5876 20.9163,77.5854 20.9335,77.5835 20.9203,77.5804 20.9158,77.5756 20.8999,77.5755 20.8993,77.5729 20.8796,77.5705 20.8788,77.569 20.8953,77.5657 20.8853,77.5617 20.9012,77.5555 20.8918,77.5488 20.8763,77.5469 20.8633,77.5488 20.8528,77.5483 20.8419,77.5441 20.813,77.5462 20.815,77.541 20.8289,77.5387 20.8313,77.5384 20.845,77.5384 20.8603,77.5413 20.8808,77.5385 20.8752,77.5346 20.8508,77.5353 20.8281,77.5322 20.8528,77.524 20.8748,77.5222 20.8832,77.5209 20.8939,77.5144 20.8831,77.4995 20.8593,77.487 20.8405,77.4652 20.8453,77.4511 20.8683,77.4404 20.9022,77.4436 20.9061,77.4455 21.0052,77.4468 21.0277,77.4441 21.0364,77.4443 21.1203,77.4469 21.1201,77.448 21.1696,77.452 21.2405,77.4665 21.4352,77.4884 21.4761,77.4957 21.536,77.5008 21.5373,77.5009 21.576,77.5018 21.6709,77.4988 21.6828,77.4986 21.7824,77.4972 21.7969,77.4985 22.007,77.5179 22.0208,77.5266 22.0199,77.5357 22.0331,77.5403 22.0467,77.5425 22.2232,77.5696 22.2866,77.5815 22.3611,77.5883 22.4233,77.6052 22.4469,77.6157 22.4818,77.6169 22.4907,77.616 22.5202,77.613 22.5569,77.6024 22.6045,77.5843 22.6364,77.5805 22.6615,77.5801 22.6664,77.5733 22.6631,77.57 22.6494,77.5562 22.6537,77.5481 22.6552,77.5453 22.6456,77.5291 22.7174,77.5036 22.7538,77.4937 22.7673,77.49 22.7902,77.4702 22.7846,77.4543 22.7653,77.4418 22.7404,77.4344 22.6994,77.4254 22.6743,77.4281 22.6607,77.4255 22.6501,77.4298 22.6345,77.4289 22.6388,77.4264 22.6346,77.4241 22.6181,77.4198 22.6288,77.4121 22.6135,77.401 22.6199,77.3967 22.6159,77.3914 22.6284,77.3915 22.6314,77.3949 22.6836,77.3918 22.7026,77.388 22.7173,77.3786 22.6739,77.3328 22.6496,77.3222 22.5987,77.3103 22.5966,77.3089 22.5541,77.2933 22.561,77.2821 22.5519,77.2778 22.5545,77.2751 22.5574,77.2721 22.5956,77.2543 22.6818,77.2406 22.6991,77.245 22.7047,77.255 22.7443,77.2687 22.7872,77.2779 22.8805,77.2931 22.9157,77.2949 22.9496,77.2966 23.0186,77.3058 23.0573,77.3348 23.0912,77.3468 23.1163,77.3655 23.1343,77.3724 23.152,77.3758 23.177,77.3769 23.2207,77.3755 23.2011,77.3862 23.2972,77.4018 23.3139,77.4027 23.3327,77.4018 23.3596,77.4114 23.4612,77.4313 23.5335,77.4513 23.5719,77.4691 23.5913,77.4697 23.6384,77.4712 23.6503,77.473 23.6523,77.4806 23.6392,77.4891 23.6791,77.5056 23.7088,77.5123 23.7396,77.5234 23.7409,77.5309 23.8029,77.5539 23.8147,77.5585 23.8389,77.5613 23.8853,77.5623 23.9442,77.559 23.9758,77.5596 24.0022,77.5591 24.0933,77.565 24.1476,77.573 24.1714,77.5825 24.1756,77.5984 24.1668,77.608 24.1441,77.6179 24.1186,77.6214 24.102,77.6237 23.999,77.6279 23.9677,77.6293 23.943,77.6285 23.9271,77.6383 24.0596,77.6412 24.1403,77.642 24.2021,77.6464 24.2354,77.6506 24.2853,77.6648 24.3108,77.6783 24.2973,77.6886 24.2896,77.6946 24.2316,77.718 24.2078,77.7222 24.1942,77.7347 24.1493,77.751 24.1799,77.7782 24.2638,77.8093 24.2935,77.8174 24.3566,77.8252 24.3713,77.8335 24.3535,77.84 24.3233,77.841 24.288,77.8452 24.2234,77.8515 24.1679,77.8563 24.155,77.857 24.1391,77.8621 24.0921,77.8713 24.0416,77.8769 23.9603,77.8719 23.8876,77.8663 23.805,77.8528 23.7489,77.8465 23.7219,77.855 23.6036,77.877 23.5616,77.8893 23.5208,77.9085 23.4429,77.9351 23.4136,77.9397 23.3853,77.9418 23.3842,77.9421 23.3244,77.9609 23.2641,78.0118 23.248,78.0207 23.2234,78.0344 23.1331,78.0586 23.1364,78.0778 23.1282,78.088 23.128,78.1005 23.1531,78.1176 23.1838,78.1278 23.2378,78.1404 23.2631,78.1583 23.2542,78.1634 23.2031,78.177 23.1774,78.1881 23.1718,78.1898 23.1116,78.2074 23.0781,78.2126 23.0525,78.214 22.9989,78.2235 22.9798,78.2305 22.8405,78.2585 22.8171,78.258 22.7928,78.2525 22.7282,78.2454 22.7008,78.2423 22.5943,78.2332 22.5546,78.2272 22.5292,78.2283 22.4953,78.232 22.4541,78.2324 22.4398,78.2284 22.4302,78.2239 22.4435,78.2109 22.4338,78.2066 22.4009,78.2001 22.3822,78.1985 22.2943,78.2005 22.2521,78.1996 22.2095,78.1929 22.1628,78.1938 22.0611,78.1995 21.9736,78.2078 21.9713,78.208 21.7757,78.2164 21.7191,78.2151 21.6053,78.2018 21.5293,78.1976 21.5027,78.1975 21.4473,78.1896 21.3988,78.1888 21.3864,78.1885 21.328,78.1793 21.2537,78.1728 21.1026,78.1562 21.0599,78.1538 21.0182,78.1462 20.977,78.1418 20.8916,78.1268 20.8806,78.1257 20.8428,78.122 20.8245,78.1143 20.8248,78.108 20.8193,78.1079 20.8078,78.0996 20.8196,78.0849 20.8089,78.0835 20.8062,78.0805 20.8062,78.0805 30,1.0,Norway 21.0635,80.6902 21.0538,80.6869 21.0664,80.6719 21.1175,80.6528 21.1299,80.6518 21.1474,80.6533 21.1579,80.6588 21.1822,80.6643 21.2328,80.6688 21.2371,80.6729 21.2555,80.6754 21.282,80.6752 21.3217,80.6698 21.3449,80.67 21.3711,80.6744 21.3675,80.6808 21.3308,80.6837 21.3016,80.6842 21.2871,80.6869 21.2862,80.6901 21.3493,80.6953 21.3583,80.6976 21.3487,80.7005 21.2891,80.7076 21.2676,80.7063 21.2295,80.699 21.2166,80.6992 21.16,80.7003 21.0635,80.6902 21.0635,80.6902 2607,1.0,Norway 10.6752,79.5544 10.6644,79.5388 10.6835,79.5336 10.7117,79.5335 10.7208,79.5301 10.6995,79.5277 10.6952,79.5217 10.7336,79.5088 10.7794,79.5046 10.8088,79.5042 10.9094,79.4759 10.9375,79.4501 10.9211,79.436 10.9091,79.4223 10.8944,79.4187 10.8615,79.4176 10.8601,79.4113 10.8987,79.3933 10.9258,79.3862 10.9291,79.3773 10.8694,79.3719 10.8564,79.3679 10.8776,79.3476 10.9051,79.3304 10.9211,79.3267 10.9531,79.3214 10.9849,79.3134 10.9976,79.3111 11.0069,79.3041 11.0205,79.3021 11.0253,79.2985 11.0242,79.2923 11.0468,79.2846 11.0422,79.2813 11.0349,79.2753 11.0432,79.2692 11.1111,79.2522 11.1251,79.2479 11.1334,79.2361 11.1526,79.2258 11.18,79.1955 11.1899,79.1502 11.1998,79.1346 11.1825,79.1214 11.1918,79.1169 11.2326,79.1135 11.2455,79.1132 11.2553,79.111 11.3192,79.1098 11.4031,79.1117 11.4358,79.1141 11.5305,79.1349 11.6204,79.1499 11.6135,79.154 11.5861,79.1532 11.5542,79.1599 11.5634,79.1674 11.5823,79.1693 11.6077,79.1675 11.6054,79.165 11.5878,79.1641 11.6116,79.1581 11.6355,79.1588 11.6653,79.1666 11.6812,79.1795 11.6728,79.193 11.6996,79.2014 11.6912,79.2167 11.6466,79.2433 11.6275,79.2484 11.5917,79.27 11.5434,79.2733 11.5093,79.2783 11.5511,79.2822 11.563,79.2884 11.5454,79.2965 11.5467,79.3079 11.5797,79.3108 11.6052,79.3092 11.6293,79.311 11.6699,79.314 11.6785,79.3116 11.6941,79.3074 11.7437,79.2627 11.8057,79.2265 11.8256,79.2207 11.8323,79.2193 11.8654,79.2196 11.8907,79.2272 11.8915,79.23 11.8886,79.2456 11.8759,79.2588 11.8355,79.273 11.8473,79.2938 11.8726,79.2934 11.8979,79.286 11.9262,79.2832 11.9423,79.2817 11.961,79.2898 12.0352,79.2986 12.0683,79.3051 12.0726,79.3073 12.1316,79.2976 12.0713,79.2806 12.0729,79.2741 12.1023,79.263 12.1011,79.2612 12.0267,79.2365 12.0238,79.2273 12.0839,79.2163 12.0862,79.215 12.0869,79.2111 12.086,79.205 12.0848,79.2036 12.0776,79.2029 11.9943,79.207 11.9595,79.2048 11.8902,79.1946 11.8718,79.1621 11.8608,79.1575 11.8659,79.1553 11.85,79.1515 11.847,79.1437 11.8506,79.1401 11.8868,79.1346 11.8831,79.1261 11.8457,79.1251 11.8191,79.1227 11.8103,79.1171 11.7902,79.1129 11.7553,79.0972 11.672,79.0741 11.6883,79.068 11.7389,79.0639 11.7755,79.0558 11.8166,79.0398 11.8884,79.0339 11.9283,79.0282 11.9398,79.0246 11.9831,79.0114 12.0328,79.0091 12.0529,79.0108 12.1048,79.0074 12.1137,79.001 12.0931,78.9986 12.0369,78.9979 11.9936,78.994 11.9835,78.9885 11.9966,78.9745 12.0216,78.9677 12.0649,78.9631 12.1276,78.9668 12.1857,78.9751 12.2053,78.9761 12.2298,78.983 12.2371,78.9897 12.2425,78.9946 12.2897,79.0018 12.3613,79.0005 12.3999,78.9966 12.4241,78.9872 12.4547,78.9754 12.4492,78.9724 12.4487,78.9532 12.4596,78.9431 12.4624,78.9291 12.5027,78.9149 12.496,78.9119 12.4284,78.9073 12.3713,78.9018 12.3591,78.899 12.3538,78.8977 12.2976,78.8963 12.2695,78.8956 12.1894,78.9086 12.1308,78.9155 11.9845,78.9258 11.9584,78.9313 11.9241,78.9319 11.8921,78.9302 11.8725,78.9329 11.8654,78.9457 11.8095,78.9542 11.7868,78.9557 11.7447,78.9585 11.6494,78.9699 11.5187,78.9779 11.481,78.978 11.4264,78.9736 11.3838,78.9726 11.3454,78.9734 11.3409,78.9674 11.3564,78.9576 11.3601,78.9485 11.385,78.9407 11.5964,78.8744 11.7447,78.8563 11.8122,78.8538 11.8243,78.8533 11.8595,78.8493 11.9307,78.8336 11.9357,78.8226 11.9112,78.8191 11.8892,78.8183 11.7961,78.826 11.7756,78.825 11.7747,78.8259 11.7299,78.8126 11.6929,78.8068 11.6854,78.799 11.6907,78.7881 11.6594,78.7688 11.6423,78.7624 11.6288,78.7563 11.5673,78.7443 11.5771,78.7416 11.6321,78.7484 11.6403,78.7378 11.6183,78.7372 11.6382,78.728 11.6587,78.7253 11.6685,78.7273 11.676,78.7269 11.6902,78.721 11.7117,78.7168 11.7606,78.7069 11.7959,78.7094 11.8114,78.7105 11.854,78.694 11.8638,78.6827 11.8395,78.6803 11.8313,78.6779 11.8414,78.6679 11.8948,78.6486 11.9132,78.6384 11.9535,78.6321 12.0366,78.6084 12.0711,78.6079 12.1267,78.5989 12.1764,78.5971 12.1882,78.594 12.1967,78.5918 12.2522,78.5948 12.2769,78.5923 12.3479,78.5949 12.3627,78.5923 12.362,78.5652 12.376,78.5494 12.3931,78.5461 12.5865,78.5408 12.6374,78.5422 12.7159,78.5365 12.7645,78.5366 12.8663,78.528 12.9015,78.5289 12.9067,78.529 12.9313,78.5336 12.9532,78.5373 12.9864,78.538 13.0159,78.54 13.0396,78.5446 13.0851,78.5483 13.0914,78.5527 13.1278,78.553 13.1682,78.5469 13.2173,78.544 13.2176,78.5408 13.2185,78.5388 13.1641,78.5329 13.1513,78.5306 13.1533,78.5286 13.1263,78.5167 13.0487,78.5146 13.009,78.5074 12.9841,78.5078 12.9589,78.5047 12.7452,78.5006 12.7311,78.5017 12.7201,78.5026 12.6459,78.5048 12.5029,78.5021 12.4176,78.498 12.383,78.4916 12.3838,78.4859 12.4197,78.4699 12.446,78.4516 12.5042,78.427 12.5728,78.3979 12.6263,78.3871 12.6318,78.3873 12.6514,78.3797 12.6905,78.373 12.6912,78.3697 12.7088,78.3644 12.7178,78.3645 12.735,78.3695 12.7764,78.3669 12.7871,78.3691 12.807,78.3692 12.8109,78.3666 12.8421,78.3624 12.9037,78.3574 12.8907,78.3515 12.881,78.3419 12.8846,78.3401 12.8889,78.334 12.9189,78.3261 12.9054,78.3208 12.8839,78.3269 12.8695,78.3264 12.873,78.3175 12.8788,78.3161 12.9151,78.3152 12.9282,78.3121 12.9613,78.2921 12.946,78.2862 12.9443,78.2714 12.9342,78.2673 12.9595,78.2618 12.915,78.253 12.9525,78.2303 12.9764,78.2164 12.9975,78.2102 12.9978,78.2021 13.0811,78.2088 13.1039,78.2181 13.1267,78.2265 13.1403,78.2291 13.1617,78.2303 13.2016,78.2301 13.2371,78.2231 13.3213,78.2168 13.4029,78.2118 13.4736,78.2111 13.5205,78.2037 13.6579,78.1986 13.6856,78.2005 13.7407,78.2008 13.8493,78.21 13.8663,78.214 13.8726,78.2199 13.8542,78.2269 13.8385,78.2372 13.8026,78.2468 13.7862,78.2461 13.758,78.2559 13.7587,78.2623 13.7688,78.2678 13.807,78.2696 13.882,78.2478 13.9323,78.2285 13.9503,78.2314 13.9589,78.2377 13.9538,78.2599 13.9661,78.273 13.9597,78.2799 14.0118,78.2926 14.0212,78.2926 14.0336,78.2904 14.0635,78.2771 14.0772,78.2798 14.0887,78.2924 14.104,78.2955 14.1143,78.2916 14.0862,78.2728 14.0858,78.253 14.1063,78.2468 14.1344,78.2558 14.1202,78.2639 14.1403,78.2744 14.1788,78.2846 14.2966,78.2994 14.3193,78.3053 14.3262,78.3171 14.3013,78.32 14.2766,78.327 14.2713,78.3343 14.2993,78.345 14.2694,78.3468 14.2427,78.3495 14.2538,78.3586 14.2347,78.3679 14.2222,78.3747 14.2135,78.3819 14.208,78.3918 14.2314,78.3983 14.2656,78.4028 14.2774,78.4017 14.299,78.4018 14.3898,78.388 14.4179,78.377 14.4619,78.3687 14.4649,78.3723 14.4473,78.3832 14.4469,78.3896 14.4556,78.3905 14.5307,78.393 14.6343,78.3794 14.6578,78.38 14.6748,78.3845 14.6864,78.3858 14.7143,78.3852 14.7303,78.3866 14.732,78.389 14.7376,78.3891 14.7698,78.3828 14.778,78.3748 14.7864,78.3743 14.7924,78.3784 14.7913,78.3876 14.7783,78.3897 14.7685,78.394 14.6744,78.4256 14.6614,78.4432 14.6003,78.4623 14.5754,78.4664 14.5033,78.472 14.4446,78.4737 14.4249,78.4783 14.4156,78.4868 14.4051,78.4924 14.3892,78.5019 14.3947,78.5095 14.455,78.5172 14.4611,78.5225 14.4551,78.5301 14.4658,78.5328 14.4865,78.5343 14.5002,78.545 14.5137,78.5434 14.5398,78.5456 14.607,78.5426 14.6195,78.5444 14.6186,78.5471 14.5657,78.5496 14.5495,78.5525 14.5509,78.5537 14.5665,78.5544 14.6007,78.5523 14.6222,78.5559 14.6218,78.5579 14.5975,78.5609 14.5678,78.5678 14.5593,78.5726 14.5402,78.5895 14.5463,78.6228 14.536,78.6393 14.5548,78.6483 14.5393,78.661 14.5006,78.6688 14.4727,78.6716 14.4583,78.6751 14.4413,78.6849 14.5037,78.6879 14.53,78.6879 14.5708,78.6927 14.6295,78.7006 14.6412,78.7083 14.6664,78.7169 14.6623,78.7305 14.6683,78.7334 14.686,78.7332 14.7068,78.7338 14.7359,78.7352 14.7676,78.7325 14.7775,78.7351 14.7726,78.7386 14.7798,78.7407 14.8253,78.7288 14.8307,78.7183 14.8261,78.7182 14.8484,78.6913 14.834,78.6775 14.8439,78.6688 14.7833,78.6499 14.7847,78.6426 14.7849,78.6415 14.8276,78.6326 14.8301,78.6276 14.8474,78.6214 14.8699,78.6193 14.8929,78.6068 14.9315,78.6033 14.9486,78.5942 14.9684,78.594 14.972,78.5971 15.0,78.6037 15.0087,78.6057 15.0173,78.6115 15.0,78.6188 14.9888,78.6235 14.9867,78.6329 15.0,78.6332 15.0553,78.6346 15.0558,78.6371 15.0673,78.6455 15.1016,78.6529 15.1773,78.6595 15.2408,78.6563 15.2502,78.6622 15.2033,78.6887 15.2177,78.6948 15.1893,78.7035 15.1846,78.7151 15.2058,78.7174 15.2139,78.7184 15.2136,78.7236 15.1782,78.7323 15.1752,78.7398 15.1896,78.7673 15.2255,78.7781 15.2233,78.7861 15.2506,78.7974 15.2774,78.8296 15.288,78.8349 15.3196,78.8412 15.3317,78.8464 15.3431,78.8472 15.3696,78.8465 15.3841,78.8425 15.4427,78.8349 15.4569,78.8248 15.4445,78.7984 15.4373,78.7902 15.4176,78.7846 15.4216,78.7788 15.4646,78.7693 15.4883,78.7512 15.4984,78.7356 15.4784,78.7135 15.4895,78.7041 15.4693,78.6995 15.4921,78.6831 15.4858,78.6735 15.4711,78.6695 15.4525,78.6541 15.4501,78.6508 15.4547,78.6509 15.468,78.6366 15.4498,78.6308 15.4019,78.6245 15.3812,78.6157 15.2813,78.6102 15.2327,78.6089 15.2029,78.6099 15.1803,78.6074 15.1959,78.6051 15.2032,78.5998 15.2141,78.5992 15.225,78.6034 15.2331,78.6034 15.2461,78.5967 15.2201,78.5941 15.1917,78.5965 15.1607,78.6055 15.1485,78.6047 15.2091,78.5838 15.2423,78.5762 15.2391,78.5727 15.2468,78.5671 15.2834,78.5061 15.3011,78.4972 15.3431,78.4855 15.4229,78.4615 15.4755,78.4564 15.5543,78.4585 15.5549,78.4576 15.6075,78.4576 15.6963,78.4708 15.7913,78.4725 15.8652,78.4788 15.9065,78.4823 15.9528,78.4835 16.037,78.5028 16.0001,78.5365 16.0612,78.5261 16.0641,78.5256 16.1099,78.5261 16.2035,78.546 16.2509,78.5494 16.2666,78.5558 16.2967,78.5595 16.311,78.5758 16.3733,78.6009 16.3979,78.6195 16.3829,78.637 16.3415,78.6511 16.3857,78.6536 16.4509,78.6631 16.4709,78.6743 16.4596,78.6972 16.5042,78.7183 16.5398,78.7253 16.5639,78.724 16.5963,78.7147 16.6497,78.6891 16.6426,78.6793 16.6559,78.6744 16.8364,78.6781 16.8658,78.6776 16.8632,78.6603 16.8427,78.6496 16.8328,78.6487 16.8023,78.6484 16.7705,78.6449 16.7451,78.6446 16.7119,78.6317 16.6956,78.6217 16.6618,78.6141 16.6598,78.6035 16.6334,78.5951 16.5406,78.5759 16.5358,78.5586 16.5227,78.5494 16.5208,78.5488 16.4639,78.532 16.4577,78.5113 16.4123,78.4852 16.3713,78.4636 16.3473,78.4599 16.3062,78.4598 16.3141,78.4543 16.3633,78.4454 16.3946,78.4397 16.409,78.4348 16.4302,78.4355 16.4409,78.4426 16.4943,78.443 16.5508,78.4479 16.5691,78.4399 16.5873,78.4359 16.5924,78.4251 16.586,78.4203 16.6073,78.4149 16.7417,78.3964 16.7718,78.3944 16.8089,78.392 16.8235,78.3882 16.8599,78.3901 16.8544,78.398 16.9092,78.3997 16.9358,78.4051 16.9361,78.4129 16.9733,78.4198 17.0424,78.4225 17.1512,78.4406 17.1909,78.4453 17.2327,78.446 17.2397,78.4371 17.2644,78.4338 17.2935,78.4262 17.2919,78.4228 17.3001,78.4203 17.2345,78.4185 17.1993,78.4118 17.1013,78.3993 17.0728,78.3931 17.0284,78.3805 17.0332,78.3802 16.9391,78.3612 16.8811,78.3533 16.8519,78.3426 16.8392,78.3429 16.8142,78.3433 16.7915,78.3394 16.6416,78.3346 16.607,78.3377 16.5663,78.3377 16.5575,78.3453 16.4914,78.3383 16.422,78.3428 16.3735,78.3444 16.3246,78.3524 16.2902,78.3506 16.2767,78.3492 16.242,78.3504 16.1742,78.3595 16.1125,78.3639 16.0705,78.3622 16.0253,78.3546 15.9939,78.3547 15.9481,78.3548 15.9004,78.3494 15.8492,78.3497 15.797,78.3463 15.5949,78.3086 15.5728,78.2957 15.574,78.287 15.5849,78.2821 15.6043,78.2734 15.6876,78.249 15.7571,78.2405 15.7703,78.2342 15.7134,78.2297 15.7002,78.2234 15.6393,78.2314 15.6094,78.2324 15.5476,78.2432 15.5067,78.2503 15.4307,78.2496 15.3911,78.2465 15.3232,78.232 15.2959,78.2209 15.2142,78.2023 15.1487,78.1836 15.0114,78.1503 15.0,78.1412 14.9956,78.1377 15.0,78.1334 15.006,78.1274 15.0346,78.1216 15.0487,78.1107 15.0235,78.1054 15.0,78.1046 14.98,78.1039 14.9356,78.1021 14.8661,78.1139 14.8205,78.1185 14.7945,78.1175 14.7727,78.1136 14.7464,78.113 14.7001,78.1153 14.6545,78.1121 14.6231,78.1063 14.589,78.1041 14.5681,78.1053 14.5349,78.1034 14.5064,78.0967 14.4499,78.0964 14.4407,78.0972 14.3743,78.1036 14.2848,78.101 14.2346,78.1041 14.2121,78.1029 14.1994,78.0946 14.2414,78.0433 14.2665,78.0438 14.2848,78.0357 14.288,78.0353 14.3303,78.0298 14.3392,78.0158 14.3212,78.0046 14.3303,77.9909 14.3554,77.9749 14.3597,77.975 14.3549,77.968 14.3208,77.965 14.2862,77.9685 14.2516,77.9789 14.2306,77.9889 14.2258,77.9958 14.2229,78.0104 14.1788,78.0189 14.1541,78.029 14.1339,78.0403 14.1399,78.0469 14.1276,78.0543 14.0573,78.0808 14.0213,78.0914 13.9925,78.0941 13.9129,78.0961 13.8369,78.0933 13.8316,78.0874 13.7849,78.0858 13.783,78.0855 13.7512,78.0806 13.7188,78.0792 13.7136,78.0738 13.7092,78.0698 13.684,78.0607 13.6775,78.0605 13.6538,78.0666 13.6337,78.0652 13.6096,78.0561 13.6075,78.0517 13.6442,78.0331 13.6476,78.0246 13.6454,78.0069 13.6642,77.9916 13.6366,77.9597 13.6453,77.9363 13.6753,77.9094 13.6749,77.9016 13.7053,77.8881 13.7129,77.8798 13.7446,77.8814 13.7583,77.8708 13.7052,77.8722 13.6941,77.8709 13.6832,77.8668 13.6834,77.8611 13.6934,77.8582 13.7095,77.8655 13.7236,77.8643 13.7309,77.8621 13.7303,77.8464 13.7296,77.8445 13.7166,77.8436 13.7049,77.8453 13.7034,77.8512 13.6961,77.8535 13.6731,77.8439 13.6802,77.8352 13.6855,77.834 13.7533,77.8328 13.7827,77.8278 13.8438,77.8113 13.8375,77.7903 13.8125,77.783 13.7975,77.7758 13.7708,77.771 13.7571,77.7732 13.7376,77.7716 13.7561,77.7608 13.7473,77.7568 13.751,77.7521 13.7802,77.7331 13.7907,77.7307 13.808,77.7295 13.8194,77.7315 13.8192,77.7359 13.8365,77.7388 13.8508,77.7441 13.8628,77.7454 13.8878,77.7454 13.9166,77.7391 13.933,77.7301 13.9487,77.7216 13.9719,77.7196 13.9849,77.721 13.9999,77.7254 14.0088,77.7321 14.0027,77.7358 14.0056,77.7392 14.0605,77.7482 14.0516,77.7541 14.0543,77.7576 14.0898,77.7648 14.1191,77.7694 14.1614,77.7724 14.2019,77.7728 14.2088,77.7728 14.2511,77.7655 14.2783,77.7565 14.3521,77.7579 14.4051,77.7564 14.4573,77.7517 14.5309,77.7579 14.554,77.7589 14.5995,77.7573 14.6219,77.7594 14.6536,77.7614 14.6096,77.7666 14.5415,77.7815 14.5373,77.7876 14.5483,77.7913 14.5655,77.7927 14.5934,77.7903 14.6968,77.7638 14.7221,77.7648 14.7591,77.7803 14.7953,77.7846 14.842,77.7878 14.9201,77.7891 14.9207,77.7882 15.0,77.7906 15.0111,77.7909 15.0518,77.7965 15.1017,77.7998 15.1371,77.8103 15.138,77.8089 15.1863,77.8181 15.2073,77.8245 15.2511,77.8304 15.2823,77.8375 15.3308,77.8584 15.3427,77.8636 15.3783,77.871 15.4165,77.8726 15.4636,77.8739 15.4816,77.8679 15.5044,77.8681 15.5395,77.8765 15.5489,77.8808 15.5682,77.8848 15.5946,77.8846 15.6263,77.8761 15.6195,77.8681 15.6281,77.8604 15.6397,77.854 15.675,77.8464 15.6912,77.843 15.7549,77.8349 15.8765,77.8297 15.9145,77.8298 15.9917,77.8423 16.0229,77.8448 16.0404,77.839 16.0704,77.8398 16.0697,77.841 16.099,77.841 16.1125,77.8451 16.1268,77.8493 16.1988,77.8525 16.2215,77.851 16.2839,77.8522 16.3235,77.8571 16.3663,77.8524 16.4095,77.8473 16.4719,77.8505 16.5003,77.8539 16.513,77.8585 16.5347,77.8604 16.5575,77.8587 16.6378,77.8588 16.6769,77.8609 16.6914,77.8683 16.7139,77.8892 16.7671,77.9058 16.7967,77.9118 16.8323,77.9135 16.8562,77.9147 16.9062,77.9278 16.9368,77.9298 17.0198,77.9303 16.9995,77.9249 16.9505,77.916 16.9521,77.911 16.9685,77.9085 16.9803,77.9067 16.9838,77.9042 16.9419,77.8898 16.8827,77.8735 16.855,77.8758 16.8266,77.885 16.7952,77.8909 16.7807,77.8915 16.7629,77.8902 16.7569,77.8868 16.7586,77.8814 16.7667,77.8784 16.8059,77.872 16.814,77.8475 16.8187,77.8457 16.8495,77.8343 16.8868,77.8253 16.8933,77.8254 16.9232,77.8199 16.9537,77.8174 16.976,77.8132 17.0076,77.8106 17.0313,77.8054 17.0656,77.7996 17.0907,77.7923 17.1022,77.7858 17.1004,77.7834 17.0766,77.7824 17.05,77.7825 17.0292,77.7849 16.9751,77.7872 16.8405,77.8055 16.7876,77.8101 16.7422,77.8101 16.6956,77.81 16.6632,77.8079 16.6473,77.8031 16.6048,77.8037 16.5591,77.8021 16.5439,77.8004 16.5284,77.795 16.462,77.7984 16.41,77.803 16.3941,77.8068 16.3741,77.8072 16.3531,77.8058 16.3223,77.7979 16.295,77.7869 16.2309,77.7761 16.2,77.7735 16.1615,77.7727 16.148,77.7698 16.081,77.7663 16.0572,77.77 16.027,77.7681 15.9996,77.7596 15.9635,77.7586 15.913,77.76 15.8788,77.7593 15.8405,77.7583 15.7689,77.7465 15.6773,77.7479 15.6219,77.745 15.6226,77.7438 15.5326,77.7376 15.4404,77.735 15.3883,77.7236 15.3454,77.7221 15.2682,77.7193 15.0593,77.688 15.0,77.6848 14.8901,77.6788 14.8435,77.6651 14.8425,77.6649 14.7634,77.6597 14.7477,77.6543 14.7747,77.6462 14.8531,77.6383 14.8576,77.6361 14.8999,77.6133 14.9235,77.61 14.9397,77.6194 15.0,77.6101 15.035,77.6048 15.0344,77.6057 15.1534,77.6084 15.1542,77.6072 15.2078,77.607 15.2402,77.6047 15.2815,77.597 15.3242,77.5987 15.3627,77.6003 15.4425,77.5939 15.4786,77.5873 15.5206,77.5883 15.5886,77.5801 15.6501,77.5823 15.7033,77.5772 15.728,77.5767 15.769,77.576 15.8365,77.5646 15.8358,77.5657 15.9165,77.5606 15.9473,77.5515 15.9473,77.5497 15.9496,77.5419 15.9986,77.5242 16.0383,77.5097 16.0732,77.5079 16.1118,77.5034 16.1308,77.4958 16.1966,77.4838 16.2311,77.4827 16.2675,77.4837 16.3008,77.4755 16.3388,77.471 16.3143,77.4704 16.2541,77.4759 16.2139,77.4778 16.1954,77.4732 16.2208,77.4563 16.216,77.45 16.2336,77.4388 16.2295,77.4328 16.2213,77.4324 16.1656,77.4419 16.1123,77.4448 16.0847,77.4552 16.0341,77.4698 16.0016,77.478 15.9755,77.4812 15.9594,77.4906 15.9442,77.4934 15.8839,77.5059 15.8381,77.5187 15.8146,77.5208 15.7828,77.528 15.6836,77.5341 15.6604,77.5356 15.581,77.5301 15.5516,77.5261 15.5159,77.5255 15.4547,77.5283 15.4045,77.534 15.402,77.5325 15.3256,77.5395 15.2538,77.5404 15.2062,77.5433 15.1405,77.5429 15.0421,77.5568 15.0276,77.5609 15.0,77.5615 14.9887,77.5618 14.8814,77.5462 14.8722,77.5449 14.7998,77.5465 14.7811,77.5285 14.7856,77.5155 14.7898,77.5156 14.8096,77.4941 14.782,77.4881 14.7165,77.4846 14.6957,77.4869 14.6717,77.4944 14.6637,77.4961 14.6356,77.4968 14.6148,77.4902 14.5314,77.4885 14.525,77.4961 14.5295,77.4958 14.6001,77.5119 14.6121,77.5238 14.6053,77.529 14.6036,77.5327 14.5835,77.5462 14.5557,77.5636 14.4993,77.571 14.4364,77.5724 14.3735,77.5798 14.3192,77.581 14.252,77.5778 14.034,77.5485 14.0235,77.5471 13.9416,77.5281 13.9452,77.5075 13.9356,77.4975 13.9455,77.49 13.9767,77.4837 14.0441,77.4786 14.0701,77.4706 14.0849,77.4541 14.085,77.4473 14.0524,77.4469 14.0176,77.4526 13.996,77.4516 13.984,77.4436 13.9881,77.4438 13.9834,77.4358 13.9611,77.4315 13.963,77.4175 13.9951,77.4127 14.0236,77.401 14.0648,77.3923 14.076,77.3863 14.1177,77.363 14.1447,77.3585 14.1566,77.3539 14.1738,77.3168 14.1652,77.3087 14.171,77.2979 14.1976,77.2928 14.1959,77.2861 14.2065,77.2844 14.2447,77.2911 14.2711,77.2923 14.2839,77.2874 14.3108,77.2841 14.3276,77.2826 14.3335,77.2757 14.3218,77.2656 14.3195,77.2554 14.3314,77.2475 14.3498,77.2373 14.3625,77.225 14.3848,77.2079 14.4097,77.2024 14.4118,77.1966 14.4243,77.1929 14.4544,77.1893 14.4773,77.1781 14.4867,77.175 14.4964,77.1744 14.5122,77.1756 14.5139,77.1855 14.5238,77.1863 14.5379,77.1821 14.5701,77.1836 14.5786,77.1856 14.6145,77.1907 14.6586,77.1915 14.7143,77.1884 14.8013,77.1766 14.8338,77.1704 14.8686,77.1591 14.8692,77.1591 14.8854,77.1575 14.8955,77.1565 14.91,77.155 14.9126,77.1544 14.9502,77.1459 14.9503,77.1459 14.9522,77.1458 14.9937,77.1436 15.0,77.1433 15.012,77.1428 15.021,77.1363 15.0381,77.1329 15.066,77.1326 15.0807,77.1255 15.0663,77.1169 15.068,77.1078 15.0941,77.0941 15.1191,77.0935 15.1247,77.0915 15.1458,77.0845 15.1586,77.0741 15.1316,77.0634 15.1447,77.0606 15.1494,77.055 15.1662,77.0496 15.1604,77.0441 15.1513,77.0425 15.1526,77.0372 15.1753,77.0354 15.2054,77.0288 15.2741,77.0169 15.3701,77.0068 15.4016,77.002 15.4694,77.0045 15.4796,77.0023 15.5582,77.005 15.5947,77.0016 15.6296,77.0114 15.6411,77.0111 15.6832,77.0005 15.7166,77.0045 15.789,77.0181 15.8486,77.0205 15.8966,77.0186 15.919,77.0259 15.9128,77.0333 15.8576,77.0512 15.8473,77.059 15.853,77.0673 15.8606,77.07 15.8906,77.0706 15.8961,77.0681 15.9309,77.0572 15.9541,77.0542 15.9701,77.0549 15.9702,77.0705 15.9758,77.0818 16.0352,77.0831 16.0598,77.0653 16.0688,77.0378 16.0789,77.0314 16.0891,77.0281 16.1507,77.0258 16.1908,77.0243 16.201,77.0216 16.215,77.0169 16.2416,76.9981 16.2693,76.9963 16.2814,77.0 16.2759,77.0106 16.2848,77.0153 16.3336,77.0202 16.3516,77.0196 16.3795,77.0112 16.4759,77.0138 16.5011,77.0103 16.5099,77.0032 16.5141,76.9907 16.5064,76.9878 16.4673,76.9847 16.4369,76.9846 16.3808,76.9773 16.3137,76.9791 16.2862,76.9741 16.2959,76.9657 16.2919,76.9656 16.3406,76.9432 16.2998,76.9369 16.2876,76.9316 16.2507,76.9306 16.2433,76.9358 16.239,76.9388 16.2484,76.9424 16.2463,76.9465 16.2298,76.962 16.186,76.9754 16.1476,76.9802 16.1297,76.9794 16.1122,76.981 16.0965,76.9806 16.0567,76.9766 15.9868,76.9684 15.9412,76.9637 15.9319,76.9601 15.9171,76.9497 15.8979,76.9459 15.8587,76.9453 15.8401,76.9478 15.8232,76.953 15.789,76.9541 15.7773,76.9498 15.7855,76.9446 15.7586,76.9436 15.7404,76.9305 15.7314,76.9273 15.7079,76.9252 15.6329,76.9219 15.5884,76.9163 15.5489,76.9082 15.528,76.8993 15.5137,76.8778 15.5256,76.8731 15.5725,76.8693 15.6177,76.868 15.6372,76.8642 15.6494,76.8607 15.6416,76.8534 15.6517,76.85 15.6684,76.8491 15.6857,76.8506 15.689,76.845 15.6981,76.8432 15.7157,76.8442 15.7292,76.8418 15.7454,76.8349 15.7577,76.8296 15.7699,76.8229 15.7794,76.8176 15.8122,76.8076 15.8702,76.799 15.946,76.7725 16.0318,76.7471 16.0898,76.7378 16.1381,76.7364 16.1434,76.731 16.1725,76.7231 16.3023,76.7129 16.3254,76.7106 16.3298,76.7101 16.3229,76.7056 16.3191,76.6906 16.3018,76.6746 16.3035,76.6713 16.3241,76.6641 16.3362,76.6599 16.3464,76.6468 16.3492,76.6303 16.3308,76.6175 16.3432,76.6108 16.3412,76.6052 16.3181,76.6002 16.2973,76.5912 16.3036,76.5756 16.2905,76.5725 16.2988,76.5699 16.3278,76.5692 16.363,76.5643 16.38,76.5642 16.3917,76.5641 16.3999,76.5653 16.398,76.567 16.3872,76.5764 16.3944,76.5871 16.39,76.5897 16.4031,76.593 16.4549,76.5996 16.4629,76.6071 16.461,76.6182 16.4741,76.6197 16.4854,76.6177 16.4959,76.6138 16.4986,76.6129 16.533,76.6135 16.5344,76.6136 16.56,76.6141 16.5592,76.6059 16.5586,76.6035 16.5624,76.5975 16.5681,76.5884 16.5642,76.5883 16.5659,76.5774 16.5941,76.5696 16.6345,76.5677 16.6457,76.5689 16.6647,76.5685 16.6671,76.5682 16.6888,76.5658 16.7197,76.565 16.7988,76.5705 16.8306,76.5759 16.8564,76.5778 16.8662,76.5838 16.9056,76.588 16.9491,76.6039 16.9891,76.6052 17.0018,76.6035 17.011,76.609 16.9989,76.6196 17.0141,76.623 17.0162,76.6308 17.0271,76.6332 17.0872,76.6393 17.093,76.6401 17.0982,76.6457 17.0879,76.6505 17.0867,76.653 17.0894,76.6643 17.1015,76.6802 17.1697,76.6998 17.1839,76.7097 17.1836,76.7188 17.1769,76.7223 17.1657,76.7227 17.1548,76.7313 17.0811,76.7634 17.0206,76.7754 16.9422,76.7762 16.928,76.7788 16.9043,76.7906 16.8948,76.802 16.9071,76.812 16.9421,76.8206 17.0509,76.8301 17.0737,76.8307 17.0531,76.8426 17.0627,76.8584 17.0761,76.865 17.1287,76.8928 17.1456,76.9003 17.1835,76.9146 17.2324,76.94 17.263,76.9416 17.2634,76.9407 17.2888,76.947 17.3112,76.9663 17.315,76.9696 17.304,76.9849 17.2894,76.9868 17.2626,76.9977 17.2259,77.0074 17.1528,77.037 17.1293,77.0415 17.0845,77.0436 17.068,77.059 17.1164,77.0622 17.1431,77.064 17.2177,77.0573 17.2172,77.0584 17.2602,77.0514 17.2846,77.0494 17.314,77.0496 17.3255,77.0559 17.316,77.0744 17.3339,77.0809 17.3363,77.0929 17.347,77.105 17.3707,77.1229 17.3892,77.1347 17.3988,77.136 17.4115,77.1378 17.4249,77.1433 17.4328,77.1523 17.4296,77.1689 17.424,77.1836 17.4193,77.2204 17.4093,77.2223 17.4112,77.2251 17.4707,77.2411 17.4758,77.2408 17.4797,77.2438 17.4883,77.2573 17.4619,77.29 17.4606,77.3002 17.4744,77.3086 17.481,77.3157 17.4692,77.3284 17.4764,77.3324 17.502,77.3442 17.5398,77.3559 17.582,77.3649 17.5999,77.3744 17.5961,77.3792 17.6012,77.3878 17.6038,77.3923 17.6221,77.4 17.6555,77.4155 17.6625,77.4171 17.6522,77.4265 17.6345,77.4264 17.622,77.4284 17.599,77.4382 17.5982,77.4498 17.6037,77.4543 17.6376,77.4611 17.6956,77.4584 17.7183,77.4595 17.725,77.4612 17.7302,77.4663 17.7218,77.4687 17.7146,77.4783 17.729,77.4868 17.7277,77.49 17.7076,77.5001 17.7063,77.505 17.7292,77.5042 17.7505,77.4986 17.7889,77.5028 17.8088,77.5029 17.8555,77.4998 17.8928,77.5016 17.9301,77.5086 17.9836,77.5067 18.0476,77.4942 18.099,77.5031 18.1188,77.5037 18.176,77.5031 18.2215,77.4992 18.235,77.5006 18.2725,77.5123 18.3093,77.5367 18.2953,77.5611 18.3081,77.5876 18.3087,77.6075 18.3261,77.6177 18.3484,77.6306 18.3513,77.6416 18.3409,77.6494 18.3203,77.6611 18.3244,77.6659 18.3351,77.6739 18.3417,77.6959 18.3779,77.7124 18.3943,77.7172 18.4161,77.7337 18.4368,77.7669 18.424,77.804 18.4158,77.8184 18.4225,77.8308 18.4137,77.839 18.4003,77.845 18.4134,77.85 18.4339,77.8529 18.4244,77.859 18.3449,77.881 18.3235,77.8898 18.324,77.8905 18.3286,77.8971 18.3453,77.9005 18.3493,77.9053 18.3543,77.9113 18.3665,77.9136 18.3674,77.9175 18.3684,77.9221 18.3611,77.9333 18.3715,77.9388 18.4064,77.9442 18.4191,77.9506 18.4444,77.9556 18.4568,77.9602 18.4779,77.9621 18.4831,77.9656 18.4711,77.9736 18.4767,77.9763 18.455,77.9839 18.402,78.0149 18.369,78.0258 18.3722,78.0395 18.382,78.0411 18.3929,78.0428 18.4135,78.0462 18.4544,78.0485 18.4931,78.0515 18.5613,78.0594 18.611,78.0591 18.6589,78.0546 18.6666,78.0518 18.7027,78.0467 18.7352,78.039 18.7501,78.0352 18.7648,78.0341 18.8019,78.0349 18.8562,78.0454 18.9238,78.0528 18.9542,78.0673 19.0137,78.0905 19.0506,78.1173 19.0485,78.1234 19.0006,78.1396 18.946,78.1629 18.9296,78.1762 18.9258,78.1839 18.9679,78.1991 18.9819,78.2007 19.0171,78.2015 19.0516,78.2102 19.0689,78.2191 19.078,78.2311 19.0651,78.2455 18.9966,78.2616 18.978,78.2697 18.9365,78.2954 18.9384,78.3041 19.0022,78.3108 19.0036,78.3158 18.9769,78.3268 18.9926,78.3343 19.002,78.3376 19.0161,78.339 19.024,78.345 19.0641,78.3493 19.0691,78.3541 19.0505,78.386 19.0158,78.4254 18.9815,78.4481 18.9556,78.4651 18.9608,78.4727 19.0298,78.4739 19.1285,78.4783 19.2137,78.479 19.2866,78.4892 19.2862,78.4903 19.4153,78.5037 19.5548,78.5096 19.6836,78.5103 19.6909,78.5126 19.6877,78.5192 19.586,78.5578 19.5774,78.5697 19.5761,78.5715 19.5799,78.5804 19.5845,78.5836 19.6302,78.5949 19.6404,78.6021 19.62,78.6043 19.6044,78.6028 19.565,78.5968 19.5549,78.5928 19.5427,78.5913 19.5333,78.5952 19.5353,78.5993 19.5985,78.6134 19.6557,78.6216 19.7275,78.6244 19.7658,78.6214 19.9139,78.6167 19.929,78.6151 19.9544,78.615 20.0,78.6174 20.0043,78.6176 20.0259,78.6202 20.0352,78.6213 20.0621,78.6213 20.0833,78.616 20.1186,78.6137 20.1493,78.6152 20.1571,78.6199 20.154,78.6225 20.1358,78.6258 20.1041,78.6274 20.1049,78.6322 20.1183,78.6324 20.1625,78.6331 20.2003,78.6419 20.2011,78.6471 20.1784,78.6526 20.2655,78.6596 20.3015,78.6545 20.3205,78.6546 20.2782,78.6681 20.276,78.6722 20.3369,78.6779 20.4391,78.6818 20.4708,78.6846 20.493,78.6897 20.5141,78.6923 20.5411,78.6955 20.5801,78.6977 20.6208,78.6921 20.7026,78.694 20.7179,78.698 20.7511,78.7001 20.7735,78.7068 20.7881,78.7111 20.8171,78.7109 20.8726,78.7061 20.8678,78.7018 20.8752,78.6943 20.9056,78.6877 20.9261,78.688 20.9504,78.6842 20.9622,78.6827 20.9958,78.6711 21.0259,78.6711 21.0459,78.6636 21.0803,78.659 21.1048,78.6602 21.1513,78.6677 21.1528,78.6718 21.1626,78.6744 21.1376,78.683 21.1489,78.6845 21.1969,78.6767 21.2121,78.6761 21.2348,78.6781 21.254,78.6751 21.2733,78.677 21.2513,78.6828 21.2226,78.6866 21.2164,78.6889 21.222,78.69 21.2371,78.6895 21.2588,78.6858 21.2841,78.6864 21.3113,78.6782 21.3348,78.6766 21.3395,78.6736 21.393,78.6751 21.383,78.696 21.3651,78.7095 21.3773,78.7262 21.4099,78.7374 21.4262,78.7402 21.4968,78.749 21.5226,78.7553 21.5253,78.7605 21.51,78.7686 21.4905,78.7754 21.4668,78.7829 21.4644,78.7906 21.4984,78.8118 21.5294,78.8226 21.5246,78.8308 21.5123,78.8344 21.4696,78.8375 21.419,78.8386 21.3925,78.8462 21.3972,78.8491 21.3921,78.8514 21.3151,78.8567 21.2743,78.8595 21.2521,78.8589 21.2412,78.8543 21.2459,78.8481 21.1841,78.8457 21.1741,78.8551 21.1618,78.859 21.1553,78.8609 21.1072,78.8608 21.0536,78.8698 21.0539,78.8766 21.0697,78.8805 21.0244,78.8895 20.9981,78.8911 20.9927,78.8952 20.9688,78.8964 20.9741,78.9 20.9656,78.9013 20.9384,78.9011 20.936,78.8952 20.9169,78.8963 20.9032,78.8936 20.888,78.8933 20.8746,78.895 20.875,78.8991 20.8556,78.9019 20.8515,78.9046 20.8378,78.902 20.8257,78.9035 20.812,78.9011 20.7929,78.9039 20.7925,78.9059 20.7591,78.9127 20.6978,78.917 20.6493,78.9175 20.5953,78.9254 20.5448,78.9291 20.5083,78.937 20.4885,78.9388 20.4929,78.9404 20.5095,78.9406 20.5114,78.9424 20.492,78.9443 20.4856,78.9465 20.4633,78.9454 20.4474,78.9473 20.4316,78.9538 20.4028,78.9603 20.3277,78.9734 20.3145,78.9888 20.2836,78.9906 20.2395,78.9933 20.2059,78.9987 20.1786,79.0066 20.1468,79.0097 20.1299,79.0063 20.1185,78.9921 20.111,78.9908 20.0723,78.9881 20.0332,78.9905 20.0276,78.991 20.0,78.9937 19.94,78.9995 19.9045,79.0066 19.8954,79.0168 19.9208,79.0275 19.9018,79.0428 19.9167,79.0525 19.9251,79.0526 19.9265,79.0597 19.8816,79.0731 19.8471,79.0723 19.8159,79.0781 19.8152,79.0783 19.7922,79.094 19.7791,79.1153 19.7799,79.1221 19.7618,79.1382 19.7846,79.1427 19.7947,79.1496 19.79,79.1532 19.7369,79.1569 19.6912,79.1519 19.665,79.1505 19.6359,79.1509 19.5564,79.1618 19.5296,79.1626 19.4869,79.1671 19.4452,79.1755 19.405,79.1832 19.3608,79.1881 19.3126,79.1872 19.2947,79.1834 19.2726,79.1806 19.2666,79.1705 19.245,79.1602 19.1356,79.149 18.9823,79.1566 18.9493,79.1579 18.9072,79.1669 18.8894,79.1755 18.9185,79.1949 18.9244,79.2084 18.9378,79.2181 18.9369,79.2204 18.8836,79.2303 18.8657,79.2366 18.8383,79.2408 18.8176,79.2439 18.7928,79.2411 18.7412,79.2458 18.7018,79.2438 18.6683,79.2405 18.6484,79.2416 18.6507,79.2448 18.6198,79.249 18.6084,79.2529 18.6091,79.2572 18.6238,79.2633 18.6149,79.2647 18.6261,79.2668 18.6421,79.2666 18.6824,79.2698 18.6735,79.2736 18.6449,79.2718 18.6338,79.2748 18.6381,79.2765 18.6625,79.2768 18.6627,79.2793 18.6989,79.2805 18.7096,79.2784 18.7088,79.2741 18.7151,79.2737 18.778,79.2845 18.8095,79.293 18.8068,79.306 18.8058,79.3107 18.83,79.3186 18.8426,79.3226 18.8471,79.3327 18.834,79.3494 18.8361,79.3622 18.8424,79.3628 18.8507,79.373 18.8483,79.3825 18.8588,79.3855 18.8855,79.3919 18.8806,79.4016 18.8622,79.4071 18.8506,79.4344 18.8573,79.4367 18.8641,79.4411 18.8565,79.4447 18.8294,79.4536 18.8033,79.4567 18.7855,79.4608 18.7685,79.466 18.7595,79.4735 18.7576,79.4782 18.7577,79.4828 18.7577,79.4865 18.7578,79.4951 18.7628,79.4952 18.7444,79.5254 18.7273,79.5398 18.6639,79.5617 18.5978,79.5746 18.5472,79.5809 18.3946,79.606 18.3695,79.6084 18.3573,79.6076 18.3554,79.6116 18.3026,79.6244 18.2612,79.6291 18.2122,79.6283 18.1828,79.6237 18.094,79.5963 18.0568,79.5925 18.0721,79.5745 18.0487,79.566 18.0454,79.5611 18.0424,79.5565 18.0349,79.5244 18.0263,79.4874 18.0044,79.4713 17.9638,79.4503 17.9358,79.4416 17.9153,79.423 17.8581,79.4061 17.7634,79.3924 17.705,79.3765 17.6805,79.3667 17.6599,79.3682 17.6331,79.3887 17.6397,79.3949 17.7576,79.4256 17.7746,79.4359 17.7789,79.4509 17.7835,79.4669 17.7744,79.5012 17.7714,79.5118 17.7658,79.5441 17.7479,79.5495 17.6223,79.5459 17.5757,79.5497 17.5619,79.5528 17.5719,79.5568 17.6138,79.5561 17.6519,79.5577 17.7489,79.5739 17.7497,79.5797 17.7486,79.5938 17.7118,79.5989 17.7024,79.6071 17.7428,79.6094 17.7573,79.6139 17.818,79.6228 17.8384,79.6346 17.8465,79.6522 17.8646,79.6548 17.8924,79.6674 17.9194,79.6692 18.0125,79.6937 18.0572,79.7134 18.0459,79.7265 18.0418,79.7312 17.9849,79.7553 17.8856,79.7909 17.8741,79.798 17.8578,79.8008 17.8344,79.8124 17.7631,79.8348 17.7565,79.8369 17.6693,79.8578 17.6218,79.8746 17.5687,79.8896 17.4535,79.896 17.436,79.8971 17.3883,79.9077 17.3935,79.9121 17.3693,79.9181 17.3799,79.9267 17.368,79.9315 17.3371,79.9284 17.3108,79.9289 17.1038,79.9544 17.0382,79.9527 17.0195,79.9576 16.9727,79.9523 16.9706,79.9521 16.9371,79.9451 16.9094,79.9414 16.8936,79.9269 16.846,79.9178 16.8497,79.9154 16.922,79.8649 16.902,79.8615 16.8622,79.863 16.7982,79.8741 16.7854,79.8835 16.7447,79.8847 16.7296,79.894 16.687,79.9058 16.6614,79.9231 16.6703,79.9315 16.752,79.9467 16.7029,79.9476 16.6761,79.9505 16.62,79.9625 16.5818,79.9807 16.5687,79.9894 16.5529,80.0 16.5411,80.0265 16.5281,80.0315 16.5605,80.0395 16.5455,80.0479 16.4958,80.0463 16.4622,80.0491 16.4494,80.0588 16.4362,80.0576 16.4199,80.0516 16.3883,80.0509 16.346,80.0534 16.2898,80.066 16.2654,80.0677 16.2307,80.0653 16.2202,80.0631 16.2004,80.059 16.1627,80.0603 16.1461,80.0571 16.1463,80.0503 16.1348,80.0468 16.1486,80.0406 16.0922,80.0289 16.048,80.0271 16.0183,80.0156 15.9966,80.0118 15.9717,80.0 16.0024,79.9956 16.0122,79.9917 16.0098,79.9893 16.0014,79.9812 15.9848,79.9769 15.9555,79.9756 15.9397,79.9558 15.939,79.9386 15.9218,79.9335 15.953,79.9156 15.9764,79.9074 15.9966,79.9003 16.0586,79.8881 16.0893,79.8851 16.0693,79.8804 16.1028,79.8728 16.1336,79.8646 16.1004,79.8639 16.062,79.8631 15.9752,79.8664 15.8571,79.8681 15.7476,79.8739 15.6928,79.8724 15.6477,79.8632 15.6411,79.8545 15.6445,79.8448 15.6123,79.8445 15.6405,79.83 15.6438,79.8283 15.6375,79.8281 15.6332,79.8235 15.6386,79.8192 15.6425,79.8161 15.6146,79.8068 15.6284,79.7986 15.6304,79.7906 15.6878,79.7794 15.6814,79.7792 15.6415,79.7758 15.638,79.77 15.6578,79.7658 15.6412,79.7604 15.6541,79.7447 15.6881,79.7228 15.688,79.7132 15.6845,79.7041 15.6638,79.6996 15.6591,79.6931 15.7195,79.6727 15.7145,79.6726 15.7328,79.6613 15.7158,79.6481 15.7223,79.6445 15.7346,79.6438 15.7463,79.6472 15.7751,79.635 15.8244,79.5652 15.8473,79.5596 15.874,79.5593 15.8734,79.5578 15.8699,79.55 15.8354,79.5497 15.8288,79.5465 15.8446,79.5277 15.8456,79.5119 15.8535,79.5088 15.8658,79.4972 15.8904,79.4387 15.9332,79.3838 15.9305,79.3731 15.9266,79.3573 15.9473,79.3269 15.9395,79.3221 15.9471,79.3001 16.038,79.2729 16.0659,79.2542 16.0756,79.2477 16.1247,79.2216 16.1086,79.207 16.1396,79.1672 16.1573,79.1532 16.1588,79.1322 16.2007,79.1216 16.2244,79.1188 16.2321,79.1104 16.2623,79.1011 16.2893,79.0605 16.283,79.0496 16.3333,79.0347 16.3508,79.0176 16.3548,79.0137 16.3695,78.9785 16.3889,78.9705 16.4235,78.9667 16.4352,78.9612 16.4483,78.9514 16.4263,78.9485 16.4478,78.9386 16.5067,78.9319 16.5227,78.9133 16.4467,78.9093 16.3896,78.9076 16.3833,78.9088 16.3668,78.9119 16.3023,78.9257 16.2751,78.9461 16.2439,78.956 16.2272,78.9579 16.1724,78.9708 16.1237,78.9983 16.125,79.0093 16.0878,79.0167 16.0856,79.0194 16.0697,79.0389 16.0729,79.0507 16.0274,79.0814 15.9811,79.1076 15.9114,79.1388 15.8824,79.1518 15.824,79.1696 15.7987,79.1693 15.7682,79.1605 15.7376,79.1572 15.7199,79.1476 15.7201,79.1316 15.7001,79.1201 15.7366,79.1022 15.7351,79.098 15.6928,79.0991 15.6476,79.1067 15.6336,79.1233 15.6021,79.1388 15.6355,79.1501 15.6252,79.1593 15.6196,79.1642 15.626,79.1708 15.6622,79.1852 15.7543,79.2355 15.7413,79.2437 15.7182,79.2486 15.6958,79.258 15.6521,79.2624 15.5865,79.2874 15.5763,79.3 15.5871,79.3039 15.5314,79.3144 15.5015,79.3252 15.467,79.3488 15.4596,79.3539 15.425,79.3636 15.4159,79.3662 15.4201,79.3977 15.4124,79.4083 15.3856,79.4243 15.4058,79.4324 15.3938,79.4571 15.3972,79.4728 15.3654,79.4733 15.3435,79.4792 15.3398,79.4959 15.349,79.5021 15.3422,79.5094 15.2947,79.5124 15.2703,79.5166 15.2129,79.5263 15.2379,79.5458 15.2221,79.5764 15.2364,79.5974 15.263,79.6091 15.206,79.6138 15.1924,79.6167 15.1638,79.6224 15.0899,79.6511 15.0614,79.6654 15.0352,79.6728 15.0304,79.6869 15.0132,79.6973 15.0,79.7025 14.9421,79.7253 14.939,79.7307 14.9188,79.7398 14.8714,79.7541 14.8268,79.7675 14.7364,79.7863 14.6705,79.794 14.6013,79.7963 14.574,79.7949 14.5579,79.8032 14.522,79.8013 14.4852,79.7944 14.4219,79.7686 14.3733,79.7486 14.345,79.7277 14.2225,79.6832 14.2073,79.6777 14.2173,79.6692 14.2379,79.6661 14.2791,79.6673 14.3056,79.6632 14.257,79.6602 14.1465,79.6477 14.1181,79.6393 14.1436,79.6262 14.165,79.6236 14.1933,79.6233 14.2196,79.6164 14.2511,79.6139 14.2466,79.6103 14.2071,79.6104 14.193,79.6104 14.1443,79.6152 14.1063,79.6135 14.0562,79.6068 14.0472,79.6018 14.0374,79.5963 13.9958,79.5873 13.9529,79.5812 13.9142,79.5691 13.8735,79.5465 13.84,79.5372 13.875,79.5334 13.8843,79.5272 13.8792,79.5216 13.9008,79.5073 13.9245,79.499 13.9213,79.4941 13.8863,79.4923 13.898,79.4862 13.9662,79.473 13.9853,79.4584 14.0138,79.4503 13.9792,79.4325 13.9726,79.427 14.0061,79.4188 14.0063,79.4128 13.9846,79.4018 13.9968,79.3964 14.0674,79.3883 14.0944,79.3801 14.1158,79.3668 14.1115,79.3616 14.1441,79.3409 14.1307,79.3348 14.09,79.3244 14.0815,79.3154 14.0893,79.3018 14.076,79.2855 14.0604,79.272 14.0653,79.2691 14.0185,79.2661 13.9886,79.2694 13.9849,79.2736 14.0201,79.2801 14.0003,79.2873 13.997,79.2883 13.9282,79.2807 13.8817,79.2869 13.8731,79.2943 13.8796,79.3053 13.9018,79.3168 13.8906,79.3268 13.9073,79.3418 13.9089,79.377 13.8705,79.3796 13.8136,79.4031 13.8114,79.404 13.7484,79.4201 13.769,79.4292 13.7337,79.4351 13.7238,79.4406 13.7037,79.4434 13.7023,79.4519 13.6478,79.4622 13.5898,79.4858 13.5544,79.4858 13.5084,79.4893 13.4507,79.4866 13.4093,79.4846 13.3992,79.4806 13.4134,79.4721 13.4545,79.4605 13.4676,79.4408 13.4591,79.4378 13.4127,79.4363 13.388,79.4413 13.3534,79.4568 13.3286,79.4615 13.2472,79.4627 13.2242,79.4684 13.2232,79.4774 13.2671,79.4963 13.2701,79.5052 13.2467,79.5192 13.26,79.5226 13.2883,79.5221 13.3304,79.5177 13.3609,79.5202 13.3996,79.5343 13.4107,79.5439 13.4157,79.5482 13.4933,79.5644 13.4931,79.574 13.468,79.5779 13.381,79.5838 13.2755,79.5965 13.1838,79.5963 13.1443,79.5916 13.0438,79.5874 12.9689,79.5842 12.9435,79.5741 12.923,79.5716 12.8677,79.5721 12.8092,79.5606 12.7951,79.5594 12.7533,79.5629 12.7233,79.5623 12.7202,79.5578 12.7084,79.5565 12.6873,79.5563 12.6649,79.5517 12.6563,79.5468 12.6397,79.544 12.614,79.5428 12.5801,79.5485 12.5301,79.5478 12.4928,79.5591 12.4479,79.5606 12.4371,79.5711 12.3924,79.5795 12.4114,79.5858 12.4386,79.5887 12.4682,79.5918 12.5069,79.5914 12.5731,79.5868 12.6331,79.5924 12.686,79.5997 12.6892,79.6053 12.7183,79.6107 12.7726,79.6127 12.7695,79.6197 12.7913,79.6231 12.8115,79.6313 12.8404,79.6331 12.9034,79.6534 12.9877,79.6641 13.0165,79.6701 13.0205,79.6765 12.993,79.6848 13.0171,79.693 13.0373,79.6959 13.0742,79.6964 13.1635,79.6906 13.2098,79.6927 13.2186,79.6974 13.2523,79.7051 13.27,79.7054 13.2853,79.7057 13.3161,79.699 13.3497,79.7003 13.3464,79.705 13.3559,79.706 13.4162,79.6993 13.4552,79.6989 13.4921,79.6965 13.5797,79.6964 13.6251,79.6947 13.6977,79.6899 13.7217,79.689 13.7401,79.69 13.7669,79.6987 13.7406,79.698 13.7128,79.6931 13.6973,79.6947 13.6838,79.6968 13.7034,79.7064 13.7103,79.7095 13.7822,79.718 13.8853,79.7364 13.898,79.7508 13.9085,79.752 13.9509,79.7701 13.9691,79.7779 13.9485,79.792 13.9731,79.8079 13.9284,79.8271 13.9112,79.8473 13.8546,79.8678 13.8182,79.8704 13.7861,79.8769 13.7532,79.8756 13.7432,79.8752 13.6882,79.8669 13.6048,79.8571 13.4664,79.8531 13.398,79.8549 13.3451,79.8462 13.2813,79.8394 13.2691,79.8292 13.2544,79.8283 13.2374,79.8323 13.219,79.8311 13.198,79.8239 13.1075,79.824 13.0649,79.8222 12.9512,79.7968 12.8462,79.7759 12.8178,79.7732 12.7411,79.7721 12.6965,79.7776 12.6728,79.7729 12.6587,79.7681 12.6488,79.7647 12.6191,79.7608 12.5813,79.7597 12.572,79.7537 12.5416,79.7555 12.5265,79.7539 12.5089,79.7504 12.5061,79.7457 12.4953,79.7449 12.4871,79.7453 12.4803,79.7518 12.4999,79.7549 12.5061,79.7584 12.5549,79.7676 12.5275,79.7764 12.5245,79.7868 12.5036,79.7955 12.4784,79.7935 12.4651,79.7839 12.4419,79.7809 12.4201,79.789 12.4293,79.7956 12.4885,79.8013 12.4596,79.8089 12.4277,79.8231 12.4297,79.8279 12.4313,79.832 12.42,79.839 12.3963,79.8391 12.3765,79.8319 12.3485,79.8324 12.3,79.8385 12.26,79.8397 12.2248,79.844 12.1984,79.8406 12.203,79.8292 12.1897,79.8258 12.2318,79.8207 12.1599,79.804 12.1512,79.7993 12.155,79.79 12.1837,79.771 12.1802,79.7638 12.1793,79.7618 12.2309,79.7525 12.2261,79.7472 12.2058,79.7484 12.1929,79.7506 12.1725,79.75 12.1735,79.747 12.2057,79.7425 12.2795,79.7361 12.3562,79.6929 12.3353,79.6675 12.325,79.6639 12.3005,79.6603 12.227,79.6617 12.2666,79.6765 12.247,79.6804 12.1928,79.705 12.1529,79.7057 12.1492,79.7007 12.159,79.6855 12.1553,79.6651 12.1479,79.663 12.1162,79.66 12.0976,79.6606 12.0893,79.6623 12.0834,79.6654 12.0873,79.6761 12.0546,79.6824 12.045,79.6889 12.0446,79.6971 12.0587,79.702 12.0541,79.705 12.0591,79.7052 12.0232,79.7109 12.0412,79.7153 12.0421,79.722 12.0233,79.7328 12.0012,79.7341 11.9866,79.7354 11.9629,79.7469 11.9585,79.7688 11.9821,79.7722 11.9398,79.7846 11.8904,79.786 11.8479,79.7857 11.8351,79.7866 11.8306,79.7894 11.8075,79.7914 11.8836,79.8051 11.869,79.8192 11.8404,79.8391 11.7909,79.8411 11.7518,79.8339 11.7104,79.8334 11.6761,79.8278 11.6723,79.8311 11.6599,79.8316 11.6295,79.8261 11.6255,79.8193 11.6084,79.8159 11.6301,79.8095 11.5951,79.7998 11.5832,79.8047 11.5875,79.8079 11.5536,79.8141 11.4935,79.8078 11.546,79.7786 11.5538,79.7691 11.5069,79.7642 11.4552,79.7656 11.445,79.7659 11.3848,79.7797 11.271,79.78 11.2341,79.7814 11.2113,79.7796 11.2124,79.7665 11.2631,79.76 11.2602,79.7557 11.2293,79.7488 11.1958,79.7484 11.1771,79.7278 11.2017,79.7257 11.2044,79.7206 11.205,79.7196 11.1941,79.7122 11.229,79.7027 11.2466,79.6984 11.2488,79.6947 11.2435,79.6876 11.2756,79.6744 11.3153,79.6691 11.3154,79.6657 11.3574,79.6549 11.3688,79.6473 11.391,79.6515 11.419,79.6507 11.4856,79.6385 11.4302,79.6284 11.42,79.6284 11.3715,79.6336 11.2951,79.6341 11.2745,79.6327 11.1941,79.6356 11.1268,79.6331 11.1039,79.6446 11.0793,79.6469 11.0382,79.6467 11.0077,79.643 10.9674,79.6422 10.9351,79.6281 10.884,79.6148 10.8826,79.6159 10.8263,79.6049 10.8277,79.6005 10.9436,79.5851 11.0426,79.5772 11.0563,79.5775 11.1049,79.5711 11.1641,79.5636 11.1685,79.5597 11.1589,79.554 11.0678,79.5578 11.047,79.5614 11.0421,79.5605 10.9962,79.5557 10.96,79.5571 10.9232,79.5621 10.8788,79.5606 10.7591,79.5631 10.7037,79.5604 10.6752,79.5544 10.6752,79.5544 8,1.0,Norway 15.6203,77.8964 15.611,77.9012 15.6185,77.9033 15.6392,77.9015 15.6552,77.8964 15.6479,77.8939 15.6203,77.8964 15.6203,77.8964 1277,1.0,Norway 17.6992,80.1301 17.7411,80.1286 17.7672,80.1333 17.8432,80.1393 17.9356,80.1421 17.9573,80.1389 18.0011,80.1298 18.0587,80.0982 18.0873,80.0825 18.1278,80.0678 18.1187,80.0612 18.1465,80.0436 18.1733,80.0396 18.1884,80.0416 18.1876,80.0496 18.1975,80.0553 18.2076,80.0568 18.2233,80.0564 18.2846,80.0383 18.2841,80.0311 18.2965,80.0304 18.3349,80.0355 18.3745,80.0408 18.4838,80.0412 18.5153,80.0451 18.5471,80.0422 18.5629,80.0424 18.5943,80.0326 18.6109,80.0325 18.641,80.0384 18.6639,80.0394 18.6825,80.0375 18.6856,80.0282 18.6961,80.0251 18.711,80.0249 18.7232,80.0268 18.7199,80.0347 18.7444,80.0378 18.7643,80.038 18.8167,80.0343 18.8326,80.0353 18.8434,80.0391 18.8539,80.0429 18.8853,80.0446 18.9278,80.0523 18.9349,80.049 18.8836,80.0283 18.9113,80.0275 18.9137,80.024 18.8804,80.0226 18.8502,80.0236 18.8104,80.0205 18.7745,80.022 18.7588,80.0183 18.765,80.0 18.7671,79.9966 18.7779,79.9899 18.7913,79.9817 18.7881,79.9746 18.8274,79.9649 18.8148,79.9604 18.7824,79.9632 18.7669,79.9689 18.7754,79.9736 18.7565,79.9772 18.728,79.9789 18.7135,79.9848 18.6923,79.9849 18.6595,79.9881 18.6593,79.9899 18.6592,79.9917 18.6847,79.9932 18.6792,80.0 18.6543,80.0067 18.6557,80.0121 18.6272,80.0173 18.6195,80.0149 18.6303,80.0065 18.6413,80.0051 18.6428,80.0 18.6434,79.9979 18.6291,79.9899 18.6255,79.9879 18.6084,79.9852 18.5808,79.9847 18.5728,79.9839 18.565,79.9769 18.5336,79.9753 18.5228,79.9701 18.6296,79.9795 18.667,79.9836 18.6924,79.9737 18.6831,79.9713 18.6433,79.9698 18.618,79.9651 18.6303,79.9583 18.6646,79.9574 18.6596,79.9541 18.6364,79.9533 18.5828,79.9512 18.4608,79.9499 18.3734,79.9421 18.2442,79.9399 18.2108,79.9312 18.1838,79.9201 18.1364,79.9109 18.0981,79.9096 18.0892,79.9068 18.0957,79.9016 18.113,79.8993 18.1249,79.8978 18.1706,79.8946 18.2235,79.8794 18.3046,79.8353 18.3234,79.831 18.3261,79.8256 18.3489,79.8237 18.3765,79.8252 18.4057,79.8179 18.4065,79.8125 18.4725,79.7976 18.4619,79.7954 18.4666,79.7907 18.4782,79.7818 18.4904,79.7804 18.499,79.7841 18.4991,79.7928 18.5113,79.7941 18.5215,79.7915 18.5211,79.7835 18.5442,79.7777 18.5537,79.7853 18.5366,79.7892 18.5451,79.7963 18.5564,79.7967 18.5674,79.7951 18.5768,79.7913 18.5929,79.7921 18.6307,79.7811 18.6598,79.7788 18.6923,79.7785 18.6985,79.774 18.6889,79.7711 18.6843,79.7637 18.7269,79.7452 18.7557,79.7379 18.7502,79.7324 18.7296,79.7274 18.7281,79.7231 18.7399,79.7191 18.7859,79.7125 18.8014,79.7122 18.8243,79.7154 18.8474,79.7151 18.8506,79.723 18.8754,79.7281 18.9769,79.733 19.0409,79.7305 19.1727,79.7306 19.3085,79.7355 19.3931,79.7311 19.4503,79.7181 19.4791,79.7135 19.5051,79.7119 19.5299,79.7179 19.5798,79.7198 19.6681,79.721 19.733,79.7283 19.7562,79.7347 19.8016,79.7472 19.8282,79.7484 20.0,79.7496 20.0141,79.7497 20.0312,79.7516 20.0684,79.7557 20.0681,79.7568 20.11,79.7574 20.1349,79.7638 20.1972,79.7696 20.2658,79.7748 20.2941,79.7736 20.3176,79.7726 20.3864,79.7734 20.4068,79.7784 20.474,79.7803 20.4663,79.7759 20.517,79.7679 20.5368,79.7799 20.5871,79.7883 20.6282,79.7898 20.6784,79.7915 20.7207,79.7877 20.7719,79.7861 20.8406,79.7878 20.8771,79.7919 20.914,79.7935 20.9448,79.796 20.9964,79.7953 21.0549,79.7978 21.1181,79.8029 21.2024,79.8021 21.2403,79.8048 21.2503,79.7999 21.2778,79.8035 21.2748,79.8123 21.3817,79.8166 21.4416,79.8236 21.4586,79.8241 21.5415,79.82 21.6048,79.8176 21.6341,79.8107 21.6522,79.8099 21.6644,79.8061 21.6363,79.805 21.5667,79.7926 21.5595,79.7823 21.526,79.769 21.5278,79.7657 21.5549,79.7663 21.5995,79.774 21.6264,79.7761 21.6356,79.7796 21.6351,79.7838 21.6545,79.7838 21.7058,79.7785 21.7002,79.7764 21.648,79.7748 21.6415,79.7655 21.5586,79.7573 21.5306,79.7536 21.5334,79.7263 21.5493,79.7223 21.5629,79.7097 21.5541,79.7019 21.5625,79.6972 21.5491,79.6941 21.5093,79.6894 21.4662,79.6894 21.362,79.6979 21.3305,79.7034 21.278,79.7053 21.2188,79.7033 21.1336,79.7037 21.1225,79.7018 21.114,79.7004 21.1138,79.7013 21.0473,79.6979 20.9525,79.6961 20.8934,79.6956 20.7569,79.6869 20.7013,79.686 20.6669,79.6816 20.6175,79.6815 20.5544,79.676 20.478,79.6726 20.4556,79.6667 20.5354,79.6519 20.5516,79.6434 20.5559,79.6343 20.5583,79.6289 20.6079,79.6202 20.6369,79.6093 20.6695,79.6157 20.6883,79.6163 20.7176,79.6149 20.7784,79.6077 20.8442,79.6065 20.9035,79.6001 20.9385,79.5886 20.9587,79.5885 20.9956,79.5926 21.0161,79.5907 21.0231,79.5869 21.0413,79.5843 21.0392,79.5818 21.0575,79.5783 21.0586,79.5774 21.0664,79.5711 21.0895,79.5685 21.1283,79.5688 21.1436,79.5675 21.1707,79.5706 21.2166,79.5677 21.2557,79.5565 21.1943,79.5507 21.1186,79.5468 21.0865,79.5383 21.0376,79.5451 20.9874,79.5459 20.9473,79.5519 20.8802,79.5553 20.8693,79.5645 20.8207,79.5687 20.6716,79.568 20.5556,79.5707 20.5126,79.5736 20.4328,79.5792 20.3359,79.5892 20.2814,79.6037 20.2791,79.6062 20.2685,79.6179 20.1839,79.6269 20.1338,79.6301 20.1016,79.6304 20.0306,79.633 20.0265,79.6331 20.0,79.6341 19.9757,79.6351 19.9371,79.6295 19.8931,79.6274 19.8908,79.6283 19.7553,79.6254 19.6881,79.6231 19.6459,79.614 19.6199,79.6056 19.6318,79.593 19.6616,79.5689 19.7005,79.5578 19.7948,79.5456 19.8313,79.5274 19.8323,79.5269 19.8645,79.5202 19.8818,79.5197 19.9242,79.5186 19.9377,79.5156 20.0,79.4937 20.0267,79.4843 20.0286,79.4743 20.0299,79.474 20.0778,79.4637 20.1533,79.4646 20.2932,79.4487 20.4046,79.4413 20.4498,79.4383 20.5034,79.4324 20.5331,79.4324 20.5633,79.4354 20.6068,79.4301 20.6454,79.4291 20.6664,79.4243 20.694,79.4226 20.7362,79.4116 20.765,79.4101 20.7766,79.4021 20.7842,79.397 20.7784,79.3858 20.7505,79.3831 20.7534,79.3606 20.7962,79.3616 20.8422,79.3597 20.9099,79.3538 20.9393,79.3486 20.9922,79.3481 21.1171,79.3563 21.2205,79.3666 21.2618,79.3715 21.3132,79.373 21.4499,79.3752 21.5032,79.3744 21.5516,79.3724 21.6361,79.369 21.7046,79.3634 21.7774,79.3533 21.8318,79.3506 21.85,79.3525 21.9026,79.3536 21.9027,79.3527 22.0103,79.3668 22.1153,79.3741 22.152,79.379 22.1868,79.3836 22.259,79.3894 22.4484,79.3922 22.5014,79.3919 22.5138,79.391 22.5283,79.3922 22.5628,79.3952 22.6071,79.3967 22.6637,79.3986 22.7583,79.4042 22.8236,79.405 22.8105,79.397 22.7801,79.3911 22.6949,79.3711 22.6518,79.3531 22.6551,79.3395 22.721,79.3248 22.7646,79.3101 22.8707,79.2901 22.8815,79.289 23.0629,79.2701 23.1678,79.2658 23.2897,79.2443 23.3201,79.2456 23.3201,79.247 23.3578,79.2468 23.4447,79.2338 23.4573,79.232 23.5784,79.2222 23.5825,79.2218 23.5846,79.2217 23.6307,79.2203 23.6429,79.2248 23.6891,79.2275 23.864,79.2283 23.9141,79.2344 23.999,79.2324 24.0426,79.2314 24.1034,79.2321 24.1548,79.2373 24.2463,79.2724 24.1964,79.2943 24.2109,79.3026 24.2649,79.3047 24.3736,79.317 24.4512,79.3216 24.4874,79.328 24.5214,79.3372 24.5413,79.3406 24.6202,79.3539 24.7202,79.3771 24.7511,79.3783 24.8285,79.377 24.8588,79.3733 24.8825,79.3672 24.8868,79.3627 24.8768,79.3529 24.8846,79.3472 24.9316,79.3411 24.9848,79.3386 25.0,79.3379 25.107,79.3329 25.1267,79.3337 25.1909,79.3506 25.4722,79.3886 25.5192,79.3981 25.5416,79.4026 25.62,79.4116 25.6885,79.4314 25.7575,79.4413 25.7353,79.4531 25.6866,79.4687 25.7503,79.4759 25.8136,79.4861 25.8161,79.4889 25.8268,79.5001 25.8503,79.5052 25.8787,79.5197 25.8353,79.5642 25.7881,79.5825 25.7109,79.6022 25.7095,79.6041 25.7003,79.617 25.7133,79.6242 25.7509,79.6349 25.8636,79.6474 25.9493,79.6618 26.0101,79.6674 26.1149,79.6808 26.148,79.6906 26.1644,79.6954 26.2163,79.6995 26.3309,79.719 26.3625,79.7271 26.3953,79.7477 26.4264,79.7583 26.5447,79.7693 26.5074,79.7771 26.5179,79.7801 26.5495,79.7892 26.6651,79.8065 26.6805,79.8184 26.6705,79.8233 26.6733,79.8321 26.8213,79.8476 26.9472,79.8579 26.9714,79.8626 26.9998,79.868 27.0425,79.8901 27.1236,79.903 27.1238,79.9108 27.0864,79.9221 27.0703,79.935 27.0493,79.938 27.0026,79.9492 26.9698,79.9707 26.9645,79.9742 26.9737,79.9854 26.9771,79.9868 26.9946,79.9937 27.0073,79.9909 27.0404,79.9914 27.1186,79.9935 27.1904,79.9927 27.2123,80.0 27.1936,80.0075 27.181,80.0088 27.1261,80.0145 27.1255,80.0187 27.1567,80.0323 27.2243,80.0485 27.2373,80.0561 27.2306,80.0703 27.188,80.0778 27.1723,80.0834 27.1326,80.0826 27.0792,80.0842 27.0494,80.083 26.9816,80.0782 26.9711,80.0796 26.993,80.0881 27.0028,80.0919 27.0024,80.0981 26.9562,80.1113 26.9179,80.1379 26.8963,80.146 26.8578,80.1525 26.8055,80.158 26.7506,80.1616 26.7215,80.1624 26.6446,80.1608 26.6157,80.1631 26.5984,80.1666 26.5858,80.1691 26.5771,80.1687 26.5494,80.1675 26.4914,80.1721 26.4432,80.172 26.3822,80.1781 26.3442,80.1799 26.2041,80.1786 26.1678,80.179 26.1256,80.1813 26.0528,80.179 26.0024,80.1675 25.9944,80.1552 25.9723,80.1518 25.9056,80.1448 25.8825,80.1466 25.8588,80.1511 25.8321,80.1522 25.7506,80.1503 25.6835,80.1522 25.6603,80.1539 25.6459,80.1622 25.6221,80.1653 25.5287,80.1668 25.4648,80.174 25.4148,80.1961 25.4006,80.2023 25.4143,80.2239 25.3884,80.2268 25.3727,80.2307 25.2788,80.2281 25.2673,80.2293 25.2412,80.2244 25.2295,80.2193 25.185,80.2126 25.16,80.2112 25.1402,80.2121 25.033,80.2386 25.0327,80.2427 25.0499,80.246 25.0,80.2517 24.9924,80.2525 24.9517,80.2508 24.907,80.254 24.889,80.2534 24.8799,80.2549 24.8494,80.2536 24.8226,80.2573 24.8228,80.2611 24.8531,80.2712 24.8627,80.2783 24.8434,80.2919 24.8435,80.2972 24.8771,80.319 24.8844,80.3325 24.8768,80.3362 24.8443,80.3406 24.8393,80.3483 24.8191,80.3502 24.7781,80.3363 24.7699,80.3272 24.7315,80.2841 24.7136,80.2762 24.6901,80.2711 24.6683,80.2728 24.6525,80.2794 24.6468,80.2874 24.634,80.2882 24.5967,80.2824 24.5586,80.264 24.5458,80.261 24.5283,80.266 24.5181,80.2655 24.5048,80.2602 24.4901,80.2544 24.4633,80.2485 24.4483,80.2485 24.4354,80.2503 24.4148,80.269 24.419,80.2737 24.4376,80.2782 24.4367,80.2811 24.4013,80.2844 24.4316,80.2878 24.5139,80.3086 24.5254,80.3085 24.5341,80.3063 24.555,80.3079 24.5557,80.3123 24.5824,80.3165 24.5748,80.3196 24.5516,80.321 24.556,80.3301 24.5569,80.3319 24.5486,80.3353 24.5205,80.3375 24.5148,80.344 24.4882,80.3479 24.482,80.3584 24.4714,80.3606 24.4517,80.3536 24.4366,80.3525 24.3864,80.3602 24.3564,80.3618 24.3047,80.3584 24.2322,80.3636 24.1975,80.3608 24.1687,80.3547 24.1451,80.3543 24.1327,80.352 24.1315,80.3446 24.1165,80.3402 24.1196,80.336 24.1237,80.3356 24.2694,80.3232 24.3192,80.3218 24.3895,80.3127 24.409,80.3117 24.4196,80.3091 24.3834,80.3047 24.361,80.3052 24.3558,80.3114 24.3247,80.3093 24.3148,80.3149 24.2975,80.3172 24.2774,80.3143 24.2909,80.3095 24.2756,80.3062 24.282,80.3041 24.3434,80.2973 24.3581,80.2917 24.3651,80.289 24.3797,80.2879 24.383,80.2859 24.3567,80.2844 24.3492,80.2823 24.351,80.2781 24.3265,80.2768 24.2649,80.2975 24.2455,80.298 24.212,80.2961 24.1773,80.2981 24.1633,80.2952 24.1624,80.2895 24.1782,80.2812 24.231,80.2638 24.2343,80.2504 24.2201,80.2485 24.1819,80.2471 24.1716,80.2485 24.1691,80.2488 24.151,80.26 24.0405,80.29 24.0161,80.3017 23.9824,80.3046 23.9524,80.3001 23.9363,80.2866 23.9428,80.2804 23.9612,80.2757 23.9431,80.2723 23.9992,80.2652 24.0162,80.2611 24.0229,80.2563 24.0237,80.2558 24.0201,80.2528 24.0078,80.251 23.983,80.2582 23.9416,80.2642 23.9021,80.2665 23.8875,80.2644 23.8873,80.2589 23.878,80.2576 23.8452,80.2684 23.8491,80.2731 23.8224,80.2802 23.8067,80.2832 23.7771,80.2837 23.7533,80.2793 23.737,80.2706 23.7306,80.2551 23.7403,80.2488 23.7814,80.2449 23.796,80.242 23.8413,80.2332 23.8137,80.2301 23.7922,80.2298 23.7595,80.2346 23.7433,80.2346 23.7121,80.2317 23.7069,80.2194 23.7786,80.1876 23.8022,80.1827 23.7626,80.1751 23.7344,80.1733 23.7223,80.177 23.6984,80.1773 23.6771,80.1737 23.6625,80.1611 23.6366,80.1569 23.6245,80.1523 23.6391,80.126 23.5672,80.1159 23.5423,80.1158 23.5142,80.1202 23.5042,80.1218 23.5113,80.1322 23.5336,80.1362 23.5431,80.1415 23.5133,80.1522 23.4863,80.1536 23.4697,80.1584 23.4975,80.1821 23.4933,80.19 23.4711,80.1959 23.4401,80.1981 23.4112,80.1965 23.3701,80.1887 23.3564,80.1835 23.3723,80.1712 23.4041,80.1462 23.4008,80.1305 23.3809,80.1268 23.363,80.1294 23.3479,80.1381 23.3266,80.1616 23.3106,80.1638 23.2976,80.1706 23.2864,80.1724 23.2681,80.1716 23.2398,80.1753 23.229,80.1733 23.222,80.1612 23.2371,80.1577 23.2447,80.1559 23.243,80.1536 23.228,80.1518 23.2079,80.1535 23.1945,80.1568 23.1765,80.1577 23.1496,80.1535 23.1335,80.1602 23.1081,80.1639 23.0879,80.1616 23.084,80.1585 23.1145,80.149 23.1794,80.1214 23.1821,80.1157 23.1599,80.1121 23.1232,80.1209 23.0871,80.1227 23.0692,80.1275 23.0415,80.1298 23.031,80.1307 23.0316,80.1433 22.9969,80.1631 22.9988,80.1756 23.0228,80.1815 23.0293,80.1902 23.0251,80.2032 23.0488,80.2168 23.0507,80.2383 23.1033,80.2471 23.1363,80.2525 23.1667,80.2557 23.1824,80.2555 23.2107,80.2506 23.2212,80.2519 23.2896,80.2783 23.2991,80.2908 23.2904,80.2942 23.2522,80.2971 23.2491,80.302 23.3145,80.3088 23.3133,80.3111 23.2551,80.3165 23.254,80.3206 23.3071,80.3283 23.3101,80.3383 23.3002,80.3435 23.2809,80.3457 23.2535,80.3461 23.2131,80.3448 23.1828,80.3401 23.1749,80.3405 23.158,80.3492 23.1381,80.3529 23.1497,80.3551 23.176,80.3543 23.2075,80.3572 23.2308,80.3632 23.2368,80.3682 23.2281,80.3733 23.2056,80.3755 23.1173,80.3759 23.0978,80.3803 23.0983,80.385 23.1222,80.3889 23.1544,80.391 23.1779,80.3925 23.2515,80.3933 23.2658,80.3947 23.2735,80.3981 23.2746,80.4102 23.292,80.4139 23.3255,80.4169 23.3273,80.4193 23.3188,80.4284 23.2651,80.4446 23.1324,80.4544 23.0852,80.4519 23.0446,80.4564 23.0274,80.4566 23.0054,80.454 23.0038,80.453 22.9885,80.4426 22.9652,80.4383 22.9485,80.4388 22.9316,80.4544 22.9504,80.4678 22.9415,80.4751 22.8512,80.4909 22.7938,80.5106 22.7778,80.5086 22.7641,80.5011 22.7604,80.4895 22.7646,80.4873 22.7855,80.4763 22.7948,80.4542 22.824,80.4432 22.8299,80.4318 22.8197,80.4251 22.7949,80.4202 22.7981,80.4158 22.8281,80.4118 22.825,80.4061 22.7941,80.3893 22.7427,80.3764 22.7352,80.3716 22.6835,80.3388 22.6893,80.3376 22.7187,80.3387 22.7365,80.3359 22.7588,80.3228 22.7453,80.3194 22.7023,80.3215 22.681,80.3293 22.6527,80.3343 22.6253,80.3517 22.617,80.3622 22.633,80.3729 22.6415,80.3785 22.6443,80.3905 22.6434,80.4141 22.6225,80.4198 22.5982,80.4213 22.5343,80.4219 22.4654,80.4178 22.4011,80.4107 22.3651,80.4054 22.3376,80.3866 22.3313,80.377 22.3277,80.3717 22.341,80.3532 22.3633,80.3417 22.3988,80.3319 22.4456,80.314 22.4678,80.3111 22.5546,80.3065 22.58,80.301 22.578,80.2962 22.5564,80.2901 22.5027,80.2828 22.4763,80.2771 22.4674,80.2696 22.4705,80.2248 22.4465,80.2107 22.4641,80.1975 22.4622,80.1927 22.4248,80.1848 22.409,80.1785 22.3861,80.1563 22.3809,80.1511 22.4158,80.1149 22.4071,80.1074 22.3911,80.1056 22.3612,80.1063 22.3546,80.1031 22.4476,80.0873 22.4586,80.0826 22.4256,80.063 22.4396,80.0583 22.4309,80.0542 22.4053,80.0504 22.3855,80.0474 22.3879,80.0421 22.4022,80.038 22.4626,80.0335 22.4711,80.0289 22.4752,80.0105 22.4759,80.0073 22.458,80.0047 22.4433,80.005 22.4205,80.0105 22.3915,80.0175 22.3533,80.0298 22.3348,80.0321 22.3226,80.0318 22.3037,80.0253 22.3133,80.0106 22.3186,80.0023 22.3209,80.0 22.3197,79.9949 22.26,79.9919 22.2542,79.9856 22.2386,79.9839 22.2121,79.981 22.1946,79.982 22.1939,79.9823 22.1908,79.9839 22.1849,79.9867 22.2031,79.9991 22.2321,80.0 22.2251,80.0066 22.2175,80.0106 22.2006,80.0193 22.1974,80.0267 22.2163,80.0362 22.2132,80.0401 22.1978,80.0437 22.1889,80.0429 22.159,80.0402 22.1247,80.039 22.1164,80.0408 22.1316,80.0523 22.1294,80.0648 22.1126,80.0784 22.079,80.0892 22.0533,80.1027 22.051,80.1181 22.0077,80.1151 21.9413,80.1133 21.9039,80.1179 21.899,80.1209 21.8876,80.1277 21.8656,80.1322 21.841,80.1434 21.8298,80.1447 21.8157,80.1442 21.7754,80.1377 21.7317,80.1356 21.6918,80.1299 21.6575,80.1281 21.6326,80.1321 21.6304,80.1347 21.7104,80.1642 21.7814,80.1804 21.7863,80.182 21.803,80.1875 21.8221,80.1994 21.8619,80.2481 21.8596,80.2524 21.7503,80.2725 21.7244,80.2738 21.6857,80.2681 21.6668,80.2645 21.6616,80.2583 21.6632,80.257 21.6802,80.2439 21.6808,80.2311 21.6899,80.2265 21.6816,80.2248 21.5982,80.2346 21.581,80.2383 21.5479,80.2509 21.4897,80.2629 21.4724,80.2623 21.4406,80.2552 21.395,80.2276 21.39,80.2246 21.3813,80.2119 21.3361,80.2045 21.3239,80.2061 21.3301,80.2201 21.344,80.2241 21.3453,80.2463 21.3371,80.2484 21.2951,80.2417 21.288,80.2297 21.2748,80.2284 21.2498,80.2331 21.2363,80.2335 21.1918,80.2245 21.1951,80.2169 21.197,80.2121 21.1733,80.2064 21.0366,80.2077 20.9939,80.2043 20.9711,80.2043 20.9084,80.1978 20.895,80.1982 20.8408,80.207 20.8278,80.2138 20.8321,80.2255 20.8231,80.229 20.7785,80.2352 20.8037,80.2436 20.8066,80.2497 20.8058,80.2522 20.7989,80.273 20.8147,80.2822 20.8101,80.3055 20.7865,80.3066 20.7725,80.3056 20.6455,80.281 20.6225,80.2799 20.5827,80.2808 20.5565,80.2857 20.5481,80.2901 20.551,80.297 20.5344,80.2961 20.521,80.2954 20.5019,80.2971 20.5003,80.3001 20.5196,80.3047 20.5212,80.3073 20.4935,80.3103 20.4929,80.3126 20.5233,80.3157 20.5337,80.319 20.527,80.3392 20.5321,80.3476 20.4875,80.3535 20.4058,80.3722 20.4083,80.3752 20.4334,80.3785 20.4326,80.3832 20.3874,80.397 20.384,80.398 20.3388,80.4075 20.3034,80.4125 20.2816,80.4132 20.2508,80.4113 20.2236,80.4128 20.1989,80.4109 20.109,80.396 20.0883,80.3958 20.0513,80.4199 20.0084,80.4369 20.0131,80.4434 20.0319,80.451 20.0249,80.4536 20.0208,80.4551 20.0156,80.4688 20.0,80.4707 19.989,80.472 19.9689,80.4715 19.8845,80.4622 19.8541,80.4566 19.829,80.4553 19.7888,80.4769 19.668,80.5053 19.6448,80.5068 19.6024,80.5004 19.6018,80.4992 19.589,80.4736 19.6412,80.4434 19.6242,80.443 19.5723,80.4518 19.5334,80.4612 19.5054,80.4644 19.4791,80.4612 19.4189,80.4479 19.4006,80.4346 19.3998,80.434 19.4187,80.4149 19.4655,80.3888 19.4871,80.3848 19.5085,80.3839 19.5828,80.3873 19.6266,80.3868 19.6752,80.3923 19.7085,80.3928 19.7626,80.3975 19.7713,80.3904 19.756,80.3816 19.7888,80.38 19.7946,80.38 19.8933,80.3793 19.9112,80.3769 19.9143,80.3738 19.8307,80.3638 19.8556,80.36 19.853,80.3582 19.7612,80.3528 19.7323,80.3464 19.7244,80.3416 19.7307,80.3392 19.7761,80.3446 19.7927,80.3443 19.8286,80.3396 19.8621,80.3385 19.8591,80.3345 19.8415,80.3325 19.8078,80.3368 19.7818,80.3349 19.749,80.3325 19.7151,80.3264 19.7257,80.3182 19.7476,80.3131 19.7761,80.3143 19.8246,80.3056 19.7964,80.304 19.7936,80.3008 19.7454,80.2934 19.7486,80.2903 19.7903,80.2825 19.7952,80.2795 19.7673,80.2669 19.7515,80.2689 19.7297,80.2662 19.6885,80.2547 19.6898,80.2463 19.6908,80.2395 19.7065,80.2337 19.7239,80.2318 19.812,80.2277 19.8204,80.2257 19.8168,80.2228 19.78,80.2151 19.7576,80.2134 19.7439,80.2189 19.6538,80.2188 19.6184,80.2196 19.5871,80.2223 19.4569,80.2557 19.4506,80.2573 19.4027,80.2669 19.3855,80.2754 19.3791,80.2962 19.368,80.301 19.2325,80.3379 19.0556,80.3504 19.0523,80.3506 19.0194,80.3488 18.9986,80.3444 18.9968,80.3322 19.0186,80.3169 19.0473,80.3062 19.0561,80.2989 19.0711,80.2965 19.0562,80.2856 19.0695,80.2603 19.092,80.2461 19.1224,80.2363 19.1416,80.23 19.172,80.2129 19.1781,80.1985 19.1891,80.1937 19.2218,80.1871 19.2566,80.1827 19.2815,80.1758 19.3112,80.1718 19.3333,80.1709 19.3741,80.1727 19.4448,80.1653 19.4955,80.1646 19.565,80.1539 19.5837,80.151 19.5911,80.1459 19.5756,80.1439 19.4424,80.1485 19.3632,80.1564 19.3425,80.1534 19.3537,80.1481 19.3838,80.1469 19.3906,80.1409 19.4022,80.1397 19.4229,80.1427 19.4433,80.1417 19.4395,80.1373 19.3846,80.1309 19.375,80.1264 19.3722,80.1178 19.3828,80.1162 19.4104,80.1178 19.4214,80.1164 19.4216,80.1146 19.4217,80.1133 19.3534,80.1011 19.2845,80.0919 19.2601,80.0838 19.2489,80.0837 19.2368,80.0939 19.1329,80.1227 19.0979,80.1374 19.0852,80.1395 19.0628,80.1389 19.048,80.1405 19.0115,80.1491 18.9801,80.1566 18.9525,80.167 18.9153,80.1755 18.9136,80.1815 18.937,80.1892 18.8619,80.1899 18.8434,80.1966 18.7228,80.2054 18.7124,80.2031 18.7165,80.1983 18.7342,80.1945 18.7673,80.192 18.7754,80.1891 18.7729,80.1859 18.7441,80.185 18.729,80.1818 18.7288,80.1795 18.7283,80.172 18.7058,80.1632 18.6858,80.161 18.6581,80.1613 18.6411,80.164 18.6345,80.169 18.5751,80.173 18.5524,80.1874 18.526,80.1842 18.4922,80.1835 18.4658,80.1858 18.4344,80.1933 18.3425,80.1884 18.3249,80.1846 18.2696,80.1831 18.2232,80.1835 18.155,80.1843 18.1134,80.1874 18.0955,80.1841 18.0781,80.1734 18.0612,80.1713 18.0427,80.1726 18.0613,80.1825 18.0483,80.1831 18.0139,80.1778 17.9587,80.1777 17.9468,80.1745 17.9422,80.1616 17.9206,80.1585 17.898,80.1634 17.846,80.1669 17.8287,80.166 17.7922,80.1551 17.7539,80.1437 17.7005,80.1357 17.6993,80.1306 17.6992,80.1301 17.6992,80.1301 65,1.0,Norway 18.7671,74.4844 18.7716,74.4809 18.7883,74.4819 18.7894,74.4724 18.8104,74.4705 18.808,74.4611 18.84,74.4503 18.8396,74.4472 18.8363,74.4393 18.8601,74.4332 18.8916,74.421 18.8913,74.416 18.9172,74.4083 18.9331,74.4089 18.9608,74.3918 18.9798,74.3936 18.995,74.3843 19.0415,74.369 19.0353,74.3636 19.0573,74.3574 19.0621,74.3491 19.0866,74.3457 19.0931,74.3497 19.1226,74.3498 19.1185,74.3559 19.1271,74.3615 19.1737,74.3645 19.168,74.3701 19.1901,74.3808 19.1942,74.3893 19.2072,74.3961 19.2114,74.3983 19.2093,74.4062 19.2077,74.4121 19.239,74.4189 19.2633,74.4298 19.2937,74.4603 19.2831,74.4651 19.2934,74.468 19.2808,74.4774 19.2106,74.4952 19.1951,74.499 19.1813,74.5093 19.1819,74.5136 19.1718,74.5163 19.1571,74.5168 19.144,74.5243 19.1054,74.5234 19.0957,74.5232 19.0732,74.5179 19.0178,74.5208 19.0147,74.5166 18.9867,74.5161 18.9731,74.5158 18.9629,74.5217 18.9412,74.514 18.925,74.511 18.8669,74.5111 18.8537,74.5125 18.8486,74.5094 18.8301,74.5087 18.8085,74.5036 18.7802,74.4863 18.7671,74.4844 18.7671,74.4844 ================================================ FILE: POST/writesite/outputs/O3.csv ================================================ Data read from file:/proj/ie/apps/CMAQ/CMAQ_v5.2Beta_UNC_Testing/data/cctm/combine/CCTM_v52b_Linux2_x86_64pgi_COMBINE_ACONC.CMAQ52-BENCHMARK_201107 (layer 1) Note: All Times are in GMT siteid,column,row,longitude,latitude,date,Time,O3 ,,,degrees,degrees,YYYY-MM-DD,hh:mm:ss,ppbV los_angele,37,31,-118.24000,34.05000,2011-07-01,00:00:00,51.9119 los_angele,37,31,-118.24000,34.05000,2011-07-01,01:00:00,47.5323 los_angele,37,31,-118.24000,34.05000,2011-07-01,02:00:00,38.9272 los_angele,37,31,-118.24000,34.05000,2011-07-01,03:00:00,28.2640 los_angele,37,31,-118.24000,34.05000,2011-07-01,04:00:00,16.3866 los_angele,37,31,-118.24000,34.05000,2011-07-01,05:00:00,3.44505 los_angele,37,31,-118.24000,34.05000,2011-07-01,06:00:00,0.510382 los_angele,37,31,-118.24000,34.05000,2011-07-01,07:00:00,0.430275 los_angele,37,31,-118.24000,34.05000,2011-07-01,08:00:00,0.587782 los_angele,37,31,-118.24000,34.05000,2011-07-01,09:00:00,0.755119 los_angele,37,31,-118.24000,34.05000,2011-07-01,10:00:00,0.384662 los_angele,37,31,-118.24000,34.05000,2011-07-01,11:00:00,0.643682E-01 los_angele,37,31,-118.24000,34.05000,2011-07-01,12:00:00,0.147264E-01 los_angele,37,31,-118.24000,34.05000,2011-07-01,13:00:00,1.47907 los_angele,37,31,-118.24000,34.05000,2011-07-01,14:00:00,7.31918 los_angele,37,31,-118.24000,34.05000,2011-07-01,15:00:00,14.2494 los_angele,37,31,-118.24000,34.05000,2011-07-01,16:00:00,19.7030 los_angele,37,31,-118.24000,34.05000,2011-07-01,17:00:00,24.7163 los_angele,37,31,-118.24000,34.05000,2011-07-01,18:00:00,32.1027 los_angele,37,31,-118.24000,34.05000,2011-07-01,19:00:00,47.5530 los_angele,37,31,-118.24000,34.05000,2011-07-01,20:00:00,67.9642 los_angele,37,31,-118.24000,34.05000,2011-07-01,21:00:00,80.0136 los_angele,37,31,-118.24000,34.05000,2011-07-01,22:00:00,83.7430 los_angele,37,31,-118.24000,34.05000,2011-07-01,23:00:00,74.8174 ================================================ FILE: POST/writesite/scripts/bldit_writesite.csh ================================================ #! /bin/csh -f # ==================== WRITESITEv5.5.X Build Script ================= # # Usage: bldit_writesite.csh >&! bldit_writesite.log # # Requirements: I/O API & netCDF libraries; a Fortran compiler # # # # To report problems or request help with this script/program: # # http://www.cmascenter.org # # =================================================================== # # ======================================================================= #> Preliminary error checking and environment configuration # ======================================================================= #> Check that the host system is Linux-based set BLD_OS = `uname -s` if ($BLD_OS != 'Linux') then echo " $BLD_OS -> wrong bldit script for host!" exit 1 endif #> Set Compiler Identity by User Input: Options -> intel | pgi | gcc if ( $#argv == 1 ) then setenv compiler $argv[1] setenv compilerVrsn Empty else if ( $#argv == 2 ) then #> Compiler Name and Version have been provided setenv compiler $1 setenv compilerVrsn $2 else echo "usage: $0 " echo " where is intel, pgi or gcc" exit(2) endif #> Source the config.cmaq file to set the build environment cd ../../.. source ./config_cmaq.csh #> Source Code Repository setenv REPOROOT ${CMAQ_REPO}/POST/writesite #> location of the source code for WRITESITE #=============================================================================== #> Begin User Input Section #=============================================================================== #> User choices: working directory and application ID set VRSN = v55 #> model version set EXEC = writesite_${VRSN}.exe #> executable name for this application set CFG = writesite_${VRSN}.cfg #> BLDMAKE configuration file name setenv BLDER ${CMAQ_HOME}/UTIL/bldmake/bldmake_${compilerString}.exe #> location of makefile builder executable #> user choice: copy source files set CopySrc #> copy the source files into the BLD directory #set MakeFileOnly # builds a Makefile to make the model, but does not compile - # comment out to also compile the model (default if not set) # set CompileBLDMAKE #> Recompile the BLDMAKE utility from source #> comment out to use an existing BLDMAKE executable set ModDriver = src #> WRITESITE Modules #============================================================================================ #> Computing System Configuration: #> Most of these settings are done in config.cmaq #============================================================================================ #> Set full path of Fortran 90 compiler setenv FC ${myFC} set FP = $FC #> Set IO/API version set IOAPI = ioapi_3.1 #> Set compiler flags set FSTD = "${myFSTD}" set DBG = "${myDBG}" setenv F_FLAGS "${myFFLAGS}" set F90_FLAGS = "${myFRFLAGS}" set CPP_FLAGS = "" #> Fortran Preprocessor Flags set LINK_FLAGS = "${myLINK_FLAG}" #> Link Flags set LIB2 = "${ioapi_lib}" #============================================================================================ #> Set up the writesite build directory under the Tools directory #> for checking out and compiling source code #============================================================================================ set Bld = ${CMAQ_HOME}/POST/writesite/scripts/BLD_writesite_${VRSN}_${compilerString} if ( ! -e "$Bld" ) then mkdir -pv $Bld else if ( ! -d "$Bld" ) then echo " *** target exists, but not a directory ***" exit 1 endif endif cd $Bld #> Check for previous run if ( -e "$Bld/${CFG}" ) then echo " >>> previous ${CFG} exists, re-naming to ${CFG}.old <<<" mv $Bld/${CFG} $Bld/${CFG}.old endif #============================================================================================ #> Make the config file #============================================================================================ set Cfile = ${Bld}/$CFG set quote = '"' echo > $Cfile echo "model $EXEC;" >> $Cfile echo >> $Cfile echo "repo $REPOROOT;" >> $Cfile echo >> $Cfile echo "lib_base ${CMAQ_LIB};" >> $Cfile echo >> $Cfile echo "lib_1 ioapi/lib;" >> $Cfile echo >> $Cfile echo "lib_2 ioapi/include_files;" >> $Cfile echo >> $Cfile echo "lib_3 netcdf/include;" >> $Cfile echo >> $Cfile echo "lib_4 ioapi/lib;" >> $Cfile echo >> $Cfile echo "lib_5 netcdff/include;" >> $Cfile echo >> $Cfile set text = "$quote$CPP_FLAGS$quote;" echo "cpp_flags $text" >> $Cfile echo >> $Cfile echo "f_compiler $FC;" >> $Cfile echo >> $Cfile echo "fstd $quote$FSTD$quote;" >> $Cfile echo >> $Cfile echo "dbg $quote$DBG$quote;" >> $Cfile echo >> $Cfile echo "f_flags $quote$F_FLAGS$quote;" >> $Cfile echo >> $Cfile echo "f90_flags $quote$F90_FLAGS$quote;" >> $Cfile echo >> $Cfile echo "link_flags $quote$LINK_FLAGS$quote;" >> $Cfile echo >> $Cfile #echo "libraries $quote$LIBS$quote;" >> $Cfile echo "ioapi $quote$LIB2$quote;" >> $Cfile echo >> $Cfile echo "netcdf $quote$netcdf_lib$quote;" >> $Cfile echo >> $Cfile echo "netcdff $quote$netcdff_lib$quote;" >> $Cfile set text = "writesite" echo "// options are" $text >> $Cfile echo "Module ${ModDriver};" >> $Cfile echo >> $Cfile #============================================================================================ #> Use BLDMAKE to create the Makefile and model executable if desired #============================================================================================ unalias mv rm #> Recompile BLDMAKE from source if requested or if it does not exist if ( $?CompileBLDMAKE || ! -f $BLDER ) then cd ${CMAQ_REPO}/UTIL/bldmake/scripts ./bldit_bldmake.csh endif #> Relocate to the BLD_* directory cd $Bld #> Set serial options for BLDMAKE execution set Blder = "$BLDER -serial -verbose" #> Run BLDMAKE Utility if ( $?MakeFileOnly ) then #> Just create the Makefile if ( $?CopySrc ) then $Blder -makefo $Cfile else $Blder -makefo -git_local $Cfile endif else # Also compile the model if ( $?CopySrc ) then $Blder $Cfile else $Blder -git_local $Cfile endif endif #> Save Makefile with Compiler-dependent name and create symbolic #> link back to generic name. mv Makefile Makefile.$compilerString if ( -e Makefile.$compilerString && -e Makefile ) rm Makefile ln -s Makefile.$compilerString Makefile #> Check for error during makefile generation if ( $status != 0 ) then echo " *** failure in $Blder ***" exit 1 endif exit ================================================ FILE: POST/writesite/scripts/run_writesite.csh ================================================ #! /bin/csh -f # ==================== WRITESITE_v5.5.X Run Script ==================== # Usage: run_writesite.csh >&! writesite.log & # # To report problems or request help with this script/program: # http://www.epa.gov/cmaq (EPA CMAQ Website) # http://www.cmascenter.org # =================================================================== # ================================================================== #> Runtime Environment Options # ================================================================== #> Choose compiler and set up CMAQ environment with correct #> libraries using config.cmaq. Options: intel | gcc | pgi setenv compiler intel cd ../../.. source ./config_cmaq.csh #> Set General Parameters for Configuring the Simulation set VRSN = v55 #> Code Version set PROC = mpi #> serial or mpi set MECH = cb6r3_ae7_aq #> Mechanism ID set APPL = Bench_2016_12SE1 #> Application Name (e.g. Gridname) #> Define RUNID as any combination of parameters above or others. By default, #> this information will be collected into this one string, $RUNID, for easy #> referencing in output binaries and log files as well as in other scripts. set RUNID = ${VRSN}_${compilerString}_${APPL} #> Set the build directory if this was not set above #> (this is where the executable is located by default). if ( ! $?BINDIR ) then set BINDIR = ${CMAQ_HOME}/POST/writesite/scripts/BLD_writesite_${VRSN}_${compilerString} endif #> Set the name of the executable. set EXEC = writesite_${VRSN}.exe #> Set location of CMAQ repo. This will be used to point to the optional time zone file #> used by writesite. set REPO_HOME = ${CMAQ_REPO} #> Set output directory set POSTDIR = ${CMAQ_DATA}/POST #> Location where writesite file will be written if ( ! -e $POSTDIR ) then mkdir $POSTDIR endif # ===================================================================== #> WRITESITE Configuration Options # ===================================================================== #> Projection sphere type used by I/OAPI (use type #20 to match WRF/CMAQ) setenv IOAPI_ISPH 20 #> name of input file containing sites to process (default is all cells) setenv SITE_FILE ALL #> Sample SITE_FILE text file is available in the v5.2.1 repo. #setenv SITE_FILE ${REPO_HOME}/POST/writesite/inputs/sites.txt #> delimiter used in site file (default is ) setenv DELIMITER ',' #> site file contains column/row values (default is N, meaning lon/lat values will be used) setenv USECOLROW N #> location of time zone data file, tz.csv (this is a required input file) #> The tz.csv file is saved within the bldoverlay folder of the v5.2.1 repo which also uses this input. setenv TZFILE ${REPO_HOME}/POST/bldoverlay/inputs/tz.csv #> grid layer to output (default is 1) setenv LAYER 1 #> adjust to local standard time (default is N) setenv USELOCAL N #> shifts time of data (default is 0) #setenv TIME_SHIFT 1 #> output header records (default is Yes) setenv PRTHEAD Y #> output map projection coordinates x and y (default is Yes) setenv PRT_XY N #> define time window set START_DATE = "2016-07-01" #> first date to process (default is starting date of input file) set END_DATE = "2016-07-01" #> last date to process (default is ending date of input file) #> Convert START_DATE and END_DATE to Julian day. #> (required format for writesite STARTDATE and ENDDATE environment variables) setenv STARTDATE `date -ud "${START_DATE}" +%Y%j` setenv ENDDATE `date -ud "${END_DATE}" +%Y%j` #> list of species to output setenv SPECIES_1 O3 #> set input and output files setenv INFILE ${CMAQ_DATA}/POST/COMBINE_ACONC_${RUNID}_201607.nc #[Add location of input file, e.g. COMBINE_ACONC file.] setenv OUTFILE ${POSTDIR}/O3_${RUNID}.csv #> Executable call: ${BINDIR}/${EXEC} set progstat = ${status} if ( ${progstat} ) then echo "ERROR ${progstat} in $BINDIR/$EXEC" exit( ${progstat} ) endif date exit() ================================================ FILE: POST/writesite/src/getTZ.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC C function to compute time zone offset from lat/lon C C The routine requires file "tz.csv" for timezone data C CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC Integer Function getTZ(longitude, latitude) result(tzoffset) Implicit None ! defined type for line curve TYPE LINE Integer npts Character*(20) name Real offset Real xmin, xmax, ymin, ymax Real, Pointer :: x(:) Real, Pointer :: y(:) End TYPE LINE ! defined type for array points used for different size arrays TYPE POINTS Real, Pointer :: x(:,:) Real, Pointer :: y(:,:) End TYPE POINTS ! arguments Real latitude, longitude ! function Real getValue Logical inArea ! default Timezone data file Character*(256), Parameter :: defaultTZ = '/home/shq/src/writesite/tz.csv' ! saved variables Logical, save :: firstime=.true. Integer, save :: nlines TYPE (LINE),allocatable,save :: lines(:) TYPE (POINTS),allocatable,save :: pts(:) !pointer used for differsize arrays ! create different size arrays for storing line points Real,target,allocatable,save :: lon1(:,:) Real,target,allocatable,save :: lat1(:,:) Real,target,allocatable,save :: lon2(:,:) Real,target,allocatable,save :: lat2(:,:) Real,target,allocatable,save :: lon3(:,:) Real,target,allocatable,save :: lat3(:,:) Real,target,allocatable,save :: lon4(:,:) Real,target,allocatable,save :: lat4(:,:) Real,target,allocatable,save :: lon5(:,:) Real,target,allocatable,save :: lat5(:,:) Real,target,allocatable,save :: lon6(:,:) Real,target,allocatable,save :: lat6(:,:) Real,target,allocatable,save :: lon7(:,:) Real,target,allocatable,save :: lat7(:,:) Real,target,allocatable,save :: lon8(:,:) Real,target,allocatable,save :: lat8(:,:) Real,target,allocatable,save :: lon9(:,:) Real,target,allocatable,save :: lat9(:,:) ! local variables Character*(256) tzfile Character*(120) record Character*(32) field Integer npts Integer i, j, status Real lat(15000), lon(15000), long Integer count(9), sizes(9) Integer nx, nfound, nsort Real xsec(500), ysec(500), temp Integer :: lfn=15 Data sizes/50,100,200,500,1000,2000,5000,10000,15000/ if( firstime ) then firstime = .false. ! get tz file name CALL ENVSTR('TZFILE','Time zone data file',defaultTZ,tzFile,status) ! open tz boundary file open(unit=lfn,file=tzFile,status='OLD',iostat=status) if(status.ne.0) then write(*,'(//''**ERROR** Cannot open time zone data file:'',a,//)') TRIM(tzFile) Stop endif count = 0 nlines = 0 ! read tz data file and count number of lines needed do read(lfn,'(a)',iostat=status) record if(status.ne.0) exit Call getField( record, ',', 1, field ) read(field,'(i16)') npts nlines = nlines+1 ! update count do i=1,SIZE(count) if(npts.le.sizes(i)) then count(i) = count(i) + 1 EXIT endif enddo ! read point records do i=1,npts read(lfn,'(a)',iostat=status) record if(status.ne.0) then write(*,'(''Read error on record:'',a)') trim(record) stop endif enddo enddo rewind(lfn) ! allocate lines and pointers Allocate( lines(nlines) ) Allocate( pts(SIZE(count)) ) ! asign pointers to size arrays pts(1)%x => lon1 pts(1)%y => lat1 pts(2)%x => lon2 pts(2)%y => lat2 pts(3)%x => lon3 pts(3)%y => lat3 pts(4)%x => lon4 pts(4)%y => lat4 pts(5)%x => lon5 pts(5)%y => lat5 pts(6)%x => lon6 pts(6)%y => lat6 pts(7)%x => lon7 pts(7)%y => lat7 pts(8)%x => lon8 pts(8)%y => lat8 pts(9)%x => lon9 pts(9)%y => lat9 ! allocate point arrays for each size using pointers do i=1,SIZE(count) Allocate( pts(i)%x(sizes(i),count(i)) ) Allocate( pts(i)%y(sizes(i),count(i)) ) enddo ! read each line and set pointers nlines = 0 count = 0 do read(lfn,'(a)',iostat=status) record if(status.ne.0) exit nlines = nlines+1 Call getField( record, ',', 1, field ) read(field,'(i16)') lines(nlines)%npts Call getField( record, ',', 2, field ) read(field,'(f16.0)') lines(nlines)%offset Call getField( record, ',', 3, field ) lines(nlines)%name = field ! read points into lat and lon arrays do i=1,lines(nlines)%npts read(lfn,'(a)',iostat=status) record if(status.ne.0) then write(*,'(''Read error on record:'',a)') trim(record) stop endif Call getField( record, ',', 1, field ) read(field,'(f32.0)') lon(i) Call getField( record, ',', 2, field ) read(field,'(f32.0)') lat(i) enddo ! compute min and max for each line lines(nlines)%xmin = lon(1) lines(nlines)%xmax = lon(1) lines(nlines)%ymin = lat(1) lines(nlines)%ymax = lat(1) do i=1,lines(nlines)%npts if(lon(i) .lt. lines(nlines)%xmin) lines(nlines)%xmin = lon(i) if(lon(i) .gt. lines(nlines)%xmax) lines(nlines)%xmax = lon(i) if(lat(i) .lt. lines(nlines)%ymin) lines(nlines)%ymin = lat(i) if(lat(i) .gt. lines(nlines)%ymax) lines(nlines)%ymax = lat(i) enddo ! copy arrays to correct size array using pointers do i=1,SIZE(count) if(lines(nlines)%npts.le.sizes(i)) then count(i) = count(i) + 1 pts(i)%x(:,count(i)) = lon(1:lines(nlines)%npts) pts(i)%y(:,count(i)) = lat(1:lines(nlines)%npts) lines(nlines)%x => pts(i)%x(:,count(i)) lines(nlines)%y => pts(i)%y(:,count(i)) EXIT endif enddo enddo close(lfn) endif ! firstime ! find all intersecting points at longitude nx = 0 do i = 1, nlines if(lines(i)%xmin.le.longitude .and. longitude.le.lines(i)%xmax) then Call getValues(longitude, lines(i)%npts, lines(i)%x, lines(i)%y, nfound, lat) ! check if point lies in line area if( nfound.ge.2 .and. lines(i)%ymin.le.latitude .and. latitude.le.lines(i)%ymax ) then if( inArea( latitude, nfound, lat) ) then !write(*,'(''point lies in area'',i5)') i tzoffset = -lines(i)%offset return endif endif ! add lat values to array do j=1,nfound nx = nx+1 xsec(nx) = lat(j) ysec(nx) = lines(i)%offset enddo endif enddo ! if more than 1 intersecting point found, sort them if( nx.gt.1 ) then nsort = nx do nfound=0 nsort = nsort-1 do i=1,nsort if( xsec(i).gt.xsec(i+1) ) then temp = xsec(i) xsec(i) = xsec(i+1) xsec(i+1) = temp temp = ysec(i) ysec(i) = ysec(i+1) ysec(i+1) = temp nfound=1 endif enddo if(nfound.eq.0) EXIT enddo ! find offset for latitude do i=1,nx-1 if(latitude.ge.xsec(i) .and. latitude.le.xsec(i+1)) then if( ysec(i).eq.ysec(i+1) .and. xsec(i+1)-xsec(i).lt.4.0 ) then tzoffset = -ysec(i) !write(*,'(''point lies between areas'')') return endif endif enddo endif ! compute tzoffset from longitude long = abs(longitude) tzoffset = (long+7.5) / 15 if(longitude.gt.0) tzoffset = -tzoffset !write(*,'(''offset computed by longitude'')') return end Function getTZ CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC C Subroutine to get intersecting values from array CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC Subroutine getValues(xx, npts, x, y, nfound, yy) Implicit None ! arguments Real xx Integer npts Real x(*) Real y(*) Integer nfound Real yy(*) Real slope Integer i nfound = 0 do i=1,npts-1 if( (xx.ge.x(i) .and. xx.lt.x(i+1)) .or. & (xx.le.x(i) .and. xx.gt.x(i+1)) ) then nfound = nfound+1 slope = 1.0 if( x(i).ne.x(i+1) ) slope = (y(i)-y(i+1)) / (x(i)-x(i+1)) yy(nfound) = y(i) + slope * (xx - x(i)) endif enddo return end Subroutine getValues CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC C function to get value from array table CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC Real Function getValue(xx, npts, x, y) result(yy) Implicit None Real xx Integer npts Real x(*) Real y(*) Real slope Integer i do i=1,npts-1 if( (xx.ge.x(i) .and. xx.lt.x(i+1)) .or. & (xx.le.x(i) .and. xx.gt.x(i+1)) ) then slope = 1.0 if( x(i).ne.x(i+1) ) slope = (y(i)-y(i+1)) / (x(i)-x(i+1)) yy = y(i) + slope * (xx - x(i)) return endif enddo yy = 0.0 return end Function getValue CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC C function to check if latitude is in line area CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC Logical Function inArea( x, nval, values) result(result) Implicit None ! arguments Real x Integer nval Real values(*) ! local variables Real nsort Integer i logical sorted Real temp result = .false. ! sort the values nsort = nval do sorted = .true. nsort = nsort-1 do i=1,nsort if( values(i).gt.values(i+1) ) then temp = values(i) values(i) = values(i+1) values(i+1) = temp sorted=.false. endif enddo if(sorted) EXIT enddo ! check if x is between values do i=1,nval-1,2 if( x.ge.values(i) .and. x.le.values(i+1) ) result = .true. enddo return end Function inArea ================================================ FILE: POST/writesite/src/module_site.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C*********************************************************************** C C MODULE: site ids and location C C*********************************************************************** MODULE SITES Logical ALLCELLS Integer nsites Character*(10) siteid(2000) Real longitude(2000) Real latitude(2000) Integer siteCol(2000) Integer siteRow(2000) contains C subroutine to open site file and load arrays Subroutine loadSites() USE M3UTILIO IMPLICIT NONE ! functions Integer getNumberOfFields ! local variables Integer status Integer lfn Integer nflds Character*(512) sitefile Character*(512) record Character*(16) field Character*(1) delimiter Logical useColRow Real value Real x, y lfn = 20 ALLCELLS = .false. CALL ENVSTR( 'SITE_FILE', 'Name of site definition file', 'ALL', sitefile, status) if( sitefile.eq.'ALL') then ALLCELLS = .true. return endif CALL ENVSTR( 'DELIMITER', 'Delimiter character in site file', char(9), delimiter, status) useColRow = ENVYN( 'USECOLROW', 'Column/row in site file', .false., status) OPEN(unit=lfn, file=sitefile, status='old', iostat=status) IF( status .ne. 0 ) then write(*,'(''**ERROR** Cannot open SITE_FILE:'',a)') TRIM(sitefile) Stop endif ! read until site record found do read(lfn,'(a)',iostat=status) record if(status.ne.0) then write(*,'(''**ERROR** Cannot find site records in SITE_FILE:'',a)') TRIM(sitefile) Stop endif nflds = getNumberOfFields( record, delimiter ) if( nflds.lt.3 ) CYCLE Call getField( record, delimiter, 2, field ) read(field,'(f16.0)',iostat=status) value if( status.ne.0 ) CYCLE Call getField( record, delimiter, 3, field ) read(field,'(f16.0)',iostat=status) value if( status.ne.0 ) CYCLE !! site record found, backspace and exit loop Backspace(lfn) EXIT enddo ! read and load sites nsites = 0 do read(lfn,'(a)',iostat=status) record if(status.ne.0) EXIT nflds = getNumberOfFields( record, delimiter ) if( nflds.lt.3 ) EXIT nsites = nsites + 1 if( nsites.gt.SIZE(siteid) ) then write(*,'(''**ERROR** The number of sites exceed maximum'')') Stop endif Call getField( record, delimiter, 1, siteid(nsites) ) if( useColRow ) then ! read col/row and compute lon/lat Call getField( record, delimiter, 2, field ) read(field,'(i16)') siteCol(nsites) Call getField( record, delimiter, 3, field ) read(field,'(i16)') siteRow(nsites) ! compute longitude and latitude for site x = XORIG3D + (siteCol(nsites)-0.5) * XCELL3D y = YORIG3D + (siteRow(nsites)-0.5) * YCELL3D Call toLL( GDTYP3D, x, y, longitude(nsites), latitude(nsites) ) else ! read lon/lat and compute col/row Call getField( record, delimiter, 2, field ) read(field,'(f16.0)') longitude(nsites) Call getField( record, delimiter, 3, field ) read(field,'(f16.0)') latitude(nsites) ! compute row and column for site Call toProj( GDTYP3D, longitude(nsites), latitude(nsites), x, y ) siteCol(nsites) = INT( (x-XORIG3D)/XCELL3D ) + 1 siteRow(nsites) = INT( (y-YORIG3D)/YCELL3D ) + 1 endif enddo write(*,'(i5,'' sites loaded'')') nsites close(unit=lfn) return end Subroutine loadSites END MODULE SITES ================================================ FILE: POST/writesite/src/module_spec.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C************************************************************************* C C MODULE: defines a set of species variables C C************************************************************************* MODULE SPECIES Character*(16) :: SPECVARS(2048) INTEGER NSPECVAR CONTAINS cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C ROUTINE TO GET SPECIES DEFINITIONS FROM ENVIRONMENT VARIABLES CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC SUBROUTINE LoadSpecies USE M3UTILIO IMPLICIT NONE ! local variables Integer k, n Integer status Character*(16) varname Character*(16) field NSPECVAR = 0 do k=1,2048 ! build VARNAME write(field,'(i5)') k Call leftTrim(field) varname = 'SPECIES_' // TRIM(field) ! get environment variable varname CALL ENVSTR( varname, 'Species Variable definition', 'Not Used', field, status) IF( status .ne. 0 ) EXIT ! check for SPECIES_1 = 'ALL" for all species if( k.eq.1 .and. TRIM(field).eq.'ALL' ) then NSPECVAR = NVARS3D if( NSPECVAR.gt.SIZE(SPECVARS) ) then NSPECVAR = SIZE(SPECVARS) write(*,'(//,''**Warning** the number of species exceed maximum'')') write(*,'('' Only the first'',i4,'' species will be processed'')') NSPECVAR endif ! copy all species do n=1,NVARS3D SPECVARS(n) = VNAME3D(n) enddo EXIT endif NSPECVAR = NSPECVAR + 1 SPECVARS( NSPECVAR ) = field enddo end Subroutine LoadSpecies END MODULE SPECIES ================================================ FILE: POST/writesite/src/parser.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C*********************************************************************** C*********************************************************************** C routines for parsing a delimited text record C*********************************************************************** C Return the number of fields in record INTEGER FUNCTION getNumberOfFields( record, delimiter ) result( nfields ) CHARACTER*(*) record CHARACTER*(1) delimiter Integer getFieldCount Integer i ! if delimiter is space, use getFieldCount function if( delimiter.eq.' ') then nfields = getFieldCount(record, delimiter) return endif nfields = 1 Do i=1, LEN(record) if( record(i:i) .eq. delimiter ) nfields = nfields+1 EndDo Return End C Return the number of parsed fields in record C this method considers duplicate delimiters as one INTEGER FUNCTION getFieldCount(record, delimiter) & result(nfields) CHARACTER*(*) record CHARACTER*(*) delimiter Integer i Logical infield Logical isDel nfields = 0 infield = .false. Do i=1,LEN(record) isDel = (record(i:i).eq.delimiter) ! check for start of field if( .NOT.infield .and. .NOT.isDel ) then nfields = nfields+1 infield = .true. cycle endif ! check for end of field if( infield .and. isDel ) then infield = .false. cycle endif enddo Return end C Return the nth field of record Subroutine getField( record, delimiter, nth, field ) CHARACTER*(*) record CHARACTER*(1) delimiter Integer nth CHARACTER*(*) field Integer nfields Integer i, pos1 ! if delimiter is space, use method 2 if( delimiter.eq.' ' ) then call getField2( record, delimiter, nth, field ) call RightTrim(field) return endif pos1 = 1 nfields = 0 field = '' Do i=1, LEN(record) if( record(i:i) .eq. delimiter ) then nfields = nfields+1 if( nfields .eq. nth ) then if(pos1.lt.i) field = record(pos1:i-1) call RightTrim(field) return Endif pos1 = i+1 Endif Enddo nfields = nfields+1 ! check if last field if( nfields .eq. nth ) then field = record(pos1:) Endif Call RightTrim(field) Return End C Return the nth field in record (method 2) C this method considers duplicate delimiters as one C Subroutine getField2( record, delimiter, nth, field ) CHARACTER*(*) record CHARACTER*(*) delimiter Integer nth CHARACTER*(*) field Integer nfields Integer i, pos1 Logical infield Logical isDel nfields = 0 field = '' infield = .false. Do i=1,LEN(record) isDel = (record(i:i).eq.delimiter) ! check for start of field if( .NOT.infield .and. .NOT.isDel ) then nfields = nfields+1 pos1 = i infield = .true. endif ! check for end of field if( infield .and. isDel ) then infield = .false. endif ! if end of nth field, return if( nfields.eq.nth .and. .not.infield ) then if(pos1.lt.i) field = record(pos1:i-1) return endif enddo ! check for last field if( nfields.eq.nth ) field = record(pos1:) Return End C Return the number of parsed fields in record INTEGER FUNCTION getParsedNumber( record, delimiter ) result( nfields ) CHARACTER*(*) record CHARACTER*(*) delimiter Integer i nfields = 1 Do i=1, LEN(record) if( index(delimiter,record(i:i)) .gt. 0 ) nfields = nfields+1 EndDo Return End C Return the nth field of record Subroutine getParsedField( record, delimiter, nth, field, includeDel ) CHARACTER*(*) record CHARACTER*(*) delimiter Integer nth CHARACTER*(*) field Logical includeDel Integer nfields Integer i, pos1 pos1 = 1 nfields = 0 field = '' Do i=1, LEN(record) if( index(delimiter,record(i:i)) .gt. 0 ) then nfields = nfields+1 if( nfields .eq. nth ) then if( pos1.lt.i ) field = record(pos1:i-1) return Endif ! define starting point of next field pos1 = i+1 if( includeDel ) pos1 = i Endif Enddo nfields = nfields+1 ! check if last field if( nfields .eq. nth ) then field = record(pos1:) Endif Return End C*********************************************************************** C Returns the nth field of record C*********************************************************************** Subroutine getFld( record, delimiter, nth, del, field ) IMPLICIT NONE CHARACTER*(*) record CHARACTER*(*) delimiter CHARACTER del Integer nth CHARACTER*(*) field Integer nfields Integer i, pos1 pos1 = 1 nfields = 0 del = delimiter(1:1) field = '' Do i=1, LEN(record) if( index( delimiter,record(i:i) ) .gt. 0 ) then nfields = nfields+1 if( nfields .eq. nth ) then if(pos1.le.i) field = record(pos1:i-1) call LeftTrim(field) call RightTrim(field) return Endif del = record(i:i) pos1 = i+1 Endif Enddo nfields = nfields+1 ! check if last field if( nfields .eq. nth ) then field = record(pos1:) Endif Call LeftTrim(field) Call RightTrim(field) Return End C*********************************************************************** C Returns the number of parsed fields in record C*********************************************************************** INTEGER FUNCTION getFldCount(record, delimiter) & result(nfields) IMPLICIT NONE CHARACTER*(*) record CHARACTER*(*) delimiter Integer i Logical isDel nfields = 0 if( LEN_TRIM(record).gt.0 ) nfields = 1 Do i=1,LEN(record) isDel = ( index(delimiter, record(i:i)) .gt. 0 ) if( isDel ) then nfields = nfields+1 cycle endif enddo Return end C**************************************************************************** C routine to remove leading blank spaces from Character String C**************************************************************************** Subroutine LeftTrim( STRING ) CHARACTER*(*) STRING Integer I Do I=1,LEN(STRING) if(STRING(I:I) .ne. CHAR(32)) Then STRING = STRING(I:) RETURN EndIf EndDo Return End Subroutine LeftTrim C**************************************************************************** C routine to remove trailing white spaces from Character String C**************************************************************************** Subroutine RightTrim( STRING ) CHARACTER*(*) STRING Integer I Do I=LEN(STRING),1,-1 if(STRING(I:I) .lt. CHAR(32)) STRING(I:I) = CHAR(32) if(STRING(I:I) .gt. CHAR(32)) Exit EndDo Return End Subroutine RightTrim C**************************************************************************** C routine to remove quotation marks from character field C**************************************************************************** Subroutine rmQuots( string ) Implicit none ! arguments Character*(*) string Integer last, i call LeftTrim(string) last = LEN_TRIM(string) ! if no quot marks, return if( string(1:1).ne.'"' .and. string(last:last).ne.'"') return ! remove last quot mark string(last:last) = ' ' do i=1,last-1 string(i:i) = string(i+1:i+1) enddo Return End Subroutine rmQuots C*********************************************************************** C Routine to change character string to upper characters C*********************************************************************** SUBROUTINE UCASE ( STR ) IMPLICIT NONE CHARACTER STR*( * ) INTEGER I INTEGER K DO I = 1, LEN(STR) K = ICHAR(STR(I:I)) IF ( ( K .GE. 97 ) .AND. ( K .LE. 122 ) ) & STR( I:I ) = CHAR( K - 32 ) END DO RETURN END SUBROUTINE UCASE ================================================ FILE: POST/writesite/src/writesite.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C**************************************************************************************** c PROGRAM writeSite c C***************************************************************************************** USE SITES USE SPECIES USE M3UTILIO IMPLICIT NONE C external functions integer getTZ character*(16) int2Str character*(16) real2Str character*(16) date2Str character*(16) time2Str C local variables integer status logical lstatus logical prtXY logical uselocal logical prthead integer timeShift integer layer integer startDate, endDate integer logdev integer cdate, ctime integer ldate, ltime, tzoff integer runlen character*(4096) header1 character*(4096) header2 character*(4096) record character*(16) field character*(256) infile character*(256) outfile real, allocatable :: data(:,:,:) integer, allocatable :: tzoffset(:,:) integer lfn integer i, s, t, idx integer column, row real x, y, lon, lat lfn = 10 C... start program logdev = init3 () C... get print headings switch prthead = ENVYN('PRTHEAD',"Print heading switch", .TRUE., status) C... get print XY switch prtXY = ENVYN('PRT_XY',"Print Map Projected XY switch", .FALSE., status) C... get USELOCAL switch uselocal = ENVYN('USELOCAL',"Adjust to local time", .FALSE., status) C... get for Time shift timeShift = ENVINT('TIME_SHIFT','Hours to shift', 0, status) C... get layer to process layer = ENVINT('LAYER','Layer to process', 1, status) C... open input file if( .not. open3('INFILE',fsread3, 'writeSite')) then Call m3err('writeSite', 0, 0, 'Could not open INFILE', .TRUE.) endif C... load file description from INFILE if( .not. desc3('INFILE')) then Call m3err ('writeSite', 0, 0, 'Could not load file description from IN_FILE', .TRUE.) endif C... check for invalid layer if( layer.lt.1 .or. layer.gt.NLAYS3D ) then Call m3err ('writeSite', 0, 0, 'Invalid Layer number to process', .TRUE.) endif C... check for start and end dates startDate = ENVINT('STARTDATE','Starting Date', SDATE3D, status) endDate = ENVINT('ENDDATE','Ending Date', 9999366, status) C... set map projection Call SETPROJ( GDTYP3D, Real(P_ALP3D),Real(P_BET3D),Real(P_GAM3D),Real(XCENT3D),Real(YCENT3D) ) C... load sites Call loadSites() C... get species definitions from system variables Call loadSpecies() write(*,'(i5,'' species defined'')') NSPECVAR C... get name of output file and try to open CALL ENVSTR( 'OUTFILE', 'Name of output file', 'out.csv', outfile, status) OPEN(unit=lfn, file=outfile, iostat=status) IF( status .ne. 0 ) then write(*,'(''**ERROR** Cannot open OUTFILE:'',a)') TRIM(outfile) Stop endif C... create header record header1 = 'column,row,longitude,latitude' header2 = ',,degrees,degrees' ! add lambert XY headers if(prtXY) then header1 = TRIM(header1) // ',Lambert_X,LAMBERT_Y' header2 = TRIM(header2) // ',meters,meters' endif header1 = TRIM(header1) // ',date' header2 = TRIM(header2) // ',YYYY-MM-DD' ! add time field if time step < 24 hours if( TSTEP3D .lt. 240000 ) then header1 = TRIM(header1) // ',Time' header2 = TRIM(header2) // ',hh:mm:ss' endif ! add siteid if using site file if( .not.ALLCELLS ) then header1 = 'siteid,' // header1 header2 = ',' // header2 endif do i=1,NSPECVAR idx = index1(TRIM(SPECVARS(i)), NVARS3D, VNAME3D) if( idx.le.0 ) then write(*,'(''**ERROR** Invalid Species Variable:'',a)') TRIM(SPECVARS(i)) Stop endif header1 = TRIM(header1) // ',' // SPECVARS(i) header2 = TRIM(header2) // ',' // UNITS3D(idx) enddo if( prthead ) then CALL ENVSTR( 'INFILE', 'Name of input file', 'INFILE', infile, status) write(lfn,'(''Data read from file:'',a,'' (layer'',i3,'')'',/)') TRIM(infile),layer if( TSTEP3D .lt. 240000 ) then if( USELOCAL ) then write(lfn,'('' Note: Times have been converted to local standard'')') else write(lfn,'('' Note: All Times are in GMT'')') endif if( timeShift.ne.0 ) write(lfn,'(9x,''Data shifted'',i2,'' (hours)'')') timeShift Write(lfn,'(/)') endif write(lfn,'(a)') TRIM(header1) write(lfn,'(a)') TRIM(header2) endif C... start process loops for sites if( .not.ALLCELLS ) then ! allocate data array for 1 species allocate( data(NCOLS3D, NROWS3D, 1) ) do s = 1,NSITES write(*,'(''Processing site:'',a)') TRIM(siteid(s)) ! set first date and time cdate = SDATE3D ctime = STIME3D ! compute x,y for cell x = (siteCol(s)-0.5)*XCELL3D + XORIG3D y = (siteRow(s)-0.5)*YCELL3D + YORIG3D tzoff = 0 if( USELOCAL .and. TSTEP3D.lt.240000 ) then tzoff = getTZ(longitude(s), latitude(s)) endif do t = 1,MXREC3D if( cdate.ge.startDate .and. cdate.le.endDate ) then record = TRIM(siteid(s)) record = TRIM(record) // ',' // int2Str(siteCol(s), '(i5)') record = TRIM(record) // ',' // int2Str(siteRow(s), '(i5)') record = TRIM(record) // ',' // real2Str(longitude(s), '(f16.5)') record = TRIM(record) // ',' // real2Str(latitude(s), '(f16.5)') if( prtXY ) then record = TRIM(record) // ',' // real2Str(x, '(f16.1)') record = TRIM(record) // ',' // real2Str(y, '(f16.1)') endif ldate = cdate ltime = ctime Call NEXTIME(ldate, ltime, -tzoff * 10000) if( TSTEP3D .lt. 240000 ) then Call NEXTIME(ldate, ltime, timeShift * 10000) endif record = TRIM(record) // ',' // date2Str(ldate) if( TSTEP3D .lt. 240000 ) then record = TRIM(record) // ',' // time2Str(ltime) endif do i = 1, NSPECVAR if(.not.READ3( 'INFILE', SPECVARS(i), layer, cdate, ctime, data )) then call M3ERR( 'writesite', cdate, ctime, 'Read Error', .TRUE. ) endif field = 'm' if( siteCol(s).gt.0 .and. siteCol(s).le.NCOLS3D .and. & siteRow(s).gt.0 .and. siteRow(s).le.NROWS3D ) then field = real2Str( data(siteCol(s),siteRow(s),1), '(g16.6)' ) endif record = TRIM(record) // ',' // field enddo ! end species loop write(lfn,'(a)') TRIM(record) endif ! time window call NEXTIME( cdate, ctime, TSTEP3D ) enddo ! end time record loop enddo ! end site loop lstatus = SHUT3 () stop endif ! sites condition C... start process loops for all cells if( ALLCELLS ) then ! allocate data array for NSPECVAR species allocate( data(NSPECVAR, NCOLS3D, NROWS3D) ) ! allocate data array for timezone offsets allocate( tzoffset(NCOLS3D, NROWS3D) ) tzoffset = 0 if( USELOCAL .and. TSTEP3D.lt.240000 ) then write(*,'(/'' Computing timezone offset for each cell''/)') do column = 1,NCOLS3D do row = 1,NROWS3D ! compute lon and lat for cell x = (column-0.5)*XCELL3D + XORIG3D y = (row-0.5)*YCELL3D + YORIG3D Call ToLL( GDTYP3D, x, y, lon, lat ) tzoffset(column,row) = getTZ(lon,lat) enddo enddo endif ! loop for computing tz offsets ! set first date and time cdate = SDATE3D ctime = STIME3D do t = 1,MXREC3D if( cdate.ge.startDate .and. cdate.le.endDate ) then write(*,'(''processing data for '',2i8)') cdate,ctime ! read data for record do i = 1, NSPECVAR if(.not.READ3( 'INFILE', SPECVARS(i), layer, cdate, ctime, data(i,:,:) )) then call M3ERR( 'writesite', cdate, ctime, 'Read Error', .TRUE. ) endif enddo ! print record for each cell do column = 1,NCOLS3D do row = 1,NROWS3D ! compute lon and lat for cell x = (column-0.5)*XCELL3D + XORIG3D y = (row-0.5)*YCELL3D + YORIG3D Call ToLL( GDTYP3D, x, y, lon, lat ) ! build output record record = int2Str(column, '(i5)') record = TRIM(record) // ',' // int2Str(row, '(i5)') record = TRIM(record) // ',' // real2Str(lon, '(f16.5)') record = TRIM(record) // ',' // real2Str(lat, '(f16.5)') if( prtXY ) then record = TRIM(record) // ',' // real2Str(x, '(f16.1)') record = TRIM(record) // ',' // real2Str(y, '(f16.1)') endif ! adjust time ldate = cdate ltime = ctime Call NEXTIME(ldate, ltime, -tzoffset(column,row) * 10000) call NEXTIME(ldate, ltime, timeShift*10000) record = TRIM(record) // ',' // date2Str(ldate) if( TSTEP3D .lt. 240000 ) then record = TRIM(record) // ',' // time2Str(ltime) endif do i = 1, NSPECVAR field = real2Str( data(i,column,row), '(g16.6)' ) record = TRIM(record) // ',' // field enddo write(lfn,'(a)') TRIM(record) enddo ! end row loop enddo ! end column loop endif ! time window call NEXTIME( cdate, ctime, TSTEP3D ) enddo ! end time record loop lstatus = SHUT3 () stop endif ! all cells condition end C**************************************************************************** C routine to set map projection C**************************************************************************** Subroutine SetProj(gdtype, alpha, beta, gamma, xcent, ycent) USE M3UTILIO IMPLICIT NONE ! arguments Integer gdtype Real alpha, beta, gamma, xcent, ycent ! check for LAT/LON projection if( gdtype .eq. 1 ) then return endif ! check for lambert projection if( gdtype .eq. 2 ) then if( .NOT. SETLAM( alpha, beta, gamma, xcent, ycent) ) then Call m3exit ('writeSite', 0, 0, 'Lambert projection setup error', xstat2) endif return endif ! check for polar stereographic projection if( gdtype .eq. 6 ) then if( .NOT. SETPOL( alpha, beta, gamma, xcent, ycent) ) then Call m3exit ('writeSite', 0, 0, 'Polar stereographic projection setup error', xstat2) endif return endif ! check for equatorial mercator projection if( gdtype .eq. 7 ) then if( .NOT. SETEQM( alpha, beta, gamma, xcent, ycent) ) then Call m3exit ('writeSite', 0, 0, 'Equatorial mercator projection setup error', xstat2) endif return endif Call m3exit ('writeSite', 0, 0, 'Unsupported map projection', xstat2) end Subroutine SetProj C**************************************************************************** C routine to compute map projection from LAT/LON C**************************************************************************** Subroutine ToProj(gdtype, longitude, latitude, x, y) USE M3UTILIO IMPLICIT NONE ! arguments Integer gdtype Real longitude, latitude, x, y ! check for LAT/LON projection if( gdtype .eq. 1 ) then x = longitude y = latitude return endif ! check for lambert projection if( gdtype .eq. 2 ) then if(.NOT.LL2LAM(longitude, latitude, x, y) ) then Call m3exit('writesite', 0, 0, 'Lat/Lon to Lambert error', xstat2) endif return endif ! check for polar stereographic projection if( gdtype .eq. 6 ) then if(.NOT.LL2POL(longitude, latitude, x, y) ) then Call m3exit('writesite', 0, 0, 'Lat/Lon to polar stereographic error', xstat2) endif return endif ! check for polar stereographic projection if( gdtype .eq. 7 ) then if(.NOT.LL2EQM(longitude, latitude, x, y) ) then Call m3exit('writesite', 0, 0, 'Lat/Lon to equatorial mercator error', xstat2) endif return endif Call m3exit ('writeSite', 0, 0, 'Unsupported map projection', xstat2) end Subroutine ToProj C**************************************************************************** C routine to compute LAT/LON from map projection C**************************************************************************** Subroutine ToLL(gdtype, x, y, longitude, latitude) USE M3UTILIO IMPLICIT NONE ! arguments Integer gdtype Real longitude, latitude, x, y ! check for LAT/LON projection if( gdtype .eq. 1 ) then longitude = x latitude = y return endif ! check for lambert projection if( gdtype .eq. 2 ) then if(.NOT.LAM2LL(x, y, longitude, latitude) ) then Call m3exit('writesite', 0, 0, 'Lat/Lon to Lambert error', xstat2) endif return endif ! check for polar stereographic projection if( gdtype .eq. 6 ) then if(.NOT.POL2LL(x, y, longitude, latitude) ) then Call m3exit('writesite', 0, 0, 'Lat/Lon to polar stereographic error', xstat2) endif return endif ! check for equatorial mercator projection if( gdtype .eq. 7 ) then if(.NOT.EQM2LL(x, y, longitude, latitude) ) then Call m3exit('writesite', 0, 0, 'Lat/Lon to equatorial mercator error', xstat2) endif return endif Call m3exit ('writeSite', 0, 0, 'Unsupported map projection', xstat2) end Subroutine ToLL C**************************************************************************** C routine to convert integer to string C**************************************************************************** Character*16 Function int2Str( value, fmt ) result(intStr) IMPLICIT NONE ! argument Integer value Character*(*) fmt Write(intStr,fmt) value Call LeftTrim(intStr) return End Function int2Str C**************************************************************************** C routine to convert real to string C**************************************************************************** Character*16 Function real2Str( value, fmt ) result(realStr) IMPLICIT NONE ! argument Real value Character*(*) fmt Write(realStr,fmt) value Call LeftTrim(realStr) return End Function real2Str C**************************************************************************** C routine to convert date and time to string as "yyyy-mm-dd" C**************************************************************************** Character*16 Function date2Str( date ) result(dateStr) Implicit None Integer date C.. local variables Integer month, day, year call DayMon( date, month, day ) year = date/1000 write(dateStr,'(i4.4,''-'',i2.2,''-'',i2.2)') year, month, day return End Function date2Str C**************************************************************************** C routine to convert time to string as "HH:MM:SS" C**************************************************************************** Character*16 Function time2Str( time ) result(timeStr) Implicit None Integer time C.. local variables Integer hour, minutes, secs hour = time/10000 minutes = (time - 10000*hour)/100 secs = mod(time,100) write(timeStr,'(i2.2,'':'',i2.2,'':'',i2.2)') & hour,minutes,secs return End Function time2Str ================================================ FILE: PREP/README.md ================================================ Pre-processing Tools ======== ## Overview The following programs are provided to process and prepare input data for the CMAQ Chemistry Transport Model. Documentation for these programs is provided in README files within each foler. ## Pre-processing Programs * **[bcon](bcon/README.md)**: Prepares lateral chemical boundary conditions (BCs) for CCTM from either ASCII vertical profiles or from an existing CCTM output concentration (CONC) file * **[icon](icon/README.md)**: Prepares chemical initial conditions (ICs) for CCTM from either ASCII vertical profiles or from an existing CCTM output concentration (CONC) file data * **[mcip](mcip/README.md)**: Processes meteorological model output from either MM5 or WRF-ARW model into I/O API-formatted files that are compatible with CMAQ and SMOKE * **[create_omi](create_omi/README.md)**: Produces an OMI input file that supports CMAQ CCTM's in-line calculation of photolysis rates. * **[dmschlo](../PYTOOLS/dmschlo/README.md)**: Prepares OCEAN file with DMS and CHLO variables required by DMS and halogen chemistry. * **[shp2cmaq](../PYTOOLS/shp2cmaq/README.md)**: Creates a CMAQ-ready grid mask from a shape file that can be used for defining regions and region families with DESID and using geographic source regions when running CMAQ-ISAM. ================================================ FILE: PREP/bcon/README.md ================================================ BCON ======== The program BCON prepares chemical boundary conditions (BCs) for the CMAQ Chemistry Transport Model (CCTM). BCON will generate an output file with chemical concentrations for all grid cells along the modeling domain's horizontal boundaries. Depending on user specified options and/or input datasets, the BCs generated by BCON can be time varying, time independent, and either spatially uniform or variable across the model boundaries. If deriving BCs from the ASCII vertical profiles, BCON creates spatially uniform, time independent BCs. From concentration (CONC) files, BCON extracts spatially varying BCs, either on the same grid cell resolution (windowed modeling domain), or for a finer grid resolution modeling domain (nested modeling domain). BCs generated from CONC files are time dependent if the input CONC file is time stepped, or time independent if the CONC file time step is zero. There are two distinct modes of operation for BCON. When running BCON, the user must specify whether to generate BCs from: (1) an existing CONC file (*regrid*); or (2) an ASCII file of vertical profiles (*profile*). The User's Guide contains a [tutorial on how to use BCON to create boundary conditions from seasonal or daily average hemispheric CMAQ output files](../../DOCS/Users_Guide/Tutorials/CMAQ_UG_tutorial_HCMAQ_IC_BC.md) distributed through the CMAS data warehouse. CMAQ can also use boundary conditions derived from global chemistry models (GCMs). While BCON does not directly support processing of datasets from GCMs (in their native formats), users could develop their own custom codes to transform their GCM datasets into I/O API format, which would then allow these datasets to be input into BCON to generate BCs for the CCTM. In addition, other tools exist in the community to generate BCs from GCMs. For example, the CAMx developers (Ramboll Environ) have codes available for extracting regional model BCs from both GEOS- Chem and MOZART. Visit the [Support Software section of www.CAMx.com](https://www.camx.com/download/support-software/) to download these utilities. ## Runtime Environment Variables: **Table 1. Runtime Environment Variables** |**Variable Name**|**Example in Runscript**|**Description**| |---------------------|-------------|-----------------------------------------------------------------------| |VRSN|v53|Identifies version for the BCON run. Its value should be consistent between BCON build and run scripts for an individual application.| |APPL|SE53BENCH|Identifies the intent of the BCON run such as the model domain and chemical mechanism used. Value is the user's preference.| |BCTYPE|regrid, profile|Specifies which BC type to generate.| |EXEC|BCON_${VRSN}.exe|Executable to use for the BCON run. | |GRIDDESC|$CMAQ_HOME/scripts/GRIDDESC1|Grid description file for setting the horizontal grid definition for the target domain.| |GRID_NAME|SE53BENCH|Name of the grid definition contained in the GRIDDESC file that specifies the horizontal grid for the target domain.| |OUTDIR|$CMAQ_HOME/data/bcon|Output data directory| |DATE|2016183|Sets the Julian date to use in naming the BCON output file for the regrid BC type| |SDATE|0|Julian start date for extracting boundary conditions from a CCTM CONC file. If SDATE is not set, it will be set automatically from the MET_BDY_3D_FIN file.| |STIME|0|Start time for extracting boundary conditions from a CCTM CONC file. If STIME is not set, it will be set automatically from the MET_BDY_3D_FIN file.| |RUNLEN|0|Run length for extracting boundary conditions from a CCTM CONC file. If RUNLEN is not set, it will be set automatically from the MET_BDY_3D_FIN file. |IOAPI_ISPH|20|I/O API setting for spheroid type. See I/O API documentation for [setsphere](https://www.cmascenter.org/ioapi/documentation/all_versions/html/SETSPHERE.html) for more information.| |IOAPI_OFFSET_64|YES|I/O API setting for large time-step records. If your output time step is going to produce data that are >2GB per time step, then this needs to be set to YES.| ## BCON input files **Table 2. BCON input files for BCTYPE equals "regrid"** |**File Name**|**Format**|**Description**| |---------------------|-------------|-----------------------------------------------------------------------| |GRIDDESC|ASCII|Horizontal grid description file for defining the model grid for the target domain; this file is output by MCIP or can be created by the user| |CTM_CONC_1|IOAPI/GRDDED3|Name and location of the CMAQ concentration file from which to derive boundary conditions| |MET_CRO_3D_CRS|IOAPI/GRDDED3|Name and location of the coarse-grid (or source modeling domain) MET_CRO_3D file| |MET_BDY_3D_FIN|IOAPI/BNDARY3|Name and location of the fine-grid (or target modeling domain) MET_BDY_3D file| **Table 3. BCON input files for BCTYPE equals "profile"** |**File Name**|**Format**|**Description**| |---------------------|-------------|-----------------------------------------------------------------------| |GRIDDESC|ASCII|Horizontal grid description file for defining the model grid for the target domain; this file is output by MCIP or can be created by the user| |BC_PROFILE|ASCII|Vertical chemical profiles from which to derive boundary conditions; this file is created by the user| |MET_BDY_3D_FIN|IOAPI/BNDARY3|Name and location of the fine-grid (or target modeling domain) MET_BDY_3D file| ## BCON output files **Table 3. BCON output files** **>>Comment<<** File name needs to be changed to variable name. |**File Name**|**Format**|**Description**| |------------|-----------|---------------------------------------------------------------| |BNDY_CONC_1|BNDARY3|Name and location of the gridded boundary conditions data output on the model grid defined VRSN, BCTYPE, APPL, and DATE | The default location of the BCON output files is the `$CMAQ_DATA/bcon` directory, controlled by the `OUTDIR` variable in the run script. The default naming convention for all BCON output files uses the `APPL` and `GRID_NAME` environment variables in the file name. For boundary conditions created from existing `CCTM CONC` files, the Julian date is also used in the file name through the `DATE` environment variable. All of the file-naming variables for `BCON` outputs are set in the run script. ## Compile BCON source code Execute the build script to compile BCON: ``` cd $CMAQ_HOME/PREP/bcon/scripts ./bldit_bcon.csh [compiler] [version] |& tee build_bcon.log ``` ## Run BCON Set the run script settings according to the execution configuration variables described above. Run BCON to produce boundary conditions for the CCTM: ``` cd $CMAQ_HOME/PREP/bcon/scripts ./run_bcon.csh |& tee run_bcon.log ``` Check the log file to ensure complete and correct execution without errors. ================================================ FILE: PREP/bcon/map2mech/SpecDef_cracmm1_aq_derived_from_cb6r5m_ae7_aq.txt ================================================ /#start YYYYDDD HHMMSS /#end YYYYDDD HHMMSS /#layer KLAY (default is all layers) / ! This Specices Definition File was generated for mapping ! from CB6 to cracmm1_aq for LISTOS_cracmmv1 2018 testing ! and 12US1 2018 CMAQv5.4 CRACMM1 testing. ! Any split factors were based on a 2017 emissions inventory analysis. / File [1]: cb6r5m_ae7_aq BCON or ICON file to be mapped to cracmm1 /new species, units, expression, description PRES ,Pa ,PRES[1], CRACMM mapping of PRES TA ,K ,TA[1], CRACMM mapping of TA RH ,1 ,RH[1], CRACMM mapping of RH W_VEL ,m s-1 ,W_VEL[1], CRACMM mapping of W_VEL NO2 ,ppmV ,NO2[1], CRACMM mapping of NO2 NO ,ppmV ,NO[1], CRACMM mapping of NO O3P ,ppmV ,O[1], CRACMM mapping of O O3 ,ppmV ,O3[1], CRACMM mapping of O3 NO3 ,ppmV ,NO3[1], CRACMM mapping of NO3 O1D ,ppmV ,O1D[1], CRACMM mapping of O1D HO ,ppmV ,OH[1], CRACMM mapping of OH HO2 ,ppmV ,HO2[1], CRACMM mapping of HO2 H2O2 ,ppmV ,H2O2[1], CRACMM mapping of H2O2 N2O5 ,ppmV ,N2O5[1], CRACMM mapping of N2O5 HNO3 ,ppmV ,HNO3[1], CRACMM mapping of HNO3 HONO ,ppmV ,HONO[1], CRACMM mapping of HONO HNO4 ,ppmV ,PNA[1], CRACMM mapping of PNA SO2 ,ppmV ,SO2[1], CRACMM mapping of SO2 SULF ,ppmV ,SULF[1], CRACMM mapping of SULF ACO3 ,ppmV ,C2O3[1], CRACMM mapping of C2O3 MO2 ,ppmV ,MEO2[1], CRACMM mapping of MEO2 PAN ,ppmV ,PAN[1], CRACMM mapping of PAN PPN ,ppmV ,PANX[1], CRACMM mapping of PANX PAA ,ppmV ,PACD[1], CRACMM mapping of PACD ORA2 ,ppmV ,AACD[1], CRACMM mapping of AACD RCO3 ,ppmV ,CXO3[1], CRACMM mapping of CXO3 HCHO ,ppmV ,FORM[1], CRACMM mapping of FORM OP1 ,ppmV ,MEPX[1], CRACMM mapping of MEPX MOH ,ppmV ,MEOH[1], CRACMM mapping of MEOH OP2 ,ppmV ,ROOH[1], CRACMM mapping of ROOH ONIT ,ppmV ,NTR1[1] + NTR2[1], CRACMM mapping of NTR1 and NTR2 ORA1 ,ppmV ,FACD[1], CRACMM mapping of FACD CO ,ppmV ,CO[1], CRACMM mapping of CO ALD ,ppmV ,ALDX[1] + GLYD[1], CRACMM mapping of ALDX and GLYD UALD ,ppmV ,HPLD[1], CRACMM mapping of HPLD ACD ,ppmV ,ALD2[1], CRACMM mapping of ALD2 GLY ,ppmV ,GLY[1], CRACMM mapping of GLY MGLY ,ppmV ,MGLY[1], CRACMM mapping of MGLY ETH ,ppmV ,ETHA[1], CRACMM mapping of ETHA EOH ,ppmV ,ETOH[1], CRACMM mapping of ETOH MEK ,ppmV ,KET[1]*0.5, CRACMM splitting of KET (assumed equal) KET ,ppmV ,KET[1]*0.5, CRACMM splitting of KET (assumed equal) HC5 ,ppmV ,PAR[1]*0.33/5.0, CRACMM splitting of PAR based on emissions HC10 ,ppmV ,PAR[1]*0.67/10.0, CRACMM splitting of PAR based on emissions ACT ,ppmV ,ACET[1], CRACMM mapping of ACET HC3 ,ppmV ,PRPA[1], CRACMM mapping of PRPA ACE ,ppmV ,ETHY[1], CRACMM mapping of ETHY ETE ,ppmV ,ETH[1], CRACMM mapping of ETH OLT ,ppmV ,OLE[1], CRACMM mapping of OLE OLI ,ppmV ,IOLE[1], CRACMM mapping of IOLE ISO ,ppmV ,ISOP[1], CRACMM mapping of ISOP ISOP ,ppmV ,ISO2[1], CRACMM mapping of ISO2 ACR ,ppmV ,ACROLEIN[1], CRACMM mapping of ACROLEIN MACR ,ppmV ,ISPD[1]*0.26, CRACMM mapping of ISPD MVK ,ppmV ,ISPD[1]*0.35, CRACMM mapping of ISPD HKET ,ppmV ,ISPD[1]*0.39, CRACMM mapping of ISPD ISON ,ppmV ,INTR[1], CRACMM mapping of INTR ISHP ,ppmV ,ISPX[1], CRACMM mapping of ISPX MACP ,ppmV ,OPO3[1], CRACMM mapping of OPO3 IEPOX ,ppmV ,EPOX[1], CRACMM mapping of EPOX LIM ,ppmV ,TERP[1], CRACMM mapping of TERP API ,ppmV ,APIN[1], CRACMM mapping of APIN BEN ,ppmV ,BENZENE[1], CRACMM mapping of BENZENE CSL ,ppmV ,CRES[1] + CRON[1], CRACMM mapping of CRES and CRON BENP ,ppmV ,BZO2[1], CRACMM mapping of BZO2 DCB2 ,ppmV ,OPEN[1], CRACMM mapping of OPEN (no direct match but OPEN is close) TOL ,ppmV ,TOL[1], CRACMM mapping of TOL TOLP ,ppmV ,TO2[1], CRACMM mapping of TO2 XYM ,ppmV ,XYLMN[1]*0.70, CRACMM splitting of XYLMN based on emissions XYE ,ppmV ,XYLMN[1]*0.30, CRACMM splitting of XYLMN based on emissions XYMP ,ppmV ,XLO2[1]*0.50, CRACMM mapping of XLO2 XYEP ,ppmV ,XLO2[1]*0.50, CRACMM mapping of XLO2 XO2 ,ppmV ,XO2[1], CRACMM mapping of XO2 NAPH ,ppmV ,NAPH[1], CRACMM mapping of NAPH MCT ,ppmV ,CAT1[1], CRACMM mapping of CAT1 MPAN ,ppmV ,OPAN[1], CRACMM mapping of OPAN SESQ ,ppmV ,SESQ[1], CRACMM mapping of SESQ VROCN1ALK ,ppmV ,VLVPO1[1], CRACMM mapping of VLVPO1 VROCP0ALK ,ppmV ,VSVPO1[1], CRACMM mapping of VSVPO1 VROCP1ALK ,ppmV ,VSVPO2[1], CRACMM mapping of VSVPO2 VROCP2ALK ,ppmV ,VSVPO3[1], CRACMM mapping of VSVPO3 VROCP3ALK ,ppmV ,VIVPO1[1], CRACMM mapping of VIVPO1 VROCN2OXY8 ,ppmV ,VLVOO1[1] + SVAVB1[1], CRACMM mapping of VLVOO1 and SVAVB1 VROCN1OXY6 ,ppmV ,VLVOO2[1], CRACMM mapping of VLVOO2 VROCP0OXY4 ,ppmV ,VSVOO1[1] + SVAVB2[1], CRACMM mapping of VSVOO1 and SVAVB2 VROCP1OXY3 ,ppmV ,VSVOO2[1] + SVAVB3[1] + SVSQT[1], CRACMM mapping of VSVOO2, SVAVB3, SVSQT VROCP2OXY2 ,ppmV ,VSVOO3[1] + SVAVB4[1], CRACMM mapping of VSVOO3 and SVAVB4 BDE13 ,ppmV ,BUTADIENE13[1], CRACMM mapping of BUTADIENE13 ASO4J ,ug m-3 ,ASO4J[1], CRACMM mapping of ASO4J ASO4I ,ug m-3 ,ASO4I[1], CRACMM mapping of ASO4I ANH4J ,ug m-3 ,ANH4J[1], CRACMM mapping of ANH4J ANH4I ,ug m-3 ,ANH4I[1], CRACMM mapping of ANH4I ANO3J ,ug m-3 ,ANO3J[1], CRACMM mapping of ANO3J ANO3I ,ug m-3 ,ANO3I[1], CRACMM mapping of ANO3I AROCP1OXY1J ,ug m-3 ,ASQTJ[1], CRACMM mapping of ASQTJ AORGCJ ,ug m-3 ,AORGCJ[1], CRACMM mapping of AORGCJ AECJ ,ug m-3 ,AECJ[1], CRACMM mapping of AECJ AECI ,ug m-3 ,AECI[1], CRACMM mapping of AECI AOTHRJ ,ug m-3 ,AOTHRJ[1], CRACMM mapping of AOTHRJ AOTHRI ,ug m-3 ,AOTHRI[1], CRACMM mapping of AOTHRI AFEJ ,ug m-3 ,AFEJ[1], CRACMM mapping of AFEJ AALJ ,ug m-3 ,AALJ[1], CRACMM mapping of AALJ ASIJ ,ug m-3 ,ASIJ[1], CRACMM mapping of ASIJ ATIJ ,ug m-3 ,ATIJ[1], CRACMM mapping of ATIJ ACAJ ,ug m-3 ,ACAJ[1], CRACMM mapping of ACAJ AMGJ ,ug m-3 ,AMGJ[1], CRACMM mapping of AMGJ AKJ ,ug m-3 ,AKJ[1], CRACMM mapping of AKJ AMNJ ,ug m-3 ,AMNJ[1], CRACMM mapping of AMNJ ACORS ,ug m-3 ,ACORS[1], CRACMM mapping of ACORS ASOIL ,ug m-3 ,ASOIL[1], CRACMM mapping of ASOIL NUMATKN ,m-3 ,NUMATKN[1], CRACMM mapping of NUMATKN NUMACC ,m-3 ,NUMACC[1], CRACMM mapping of NUMACC NUMCOR ,m-3 ,NUMCOR[1], CRACMM mapping of NUMCOR SRFATKN ,m2 m-3 ,SRFATKN[1], CRACMM mapping of SRFATKN SRFACC ,m2 m-3 ,SRFACC[1], CRACMM mapping of SRFACC SRFCOR ,m2 m-3 ,SRFCOR[1], CRACMM mapping of SRFCOR AORGH2OJ ,ug m-3 ,AORGH2OJ[1], CRACMM mapping of AORGH2OJ AH2OJ ,ug m-3 ,AH2OJ[1], CRACMM mapping of AH2OJ AH2OI ,ug m-3 ,AH2OI[1], CRACMM mapping of AH2OI ANAJ ,ug m-3 ,ANAJ[1], CRACMM mapping of ANAJ ANAI ,ug m-3 ,ANAI[1], CRACMM mapping of ANAI ACLJ ,ug m-3 ,ACLJ[1], CRACMM mapping of ACLJ ACLI ,ug m-3 ,ACLI[1], CRACMM mapping of ACLI ASEACAT ,ug m-3 ,ASEACAT[1], CRACMM mapping of ASEACAT ACLK ,ug m-3 ,ACLK[1], CRACMM mapping of ACLK ASO4K ,ug m-3 ,ASO4K[1], CRACMM mapping of ASO4K ANH4K ,ug m-3 ,ANH4K[1], CRACMM mapping of ANH4K ANO3K ,ug m-3 ,ANO3K[1], CRACMM mapping of ANO3K AH2OK ,ug m-3 ,AH2OK[1], CRACMM mapping of AH2OK AISO3OSJ ,ug m-3 ,AISO3J[1], CRACMM mapping of AISO3J AROCN2OXY2J ,ug m-3 ,AOLGAJ[1] + APCSOJ[1], CRACMM mapping of AOLGAJ and APCSOJ AISO3NOSJ ,ug m-3 ,AISO1J[1] + AISO2J[1] + AOLGBJ[1], CRACMM mapping of AISO1J and AISO2J and AOLGBJ AGLYJ ,ug m-3 ,AGLYJ[1], CRACMM mapping of AGLYJ APOCI ,ug m-3 ,APOCI[1], CRACMM mapping of APOCI APOCJ ,ug m-3 ,APOCJ[1], CRACMM mapping of APOCJ APNCOMI ,ug m-3 ,APNCOMI[1], CRACMM mapping of APNCOMI APNCOMJ ,ug m-3 ,APNCOMJ[1], CRACMM mapping of APNCOMJ AROCN1ALKI ,ug m-3 ,ALVPO1I[1], CRACMM mapping of ALVPO1I AROCP0ALKI ,ug m-3 ,ASVPO1I[1], CRACMM mapping of ASVPO1I AROCP1ALKI ,ug m-3 ,ASVPO2I[1], CRACMM mapping of ASVPO2I AROCN1ALKJ ,ug m-3 ,ALVPO1J[1], CRACMM mapping of ALVPO1J AROCP0ALKJ ,ug m-3 ,ASVPO1J[1], CRACMM mapping of ASVPO1J AROCP1ALKJ ,ug m-3 ,ASVPO2J[1], CRACMM mapping of ASVPO2J AROCP2ALKJ ,ug m-3 ,ASVPO3J[1], CRACMM mapping of ASVPO3J AROCP3ALKJ ,ug m-3 ,AIVPO1J[1], CRACMM mapping of AIVPO1J AROCN2OXY8I ,ug m-3 ,ALVOO1I[1], CRACMM mapping of ALVOO1I AROCN1OXY6I ,ug m-3 ,ALVOO2I[1], CRACMM mapping of ALVOO2I AROCP0OXY4I ,ug m-3 ,ASVOO1I[1], CRACMM mapping of ASVOO1I AROCP1OXY3I ,ug m-3 ,ASVOO2I[1], CRACMM mapping of ASVOO2I AROCN2OXY8J ,ug m-3 ,ALVOO1J[1] + AAVB1J[1], CRACMM mapping of ALVOO1J and AAVB1J AROCN1OXY6J ,ug m-3 ,ALVOO2J[1], CRACMM mapping of ALVOO2J AROCP0OXY4J ,ug m-3 ,ASVOO1J[1] + AAVB2J[1], CRACMM mapping of ASVOO1J and AAVB2J AROCP1OXY3J ,ug m-3 ,ASVOO2J[1] + AAVB3J[1], CRACMM mapping of ASVOO2J and AAVB3J AROCP2OXY2J ,ug m-3 ,ASVOO3J[1] + AAVB4J[1], CRACMM mapping of ASVOO3J and AAVB4J AHOMJ ,ug m-3 ,AMTNO3J[1] + AMTHYDJ[1]+ AMT1J[1] + AMT2J[1] + AMT3J[1], CRACMM mapping of all lower volatility terpene SOA NH3 ,ppmV ,NH3[1], CRACMM mapping of NH3 HCL ,ppmV ,HCL[1], CRACMM mapping of HCL ================================================ FILE: PREP/bcon/map2mech/SpecDef_cracmm2_derived_from_cb6r5m_ae7_aq.txt ================================================ /#start YYYYDDD HHMMSS /#end YYYYDDD HHMMSS /#layer KLAY (default is all layers) / ! This Specices Definition File was generated for mapping ! from CB6 to cracmm2 ! Any split factors were based on a 2017 emissions inventory analysis. / File [1]: cb6r5m_ae7_aq BCON or ICON file to be mapped to cracmm1 /new species, units, expression, description PRES ,Pa ,PRES[1], CRACMM mapping of PRES TA ,K ,TA[1], CRACMM mapping of TA RH ,1 ,RH[1], CRACMM mapping of RH W_VEL ,m s-1 ,W_VEL[1], CRACMM mapping of W_VEL NO2 ,ppmV ,NO2[1], CRACMM mapping of NO2 NO ,ppmV ,NO[1], CRACMM mapping of NO O3P ,ppmV ,O[1], CRACMM mapping of O O3 ,ppmV ,O3[1], CRACMM mapping of O3 NO3 ,ppmV ,NO3[1], CRACMM mapping of NO3 O1D ,ppmV ,O1D[1], CRACMM mapping of O1D HO ,ppmV ,OH[1], CRACMM mapping of OH HO2 ,ppmV ,HO2[1], CRACMM mapping of HO2 H2O2 ,ppmV ,H2O2[1], CRACMM mapping of H2O2 N2O5 ,ppmV ,N2O5[1], CRACMM mapping of N2O5 HNO3 ,ppmV ,HNO3[1], CRACMM mapping of HNO3 HONO ,ppmV ,HONO[1], CRACMM mapping of HONO HNO4 ,ppmV ,PNA[1], CRACMM mapping of PNA SO2 ,ppmV ,SO2[1], CRACMM mapping of SO2 SULF ,ppmV ,SULF[1], CRACMM mapping of SULF ACO3 ,ppmV ,C2O3[1], CRACMM mapping of C2O3 MO2 ,ppmV ,MEO2[1], CRACMM mapping of MEO2 PAN ,ppmV ,PAN[1], CRACMM mapping of PAN PPN ,ppmV ,PANX[1], CRACMM mapping of PANX PAA ,ppmV ,PACD[1], CRACMM mapping of PACD ORA2 ,ppmV ,AACD[1], CRACMM mapping of AACD RCO3 ,ppmV ,CXO3[1], CRACMM mapping of CXO3 HCHO ,ppmV ,FORM[1], CRACMM mapping of FORM OP1 ,ppmV ,MEPX[1], CRACMM mapping of MEPX MOH ,ppmV ,MEOH[1], CRACMM mapping of MEOH OP2 ,ppmV ,ROOH[1], CRACMM mapping of ROOH ONIT ,ppmV ,NTR1[1] + NTR2[1], CRACMM mapping of NTR1 and NTR2 ORA1 ,ppmV ,FACD[1], CRACMM mapping of FACD CO ,ppmV ,CO[1], CRACMM mapping of CO ALD ,ppmV ,ALDX[1] + GLYD[1], CRACMM mapping of ALDX and GLYD UALD ,ppmV ,HPLD[1], CRACMM mapping of HPLD ACD ,ppmV ,ALD2[1], CRACMM mapping of ALD2 GLY ,ppmV ,GLY[1], CRACMM mapping of GLY MGLY ,ppmV ,MGLY[1], CRACMM mapping of MGLY ETH ,ppmV ,ETHA[1], CRACMM mapping of ETHA EOH ,ppmV ,ETOH[1], CRACMM mapping of ETOH MEK ,ppmV ,KET[1]*0.5, CRACMM splitting of KET (assumed equal) KET ,ppmV ,KET[1]*0.5, CRACMM splitting of KET (assumed equal) HC5 ,ppmV ,PAR[1]*0.33/5.0, CRACMM splitting of PAR based on emissions HC10 ,ppmV ,PAR[1]*0.67/10.0, CRACMM splitting of PAR based on emissions ACT ,ppmV ,ACET[1], CRACMM mapping of ACET HC3 ,ppmV ,PRPA[1], CRACMM mapping of PRPA ACE ,ppmV ,ETHY[1], CRACMM mapping of ETHY ETE ,ppmV ,ETH[1], CRACMM mapping of ETH OLT ,ppmV ,OLE[1], CRACMM mapping of OLE OLI ,ppmV ,IOLE[1], CRACMM mapping of IOLE ISO ,ppmV ,ISOP[1], CRACMM mapping of ISOP ISOP ,ppmV ,ISO2[1], CRACMM mapping of ISO2 ACR ,ppmV ,ACROLEIN[1], CRACMM mapping of ACROLEIN MACR ,ppmV ,ISPD[1]*0.26, CRACMM mapping of ISPD MVK ,ppmV ,ISPD[1]*0.35, CRACMM mapping of ISPD HKET ,ppmV ,ISPD[1]*0.39, CRACMM mapping of ISPD ISON ,ppmV ,INTR[1], CRACMM mapping of INTR ISHP ,ppmV ,ISPX[1], CRACMM mapping of ISPX MACP ,ppmV ,OPO3[1], CRACMM mapping of OPO3 IEPOX ,ppmV ,EPOX[1], CRACMM mapping of EPOX LIM ,ppmV ,TERP[1], CRACMM mapping of TERP API ,ppmV ,APIN[1], CRACMM mapping of APIN BEN ,ppmV ,BENZENE[1], CRACMM mapping of BENZENE CSL ,ppmV ,CRES[1] + CRON[1], CRACMM mapping of CRES and CRON BENP ,ppmV ,BZO2[1], CRACMM mapping of BZO2 DCB2 ,ppmV ,OPEN[1], CRACMM mapping of OPEN (no direct match but OPEN is close) TOL ,ppmV ,TOL[1], CRACMM mapping of TOL TOLP ,ppmV ,TO2[1], CRACMM mapping of TO2 XYL ,ppmV ,XYLMN[1]*0.85, CRACMM splitting of XYLMN based on emissions EBZ ,ppmV ,XYLMN[1]*0.10, CRACMM splitting of XYLMN based on emissions STY ,ppmV ,XYLMN[1]*0.05, CRACMM splitting of XYLMN based on emissions XYLP ,ppmV ,XLO2[1]*0.85, CRACMM mapping of XLO2 EBZP ,ppmV ,XLO2[1]*0.10, CRACMM mapping of XLO2 STYP ,ppmV ,XLO2[1]*0.05, CRACMM mapping of XLO2 XO2 ,ppmV ,XO2[1], CRACMM mapping of XO2 NAPH ,ppmV ,NAPH[1], CRACMM mapping of NAPH MCT ,ppmV ,CAT1[1], CRACMM mapping of CAT1 MPAN ,ppmV ,OPAN[1], CRACMM mapping of OPAN SESQ ,ppmV ,SESQ[1], CRACMM mapping of SESQ VROCN1ALK ,ppmV ,VLVPO1[1], CRACMM mapping of VLVPO1 VROCP0ALK ,ppmV ,VSVPO1[1], CRACMM mapping of VSVPO1 VROCP1ALK ,ppmV ,VSVPO2[1], CRACMM mapping of VSVPO2 VROCP2ALK ,ppmV ,VSVPO3[1], CRACMM mapping of VSVPO3 VROCP3ALK ,ppmV ,VIVPO1[1], CRACMM mapping of VIVPO1 VROCN2OXY8 ,ppmV ,VLVOO1[1] + SVAVB1[1], CRACMM mapping of VLVOO1 and SVAVB1 VROCN1OXY6 ,ppmV ,VLVOO2[1], CRACMM mapping of VLVOO2 VROCP0OXY4 ,ppmV ,VSVOO1[1] + SVAVB2[1], CRACMM mapping of VSVOO1 and SVAVB2 VROCP1OXY3 ,ppmV ,VSVOO2[1] + SVAVB3[1] + SVSQT[1], CRACMM mapping of VSVOO2, SVAVB3, SVSQT VROCP2OXY2 ,ppmV ,VSVOO3[1] + SVAVB4[1], CRACMM mapping of VSVOO3 and SVAVB4 BDE13 ,ppmV ,BUTADIENE13[1], CRACMM mapping of BUTADIENE13 ASO4J ,ug m-3 ,ASO4J[1], CRACMM mapping of ASO4J ASO4I ,ug m-3 ,ASO4I[1], CRACMM mapping of ASO4I ANH4J ,ug m-3 ,ANH4J[1], CRACMM mapping of ANH4J ANH4I ,ug m-3 ,ANH4I[1], CRACMM mapping of ANH4I ANO3J ,ug m-3 ,ANO3J[1], CRACMM mapping of ANO3J ANO3I ,ug m-3 ,ANO3I[1], CRACMM mapping of ANO3I AROCP1OXY1J ,ug m-3 ,ASQTJ[1], CRACMM mapping of ASQTJ AORGCJ ,ug m-3 ,AORGCJ[1], CRACMM mapping of AORGCJ AECJ ,ug m-3 ,AECJ[1], CRACMM mapping of AECJ AECI ,ug m-3 ,AECI[1], CRACMM mapping of AECI AOTHRJ ,ug m-3 ,AOTHRJ[1], CRACMM mapping of AOTHRJ AOTHRI ,ug m-3 ,AOTHRI[1], CRACMM mapping of AOTHRI AFEJ ,ug m-3 ,AFEJ[1], CRACMM mapping of AFEJ AALJ ,ug m-3 ,AALJ[1], CRACMM mapping of AALJ ASIJ ,ug m-3 ,ASIJ[1], CRACMM mapping of ASIJ ATIJ ,ug m-3 ,ATIJ[1], CRACMM mapping of ATIJ ACAJ ,ug m-3 ,ACAJ[1], CRACMM mapping of ACAJ AMGJ ,ug m-3 ,AMGJ[1], CRACMM mapping of AMGJ AKJ ,ug m-3 ,AKJ[1], CRACMM mapping of AKJ AMNJ ,ug m-3 ,AMNJ[1], CRACMM mapping of AMNJ ACORS ,ug m-3 ,ACORS[1], CRACMM mapping of ACORS ASOIL ,ug m-3 ,ASOIL[1], CRACMM mapping of ASOIL NUMATKN ,m-3 ,NUMATKN[1], CRACMM mapping of NUMATKN NUMACC ,m-3 ,NUMACC[1], CRACMM mapping of NUMACC NUMCOR ,m-3 ,NUMCOR[1], CRACMM mapping of NUMCOR SRFATKN ,m2 m-3 ,SRFATKN[1], CRACMM mapping of SRFATKN SRFACC ,m2 m-3 ,SRFACC[1], CRACMM mapping of SRFACC SRFCOR ,m2 m-3 ,SRFCOR[1], CRACMM mapping of SRFCOR AORGH2OJ ,ug m-3 ,AORGH2OJ[1], CRACMM mapping of AORGH2OJ AH2OJ ,ug m-3 ,AH2OJ[1], CRACMM mapping of AH2OJ AH2OI ,ug m-3 ,AH2OI[1], CRACMM mapping of AH2OI ANAJ ,ug m-3 ,ANAJ[1], CRACMM mapping of ANAJ ANAI ,ug m-3 ,ANAI[1], CRACMM mapping of ANAI ACLJ ,ug m-3 ,ACLJ[1], CRACMM mapping of ACLJ ACLI ,ug m-3 ,ACLI[1], CRACMM mapping of ACLI ASEACAT ,ug m-3 ,ASEACAT[1], CRACMM mapping of ASEACAT ACLK ,ug m-3 ,ACLK[1], CRACMM mapping of ACLK ASO4K ,ug m-3 ,ASO4K[1], CRACMM mapping of ASO4K ANH4K ,ug m-3 ,ANH4K[1], CRACMM mapping of ANH4K ANO3K ,ug m-3 ,ANO3K[1], CRACMM mapping of ANO3K AH2OK ,ug m-3 ,AH2OK[1], CRACMM mapping of AH2OK AISO3OSJ ,ug m-3 ,AISO3J[1], CRACMM mapping of AISO3J AROCN2OXY2J ,ug m-3 ,AOLGAJ[1] + APCSOJ[1], CRACMM mapping of AOLGAJ and APCSOJ AISO3NOSJ ,ug m-3 ,AISO1J[1] + AISO2J[1] + AOLGBJ[1], CRACMM mapping of AISO1J and AISO2J and AOLGBJ AGLYJ ,ug m-3 ,AGLYJ[1], CRACMM mapping of AGLYJ APOCI ,ug m-3 ,APOCI[1], CRACMM mapping of APOCI APOCJ ,ug m-3 ,APOCJ[1], CRACMM mapping of APOCJ APNCOMI ,ug m-3 ,APNCOMI[1], CRACMM mapping of APNCOMI APNCOMJ ,ug m-3 ,APNCOMJ[1], CRACMM mapping of APNCOMJ AROCN1ALKI ,ug m-3 ,ALVPO1I[1], CRACMM mapping of ALVPO1I AROCP0ALKI ,ug m-3 ,ASVPO1I[1], CRACMM mapping of ASVPO1I AROCP1ALKI ,ug m-3 ,ASVPO2I[1], CRACMM mapping of ASVPO2I AROCN1ALKJ ,ug m-3 ,ALVPO1J[1], CRACMM mapping of ALVPO1J AROCP0ALKJ ,ug m-3 ,ASVPO1J[1], CRACMM mapping of ASVPO1J AROCP1ALKJ ,ug m-3 ,ASVPO2J[1], CRACMM mapping of ASVPO2J AROCP2ALKJ ,ug m-3 ,ASVPO3J[1], CRACMM mapping of ASVPO3J AROCP3ALKJ ,ug m-3 ,AIVPO1J[1], CRACMM mapping of AIVPO1J AROCN2OXY8I ,ug m-3 ,ALVOO1I[1], CRACMM mapping of ALVOO1I AROCN1OXY6I ,ug m-3 ,ALVOO2I[1], CRACMM mapping of ALVOO2I AROCP0OXY4I ,ug m-3 ,ASVOO1I[1], CRACMM mapping of ASVOO1I AROCP1OXY3I ,ug m-3 ,ASVOO2I[1], CRACMM mapping of ASVOO2I AROCN2OXY8J ,ug m-3 ,ALVOO1J[1] + AAVB1J[1], CRACMM mapping of ALVOO1J and AAVB1J AROCN1OXY6J ,ug m-3 ,ALVOO2J[1], CRACMM mapping of ALVOO2J AROCP0OXY4J ,ug m-3 ,ASVOO1J[1] + AAVB2J[1], CRACMM mapping of ASVOO1J and AAVB2J AROCP1OXY3J ,ug m-3 ,ASVOO2J[1] + AAVB3J[1], CRACMM mapping of ASVOO2J and AAVB3J AROCP2OXY2J ,ug m-3 ,ASVOO3J[1] + AAVB4J[1], CRACMM mapping of ASVOO3J and AAVB4J AHOMJ ,ug m-3 ,AMTNO3J[1] + AMTHYDJ[1]+ AMT1J[1] + AMT2J[1] + AMT3J[1], CRACMM mapping of all lower volatility terpene SOA NH3 ,ppmV ,NH3[1], CRACMM mapping of NH3 HCL ,ppmV ,HCL[1], CRACMM mapping of HCL ECH4 ,ppmV ,ECH4[1], CRACMM mapping of ECH4 ================================================ FILE: PREP/bcon/map2mech/SpecDef_racm2_ae6_aq_derived_from_cb6r3m_ae7_kmtbr.txt ================================================ /#start YYYYDDD HHMMSS /#end YYYYDDD HHMMSS /#layer KLAY (default is all layers) / ! This Specices Definition File was generated for mapping ! from CB6 to RACM2_ae6 for LISTOS_cracmmv1 testing. / File [1]: CMAQ conc/aconc file /new species, units, expression, description PRES ,Pa ,PRES[1], RACM2 mapping of PRES ZH ,m ,ZH[1], AVERAGE OF ZH TA ,m ,TA[1], RACM2 mapping of TA ZF ,m ,ZF[1], AVERAGE OF ZF RH ,m ,RH[1], RACM2 mapping of RH W_VEL ,m ,W_VEL[1], RACM2 mapping of W_VEL NO2 ,ppmV ,NO2[1], RACM2 mapping of NO2 NO ,ppmV ,NO[1], RACM2 mapping of NO O3P ,ppmV ,O[1], RACM2 mapping of O O3 ,ppmV ,O3[1], RACM2 mapping of O3 NO3 ,ppmV ,NO3[1], RACM2 mapping of NO3 O1D ,ppmV ,O1D[1], RACM2 mapping of O1D HO ,ppmV ,OH[1], RACM2 mapping of OH HO2 ,ppmV ,HO2[1], RACM2 mapping of HO2 H2O2 ,ppmV ,H2O2[1], RACM2 mapping of H2O2 N2O5 ,ppmV ,N2O5[1], RACM2 mapping of N2O5 HNO3 ,ppmV ,HNO3[1], RACM2 mapping of HNO3 HONO ,ppmV ,HONO[1], RACM2 mapping of HONO HNO4 ,ppmV ,PNA[1], RACM2 mapping of PNA SO2 ,ppmV ,SO2[1], RACM2 mapping of SO2 SULF ,ppmV ,SULF[1], RACM2 mapping of SULF ACO3 ,ppmV ,C2O3[1], RACM2 mapping of C2O3 MO2 ,ppmV ,MEO2[1], RACM2 mapping of MEO2 PAN ,ppmV ,PAN[1] + PANX[1], RACM2 mapping of PAN and PANX PAA ,ppmV ,PACD[1], RACM2 mapping of PACD ORA2 ,ppmV ,AACD[1], RACM2 mapping of AACD RCO3 ,ppmV ,CXO3[1], RACM2 mapping of CXO3 HCHO ,ppmV ,FORM[1], RACM2 mapping of FORM OP1 ,ppmV ,MEPX[1], RACM2 mapping of MEPX MOH ,ppmV ,MEOH[1], RACM2 mapping of MEOH OP2 ,ppmV ,ROOH[1], RACM2 mapping of ROOH ETHP ,ppmV ,XPAR[1], RACM2 mapping of XPAR HC3P ,ppmV ,XPRP[1], RACM2 mapping of XPRP ONIT ,ppmV ,NTR1[1] + NTR2[1], RACM2 mapping of NTR1 and NTR2 ORA1 ,ppmV ,FACD[1], RACM2 mapping of FACD CO ,ppmV ,CO[1], RACM2 mapping of CO ALD ,ppmV ,ALDX[1] + GLYD[1], RACM2 mapping of ALDX and GLYD UALD ,ppmV ,HPLD[1], RACM2 mapping of HPLD ACD ,ppmV ,ALD2[1], RACM2 mapping of ALD2 and ALD2_PRIMARY GLY ,ppmV ,GLY[1], RACM2 mapping of GLY MGLY ,ppmV ,MGLY[1], RACM2 mapping of MGLY ETH ,ppmV ,ETHA[1], RACM2 mapping of ETHA EOH ,ppmV ,ETOH[1], RACM2 mapping of ETOH MEK ,ppmV ,KET[1]*0.5, RACM2 mapping of KET KET ,ppmV ,KET[1]*0.5, RACM2 mapping of KET HC5 ,ppmV ,PAR[1]*0.33, RACM2 splitting of PAR based on 2017 US emissions HC8 ,ppmV ,PAR[1]*0.67, RACM2 splitting of PAR based on 2017 US emissions ACT ,ppmV ,ACET[1], RACM2 mapping of ACET HC3 ,ppmV ,PRPA[1], RACM2 mapping of PRPA ACE ,ppmV ,ETHY[1], RACM2 mapping of ETHY ETE ,ppmV ,ETH[1], RACM2 mapping of ETH OLT ,ppmV ,OLE[1], RACM2 mapping of OLE OLI ,ppmV ,IOLE[1], RACM2 mapping of IOLE ISO ,ppmV ,ISOP[1], RACM2 mapping of ISOP ISOP ,ppmV ,ISO2[1], RACM2 mapping of ISO2 MACR ,ppmV ,ISPD[1]*0.26, RACM2 mapping of ISPD MVK ,ppmV ,ISPD[1]*0.35, RACM2 mapping of ISPD HKET ,ppmV ,ISPD[1]*0.39, RACM2 mapping of ISPD ISON ,ppmV ,INTR[1], RACM2 mapping of INTR ISHP ,ppmV ,ISPX[1], RACM2 mapping of ISPX MACP ,ppmV ,OPO3[1], RACM2 mapping of OPO3 IEPOX ,ppmV ,EPOX[1], RACM2 mapping of EPOX LIM ,ppmV ,TERP[1], RACM2 mapping of TERP API ,ppmV ,APIN[1], RACM2 mapping of APIN BENZENE ,ppmV ,BENZENE[1], RACM2 mapping of BENZENE CSL ,ppmV ,CRES[1] + CRON[1], RACM2 mapping of CRES and CRON BENP ,ppmV ,BZO2[1], RACM2 mapping of BZO2 DCB2 ,ppmV ,OPEN[1], RACM2 mapping of OPEN (no direct match but OPEN is close) BENZRO2 ,ppmV ,BENZRO2[1], RACM2 mapping of BENZRO2 TOL ,ppmV ,TOL[1], RACM2 mapping of TOL TLP1 ,ppmV ,TO2[1], RACM2 mapping of TO2 TOLRO2 ,ppmV ,TOLRO2[1], RACM2 mapping of TOLRO2 XYM ,ppmV ,XYLMN[1]*0.35, RACM2 mapping of XYLMN XYO ,ppmV ,XYLMN[1]*0.30, RACM2 mapping of XYLMN XYP ,ppmV ,XYLMN[1]*0.35, RACM2 mapping of XYLMN XYLRO2 ,ppmV ,XYLRO2[1], RACM2 mapping of XYLRO2 NAPH ,ppmV ,NAPH[1], RACM2 mapping of NAPH PAHRO2 ,ppmV ,PAHRO2[1], RACM2 mapping of PAHRO2 MCT ,ppmV ,CAT1[1], RACM2 mapping of CAT1 MPAN ,ppmV ,OPAN[1], RACM2 mapping of OPAN SESQ ,ppmV ,SESQ[1], RACM2 mapping of SESQ SOAALK ,ppmV ,SOAALK[1], RACM2 mapping of SOAALK VLVPO1 ,ppmV ,VLVPO1[1], RACM2 mapping of VLVPO1 VSVPO1 ,ppmV ,VSVPO1[1], RACM2 mapping of VSVPO1 VSVPO2 ,ppmV ,VSVPO2[1], RACM2 mapping of VSVPO2 VSVPO3 ,ppmV ,VSVPO3[1], RACM2 mapping of VSVPO3 VIVPO1 ,ppmV ,VIVPO1[1], RACM2 mapping of VIVPO1 VLVOO1 ,ppmV ,VLVOO1[1], RACM2 mapping of VLVOO1 VLVOO2 ,ppmV ,VLVOO2[1], RACM2 mapping of VLVOO2 VSVOO1 ,ppmV ,VSVOO1[1], RACM2 mapping of VSVOO1 VSVOO2 ,ppmV ,VSVOO2[1], RACM2 mapping of VSVOO2 VSVOO3 ,ppmV ,VSVOO3[1], RACM2 mapping of VSVOO3 PCVOC ,ppmV ,PCVOC[1], RACM2 mapping of PCVOC DIEN ,ppmV ,BUTADIENE13[1], RACM2 mapping of BUTADIENE13 ASO4J ,ug m-3 ,ASO4J[1], RACM2 mapping of ASO4J ASO4I ,ug m-3 ,ASO4I[1], RACM2 mapping of ASO4I ANH4J ,ug m-3 ,ANH4J[1], RACM2 mapping of ANH4J ANH4I ,ug m-3 ,ANH4I[1], RACM2 mapping of ANH4I ANO3J ,ug m-3 ,ANO3J[1], RACM2 mapping of ANO3J ANO3I ,ug m-3 ,ANO3I[1], RACM2 mapping of ANO3I AISO1J ,ug m-3 ,AISO1J[1], RACM2 mapping of AISO1J AISO2J ,ug m-3 ,AISO2J[1], RACM2 mapping of AISO2J ASQTJ ,ug m-3 ,ASQTJ[1], RACM2 mapping of ASQTJ AORGCJ ,ug m-3 ,AORGCJ[1], RACM2 mapping of AORGCJ AECJ ,ug m-3 ,AECJ[1], RACM2 mapping of AECJ AECI ,ug m-3 ,AECI[1], RACM2 mapping of AECI AOTHRJ ,ug m-3 ,AOTHRJ[1], RACM2 mapping of AOTHRJ AOTHRI ,ug m-3 ,AOTHRI[1], RACM2 mapping of AOTHRI AFEJ ,ug m-3 ,AFEJ[1], RACM2 mapping of AFEJ AALJ ,ug m-3 ,AALJ[1], RACM2 mapping of AALJ ASIJ ,ug m-3 ,ASIJ[1], RACM2 mapping of ASIJ ATIJ ,ug m-3 ,ATIJ[1], RACM2 mapping of ATIJ ACAJ ,ug m-3 ,ACAJ[1], RACM2 mapping of ACAJ AMGJ ,ug m-3 ,AMGJ[1], RACM2 mapping of AMGJ AKJ ,ug m-3 ,AKJ[1], RACM2 mapping of AKJ AMNJ ,ug m-3 ,AMNJ[1], RACM2 mapping of AMNJ ACORS ,ug m-3 ,ACORS[1], RACM2 mapping of ACORS ASOIL ,ug m-3 ,ASOIL[1], RACM2 mapping of ASOIL NUMATKN ,m-3 ,NUMATKN[1], RACM2 mapping of NUMATKN NUMACC ,m-3 ,NUMACC[1], RACM2 mapping of NUMACC NUMCOR ,m-3 ,NUMCOR[1], RACM2 mapping of NUMCOR SRFATKN ,m2 m-3 ,SRFATKN[1], RACM2 mapping of SRFATKN SRFACC ,m2 m-3 ,SRFACC[1], RACM2 mapping of SRFACC SRFCOR ,m2 m-3 ,SRFCOR[1], RACM2 mapping of SRFCOR AH2OJ ,ug m-3 ,AH2OJ[1], RACM2 mapping of AH2OJ AH2OI ,ug m-3 ,AH2OI[1], RACM2 mapping of AH2OI AH3OPJ ,ug m-3 ,AH3OPJ[1], RACM2 mapping of AH3OPJ AH3OPI ,ug m-3 ,AH3OPI[1], RACM2 mapping of AH3OPI ANAJ ,ug m-3 ,ANAJ[1], RACM2 mapping of ANAJ ANAI ,ug m-3 ,ANAI[1], RACM2 mapping of ANAI ACLJ ,ug m-3 ,ACLJ[1], RACM2 mapping of ACLJ ACLI ,ug m-3 ,ACLI[1], RACM2 mapping of ACLI ASEACAT ,ug m-3 ,ASEACAT[1], RACM2 mapping of ASEACAT ACLK ,ug m-3 ,ACLK[1], RACM2 mapping of ACLK ASO4K ,ug m-3 ,ASO4K[1], RACM2 mapping of ASO4K ANH4K ,ug m-3 ,ANH4K[1], RACM2 mapping of ANH4K ANO3K ,ug m-3 ,ANO3K[1], RACM2 mapping of ANO3K AH2OK ,ug m-3 ,AH2OK[1], RACM2 mapping of AH2OK AH3OPK ,ug m-3 ,AH3OPK[1], RACM2 mapping of AH3OPK AISO3J ,ug m-3 ,AISO3J[1], RACM2 mapping of AISO3J AOLGAJ ,ug m-3 ,AOLGAJ[1], RACM2 mapping of AOLGAJ AOLGBJ ,ug m-3 ,AOLGBJ[1], RACM2 mapping of AOLGBJ APCSOJ ,ug m-3 ,APCSOJ[1], RACM2 mapping of APCSOJ APOCI ,ug m-3 ,APOCI[1], RACM2 mapping of APOCI APOCJ ,ug m-3 ,APOCJ[1], RACM2 mapping of APOCJ ALVPO1I ,ug m-3 ,ALVPO1I[1], RACM2 mapping of ALVPO1I ASVPO1I ,ug m-3 ,ASVPO1I[1], RACM2 mapping of ASVPO1I ASVPO2I ,ug m-3 ,ASVPO2I[1], RACM2 mapping of ASVPO2I ALVPO1J ,ug m-3 ,ALVPO1J[1], RACM2 mapping of ALVPO1J ASVPO1J ,ug m-3 ,ASVPO1J[1], RACM2 mapping of ASVPO1J ASVPO2J ,ug m-3 ,ASVPO2J[1], RACM2 mapping of ASVPO2J ASVPO3J ,ug m-3 ,ASVPO3J[1], RACM2 mapping of ASVPO3J AIVPO1J ,ug m-3 ,AIVPO1J[1], RACM2 mapping of AIVPO1J ALVOO1I ,ug m-3 ,ALVOO1I[1], RACM2 mapping of ALVOO1I ALVOO2I ,ug m-3 ,ALVOO2I[1], RACM2 mapping of ALVOO2I ASVOO1I ,ug m-3 ,ASVOO1I[1], RACM2 mapping of ASVOO1I ASVOO2I ,ug m-3 ,ASVOO2I[1], RACM2 mapping of ASVOO2I ALVOO1J ,ug m-3 ,ALVOO1J[1], RACM2 mapping of ALVOO1J ALVOO2J ,ug m-3 ,ALVOO2J[1], RACM2 mapping of ALVOO2J ASVOO1J ,ug m-3 ,ASVOO1J[1], RACM2 mapping of ASVOO1J ASVOO2J ,ug m-3 ,ASVOO2J[1], RACM2 mapping of ASVOO2J ASVOO3J ,ug m-3 ,ASVOO3J[1], RACM2 mapping of ASVOO3J AALK1J ,ug m-3 ,AAVB1J[1]*0.16, AE7 to AE6 Mapping ABNZ1J ,ug m-3 ,AAVB1J[1]*0.16, AE7 to AE6 Mapping ABNZ3J ,ug m-3 ,AAVB1J[1]*0.17, AE7 to AE6 Mapping ATOL3J ,ug m-3 ,AAVB1J[1]*0.17, AE7 to AE6 Mapping AXYL3J ,ug m-3 ,AAVB1J[1]*0.17, AE7 to AE6 Mapping APAH3J ,ug m-3 ,AAVB1J[1]*0.17, AE7 to AE6 Mapping AXYL1J ,ug m-3 ,AAVB2J[1]*0.33, AE7 to AE6 Mapping ATOL1J ,ug m-3 ,AAVB2J[1]*0.33, AE7 to AE6 Mapping APAH1J ,ug m-3 ,AAVB2J[1]*0.34, AE7 to AE6 Mapping ATOL2J ,ug m-3 ,AAVB3J[1], RACM2 mapping of AAVB3J ATRP1J ,ug m-3 ,AMT4J[1], RACM2 mapping of AMT4J ATRP2J ,ug m-3 ,AMT5J[1], RACM2 mapping of AMT5J NH3 ,ppmV ,NH3[1], RACM2 mapping of NH3 HCL ,ppmV ,HCL[1], RACM2 mapping of HCL SVISO1 ,ppmV ,SVISO1[1], RACM2 mapping of SVISO1 SVISO2 ,ppmV ,SVISO2[1], RACM2 mapping of SVISO2 SVSQT ,ppmV ,SVSQT[1], RACM2 mapping of SVSQT LVPCSOG ,ppmV ,LVPCSOG[1], RACM2 mapping of LVPCSOG SVTRP1 ,ppmV ,SVMT4[1], RACM2 mapping of SVMT4 SVTRP2 ,ppmV ,SVMT5[1], RACM2 mapping of SVMT5 ================================================ FILE: PREP/bcon/map2mech/SpecDef_racm_ae6_aq_derived_from_cb6r3m_ae7_kmtbr.txt ================================================ /#start YYYYDDD HHMMSS /#end YYYYDDD HHMMSS /#layer KLAY (default is all layers) / ! This Specices Definition File was generated using mapping ! from CB6 for RACM_ae6. / File [1]: CMAQ conc/aconc file /new species, units, expression, description PRES ,Pa ,PRES[1], AVERAGE OF PRES ZH ,m ,ZH[1], AVERAGE OF ZH ZF ,m ,ZF[1], AVERAGE OF ZF NO2 ,ppmV ,NO2[1], AVERAGE OF NO2 NO ,ppmV ,NO[1], AVERAGE OF NO O3P ,ppmV ,O[1], AVERAGE OF O O3 ,ppmV ,O3[1], AVERAGE OF O3 NO3 ,ppmV ,NO3[1], AVERAGE OF NO3 O1D ,ppmV ,O1D[1], AVERAGE OF O1D HO ,ppmV ,OH[1], RACM mapping OF OH HO2 ,ppmV ,HO2[1], AVERAGE OF HO2 H2O2 ,ppmV ,H2O2[1], AVERAGE OF H2O2 N2O5 ,ppmV ,N2O5[1], AVERAGE OF N2O5 HNO3 ,ppmV ,HNO3[1], AVERAGE OF HNO3 HONO ,ppmV ,HONO[1], AVERAGE OF HONO HNO4 ,ppmV ,PNA[1], RACM mapping OF PNA SO2 ,ppmV ,SO2[1], AVERAGE OF SO2 SULF ,ppmV ,SULF[1], AVERAGE OF SULF ACO3 ,ppmV ,C2O3[1], RACM mapping OF C2O3 MO2 ,ppmV ,MEO2[1], RACM mapping OF MEO2 PAN ,ppmV ,PAN[1], AVERAGE OF PAN PAA ,ppmV ,PACD[1], RACM mapping OF PACD ORA2 ,ppmV ,AACD[1], RACM mapping OF AACD RCO3 ,ppmV ,CXO3[1], RACM mapping OF CXO3 PPN ,ppmV ,PANX[1], RACM mapping OF PANX HCHO ,ppmV ,FORM[1], RACM mapping OF FORM OP1 ,ppmV ,MEPX[1], RACM mapping OF MEPX MOH ,ppmV ,MEOH[1], RACM mapping OF MEOH OP2 ,ppmV ,ROOH[1], RACM mapping OF ROOH ETHP ,ppmV ,XPAR[1], RACM mapping OF XPAR HC3P ,ppmV ,XPRP[1], RACM mapping OF XPRP ONIT ,ppmV ,NTR1[1] + NTR2[1], ONIT is sum of NTR1+NTR2 in RACM ORA1 ,ppmV ,FACD[1], RACM mapping OF FACD CO ,ppmV ,CO[1], AVERAGE OF CO ALD ,ppmV ,ALDX[1], RACM mapping OF ALDX ACD ,ppmV ,GLYD[1] + ALD2[1], RACM mapping OF GLYD GLY ,ppmV ,GLY[1], AVERAGE OF GLY MGLY ,ppmV ,MGLY[1], AVERAGE OF MGLY ETH ,ppmV ,ETHA[1], RACM mapping OF ETHA EOH ,ppmV ,ETOH[1], RACM OF ETOH MEK ,ppmV ,KET[1]*0.5, RACM mapping OF KET KET ,ppmV ,KET[1]*0.5, RACM mapping OF KET HC5 ,ppmV ,PAR[1]*0.5, PAR Split equally in RACM HC8 ,ppmV ,PAR[1]*0.5, PAR Split equally in RACM ACT ,ppmV ,ACET[1], RACM mapping OF ACET HC3 ,ppmV ,PRPA[1], RACM mapping OF PRPA ACE ,ppmV ,ETHY[1], RACM mapping OF ETHY ETE ,ppmV ,ETH[1], RACM mapping OF ETH OLT ,ppmV ,OLE[1], RACM mapping of OLE OLI ,ppmV ,IOLE[1], RACM mapping OF IOLE ISO ,ppmV ,ISOP[1], RACM mapping OF ISOP ISOP ,ppmV ,ISO2[1], RACM mapping OF ISO2 MACR ,ppmV ,ISPD[1]*0.26, RACM mapping OF ISPD MVK ,ppmV ,ISPD[1]*0.35, RACM mapping OF ISPD HKET ,ppmV ,ISPD[1]*0.39, RACM mapping OF ISPD ISON ,ppmV ,INTR[1], RACM mapping of INTR ISHP ,ppmV ,ISPX[1], RACM mapping OF ISPX MACP ,ppmV ,OPO3[1], RACM mapping OF OPO3 IEPOX ,ppmV ,EPOX[1], RACM mapping OF EPOX LIM ,ppmV ,TERP[1], Terpene spcies other than apin in RACM API ,ppmV ,APIN[1], RACM mapping OF APIN BENZENE ,ppmV ,BENZENE[1], AVERAGE OF BENZENE CSL ,ppmV ,CRES[1], RACM mapping OF CRES BENP ,ppmV ,BZO2[1], RACM mapping OF BZO2 DCB2 ,ppmV ,OPEN[1] + XOPN[1], No direct match but OPEN and XOPN are close in RACM BENZRO2 ,ppmV ,BENZRO2[1], AVERAGE OF BENZRO2 TOL ,ppmV ,TOL[1], RACM mapping OF TOL TLP1 ,ppmV ,TO2[1], RACM mapping OF TO2 TOLRO2 ,ppmV ,TOLRO2[1], AVERAGE OF TOLRO2 XYM ,ppmV ,XYLMN[1]*0.35, RACM mapping OF XYLMN XYO ,ppmV ,XYLMN[1]*0.30, RACM mapping OF XYLMN XYP ,ppmV ,XYLMN[1]*0.35, RACM mapping of XYLMN XYLRO2 ,ppmV ,XYLRO2[1], AVERAGE OF XYLRO2 NAPH ,ppmV ,NAPH[1], RACM mapping OF NAPH PAHRO2 ,ppmV ,PAHRO2[1], AVERAGE OF PAHRO2 MCT ,ppmV ,CAT1[1], RACM mapping OF CAT1 MPAN ,ppmV ,OPAN[1], RACM mapping OF OPAN SESQ ,ppmV ,SESQ[1], AVERAGE OF SESQ SOAALK ,ppmV ,SOAALK[1], AVERAGE OF SOAALK VLVPO1 ,ppmV ,VLVPO1[1], AVERAGE OF VLVPO1 VSVPO1 ,ppmV ,VSVPO1[1], AVERAGE OF VSVPO1 VSVPO2 ,ppmV ,VSVPO2[1], AVERAGE OF VSVPO2 VSVPO3 ,ppmV ,VSVPO3[1], AVERAGE OF VSVPO3 VIVPO1 ,ppmV ,VIVPO1[1], AVERAGE OF VIVPO1 VLVOO1 ,ppmV ,VLVOO1[1], AVERAGE OF VLVOO1 VLVOO2 ,ppmV ,VLVOO2[1], AVERAGE OF VLVOO2 VSVOO1 ,ppmV ,VSVOO1[1], AVERAGE OF VSVOO1 VSVOO2 ,ppmV ,VSVOO2[1], AVERAGE OF VSVOO2 VSVOO3 ,ppmV ,VSVOO3[1], AVERAGE OF VSVOO3 PCVOC ,ppmV ,PCVOC[1], AVERAGE OF PCVOC DIEN ,ppmV ,BUTADIENE13[1], RACM mapping OF BUTADIENE13 ASO4J ,ug m-3 ,ASO4J[1], AVERAGE OF ASO4J ASO4I ,ug m-3 ,ASO4I[1], AVERAGE OF ASO4I ANH4J ,ug m-3 ,ANH4J[1], AVERAGE OF ANH4J ANH4I ,ug m-3 ,ANH4I[1], AVERAGE OF ANH4I ANO3J ,ug m-3 ,ANO3J[1], AVERAGE OF ANO3J ANO3I ,ug m-3 ,ANO3I[1], AVERAGE OF ANO3I AISO1J ,ug m-3 ,AISO1J[1], AVERAGE OF AISO1J AISO2J ,ug m-3 ,AISO2J[1], AVERAGE OF AISO2J ASQTJ ,ug m-3 ,ASQTJ[1], AVERAGE OF ASQTJ AORGCJ ,ug m-3 ,AORGCJ[1], AVERAGE OF AORGCJ AECJ ,ug m-3 ,AECJ[1], AVERAGE OF AECJ AECI ,ug m-3 ,AECI[1], AVERAGE OF AECI AOTHRJ ,ug m-3 ,AOTHRJ[1], AVERAGE OF AOTHRJ AOTHRI ,ug m-3 ,AOTHRI[1], AVERAGE OF AOTHRI AFEJ ,ug m-3 ,AFEJ[1], AVERAGE OF AFEJ AALJ ,ug m-3 ,AALJ[1], AVERAGE OF AALJ ASIJ ,ug m-3 ,ASIJ[1], AVERAGE OF ASIJ ATIJ ,ug m-3 ,ATIJ[1], AVERAGE OF ATIJ ACAJ ,ug m-3 ,ACAJ[1], AVERAGE OF ACAJ AMGJ ,ug m-3 ,AMGJ[1], AVERAGE OF AMGJ AKJ ,ug m-3 ,AKJ[1], AVERAGE OF AKJ AMNJ ,ug m-3 ,AMNJ[1], AVERAGE OF AMNJ ACORS ,ug m-3 ,ACORS[1], AVERAGE OF ACORS ASOIL ,ug m-3 ,ASOIL[1], AVERAGE OF ASOIL NUMATKN ,m-3 ,NUMATKN[1], AVERAGE OF NUMATKN NUMACC ,m-3 ,NUMACC[1], AVERAGE OF NUMACC NUMCOR ,m-3 ,NUMCOR[1], AVERAGE OF NUMCOR SRFATKN ,m2 m-3 ,SRFATKN[1], AVERAGE OF SRFATKN SRFACC ,m2 m-3 ,SRFACC[1], AVERAGE OF SRFACC SRFCOR ,m2 m-3 ,SRFCOR[1], AVERAGE OF SRFCOR AH2OJ ,ug m-3 ,AH2OJ[1], AVERAGE OF AH2OJ AH2OI ,ug m-3 ,AH2OI[1], AVERAGE OF AH2OI AH3OPJ ,ug m-3 ,AH3OPJ[1], AVERAGE OF AH3OPJ AH3OPI ,ug m-3 ,AH3OPI[1], AVERAGE OF AH3OPI ANAJ ,ug m-3 ,ANAJ[1], AVERAGE OF ANAJ ANAI ,ug m-3 ,ANAI[1], AVERAGE OF ANAI ACLJ ,ug m-3 ,ACLJ[1], AVERAGE OF ACLJ ACLI ,ug m-3 ,ACLI[1], AVERAGE OF ACLI ASEACAT ,ug m-3 ,ASEACAT[1], AVERAGE OF ASEACAT ACLK ,ug m-3 ,ACLK[1], AVERAGE OF ACLK ASO4K ,ug m-3 ,ASO4K[1], AVERAGE OF ASO4K ANH4K ,ug m-3 ,ANH4K[1], AVERAGE OF ANH4K ANO3K ,ug m-3 ,ANO3K[1], AVERAGE OF ANO3K AH2OK ,ug m-3 ,AH2OK[1], AVERAGE OF AH2OK AH3OPK ,ug m-3 ,AH3OPK[1], AVERAGE OF AH3OPK AISO3J ,ug m-3 ,AISO3J[1], AVERAGE OF AISO3J AOLGAJ ,ug m-3 ,AOLGAJ[1], AVERAGE OF AOLGAJ AOLGBJ ,ug m-3 ,AOLGBJ[1], AVERAGE OF AOLGBJ APCSOJ ,ug m-3 ,APCSOJ[1], AVERAGE OF APCSOJ ALVPO1I ,ug m-3 ,ALVPO1I[1], AVERAGE OF ALVPO1I ASVPO1I ,ug m-3 ,ASVPO1I[1], AVERAGE OF ASVPO1I ASVPO2I ,ug m-3 ,ASVPO2I[1], AVERAGE OF ASVPO2I ALVPO1J ,ug m-3 ,ALVPO1J[1], AVERAGE OF ALVPO1J ASVPO1J ,ug m-3 ,ASVPO1J[1], AVERAGE OF ASVPO1J ASVPO2J ,ug m-3 ,ASVPO2J[1], AVERAGE OF ASVPO2J ASVPO3J ,ug m-3 ,ASVPO3J[1], AVERAGE OF ASVPO3J AIVPO1J ,ug m-3 ,AIVPO1J[1], AVERAGE OF AIVPO1J ALVOO1I ,ug m-3 ,ALVOO1I[1], AVERAGE OF ALVOO1I ALVOO2I ,ug m-3 ,ALVOO2I[1], AVERAGE OF ALVOO2I ASVOO1I ,ug m-3 ,ASVOO1I[1], AVERAGE OF ASVOO1I ASVOO2I ,ug m-3 ,ASVOO2I[1], AVERAGE OF ASVOO2I ALVOO1J ,ug m-3 ,ALVOO1J[1], AVERAGE OF ALVOO1J ALVOO2J ,ug m-3 ,ALVOO2J[1], AVERAGE OF ALVOO2J ASVOO1J ,ug m-3 ,ASVOO1J[1], AVERAGE OF ASVOO1J ASVOO2J ,ug m-3 ,ASVOO2J[1], AVERAGE OF ASVOO2J ASVOO3J ,ug m-3 ,ASVOO3J[1], AVERAGE OF ASVOO3J AALK1J ,ug m-3 ,AAVB1J[1]*0.16, AE7 to AE6 Mapping ABNZ1J ,ug m-3 ,AAVB1J[1]*0.16, AE7 to AE6 Mapping ABNZ3J ,ug m-3 ,AAVB1J[1]*0.17, AE7 to AE6 Mapping ATOL3J ,ug m-3 ,AAVB1J[1]*0.17, AE7 to AE6 Mapping AXYL3J ,ug m-3 ,AAVB1J[1]*0.17, AE7 to AE6 Mapping APAH3J ,ug m-3 ,AAVB1J[1]*0.17, AE7 to AE6 Mapping AXYL1J ,ug m-3 ,AAVB2J[1]*0.33, AE7 to AE6 Mapping ATOL1J ,ug m-3 ,AAVB2J[1]*0.33, AE7 to AE6 Mapping APAH1J ,ug m-3 ,AAVB2J[1]*0.34, AE7 to AE6 Mapping ATOL2J ,ug m-3 ,AAVB3J[1], RACM mapping OF AAVB3J ATRP1J ,ug m-3 ,AMT4J[1], RACM mapping OF AMT4J ATRP2J ,ug m-3 ,AMT5J[1], RACM mapping OF AMT5J NH3 ,ppmV ,NH3[1], AVERAGE OF NH3 SVISO1 ,ppmV ,SVISO1[1], AVERAGE OF SVISO1 SVISO2 ,ppmV ,SVISO2[1], AVERAGE OF SVISO2 SVSQT ,ppmV ,SVSQT[1], AVERAGE OF SVSQT LVPCSOG ,ppmV ,LVPCSOG[1], AVERAGE OF LVPCSOG SVTRP1 ,ppmV ,SVMT4[1], RACM mapping OF SVMT4 SVTRP2 ,ppmV ,SVMT5[1], RACM mapping OF SVMT5 ================================================ FILE: PREP/bcon/map2mech/SpecDef_saprc07tc_ae6_aq_derived_from_cb6r3m_ae7_kmtbr.txt ================================================ /#start YYYYDDD HHMMSS /#end YYYYDDD HHMMSS /#layer KLAY (default is all layers) / ! This Specices Definition File was generated using mapping ! from CB6 for SAPRC07tc_ae6. / File [1]: CMAQ conc/aconc file /new species, units, expression, description PRES ,Pa ,PRES[1], AVERAGE OF PRES ZH ,m ,ZH[1], AVERAGE OF ZH ZF ,m ,ZF[1], AVERAGE OF ZF NO2 ,ppmV ,NO2[1], AVERAGE OF NO2 NO ,ppmV ,NO[1], AVERAGE OF NO O3P ,ppmV ,O[1], AVERAGE OF O O3 ,ppmV ,O3[1], AVERAGE OF O3 NO3 ,ppmV ,NO3[1], AVERAGE OF NO3 O1D ,ppmV ,O1D[1], AVERAGE OF O1D OH ,ppmV ,OH[1], AVERAGE OF OH HO2 ,ppmV ,HO2[1], AVERAGE OF HO2 HO2H ,ppmV ,H2O2[1], SAPRC07tc mapping OF H2O2 N2O5 ,ppmV ,N2O5[1], AVERAGE OF N2O5 HNO3 ,ppmV ,HNO3[1], AVERAGE OF HNO3 HONO ,ppmV ,HONO[1], AVERAGE OF HONO HNO4 ,ppmV ,PNA[1], SAPRC07tc mapping OF PNA SO2 ,ppmV ,SO2[1], AVERAGE OF SO2 SULF ,ppmV ,SULF[1], AVERAGE OF SULF MECO3 ,ppmV ,C2O3[1], SAPRC07tc mapping OF C2O3 MEO2 ,ppmV ,MEO2[1], AVERAGE OF MEO2 PAN ,ppmV ,PAN[1], AVERAGE OF PAN CCOOOH ,ppmV ,PACD[1], SAPRC07tc mapping OF PACD CCOOH ,ppmV ,AACD[1], SAPRC07tc mapping OF AACD RCO3 ,ppmV ,CXO3[1], SAPRC07tc mapping OF CXO3 CCHO ,ppmV ,ALD2[1], SAPRC07tc mapping OF ALD2 PAN2 ,ppmV ,PANX[1], SAPRC07tc mapping OF PANX HCHO ,ppmV ,FORM[1], SAPRC07tc mapping OF FORM COOH ,ppmV ,MEPX[1], SAPRC07tc mapping OF MEPX MEOH ,ppmV ,MEOH[1], AVERAGE OF MEOH ROOH ,ppmV ,ROOH[1], AVERAGE OF ROOH RNO3 ,ppmV ,NTR1[1] + NTR2[1] + INTR [1], RNO3 is sum of NTR1+NTR2 in SAPRC07tc HCOOH ,ppmV ,FACD[1], SAPRC07tc mapping OF FACD CO ,ppmV ,CO[1], AVERAGE OF CO RCHO ,ppmV ,ALDX[1], SAPRC07tc mapping OF ALDX HOCCHO ,ppmV ,GLYD[1], SAPRC07tc mapping OF GLYD GLY ,ppmV ,GLY[1], AVERAGE OF GLY MGLY ,ppmV ,MGLY[1], AVERAGE OF MGLY ALK1 ,ppmV ,ETHA[1], SAPRC07tc mapping OF ETHA ETOH ,ppmV ,ETOH[1], AVERAGE OF ETOH MEK ,ppmV ,KET[1], SAPRC07tc mapping OF KET ALK3 ,ppmV ,PAR[1]*0.33, PAR Split equally into remaning alkanes in SAPRAC07 ALK4 ,ppmV ,PAR[1]*0.33, PAR Split equally into remaning alkanes in SAPRAC07 ALK5 ,ppmV ,PAR[1]*0.34, PAR Split equally into remaning alkanes in SAPRAC07 ACETONE ,ppmV ,ACET[1], SAPRC07tc mapping OF ACET ALK2 ,ppmV ,PRPA[1], SAPRC07tc mapping OF PRPA ACETYLENE ,ppmV ,ETHY[1], SAPRC07tc mapping OF ETHY ETHENE ,ppmV ,ETH[1], SAPRC07tc mapping OF ETH OLE1 ,ppmV ,OLE[1]*0.71, 71% of OLE1 is non-propene in SAPRAC07 PROPENE ,ppmV ,OLE[1]*0.29, 29% of OLE is propene in SAPRAC07 OLE2 ,ppmV ,IOLE[1], SAPRC07tc mapping OF IOLE ISOPRENE ,ppmV ,ISOP[1], SAPRC07tc mapping OF ISOP MACR ,ppmV ,ISPD[1]*0.26, SAPRC07tc mapping OF ISPD MVK ,ppmV ,ISPD[1]*0.35, SAPRC07tc mapping OF ISPD IPRD ,ppmV ,ISPD[1]*0.39, SAPRC07tc mapping OF ISPD ISOPOOH ,ppmV ,ISPX[1], SAPRC07tc mapping OF ISPX MACO3 ,ppmV ,OPO3[1], SAPRC07tc mapping OF OPO3 IEPOX ,ppmV ,EPOX[1], SAPRC07tc mapping OF EPOX IEPOXOO ,ppmV ,EPX2[1], SAPRC07tc mapping OF EPX2 TERP ,ppmV ,TERP[1], AVERAGE OF TERP APIN ,ppmV ,APIN[1], AVERAGE OF APIN BENZENE ,ppmV ,BENZENE[1], AVERAGE OF BENZENE CRES ,ppmV ,CRES[1], AVERAGE OF CRES AFG1 ,ppmV ,OPEN[1]*0.50, unsaturated aldehydes from aromatic of OPEN in SAPRAC07 AFG2 ,ppmV ,OPEN[1]*0.50, unsaturated aldehydes from aromatic of OPEN in SAPRAC07 BENZRO2 ,ppmV ,BENZRO2[1], AVERAGE OF BENZRO2 ARO1 ,ppmV ,TOL[1], 75% of TOL in SAPRAC07; rest not listed explicitly TOLRO2 ,ppmV ,TOLRO2[1], AVERAGE OF TOLRO2 AFG3 ,ppmV ,XOPN[1], SAPRC07tc mapping OF XOPN ARO2MN ,ppmV ,XYLMN[1]*0.58, SAPRC07tc mapping OF XYLMN MXYL ,ppmV ,XYLMN[1]*0.13, m-xylene is 13% of ARO2 in SAPRC07 OXYL ,ppmV ,XYLMN[1]*0.11, o-xylene is 11% of ARO2 in SAPRC07 PXYL ,ppmV ,XYLMN[1]*0.13, p-xylene is 13% of ARO2 in SAPRC07 TMBENZ124 ,ppmV ,XYLMN[1]*0.05, 1,2,4-TMB is 5% of ARO2 in SAPRC07 XYLRO2 ,ppmV ,XYLRO2[1], AVERAGE OF XYLRO2 NAPHTHAL ,ppmV ,NAPH[1], SAPRC07tc mapping OF NAPH PAHRO2 ,ppmV ,PAHRO2[1], AVERAGE OF PAHRO2 BZO ,ppmV ,CRO[1], SAPRC07tc mapping OF CRO NPHE ,ppmV ,CRON[1], SAPRC07tc mapping OF CRON MAPAN ,ppmV ,OPAN[1], SAPRC07tc mapping OF OPAN CL2 ,ppmV ,CL2[1], AVERAGE OF CL2 CL ,ppmV ,CL[1], AVERAGE OF CL CLO ,ppmV ,CLO[1], AVERAGE OF CLO CLCHO ,ppmV ,FMCL[1], SAPRC07tc mapping OF FMCL HCL ,ppmV ,HCL[1], AVERAGE OF HCL CLNO2 ,ppmV ,CLNO2[1], AVERAGE OF CLNO2 CLONO2 ,ppmV ,CLNO3[1], SAPRC07tc mapping OF CLNO3 SESQ ,ppmV ,SESQ[1], AVERAGE OF SESQ SOAALK ,ppmV ,SOAALK[1], AVERAGE OF SOAALK H2NO3PIJ ,ppmV ,H2NO3PIJ[1], AVERAGE OF H2NO3PIJ H2NO3PK ,ppmV ,H2NO3PK[1], AVERAGE OF H2NO3PK VLVPO1 ,ppmV ,VLVPO1[1], AVERAGE OF VLVPO1 VSVPO1 ,ppmV ,VSVPO1[1], AVERAGE OF VSVPO1 VSVPO2 ,ppmV ,VSVPO2[1], AVERAGE OF VSVPO2 VSVPO3 ,ppmV ,VSVPO3[1], AVERAGE OF VSVPO3 VIVPO1 ,ppmV ,VIVPO1[1], AVERAGE OF VIVPO1 VLVOO1 ,ppmV ,VLVOO1[1], AVERAGE OF VLVOO1 VLVOO2 ,ppmV ,VLVOO2[1], AVERAGE OF VLVOO2 VSVOO1 ,ppmV ,VSVOO1[1], AVERAGE OF VSVOO1 VSVOO2 ,ppmV ,VSVOO2[1], AVERAGE OF VSVOO2 VSVOO3 ,ppmV ,VSVOO3[1], AVERAGE OF VSVOO3 PCVOC ,ppmV ,PCVOC[1], AVERAGE OF PCVOC HCHO_PRIMARY ,ppmV ,FORM_PRIMARY[1], SAPRC07tc mapping OF FORM_PRIMARY CCHO_PRIMARY ,ppmV ,ALD2_PRIMARY[1], SAPRC07tc mapping OF ALD2_PRIMARY BUTADIENE13 ,ppmV ,BUTADIENE13[1], AVERAGE OF BUTADIENE13 ACROLEIN ,ppmV ,ACROLEIN[1], AVERAGE OF ACROLEIN ACRO_PRIMARY ,ppmV ,ACRO_PRIMARY[1], AVERAGE OF ACRO_PRIMARY TOLUENE ,ppmV ,TOLU[1], SAPRC07tc mapping OF TOLU ASO4J ,ug m-3 ,ASO4J[1], AVERAGE OF ASO4J ASO4I ,ug m-3 ,ASO4I[1], AVERAGE OF ASO4I ANH4J ,ug m-3 ,ANH4J[1], AVERAGE OF ANH4J ANH4I ,ug m-3 ,ANH4I[1], AVERAGE OF ANH4I ANO3J ,ug m-3 ,ANO3J[1], AVERAGE OF ANO3J ANO3I ,ug m-3 ,ANO3I[1], AVERAGE OF ANO3I AISO1J ,ug m-3 ,AISO1J[1], AVERAGE OF AISO1J AISO2J ,ug m-3 ,AISO2J[1], AVERAGE OF AISO2J ASQTJ ,ug m-3 ,ASQTJ[1], AVERAGE OF ASQTJ AORGCJ ,ug m-3 ,AORGCJ[1], AVERAGE OF AORGCJ AECJ ,ug m-3 ,AECJ[1], AVERAGE OF AECJ AECI ,ug m-3 ,AECI[1], AVERAGE OF AECI AOTHRJ ,ug m-3 ,AOTHRJ[1], AVERAGE OF AOTHRJ AOTHRI ,ug m-3 ,AOTHRI[1], AVERAGE OF AOTHRI AFEJ ,ug m-3 ,AFEJ[1], AVERAGE OF AFEJ AALJ ,ug m-3 ,AALJ[1], AVERAGE OF AALJ ASIJ ,ug m-3 ,ASIJ[1], AVERAGE OF ASIJ ATIJ ,ug m-3 ,ATIJ[1], AVERAGE OF ATIJ ACAJ ,ug m-3 ,ACAJ[1], AVERAGE OF ACAJ AMGJ ,ug m-3 ,AMGJ[1], AVERAGE OF AMGJ AKJ ,ug m-3 ,AKJ[1], AVERAGE OF AKJ AMNJ ,ug m-3 ,AMNJ[1], AVERAGE OF AMNJ ACORS ,ug m-3 ,ACORS[1], AVERAGE OF ACORS ASOIL ,ug m-3 ,ASOIL[1], AVERAGE OF ASOIL NUMATKN ,m-3 ,NUMATKN[1], AVERAGE OF NUMATKN NUMACC ,m-3 ,NUMACC[1], AVERAGE OF NUMACC NUMCOR ,m-3 ,NUMCOR[1], AVERAGE OF NUMCOR SRFATKN ,m2 m-3 ,SRFATKN[1], AVERAGE OF SRFATKN SRFACC ,m2 m-3 ,SRFACC[1], AVERAGE OF SRFACC SRFCOR ,m2 m-3 ,SRFCOR[1], AVERAGE OF SRFCOR AH2OJ ,ug m-3 ,AH2OJ[1], AVERAGE OF AH2OJ AH2OI ,ug m-3 ,AH2OI[1], AVERAGE OF AH2OI AH3OPJ ,ug m-3 ,AH3OPJ[1], AVERAGE OF AH3OPJ AH3OPI ,ug m-3 ,AH3OPI[1], AVERAGE OF AH3OPI ANAJ ,ug m-3 ,ANAJ[1], AVERAGE OF ANAJ ANAI ,ug m-3 ,ANAI[1], AVERAGE OF ANAI ACLJ ,ug m-3 ,ACLJ[1], AVERAGE OF ACLJ ACLI ,ug m-3 ,ACLI[1], AVERAGE OF ACLI ASEACAT ,ug m-3 ,ASEACAT[1], AVERAGE OF ASEACAT ACLK ,ug m-3 ,ACLK[1], AVERAGE OF ACLK ASO4K ,ug m-3 ,ASO4K[1], AVERAGE OF ASO4K ANH4K ,ug m-3 ,ANH4K[1], AVERAGE OF ANH4K ANO3K ,ug m-3 ,ANO3K[1], AVERAGE OF ANO3K AH2OK ,ug m-3 ,AH2OK[1], AVERAGE OF AH2OK AH3OPK ,ug m-3 ,AH3OPK[1], AVERAGE OF AH3OPK AISO3J ,ug m-3 ,AISO3J[1], AVERAGE OF AISO3J AOLGAJ ,ug m-3 ,AOLGAJ[1], AVERAGE OF AOLGAJ AOLGBJ ,ug m-3 ,AOLGBJ[1], AVERAGE OF AOLGBJ APCSOJ ,ug m-3 ,APCSOJ[1], AVERAGE OF APCSOJ ALVPO1I ,ug m-3 ,ALVPO1I[1], AVERAGE OF ALVPO1I ASVPO1I ,ug m-3 ,ASVPO1I[1], AVERAGE OF ASVPO1I ASVPO2I ,ug m-3 ,ASVPO2I[1], AVERAGE OF ASVPO2I ALVPO1J ,ug m-3 ,ALVPO1J[1], AVERAGE OF ALVPO1J ASVPO1J ,ug m-3 ,ASVPO1J[1], AVERAGE OF ASVPO1J ASVPO2J ,ug m-3 ,ASVPO2J[1], AVERAGE OF ASVPO2J ASVPO3J ,ug m-3 ,ASVPO3J[1], AVERAGE OF ASVPO3J AIVPO1J ,ug m-3 ,AIVPO1J[1], AVERAGE OF AIVPO1J ALVOO1I ,ug m-3 ,ALVOO1I[1], AVERAGE OF ALVOO1I ALVOO2I ,ug m-3 ,ALVOO2I[1], AVERAGE OF ALVOO2I ASVOO1I ,ug m-3 ,ASVOO1I[1], AVERAGE OF ASVOO1I ASVOO2I ,ug m-3 ,ASVOO2I[1], AVERAGE OF ASVOO2I ALVOO1J ,ug m-3 ,ALVOO1J[1], AVERAGE OF ALVOO1J ALVOO2J ,ug m-3 ,ALVOO2J[1], AVERAGE OF ALVOO2J ASVOO1J ,ug m-3 ,ASVOO1J[1], AVERAGE OF ASVOO1J ASVOO2J ,ug m-3 ,ASVOO2J[1], AVERAGE OF ASVOO2J ASVOO3J ,ug m-3 ,ASVOO3J[1], AVERAGE OF ASVOO3J AALK1J ,ug m-3 ,AAVB1J[1]*0.16, AE7 to AE6 Mapping ABNZ1J ,ug m-3 ,AAVB1J[1]*0.16, AE7 to AE6 Mapping ABNZ3J ,ug m-3 ,AAVB1J[1]*0.17, AE7 to AE6 Mapping ATOL3J ,ug m-3 ,AAVB1J[1]*0.17, AE7 to AE6 Mapping AXYL3J ,ug m-3 ,AAVB1J[1]*0.17, AE7 to AE6 Mapping APAH3J ,ug m-3 ,AAVB1J[1]*0.17, AE7 to AE6 Mapping AXYL1J ,ug m-3 ,AAVB2J[1]*0.33, AE7 to AE6 Mapping ATOL1J ,ug m-3 ,AAVB2J[1]*0.33, AE7 to AE6 Mapping APAH1J ,ug m-3 ,AAVB2J[1]*0.34, AE7 to AE6 Mapping ATOL2J ,ug m-3 ,AAVB3J[1], SAPRC07tc mapping OF AAVB3J ATRP1J ,ug m-3 ,AMT4J[1], SAPRC07tc mapping OF AMT4J ATRP2J ,ug m-3 ,AMT5J[1], SAPRC07tc mapping OF AMT5J NH3 ,ppmV ,NH3[1], AVERAGE OF NH3 SVISO1 ,ppmV ,SVISO1[1], AVERAGE OF SVISO1 SVISO2 ,ppmV ,SVISO2[1], AVERAGE OF SVISO2 SVSQT ,ppmV ,SVSQT[1], AVERAGE OF SVSQT LVPCSOG ,ppmV ,LVPCSOG[1], AVERAGE OF LVPCSOG SVTRP1 ,ppmV ,SVMT4[1], SAPRC07tc mapping OF SVMT4 SVTRP2 ,ppmV ,SVMT5[1], SAPRC07tc mapping OF SVMT5 ================================================ FILE: PREP/bcon/map2mech/SpecDef_saprc07tic_ae7i_aq_derived_from_cb6r3m_ae7_kmtbr.txt ================================================ /#start YYYYDDD HHMMSS /#end YYYYDDD HHMMSS /#layer KLAY (default is all layers) / ! This Specices Definition File was generated using mapping ! from CB6 for SAPRC07tic_ae7i_aq. / File [1]: CMAQ conc/aconc file /new species, units, expression, description PRES ,Pa ,PRES[1], AVERAGE OF PRES ZH ,m ,ZH[1], AVERAGE OF ZH ZF ,m ,ZF[1], AVERAGE OF ZF NO2 ,ppmV ,NO2[1], AVERAGE OF NO2 NO ,ppmV ,NO[1], AVERAGE OF NO O3P ,ppmV ,O[1], AVERAGE OF O O3 ,ppmV ,O3[1], AVERAGE OF O3 NO3 ,ppmV ,NO3[1], AVERAGE OF NO3 O1D ,ppmV ,O1D[1], AVERAGE OF O1D OH ,ppmV ,OH[1], AVERAGE OF OH HO2 ,ppmV ,HO2[1], AVERAGE OF HO2 HO2H ,ppmV ,H2O2[1], SAPRC07_ae7_tic mapping OF H2O2 N2O5 ,ppmV ,N2O5[1], AVERAGE OF N2O5 HNO3 ,ppmV ,HNO3[1], AVERAGE OF HNO3 HONO ,ppmV ,HONO[1], AVERAGE OF HONO HNO4 ,ppmV ,PNA[1], SAPRC07_ae7_tic mapping OF PNA SO2 ,ppmV ,SO2[1], AVERAGE OF SO2 SULF ,ppmV ,SULF[1], AVERAGE OF SULF MECO3 ,ppmV ,C2O3[1], SAPRC07_ae7_tic mapping OF C2O3 MEO2 ,ppmV ,MEO2[1], AVERAGE OF MEO2 PAN ,ppmV ,PAN[1], AVERAGE OF PAN CCOOOH ,ppmV ,PACD[1], SAPRC07_ae7_tic mapping OF PACD CCOOH ,ppmV ,AACD[1], SAPRC07_ae7_tic mapping OF AACD RCO3 ,ppmV ,CXO3[1], SAPRC07_ae7_tic mapping OF CXO3 CCHO ,ppmV ,ALD2[1], SAPRC07_ae7_tic mapping OF ALD2 PAN2 ,ppmV ,PANX[1], SAPRC07_ae7_tic mapping OF PANX HCHO ,ppmV ,FORM[1], SAPRC07_ae7_tic mapping OF FORM COOH ,ppmV ,MEPX[1], SAPRC07_ae7_tic mapping OF MEPX MEOH ,ppmV ,MEOH[1], AVERAGE OF MEOH ROOH ,ppmV ,ROOH[1], AVERAGE OF ROOH RNO3 ,ppmV ,NTR1[1] + NTR2[1], RNO3 is sum of NTR1+NTR2 in SAPRC07 HCOOH ,ppmV ,FACD[1], SAPRC07_ae7_tic mapping OF FACD CO ,ppmV ,CO[1], AVERAGE OF CO RCHO ,ppmV ,ALDX[1], SAPRC07_ae7_tic mapping OF ALDX HOCCHO ,ppmV ,GLYD[1], SAPRC07_ae7_tic mapping OF GLYD GLY ,ppmV ,GLY[1], AVERAGE OF GLY MGLY ,ppmV ,MGLY[1], AVERAGE OF MGLY ALK1 ,ppmV ,ETHA[1], SAPRC07_ae7_tic mapping OF ETHA ETOH ,ppmV ,ETOH[1], AVERAGE OF ETOH MEK ,ppmV ,KET[1], SAPRC07_ae7_tic mapping OF KET ALK3 ,ppmV ,PAR[1]*0.33, PAR Split equally into remaning alkanes in SAPRAC07 ALK4 ,ppmV ,PAR[1]*0.33, PAR Split equally into remaning alkanes in SAPRAC07 ALK5 ,ppmV ,PAR[1]*0.34, PAR Split equally into remaning alkanes in SAPRAC07 ACETONE ,ppmV ,ACET[1], SAPRC07_ae7_tic mapping OF ACET ALK2 ,ppmV ,PRPA[1], SAPRC07_ae7_tic mapping OF PRPA ACETYLENE ,ppmV ,ETHY[1], SAPRC07_ae7_tic mapping OF ETHY ETHENE ,ppmV ,ETH[1], SAPRC07_ae7_tic mapping OF ETH OLE1 ,ppmV ,OLE[1]*0.71, 71% of OLE1 is non-propene in SAPRAC07 PROPENE ,ppmV ,OLE[1]*0.29, 29% of OLE is propene in SAPRAC07 OLE2 ,ppmV ,IOLE[1], SAPRC07_ae7_tic mapping OF IOLE ISOPRENE ,ppmV ,ISOP[1], SAPRC07_ae7_tic mapping OF ISOP ISOPO2 ,ppmV ,ISO2[1], SAPRC07_ae7_tic mapping OF ISO2 MACR ,ppmV ,ISPD[1]*0.26, SAPRC07_ae7_tic mapping OF ISPD MVK ,ppmV ,ISPD[1]*0.35, SAPRC07_ae7_tic mapping OF ISPD IPRD ,ppmV ,ISPD[1]*0.39, SAPRC07_ae7_tic mapping OF ISPD ISOPNB ,ppmV ,INTR[1]*0.40, B & D produced in 40/60 yields of INTR in SAPRAC07 ISOPND ,ppmV ,INTR[1]*0.60, B & D produced in 40/60 yields of INTR in SAPRAC07 ISOPOOH ,ppmV ,ISPX[1], SAPRC07_ae7_tic mapping OF ISPX HPALD ,ppmV ,HPLD[1], SAPRC07_ae7_tic mapping OF HPLD MACO3 ,ppmV ,OPO3[1], SAPRC07_ae7_tic mapping OF OPO3 IEPOX ,ppmV ,EPOX[1], SAPRC07_ae7_tic mapping OF EPOX IEPOXOO ,ppmV ,EPX2[1], SAPRC07_ae7_tic mapping OF EPX2 TERP ,ppmV ,TERP[1], AVERAGE OF TERP APIN ,ppmV ,APIN[1], AVERAGE OF APIN TERPNRO2 ,ppmV ,TERPNRO2[1], AVERAGE OF TERPNRO2 MTNO3 ,ppmV ,MTNO3[1], AVERAGE OF MTNO3 BENZENE ,ppmV ,BENZENE[1], AVERAGE OF BENZENE CRES ,ppmV ,CRES[1], AVERAGE OF CRES AFG1 ,ppmV ,OPEN[1]*0.50, unsaturated aldehydes from aromatic of OPEN in SAPRAC07 AFG2 ,ppmV ,OPEN[1]*0.50, unsaturated aldehydes from aromatic of OPEN in SAPRAC07 BENZRO2 ,ppmV ,BENZRO2[1], AVERAGE OF BENZRO2 ARO1 ,ppmV ,TOL[1], 75% of TOL in SAPRAC07; rest not listed explicitly TOLRO2 ,ppmV ,TOLRO2[1], AVERAGE OF TOLRO2 AFG3 ,ppmV ,XOPN[1], SAPRC07_ae7_tic mapping OF XOPN ARO2MN ,ppmV ,XYLMN[1]*0.58, SAPRC07_ae7_tic mapping OF XYLMN MXYL ,ppmV ,XYLMN[1]*0.13, m-xylene is 13% of ARO2 in SAPRC07 OXYL ,ppmV ,XYLMN[1]*0.11, o-xylene is 11% of ARO2 in SAPRC07 PXYL ,ppmV ,XYLMN[1]*0.13, p-xylene is 13% of ARO2 in SAPRC07 TMBENZ124 ,ppmV ,XYLMN[1]*0.05, 1,2,4-TMB is 5% of ARO2 in SAPRC07 XYLRO2 ,ppmV ,XYLRO2[1], AVERAGE OF XYLRO2 NAPHTHAL ,ppmV ,NAPH[1], SAPRC07_ae7_tic mapping OF NAPH PAHRO2 ,ppmV ,PAHRO2[1], AVERAGE OF PAHRO2 BZO ,ppmV ,CRO[1], SAPRC07_ae7_tic mapping OF CRO NPHE ,ppmV ,CRON[1], SAPRC07_ae7_tic mapping OF CRON MAPAN ,ppmV ,OPAN[1], SAPRC07_ae7_tic mapping OF OPAN CL2 ,ppmV ,CL2[1], AVERAGE OF CL2 CL ,ppmV ,CL[1], AVERAGE OF CL CLO ,ppmV ,CLO[1], AVERAGE OF CLO CLCHO ,ppmV ,FMCL[1], SAPRC07_ae7_tic mapping OF FMCL HCL ,ppmV ,HCL[1], AVERAGE OF HCL CLNO2 ,ppmV ,CLNO2[1], AVERAGE OF CLNO2 CLONO2 ,ppmV ,CLNO3[1], SAPRC07_ae7_tic mapping OF CLNO3 SESQ ,ppmV ,SESQ[1], AVERAGE OF SESQ SOAALK ,ppmV ,SOAALK[1], AVERAGE OF SOAALK H2NO3PIJ ,ppmV ,H2NO3PIJ[1], AVERAGE OF H2NO3PIJ H2NO3PK ,ppmV ,H2NO3PK[1], AVERAGE OF H2NO3PK VLVPO1 ,ppmV ,VLVPO1[1], AVERAGE OF VLVPO1 VSVPO1 ,ppmV ,VSVPO1[1], AVERAGE OF VSVPO1 VSVPO2 ,ppmV ,VSVPO2[1], AVERAGE OF VSVPO2 VSVPO3 ,ppmV ,VSVPO3[1], AVERAGE OF VSVPO3 VIVPO1 ,ppmV ,VIVPO1[1], AVERAGE OF VIVPO1 VLVOO1 ,ppmV ,VLVOO1[1], AVERAGE OF VLVOO1 VLVOO2 ,ppmV ,VLVOO2[1], AVERAGE OF VLVOO2 VSVOO1 ,ppmV ,VSVOO1[1], AVERAGE OF VSVOO1 VSVOO2 ,ppmV ,VSVOO2[1], AVERAGE OF VSVOO2 VSVOO3 ,ppmV ,VSVOO3[1], AVERAGE OF VSVOO3 PCVOC ,ppmV ,PCVOC[1], AVERAGE OF PCVOC HCHO_PRIMARY ,ppmV ,FORM_PRIMARY[1], SAPRC07_ae7_tic mapping OF FORM_PRIMARY CCHO_PRIMARY ,ppmV ,ALD2_PRIMARY[1], SAPRC07_ae7_tic mapping OF ALD2_PRIMARY BUTADIENE13 ,ppmV ,BUTADIENE13[1], AVERAGE OF BUTADIENE13 ACROLEIN ,ppmV ,ACROLEIN[1], AVERAGE OF ACROLEIN ACRO_PRIMARY ,ppmV ,ACRO_PRIMARY[1], AVERAGE OF ACRO_PRIMARY TOLUENE ,ppmV ,TOLU[1], SAPRC07_ae7_tic mapping OF TOLU SVAVB1 ,ppmV ,SVAVB1[1], AVERAGE OF SVAVB1 SVAVB2 ,ppmV ,SVAVB2[1], AVERAGE OF SVAVB2 SVAVB3 ,ppmV ,SVAVB3[1], AVERAGE OF SVAVB3 SVAVB4 ,ppmV ,SVAVB4[1], AVERAGE OF SVAVB4 ASO4J ,ug m-3 ,ASO4J[1], AVERAGE OF ASO4J ASO4I ,ug m-3 ,ASO4I[1], AVERAGE OF ASO4I ANH4J ,ug m-3 ,ANH4J[1], AVERAGE OF ANH4J ANH4I ,ug m-3 ,ANH4I[1], AVERAGE OF ANH4I ANO3J ,ug m-3 ,ANO3J[1], AVERAGE OF ANO3J ANO3I ,ug m-3 ,ANO3I[1], AVERAGE OF ANO3I AISO1J ,ug m-3 ,AISO1J[1], AVERAGE OF AISO1J AISO2J ,ug m-3 ,AISO2J[1], AVERAGE OF AISO2J ASQTJ ,ug m-3 ,ASQTJ[1], AVERAGE OF ASQTJ AORGCJ ,ug m-3 ,AORGCJ[1], AVERAGE OF AORGCJ AECJ ,ug m-3 ,AECJ[1], AVERAGE OF AECJ AECI ,ug m-3 ,AECI[1], AVERAGE OF AECI AOTHRJ ,ug m-3 ,AOTHRJ[1], AVERAGE OF AOTHRJ AOTHRI ,ug m-3 ,AOTHRI[1], AVERAGE OF AOTHRI AFEJ ,ug m-3 ,AFEJ[1], AVERAGE OF AFEJ AALJ ,ug m-3 ,AALJ[1], AVERAGE OF AALJ ASIJ ,ug m-3 ,ASIJ[1], AVERAGE OF ASIJ ATIJ ,ug m-3 ,ATIJ[1], AVERAGE OF ATIJ ACAJ ,ug m-3 ,ACAJ[1], AVERAGE OF ACAJ AMGJ ,ug m-3 ,AMGJ[1], AVERAGE OF AMGJ AKJ ,ug m-3 ,AKJ[1], AVERAGE OF AKJ AMNJ ,ug m-3 ,AMNJ[1], AVERAGE OF AMNJ ACORS ,ug m-3 ,ACORS[1], AVERAGE OF ACORS ASOIL ,ug m-3 ,ASOIL[1], AVERAGE OF ASOIL NUMATKN ,m-3 ,NUMATKN[1], AVERAGE OF NUMATKN NUMACC ,m-3 ,NUMACC[1], AVERAGE OF NUMACC NUMCOR ,m-3 ,NUMCOR[1], AVERAGE OF NUMCOR SRFATKN ,m2 m-3 ,SRFATKN[1], AVERAGE OF SRFATKN SRFACC ,m2 m-3 ,SRFACC[1], AVERAGE OF SRFACC SRFCOR ,m2 m-3 ,SRFCOR[1], AVERAGE OF SRFCOR AORGH2OJ ,ug m-3 ,AORGH2OJ[1], AVERAGE OF AORGH2OJ AH2OJ ,ug m-3 ,AH2OJ[1], AVERAGE OF AH2OJ AH2OI ,ug m-3 ,AH2OI[1], AVERAGE OF AH2OI AH3OPJ ,ug m-3 ,AH3OPJ[1], AVERAGE OF AH3OPJ AH3OPI ,ug m-3 ,AH3OPI[1], AVERAGE OF AH3OPI ANAJ ,ug m-3 ,ANAJ[1], AVERAGE OF ANAJ ANAI ,ug m-3 ,ANAI[1], AVERAGE OF ANAI ACLJ ,ug m-3 ,ACLJ[1], AVERAGE OF ACLJ ACLI ,ug m-3 ,ACLI[1], AVERAGE OF ACLI ASEACAT ,ug m-3 ,ASEACAT[1], AVERAGE OF ASEACAT ACLK ,ug m-3 ,ACLK[1], AVERAGE OF ACLK ASO4K ,ug m-3 ,ASO4K[1], AVERAGE OF ASO4K ANH4K ,ug m-3 ,ANH4K[1], AVERAGE OF ANH4K ANO3K ,ug m-3 ,ANO3K[1], AVERAGE OF ANO3K AH2OK ,ug m-3 ,AH2OK[1], AVERAGE OF AH2OK AH3OPK ,ug m-3 ,AH3OPK[1], AVERAGE OF AH3OPK AISO3J ,ug m-3 ,AISO3J[1], AVERAGE OF AISO3J AOLGAJ ,ug m-3 ,AOLGAJ[1], AVERAGE OF AOLGAJ AOLGBJ ,ug m-3 ,AOLGBJ[1], AVERAGE OF AOLGBJ AGLYJ ,ug m-3 ,AGLYJ[1], AVERAGE OF AGLYJ AMTNO3J ,ug m-3 ,AMTNO3J[1], AVERAGE OF AMTNO3J AMTHYDJ ,ug m-3 ,AMTHYDJ[1], AVERAGE OF AMTHYDJ APCSOJ ,ug m-3 ,APCSOJ[1], AVERAGE OF APCSOJ ALVPO1I ,ug m-3 ,ALVPO1I[1], AVERAGE OF ALVPO1I ASVPO1I ,ug m-3 ,ASVPO1I[1], AVERAGE OF ASVPO1I ASVPO2I ,ug m-3 ,ASVPO2I[1], AVERAGE OF ASVPO2I ALVPO1J ,ug m-3 ,ALVPO1J[1], AVERAGE OF ALVPO1J ASVPO1J ,ug m-3 ,ASVPO1J[1], AVERAGE OF ASVPO1J ASVPO2J ,ug m-3 ,ASVPO2J[1], AVERAGE OF ASVPO2J ASVPO3J ,ug m-3 ,ASVPO3J[1], AVERAGE OF ASVPO3J AIVPO1J ,ug m-3 ,AIVPO1J[1], AVERAGE OF AIVPO1J ALVOO1I ,ug m-3 ,ALVOO1I[1], AVERAGE OF ALVOO1I ALVOO2I ,ug m-3 ,ALVOO2I[1], AVERAGE OF ALVOO2I ASVOO1I ,ug m-3 ,ASVOO1I[1], AVERAGE OF ASVOO1I ASVOO2I ,ug m-3 ,ASVOO2I[1], AVERAGE OF ASVOO2I ALVOO1J ,ug m-3 ,ALVOO1J[1], AVERAGE OF ALVOO1J ALVOO2J ,ug m-3 ,ALVOO2J[1], AVERAGE OF ALVOO2J ASVOO1J ,ug m-3 ,ASVOO1J[1], AVERAGE OF ASVOO1J ASVOO2J ,ug m-3 ,ASVOO2J[1], AVERAGE OF ASVOO2J ASVOO3J ,ug m-3 ,ASVOO3J[1], AVERAGE OF ASVOO3J AAVB1J ,ug m-3 ,AAVB1J[1], AVERAGE OF AAVB1J AAVB2J ,ug m-3 ,AAVB2J[1], AVERAGE OF AAVB2J AAVB3J ,ug m-3 ,AAVB3J[1], AVERAGE OF AAVB3J AAVB4J ,ug m-3 ,AAVB4J[1], AVERAGE OF AAVB4J AMT1J ,ug m-3 ,AMT1J[1], AVERAGE OF AMT1J AMT2J ,ug m-3 ,AMT2J[1], AVERAGE OF AMT2J AMT3J ,ug m-3 ,AMT3J[1], AVERAGE OF AMT3J AMT4J ,ug m-3 ,AMT4J[1], AVERAGE OF AMT4J AMT5J ,ug m-3 ,AMT5J[1], AVERAGE OF AMT5J AMT6J ,ug m-3 ,AMT6J[1], AVERAGE OF AMT6J NH3 ,ppmV ,NH3[1], AVERAGE OF NH3 SVISO1 ,ppmV ,SVISO1[1], AVERAGE OF SVISO1 SVISO2 ,ppmV ,SVISO2[1], AVERAGE OF SVISO2 SVSQT ,ppmV ,SVSQT[1], AVERAGE OF SVSQT LVPCSOG ,ppmV ,LVPCSOG[1], AVERAGE OF LVPCSOG SVMT1 ,ppmV ,SVMT1[1], AVERAGE OF SVMT1 SVMT2 ,ppmV ,SVMT2[1], AVERAGE OF SVMT2 SVMT3 ,ppmV ,SVMT3[1], AVERAGE OF SVMT3 SVMT4 ,ppmV ,SVMT4[1], AVERAGE OF SVMT4 SVMT5 ,ppmV ,SVMT5[1], AVERAGE OF SVMT5 SVMT6 ,ppmV ,SVMT6[1], AVERAGE OF SVMT6 ================================================ FILE: PREP/bcon/map2mech/run_combine_mechanism_mapping.csh ================================================ #! /bin/csh -f # ====================== COMBINE_v5.4 Run Script ======================== # Usage: run.combine.uncoupled.csh >&! combine_v53_uncoupled.log & # # To report problems or request help with this script/program: # http://www.epa.gov/cmaq (EPA CMAQ Website) # http://www.cmascenter.org (CMAS Website) # =================================================================== set CMAQ_HOME = /home/user/CMAQ_Project set CMAQ_DATA = /home/user/CMAQ_Project/data set compiler = intel set compilerVrsn = 18.0 set compilerString = ${compiler}${compilerVrsn} set VRSN = v54 set BINDIR = $CMAQ_HOME/POST/combine/scripts/BLD_combine_${VRSN}_${compilerString} set EXEC = combine_${VRSN}.exe setenv GENSPEC N #> Set the species definition file used for mechanism mapping setenv SPECIES_DEF SpecDef_racm_ae6_aq_derived_from_cb6r3m_ae7_kmtbr.txt #setenv SPECIES_DEF SpecDef_racm2_ae6_aq_derived_from_cb6r3m_ae7_kmtbr.txt #setenv SPECIES_DEF SpecDef_saprc07tc_ae6_aq_derived_from_cb6r3m_ae7_kmtbr.txt #setenv SPECIES_DEF SpecDef_saprc07tic_ae7i_aq_derived_from_cb6r3m_ae7_kmtbr.txt #setenv SPECIES_DEF SpecDef_cracmm1_aq_derived_from_cb6r5m_ae7_aq.txt #setenv SPECIES_DEF SpecDef_cracmm2_derived_from_cb6r5m_ae7_aq.txt #> Set the input file, e.g. the seasonal average H-CMAQ file #> CCTM_CONC_v53beta2_intel17.0_HEMIS_cb6r3m_ae7_kmtbr_m3dry_2016_quarterly_av.nc #> available for download from the CMAS data warehouse setenv INFILE1 ${CMAQ_DATA}/CCTM_CONC_v53beta2_intel17.0_HEMIS_cb6r3m_ae7_kmtbr_m3dry_2016_quarterly_av.nc #> Set the output file containing the mapped species setenv OUTFILE ${CMAQ_DATA}/CCTM_CONC_v53beta2_intel17.0_HEMIS_racm_ae6_aq_derived_from_cb6r3m_ae7_kmtbr_m3dry_2016_quarterly_av.nc #setenv OUTFILE ${CMAQ_DATA}/CCTM_CONC_v53beta2_intel17.0_HEMIS_racm2_ae6_aq_derived_from_cb6r3m_ae7_kmtbr_m3dry_2016_quarterly_av.nc #setenv OUTFILE ${CMAQ_DATA}/CCTM_CONC_v53beta2_intel17.0_HEMIS_saprc07tc_ae6_aq_derived_from_cb6r3m_ae7_kmtbr_m3dry_2016_quarterly_av.nc #setenv OUTFILE ${CMAQ_DATA}/CCTM_CONC_v53beta2_intel17.0_HEMIS_saprc07tic_ae7i_aq_derived_from_cb6r3m_ae7_kmtbr_m3dry_2016_quarterly_av.nc #setenv OUTFILE ${CMAQ_DATA}/CCTM_CONC_v53beta2_intel17.0_HEMIS_cracmm1_aq_derived_from_cb6r3m_ae7_kmtbr_m3dry_2016_quarterly_av.nc #setenv OUTFILE ${CMAQ_DATA}/CCTM_CONC_v53beta2_intel17.0_HEMIS_cracmm2_derived_from_cb6r3m_ae7_kmtbr_m3dry_2016_quarterly_av.nc #> Executable call: ${BINDIR}/${EXEC} exit() ================================================ FILE: PREP/bcon/scripts/bldit_bcon.csh ================================================ #!/bin/csh -f # ====================== BCONv5.5.X Build Script ====================== # Usage: bldit_bcon.csh >&! bldit_bcon.log # Requirements: I/O API & netCDF libs and a Fortran compiler # Note that this script is configured/tested for Red Hat Linux O/S # # To report problems or request help with this script/program: # http://www.cmascenter.org # =================================================================== #> Set Compiler Identity by User Input: Options -> intel | pgi | gcc if ( $#argv == 1 ) then setenv compiler $argv[1] setenv compilerVrsn Empty else if ( $#argv == 2 ) then #> Compiler Name and Version have been provided setenv compiler $1 setenv compilerVrsn $2 else echo "usage: $0 " echo " where is intel, pgi or gcc" exit(2) endif #> Source the config.cmaq file to set the build environment cd ../../../ source ./config_cmaq.csh set echo # ======================================================================= #> Begin User Input Section # ======================================================================= #> Source Code Locations set BCON_SRC = ${CMAQ_REPO}/PREP/bcon/src #> location of the BCON source code setenv REPOROOT $BCON_SRC #> Working directory and Version IDs set VRSN = v55 #> Code Version set EXEC = BCON_${VRSN}.exe #> executable name for this application set CFG = BCON_${VRSN}.cfg #> BLDMAKE configuration file name #> Controls for managing the source code and MPI compilation set CompileBLDMAKE #> Recompile the BLDMAKE utility from source #> comment out to use an existing BLDMAKE executable set CopySrc #> copy the source files into the BLD directory #set CopySrcTree #> copy the source files and directory tree into the build directory #set Opt = verbose #> show requested commands as they are executed #set MakeFileOnly #> uncomment to build a Makefile, but do not compile; #> comment out to compile the model (default if not set) #set Debug_BCON #> uncomment to compile BCON with debug option equal to TRUE #> comment out to use standard, optimized compile process #>============================================================================== #> BCON Science Modules #> #> NOTE: BC type is now a runtime option. All BC types are included at #> compile time #>============================================================================== set ModCommon = common set ModM3conc = m3conc set ModProfile = profile #>#>#>#>#>#>#>#>#>#>#>#>#>#> End User Input Section #<#<#<#<#<#<#<#<#<#<#<#<#<# #>#>#>#>#>#>#>#>#>#>#>#>#>#>#>#>#>#>#>#<#<#<#<#<#<#<#<#<#<#<#<#<#<#<#<#<#<#<#<# #> Set full path of Fortran 90 compiler set FC = ${myFC} set FP = $FC setenv BLDER ${CMAQ_HOME}/UTIL/bldmake/bldmake_${compilerString}.exe #> name of model builder executable #> Set compiler flags set xLib_Base = ${CMAQ_LIB} set xLib_1 = ioapi/lib set xLib_2 = ioapi/include_files set xLib_4 = ioapi/lib set FSTD = "${myFSTD}" set DBG = "${myDBG}" set F_FLAGS = "${myFFLAGS}" set F90_FLAGS = "${myFRFLAGS}" set CPP_FLAGS = "" set LINK_FLAGS = "${myLINK_FLAG}" set LIB1 = "$ioapi_lib" set LIB2 = "$netcdf_lib $extra_lib" set LIB3 = "$netcdff_lib" #============================================================================================ #> Implement User Input #============================================================================================ #> Check for CMAQ_REPO and CMAQ_LIB settings: if ( ! -e $CMAQ_REPO || ! -e $CMAQ_LIB ) then echo " $CMAQ_REPO or $CMAQ_LIB directory not found" exit 1 endif echo " Model repository base path: $CMAQ_REPO" echo " library path: $CMAQ_LIB" #> If $CMAQ_MODEL is not set, default to $CMAQ_REPO if ( $?CMAQ_MODEL ) then echo " Model repository path: $CMAQ_MODEL" else #> This script was written for Linux hosts only. If #> the host system is not Linux, produce an error and stop set BLD_OS = `uname -s` if ($BLD_OS != 'Linux') then echo " $BLD_OS -> wrong bldit script for host!" exit 1 endif #> Set and create the "BLD" directory for checking out and compiling #> source code. Move current directory to that build directory. set Bld = $CMAQ_HOME/PREP/bcon/scripts/BLD_BCON_${VRSN}_${compilerString} if ( ! -e "$Bld" ) then mkdir $Bld else if ( ! -d "$Bld" ) then echo " *** target exists, but not a directory ***" exit 1 endif endif cd $Bld #> make the config file set Cfile = $CFG.bld set quote = '"' echo > $Cfile echo "model $EXEC;" >> $Cfile echo >> $Cfile echo "repo $BCON_SRC;" >> $Cfile echo >> $Cfile echo "lib_base $xLib_Base;" >> $Cfile echo >> $Cfile echo "lib_1 $xLib_1;" >> $Cfile echo >> $Cfile echo "lib_2 $xLib_2;" >> $Cfile echo >> $Cfile echo "lib_4 $xLib_4;" >> $Cfile echo >> $Cfile set text = "$quote$CPP_FLAGS$quote;" echo "cpp_flags $text" >> $Cfile echo >> $Cfile echo "f_compiler $FC;" >> $Cfile echo >> $Cfile echo "fstd $quote$FSTD$quote;" >> $Cfile echo >> $Cfile echo "dbg $quote$DBG$quote;" >> $Cfile echo >> $Cfile echo "f_flags $quote$F_FLAGS$quote;" >> $Cfile echo >> $Cfile echo "f90_flags $quote$F90_FLAGS$quote;" >> $Cfile echo >> $Cfile echo "link_flags $quote$LINK_FLAGS$quote;" >> $Cfile echo >> $Cfile echo "ioapi $quote$LIB1$quote;" >> $Cfile echo >> $Cfile echo "netcdf $quote$LIB2$quote;" >> $Cfile echo >> $Cfile echo "netcdff $quote$LIB3$quote;" >> $Cfile echo >> $Cfile echo "// project repository location: ${BCON_SRC}" >> $Cfile echo >> $Cfile set text = "common" echo "// required" $text >> $Cfile echo "Module ${ModCommon};" >> $Cfile echo >> $Cfile set text = "m3conc" echo "// options are" $text >> $Cfile echo "Module ${ModM3conc};" >> $Cfile echo >> $Cfile set text = "profile" echo "// options are" $text >> $Cfile echo "Module ${ModProfile};" >> $Cfile echo >> $Cfile if ( $?ModMisc ) then echo "Module ${ModMisc};" >> $Cfile echo >> $Cfile endif # ============================================================================ #> Create Makefile and Model Executable # ============================================================================ unalias mv rm #> Recompile BLDMAKE from source if requested or if it does not exist if ( $?CompileBLDMAKE || ! -f $BLDER ) then cd ${CMAQ_REPO}/UTIL/bldmake/scripts ./bldit_bldmake.csh endif set Blder = "$BLDER -serial -verbose" #> Relocate to the BLD_* directory cd $Bld # Set BCON debug flags if true if ( $?Debug_BCON ) then set Blder = "${Blder} -debug_cctm" endif #> Run BLDMAKE Utility if ( $?MakeFileOnly ) then if ( $?CopySrc ) then $Blder -makefo $Cfile else $Blder -makefo -git_local $Cfile # $Cfile = ${CFG} # totalview -a $Blder -makefo $Cfile endif else # also compile the model if ( $?CopySrc ) then $Blder $Cfile else $Blder -git_local $Cfile endif endif #> Rename Makefile to specify compiler option and link back to Makefile mv Makefile Makefile.$compilerString if ( -e Makefile.$compilerString && -e Makefile ) rm Makefile ln -s Makefile.$compilerString Makefile #> Alert user of error in BLDMAKE if it ocurred if ( $status != 0 ) then echo " *** failure in $Blder ***" exit 1 endif #> Preserve old Config file, if it exists, before moving new one to #> build directory. if ( -e "$Bld/${CFG}" ) then echo " >>> previous ${CFG} exists, re-naming to ${CFG}.old <<<" unalias mv mv $Bld/${CFG} $Bld/${CFG}.old endif mv ${CFG}.bld $Bld/${CFG} exit ================================================ FILE: PREP/bcon/scripts/run_bcon.csh ================================================ #!/bin/csh -f # ======================= BCONv5.5.X Run Script ======================== # Usage: run_bcon.csh >&! bcon.log & # # To report problems or request help with this script/program: # http://www.cmascenter.org # ==================================================================== # ================================================================== #> Runtime Environment Options # ================================================================== #> Choose compiler and set up CMAQ environment with correct #> libraries using config.cmaq. Options: intel | gcc | pgi setenv compiler intel #> Source the config_cmaq file to set the run environment pushd ../../../ source ./config_cmaq.csh $compiler popd #> Check that CMAQ_DATA is set: if ( ! -e $CMAQ_DATA ) then echo " $CMAQ_DATA path does not exist" exit 1 endif echo " "; echo " Input data path, CMAQ_DATA set to $CMAQ_DATA"; echo " " #> Set General Parameters for Configuring the Simulation set VRSN = v55 #> Code Version set APPL = 2016_12SE1 #> Application Name set BCTYPE = regrid #> Boundary condition type [profile|regrid] #> Set the build directory: set BLD = ${CMAQ_HOME}/PREP/bcon/scripts/BLD_BCON_${VRSN}_${compilerString} set EXEC = BCON_${VRSN}.exe cat $BLD/BCON_${VRSN}.cfg; echo " "; set echo #> Horizontal grid definition setenv GRID_NAME SE53BENCH #> check GRIDDESC file for GRID_NAME options #setenv GRIDDESC $CMAQ_DATA/$APPL/met/mcip/GRIDDESC #> grid description file setenv GRIDDESC /work/MOD3DATA/SE53BENCH/met/mcipv4.5/GRIDDESC setenv IOAPI_ISPH 20 #> GCTP spheroid, use 20 for WRF-based modeling #> I/O Controls setenv IOAPI_LOG_WRITE F #> turn on excess WRITE3 logging [ options: T | F ] setenv IOAPI_OFFSET_64 YES #> support large timestep records (>2GB/timestep record) [ options: YES | NO ] setenv EXECUTION_ID $EXEC #> define the model execution id # ===================================================================== #> BCON Configuration Options # # BCON can be run in one of two modes: # 1) regrids CMAQ CTM concentration files (BC type = regrid) # 2) use default profile inputs (BC type = profile) # ===================================================================== setenv BCON_TYPE ` echo $BCTYPE | tr "[A-Z]" "[a-z]" ` # ===================================================================== #> Input/Output Directories # ===================================================================== set OUTDIR = $CMAQ_HOME/data/bcon #> output file directory # ===================================================================== #> Input Files # # Regrid mode (BC = regrid) (includes nested domains, windowed domains, # or general regridded domains) # CTM_CONC_1 = the CTM concentration file for the coarse domain # MET_CRO_3D_CRS = the MET_CRO_3D met file for the coarse domain # MET_BDY_3D_FIN = the MET_BDY_3D met file for the target nested domain # # Profile mode (BC type = profile) # BC_PROFILE = static/default BC profiles # MET_BDY_3D_FIN = the MET_BDY_3D met file for the target domain # # NOTE: SDATE (yyyyddd), STIME (hhmmss) and RUNLEN (hhmmss) are only # relevant to the regrid mode and if they are not set, # these variables will be set from the input MET_BDY_3D_FIN file # ===================================================================== #> Output File # BNDY_CONC_1 = gridded BC file for target domain # ===================================================================== set DATE = "2016-07-01" set YYYYJJJ = `date -ud "${DATE}" +%Y%j` #> Convert YYYY-MM-DD to YYYYJJJ set YYMMDD = `date -ud "${DATE}" +%y%m%d` #> Convert YYYY-MM-DD to YYMMDD set YYYYMMDD = `date -ud "${DATE}" +%Y%m%d` #> Convert YYYY-MM-DD to YYYYMMDD # setenv SDATE ${YYYYJJJ} # setenv STIME 000000 # setenv RUNLEN 240000 if ( $BCON_TYPE == regrid ) then setenv CTM_CONC_1 /work/MOD3EVAL/sjr/CCTM_CONC_v53beta2_intel17.0_HEMIS_cb6r3m_ae7_kmtbr_m3dry_2016_quarterly_av.nc setenv MET_CRO_3D_CRS /work/MOD3DATA/2016_12US1/met/mcip_v43_wrf_v381_ltng/METCRO3D.12US1.35L.${YYMMDD} setenv MET_BDY_3D_FIN /work/MOD3DATA/SE53BENCH/met/mcipv4.5/METBDY3D_${YYMMDD}.nc setenv BNDY_CONC_1 "$OUTDIR/BCON_${APPL}_${BCON_TYPE}_${YYYYMMDD} -v" endif if ( $BCON_TYPE == profile ) then setenv BC_PROFILE $BLD/avprofile_cb6r3m_ae7_kmtbr_hemi2016_v53beta2_m3dry_col051_row068.csv setenv MET_BDY_3D_FIN /work/MOD3DATA/SE53BENCH/met/mcipv4.5/METBDY3D_${YYMMDD}.nc setenv BNDY_CONC_1 "$OUTDIR/BCON_${APPL}_${BCON_TYPE}_${YYYYMMDD} -v" endif # ===================================================================== #> Output File # ===================================================================== #>- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - if ( ! -d "$OUTDIR" ) mkdir -p $OUTDIR ls -l $BLD/$EXEC; size $BLD/$EXEC unlimit limit #> Executable call: time $BLD/$EXEC set progstat = ${status} if ( ${progstat} ) then echo "ERROR ${progstat} in $BLD/$EXEC" exit( ${progstat} ) endif exit() ================================================ FILE: PREP/bcon/src/common/BC_PARMS.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! MODULE BC_PARMS C...................................................................... C From INCLUDE FILE: BC_PARMS.EXT C CONTAINS: Dimensioning parameters and data for BCON C DEPENDENT UPON: None C REVISION HISTORY: Prototype created by Jerry Gipson, January, 1998 C Modified by JG May, 1999 to treat PinG concs C Remove PING by J.Young July, 2011 C...................................................................... !terra5:/home/yoj/src/arc/BCON-git> find /home/yoj/src/arc/BCON-git -name '*.[fF]' -exec grep -i BC_PARMS.EXT {} \; -print ! INCLUDE 'BC_PARMS.EXT' ! BCON paramters !/home/yoj/src/arc/BCON-git/common/bcon.F ! INCLUDE 'BC_PARMS.EXT' ! BCON parameters !/home/yoj/src/arc/BCON-git/common/lst_spc_map.F ! INCLUDE 'BC_PARMS.EXT' ! BCON parameters !/home/yoj/src/arc/BCON-git/common/ngc_spc_map.F ! INCLUDE 'BC_PARMS.EXT' ! BCON parameters !/home/yoj/src/arc/BCON-git/common/opn_bc_file.F ! INCLUDE 'BC_PARMS.EXT' ! BCON paramters !/home/yoj/src/arc/BCON-git/m3conc/m3_bcout.F ! INCLUDE 'BC_PARMS.EXT' ! BCON paramters !/home/yoj/src/arc/BCON-git/m3conc/m3_ck_bdy.F ! INCLUDE 'BC_PARMS.EXT' ! ICON parameters !/home/yoj/src/arc/BCON-git/m3conc/m3_ck_ctms.F ! INCLUDE 'BC_PARMS.EXT' ! BCON paramters !/home/yoj/src/arc/BCON-git/m3conc/m3_ck_met.F ! INCLUDE 'BC_PARMS.EXT' ! BCON paramters !/home/yoj/src/arc/BCON-git/m3conc/m3_driver.F ! INCLUDE 'BC_PARMS.EXT' ! BCON paramters !/home/yoj/src/arc/BCON-git/m3conc/m3_vinterp.F ! INCLUDE 'BC_PARMS.EXT' ! BCON paramters !/home/yoj/src/arc/BCON-git/profile/prof_bcout.F ! INCLUDE 'BC_PARMS.EXT' ! BCON paramters !/home/yoj/src/arc/BCON-git/profile/prof_driver.F ! INCLUDE 'BC_PARMS.EXT' ! BCON paramters !/home/yoj/src/arc/BCON-git/profile/prof_vinterp.F ! INCLUDE 'BC_PARMS.EXT' ! BCON paramters !/home/yoj/src/arc/BCON-git/tracer/trac_bc.F ! INCLUDE 'BC_PARMS.EXT' ! BCON paramters !/home/yoj/src/arc/BCON-git/tracer/trac_driver.F C Dimensioning parameters INTEGER, PARAMETER :: MX_MECHFL_BC = 500 ! Max no. of species INTEGER, PARAMETER :: MX_INFL_SP = 500 ! Max no. of species in an input file INTEGER, PARAMETER :: MXCTMS = 3 ! Max no. of input CTM files C Type declarations C Root names of possible output files INTEGER, PARAMETER :: NROOTS = 5 CHARACTER( 16 ) :: BCFL_ROOT( NROOTS ) = (/ ! Output file root names & 'BNDY_CONC_', & 'BNDY_GASC_', & 'BNDY_AERO_', & 'BNDY_NONR_', & 'BNDY_TRAC_' /) C Catalogued tracer species names INTEGER, PARAMETER :: NTRACERS = 8 ! No. of catalogued tracers CHARACTER( 16 ) :: TRAC_NAME( NTRACERS ) = (/ ! Catalogued tracer names & 'IC1_BC0', & 'IC1_BC1', & 'IC0_BC1', & 'STREET ', & 'CHKBRD ', & 'SPOS_A ', & 'SPOS_B ', & 'SPOS_C ' /) C Descriptions of tracers species CHARACTER( 80 ) :: TRAC_DESC( NTRACERS ) = (/ ! Description of catalogued tracers & 'Uniform IC/BC with IC = 1.0 and BC 0.0 ', & 'Uniform IC/BC with IC = 1.0 and BC 1.0 ', & 'Uniform IC/BC with IC = 0.0 and BC 0.0 ', & 'Checkerboard pattern of IC/BC = 1.0 & 0.0', & 'Street pattern of IC/BC = 1.0 & 0.0 ', & 'Signal A for superposition test, A-B-C=0 ', & 'Signal B for superposition test, A-B-C=0 ', & 'Signal C for superposition test, A-B-C=0 ' /) C Descriptions of catalogued vertical coordinate systems CHARACTER( 23 ) :: VGDESC( 8 ) = (/ ! Description of vertical grid type & 'Hydrostatic sigma-p ', & 'Non-hydrostatic sigma-p', & 'Sigma-z ', & 'Pressure (mb) ', & 'Z (m above sea level) ', & 'H (m above ground ', & 'WRF mass-core sigma ', & 'WRF NMM ' /) C When generating "fine grid" bcon output from a "coarse grid" concentration file... C If the vertical grid type is different between the input concentration file and C the targeted, output bcon file, the mid-layer height fields (ZH) for both the C "coarse" input and the "fine" output are required from appropriate MET_CRO_3D files. CHARACTER( 16 ) :: MET_CRO_3D_CRS = 'MET_CRO_3D_CRS' ! coarse grid CHARACTER( 16 ) :: MET_BDY_3D_FIN = 'MET_BDY_3D_FIN' ! fine grid END MODULE BC_PARMS ================================================ FILE: PREP/bcon/src/common/HGRD_DEFN.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/BCON/src/common/HGRD_DEFN.F,v 1.2 2011/10/21 16:52:31 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: MODULE HGRD_DEFN C Define the horizontal domain, globally and for each processor, if parallel C Revision History: David Wong 18 Feb 01: created C Jeff Young 23 Feb 01: generalize C 31 Mar 01: add BLKPRM.EXT C 10 Nov 01: change to use GRIDDESC, env vars C J Gipson 01 Sep 04: change block size to 50 C J Young 07 Dec 04: remove layer dependency (for MXCELLS, C MXBLKS) to implement vertical layer C dyn alloc appropriately C J Young 22 Dec 05: move proc. anayl. stuff to PAGRD_DEFN C J.Young 13 Jul 11: Replaced I/O API include files C with M3UTILIO; simplified for no parallel C....................................................................... IMPLICIT NONE C grid name selected from GRIDDESC CHARACTER( 16 ), SAVE :: GRID_NAME C returned coordinate system (projection) CHARACTER( 16 ), SAVE :: COORD_SYS_NAME C map projection type (should be named PRTYP_GD!) INTEGER, SAVE :: GDTYP_GD = 2 ! LAMGRD3 C first map projection parameter (degrees) REAL( 8 ), SAVE :: P_ALP_GD = 30.0 C second map projection parameter (degrees) REAL( 8 ), SAVE :: P_BET_GD = 60.0 C third map projection parameter (degrees) REAL( 8 ), SAVE :: P_GAM_GD = -90.0 C longitude for coord-system center (degrees) REAL( 8 ), SAVE :: XCENT_GD = -90.0 C latitude for coord-system center (degrees) REAL( 8 ), SAVE :: YCENT_GD = 40.0 REAL( 8 ), SAVE :: XORIG_GD ! X-coordinate origin of computational grid REAL( 8 ), SAVE :: YORIG_GD ! Y-coordinate origin of computational grid REAL( 8 ), SAVE :: XCELL_GD ! X-coordinate cell width (M) REAL( 8 ), SAVE :: YCELL_GD ! Y-coordinate cell width (M) INTEGER, SAVE :: NCOLS ! grid columns array dimension INTEGER, SAVE :: NROWS ! grid rows array dimension INTEGER, SAVE :: NBNDY ! no. of cells in one layer of local boundary INTEGER, SAVE :: NTHIK ! boundary thickness (cells) CONTAINS FUNCTION HGRD_INIT () RESULT ( SUCCESS ) USE M3UTILIO ! IOAPI module LOGICAL :: SUCCESS INTEGER, SAVE :: LOGDEV LOGICAL, SAVE :: FIRSTIME = .TRUE. CHARACTER( 96 ) :: XMSG = ' ' C environment variable grid name to select from GRIDDESC CHARACTER( 16 ) :: HGRD_NAME = 'GRID_NAME' INTEGER, EXTERNAL :: SETUP_LOGDEV INTEGER :: STATUS CHARACTER( 48 ) :: VARDESC C----------------------------------------------------------------------- C This function is expected to be called only once - at startup IF ( FIRSTIME ) THEN FIRSTIME = .FALSE. ! LOGDEV = SETUP_LOGDEV() LOGDEV = INIT3() SUCCESS = .TRUE. VARDESC = 'Horizontal Domain Definition ' CALL ENVSTR( HGRD_NAME, VARDESC, 'GRID_NAME', GRID_NAME, STATUS ) IF ( STATUS .NE. 0 ) WRITE( LOGDEV, '(5X, A)' ) VARDESC IF ( STATUS .EQ. 1 ) THEN XMSG = 'Environment variable improperly formatted' CALL M3WARN ( 'HGRD_INIT', 0, 0, XMSG ) SUCCESS = .FALSE.; RETURN ELSE IF ( STATUS .EQ. -1 ) THEN XMSG = 'Environment variable set, but empty ... Using default' WRITE( LOGDEV, '(5X, A)' ) XMSG ELSE IF ( STATUS .EQ. -2 ) THEN XMSG = 'Environment variable not set ... Using default' WRITE( LOGDEV, '(5X, A)' ) XMSG END IF C With GRID_NAME (only input) retrieve all horizontal grid parameters from C the grid description file pointed to by the GRIDDESC env var: IF ( .NOT. DSCGRID ( GRID_NAME, & COORD_SYS_NAME, GDTYP_GD, & P_ALP_GD, P_BET_GD, P_GAM_GD, & XCENT_GD, YCENT_GD, & XORIG_GD, YORIG_GD, XCELL_GD, YCELL_GD, & NCOLS, NROWS, NTHIK ) ) THEN XMSG = 'Failure retrieving horizontal grid parameters' CALL M3WARN ( 'HGRD_INIT', 0, 0, XMSG ) SUCCESS = .FALSE.; RETURN END IF NBNDY = 2*NTHIK * ( NCOLS + NROWS + 2*NTHIK ) ELSE XMSG = 'Horizontal domain decomposition already defined' CALL M3WARN ( 'HGRD_INIT', 0, 0, XMSG ) SUCCESS = .FALSE.; RETURN END IF ! FIRSTIME RETURN END FUNCTION HGRD_INIT END MODULE HGRD_DEFN ================================================ FILE: PREP/bcon/src/common/VGRD_DEFN.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/BCON/src/common/VGRD_DEFN.F,v 1.2 2011/10/21 16:52:32 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: MODULE VGRD_DEFN C Define the vertical layer structure (replaces COORD.EXT and VGRD.EXT) C Revision History: Jeff Young: 6 Dec 04: created C 26 Jul 06: comments in line with PARMS3.EXT C J.Young 13 Jul 11: Replaced I/O API include files C with M3UTILIO C S.Roselle 21 Sep 18: Use MET_BDY_3D_FIN to get layer C structure instead of requiring C a separate LAYER_FILE C....................................................................... IMPLICIT NONE INTEGER, SAVE :: NLAYS = 0 REAL, ALLOCATABLE, SAVE :: VGLVS_GD( : ) ! vert layer surface values REAL, ALLOCATABLE, SAVE :: X3FACE_GD( : ) ! mono. incr. vert coord values ! = 1 - VGLVS_GD CHARACTER( 16 ), SAVE :: GDNAME_GD C The definitions and declarations in this F90 Module follow those C given in the I/O-API include file FDESC3C.EXT and replace similar C definitions. This F90 Module is compatible with FDESC3C.EXT. C VGTYP_GD: C The vertical grid type: C 1: VGSGPH3 : hydrostatic sigma-P C 2: VGSGPN3 : non-h sigma-P C 3: VGSIGZ3 : sigma-Z C 4: VGPRES3 : pressure (mb) C 5: VGZVAL3 : Z (m) (above sea lvl) C 6: VGHVAL3 : H (m) (above ground) C 7: VGWRFEM : WRF mass-core sigma C 8: VGWRFNM : WRF NMM C 9: IMISS3 for vertical coordinates not stored in VGLVSD C (e.g., temporally or spatially changing vertical coordinates) INTEGER, SAVE :: VGTYP_GD C VGTPUN_GD: C The units of the vertical coordinate top. CHARACTER( 16 ), SAVE :: VGTPUN_GD C VGTOP_GD: C The value for the model top used in the definition of the sigma coordinate C systems in the VGTPUN_GD units. REAL, SAVE :: VGTOP_GD C For sigma-P, the relationship between pressure levels P and sigma-P is C given by: C sigma-P = ( P - VGTOP_GD ) / (P_srf - VGTOP_GD ), C where P_srf is the surface pressure. C VGLVUN_GD: C The units of the vertical coordinate surface values, CHARACTER( 16 ) :: VGLVUN_GD C----------------------------------------------------------------------- CONTAINS FUNCTION VGRD_INIT ( ) RESULT ( SUCCESS ) USE M3UTILIO ! IOAPI module IMPLICIT NONE LOGICAL :: SUCCESS ! integer, save :: logdev LOGICAL, SAVE :: FIRSTIME = .TRUE. CHARACTER( 96 ) :: XMSG = ' ' CHARACTER( 16 ) :: LAYER_FILE = 'MET_BDY_3D_FIN' INTEGER L, ALLOCSTAT C This function is expected to be called only once - at startup IF ( FIRSTIME ) THEN FIRSTIME = .FALSE. ! logdev = init3() SUCCESS = .TRUE. C get vert layer definition from LAYER_FILE IF ( .NOT. OPEN3( LAYER_FILE, FSREAD3, 'VGRD_INIT' ) ) THEN XMSG = 'Could not open '// LAYER_FILE CALL M3WARN ( 'VGRD_INIT', 0, 0, XMSG ) SUCCESS = .FALSE.; RETURN END IF IF ( .NOT. DESC3( LAYER_FILE ) ) THEN XMSG = 'Could not get ' // LAYER_FILE // ' file description' CALL M3WARN ( 'VGRD_INIT', 0, 0, XMSG ) SUCCESS = .FALSE.; RETURN END IF GDNAME_GD = GDNAM3D NLAYS = NLAYS3D VGTYP_GD = VGTYP3D VGTOP_GD = VGTOP3D VGTPUN_GD = 'Pa' VGLVUN_GD = 'none' ALLOCATE ( VGLVS_GD( NLAYS + 1 ), STAT = ALLOCSTAT ) ALLOCATE ( X3FACE_GD( 0:NLAYS ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating VGLVS_GD, X3FACE_GD' CALL M3WARN ( 'VGRD_INIT', 0, 0, XMSG ) SUCCESS = .FALSE.; RETURN END IF DO L = 1, NLAYS + 1 VGLVS_GD( L ) = VGLVS3D( L ) END DO C set layer layer thickenesses DO L = 0, NLAYS X3FACE_GD( L ) = 1.0 - VGLVS_GD( L + 1 ) END DO ELSE XMSG = 'Vertical layer structure already defined' CALL M3WARN ( 'VGRD_INIT', 0, 0, XMSG ) SUCCESS = .FALSE.; RETURN END IF ! FIRSTIME RETURN END FUNCTION VGRD_INIT END MODULE VGRD_DEFN C 21 VGLVS_GD X3FACE_GD C C 1 1.0 0.0 C 2 0.995 0.005 C 3 0.99 0.01 C 4 0.985 0.015 C 5 0.98 0.02 C 6 0.97 0.03 C 7 0.96 0.04 C 8 0.945 0.055 C 9 0.93 0.07 C 10 0.91 0.09 C 11 0.89 0.11 C 12 0.865 0.135 C 13 0.84 0.16 C 14 0.78 0.22 C 15 0.7 0.3 C 16 0.6 0.4 C 17 0.5 0.5 C 18 0.4 0.6 C 19 0.3 0.7 C 20 0.2 0.8 C 21 0.1 0.9 C 22 0.0 1.0 ================================================ FILE: PREP/bcon/src/common/bcon.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/BCON/src/common/bcon.F,v 1.2 2011/10/21 16:52:32 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% PROGRAM BCON C*********************************************************************** C Function: To produce a Models-3 CTM Boundary Concentration file. C Valid input options include: C 1) a user specified ASCII file of vertical profiles, C 2) a CMAQ CTM output file, C 3) subroutines that produce catalogued test pattern species concs. C Preconditions: None C Key Subroutines/Functions Called: INBNDY C Revision History: C Created by Jerry Gipson, January, 1998; based on the original Models-3 C prototype. C Modified 4/22/99 by JG to provide default treatment for missing RUNLEN, C SDATE, and STIME C 02/25/02 Steve Howard (Jeff Young) - dynamic allocation C 01/05/05 J.Young: vert dyn alloc - Use VGRD_DEFN C 06 Jul 11 J.Young: Replaced I/O API include files with M3UTILIO C 13 Jul 11 J.Young: Convert for Namelist redesign C 23 May 12 J.Young: Replaced BC_PARMS include file with an F90 module C 14 Sep 18 S.Roselle: Removed species mapping; updates to enable runtime C option for profile, regrid, or test pattern BCs C*********************************************************************** USE HGRD_DEFN ! Module to store and load the horizontal grid variables USE VGRD_DEFN ! vertical layer specifications USE M3UTILIO ! IOAPI module USE BC_PARMS ! BCON parameters IMPLICIT NONE C Include Files: None C Arguments: None C Parameters: None C External Procedures: None C Local Variables: CHARACTER( 16 ) :: PNAME = 'BCON' ! Procedure name CHARACTER( 16 ) :: BCON_TYPE = 'BCON_TYPE' ! BCON type environment variable CHARACTER( 16 ) :: BC_MODULE = 'regrid' ! selected module CHARACTER( 80 ) :: MSG ! Log message CHARACTER( 80 ) :: VARDESC ! variable description INTEGER LOGUNIT ! Unit number for output log INTEGER STATUS ! Status code INTERFACE SUBROUTINE M3_INBNDY ( LOGUNIT ) INTEGER, INTENT( IN ) :: LOGUNIT END SUBROUTINE M3_INBNDY SUBROUTINE PROF_INBNDY ( LOGUNIT ) INTEGER, INTENT( IN ) :: LOGUNIT END SUBROUTINE PROF_INBNDY ! SUBROUTINE TRAC_INBNDY ( LOGUNIT ) ! INTEGER, INTENT( IN ) :: LOGUNIT ! END SUBROUTINE TRAC_INBNDY END INTERFACE C*********************************************************************** cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Initialize IO/API and get environment variables cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc LOGUNIT = INIT3( ) VARDESC = 'Boundary condition type: (regrid or profile)' CALL ENVSTR( BCON_TYPE, VARDESC, BC_MODULE, BC_MODULE, STATUS ) IF ( STATUS .NE. 0 ) WRITE( LOGUNIT, '(5X, A)' ) VARDESC IF ( STATUS .EQ. 1 ) THEN MSG = 'Environment variable improperly formatted' CALL M3EXIT ( PNAME, 0, 0, MSG, XSTAT2 ) ELSE IF ( STATUS .EQ. -1 ) THEN MSG = 'Environment variable set, but empty ... Using default:' WRITE( LOGUNIT, '(5X, A, A)' ) MSG, BC_MODULE ELSE IF ( STATUS .EQ. -2 ) THEN MSG = 'Environment variable not set ... Using default:' WRITE( LOGUNIT, '(5X, A, A)' ) MSG, BC_MODULE END IF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Load horizontal grid variables calling GRID_DEF->HGRD_INIT function cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF ( .NOT. HGRD_INIT() ) then MSG = '*** Failure defining horizontal domain' CALL M3EXIT ( PNAME, 0, 0, MSG, XSTAT2 ) END IF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c define vertical layer structure cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF ( .NOT. VGRD_INIT() ) THEN MSG = '*** Failure defining vertical structure' CALL M3EXIT ( PNAME, 0, 0, MSG, XSTAT2 ) END IF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Generate the BC output file and quit cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF ( BC_MODULE .EQ. 'regrid' ) THEN CALL M3_INBNDY ( LOGUNIT ) ELSE IF ( BC_MODULE .EQ. 'profile' ) THEN CALL PROF_INBNDY ( LOGUNIT ) ! ELSE IF ( BC_MODULE .EQ. 'patterns' ) THEN ! CALL TRAC_INBNDY ( LOGUNIT ) ELSE MSG = '*** Unknown BCON type requested: ' // BC_MODULE CALL M3EXIT ( PNAME, 0, 0, MSG, XSTAT2 ) END IF IF ( SHUT3() ) THEN WRITE( LOGUNIT,92999 ) & '>>----> Program BCON completed successfully <----<< ' ELSE WRITE( LOGUNIT,91000 ) & 'FATAL ERROR shutting down Models-3 I/O' END IF STOP C************************* FORMAT STATEMENTS *************************** 92999 FORMAT ( //5X, A, // ) 91000 FORMAT ( //5X , '*** ERROR ABORT in program BCON ***', & /5X , A , // ) ! generic error message format END ================================================ FILE: PREP/bcon/src/common/findex.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/BCON/src/common/findex.F,v 1.2 2011/10/21 16:52:32 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: INTEGER FUNCTION FINDEX (INDX, N, NLIST) C Searches for INDX in list NLIST and returns the subscript C (1...N) at which it is found, or returns 0 when NAME not C found in NLIST IMPLICIT NONE INTEGER INDX ! index being searched for INTEGER N ! Length of array to be searched INTEGER NLIST(*) ! array to be searched INTEGER I DO I = 1, N IF ( INDX .EQ. NLIST( I ) ) THEN ! found FINDEX = I RETURN END IF END DO FINDEX = 0 ! not found RETURN END ================================================ FILE: PREP/bcon/src/common/lat_lon.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/BCON/src/common/lat_lon.F,v 1.2 2011/10/21 16:52:32 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% SUBROUTINE LAT_LON ( COL, ROW, GDTYP, XORIG, YORIG, XCELL, YCELL, & XCENT, YCENT, P_ALP, P_BET, P_GAM, LAT, LON ) C*********************************************************************** C Function: Computes latitude and longitude of center of grid cells C Preconditions: None C Key Subroutines/Functions Called: SETLAM C SETPOL C SETEQM C LAM2LL C POL2LL C EQM2LL C UTM2LL C Revision History: Modified form of LAT_LON program originally created C by C. J. Coats -- Jerry Gipson, January 1998 C 06 Jun 11 J.Young: Replaced I/O API include files with M3UTILIO C 28 Aug 18 R.Mathur/S.Roselle: Added polar stereographic projection C grid type option C 21 Apr 21 C. Hogrefe: Added equatorial mercator projection C grid type option C*********************************************************************** USE M3UTILIO ! IOAPI module IMPLICIT NONE C Arguments: INTEGER, INTENT( IN ) :: GDTYP ! Grid type INTEGER, INTENT( IN ) :: COL ! column INTEGER, INTENT( IN ) :: ROW ! row REAL( 8 ), INTENT( IN ) :: P_ALP ! 1st map projection parameter REAL( 8 ), INTENT( IN ) :: P_BET ! 2nd map projection parameter REAL( 8 ), INTENT( IN ) :: P_GAM ! 3rd map projection parameter REAL( 8 ), INTENT( IN ) :: XCELL ! X-dimension of cell (m) REAL( 8 ), INTENT( IN ) :: XCENT ! Longitude of coordinate system center REAL( 8 ), INTENT( IN ) :: XORIG ! X-origin of grid REAL( 8 ), INTENT( IN ) :: YCELL ! Y-dimension of cell (m) REAL( 8 ), INTENT( IN ) :: YCENT ! Latitude of coordinate system center REAL( 8 ), INTENT( IN ) :: YORIG ! Y-origin of grid REAL, INTENT( OUT ) :: LAT ! Output latitude REAL, INTENT( OUT ) :: LON ! Output longitude C Parameters: None C Local Variables: CHARACTER( 16 ) :: PNAME = 'LAT_LON' CHARACTER( 80 ) :: MSG = ' ' INTEGER ZONE ! UTM zone REAL X, X0 ! X-dimension origin REAL Y, Y0 ! Y-dimension origin C*********************************************************************** X0 = SNGL( XORIG - 0.5D+00 * XCELL ) Y0 = SNGL( YORIG - 0.5D+00 * YCELL ) IF ( GDTYP .EQ. LATGRD3 ) THEN ! LAT_LON Coordinates LAT = Y0 + FLOAT( ROW ) * SNGL( YCELL ) LON = X0 + FLOAT( COL ) * SNGL( XCELL ) ELSE IF ( GDTYP .EQ. LAMGRD3 ) THEN ! Lambert Coordinates IF ( .NOT. SETLAM( SNGL( P_ALP ), ! first, initialize & SNGL( P_BET ), ! for LAM2LL() & SNGL( P_GAM ), & SNGL( XCENT ), & SNGL( YCENT ) ) ) THEN MSG = 'Lambert projection setup error for CTM CONC file' CALL M3EXIT( PNAME, 0, 0, MSG, 2 ) END IF X = X0 + FLOAT( COL ) * SNGL( XCELL ) Y = Y0 + FLOAT( ROW ) * SNGL( YCELL ) IF ( .NOT. LAM2LL( X, Y, LON, LAT ) ) THEN MSG = 'Lambert conversion error for CTM CONC file' CALL M3EXIT ( PNAME, 0, 0, MSG, 2 ) END IF ELSE IF ( GDTYP .EQ. POLGRD3 ) THEN ! Polar Stereographic Projection IF ( .NOT. SETPOL( SNGL( P_ALP ), ! first, initialize & SNGL( P_BET ), ! for POL2LL() & SNGL( P_GAM ), & SNGL( XCENT ), & SNGL( YCENT ) ) ) THEN MSG='Polar stereographic projection setup error for CTM CONC file' CALL M3EXIT ( PNAME, 0, 0, MSG, 2 ) END IF X = X0 + FLOAT( COL ) * SNGL( XCELL ) Y = Y0 + FLOAT( ROW ) * SNGL( YCELL ) IF ( .NOT. POL2LL( X, Y, LON, LAT ) ) THEN MSG = 'Polar stereographic conversion error for CTM CONC file' CALL M3EXIT ( PNAME, 0, 0, MSG, 2 ) END IF ELSE IF ( GDTYP .EQ. EQMGRD3 ) THEN ! Equatorial Mercator Projection IF ( .NOT. SETEQM( SNGL( P_ALP ), ! first, initialize & SNGL( P_BET ), ! for EQM2LL() & SNGL( P_GAM ), & SNGL( XCENT ), & SNGL( YCENT ) ) ) THEN MSG='Equatorial mercator projection setup error for CTM CONC file' CALL M3EXIT ( PNAME, 0, 0, MSG, 2 ) END IF X = X0 + FLOAT( COL ) * SNGL( XCELL ) Y = Y0 + FLOAT( ROW ) * SNGL( YCELL ) IF ( .NOT. EQM2LL( X, Y, LON, LAT ) ) THEN MSG = 'Equatorial mercator conversion error for CTM CONC file' CALL M3EXIT ( PNAME, 0, 0, MSG, 2 ) END IF ELSE IF ( GDTYP .EQ. UTMGRD3 ) THEN ! UTM Coordinates ZONE = NINT( P_ALP ) X = X0 + FLOAT( COL ) * SNGL( XCELL ) Y = Y0 + FLOAT( ROW ) * SNGL( YCELL ) CALL UTM2LL ( X, Y, ZONE, LON, LAT ) ELSE ! Unsupported Coordinates WRITE( MSG, 94000) GDTYP CALL M3EXIT ( PNAME, 0, 0, MSG, 2 ) END IF RETURN C************************* FORMAT Statements *************************** 94000 FORMAT( 'LAT/LON calculations for GDTYP3D ',I1, ' not supported' ) END ================================================ FILE: PREP/bcon/src/common/lr_interp.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/BCON/src/common/lr_interp.F,v 1.2 2011/10/21 16:52:33 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% SUBROUTINE LR_INTERP( L_RATINT, XA, YA, N, X, Y, DELY ) C*********************************************************************** C Function: Interpolates a value Y for a given X from the arrays XA and C YA. The flag L_RATINT determines whether linear or rational C function interpolation is done. C Preconditions: Extrapolation will be performed unless controlled by C the calling routine C Key Subroutines/Functions Called: None C Revision History: C Prototype created by Jerry Gipson, January, 1998 C Rational Function Interpolation is from Numerical Recipes C (Press et al., 19??) C Linear interpolation equation modified by JG 6/1/99 to better treat C large conc gradients C Improved Linear interpolation algorithm by JG 4/18/00 for interpolants C close to interval end points C M3UTILIO for M3EXIT by J.Young 7/13/11 C*********************************************************************** USE M3UTILIO ! IOAPI module IMPLICIT NONE C Includes: None C Arguments: LOGICAL, INTENT( IN ) :: L_RATINT ! Flag for rational function interpolation REAL, INTENT( IN ) :: XA( : ) ! Independent variable array REAL, INTENT( IN ) :: YA( : ) ! Dependent variable array REAL, INTENT( IN ) :: X ! Value of independent variable to be interpolated REAL, INTENT( OUT ) :: Y ! Interpolated value of dependent variable REAL, INTENT( OUT ) :: DELY ! Error estimate for rational function interpolation INTEGER, INTENT( IN ) :: N ! Number of values in arrays XA and YA C Parameters: INTEGER, PARAMETER :: NMAX = 100 ! Maximum number of points in arrays AX and YA REAL, PARAMETER :: TINY = 1.0E-35 ! Tiny number REAL, PARAMETER :: EPS = 1.0E-05 ! Small number C External Functions: None C Local Variables: CHARACTER( 16 ) :: PNAME = 'LR_INTERP' ! Procedure Name CHARACTER( 80 ) :: MSG ! Log message INTEGER I, M ! Loop indices INTEGER NS ! Rat Func temporary variable REAL DX ! Incremental delta of independent variable ! REAL DY ! Incremental delta of dependent variable REAL SX ! Incremental independent value for interpolation REAL SLP ! Slope for linear interpolation REAL H, HH, T, DD, W ! Rat Func temporary variables REAL :: C( NMAX ) ! Rat Func temporary variable REAL :: D( NMAX ) ! Rat Func temporary variable C*********************************************************************** cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Linear interpolation section cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF ( .NOT. L_RATINT ) THEN DELY = 0.0 IF ( ( XA( 1 ) .LT. XA( 2 ) .AND. X .LE. XA( 1 ) ) .OR. & ( XA( 1 ) .GT. XA( 2 ) .AND. X .GE. XA( 1 ) ) ) THEN DX = XA( 2 ) - XA( 1 ) IF ( DX .EQ. 0.0 ) THEN MSG = 'Invalid Independent variables for interpolation' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT2 ) END IF Y = YA( 1 ) + ( ( X - XA( 1 ) ) / DX ) * YA( 1 ) RETURN END IF IF ( ( XA( N ) .GT. XA( N - 1 ) .AND. X .GE. XA( N ) ) .OR. & ( XA( N ) .LT. XA( N - 1 ) .AND. X .LE. XA( N ) ) ) THEN DX = XA( N ) - XA( N - 1 ) IF ( DX .EQ. 0.0 ) THEN MSG = 'Invalid Independent variables for interpolation' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT2 ) END IF Y = YA( N ) + ( ( X - XA( N ) ) / DX ) * YA( N - 1 ) RETURN END IF DO I = 1, N - 1 DX = ABS( XA( I + 1 ) - XA( I ) ) IF ( DX .EQ. 0.0 ) THEN MSG = 'Invalid Independent variables for interpolation' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT2 ) END IF ! DY = YA( I + 1 ) - YA( I ) SX = ABS( X - XA( I ) ) IF ( SX - DX .LT. EPS ) THEN ! Y = YA( I ) + ( ( X - XA( I ) ) / ! & ( XA( I + 1 ) - XA( I ) ) ) * DY SLP = ( X - XA( I ) ) / ( XA( I + 1 ) - XA( I ) ) IF ( SLP .GT. 0.99999 ) SLP = 1.0 IF ( SLP .LT. 0.00001 ) SLP = 0.0 Y = ( 1.0 - SLP ) * YA( I ) + SLP * YA( I+1 ) RETURN END IF END DO MSG = 'No interval found for linear interpolation' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT2 ) END IF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Rational function interpolation section cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc NS = 1 HH = ABS( X - XA( 1 ) ) DO I = 1, N H = ABS( X -XA( I ) ) IF ( H .EQ. 0.0 ) THEN Y = YA( I ) DELY = 0.0 RETURN ELSE IF ( H .LT. HH ) THEN NS = I HH = H END IF C( I ) = YA( I ) D( I ) = YA( I ) + TINY END DO Y = YA( NS ) NS = NS - 1 DO M = 1, N - 1 DO I = 1, N - M W = C( I + 1 ) - D( I ) H = XA( I + M ) - X T = ( XA( I ) - X ) * D( I ) / H DD = T - C( I + 1 ) IF ( DD .EQ. 0.0 ) THEN MSG = 'Rational function interpolation error' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT2 ) END IF DD = W / DD D( I ) = C( I + 1 ) * DD C( I ) = T * DD END DO IF ( 2 * NS .LT. N - M ) THEN DELY = C( NS + 1 ) ELSE DELY = D( NS ) NS = NS - 1 END IF Y = Y + DELY END DO RETURN END ================================================ FILE: PREP/bcon/src/common/opn_bc_file.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/BCON/src/common/opn_bc_file.F,v 1.2 2011/10/21 16:52:33 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% SUBROUTINE OPN_BC_FILE ( LOGUNIT, SDATE, STIME, TSTEP, NSPCS_OUT, & SPNAME_OUT, VTYPE_OUT, UNITS_OUT, & VDESC_OUT, BC_FNAME, RINDX ) C*********************************************************************** C Function: Sets most of the Models-3 file description parameters for C the BC output file and opens it. C Preconditions: None C Key Subroutines/Functions Called: None C Revision History: C Prototype created by Jerry Gipson, January, 1998 C Output format modified by JG 4/24/98 C Added units for aerosol surface area JG 4/22/99 C 02/25/02 Steve Howard (Jeff Young) - dynamic allocation C 01/05/05 J.Young: vert dyn alloc - Use VGRD_DEFN C 13 Jul 11 J.Young: Replaced I/O API include files with M3UTILIO and C Namelist for species definitions C 23 May 12 J.Young: Replaced BC_PARMS include file with an F90 module C*********************************************************************** USE HGRD_DEFN ! Module to store and load the horizontal grid variables USE VGRD_DEFN ! vertical layer specifications USE M3UTILIO ! IOAPI module USE BC_PARMS ! BCON parameters IMPLICIT NONE C Include Files: None C Arguments: CHARACTER( 16 ), INTENT( OUT ) :: BC_FNAME( : ) ! Logical names of BC Output file(s) CHARACTER( 16 ), INTENT( IN ) :: SPNAME_OUT( : ) ! Ouput file species names CHARACTER( 16 ), INTENT( IN ) :: UNITS_OUT( : ) CHARACTER( 80 ), INTENT( IN ) :: VDESC_OUT( : ) INTEGER, INTENT( IN ) :: LOGUNIT ! Unit number for output log INTEGER, INTENT( IN ) :: NSPCS_OUT ! Number of IC species on output file(s) INTEGER, INTENT( IN ) :: RINDX ! Index of root file name INTEGER, INTENT( IN ) :: SDATE ! Date for IC Output INTEGER, INTENT( IN ) :: STIME ! Time for IC output INTEGER, INTENT( IN ) :: TSTEP ! Time step INTEGER, INTENT( IN ) :: VTYPE_OUT( : ) ! Variable type (e.g. integer, real, ...) C Parameters: None C External Functions: None C Local Variables: CHARACTER( 16 ) :: BUF16 ! 16 character buffer CHARACTER( 3 ) :: CHRDAT ! 3 character buffer CHARACTER( 16 ) :: ENV_DFLT ! Default value for env variable CHARACTER( 80 ) :: ENV_DESC ! Description of env variable CHARACTER( 80 ) :: MSG ! Log message CHARACTER( 16 ) :: PNAME = 'OPN_BC_FILE' ! Procedure Name CHARACTER( 256 ) :: RET_VAL ! Return value of an env variable INTEGER L, N, V ! Loop indices INTEGER NUMFLS ! Number of output IC files INTEGER SPOS1, EPOS1 ! Start and end position of char string INTEGER SPOS2, EPOS2 ! Start and end position of char string INTEGER STATUS ! Status code INTEGER VARINDX ! Variable index C*********************************************************************** cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Write log information cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc WRITE( LOGUNIT, 92000 ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Get the value of environment variable EXECUTION_ID cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc ENV_DESC = 'Value of environment variable EXECUTION_ID' ENV_DFLT = '-----------' CALL ENVSTR ( 'EXECUTION_ID', ENV_DESC, ENV_DFLT, RET_VAL, STATUS ) EXECN3D = RET_VAL cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Set start date, start time, and time step cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc SDATE3D = SDATE STIME3D = STIME TSTEP3D = TSTEP cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Set start date, start time, and time step cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc FTYPE3D = BNDARY3 NVARS3D = NSPCS_OUT NCOLS3D = NCOLS NROWS3D = NROWS NLAYS3D = NLAYS NTHIK3D = NTHIK cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Set coordinate data cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc ! GDNAM3D = GDNAME_GD ! e.g. / 'EAST_US' / GDNAM3D = GRID_NAME ! from HGRD_DEFN GDTYP3D = GDTYP_GD ! / LAMGRD3 / P_ALP3D = P_ALP_GD ! / 30.0 / ! degrees P_BET3D = P_BET_GD ! / 60.0 / ! degrees P_GAM3D = P_GAM_GD ! / -90.0 / ! degrees XCENT3D = XCENT_GD ! / -90.0 / ! degrees longitude YCENT3D = YCENT_GD ! / 40.0 / ! degrees latitude XORIG3D = XORIG_GD ! / -880000.0 / ! m, for cross grid here YORIG3D = YORIG_GD ! / -1720000.0 / ! m, for cross grid here XCELL3D = XCELL_GD ! / 80000.0 / ! m YCELL3D = YCELL_GD ! / 80000.0 / ! m VGTYP3D = VGTYP_GD ! / VGSGPN3 / ! 2: Sigma-P0 VGTOP3D = VGTOP_GD ! / 10000.0 / ! Pa cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Set vertical levels cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc DO L = 1, NLAYS + 1 VGLVS3D ( L ) = VGLVS_GD ( L ) END DO cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Set character descriptors cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc DO N = 1, MXDESC3 FDESC3D( N ) = ' ' UPDSC3D( N ) = ' ' END DO cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Set-up output file header data, compute the number of output c files needed, and open each one cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF ( MOD( NSPCS_OUT, MXVARS3 ) .EQ. 0 ) THEN NUMFLS = NSPCS_OUT / MXVARS3 ELSE NUMFLS = ( NSPCS_OUT / MXVARS3 ) + 1 END IF WRITE( LOGUNIT, 92020 ) NUMFLS DO N = 1, NUMFLS WRITE( CHRDAT, '( I3 )' ) N SPOS1 = LBLANK( CHRDAT ) + 1 EPOS1 = LEN_TRIM( CHRDAT ) SPOS2 = LBLANK( BCFL_ROOT( RINDX ) ) + 1 EPOS2 = LEN_TRIM( BCFL_ROOT( RINDX ) ) BUF16 = BCFL_ROOT( RINDX ) BC_FNAME( N ) = BUF16( SPOS2:EPOS2 ) // CHRDAT( SPOS1:EPOS1 ) ENV_DESC = 'BC Output file ' // BC_FNAME( N ) ENV_DFLT = ' ' CALL ENVSTR ( BC_FNAME( N ), ENV_DESC, ENV_DFLT, RET_VAL, STATUS) IF ( STATUS .NE. 0 ) THEN MSG = 'BC output file ' // BC_FNAME( N ) // ' not assigned' CALL M3EXIT ( PNAME, 0, 0, MSG, XSTAT1 ) END IF FDESC3D( 1 ) = 'BCON output file ' // BC_FNAME( N ) NVARS3D = MIN( MXVARS3, & ( NSPCS_OUT - ( N - 1 ) * MXVARS3 ) ) DO V = 1, NVARS3D VARINDX = ( N - 1 ) * MXVARS3 + V VTYPE3D( V ) = VTYPE_OUT( VARINDX ) VNAME3D( V ) = SPNAME_OUT( VARINDX ) UNITS3D( V ) = UNITS_OUT( VARINDX ) VDESC3D( V ) = VDESC_OUT( VARINDX ) END DO WRITE( LOGUNIT, 92040 ) N, BC_FNAME( N ) WRITE( LOGUNIT, 92060 ) EXECN3D, FTYPE3D, SDATE3D, STIME3D, & TSTEP3D, NCOLS3D, NROWS3D, NLAYS3D, & NTHIK3D, NVARS3D, GDTYP3D, P_ALP3D, & P_BET3D, P_GAM3D, XCENT3D, YCENT3D, & XORIG3D, YORIG3D, XCELL3D, YCELL3D, & VGTYP3D, VGTOP3D, GDNAM3D WRITE( LOGUNIT, 92080 ) ( VGLVS3D( L ), L = 1, NLAYS + 1 ) WRITE( LOGUNIT, 92100 ) DO V = 1, NVARS3D WRITE( LOGUNIT, 92120 ) VNAME3D( V ), VTYPE3D( V ), UNITS3D( V ) END DO IF ( .NOT. OPEN3( BC_FNAME( N ), FSUNKN3, PNAME ) ) THEN MSG = 'Could not open nor create ' // BC_FNAME( N ) // & ' file ' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF END DO RETURN C************************* FORMAT STATEMENTS *************************** 92000 FORMAT( // 1X, 79( '#' ) & / 1X, '# Output File Section ' & / 1X, 79( '#' ) ) 92020 FORMAT( // 5X, 'Total number of ouput files created: ', I1 ) 92040 FORMAT( // 5X, 'IO/API Header data for BC file ', I1, ': ', A ) 92060 FORMAT( /10X, 'EXEC_ID: ', A & /10X, 'FTYPE = ', I4 & /10X, 'SDATE = ', I7 & /10X, 'STIME = ', I7 & /10X, 'TSTEP = ', I7 & /10X, 'NCOLS = ', I4 & /10X, 'NROWS = ', I4 & /10X, 'NLAYS = ', I4 & /10X, 'NTHIK = ', I4 & /10X, 'NVARS = ', I4 & /10X, 'GDTYP = ', I4 & /10X, 'P_ALP = ', 1PE14.5 & /10X, 'P_BET = ', 1PE14.5 & /10X, 'P_GAM = ', 1PE14.5 & /10X, 'XCENT = ', 1PE14.5 & /10X, 'YCENT = ', 1PE14.5 & /10X, 'XORIG = ', 1PE14.5 & /10X, 'YORIG = ', 1PE14.5 & /10X, 'XCELL = ', 1PE14.5 & /10X, 'YCELL = ', 1PE14.5 & /10X, 'VGTYP = ', I4 & /10X, 'VGTOP = ', 1PE14.5 & /10X, 'GDNAM = ', A ) 92080 FORMAT( /10X, 'VGLVS = ', 5 ( 1PE14.5 ) / & ( 11X, ' ', 5 ( 1PE14.5 ) ) ) 92100 FORMAT( //10X, 'Output Variables:' & /10X, 'Variable name Variable type Variable units ' ) 92120 FORMAT( 10X, A16, 8X, I1, 10X, A ) END ================================================ FILE: PREP/bcon/src/m3conc/m3_bcout.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/BCON/src/m3conc/m3_bcout.F,v 1.2 2011/10/21 16:52:34 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% SUBROUTINE M3_BCOUT( LOGUNIT, & N_CTM_FLS, & SDATE, STIME, NSTEPS, & NCOLS_IN, NROWS_IN, NLAYS_IN, NSPCS_IN, & CTM_FL_NAME, INFL_SP_NAME, & VTYPE_IN, UNITS_IN, VDESC_IN ) C************************************************************************* C Function: Reads the input models-3 concentration file(s) and opens and C writes the output BC file C Preconditions: None C Key Subroutines/Functions Called: C Revision History: C Prototype created by Jerry Gipson, January, 1998 C Modified by JG May, 1999 to treat PinG concs C 02/25/02 Steve Howard (Jeff Young) - dynamic allocation C 01/05/05 J.Young: vert dyn alloc - Use VGRD_DEFN eliminate malloc calls C 13 Jul 11 J.Young: Replaced I/O API include files with M3UTILIO and C Namelist for species definitions C 23 May 12 J.Young: Replaced BC_PARMS include file with an F90 module C 14 Sep 18 S.Roselle: Removed species mapping C************************************************************************* USE HGRD_DEFN ! Module to store and load the horizontal grid variables USE VGRD_DEFN ! vertical layer specifications USE M3UTILIO ! IOAPI module USE BC_PARMS ! BCON parameters IMPLICIT NONE C Arguments: INTEGER, INTENT( IN ) :: LOGUNIT ! Unit number for output log INTEGER, INTENT( IN ) :: N_CTM_FLS ! Number of input CTM files INTEGER, INTENT( IN ) :: SDATE ! Date for BC Output INTEGER, INTENT( IN ) :: STIME ! Time for BC output INTEGER, INTENT( IN ) :: NSTEPS ! Run duration, as number of output time steps INTEGER, INTENT( IN ) :: NCOLS_IN ! No. of columns in input conc file INTEGER, INTENT( IN ) :: NLAYS_IN ! No. of layers in input conc file INTEGER, INTENT( IN ) :: NROWS_IN ! No. of rows in input conc file INTEGER, INTENT( IN ) :: NSPCS_IN ! Total No. of species in input conc file(s) CHARACTER( 16 ), INTENT( IN ) :: CTM_FL_NAME( : ) ! Name of CTM_CONC file CHARACTER( 16 ), INTENT( IN ) :: INFL_SP_NAME( : ) ! Name of input CTM species CHARACTER( 16 ), INTENT( IN ) :: UNITS_IN( : ) ! Units for CTM species CHARACTER( 80 ), INTENT( IN ) :: VDESC_IN( : ) ! Variable description for CTM species INTEGER, INTENT( IN ) :: VTYPE_IN( : ) ! variable type for CTM species C Parameters: REAL, PARAMETER :: CMIN = 1.0E-30 ! Minimum output concentration C External Functions: None C Local Variables: CHARACTER( 16 ) :: PNAME = 'M3_BCOUT' ! Procedure Name CHARACTER( 80 ) :: MSG ! Log message CHARACTER( 16 ) :: VNAME ! Species name on CTM conc file CHARACTER( 16 ), ALLOCATABLE :: BC_FNAME( : ) ! Logical names of BC Output file(s) INTEGER C ! Column loop indices INTEGER FLN ! BC output file number INTEGER ISP ! Array indices for species INTEGER JDATE ! Current date INTEGER JTIME ! Current time INTEGER L ! Layer loop index INTEGER N ! Loop indices for species INTEGER NBND ! Bndry cell loop index INTEGER NCELL ! Boundary cell index INTEGER R ! Row loop indices INTEGER STEP ! Time step loop index INTEGER TSTEP ! Time step on CTM file, hhmmss INTEGER ALLOCSTAT ! Status returned from array allocation INTEGER, ALLOCATABLE :: COL_LOC( : ) ! Output BC col corresponding to ! a cell in the input CTM file INTEGER, ALLOCATABLE :: ROW_LOC( : ) ! Output BC row corresponding to ! a cell in the input CTM file LOGICAL LNEG ! Flag for negative concentration REAL DMIN ! Smallest distance between cell centers REAL LAT ! Latitude of center of cell for the BC output file REAL LON ! Longitude of center of cell for the BC output file REAL X1 ! longitudenal distance between cell centers REAL Y1 ! latitudinal distance between cell centers REAL, ALLOCATABLE :: LAT_OUT( : ) ! Lat of cells in BC output file REAL, ALLOCATABLE :: LON_OUT( : ) ! Lon of cells in BC output file REAL, ALLOCATABLE :: LAT_IN( :,: ) ! Lat of cells in CTM conc file REAL, ALLOCATABLE :: LON_IN( :,: ) ! Lon of cells in CTM conc file REAL, ALLOCATABLE :: COUT( :,: ) ! Substituted output BC conc REAL, ALLOCATABLE :: CONCIN( :,:,: ) ! Input concs REAL, ALLOCATABLE :: BCIN( :,:,: ) ! Horizontally set BCs REAL, ALLOCATABLE :: BCVI( :,:,: ) ! Vertically interpolated BCs INTERFACE SUBROUTINE LAT_LON ( COL, ROW, GDTYP, XORIG, YORIG, XCELL, YCELL, & XCENT, YCENT, P_ALP, P_BET, P_GAM, LAT, LON ) INTEGER, INTENT( IN ) :: GDTYP INTEGER, INTENT( IN ) :: COL INTEGER, INTENT( IN ) :: ROW REAL( 8 ), INTENT( IN ) :: P_ALP REAL( 8 ), INTENT( IN ) :: P_BET REAL( 8 ), INTENT( IN ) :: P_GAM REAL( 8 ), INTENT( IN ) :: XCELL REAL( 8 ), INTENT( IN ) :: XCENT REAL( 8 ), INTENT( IN ) :: XORIG REAL( 8 ), INTENT( IN ) :: YCELL REAL( 8 ), INTENT( IN ) :: YCENT REAL( 8 ), INTENT( IN ) :: YORIG REAL, INTENT( OUT ) :: LAT REAL, INTENT( OUT ) :: LON END SUBROUTINE LAT_LON SUBROUTINE M3_VINTERP ( LOGUNIT, JDATE, JTIME, & NCOLS_IN, NROWS_IN, NLAYS_IN, NSPCS_IN, & COL_LOC, ROW_LOC, & BCIN, BCVI, CTM_FL_NAME ) INTEGER, INTENT( IN ) :: LOGUNIT INTEGER, INTENT( IN ) :: JDATE INTEGER, INTENT( IN ) :: JTIME INTEGER, INTENT( IN ) :: NCOLS_IN INTEGER, INTENT( IN ) :: NROWS_IN INTEGER, INTENT( IN ) :: NLAYS_IN INTEGER, INTENT( IN ) :: NSPCS_IN INTEGER, INTENT( IN ) :: COL_LOC( : ) INTEGER, INTENT( IN ) :: ROW_LOC( : ) REAL, INTENT( IN ) :: BCIN( :,:,: ) REAL, INTENT( OUT ) :: BCVI( :,:,: ) CHARACTER( 16 ), INTENT( IN ) :: CTM_FL_NAME( : ) END SUBROUTINE M3_VINTERP SUBROUTINE OPN_BC_FILE ( LOGUNIT, SDATE, STIME, TSTEP, NSPCS_OUT, & SPNAME_OUT, VTYPE_OUT, UNITS_OUT, & VDESC_OUT, BC_FNAME, RINDX ) CHARACTER( 16 ), INTENT( OUT ) :: BC_FNAME( : ) CHARACTER( 16 ), INTENT( IN ) :: SPNAME_OUT( : ) CHARACTER( 16 ), INTENT( IN ) :: UNITS_OUT( : ) CHARACTER( 80 ), INTENT( IN ) :: VDESC_OUT( : ) INTEGER, INTENT( IN ) :: LOGUNIT INTEGER, INTENT( IN ) :: NSPCS_OUT INTEGER, INTENT( IN ) :: RINDX INTEGER, INTENT( IN ) :: SDATE INTEGER, INTENT( IN ) :: STIME INTEGER, INTENT( IN ) :: TSTEP INTEGER, INTENT( IN ) :: VTYPE_OUT( : ) END SUBROUTINE OPN_BC_FILE END INTERFACE C*********************************************************************** cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c allocate arrays cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc ALLOCATE( BC_FNAME( MXCTMS ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN MSG = 'Failure allocating BC_FNAME' CALL M3EXIT ( PNAME, 0, 0, MSG, XSTAT1 ) END IF ALLOCATE( COL_LOC( NBNDY ), ROW_LOC( NBNDY ), & STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN MSG = 'Failure allocating COL_LOC, ROW_LOC' CALL M3EXIT ( PNAME, 0, 0, MSG, XSTAT1 ) END IF ALLOCATE( LAT_OUT( NBNDY ), LON_OUT( NBNDY ), & STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN MSG = 'Failure allocating LAT_OUT, LON_OUT' CALL M3EXIT ( PNAME, 0, 0, MSG, XSTAT1 ) END IF ALLOCATE( LAT_IN( NCOLS_IN,NROWS_IN ), LON_IN( NCOLS_IN,NROWS_IN ), & STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN MSG = 'Failure allocating LAT_IN, LON_IN' CALL M3EXIT ( PNAME, 0, 0, MSG, XSTAT1 ) END IF ALLOCATE( COUT( NBNDY,NLAYS ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN MSG = 'Failure allocating COUT' CALL M3EXIT ( PNAME, 0, 0, MSG, XSTAT1 ) END IF ALLOCATE( CONCIN( NCOLS_IN,NROWS_IN,NLAYS_IN ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN MSG = 'Failure allocating CONCIN' CALL M3EXIT ( PNAME, 0, 0, MSG, XSTAT1 ) END IF ALLOCATE( BCIN( NBNDY,NLAYS_IN,NSPCS_IN ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN MSG = 'Failure allocating BCIN' CALL M3EXIT ( PNAME, 0, 0, MSG, XSTAT1 ) END IF ALLOCATE( BCVI( NBNDY,NLAYS,NSPCS_IN ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN MSG = 'Failure allocating BCVI' CALL M3EXIT ( PNAME, 0, 0, MSG, XSTAT1 ) END IF write( logunit,* ) ' ' write( logunit,* ) ' NCOLS_IN: ', NCOLS_IN write( logunit,* ) ' NROWS_IN: ', NROWS_IN write( logunit,* ) ' NLAYS_IN: ', NLAYS_IN write( logunit,* ) ' NSPCS_IN: ', NSPCS_IN write( logunit,* ) ' NBNDY: ', NBNDY write( logunit,* ) ' NLAYS: ', NLAYS write( logunit,* ) ' ' cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Compute the lat and lon of the center of each input cell cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF ( .NOT. DESC3( CTM_FL_NAME( 1 ) ) ) THEN MSG = 'Could not read DESC of ' // CTM_FL_NAME( 1 ) & // ' file' CALL M3EXIT ( PNAME, SDATE, STIME, MSG, XSTAT2 ) END IF DO C = 1, NCOLS_IN DO R = 1, NROWS_IN CALL LAT_LON ( C, R, GDTYP3D, XORIG3D, YORIG3D, & XCELL3D, YCELL3D, XCENT3D, YCENT3D, & P_ALP3D, P_BET3D, P_GAM3D, & LAT_IN( C,R ), LON_IN( C,R ) ) END DO END DO cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Compute the lat and lon of the center of each output BC cell cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C South border NCELL = 0 DO C = 1, NCOLS + 1 R = 0 NCELL = NCELL + 1 CALL LAT_LON ( C, R, GDTYP_GD, XORIG_GD, YORIG_GD, & XCELL_GD, YCELL_GD, XCENT_GD, YCENT_GD, & P_ALP_GD, P_BET_GD, P_GAM_GD, & LAT_OUT( NCELL ), LON_OUT( NCELL ) ) END DO C East border DO R = 1, NROWS + 1 C = NCOLS + 1 NCELL = NCELL + 1 CALL LAT_LON ( C, R, GDTYP_GD, XORIG_GD, YORIG_GD, & XCELL_GD, YCELL_GD, XCENT_GD, YCENT_GD, & P_ALP_GD, P_BET_GD, P_GAM_GD, & LAT_OUT( NCELL ), LON_OUT( NCELL ) ) END DO C North border DO C = 0, NCOLS R = NROWS + 1 NCELL = NCELL + 1 CALL LAT_LON ( C, R, GDTYP_GD, XORIG_GD, YORIG_GD, & XCELL_GD, YCELL_GD, XCENT_GD, YCENT_GD, & P_ALP_GD, P_BET_GD, P_GAM_GD, & LAT_OUT( NCELL ), LON_OUT( NCELL ) ) END DO C West border DO R = 0, NROWS C = 0 NCELL = NCELL + 1 CALL LAT_LON ( C, R, GDTYP_GD, XORIG_GD, YORIG_GD, & XCELL_GD, YCELL_GD, XCENT_GD, YCENT_GD, & P_ALP_GD, P_BET_GD, P_GAM_GD, & LAT_OUT( NCELL ), LON_OUT( NCELL ) ) END DO cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Map the CTM file LAT/LONs to the BC file LAT/LONs cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc DO N = 1, NBNDY LAT = LAT_OUT( N ) LON = LON_OUT( N ) DMIN = 1.0E+30 DO C = 1, NCOLS_IN DO R = 1, NROWS_IN Y1 = ( LAT - LAT_IN( C,R ) ) ** 2 X1 = ( LON - LON_IN( C,R ) ) ** 2 IF ( ( X1 + Y1 ) .LT. DMIN ) THEN DMIN = X1 + Y1 COL_LOC( N ) = C ROW_LOC( N ) = R END IF END DO END DO END DO cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Call the spatial interpolation routine to log info only cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc CALL M3_VINTERP ( LOGUNIT, SDATE, STIME, NCOLS_IN, NROWS_IN, NLAYS_IN, & NSPCS_IN, COL_LOC, ROW_LOC, BCIN, BCVI, CTM_FL_NAME ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Call the routine to open the Models3 BC output file cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF ( .NOT. DESC3( CTM_FL_NAME( 1 ) ) ) THEN MSG = 'Could not read DESC of ' // CTM_FL_NAME( 1 ) // ' file' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT2 ) END IF C...if the input conc file in time independent, then make the BC file C... time independent as well IF ( TSTEP3D .EQ. 0 ) THEN TSTEP = 0 C...if the input conc file is time dependent, then set the timestep to be same C... as the target domain's met input file ELSE IF ( .NOT. DESC3( MET_BDY_3D_FIN ) ) THEN MSG = 'Could not read DESC of ' // MET_BDY_3D_FIN // ' file' CALL M3EXIT ( PNAME, 0, 0, MSG, XSTAT2 ) END IF TSTEP = TSTEP3D END IF CALL OPN_BC_FILE ( LOGUNIT, SDATE, STIME, TSTEP, NSPCS_IN, & INFL_SP_NAME, VTYPE_IN, UNITS_IN, VDESC_IN, & BC_FNAME, 1 ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Top of loop over output time steps cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc JDATE = SDATE JTIME = STIME DO STEP = 1, NSTEPS C Read the concentration file(s) LNEG = .FALSE. ISP = 0 DO N = 1, N_CTM_FLS IF ( .NOT. DESC3( CTM_FL_NAME( N ) ) ) THEN MSG = 'Could not read DESC of ' // CTM_FL_NAME( N ) & // ' file' CALL M3EXIT ( PNAME, JDATE, JTIME, MSG, XSTAT2 ) END IF DO ISP = 1, NSPCS_IN VNAME = INFL_SP_NAME( ISP ) IF ( .NOT. INTERP3( CTM_FL_NAME( N ), VNAME, PNAME, JDATE, JTIME, & NCOLS_IN*NROWS_IN*NLAYS_IN, CONCIN ) ) THEN MSG = 'Could not read input CTM Conc file ' // & CTM_FL_NAME( N ) CALL M3EXIT ( PNAME, JDATE, JTIME, MSG, XSTAT2 ) END IF DO NBND = 1, NBNDY C = COL_LOC( NBND ) R = ROW_LOC( NBND ) DO L = 1, NLAYS_IN BCIN( NBND,L,ISP ) = CONCIN( C,R,L ) END DO END DO END DO END DO C Do the spatial interpolation CALL M3_VINTERP ( LOGUNIT, JDATE, JTIME, NCOLS_IN, NROWS_IN, & NLAYS_IN, NSPCS_IN, COL_LOC, ROW_LOC, BCIN, & BCVI, CTM_FL_NAME ) C Write the output BC concentrations DO ISP = 1, NSPCS_IN FLN = ( ISP - 1 ) / MXVARS3 + 1 VNAME = INFL_SP_NAME( ISP ) DO L = 1, NLAYS DO NBND = 1, NBNDY COUT( NBND,L ) = BCVI( NBND,L,ISP ) ! IF ( COUT( NBND,L ) .LT. 0.0 ) THEN ! LNEG = .TRUE. ! ELSE IF ( COUT( NBND,L ) .LT. CMIN ) THEN ! COUT( NBND,L ) = CMIN ! END IF END DO END DO IF ( .NOT. WRITE3( BC_FNAME( FLN ), VNAME, JDATE, JTIME, & COUT( 1,1 ) ) ) THEN MSG = 'Could not WRITE species ' // VNAME // & 'to file ' // BC_FNAME( FLN ) CALL M3EXIT ( PNAME, JDATE, JTIME, MSG, XSTAT2 ) END IF END DO ! IF ( LNEG ) THEN ! MSG = 'Negative BCs output' ! CALL M3EXIT( PNAME, JDATE, JTIME, MSG, XSTAT2 ) ! END IF WRITE( LOGUNIT, '( /5X, 3( A, :, 1X ), I8, ":", I6.6 )' ) & 'Timestep written to', BC_FNAME( FLN ), & 'for date and time', JDATE, JTIME CALL NEXTIME ( JDATE, JTIME, TSTEP ) END DO RETURN END ================================================ FILE: PREP/bcon/src/m3conc/m3_ck_bdy.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/BCON/src/m3conc/m3_ck_bdy.F,v 1.2 2011/10/21 16:52:34 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% SUBROUTINE CK_BDY_FL ( LOGUNIT, SDATE, STIME, TSTEP, NSTEPS ) C*********************************************************************** C Function: To check input MET_BDY_3D file for consistency with C the LAYER_FILE/VGRD_DEFN data C Preconditions: None C Key Subroutines/Functions Called: None C Revision History: C Prototype created by Jerry Gipson, May, 1999 C 02/25/02 Steve Howard (Jeff Young) - dynamic allocation C 01/05/05 J.Young: vert dyn alloc - Use VGRD_DEFN C 13 JuL 11 J.Young: Replaced I/O API include files with M3UTILIO C 23 May 12 J.Young: Replaced BC_PARMS include file with an F90 module C 10 June 19 F. Sidi : Commented Out LOGICAL LFIRST & INTEGER N because it is unused C*********************************************************************** USE HGRD_DEFN ! Module to store and load the horizontal grid variables USE VGRD_DEFN ! vertical layer specifications USE M3UTILIO ! IOAPI module USE BC_PARMS ! BCON parameters IMPLICIT NONE C Include Files: None C Arguments: INTEGER, INTENT( IN ) :: LOGUNIT ! Unit number for output log INTEGER, INTENT( IN ) :: SDATE ! Start date INTEGER, INTENT( IN ) :: STIME ! Start time INTEGER, INTENT( IN ) :: TSTEP ! Time step INTEGER, INTENT( IN ) :: NSTEPS ! No. of time steps C Parameters: None C External Functions: None C Local Variables: CHARACTER( 80 ) :: MSG = ' ' ! Log message CHARACTER( 16 ) :: PNAME = 'CK_BDY_FL' ! Procedure Name CHARACTER( 15 ) :: VAL1 ! Character value of real CHARACTER( 15 ) :: VAL2 ! Character value of real INTEGER JDATE ! Current date INTEGER JTIME ! Current time ! INTEGER N INTEGER L ! Loop indices LOGICAL LERROR ! Error Flag ! LOGICAL LFIRST ! First time flag C*********************************************************************** cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Write out report data cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc MSG = 'Checking MET_BDY_3D_FIN File for consistent ' // & 'header data' CALL M3MESG ( MSG ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Get header data for MET_BDY_3D_FIN file cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF ( .NOT. OPEN3 ( MET_BDY_3D_FIN, FSREAD3, PNAME ) ) THEN MSG = 'Could not open ' // MET_BDY_3D_FIN // ' file' CALL M3EXIT ( PNAME, JDATE , JTIME, MSG, XSTAT1 ) END IF IF ( .NOT. DESC3 ( MET_BDY_3D_FIN ) ) THEN MSG = 'Could not read DESC of ' // MET_BDY_3D_FIN & // ' file' CALL M3EXIT ( PNAME, JDATE, JTIME, MSG, XSTAT2 ) END IF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Check MET_BDY_3D_FIN file for consistency with GRIDDESC cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc LERROR = .FALSE. IF ( FTYPE3D .NE. BNDARY3 ) THEN WRITE( LOGUNIT, 94020 ) FTYPE3D, BNDARY3 LERROR = .TRUE. END IF IF ( GDTYP3D .NE. GDTYP_GD ) THEN WRITE( LOGUNIT, 94200 ) GDTYP3D, GDTYP_GD LERROR = .TRUE. END IF IF ( NCOLS3D .NE. NCOLS ) THEN WRITE( LOGUNIT, 94040 ) NCOLS3D, NCOLS LERROR = .TRUE. END IF IF ( NROWS3D .NE. NROWS ) THEN WRITE( LOGUNIT, 94060 ) NROWS3D, NROWS LERROR = .TRUE. END IF IF ( NLAYS3D .NE. NLAYS ) THEN WRITE( LOGUNIT, 94080 ) NLAYS3D, NLAYS LERROR = .TRUE. END IF WRITE( VAL1, 94000 ) P_ALP3D WRITE( VAL2, 94000 ) P_ALP_GD IF ( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94220 ) P_ALP3D, P_ALP_GD LERROR = .TRUE. END IF WRITE( VAL1, 94000 ) P_BET3D WRITE( VAL2, 94000 ) P_BET_GD IF ( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94240 ) P_BET3D, P_BET_GD LERROR = .TRUE. END IF WRITE( VAL1, 94000 ) P_GAM3D WRITE( VAL2, 94000 ) P_GAM_GD IF ( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94260 ) P_GAM3D, P_GAM_GD LERROR = .TRUE. END IF WRITE( VAL1, 94000 ) XORIG3D WRITE( VAL2, 94000 ) XORIG_GD IF ( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94280 ) XORIG3D, XORIG_GD LERROR = .TRUE. END IF WRITE( VAL1, 94000 ) YORIG3D WRITE( VAL2, 94000 ) YORIG_GD IF ( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94300 ) YORIG3D, YORIG_GD LERROR = .TRUE. END IF WRITE( VAL1, 94000 ) XCELL3D WRITE( VAL2, 94000 ) XCELL_GD IF ( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94320 ) XCELL3D, XCELL_GD LERROR = .TRUE. END IF WRITE( VAL1, 94000 ) YCELL3D WRITE( VAL2, 94000 ) YCELL_GD IF ( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94340 ) YCELL3D, YCELL_GD LERROR = .TRUE. END IF WRITE( VAL1, 94000 ) XCENT3D WRITE( VAL2, 94000 ) XCENT_GD IF ( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94360 ) XCENT3D, XCENT_GD LERROR = .TRUE. END IF WRITE( VAL1, 94000 ) YCENT3D WRITE( VAL2, 94000 ) YCENT_GD IF ( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94380 ) YCENT3D, YCENT_GD LERROR = .TRUE. END IF WRITE( VAL1, 94000 ) VGTOP3D WRITE( VAL2, 94000 ) VGTOP_GD IF ( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94420 ) VGTOP3D, VGTOP_GD LERROR = .TRUE. END IF DO L = 1 , NLAYS3D + 1 WRITE( VAL1, 94000 ) VGLVS3D( L ) WRITE( VAL2, 94000 ) VGLVS_GD( L ) IF ( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94440 ) L, VGLVS3D( L ), L, & VGLVS_GD( L ) LERROR = .TRUE. END IF END DO JDATE = SDATE JTIME = STIME ! ! LFIRST = .TRUE. ! DO N = 1, NSTEPS ! IF ( .NOT. CHECK3( MET_BDY_3D_FIN, 'ALL', ! & JDATE, JTIME ) ) THEN ! LERROR = .TRUE. ! IF ( LFIRST ) THEN ! MSG = 'The following time steps are not on ' ! & // MET_BDY_3D_FIN ! WRITE( LOGUNIT, 94480 ) MSG ! LFIRST = .FALSE. ! END IF ! WRITE( LOGUNIT,'( I7, ":", I6.7 )' ) JDATE, JTIME ! END IF ! CALL NEXTIME ( JDATE, JTIME, TSTEP ) ! END DO cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c If inconsistency found, then stop, else return cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF ( .NOT. LERROR ) THEN WRITE( LOGUNIT, 94460 ) ELSE MSG = 'MET_BDY_3D_FIN file inconsistent: stopping' CALL M3EXIT ( PNAME, JDATE , JTIME, MSG, XSTAT2 ) END IF RETURN C************************* FORMAT STATEMENTS *************************** 94000 FORMAT( E15.5 ) 94020 FORMAT( 10X, 'MET_BDY_3D_FIN FTYPE = ', I3, ' COORD FTYPE', ' = ', I3 ) 94040 FORMAT( 10X, 'MET_BDY_3D_FIN NCOLS = ', I3, ' COORD NCOLS', ' = ', I3 ) 94060 FORMAT( 10X, 'MET_BDY_3D_FIN NROWS = ', I3, ' COORD NROWS', ' = ', I3 ) 94080 FORMAT( 10X, 'MET_BDY_3D_FIN NLAYS = ', I3, ' COORD NLAYS', ' = ', I3 ) 94200 FORMAT( 10X, 'MET_BDY_3D_FIN GDTYP = ', I3, ' COORD GDTYP', ' = ', I3 ) 94220 FORMAT( 10X, 'MET_BDY_3D_FIN P_ALP = ', 1PE12.5, ' COORD P_ALP', ' = ', 1PE12.5 ) 94240 FORMAT( 10X, 'MET_BDY_3D_FIN P_BET = ', 1PE12.5, ' COORD P_BET', ' = ', 1PE12.5 ) 94260 FORMAT( 10X, 'MET_BDY_3D_FIN P_GAM = ', 1PE12.5, ' COORD P_GAM', ' = ', 1PE12.5 ) 94280 FORMAT( 10X, 'MET_BDY_3D_FIN XORIG = ', 1PE12.5, ' COORD XORIG', ' = ', 1PE12.5 ) 94300 FORMAT( 10X, 'MET_BDY_3D_FIN YORIG = ', 1PE12.5, ' COORD YORIG', ' = ', 1PE12.5 ) 94320 FORMAT( 10X, 'MET_BDY_3D_FIN XCELL = ', 1PE12.5, ' COORD XCELL', ' = ', 1PE12.5 ) 94340 FORMAT( 10X, 'MET_BDY_3D_FIN YCELL = ', 1PE12.5, ' COORD YCELL', ' = ', 1PE12.5 ) 94360 FORMAT( 10X, 'MET_BDY_3D_FIN XCENT = ', 1PE12.5, ' COORD XCENT', ' = ', 1PE12.5 ) 94380 FORMAT( 10X, 'MET_BDY_3D_FIN YCENT = ', 1PE12.5, ' COORD YCENT', ' = ', 1PE12.5 ) 94420 FORMAT( 10X, 'MET_BDY_3D_FIN VGTOP = ', 1PE12.5, ' COORD VGTOP', ' = ', 1PE12.5 ) 94440 FORMAT( 10X, 'MET_BDY_3D_FIN VGLVS(', I2, ' ) = ', 1PE12.5, ' COORD VGLVS', & '(', I2, ' ) = ', 1PE12.5 ) 94460 FORMAT( 10X, 'No file header inconsistencies for MET_BDY_3D_FIN' ) 94480 FORMAT( A ) END ================================================ FILE: PREP/bcon/src/m3conc/m3_ck_ctms.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/BCON/src/m3conc/m3_ck_ctms.F,v 1.2 2011/10/21 16:52:35 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% SUBROUTINE CK_CTM_FLS ( LOGUNIT, N_CTM_FLS, CTM_FL_NAME ) C*********************************************************************** C Function: To check multiple input CTM conc files for consistent C header data C Preconditions: None C Key Subroutines/Functions Called: None C Revision History: Prototype created by Jerry Gipson, January, 1998 C Modified by JG May, 1999 to change way reals are C checked C 13 Jul 11 J.Young: Replaced I/O API include files with M3UTILIO C 23 May 12 J.Young: Replaced BC_PARMS include file with an F90 module C 10 June 19 F.Sidi: Corrected data byte mistmatch between IOAPI and BCON C*********************************************************************** USE M3UTILIO ! IOAPI module USE BC_PARMS ! BCON parameters IMPLICIT NONE C Arguments: INTEGER, INTENT( IN ) :: LOGUNIT ! Unit number for output log INTEGER, INTENT( IN ) :: N_CTM_FLS ! Number of input CTM files CHARACTER( 16 ), INTENT( IN ) :: CTM_FL_NAME( : ) ! Name of CTM file C Parameters: None C External Functions: None C Local Variables: CHARACTER( 80 ) :: MSG ! Log message CHARACTER( 16 ) :: PNAME = 'CK_CTM_FLS' ! Procedure Name CHARACTER( 15 ) :: VAL1 ! Character value of real CHARACTER( 15 ) :: VAL2 ! Character value of real INTEGER L, N ! Loop indices INTEGER FTYPE1 ! File 1 file type INTEGER NCOLS1 ! File 1 number of columns INTEGER NROWS1 ! File 1 number of rows INTEGER NLAYS1 ! File 1 number of levels INTEGER SDATE1 ! File 1 start date INTEGER STIME1 ! File 1 start time INTEGER TSTEP1 ! File 1 time step INTEGER MXREC1 ! File 1 number of time steps INTEGER NTHIK1 ! File 1 boundary thickness INTEGER GDTYP1 ! File 1 horizontal grid type INTEGER VGTYP1 ! File 1 Vertical coordinate type INTEGER ALLOCSTAT ! Status returned from array allocation LOGICAL LERROR ! Error Flag LOGICAL LSTOP ! Exit Flag REAL*8 :: P_ALP1 ! File 1 map projection parameter REAL*8 :: P_BET1 ! File 1 map projection parameter REAL*8 :: P_GAM1 ! File 1 map projection parameter REAL*8 :: XORIG1 ! File 1 X-origin REAL*8 :: YORIG1 ! File 1 Y-origin REAL*8 :: XCELL1 ! File 1 X-dimension of cells REAL*8 :: YCELL1 ! File 1 Y-dimension of cells REAL*8 :: XCENT1 ! File 1 X-center of coordinate system REAL*8 :: YCENT1 ! File 1 Y-center of coordinate system REAL VGTOP1 ! File 1 model top REAL, ALLOCATABLE :: VGLVS1( : ) ! File vertical layer heights C*********************************************************************** cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Write out report data cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc MSG = 'Multiple CTM Concentration files being used for ICs' CALL M3WARN ( PNAME, 0, 0, MSG ) MSG = ' Files being checked for consistent header data' CALL M3MESG ( MSG ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Get header data for CTM file 1 cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF ( .NOT. DESC3( CTM_FL_NAME( 1 ) ) ) THEN MSG = 'Could not read DESC of ' // CTM_FL_NAME( 1 ) & // ' file' CALL M3EXIT ( PNAME, 0, 0, MSG, XSTAT2 ) END IF FTYPE1 = FTYPE3D NCOLS1 = NCOLS3D NROWS1 = NROWS3D NLAYS1 = NLAYS3D SDATE1 = SDATE3D STIME1 = STIME3D TSTEP1 = TSTEP3D MXREC1 = MXREC3D NTHIK1 = NTHIK3D GDTYP1 = GDTYP3D P_ALP1 = P_ALP3D P_BET1 = P_BET3D P_GAM1 = P_GAM3D XORIG1 = XORIG3D YORIG1 = YORIG3D XCELL1 = XCELL3D YCELL1 = YCELL3D XCENT1 = XCENT3D YCENT1 = YCENT3D VGTYP1 = VGTYP3D VGTOP1 = VGTOP3D ALLOCATE( VGLVS1( NLAYS1+1 ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN MSG = 'Failure allocating VGLVS1' CALL M3EXIT ( PNAME, 0, 0, MSG, XSTAT1 ) END IF DO N = 1 , NLAYS1 + 1 VGLVS1( N ) = VGLVS3D( N ) END DO cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Compare header data on file 1 with header data on other CTM files cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc LSTOP = .FALSE. DO N = 2, N_CTM_FLS WRITE( MSG, '( '' Differences found between files '', A, & '' and '', A, '':'' )' ) CTM_FL_NAME( 1 ), & CTM_FL_NAME( N ) LERROR = .FALSE. IF ( .NOT. DESC3 ( CTM_FL_NAME( N ) ) ) THEN MSG = 'Could not read DESC of ' // CTM_FL_NAME( N ) & // ' file' CALL M3EXIT ( PNAME, 0, 0, MSG, XSTAT2 ) END IF IF ( FTYPE1 .NE. FTYPE3D ) THEN WRITE( LOGUNIT, 94020 ) FTYPE1, N, FTYPE3D LERROR = .TRUE. END IF IF ( NCOLS1 .NE. NCOLS3D ) THEN WRITE( LOGUNIT, 94040 ) NCOLS1, N, NCOLS3D LERROR = .TRUE. END IF IF ( NROWS1 .NE. NROWS3D ) THEN WRITE( LOGUNIT, 94060 ) NROWS1, N, NROWS3D LERROR = .TRUE. END IF IF ( NLAYS1 .NE. NLAYS3D ) THEN WRITE( LOGUNIT, 94080 ) NLAYS1, N, NLAYS3D LERROR = .TRUE. END IF IF ( SDATE1 .NE. SDATE3D ) THEN WRITE( LOGUNIT, 94100 ) SDATE1, N, SDATE3D LERROR = .TRUE. END IF IF ( STIME1 .NE. STIME3D ) THEN WRITE( LOGUNIT, 94120 ) STIME1, N, STIME3D LERROR = .TRUE. END IF IF ( TSTEP1 .NE. TSTEP3D ) THEN WRITE( LOGUNIT, 94140 ) TSTEP1, N, TSTEP3D LERROR = .TRUE. END IF IF ( MXREC1 .NE. MXREC3D ) THEN WRITE( LOGUNIT, 94160 ) MXREC1, N, MXREC3D LERROR = .TRUE. END IF IF ( NTHIK1 .NE. NTHIK3D ) THEN WRITE( LOGUNIT, 94180 ) NTHIK1, N, NTHIK3D LERROR = .TRUE. END IF IF ( GDTYP1 .NE. GDTYP3D ) THEN WRITE( LOGUNIT, 94200 ) GDTYP1, N, GDTYP3D LERROR = .TRUE. END IF WRITE( VAL1, 94000 ) P_ALP1 WRITE( VAL2, 94000 ) P_ALP3D IF ( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94220 ) P_ALP1, N, P_ALP3D LERROR = .TRUE. END IF WRITE( VAL1, 94000 ) P_BET1 WRITE( VAL2, 94000 ) P_BET3D IF ( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94240 ) P_BET1, N, P_BET3D LERROR = .TRUE. END IF WRITE( VAL1, 94000 ) P_GAM1 WRITE( VAL2, 94000 ) P_GAM3D IF ( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94260 ) P_GAM1, N, P_GAM3D LERROR = .TRUE. END IF WRITE( VAL1, 94000 ) XORIG1 WRITE( VAL2, 94000 ) XORIG3D IF ( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94280 ) XORIG1, N, XORIG3D LERROR = .TRUE. END IF WRITE( VAL1, 94000 ) YORIG1 WRITE( VAL2, 94000 ) YORIG3D IF ( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94300 ) YORIG1, N, YORIG3D LERROR = .TRUE. END IF WRITE( VAL1, 94000 ) XCELL1 WRITE( VAL2, 94000 ) XCELL3D IF ( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94320 ) XCELL1, N, XCELL3D LERROR = .TRUE. END IF WRITE( VAL1, 94000 ) YCELL1 WRITE( VAL2, 94000 ) YCELL3D IF ( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94340 ) YCELL1, N, YCELL3D LERROR = .TRUE. END IF WRITE( VAL1, 94000 ) XCENT1 WRITE( VAL2, 94000 ) XCENT3D IF ( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94360 ) XCENT1, N, XCENT3D LERROR = .TRUE. END IF WRITE( VAL1, 94000 ) YCENT1 WRITE( VAL2, 94000 ) YCENT3D IF ( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94380 ) YCENT1, N, YCENT3D LERROR = .TRUE. END IF WRITE( VAL1, 94000 ) VGTOP1 WRITE( VAL2, 94000 ) VGTOP3D IF ( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94420 ) VGTOP1, N, VGTOP3D LERROR = .TRUE. END IF DO L = 1 , NLAYS1 + 1 WRITE( VAL1, 94000 ) VGLVS1( L ) WRITE( VAL2, 94000 ) VGLVS3D( L ) IF ( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94440 ) L, VGLVS1( L ), N, L, & VGLVS3D( L ) LERROR = .TRUE. END IF END DO IF ( .NOT. LERROR ) THEN WRITE( LOGUNIT, 94460 ) ELSE LSTOP = .TRUE. END IF END DO IF ( LSTOP ) THEN MSG = 'CTM File inconsistencies detected: stopping' CALL M3EXIT ( PNAME, 0, 0, MSG, XSTAT1 ) END IF RETURN C************************* FORMAT STATEMENTS *************************** 94000 FORMAT( E15.5 ) 94020 FORMAT( 10X, 'FTYPE1 = ', I3, ' FTYPE', I1, ' = ', I3 ) 94040 FORMAT( 10X, 'NCOLS1 = ', I3, ' NCOLS', I1, ' = ', I3 ) 94060 FORMAT( 10X, 'NROWS1 = ', I3, ' NROWS', I1, ' = ', I3 ) 94080 FORMAT( 10X, 'NLAYS1 = ', I3, ' NLAYS', I1, ' = ', I3 ) 94100 FORMAT( 10X, 'SDATE1 = ', I3, ' SDATE', I1, ' = ', I3 ) 94120 FORMAT( 10X, 'STIME1 = ', I3, ' STIME', I1, ' = ', I3 ) 94140 FORMAT( 10X, 'TSTEP1 = ', I3, ' TSTEP', I1, ' = ', I3 ) 94160 FORMAT( 10X, 'MXREC1 = ', I3, ' MXREC', I1, ' = ', I3 ) 94180 FORMAT( 10X, 'NTHIK1 = ', I3, ' NTHIK', I1, ' = ', I3 ) 94200 FORMAT( 10X, 'GDTYP1 = ', I3, ' GDTYP', I1, ' = ', I3 ) 94220 FORMAT( 10X, 'P_ALP1 = ', 1PE12.5, ' P_ALP', I1, ' = ', 1PE12.5 ) 94240 FORMAT( 10X, 'P_BET1 = ', 1PE12.5, ' P_BET', I1, ' = ', 1PE12.5 ) 94260 FORMAT( 10X, 'P_GAM1 = ', 1PE12.5, ' P_GAM', I1, ' = ', 1PE12.5 ) 94280 FORMAT( 10X, 'XORIG1 = ', 1PE12.5, ' XORIG', I1, ' = ', 1PE12.5 ) 94300 FORMAT( 10X, 'YORIG1 = ', 1PE12.5, ' YORIG', I1, ' = ', 1PE12.5 ) 94320 FORMAT( 10X, 'XCELL1 = ', 1PE12.5, ' XCELL', I1, ' = ', 1PE12.5 ) 94340 FORMAT( 10X, 'YCELL1 = ', 1PE12.5, ' YCELL', I1, ' = ', 1PE12.5 ) 94360 FORMAT( 10X, 'XCENT1 = ', 1PE12.5, ' XCENT', I1, ' = ', 1PE12.5 ) 94380 FORMAT( 10X, 'YCENT1 = ', 1PE12.5, ' YCENT', I1, ' = ', 1PE12.5 ) 94420 FORMAT( 10X, 'VGTOP1 = ', 1PE12.5, ' VGTOP', I1, ' = ', 1PE12.5 ) 94440 FORMAT( 10X, 'VGLVS1(', I2, ' ) = ', 1PE12.5, ' VGLVS', I1, & '(', I2, ' ) = ', 1PE12.5 ) 94460 FORMAT( 10X, 'NONE' ) END ================================================ FILE: PREP/bcon/src/m3conc/m3_ck_met.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/BCON/src/m3conc/m3_ck_met.F,v 1.2 2011/10/21 16:52:35 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% SUBROUTINE CK_MET_FL ( LOGUNIT, SDATE, STIME, TSTEP, NSTEPS, CTM_FL_NAME ) C*********************************************************************** C Function: To check input MET_CRO_3D_CRS file for consistency with C the CTM_CONC file C Preconditions: None C Key Subroutines/Functions Called: None C Revision History: Prototype created by Jerry Gipson, May, 1999 C 08 Jun 11 J.Young: Replaced I/O API include files with M3UTILIO C 23 May 12 J.Young: Replaced BC_PARMS include file with an F90 module C 10 June 19 F. Sidi: Corrected data byte mismatch between IOAPI and BCON C & commented out unused variables (LFIRST & N) C*********************************************************************** USE M3UTILIO ! IOAPI module USE BC_PARMS ! BCON parameters IMPLICIT NONE C Arguments: INTEGER, INTENT( IN ) :: LOGUNIT ! Unit number for output log INTEGER, INTENT( IN ) :: SDATE ! Start date INTEGER, INTENT( IN ) :: STIME ! Start time INTEGER, INTENT( IN ) :: TSTEP ! Time step INTEGER, INTENT( IN ) :: NSTEPS ! No. of time steps CHARACTER( 16 ), INTENT( IN ) :: CTM_FL_NAME( : ) ! Names of CTM files C Parameters: None C External Functions: None C Local Variables: CHARACTER( 80 ) :: MSG = ' ' ! Log message CHARACTER( 16 ) :: PNAME = 'CK_MET_FL' ! Procedure Name CHARACTER( 15 ) :: VAL1 ! Character value of real CHARACTER( 15 ) :: VAL2 ! Character value of real INTEGER JDATE ! Current date INTEGER JTIME ! Current time ! INTEGER N INTEGER L ! Loop indices INTEGER FTYPE1 ! File 1 file type INTEGER NCOLS1 ! File 1 number of columns INTEGER NROWS1 ! File 1 number of rows INTEGER NLAYS1 ! File 1 number of levels INTEGER NTHIK1 ! File 1 boundary thickness INTEGER GDTYP1 ! File 1 horizontal grid type INTEGER VGTYP1 ! File 1 Vertical coordinate type INTEGER ALLOCSTAT ! Status returned from array allocation LOGICAL LERROR ! Error Flag ! LOGICAL LFIRST ! First time flag REAL*8 :: P_ALP1 ! File 1 map projection parameter REAL*8 :: P_BET1 ! File 1 map projection parameter REAL*8 :: P_GAM1 ! File 1 map projection parameter REAL*8 :: XORIG1 ! File 1 X-origin REAL*8 :: YORIG1 ! File 1 Y-origin REAL*8 :: XCELL1 ! File 1 X-dimension of cells REAL*8 :: YCELL1 ! File 1 Y-dimension of cells REAL*8 :: XCENT1 ! File 1 X-center of coordinate system REAL*8 :: YCENT1 ! File 1 Y-center of coordinate system REAL VGTOP1 ! File 1 model top REAL, ALLOCATABLE :: VGLVS1( : ) ! File vertical layer heights C*********************************************************************** cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Write out report data cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc MSG = 'Checking MET_CRO_3D_CRS File checked for consistent ' // & 'header data' CALL M3MESG ( MSG ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Get header data for CTM file 1 and create a list of species in the c CTM files cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF ( .NOT. DESC3 ( CTM_FL_NAME( 1 ) ) ) THEN MSG = 'Could not read DESC of ' // CTM_FL_NAME( 1 ) & // ' file' CALL M3ERR ( PNAME, 0, 0, MSG, .TRUE. ) END IF FTYPE1 = FTYPE3D NCOLS1 = NCOLS3D NROWS1 = NROWS3D NLAYS1 = NLAYS3D NTHIK1 = NTHIK3D GDTYP1 = GDTYP3D P_ALP1 = P_ALP3D P_BET1 = P_BET3D P_GAM1 = P_GAM3D XORIG1 = XORIG3D YORIG1 = YORIG3D XCELL1 = XCELL3D YCELL1 = YCELL3D XCENT1 = XCENT3D YCENT1 = YCENT3D VGTYP1 = VGTYP3D VGTOP1 = VGTOP3D ALLOCATE( VGLVS1( NLAYS1+1 ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN MSG = 'Failure allocating VGLVS1' CALL M3EXIT ( PNAME, 0, 0, MSG, XSTAT1 ) END IF DO L = 1 , NLAYS1 + 1 VGLVS1( L ) = VGLVS3D( L ) END DO cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Open the MET_CRO_3D_CRS file cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF ( .NOT. OPEN3( MET_CRO_3D_CRS, FSREAD3, PNAME ) ) THEN MSG = 'Could not open ' // MET_CRO_3D_CRS // ' file' CALL M3EXIT ( PNAME, 0, 0, MSG, XSTAT1 ) END IF IF ( .NOT. DESC3( MET_CRO_3D_CRS ) ) THEN MSG = 'Could not read DESC of ' // MET_CRO_3D_CRS & // ' file' CALL M3EXIT ( PNAME, 0, 0, MSG, XSTAT1 ) END IF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Check MET_CRO_3D_CRS file cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc WRITE( MSG, '( '' Differences found between files '', A, & '' and '', A, '':'' )' ) CTM_FL_NAME( 1 ), & MET_CRO_3D_CRS CALL M3MESG ( MSG ) LERROR = .FALSE. IF ( FTYPE1 .NE. FTYPE3D ) THEN WRITE( LOGUNIT, 94020 ) FTYPE1, FTYPE3D LERROR = .TRUE. END IF IF ( GDTYP1 .NE. GDTYP3D ) THEN WRITE( LOGUNIT, 94200 ) GDTYP1, GDTYP3D LERROR = .TRUE. END IF WRITE( VAL1, 94000 ) P_ALP1 WRITE( VAL2, 94000 ) P_ALP3D IF ( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94220 ) P_ALP1, P_ALP3D LERROR = .TRUE. END IF WRITE( VAL1, 94000 ) P_BET1 WRITE( VAL2, 94000 ) P_BET3D IF ( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94240 ) P_BET1, P_BET3D LERROR = .TRUE. END IF WRITE( VAL1, 94000 ) P_GAM1 WRITE( VAL2, 94000 ) P_GAM3D IF ( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94260 ) P_GAM1, P_GAM3D LERROR = .TRUE. END IF WRITE( VAL1, 94000 ) XORIG1 WRITE( VAL2, 94000 ) XORIG3D IF ( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94280 ) XORIG1, XORIG3D LERROR = .TRUE. END IF WRITE( VAL1, 94000 ) YORIG1 WRITE( VAL2, 94000 ) YORIG3D IF ( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94300 ) YORIG1, YORIG3D LERROR = .TRUE. END IF WRITE( VAL1, 94000 ) XCELL1 WRITE( VAL2, 94000 ) XCELL3D IF ( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94320 ) XCELL1, XCELL3D LERROR = .TRUE. END IF WRITE( VAL1, 94000 ) YCELL1 WRITE( VAL2, 94000 ) YCELL3D IF ( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94340 ) YCELL1, YCELL3D LERROR = .TRUE. END IF WRITE( VAL1, 94000 ) XCENT1 WRITE( VAL2, 94000 ) XCENT3D IF ( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94360 ) XCENT1, XCENT3D LERROR = .TRUE. END IF WRITE( VAL1, 94000 ) YCENT1 WRITE( VAL2, 94000 ) YCENT3D IF ( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94380 ) YCENT1, YCENT3D LERROR = .TRUE. END IF WRITE( VAL1, 94000 ) VGTOP1 WRITE( VAL2, 94000 ) VGTOP3D IF ( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94420 ) VGTOP1, VGTOP3D LERROR = .TRUE. END IF DO L = 1 , NLAYS1 + 1 WRITE( VAL1, 94000 ) VGLVS1( L ) WRITE( VAL2, 94000 ) VGLVS3D( L ) IF ( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94440 ) L, VGLVS1( L ), L, & VGLVS3D( L ) LERROR = .TRUE. END IF END DO JDATE = SDATE JTIME = STIME ! LFIRST = .TRUE. ! DO N = 1, NSTEPS ! IF ( .NOT. CHECK3( MET_CRO_3D_CRS, 'ALL', ! & JDATE, JTIME ) ) THEN ! LERROR = .TRUE. ! IF ( LFIRST ) THEN ! MSG = 'The following time steps are not on ' // ! & MET_CRO_3D_CRS ! WRITE( LOGUNIT, '( A )' ) MSG ! LFIRST = .FALSE. ! END IF ! WRITE( LOGUNIT, '( I7, 1X, I6 )' ) JDATE, JTIME ! END IF ! CALL NEXTIME ( JDATE, JTIME, TSTEP ) ! END DO cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c If inconsistency found, then stop, else return cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF ( .NOT. LERROR ) THEN WRITE( LOGUNIT, 94460 ) ELSE MSG = 'MET_CRO_3D_CRS file inconsistent: stopping' CALL M3EXIT ( PNAME, 0, 0, MSG, XSTAT1 ) END IF RETURN C************************* FORMAT STATEMENTS *************************** 94000 FORMAT( E15.5 ) 94020 FORMAT(10X, 'CTM_CONC_1 FTYPE = ', I3, 3X, & 'MET_CRO_3D_CRS FTYPE = ', I3 ) 94200 FORMAT(10X, 'CTM_CONC_1 GDTYP = ', I3, 3X, & 'MET_CRO_3D_CRS GDTYP = ', I3 ) 94220 FORMAT(10X, 'CTM_CONC_1 P_ALP = ', 1PE12.5, 3X, & 'MET_CRO_3D_CRS P_ALP = ', 1PE12.5 ) 94240 FORMAT(10X, 'CTM_CONC_1 P_BET = ', 1PE12.5, 3X, & 'MET_CRO_3D_CRS P_BET = ', 1PE12.5 ) 94260 FORMAT(10X, 'CTM_CONC_1 P_GAM = ', 1PE12.5, 3X, & 'MET_CRO_3D_CRS P_GAM = ', 1PE12.5 ) 94280 FORMAT(10X, 'CTM_CONC_1 XORIG = ', 1PE12.5, 3X, & 'MET_CRO_3D_CRS XORIG = ', 1PE12.5 ) 94300 FORMAT(10X, 'CTM_CONC_1 YORIG = ', 1PE12.5, 3X, & 'MET_CRO_3D_CRS YORIG = ', 1PE12.5 ) 94320 FORMAT(10X, 'CTM_CONC_1 XCELL = ', 1PE12.5, 3X, & 'MET_CRO_3D_CRS XCELL = ', 1PE12.5 ) 94340 FORMAT(10X, 'CTM_CONC_1 YCELL = ', 1PE12.5, 3X, & 'MET_CRO_3D_CRS YCELL = ', 1PE12.5 ) 94360 FORMAT(10X, 'CTM_CONC_1 XCENT = ', 1PE12.5, 3X, & 'MET_CRO_3D_CRS XCENT = ', 1PE12.5 ) 94380 FORMAT(10X, 'CTM_CONC_1 YCENT = ', 1PE12.5, 3X, & 'MET_CRO_3D_CRS YCENT = ', 1PE12.5 ) 94420 FORMAT(10X, 'CTM_CONC_1 VGTOP = ', 1PE12.5, 3X, & 'MET_CRO_3D_CRS VGTOP = ', 1PE12.5 ) 94440 FORMAT(10X, 'CTM_CONC_1 VGLVS(', I2, ' ) = ', 1PE12.5, & 'MET_CRO_3D_CRS VGLVS(', I2, ' ) = ', 1PE12.5 ) 94460 FORMAT(10X, 'NONE' ) END ================================================ FILE: PREP/bcon/src/m3conc/m3_driver.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/BCON/src/m3conc/m3_driver.F,v 1.2 2011/10/21 16:52:35 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% SUBROUTINE M3_INBNDY ( LOGUNIT ) C*********************************************************************** C Function: Opens the Models-3 CTM conc file(s) and checks for C data consistency, and calls the routine to C compute the BCs and write the output BC file C Preconditions: None C Key Subroutines/Functions Called: CK_CTM_FLS C M3_BCOUT C Revision History: C Prototype created by Jerry Gipson, January, 1998 C Modified 4/22/99 by JG to provide default treatment for missing RUNLEN C Modified by JG May, 1999 to treat PinG concs C 02/25/02 Steve Howard (Jeff Young) - dynamic allocation C 01/05/05 J.Young: vert dyn alloc - Use VGRD_DEFN C 13 Jul 11 J.Young: Replaced I/O API include files with M3UTILIO and C Namelist for species definitions C 23 May 12 J.Young: Replaced BC_PARMS include file with an F90 module C 14 Sep 18 S.Roselle: Removed species mapping C 10 June 19 F.Sidi : Corrected data type mismatch between IOAPI and BCON C 20 April 21 C. Hogrefe: Force height or pressure interpolation if either C grid uses hybrid vertical coordinates. This C requires checking for MET_CRO_3D and MET_BDY_3 C*********************************************************************** USE HGRD_DEFN ! Module to store and load the horizontal grid variables USE VGRD_DEFN ! vertical layer specifications USE M3UTILIO ! IOAPI module USE BC_PARMS ! BCON parameters IMPLICIT NONE C Arguments: INTEGER, INTENT( IN ) :: LOGUNIT ! Unit number for output log C Parameters: None C External Functions: None C Local Variables: CHARACTER( 16 ) :: ENV_DFLT ! Environment variable default value CHARACTER( 80 ) :: ENV_DESC ! Environment variable description CHARACTER( 16 ) :: FL_NAME ! Input CTM file name CHARACTER( 80 ) :: MSG ! Log message CHARACTER( 16 ) :: PNAME = 'M3_INBNDY' ! Procedure name CHARACTER( 256 ) :: RET_VAL ! Returned value of environment variable CHARACTER( 16 ), ALLOCATABLE :: CTM_FL_NAME( : ) ! Names of CTM files CHARACTER( 16 ), ALLOCATABLE :: INFL_SP_NAME( : ) ! Names of CTM species CHARACTER( 16 ), ALLOCATABLE :: UNITS_IN( : ) ! Units for CTM species CHARACTER( 80 ), ALLOCATABLE :: VDESC_IN( : ) ! Variable description for CTM species INTEGER, ALLOCATABLE :: VTYPE_IN( : ) ! variable type for CTM species INTEGER :: RUNLEN = 0 ! Time duration for BC output (HHMMSS) INTEGER :: SDATE = 0 ! Date for BC output (YYYYJJJ) INTEGER :: STIME = 0 ! Time for BC output (HHMMSS) INTEGER :: JDATE ! Current date INTEGER :: JTIME ! Current time INTEGER :: N ! File loop index INTEGER :: N_CTM_FLS ! Number of input CTM files INTEGER :: NCOLS_IN ! No. of columns in input conc file INTEGER :: NLAYS_IN ! No. of layers in input conc file INTEGER :: NROWS_IN ! No. of rows in input conc file INTEGER :: NSPCS_IN ! CTM files species counter INTEGER :: VGTYP_IN ! input conc file VGTYP INTEGER :: SDATE_IN ! input conc file start date INTEGER :: STIME_IN ! input conc file start time INTEGER :: EDATE_IN ! input conc file end date INTEGER :: ETIME_IN ! input conc file end time INTEGER :: TSTEP_IN ! input conc file timestep INTEGER :: NSTEPS_IN ! Number time steps in input conc file INTEGER :: SECS ! time variable (sec) INTEGER :: SECS_STRT ! time variable (sec) INTEGER :: SECS_END ! time variable (sec) INTEGER :: NSTINC ! No. of steps on file before start of output INTEGER :: STATUS ! Status code INTEGER :: ALLOCSTAT ! Status returned from array allocation INTEGER :: STRTINC ! No. of sec. on file before start of output INTEGER :: STEPSECS ! Seconds per time step INTEGER :: TOTSECS ! Time duration for BC file (seconds) INTEGER :: NSTEPS ! Number time steps in BC output file INTEGER :: TSTEP ! Time step BC output file (HHMMSS) INTEGER :: V ! Variable loop index REAL :: VGTOP_IN ! input conc file VGTOP INTERFACE SUBROUTINE CK_CTM_FLS ( LOGUNIT, N_CTM_FLS, CTM_FL_NAME ) INTEGER, INTENT( IN ) :: LOGUNIT INTEGER, INTENT( IN ) :: N_CTM_FLS CHARACTER( 16 ), INTENT( IN ) :: CTM_FL_NAME( : ) END SUBROUTINE CK_CTM_FLS SUBROUTINE CK_MET_FL ( LOGUNIT, SDATE, STIME, TSTEP, NSTEPS, CTM_FL_NAME ) INTEGER, INTENT( IN ) :: LOGUNIT INTEGER, INTENT( IN ) :: SDATE INTEGER, INTENT( IN ) :: STIME INTEGER, INTENT( IN ) :: TSTEP INTEGER, INTENT( IN ) :: NSTEPS CHARACTER( 16 ), INTENT( IN ) :: CTM_FL_NAME( : ) END SUBROUTINE CK_MET_FL SUBROUTINE CK_BDY_FL ( LOGUNIT, SDATE, STIME, TSTEP, NSTEPS ) INTEGER, INTENT( IN ) :: LOGUNIT INTEGER, INTENT( IN ) :: SDATE INTEGER, INTENT( IN ) :: STIME INTEGER, INTENT( IN ) :: TSTEP INTEGER, INTENT( IN ) :: NSTEPS END SUBROUTINE CK_BDY_FL SUBROUTINE M3_BCOUT ( LOGUNIT, & N_CTM_FLS, & SDATE, STIME, NSTEPS, & NCOLS_IN, NROWS_IN, NLAYS_IN, NSPCS_IN, & CTM_FL_NAME, INFL_SP_NAME, & VTYPE_IN, UNITS_IN, VDESC_IN ) INTEGER, INTENT( IN ) :: LOGUNIT INTEGER, INTENT( IN ) :: N_CTM_FLS INTEGER, INTENT( IN ) :: SDATE INTEGER, INTENT( IN ) :: STIME INTEGER, INTENT( IN ) :: NSTEPS INTEGER, INTENT( IN ) :: NCOLS_IN INTEGER, INTENT( IN ) :: NLAYS_IN INTEGER, INTENT( IN ) :: NROWS_IN INTEGER, INTENT( IN ) :: NSPCS_IN CHARACTER( 16 ), INTENT( IN ) :: CTM_FL_NAME( : ) CHARACTER( 16 ), INTENT( IN ) :: INFL_SP_NAME( : ) CHARACTER( 16 ), INTENT( IN ) :: UNITS_IN( : ) CHARACTER( 80 ), INTENT( IN ) :: VDESC_IN( : ) INTEGER, INTENT( IN ) :: VTYPE_IN( : ) END SUBROUTINE M3_BCOUT END INTERFACE C*********************************************************************** WRITE( LOGUNIT, 92000 ) SDATE = ENVINT( 'SDATE', 'START DATE', 0, STATUS ) IF ( STATUS .NE. 0 ) SDATE = 0 STIME = ENVINT( 'STIME', 'START TIME', 0, STATUS ) IF ( STATUS .NE. 0 ) STIME = 0 RUNLEN = ENVINT( 'RUNLEN', 'RUN LENGTH', 0, STATUS ) IF ( STATUS .NE. 0 ) RUNLEN = 0 cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Determine the number of input CTM conc files that need to be read cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc ALLOCATE( CTM_FL_NAME( MXCTMS ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN MSG = 'Failure allocating CTM_FL_NAME' CALL M3EXIT ( PNAME, 0, 0, MSG, XSTAT1 ) END IF N_CTM_FLS = 0 WRITE( LOGUNIT, 92020 ) DO N = 1, MXCTMS WRITE( FL_NAME, '( ''CTM_CONC_'', I1 )' ) N WRITE( ENV_DESC, '( ''CTM Concentration file no. '', I1 )' ) N ENV_DFLT = ' ' CALL ENVSTR ( FL_NAME, ENV_DESC, ENV_DFLT, RET_VAL, STATUS) IF ( STATUS .EQ. 0 ) THEN N_CTM_FLS = N_CTM_FLS + 1 CTM_FL_NAME( N_CTM_FLS ) = FL_NAME END IF END DO IF ( N_CTM_FLS .EQ. 0 ) THEN MSG = 'No CTM CONC files found' CALL M3EXIT ( PNAME, 0, 0, MSG, XSTAT2 ) END IF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Open the input Models-3 CTM concentration file(s) and put the species c names on each file in one contiguous array cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc ALLOCATE( INFL_SP_NAME( N_CTM_FLS*MXVARS3 ), & UNITS_IN( N_CTM_FLS*MXVARS3 ), & VDESC_IN( N_CTM_FLS*MXVARS3 ), & VTYPE_IN( N_CTM_FLS*MXVARS3 ), & STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN MSG = 'Failure allocating UNITS_IN, VDESC_IN, VTYPE_IN' CALL M3EXIT ( PNAME, 0, 0, MSG, XSTAT1 ) END IF NSPCS_IN = 0 DO N = 1, N_CTM_FLS IF ( .NOT. OPEN3( CTM_FL_NAME( N ), FSREAD3, PNAME ) ) THEN MSG = 'Could not open ' // CTM_FL_NAME( N ) // ' file' CALL M3EXIT ( PNAME, SDATE, STIME, MSG, XSTAT2 ) END IF IF ( .NOT. DESC3( CTM_FL_NAME( N ) ) ) THEN MSG = 'Could not read DESC of ' // CTM_FL_NAME( N ) & // ' file' CALL M3EXIT ( PNAME, SDATE, STIME, MSG, XSTAT2 ) END IF NCOLS_IN = NCOLS3D NROWS_IN = NROWS3D NLAYS_IN = NLAYS3D VGTYP_IN = VGTYP3D VGTOP_IN = VGTOP3D SDATE_IN = SDATE3D STIME_IN = STIME3D TSTEP_IN = TSTEP3D NSTEPS_IN = MXREC3D DO V = 1, NVARS3D NSPCS_IN = NSPCS_IN + 1 INFL_SP_NAME( NSPCS_IN ) = VNAME3D( V ) VTYPE_IN( NSPCS_IN ) = VTYPE3D( V ) UNITS_IN( NSPCS_IN ) = UNITS3D( V ) VDESC_IN( NSPCS_IN ) = VDESC3D( V ) END DO END DO cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Check multiple input CTM files for consistency cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF ( N_CTM_FLS .GT. 1 ) CALL CK_CTM_FLS( LOGUNIT, N_CTM_FLS, CTM_FL_NAME ) TSTEP = TSTEP_IN NSTEPS = NSTEPS_IN cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Check MET_CRO_3D and MET_BDY_3 if necessary cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF ( VGTYP_GD .NE. VGTYP_IN .OR. VGTOP_GD .NE. VGTOP_IN .OR. & VGTYP_GD .EQ. -9999 .OR. VGTYP_IN .EQ. -9999) THEN CALL CK_MET_FL ( LOGUNIT, SDATE, STIME, TSTEP, NSTEPS, CTM_FL_NAME ) CALL CK_BDY_FL ( LOGUNIT, SDATE, STIME, TSTEP, NSTEPS ) END IF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Reset start and runlen times if necessary cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc EDATE_IN = SDATE_IN ETIME_IN = STIME_IN CALL NEXTIME ( EDATE_IN, ETIME_IN, & SEC2TIME( ( NSTEPS_IN - 1 ) * TIME2SEC( TSTEP_IN ) ) ) C for time-dependent concentration file IF ( TSTEP_IN .GT. 0 ) THEN C inherit timestep from MET_BDY_3D_FIN IF ( .NOT. DESC3( MET_BDY_3D_FIN ) ) THEN MSG = 'Could not read DESC of ' // MET_BDY_3D_FIN // ' file' CALL M3EXIT ( PNAME, SDATE, STIME, MSG, XSTAT2 ) END IF TSTEP = TSTEP3D C if user did not specify SDATE, then inherit the SDATE from MET_BDY_3D_FIN IF ( SDATE .EQ. 0 ) THEN MSG = 'Input SDATE equals zero; SDATE ' // & 'reset to MET_BDY_3D_FIN file start date' CALL M3MESG ( MSG ) SDATE = SDATE3D END IF C if user did not specify STIME, then inherit the STIME from MET_BDY_3D_FIN IF ( STIME .EQ. 0 ) THEN MSG = 'Input STIME equals zero; STIME ' // & 'reset to MET_BDY_3D_FIN file start time' CALL M3MESG ( MSG ) STIME = STIME3D END IF SECS_STRT = SECSDIFF( SDATE_IN, STIME_IN, SDATE, STIME ) SECS_END = SECSDIFF( EDATE_IN, ETIME_IN, SDATE, STIME ) IF ( ( SECS_STRT .LT. 0 ) .OR. ( SECS_END .GT. 0 ) ) THEN MSG = 'Requested starting time is not in the ' // & CTM_FL_NAME( 1 ) // ' file' CALL M3EXIT ( PNAME, SDATE, STIME, MSG, XSTAT2 ) END IF c Find number of steps on file from starting point STEPSECS = TIME2SEC( TSTEP ) STRTINC = SECSDIFF( SDATE3D, STIME3D, SDATE, STIME ) NSTINC = STRTINC / STEPSECS c Check and reset RUNLEN if necessary IF ( RUNLEN .NE. 0 ) THEN IF ( RUNLEN .LT. 1000000 ) THEN TOTSECS = TIME2SEC( RUNLEN ) ELSE ! HH > 99 RUNLEN = RUNLEN - 1000000 TOTSECS = TIME2SEC( RUNLEN ) TOTSECS = TOTSECS + 360000 END IF IF ( MOD( TOTSECS, STEPSECS ) .EQ. 0 ) THEN NSTEPS = TOTSECS / STEPSECS + 1 ELSE MSG = 'Output time step ' // HHMMSS( TSTEP3D ) // & ' does not divide duration ' // HHMMSS( RUNLEN ) CALL M3EXIT ( PNAME, SDATE, STIME, MSG, XSTAT2 ) END IF IF ( NSTEPS .GT. MXREC3D - NSTINC ) THEN MSG = 'Input RUNLEN exceeds time steps on input file. ' WRITE( LOGUNIT, '( /5X, A )' ) MSG MSG = 'Resetting RUNLEN to correspond to CTM file ending ' // & 'date & time.' WRITE( LOGUNIT, '( 5X, A )' ) MSG NSTEPS = MXREC3D - NSTINC RUNLEN = SEC2TIME( ( NSTEPS - 1 ) * STEPSECS ) END IF ELSE MSG = 'Input RUNLEN not set or equal to zero. ' WRITE( LOGUNIT, '( /5X, A )' ) MSG MSG = 'Resetting RUNLEN to correspond to MET_BDY_3D_FIN file ' // & 'ending date & time.' WRITE( LOGUNIT, '( 5X, A )' ) MSG NSTEPS = MXREC3D - NSTINC END IF c Check to make sure end date is on CTM file JDATE = SDATE JTIME = STIME CALL NEXTIME ( JDATE, JTIME, RUNLEN ) SECS = SECSDIFF( JDATE, JTIME, EDATE_IN, ETIME_IN ) IF ( SECS .LT. 0 ) THEN MSG = 'Requested ending time is not in the ' // & CTM_FL_NAME( 1 ) // ' file' CALL M3EXIT ( PNAME, JDATE, JTIME, MSG, XSTAT2 ) END IF ELSE MSG = 'Input CTM file is time independent. ' // & 'Output BCON file will be time independent.' CALL M3MESG ( MSG ) SDATE = 0 STIME = 0 TSTEP = 0 NSTEPS = 1 END IF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c compute and outputs BCs from the input CTM conc file(s) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc CALL M3_BCOUT ( LOGUNIT, & N_CTM_FLS, & SDATE, STIME, NSTEPS, & NCOLS_IN, NROWS_IN, NLAYS_IN, & NSPCS_IN, CTM_FL_NAME, & INFL_SP_NAME, VTYPE_IN, UNITS_IN, VDESC_IN ) RETURN C************************* FORMAT Statements *************************** 92000 FORMAT( // 1X, 79( '#' ) & / 1X, '# Input section ' & / 1X, 79( '#' ) & // 5X, 'Boundary Concentrations from a CMAQ CTM ', & 'concentration file.' ) 92020 FORMAT( // 5X, 'Input Models3 CTM file names: ' ) END ================================================ FILE: PREP/bcon/src/m3conc/m3_vinterp.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/BCON/src/m3conc/m3_vinterp.F,v 1.2 2011/10/21 16:52:35 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% SUBROUTINE M3_VINTERP ( LOGUNIT, JDATE, JTIME, & NCOLS_IN, NROWS_IN, NLAYS_IN, NSPCS_IN, & COL_LOC, ROW_LOC, & BCIN, BCVI, CTM_FL_NAME ) C************************************************************************* C Function: Interpolates/Extrapolates concentrations in vertical. C The number of layers in CONCIN is collapsed or expanded C according to the number of layers in COORD.EXT. C Interpolation is done using rational function interpolation C ( Numerical Recipes, Press et al.) or linear C interpolation. When extapolation is required, the C concentration of the outside layer is used. If the input C file has only one layer, the concentrtaions in that layer C are used for all output layers. C Preconditions: None C Key Subroutines/Functions Called: LR_INTERP C Revision History: C Prototype created by Jerry Gipson, January, 1998 C Modified by JG 4/26/99 to change variables SDATE and STIME to JDATE and C JTIME for consistency C Modified by JG 5/26/99 to treat PinG plumes C 02/25/02 Steve Howard (Jeff Young) - dynamic allocation C 01/05/05 J.Young: vert dyn alloc - Use VGRD_DEFN C eliminate malloc calls C 13 Jul 11 J.Young: Replaced I/O API include files with M3UTILIO C 23 May 12 J.Young: Replaced BC_PARMS include file with an F90 module C 10 June 19 F. Sidi: Commented out INTEGER STATUS unused variable C 20 April 21 C. Hogrefe: Force height or pressure interpolation if either C grid uses hybrid vertical coordinates C************************************************************************* USE HGRD_DEFN ! Module to store and load the horizontal grid variables USE VGRD_DEFN ! vertical layer specifications USE M3UTILIO ! IOAPI module USE BC_PARMS ! BCON parameters IMPLICIT NONE C Arguments: INTEGER, INTENT( IN ) :: LOGUNIT ! Unit number for output log INTEGER, INTENT( IN ) :: JDATE ! Date for IC Output INTEGER, INTENT( IN ) :: JTIME ! Time for IC output INTEGER, INTENT( IN ) :: NCOLS_IN ! No. of columns in input conc file INTEGER, INTENT( IN ) :: NROWS_IN ! No. of rows in input conc file INTEGER, INTENT( IN ) :: NLAYS_IN ! No. of layers in input conc file INTEGER, INTENT( IN ) :: NSPCS_IN ! No. of species in input conc file INTEGER, INTENT( IN ) :: COL_LOC( : ) ! Output IC col corresponding to ! a cell in the input CTM file INTEGER, INTENT( IN ) :: ROW_LOC( : ) ! Output IC row corresponding to ! a cell in the input CTM file REAL, INTENT( IN ) :: BCIN( :,:,: ) ! Input conc array REAL, INTENT( OUT ) :: BCVI( :,:,: ) ! Output IC array CHARACTER( 16 ), INTENT( IN ) :: CTM_FL_NAME( : ) ! CTM_CONC file name(s) C Parameters: None C External Functions: None C Local Variables: LOGICAL, SAVE :: LFIRST = .TRUE. ! Flag for first call LOGICAL, SAVE :: LDEC ! Flag for monotonic decreasing layer levels LOGICAL, SAVE :: LINC ! Flag for monotonic increasing layer levels LOGICAL, SAVE :: L_IDENTICAL ! Flag for identical vert coord systems LOGICAL, SAVE :: L_RATINT ! Flag to use rational function interpolation LOGICAL, SAVE :: L_SAME_SCALE ! Flag for same vert coord systems but ! different resolutions CHARACTER( 20 ) :: CHR1 ! Value of variable 1 in character data CHARACTER( 20 ) :: CHR2 ! Value of variable 1 in character data CHARACTER( 80 ) :: MSG ! Log message CHARACTER( 16 ) :: PNAME = 'M3_VINTERP' ! Procedure Name CHARACTER( 16 ), SAVE :: ZP_VNAME ! ZH or PRES Variable Name INTEGER C ! Loop indices for columns INTEGER L ! Loop index for vertical layers INTEGER MXLEV ! Largest no. of levels INTEGER N ! Loop index for boundary cells INTEGER R ! Loop indices for rows ! INTEGER STATUS ! Status code INTEGER V ! Loop index for variables INTEGER ALLOCSTAT ! Status returned from array allocation REAL DELY ! Error estimate for conc interpolated by rational func REAL X3 ! Vertical coordinate used in interpolation REAL Y ! Interpolated concentration REAL, ALLOCATABLE, SAVE :: WORKA( : ) ! Work array for conc input REAL, ALLOCATABLE, SAVE :: X3_OLD( : ) ! Old Vertical coordinate values REAL, ALLOCATABLE, SAVE :: HT_BNDY( :,: ) ! New mid-layer heights REAL, ALLOCATABLE, SAVE :: HT_CTM( :,:,: ) ! Old mid-layer heights INTERFACE SUBROUTINE LR_INTERP ( L_RATINT, XA, YA, N, X, Y, DELY ) LOGICAL, INTENT( IN ) :: L_RATINT REAL, INTENT( IN ) :: XA( : ) REAL, INTENT( IN ) :: YA( : ) REAL, INTENT( IN ) :: X REAL, INTENT( OUT ) :: Y REAL, INTENT( OUT ) :: DELY INTEGER, INTENT( IN ) :: N END SUBROUTINE LR_INTERP END INTERFACE C*********************************************************************** cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c On first call, write log info and set flags cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF ( LFIRST ) THEN cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c allocate arrays cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc ALLOCATE( WORKA( NLAYS_IN ), X3_OLD( NLAYS_IN ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN MSG = 'Failure allocating WORKA, X3_OLD' CALL M3EXIT ( PNAME, 0, 0, MSG, XSTAT1 ) END IF ALLOCATE( HT_BNDY( NBNDY,NLAYS ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN MSG = 'Failure allocating HT_BNDY' CALL M3EXIT ( PNAME, 0, 0, MSG, XSTAT1 ) END IF ALLOCATE( HT_CTM( NCOLS_IN,NROWS_IN,NLAYS_IN ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN MSG = 'Failure allocating HT_CTM' CALL M3EXIT ( PNAME, 0, 0, MSG, XSTAT1 ) END IF IF ( .NOT. DESC3( CTM_FL_NAME( 1 ) ) ) THEN MSG = 'Could not read DESC of ' // CTM_FL_NAME( 1 ) & // ' file' CALL M3EXIT ( PNAME, JDATE, JTIME, MSG, XSTAT2 ) END IF C Determine type of interpolation to use: linear or rational function WRITE( LOGUNIT, 92000 ) L_RATINT = .FALSE. MSG = 'Flag for interpolation by rational function' ! L_RATINT = ENVYN( 'RATIONAL_FUNC', MSG, L_RATINT, STATUS ) IF ( .NOT. L_RATINT ) THEN MSG = 'Vertical interpolation method: Linear' ELSE MSG = 'Vertical interpolation method: Rational Function.' END IF C Check if vertical grids are the same or different L_IDENTICAL = .TRUE. L_SAME_SCALE = .TRUE. C The following two lines are for testing only ! L_IDENTICAL = .FALSE. ! L_SAME_SCALE = .FALSE. IF ( VGTYP_GD .NE. VGTYP3D ) THEN L_IDENTICAL = .FALSE. L_SAME_SCALE = .FALSE. END IF IF ( VGTOP_GD .NE. VGTOP3D ) THEN L_IDENTICAL = .FALSE. L_SAME_SCALE = .FALSE. END IF IF ( NLAYS .EQ. NLAYS_IN ) THEN DO L = 1, NLAYS + 1 WRITE( CHR1, 94000 ) VGLVS_GD( L ) WRITE( CHR2, 94000 ) VGLVS3D( L ) IF ( CHR1 .NE. CHR2 ) L_IDENTICAL = .FALSE. END DO ELSE L_IDENTICAL = .FALSE. END IF C If either grid uses hybrid vertical coordinates, force height C or pressure vertical interpolation IF ( ( VGTYP_GD . EQ. -9999 ) .OR. ( VGTYP3D . EQ. -9999 ) ) THEN L_IDENTICAL = .FALSE. L_SAME_SCALE = .FALSE. ENDIF C For same grids, simply report IF ( L_IDENTICAL ) THEN WRITE( LOGUNIT, 92020 ) C For same type but different resolution, list on output log ELSE IF ( L_SAME_SCALE ) THEN WRITE( LOGUNIT, 92040 ) WRITE( LOGUNIT, 92060 ) VGDESC( VGTYP_GD ) WRITE( LOGUNIT, 92080 ) MXLEV = MAX( NLAYS + 1, NLAYS_IN + 1 ) DO L = 1, MXLEV IF ( L .LE. NLAYS + 1 .AND. L .LE. NLAYS_IN + 1 ) THEN WRITE( LOGUNIT, 92100 ) L, VGLVS_GD( L ), VGLVS3D( L ) ELSE IF ( L .LE. NLAYS + 1 .AND. L .GT. NLAYS_IN + 1 ) THEN WRITE( LOGUNIT, 92100 ) L, VGLVS_GD( L ) ELSE IF ( L .GT. NLAYS + 1 .AND. L .LE. NLAYS_IN + 1 ) THEN WRITE( LOGUNIT, 92120 ) L, VGLVS3D( L ) END IF END DO WRITE( LOGUNIT, 92140 ) MSG DO L = 1, NLAYS3D X3_OLD( L ) = 0.5 * ( VGLVS3D ( L ) + VGLVS3D ( L + 1 ) ) END DO LINC = .FALSE. LDEC = .FALSE. IF ( VGLVS3D ( NLAYS_IN ) .GT. VGLVS3D ( 1 ) ) THEN LINC = .TRUE. ELSE LDEC = .TRUE. END IF C For different types, check for files ELSE IF ( .NOT. DESC3( MET_CRO_3D_CRS ) ) THEN MSG = 'Could not read DESC of ' // MET_CRO_3D_CRS & // ' file' CALL M3EXIT ( PNAME, JDATE, JTIME, MSG, XSTAT2 ) END IF ZP_VNAME = 'ZH' V = INDEX1( ZP_VNAME, NVARS3D, VNAME3D ) IF ( V .NE. 0 ) THEN WRITE( LOGUNIT, 92160 ) ZP_VNAME ELSE ZP_VNAME = 'PRES' V = INDEX1( ZP_VNAME, NVARS3D, VNAME3D ) IF ( V .NE. 0 ) THEN WRITE( LOGUNIT, 92160 ) ZP_VNAME ELSE MSG = 'Could not find ZH or PRES in file ' // MET_CRO_3D_CRS CALL M3EXIT ( PNAME, JDATE, JTIME, MSG, XSTAT1 ) END IF END IF END IF LFIRST = .FALSE. RETURN END IF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c For identical vertical coordinates, copy the CTM concs to the output C IC array and return cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF ( L_IDENTICAL ) THEN DO N =1, NBNDY DO L = 1, NLAYS DO V = 1, NSPCS_IN BCVI( N,L,V ) = BCIN( N,L,V ) END DO END DO END DO RETURN END IF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Interpolate by VGLEVS for vertical coords of same type but different c resolution cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF ( L_SAME_SCALE ) THEN IF ( .NOT. DESC3( CTM_FL_NAME( 1 ) ) ) THEN MSG = 'Could not read DESC of ' // CTM_FL_NAME( 1 ) & // ' file' CALL M3EXIT ( PNAME, JDATE, JTIME, MSG, XSTAT2 ) END IF DO V = 1, NSPCS_IN DO N = 1, NBNDY DO L = 1, NLAYS_IN WORKA( L ) = BCIN( N,L,V ) END DO DO L = 1, NLAYS IF ( NLAYS_IN .EQ. 1 ) THEN BCVI( N,L,V ) = WORKA( 1 ) ELSE X3 = 0.5 * ( VGLVS_GD ( L ) + VGLVS_GD ( L + 1 ) ) IF ( LINC .AND. X3 .LE. X3_OLD( 1 ) ) THEN BCVI( N,L,V ) = WORKA( 1 ) ELSE IF ( LDEC .AND. X3 .GE. X3_OLD( 1 ) ) THEN BCVI( N,L,V ) = WORKA( 1 ) ELSE IF ( LINC .AND. X3 .GE. X3_OLD( NLAYS_IN ) ) THEN BCVI( N,L,V ) = WORKA( NLAYS_IN ) ELSE IF ( LDEC .AND. X3 .LE. X3_OLD( NLAYS_IN ) ) THEN BCVI( N,L,V ) = WORKA( NLAYS_IN ) ELSE CALL LR_INTERP ( L_RATINT, X3_OLD, WORKA, NLAYS_IN, & X3, Y, DELY ) BCVI( N,L,V ) = Y END IF END IF END DO END DO END DO RETURN END IF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Interpolate by height or pressure for all other vertical grid types; c a dynamic array holding heights will need to be allocated cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C Get the layer mid-point heights or pressure IF ( .NOT. INTERP3( MET_CRO_3D_CRS, ZP_VNAME, PNAME, JDATE, JTIME, & NCOLS_IN*NROWS_IN*NLAYS_IN, HT_CTM ) ) THEN MSG = 'Could not read '// ZP_VNAME // ' from file ' // MET_CRO_3D_CRS CALL M3EXIT ( PNAME, JDATE, JTIME, MSG, XSTAT1 ) END IF IF ( .NOT. READ3( MET_BDY_3D_FIN, ZP_VNAME, ALLAYS3, JDATE, JTIME, & HT_BNDY ) ) THEN MSG = 'Could not read '// ZP_VNAME //' from file ' // MET_BDY_3D_FIN CALL M3EXIT ( PNAME, JDATE, JTIME, MSG, XSTAT1 ) END IF C Do the interpolation C... for height interpolation IF ( ZP_VNAME .EQ. 'ZH' ) THEN DO N = 1, NBNDY C = COL_LOC( N ) R = ROW_LOC( N ) DO V = 1, NSPCS_IN DO L = 1, NLAYS_IN WORKA( L ) = BCIN( N,L,V ) X3_OLD( L ) = HT_CTM( C,R,L ) END DO DO L = 1, NLAYS IF ( NLAYS_IN .EQ. 1 ) THEN BCVI( N,L,V ) = WORKA( 1 ) ELSE X3 = HT_BNDY( N,L ) IF ( X3 .LT. X3_OLD( 1 ) ) THEN BCVI( N,L,V ) = WORKA( 1 ) ELSE IF ( X3 .GT. X3_OLD( NLAYS_IN ) ) THEN BCVI( N,L,V ) = WORKA( NLAYS_IN ) ELSE CALL LR_INTERP ( L_RATINT, X3_OLD, WORKA, NLAYS_IN, & X3, Y, DELY ) BCVI( N,L,V ) = Y END IF END IF END DO END DO END DO C... for pressure interpolation ELSE IF ( ZP_VNAME .EQ. 'PRES' ) THEN DO N = 1, NBNDY C = COL_LOC( N ) R = ROW_LOC( N ) DO V = 1, NSPCS_IN DO L = 1, NLAYS_IN WORKA( L ) = BCIN( N,L,V ) X3_OLD( L ) = HT_CTM( C,R,L ) END DO DO L = 1, NLAYS IF ( NLAYS_IN .EQ. 1 ) THEN BCVI( N,L,V ) = WORKA( 1 ) ELSE X3 = HT_BNDY( N,L ) IF ( X3 .GT. X3_OLD( 1 ) ) THEN BCVI( N,L,V ) = WORKA( 1 ) ELSE IF ( X3 .LT. X3_OLD( NLAYS_IN ) ) THEN BCVI( N,L,V ) = WORKA( NLAYS_IN ) ELSE CALL LR_INTERP ( L_RATINT, X3_OLD, WORKA, NLAYS_IN, & X3, Y, DELY ) BCVI( N,L,V ) = Y END IF END IF END DO END DO END DO END IF RETURN C************************* FORMAT STATEMENTS *************************** 92000 FORMAT( // 1X, 79( '#' ) & / 1X, '# Vertical Interpolation Section ' & / 1X, 79( '#' ) ) 92020 FORMAT( // 5X, 'The vertical structure in COORD.EXT is', & ' identical to that in the CTM input file. ' & // 5X, 'No vertical interpolation necessary' ) 92040 FORMAT( // 5X, 'The COORD.EXT and CTM vertical grid types are', & ' the same, but the resolution is different.' / & 5X, 'Vertical interpolation using', & ' VGLVS (listed below). ' ) 92060 FORMAT( // 5X, 'Vertical grid type: ', A ) 92080 FORMAT( // 5X, 'Vertical layer surface values (VGLVS) : ' & /10X, ' K COORD.EXT Input CTM' ) 92100 FORMAT( 10X, I2, 1X, F12.3, 1X, F12.3 ) 92120 FORMAT( 10X, I2, 13X, 1X, F12.3 ) 92140 FORMAT( //5X, A ) 92160 FORMAT( //5X, 'The COORD.EXT and CTM vertical grid types are ', & 'different. ' & / 5X, 'Vertical interpolation using ', A16, 1X, & 'from the MET_CRO_3D files' ) 94000 FORMAT( 1PE20.4 ) END ================================================ FILE: PREP/bcon/src/profile/avprofile_cb6r3m_ae7_kmtbr_hemi2016_v53beta2_m3dry_col051_row068.csv ================================================ # # # The vertical profiles in this file were derived from a simulation with the # hemispheric version of CMAQv5.3 beta2 for the year 2016 and represent the annual # average values at the model grid cell closest to lat 37N, lon -157W. As such, # they are reflective of conditions in a remote marine environment. # Model version: CMAQv5.3 beta2 (February 2018), including full halogen and DMS chemistry # Grid spacing: 108 x 108 km on a polar stereographic grid covering the northern hemisphere # Vertical layers: 44 # Meteorological fields: WRF3.8 # Chemical mechanism: CB6R3M_AE7_KMTBR # Dry Deposition: M3DRY # Top level pressure: 50 hPa # The vertical sigma levels used in the simulations were 1.0, 0.9975, 0.9946, 0.9913, 0.9875, 0.9831, 0.9781, 0.9723, 0.9657, 0.958, 0.9492, 0.9391, 0.9275, 0.9141, 0.8987, 0.881, 0.8607, 0.8373, 0.8104, 0.7795, 0.7439, 0.7066, 0.6693, 0.632, 0.5946, 0.5573, 0.52, 0.4827, 0.4454, 0.4081, 0.3708, 0.3352, 0.3013, 0.269, 0.2383, 0.2089, 0.181, 0.1543, 0.1289, 0.1047, 0.0816, 0.0596, 0.0386, 0.0186, 0. # The hourly meteorological and air quality fields used to derive these profiles # are archived at # /asm/ROMO/met/MCIP/WRFv3.8_108NHEMI2_2016_44aL/v4.3 # /asm/gsarwar/hemisphere/cmaqv53_beta_official/halogen/RUN_C VNAME,UNITS,LAYER01,LAYER02,LAYER03,LAYER04,LAYER05,LAYER06,LAYER07,LAYER08,LAYER09,LAYER10,LAYER11,LAYER12,LAYER13,LAYER14,LAYER15,LAYER16,LAYER17,LAYER18,LAYER19,LAYER20,LAYER21,LAYER22,LAYER23,LAYER24,LAYER25,LAYER26,LAYER27,LAYER28,LAYER29,LAYER30,LAYER31,LAYER32,LAYER33,LAYER34,LAYER35,LAYER36,LAYER37,LAYER38,LAYER39,LAYER40,LAYER41,LAYER42,LAYER43,LAYER44 "PRES","Pa",1.0181E+05,1.0155E+05,1.0124E+05,1.0090E+05,1.0050E+05,1.0004E+05,9.9512E+04,9.8907E+04,9.8209E+04,9.7405E+04,9.6483E+04,9.5425E+04,9.4205E+04,9.2802E+04,9.1189E+04,8.9338E+04,8.7211E+04,8.4764E+04,8.1955E+04,7.8726E+04,7.5189E+04,7.1571E+04,6.7955E+04,6.4335E+04,6.0716E+04,5.7103E+04,5.3491E+04,4.9880E+04,4.6270E+04,4.2660E+04,3.9134E+04,3.5772E+04,3.2571E+04,2.9525E+04,2.6619E+04,2.3849E+04,2.1210E+04,1.8691E+04,1.6294E+04,1.4007E+04,1.1827E+04,9.7480E+03,7.7658E+03,5.8994E+03 "ZH","m",1.0185E+01,3.2202E+01,5.7527E+01,8.6595E+01,1.2026E+02,1.5896E+02,2.0360E+02,2.5507E+02,3.1471E+02,3.8393E+02,4.6375E+02,5.5611E+02,6.6348E+02,7.8851E+02,9.3404E+02,1.1037E+03,1.3024E+03,1.5363E+03,1.8124E+03,2.1404E+03,2.5139E+03,2.9122E+03,3.3281E+03,3.7635E+03,4.2199E+03,4.6985E+03,5.2027E+03,5.7356E+03,6.3008E+03,6.9028E+03,7.5326E+03,8.1767E+03,8.8367E+03,9.5144E+03,1.0215E+04,1.0943E+04,1.1706E+04,1.2514E+04,1.3381E+04,1.4327E+04,1.5377E+04,1.6570E+04,1.7971E+04,1.9672E+04 "ZF","m",2.0376E+01,4.4049E+01,7.1042E+01,1.0220E+02,1.3839E+02,1.7965E+02,2.2770E+02,2.8262E+02,3.4704E+02,4.2112E+02,5.0675E+02,6.0593E+02,7.2163E+02,8.5616E+02,1.0129E+03,1.1958E+03,1.4108E+03,1.6642E+03,1.9639E+03,2.3215E+03,2.7113E+03,3.1178E+03,3.5425E+03,3.9882E+03,4.4545E+03,4.9450E+03,5.4623E+03,6.0101E+03,6.5922E+03,7.2137E+03,7.8492E+03,8.4992E+03,9.1663E+03,9.8517E+03,1.0565E+04,1.1305E+04,1.2088E+04,1.2920E+04,1.3820E+04,1.4811E+04,1.5922E+04,1.7203E+04,1.8737E+04,2.0630E+04 "NO2","ppmV",6.6340E-05,6.6796E-05,6.6922E-05,6.6177E-05,6.4715E-05,6.2867E-05,6.0041E-05,5.6255E-05,5.1951E-05,4.5938E-05,4.0521E-05,3.4780E-05,2.8720E-05,2.3493E-05,1.9597E-05,1.6787E-05,1.5173E-05,1.4585E-05,1.4266E-05,1.4116E-05,1.4251E-05,1.4319E-05,1.4233E-05,1.4064E-05,1.3687E-05,1.3181E-05,1.2740E-05,1.2514E-05,1.2451E-05,1.2474E-05,1.2502E-05,1.2353E-05,1.2808E-05,1.4997E-05,1.9617E-05,2.7260E-05,3.8994E-05,5.4639E-05,6.8561E-05,7.6627E-05,7.5617E-05,6.3001E-05,4.8090E-05,4.3083E-05 "NO","ppmV",7.2144E-06,7.3730E-06,7.4601E-06,7.4466E-06,7.3613E-06,7.2416E-06,7.0311E-06,6.6916E-06,6.3119E-06,5.6598E-06,5.0381E-06,4.2618E-06,3.4291E-06,2.7848E-06,2.3578E-06,2.1133E-06,2.1074E-06,2.2526E-06,2.4147E-06,2.6503E-06,2.8846E-06,3.1123E-06,3.2766E-06,3.4103E-06,3.4601E-06,3.4512E-06,3.4415E-06,3.4898E-06,3.5906E-06,3.8024E-06,4.2152E-06,4.8017E-06,5.6343E-06,7.1210E-06,9.8450E-06,1.4435E-05,2.1738E-05,3.2158E-05,4.3065E-05,5.0186E-05,4.8429E-05,3.3735E-05,2.1517E-05,1.6864E-05 "O","ppmV",3.8603E-11,3.8812E-11,3.9056E-11,3.9343E-11,3.9675E-11,4.0051E-11,4.0482E-11,4.0945E-11,4.1561E-11,4.2239E-11,4.3006E-11,4.3888E-11,4.5004E-11,4.7042E-11,5.0541E-11,5.6034E-11,6.3750E-11,7.4093E-11,8.6548E-11,1.0154E-10,1.1697E-10,1.3212E-10,1.5010E-10,1.7023E-10,1.9240E-10,2.1622E-10,2.4565E-10,2.7920E-10,3.1736E-10,3.6463E-10,4.2229E-10,4.8877E-10,5.6881E-10,6.8126E-10,8.5665E-10,1.1459E-09,1.6585E-09,2.5873E-09,4.2072E-09,6.8147E-09,1.2126E-08,3.5498E-08,1.0625E-07,3.1959E-07 "O3","ppmV",2.9161E-02,2.9199E-02,2.9224E-02,2.9248E-02,2.9269E-02,2.9281E-02,2.9272E-02,2.9255E-02,2.9223E-02,2.9169E-02,2.9080E-02,2.8937E-02,2.8799E-02,2.8765E-02,2.8893E-02,2.9350E-02,3.0209E-02,3.1435E-02,3.2929E-02,3.4513E-02,3.5984E-02,3.7178E-02,3.8616E-02,4.0045E-02,4.1376E-02,4.2611E-02,4.4088E-02,4.5630E-02,4.7194E-02,4.9188E-02,5.1548E-02,5.3966E-02,5.6724E-02,6.0943E-02,6.7715E-02,7.8145E-02,9.5154E-02,1.2077E-01,1.5412E-01,1.8935E-01,2.4817E-01,5.0322E-01,9.5965E-01,1.5979E+00 "NO3","ppmV",6.3187E-07,6.2968E-07,6.3097E-07,6.4506E-07,6.5590E-07,6.6183E-07,6.6537E-07,6.6536E-07,6.5320E-07,6.3312E-07,5.9775E-07,5.4907E-07,5.0193E-07,4.5953E-07,4.4594E-07,5.0130E-07,6.6699E-07,8.9583E-07,1.0496E-06,1.1350E-06,1.1663E-06,1.1349E-06,1.0802E-06,9.5796E-07,7.9399E-07,6.2079E-07,4.7188E-07,3.5158E-07,2.4900E-07,1.6760E-07,1.1428E-07,8.2820E-08,6.7278E-08,6.1577E-08,6.1982E-08,6.7476E-08,7.9045E-08,9.4692E-08,1.1180E-07,1.2675E-07,1.5191E-07,2.7289E-07,4.6452E-07,7.3013E-07 "O1D","ppmV",1.6712E-16,1.6856E-16,1.7001E-16,1.7172E-16,1.7370E-16,1.7596E-16,1.7855E-16,1.8149E-16,1.8528E-16,1.8930E-16,1.9392E-16,1.9881E-16,2.0464E-16,2.1488E-16,2.3064E-16,2.5434E-16,2.8871E-16,3.3485E-16,3.8979E-16,4.5629E-16,5.2276E-16,5.8630E-16,6.6095E-16,7.4259E-16,8.2816E-16,9.1799E-16,1.0293E-15,1.1509E-15,1.2832E-15,1.4393E-15,1.6216E-15,1.8179E-15,2.0308E-15,2.3090E-15,2.7256E-15,3.3877E-15,4.5082E-15,6.4284E-15,9.5939E-15,1.4124E-14,2.2220E-14,5.6737E-14,1.4352E-13,3.5638E-13 "OH","ppmV",6.0366E-08,6.0562E-08,6.1000E-08,6.1379E-08,6.1711E-08,6.2012E-08,6.2213E-08,6.2077E-08,6.1983E-08,6.0947E-08,5.9674E-08,5.7616E-08,5.4852E-08,5.3335E-08,5.3206E-08,5.3755E-08,5.4897E-08,5.6402E-08,5.7453E-08,5.8815E-08,6.0164E-08,6.1768E-08,6.4640E-08,6.7645E-08,7.0591E-08,7.2452E-08,7.3521E-08,7.3860E-08,7.3770E-08,7.4195E-08,7.5473E-08,7.6496E-08,7.7293E-08,8.1134E-08,9.0883E-08,1.0825E-07,1.3586E-07,1.7014E-07,2.0116E-07,2.1659E-07,2.1076E-07,1.7690E-07,2.0264E-07,3.2388E-07 "HO2","ppmV",4.5845E-06,4.6367E-06,4.6599E-06,4.6682E-06,4.6763E-06,4.6855E-06,4.6920E-06,4.6936E-06,4.6890E-06,4.6450E-06,4.6153E-06,4.5574E-06,4.4658E-06,4.3982E-06,4.3795E-06,4.4428E-06,4.5856E-06,4.7740E-06,4.9463E-06,5.1168E-06,5.2688E-06,5.3754E-06,5.5075E-06,5.6085E-06,5.6576E-06,5.6511E-06,5.6188E-06,5.5588E-06,5.4744E-06,5.3722E-06,5.2422E-06,5.0328E-06,4.7472E-06,4.4507E-06,4.1520E-06,3.7788E-06,3.2777E-06,2.6911E-06,2.1558E-06,1.7747E-06,1.6664E-06,1.8955E-06,2.7525E-06,4.7458E-06 "H2O2","ppmV",5.1257E-04,5.3974E-04,5.5367E-04,5.6530E-04,5.7909E-04,5.9503E-04,6.1439E-04,6.3715E-04,6.5573E-04,6.7416E-04,6.9756E-04,7.2662E-04,7.6540E-04,7.9608E-04,8.1564E-04,8.3223E-04,8.4987E-04,8.6162E-04,8.5832E-04,8.4836E-04,8.3580E-04,8.1652E-04,8.0261E-04,7.8072E-04,7.5124E-04,7.1392E-04,6.7334E-04,6.2979E-04,5.8658E-04,5.4045E-04,4.9797E-04,4.5967E-04,4.1796E-04,3.7263E-04,3.2313E-04,2.6285E-04,1.9031E-04,1.1705E-04,6.1154E-05,3.2212E-05,2.3841E-05,2.5087E-05,3.9882E-05,7.2126E-05 "N2O5","ppmV",1.4333E-07,1.4664E-07,1.5120E-07,1.5856E-07,1.6235E-07,1.6449E-07,1.6405E-07,1.5999E-07,1.5120E-07,1.3865E-07,1.2856E-07,1.1633E-07,1.0308E-07,8.9114E-08,7.8068E-08,7.9675E-08,9.9028E-08,1.2365E-07,1.4295E-07,1.5845E-07,1.7628E-07,1.9729E-07,2.2240E-07,2.5204E-07,2.8281E-07,3.1187E-07,3.4056E-07,3.9074E-07,4.5304E-07,5.0121E-07,5.2469E-07,5.2112E-07,5.5215E-07,6.8507E-07,9.4310E-07,1.3493E-06,1.9178E-06,2.5500E-06,2.9707E-06,3.0946E-06,3.1626E-06,3.5277E-06,3.4423E-06,3.3305E-06 "HNO3","ppmV",1.1296E-05,1.1928E-05,1.2155E-05,1.2261E-05,1.2317E-05,1.2156E-05,1.1883E-05,1.1545E-05,1.0987E-05,1.0227E-05,9.9711E-06,9.8638E-06,9.7907E-06,1.0530E-05,1.2512E-05,1.8034E-05,3.0055E-05,4.7423E-05,6.4056E-05,7.7291E-05,8.3831E-05,8.4526E-05,8.4486E-05,8.2895E-05,7.9090E-05,7.3036E-05,6.8584E-05,6.4736E-05,6.0816E-05,5.5745E-05,5.5408E-05,5.5273E-05,5.4269E-05,5.4872E-05,5.9484E-05,7.0880E-05,8.7866E-05,1.1265E-04,1.3038E-04,1.3988E-04,1.4946E-04,1.6838E-04,1.9535E-04,1.9161E-04 "HONO","ppmV",3.3461E-07,3.4992E-07,3.5849E-07,3.6089E-07,3.5785E-07,3.5096E-07,3.3763E-07,3.1712E-07,2.9543E-07,2.6255E-07,2.2851E-07,1.8698E-07,1.4365E-07,1.1021E-07,8.7631E-08,7.3264E-08,6.7000E-08,6.6187E-08,6.6166E-08,6.7586E-08,6.9295E-08,7.0745E-08,7.1913E-08,7.2734E-08,7.1550E-08,6.8123E-08,6.3899E-08,6.0527E-08,5.8392E-08,5.8271E-08,6.1562E-08,6.7752E-08,7.9215E-08,1.0376E-07,1.5176E-07,2.3865E-07,3.8720E-07,5.9753E-07,7.6866E-07,7.8259E-07,5.6568E-07,2.1496E-07,8.7024E-08,5.8805E-08 "PNA","ppmV",3.5926E-07,3.7866E-07,3.9289E-07,4.0122E-07,4.0689E-07,4.1210E-07,4.1277E-07,4.0766E-07,4.0073E-07,3.7959E-07,3.6451E-07,3.4780E-07,3.3236E-07,3.1830E-07,3.0581E-07,2.9388E-07,2.9239E-07,3.0023E-07,3.1293E-07,3.4970E-07,4.1849E-07,5.2656E-07,6.9418E-07,9.5067E-07,1.3167E-06,1.8429E-06,2.6609E-06,3.9784E-06,6.0713E-06,9.4273E-06,1.4684E-05,2.1413E-05,2.8096E-05,3.3592E-05,3.7718E-05,3.9703E-05,3.8755E-05,3.4763E-05,2.8636E-05,2.2626E-05,1.9823E-05,2.1231E-05,2.2125E-05,2.1899E-05 "SO2","ppmV",5.4419E-05,5.7190E-05,5.8218E-05,5.8532E-05,5.8427E-05,5.8076E-05,5.6737E-05,5.5279E-05,5.3316E-05,5.0380E-05,4.6993E-05,4.2074E-05,3.5639E-05,2.6521E-05,1.8388E-05,1.5800E-05,1.8716E-05,2.1264E-05,2.4586E-05,2.7278E-05,2.7665E-05,2.6659E-05,2.6705E-05,2.5772E-05,2.4252E-05,2.2407E-05,2.0919E-05,2.0136E-05,2.0123E-05,2.0101E-05,1.9046E-05,1.7068E-05,1.4982E-05,1.3413E-05,1.1794E-05,1.0069E-05,8.6617E-06,7.1621E-06,5.5823E-06,4.0001E-06,2.7499E-06,1.7931E-06,1.1180E-06,8.0612E-07 "SULF","ppmV",1.6720E-07,1.7569E-07,1.7756E-07,1.7711E-07,1.7452E-07,1.7050E-07,1.6153E-07,1.4987E-07,1.3738E-07,1.2117E-07,1.0734E-07,9.0002E-08,7.2717E-08,5.4227E-08,3.7109E-08,3.4845E-08,4.5294E-08,5.9706E-08,6.8169E-08,7.5562E-08,7.9035E-08,7.6465E-08,7.7757E-08,7.8088E-08,7.9160E-08,7.9157E-08,7.7910E-08,7.7103E-08,7.9267E-08,8.1962E-08,8.1817E-08,7.8580E-08,7.6504E-08,7.6451E-08,8.1206E-08,9.1340E-08,1.0115E-07,1.0350E-07,9.5225E-08,7.9370E-08,6.2000E-08,4.3847E-08,3.5556E-08,4.4403E-08 "C2O3","ppmV",1.0740E-07,1.0587E-07,1.0362E-07,1.0109E-07,9.8337E-08,9.5361E-08,9.2376E-08,8.9583E-08,8.7055E-08,8.5953E-08,8.4665E-08,8.3748E-08,8.3675E-08,8.5581E-08,8.9582E-08,9.5431E-08,1.0206E-07,1.1157E-07,1.1922E-07,1.2308E-07,1.2169E-07,1.1780E-07,1.1604E-07,1.1199E-07,1.0591E-07,9.9504E-08,9.3997E-08,8.9535E-08,8.7233E-08,8.6632E-08,8.7507E-08,8.8590E-08,8.8713E-08,8.6475E-08,8.0929E-08,7.0583E-08,5.5212E-08,3.8289E-08,2.3162E-08,1.3492E-08,9.4754E-09,8.3480E-09,8.3054E-09,8.9216E-09 "MEO2","ppmV",8.6950E-06,7.4164E-06,7.1217E-06,7.2174E-06,7.4109E-06,7.5912E-06,7.8079E-06,8.1088E-06,8.4741E-06,9.2250E-06,9.2637E-06,9.2144E-06,9.1643E-06,9.2011E-06,9.3374E-06,9.3564E-06,9.1005E-06,8.6430E-06,8.1513E-06,7.6227E-06,7.1320E-06,6.7055E-06,6.3626E-06,6.0667E-06,5.8294E-06,5.5861E-06,5.3286E-06,5.0016E-06,4.6250E-06,4.2031E-06,3.7424E-06,3.2692E-06,2.7966E-06,2.3210E-06,1.8463E-06,1.3901E-06,9.8067E-07,6.6300E-07,4.8593E-07,4.0717E-07,4.1041E-07,5.6420E-07,8.9855E-07,1.4853E-06 "RO2","ppmV",4.8040E-06,4.5835E-06,4.5255E-06,4.5414E-06,4.5828E-06,4.6327E-06,4.7096E-06,4.8215E-06,4.9711E-06,5.2587E-06,5.4700E-06,5.7475E-06,6.1064E-06,6.5047E-06,6.8925E-06,7.1045E-06,7.0667E-06,6.8932E-06,6.6447E-06,6.3227E-06,5.8774E-06,5.4995E-06,5.2431E-06,4.9954E-06,4.8154E-06,4.6312E-06,4.4406E-06,4.2059E-06,3.9391E-06,3.6312E-06,3.2884E-06,2.9246E-06,2.5517E-06,2.1723E-06,1.7882E-06,1.4007E-06,1.0239E-06,7.0986E-07,5.1157E-07,4.1569E-07,4.1154E-07,5.6985E-07,9.4184E-07,1.5876E-06 "PAN","ppmV",3.8228E-05,3.8791E-05,3.9043E-05,3.9227E-05,3.9389E-05,3.9543E-05,3.9684E-05,3.9811E-05,3.9918E-05,4.0036E-05,4.0216E-05,4.0523E-05,4.1038E-05,4.2223E-05,4.4178E-05,4.7079E-05,5.0918E-05,5.5600E-05,6.1500E-05,6.7600E-05,7.4255E-05,8.1609E-05,9.2134E-05,1.0609E-04,1.2281E-04,1.4176E-04,1.6092E-04,1.7639E-04,1.8724E-04,1.9373E-04,1.9772E-04,1.9960E-04,1.9884E-04,1.9764E-04,1.9792E-04,1.9448E-04,1.8477E-04,1.6810E-04,1.4118E-04,1.0645E-04,8.3040E-05,6.9616E-05,5.7734E-05,5.0252E-05 "PACD","ppmV",4.3599E-06,4.6107E-06,4.7292E-06,4.8228E-06,4.9199E-06,5.0252E-06,5.1536E-06,5.3307E-06,5.5331E-06,5.7839E-06,6.0698E-06,6.4127E-06,6.8619E-06,7.4201E-06,8.1324E-06,8.9817E-06,9.9755E-06,1.1024E-05,1.1961E-05,1.2618E-05,1.3016E-05,1.3252E-05,1.3788E-05,1.4331E-05,1.4797E-05,1.5381E-05,1.6157E-05,1.6967E-05,1.7759E-05,1.8309E-05,1.8617E-05,1.8737E-05,1.8578E-05,1.7921E-05,1.6449E-05,1.3392E-05,8.9485E-06,4.5288E-06,1.6749E-06,6.6387E-07,4.6299E-07,5.0874E-07,6.0506E-07,6.6155E-07 "AACD","ppmV",1.3635E-05,1.4400E-05,1.4810E-05,1.5170E-05,1.5584E-05,1.6102E-05,1.6793E-05,1.7777E-05,1.8794E-05,2.0004E-05,2.1448E-05,2.3253E-05,2.5807E-05,2.8847E-05,3.2327E-05,3.5629E-05,3.9726E-05,4.3926E-05,4.7200E-05,4.9149E-05,4.9389E-05,4.8503E-05,4.9518E-05,5.0880E-05,5.1731E-05,5.2761E-05,5.4347E-05,5.5398E-05,5.5720E-05,5.4681E-05,5.3445E-05,5.2223E-05,5.0406E-05,4.7519E-05,4.3293E-05,3.6407E-05,2.6559E-05,1.5847E-05,7.3009E-06,2.8542E-06,1.6666E-06,1.4577E-06,1.4987E-06,1.5232E-06 "CXO3","ppmV",2.3667E-08,2.3094E-08,2.2555E-08,2.2021E-08,2.1450E-08,2.0822E-08,2.0178E-08,1.9559E-08,1.8976E-08,1.8679E-08,1.8314E-08,1.7999E-08,1.7829E-08,1.7882E-08,1.8237E-08,1.8751E-08,1.9474E-08,2.0481E-08,2.1034E-08,2.0920E-08,2.0036E-08,1.8793E-08,1.8029E-08,1.7486E-08,1.6996E-08,1.6905E-08,1.7371E-08,1.8192E-08,1.9232E-08,2.0146E-08,2.1048E-08,2.1769E-08,2.2240E-08,2.2041E-08,2.0791E-08,1.8147E-08,1.4135E-08,9.8269E-09,6.0438E-09,3.5730E-09,2.5485E-09,2.3485E-09,2.1784E-09,2.0733E-09 "ALD2","ppmV",1.3729E-05,1.4251E-05,1.4493E-05,1.4678E-05,1.4854E-05,1.5021E-05,1.5209E-05,1.5427E-05,1.5658E-05,1.5940E-05,1.6240E-05,1.6560E-05,1.6947E-05,1.7425E-05,1.8003E-05,1.8666E-05,1.9455E-05,2.0285E-05,2.0915E-05,2.1127E-05,2.0928E-05,2.0652E-05,2.0737E-05,2.0831E-05,2.0824E-05,2.0962E-05,2.1223E-05,2.1535E-05,2.1812E-05,2.1853E-05,2.1652E-05,2.1319E-05,2.0844E-05,2.0170E-05,1.9037E-05,1.6793E-05,1.3403E-05,9.7396E-06,6.5811E-06,4.1835E-06,2.9332E-06,2.0810E-06,1.2495E-06,8.2145E-07 "XO2H","ppmV",2.3926E-07,2.2315E-07,2.1890E-07,2.1968E-07,2.2196E-07,2.2461E-07,2.2907E-07,2.3534E-07,2.4486E-07,2.6324E-07,2.7541E-07,2.8403E-07,2.9165E-07,3.0322E-07,3.1709E-07,3.2509E-07,3.2704E-07,3.2698E-07,3.2728E-07,3.2212E-07,2.8271E-07,2.4913E-07,2.3119E-07,2.1866E-07,2.1431E-07,2.1288E-07,2.1455E-07,2.1578E-07,2.1630E-07,2.1318E-07,2.0898E-07,2.0352E-07,1.9479E-07,1.8137E-07,1.6214E-07,1.3494E-07,9.9958E-08,6.5917E-08,3.9303E-08,2.3454E-08,1.7339E-08,1.7828E-08,2.0278E-08,2.2589E-08 "PANX","ppmV",7.8003E-06,7.8767E-06,7.9108E-06,7.9355E-06,7.9555E-06,7.9734E-06,7.9878E-06,8.0010E-06,8.0088E-06,8.0135E-06,8.0170E-06,8.0279E-06,8.0492E-06,8.1410E-06,8.2922E-06,8.5073E-06,8.8033E-06,9.1541E-06,9.5672E-06,9.8958E-06,1.0179E-05,1.0434E-05,1.0815E-05,1.1184E-05,1.1482E-05,1.1791E-05,1.2077E-05,1.2321E-05,1.2480E-05,1.2521E-05,1.2450E-05,1.2325E-05,1.2070E-05,1.1785E-05,1.1558E-05,1.0608E-05,8.6313E-06,5.9178E-06,3.5712E-06,1.9356E-06,1.3823E-06,1.2794E-06,1.0557E-06,8.0651E-07 "FORM","ppmV",2.5836E-04,2.7236E-04,2.7921E-04,2.8447E-04,2.8944E-04,2.9357E-04,2.9725E-04,2.9978E-04,3.0019E-04,2.9887E-04,2.9685E-04,2.9139E-04,2.8318E-04,2.7275E-04,2.6259E-04,2.5360E-04,2.4613E-04,2.3900E-04,2.2865E-04,2.1746E-04,2.0534E-04,1.9350E-04,1.8264E-04,1.7112E-04,1.5951E-04,1.4658E-04,1.3323E-04,1.1977E-04,1.0681E-04,9.4717E-05,8.4285E-05,7.5295E-05,6.7538E-05,6.1333E-05,5.6508E-05,5.1801E-05,4.6164E-05,3.9182E-05,3.1702E-05,2.4450E-05,1.8445E-05,1.2608E-05,1.0866E-05,1.2370E-05 "MEPX","ppmV",2.1311E-04,2.2453E-04,2.3031E-04,2.3524E-04,2.4083E-04,2.4706E-04,2.5552E-04,2.6718E-04,2.8019E-04,2.9805E-04,3.2061E-04,3.5282E-04,3.9566E-04,4.4014E-04,4.7738E-04,5.0446E-04,5.1777E-04,5.1550E-04,5.0540E-04,4.8642E-04,4.6199E-04,4.3882E-04,4.1937E-04,4.0049E-04,3.8410E-04,3.6863E-04,3.5379E-04,3.3555E-04,3.1454E-04,2.8879E-04,2.5992E-04,2.3146E-04,2.0315E-04,1.7231E-04,1.3861E-04,1.0031E-04,6.0143E-05,2.6971E-05,1.0247E-05,5.1865E-06,4.3496E-06,5.6339E-06,1.0194E-05,1.8864E-05 "MEOH","ppmV",4.3138E-05,4.5415E-05,4.6575E-05,4.7588E-05,4.8795E-05,5.0293E-05,5.2349E-05,5.5058E-05,5.7981E-05,6.2005E-05,6.7639E-05,7.5963E-05,8.7435E-05,1.0016E-04,1.1220E-04,1.2093E-04,1.2634E-04,1.2846E-04,1.2791E-04,1.2437E-04,1.1876E-04,1.1305E-04,1.1082E-04,1.1080E-04,1.1183E-04,1.1447E-04,1.1838E-04,1.2092E-04,1.2182E-04,1.2127E-04,1.2036E-04,1.2188E-04,1.2385E-04,1.2449E-04,1.2384E-04,1.1445E-04,9.3272E-05,6.5750E-05,4.0110E-05,2.0940E-05,1.2342E-05,8.3425E-06,6.2973E-06,5.2706E-06 "ROOH","ppmV",3.3657E-05,3.5798E-05,3.6811E-05,3.7612E-05,3.8413E-05,3.9210E-05,4.0097E-05,4.1213E-05,4.2471E-05,4.3987E-05,4.5730E-05,4.7745E-05,5.0220E-05,5.3131E-05,5.6368E-05,5.9076E-05,6.1312E-05,6.2988E-05,6.3429E-05,6.2735E-05,6.0835E-05,5.8832E-05,5.8990E-05,5.9574E-05,6.0287E-05,6.1470E-05,6.2809E-05,6.3592E-05,6.3558E-05,6.2391E-05,6.0235E-05,5.7316E-05,5.3624E-05,4.8687E-05,4.2202E-05,3.2541E-05,2.0369E-05,9.3571E-06,3.0873E-06,9.9121E-07,6.1240E-07,6.5096E-07,7.8079E-07,8.7692E-07 "XO2","ppmV",1.4572E-07,1.3855E-07,1.3696E-07,1.3781E-07,1.3956E-07,1.4165E-07,1.4475E-07,1.4886E-07,1.5481E-07,1.6400E-07,1.7076E-07,1.7488E-07,1.7819E-07,1.8392E-07,1.8938E-07,1.9041E-07,1.8871E-07,1.8629E-07,1.9007E-07,1.9365E-07,1.6154E-07,1.3668E-07,1.2222E-07,1.1260E-07,1.0986E-07,1.0748E-07,1.0374E-07,9.8293E-08,9.1672E-08,8.3810E-08,7.6704E-08,7.0801E-08,6.3937E-08,5.6566E-08,4.9115E-08,4.0563E-08,2.9242E-08,1.7864E-08,9.0280E-09,2.9480E-09,1.0093E-09,9.4003E-10,9.2327E-10,4.9433E-10 "XO2N","ppmV",3.6262E-08,3.4891E-08,3.4679E-08,3.5014E-08,3.5573E-08,3.6226E-08,3.7143E-08,3.8338E-08,4.0021E-08,4.2608E-08,4.4707E-08,4.6322E-08,4.7828E-08,4.9978E-08,5.2266E-08,5.3347E-08,5.3361E-08,5.3122E-08,5.4246E-08,5.5260E-08,4.6801E-08,3.9985E-08,3.6283E-08,3.3951E-08,3.3679E-08,3.3606E-08,3.3418E-08,3.2828E-08,3.1882E-08,3.0297E-08,2.8602E-08,2.6877E-08,2.4465E-08,2.1497E-08,1.8193E-08,1.4265E-08,9.5015E-09,5.1674E-09,2.2286E-09,6.7808E-10,2.8319E-10,3.4899E-10,5.3472E-10,7.1883E-10 "XPAR","ppmV",5.6690E-10,5.4615E-10,5.3991E-10,5.3643E-10,5.3405E-10,5.3248E-10,5.3116E-10,5.3077E-10,5.3164E-10,5.3045E-10,5.2869E-10,5.2420E-10,5.1976E-10,5.1676E-10,5.1283E-10,5.0212E-10,4.7470E-10,4.4922E-10,4.2190E-10,3.9046E-10,3.2247E-10,2.6721E-10,2.3923E-10,2.1911E-10,2.0523E-10,1.9305E-10,1.8463E-10,1.7870E-10,1.7492E-10,1.6566E-10,1.5670E-10,1.5219E-10,1.4756E-10,1.3902E-10,1.3381E-10,1.2697E-10,1.0985E-10,7.8729E-11,4.2407E-11,9.5692E-12,1.2656E-12,5.0777E-13,3.0763E-13,9.5374E-14 "XPRP","ppmV",3.7542E-11,3.7302E-11,3.7283E-11,3.7247E-11,3.7191E-11,3.7138E-11,3.7028E-11,3.6885E-11,3.6722E-11,3.6289E-11,3.5776E-11,3.5219E-11,3.4807E-11,3.4415E-11,3.3930E-11,3.3484E-11,3.2542E-11,3.1494E-11,2.9813E-11,2.7812E-11,2.5228E-11,2.2590E-11,2.1026E-11,2.0028E-11,1.9182E-11,1.8341E-11,1.7631E-11,1.6734E-11,1.5708E-11,1.4492E-11,1.3354E-11,1.2357E-11,1.1476E-11,1.0735E-11,1.0341E-11,1.0047E-11,9.5082E-12,8.1384E-12,5.8092E-12,2.8989E-12,1.2879E-12,5.8052E-13,3.4222E-13,3.0783E-13 "NTR1","ppmV",1.8156E-05,1.8218E-05,1.8245E-05,1.8263E-05,1.8273E-05,1.8279E-05,1.8273E-05,1.8264E-05,1.8242E-05,1.8206E-05,1.8134E-05,1.8035E-05,1.7894E-05,1.7747E-05,1.7569E-05,1.7359E-05,1.7131E-05,1.6963E-05,1.6710E-05,1.6341E-05,1.5906E-05,1.5554E-05,1.5420E-05,1.5271E-05,1.5061E-05,1.4916E-05,1.4752E-05,1.4562E-05,1.4345E-05,1.4073E-05,1.3703E-05,1.3311E-05,1.2833E-05,1.2299E-05,1.1685E-05,1.0637E-05,8.6778E-06,6.1104E-06,3.4635E-06,1.2812E-06,4.6934E-07,2.3638E-07,1.4932E-07,1.0455E-07 "NTR2","ppmV",5.4688E-06,5.7673E-06,5.9116E-06,6.0300E-06,6.1421E-06,6.2461E-06,6.3486E-06,6.4528E-06,6.5429E-06,6.6403E-06,6.7559E-06,6.8921E-06,7.0549E-06,7.2630E-06,7.5730E-06,8.0313E-06,8.7346E-06,9.6466E-06,1.0594E-05,1.1412E-05,1.2090E-05,1.2625E-05,1.3439E-05,1.4327E-05,1.4972E-05,1.5228E-05,1.5651E-05,1.6585E-05,1.7589E-05,1.8554E-05,1.9768E-05,2.1044E-05,2.2384E-05,2.4256E-05,2.7126E-05,3.0980E-05,3.5655E-05,4.0636E-05,4.3281E-05,4.3571E-05,4.2569E-05,4.1763E-05,4.1359E-05,4.1049E-05 "FACD","ppmV",2.5016E-06,2.6572E-06,2.7403E-06,2.8115E-06,2.8902E-06,2.9876E-06,3.1147E-06,3.2969E-06,3.4775E-06,3.6624E-06,3.8727E-06,4.1221E-06,4.4881E-06,4.9422E-06,5.5250E-06,6.1458E-06,7.0990E-06,8.0676E-06,8.9557E-06,9.6126E-06,1.0030E-05,1.0155E-05,1.0643E-05,1.1305E-05,1.1888E-05,1.2546E-05,1.3423E-05,1.4243E-05,1.5046E-05,1.5824E-05,1.6707E-05,1.7673E-05,1.8546E-05,1.9713E-05,2.1695E-05,2.4405E-05,2.7601E-05,3.0334E-05,3.0520E-05,2.7845E-05,2.4008E-05,2.0254E-05,1.7855E-05,1.6971E-05 "CO","ppmV",7.5943E-02,7.5946E-02,7.5950E-02,7.5953E-02,7.5958E-02,7.5976E-02,7.6006E-02,7.6047E-02,7.6090E-02,7.6135E-02,7.6189E-02,7.6255E-02,7.6342E-02,7.6419E-02,7.6513E-02,7.6674E-02,7.6836E-02,7.7084E-02,7.7237E-02,7.7334E-02,7.7411E-02,7.7441E-02,7.7775E-02,7.8171E-02,7.8480E-02,7.8959E-02,7.9522E-02,7.9935E-02,8.0032E-02,7.9805E-02,7.9285E-02,7.8616E-02,7.7637E-02,7.6295E-02,7.4371E-02,7.1103E-02,6.5700E-02,5.8552E-02,5.0365E-02,4.1961E-02,3.6315E-02,3.1794E-02,2.7971E-02,2.6139E-02 "HCO3","ppmV",4.1003E-11,4.4441E-11,4.6610E-11,4.8549E-11,5.0583E-11,5.2677E-11,5.4753E-11,5.6663E-11,5.8400E-11,5.9362E-11,6.0462E-11,6.0844E-11,6.0366E-11,6.0810E-11,6.2002E-11,6.3696E-11,6.5874E-11,6.9009E-11,7.0511E-11,7.3740E-11,7.9093E-11,8.6305E-11,9.7555E-11,1.1260E-10,1.3215E-10,1.5653E-10,1.8826E-10,2.3142E-10,2.9098E-10,3.7992E-10,5.1836E-10,7.3451E-10,1.0755E-09,1.6308E-09,2.5249E-09,3.6646E-09,4.4686E-09,4.1260E-09,2.9851E-09,1.9291E-09,1.3809E-09,1.0033E-09,9.7498E-10,1.1534E-09 "ALDX","ppmV",3.2950E-06,3.4916E-06,3.5771E-06,3.6377E-06,3.6893E-06,3.7329E-06,3.7737E-06,3.8162E-06,3.8595E-06,3.9059E-06,3.9527E-06,3.9899E-06,4.0202E-06,4.0580E-06,4.0851E-06,4.0850E-06,4.0558E-06,4.0126E-06,3.8986E-06,3.6984E-06,3.4292E-06,3.1951E-06,3.0767E-06,2.9608E-06,2.8477E-06,2.7497E-06,2.6330E-06,2.5032E-06,2.3613E-06,2.1939E-06,1.9963E-06,1.7892E-06,1.5734E-06,1.3594E-06,1.1493E-06,9.0847E-07,6.2337E-07,3.5398E-07,1.6210E-07,4.7574E-08,1.5523E-08,8.3044E-09,5.3354E-09,3.0377E-09 "GLYD","ppmV",2.1931E-07,2.3215E-07,2.3711E-07,2.4019E-07,2.4273E-07,2.4480E-07,2.4671E-07,2.4875E-07,2.5131E-07,2.5434E-07,2.5774E-07,2.6133E-07,2.6714E-07,2.7526E-07,2.9008E-07,3.1067E-07,3.3956E-07,3.6205E-07,3.7799E-07,3.8303E-07,3.7983E-07,3.7753E-07,3.8294E-07,3.8475E-07,3.9118E-07,4.0069E-07,4.1389E-07,4.4194E-07,4.7788E-07,5.1594E-07,5.4520E-07,5.5635E-07,5.4947E-07,5.3653E-07,5.1729E-07,4.5683E-07,3.4555E-07,1.9994E-07,8.7565E-08,2.0812E-08,3.4622E-09,9.9008E-10,2.4377E-10,5.7279E-11 "GLY","ppmV",2.5501E-07,2.6795E-07,2.7274E-07,2.7529E-07,2.7780E-07,2.7784E-07,2.7630E-07,2.7489E-07,2.7131E-07,2.6531E-07,2.5842E-07,2.5067E-07,2.4191E-07,2.3377E-07,2.2307E-07,2.2599E-07,2.4034E-07,2.5115E-07,2.6650E-07,2.7446E-07,2.6930E-07,2.6159E-07,2.6653E-07,2.6797E-07,2.6548E-07,2.6317E-07,2.6101E-07,2.5668E-07,2.4974E-07,2.3907E-07,2.2755E-07,2.1476E-07,2.0168E-07,1.9008E-07,1.8259E-07,1.7489E-07,1.5838E-07,1.2637E-07,8.1532E-08,3.5842E-08,1.4910E-08,6.2084E-09,3.0529E-09,2.3129E-09 "MGLY","ppmV",6.5543E-08,6.9104E-08,7.0531E-08,7.1388E-08,7.2070E-08,7.2247E-08,7.1892E-08,7.1634E-08,7.1180E-08,7.0133E-08,6.8545E-08,6.6166E-08,6.3470E-08,6.0029E-08,5.6082E-08,5.4045E-08,5.5183E-08,5.5284E-08,5.5434E-08,5.4075E-08,5.0779E-08,4.7614E-08,4.6746E-08,4.4505E-08,4.1768E-08,3.8478E-08,3.4660E-08,3.0907E-08,2.7385E-08,2.3566E-08,1.9957E-08,1.6790E-08,1.4303E-08,1.2491E-08,1.1234E-08,9.9421E-09,7.8749E-09,5.1087E-09,2.5175E-09,7.1912E-10,1.9477E-10,1.2091E-10,7.4241E-11,5.7995E-11 "ETHA","ppmV",4.5273E-04,4.5276E-04,4.5278E-04,4.5279E-04,4.5275E-04,4.5277E-04,4.5274E-04,4.5282E-04,4.5274E-04,4.5238E-04,4.5151E-04,4.5064E-04,4.4983E-04,4.4867E-04,4.4703E-04,4.4575E-04,4.4375E-04,4.4205E-04,4.3885E-04,4.3378E-04,4.2759E-04,4.2165E-04,4.1847E-04,4.1551E-04,4.1240E-04,4.1147E-04,4.1120E-04,4.0846E-04,4.0334E-04,3.9655E-04,3.8816E-04,3.7870E-04,3.6683E-04,3.5335E-04,3.3863E-04,3.1705E-04,2.8546E-04,2.4669E-04,2.0182E-04,1.5197E-04,1.1759E-04,9.8551E-05,8.3374E-05,7.4954E-05 "ETOH","ppmV",4.8722E-07,5.1485E-07,5.2589E-07,5.3319E-07,5.3964E-07,5.4558E-07,5.5200E-07,5.5969E-07,5.6906E-07,5.8074E-07,5.9479E-07,6.1425E-07,6.4585E-07,6.8946E-07,7.5777E-07,8.3680E-07,9.7426E-07,1.1545E-06,1.3045E-06,1.3898E-06,1.4027E-06,1.3758E-06,1.4129E-06,1.4558E-06,1.5002E-06,1.5477E-06,1.6205E-06,1.7195E-06,1.8406E-06,1.9582E-06,2.0654E-06,2.1625E-06,2.2482E-06,2.2911E-06,2.2691E-06,2.0557E-06,1.5905E-06,9.9904E-07,4.8326E-07,1.3370E-07,3.2239E-08,1.2867E-08,6.2065E-09,2.5082E-09 "KET","ppmV",3.4639E-04,3.5956E-04,3.6621E-04,3.7182E-04,3.7782E-04,3.8459E-04,3.9279E-04,4.0352E-04,4.1438E-04,4.2739E-04,4.4311E-04,4.6282E-04,4.9052E-04,5.2525E-04,5.6666E-04,6.1243E-04,6.6625E-04,7.2184E-04,7.6603E-04,7.9826E-04,8.1512E-04,8.1933E-04,8.3742E-04,8.5581E-04,8.6740E-04,8.8202E-04,9.0044E-04,9.1413E-04,9.2292E-04,9.2331E-04,9.2166E-04,9.1787E-04,9.0927E-04,8.9622E-04,8.7697E-04,8.3161E-04,7.4876E-04,6.2906E-04,4.7096E-04,2.9317E-04,1.8000E-04,1.0176E-04,5.4726E-05,3.7277E-05 "PAR","ppmV",9.5641E-04,9.5644E-04,9.5633E-04,9.5602E-04,9.5527E-04,9.5432E-04,9.5249E-04,9.5051E-04,9.4783E-04,9.4433E-04,9.3847E-04,9.3148E-04,9.2246E-04,9.1296E-04,9.0007E-04,8.8092E-04,8.5773E-04,8.3746E-04,8.1330E-04,7.8045E-04,7.4547E-04,7.1581E-04,7.0284E-04,6.8917E-04,6.7556E-04,6.6516E-04,6.5078E-04,6.3146E-04,6.0945E-04,5.8322E-04,5.5079E-04,5.1608E-04,4.7649E-04,4.3366E-04,3.8868E-04,3.2428E-04,2.2888E-04,1.2731E-04,5.3553E-05,1.1484E-05,2.2589E-06,1.4535E-06,1.2844E-06,3.6223E-07 "ACET","ppmV",5.9294E-05,6.1951E-05,6.3322E-05,6.4493E-05,6.5784E-05,6.7285E-05,6.9167E-05,7.1680E-05,7.4195E-05,7.7191E-05,8.0818E-05,8.5339E-05,9.1828E-05,9.9836E-05,1.0930E-04,1.1959E-04,1.3196E-04,1.4508E-04,1.5581E-04,1.6453E-04,1.7091E-04,1.7498E-04,1.8278E-04,1.9128E-04,1.9838E-04,2.0664E-04,2.1670E-04,2.2514E-04,2.3166E-04,2.3500E-04,2.3747E-04,2.4002E-04,2.4177E-04,2.4221E-04,2.3914E-04,2.2543E-04,1.9717E-04,1.5668E-04,1.0712E-04,5.6297E-05,2.9066E-05,1.3460E-05,5.3988E-06,2.9427E-06 "PRPA","ppmV",5.1565E-05,5.1568E-05,5.1566E-05,5.1560E-05,5.1538E-05,5.1513E-05,5.1457E-05,5.1406E-05,5.1329E-05,5.1215E-05,5.0992E-05,5.0733E-05,5.0409E-05,5.0119E-05,4.9787E-05,4.9368E-05,4.8751E-05,4.8043E-05,4.7214E-05,4.6045E-05,4.4916E-05,4.3945E-05,4.3273E-05,4.2566E-05,4.1826E-05,4.1300E-05,4.0781E-05,4.0028E-05,3.9048E-05,3.7845E-05,3.6441E-05,3.5044E-05,3.3427E-05,3.1694E-05,2.9819E-05,2.6886E-05,2.2314E-05,1.6775E-05,1.1186E-05,6.1216E-06,3.4244E-06,2.1629E-06,1.3612E-06,1.0019E-06 "ROR","ppmV",9.9755E-15,9.6608E-15,9.6023E-15,9.5988E-15,9.6233E-15,9.6718E-15,9.7362E-15,9.8302E-15,9.9623E-15,1.0074E-14,1.0195E-14,1.0289E-14,1.0406E-14,1.0582E-14,1.0771E-14,1.0836E-14,1.0544E-14,1.0308E-14,1.0056E-14,9.7458E-15,8.4849E-15,7.4401E-15,7.0633E-15,6.8700E-15,6.8635E-15,6.9095E-15,7.0986E-15,7.4117E-15,7.8583E-15,8.1062E-15,8.3873E-15,8.9302E-15,9.5166E-15,9.8870E-15,1.0542E-14,1.1147E-14,1.0822E-14,8.7883E-15,5.4259E-15,1.4252E-15,2.2407E-16,1.0942E-16,8.2970E-17,3.3728E-17 "ETHY","ppmV",6.2434E-05,6.2453E-05,6.2461E-05,6.2460E-05,6.2451E-05,6.2447E-05,6.2428E-05,6.2414E-05,6.2388E-05,6.2333E-05,6.2222E-05,6.2076E-05,6.1862E-05,6.1697E-05,6.1513E-05,6.1326E-05,6.0983E-05,6.0649E-05,6.0176E-05,5.9674E-05,5.9351E-05,5.9314E-05,6.0136E-05,6.1027E-05,6.1878E-05,6.3024E-05,6.4178E-05,6.4978E-05,6.5352E-05,6.5086E-05,6.4123E-05,6.2688E-05,6.0619E-05,5.7857E-05,5.4349E-05,4.8474E-05,3.9110E-05,2.7928E-05,1.7322E-05,8.6908E-06,4.8314E-06,3.0786E-06,1.9203E-06,1.4468E-06 "ETH","ppmV",3.1304E-06,3.1314E-06,3.1313E-06,3.1298E-06,3.1259E-06,3.1220E-06,3.1134E-06,3.1048E-06,3.0929E-06,3.0753E-06,3.0494E-06,3.0222E-06,2.9875E-06,2.9608E-06,2.9273E-06,2.8608E-06,2.7911E-06,2.7142E-06,2.6466E-06,2.5404E-06,2.4196E-06,2.3305E-06,2.2942E-06,2.2337E-06,2.1772E-06,2.1276E-06,2.0563E-06,1.9809E-06,1.9214E-06,1.8463E-06,1.7191E-06,1.5821E-06,1.4441E-06,1.3726E-06,1.3586E-06,1.1728E-06,8.1899E-07,3.8379E-07,1.2960E-07,2.7399E-08,6.3414E-09,2.4100E-09,6.6513E-10,1.3819E-10 "OLE","ppmV",1.3507E-07,1.3617E-07,1.3638E-07,1.3467E-07,1.3147E-07,1.2757E-07,1.2185E-07,1.1417E-07,1.0540E-07,9.3006E-08,8.2165E-08,7.1001E-08,5.9084E-08,4.8968E-08,4.0724E-08,3.3170E-08,2.6886E-08,2.2358E-08,1.9156E-08,1.6736E-08,1.5546E-08,1.4759E-08,1.4187E-08,1.4110E-08,1.4251E-08,1.4221E-08,1.4029E-08,1.4072E-08,1.4244E-08,1.4277E-08,1.3422E-08,1.2560E-08,1.1194E-08,9.8566E-09,7.7607E-09,5.1463E-09,3.1249E-09,1.4270E-09,5.0676E-10,1.2992E-10,3.6403E-11,1.2071E-11,2.1104E-12,1.5101E-13 "IOLE","ppmV",7.4453E-09,7.6713E-09,7.7127E-09,7.4729E-09,7.1005E-09,6.6932E-09,6.1497E-09,5.4641E-09,4.7418E-09,3.6794E-09,2.9298E-09,2.2627E-09,1.6360E-09,1.1800E-09,8.8081E-10,6.3538E-10,4.4879E-10,3.0829E-10,2.1227E-10,1.4519E-10,1.1588E-10,1.0036E-10,6.9314E-11,6.1223E-11,6.0537E-11,6.0290E-11,5.8576E-11,5.2957E-11,4.5681E-11,3.8262E-11,2.9664E-11,2.6242E-11,2.6762E-11,2.7995E-11,2.5746E-11,2.1334E-11,1.4424E-11,6.8339E-12,1.7461E-12,1.7764E-13,4.5487E-15,6.8648E-17,5.4028E-19,4.3941E-21 "ISOP","ppmV",9.1418E-09,9.2840E-09,9.3044E-09,9.1110E-09,8.8039E-09,8.4487E-09,7.9488E-09,7.2974E-09,6.5905E-09,5.5584E-09,4.7317E-09,3.9379E-09,3.0998E-09,2.4122E-09,1.8957E-09,1.4565E-09,1.0774E-09,7.7308E-10,5.5522E-10,3.8395E-10,3.0480E-10,2.5526E-10,1.9487E-10,1.7271E-10,1.6447E-10,1.5655E-10,1.4478E-10,1.2441E-10,1.0406E-10,8.5653E-11,6.6314E-11,5.3986E-11,4.5990E-11,3.4865E-11,2.2087E-11,1.2618E-11,5.6683E-12,7.0124E-13,7.6942E-14,1.4948E-15,9.2852E-18,2.4215E-19,9.6917E-21,1.1892E-22 "ISO2","ppmV",7.7054E-11,8.1351E-11,8.2381E-11,7.9994E-11,7.6411E-11,7.2703E-11,6.8109E-11,6.2279E-11,5.6075E-11,4.6102E-11,3.9567E-11,3.3907E-11,2.8327E-11,2.3270E-11,1.9157E-11,1.5330E-11,1.2142E-11,9.1327E-12,7.1524E-12,5.5817E-12,4.5314E-12,3.9486E-12,3.2799E-12,3.0306E-12,2.9691E-12,2.8586E-12,2.7011E-12,2.3897E-12,2.0259E-12,1.7268E-12,1.3887E-12,1.1722E-12,9.7059E-13,7.3438E-13,4.6475E-13,2.5672E-13,8.4041E-14,1.2214E-14,1.7074E-15,2.9028E-17,3.5638E-19,3.4964E-20,4.4740E-21,1.5333E-22 "ISPD","ppmV",4.6044E-09,4.6923E-09,4.7455E-09,4.7603E-09,4.7172E-09,4.6392E-09,4.4986E-09,4.2858E-09,4.0262E-09,3.6721E-09,3.3030E-09,2.8820E-09,2.4150E-09,2.0072E-09,1.6594E-09,1.3286E-09,1.0418E-09,8.1901E-10,6.7493E-10,5.5922E-10,5.0453E-10,4.9685E-10,4.7627E-10,4.7088E-10,4.7665E-10,4.6899E-10,4.4997E-10,4.5243E-10,4.8254E-10,5.2227E-10,5.5164E-10,5.6337E-10,5.1480E-10,4.1888E-10,2.7006E-10,1.3764E-10,6.4737E-11,1.6194E-11,2.7086E-12,1.8953E-13,9.8441E-15,6.1587E-16,3.7819E-17,1.0508E-18 "INTR","ppmV",2.7506E-10,2.9033E-10,2.9871E-10,3.0270E-10,3.0290E-10,3.0009E-10,2.9318E-10,2.8062E-10,2.6635E-10,2.4683E-10,2.2628E-10,2.0354E-10,1.8059E-10,1.6167E-10,1.4940E-10,1.4521E-10,1.5614E-10,1.7642E-10,2.0359E-10,2.2746E-10,2.5286E-10,2.8237E-10,3.2470E-10,3.5464E-10,4.0451E-10,4.6742E-10,5.4323E-10,7.0015E-10,9.4135E-10,1.1905E-09,1.3764E-09,1.4305E-09,1.3366E-09,1.2991E-09,1.1291E-09,7.4985E-10,4.3985E-10,1.8133E-10,5.5652E-11,8.4263E-12,1.3829E-12,4.7345E-13,5.0144E-14,7.1634E-15 "ISPX","ppmV",5.5691E-10,5.8722E-10,6.0062E-10,6.0673E-10,6.0794E-10,6.0535E-10,5.9648E-10,5.7897E-10,5.5141E-10,5.0415E-10,4.6138E-10,4.1473E-10,3.6036E-10,3.0865E-10,2.6101E-10,2.1274E-10,1.7163E-10,1.3703E-10,1.1303E-10,9.3595E-11,8.3424E-11,7.8245E-11,6.9949E-11,6.4226E-11,6.0844E-11,5.7686E-11,5.4879E-11,5.4419E-11,5.7355E-11,5.9587E-11,5.7654E-11,5.2075E-11,4.0308E-11,2.9092E-11,1.7938E-11,8.6712E-12,3.2807E-12,6.9349E-13,6.5239E-14,2.0577E-15,1.1058E-16,9.8946E-18,1.1949E-18,3.3213E-20 "HPLD","ppmV",6.3291E-10,6.3173E-10,6.2913E-10,6.2050E-10,6.0482E-10,5.8559E-10,5.5718E-10,5.2178E-10,4.8105E-10,4.2460E-10,3.6702E-10,3.0435E-10,2.3476E-10,1.7660E-10,1.3177E-10,9.4717E-11,6.7504E-11,4.5806E-11,3.1617E-11,2.1976E-11,1.6659E-11,1.3005E-11,8.5393E-12,6.6440E-12,5.9105E-12,5.3785E-12,4.8203E-12,4.1155E-12,3.4898E-12,2.9484E-12,2.3943E-12,1.9589E-12,1.6407E-12,1.3069E-12,8.9754E-13,5.3940E-13,2.6705E-13,3.7487E-14,6.3555E-15,1.3388E-16,2.0972E-19,3.6990E-22,1.5112E-23,1.4262E-24 "OPO3","ppmV",1.3702E-09,1.3599E-09,1.3447E-09,1.3303E-09,1.3152E-09,1.2979E-09,1.2803E-09,1.2666E-09,1.2560E-09,1.2729E-09,1.2799E-09,1.2794E-09,1.2783E-09,1.2907E-09,1.3052E-09,1.3132E-09,1.3081E-09,1.2993E-09,1.2868E-09,1.2690E-09,1.2290E-09,1.1977E-09,1.1919E-09,1.1822E-09,1.1723E-09,1.1653E-09,1.1534E-09,1.1196E-09,1.0751E-09,1.0280E-09,9.7022E-10,9.1805E-10,8.5229E-10,7.8607E-10,7.3236E-10,6.7945E-10,5.8720E-10,4.5443E-10,2.8946E-10,1.2023E-10,5.0018E-11,2.7814E-11,1.6304E-11,1.2478E-11 "EPOX","ppmV",1.5693E-09,1.6503E-09,1.6888E-09,1.7153E-09,1.7384E-09,1.7570E-09,1.7692E-09,1.7687E-09,1.7450E-09,1.6960E-09,1.6475E-09,1.5948E-09,1.5307E-09,1.4893E-09,1.5926E-09,1.8993E-09,2.2302E-09,2.6838E-09,3.1105E-09,3.5616E-09,4.0628E-09,4.3515E-09,4.5626E-09,5.2680E-09,6.7734E-09,9.3110E-09,1.3313E-08,1.9352E-08,2.9085E-08,4.3823E-08,6.7936E-08,9.5052E-08,1.2353E-07,1.5198E-07,1.6087E-07,1.4801E-07,1.1768E-07,8.1130E-08,4.0555E-08,9.1618E-09,8.6016E-10,1.8794E-10,3.6051E-11,7.2731E-12 "EPX2","ppmV",7.8408E-12,8.0388E-12,8.1716E-12,8.3215E-12,8.4753E-12,8.6119E-12,8.7452E-12,8.8393E-12,8.8634E-12,8.7626E-12,8.5681E-12,8.2575E-12,7.7820E-12,7.4422E-12,7.9151E-12,9.4751E-12,1.0611E-11,1.1106E-11,1.0843E-11,1.1881E-11,1.3995E-11,1.5076E-11,1.6148E-11,1.8192E-11,2.2316E-11,3.1490E-11,4.6974E-11,6.5761E-11,9.3157E-11,1.3682E-10,2.2066E-10,3.0977E-10,3.7462E-10,4.1589E-10,3.9398E-10,3.3117E-10,2.3297E-10,1.5288E-10,8.2211E-11,1.9327E-11,1.6743E-12,6.3710E-13,1.6287E-13,5.6612E-14 "TERP","ppmV",3.5782E-15,3.5974E-15,3.6134E-15,3.6290E-15,3.6454E-15,3.6628E-15,3.6820E-15,3.7038E-15,3.7309E-15,3.7646E-15,3.8068E-15,3.8607E-15,3.9315E-15,4.0307E-15,4.1648E-15,4.3665E-15,4.7005E-15,5.3148E-15,6.3965E-15,8.4697E-15,1.2544E-14,1.7725E-14,1.9743E-14,2.1044E-14,1.9209E-14,1.7473E-14,1.9743E-14,3.2192E-14,6.1332E-14,1.1026E-13,1.6284E-13,1.9340E-13,1.9921E-13,1.9435E-13,2.8065E-13,3.4074E-13,1.2451E-13,1.3184E-14,1.5236E-15,5.7238E-17,2.7476E-19,1.8826E-21,1.2677E-23,1.0009E-24 "APIN","ppmV",3.9026E-20,3.8953E-20,3.9086E-20,3.9232E-20,3.9270E-20,3.9423E-20,3.9454E-20,3.9667E-20,3.9902E-20,4.0193E-20,4.0811E-20,4.1567E-20,4.2677E-20,4.4227E-20,4.6391E-20,4.9904E-20,5.6712E-20,7.7722E-20,1.0133E-19,2.8146E-19,6.3849E-19,8.8484E-19,1.2072E-18,1.9654E-18,3.3731E-18,5.4756E-18,8.0760E-18,1.0913E-17,1.2848E-17,1.3790E-17,1.0977E-17,3.8723E-18,8.1160E-19,4.9883E-20,4.6747E-21,2.7767E-21,1.6492E-21,2.9267E-22,5.3200E-23,1.9798E-24,9.6010E-25,9.6215E-25,9.5566E-25,9.4299E-25 "TERPNRO2","ppmV",1.8295E-15,1.8487E-15,1.8735E-15,1.9037E-15,1.9352E-15,1.9677E-15,2.0021E-15,2.0401E-15,2.0842E-15,2.1355E-15,2.1927E-15,2.2579E-15,2.3346E-15,2.4269E-15,2.5441E-15,2.7070E-15,2.9629E-15,3.3726E-15,4.2001E-15,5.7412E-15,6.7527E-15,1.0175E-14,7.2511E-15,4.5980E-15,3.1448E-15,2.7306E-15,2.5646E-15,1.7349E-15,1.7567E-15,2.9812E-15,6.3705E-15,1.1652E-14,1.4557E-14,1.4631E-14,1.3346E-14,1.4095E-14,4.3736E-15,3.1628E-16,1.1040E-17,6.6869E-19,1.7275E-20,9.6153E-22,2.3615E-23,9.2240E-25 "MTNO3","ppmV",2.2564E-10,2.3605E-10,2.4005E-10,2.4254E-10,2.4523E-10,2.4708E-10,2.4888E-10,2.5065E-10,2.5228E-10,2.5393E-10,2.5662E-10,2.6255E-10,2.7198E-10,2.7985E-10,2.9087E-10,2.8164E-10,2.6404E-10,2.5491E-10,2.5818E-10,2.5486E-10,2.6839E-10,2.8342E-10,2.9815E-10,3.2452E-10,3.5083E-10,3.6209E-10,3.4989E-10,3.4086E-10,3.4747E-10,3.8298E-10,4.3369E-10,4.4921E-10,4.2961E-10,4.2096E-10,3.8760E-10,2.6470E-10,1.0409E-10,2.2474E-11,2.6153E-12,1.8936E-13,3.2469E-15,4.6115E-17,8.8352E-19,2.4908E-20 "BENZENE","ppmV",2.1639E-05,2.1661E-05,2.1670E-05,2.1675E-05,2.1676E-05,2.1678E-05,2.1671E-05,2.1669E-05,2.1665E-05,2.1651E-05,2.1615E-05,2.1564E-05,2.1461E-05,2.1403E-05,2.1321E-05,2.1248E-05,2.1096E-05,2.0955E-05,2.0808E-05,2.0610E-05,2.0487E-05,2.0467E-05,2.0834E-05,2.1161E-05,2.1455E-05,2.1857E-05,2.2141E-05,2.2221E-05,2.2140E-05,2.1842E-05,2.1212E-05,2.0434E-05,1.9444E-05,1.8252E-05,1.6904E-05,1.4755E-05,1.1370E-05,7.4831E-06,4.1327E-06,1.6811E-06,7.7080E-07,4.4100E-07,2.3587E-07,1.5503E-07 "CRES","ppmV",1.1148E-07,1.1803E-07,1.2083E-07,1.2270E-07,1.2427E-07,1.2567E-07,1.2695E-07,1.2838E-07,1.3003E-07,1.3244E-07,1.3498E-07,1.3799E-07,1.4116E-07,1.4460E-07,1.4791E-07,1.5098E-07,1.5074E-07,1.4971E-07,1.4621E-07,1.4229E-07,1.3920E-07,1.4208E-07,1.5063E-07,1.6114E-07,1.7345E-07,1.8981E-07,2.0680E-07,2.2137E-07,2.3150E-07,2.3708E-07,2.3543E-07,2.2794E-07,2.1442E-07,1.9502E-07,1.6837E-07,1.3123E-07,8.5752E-08,4.4980E-08,1.9027E-08,6.2625E-09,2.5301E-09,1.2349E-09,6.2959E-10,4.4094E-10 "BZO2","ppmV",1.2990E-09,1.2773E-09,1.2712E-09,1.2730E-09,1.2768E-09,1.2816E-09,1.2880E-09,1.2972E-09,1.3096E-09,1.3314E-09,1.3459E-09,1.3583E-09,1.3682E-09,1.3789E-09,1.3909E-09,1.3984E-09,1.3801E-09,1.3673E-09,1.3439E-09,1.2797E-09,1.1946E-09,1.1135E-09,1.0829E-09,1.0673E-09,1.0583E-09,1.0554E-09,1.0548E-09,1.0412E-09,1.0176E-09,9.7314E-10,9.1491E-10,8.5099E-10,7.7273E-10,6.9247E-10,6.1985E-10,5.4764E-10,4.5381E-10,3.3488E-10,2.1327E-10,9.9005E-11,5.0656E-11,3.8026E-11,2.8374E-11,2.3809E-11 "OPEN","ppmV",5.0198E-08,5.1171E-08,5.1573E-08,5.1759E-08,5.1762E-08,5.1708E-08,5.1456E-08,5.1123E-08,5.0681E-08,4.9998E-08,4.9141E-08,4.8197E-08,4.7164E-08,4.6092E-08,4.4591E-08,4.2654E-08,4.0027E-08,3.7598E-08,3.5092E-08,3.2478E-08,3.0143E-08,2.9021E-08,2.9033E-08,2.9313E-08,2.9825E-08,3.0639E-08,3.1095E-08,3.1151E-08,3.1005E-08,3.0523E-08,2.9762E-08,2.9278E-08,2.8644E-08,2.7862E-08,2.7465E-08,2.6696E-08,2.3987E-08,1.8419E-08,1.1318E-08,4.3206E-09,1.5270E-09,5.6480E-10,2.0578E-10,1.1792E-10 "BENZRO2","ppmV",4.1095E-09,3.9854E-09,3.9563E-09,3.9740E-09,4.0042E-09,4.0381E-09,4.0840E-09,4.1498E-09,4.2388E-09,4.4133E-09,4.5202E-09,4.5871E-09,4.6280E-09,4.6812E-09,4.7370E-09,4.7842E-09,4.7595E-09,4.7513E-09,4.6967E-09,4.4452E-09,4.0602E-09,3.7019E-09,3.5495E-09,3.4440E-09,3.3645E-09,3.3035E-09,3.2429E-09,3.1465E-09,3.0286E-09,2.8655E-09,2.6789E-09,2.4882E-09,2.2600E-09,2.0258E-09,1.8087E-09,1.5925E-09,1.3133E-09,9.6532E-10,6.1393E-10,2.8593E-10,1.4640E-10,1.1028E-10,8.2636E-11,6.9453E-11 "TOL","ppmV",4.0143E-06,4.0188E-06,4.0199E-06,4.0177E-06,4.0113E-06,4.0036E-06,3.9889E-06,3.9715E-06,3.9498E-06,3.9187E-06,3.8781E-06,3.8321E-06,3.7729E-06,3.7261E-06,3.6711E-06,3.5887E-06,3.4927E-06,3.4105E-06,3.3439E-06,3.2242E-06,3.0973E-06,3.0246E-06,3.0394E-06,3.0054E-06,2.9682E-06,2.9208E-06,2.8120E-06,2.6884E-06,2.5836E-06,2.4492E-06,2.2258E-06,1.9783E-06,1.7564E-06,1.5862E-06,1.4208E-06,1.1355E-06,7.4072E-07,3.3167E-07,1.0237E-07,1.6490E-08,1.9390E-09,4.7967E-10,1.3394E-10,3.7785E-11 "TO2","ppmV",2.1449E-09,2.1023E-09,2.0918E-09,2.0938E-09,2.0983E-09,2.1037E-09,2.1099E-09,2.1183E-09,2.1310E-09,2.1479E-09,2.1551E-09,2.1545E-09,2.1502E-09,2.1641E-09,2.2011E-09,2.1834E-09,2.1200E-09,2.0739E-09,2.0788E-09,2.0016E-09,1.7689E-09,1.5660E-09,1.4343E-09,1.3526E-09,1.3119E-09,1.2851E-09,1.2488E-09,1.2025E-09,1.1644E-09,1.1074E-09,1.0199E-09,9.2104E-10,7.9818E-10,6.9034E-10,5.8741E-10,4.7096E-10,3.2223E-10,1.8121E-10,7.9329E-11,1.7891E-11,2.4633E-12,7.4111E-13,2.9573E-13,1.0048E-13 "TOLRO2","ppmV",3.7347E-09,3.6116E-09,3.5851E-09,3.6017E-09,3.6285E-09,3.6582E-09,3.6969E-09,3.7498E-09,3.8270E-09,3.9559E-09,4.0346E-09,4.0664E-09,4.0677E-09,4.1293E-09,4.2301E-09,4.2141E-09,4.1728E-09,4.1398E-09,4.2118E-09,4.0697E-09,3.4594E-09,2.8885E-09,2.5658E-09,2.3626E-09,2.2538E-09,2.1705E-09,2.0654E-09,1.9584E-09,1.8765E-09,1.7719E-09,1.6219E-09,1.4642E-09,1.2703E-09,1.0994E-09,9.3143E-10,7.4417E-10,5.0656E-10,2.8358E-10,1.2356E-10,2.7884E-11,3.8681E-12,1.1694E-12,4.6894E-13,1.5992E-13 "XOPN","ppmV",7.5323E-09,7.7965E-09,7.9008E-09,7.9276E-09,7.8896E-09,7.8259E-09,7.6980E-09,7.5330E-09,7.3407E-09,7.0608E-09,6.7341E-09,6.3757E-09,6.0124E-09,5.6868E-09,5.3511E-09,4.9279E-09,4.4775E-09,4.0593E-09,3.7343E-09,3.3519E-09,2.9390E-09,2.6880E-09,2.5767E-09,2.4994E-09,2.4459E-09,2.3864E-09,2.2702E-09,2.1214E-09,1.9692E-09,1.7937E-09,1.5830E-09,1.4386E-09,1.3290E-09,1.2369E-09,1.1681E-09,1.0710E-09,8.8028E-10,5.3994E-10,2.3570E-10,4.9621E-11,4.5117E-12,7.7940E-13,1.4545E-13,2.3089E-14 "XYLMN","ppmV",4.1078E-07,4.1226E-07,4.1260E-07,4.1083E-07,4.0714E-07,4.0260E-07,3.9548E-07,3.8604E-07,3.7482E-07,3.5900E-07,3.4331E-07,3.2670E-07,3.0797E-07,2.9178E-07,2.7651E-07,2.5833E-07,2.4283E-07,2.3178E-07,2.2148E-07,2.0529E-07,1.8825E-07,1.7578E-07,1.7229E-07,1.6690E-07,1.6169E-07,1.5463E-07,1.4456E-07,1.3350E-07,1.2273E-07,1.1017E-07,9.2034E-08,7.5546E-08,6.2239E-08,5.2061E-08,4.2655E-08,3.1959E-08,2.0530E-08,8.7831E-09,2.5701E-09,4.3133E-10,7.2709E-11,2.5204E-11,6.4000E-12,9.6147E-13 "XLO2","ppmV",5.6476E-10,5.5626E-10,5.5296E-10,5.5018E-10,5.4578E-10,5.4038E-10,5.3262E-10,5.2220E-10,5.1026E-10,4.9171E-10,4.7233E-10,4.5031E-10,4.2615E-10,4.0624E-10,3.9154E-10,3.6724E-10,3.4119E-10,3.2046E-10,3.1316E-10,2.9554E-10,2.5629E-10,2.1612E-10,1.8144E-10,1.6172E-10,1.5279E-10,1.4469E-10,1.3431E-10,1.2207E-10,1.1071E-10,9.9326E-11,8.5215E-11,7.1842E-11,5.6755E-11,4.4688E-11,3.4557E-11,2.5234E-11,1.5843E-11,8.1081E-12,3.3345E-12,7.8445E-13,1.7002E-13,7.9320E-14,2.6838E-14,4.8018E-15 "XYLRO2","ppmV",1.1224E-09,1.0923E-09,1.0835E-09,1.0811E-09,1.0769E-09,1.0709E-09,1.0621E-09,1.0504E-09,1.0387E-09,1.0240E-09,9.9804E-10,9.6039E-10,9.1294E-10,8.7942E-10,8.5538E-10,8.0617E-10,7.6511E-10,7.3397E-10,7.3392E-10,7.0048E-10,5.8526E-10,4.5870E-10,3.6938E-10,3.2041E-10,2.9781E-10,2.7702E-10,2.5172E-10,2.2583E-10,2.0345E-10,1.8175E-10,1.5434E-10,1.3002E-10,1.0279E-10,8.0931E-11,6.2313E-11,4.5509E-11,2.8496E-11,1.4504E-11,5.8928E-12,1.3555E-12,2.7871E-13,1.2679E-13,4.2756E-14,7.6821E-15 "NAPH","ppmV",9.7854E-09,9.7964E-09,9.7994E-09,9.7998E-09,9.7964E-09,9.7934E-09,9.7764E-09,9.7643E-09,9.7365E-09,9.6884E-09,9.5961E-09,9.5076E-09,9.3918E-09,9.3102E-09,9.1861E-09,8.9043E-09,8.6539E-09,8.4687E-09,8.2724E-09,7.8737E-09,7.4603E-09,7.1210E-09,7.0917E-09,6.9592E-09,6.8716E-09,6.7586E-09,6.5358E-09,6.2324E-09,5.9003E-09,5.4492E-09,4.6539E-09,3.8342E-09,3.1271E-09,2.6652E-09,2.0369E-09,1.2671E-09,7.1805E-10,3.1490E-10,1.1222E-10,3.0882E-11,1.0629E-11,4.6443E-12,1.2151E-12,1.7927E-13 "PAHRO2","ppmV",2.5167E-11,2.4370E-11,2.4181E-11,2.4260E-11,2.4401E-11,2.4559E-11,2.4753E-11,2.5041E-11,2.5417E-11,2.6031E-11,2.6347E-11,2.6534E-11,2.6625E-11,2.7030E-11,2.7604E-11,2.7206E-11,2.6798E-11,2.6587E-11,2.7424E-11,2.6974E-11,2.3101E-11,1.8411E-11,1.4969E-11,1.3052E-11,1.2360E-11,1.1804E-11,1.1086E-11,1.0271E-11,9.5636E-12,8.8176E-12,7.6874E-12,6.5311E-12,5.1954E-12,4.1666E-12,3.1622E-12,2.1716E-12,1.3076E-12,6.9219E-13,3.2314E-13,1.0662E-13,4.0159E-14,2.3056E-14,8.1267E-15,1.4301E-15 "CRO","ppmV",4.6783E-09,4.9392E-09,5.0792E-09,5.2207E-09,5.3717E-09,5.5297E-09,5.7197E-09,5.9663E-09,6.2958E-09,6.9760E-09,7.6212E-09,8.2702E-09,9.0857E-09,1.0130E-08,1.1292E-08,1.2446E-08,1.3319E-08,1.4056E-08,1.4750E-08,1.5663E-08,1.5834E-08,1.6007E-08,1.6554E-08,1.7082E-08,1.7816E-08,1.8389E-08,1.8623E-08,1.8640E-08,1.8407E-08,1.8356E-08,1.8784E-08,1.9258E-08,1.8907E-08,1.7801E-08,1.6363E-08,1.4753E-08,1.2798E-08,1.0254E-08,6.8648E-09,3.0215E-09,1.0919E-09,4.4629E-10,2.9106E-10,2.8947E-10 "CAT1","ppmV",2.8957E-08,3.0740E-08,3.1560E-08,3.2162E-08,3.2734E-08,3.3299E-08,3.3911E-08,3.4616E-08,3.5471E-08,3.6624E-08,3.7772E-08,3.9079E-08,4.0503E-08,4.2222E-08,4.4598E-08,4.7083E-08,4.7757E-08,4.8290E-08,4.7449E-08,4.5971E-08,4.4902E-08,4.4872E-08,4.6731E-08,4.9570E-08,5.3216E-08,5.9530E-08,6.8178E-08,7.9080E-08,9.0517E-08,1.0180E-07,1.1539E-07,1.3254E-07,1.5229E-07,1.6618E-07,1.6927E-07,1.5514E-07,1.1835E-07,6.8368E-08,2.8876E-08,8.4053E-09,2.8231E-09,1.1102E-09,5.3852E-10,3.9799E-10 "CRON","ppmV",2.3456E-07,2.4389E-07,2.4825E-07,2.5137E-07,2.5398E-07,2.5649E-07,2.5856E-07,2.6074E-07,2.6287E-07,2.6464E-07,2.6673E-07,2.6936E-07,2.7186E-07,2.7587E-07,2.7850E-07,2.7961E-07,2.7898E-07,2.7997E-07,2.8314E-07,3.0063E-07,3.3353E-07,3.8331E-07,4.4323E-07,5.0549E-07,5.8330E-07,6.7980E-07,7.8429E-07,8.8411E-07,9.8674E-07,1.0966E-06,1.2039E-06,1.2993E-06,1.3480E-06,1.3515E-06,1.3435E-06,1.2993E-06,1.1575E-06,9.3285E-07,6.1411E-07,2.5806E-07,9.7364E-08,3.8145E-08,1.3380E-08,7.4802E-09 "OPAN","ppmV",3.0720E-07,3.0909E-07,3.0997E-07,3.1056E-07,3.1083E-07,3.1089E-07,3.1056E-07,3.0982E-07,3.0827E-07,3.0544E-07,3.0147E-07,2.9677E-07,2.9112E-07,2.8579E-07,2.7922E-07,2.7166E-07,2.6486E-07,2.6134E-07,2.5869E-07,2.5283E-07,2.4452E-07,2.3774E-07,2.3497E-07,2.2854E-07,2.1933E-07,2.0808E-07,1.9242E-07,1.7534E-07,1.5864E-07,1.3973E-07,1.1759E-07,9.7539E-08,8.0529E-08,6.8583E-08,5.9623E-08,4.9215E-08,3.6267E-08,2.3406E-08,1.3643E-08,6.0999E-09,3.0013E-09,2.0234E-09,1.0729E-09,5.9211E-10 "ECH4","ppmV",2.2647E-02,2.2647E-02,2.2646E-02,2.2645E-02,2.2642E-02,2.2639E-02,2.2631E-02,2.2619E-02,2.2601E-02,2.2569E-02,2.2512E-02,2.2436E-02,2.2350E-02,2.2234E-02,2.2087E-02,2.1929E-02,2.1727E-02,2.1524E-02,2.1256E-02,2.0886E-02,2.0440E-02,1.9999E-02,1.9576E-02,1.9161E-02,1.8755E-02,1.8448E-02,1.8155E-02,1.7773E-02,1.7390E-02,1.7012E-02,1.6590E-02,1.6142E-02,1.5645E-02,1.5144E-02,1.4597E-02,1.3898E-02,1.2998E-02,1.1924E-02,1.0712E-02,9.3659E-03,8.3465E-03,7.6810E-03,7.0105E-03,6.5811E-03 "CL2","ppmV",3.1869E-06,2.6690E-06,2.4111E-06,2.2174E-06,2.0494E-06,1.9077E-06,1.7601E-06,1.6090E-06,1.4824E-06,1.3401E-06,1.1862E-06,1.0101E-06,7.9042E-07,6.0288E-07,4.6536E-07,3.4800E-07,2.4776E-07,1.7224E-07,1.2009E-07,8.0288E-08,6.2260E-08,5.0659E-08,3.2996E-08,2.6741E-08,2.4951E-08,2.3757E-08,2.2099E-08,1.8786E-08,1.5595E-08,1.2596E-08,9.7914E-09,8.0500E-09,7.1319E-09,6.1466E-09,4.4600E-09,2.6388E-09,1.2993E-09,1.2031E-10,1.0906E-11,2.5055E-12,7.5385E-12,8.8371E-11,7.6581E-10,2.4222E-09 "CL","ppmV",1.8879E-10,1.3994E-10,1.2375E-10,1.1573E-10,1.1108E-10,1.0918E-10,1.0904E-10,1.0839E-10,1.0944E-10,1.0869E-10,1.0593E-10,1.0347E-10,9.2383E-11,9.0897E-11,9.4858E-11,9.1729E-11,7.8587E-11,6.9332E-11,6.3210E-11,6.0769E-11,4.8333E-11,4.1520E-11,3.7609E-11,3.2199E-11,3.1548E-11,3.1505E-11,3.2244E-11,3.3266E-11,3.4629E-11,3.6492E-11,4.1166E-11,4.6203E-11,4.7336E-11,4.9095E-11,5.6259E-11,7.1894E-11,9.8957E-11,1.4927E-10,2.2194E-10,3.1244E-10,3.6211E-10,3.0576E-10,3.1661E-10,3.0577E-10 "HOCL","ppmV",4.4651E-06,4.7205E-06,4.8483E-06,4.9474E-06,5.0306E-06,5.0809E-06,5.1339E-06,5.1668E-06,5.2049E-06,5.2394E-06,5.2308E-06,5.1157E-06,4.8895E-06,4.6915E-06,4.4885E-06,4.1103E-06,3.5687E-06,2.9764E-06,2.4288E-06,1.9993E-06,1.5876E-06,1.3353E-06,1.1644E-06,1.0395E-06,9.6279E-07,9.0358E-07,8.6708E-07,8.2160E-07,7.8295E-07,7.5413E-07,7.3288E-07,6.7680E-07,5.7070E-07,4.5300E-07,3.6765E-07,3.1978E-07,3.1465E-07,3.5993E-07,4.2359E-07,4.5842E-07,5.5044E-07,1.1805E-06,3.3019E-06,6.8609E-06 "CLO","ppmV",1.3309E-07,1.0486E-07,9.5763E-08,9.1856E-08,9.0397E-08,9.0868E-08,9.3592E-08,9.6830E-08,1.0312E-07,1.1168E-07,1.2074E-07,1.2646E-07,1.2753E-07,1.3491E-07,1.4747E-07,1.4820E-07,1.3360E-07,1.2244E-07,1.1047E-07,9.7094E-08,7.3611E-08,6.1089E-08,5.6297E-08,5.0129E-08,5.0138E-08,5.0825E-08,5.3558E-08,5.6797E-08,6.0329E-08,6.4222E-08,7.0800E-08,7.5510E-08,7.1365E-08,6.2602E-08,5.8092E-08,5.9186E-08,6.7309E-08,8.9866E-08,1.2591E-07,1.7781E-07,2.8112E-07,7.3161E-07,2.2532E-06,4.7060E-06 "FMCL","ppmV",4.9518E-06,4.9822E-06,4.9977E-06,5.0108E-06,5.0231E-06,5.0362E-06,5.0496E-06,5.0663E-06,5.0827E-06,5.0994E-06,5.1155E-06,5.1308E-06,5.1442E-06,5.1726E-06,5.2121E-06,5.2594E-06,5.2874E-06,5.2969E-06,5.2990E-06,5.2691E-06,5.2225E-06,5.1943E-06,5.2231E-06,5.2352E-06,5.2275E-06,5.2338E-06,5.2207E-06,5.1832E-06,5.1164E-06,4.9979E-06,4.8227E-06,4.6207E-06,4.3820E-06,4.1079E-06,3.7844E-06,3.3238E-06,2.6627E-06,1.9352E-06,1.2326E-06,6.4369E-07,3.6508E-07,2.2628E-07,1.3214E-07,9.1555E-08 "HCL","ppmV",1.4022E-04,1.4023E-04,1.3866E-04,1.3698E-04,1.3489E-04,1.3167E-04,1.2771E-04,1.2261E-04,1.1672E-04,1.1032E-04,1.0260E-04,9.4066E-05,8.6635E-05,8.2194E-05,8.1235E-05,7.8323E-05,7.5962E-05,8.1387E-05,8.5580E-05,8.5101E-05,8.1711E-05,7.6217E-05,7.2697E-05,6.6763E-05,6.2136E-05,5.8454E-05,5.6510E-05,5.5905E-05,5.5845E-05,5.6446E-05,5.9680E-05,6.3374E-05,6.1279E-05,5.8678E-05,5.7950E-05,6.2424E-05,6.7156E-05,7.7019E-05,9.0006E-05,1.0214E-04,1.0779E-04,1.0656E-04,9.4969E-05,8.1044E-05 "CLNO2","ppmV",1.3241E-06,1.3231E-06,1.3245E-06,1.3268E-06,1.3150E-06,1.2905E-06,1.2578E-06,1.2108E-06,1.1519E-06,1.0737E-06,9.9242E-07,8.9863E-07,7.9957E-07,6.8700E-07,5.7043E-07,4.5577E-07,3.6227E-07,2.8303E-07,2.1084E-07,1.5638E-07,1.3036E-07,1.1206E-07,1.0460E-07,1.0050E-07,9.5333E-08,8.9375E-08,8.4853E-08,7.8632E-08,7.0633E-08,6.0256E-08,4.7360E-08,3.6481E-08,3.0080E-08,2.4589E-08,1.7678E-08,1.1138E-08,5.8761E-09,1.4134E-09,1.7651E-10,5.6117E-12,2.1475E-14,1.5516E-16,2.4356E-18,4.1970E-20 "CLNO3","ppmV",1.6853E-06,1.7214E-06,1.7223E-06,1.7136E-06,1.6939E-06,1.6703E-06,1.6442E-06,1.6096E-06,1.5724E-06,1.5123E-06,1.4377E-06,1.3293E-06,1.2026E-06,1.0975E-06,1.0139E-06,8.8673E-07,7.8831E-07,7.3124E-07,7.0893E-07,6.7717E-07,6.1128E-07,5.6427E-07,5.3451E-07,5.0371E-07,4.7620E-07,4.4648E-07,4.3198E-07,4.1655E-07,3.9784E-07,3.8698E-07,4.0063E-07,4.0635E-07,3.8145E-07,3.5213E-07,3.5986E-07,4.1350E-07,5.4504E-07,7.7835E-07,1.0903E-06,1.3920E-06,1.9768E-06,4.4217E-06,9.9117E-06,1.3751E-05 "SESQ","ppmV",1.0320E-21,1.0533E-21,1.0578E-21,1.0517E-21,1.0201E-21,9.7991E-22,9.3841E-22,8.9658E-22,8.6262E-22,8.5679E-22,8.7055E-22,8.8382E-22,9.0484E-22,9.3503E-22,9.6012E-22,9.7255E-22,9.6924E-22,9.6719E-22,9.6047E-22,9.4813E-22,9.7896E-22,1.0029E-21,7.6966E-22,7.7054E-22,8.2178E-22,8.7781E-22,9.0639E-22,8.8357E-22,7.7390E-22,6.4207E-22,4.0814E-22,3.2223E-22,2.6952E-22,2.2684E-22,1.8060E-22,1.5272E-22,9.2037E-23,7.7620E-25,1.0375E-25,1.0223E-25,6.1657E-26,4.0638E-27,9.1831E-30,1.0108E-30 "SOAALK","ppmV",3.2485E-06,3.2510E-06,3.2507E-06,3.2445E-06,3.2315E-06,3.2162E-06,3.1902E-06,3.1578E-06,3.1169E-06,3.0587E-06,2.9881E-06,2.9126E-06,2.8218E-06,2.7395E-06,2.6437E-06,2.4979E-06,2.3501E-06,2.2050E-06,2.0673E-06,1.8713E-06,1.6997E-06,1.5557E-06,1.4515E-06,1.3524E-06,1.2545E-06,1.1470E-06,1.0319E-06,9.1039E-07,7.9308E-07,6.6609E-07,5.2391E-07,4.0596E-07,3.1617E-07,2.5752E-07,2.1149E-07,1.5376E-07,9.0797E-08,3.5893E-08,1.0286E-08,2.1390E-09,6.0387E-10,2.3553E-10,6.0793E-11,1.0405E-11 "H2NO3PIJ","ppmV",3.2085E-20,3.2167E-20,3.3367E-20,3.5356E-20,3.6278E-20,3.6739E-20,3.6532E-20,3.5382E-20,3.3620E-20,3.1241E-20,2.8783E-20,2.5754E-20,2.2872E-20,1.9190E-20,1.5902E-20,1.3470E-20,1.1578E-20,8.7571E-21,7.3576E-21,6.7552E-21,6.5149E-21,5.7835E-21,5.2187E-21,4.9782E-21,4.8314E-21,5.2882E-21,5.7073E-21,5.7736E-21,5.9748E-21,5.9627E-21,5.4498E-21,4.7011E-21,4.2830E-21,4.4086E-21,5.1929E-21,6.1301E-21,7.5898E-21,8.4409E-21,6.5663E-21,3.5674E-21,1.2490E-21,7.1590E-22,4.4913E-22,2.7078E-22 "H2NO3PK","ppmV",2.3783E-20,2.3959E-20,2.4669E-20,2.5768E-20,2.6314E-20,2.6573E-20,2.6461E-20,2.5782E-20,2.4850E-20,2.3331E-20,2.1736E-20,1.9730E-20,1.7571E-20,1.4570E-20,1.1548E-20,9.2888E-21,7.4035E-21,5.6651E-21,4.3709E-21,3.6553E-21,3.4004E-21,3.2268E-21,3.1889E-21,3.2227E-21,3.2363E-21,3.2231E-21,3.2093E-21,3.2239E-21,3.2009E-21,3.0642E-21,2.7624E-21,2.3632E-21,2.1843E-21,2.2264E-21,2.3837E-21,2.5634E-21,2.5901E-21,2.3135E-21,1.7901E-21,1.1888E-21,7.2863E-22,5.3573E-22,3.1047E-22,1.6107E-22 "VLVPO1","ppmV",2.7979E-07,2.7483E-07,2.6915E-07,2.6252E-07,2.5502E-07,2.4658E-07,2.3721E-07,2.2782E-07,2.1730E-07,2.0513E-07,1.9214E-07,1.7814E-07,1.6468E-07,1.5093E-07,1.3699E-07,1.2631E-07,1.2021E-07,1.1660E-07,1.0955E-07,9.8664E-08,8.4395E-08,6.9145E-08,5.5702E-08,4.3163E-08,3.2061E-08,2.3014E-08,1.5643E-08,9.9065E-09,5.7380E-09,3.0535E-09,1.4855E-09,6.5880E-10,2.6763E-10,1.0107E-10,3.7722E-11,1.5880E-11,8.6149E-12,5.5356E-12,3.6821E-12,2.4094E-12,1.5705E-12,1.2179E-12,1.2867E-12,2.1646E-12 "VSVPO1","ppmV",1.2377E-07,1.2543E-07,1.2542E-07,1.2446E-07,1.2285E-07,1.2065E-07,1.1776E-07,1.1437E-07,1.1079E-07,1.0611E-07,1.0150E-07,9.6578E-08,9.1192E-08,8.6724E-08,8.4056E-08,8.4267E-08,8.7740E-08,9.2508E-08,9.5159E-08,9.2815E-08,8.3854E-08,7.2385E-08,6.1580E-08,5.2975E-08,4.4693E-08,3.6191E-08,2.8082E-08,2.0271E-08,1.3863E-08,8.9640E-09,5.2924E-09,2.8249E-09,1.3761E-09,6.4045E-10,3.0434E-10,1.6437E-10,1.0638E-10,7.6558E-11,5.5945E-11,4.0176E-11,2.8675E-11,2.3857E-11,2.5872E-11,4.2347E-11 "VSVPO2","ppmV",5.6318E-08,5.9282E-08,6.0678E-08,6.0965E-08,6.0499E-08,5.9482E-08,5.7559E-08,5.4682E-08,5.1149E-08,4.5994E-08,4.1452E-08,3.6675E-08,3.1590E-08,2.7419E-08,2.4550E-08,2.2394E-08,2.2153E-08,2.1803E-08,2.3904E-08,2.4766E-08,2.5754E-08,2.7547E-08,2.8778E-08,3.0370E-08,3.1666E-08,3.1802E-08,3.0414E-08,2.6363E-08,2.1281E-08,1.6901E-08,1.2915E-08,8.7756E-09,5.4956E-09,3.4744E-09,2.3218E-09,1.6847E-09,1.3256E-09,1.0729E-09,8.3807E-10,6.1816E-10,4.3898E-10,3.3489E-10,3.1085E-10,4.3301E-10 "VSVPO3","ppmV",4.7026E-08,4.9912E-08,5.1276E-08,5.1428E-08,5.0766E-08,4.9631E-08,4.7569E-08,4.4525E-08,4.0761E-08,3.5204E-08,3.0574E-08,2.5833E-08,2.0786E-08,1.6443E-08,1.2960E-08,9.9142E-09,7.3894E-09,5.3721E-09,4.0473E-09,2.9878E-09,2.3987E-09,2.1081E-09,1.7874E-09,1.6737E-09,1.6820E-09,1.7715E-09,1.9416E-09,2.2027E-09,2.4031E-09,2.5067E-09,2.5169E-09,2.3840E-09,2.1293E-09,1.8625E-09,1.6496E-09,1.4422E-09,1.2444E-09,1.0438E-09,7.4579E-10,4.5738E-10,2.7055E-10,1.6475E-10,8.9739E-11,5.1403E-11 "VIVPO1","ppmV",1.1963E-07,1.2704E-07,1.3053E-07,1.3085E-07,1.2905E-07,1.2605E-07,1.2065E-07,1.1270E-07,1.0287E-07,8.8368E-08,7.6374E-08,6.4152E-08,5.1177E-08,4.0036E-08,3.1106E-08,2.3269E-08,1.6572E-08,1.1226E-08,7.6511E-09,4.9434E-09,3.5600E-09,2.8068E-09,1.7667E-09,1.3721E-09,1.2731E-09,1.2284E-09,1.2197E-09,1.2324E-09,1.2682E-09,1.3025E-09,1.2731E-09,1.2061E-09,1.1000E-09,1.0705E-09,1.0100E-09,7.9744E-10,6.0648E-10,4.4704E-10,2.3659E-10,8.6483E-11,3.0041E-11,1.1732E-11,2.6334E-12,2.8056E-13 "VLVOO1","ppmV",1.5099E-07,1.4628E-07,1.4163E-07,1.3661E-07,1.3117E-07,1.2516E-07,1.1866E-07,1.1172E-07,1.0423E-07,9.6325E-08,8.8304E-08,8.0126E-08,7.1984E-08,6.4015E-08,5.6530E-08,5.0645E-08,4.5857E-08,4.1465E-08,3.7108E-08,3.2236E-08,2.6039E-08,1.9786E-08,1.4131E-08,9.4984E-09,5.9774E-09,3.6061E-09,2.1047E-09,1.1753E-09,6.1950E-10,3.0018E-10,1.3250E-10,5.3416E-11,1.9526E-11,6.4512E-12,1.9576E-12,6.1570E-13,2.5705E-13,1.3929E-13,8.3964E-14,4.9916E-14,2.8554E-14,1.5063E-14,1.4710E-14,3.9122E-14 "VLVOO2","ppmV",1.6765E-07,1.6572E-07,1.6296E-07,1.5968E-07,1.5599E-07,1.5172E-07,1.4695E-07,1.4217E-07,1.3661E-07,1.3019E-07,1.2328E-07,1.1565E-07,1.0839E-07,1.0040E-07,9.1683E-08,8.4794E-08,8.0217E-08,7.6795E-08,7.1618E-08,6.3902E-08,5.3827E-08,4.3369E-08,3.3994E-08,2.5536E-08,1.8352E-08,1.2854E-08,8.5936E-09,5.4339E-09,3.1885E-09,1.7193E-09,8.4582E-10,3.7951E-10,1.5492E-10,5.8329E-11,2.1043E-11,8.2597E-12,4.2134E-12,2.6410E-12,1.7607E-12,1.1662E-12,7.7359E-13,6.0504E-13,6.4328E-13,1.0892E-12 "VSVOO1","ppmV",8.1910E-09,8.4163E-09,8.4998E-09,8.5460E-09,8.5926E-09,8.6175E-09,8.6297E-09,8.6418E-09,8.5952E-09,8.4954E-09,8.3486E-09,8.1112E-09,7.8156E-09,7.3389E-09,6.8100E-09,6.3786E-09,6.0770E-09,5.8154E-09,5.4363E-09,4.8870E-09,4.1575E-09,3.4011E-09,2.6446E-09,1.9901E-09,1.4502E-09,1.0301E-09,7.1646E-10,4.8474E-10,3.1825E-10,2.0311E-10,1.2380E-10,7.0704E-11,3.6923E-11,1.7674E-11,7.7862E-12,3.3626E-12,1.6511E-12,9.7102E-13,6.4473E-13,4.5443E-13,3.2738E-13,2.6909E-13,2.9309E-13,4.8983E-13 "VSVOO2","ppmV",2.5194E-08,2.6300E-08,2.6818E-08,2.7192E-08,2.7564E-08,2.7869E-08,2.8150E-08,2.8424E-08,2.8498E-08,2.8354E-08,2.7981E-08,2.7236E-08,2.6179E-08,2.4449E-08,2.2567E-08,2.1041E-08,1.9912E-08,1.8889E-08,1.7499E-08,1.5571E-08,1.3152E-08,1.0694E-08,8.2192E-09,6.1509E-09,4.5160E-09,3.2680E-09,2.3543E-09,1.6624E-09,1.1509E-09,7.9057E-10,5.4422E-10,3.7228E-10,2.5535E-10,1.7402E-10,1.1482E-10,7.2823E-11,4.6588E-11,3.2260E-11,2.3604E-11,1.8327E-11,1.4254E-11,1.1501E-11,1.1504E-11,1.6944E-11 "VSVOO3","ppmV",4.1852E-08,4.3798E-08,4.4734E-08,4.5428E-08,4.6124E-08,4.6718E-08,4.7294E-08,4.7891E-08,4.8133E-08,4.7996E-08,4.7455E-08,4.6300E-08,4.4651E-08,4.1818E-08,3.8656E-08,3.6127E-08,3.4257E-08,3.2578E-08,3.0200E-08,2.6823E-08,2.2658E-08,1.8412E-08,1.4138E-08,1.0549E-08,7.6704E-09,5.4970E-09,3.8995E-09,2.7197E-09,1.8962E-09,1.3371E-09,9.6919E-10,7.2372E-10,5.4547E-10,4.1146E-10,3.0232E-10,2.0964E-10,1.2652E-10,6.8588E-11,3.8898E-11,2.8188E-11,2.5192E-11,2.0058E-11,1.2607E-11,8.1269E-12 "PCVOC","ppmV",4.9946E-15,5.2969E-15,5.4040E-15,5.4640E-15,5.5057E-15,5.5381E-15,5.5665E-15,5.5936E-15,5.6214E-15,5.6512E-15,5.6848E-15,5.7254E-15,5.7755E-15,5.8503E-15,5.9705E-15,6.1711E-15,6.5730E-15,7.1142E-15,7.8469E-15,8.6181E-15,9.0351E-15,9.2301E-15,9.7245E-15,1.0186E-14,1.0774E-14,1.1254E-14,1.1707E-14,1.2165E-14,1.2921E-14,1.3195E-14,1.3978E-14,1.4324E-14,1.3949E-14,1.2827E-14,1.0874E-14,9.3388E-15,8.1852E-15,7.9448E-15,7.4914E-15,6.2073E-15,3.6507E-15,1.7962E-15,7.1873E-16,3.3282E-16 "FORM_PRIMARY","ppmV",2.4866E-10,2.6562E-10,2.7174E-10,2.7528E-10,2.7817E-10,2.8045E-10,2.8273E-10,2.8505E-10,2.8749E-10,2.9082E-10,2.9534E-10,3.0411E-10,3.2009E-10,3.3215E-10,3.2953E-10,2.9282E-10,2.8207E-10,2.5505E-10,2.1480E-10,1.9252E-10,1.6400E-10,1.6855E-10,1.4999E-10,1.2737E-10,1.0439E-10,8.1020E-11,6.6699E-11,6.4743E-11,6.6882E-11,7.0193E-11,7.2995E-11,7.2957E-11,6.2005E-11,4.5135E-11,3.1148E-11,2.4718E-11,1.4835E-11,2.9677E-12,4.5044E-13,4.2866E-14,1.7629E-15,5.9265E-17,1.7638E-18,8.2987E-20 "ALD2_PRIMARY","ppmV",2.3889E-08,2.4845E-08,2.5177E-08,2.5361E-08,2.5495E-08,2.5598E-08,2.5697E-08,2.5795E-08,2.5905E-08,2.6065E-08,2.6243E-08,2.6461E-08,2.6810E-08,2.7396E-08,2.8169E-08,2.8620E-08,2.9726E-08,3.0131E-08,3.0419E-08,2.8377E-08,2.6562E-08,2.4390E-08,2.2070E-08,1.8856E-08,1.5958E-08,1.3920E-08,1.2809E-08,1.2216E-08,1.1982E-08,1.1784E-08,1.0913E-08,9.4115E-09,7.3031E-09,6.5586E-09,6.9171E-09,5.5545E-09,2.9355E-09,7.9857E-10,1.5199E-10,1.4048E-11,1.0939E-12,1.4310E-13,2.7202E-14,2.6224E-15 "BUTADIENE13","ppmV",2.4146E-12,2.4171E-12,2.4185E-12,2.4195E-12,2.4202E-12,2.4208E-12,2.4192E-12,2.4180E-12,2.4134E-12,2.4107E-12,2.4026E-12,2.3916E-12,2.3833E-12,2.3732E-12,2.3615E-12,2.3294E-12,2.2720E-12,2.2280E-12,2.2730E-12,2.4708E-12,2.1932E-12,1.6427E-12,1.2769E-12,1.1324E-12,1.0552E-12,8.2478E-13,5.4556E-13,3.7789E-13,2.7881E-13,2.0225E-13,8.4202E-14,2.8864E-14,2.0669E-14,3.3859E-14,4.1584E-14,4.6181E-14,2.1242E-14,1.9426E-15,5.5818E-17,2.7612E-18,2.3625E-19,2.1061E-20,2.0105E-21,2.0210E-22 "ACROLEIN","ppmV",2.3625E-10,2.4186E-10,2.4397E-10,2.4521E-10,2.4621E-10,2.4703E-10,2.4765E-10,2.4850E-10,2.4924E-10,2.5033E-10,2.5206E-10,2.5577E-10,2.6309E-10,2.6529E-10,2.6345E-10,2.4912E-10,2.4030E-10,2.2834E-10,2.1107E-10,1.9726E-10,1.8180E-10,1.6177E-10,1.4854E-10,1.4131E-10,1.3313E-10,1.1685E-10,1.0005E-10,8.7087E-11,7.9169E-11,7.4437E-11,6.9651E-11,5.1556E-11,2.9326E-11,1.6979E-11,9.8428E-12,7.4427E-12,4.4848E-12,1.6250E-12,3.8215E-13,8.1570E-14,1.4770E-14,1.9203E-15,2.4224E-16,3.4762E-17 "ACRO_PRIMARY","ppmV",7.5691E-11,7.7501E-11,7.8186E-11,7.8585E-11,7.8910E-11,7.9176E-11,7.9373E-11,7.9647E-11,7.9880E-11,8.0227E-11,8.0759E-11,8.1938E-11,8.4279E-11,8.4998E-11,8.4438E-11,7.9845E-11,7.7495E-11,7.4123E-11,6.8713E-11,6.4334E-11,5.9108E-11,5.2728E-11,4.8745E-11,4.6641E-11,4.4117E-11,3.9042E-11,3.3633E-11,2.9182E-11,2.6348E-11,2.4689E-11,2.3466E-11,1.7945E-11,1.0150E-11,5.6797E-12,3.0601E-12,2.1037E-12,1.2081E-12,4.3292E-13,1.0924E-13,2.6131E-14,4.9997E-15,6.7805E-16,8.2838E-17,1.1280E-17 "TOLU","ppmV",4.0565E-20,4.0321E-20,4.0296E-20,4.0257E-20,4.0066E-20,3.9764E-20,3.9520E-20,3.9410E-20,3.9229E-20,3.9024E-20,3.9025E-20,3.9097E-20,3.9287E-20,3.9455E-20,3.9398E-20,3.9092E-20,3.8448E-20,3.7512E-20,3.6360E-20,3.4964E-20,3.3878E-20,3.3178E-20,3.0942E-20,3.0073E-20,3.0272E-20,3.0736E-20,3.1127E-20,3.1015E-20,3.0407E-20,2.9655E-20,2.8628E-20,2.7723E-20,2.6729E-20,2.5233E-20,2.2731E-20,1.8836E-20,1.3757E-20,7.1446E-21,2.4028E-21,2.9355E-22,3.1782E-23,8.5910E-24,2.7739E-24,1.3406E-24 "HG","ppmV",2.9380E-08,2.9381E-08,2.9382E-08,2.9384E-08,2.9389E-08,2.9397E-08,2.9416E-08,2.9445E-08,2.9486E-08,2.9548E-08,2.9644E-08,2.9777E-08,2.9942E-08,3.0155E-08,3.0421E-08,3.0738E-08,3.1147E-08,3.1620E-08,3.2240E-08,3.2994E-08,3.3876E-08,3.4750E-08,3.5682E-08,3.6700E-08,3.7728E-08,3.8640E-08,3.9575E-08,4.0678E-08,4.1760E-08,4.2797E-08,4.3927E-08,4.5187E-08,4.6577E-08,4.8015E-08,4.9436E-08,5.0760E-08,5.1676E-08,5.2118E-08,5.1876E-08,5.0860E-08,4.8409E-08,4.3917E-08,3.9423E-08,3.7333E-08 "HGIIGAS","ppmV",5.7755E-10,6.0781E-10,6.2412E-10,6.3808E-10,6.5524E-10,6.7665E-10,7.0593E-10,7.4421E-10,7.8214E-10,8.2703E-10,8.8914E-10,9.8141E-10,1.1195E-09,1.2773E-09,1.4443E-09,1.6113E-09,1.8033E-09,1.9836E-09,2.1924E-09,2.3942E-09,2.5645E-09,2.6727E-09,2.7745E-09,2.8838E-09,2.9610E-09,2.9683E-09,2.9927E-09,3.0491E-09,3.1336E-09,3.2609E-09,3.4305E-09,3.6720E-09,4.0146E-09,4.5440E-09,5.3457E-09,6.6317E-09,8.8579E-09,1.2454E-08,1.7648E-08,2.4273E-08,2.9829E-08,3.5549E-08,4.0993E-08,4.3694E-08 "SVAVB1","ppmV",1.3029E-07,1.3050E-07,1.3032E-07,1.3001E-07,1.2968E-07,1.2920E-07,1.2868E-07,1.2807E-07,1.2736E-07,1.2670E-07,1.2609E-07,1.2537E-07,1.2451E-07,1.2371E-07,1.2280E-07,1.2207E-07,1.2138E-07,1.2062E-07,1.1982E-07,1.1918E-07,1.1808E-07,1.1677E-07,1.1523E-07,1.1310E-07,1.1050E-07,1.0709E-07,1.0233E-07,9.7705E-08,9.2641E-08,8.6345E-08,7.9793E-08,7.2755E-08,6.5527E-08,5.7528E-08,4.9482E-08,4.1175E-08,3.2779E-08,2.6148E-08,2.2103E-08,2.0476E-08,2.0682E-08,2.3454E-08,2.8531E-08,3.9610E-08 "SVAVB2","ppmV",3.4319E-08,3.5833E-08,3.6530E-08,3.7040E-08,3.7484E-08,3.7821E-08,3.8076E-08,3.8240E-08,3.8308E-08,3.8296E-08,3.8202E-08,3.7990E-08,3.7854E-08,3.7716E-08,3.7917E-08,3.8734E-08,4.0132E-08,4.1804E-08,4.2674E-08,4.3346E-08,4.3391E-08,4.3329E-08,4.3561E-08,4.3621E-08,4.3547E-08,4.3371E-08,4.2818E-08,4.3096E-08,4.4121E-08,4.5065E-08,4.6300E-08,4.7170E-08,4.6803E-08,4.6616E-08,4.7126E-08,4.6878E-08,4.4086E-08,3.7485E-08,2.5395E-08,1.1787E-08,4.6930E-09,1.9048E-09,8.4260E-10,6.5236E-10 "SVAVB3","ppmV",2.1854E-07,2.2962E-07,2.3474E-07,2.3858E-07,2.4236E-07,2.4592E-07,2.4973E-07,2.5436E-07,2.5938E-07,2.6521E-07,2.7269E-07,2.8148E-07,2.9431E-07,3.1016E-07,3.3555E-07,3.7286E-07,4.3092E-07,4.8762E-07,5.3169E-07,5.6122E-07,5.7179E-07,5.6816E-07,5.6814E-07,5.6698E-07,5.6335E-07,5.5480E-07,5.4760E-07,5.4621E-07,5.5115E-07,5.5787E-07,5.5966E-07,5.4966E-07,5.2468E-07,4.9835E-07,4.7388E-07,4.4545E-07,4.0507E-07,3.5005E-07,2.5806E-07,1.4440E-07,7.9040E-08,4.5722E-08,2.7222E-08,2.2530E-08 "SVAVB4","ppmV",1.0490E-06,1.1053E-06,1.1341E-06,1.1575E-06,1.1825E-06,1.2110E-06,1.2467E-06,1.2969E-06,1.3478E-06,1.4032E-06,1.4723E-06,1.5528E-06,1.6686E-06,1.8124E-06,2.0158E-06,2.2680E-06,2.6725E-06,3.0471E-06,3.3690E-06,3.5800E-06,3.6760E-06,3.6456E-06,3.6460E-06,3.6654E-06,3.6564E-06,3.6306E-06,3.6350E-06,3.6555E-06,3.7072E-06,3.7656E-06,3.7943E-06,3.7669E-06,3.6626E-06,3.5718E-06,3.5379E-06,3.5496E-06,3.6372E-06,3.7616E-06,3.6852E-06,3.3100E-06,2.9018E-06,2.5943E-06,2.2930E-06,2.1385E-06 "BR","ppmV",1.1478E-08,1.1968E-08,1.2293E-08,1.2674E-08,1.3171E-08,1.3833E-08,1.4723E-08,1.5953E-08,1.6876E-08,1.7478E-08,1.6919E-08,1.8586E-08,1.8392E-08,2.0097E-08,2.2514E-08,2.3069E-08,2.1098E-08,1.9513E-08,2.0895E-08,2.3734E-08,2.0918E-08,1.5790E-08,1.2185E-08,8.0654E-09,7.8848E-09,8.1149E-09,8.4184E-09,8.6345E-09,8.5235E-09,8.3307E-09,8.2807E-09,8.3538E-09,8.4987E-09,8.7363E-09,8.8511E-09,1.0112E-08,1.5185E-08,2.1384E-08,1.4499E-08,8.1528E-09,9.6497E-09,1.1739E-08,1.3881E-08,1.2700E-08 "BRO","ppmV",2.5407E-07,2.6368E-07,2.6894E-07,2.7496E-07,2.8245E-07,2.9196E-07,3.0552E-07,3.2131E-07,3.3894E-07,3.6089E-07,3.7172E-07,3.9838E-07,4.0641E-07,4.3927E-07,4.7995E-07,4.8497E-07,4.5742E-07,4.4831E-07,4.6928E-07,4.7387E-07,3.8089E-07,2.6923E-07,1.9255E-07,1.3103E-07,1.1838E-07,1.1325E-07,1.0807E-07,1.0100E-07,9.0227E-08,7.8761E-08,6.9542E-08,6.2543E-08,5.5922E-08,4.9464E-08,4.4607E-08,4.7061E-08,6.6340E-08,8.4368E-08,7.1805E-08,5.8218E-08,7.8478E-08,1.5335E-07,2.6790E-07,3.2010E-07 "HOBR","ppmV",1.2220E-06,1.2951E-06,1.3369E-06,1.3748E-06,1.4227E-06,1.4738E-06,1.5405E-06,1.5904E-06,1.6389E-06,1.6942E-06,1.7547E-06,1.8343E-06,1.8856E-06,1.9963E-06,2.1031E-06,2.0687E-06,1.8759E-06,1.7151E-06,1.4969E-06,1.2505E-06,9.9240E-07,7.8971E-07,6.0047E-07,4.8381E-07,4.3580E-07,4.0595E-07,3.7392E-07,3.3868E-07,3.0339E-07,2.7081E-07,2.4070E-07,2.1496E-07,1.8559E-07,1.5170E-07,1.1985E-07,1.1408E-07,1.1914E-07,8.7714E-08,6.6123E-08,4.1623E-08,5.4214E-08,1.0835E-07,2.2615E-07,3.5184E-07 "HBR","ppmV",4.8215E-07,5.0798E-07,5.1859E-07,5.2524E-07,5.3103E-07,5.2843E-07,5.3152E-07,5.3761E-07,5.3417E-07,5.2674E-07,5.1406E-07,5.2127E-07,5.2347E-07,5.2256E-07,5.2048E-07,5.0918E-07,4.7032E-07,4.2463E-07,3.7504E-07,3.3522E-07,2.8712E-07,2.4098E-07,2.0575E-07,1.8335E-07,1.6100E-07,1.5286E-07,1.4470E-07,1.3446E-07,1.1751E-07,9.6825E-08,7.7252E-08,6.1540E-08,4.7832E-08,3.4903E-08,2.2505E-08,1.4458E-08,1.0771E-08,5.0703E-09,1.3374E-09,6.1884E-10,5.8719E-10,5.4747E-10,5.8129E-10,7.9238E-10 "BR2","ppmV",9.9668E-07,1.0024E-06,1.0054E-06,1.0083E-06,1.0116E-06,1.0164E-06,1.0205E-06,1.0228E-06,1.0281E-06,1.0428E-06,1.0621E-06,1.0822E-06,1.1023E-06,1.1403E-06,1.1506E-06,1.0809E-06,1.0035E-06,9.0534E-07,7.9354E-07,6.4817E-07,5.2336E-07,4.0697E-07,3.2542E-07,2.7142E-07,2.4808E-07,2.2738E-07,2.0240E-07,1.6931E-07,1.3649E-07,1.0484E-07,7.7666E-08,5.9076E-08,4.5695E-08,3.4877E-08,2.6780E-08,3.6717E-08,3.5344E-08,7.7983E-09,9.5030E-09,2.9752E-09,3.1030E-09,5.1234E-09,8.4385E-09,9.4968E-09 "BRNO3","ppmV",1.2903E-06,1.3584E-06,1.3890E-06,1.4097E-06,1.4201E-06,1.4234E-06,1.4219E-06,1.4033E-06,1.3751E-06,1.3218E-06,1.2617E-06,1.1887E-06,1.0911E-06,1.0194E-06,9.4639E-07,8.2472E-07,7.1454E-07,6.1774E-07,5.3463E-07,4.2705E-07,3.0603E-07,2.2100E-07,1.6789E-07,1.3589E-07,1.1805E-07,1.0594E-07,9.4701E-08,8.1266E-08,6.7652E-08,5.6991E-08,4.8315E-08,4.2587E-08,3.8867E-08,3.7182E-08,4.0776E-08,6.5425E-08,1.0179E-07,9.2488E-08,1.1087E-07,7.9716E-08,1.0196E-07,1.7121E-07,2.5086E-07,2.2447E-07 "BRNO2","ppmV",5.3970E-08,5.4718E-08,5.5312E-08,5.5670E-08,5.5487E-08,5.5167E-08,5.4646E-08,5.3459E-08,5.1785E-08,4.8268E-08,4.4499E-08,4.0909E-08,3.4936E-08,3.1491E-08,2.8316E-08,2.3965E-08,1.9710E-08,1.6279E-08,1.4149E-08,1.1731E-08,8.9693E-09,6.4931E-09,4.5945E-09,3.5558E-09,3.1591E-09,2.8933E-09,2.6053E-09,2.2602E-09,1.9014E-09,1.5551E-09,1.2462E-09,1.0635E-09,9.6643E-10,9.1919E-10,1.0294E-09,2.4457E-09,4.2013E-09,3.0482E-09,3.0856E-09,1.5471E-09,1.2916E-09,1.0202E-09,7.4643E-10,4.2938E-10 "FMBR","ppmV",1.5931E-08,1.6748E-08,1.7070E-08,1.7287E-08,1.7459E-08,1.7595E-08,1.7716E-08,1.7787E-08,1.7859E-08,1.7921E-08,1.7998E-08,1.8020E-08,1.7979E-08,1.8137E-08,1.8366E-08,1.8442E-08,1.8612E-08,1.8819E-08,1.8825E-08,1.8389E-08,1.7384E-08,1.6346E-08,1.5744E-08,1.5088E-08,1.4494E-08,1.3856E-08,1.2983E-08,1.2239E-08,1.1791E-08,1.1359E-08,1.0533E-08,9.4956E-09,8.3234E-09,7.1402E-09,5.9059E-09,4.4882E-09,2.8807E-09,1.3345E-09,5.4693E-10,1.5359E-10,4.4075E-11,1.4942E-11,2.9496E-12,5.0611E-13 "CH3BR","ppmV",8.1645E-20,8.1373E-20,8.1325E-20,8.1257E-20,8.1017E-20,8.0645E-20,8.0264E-20,7.9970E-20,7.9602E-20,7.9174E-20,7.8856E-20,7.8402E-20,7.8062E-20,7.7632E-20,7.7210E-20,7.6866E-20,7.6870E-20,7.7206E-20,7.7756E-20,7.8380E-20,7.9361E-20,8.0367E-20,8.1983E-20,8.3633E-20,8.4644E-20,8.5386E-20,8.5788E-20,8.6059E-20,8.6242E-20,8.6178E-20,8.5930E-20,8.5664E-20,8.5440E-20,8.5188E-20,8.4660E-20,8.3791E-20,8.2359E-20,7.9682E-20,7.5224E-20,6.9050E-20,6.2991E-20,5.6380E-20,5.0089E-20,4.7254E-20 "MB3","ppmV",1.8285E-06,1.8053E-06,1.7879E-06,1.7709E-06,1.7524E-06,1.7330E-06,1.7098E-06,1.6817E-06,1.6522E-06,1.6175E-06,1.5746E-06,1.5218E-06,1.4615E-06,1.3887E-06,1.3012E-06,1.1967E-06,1.0891E-06,9.8167E-07,8.7986E-07,7.9411E-07,7.2427E-07,6.7363E-07,6.3124E-07,5.9374E-07,5.6374E-07,5.4068E-07,5.1598E-07,4.8645E-07,4.5672E-07,4.2704E-07,3.9481E-07,3.6634E-07,3.3943E-07,3.1177E-07,2.8078E-07,2.4477E-07,1.9982E-07,1.4840E-07,9.7043E-08,5.5202E-08,3.0366E-08,1.3878E-08,5.7549E-09,3.3677E-09 "MB2","ppmV",1.0371E-06,1.0313E-06,1.0269E-06,1.0225E-06,1.0176E-06,1.0125E-06,1.0061E-06,9.9787E-07,9.8880E-07,9.7796E-07,9.6424E-07,9.4694E-07,9.2726E-07,9.0199E-07,8.7054E-07,8.3350E-07,7.9477E-07,7.5512E-07,7.1697E-07,6.8363E-07,6.5527E-07,6.3479E-07,6.1674E-07,6.0075E-07,5.8797E-07,5.7913E-07,5.7032E-07,5.5919E-07,5.4770E-07,5.3642E-07,5.2382E-07,5.1128E-07,4.9770E-07,4.8252E-07,4.6420E-07,4.4166E-07,4.1273E-07,3.7618E-07,3.3455E-07,2.8818E-07,2.4783E-07,2.0782E-07,1.7056E-07,1.5152E-07 "MB2C","ppmV",1.0351E-07,1.0256E-07,1.0180E-07,1.0104E-07,1.0023E-07,9.9370E-08,9.8348E-08,9.7080E-08,9.5739E-08,9.4173E-08,9.2240E-08,8.9822E-08,8.7075E-08,8.3772E-08,7.9810E-08,7.5159E-08,7.0279E-08,6.5354E-08,6.0628E-08,5.6655E-08,5.3346E-08,5.1003E-08,4.8978E-08,4.7234E-08,4.5889E-08,4.4933E-08,4.3937E-08,4.2731E-08,4.1501E-08,4.0252E-08,3.8867E-08,3.7576E-08,3.6284E-08,3.4838E-08,3.3124E-08,3.0957E-08,2.7964E-08,2.4074E-08,1.9555E-08,1.4801E-08,1.1001E-08,7.4877E-09,4.8950E-09,3.7578E-09 "MBC2","ppmV",1.0137E-07,1.0046E-07,9.9740E-08,9.9031E-08,9.8260E-08,9.7445E-08,9.6468E-08,9.5241E-08,9.3934E-08,9.2400E-08,9.0497E-08,8.8117E-08,8.5397E-08,8.2081E-08,7.8069E-08,7.3324E-08,6.8383E-08,6.3405E-08,5.8625E-08,5.4615E-08,5.1300E-08,4.8936E-08,4.6894E-08,4.5115E-08,4.3735E-08,4.2742E-08,4.1701E-08,4.0445E-08,3.9179E-08,3.7901E-08,3.6493E-08,3.5183E-08,3.3873E-08,3.2415E-08,3.0677E-08,2.8476E-08,2.5448E-08,2.1537E-08,1.7029E-08,1.2400E-08,8.8113E-09,5.5401E-09,3.3186E-09,2.4641E-09 "MBC","ppmV",8.4139E-08,8.3662E-08,8.3245E-08,8.2827E-08,8.2382E-08,8.1913E-08,8.1363E-08,8.0661E-08,7.9902E-08,7.9021E-08,7.7947E-08,7.6595E-08,7.5106E-08,7.3284E-08,7.1059E-08,6.8439E-08,6.5683E-08,6.2877E-08,6.0210E-08,5.7990E-08,5.6154E-08,5.4921E-08,5.3880E-08,5.2999E-08,5.2363E-08,5.1922E-08,5.1494E-08,5.0932E-08,5.0290E-08,4.9616E-08,4.8866E-08,4.8082E-08,4.7207E-08,4.6146E-08,4.4849E-08,4.3224E-08,4.1080E-08,3.8231E-08,3.4717E-08,3.0509E-08,2.6626E-08,2.2448E-08,1.8602E-08,1.6686E-08 "DMS","ppmV",6.4765E-05,5.7795E-05,5.4853E-05,5.2834E-05,5.0880E-05,4.9048E-05,4.7027E-05,4.4890E-05,4.2898E-05,4.0341E-05,3.7087E-05,3.2544E-05,2.5726E-05,1.9231E-05,1.4261E-05,1.0848E-05,8.4522E-06,6.3294E-06,4.7640E-06,3.6355E-06,3.0186E-06,2.6774E-06,2.3044E-06,2.1366E-06,2.0588E-06,2.0003E-06,1.9092E-06,1.7217E-06,1.5177E-06,1.3210E-06,1.1239E-06,1.0007E-06,8.9485E-07,7.6894E-07,6.0340E-07,4.4082E-07,2.6809E-07,9.6241E-08,2.0987E-08,7.2240E-10,1.3589E-11,1.9358E-12,5.6148E-13,4.4396E-14 "MSA","ppmV",7.1013E-06,7.4399E-06,7.5840E-06,7.6838E-06,7.7810E-06,7.8728E-06,7.9611E-06,8.0449E-06,8.1131E-06,8.1760E-06,8.2424E-06,8.3184E-06,8.3802E-06,8.2116E-06,7.7545E-06,7.1216E-06,6.4816E-06,5.7325E-06,5.0801E-06,4.5489E-06,4.0921E-06,3.8174E-06,3.5503E-06,3.4077E-06,3.3634E-06,3.3923E-06,3.4359E-06,3.5054E-06,3.5945E-06,3.6691E-06,3.7265E-06,3.7792E-06,3.8584E-06,3.9589E-06,4.0506E-06,4.1662E-06,4.2638E-06,4.3326E-06,4.4140E-06,4.4708E-06,4.3581E-06,4.0499E-06,3.7914E-06,3.6625E-06 "BRCL","ppmV",1.3958E-06,1.3990E-06,1.4020E-06,1.4065E-06,1.4107E-06,1.4028E-06,1.3933E-06,1.3967E-06,1.3978E-06,1.3857E-06,1.3529E-06,1.2995E-06,1.2070E-06,1.1016E-06,9.6509E-07,8.1410E-07,6.9555E-07,5.0950E-07,3.5587E-07,2.7398E-07,1.9931E-07,1.6131E-07,1.2298E-07,9.7191E-08,8.0537E-08,7.1197E-08,6.7547E-08,6.3948E-08,5.7722E-08,5.4424E-08,5.1729E-08,4.6343E-08,4.0239E-08,3.5189E-08,3.0618E-08,2.8892E-08,2.9081E-08,2.4197E-08,3.2102E-08,1.5057E-08,1.5763E-08,2.4752E-08,3.6955E-08,4.0972E-08 "I","ppmV",5.5721E-08,5.4713E-08,5.4534E-08,5.4466E-08,5.4411E-08,5.4353E-08,5.4781E-08,5.4794E-08,5.5070E-08,5.5246E-08,5.4327E-08,5.2533E-08,4.8122E-08,4.3976E-08,3.9860E-08,3.5877E-08,3.1829E-08,2.9315E-08,2.7154E-08,2.5449E-08,2.4403E-08,2.3284E-08,1.9944E-08,1.8057E-08,1.7712E-08,1.8636E-08,2.0090E-08,2.2141E-08,2.4953E-08,2.8361E-08,3.2665E-08,3.7875E-08,4.4436E-08,5.1866E-08,5.9079E-08,6.6516E-08,7.3136E-08,7.8185E-08,7.9523E-08,7.7095E-08,5.8828E-08,3.0115E-08,1.7712E-08,1.3311E-08 "IO","ppmV",2.2996E-07,2.2466E-07,2.2241E-07,2.2088E-07,2.1932E-07,2.1758E-07,2.1693E-07,2.1604E-07,2.1546E-07,2.1487E-07,2.0965E-07,2.0059E-07,1.8603E-07,1.7041E-07,1.5220E-07,1.3427E-07,1.1844E-07,1.0671E-07,9.7232E-08,8.8725E-08,8.2309E-08,7.6975E-08,6.6861E-08,6.0064E-08,5.7925E-08,5.8559E-08,5.9865E-08,6.1702E-08,6.3946E-08,6.6312E-08,6.9263E-08,7.2269E-08,7.5528E-08,7.8537E-08,8.1133E-08,8.4438E-08,8.9427E-08,9.4347E-08,9.6626E-08,9.3871E-08,8.8410E-08,8.5830E-08,8.3674E-08,8.3227E-08 "HI","ppmV",8.6587E-09,8.8676E-09,8.8991E-09,8.8789E-09,8.8333E-09,8.7650E-09,8.7197E-09,8.7150E-09,8.6153E-09,8.4720E-09,8.2594E-09,7.9187E-09,7.3918E-09,6.8963E-09,6.4492E-09,6.1986E-09,6.0856E-09,6.0304E-09,5.9574E-09,5.8535E-09,5.7641E-09,5.6758E-09,5.1037E-09,4.6861E-09,4.4739E-09,4.5082E-09,4.5769E-09,4.7178E-09,4.9392E-09,5.1048E-09,5.2511E-09,5.3737E-09,5.4278E-09,5.2252E-09,4.5987E-09,3.6371E-09,2.4438E-09,1.4314E-09,8.6173E-10,5.9851E-10,4.3269E-10,3.0457E-10,2.4551E-10,2.2767E-10 "I2","ppmV",1.2382E-08,1.0183E-08,9.0816E-09,8.3209E-09,7.7246E-09,7.2252E-09,6.7401E-09,6.2562E-09,5.8677E-09,5.3781E-09,4.7867E-09,3.9707E-09,2.7711E-09,1.8445E-09,1.2683E-09,8.4126E-10,5.6928E-10,3.7088E-10,2.5391E-10,1.8024E-10,1.5068E-10,1.3066E-10,6.4851E-11,4.9808E-11,4.7017E-11,4.6265E-11,4.5741E-11,4.4412E-11,4.3544E-11,4.1808E-11,4.0075E-11,4.0549E-11,4.3751E-11,4.7192E-11,4.6226E-11,4.5595E-11,5.2187E-11,6.7792E-11,9.5604E-11,1.0403E-10,5.4340E-11,4.9686E-12,4.1046E-13,1.2308E-13 "HOI","ppmV",1.7955E-06,1.7040E-06,1.6533E-06,1.6126E-06,1.5781E-06,1.5485E-06,1.5208E-06,1.4935E-06,1.4648E-06,1.4261E-06,1.3640E-06,1.2709E-06,1.1455E-06,1.0038E-06,8.5976E-07,7.3917E-07,6.3784E-07,5.7052E-07,5.1509E-07,4.6693E-07,4.3122E-07,3.9976E-07,3.4547E-07,3.0877E-07,2.9448E-07,2.9044E-07,2.8897E-07,2.8879E-07,2.9121E-07,2.9361E-07,2.9571E-07,2.9664E-07,2.9396E-07,2.8648E-07,2.7213E-07,2.5076E-07,2.1957E-07,1.8122E-07,1.4472E-07,1.1835E-07,1.0316E-07,9.7913E-08,1.0894E-07,1.2989E-07 "INO","ppmV",6.3781E-10,6.3976E-10,6.3953E-10,6.2690E-10,6.0726E-10,5.8174E-10,5.5519E-10,5.1465E-10,4.7867E-10,4.2037E-10,3.6019E-10,2.8327E-10,1.8982E-10,1.2238E-10,8.3091E-11,6.1151E-11,5.0441E-11,4.5502E-11,4.2038E-11,3.9360E-11,3.8064E-11,3.6566E-11,2.9652E-11,2.6750E-11,2.5749E-11,2.5718E-11,2.5955E-11,2.7009E-11,2.8987E-11,3.1884E-11,3.6282E-11,4.3011E-11,5.3995E-11,7.3370E-11,1.0765E-10,1.6819E-10,2.6704E-10,4.2067E-10,5.6604E-10,6.1649E-10,3.4084E-10,5.1069E-11,8.0829E-12,2.4986E-12 "INO2","ppmV",2.2374E-10,2.2932E-10,2.3576E-10,2.3790E-10,2.3806E-10,2.3543E-10,2.3385E-10,2.2163E-10,2.1409E-10,1.9569E-10,1.7921E-10,1.5836E-10,1.3019E-10,1.1097E-10,9.7400E-11,7.9772E-11,7.1109E-11,6.8232E-11,6.9292E-11,7.7258E-11,9.2647E-11,1.1446E-10,1.3692E-10,1.7845E-10,2.4478E-10,3.4159E-10,4.7748E-10,6.7110E-10,9.2926E-10,1.2736E-09,1.7446E-09,2.3670E-09,3.3112E-09,5.0668E-09,8.0516E-09,1.2319E-08,1.7044E-08,2.0660E-08,2.0399E-08,1.6255E-08,9.4280E-09,3.3769E-09,1.1451E-09,4.8865E-10 "INO3","ppmV",6.1263E-07,6.2900E-07,6.3265E-07,6.2489E-07,6.1112E-07,5.9396E-07,5.7029E-07,5.3919E-07,5.0119E-07,4.5424E-07,4.0680E-07,3.4827E-07,2.8338E-07,2.1488E-07,1.6390E-07,1.2678E-07,1.0367E-07,9.2702E-08,8.4508E-08,7.6955E-08,7.1033E-08,6.4962E-08,5.4789E-08,4.7620E-08,4.3082E-08,3.9425E-08,3.6087E-08,3.3399E-08,3.1394E-08,2.9906E-08,2.9519E-08,3.0807E-08,3.4516E-08,4.1368E-08,5.1428E-08,6.4916E-08,8.3174E-08,1.0312E-07,1.1400E-07,1.1249E-07,9.5378E-08,6.7758E-08,4.2913E-08,2.7119E-08 "OIO","ppmV",7.5679E-09,7.4519E-09,7.3588E-09,7.3494E-09,7.3899E-09,7.4693E-09,7.6726E-09,8.0686E-09,8.5856E-09,9.5415E-09,1.0196E-08,1.1002E-08,1.2151E-08,1.2785E-08,1.2293E-08,1.1249E-08,9.5958E-09,8.2559E-09,6.9337E-09,5.9557E-09,5.0721E-09,4.3734E-09,3.3042E-09,2.6815E-09,2.5203E-09,2.6042E-09,2.8369E-09,3.1481E-09,3.5926E-09,4.2079E-09,4.9655E-09,5.6732E-09,6.0355E-09,5.8495E-09,5.0976E-09,4.0403E-09,3.0303E-09,2.1562E-09,1.6099E-09,1.2341E-09,1.0283E-09,1.0469E-09,9.5817E-10,7.4951E-10 "I2O4","ppmV",1.9755E-11,1.7831E-11,1.6397E-11,1.6140E-11,1.6351E-11,1.6749E-11,1.7843E-11,1.9827E-11,2.2506E-11,2.8764E-11,3.3208E-11,3.8680E-11,4.8364E-11,5.7839E-11,5.6527E-11,5.0166E-11,3.9299E-11,3.0828E-11,2.2891E-11,1.8131E-11,1.4014E-11,1.0101E-11,5.1970E-12,3.0770E-12,2.1890E-12,1.9595E-12,2.0428E-12,2.2317E-12,2.5376E-12,3.0503E-12,3.9351E-12,4.6265E-12,4.6447E-12,3.8790E-12,2.6865E-12,1.6930E-12,9.6357E-13,4.4130E-13,2.0934E-13,1.0015E-13,5.1021E-14,3.1949E-14,1.9420E-14,8.8970E-15 "I2O2","ppmV",4.6038E-10,4.4320E-10,4.3766E-10,4.3672E-10,4.3843E-10,4.3825E-10,4.5090E-10,4.5374E-10,4.6581E-10,4.8449E-10,4.8991E-10,4.8730E-10,4.6403E-10,4.4478E-10,4.0279E-10,3.3442E-10,2.8948E-10,2.6305E-10,2.5573E-10,2.4381E-10,2.6204E-10,2.7360E-10,2.4194E-10,2.3720E-10,2.7175E-10,3.4033E-10,4.3359E-10,5.5568E-10,7.0558E-10,8.8059E-10,1.1013E-09,1.3500E-09,1.7431E-09,2.4264E-09,3.4573E-09,4.7858E-09,5.9652E-09,6.9093E-09,7.2406E-09,6.7253E-09,5.1060E-09,3.1852E-09,2.1444E-09,1.5258E-09 "I2O3","ppmV",8.0862E-09,7.8222E-09,7.4019E-09,7.1945E-09,7.0818E-09,6.9972E-09,7.0163E-09,7.1585E-09,7.3766E-09,7.9043E-09,8.1516E-09,8.3034E-09,8.3840E-09,8.0476E-09,7.0378E-09,5.9637E-09,4.6870E-09,3.7461E-09,2.7805E-09,2.1312E-09,1.6276E-09,1.1978E-09,6.5501E-10,3.8533E-10,2.8664E-10,2.4497E-10,2.3852E-10,2.3859E-10,2.4356E-10,2.6494E-10,3.0388E-10,3.3935E-10,3.4673E-10,3.0451E-10,2.4453E-10,2.1986E-10,1.8541E-10,1.3971E-10,1.2947E-10,1.0898E-10,7.7564E-11,5.1690E-11,3.9091E-11,2.4303E-11 "CH3I","ppmV",7.7237E-07,7.5475E-07,7.4159E-07,7.2881E-07,7.1516E-07,7.0119E-07,6.8485E-07,6.6621E-07,6.4750E-07,6.2595E-07,5.9987E-07,5.6823E-07,5.3265E-07,4.9235E-07,4.4751E-07,3.9632E-07,3.4531E-07,2.9689E-07,2.5357E-07,2.1846E-07,1.9169E-07,1.7276E-07,1.5703E-07,1.4406E-07,1.3401E-07,1.2594E-07,1.1749E-07,1.0689E-07,9.6309E-08,8.5878E-08,7.4601E-08,6.5401E-08,5.7147E-08,4.9289E-08,4.0600E-08,3.1378E-08,2.1640E-08,1.2598E-08,5.7507E-09,1.8744E-09,5.9446E-10,1.5232E-10,3.0436E-11,9.5487E-12 "ICL","ppmV",2.9915E-07,3.1320E-07,3.1814E-07,3.1708E-07,3.1312E-07,3.0949E-07,3.0531E-07,2.9882E-07,2.9220E-07,2.8282E-07,2.6643E-07,2.4476E-07,2.0247E-07,1.6541E-07,1.3748E-07,1.1342E-07,8.8409E-08,7.1976E-08,5.7821E-08,4.8311E-08,4.0186E-08,3.4509E-08,2.4829E-08,1.9981E-08,1.6920E-08,1.5284E-08,1.4495E-08,1.3921E-08,1.3506E-08,1.3223E-08,1.2857E-08,1.2096E-08,1.1321E-08,1.0790E-08,1.0370E-08,9.7375E-09,9.2098E-09,8.6824E-09,7.8413E-09,6.3884E-09,4.1894E-09,2.4151E-09,1.4073E-09,9.0763E-10 "IBR","ppmV",2.2746E-07,2.3459E-07,2.3760E-07,2.3978E-07,2.4165E-07,2.4240E-07,2.4128E-07,2.3973E-07,2.3622E-07,2.3303E-07,2.2705E-07,2.1607E-07,1.9792E-07,1.6492E-07,1.3455E-07,1.0955E-07,9.0057E-08,7.7060E-08,6.5648E-08,5.6192E-08,4.7992E-08,4.1523E-08,3.1671E-08,2.5481E-08,2.1970E-08,1.9875E-08,1.8618E-08,1.7495E-08,1.6696E-08,1.5907E-08,1.4954E-08,1.3761E-08,1.2729E-08,1.1888E-08,1.1232E-08,1.0433E-08,9.8406E-09,9.2648E-09,8.3202E-09,6.7846E-09,4.4714E-09,2.5860E-09,1.5619E-09,1.0461E-09 "MI2","ppmV",1.6940E-08,1.4240E-08,1.2687E-08,1.1498E-08,1.0426E-08,9.5480E-09,8.6463E-09,7.7189E-09,6.9374E-09,6.1871E-09,5.4565E-09,4.7275E-09,3.9523E-09,3.2110E-09,2.6029E-09,2.0279E-09,1.4769E-09,1.0552E-09,7.3436E-10,4.6418E-10,3.5483E-10,2.8225E-10,2.0660E-10,1.7607E-10,1.6565E-10,1.5777E-10,1.4585E-10,1.2075E-10,9.5783E-11,7.1341E-11,4.8476E-11,3.4307E-11,2.7517E-11,2.0424E-11,1.2930E-11,6.2969E-12,2.5170E-12,2.1117E-13,1.4089E-14,1.8773E-16,2.9747E-19,4.4512E-22,6.7018E-25,5.5357E-25 "MIB","ppmV",2.7923E-08,2.3909E-08,2.1523E-08,1.9582E-08,1.7779E-08,1.6263E-08,1.4739E-08,1.3221E-08,1.1907E-08,1.0605E-08,9.3224E-09,8.0149E-09,6.6848E-09,5.4243E-09,4.3556E-09,3.3352E-09,2.4186E-09,1.7173E-09,1.1823E-09,7.7115E-10,5.8511E-10,4.6503E-10,3.4607E-10,2.9583E-10,2.7659E-10,2.6128E-10,2.3980E-10,1.9967E-10,1.5850E-10,1.1985E-10,8.3506E-11,6.0594E-11,4.7808E-11,3.5552E-11,2.2620E-11,1.1410E-11,4.5985E-12,5.3052E-13,5.1769E-14,1.0517E-15,1.6775E-18,2.6419E-21,3.8536E-24,9.3197E-25 "MIC","ppmV",1.3780E-07,1.2357E-07,1.1427E-07,1.0615E-07,9.8261E-08,9.1331E-08,8.4212E-08,7.6917E-08,7.0397E-08,6.3767E-08,5.6922E-08,4.9779E-08,4.2387E-08,3.5251E-08,2.8861E-08,2.2478E-08,1.6628E-08,1.2061E-08,8.6387E-09,5.9638E-09,4.5882E-09,3.7114E-09,2.8833E-09,2.4742E-09,2.2987E-09,2.1457E-09,1.9556E-09,1.6511E-09,1.3336E-09,1.0305E-09,7.3888E-10,5.5793E-10,4.4130E-10,3.3393E-10,2.1440E-10,1.0730E-10,3.9590E-11,5.4368E-12,8.2913E-13,3.3170E-14,4.8952E-16,8.2191E-18,1.1781E-19,2.4306E-21 "ASO4J","ug m-3",1.1400E+00,1.1345E+00,1.1306E+00,1.1261E+00,1.1208E+00,1.1138E+00,1.1051E+00,1.0929E+00,1.0800E+00,1.0602E+00,1.0346E+00,1.0057E+00,9.7371E-01,9.3115E-01,8.8547E-01,8.3982E-01,8.0741E-01,7.7923E-01,7.4587E-01,7.0558E-01,6.6491E-01,6.1623E-01,5.5788E-01,5.1202E-01,4.7352E-01,4.3863E-01,4.0853E-01,3.7813E-01,3.5402E-01,3.3105E-01,3.0344E-01,2.7037E-01,2.3467E-01,2.0190E-01,1.7255E-01,1.4664E-01,1.2621E-01,1.0899E-01,9.3371E-02,7.8058E-02,6.4107E-02,5.2970E-02,4.1024E-02,2.9157E-02 "ASO4I","ug m-3",1.1540E-02,1.1569E-02,1.1561E-02,1.1534E-02,1.1494E-02,1.1434E-02,1.1327E-02,1.1310E-02,1.1273E-02,1.1242E-02,1.1268E-02,1.1164E-02,1.1078E-02,1.0911E-02,1.1022E-02,1.1611E-02,1.2991E-02,1.4330E-02,1.5019E-02,1.4958E-02,1.4467E-02,1.3417E-02,1.2409E-02,1.1360E-02,1.0264E-02,9.4434E-03,8.8685E-03,8.2124E-03,7.6909E-03,7.0874E-03,6.2965E-03,5.3971E-03,4.4977E-03,3.7413E-03,2.9645E-03,2.1338E-03,1.3647E-03,7.9197E-04,4.5496E-04,2.5681E-04,1.4847E-04,7.7903E-05,3.9408E-05,2.4234E-05 "ANH4J","ug m-3",5.2527E-02,5.3942E-02,5.4894E-02,5.5515E-02,5.6379E-02,5.7422E-02,5.8259E-02,5.9366E-02,5.9718E-02,5.9891E-02,5.9568E-02,6.0389E-02,6.3110E-02,6.6664E-02,7.1117E-02,7.5725E-02,8.0092E-02,8.4835E-02,8.5563E-02,8.4011E-02,8.2409E-02,7.8354E-02,7.3209E-02,6.8943E-02,6.5647E-02,6.3871E-02,6.4606E-02,6.6900E-02,7.0892E-02,7.3096E-02,7.1418E-02,6.6850E-02,6.1590E-02,5.7196E-02,5.3317E-02,4.9842E-02,4.7098E-02,4.3843E-02,3.8112E-02,3.2297E-02,2.5563E-02,2.0273E-02,1.5334E-02,1.0750E-02 "ANH4I","ug m-3",3.0537E-03,3.1350E-03,3.1705E-03,3.1913E-03,3.2189E-03,3.2507E-03,3.2817E-03,3.4073E-03,3.5061E-03,3.6067E-03,3.7849E-03,3.9464E-03,4.1915E-03,4.5622E-03,5.0925E-03,5.8816E-03,6.9296E-03,7.9070E-03,8.5945E-03,8.8581E-03,8.8901E-03,8.5770E-03,8.2563E-03,8.1235E-03,8.0820E-03,8.3461E-03,9.2362E-03,1.0481E-02,1.2147E-02,1.3332E-02,1.3398E-02,1.2761E-02,1.2028E-02,1.1392E-02,1.0358E-02,8.9399E-03,7.3451E-03,6.3050E-03,5.7702E-03,3.4941E-03,1.3874E-03,7.0166E-04,4.4789E-04,3.2221E-04 "ANO3J","ug m-3",9.2127E-02,9.1427E-02,9.0924E-02,9.0311E-02,8.9358E-02,8.8206E-02,8.6366E-02,8.4666E-02,8.2393E-02,7.9438E-02,7.4335E-02,6.8227E-02,6.1094E-02,5.4481E-02,4.7047E-02,3.9400E-02,3.3083E-02,2.7578E-02,2.3790E-02,2.3383E-02,2.5992E-02,2.8999E-02,3.3017E-02,3.8196E-02,4.3197E-02,4.9758E-02,5.9712E-02,7.2536E-02,8.9119E-02,1.0512E-01,1.0887E-01,1.0554E-01,9.9796E-02,9.5476E-02,9.1815E-02,8.8811E-02,8.8814E-02,8.9213E-02,9.0059E-02,8.8240E-02,8.0283E-02,6.9061E-02,5.4266E-02,4.4530E-02 "ANO3I","ug m-3",3.7016E-03,3.6855E-03,3.6767E-03,3.6661E-03,3.6497E-03,3.6295E-03,3.6019E-03,3.5652E-03,3.5201E-03,3.4536E-03,3.3225E-03,3.1720E-03,3.0256E-03,2.8690E-03,2.7360E-03,2.6382E-03,2.5464E-03,2.5055E-03,2.5834E-03,2.8791E-03,3.5444E-03,4.1007E-03,4.5594E-03,5.2596E-03,6.3031E-03,7.9080E-03,1.0326E-02,1.3579E-02,1.8407E-02,2.2911E-02,2.4076E-02,2.3663E-02,2.3367E-02,2.4070E-02,2.5109E-02,2.6142E-02,2.7892E-02,3.1838E-02,3.8233E-02,3.9006E-02,3.1011E-02,2.1966E-02,1.2575E-02,6.7518E-03 "AISO1J","ug m-3",2.4807E-05,2.6307E-05,2.7186E-05,2.8031E-05,2.8999E-05,3.0539E-05,3.3038E-05,3.7644E-05,4.2350E-05,4.7056E-05,5.3103E-05,5.9161E-05,7.1113E-05,8.9341E-05,1.1480E-04,1.4498E-04,2.1142E-04,2.7468E-04,2.6871E-04,2.5722E-04,2.2419E-04,1.6975E-04,1.6686E-04,1.7638E-04,1.8477E-04,1.9804E-04,2.3201E-04,2.7552E-04,3.2976E-04,3.7963E-04,4.3761E-04,5.1701E-04,5.9356E-04,6.5641E-04,6.9152E-04,6.7831E-04,6.2601E-04,4.9566E-04,2.8986E-04,9.3788E-05,2.1540E-05,4.6759E-06,9.7645E-07,2.6472E-07 "AISO2J","ug m-3",2.7735E-06,2.8824E-06,2.9397E-06,2.9870E-06,3.0355E-06,3.0862E-06,3.1516E-06,3.2433E-06,3.3455E-06,3.4840E-06,3.6868E-06,4.0515E-06,5.0755E-06,5.9292E-06,6.3930E-06,6.7161E-06,7.2868E-06,7.7444E-06,7.9829E-06,7.9798E-06,7.6182E-06,6.8488E-06,6.6000E-06,6.9785E-06,7.4876E-06,8.3408E-06,9.6345E-06,1.1115E-05,1.3238E-05,1.5694E-05,1.8420E-05,2.0214E-05,2.0340E-05,1.9937E-05,1.9428E-05,1.8165E-05,1.5158E-05,1.0711E-05,5.9592E-06,1.6024E-06,2.1317E-07,2.0124E-08,1.5542E-09,1.0246E-10 "ASQTJ","ug m-3",2.6128E-05,2.7530E-05,2.8320E-05,2.9034E-05,2.9861E-05,3.0796E-05,3.2074E-05,3.4471E-05,3.7387E-05,4.1116E-05,4.6521E-05,5.2183E-05,6.1746E-05,7.5556E-05,9.6087E-05,1.1384E-04,1.6802E-04,2.1875E-04,2.1366E-04,1.8518E-04,1.4895E-04,1.0711E-04,9.4043E-05,9.2978E-05,9.5346E-05,1.0078E-04,1.1561E-04,1.3265E-04,1.5229E-04,1.6884E-04,1.8504E-04,2.0072E-04,2.0834E-04,2.1341E-04,2.1338E-04,2.0128E-04,1.6808E-04,1.1644E-04,5.7453E-05,1.3574E-05,1.8233E-06,1.8261E-07,1.7655E-08,2.4865E-09 "AORGCJ","ug m-3",2.4249E-03,2.4243E-03,2.4212E-03,2.4167E-03,2.4120E-03,2.4128E-03,2.4198E-03,2.4326E-03,2.4449E-03,2.4410E-03,2.4336E-03,2.4353E-03,2.4654E-03,2.4893E-03,2.5217E-03,2.5735E-03,2.6592E-03,2.7368E-03,2.7537E-03,2.7326E-03,2.6462E-03,2.5139E-03,2.3927E-03,2.3015E-03,2.2185E-03,2.1276E-03,2.0611E-03,1.9743E-03,1.9040E-03,1.8160E-03,1.7175E-03,1.6173E-03,1.5029E-03,1.4055E-03,1.3303E-03,1.2498E-03,1.1653E-03,1.0912E-03,9.6289E-04,7.7487E-04,6.1262E-04,4.7406E-04,3.4718E-04,2.4161E-04 "AECJ","ug m-3",2.2227E-02,2.2219E-02,2.2187E-02,2.2145E-02,2.2103E-02,2.2123E-02,2.2218E-02,2.2482E-02,2.2726E-02,2.2679E-02,2.2487E-02,2.2298E-02,2.2179E-02,2.1826E-02,2.1805E-02,2.2318E-02,2.3462E-02,2.4453E-02,2.4830E-02,2.4228E-02,2.2894E-02,2.0716E-02,1.9120E-02,1.7904E-02,1.6727E-02,1.5719E-02,1.5237E-02,1.4723E-02,1.4208E-02,1.3438E-02,1.2485E-02,1.1481E-02,1.0212E-02,8.7569E-03,7.3104E-03,6.0124E-03,4.9158E-03,3.8789E-03,3.0435E-03,2.3700E-03,1.8423E-03,1.4882E-03,1.1283E-03,7.8577E-04 "AECI","ug m-3",5.8658E-04,5.8808E-04,5.8765E-04,5.8615E-04,5.8393E-04,5.8100E-04,5.7717E-04,5.8312E-04,5.9022E-04,5.9571E-04,5.9857E-04,5.9560E-04,5.9375E-04,5.8449E-04,5.8230E-04,6.0564E-04,6.5393E-04,7.0184E-04,7.0960E-04,6.8754E-04,6.3713E-04,5.6592E-04,5.4479E-04,5.3976E-04,5.3600E-04,5.4886E-04,5.6783E-04,5.6042E-04,5.4205E-04,4.9774E-04,4.4792E-04,4.0221E-04,3.5250E-04,3.0525E-04,2.5219E-04,1.8666E-04,1.1047E-04,4.7820E-05,1.4363E-05,2.6765E-06,6.8060E-07,3.4764E-07,1.4804E-07,5.1935E-08 "AOTHRJ","ug m-3",2.1105E-01,2.1096E-01,2.1065E-01,2.1025E-01,2.0991E-01,2.0986E-01,2.1014E-01,2.1193E-01,2.1416E-01,2.1535E-01,2.1674E-01,2.1792E-01,2.2049E-01,2.2432E-01,2.3623E-01,2.5390E-01,2.9131E-01,3.2758E-01,3.6492E-01,3.8803E-01,3.9972E-01,3.9604E-01,3.9146E-01,3.9129E-01,3.8650E-01,3.6686E-01,3.4273E-01,3.1343E-01,2.8825E-01,2.7370E-01,2.5671E-01,2.2878E-01,1.9433E-01,1.5952E-01,1.2626E-01,9.6715E-02,7.1291E-02,5.3094E-02,4.1169E-02,3.1177E-02,2.3349E-02,1.9153E-02,1.4340E-02,9.6238E-03 "AOTHRI","ug m-3",2.5676E-03,2.5754E-03,2.5751E-03,2.5716E-03,2.5658E-03,2.5578E-03,2.5474E-03,2.5364E-03,2.5253E-03,2.5103E-03,2.4986E-03,2.4907E-03,2.4896E-03,2.4833E-03,2.4765E-03,2.4806E-03,2.4933E-03,2.5096E-03,2.4412E-03,2.3201E-03,2.1740E-03,2.0188E-03,1.9132E-03,1.8161E-03,1.7008E-03,1.6109E-03,1.5273E-03,1.4243E-03,1.3286E-03,1.2131E-03,1.0843E-03,9.5682E-04,8.1781E-04,6.8917E-04,5.4894E-04,3.7643E-04,2.0392E-04,8.6298E-05,2.9220E-05,6.7064E-06,2.3882E-06,1.2297E-06,5.6054E-07,2.0023E-07 "AFEJ","ug m-3",1.5979E-02,1.5972E-02,1.5948E-02,1.5917E-02,1.5889E-02,1.5880E-02,1.5892E-02,1.6014E-02,1.6165E-02,1.6240E-02,1.6329E-02,1.6400E-02,1.6564E-02,1.6813E-02,1.7662E-02,1.8944E-02,2.1686E-02,2.4294E-02,2.6876E-02,2.8360E-02,2.8976E-02,2.8535E-02,2.8023E-02,2.7868E-02,2.7422E-02,2.5948E-02,2.4193E-02,2.2084E-02,2.0283E-02,1.9236E-02,1.8016E-02,1.6039E-02,1.3601E-02,1.1139E-02,8.7929E-03,6.7136E-03,4.9311E-03,3.6582E-03,2.8273E-03,2.1321E-03,1.5929E-03,1.3093E-03,9.8088E-04,6.5763E-04 "AALJ","ug m-3",2.5544E-02,2.5533E-02,2.5495E-02,2.5446E-02,2.5403E-02,2.5394E-02,2.5420E-02,2.5627E-02,2.5886E-02,2.6022E-02,2.6187E-02,2.6324E-02,2.6619E-02,2.7069E-02,2.8496E-02,3.0619E-02,3.5153E-02,3.9512E-02,4.3904E-02,4.6542E-02,4.7770E-02,4.7191E-02,4.6482E-02,4.6327E-02,4.5666E-02,4.3257E-02,4.0338E-02,3.6800E-02,3.3768E-02,3.2021E-02,3.0002E-02,2.6699E-02,2.2637E-02,1.8536E-02,1.4628E-02,1.1161E-02,8.1794E-03,6.0572E-03,4.6780E-03,3.5286E-03,2.6335E-03,2.1655E-03,1.6215E-03,1.0858E-03 "ASIJ","ug m-3",7.8117E-02,7.8080E-02,7.7968E-02,7.7827E-02,7.7714E-02,7.7722E-02,7.7864E-02,7.8606E-02,7.9526E-02,8.0076E-02,8.0738E-02,8.1338E-02,8.2494E-02,8.4181E-02,8.9010E-02,9.5995E-02,1.1062E-01,1.2489E-01,1.3981E-01,1.4925E-01,1.5426E-01,1.5327E-01,1.5191E-01,1.5225E-01,1.5068E-01,1.4315E-01,1.3372E-01,1.2211E-01,1.1210E-01,1.0642E-01,9.9849E-02,8.8941E-02,7.5473E-02,6.1847E-02,4.8828E-02,3.7265E-02,2.7283E-02,2.0203E-02,1.5624E-02,1.1805E-02,8.8105E-03,7.2488E-03,5.4294E-03,3.6346E-03 "ATIJ","ug m-3",1.3263E-03,1.3256E-03,1.3237E-03,1.3212E-03,1.3191E-03,1.3187E-03,1.3203E-03,1.3312E-03,1.3447E-03,1.3519E-03,1.3603E-03,1.3677E-03,1.3830E-03,1.4059E-03,1.4785E-03,1.5869E-03,1.8177E-03,2.0385E-03,2.2585E-03,2.3877E-03,2.4449E-03,2.4109E-03,2.3702E-03,2.3571E-03,2.3194E-03,2.1951E-03,2.0472E-03,1.8704E-03,1.7191E-03,1.6300E-03,1.5257E-03,1.3572E-03,1.1503E-03,9.4191E-04,7.4338E-04,5.6746E-04,4.1702E-04,3.0942E-04,2.3910E-04,1.8046E-04,1.3497E-04,1.1094E-04,8.3168E-05,5.5805E-05 "ACAJ","ug m-3",5.0411E-02,4.9597E-02,4.9151E-02,4.8783E-02,4.8422E-02,4.8117E-02,4.7812E-02,4.7751E-02,4.7749E-02,4.7480E-02,4.7125E-02,4.6594E-02,4.6135E-02,4.5617E-02,4.6269E-02,4.7974E-02,5.2973E-02,5.7796E-02,6.2896E-02,6.5841E-02,6.7095E-02,6.6030E-02,6.4833E-02,6.4535E-02,6.3601E-02,6.0294E-02,5.6280E-02,5.1395E-02,4.7191E-02,4.4764E-02,4.1956E-02,3.7366E-02,3.1714E-02,2.6000E-02,2.0547E-02,1.5710E-02,1.1537E-02,8.5568E-03,6.6109E-03,4.9919E-03,3.7285E-03,3.0638E-03,2.2949E-03,1.5383E-03 "AMGJ","ug m-3",6.0151E-02,5.7663E-02,5.6412E-02,5.5447E-02,5.4469E-02,5.3517E-02,5.2386E-02,5.1284E-02,5.0157E-02,4.8681E-02,4.6870E-02,4.4605E-02,4.1791E-02,3.8215E-02,3.4526E-02,3.1361E-02,2.9136E-02,2.6948E-02,2.5196E-02,2.3456E-02,2.1905E-02,2.0305E-02,1.8713E-02,1.7832E-02,1.7128E-02,1.6061E-02,1.4933E-02,1.3617E-02,1.2512E-02,1.1846E-02,1.1087E-02,9.8926E-03,8.4460E-03,6.9925E-03,5.5993E-03,4.3538E-03,3.2673E-03,2.4689E-03,1.9287E-03,1.4832E-03,1.1224E-03,9.1348E-04,6.8544E-04,4.6419E-04 "AKJ","ug m-3",3.6545E-02,3.5766E-02,3.5352E-02,3.5021E-02,3.4693E-02,3.4411E-02,3.4122E-02,3.3994E-02,3.3893E-02,3.3544E-02,3.3040E-02,3.2391E-02,3.1710E-02,3.0818E-02,3.0449E-02,3.0754E-02,3.2810E-02,3.4720E-02,3.6604E-02,3.7372E-02,3.7202E-02,3.5861E-02,3.4577E-02,3.3980E-02,3.3187E-02,3.1339E-02,2.9255E-02,2.6740E-02,2.4558E-02,2.3222E-02,2.1689E-02,1.9365E-02,1.6479E-02,1.3546E-02,1.0728E-02,8.2488E-03,6.0944E-03,4.5092E-03,3.4514E-03,2.5945E-03,1.9361E-03,1.5880E-03,1.1896E-03,7.9898E-04 "AMNJ","ug m-3",5.1979E-04,5.1955E-04,5.1878E-04,5.1780E-04,5.1698E-04,5.1686E-04,5.1752E-04,5.2191E-04,5.2735E-04,5.3036E-04,5.3397E-04,5.3715E-04,5.4350E-04,5.5294E-04,5.8228E-04,6.2587E-04,7.1811E-04,8.0611E-04,8.9438E-04,9.4625E-04,9.6945E-04,9.5691E-04,9.4184E-04,9.3834E-04,9.2468E-04,8.7575E-04,8.1676E-04,7.4528E-04,6.8402E-04,6.4871E-04,6.0781E-04,5.4111E-04,4.5882E-04,3.7570E-04,2.9649E-04,2.2629E-04,1.6597E-04,1.2302E-04,9.5039E-05,7.1647E-05,5.3489E-05,4.4011E-05,3.2979E-05,2.2097E-05 "ACORS","ug m-3",2.9742E-02,3.0241E-02,3.0325E-02,3.0328E-02,3.0372E-02,3.0497E-02,3.0683E-02,3.0924E-02,3.1141E-02,3.1041E-02,3.0716E-02,3.0411E-02,3.0217E-02,3.0357E-02,3.1330E-02,3.3064E-02,3.6588E-02,3.9897E-02,4.1433E-02,4.0205E-02,3.7331E-02,3.4089E-02,3.1898E-02,3.0318E-02,2.8929E-02,2.7833E-02,2.6692E-02,2.5289E-02,2.3596E-02,2.1507E-02,1.9653E-02,1.8026E-02,1.5994E-02,1.3751E-02,1.1450E-02,9.1668E-03,6.8115E-03,4.3265E-03,2.2852E-03,1.0374E-03,5.1025E-04,2.8287E-04,1.4736E-04,7.6343E-05 "ASOIL","ug m-3",2.2121E+00,2.2526E+00,2.2607E+00,2.2620E+00,2.2638E+00,2.2673E+00,2.2730E+00,2.2920E+00,2.3062E+00,2.3076E+00,2.3140E+00,2.3082E+00,2.3246E+00,2.3903E+00,2.5637E+00,2.8006E+00,3.2890E+00,3.7546E+00,4.1886E+00,4.4611E+00,4.5801E+00,4.5610E+00,4.5635E+00,4.5905E+00,4.4972E+00,4.2427E+00,3.9481E+00,3.6303E+00,3.3645E+00,3.1749E+00,2.9084E+00,2.5068E+00,2.0593E+00,1.6240E+00,1.2185E+00,8.6058E-01,5.4563E-01,3.2192E-01,1.8448E-01,9.0455E-02,4.3959E-02,2.5672E-02,1.4226E-02,7.3112E-03 "NUMATKN","m-3",1.8779E+08,1.9110E+08,1.9197E+08,1.9196E+08,1.9135E+08,1.9032E+08,1.8848E+08,1.8691E+08,1.8487E+08,1.8199E+08,1.7869E+08,1.7431E+08,1.7000E+08,1.6747E+08,1.7116E+08,1.8691E+08,2.2240E+08,2.7030E+08,3.2364E+08,3.9021E+08,4.6405E+08,5.3533E+08,5.9280E+08,6.5289E+08,7.2529E+08,8.2535E+08,9.8397E+08,1.2031E+09,1.4927E+09,2.0458E+09,2.9857E+09,4.2117E+09,6.0728E+09,9.0066E+09,1.1720E+10,1.3586E+10,1.4600E+10,1.3973E+10,1.0992E+10,7.3066E+09,4.0014E+09,1.7374E+09,8.8871E+08,5.1333E+08 "NUMACC","m-3",4.3419E+08,4.1682E+08,4.0827E+08,4.0177E+08,3.9529E+08,3.8890E+08,3.8140E+08,3.7390E+08,3.6611E+08,3.5607E+08,3.4372E+08,3.2855E+08,3.1019E+08,2.8671E+08,2.6238E+08,2.4230E+08,2.2832E+08,2.1468E+08,2.0500E+08,1.9697E+08,1.9093E+08,1.8563E+08,1.8049E+08,1.8000E+08,1.8126E+08,1.8409E+08,1.8972E+08,1.9866E+08,2.0903E+08,2.2136E+08,2.3594E+08,2.5092E+08,2.6993E+08,2.9837E+08,3.3807E+08,3.8717E+08,4.6551E+08,5.5276E+08,5.6249E+08,4.8035E+08,3.0679E+08,1.6344E+08,9.3697E+07,5.5389E+07 "NUMCOR","m-3",2.7650E+06,2.6454E+06,2.5885E+06,2.5461E+06,2.5058E+06,2.4667E+06,2.4216E+06,2.3751E+06,2.3241E+06,2.2553E+06,2.1655E+06,2.0467E+06,1.8924E+06,1.7040E+06,1.5102E+06,1.3372E+06,1.1917E+06,1.0495E+06,9.3357E+05,8.2937E+05,7.4869E+05,6.7851E+05,6.1585E+05,5.8068E+05,5.5357E+05,5.1821E+05,4.8132E+05,4.3832E+05,4.0271E+05,3.8075E+05,3.5537E+05,3.1612E+05,2.6903E+05,2.2232E+05,1.7689E+05,1.3553E+05,9.8246E+04,6.9423E+04,4.8779E+04,3.2163E+04,2.0862E+04,1.4557E+04,9.5369E+03,5.8384E+03 "SRFATKN","m2 m-3",9.3980E-07,9.4561E-07,9.4647E-07,9.4474E-07,9.4111E-07,9.3586E-07,9.2638E-07,9.2316E-07,9.1722E-07,9.0758E-07,8.9556E-07,8.7454E-07,8.5538E-07,8.3869E-07,8.4456E-07,8.9596E-07,1.0034E-06,1.1196E-06,1.2313E-06,1.3155E-06,1.3870E-06,1.4110E-06,1.4210E-06,1.4424E-06,1.4676E-06,1.5388E-06,1.6987E-06,1.9178E-06,2.1911E-06,2.5078E-06,2.7574E-06,2.9912E-06,3.3032E-06,3.7507E-06,4.2074E-06,4.7587E-06,5.4648E-06,6.1276E-06,6.1492E-06,5.2757E-06,3.4462E-06,1.7785E-06,8.5293E-07,3.7783E-07 "SRFACC","m2 m-3",2.5558E-05,2.4919E-05,2.4595E-05,2.4336E-05,2.4075E-05,2.3814E-05,2.3506E-05,2.3216E-05,2.2917E-05,2.2482E-05,2.1926E-05,2.1317E-05,2.0693E-05,1.9836E-05,1.8926E-05,1.8239E-05,1.7998E-05,1.7618E-05,1.7161E-05,1.6570E-05,1.5879E-05,1.4954E-05,1.3904E-05,1.3281E-05,1.2755E-05,1.2204E-05,1.1762E-05,1.1327E-05,1.0990E-05,1.0773E-05,1.0398E-05,9.7542E-06,9.0093E-06,8.3468E-06,7.8027E-06,7.3661E-06,7.3009E-06,7.4783E-06,7.4185E-06,6.5367E-06,4.7550E-06,3.2309E-06,2.1181E-06,1.3749E-06 "SRFCOR","m2 m-3",3.0588E-05,2.9230E-05,2.8538E-05,2.8007E-05,2.7495E-05,2.6998E-05,2.6428E-05,2.5828E-05,2.5163E-05,2.4260E-05,2.3085E-05,2.1550E-05,1.9615E-05,1.7454E-05,1.5366E-05,1.3545E-05,1.2069E-05,1.0622E-05,9.4515E-06,8.3919E-06,7.5698E-06,6.8499E-06,6.2248E-06,5.8606E-06,5.5562E-06,5.1745E-06,4.7814E-06,4.3484E-06,3.9912E-06,3.7445E-06,3.4498E-06,3.0268E-06,2.5446E-06,2.0722E-06,1.6209E-06,1.2128E-06,8.4326E-07,5.5704E-07,3.5509E-07,2.0287E-07,1.1321E-07,6.8454E-08,3.9522E-08,2.1772E-08 "AORGH2OJ","ug m-3",9.9996E-31,9.9996E-31,9.9996E-31,9.9996E-31,9.9996E-31,9.9996E-31,9.9996E-31,9.9996E-31,9.9996E-31,9.9996E-31,9.9996E-31,9.9996E-31,9.9996E-31,9.9996E-31,9.9996E-31,9.9996E-31,9.9996E-31,9.9996E-31,9.9996E-31,9.9996E-31,9.9996E-31,9.9996E-31,9.9996E-31,9.9996E-31,9.9996E-31,9.9996E-31,9.9996E-31,9.9996E-31,9.9996E-31,9.9996E-31,9.9996E-31,9.9996E-31,9.9996E-31,9.9996E-31,9.9996E-31,9.9996E-31,9.9996E-31,9.9996E-31,9.9996E-31,9.9996E-31,9.9996E-31,9.9996E-31,9.9996E-31,9.9996E-31 "AH2OJ","ug m-3",5.8146E+00,5.5387E+00,5.5568E+00,5.6558E+00,5.7913E+00,5.9752E+00,6.1860E+00,6.4220E+00,6.7069E+00,6.8971E+00,6.9912E+00,6.9246E+00,6.7130E+00,6.3263E+00,5.6663E+00,4.7565E+00,3.5605E+00,2.5398E+00,1.6493E+00,1.0837E+00,7.1325E-01,5.2692E-01,4.2644E-01,3.6755E-01,3.2960E-01,3.1190E-01,2.8222E-01,2.6752E-01,2.4666E-01,2.2713E-01,2.0617E-01,1.8751E-01,1.7020E-01,1.5126E-01,1.3364E-01,1.1586E-01,9.7396E-02,7.5854E-02,5.2143E-02,3.6277E-02,2.6897E-02,2.1546E-02,1.6108E-02,9.4433E-03 "AH2OI","ug m-3",3.3695E-02,3.3715E-02,3.4887E-02,3.6404E-02,3.8179E-02,4.0407E-02,4.2735E-02,4.5365E-02,4.8375E-02,5.1664E-02,5.3576E-02,5.6575E-02,6.0013E-02,6.1833E-02,6.0594E-02,5.5870E-02,4.5209E-02,3.5503E-02,2.6035E-02,2.0167E-02,1.5666E-02,1.2007E-02,1.1394E-02,1.0950E-02,1.1723E-02,1.3479E-02,1.3533E-02,1.5167E-02,1.5204E-02,1.5321E-02,1.5346E-02,1.5135E-02,1.4644E-02,1.3629E-02,1.1858E-02,9.5794E-03,7.1348E-03,5.1334E-03,3.2919E-03,1.2092E-03,1.6039E-04,4.6026E-05,2.9149E-05,2.1413E-05 "AH3OPJ","ug m-3",1.6410E-02,1.7173E-02,1.7624E-02,1.7907E-02,1.8155E-02,1.8180E-02,1.8240E-02,1.7899E-02,1.7741E-02,1.7391E-02,1.7215E-02,1.6994E-02,1.7334E-02,1.7769E-02,1.7410E-02,1.5293E-02,1.3395E-02,1.3507E-02,1.2715E-02,1.2324E-02,1.1333E-02,1.0578E-02,9.4931E-03,8.3045E-03,8.4375E-03,7.9177E-03,7.4043E-03,6.9970E-03,7.0276E-03,6.9980E-03,6.5684E-03,5.8909E-03,5.6016E-03,5.8859E-03,6.4865E-03,7.0731E-03,8.5188E-03,1.0876E-02,1.5325E-02,1.9954E-02,2.1804E-02,1.9114E-02,1.4304E-02,1.1648E-02 "AH3OPI","ug m-3",1.5297E-04,1.6107E-04,1.6459E-04,1.6656E-04,1.6778E-04,1.6866E-04,1.6829E-04,1.6630E-04,1.6396E-04,1.6126E-04,1.6101E-04,1.6423E-04,1.7711E-04,1.8708E-04,1.9610E-04,1.9897E-04,2.0423E-04,2.6149E-04,2.7104E-04,2.6510E-04,2.6110E-04,2.4180E-04,2.1752E-04,1.7730E-04,1.5317E-04,1.5149E-04,1.4874E-04,1.3956E-04,1.3654E-04,1.5028E-04,1.5634E-04,1.3511E-04,1.3268E-04,1.5571E-04,1.9763E-04,2.3640E-04,3.0520E-04,3.8110E-04,5.5694E-04,4.2716E-04,1.5025E-04,6.5672E-05,5.0125E-05,4.2938E-05 "ANAJ","ug m-3",4.5129E-01,4.3046E-01,4.2006E-01,4.1207E-01,4.0397E-01,3.9602E-01,3.8653E-01,3.7692E-01,3.6695E-01,3.5427E-01,3.3878E-01,3.1968E-01,2.9554E-01,2.6470E-01,2.3103E-01,2.0057E-01,1.7245E-01,1.4486E-01,1.2117E-01,1.0063E-01,8.4970E-02,7.2679E-02,6.0513E-02,5.3208E-02,4.8475E-02,4.4404E-02,4.0942E-02,3.7260E-02,3.4268E-02,3.2309E-02,3.0180E-02,2.7120E-02,2.3491E-02,1.9919E-02,1.6423E-02,1.3239E-02,1.0392E-02,8.1269E-03,6.4751E-03,5.1142E-03,3.9599E-03,3.1811E-03,2.3954E-03,1.6496E-03 "ANAI","ug m-3",5.0569E-05,5.0684E-05,5.0646E-05,5.0558E-05,5.0450E-05,5.0319E-05,5.0197E-05,5.0829E-05,5.1614E-05,5.2533E-05,5.3501E-05,5.4302E-05,5.5438E-05,5.6274E-05,5.8607E-05,6.3388E-05,7.2380E-05,8.0786E-05,8.2950E-05,8.0317E-05,7.4190E-05,6.5528E-05,6.0532E-05,5.7045E-05,5.3265E-05,5.1500E-05,5.0967E-05,4.8513E-05,4.6115E-05,4.2325E-05,3.7762E-05,3.3226E-05,2.8487E-05,2.4088E-05,1.9413E-05,1.3891E-05,7.9032E-06,3.2889E-06,9.8228E-07,1.6924E-07,3.3719E-08,1.4089E-08,5.5308E-09,1.5043E-09 "ACLJ","ug m-3",2.5792E-01,2.2761E-01,2.1372E-01,2.0388E-01,1.9437E-01,1.8630E-01,1.7724E-01,1.6856E-01,1.6019E-01,1.5027E-01,1.3989E-01,1.2840E-01,1.1653E-01,1.0353E-01,8.7865E-02,7.1830E-02,5.4952E-02,3.8303E-02,2.4045E-02,1.3506E-02,8.1689E-03,5.0422E-03,4.4207E-03,4.6473E-03,5.0738E-03,6.4637E-03,7.8566E-03,9.4913E-03,1.1372E-02,1.3066E-02,1.4753E-02,1.5282E-02,1.5023E-02,1.3855E-02,1.2367E-02,1.0411E-02,7.9966E-03,5.3579E-03,2.3698E-03,9.3134E-04,5.3029E-04,2.6166E-04,1.3108E-04,5.3204E-05 "ACLI","ug m-3",5.4078E-04,5.2262E-04,5.1637E-04,5.1265E-04,5.0554E-04,5.0390E-04,5.0398E-04,5.0609E-04,5.1099E-04,5.1854E-04,5.2640E-04,5.3574E-04,5.6126E-04,5.6610E-04,5.1973E-04,4.6799E-04,4.0128E-04,3.3212E-04,2.8151E-04,2.4122E-04,2.3929E-04,2.6392E-04,2.9596E-04,4.0041E-04,4.8412E-04,6.8159E-04,8.9460E-04,1.2034E-03,1.6871E-03,2.2119E-03,2.7051E-03,3.0274E-03,3.2226E-03,3.0142E-03,2.6748E-03,2.3175E-03,1.8321E-03,1.3546E-03,7.3170E-04,3.9126E-04,2.5257E-04,9.6777E-05,3.5089E-05,1.4164E-05 "ASEACAT","ug m-3",1.1178E+01,1.0579E+01,1.0266E+01,1.0025E+01,9.7922E+00,9.5674E+00,9.3151E+00,9.0432E+00,8.7446E+00,8.3493E+00,7.8422E+00,7.1912E+00,6.3802E+00,5.5015E+00,4.6454E+00,3.8592E+00,3.1122E+00,2.3874E+00,1.7918E+00,1.3110E+00,9.7762E-01,7.4035E-01,5.3605E-01,4.1291E-01,3.4534E-01,3.0379E-01,2.7430E-01,2.4701E-01,2.2403E-01,2.0422E-01,1.8424E-01,1.6446E-01,1.4458E-01,1.2489E-01,1.0369E-01,8.1763E-02,5.9677E-02,3.9091E-02,2.2806E-02,1.2243E-02,6.5465E-03,3.3486E-03,1.7429E-03,9.4637E-04 "ACLK","ug m-3",1.6847E+01,1.5949E+01,1.5481E+01,1.5121E+01,1.4774E+01,1.4439E+01,1.4062E+01,1.3657E+01,1.3210E+01,1.2617E+01,1.1854E+01,1.0870E+01,9.6419E+00,8.3076E+00,7.0076E+00,5.8103E+00,4.6714E+00,3.5686E+00,2.6690E+00,1.9475E+00,1.4521E+00,1.1028E+00,8.0591E-01,6.2954E-01,5.3336E-01,4.7405E-01,4.3133E-01,3.8982E-01,3.5400E-01,3.2369E-01,2.9236E-01,2.5998E-01,2.2748E-01,1.9521E-01,1.6108E-01,1.2692E-01,9.3170E-02,6.2796E-02,3.9253E-02,2.3497E-02,1.3531E-02,6.7495E-03,3.3131E-03,1.7720E-03 "ASO4K","ug m-3",2.4427E+00,2.3180E+00,2.2523E+00,2.2015E+00,2.1525E+00,2.1050E+00,2.0517E+00,1.9946E+00,1.9317E+00,1.8480E+00,1.7405E+00,1.6017E+00,1.4292E+00,1.2439E+00,1.0673E+00,9.0813E-01,7.6525E-01,6.2745E-01,5.1478E-01,4.2051E-01,3.5289E-01,3.0042E-01,2.5526E-01,2.2837E-01,2.1030E-01,1.9329E-01,1.7755E-01,1.6128E-01,1.4810E-01,1.3800E-01,1.2553E-01,1.0930E-01,9.1655E-02,7.4564E-02,5.7851E-02,4.2585E-02,2.8664E-02,1.7687E-02,1.0159E-02,5.1365E-03,2.6029E-03,1.4205E-03,7.6315E-04,3.9921E-04 "ANH4K","ug m-3",6.2569E-02,6.3566E-02,6.3552E-02,6.3247E-02,6.2752E-02,6.2009E-02,6.0996E-02,5.9742E-02,5.8303E-02,5.6596E-02,5.5167E-02,5.2372E-02,4.9469E-02,4.6554E-02,4.5764E-02,4.8429E-02,5.8313E-02,6.2668E-02,6.6757E-02,6.7191E-02,6.4829E-02,6.1758E-02,6.0911E-02,5.9427E-02,5.5818E-02,5.0611E-02,4.4838E-02,3.7595E-02,3.0837E-02,2.5189E-02,2.0779E-02,1.6923E-02,1.3329E-02,1.0189E-02,7.6707E-03,5.5275E-03,3.8330E-03,2.5622E-03,1.6078E-03,7.5972E-04,3.4875E-04,1.9306E-04,9.9301E-05,5.0712E-05 "ANO3K","ug m-3",7.4030E-01,7.5115E-01,7.5201E-01,7.5031E-01,7.4804E-01,7.4406E-01,7.3815E-01,7.3003E-01,7.2038E-01,7.0460E-01,6.8177E-01,6.5076E-01,6.1768E-01,5.8906E-01,5.7359E-01,5.7313E-01,5.8904E-01,5.9469E-01,5.8814E-01,5.6322E-01,5.2768E-01,4.8403E-01,4.4142E-01,4.0487E-01,3.6986E-01,3.3395E-01,2.9810E-01,2.6049E-01,2.2588E-01,1.9704E-01,1.7338E-01,1.5090E-01,1.2874E-01,1.0912E-01,9.2164E-02,7.5949E-02,6.0696E-02,4.5679E-02,3.0141E-02,1.5832E-02,7.2423E-03,3.5460E-03,1.7312E-03,9.0650E-04 "AH2OK","ug m-3",1.3539E+02,1.2783E+02,1.2718E+02,1.2884E+02,1.3173E+02,1.3584E+02,1.4081E+02,1.4701E+02,1.5406E+02,1.5784E+02,1.5855E+02,1.5257E+02,1.4086E+02,1.2731E+02,1.1215E+02,9.5917E+01,7.3516E+01,5.1213E+01,3.2801E+01,1.9991E+01,1.1739E+01,7.5609E+00,5.3021E+00,4.0575E+00,3.3448E+00,2.8913E+00,2.4912E+00,2.1655E+00,1.8185E+00,1.5511E+00,1.3394E+00,1.1493E+00,9.7289E-01,8.0732E-01,6.4624E-01,4.8625E-01,3.3433E-01,2.0344E-01,1.0554E-01,4.9481E-02,2.3548E-02,1.2698E-02,6.9079E-03,3.7437E-03 "AH3OPK","ug m-3",1.7902E-01,1.7202E-01,1.6903E-01,1.6710E-01,1.6539E-01,1.6389E-01,1.6187E-01,1.5981E-01,1.5667E-01,1.5109E-01,1.4112E-01,1.2561E-01,1.0501E-01,8.3145E-02,6.4703E-02,5.0975E-02,3.9470E-02,3.4290E-02,3.1149E-02,3.4255E-02,3.8194E-02,4.0053E-02,4.0404E-02,4.0109E-02,3.8300E-02,3.4200E-02,2.8573E-02,2.5301E-02,2.1875E-02,1.9200E-02,1.7042E-02,1.3225E-02,1.1045E-02,9.8359E-03,9.1256E-03,8.6081E-03,8.7970E-03,8.3157E-03,7.3906E-03,6.4834E-03,4.6042E-03,2.3773E-03,1.1078E-03,5.7422E-04 "AISO3J","ug m-3",2.0406E-02,2.0398E-02,2.0368E-02,2.0331E-02,2.0296E-02,2.0300E-02,2.0360E-02,2.0498E-02,2.0613E-02,2.0570E-02,2.0467E-02,2.0493E-02,2.1058E-02,2.1453E-02,2.1678E-02,2.2125E-02,2.2873E-02,2.3501E-02,2.3460E-02,2.2752E-02,2.2108E-02,2.0726E-02,1.9497E-02,1.8292E-02,1.7090E-02,1.6152E-02,1.5864E-02,1.5575E-02,1.5432E-02,1.4688E-02,1.3471E-02,1.2213E-02,1.0947E-02,9.8989E-03,8.9414E-03,7.9634E-03,7.0853E-03,6.2209E-03,5.3507E-03,4.4137E-03,3.5594E-03,2.8179E-03,2.1063E-03,1.4672E-03 "AOLGAJ","ug m-3",1.2037E-02,1.2033E-02,1.2016E-02,1.1997E-02,1.1981E-02,1.2004E-02,1.2079E-02,1.2243E-02,1.2395E-02,1.2412E-02,1.2381E-02,1.2377E-02,1.2408E-02,1.2395E-02,1.2661E-02,1.3203E-02,1.4319E-02,1.5209E-02,1.5747E-02,1.5501E-02,1.4740E-02,1.3379E-02,1.2310E-02,1.1451E-02,1.0593E-02,9.8251E-03,9.3395E-03,8.8636E-03,8.4332E-03,7.9329E-03,7.3582E-03,6.7588E-03,6.0869E-03,5.4134E-03,4.8013E-03,4.3151E-03,4.0168E-03,3.8497E-03,3.7644E-03,3.5892E-03,3.2057E-03,2.8420E-03,2.2795E-03,1.6225E-03 "AOLGBJ","ug m-3",3.9715E-02,3.9702E-02,3.9649E-02,3.9590E-02,3.9543E-02,3.9628E-02,3.9892E-02,4.0453E-02,4.0966E-02,4.1095E-02,4.1089E-02,4.1284E-02,4.2132E-02,4.2770E-02,4.4077E-02,4.6196E-02,4.9756E-02,5.3910E-02,5.4659E-02,5.3596E-02,4.9864E-02,4.3957E-02,4.0538E-02,3.8199E-02,3.5776E-02,3.3874E-02,3.2956E-02,3.1656E-02,3.0498E-02,2.8940E-02,2.7305E-02,2.5627E-02,2.3691E-02,2.1874E-02,2.0273E-02,1.8858E-02,1.7887E-02,1.7253E-02,1.6470E-02,1.4741E-02,1.2246E-02,9.8620E-03,7.4408E-03,5.2420E-03 "AGLYJ","ug m-3",2.5147E-02,2.5137E-02,2.5102E-02,2.5058E-02,2.5019E-02,2.5053E-02,2.5186E-02,2.5471E-02,2.5717E-02,2.5695E-02,2.5558E-02,2.5439E-02,2.5391E-02,2.5192E-02,2.5473E-02,2.6295E-02,2.8179E-02,2.9641E-02,3.0206E-02,2.9292E-02,2.7506E-02,2.4780E-02,2.2899E-02,2.1266E-02,1.9555E-02,1.8086E-02,1.7120E-02,1.6131E-02,1.5232E-02,1.4070E-02,1.2721E-02,1.1420E-02,1.0006E-02,8.4929E-03,7.0476E-03,5.7613E-03,4.6930E-03,3.6977E-03,2.8910E-03,2.2408E-03,1.7499E-03,1.4363E-03,1.1052E-03,7.7535E-04 "AMTNO3J","ug m-3",2.9640E-08,3.1570E-08,3.2507E-08,3.3265E-08,3.4040E-08,3.4843E-08,3.5761E-08,3.6807E-08,3.7979E-08,3.9297E-08,4.1015E-08,4.3421E-08,4.7119E-08,5.0518E-08,5.5578E-08,5.8300E-08,5.7013E-08,6.2705E-08,6.8128E-08,7.2482E-08,7.7645E-08,8.2396E-08,8.8521E-08,9.5009E-08,9.8777E-08,9.6277E-08,9.1443E-08,9.6321E-08,1.1522E-07,1.6391E-07,2.2637E-07,2.7018E-07,2.8232E-07,2.8255E-07,2.6254E-07,2.2454E-07,1.3322E-07,3.9097E-08,4.4735E-09,4.2002E-10,2.0630E-11,3.0253E-13,3.0045E-15,2.5475E-17 "AMTHYDJ","ug m-3",1.1708E-02,1.1704E-02,1.1687E-02,1.1668E-02,1.1649E-02,1.1663E-02,1.1720E-02,1.1863E-02,1.1995E-02,1.2000E-02,1.1946E-02,1.1931E-02,1.2043E-02,1.2016E-02,1.2134E-02,1.2533E-02,1.3518E-02,1.4931E-02,1.5352E-02,1.5000E-02,1.3648E-02,1.1695E-02,1.0631E-02,9.8903E-03,9.1813E-03,8.6113E-03,8.3122E-03,7.9474E-03,7.6126E-03,7.1152E-03,6.5628E-03,5.9929E-03,5.3529E-03,4.7239E-03,4.1346E-03,3.5708E-03,3.0584E-03,2.5703E-03,2.0800E-03,1.5630E-03,1.1517E-03,8.6061E-04,5.9839E-04,3.9633E-04 "APCSOJ","ug m-3",2.6166E-04,2.6158E-04,2.6118E-04,2.6064E-04,2.6014E-04,2.5972E-04,2.5948E-04,2.5986E-04,2.6032E-04,2.5899E-04,2.5732E-04,2.5720E-04,2.5904E-04,2.6144E-04,2.6918E-04,2.8303E-04,3.0988E-04,3.3492E-04,3.6801E-04,3.9848E-04,4.1712E-04,4.2507E-04,4.3445E-04,4.4980E-04,4.6656E-04,4.8347E-04,5.1683E-04,5.7400E-04,6.5524E-04,7.8254E-04,9.6924E-04,1.2108E-03,1.5185E-03,1.9131E-03,2.3983E-03,2.9586E-03,3.6011E-03,4.3251E-03,5.0390E-03,5.6763E-03,6.0707E-03,6.4605E-03,6.1667E-03,4.8579E-03 "ALVPO1I","ug m-3",2.0930E-03,2.1091E-03,2.1155E-03,2.1191E-03,2.1224E-03,2.1262E-03,2.1348E-03,2.2163E-03,2.3292E-03,2.4382E-03,2.5307E-03,2.6076E-03,2.6914E-03,2.7283E-03,2.7800E-03,2.9544E-03,3.2136E-03,3.4932E-03,3.5454E-03,3.4308E-03,3.1461E-03,2.7085E-03,2.5765E-03,2.6042E-03,2.6826E-03,2.8886E-03,3.1039E-03,3.0879E-03,2.9421E-03,2.6348E-03,2.3257E-03,2.0841E-03,1.8343E-03,1.5896E-03,1.3206E-03,9.8875E-04,5.9271E-04,2.5512E-04,7.3345E-05,1.2685E-05,2.9979E-06,1.5087E-06,7.2588E-07,3.8115E-07 "ASVPO1I","ug m-3",1.8972E-04,1.9485E-04,1.9764E-04,1.9980E-04,2.0180E-04,2.0389E-04,2.0607E-04,2.0976E-04,2.1493E-04,2.2227E-04,2.3636E-04,2.5905E-04,2.8881E-04,3.1102E-04,3.4151E-04,3.8106E-04,4.3953E-04,5.3228E-04,6.1361E-04,6.1515E-04,5.8945E-04,5.3557E-04,5.6084E-04,6.4307E-04,7.3146E-04,8.9320E-04,1.1272E-03,1.2229E-03,1.2315E-03,1.1531E-03,1.0797E-03,1.0167E-03,9.2871E-04,8.2925E-04,7.2335E-04,5.7404E-04,3.5786E-04,1.5357E-04,4.2092E-05,7.2295E-06,1.6839E-06,7.7653E-07,3.3339E-07,1.3261E-07 "ASVPO2I","ug m-3",4.1929E-06,4.4973E-06,4.6650E-06,4.7871E-06,4.8963E-06,5.0059E-06,5.0796E-06,5.1440E-06,5.1163E-06,4.9729E-06,4.9534E-06,5.0384E-06,5.2072E-06,5.5047E-06,6.3411E-06,7.3121E-06,9.5501E-06,1.0684E-05,1.5491E-05,1.6337E-05,1.8288E-05,2.4750E-05,3.2207E-05,4.0619E-05,5.0446E-05,7.1329E-05,1.1008E-04,1.4757E-04,1.7519E-04,1.8968E-04,2.1542E-04,2.4288E-04,2.5510E-04,2.4993E-04,2.5520E-04,2.3890E-04,1.6321E-04,7.1586E-05,1.9051E-05,3.5213E-06,8.5815E-07,3.7448E-07,1.6510E-07,6.7889E-08 "ALVPO1J","ug m-3",2.5953E-02,2.6108E-02,2.6196E-02,2.6286E-02,2.6398E-02,2.6709E-02,2.7272E-02,2.8268E-02,2.9242E-02,2.9605E-02,2.9672E-02,2.9830E-02,3.0118E-02,3.0207E-02,3.0994E-02,3.2558E-02,3.5121E-02,3.7693E-02,3.9526E-02,3.9833E-02,3.8827E-02,3.5801E-02,3.4174E-02,3.3442E-02,3.2545E-02,3.1567E-02,3.0909E-02,2.9801E-02,2.8436E-02,2.6745E-02,2.4879E-02,2.3022E-02,2.0524E-02,1.7472E-02,1.4516E-02,1.1882E-02,9.4615E-03,7.2110E-03,5.4183E-03,3.9984E-03,3.0127E-03,2.4544E-03,1.8596E-03,1.2817E-03 "ASVPO1J","ug m-3",1.6588E-03,1.7009E-03,1.7265E-03,1.7500E-03,1.7738E-03,1.8176E-03,1.8866E-03,1.9799E-03,2.0660E-03,2.1248E-03,2.1914E-03,2.2799E-03,2.3723E-03,2.4498E-03,2.6513E-03,2.9440E-03,3.4312E-03,3.9176E-03,4.6259E-03,4.8625E-03,4.8796E-03,4.6723E-03,4.9034E-03,5.4411E-03,5.9308E-03,6.4837E-03,7.2802E-03,7.6761E-03,7.7608E-03,7.4954E-03,7.2489E-03,7.1310E-03,6.6726E-03,5.8153E-03,4.9527E-03,4.2357E-03,3.5042E-03,2.6738E-03,1.9674E-03,1.4473E-03,1.0887E-03,8.8599E-04,6.7245E-04,4.6383E-04 "ASVPO2J","ug m-3",4.0507E-05,4.3500E-05,4.5366E-05,4.6669E-05,4.7695E-05,4.8701E-05,4.9195E-05,4.8439E-05,4.6802E-05,4.3695E-05,4.1966E-05,4.0907E-05,3.9714E-05,3.9292E-05,4.2740E-05,4.7998E-05,6.7732E-05,7.4292E-05,1.1169E-04,1.2632E-04,1.3842E-04,1.6814E-04,2.2781E-04,3.0885E-04,4.1296E-04,5.3338E-04,7.2579E-04,9.3203E-04,1.1002E-03,1.1860E-03,1.3223E-03,1.5347E-03,1.6332E-03,1.5279E-03,1.4035E-03,1.3203E-03,1.1720E-03,9.1097E-04,6.5093E-04,4.5626E-04,3.1167E-04,2.0838E-04,1.2723E-04,7.6999E-05 "ASVPO3J","ug m-3",3.0224E-06,3.2821E-06,3.4397E-06,3.5310E-06,3.5853E-06,3.6353E-06,3.6300E-06,3.4731E-06,3.1720E-06,2.6520E-06,2.3289E-06,2.0612E-06,1.7306E-06,1.3975E-06,1.1500E-06,9.5385E-07,8.3652E-07,7.4672E-07,7.0115E-07,6.4025E-07,6.0361E-07,7.0532E-07,1.1025E-06,1.4678E-06,1.7475E-06,2.1010E-06,3.1826E-06,5.7366E-06,9.6748E-06,1.4222E-05,1.8351E-05,2.2495E-05,2.7052E-05,3.1241E-05,3.7166E-05,3.9058E-05,3.6503E-05,2.8454E-05,1.8001E-05,9.8563E-06,5.8975E-06,3.2689E-06,1.0448E-06,2.3412E-07 "AIVPO1J","ug m-3",7.2519E-07,7.8571E-07,8.2093E-07,8.3918E-07,8.4779E-07,8.5450E-07,8.4787E-07,8.0406E-07,7.2421E-07,5.8982E-07,5.0619E-07,4.3526E-07,3.5031E-07,2.6746E-07,2.0490E-07,1.5453E-07,1.0864E-07,7.7918E-08,5.4519E-08,4.0379E-08,3.3333E-08,3.1769E-08,3.2628E-08,3.7192E-08,4.1751E-08,4.5226E-08,6.0378E-08,1.0058E-07,1.7188E-07,2.7698E-07,3.6433E-07,3.9888E-07,4.3665E-07,6.4701E-07,9.0558E-07,6.4170E-07,5.5804E-07,2.9841E-07,1.1896E-07,3.2555E-08,8.5481E-09,2.6756E-09,4.7250E-10,2.6324E-11 "ALVOO1I","ug m-3",2.4913E-03,2.4994E-03,2.4999E-03,2.4982E-03,2.4962E-03,2.4940E-03,2.4894E-03,2.5582E-03,2.6324E-03,2.7008E-03,2.7531E-03,2.7698E-03,2.7962E-03,2.7783E-03,2.7592E-03,2.8578E-03,3.0157E-03,3.1706E-03,3.1470E-03,3.0124E-03,2.7430E-03,2.3735E-03,2.1867E-03,2.0908E-03,2.0202E-03,2.0134E-03,2.0100E-03,1.9109E-03,1.7746E-03,1.5697E-03,1.3695E-03,1.2127E-03,1.0569E-03,9.0982E-04,7.5259E-04,5.5744E-04,3.3063E-04,1.4376E-04,4.2623E-05,7.5352E-06,1.7682E-06,8.7900E-07,4.1608E-07,2.0523E-07 "ALVOO2I","ug m-3",6.0466E-04,6.1057E-04,6.1335E-04,6.1544E-04,6.1780E-04,6.2061E-04,6.2520E-04,6.5473E-04,6.9272E-04,7.3001E-04,7.6218E-04,7.8808E-04,8.1745E-04,8.3388E-04,8.5482E-04,9.1690E-04,1.0033E-03,1.0865E-03,1.0984E-03,1.0596E-03,9.7165E-04,8.3961E-04,7.9159E-04,7.8719E-04,7.9808E-04,8.4149E-04,8.8330E-04,8.6601E-04,8.1740E-04,7.2711E-04,6.3596E-04,5.6490E-04,4.9387E-04,4.2589E-04,3.5101E-04,2.5979E-04,1.5452E-04,6.6807E-05,1.9572E-05,3.4954E-06,8.8908E-07,4.6197E-07,2.2898E-07,1.2544E-07 "ASVOO1I","ug m-3",1.9834E-06,2.0579E-06,2.1060E-06,2.1507E-06,2.2016E-06,2.2605E-06,2.3305E-06,2.5434E-06,2.7761E-06,3.0007E-06,3.1967E-06,3.3234E-06,3.4552E-06,3.5227E-06,3.6364E-06,3.9432E-06,4.3545E-06,4.6951E-06,4.7396E-06,4.6084E-06,4.3099E-06,3.8208E-06,3.6565E-06,3.6526E-06,3.7358E-06,3.9158E-06,4.0820E-06,4.0471E-06,3.9219E-06,3.6300E-06,3.3057E-06,3.0104E-06,2.7024E-06,2.3997E-06,2.0175E-06,1.5191E-06,9.3336E-07,4.3756E-07,1.4674E-07,3.4297E-08,1.4256E-08,8.0006E-09,3.9588E-09,2.0553E-09 "ASVOO2I","ug m-3",4.5737E-07,4.8761E-07,5.0690E-07,5.2470E-07,5.4437E-07,5.6685E-07,5.9355E-07,6.6248E-07,7.3813E-07,8.1240E-07,8.7476E-07,9.1509E-07,9.4459E-07,9.5151E-07,9.6474E-07,1.0424E-06,1.1667E-06,1.2619E-06,1.2640E-06,1.2068E-06,1.0977E-06,9.4505E-07,8.9173E-07,8.8930E-07,9.1926E-07,9.9353E-07,1.1014E-06,1.1784E-06,1.2296E-06,1.2302E-06,1.2646E-06,1.3123E-06,1.3231E-06,1.3183E-06,1.2893E-06,1.1430E-06,8.1119E-07,4.3455E-07,1.6384E-07,3.8688E-08,1.5012E-08,7.4842E-09,3.7000E-09,1.8474E-09 "ALVOO1J","ug m-3",3.1408E-02,3.1455E-02,3.1458E-02,3.1455E-02,3.1466E-02,3.1562E-02,3.1751E-02,3.2109E-02,3.2417E-02,3.2320E-02,3.1992E-02,3.1691E-02,3.1612E-02,3.1084E-02,3.0624E-02,3.0658E-02,3.1129E-02,3.1516E-02,3.1075E-02,2.9833E-02,2.7778E-02,2.4850E-02,2.2213E-02,2.0056E-02,1.7898E-02,1.6065E-02,1.4891E-02,1.3782E-02,1.2914E-02,1.2010E-02,1.1099E-02,1.0211E-02,9.1096E-03,7.8736E-03,6.7139E-03,5.6433E-03,4.6525E-03,3.6777E-03,2.7951E-03,2.0552E-03,1.5297E-03,1.2057E-03,8.9241E-04,6.1262E-04 "ALVOO2J","ug m-3",5.8133E-03,5.8659E-03,5.8995E-03,5.9347E-03,5.9783E-03,6.0715E-03,6.2274E-03,6.4869E-03,6.7338E-03,6.8359E-03,6.8641E-03,6.9114E-03,7.0100E-03,7.0401E-03,7.1748E-03,7.4598E-03,7.8900E-03,8.3211E-03,8.5314E-03,8.4516E-03,8.0862E-03,7.3213E-03,6.8157E-03,6.4394E-03,6.0340E-03,5.6914E-03,5.5065E-03,5.2479E-03,4.9863E-03,4.6505E-03,4.2993E-03,3.9861E-03,3.5711E-03,3.0823E-03,2.6167E-03,2.1931E-03,1.8015E-03,1.4124E-03,1.0721E-03,7.9250E-04,5.9687E-04,4.8133E-04,3.6355E-04,2.5198E-04 "ASVOO1J","ug m-3",2.2084E-05,2.2974E-05,2.3617E-05,2.4260E-05,2.5019E-05,2.6132E-05,2.7672E-05,2.9843E-05,3.1818E-05,3.3085E-05,3.3953E-05,3.4828E-05,3.6015E-05,3.6503E-05,3.7208E-05,3.8432E-05,4.0351E-05,4.2198E-05,4.2602E-05,4.1906E-05,4.0176E-05,3.6692E-05,3.3932E-05,3.1661E-05,2.9186E-05,2.7058E-05,2.5964E-05,2.4945E-05,2.4287E-05,2.3594E-05,2.2836E-05,2.1794E-05,2.0070E-05,1.7995E-05,1.5988E-05,1.4127E-05,1.2418E-05,1.0663E-05,8.8045E-06,6.8756E-06,5.2422E-06,4.0171E-06,2.9107E-06,1.9925E-06 "ASVOO2J","ug m-3",5.2603E-06,5.6222E-06,5.8749E-06,6.1216E-06,6.4004E-06,6.7940E-06,7.3300E-06,8.0441E-06,8.6514E-06,9.0293E-06,9.2651E-06,9.4823E-06,9.7429E-06,9.7329E-06,9.7102E-06,9.9199E-06,1.0234E-05,1.0591E-05,1.0510E-05,9.9829E-06,9.2503E-06,8.1581E-06,7.3359E-06,6.7536E-06,6.1889E-06,5.8466E-06,5.9260E-06,6.1833E-06,6.5511E-06,6.8463E-06,7.2951E-06,7.7893E-06,7.8779E-06,7.6420E-06,7.5028E-06,7.5102E-06,7.4770E-06,7.3079E-06,6.8425E-06,5.9578E-06,4.7171E-06,3.1846E-06,1.9230E-06,1.1529E-06 "ASVOO3J","ug m-3",8.2688E-07,8.8611E-07,9.2581E-07,9.6369E-07,1.0060E-06,1.0655E-06,1.1479E-06,1.2663E-06,1.3658E-06,1.4270E-06,1.4619E-06,1.4881E-06,1.5162E-06,1.4982E-06,1.4764E-06,1.5017E-06,1.5462E-06,1.6065E-06,1.5756E-06,1.4628E-06,1.3060E-06,1.0965E-06,9.3923E-07,8.2383E-07,7.0425E-07,6.3116E-07,5.8082E-07,5.4728E-07,5.5232E-07,5.8944E-07,6.4657E-07,7.2662E-07,7.9441E-07,8.3155E-07,8.8342E-07,9.0886E-07,8.6526E-07,7.1938E-07,4.8473E-07,2.7300E-07,2.4180E-07,1.6043E-07,5.0377E-08,1.1877E-08 "AAVB1J","ug m-3",1.8883E-02,1.8932E-02,1.8938E-02,1.8934E-02,1.8937E-02,1.8976E-02,1.9073E-02,1.9323E-02,1.9568E-02,1.9638E-02,1.9639E-02,1.9670E-02,1.9802E-02,1.9805E-02,2.0052E-02,2.0631E-02,2.1946E-02,2.3151E-02,2.3774E-02,2.3618E-02,2.2669E-02,2.0971E-02,1.9703E-02,1.8756E-02,1.7761E-02,1.6835E-02,1.6194E-02,1.5469E-02,1.4748E-02,1.3790E-02,1.2786E-02,1.1705E-02,1.0391E-02,9.0454E-03,7.7802E-03,6.5435E-03,5.2428E-03,3.9947E-03,2.9564E-03,2.1749E-03,1.6658E-03,1.3763E-03,1.0479E-03,7.1696E-04 "AAVB2J","ug m-3",4.7845E-05,4.9946E-05,5.1009E-05,5.1819E-05,5.2587E-05,5.3328E-05,5.4003E-05,5.4626E-05,5.4933E-05,5.4972E-05,5.4878E-05,5.4780E-05,5.5037E-05,5.4962E-05,5.6481E-05,6.1361E-05,7.0328E-05,7.8902E-05,8.5135E-05,8.5725E-05,8.1039E-05,7.5826E-05,7.4841E-05,7.5344E-05,7.5540E-05,7.4994E-05,7.4571E-05,7.4793E-05,7.6145E-05,7.7581E-05,7.8172E-05,7.8319E-05,7.6051E-05,7.3367E-05,7.1023E-05,6.8890E-05,6.4372E-05,5.4094E-05,3.4641E-05,1.2061E-05,3.2429E-06,8.8032E-07,2.3174E-07,9.0071E-08 "AAVB3J","ug m-3",3.4143E-05,3.6180E-05,3.7202E-05,3.8019E-05,3.8858E-05,3.9857E-05,4.1091E-05,4.2959E-05,4.5101E-05,4.7361E-05,5.0360E-05,5.3282E-05,5.7674E-05,6.2391E-05,7.1075E-05,8.3426E-05,1.1285E-04,1.3672E-04,1.5532E-04,1.5483E-04,1.4315E-04,1.2817E-04,1.2383E-04,1.2376E-04,1.2340E-04,1.2155E-04,1.2273E-04,1.2591E-04,1.3140E-04,1.3489E-04,1.3490E-04,1.3238E-04,1.2440E-04,1.1515E-04,1.0437E-04,9.1648E-05,7.7459E-05,5.7474E-05,3.3450E-05,1.2859E-05,4.9372E-06,1.9824E-06,7.0992E-07,2.8521E-07 "AAVB4J","ug m-3",1.9812E-05,2.1119E-05,2.1862E-05,2.2528E-05,2.3251E-05,2.4513E-05,2.6506E-05,3.0088E-05,3.3505E-05,3.6433E-05,3.9697E-05,4.2547E-05,4.6721E-05,5.1686E-05,6.0345E-05,7.0447E-05,9.5382E-05,1.1582E-04,1.3109E-04,1.3141E-04,1.2096E-04,1.0220E-04,9.5070E-05,9.3988E-05,9.2049E-05,8.9791E-05,9.2204E-05,9.4397E-05,9.6638E-05,9.5595E-05,9.3180E-05,9.2770E-05,9.1683E-05,8.5976E-05,7.7917E-05,7.1762E-05,6.4922E-05,5.2086E-05,3.8188E-05,2.5239E-05,1.6032E-05,1.0057E-05,5.4350E-06,2.4705E-06 "AMT1J","ug m-3",4.7715E-03,4.7739E-03,4.7693E-03,4.7626E-03,4.7554E-03,4.7528E-03,4.7565E-03,4.7903E-03,4.8213E-03,4.8094E-03,4.7723E-03,4.7655E-03,4.8445E-03,4.8471E-03,4.8298E-03,4.9307E-03,5.2384E-03,5.6787E-03,5.6635E-03,5.3379E-03,4.6215E-03,3.7203E-03,3.2325E-03,2.9088E-03,2.6396E-03,2.4253E-03,2.2877E-03,2.1358E-03,2.0088E-03,1.8753E-03,1.7410E-03,1.5913E-03,1.4226E-03,1.2811E-03,1.1625E-03,1.0500E-03,9.4984E-04,8.6096E-04,7.5469E-04,6.0371E-04,4.5294E-04,3.3896E-04,2.3543E-04,1.5540E-04 "AMT2J","ug m-3",2.6972E-03,2.7205E-03,2.7328E-03,2.7436E-03,2.7558E-03,2.7740E-03,2.8001E-03,2.8522E-03,2.9038E-03,2.9276E-03,2.9402E-03,2.9883E-03,3.1244E-03,3.2231E-03,3.3031E-03,3.4439E-03,3.7413E-03,4.1259E-03,4.1530E-03,3.9396E-03,3.4245E-03,2.7591E-03,2.4241E-03,2.2051E-03,2.0185E-03,1.8665E-03,1.7719E-03,1.6629E-03,1.5699E-03,1.4692E-03,1.3671E-03,1.2530E-03,1.1235E-03,1.0141E-03,9.2229E-04,8.3633E-04,7.6017E-04,6.9288E-04,6.1055E-04,4.9036E-04,3.6870E-04,2.7553E-04,1.9122E-04,1.2623E-04 "AMT3J","ug m-3",7.4365E-04,7.6676E-04,7.8145E-04,7.9583E-04,8.1250E-04,8.3532E-04,8.6696E-04,9.2081E-04,9.7678E-04,1.0219E-03,1.0666E-03,1.1322E-03,1.2712E-03,1.4368E-03,1.6229E-03,1.8131E-03,2.1689E-03,2.5545E-03,2.6392E-03,2.5357E-03,2.2162E-03,1.7630E-03,1.6073E-03,1.5377E-03,1.4746E-03,1.4248E-03,1.4159E-03,1.3809E-03,1.3431E-03,1.2852E-03,1.2156E-03,1.1299E-03,1.0262E-03,9.3566E-04,8.5916E-04,7.9074E-04,7.3292E-04,6.8366E-04,6.1605E-04,5.0336E-04,3.8191E-04,2.8472E-04,1.9744E-04,1.3049E-04 "AMT4J","ug m-3",2.2495E-04,2.3833E-04,2.4704E-04,2.5595E-04,2.6616E-04,2.8229E-04,3.0663E-04,3.4699E-04,3.8920E-04,4.2697E-04,4.7032E-04,5.2251E-04,6.2095E-04,7.7089E-04,9.9691E-04,1.2163E-03,1.7735E-03,2.4423E-03,2.5334E-03,2.4065E-03,1.9875E-03,1.4570E-03,1.4236E-03,1.4960E-03,1.5801E-03,1.6940E-03,1.8974E-03,2.0926E-03,2.2921E-03,2.4426E-03,2.5474E-03,2.5829E-03,2.5145E-03,2.4177E-03,2.3067E-03,2.1961E-03,2.1071E-03,2.0432E-03,1.9161E-03,1.6219E-03,1.2551E-03,9.3930E-04,6.5361E-04,4.3132E-04 "AMT5J","ug m-3",2.3333E-05,2.4848E-05,2.5799E-05,2.6764E-05,2.7861E-05,2.9750E-05,3.2856E-05,3.8314E-05,4.3683E-05,4.8313E-05,5.3736E-05,6.0001E-05,7.1769E-05,9.0761E-05,1.2170E-04,1.5226E-04,2.5114E-04,3.8901E-04,3.9535E-04,3.7143E-04,2.9542E-04,1.8536E-04,1.8971E-04,2.1023E-04,2.3256E-04,2.6432E-04,3.2876E-04,4.1722E-04,5.2886E-04,6.5404E-04,8.1111E-04,1.0069E-03,1.1883E-03,1.3456E-03,1.4786E-03,1.5985E-03,1.7066E-03,1.7887E-03,1.7818E-03,1.5794E-03,1.2569E-03,9.4501E-04,6.2562E-04,3.5253E-04 "AMT6J","ug m-3",4.1961E-06,4.4536E-06,4.6064E-06,4.7577E-06,4.9281E-06,5.2304E-06,5.7429E-06,6.6798E-06,7.5958E-06,8.3641E-06,9.2542E-06,1.0244E-05,1.2134E-05,1.5225E-05,2.0235E-05,2.4939E-05,4.1445E-05,6.4736E-05,6.5959E-05,6.1489E-05,4.6702E-05,2.6596E-05,2.6495E-05,2.8527E-05,3.0446E-05,3.3171E-05,4.0007E-05,4.9402E-05,6.1291E-05,7.3878E-05,9.1150E-05,1.2004E-04,1.6293E-04,2.0426E-04,2.4737E-04,2.9786E-04,3.5082E-04,3.5943E-04,3.3638E-04,2.7730E-04,2.0243E-04,1.3703E-04,7.4088E-05,2.9349E-05 "ABRJ","ug m-3",4.4081E-03,4.2983E-03,4.2482E-03,4.2163E-03,4.2015E-03,4.2113E-03,4.2307E-03,4.3215E-03,4.3779E-03,4.4461E-03,4.6505E-03,5.0795E-03,5.7341E-03,6.1217E-03,6.5855E-03,7.0770E-03,7.6126E-03,7.8083E-03,8.1978E-03,8.1792E-03,7.8541E-03,7.3910E-03,6.9815E-03,6.5219E-03,6.0444E-03,5.6634E-03,5.3319E-03,5.0787E-03,4.8869E-03,4.7928E-03,4.7087E-03,4.4822E-03,4.2066E-03,3.9706E-03,3.8768E-03,3.8177E-03,3.8089E-03,3.5622E-03,3.2371E-03,2.7798E-03,2.2049E-03,1.5847E-03,1.0143E-03,6.5771E-04 "ABRK","ug m-3",4.3630E-02,4.0300E-02,3.8665E-02,3.7455E-02,3.6310E-02,3.5233E-02,3.4022E-02,3.2785E-02,3.1441E-02,2.9678E-02,2.7468E-02,2.4559E-02,2.0981E-02,1.7119E-02,1.3466E-02,1.0589E-02,7.9670E-03,5.6249E-03,3.8015E-03,2.6244E-03,1.9981E-03,1.5185E-03,1.1136E-03,8.2110E-04,6.4213E-04,5.4121E-04,4.8474E-04,4.3142E-04,3.9378E-04,3.6464E-04,3.3340E-04,2.9798E-04,2.5898E-04,2.2132E-04,1.8557E-04,1.4882E-04,1.0980E-04,7.6218E-05,4.9847E-05,3.0564E-05,1.7214E-05,9.2581E-06,4.8346E-06,2.6506E-06 "NH3","ppmV",6.3426E-05,6.6752E-05,6.8751E-05,7.0886E-05,7.3227E-05,7.6428E-05,8.1039E-05,8.7800E-05,9.4820E-05,1.0112E-04,1.0418E-04,1.1261E-04,1.2420E-04,1.3909E-04,1.5882E-04,1.7405E-04,1.7906E-04,1.8496E-04,1.8140E-04,1.8368E-04,1.7713E-04,1.7475E-04,1.7354E-04,1.7216E-04,1.7230E-04,1.7197E-04,1.6870E-04,1.6111E-04,1.5150E-04,1.5139E-04,1.5486E-04,1.5446E-04,1.4827E-04,1.2852E-04,1.0422E-04,8.1149E-05,5.9437E-05,3.5828E-05,1.6551E-05,4.3031E-06,1.8647E-06,3.6465E-06,3.0849E-06,2.4342E-06 "SVISO1","ppmV",1.2048E-06,1.2593E-06,1.2853E-06,1.3065E-06,1.3316E-06,1.3620E-06,1.4065E-06,1.4790E-06,1.5543E-06,1.6488E-06,1.7890E-06,1.9915E-06,2.3694E-06,2.8176E-06,3.2313E-06,3.6171E-06,4.1896E-06,4.6771E-06,4.9281E-06,5.0295E-06,4.9704E-06,4.7114E-06,4.6290E-06,4.6422E-06,4.6289E-06,4.5941E-06,4.6551E-06,4.6667E-06,4.7156E-06,4.7099E-06,4.6202E-06,4.4174E-06,4.0639E-06,3.7288E-06,3.3723E-06,2.8797E-06,2.2881E-06,1.6799E-06,9.9467E-07,3.8436E-07,1.2070E-07,4.1628E-08,1.6050E-08,1.0924E-08 "SVISO2","ppmV",1.2577E-09,1.3014E-09,1.3196E-09,1.3318E-09,1.3417E-09,1.3492E-09,1.3616E-09,1.3754E-09,1.3878E-09,1.4132E-09,1.4584E-09,1.5761E-09,1.8292E-09,2.0175E-09,2.1267E-09,2.1148E-09,2.0251E-09,1.9127E-09,1.8922E-09,1.9556E-09,1.9991E-09,1.9933E-09,1.8906E-09,1.9539E-09,1.9887E-09,2.0890E-09,2.2036E-09,2.2875E-09,2.2533E-09,2.1822E-09,2.1162E-09,1.9746E-09,1.7764E-09,1.5498E-09,1.2668E-09,8.8453E-10,5.0889E-10,2.4071E-10,9.9302E-11,2.7782E-11,4.5618E-12,6.8044E-13,1.0610E-13,2.0221E-14 "SVSQT","ppmV",6.8439E-08,7.1257E-08,7.2542E-08,7.3550E-08,7.4745E-08,7.6078E-08,7.8238E-08,8.1790E-08,8.5508E-08,9.0850E-08,9.9263E-08,1.1192E-07,1.3117E-07,1.5176E-07,1.7024E-07,1.8455E-07,2.0473E-07,2.2150E-07,2.3070E-07,2.2885E-07,2.2196E-07,2.1091E-07,1.9778E-07,1.9541E-07,1.9383E-07,1.9153E-07,1.9361E-07,1.9116E-07,1.8439E-07,1.7416E-07,1.6378E-07,1.5066E-07,1.3317E-07,1.1696E-07,1.0067E-07,7.9265E-08,5.2510E-08,2.7678E-08,1.0569E-08,2.5325E-09,4.2465E-10,6.8814E-11,1.4410E-11,5.7256E-12 "LVPCSOG","ppmV",4.3983E-12,4.2761E-12,4.1941E-12,4.1174E-12,4.0368E-12,3.9511E-12,3.8562E-12,3.7532E-12,3.6357E-12,3.5104E-12,3.3735E-12,3.2287E-12,3.0665E-12,2.9097E-12,2.7605E-12,2.6269E-12,2.5168E-12,2.4155E-12,2.3330E-12,2.2750E-12,2.1809E-12,2.0853E-12,1.9846E-12,1.8528E-12,1.7120E-12,1.5793E-12,1.4686E-12,1.3581E-12,1.2354E-12,1.1254E-12,1.0332E-12,9.9079E-13,1.0328E-12,1.1686E-12,1.4365E-12,1.8698E-12,2.4637E-12,3.1184E-12,3.7655E-12,4.4194E-12,5.1242E-12,6.1714E-12,8.3869E-12,1.3087E-11 "SVMT1","ppmV",4.9928E-09,4.8274E-09,4.6680E-09,4.4967E-09,4.3101E-09,4.1085E-09,3.8930E-09,3.6663E-09,3.4220E-09,3.1684E-09,2.9184E-09,2.6852E-09,2.4574E-09,2.2165E-09,1.9790E-09,1.7787E-09,1.6184E-09,1.4924E-09,1.3864E-09,1.2464E-09,1.0295E-09,8.0595E-10,5.9310E-10,4.2057E-10,2.8610E-10,1.8603E-10,1.1575E-10,6.8701E-11,3.8377E-11,1.9868E-11,9.4055E-12,4.0662E-12,1.5946E-12,5.8230E-13,1.9820E-13,6.9705E-14,2.9895E-14,1.5913E-14,9.6479E-15,6.0745E-15,3.2830E-15,1.6564E-15,1.6855E-15,3.8918E-15 "SVMT2","ppmV",5.3103E-08,5.2319E-08,5.1291E-08,5.0095E-08,4.8755E-08,4.7271E-08,4.5675E-08,4.3969E-08,4.2033E-08,4.0002E-08,3.8100E-08,3.6634E-08,3.5586E-08,3.4021E-08,3.1972E-08,2.9962E-08,2.8286E-08,2.7044E-08,2.5894E-08,2.3899E-08,2.0427E-08,1.6666E-08,1.2954E-08,9.7476E-09,7.0889E-09,4.9162E-09,3.2801E-09,2.0943E-09,1.2610E-09,7.1053E-10,3.7081E-10,1.7858E-10,7.8878E-11,3.2651E-11,1.2699E-11,5.0440E-12,2.4079E-12,1.4221E-12,9.2652E-13,6.2235E-13,4.1280E-13,3.1399E-13,3.2528E-13,5.4316E-13 "SVMT3","ppmV",1.1984E-07,1.2178E-07,1.2194E-07,1.2163E-07,1.2126E-07,1.2089E-07,1.2081E-07,1.2144E-07,1.2148E-07,1.2159E-07,1.2282E-07,1.2719E-07,1.3760E-07,1.4665E-07,1.5102E-07,1.5334E-07,1.5623E-07,1.5912E-07,1.6129E-07,1.5530E-07,1.3934E-07,1.2072E-07,1.0163E-07,8.4829E-08,6.9310E-08,5.4197E-08,4.1148E-08,2.9816E-08,2.0322E-08,1.2983E-08,7.7388E-09,4.2668E-09,2.1718E-09,1.0367E-09,4.7324E-10,2.2168E-10,1.1816E-10,7.4766E-11,5.1890E-11,3.7321E-11,2.6627E-11,2.1536E-11,2.2976E-11,3.7671E-11 "SVMT4","ppmV",3.6077E-07,3.7438E-07,3.8010E-07,3.8434E-07,3.8920E-07,3.9523E-07,4.0435E-07,4.2025E-07,4.3642E-07,4.5420E-07,4.7879E-07,5.1782E-07,5.9531E-07,6.8536E-07,7.6414E-07,8.2444E-07,9.1877E-07,1.0032E-06,1.0619E-06,1.0589E-06,9.6805E-07,8.5749E-07,7.6917E-07,7.1198E-07,6.5687E-07,5.9732E-07,5.4246E-07,4.7457E-07,4.0123E-07,3.2367E-07,2.4638E-07,1.7387E-07,1.1271E-07,6.9422E-08,4.0753E-08,2.3981E-08,1.5043E-08,1.0613E-08,8.0705E-09,6.3313E-09,4.9164E-09,4.2422E-09,4.6608E-09,7.4314E-09 "SVMT5","ppmV",4.8356E-07,5.0431E-07,5.1359E-07,5.2087E-07,5.2923E-07,5.3987E-07,5.5586E-07,5.8286E-07,6.1104E-07,6.4214E-07,6.8417E-07,7.4802E-07,8.7266E-07,1.0246E-06,1.1740E-06,1.2926E-06,1.5263E-06,1.7630E-06,1.8674E-06,1.8693E-06,1.7061E-06,1.4437E-06,1.3389E-06,1.2952E-06,1.2595E-06,1.2294E-06,1.2258E-06,1.2035E-06,1.1711E-06,1.1215E-06,1.0562E-06,9.6050E-07,8.3999E-07,7.3064E-07,6.2562E-07,5.2634E-07,4.4151E-07,3.8326E-07,3.4404E-07,3.1024E-07,2.7498E-07,2.6209E-07,2.8264E-07,3.7289E-07 "SVMT6","ppmV",9.7057E-07,1.0127E-06,1.0316E-06,1.0466E-06,1.0637E-06,1.0857E-06,1.1188E-06,1.1749E-06,1.2334E-06,1.2976E-06,1.3840E-06,1.5148E-06,1.7697E-06,2.0816E-06,2.3909E-06,2.6378E-06,3.1345E-06,3.6437E-06,3.8571E-06,3.8616E-06,3.5252E-06,2.9538E-06,2.7494E-06,2.6728E-06,2.6125E-06,2.5701E-06,2.5975E-06,2.5994E-06,2.6020E-06,2.5741E-06,2.5488E-06,2.5050E-06,2.4157E-06,2.3500E-06,2.3131E-06,2.2707E-06,2.2535E-06,2.3055E-06,2.3503E-06,2.2629E-06,2.1006E-06,1.9871E-06,1.8551E-06,1.7686E-06 ================================================ FILE: PREP/bcon/src/profile/avprofile_racm_ae6_aq_derived_from_cb6r3m_ae7_kmtbr_hemi2016_v53beta2_m3dry_col051_row068.csv ================================================ # # # The vertical profiles in this file were derived from a simulation with the # hemispheric version of CMAQv5.3 beta2 for the year 2016 and represent the annual # average values at the model grid cell closest to lat 37N, lon -157W. As such, # they are reflective of conditions in a remote marine environment. # The model simulations were performed with the CB6R3M_AE7_KMTBR chemical mechanism and # the annual average model outputs were mapped to the RACM_AE6_AQ chemical mechanism # Model version: CMAQv5.3 beta2 (February 2018), including full halogen and DMS chemistry # Grid spacing: 108 x 108 km on a polar stereographic grid covering the northern hemisphere # Vertical layers: 44 # Meteorological fields: WRF3.8 # Chemical mechanism: CB6R3M_AE7_KMTBR (mapped to RACM_AE6_AQ) # Dry Deposition: M3DRY # Top level pressure: 50 hPa # The vertical sigma levels used in the simulations were 1.0, 0.9975, 0.9946, 0.9913, 0.9875, 0.9831, 0.9781, 0.9723, 0.9657, 0.958, 0.9492, 0.9391, 0.9275, 0.9141, 0.8987, 0.881, 0.8607, 0.8373, 0.8104, 0.7795, 0.7439, 0.7066, 0.6693, 0.632, 0.5946, 0.5573, 0.52, 0.4827, 0.4454, 0.4081, 0.3708, 0.3352, 0.3013, 0.269, 0.2383, 0.2089, 0.181, 0.1543, 0.1289, 0.1047, 0.0816, 0.0596, 0.0386, 0.0186, 0. # The hourly meteorological and air quality fields used to derive these profiles # are archived at # /asm/ROMO/met/MCIP/WRFv3.8_108NHEMI2_2016_44aL/v4.3 # /asm/gsarwar/hemisphere/cmaqv53_beta_official/halogen/RUN_C VNAME,UNITS,LAYER01,LAYER02,LAYER03,LAYER04,LAYER05,LAYER06,LAYER07,LAYER08,LAYER09,LAYER10,LAYER11,LAYER12,LAYER13,LAYER14,LAYER15,LAYER16,LAYER17,LAYER18,LAYER19,LAYER20,LAYER21,LAYER22,LAYER23,LAYER24,LAYER25,LAYER26,LAYER27,LAYER28,LAYER29,LAYER30,LAYER31,LAYER32,LAYER33,LAYER34,LAYER35,LAYER36,LAYER37,LAYER38,LAYER39,LAYER40,LAYER41,LAYER42,LAYER43,LAYER44 "PRES","Pa",1.0181E+05,1.0155E+05,1.0124E+05,1.0090E+05,1.0050E+05,1.0004E+05,9.9512E+04,9.8907E+04,9.8209E+04,9.7404E+04,9.6482E+04,9.5424E+04,9.4205E+04,9.2801E+04,9.1188E+04,8.9338E+04,8.7211E+04,8.4764E+04,8.1955E+04,7.8726E+04,7.5189E+04,7.1571E+04,6.7955E+04,6.4335E+04,6.0716E+04,5.7103E+04,5.3491E+04,4.9880E+04,4.6270E+04,4.2660E+04,3.9134E+04,3.5772E+04,3.2571E+04,2.9525E+04,2.6619E+04,2.3849E+04,2.1210E+04,1.8691E+04,1.6294E+04,1.4007E+04,1.1827E+04,9.7480E+03,7.7657E+03,5.8994E+03 "ZH","m",1.0185E+01,3.2201E+01,5.7525E+01,8.6591E+01,1.2025E+02,1.5896E+02,2.0359E+02,2.5506E+02,3.1470E+02,3.8391E+02,4.6373E+02,5.5608E+02,6.6344E+02,7.8847E+02,9.3399E+02,1.1036E+03,1.3023E+03,1.5362E+03,1.8123E+03,2.1402E+03,2.5137E+03,2.9121E+03,3.3279E+03,3.7633E+03,4.2196E+03,4.6982E+03,5.2024E+03,5.7352E+03,6.3003E+03,6.9023E+03,7.5321E+03,8.1761E+03,8.8360E+03,9.5136E+03,1.0214E+04,1.0942E+04,1.1705E+04,1.2513E+04,1.3380E+04,1.4326E+04,1.5376E+04,1.6570E+04,1.7970E+04,1.9672E+04 "ZF","m",2.0375E+01,4.4047E+01,7.1039E+01,1.0220E+02,1.3838E+02,1.7964E+02,2.2768E+02,2.8261E+02,3.4703E+02,4.2110E+02,5.0673E+02,6.0590E+02,7.2159E+02,8.5611E+02,1.0129E+03,1.1957E+03,1.4108E+03,1.6641E+03,1.9638E+03,2.3214E+03,2.7111E+03,3.1176E+03,3.5423E+03,3.9880E+03,4.4542E+03,4.9446E+03,5.4620E+03,6.0097E+03,6.5917E+03,7.2132E+03,7.8487E+03,8.4986E+03,9.1656E+03,9.8509E+03,1.0564E+04,1.1305E+04,1.2087E+04,1.2919E+04,1.3819E+04,1.4810E+04,1.5921E+04,1.7203E+04,1.8737E+04,2.0629E+04 "NO2","ppmV",6.6416E-05,6.6871E-05,6.6995E-05,6.6251E-05,6.4791E-05,6.2946E-05,6.0125E-05,5.6347E-05,5.2051E-05,4.6051E-05,4.0643E-05,3.4908E-05,2.8844E-05,2.3595E-05,1.9684E-05,1.6852E-05,1.5218E-05,1.4624E-05,1.4303E-05,1.4142E-05,1.4275E-05,1.4340E-05,1.4250E-05,1.4080E-05,1.3700E-05,1.3191E-05,1.2747E-05,1.2518E-05,1.2453E-05,1.2474E-05,1.2500E-05,1.2349E-05,1.2799E-05,1.4980E-05,1.9595E-05,2.7242E-05,3.8982E-05,5.4613E-05,6.8501E-05,7.6555E-05,7.5536E-05,6.2896E-05,4.7995E-05,4.3004E-05 "NO","ppmV",7.2125E-06,7.3708E-06,7.4578E-06,7.4445E-06,7.3594E-06,7.2401E-06,7.0303E-06,6.6917E-06,6.3132E-06,5.6629E-06,5.0430E-06,4.2686E-06,3.4368E-06,2.7868E-06,2.3603E-06,2.1141E-06,2.1080E-06,2.2536E-06,2.4169E-06,2.6511E-06,2.8859E-06,3.1132E-06,3.2768E-06,3.4103E-06,3.4596E-06,3.4505E-06,3.4404E-06,3.4880E-06,3.5884E-06,3.7997E-06,4.2118E-06,4.7966E-06,5.6269E-06,7.1106E-06,9.8309E-06,1.4418E-05,2.1712E-05,3.2106E-05,4.2984E-05,5.0088E-05,4.8329E-05,3.3660E-05,2.1467E-05,1.6828E-05 "O3P","ppmV",3.8565E-11,3.8774E-11,3.9017E-11,3.9304E-11,3.9635E-11,4.0010E-11,4.0440E-11,4.0903E-11,4.1518E-11,4.2195E-11,4.2961E-11,4.3842E-11,4.4956E-11,4.6991E-11,5.0488E-11,5.5970E-11,6.3681E-11,7.4011E-11,8.6481E-11,1.0145E-10,1.1685E-10,1.3198E-10,1.4992E-10,1.7002E-10,1.9215E-10,2.1593E-10,2.4530E-10,2.7879E-10,3.1688E-10,3.6406E-10,4.2162E-10,4.8799E-10,5.6794E-10,6.8038E-10,8.5598E-10,1.1456E-09,1.6585E-09,2.5890E-09,4.2102E-09,6.8171E-09,1.2136E-08,3.5512E-08,1.0624E-07,3.1938E-07 "O3","ppmV",2.9175E-02,2.9212E-02,2.9237E-02,2.9261E-02,2.9282E-02,2.9294E-02,2.9285E-02,2.9268E-02,2.9236E-02,2.9183E-02,2.9094E-02,2.8951E-02,2.8814E-02,2.8780E-02,2.8908E-02,2.9365E-02,3.0223E-02,3.1446E-02,3.2937E-02,3.4518E-02,3.5985E-02,3.7176E-02,3.8610E-02,4.0036E-02,4.1363E-02,4.2594E-02,4.4067E-02,4.5605E-02,4.7165E-02,4.9155E-02,5.1509E-02,5.3923E-02,5.6682E-02,6.0912E-02,6.7728E-02,7.8214E-02,9.5268E-02,1.2097E-01,1.5442E-01,1.8961E-01,2.4869E-01,5.0406E-01,9.6055E-01,1.5983E+00 "NO3","ppmV",6.3239E-07,6.3023E-07,6.3151E-07,6.4556E-07,6.5635E-07,6.6224E-07,6.6575E-07,6.6570E-07,6.5354E-07,6.3346E-07,5.9811E-07,5.4948E-07,5.0238E-07,4.5992E-07,4.4629E-07,5.0144E-07,6.6674E-07,8.9469E-07,1.0479E-06,1.1333E-06,1.1645E-06,1.1331E-06,1.0786E-06,9.5645E-07,7.9273E-07,6.1975E-07,4.7106E-07,3.5094E-07,2.4854E-07,1.6729E-07,1.1407E-07,8.2662E-08,6.7138E-08,6.1447E-08,6.1893E-08,6.7501E-08,7.9188E-08,9.4982E-08,1.1225E-07,1.2714E-07,1.5253E-07,2.7354E-07,4.6465E-07,7.2979E-07 "O1D","ppmV",1.6680E-16,1.6824E-16,1.6969E-16,1.7139E-16,1.7336E-16,1.7563E-16,1.7820E-16,1.8114E-16,1.8492E-16,1.8893E-16,1.9354E-16,1.9842E-16,2.0425E-16,2.1446E-16,2.3020E-16,2.5385E-16,2.8813E-16,3.3418E-16,3.8904E-16,4.5539E-16,5.2169E-16,5.8509E-16,6.5957E-16,7.4102E-16,8.2638E-16,9.1601E-16,1.0270E-15,1.1484E-15,1.2803E-15,1.4361E-15,1.6180E-15,1.8138E-15,2.0264E-15,2.3043E-15,2.7207E-15,3.3824E-15,4.5020E-15,6.4212E-15,9.5835E-15,1.4107E-14,2.2197E-14,5.6672E-14,1.4333E-13,3.5583E-13 "HO","ppmV",6.0257E-08,6.0452E-08,6.0890E-08,6.1268E-08,6.1599E-08,6.1899E-08,6.2101E-08,6.1966E-08,6.1872E-08,6.0840E-08,5.9571E-08,5.7520E-08,5.4761E-08,5.3234E-08,5.3107E-08,5.3649E-08,5.4789E-08,5.6292E-08,5.7351E-08,5.8706E-08,6.0053E-08,6.1655E-08,6.4520E-08,6.7518E-08,7.0455E-08,7.2308E-08,7.3371E-08,7.3707E-08,7.3616E-08,7.4039E-08,7.5315E-08,7.6337E-08,7.7136E-08,8.0977E-08,9.0723E-08,1.0808E-07,1.3565E-07,1.6986E-07,2.0080E-07,2.1621E-07,2.1041E-07,1.7666E-07,2.0241E-07,3.2347E-07 "HO2","ppmV",4.5776E-06,4.6298E-06,4.6529E-06,4.6612E-06,4.6692E-06,4.6783E-06,4.6847E-06,4.6863E-06,4.6817E-06,4.6378E-06,4.6082E-06,4.5504E-06,4.4590E-06,4.3915E-06,4.3729E-06,4.4360E-06,4.5784E-06,4.7666E-06,4.9391E-06,5.1092E-06,5.2609E-06,5.3674E-06,5.4993E-06,5.6002E-06,5.6491E-06,5.6427E-06,5.6104E-06,5.5505E-06,5.4659E-06,5.3639E-06,5.2341E-06,5.0251E-06,4.7401E-06,4.4441E-06,4.1458E-06,3.7731E-06,3.2729E-06,2.6874E-06,2.1534E-06,1.7736E-06,1.6658E-06,1.8948E-06,2.7505E-06,4.7410E-06 "H2O2","ppmV",5.1128E-04,5.3838E-04,5.5228E-04,5.6388E-04,5.7763E-04,5.9353E-04,6.1284E-04,6.3553E-04,6.5406E-04,6.7245E-04,6.9578E-04,7.2476E-04,7.6345E-04,7.9405E-04,8.1356E-04,8.3012E-04,8.4774E-04,8.5946E-04,8.5617E-04,8.4635E-04,8.3386E-04,8.1462E-04,8.0074E-04,7.7892E-04,7.4954E-04,7.1234E-04,6.7188E-04,6.2844E-04,5.8534E-04,5.3936E-04,4.9701E-04,4.5885E-04,4.1729E-04,3.7210E-04,3.2271E-04,2.6247E-04,1.9002E-04,1.1687E-04,6.1086E-05,3.2219E-05,2.3866E-05,2.5105E-05,3.9866E-05,7.2061E-05 "N2O5","ppmV",1.4375E-07,1.4709E-07,1.5167E-07,1.5903E-07,1.6283E-07,1.6500E-07,1.6458E-07,1.6057E-07,1.5183E-07,1.3934E-07,1.2930E-07,1.1708E-07,1.0381E-07,8.9736E-08,7.8628E-08,8.0162E-08,9.9393E-08,1.2383E-07,1.4304E-07,1.5891E-07,1.7690E-07,1.9811E-07,2.2334E-07,2.5308E-07,2.8381E-07,3.1261E-07,3.4115E-07,3.9116E-07,4.5317E-07,5.0107E-07,5.2425E-07,5.2036E-07,5.5098E-07,6.8349E-07,9.4135E-07,1.3491E-06,1.9204E-06,2.5556E-06,2.9779E-06,3.1016E-06,3.1708E-06,3.5271E-06,3.4359E-06,3.3245E-06 "HNO3","ppmV",1.1265E-05,1.1896E-05,1.2122E-05,1.2228E-05,1.2284E-05,1.2123E-05,1.1850E-05,1.1513E-05,1.0957E-05,1.0199E-05,9.9439E-06,9.8369E-06,9.7639E-06,1.0503E-05,1.2482E-05,1.7998E-05,2.9995E-05,4.7323E-05,6.3910E-05,7.7114E-05,8.3643E-05,8.4341E-05,8.4299E-05,8.2708E-05,7.8905E-05,7.2852E-05,6.8405E-05,6.4564E-05,6.0652E-05,5.5594E-05,5.5257E-05,5.5122E-05,5.4123E-05,5.4742E-05,5.9479E-05,7.0813E-05,8.7695E-05,1.1294E-04,1.3073E-04,1.4017E-04,1.4997E-04,1.6858E-04,1.9492E-04,1.9109E-04 "HONO","ppmV",3.3428E-07,3.4958E-07,3.5813E-07,3.6052E-07,3.5749E-07,3.5063E-07,3.3733E-07,3.1688E-07,2.9525E-07,2.6246E-07,2.2851E-07,1.8710E-07,1.4384E-07,1.1027E-07,8.7757E-08,7.3392E-08,6.7131E-08,6.6303E-08,6.6287E-08,6.7646E-08,6.9351E-08,7.0788E-08,7.1929E-08,7.2739E-08,7.1536E-08,6.8091E-08,6.3856E-08,6.0481E-08,5.8345E-08,5.8221E-08,6.1497E-08,6.7660E-08,7.9080E-08,1.0356E-07,1.5148E-07,2.3827E-07,3.8660E-07,5.9639E-07,7.6695E-07,7.8086E-07,5.6439E-07,2.1447E-07,8.6833E-08,5.8682E-08 "HNO4","ppmV",3.5945E-07,3.7887E-07,3.9310E-07,4.0144E-07,4.0714E-07,4.1237E-07,4.1309E-07,4.0806E-07,4.0122E-07,3.8022E-07,3.6528E-07,3.4873E-07,3.3335E-07,3.1873E-07,3.0628E-07,2.9419E-07,2.9272E-07,3.0072E-07,3.1366E-07,3.5039E-07,4.1949E-07,5.2770E-07,6.9530E-07,9.5198E-07,1.3183E-06,1.8456E-06,2.6647E-06,3.9817E-06,6.0712E-06,9.4194E-06,1.4663E-05,2.1378E-05,2.8056E-05,3.3560E-05,3.7713E-05,3.9710E-05,3.8768E-05,3.4780E-05,2.8660E-05,2.2662E-05,1.9871E-05,2.1243E-05,2.2100E-05,2.1869E-05 "SO2","ppmV",5.4355E-05,5.7123E-05,5.8149E-05,5.8463E-05,5.8357E-05,5.8007E-05,5.6671E-05,5.5215E-05,5.3257E-05,5.0326E-05,4.6945E-05,4.2034E-05,3.5603E-05,2.6485E-05,1.8360E-05,1.5769E-05,1.8670E-05,2.1209E-05,2.4521E-05,2.7210E-05,2.7597E-05,2.6593E-05,2.6638E-05,2.5707E-05,2.4190E-05,2.2350E-05,2.0865E-05,2.0084E-05,2.0071E-05,2.0049E-05,1.8998E-05,1.7031E-05,1.4960E-05,1.3414E-05,1.1827E-05,1.0114E-05,8.7051E-06,7.1918E-06,5.6031E-06,4.0243E-06,2.7778E-06,1.8096E-06,1.1213E-06,8.0725E-07 "SULF","ppmV",1.6687E-07,1.7535E-07,1.7721E-07,1.7677E-07,1.7418E-07,1.7016E-07,1.6121E-07,1.4958E-07,1.3712E-07,1.2094E-07,1.0714E-07,8.9856E-08,7.2616E-08,5.4124E-08,3.7047E-08,3.4783E-08,4.5198E-08,5.9581E-08,6.8019E-08,7.5408E-08,7.8893E-08,7.6362E-08,7.7664E-08,7.7982E-08,7.9026E-08,7.8998E-08,7.7740E-08,7.6924E-08,7.9078E-08,8.1761E-08,8.1616E-08,7.8394E-08,7.6351E-08,7.6352E-08,8.1190E-08,9.1297E-08,1.0113E-07,1.0351E-07,9.5228E-08,7.9420E-08,6.2146E-08,4.3982E-08,3.5559E-08,4.4326E-08 "ACO3","ppmV",1.0728E-07,1.0575E-07,1.0350E-07,1.0097E-07,9.8214E-08,9.5239E-08,9.2255E-08,8.9461E-08,8.6931E-08,8.5824E-08,8.4531E-08,8.3610E-08,8.3536E-08,8.5455E-08,8.9451E-08,9.5305E-08,1.0193E-07,1.1141E-07,1.1903E-07,1.2288E-07,1.2148E-07,1.1758E-07,1.1583E-07,1.1178E-07,1.0572E-07,9.9327E-08,9.3837E-08,8.9390E-08,8.7095E-08,8.6498E-08,8.7375E-08,8.8460E-08,8.8587E-08,8.6356E-08,8.0811E-08,7.0465E-08,5.5109E-08,3.8218E-08,2.3127E-08,1.3485E-08,9.4856E-09,8.3730E-09,8.3286E-09,8.9411E-09 "MO2","ppmV",8.6952E-06,7.4168E-06,7.1223E-06,7.2182E-06,7.4120E-06,7.5927E-06,7.8101E-06,8.1119E-06,8.4784E-06,9.2304E-06,9.2710E-06,9.2215E-06,9.1680E-06,9.2017E-06,9.3323E-06,9.3486E-06,9.0891E-06,8.6307E-06,8.1396E-06,7.6123E-06,7.1224E-06,6.6961E-06,6.3533E-06,6.0576E-06,5.8203E-06,5.5769E-06,5.3195E-06,4.9929E-06,4.6170E-06,4.1958E-06,3.7361E-06,3.2642E-06,2.7926E-06,2.3178E-06,1.8439E-06,1.3884E-06,9.7968E-07,6.6294E-07,4.8645E-07,4.0785E-07,4.1134E-07,5.6500E-07,8.9815E-07,1.4845E-06 "PAN","ppmV",3.8243E-05,3.8806E-05,3.9058E-05,3.9241E-05,3.9404E-05,3.9558E-05,3.9699E-05,3.9825E-05,3.9932E-05,4.0051E-05,4.0231E-05,4.0538E-05,4.1056E-05,4.2247E-05,4.4205E-05,4.7114E-05,5.0964E-05,5.5650E-05,6.1536E-05,6.7639E-05,7.4276E-05,8.1608E-05,9.2102E-05,1.0601E-04,1.2269E-04,1.4159E-04,1.6071E-04,1.7612E-04,1.8694E-04,1.9341E-04,1.9739E-04,1.9928E-04,1.9854E-04,1.9740E-04,1.9772E-04,1.9429E-04,1.8459E-04,1.6792E-04,1.4105E-04,1.0642E-04,8.3079E-05,6.9653E-05,5.7747E-05,5.0248E-05 "PAA","ppmV",4.3532E-06,4.6037E-06,4.7220E-06,4.8154E-06,4.9123E-06,5.0174E-06,5.1454E-06,5.3221E-06,5.5240E-06,5.7742E-06,6.0594E-06,6.4017E-06,6.8504E-06,7.4089E-06,8.1207E-06,8.9700E-06,9.9642E-06,1.1011E-05,1.1947E-05,1.2607E-05,1.3006E-05,1.3244E-05,1.3781E-05,1.4323E-05,1.4790E-05,1.5375E-05,1.6151E-05,1.6960E-05,1.7750E-05,1.8299E-05,1.8608E-05,1.8730E-05,1.8571E-05,1.7914E-05,1.6436E-05,1.3372E-05,8.9318E-06,4.5201E-06,1.6731E-06,6.6461E-07,4.6454E-07,5.1067E-07,6.0664E-07,6.6332E-07 "ORA2","ppmV",1.3605E-05,1.4369E-05,1.4778E-05,1.5136E-05,1.5550E-05,1.6066E-05,1.6756E-05,1.7737E-05,1.8752E-05,1.9958E-05,2.1399E-05,2.3199E-05,2.5746E-05,2.8780E-05,3.2251E-05,3.5546E-05,3.9636E-05,4.3827E-05,4.7092E-05,4.9042E-05,4.9284E-05,4.8403E-05,4.9417E-05,5.0776E-05,5.1628E-05,5.2657E-05,5.4240E-05,5.5289E-05,5.5611E-05,5.4577E-05,5.3349E-05,5.2136E-05,5.0333E-05,4.7461E-05,4.3246E-05,3.6361E-05,2.6518E-05,1.5820E-05,7.2913E-06,2.8562E-06,1.6716E-06,1.4615E-06,1.5007E-06,1.5252E-06 "RCO3","ppmV",2.3659E-08,2.3085E-08,2.2546E-08,2.2011E-08,2.1440E-08,2.0811E-08,2.0167E-08,1.9548E-08,1.8964E-08,1.8664E-08,1.8298E-08,1.7982E-08,1.7812E-08,1.7870E-08,1.8226E-08,1.8743E-08,1.9467E-08,2.0470E-08,2.1019E-08,2.0904E-08,2.0019E-08,1.8776E-08,1.8012E-08,1.7468E-08,1.6979E-08,1.6888E-08,1.7354E-08,1.8174E-08,1.9212E-08,2.0124E-08,2.1025E-08,2.1745E-08,2.2215E-08,2.2015E-08,2.0764E-08,1.8119E-08,1.4111E-08,9.8102E-09,6.0356E-09,3.5718E-09,2.5525E-09,2.3566E-09,2.1842E-09,2.0781E-09 "PPN","ppmV",7.8161E-06,7.8926E-06,7.9267E-06,7.9514E-06,7.9714E-06,7.9893E-06,8.0037E-06,8.0170E-06,8.0248E-06,8.0296E-06,8.0331E-06,8.0443E-06,8.0662E-06,8.1595E-06,8.3115E-06,8.5284E-06,8.8270E-06,9.1799E-06,9.5920E-06,9.9217E-06,1.0204E-05,1.0456E-05,1.0834E-05,1.1200E-05,1.1496E-05,1.1804E-05,1.2089E-05,1.2330E-05,1.2486E-05,1.2526E-05,1.2455E-05,1.2331E-05,1.2079E-05,1.1796E-05,1.1567E-05,1.0610E-05,8.6273E-06,5.9131E-06,3.5697E-06,1.9382E-06,1.3862E-06,1.2815E-06,1.0554E-06,8.0686E-07 "HCHO","ppmV",2.5795E-04,2.7193E-04,2.7877E-04,2.8402E-04,2.8898E-04,2.9310E-04,2.9677E-04,2.9930E-04,2.9971E-04,2.9839E-04,2.9638E-04,2.9094E-04,2.8277E-04,2.7236E-04,2.6224E-04,2.5327E-04,2.4583E-04,2.3869E-04,2.2838E-04,2.1720E-04,2.0510E-04,1.9329E-04,1.8246E-04,1.7096E-04,1.5938E-04,1.4647E-04,1.3313E-04,1.1970E-04,1.0676E-04,9.4700E-05,8.4285E-05,7.5296E-05,6.7521E-05,6.1294E-05,5.6442E-05,5.1736E-05,4.6112E-05,3.9140E-05,3.1669E-05,2.4434E-05,1.8438E-05,1.2607E-05,1.0869E-05,1.2368E-05 "OP1","ppmV",2.1265E-04,2.2404E-04,2.2981E-04,2.3473E-04,2.4031E-04,2.4652E-04,2.5496E-04,2.6659E-04,2.7956E-04,2.9738E-04,3.1988E-04,3.5201E-04,3.9474E-04,4.3913E-04,4.7629E-04,5.0333E-04,5.1665E-04,5.1440E-04,5.0434E-04,4.8549E-04,4.6116E-04,4.3809E-04,4.1876E-04,3.9998E-04,3.8369E-04,3.6829E-04,3.5349E-04,3.3531E-04,3.1436E-04,2.8869E-04,2.5990E-04,2.3151E-04,2.0323E-04,1.7232E-04,1.3846E-04,1.0012E-04,6.0030E-05,2.6926E-05,1.0243E-05,5.1951E-06,4.3639E-06,5.6536E-06,1.0213E-05,1.8874E-05 "MOH","ppmV",4.3044E-05,4.5316E-05,4.6473E-05,4.7484E-05,4.8688E-05,5.0181E-05,5.2232E-05,5.4935E-05,5.7849E-05,6.1863E-05,6.7482E-05,7.5785E-05,8.7228E-05,9.9928E-05,1.1194E-04,1.2064E-04,1.2606E-04,1.2818E-04,1.2763E-04,1.2412E-04,1.1854E-04,1.1284E-04,1.1063E-04,1.1062E-04,1.1165E-04,1.1429E-04,1.1819E-04,1.2073E-04,1.2163E-04,1.2109E-04,1.2019E-04,1.2172E-04,1.2370E-04,1.2435E-04,1.2369E-04,1.1429E-04,9.3141E-05,6.5659E-05,4.0061E-05,2.0939E-05,1.2361E-05,8.3582E-06,6.3053E-06,5.2752E-06 "OP2","ppmV",3.3632E-05,3.5771E-05,3.6782E-05,3.7583E-05,3.8381E-05,3.9177E-05,4.0063E-05,4.1176E-05,4.2431E-05,4.3944E-05,4.5684E-05,4.7697E-05,5.0173E-05,5.3095E-05,5.6338E-05,5.9061E-05,6.1315E-05,6.2998E-05,6.3443E-05,6.2780E-05,6.0895E-05,5.8909E-05,5.9074E-05,5.9659E-05,6.0377E-05,6.1569E-05,6.2910E-05,6.3691E-05,6.3653E-05,6.2489E-05,6.0339E-05,5.7425E-05,5.3731E-05,4.8765E-05,4.2221E-05,3.2513E-05,2.0341E-05,9.3402E-06,3.0839E-06,9.9336E-07,6.1620E-07,6.5461E-07,7.8324E-07,8.7889E-07 "ETHP","ppmV",5.6812E-10,5.4733E-10,5.4110E-10,5.3762E-10,5.3525E-10,5.3368E-10,5.3237E-10,5.3200E-10,5.3288E-10,5.3171E-10,5.2998E-10,5.2549E-10,5.2096E-10,5.1736E-10,5.1344E-10,5.0248E-10,4.7514E-10,4.4980E-10,4.2298E-10,3.9121E-10,3.2329E-10,2.6804E-10,2.3999E-10,2.1981E-10,2.0586E-10,1.9362E-10,1.8511E-10,1.7906E-10,1.7521E-10,1.6593E-10,1.5697E-10,1.5243E-10,1.4773E-10,1.3913E-10,1.3388E-10,1.2701E-10,1.0981E-10,7.8586E-11,4.2323E-11,9.5779E-12,1.2805E-12,5.0672E-13,3.0678E-13,9.5114E-14 "HC3P","ppmV",3.7600E-11,3.7360E-11,3.7342E-11,3.7305E-11,3.7250E-11,3.7197E-11,3.7087E-11,3.6945E-11,3.6782E-11,3.6351E-11,3.5839E-11,3.5283E-11,3.4865E-11,3.4439E-11,3.3954E-11,3.3495E-11,3.2554E-11,3.1511E-11,2.9856E-11,2.7840E-11,2.5257E-11,2.2616E-11,2.1047E-11,2.0044E-11,1.9194E-11,1.8348E-11,1.7632E-11,1.6730E-11,1.5702E-11,1.4485E-11,1.3347E-11,1.2349E-11,1.1467E-11,1.0725E-11,1.0333E-11,1.0041E-11,9.4996E-12,8.1251E-12,5.7989E-12,2.8960E-12,1.2877E-12,5.8053E-13,3.4181E-13,3.0759E-13 "ONIT","ppmV",2.3676E-05,2.4036E-05,2.4208E-05,2.4344E-05,2.4466E-05,2.4576E-05,2.4672E-05,2.4767E-05,2.4835E-05,2.4896E-05,2.4941E-05,2.4978E-05,2.5001E-05,2.5064E-05,2.5198E-05,2.5449E-05,2.5927E-05,2.6671E-05,2.7363E-05,2.7816E-05,2.8058E-05,2.8237E-05,2.8911E-05,2.9644E-05,3.0076E-05,3.0187E-05,3.0444E-05,3.1182E-05,3.1964E-05,3.2655E-05,3.3497E-05,3.4382E-05,3.5246E-05,3.6589E-05,3.8856E-05,4.1660E-05,4.4362E-05,4.6752E-05,4.6741E-05,4.4856E-05,4.3046E-05,4.2004E-05,4.1511E-05,4.1157E-05 "ORA1","ppmV",2.4966E-06,2.6518E-06,2.7347E-06,2.8058E-06,2.8843E-06,2.9814E-06,3.1082E-06,3.2898E-06,3.4700E-06,3.6544E-06,3.8641E-06,4.1128E-06,4.4779E-06,4.9307E-06,5.5120E-06,6.1311E-06,7.0820E-06,8.0481E-06,8.9337E-06,9.5902E-06,1.0006E-05,1.0131E-05,1.0618E-05,1.1279E-05,1.1861E-05,1.2517E-05,1.3392E-05,1.4210E-05,1.5011E-05,1.5788E-05,1.6670E-05,1.7636E-05,1.8513E-05,1.9692E-05,2.1685E-05,2.4394E-05,2.7583E-05,3.0310E-05,3.0495E-05,2.7826E-05,2.3997E-05,2.0253E-05,1.7856E-05,1.6978E-05 "CO","ppmV",7.5955E-02,7.5958E-02,7.5961E-02,7.5965E-02,7.5969E-02,7.5988E-02,7.6017E-02,7.6058E-02,7.6102E-02,7.6147E-02,7.6200E-02,7.6266E-02,7.6353E-02,7.6431E-02,7.6525E-02,7.6687E-02,7.6852E-02,7.7101E-02,7.7255E-02,7.7356E-02,7.7436E-02,7.7468E-02,7.7803E-02,7.8197E-02,7.8505E-02,7.8985E-02,7.9548E-02,7.9959E-02,8.0055E-02,7.9829E-02,7.9312E-02,7.8646E-02,7.7667E-02,7.6315E-02,7.4366E-02,7.1075E-02,6.5669E-02,5.8520E-02,5.0335E-02,4.1951E-02,3.6316E-02,3.1798E-02,2.7969E-02,2.6143E-02 "ALD","ppmV",3.2993E-06,3.4961E-06,3.5816E-06,3.6421E-06,3.6937E-06,3.7373E-06,3.7780E-06,3.8205E-06,3.8638E-06,3.9103E-06,3.9571E-06,3.9946E-06,4.0258E-06,4.0651E-06,4.0938E-06,4.0956E-06,4.0684E-06,4.0258E-06,3.9122E-06,3.7126E-06,3.4436E-06,3.2096E-06,3.0908E-06,2.9745E-06,2.8615E-06,2.7635E-06,2.6466E-06,2.5162E-06,2.3738E-06,2.2062E-06,2.0084E-06,1.8007E-06,1.5834E-06,1.3669E-06,1.1536E-06,9.1078E-07,6.2454E-07,3.5401E-07,1.6197E-07,4.7762E-08,1.5744E-08,8.3471E-09,5.3306E-09,3.0388E-09 "ACD","ppmV",1.3948E-05,1.4482E-05,1.4729E-05,1.4917E-05,1.5096E-05,1.5264E-05,1.5454E-05,1.5673E-05,1.5907E-05,1.6191E-05,1.6494E-05,1.6818E-05,1.7212E-05,1.7701E-05,1.8296E-05,1.8983E-05,1.9804E-05,2.0658E-05,2.1302E-05,2.1525E-05,2.1325E-05,2.1050E-05,2.1141E-05,2.1237E-05,2.1237E-05,2.1386E-05,2.1661E-05,2.1999E-05,2.2309E-05,2.2388E-05,2.2218E-05,2.1897E-05,2.1415E-05,2.0723E-05,1.9560E-05,1.7244E-05,1.3740E-05,9.9313E-06,6.6634E-06,4.2051E-06,2.9401E-06,2.0841E-06,1.2501E-06,8.2203E-07 "GLY","ppmV",2.5537E-07,2.6832E-07,2.7312E-07,2.7567E-07,2.7818E-07,2.7822E-07,2.7667E-07,2.7527E-07,2.7169E-07,2.6570E-07,2.5881E-07,2.5105E-07,2.4226E-07,2.3378E-07,2.2305E-07,2.2601E-07,2.4016E-07,2.5096E-07,2.6625E-07,2.7482E-07,2.7001E-07,2.6222E-07,2.6705E-07,2.6836E-07,2.6581E-07,2.6344E-07,2.6119E-07,2.5676E-07,2.4975E-07,2.3906E-07,2.2757E-07,2.1480E-07,2.0173E-07,1.9014E-07,1.8267E-07,1.7489E-07,1.5826E-07,1.2619E-07,8.1386E-08,3.5810E-08,1.4916E-08,6.2133E-09,3.0519E-09,2.3157E-09 "MGLY","ppmV",6.5773E-08,6.9345E-08,7.0775E-08,7.1633E-08,7.2315E-08,7.2493E-08,7.2139E-08,7.1882E-08,7.1429E-08,7.0383E-08,6.8797E-08,6.6420E-08,6.3719E-08,6.0198E-08,5.6251E-08,5.4195E-08,5.5289E-08,5.5414E-08,5.5552E-08,5.4325E-08,5.1054E-08,4.7860E-08,4.6957E-08,4.4676E-08,4.1922E-08,3.8618E-08,3.4784E-08,3.1015E-08,2.7478E-08,2.3657E-08,2.0046E-08,1.6866E-08,1.4357E-08,1.2528E-08,1.1268E-08,9.9664E-09,7.8799E-09,5.1047E-09,2.5147E-09,7.2007E-10,1.9692E-10,1.2191E-10,7.4357E-11,5.8247E-11 "ETH","ppmV",4.5334E-04,4.5337E-04,4.5339E-04,4.5340E-04,4.5336E-04,4.5338E-04,4.5335E-04,4.5343E-04,4.5335E-04,4.5298E-04,4.5212E-04,4.5125E-04,4.5044E-04,4.4929E-04,4.4765E-04,4.4637E-04,4.4436E-04,4.4266E-04,4.3946E-04,4.3437E-04,4.2818E-04,4.2223E-04,4.1901E-04,4.1602E-04,4.1290E-04,4.1197E-04,4.1169E-04,4.0892E-04,4.0380E-04,3.9702E-04,3.8862E-04,3.7915E-04,3.6724E-04,3.5368E-04,3.3886E-04,3.1718E-04,2.8553E-04,2.4667E-04,2.0175E-04,1.5201E-04,1.1769E-04,9.8593E-05,8.3365E-05,7.4939E-05 "EOH","ppmV",4.8736E-07,5.1500E-07,5.2604E-07,5.3333E-07,5.3977E-07,5.4571E-07,5.5212E-07,5.5981E-07,5.6917E-07,5.8084E-07,5.9488E-07,6.1435E-07,6.4601E-07,6.8986E-07,7.5830E-07,8.3772E-07,9.7557E-07,1.1558E-06,1.3056E-06,1.3915E-06,1.4046E-06,1.3780E-06,1.4153E-06,1.4580E-06,1.5025E-06,1.5503E-06,1.6233E-06,1.7221E-06,1.8429E-06,1.9604E-06,2.0679E-06,2.1654E-06,2.2518E-06,2.2951E-06,2.2723E-06,2.0567E-06,1.5895E-06,9.9747E-07,4.8242E-07,1.3382E-07,3.2627E-08,1.3080E-08,6.2428E-09,2.5258E-09 "MEK","ppmV",1.7301E-04,1.7958E-04,1.8290E-04,1.8571E-04,1.8870E-04,1.9207E-04,1.9616E-04,2.0152E-04,2.0694E-04,2.1342E-04,2.2127E-04,2.3111E-04,2.4494E-04,2.6231E-04,2.8300E-04,3.0590E-04,3.3282E-04,3.6061E-04,3.8266E-04,3.9887E-04,4.0734E-04,4.0949E-04,4.1856E-04,4.2774E-04,4.3355E-04,4.4088E-04,4.5008E-04,4.5691E-04,4.6129E-04,4.6150E-04,4.6071E-04,4.5885E-04,4.5460E-04,4.4811E-04,4.3848E-04,4.1574E-04,3.7429E-04,3.1437E-04,2.3532E-04,1.4665E-04,9.0187E-05,5.1031E-05,2.7422E-05,1.8680E-05 "KET","ppmV",1.7301E-04,1.7958E-04,1.8290E-04,1.8571E-04,1.8870E-04,1.9207E-04,1.9616E-04,2.0152E-04,2.0694E-04,2.1342E-04,2.2127E-04,2.3111E-04,2.4494E-04,2.6231E-04,2.8300E-04,3.0590E-04,3.3282E-04,3.6061E-04,3.8266E-04,3.9887E-04,4.0734E-04,4.0949E-04,4.1856E-04,4.2774E-04,4.3355E-04,4.4088E-04,4.5008E-04,4.5691E-04,4.6129E-04,4.6150E-04,4.6071E-04,4.5885E-04,4.5460E-04,4.4811E-04,4.3848E-04,4.1574E-04,3.7429E-04,3.1437E-04,2.3532E-04,1.4665E-04,9.0187E-05,5.1031E-05,2.7422E-05,1.8680E-05 "HC5","ppmV",4.8029E-04,4.8031E-04,4.8025E-04,4.8010E-04,4.7972E-04,4.7925E-04,4.7833E-04,4.7735E-04,4.7601E-04,4.7426E-04,4.7134E-04,4.6785E-04,4.6334E-04,4.5860E-04,4.5216E-04,4.4259E-04,4.3101E-04,4.2092E-04,4.0884E-04,3.9235E-04,3.7483E-04,3.5992E-04,3.5329E-04,3.4634E-04,3.3948E-04,3.3428E-04,3.2707E-04,3.1734E-04,3.0633E-04,2.9323E-04,2.7703E-04,2.5970E-04,2.3980E-04,2.1811E-04,1.9520E-04,1.6262E-04,1.1467E-04,6.3644E-05,2.6743E-05,5.7713E-06,1.1640E-06,7.2703E-07,6.4047E-07,1.8062E-07 "HC8","ppmV",4.8029E-04,4.8031E-04,4.8025E-04,4.8010E-04,4.7972E-04,4.7925E-04,4.7833E-04,4.7735E-04,4.7601E-04,4.7426E-04,4.7134E-04,4.6785E-04,4.6334E-04,4.5860E-04,4.5216E-04,4.4259E-04,4.3101E-04,4.2092E-04,4.0884E-04,3.9235E-04,3.7483E-04,3.5992E-04,3.5329E-04,3.4634E-04,3.3948E-04,3.3428E-04,3.2707E-04,3.1734E-04,3.0633E-04,2.9323E-04,2.7703E-04,2.5970E-04,2.3980E-04,2.1811E-04,1.9520E-04,1.6262E-04,1.1467E-04,6.3644E-05,2.6743E-05,5.7713E-06,1.1640E-06,7.2703E-07,6.4047E-07,1.8062E-07 "ACT","ppmV",5.9216E-05,6.1870E-05,6.3239E-05,6.4407E-05,6.5695E-05,6.7192E-05,6.9070E-05,7.1577E-05,7.4086E-05,7.7074E-05,8.0693E-05,8.5205E-05,9.1684E-05,9.9688E-05,1.0914E-04,1.1944E-04,1.3180E-04,1.4491E-04,1.5562E-04,1.6437E-04,1.7076E-04,1.7483E-04,1.8264E-04,1.9112E-04,1.9822E-04,2.0647E-04,2.1651E-04,2.2494E-04,2.3145E-04,2.3479E-04,2.3728E-04,2.3986E-04,2.4163E-04,2.4209E-04,2.3901E-04,2.2524E-04,1.9697E-04,1.5650E-04,1.0699E-04,5.6294E-05,2.9127E-05,1.3512E-05,5.4206E-06,2.9543E-06 "HC3","ppmV",5.1761E-05,5.1764E-05,5.1762E-05,5.1756E-05,5.1734E-05,5.1709E-05,5.1653E-05,5.1603E-05,5.1525E-05,5.1411E-05,5.1189E-05,5.0930E-05,5.0606E-05,5.0316E-05,4.9983E-05,4.9562E-05,4.8942E-05,4.8235E-05,4.7404E-05,4.6220E-05,4.5083E-05,4.4101E-05,4.3413E-05,4.2696E-05,4.1952E-05,4.1428E-05,4.0907E-05,4.0149E-05,3.9167E-05,3.7963E-05,3.6557E-05,3.5158E-05,3.3533E-05,3.1786E-05,2.9892E-05,2.6932E-05,2.2339E-05,1.6778E-05,1.1183E-05,6.1300E-06,3.4362E-06,2.1686E-06,1.3609E-06,1.0026E-06 "ACE","ppmV",6.2570E-05,6.2589E-05,6.2597E-05,6.2597E-05,6.2587E-05,6.2583E-05,6.2564E-05,6.2550E-05,6.2524E-05,6.2470E-05,6.2359E-05,6.2214E-05,6.2001E-05,6.1837E-05,6.1655E-05,6.1470E-05,6.1133E-05,6.0806E-05,6.0334E-05,5.9839E-05,5.9519E-05,5.9482E-05,6.0299E-05,6.1182E-05,6.2029E-05,6.3174E-05,6.4325E-05,6.5117E-05,6.5487E-05,6.5223E-05,6.4265E-05,6.2838E-05,6.0768E-05,5.7983E-05,5.4419E-05,4.8477E-05,3.9092E-05,2.7904E-05,1.7304E-05,8.6931E-06,4.8405E-06,3.0838E-06,1.9205E-06,1.4497E-06 "ETE","ppmV",3.1499E-06,3.1508E-06,3.1507E-06,3.1492E-06,3.1453E-06,3.1414E-06,3.1329E-06,3.1243E-06,3.1123E-06,3.0948E-06,3.0688E-06,3.0415E-06,3.0065E-06,2.9794E-06,2.9452E-06,2.8782E-06,2.8076E-06,2.7311E-06,2.6630E-06,2.5544E-06,2.4327E-06,2.3424E-06,2.3043E-06,2.2421E-06,2.1846E-06,2.1350E-06,2.0635E-06,1.9877E-06,1.9278E-06,1.8526E-06,1.7255E-06,1.5894E-06,1.4524E-06,1.3806E-06,1.3642E-06,1.1747E-06,8.1871E-07,3.8334E-07,1.2948E-07,2.7548E-08,6.5739E-09,2.5192E-09,6.7729E-10,1.3926E-10 "OLT","ppmV",1.3559E-07,1.3669E-07,1.3689E-07,1.3518E-07,1.3199E-07,1.2810E-07,1.2238E-07,1.1472E-07,1.0597E-07,9.3598E-08,8.2773E-08,7.1614E-08,5.9668E-08,4.9473E-08,4.1167E-08,3.3525E-08,2.7157E-08,2.2612E-08,1.9407E-08,1.6900E-08,1.5706E-08,1.4912E-08,1.4323E-08,1.4238E-08,1.4364E-08,1.4323E-08,1.4122E-08,1.4156E-08,1.4324E-08,1.4351E-08,1.3490E-08,1.2623E-08,1.1254E-08,9.9026E-09,7.7840E-09,5.1484E-09,3.1219E-09,1.4255E-09,5.0621E-10,1.3055E-10,3.7579E-11,1.2408E-11,2.1308E-12,1.5192E-13 "OLI","ppmV",7.4448E-09,7.6704E-09,7.7114E-09,7.4720E-09,7.1001E-09,6.6934E-09,6.1508E-09,5.4664E-09,4.7453E-09,3.6848E-09,2.9363E-09,2.2695E-09,1.6421E-09,1.1841E-09,8.8328E-10,6.3624E-10,4.4867E-10,3.0836E-10,2.1244E-10,1.4515E-10,1.1594E-10,1.0050E-10,6.9506E-11,6.1462E-11,6.0797E-11,6.0610E-11,5.8952E-11,5.3390E-11,4.6202E-11,3.8847E-11,3.0215E-11,2.6736E-11,2.7139E-11,2.8214E-11,2.5768E-11,2.1311E-11,1.4407E-11,6.8335E-12,1.7422E-12,1.7716E-13,4.5363E-15,6.8463E-17,5.3885E-19,4.3827E-21 "ISO","ppmV",9.1576E-09,9.2996E-09,9.3197E-09,9.1265E-09,8.8199E-09,8.4653E-09,7.9663E-09,7.3161E-09,6.6104E-09,5.5801E-09,4.7546E-09,3.9610E-09,3.1208E-09,2.4296E-09,1.9089E-09,1.4651E-09,1.0818E-09,7.7693E-10,5.5930E-10,3.8644E-10,3.0726E-10,2.5750E-10,1.9684E-10,1.7474E-10,1.6637E-10,1.5850E-10,1.4666E-10,1.2618E-10,1.0582E-10,8.7325E-11,6.7775E-11,5.5216E-11,4.6821E-11,3.5271E-11,2.2093E-11,1.2586E-11,5.6529E-12,6.9933E-13,7.6732E-14,1.4907E-15,9.2721E-18,2.4331E-19,9.6984E-21,1.1903E-22 "ISOP","ppmV",7.7054E-11,8.1346E-11,8.2374E-11,7.9991E-11,7.6413E-11,7.2710E-11,6.8124E-11,6.2302E-11,5.6108E-11,4.6150E-11,3.9625E-11,3.3972E-11,2.8394E-11,2.3312E-11,1.9199E-11,1.5348E-11,1.2156E-11,9.1534E-12,7.1782E-12,5.5981E-12,4.5468E-12,3.9636E-12,3.2952E-12,3.0479E-12,2.9881E-12,2.8836E-12,2.7315E-12,2.4200E-12,2.0555E-12,1.7525E-12,1.4062E-12,1.1821E-12,9.7574E-13,7.3569E-13,4.6393E-13,2.5604E-13,8.3812E-14,1.2181E-14,1.7028E-15,2.8962E-17,3.6540E-19,3.6930E-20,4.5241E-21,1.5416E-22 "MACR","ppmV",1.2026E-09,1.2255E-09,1.2393E-09,1.2432E-09,1.2321E-09,1.2118E-09,1.1754E-09,1.1202E-09,1.0529E-09,9.6099E-10,8.6524E-10,7.5597E-10,6.3451E-10,5.2772E-10,4.3704E-10,3.5024E-10,2.7477E-10,2.1661E-10,1.7911E-10,1.4757E-10,1.3322E-10,1.3098E-10,1.2534E-10,1.2378E-10,1.2503E-10,1.2284E-10,1.1778E-10,1.1832E-10,1.2606E-10,1.3628E-10,1.4380E-10,1.4673E-10,1.3400E-10,1.0895E-10,7.0142E-11,3.5707E-11,1.6789E-11,4.2000E-12,7.0294E-13,4.9412E-14,2.6367E-15,1.6618E-16,9.9292E-18,2.7414E-19 "MVK","ppmV",1.6189E-09,1.6498E-09,1.6684E-09,1.6736E-09,1.6585E-09,1.6313E-09,1.5822E-09,1.5079E-09,1.4173E-09,1.2936E-09,1.1648E-09,1.0176E-09,8.5414E-10,7.1040E-10,5.8832E-10,4.7147E-10,3.6988E-10,2.9159E-10,2.4112E-10,1.9865E-10,1.7934E-10,1.7632E-10,1.6872E-10,1.6663E-10,1.6831E-10,1.6536E-10,1.5854E-10,1.5927E-10,1.6969E-10,1.8346E-10,1.9357E-10,1.9752E-10,1.8039E-10,1.4666E-10,9.4422E-11,4.8067E-11,2.2601E-11,5.6539E-12,9.4626E-13,6.6516E-14,3.5494E-15,2.2371E-16,1.3366E-17,3.6903E-19 "HKET","ppmV",1.8039E-09,1.8383E-09,1.8590E-09,1.8648E-09,1.8481E-09,1.8177E-09,1.7631E-09,1.6802E-09,1.5793E-09,1.4415E-09,1.2979E-09,1.1339E-09,9.5176E-10,7.9158E-10,6.5556E-10,5.2536E-10,4.1215E-10,3.2492E-10,2.6867E-10,2.2136E-10,1.9983E-10,1.9647E-10,1.8801E-10,1.8568E-10,1.8755E-10,1.8426E-10,1.7666E-10,1.7747E-10,1.8908E-10,2.0442E-10,2.1569E-10,2.2009E-10,2.0100E-10,1.6342E-10,1.0521E-10,5.3560E-11,2.5184E-11,6.3000E-12,1.0544E-12,7.4118E-14,3.9550E-15,2.4928E-16,1.4894E-17,4.1121E-19 "ISON","ppmV",2.7569E-10,2.9100E-10,2.9938E-10,3.0336E-10,3.0357E-10,3.0078E-10,2.9389E-10,2.8136E-10,2.6713E-10,2.4767E-10,2.2718E-10,2.0449E-10,1.8156E-10,1.6249E-10,1.5024E-10,1.4596E-10,1.5678E-10,1.7701E-10,2.0405E-10,2.2771E-10,2.5300E-10,2.8243E-10,3.2460E-10,3.5441E-10,4.0413E-10,4.6691E-10,5.4254E-10,6.9906E-10,9.3968E-10,1.1883E-09,1.3740E-09,1.4286E-09,1.3367E-09,1.3019E-09,1.1331E-09,7.5247E-10,4.3975E-10,1.8113E-10,5.5602E-11,8.4463E-12,1.3901E-12,4.7342E-13,5.0055E-14,7.1452E-15 "ISHP","ppmV",5.5762E-10,5.8797E-10,6.0137E-10,6.0748E-10,6.0869E-10,6.0613E-10,5.9729E-10,5.7983E-10,5.5235E-10,5.0523E-10,4.6259E-10,4.1608E-10,3.6189E-10,3.1027E-10,2.6280E-10,2.1448E-10,1.7319E-10,1.3859E-10,1.1456E-10,9.4406E-11,8.4172E-11,7.8942E-11,7.0598E-11,6.4859E-11,6.1452E-11,5.8280E-11,5.5473E-11,5.4997E-11,5.7903E-11,6.0079E-11,5.8072E-11,5.2444E-11,4.0619E-11,2.9230E-11,1.7927E-11,8.6503E-12,3.2719E-12,6.9161E-13,6.5073E-14,2.0568E-15,1.1283E-16,1.0176E-17,1.1984E-18,3.3218E-20 "MACP","ppmV",1.3727E-09,1.3622E-09,1.3469E-09,1.3325E-09,1.3173E-09,1.2998E-09,1.2821E-09,1.2682E-09,1.2575E-09,1.2742E-09,1.2809E-09,1.2803E-09,1.2792E-09,1.2917E-09,1.3064E-09,1.3148E-09,1.3100E-09,1.3013E-09,1.2894E-09,1.2713E-09,1.2320E-09,1.2008E-09,1.1949E-09,1.1849E-09,1.1748E-09,1.1676E-09,1.1556E-09,1.1215E-09,1.0768E-09,1.0296E-09,9.7190E-10,9.1975E-10,8.5384E-10,7.8732E-10,7.3324E-10,6.7953E-10,5.8669E-10,4.5367E-10,2.8894E-10,1.2014E-10,5.0076E-11,2.7873E-11,1.6313E-11,1.2535E-11 "IEPOX","ppmV",1.5706E-09,1.6516E-09,1.6902E-09,1.7167E-09,1.7397E-09,1.7583E-09,1.7706E-09,1.7701E-09,1.7466E-09,1.6979E-09,1.6497E-09,1.5976E-09,1.5348E-09,1.4955E-09,1.6012E-09,1.9115E-09,2.2483E-09,2.7065E-09,3.1337E-09,3.5949E-09,4.1005E-09,4.3920E-09,4.6050E-09,5.3094E-09,6.8147E-09,9.3540E-09,1.3356E-08,1.9389E-08,2.9112E-08,4.3840E-08,6.7940E-08,9.5077E-08,1.2364E-07,1.5220E-07,1.6108E-07,1.4789E-07,1.1741E-07,8.0926E-08,4.0449E-08,9.1397E-09,8.5843E-10,1.8749E-10,3.5957E-11,7.2574E-12 "LIM","ppmV",3.5684E-15,3.5876E-15,3.6035E-15,3.6191E-15,3.6354E-15,3.6528E-15,3.6719E-15,3.6937E-15,3.7207E-15,3.7543E-15,3.7964E-15,3.8502E-15,3.9208E-15,4.0196E-15,4.1534E-15,4.3546E-15,4.6876E-15,5.3003E-15,6.3790E-15,8.4465E-15,1.2509E-14,1.7677E-14,1.9689E-14,2.0987E-14,1.9156E-14,1.7425E-14,1.9689E-14,3.2104E-14,6.1164E-14,1.0995E-13,1.6239E-13,1.9287E-13,1.9867E-13,1.9382E-13,2.7988E-13,3.3981E-13,1.2417E-13,1.3148E-14,1.5194E-15,5.7082E-17,2.7401E-19,1.8774E-21,1.2645E-23,1.0008E-24 "API","ppmV",3.8924E-20,3.8852E-20,3.8984E-20,3.9129E-20,3.9167E-20,3.9319E-20,3.9351E-20,3.9563E-20,3.9798E-20,4.0089E-20,4.0705E-20,4.1459E-20,4.2568E-20,4.4116E-20,4.6276E-20,4.9782E-20,5.6579E-20,7.7535E-20,1.0108E-19,2.8072E-19,6.3678E-19,8.8247E-19,1.2040E-18,1.9601E-18,3.3639E-18,5.4607E-18,8.0540E-18,1.0883E-17,1.2813E-17,1.3752E-17,1.0947E-17,3.8618E-18,8.0945E-19,4.9805E-20,4.6766E-21,2.7696E-21,1.6447E-21,2.9187E-22,5.3057E-23,1.9771E-24,9.6012E-25,9.6215E-25,9.5566E-25,9.4302E-25 "BENZENE","ppmV",2.1689E-05,2.1711E-05,2.1721E-05,2.1726E-05,2.1727E-05,2.1728E-05,2.1722E-05,2.1719E-05,2.1715E-05,2.1702E-05,2.1666E-05,2.1615E-05,2.1513E-05,2.1456E-05,2.1376E-05,2.1305E-05,2.1159E-05,2.1023E-05,2.0877E-05,2.0685E-05,2.0565E-05,2.0547E-05,2.0912E-05,2.1236E-05,2.1528E-05,2.1931E-05,2.2215E-05,2.2293E-05,2.2210E-05,2.1914E-05,2.1287E-05,2.0513E-05,1.9521E-05,1.8313E-05,1.6933E-05,1.4754E-05,1.1364E-05,7.4759E-06,4.1283E-06,1.6825E-06,7.7383E-07,4.4254E-07,2.3596E-07,1.5562E-07 "CSL","ppmV",1.1160E-07,1.1814E-07,1.2094E-07,1.2282E-07,1.2438E-07,1.2577E-07,1.2705E-07,1.2848E-07,1.3013E-07,1.3253E-07,1.3508E-07,1.3807E-07,1.4124E-07,1.4467E-07,1.4798E-07,1.5111E-07,1.5092E-07,1.4991E-07,1.4644E-07,1.4254E-07,1.3946E-07,1.4240E-07,1.5099E-07,1.6150E-07,1.7383E-07,1.9020E-07,2.0719E-07,2.2172E-07,2.3185E-07,2.3745E-07,2.3586E-07,2.2849E-07,2.1502E-07,1.9550E-07,1.6850E-07,1.3109E-07,8.5630E-08,4.4901E-08,1.8996E-08,6.2644E-09,2.5364E-09,1.2379E-09,6.2989E-10,4.4300E-10 "BENP","ppmV",1.3001E-09,1.2784E-09,1.2723E-09,1.2740E-09,1.2779E-09,1.2826E-09,1.2890E-09,1.2982E-09,1.3106E-09,1.3323E-09,1.3468E-09,1.3591E-09,1.3690E-09,1.3800E-09,1.3920E-09,1.3997E-09,1.3816E-09,1.3690E-09,1.3459E-09,1.2816E-09,1.1963E-09,1.1155E-09,1.0851E-09,1.0696E-09,1.0606E-09,1.0576E-09,1.0567E-09,1.0428E-09,1.0189E-09,9.7428E-10,9.1597E-10,8.5194E-10,7.7355E-10,6.9316E-10,6.2042E-10,5.4785E-10,4.5389E-10,3.3473E-10,2.1325E-10,9.9283E-11,5.1014E-11,3.8256E-11,2.8409E-11,2.3924E-11 "DCB2","ppmV",5.8021E-08,5.9264E-08,5.9771E-08,5.9985E-08,5.9951E-08,5.9834E-08,5.9456E-08,5.8960E-08,5.8328E-08,5.7367E-08,5.6187E-08,5.4888E-08,5.3486E-08,5.2037E-08,5.0205E-08,4.7821E-08,4.4754E-08,4.1920E-08,3.9085E-08,3.5995E-08,3.3250E-08,3.1879E-08,3.1771E-08,3.1964E-08,3.2411E-08,3.3157E-08,3.3487E-08,3.3382E-08,3.3078E-08,3.2421E-08,3.1450E-08,3.0821E-08,3.0069E-08,2.9170E-08,2.8671E-08,2.7771E-08,2.4845E-08,1.8926E-08,1.1531E-08,4.3655E-09,1.5318E-09,5.6551E-10,2.0567E-10,1.1809E-10 "BENZRO2","ppmV",4.1125E-09,3.9884E-09,3.9593E-09,3.9769E-09,4.0071E-09,4.0410E-09,4.0868E-09,4.1525E-09,4.2415E-09,4.4159E-09,4.5229E-09,4.5899E-09,4.6308E-09,4.6847E-09,4.7405E-09,4.7882E-09,4.7643E-09,4.7563E-09,4.7022E-09,4.4503E-09,4.0655E-09,3.7084E-09,3.5568E-09,3.4512E-09,3.3712E-09,3.3097E-09,3.2483E-09,3.1509E-09,3.0322E-09,2.8689E-09,2.6821E-09,2.4911E-09,2.2626E-09,2.0280E-09,1.8105E-09,1.5933E-09,1.3135E-09,9.6494E-10,6.1391E-10,2.8676E-10,1.4746E-10,1.1097E-10,8.2749E-11,6.9798E-11 "TOL","ppmV",4.0408E-06,4.0453E-06,4.0463E-06,4.0441E-06,4.0378E-06,4.0301E-06,4.0154E-06,3.9980E-06,3.9764E-06,3.9453E-06,3.9047E-06,3.8587E-06,3.7993E-06,3.7523E-06,3.6969E-06,3.6142E-06,3.5179E-06,3.4366E-06,3.3696E-06,3.2480E-06,3.1204E-06,3.0463E-06,3.0588E-06,3.0223E-06,2.9837E-06,2.9359E-06,2.8266E-06,2.7022E-06,2.5969E-06,2.4624E-06,2.2395E-06,1.9931E-06,1.7713E-06,1.5982E-06,1.4274E-06,1.1369E-06,7.4019E-07,3.3115E-07,1.0221E-07,1.6528E-08,1.9982E-09,5.0361E-10,1.3658E-10,3.8048E-11 "TLP1","ppmV",2.1535E-09,2.1108E-09,2.1003E-09,2.1023E-09,2.1068E-09,2.1122E-09,2.1184E-09,2.1268E-09,2.1395E-09,2.1566E-09,2.1638E-09,2.1633E-09,2.1590E-09,2.1734E-09,2.2104E-09,2.1927E-09,2.1299E-09,2.0843E-09,2.0900E-09,2.0098E-09,1.7758E-09,1.5729E-09,1.4416E-09,1.3600E-09,1.3191E-09,1.2920E-09,1.2550E-09,1.2080E-09,1.1695E-09,1.1123E-09,1.0248E-09,9.2592E-10,8.0286E-10,6.9429E-10,5.9063E-10,4.7251E-10,3.2247E-10,1.8107E-10,7.9273E-11,1.7987E-11,2.5713E-12,7.9088E-13,3.0230E-13,1.0126E-13 "TOLRO2","ppmV",3.7487E-09,3.6253E-09,3.5987E-09,3.6153E-09,3.6422E-09,3.6719E-09,3.7108E-09,3.7638E-09,3.8413E-09,3.9708E-09,4.0501E-09,4.0824E-09,4.0838E-09,4.1461E-09,4.2468E-09,4.2310E-09,4.1903E-09,4.1577E-09,4.2302E-09,4.0821E-09,3.4705E-09,2.9005E-09,2.5789E-09,2.3755E-09,2.2658E-09,2.1815E-09,2.0753E-09,1.9671E-09,1.8845E-09,1.7798E-09,1.6298E-09,1.4721E-09,1.2779E-09,1.1058E-09,9.3669E-10,7.4673E-10,5.0696E-10,2.8337E-10,1.2348E-10,2.8039E-11,4.0411E-12,1.2498E-12,4.7962E-13,1.6118E-13 "XYM","ppmV",1.4525E-07,1.4577E-07,1.4589E-07,1.4527E-07,1.4398E-07,1.4239E-07,1.3991E-07,1.3661E-07,1.3268E-07,1.2715E-07,1.2166E-07,1.1584E-07,1.0924E-07,1.0350E-07,9.8055E-08,9.1570E-08,8.5978E-08,8.2073E-08,7.8419E-08,7.2494E-08,6.6478E-08,6.2074E-08,6.0747E-08,5.8774E-08,5.6878E-08,5.4363E-08,5.0814E-08,4.6928E-08,4.3146E-08,3.8748E-08,3.2389E-08,2.6636E-08,2.1988E-08,1.8392E-08,1.5022E-08,1.1210E-08,7.1813E-09,3.0693E-09,8.9840E-10,1.5171E-10,2.6547E-11,9.2816E-12,2.2872E-12,3.3910E-13 "XYO","ppmV",1.2450E-07,1.2495E-07,1.2505E-07,1.2452E-07,1.2341E-07,1.2205E-07,1.1992E-07,1.1709E-07,1.1373E-07,1.0899E-07,1.0428E-07,9.9291E-08,9.3636E-08,8.8712E-08,8.4047E-08,7.8488E-08,7.3696E-08,7.0348E-08,6.7216E-08,6.2137E-08,5.6981E-08,5.3206E-08,5.2069E-08,5.0378E-08,4.8752E-08,4.6597E-08,4.3555E-08,4.0224E-08,3.6983E-08,3.3213E-08,2.7762E-08,2.2830E-08,1.8847E-08,1.5765E-08,1.2876E-08,9.6090E-09,6.1554E-09,2.6308E-09,7.7006E-10,1.3004E-10,2.2755E-11,7.9557E-12,1.9604E-12,2.9066E-13 "XYP","ppmV",1.4525E-07,1.4577E-07,1.4589E-07,1.4527E-07,1.4398E-07,1.4239E-07,1.3991E-07,1.3661E-07,1.3268E-07,1.2715E-07,1.2166E-07,1.1584E-07,1.0924E-07,1.0350E-07,9.8055E-08,9.1570E-08,8.5978E-08,8.2073E-08,7.8419E-08,7.2494E-08,6.6478E-08,6.2074E-08,6.0747E-08,5.8774E-08,5.6878E-08,5.4363E-08,5.0814E-08,4.6928E-08,4.3146E-08,3.8748E-08,3.2389E-08,2.6636E-08,2.1988E-08,1.8392E-08,1.5022E-08,1.1210E-08,7.1813E-09,3.0693E-09,8.9840E-10,1.5171E-10,2.6547E-11,9.2816E-12,2.2872E-12,3.3910E-13 "XYLRO2","ppmV",1.1294E-09,1.0991E-09,1.0902E-09,1.0878E-09,1.0837E-09,1.0778E-09,1.0690E-09,1.0574E-09,1.0459E-09,1.0315E-09,1.0059E-09,9.6841E-10,9.2084E-10,8.8704E-10,8.6275E-10,8.1295E-10,7.7155E-10,7.4046E-10,7.4040E-10,7.0368E-10,5.8769E-10,4.6118E-10,3.7188E-10,3.2278E-10,2.9974E-10,2.7854E-10,2.5297E-10,2.2691E-10,2.0443E-10,1.8268E-10,1.5512E-10,1.3077E-10,1.0349E-10,8.1503E-11,6.2751E-11,4.5749E-11,2.8515E-11,1.4498E-11,5.8948E-12,1.3711E-12,2.9833E-13,1.3654E-13,4.3844E-14,7.7603E-15 "NAPH","ppmV",9.8989E-09,9.9100E-09,9.9129E-09,9.9133E-09,9.9098E-09,9.9066E-09,9.8896E-09,9.8772E-09,9.8492E-09,9.8007E-09,9.7079E-09,9.6182E-09,9.4990E-09,9.4135E-09,9.2822E-09,8.9944E-09,8.7345E-09,8.5500E-09,8.3497E-09,7.9330E-09,7.5143E-09,7.1708E-09,7.1340E-09,6.9926E-09,6.8991E-09,6.7839E-09,6.5591E-09,6.2532E-09,5.9188E-09,5.4669E-09,4.6712E-09,3.8545E-09,3.1529E-09,2.6912E-09,2.0555E-09,1.2752E-09,7.1942E-10,3.1500E-10,1.1232E-10,3.1237E-11,1.1178E-11,4.9113E-12,1.2465E-12,1.8105E-13 "PAHRO2","ppmV",2.5360E-11,2.4556E-11,2.4365E-11,2.4445E-11,2.4587E-11,2.4746E-11,2.4942E-11,2.5232E-11,2.5613E-11,2.6236E-11,2.6561E-11,2.6752E-11,2.6840E-11,2.7247E-11,2.7813E-11,2.7407E-11,2.6991E-11,2.6785E-11,2.7622E-11,2.7066E-11,2.3166E-11,1.8481E-11,1.5050E-11,1.3134E-11,1.2432E-11,1.1863E-11,1.1135E-11,1.0312E-11,9.5998E-12,8.8519E-12,7.7178E-12,6.5620E-12,5.2289E-12,4.2005E-12,3.1950E-12,2.1917E-12,1.3115E-12,6.9355E-13,3.2417E-13,1.0887E-13,4.3598E-14,2.5072E-14,8.3808E-15,1.4486E-15 "MCT","ppmV",2.8949E-08,3.0731E-08,3.1550E-08,3.2151E-08,3.2722E-08,3.3286E-08,3.3896E-08,3.4600E-08,3.5454E-08,3.6604E-08,3.7750E-08,3.9054E-08,4.0475E-08,4.2180E-08,4.4552E-08,4.7050E-08,4.7749E-08,4.8282E-08,4.7457E-08,4.6036E-08,4.4960E-08,4.4934E-08,4.6802E-08,4.9649E-08,5.3296E-08,5.9603E-08,6.8244E-08,7.9125E-08,9.0548E-08,1.0183E-07,1.1543E-07,1.3259E-07,1.5233E-07,1.6616E-07,1.6908E-07,1.5482E-07,1.1809E-07,6.8201E-08,2.8808E-08,8.3940E-09,2.8220E-09,1.1101E-09,5.3810E-10,3.9876E-10 "MPAN","ppmV",3.0920E-07,3.1110E-07,3.1199E-07,3.1257E-07,3.1284E-07,3.1291E-07,3.1258E-07,3.1184E-07,3.1030E-07,3.0747E-07,3.0351E-07,2.9882E-07,2.9319E-07,2.8786E-07,2.8130E-07,2.7371E-07,2.6686E-07,2.6336E-07,2.6068E-07,2.5462E-07,2.4626E-07,2.3940E-07,2.3644E-07,2.2985E-07,2.2053E-07,2.0920E-07,1.9348E-07,1.7632E-07,1.5959E-07,1.4067E-07,1.1852E-07,9.8422E-08,8.1299E-08,6.9133E-08,5.9931E-08,4.9354E-08,3.6310E-08,2.3416E-08,1.3646E-08,6.1147E-09,3.0228E-09,2.0318E-09,1.0725E-09,5.9353E-10 "SESQ","ppmV",1.0291E-21,1.0505E-21,1.0549E-21,1.0488E-21,1.0173E-21,9.7724E-22,9.3585E-22,8.9413E-22,8.6027E-22,8.5445E-22,8.6817E-22,8.8141E-22,9.0237E-22,9.3247E-22,9.5750E-22,9.6989E-22,9.6659E-22,9.6455E-22,9.5785E-22,9.4554E-22,9.7628E-22,1.0001E-21,7.6756E-22,7.6844E-22,8.1954E-22,8.7543E-22,9.0393E-22,8.8117E-22,7.7182E-22,6.4036E-22,4.0706E-22,3.2135E-22,2.6878E-22,2.2622E-22,1.8010E-22,1.5230E-22,9.1786E-23,7.7408E-25,1.0346E-25,1.0195E-25,6.1488E-26,4.0527E-27,9.1608E-30,1.0107E-30 "SOAALK","ppmV",3.2902E-06,3.2927E-06,3.2923E-06,3.2862E-06,3.2731E-06,3.2579E-06,3.2318E-06,3.1995E-06,3.1586E-06,3.1004E-06,3.0298E-06,2.9540E-06,2.8624E-06,2.7787E-06,2.6807E-06,2.5322E-06,2.3802E-06,2.2331E-06,2.0941E-06,1.8898E-06,1.7153E-06,1.5687E-06,1.4614E-06,1.3605E-06,1.2615E-06,1.1535E-06,1.0381E-06,9.1650E-07,7.9913E-07,6.7184E-07,5.2908E-07,4.1095E-07,3.2078E-07,2.6131E-07,2.1400E-07,1.5492E-07,9.1077E-08,3.5906E-08,1.0296E-08,2.1715E-09,6.4111E-10,2.5073E-10,6.2314E-11,1.0491E-11 "VLVPO1","ppmV",2.7955E-07,2.7459E-07,2.6892E-07,2.6229E-07,2.5480E-07,2.4638E-07,2.3701E-07,2.2764E-07,2.1712E-07,2.0496E-07,1.9199E-07,1.7799E-07,1.6454E-07,1.5078E-07,1.3685E-07,1.2617E-07,1.2008E-07,1.1646E-07,1.0941E-07,9.8521E-08,8.4277E-08,6.9052E-08,5.5626E-08,4.3102E-08,3.2014E-08,2.2979E-08,1.5618E-08,9.8896E-09,5.7276E-09,3.0475E-09,1.4824E-09,6.5735E-10,2.6702E-10,1.0084E-10,3.7649E-11,1.5864E-11,8.6204E-12,5.5502E-12,3.6942E-12,2.4169E-12,1.5758E-12,1.2217E-12,1.2904E-12,2.1679E-12 "VSVPO1","ppmV",1.2367E-07,1.2534E-07,1.2533E-07,1.2437E-07,1.2276E-07,1.2056E-07,1.1769E-07,1.1430E-07,1.1072E-07,1.0605E-07,1.0145E-07,9.6525E-08,9.1134E-08,8.6646E-08,8.3962E-08,8.4156E-08,8.7618E-08,9.2388E-08,9.5026E-08,9.2721E-08,8.3785E-08,7.2349E-08,6.1564E-08,5.2963E-08,4.4686E-08,3.6185E-08,2.8072E-08,2.0257E-08,1.3849E-08,8.9516E-09,5.2835E-09,2.8196E-09,1.3735E-09,6.3929E-10,3.0394E-10,1.6432E-10,1.0651E-10,7.6755E-11,5.6105E-11,4.0281E-11,2.8753E-11,2.3911E-11,2.5923E-11,4.2383E-11 "VSVPO2","ppmV",5.6335E-08,5.9299E-08,6.0694E-08,6.0981E-08,6.0515E-08,5.9500E-08,5.7580E-08,5.4709E-08,5.1183E-08,4.6039E-08,4.1504E-08,3.6731E-08,3.1642E-08,2.7448E-08,2.4564E-08,2.2391E-08,2.2133E-08,2.1783E-08,2.3876E-08,2.4735E-08,2.5719E-08,2.7509E-08,2.8735E-08,3.0320E-08,3.1613E-08,3.1750E-08,3.0364E-08,2.6320E-08,2.1248E-08,1.6875E-08,1.2895E-08,8.7602E-09,5.4861E-09,3.4693E-09,2.3197E-09,1.6844E-09,1.3274E-09,1.0763E-09,8.4084E-10,6.2011E-10,4.4049E-10,3.3584E-10,3.1126E-10,4.3337E-10 "VSVPO3","ppmV",4.7055E-08,4.9941E-08,5.1304E-08,5.1455E-08,5.0794E-08,4.9661E-08,4.7603E-08,4.4565E-08,4.0809E-08,3.5263E-08,3.0639E-08,2.5902E-08,2.0850E-08,1.6487E-08,1.2990E-08,9.9280E-09,7.3907E-09,5.3751E-09,4.0517E-09,2.9879E-09,2.4000E-09,2.1093E-09,1.7883E-09,1.6747E-09,1.6830E-09,1.7728E-09,1.9425E-09,2.2029E-09,2.4028E-09,2.5062E-09,2.5161E-09,2.3831E-09,2.1281E-09,1.8614E-09,1.6502E-09,1.4452E-09,1.2499E-09,1.0501E-09,7.5075E-10,4.6197E-10,2.7494E-10,1.6689E-10,8.9911E-11,5.1560E-11 "VIVPO1","ppmV",1.1971E-07,1.2712E-07,1.3060E-07,1.3093E-07,1.2913E-07,1.2613E-07,1.2075E-07,1.1281E-07,1.0300E-07,8.8524E-08,7.6548E-08,6.4336E-08,5.1345E-08,4.0157E-08,3.1187E-08,2.3309E-08,1.6579E-08,1.1237E-08,7.6670E-09,4.9486E-09,3.5677E-09,2.8144E-09,1.7742E-09,1.3801E-09,1.2816E-09,1.2381E-09,1.2299E-09,1.2426E-09,1.2786E-09,1.3129E-09,1.2832E-09,1.2156E-09,1.1081E-09,1.0755E-09,1.0121E-09,7.9901E-10,6.0746E-10,4.4719E-10,2.3661E-10,8.7199E-11,3.1574E-11,1.2463E-11,2.7118E-12,2.8443E-13 "VLVOO1","ppmV",1.5069E-07,1.4599E-07,1.4135E-07,1.3634E-07,1.3091E-07,1.2492E-07,1.1843E-07,1.1150E-07,1.0403E-07,9.6136E-08,8.8130E-08,7.9968E-08,7.1840E-08,6.3883E-08,5.6413E-08,5.0539E-08,4.5756E-08,4.1372E-08,3.7022E-08,3.2158E-08,2.5976E-08,1.9739E-08,1.4098E-08,9.4759E-09,5.9634E-09,3.5977E-09,2.0997E-09,1.1725E-09,6.1800E-10,2.9943E-10,1.3217E-10,5.3279E-11,1.9475E-11,6.4347E-12,1.9529E-12,6.1486E-13,2.5708E-13,1.3974E-13,8.4263E-14,5.0222E-14,2.8937E-14,1.5022E-14,1.4670E-14,3.9369E-14 "VLVOO2","ppmV",1.6734E-07,1.6541E-07,1.6266E-07,1.5938E-07,1.5570E-07,1.5144E-07,1.4668E-07,1.4190E-07,1.3635E-07,1.2995E-07,1.2305E-07,1.1543E-07,1.0819E-07,1.0021E-07,9.1506E-08,8.4633E-08,8.0068E-08,7.6653E-08,7.1480E-08,6.3778E-08,5.3725E-08,4.3290E-08,3.3933E-08,2.5491E-08,1.8319E-08,1.2831E-08,8.5771E-09,5.4230E-09,3.1818E-09,1.7155E-09,8.4384E-10,3.7860E-10,1.5454E-10,5.8189E-11,2.0999E-11,8.2493E-12,4.2151E-12,2.6472E-12,1.7664E-12,1.1700E-12,7.7636E-13,6.0708E-13,6.4542E-13,1.0914E-12 "VSVOO1","ppmV",8.1698E-09,8.3944E-09,8.4778E-09,8.5238E-09,8.5703E-09,8.5952E-09,8.6074E-09,8.6194E-09,8.5729E-09,8.4733E-09,8.3269E-09,8.0902E-09,7.7953E-09,7.3198E-09,6.7923E-09,6.3620E-09,6.0613E-09,5.8005E-09,5.4223E-09,4.8747E-09,4.1473E-09,3.3928E-09,2.6384E-09,1.9856E-09,1.4470E-09,1.0280E-09,7.1506E-10,4.8382E-10,3.1764E-10,2.0269E-10,1.2352E-10,7.0534E-11,3.6831E-11,1.7630E-11,7.7682E-12,3.3566E-12,1.6507E-12,9.7324E-13,6.4727E-13,4.5635E-13,3.2885E-13,2.7032E-13,2.9452E-13,4.9153E-13 "VSVOO2","ppmV",2.5130E-08,2.6233E-08,2.6750E-08,2.7123E-08,2.7494E-08,2.7798E-08,2.8079E-08,2.8352E-08,2.8425E-08,2.8282E-08,2.7910E-08,2.7167E-08,2.6113E-08,2.4387E-08,2.2509E-08,2.0988E-08,1.9862E-08,1.8841E-08,1.7455E-08,1.5533E-08,1.3120E-08,1.0668E-08,8.1997E-09,6.1369E-09,4.5066E-09,3.2623E-09,2.3510E-09,1.6609E-09,1.1505E-09,7.9071E-10,5.4426E-10,3.7203E-10,2.5493E-10,1.7366E-10,1.1459E-10,7.2703E-11,4.6561E-11,3.2299E-11,2.3664E-11,1.8376E-11,1.4295E-11,1.1541E-11,1.1556E-11,1.7027E-11 "VSVOO3","ppmV",4.1746E-08,4.3688E-08,4.4622E-08,4.5314E-08,4.6007E-08,4.6600E-08,4.7175E-08,4.7770E-08,4.8011E-08,4.7875E-08,4.7335E-08,4.6183E-08,4.4537E-08,4.1711E-08,3.8558E-08,3.6035E-08,3.4169E-08,3.2495E-08,3.0124E-08,2.6757E-08,2.2602E-08,1.8367E-08,1.4104E-08,1.0525E-08,7.6546E-09,5.4877E-09,3.8946E-09,2.7178E-09,1.8964E-09,1.3388E-09,9.7168E-10,7.2623E-10,5.4705E-10,4.1172E-10,3.0211E-10,2.0931E-10,1.2633E-10,6.8487E-11,3.8847E-11,2.8151E-11,2.5152E-11,2.0025E-11,1.2591E-11,8.1505E-12 "PCVOC","ppmV",4.9809E-15,5.2824E-15,5.3892E-15,5.4491E-15,5.4907E-15,5.5230E-15,5.5512E-15,5.5783E-15,5.6060E-15,5.6358E-15,5.6692E-15,5.7098E-15,5.7597E-15,5.8344E-15,5.9542E-15,6.1542E-15,6.5551E-15,7.0948E-15,7.8255E-15,8.5945E-15,9.0104E-15,9.2048E-15,9.6979E-15,1.0158E-14,1.0744E-14,1.1224E-14,1.1675E-14,1.2132E-14,1.2885E-14,1.3159E-14,1.3940E-14,1.4285E-14,1.3911E-14,1.2792E-14,1.0844E-14,9.3133E-15,8.1628E-15,7.9231E-15,7.4709E-15,6.1903E-15,3.6407E-15,1.7913E-15,7.1677E-16,3.3191E-16 "DIEN","ppmV",2.5111E-12,2.5137E-12,2.5150E-12,2.5160E-12,2.5166E-12,2.5172E-12,2.5155E-12,2.5142E-12,2.5094E-12,2.5063E-12,2.4977E-12,2.4856E-12,2.4740E-12,2.4601E-12,2.4391E-12,2.3995E-12,2.3210E-12,2.2714E-12,2.3117E-12,2.4808E-12,2.1966E-12,1.6446E-12,1.2773E-12,1.1325E-12,1.0548E-12,8.2465E-13,5.4577E-13,3.7846E-13,2.7977E-13,2.0334E-13,8.4821E-14,2.9176E-14,2.0918E-14,3.4013E-14,4.1583E-14,4.6071E-14,2.1185E-14,1.9374E-15,5.5738E-17,2.7811E-18,2.5383E-19,2.3717E-20,2.0785E-21,2.0317E-22 "ASO4J","ug m-3",1.1382E+00,1.1327E+00,1.1287E+00,1.1242E+00,1.1190E+00,1.1120E+00,1.1033E+00,1.0912E+00,1.0782E+00,1.0585E+00,1.0330E+00,1.0041E+00,9.7205E-01,9.2947E-01,8.8373E-01,8.3808E-01,8.0560E-01,7.7749E-01,7.4420E-01,7.0397E-01,6.6340E-01,6.1484E-01,5.5662E-01,5.1088E-01,4.7249E-01,4.3772E-01,4.0770E-01,3.7737E-01,3.5330E-01,3.3039E-01,3.0285E-01,2.6988E-01,2.3432E-01,2.0173E-01,1.7256E-01,1.4670E-01,1.2626E-01,1.0900E-01,9.3371E-02,7.8086E-02,6.4168E-02,5.3016E-02,4.1057E-02,2.9179E-02 "ASO4I","ug m-3",1.1517E-02,1.1546E-02,1.1537E-02,1.1511E-02,1.1471E-02,1.1411E-02,1.1304E-02,1.1287E-02,1.1250E-02,1.1219E-02,1.1246E-02,1.1141E-02,1.1055E-02,1.0888E-02,1.0998E-02,1.1584E-02,1.2960E-02,1.4296E-02,1.4982E-02,1.4922E-02,1.4432E-02,1.3386E-02,1.2380E-02,1.1334E-02,1.0241E-02,9.4226E-03,8.8491E-03,8.1943E-03,7.6738E-03,7.0716E-03,6.2827E-03,5.3855E-03,4.4888E-03,3.7348E-03,2.9597E-03,2.1297E-03,1.3619E-03,7.9038E-04,4.5414E-04,2.5651E-04,1.4850E-04,7.7908E-05,3.9329E-05,2.4222E-05 "ANH4J","ug m-3",5.2384E-02,5.3795E-02,5.4744E-02,5.5364E-02,5.6225E-02,5.7266E-02,5.8101E-02,5.9205E-02,5.9557E-02,5.9730E-02,5.9410E-02,6.0231E-02,6.2947E-02,6.6495E-02,7.0935E-02,7.5534E-02,7.9897E-02,8.4637E-02,8.5366E-02,8.3819E-02,8.2218E-02,7.8178E-02,7.3050E-02,6.8798E-02,6.5520E-02,6.3769E-02,6.4509E-02,6.6795E-02,7.0771E-02,7.2964E-02,7.1284E-02,6.6727E-02,6.1501E-02,5.7146E-02,5.3278E-02,4.9808E-02,4.7065E-02,4.3801E-02,3.8078E-02,3.2277E-02,2.5561E-02,2.0279E-02,1.5346E-02,1.0758E-02 "ANH4I","ug m-3",3.0454E-03,3.1264E-03,3.1619E-03,3.1826E-03,3.2101E-03,3.2419E-03,3.2727E-03,3.3980E-03,3.4965E-03,3.5970E-03,3.7746E-03,3.9358E-03,4.1802E-03,4.5501E-03,5.0791E-03,5.8677E-03,6.9141E-03,7.8925E-03,8.5792E-03,8.8472E-03,8.8801E-03,8.5705E-03,8.2530E-03,8.1213E-03,8.0835E-03,8.3538E-03,9.2432E-03,1.0480E-02,1.2138E-02,1.3316E-02,1.3377E-02,1.2742E-02,1.2018E-02,1.1388E-02,1.0355E-02,8.9293E-03,7.3292E-03,6.2911E-03,5.7576E-03,3.4869E-03,1.3859E-03,7.0249E-04,4.4856E-04,3.2266E-04 "ANO3J","ug m-3",9.2350E-02,9.1651E-02,9.1148E-02,9.0536E-02,8.9583E-02,8.8432E-02,8.6593E-02,8.4895E-02,8.2624E-02,7.9670E-02,7.4572E-02,6.8464E-02,6.1315E-02,5.4633E-02,4.7162E-02,3.9453E-02,3.3081E-02,2.7565E-02,2.3787E-02,2.3360E-02,2.5953E-02,2.8951E-02,3.2963E-02,3.8135E-02,4.3135E-02,4.9702E-02,5.9633E-02,7.2417E-02,8.8949E-02,1.0491E-01,1.0864E-01,1.0534E-01,9.9642E-02,9.5378E-02,9.1700E-02,8.8799E-02,8.8861E-02,8.9061E-02,8.9880E-02,8.8122E-02,8.0131E-02,6.9027E-02,5.4429E-02,4.4660E-02 "ANO3I","ug m-3",3.7081E-03,3.6921E-03,3.6833E-03,3.6727E-03,3.6563E-03,3.6361E-03,3.6085E-03,3.5718E-03,3.5267E-03,3.4603E-03,3.3293E-03,3.1790E-03,3.0325E-03,2.8732E-03,2.7393E-03,2.6384E-03,2.5452E-03,2.5027E-03,2.5806E-03,2.8800E-03,3.5438E-03,4.1009E-03,4.5612E-03,5.2613E-03,6.3063E-03,7.9127E-03,1.0324E-02,1.3565E-02,1.8377E-02,2.2866E-02,2.4027E-02,2.3618E-02,2.3336E-02,2.4064E-02,2.5099E-02,2.6170E-02,2.7959E-02,3.1779E-02,3.8151E-02,3.8920E-02,3.0937E-02,2.1951E-02,1.2565E-02,6.7562E-03 "AISO1J","ug m-3",2.4740E-05,2.6236E-05,2.7112E-05,2.7954E-05,2.8920E-05,3.0455E-05,3.2948E-05,3.7541E-05,4.2235E-05,4.6927E-05,5.2959E-05,5.9000E-05,7.0919E-05,8.9097E-05,1.1448E-04,1.4458E-04,2.1084E-04,2.7393E-04,2.6797E-04,2.5652E-04,2.2358E-04,1.6929E-04,1.6640E-04,1.7590E-04,1.8426E-04,1.9750E-04,2.3138E-04,2.7477E-04,3.2887E-04,3.7860E-04,4.3644E-04,5.1566E-04,5.9214E-04,6.5515E-04,6.9040E-04,6.7703E-04,6.2452E-04,4.9438E-04,2.8909E-04,9.3548E-05,2.1491E-05,4.6673E-06,9.7492E-07,2.6421E-07 "AISO2J","ug m-3",2.7661E-06,2.8746E-06,2.9318E-06,2.9790E-06,3.0273E-06,3.0779E-06,3.1432E-06,3.2346E-06,3.3365E-06,3.4746E-06,3.6769E-06,4.0405E-06,5.0617E-06,5.9131E-06,6.3756E-06,6.6978E-06,7.2669E-06,7.7233E-06,7.9611E-06,7.9581E-06,7.5975E-06,6.8302E-06,6.5821E-06,6.9596E-06,7.4673E-06,8.3184E-06,9.6086E-06,1.1085E-05,1.3202E-05,1.5652E-05,1.8371E-05,2.0161E-05,2.0290E-05,1.9889E-05,1.9382E-05,1.8119E-05,1.5118E-05,1.0682E-05,5.9430E-06,1.5981E-06,2.1259E-07,2.0070E-08,1.5500E-09,1.0218E-10 "ASQTJ","ug m-3",2.6057E-05,2.7455E-05,2.8243E-05,2.8955E-05,2.9780E-05,3.0712E-05,3.1986E-05,3.4377E-05,3.7285E-05,4.1003E-05,4.6394E-05,5.2040E-05,6.1578E-05,7.5350E-05,9.5824E-05,1.1353E-04,1.6756E-04,2.1815E-04,2.1307E-04,1.8468E-04,1.4855E-04,1.0682E-04,9.3786E-05,9.2725E-05,9.5087E-05,1.0051E-04,1.1529E-04,1.3229E-04,1.5188E-04,1.6838E-04,1.8455E-04,2.0020E-04,2.0786E-04,2.1300E-04,2.1297E-04,2.0081E-04,1.6764E-04,1.1613E-04,5.7297E-05,1.3538E-05,1.8184E-06,1.8211E-07,1.7608E-08,2.4801E-09 "AORGCJ","ug m-3",2.4200E-03,2.4194E-03,2.4163E-03,2.4118E-03,2.4071E-03,2.4079E-03,2.4148E-03,2.4276E-03,2.4398E-03,2.4359E-03,2.4285E-03,2.4302E-03,2.4602E-03,2.4839E-03,2.5161E-03,2.5677E-03,2.6533E-03,2.7307E-03,2.7476E-03,2.7267E-03,2.6404E-03,2.5083E-03,2.3874E-03,2.2963E-03,2.2136E-03,2.1229E-03,2.0566E-03,1.9700E-03,1.8999E-03,1.8122E-03,1.7139E-03,1.6141E-03,1.5003E-03,1.4035E-03,1.3288E-03,1.2486E-03,1.1642E-03,1.0902E-03,9.6226E-04,7.7475E-04,6.1298E-04,4.7457E-04,3.4776E-04,2.4206E-04 "AECJ","ug m-3",2.2178E-02,2.2171E-02,2.2139E-02,2.2097E-02,2.2055E-02,2.2075E-02,2.2169E-02,2.2433E-02,2.2676E-02,2.2628E-02,2.2437E-02,2.2248E-02,2.2129E-02,2.1775E-02,2.1752E-02,2.2262E-02,2.3402E-02,2.4391E-02,2.4766E-02,2.4166E-02,2.2836E-02,2.0664E-02,1.9072E-02,1.7860E-02,1.6686E-02,1.5683E-02,1.5201E-02,1.4689E-02,1.4175E-02,1.3407E-02,1.2458E-02,1.1457E-02,1.0196E-02,8.7521E-03,7.3123E-03,6.0159E-03,4.9169E-03,3.8781E-03,3.0428E-03,2.3704E-03,1.8440E-03,1.4895E-03,1.1293E-03,7.8632E-04 "AECI","ug m-3",5.8546E-04,5.8696E-04,5.8653E-04,5.8504E-04,5.8282E-04,5.7990E-04,5.7608E-04,5.8200E-04,5.8907E-04,5.9455E-04,5.9740E-04,5.9442E-04,5.9254E-04,5.8327E-04,5.8105E-04,6.0427E-04,6.5238E-04,7.0015E-04,7.0789E-04,6.8591E-04,6.3564E-04,5.6465E-04,5.4358E-04,5.3856E-04,5.3481E-04,5.4764E-04,5.6656E-04,5.5915E-04,5.4083E-04,4.9664E-04,4.4695E-04,4.0138E-04,3.5181E-04,3.0468E-04,2.5165E-04,1.8617E-04,1.1017E-04,4.7690E-05,1.4324E-05,2.6696E-06,6.8031E-07,3.4806E-07,1.4792E-07,5.1840E-08 "AOTHRJ","ug m-3",2.1059E-01,2.1049E-01,2.1019E-01,2.0979E-01,2.0945E-01,2.0940E-01,2.0967E-01,2.1146E-01,2.1368E-01,2.1487E-01,2.1625E-01,2.1743E-01,2.1998E-01,2.2378E-01,2.3565E-01,2.5326E-01,2.9056E-01,3.2674E-01,3.6398E-01,3.8704E-01,3.9870E-01,3.9505E-01,3.9047E-01,3.9031E-01,3.8555E-01,3.6597E-01,3.4192E-01,3.1270E-01,2.8760E-01,2.7310E-01,2.5619E-01,2.2837E-01,1.9404E-01,1.5935E-01,1.2619E-01,9.6685E-02,7.1290E-02,5.3099E-02,4.1162E-02,3.1179E-02,2.3365E-02,1.9161E-02,1.4347E-02,9.6274E-03 "AOTHRI","ug m-3",2.5640E-03,2.5718E-03,2.5715E-03,2.5680E-03,2.5622E-03,2.5543E-03,2.5439E-03,2.5329E-03,2.5218E-03,2.5068E-03,2.4951E-03,2.4872E-03,2.4860E-03,2.4797E-03,2.4729E-03,2.4769E-03,2.4897E-03,2.5060E-03,2.4377E-03,2.3171E-03,2.1715E-03,2.0167E-03,1.9114E-03,1.8145E-03,1.6996E-03,1.6100E-03,1.5265E-03,1.4237E-03,1.3282E-03,1.2128E-03,1.0843E-03,9.5687E-04,8.1781E-04,6.8886E-04,5.4789E-04,3.7545E-04,2.0337E-04,8.6063E-05,2.9141E-05,6.6883E-06,2.3820E-06,1.2266E-06,5.5907E-07,1.9979E-07 "AFEJ","ug m-3",1.5944E-02,1.5937E-02,1.5913E-02,1.5882E-02,1.5854E-02,1.5845E-02,1.5858E-02,1.5979E-02,1.6129E-02,1.6204E-02,1.6292E-02,1.6363E-02,1.6526E-02,1.6773E-02,1.7619E-02,1.8896E-02,2.1631E-02,2.4231E-02,2.6807E-02,2.8288E-02,2.8902E-02,2.8463E-02,2.7953E-02,2.7798E-02,2.7355E-02,2.5886E-02,2.4137E-02,2.2034E-02,2.0237E-02,1.9194E-02,1.7980E-02,1.6010E-02,1.3581E-02,1.1128E-02,8.7875E-03,6.7116E-03,4.9309E-03,3.6585E-03,2.8267E-03,2.1322E-03,1.5940E-03,1.3098E-03,9.8129E-04,6.5785E-04 "AALJ","ug m-3",2.5489E-02,2.5477E-02,2.5440E-02,2.5390E-02,2.5348E-02,2.5338E-02,2.5364E-02,2.5571E-02,2.5828E-02,2.5964E-02,2.6128E-02,2.6264E-02,2.6558E-02,2.7004E-02,2.8426E-02,3.0542E-02,3.5063E-02,3.9410E-02,4.3791E-02,4.6424E-02,4.7648E-02,4.7073E-02,4.6366E-02,4.6211E-02,4.5553E-02,4.3153E-02,4.0243E-02,3.6715E-02,3.3692E-02,3.1951E-02,2.9941E-02,2.6651E-02,2.2604E-02,1.8517E-02,1.4619E-02,1.1157E-02,8.1791E-03,6.0578E-03,4.6772E-03,3.5288E-03,2.6352E-03,2.1663E-03,1.6222E-03,1.0862E-03 "ASIJ","ug m-3",7.7943E-02,7.7906E-02,7.7795E-02,7.7653E-02,7.7540E-02,7.7548E-02,7.7690E-02,7.8429E-02,7.9346E-02,7.9894E-02,8.0553E-02,8.1150E-02,8.2300E-02,8.3978E-02,8.8790E-02,9.5753E-02,1.1034E-01,1.2457E-01,1.3945E-01,1.4887E-01,1.5386E-01,1.5288E-01,1.5152E-01,1.5187E-01,1.5031E-01,1.4280E-01,1.3340E-01,1.2182E-01,1.1185E-01,1.0618E-01,9.9647E-02,8.8780E-02,7.5362E-02,6.1782E-02,4.8796E-02,3.7253E-02,2.7282E-02,2.0205E-02,1.5621E-02,1.1806E-02,8.8161E-03,7.2514E-03,5.4314E-03,3.6356E-03 "ATIJ","ug m-3",1.3234E-03,1.3228E-03,1.3208E-03,1.3183E-03,1.3162E-03,1.3158E-03,1.3174E-03,1.3283E-03,1.3417E-03,1.3489E-03,1.3573E-03,1.3646E-03,1.3798E-03,1.4025E-03,1.4749E-03,1.5829E-03,1.8130E-03,2.0333E-03,2.2526E-03,2.3816E-03,2.4387E-03,2.4049E-03,2.3643E-03,2.3512E-03,2.3137E-03,2.1899E-03,2.0424E-03,1.8661E-03,1.7152E-03,1.6264E-03,1.5226E-03,1.3547E-03,1.1486E-03,9.4094E-04,7.4293E-04,5.6730E-04,4.1701E-04,3.0945E-04,2.3906E-04,1.8047E-04,1.3506E-04,1.1099E-04,8.3203E-05,5.5823E-05 "ACAJ","ug m-3",5.0351E-02,4.9536E-02,4.9090E-02,4.8722E-02,4.8361E-02,4.8056E-02,4.7751E-02,4.7689E-02,4.7687E-02,4.7416E-02,4.7060E-02,4.6527E-02,4.6061E-02,4.5535E-02,4.6173E-02,4.7866E-02,5.2843E-02,5.7652E-02,6.2737E-02,6.5675E-02,6.6926E-02,6.5864E-02,6.4671E-02,6.4374E-02,6.3445E-02,6.0149E-02,5.6148E-02,5.1277E-02,4.7085E-02,4.4667E-02,4.1871E-02,3.7299E-02,3.1668E-02,2.5974E-02,2.0534E-02,1.5705E-02,1.1536E-02,8.5576E-03,6.6097E-03,4.9922E-03,3.7310E-03,3.0649E-03,2.2958E-03,1.5388E-03 "AMGJ","ug m-3",6.0177E-02,5.7686E-02,5.6435E-02,5.5470E-02,5.4493E-02,5.3541E-02,5.2411E-02,5.1309E-02,5.0183E-02,4.8707E-02,4.6896E-02,4.4628E-02,4.1800E-02,3.8207E-02,3.4497E-02,3.1320E-02,2.9079E-02,2.6894E-02,2.5144E-02,2.3403E-02,2.1855E-02,2.0258E-02,1.8669E-02,1.7790E-02,1.7089E-02,1.6025E-02,1.4901E-02,1.3589E-02,1.2486E-02,1.1823E-02,1.1067E-02,9.8768E-03,8.4353E-03,6.9864E-03,5.5965E-03,4.3530E-03,3.2675E-03,2.4693E-03,1.9285E-03,1.4834E-03,1.1232E-03,9.1393E-04,6.8578E-04,4.6439E-04 "AKJ","ug m-3",3.6513E-02,3.5732E-02,3.5319E-02,3.4988E-02,3.4660E-02,3.4378E-02,3.4089E-02,3.3961E-02,3.3859E-02,3.3509E-02,3.3005E-02,3.2354E-02,3.1668E-02,3.0769E-02,3.0391E-02,3.0688E-02,3.2731E-02,3.4635E-02,3.6513E-02,3.7279E-02,3.7109E-02,3.5772E-02,3.4491E-02,3.3896E-02,3.3106E-02,3.1264E-02,2.9187E-02,2.6679E-02,2.4504E-02,2.3172E-02,2.1645E-02,1.9331E-02,1.6455E-02,1.3531E-02,1.0721E-02,8.2458E-03,6.0937E-03,4.5092E-03,3.4506E-03,2.5945E-03,1.9373E-03,1.5887E-03,1.1901E-03,7.9923E-04 "AMNJ","ug m-3",5.1865E-04,5.1841E-04,5.1764E-04,5.1666E-04,5.1584E-04,5.1572E-04,5.1637E-04,5.2075E-04,5.2617E-04,5.2917E-04,5.3276E-04,5.3593E-04,5.4223E-04,5.5162E-04,5.8085E-04,6.2430E-04,7.1627E-04,8.0404E-04,8.9206E-04,9.4384E-04,9.6699E-04,9.5450E-04,9.3947E-04,9.3599E-04,9.2241E-04,8.7365E-04,8.1484E-04,7.4356E-04,6.8248E-04,6.4729E-04,6.0658E-04,5.4013E-04,4.5815E-04,3.7531E-04,2.9631E-04,2.2622E-04,1.6597E-04,1.2303E-04,9.5022E-05,7.1651E-05,5.3524E-05,4.4028E-05,3.2993E-05,2.2104E-05 "ACORS","ug m-3",2.9670E-02,3.0167E-02,3.0251E-02,3.0254E-02,3.0298E-02,3.0423E-02,3.0609E-02,3.0849E-02,3.1065E-02,3.0965E-02,3.0641E-02,3.0336E-02,3.0142E-02,3.0281E-02,3.1250E-02,3.2978E-02,3.6492E-02,3.9793E-02,4.1324E-02,4.0099E-02,3.7233E-02,3.3999E-02,3.1814E-02,3.0239E-02,2.8854E-02,2.7761E-02,2.6623E-02,2.5223E-02,2.3536E-02,2.1452E-02,1.9604E-02,1.7983E-02,1.5959E-02,1.3725E-02,1.1431E-02,9.1518E-03,6.7984E-03,4.3171E-03,2.2803E-03,1.0357E-03,5.0993E-04,2.8283E-04,1.4741E-04,7.6336E-05 "ASOIL","ug m-3",2.2074E+00,2.2478E+00,2.2559E+00,2.2572E+00,2.2590E+00,2.2625E+00,2.2682E+00,2.2871E+00,2.3012E+00,2.3026E+00,2.3089E+00,2.3031E+00,2.3194E+00,2.3848E+00,2.5576E+00,2.7937E+00,3.2807E+00,3.7451E+00,4.1779E+00,4.4499E+00,4.5686E+00,4.5496E+00,4.5521E+00,4.5791E+00,4.4862E+00,4.2326E+00,3.9389E+00,3.6221E+00,3.3571E+00,3.1682E+00,2.9028E+00,2.5025E+00,2.0563E+00,1.6218E+00,1.2168E+00,8.5938E-01,5.4487E-01,3.2154E-01,1.8423E-01,9.0344E-02,4.3932E-02,2.5650E-02,1.4212E-02,7.3011E-03 "NUMATKN","m-3",1.8767E+08,1.9098E+08,1.9185E+08,1.9184E+08,1.9123E+08,1.9020E+08,1.8837E+08,1.8679E+08,1.8477E+08,1.8189E+08,1.7860E+08,1.7423E+08,1.6993E+08,1.6742E+08,1.7113E+08,1.8689E+08,2.2236E+08,2.7020E+08,3.2338E+08,3.9010E+08,4.6375E+08,5.3482E+08,5.9210E+08,6.5192E+08,7.2405E+08,8.2380E+08,9.8194E+08,1.2004E+09,1.4892E+09,2.0408E+09,2.9785E+09,4.2039E+09,6.0741E+09,9.0243E+09,1.1744E+10,1.3604E+10,1.4613E+10,1.3966E+10,1.0973E+10,7.2949E+09,3.9996E+09,1.7364E+09,8.8655E+08,5.1234E+08 "NUMACC","m-3",4.3441E+08,4.1701E+08,4.0846E+08,4.0196E+08,3.9549E+08,3.8909E+08,3.8160E+08,3.7410E+08,3.6631E+08,3.5628E+08,3.4392E+08,3.2872E+08,3.1027E+08,2.8666E+08,2.6217E+08,2.4199E+08,2.2789E+08,2.1427E+08,2.0460E+08,1.9656E+08,1.9053E+08,1.8522E+08,1.8009E+08,1.7960E+08,1.8086E+08,1.8368E+08,1.8930E+08,1.9822E+08,2.0856E+08,2.2085E+08,2.3542E+08,2.5044E+08,2.6965E+08,2.9833E+08,3.3851E+08,3.8852E+08,4.6721E+08,5.5394E+08,5.6223E+08,4.8004E+08,3.0640E+08,1.6321E+08,9.3611E+07,5.5530E+07 "NUMCOR","m-3",2.7667E+06,2.6469E+06,2.5900E+06,2.5475E+06,2.5072E+06,2.4681E+06,2.4230E+06,2.3765E+06,2.3255E+06,2.2567E+06,2.1670E+06,2.0480E+06,1.8931E+06,1.7039E+06,1.5092E+06,1.3356E+06,1.1895E+06,1.0475E+06,9.3182E+05,8.2756E+05,7.4705E+05,6.7698E+05,6.1444E+05,5.7935E+05,5.5233E+05,5.1710E+05,4.8032E+05,4.3745E+05,4.0194E+05,3.8005E+05,3.5477E+05,3.1565E+05,2.6871E+05,2.2211E+05,1.7676E+05,1.3545E+05,9.8198E+04,6.9394E+04,4.8743E+04,3.2148E+04,2.0867E+04,1.4559E+04,9.5386E+03,5.8367E+03 "SRFATKN","m2 m-3",9.3897E-07,9.4477E-07,9.4563E-07,9.4390E-07,9.4028E-07,9.3503E-07,9.2557E-07,9.2234E-07,9.1641E-07,9.0678E-07,8.9477E-07,8.7377E-07,8.5460E-07,8.3774E-07,8.4351E-07,8.9463E-07,1.0017E-06,1.1178E-06,1.2292E-06,1.3140E-06,1.3854E-06,1.4097E-06,1.4198E-06,1.4412E-06,1.4666E-06,1.5380E-06,1.6974E-06,1.9156E-06,2.1877E-06,2.5034E-06,2.7525E-06,2.9869E-06,3.3033E-06,3.7559E-06,4.2115E-06,4.7649E-06,5.4733E-06,6.1169E-06,6.1361E-06,5.2644E-06,3.4385E-06,1.7763E-06,8.5142E-07,3.7784E-07 "SRFACC","m2 m-3",2.5550E-05,2.4909E-05,2.4585E-05,2.4327E-05,2.4066E-05,2.3805E-05,2.3497E-05,2.3207E-05,2.2907E-05,2.2473E-05,2.1917E-05,2.1307E-05,2.0678E-05,1.9815E-05,1.8898E-05,1.8206E-05,1.7960E-05,1.7580E-05,1.7123E-05,1.6533E-05,1.5843E-05,1.4920E-05,1.3872E-05,1.3251E-05,1.2726E-05,1.2177E-05,1.1737E-05,1.1303E-05,1.0967E-05,1.0751E-05,1.0377E-05,9.7365E-06,8.9973E-06,8.3419E-06,7.8050E-06,7.3733E-06,7.3060E-06,7.4765E-06,7.4106E-06,6.5298E-06,4.7500E-06,3.2282E-06,2.1183E-06,1.3775E-06 "SRFCOR","m2 m-3",3.0611E-05,2.9251E-05,2.8559E-05,2.8028E-05,2.7516E-05,2.7019E-05,2.6450E-05,2.5850E-05,2.5185E-05,2.4282E-05,2.3107E-05,2.1570E-05,1.9629E-05,1.7457E-05,1.5359E-05,1.3531E-05,1.2048E-05,1.0603E-05,9.4344E-06,8.3741E-06,7.5538E-06,6.8348E-06,6.2108E-06,5.8475E-06,5.5441E-06,5.1637E-06,4.7718E-06,4.3401E-06,3.9838E-06,3.7379E-06,3.4442E-06,3.0225E-06,2.5416E-06,2.0701E-06,1.6194E-06,1.2117E-06,8.4248E-07,5.5656E-07,3.5465E-07,2.0269E-07,1.1320E-07,6.8451E-08,3.9520E-08,2.1763E-08 "AH2OJ","ug m-3",5.8150E+00,5.5385E+00,5.5565E+00,5.6557E+00,5.7917E+00,5.9764E+00,6.1885E+00,6.4270E+00,6.7166E+00,6.9143E+00,7.0079E+00,6.9400E+00,6.7242E+00,6.3318E+00,5.6645E+00,4.7526E+00,3.5548E+00,2.5367E+00,1.6482E+00,1.0821E+00,7.1200E-01,5.2594E-01,4.2566E-01,3.6688E-01,3.2902E-01,3.1140E-01,2.8180E-01,2.6712E-01,2.4630E-01,2.2680E-01,2.0588E-01,1.8729E-01,1.7005E-01,1.5109E-01,1.3343E-01,1.1564E-01,9.7226E-02,7.5790E-02,5.2244E-02,3.6388E-02,2.7016E-02,2.1612E-02,1.6115E-02,9.4511E-03 "AH2OI","ug m-3",3.3629E-02,3.3648E-02,3.4817E-02,3.6331E-02,3.8102E-02,4.0326E-02,4.2650E-02,4.5277E-02,4.8285E-02,5.1577E-02,5.3487E-02,5.6478E-02,5.9906E-02,6.1715E-02,6.0472E-02,5.5745E-02,4.5120E-02,3.5442E-02,2.6002E-02,2.0194E-02,1.5666E-02,1.2004E-02,1.1391E-02,1.0943E-02,1.1715E-02,1.3469E-02,1.3521E-02,1.5148E-02,1.5182E-02,1.5296E-02,1.5322E-02,1.5117E-02,1.4639E-02,1.3613E-02,1.1830E-02,9.5543E-03,7.1156E-03,5.1196E-03,3.2831E-03,1.2060E-03,1.6007E-04,4.6063E-05,2.9180E-05,2.1434E-05 "AH3OPJ","ug m-3",1.6365E-02,1.7126E-02,1.7576E-02,1.7859E-02,1.8105E-02,1.8131E-02,1.8191E-02,1.7850E-02,1.7693E-02,1.7344E-02,1.7168E-02,1.6948E-02,1.7287E-02,1.7721E-02,1.7363E-02,1.5251E-02,1.3358E-02,1.3471E-02,1.2681E-02,1.2290E-02,1.1302E-02,1.0549E-02,9.4672E-03,8.2819E-03,8.4145E-03,7.8960E-03,7.3841E-03,6.9779E-03,7.0084E-03,6.9788E-03,6.5505E-03,5.8748E-03,5.5864E-03,5.8709E-03,6.4794E-03,7.1212E-03,8.6038E-03,1.0861E-02,1.5292E-02,1.9930E-02,2.1756E-02,1.9107E-02,1.4348E-02,1.1687E-02 "AH3OPI","ug m-3",1.5255E-04,1.6063E-04,1.6414E-04,1.6611E-04,1.6732E-04,1.6820E-04,1.6783E-04,1.6584E-04,1.6351E-04,1.6082E-04,1.6057E-04,1.6378E-04,1.7663E-04,1.8657E-04,1.9556E-04,1.9844E-04,2.0368E-04,2.6078E-04,2.7030E-04,2.6438E-04,2.6039E-04,2.4114E-04,2.1693E-04,1.7681E-04,1.5276E-04,1.5108E-04,1.4834E-04,1.3918E-04,1.3617E-04,1.4986E-04,1.5592E-04,1.3474E-04,1.3232E-04,1.5534E-04,1.9746E-04,2.3653E-04,3.0464E-04,3.8007E-04,5.5542E-04,4.2601E-04,1.4985E-04,6.5542E-05,5.0172E-05,4.2988E-05 "ANAJ","ug m-3",4.5162E-01,4.3077E-01,4.2037E-01,4.1238E-01,4.0429E-01,3.9634E-01,3.8685E-01,3.7725E-01,3.6728E-01,3.5460E-01,3.3912E-01,3.2000E-01,2.9575E-01,2.6477E-01,2.3093E-01,2.0037E-01,1.7216E-01,1.4462E-01,1.2097E-01,1.0043E-01,8.4804E-02,7.2530E-02,6.0386E-02,5.3099E-02,4.8381E-02,4.4324E-02,4.0872E-02,3.7200E-02,3.4216E-02,3.2262E-02,3.0139E-02,2.7089E-02,2.3470E-02,1.9907E-02,1.6419E-02,1.3239E-02,1.0395E-02,8.1291E-03,6.4753E-03,5.1154E-03,3.9629E-03,3.1832E-03,2.3970E-03,1.6506E-03 "ANAI","ug m-3",5.0457E-05,5.0571E-05,5.0532E-05,5.0445E-05,5.0338E-05,5.0206E-05,5.0085E-05,5.0715E-05,5.1498E-05,5.2414E-05,5.3379E-05,5.4178E-05,5.5310E-05,5.6143E-05,5.8469E-05,6.3236E-05,7.2205E-05,8.0590E-05,8.2747E-05,8.0130E-05,7.4021E-05,6.5386E-05,6.0404E-05,5.6924E-05,5.3156E-05,5.1398E-05,5.0866E-05,4.8415E-05,4.6019E-05,4.2237E-05,3.7684E-05,3.3158E-05,2.8428E-05,2.4037E-05,1.9366E-05,1.3853E-05,7.8817E-06,3.2799E-06,9.7960E-07,1.6878E-07,3.3628E-08,1.4051E-08,5.5159E-09,1.5011E-09 "ACLJ","ug m-3",2.5911E-01,2.2873E-01,2.1484E-01,2.0499E-01,1.9548E-01,1.8741E-01,1.7835E-01,1.6966E-01,1.6128E-01,1.5135E-01,1.4095E-01,1.2939E-01,1.1731E-01,1.0406E-01,8.8080E-02,7.1898E-02,5.4884E-02,3.8272E-02,2.4043E-02,1.3481E-02,8.1512E-03,5.0313E-03,4.4125E-03,4.6446E-03,5.0819E-03,6.4946E-03,7.9070E-03,9.5476E-03,1.1426E-02,1.3111E-02,1.4781E-02,1.5303E-02,1.5046E-02,1.3858E-02,1.2338E-02,1.0383E-02,7.9759E-03,5.3441E-03,2.3647E-03,9.2982E-04,5.2961E-04,2.6183E-04,1.3125E-04,5.3297E-05 "ACLI","ug m-3",5.4073E-04,5.2263E-04,5.1640E-04,5.1269E-04,5.0559E-04,5.0395E-04,5.0402E-04,5.0611E-04,5.1099E-04,5.1851E-04,5.2634E-04,5.3560E-04,5.6089E-04,5.6537E-04,5.1889E-04,4.6706E-04,4.0038E-04,3.3130E-04,2.8078E-04,2.4163E-04,2.3952E-04,2.6379E-04,2.9581E-04,3.9998E-04,4.8412E-04,6.8240E-04,8.9592E-04,1.2048E-03,1.6870E-03,2.2104E-03,2.7038E-03,3.0283E-03,3.2274E-03,3.0172E-03,2.6695E-03,2.3115E-03,1.8276E-03,1.3512E-03,7.3009E-04,3.9044E-04,2.5207E-04,9.6756E-05,3.5050E-05,1.4192E-05 "ASEACAT","ug m-3",1.1190E+01,1.0590E+01,1.0277E+01,1.0036E+01,9.8037E+00,9.5789E+00,9.3268E+00,9.0550E+00,8.7564E+00,8.3612E+00,7.8541E+00,7.2025E+00,6.3888E+00,5.5060E+00,4.6458E+00,3.8573E+00,3.1080E+00,2.3845E+00,1.7900E+00,1.3090E+00,9.7638E-01,7.3938E-01,5.3539E-01,4.1253E-01,3.4515E-01,3.0373E-01,2.7432E-01,2.4708E-01,2.2415E-01,2.0434E-01,1.8434E-01,1.6454E-01,1.4467E-01,1.2494E-01,1.0365E-01,8.1684E-02,5.9611E-02,3.9043E-02,2.2772E-02,1.2232E-02,6.5462E-03,3.3507E-03,1.7444E-03,9.4714E-04 "ACLK","ug m-3",1.6866E+01,1.5966E+01,1.5498E+01,1.5138E+01,1.4791E+01,1.4456E+01,1.4080E+01,1.3674E+01,1.3228E+01,1.2635E+01,1.1871E+01,1.0887E+01,9.6549E+00,8.3142E+00,7.0081E+00,5.8074E+00,4.6651E+00,3.5643E+00,2.6664E+00,1.9446E+00,1.4503E+00,1.1015E+00,8.0494E-01,6.2898E-01,5.3307E-01,4.7396E-01,4.3135E-01,3.8993E-01,3.5417E-01,3.2386E-01,2.9250E-01,2.6009E-01,2.2760E-01,1.9524E-01,1.6097E-01,1.2676E-01,9.3050E-02,6.2714E-02,3.9195E-02,2.3471E-02,1.3525E-02,6.7528E-03,3.3170E-03,1.7743E-03 "ASO4K","ug m-3",2.4451E+00,2.3202E+00,2.2545E+00,2.2037E+00,2.1547E+00,2.1072E+00,2.0540E+00,1.9968E+00,1.9340E+00,1.8503E+00,1.7428E+00,1.6039E+00,1.4308E+00,1.2447E+00,1.0672E+00,9.0748E-01,7.6408E-01,6.2652E-01,5.1404E-01,4.1973E-01,3.5226E-01,2.9985E-01,2.5476E-01,2.2793E-01,2.0992E-01,1.9297E-01,1.7727E-01,1.6105E-01,1.4790E-01,1.3782E-01,1.2538E-01,1.0919E-01,9.1575E-02,7.4499E-02,5.7791E-02,4.2532E-02,2.8624E-02,1.7664E-02,1.0143E-02,5.1304E-03,2.6019E-03,1.4202E-03,7.6304E-04,3.9909E-04 "ANH4K","ug m-3",6.2478E-02,6.3475E-02,6.3461E-02,6.3157E-02,6.2663E-02,6.1922E-02,6.0911E-02,5.9660E-02,5.8223E-02,5.6519E-02,5.5093E-02,5.2300E-02,4.9399E-02,4.6483E-02,4.5690E-02,4.8344E-02,5.8194E-02,6.2536E-02,6.6612E-02,6.7054E-02,6.4699E-02,6.1630E-02,6.0782E-02,5.9300E-02,5.5701E-02,5.0508E-02,4.4749E-02,3.7524E-02,3.0783E-02,2.5151E-02,2.0756E-02,1.6912E-02,1.3329E-02,1.0196E-02,7.6768E-03,5.5266E-03,3.8300E-03,2.5592E-03,1.6048E-03,7.5867E-04,3.4871E-04,1.9311E-04,9.9352E-05,5.0707E-05 "ANO3K","ug m-3",7.3864E-01,7.4947E-01,7.5032E-01,7.4864E-01,7.4636E-01,7.4240E-01,7.3650E-01,7.2840E-01,7.1877E-01,7.0302E-01,6.8025E-01,6.4931E-01,6.1630E-01,5.8772E-01,5.7225E-01,5.7176E-01,5.8760E-01,5.9323E-01,5.8668E-01,5.6182E-01,5.2637E-01,4.8281E-01,4.4031E-01,4.0385E-01,3.6894E-01,3.3313E-01,2.9738E-01,2.5986E-01,2.2534E-01,1.9659E-01,1.7300E-01,1.5059E-01,1.2853E-01,1.0902E-01,9.2145E-02,7.5953E-02,6.0685E-02,4.5650E-02,3.0106E-02,1.5824E-02,7.2493E-03,3.5514E-03,1.7339E-03,9.0711E-04 "AH2OK","ug m-3",1.3544E+02,1.2787E+02,1.2722E+02,1.2888E+02,1.3179E+02,1.3592E+02,1.4092E+02,1.4718E+02,1.5434E+02,1.5830E+02,1.5901E+02,1.5301E+02,1.4121E+02,1.2752E+02,1.1219E+02,9.5891E+01,7.3425E+01,5.1171E+01,3.2795E+01,1.9971E+01,1.1723E+01,7.5498E+00,5.2947E+00,4.0523E+00,3.3411E+00,2.8886E+00,2.4891E+00,2.1639E+00,1.8176E+00,1.5507E+00,1.3392E+00,1.1495E+00,9.7343E-01,8.0706E-01,6.4545E-01,4.8544E-01,3.3374E-01,2.0310E-01,1.0536E-01,4.9423E-02,2.3545E-02,1.2703E-02,6.9116E-03,3.7454E-03 "AH3OPK","ug m-3",1.7908E-01,1.7206E-01,1.6906E-01,1.6713E-01,1.6541E-01,1.6391E-01,1.6189E-01,1.5982E-01,1.5668E-01,1.5110E-01,1.4114E-01,1.2565E-01,1.0503E-01,8.3132E-02,6.4647E-02,5.0896E-02,3.9373E-02,3.4204E-02,3.1068E-02,3.4161E-02,3.8089E-02,3.9944E-02,4.0293E-02,3.9999E-02,3.8196E-02,3.4106E-02,2.8495E-02,2.5232E-02,2.1815E-02,1.9147E-02,1.6995E-02,1.3189E-02,1.1015E-02,9.8090E-03,9.1081E-03,8.6440E-03,8.8222E-03,8.3289E-03,7.3912E-03,6.4810E-03,4.6041E-03,2.3790E-03,1.1095E-03,5.7497E-04 "AISO3J","ug m-3",2.0352E-02,2.0345E-02,2.0315E-02,2.0278E-02,2.0243E-02,2.0247E-02,2.0307E-02,2.0445E-02,2.0559E-02,2.0516E-02,2.0413E-02,2.0439E-02,2.1003E-02,2.1396E-02,2.1620E-02,2.2067E-02,2.2812E-02,2.3439E-02,2.3397E-02,2.2693E-02,2.2050E-02,2.0673E-02,1.9448E-02,1.8246E-02,1.7047E-02,1.6113E-02,1.5826E-02,1.5538E-02,1.5395E-02,1.4653E-02,1.3440E-02,1.2187E-02,1.0927E-02,9.8868E-03,8.9362E-03,7.9608E-03,7.0831E-03,6.2187E-03,5.3496E-03,4.4149E-03,3.5628E-03,2.8215E-03,2.1096E-03,1.4699E-03 "AOLGAJ","ug m-3",1.2011E-02,1.2006E-02,1.1990E-02,1.1971E-02,1.1955E-02,1.1978E-02,1.2052E-02,1.2216E-02,1.2367E-02,1.2384E-02,1.2354E-02,1.2349E-02,1.2379E-02,1.2366E-02,1.2630E-02,1.3170E-02,1.4283E-02,1.5170E-02,1.5706E-02,1.5462E-02,1.4704E-02,1.3346E-02,1.2280E-02,1.1423E-02,1.0568E-02,9.8027E-03,9.3184E-03,8.8435E-03,8.4140E-03,7.9151E-03,7.3423E-03,6.7455E-03,6.0782E-03,5.4124E-03,4.8083E-03,4.3238E-03,4.0238E-03,3.8539E-03,3.7673E-03,3.5925E-03,3.2102E-03,2.8456E-03,2.2824E-03,1.6244E-03 "AOLGBJ","ug m-3",3.9611E-02,3.9598E-02,3.9545E-02,3.9487E-02,3.9440E-02,3.9524E-02,3.9787E-02,4.0347E-02,4.0859E-02,4.0987E-02,4.0981E-02,4.1176E-02,4.2020E-02,4.2656E-02,4.3959E-02,4.6072E-02,4.9622E-02,5.3765E-02,5.4512E-02,5.3454E-02,4.9731E-02,4.3841E-02,4.0432E-02,3.8099E-02,3.5683E-02,3.3787E-02,3.2871E-02,3.1575E-02,3.0420E-02,2.8868E-02,2.7239E-02,2.5568E-02,2.3644E-02,2.1845E-02,2.0262E-02,1.8855E-02,1.7884E-02,1.7247E-02,1.6463E-02,1.4739E-02,1.2250E-02,9.8683E-03,7.4479E-03,5.2477E-03 "APCSOJ","ug m-3",2.6101E-04,2.6093E-04,2.6052E-04,2.5999E-04,2.5949E-04,2.5907E-04,2.5883E-04,2.5921E-04,2.5967E-04,2.5834E-04,2.5667E-04,2.5655E-04,2.5839E-04,2.6077E-04,2.6848E-04,2.8228E-04,3.0906E-04,3.3403E-04,3.6703E-04,3.9742E-04,4.1601E-04,4.2394E-04,4.3329E-04,4.4860E-04,4.6531E-04,4.8218E-04,5.1545E-04,5.7247E-04,6.5351E-04,7.8048E-04,9.6670E-04,1.2077E-03,1.5146E-03,1.9086E-03,2.3936E-03,2.9538E-03,3.5951E-03,4.3175E-03,5.0306E-03,5.6664E-03,6.0601E-03,6.4488E-03,6.1557E-03,4.8488E-03 "ALVPO1I","ug m-3",2.0876E-03,2.1037E-03,2.1101E-03,2.1137E-03,2.1170E-03,2.1208E-03,2.1294E-03,2.2107E-03,2.3232E-03,2.4319E-03,2.5242E-03,2.6008E-03,2.6845E-03,2.7212E-03,2.7727E-03,2.9467E-03,3.2052E-03,3.4841E-03,3.5362E-03,3.4221E-03,3.1382E-03,2.7019E-03,2.5704E-03,2.5980E-03,2.6762E-03,2.8817E-03,3.0965E-03,3.0804E-03,2.9349E-03,2.6284E-03,2.3202E-03,2.0792E-03,1.8301E-03,1.5862E-03,1.3175E-03,9.8612E-04,5.9111E-04,2.5443E-04,7.3147E-05,1.2653E-05,2.9930E-06,1.5067E-06,7.2446E-07,3.8067E-07 "ASVPO1I","ug m-3",1.8922E-04,1.9434E-04,1.9712E-04,1.9928E-04,2.0127E-04,2.0336E-04,2.0553E-04,2.0922E-04,2.1437E-04,2.2170E-04,2.3575E-04,2.5837E-04,2.8805E-04,3.1020E-04,3.4061E-04,3.8004E-04,4.3836E-04,5.3087E-04,6.1197E-04,6.1356E-04,5.8795E-04,5.3426E-04,5.5950E-04,6.4152E-04,7.2973E-04,8.9109E-04,1.1245E-03,1.2199E-03,1.2284E-03,1.1503E-03,1.0771E-03,1.0142E-03,9.2655E-04,8.2738E-04,7.2163E-04,5.7252E-04,3.5689E-04,1.5316E-04,4.1979E-05,7.2120E-06,1.6822E-06,7.7631E-07,3.3279E-07,1.3247E-07 "ASVPO2I","ug m-3",4.1822E-06,4.4859E-06,4.6531E-06,4.7750E-06,4.8839E-06,4.9932E-06,5.0668E-06,5.1310E-06,5.1034E-06,4.9605E-06,4.9410E-06,5.0258E-06,5.1942E-06,5.4909E-06,6.3249E-06,7.2931E-06,9.5249E-06,1.0655E-05,1.5450E-05,1.6295E-05,1.8241E-05,2.4687E-05,3.2125E-05,4.0515E-05,5.0317E-05,7.1150E-05,1.0980E-04,1.4720E-04,1.7475E-04,1.8920E-04,2.1489E-04,2.4229E-04,2.5450E-04,2.4937E-04,2.5460E-04,2.3827E-04,1.6277E-04,7.1392E-05,1.9000E-05,3.5127E-06,8.5766E-07,3.7479E-07,1.6517E-07,6.7824E-08 "ALVPO1J","ug m-3",2.5889E-02,2.6044E-02,2.6131E-02,2.6221E-02,2.6333E-02,2.6643E-02,2.7205E-02,2.8198E-02,2.9170E-02,2.9532E-02,2.9599E-02,2.9756E-02,3.0042E-02,3.0130E-02,3.0915E-02,3.2473E-02,3.5029E-02,3.7595E-02,3.9423E-02,3.9731E-02,3.8727E-02,3.5711E-02,3.4088E-02,3.3358E-02,3.2465E-02,3.1491E-02,3.0835E-02,2.9730E-02,2.8368E-02,2.6683E-02,2.4824E-02,2.2976E-02,2.0492E-02,1.7456E-02,1.4511E-02,1.1879E-02,9.4576E-03,7.2065E-03,5.4150E-03,3.9977E-03,3.0143E-03,2.4557E-03,1.8607E-03,1.2823E-03 "ASVPO1J","ug m-3",1.6546E-03,1.6966E-03,1.7221E-03,1.7456E-03,1.7693E-03,1.8131E-03,1.8819E-03,1.9749E-03,2.0609E-03,2.1195E-03,2.1859E-03,2.2742E-03,2.3663E-03,2.4435E-03,2.6444E-03,2.9364E-03,3.4221E-03,3.9072E-03,4.6136E-03,4.8500E-03,4.8670E-03,4.6605E-03,4.8912E-03,5.4275E-03,5.9162E-03,6.4681E-03,7.2626E-03,7.6574E-03,7.7419E-03,7.4774E-03,7.2319E-03,7.1151E-03,6.6604E-03,5.8094E-03,4.9509E-03,4.2348E-03,3.5023E-03,2.6715E-03,1.9659E-03,1.4468E-03,1.0891E-03,8.8629E-04,6.7267E-04,4.6389E-04 "ASVPO2J","ug m-3",4.0411E-05,4.3397E-05,4.5259E-05,4.6559E-05,4.7583E-05,4.8587E-05,4.9080E-05,4.8326E-05,4.6695E-05,4.3597E-05,4.1873E-05,4.0817E-05,3.9627E-05,3.9203E-05,4.2639E-05,4.7880E-05,6.7555E-05,7.4098E-05,1.1140E-04,1.2599E-04,1.3806E-04,1.6770E-04,2.2721E-04,3.0803E-04,4.1186E-04,5.3197E-04,7.2387E-04,9.2956E-04,1.0973E-03,1.1830E-03,1.3189E-03,1.5309E-03,1.6295E-03,1.5255E-03,1.4025E-03,1.3194E-03,1.1712E-03,9.1037E-04,6.5060E-04,4.5631E-04,3.1203E-04,2.0865E-04,1.2729E-04,7.7050E-05 "ASVPO3J","ug m-3",3.0152E-06,3.2743E-06,3.4315E-06,3.5226E-06,3.5768E-06,3.6267E-06,3.6214E-06,3.4650E-06,3.1647E-06,2.6462E-06,2.3239E-06,2.0569E-06,1.7271E-06,1.3948E-06,1.1477E-06,9.5188E-07,8.3451E-07,7.4497E-07,6.9953E-07,6.3868E-07,6.0215E-07,7.0359E-07,1.0997E-06,1.4640E-06,1.7430E-06,2.0957E-06,3.1745E-06,5.7218E-06,9.6497E-06,1.4185E-05,1.8305E-05,2.2442E-05,2.6998E-05,3.1200E-05,3.7146E-05,3.9058E-05,3.6498E-05,2.8443E-05,1.7999E-05,9.8757E-06,5.9293E-06,3.2830E-06,1.0446E-06,2.3446E-07 "AIVPO1J","ug m-3",7.2345E-07,7.8382E-07,8.1895E-07,8.3716E-07,8.4575E-07,8.5245E-07,8.4584E-07,8.0215E-07,7.2253E-07,5.8851E-07,5.0511E-07,4.3436E-07,3.4961E-07,2.6694E-07,2.0450E-07,1.5423E-07,1.0839E-07,7.7755E-08,5.4418E-08,4.0295E-08,3.3270E-08,3.1710E-08,3.2563E-08,3.7117E-08,4.1673E-08,4.5155E-08,6.0283E-08,1.0040E-07,1.7154E-07,2.7642E-07,3.6365E-07,3.9836E-07,4.3667E-07,6.4738E-07,9.0504E-07,6.4133E-07,5.5720E-07,2.9784E-07,1.1874E-07,3.2638E-08,8.8435E-09,2.8026E-09,4.8184E-10,2.6553E-11 "ALVOO1I","ug m-3",2.4847E-03,2.4928E-03,2.4934E-03,2.4916E-03,2.4897E-03,2.4874E-03,2.4829E-03,2.5514E-03,2.6254E-03,2.6937E-03,2.7458E-03,2.7625E-03,2.7888E-03,2.7709E-03,2.7519E-03,2.8502E-03,3.0077E-03,3.1622E-03,3.1387E-03,3.0047E-03,2.7360E-03,2.3675E-03,2.1813E-03,2.0857E-03,2.0152E-03,2.0084E-03,2.0051E-03,1.9062E-03,1.7702E-03,1.5659E-03,1.3662E-03,1.2099E-03,1.0544E-03,9.0778E-04,7.5078E-04,5.5595E-04,3.2973E-04,1.4337E-04,4.2508E-05,7.5158E-06,1.7647E-06,8.7745E-07,4.1516E-07,2.0493E-07 "ALVOO2I","ug m-3",6.0306E-04,6.0895E-04,6.1173E-04,6.1382E-04,6.1617E-04,6.1898E-04,6.2355E-04,6.5300E-04,6.9089E-04,7.2807E-04,7.6015E-04,7.8599E-04,8.1528E-04,8.3166E-04,8.5255E-04,9.1445E-04,1.0006E-03,1.0836E-03,1.0955E-03,1.0569E-03,9.6919E-04,8.3755E-04,7.8968E-04,7.8529E-04,7.9616E-04,8.3946E-04,8.8115E-04,8.6389E-04,8.1539E-04,7.2533E-04,6.3443E-04,5.6358E-04,4.9274E-04,4.2495E-04,3.5018E-04,2.5910E-04,1.5410E-04,6.6626E-05,1.9520E-05,3.4867E-06,8.8744E-07,4.6120E-07,2.2851E-07,1.2529E-07 "ASVOO1I","ug m-3",1.9780E-06,2.0523E-06,2.1003E-06,2.1449E-06,2.1956E-06,2.2543E-06,2.3242E-06,2.5365E-06,2.7685E-06,2.9926E-06,3.1881E-06,3.3144E-06,3.4458E-06,3.5132E-06,3.6265E-06,3.9325E-06,4.3427E-06,4.6824E-06,4.7267E-06,4.5962E-06,4.2985E-06,3.8109E-06,3.6471E-06,3.6433E-06,3.7265E-06,3.9063E-06,4.0721E-06,4.0373E-06,3.9125E-06,3.6213E-06,3.2979E-06,3.0034E-06,2.6964E-06,2.3945E-06,2.0127E-06,1.5151E-06,9.3082E-07,4.3637E-07,1.4634E-07,3.4206E-08,1.4219E-08,7.9808E-09,3.9495E-09,2.0541E-09 "ASVOO2I","ug m-3",4.5613E-07,4.8628E-07,5.0553E-07,5.2328E-07,5.4289E-07,5.6531E-07,5.9194E-07,6.6068E-07,7.3612E-07,8.1019E-07,8.7238E-07,9.1261E-07,9.4202E-07,9.4893E-07,9.6212E-07,1.0396E-06,1.1635E-06,1.2585E-06,1.2605E-06,1.2036E-06,1.0949E-06,9.4260E-07,8.8945E-07,8.8705E-07,9.1700E-07,9.9119E-07,1.0989E-06,1.1758E-06,1.2270E-06,1.2279E-06,1.2625E-06,1.3104E-06,1.3215E-06,1.3168E-06,1.2869E-06,1.1400E-06,8.0900E-07,4.3338E-07,1.6340E-07,3.8590E-08,1.4980E-08,7.4740E-09,3.7002E-09,1.8470E-09 "ALVOO1J","ug m-3",3.1327E-02,3.1374E-02,3.1377E-02,3.1374E-02,3.1385E-02,3.1480E-02,3.1669E-02,3.2026E-02,3.2333E-02,3.2237E-02,3.1910E-02,3.1609E-02,3.1530E-02,3.1003E-02,3.0544E-02,3.0577E-02,3.1047E-02,3.1433E-02,3.0992E-02,2.9754E-02,2.7705E-02,2.4785E-02,2.2155E-02,2.0004E-02,1.7853E-02,1.6024E-02,1.4854E-02,1.3748E-02,1.2882E-02,1.1980E-02,1.1072E-02,1.0188E-02,9.0919E-03,7.8633E-03,6.7088E-03,5.6401E-03,4.6496E-03,3.6747E-03,2.7932E-03,2.0550E-03,1.5309E-03,1.2069E-03,8.9350E-04,6.1331E-04 "ALVOO2J","ug m-3",5.7982E-03,5.8508E-03,5.8843E-03,5.9194E-03,5.9629E-03,6.0559E-03,6.2114E-03,6.4701E-03,6.7164E-03,6.8182E-03,6.8464E-03,6.8935E-03,6.9917E-03,7.0216E-03,7.1559E-03,7.4400E-03,7.8689E-03,8.2990E-03,8.5087E-03,8.4294E-03,8.0650E-03,7.3024E-03,6.7982E-03,6.4230E-03,6.0189E-03,5.6774E-03,5.4930E-03,5.2350E-03,4.9741E-03,4.6393E-03,4.2892E-03,3.9773E-03,3.5646E-03,3.0789E-03,2.6153E-03,2.1923E-03,1.8004E-03,1.4112E-03,1.0713E-03,7.9229E-04,5.9717E-04,4.8165E-04,3.6386E-04,2.5217E-04 "ASVOO1J","ug m-3",2.2024E-05,2.2912E-05,2.3553E-05,2.4194E-05,2.4951E-05,2.6061E-05,2.7597E-05,2.9762E-05,3.1732E-05,3.2995E-05,3.3861E-05,3.4733E-05,3.5917E-05,3.6405E-05,3.7107E-05,3.8328E-05,4.0241E-05,4.2084E-05,4.2487E-05,4.1793E-05,4.0067E-05,3.6594E-05,3.3841E-05,3.1577E-05,2.9109E-05,2.6988E-05,2.5898E-05,2.4882E-05,2.4227E-05,2.3536E-05,2.2782E-05,2.1744E-05,2.0031E-05,1.7971E-05,1.5975E-05,1.4118E-05,1.2409E-05,1.0654E-05,8.7986E-06,6.8743E-06,5.2454E-06,4.0215E-06,2.9156E-06,1.9962E-06 "ASVOO2J","ug m-3",5.2461E-06,5.6070E-06,5.8591E-06,6.1050E-06,6.3831E-06,6.7756E-06,7.3102E-06,8.0223E-06,8.6280E-06,9.0049E-06,9.2400E-06,9.4567E-06,9.7166E-06,9.7065E-06,9.6840E-06,9.8930E-06,1.0206E-05,1.0562E-05,1.0481E-05,9.9559E-06,9.2253E-06,8.1361E-06,7.3162E-06,6.7355E-06,6.1725E-06,5.8315E-06,5.9110E-06,6.1681E-06,6.5356E-06,6.8315E-06,7.2809E-06,7.7759E-06,7.8667E-06,7.6351E-06,7.4987E-06,7.5052E-06,7.4703E-06,7.3000E-06,6.8350E-06,5.9525E-06,4.7153E-06,3.1860E-06,1.9263E-06,1.1567E-06 "ASVOO3J","ug m-3",8.2464E-07,8.8371E-07,9.2331E-07,9.6109E-07,1.0033E-06,1.0626E-06,1.1447E-06,1.2629E-06,1.3621E-06,1.4231E-06,1.4579E-06,1.4841E-06,1.5121E-06,1.4941E-06,1.4724E-06,1.4976E-06,1.5420E-06,1.6021E-06,1.5713E-06,1.4588E-06,1.3025E-06,1.0936E-06,9.3670E-07,8.2163E-07,7.0240E-07,6.2954E-07,5.7938E-07,5.4595E-07,5.5106E-07,5.8825E-07,6.4561E-07,7.2622E-07,7.9543E-07,8.3347E-07,8.8382E-07,9.0740E-07,8.6336E-07,7.1759E-07,4.8351E-07,2.7234E-07,2.4121E-07,1.6005E-07,5.0272E-08,1.1887E-08 "AALK1J","ug m-3",3.0143E-03,3.0220E-03,3.0230E-03,3.0224E-03,3.0229E-03,3.0291E-03,3.0446E-03,3.0844E-03,3.1236E-03,3.1348E-03,3.1349E-03,3.1397E-03,3.1606E-03,3.1611E-03,3.2004E-03,3.2927E-03,3.5025E-03,3.6949E-03,3.7942E-03,3.7698E-03,3.6185E-03,3.3476E-03,3.1452E-03,2.9942E-03,2.8355E-03,2.6879E-03,2.5856E-03,2.4699E-03,2.3548E-03,2.2019E-03,2.0418E-03,1.8695E-03,1.6603E-03,1.4463E-03,1.2445E-03,1.0468E-03,8.3860E-04,6.3886E-04,4.7285E-04,3.4807E-04,2.6680E-04,2.2041E-04,1.6780E-04,1.1479E-04 "ABNZ1J","ug m-3",3.0143E-03,3.0220E-03,3.0230E-03,3.0224E-03,3.0229E-03,3.0291E-03,3.0446E-03,3.0844E-03,3.1236E-03,3.1348E-03,3.1349E-03,3.1397E-03,3.1606E-03,3.1611E-03,3.2004E-03,3.2927E-03,3.5025E-03,3.6949E-03,3.7942E-03,3.7698E-03,3.6185E-03,3.3476E-03,3.1452E-03,2.9942E-03,2.8355E-03,2.6879E-03,2.5856E-03,2.4699E-03,2.3548E-03,2.2019E-03,2.0418E-03,1.8695E-03,1.6603E-03,1.4463E-03,1.2445E-03,1.0468E-03,8.3860E-04,6.3886E-04,4.7285E-04,3.4807E-04,2.6680E-04,2.2041E-04,1.6780E-04,1.1479E-04 "ABNZ3J","ug m-3",3.2027E-03,3.2109E-03,3.2119E-03,3.2113E-03,3.2118E-03,3.2184E-03,3.2349E-03,3.2772E-03,3.3188E-03,3.3307E-03,3.3308E-03,3.3359E-03,3.3582E-03,3.3587E-03,3.4004E-03,3.4985E-03,3.7214E-03,3.9258E-03,4.0313E-03,4.0055E-03,3.8446E-03,3.5568E-03,3.3418E-03,3.1813E-03,3.0128E-03,2.8559E-03,2.7472E-03,2.6243E-03,2.5020E-03,2.3395E-03,2.1694E-03,1.9863E-03,1.7641E-03,1.5367E-03,1.3223E-03,1.1122E-03,8.9101E-04,6.7878E-04,5.0240E-04,3.6983E-04,2.8347E-04,2.3418E-04,1.7829E-04,1.2197E-04 "ATOL3J","ug m-3",3.2027E-03,3.2109E-03,3.2119E-03,3.2113E-03,3.2118E-03,3.2184E-03,3.2349E-03,3.2772E-03,3.3188E-03,3.3307E-03,3.3308E-03,3.3359E-03,3.3582E-03,3.3587E-03,3.4004E-03,3.4985E-03,3.7214E-03,3.9258E-03,4.0313E-03,4.0055E-03,3.8446E-03,3.5568E-03,3.3418E-03,3.1813E-03,3.0128E-03,2.8559E-03,2.7472E-03,2.6243E-03,2.5020E-03,2.3395E-03,2.1694E-03,1.9863E-03,1.7641E-03,1.5367E-03,1.3223E-03,1.1122E-03,8.9101E-04,6.7878E-04,5.0240E-04,3.6983E-04,2.8347E-04,2.3418E-04,1.7829E-04,1.2197E-04 "AXYL3J","ug m-3",3.2027E-03,3.2109E-03,3.2119E-03,3.2113E-03,3.2118E-03,3.2184E-03,3.2349E-03,3.2772E-03,3.3188E-03,3.3307E-03,3.3308E-03,3.3359E-03,3.3582E-03,3.3587E-03,3.4004E-03,3.4985E-03,3.7214E-03,3.9258E-03,4.0313E-03,4.0055E-03,3.8446E-03,3.5568E-03,3.3418E-03,3.1813E-03,3.0128E-03,2.8559E-03,2.7472E-03,2.6243E-03,2.5020E-03,2.3395E-03,2.1694E-03,1.9863E-03,1.7641E-03,1.5367E-03,1.3223E-03,1.1122E-03,8.9101E-04,6.7878E-04,5.0240E-04,3.6983E-04,2.8347E-04,2.3418E-04,1.7829E-04,1.2197E-04 "APAH3J","ug m-3",3.2027E-03,3.2109E-03,3.2119E-03,3.2113E-03,3.2118E-03,3.2184E-03,3.2349E-03,3.2772E-03,3.3188E-03,3.3307E-03,3.3308E-03,3.3359E-03,3.3582E-03,3.3587E-03,3.4004E-03,3.4985E-03,3.7214E-03,3.9258E-03,4.0313E-03,4.0055E-03,3.8446E-03,3.5568E-03,3.3418E-03,3.1813E-03,3.0128E-03,2.8559E-03,2.7472E-03,2.6243E-03,2.5020E-03,2.3395E-03,2.1694E-03,1.9863E-03,1.7641E-03,1.5367E-03,1.3223E-03,1.1122E-03,8.9101E-04,6.7878E-04,5.0240E-04,3.6983E-04,2.8347E-04,2.3418E-04,1.7829E-04,1.2197E-04 "AXYL1J","ug m-3",1.5752E-05,1.6444E-05,1.6794E-05,1.7061E-05,1.7314E-05,1.7557E-05,1.7780E-05,1.7985E-05,1.8086E-05,1.8099E-05,1.8067E-05,1.8035E-05,1.8119E-05,1.8094E-05,1.8593E-05,2.0198E-05,2.3149E-05,2.5971E-05,2.8022E-05,2.8220E-05,2.6677E-05,2.4962E-05,2.4638E-05,2.4803E-05,2.4869E-05,2.4692E-05,2.4554E-05,2.4627E-05,2.5071E-05,2.5545E-05,2.5744E-05,2.5799E-05,2.5067E-05,2.4199E-05,2.3427E-05,2.2709E-05,2.1207E-05,1.7812E-05,1.1404E-05,3.9716E-06,1.0686E-06,2.9005E-07,7.6317E-08,2.9723E-08 "ATOL1J","ug m-3",1.5752E-05,1.6444E-05,1.6794E-05,1.7061E-05,1.7314E-05,1.7557E-05,1.7780E-05,1.7985E-05,1.8086E-05,1.8099E-05,1.8067E-05,1.8035E-05,1.8119E-05,1.8094E-05,1.8593E-05,2.0198E-05,2.3149E-05,2.5971E-05,2.8022E-05,2.8220E-05,2.6677E-05,2.4962E-05,2.4638E-05,2.4803E-05,2.4869E-05,2.4692E-05,2.4554E-05,2.4627E-05,2.5071E-05,2.5545E-05,2.5744E-05,2.5799E-05,2.5067E-05,2.4199E-05,2.3427E-05,2.2709E-05,2.1207E-05,1.7812E-05,1.1404E-05,3.9716E-06,1.0686E-06,2.9005E-07,7.6317E-08,2.9723E-08 "APAH1J","ug m-3",1.6229E-05,1.6943E-05,1.7303E-05,1.7578E-05,1.7838E-05,1.8089E-05,1.8318E-05,1.8530E-05,1.8634E-05,1.8647E-05,1.8615E-05,1.8582E-05,1.8668E-05,1.8642E-05,1.9157E-05,2.0810E-05,2.3850E-05,2.6758E-05,2.8871E-05,2.9075E-05,2.7486E-05,2.5719E-05,2.5385E-05,2.5555E-05,2.5623E-05,2.5440E-05,2.5298E-05,2.5373E-05,2.5831E-05,2.6320E-05,2.6524E-05,2.6581E-05,2.5827E-05,2.4933E-05,2.4137E-05,2.3397E-05,2.1849E-05,1.8352E-05,1.1749E-05,4.0919E-06,1.1010E-06,2.9884E-07,7.8629E-08,3.0624E-08 "ATOL2J","ug m-3",3.4061E-05,3.6093E-05,3.7112E-05,3.7927E-05,3.8764E-05,3.9760E-05,4.0991E-05,4.2854E-05,4.4990E-05,4.7243E-05,5.0234E-05,5.3149E-05,5.7527E-05,6.2230E-05,7.0889E-05,8.3206E-05,1.1255E-04,1.3635E-04,1.5490E-04,1.5442E-04,1.4277E-04,1.2783E-04,1.2350E-04,1.2344E-04,1.2307E-04,1.2123E-04,1.2242E-04,1.2559E-04,1.3106E-04,1.3455E-04,1.3456E-04,1.3207E-04,1.2416E-04,1.1504E-04,1.0435E-04,9.1604E-05,7.7352E-05,5.7361E-05,3.3377E-05,1.2838E-05,4.9334E-06,1.9812E-06,7.0938E-07,2.8518E-07 "ATRP1J","ug m-3",2.2434E-04,2.3768E-04,2.4637E-04,2.5525E-04,2.6544E-04,2.8152E-04,3.0579E-04,3.4604E-04,3.8814E-04,4.2581E-04,4.6903E-04,5.2109E-04,6.1926E-04,7.6878E-04,9.9419E-04,1.2130E-03,1.7687E-03,2.4356E-03,2.5265E-03,2.3999E-03,1.9821E-03,1.4531E-03,1.4198E-03,1.4920E-03,1.5759E-03,1.6895E-03,1.8924E-03,2.0871E-03,2.2862E-03,2.4364E-03,2.5413E-03,2.5772E-03,2.5100E-03,2.4153E-03,2.3062E-03,2.1962E-03,2.1070E-03,2.0426E-03,1.9156E-03,1.6222E-03,1.2564E-03,9.4086E-04,6.5513E-04,4.3252E-04 "ATRP2J","ug m-3",2.3270E-05,2.4780E-05,2.5728E-05,2.6691E-05,2.7785E-05,2.9669E-05,3.2767E-05,3.8210E-05,4.3564E-05,4.8181E-05,5.3590E-05,5.9837E-05,7.1573E-05,9.0513E-05,1.2137E-04,1.5184E-04,2.5045E-04,3.8795E-04,3.9427E-04,3.7041E-04,2.9461E-04,1.8486E-04,1.8919E-04,2.0966E-04,2.3193E-04,2.6360E-04,3.2787E-04,4.1609E-04,5.2743E-04,6.5229E-04,8.0898E-04,1.0044E-03,1.1860E-03,1.3444E-03,1.4788E-03,1.5988E-03,1.7059E-03,1.7869E-03,1.7800E-03,1.5784E-03,1.2571E-03,9.4570E-04,6.2623E-04,3.5305E-04 "NH3","ppmV",6.3263E-05,6.6580E-05,6.8574E-05,7.0703E-05,7.3038E-05,7.6230E-05,8.0828E-05,8.7571E-05,9.4572E-05,1.0086E-04,1.0390E-04,1.1232E-04,1.2387E-04,1.3873E-04,1.5841E-04,1.7360E-04,1.7863E-04,1.8452E-04,1.8097E-04,1.8334E-04,1.7686E-04,1.7454E-04,1.7335E-04,1.7198E-04,1.7212E-04,1.7178E-04,1.6850E-04,1.6090E-04,1.5128E-04,1.5115E-04,1.5462E-04,1.5421E-04,1.4792E-04,1.2817E-04,1.0395E-04,8.0931E-05,5.9276E-05,3.5743E-05,1.6509E-05,4.2976E-06,1.8763E-06,3.6471E-06,3.0765E-06,2.4276E-06 "SVISO1","ppmV",1.2016E-06,1.2560E-06,1.2819E-06,1.3031E-06,1.3281E-06,1.3583E-06,1.4027E-06,1.4751E-06,1.5501E-06,1.6444E-06,1.7842E-06,1.9861E-06,2.3630E-06,2.8100E-06,3.2225E-06,3.6073E-06,4.1782E-06,4.6644E-06,4.9148E-06,5.0160E-06,4.9570E-06,4.6989E-06,4.6166E-06,4.6299E-06,4.6166E-06,4.5820E-06,4.6430E-06,4.6546E-06,4.7034E-06,4.6979E-06,4.6088E-06,4.4071E-06,4.0559E-06,3.7230E-06,3.3679E-06,2.8757E-06,2.2839E-06,1.6765E-06,9.9237E-07,3.8356E-07,1.2052E-07,4.1587E-08,1.6035E-08,1.0905E-08 "SVISO2","ppmV",1.2549E-09,1.2985E-09,1.3167E-09,1.3288E-09,1.3386E-09,1.3462E-09,1.3586E-09,1.3723E-09,1.3846E-09,1.4100E-09,1.4551E-09,1.5724E-09,1.8248E-09,2.0124E-09,2.1213E-09,2.1094E-09,2.0198E-09,1.9077E-09,1.8872E-09,1.9506E-09,1.9940E-09,1.9882E-09,1.8858E-09,1.9489E-09,1.9836E-09,2.0837E-09,2.1980E-09,2.2817E-09,2.2476E-09,2.1767E-09,2.1109E-09,1.9697E-09,1.7720E-09,1.5459E-09,1.2636E-09,8.8227E-10,5.0756E-10,2.4008E-10,9.9037E-11,2.7708E-11,4.5496E-12,6.7860E-13,1.0581E-13,2.0166E-14 "SVSQT","ppmV",6.8254E-08,7.1065E-08,7.2346E-08,7.3351E-08,7.4543E-08,7.5872E-08,7.8027E-08,8.1569E-08,8.5277E-08,9.0604E-08,9.8994E-08,1.1162E-07,1.3082E-07,1.5135E-07,1.6978E-07,1.8405E-07,2.0417E-07,2.2090E-07,2.3008E-07,2.2823E-07,2.2136E-07,2.1034E-07,1.9724E-07,1.9489E-07,1.9331E-07,1.9102E-07,1.9310E-07,1.9066E-07,1.8391E-07,1.7371E-07,1.6337E-07,1.5030E-07,1.3288E-07,1.1671E-07,1.0045E-07,7.9075E-08,5.2376E-08,2.7605E-08,1.0541E-08,2.5259E-09,4.2353E-10,6.8631E-11,1.4371E-11,5.7109E-12 "LVPCSOG","ppmV",4.3898E-12,4.2678E-12,4.1860E-12,4.1094E-12,4.0289E-12,3.9434E-12,3.8487E-12,3.7458E-12,3.6286E-12,3.5035E-12,3.3669E-12,3.2223E-12,3.0604E-12,2.9039E-12,2.7549E-12,2.6216E-12,2.5114E-12,2.4102E-12,2.3278E-12,2.2697E-12,2.1758E-12,2.0803E-12,1.9798E-12,1.8483E-12,1.7078E-12,1.5754E-12,1.4650E-12,1.3548E-12,1.2324E-12,1.1227E-12,1.0307E-12,9.8832E-13,1.0302E-12,1.1657E-12,1.4332E-12,1.8659E-12,2.4589E-12,3.1130E-12,3.7597E-12,4.4119E-12,5.1149E-12,6.1600E-12,8.3718E-12,1.3062E-11 "SVTRP1","ppmV",3.5981E-07,3.7339E-07,3.7909E-07,3.8332E-07,3.8817E-07,3.9417E-07,4.0327E-07,4.1913E-07,4.3526E-07,4.5299E-07,4.7751E-07,5.1643E-07,5.9371E-07,6.8351E-07,7.6208E-07,8.2222E-07,9.1629E-07,1.0005E-06,1.0590E-06,1.0561E-06,9.6548E-07,8.5523E-07,7.6717E-07,7.1014E-07,6.5519E-07,5.9582E-07,5.4112E-07,4.7342E-07,4.0027E-07,3.2292E-07,2.4581E-07,1.7347E-07,1.1245E-07,6.9264E-08,4.0671E-08,2.3949E-08,1.5046E-08,1.0640E-08,8.1057E-09,6.3616E-09,4.9421E-09,4.2649E-09,4.6865E-09,7.4640E-09 "SVTRP2","ppmV",4.8227E-07,5.0297E-07,5.1222E-07,5.1948E-07,5.2782E-07,5.3843E-07,5.5437E-07,5.8130E-07,6.0940E-07,6.4042E-07,6.8234E-07,7.4601E-07,8.7030E-07,1.0218E-06,1.1708E-06,1.2891E-06,1.5222E-06,1.7583E-06,1.8623E-06,1.8643E-06,1.7015E-06,1.4399E-06,1.3353E-06,1.2917E-06,1.2562E-06,1.2263E-06,1.2227E-06,1.2004E-06,1.1681E-06,1.1188E-06,1.0537E-06,9.5839E-07,8.3844E-07,7.2962E-07,6.2509E-07,5.2627E-07,4.4195E-07,3.8410E-07,3.4509E-07,3.1134E-07,2.7608E-07,2.6315E-07,2.8366E-07,3.7405E-07 ================================================ FILE: PREP/bcon/src/profile/avprofile_saprc07tc_ae6_aq_derived_from_cb6r3m_ae7_kmtbr_hemi2016_v53beta2_m3dry_col051_row068.csv ================================================ # # # The vertical profiles in this file were derived from a simulation with the # hemispheric version of CMAQv5.3 beta2 for the year 2016 and represent the annual # average values at the model grid cell closest to lat 37N, lon -157W. As such, # they are reflective of conditions in a remote marine environment. # The model simulations were performed with the CB6R3M_AE7_KMTBR chemical mechanism and # the annual average model outputs were mapped to the SAPRC07TC_AE6_AQ chemical mechanism # Model version: CMAQv5.3 beta2 (February 2018), including full halogen and DMS chemistry # Grid spacing: 108 x 108 km on a polar stereographic grid covering the northern hemisphere # Vertical layers: 44 # Meteorological fields: WRF3.8 # Chemical mechanism: CB6R3M_AE7_KMTBR (mapped to SAPRC07TC_AE6_AQ) # Dry Deposition: M3DRY # Top level pressure: 50 hPa # The vertical sigma levels used in the simulations were 1.0, 0.9975, 0.9946, 0.9913, 0.9875, 0.9831, 0.9781, 0.9723, 0.9657, 0.958, 0.9492, 0.9391, 0.9275, 0.9141, 0.8987, 0.881, 0.8607, 0.8373, 0.8104, 0.7795, 0.7439, 0.7066, 0.6693, 0.632, 0.5946, 0.5573, 0.52, 0.4827, 0.4454, 0.4081, 0.3708, 0.3352, 0.3013, 0.269, 0.2383, 0.2089, 0.181, 0.1543, 0.1289, 0.1047, 0.0816, 0.0596, 0.0386, 0.0186, 0. # The hourly meteorological and air quality fields used to derive these profiles # are archived at # /asm/ROMO/met/MCIP/WRFv3.8_108NHEMI2_2016_44aL/v4.3 # /asm/gsarwar/hemisphere/cmaqv53_beta_official/halogen/RUN_C VNAME,UNITS,LAYER01,LAYER02,LAYER03,LAYER04,LAYER05,LAYER06,LAYER07,LAYER08,LAYER09,LAYER10,LAYER11,LAYER12,LAYER13,LAYER14,LAYER15,LAYER16,LAYER17,LAYER18,LAYER19,LAYER20,LAYER21,LAYER22,LAYER23,LAYER24,LAYER25,LAYER26,LAYER27,LAYER28,LAYER29,LAYER30,LAYER31,LAYER32,LAYER33,LAYER34,LAYER35,LAYER36,LAYER37,LAYER38,LAYER39,LAYER40,LAYER41,LAYER42,LAYER43,LAYER44 "PRES","Pa",1.0181E+05,1.0155E+05,1.0124E+05,1.0090E+05,1.0050E+05,1.0004E+05,9.9512E+04,9.8907E+04,9.8209E+04,9.7404E+04,9.6482E+04,9.5424E+04,9.4205E+04,9.2801E+04,9.1188E+04,8.9338E+04,8.7211E+04,8.4764E+04,8.1955E+04,7.8726E+04,7.5189E+04,7.1571E+04,6.7955E+04,6.4335E+04,6.0716E+04,5.7103E+04,5.3491E+04,4.9880E+04,4.6270E+04,4.2660E+04,3.9134E+04,3.5772E+04,3.2571E+04,2.9525E+04,2.6619E+04,2.3849E+04,2.1210E+04,1.8691E+04,1.6294E+04,1.4007E+04,1.1827E+04,9.7480E+03,7.7657E+03,5.8994E+03 "ZH","m",1.0185E+01,3.2201E+01,5.7525E+01,8.6591E+01,1.2025E+02,1.5896E+02,2.0359E+02,2.5506E+02,3.1470E+02,3.8391E+02,4.6373E+02,5.5608E+02,6.6344E+02,7.8847E+02,9.3399E+02,1.1036E+03,1.3023E+03,1.5362E+03,1.8123E+03,2.1402E+03,2.5137E+03,2.9121E+03,3.3279E+03,3.7633E+03,4.2196E+03,4.6982E+03,5.2024E+03,5.7352E+03,6.3003E+03,6.9023E+03,7.5321E+03,8.1761E+03,8.8360E+03,9.5136E+03,1.0214E+04,1.0942E+04,1.1705E+04,1.2513E+04,1.3380E+04,1.4326E+04,1.5376E+04,1.6570E+04,1.7970E+04,1.9672E+04 "ZF","m",2.0375E+01,4.4047E+01,7.1039E+01,1.0220E+02,1.3838E+02,1.7964E+02,2.2768E+02,2.8261E+02,3.4703E+02,4.2110E+02,5.0673E+02,6.0590E+02,7.2159E+02,8.5611E+02,1.0129E+03,1.1957E+03,1.4108E+03,1.6641E+03,1.9638E+03,2.3214E+03,2.7111E+03,3.1176E+03,3.5423E+03,3.9880E+03,4.4542E+03,4.9446E+03,5.4620E+03,6.0097E+03,6.5917E+03,7.2132E+03,7.8487E+03,8.4986E+03,9.1656E+03,9.8509E+03,1.0564E+04,1.1305E+04,1.2087E+04,1.2919E+04,1.3819E+04,1.4810E+04,1.5921E+04,1.7203E+04,1.8737E+04,2.0629E+04 "NO2","ppmV",6.6416E-05,6.6871E-05,6.6995E-05,6.6251E-05,6.4791E-05,6.2946E-05,6.0125E-05,5.6347E-05,5.2051E-05,4.6051E-05,4.0643E-05,3.4908E-05,2.8844E-05,2.3595E-05,1.9684E-05,1.6852E-05,1.5218E-05,1.4624E-05,1.4303E-05,1.4142E-05,1.4275E-05,1.4340E-05,1.4250E-05,1.4080E-05,1.3700E-05,1.3191E-05,1.2747E-05,1.2518E-05,1.2453E-05,1.2474E-05,1.2500E-05,1.2349E-05,1.2799E-05,1.4980E-05,1.9595E-05,2.7242E-05,3.8982E-05,5.4613E-05,6.8501E-05,7.6555E-05,7.5536E-05,6.2896E-05,4.7995E-05,4.3004E-05 "NO","ppmV",7.2125E-06,7.3708E-06,7.4578E-06,7.4445E-06,7.3594E-06,7.2401E-06,7.0303E-06,6.6917E-06,6.3132E-06,5.6629E-06,5.0430E-06,4.2686E-06,3.4368E-06,2.7868E-06,2.3603E-06,2.1141E-06,2.1080E-06,2.2536E-06,2.4169E-06,2.6511E-06,2.8859E-06,3.1132E-06,3.2768E-06,3.4103E-06,3.4596E-06,3.4505E-06,3.4404E-06,3.4880E-06,3.5884E-06,3.7997E-06,4.2118E-06,4.7966E-06,5.6269E-06,7.1106E-06,9.8309E-06,1.4418E-05,2.1712E-05,3.2106E-05,4.2984E-05,5.0088E-05,4.8329E-05,3.3660E-05,2.1467E-05,1.6828E-05 "O3P","ppmV",3.8565E-11,3.8774E-11,3.9017E-11,3.9304E-11,3.9635E-11,4.0010E-11,4.0440E-11,4.0903E-11,4.1518E-11,4.2195E-11,4.2961E-11,4.3842E-11,4.4956E-11,4.6991E-11,5.0488E-11,5.5970E-11,6.3681E-11,7.4011E-11,8.6481E-11,1.0145E-10,1.1685E-10,1.3198E-10,1.4992E-10,1.7002E-10,1.9215E-10,2.1593E-10,2.4530E-10,2.7879E-10,3.1688E-10,3.6406E-10,4.2162E-10,4.8799E-10,5.6794E-10,6.8038E-10,8.5598E-10,1.1456E-09,1.6585E-09,2.5890E-09,4.2102E-09,6.8171E-09,1.2136E-08,3.5512E-08,1.0624E-07,3.1938E-07 "O3","ppmV",2.9175E-02,2.9212E-02,2.9237E-02,2.9261E-02,2.9282E-02,2.9294E-02,2.9285E-02,2.9268E-02,2.9236E-02,2.9183E-02,2.9094E-02,2.8951E-02,2.8814E-02,2.8780E-02,2.8908E-02,2.9365E-02,3.0223E-02,3.1446E-02,3.2937E-02,3.4518E-02,3.5985E-02,3.7176E-02,3.8610E-02,4.0036E-02,4.1363E-02,4.2594E-02,4.4067E-02,4.5605E-02,4.7165E-02,4.9155E-02,5.1509E-02,5.3923E-02,5.6682E-02,6.0912E-02,6.7728E-02,7.8214E-02,9.5268E-02,1.2097E-01,1.5442E-01,1.8961E-01,2.4869E-01,5.0406E-01,9.6055E-01,1.5983E+00 "NO3","ppmV",6.3239E-07,6.3023E-07,6.3151E-07,6.4556E-07,6.5635E-07,6.6224E-07,6.6575E-07,6.6570E-07,6.5354E-07,6.3346E-07,5.9811E-07,5.4948E-07,5.0238E-07,4.5992E-07,4.4629E-07,5.0144E-07,6.6674E-07,8.9469E-07,1.0479E-06,1.1333E-06,1.1645E-06,1.1331E-06,1.0786E-06,9.5645E-07,7.9273E-07,6.1975E-07,4.7106E-07,3.5094E-07,2.4854E-07,1.6729E-07,1.1407E-07,8.2662E-08,6.7138E-08,6.1447E-08,6.1893E-08,6.7501E-08,7.9188E-08,9.4982E-08,1.1225E-07,1.2714E-07,1.5253E-07,2.7354E-07,4.6465E-07,7.2979E-07 "O1D","ppmV",1.6680E-16,1.6824E-16,1.6969E-16,1.7139E-16,1.7336E-16,1.7563E-16,1.7820E-16,1.8114E-16,1.8492E-16,1.8893E-16,1.9354E-16,1.9842E-16,2.0425E-16,2.1446E-16,2.3020E-16,2.5385E-16,2.8813E-16,3.3418E-16,3.8904E-16,4.5539E-16,5.2169E-16,5.8509E-16,6.5957E-16,7.4102E-16,8.2638E-16,9.1601E-16,1.0270E-15,1.1484E-15,1.2803E-15,1.4361E-15,1.6180E-15,1.8138E-15,2.0264E-15,2.3043E-15,2.7207E-15,3.3824E-15,4.5020E-15,6.4212E-15,9.5835E-15,1.4107E-14,2.2197E-14,5.6672E-14,1.4333E-13,3.5583E-13 "OH","ppmV",6.0257E-08,6.0452E-08,6.0890E-08,6.1268E-08,6.1599E-08,6.1899E-08,6.2101E-08,6.1966E-08,6.1872E-08,6.0840E-08,5.9571E-08,5.7520E-08,5.4761E-08,5.3234E-08,5.3107E-08,5.3649E-08,5.4789E-08,5.6292E-08,5.7351E-08,5.8706E-08,6.0053E-08,6.1655E-08,6.4520E-08,6.7518E-08,7.0455E-08,7.2308E-08,7.3371E-08,7.3707E-08,7.3616E-08,7.4039E-08,7.5315E-08,7.6337E-08,7.7136E-08,8.0977E-08,9.0723E-08,1.0808E-07,1.3565E-07,1.6986E-07,2.0080E-07,2.1621E-07,2.1041E-07,1.7666E-07,2.0241E-07,3.2347E-07 "HO2","ppmV",4.5776E-06,4.6298E-06,4.6529E-06,4.6612E-06,4.6692E-06,4.6783E-06,4.6847E-06,4.6863E-06,4.6817E-06,4.6378E-06,4.6082E-06,4.5504E-06,4.4590E-06,4.3915E-06,4.3729E-06,4.4360E-06,4.5784E-06,4.7666E-06,4.9391E-06,5.1092E-06,5.2609E-06,5.3674E-06,5.4993E-06,5.6002E-06,5.6491E-06,5.6427E-06,5.6104E-06,5.5505E-06,5.4659E-06,5.3639E-06,5.2341E-06,5.0251E-06,4.7401E-06,4.4441E-06,4.1458E-06,3.7731E-06,3.2729E-06,2.6874E-06,2.1534E-06,1.7736E-06,1.6658E-06,1.8948E-06,2.7505E-06,4.7410E-06 "HO2H","ppmV",5.1128E-04,5.3838E-04,5.5228E-04,5.6388E-04,5.7763E-04,5.9353E-04,6.1284E-04,6.3553E-04,6.5406E-04,6.7245E-04,6.9578E-04,7.2476E-04,7.6345E-04,7.9405E-04,8.1356E-04,8.3012E-04,8.4774E-04,8.5946E-04,8.5617E-04,8.4635E-04,8.3386E-04,8.1462E-04,8.0074E-04,7.7892E-04,7.4954E-04,7.1234E-04,6.7188E-04,6.2844E-04,5.8534E-04,5.3936E-04,4.9701E-04,4.5885E-04,4.1729E-04,3.7210E-04,3.2271E-04,2.6247E-04,1.9002E-04,1.1687E-04,6.1086E-05,3.2219E-05,2.3866E-05,2.5105E-05,3.9866E-05,7.2061E-05 "N2O5","ppmV",1.4375E-07,1.4709E-07,1.5167E-07,1.5903E-07,1.6283E-07,1.6500E-07,1.6458E-07,1.6057E-07,1.5183E-07,1.3934E-07,1.2930E-07,1.1708E-07,1.0381E-07,8.9736E-08,7.8628E-08,8.0162E-08,9.9393E-08,1.2383E-07,1.4304E-07,1.5891E-07,1.7690E-07,1.9811E-07,2.2334E-07,2.5308E-07,2.8381E-07,3.1261E-07,3.4115E-07,3.9116E-07,4.5317E-07,5.0107E-07,5.2425E-07,5.2036E-07,5.5098E-07,6.8349E-07,9.4135E-07,1.3491E-06,1.9204E-06,2.5556E-06,2.9779E-06,3.1016E-06,3.1708E-06,3.5271E-06,3.4359E-06,3.3245E-06 "HNO3","ppmV",1.1265E-05,1.1896E-05,1.2122E-05,1.2228E-05,1.2284E-05,1.2123E-05,1.1850E-05,1.1513E-05,1.0957E-05,1.0199E-05,9.9439E-06,9.8369E-06,9.7639E-06,1.0503E-05,1.2482E-05,1.7998E-05,2.9995E-05,4.7323E-05,6.3910E-05,7.7114E-05,8.3643E-05,8.4341E-05,8.4299E-05,8.2708E-05,7.8905E-05,7.2852E-05,6.8405E-05,6.4564E-05,6.0652E-05,5.5594E-05,5.5257E-05,5.5122E-05,5.4123E-05,5.4742E-05,5.9479E-05,7.0813E-05,8.7695E-05,1.1294E-04,1.3073E-04,1.4017E-04,1.4997E-04,1.6858E-04,1.9492E-04,1.9109E-04 "HONO","ppmV",3.3428E-07,3.4958E-07,3.5813E-07,3.6052E-07,3.5749E-07,3.5063E-07,3.3733E-07,3.1688E-07,2.9525E-07,2.6246E-07,2.2851E-07,1.8710E-07,1.4384E-07,1.1027E-07,8.7757E-08,7.3392E-08,6.7131E-08,6.6303E-08,6.6287E-08,6.7646E-08,6.9351E-08,7.0788E-08,7.1929E-08,7.2739E-08,7.1536E-08,6.8091E-08,6.3856E-08,6.0481E-08,5.8345E-08,5.8221E-08,6.1497E-08,6.7660E-08,7.9080E-08,1.0356E-07,1.5148E-07,2.3827E-07,3.8660E-07,5.9639E-07,7.6695E-07,7.8086E-07,5.6439E-07,2.1447E-07,8.6833E-08,5.8682E-08 "HNO4","ppmV",3.5945E-07,3.7887E-07,3.9310E-07,4.0144E-07,4.0714E-07,4.1237E-07,4.1309E-07,4.0806E-07,4.0122E-07,3.8022E-07,3.6528E-07,3.4873E-07,3.3335E-07,3.1873E-07,3.0628E-07,2.9419E-07,2.9272E-07,3.0072E-07,3.1366E-07,3.5039E-07,4.1949E-07,5.2770E-07,6.9530E-07,9.5198E-07,1.3183E-06,1.8456E-06,2.6647E-06,3.9817E-06,6.0712E-06,9.4194E-06,1.4663E-05,2.1378E-05,2.8056E-05,3.3560E-05,3.7713E-05,3.9710E-05,3.8768E-05,3.4780E-05,2.8660E-05,2.2662E-05,1.9871E-05,2.1243E-05,2.2100E-05,2.1869E-05 "SO2","ppmV",5.4355E-05,5.7123E-05,5.8149E-05,5.8463E-05,5.8357E-05,5.8007E-05,5.6671E-05,5.5215E-05,5.3257E-05,5.0326E-05,4.6945E-05,4.2034E-05,3.5603E-05,2.6485E-05,1.8360E-05,1.5769E-05,1.8670E-05,2.1209E-05,2.4521E-05,2.7210E-05,2.7597E-05,2.6593E-05,2.6638E-05,2.5707E-05,2.4190E-05,2.2350E-05,2.0865E-05,2.0084E-05,2.0071E-05,2.0049E-05,1.8998E-05,1.7031E-05,1.4960E-05,1.3414E-05,1.1827E-05,1.0114E-05,8.7051E-06,7.1918E-06,5.6031E-06,4.0243E-06,2.7778E-06,1.8096E-06,1.1213E-06,8.0725E-07 "SULF","ppmV",1.6687E-07,1.7535E-07,1.7721E-07,1.7677E-07,1.7418E-07,1.7016E-07,1.6121E-07,1.4958E-07,1.3712E-07,1.2094E-07,1.0714E-07,8.9856E-08,7.2616E-08,5.4124E-08,3.7047E-08,3.4783E-08,4.5198E-08,5.9581E-08,6.8019E-08,7.5408E-08,7.8893E-08,7.6362E-08,7.7664E-08,7.7982E-08,7.9026E-08,7.8998E-08,7.7740E-08,7.6924E-08,7.9078E-08,8.1761E-08,8.1616E-08,7.8394E-08,7.6351E-08,7.6352E-08,8.1190E-08,9.1297E-08,1.0113E-07,1.0351E-07,9.5228E-08,7.9420E-08,6.2146E-08,4.3982E-08,3.5559E-08,4.4326E-08 "MECO3","ppmV",1.0728E-07,1.0575E-07,1.0350E-07,1.0097E-07,9.8214E-08,9.5239E-08,9.2255E-08,8.9461E-08,8.6931E-08,8.5824E-08,8.4531E-08,8.3610E-08,8.3536E-08,8.5455E-08,8.9451E-08,9.5305E-08,1.0193E-07,1.1141E-07,1.1903E-07,1.2288E-07,1.2148E-07,1.1758E-07,1.1583E-07,1.1178E-07,1.0572E-07,9.9327E-08,9.3837E-08,8.9390E-08,8.7095E-08,8.6498E-08,8.7375E-08,8.8460E-08,8.8587E-08,8.6356E-08,8.0811E-08,7.0465E-08,5.5109E-08,3.8218E-08,2.3127E-08,1.3485E-08,9.4856E-09,8.3730E-09,8.3286E-09,8.9411E-09 "MEO2","ppmV",8.6952E-06,7.4168E-06,7.1223E-06,7.2182E-06,7.4120E-06,7.5927E-06,7.8101E-06,8.1119E-06,8.4784E-06,9.2304E-06,9.2710E-06,9.2215E-06,9.1680E-06,9.2017E-06,9.3323E-06,9.3486E-06,9.0891E-06,8.6307E-06,8.1396E-06,7.6123E-06,7.1224E-06,6.6961E-06,6.3533E-06,6.0576E-06,5.8203E-06,5.5769E-06,5.3195E-06,4.9929E-06,4.6170E-06,4.1958E-06,3.7361E-06,3.2642E-06,2.7926E-06,2.3178E-06,1.8439E-06,1.3884E-06,9.7968E-07,6.6294E-07,4.8645E-07,4.0785E-07,4.1134E-07,5.6500E-07,8.9815E-07,1.4845E-06 "PAN","ppmV",3.8243E-05,3.8806E-05,3.9058E-05,3.9241E-05,3.9404E-05,3.9558E-05,3.9699E-05,3.9825E-05,3.9932E-05,4.0051E-05,4.0231E-05,4.0538E-05,4.1056E-05,4.2247E-05,4.4205E-05,4.7114E-05,5.0964E-05,5.5650E-05,6.1536E-05,6.7639E-05,7.4276E-05,8.1608E-05,9.2102E-05,1.0601E-04,1.2269E-04,1.4159E-04,1.6071E-04,1.7612E-04,1.8694E-04,1.9341E-04,1.9739E-04,1.9928E-04,1.9854E-04,1.9740E-04,1.9772E-04,1.9429E-04,1.8459E-04,1.6792E-04,1.4105E-04,1.0642E-04,8.3079E-05,6.9653E-05,5.7747E-05,5.0248E-05 "CCOOOH","ppmV",4.3532E-06,4.6037E-06,4.7220E-06,4.8154E-06,4.9123E-06,5.0174E-06,5.1454E-06,5.3221E-06,5.5240E-06,5.7742E-06,6.0594E-06,6.4017E-06,6.8504E-06,7.4089E-06,8.1207E-06,8.9700E-06,9.9642E-06,1.1011E-05,1.1947E-05,1.2607E-05,1.3006E-05,1.3244E-05,1.3781E-05,1.4323E-05,1.4790E-05,1.5375E-05,1.6151E-05,1.6960E-05,1.7750E-05,1.8299E-05,1.8608E-05,1.8730E-05,1.8571E-05,1.7914E-05,1.6436E-05,1.3372E-05,8.9318E-06,4.5201E-06,1.6731E-06,6.6461E-07,4.6454E-07,5.1067E-07,6.0664E-07,6.6332E-07 "CCOOH","ppmV",1.3605E-05,1.4369E-05,1.4778E-05,1.5136E-05,1.5550E-05,1.6066E-05,1.6756E-05,1.7737E-05,1.8752E-05,1.9958E-05,2.1399E-05,2.3199E-05,2.5746E-05,2.8780E-05,3.2251E-05,3.5546E-05,3.9636E-05,4.3827E-05,4.7092E-05,4.9042E-05,4.9284E-05,4.8403E-05,4.9417E-05,5.0776E-05,5.1628E-05,5.2657E-05,5.4240E-05,5.5289E-05,5.5611E-05,5.4577E-05,5.3349E-05,5.2136E-05,5.0333E-05,4.7461E-05,4.3246E-05,3.6361E-05,2.6518E-05,1.5820E-05,7.2913E-06,2.8562E-06,1.6716E-06,1.4615E-06,1.5007E-06,1.5252E-06 "RCO3","ppmV",2.3659E-08,2.3085E-08,2.2546E-08,2.2011E-08,2.1440E-08,2.0811E-08,2.0167E-08,1.9548E-08,1.8964E-08,1.8664E-08,1.8298E-08,1.7982E-08,1.7812E-08,1.7870E-08,1.8226E-08,1.8743E-08,1.9467E-08,2.0470E-08,2.1019E-08,2.0904E-08,2.0019E-08,1.8776E-08,1.8012E-08,1.7468E-08,1.6979E-08,1.6888E-08,1.7354E-08,1.8174E-08,1.9212E-08,2.0124E-08,2.1025E-08,2.1745E-08,2.2215E-08,2.2015E-08,2.0764E-08,1.8119E-08,1.4111E-08,9.8102E-09,6.0356E-09,3.5718E-09,2.5525E-09,2.3566E-09,2.1842E-09,2.0781E-09 "CCHO","ppmV",1.3728E-05,1.4250E-05,1.4492E-05,1.4677E-05,1.4853E-05,1.5019E-05,1.5207E-05,1.5424E-05,1.5655E-05,1.5937E-05,1.6236E-05,1.6556E-05,1.6945E-05,1.7426E-05,1.8005E-05,1.8672E-05,1.9464E-05,2.0296E-05,2.0924E-05,2.1141E-05,2.0945E-05,2.0672E-05,2.0758E-05,2.0852E-05,2.0846E-05,2.0985E-05,2.1247E-05,2.1557E-05,2.1832E-05,2.1872E-05,2.1672E-05,2.1341E-05,2.0864E-05,2.0185E-05,1.9041E-05,1.6786E-05,1.3394E-05,9.7315E-06,6.5760E-06,4.1843E-06,2.9366E-06,2.0830E-06,1.2498E-06,8.2197E-07 "PAN2","ppmV",7.8161E-06,7.8926E-06,7.9267E-06,7.9514E-06,7.9714E-06,7.9893E-06,8.0037E-06,8.0170E-06,8.0248E-06,8.0296E-06,8.0331E-06,8.0443E-06,8.0662E-06,8.1595E-06,8.3115E-06,8.5284E-06,8.8270E-06,9.1799E-06,9.5920E-06,9.9217E-06,1.0204E-05,1.0456E-05,1.0834E-05,1.1200E-05,1.1496E-05,1.1804E-05,1.2089E-05,1.2330E-05,1.2486E-05,1.2526E-05,1.2455E-05,1.2331E-05,1.2079E-05,1.1796E-05,1.1567E-05,1.0610E-05,8.6273E-06,5.9131E-06,3.5697E-06,1.9382E-06,1.3862E-06,1.2815E-06,1.0554E-06,8.0686E-07 "HCHO","ppmV",2.5795E-04,2.7193E-04,2.7877E-04,2.8402E-04,2.8898E-04,2.9310E-04,2.9677E-04,2.9930E-04,2.9971E-04,2.9839E-04,2.9638E-04,2.9094E-04,2.8277E-04,2.7236E-04,2.6224E-04,2.5327E-04,2.4583E-04,2.3869E-04,2.2838E-04,2.1720E-04,2.0510E-04,1.9329E-04,1.8246E-04,1.7096E-04,1.5938E-04,1.4647E-04,1.3313E-04,1.1970E-04,1.0676E-04,9.4700E-05,8.4285E-05,7.5296E-05,6.7521E-05,6.1294E-05,5.6442E-05,5.1736E-05,4.6112E-05,3.9140E-05,3.1669E-05,2.4434E-05,1.8438E-05,1.2607E-05,1.0869E-05,1.2368E-05 "COOH","ppmV",2.1265E-04,2.2404E-04,2.2981E-04,2.3473E-04,2.4031E-04,2.4652E-04,2.5496E-04,2.6659E-04,2.7956E-04,2.9738E-04,3.1988E-04,3.5201E-04,3.9474E-04,4.3913E-04,4.7629E-04,5.0333E-04,5.1665E-04,5.1440E-04,5.0434E-04,4.8549E-04,4.6116E-04,4.3809E-04,4.1876E-04,3.9998E-04,3.8369E-04,3.6829E-04,3.5349E-04,3.3531E-04,3.1436E-04,2.8869E-04,2.5990E-04,2.3151E-04,2.0323E-04,1.7232E-04,1.3846E-04,1.0012E-04,6.0030E-05,2.6926E-05,1.0243E-05,5.1951E-06,4.3639E-06,5.6536E-06,1.0213E-05,1.8874E-05 "MEOH","ppmV",4.3044E-05,4.5316E-05,4.6473E-05,4.7484E-05,4.8688E-05,5.0181E-05,5.2232E-05,5.4935E-05,5.7849E-05,6.1863E-05,6.7482E-05,7.5785E-05,8.7228E-05,9.9928E-05,1.1194E-04,1.2064E-04,1.2606E-04,1.2818E-04,1.2763E-04,1.2412E-04,1.1854E-04,1.1284E-04,1.1063E-04,1.1062E-04,1.1165E-04,1.1429E-04,1.1819E-04,1.2073E-04,1.2163E-04,1.2109E-04,1.2019E-04,1.2172E-04,1.2370E-04,1.2435E-04,1.2369E-04,1.1429E-04,9.3141E-05,6.5659E-05,4.0061E-05,2.0939E-05,1.2361E-05,8.3582E-06,6.3053E-06,5.2752E-06 "ROOH","ppmV",3.3632E-05,3.5771E-05,3.6782E-05,3.7583E-05,3.8381E-05,3.9177E-05,4.0063E-05,4.1176E-05,4.2431E-05,4.3944E-05,4.5684E-05,4.7697E-05,5.0173E-05,5.3095E-05,5.6338E-05,5.9061E-05,6.1315E-05,6.2998E-05,6.3443E-05,6.2780E-05,6.0895E-05,5.8909E-05,5.9074E-05,5.9659E-05,6.0377E-05,6.1569E-05,6.2910E-05,6.3691E-05,6.3653E-05,6.2489E-05,6.0339E-05,5.7425E-05,5.3731E-05,4.8765E-05,4.2221E-05,3.2513E-05,2.0341E-05,9.3402E-06,3.0839E-06,9.9336E-07,6.1620E-07,6.5461E-07,7.8324E-07,8.7889E-07 "RNO3","ppmV",2.3676E-05,2.4037E-05,2.4208E-05,2.4344E-05,2.4466E-05,2.4576E-05,2.4672E-05,2.4767E-05,2.4835E-05,2.4897E-05,2.4941E-05,2.4978E-05,2.5001E-05,2.5064E-05,2.5198E-05,2.5449E-05,2.5927E-05,2.6671E-05,2.7363E-05,2.7816E-05,2.8058E-05,2.8238E-05,2.8911E-05,2.9645E-05,3.0077E-05,3.0188E-05,3.0445E-05,3.1183E-05,3.1965E-05,3.2657E-05,3.3498E-05,3.4384E-05,3.5247E-05,3.6590E-05,3.8857E-05,4.1661E-05,4.4362E-05,4.6752E-05,4.6741E-05,4.4856E-05,4.3046E-05,4.2004E-05,4.1511E-05,4.1157E-05 "HCOOH","ppmV",2.4966E-06,2.6518E-06,2.7347E-06,2.8058E-06,2.8843E-06,2.9814E-06,3.1082E-06,3.2898E-06,3.4700E-06,3.6544E-06,3.8641E-06,4.1128E-06,4.4779E-06,4.9307E-06,5.5120E-06,6.1311E-06,7.0820E-06,8.0481E-06,8.9337E-06,9.5902E-06,1.0006E-05,1.0131E-05,1.0618E-05,1.1279E-05,1.1861E-05,1.2517E-05,1.3392E-05,1.4210E-05,1.5011E-05,1.5788E-05,1.6670E-05,1.7636E-05,1.8513E-05,1.9692E-05,2.1685E-05,2.4394E-05,2.7583E-05,3.0310E-05,3.0495E-05,2.7826E-05,2.3997E-05,2.0253E-05,1.7856E-05,1.6978E-05 "CO","ppmV",7.5955E-02,7.5958E-02,7.5961E-02,7.5965E-02,7.5969E-02,7.5988E-02,7.6017E-02,7.6058E-02,7.6102E-02,7.6147E-02,7.6200E-02,7.6266E-02,7.6353E-02,7.6431E-02,7.6525E-02,7.6687E-02,7.6852E-02,7.7101E-02,7.7255E-02,7.7356E-02,7.7436E-02,7.7468E-02,7.7803E-02,7.8197E-02,7.8505E-02,7.8985E-02,7.9548E-02,7.9959E-02,8.0055E-02,7.9829E-02,7.9312E-02,7.8646E-02,7.7667E-02,7.6315E-02,7.4366E-02,7.1075E-02,6.5669E-02,5.8520E-02,5.0335E-02,4.1951E-02,3.6316E-02,3.1798E-02,2.7969E-02,2.6143E-02 "RCHO","ppmV",3.2993E-06,3.4961E-06,3.5816E-06,3.6421E-06,3.6937E-06,3.7373E-06,3.7780E-06,3.8205E-06,3.8638E-06,3.9103E-06,3.9571E-06,3.9946E-06,4.0258E-06,4.0651E-06,4.0938E-06,4.0956E-06,4.0684E-06,4.0258E-06,3.9122E-06,3.7126E-06,3.4436E-06,3.2096E-06,3.0908E-06,2.9745E-06,2.8615E-06,2.7635E-06,2.6466E-06,2.5162E-06,2.3738E-06,2.2062E-06,2.0084E-06,1.8007E-06,1.5834E-06,1.3669E-06,1.1536E-06,9.1078E-07,6.2454E-07,3.5401E-07,1.6197E-07,4.7762E-08,1.5744E-08,8.3471E-09,5.3306E-09,3.0388E-09 "HOCCHO","ppmV",2.1947E-07,2.3231E-07,2.3727E-07,2.4036E-07,2.4289E-07,2.4496E-07,2.4687E-07,2.4890E-07,2.5145E-07,2.5448E-07,2.5788E-07,2.6147E-07,2.6728E-07,2.7541E-07,2.9021E-07,3.1079E-07,3.3973E-07,3.6222E-07,3.7809E-07,3.8340E-07,3.8015E-07,3.7786E-07,3.8321E-07,3.8494E-07,3.9138E-07,4.0096E-07,4.1415E-07,4.4207E-07,4.7788E-07,5.1588E-07,5.4523E-07,5.5663E-07,5.5040E-07,5.3826E-07,5.1920E-07,4.5816E-07,3.4568E-07,1.9973E-07,8.7440E-08,2.0844E-08,3.5412E-09,1.0280E-09,2.4817E-10,5.7738E-11 "GLY","ppmV",2.5537E-07,2.6832E-07,2.7312E-07,2.7567E-07,2.7818E-07,2.7822E-07,2.7667E-07,2.7527E-07,2.7169E-07,2.6570E-07,2.5881E-07,2.5105E-07,2.4226E-07,2.3378E-07,2.2305E-07,2.2601E-07,2.4016E-07,2.5096E-07,2.6625E-07,2.7482E-07,2.7001E-07,2.6222E-07,2.6705E-07,2.6836E-07,2.6581E-07,2.6344E-07,2.6119E-07,2.5676E-07,2.4975E-07,2.3906E-07,2.2757E-07,2.1480E-07,2.0173E-07,1.9014E-07,1.8267E-07,1.7489E-07,1.5826E-07,1.2619E-07,8.1386E-08,3.5810E-08,1.4916E-08,6.2133E-09,3.0519E-09,2.3157E-09 "MGLY","ppmV",6.5773E-08,6.9345E-08,7.0775E-08,7.1633E-08,7.2315E-08,7.2493E-08,7.2139E-08,7.1882E-08,7.1429E-08,7.0383E-08,6.8797E-08,6.6420E-08,6.3719E-08,6.0198E-08,5.6251E-08,5.4195E-08,5.5289E-08,5.5414E-08,5.5552E-08,5.4325E-08,5.1054E-08,4.7860E-08,4.6957E-08,4.4676E-08,4.1922E-08,3.8618E-08,3.4784E-08,3.1015E-08,2.7478E-08,2.3657E-08,2.0046E-08,1.6866E-08,1.4357E-08,1.2528E-08,1.1268E-08,9.9664E-09,7.8799E-09,5.1047E-09,2.5147E-09,7.2007E-10,1.9692E-10,1.2191E-10,7.4357E-11,5.8247E-11 "ALK1","ppmV",4.5334E-04,4.5337E-04,4.5339E-04,4.5340E-04,4.5336E-04,4.5338E-04,4.5335E-04,4.5343E-04,4.5335E-04,4.5298E-04,4.5212E-04,4.5125E-04,4.5044E-04,4.4929E-04,4.4765E-04,4.4637E-04,4.4436E-04,4.4266E-04,4.3946E-04,4.3437E-04,4.2818E-04,4.2223E-04,4.1901E-04,4.1602E-04,4.1290E-04,4.1197E-04,4.1169E-04,4.0892E-04,4.0380E-04,3.9702E-04,3.8862E-04,3.7915E-04,3.6724E-04,3.5368E-04,3.3886E-04,3.1718E-04,2.8553E-04,2.4667E-04,2.0175E-04,1.5201E-04,1.1769E-04,9.8593E-05,8.3365E-05,7.4939E-05 "ETOH","ppmV",4.8736E-07,5.1500E-07,5.2604E-07,5.3333E-07,5.3977E-07,5.4571E-07,5.5212E-07,5.5981E-07,5.6917E-07,5.8084E-07,5.9488E-07,6.1435E-07,6.4601E-07,6.8986E-07,7.5830E-07,8.3772E-07,9.7557E-07,1.1558E-06,1.3056E-06,1.3915E-06,1.4046E-06,1.3780E-06,1.4153E-06,1.4580E-06,1.5025E-06,1.5503E-06,1.6233E-06,1.7221E-06,1.8429E-06,1.9604E-06,2.0679E-06,2.1654E-06,2.2518E-06,2.2951E-06,2.2723E-06,2.0567E-06,1.5895E-06,9.9747E-07,4.8242E-07,1.3382E-07,3.2627E-08,1.3080E-08,6.2428E-09,2.5258E-09 "MEK","ppmV",3.4601E-04,3.5917E-04,3.6581E-04,3.7141E-04,3.7740E-04,3.8415E-04,3.9233E-04,4.0303E-04,4.1387E-04,4.2685E-04,4.4254E-04,4.6221E-04,4.8988E-04,5.2461E-04,5.6601E-04,6.1180E-04,6.6565E-04,7.2121E-04,7.6532E-04,7.9774E-04,8.1469E-04,8.1898E-04,8.3711E-04,8.5548E-04,8.6709E-04,8.8176E-04,9.0017E-04,9.1383E-04,9.2258E-04,9.2300E-04,9.2141E-04,9.1771E-04,9.0921E-04,8.9623E-04,8.7696E-04,8.3148E-04,7.4857E-04,6.2875E-04,4.7065E-04,2.9329E-04,1.8037E-04,1.0206E-04,5.4843E-05,3.7359E-05 "ALK3","ppmV",3.1699E-04,3.1700E-04,3.1696E-04,3.1686E-04,3.1662E-04,3.1630E-04,3.1570E-04,3.1505E-04,3.1417E-04,3.1301E-04,3.1108E-04,3.0878E-04,3.0581E-04,3.0268E-04,2.9842E-04,2.9211E-04,2.8447E-04,2.7781E-04,2.6984E-04,2.5895E-04,2.4739E-04,2.3755E-04,2.3317E-04,2.2859E-04,2.2406E-04,2.2062E-04,2.1587E-04,2.0945E-04,2.0218E-04,1.9353E-04,1.8284E-04,1.7140E-04,1.5827E-04,1.4395E-04,1.2884E-04,1.0733E-04,7.5679E-05,4.2005E-05,1.7650E-05,3.8091E-06,7.6822E-07,4.7984E-07,4.2271E-07,1.1921E-07 "ALK4","ppmV",3.1699E-04,3.1700E-04,3.1696E-04,3.1686E-04,3.1662E-04,3.1630E-04,3.1570E-04,3.1505E-04,3.1417E-04,3.1301E-04,3.1108E-04,3.0878E-04,3.0581E-04,3.0268E-04,2.9842E-04,2.9211E-04,2.8447E-04,2.7781E-04,2.6984E-04,2.5895E-04,2.4739E-04,2.3755E-04,2.3317E-04,2.2859E-04,2.2406E-04,2.2062E-04,2.1587E-04,2.0945E-04,2.0218E-04,1.9353E-04,1.8284E-04,1.7140E-04,1.5827E-04,1.4395E-04,1.2884E-04,1.0733E-04,7.5679E-05,4.2005E-05,1.7650E-05,3.8091E-06,7.6822E-07,4.7984E-07,4.2271E-07,1.1921E-07 "ALK5","ppmV",3.2660E-04,3.2661E-04,3.2657E-04,3.2647E-04,3.2621E-04,3.2589E-04,3.2527E-04,3.2459E-04,3.2369E-04,3.2250E-04,3.2051E-04,3.1814E-04,3.1507E-04,3.1185E-04,3.0747E-04,3.0096E-04,2.9309E-04,2.8623E-04,2.7801E-04,2.6680E-04,2.5488E-04,2.4475E-04,2.4024E-04,2.3551E-04,2.3085E-04,2.2731E-04,2.2241E-04,2.1579E-04,2.0830E-04,1.9939E-04,1.8838E-04,1.7659E-04,1.6307E-04,1.4832E-04,1.3274E-04,1.1058E-04,7.7973E-05,4.3278E-05,1.8185E-05,3.9245E-06,7.9150E-07,4.9438E-07,4.3552E-07,1.2282E-07 "ACETONE","ppmV",5.9216E-05,6.1870E-05,6.3239E-05,6.4407E-05,6.5695E-05,6.7192E-05,6.9070E-05,7.1577E-05,7.4086E-05,7.7074E-05,8.0693E-05,8.5205E-05,9.1684E-05,9.9688E-05,1.0914E-04,1.1944E-04,1.3180E-04,1.4491E-04,1.5562E-04,1.6437E-04,1.7076E-04,1.7483E-04,1.8264E-04,1.9112E-04,1.9822E-04,2.0647E-04,2.1651E-04,2.2494E-04,2.3145E-04,2.3479E-04,2.3728E-04,2.3986E-04,2.4163E-04,2.4209E-04,2.3901E-04,2.2524E-04,1.9697E-04,1.5650E-04,1.0699E-04,5.6294E-05,2.9127E-05,1.3512E-05,5.4206E-06,2.9543E-06 "ALK2","ppmV",5.1761E-05,5.1764E-05,5.1762E-05,5.1756E-05,5.1734E-05,5.1709E-05,5.1653E-05,5.1603E-05,5.1525E-05,5.1411E-05,5.1189E-05,5.0930E-05,5.0606E-05,5.0316E-05,4.9983E-05,4.9562E-05,4.8942E-05,4.8235E-05,4.7404E-05,4.6220E-05,4.5083E-05,4.4101E-05,4.3413E-05,4.2696E-05,4.1952E-05,4.1428E-05,4.0907E-05,4.0149E-05,3.9167E-05,3.7963E-05,3.6557E-05,3.5158E-05,3.3533E-05,3.1786E-05,2.9892E-05,2.6932E-05,2.2339E-05,1.6778E-05,1.1183E-05,6.1300E-06,3.4362E-06,2.1686E-06,1.3609E-06,1.0026E-06 "ACETYLENE","ppmV",6.2570E-05,6.2589E-05,6.2597E-05,6.2597E-05,6.2587E-05,6.2583E-05,6.2564E-05,6.2550E-05,6.2524E-05,6.2470E-05,6.2359E-05,6.2214E-05,6.2001E-05,6.1837E-05,6.1655E-05,6.1470E-05,6.1133E-05,6.0806E-05,6.0334E-05,5.9839E-05,5.9519E-05,5.9482E-05,6.0299E-05,6.1182E-05,6.2029E-05,6.3174E-05,6.4325E-05,6.5117E-05,6.5487E-05,6.5223E-05,6.4265E-05,6.2838E-05,6.0768E-05,5.7983E-05,5.4419E-05,4.8477E-05,3.9092E-05,2.7904E-05,1.7304E-05,8.6931E-06,4.8405E-06,3.0838E-06,1.9205E-06,1.4497E-06 "ETHENE","ppmV",3.1499E-06,3.1508E-06,3.1507E-06,3.1492E-06,3.1453E-06,3.1414E-06,3.1329E-06,3.1243E-06,3.1123E-06,3.0948E-06,3.0688E-06,3.0415E-06,3.0065E-06,2.9794E-06,2.9452E-06,2.8782E-06,2.8076E-06,2.7311E-06,2.6630E-06,2.5544E-06,2.4327E-06,2.3424E-06,2.3043E-06,2.2421E-06,2.1846E-06,2.1350E-06,2.0635E-06,1.9877E-06,1.9278E-06,1.8526E-06,1.7255E-06,1.5894E-06,1.4524E-06,1.3806E-06,1.3642E-06,1.1747E-06,8.1871E-07,3.8334E-07,1.2948E-07,2.7548E-08,6.5739E-09,2.5192E-09,6.7729E-10,1.3926E-10 "OLE1","ppmV",9.6266E-08,9.7047E-08,9.7191E-08,9.5979E-08,9.3711E-08,9.0950E-08,8.6893E-08,8.1452E-08,7.5240E-08,6.6454E-08,5.8769E-08,5.0846E-08,4.2364E-08,3.5126E-08,2.9229E-08,2.3803E-08,1.9281E-08,1.6055E-08,1.3779E-08,1.1999E-08,1.1151E-08,1.0587E-08,1.0169E-08,1.0109E-08,1.0198E-08,1.0169E-08,1.0026E-08,1.0051E-08,1.0170E-08,1.0189E-08,9.5776E-09,8.9621E-09,7.9902E-09,7.0309E-09,5.5266E-09,3.6554E-09,2.2166E-09,1.0121E-09,3.5941E-10,9.2692E-11,2.6681E-11,8.8100E-12,1.5129E-12,1.0786E-13 "PROPENE","ppmV",3.9320E-08,3.9639E-08,3.9698E-08,3.9203E-08,3.8276E-08,3.7148E-08,3.5491E-08,3.3269E-08,3.0732E-08,2.7143E-08,2.4004E-08,2.0768E-08,1.7304E-08,1.4347E-08,1.1938E-08,9.7224E-09,7.8755E-09,6.5576E-09,5.6280E-09,4.9010E-09,4.5548E-09,4.3244E-09,4.1536E-09,4.1290E-09,4.1655E-09,4.1537E-09,4.0953E-09,4.1053E-09,4.1538E-09,4.1619E-09,3.9120E-09,3.6606E-09,3.2636E-09,2.8718E-09,2.2574E-09,1.4931E-09,9.0536E-10,4.1339E-10,1.4680E-10,3.7860E-11,1.0898E-11,3.5984E-12,6.1793E-13,4.4056E-14 "OLE2","ppmV",7.4448E-09,7.6704E-09,7.7114E-09,7.4720E-09,7.1001E-09,6.6934E-09,6.1508E-09,5.4664E-09,4.7453E-09,3.6848E-09,2.9363E-09,2.2695E-09,1.6421E-09,1.1841E-09,8.8328E-10,6.3624E-10,4.4867E-10,3.0836E-10,2.1244E-10,1.4515E-10,1.1594E-10,1.0050E-10,6.9506E-11,6.1462E-11,6.0797E-11,6.0610E-11,5.8952E-11,5.3390E-11,4.6202E-11,3.8847E-11,3.0215E-11,2.6736E-11,2.7139E-11,2.8214E-11,2.5768E-11,2.1311E-11,1.4407E-11,6.8335E-12,1.7422E-12,1.7716E-13,4.5363E-15,6.8463E-17,5.3885E-19,4.3827E-21 "ISOPRENE","ppmV",9.1576E-09,9.2996E-09,9.3197E-09,9.1265E-09,8.8199E-09,8.4653E-09,7.9663E-09,7.3161E-09,6.6104E-09,5.5801E-09,4.7546E-09,3.9610E-09,3.1208E-09,2.4296E-09,1.9089E-09,1.4651E-09,1.0818E-09,7.7693E-10,5.5930E-10,3.8644E-10,3.0726E-10,2.5750E-10,1.9684E-10,1.7474E-10,1.6637E-10,1.5850E-10,1.4666E-10,1.2618E-10,1.0582E-10,8.7325E-11,6.7775E-11,5.5216E-11,4.6821E-11,3.5271E-11,2.2093E-11,1.2586E-11,5.6529E-12,6.9933E-13,7.6732E-14,1.4907E-15,9.2721E-18,2.4331E-19,9.6984E-21,1.1903E-22 "MACR","ppmV",1.2026E-09,1.2255E-09,1.2393E-09,1.2432E-09,1.2321E-09,1.2118E-09,1.1754E-09,1.1202E-09,1.0529E-09,9.6099E-10,8.6524E-10,7.5597E-10,6.3451E-10,5.2772E-10,4.3704E-10,3.5024E-10,2.7477E-10,2.1661E-10,1.7911E-10,1.4757E-10,1.3322E-10,1.3098E-10,1.2534E-10,1.2378E-10,1.2503E-10,1.2284E-10,1.1778E-10,1.1832E-10,1.2606E-10,1.3628E-10,1.4380E-10,1.4673E-10,1.3400E-10,1.0895E-10,7.0142E-11,3.5707E-11,1.6789E-11,4.2000E-12,7.0294E-13,4.9412E-14,2.6367E-15,1.6618E-16,9.9292E-18,2.7414E-19 "MVK","ppmV",1.6189E-09,1.6498E-09,1.6684E-09,1.6736E-09,1.6585E-09,1.6313E-09,1.5822E-09,1.5079E-09,1.4173E-09,1.2936E-09,1.1648E-09,1.0176E-09,8.5414E-10,7.1040E-10,5.8832E-10,4.7147E-10,3.6988E-10,2.9159E-10,2.4112E-10,1.9865E-10,1.7934E-10,1.7632E-10,1.6872E-10,1.6663E-10,1.6831E-10,1.6536E-10,1.5854E-10,1.5927E-10,1.6969E-10,1.8346E-10,1.9357E-10,1.9752E-10,1.8039E-10,1.4666E-10,9.4422E-11,4.8067E-11,2.2601E-11,5.6539E-12,9.4626E-13,6.6516E-14,3.5494E-15,2.2371E-16,1.3366E-17,3.6903E-19 "IPRD","ppmV",1.8039E-09,1.8383E-09,1.8590E-09,1.8648E-09,1.8481E-09,1.8177E-09,1.7631E-09,1.6802E-09,1.5793E-09,1.4415E-09,1.2979E-09,1.1339E-09,9.5176E-10,7.9158E-10,6.5556E-10,5.2536E-10,4.1215E-10,3.2492E-10,2.6867E-10,2.2136E-10,1.9983E-10,1.9647E-10,1.8801E-10,1.8568E-10,1.8755E-10,1.8426E-10,1.7666E-10,1.7747E-10,1.8908E-10,2.0442E-10,2.1569E-10,2.2009E-10,2.0100E-10,1.6342E-10,1.0521E-10,5.3560E-11,2.5184E-11,6.3000E-12,1.0544E-12,7.4118E-14,3.9550E-15,2.4928E-16,1.4894E-17,4.1121E-19 "ISOPOOH","ppmV",5.5762E-10,5.8797E-10,6.0137E-10,6.0748E-10,6.0869E-10,6.0613E-10,5.9729E-10,5.7983E-10,5.5235E-10,5.0523E-10,4.6259E-10,4.1608E-10,3.6189E-10,3.1027E-10,2.6280E-10,2.1448E-10,1.7319E-10,1.3859E-10,1.1456E-10,9.4406E-11,8.4172E-11,7.8942E-11,7.0598E-11,6.4859E-11,6.1452E-11,5.8280E-11,5.5473E-11,5.4997E-11,5.7903E-11,6.0079E-11,5.8072E-11,5.2444E-11,4.0619E-11,2.9230E-11,1.7927E-11,8.6503E-12,3.2719E-12,6.9161E-13,6.5073E-14,2.0568E-15,1.1283E-16,1.0176E-17,1.1984E-18,3.3218E-20 "MACO3","ppmV",1.3727E-09,1.3622E-09,1.3469E-09,1.3325E-09,1.3173E-09,1.2998E-09,1.2821E-09,1.2682E-09,1.2575E-09,1.2742E-09,1.2809E-09,1.2803E-09,1.2792E-09,1.2917E-09,1.3064E-09,1.3148E-09,1.3100E-09,1.3013E-09,1.2894E-09,1.2713E-09,1.2320E-09,1.2008E-09,1.1949E-09,1.1849E-09,1.1748E-09,1.1676E-09,1.1556E-09,1.1215E-09,1.0768E-09,1.0296E-09,9.7190E-10,9.1975E-10,8.5384E-10,7.8732E-10,7.3324E-10,6.7953E-10,5.8669E-10,4.5367E-10,2.8894E-10,1.2014E-10,5.0076E-11,2.7873E-11,1.6313E-11,1.2535E-11 "IEPOX","ppmV",1.5706E-09,1.6516E-09,1.6902E-09,1.7167E-09,1.7397E-09,1.7583E-09,1.7706E-09,1.7701E-09,1.7466E-09,1.6979E-09,1.6497E-09,1.5976E-09,1.5348E-09,1.4955E-09,1.6012E-09,1.9115E-09,2.2483E-09,2.7065E-09,3.1337E-09,3.5949E-09,4.1005E-09,4.3920E-09,4.6050E-09,5.3094E-09,6.8147E-09,9.3540E-09,1.3356E-08,1.9389E-08,2.9112E-08,4.3840E-08,6.7940E-08,9.5077E-08,1.2364E-07,1.5220E-07,1.6108E-07,1.4789E-07,1.1741E-07,8.0926E-08,4.0449E-08,9.1397E-09,8.5843E-10,1.8749E-10,3.5957E-11,7.2574E-12 "IEPOXOO","ppmV",7.8325E-12,8.0303E-12,8.1629E-12,8.3125E-12,8.4660E-12,8.6023E-12,8.7355E-12,8.8295E-12,8.8536E-12,8.7534E-12,8.5598E-12,8.2506E-12,7.7778E-12,7.4469E-12,7.9220E-12,9.4917E-12,1.0632E-11,1.1134E-11,1.0875E-11,1.1922E-11,1.4028E-11,1.5119E-11,1.6215E-11,1.8276E-11,2.2412E-11,3.1585E-11,4.7053E-11,6.5808E-11,9.3161E-11,1.3676E-10,2.2047E-10,3.0956E-10,3.7457E-10,4.1613E-10,3.9450E-10,3.3083E-10,2.3247E-10,1.5252E-10,8.2003E-11,1.9282E-11,1.6726E-12,6.3584E-13,1.6247E-13,5.6506E-14 "TERP","ppmV",3.5684E-15,3.5876E-15,3.6035E-15,3.6191E-15,3.6354E-15,3.6528E-15,3.6719E-15,3.6937E-15,3.7207E-15,3.7543E-15,3.7964E-15,3.8502E-15,3.9208E-15,4.0196E-15,4.1534E-15,4.3546E-15,4.6876E-15,5.3003E-15,6.3790E-15,8.4465E-15,1.2509E-14,1.7677E-14,1.9689E-14,2.0987E-14,1.9156E-14,1.7425E-14,1.9689E-14,3.2104E-14,6.1164E-14,1.0995E-13,1.6239E-13,1.9287E-13,1.9867E-13,1.9382E-13,2.7988E-13,3.3981E-13,1.2417E-13,1.3148E-14,1.5194E-15,5.7082E-17,2.7401E-19,1.8774E-21,1.2645E-23,1.0008E-24 "APIN","ppmV",3.8924E-20,3.8852E-20,3.8984E-20,3.9129E-20,3.9167E-20,3.9319E-20,3.9351E-20,3.9563E-20,3.9798E-20,4.0089E-20,4.0705E-20,4.1459E-20,4.2568E-20,4.4116E-20,4.6276E-20,4.9782E-20,5.6579E-20,7.7535E-20,1.0108E-19,2.8072E-19,6.3678E-19,8.8247E-19,1.2040E-18,1.9601E-18,3.3639E-18,5.4607E-18,8.0540E-18,1.0883E-17,1.2813E-17,1.3752E-17,1.0947E-17,3.8618E-18,8.0945E-19,4.9805E-20,4.6766E-21,2.7696E-21,1.6447E-21,2.9187E-22,5.3057E-23,1.9771E-24,9.6012E-25,9.6215E-25,9.5566E-25,9.4302E-25 "BENZENE","ppmV",2.1689E-05,2.1711E-05,2.1721E-05,2.1726E-05,2.1727E-05,2.1728E-05,2.1722E-05,2.1719E-05,2.1715E-05,2.1702E-05,2.1666E-05,2.1615E-05,2.1513E-05,2.1456E-05,2.1376E-05,2.1305E-05,2.1159E-05,2.1023E-05,2.0877E-05,2.0685E-05,2.0565E-05,2.0547E-05,2.0912E-05,2.1236E-05,2.1528E-05,2.1931E-05,2.2215E-05,2.2293E-05,2.2210E-05,2.1914E-05,2.1287E-05,2.0513E-05,1.9521E-05,1.8313E-05,1.6933E-05,1.4754E-05,1.1364E-05,7.4759E-06,4.1283E-06,1.6825E-06,7.7383E-07,4.4254E-07,2.3596E-07,1.5562E-07 "CRES","ppmV",1.1160E-07,1.1814E-07,1.2094E-07,1.2282E-07,1.2438E-07,1.2577E-07,1.2705E-07,1.2848E-07,1.3013E-07,1.3253E-07,1.3508E-07,1.3807E-07,1.4124E-07,1.4467E-07,1.4798E-07,1.5111E-07,1.5092E-07,1.4991E-07,1.4644E-07,1.4254E-07,1.3946E-07,1.4240E-07,1.5099E-07,1.6150E-07,1.7383E-07,1.9020E-07,2.0719E-07,2.2172E-07,2.3185E-07,2.3745E-07,2.3586E-07,2.2849E-07,2.1502E-07,1.9550E-07,1.6850E-07,1.3109E-07,8.5630E-08,4.4901E-08,1.8996E-08,6.2644E-09,2.5364E-09,1.2379E-09,6.2989E-10,4.4300E-10 "AFG1","ppmV",2.5211E-08,2.5700E-08,2.5901E-08,2.5994E-08,2.5996E-08,2.5969E-08,2.5844E-08,2.5678E-08,2.5458E-08,2.5117E-08,2.4690E-08,2.4219E-08,2.3701E-08,2.3144E-08,2.2396E-08,2.1419E-08,2.0112E-08,1.8904E-08,1.7650E-08,1.6309E-08,1.5143E-08,1.4584E-08,1.4586E-08,1.4723E-08,1.4974E-08,1.5378E-08,1.5602E-08,1.5625E-08,1.5550E-08,1.5309E-08,1.4929E-08,1.4687E-08,1.4365E-08,1.3963E-08,1.3749E-08,1.3349E-08,1.1983E-08,9.1937E-09,5.6476E-09,2.1579E-09,7.6360E-10,2.8235E-10,1.0276E-10,5.9033E-11 "AFG2","ppmV",2.5211E-08,2.5700E-08,2.5901E-08,2.5994E-08,2.5996E-08,2.5969E-08,2.5844E-08,2.5678E-08,2.5458E-08,2.5117E-08,2.4690E-08,2.4219E-08,2.3701E-08,2.3144E-08,2.2396E-08,2.1419E-08,2.0112E-08,1.8904E-08,1.7650E-08,1.6309E-08,1.5143E-08,1.4584E-08,1.4586E-08,1.4723E-08,1.4974E-08,1.5378E-08,1.5602E-08,1.5625E-08,1.5550E-08,1.5309E-08,1.4929E-08,1.4687E-08,1.4365E-08,1.3963E-08,1.3749E-08,1.3349E-08,1.1983E-08,9.1937E-09,5.6476E-09,2.1579E-09,7.6360E-10,2.8235E-10,1.0276E-10,5.9033E-11 "BENZRO2","ppmV",4.1125E-09,3.9884E-09,3.9593E-09,3.9769E-09,4.0071E-09,4.0410E-09,4.0868E-09,4.1525E-09,4.2415E-09,4.4159E-09,4.5229E-09,4.5899E-09,4.6308E-09,4.6847E-09,4.7405E-09,4.7882E-09,4.7643E-09,4.7563E-09,4.7022E-09,4.4503E-09,4.0655E-09,3.7084E-09,3.5568E-09,3.4512E-09,3.3712E-09,3.3097E-09,3.2483E-09,3.1509E-09,3.0322E-09,2.8689E-09,2.6821E-09,2.4911E-09,2.2626E-09,2.0280E-09,1.8105E-09,1.5933E-09,1.3135E-09,9.6494E-10,6.1391E-10,2.8676E-10,1.4746E-10,1.1097E-10,8.2749E-11,6.9798E-11 "ARO1","ppmV",4.0408E-06,4.0453E-06,4.0463E-06,4.0441E-06,4.0378E-06,4.0301E-06,4.0154E-06,3.9980E-06,3.9764E-06,3.9453E-06,3.9047E-06,3.8587E-06,3.7993E-06,3.7523E-06,3.6969E-06,3.6142E-06,3.5179E-06,3.4366E-06,3.3696E-06,3.2480E-06,3.1204E-06,3.0463E-06,3.0588E-06,3.0223E-06,2.9837E-06,2.9359E-06,2.8266E-06,2.7022E-06,2.5969E-06,2.4624E-06,2.2395E-06,1.9931E-06,1.7713E-06,1.5982E-06,1.4274E-06,1.1369E-06,7.4019E-07,3.3115E-07,1.0221E-07,1.6528E-08,1.9982E-09,5.0361E-10,1.3658E-10,3.8048E-11 "TOLRO2","ppmV",3.7487E-09,3.6253E-09,3.5987E-09,3.6153E-09,3.6422E-09,3.6719E-09,3.7108E-09,3.7638E-09,3.8413E-09,3.9708E-09,4.0501E-09,4.0824E-09,4.0838E-09,4.1461E-09,4.2468E-09,4.2310E-09,4.1903E-09,4.1577E-09,4.2302E-09,4.0821E-09,3.4705E-09,2.9005E-09,2.5789E-09,2.3755E-09,2.2658E-09,2.1815E-09,2.0753E-09,1.9671E-09,1.8845E-09,1.7798E-09,1.6298E-09,1.4721E-09,1.2779E-09,1.1058E-09,9.3669E-10,7.4673E-10,5.0696E-10,2.8337E-10,1.2348E-10,2.8039E-11,4.0411E-12,1.2498E-12,4.7962E-13,1.6118E-13 "AFG3","ppmV",7.5984E-09,7.8647E-09,7.9695E-09,7.9967E-09,7.9590E-09,7.8957E-09,7.7683E-09,7.6038E-09,7.4121E-09,7.1329E-09,6.8070E-09,6.4492E-09,6.0846E-09,5.7482E-09,5.4125E-09,4.9824E-09,4.5295E-09,4.1125E-09,3.7842E-09,3.3778E-09,2.9629E-09,2.7114E-09,2.5978E-09,2.5184E-09,2.4623E-09,2.4009E-09,2.2830E-09,2.1323E-09,1.9792E-09,1.8035E-09,1.5922E-09,1.4477E-09,1.3377E-09,1.2441E-09,1.1735E-09,1.0737E-09,8.8018E-10,5.3905E-10,2.3523E-10,4.9634E-11,4.5887E-12,7.9870E-13,1.4668E-13,2.3167E-14 "ARO2MN","ppmV",2.4070E-07,2.4157E-07,2.4176E-07,2.4073E-07,2.3860E-07,2.3596E-07,2.3184E-07,2.2638E-07,2.1988E-07,2.1071E-07,2.0161E-07,1.9196E-07,1.8103E-07,1.7151E-07,1.6249E-07,1.5174E-07,1.4248E-07,1.3601E-07,1.2995E-07,1.2013E-07,1.1016E-07,1.0286E-07,1.0067E-07,9.7397E-08,9.4255E-08,9.0088E-08,8.4206E-08,7.7766E-08,7.1500E-08,6.4211E-08,5.3674E-08,4.4139E-08,3.6438E-08,3.0478E-08,2.4893E-08,1.8577E-08,1.1900E-08,5.0862E-09,1.4888E-09,2.5141E-10,4.3992E-11,1.5381E-11,3.7902E-12,5.6194E-13 "MXYL","ppmV",5.3951E-08,5.4144E-08,5.4187E-08,5.3958E-08,5.3479E-08,5.2888E-08,5.1965E-08,5.0739E-08,4.9283E-08,4.7228E-08,4.5189E-08,4.3026E-08,4.0575E-08,3.8442E-08,3.6420E-08,3.4012E-08,3.1935E-08,3.0484E-08,2.9127E-08,2.6926E-08,2.4692E-08,2.3056E-08,2.2563E-08,2.1830E-08,2.1126E-08,2.0192E-08,1.8874E-08,1.7430E-08,1.6026E-08,1.4392E-08,1.2030E-08,9.8932E-09,8.1671E-09,6.8314E-09,5.5795E-09,4.1639E-09,2.6673E-09,1.1400E-09,3.3369E-10,5.6350E-11,9.8604E-12,3.4475E-12,8.4952E-13,1.2595E-13 "OXYL","ppmV",4.5651E-08,4.5814E-08,4.5851E-08,4.5657E-08,4.5251E-08,4.4752E-08,4.3970E-08,4.2933E-08,4.1701E-08,3.9962E-08,3.8237E-08,3.6407E-08,3.4333E-08,3.2528E-08,3.0817E-08,2.8779E-08,2.7022E-08,2.5794E-08,2.4646E-08,2.2784E-08,2.0893E-08,1.9509E-08,1.9092E-08,1.8472E-08,1.7876E-08,1.7086E-08,1.5970E-08,1.4749E-08,1.3560E-08,1.2178E-08,1.0179E-08,8.3712E-09,6.9106E-09,5.7804E-09,4.7211E-09,3.5233E-09,2.2570E-09,9.6462E-10,2.8236E-10,4.7680E-11,8.3434E-12,2.9171E-12,7.1882E-13,1.0658E-13 "PXYL","ppmV",5.3951E-08,5.4144E-08,5.4187E-08,5.3958E-08,5.3479E-08,5.2888E-08,5.1965E-08,5.0739E-08,4.9283E-08,4.7228E-08,4.5189E-08,4.3026E-08,4.0575E-08,3.8442E-08,3.6420E-08,3.4012E-08,3.1935E-08,3.0484E-08,2.9127E-08,2.6926E-08,2.4692E-08,2.3056E-08,2.2563E-08,2.1830E-08,2.1126E-08,2.0192E-08,1.8874E-08,1.7430E-08,1.6026E-08,1.4392E-08,1.2030E-08,9.8932E-09,8.1671E-09,6.8314E-09,5.5795E-09,4.1639E-09,2.6673E-09,1.1400E-09,3.3369E-10,5.6350E-11,9.8604E-12,3.4475E-12,8.4952E-13,1.2595E-13 "TMBENZ124","ppmV",2.0750E-08,2.0825E-08,2.0841E-08,2.0753E-08,2.0569E-08,2.0342E-08,1.9987E-08,1.9515E-08,1.8955E-08,1.8164E-08,1.7380E-08,1.6549E-08,1.5606E-08,1.4785E-08,1.4008E-08,1.3081E-08,1.2283E-08,1.1725E-08,1.1203E-08,1.0356E-08,9.4968E-09,8.8676E-09,8.6781E-09,8.3963E-09,8.1254E-09,7.7662E-09,7.2592E-09,6.7040E-09,6.1638E-09,5.5355E-09,4.6270E-09,3.8051E-09,3.1412E-09,2.6274E-09,2.1460E-09,1.6015E-09,1.0259E-09,4.3846E-10,1.2834E-10,2.1673E-11,3.7925E-12,1.3259E-12,3.2674E-13,4.8443E-14 "XYLRO2","ppmV",1.1294E-09,1.0991E-09,1.0902E-09,1.0878E-09,1.0837E-09,1.0778E-09,1.0690E-09,1.0574E-09,1.0459E-09,1.0315E-09,1.0059E-09,9.6841E-10,9.2084E-10,8.8704E-10,8.6275E-10,8.1295E-10,7.7155E-10,7.4046E-10,7.4040E-10,7.0368E-10,5.8769E-10,4.6118E-10,3.7188E-10,3.2278E-10,2.9974E-10,2.7854E-10,2.5297E-10,2.2691E-10,2.0443E-10,1.8268E-10,1.5512E-10,1.3077E-10,1.0349E-10,8.1503E-11,6.2751E-11,4.5749E-11,2.8515E-11,1.4498E-11,5.8948E-12,1.3711E-12,2.9833E-13,1.3654E-13,4.3844E-14,7.7603E-15 "NAPHTHAL","ppmV",9.8989E-09,9.9100E-09,9.9129E-09,9.9133E-09,9.9098E-09,9.9066E-09,9.8896E-09,9.8772E-09,9.8492E-09,9.8007E-09,9.7079E-09,9.6182E-09,9.4990E-09,9.4135E-09,9.2822E-09,8.9944E-09,8.7345E-09,8.5500E-09,8.3497E-09,7.9330E-09,7.5143E-09,7.1708E-09,7.1340E-09,6.9926E-09,6.8991E-09,6.7839E-09,6.5591E-09,6.2532E-09,5.9188E-09,5.4669E-09,4.6712E-09,3.8545E-09,3.1529E-09,2.6912E-09,2.0555E-09,1.2752E-09,7.1942E-10,3.1500E-10,1.1232E-10,3.1237E-11,1.1178E-11,4.9113E-12,1.2465E-12,1.8105E-13 "PAHRO2","ppmV",2.5360E-11,2.4556E-11,2.4365E-11,2.4445E-11,2.4587E-11,2.4746E-11,2.4942E-11,2.5232E-11,2.5613E-11,2.6236E-11,2.6561E-11,2.6752E-11,2.6840E-11,2.7247E-11,2.7813E-11,2.7407E-11,2.6991E-11,2.6785E-11,2.7622E-11,2.7066E-11,2.3166E-11,1.8481E-11,1.5050E-11,1.3134E-11,1.2432E-11,1.1863E-11,1.1135E-11,1.0312E-11,9.5998E-12,8.8519E-12,7.7178E-12,6.5620E-12,5.2289E-12,4.2005E-12,3.1950E-12,2.1917E-12,1.3115E-12,6.9355E-13,3.2417E-13,1.0887E-13,4.3598E-14,2.5072E-14,8.3808E-15,1.4486E-15 "BZO","ppmV",4.6734E-09,4.9340E-09,5.0738E-09,5.2150E-09,5.3657E-09,5.5233E-09,5.7128E-09,5.9589E-09,6.2876E-09,6.9660E-09,7.6097E-09,8.2571E-09,9.0709E-09,1.0112E-08,1.1274E-08,1.2431E-08,1.3310E-08,1.4046E-08,1.4741E-08,1.5674E-08,1.5856E-08,1.6031E-08,1.6578E-08,1.7099E-08,1.7826E-08,1.8394E-08,1.8627E-08,1.8642E-08,1.8408E-08,1.8356E-08,1.8784E-08,1.9258E-08,1.8911E-08,1.7810E-08,1.6377E-08,1.4743E-08,1.2780E-08,1.0233E-08,6.8502E-09,3.0170E-09,1.0917E-09,4.4765E-10,2.9191E-10,2.9203E-10 "NPHE","ppmV",2.3425E-07,2.4357E-07,2.4792E-07,2.5103E-07,2.5364E-07,2.5615E-07,2.5821E-07,2.6039E-07,2.6251E-07,2.6429E-07,2.6638E-07,2.6901E-07,2.7153E-07,2.7555E-07,2.7827E-07,2.7949E-07,2.7914E-07,2.8033E-07,2.8360E-07,3.0153E-07,3.3469E-07,3.8456E-07,4.4443E-07,5.0649E-07,5.8413E-07,6.8056E-07,7.8499E-07,8.8469E-07,9.8724E-07,1.0971E-06,1.2044E-06,1.2999E-06,1.3489E-06,1.3524E-06,1.3435E-06,1.2982E-06,1.1558E-06,9.3116E-07,6.1277E-07,2.5760E-07,9.7232E-08,3.8102E-08,1.3364E-08,7.4991E-09 "MAPAN","ppmV",3.0920E-07,3.1110E-07,3.1199E-07,3.1257E-07,3.1284E-07,3.1291E-07,3.1258E-07,3.1184E-07,3.1030E-07,3.0747E-07,3.0351E-07,2.9882E-07,2.9319E-07,2.8786E-07,2.8130E-07,2.7371E-07,2.6686E-07,2.6336E-07,2.6068E-07,2.5462E-07,2.4626E-07,2.3940E-07,2.3644E-07,2.2985E-07,2.2053E-07,2.0920E-07,1.9348E-07,1.7632E-07,1.5959E-07,1.4067E-07,1.1852E-07,9.8422E-08,8.1299E-08,6.9133E-08,5.9931E-08,4.9354E-08,3.6310E-08,2.3416E-08,1.3646E-08,6.1147E-09,3.0228E-09,2.0318E-09,1.0725E-09,5.9353E-10 "CL2","ppmV",3.1848E-06,2.6677E-06,2.4102E-06,2.2170E-06,2.0493E-06,1.9080E-06,1.7606E-06,1.6100E-06,1.4836E-06,1.3416E-06,1.1880E-06,1.0121E-06,7.9241E-07,6.0468E-07,4.6666E-07,3.4868E-07,2.4791E-07,1.7232E-07,1.2027E-07,8.0447E-08,6.2435E-08,5.0828E-08,3.3165E-08,2.6918E-08,2.5112E-08,2.3919E-08,2.2252E-08,1.8923E-08,1.5736E-08,1.2735E-08,9.9306E-09,8.1697E-09,7.2023E-09,6.1694E-09,4.4518E-09,2.6316E-09,1.2957E-09,1.1998E-10,1.0892E-11,2.5351E-12,7.7601E-12,9.1336E-11,7.9534E-10,2.4531E-09 "CL","ppmV",1.8843E-10,1.3969E-10,1.2353E-10,1.1553E-10,1.1089E-10,1.0899E-10,1.0886E-10,1.0821E-10,1.0926E-10,1.0852E-10,1.0576E-10,1.0332E-10,9.2251E-11,9.0735E-11,9.4689E-11,9.1533E-11,7.8429E-11,6.9207E-11,6.3123E-11,6.0639E-11,4.8241E-11,4.1446E-11,3.7541E-11,3.2142E-11,3.1487E-11,3.1442E-11,3.2179E-11,3.3198E-11,3.4556E-11,3.6412E-11,4.1071E-11,4.6090E-11,4.7219E-11,4.8981E-11,5.6154E-11,7.1786E-11,9.8825E-11,1.4906E-10,2.2160E-10,3.1198E-10,3.6166E-10,3.0542E-10,3.1625E-10,3.0533E-10 "CLO","ppmV",1.3283E-07,1.0466E-07,9.5584E-08,9.1686E-08,9.0230E-08,9.0699E-08,9.3417E-08,9.6647E-08,1.0292E-07,1.1146E-07,1.2050E-07,1.2621E-07,1.2727E-07,1.3464E-07,1.4718E-07,1.4788E-07,1.3334E-07,1.2221E-07,1.1028E-07,9.6880E-08,7.3462E-08,6.0973E-08,5.6190E-08,5.0036E-08,5.0038E-08,5.0721E-08,5.3447E-08,5.6678E-08,6.0198E-08,6.4076E-08,7.0631E-08,7.5324E-08,7.1191E-08,6.2469E-08,5.8027E-08,5.9170E-08,6.7326E-08,9.0000E-08,1.2622E-07,1.7831E-07,2.8273E-07,7.3665E-07,2.2681E-06,4.7181E-06 "CLCHO","ppmV",4.9595E-06,4.9899E-06,5.0055E-06,5.0185E-06,5.0308E-06,5.0438E-06,5.0573E-06,5.0739E-06,5.0903E-06,5.1070E-06,5.1230E-06,5.1384E-06,5.1520E-06,5.1809E-06,5.2207E-06,5.2687E-06,5.2977E-06,5.3080E-06,5.3103E-06,5.2814E-06,5.2354E-06,5.2077E-06,5.2365E-06,5.2482E-06,5.2406E-06,5.2472E-06,5.2341E-06,5.1959E-06,5.1289E-06,5.0105E-06,4.8358E-06,4.6341E-06,4.3949E-06,4.1178E-06,3.7891E-06,3.3244E-06,2.6625E-06,1.9341E-06,1.2317E-06,6.4416E-07,3.6598E-07,2.2677E-07,1.3216E-07,9.1725E-08 "HCL","ppmV",1.4001E-04,1.4003E-04,1.3847E-04,1.3679E-04,1.3471E-04,1.3149E-04,1.2755E-04,1.2246E-04,1.1658E-04,1.1020E-04,1.0249E-04,9.3975E-05,8.6557E-05,8.2115E-05,8.1151E-05,7.8217E-05,7.5829E-05,8.1217E-05,8.5392E-05,8.4884E-05,8.1505E-05,7.6030E-05,7.2529E-05,6.6630E-05,6.2027E-05,5.8353E-05,5.6403E-05,5.5783E-05,5.5710E-05,5.6300E-05,5.9520E-05,6.3201E-05,6.1118E-05,5.8580E-05,5.8015E-05,6.2532E-05,6.7257E-05,7.7093E-05,9.0043E-05,1.0216E-04,1.0779E-04,1.0657E-04,9.5006E-05,8.1132E-05 "CLNO2","ppmV",1.3426E-06,1.3416E-06,1.3430E-06,1.3453E-06,1.3335E-06,1.3090E-06,1.2764E-06,1.2294E-06,1.1706E-06,1.0923E-06,1.0109E-06,9.1656E-07,8.1551E-07,7.0072E-07,5.8106E-07,4.6328E-07,3.6665E-07,2.8670E-07,2.1487E-07,1.5927E-07,1.3327E-07,1.1483E-07,1.0672E-07,1.0226E-07,9.6559E-08,9.0085E-08,8.5294E-08,7.8934E-08,7.0885E-08,6.0477E-08,4.7539E-08,3.6601E-08,3.0116E-08,2.4578E-08,1.7645E-08,1.1109E-08,5.8601E-09,1.4096E-09,1.7603E-10,5.5964E-12,2.1417E-14,1.5474E-16,2.4290E-18,4.1856E-20 "CLONO2","ppmV",1.6844E-06,1.7206E-06,1.7215E-06,1.7129E-06,1.6932E-06,1.6697E-06,1.6437E-06,1.6092E-06,1.5720E-06,1.5121E-06,1.4376E-06,1.3294E-06,1.2029E-06,1.0975E-06,1.0140E-06,8.8663E-07,7.8837E-07,7.3137E-07,7.0911E-07,6.7685E-07,6.1126E-07,5.6417E-07,5.3424E-07,5.0338E-07,4.7581E-07,4.4606E-07,4.3150E-07,4.1606E-07,3.9734E-07,3.8646E-07,4.0000E-07,4.0564E-07,3.8071E-07,3.5143E-07,3.5931E-07,4.1341E-07,5.4534E-07,7.7984E-07,1.0939E-06,1.3964E-06,1.9877E-06,4.4431E-06,9.9405E-06,1.3753E-05 "SESQ","ppmV",1.0291E-21,1.0505E-21,1.0549E-21,1.0488E-21,1.0173E-21,9.7724E-22,9.3585E-22,8.9413E-22,8.6027E-22,8.5445E-22,8.6817E-22,8.8141E-22,9.0237E-22,9.3247E-22,9.5750E-22,9.6989E-22,9.6659E-22,9.6455E-22,9.5785E-22,9.4554E-22,9.7628E-22,1.0001E-21,7.6756E-22,7.6844E-22,8.1954E-22,8.7543E-22,9.0393E-22,8.8117E-22,7.7182E-22,6.4036E-22,4.0706E-22,3.2135E-22,2.6878E-22,2.2622E-22,1.8010E-22,1.5230E-22,9.1786E-23,7.7408E-25,1.0346E-25,1.0195E-25,6.1488E-26,4.0527E-27,9.1608E-30,1.0107E-30 "SOAALK","ppmV",3.2902E-06,3.2927E-06,3.2923E-06,3.2862E-06,3.2731E-06,3.2579E-06,3.2318E-06,3.1995E-06,3.1586E-06,3.1004E-06,3.0298E-06,2.9540E-06,2.8624E-06,2.7787E-06,2.6807E-06,2.5322E-06,2.3802E-06,2.2331E-06,2.0941E-06,1.8898E-06,1.7153E-06,1.5687E-06,1.4614E-06,1.3605E-06,1.2615E-06,1.1535E-06,1.0381E-06,9.1650E-07,7.9913E-07,6.7184E-07,5.2908E-07,4.1095E-07,3.2078E-07,2.6131E-07,2.1400E-07,1.5492E-07,9.1077E-08,3.5906E-08,1.0296E-08,2.1715E-09,6.4111E-10,2.5073E-10,6.2314E-11,1.0491E-11 "H2NO3PIJ","ppmV",3.2214E-20,3.2302E-20,3.3507E-20,3.5500E-20,3.6431E-20,3.6904E-20,3.6714E-20,3.5586E-20,3.3849E-20,3.1495E-20,2.9055E-20,2.6019E-20,2.3079E-20,1.9330E-20,1.5957E-20,1.3493E-20,1.1570E-20,8.7498E-21,7.3467E-21,6.7669E-21,6.5215E-21,5.7920E-21,5.2269E-21,4.9839E-21,4.8351E-21,5.2875E-21,5.7034E-21,5.7684E-21,5.9676E-21,5.9546E-21,5.4420E-21,4.6943E-21,4.2766E-21,4.4008E-21,5.1828E-21,6.1186E-21,7.5749E-21,8.4282E-21,6.5585E-21,3.5641E-21,1.2524E-21,7.1552E-22,4.4812E-22,2.7026E-22 "H2NO3PK","ppmV",2.3949E-20,2.4131E-20,2.4846E-20,2.5952E-20,2.6507E-20,2.6779E-20,2.6681E-20,2.6021E-20,2.5108E-20,2.3609E-20,2.2026E-20,2.0007E-20,1.7786E-20,1.4716E-20,1.1615E-20,9.3227E-21,7.4031E-21,5.6597E-21,4.3658E-21,3.6611E-21,3.4015E-21,3.2264E-21,3.1878E-21,3.2211E-21,3.2343E-21,3.2205E-21,3.2063E-21,3.2207E-21,3.1974E-21,3.0606E-21,2.7590E-21,2.3600E-21,2.1802E-21,2.2215E-21,2.3795E-21,2.5630E-21,2.5929E-21,2.3184E-21,1.7921E-21,1.1906E-21,7.3125E-22,5.3589E-22,3.0995E-22,1.6079E-22 "VLVPO1","ppmV",2.7955E-07,2.7459E-07,2.6892E-07,2.6229E-07,2.5480E-07,2.4638E-07,2.3701E-07,2.2764E-07,2.1712E-07,2.0496E-07,1.9199E-07,1.7799E-07,1.6454E-07,1.5078E-07,1.3685E-07,1.2617E-07,1.2008E-07,1.1646E-07,1.0941E-07,9.8521E-08,8.4277E-08,6.9052E-08,5.5626E-08,4.3102E-08,3.2014E-08,2.2979E-08,1.5618E-08,9.8896E-09,5.7276E-09,3.0475E-09,1.4824E-09,6.5735E-10,2.6702E-10,1.0084E-10,3.7649E-11,1.5864E-11,8.6204E-12,5.5502E-12,3.6942E-12,2.4169E-12,1.5758E-12,1.2217E-12,1.2904E-12,2.1679E-12 "VSVPO1","ppmV",1.2367E-07,1.2534E-07,1.2533E-07,1.2437E-07,1.2276E-07,1.2056E-07,1.1769E-07,1.1430E-07,1.1072E-07,1.0605E-07,1.0145E-07,9.6525E-08,9.1134E-08,8.6646E-08,8.3962E-08,8.4156E-08,8.7618E-08,9.2388E-08,9.5026E-08,9.2721E-08,8.3785E-08,7.2349E-08,6.1564E-08,5.2963E-08,4.4686E-08,3.6185E-08,2.8072E-08,2.0257E-08,1.3849E-08,8.9516E-09,5.2835E-09,2.8196E-09,1.3735E-09,6.3929E-10,3.0394E-10,1.6432E-10,1.0651E-10,7.6755E-11,5.6105E-11,4.0281E-11,2.8753E-11,2.3911E-11,2.5923E-11,4.2383E-11 "VSVPO2","ppmV",5.6335E-08,5.9299E-08,6.0694E-08,6.0981E-08,6.0515E-08,5.9500E-08,5.7580E-08,5.4709E-08,5.1183E-08,4.6039E-08,4.1504E-08,3.6731E-08,3.1642E-08,2.7448E-08,2.4564E-08,2.2391E-08,2.2133E-08,2.1783E-08,2.3876E-08,2.4735E-08,2.5719E-08,2.7509E-08,2.8735E-08,3.0320E-08,3.1613E-08,3.1750E-08,3.0364E-08,2.6320E-08,2.1248E-08,1.6875E-08,1.2895E-08,8.7602E-09,5.4861E-09,3.4693E-09,2.3197E-09,1.6844E-09,1.3274E-09,1.0763E-09,8.4084E-10,6.2011E-10,4.4049E-10,3.3584E-10,3.1126E-10,4.3337E-10 "VSVPO3","ppmV",4.7055E-08,4.9941E-08,5.1304E-08,5.1455E-08,5.0794E-08,4.9661E-08,4.7603E-08,4.4565E-08,4.0809E-08,3.5263E-08,3.0639E-08,2.5902E-08,2.0850E-08,1.6487E-08,1.2990E-08,9.9280E-09,7.3907E-09,5.3751E-09,4.0517E-09,2.9879E-09,2.4000E-09,2.1093E-09,1.7883E-09,1.6747E-09,1.6830E-09,1.7728E-09,1.9425E-09,2.2029E-09,2.4028E-09,2.5062E-09,2.5161E-09,2.3831E-09,2.1281E-09,1.8614E-09,1.6502E-09,1.4452E-09,1.2499E-09,1.0501E-09,7.5075E-10,4.6197E-10,2.7494E-10,1.6689E-10,8.9911E-11,5.1560E-11 "VIVPO1","ppmV",1.1971E-07,1.2712E-07,1.3060E-07,1.3093E-07,1.2913E-07,1.2613E-07,1.2075E-07,1.1281E-07,1.0300E-07,8.8524E-08,7.6548E-08,6.4336E-08,5.1345E-08,4.0157E-08,3.1187E-08,2.3309E-08,1.6579E-08,1.1237E-08,7.6670E-09,4.9486E-09,3.5677E-09,2.8144E-09,1.7742E-09,1.3801E-09,1.2816E-09,1.2381E-09,1.2299E-09,1.2426E-09,1.2786E-09,1.3129E-09,1.2832E-09,1.2156E-09,1.1081E-09,1.0755E-09,1.0121E-09,7.9901E-10,6.0746E-10,4.4719E-10,2.3661E-10,8.7199E-11,3.1574E-11,1.2463E-11,2.7118E-12,2.8443E-13 "VLVOO1","ppmV",1.5069E-07,1.4599E-07,1.4135E-07,1.3634E-07,1.3091E-07,1.2492E-07,1.1843E-07,1.1150E-07,1.0403E-07,9.6136E-08,8.8130E-08,7.9968E-08,7.1840E-08,6.3883E-08,5.6413E-08,5.0539E-08,4.5756E-08,4.1372E-08,3.7022E-08,3.2158E-08,2.5976E-08,1.9739E-08,1.4098E-08,9.4759E-09,5.9634E-09,3.5977E-09,2.0997E-09,1.1725E-09,6.1800E-10,2.9943E-10,1.3217E-10,5.3279E-11,1.9475E-11,6.4347E-12,1.9529E-12,6.1486E-13,2.5708E-13,1.3974E-13,8.4263E-14,5.0222E-14,2.8937E-14,1.5022E-14,1.4670E-14,3.9369E-14 "VLVOO2","ppmV",1.6734E-07,1.6541E-07,1.6266E-07,1.5938E-07,1.5570E-07,1.5144E-07,1.4668E-07,1.4190E-07,1.3635E-07,1.2995E-07,1.2305E-07,1.1543E-07,1.0819E-07,1.0021E-07,9.1506E-08,8.4633E-08,8.0068E-08,7.6653E-08,7.1480E-08,6.3778E-08,5.3725E-08,4.3290E-08,3.3933E-08,2.5491E-08,1.8319E-08,1.2831E-08,8.5771E-09,5.4230E-09,3.1818E-09,1.7155E-09,8.4384E-10,3.7860E-10,1.5454E-10,5.8189E-11,2.0999E-11,8.2493E-12,4.2151E-12,2.6472E-12,1.7664E-12,1.1700E-12,7.7636E-13,6.0708E-13,6.4542E-13,1.0914E-12 "VSVOO1","ppmV",8.1698E-09,8.3944E-09,8.4778E-09,8.5238E-09,8.5703E-09,8.5952E-09,8.6074E-09,8.6194E-09,8.5729E-09,8.4733E-09,8.3269E-09,8.0902E-09,7.7953E-09,7.3198E-09,6.7923E-09,6.3620E-09,6.0613E-09,5.8005E-09,5.4223E-09,4.8747E-09,4.1473E-09,3.3928E-09,2.6384E-09,1.9856E-09,1.4470E-09,1.0280E-09,7.1506E-10,4.8382E-10,3.1764E-10,2.0269E-10,1.2352E-10,7.0534E-11,3.6831E-11,1.7630E-11,7.7682E-12,3.3566E-12,1.6507E-12,9.7324E-13,6.4727E-13,4.5635E-13,3.2885E-13,2.7032E-13,2.9452E-13,4.9153E-13 "VSVOO2","ppmV",2.5130E-08,2.6233E-08,2.6750E-08,2.7123E-08,2.7494E-08,2.7798E-08,2.8079E-08,2.8352E-08,2.8425E-08,2.8282E-08,2.7910E-08,2.7167E-08,2.6113E-08,2.4387E-08,2.2509E-08,2.0988E-08,1.9862E-08,1.8841E-08,1.7455E-08,1.5533E-08,1.3120E-08,1.0668E-08,8.1997E-09,6.1369E-09,4.5066E-09,3.2623E-09,2.3510E-09,1.6609E-09,1.1505E-09,7.9071E-10,5.4426E-10,3.7203E-10,2.5493E-10,1.7366E-10,1.1459E-10,7.2703E-11,4.6561E-11,3.2299E-11,2.3664E-11,1.8376E-11,1.4295E-11,1.1541E-11,1.1556E-11,1.7027E-11 "VSVOO3","ppmV",4.1746E-08,4.3688E-08,4.4622E-08,4.5314E-08,4.6007E-08,4.6600E-08,4.7175E-08,4.7770E-08,4.8011E-08,4.7875E-08,4.7335E-08,4.6183E-08,4.4537E-08,4.1711E-08,3.8558E-08,3.6035E-08,3.4169E-08,3.2495E-08,3.0124E-08,2.6757E-08,2.2602E-08,1.8367E-08,1.4104E-08,1.0525E-08,7.6546E-09,5.4877E-09,3.8946E-09,2.7178E-09,1.8964E-09,1.3388E-09,9.7168E-10,7.2623E-10,5.4705E-10,4.1172E-10,3.0211E-10,2.0931E-10,1.2633E-10,6.8487E-11,3.8847E-11,2.8151E-11,2.5152E-11,2.0025E-11,1.2591E-11,8.1505E-12 "PCVOC","ppmV",4.9809E-15,5.2824E-15,5.3892E-15,5.4491E-15,5.4907E-15,5.5230E-15,5.5512E-15,5.5783E-15,5.6060E-15,5.6358E-15,5.6692E-15,5.7098E-15,5.7597E-15,5.8344E-15,5.9542E-15,6.1542E-15,6.5551E-15,7.0948E-15,7.8255E-15,8.5945E-15,9.0104E-15,9.2048E-15,9.6979E-15,1.0158E-14,1.0744E-14,1.1224E-14,1.1675E-14,1.2132E-14,1.2885E-14,1.3159E-14,1.3940E-14,1.4285E-14,1.3911E-14,1.2792E-14,1.0844E-14,9.3133E-15,8.1628E-15,7.9231E-15,7.4709E-15,6.1903E-15,3.6407E-15,1.7913E-15,7.1677E-16,3.3191E-16 "HCHO_PRIMARY","ppmV",2.5012E-10,2.6717E-10,2.7332E-10,2.7687E-10,2.7977E-10,2.8206E-10,2.8434E-10,2.8667E-10,2.8911E-10,2.9243E-10,2.9694E-10,3.0568E-10,3.2161E-10,3.3363E-10,3.3087E-10,2.9404E-10,2.8284E-10,2.5577E-10,2.1545E-10,1.9225E-10,1.6368E-10,1.6817E-10,1.4965E-10,1.2709E-10,1.0416E-10,8.0847E-11,6.6566E-11,6.4618E-11,6.6754E-11,7.0054E-11,7.2839E-11,7.2792E-11,6.1865E-11,4.5036E-11,3.1081E-11,2.4660E-11,1.4797E-11,2.9602E-12,4.4945E-13,4.2856E-14,1.7850E-15,6.0964E-17,1.7957E-18,8.3286E-20 "CCHO_PRIMARY","ppmV",2.3893E-08,2.4849E-08,2.5181E-08,2.5365E-08,2.5499E-08,2.5602E-08,2.5700E-08,2.5799E-08,2.5908E-08,2.6068E-08,2.6245E-08,2.6463E-08,2.6810E-08,2.7395E-08,2.8164E-08,2.8614E-08,2.9713E-08,3.0117E-08,3.0398E-08,2.8338E-08,2.6521E-08,2.4351E-08,2.2033E-08,1.8824E-08,1.5931E-08,1.3898E-08,1.2790E-08,1.2199E-08,1.1966E-08,1.1769E-08,1.0900E-08,9.4036E-09,7.3057E-09,6.5700E-09,6.9276E-09,5.5587E-09,2.9329E-09,7.9726E-10,1.5177E-10,1.4108E-11,1.1424E-12,1.5084E-13,2.7598E-14,2.6340E-15 "BUTADIENE13","ppmV",2.5111E-12,2.5137E-12,2.5150E-12,2.5160E-12,2.5166E-12,2.5172E-12,2.5155E-12,2.5142E-12,2.5094E-12,2.5063E-12,2.4977E-12,2.4856E-12,2.4740E-12,2.4601E-12,2.4391E-12,2.3995E-12,2.3210E-12,2.2714E-12,2.3117E-12,2.4808E-12,2.1966E-12,1.6446E-12,1.2773E-12,1.1325E-12,1.0548E-12,8.2465E-13,5.4577E-13,3.7846E-13,2.7977E-13,2.0334E-13,8.4821E-14,2.9176E-14,2.0918E-14,3.4013E-14,4.1583E-14,4.6071E-14,2.1185E-14,1.9374E-15,5.5738E-17,2.7811E-18,2.5383E-19,2.3717E-20,2.0785E-21,2.0317E-22 "ACROLEIN","ppmV",2.4148E-10,2.4720E-10,2.4935E-10,2.5060E-10,2.5162E-10,2.5245E-10,2.5307E-10,2.5392E-10,2.5466E-10,2.5575E-10,2.5747E-10,2.6114E-10,2.6836E-10,2.7051E-10,2.6836E-10,2.5378E-10,2.4414E-10,2.3186E-10,2.1428E-10,1.9860E-10,1.8256E-10,1.6221E-10,1.4876E-10,1.4142E-10,1.3317E-10,1.1689E-10,1.0011E-10,8.7193E-11,7.9313E-11,7.4571E-11,6.9720E-11,5.1645E-11,2.9515E-11,1.7369E-11,1.0350E-11,7.8364E-12,4.6182E-12,1.6456E-12,3.8900E-13,8.7551E-14,1.8023E-14,2.3809E-15,2.5981E-16,3.5263E-17 "ACRO_PRIMARY","ppmV",7.7055E-11,7.8894E-11,7.9588E-11,7.9992E-11,8.0320E-11,8.0588E-11,8.0786E-11,8.1061E-11,8.1293E-11,8.1638E-11,8.2166E-11,8.3334E-11,8.5648E-11,8.6353E-11,8.5708E-11,8.1054E-11,7.8490E-11,7.5032E-11,6.9540E-11,6.4665E-11,5.9293E-11,5.2833E-11,4.8792E-11,4.6659E-11,4.4117E-11,3.9043E-11,3.3641E-11,2.9203E-11,2.6380E-11,2.4718E-11,2.3478E-11,1.7964E-11,1.0200E-11,5.7855E-12,3.2005E-12,2.2150E-12,1.2472E-12,4.3914E-13,1.1129E-13,2.7957E-14,6.0052E-15,8.2158E-16,8.8303E-17,1.1434E-17 "TOLUENE","ppmV",4.0613E-20,4.0370E-20,4.0345E-20,4.0307E-20,4.0116E-20,3.9815E-20,3.9572E-20,3.9462E-20,3.9282E-20,3.9078E-20,3.9080E-20,3.9154E-20,3.9347E-20,3.9521E-20,3.9472E-20,3.9176E-20,3.8542E-20,3.7610E-20,3.6460E-20,3.5073E-20,3.3990E-20,3.3285E-20,3.1041E-20,3.0175E-20,3.0385E-20,3.0854E-20,3.1246E-20,3.1134E-20,3.0530E-20,2.9781E-20,2.8752E-20,2.7842E-20,2.6836E-20,2.5305E-20,2.2734E-20,1.8803E-20,1.3727E-20,7.1274E-21,2.3971E-21,2.9333E-22,3.2142E-23,8.7278E-24,2.7838E-24,1.3401E-24 "ASO4J","ug m-3",1.1382E+00,1.1327E+00,1.1287E+00,1.1242E+00,1.1190E+00,1.1120E+00,1.1033E+00,1.0912E+00,1.0782E+00,1.0585E+00,1.0330E+00,1.0041E+00,9.7205E-01,9.2947E-01,8.8373E-01,8.3808E-01,8.0560E-01,7.7749E-01,7.4420E-01,7.0397E-01,6.6340E-01,6.1484E-01,5.5662E-01,5.1088E-01,4.7249E-01,4.3772E-01,4.0770E-01,3.7737E-01,3.5330E-01,3.3039E-01,3.0285E-01,2.6988E-01,2.3432E-01,2.0173E-01,1.7256E-01,1.4670E-01,1.2626E-01,1.0900E-01,9.3371E-02,7.8086E-02,6.4168E-02,5.3016E-02,4.1057E-02,2.9179E-02 "ASO4I","ug m-3",1.1517E-02,1.1546E-02,1.1537E-02,1.1511E-02,1.1471E-02,1.1411E-02,1.1304E-02,1.1287E-02,1.1250E-02,1.1219E-02,1.1246E-02,1.1141E-02,1.1055E-02,1.0888E-02,1.0998E-02,1.1584E-02,1.2960E-02,1.4296E-02,1.4982E-02,1.4922E-02,1.4432E-02,1.3386E-02,1.2380E-02,1.1334E-02,1.0241E-02,9.4226E-03,8.8491E-03,8.1943E-03,7.6738E-03,7.0716E-03,6.2827E-03,5.3855E-03,4.4888E-03,3.7348E-03,2.9597E-03,2.1297E-03,1.3619E-03,7.9038E-04,4.5414E-04,2.5651E-04,1.4850E-04,7.7908E-05,3.9329E-05,2.4222E-05 "ANH4J","ug m-3",5.2384E-02,5.3795E-02,5.4744E-02,5.5364E-02,5.6225E-02,5.7266E-02,5.8101E-02,5.9205E-02,5.9557E-02,5.9730E-02,5.9410E-02,6.0231E-02,6.2947E-02,6.6495E-02,7.0935E-02,7.5534E-02,7.9897E-02,8.4637E-02,8.5366E-02,8.3819E-02,8.2218E-02,7.8178E-02,7.3050E-02,6.8798E-02,6.5520E-02,6.3769E-02,6.4509E-02,6.6795E-02,7.0771E-02,7.2964E-02,7.1284E-02,6.6727E-02,6.1501E-02,5.7146E-02,5.3278E-02,4.9808E-02,4.7065E-02,4.3801E-02,3.8078E-02,3.2277E-02,2.5561E-02,2.0279E-02,1.5346E-02,1.0758E-02 "ANH4I","ug m-3",3.0454E-03,3.1264E-03,3.1619E-03,3.1826E-03,3.2101E-03,3.2419E-03,3.2727E-03,3.3980E-03,3.4965E-03,3.5970E-03,3.7746E-03,3.9358E-03,4.1802E-03,4.5501E-03,5.0791E-03,5.8677E-03,6.9141E-03,7.8925E-03,8.5792E-03,8.8472E-03,8.8801E-03,8.5705E-03,8.2530E-03,8.1213E-03,8.0835E-03,8.3538E-03,9.2432E-03,1.0480E-02,1.2138E-02,1.3316E-02,1.3377E-02,1.2742E-02,1.2018E-02,1.1388E-02,1.0355E-02,8.9293E-03,7.3292E-03,6.2911E-03,5.7576E-03,3.4869E-03,1.3859E-03,7.0249E-04,4.4856E-04,3.2266E-04 "ANO3J","ug m-3",9.2350E-02,9.1651E-02,9.1148E-02,9.0536E-02,8.9583E-02,8.8432E-02,8.6593E-02,8.4895E-02,8.2624E-02,7.9670E-02,7.4572E-02,6.8464E-02,6.1315E-02,5.4633E-02,4.7162E-02,3.9453E-02,3.3081E-02,2.7565E-02,2.3787E-02,2.3360E-02,2.5953E-02,2.8951E-02,3.2963E-02,3.8135E-02,4.3135E-02,4.9702E-02,5.9633E-02,7.2417E-02,8.8949E-02,1.0491E-01,1.0864E-01,1.0534E-01,9.9642E-02,9.5378E-02,9.1700E-02,8.8799E-02,8.8861E-02,8.9061E-02,8.9880E-02,8.8122E-02,8.0131E-02,6.9027E-02,5.4429E-02,4.4660E-02 "ANO3I","ug m-3",3.7081E-03,3.6921E-03,3.6833E-03,3.6727E-03,3.6563E-03,3.6361E-03,3.6085E-03,3.5718E-03,3.5267E-03,3.4603E-03,3.3293E-03,3.1790E-03,3.0325E-03,2.8732E-03,2.7393E-03,2.6384E-03,2.5452E-03,2.5027E-03,2.5806E-03,2.8800E-03,3.5438E-03,4.1009E-03,4.5612E-03,5.2613E-03,6.3063E-03,7.9127E-03,1.0324E-02,1.3565E-02,1.8377E-02,2.2866E-02,2.4027E-02,2.3618E-02,2.3336E-02,2.4064E-02,2.5099E-02,2.6170E-02,2.7959E-02,3.1779E-02,3.8151E-02,3.8920E-02,3.0937E-02,2.1951E-02,1.2565E-02,6.7562E-03 "AISO1J","ug m-3",2.4740E-05,2.6236E-05,2.7112E-05,2.7954E-05,2.8920E-05,3.0455E-05,3.2948E-05,3.7541E-05,4.2235E-05,4.6927E-05,5.2959E-05,5.9000E-05,7.0919E-05,8.9097E-05,1.1448E-04,1.4458E-04,2.1084E-04,2.7393E-04,2.6797E-04,2.5652E-04,2.2358E-04,1.6929E-04,1.6640E-04,1.7590E-04,1.8426E-04,1.9750E-04,2.3138E-04,2.7477E-04,3.2887E-04,3.7860E-04,4.3644E-04,5.1566E-04,5.9214E-04,6.5515E-04,6.9040E-04,6.7703E-04,6.2452E-04,4.9438E-04,2.8909E-04,9.3548E-05,2.1491E-05,4.6673E-06,9.7492E-07,2.6421E-07 "AISO2J","ug m-3",2.7661E-06,2.8746E-06,2.9318E-06,2.9790E-06,3.0273E-06,3.0779E-06,3.1432E-06,3.2346E-06,3.3365E-06,3.4746E-06,3.6769E-06,4.0405E-06,5.0617E-06,5.9131E-06,6.3756E-06,6.6978E-06,7.2669E-06,7.7233E-06,7.9611E-06,7.9581E-06,7.5975E-06,6.8302E-06,6.5821E-06,6.9596E-06,7.4673E-06,8.3184E-06,9.6086E-06,1.1085E-05,1.3202E-05,1.5652E-05,1.8371E-05,2.0161E-05,2.0290E-05,1.9889E-05,1.9382E-05,1.8119E-05,1.5118E-05,1.0682E-05,5.9430E-06,1.5981E-06,2.1259E-07,2.0070E-08,1.5500E-09,1.0218E-10 "ASQTJ","ug m-3",2.6057E-05,2.7455E-05,2.8243E-05,2.8955E-05,2.9780E-05,3.0712E-05,3.1986E-05,3.4377E-05,3.7285E-05,4.1003E-05,4.6394E-05,5.2040E-05,6.1578E-05,7.5350E-05,9.5824E-05,1.1353E-04,1.6756E-04,2.1815E-04,2.1307E-04,1.8468E-04,1.4855E-04,1.0682E-04,9.3786E-05,9.2725E-05,9.5087E-05,1.0051E-04,1.1529E-04,1.3229E-04,1.5188E-04,1.6838E-04,1.8455E-04,2.0020E-04,2.0786E-04,2.1300E-04,2.1297E-04,2.0081E-04,1.6764E-04,1.1613E-04,5.7297E-05,1.3538E-05,1.8184E-06,1.8211E-07,1.7608E-08,2.4801E-09 "AORGCJ","ug m-3",2.4200E-03,2.4194E-03,2.4163E-03,2.4118E-03,2.4071E-03,2.4079E-03,2.4148E-03,2.4276E-03,2.4398E-03,2.4359E-03,2.4285E-03,2.4302E-03,2.4602E-03,2.4839E-03,2.5161E-03,2.5677E-03,2.6533E-03,2.7307E-03,2.7476E-03,2.7267E-03,2.6404E-03,2.5083E-03,2.3874E-03,2.2963E-03,2.2136E-03,2.1229E-03,2.0566E-03,1.9700E-03,1.8999E-03,1.8122E-03,1.7139E-03,1.6141E-03,1.5003E-03,1.4035E-03,1.3288E-03,1.2486E-03,1.1642E-03,1.0902E-03,9.6226E-04,7.7475E-04,6.1298E-04,4.7457E-04,3.4776E-04,2.4206E-04 "AECJ","ug m-3",2.2178E-02,2.2171E-02,2.2139E-02,2.2097E-02,2.2055E-02,2.2075E-02,2.2169E-02,2.2433E-02,2.2676E-02,2.2628E-02,2.2437E-02,2.2248E-02,2.2129E-02,2.1775E-02,2.1752E-02,2.2262E-02,2.3402E-02,2.4391E-02,2.4766E-02,2.4166E-02,2.2836E-02,2.0664E-02,1.9072E-02,1.7860E-02,1.6686E-02,1.5683E-02,1.5201E-02,1.4689E-02,1.4175E-02,1.3407E-02,1.2458E-02,1.1457E-02,1.0196E-02,8.7521E-03,7.3123E-03,6.0159E-03,4.9169E-03,3.8781E-03,3.0428E-03,2.3704E-03,1.8440E-03,1.4895E-03,1.1293E-03,7.8632E-04 "AECI","ug m-3",5.8546E-04,5.8696E-04,5.8653E-04,5.8504E-04,5.8282E-04,5.7990E-04,5.7608E-04,5.8200E-04,5.8907E-04,5.9455E-04,5.9740E-04,5.9442E-04,5.9254E-04,5.8327E-04,5.8105E-04,6.0427E-04,6.5238E-04,7.0015E-04,7.0789E-04,6.8591E-04,6.3564E-04,5.6465E-04,5.4358E-04,5.3856E-04,5.3481E-04,5.4764E-04,5.6656E-04,5.5915E-04,5.4083E-04,4.9664E-04,4.4695E-04,4.0138E-04,3.5181E-04,3.0468E-04,2.5165E-04,1.8617E-04,1.1017E-04,4.7690E-05,1.4324E-05,2.6696E-06,6.8031E-07,3.4806E-07,1.4792E-07,5.1840E-08 "AOTHRJ","ug m-3",2.1059E-01,2.1049E-01,2.1019E-01,2.0979E-01,2.0945E-01,2.0940E-01,2.0967E-01,2.1146E-01,2.1368E-01,2.1487E-01,2.1625E-01,2.1743E-01,2.1998E-01,2.2378E-01,2.3565E-01,2.5326E-01,2.9056E-01,3.2674E-01,3.6398E-01,3.8704E-01,3.9870E-01,3.9505E-01,3.9047E-01,3.9031E-01,3.8555E-01,3.6597E-01,3.4192E-01,3.1270E-01,2.8760E-01,2.7310E-01,2.5619E-01,2.2837E-01,1.9404E-01,1.5935E-01,1.2619E-01,9.6685E-02,7.1290E-02,5.3099E-02,4.1162E-02,3.1179E-02,2.3365E-02,1.9161E-02,1.4347E-02,9.6274E-03 "AOTHRI","ug m-3",2.5640E-03,2.5718E-03,2.5715E-03,2.5680E-03,2.5622E-03,2.5543E-03,2.5439E-03,2.5329E-03,2.5218E-03,2.5068E-03,2.4951E-03,2.4872E-03,2.4860E-03,2.4797E-03,2.4729E-03,2.4769E-03,2.4897E-03,2.5060E-03,2.4377E-03,2.3171E-03,2.1715E-03,2.0167E-03,1.9114E-03,1.8145E-03,1.6996E-03,1.6100E-03,1.5265E-03,1.4237E-03,1.3282E-03,1.2128E-03,1.0843E-03,9.5687E-04,8.1781E-04,6.8886E-04,5.4789E-04,3.7545E-04,2.0337E-04,8.6063E-05,2.9141E-05,6.6883E-06,2.3820E-06,1.2266E-06,5.5907E-07,1.9979E-07 "AFEJ","ug m-3",1.5944E-02,1.5937E-02,1.5913E-02,1.5882E-02,1.5854E-02,1.5845E-02,1.5858E-02,1.5979E-02,1.6129E-02,1.6204E-02,1.6292E-02,1.6363E-02,1.6526E-02,1.6773E-02,1.7619E-02,1.8896E-02,2.1631E-02,2.4231E-02,2.6807E-02,2.8288E-02,2.8902E-02,2.8463E-02,2.7953E-02,2.7798E-02,2.7355E-02,2.5886E-02,2.4137E-02,2.2034E-02,2.0237E-02,1.9194E-02,1.7980E-02,1.6010E-02,1.3581E-02,1.1128E-02,8.7875E-03,6.7116E-03,4.9309E-03,3.6585E-03,2.8267E-03,2.1322E-03,1.5940E-03,1.3098E-03,9.8129E-04,6.5785E-04 "AALJ","ug m-3",2.5489E-02,2.5477E-02,2.5440E-02,2.5390E-02,2.5348E-02,2.5338E-02,2.5364E-02,2.5571E-02,2.5828E-02,2.5964E-02,2.6128E-02,2.6264E-02,2.6558E-02,2.7004E-02,2.8426E-02,3.0542E-02,3.5063E-02,3.9410E-02,4.3791E-02,4.6424E-02,4.7648E-02,4.7073E-02,4.6366E-02,4.6211E-02,4.5553E-02,4.3153E-02,4.0243E-02,3.6715E-02,3.3692E-02,3.1951E-02,2.9941E-02,2.6651E-02,2.2604E-02,1.8517E-02,1.4619E-02,1.1157E-02,8.1791E-03,6.0578E-03,4.6772E-03,3.5288E-03,2.6352E-03,2.1663E-03,1.6222E-03,1.0862E-03 "ASIJ","ug m-3",7.7943E-02,7.7906E-02,7.7795E-02,7.7653E-02,7.7540E-02,7.7548E-02,7.7690E-02,7.8429E-02,7.9346E-02,7.9894E-02,8.0553E-02,8.1150E-02,8.2300E-02,8.3978E-02,8.8790E-02,9.5753E-02,1.1034E-01,1.2457E-01,1.3945E-01,1.4887E-01,1.5386E-01,1.5288E-01,1.5152E-01,1.5187E-01,1.5031E-01,1.4280E-01,1.3340E-01,1.2182E-01,1.1185E-01,1.0618E-01,9.9647E-02,8.8780E-02,7.5362E-02,6.1782E-02,4.8796E-02,3.7253E-02,2.7282E-02,2.0205E-02,1.5621E-02,1.1806E-02,8.8161E-03,7.2514E-03,5.4314E-03,3.6356E-03 "ATIJ","ug m-3",1.3234E-03,1.3228E-03,1.3208E-03,1.3183E-03,1.3162E-03,1.3158E-03,1.3174E-03,1.3283E-03,1.3417E-03,1.3489E-03,1.3573E-03,1.3646E-03,1.3798E-03,1.4025E-03,1.4749E-03,1.5829E-03,1.8130E-03,2.0333E-03,2.2526E-03,2.3816E-03,2.4387E-03,2.4049E-03,2.3643E-03,2.3512E-03,2.3137E-03,2.1899E-03,2.0424E-03,1.8661E-03,1.7152E-03,1.6264E-03,1.5226E-03,1.3547E-03,1.1486E-03,9.4094E-04,7.4293E-04,5.6730E-04,4.1701E-04,3.0945E-04,2.3906E-04,1.8047E-04,1.3506E-04,1.1099E-04,8.3203E-05,5.5823E-05 "ACAJ","ug m-3",5.0351E-02,4.9536E-02,4.9090E-02,4.8722E-02,4.8361E-02,4.8056E-02,4.7751E-02,4.7689E-02,4.7687E-02,4.7416E-02,4.7060E-02,4.6527E-02,4.6061E-02,4.5535E-02,4.6173E-02,4.7866E-02,5.2843E-02,5.7652E-02,6.2737E-02,6.5675E-02,6.6926E-02,6.5864E-02,6.4671E-02,6.4374E-02,6.3445E-02,6.0149E-02,5.6148E-02,5.1277E-02,4.7085E-02,4.4667E-02,4.1871E-02,3.7299E-02,3.1668E-02,2.5974E-02,2.0534E-02,1.5705E-02,1.1536E-02,8.5576E-03,6.6097E-03,4.9922E-03,3.7310E-03,3.0649E-03,2.2958E-03,1.5388E-03 "AMGJ","ug m-3",6.0177E-02,5.7686E-02,5.6435E-02,5.5470E-02,5.4493E-02,5.3541E-02,5.2411E-02,5.1309E-02,5.0183E-02,4.8707E-02,4.6896E-02,4.4628E-02,4.1800E-02,3.8207E-02,3.4497E-02,3.1320E-02,2.9079E-02,2.6894E-02,2.5144E-02,2.3403E-02,2.1855E-02,2.0258E-02,1.8669E-02,1.7790E-02,1.7089E-02,1.6025E-02,1.4901E-02,1.3589E-02,1.2486E-02,1.1823E-02,1.1067E-02,9.8768E-03,8.4353E-03,6.9864E-03,5.5965E-03,4.3530E-03,3.2675E-03,2.4693E-03,1.9285E-03,1.4834E-03,1.1232E-03,9.1393E-04,6.8578E-04,4.6439E-04 "AKJ","ug m-3",3.6513E-02,3.5732E-02,3.5319E-02,3.4988E-02,3.4660E-02,3.4378E-02,3.4089E-02,3.3961E-02,3.3859E-02,3.3509E-02,3.3005E-02,3.2354E-02,3.1668E-02,3.0769E-02,3.0391E-02,3.0688E-02,3.2731E-02,3.4635E-02,3.6513E-02,3.7279E-02,3.7109E-02,3.5772E-02,3.4491E-02,3.3896E-02,3.3106E-02,3.1264E-02,2.9187E-02,2.6679E-02,2.4504E-02,2.3172E-02,2.1645E-02,1.9331E-02,1.6455E-02,1.3531E-02,1.0721E-02,8.2458E-03,6.0937E-03,4.5092E-03,3.4506E-03,2.5945E-03,1.9373E-03,1.5887E-03,1.1901E-03,7.9923E-04 "AMNJ","ug m-3",5.1865E-04,5.1841E-04,5.1764E-04,5.1666E-04,5.1584E-04,5.1572E-04,5.1637E-04,5.2075E-04,5.2617E-04,5.2917E-04,5.3276E-04,5.3593E-04,5.4223E-04,5.5162E-04,5.8085E-04,6.2430E-04,7.1627E-04,8.0404E-04,8.9206E-04,9.4384E-04,9.6699E-04,9.5450E-04,9.3947E-04,9.3599E-04,9.2241E-04,8.7365E-04,8.1484E-04,7.4356E-04,6.8248E-04,6.4729E-04,6.0658E-04,5.4013E-04,4.5815E-04,3.7531E-04,2.9631E-04,2.2622E-04,1.6597E-04,1.2303E-04,9.5022E-05,7.1651E-05,5.3524E-05,4.4028E-05,3.2993E-05,2.2104E-05 "ACORS","ug m-3",2.9670E-02,3.0167E-02,3.0251E-02,3.0254E-02,3.0298E-02,3.0423E-02,3.0609E-02,3.0849E-02,3.1065E-02,3.0965E-02,3.0641E-02,3.0336E-02,3.0142E-02,3.0281E-02,3.1250E-02,3.2978E-02,3.6492E-02,3.9793E-02,4.1324E-02,4.0099E-02,3.7233E-02,3.3999E-02,3.1814E-02,3.0239E-02,2.8854E-02,2.7761E-02,2.6623E-02,2.5223E-02,2.3536E-02,2.1452E-02,1.9604E-02,1.7983E-02,1.5959E-02,1.3725E-02,1.1431E-02,9.1518E-03,6.7984E-03,4.3171E-03,2.2803E-03,1.0357E-03,5.0993E-04,2.8283E-04,1.4741E-04,7.6336E-05 "ASOIL","ug m-3",2.2074E+00,2.2478E+00,2.2559E+00,2.2572E+00,2.2590E+00,2.2625E+00,2.2682E+00,2.2871E+00,2.3012E+00,2.3026E+00,2.3089E+00,2.3031E+00,2.3194E+00,2.3848E+00,2.5576E+00,2.7937E+00,3.2807E+00,3.7451E+00,4.1779E+00,4.4499E+00,4.5686E+00,4.5496E+00,4.5521E+00,4.5791E+00,4.4862E+00,4.2326E+00,3.9389E+00,3.6221E+00,3.3571E+00,3.1682E+00,2.9028E+00,2.5025E+00,2.0563E+00,1.6218E+00,1.2168E+00,8.5938E-01,5.4487E-01,3.2154E-01,1.8423E-01,9.0344E-02,4.3932E-02,2.5650E-02,1.4212E-02,7.3011E-03 "NUMATKN","m-3",1.8767E+08,1.9098E+08,1.9185E+08,1.9184E+08,1.9123E+08,1.9020E+08,1.8837E+08,1.8679E+08,1.8477E+08,1.8189E+08,1.7860E+08,1.7423E+08,1.6993E+08,1.6742E+08,1.7113E+08,1.8689E+08,2.2236E+08,2.7020E+08,3.2338E+08,3.9010E+08,4.6375E+08,5.3482E+08,5.9210E+08,6.5192E+08,7.2405E+08,8.2380E+08,9.8194E+08,1.2004E+09,1.4892E+09,2.0408E+09,2.9785E+09,4.2039E+09,6.0741E+09,9.0243E+09,1.1744E+10,1.3604E+10,1.4613E+10,1.3966E+10,1.0973E+10,7.2949E+09,3.9996E+09,1.7364E+09,8.8655E+08,5.1234E+08 "NUMACC","m-3",4.3441E+08,4.1701E+08,4.0846E+08,4.0196E+08,3.9549E+08,3.8909E+08,3.8160E+08,3.7410E+08,3.6631E+08,3.5628E+08,3.4392E+08,3.2872E+08,3.1027E+08,2.8666E+08,2.6217E+08,2.4199E+08,2.2789E+08,2.1427E+08,2.0460E+08,1.9656E+08,1.9053E+08,1.8522E+08,1.8009E+08,1.7960E+08,1.8086E+08,1.8368E+08,1.8930E+08,1.9822E+08,2.0856E+08,2.2085E+08,2.3542E+08,2.5044E+08,2.6965E+08,2.9833E+08,3.3851E+08,3.8852E+08,4.6721E+08,5.5394E+08,5.6223E+08,4.8004E+08,3.0640E+08,1.6321E+08,9.3611E+07,5.5530E+07 "NUMCOR","m-3",2.7667E+06,2.6469E+06,2.5900E+06,2.5475E+06,2.5072E+06,2.4681E+06,2.4230E+06,2.3765E+06,2.3255E+06,2.2567E+06,2.1670E+06,2.0480E+06,1.8931E+06,1.7039E+06,1.5092E+06,1.3356E+06,1.1895E+06,1.0475E+06,9.3182E+05,8.2756E+05,7.4705E+05,6.7698E+05,6.1444E+05,5.7935E+05,5.5233E+05,5.1710E+05,4.8032E+05,4.3745E+05,4.0194E+05,3.8005E+05,3.5477E+05,3.1565E+05,2.6871E+05,2.2211E+05,1.7676E+05,1.3545E+05,9.8198E+04,6.9394E+04,4.8743E+04,3.2148E+04,2.0867E+04,1.4559E+04,9.5386E+03,5.8367E+03 "SRFATKN","m2 m-3",9.3897E-07,9.4477E-07,9.4563E-07,9.4390E-07,9.4028E-07,9.3503E-07,9.2557E-07,9.2234E-07,9.1641E-07,9.0678E-07,8.9477E-07,8.7377E-07,8.5460E-07,8.3774E-07,8.4351E-07,8.9463E-07,1.0017E-06,1.1178E-06,1.2292E-06,1.3140E-06,1.3854E-06,1.4097E-06,1.4198E-06,1.4412E-06,1.4666E-06,1.5380E-06,1.6974E-06,1.9156E-06,2.1877E-06,2.5034E-06,2.7525E-06,2.9869E-06,3.3033E-06,3.7559E-06,4.2115E-06,4.7649E-06,5.4733E-06,6.1169E-06,6.1361E-06,5.2644E-06,3.4385E-06,1.7763E-06,8.5142E-07,3.7784E-07 "SRFACC","m2 m-3",2.5550E-05,2.4909E-05,2.4585E-05,2.4327E-05,2.4066E-05,2.3805E-05,2.3497E-05,2.3207E-05,2.2907E-05,2.2473E-05,2.1917E-05,2.1307E-05,2.0678E-05,1.9815E-05,1.8898E-05,1.8206E-05,1.7960E-05,1.7580E-05,1.7123E-05,1.6533E-05,1.5843E-05,1.4920E-05,1.3872E-05,1.3251E-05,1.2726E-05,1.2177E-05,1.1737E-05,1.1303E-05,1.0967E-05,1.0751E-05,1.0377E-05,9.7365E-06,8.9973E-06,8.3419E-06,7.8050E-06,7.3733E-06,7.3060E-06,7.4765E-06,7.4106E-06,6.5298E-06,4.7500E-06,3.2282E-06,2.1183E-06,1.3775E-06 "SRFCOR","m2 m-3",3.0611E-05,2.9251E-05,2.8559E-05,2.8028E-05,2.7516E-05,2.7019E-05,2.6450E-05,2.5850E-05,2.5185E-05,2.4282E-05,2.3107E-05,2.1570E-05,1.9629E-05,1.7457E-05,1.5359E-05,1.3531E-05,1.2048E-05,1.0603E-05,9.4344E-06,8.3741E-06,7.5538E-06,6.8348E-06,6.2108E-06,5.8475E-06,5.5441E-06,5.1637E-06,4.7718E-06,4.3401E-06,3.9838E-06,3.7379E-06,3.4442E-06,3.0225E-06,2.5416E-06,2.0701E-06,1.6194E-06,1.2117E-06,8.4248E-07,5.5656E-07,3.5465E-07,2.0269E-07,1.1320E-07,6.8451E-08,3.9520E-08,2.1763E-08 "AH2OJ","ug m-3",5.8150E+00,5.5385E+00,5.5565E+00,5.6557E+00,5.7917E+00,5.9764E+00,6.1885E+00,6.4270E+00,6.7166E+00,6.9143E+00,7.0079E+00,6.9400E+00,6.7242E+00,6.3318E+00,5.6645E+00,4.7526E+00,3.5548E+00,2.5367E+00,1.6482E+00,1.0821E+00,7.1200E-01,5.2594E-01,4.2566E-01,3.6688E-01,3.2902E-01,3.1140E-01,2.8180E-01,2.6712E-01,2.4630E-01,2.2680E-01,2.0588E-01,1.8729E-01,1.7005E-01,1.5109E-01,1.3343E-01,1.1564E-01,9.7226E-02,7.5790E-02,5.2244E-02,3.6388E-02,2.7016E-02,2.1612E-02,1.6115E-02,9.4511E-03 "AH2OI","ug m-3",3.3629E-02,3.3648E-02,3.4817E-02,3.6331E-02,3.8102E-02,4.0326E-02,4.2650E-02,4.5277E-02,4.8285E-02,5.1577E-02,5.3487E-02,5.6478E-02,5.9906E-02,6.1715E-02,6.0472E-02,5.5745E-02,4.5120E-02,3.5442E-02,2.6002E-02,2.0194E-02,1.5666E-02,1.2004E-02,1.1391E-02,1.0943E-02,1.1715E-02,1.3469E-02,1.3521E-02,1.5148E-02,1.5182E-02,1.5296E-02,1.5322E-02,1.5117E-02,1.4639E-02,1.3613E-02,1.1830E-02,9.5543E-03,7.1156E-03,5.1196E-03,3.2831E-03,1.2060E-03,1.6007E-04,4.6063E-05,2.9180E-05,2.1434E-05 "AH3OPJ","ug m-3",1.6365E-02,1.7126E-02,1.7576E-02,1.7859E-02,1.8105E-02,1.8131E-02,1.8191E-02,1.7850E-02,1.7693E-02,1.7344E-02,1.7168E-02,1.6948E-02,1.7287E-02,1.7721E-02,1.7363E-02,1.5251E-02,1.3358E-02,1.3471E-02,1.2681E-02,1.2290E-02,1.1302E-02,1.0549E-02,9.4672E-03,8.2819E-03,8.4145E-03,7.8960E-03,7.3841E-03,6.9779E-03,7.0084E-03,6.9788E-03,6.5505E-03,5.8748E-03,5.5864E-03,5.8709E-03,6.4794E-03,7.1212E-03,8.6038E-03,1.0861E-02,1.5292E-02,1.9930E-02,2.1756E-02,1.9107E-02,1.4348E-02,1.1687E-02 "AH3OPI","ug m-3",1.5255E-04,1.6063E-04,1.6414E-04,1.6611E-04,1.6732E-04,1.6820E-04,1.6783E-04,1.6584E-04,1.6351E-04,1.6082E-04,1.6057E-04,1.6378E-04,1.7663E-04,1.8657E-04,1.9556E-04,1.9844E-04,2.0368E-04,2.6078E-04,2.7030E-04,2.6438E-04,2.6039E-04,2.4114E-04,2.1693E-04,1.7681E-04,1.5276E-04,1.5108E-04,1.4834E-04,1.3918E-04,1.3617E-04,1.4986E-04,1.5592E-04,1.3474E-04,1.3232E-04,1.5534E-04,1.9746E-04,2.3653E-04,3.0464E-04,3.8007E-04,5.5542E-04,4.2601E-04,1.4985E-04,6.5542E-05,5.0172E-05,4.2988E-05 "ANAJ","ug m-3",4.5162E-01,4.3077E-01,4.2037E-01,4.1238E-01,4.0429E-01,3.9634E-01,3.8685E-01,3.7725E-01,3.6728E-01,3.5460E-01,3.3912E-01,3.2000E-01,2.9575E-01,2.6477E-01,2.3093E-01,2.0037E-01,1.7216E-01,1.4462E-01,1.2097E-01,1.0043E-01,8.4804E-02,7.2530E-02,6.0386E-02,5.3099E-02,4.8381E-02,4.4324E-02,4.0872E-02,3.7200E-02,3.4216E-02,3.2262E-02,3.0139E-02,2.7089E-02,2.3470E-02,1.9907E-02,1.6419E-02,1.3239E-02,1.0395E-02,8.1291E-03,6.4753E-03,5.1154E-03,3.9629E-03,3.1832E-03,2.3970E-03,1.6506E-03 "ANAI","ug m-3",5.0457E-05,5.0571E-05,5.0532E-05,5.0445E-05,5.0338E-05,5.0206E-05,5.0085E-05,5.0715E-05,5.1498E-05,5.2414E-05,5.3379E-05,5.4178E-05,5.5310E-05,5.6143E-05,5.8469E-05,6.3236E-05,7.2205E-05,8.0590E-05,8.2747E-05,8.0130E-05,7.4021E-05,6.5386E-05,6.0404E-05,5.6924E-05,5.3156E-05,5.1398E-05,5.0866E-05,4.8415E-05,4.6019E-05,4.2237E-05,3.7684E-05,3.3158E-05,2.8428E-05,2.4037E-05,1.9366E-05,1.3853E-05,7.8817E-06,3.2799E-06,9.7960E-07,1.6878E-07,3.3628E-08,1.4051E-08,5.5159E-09,1.5011E-09 "ACLJ","ug m-3",2.5911E-01,2.2873E-01,2.1484E-01,2.0499E-01,1.9548E-01,1.8741E-01,1.7835E-01,1.6966E-01,1.6128E-01,1.5135E-01,1.4095E-01,1.2939E-01,1.1731E-01,1.0406E-01,8.8080E-02,7.1898E-02,5.4884E-02,3.8272E-02,2.4043E-02,1.3481E-02,8.1512E-03,5.0313E-03,4.4125E-03,4.6446E-03,5.0819E-03,6.4946E-03,7.9070E-03,9.5476E-03,1.1426E-02,1.3111E-02,1.4781E-02,1.5303E-02,1.5046E-02,1.3858E-02,1.2338E-02,1.0383E-02,7.9759E-03,5.3441E-03,2.3647E-03,9.2982E-04,5.2961E-04,2.6183E-04,1.3125E-04,5.3297E-05 "ACLI","ug m-3",5.4073E-04,5.2263E-04,5.1640E-04,5.1269E-04,5.0559E-04,5.0395E-04,5.0402E-04,5.0611E-04,5.1099E-04,5.1851E-04,5.2634E-04,5.3560E-04,5.6089E-04,5.6537E-04,5.1889E-04,4.6706E-04,4.0038E-04,3.3130E-04,2.8078E-04,2.4163E-04,2.3952E-04,2.6379E-04,2.9581E-04,3.9998E-04,4.8412E-04,6.8240E-04,8.9592E-04,1.2048E-03,1.6870E-03,2.2104E-03,2.7038E-03,3.0283E-03,3.2274E-03,3.0172E-03,2.6695E-03,2.3115E-03,1.8276E-03,1.3512E-03,7.3009E-04,3.9044E-04,2.5207E-04,9.6756E-05,3.5050E-05,1.4192E-05 "ASEACAT","ug m-3",1.1190E+01,1.0590E+01,1.0277E+01,1.0036E+01,9.8037E+00,9.5789E+00,9.3268E+00,9.0550E+00,8.7564E+00,8.3612E+00,7.8541E+00,7.2025E+00,6.3888E+00,5.5060E+00,4.6458E+00,3.8573E+00,3.1080E+00,2.3845E+00,1.7900E+00,1.3090E+00,9.7638E-01,7.3938E-01,5.3539E-01,4.1253E-01,3.4515E-01,3.0373E-01,2.7432E-01,2.4708E-01,2.2415E-01,2.0434E-01,1.8434E-01,1.6454E-01,1.4467E-01,1.2494E-01,1.0365E-01,8.1684E-02,5.9611E-02,3.9043E-02,2.2772E-02,1.2232E-02,6.5462E-03,3.3507E-03,1.7444E-03,9.4714E-04 "ACLK","ug m-3",1.6866E+01,1.5966E+01,1.5498E+01,1.5138E+01,1.4791E+01,1.4456E+01,1.4080E+01,1.3674E+01,1.3228E+01,1.2635E+01,1.1871E+01,1.0887E+01,9.6549E+00,8.3142E+00,7.0081E+00,5.8074E+00,4.6651E+00,3.5643E+00,2.6664E+00,1.9446E+00,1.4503E+00,1.1015E+00,8.0494E-01,6.2898E-01,5.3307E-01,4.7396E-01,4.3135E-01,3.8993E-01,3.5417E-01,3.2386E-01,2.9250E-01,2.6009E-01,2.2760E-01,1.9524E-01,1.6097E-01,1.2676E-01,9.3050E-02,6.2714E-02,3.9195E-02,2.3471E-02,1.3525E-02,6.7528E-03,3.3170E-03,1.7743E-03 "ASO4K","ug m-3",2.4451E+00,2.3202E+00,2.2545E+00,2.2037E+00,2.1547E+00,2.1072E+00,2.0540E+00,1.9968E+00,1.9340E+00,1.8503E+00,1.7428E+00,1.6039E+00,1.4308E+00,1.2447E+00,1.0672E+00,9.0748E-01,7.6408E-01,6.2652E-01,5.1404E-01,4.1973E-01,3.5226E-01,2.9985E-01,2.5476E-01,2.2793E-01,2.0992E-01,1.9297E-01,1.7727E-01,1.6105E-01,1.4790E-01,1.3782E-01,1.2538E-01,1.0919E-01,9.1575E-02,7.4499E-02,5.7791E-02,4.2532E-02,2.8624E-02,1.7664E-02,1.0143E-02,5.1304E-03,2.6019E-03,1.4202E-03,7.6304E-04,3.9909E-04 "ANH4K","ug m-3",6.2478E-02,6.3475E-02,6.3461E-02,6.3157E-02,6.2663E-02,6.1922E-02,6.0911E-02,5.9660E-02,5.8223E-02,5.6519E-02,5.5093E-02,5.2300E-02,4.9399E-02,4.6483E-02,4.5690E-02,4.8344E-02,5.8194E-02,6.2536E-02,6.6612E-02,6.7054E-02,6.4699E-02,6.1630E-02,6.0782E-02,5.9300E-02,5.5701E-02,5.0508E-02,4.4749E-02,3.7524E-02,3.0783E-02,2.5151E-02,2.0756E-02,1.6912E-02,1.3329E-02,1.0196E-02,7.6768E-03,5.5266E-03,3.8300E-03,2.5592E-03,1.6048E-03,7.5867E-04,3.4871E-04,1.9311E-04,9.9352E-05,5.0707E-05 "ANO3K","ug m-3",7.3864E-01,7.4947E-01,7.5032E-01,7.4864E-01,7.4636E-01,7.4240E-01,7.3650E-01,7.2840E-01,7.1877E-01,7.0302E-01,6.8025E-01,6.4931E-01,6.1630E-01,5.8772E-01,5.7225E-01,5.7176E-01,5.8760E-01,5.9323E-01,5.8668E-01,5.6182E-01,5.2637E-01,4.8281E-01,4.4031E-01,4.0385E-01,3.6894E-01,3.3313E-01,2.9738E-01,2.5986E-01,2.2534E-01,1.9659E-01,1.7300E-01,1.5059E-01,1.2853E-01,1.0902E-01,9.2145E-02,7.5953E-02,6.0685E-02,4.5650E-02,3.0106E-02,1.5824E-02,7.2493E-03,3.5514E-03,1.7339E-03,9.0711E-04 "AH2OK","ug m-3",1.3544E+02,1.2787E+02,1.2722E+02,1.2888E+02,1.3179E+02,1.3592E+02,1.4092E+02,1.4718E+02,1.5434E+02,1.5830E+02,1.5901E+02,1.5301E+02,1.4121E+02,1.2752E+02,1.1219E+02,9.5891E+01,7.3425E+01,5.1171E+01,3.2795E+01,1.9971E+01,1.1723E+01,7.5498E+00,5.2947E+00,4.0523E+00,3.3411E+00,2.8886E+00,2.4891E+00,2.1639E+00,1.8176E+00,1.5507E+00,1.3392E+00,1.1495E+00,9.7343E-01,8.0706E-01,6.4545E-01,4.8544E-01,3.3374E-01,2.0310E-01,1.0536E-01,4.9423E-02,2.3545E-02,1.2703E-02,6.9116E-03,3.7454E-03 "AH3OPK","ug m-3",1.7908E-01,1.7206E-01,1.6906E-01,1.6713E-01,1.6541E-01,1.6391E-01,1.6189E-01,1.5982E-01,1.5668E-01,1.5110E-01,1.4114E-01,1.2565E-01,1.0503E-01,8.3132E-02,6.4647E-02,5.0896E-02,3.9373E-02,3.4204E-02,3.1068E-02,3.4161E-02,3.8089E-02,3.9944E-02,4.0293E-02,3.9999E-02,3.8196E-02,3.4106E-02,2.8495E-02,2.5232E-02,2.1815E-02,1.9147E-02,1.6995E-02,1.3189E-02,1.1015E-02,9.8090E-03,9.1081E-03,8.6440E-03,8.8222E-03,8.3289E-03,7.3912E-03,6.4810E-03,4.6041E-03,2.3790E-03,1.1095E-03,5.7497E-04 "AISO3J","ug m-3",2.0352E-02,2.0345E-02,2.0315E-02,2.0278E-02,2.0243E-02,2.0247E-02,2.0307E-02,2.0445E-02,2.0559E-02,2.0516E-02,2.0413E-02,2.0439E-02,2.1003E-02,2.1396E-02,2.1620E-02,2.2067E-02,2.2812E-02,2.3439E-02,2.3397E-02,2.2693E-02,2.2050E-02,2.0673E-02,1.9448E-02,1.8246E-02,1.7047E-02,1.6113E-02,1.5826E-02,1.5538E-02,1.5395E-02,1.4653E-02,1.3440E-02,1.2187E-02,1.0927E-02,9.8868E-03,8.9362E-03,7.9608E-03,7.0831E-03,6.2187E-03,5.3496E-03,4.4149E-03,3.5628E-03,2.8215E-03,2.1096E-03,1.4699E-03 "AOLGAJ","ug m-3",1.2011E-02,1.2006E-02,1.1990E-02,1.1971E-02,1.1955E-02,1.1978E-02,1.2052E-02,1.2216E-02,1.2367E-02,1.2384E-02,1.2354E-02,1.2349E-02,1.2379E-02,1.2366E-02,1.2630E-02,1.3170E-02,1.4283E-02,1.5170E-02,1.5706E-02,1.5462E-02,1.4704E-02,1.3346E-02,1.2280E-02,1.1423E-02,1.0568E-02,9.8027E-03,9.3184E-03,8.8435E-03,8.4140E-03,7.9151E-03,7.3423E-03,6.7455E-03,6.0782E-03,5.4124E-03,4.8083E-03,4.3238E-03,4.0238E-03,3.8539E-03,3.7673E-03,3.5925E-03,3.2102E-03,2.8456E-03,2.2824E-03,1.6244E-03 "AOLGBJ","ug m-3",3.9611E-02,3.9598E-02,3.9545E-02,3.9487E-02,3.9440E-02,3.9524E-02,3.9787E-02,4.0347E-02,4.0859E-02,4.0987E-02,4.0981E-02,4.1176E-02,4.2020E-02,4.2656E-02,4.3959E-02,4.6072E-02,4.9622E-02,5.3765E-02,5.4512E-02,5.3454E-02,4.9731E-02,4.3841E-02,4.0432E-02,3.8099E-02,3.5683E-02,3.3787E-02,3.2871E-02,3.1575E-02,3.0420E-02,2.8868E-02,2.7239E-02,2.5568E-02,2.3644E-02,2.1845E-02,2.0262E-02,1.8855E-02,1.7884E-02,1.7247E-02,1.6463E-02,1.4739E-02,1.2250E-02,9.8683E-03,7.4479E-03,5.2477E-03 "APCSOJ","ug m-3",2.6101E-04,2.6093E-04,2.6052E-04,2.5999E-04,2.5949E-04,2.5907E-04,2.5883E-04,2.5921E-04,2.5967E-04,2.5834E-04,2.5667E-04,2.5655E-04,2.5839E-04,2.6077E-04,2.6848E-04,2.8228E-04,3.0906E-04,3.3403E-04,3.6703E-04,3.9742E-04,4.1601E-04,4.2394E-04,4.3329E-04,4.4860E-04,4.6531E-04,4.8218E-04,5.1545E-04,5.7247E-04,6.5351E-04,7.8048E-04,9.6670E-04,1.2077E-03,1.5146E-03,1.9086E-03,2.3936E-03,2.9538E-03,3.5951E-03,4.3175E-03,5.0306E-03,5.6664E-03,6.0601E-03,6.4488E-03,6.1557E-03,4.8488E-03 "ALVPO1I","ug m-3",2.0876E-03,2.1037E-03,2.1101E-03,2.1137E-03,2.1170E-03,2.1208E-03,2.1294E-03,2.2107E-03,2.3232E-03,2.4319E-03,2.5242E-03,2.6008E-03,2.6845E-03,2.7212E-03,2.7727E-03,2.9467E-03,3.2052E-03,3.4841E-03,3.5362E-03,3.4221E-03,3.1382E-03,2.7019E-03,2.5704E-03,2.5980E-03,2.6762E-03,2.8817E-03,3.0965E-03,3.0804E-03,2.9349E-03,2.6284E-03,2.3202E-03,2.0792E-03,1.8301E-03,1.5862E-03,1.3175E-03,9.8612E-04,5.9111E-04,2.5443E-04,7.3147E-05,1.2653E-05,2.9930E-06,1.5067E-06,7.2446E-07,3.8067E-07 "ASVPO1I","ug m-3",1.8922E-04,1.9434E-04,1.9712E-04,1.9928E-04,2.0127E-04,2.0336E-04,2.0553E-04,2.0922E-04,2.1437E-04,2.2170E-04,2.3575E-04,2.5837E-04,2.8805E-04,3.1020E-04,3.4061E-04,3.8004E-04,4.3836E-04,5.3087E-04,6.1197E-04,6.1356E-04,5.8795E-04,5.3426E-04,5.5950E-04,6.4152E-04,7.2973E-04,8.9109E-04,1.1245E-03,1.2199E-03,1.2284E-03,1.1503E-03,1.0771E-03,1.0142E-03,9.2655E-04,8.2738E-04,7.2163E-04,5.7252E-04,3.5689E-04,1.5316E-04,4.1979E-05,7.2120E-06,1.6822E-06,7.7631E-07,3.3279E-07,1.3247E-07 "ASVPO2I","ug m-3",4.1822E-06,4.4859E-06,4.6531E-06,4.7750E-06,4.8839E-06,4.9932E-06,5.0668E-06,5.1310E-06,5.1034E-06,4.9605E-06,4.9410E-06,5.0258E-06,5.1942E-06,5.4909E-06,6.3249E-06,7.2931E-06,9.5249E-06,1.0655E-05,1.5450E-05,1.6295E-05,1.8241E-05,2.4687E-05,3.2125E-05,4.0515E-05,5.0317E-05,7.1150E-05,1.0980E-04,1.4720E-04,1.7475E-04,1.8920E-04,2.1489E-04,2.4229E-04,2.5450E-04,2.4937E-04,2.5460E-04,2.3827E-04,1.6277E-04,7.1392E-05,1.9000E-05,3.5127E-06,8.5766E-07,3.7479E-07,1.6517E-07,6.7824E-08 "ALVPO1J","ug m-3",2.5889E-02,2.6044E-02,2.6131E-02,2.6221E-02,2.6333E-02,2.6643E-02,2.7205E-02,2.8198E-02,2.9170E-02,2.9532E-02,2.9599E-02,2.9756E-02,3.0042E-02,3.0130E-02,3.0915E-02,3.2473E-02,3.5029E-02,3.7595E-02,3.9423E-02,3.9731E-02,3.8727E-02,3.5711E-02,3.4088E-02,3.3358E-02,3.2465E-02,3.1491E-02,3.0835E-02,2.9730E-02,2.8368E-02,2.6683E-02,2.4824E-02,2.2976E-02,2.0492E-02,1.7456E-02,1.4511E-02,1.1879E-02,9.4576E-03,7.2065E-03,5.4150E-03,3.9977E-03,3.0143E-03,2.4557E-03,1.8607E-03,1.2823E-03 "ASVPO1J","ug m-3",1.6546E-03,1.6966E-03,1.7221E-03,1.7456E-03,1.7693E-03,1.8131E-03,1.8819E-03,1.9749E-03,2.0609E-03,2.1195E-03,2.1859E-03,2.2742E-03,2.3663E-03,2.4435E-03,2.6444E-03,2.9364E-03,3.4221E-03,3.9072E-03,4.6136E-03,4.8500E-03,4.8670E-03,4.6605E-03,4.8912E-03,5.4275E-03,5.9162E-03,6.4681E-03,7.2626E-03,7.6574E-03,7.7419E-03,7.4774E-03,7.2319E-03,7.1151E-03,6.6604E-03,5.8094E-03,4.9509E-03,4.2348E-03,3.5023E-03,2.6715E-03,1.9659E-03,1.4468E-03,1.0891E-03,8.8629E-04,6.7267E-04,4.6389E-04 "ASVPO2J","ug m-3",4.0411E-05,4.3397E-05,4.5259E-05,4.6559E-05,4.7583E-05,4.8587E-05,4.9080E-05,4.8326E-05,4.6695E-05,4.3597E-05,4.1873E-05,4.0817E-05,3.9627E-05,3.9203E-05,4.2639E-05,4.7880E-05,6.7555E-05,7.4098E-05,1.1140E-04,1.2599E-04,1.3806E-04,1.6770E-04,2.2721E-04,3.0803E-04,4.1186E-04,5.3197E-04,7.2387E-04,9.2956E-04,1.0973E-03,1.1830E-03,1.3189E-03,1.5309E-03,1.6295E-03,1.5255E-03,1.4025E-03,1.3194E-03,1.1712E-03,9.1037E-04,6.5060E-04,4.5631E-04,3.1203E-04,2.0865E-04,1.2729E-04,7.7050E-05 "ASVPO3J","ug m-3",3.0152E-06,3.2743E-06,3.4315E-06,3.5226E-06,3.5768E-06,3.6267E-06,3.6214E-06,3.4650E-06,3.1647E-06,2.6462E-06,2.3239E-06,2.0569E-06,1.7271E-06,1.3948E-06,1.1477E-06,9.5188E-07,8.3451E-07,7.4497E-07,6.9953E-07,6.3868E-07,6.0215E-07,7.0359E-07,1.0997E-06,1.4640E-06,1.7430E-06,2.0957E-06,3.1745E-06,5.7218E-06,9.6497E-06,1.4185E-05,1.8305E-05,2.2442E-05,2.6998E-05,3.1200E-05,3.7146E-05,3.9058E-05,3.6498E-05,2.8443E-05,1.7999E-05,9.8757E-06,5.9293E-06,3.2830E-06,1.0446E-06,2.3446E-07 "AIVPO1J","ug m-3",7.2345E-07,7.8382E-07,8.1895E-07,8.3716E-07,8.4575E-07,8.5245E-07,8.4584E-07,8.0215E-07,7.2253E-07,5.8851E-07,5.0511E-07,4.3436E-07,3.4961E-07,2.6694E-07,2.0450E-07,1.5423E-07,1.0839E-07,7.7755E-08,5.4418E-08,4.0295E-08,3.3270E-08,3.1710E-08,3.2563E-08,3.7117E-08,4.1673E-08,4.5155E-08,6.0283E-08,1.0040E-07,1.7154E-07,2.7642E-07,3.6365E-07,3.9836E-07,4.3667E-07,6.4738E-07,9.0504E-07,6.4133E-07,5.5720E-07,2.9784E-07,1.1874E-07,3.2638E-08,8.8435E-09,2.8026E-09,4.8184E-10,2.6553E-11 "ALVOO1I","ug m-3",2.4847E-03,2.4928E-03,2.4934E-03,2.4916E-03,2.4897E-03,2.4874E-03,2.4829E-03,2.5514E-03,2.6254E-03,2.6937E-03,2.7458E-03,2.7625E-03,2.7888E-03,2.7709E-03,2.7519E-03,2.8502E-03,3.0077E-03,3.1622E-03,3.1387E-03,3.0047E-03,2.7360E-03,2.3675E-03,2.1813E-03,2.0857E-03,2.0152E-03,2.0084E-03,2.0051E-03,1.9062E-03,1.7702E-03,1.5659E-03,1.3662E-03,1.2099E-03,1.0544E-03,9.0778E-04,7.5078E-04,5.5595E-04,3.2973E-04,1.4337E-04,4.2508E-05,7.5158E-06,1.7647E-06,8.7745E-07,4.1516E-07,2.0493E-07 "ALVOO2I","ug m-3",6.0306E-04,6.0895E-04,6.1173E-04,6.1382E-04,6.1617E-04,6.1898E-04,6.2355E-04,6.5300E-04,6.9089E-04,7.2807E-04,7.6015E-04,7.8599E-04,8.1528E-04,8.3166E-04,8.5255E-04,9.1445E-04,1.0006E-03,1.0836E-03,1.0955E-03,1.0569E-03,9.6919E-04,8.3755E-04,7.8968E-04,7.8529E-04,7.9616E-04,8.3946E-04,8.8115E-04,8.6389E-04,8.1539E-04,7.2533E-04,6.3443E-04,5.6358E-04,4.9274E-04,4.2495E-04,3.5018E-04,2.5910E-04,1.5410E-04,6.6626E-05,1.9520E-05,3.4867E-06,8.8744E-07,4.6120E-07,2.2851E-07,1.2529E-07 "ASVOO1I","ug m-3",1.9780E-06,2.0523E-06,2.1003E-06,2.1449E-06,2.1956E-06,2.2543E-06,2.3242E-06,2.5365E-06,2.7685E-06,2.9926E-06,3.1881E-06,3.3144E-06,3.4458E-06,3.5132E-06,3.6265E-06,3.9325E-06,4.3427E-06,4.6824E-06,4.7267E-06,4.5962E-06,4.2985E-06,3.8109E-06,3.6471E-06,3.6433E-06,3.7265E-06,3.9063E-06,4.0721E-06,4.0373E-06,3.9125E-06,3.6213E-06,3.2979E-06,3.0034E-06,2.6964E-06,2.3945E-06,2.0127E-06,1.5151E-06,9.3082E-07,4.3637E-07,1.4634E-07,3.4206E-08,1.4219E-08,7.9808E-09,3.9495E-09,2.0541E-09 "ASVOO2I","ug m-3",4.5613E-07,4.8628E-07,5.0553E-07,5.2328E-07,5.4289E-07,5.6531E-07,5.9194E-07,6.6068E-07,7.3612E-07,8.1019E-07,8.7238E-07,9.1261E-07,9.4202E-07,9.4893E-07,9.6212E-07,1.0396E-06,1.1635E-06,1.2585E-06,1.2605E-06,1.2036E-06,1.0949E-06,9.4260E-07,8.8945E-07,8.8705E-07,9.1700E-07,9.9119E-07,1.0989E-06,1.1758E-06,1.2270E-06,1.2279E-06,1.2625E-06,1.3104E-06,1.3215E-06,1.3168E-06,1.2869E-06,1.1400E-06,8.0900E-07,4.3338E-07,1.6340E-07,3.8590E-08,1.4980E-08,7.4740E-09,3.7002E-09,1.8470E-09 "ALVOO1J","ug m-3",3.1327E-02,3.1374E-02,3.1377E-02,3.1374E-02,3.1385E-02,3.1480E-02,3.1669E-02,3.2026E-02,3.2333E-02,3.2237E-02,3.1910E-02,3.1609E-02,3.1530E-02,3.1003E-02,3.0544E-02,3.0577E-02,3.1047E-02,3.1433E-02,3.0992E-02,2.9754E-02,2.7705E-02,2.4785E-02,2.2155E-02,2.0004E-02,1.7853E-02,1.6024E-02,1.4854E-02,1.3748E-02,1.2882E-02,1.1980E-02,1.1072E-02,1.0188E-02,9.0919E-03,7.8633E-03,6.7088E-03,5.6401E-03,4.6496E-03,3.6747E-03,2.7932E-03,2.0550E-03,1.5309E-03,1.2069E-03,8.9350E-04,6.1331E-04 "ALVOO2J","ug m-3",5.7982E-03,5.8508E-03,5.8843E-03,5.9194E-03,5.9629E-03,6.0559E-03,6.2114E-03,6.4701E-03,6.7164E-03,6.8182E-03,6.8464E-03,6.8935E-03,6.9917E-03,7.0216E-03,7.1559E-03,7.4400E-03,7.8689E-03,8.2990E-03,8.5087E-03,8.4294E-03,8.0650E-03,7.3024E-03,6.7982E-03,6.4230E-03,6.0189E-03,5.6774E-03,5.4930E-03,5.2350E-03,4.9741E-03,4.6393E-03,4.2892E-03,3.9773E-03,3.5646E-03,3.0789E-03,2.6153E-03,2.1923E-03,1.8004E-03,1.4112E-03,1.0713E-03,7.9229E-04,5.9717E-04,4.8165E-04,3.6386E-04,2.5217E-04 "ASVOO1J","ug m-3",2.2024E-05,2.2912E-05,2.3553E-05,2.4194E-05,2.4951E-05,2.6061E-05,2.7597E-05,2.9762E-05,3.1732E-05,3.2995E-05,3.3861E-05,3.4733E-05,3.5917E-05,3.6405E-05,3.7107E-05,3.8328E-05,4.0241E-05,4.2084E-05,4.2487E-05,4.1793E-05,4.0067E-05,3.6594E-05,3.3841E-05,3.1577E-05,2.9109E-05,2.6988E-05,2.5898E-05,2.4882E-05,2.4227E-05,2.3536E-05,2.2782E-05,2.1744E-05,2.0031E-05,1.7971E-05,1.5975E-05,1.4118E-05,1.2409E-05,1.0654E-05,8.7986E-06,6.8743E-06,5.2454E-06,4.0215E-06,2.9156E-06,1.9962E-06 "ASVOO2J","ug m-3",5.2461E-06,5.6070E-06,5.8591E-06,6.1050E-06,6.3831E-06,6.7756E-06,7.3102E-06,8.0223E-06,8.6280E-06,9.0049E-06,9.2400E-06,9.4567E-06,9.7166E-06,9.7065E-06,9.6840E-06,9.8930E-06,1.0206E-05,1.0562E-05,1.0481E-05,9.9559E-06,9.2253E-06,8.1361E-06,7.3162E-06,6.7355E-06,6.1725E-06,5.8315E-06,5.9110E-06,6.1681E-06,6.5356E-06,6.8315E-06,7.2809E-06,7.7759E-06,7.8667E-06,7.6351E-06,7.4987E-06,7.5052E-06,7.4703E-06,7.3000E-06,6.8350E-06,5.9525E-06,4.7153E-06,3.1860E-06,1.9263E-06,1.1567E-06 "ASVOO3J","ug m-3",8.2464E-07,8.8371E-07,9.2331E-07,9.6109E-07,1.0033E-06,1.0626E-06,1.1447E-06,1.2629E-06,1.3621E-06,1.4231E-06,1.4579E-06,1.4841E-06,1.5121E-06,1.4941E-06,1.4724E-06,1.4976E-06,1.5420E-06,1.6021E-06,1.5713E-06,1.4588E-06,1.3025E-06,1.0936E-06,9.3670E-07,8.2163E-07,7.0240E-07,6.2954E-07,5.7938E-07,5.4595E-07,5.5106E-07,5.8825E-07,6.4561E-07,7.2622E-07,7.9543E-07,8.3347E-07,8.8382E-07,9.0740E-07,8.6336E-07,7.1759E-07,4.8351E-07,2.7234E-07,2.4121E-07,1.6005E-07,5.0272E-08,1.1887E-08 "AALK1J","ug m-3",3.0143E-03,3.0220E-03,3.0230E-03,3.0224E-03,3.0229E-03,3.0291E-03,3.0446E-03,3.0844E-03,3.1236E-03,3.1348E-03,3.1349E-03,3.1397E-03,3.1606E-03,3.1611E-03,3.2004E-03,3.2927E-03,3.5025E-03,3.6949E-03,3.7942E-03,3.7698E-03,3.6185E-03,3.3476E-03,3.1452E-03,2.9942E-03,2.8355E-03,2.6879E-03,2.5856E-03,2.4699E-03,2.3548E-03,2.2019E-03,2.0418E-03,1.8695E-03,1.6603E-03,1.4463E-03,1.2445E-03,1.0468E-03,8.3860E-04,6.3886E-04,4.7285E-04,3.4807E-04,2.6680E-04,2.2041E-04,1.6780E-04,1.1479E-04 "ABNZ1J","ug m-3",3.0143E-03,3.0220E-03,3.0230E-03,3.0224E-03,3.0229E-03,3.0291E-03,3.0446E-03,3.0844E-03,3.1236E-03,3.1348E-03,3.1349E-03,3.1397E-03,3.1606E-03,3.1611E-03,3.2004E-03,3.2927E-03,3.5025E-03,3.6949E-03,3.7942E-03,3.7698E-03,3.6185E-03,3.3476E-03,3.1452E-03,2.9942E-03,2.8355E-03,2.6879E-03,2.5856E-03,2.4699E-03,2.3548E-03,2.2019E-03,2.0418E-03,1.8695E-03,1.6603E-03,1.4463E-03,1.2445E-03,1.0468E-03,8.3860E-04,6.3886E-04,4.7285E-04,3.4807E-04,2.6680E-04,2.2041E-04,1.6780E-04,1.1479E-04 "ABNZ3J","ug m-3",3.2027E-03,3.2109E-03,3.2119E-03,3.2113E-03,3.2118E-03,3.2184E-03,3.2349E-03,3.2772E-03,3.3188E-03,3.3307E-03,3.3308E-03,3.3359E-03,3.3582E-03,3.3587E-03,3.4004E-03,3.4985E-03,3.7214E-03,3.9258E-03,4.0313E-03,4.0055E-03,3.8446E-03,3.5568E-03,3.3418E-03,3.1813E-03,3.0128E-03,2.8559E-03,2.7472E-03,2.6243E-03,2.5020E-03,2.3395E-03,2.1694E-03,1.9863E-03,1.7641E-03,1.5367E-03,1.3223E-03,1.1122E-03,8.9101E-04,6.7878E-04,5.0240E-04,3.6983E-04,2.8347E-04,2.3418E-04,1.7829E-04,1.2197E-04 "ATOL3J","ug m-3",3.2027E-03,3.2109E-03,3.2119E-03,3.2113E-03,3.2118E-03,3.2184E-03,3.2349E-03,3.2772E-03,3.3188E-03,3.3307E-03,3.3308E-03,3.3359E-03,3.3582E-03,3.3587E-03,3.4004E-03,3.4985E-03,3.7214E-03,3.9258E-03,4.0313E-03,4.0055E-03,3.8446E-03,3.5568E-03,3.3418E-03,3.1813E-03,3.0128E-03,2.8559E-03,2.7472E-03,2.6243E-03,2.5020E-03,2.3395E-03,2.1694E-03,1.9863E-03,1.7641E-03,1.5367E-03,1.3223E-03,1.1122E-03,8.9101E-04,6.7878E-04,5.0240E-04,3.6983E-04,2.8347E-04,2.3418E-04,1.7829E-04,1.2197E-04 "AXYL3J","ug m-3",3.2027E-03,3.2109E-03,3.2119E-03,3.2113E-03,3.2118E-03,3.2184E-03,3.2349E-03,3.2772E-03,3.3188E-03,3.3307E-03,3.3308E-03,3.3359E-03,3.3582E-03,3.3587E-03,3.4004E-03,3.4985E-03,3.7214E-03,3.9258E-03,4.0313E-03,4.0055E-03,3.8446E-03,3.5568E-03,3.3418E-03,3.1813E-03,3.0128E-03,2.8559E-03,2.7472E-03,2.6243E-03,2.5020E-03,2.3395E-03,2.1694E-03,1.9863E-03,1.7641E-03,1.5367E-03,1.3223E-03,1.1122E-03,8.9101E-04,6.7878E-04,5.0240E-04,3.6983E-04,2.8347E-04,2.3418E-04,1.7829E-04,1.2197E-04 "APAH3J","ug m-3",3.2027E-03,3.2109E-03,3.2119E-03,3.2113E-03,3.2118E-03,3.2184E-03,3.2349E-03,3.2772E-03,3.3188E-03,3.3307E-03,3.3308E-03,3.3359E-03,3.3582E-03,3.3587E-03,3.4004E-03,3.4985E-03,3.7214E-03,3.9258E-03,4.0313E-03,4.0055E-03,3.8446E-03,3.5568E-03,3.3418E-03,3.1813E-03,3.0128E-03,2.8559E-03,2.7472E-03,2.6243E-03,2.5020E-03,2.3395E-03,2.1694E-03,1.9863E-03,1.7641E-03,1.5367E-03,1.3223E-03,1.1122E-03,8.9101E-04,6.7878E-04,5.0240E-04,3.6983E-04,2.8347E-04,2.3418E-04,1.7829E-04,1.2197E-04 "AXYL1J","ug m-3",1.5752E-05,1.6444E-05,1.6794E-05,1.7061E-05,1.7314E-05,1.7557E-05,1.7780E-05,1.7985E-05,1.8086E-05,1.8099E-05,1.8067E-05,1.8035E-05,1.8119E-05,1.8094E-05,1.8593E-05,2.0198E-05,2.3149E-05,2.5971E-05,2.8022E-05,2.8220E-05,2.6677E-05,2.4962E-05,2.4638E-05,2.4803E-05,2.4869E-05,2.4692E-05,2.4554E-05,2.4627E-05,2.5071E-05,2.5545E-05,2.5744E-05,2.5799E-05,2.5067E-05,2.4199E-05,2.3427E-05,2.2709E-05,2.1207E-05,1.7812E-05,1.1404E-05,3.9716E-06,1.0686E-06,2.9005E-07,7.6317E-08,2.9723E-08 "ATOL1J","ug m-3",1.5752E-05,1.6444E-05,1.6794E-05,1.7061E-05,1.7314E-05,1.7557E-05,1.7780E-05,1.7985E-05,1.8086E-05,1.8099E-05,1.8067E-05,1.8035E-05,1.8119E-05,1.8094E-05,1.8593E-05,2.0198E-05,2.3149E-05,2.5971E-05,2.8022E-05,2.8220E-05,2.6677E-05,2.4962E-05,2.4638E-05,2.4803E-05,2.4869E-05,2.4692E-05,2.4554E-05,2.4627E-05,2.5071E-05,2.5545E-05,2.5744E-05,2.5799E-05,2.5067E-05,2.4199E-05,2.3427E-05,2.2709E-05,2.1207E-05,1.7812E-05,1.1404E-05,3.9716E-06,1.0686E-06,2.9005E-07,7.6317E-08,2.9723E-08 "APAH1J","ug m-3",1.6229E-05,1.6943E-05,1.7303E-05,1.7578E-05,1.7838E-05,1.8089E-05,1.8318E-05,1.8530E-05,1.8634E-05,1.8647E-05,1.8615E-05,1.8582E-05,1.8668E-05,1.8642E-05,1.9157E-05,2.0810E-05,2.3850E-05,2.6758E-05,2.8871E-05,2.9075E-05,2.7486E-05,2.5719E-05,2.5385E-05,2.5555E-05,2.5623E-05,2.5440E-05,2.5298E-05,2.5373E-05,2.5831E-05,2.6320E-05,2.6524E-05,2.6581E-05,2.5827E-05,2.4933E-05,2.4137E-05,2.3397E-05,2.1849E-05,1.8352E-05,1.1749E-05,4.0919E-06,1.1010E-06,2.9884E-07,7.8629E-08,3.0624E-08 "ATOL2J","ug m-3",3.4061E-05,3.6093E-05,3.7112E-05,3.7927E-05,3.8764E-05,3.9760E-05,4.0991E-05,4.2854E-05,4.4990E-05,4.7243E-05,5.0234E-05,5.3149E-05,5.7527E-05,6.2230E-05,7.0889E-05,8.3206E-05,1.1255E-04,1.3635E-04,1.5490E-04,1.5442E-04,1.4277E-04,1.2783E-04,1.2350E-04,1.2344E-04,1.2307E-04,1.2123E-04,1.2242E-04,1.2559E-04,1.3106E-04,1.3455E-04,1.3456E-04,1.3207E-04,1.2416E-04,1.1504E-04,1.0435E-04,9.1604E-05,7.7352E-05,5.7361E-05,3.3377E-05,1.2838E-05,4.9334E-06,1.9812E-06,7.0938E-07,2.8518E-07 "ATRP1J","ug m-3",2.2434E-04,2.3768E-04,2.4637E-04,2.5525E-04,2.6544E-04,2.8152E-04,3.0579E-04,3.4604E-04,3.8814E-04,4.2581E-04,4.6903E-04,5.2109E-04,6.1926E-04,7.6878E-04,9.9419E-04,1.2130E-03,1.7687E-03,2.4356E-03,2.5265E-03,2.3999E-03,1.9821E-03,1.4531E-03,1.4198E-03,1.4920E-03,1.5759E-03,1.6895E-03,1.8924E-03,2.0871E-03,2.2862E-03,2.4364E-03,2.5413E-03,2.5772E-03,2.5100E-03,2.4153E-03,2.3062E-03,2.1962E-03,2.1070E-03,2.0426E-03,1.9156E-03,1.6222E-03,1.2564E-03,9.4086E-04,6.5513E-04,4.3252E-04 "ATRP2J","ug m-3",2.3270E-05,2.4780E-05,2.5728E-05,2.6691E-05,2.7785E-05,2.9669E-05,3.2767E-05,3.8210E-05,4.3564E-05,4.8181E-05,5.3590E-05,5.9837E-05,7.1573E-05,9.0513E-05,1.2137E-04,1.5184E-04,2.5045E-04,3.8795E-04,3.9427E-04,3.7041E-04,2.9461E-04,1.8486E-04,1.8919E-04,2.0966E-04,2.3193E-04,2.6360E-04,3.2787E-04,4.1609E-04,5.2743E-04,6.5229E-04,8.0898E-04,1.0044E-03,1.1860E-03,1.3444E-03,1.4788E-03,1.5988E-03,1.7059E-03,1.7869E-03,1.7800E-03,1.5784E-03,1.2571E-03,9.4570E-04,6.2623E-04,3.5305E-04 "NH3","ppmV",6.3263E-05,6.6580E-05,6.8574E-05,7.0703E-05,7.3038E-05,7.6230E-05,8.0828E-05,8.7571E-05,9.4572E-05,1.0086E-04,1.0390E-04,1.1232E-04,1.2387E-04,1.3873E-04,1.5841E-04,1.7360E-04,1.7863E-04,1.8452E-04,1.8097E-04,1.8334E-04,1.7686E-04,1.7454E-04,1.7335E-04,1.7198E-04,1.7212E-04,1.7178E-04,1.6850E-04,1.6090E-04,1.5128E-04,1.5115E-04,1.5462E-04,1.5421E-04,1.4792E-04,1.2817E-04,1.0395E-04,8.0931E-05,5.9276E-05,3.5743E-05,1.6509E-05,4.2976E-06,1.8763E-06,3.6471E-06,3.0765E-06,2.4276E-06 "SVISO1","ppmV",1.2016E-06,1.2560E-06,1.2819E-06,1.3031E-06,1.3281E-06,1.3583E-06,1.4027E-06,1.4751E-06,1.5501E-06,1.6444E-06,1.7842E-06,1.9861E-06,2.3630E-06,2.8100E-06,3.2225E-06,3.6073E-06,4.1782E-06,4.6644E-06,4.9148E-06,5.0160E-06,4.9570E-06,4.6989E-06,4.6166E-06,4.6299E-06,4.6166E-06,4.5820E-06,4.6430E-06,4.6546E-06,4.7034E-06,4.6979E-06,4.6088E-06,4.4071E-06,4.0559E-06,3.7230E-06,3.3679E-06,2.8757E-06,2.2839E-06,1.6765E-06,9.9237E-07,3.8356E-07,1.2052E-07,4.1587E-08,1.6035E-08,1.0905E-08 "SVISO2","ppmV",1.2549E-09,1.2985E-09,1.3167E-09,1.3288E-09,1.3386E-09,1.3462E-09,1.3586E-09,1.3723E-09,1.3846E-09,1.4100E-09,1.4551E-09,1.5724E-09,1.8248E-09,2.0124E-09,2.1213E-09,2.1094E-09,2.0198E-09,1.9077E-09,1.8872E-09,1.9506E-09,1.9940E-09,1.9882E-09,1.8858E-09,1.9489E-09,1.9836E-09,2.0837E-09,2.1980E-09,2.2817E-09,2.2476E-09,2.1767E-09,2.1109E-09,1.9697E-09,1.7720E-09,1.5459E-09,1.2636E-09,8.8227E-10,5.0756E-10,2.4008E-10,9.9037E-11,2.7708E-11,4.5496E-12,6.7860E-13,1.0581E-13,2.0166E-14 "SVSQT","ppmV",6.8254E-08,7.1065E-08,7.2346E-08,7.3351E-08,7.4543E-08,7.5872E-08,7.8027E-08,8.1569E-08,8.5277E-08,9.0604E-08,9.8994E-08,1.1162E-07,1.3082E-07,1.5135E-07,1.6978E-07,1.8405E-07,2.0417E-07,2.2090E-07,2.3008E-07,2.2823E-07,2.2136E-07,2.1034E-07,1.9724E-07,1.9489E-07,1.9331E-07,1.9102E-07,1.9310E-07,1.9066E-07,1.8391E-07,1.7371E-07,1.6337E-07,1.5030E-07,1.3288E-07,1.1671E-07,1.0045E-07,7.9075E-08,5.2376E-08,2.7605E-08,1.0541E-08,2.5259E-09,4.2353E-10,6.8631E-11,1.4371E-11,5.7109E-12 "LVPCSOG","ppmV",4.3898E-12,4.2678E-12,4.1860E-12,4.1094E-12,4.0289E-12,3.9434E-12,3.8487E-12,3.7458E-12,3.6286E-12,3.5035E-12,3.3669E-12,3.2223E-12,3.0604E-12,2.9039E-12,2.7549E-12,2.6216E-12,2.5114E-12,2.4102E-12,2.3278E-12,2.2697E-12,2.1758E-12,2.0803E-12,1.9798E-12,1.8483E-12,1.7078E-12,1.5754E-12,1.4650E-12,1.3548E-12,1.2324E-12,1.1227E-12,1.0307E-12,9.8832E-13,1.0302E-12,1.1657E-12,1.4332E-12,1.8659E-12,2.4589E-12,3.1130E-12,3.7597E-12,4.4119E-12,5.1149E-12,6.1600E-12,8.3718E-12,1.3062E-11 "SVTRP1","ppmV",3.5981E-07,3.7339E-07,3.7909E-07,3.8332E-07,3.8817E-07,3.9417E-07,4.0327E-07,4.1913E-07,4.3526E-07,4.5299E-07,4.7751E-07,5.1643E-07,5.9371E-07,6.8351E-07,7.6208E-07,8.2222E-07,9.1629E-07,1.0005E-06,1.0590E-06,1.0561E-06,9.6548E-07,8.5523E-07,7.6717E-07,7.1014E-07,6.5519E-07,5.9582E-07,5.4112E-07,4.7342E-07,4.0027E-07,3.2292E-07,2.4581E-07,1.7347E-07,1.1245E-07,6.9264E-08,4.0671E-08,2.3949E-08,1.5046E-08,1.0640E-08,8.1057E-09,6.3616E-09,4.9421E-09,4.2649E-09,4.6865E-09,7.4640E-09 "SVTRP2","ppmV",4.8227E-07,5.0297E-07,5.1222E-07,5.1948E-07,5.2782E-07,5.3843E-07,5.5437E-07,5.8130E-07,6.0940E-07,6.4042E-07,6.8234E-07,7.4601E-07,8.7030E-07,1.0218E-06,1.1708E-06,1.2891E-06,1.5222E-06,1.7583E-06,1.8623E-06,1.8643E-06,1.7015E-06,1.4399E-06,1.3353E-06,1.2917E-06,1.2562E-06,1.2263E-06,1.2227E-06,1.2004E-06,1.1681E-06,1.1188E-06,1.0537E-06,9.5839E-07,8.3844E-07,7.2962E-07,6.2509E-07,5.2627E-07,4.4195E-07,3.8410E-07,3.4509E-07,3.1134E-07,2.7608E-07,2.6315E-07,2.8366E-07,3.7405E-07 ================================================ FILE: PREP/bcon/src/profile/avprofile_saprc07tic_ae7i_aq_derived_from_cb6r3m_ae7_kmtbr_hemi2016_v53beta2_m3dry_col051_row068.csv ================================================ # # # The vertical profiles in this file were derived from a simulation with the # hemispheric version of CMAQv5.3 beta2 for the year 2016 and represent the annual # average values at the model grid cell closest to lat 37N, lon -157W. As such, # they are reflective of conditions in a remote marine environment. # The model simulations were performed with the CB6R3M_AE7_KMTBR chemical mechanism and # the annual average model outputs were mapped to the SAPRC07TIC_AE7I_AQ chemical mechanism # Model version: CMAQv5.3 beta2 (February 2018), including full halogen and DMS chemistry # Grid spacing: 108 x 108 km on a polar stereographic grid covering the northern hemisphere # Vertical layers: 44 # Meteorological fields: WRF3.8 # Chemical mechanism: CB6R3M_AE7_KMTBR (mapped to SAPRC07TIC_AE7I_AQ) # Dry Deposition: M3DRY # Top level pressure: 50 hPa # The vertical sigma levels used in the simulations were 1.0, 0.9975, 0.9946, 0.9913, 0.9875, 0.9831, 0.9781, 0.9723, 0.9657, 0.958, 0.9492, 0.9391, 0.9275, 0.9141, 0.8987, 0.881, 0.8607, 0.8373, 0.8104, 0.7795, 0.7439, 0.7066, 0.6693, 0.632, 0.5946, 0.5573, 0.52, 0.4827, 0.4454, 0.4081, 0.3708, 0.3352, 0.3013, 0.269, 0.2383, 0.2089, 0.181, 0.1543, 0.1289, 0.1047, 0.0816, 0.0596, 0.0386, 0.0186, 0. # The hourly meteorological and air quality fields used to derive these profiles # are archived at # /asm/ROMO/met/MCIP/WRFv3.8_108NHEMI2_2016_44aL/v4.3 # /asm/gsarwar/hemisphere/cmaqv53_beta_official/halogen/RUN_C VNAME,UNITS,LAYER01,LAYER02,LAYER03,LAYER04,LAYER05,LAYER06,LAYER07,LAYER08,LAYER09,LAYER10,LAYER11,LAYER12,LAYER13,LAYER14,LAYER15,LAYER16,LAYER17,LAYER18,LAYER19,LAYER20,LAYER21,LAYER22,LAYER23,LAYER24,LAYER25,LAYER26,LAYER27,LAYER28,LAYER29,LAYER30,LAYER31,LAYER32,LAYER33,LAYER34,LAYER35,LAYER36,LAYER37,LAYER38,LAYER39,LAYER40,LAYER41,LAYER42,LAYER43,LAYER44 "PRES","Pa",1.0181E+05,1.0155E+05,1.0124E+05,1.0090E+05,1.0050E+05,1.0004E+05,9.9512E+04,9.8907E+04,9.8209E+04,9.7404E+04,9.6482E+04,9.5424E+04,9.4205E+04,9.2801E+04,9.1188E+04,8.9338E+04,8.7211E+04,8.4764E+04,8.1955E+04,7.8726E+04,7.5189E+04,7.1571E+04,6.7955E+04,6.4335E+04,6.0716E+04,5.7103E+04,5.3491E+04,4.9880E+04,4.6270E+04,4.2660E+04,3.9134E+04,3.5772E+04,3.2571E+04,2.9525E+04,2.6619E+04,2.3849E+04,2.1210E+04,1.8691E+04,1.6294E+04,1.4007E+04,1.1827E+04,9.7480E+03,7.7657E+03,5.8994E+03 "ZH","m",1.0185E+01,3.2201E+01,5.7525E+01,8.6591E+01,1.2025E+02,1.5896E+02,2.0359E+02,2.5506E+02,3.1470E+02,3.8391E+02,4.6373E+02,5.5608E+02,6.6344E+02,7.8847E+02,9.3399E+02,1.1036E+03,1.3023E+03,1.5362E+03,1.8123E+03,2.1402E+03,2.5137E+03,2.9121E+03,3.3279E+03,3.7633E+03,4.2196E+03,4.6982E+03,5.2024E+03,5.7352E+03,6.3003E+03,6.9023E+03,7.5321E+03,8.1761E+03,8.8360E+03,9.5136E+03,1.0214E+04,1.0942E+04,1.1705E+04,1.2513E+04,1.3380E+04,1.4326E+04,1.5376E+04,1.6570E+04,1.7970E+04,1.9672E+04 "ZF","m",2.0375E+01,4.4047E+01,7.1039E+01,1.0220E+02,1.3838E+02,1.7964E+02,2.2768E+02,2.8261E+02,3.4703E+02,4.2110E+02,5.0673E+02,6.0590E+02,7.2159E+02,8.5611E+02,1.0129E+03,1.1957E+03,1.4108E+03,1.6641E+03,1.9638E+03,2.3214E+03,2.7111E+03,3.1176E+03,3.5423E+03,3.9880E+03,4.4542E+03,4.9446E+03,5.4620E+03,6.0097E+03,6.5917E+03,7.2132E+03,7.8487E+03,8.4986E+03,9.1656E+03,9.8509E+03,1.0564E+04,1.1305E+04,1.2087E+04,1.2919E+04,1.3819E+04,1.4810E+04,1.5921E+04,1.7203E+04,1.8737E+04,2.0629E+04 "NO2","ppmV",6.6416E-05,6.6871E-05,6.6995E-05,6.6251E-05,6.4791E-05,6.2946E-05,6.0125E-05,5.6347E-05,5.2051E-05,4.6051E-05,4.0643E-05,3.4908E-05,2.8844E-05,2.3595E-05,1.9684E-05,1.6852E-05,1.5218E-05,1.4624E-05,1.4303E-05,1.4142E-05,1.4275E-05,1.4340E-05,1.4250E-05,1.4080E-05,1.3700E-05,1.3191E-05,1.2747E-05,1.2518E-05,1.2453E-05,1.2474E-05,1.2500E-05,1.2349E-05,1.2799E-05,1.4980E-05,1.9595E-05,2.7242E-05,3.8982E-05,5.4613E-05,6.8501E-05,7.6555E-05,7.5536E-05,6.2896E-05,4.7995E-05,4.3004E-05 "NO","ppmV",7.2125E-06,7.3708E-06,7.4578E-06,7.4445E-06,7.3594E-06,7.2401E-06,7.0303E-06,6.6917E-06,6.3132E-06,5.6629E-06,5.0430E-06,4.2686E-06,3.4368E-06,2.7868E-06,2.3603E-06,2.1141E-06,2.1080E-06,2.2536E-06,2.4169E-06,2.6511E-06,2.8859E-06,3.1132E-06,3.2768E-06,3.4103E-06,3.4596E-06,3.4505E-06,3.4404E-06,3.4880E-06,3.5884E-06,3.7997E-06,4.2118E-06,4.7966E-06,5.6269E-06,7.1106E-06,9.8309E-06,1.4418E-05,2.1712E-05,3.2106E-05,4.2984E-05,5.0088E-05,4.8329E-05,3.3660E-05,2.1467E-05,1.6828E-05 "O3P","ppmV",3.8565E-11,3.8774E-11,3.9017E-11,3.9304E-11,3.9635E-11,4.0010E-11,4.0440E-11,4.0903E-11,4.1518E-11,4.2195E-11,4.2961E-11,4.3842E-11,4.4956E-11,4.6991E-11,5.0488E-11,5.5970E-11,6.3681E-11,7.4011E-11,8.6481E-11,1.0145E-10,1.1685E-10,1.3198E-10,1.4992E-10,1.7002E-10,1.9215E-10,2.1593E-10,2.4530E-10,2.7879E-10,3.1688E-10,3.6406E-10,4.2162E-10,4.8799E-10,5.6794E-10,6.8038E-10,8.5598E-10,1.1456E-09,1.6585E-09,2.5890E-09,4.2102E-09,6.8171E-09,1.2136E-08,3.5512E-08,1.0624E-07,3.1938E-07 "O3","ppmV",2.9175E-02,2.9212E-02,2.9237E-02,2.9261E-02,2.9282E-02,2.9294E-02,2.9285E-02,2.9268E-02,2.9236E-02,2.9183E-02,2.9094E-02,2.8951E-02,2.8814E-02,2.8780E-02,2.8908E-02,2.9365E-02,3.0223E-02,3.1446E-02,3.2937E-02,3.4518E-02,3.5985E-02,3.7176E-02,3.8610E-02,4.0036E-02,4.1363E-02,4.2594E-02,4.4067E-02,4.5605E-02,4.7165E-02,4.9155E-02,5.1509E-02,5.3923E-02,5.6682E-02,6.0912E-02,6.7728E-02,7.8214E-02,9.5268E-02,1.2097E-01,1.5442E-01,1.8961E-01,2.4869E-01,5.0406E-01,9.6055E-01,1.5983E+00 "NO3","ppmV",6.3239E-07,6.3023E-07,6.3151E-07,6.4556E-07,6.5635E-07,6.6224E-07,6.6575E-07,6.6570E-07,6.5354E-07,6.3346E-07,5.9811E-07,5.4948E-07,5.0238E-07,4.5992E-07,4.4629E-07,5.0144E-07,6.6674E-07,8.9469E-07,1.0479E-06,1.1333E-06,1.1645E-06,1.1331E-06,1.0786E-06,9.5645E-07,7.9273E-07,6.1975E-07,4.7106E-07,3.5094E-07,2.4854E-07,1.6729E-07,1.1407E-07,8.2662E-08,6.7138E-08,6.1447E-08,6.1893E-08,6.7501E-08,7.9188E-08,9.4982E-08,1.1225E-07,1.2714E-07,1.5253E-07,2.7354E-07,4.6465E-07,7.2979E-07 "O1D","ppmV",1.6680E-16,1.6824E-16,1.6969E-16,1.7139E-16,1.7336E-16,1.7563E-16,1.7820E-16,1.8114E-16,1.8492E-16,1.8893E-16,1.9354E-16,1.9842E-16,2.0425E-16,2.1446E-16,2.3020E-16,2.5385E-16,2.8813E-16,3.3418E-16,3.8904E-16,4.5539E-16,5.2169E-16,5.8509E-16,6.5957E-16,7.4102E-16,8.2638E-16,9.1601E-16,1.0270E-15,1.1484E-15,1.2803E-15,1.4361E-15,1.6180E-15,1.8138E-15,2.0264E-15,2.3043E-15,2.7207E-15,3.3824E-15,4.5020E-15,6.4212E-15,9.5835E-15,1.4107E-14,2.2197E-14,5.6672E-14,1.4333E-13,3.5583E-13 "OH","ppmV",6.0257E-08,6.0452E-08,6.0890E-08,6.1268E-08,6.1599E-08,6.1899E-08,6.2101E-08,6.1966E-08,6.1872E-08,6.0840E-08,5.9571E-08,5.7520E-08,5.4761E-08,5.3234E-08,5.3107E-08,5.3649E-08,5.4789E-08,5.6292E-08,5.7351E-08,5.8706E-08,6.0053E-08,6.1655E-08,6.4520E-08,6.7518E-08,7.0455E-08,7.2308E-08,7.3371E-08,7.3707E-08,7.3616E-08,7.4039E-08,7.5315E-08,7.6337E-08,7.7136E-08,8.0977E-08,9.0723E-08,1.0808E-07,1.3565E-07,1.6986E-07,2.0080E-07,2.1621E-07,2.1041E-07,1.7666E-07,2.0241E-07,3.2347E-07 "HO2","ppmV",4.5776E-06,4.6298E-06,4.6529E-06,4.6612E-06,4.6692E-06,4.6783E-06,4.6847E-06,4.6863E-06,4.6817E-06,4.6378E-06,4.6082E-06,4.5504E-06,4.4590E-06,4.3915E-06,4.3729E-06,4.4360E-06,4.5784E-06,4.7666E-06,4.9391E-06,5.1092E-06,5.2609E-06,5.3674E-06,5.4993E-06,5.6002E-06,5.6491E-06,5.6427E-06,5.6104E-06,5.5505E-06,5.4659E-06,5.3639E-06,5.2341E-06,5.0251E-06,4.7401E-06,4.4441E-06,4.1458E-06,3.7731E-06,3.2729E-06,2.6874E-06,2.1534E-06,1.7736E-06,1.6658E-06,1.8948E-06,2.7505E-06,4.7410E-06 "HO2H","ppmV",5.1128E-04,5.3838E-04,5.5228E-04,5.6388E-04,5.7763E-04,5.9353E-04,6.1284E-04,6.3553E-04,6.5406E-04,6.7245E-04,6.9578E-04,7.2476E-04,7.6345E-04,7.9405E-04,8.1356E-04,8.3012E-04,8.4774E-04,8.5946E-04,8.5617E-04,8.4635E-04,8.3386E-04,8.1462E-04,8.0074E-04,7.7892E-04,7.4954E-04,7.1234E-04,6.7188E-04,6.2844E-04,5.8534E-04,5.3936E-04,4.9701E-04,4.5885E-04,4.1729E-04,3.7210E-04,3.2271E-04,2.6247E-04,1.9002E-04,1.1687E-04,6.1086E-05,3.2219E-05,2.3866E-05,2.5105E-05,3.9866E-05,7.2061E-05 "N2O5","ppmV",1.4375E-07,1.4709E-07,1.5167E-07,1.5903E-07,1.6283E-07,1.6500E-07,1.6458E-07,1.6057E-07,1.5183E-07,1.3934E-07,1.2930E-07,1.1708E-07,1.0381E-07,8.9736E-08,7.8628E-08,8.0162E-08,9.9393E-08,1.2383E-07,1.4304E-07,1.5891E-07,1.7690E-07,1.9811E-07,2.2334E-07,2.5308E-07,2.8381E-07,3.1261E-07,3.4115E-07,3.9116E-07,4.5317E-07,5.0107E-07,5.2425E-07,5.2036E-07,5.5098E-07,6.8349E-07,9.4135E-07,1.3491E-06,1.9204E-06,2.5556E-06,2.9779E-06,3.1016E-06,3.1708E-06,3.5271E-06,3.4359E-06,3.3245E-06 "HNO3","ppmV",1.1265E-05,1.1896E-05,1.2122E-05,1.2228E-05,1.2284E-05,1.2123E-05,1.1850E-05,1.1513E-05,1.0957E-05,1.0199E-05,9.9439E-06,9.8369E-06,9.7639E-06,1.0503E-05,1.2482E-05,1.7998E-05,2.9995E-05,4.7323E-05,6.3910E-05,7.7114E-05,8.3643E-05,8.4341E-05,8.4299E-05,8.2708E-05,7.8905E-05,7.2852E-05,6.8405E-05,6.4564E-05,6.0652E-05,5.5594E-05,5.5257E-05,5.5122E-05,5.4123E-05,5.4742E-05,5.9479E-05,7.0813E-05,8.7695E-05,1.1294E-04,1.3073E-04,1.4017E-04,1.4997E-04,1.6858E-04,1.9492E-04,1.9109E-04 "HONO","ppmV",3.3428E-07,3.4958E-07,3.5813E-07,3.6052E-07,3.5749E-07,3.5063E-07,3.3733E-07,3.1688E-07,2.9525E-07,2.6246E-07,2.2851E-07,1.8710E-07,1.4384E-07,1.1027E-07,8.7757E-08,7.3392E-08,6.7131E-08,6.6303E-08,6.6287E-08,6.7646E-08,6.9351E-08,7.0788E-08,7.1929E-08,7.2739E-08,7.1536E-08,6.8091E-08,6.3856E-08,6.0481E-08,5.8345E-08,5.8221E-08,6.1497E-08,6.7660E-08,7.9080E-08,1.0356E-07,1.5148E-07,2.3827E-07,3.8660E-07,5.9639E-07,7.6695E-07,7.8086E-07,5.6439E-07,2.1447E-07,8.6833E-08,5.8682E-08 "HNO4","ppmV",3.5945E-07,3.7887E-07,3.9310E-07,4.0144E-07,4.0714E-07,4.1237E-07,4.1309E-07,4.0806E-07,4.0122E-07,3.8022E-07,3.6528E-07,3.4873E-07,3.3335E-07,3.1873E-07,3.0628E-07,2.9419E-07,2.9272E-07,3.0072E-07,3.1366E-07,3.5039E-07,4.1949E-07,5.2770E-07,6.9530E-07,9.5198E-07,1.3183E-06,1.8456E-06,2.6647E-06,3.9817E-06,6.0712E-06,9.4194E-06,1.4663E-05,2.1378E-05,2.8056E-05,3.3560E-05,3.7713E-05,3.9710E-05,3.8768E-05,3.4780E-05,2.8660E-05,2.2662E-05,1.9871E-05,2.1243E-05,2.2100E-05,2.1869E-05 "SO2","ppmV",5.4355E-05,5.7123E-05,5.8149E-05,5.8463E-05,5.8357E-05,5.8007E-05,5.6671E-05,5.5215E-05,5.3257E-05,5.0326E-05,4.6945E-05,4.2034E-05,3.5603E-05,2.6485E-05,1.8360E-05,1.5769E-05,1.8670E-05,2.1209E-05,2.4521E-05,2.7210E-05,2.7597E-05,2.6593E-05,2.6638E-05,2.5707E-05,2.4190E-05,2.2350E-05,2.0865E-05,2.0084E-05,2.0071E-05,2.0049E-05,1.8998E-05,1.7031E-05,1.4960E-05,1.3414E-05,1.1827E-05,1.0114E-05,8.7051E-06,7.1918E-06,5.6031E-06,4.0243E-06,2.7778E-06,1.8096E-06,1.1213E-06,8.0725E-07 "SULF","ppmV",1.6687E-07,1.7535E-07,1.7721E-07,1.7677E-07,1.7418E-07,1.7016E-07,1.6121E-07,1.4958E-07,1.3712E-07,1.2094E-07,1.0714E-07,8.9856E-08,7.2616E-08,5.4124E-08,3.7047E-08,3.4783E-08,4.5198E-08,5.9581E-08,6.8019E-08,7.5408E-08,7.8893E-08,7.6362E-08,7.7664E-08,7.7982E-08,7.9026E-08,7.8998E-08,7.7740E-08,7.6924E-08,7.9078E-08,8.1761E-08,8.1616E-08,7.8394E-08,7.6351E-08,7.6352E-08,8.1190E-08,9.1297E-08,1.0113E-07,1.0351E-07,9.5228E-08,7.9420E-08,6.2146E-08,4.3982E-08,3.5559E-08,4.4326E-08 "MECO3","ppmV",1.0728E-07,1.0575E-07,1.0350E-07,1.0097E-07,9.8214E-08,9.5239E-08,9.2255E-08,8.9461E-08,8.6931E-08,8.5824E-08,8.4531E-08,8.3610E-08,8.3536E-08,8.5455E-08,8.9451E-08,9.5305E-08,1.0193E-07,1.1141E-07,1.1903E-07,1.2288E-07,1.2148E-07,1.1758E-07,1.1583E-07,1.1178E-07,1.0572E-07,9.9327E-08,9.3837E-08,8.9390E-08,8.7095E-08,8.6498E-08,8.7375E-08,8.8460E-08,8.8587E-08,8.6356E-08,8.0811E-08,7.0465E-08,5.5109E-08,3.8218E-08,2.3127E-08,1.3485E-08,9.4856E-09,8.3730E-09,8.3286E-09,8.9411E-09 "MEO2","ppmV",8.6952E-06,7.4168E-06,7.1223E-06,7.2182E-06,7.4120E-06,7.5927E-06,7.8101E-06,8.1119E-06,8.4784E-06,9.2304E-06,9.2710E-06,9.2215E-06,9.1680E-06,9.2017E-06,9.3323E-06,9.3486E-06,9.0891E-06,8.6307E-06,8.1396E-06,7.6123E-06,7.1224E-06,6.6961E-06,6.3533E-06,6.0576E-06,5.8203E-06,5.5769E-06,5.3195E-06,4.9929E-06,4.6170E-06,4.1958E-06,3.7361E-06,3.2642E-06,2.7926E-06,2.3178E-06,1.8439E-06,1.3884E-06,9.7968E-07,6.6294E-07,4.8645E-07,4.0785E-07,4.1134E-07,5.6500E-07,8.9815E-07,1.4845E-06 "PAN","ppmV",3.8243E-05,3.8806E-05,3.9058E-05,3.9241E-05,3.9404E-05,3.9558E-05,3.9699E-05,3.9825E-05,3.9932E-05,4.0051E-05,4.0231E-05,4.0538E-05,4.1056E-05,4.2247E-05,4.4205E-05,4.7114E-05,5.0964E-05,5.5650E-05,6.1536E-05,6.7639E-05,7.4276E-05,8.1608E-05,9.2102E-05,1.0601E-04,1.2269E-04,1.4159E-04,1.6071E-04,1.7612E-04,1.8694E-04,1.9341E-04,1.9739E-04,1.9928E-04,1.9854E-04,1.9740E-04,1.9772E-04,1.9429E-04,1.8459E-04,1.6792E-04,1.4105E-04,1.0642E-04,8.3079E-05,6.9653E-05,5.7747E-05,5.0248E-05 "CCOOOH","ppmV",4.3532E-06,4.6037E-06,4.7220E-06,4.8154E-06,4.9123E-06,5.0174E-06,5.1454E-06,5.3221E-06,5.5240E-06,5.7742E-06,6.0594E-06,6.4017E-06,6.8504E-06,7.4089E-06,8.1207E-06,8.9700E-06,9.9642E-06,1.1011E-05,1.1947E-05,1.2607E-05,1.3006E-05,1.3244E-05,1.3781E-05,1.4323E-05,1.4790E-05,1.5375E-05,1.6151E-05,1.6960E-05,1.7750E-05,1.8299E-05,1.8608E-05,1.8730E-05,1.8571E-05,1.7914E-05,1.6436E-05,1.3372E-05,8.9318E-06,4.5201E-06,1.6731E-06,6.6461E-07,4.6454E-07,5.1067E-07,6.0664E-07,6.6332E-07 "CCOOH","ppmV",1.3605E-05,1.4369E-05,1.4778E-05,1.5136E-05,1.5550E-05,1.6066E-05,1.6756E-05,1.7737E-05,1.8752E-05,1.9958E-05,2.1399E-05,2.3199E-05,2.5746E-05,2.8780E-05,3.2251E-05,3.5546E-05,3.9636E-05,4.3827E-05,4.7092E-05,4.9042E-05,4.9284E-05,4.8403E-05,4.9417E-05,5.0776E-05,5.1628E-05,5.2657E-05,5.4240E-05,5.5289E-05,5.5611E-05,5.4577E-05,5.3349E-05,5.2136E-05,5.0333E-05,4.7461E-05,4.3246E-05,3.6361E-05,2.6518E-05,1.5820E-05,7.2913E-06,2.8562E-06,1.6716E-06,1.4615E-06,1.5007E-06,1.5252E-06 "RCO3","ppmV",2.3659E-08,2.3085E-08,2.2546E-08,2.2011E-08,2.1440E-08,2.0811E-08,2.0167E-08,1.9548E-08,1.8964E-08,1.8664E-08,1.8298E-08,1.7982E-08,1.7812E-08,1.7870E-08,1.8226E-08,1.8743E-08,1.9467E-08,2.0470E-08,2.1019E-08,2.0904E-08,2.0019E-08,1.8776E-08,1.8012E-08,1.7468E-08,1.6979E-08,1.6888E-08,1.7354E-08,1.8174E-08,1.9212E-08,2.0124E-08,2.1025E-08,2.1745E-08,2.2215E-08,2.2015E-08,2.0764E-08,1.8119E-08,1.4111E-08,9.8102E-09,6.0356E-09,3.5718E-09,2.5525E-09,2.3566E-09,2.1842E-09,2.0781E-09 "CCHO","ppmV",1.3728E-05,1.4250E-05,1.4492E-05,1.4677E-05,1.4853E-05,1.5019E-05,1.5207E-05,1.5424E-05,1.5655E-05,1.5937E-05,1.6236E-05,1.6556E-05,1.6945E-05,1.7426E-05,1.8005E-05,1.8672E-05,1.9464E-05,2.0296E-05,2.0924E-05,2.1141E-05,2.0945E-05,2.0672E-05,2.0758E-05,2.0852E-05,2.0846E-05,2.0985E-05,2.1247E-05,2.1557E-05,2.1832E-05,2.1872E-05,2.1672E-05,2.1341E-05,2.0864E-05,2.0185E-05,1.9041E-05,1.6786E-05,1.3394E-05,9.7315E-06,6.5760E-06,4.1843E-06,2.9366E-06,2.0830E-06,1.2498E-06,8.2197E-07 "PAN2","ppmV",7.8161E-06,7.8926E-06,7.9267E-06,7.9514E-06,7.9714E-06,7.9893E-06,8.0037E-06,8.0170E-06,8.0248E-06,8.0296E-06,8.0331E-06,8.0443E-06,8.0662E-06,8.1595E-06,8.3115E-06,8.5284E-06,8.8270E-06,9.1799E-06,9.5920E-06,9.9217E-06,1.0204E-05,1.0456E-05,1.0834E-05,1.1200E-05,1.1496E-05,1.1804E-05,1.2089E-05,1.2330E-05,1.2486E-05,1.2526E-05,1.2455E-05,1.2331E-05,1.2079E-05,1.1796E-05,1.1567E-05,1.0610E-05,8.6273E-06,5.9131E-06,3.5697E-06,1.9382E-06,1.3862E-06,1.2815E-06,1.0554E-06,8.0686E-07 "HCHO","ppmV",2.5795E-04,2.7193E-04,2.7877E-04,2.8402E-04,2.8898E-04,2.9310E-04,2.9677E-04,2.9930E-04,2.9971E-04,2.9839E-04,2.9638E-04,2.9094E-04,2.8277E-04,2.7236E-04,2.6224E-04,2.5327E-04,2.4583E-04,2.3869E-04,2.2838E-04,2.1720E-04,2.0510E-04,1.9329E-04,1.8246E-04,1.7096E-04,1.5938E-04,1.4647E-04,1.3313E-04,1.1970E-04,1.0676E-04,9.4700E-05,8.4285E-05,7.5296E-05,6.7521E-05,6.1294E-05,5.6442E-05,5.1736E-05,4.6112E-05,3.9140E-05,3.1669E-05,2.4434E-05,1.8438E-05,1.2607E-05,1.0869E-05,1.2368E-05 "COOH","ppmV",2.1265E-04,2.2404E-04,2.2981E-04,2.3473E-04,2.4031E-04,2.4652E-04,2.5496E-04,2.6659E-04,2.7956E-04,2.9738E-04,3.1988E-04,3.5201E-04,3.9474E-04,4.3913E-04,4.7629E-04,5.0333E-04,5.1665E-04,5.1440E-04,5.0434E-04,4.8549E-04,4.6116E-04,4.3809E-04,4.1876E-04,3.9998E-04,3.8369E-04,3.6829E-04,3.5349E-04,3.3531E-04,3.1436E-04,2.8869E-04,2.5990E-04,2.3151E-04,2.0323E-04,1.7232E-04,1.3846E-04,1.0012E-04,6.0030E-05,2.6926E-05,1.0243E-05,5.1951E-06,4.3639E-06,5.6536E-06,1.0213E-05,1.8874E-05 "MEOH","ppmV",4.3044E-05,4.5316E-05,4.6473E-05,4.7484E-05,4.8688E-05,5.0181E-05,5.2232E-05,5.4935E-05,5.7849E-05,6.1863E-05,6.7482E-05,7.5785E-05,8.7228E-05,9.9928E-05,1.1194E-04,1.2064E-04,1.2606E-04,1.2818E-04,1.2763E-04,1.2412E-04,1.1854E-04,1.1284E-04,1.1063E-04,1.1062E-04,1.1165E-04,1.1429E-04,1.1819E-04,1.2073E-04,1.2163E-04,1.2109E-04,1.2019E-04,1.2172E-04,1.2370E-04,1.2435E-04,1.2369E-04,1.1429E-04,9.3141E-05,6.5659E-05,4.0061E-05,2.0939E-05,1.2361E-05,8.3582E-06,6.3053E-06,5.2752E-06 "ROOH","ppmV",3.3632E-05,3.5771E-05,3.6782E-05,3.7583E-05,3.8381E-05,3.9177E-05,4.0063E-05,4.1176E-05,4.2431E-05,4.3944E-05,4.5684E-05,4.7697E-05,5.0173E-05,5.3095E-05,5.6338E-05,5.9061E-05,6.1315E-05,6.2998E-05,6.3443E-05,6.2780E-05,6.0895E-05,5.8909E-05,5.9074E-05,5.9659E-05,6.0377E-05,6.1569E-05,6.2910E-05,6.3691E-05,6.3653E-05,6.2489E-05,6.0339E-05,5.7425E-05,5.3731E-05,4.8765E-05,4.2221E-05,3.2513E-05,2.0341E-05,9.3402E-06,3.0839E-06,9.9336E-07,6.1620E-07,6.5461E-07,7.8324E-07,8.7889E-07 "RNO3","ppmV",2.3676E-05,2.4036E-05,2.4208E-05,2.4344E-05,2.4466E-05,2.4576E-05,2.4672E-05,2.4767E-05,2.4835E-05,2.4896E-05,2.4941E-05,2.4978E-05,2.5001E-05,2.5064E-05,2.5198E-05,2.5449E-05,2.5927E-05,2.6671E-05,2.7363E-05,2.7816E-05,2.8058E-05,2.8237E-05,2.8911E-05,2.9644E-05,3.0076E-05,3.0187E-05,3.0444E-05,3.1182E-05,3.1964E-05,3.2655E-05,3.3497E-05,3.4382E-05,3.5246E-05,3.6589E-05,3.8856E-05,4.1660E-05,4.4362E-05,4.6752E-05,4.6741E-05,4.4856E-05,4.3046E-05,4.2004E-05,4.1511E-05,4.1157E-05 "HCOOH","ppmV",2.4966E-06,2.6518E-06,2.7347E-06,2.8058E-06,2.8843E-06,2.9814E-06,3.1082E-06,3.2898E-06,3.4700E-06,3.6544E-06,3.8641E-06,4.1128E-06,4.4779E-06,4.9307E-06,5.5120E-06,6.1311E-06,7.0820E-06,8.0481E-06,8.9337E-06,9.5902E-06,1.0006E-05,1.0131E-05,1.0618E-05,1.1279E-05,1.1861E-05,1.2517E-05,1.3392E-05,1.4210E-05,1.5011E-05,1.5788E-05,1.6670E-05,1.7636E-05,1.8513E-05,1.9692E-05,2.1685E-05,2.4394E-05,2.7583E-05,3.0310E-05,3.0495E-05,2.7826E-05,2.3997E-05,2.0253E-05,1.7856E-05,1.6978E-05 "CO","ppmV",7.5955E-02,7.5958E-02,7.5961E-02,7.5965E-02,7.5969E-02,7.5988E-02,7.6017E-02,7.6058E-02,7.6102E-02,7.6147E-02,7.6200E-02,7.6266E-02,7.6353E-02,7.6431E-02,7.6525E-02,7.6687E-02,7.6852E-02,7.7101E-02,7.7255E-02,7.7356E-02,7.7436E-02,7.7468E-02,7.7803E-02,7.8197E-02,7.8505E-02,7.8985E-02,7.9548E-02,7.9959E-02,8.0055E-02,7.9829E-02,7.9312E-02,7.8646E-02,7.7667E-02,7.6315E-02,7.4366E-02,7.1075E-02,6.5669E-02,5.8520E-02,5.0335E-02,4.1951E-02,3.6316E-02,3.1798E-02,2.7969E-02,2.6143E-02 "RCHO","ppmV",3.2993E-06,3.4961E-06,3.5816E-06,3.6421E-06,3.6937E-06,3.7373E-06,3.7780E-06,3.8205E-06,3.8638E-06,3.9103E-06,3.9571E-06,3.9946E-06,4.0258E-06,4.0651E-06,4.0938E-06,4.0956E-06,4.0684E-06,4.0258E-06,3.9122E-06,3.7126E-06,3.4436E-06,3.2096E-06,3.0908E-06,2.9745E-06,2.8615E-06,2.7635E-06,2.6466E-06,2.5162E-06,2.3738E-06,2.2062E-06,2.0084E-06,1.8007E-06,1.5834E-06,1.3669E-06,1.1536E-06,9.1078E-07,6.2454E-07,3.5401E-07,1.6197E-07,4.7762E-08,1.5744E-08,8.3471E-09,5.3306E-09,3.0388E-09 "HOCCHO","ppmV",2.1947E-07,2.3231E-07,2.3727E-07,2.4036E-07,2.4289E-07,2.4496E-07,2.4687E-07,2.4890E-07,2.5145E-07,2.5448E-07,2.5788E-07,2.6147E-07,2.6728E-07,2.7541E-07,2.9021E-07,3.1079E-07,3.3973E-07,3.6222E-07,3.7809E-07,3.8340E-07,3.8015E-07,3.7786E-07,3.8321E-07,3.8494E-07,3.9138E-07,4.0096E-07,4.1415E-07,4.4207E-07,4.7788E-07,5.1588E-07,5.4523E-07,5.5663E-07,5.5040E-07,5.3826E-07,5.1920E-07,4.5816E-07,3.4568E-07,1.9973E-07,8.7440E-08,2.0844E-08,3.5412E-09,1.0280E-09,2.4817E-10,5.7738E-11 "GLY","ppmV",2.5537E-07,2.6832E-07,2.7312E-07,2.7567E-07,2.7818E-07,2.7822E-07,2.7667E-07,2.7527E-07,2.7169E-07,2.6570E-07,2.5881E-07,2.5105E-07,2.4226E-07,2.3378E-07,2.2305E-07,2.2601E-07,2.4016E-07,2.5096E-07,2.6625E-07,2.7482E-07,2.7001E-07,2.6222E-07,2.6705E-07,2.6836E-07,2.6581E-07,2.6344E-07,2.6119E-07,2.5676E-07,2.4975E-07,2.3906E-07,2.2757E-07,2.1480E-07,2.0173E-07,1.9014E-07,1.8267E-07,1.7489E-07,1.5826E-07,1.2619E-07,8.1386E-08,3.5810E-08,1.4916E-08,6.2133E-09,3.0519E-09,2.3157E-09 "MGLY","ppmV",6.5773E-08,6.9345E-08,7.0775E-08,7.1633E-08,7.2315E-08,7.2493E-08,7.2139E-08,7.1882E-08,7.1429E-08,7.0383E-08,6.8797E-08,6.6420E-08,6.3719E-08,6.0198E-08,5.6251E-08,5.4195E-08,5.5289E-08,5.5414E-08,5.5552E-08,5.4325E-08,5.1054E-08,4.7860E-08,4.6957E-08,4.4676E-08,4.1922E-08,3.8618E-08,3.4784E-08,3.1015E-08,2.7478E-08,2.3657E-08,2.0046E-08,1.6866E-08,1.4357E-08,1.2528E-08,1.1268E-08,9.9664E-09,7.8799E-09,5.1047E-09,2.5147E-09,7.2007E-10,1.9692E-10,1.2191E-10,7.4357E-11,5.8247E-11 "ALK1","ppmV",4.5334E-04,4.5337E-04,4.5339E-04,4.5340E-04,4.5336E-04,4.5338E-04,4.5335E-04,4.5343E-04,4.5335E-04,4.5298E-04,4.5212E-04,4.5125E-04,4.5044E-04,4.4929E-04,4.4765E-04,4.4637E-04,4.4436E-04,4.4266E-04,4.3946E-04,4.3437E-04,4.2818E-04,4.2223E-04,4.1901E-04,4.1602E-04,4.1290E-04,4.1197E-04,4.1169E-04,4.0892E-04,4.0380E-04,3.9702E-04,3.8862E-04,3.7915E-04,3.6724E-04,3.5368E-04,3.3886E-04,3.1718E-04,2.8553E-04,2.4667E-04,2.0175E-04,1.5201E-04,1.1769E-04,9.8593E-05,8.3365E-05,7.4939E-05 "ETOH","ppmV",4.8736E-07,5.1500E-07,5.2604E-07,5.3333E-07,5.3977E-07,5.4571E-07,5.5212E-07,5.5981E-07,5.6917E-07,5.8084E-07,5.9488E-07,6.1435E-07,6.4601E-07,6.8986E-07,7.5830E-07,8.3772E-07,9.7557E-07,1.1558E-06,1.3056E-06,1.3915E-06,1.4046E-06,1.3780E-06,1.4153E-06,1.4580E-06,1.5025E-06,1.5503E-06,1.6233E-06,1.7221E-06,1.8429E-06,1.9604E-06,2.0679E-06,2.1654E-06,2.2518E-06,2.2951E-06,2.2723E-06,2.0567E-06,1.5895E-06,9.9747E-07,4.8242E-07,1.3382E-07,3.2627E-08,1.3080E-08,6.2428E-09,2.5258E-09 "MEK","ppmV",3.4601E-04,3.5917E-04,3.6581E-04,3.7141E-04,3.7740E-04,3.8415E-04,3.9233E-04,4.0303E-04,4.1387E-04,4.2685E-04,4.4254E-04,4.6221E-04,4.8988E-04,5.2461E-04,5.6601E-04,6.1180E-04,6.6565E-04,7.2121E-04,7.6532E-04,7.9774E-04,8.1469E-04,8.1898E-04,8.3711E-04,8.5548E-04,8.6709E-04,8.8176E-04,9.0017E-04,9.1383E-04,9.2258E-04,9.2300E-04,9.2141E-04,9.1771E-04,9.0921E-04,8.9623E-04,8.7696E-04,8.3148E-04,7.4857E-04,6.2875E-04,4.7065E-04,2.9329E-04,1.8037E-04,1.0206E-04,5.4843E-05,3.7359E-05 "ALK3","ppmV",3.1699E-04,3.1700E-04,3.1696E-04,3.1686E-04,3.1662E-04,3.1630E-04,3.1570E-04,3.1505E-04,3.1417E-04,3.1301E-04,3.1108E-04,3.0878E-04,3.0581E-04,3.0268E-04,2.9842E-04,2.9211E-04,2.8447E-04,2.7781E-04,2.6984E-04,2.5895E-04,2.4739E-04,2.3755E-04,2.3317E-04,2.2859E-04,2.2406E-04,2.2062E-04,2.1587E-04,2.0945E-04,2.0218E-04,1.9353E-04,1.8284E-04,1.7140E-04,1.5827E-04,1.4395E-04,1.2884E-04,1.0733E-04,7.5679E-05,4.2005E-05,1.7650E-05,3.8091E-06,7.6822E-07,4.7984E-07,4.2271E-07,1.1921E-07 "ALK4","ppmV",3.1699E-04,3.1700E-04,3.1696E-04,3.1686E-04,3.1662E-04,3.1630E-04,3.1570E-04,3.1505E-04,3.1417E-04,3.1301E-04,3.1108E-04,3.0878E-04,3.0581E-04,3.0268E-04,2.9842E-04,2.9211E-04,2.8447E-04,2.7781E-04,2.6984E-04,2.5895E-04,2.4739E-04,2.3755E-04,2.3317E-04,2.2859E-04,2.2406E-04,2.2062E-04,2.1587E-04,2.0945E-04,2.0218E-04,1.9353E-04,1.8284E-04,1.7140E-04,1.5827E-04,1.4395E-04,1.2884E-04,1.0733E-04,7.5679E-05,4.2005E-05,1.7650E-05,3.8091E-06,7.6822E-07,4.7984E-07,4.2271E-07,1.1921E-07 "ALK5","ppmV",3.2660E-04,3.2661E-04,3.2657E-04,3.2647E-04,3.2621E-04,3.2589E-04,3.2527E-04,3.2459E-04,3.2369E-04,3.2250E-04,3.2051E-04,3.1814E-04,3.1507E-04,3.1185E-04,3.0747E-04,3.0096E-04,2.9309E-04,2.8623E-04,2.7801E-04,2.6680E-04,2.5488E-04,2.4475E-04,2.4024E-04,2.3551E-04,2.3085E-04,2.2731E-04,2.2241E-04,2.1579E-04,2.0830E-04,1.9939E-04,1.8838E-04,1.7659E-04,1.6307E-04,1.4832E-04,1.3274E-04,1.1058E-04,7.7973E-05,4.3278E-05,1.8185E-05,3.9245E-06,7.9150E-07,4.9438E-07,4.3552E-07,1.2282E-07 "ACETONE","ppmV",5.9216E-05,6.1870E-05,6.3239E-05,6.4407E-05,6.5695E-05,6.7192E-05,6.9070E-05,7.1577E-05,7.4086E-05,7.7074E-05,8.0693E-05,8.5205E-05,9.1684E-05,9.9688E-05,1.0914E-04,1.1944E-04,1.3180E-04,1.4491E-04,1.5562E-04,1.6437E-04,1.7076E-04,1.7483E-04,1.8264E-04,1.9112E-04,1.9822E-04,2.0647E-04,2.1651E-04,2.2494E-04,2.3145E-04,2.3479E-04,2.3728E-04,2.3986E-04,2.4163E-04,2.4209E-04,2.3901E-04,2.2524E-04,1.9697E-04,1.5650E-04,1.0699E-04,5.6294E-05,2.9127E-05,1.3512E-05,5.4206E-06,2.9543E-06 "ALK2","ppmV",5.1761E-05,5.1764E-05,5.1762E-05,5.1756E-05,5.1734E-05,5.1709E-05,5.1653E-05,5.1603E-05,5.1525E-05,5.1411E-05,5.1189E-05,5.0930E-05,5.0606E-05,5.0316E-05,4.9983E-05,4.9562E-05,4.8942E-05,4.8235E-05,4.7404E-05,4.6220E-05,4.5083E-05,4.4101E-05,4.3413E-05,4.2696E-05,4.1952E-05,4.1428E-05,4.0907E-05,4.0149E-05,3.9167E-05,3.7963E-05,3.6557E-05,3.5158E-05,3.3533E-05,3.1786E-05,2.9892E-05,2.6932E-05,2.2339E-05,1.6778E-05,1.1183E-05,6.1300E-06,3.4362E-06,2.1686E-06,1.3609E-06,1.0026E-06 "ACETYLENE","ppmV",6.2570E-05,6.2589E-05,6.2597E-05,6.2597E-05,6.2587E-05,6.2583E-05,6.2564E-05,6.2550E-05,6.2524E-05,6.2470E-05,6.2359E-05,6.2214E-05,6.2001E-05,6.1837E-05,6.1655E-05,6.1470E-05,6.1133E-05,6.0806E-05,6.0334E-05,5.9839E-05,5.9519E-05,5.9482E-05,6.0299E-05,6.1182E-05,6.2029E-05,6.3174E-05,6.4325E-05,6.5117E-05,6.5487E-05,6.5223E-05,6.4265E-05,6.2838E-05,6.0768E-05,5.7983E-05,5.4419E-05,4.8477E-05,3.9092E-05,2.7904E-05,1.7304E-05,8.6931E-06,4.8405E-06,3.0838E-06,1.9205E-06,1.4497E-06 "ETHENE","ppmV",3.1499E-06,3.1508E-06,3.1507E-06,3.1492E-06,3.1453E-06,3.1414E-06,3.1329E-06,3.1243E-06,3.1123E-06,3.0948E-06,3.0688E-06,3.0415E-06,3.0065E-06,2.9794E-06,2.9452E-06,2.8782E-06,2.8076E-06,2.7311E-06,2.6630E-06,2.5544E-06,2.4327E-06,2.3424E-06,2.3043E-06,2.2421E-06,2.1846E-06,2.1350E-06,2.0635E-06,1.9877E-06,1.9278E-06,1.8526E-06,1.7255E-06,1.5894E-06,1.4524E-06,1.3806E-06,1.3642E-06,1.1747E-06,8.1871E-07,3.8334E-07,1.2948E-07,2.7548E-08,6.5739E-09,2.5192E-09,6.7729E-10,1.3926E-10 "OLE1","ppmV",9.6266E-08,9.7047E-08,9.7191E-08,9.5979E-08,9.3711E-08,9.0950E-08,8.6893E-08,8.1452E-08,7.5240E-08,6.6454E-08,5.8769E-08,5.0846E-08,4.2364E-08,3.5126E-08,2.9229E-08,2.3803E-08,1.9281E-08,1.6055E-08,1.3779E-08,1.1999E-08,1.1151E-08,1.0587E-08,1.0169E-08,1.0109E-08,1.0198E-08,1.0169E-08,1.0026E-08,1.0051E-08,1.0170E-08,1.0189E-08,9.5776E-09,8.9621E-09,7.9902E-09,7.0309E-09,5.5266E-09,3.6554E-09,2.2166E-09,1.0121E-09,3.5941E-10,9.2692E-11,2.6681E-11,8.8100E-12,1.5129E-12,1.0786E-13 "PROPENE","ppmV",3.9320E-08,3.9639E-08,3.9698E-08,3.9203E-08,3.8276E-08,3.7148E-08,3.5491E-08,3.3269E-08,3.0732E-08,2.7143E-08,2.4004E-08,2.0768E-08,1.7304E-08,1.4347E-08,1.1938E-08,9.7224E-09,7.8755E-09,6.5576E-09,5.6280E-09,4.9010E-09,4.5548E-09,4.3244E-09,4.1536E-09,4.1290E-09,4.1655E-09,4.1537E-09,4.0953E-09,4.1053E-09,4.1538E-09,4.1619E-09,3.9120E-09,3.6606E-09,3.2636E-09,2.8718E-09,2.2574E-09,1.4931E-09,9.0536E-10,4.1339E-10,1.4680E-10,3.7860E-11,1.0898E-11,3.5984E-12,6.1793E-13,4.4056E-14 "OLE2","ppmV",7.4448E-09,7.6704E-09,7.7114E-09,7.4720E-09,7.1001E-09,6.6934E-09,6.1508E-09,5.4664E-09,4.7453E-09,3.6848E-09,2.9363E-09,2.2695E-09,1.6421E-09,1.1841E-09,8.8328E-10,6.3624E-10,4.4867E-10,3.0836E-10,2.1244E-10,1.4515E-10,1.1594E-10,1.0050E-10,6.9506E-11,6.1462E-11,6.0797E-11,6.0610E-11,5.8952E-11,5.3390E-11,4.6202E-11,3.8847E-11,3.0215E-11,2.6736E-11,2.7139E-11,2.8214E-11,2.5768E-11,2.1311E-11,1.4407E-11,6.8335E-12,1.7422E-12,1.7716E-13,4.5363E-15,6.8463E-17,5.3885E-19,4.3827E-21 "ISOPRENE","ppmV",9.1576E-09,9.2996E-09,9.3197E-09,9.1265E-09,8.8199E-09,8.4653E-09,7.9663E-09,7.3161E-09,6.6104E-09,5.5801E-09,4.7546E-09,3.9610E-09,3.1208E-09,2.4296E-09,1.9089E-09,1.4651E-09,1.0818E-09,7.7693E-10,5.5930E-10,3.8644E-10,3.0726E-10,2.5750E-10,1.9684E-10,1.7474E-10,1.6637E-10,1.5850E-10,1.4666E-10,1.2618E-10,1.0582E-10,8.7325E-11,6.7775E-11,5.5216E-11,4.6821E-11,3.5271E-11,2.2093E-11,1.2586E-11,5.6529E-12,6.9933E-13,7.6732E-14,1.4907E-15,9.2721E-18,2.4331E-19,9.6984E-21,1.1903E-22 "ISOPO2","ppmV",7.7054E-11,8.1346E-11,8.2374E-11,7.9991E-11,7.6413E-11,7.2710E-11,6.8124E-11,6.2302E-11,5.6108E-11,4.6150E-11,3.9625E-11,3.3972E-11,2.8394E-11,2.3312E-11,1.9199E-11,1.5348E-11,1.2156E-11,9.1534E-12,7.1782E-12,5.5981E-12,4.5468E-12,3.9636E-12,3.2952E-12,3.0479E-12,2.9881E-12,2.8836E-12,2.7315E-12,2.4200E-12,2.0555E-12,1.7525E-12,1.4062E-12,1.1821E-12,9.7574E-13,7.3569E-13,4.6393E-13,2.5604E-13,8.3812E-14,1.2181E-14,1.7028E-15,2.8962E-17,3.6540E-19,3.6930E-20,4.5241E-21,1.5416E-22 "MACR","ppmV",1.2026E-09,1.2255E-09,1.2393E-09,1.2432E-09,1.2321E-09,1.2118E-09,1.1754E-09,1.1202E-09,1.0529E-09,9.6099E-10,8.6524E-10,7.5597E-10,6.3451E-10,5.2772E-10,4.3704E-10,3.5024E-10,2.7477E-10,2.1661E-10,1.7911E-10,1.4757E-10,1.3322E-10,1.3098E-10,1.2534E-10,1.2378E-10,1.2503E-10,1.2284E-10,1.1778E-10,1.1832E-10,1.2606E-10,1.3628E-10,1.4380E-10,1.4673E-10,1.3400E-10,1.0895E-10,7.0142E-11,3.5707E-11,1.6789E-11,4.2000E-12,7.0294E-13,4.9412E-14,2.6367E-15,1.6618E-16,9.9292E-18,2.7414E-19 "MVK","ppmV",1.6189E-09,1.6498E-09,1.6684E-09,1.6736E-09,1.6585E-09,1.6313E-09,1.5822E-09,1.5079E-09,1.4173E-09,1.2936E-09,1.1648E-09,1.0176E-09,8.5414E-10,7.1040E-10,5.8832E-10,4.7147E-10,3.6988E-10,2.9159E-10,2.4112E-10,1.9865E-10,1.7934E-10,1.7632E-10,1.6872E-10,1.6663E-10,1.6831E-10,1.6536E-10,1.5854E-10,1.5927E-10,1.6969E-10,1.8346E-10,1.9357E-10,1.9752E-10,1.8039E-10,1.4666E-10,9.4422E-11,4.8067E-11,2.2601E-11,5.6539E-12,9.4626E-13,6.6516E-14,3.5494E-15,2.2371E-16,1.3366E-17,3.6903E-19 "IPRD","ppmV",1.8039E-09,1.8383E-09,1.8590E-09,1.8648E-09,1.8481E-09,1.8177E-09,1.7631E-09,1.6802E-09,1.5793E-09,1.4415E-09,1.2979E-09,1.1339E-09,9.5176E-10,7.9158E-10,6.5556E-10,5.2536E-10,4.1215E-10,3.2492E-10,2.6867E-10,2.2136E-10,1.9983E-10,1.9647E-10,1.8801E-10,1.8568E-10,1.8755E-10,1.8426E-10,1.7666E-10,1.7747E-10,1.8908E-10,2.0442E-10,2.1569E-10,2.2009E-10,2.0100E-10,1.6342E-10,1.0521E-10,5.3560E-11,2.5184E-11,6.3000E-12,1.0544E-12,7.4118E-14,3.9550E-15,2.4928E-16,1.4894E-17,4.1121E-19 "ISOPNB","ppmV",1.1028E-10,1.1640E-10,1.1975E-10,1.2134E-10,1.2143E-10,1.2031E-10,1.1756E-10,1.1255E-10,1.0685E-10,9.9068E-11,9.0871E-11,8.1795E-11,7.2624E-11,6.4995E-11,6.0098E-11,5.8384E-11,6.2711E-11,7.0804E-11,8.1620E-11,9.1084E-11,1.0120E-10,1.1297E-10,1.2984E-10,1.4176E-10,1.6165E-10,1.8677E-10,2.1702E-10,2.7962E-10,3.7587E-10,4.7533E-10,5.4960E-10,5.7145E-10,5.3469E-10,5.2075E-10,4.5323E-10,3.0099E-10,1.7590E-10,7.2450E-11,2.2241E-11,3.3785E-12,5.5605E-13,1.8937E-13,2.0022E-14,2.8581E-15 "ISOPND","ppmV",1.6542E-10,1.7460E-10,1.7963E-10,1.8202E-10,1.8214E-10,1.8047E-10,1.7633E-10,1.6882E-10,1.6028E-10,1.4860E-10,1.3631E-10,1.2269E-10,1.0894E-10,9.7492E-11,9.0147E-11,8.7576E-11,9.4067E-11,1.0621E-10,1.2243E-10,1.3663E-10,1.5180E-10,1.6946E-10,1.9476E-10,2.1265E-10,2.4248E-10,2.8015E-10,3.2553E-10,4.1944E-10,5.6381E-10,7.1299E-10,8.2440E-10,8.5718E-10,8.0203E-10,7.8112E-10,6.7984E-10,4.5148E-10,2.6385E-10,1.0868E-10,3.3361E-11,5.0678E-12,8.3407E-13,2.8405E-13,3.0033E-14,4.2871E-15 "ISOPOOH","ppmV",5.5762E-10,5.8797E-10,6.0137E-10,6.0748E-10,6.0869E-10,6.0613E-10,5.9729E-10,5.7983E-10,5.5235E-10,5.0523E-10,4.6259E-10,4.1608E-10,3.6189E-10,3.1027E-10,2.6280E-10,2.1448E-10,1.7319E-10,1.3859E-10,1.1456E-10,9.4406E-11,8.4172E-11,7.8942E-11,7.0598E-11,6.4859E-11,6.1452E-11,5.8280E-11,5.5473E-11,5.4997E-11,5.7903E-11,6.0079E-11,5.8072E-11,5.2444E-11,4.0619E-11,2.9230E-11,1.7927E-11,8.6503E-12,3.2719E-12,6.9161E-13,6.5073E-14,2.0568E-15,1.1283E-16,1.0176E-17,1.1984E-18,3.3218E-20 "HPALD","ppmV",6.3427E-10,6.3310E-10,6.3050E-10,6.2188E-10,6.0624E-10,5.8704E-10,5.5870E-10,5.2338E-10,4.8274E-10,4.2640E-10,3.6894E-10,3.0635E-10,2.3673E-10,1.7838E-10,1.3337E-10,9.5972E-11,6.8365E-11,4.6540E-11,3.2348E-11,2.2380E-11,1.7051E-11,1.3349E-11,8.8178E-12,6.8985E-12,6.1146E-12,5.5355E-12,4.9366E-12,4.2051E-12,3.5717E-12,3.0224E-12,2.4571E-12,2.0082E-12,1.6690E-12,1.3196E-12,8.9693E-13,5.3797E-13,2.6632E-13,3.7385E-14,6.3382E-15,1.3352E-16,2.0916E-19,3.7162E-22,1.5148E-23,1.4261E-24 "MACO3","ppmV",1.3727E-09,1.3622E-09,1.3469E-09,1.3325E-09,1.3173E-09,1.2998E-09,1.2821E-09,1.2682E-09,1.2575E-09,1.2742E-09,1.2809E-09,1.2803E-09,1.2792E-09,1.2917E-09,1.3064E-09,1.3148E-09,1.3100E-09,1.3013E-09,1.2894E-09,1.2713E-09,1.2320E-09,1.2008E-09,1.1949E-09,1.1849E-09,1.1748E-09,1.1676E-09,1.1556E-09,1.1215E-09,1.0768E-09,1.0296E-09,9.7190E-10,9.1975E-10,8.5384E-10,7.8732E-10,7.3324E-10,6.7953E-10,5.8669E-10,4.5367E-10,2.8894E-10,1.2014E-10,5.0076E-11,2.7873E-11,1.6313E-11,1.2535E-11 "IEPOX","ppmV",1.5706E-09,1.6516E-09,1.6902E-09,1.7167E-09,1.7397E-09,1.7583E-09,1.7706E-09,1.7701E-09,1.7466E-09,1.6979E-09,1.6497E-09,1.5976E-09,1.5348E-09,1.4955E-09,1.6012E-09,1.9115E-09,2.2483E-09,2.7065E-09,3.1337E-09,3.5949E-09,4.1005E-09,4.3920E-09,4.6050E-09,5.3094E-09,6.8147E-09,9.3540E-09,1.3356E-08,1.9389E-08,2.9112E-08,4.3840E-08,6.7940E-08,9.5077E-08,1.2364E-07,1.5220E-07,1.6108E-07,1.4789E-07,1.1741E-07,8.0926E-08,4.0449E-08,9.1397E-09,8.5843E-10,1.8749E-10,3.5957E-11,7.2574E-12 "IEPOXOO","ppmV",7.8325E-12,8.0303E-12,8.1629E-12,8.3125E-12,8.4660E-12,8.6023E-12,8.7355E-12,8.8295E-12,8.8536E-12,8.7534E-12,8.5598E-12,8.2506E-12,7.7778E-12,7.4469E-12,7.9220E-12,9.4917E-12,1.0632E-11,1.1134E-11,1.0875E-11,1.1922E-11,1.4028E-11,1.5119E-11,1.6215E-11,1.8276E-11,2.2412E-11,3.1585E-11,4.7053E-11,6.5808E-11,9.3161E-11,1.3676E-10,2.2047E-10,3.0956E-10,3.7457E-10,4.1613E-10,3.9450E-10,3.3083E-10,2.3247E-10,1.5252E-10,8.2003E-11,1.9282E-11,1.6726E-12,6.3584E-13,1.6247E-13,5.6506E-14 "TERP","ppmV",3.5684E-15,3.5876E-15,3.6035E-15,3.6191E-15,3.6354E-15,3.6528E-15,3.6719E-15,3.6937E-15,3.7207E-15,3.7543E-15,3.7964E-15,3.8502E-15,3.9208E-15,4.0196E-15,4.1534E-15,4.3546E-15,4.6876E-15,5.3003E-15,6.3790E-15,8.4465E-15,1.2509E-14,1.7677E-14,1.9689E-14,2.0987E-14,1.9156E-14,1.7425E-14,1.9689E-14,3.2104E-14,6.1164E-14,1.0995E-13,1.6239E-13,1.9287E-13,1.9867E-13,1.9382E-13,2.7988E-13,3.3981E-13,1.2417E-13,1.3148E-14,1.5194E-15,5.7082E-17,2.7401E-19,1.8774E-21,1.2645E-23,1.0008E-24 "APIN","ppmV",3.8924E-20,3.8852E-20,3.8984E-20,3.9129E-20,3.9167E-20,3.9319E-20,3.9351E-20,3.9563E-20,3.9798E-20,4.0089E-20,4.0705E-20,4.1459E-20,4.2568E-20,4.4116E-20,4.6276E-20,4.9782E-20,5.6579E-20,7.7535E-20,1.0108E-19,2.8072E-19,6.3678E-19,8.8247E-19,1.2040E-18,1.9601E-18,3.3639E-18,5.4607E-18,8.0540E-18,1.0883E-17,1.2813E-17,1.3752E-17,1.0947E-17,3.8618E-18,8.0945E-19,4.9805E-20,4.6766E-21,2.7696E-21,1.6447E-21,2.9187E-22,5.3057E-23,1.9771E-24,9.6012E-25,9.6215E-25,9.5566E-25,9.4302E-25 "TERPNRO2","ppmV",1.8245E-15,1.8437E-15,1.8684E-15,1.8985E-15,1.9299E-15,1.9623E-15,1.9966E-15,2.0345E-15,2.0785E-15,2.1297E-15,2.1867E-15,2.2517E-15,2.3282E-15,2.4203E-15,2.5371E-15,2.6996E-15,2.9549E-15,3.3634E-15,4.1887E-15,5.7255E-15,6.7342E-15,1.0147E-14,7.2313E-15,4.5855E-15,3.1362E-15,2.7232E-15,2.5576E-15,1.7301E-15,1.7519E-15,2.9731E-15,6.3531E-15,1.1620E-14,1.4517E-14,1.4591E-14,1.3309E-14,1.4056E-14,4.3616E-15,3.1541E-16,1.1010E-17,6.6687E-19,1.7228E-20,9.5891E-22,2.3553E-23,9.2221E-25 "MTNO3","ppmV",2.2591E-10,2.3635E-10,2.4034E-10,2.4283E-10,2.4552E-10,2.4737E-10,2.4917E-10,2.5093E-10,2.5255E-10,2.5420E-10,2.5687E-10,2.6276E-10,2.7211E-10,2.7989E-10,2.9075E-10,2.8146E-10,2.6375E-10,2.5463E-10,2.5785E-10,2.5429E-10,2.6775E-10,2.8275E-10,2.9745E-10,3.2376E-10,3.5004E-10,3.6131E-10,3.4919E-10,3.4022E-10,3.4683E-10,3.8225E-10,4.3279E-10,4.4819E-10,4.2853E-10,4.1983E-10,3.8654E-10,2.6398E-10,1.0381E-10,2.2413E-11,2.6081E-12,1.8884E-13,3.2380E-15,4.5989E-17,8.8111E-19,2.4840E-20 "BENZENE","ppmV",2.1689E-05,2.1711E-05,2.1721E-05,2.1726E-05,2.1727E-05,2.1728E-05,2.1722E-05,2.1719E-05,2.1715E-05,2.1702E-05,2.1666E-05,2.1615E-05,2.1513E-05,2.1456E-05,2.1376E-05,2.1305E-05,2.1159E-05,2.1023E-05,2.0877E-05,2.0685E-05,2.0565E-05,2.0547E-05,2.0912E-05,2.1236E-05,2.1528E-05,2.1931E-05,2.2215E-05,2.2293E-05,2.2210E-05,2.1914E-05,2.1287E-05,2.0513E-05,1.9521E-05,1.8313E-05,1.6933E-05,1.4754E-05,1.1364E-05,7.4759E-06,4.1283E-06,1.6825E-06,7.7383E-07,4.4254E-07,2.3596E-07,1.5562E-07 "CRES","ppmV",1.1160E-07,1.1814E-07,1.2094E-07,1.2282E-07,1.2438E-07,1.2577E-07,1.2705E-07,1.2848E-07,1.3013E-07,1.3253E-07,1.3508E-07,1.3807E-07,1.4124E-07,1.4467E-07,1.4798E-07,1.5111E-07,1.5092E-07,1.4991E-07,1.4644E-07,1.4254E-07,1.3946E-07,1.4240E-07,1.5099E-07,1.6150E-07,1.7383E-07,1.9020E-07,2.0719E-07,2.2172E-07,2.3185E-07,2.3745E-07,2.3586E-07,2.2849E-07,2.1502E-07,1.9550E-07,1.6850E-07,1.3109E-07,8.5630E-08,4.4901E-08,1.8996E-08,6.2644E-09,2.5364E-09,1.2379E-09,6.2989E-10,4.4300E-10 "AFG1","ppmV",2.5211E-08,2.5700E-08,2.5901E-08,2.5994E-08,2.5996E-08,2.5969E-08,2.5844E-08,2.5678E-08,2.5458E-08,2.5117E-08,2.4690E-08,2.4219E-08,2.3701E-08,2.3144E-08,2.2396E-08,2.1419E-08,2.0112E-08,1.8904E-08,1.7650E-08,1.6309E-08,1.5143E-08,1.4584E-08,1.4586E-08,1.4723E-08,1.4974E-08,1.5378E-08,1.5602E-08,1.5625E-08,1.5550E-08,1.5309E-08,1.4929E-08,1.4687E-08,1.4365E-08,1.3963E-08,1.3749E-08,1.3349E-08,1.1983E-08,9.1937E-09,5.6476E-09,2.1579E-09,7.6360E-10,2.8235E-10,1.0276E-10,5.9033E-11 "AFG2","ppmV",2.5211E-08,2.5700E-08,2.5901E-08,2.5994E-08,2.5996E-08,2.5969E-08,2.5844E-08,2.5678E-08,2.5458E-08,2.5117E-08,2.4690E-08,2.4219E-08,2.3701E-08,2.3144E-08,2.2396E-08,2.1419E-08,2.0112E-08,1.8904E-08,1.7650E-08,1.6309E-08,1.5143E-08,1.4584E-08,1.4586E-08,1.4723E-08,1.4974E-08,1.5378E-08,1.5602E-08,1.5625E-08,1.5550E-08,1.5309E-08,1.4929E-08,1.4687E-08,1.4365E-08,1.3963E-08,1.3749E-08,1.3349E-08,1.1983E-08,9.1937E-09,5.6476E-09,2.1579E-09,7.6360E-10,2.8235E-10,1.0276E-10,5.9033E-11 "BENZRO2","ppmV",4.1125E-09,3.9884E-09,3.9593E-09,3.9769E-09,4.0071E-09,4.0410E-09,4.0868E-09,4.1525E-09,4.2415E-09,4.4159E-09,4.5229E-09,4.5899E-09,4.6308E-09,4.6847E-09,4.7405E-09,4.7882E-09,4.7643E-09,4.7563E-09,4.7022E-09,4.4503E-09,4.0655E-09,3.7084E-09,3.5568E-09,3.4512E-09,3.3712E-09,3.3097E-09,3.2483E-09,3.1509E-09,3.0322E-09,2.8689E-09,2.6821E-09,2.4911E-09,2.2626E-09,2.0280E-09,1.8105E-09,1.5933E-09,1.3135E-09,9.6494E-10,6.1391E-10,2.8676E-10,1.4746E-10,1.1097E-10,8.2749E-11,6.9798E-11 "ARO1","ppmV",4.0408E-06,4.0453E-06,4.0463E-06,4.0441E-06,4.0378E-06,4.0301E-06,4.0154E-06,3.9980E-06,3.9764E-06,3.9453E-06,3.9047E-06,3.8587E-06,3.7993E-06,3.7523E-06,3.6969E-06,3.6142E-06,3.5179E-06,3.4366E-06,3.3696E-06,3.2480E-06,3.1204E-06,3.0463E-06,3.0588E-06,3.0223E-06,2.9837E-06,2.9359E-06,2.8266E-06,2.7022E-06,2.5969E-06,2.4624E-06,2.2395E-06,1.9931E-06,1.7713E-06,1.5982E-06,1.4274E-06,1.1369E-06,7.4019E-07,3.3115E-07,1.0221E-07,1.6528E-08,1.9982E-09,5.0361E-10,1.3658E-10,3.8048E-11 "TOLRO2","ppmV",3.7487E-09,3.6253E-09,3.5987E-09,3.6153E-09,3.6422E-09,3.6719E-09,3.7108E-09,3.7638E-09,3.8413E-09,3.9708E-09,4.0501E-09,4.0824E-09,4.0838E-09,4.1461E-09,4.2468E-09,4.2310E-09,4.1903E-09,4.1577E-09,4.2302E-09,4.0821E-09,3.4705E-09,2.9005E-09,2.5789E-09,2.3755E-09,2.2658E-09,2.1815E-09,2.0753E-09,1.9671E-09,1.8845E-09,1.7798E-09,1.6298E-09,1.4721E-09,1.2779E-09,1.1058E-09,9.3669E-10,7.4673E-10,5.0696E-10,2.8337E-10,1.2348E-10,2.8039E-11,4.0411E-12,1.2498E-12,4.7962E-13,1.6118E-13 "AFG3","ppmV",7.5984E-09,7.8647E-09,7.9695E-09,7.9967E-09,7.9590E-09,7.8957E-09,7.7683E-09,7.6038E-09,7.4121E-09,7.1329E-09,6.8070E-09,6.4492E-09,6.0846E-09,5.7482E-09,5.4125E-09,4.9824E-09,4.5295E-09,4.1125E-09,3.7842E-09,3.3778E-09,2.9629E-09,2.7114E-09,2.5978E-09,2.5184E-09,2.4623E-09,2.4009E-09,2.2830E-09,2.1323E-09,1.9792E-09,1.8035E-09,1.5922E-09,1.4477E-09,1.3377E-09,1.2441E-09,1.1735E-09,1.0737E-09,8.8018E-10,5.3905E-10,2.3523E-10,4.9634E-11,4.5887E-12,7.9870E-13,1.4668E-13,2.3167E-14 "ARO2MN","ppmV",2.4070E-07,2.4157E-07,2.4176E-07,2.4073E-07,2.3860E-07,2.3596E-07,2.3184E-07,2.2638E-07,2.1988E-07,2.1071E-07,2.0161E-07,1.9196E-07,1.8103E-07,1.7151E-07,1.6249E-07,1.5174E-07,1.4248E-07,1.3601E-07,1.2995E-07,1.2013E-07,1.1016E-07,1.0286E-07,1.0067E-07,9.7397E-08,9.4255E-08,9.0088E-08,8.4206E-08,7.7766E-08,7.1500E-08,6.4211E-08,5.3674E-08,4.4139E-08,3.6438E-08,3.0478E-08,2.4893E-08,1.8577E-08,1.1900E-08,5.0862E-09,1.4888E-09,2.5141E-10,4.3992E-11,1.5381E-11,3.7902E-12,5.6194E-13 "MXYL","ppmV",5.3951E-08,5.4144E-08,5.4187E-08,5.3958E-08,5.3479E-08,5.2888E-08,5.1965E-08,5.0739E-08,4.9283E-08,4.7228E-08,4.5189E-08,4.3026E-08,4.0575E-08,3.8442E-08,3.6420E-08,3.4012E-08,3.1935E-08,3.0484E-08,2.9127E-08,2.6926E-08,2.4692E-08,2.3056E-08,2.2563E-08,2.1830E-08,2.1126E-08,2.0192E-08,1.8874E-08,1.7430E-08,1.6026E-08,1.4392E-08,1.2030E-08,9.8932E-09,8.1671E-09,6.8314E-09,5.5795E-09,4.1639E-09,2.6673E-09,1.1400E-09,3.3369E-10,5.6350E-11,9.8604E-12,3.4475E-12,8.4952E-13,1.2595E-13 "OXYL","ppmV",4.5651E-08,4.5814E-08,4.5851E-08,4.5657E-08,4.5251E-08,4.4752E-08,4.3970E-08,4.2933E-08,4.1701E-08,3.9962E-08,3.8237E-08,3.6407E-08,3.4333E-08,3.2528E-08,3.0817E-08,2.8779E-08,2.7022E-08,2.5794E-08,2.4646E-08,2.2784E-08,2.0893E-08,1.9509E-08,1.9092E-08,1.8472E-08,1.7876E-08,1.7086E-08,1.5970E-08,1.4749E-08,1.3560E-08,1.2178E-08,1.0179E-08,8.3712E-09,6.9106E-09,5.7804E-09,4.7211E-09,3.5233E-09,2.2570E-09,9.6462E-10,2.8236E-10,4.7680E-11,8.3434E-12,2.9171E-12,7.1882E-13,1.0658E-13 "PXYL","ppmV",5.3951E-08,5.4144E-08,5.4187E-08,5.3958E-08,5.3479E-08,5.2888E-08,5.1965E-08,5.0739E-08,4.9283E-08,4.7228E-08,4.5189E-08,4.3026E-08,4.0575E-08,3.8442E-08,3.6420E-08,3.4012E-08,3.1935E-08,3.0484E-08,2.9127E-08,2.6926E-08,2.4692E-08,2.3056E-08,2.2563E-08,2.1830E-08,2.1126E-08,2.0192E-08,1.8874E-08,1.7430E-08,1.6026E-08,1.4392E-08,1.2030E-08,9.8932E-09,8.1671E-09,6.8314E-09,5.5795E-09,4.1639E-09,2.6673E-09,1.1400E-09,3.3369E-10,5.6350E-11,9.8604E-12,3.4475E-12,8.4952E-13,1.2595E-13 "TMBENZ124","ppmV",2.0750E-08,2.0825E-08,2.0841E-08,2.0753E-08,2.0569E-08,2.0342E-08,1.9987E-08,1.9515E-08,1.8955E-08,1.8164E-08,1.7380E-08,1.6549E-08,1.5606E-08,1.4785E-08,1.4008E-08,1.3081E-08,1.2283E-08,1.1725E-08,1.1203E-08,1.0356E-08,9.4968E-09,8.8676E-09,8.6781E-09,8.3963E-09,8.1254E-09,7.7662E-09,7.2592E-09,6.7040E-09,6.1638E-09,5.5355E-09,4.6270E-09,3.8051E-09,3.1412E-09,2.6274E-09,2.1460E-09,1.6015E-09,1.0259E-09,4.3846E-10,1.2834E-10,2.1673E-11,3.7925E-12,1.3259E-12,3.2674E-13,4.8443E-14 "XYLRO2","ppmV",1.1294E-09,1.0991E-09,1.0902E-09,1.0878E-09,1.0837E-09,1.0778E-09,1.0690E-09,1.0574E-09,1.0459E-09,1.0315E-09,1.0059E-09,9.6841E-10,9.2084E-10,8.8704E-10,8.6275E-10,8.1295E-10,7.7155E-10,7.4046E-10,7.4040E-10,7.0368E-10,5.8769E-10,4.6118E-10,3.7188E-10,3.2278E-10,2.9974E-10,2.7854E-10,2.5297E-10,2.2691E-10,2.0443E-10,1.8268E-10,1.5512E-10,1.3077E-10,1.0349E-10,8.1503E-11,6.2751E-11,4.5749E-11,2.8515E-11,1.4498E-11,5.8948E-12,1.3711E-12,2.9833E-13,1.3654E-13,4.3844E-14,7.7603E-15 "NAPHTHAL","ppmV",9.8989E-09,9.9100E-09,9.9129E-09,9.9133E-09,9.9098E-09,9.9066E-09,9.8896E-09,9.8772E-09,9.8492E-09,9.8007E-09,9.7079E-09,9.6182E-09,9.4990E-09,9.4135E-09,9.2822E-09,8.9944E-09,8.7345E-09,8.5500E-09,8.3497E-09,7.9330E-09,7.5143E-09,7.1708E-09,7.1340E-09,6.9926E-09,6.8991E-09,6.7839E-09,6.5591E-09,6.2532E-09,5.9188E-09,5.4669E-09,4.6712E-09,3.8545E-09,3.1529E-09,2.6912E-09,2.0555E-09,1.2752E-09,7.1942E-10,3.1500E-10,1.1232E-10,3.1237E-11,1.1178E-11,4.9113E-12,1.2465E-12,1.8105E-13 "PAHRO2","ppmV",2.5360E-11,2.4556E-11,2.4365E-11,2.4445E-11,2.4587E-11,2.4746E-11,2.4942E-11,2.5232E-11,2.5613E-11,2.6236E-11,2.6561E-11,2.6752E-11,2.6840E-11,2.7247E-11,2.7813E-11,2.7407E-11,2.6991E-11,2.6785E-11,2.7622E-11,2.7066E-11,2.3166E-11,1.8481E-11,1.5050E-11,1.3134E-11,1.2432E-11,1.1863E-11,1.1135E-11,1.0312E-11,9.5998E-12,8.8519E-12,7.7178E-12,6.5620E-12,5.2289E-12,4.2005E-12,3.1950E-12,2.1917E-12,1.3115E-12,6.9355E-13,3.2417E-13,1.0887E-13,4.3598E-14,2.5072E-14,8.3808E-15,1.4486E-15 "BZO","ppmV",4.6734E-09,4.9340E-09,5.0738E-09,5.2150E-09,5.3657E-09,5.5233E-09,5.7128E-09,5.9589E-09,6.2876E-09,6.9660E-09,7.6097E-09,8.2571E-09,9.0709E-09,1.0112E-08,1.1274E-08,1.2431E-08,1.3310E-08,1.4046E-08,1.4741E-08,1.5674E-08,1.5856E-08,1.6031E-08,1.6578E-08,1.7099E-08,1.7826E-08,1.8394E-08,1.8627E-08,1.8642E-08,1.8408E-08,1.8356E-08,1.8784E-08,1.9258E-08,1.8911E-08,1.7810E-08,1.6377E-08,1.4743E-08,1.2780E-08,1.0233E-08,6.8502E-09,3.0170E-09,1.0917E-09,4.4765E-10,2.9191E-10,2.9203E-10 "NPHE","ppmV",2.3425E-07,2.4357E-07,2.4792E-07,2.5103E-07,2.5364E-07,2.5615E-07,2.5821E-07,2.6039E-07,2.6251E-07,2.6429E-07,2.6638E-07,2.6901E-07,2.7153E-07,2.7555E-07,2.7827E-07,2.7949E-07,2.7914E-07,2.8033E-07,2.8360E-07,3.0153E-07,3.3469E-07,3.8456E-07,4.4443E-07,5.0649E-07,5.8413E-07,6.8056E-07,7.8499E-07,8.8469E-07,9.8724E-07,1.0971E-06,1.2044E-06,1.2999E-06,1.3489E-06,1.3524E-06,1.3435E-06,1.2982E-06,1.1558E-06,9.3116E-07,6.1277E-07,2.5760E-07,9.7232E-08,3.8102E-08,1.3364E-08,7.4991E-09 "MAPAN","ppmV",3.0920E-07,3.1110E-07,3.1199E-07,3.1257E-07,3.1284E-07,3.1291E-07,3.1258E-07,3.1184E-07,3.1030E-07,3.0747E-07,3.0351E-07,2.9882E-07,2.9319E-07,2.8786E-07,2.8130E-07,2.7371E-07,2.6686E-07,2.6336E-07,2.6068E-07,2.5462E-07,2.4626E-07,2.3940E-07,2.3644E-07,2.2985E-07,2.2053E-07,2.0920E-07,1.9348E-07,1.7632E-07,1.5959E-07,1.4067E-07,1.1852E-07,9.8422E-08,8.1299E-08,6.9133E-08,5.9931E-08,4.9354E-08,3.6310E-08,2.3416E-08,1.3646E-08,6.1147E-09,3.0228E-09,2.0318E-09,1.0725E-09,5.9353E-10 "CL2","ppmV",3.1848E-06,2.6677E-06,2.4102E-06,2.2170E-06,2.0493E-06,1.9080E-06,1.7606E-06,1.6100E-06,1.4836E-06,1.3416E-06,1.1880E-06,1.0121E-06,7.9241E-07,6.0468E-07,4.6666E-07,3.4868E-07,2.4791E-07,1.7232E-07,1.2027E-07,8.0447E-08,6.2435E-08,5.0828E-08,3.3165E-08,2.6918E-08,2.5112E-08,2.3919E-08,2.2252E-08,1.8923E-08,1.5736E-08,1.2735E-08,9.9306E-09,8.1697E-09,7.2023E-09,6.1694E-09,4.4518E-09,2.6316E-09,1.2957E-09,1.1998E-10,1.0892E-11,2.5351E-12,7.7601E-12,9.1336E-11,7.9534E-10,2.4531E-09 "CL","ppmV",1.8843E-10,1.3969E-10,1.2353E-10,1.1553E-10,1.1089E-10,1.0899E-10,1.0886E-10,1.0821E-10,1.0926E-10,1.0852E-10,1.0576E-10,1.0332E-10,9.2251E-11,9.0735E-11,9.4689E-11,9.1533E-11,7.8429E-11,6.9207E-11,6.3123E-11,6.0639E-11,4.8241E-11,4.1446E-11,3.7541E-11,3.2142E-11,3.1487E-11,3.1442E-11,3.2179E-11,3.3198E-11,3.4556E-11,3.6412E-11,4.1071E-11,4.6090E-11,4.7219E-11,4.8981E-11,5.6154E-11,7.1786E-11,9.8825E-11,1.4906E-10,2.2160E-10,3.1198E-10,3.6166E-10,3.0542E-10,3.1625E-10,3.0533E-10 "CLO","ppmV",1.3283E-07,1.0466E-07,9.5584E-08,9.1686E-08,9.0230E-08,9.0699E-08,9.3417E-08,9.6647E-08,1.0292E-07,1.1146E-07,1.2050E-07,1.2621E-07,1.2727E-07,1.3464E-07,1.4718E-07,1.4788E-07,1.3334E-07,1.2221E-07,1.1028E-07,9.6880E-08,7.3462E-08,6.0973E-08,5.6190E-08,5.0036E-08,5.0038E-08,5.0721E-08,5.3447E-08,5.6678E-08,6.0198E-08,6.4076E-08,7.0631E-08,7.5324E-08,7.1191E-08,6.2469E-08,5.8027E-08,5.9170E-08,6.7326E-08,9.0000E-08,1.2622E-07,1.7831E-07,2.8273E-07,7.3665E-07,2.2681E-06,4.7181E-06 "CLCHO","ppmV",4.9595E-06,4.9899E-06,5.0055E-06,5.0185E-06,5.0308E-06,5.0438E-06,5.0573E-06,5.0739E-06,5.0903E-06,5.1070E-06,5.1230E-06,5.1384E-06,5.1520E-06,5.1809E-06,5.2207E-06,5.2687E-06,5.2977E-06,5.3080E-06,5.3103E-06,5.2814E-06,5.2354E-06,5.2077E-06,5.2365E-06,5.2482E-06,5.2406E-06,5.2472E-06,5.2341E-06,5.1959E-06,5.1289E-06,5.0105E-06,4.8358E-06,4.6341E-06,4.3949E-06,4.1178E-06,3.7891E-06,3.3244E-06,2.6625E-06,1.9341E-06,1.2317E-06,6.4416E-07,3.6598E-07,2.2677E-07,1.3216E-07,9.1725E-08 "HCL","ppmV",1.4001E-04,1.4003E-04,1.3847E-04,1.3679E-04,1.3471E-04,1.3149E-04,1.2755E-04,1.2246E-04,1.1658E-04,1.1020E-04,1.0249E-04,9.3975E-05,8.6557E-05,8.2115E-05,8.1151E-05,7.8217E-05,7.5829E-05,8.1217E-05,8.5392E-05,8.4884E-05,8.1505E-05,7.6030E-05,7.2529E-05,6.6630E-05,6.2027E-05,5.8353E-05,5.6403E-05,5.5783E-05,5.5710E-05,5.6300E-05,5.9520E-05,6.3201E-05,6.1118E-05,5.8580E-05,5.8015E-05,6.2532E-05,6.7257E-05,7.7093E-05,9.0043E-05,1.0216E-04,1.0779E-04,1.0657E-04,9.5006E-05,8.1132E-05 "CLNO2","ppmV",1.3426E-06,1.3416E-06,1.3430E-06,1.3453E-06,1.3335E-06,1.3090E-06,1.2764E-06,1.2294E-06,1.1706E-06,1.0923E-06,1.0109E-06,9.1656E-07,8.1551E-07,7.0072E-07,5.8106E-07,4.6328E-07,3.6665E-07,2.8670E-07,2.1487E-07,1.5927E-07,1.3327E-07,1.1483E-07,1.0672E-07,1.0226E-07,9.6559E-08,9.0085E-08,8.5294E-08,7.8934E-08,7.0885E-08,6.0477E-08,4.7539E-08,3.6601E-08,3.0116E-08,2.4578E-08,1.7645E-08,1.1109E-08,5.8601E-09,1.4096E-09,1.7603E-10,5.5964E-12,2.1417E-14,1.5474E-16,2.4290E-18,4.1856E-20 "CLONO2","ppmV",1.6844E-06,1.7206E-06,1.7215E-06,1.7129E-06,1.6932E-06,1.6697E-06,1.6437E-06,1.6092E-06,1.5720E-06,1.5121E-06,1.4376E-06,1.3294E-06,1.2029E-06,1.0975E-06,1.0140E-06,8.8663E-07,7.8837E-07,7.3137E-07,7.0911E-07,6.7685E-07,6.1126E-07,5.6417E-07,5.3424E-07,5.0338E-07,4.7581E-07,4.4606E-07,4.3150E-07,4.1606E-07,3.9734E-07,3.8646E-07,4.0000E-07,4.0564E-07,3.8071E-07,3.5143E-07,3.5931E-07,4.1341E-07,5.4534E-07,7.7984E-07,1.0939E-06,1.3964E-06,1.9877E-06,4.4431E-06,9.9405E-06,1.3753E-05 "SESQ","ppmV",1.0291E-21,1.0505E-21,1.0549E-21,1.0488E-21,1.0173E-21,9.7724E-22,9.3585E-22,8.9413E-22,8.6027E-22,8.5445E-22,8.6817E-22,8.8141E-22,9.0237E-22,9.3247E-22,9.5750E-22,9.6989E-22,9.6659E-22,9.6455E-22,9.5785E-22,9.4554E-22,9.7628E-22,1.0001E-21,7.6756E-22,7.6844E-22,8.1954E-22,8.7543E-22,9.0393E-22,8.8117E-22,7.7182E-22,6.4036E-22,4.0706E-22,3.2135E-22,2.6878E-22,2.2622E-22,1.8010E-22,1.5230E-22,9.1786E-23,7.7408E-25,1.0346E-25,1.0195E-25,6.1488E-26,4.0527E-27,9.1608E-30,1.0107E-30 "SOAALK","ppmV",3.2902E-06,3.2927E-06,3.2923E-06,3.2862E-06,3.2731E-06,3.2579E-06,3.2318E-06,3.1995E-06,3.1586E-06,3.1004E-06,3.0298E-06,2.9540E-06,2.8624E-06,2.7787E-06,2.6807E-06,2.5322E-06,2.3802E-06,2.2331E-06,2.0941E-06,1.8898E-06,1.7153E-06,1.5687E-06,1.4614E-06,1.3605E-06,1.2615E-06,1.1535E-06,1.0381E-06,9.1650E-07,7.9913E-07,6.7184E-07,5.2908E-07,4.1095E-07,3.2078E-07,2.6131E-07,2.1400E-07,1.5492E-07,9.1077E-08,3.5906E-08,1.0296E-08,2.1715E-09,6.4111E-10,2.5073E-10,6.2314E-11,1.0491E-11 "H2NO3PIJ","ppmV",3.2214E-20,3.2302E-20,3.3507E-20,3.5500E-20,3.6431E-20,3.6904E-20,3.6714E-20,3.5586E-20,3.3849E-20,3.1495E-20,2.9055E-20,2.6019E-20,2.3079E-20,1.9330E-20,1.5957E-20,1.3493E-20,1.1570E-20,8.7498E-21,7.3467E-21,6.7669E-21,6.5215E-21,5.7920E-21,5.2269E-21,4.9839E-21,4.8351E-21,5.2875E-21,5.7034E-21,5.7684E-21,5.9676E-21,5.9546E-21,5.4420E-21,4.6943E-21,4.2766E-21,4.4008E-21,5.1828E-21,6.1186E-21,7.5749E-21,8.4282E-21,6.5585E-21,3.5641E-21,1.2524E-21,7.1552E-22,4.4812E-22,2.7026E-22 "H2NO3PK","ppmV",2.3949E-20,2.4131E-20,2.4846E-20,2.5952E-20,2.6507E-20,2.6779E-20,2.6681E-20,2.6021E-20,2.5108E-20,2.3609E-20,2.2026E-20,2.0007E-20,1.7786E-20,1.4716E-20,1.1615E-20,9.3227E-21,7.4031E-21,5.6597E-21,4.3658E-21,3.6611E-21,3.4015E-21,3.2264E-21,3.1878E-21,3.2211E-21,3.2343E-21,3.2205E-21,3.2063E-21,3.2207E-21,3.1974E-21,3.0606E-21,2.7590E-21,2.3600E-21,2.1802E-21,2.2215E-21,2.3795E-21,2.5630E-21,2.5929E-21,2.3184E-21,1.7921E-21,1.1906E-21,7.3125E-22,5.3589E-22,3.0995E-22,1.6079E-22 "VLVPO1","ppmV",2.7955E-07,2.7459E-07,2.6892E-07,2.6229E-07,2.5480E-07,2.4638E-07,2.3701E-07,2.2764E-07,2.1712E-07,2.0496E-07,1.9199E-07,1.7799E-07,1.6454E-07,1.5078E-07,1.3685E-07,1.2617E-07,1.2008E-07,1.1646E-07,1.0941E-07,9.8521E-08,8.4277E-08,6.9052E-08,5.5626E-08,4.3102E-08,3.2014E-08,2.2979E-08,1.5618E-08,9.8896E-09,5.7276E-09,3.0475E-09,1.4824E-09,6.5735E-10,2.6702E-10,1.0084E-10,3.7649E-11,1.5864E-11,8.6204E-12,5.5502E-12,3.6942E-12,2.4169E-12,1.5758E-12,1.2217E-12,1.2904E-12,2.1679E-12 "VSVPO1","ppmV",1.2367E-07,1.2534E-07,1.2533E-07,1.2437E-07,1.2276E-07,1.2056E-07,1.1769E-07,1.1430E-07,1.1072E-07,1.0605E-07,1.0145E-07,9.6525E-08,9.1134E-08,8.6646E-08,8.3962E-08,8.4156E-08,8.7618E-08,9.2388E-08,9.5026E-08,9.2721E-08,8.3785E-08,7.2349E-08,6.1564E-08,5.2963E-08,4.4686E-08,3.6185E-08,2.8072E-08,2.0257E-08,1.3849E-08,8.9516E-09,5.2835E-09,2.8196E-09,1.3735E-09,6.3929E-10,3.0394E-10,1.6432E-10,1.0651E-10,7.6755E-11,5.6105E-11,4.0281E-11,2.8753E-11,2.3911E-11,2.5923E-11,4.2383E-11 "VSVPO2","ppmV",5.6335E-08,5.9299E-08,6.0694E-08,6.0981E-08,6.0515E-08,5.9500E-08,5.7580E-08,5.4709E-08,5.1183E-08,4.6039E-08,4.1504E-08,3.6731E-08,3.1642E-08,2.7448E-08,2.4564E-08,2.2391E-08,2.2133E-08,2.1783E-08,2.3876E-08,2.4735E-08,2.5719E-08,2.7509E-08,2.8735E-08,3.0320E-08,3.1613E-08,3.1750E-08,3.0364E-08,2.6320E-08,2.1248E-08,1.6875E-08,1.2895E-08,8.7602E-09,5.4861E-09,3.4693E-09,2.3197E-09,1.6844E-09,1.3274E-09,1.0763E-09,8.4084E-10,6.2011E-10,4.4049E-10,3.3584E-10,3.1126E-10,4.3337E-10 "VSVPO3","ppmV",4.7055E-08,4.9941E-08,5.1304E-08,5.1455E-08,5.0794E-08,4.9661E-08,4.7603E-08,4.4565E-08,4.0809E-08,3.5263E-08,3.0639E-08,2.5902E-08,2.0850E-08,1.6487E-08,1.2990E-08,9.9280E-09,7.3907E-09,5.3751E-09,4.0517E-09,2.9879E-09,2.4000E-09,2.1093E-09,1.7883E-09,1.6747E-09,1.6830E-09,1.7728E-09,1.9425E-09,2.2029E-09,2.4028E-09,2.5062E-09,2.5161E-09,2.3831E-09,2.1281E-09,1.8614E-09,1.6502E-09,1.4452E-09,1.2499E-09,1.0501E-09,7.5075E-10,4.6197E-10,2.7494E-10,1.6689E-10,8.9911E-11,5.1560E-11 "VIVPO1","ppmV",1.1971E-07,1.2712E-07,1.3060E-07,1.3093E-07,1.2913E-07,1.2613E-07,1.2075E-07,1.1281E-07,1.0300E-07,8.8524E-08,7.6548E-08,6.4336E-08,5.1345E-08,4.0157E-08,3.1187E-08,2.3309E-08,1.6579E-08,1.1237E-08,7.6670E-09,4.9486E-09,3.5677E-09,2.8144E-09,1.7742E-09,1.3801E-09,1.2816E-09,1.2381E-09,1.2299E-09,1.2426E-09,1.2786E-09,1.3129E-09,1.2832E-09,1.2156E-09,1.1081E-09,1.0755E-09,1.0121E-09,7.9901E-10,6.0746E-10,4.4719E-10,2.3661E-10,8.7199E-11,3.1574E-11,1.2463E-11,2.7118E-12,2.8443E-13 "VLVOO1","ppmV",1.5069E-07,1.4599E-07,1.4135E-07,1.3634E-07,1.3091E-07,1.2492E-07,1.1843E-07,1.1150E-07,1.0403E-07,9.6136E-08,8.8130E-08,7.9968E-08,7.1840E-08,6.3883E-08,5.6413E-08,5.0539E-08,4.5756E-08,4.1372E-08,3.7022E-08,3.2158E-08,2.5976E-08,1.9739E-08,1.4098E-08,9.4759E-09,5.9634E-09,3.5977E-09,2.0997E-09,1.1725E-09,6.1800E-10,2.9943E-10,1.3217E-10,5.3279E-11,1.9475E-11,6.4347E-12,1.9529E-12,6.1486E-13,2.5708E-13,1.3974E-13,8.4263E-14,5.0222E-14,2.8937E-14,1.5022E-14,1.4670E-14,3.9369E-14 "VLVOO2","ppmV",1.6734E-07,1.6541E-07,1.6266E-07,1.5938E-07,1.5570E-07,1.5144E-07,1.4668E-07,1.4190E-07,1.3635E-07,1.2995E-07,1.2305E-07,1.1543E-07,1.0819E-07,1.0021E-07,9.1506E-08,8.4633E-08,8.0068E-08,7.6653E-08,7.1480E-08,6.3778E-08,5.3725E-08,4.3290E-08,3.3933E-08,2.5491E-08,1.8319E-08,1.2831E-08,8.5771E-09,5.4230E-09,3.1818E-09,1.7155E-09,8.4384E-10,3.7860E-10,1.5454E-10,5.8189E-11,2.0999E-11,8.2493E-12,4.2151E-12,2.6472E-12,1.7664E-12,1.1700E-12,7.7636E-13,6.0708E-13,6.4542E-13,1.0914E-12 "VSVOO1","ppmV",8.1698E-09,8.3944E-09,8.4778E-09,8.5238E-09,8.5703E-09,8.5952E-09,8.6074E-09,8.6194E-09,8.5729E-09,8.4733E-09,8.3269E-09,8.0902E-09,7.7953E-09,7.3198E-09,6.7923E-09,6.3620E-09,6.0613E-09,5.8005E-09,5.4223E-09,4.8747E-09,4.1473E-09,3.3928E-09,2.6384E-09,1.9856E-09,1.4470E-09,1.0280E-09,7.1506E-10,4.8382E-10,3.1764E-10,2.0269E-10,1.2352E-10,7.0534E-11,3.6831E-11,1.7630E-11,7.7682E-12,3.3566E-12,1.6507E-12,9.7324E-13,6.4727E-13,4.5635E-13,3.2885E-13,2.7032E-13,2.9452E-13,4.9153E-13 "VSVOO2","ppmV",2.5130E-08,2.6233E-08,2.6750E-08,2.7123E-08,2.7494E-08,2.7798E-08,2.8079E-08,2.8352E-08,2.8425E-08,2.8282E-08,2.7910E-08,2.7167E-08,2.6113E-08,2.4387E-08,2.2509E-08,2.0988E-08,1.9862E-08,1.8841E-08,1.7455E-08,1.5533E-08,1.3120E-08,1.0668E-08,8.1997E-09,6.1369E-09,4.5066E-09,3.2623E-09,2.3510E-09,1.6609E-09,1.1505E-09,7.9071E-10,5.4426E-10,3.7203E-10,2.5493E-10,1.7366E-10,1.1459E-10,7.2703E-11,4.6561E-11,3.2299E-11,2.3664E-11,1.8376E-11,1.4295E-11,1.1541E-11,1.1556E-11,1.7027E-11 "VSVOO3","ppmV",4.1746E-08,4.3688E-08,4.4622E-08,4.5314E-08,4.6007E-08,4.6600E-08,4.7175E-08,4.7770E-08,4.8011E-08,4.7875E-08,4.7335E-08,4.6183E-08,4.4537E-08,4.1711E-08,3.8558E-08,3.6035E-08,3.4169E-08,3.2495E-08,3.0124E-08,2.6757E-08,2.2602E-08,1.8367E-08,1.4104E-08,1.0525E-08,7.6546E-09,5.4877E-09,3.8946E-09,2.7178E-09,1.8964E-09,1.3388E-09,9.7168E-10,7.2623E-10,5.4705E-10,4.1172E-10,3.0211E-10,2.0931E-10,1.2633E-10,6.8487E-11,3.8847E-11,2.8151E-11,2.5152E-11,2.0025E-11,1.2591E-11,8.1505E-12 "PCVOC","ppmV",4.9809E-15,5.2824E-15,5.3892E-15,5.4491E-15,5.4907E-15,5.5230E-15,5.5512E-15,5.5783E-15,5.6060E-15,5.6358E-15,5.6692E-15,5.7098E-15,5.7597E-15,5.8344E-15,5.9542E-15,6.1542E-15,6.5551E-15,7.0948E-15,7.8255E-15,8.5945E-15,9.0104E-15,9.2048E-15,9.6979E-15,1.0158E-14,1.0744E-14,1.1224E-14,1.1675E-14,1.2132E-14,1.2885E-14,1.3159E-14,1.3940E-14,1.4285E-14,1.3911E-14,1.2792E-14,1.0844E-14,9.3133E-15,8.1628E-15,7.9231E-15,7.4709E-15,6.1903E-15,3.6407E-15,1.7913E-15,7.1677E-16,3.3191E-16 "HCHO_PRIMARY","ppmV",2.5012E-10,2.6717E-10,2.7332E-10,2.7687E-10,2.7977E-10,2.8206E-10,2.8434E-10,2.8667E-10,2.8911E-10,2.9243E-10,2.9694E-10,3.0568E-10,3.2161E-10,3.3363E-10,3.3087E-10,2.9404E-10,2.8284E-10,2.5577E-10,2.1545E-10,1.9225E-10,1.6368E-10,1.6817E-10,1.4965E-10,1.2709E-10,1.0416E-10,8.0847E-11,6.6566E-11,6.4618E-11,6.6754E-11,7.0054E-11,7.2839E-11,7.2792E-11,6.1865E-11,4.5036E-11,3.1081E-11,2.4660E-11,1.4797E-11,2.9602E-12,4.4945E-13,4.2856E-14,1.7850E-15,6.0964E-17,1.7957E-18,8.3286E-20 "CCHO_PRIMARY","ppmV",2.3893E-08,2.4849E-08,2.5181E-08,2.5365E-08,2.5499E-08,2.5602E-08,2.5700E-08,2.5799E-08,2.5908E-08,2.6068E-08,2.6245E-08,2.6463E-08,2.6810E-08,2.7395E-08,2.8164E-08,2.8614E-08,2.9713E-08,3.0117E-08,3.0398E-08,2.8338E-08,2.6521E-08,2.4351E-08,2.2033E-08,1.8824E-08,1.5931E-08,1.3898E-08,1.2790E-08,1.2199E-08,1.1966E-08,1.1769E-08,1.0900E-08,9.4036E-09,7.3057E-09,6.5700E-09,6.9276E-09,5.5587E-09,2.9329E-09,7.9726E-10,1.5177E-10,1.4108E-11,1.1424E-12,1.5084E-13,2.7598E-14,2.6340E-15 "BUTADIENE13","ppmV",2.5111E-12,2.5137E-12,2.5150E-12,2.5160E-12,2.5166E-12,2.5172E-12,2.5155E-12,2.5142E-12,2.5094E-12,2.5063E-12,2.4977E-12,2.4856E-12,2.4740E-12,2.4601E-12,2.4391E-12,2.3995E-12,2.3210E-12,2.2714E-12,2.3117E-12,2.4808E-12,2.1966E-12,1.6446E-12,1.2773E-12,1.1325E-12,1.0548E-12,8.2465E-13,5.4577E-13,3.7846E-13,2.7977E-13,2.0334E-13,8.4821E-14,2.9176E-14,2.0918E-14,3.4013E-14,4.1583E-14,4.6071E-14,2.1185E-14,1.9374E-15,5.5738E-17,2.7811E-18,2.5383E-19,2.3717E-20,2.0785E-21,2.0317E-22 "ACROLEIN","ppmV",2.4148E-10,2.4720E-10,2.4935E-10,2.5060E-10,2.5162E-10,2.5245E-10,2.5307E-10,2.5392E-10,2.5466E-10,2.5575E-10,2.5747E-10,2.6114E-10,2.6836E-10,2.7051E-10,2.6836E-10,2.5378E-10,2.4414E-10,2.3186E-10,2.1428E-10,1.9860E-10,1.8256E-10,1.6221E-10,1.4876E-10,1.4142E-10,1.3317E-10,1.1689E-10,1.0011E-10,8.7193E-11,7.9313E-11,7.4571E-11,6.9720E-11,5.1645E-11,2.9515E-11,1.7369E-11,1.0350E-11,7.8364E-12,4.6182E-12,1.6456E-12,3.8900E-13,8.7551E-14,1.8023E-14,2.3809E-15,2.5981E-16,3.5263E-17 "ACRO_PRIMARY","ppmV",7.7055E-11,7.8894E-11,7.9588E-11,7.9992E-11,8.0320E-11,8.0588E-11,8.0786E-11,8.1061E-11,8.1293E-11,8.1638E-11,8.2166E-11,8.3334E-11,8.5648E-11,8.6353E-11,8.5708E-11,8.1054E-11,7.8490E-11,7.5032E-11,6.9540E-11,6.4665E-11,5.9293E-11,5.2833E-11,4.8792E-11,4.6659E-11,4.4117E-11,3.9043E-11,3.3641E-11,2.9203E-11,2.6380E-11,2.4718E-11,2.3478E-11,1.7964E-11,1.0200E-11,5.7855E-12,3.2005E-12,2.2150E-12,1.2472E-12,4.3914E-13,1.1129E-13,2.7957E-14,6.0052E-15,8.2158E-16,8.8303E-17,1.1434E-17 "TOLUENE","ppmV",4.0613E-20,4.0370E-20,4.0345E-20,4.0307E-20,4.0116E-20,3.9815E-20,3.9572E-20,3.9462E-20,3.9282E-20,3.9078E-20,3.9080E-20,3.9154E-20,3.9347E-20,3.9521E-20,3.9472E-20,3.9176E-20,3.8542E-20,3.7610E-20,3.6460E-20,3.5073E-20,3.3990E-20,3.3285E-20,3.1041E-20,3.0175E-20,3.0385E-20,3.0854E-20,3.1246E-20,3.1134E-20,3.0530E-20,2.9781E-20,2.8752E-20,2.7842E-20,2.6836E-20,2.5305E-20,2.2734E-20,1.8803E-20,1.3727E-20,7.1274E-21,2.3971E-21,2.9333E-22,3.2142E-23,8.7278E-24,2.7838E-24,1.3401E-24 "SVAVB1","ppmV",1.3030E-07,1.3052E-07,1.3034E-07,1.3003E-07,1.2970E-07,1.2922E-07,1.2870E-07,1.2808E-07,1.2738E-07,1.2671E-07,1.2610E-07,1.2538E-07,1.2454E-07,1.2376E-07,1.2286E-07,1.2214E-07,1.2148E-07,1.2071E-07,1.1991E-07,1.1933E-07,1.1827E-07,1.1693E-07,1.1537E-07,1.1322E-07,1.1061E-07,1.0719E-07,1.0242E-07,9.7780E-08,9.2701E-08,8.6392E-08,7.9820E-08,7.2757E-08,6.5499E-08,5.7488E-08,4.9446E-08,4.1159E-08,3.2789E-08,2.6179E-08,2.2139E-08,2.0516E-08,2.0727E-08,2.3493E-08,2.8570E-08,3.9647E-08 "SVAVB2","ppmV",3.4320E-08,3.5834E-08,3.6530E-08,3.7039E-08,3.7483E-08,3.7820E-08,3.8074E-08,3.8238E-08,3.8305E-08,3.8293E-08,3.8199E-08,3.7987E-08,3.7851E-08,3.7707E-08,3.7905E-08,3.8720E-08,4.0124E-08,4.1793E-08,4.2659E-08,4.3370E-08,4.3423E-08,4.3355E-08,4.3577E-08,4.3630E-08,4.3559E-08,4.3393E-08,4.2843E-08,4.3115E-08,4.4130E-08,4.5072E-08,4.6308E-08,4.7181E-08,4.6817E-08,4.6614E-08,4.7098E-08,4.6830E-08,4.4028E-08,3.7423E-08,2.5344E-08,1.1768E-08,4.6880E-09,1.9022E-09,8.4091E-10,6.5236E-10 "SVAVB3","ppmV",2.1844E-07,2.2951E-07,2.3462E-07,2.3846E-07,2.4223E-07,2.4578E-07,2.4959E-07,2.5420E-07,2.5921E-07,2.6503E-07,2.7248E-07,2.8124E-07,2.9403E-07,3.0981E-07,3.3512E-07,3.7233E-07,4.3026E-07,4.8682E-07,5.3076E-07,5.6040E-07,5.7093E-07,5.6729E-07,5.6725E-07,5.6606E-07,5.6247E-07,5.5401E-07,5.4685E-07,5.4543E-07,5.5034E-07,5.5706E-07,5.5893E-07,5.4909E-07,5.2450E-07,4.9871E-07,4.7445E-07,4.4586E-07,4.0508E-07,3.4976E-07,2.5770E-07,1.4428E-07,7.9035E-08,4.5718E-08,2.7208E-08,2.2529E-08 "SVAVB4","ppmV",1.0475E-06,1.1037E-06,1.1324E-06,1.1557E-06,1.1806E-06,1.2091E-06,1.2447E-06,1.2948E-06,1.3455E-06,1.4007E-06,1.4696E-06,1.5499E-06,1.6654E-06,1.8088E-06,2.0116E-06,2.2631E-06,2.6666E-06,3.0403E-06,3.3613E-06,3.5723E-06,3.6682E-06,3.6379E-06,3.6383E-06,3.6575E-06,3.6488E-06,3.6234E-06,3.6278E-06,3.6482E-06,3.6997E-06,3.7581E-06,3.7871E-06,3.7604E-06,3.6580E-06,3.5706E-06,3.5392E-06,3.5510E-06,3.6378E-06,3.7608E-06,3.6835E-06,3.3092E-06,2.9019E-06,2.5946E-06,2.2940E-06,2.1393E-06 "ASO4J","ug m-3",1.1382E+00,1.1327E+00,1.1287E+00,1.1242E+00,1.1190E+00,1.1120E+00,1.1033E+00,1.0912E+00,1.0782E+00,1.0585E+00,1.0330E+00,1.0041E+00,9.7205E-01,9.2947E-01,8.8373E-01,8.3808E-01,8.0560E-01,7.7749E-01,7.4420E-01,7.0397E-01,6.6340E-01,6.1484E-01,5.5662E-01,5.1088E-01,4.7249E-01,4.3772E-01,4.0770E-01,3.7737E-01,3.5330E-01,3.3039E-01,3.0285E-01,2.6988E-01,2.3432E-01,2.0173E-01,1.7256E-01,1.4670E-01,1.2626E-01,1.0900E-01,9.3371E-02,7.8086E-02,6.4168E-02,5.3016E-02,4.1057E-02,2.9179E-02 "ASO4I","ug m-3",1.1517E-02,1.1546E-02,1.1537E-02,1.1511E-02,1.1471E-02,1.1411E-02,1.1304E-02,1.1287E-02,1.1250E-02,1.1219E-02,1.1246E-02,1.1141E-02,1.1055E-02,1.0888E-02,1.0998E-02,1.1584E-02,1.2960E-02,1.4296E-02,1.4982E-02,1.4922E-02,1.4432E-02,1.3386E-02,1.2380E-02,1.1334E-02,1.0241E-02,9.4226E-03,8.8491E-03,8.1943E-03,7.6738E-03,7.0716E-03,6.2827E-03,5.3855E-03,4.4888E-03,3.7348E-03,2.9597E-03,2.1297E-03,1.3619E-03,7.9038E-04,4.5414E-04,2.5651E-04,1.4850E-04,7.7908E-05,3.9329E-05,2.4222E-05 "ANH4J","ug m-3",5.2384E-02,5.3795E-02,5.4744E-02,5.5364E-02,5.6225E-02,5.7266E-02,5.8101E-02,5.9205E-02,5.9557E-02,5.9730E-02,5.9410E-02,6.0231E-02,6.2947E-02,6.6495E-02,7.0935E-02,7.5534E-02,7.9897E-02,8.4637E-02,8.5366E-02,8.3819E-02,8.2218E-02,7.8178E-02,7.3050E-02,6.8798E-02,6.5520E-02,6.3769E-02,6.4509E-02,6.6795E-02,7.0771E-02,7.2964E-02,7.1284E-02,6.6727E-02,6.1501E-02,5.7146E-02,5.3278E-02,4.9808E-02,4.7065E-02,4.3801E-02,3.8078E-02,3.2277E-02,2.5561E-02,2.0279E-02,1.5346E-02,1.0758E-02 "ANH4I","ug m-3",3.0454E-03,3.1264E-03,3.1619E-03,3.1826E-03,3.2101E-03,3.2419E-03,3.2727E-03,3.3980E-03,3.4965E-03,3.5970E-03,3.7746E-03,3.9358E-03,4.1802E-03,4.5501E-03,5.0791E-03,5.8677E-03,6.9141E-03,7.8925E-03,8.5792E-03,8.8472E-03,8.8801E-03,8.5705E-03,8.2530E-03,8.1213E-03,8.0835E-03,8.3538E-03,9.2432E-03,1.0480E-02,1.2138E-02,1.3316E-02,1.3377E-02,1.2742E-02,1.2018E-02,1.1388E-02,1.0355E-02,8.9293E-03,7.3292E-03,6.2911E-03,5.7576E-03,3.4869E-03,1.3859E-03,7.0249E-04,4.4856E-04,3.2266E-04 "ANO3J","ug m-3",9.2350E-02,9.1651E-02,9.1148E-02,9.0536E-02,8.9583E-02,8.8432E-02,8.6593E-02,8.4895E-02,8.2624E-02,7.9670E-02,7.4572E-02,6.8464E-02,6.1315E-02,5.4633E-02,4.7162E-02,3.9453E-02,3.3081E-02,2.7565E-02,2.3787E-02,2.3360E-02,2.5953E-02,2.8951E-02,3.2963E-02,3.8135E-02,4.3135E-02,4.9702E-02,5.9633E-02,7.2417E-02,8.8949E-02,1.0491E-01,1.0864E-01,1.0534E-01,9.9642E-02,9.5378E-02,9.1700E-02,8.8799E-02,8.8861E-02,8.9061E-02,8.9880E-02,8.8122E-02,8.0131E-02,6.9027E-02,5.4429E-02,4.4660E-02 "ANO3I","ug m-3",3.7081E-03,3.6921E-03,3.6833E-03,3.6727E-03,3.6563E-03,3.6361E-03,3.6085E-03,3.5718E-03,3.5267E-03,3.4603E-03,3.3293E-03,3.1790E-03,3.0325E-03,2.8732E-03,2.7393E-03,2.6384E-03,2.5452E-03,2.5027E-03,2.5806E-03,2.8800E-03,3.5438E-03,4.1009E-03,4.5612E-03,5.2613E-03,6.3063E-03,7.9127E-03,1.0324E-02,1.3565E-02,1.8377E-02,2.2866E-02,2.4027E-02,2.3618E-02,2.3336E-02,2.4064E-02,2.5099E-02,2.6170E-02,2.7959E-02,3.1779E-02,3.8151E-02,3.8920E-02,3.0937E-02,2.1951E-02,1.2565E-02,6.7562E-03 "AISO1J","ug m-3",2.4740E-05,2.6236E-05,2.7112E-05,2.7954E-05,2.8920E-05,3.0455E-05,3.2948E-05,3.7541E-05,4.2235E-05,4.6927E-05,5.2959E-05,5.9000E-05,7.0919E-05,8.9097E-05,1.1448E-04,1.4458E-04,2.1084E-04,2.7393E-04,2.6797E-04,2.5652E-04,2.2358E-04,1.6929E-04,1.6640E-04,1.7590E-04,1.8426E-04,1.9750E-04,2.3138E-04,2.7477E-04,3.2887E-04,3.7860E-04,4.3644E-04,5.1566E-04,5.9214E-04,6.5515E-04,6.9040E-04,6.7703E-04,6.2452E-04,4.9438E-04,2.8909E-04,9.3548E-05,2.1491E-05,4.6673E-06,9.7492E-07,2.6421E-07 "AISO2J","ug m-3",2.7661E-06,2.8746E-06,2.9318E-06,2.9790E-06,3.0273E-06,3.0779E-06,3.1432E-06,3.2346E-06,3.3365E-06,3.4746E-06,3.6769E-06,4.0405E-06,5.0617E-06,5.9131E-06,6.3756E-06,6.6978E-06,7.2669E-06,7.7233E-06,7.9611E-06,7.9581E-06,7.5975E-06,6.8302E-06,6.5821E-06,6.9596E-06,7.4673E-06,8.3184E-06,9.6086E-06,1.1085E-05,1.3202E-05,1.5652E-05,1.8371E-05,2.0161E-05,2.0290E-05,1.9889E-05,1.9382E-05,1.8119E-05,1.5118E-05,1.0682E-05,5.9430E-06,1.5981E-06,2.1259E-07,2.0070E-08,1.5500E-09,1.0218E-10 "ASQTJ","ug m-3",2.6057E-05,2.7455E-05,2.8243E-05,2.8955E-05,2.9780E-05,3.0712E-05,3.1986E-05,3.4377E-05,3.7285E-05,4.1003E-05,4.6394E-05,5.2040E-05,6.1578E-05,7.5350E-05,9.5824E-05,1.1353E-04,1.6756E-04,2.1815E-04,2.1307E-04,1.8468E-04,1.4855E-04,1.0682E-04,9.3786E-05,9.2725E-05,9.5087E-05,1.0051E-04,1.1529E-04,1.3229E-04,1.5188E-04,1.6838E-04,1.8455E-04,2.0020E-04,2.0786E-04,2.1300E-04,2.1297E-04,2.0081E-04,1.6764E-04,1.1613E-04,5.7297E-05,1.3538E-05,1.8184E-06,1.8211E-07,1.7608E-08,2.4801E-09 "AORGCJ","ug m-3",2.4200E-03,2.4194E-03,2.4163E-03,2.4118E-03,2.4071E-03,2.4079E-03,2.4148E-03,2.4276E-03,2.4398E-03,2.4359E-03,2.4285E-03,2.4302E-03,2.4602E-03,2.4839E-03,2.5161E-03,2.5677E-03,2.6533E-03,2.7307E-03,2.7476E-03,2.7267E-03,2.6404E-03,2.5083E-03,2.3874E-03,2.2963E-03,2.2136E-03,2.1229E-03,2.0566E-03,1.9700E-03,1.8999E-03,1.8122E-03,1.7139E-03,1.6141E-03,1.5003E-03,1.4035E-03,1.3288E-03,1.2486E-03,1.1642E-03,1.0902E-03,9.6226E-04,7.7475E-04,6.1298E-04,4.7457E-04,3.4776E-04,2.4206E-04 "AECJ","ug m-3",2.2178E-02,2.2171E-02,2.2139E-02,2.2097E-02,2.2055E-02,2.2075E-02,2.2169E-02,2.2433E-02,2.2676E-02,2.2628E-02,2.2437E-02,2.2248E-02,2.2129E-02,2.1775E-02,2.1752E-02,2.2262E-02,2.3402E-02,2.4391E-02,2.4766E-02,2.4166E-02,2.2836E-02,2.0664E-02,1.9072E-02,1.7860E-02,1.6686E-02,1.5683E-02,1.5201E-02,1.4689E-02,1.4175E-02,1.3407E-02,1.2458E-02,1.1457E-02,1.0196E-02,8.7521E-03,7.3123E-03,6.0159E-03,4.9169E-03,3.8781E-03,3.0428E-03,2.3704E-03,1.8440E-03,1.4895E-03,1.1293E-03,7.8632E-04 "AECI","ug m-3",5.8546E-04,5.8696E-04,5.8653E-04,5.8504E-04,5.8282E-04,5.7990E-04,5.7608E-04,5.8200E-04,5.8907E-04,5.9455E-04,5.9740E-04,5.9442E-04,5.9254E-04,5.8327E-04,5.8105E-04,6.0427E-04,6.5238E-04,7.0015E-04,7.0789E-04,6.8591E-04,6.3564E-04,5.6465E-04,5.4358E-04,5.3856E-04,5.3481E-04,5.4764E-04,5.6656E-04,5.5915E-04,5.4083E-04,4.9664E-04,4.4695E-04,4.0138E-04,3.5181E-04,3.0468E-04,2.5165E-04,1.8617E-04,1.1017E-04,4.7690E-05,1.4324E-05,2.6696E-06,6.8031E-07,3.4806E-07,1.4792E-07,5.1840E-08 "AOTHRJ","ug m-3",2.1059E-01,2.1049E-01,2.1019E-01,2.0979E-01,2.0945E-01,2.0940E-01,2.0967E-01,2.1146E-01,2.1368E-01,2.1487E-01,2.1625E-01,2.1743E-01,2.1998E-01,2.2378E-01,2.3565E-01,2.5326E-01,2.9056E-01,3.2674E-01,3.6398E-01,3.8704E-01,3.9870E-01,3.9505E-01,3.9047E-01,3.9031E-01,3.8555E-01,3.6597E-01,3.4192E-01,3.1270E-01,2.8760E-01,2.7310E-01,2.5619E-01,2.2837E-01,1.9404E-01,1.5935E-01,1.2619E-01,9.6685E-02,7.1290E-02,5.3099E-02,4.1162E-02,3.1179E-02,2.3365E-02,1.9161E-02,1.4347E-02,9.6274E-03 "AOTHRI","ug m-3",2.5640E-03,2.5718E-03,2.5715E-03,2.5680E-03,2.5622E-03,2.5543E-03,2.5439E-03,2.5329E-03,2.5218E-03,2.5068E-03,2.4951E-03,2.4872E-03,2.4860E-03,2.4797E-03,2.4729E-03,2.4769E-03,2.4897E-03,2.5060E-03,2.4377E-03,2.3171E-03,2.1715E-03,2.0167E-03,1.9114E-03,1.8145E-03,1.6996E-03,1.6100E-03,1.5265E-03,1.4237E-03,1.3282E-03,1.2128E-03,1.0843E-03,9.5687E-04,8.1781E-04,6.8886E-04,5.4789E-04,3.7545E-04,2.0337E-04,8.6063E-05,2.9141E-05,6.6883E-06,2.3820E-06,1.2266E-06,5.5907E-07,1.9979E-07 "AFEJ","ug m-3",1.5944E-02,1.5937E-02,1.5913E-02,1.5882E-02,1.5854E-02,1.5845E-02,1.5858E-02,1.5979E-02,1.6129E-02,1.6204E-02,1.6292E-02,1.6363E-02,1.6526E-02,1.6773E-02,1.7619E-02,1.8896E-02,2.1631E-02,2.4231E-02,2.6807E-02,2.8288E-02,2.8902E-02,2.8463E-02,2.7953E-02,2.7798E-02,2.7355E-02,2.5886E-02,2.4137E-02,2.2034E-02,2.0237E-02,1.9194E-02,1.7980E-02,1.6010E-02,1.3581E-02,1.1128E-02,8.7875E-03,6.7116E-03,4.9309E-03,3.6585E-03,2.8267E-03,2.1322E-03,1.5940E-03,1.3098E-03,9.8129E-04,6.5785E-04 "AALJ","ug m-3",2.5489E-02,2.5477E-02,2.5440E-02,2.5390E-02,2.5348E-02,2.5338E-02,2.5364E-02,2.5571E-02,2.5828E-02,2.5964E-02,2.6128E-02,2.6264E-02,2.6558E-02,2.7004E-02,2.8426E-02,3.0542E-02,3.5063E-02,3.9410E-02,4.3791E-02,4.6424E-02,4.7648E-02,4.7073E-02,4.6366E-02,4.6211E-02,4.5553E-02,4.3153E-02,4.0243E-02,3.6715E-02,3.3692E-02,3.1951E-02,2.9941E-02,2.6651E-02,2.2604E-02,1.8517E-02,1.4619E-02,1.1157E-02,8.1791E-03,6.0578E-03,4.6772E-03,3.5288E-03,2.6352E-03,2.1663E-03,1.6222E-03,1.0862E-03 "ASIJ","ug m-3",7.7943E-02,7.7906E-02,7.7795E-02,7.7653E-02,7.7540E-02,7.7548E-02,7.7690E-02,7.8429E-02,7.9346E-02,7.9894E-02,8.0553E-02,8.1150E-02,8.2300E-02,8.3978E-02,8.8790E-02,9.5753E-02,1.1034E-01,1.2457E-01,1.3945E-01,1.4887E-01,1.5386E-01,1.5288E-01,1.5152E-01,1.5187E-01,1.5031E-01,1.4280E-01,1.3340E-01,1.2182E-01,1.1185E-01,1.0618E-01,9.9647E-02,8.8780E-02,7.5362E-02,6.1782E-02,4.8796E-02,3.7253E-02,2.7282E-02,2.0205E-02,1.5621E-02,1.1806E-02,8.8161E-03,7.2514E-03,5.4314E-03,3.6356E-03 "ATIJ","ug m-3",1.3234E-03,1.3228E-03,1.3208E-03,1.3183E-03,1.3162E-03,1.3158E-03,1.3174E-03,1.3283E-03,1.3417E-03,1.3489E-03,1.3573E-03,1.3646E-03,1.3798E-03,1.4025E-03,1.4749E-03,1.5829E-03,1.8130E-03,2.0333E-03,2.2526E-03,2.3816E-03,2.4387E-03,2.4049E-03,2.3643E-03,2.3512E-03,2.3137E-03,2.1899E-03,2.0424E-03,1.8661E-03,1.7152E-03,1.6264E-03,1.5226E-03,1.3547E-03,1.1486E-03,9.4094E-04,7.4293E-04,5.6730E-04,4.1701E-04,3.0945E-04,2.3906E-04,1.8047E-04,1.3506E-04,1.1099E-04,8.3203E-05,5.5823E-05 "ACAJ","ug m-3",5.0351E-02,4.9536E-02,4.9090E-02,4.8722E-02,4.8361E-02,4.8056E-02,4.7751E-02,4.7689E-02,4.7687E-02,4.7416E-02,4.7060E-02,4.6527E-02,4.6061E-02,4.5535E-02,4.6173E-02,4.7866E-02,5.2843E-02,5.7652E-02,6.2737E-02,6.5675E-02,6.6926E-02,6.5864E-02,6.4671E-02,6.4374E-02,6.3445E-02,6.0149E-02,5.6148E-02,5.1277E-02,4.7085E-02,4.4667E-02,4.1871E-02,3.7299E-02,3.1668E-02,2.5974E-02,2.0534E-02,1.5705E-02,1.1536E-02,8.5576E-03,6.6097E-03,4.9922E-03,3.7310E-03,3.0649E-03,2.2958E-03,1.5388E-03 "AMGJ","ug m-3",6.0177E-02,5.7686E-02,5.6435E-02,5.5470E-02,5.4493E-02,5.3541E-02,5.2411E-02,5.1309E-02,5.0183E-02,4.8707E-02,4.6896E-02,4.4628E-02,4.1800E-02,3.8207E-02,3.4497E-02,3.1320E-02,2.9079E-02,2.6894E-02,2.5144E-02,2.3403E-02,2.1855E-02,2.0258E-02,1.8669E-02,1.7790E-02,1.7089E-02,1.6025E-02,1.4901E-02,1.3589E-02,1.2486E-02,1.1823E-02,1.1067E-02,9.8768E-03,8.4353E-03,6.9864E-03,5.5965E-03,4.3530E-03,3.2675E-03,2.4693E-03,1.9285E-03,1.4834E-03,1.1232E-03,9.1393E-04,6.8578E-04,4.6439E-04 "AKJ","ug m-3",3.6513E-02,3.5732E-02,3.5319E-02,3.4988E-02,3.4660E-02,3.4378E-02,3.4089E-02,3.3961E-02,3.3859E-02,3.3509E-02,3.3005E-02,3.2354E-02,3.1668E-02,3.0769E-02,3.0391E-02,3.0688E-02,3.2731E-02,3.4635E-02,3.6513E-02,3.7279E-02,3.7109E-02,3.5772E-02,3.4491E-02,3.3896E-02,3.3106E-02,3.1264E-02,2.9187E-02,2.6679E-02,2.4504E-02,2.3172E-02,2.1645E-02,1.9331E-02,1.6455E-02,1.3531E-02,1.0721E-02,8.2458E-03,6.0937E-03,4.5092E-03,3.4506E-03,2.5945E-03,1.9373E-03,1.5887E-03,1.1901E-03,7.9923E-04 "AMNJ","ug m-3",5.1865E-04,5.1841E-04,5.1764E-04,5.1666E-04,5.1584E-04,5.1572E-04,5.1637E-04,5.2075E-04,5.2617E-04,5.2917E-04,5.3276E-04,5.3593E-04,5.4223E-04,5.5162E-04,5.8085E-04,6.2430E-04,7.1627E-04,8.0404E-04,8.9206E-04,9.4384E-04,9.6699E-04,9.5450E-04,9.3947E-04,9.3599E-04,9.2241E-04,8.7365E-04,8.1484E-04,7.4356E-04,6.8248E-04,6.4729E-04,6.0658E-04,5.4013E-04,4.5815E-04,3.7531E-04,2.9631E-04,2.2622E-04,1.6597E-04,1.2303E-04,9.5022E-05,7.1651E-05,5.3524E-05,4.4028E-05,3.2993E-05,2.2104E-05 "ACORS","ug m-3",2.9670E-02,3.0167E-02,3.0251E-02,3.0254E-02,3.0298E-02,3.0423E-02,3.0609E-02,3.0849E-02,3.1065E-02,3.0965E-02,3.0641E-02,3.0336E-02,3.0142E-02,3.0281E-02,3.1250E-02,3.2978E-02,3.6492E-02,3.9793E-02,4.1324E-02,4.0099E-02,3.7233E-02,3.3999E-02,3.1814E-02,3.0239E-02,2.8854E-02,2.7761E-02,2.6623E-02,2.5223E-02,2.3536E-02,2.1452E-02,1.9604E-02,1.7983E-02,1.5959E-02,1.3725E-02,1.1431E-02,9.1518E-03,6.7984E-03,4.3171E-03,2.2803E-03,1.0357E-03,5.0993E-04,2.8283E-04,1.4741E-04,7.6336E-05 "ASOIL","ug m-3",2.2074E+00,2.2478E+00,2.2559E+00,2.2572E+00,2.2590E+00,2.2625E+00,2.2682E+00,2.2871E+00,2.3012E+00,2.3026E+00,2.3089E+00,2.3031E+00,2.3194E+00,2.3848E+00,2.5576E+00,2.7937E+00,3.2807E+00,3.7451E+00,4.1779E+00,4.4499E+00,4.5686E+00,4.5496E+00,4.5521E+00,4.5791E+00,4.4862E+00,4.2326E+00,3.9389E+00,3.6221E+00,3.3571E+00,3.1682E+00,2.9028E+00,2.5025E+00,2.0563E+00,1.6218E+00,1.2168E+00,8.5938E-01,5.4487E-01,3.2154E-01,1.8423E-01,9.0344E-02,4.3932E-02,2.5650E-02,1.4212E-02,7.3011E-03 "NUMATKN","m-3",1.8767E+08,1.9098E+08,1.9185E+08,1.9184E+08,1.9123E+08,1.9020E+08,1.8837E+08,1.8679E+08,1.8477E+08,1.8189E+08,1.7860E+08,1.7423E+08,1.6993E+08,1.6742E+08,1.7113E+08,1.8689E+08,2.2236E+08,2.7020E+08,3.2338E+08,3.9010E+08,4.6375E+08,5.3482E+08,5.9210E+08,6.5192E+08,7.2405E+08,8.2380E+08,9.8194E+08,1.2004E+09,1.4892E+09,2.0408E+09,2.9785E+09,4.2039E+09,6.0741E+09,9.0243E+09,1.1744E+10,1.3604E+10,1.4613E+10,1.3966E+10,1.0973E+10,7.2949E+09,3.9996E+09,1.7364E+09,8.8655E+08,5.1234E+08 "NUMACC","m-3",4.3441E+08,4.1701E+08,4.0846E+08,4.0196E+08,3.9549E+08,3.8909E+08,3.8160E+08,3.7410E+08,3.6631E+08,3.5628E+08,3.4392E+08,3.2872E+08,3.1027E+08,2.8666E+08,2.6217E+08,2.4199E+08,2.2789E+08,2.1427E+08,2.0460E+08,1.9656E+08,1.9053E+08,1.8522E+08,1.8009E+08,1.7960E+08,1.8086E+08,1.8368E+08,1.8930E+08,1.9822E+08,2.0856E+08,2.2085E+08,2.3542E+08,2.5044E+08,2.6965E+08,2.9833E+08,3.3851E+08,3.8852E+08,4.6721E+08,5.5394E+08,5.6223E+08,4.8004E+08,3.0640E+08,1.6321E+08,9.3611E+07,5.5530E+07 "NUMCOR","m-3",2.7667E+06,2.6469E+06,2.5900E+06,2.5475E+06,2.5072E+06,2.4681E+06,2.4230E+06,2.3765E+06,2.3255E+06,2.2567E+06,2.1670E+06,2.0480E+06,1.8931E+06,1.7039E+06,1.5092E+06,1.3356E+06,1.1895E+06,1.0475E+06,9.3182E+05,8.2756E+05,7.4705E+05,6.7698E+05,6.1444E+05,5.7935E+05,5.5233E+05,5.1710E+05,4.8032E+05,4.3745E+05,4.0194E+05,3.8005E+05,3.5477E+05,3.1565E+05,2.6871E+05,2.2211E+05,1.7676E+05,1.3545E+05,9.8198E+04,6.9394E+04,4.8743E+04,3.2148E+04,2.0867E+04,1.4559E+04,9.5386E+03,5.8367E+03 "SRFATKN","m2 m-3",9.3897E-07,9.4477E-07,9.4563E-07,9.4390E-07,9.4028E-07,9.3503E-07,9.2557E-07,9.2234E-07,9.1641E-07,9.0678E-07,8.9477E-07,8.7377E-07,8.5460E-07,8.3774E-07,8.4351E-07,8.9463E-07,1.0017E-06,1.1178E-06,1.2292E-06,1.3140E-06,1.3854E-06,1.4097E-06,1.4198E-06,1.4412E-06,1.4666E-06,1.5380E-06,1.6974E-06,1.9156E-06,2.1877E-06,2.5034E-06,2.7525E-06,2.9869E-06,3.3033E-06,3.7559E-06,4.2115E-06,4.7649E-06,5.4733E-06,6.1169E-06,6.1361E-06,5.2644E-06,3.4385E-06,1.7763E-06,8.5142E-07,3.7784E-07 "SRFACC","m2 m-3",2.5550E-05,2.4909E-05,2.4585E-05,2.4327E-05,2.4066E-05,2.3805E-05,2.3497E-05,2.3207E-05,2.2907E-05,2.2473E-05,2.1917E-05,2.1307E-05,2.0678E-05,1.9815E-05,1.8898E-05,1.8206E-05,1.7960E-05,1.7580E-05,1.7123E-05,1.6533E-05,1.5843E-05,1.4920E-05,1.3872E-05,1.3251E-05,1.2726E-05,1.2177E-05,1.1737E-05,1.1303E-05,1.0967E-05,1.0751E-05,1.0377E-05,9.7365E-06,8.9973E-06,8.3419E-06,7.8050E-06,7.3733E-06,7.3060E-06,7.4765E-06,7.4106E-06,6.5298E-06,4.7500E-06,3.2282E-06,2.1183E-06,1.3775E-06 "SRFCOR","m2 m-3",3.0611E-05,2.9251E-05,2.8559E-05,2.8028E-05,2.7516E-05,2.7019E-05,2.6450E-05,2.5850E-05,2.5185E-05,2.4282E-05,2.3107E-05,2.1570E-05,1.9629E-05,1.7457E-05,1.5359E-05,1.3531E-05,1.2048E-05,1.0603E-05,9.4344E-06,8.3741E-06,7.5538E-06,6.8348E-06,6.2108E-06,5.8475E-06,5.5441E-06,5.1637E-06,4.7718E-06,4.3401E-06,3.9838E-06,3.7379E-06,3.4442E-06,3.0225E-06,2.5416E-06,2.0701E-06,1.6194E-06,1.2117E-06,8.4248E-07,5.5656E-07,3.5465E-07,2.0269E-07,1.1320E-07,6.8451E-08,3.9520E-08,2.1763E-08 "AORGH2OJ","ug m-3",9.9996E-31,9.9996E-31,9.9996E-31,9.9996E-31,9.9996E-31,9.9996E-31,9.9996E-31,9.9996E-31,9.9996E-31,9.9996E-31,9.9996E-31,9.9996E-31,9.9996E-31,9.9996E-31,9.9996E-31,9.9996E-31,9.9996E-31,9.9996E-31,9.9996E-31,9.9996E-31,9.9996E-31,9.9996E-31,9.9996E-31,9.9996E-31,9.9996E-31,9.9996E-31,9.9996E-31,9.9996E-31,9.9996E-31,9.9996E-31,9.9996E-31,9.9996E-31,9.9996E-31,9.9996E-31,9.9996E-31,9.9996E-31,9.9996E-31,9.9996E-31,9.9996E-31,9.9996E-31,9.9996E-31,9.9996E-31,9.9996E-31,9.9996E-31 "AH2OJ","ug m-3",5.8150E+00,5.5385E+00,5.5565E+00,5.6557E+00,5.7917E+00,5.9764E+00,6.1885E+00,6.4270E+00,6.7166E+00,6.9143E+00,7.0079E+00,6.9400E+00,6.7242E+00,6.3318E+00,5.6645E+00,4.7526E+00,3.5548E+00,2.5367E+00,1.6482E+00,1.0821E+00,7.1200E-01,5.2594E-01,4.2566E-01,3.6688E-01,3.2902E-01,3.1140E-01,2.8180E-01,2.6712E-01,2.4630E-01,2.2680E-01,2.0588E-01,1.8729E-01,1.7005E-01,1.5109E-01,1.3343E-01,1.1564E-01,9.7226E-02,7.5790E-02,5.2244E-02,3.6388E-02,2.7016E-02,2.1612E-02,1.6115E-02,9.4511E-03 "AH2OI","ug m-3",3.3629E-02,3.3648E-02,3.4817E-02,3.6331E-02,3.8102E-02,4.0326E-02,4.2650E-02,4.5277E-02,4.8285E-02,5.1577E-02,5.3487E-02,5.6478E-02,5.9906E-02,6.1715E-02,6.0472E-02,5.5745E-02,4.5120E-02,3.5442E-02,2.6002E-02,2.0194E-02,1.5666E-02,1.2004E-02,1.1391E-02,1.0943E-02,1.1715E-02,1.3469E-02,1.3521E-02,1.5148E-02,1.5182E-02,1.5296E-02,1.5322E-02,1.5117E-02,1.4639E-02,1.3613E-02,1.1830E-02,9.5543E-03,7.1156E-03,5.1196E-03,3.2831E-03,1.2060E-03,1.6007E-04,4.6063E-05,2.9180E-05,2.1434E-05 "AH3OPJ","ug m-3",1.6365E-02,1.7126E-02,1.7576E-02,1.7859E-02,1.8105E-02,1.8131E-02,1.8191E-02,1.7850E-02,1.7693E-02,1.7344E-02,1.7168E-02,1.6948E-02,1.7287E-02,1.7721E-02,1.7363E-02,1.5251E-02,1.3358E-02,1.3471E-02,1.2681E-02,1.2290E-02,1.1302E-02,1.0549E-02,9.4672E-03,8.2819E-03,8.4145E-03,7.8960E-03,7.3841E-03,6.9779E-03,7.0084E-03,6.9788E-03,6.5505E-03,5.8748E-03,5.5864E-03,5.8709E-03,6.4794E-03,7.1212E-03,8.6038E-03,1.0861E-02,1.5292E-02,1.9930E-02,2.1756E-02,1.9107E-02,1.4348E-02,1.1687E-02 "AH3OPI","ug m-3",1.5255E-04,1.6063E-04,1.6414E-04,1.6611E-04,1.6732E-04,1.6820E-04,1.6783E-04,1.6584E-04,1.6351E-04,1.6082E-04,1.6057E-04,1.6378E-04,1.7663E-04,1.8657E-04,1.9556E-04,1.9844E-04,2.0368E-04,2.6078E-04,2.7030E-04,2.6438E-04,2.6039E-04,2.4114E-04,2.1693E-04,1.7681E-04,1.5276E-04,1.5108E-04,1.4834E-04,1.3918E-04,1.3617E-04,1.4986E-04,1.5592E-04,1.3474E-04,1.3232E-04,1.5534E-04,1.9746E-04,2.3653E-04,3.0464E-04,3.8007E-04,5.5542E-04,4.2601E-04,1.4985E-04,6.5542E-05,5.0172E-05,4.2988E-05 "ANAJ","ug m-3",4.5162E-01,4.3077E-01,4.2037E-01,4.1238E-01,4.0429E-01,3.9634E-01,3.8685E-01,3.7725E-01,3.6728E-01,3.5460E-01,3.3912E-01,3.2000E-01,2.9575E-01,2.6477E-01,2.3093E-01,2.0037E-01,1.7216E-01,1.4462E-01,1.2097E-01,1.0043E-01,8.4804E-02,7.2530E-02,6.0386E-02,5.3099E-02,4.8381E-02,4.4324E-02,4.0872E-02,3.7200E-02,3.4216E-02,3.2262E-02,3.0139E-02,2.7089E-02,2.3470E-02,1.9907E-02,1.6419E-02,1.3239E-02,1.0395E-02,8.1291E-03,6.4753E-03,5.1154E-03,3.9629E-03,3.1832E-03,2.3970E-03,1.6506E-03 "ANAI","ug m-3",5.0457E-05,5.0571E-05,5.0532E-05,5.0445E-05,5.0338E-05,5.0206E-05,5.0085E-05,5.0715E-05,5.1498E-05,5.2414E-05,5.3379E-05,5.4178E-05,5.5310E-05,5.6143E-05,5.8469E-05,6.3236E-05,7.2205E-05,8.0590E-05,8.2747E-05,8.0130E-05,7.4021E-05,6.5386E-05,6.0404E-05,5.6924E-05,5.3156E-05,5.1398E-05,5.0866E-05,4.8415E-05,4.6019E-05,4.2237E-05,3.7684E-05,3.3158E-05,2.8428E-05,2.4037E-05,1.9366E-05,1.3853E-05,7.8817E-06,3.2799E-06,9.7960E-07,1.6878E-07,3.3628E-08,1.4051E-08,5.5159E-09,1.5011E-09 "ACLJ","ug m-3",2.5911E-01,2.2873E-01,2.1484E-01,2.0499E-01,1.9548E-01,1.8741E-01,1.7835E-01,1.6966E-01,1.6128E-01,1.5135E-01,1.4095E-01,1.2939E-01,1.1731E-01,1.0406E-01,8.8080E-02,7.1898E-02,5.4884E-02,3.8272E-02,2.4043E-02,1.3481E-02,8.1512E-03,5.0313E-03,4.4125E-03,4.6446E-03,5.0819E-03,6.4946E-03,7.9070E-03,9.5476E-03,1.1426E-02,1.3111E-02,1.4781E-02,1.5303E-02,1.5046E-02,1.3858E-02,1.2338E-02,1.0383E-02,7.9759E-03,5.3441E-03,2.3647E-03,9.2982E-04,5.2961E-04,2.6183E-04,1.3125E-04,5.3297E-05 "ACLI","ug m-3",5.4073E-04,5.2263E-04,5.1640E-04,5.1269E-04,5.0559E-04,5.0395E-04,5.0402E-04,5.0611E-04,5.1099E-04,5.1851E-04,5.2634E-04,5.3560E-04,5.6089E-04,5.6537E-04,5.1889E-04,4.6706E-04,4.0038E-04,3.3130E-04,2.8078E-04,2.4163E-04,2.3952E-04,2.6379E-04,2.9581E-04,3.9998E-04,4.8412E-04,6.8240E-04,8.9592E-04,1.2048E-03,1.6870E-03,2.2104E-03,2.7038E-03,3.0283E-03,3.2274E-03,3.0172E-03,2.6695E-03,2.3115E-03,1.8276E-03,1.3512E-03,7.3009E-04,3.9044E-04,2.5207E-04,9.6756E-05,3.5050E-05,1.4192E-05 "ASEACAT","ug m-3",1.1190E+01,1.0590E+01,1.0277E+01,1.0036E+01,9.8037E+00,9.5789E+00,9.3268E+00,9.0550E+00,8.7564E+00,8.3612E+00,7.8541E+00,7.2025E+00,6.3888E+00,5.5060E+00,4.6458E+00,3.8573E+00,3.1080E+00,2.3845E+00,1.7900E+00,1.3090E+00,9.7638E-01,7.3938E-01,5.3539E-01,4.1253E-01,3.4515E-01,3.0373E-01,2.7432E-01,2.4708E-01,2.2415E-01,2.0434E-01,1.8434E-01,1.6454E-01,1.4467E-01,1.2494E-01,1.0365E-01,8.1684E-02,5.9611E-02,3.9043E-02,2.2772E-02,1.2232E-02,6.5462E-03,3.3507E-03,1.7444E-03,9.4714E-04 "ACLK","ug m-3",1.6866E+01,1.5966E+01,1.5498E+01,1.5138E+01,1.4791E+01,1.4456E+01,1.4080E+01,1.3674E+01,1.3228E+01,1.2635E+01,1.1871E+01,1.0887E+01,9.6549E+00,8.3142E+00,7.0081E+00,5.8074E+00,4.6651E+00,3.5643E+00,2.6664E+00,1.9446E+00,1.4503E+00,1.1015E+00,8.0494E-01,6.2898E-01,5.3307E-01,4.7396E-01,4.3135E-01,3.8993E-01,3.5417E-01,3.2386E-01,2.9250E-01,2.6009E-01,2.2760E-01,1.9524E-01,1.6097E-01,1.2676E-01,9.3050E-02,6.2714E-02,3.9195E-02,2.3471E-02,1.3525E-02,6.7528E-03,3.3170E-03,1.7743E-03 "ASO4K","ug m-3",2.4451E+00,2.3202E+00,2.2545E+00,2.2037E+00,2.1547E+00,2.1072E+00,2.0540E+00,1.9968E+00,1.9340E+00,1.8503E+00,1.7428E+00,1.6039E+00,1.4308E+00,1.2447E+00,1.0672E+00,9.0748E-01,7.6408E-01,6.2652E-01,5.1404E-01,4.1973E-01,3.5226E-01,2.9985E-01,2.5476E-01,2.2793E-01,2.0992E-01,1.9297E-01,1.7727E-01,1.6105E-01,1.4790E-01,1.3782E-01,1.2538E-01,1.0919E-01,9.1575E-02,7.4499E-02,5.7791E-02,4.2532E-02,2.8624E-02,1.7664E-02,1.0143E-02,5.1304E-03,2.6019E-03,1.4202E-03,7.6304E-04,3.9909E-04 "ANH4K","ug m-3",6.2478E-02,6.3475E-02,6.3461E-02,6.3157E-02,6.2663E-02,6.1922E-02,6.0911E-02,5.9660E-02,5.8223E-02,5.6519E-02,5.5093E-02,5.2300E-02,4.9399E-02,4.6483E-02,4.5690E-02,4.8344E-02,5.8194E-02,6.2536E-02,6.6612E-02,6.7054E-02,6.4699E-02,6.1630E-02,6.0782E-02,5.9300E-02,5.5701E-02,5.0508E-02,4.4749E-02,3.7524E-02,3.0783E-02,2.5151E-02,2.0756E-02,1.6912E-02,1.3329E-02,1.0196E-02,7.6768E-03,5.5266E-03,3.8300E-03,2.5592E-03,1.6048E-03,7.5867E-04,3.4871E-04,1.9311E-04,9.9352E-05,5.0707E-05 "ANO3K","ug m-3",7.3864E-01,7.4947E-01,7.5032E-01,7.4864E-01,7.4636E-01,7.4240E-01,7.3650E-01,7.2840E-01,7.1877E-01,7.0302E-01,6.8025E-01,6.4931E-01,6.1630E-01,5.8772E-01,5.7225E-01,5.7176E-01,5.8760E-01,5.9323E-01,5.8668E-01,5.6182E-01,5.2637E-01,4.8281E-01,4.4031E-01,4.0385E-01,3.6894E-01,3.3313E-01,2.9738E-01,2.5986E-01,2.2534E-01,1.9659E-01,1.7300E-01,1.5059E-01,1.2853E-01,1.0902E-01,9.2145E-02,7.5953E-02,6.0685E-02,4.5650E-02,3.0106E-02,1.5824E-02,7.2493E-03,3.5514E-03,1.7339E-03,9.0711E-04 "AH2OK","ug m-3",1.3544E+02,1.2787E+02,1.2722E+02,1.2888E+02,1.3179E+02,1.3592E+02,1.4092E+02,1.4718E+02,1.5434E+02,1.5830E+02,1.5901E+02,1.5301E+02,1.4121E+02,1.2752E+02,1.1219E+02,9.5891E+01,7.3425E+01,5.1171E+01,3.2795E+01,1.9971E+01,1.1723E+01,7.5498E+00,5.2947E+00,4.0523E+00,3.3411E+00,2.8886E+00,2.4891E+00,2.1639E+00,1.8176E+00,1.5507E+00,1.3392E+00,1.1495E+00,9.7343E-01,8.0706E-01,6.4545E-01,4.8544E-01,3.3374E-01,2.0310E-01,1.0536E-01,4.9423E-02,2.3545E-02,1.2703E-02,6.9116E-03,3.7454E-03 "AH3OPK","ug m-3",1.7908E-01,1.7206E-01,1.6906E-01,1.6713E-01,1.6541E-01,1.6391E-01,1.6189E-01,1.5982E-01,1.5668E-01,1.5110E-01,1.4114E-01,1.2565E-01,1.0503E-01,8.3132E-02,6.4647E-02,5.0896E-02,3.9373E-02,3.4204E-02,3.1068E-02,3.4161E-02,3.8089E-02,3.9944E-02,4.0293E-02,3.9999E-02,3.8196E-02,3.4106E-02,2.8495E-02,2.5232E-02,2.1815E-02,1.9147E-02,1.6995E-02,1.3189E-02,1.1015E-02,9.8090E-03,9.1081E-03,8.6440E-03,8.8222E-03,8.3289E-03,7.3912E-03,6.4810E-03,4.6041E-03,2.3790E-03,1.1095E-03,5.7497E-04 "AISO3J","ug m-3",2.0352E-02,2.0345E-02,2.0315E-02,2.0278E-02,2.0243E-02,2.0247E-02,2.0307E-02,2.0445E-02,2.0559E-02,2.0516E-02,2.0413E-02,2.0439E-02,2.1003E-02,2.1396E-02,2.1620E-02,2.2067E-02,2.2812E-02,2.3439E-02,2.3397E-02,2.2693E-02,2.2050E-02,2.0673E-02,1.9448E-02,1.8246E-02,1.7047E-02,1.6113E-02,1.5826E-02,1.5538E-02,1.5395E-02,1.4653E-02,1.3440E-02,1.2187E-02,1.0927E-02,9.8868E-03,8.9362E-03,7.9608E-03,7.0831E-03,6.2187E-03,5.3496E-03,4.4149E-03,3.5628E-03,2.8215E-03,2.1096E-03,1.4699E-03 "AOLGAJ","ug m-3",1.2011E-02,1.2006E-02,1.1990E-02,1.1971E-02,1.1955E-02,1.1978E-02,1.2052E-02,1.2216E-02,1.2367E-02,1.2384E-02,1.2354E-02,1.2349E-02,1.2379E-02,1.2366E-02,1.2630E-02,1.3170E-02,1.4283E-02,1.5170E-02,1.5706E-02,1.5462E-02,1.4704E-02,1.3346E-02,1.2280E-02,1.1423E-02,1.0568E-02,9.8027E-03,9.3184E-03,8.8435E-03,8.4140E-03,7.9151E-03,7.3423E-03,6.7455E-03,6.0782E-03,5.4124E-03,4.8083E-03,4.3238E-03,4.0238E-03,3.8539E-03,3.7673E-03,3.5925E-03,3.2102E-03,2.8456E-03,2.2824E-03,1.6244E-03 "AOLGBJ","ug m-3",3.9611E-02,3.9598E-02,3.9545E-02,3.9487E-02,3.9440E-02,3.9524E-02,3.9787E-02,4.0347E-02,4.0859E-02,4.0987E-02,4.0981E-02,4.1176E-02,4.2020E-02,4.2656E-02,4.3959E-02,4.6072E-02,4.9622E-02,5.3765E-02,5.4512E-02,5.3454E-02,4.9731E-02,4.3841E-02,4.0432E-02,3.8099E-02,3.5683E-02,3.3787E-02,3.2871E-02,3.1575E-02,3.0420E-02,2.8868E-02,2.7239E-02,2.5568E-02,2.3644E-02,2.1845E-02,2.0262E-02,1.8855E-02,1.7884E-02,1.7247E-02,1.6463E-02,1.4739E-02,1.2250E-02,9.8683E-03,7.4479E-03,5.2477E-03 "AGLYJ","ug m-3",2.5096E-02,2.5086E-02,2.5050E-02,2.5007E-02,2.4968E-02,2.5001E-02,2.5135E-02,2.5418E-02,2.5664E-02,2.5641E-02,2.5504E-02,2.5385E-02,2.5336E-02,2.5135E-02,2.5414E-02,2.6232E-02,2.8109E-02,2.9567E-02,3.0130E-02,2.9220E-02,2.7439E-02,2.4722E-02,2.2846E-02,2.1216E-02,1.9512E-02,1.8047E-02,1.7084E-02,1.6097E-02,1.5200E-02,1.4040E-02,1.2695E-02,1.1399E-02,9.9911E-03,8.4882E-03,7.0488E-03,5.7634E-03,4.6931E-03,3.6963E-03,2.8897E-03,2.2407E-03,1.7510E-03,1.4371E-03,1.1057E-03,7.7564E-04 "AMTNO3J","ug m-3",2.9609E-08,3.1538E-08,3.2473E-08,3.3231E-08,3.4005E-08,3.4806E-08,3.5724E-08,3.6767E-08,3.7937E-08,3.9253E-08,4.0966E-08,4.3364E-08,4.7049E-08,5.0432E-08,5.5471E-08,5.8178E-08,5.6881E-08,6.2558E-08,6.7965E-08,7.2295E-08,7.7438E-08,8.2177E-08,8.8287E-08,9.4759E-08,9.8524E-08,9.6040E-08,9.1230E-08,9.6106E-08,1.1497E-07,1.6355E-07,2.2587E-07,2.6960E-07,2.8169E-07,2.8184E-07,2.6183E-07,2.2393E-07,1.3286E-07,3.8990E-08,4.4613E-09,4.1888E-10,2.0574E-11,3.0171E-13,2.9962E-15,2.5406E-17 "AMTHYDJ","ug m-3",1.1679E-02,1.1675E-02,1.1659E-02,1.1639E-02,1.1620E-02,1.1635E-02,1.1691E-02,1.1833E-02,1.1965E-02,1.1970E-02,1.1916E-02,1.1902E-02,1.2012E-02,1.1985E-02,1.2103E-02,1.2501E-02,1.3482E-02,1.4891E-02,1.5311E-02,1.4960E-02,1.3613E-02,1.1665E-02,1.0604E-02,9.8653E-03,9.1584E-03,8.5903E-03,8.2921E-03,7.9283E-03,7.5944E-03,7.0986E-03,6.5482E-03,5.9807E-03,5.3444E-03,4.7206E-03,4.1350E-03,3.5720E-03,3.0594E-03,2.5703E-03,2.0801E-03,1.5642E-03,1.1540E-03,8.6272E-04,5.9998E-04,3.9740E-04 "APCSOJ","ug m-3",2.6101E-04,2.6093E-04,2.6052E-04,2.5999E-04,2.5949E-04,2.5907E-04,2.5883E-04,2.5921E-04,2.5967E-04,2.5834E-04,2.5667E-04,2.5655E-04,2.5839E-04,2.6077E-04,2.6848E-04,2.8228E-04,3.0906E-04,3.3403E-04,3.6703E-04,3.9742E-04,4.1601E-04,4.2394E-04,4.3329E-04,4.4860E-04,4.6531E-04,4.8218E-04,5.1545E-04,5.7247E-04,6.5351E-04,7.8048E-04,9.6670E-04,1.2077E-03,1.5146E-03,1.9086E-03,2.3936E-03,2.9538E-03,3.5951E-03,4.3175E-03,5.0306E-03,5.6664E-03,6.0601E-03,6.4488E-03,6.1557E-03,4.8488E-03 "ALVPO1I","ug m-3",2.0876E-03,2.1037E-03,2.1101E-03,2.1137E-03,2.1170E-03,2.1208E-03,2.1294E-03,2.2107E-03,2.3232E-03,2.4319E-03,2.5242E-03,2.6008E-03,2.6845E-03,2.7212E-03,2.7727E-03,2.9467E-03,3.2052E-03,3.4841E-03,3.5362E-03,3.4221E-03,3.1382E-03,2.7019E-03,2.5704E-03,2.5980E-03,2.6762E-03,2.8817E-03,3.0965E-03,3.0804E-03,2.9349E-03,2.6284E-03,2.3202E-03,2.0792E-03,1.8301E-03,1.5862E-03,1.3175E-03,9.8612E-04,5.9111E-04,2.5443E-04,7.3147E-05,1.2653E-05,2.9930E-06,1.5067E-06,7.2446E-07,3.8067E-07 "ASVPO1I","ug m-3",1.8922E-04,1.9434E-04,1.9712E-04,1.9928E-04,2.0127E-04,2.0336E-04,2.0553E-04,2.0922E-04,2.1437E-04,2.2170E-04,2.3575E-04,2.5837E-04,2.8805E-04,3.1020E-04,3.4061E-04,3.8004E-04,4.3836E-04,5.3087E-04,6.1197E-04,6.1356E-04,5.8795E-04,5.3426E-04,5.5950E-04,6.4152E-04,7.2973E-04,8.9109E-04,1.1245E-03,1.2199E-03,1.2284E-03,1.1503E-03,1.0771E-03,1.0142E-03,9.2655E-04,8.2738E-04,7.2163E-04,5.7252E-04,3.5689E-04,1.5316E-04,4.1979E-05,7.2120E-06,1.6822E-06,7.7631E-07,3.3279E-07,1.3247E-07 "ASVPO2I","ug m-3",4.1822E-06,4.4859E-06,4.6531E-06,4.7750E-06,4.8839E-06,4.9932E-06,5.0668E-06,5.1310E-06,5.1034E-06,4.9605E-06,4.9410E-06,5.0258E-06,5.1942E-06,5.4909E-06,6.3249E-06,7.2931E-06,9.5249E-06,1.0655E-05,1.5450E-05,1.6295E-05,1.8241E-05,2.4687E-05,3.2125E-05,4.0515E-05,5.0317E-05,7.1150E-05,1.0980E-04,1.4720E-04,1.7475E-04,1.8920E-04,2.1489E-04,2.4229E-04,2.5450E-04,2.4937E-04,2.5460E-04,2.3827E-04,1.6277E-04,7.1392E-05,1.9000E-05,3.5127E-06,8.5766E-07,3.7479E-07,1.6517E-07,6.7824E-08 "ALVPO1J","ug m-3",2.5889E-02,2.6044E-02,2.6131E-02,2.6221E-02,2.6333E-02,2.6643E-02,2.7205E-02,2.8198E-02,2.9170E-02,2.9532E-02,2.9599E-02,2.9756E-02,3.0042E-02,3.0130E-02,3.0915E-02,3.2473E-02,3.5029E-02,3.7595E-02,3.9423E-02,3.9731E-02,3.8727E-02,3.5711E-02,3.4088E-02,3.3358E-02,3.2465E-02,3.1491E-02,3.0835E-02,2.9730E-02,2.8368E-02,2.6683E-02,2.4824E-02,2.2976E-02,2.0492E-02,1.7456E-02,1.4511E-02,1.1879E-02,9.4576E-03,7.2065E-03,5.4150E-03,3.9977E-03,3.0143E-03,2.4557E-03,1.8607E-03,1.2823E-03 "ASVPO1J","ug m-3",1.6546E-03,1.6966E-03,1.7221E-03,1.7456E-03,1.7693E-03,1.8131E-03,1.8819E-03,1.9749E-03,2.0609E-03,2.1195E-03,2.1859E-03,2.2742E-03,2.3663E-03,2.4435E-03,2.6444E-03,2.9364E-03,3.4221E-03,3.9072E-03,4.6136E-03,4.8500E-03,4.8670E-03,4.6605E-03,4.8912E-03,5.4275E-03,5.9162E-03,6.4681E-03,7.2626E-03,7.6574E-03,7.7419E-03,7.4774E-03,7.2319E-03,7.1151E-03,6.6604E-03,5.8094E-03,4.9509E-03,4.2348E-03,3.5023E-03,2.6715E-03,1.9659E-03,1.4468E-03,1.0891E-03,8.8629E-04,6.7267E-04,4.6389E-04 "ASVPO2J","ug m-3",4.0411E-05,4.3397E-05,4.5259E-05,4.6559E-05,4.7583E-05,4.8587E-05,4.9080E-05,4.8326E-05,4.6695E-05,4.3597E-05,4.1873E-05,4.0817E-05,3.9627E-05,3.9203E-05,4.2639E-05,4.7880E-05,6.7555E-05,7.4098E-05,1.1140E-04,1.2599E-04,1.3806E-04,1.6770E-04,2.2721E-04,3.0803E-04,4.1186E-04,5.3197E-04,7.2387E-04,9.2956E-04,1.0973E-03,1.1830E-03,1.3189E-03,1.5309E-03,1.6295E-03,1.5255E-03,1.4025E-03,1.3194E-03,1.1712E-03,9.1037E-04,6.5060E-04,4.5631E-04,3.1203E-04,2.0865E-04,1.2729E-04,7.7050E-05 "ASVPO3J","ug m-3",3.0152E-06,3.2743E-06,3.4315E-06,3.5226E-06,3.5768E-06,3.6267E-06,3.6214E-06,3.4650E-06,3.1647E-06,2.6462E-06,2.3239E-06,2.0569E-06,1.7271E-06,1.3948E-06,1.1477E-06,9.5188E-07,8.3451E-07,7.4497E-07,6.9953E-07,6.3868E-07,6.0215E-07,7.0359E-07,1.0997E-06,1.4640E-06,1.7430E-06,2.0957E-06,3.1745E-06,5.7218E-06,9.6497E-06,1.4185E-05,1.8305E-05,2.2442E-05,2.6998E-05,3.1200E-05,3.7146E-05,3.9058E-05,3.6498E-05,2.8443E-05,1.7999E-05,9.8757E-06,5.9293E-06,3.2830E-06,1.0446E-06,2.3446E-07 "AIVPO1J","ug m-3",7.2345E-07,7.8382E-07,8.1895E-07,8.3716E-07,8.4575E-07,8.5245E-07,8.4584E-07,8.0215E-07,7.2253E-07,5.8851E-07,5.0511E-07,4.3436E-07,3.4961E-07,2.6694E-07,2.0450E-07,1.5423E-07,1.0839E-07,7.7755E-08,5.4418E-08,4.0295E-08,3.3270E-08,3.1710E-08,3.2563E-08,3.7117E-08,4.1673E-08,4.5155E-08,6.0283E-08,1.0040E-07,1.7154E-07,2.7642E-07,3.6365E-07,3.9836E-07,4.3667E-07,6.4738E-07,9.0504E-07,6.4133E-07,5.5720E-07,2.9784E-07,1.1874E-07,3.2638E-08,8.8435E-09,2.8026E-09,4.8184E-10,2.6553E-11 "ALVOO1I","ug m-3",2.4847E-03,2.4928E-03,2.4934E-03,2.4916E-03,2.4897E-03,2.4874E-03,2.4829E-03,2.5514E-03,2.6254E-03,2.6937E-03,2.7458E-03,2.7625E-03,2.7888E-03,2.7709E-03,2.7519E-03,2.8502E-03,3.0077E-03,3.1622E-03,3.1387E-03,3.0047E-03,2.7360E-03,2.3675E-03,2.1813E-03,2.0857E-03,2.0152E-03,2.0084E-03,2.0051E-03,1.9062E-03,1.7702E-03,1.5659E-03,1.3662E-03,1.2099E-03,1.0544E-03,9.0778E-04,7.5078E-04,5.5595E-04,3.2973E-04,1.4337E-04,4.2508E-05,7.5158E-06,1.7647E-06,8.7745E-07,4.1516E-07,2.0493E-07 "ALVOO2I","ug m-3",6.0306E-04,6.0895E-04,6.1173E-04,6.1382E-04,6.1617E-04,6.1898E-04,6.2355E-04,6.5300E-04,6.9089E-04,7.2807E-04,7.6015E-04,7.8599E-04,8.1528E-04,8.3166E-04,8.5255E-04,9.1445E-04,1.0006E-03,1.0836E-03,1.0955E-03,1.0569E-03,9.6919E-04,8.3755E-04,7.8968E-04,7.8529E-04,7.9616E-04,8.3946E-04,8.8115E-04,8.6389E-04,8.1539E-04,7.2533E-04,6.3443E-04,5.6358E-04,4.9274E-04,4.2495E-04,3.5018E-04,2.5910E-04,1.5410E-04,6.6626E-05,1.9520E-05,3.4867E-06,8.8744E-07,4.6120E-07,2.2851E-07,1.2529E-07 "ASVOO1I","ug m-3",1.9780E-06,2.0523E-06,2.1003E-06,2.1449E-06,2.1956E-06,2.2543E-06,2.3242E-06,2.5365E-06,2.7685E-06,2.9926E-06,3.1881E-06,3.3144E-06,3.4458E-06,3.5132E-06,3.6265E-06,3.9325E-06,4.3427E-06,4.6824E-06,4.7267E-06,4.5962E-06,4.2985E-06,3.8109E-06,3.6471E-06,3.6433E-06,3.7265E-06,3.9063E-06,4.0721E-06,4.0373E-06,3.9125E-06,3.6213E-06,3.2979E-06,3.0034E-06,2.6964E-06,2.3945E-06,2.0127E-06,1.5151E-06,9.3082E-07,4.3637E-07,1.4634E-07,3.4206E-08,1.4219E-08,7.9808E-09,3.9495E-09,2.0541E-09 "ASVOO2I","ug m-3",4.5613E-07,4.8628E-07,5.0553E-07,5.2328E-07,5.4289E-07,5.6531E-07,5.9194E-07,6.6068E-07,7.3612E-07,8.1019E-07,8.7238E-07,9.1261E-07,9.4202E-07,9.4893E-07,9.6212E-07,1.0396E-06,1.1635E-06,1.2585E-06,1.2605E-06,1.2036E-06,1.0949E-06,9.4260E-07,8.8945E-07,8.8705E-07,9.1700E-07,9.9119E-07,1.0989E-06,1.1758E-06,1.2270E-06,1.2279E-06,1.2625E-06,1.3104E-06,1.3215E-06,1.3168E-06,1.2869E-06,1.1400E-06,8.0900E-07,4.3338E-07,1.6340E-07,3.8590E-08,1.4980E-08,7.4740E-09,3.7002E-09,1.8470E-09 "ALVOO1J","ug m-3",3.1327E-02,3.1374E-02,3.1377E-02,3.1374E-02,3.1385E-02,3.1480E-02,3.1669E-02,3.2026E-02,3.2333E-02,3.2237E-02,3.1910E-02,3.1609E-02,3.1530E-02,3.1003E-02,3.0544E-02,3.0577E-02,3.1047E-02,3.1433E-02,3.0992E-02,2.9754E-02,2.7705E-02,2.4785E-02,2.2155E-02,2.0004E-02,1.7853E-02,1.6024E-02,1.4854E-02,1.3748E-02,1.2882E-02,1.1980E-02,1.1072E-02,1.0188E-02,9.0919E-03,7.8633E-03,6.7088E-03,5.6401E-03,4.6496E-03,3.6747E-03,2.7932E-03,2.0550E-03,1.5309E-03,1.2069E-03,8.9350E-04,6.1331E-04 "ALVOO2J","ug m-3",5.7982E-03,5.8508E-03,5.8843E-03,5.9194E-03,5.9629E-03,6.0559E-03,6.2114E-03,6.4701E-03,6.7164E-03,6.8182E-03,6.8464E-03,6.8935E-03,6.9917E-03,7.0216E-03,7.1559E-03,7.4400E-03,7.8689E-03,8.2990E-03,8.5087E-03,8.4294E-03,8.0650E-03,7.3024E-03,6.7982E-03,6.4230E-03,6.0189E-03,5.6774E-03,5.4930E-03,5.2350E-03,4.9741E-03,4.6393E-03,4.2892E-03,3.9773E-03,3.5646E-03,3.0789E-03,2.6153E-03,2.1923E-03,1.8004E-03,1.4112E-03,1.0713E-03,7.9229E-04,5.9717E-04,4.8165E-04,3.6386E-04,2.5217E-04 "ASVOO1J","ug m-3",2.2024E-05,2.2912E-05,2.3553E-05,2.4194E-05,2.4951E-05,2.6061E-05,2.7597E-05,2.9762E-05,3.1732E-05,3.2995E-05,3.3861E-05,3.4733E-05,3.5917E-05,3.6405E-05,3.7107E-05,3.8328E-05,4.0241E-05,4.2084E-05,4.2487E-05,4.1793E-05,4.0067E-05,3.6594E-05,3.3841E-05,3.1577E-05,2.9109E-05,2.6988E-05,2.5898E-05,2.4882E-05,2.4227E-05,2.3536E-05,2.2782E-05,2.1744E-05,2.0031E-05,1.7971E-05,1.5975E-05,1.4118E-05,1.2409E-05,1.0654E-05,8.7986E-06,6.8743E-06,5.2454E-06,4.0215E-06,2.9156E-06,1.9962E-06 "ASVOO2J","ug m-3",5.2461E-06,5.6070E-06,5.8591E-06,6.1050E-06,6.3831E-06,6.7756E-06,7.3102E-06,8.0223E-06,8.6280E-06,9.0049E-06,9.2400E-06,9.4567E-06,9.7166E-06,9.7065E-06,9.6840E-06,9.8930E-06,1.0206E-05,1.0562E-05,1.0481E-05,9.9559E-06,9.2253E-06,8.1361E-06,7.3162E-06,6.7355E-06,6.1725E-06,5.8315E-06,5.9110E-06,6.1681E-06,6.5356E-06,6.8315E-06,7.2809E-06,7.7759E-06,7.8667E-06,7.6351E-06,7.4987E-06,7.5052E-06,7.4703E-06,7.3000E-06,6.8350E-06,5.9525E-06,4.7153E-06,3.1860E-06,1.9263E-06,1.1567E-06 "ASVOO3J","ug m-3",8.2464E-07,8.8371E-07,9.2331E-07,9.6109E-07,1.0033E-06,1.0626E-06,1.1447E-06,1.2629E-06,1.3621E-06,1.4231E-06,1.4579E-06,1.4841E-06,1.5121E-06,1.4941E-06,1.4724E-06,1.4976E-06,1.5420E-06,1.6021E-06,1.5713E-06,1.4588E-06,1.3025E-06,1.0936E-06,9.3670E-07,8.2163E-07,7.0240E-07,6.2954E-07,5.7938E-07,5.4595E-07,5.5106E-07,5.8825E-07,6.4561E-07,7.2622E-07,7.9543E-07,8.3347E-07,8.8382E-07,9.0740E-07,8.6336E-07,7.1759E-07,4.8351E-07,2.7234E-07,2.4121E-07,1.6005E-07,5.0272E-08,1.1887E-08 "AAVB1J","ug m-3",1.8839E-02,1.8888E-02,1.8894E-02,1.8890E-02,1.8893E-02,1.8932E-02,1.9029E-02,1.9278E-02,1.9522E-02,1.9592E-02,1.9593E-02,1.9623E-02,1.9754E-02,1.9757E-02,2.0002E-02,2.0579E-02,2.1891E-02,2.3093E-02,2.3713E-02,2.3562E-02,2.2615E-02,2.0922E-02,1.9658E-02,1.8714E-02,1.7722E-02,1.6799E-02,1.6160E-02,1.5437E-02,1.4717E-02,1.3762E-02,1.2761E-02,1.1684E-02,1.0377E-02,9.0393E-03,7.7784E-03,6.5425E-03,5.2412E-03,3.9928E-03,2.9553E-03,2.1754E-03,1.6675E-03,1.3775E-03,1.0487E-03,7.1746E-04 "AAVB2J","ug m-3",4.7734E-05,4.9831E-05,5.0891E-05,5.1699E-05,5.2466E-05,5.3204E-05,5.3878E-05,5.4499E-05,5.4805E-05,5.4844E-05,5.4750E-05,5.4651E-05,5.4906E-05,5.4829E-05,5.6343E-05,6.1207E-05,7.0147E-05,7.8699E-05,8.4915E-05,8.5514E-05,8.0840E-05,7.5643E-05,7.4661E-05,7.5162E-05,7.5361E-05,7.4824E-05,7.4406E-05,7.4627E-05,7.5974E-05,7.7411E-05,7.8011E-05,7.8180E-05,7.5961E-05,7.3331E-05,7.0990E-05,6.8815E-05,6.4262E-05,5.3976E-05,3.4557E-05,1.2035E-05,3.2381E-06,8.7893E-07,2.3126E-07,9.0071E-08 "AAVB3J","ug m-3",3.4061E-05,3.6093E-05,3.7112E-05,3.7927E-05,3.8764E-05,3.9760E-05,4.0991E-05,4.2854E-05,4.4990E-05,4.7243E-05,5.0234E-05,5.3149E-05,5.7527E-05,6.2230E-05,7.0889E-05,8.3206E-05,1.1255E-04,1.3635E-04,1.5490E-04,1.5442E-04,1.4277E-04,1.2783E-04,1.2350E-04,1.2344E-04,1.2307E-04,1.2123E-04,1.2242E-04,1.2559E-04,1.3106E-04,1.3455E-04,1.3456E-04,1.3207E-04,1.2416E-04,1.1504E-04,1.0435E-04,9.1604E-05,7.7352E-05,5.7361E-05,3.3377E-05,1.2838E-05,4.9334E-06,1.9812E-06,7.0938E-07,2.8518E-07 "AAVB4J","ug m-3",1.9761E-05,2.1064E-05,2.1805E-05,2.2469E-05,2.3191E-05,2.4449E-05,2.6436E-05,3.0008E-05,3.3417E-05,3.6337E-05,3.9592E-05,4.2433E-05,4.6596E-05,5.1547E-05,6.0182E-05,7.0256E-05,9.5123E-05,1.1551E-04,1.3074E-04,1.3105E-04,1.2063E-04,1.0193E-04,9.4814E-05,9.3734E-05,9.1801E-05,8.9551E-05,9.1958E-05,9.4145E-05,9.6379E-05,9.5341E-05,9.2935E-05,9.2534E-05,9.1471E-05,8.5832E-05,7.7841E-05,7.1689E-05,6.4830E-05,5.1998E-05,3.8123E-05,2.5206E-05,1.6020E-05,1.0052E-05,5.4347E-06,2.4709E-06 "AMT1J","ug m-3",4.7589E-03,4.7613E-03,4.7568E-03,4.7500E-03,4.7429E-03,4.7403E-03,4.7440E-03,4.7777E-03,4.8086E-03,4.7967E-03,4.7597E-03,4.7528E-03,4.8317E-03,4.8342E-03,4.8169E-03,4.9174E-03,5.2243E-03,5.6634E-03,5.6483E-03,5.3236E-03,4.6091E-03,3.7105E-03,3.2240E-03,2.9012E-03,2.6328E-03,2.4192E-03,2.2820E-03,2.1304E-03,2.0038E-03,1.8707E-03,1.7369E-03,1.5878E-03,1.4200E-03,1.2797E-03,1.1622E-03,1.0501E-03,9.4989E-04,8.6081E-04,7.5462E-04,6.0403E-04,4.5369E-04,3.3970E-04,2.3606E-04,1.5585E-04 "AMT2J","ug m-3",2.6900E-03,2.7133E-03,2.7255E-03,2.7362E-03,2.7485E-03,2.7666E-03,2.7926E-03,2.8446E-03,2.8960E-03,2.9198E-03,2.9324E-03,2.9803E-03,3.1160E-03,3.2144E-03,3.2942E-03,3.4346E-03,3.7312E-03,4.1147E-03,4.1417E-03,3.9290E-03,3.4153E-03,2.7518E-03,2.4177E-03,2.1994E-03,2.0133E-03,1.8618E-03,1.7674E-03,1.6588E-03,1.5660E-03,1.4657E-03,1.3639E-03,1.2503E-03,1.1214E-03,1.0130E-03,9.2207E-04,8.3639E-04,7.6020E-04,6.9275E-04,6.1049E-04,4.9060E-04,3.6928E-04,2.7612E-04,1.9173E-04,1.2660E-04 "AMT3J","ug m-3",7.4163E-04,7.6468E-04,7.7933E-04,7.9367E-04,8.1030E-04,8.3305E-04,8.6460E-04,9.1831E-04,9.7413E-04,1.0191E-03,1.0637E-03,1.1291E-03,1.2677E-03,1.4329E-03,1.6184E-03,1.8082E-03,2.1630E-03,2.5476E-03,2.6320E-03,2.5288E-03,2.2102E-03,1.7583E-03,1.6031E-03,1.5336E-03,1.4707E-03,1.4211E-03,1.4123E-03,1.3775E-03,1.3397E-03,1.2821E-03,1.2128E-03,1.1275E-03,1.0243E-03,9.3465E-04,8.5897E-04,7.9080E-04,7.3293E-04,6.8350E-04,6.1595E-04,5.0354E-04,3.8243E-04,2.8528E-04,1.9795E-04,1.3087E-04 "AMT4J","ug m-3",2.2434E-04,2.3768E-04,2.4637E-04,2.5525E-04,2.6544E-04,2.8152E-04,3.0579E-04,3.4604E-04,3.8814E-04,4.2581E-04,4.6903E-04,5.2109E-04,6.1926E-04,7.6878E-04,9.9419E-04,1.2130E-03,1.7687E-03,2.4356E-03,2.5265E-03,2.3999E-03,1.9821E-03,1.4531E-03,1.4198E-03,1.4920E-03,1.5759E-03,1.6895E-03,1.8924E-03,2.0871E-03,2.2862E-03,2.4364E-03,2.5413E-03,2.5772E-03,2.5100E-03,2.4153E-03,2.3062E-03,2.1962E-03,2.1070E-03,2.0426E-03,1.9156E-03,1.6222E-03,1.2564E-03,9.4086E-04,6.5513E-04,4.3252E-04 "AMT5J","ug m-3",2.3270E-05,2.4780E-05,2.5728E-05,2.6691E-05,2.7785E-05,2.9669E-05,3.2767E-05,3.8210E-05,4.3564E-05,4.8181E-05,5.3590E-05,5.9837E-05,7.1573E-05,9.0513E-05,1.2137E-04,1.5184E-04,2.5045E-04,3.8795E-04,3.9427E-04,3.7041E-04,2.9461E-04,1.8486E-04,1.8919E-04,2.0966E-04,2.3193E-04,2.6360E-04,3.2787E-04,4.1609E-04,5.2743E-04,6.5229E-04,8.0898E-04,1.0044E-03,1.1860E-03,1.3444E-03,1.4788E-03,1.5988E-03,1.7059E-03,1.7869E-03,1.7800E-03,1.5784E-03,1.2571E-03,9.4570E-04,6.2623E-04,3.5305E-04 "AMT6J","ug m-3",4.1847E-06,4.4415E-06,4.5938E-06,4.7447E-06,4.9147E-06,5.2162E-06,5.7272E-06,6.6616E-06,7.5751E-06,8.3412E-06,9.2290E-06,1.0216E-05,1.2101E-05,1.5183E-05,2.0180E-05,2.4871E-05,4.1332E-05,6.4559E-05,6.5779E-05,6.1321E-05,4.6574E-05,2.6524E-05,2.6423E-05,2.8449E-05,3.0363E-05,3.3080E-05,3.9898E-05,4.9268E-05,6.1125E-05,7.3679E-05,9.0907E-05,1.1973E-04,1.6255E-04,2.0391E-04,2.4709E-04,2.9745E-04,3.5015E-04,3.5865E-04,3.3565E-04,2.7677E-04,2.0213E-04,1.3689E-04,7.4042E-05,2.9350E-05 "NH3","ppmV",6.3263E-05,6.6580E-05,6.8574E-05,7.0703E-05,7.3038E-05,7.6230E-05,8.0828E-05,8.7571E-05,9.4572E-05,1.0086E-04,1.0390E-04,1.1232E-04,1.2387E-04,1.3873E-04,1.5841E-04,1.7360E-04,1.7863E-04,1.8452E-04,1.8097E-04,1.8334E-04,1.7686E-04,1.7454E-04,1.7335E-04,1.7198E-04,1.7212E-04,1.7178E-04,1.6850E-04,1.6090E-04,1.5128E-04,1.5115E-04,1.5462E-04,1.5421E-04,1.4792E-04,1.2817E-04,1.0395E-04,8.0931E-05,5.9276E-05,3.5743E-05,1.6509E-05,4.2976E-06,1.8763E-06,3.6471E-06,3.0765E-06,2.4276E-06 "SVISO1","ppmV",1.2016E-06,1.2560E-06,1.2819E-06,1.3031E-06,1.3281E-06,1.3583E-06,1.4027E-06,1.4751E-06,1.5501E-06,1.6444E-06,1.7842E-06,1.9861E-06,2.3630E-06,2.8100E-06,3.2225E-06,3.6073E-06,4.1782E-06,4.6644E-06,4.9148E-06,5.0160E-06,4.9570E-06,4.6989E-06,4.6166E-06,4.6299E-06,4.6166E-06,4.5820E-06,4.6430E-06,4.6546E-06,4.7034E-06,4.6979E-06,4.6088E-06,4.4071E-06,4.0559E-06,3.7230E-06,3.3679E-06,2.8757E-06,2.2839E-06,1.6765E-06,9.9237E-07,3.8356E-07,1.2052E-07,4.1587E-08,1.6035E-08,1.0905E-08 "SVISO2","ppmV",1.2549E-09,1.2985E-09,1.3167E-09,1.3288E-09,1.3386E-09,1.3462E-09,1.3586E-09,1.3723E-09,1.3846E-09,1.4100E-09,1.4551E-09,1.5724E-09,1.8248E-09,2.0124E-09,2.1213E-09,2.1094E-09,2.0198E-09,1.9077E-09,1.8872E-09,1.9506E-09,1.9940E-09,1.9882E-09,1.8858E-09,1.9489E-09,1.9836E-09,2.0837E-09,2.1980E-09,2.2817E-09,2.2476E-09,2.1767E-09,2.1109E-09,1.9697E-09,1.7720E-09,1.5459E-09,1.2636E-09,8.8227E-10,5.0756E-10,2.4008E-10,9.9037E-11,2.7708E-11,4.5496E-12,6.7860E-13,1.0581E-13,2.0166E-14 "SVSQT","ppmV",6.8254E-08,7.1065E-08,7.2346E-08,7.3351E-08,7.4543E-08,7.5872E-08,7.8027E-08,8.1569E-08,8.5277E-08,9.0604E-08,9.8994E-08,1.1162E-07,1.3082E-07,1.5135E-07,1.6978E-07,1.8405E-07,2.0417E-07,2.2090E-07,2.3008E-07,2.2823E-07,2.2136E-07,2.1034E-07,1.9724E-07,1.9489E-07,1.9331E-07,1.9102E-07,1.9310E-07,1.9066E-07,1.8391E-07,1.7371E-07,1.6337E-07,1.5030E-07,1.3288E-07,1.1671E-07,1.0045E-07,7.9075E-08,5.2376E-08,2.7605E-08,1.0541E-08,2.5259E-09,4.2353E-10,6.8631E-11,1.4371E-11,5.7109E-12 "LVPCSOG","ppmV",4.3898E-12,4.2678E-12,4.1860E-12,4.1094E-12,4.0289E-12,3.9434E-12,3.8487E-12,3.7458E-12,3.6286E-12,3.5035E-12,3.3669E-12,3.2223E-12,3.0604E-12,2.9039E-12,2.7549E-12,2.6216E-12,2.5114E-12,2.4102E-12,2.3278E-12,2.2697E-12,2.1758E-12,2.0803E-12,1.9798E-12,1.8483E-12,1.7078E-12,1.5754E-12,1.4650E-12,1.3548E-12,1.2324E-12,1.1227E-12,1.0307E-12,9.8832E-13,1.0302E-12,1.1657E-12,1.4332E-12,1.8659E-12,2.4589E-12,3.1130E-12,3.7597E-12,4.4119E-12,5.1149E-12,6.1600E-12,8.3718E-12,1.3062E-11 "SVMT1","ppmV",4.9814E-09,4.8163E-09,4.6573E-09,4.4864E-09,4.3002E-09,4.0991E-09,3.8840E-09,3.6578E-09,3.4141E-09,3.1610E-09,2.9116E-09,2.6790E-09,2.4516E-09,2.2114E-09,1.9743E-09,1.7745E-09,1.6145E-09,1.4887E-09,1.3829E-09,1.2432E-09,1.0268E-09,8.0390E-10,5.9161E-10,4.1952E-10,2.8538E-10,1.8557E-10,1.1546E-10,6.8528E-11,3.8280E-11,1.9817E-11,9.3811E-12,4.0556E-12,1.5904E-12,5.8078E-13,1.9773E-13,6.9597E-14,2.9913E-14,1.5995E-14,9.6987E-15,6.1497E-15,3.2909E-15,1.6518E-15,1.6809E-15,3.9178E-15 "SVMT2","ppmV",5.2970E-08,5.2188E-08,5.1162E-08,4.9970E-08,4.8633E-08,4.7152E-08,4.5561E-08,4.3859E-08,4.1928E-08,3.9902E-08,3.8004E-08,3.6542E-08,3.5497E-08,3.3935E-08,3.1892E-08,2.9886E-08,2.8215E-08,2.6977E-08,2.5829E-08,2.3839E-08,2.0376E-08,1.6625E-08,1.2922E-08,9.7237E-09,7.0715E-09,4.9043E-09,3.2721E-09,2.0892E-09,1.2578E-09,7.0875E-10,3.6987E-10,1.7812E-10,7.8673E-11,3.2567E-11,1.2669E-11,5.0353E-12,2.4080E-12,1.4265E-12,9.3142E-13,6.2605E-13,4.1562E-13,3.1616E-13,3.2756E-13,5.4590E-13 "SVMT3","ppmV",1.1953E-07,1.2146E-07,1.2162E-07,1.2131E-07,1.2094E-07,1.2057E-07,1.2049E-07,1.2112E-07,1.2116E-07,1.2127E-07,1.2249E-07,1.2686E-07,1.3723E-07,1.4626E-07,1.5062E-07,1.5294E-07,1.5581E-07,1.5870E-07,1.6086E-07,1.5490E-07,1.3899E-07,1.2041E-07,1.0138E-07,8.4621E-08,6.9144E-08,5.4070E-08,4.1051E-08,2.9746E-08,2.0274E-08,1.2952E-08,7.7199E-09,4.2562E-09,2.1663E-09,1.0341E-09,4.7218E-10,2.2133E-10,1.1818E-10,7.4981E-11,5.2146E-11,3.7527E-11,2.6792E-11,2.1672E-11,2.3123E-11,3.7852E-11 "SVMT4","ppmV",3.5981E-07,3.7339E-07,3.7909E-07,3.8332E-07,3.8817E-07,3.9417E-07,4.0327E-07,4.1913E-07,4.3526E-07,4.5299E-07,4.7751E-07,5.1643E-07,5.9371E-07,6.8351E-07,7.6208E-07,8.2222E-07,9.1629E-07,1.0005E-06,1.0590E-06,1.0561E-06,9.6548E-07,8.5523E-07,7.6717E-07,7.1014E-07,6.5519E-07,5.9582E-07,5.4112E-07,4.7342E-07,4.0027E-07,3.2292E-07,2.4581E-07,1.7347E-07,1.1245E-07,6.9264E-08,4.0671E-08,2.3949E-08,1.5046E-08,1.0640E-08,8.1057E-09,6.3616E-09,4.9421E-09,4.2649E-09,4.6865E-09,7.4640E-09 "SVMT5","ppmV",4.8227E-07,5.0297E-07,5.1222E-07,5.1948E-07,5.2782E-07,5.3843E-07,5.5437E-07,5.8130E-07,6.0940E-07,6.4042E-07,6.8234E-07,7.4601E-07,8.7030E-07,1.0218E-06,1.1708E-06,1.2891E-06,1.5222E-06,1.7583E-06,1.8623E-06,1.8643E-06,1.7015E-06,1.4399E-06,1.3353E-06,1.2917E-06,1.2562E-06,1.2263E-06,1.2227E-06,1.2004E-06,1.1681E-06,1.1188E-06,1.0537E-06,9.5839E-07,8.3844E-07,7.2962E-07,6.2509E-07,5.2627E-07,4.4195E-07,3.8410E-07,3.4509E-07,3.1134E-07,2.7608E-07,2.6315E-07,2.8366E-07,3.7405E-07 "SVMT6","ppmV",9.6798E-07,1.0100E-06,1.0289E-06,1.0438E-06,1.0609E-06,1.0828E-06,1.1158E-06,1.1717E-06,1.2301E-06,1.2941E-06,1.3803E-06,1.5107E-06,1.7650E-06,2.0760E-06,2.3844E-06,2.6307E-06,3.1260E-06,3.6338E-06,3.8467E-06,3.8512E-06,3.5157E-06,2.9460E-06,2.7421E-06,2.6658E-06,2.6056E-06,2.5634E-06,2.5908E-06,2.5927E-06,2.5953E-06,2.5676E-06,2.5426E-06,2.4993E-06,2.4111E-06,2.3471E-06,2.3118E-06,2.2701E-06,2.2530E-06,2.3049E-06,2.3500E-06,2.2633E-06,2.1018E-06,1.9887E-06,1.8570E-06,1.7707E-06 ================================================ FILE: PREP/bcon/src/profile/legacy_PM_toxics_profile.csv ================================================ # # # Aerosol toxics species for multipollutant mechanism, extracted from # legacy ICON profile # Profile Source: Bill Hutzell (hutzell.bill@epa.gov) # # Vertical layers: 6 # Meteorological fields: # ZF taken from CMAQ science document, page 12-22 (EPA/600/R-99/030) # ZH calculated from ZF # Chemical mechanism: Multipollutant # Top level pressure: assumed to be 100mb # The vertical sigma levels: 1.00,0.98,0.93,0.84,0.60,0.30,0.00 VNAME,UNITS,LAYER01,LAYER02,LAYER03,LAYER04,LAYER05,LAYER06 "ZF","m",152.0,544.0,1289.0,3600.0,7621.0,16069.0 "ZH","m",76.0,348.0,916.5,2444.5,5610.5,11845.0 "ANIJ","ug m-3",9.508E-05,8.090E-05,5.332E-05,2.387E-05,5.912E-06,5.912E-06 "ACR_IIIJ","ug m-3",7.500E-06,6.382E-06,4.206E-06,1.883E-06,4.663E-07,4.663E-07 "ACR_VIJ","ug m-3",7.500E-06,6.382E-06,4.206E-06,1.883E-06,4.663E-07,4.663E-07 "APBJ","ug m-3",1.409E-05,1.199E-05,7.899E-06,3.536E-06,8.758E-07,8.758E-07 "APBK","ug m-3",9.390E-06,7.990E-06,5.266E-06,2.357E-06,5.839E-07,5.839E-07 "ACDJ","ug m-3",1.761E-06,1.498E-06,9.874E-07,4.420E-07,1.095E-07,1.095E-07 "AMN_HAPSJ","ug m-3",9.390E-05,7.990E-05,5.266E-05,2.357E-05,5.839E-06,5.839E-06 "AMN_HAPSK","ug m-3",1.409E-04,1.199E-04,7.899E-05,3.536E-05,8.758E-06,8.758E-06 ================================================ FILE: PREP/bcon/src/profile/prof_bcout.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/BCON/src/profile/prof_bcout.F,v 1.2 2011/10/21 16:52:36 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% SUBROUTINE PROF_BCOUT ( LOGUNIT, PROF_FL_NAME ) C*********************************************************************** C Function: Reads the input profile concentration file and opens and C writes the output BC file C Preconditions: None C Key Subroutines/Functions Called: OPN_BC_FILE C PROF_VINTERP C Revision History: C Prototype created by Jerry Gipson, January, 1998 C Modified April 1998 by JG to remove ppb option for input profile file C 02/25/02 Steve Howard (Jeff Young) - dynamic allocation C 01/05/05 J.Young: vert dyn alloc - Use VGRD_DEFN C 13 Jul 11 J.Young: Replaced I/O API include files with M3UTILIO and C Namelist for species definitions C 23 May 12 J.Young: Replaced BC_PARMS include file with an F90 module C 19 Sep 18 C.Hogrefe and S.Roselle: Adapted to read new profile format; C removed species mapping C*********************************************************************** USE HGRD_DEFN ! Module to store and load the horizontal grid variables USE VGRD_DEFN ! vertical layer specifications USE M3UTILIO ! IOAPI module USE BC_PARMS ! BCON parameters IMPLICIT NONE C Arguments: INTEGER LOGUNIT ! Unit number for output log CHARACTER( 256 ) :: PROF_FL_NAME ! Input profile file name C Parameters: none C Local Variables: CHARACTER( 80 ) :: MSG = ' ' ! Log message CHARACTER( 16 ) :: PNAME = 'PROF_BCOUT' ! Procedure Name CHARACTER( 16 ) :: VNAME ! Species name on CTM conc file CHARACTER( 16 ), ALLOCATABLE :: BC_FNAME( : ) ! Logical names of IC Output file(s) CHARACTER(1000) :: RECORD CHARACTER(16), ALLOCATABLE :: VNAME_PROF_TEMP(:) CHARACTER(16), ALLOCATABLE :: VUNIT_PROF_TEMP(:) CHARACTER(16), ALLOCATABLE :: PROF_SP_NAME( : ) ! Profile species names CHARACTER(16), ALLOCATABLE :: UNITS_IN( : ) ! Units for CTM species CHARACTER(80), ALLOCATABLE :: VDESC_IN( : ) ! Variable description for CTM species INTEGER NSPCS_IN ! Total No. of species in input file(s) INTEGER NLAYS_IN ! No. of layers in input file INTEGER C ! Cell loop index INTEGER FLN ! IC output file number INTEGER L ! Layer loop index INTEGER N ! Loop indices for species INTEGER PFILE ! Unit number of profile file INTEGER SDATE ! Date for IC Output INTEGER STIME ! Time for IC output INTEGER TSTEP ! Timestep for IC Output INTEGER I, K, NVARS, NFIELDS INTEGER IOSTATUS INTEGER ALLOCSTAT ! Status returned from array allocation INTEGER, ALLOCATABLE :: VTYPE_IN( : ) ! variable type for CTM species LOGICAL LNEG ! Flag for negative concentrations REAL, ALLOCATABLE :: ZH_IN( : ) ! Input layer heights REAL, ALLOCATABLE :: COUT( :,: ) ! Output BC conc REAL, ALLOCATABLE :: INPROF( :,: ) ! Input conc profiles REAL, ALLOCATABLE :: VIPROF( :,:,: ) ! Vertically interp profiles REAL, ALLOCATABLE :: VAR_PROF_TEMP( :,: ) INTERFACE SUBROUTINE PROF_VINTERP( LOGUNIT, NSPCS_IN, NLAYS_IN, ZH_IN, & CONCIN, CONCOUT ) INTEGER, INTENT( IN ) :: LOGUNIT INTEGER, INTENT( IN ) :: NSPCS_IN INTEGER, INTENT( IN ) :: NLAYS_IN REAL, INTENT( IN ) :: ZH_IN( : ) REAL, INTENT( IN ) :: CONCIN( :,: ) REAL, INTENT( OUT ) :: CONCOUT( :,:,: ) END SUBROUTINE PROF_VINTERP SUBROUTINE OPN_BC_FILE ( LOGUNIT, SDATE, STIME, TSTEP, NSPCS_OUT, & SPNAME_OUT, VTYPE_OUT, UNITS_OUT, & VDESC_OUT, BC_FNAME, RINDX ) CHARACTER( 16 ), INTENT( OUT ) :: BC_FNAME( : ) CHARACTER( 16 ), INTENT( IN ) :: SPNAME_OUT( : ) CHARACTER( 16 ), INTENT( IN ) :: UNITS_OUT( : ) CHARACTER( 80 ), INTENT( IN ) :: VDESC_OUT( : ) INTEGER, INTENT( IN ) :: LOGUNIT INTEGER, INTENT( IN ) :: NSPCS_OUT INTEGER, INTENT( IN ) :: RINDX INTEGER, INTENT( IN ) :: SDATE INTEGER, INTENT( IN ) :: STIME INTEGER, INTENT( IN ) :: TSTEP INTEGER, INTENT( IN ) :: VTYPE_OUT( : ) END SUBROUTINE OPN_BC_FILE END INTERFACE C*********************************************************************** IF ( NTHIK .NE. 1 ) THEN MSG = 'Only NTHIK = 1 currently allowed' CALL M3EXIT ( PNAME, 0, 0, MSG, XSTAT2 ) END IF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Read the input profile file data cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc PFILE = JUNIT() OPEN( UNIT = PFILE, FILE = PROF_FL_NAME, ERR = 999 ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c read comment lines cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc DO READ( PFILE,'(A)',IOSTAT = IOSTATUS ) RECORD IF ( IOSTATUS .NE. 0 ) THEN MSG = 'Error reading profile file' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT2 ) END IF IF ( RECORD(1:1) .NE. '#' ) EXIT END DO cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c done reading comment lines, now parse column names cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc NFIELDS = 1 DO I = 1, LEN( RECORD ) IF ( RECORD(I:I) .EQ. ',' ) NFIELDS = NFIELDS + 1 END DO NLAYS_IN = NFIELDS - 2 ! fields 1 and 2 are name and units cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c allocate arrays cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc ALLOCATE( VAR_PROF_TEMP( MX_INFL_SP, NLAYS_IN ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN MSG = 'Failure allocating VAR_PROF_TEMP' CALL M3EXIT ( PNAME, 0, 0, MSG, XSTAT1 ) END IF ALLOCATE( INPROF( NLAYS_IN, MX_INFL_SP ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN MSG = 'Failure allocating INPROF' CALL M3EXIT ( PNAME, 0, 0, MSG, XSTAT1 ) END IF ALLOCATE( ZH_IN( NLAYS_IN ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN MSG = 'Failure allocating ZH_IN' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF ALLOCATE( VNAME_PROF_TEMP( MX_INFL_SP ), & VUNIT_PROF_TEMP( MX_INFL_SP ), & PROF_SP_NAME( MX_INFL_SP ), & STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN MSG = 'Failure allocating VNAME_PROF_TEMP, VUNIT_PROF_TEMP, PROF_SP_NAME' CALL M3EXIT ( PNAME, 0, 0, MSG, XSTAT1 ) END IF ALLOCATE( UNITS_IN( MX_INFL_SP ), & VDESC_IN( MX_INFL_SP ), & VTYPE_IN( MX_INFL_SP ), & STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN MSG = 'Failure allocating UNITS_IN, VDESC_IN, VTYPE_IN' CALL M3EXIT ( PNAME, 0, 0, MSG, XSTAT1 ) END IF ALLOCATE( BC_FNAME( MXCTMS ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN MSG = 'Failure allocating BC_FNAME' CALL M3EXIT ( PNAME, 0, 0, MSG, XSTAT1 ) END IF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c read data fields cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc NVARS = 1 DO READ( PFILE,*,IOSTAT = IOSTATUS ) & VNAME_PROF_TEMP( NVARS ), & VUNIT_PROF_TEMP( NVARS ), & ( VAR_PROF_TEMP( NVARS,K ), K=1,NLAYS_IN ) IF ( IOSTATUS .NE. 0 ) THEN IF ( NVARS .EQ. 1 ) THEN ! error in first data line MSG = 'Error: no species data in profile file' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT2 ) ELSE EXIT END IF END IF NVARS = NVARS + 1 END DO NVARS = NVARS - 1 cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c load data into species arrays cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc NSPCS_IN = 0 INPROF = 0.0 DO N = 1, NVARS IF ( N .EQ. INDEX1( 'PRES', NVARS, VNAME_PROF_TEMP ) ) THEN CYCLE ELSE IF ( N .EQ. INDEX1( 'ZH', NVARS, VNAME_PROF_TEMP ) ) THEN DO L = 1, NLAYS_IN ZH_IN( L ) = VAR_PROF_TEMP( N,L ) END DO ELSE IF ( N .EQ. INDEX1( 'ZF', NVARS, VNAME_PROF_TEMP ) ) THEN CYCLE ELSE IF ( N .EQ. INDEX1( 'WVEL', NVARS, VNAME_PROF_TEMP ) ) THEN CYCLE ELSE NSPCS_IN = NSPCS_IN + 1 PROF_SP_NAME( NSPCS_IN ) = VNAME_PROF_TEMP( N ) UNITS_IN( NSPCS_IN ) = VUNIT_PROF_TEMP( N ) VTYPE_IN( NSPCS_IN ) = M3REAL VDESC_IN( NSPCS_IN ) = VNAME_PROF_TEMP( N ) DO L = 1, NLAYS_IN INPROF( L,NSPCS_IN ) = VAR_PROF_TEMP( N,L ) END DO END IF END DO ALLOCATE( VIPROF( NBNDY, NLAYS, NSPCS_IN ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN MSG = 'Failure allocating VIPROF' CALL M3EXIT ( PNAME, 0, 0, MSG, XSTAT1 ) END IF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c vertical interpolation cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc CALL PROF_VINTERP( LOGUNIT, NSPCS_IN, NLAYS_IN, ZH_IN, INPROF, VIPROF ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Open BC output file cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc SDATE = 0 STIME = 0 TSTEP = 0 CALL OPN_BC_FILE( LOGUNIT, SDATE, STIME, TSTEP, NSPCS_IN, & PROF_SP_NAME, VTYPE_IN, UNITS_IN, VDESC_IN, & BC_FNAME, 1 ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Write the output BC concentrations cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc ALLOCATE( COUT( NBNDY, NLAYS ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN MSG = 'Failure allocating COUT' CALL M3EXIT ( PNAME, 0, 0, MSG, XSTAT1 ) END IF LNEG = .FALSE. DO N = 1, NSPCS_IN FLN = ( N - 1 ) / MXVARS3 + 1 VNAME = PROF_SP_NAME( N ) DO L = 1, NLAYS DO C = 1, NBNDY COUT( C,L ) = VIPROF( C,L,N ) END DO END DO IF ( .NOT. WRITE3( BC_FNAME( FLN ), VNAME, SDATE, STIME, & COUT ) ) THEN MSG = 'Could not WRITE species ' // VNAME // & 'to file ' // BC_FNAME( FLN ) CALL M3EXIT( PNAME, SDATE, STIME, MSG, XSTAT2 ) END IF END DO IF ( LNEG ) THEN MSG = 'Negative ICs output' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT2 ) END IF RETURN 999 CONTINUE MSG = 'Could not open file ' // PROF_FL_NAME CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT2 ) END ================================================ FILE: PREP/bcon/src/profile/prof_driver.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/BCON/src/profile/prof_driver.F,v 1.2 2011/10/21 16:52:36 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% SUBROUTINE PROF_INBNDY( LOGUNIT ) C*********************************************************************** C Function: Opens the input profile data file, and calls the routine to C compute the BCs and write the output BC file C Preconditions: None C Key Subroutines/Functions Called: PROF_BCOUT C Revision History: C Prototype created by Jerry Gipson, January, 1998 C Modified April 1998 by JG to remove ppb option for input profile file C 13 Jul 11 J.Young: Replaced I/O API include files with M3UTILIO C and Namelist for species definitions C 23 May 12 J.Young: Replaced BC_PARMS include file with an F90 module C 17 Sep 18 S.Roselle: Removed species mapping C*********************************************************************** USE M3UTILIO ! IOAPI module USE BC_PARMS ! BCON parameters IMPLICIT NONE C Arguments: INTEGER, INTENT( IN ) :: LOGUNIT ! Unit number for output log C Parameters: None C Local Variables: CHARACTER( 16 ) :: ENV_DFLT = ' ' ! Environment variable default value CHARACTER( 80 ) :: ENV_DESC ! Environment variable description CHARACTER( 80 ) :: MSG ! Log message CHARACTER( 16 ) :: PNAME = 'PROF_INBNDY' ! Program name CHARACTER( 256 ) :: PROF_FL_NAME ! Input profile file name CHARACTER( 16 ) :: BC_PROFILE = 'BC_PROFILE' ! Logical name of input profile file INTEGER STATUS ! Status code INTERFACE SUBROUTINE PROF_BCOUT ( LOGUNIT, PROF_FL_NAME ) INTEGER, INTENT( IN ) :: LOGUNIT CHARACTER( 256 ), INTENT( IN ) :: PROF_FL_NAME END SUBROUTINE PROF_BCOUT END INTERFACE C*********************************************************************** WRITE( LOGUNIT, 92000 ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Open the input profile file, read the number of species and their c names, and list the file on the output log cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc ENV_DESC = 'Input BC Profile file' CALL ENVSTR ( BC_PROFILE, ENV_DESC, ENV_DFLT, PROF_FL_NAME, STATUS ) IF ( STATUS .NE. 0 ) THEN MSG = 'No BC profile file assigned to BC_PROFILE' CALL M3EXIT ( PNAME, 0, 0, MSG, XSTAT2 ) END IF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Compute BCs from the input PROFILE and output cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc CALL PROF_BCOUT( LOGUNIT, PROF_FL_NAME ) RETURN C************************* FORMAT STATEMENTS *************************** 92000 FORMAT( // 1X, 79( '#' ) & / 1X, '# Input file section ' & / 1X, 79( '#' ) & // 5X, 'Boundary Concentrations from an input BC profile ', & 'file.' & / 5X, 'BCs do not vary with time.' ) END ================================================ FILE: PREP/bcon/src/profile/prof_vinterp.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/BCON/src/profile/prof_vinterp.F,v 1.2 2011/10/21 16:52:36 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% SUBROUTINE PROF_VINTERP ( LOGUNIT, NSPCS_IN, NLAYS_IN, ZH_IN, & CONCIN, CONCOUT ) C*********************************************************************** C Function: Interpolates/Extrapolates concentrations in vertical. C The number of layers in CONCIN is collapsed or expanded C according to the number of layers in COORD.EXT. C Interpolation is done using rational function interpolation C ( Numerical Recipes, Press et al.) or linear C interpolation. When extapolation is required, the C concentration of the outside layer is used. If the input C file has only one layer, the concentrations in that layer C are used for all output layers. C Preconditions: None C Key Subroutines/Functions Called: LR_INTERP C C Revision History: C Prototype created by Jerry Gipson, January, 1998 C 02/25/02 Steve Howard (Jeff Young) - dynamic allocation C 01/05/05 J.Young: vert dyn alloc - Use VGRD_DEFN C 13 Jul 11 J.Young: Replaced I/O API include files with M3UTILIO C 23 May 12 J.Young: Replaced BC_PARMS include file with an F90 module C 21 Sep 19 S.Roselle: Reconfigured to do vertical interpolation to C target boundary vertical layer heights (ZH) C 30 Nov 18 S.Roselle: To provide spatially uniform BCs, target boundary C average mid-layer heights are used for the vertical C interpolation C 10 June 19 F.Sidi : Commented out INTEGER STATUS unused variable C*********************************************************************** USE HGRD_DEFN ! Module to store and load the horizontal grid variables USE VGRD_DEFN ! vertical layer specifications USE M3UTILIO ! IOAPI module USE BC_PARMS ! BCON parameters IMPLICIT NONE C Arguments: INTEGER, INTENT( IN ) :: LOGUNIT ! Unit number for output log INTEGER, INTENT( IN ) :: NSPCS_IN ! No. of species in input profile INTEGER, INTENT( IN ) :: NLAYS_IN ! No. of layers in input profile REAL, INTENT( IN ) :: ZH_IN( : ) ! Input layer heights REAL, INTENT( IN ) :: CONCIN( :,: ) ! Input conc array REAL, INTENT( OUT ) :: CONCOUT( :,:,: ) ! Output BC array C Parameters: None C External Functions: None C Local Variables: CHARACTER( 80 ) :: MSG ! Log message CHARACTER( 16 ) :: PNAME = 'PROF_VINTERP' ! Procedure Name CHARACTER( 16 ) :: VNAME ! Variable Name INTEGER L ! Loop index for vertical layers INTEGER N ! Loop index INTEGER C ! Loop index for boundary cells ! INTEGER STATUS ! Status code INTEGER JDATE ! Date for first record on BDY file INTEGER JTIME ! Time for first record on BDY file INTEGER ALLOCSTAT ! Status returned from array allocation LOGICAL L_RATINT ! Flag to use rational function interpolation REAL DELY ! Error estimate for conc interpolated by rational func REAL X3 ! Vertical coordinate used in interpolation REAL Y ! Interpolated concentration REAL, ALLOCATABLE :: WORKA( : ) ! Work array for conc input REAL, ALLOCATABLE :: X3_OLD( : ) ! Old Vertical coordinate values REAL, ALLOCATABLE :: ZH_OUT( :,: ) ! mid-layer heights for target BDY file REAL, ALLOCATABLE :: ZH_OUT_AVG( : ) ! avg mid-layer hts for target BDY file INTERFACE SUBROUTINE LR_INTERP ( L_RATINT, XA, YA, N, X, Y, DELY ) LOGICAL, INTENT( IN ) :: L_RATINT REAL, INTENT( IN ) :: XA( : ) REAL, INTENT( IN ) :: YA( : ) REAL, INTENT( IN ) :: X REAL, INTENT( OUT ) :: Y REAL, INTENT( OUT ) :: DELY INTEGER, INTENT( IN ) :: N END SUBROUTINE LR_INTERP END INTERFACE C*********************************************************************** ALLOCATE( WORKA( NLAYS_IN ), & X3_OLD( NLAYS_IN ), & ZH_OUT( NBNDY,NLAYS ), & ZH_OUT_AVG( NLAYS ), & STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN MSG = 'Failure allocating WORKA, X3_OLD, ZH_OUT, ZH_OUT_AVG' CALL M3EXIT ( PNAME, 0, 0, MSG, XSTAT1 ) END IF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c open MET_BDY_3D_FIN file cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF ( .NOT. OPEN3 ( MET_BDY_3D_FIN, FSREAD3, PNAME ) ) THEN MSG = 'Could not open ' // MET_BDY_3D_FIN // ' file' CALL M3EXIT ( PNAME, 0, 0, MSG, XSTAT1 ) END IF JDATE = SDATE3D JTIME = STIME3D cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Determine type of interpolation to use: linear or rational function cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc L_RATINT = .FALSE. MSG = 'Flag for interpolation by rational function' ! L_RATINT = ENVYN( 'RATIONAL_FUNC', MSG, L_RATINT, STATUS ) IF ( .NOT. L_RATINT ) THEN MSG = 'Linear vertical interpolation used' ELSE MSG = 'Vertical interpolation by rational function' END IF CALL M3MESG( MSG ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Interpolate by ZH cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C Get the layer mid-point heights VNAME = 'ZH' IF ( .NOT. READ3( MET_BDY_3D_FIN, VNAME, ALLAYS3, JDATE, JTIME, & ZH_OUT ) ) THEN MSG = 'Could not read layer heights form file ' // MET_BDY_3D_FIN CALL M3ERR( PNAME, JDATE, JTIME, MSG, .TRUE. ) END IF C Compute domain average layer mid-point heights ZH_OUT_AVG = 0.0 DO L = 1, NLAYS DO C = 1, NBNDY ZH_OUT_AVG( L ) = ZH_OUT_AVG( L ) + ZH_OUT( C,L ) END DO ZH_OUT_AVG( L ) = ZH_OUT_AVG( L ) / NBNDY END DO DO L = 1, NLAYS_IN X3_OLD( L ) = ZH_IN( L ) END DO CONCOUT = 0.0 DO N = 1, NSPCS_IN DO L = 1, NLAYS_IN WORKA( L ) = CONCIN( L,N ) END DO IF ( NLAYS_IN .EQ. 1 ) THEN DO L = 1, NLAYS DO C = 1, NBNDY CONCOUT( C,L,N ) = WORKA( 1 ) END DO END DO ELSE DO L = 1, NLAYS X3 = ZH_OUT_AVG( L ) IF ( X3 .LT. X3_OLD( 1 ) ) THEN DO C = 1, NBNDY CONCOUT( C,L,N ) = WORKA( 1 ) END DO ELSE IF ( X3 .GT. X3_OLD( NLAYS_IN ) ) THEN DO C = 1, NBNDY CONCOUT( C,L,N ) = WORKA( NLAYS_IN ) END DO ELSE DO C = 1, NBNDY CALL LR_INTERP( L_RATINT, X3_OLD, WORKA, NLAYS_IN, & X3, Y, DELY ) CONCOUT( C,L,N ) = Y END DO END IF END DO END IF END DO RETURN END ================================================ FILE: PREP/bcon/src/tracer/trac_bc.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/BCON/src/tracer/trac_bc.F,v 1.2 2011/10/21 16:52:37 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% SUBROUTINE TRAC_BC ( TRNAME, TCOUT ) C*********************************************************************** C Function: Compute BCs for special tracer tests C Preconditions: None C Key Subroutines/Functions Called: C Revision History: C Prototype created by Daewon Byun C Modified for implementation in Models-3 ICON by Jerry Gipson, January, 1998 C 02/25/02 Steve Howard (Jeff Young) - dynamic allocation C 20 Jul 11 J.Young: Convert for Namelist redesign C 23 May 12 J.Young: Replaced BC_PARMS include file with an F90 module C*********************************************************************** USE HGRD_DEFN ! Module to store and load the horizontal grid variables USE VGRD_DEFN ! vertical layer specifications USE M3UTILIO ! IOAPI module USE BC_PARMS ! BCON parameters IMPLICIT NONE C Include Files: C Arguments: CHARACTER( 16 ), INTENT( IN ) :: TRNAME ! Tracer name REAL, INTENT( OUT ) :: TCOUT( :,: ) C Parameters: INTEGER, PARAMETER :: CELL_RAD = 3 ! Radius for superposition tracers ! INTEGER, PARAMETER :: COL_PEAK = 10 ! Location of center of peak for superposition tracers ! INTEGER, PARAMETER :: ROW_PEAK = 10 ! Location of center of peak for superposition tracers REAL, PARAMETER :: CMAX = 50.0 ! Max tracer conc for superposition tracers REAL, PARAMETER :: CMIN = 50.0 ! Min tracer conc for superposition tracers C External Functions: None C Saved Local Variables: LOGICAL, SAVE :: LFIRST = .TRUE. ! Flag for first call REAL, SAVE, ALLOCATABLE :: SHAPE( : ) ! Shape factor for superposition tracers C Local Variables: CHARACTER( 16 ) :: PNAME = 'TRAC_BC' ! Procedure name CHARACTER( 80 ) :: MSG ! Log message INTEGER COL_PEAK ! Location of center of peak for superposition tracers INTEGER ROW_PEAK ! Location of center of peak for superposition tracers INTEGER C, R, L ! Grid loop indices INTEGER N ! Boundary cell counter INTEGER ALLOCSTAT ! Status returned from array allocation INTEGER, SAVE, ALLOCATABLE :: BCOL( : ) ! Map from boundary cell no. to grid column INTEGER, SAVE, ALLOCATABLE :: BROW( : ) ! Map from boundary cell no. to grid row REAL DISTSQ ! Distance squared for for superposition tracers REAL RADSQ ! Hill radius squared for superposition tracers REAL XDIST ! x-distance for for superposition tracers REAL YDIST ! y-distance for for superposition tracers C*********************************************************************** cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Compute shape factors for superposition tracers on first call cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF ( LFIRST ) THEN LFIRST = .FALSE. C Allocate memory for Saved array ALLOCATE( SHAPE( NBNDY ), BCOL( NBNDY ), BROW( NBNDY ), & STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN MSG = 'Failure allocating SHAPE, BCOL, BROW' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF N = 0 C South edge DO C = 1, NCOLS N = N + 1 BCOL( N ) = C BROW( N ) = 1 END DO N = N + 1 BCOL( N ) = NCOLS BROW( N ) = 1 C East edge DO R = 1, NROWS N = N + 1 BCOL( N ) = NCOLS BROW( N ) = R END DO N = N + 1 BCOL( N ) = NCOLS BROW( N ) = NROWS C North edge N = N + 1 BCOL( N ) = 1 BROW( N ) = NROWS DO C = 1, NCOLS N = N + 1 BCOL( N ) = C BROW( N ) = NROWS END DO C West edge N = N + 1 BCOL( N ) = 1 BROW( N ) = 1 DO R = 1, NROWS N = N + 1 BCOL( N ) = 1 BROW( N ) = R END DO RADSQ = FLOAT( CELL_RAD ) ** 2 COL_PEAK = NCOLS / 2 ROW_PEAK = NROWS / 2 DO N = 1, NBNDY SHAPE( N ) = 0.0 XDIST = ABS( FLOAT( BCOL( N ) - COL_PEAK ) ) YDIST = ABS( FLOAT( BROW( N ) - ROW_PEAK ) ) DISTSQ = XDIST * XDIST + YDIST * YDIST + RADSQ SHAPE( N ) = RADSQ / DISTSQ END DO END IF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Compute the ICs cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF ( TRNAME .EQ. TRAC_NAME( 1 ) ) THEN ! UN_IC1_BC0 DO L = 1, NLAYS DO N = 1, NBNDY TCOUT( N,L ) = 0.0 END DO END DO ELSE IF ( TRNAME .EQ. TRAC_NAME( 2 ) ) THEN ! UN_IC1_BC1 DO L = 1, NLAYS DO N = 1, NBNDY TCOUT( N,L ) = 1.0 END DO END DO ELSE IF ( TRNAME .EQ. TRAC_NAME( 3 ) ) THEN ! UN_IC0_BC1 DO L = 1, NLAYS DO N = 1, NBNDY TCOUT( N,L ) = 1.0 END DO END DO ELSE IF ( TRNAME .EQ. TRAC_NAME( 4 ) ) THEN ! STREET DO L = 1, NLAYS DO N = 1, NBNDY TCOUT( N,L ) = 0.0 END DO END DO ELSE IF ( TRNAME .EQ. TRAC_NAME( 5 ) ) THEN ! CHECKERBOARD DO L = 1, NLAYS DO N = 1, NBNDY TCOUT( N,L ) = 0.0 END DO END DO ELSE IF ( TRNAME .EQ. TRAC_NAME( 6 ) ) THEN ! SPOS_SIG_A DO L = 1, NLAYS DO N = 1, NBNDY TCOUT( N,L ) = 1.0 * CMAX * ( 1.0 + SHAPE( N ) ) + CMIN END DO END DO ELSE IF ( TRNAME .EQ. TRAC_NAME( 7 ) ) THEN ! SPOS_SIG_B DO L = 1, NLAYS DO N = 1, NBNDY TCOUT( N,L ) = 2.0 * CMAX * ( 1.0 + SHAPE( N ) ) - CMIN END DO END DO ELSE IF ( TRNAME .EQ. TRAC_NAME( 8 ) ) THEN ! SPOS_SIG_C DO L = 1, NLAYS DO N = 1, NBNDY TCOUT( N,L ) = - 1.0 * CMAX * ( 1.0 + SHAPE( N ) ) + 2.0 * CMIN END DO END DO END IF RETURN END ================================================ FILE: PREP/bcon/src/tracer/trac_driver.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/BCON/src/tracer/trac_driver.F,v 1.2 2011/10/21 16:52:37 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% SUBROUTINE TRAC_INBNDY ( LOGUNIT ) C*********************************************************************** C Function: Call the routine to compute catalogued special tracer species C BCs and write the Models-3 output file C Preconditions: None C Key Subroutines/Functions Called: C Revision History: C Prototype created by Jerry Gipson, January, 1998 C 02/25/02 Steve Howard (Jeff Young) - dynamic allocation C 19 Jul 11 J.Young: Convert for Namelist redesign + M3UTILIO C 23 May 12 J.Young: Replaced BC_PARMS include file with an F90 module C*********************************************************************** USE HGRD_DEFN ! Module to store and load the horizontal grid variables USE VGRD_DEFN ! vertical layer specifications USE M3UTILIO ! IOAPI USE BC_PARMS ! BCON parameters IMPLICIT NONE C Arguments: INTEGER, INTENT( IN ) :: LOGUNIT ! Unit number for output log C Parameters: None C External Functions: None C Local Variables: CHARACTER( 80 ) :: MSG ! Log message CHARACTER( 16 ) :: PNAME = 'TRAC_INBNDY' ! Procedure name CHARACTER( 16 ) :: VNAME ! Output variable name CHARACTER( 16 ), ALLOCATABLE :: SPNAME_OUT( : ) ! Output tracer names CHARACTER( 16 ), ALLOCATABLE :: UNITS_OUT( : ) ! Output tracer units CHARACTER( 16 ), ALLOCATABLE :: TR_FNAME( : ) ! Output file name INTEGER FLN ! Output file number INTEGER N ! Loop index INTEGER NSPCS_OUT ! Number of IC species on output file(s) INTEGER ALLOCSTAT ! Status returned from array allocation INTEGER SDATE ! Date for IC Output INTEGER STIME ! Time for IC output INTEGER TSTEP ! Time step for output file INTEGER, ALLOCATABLE :: VTYPE_OUT( : ) ! Output tracer variable type REAL, ALLOCATABLE :: TCOUT( :,: ) ! Output tracer concs INTERFACE SUBROUTINE OPN_BC_FILE ( LOGUNIT, SDATE, STIME, TSTEP, NSPCS_OUT, & SPNAME_OUT, VTYPE_OUT, UNITS_OUT, & VDESC_OUT, BC_FNAME, RINDX ) CHARACTER( 16 ), INTENT( OUT ) :: BC_FNAME( : ) CHARACTER( 16 ), INTENT( IN ) :: SPNAME_OUT( : ) CHARACTER( 16 ), INTENT( IN ) :: UNITS_OUT( : ) CHARACTER( 80 ), INTENT( IN ) :: VDESC_OUT( : ) INTEGER, INTENT( IN ) :: LOGUNIT INTEGER, INTENT( IN ) :: NSPCS_OUT INTEGER, INTENT( IN ) :: RINDX INTEGER, INTENT( IN ) :: SDATE INTEGER, INTENT( IN ) :: STIME INTEGER, INTENT( IN ) :: TSTEP INTEGER, INTENT( IN ) :: VTYPE_OUT( : ) END SUBROUTINE OPN_BC_FILE SUBROUTINE TRAC_BC ( TRNAME, TCOUT ) CHARACTER( 16 ), INTENT( IN ) :: TRNAME REAL, INTENT( OUT ) :: TCOUT( :,: ) END SUBROUTINE TRAC_BC END INTERFACE C*********************************************************************** WRITE( LOGUNIT, 92000 ) ALLOCATE( TR_FNAME( MXCTMS ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN MSG = 'Failure allocating TR_FNAME' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF ALLOCATE( UNITS_OUT( NTRACERS ), & SPNAME_OUT( NTRACERS ), & VTYPE_OUT( NTRACERS ), & STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN MSG = 'Failure allocating UNITS_OUT, SPNAME_OUT, VTYPE_OUT' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF NSPCS_OUT = NTRACERS DO N = 1, NSPCS_OUT SPNAME_OUT( N ) = TRAC_NAME( N ) VTYPE_OUT( N ) = M3REAL UNITS_OUT( N ) = "N/A" END DO cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c open the Models3 IC output file(s) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc SDATE = 0 STIME = 0 TSTEP = 0 CALL OPN_BC_FILE( LOGUNIT, SDATE, STIME, TSTEP, & NSPCS_OUT, SPNAME_OUT, VTYPE_OUT, UNITS_OUT, TRAC_DESC, & TR_FNAME, 1 ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c compute the BCs and then write the ooutput file cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc ALLOCATE ( TCOUT( NBNDY,NLAYS ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN MSG = 'Error allocating TCOUT' CALL M3EXIT ( PNAME, 0, 0, MSG, XSTAT2 ) END IF DO N = 1, NSPCS_OUT FLN = ( N - 1 ) / MXVARS3 + 1 VNAME = SPNAME_OUT( N ) CALL TRAC_BC( VNAME, TCOUT ) IF ( .NOT. WRITE3( TR_FNAME( FLN ), VNAME, SDATE, STIME, & TCOUT ) ) THEN MSG = 'Could not WRITE species ' // VNAME // & 'to file ' // TR_FNAME( FLN ) CALL M3EXIT( PNAME, SDATE, STIME, MSG, XSTAT1 ) END IF END DO RETURN C************************* FORMAT STATEMENTS *************************** 92000 FORMAT( // 1X, 79( '#' ) & / 1X, '# TRACER species section ' & / 1X, 79( '#' ) & // 5X, 'The tracer species module has been invoked; ', & 'BCs will be generated for tracer species ONLY.' ) END ================================================ FILE: PREP/create_omi/README.md ================================================ # create_omi This tool creates the OMI input file describing how total ozone column density varies over the globe and time. The file supports CMAQ model's in-line calculation of photolysis rates. Creating the OMI file involves processing observations from satellites, ASCII files for the latitude/longitude distribution of the ozone column for a calendar day. The tool also creates IOAPI files for visualizing observations and the OMI file's data. They can differ because the tool interpolates observations to horizontal resolution of the OMI file. The resolution is an option specified by the run-script. ### Compiling create_omi Compiling requires a **FORTRAN** compiler, **netcdf** and **IOAPI**. If the requirements are met, a user has the below options. 1. Option One: - Copy src directory. - Go into the new directory and modify create_omi.makefile, _the_Makefile_, to define the compiler, library and include paths for netcdf and IOAPI for the case(s) needed. - Set the environment variable _compiler_ to intel, pgi or gcc based on the user's preference. - Type "make clean" then type "make -f create_omi.makefile". 2. Option Two, _requires the bldmake utility for the CMAQ model_: - Execute $CMAQ_HOME/bldit_project.csh with EXT_create_omi option set to Y. - Change directory to $CMAQ_HOME/PREP/create_omi. - Type bldit_create_omi.csh _compiler_. - If you wish to recompile create_omi, go into the created build directory, type "make.it clean". ### Using create_omi for creating an OMI file #### Satellite Inputs To create an OMI file, data for total ozone column density is required. The create_omi tool can use daily ASCII files from two sources via the wget or curl command. 1. NASA TOMS ftp site: - https://acd-ext.gsfc.nasa.gov/anonftp/toms/omi/data/Level3e/ozone - Lat/Lon resolution determined from first data file read - expected filename structure, _L3e_ozone_omi_YYYYMMDD.txt_ - expected data format a. (a) with descriptive information b. (12x,i6) in second and third lines giving the number of latitude and longitude points c. (1x,25i3) in remaining line sgiving total ozone total 2. NASA OPeNAP website: - http://acdisc.gsfc.nasa.gov/opendap/HDF-EOS5/Aura_OMI_Level3/OMTO3d.003 - requires creating an account and local _cookies_ - Lat/Lon resolution is assumed to be 1 by 1 degree ot 180 latitude by 360 longitude points - expected filename structure, _OMI.full.YYYYMMDD.ascii_ or _OMI.ozone.YYYYMMDD.ascii_ - expected data format, comma-space a. character string then total ozone column versus longitude at fixed latitude Both sources were lasted accessed in May of 2020. The scripts directory contains an example for getting data from the NASA TOMS website, _scripts/get_toms_data.q_. When obtaining data files, we recommend getting files bracketing the desire peroid by several days because observations may not available within given latitude/longitude ranges. The omission can occur because of the satillite's orbit, polar night, or equipment failure. To go around the problem, create_omi uses the last available observation or the mean value for a location, in respective presidence. For robust and more useful output files, several months of data are suggested. After downloading data, the get data script checks the downloaded files for \*\*\* strings and replaces each with the string " 0" (two blanks) which denotes a missing value. Sometimes, the former string passes through quality control procedures. The script uses the below commands to make corrections. grep -l "\*\*\*" L3e_ozone_omi_*.txt sed 's/\*\*\*/ 0/g' L3e_ozone_omi_YYYYMMDD.txt > tmp.txt mv -f tmp.txt L3e_ozone_omi_YYYYMMDD.txt Alternatively, a user can search the downloaded files and use a text editor to replace the bad data strings. #### Running create_omi The script subdirectory includes a run-script, _scripts/run_create_omi.csh_. A user should Copy and modify the script before running it. The script sets several environment variables that are runtime options. The below table lists and describes these options. Note that the Defaults values were used to create the OMI file the CMAQ repository under CCTM/src/phot/inline and that the output data is centered and symmetric about the equator. The create_omi tool assumes that all the data files have the same Lat/Lon resolution. ##### Runtime Options |Option |Description | Default Value | |:--------------|:------------------------------------------------------|:----:| | OMI_FILE_LIST | List of data files to process, sorted by calendar date | omi_file.txt | | PREV_DATE | Replace missing observation with last previous observation | True | | NLAT_OMI | Number of latitude points in output. Value should be odd and equal or greater than 17 | 17 | | NLON_OMI | Number of longitude points in output. Value should be odd and equal or greater than 17 | 17 | | LAT_BORDER | Degrees between the first latitude point from adjacent pole. Value cannot be less than observation | 10 | | FULL_FILES | Produce ASCII and IOAPI files at full lat/lon resolution of observations. Not used by the CMAQ model. | False | | OMI_FULL_DAT | OMI data (ASCII) at Lat/Lon Resolution of Observations | omi_full.dat | | OMI_FULL_NCF | OMI data in IOAPI format for visualization at Lat/Lon Resolution of Observations | OMI_FULL_NCF | | OMI_CMAQ_DAT | Processed OMI file (ASCII) for the CMAQ model | omi_cmaq.dat | | OMI_CMAQ_NCF | Processed OMI file in IOAPI format for visualization | OMI_CMAQ_NCF | #### Example Images extracted from IOAPI files. The following images show the ozone column at three different resolution for the same date. The images were created form output files by using eighteen months of data from the TOMS ftp site. 1. 10 by 22.5 degree Lat/Lon Resolution (default values) currently used in OMI data file under **CCTM/src/phot/inline**. ![Ozone Column at Current Resolution](image_files/omi_ozone_column_17X17_May_10_2018.png) 2. 1 by 1 degree Lat/Lon Resolution as determined by the settings in _scripts/cmaq_omi_env.q_. ![Ozone Column at Script Resolution](image_files/omi_ozone_column_179X361_May_10_2018.png) 2. 0.25 by 0.25 degree Lat/Lon Resolution taken from the OMI_FULL_NCF file. ![Ozone Column at Observation's Resolution](image_files/omi_ozone_column_720X1440_May_10_2018.png) ================================================ FILE: PREP/create_omi/scripts/bldit_create_omi.csh ================================================ #! /bin/csh -f # ================== CREATE_OMIv5.5.X Build Script ================== # # Usage: bldit_create_omi.csh >&! bldit_create_omi.log # # Requirements: I/O API & netCDF libraries; a Fortran compiler # # # # To report problems or request help with this script/program: # # http://www.cmascenter.org # # =================================================================== # # ======================================================================= #> Preliminary error checking and environment configuration # ======================================================================= #> Check that the host system is Linux-based set BLD_OS = `uname -s` if ($BLD_OS != 'Linux') then echo " $BLD_OS -> wrong bldit script for host!" exit 1 endif #> Set Compiler Identity by User Input: Options -> intel | pgi | gcc if ( $#argv == 1 ) then setenv compiler $argv[1] setenv compilerVrsn Empty else if ( $#argv == 2 ) then #> Compiler Name and Version have been provided setenv compiler $1 setenv compilerVrsn $2 else echo "usage: $0 " echo " where is intel, pgi or gcc" exit(2) endif #> Source the config.cmaq file to set the build environment cd ../../.. source ./config_cmaq.csh #> Source Code Repository set CMAQ_REPO = "/home/hwo/CCTM_git_repository" setenv PREP_REPO ${CMAQ_REPO}/PREP setenv UTIL_REPO ${CMAQ_REPO}/UTIL setenv REPOROOT ${PREP_REPO}/create_omi #> location of the create_omi's repository #>Work directory set WORK_DIR = ${REPOROOT} #=============================================================================== #> Begin User Input Section #=============================================================================== #> User choices: working directory and application ID set VRSN = v55 #> version set EXEC = create_omi_${VRSN}.exe #> executable name for this application set CFG = create_omi.cfg #> bldmake configuration file name setenv BLDER ${CMAQ_HOME}/UTIL/bldmake/bldmake_${compilerString}.exe #> location of makefile builder executable #> user choice: copy source files set CopySrc #> copy the source files into the BLD directory #set MakeFileOnly # builds a Makefile to make the model, but does not compile - # comment out to also compile the model (default if not set) # set CompileBLDMAKE #> Recompile the BLDMAKE utility from source #> comment out to use an existing BLDMAKE executable set ModDriver = src #> COMBINE Modules #============================================================================================ #> Computing System Configuration: #> Most of these settings are done in config.cmaq #============================================================================================ #> Set full path of Fortran 90 compiler setenv FC ${myFC} set FP = $FC #> Set IO/API version set IOAPI = ioapi_3.1 #> Set compiler flags set FSTD = "${myFSTD}" set DBG = "${myDBG}" setenv F_FLAGS "${myFFLAGS}" set F90_FLAGS = "${myFRFLAGS}" set CPP_FLAGS = "" #> Fortran Preprocessor Flags set LINK_FLAGS = "${myLINK_FLAG}" #> Link Flags set LIB2 = "${ioapi_lib}" #============================================================================================ #> Set up the combine build directory under the POST directory #> for checking out and compiling source code #============================================================================================ set Bld = ${CMAQ_HOME}/PREP/create_omi/scripts/BLD_create_omi_${VRSN}_${compilerString} if ( ! -e "$Bld" ) then mkdir -pv $Bld else if ( ! -d "$Bld" ) then echo " *** target exists, but not a directory ***" exit 1 endif endif cd $Bld #> Check for previous run if ( -e "$Bld/${CFG}" ) then echo " >>> previous ${CFG} exists, re-naming to ${CFG}.old <<<" mv $Bld/${CFG} $Bld/${CFG}.old endif #============================================================================================ #> Make the config file #============================================================================================ set Cfile = ${Bld}/$CFG set quote = '"' echo > $Cfile echo "model $EXEC;" >> $Cfile echo >> $Cfile echo "repo $REPOROOT;" >> $Cfile echo >> $Cfile echo "lib_base ${CMAQ_LIB};" >> $Cfile echo >> $Cfile echo "lib_1 ioapi/lib;" >> $Cfile echo >> $Cfile echo "lib_2 ioapi/include_files;" >> $Cfile echo >> $Cfile echo "lib_3 netcdf/include;" >> $Cfile echo >> $Cfile echo "lib_4 ioapi/lib;" >> $Cfile echo >> $Cfile echo "lib_5 netcdff/include;" >> $Cfile echo set text = "$quote$CPP_FLAGS$quote;" echo "cpp_flags $text" >> $Cfile echo >> $Cfile echo "f_compiler $FC;" >> $Cfile echo >> $Cfile echo "fstd $quote$FSTD$quote;" >> $Cfile echo >> $Cfile echo "dbg $quote$DBG$quote;" >> $Cfile echo >> $Cfile echo "f_flags $quote$F_FLAGS$quote;" >> $Cfile echo >> $Cfile echo "f90_flags $quote$F90_FLAGS$quote;" >> $Cfile echo >> $Cfile echo "link_flags $quote$LINK_FLAGS$quote;" >> $Cfile echo >> $Cfile #echo "libraries $quote$LIBS$quote;" >> $Cfile echo "ioapi $quote$LIB2$quote;" >> $Cfile echo >> $Cfile echo "netcdf $quote$netcdf_lib$quote;" >> $Cfile echo >> $Cfile echo "netcdff $quote$netcdff_lib$quote;" >> $Cfile set text = "combine" echo "// options are" $text >> $Cfile echo "Module ${ModDriver};" >> $Cfile echo >> $Cfile #============================================================================================ #> Use BLDMAKE to create the Makefile and model executable if desired #============================================================================================ unalias mv rm #> Recompile BLDMAKE from source if requested or if it does not exist if ( $?CompileBLDMAKE || ! -f $BLDER ) then cd ${CMAQ_REPO}/UTIL/bldmake/scripts ./bldit_bldmake.csh endif #> Relocate to the BLD_* directory cd $Bld #> Set serial options for BLDMAKE execution set Blder = "$BLDER -serial -verbose" #> Run BLDMAKE Utility if ( $?MakeFileOnly ) then #> Just create the Makefile if ( $?CopySrc ) then $Blder -makefo $Cfile else $Blder -makefo -git_local $Cfile endif else # Also compile the model if ( $?CopySrc ) then $Blder $Cfile else $Blder -git_local $Cfile endif endif #> Save Makefile with Compiler-dependent name and create symbolic #> link back to generic name. mv Makefile Makefile.$compilerString if ( -e Makefile.$compilerString && -e Makefile ) rm Makefile ln -s Makefile.$compilerString Makefile #create make.it script that compiles create_omi without having to source config_cmaq.csh set make_it = "make.it" echo "#! /bin/csh -f" >! ${make_it} echo " " >> ${make_it} echo "source ../../../../config_cmaq.csh "${compiler}" "${compilerVrsn} >> ${make_it} echo 'if ( $#argv == 1 )then' >> ${make_it} echo ' if ( $1 == "clean" )make clean' >> ${make_it} echo "endif" >> ${make_it} echo "make" >> ${make_it} echo "unsetenv compiler" >> ${make_it} echo "unsetenv compilerVrsn" >> ${make_it} echo 'exit()' >> ${make_it} chmod +x ${make_it} #> Check for error during makefile generation if ( $status != 0 ) then echo " *** failure in $Blder ***" exit 1 endif exit ================================================ FILE: PREP/create_omi/scripts/get_toms_data.q ================================================ #! /bin/csh -f set echo #parameters determing what raw data files to download for annual OMI file #RECOMMENDATION: Download data last four months before start of the year and #up to one month after the end of the year. The suggestion attempts to prevent #encountering polar night in northern hemisphere and other possible data gaps. set YEAR_STUDY = "2020" #> year to be covered by OMI file set START_DATE = "2019-09-01" #> beginning date ( Sept 1, 2020) set END_DATE = "2021-02-01" #> ending date ( Feb 1, 2021) #output directory for raw OMI data files set OUTDIR = TOMS_OMI_O3_column/$YEAR_STUDY #download raw data files set BASE = $cwd if( ! ( -e $OUTDIR ) )mkdir -p $OUTDIR cd $OUTDIR set TODAYG = `date -ud "${START_DATE}" +%Y%m%d` #> data string in data file set TODAYJ = `date -ud "${START_DATE}" +%Y%j` #> Convert YYYY-MM-DD to YYYYJJJ set START_DAY = ${TODAYJ} set STOP_DAY = `date -ud "${END_DATE}" +%Y%j` #> Convert YYYY-MM-DD to YYYYJJJ while ($TODAYJ <= $STOP_DAY ) #>Compare dates in terms of YYYYJJJ set year = `date -ud "${TODAYG}" +%Y` wget https://acd-ext.gsfc.nasa.gov/anonftp/toms/omi/data/Level3e/ozone/Y$year/L3e_ozone_omi_"${TODAYG}".txt #> Increment both File and Julian Dates set TODAYG = `date -ud "${TODAYG}+1days" +%Y%m%d` #> Add a day for tomorrow set TODAYJ = `date -ud "${TODAYG}" +%Y%j` #> Convert YYYY-MM-DD to YYYYJJJ end #Loop to the next file to download #search for bad data and implement fixes set bad_files = ` grep -l "\*\*\*" L3e_ozone_omi_*.txt ` foreach file ( $bad_files ) echo "found bad data in ${file} and replacing with missing value flag" sed 's/\*\*\*/ 0/g' $file > tmp.txt \mv -f tmp.txt $file end cd $BASE exit() ================================================ FILE: PREP/create_omi/scripts/run_create_omi.csh ================================================ #! /bin/csh -f # ======================= CREATE_OMI 5.5.X Run Script ======================== # Usage: run_create_omi.csh >&! create_omi.log & # # To report problems or request help with this script/program: # http://www.cmascenter.org # ==================================================================== set echo # ================================================================== #> Runtime Environment Options # ================================================================== #> Choose compiler and set up CMAQ environment with correct #> libraries using config.cmaq. Options: intel | gcc | pgi setenv compiler gcc set echo #> Source the config.cmaq file to set the build environment set BASE = $cwd if( ! ( -e ../src ) )then cd ../../.. source ./config_cmaq.csh else #work offline from CMAQ repository and build environment setenv Offline "Y" echo ${Offline} setenv COMPILER $compiler setenv compilerString ${compiler} setenv CMAQ_HOME $cwd/.. echo "set offline is ${Offline}" endif echo ${CMAQ_HOME} cd $BASE echo $compilerString #define executable and its path set VRSN = v55 #> Code Version set EXEC = create_omi_${VRSN}.exe # uncomment if using executable compiled with debugging flags if( ! ( $?Offline ) )then #define paths and create data file list setenv Debugging if( $?Debugging )then set XBASE = ${BASE}/BLD_create_omi_${VRSN}_${compilerString}_debug else set XBASE = ${BASE}/BLD_create_omi_${VRSN}_${compilerString} endif echo "working online" else set XBASE = ${BASE}/../src echo "working offline" endif echo $XBASE if( ! ( -e ${XBASE}/${EXEC} ) )then \ls ${XBASE}/${EXEC} exit() endif set input_dir = ${BASE} # The below commented out commands set raw data from NASA ASDISC #set YEAR = "2015" #set DATA_DIR = ${input_dir}"/OZONE_asdisc/test_data_"${YEAR} #set infile = acdisc_list.dat #\ls -1 $DATA_DIR/*.ascii >&! ${input_dir}/${infile} # The below commands uses raw data from NASA TOMS set YEAR = "2019" set DATA_DIR = ${BASE}"/TOMS_OMI_O3_column/"${YEAR} #set DATA_DIR = ${BASE}"/TOMS_OMI_O3_column/test_data_"${YEAR} set infile = toms_list.dat \ls -1 $DATA_DIR/*.txt >&! ${input_dir}/${infile} cat ${input_dir}/${infile} #root directory for output files; final output directory set latter. set OUT_ROOT = ${BASE}"/output" #check OMI data file list #optimal results with data for entire length of needed year, plus December of previous year and # at least January 1st of next year set numb_files = ` cat ${input_dir}/${infile} | wc -l ` if( $numb_files < 2 )then echo "Too few files to process" exit() else echo "${numb_files} to process" endif #parameters for routine that creates CMAQ OMI.dat file #Flag to replace missing with previous date setenv PREV_DATE T #Flag to output ASCII and IOAPI file at full lat/lon resolution #Only for visualization. Not used by the CMAQ model setenv FULL_FILES F #Should be an odd number so output data in includes the equator #Minimum value and Default value is 17 #Maximum value dependent on input satellite data setenv NLAT_OMI 17 #setenv NLAT_OMI 719 #Set number of longitude points of ASCII OMI.dat file #Should be an odd number so first and last longitude point equal #Minimum value and Default value is 17 #Maximum value dependent on input satellite data setenv NLON_OMI 17 #setenv NLON_OMI 1441 #Set the degrees between the first latitude point from adjacent pole #Minimum value dependent on input satellite data but greater zero setenv LAT_BORDER 10.0 #setenv LAT_BORDER 1.0 #output directory set OUTDIR = ${OUT_ROOT}"/omi_"${compilerString}"_"${YEAR}"_"${NLAT_OMI}"X"${NLON_OMI} #set output directory, make if needed if( ! ( -d $OUTDIR ) )mkdir -p $OUTDIR #change to output directory if( -d $OUTDIR )then cd $OUTDIR else echo "failure make and/or change output directory" \ls $OUTDIR exit() endif pwd set INFILE = ${input_dir}/${infile} if( -e $INFILE )then setenv OMI_FILE_LIST ${INFILE} else \ls ${INFILE} exit() endif #full resolution OMI data in ascii format set omi_full_dat = omi_full_${YEAR}.dat setenv OMI_FULL_DAT ${OUTDIR}/${omi_full_dat} #subset of OMI data for CMAQ in ascii format set omi_cmaq_dat = omi_cmaq_${YEAR}.dat setenv OMI_CMAQ_DAT ${OUTDIR}/${omi_cmaq_dat} #full resolution OMI data in netcdf/IOAPI format set omi_full_ncf = omi_full_${YEAR}.ncf setenv OMI_FULL_NCF ${OUTDIR}/${omi_full_ncf} #subset of OMI data for CMAQ in netcdf/IOAPI format set omi_cmaq_ncf = omi_cmaq_${YEAR}.ncf setenv OMI_CMAQ_NCF ${OUTDIR}/${omi_cmaq_ncf} #exit() ${XBASE}/${EXEC} #remove fort.* files \rm -f fort.* cd $BASE #report on output directories contents \ls -h -l ${OUTDIR}/* exit() ================================================ FILE: PREP/create_omi/src/create_CMAQ_OMI.f ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/work/rep/arc/CCTM/src/phot/phot_inline/opphot.F,v 1.3 2011/10/21 16:11:28 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE CREATE_CMAQ_OMI ( FILE_NAME, JDATE, LAT, LON ) C----------------------------------------------------------------------- C C FUNCTION: ioapi for OMI ozone column observation C C PRECONDITIONS REQUIRED: C None C C REVISION HISTORY: C Date Who What C -------- ---------- ----------------------------------------- C----------------------------------------------------------------------- USE M3UTILIO IMPLICIT NONE C...Arguments CHARACTER( 16 ), INTENT( IN ) :: FILE_NAME ! name of file INTEGER, INTENT( IN ) :: JDATE ! Start date of file, YYYYDDD REAL, INTENT( IN ) :: LAT( : ) ! center latitudes of file cells REAL, INTENT( IN ) :: LON( : ) ! center longtudes of file cells C...Local variables CHARACTER( 32 ), SAVE :: PNAME = 'CREATE_CMAQ_OMI' CHARACTER( 20 ) :: COMMAND CHARACTER( 96 ) :: XMSG = ' ' INTEGER :: TSTEP ! output time step INTEGER :: N, L, JWL, INCR ! loop variables INTEGER :: SYSTEM ! exteral function for line commands LOGICAL :: EXISTS C----------------------------------------------------------------------- C...Set output file characteristics based on COORD.EXT and open C... the photolysis diagnostic file FTYPE3D = GRDDED3 SDATE3D = JDATE STIME3D = 0 TSTEP3D = 240000 NCOLS3D = SIZE( LON ) - 1 NROWS3D = SIZE( LAT ) NLAYS3D = 1 NTHIK3D = 1 GDTYP3D = LATGRD3 P_ALP3D = 0 P_BET3D = 0 P_GAM3D = 0 XCELL3D = REAL( 360.0 / REAL( NCOLS3D ),8 ) ! 22.5 if ncols3d = 16 YCELL3D = REAL( ABS(LAT(1)-LAT(NROWS3D))/REAL(NROWS3D-1),8 ) ! 10.0 if nrows3d = 17 XORIG3D = -180.0D0 YORIG3D = REAL( LAT( NROWS3D ),8 ) VGTYP3D = 7 VGTOP3D = 5000 VGLVS3D( 1 ) = 1.0 VGLVS3D( 2 ) = 0.9975 GDNAM3D = 'OMI_CMAQ' C...CSA Variables, Units and Descriptions for FILE_NAME N = 1 VNAME3D( N ) = 'OZONE_COLUMN' UNITS3D( N ) = 'DU' VDESC3D( N ) = 'OMI Ozone Column Density' VTYPE3D( N ) = M3REAL NVARS3D = N FDESC3D( 1 ) = 'CMAQ subset of OMI Satellite Obseravations' DO L = 2, MXDESC3 FDESC3D( L ) = ' ' END DO ! Determine if file exists and delete if needed INQUIRE( FILE = FILE_NAME, EXIST = EXISTS ) IF( EXISTS )THEN COMMAND = '\rm ' // TRIM( FILE_NAME ) XMSG = 'WARNING: ' // Trim( FILE_NAME ) & // ' exists and deleting ' WRITE( 6, * ) N = SYSTEM( COMMAND ) IF( N .EQ. -1 )THEN XMSG = 'Cannot delete '// FILE_NAME // ' file' CALL M3EXIT ( PNAME, SDATE3D, STIME3D, XMSG, XSTAT1 ) END IF ELSE XMSG = 'NOTE: ' // Trim( FILE_NAME ) & // ' does not exist. ' END IF ! create file IF ( .NOT. OPEN3( FILE_NAME, FSCREA3, PNAME ) ) THEN XMSG = 'Could not create '// FILE_NAME // ' file' CALL M3EXIT ( PNAME, SDATE3D, STIME3D, XMSG, XSTAT1 ) END IF END SUBROUTINE CREATE_CMAQ_OMI ================================================ FILE: PREP/create_omi/src/create_ioapi_OMI.f ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/work/rep/arc/CCTM/src/phot/phot_inline/opphot.F,v 1.3 2011/10/21 16:11:28 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE CREATE_IOAPI_OMI ( FILE_NAME, JDATE, NLAT, NLON ) C----------------------------------------------------------------------- C C FUNCTION: ioapi for OMI ozone column observation C C PRECONDITIONS REQUIRED: C None C C REVISION HISTORY: C Date Who What C -------- ---------- ----------------------------------------- C----------------------------------------------------------------------- USE M3UTILIO IMPLICIT NONE C...Arguments CHARACTER( 16 ), INTENT( IN ) :: FILE_NAME ! name of file INTEGER, INTENT( IN ) :: JDATE ! Start date of file, YYYYDDD INTEGER, INTENT( IN ) :: NLAT ! # of latitude points INTEGER, INTENT( IN ) :: NLON ! # of Longitude points C...Local variables CHARACTER( 32 ), SAVE :: PNAME = 'CREATE_IOAPI_OMI' CHARACTER( 20 ) :: COMMAND CHARACTER( 96 ) :: XMSG = ' ' INTEGER :: TSTEP ! output time step INTEGER :: N, L, JWL, INCR ! loop variables INTEGER :: SYSTEM ! exteral function for line commands LOGICAL :: EXISTS C----------------------------------------------------------------------- C...Set output file characteristics based on COORD.EXT and open C... the photolysis diagnostic file FTYPE3D = GRDDED3 SDATE3D = JDATE STIME3D = 0 TSTEP3D = 240000 NCOLS3D = NLON NROWS3D = NLAT NLAYS3D = 1 NTHIK3D = 1 GDTYP3D = LATGRD3 P_ALP3D = 0 P_BET3D = 0 P_GAM3D = 0 XORIG3D = -180.0D0 YORIG3D = -90.0D0 YCELL3D = REAL( 180.0 / REAL( NLAT, 4 ),8 ) XCELL3D = REAL( 360.0 / REAL( NLON, 4 ),8 ) VGTYP3D = 7 VGTOP3D = 5000 VGLVS3D( 1 ) = 1.0 VGLVS3D( 2 ) = 0.9975 GDNAM3D = 'OMI_GLOBE' C...CSA Variables, Units and Descriptions for FILE_NAME N = 1 VNAME3D( N ) = 'OZONE_COLUMN' UNITS3D( N ) = 'DU' VDESC3D( N ) = 'Total Ozone Column Density' VTYPE3D( N ) = M3REAL N = N + 1 VNAME3D( N ) = 'CLOUD_FRACT' UNITS3D( N ) = 'None' VDESC3D( N ) = 'Radiative Cloud Fraction' VTYPE3D( N ) = M3REAL N = N + 1 VNAME3D( N ) = 'O3_MISSING' UNITS3D( N ) = 'None' VDESC3D( N ) = 'Ozone Column Density Not Avialable' VTYPE3D( N ) = M3REAL N = N + 1 VNAME3D( N ) = 'LATITUDE' UNITS3D( N ) = 'DEG' VDESC3D( N ) = 'Latitude Coordinate' VTYPE3D( N ) = M3REAL NVARS3D = N FDESC3D( 1 ) = 'OMI Satellite Obseravations' DO L = 2, MXDESC3 FDESC3D( L ) = ' ' END DO ! Determine if file exists and delete if needed INQUIRE( FILE = FILE_NAME, EXIST = EXISTS ) IF( EXISTS )THEN COMMAND = '\rm ' // TRIM( FILE_NAME ) XMSG = 'WARNING: ' // Trim( FILE_NAME ) & // ' exists and deleting ' WRITE( 6, * ) N = SYSTEM( COMMAND ) IF( N .EQ. -1 )THEN XMSG = 'Cannot delete '// FILE_NAME // ' file' CALL M3EXIT ( PNAME, SDATE3D, STIME3D, XMSG, XSTAT1 ) END IF END IF ! create file IF ( .NOT. OPEN3( FILE_NAME, FSCREA3, PNAME ) ) THEN XMSG = 'Could not create '// FILE_NAME // ' file' CALL M3EXIT ( PNAME, SDATE3D, STIME3D, XMSG, XSTAT1 ) END IF END SUBROUTINE CREATE_IOAPI_OMI ================================================ FILE: PREP/create_omi/src/create_omi.makefile ================================================ # make file to build program PROGRAM = create_omi_v532.exe ifndef compiler # compiler = intel # compiler = pgi compiler = gcc endif #Helps diagnose crashes if they occur DEBUG = TRUE ifeq ($(compiler),intel) FC = ifort CC = icc ioapi = /usr/local/apps/ioapi-3.2_20181011/intel-19.0/Linux2_x86_64ifort netcdf = /usr/local/apps/netcdf-4.6.3/intel-19.0 include_path = -I $(ioapi) -I $(netcdf)/include -I . WARN = FSTD = -O2 -traceback DBG = -O0 -g -check bounds -check uninit -fpe0 -fno-alias -ftrapuv -traceback ifneq (,$(filter $(DEBUG), TRUE true )) f_FLAGS = -fixed -132 $(DBG) $(include_path) f90_FLAGS = -free $(DBG) $(include_path) else f_FLAGS = -fixed -132 $(FSTD) $(include_path) f90_FLAGS = -free $(FSTD) $(include_path) endif LINK_FLAGS = -i-static else ifeq ($(compiler),pgi) FC = pgf90 CC = pgcc ioapi = /home/wdx/lib/x86_64/pgi-17.4/ioapi_3.1/Linux2_x86_64pg netcdf = /usr/local/apps/netcdf-4.4.1/pgi-17.4 include_path = -I $(ioapi) -I $(netcdf)/include -I . WARN = FSTD = -O3 -Mextend DBG = -O0 -g -Mbounds -Mchkptr -traceback -Ktrap=fp -Mextend ifneq (,$(filter $(DEBUG), TRUE true )) f_FLAGS = -Mfixed $(DBG) $(include_path) f90_FLAGS = -Mfree $(DBG) $(include_path) else f_FLAGS = -Mfixed $(FSTD) $(include_path) f90_FLAGS = -Mfree $(FSTD) $(include_path) endif else ifeq ($(compiler),gcc) FC = gfortran CC = cc ioapi = /home/wdx/lib/x86_64/gcc-6.1/ioapi_3.1/Linux2_x86_64gfort netcdf = /usr/local/apps/netcdf-4.6.1/gcc-6.1.0 include_path = -I $(ioapi) -I $(netcdf)/include -I . WARN = FSTD = -O2 -funroll-loops -finit-character=32 -Wconversion-extra -Wtabs -Wsurprising DBG = -Wall -O0 -g -fcheck=all -ffpe-trap=invalid,zero,overflow -fbounds-check -fbacktrace -Wno-zerotrip -Wno-unused-function ifneq (,$(filter $(DEBUG), TRUE true )) f_FLAGS = -ffixed-form -ffixed-line-length-132 -funroll-loops -finit-character=32 $(DBG) $(include_path) f90_FLAGS = -ffree-form -ffree-line-length-none -funroll-loops -finit-character=32 $(DBG) $(include_path) else f_FLAGS = -ffixed-form -ffixed-line-length-132 -funroll-loops -finit-character=32 $(FSTD) $(include_path) f90_FLAGS = -ffree-form -ffree-line-length-none -funroll-loops -finit-character=32 $(FSTD) $(include_path) endif else ERROR1 = "Makefile not configured to support the specified compiler, $(compiler). USER MUST USE intel, pgi or gcc options or MODIFY Makefile" endif ifdef ERROR1 $(error $(ERROR1)) endif F_FLAGS = $(f_FLAGS) F90_FLAGS = $(f90_FLAGS) C_FLAGS = -I. LINKER = $(FC) LINK_FLAGS = CPP = $(FC) CPP_FLAGS = IOAPI = -L$(ioapi) -lioapi NETCDF = -L$(netcdf)/lib -lnetcdf -lnetcdff LIBRARIES = $(IOAPI) $(NETCDF) SRC = \ get_env_vars.o \ module_envvar.o \ module_utilities.o \ create_CMAQ_OMI.o \ create_ioapi_OMI.o \ driver.o OBJS = \ $() \ $(SRC) .SUFFIXES: .F .f .c .F90 .f90 $(PROGRAM): $(OBJS) $(LINKER) $(LINK_FLAGS) $(OBJS) $(LIBRARIES) -o $@ .F.o: $(FC) -c $(F_FLAGS) $(CPP_FLAGS) $(INCLUDES) $< .f.o: $(FC) -c $(F_FLAGS) $< .F90.o: $(FC) -c $(F90_FLAGS) $(CPP_FLAGS) $(INCLUDES) $< .f90.o: $(FC) -c $(F90_FLAGS) $< .c.o: $(CC) -c $(C_FLAGS) $< clean: \rm -f $(OBJS) *.mod # dependencies module_envvar.o: get_env_vars.o driver.o: module_envvar.o module_utilities.o ================================================ FILE: PREP/create_omi/src/driver.f ================================================ program omi USE m3utilio USE ENV_VARS USE utilities_module implicit none character(18) :: rowheader character(256), allocatable :: OMI_filename( : ) character(256) :: file_name character(256) :: file_line character(16) :: OMI_FILE_NCF = 'OMI_FULL_NCF' character(16) :: EXTEN_FILE_NCF = 'OMI_EXPAND_NCF' CHARACTER(80) :: XMSG = ' ' integer nlatitude integer nlongitude integer year,month,day, julday integer icount, jcount integer i,j,k integer i_, j_ integer ip1, kp1 integer i_max, j_max integer nfiles integer unit_expand integer ipass integer io_files integer io_file_init integer io_full_dat integer jdate_init integer jdate_prev integer jdate_next integer ldate integer stat_allocate ! integer delta_julian integer delta_date integer, allocatable :: jdate( : ) integer, allocatable :: idate( : ) integer, allocatable :: oz_toms( : ) Character(3), allocatable :: oz_string( : ) real, parameter :: pi = 3.14159 real, parameter :: pi180 = pi / 180.0 real(8), parameter :: fill_limit = 3.14159d0 /36.0d0 real(8), allocatable :: oz ( :,: ) real(8), allocatable :: oz_( :,: ) real(8), allocatable :: oz_mean( :,: ) real(8), allocatable :: oz_prev( :,: ) real(8), allocatable :: oz_expand( :,: ) real(8), allocatable :: gregdate( : ),yrfrac_( : ) real, allocatable :: lat_omi( :), lon_omi( : ), lat_ioapi( :,: ) real(8), allocatable :: phi_omi( : ), theta_omi( : ) ! lat, lon [radians] real(8), allocatable :: lat_( : ),lon_( : ) real(8), allocatable :: oz_extend( :,: ) real, allocatable :: ioapi_buff( :,: ) real, allocatable :: ioapi_prev( :,: ) real, allocatable :: oz_adjust( :,: ) real, allocatable :: oz_ioapi( :,: ) real, allocatable :: cloud_fraction( :,: ) real, allocatable :: o3_missing( :,: ) real, allocatable :: lat_expand(:),lon_expand(:) real(8) :: yrfrac real :: latstepsize,lonstepsize real :: lat,lon real :: init_lat,init_lon real(8) :: w(2),v(4) logical :: eflag = .False. logical, save :: First_time = .True. logical, parameter :: near_neighbor = .False. ! replace missing using fill subroutine logical :: read_clouds = .False. logical :: TOMS_FORMAT = .False. interface SUBROUTINE CREATE_IOAPI_OMI ( FILE_NAME, JDATE, NLAT, NLON ) CHARACTER( 16 ), INTENT( IN ) :: FILE_NAME ! name of file INTEGER, INTENT( IN ) :: JDATE ! Start date of file, YYYYDDD INTEGER, INTENT( IN ) :: NLAT ! # of latitude points INTEGER, INTENT( IN ) :: NLON ! # of Longitude points END SUBROUTINE CREATE_IOAPI_OMI SUBROUTINE CREATE_EXTEND_OMI ( FILE_NAME, JDATE ) CHARACTER( 16 ), INTENT( IN ) :: FILE_NAME ! name of file INTEGER, INTENT( IN ) :: JDATE ! Start date of file, YYYYDDD END SUBROUTINE CREATE_EXTEND_OMI end interface Call GET_ENVS() nlatitude = 180 nlongitude = 360 if( CREATE_FULL_FILES )open(file=OMI_FULL_DAT,newunit=io_full_dat) file_name ='a' call get_OMI_listsize(OMI_FILE_LIST,nfiles) Allocate( OMI_filename( nfiles ), stat=stat_allocate ) If ( stat_allocate .ne. 0 ) Then xmsg = 'error allocating OMI_filename' write(6,'(a)')xmsg Stop End If Allocate( jdate( nfiles ), idate(nfiles), stat=stat_allocate ) If ( stat_allocate .ne. 0 ) Then xmsg = 'error allocating jdate,idate' write(6,'(a)')xmsg Stop End If Allocate( gregdate( nfiles ),yrfrac_(nfiles), stat=stat_allocate ) If ( stat_allocate .ne. 0 ) Then xmsg = 'error allocating gregdate,yrfrac' write(6,'(a)')xmsg Stop End If Open(file=OMI_FILE_LIST,status='old',newunit=io_files) Do j = 1,nfiles read(io_files,'(a)')file_name ! get starting position of date in file name k = index(file_name,'OMI.ozone.', back=.true. ) + 10 If( k .eq. 10 )Then k = index(file_name,'OMI.full.', back=.true. ) + 9 End If If( k .eq. 9 )Then k = index(file_name,'L3e_ozone_omi_', back=.true. ) + 14 TOMS_FORMAT = .True. End If read(file_name(k:k+7),*)idate(j) End Do If( TOMS_FORMAT )Then ! reset nlatitude and nlongitude Open(file=file_name,status='old',newunit=io_file_init) Read(io_file_init,'(a)')file_line Read(io_file_init,'(12x,i6)')nlongitude Read(io_file_init,'(12x,i6)')nlatitude Allocate( oz_string( nlongitude ), stat=stat_allocate ) Allocate( oz_toms( nlongitude ), stat=stat_allocate ) If ( stat_allocate .ne. 0 ) Then xmsg = 'error allocating jdate,idate' write(6,'(a)')xmsg Stop End If Close( io_file_init ) End If Call Init_Arrays() do j = 1,nfiles gregdate(j) = real(idate(j),8) year = int( gregdate(j) /10000.d0) month = int((gregdate(j) - (real(year,8))*10000.d0)/ 100.d0) day = int((gregdate(j) - (real(year,8))*10000.d0 & - (real(month,8))*100.d0 )/ 1.d0) call julian_date (year,month,day,julday,yrfrac) jdate( j ) = 1000 * year + julday If( j .Gt. 1 )Then ! check for continuous and ascending dates delta_date = Delta_Julian( jdate( j ),jdate( j-1 ) ) If( delta_date .gt. 1 )Then Print*,'Data gap from ',jdate( j-1 ),' to ', jdate( j ) Else If( delta_date .eq. 0 )Then write(6,'(a,2(i1000,1x))') & 'Input file list has files with equal dates betweeen lines:', j-1,j eflag = .true. Else If( delta_date .lt. 0 )Then write(6,'(a,2(i1000,1x))') & 'Input file list has files with decreasing dates betweeen lines:', j-1,j eflag = .true. End If End If yrfrac_(j) = yrfrac+real(year,8) End Do If( eflag )Then write(6,'(a)')'Above errors found in OMI_FILE_LIST' Stop End If !set jdate_init if( mod(jdate( 1 ),1000) .gt. 1 )then jdate_init = jdate( 1 ) - 1 else year = idate(1)/10000 - 1 day = 31 month = 12 call julian_date (year,month,day,julday,yrfrac) jdate_init = 1000 * year + julday end if latstepsize = 180.0/real(nlatitude) lonstepsize = 360.0/real(nlongitude) init_lat = 0.5*real(latstepsize) init_lon = 0.5*real(lonstepsize) close(io_files) open(file=OMI_FILE_LIST,newunit=io_files) do i = 1, (nlatitude/2) lat_omi( i ) = ( 90.0 + init_lat ) - latstepsize*real(i) phi_omi( i ) = real(pi180*lat_omi(i), 8 ) lat_omi( nlatitude - i + 1 ) = - lat_omi( i ) phi_omi( nlatitude - i + 1 ) = - phi_omi( i ) end do ! do i = 1, nlatitude ! print*,'lat_omi( i ), phi_omi( i ) = ',lat_omi( i ), phi_omi( i ) ! end do ! print*,'lat_omi( 1 ), phi_omi( 1 ) = ',lat_omi( 1 ), phi_omi( 1 ) do i = 1, nlongitude lon_omi( i ) = -180.0 - init_lon + lonstepsize*real(i) end do do i = 1, (nlongitude/2) theta_omi( i ) = real(pi180*(lon_omi( i ) + 360.0), 8) k = i + (nlongitude/2) theta_omi( k ) = real(pi180*lon_omi( k ), 8) end do ! do i = 1, nlongitude ! print*,'lon_omi( i ), theta_omi( i ) = ',lon_omi( i ), theta_omi( i ), lonstepsize ! end do ! print*,'lon_omi( 1 ), theta_omi( 1 ) = ',lon_omi( 1 ), theta_omi( 1 ), lonstepsize Do i = 1, nlatitude Do j = 1, nlongitude lat_ioapi( j,nlatitude-i+1) = lat_omi( i ) End Do End Do call expand_init() ! open( file = 'OMI_expand_14t16.dat', status = 'unknown', newunit = unit_expand ) ! write(unit_expand,'(a19,720f7.1)')' yeardate lat ',(lon_expand(j),j=1,720) call get_mean() do i = 1, nlatitude do k = 1, nlongitude if( oz_mean( i,k ) .ne. oz_mean( i,k ) )stop oz_ioapi( k, nlatitude - i + 1 ) = real( oz_mean( i,k ), 4 ) end do end do ! print*,'oz_ioapi:oz_mean max/min: ',maxval(oz_ioapi),'/',maxval(oz_mean),minval(oz_ioapi), ! & '/',minval(oz_mean) if( CREATE_FULL_FILES )then call CREATE_IOAPI_OMI( OMI_FILE_NCF, jdate_init, nlatitude, nlongitude ) ! call CREATE_EXTEND_OMI( EXTEN_FILE_NCF, jdate( 1 ) ) IF ( .NOT. WRITE3( OMI_FILE_NCF, 'OZONE_COLUMN', JDATE_INIT, 0, & OZ_IOAPI ) ) THEN XMSG = 'Error writing variable OZONE_COLUMN' CALL M3EXIT ( 'RO3', JDATE_INIT, 0, XMSG, XSTAT1 ) END IF cloud_fraction = -1.0 IF ( .NOT. WRITE3( OMI_FILE_NCF, 'CLOUD_FRACT', JDATE_INIT, 0, & CLOUD_FRACTION ) ) THEN XMSG = 'Error writing variable CLOUD_FRACT' CALL M3EXIT ( 'RO3', JDATE_INIT, 0, XMSG, XSTAT1 ) END IF o3_missing = -1.0 IF ( .NOT. WRITE3( OMI_FILE_NCF, 'O3_MISSING', JDATE_INIT, 0, & O3_MISSING ) ) THEN XMSG = 'Error writing variable O3_MISSING' CALL M3EXIT ( 'RO3', JDATE_INIT, 0, XMSG, XSTAT1 ) END IF IF ( .NOT. WRITE3( OMI_FILE_NCF, 'LATITUDE', JDATE_INIT, 0, & LAT_IOAPI ) ) THEN XMSG = 'Error writing variable LATITUDE' CALL M3EXIT ( 'RO3', JDATE_INIT, 0, XMSG, XSTAT1 ) END IF end if ! set initial previous values to mean from all files oz_prev = oz_mean jdate_next = jdate_init Loop_Omi_Files: do j = 1,nfiles read(io_files,'(a)')OMI_filename(j) write(6,'(a)')OMI_filename(j) ! determine whether to read cloud fraction if( index(OMI_filename(j),'OMI.full.', back=.true. ) .gt. 0 )then read_clouds = .True. else read_clouds = .False. end if open(file=OMI_filename(j),status = 'old', newunit=io_file_init) oz = 0.d0 oz_ = 0.d0 cloud_fraction = -1.0 If( TOMS_FORMAT )Then Do i = 1, 3 read(io_file_init,'(a)')file_line End Do Do i = nlatitude, 1, -1 lat = init_lat*real( i ) - ( 90.0 + init_lat ) ! read(io_file_init,'(1x,25a3)')(oz_string(k),k = 1, nlongitude) ! Do k = 1, nlongitude ! If( oz_string(k) .Eq. '***' )Then ! oz_toms(k) = 0.0 ! Else ! read(oz_string(k),'(i3)')oz_toms(k) ! End If ! End Do read(io_file_init,'(1x,25i3)')(oz_toms(k),k = 1, nlongitude) oz(i,1:nlongitude) = real( oz_toms(1:nlongitude),8) ! write(6,'(25(i3,1x))')(int(oz(i,k)),k = 1, nlongitude) ! if(i .ge. nlatitude -1 )write(6,555)yrfrac_(j),lat_omi(i),(( oz_toms(k) ),k=1,nlongitude) End Do Else read(io_file_init,*) do i = nlatitude,1,-1 lat = 90.0 + init_lat - init_lat*real( i ) read(io_file_init,*)rowheader,(oz(i,k),k=1,nlongitude) end do if( read_clouds )then do i = 1,nlatitude read(io_file_init,*)rowheader,(cloud_fraction(k,i),k=1,nlongitude) end do where( cloud_fraction .lt. -1.0 ) cloud_fraction = -1.0 where( cloud_fraction .gt. 1.0 ) cloud_fraction = 1.0 end if End If Close( io_file_init ) ! pause where( oz .lt. 1.0d-3 ) oz = -1.0d0 ! fill in missing values with nearest neighbors if( LUSE_NEIGHBORS ) then call fill(phi_omi, theta_omi, oz, fill_limit) end if ! replace values still missing with previous values do i = 1, nlatitude do k = 1, nlongitude if( oz(i,k) .le. 0.0d0 )then if( LUSE_PREV_DATE )oz(i,k) = oz_prev(i,k) o3_missing( k, nlatitude - i + 1 ) = 1.0 else o3_missing( k, nlatitude - i + 1 ) = -1.0 end if end do end do do i = 1, nlatitude do k = 1, nlongitude oz_ioapi( k, nlatitude - i + 1 ) = real( oz( i,k ), 4 ) end do end do write(6,'(5(a,f6.2,1x))') 'oz_ioapi:oz max:oz_ioapi:oz min/min ', & maxval(oz_ioapi),'/',maxval(oz),':',minval(oz_ioapi),'/',minval(oz) ! Test whether Observation's date matches expected date Call Julian_plus_One( jdate_next ) If( jdate_next .ne. JDATE( J ) )Then ! corrected expected date delta_date = Delta_julian( jdate_next, JDATE( J ) ) OZ_ADJUST = ( OZ_IOAPI - IOAPI_PREV )/REAL( delta_date + 1 ) If( CREATE_FULL_FILES )Then ! write out previous values Do ldate = 1, delta_date IOAPI_PREV = OZ_ADJUST + IOAPI_PREV IF ( .NOT. WRITE3( OMI_FILE_NCF, 'OZONE_COLUMN', jdate_next, 0, & IOAPI_PREV ) ) THEN XMSG = 'Error writing variable OZONE_COLUMN' CALL M3EXIT ( 'RO3', JDATE( J ), 0, XMSG, XSTAT1 ) END IF IF ( .NOT. WRITE3( OMI_FILE_NCF, 'CLOUD_FRACT', jdate_next, 0, & IOAPI_BUFF ) ) THEN XMSG = 'Error writing variable CLOUD_FRACT' CALL M3EXIT ( 'RO3', JDATE_INIT, 0, XMSG, XSTAT1 ) END IF IF ( .NOT. WRITE3( OMI_FILE_NCF, 'O3_MISSING', jdate_next, 0, & IOAPI_BUFF ) ) THEN XMSG = 'Error writing variable O3_MISSING' CALL M3EXIT ( 'RO3', JDATE_INIT, 0, XMSG, XSTAT1 ) END IF IF ( .NOT. WRITE3( OMI_FILE_NCF, 'LATITUDE', jdate_next, 0, & LAT_IOAPI ) ) THEN XMSG = 'Error writing variable LATITUDE' CALL M3EXIT ( 'RO3', JDATE_INIT, 0, XMSG, XSTAT1 ) END IF Call Julian_plus_One( jdate_next ) End Do Else Do ldate = 1, delta_date Call Julian_plus_One( jdate_next ) End Do End If End If If( CREATE_FULL_FILES )Then IF ( .NOT. WRITE3( OMI_FILE_NCF, 'OZONE_COLUMN', JDATE( J ), 0, & OZ_IOAPI ) ) THEN XMSG = 'Error writing variable OZONE_COLUMN' CALL M3EXIT ( 'RO3', JDATE( J ), 0, XMSG, XSTAT1 ) END IF IF ( .NOT. WRITE3( OMI_FILE_NCF, 'CLOUD_FRACT', JDATE( J ), 0, & CLOUD_FRACTION ) ) THEN XMSG = 'Error writing variable CLOUD_FRACT' CALL M3EXIT ( 'RO3', JDATE_INIT, 0, XMSG, XSTAT1 ) END IF IF ( .NOT. WRITE3( OMI_FILE_NCF, 'O3_MISSING', JDATE( J ), 0, & O3_MISSING ) ) THEN XMSG = 'Error writing variable O3_MISSING' CALL M3EXIT ( 'RO3', JDATE_INIT, 0, XMSG, XSTAT1 ) END IF IF ( .NOT. WRITE3( OMI_FILE_NCF, 'LATITUDE', JDATE( J ), 0, & LAT_IOAPI ) ) THEN XMSG = 'Error writing variable LATITUDE' CALL M3EXIT ( 'RO3', JDATE_INIT, 0, XMSG, XSTAT1 ) END IF End If IOAPI_PREV = OZ_IOAPI jdate_prev = jdate( j ) i_ = 0 lat_ = 0.0d0 lon_ = 0.0d0 oz_ = 0.0d0 do 490 i = 1,nlatitude i_ = i_ + 1 lat_(i_) = real( lat_omi( i ),8 ) ! lat j_ = 0 do 470 k = 1,nlongitude j_ = j_ + 1 lon_(j_) = real( lon_omi( k ),8 ) ! lon oz_(i_,j_) = max( -1.0d0, oz(i,k) ) 470 continue 490 continue i_max = i_ j_max = j_ call expand_grid do i = 1, 2*nlatitude-1 do k = 1, 2*nlongitude oz_extend( k, 2*nlatitude - i ) = oz_expand( i,k ) end do end do ! IF ( .NOT. WRITE3( EXTEN_FILE_NCF, 'OZONE_COLUMN', JDATE( J ), 0, ! & OZ_EXTEND ) ) THEN ! XMSG = 'Error writing variable OZONE_COLUMN' ! CALL M3EXIT ( 'RO3', JDATE( J ), 0, XMSG, XSTAT1 ) ! END IF If( CREATE_FULL_FILES )Then do i_ = 1, i_max if((j.eq.1).and.(i_.eq.1))then write(io_full_dat,545)latstepsize,lonstepsize write(io_full_dat,550)' yeardate lat ',((lon_(j_)),j_=1,j_max) endif write(io_full_dat,555)yrfrac_(j),lat_(i_),(idnint( oz_(i_,j_) ),j_=1,j_max) end do End If call extract_o3_cmaq ( jdate(j), yrfrac_(j), lat_expand, lon_expand, oz_expand ) ! call viz_o3totcol ( jdate(j) ) oz_prev = oz 890 End Do Loop_Omi_Files 545 format(2(f7.3,1x)) !550 format(7x,360f7.1) 550 format(a19,2880f9.3) !555 format(f6.1,1x,360f7.0) 555 format(f10.4,f9.3,2880i7) ! write(12,*)date(j) close(io_files) if( CREATE_FULL_FILES )close(io_full_dat) ! close(unit_expand) 999 stop CONTAINS Subroutine Init_Arrays() Implicit None Allocate( oz(nlatitude,nlongitude) ,oz_(nlatitude,nlongitude), stat=stat_allocate ) If ( stat_allocate .ne. 0 ) Then xmsg = 'error allocating oz,oz_' write(6,'(a)')xmsg Stop End If Allocate( oz_mean(nlatitude,nlongitude), stat=stat_allocate ) If ( stat_allocate .ne. 0 ) Then xmsg = 'error allocating oz_mean' write(6,'(a)')xmsg Stop End If Allocate( oz_prev(nlatitude,nlongitude), stat=stat_allocate ) If ( stat_allocate .ne. 0 ) Then xmsg = 'error allocating oz_prev' write(6,'(a)')xmsg Stop End If Allocate( oz_expand(2*nlatitude-1,2*nlongitude), stat=stat_allocate ) If ( stat_allocate .ne. 0 ) Then xmsg = 'error allocating oz_expand' write(6,'(a)')xmsg Stop End If Allocate( lat_omi(nlatitude),lon_omi(nlongitude) , stat=stat_allocate ) If ( stat_allocate .ne. 0 ) Then xmsg = 'error allocating lat_omi,lon_omi' write(6,'(a)')xmsg Stop End If Allocate( phi_omi(nlatitude),theta_omi(nlongitude) , stat=stat_allocate ) If ( stat_allocate .ne. 0 ) Then xmsg = 'error allocating phi_omi,theta_omi' write(6,'(a)')xmsg Stop End If Allocate( lat_(nlatitude),lon_(nlongitude), stat=stat_allocate ) If ( stat_allocate .ne. 0 ) Then xmsg = 'error allocating lat_,lon_' write(6,'(a)')xmsg Stop End If Allocate( oz_extend(2*nlongitude,2*nlatitude-1), stat=stat_allocate ) If ( stat_allocate .ne. 0 ) Then xmsg = 'error allocating oz_extend' write(6,'(a)')xmsg Stop End If Allocate( oz_ioapi(nlongitude,nlatitude), stat=stat_allocate ) If ( stat_allocate .ne. 0 ) Then xmsg = 'error allocating oz_ioapi' write(6,'(a)')xmsg Stop End If Allocate( ioapi_prev(nlongitude,nlatitude), stat=stat_allocate ) If ( stat_allocate .ne. 0 ) Then xmsg = 'error allocating ioapi_prev' write(6,'(a)')xmsg Stop End If ioapi_prev = 0.0 Allocate( ioapi_buff(nlongitude,nlatitude), stat=stat_allocate ) If ( stat_allocate .ne. 0 ) Then xmsg = 'error allocating ioapi_buff' write(6,'(a)')xmsg Stop End If ioapi_buff = -1.0 Allocate( oz_adjust(nlongitude,nlatitude), stat=stat_allocate ) If ( stat_allocate .ne. 0 ) Then xmsg = 'error allocating oz_adjust' write(6,'(a)')xmsg Stop End If oz_adjust = 0.0 Allocate( cloud_fraction(nlongitude,nlatitude), stat=stat_allocate ) If ( stat_allocate .ne. 0 ) Then xmsg = 'error allocating cloud_fraction' write(6,'(a)')xmsg Stop End If Allocate( o3_missing(nlongitude,nlatitude), stat=stat_allocate ) If ( stat_allocate .ne. 0 ) Then xmsg = 'error allocating oz_missing' write(6,'(a)')xmsg Stop End If Allocate( lat_ioapi(nlongitude,nlatitude), stat=stat_allocate ) If ( stat_allocate .ne. 0 ) Then xmsg = 'error allocating lat_ioapi' write(6,'(a)')xmsg Stop End If Allocate( lat_expand(2*nlatitude),lon_expand(2*nlongitude) , stat=stat_allocate ) If ( stat_allocate .ne. 0 ) Then xmsg = 'error allocating lat_expand,lon_expand' write(6,'(a)')xmsg Stop End If End Subroutine Init_Arrays subroutine get_mean() Implicit None real(8), parameter :: zero_limit = 3.1416d0 real(8), allocatable :: weigth(:,:) ! local: integer :: nlat integer :: nlon integer :: n,iread integer :: iozone integer :: line_number integer :: ilon integer :: mod_read integer :: rem_read real( 8 ) :: oz_min nlat = size(lat_omi) nlon = size(lon_omi) allocate( weigth(nlat,nlon) ) oz_mean = 0.0d0 mod_read = nlongitude/25 rem_read = mod(nlongitude, 25) If( TOMS_FORMAT )oz_toms = 0 rewind(io_files) do n = 1,nfiles read(io_files,'(a)')OMI_filename(n) write(6,'(a)')OMI_filename(n) open(file=OMI_filename(n),newunit = iozone) line_number = 0 If( TOMS_FORMAT )Then Do i = 1, 3 line_number = line_number + 1 read(iozone,'(a)',end=9503)file_line End Do Do i = nlat,1,-1 line_number = line_number + 1 ilon = 0 do iread = 1, mod_read read(iozone,'(a)',err=9501,end=9503,advance='yes')file_line read(file_line,'(1x,25i3)',err=9502)(oz_toms(ilon+k),k = 1, 25) ilon = ilon + 25 end do read(iozone,'(a)',err=9501,end=9503,advance='yes')file_line read(file_line,'(1x,25i3)',err=9502)(oz_toms(ilon+k),k = 1, rem_read) ilon = ilon + rem_read oz(i,1:nlongitude) = real( oz_toms(1:nlongitude),8) End Do Else read(iozone,*) oz = 0.d0 do i = nlat,1,-1 read(iozone,*)rowheader,(oz(i,k),k=1,nlon) end do End If close(iozone) print*,'maxval(oz) = ', maxval(oz) do i = 1, nlat do j = 1, nlon if( oz(i,j) .le. 1.0d-3 )cycle weigth(i,j) = 1.0d0 + weigth(i,j) oz_mean(i,j) = oz(i,j) + oz_mean(i,j) end do end do end do oz_min = 1.0d8 do i = 1, nlat do j = 1, nlon if( weigth(i,j) .le. 0.0d0 )cycle oz_mean(i,j) = oz_mean(i,j) / weigth(i,j) if( oz_mean(i,j) .Gt. 1 .And. oz_mean(i,j) .Lt. oz_min )oz_min = oz_mean(i,j) end do end do where( oz_mean .lt. oz_min ) oz_mean = oz_min ! do i = 1, nlat ! write(6,'(25(i3,1x))')(int(oz_mean(i,j)),j = 1, nlon) ! end do ! print*,'For mean, sum(weigth):maxval(weigth) = ',sum(weigth),":",maxval(weigth) rewind(io_files) ! fill in missing values with nearest neighbors if( near_neighbor ) then call fill(phi_omi, theta_omi, oz_mean, fill_limit) end if deallocate( weigth ) return 9501 write(6,'(2a)')'Error reading file: ',Trim( OMI_filename(n) ) write(6,'(a,i7)')'at line number: ',line_number Stop 9502 write(6,'(2a)')'Error reading file: ',Trim( OMI_filename(n) ) write(6,'(a,i7)')'Cannot data at line number:',line_number write(6,'(a)')Trim(file_line) Stop 9503 write(6,'(2a)')'Premature File End in ',Trim( OMI_filename(n) ) write(6,'(a,i7)')'at line number: ',line_number-1 print*,'Last line read: ',Trim(file_line) write(6,'(a,i7)')'Expected number of lines: ', & nlatitude*int(nlongitude/25)+nlatitude+3 Stop end subroutine get_mean subroutine expand_init() Implicit None lat_expand = 0.0 icount = 0 do i = 1, ( (size( lat_expand ) + 1)/2 - 1 ) ! 179 icount = icount + 1 lat_expand( icount ) = lat_omi( i ) icount = icount + 1 lat_expand( icount ) = 0.5*(lat_omi( i )+ lat_omi( i+1 )) end do icount = icount + 1 lat_expand( icount ) = lat_omi( i ) lon_expand = 0.0 icount = 0 do i = 1, ( size( lon_expand )/2 - 1 ) ! 359 icount = icount + 1 lon_expand( icount ) = lon_omi( i ) icount = icount + 1 lon_expand( icount ) = 0.5*(lon_omi( i )+ lon_omi( i+1 )) end do icount = icount + 1 lon_expand( icount ) = lon_omi( nlongitude ) icount = icount + 1 lon_expand( icount ) = 0.5*(lon_omi( nlongitude )+lon_omi( 1 ))+180.0 end subroutine expand_init subroutine expand_grid() Implicit None icount = 0 oz_expand = -1.0d0 ipass = 1 do i = 1,nlatitude ip1 = i + 1 icount = icount + 1 jcount = 0 do k = 1,nlongitude jcount = jcount + 1 kp1 = max(mod(k+1,nlongitude), 1) oz_expand(icount,jcount) = oz(i,k) w = 0.5d0 if( oz(i,k) .lt. 0.0d0 ) w(1) = 0.0d0 if( oz(i,kp1) .lt. 0.0d0 ) w(2) = 0.0d0 if( sum( w ) .gt. 1.0d-4 )then oz_expand(icount,jcount+1) = (w(1)*oz(i,k)+w(2)*oz(i,kp1)) & / sum( w ) end if if( ip1 .gt. nlatitude )cycle w = 0.5d0 if( oz(ip1,k) .lt. 0.0d0 )w(1) = 0.0d0 if( oz(i,k) .lt. 0.0d0 )w(2) = 0.0d0 if( sum( w ) .gt. 1.0d-4 )then oz_expand(icount+1,jcount) = (w(1)*oz(ip1,k)+w(2)*oz(i,k)) & / sum( w ) end if v = 0.25d0 if( oz(i ,k ) .lt. 0.0d0 ) v(1) = 0.0d0 if( oz(ip1,k ) .lt. 0.0d0 ) v(2) = 0.0d0 if( oz(i ,kp1) .lt. 0.0d0 ) v(3) = 0.0d0 if( oz(i+1,kp1) .lt. 0.0d0 ) v(4) = 0.0d0 if( sum( v ) .gt. 1.0d-4 )then oz_expand(icount+1,jcount+1) = (v(1)*oz(i,k)+v(2)*oz(ip1,k) & + v(3)*oz(i,kp1)+v(4)*oz(ip1,kp1)) & / sum( v ) end if jcount = jcount + 1 end do icount = icount + 1 end do 555 format(f10.4,f7.1,720i7) 650 format(a19,720f7.1) end subroutine expand_grid End Program Omi ================================================ FILE: PREP/create_omi/src/get_env_vars.F ================================================ MODULE GET_ENV_VARS IMPLICIT NONE PUBLIC :: GET_ENV_STRING, GET_ENV_FLAG, GET_ENV_INT, GET_ENV_REAL, & GET_ENVLIST, VALUE_NAME, GET_DDMONYY, NAME_INDEX INTEGER, PARAMETER, PRIVATE :: LOGDEV = 6 INTEGER, PARAMETER, PRIVATE :: MAX_LEN_WORD = 16 CONTAINS SUBROUTINE VALUE_NAME( VAR_NAME, VAR_VALUE ) IMPLICIT NONE CHARACTER*(*), INTENT( IN ) :: VAR_NAME CHARACTER*(*), INTENT( OUT ) :: VAR_VALUE INTEGER :: STATUS CALL GET_ENV_STRING( VAR_NAME, " ", VAR_NAME, VAR_VALUE, STATUS ) END SUBROUTINE VALUE_NAME SUBROUTINE GET_ENV_STRING( VAR_NAME, VAR_DESC, VAR_DEFAULT, VAR_VALUE, STATUS ) IMPLICIT NONE !arguments CHARACTER*(*), INTENT( IN ) :: VAR_NAME CHARACTER*(*), INTENT( IN ) :: VAR_DESC CHARACTER*(*), INTENT( IN ) :: VAR_DEFAULT CHARACTER*(*), INTENT( OUT ) :: VAR_VALUE INTEGER, INTENT( OUT ) :: STATUS !local CHARACTER( 586 ) :: MSG ! Message text CALL GET_ENVIRONMENT_VARIABLE( NAME=VAR_NAME, VALUE= VAR_VALUE, STATUS=STATUS, TRIM_NAME=.TRUE.) IF( STATUS .LT. 0 ) THEN MSG = 'ERROR in environment value for ' // TRIM( VAR_NAME ) WRITE(LOGDEV,'(a)')TRIM( MSG ) ELSE IF( STATUS .EQ. 1 )THEN STATUS = -1 VAR_VALUE = TRIM( VAR_DEFAULT ) ELSE IF( STATUS .GT. 1 )THEN STATUS = 1 MSG = 'ERROR in environment value for ' // TRIM( VAR_NAME ) WRITE(LOGDEV,'(a)')TRIM( MSG ) MSG = 'ERROR Processor does not support environment variables ' WRITE(LOGDEV,'(a)') END IF IF( STATUS .EQ. 0 )THEN MSG = ' Value for ' // TRIM( VAR_NAME ) // ': ' // TRIM( VAR_VALUE ) WRITE(LOGDEV,'(a)')TRIM( MSG ) END IF END SUBROUTINE GET_ENV_STRING LOGICAL FUNCTION GET_ENV_FLAG( VAR_NAME, VAR_DESC, VAR_DEFAULT, STATUS ) IMPLICIT NONE !arguments CHARACTER*(*), INTENT( IN ) :: VAR_NAME CHARACTER*(*), INTENT( IN ) :: VAR_DESC LOGICAL, INTENT( IN ) :: VAR_DEFAULT INTEGER, INTENT( OUT ) :: STATUS !local CHARACTER( 586 ) :: MSG ! Message text CHARACTER( 1 ) :: VAR_VALUE CHARACTER( 5 ) :: REPLY CALL GET_ENVIRONMENT_VARIABLE( NAME=VAR_NAME, VALUE= VAR_VALUE, STATUS=STATUS, TRIM_NAME=.TRUE.) IF( STATUS .LT. 0 ) THEN MSG = 'ERROR in environment value for ' // TRIM( VAR_NAME ) WRITE(LOGDEV,'(a)')TRIM( MSG ) STATUS = 1 ELSE IF( STATUS .EQ. 1 )THEN STATUS = -1 GET_ENV_FLAG = VAR_DEFAULT WRITE(LOGDEV,' (A,L)')'Environment Variable ' & // TRIM( VAR_NAME ) // ' missing.' & // ' Using default value of ',VAR_DEFAULT STATUS = -1 ELSE IF( STATUS .GT. 1 )THEN STATUS = 1 MSG = 'ERROR in environment value for ' // TRIM( VAR_NAME ) WRITE(LOGDEV,'(a)')TRIM( MSG ) MSG = 'ERROR Processor does not support environment variables ' WRITE(LOGDEV,'(a)') ELSE STATUS = 0 IF( VAR_VALUE(1:1) .EQ. 'T' .OR. VAR_VALUE(1:1) .EQ. 'Y' )THEN GET_ENV_FLAG = .TRUE. ELSE IF( VAR_VALUE(1:1) .EQ. 't' .OR. VAR_VALUE(1:1) .EQ. 'y' )THEN GET_ENV_FLAG = .TRUE. ELSE IF( VAR_VALUE(1:1) .EQ. 'F' .OR. VAR_VALUE(1:1) .EQ. 'N' )THEN GET_ENV_FLAG = .FALSE. ELSE IF( VAR_VALUE(1:1) .EQ. 'f' .OR. VAR_VALUE(1:1) .EQ. 'n' )THEN GET_ENV_FLAG = .FALSE. ELSE WRITE(LOGDEV,' (A,L)')'Environment Variable ' & // TRIM( VAR_NAME ) // ' must equal T, Y, F, or N.' & // ' Using default value of ',VAR_DEFAULT STATUS = -1 GET_ENV_FLAG = VAR_DEFAULT END IF END IF IF( STATUS .EQ. 0 )THEN IF( GET_ENV_FLAG )THEN REPLY = 'TRUE ' ELSE REPLY = 'FALSE' END IF WRITE(MSG,'(a,L1,a)')' Value for ' // TRIM( VAR_NAME ) // ': ',GET_ENV_FLAG, & ' returning ' // REPLY WRITE(LOGDEV,'(a)')TRIM( MSG ) END IF END FUNCTION GET_ENV_FLAG INTEGER FUNCTION GET_ENV_INT( VAR_NAME, VAR_DESC, VAR_DEFAULT, STATUS ) IMPLICIT NONE !arguments CHARACTER*(*), INTENT( IN ) :: VAR_NAME CHARACTER*(*), INTENT( IN ) :: VAR_DESC INTEGER, INTENT( IN ) :: VAR_DEFAULT INTEGER, INTENT( OUT ) :: STATUS !local CHARACTER( 120 ) :: MSG ! Message text CHARACTER( 120 ) :: VAR_VALUE CHARACTER( 5 ) :: REPLY INTEGER :: READ_VALUE CALL GET_ENVIRONMENT_VARIABLE( NAME=VAR_NAME, VALUE= VAR_VALUE, STATUS=STATUS, TRIM_NAME=.TRUE.) IF( STATUS .LT. 0 ) THEN MSG = 'ERROR in environment value for ' // TRIM( VAR_NAME ) WRITE(LOGDEV,'(a)')TRIM( MSG ) STATUS = 1 ELSE IF( STATUS .EQ. 1 )THEN STATUS = -1 GET_ENV_INT = VAR_DEFAULT WRITE(LOGDEV,' (A,I8)')'Environment Variable ' & // TRIM( VAR_NAME ) // ' missing.' & // ' Using default value of ',VAR_DEFAULT ELSE IF( STATUS .GT. 1 )THEN STATUS = 1 MSG = 'ERROR in environment value for ' // TRIM( VAR_NAME ) WRITE(LOGDEV,'(a)')TRIM( MSG ) MSG = 'ERROR Processor does not support environment variables ' WRITE(LOGDEV,'(a)') ELSE STATUS = 0 READ(VAR_VALUE , *)READ_VALUE GET_ENV_INT = READ_VALUE WRITE(MSG,'(a,I8)')' Value for ' // TRIM( VAR_NAME ) // ': ', & GET_ENV_INT WRITE(LOGDEV,'(a)')TRIM( MSG ) END IF END FUNCTION GET_ENV_INT REAL FUNCTION GET_ENV_REAL( VAR_NAME, VAR_DESC, VAR_DEFAULT, STATUS ) IMPLICIT NONE !arguments CHARACTER*(*), INTENT( IN ) :: VAR_NAME CHARACTER*(*), INTENT( IN ) :: VAR_DESC REAL, INTENT( IN ) :: VAR_DEFAULT INTEGER, INTENT( OUT ) :: STATUS !local CHARACTER( 120 ) :: MSG ! Message text CHARACTER( 120 ) :: VAR_VALUE CHARACTER( 5 ) :: REPLY CALL GET_ENVIRONMENT_VARIABLE( NAME=VAR_NAME, VALUE= VAR_VALUE, STATUS=STATUS, TRIM_NAME=.TRUE.) IF( STATUS .LT. 0 ) THEN MSG = 'ERROR in environment value for ' // TRIM( VAR_NAME ) WRITE(LOGDEV,'(a)')TRIM( MSG ) STATUS = 1 ELSE IF( STATUS .EQ. 1 )THEN STATUS = -1 GET_ENV_REAL = VAR_DEFAULT WRITE(LOGDEV,' (A,ES13.6)')'Environment Variable ' & // TRIM( VAR_NAME ) // ' missing.' & // ' Using default value of ',VAR_DEFAULT ELSE IF( STATUS .GT. 1 )THEN STATUS = 1 MSG = 'ERROR in environment value for ' // TRIM( VAR_NAME ) WRITE(LOGDEV,'(a)')TRIM( MSG ) MSG = 'ERROR Processor does not support environment variables ' WRITE(LOGDEV,'(a)') ELSE STATUS = 0 READ(VAR_VALUE,*)GET_ENV_REAL WRITE(MSG,'(a,ES12.4)')' Value for ' // TRIM( VAR_NAME ) // ': ', & GET_ENV_REAL WRITE(LOGDEV,'(a)')TRIM( MSG ) END IF END FUNCTION GET_ENV_REAL SUBROUTINE GET_DDMONYY(DATE) IMPLICIT NONE CHARACTER(*), INTENT(INOUT) :: DATE CHARACTER( 2 ) :: DD CHARACTER( 3 ) :: MONS(1:12) CHARACTER( 4 ) :: YYYY INTEGER :: STIME, VALUES(8) MONS = (/'Jan','Feb','Mar','Apr','May','Jun', & 'Jul','Aug','Sep','Oct','Nov','Dec' /) CALL DATE_AND_TIME(VALUES=VALUES) WRITE( DD,'(I2)') VALUES(3) ! DD = '00' WRITE(YYYY,'(I4)') (0 + VALUES(1)) PRINT*,MONS(VALUES(2)) // DD // YYYY(1:4) DATE = MONS(VALUES(2)) // ' ' // DD // ', ' // YYYY(1:4) END SUBROUTINE GET_DDMONYY INTEGER FUNCTION NAME_INDEX( NAME, N_NAMES, NAMES ) IMPLICIT NONE CHARACTER(*), INTENT( IN ) :: NAME CHARACTER(*), INTENT( IN ) :: NAMES( : ) INTEGER, INTENT( IN ) :: N_NAMES INTEGER :: N,M NAME_INDEX = 0 M = SIZE( NAMES ) IF( M .LT. 1 )RETURN DO N = 1, M IF( NAME .EQ. NAMES( N ) )THEN NAME_INDEX = N RETURN END IF END DO RETURN END FUNCTION NAME_INDEX SUBROUTINE GET_ENVLIST ( ENV_VAR, NVARS, VAL_LIST, STATUS ) C get a list env var (quoted string of items delimited by white space, C commas or semi-colons) and parse out the items into variables. Two data C types: character strings and integers (still represented as strings in C the env var vaules). C Examples: C 1) setenv AVG_CONC_VARS "O3 NO NO2" C 2) setenv AVG_CONC_LAYS "2 5" < start at two, end at 5 C 3) setenv NPCOLSXNPROWS "4 3" C 4) setenv BCOL_ECOL "3 8" C 5) setenv BROW_EROW "2 10" C 6) setenv BLAY_ELAY "1 5" C In example (1), not only parse out the named items "O3", "NO" and "NO2", C but also obtain the count on the number of itmes (=3). ! Revision: 2013/02/11 David Wong: increased the max env var length from 256 to 1000 ! 13 Dec 2013 J.Young: 1000 breaks BUFLEN in IOAPI's envgets.c. Change to 512. ! 17 Jun 2016 J.Young: IOAPI's envgets.c BUFLEN has been increased to 10000. ! 20 Jun 2016 J.Young: Forget IOAPI's envgets.c: use Fortran GETENV ! 16 Mar 2018 B.Hutzell: Removed IOAPI, changed from GOTO to Do loop, and ! from GETENV to GET_ENVIRONMENT_VARIABLE intrinsic IMPLICIT NONE CHARACTER( * ), INTENT ( IN ) :: ENV_VAR INTEGER, INTENT ( OUT ) :: NVARS CHARACTER( * ), INTENT ( OUT ) :: VAL_LIST( : ) INTEGER, INTENT ( OUT ) :: STATUS INTEGER :: MAX_LEN INTEGER :: LEN_EVAL CHARACTER( 16 ) :: PNAME = 'GET_ENVLIST' CHARACTER( 1 ) :: CHR CHARACTER( 132) :: XMSG CHARACTER( MAX_LEN_WORD*SIZE( VAL_LIST ) ) :: E_VAL INTEGER :: JP( MAX_LEN_WORD*SIZE( VAL_LIST ) ) INTEGER :: KP( MAX_LEN_WORD*SIZE( VAL_LIST ) ) INTEGER :: IP, V MAX_LEN = MAX_LEN_WORD * ( SIZE( VAL_LIST ) + 1 ) ! multiple by 17 to allow deliminator C env_var_name C | env_var_value C | | ! CALL GETENV( ENV_VAR, E_VAL ) C env_var_name C | env_var_value C | | CALL GET_ENVIRONMENT_VARIABLE( NAME=ENV_VAR, VALUE=E_VAL, STATUS=STATUS, TRIM_NAME=.TRUE.) IF( STATUS .LT. 0 ) THEN XMSG = 'ERROR in environment value for ' // TRIM( ENV_VAR ) WRITE(LOGDEV,'(a)')TRIM( XMSG ) STATUS = 1 STOP ELSE IF( STATUS .EQ. 1 )THEN STATUS = -1 RETURN ELSE IF( STATUS .GT. 1 )THEN STATUS = 1 XMSG = 'ERROR in environment value for ' // TRIM( ENV_VAR ) WRITE(LOGDEV,'(a)')TRIM( XMSG ) XMSG = 'ERROR Processor does not support environment variables ' WRITE(LOGDEV,'(a)') STOP END IF IF ( E_VAL .EQ. " " ) THEN STATUS = 1 XMSG = 'Environment variable ' // ENV_VAR // ' not set' WRITE(LOGDEV,'(A,I8)')TRIM( XMSG ), SIZE( VAL_LIST ) NVARS = 0 RETURN END IF STATUS = 0 C Parse: NVARS = 1 C don't count until 1st char in string IP = 0 LEN_EVAL = LEN_TRIM( E_VAL ) IF ( LEN_EVAL .GT. MAX_LEN ) THEN XMSG = TRIM( PNAME ) // ': The Environment variable, ' & // TRIM( ENV_VAR ) // ', has too long, greater than ' WRITE(LOGDEV,'(A,I8)')TRIM( XMSG ), MAX_LEN STOP END IF 101 LOOP_101: DO ! read list IP = IP + 1 IF ( IP .GT. LEN_EVAL ) EXIT LOOP_101 CHR = E_VAL( IP:IP ) IF ( CHR .EQ. ' ' .OR. ICHAR ( CHR ) .EQ. 09 ) CYCLE LOOP_101 IF( NVARS .GT. SIZE( VAL_LIST ) )THEN XMSG = TRIM( PNAME ) // ':ERROR: Number of values in List, ' & // TRIM( ENV_VAR ) & // ', greater than the size of its storage array, ' WRITE(LOGDEV,'(A,I4)')TRIM( XMSG ), SIZE( VAL_LIST ) STOP END IF JP( NVARS ) = IP ! 1st char 201 LOOP_201: DO ! read word IP = IP + 1 IF ( IP .GT. LEN_EVAL ) EXIT LOOP_101 CHR = E_VAL( IP:IP ) IF ( CHR .NE. ' ' .AND. & CHR .NE. ',' .AND. & CHR .NE. ';' .OR. & ICHAR ( CHR ) .EQ. 09 ) THEN ! 09 = horizontal tab CYCLE LOOP_201 ELSE ! last char in word V = JP( NVARS ) - KP( NVARS ) + 1 KP( NVARS ) = IP - 1 IF( V .GT. MAX_LEN_WORD )THEN XMSG = 'The word, ' // E_VAL( JP(NVARS):KP(NVARS) ) & // ', in environment list, ' // TRIM( ENV_VAR ) & // ', is too long, greater than ' WRITE(LOGDEV,'(A,I2)')TRIM( XMSG ), MAX_LEN_WORD STOP END IF NVARS = NVARS + 1 EXIT LOOP_201 END IF END DO LOOP_201 END DO LOOP_101 NVARS = NVARS - 1 IF( NVARS .GT. SIZE( VAL_LIST ) )THEN XMSG = TRIM( PNAME ) // ':ERROR: Number of values in List, ' & // TRIM( ENV_VAR ) // ', greater than ' WRITE(LOGDEV,'(A,I4)')TRIM( XMSG ), SIZE( VAL_LIST ) STOP END IF DO V = 1, NVARS VAL_LIST( V ) = E_VAL( JP( V ):KP( V ) ) END DO RETURN END SUBROUTINE GET_ENVLIST END MODULE GET_ENV_VARS ================================================ FILE: PREP/create_omi/src/module_envvar.F ================================================ MODULE ENV_VARS IMPLICIT NONE CHARACTER( 15 ) :: CR_DATE ! Run date character(256) :: OMI_FILE_LIST character(256) :: OMI_FULL_DAT character(256) :: OMI_CMAQ_DAT CHARACTER( 256 ) :: OUTPATH ! Output directory INTEGER :: NPOINTS_LAT = 17 INTEGER :: NPOINTS_LON = 17 REAL :: LAT_BORDER = 10.0 LOGICAL :: LUSE_PREV_DATE ! Flag to replace missing with previous date LOGICAL :: LUSE_NEIGHBORS ! Flag to use nearest neighbor average LOGICAL :: CREATE_FULL_FILES ! Flag to create ASCII and Netcdf files with ! Lat/Lon resolution of observations INTEGER, PARAMETER :: LOGDEV = 6 CONTAINS SUBROUTINE GET_ENVS C************************************************************************* C C FUNCTION: Gets environment variables C C PRECONDITIONS: None C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by Jerry Gipson, February, 2004 C Modified Nov 04 by JG to get group species names C vi environment variables C Modified Dec 09 by JG to remove reset of LERROR to C false for each species name retrieval C Modified Dec 09 by JG to allow for inclusion C of NO2EX cycle in Groups 1 and 2 C C************************************************************************* USE GET_ENV_VARS ! IOAPI parameters and functions declarations IMPLICIT NONE C..INCLUDES: None C..ARGUMENTS: None C..PARAMETERS: None C..EXTERNAL FUNCTIONS: None C..SAVED LOCAL VARIABLES: None C..SCRATCH LOCAL VARIABLES: CHARACTER( 16 ) :: PNAME = 'GET_ENVS' ! Program Name CHARACTER( 5 ) :: TZ ! Time zone CHARACTER( 16 ) :: ENV_DFLT ! Environment variable default value CHARACTER( 24 ) :: TIMNDAT ! Wall clock time and date CHARACTER( 80 ) :: ENV_DESC ! Environment variable description CHARACTER( 80 ) :: MSG ! Message text CHARACTER( 256 ) :: RET_VAL ! Returned value of env var c........env var names ! CHARACTER( 16 ) :: OUTDIR = 'OUTDIR' CHARACTER( 16 ) :: USE_PREV_DATE = 'PREV_DATE' CHARACTER( 16 ) :: USE_NEIGHBORS = 'NEIGHBORS' CHARACTER( 16 ) :: FULL_FILES = 'FULL_FILES' character( 16 ) :: OMI_FILE = 'OMI_FILE_LIST' character( 16 ) :: OMI_FULL = 'OMI_FULL_DAT' character( 16 ) :: OMI_CMAQ = 'OMI_CMAQ_DAT' character( 16 ) :: NLAT_OMI = 'NLAT_OMI' character( 16 ) :: NLON_OMI = 'NLON_OMI' character( 16 ) :: BORDER_LAT = 'LAT_BORDER' INTEGER :: EPOS ! String end position INTEGER :: IO_STATUS ! Status code INTEGER :: IDATE ! Wall-clock date INTEGER :: ITIME ! Wall clock time LOGICAL :: LERROR ! Error Flag C********************************************************************** LERROR = .FALSE. cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Get the time and date to be used as the time stamp for all outputs; c Convert from GMT to EDT or EST cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc CALL GET_DDMONYY(CR_DATE) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Get the name of the output directory and template directory cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc ! ENV_DFLT = './output' ! ENV_DESC = 'Output directory' ! CALL GET_ENV_STRING( OUTDIR, ENV_DESC, ENV_DFLT, OUTPATH, IO_STATUS) ! IF( IO_STATUS .GT. 0 ) THEN ! MSG = 'ERROR: no path assigned to OUTDIR' ! WRITE(LOGDEV,'(a)')TRIM( MSG ) ! END IF ENV_DFLT = './omi_file.txt' ENV_DESC = 'file list OMI data file' CALL GET_ENV_STRING( OMI_FILE, ENV_DESC, ENV_DFLT, OMI_FILE_LIST, IO_STATUS) IF( IO_STATUS .NE. 0 ) THEN MSG = 'ERROR: no path assigned to file listing omi files' WRITE(LOGDEV,'(a)')TRIM( MSG ) LERROR = .TRUE. END IF CREATE_FULL_FILES = .FALSE. ENV_DESC = 'Output files include ASCII and IOAPI files at Observed Lat/Lon Resolution.' CREATE_FULL_FILES = GET_ENV_FLAG( FULL_FILES, ENV_DESC, CREATE_FULL_FILES, IO_STATUS ) IF( CREATE_FULL_FILES )THEN ENV_DFLT = './omi_full.dat' ENV_DESC = 'full resolution OMI data in ascii format' CALL GET_ENV_STRING( OMI_FULL, ENV_DESC, ENV_DFLT, OMI_FULL_DAT, IO_STATUS) IF( IO_STATUS .NE. 0 ) THEN MSG = 'ERROR: no path assigned to full resolution OMI data file' WRITE(LOGDEV,'(a)')TRIM( MSG ) END IF END IF ! ENV_DFLT = './omi_full.ncf' ! ENV_DESC = 'full resolution OMI data in IOAPI format' ! CALL GET_ENV_STRING( 'OMI_FULL_NCF', ENV_DESC, ENV_DFLT, OMI_FULL_NCF, IO_STATUS) ! IF( IO_STATUS .NE. 0 ) THEN ! MSG = 'ERROR: no path assigned to full resolution IOAPI OMI file' ! WRITE(LOGDEV,'(a)')TRIM( MSG ) ! END IF ENV_DFLT = './omi_cmaq.dat' ENV_DESC = 'subset of OMI data for CMAQ' CALL GET_ENV_STRING( OMI_CMAQ, ENV_DESC, ENV_DFLT, OMI_CMAQ_DAT, IO_STATUS) IF( IO_STATUS .NE. 0 ) THEN MSG = 'ERROR: no path assigned to subset OMI data file' WRITE(LOGDEV,'(a)')TRIM( MSG ) END IF ENV_DESC = 'Number of latitude points in output file' NPOINTS_LAT = GET_ENV_INT( NLAT_OMI, ENV_DESC, NPOINTS_LAT, IO_STATUS ) IF( IO_STATUS .NE. 0 ) THEN MSG = 'ERROR: in environment variable: ' // TRIM( NLAT_OMI ) WRITE(LOGDEV,'(a)')TRIM( MSG ) END IF ENV_DESC = 'Number of longitude points in output file' NPOINTS_LON = GET_ENV_INT( NLON_OMI, ENV_DESC, NPOINTS_LON, IO_STATUS ) IF( IO_STATUS .NE. 0 ) THEN MSG = 'ERROR: in environment variable: ' // TRIM( NLON_OMI ) WRITE(LOGDEV,'(a)')TRIM( MSG ) END IF ENV_DESC = 'Distance of first and last latitude point from nearest pole (degrees)' LAT_BORDER = GET_ENV_REAL( BORDER_LAT, ENV_DESC, LAT_BORDER, IO_STATUS ) IF( IO_STATUS .NE. 0 ) THEN MSG = 'ERROR: in environment variable: ' // TRIM( BORDER_LAT ) WRITE(LOGDEV,'(a)')TRIM( MSG ) END IF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Get the flags for replacing missing values cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc LUSE_PREV_DATE = .TRUE. ENV_DESC = 'replace missing values with last available value' LUSE_PREV_DATE = GET_ENV_FLAG( USE_PREV_DATE, ENV_DESC, LUSE_PREV_DATE, IO_STATUS ) LUSE_NEIGHBORS = .FALSE. ENV_DESC = 'replace missing values with weighted average of nearest neighbors' LUSE_NEIGHBORS = GET_ENV_FLAG( USE_NEIGHBORS, ENV_DESC, LUSE_NEIGHBORS, IO_STATUS ) IF( LERROR )THEN WRITE(LOGDEV,'(a)')'See above error in environment variables' STOP END IF RETURN 92000 FORMAT( /2X, 'The following mechanism versions will be created:' & / A / 1X ) END SUBROUTINE GET_ENVS END MODULE ENV_VARS ================================================ FILE: PREP/create_omi/src/module_utilities.f ================================================ Module utilities_module Implicit None Contains !*********************************************************************** subroutine get_OMI_listsize(rawfilename,nfiles) implicit none !arguments: character*(*), intent( in ) :: rawfilename integer, intent( out ) :: nfiles !local: character(1) a(256) character(8) date(10000) a(:)='a' write(6,'(a)')'OMI File List = ' // Trim( rawfilename ) open(7,file=rawfilename,status='old') do 90 nfiles = 1,10000 read(7,150,end=100)a(1:1) 90 continue 100 nfiles = nfiles-1 print*,'Number of Raw data to be processed = ', nfiles if(nfiles .lt. 1 )STOP ! rewind(7) ! do 190 j = 1,nfiles ! read(7,150)(a(i),i=1,18) ! write(9,150)(a(i),i=11,18) 150 format(18a1) !190 continue close(7) return end subroutine get_OMI_listsize !*********************************************************************** !*********************************************************************** subroutine julian_date (year,month,day,julday,yrfrac) c input year, month, day c returns julian_date day (julday), year fraction (yrfrac) implicit none integer, intent( in ) :: year, day, month integer, intent( out ) :: julday real(8), intent( out ) :: yrfrac integer yrlength,leap,m4,m100,m400, & i integer daytab(13,2) data daytab / 0,31,28,31,30,31,30,31,31,30,31,30,31, + 0,31,29,31,30,31,30,31,31,30,31,30,31 / real(8) pi pi = dacos(-1.d0) leap = 1 yrlength = 365 m4 = mod(year,4 ) m100 = mod(year,100) m400 = mod(year,400) if(((m4.eq.0).and.(m100.ne.0)).or.(m400.eq.0))then leap = 2 yrlength = 366 endif julday = day do 190 i=1,month julday = julday + daytab(i,leap) 190 continue ! yrfrac = (julday - 1.d0)/(real(yrlength,8)) yrfrac = (real(julday, 8)-0.5d0)/(real(yrlength,8)) return end subroutine julian_date Subroutine Julian_Plus_One( Jdate ) ! increments date by one day Implicit None Integer, Intent( InOut ) :: Jdate ! YYYYDDD Integer :: day Integer :: year Integer :: days_per_year Jdate = Jdate + 1 year = Jdate / 1000 day = mod(jdate, 1000 ) If( ( mod(year,4) .eq. 0 ) & .And. ( mod(year,100) .ne. 0 ) & .Or. ( mod(year,400) .eq. 0 ) )Then ! leap year days_per_year = 366 Else days_per_year = 365 Endif If( day .gt. days_per_year )Then Jdate = Jdate + 1000 - day + 1 End If End Subroutine Julian_Plus_One Integer Function Delta_Julian( JDate1, Jdate2 ) ! returns JDate1 minus Jdate2 Implicit None Integer, Intent( In ) :: Jdate1 Integer, Intent( In ) :: Jdate2 !local Integer :: ldate1, ldate2 Integer :: year1, year2 Integer :: day1, day2 Integer :: iyear Delta_Julian = 0 If( Jdate1 .Eq. Jdate2 )Return ldate2 = jdate1 ldate1 = jdate2 year1 = ldate1 / 1000 year2 = ldate2 / 1000 day1 = ldate1 - year1 * 1000 day2 = ldate2 - year2 * 1000 If( year1 .Eq. year2 )Then Delta_Julian = day2 - day1 Return End If If( ( mod(year1,4) .eq. 0 ) & .And. ( mod(year1,100) .ne. 0 ) & .Or. ( mod(year1,400) .eq. 0 ) )Then ! leap year Delta_Julian = 366 - day1 + day2 Else Delta_Julian = 365 - day1 + day2 Endif If( year1 + 1 .Eq. year2 )Return Do iyear = (year1 + 1), (year2 - 1) If( ( mod(iyear,4) .eq. 0 ) & .And. ( mod(iyear,100) .ne. 0 ) & .Or. ( mod(iyear,400) .eq. 0 ) )Then ! leap year Delta_Julian = Delta_Julian + 366 Else Delta_Julian = Delta_Julian + 365 Endif End Do End Function Delta_Julian !*********************************************************************** logical function is_leap_year( year ) ! Function: Determines whether function is a leap year Implicit None Integer, Intent( In ) :: year is_leap_year = ( ( mod(year,4) .eq. 0 ) & .And. ( mod(year,100) .ne. 0 ) & .Or. ( mod(year,400) .eq. 0 ) ) end function is_leap_year subroutine extract_o3_cmaq ( jdate, date, latitude, longitude, ozone_omi ) !---------------------------------------------------------------------- ! Function: ! This subroutine returns total column ozone [DU] for any lat, lon, and date, ! by interpolating spacially and temporally between OMI/TOMS data in file ! OMI. The interpolation of ozone between lat, lon, and time is linear. ! If missing data are encourntered (designated as -1.0 in OMI), the ! interpolation proceeds with available contiguous and conterminous data. ! ! Revision history: ! Aug 11 J.Streicher: initial version ! Dec 2013 S.Roselle: time-records adjusted to input file provided; ! improved logfile reporting ! Jun 2015 J.Young: maintain code stnds !---------------------------------------------------------------------- USE m3utilio USE ENV_VARS implicit none ! arguments integer, intent( in ) :: jdate ! julian date yyyyddd real(8), intent( in ) :: date ! date year plus fraction of year elapsed real, intent( in ) :: latitude ( : ) ! latitude of point on earth's surface real, intent( in ) :: longitude( : ) ! longitude of point on earth's surface real(8), intent( in ) :: ozone_omi( :, : ) ! omi total column ozone [DU] ! parameters integer, save :: nlat = 179 ! 161 ! 179 ! 17 integer, save :: nlon = 361 ! 361 ! 17 real, parameter :: pi = 3.14159265 real, parameter :: pi_180 = pi / 180.0 real, save :: lat_window = 1.0 ! 10.0 ! local variables ! character( 23 ), save :: tmfile = 'OMI_CMAQ_DAT character( 16 ), save :: OMI_CMAQ_NCF = 'OMI_CMAQ_NCF' character( 16 ), save :: pname = 'O3TOT_CMAQ' character( 96 ) :: xmsg = ' ' character( 96 ) :: xmsgs( 3 ) logical, save :: firsttime = .true. integer :: allocstat integer :: nlat_omi integer :: nlon_omi integer :: i, j integer :: icount integer :: ios integer :: nrecs integer :: jyear ! integer :: delta_julian integer :: delta_date real :: flag( 4 ) real :: Q11, Q21 real :: Q12, Q22 real :: x2 real :: x3 real :: np_oz real :: sp_oz real :: total real :: latitudem real :: max_lat_omi, min_lat_omi real :: tdate_temp, tdate real :: stdate, enddate integer, save :: jdate_expect = 0 integer, save :: it integer, save :: io_unit integer, save :: ilat integer, save :: ilon integer, allocatable, save :: jlat( : ) ! ( nlat ) integer, allocatable, save :: jlon( : ) ! ( nlon ) real, save :: dx2 real, save :: dy2 real, allocatable, save :: lat( : ) ! ( nlat ) real, allocatable, save :: lon( : ) ! ( nlon ) real, allocatable, save :: lon_out( : ) ! ( nlon ) real, allocatable, save :: ozone( :,: ) ! ( nlat, nlon ) = 0.0 ! ascii file interpolated total column ozone [DU] real, allocatable, save :: ozone_viz( :,: ) ! ( nlon-1, nlat ) = 0.0 ! ioapi file interpolated total column ozone [DU] real, allocatable, save :: viz_prev ( :,: ) ! ( nlon-1, nlat ) = 0.0 ! previous value of ozone_viz real, allocatable, save :: viz_adjust( :,: ) ! ( nlon-1, nlat ) = 0.0 ! correction to viz_prev if real, allocatable, save :: dx1( : ) ! ( nlon ) real, allocatable, save :: dy1( : ) ! ( nlat ) real, allocatable, save :: lon_transformed( : ) character(34) :: output_format interface SUBROUTINE CREATE_CMAQ_OMI ( FILE_NAME, JDATE, LAT, LON ) CHARACTER( 16 ), INTENT( IN ) :: FILE_NAME ! name of file INTEGER, INTENT( IN ) :: JDATE ! Start date of file, YYYYDDD REAL, INTENT( IN ) :: LAT( : ) ! center latitudes of file cells REAL, INTENT( IN ) :: LON( : ) ! center longtudes of file cells END SUBROUTINE CREATE_CMAQ_OMI end interface !---------------------------------------------------------------------- if ( firsttime ) then firsttime = .false. ! set output dimenion based on environment settings nlat = npoints_lat nlon = npoints_lon lat_window = lat_border ! allocate save arrays Allocate( jlat(nlat), jlon(nlon), stat=allocstat ) If ( allocstat .ne. 0 ) Then xmsg = 'error allocating jlat,jlon' write(6,'(a)')xmsg Stop End If Allocate( ozone(nlat,nlon), stat=allocstat ) If ( allocstat .ne. 0 ) Then xmsg = 'error allocating ozone' write(6,'(a)')xmsg Stop End If ozone = 0.0 Allocate( ozone_viz ( nlon-1, nlat ), & viz_prev ( nlon-1, nlat ), & viz_adjust( nlon-1, nlat ), stat=allocstat ) If ( allocstat .ne. 0 ) Then xmsg = 'error allocating ozone_viz, viz_prev, viz_adjust ' write(6,'(a)')xmsg Stop End If ozone_viz = 0.0 viz_prev = 0.0 viz_adjust = 0.0 Allocate( lat(nlat), lon(nlon), & dy1(nlat), dx1(nlon), & lon_out(nlon), stat=allocstat ) If ( allocstat .ne. 0 ) Then xmsg = 'error allocating lat,lon,lon_out,dx1,dy1' write(6,'(a)')xmsg Stop End If ! Assign values to array of longitudes: lon dx2 = 360.0 / real( nlon - 1 ) do ilon = 1, nlon lon_out( ilon ) = -180.0 + dx2 * real( ilon-1 ) end do lon = lon_out do j = 1, nlon if( lon( j ) .lt. 0.0 )then lon( j ) = lon( j ) + 360.0 end if ! print*,'j,lon( j ) = ',j,lon( j ) end do dy2 = ( 180.0 - 2.0*lat_window )/ real( nlat - 1 ) do ilat = 1, nlat lat( ilat ) = 90.0 - dy2 * real( ilat - 1 ) - lat_window end do open( file = OMI_CMAQ_DAT, status = 'unknown', newunit = io_unit ) write(io_unit,549)'nlat',nlat write(io_unit,549)'nlon',nlon write(output_format,'(a,i8,a)')'(2(a,tr1),',(nlon+1),'(f7.2,tr1))' write(io_unit,output_format)'yeardate','latitude',(lon_out(j),j=1,nlon) nlat_omi = size( latitude ) nlon_omi = size( longitude ) if( .Not. allocated( lon_transformed ) )then ! print*," allocating lon_transformed: nlon_omi = ",size( longitude ) allocate( lon_transformed ( nlon_omi ) ) end if lon_transformed = longitude do j = 1, nlon_omi if( lon_transformed( j ) .lt. 0.0 )then lon_transformed( j ) = lon_transformed( j ) + 360.0 end if ! print*,'j,lon_transformed( j ) = ',j,lon_transformed( j ) end do ! find the nearest longitude point do j = 1, nlon dx1( j ) = lon( j ) - lon_transformed( 1 ) jlon( j ) = 1 x3loop: do ilon = 2,nlon_omi dx2 = lon( j ) - lon_transformed( ilon ) if( abs( dx2 ) .lt. abs( dx1( j ) ) )then dx1( j ) = dx2 jlon( j ) = ilon end if end do x3loop ! print*,'lon_transformed( jlon ),lon( j ) = ', lon_transformed( jlon( j ) ),lon( j ) ! print*,'longitude( jlon ),lon( j ) = ', longitude( jlon( j ) ),lon_out( j ) end do ! find the nearest latitude point do i = 1, nlat dy1( i ) = lat( i ) - latitude( 1 ) jlat( i ) = 1 x2loop: do ilat = 2, nlat_omi dy2 = lat( i ) - latitude( ilat ) if( abs( dy2 ) .lt. abs( dy1( i ) ) )then dy1( i ) = dy2 jlat(i) = ilat end if end do x2loop ! print*,'latitude( jlat ),lat( i ) = ', latitude( jlat( i ) ),lat( i ) end do ! create ioapi for visualization call CREATE_CMAQ_OMI ( OMI_CMAQ_NCF, jdate, lat, lon_out ) jdate_expect = jdate else call Julian_plus_One( jdate_expect ) open( file = OMI_CMAQ_DAT, status = 'unknown', position = 'append', newunit = io_unit ) end if ! firsttime 549 Format(a4,1x,i7) ! Initialize flag = 0.0 ozone = 0.0 latitudem = 0.0 x2 = 0.0 x3 = 0.0 ozone = -1.0 ! max_lat_omi = maxval( latitude ) ! min_lat_omi = minval( latitude ) do j = 1, nlon do i = 1, nlat ozone( i , j) = real( ozone_omi( jlat( i ) , jlon( j ) ) ) if( j .gt. nlon-1 )cycle ozone_viz( j, nlat-i+1 ) = ozone( i , j) end do end do If( jdate_expect .ne. jdate )Then ! write interpolated values up to current date delta_date = Delta_julian( jdate, jdate_expect ) viz_adjust = ( ozone_viz - viz_prev )/real(delta_date + 1) Do j = 1, delta_date viz_prev = viz_prev + viz_adjust If ( .not. write3( OMI_CMAQ_NCF, 'OZONE_COLUMN', jdate_expect, 0, & viz_prev ) ) THEN xmsg = 'Error writing variable OZONE_COLUMN' call m3exit ( pname, jdate_expect, 0, xmsg, xstat1 ) Else write(6,*)'observation missing on ', jdate_expect write(6,*)'writing to netcdf file inpolation between observations' End If call Julian_plus_One( jdate_expect ) End Do End If If ( .not. write3( OMI_CMAQ_NCF, 'OZONE_COLUMN', jdate, 0, & ozone_viz ) ) THEN xmsg = 'Error writing variable OZONE_COLUMN' call m3exit ( pname, jdate, 0, xmsg, xstat1 ) End If write(output_format,'(a,i8,a)')'(f9.4,tr1,f7.1,',(nlon+1),'(i7,tr1))' do i = 1,nlat write(io_unit,output_format)date,lat(i),(nint( ozone(i,j) ),j=1,nlon) 590 end do jdate_expect = jdate viz_prev = ozone_viz close( io_unit ) return end subroutine extract_o3_cmaq Subroutine fill( lat, lon, values, limit) Implicit None ! arguments: real( 8 ), intent( in ) :: lat( : ) ! latitude, radians real( 8 ), intent( in ) :: lon( : ) ! longitude (0 to 2PI), radians real( 8 ), intent( inout ) :: values( :,: ) ! quantity in lat, lon dimensions real( 8 ), intent( in ) :: limit ! limit on weight for computing average ! local: integer :: nlat integer :: nlon integer :: i, j, k, m, n integer :: icount real( 8 ) :: sum_weighted real( 8 ) :: sum_weights real( 8 ) :: weight real( 8 ) :: p5_delta_lat real( 8 ) :: p5_delta_lon real( 8 ) :: sin2_delta_lat real( 8 ) :: sin2_delta_lon real( 8 ) :: cos_dot_lat real( 8 ) :: arc_length real( 8 ) :: cut_off nlat = size( lat ) nlon = size( lon ) cut_off = sin( 0.5d0*limit ) * sin( 0.5d0*limit ) do i = 1, nlat do j = 1, nlon if( values( i, j ) .gt. 0.0d0 )then ! print*,'invalid at i,j = ',i,j cycle else ! print*,'invalid at i,j = ',i,j end if ! attempt to replace with average based on nearest neighbors sum_weights = 0.0d0 sum_weighted = 0.0d0 icount = 0 do m = 1, nlat p5_delta_lat = abs(lat(i)-lat(m)) ! write(6,'(a,10(es12.4,1x))')'fill: p5_delta_lat = ', p5_delta_lat if( p5_delta_lat .gt. limit )cycle p5_delta_lat = 0.5d0*p5_delta_lat sin2_delta_lat = sin(p5_delta_lat)*sin(p5_delta_lat) cos_dot_lat = cos(lat(i))*cos(lat(m)) ! write(6,'(a,10(es12.4,1x))')'fill: p5_delta_lat,sin2_delta_lat,sin2_delta_lon,cos_dot_lat = ', ! & p5_delta_lat,sin2_delta_lat,cos_dot_lat do n = 1, nlon if( i .eq. m .and. j .eq. n )cycle if( values( m,n ) .le. 0.0d0 )cycle ! set up factors for geodesic arc length p5_delta_lon = 0.5d0*abs(lon(j)-lon(n)) sin2_delta_lon = sin(p5_delta_lon)*sin(p5_delta_lon) arc_length = sin2_delta_lat+cos_dot_lat*sin2_delta_lon if( arc_length .gt. cut_off )cycle arc_length = 2.0d0 * asin( sqrt(arc_length) ) icount = icount + 1 ! write(6,'(a,14(es12.4,1x))')'fill: p5_delta_lon,sin2_delta_lon,arc_length = ', ! & lat(i),lon(j),lat(m),lon(n),p5_delta_lon,sin2_delta_lon,arc_length weight = exp( -arc_length*arc_length ) sum_weights = sum_weights + weight sum_weighted = sum_weighted + weight*values(m,n) end do end do if( sum_weights .gt. 0.0d0 )then values(i,j) = sum_weighted / sum_weights end if end do end do return End Subroutine fill End Module utilities_module ================================================ FILE: PREP/icon/README.md ================================================ ICON ======== The program ICON prepares chemical initial conditions (ICs) for the CMAQ Chemistry Transport Model (CCTM). ICON will generate an output file with chemical concentrations for all grid cells in the modeling domain. Depending on user specified options and/or input datasets, the ICs generated by ICON can be time dependent, time independent, and either spatially uniform or variable across the modeling domain. If deriving ICs from the ASCII vertical profiles, ICON creates spatially uniform, time independent ICs. From concentration (CONC) files, ICON extracts spatially varying ICs, either on the same grid cell resolution (windowed modeling domain), or for a finer grid resolution modeling domain (nested modeling domain). ICs generated from CONC files are time dependent if the input CONC file is time stepped, or time independent if the CONC file time step is zero. There are two distinct modes of operation for ICON. When running ICON, the user must specify whether to generate ICs from: (1) an existing CONC file (*regrid*); or (2) an ASCII file of vertical profiles (*profile*). The User's Guide contains a [tutorial on how to use ICON to create initial conditions from seasonal or daily average hemispheric CMAQ output files](../../DOCS/Users_Guide/Tutorials/CMAQ_UG_tutorial_HCMAQ_IC_BC.md) distributed through the CMAS data warehouse. CMAQ can also use initial conditions derived from global chemistry models (GCMs). While ICON does not directly support processing of datasets from GCMs (in their native formats), users could develop their own custom codes to transform their GCM datasets into I/O API format, which would then allow these datasets to be input into ICON to generate ICs for the CCTM. ## Environment variables used: **Table 1. Runtime Environment Variables** |**Variable Name**|**Example in Runscript**|**Description**| |---------------------|-------------|-----------------------------------------------------------------------| |VRSN|v53|Identifies version for the ICON run. Its value should be consistent between BCON build and run scripts for an individual application.| |APPL|SE53BENCH|Identifies the intent of the ICON run such as the model domain and chemical mechanism used. Value is the user's preference.| |ICTYPE|regrid, profile|Specifies which IC type to generate.| |EXEC|ICON_${VRSN}.exe|Executable to use for the ICON run.| |GRIDDESC|$CMAQ_HOME/scripts/GRIDDESC1|Grid description file for setting the horizontal grid definition for the target domain.| |GRID_NAME|SE53BENCH|Name of the grid definition contained in the GRIDDESC file that specifies the horizontal grid for the target domain.| |OUTDIR|$CMAQ_HOME/data/icon|Output data directory| |SDATE|0|Julian start date for extracting initial conditions from a CCTM CONC file. If SDATE is not set, it will be set automatically from the MET_CRO_3D_FIN file.| |STIME|0|Start time for extracting initial conditions from a CCTM CONC file. If STIME is not set, it will be set automatically from the MET_CRO_3D_FIN file.| |IOAPI_ISPH|20|I/O API setting for spheroid type. See I/O API documentation for [setsphere](https://www.cmascenter.org/ioapi/documentation/all_versions/html/SETSPHERE.html) for more information.| |IOAPI_OFFSET_64|YES|I/O API setting for large time-step records. If your output time step is going to produce data that are >2GB per time step, then this needs to be set to YES.| ## ICON input files **Table 2. ICON input files for ICTYPE equals "regrid"** |**File Name**|**Format**|**Description**| |---------------------|-------------|-----------------------------------------------------------------------| |GRIDDESC|ASCII|Horizontal grid description file for defining the model grid; this file is output by MCIP or can be created by the user| |CTM_CONC_1|IOAPI/GRDDED3|Name and location of the CMAQ concentration file from which to derive initial conditions; this file is output from CCTM| |MET_CRO_3D_CRS|IOAPI/GRDDED3|Name and location of the coarse-grid MET_CRO_3D file that is required for creating the vertical grid structure if this structure changes between nested simulations; this file is output by MCIP| |MET_CRO_3D_FIN|IOAPI/GRDDED3|Name and location of the fine grid MET_CRO_3D file that is required if the vertical grid structure changes between nested simulations; this file is output by MCIP| **Table 3. ICON input files for ICTYPE equals "profile"** |**File Name**|**Format**|**Description**| |-------------|----------|---------------| |GRIDDESC|ASCII|Horizontal grid description file for defining the model grid for the target domain; this file is output by MCIP or can be created by the user| |IC_PROFILE|ASCII|Vertical chemical profiles from which to derive initial conditions; this file can created by the user| |MET_CRO_3D_FIN|IOAPI/BNDARY3|Name and location of the fine-grid (or target modeling domain) MET_CRO_3D file| ## ICON output files **Table 4. ICON output files** |**File Name**|**Format**|**Description**| |------------|-----------|---------------------------------------------------------------| |INIT_CONC_1|IOAPI/GRDDED3|Name and location of the gridded initial conditions data output on the model grid defined by values of VRSN, ICTYPE, APPL, and DATE | The default location of the ICON output files is the `$CMAQ_DATA/icon` directory, controlled by the `OUTDIR` variable in the run script. The default naming convention for all ICON output files uses the `APPL` and `GRID_NAME` environment variables in the file name. For initial conditions created from existing `CCTM CONC` files, the Julian date is also used in the file name through the `DATE` environment variable. All of the file-naming variables for `ICON` outputs are set in the run script. ## Compile ICON source code Execute the build script to compile ICON: ``` cd $CMAQ_HOME/PREP/icon/scripts ./bldit_icon.csh [compiler] [version] |& tee build_icon.log ``` ## Run ICON Set the run script settings according to the execution configuration variables described above. Run ICON to produce initial conditions for the CCTM: ``` cd $CMAQ_HOME/PREP/icon/scripts ./run_icon.csh |& tee run_icon.log ``` Check the log file to ensure complete and correct execution without errors. ================================================ FILE: PREP/icon/scripts/bldit_icon.csh ================================================ #! /bin/csh -f # ====================== ICONv5.5.X Build Script ==================== # Usage: bldit_icon.csh >&! bldit.icon.log # Requirements: I/O API & netCDF libs, and a Fortran compiler # Note that this script is configured/tested for Red Hat Linux O/S # To report problems or request help with this script/program: # http://www.cmascenter.org/html/help.html # =================================================================== #> Set Compiler Identity by User Input: Options -> intel | pgi | gcc if ( $#argv == 1 ) then setenv compiler $argv[1] setenv compilerVrsn Empty else if ( $#argv == 2 ) then #> Compiler Name and Version have been provided setenv compiler $1 setenv compilerVrsn $2 else echo "usage: $0 " echo " where is intel, pgi or gcc" exit(2) endif #> Source the config.cmaq file to set the build environment cd ../../../ source ./config_cmaq.csh set echo # ======================================================================= #> Begin User Input Section # ======================================================================= #> Source Code Locations set ICON_SRC = ${CMAQ_REPO}/PREP/icon/src #> location of the ICON source code setenv REPOROOT $ICON_SRC #> Working directory and Version IDs set VRSN = v55 #> Code Version set EXEC = ICON_${VRSN}.exe #> executable name for this application set CFG = ICON_${VRSN}.cfg #> BLDMAKE configuration file name #> Controls for managing the source code and MPI compilation set CompileBLDMAKE #> Recompile the BLDMAKE utility from source #> comment out to use an existing BLDMAKE executable set CopySrc #> copy the source files into the BLD directory #set CopySrcTree #> copy the source files and directory tree into the build directory #set Opt = verbose #> show requested commands as they are executed #set MakeFileOnly #> uncomment to build a Makefile, but do not compile; #> comment out to compile the model (default if not set) #set Debug_ICON #> uncomment to compile ICON with debug option equal to TRUE #> comment out to use standard, optimized compile process #>============================================================================== #> ICON Science Modules #> #> NOTE: IC type is now a runtime option. All IC types are included at #> compile time #>============================================================================== set ModCommon = common set ModM3conc = m3conc set ModProfile = profile #>#>#>#>#>#>#>#>#>#>#>#>#>#> End User Input Section #<#<#<#<#<#<#<#<#<#<#<#<#<# #>#>#>#>#>#>#>#>#>#>#>#>#>#>#>#>#>#>#>#<#<#<#<#<#<#<#<#<#<#<#<#<#<#<#<#<#<#<#<# #> Set full path of Fortran 90 compiler set FC = ${myFC} set FP = $FC setenv BLDER ${CMAQ_HOME}/UTIL/bldmake/bldmake_${compilerString}.exe #> name of model builder executable #> Set compiler flags set xLib_Base = ${CMAQ_LIB} set xLib_1 = ioapi/lib set xLib_2 = ioapi/include_files set xLib_4 = ioapi/lib set FSTD = "${myFSTD}" set DBG = "${myDBG}" set F_FLAGS = "${myFFLAGS}" set F90_FLAGS = "${myFRFLAGS}" set CPP_FLAGS = "" set LINK_FLAGS = "${myLINK_FLAG}" set LIB1 = "$ioapi_lib" set LIB2 = "$netcdf_lib $extra_lib" set LIB3 = "$netcdff_lib" #============================================================================================ #> Implement User Input #============================================================================================ #> Check for CMAQ_REPO and CMAQ_LIB settings: if ( ! -e $CMAQ_REPO || ! -e $CMAQ_LIB ) then echo " $CMAQ_REPO or $CMAQ_LIB directory not found" exit 1 endif echo " Model repository base path: $CMAQ_REPO" echo " library path: $CMAQ_LIB" #> If $CMAQ_MODEL is not set, default to $CMAQ_REPO if ( $?CMAQ_MODEL ) then echo " Model repository path: $CMAQ_MODEL" else #> This script was written for Linux hosts only. If #> the host system is not Linux, produce an error and stop set BLD_OS = `uname -s` if ($BLD_OS != 'Linux') then echo " $BLD_OS -> wrong bldit script for host!" exit 1 endif #> Set and create the "BLD" directory for checking out and compiling #> source code. Move current directory to that build directory. set Bld = $CMAQ_HOME/PREP/icon/scripts/BLD_ICON_${VRSN}_${compilerString} if ( ! -e "$Bld" ) then mkdir $Bld else if ( ! -d "$Bld" ) then echo " *** target exists, but not a directory ***" exit 1 endif endif cd $Bld #> make the config file set Cfile = ${CFG}.bld set quote = '"' echo > $Cfile echo "model $EXEC;" >> $Cfile echo >> $Cfile echo "repo $ICON_SRC;" >> $Cfile echo >> $Cfile echo "lib_base $xLib_Base;" >> $Cfile echo >> $Cfile echo "lib_1 $xLib_1;" >> $Cfile echo >> $Cfile echo "lib_2 $xLib_2;" >> $Cfile echo >> $Cfile echo "lib_4 $xLib_4;" >> $Cfile echo >> $Cfile set text = "$quote$CPP_FLAGS$quote;" echo "cpp_flags $text" >> $Cfile echo >> $Cfile echo "f_compiler $FC;" >> $Cfile echo >> $Cfile echo "fstd $quote$FSTD$quote;" >> $Cfile echo >> $Cfile echo "dbg $quote$DBG$quote;" >> $Cfile echo >> $Cfile echo "f_flags $quote$F_FLAGS$quote;" >> $Cfile echo >> $Cfile echo "f90_flags $quote$F90_FLAGS$quote;" >> $Cfile echo >> $Cfile echo "link_flags $quote$LINK_FLAGS$quote;" >> $Cfile echo >> $Cfile echo "ioapi $quote$LIB1$quote;" >> $Cfile echo >> $Cfile echo "netcdf $quote$LIB2$quote;" >> $Cfile echo >> $Cfile echo "netcdff $quote$LIB3$quote;" >> $Cfile echo >> $Cfile echo "// project repository location: ${ICON_SRC}" >> $Cfile echo >> $Cfile set text = "common" echo "// required" $text >> $Cfile echo "Module ${ModCommon};" >> $Cfile echo >> $Cfile set text = "m3conc" echo "// options are" $text >> $Cfile echo "Module ${ModM3conc};" >> $Cfile echo >> $Cfile set text = "profile" echo "// options are" $text >> $Cfile echo "Module ${ModProfile};" >> $Cfile echo >> $Cfile if ( $?ModMisc ) then echo "Module ${ModMisc};" >> $Cfile echo >> $Cfile endif # ============================================================================ #> Create Makefile and Model Executable # ============================================================================ unalias mv rm #> Recompile BLDMAKE from source if requested or if it does not exist if ( $?CompileBLDMAKE || ! -f $BLDER ) then cd ${CMAQ_REPO}/UTIL/bldmake/scripts ./bldit_bldmake.csh endif set Blder = "$BLDER -serial -verbose" #> Relocate to the BLD_* directory cd $Bld # Set ICON debug flags if true if ( $?Debug_ICON ) then set Blder = "${Blder} -debug_cctm" endif #> Run BLDMAKE Utility if ( $?MakeFileOnly ) then if ( $?CopySrc ) then $Blder -makefo $Cfile else $Blder -makefo -git_local $Cfile # $Cfile = ${CFG} # totalview -a $Blder -makefo $Cfile endif else # also compile the model if ( $?CopySrc ) then $Blder $Cfile else $Blder -git_local $Cfile endif endif #> Rename Makefile to specify compiler option and link back to Makefile mv Makefile Makefile.$compilerString if ( -e Makefile.$compilerString && -e Makefile ) rm Makefile ln -s Makefile.$compilerString Makefile #> Alert user of error in BLDMAKE if it ocurred if ( $status != 0 ) then echo " *** failure in $Blder ***" exit 1 endif #> Preserve old Config file, if it exists, before moving new one to #> build directory. if ( -e "$Bld/${CFG}" ) then echo " >>> previous ${CFG} exists, re-naming to ${CFG}.old <<<" unalias mv mv $Bld/${CFG} $Bld/${CFG}.old endif mv ${CFG}.bld $Bld/${CFG} exit ================================================ FILE: PREP/icon/scripts/run_icon.csh ================================================ #!/bin/csh -f # ======================= ICONv5.5.X Run Script ======================== # Usage: run_icon.csh >&! icon.log & # # To report problems or request help with this script/program: # http://www.cmascenter.org # ==================================================================== # ================================================================== #> Runtime Environment Options # ================================================================== #> Choose compiler and set up CMAQ environment with correct #> libraries using config.cmaq. Options: intel | gcc | pgi setenv compiler intel #> Source the config_cmaq file to set the run environment pushd ../../../ source ./config_cmaq.csh $compiler popd #> Check that CMAQ_DATA is set: if ( ! -e $CMAQ_DATA ) then echo " $CMAQ_DATA path does not exist" exit 1 endif echo " "; echo " Input data path, CMAQ_DATA set to $CMAQ_DATA"; echo " " #> Set General Parameters for Configuring the Simulation set VRSN = v55 #> Code Version set APPL = 2016_12SE1 #> Application Name set ICTYPE = regrid #> Initial conditions type [profile|regrid] #> Set the working directory: set BLD = ${CMAQ_HOME}/PREP/icon/scripts/BLD_ICON_${VRSN}_${compilerString} set EXEC = ICON_${VRSN}.exe cat $BLD/ICON_${VRSN}.cfg; echo " "; set echo #> Horizontal grid definition setenv GRID_NAME SE53BENCH #> check GRIDDESC file for GRID_NAME options #setenv GRIDDESC $CMAQ_DATA/$APPL/met/mcip/GRIDDESC #> grid description file setenv GRIDDESC /work/MOD3DATA/SE53BENCH/met/mcipv4.5/GRIDDESC setenv IOAPI_ISPH 20 #> GCTP spheroid, use 20 for WRF-based modeling #> I/O Controls setenv IOAPI_LOG_WRITE F #> turn on excess WRITE3 logging [ options: T | F ] setenv IOAPI_OFFSET_64 YES #> support large timestep records (>2GB/timestep record) [ options: YES | NO ] setenv EXECUTION_ID $EXEC #> define the model execution id # ===================================================================== #> ICON Configuration Options # # ICON can be run in one of two modes: # 1) regrids CMAQ CTM concentration files (IC type = regrid) # 2) use default profile inputs (IC type = profile) # ===================================================================== setenv ICON_TYPE ` echo $ICTYPE | tr "[A-Z]" "[a-z]" ` # ===================================================================== #> Input/Output Directories # ===================================================================== set OUTDIR = $CMAQ_HOME/data/icon #> output file directory # ===================================================================== #> Input Files # # Regrid mode (IC = regrid) (includes nested domains, windowed domains, # or general regridded domains) # CTM_CONC_1 = the CTM concentration file for the coarse domain # MET_CRO_3D_CRS = the MET_CRO_3D met file for the coarse domain # MET_CRO_3D_FIN = the MET_CRO_3D met file for the target nested domain # # Profile Mode (IC = profile) # IC_PROFILE = static/default IC profiles # MET_CRO_3D_FIN = the MET_CRO_3D met file for the target domain # # NOTE: SDATE (yyyyddd) and STIME (hhmmss) are only relevant to the # regrid mode and if they are not set, these variables will # be set from the input MET_CRO_3D_FIN file # ===================================================================== #> Output File # INIT_CONC_1 = gridded IC file for target domain # ===================================================================== set DATE = "2016-07-01" set YYYYJJJ = `date -ud "${DATE}" +%Y%j` #> Convert YYYY-MM-DD to YYYYJJJ set YYMMDD = `date -ud "${DATE}" +%y%m%d` #> Convert YYYY-MM-DD to YYMMDD set YYYYMMDD = `date -ud "${DATE}" +%Y%m%d` #> Convert YYYY-MM-DD to YYYYMMDD # setenv SDATE ${YYYYJJJ} # setenv STIME 000000 if ( $ICON_TYPE == regrid ) then setenv CTM_CONC_1 /work/MOD3EVAL/sjr/CCTM_CONC_v53beta2_intel17.0_HEMIS_cb6r3m_ae7_kmtbr_m3dry_2016_quarterly_av.nc setenv MET_CRO_3D_CRS /work/MOD3DATA/2016_12US1/met/mcip_v43_wrf_v381_ltng/METCRO3D.12US1.35L.${YYMMDD} setenv MET_CRO_3D_FIN /work/MOD3DATA/SE53BENCH/met/mcipv4.5/METCRO3D_${YYMMDD}.nc setenv INIT_CONC_1 "$OUTDIR/ICON_${VRSN}_${APPL}_${ICON_TYPE}_${YYYYMMDD} -v" endif if ( $ICON_TYPE == profile ) then setenv IC_PROFILE $BLD/avprofile_cb6r3m_ae7_kmtbr_hemi2016_v53beta2_m3dry_col051_row068.csv setenv MET_CRO_3D_FIN /work/MOD3DATA/SE53BENCH/met/mcipv4.5/METCRO3D_${YYMMDD}.nc setenv INIT_CONC_1 "$OUTDIR/ICON_${VRSN}_${APPL}_${ICON_TYPE}_${YYYYMMDD} -v" endif #>- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - if ( ! -d "$OUTDIR" ) mkdir -p $OUTDIR ls -l $BLD/$EXEC; size $BLD/$EXEC unlimit limit #> Executable call: time $BLD/$EXEC set progstat = ${status} if ( ${progstat} ) then echo "ERROR ${progstat} in $BLD/$EXEC" exit( ${progstat} ) endif exit() ================================================ FILE: PREP/icon/src/common/HGRD_DEFN.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/ICON/src/common/HGRD_DEFN.F,v 1.4 2011/11/02 16:34:03 sjr Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: MODULE HGRD_DEFN C Define the horizontal domain, globally and for each processor, if parallel C Revision History: David Wong 18 Feb 01: created C Jeff Young 23 Feb 01: generalize C 31 Mar 01: add BLKPRM.EXT C 10 Nov 01: change to use GRIDDESC, env vars C J Gipson 01 Sep 04: change block size to 50 C J Young 07 Dec 04: remove layer dependency (for MXCELLS, C MXBLKS) to implement vertical layer C dyn alloc appropriately C J Young 22 Dec 05: move proc. anayl. stuff to PAGRD_DEFN C S. Roselle 29 Mar 11: Replaced I/O API include files C with UTILIO_DEFN C S.Roselle 07 Nov 18: Removed parallel processing code C....................................................................... IMPLICIT NONE C grid name selected from GRIDDESC CHARACTER( 16 ), SAVE :: GRID_NAME C returned coordinate system (projection) CHARACTER( 16 ), SAVE :: COORD_SYS_NAME C map projection type (should be named PRTYP_GD!) INTEGER, SAVE :: GDTYP_GD = 2 ! LAMGRD3 C first map projection parameter (degrees) REAL( 8 ), SAVE :: P_ALP_GD = 30.0 C second map projection parameter (degrees) REAL( 8 ), SAVE :: P_BET_GD = 60.0 C third map projection parameter (degrees) REAL( 8 ), SAVE :: P_GAM_GD = -90.0 C longitude for coord-system center (degrees) REAL( 8 ), SAVE :: XCENT_GD = -90.0 C latitude for coord-system center (degrees) REAL( 8 ), SAVE :: YCENT_GD = 40.0 REAL( 8 ), SAVE :: XORIG_GD ! X-coordinate origin of computational grid REAL( 8 ), SAVE :: YORIG_GD ! Y-coordinate origin of computational grid REAL( 8 ), SAVE :: XCELL_GD ! X-coordinate cell width (M) REAL( 8 ), SAVE :: YCELL_GD ! Y-coordinate cell width (M) INTEGER, SAVE :: NCOLS ! grid columns array dimension INTEGER, SAVE :: NROWS ! grid rows array dimension INTEGER, SAVE :: NBNDY ! no. of cells in one layer of local boundary INTEGER, SAVE :: NTHIK ! boundary thickness (cells) CONTAINS FUNCTION HGRD_INIT ( ) RESULT ( SUCCESS ) USE M3UTILIO ! IOAPI module LOGICAL :: SUCCESS INTEGER, SAVE :: LOGDEV LOGICAL, SAVE :: FIRSTIME = .TRUE. CHARACTER( 96 ) :: XMSG = ' ' C environment variable grid name to select from GRIDDESC CHARACTER( 16 ) :: HGRD_NAME = 'GRID_NAME' INTEGER, EXTERNAL :: SETUP_LOGDEV INTEGER :: STATUS CHARACTER( 48 ) :: VARDESC C----------------------------------------------------------------------- C This function is expected to be called only once - at startup IF ( FIRSTIME ) THEN FIRSTIME = .FALSE. ! LOGDEV = SETUP_LOGDEV() LOGDEV = INIT3() SUCCESS = .TRUE. VARDESC = 'Horizontal Domain Definition ' CALL ENVSTR( HGRD_NAME, VARDESC, 'GRID_NAME', GRID_NAME, STATUS ) IF ( STATUS .NE. 0 ) WRITE( LOGDEV, '(5X, A)' ) VARDESC IF ( STATUS .EQ. 1 ) THEN XMSG = 'Environment variable improperly formatted' CALL M3WARN ( 'HGRD_INIT', 0, 0, XMSG ) SUCCESS = .FALSE.; RETURN ELSE IF ( STATUS .EQ. -1 ) THEN XMSG = 'Environment variable set, but empty ... Using default' WRITE( LOGDEV, '(5X, A)' ) XMSG ELSE IF ( STATUS .EQ. -2 ) THEN XMSG = 'Environment variable not set ... Using default' WRITE( LOGDEV, '(5X, A)' ) XMSG END IF C With GRID_NAME (only input) retrieve all horizontal grid parameters from C the grid description file pointed to by the GRIDDESC env var: IF ( .NOT. DSCGRID ( GRID_NAME, & COORD_SYS_NAME, GDTYP_GD, & P_ALP_GD, P_BET_GD, P_GAM_GD, & XCENT_GD, YCENT_GD, & XORIG_GD, YORIG_GD, XCELL_GD, YCELL_GD, & NCOLS, NROWS, NTHIK ) ) THEN XMSG = 'Failure retrieving horizontal grid parameters' CALL M3WARN ( 'HGRD_INIT', 0, 0, XMSG ) SUCCESS = .FALSE.; RETURN END IF NBNDY = 2*NTHIK * ( NCOLS + NROWS + 2*NTHIK ) ELSE XMSG = 'Horizontal domain decomposition already defined' CALL M3WARN ( 'HGRD_INIT', 0, 0, XMSG ) SUCCESS = .FALSE.; RETURN END IF ! FIRSTIME RETURN END FUNCTION HGRD_INIT END MODULE HGRD_DEFN ================================================ FILE: PREP/icon/src/common/IC_PARMS.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! MODULE IC_PARMS C...................................................................... C From INCLUDE FILE: IC_PARMS.EXT C CONTAINS: Dimensioning parameters and data for ICON C DEPENDENT UPON: None C REVISION HISTORY: Prototype created by Jerry Gipson, January, 1998 C Modified by JG May, 1999 to treat PinG concs C Remove PING by J.Young June, 2011 C Made into an F90 MODULE - J.Young, May 2012 C...................................................................... !terra5:/home/yoj/src/arc/test/CCTM-repo/hadv/yamo> find /home/yoj/src/arc/ICON-git -name '*.[fF]' -exec grep -i IC_PARMS.EXT {} \; -print ! INCLUDE 'IC_PARMS.EXT' ! ICON paramters !/home/yoj/src/arc/ICON-git/common/icon.F ! INCLUDE 'IC_PARMS.EXT' ! ICON parameters !/home/yoj/src/arc/ICON-git/common/lst_spc_map.F ! INCLUDE 'IC_PARMS.EXT' ! ICON parameters !/home/yoj/src/arc/ICON-git/common/ngc_spc_map.F ! INCLUDE 'IC_PARMS.EXT' ! ICON parameters !/home/yoj/src/arc/ICON-git/common/opn_ic_file.F ! INCLUDE 'IC_PARMS.EXT' ! BCON paramters !/home/yoj/src/arc/ICON-git/m3conc/m3_ck_ctmmet.F ! INCLUDE 'IC_PARMS.EXT' ! ICON parameters !/home/yoj/src/arc/ICON-git/m3conc/m3_ck_ctms.F ! INCLUDE 'IC_PARMS.EXT' ! BCON paramters !/home/yoj/src/arc/ICON-git/m3conc/m3_ck_icmet.F ! INCLUDE 'IC_PARMS.EXT' ! ICON paramters !/home/yoj/src/arc/ICON-git/m3conc/m3_driver.F ! INCLUDE 'IC_PARMS.EXT' ! ICON paramters !/home/yoj/src/arc/ICON-git/m3conc/m3_icout.F ! INCLUDE 'IC_PARMS.EXT' ! ICON paramters !/home/yoj/src/arc/ICON-git/m3conc/m3_vinterp.F ! INCLUDE 'IC_PARMS.EXT' ! ICON paramters !/home/yoj/src/arc/ICON-git/profile/prof_driver.F ! INCLUDE 'IC_PARMS.EXT' ! ICON paramters !/home/yoj/src/arc/ICON-git/profile/prof_icout.F ! INCLUDE 'IC_PARMS.EXT' ! ICON paramters !/home/yoj/src/arc/ICON-git/profile/prof_vinterp.F ! INCLUDE 'IC_PARMS.EXT' ! ICON paramters !/home/yoj/src/arc/ICON-git/tracer/trac_driver.F ! INCLUDE 'IC_PARMS.EXT' ! ICON paramters !/home/yoj/src/arc/ICON-git/tracer/trac_ic.F C Dimensioning parameters INTEGER, PARAMETER :: MX_MECHFL_IC = 500 ! Max no. of species INTEGER, PARAMETER :: MX_INFL_SP = 500 ! Max no. of species in an input file INTEGER, PARAMETER :: MXCTMS = 3 ! Max no. of input CTM files C Type declarations C Root names of possible output files INTEGER, PARAMETER :: NROOTS = 5 CHARACTER( 16 ) :: ICFL_ROOT( NROOTS ) = (/ ! Output file root names & 'INIT_CONC_', & 'INIT_GASC_', & 'INIT_AERO_', & 'INIT_NONR_', & 'INIT_TRAC_' /) C Catalogued tracer species names INTEGER, PARAMETER :: NTRACERS = 8 ! No. of catalogued tracers CHARACTER( 16 ) :: TRAC_NAME( NTRACERS ) = (/ ! Catalogued tracer names & 'IC1_BC0', & 'IC1_BC1', & 'IC0_BC1', & 'STREET ', & 'CHKBRD ', & 'SPOS_A ', & 'SPOS_B ', & 'SPOS_C ' /) C Descriptions of tracers species CHARACTER( 80 ) :: TRAC_DESC( NTRACERS ) = (/ ! Description of catalogued tracers & 'Uniform IC/BC with IC = 1.0 and BC 0.0 ', & 'Uniform IC/BC with IC = 1.0 and BC 1.0 ', & 'Uniform IC/BC with IC = 0.0 and BC 0.0 ', & 'Checkerboard pattern of IC/BC = 1.0 & 0.0', & 'Street pattern of IC/BC = 1.0 & 0.0 ', & 'Signal A for superposition test, A-B-C=0 ', & 'Signal B for superposition test, A-B-C=0 ', & 'Signal C for superposition test, A-B-C=0 ' /) C Descriptions of catalogued vertical coordinate systems CHARACTER( 23 ) :: VGDESC( 8 ) = (/ ! Description of vertical grid type & 'Hydrostatic sigma-p ', & 'Non-hydrostatic sigma-p', & 'Sigma-z ', & 'Pressure (mb) ', & 'Z (m above sea level) ', & 'H (m above ground ', & 'WRF mass-core sigma ', & 'WRF NMM ' /) C When generating "fine grid" icon output from a "coarse grid" concentration file... C If the vertical grid type is different between the input concentration file and C the targeted, output icon file, the mid-layer height fields (ZH) for both the C "coarse" input and the "fine" output are required from appropriate MET_CRO_3D files. CHARACTER( 16 ) :: MET_CRO_3D_CRS = 'MET_CRO_3D_CRS' ! coarse grid CHARACTER( 16 ) :: MET_CRO_3D_FIN = 'MET_CRO_3D_FIN' ! fine grid END MODULE IC_PARMS ================================================ FILE: PREP/icon/src/common/VGRD_DEFN.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/ICON/src/common/VGRD_DEFN.F,v 1.2 2011/10/21 16:41:51 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: MODULE VGRD_DEFN C Define the vertical layer structure (replaces COORD.EXT and VGRD.EXT) C Revision History: Jeff Young: 6 Dec 04: created C 26 Jul 06: comments in line with PARMS3.EXT C S. Roselle 29 Mar 11: Replaced I/O API include files C with UTILIO_DEFN C S.Roselle 02 Nov 18: Use MET_CRO_3D_FIN to get layer C structure instead of requiring C a separate LAYER_FILE C S.Roselle 06 Nov 18: Replaced UTILIO_DEFN with M3UTILIO C....................................................................... IMPLICIT NONE INTEGER, SAVE :: NLAYS = 0 REAL, ALLOCATABLE, SAVE :: VGLVS_GD( : ) ! vert layer surface values REAL, ALLOCATABLE, SAVE :: X3FACE_GD( : ) ! mono. incr. vert coord values ! = 1 - VGLVS_GD CHARACTER( 16 ), SAVE :: GDNAME_GD C The definitions and declarations in this F90 Module follow those C given in the I/O-API include file FDESC3C.EXT and replace similar C definitions. This F90 Module is compatible with FDESC3C.EXT. C VGTYP_GD: C The vertical grid type: C 1: VGSGPH3 : hydrostatic sigma-P C 2: VGSGPN3 : non-h sigma-P C 3: VGSIGZ3 : sigma-Z C 4: VGPRES3 : pressure (mb) C 5: VGZVAL3 : Z (m) (above sea lvl) C 6: VGHVAL3 : H (m) (above ground) C 7: VGWRFEM : WRF mass-core sigma C 8: VGWRFNM : WRF NMM C 9: IMISS3 for vertical coordinates not stored in VGLVSD C (e.g., temporally or spatially changing vertical coordinates) INTEGER, SAVE :: VGTYP_GD C VGTPUN_GD: C The units of the vertical coordinate top. CHARACTER( 16 ), SAVE :: VGTPUN_GD C VGTOP_GD: C The value for the model top used in the definition of the sigma coordinate C systems in the VGTPUN_GD units. REAL, SAVE :: VGTOP_GD C For sigma-P, the relationship between pressure levels P and sigma-P is C given by: C sigma-P = ( P - VGTOP_GD ) / (P_srf - VGTOP_GD ), C where P_srf is the surface pressure. C VGLVUN_GD: C The units of the vertical coordinate surface values, CHARACTER( 16 ) :: VGLVUN_GD C----------------------------------------------------------------------- CONTAINS FUNCTION VGRD_INIT ( ) RESULT ( SUCCESS ) USE M3UTILIO ! IOAPI module IMPLICIT NONE LOGICAL :: SUCCESS ! integer, save :: logdev LOGICAL, SAVE :: FIRSTIME = .TRUE. CHARACTER( 96 ) :: XMSG = ' ' CHARACTER( 16 ) :: LAYER_FILE = 'MET_CRO_3D_FIN' INTEGER L, ALLOCSTAT C This function is expected to be called only once - at startup IF ( FIRSTIME ) THEN FIRSTIME = .FALSE. ! logdev = init3() SUCCESS = .TRUE. C get vert layer definition from LAYER_FILE IF ( .NOT. OPEN3( LAYER_FILE, FSREAD3, 'VGRD_INIT' ) ) THEN XMSG = 'Could not open '// LAYER_FILE CALL M3WARN ( 'VGRD_INIT', 0, 0, XMSG ) SUCCESS = .FALSE.; RETURN END IF IF ( .NOT. DESC3( LAYER_FILE ) ) THEN XMSG = 'Could not get ' // LAYER_FILE // ' file description' CALL M3WARN ( 'VGRD_INIT', 0, 0, XMSG ) SUCCESS = .FALSE.; RETURN END IF GDNAME_GD = GDNAM3D NLAYS = NLAYS3D VGTYP_GD = VGTYP3D VGTOP_GD = VGTOP3D VGTPUN_GD = 'Pa' VGLVUN_GD = 'none' ALLOCATE ( VGLVS_GD( NLAYS + 1 ), STAT = ALLOCSTAT ) ALLOCATE ( X3FACE_GD( 0:NLAYS ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN XMSG = 'Failure allocating VGLVS_GD, X3FACE_GD' CALL M3WARN ( 'VGRD_INIT', 0, 0, XMSG ) SUCCESS = .FALSE.; RETURN END IF DO L = 1, NLAYS + 1 VGLVS_GD( L ) = VGLVS3D( L ) END DO C set layer layer thickenesses DO L = 0, NLAYS X3FACE_GD( L ) = 1.0 - VGLVS_GD( L + 1 ) END DO ELSE XMSG = 'Vertical layer structure already defined' CALL M3WARN ( 'VGRD_INIT', 0, 0, XMSG ) SUCCESS = .FALSE.; RETURN END IF ! FIRSTIME RETURN END FUNCTION VGRD_INIT END MODULE VGRD_DEFN C 21 VGLVS_GD X3FACE_GD C C 1 1.0 0.0 C 2 0.995 0.005 C 3 0.99 0.01 C 4 0.985 0.015 C 5 0.98 0.02 C 6 0.97 0.03 C 7 0.96 0.04 C 8 0.945 0.055 C 9 0.93 0.07 C 10 0.91 0.09 C 11 0.89 0.11 C 12 0.865 0.135 C 13 0.84 0.16 C 14 0.78 0.22 C 15 0.7 0.3 C 16 0.6 0.4 C 17 0.5 0.5 C 18 0.4 0.6 C 19 0.3 0.7 C 20 0.2 0.8 C 21 0.1 0.9 C 22 0.0 1.0 ================================================ FILE: PREP/icon/src/common/findex.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/ICON/src/common/findex.F,v 1.2 2011/10/21 16:41:51 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: INTEGER FUNCTION FINDEX (INDX, N, NLIST) C Searches for INDX in list NLIST and returns the subscript C (1...N) at which it is found, or returns 0 when NAME not C found in NLIST IMPLICIT NONE INTEGER INDX ! index being searched for INTEGER N ! Length of array to be searched INTEGER NLIST(*) ! array to be searched INTEGER I DO I = 1, N IF ( INDX .EQ. NLIST( I ) ) THEN ! found FINDEX = I RETURN END IF END DO FINDEX = 0 ! not found RETURN END ================================================ FILE: PREP/icon/src/common/icon.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/ICON/src/common/icon.F,v 1.3 2011/11/01 16:07:15 sjr Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% PROGRAM ICON C*********************************************************************** C Function: To produce a Models-3 CTM Initial Concentration file. C Valid input options include: C 1) a user specified ASCII file of vertical profiles, C 2) a CMAQ CTM output file, C 3) subroutines that produce catalogued test pattern species concs. C Preconditions: None C Key Subroutines/Functions Called: INIC C Revision History: C Created by Jerry Gipson, January, 1998; based on the original Models-3 C prototype. C Modified 4/22/99 by JG to provide default treatment for missing SDATE C and STIME C 12/13/99 David Wong, LM -- parallelelized the code C 01/24/02 Steve Howard (Jeff Young) - dynamic allocation C 12/13/04 J.Young: vert dyn alloc - Use VGRD_DEFN C 24 May 06 J.Young: par_init/pio_init col/row order check C 06 Jun 11 J.Young: Replaced I/O API include files with UTILIO_DEFN C 13 Jun 11 J.Young: Convert for Namelist redesign C 21 May 12 J.Young: Replaced IC_PARMS include file with an F90 module C 02 Nov 18 S.Roselle: Removed species mapping; updates to enable runtime C option for profile, regrid, or test patterns BCs C 07 Nov 18 S.Roselle: Removed parallel processing code; C replaced UTILIO_DEFN with M3UTILIO C*********************************************************************** USE HGRD_DEFN ! Module to store and load the horizontal grid variables USE VGRD_DEFN ! vertical layer specifications USE M3UTILIO ! IOAPI module USE IC_PARMS ! ICON parameters IMPLICIT NONE C Include Files: None C Arguments: None C Parameters: None C External Procedures: None C Local Variables: CHARACTER( 16 ) :: PNAME = 'ICON' ! Procedure name CHARACTER( 16 ) :: ICON_TYPE = 'ICON_TYPE' ! ICON type environment variable CHARACTER( 16 ) :: IC_MODULE = 'regrid' ! selected module CHARACTER( 80 ) :: MSG ! Log message CHARACTER( 80 ) :: VARDESC ! variable description INTEGER LOGUNIT ! Unit number for output log INTEGER STATUS ! Status code INTERFACE SUBROUTINE M3_INIC ( LOGUNIT ) INTEGER, INTENT( IN ) :: LOGUNIT END SUBROUTINE M3_INIC SUBROUTINE PROF_INIC ( LOGUNIT ) INTEGER, INTENT( IN ) :: LOGUNIT END SUBROUTINE PROF_INIC ! SUBROUTINE TRAC_INIC ( LOGUNIT ) ! INTEGER, INTENT( IN ) :: LOGUNIT ! END SUBROUTINE TRAC_INIC END INTERFACE C*********************************************************************** cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Initialize IO/API and get environment variables cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc LOGUNIT = INIT3( ) VARDESC = 'Initial condition type: (regrid, profile)' CALL ENVSTR ( ICON_TYPE, VARDESC, IC_MODULE, IC_MODULE, STATUS ) IF ( STATUS .NE. 0 ) WRITE( LOGUNIT, '(5X, A)' ) VARDESC IF ( STATUS .EQ. 1 ) THEN MSG = 'Environment variable improperly formatted' CALL M3EXIT ( PNAME, 0, 0, MSG, XSTAT2 ) ELSE IF ( STATUS .EQ. -1 ) THEN MSG = 'Environment variable set, but empty ... Using default:' WRITE( LOGUNIT, '(5X, A, A)' ) MSG, IC_MODULE ELSE IF ( STATUS .EQ. -2 ) THEN MSG = 'Environment variable not set ... Using default:' WRITE( LOGUNIT, '(5X, A, A)' ) MSG, IC_MODULE END IF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Load horizontal grid variables calling GRID_DEF->HGRD_INIT function cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF ( .NOT. HGRD_INIT() ) THEN MSG = '*** Failure defining horizontal domain' CALL M3EXIT ( PNAME, 0, 0, MSG, XSTAT2 ) END IF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c define vertical layer structure cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF ( .NOT. VGRD_INIT() ) THEN MSG = '*** Failure defining vertical structure' CALL M3EXIT ( PNAME, 0, 0, MSG, XSTAT2 ) END IF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Generate the IC output file and quit cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF ( IC_MODULE .EQ. 'regrid' ) THEN CALL M3_INIC ( LOGUNIT ) ELSE IF ( IC_MODULE .EQ. 'profile' ) THEN CALL PROF_INIC ( LOGUNIT ) ! ELSE IF ( IC_MODULE .EQ. 'patterns' ) THEN ! CALL TRAC_INIC ( LOGUNIT ) ELSE MSG = '*** Unknown ICON type requested: ' // IC_MODULE CALL M3EXIT ( PNAME, 0, 0, MSG, XSTAT2 ) END IF IF ( SHUT3() ) THEN WRITE ( LOGUNIT,92999 ) & '>>----> Program ICON completed successfully <----<< ' ELSE WRITE ( LOGUNIT,91000 ) & 'FATAL ERROR shutting down Models-3 I/O' END IF STOP C************************* FORMAT STATEMENTS *************************** 92999 FORMAT ( //5X, A, // ) 91000 FORMAT ( //5X , '*** ERROR ABORT in program ICON ***', & /5X , A , // ) ! generic error message format END ================================================ FILE: PREP/icon/src/common/lat_lon.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/ICON/src/common/lat_lon.F,v 1.2 2011/10/21 16:41:52 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% SUBROUTINE LAT_LON ( COL, ROW, GDTYP, XORIG, YORIG, XCELL, YCELL, & XCENT, YCENT, P_ALP, P_BET, P_GAM, LAT, LON ) C*********************************************************************** C Function: Computes latitude and longitude of center of grid cells C Preconditions: None C Key Subroutines/Functions Called: SETLAM C SETPOL C SETEQM C LAM2LL C POL2LL C EQM2LL C UTM2LL C Revision History: Modified form of LAT_LON program originally created C by C. J. Coats -- Jerry Gipson, January 1998 C 06 Jun 11 J.Young: Replaced I/O API include files with UTILIO_DEFN C 28 Aug 18 R.Mathur/S.Roselle: Added polar stereographic projection C grid type option C 06 Nov 18 S.Roselle: Replaced UTILIO_DEFN with M3UTILIO C 21 Apr 21 C. Hogrefe: Added equatorial mercator projection C grid type option C*********************************************************************** USE M3UTILIO ! IOAPI module IMPLICIT NONE C Arguments: INTEGER, INTENT( IN ) :: GDTYP ! Grid type INTEGER, INTENT( IN ) :: COL ! column INTEGER, INTENT( IN ) :: ROW ! row REAL( 8 ), INTENT( IN ) :: P_ALP ! 1st map projection parameter REAL( 8 ), INTENT( IN ) :: P_BET ! 2nd map projection parameter REAL( 8 ), INTENT( IN ) :: P_GAM ! 3rd map projection parameter REAL( 8 ), INTENT( IN ) :: XCELL ! X-dimension of cell (m) REAL( 8 ), INTENT( IN ) :: XCENT ! Longitude of coordinate system center REAL( 8 ), INTENT( IN ) :: XORIG ! X-origin of grid REAL( 8 ), INTENT( IN ) :: YCELL ! Y-dimension of cell (m) REAL( 8 ), INTENT( IN ) :: YCENT ! Latitude of coordinate system center REAL( 8 ), INTENT( IN ) :: YORIG ! Y-origin of grid REAL, INTENT( OUT ) :: LAT ! Output latitude REAL, INTENT( OUT ) :: LON ! Output longitude C Parameters: None C Local Variables: CHARACTER( 16 ) :: PNAME = 'LAT_LON' CHARACTER( 80 ) :: MSG = ' ' INTEGER ZONE ! UTM zone REAL X, X0 ! X-dimension origin REAL Y, Y0 ! Y-dimension origin C*********************************************************************** X0 = SNGL( XORIG - 0.5D+00 * XCELL ) Y0 = SNGL( YORIG - 0.5D+00 * YCELL ) IF ( GDTYP .EQ. LATGRD3 ) THEN ! LAT_LON Coordinates LAT = Y0 + FLOAT( ROW ) * SNGL( YCELL ) LON = X0 + FLOAT( COL ) * SNGL( XCELL ) ELSE IF ( GDTYP .EQ. LAMGRD3 ) THEN ! Lambert Coordinates IF ( .NOT. SETLAM( SNGL( P_ALP ), ! first, initialize & SNGL( P_BET ), ! for LAM2LL() & SNGL( P_GAM ), & SNGL( XCENT ), & SNGL( YCENT ) ) ) THEN MSG = 'Lambert projection setup error for CTM CONC file' CALL M3EXIT ( PNAME, 0, 0, MSG, 2 ) END IF X = X0 + FLOAT( COL ) * SNGL( XCELL ) Y = Y0 + FLOAT( ROW ) * SNGL( YCELL ) IF ( .NOT. LAM2LL( X, Y, LON, LAT ) ) THEN MSG = 'Lambert conversion error for CTM CONC file' CALL M3EXIT ( PNAME, 0, 0, MSG, 2 ) END IF ELSE IF ( GDTYP .EQ. POLGRD3 ) THEN ! Polar Stereographic Projection IF ( .NOT. SETPOL( SNGL( P_ALP ), ! first, initialize & SNGL( P_BET ), ! for POL2LL() & SNGL( P_GAM ), & SNGL( XCENT ), & SNGL( YCENT ) ) ) THEN MSG='Polar stereographic projection setup error for CTM CONC file' CALL M3EXIT ( PNAME, 0, 0, MSG, 2 ) END IF X = X0 + FLOAT( COL ) * SNGL( XCELL ) Y = Y0 + FLOAT( ROW ) * SNGL( YCELL ) IF ( .NOT. POL2LL( X, Y, LON, LAT ) ) THEN MSG = 'Polar stereographic conversion error for CTM CONC file' CALL M3EXIT ( PNAME, 0, 0, MSG, 2 ) END IF ELSE IF ( GDTYP .EQ. EQMGRD3 ) THEN ! Equatorial Mercator Projection IF ( .NOT. SETEQM( SNGL( P_ALP ), ! first, initialize & SNGL( P_BET ), ! for EQM2LL() & SNGL( P_GAM ), & SNGL( XCENT ), & SNGL( YCENT ) ) ) THEN MSG='Equatorial mercator projection setup error for CTM CONC file' CALL M3EXIT ( PNAME, 0, 0, MSG, 2 ) END IF X = X0 + FLOAT( COL ) * SNGL( XCELL ) Y = Y0 + FLOAT( ROW ) * SNGL( YCELL ) IF ( .NOT. EQM2LL( X, Y, LON, LAT ) ) THEN MSG = 'Equatorial mercator conversion error for CTM CONC file' CALL M3EXIT ( PNAME, 0, 0, MSG, 2 ) END IF ELSE IF ( GDTYP .EQ. UTMGRD3 ) THEN ! UTM Coordinates ZONE = NINT( P_ALP ) X = X0 + FLOAT( COL ) * SNGL( XCELL ) Y = Y0 + FLOAT( ROW ) * SNGL( YCELL ) CALL UTM2LL ( X, Y, ZONE, LON, LAT ) ELSE ! Unsupported Coordinates WRITE( MSG, 94000) GDTYP CALL M3EXIT ( PNAME, 0, 0, MSG, 2 ) END IF RETURN C************************* FORMAT Statements *************************** 94000 FORMAT( 'LAT/LON calculations for GDTYP3D ',I1, ' not supported' ) END ================================================ FILE: PREP/icon/src/common/lr_interp.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/ICON/src/common/lr_interp.F,v 1.2 2011/10/21 16:41:52 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% SUBROUTINE LR_INTERP ( L_RATINT, XA, YA, N, X, Y, DELY ) C*********************************************************************** C Function: Interpolates a value Y for a given X from the arrays XA and C YA. The flag L_RATINT determines whether linear or rational C function interpolation is done. C Preconditions: Extrapolation will be performed unless controlled by C the calling routine C Key Subroutines/Functions Called: None C Revision History: C Prototype created by Jerry Gipson, January, 1998 C Rational Function Interpolation is from Numerical Recipes C (Press et al., 19??) C Linear interpolation equation modified by JG 6/1/99 to better treat C large conc gradients C Improved Linear interpolation algorithm by JG 4/18/00 for interpolants C close to interval end points C UTILIO_DEFN for M3EXIT by J.Young 6/9/11 C replaced UTILIO_DEFN with M3UTILIO C*********************************************************************** USE M3UTILIO ! IOAPI module IMPLICIT NONE C Arguments: LOGICAL, INTENT( IN ) :: L_RATINT ! Flag for rational function interpolation REAL, INTENT( IN ) :: XA( : ) ! Independent variable array REAL, INTENT( IN ) :: YA( : ) ! Dependent variable array REAL, INTENT( IN ) :: X ! Value of independent variable to be interpolated REAL, INTENT( OUT ) :: Y ! Interpolated value of dependent variable REAL, INTENT( OUT ) :: DELY ! Error estimate for rational function interpolation INTEGER, INTENT( IN ) :: N ! Number of values in arrays XA and YA C Parameters: INTEGER, PARAMETER :: NMAX = 100 ! Maximum number of points in arrays AX and YA REAL, PARAMETER :: TINY = 1.0E-35 ! Tiny number REAL, PARAMETER :: EPS = 1.0E-05 ! Small number C External Functions: None C Local Variables: CHARACTER( 16 ) :: PNAME = 'LR_INTERP' ! Procedure Name CHARACTER( 80 ) :: MSG ! Log message INTEGER I, M ! Loop indices INTEGER NS ! Rat Func temporary variable REAL DX ! Incremental delta of independent variable ! REAL DY ! Incremental delta of dependent variable REAL SX ! Incremental independent value for interpolation REAL SLP ! Slope for linear interpolation REAL H, HH, T, DD, W ! Rat Func temporary variables REAL :: C( NMAX ) ! Rat Func temporary variable REAL :: D( NMAX ) ! Rat Func temporary variable C*********************************************************************** cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Linear interpolation section cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF ( .NOT. L_RATINT ) THEN DELY = 0.0 IF ( ( XA( 1 ) .LT. XA( 2 ) .AND. X .LE. XA( 1 ) ) .OR. & ( XA( 1 ) .GT. XA( 2 ) .AND. X .GE. XA( 1 ) ) ) THEN DX = XA( 2 ) - XA( 1 ) IF ( DX .EQ. 0.0 ) THEN MSG = 'Invalid Independent variables for interpolation' CALL M3EXIT ( PNAME, 0, 0, MSG, XSTAT2 ) END IF Y = YA( 1 ) + ( ( X - XA( 1 ) ) / DX ) * YA( 1 ) RETURN END IF IF ( ( XA( N ) .GT. XA( N - 1 ) .AND. X .GE. XA( N ) ) .OR. & ( XA( N ) .LT. XA( N - 1 ) .AND. X .LE. XA( N ) ) ) THEN DX = XA( N ) - XA( N - 1 ) IF ( DX .EQ. 0.0 ) THEN MSG = 'Invalid Independent variables for interpolation' CALL M3EXIT ( PNAME, 0, 0, MSG, XSTAT2 ) END IF Y = YA( N ) + ( ( X - XA( N ) ) / DX ) * YA( N - 1 ) RETURN END IF DO I = 1, N - 1 DX = ABS( XA( I + 1 ) - XA( I ) ) IF ( DX .EQ. 0.0 ) THEN MSG = 'Invalid Independent variables for interpolation' CALL M3EXIT ( PNAME, 0, 0, MSG, XSTAT2 ) END IF ! DY = YA( I + 1 ) - YA( I ) SX = ABS( X - XA( I ) ) IF ( SX - DX .LT. EPS ) THEN ! Y = YA( I ) + ( ( X - XA( I ) ) / ! & ( XA( I + 1 ) - XA( I ) ) ) * DY SLP = ( X - XA( I ) ) / ( XA( I + 1 ) - XA( I ) ) IF ( SLP .GT. 0.99999 ) SLP = 1.0 IF ( SLP .LT. 0.00001 ) SLP = 0.0 Y = ( 1.0 - SLP ) * YA( I ) + SLP * YA( I+1 ) RETURN END IF END DO MSG = 'No interval found for linear interpolation' CALL M3EXIT ( PNAME, 0, 0, MSG, XSTAT2 ) END IF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Rational function interpolation section cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc NS = 1 HH = ABS( X - XA( 1 ) ) DO I = 1, N H = ABS( X -XA( I ) ) IF ( H .EQ. 0.0 ) THEN Y = YA( I ) DELY = 0.0 RETURN ELSE IF ( H .LT. HH ) THEN NS = I HH = H END IF C( I ) = YA( I ) D( I ) = YA( I ) + TINY END DO Y = YA( NS ) NS = NS - 1 DO M = 1, N - 1 DO I = 1, N - M W = C( I + 1 ) - D( I ) H = XA( I + M ) - X T = ( XA( I ) - X ) * D( I ) / H DD = T - C( I + 1 ) IF ( DD .EQ. 0.0 ) THEN MSG = 'Rational function interpolation error' CALL M3EXIT ( PNAME, 0, 0, MSG, XSTAT2 ) END IF DD = W / DD D( I ) = C( I + 1 ) * DD C( I ) = T * DD END DO IF ( 2 * NS .LT. N - M ) THEN DELY = C( NS + 1 ) ELSE DELY = D( NS ) NS = NS - 1 END IF Y = Y + DELY END DO RETURN END ================================================ FILE: PREP/icon/src/common/opn_ic_file.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/ICON/src/common/opn_ic_file.F,v 1.2 2011/10/21 16:41:52 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% SUBROUTINE OPN_IC_FILE ( LOGUNIT, SDATE, STIME, TSTEP, NSPCS_OUT, & SPNAME_OUT, VTYPE_OUT, UNITS_OUT, & VDESC_OUT, IC_FNAME, RINDX ) C*********************************************************************** C Function: Sets most of the Models-3 file description parameters for C the IC output file and opens it. C Preconditions: None C Key Subroutines/Functions Called: None C Revision History: C Prototype created by Jerry Gipson, January, 1998 C Error message problem fixed by JG 3/31/98 C Output format modified by JG 4/24/98 C Added units for aerosol surface area JG 4/22/99 C 02/15/00 David Wong, LM C -- changed NROWS to GL_NROWS and same for NCOLS C 01/24/02 Steve Howard (Jeff Young, Dave Wong) C -- dynamic allocation C 12/13/04 J.Young: vert dyn alloc - Use VGRD_DEFN C 06 Jun 11 J.Young: Replaced I/O API include files with UTILIO_DEFN C 13 Jun 11 J.Young: Convert for Namelist redesign C 21 May 12 J.Young: Replaced IC_PARMS include file with an F90 module C 07 Nov 18 S.Roselle: Removed parallel processing code; C replaced UTILIO_DEFN with M3UTILIO C*********************************************************************** USE HGRD_DEFN ! Module to store and load the horizontal grid variables USE VGRD_DEFN ! vertical layer specifications USE M3UTILIO ! IOAPI module USE IC_PARMS ! ICON parameters IMPLICIT NONE C Arguments: CHARACTER( 16 ), INTENT( OUT ) :: IC_FNAME( : ) ! Logical names of IC Output file(s) CHARACTER( 16 ), INTENT( IN ) :: SPNAME_OUT( : ) ! Output file species names CHARACTER( 16 ), INTENT( IN ) :: UNITS_OUT( : ) CHARACTER( 80 ), INTENT( IN ) :: VDESC_OUT( : ) INTEGER, INTENT( IN ) :: LOGUNIT ! Unit number for output log INTEGER, INTENT( IN ) :: NSPCS_OUT ! Number of IC species on output file(s) INTEGER, INTENT( IN ) :: RINDX ! Index of root file name INTEGER, INTENT( IN ) :: SDATE ! Date for IC Output INTEGER, INTENT( IN ) :: STIME ! Time for IC output INTEGER, INTENT( IN ) :: TSTEP ! Timestep for IC Output INTEGER, INTENT( IN ) :: VTYPE_OUT( : ) ! Variable type (e.g. integer, real, ...) C Parameters: None C External Functions: None C Local Variables: CHARACTER( 16 ) :: BUF16 ! 16 character buffer CHARACTER( 3 ) :: CHRDAT ! 3 character buffer CHARACTER( 16 ) :: ENV_DFLT ! Default value for env variable CHARACTER( 80 ) :: ENV_DESC ! Description of env variable CHARACTER( 80 ) :: MSG ! Log message CHARACTER( 16 ) :: PNAME = 'OPN_IC_FILE' ! Procedure Name CHARACTER( 256 ) :: RET_VAL ! Return value of an env variable INTEGER L, N, V ! Loop indices INTEGER NUMFLS ! Number of output IC files INTEGER SPOS1, EPOS1 ! Start and end position of char string INTEGER SPOS2, EPOS2 ! Start and end position of char string INTEGER STATUS ! Status code INTEGER VARINDX ! Variable index C*********************************************************************** cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Write log information cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc WRITE( LOGUNIT, 92000 ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Get the value of environment variable EXECUTION_ID cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc ENV_DESC = 'Value of environment variable EXECUTION_ID' ENV_DFLT = '-----------' CALL ENVSTR ( 'EXECUTION_ID', ENV_DESC, ENV_DFLT, RET_VAL, STATUS ) EXECN3D = RET_VAL cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Set start date, start time, and time step cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc SDATE3D = SDATE STIME3D = STIME TSTEP3D = TSTEP cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Set start date, start time, and time step cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc FTYPE3D = GRDDED3 NVARS3D = NSPCS_OUT NCOLS3D = NCOLS NROWS3D = NROWS NLAYS3D = NLAYS NTHIK3D = NTHIK cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Set coordinate data cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc ! GDNAM3D = GDNAME_GD ! e.g. / 'EAST_US' / GDNAM3D = GRID_NAME ! from HGRD_DEFN GDTYP3D = GDTYP_GD ! / LAMGRD3 / P_ALP3D = P_ALP_GD ! / 30.0 / ! degrees P_BET3D = P_BET_GD ! / 60.0 / ! degrees P_GAM3D = P_GAM_GD ! / -90.0 / ! degrees XCENT3D = XCENT_GD ! / -90.0 / ! degrees longitude YCENT3D = YCENT_GD ! / 40.0 / ! degrees latitude XORIG3D = XORIG_GD ! / -880000.0 / ! m, for cross grid here YORIG3D = YORIG_GD ! / -1720000.0 / ! m, for cross grid here XCELL3D = XCELL_GD ! / 80000.0 / ! m YCELL3D = YCELL_GD ! / 80000.0 / ! m VGTYP3D = VGTYP_GD ! / VGSGPN3 / ! 2: Sigma-P0 VGTOP3D = VGTOP_GD ! / 10000.0 / ! Pa cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Set vertical levels cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc DO L = 1, NLAYS + 1 VGLVS3D ( L ) = VGLVS_GD ( L ) END DO cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Set character descriptors cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc DO N = 1, MXDESC3 FDESC3D( N ) = ' ' UPDSC3D( N ) = ' ' END DO cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Set-up output file header data, compute the number of output c files needed, and open each one cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF ( MOD( NSPCS_OUT, MXVARS3 ) .EQ. 0 ) THEN NUMFLS = NSPCS_OUT / MXVARS3 ELSE NUMFLS = ( NSPCS_OUT / MXVARS3 ) + 1 END IF WRITE( LOGUNIT, 92020 ) NUMFLS DO N = 1, NUMFLS WRITE( CHRDAT, '( I3 )' ) N SPOS1 = LBLANK ( CHRDAT ) + 1 EPOS1 = LEN_TRIM( CHRDAT ) SPOS2 = LBLANK ( ICFL_ROOT( RINDX ) ) + 1 EPOS2 = LEN_TRIM( ICFL_ROOT( RINDX ) ) BUF16 = ICFL_ROOT( RINDX ) IC_FNAME( N ) = BUF16( SPOS2:EPOS2 ) // CHRDAT( SPOS1:EPOS1 ) ENV_DESC = 'IC Output file ' // IC_FNAME( N ) ENV_DFLT = ' ' CALL ENVSTR ( IC_FNAME( N ), ENV_DESC, ENV_DFLT, RET_VAL, STATUS ) IF ( STATUS .NE. 0 ) THEN MSG = 'IC output file ' // IC_FNAME( N ) // ' not assigned' CALL M3EXIT ( PNAME, 0, 0, MSG, XSTAT2 ) END IF FDESC3D( 1 ) = 'ICON output file ' // IC_FNAME( N ) NVARS3D = MIN( MXVARS3, & ( NSPCS_OUT - ( N - 1 ) * MXVARS3 ) ) DO V = 1, NVARS3D VARINDX = ( N - 1 ) * MXVARS3 + V VTYPE3D( V ) = VTYPE_OUT( VARINDX ) VNAME3D( V ) = SPNAME_OUT( VARINDX ) UNITS3D( V ) = UNITS_OUT( VARINDX ) VDESC3D( V ) = VDESC_OUT( VARINDX ) END DO WRITE( LOGUNIT, 92040 ) N, IC_FNAME( N ) WRITE( LOGUNIT, 92060 ) EXECN3D, FTYPE3D, SDATE3D, STIME3D, & TSTEP3D, NCOLS3D, NROWS3D, NLAYS3D, & NTHIK3D, NVARS3D, GDTYP3D, P_ALP3D, & P_BET3D, P_GAM3D, XCENT3D, YCENT3D, & XORIG3D, YORIG3D, XCELL3D, YCELL3D, & VGTYP3D, VGTOP3D, GDNAM3D WRITE( LOGUNIT, 92080 ) ( VGLVS3D( L ), L = 1, NLAYS + 1 ) WRITE( LOGUNIT, 92100 ) DO V = 1, NVARS3D WRITE( LOGUNIT, 92120 ) VNAME3D( V ), VTYPE3D( V ), & UNITS3D( V ), TRIM( VDESC3D( V ) ) END DO IF ( .NOT. OPEN3( IC_FNAME( N ), FSUNKN3, PNAME ) ) THEN MSG = 'Could not open nor create ' // IC_FNAME( N ) // & ' file ' CALL M3EXIT ( PNAME, 0, 0, MSG, XSTAT1 ) END IF END DO RETURN C************************* FORMAT STATEMENTS *************************** 92000 FORMAT( // 1X, 79( '#' ) & / 1X, '# Output File Section ' & / 1X, 79( '#' ) ) 92020 FORMAT( // 5X, 'Total number of ouput files created: ', I1 ) 92040 FORMAT( // 5X, 'IO/API Header data for IC file ', I1, ': ', A ) 92060 FORMAT( /10X, 'EXEC_ID: ', A & /10X, 'FTYPE = ', I4 & /10X, 'SDATE = ', I7 & /10X, 'STIME = ', I7 & /10X, 'TSTEP = ', I7 & /10X, 'NCOLS = ', I4 & /10X, 'NROWS = ', I4 & /10X, 'NLAYS = ', I4 & /10X, 'NTHIK = ', I4 & /10X, 'NVARS = ', I4 & /10X, 'GDTYP = ', I4 & /10X, 'P_ALP = ', 1PE14.5 & /10X, 'P_BET = ', 1PE14.5 & /10X, 'P_GAM = ', 1PE14.5 & /10X, 'XCENT = ', 1PE14.5 & /10X, 'YCENT = ', 1PE14.5 & /10X, 'XORIG = ', 1PE14.5 & /10X, 'YORIG = ', 1PE14.5 & /10X, 'XCELL = ', 1PE14.5 & /10X, 'YCELL = ', 1PE14.5 & /10X, 'VGTYP = ', I4 & /10X, 'VGTOP = ', 1PE14.5 & /10X, 'GDNAM = ', A ) 92080 FORMAT( /10X, 'VGLVS = ', 5 ( 1PE14.5 ) / & ( 10X, ' ', 5 ( 1PE14.5 ) ) ) 92100 FORMAT( //10X, 'Output Variables:' & /10X, 'Name', 15X, 'Type', 2X, 'Units', 13X, 'Description' ) 92120 FORMAT( 10X, A16, 5X, I1, 3X, A16, 2X, A ) END ================================================ FILE: PREP/icon/src/m3conc/m3_ck_ctmmet.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/ICON/src/m3conc/m3_ck_ctmmet.F,v 1.2 2011/10/21 16:41:53 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% SUBROUTINE CK_CTMMET_FL ( LOGUNIT, SDATE, STIME, CTM_FL_NAME ) C*********************************************************************** C Function: To check input MET_CRO_3D_CRS file for consistency with C the CTM_CONC file C Preconditions: None C Key Subroutines/Functions Called: None C Revision History: Prototype created by Jerry Gipson, May, 1999 C 08 Jun 11 J.Young: Replaced I/O API include files with UTILIO_DEFN C 21 May 12 J.Young: Replaced IC_PARMS include file with an F90 module C 06 Nov 18 S.Roselle: Replaced UTILIO_DEFN with M3UTILIO C 10 June 19 F. Sidi : Corrected data byte mismatch between IOAPI and ICON C*********************************************************************** USE M3UTILIO ! IOAPI module USE IC_PARMS ! ICON parameters IMPLICIT NONE C Arguments: CHARACTER( 16 ), INTENT( IN ) :: CTM_FL_NAME( : ) ! Names of CTM files INTEGER, INTENT( IN ) :: LOGUNIT ! Unit number for output log INTEGER, INTENT( IN ) :: SDATE ! Start date INTEGER, INTENT( IN ) :: STIME ! Start time C Parameters: None C External Functions: None C Local Variables: CHARACTER( 80 ) :: MSG = ' ' ! Log message CHARACTER( 16 ) :: PNAME = 'CK_CTMMET_FL' ! Procedure Name CHARACTER( 15 ) :: VAL1 ! Character value of real CHARACTER( 15 ) :: VAL2 ! Character value of real INTEGER L ! Loop index INTEGER FTYPE1 ! File 1 file type INTEGER NCOLS1 ! File 1 number of columns INTEGER NROWS1 ! File 1 number of rows INTEGER NLAYS1 ! File 1 number of levels INTEGER NTHIK1 ! File 1 boundary thickness INTEGER GDTYP1 ! File 1 horizontal grid type INTEGER VGTYP1 ! File 1 Vertical coordinate type INTEGER ALLOCSTAT ! Status returned from array allocation LOGICAL LERROR ! Error Flag REAL*8 :: P_ALP1 ! File 1 map projection parameter REAL*8 :: P_BET1 ! File 1 map projection parameter REAL*8 :: P_GAM1 ! File 1 map projection parameter REAL*8 :: XORIG1 ! File 1 X-origin REAL*8 :: YORIG1 ! File 1 Y-origin REAL*8 :: XCELL1 ! File 1 X-dimension of cells REAL*8 :: YCELL1 ! File 1 Y-dimension of cells REAL*8 :: XCENT1 ! File 1 X-center of coordinate system REAL*8 :: YCENT1 ! File 1 Y-center of coordinate system REAL :: VGTOP1 ! File 1 model top REAL, ALLOCATABLE :: VGLVS1( : ) ! File vertical layer heights C*********************************************************************** cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Write out report data cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc MSG = 'MET_CRO_3D_CRS File being checked for ' // & 'consistent header data' CALL M3MESG( MSG ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Get header data for CTM file 1 and create a list of species in the c CTM files cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF ( .NOT. DESC3 ( CTM_FL_NAME( 1 ) ) ) THEN MSG = 'Could not read DESC of ' // CTM_FL_NAME( 1 ) & // ' file' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT2 ) END IF FTYPE1 = FTYPE3D NCOLS1 = NCOLS3D NROWS1 = NROWS3D NLAYS1 = NLAYS3D NTHIK1 = NTHIK3D GDTYP1 = GDTYP3D P_ALP1 = P_ALP3D P_BET1 = P_BET3D P_GAM1 = P_GAM3D XORIG1 = XORIG3D YORIG1 = YORIG3D XCELL1 = XCELL3D YCELL1 = YCELL3D XCENT1 = XCENT3D YCENT1 = YCENT3D VGTYP1 = VGTYP3D VGTOP1 = VGTOP3D ALLOCATE( VGLVS1( NLAYS1+1 ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN MSG = 'Failure allocating VGLVS1' CALL M3EXIT ( PNAME, 0, 0, MSG, XSTAT1 ) END IF DO L = 1 , NLAYS1 + 1 VGLVS1( L ) = VGLVS3D( L ) END DO cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Open the MET_CRO_3D_CRS file cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF ( .NOT. OPEN3( MET_CRO_3D_CRS, FSREAD3, PNAME ) ) THEN MSG = 'Could not open ' // MET_CRO_3D_CRS // ' file' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF IF ( .NOT. DESC3( MET_CRO_3D_CRS ) ) THEN MSG = 'Could not read DESC of ' // MET_CRO_3D_CRS & // ' file' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT2 ) END IF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Check MET_CRO_3D_CRS file cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc WRITE( MSG, '( '' Differences found between files '', A, & '' and '', A, '':'' )' ) CTM_FL_NAME( 1 ), & MET_CRO_3D_CRS CALL M3MESG( MSG ) LERROR = .FALSE. IF ( FTYPE1 .NE. FTYPE3D ) THEN WRITE( LOGUNIT, 94020 ) FTYPE1, FTYPE3D LERROR = .TRUE. END IF IF ( GDTYP1 .NE. GDTYP3D ) THEN WRITE( LOGUNIT, 94200 ) GDTYP1, GDTYP3D LERROR = .TRUE. END IF WRITE( VAL1, 94000 ) P_ALP1 WRITE( VAL2, 94000 ) P_ALP3D IF ( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94220 ) P_ALP1, P_ALP3D LERROR = .TRUE. END IF WRITE( VAL1, 94000 ) P_BET1 WRITE( VAL2, 94000 ) P_BET3D IF ( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94240 ) P_BET1, P_BET3D LERROR = .TRUE. END IF WRITE( VAL1, 94000 ) P_GAM1 WRITE( VAL2, 94000 ) P_GAM3D IF ( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94260 ) P_GAM1, P_GAM3D LERROR = .TRUE. END IF WRITE( VAL1, 94000 ) XORIG1 WRITE( VAL2, 94000 ) XORIG3D IF ( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94280 ) XORIG1, XORIG3D LERROR = .TRUE. END IF WRITE( VAL1, 94000 ) YORIG1 WRITE( VAL2, 94000 ) YORIG3D IF ( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94300 ) YORIG1, YORIG3D LERROR = .TRUE. END IF WRITE( VAL1, 94000 ) XCELL1 WRITE( VAL2, 94000 ) XCELL3D IF ( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94320 ) XCELL1, XCELL3D LERROR = .TRUE. END IF WRITE( VAL1, 94000 ) YCELL1 WRITE( VAL2, 94000 ) YCELL3D IF ( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94340 ) YCELL1, YCELL3D LERROR = .TRUE. END IF WRITE( VAL1, 94000 ) XCENT1 WRITE( VAL2, 94000 ) XCENT3D IF ( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94360 ) XCENT1, XCENT3D LERROR = .TRUE. END IF WRITE( VAL1, 94000 ) YCENT1 WRITE( VAL2, 94000 ) YCENT3D IF ( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94380 ) YCENT1, YCENT3D LERROR = .TRUE. END IF WRITE( VAL1, 94000 ) VGTOP1 WRITE( VAL2, 94000 ) VGTOP3D IF ( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94420 ) VGTOP1, VGTOP3D LERROR = .TRUE. END IF DO L = 1 , NLAYS1 + 1 WRITE( VAL1, 94000 ) VGLVS1( L ) WRITE( VAL2, 94000 ) VGLVS3D( L ) IF ( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94440 ) L, VGLVS1( L ), L, & VGLVS3D( L ) LERROR = .TRUE. END IF END DO ! IF ( .NOT. CHECK3( MET_CRO_3D_CRS, 'ALL', SDATE, STIME ) ) THEN ! MSG = 'Requested time is not on the ' // MET_CRO_3D_CRS ! & // ' file' ! WRITE( LOGUNIT, 94480 ) MSG ! LERROR = .TRUE. ! END IF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c If inconsistency found, then stop, else return cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF ( .NOT. LERROR ) THEN WRITE( LOGUNIT, 94460 ) ELSE MSG = 'MET_CRO_3D_CRS file inconsistent: stopping' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT2 ) END IF RETURN C************************* FORMAT STATEMENTS *************************** 94000 FORMAT( E15.5 ) 94020 FORMAT( 10X, 'CTM_CONC_1 FTYPE = ', I3, 3X, 'MET_CRO_3D_CRS FTYPE = ', I3 ) 94200 FORMAT( 10X, 'CTM_CONC_1 GDTYP = ', I3, 3X, 'MET_CRO_3D_CRS GDTYP = ', I3 ) 94220 FORMAT( 10X, 'CTM_CONC_1 P_ALP = ', 1PE12.5, 3X, 'MET_CRO_3D_CRS P_ALP = ', 1PE12.5 ) 94240 FORMAT( 10X, 'CTM_CONC_1 P_BET = ', 1PE12.5, 3X, 'MET_CRO_3D_CRS P_BET = ', 1PE12.5 ) 94260 FORMAT( 10X, 'CTM_CONC_1 P_GAM = ', 1PE12.5, 3X, 'MET_CRO_3D_CRS P_GAM = ', 1PE12.5 ) 94280 FORMAT( 10X, 'CTM_CONC_1 XORIG = ', 1PE12.5, 3X, 'MET_CRO_3D_CRS XORIG = ', 1PE12.5 ) 94300 FORMAT( 10X, 'CTM_CONC_1 YORIG = ', 1PE12.5, 3X, 'MET_CRO_3D_CRS YORIG = ', 1PE12.5 ) 94320 FORMAT( 10X, 'CTM_CONC_1 XCELL = ', 1PE12.5, 3X, 'MET_CRO_3D_CRS XCELL = ', 1PE12.5 ) 94340 FORMAT( 10X, 'CTM_CONC_1 YCELL = ', 1PE12.5, 3X, 'MET_CRO_3D_CRS YCELL = ', 1PE12.5 ) 94360 FORMAT( 10X, 'CTM_CONC_1 XCENT = ', 1PE12.5, 3X, 'MET_CRO_3D_CRS XCENT = ', 1PE12.5 ) 94380 FORMAT( 10X, 'CTM_CONC_1 YCENT = ', 1PE12.5, 3X, 'MET_CRO_3D_CRS YCENT = ', 1PE12.5 ) 94420 FORMAT( 10X, 'CTM_CONC_1 VGTOP = ', 1PE12.5, 3X, 'MET_CRO_3D_CRS VGTOP = ', 1PE12.5 ) 94440 FORMAT( 10X, 'CTM_CONC_1 VGLVS(', I2, ' ) = ', 1PE12.5, & 'MET_CRO_3D_CRS VGLVS(', I2, ' ) = ', 1PE12.5 ) 94460 FORMAT( 10X, 'NONE' ) 94480 FORMAT( A ) END ================================================ FILE: PREP/icon/src/m3conc/m3_ck_ctms.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/ICON/src/m3conc/m3_ck_ctms.F,v 1.2 2011/10/21 16:41:54 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% SUBROUTINE CK_CTM_FLS ( LOGUNIT, N_CTM_FLS, CTM_FL_NAME ) C*********************************************************************** C Function: To check multiple input CTM conc files for consistent C header data C Preconditions: None C Key Subroutines/Functions Called: None C Revision History: Prototype created by Jerry Gipson, January, 1998 C Modified by JG May, 1999 to change way reals are C checked C 08 Jun 11 J.Young: Replaced I/O API include files with UTILIO_DEFN C 21 May 12 J.Young: Replaced IC_PARMS include file with an F90 module C 06 Nov 18 S.Roselle: Replaced UTILIO_DEFN with M3UTILIO C 10 June 19 F Sidi : Corrected data byte mismatch between IOAPI and ICON C*********************************************************************** USE M3UTILIO ! IOAPI module USE IC_PARMS ! ICON parameters IMPLICIT NONE C Arguments: INTEGER, INTENT( IN ) :: LOGUNIT ! Unit number for output log INTEGER, INTENT( IN ) :: N_CTM_FLS ! Number of input CTM files CHARACTER( 16 ), INTENT( IN ) :: CTM_FL_NAME( : ) ! Name of CTM file C Parameters: None C External Functions: None C Local Variables: CHARACTER( 80 ) :: MSG ! Log message CHARACTER( 16 ) :: PNAME = 'CK_CTM_FLS' ! Procedure Name CHARACTER( 15 ) :: VAL1 ! Character value of real CHARACTER( 15 ) :: VAL2 ! Character value of real INTEGER L, N ! Loop indices INTEGER FTYPE1 ! File 1 file type INTEGER NCOLS1 ! File 1 number of columns INTEGER NROWS1 ! File 1 number of rows INTEGER NLAYS1 ! File 1 number of levels INTEGER SDATE1 ! File 1 start date INTEGER STIME1 ! File 1 start time INTEGER TSTEP1 ! File 1 time step INTEGER MXREC1 ! File 1 number of time steps INTEGER NTHIK1 ! File 1 boundary thickness INTEGER GDTYP1 ! File 1 horizontal grid type INTEGER VGTYP1 ! File 1 Vertical coordinate type INTEGER ALLOCSTAT ! Status returned from array allocation LOGICAL LERROR ! Error Flag LOGICAL LSTOP ! Exit Flag REAL*8 :: P_ALP1 ! File 1 map projection parameter REAL*8 :: P_BET1 ! File 1 map projection parameter REAL*8 :: P_GAM1 ! File 1 map projection parameter REAL*8 :: XORIG1 ! File 1 X-origin REAL*8 :: YORIG1 ! File 1 Y-origin REAL*8 :: XCELL1 ! File 1 X-dimension of cells REAL*8 :: YCELL1 ! File 1 Y-dimension of cells REAL*8 :: XCENT1 ! File 1 X-center of coordinate system REAL*8 :: YCENT1 ! File 1 Y-center of coordinate system REAL VGTOP1 ! File 1 model top REAL, ALLOCATABLE :: VGLVS1( : ) ! File vertical layer heights C*********************************************************************** cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Write out report data cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc MSG = 'Multiple CTM Concentration files being used for ICs' CALL M3WARN ( PNAME, 0, 0, MSG ) MSG = ' Files being checked for consistent header data' CALL M3MESG ( MSG ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Get header data for CTM file 1 cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF ( .NOT. DESC3( CTM_FL_NAME( 1 ) ) ) THEN MSG = 'Could not read DESC of ' // CTM_FL_NAME( 1 ) & // ' file' CALL M3EXIT ( PNAME, 0, 0, MSG, XSTAT2 ) END IF FTYPE1 = FTYPE3D NCOLS1 = NCOLS3D NROWS1 = NROWS3D NLAYS1 = NLAYS3D SDATE1 = SDATE3D STIME1 = STIME3D TSTEP1 = TSTEP3D MXREC1 = MXREC3D NTHIK1 = NTHIK3D GDTYP1 = GDTYP3D P_ALP1 = P_ALP3D P_BET1 = P_BET3D P_GAM1 = P_GAM3D XORIG1 = XORIG3D YORIG1 = YORIG3D XCELL1 = XCELL3D YCELL1 = YCELL3D XCENT1 = XCENT3D YCENT1 = YCENT3D VGTYP1 = VGTYP3D VGTOP1 = VGTOP3D ALLOCATE( VGLVS1( NLAYS1+1 ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN MSG = 'Failure allocating VGLVS1' CALL M3EXIT ( PNAME, 0, 0, MSG, XSTAT1 ) END IF DO N = 1 , NLAYS1 + 1 VGLVS1( N ) = VGLVS3D( N ) END DO cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Compare header data on file 1 with header data on other CTM files cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc LSTOP = .FALSE. DO N = 2, N_CTM_FLS WRITE( MSG, '( '' Differences found between files '', A, & '' and '', A, '':'' )' ) CTM_FL_NAME( 1 ), & CTM_FL_NAME( N ) LERROR = .FALSE. IF ( .NOT. DESC3 ( CTM_FL_NAME( N ) ) ) THEN MSG = 'Could not read DESC of ' // CTM_FL_NAME( N ) & // ' file' CALL M3EXIT ( PNAME, 0, 0, MSG, XSTAT2 ) END IF IF ( FTYPE1 .NE. FTYPE3D ) THEN WRITE( LOGUNIT, 94020 ) FTYPE1, N, FTYPE3D LERROR = .TRUE. END IF IF ( NCOLS1 .NE. NCOLS3D ) THEN WRITE( LOGUNIT, 94040 ) NCOLS1, N, NCOLS3D LERROR = .TRUE. END IF IF ( NROWS1 .NE. NROWS3D ) THEN WRITE( LOGUNIT, 94060 ) NROWS1, N, NROWS3D LERROR = .TRUE. END IF IF ( NLAYS1 .NE. NLAYS3D ) THEN WRITE( LOGUNIT, 94080 ) NLAYS1, N, NLAYS3D LERROR = .TRUE. END IF IF ( SDATE1 .NE. SDATE3D ) THEN WRITE( LOGUNIT, 94100 ) SDATE1, N, SDATE3D LERROR = .TRUE. END IF IF ( STIME1 .NE. STIME3D ) THEN WRITE( LOGUNIT, 94120 ) STIME1, N, STIME3D LERROR = .TRUE. END IF IF ( TSTEP1 .NE. TSTEP3D ) THEN WRITE( LOGUNIT, 94140 ) TSTEP1, N, TSTEP3D LERROR = .TRUE. END IF IF ( MXREC1 .NE. MXREC3D ) THEN WRITE( LOGUNIT, 94160 ) MXREC1, N, MXREC3D LERROR = .TRUE. END IF IF ( NTHIK1 .NE. NTHIK3D ) THEN WRITE( LOGUNIT, 94180 ) NTHIK1, N, NTHIK3D LERROR = .TRUE. END IF IF ( GDTYP1 .NE. GDTYP3D ) THEN WRITE( LOGUNIT, 94200 ) GDTYP1, N, GDTYP3D LERROR = .TRUE. END IF WRITE( VAL1, 94000 ) P_ALP1 WRITE( VAL2, 94000 ) P_ALP3D IF ( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94220 ) P_ALP1, N, P_ALP3D LERROR = .TRUE. END IF WRITE( VAL1, 94000 ) P_BET1 WRITE( VAL2, 94000 ) P_BET3D IF ( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94240 ) P_BET1, N, P_BET3D LERROR = .TRUE. END IF WRITE( VAL1, 94000 ) P_GAM1 WRITE( VAL2, 94000 ) P_GAM3D IF ( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94260 ) P_GAM1, N, P_GAM3D LERROR = .TRUE. END IF WRITE( VAL1, 94000 ) XORIG1 WRITE( VAL2, 94000 ) XORIG3D IF ( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94280 ) XORIG1, N, XORIG3D LERROR = .TRUE. END IF WRITE( VAL1, 94000 ) YORIG1 WRITE( VAL2, 94000 ) YORIG3D IF ( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94300 ) YORIG1, N, YORIG3D LERROR = .TRUE. END IF WRITE( VAL1, 94000 ) XCELL1 WRITE( VAL2, 94000 ) XCELL3D IF ( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94320 ) XCELL1, N, XCELL3D LERROR = .TRUE. END IF WRITE( VAL1, 94000 ) YCELL1 WRITE( VAL2, 94000 ) YCELL3D IF ( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94340 ) YCELL1, N, YCELL3D LERROR = .TRUE. END IF WRITE( VAL1, 94000 ) XCENT1 WRITE( VAL2, 94000 ) XCENT3D IF ( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94360 ) XCENT1, N, XCENT3D LERROR = .TRUE. END IF WRITE( VAL1, 94000 ) YCENT1 WRITE( VAL2, 94000 ) YCENT3D IF ( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94380 ) YCENT1, N, YCENT3D LERROR = .TRUE. END IF WRITE( VAL1, 94000 ) VGTOP1 WRITE( VAL2, 94000 ) VGTOP3D IF ( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94420 ) VGTOP1, N, VGTOP3D LERROR = .TRUE. END IF DO L = 1 , NLAYS1 + 1 WRITE( VAL1, 94000 ) VGLVS1( L ) WRITE( VAL2, 94000 ) VGLVS3D( L ) IF ( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94440 ) L, VGLVS1( L ), N, L, & VGLVS3D( L ) LERROR = .TRUE. END IF END DO IF ( .NOT. LERROR ) THEN WRITE( LOGUNIT, 94460 ) ELSE LSTOP = .TRUE. END IF END DO IF ( LSTOP ) THEN MSG = 'CTM File inconsistencies detected: stopping' CALL M3EXIT ( PNAME, 0, 0, MSG, XSTAT1 ) END IF RETURN C************************* FORMAT STATEMENTS *************************** 94000 FORMAT( E15.5 ) 94020 FORMAT( 10X, 'FTYPE1 = ', I3, ' FTYPE', I1, ' = ', I3 ) 94040 FORMAT( 10X, 'NCOLS1 = ', I3, ' NCOLS', I1, ' = ', I3 ) 94060 FORMAT( 10X, 'NROWS1 = ', I3, ' NROWS', I1, ' = ', I3 ) 94080 FORMAT( 10X, 'NLAYS1 = ', I3, ' NLAYS', I1, ' = ', I3 ) 94100 FORMAT( 10X, 'SDATE1 = ', I3, ' SDATE', I1, ' = ', I3 ) 94120 FORMAT( 10X, 'STIME1 = ', I3, ' STIME', I1, ' = ', I3 ) 94140 FORMAT( 10X, 'TSTEP1 = ', I3, ' TSTEP', I1, ' = ', I3 ) 94160 FORMAT( 10X, 'MXREC1 = ', I3, ' MXREC', I1, ' = ', I3 ) 94180 FORMAT( 10X, 'NTHIK1 = ', I3, ' NTHIK', I1, ' = ', I3 ) 94200 FORMAT( 10X, 'GDTYP1 = ', I3, ' GDTYP', I1, ' = ', I3 ) 94220 FORMAT( 10X, 'P_ALP1 = ', 1PE12.5, ' P_ALP', I1, ' = ', 1PE12.5 ) 94240 FORMAT( 10X, 'P_BET1 = ', 1PE12.5, ' P_BET', I1, ' = ', 1PE12.5 ) 94260 FORMAT( 10X, 'P_GAM1 = ', 1PE12.5, ' P_GAM', I1, ' = ', 1PE12.5 ) 94280 FORMAT( 10X, 'XORIG1 = ', 1PE12.5, ' XORIG', I1, ' = ', 1PE12.5 ) 94300 FORMAT( 10X, 'YORIG1 = ', 1PE12.5, ' YORIG', I1, ' = ', 1PE12.5 ) 94320 FORMAT( 10X, 'XCELL1 = ', 1PE12.5, ' XCELL', I1, ' = ', 1PE12.5 ) 94340 FORMAT( 10X, 'YCELL1 = ', 1PE12.5, ' YCELL', I1, ' = ', 1PE12.5 ) 94360 FORMAT( 10X, 'XCENT1 = ', 1PE12.5, ' XCENT', I1, ' = ', 1PE12.5 ) 94380 FORMAT( 10X, 'YCENT1 = ', 1PE12.5, ' YCENT', I1, ' = ', 1PE12.5 ) 94420 FORMAT( 10X, 'VGTOP1 = ', 1PE12.5, ' VGTOP', I1, ' = ', 1PE12.5 ) 94440 FORMAT( 10X, 'VGLVS1(', I2, ' ) = ', 1PE12.5, ' VGLVS', I1, & '(', I2, ' ) = ', 1PE12.5 ) 94460 FORMAT( 10X, 'NONE' ) END ================================================ FILE: PREP/icon/src/m3conc/m3_ck_icmet.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/ICON/src/m3conc/m3_ck_icmet.F,v 1.2 2011/10/21 16:41:54 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% SUBROUTINE CK_ICMET_FL ( LOGUNIT, SDATE, STIME ) C*********************************************************************** C Function: To check input MET_CRO_3D_FIN file for consistency with C the LAYER_FILE/VGRD_DEFN data C Preconditions: None C Key Subroutines/Functions Called: None C Revision History: C Prototype created by Jerry Gipson, May, 1999 C 01/24/02 Steve Howard (Jeff Young) - dynamic allocation C 12/13/04 J.Young: vert dyn alloc - Use VGRD_DEFN C 09 Jun 11 J.Young: Replaced I/O API include files with UTILIO_DEFN C 21 May 12 J.Young: Replaced IC_PARMS include file with an F90 module C 06 Nov 18 S.Roselle: Replaced UTILIO_DEFN with M3UTILIO C*********************************************************************** USE HGRD_DEFN ! Module to store and load the horizontal grid variables USE VGRD_DEFN ! vertical layer specifications USE M3UTILIO ! IOAPI module USE IC_PARMS ! ICON parameters IMPLICIT NONE C Arguments: INTEGER, INTENT( IN ) :: LOGUNIT ! Unit number for output log INTEGER, INTENT( IN ) :: SDATE ! Start date INTEGER, INTENT( IN ) :: STIME ! Start time C Parameters: None C External Functions: None C Local Variables: CHARACTER( 80 ) :: MSG ! Log message CHARACTER( 16 ) :: PNAME = 'CK_ICMET_FL' ! Procedure Name CHARACTER( 15 ) :: VAL1 ! Character value of real CHARACTER( 15 ) :: VAL2 ! Character value of real INTEGER JDATE ! Current date INTEGER JTIME ! Current time INTEGER L ! Loop index LOGICAL LERROR ! Error Flag C*********************************************************************** cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Write out report data cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc MSG = 'Checking MET_CRO_3D_FIN File for consistent ' // & 'header data' CALL M3MESG ( MSG ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Get header data for MET_CRO_3D_FIN file cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF ( .NOT. OPEN3 ( MET_CRO_3D_FIN, FSREAD3, PNAME ) ) THEN MSG = 'Could not open ' // MET_CRO_3D_FIN // ' file' CALL M3EXIT ( PNAME, JDATE , JTIME, MSG, XSTAT1 ) END IF IF ( .NOT. DESC3 ( MET_CRO_3D_FIN ) ) THEN MSG = 'Could not read DESC of ' // MET_CRO_3D_FIN & // ' file' CALL M3EXIT ( PNAME, JDATE, JTIME, MSG, XSTAT2 ) END IF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Check MET_CRO_3D_FIN file for consistency with GRIDDESC cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc LERROR = .FALSE. IF ( FTYPE3D .NE. GRDDED3 ) THEN WRITE( LOGUNIT, 94020 ) FTYPE3D, GRDDED3 LERROR = .TRUE. END IF IF ( GDTYP3D .NE. GDTYP_GD ) THEN WRITE( LOGUNIT, 94200 ) GDTYP3D, GDTYP_GD LERROR = .TRUE. END IF IF ( NCOLS3D .NE. NCOLS ) THEN WRITE( LOGUNIT, 94040 ) NCOLS3D, NCOLS LERROR = .TRUE. END IF IF ( NROWS3D .NE. NROWS ) THEN WRITE( LOGUNIT, 94060 ) NROWS3D, NROWS LERROR = .TRUE. END IF IF ( NLAYS3D .NE. NLAYS ) THEN WRITE( LOGUNIT, 94080 ) NLAYS3D, NLAYS LERROR = .TRUE. END IF WRITE( VAL1, 94000 ) P_ALP3D WRITE( VAL2, 94000 ) P_ALP_GD IF ( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94220 ) P_ALP3D, P_ALP_GD LERROR = .TRUE. END IF WRITE( VAL1, 94000 ) P_BET3D WRITE( VAL2, 94000 ) P_BET_GD IF ( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94240 ) P_BET3D, P_BET_GD LERROR = .TRUE. END IF WRITE( VAL1, 94000 ) P_GAM3D WRITE( VAL2, 94000 ) P_GAM_GD IF ( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94260 ) P_GAM3D, P_GAM_GD LERROR = .TRUE. END IF WRITE( VAL1, 94000 ) XORIG3D WRITE( VAL2, 94000 ) XORIG_GD IF ( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94280 ) XORIG3D, XORIG_GD LERROR = .TRUE. END IF WRITE( VAL1, 94000 ) YORIG3D WRITE( VAL2, 94000 ) YORIG_GD IF ( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94300 ) YORIG3D, YORIG_GD LERROR = .TRUE. END IF WRITE( VAL1, 94000 ) XCELL3D WRITE( VAL2, 94000 ) XCELL_GD IF ( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94320 ) XCELL3D, XCELL_GD LERROR = .TRUE. END IF WRITE( VAL1, 94000 ) YCELL3D WRITE( VAL2, 94000 ) YCELL_GD IF ( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94340 ) YCELL3D, YCELL_GD LERROR = .TRUE. END IF WRITE( VAL1, 94000 ) XCENT3D WRITE( VAL2, 94000 ) XCENT_GD IF ( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94360 ) XCENT3D, XCENT_GD LERROR = .TRUE. END IF WRITE( VAL1, 94000 ) YCENT3D WRITE( VAL2, 94000 ) YCENT_GD IF ( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94380 ) YCENT3D, YCENT_GD LERROR = .TRUE. END IF WRITE( VAL1, 94000 ) VGTOP3D WRITE( VAL2, 94000 ) VGTOP_GD IF ( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94420 ) VGTOP3D, VGTOP_GD LERROR = .TRUE. END IF DO L = 1 , NLAYS3D + 1 WRITE( VAL1, 94000 ) VGLVS3D( L ) WRITE( VAL2, 94000 ) VGLVS_GD( L ) IF ( VAL1 .NE. VAL2 ) THEN WRITE( LOGUNIT, 94440 ) L, VGLVS3D( L ), L, & VGLVS_GD( L ) LERROR = .TRUE. END IF END DO ! IF ( .NOT. CHECK3( MET_CRO_3D_FIN, ALLVAR3, SDATE, STIME ) ) THEN ! MSG = 'Requested time is not on the ' // MET_CRO_3D_FIN ! & // ' file' ! WRITE( LOGUNIT, 94480 ) MSG ! LERROR = .TRUE. ! END IF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c If inconsistency found, then stop, else return cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF ( .NOT. LERROR ) THEN WRITE( LOGUNIT, 94460 ) ELSE MSG = 'MET_CRO_3D_FIN file inconsistent: stopping' CALL M3EXIT ( PNAME, SDATE , STIME, MSG, XSTAT2 ) END IF RETURN C************************* FORMAT STATEMENTS *************************** 94000 FORMAT( E15.5 ) 94020 FORMAT( 10X, 'MET_CRO_3D_FIN FTYPE = ', I3, ' COORD FTYPE', ' = ', I3 ) 94040 FORMAT( 10X, 'MET_CRO_3D_FIN NCOLS = ', I3, ' COORD NCOLS', ' = ', I3 ) 94060 FORMAT( 10X, 'MET_CRO_3D_FIN NROWS = ', I3, ' COORD NROWS', ' = ', I3 ) 94080 FORMAT( 10X, 'MET_CRO_3D_FIN NLAYS = ', I3, ' COORD NLAYS', ' = ', I3 ) 94200 FORMAT( 10X, 'MET_CRO_3D_FIN GDTYP = ', I3, ' COORD GDTYP', ' = ', I3 ) 94220 FORMAT( 10X, 'MET_CRO_3D_FIN P_ALP = ', 1PE12.5, ' COORD P_ALP', ' = ', 1PE12.5 ) 94240 FORMAT( 10X, 'MET_CRO_3D_FIN P_BET = ', 1PE12.5, ' COORD P_BET', ' = ', 1PE12.5 ) 94260 FORMAT( 10X, 'MET_CRO_3D_FIN P_GAM = ', 1PE12.5, ' COORD P_GAM', ' = ', 1PE12.5 ) 94280 FORMAT( 10X, 'MET_CRO_3D_FIN XORIG = ', 1PE12.5, ' COORD XORIG', ' = ', 1PE12.5 ) 94300 FORMAT( 10X, 'MET_CRO_3D_FIN YORIG = ', 1PE12.5, ' COORD YORIG', ' = ', 1PE12.5 ) 94320 FORMAT( 10X, 'MET_CRO_3D_FIN XCELL = ', 1PE12.5, ' COORD XCELL', ' = ', 1PE12.5 ) 94340 FORMAT( 10X, 'MET_CRO_3D_FIN YCELL = ', 1PE12.5, ' COORD YCELL', ' = ', 1PE12.5 ) 94360 FORMAT( 10X, 'MET_CRO_3D_FIN XCENT = ', 1PE12.5, ' COORD XCENT', ' = ', 1PE12.5 ) 94380 FORMAT( 10X, 'MET_CRO_3D_FIN YCENT = ', 1PE12.5, ' COORD YCENT', ' = ', 1PE12.5 ) 94420 FORMAT( 10X, 'MET_CRO_3D_FIN VGTOP = ', 1PE12.5, ' COORD VGTOP', ' = ', 1PE12.5 ) 94440 FORMAT( 10X, 'MET_CRO_3D_FIN VGLVS(', I2, ' ) = ', 1PE12.5, ' COORD VGLVS', & '(', I2, ' ) = ', 1PE12.5 ) 94460 FORMAT( 10X, 'NONE' ) 94480 FORMAT( A ) END ================================================ FILE: PREP/icon/src/m3conc/m3_driver.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/ICON/src/m3conc/m3_driver.F,v 1.2 2011/10/21 16:41:54 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% SUBROUTINE M3_INIC ( LOGUNIT ) C*********************************************************************** C Function: Opens the Models-3 CTM conc file(s) and checks for C data consistency, and calls the routine to C compute the ICs and write the output IC file C Preconditions: None C C Key Subroutines/Functions Called: CK_CTM_FLS C GC_SPC_MAP C NGC_SPC_MAP C LST_SPC_MAP C ICOUT C Revision History: Prototype created by Jerry Gipson, January, 1998 C 12/12/00 David Wong, LM C -- initialized N_PING_FLS = 0 C 01/24/02 Steve Howard (Jeff Young) - dynamic allocation C 12/13/04 J.Young: vert dyn alloc - Use VGRD_DEFN C 06 Jun 11 J.Young: Replaced I/O API include files with UTILIO_DEFN C 07 Jun 11 J.Young: Removed RADM2<->CB4 mechanism conversion feature C 13 Jul 11 J.Young: Convert for Namelist redesign + UTILIO_DEFN C 21 May 12 J.Young: Replaced IC_PARMS include file with an F90 module C 02 Nov 18 S.Roselle: Removed species mapping C 06 Nov 18 S.Roselle: Replaced UTILIO_DEFN with M3UTILIO C 10 June 19 F. Sidi : Corrected data type mismatch between IOAPI and ICON C 20 April 21 C. Hogrefe: Force height or pressure interpolation if either C grid uses hybrid vertical coordinates. This C requires checking for MET_CRO_3D_CRS and C MET_CRO_3D_FIN C*********************************************************************** USE HGRD_DEFN ! Module to store and load the horizontal grid variables USE VGRD_DEFN ! vertical layer specifications USE M3UTILIO ! IOAPI module USE IC_PARMS ! ICON parameters IMPLICIT NONE C Include Files: C Arguments: INTEGER, INTENT( IN ) :: LOGUNIT ! Unit number for output log C Parameters: None C External Functions: None C Local Variables: CHARACTER( 16 ) :: ENV_DFLT ! Environment variable default value CHARACTER( 80 ) :: ENV_DESC ! Environment variable description CHARACTER( 16 ) :: FL_NAME ! Input CTM file name CHARACTER( 256 ) :: MSG ! Log message CHARACTER( 16 ) :: PNAME = 'M3_INIC' ! Program name CHARACTER( 256 ) :: RET_VAL ! Returned value of environment variable CHARACTER( 16 ), ALLOCATABLE :: CTM_FL_NAME( : ) ! Name(s) of CTM file(s) CHARACTER( 16 ), ALLOCATABLE :: INFL_SP_NAME( : ) ! Names of CTM species CHARACTER( 16 ), ALLOCATABLE :: UNITS_IN( : ) ! Units for CTM species CHARACTER( 80 ), ALLOCATABLE :: VDESC_IN( : ) ! Variable description for CTM species INTEGER, ALLOCATABLE :: VTYPE_IN( : ) ! variable type for CTM species INTEGER :: SDATE = 0 ! Date for IC output INTEGER :: STIME = 0 ! Time for IC output INTEGER :: N ! File loop index INTEGER :: N_CTM_FLS ! Number of input CTM files INTEGER :: NCOLS_IN ! No. of columns in input conc file INTEGER :: NROWS_IN ! No. of rows in input conc file INTEGER :: NLAYS_IN ! No. of layers in input conc file INTEGER :: NSPCS_IN ! CTM files species counter INTEGER :: VGTYP_IN ! input conc file VGTYP INTEGER :: SDATE_IN ! input conc file start date INTEGER :: STIME_IN ! input conc file start time INTEGER :: EDATE_IN ! input conc file end date INTEGER :: ETIME_IN ! input conc file end time INTEGER :: TSTEP_IN ! input conc file timestep INTEGER :: NSTEPS_IN ! Number time steps in input conc file INTEGER :: SECS_STRT ! time variable (sec) INTEGER :: SECS_END ! time variable (sec) INTEGER :: STATUS ! Status code INTEGER :: ALLOCSTAT ! Status returned from array allocation INTEGER :: V ! Variable loop index REAL :: VGTOP_IN ! input conc file VGTOP INTERFACE SUBROUTINE CK_CTM_FLS ( LOGUNIT, N_CTM_FLS, CTM_FL_NAME ) INTEGER, INTENT( IN ) :: LOGUNIT INTEGER, INTENT( IN ) :: N_CTM_FLS CHARACTER( 16 ), INTENT( IN ) :: CTM_FL_NAME( : ) END SUBROUTINE CK_CTM_FLS SUBROUTINE CK_CTMMET_FL ( LOGUNIT, SDATE, STIME, CTM_FL_NAME ) CHARACTER( 16 ), INTENT( IN ) :: CTM_FL_NAME( : ) INTEGER, INTENT( IN ) :: LOGUNIT INTEGER, INTENT( IN ) :: SDATE INTEGER, INTENT( IN ) :: STIME END SUBROUTINE CK_CTMMET_FL SUBROUTINE CK_ICMET_FL ( LOGUNIT, SDATE, STIME ) INTEGER, INTENT( IN ) :: LOGUNIT INTEGER, INTENT( IN ) :: SDATE INTEGER, INTENT( IN ) :: STIME END SUBROUTINE CK_ICMET_FL SUBROUTINE M3_ICOUT ( LOGUNIT, N_CTM_FLS, SDATE, STIME, & NCOLS_IN, NROWS_IN, NLAYS_IN, NSPCS_IN, & CTM_FL_NAME, INFL_SP_NAME, & VTYPE_IN, UNITS_IN, VDESC_IN ) INTEGER, INTENT( IN ) :: LOGUNIT INTEGER, INTENT( IN ) :: N_CTM_FLS INTEGER, INTENT( IN ) :: SDATE INTEGER, INTENT( IN ) :: STIME INTEGER, INTENT( IN ) :: NCOLS_IN INTEGER, INTENT( IN ) :: NROWS_IN INTEGER, INTENT( IN ) :: NLAYS_IN INTEGER, INTENT( IN ) :: NSPCS_IN CHARACTER( 16 ), INTENT( IN ) :: CTM_FL_NAME( : ) CHARACTER( 16 ), INTENT( IN ) :: INFL_SP_NAME( : ) CHARACTER( 16 ), INTENT( IN ) :: UNITS_IN( : ) CHARACTER( 80 ), INTENT( IN ) :: VDESC_IN( : ) INTEGER, INTENT( IN ) :: VTYPE_IN( : ) END SUBROUTINE M3_ICOUT END INTERFACE C*********************************************************************** WRITE( LOGUNIT, 92000 ) SDATE = ENVINT( 'SDATE', 'START DATE', 0, STATUS ) IF ( STATUS .NE. 0 ) SDATE = 0 STIME = ENVINT( 'STIME', 'START TIME', 0, STATUS ) IF ( STATUS .NE. 0 ) STIME = 0 cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Determine the number of input CTM conc files that need to be read cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc ALLOCATE( CTM_FL_NAME( MXCTMS ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN MSG = 'Failure allocating CTM_FL_NAME' CALL M3EXIT ( PNAME, 0, 0, MSG, XSTAT1 ) END IF N_CTM_FLS = 0 WRITE( LOGUNIT, 92020 ) DO N = 1, MXCTMS WRITE( FL_NAME, '( ''CTM_CONC_'', I1 )' ) N WRITE( ENV_DESC, '( ''CTM Concentration file no. '', I1 )' ) N ENV_DFLT = ' ' CALL ENVSTR ( FL_NAME, ENV_DESC, ENV_DFLT, RET_VAL, STATUS ) IF ( STATUS .EQ. 0 ) THEN N_CTM_FLS = N_CTM_FLS + 1 CTM_FL_NAME( N_CTM_FLS ) = FL_NAME END IF END DO IF ( N_CTM_FLS .EQ. 0 ) THEN MSG = 'No CTM CONC files found' CALL M3EXIT ( PNAME, SDATE, STIME, MSG, XSTAT2 ) END IF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Open the input Models-3 CTM concentration file(s) and check that the c required time step is available on each file; save the species c names on each file in one contiguous array cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc ALLOCATE( INFL_SP_NAME( N_CTM_FLS*MXVARS3 ), & UNITS_IN( N_CTM_FLS*MXVARS3 ), & VDESC_IN( N_CTM_FLS*MXVARS3 ), & VTYPE_IN( N_CTM_FLS*MXVARS3 ), & STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN MSG = 'Failure allocating UNITS_IN, VDESC_IN, VTYPE_IN' CALL M3EXIT ( PNAME, 0, 0, MSG, XSTAT1 ) END IF NSPCS_IN = 0 DO N = 1, N_CTM_FLS IF ( .NOT. OPEN3( CTM_FL_NAME( N ), FSREAD3, PNAME ) ) THEN MSG = 'Could not open ' // CTM_FL_NAME( N ) // ' file' CALL M3EXIT ( PNAME, SDATE, STIME, MSG, XSTAT2 ) END IF IF ( .NOT. DESC3( CTM_FL_NAME( N ) ) ) THEN MSG = 'Could not read DESC of ' // CTM_FL_NAME( N ) // ' file' CALL M3EXIT ( PNAME, SDATE, STIME, MSG, XSTAT2 ) END IF NCOLS_IN = NCOLS3D NROWS_IN = NROWS3D NLAYS_IN = NLAYS3D VGTYP_IN = VGTYP3D VGTOP_IN = VGTOP3D SDATE_IN = SDATE3D STIME_IN = STIME3D TSTEP_IN = TSTEP3D NSTEPS_IN = MXREC3D DO V = 1, NVARS3D NSPCS_IN = NSPCS_IN + 1 INFL_SP_NAME( NSPCS_IN ) = VNAME3D( V ) VTYPE_IN( NSPCS_IN ) = VTYPE3D( V ) UNITS_IN( NSPCS_IN ) = UNITS3D( V ) VDESC_IN( NSPCS_IN ) = VDESC3D( V ) END DO END DO cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Check multiple input CTM files for consistency & set input domain cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF ( N_CTM_FLS .GT. 1 ) CALL CK_CTM_FLS ( LOGUNIT, N_CTM_FLS, & CTM_FL_NAME ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Check MET_CRO_3D_CRS (for input CCTM file) and MET_CRO_3D_FIN (for c output IC file) if vertical grid types are different or use c hybrid coordinates cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF ( VGTYP_GD .NE. VGTYP_IN .OR. VGTOP_GD .NE. VGTOP_IN .OR. & VGTYP_GD .EQ. -9999 .OR. VGTYP_IN .EQ. -9999 ) THEN CALL CK_CTMMET_FL ( LOGUNIT, SDATE, STIME, CTM_FL_NAME ) CALL CK_ICMET_FL ( LOGUNIT, SDATE, STIME ) END IF IF ( .NOT. DESC3( MET_CRO_3D_FIN ) ) THEN MSG = 'Could not read DESC of ' // MET_CRO_3D_FIN // ' file' CALL M3EXIT ( PNAME, SDATE, STIME, MSG, XSTAT2 ) END IF C if user did not specify SDATE, inherit SDATE from MET_CRO_3D_FIN IF ( SDATE .EQ. 0 ) THEN MSG = 'Input SDATE equals zero; SDATE ' // & 'reset to MET_CRO_3D_FIN file start date: ' // MMDDYY( SDATE3D ) CALL M3MESG ( MSG ) SDATE = SDATE3D END IF C if user did not specify STIME, inherit STIME from MET_CRO_3D_FIN IF ( STIME .EQ. 0 ) THEN MSG = 'Input STIME equals zero; STIME ' // & 'reset to MET_CRO_3D_FIN file start time: ' // HHMMSS( STIME3D ) CALL M3MESG ( MSG ) STIME = STIME3D END IF C for time-dependent concentration file IF ( TSTEP_IN .GT. 0 ) THEN C calculate end date and time for concentration file EDATE_IN = SDATE_IN ETIME_IN = STIME_IN CALL NEXTIME ( EDATE_IN, ETIME_IN, & SEC2TIME( ( NSTEPS_IN - 1 ) * TIME2SEC( TSTEP_IN ) ) ) C see if sdate and stime are availabe on concentration file SECS_STRT = SECSDIFF( SDATE_IN, STIME_IN, SDATE, STIME ) SECS_END = SECSDIFF( EDATE_IN, ETIME_IN, SDATE, STIME ) IF ( ( SECS_STRT .LT. 0 ) .OR. ( SECS_END .GT. 0 ) ) THEN MSG = 'Requested starting time is not in the ' // & CTM_FL_NAME( 1 ) // ' file' CALL M3EXIT ( PNAME, SDATE, STIME, MSG, XSTAT2 ) END IF END IF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Compute and output ICs from the input CTM conc file(s) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc CALL M3_ICOUT ( LOGUNIT, & N_CTM_FLS, & SDATE, STIME, & NCOLS_IN, NROWS_IN, NLAYS_IN, NSPCS_IN, & CTM_FL_NAME, & INFL_SP_NAME, VTYPE_IN, UNITS_IN, VDESC_IN ) RETURN C************************* FORMAT Statements *************************** 92000 FORMAT( // 1X, 79( '#' ) & / 1X, '# Input file section ' & / 1X, 79( '#' ) & // 5X, 'Initial Concentrations from a CMAQ CTM ', & 'concentration file.' ) 92020 FORMAT( // 5X, 'Input CMAQ CTM file names: ' ) END ================================================ FILE: PREP/icon/src/m3conc/m3_icout.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/ICON/src/m3conc/m3_icout.F,v 1.2 2011/10/21 16:41:54 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% SUBROUTINE M3_ICOUT( LOGUNIT, & N_CTM_FLS, & SDATE, STIME, & NCOLS_IN, NROWS_IN, NLAYS_IN, NSPCS_IN, & CTM_FL_NAME, INFL_SP_NAME, & VTYPE_IN, UNITS_IN, VDESC_IN ) C*********************************************************************** C Function: Reads the input CMAQ concentration file(s) and opens and C writes the output IC file C Preconditions: None C Key Subroutines/Functions Called: C Revision History: Prototype created by Jerry Gipson, January, 1998 C 02/09/00 David Wong, LM C -- block all HPALLOC or HPDALLOC calls by using a CPP C flag F90 when the code is running on T3E C -- renamed two original arguments NROWS_IN and NCOLS_IN C to GL_NROWS_IN and GL_NCOLS_IN, respectively C -- declared my_nrows_in, my_ncols_in, nrows_in, and C ncols_in C -- used MY_NROWS and MY_NCOLS in loops C -- developed a new algorithm to perform the mapping C -- introduced calls to new routines to aid C parallelization of this routine C 02/05/00 David Wong, LM C -- added two more arguments GL_NCOLS_IN, GL_ROWS_IN when C m3_ping is called C 01/24/02 Steve Howard (Jeff Young) - dynamic allocation C 02/20/02 David Wong, LM C -- modified the alogrithm to determine the row/column C position of fine grid relative to the coarse grid by C considering the case the fine and coarse grids have C the same resolution, i.e. TEMP1 = 0.0 C -- used XTRACT3 to input data. With this new change, C variables STRTROW, ENDROW, STRTCOL, and ENDCOL are C computed from ROWSX_PE and COLSX_PE, respectively. C 04/10/02 David Wong, LM C -- XTRACT3, which is used to read in data for a PE, does C not allow any empty space in data structure. The data C declaration for the allocatable array CONCIN requires C MY_NCOLS_IN and MY_NROWS_IN for dimensioning. C -- Arguments NCOLS_IN and NROWS_IN are replaced by C MY_NCOLS_IN and MY_NROWS_IN in calling subroutines C SHIFT_MAP, M3_PING, and VINTERP, so array dimensions C of CONCIN are correct inside those routines. C 02/06/09 David Wong C -- declared CONCVI as an allocatable array to avoid stacksize C limit problem in some machine setup C -- applied deallocate statement to arrays CONCVI and CONCIN C Description of the new algorithm: C The new algorithm involves the following steps: C -- compute the lat and lon of the (1,1) cell of the fine domain, C lat_out_1 and lon_out_1, respectively C -- compute the lat and lon of the (1,1) cell of the coarse domain, C lat_in_1 and lon_in_1, respectively C -- locate the column and row position of the fine domain (1,1) cell with C respect to the coarse domain by using an iterative method C -- locate the column and row position of the fine domain (1,1) cell C within the coarse grid cell found from above step in terms of fine C grid scale. The following is an illustration; let the resolution of C the fine grid be 5 in the x and y directions, c denotes the center of C the coarse grid cell which coincides with the (1,1) cell of the fine C domain, x denotes the (1,1) cell`s position where the step is going to C determine. C * * * * * C * * * * * C * x c * * C * * * * * C * * * * * C In this example COL_DISP = 3 and ROW_DISP = 2 C -- call mapping_init to determine the starting position of the fine C domain in each processor C -- perform the remapping in each processor C 12/13/04 J.Young: vert dyn alloc - Use VGRD_DEFN C eliminate malloc calls C 06 Jun 11 J.Young: Replaced I/O API include files with UTILIO_DEFN C 05 Jul 11 David Wong: added PRE_COL_LOC and PRE_ROW_LOC to hold C before normalized value of COL_LOC and ROW_LOC, C respectively C 21 May 12 J.Young: Replaced IC_PARMS include file with an F90 module C 02 Nov 18 S.Roselle: Removed species mapping C 06 Nov 18 S.Roselle: Removed parallel processing code; C Replaced UTILIO_DEFN with M3UTILIO C 11 June 19 F. Sidi : Resolved Memory Issue by changing loop structure to loop C over spcies instead of saving species C*********************************************************************** USE HGRD_DEFN ! Module to store and load the horizontal grid variables USE VGRD_DEFN ! vertical layer specifications USE M3UTILIO ! IOAPI module USE IC_PARMS ! ICON parameters IMPLICIT NONE C Arguments: INTEGER, INTENT( IN ) :: LOGUNIT ! Unit number for output log INTEGER, INTENT( IN ) :: N_CTM_FLS ! Number of input CTM files INTEGER, INTENT( IN ) :: SDATE ! Date for IC Output INTEGER, INTENT( IN ) :: STIME ! Time for IC output INTEGER, INTENT( IN ) :: NCOLS_IN ! No. of columns in input conc file INTEGER, INTENT( IN ) :: NROWS_IN ! No. of rows in input conc file INTEGER, INTENT( IN ) :: NLAYS_IN ! No. of layers in input conc file INTEGER, INTENT( IN ) :: NSPCS_IN ! Total No. of species in input conc file(s) CHARACTER( 16 ), INTENT( IN ) :: CTM_FL_NAME( : ) ! Name of CTM file CHARACTER( 16 ), INTENT( IN ) :: INFL_SP_NAME( : ) ! Name of input CTM species CHARACTER( 16 ), INTENT( IN ) :: UNITS_IN( : ) ! Units for CTM species CHARACTER( 80 ), INTENT( IN ) :: VDESC_IN( : ) ! Variable description for CTM species INTEGER, INTENT( IN ) :: VTYPE_IN( : ) ! variable type for CTM species C Parameters: REAL, PARAMETER :: CMIN = 1.0E-30 ! Minimum output concentration C External Functions: None C Local Variables: CHARACTER( 16 ) :: PNAME = 'M3_ICOUT' ! Program Name CHARACTER( 80 ) :: MSG ! Log message CHARACTER( 16 ) :: VNAME ! Species name on CTM conc file CHARACTER( 16 ), ALLOCATABLE :: IC_FNAME( : ) ! Logical names of IC Output file(s) INTEGER C, CIN, CIC ! Column loop indices INTEGER FLN ! IC output file number INTEGER ISP ! Array indices for species INTEGER L ! Layer loop index INTEGER N ! Loop indices for species INTEGER R, RIN, RIC ! Row loop indices INTEGER TSTEP ! Timestep for IC Output (time dependent) INTEGER ALLOCSTAT ! Status returned from array allocation INTEGER, ALLOCATABLE :: COL_LOC( :,: ) ! Output IC col corresponding to ! a cell in the input CTM file INTEGER, ALLOCATABLE :: ROW_LOC( :,: ) ! Output IC row corresponding to ! a cell in the input CTM file LOGICAL LNEG ! Flag for negative concentrations REAL DMIN ! Smallest distance between cell centers REAL LAT ! Latitude of center of cell for the IC output file REAL LON ! Longitude of center of cell for the IC output file REAL X1 ! longitudenal distance between cell centers REAL Y1 ! latitudinal distance between cell centers REAL, ALLOCATABLE :: LAT_OUT( :,: ) ! Lat of cells in BC output file REAL, ALLOCATABLE :: LON_OUT( :,: ) ! Lon of cells in BC output file REAL, ALLOCATABLE :: LAT_IN( :,: ) ! Lat of cells in CTM conc file REAL, ALLOCATABLE :: LON_IN( :,: ) ! Lon of cells in CTM conc file REAL, ALLOCATABLE :: COUT( :,:,: ) ! Substituted output IC conc REAL, ALLOCATABLE :: CONCIN( :,:,: ) ! Input concs REAL, ALLOCATABLE :: ICIN( :,:,: ) ! Horizontally set ICs REAL, ALLOCATABLE :: ICVI( :,:,: ) ! Vertically interpolated ICs INTERFACE SUBROUTINE LAT_LON ( COL, ROW, GDTYP, XORIG, YORIG, XCELL, YCELL, & XCENT, YCENT, P_ALP, P_BET, P_GAM, LAT, LON ) INTEGER, INTENT( IN ) :: GDTYP INTEGER, INTENT( IN ) :: COL INTEGER, INTENT( IN ) :: ROW REAL( 8 ), INTENT( IN ) :: P_ALP REAL( 8 ), INTENT( IN ) :: P_BET REAL( 8 ), INTENT( IN ) :: P_GAM REAL( 8 ), INTENT( IN ) :: XCELL REAL( 8 ), INTENT( IN ) :: XCENT REAL( 8 ), INTENT( IN ) :: XORIG REAL( 8 ), INTENT( IN ) :: YCELL REAL( 8 ), INTENT( IN ) :: YCENT REAL( 8 ), INTENT( IN ) :: YORIG REAL, INTENT( OUT ) :: LAT REAL, INTENT( OUT ) :: LON END SUBROUTINE LAT_LON SUBROUTINE OPN_IC_FILE ( LOGUNIT, SDATE, STIME, TSTEP, NSPCS_OUT, & SPNAME_OUT, VTYPE_OUT, UNITS_OUT, & VDESC_OUT, IC_FNAME, RINDX ) CHARACTER( 16 ), INTENT( OUT ) :: IC_FNAME( : ) CHARACTER( 16 ), INTENT( IN ) :: SPNAME_OUT( : ) CHARACTER( 16 ), INTENT( IN ) :: UNITS_OUT( : ) CHARACTER( 80 ), INTENT( IN ) :: VDESC_OUT( : ) INTEGER, INTENT( IN ) :: LOGUNIT INTEGER, INTENT( IN ) :: NSPCS_OUT INTEGER, INTENT( IN ) :: RINDX INTEGER, INTENT( IN ) :: SDATE INTEGER, INTENT( IN ) :: STIME INTEGER, INTENT( IN ) :: TSTEP INTEGER, INTENT( IN ) :: VTYPE_OUT( : ) END SUBROUTINE OPN_IC_FILE SUBROUTINE M3_VINTERP ( LOGUNIT, SDATE, STIME, & NCOLS_IN, NROWS_IN, NLAYS_IN, NSPCS_IN, & COL_LOC, ROW_LOC, & ICIN, ICVI, CTM_FL_NAME ) INTEGER, INTENT( IN ) :: LOGUNIT INTEGER, INTENT( IN ) :: SDATE INTEGER, INTENT( IN ) :: STIME INTEGER, INTENT( IN ) :: NCOLS_IN INTEGER, INTENT( IN ) :: NROWS_IN INTEGER, INTENT( IN ) :: NLAYS_IN INTEGER, INTENT( IN ) :: NSPCS_IN INTEGER, INTENT( IN ) :: COL_LOC( :,: ) INTEGER, INTENT( IN ) :: ROW_LOC( :,: ) REAL, INTENT( IN ) :: ICIN( :,:,:) REAL, INTENT( OUT ) :: ICVI( :,:,:) CHARACTER( 16 ), INTENT( IN ) :: CTM_FL_NAME( : ) END SUBROUTINE M3_VINTERP END INTERFACE C*********************************************************************** cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c allocate arrays cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc ALLOCATE( IC_FNAME( MXCTMS ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN MSG = 'Failure allocating IC_FNAME' CALL M3EXIT ( PNAME, 0, 0, MSG, XSTAT1 ) END IF ALLOCATE( COL_LOC( NCOLS,NROWS ), ROW_LOC( NCOLS,NROWS ), & STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN MSG = 'Failure allocating COL_LOC, ROW_LOC' CALL M3EXIT ( PNAME, 0, 0, MSG, XSTAT1 ) END IF ALLOCATE( LAT_OUT( NCOLS,NROWS ), LON_OUT( NCOLS,NROWS ), & STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN MSG = 'Failure allocating LAT_OUT, LON_OUT' CALL M3EXIT ( PNAME, 0, 0, MSG, XSTAT1 ) END IF ALLOCATE( LAT_IN( NCOLS_IN,NROWS_IN ), LON_IN( NCOLS_IN,NROWS_IN ), & STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN MSG = 'Failure allocating LAT_IN, LON_IN' CALL M3EXIT ( PNAME, 0, 0, MSG, XSTAT1 ) END IF ALLOCATE( COUT( NCOLS,NROWS,NLAYS ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN MSG = 'Failure allocating COUT' CALL M3EXIT ( PNAME, 0, 0, MSG, XSTAT1 ) END IF ALLOCATE( CONCIN( NCOLS_IN,NROWS_IN,NLAYS_IN ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN MSG = 'Failure allocating CONCIN' CALL M3EXIT ( PNAME, 0, 0, MSG, XSTAT1 ) END IF ALLOCATE( ICIN( NCOLS,NROWS,NLAYS_IN ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN MSG = 'Failure allocating ICIN' CALL M3EXIT ( PNAME, 0, 0, MSG, XSTAT1 ) END IF ALLOCATE( ICVI( NCOLS,NROWS,NLAYS ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN MSG = 'Failure allocating ICVI' CALL M3EXIT ( PNAME, 0, 0, MSG, XSTAT1 ) END IF write( logunit,* ) ' ' write( logunit,* ) ' NCOLS_IN: ', NCOLS_IN write( logunit,* ) ' NROWS_IN: ', NROWS_IN write( logunit,* ) ' NLAYS_IN: ', NLAYS_IN write( logunit,* ) ' NSPCS_IN: ', NSPCS_IN write( logunit,* ) ' NLAYS: ', NLAYS write( logunit,* ) ' ' cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Compute the lat and lon of the center of each input cell cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF ( .NOT. DESC3( CTM_FL_NAME( 1 ) ) ) THEN MSG = 'Could not read DESC of ' // CTM_FL_NAME( 1 ) & // ' file' CALL M3EXIT ( PNAME, SDATE, STIME, MSG, XSTAT2 ) END IF DO C = 1, NCOLS_IN DO R = 1, NROWS_IN CALL LAT_LON ( C, R, GDTYP3D, XORIG3D, YORIG3D, & XCELL3D, YCELL3D, XCENT3D, YCENT3D, & P_ALP3D, P_BET3D, P_GAM3D, & LAT_IN( C,R ), LON_IN( C,R ) ) END DO END DO cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Compute the lat and lon of the center of the fine domain (1,1) cell cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc DO C = 1, NCOLS DO R = 1, NROWS CALL LAT_LON ( C, R, GDTYP_GD, XORIG_GD, YORIG_GD, & XCELL_GD, YCELL_GD, XCENT_GD, YCENT_GD, & P_ALP_GD, P_BET_GD, P_GAM_GD, & LAT_OUT( C,R ), LON_OUT( C,R ) ) END DO END DO cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Map the CTM file LAT/LONs to the IC file LAT/LONs cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc DO CIC = 1, NCOLS DO RIC = 1, NROWS LAT = LAT_OUT( CIC,RIC ) LON = LON_OUT( CIC,RIC ) DMIN = 1.0E+30 DO CIN = 1, NCOLS_IN DO RIN = 1, NROWS_IN Y1 = ( LAT - LAT_IN( CIN,RIN ) ) ** 2 X1 = ( LON - LON_IN( CIN,RIN ) ) ** 2 IF ( ( X1 + Y1 ) .LT. DMIN ) THEN DMIN = X1 + Y1 COL_LOC( CIC,RIC ) = CIN ROW_LOC( CIC,RIC ) = RIN END IF END DO END DO END DO END DO cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Call the routine to open the Models3 IC output file cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF ( .NOT. DESC3( CTM_FL_NAME( 1 ) ) ) THEN MSG = 'Could not read DESC of ' // CTM_FL_NAME( 1 ) // ' file' CALL M3EXIT ( PNAME, 0, 0, MSG, XSTAT2 ) END IF C...if the input conc file in time independent, then make the IC file C... time independent as well IF ( TSTEP3D .EQ. 0 ) THEN TSTEP = 0 C...if the input conc file is time dependent, then set the timestep to be same C... as the target domain's met input file ELSE IF ( .NOT. DESC3( MET_CRO_3D_FIN ) ) THEN MSG = 'Could not read DESC of ' // MET_CRO_3D_FIN // ' file' CALL M3EXIT ( PNAME, 0, 0, MSG, XSTAT2 ) END IF TSTEP = TSTEP3D END IF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Open the IC output file cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc CALL OPN_IC_FILE ( LOGUNIT, SDATE, STIME, TSTEP, NSPCS_IN, & INFL_SP_NAME, VTYPE_IN, UNITS_IN, VDESC_IN, & IC_FNAME, 1 ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C Read the concentration file(s) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc LNEG = .FALSE. ISP = 0 DO N = 1, N_CTM_FLS IF ( .NOT. DESC3( CTM_FL_NAME( N ) ) ) THEN MSG = 'Could not read DESC of ' // CTM_FL_NAME( N ) & // ' file' CALL M3EXIT ( PNAME, SDATE, STIME, MSG, XSTAT2 ) END IF DO ISP = 1, NSPCS_IN VNAME = INFL_SP_NAME( ISP ) IF ( MXREC3D .EQ. 1 ) THEN IF ( .NOT. READ3( CTM_FL_NAME( N ), VNAME, ALLAYS3, SDATE, & STIME, CONCIN( 1,1,1 ) ) ) THEN MSG = 'Could not read input CTM Conc file ' // & CTM_FL_NAME( N ) CALL M3EXIT( PNAME, SDATE, STIME, MSG, XSTAT2 ) END IF ELSE IF ( .NOT. INTERP3( CTM_FL_NAME( N ), VNAME, PNAME, SDATE, STIME, & NCOLS_IN*NROWS_IN*NLAYS_IN, CONCIN ) ) THEN MSG = 'Could not read input CTM Conc file ' // & CTM_FL_NAME( N ) CALL M3EXIT ( PNAME, SDATE, STIME, MSG, XSTAT2 ) END IF END IF DO CIC = 1, NCOLS DO RIC = 1, NROWS CIN = COL_LOC( CIC,RIC ) RIN = ROW_LOC( CIC,RIC ) DO L = 1, NLAYS_IN ICIN( CIC,RIC,L ) = CONCIN( CIN,RIN,L ) END DO END DO END DO cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C Do vertical interpolation/extrapolation cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc CALL M3_VINTERP ( LOGUNIT, SDATE, STIME, & NCOLS_IN, NROWS_IN, NLAYS_IN, NSPCS_IN, & COL_LOC, ROW_LOC, & ICIN, ICVI, CTM_FL_NAME ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C Write the output IC concentrations cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc ! LNEG = .FALSE. FLN = ( N - 1 ) / MXVARS3 + 1 DO L = 1, NLAYS DO R = 1, NROWS DO C = 1, NCOLS COUT( C,R,L ) = ICVI( C,R,L ) ! IF ( COUT( C,R,L ) .LT. 0.0 ) THEN ! LNEG = .TRUE. ! ELSE IF ( COUT( C,R,L ) .LT. CMIN ) THEN ! COUT( C,R,L ) = CMIN ! END IF END DO END DO END DO IF ( .NOT. WRITE3( IC_FNAME( FLN ), VNAME, SDATE, STIME, & COUT( 1,1,1 ) ) ) THEN MSG = 'Could not WRITE species ' // VNAME // & 'to file ' // IC_FNAME( FLN ) CALL M3EXIT ( PNAME, SDATE, STIME, MSG, XSTAT1 ) END IF END DO END DO ! IF ( LNEG ) THEN ! MSG = 'Negative ICs output' ! CALL M3EXIT ( PNAME, SDATE, STIME, MSG, XSTAT2 ) ! END IF WRITE( LOGUNIT, '( /5X, 3( A, :, 1X ), I8, ":", I6.6 )' ) & 'Timestep written to', IC_FNAME( FLN ), & 'for date and time', SDATE, STIME RETURN END ================================================ FILE: PREP/icon/src/m3conc/m3_vinterp.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/ICON/src/m3conc/m3_vinterp.F,v 1.2 2011/10/21 16:41:54 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% SUBROUTINE M3_VINTERP( LOGUNIT, SDATE, STIME, & NCOLS_IN, NROWS_IN, NLAYS_IN, NSPCS_IN, & COL_LOC, ROW_LOC, & ICIN, ICVI, CTM_FL_NAME ) C*********************************************************************** C Function: Interpolates/Extrapolates concentrations in vertical. C The number of layers in ICIN is collapsed or expanded C according to the number of layers in env var LAYER_FILE. C Interpolation is done using rational function interpolation C ( Numerical Recipes, Press et al.) or linear C interpolation. When extrapolation is required, the C concentration of the outside layer is used. If the input C file has only one layer, the concentrations in that layer C are used for all output layers. C Preconditions: None C Key Subroutines/Functions Called: LR_INTERP C Revision History: C Prototype created by Jerry Gipson, January, 1998 C Modified by JG 5/26/99 to treat PinG plumes C 02/09/00 David Wong, LM C -- replaced NROWS and NCOLS with MY_NROWS and MY_NCOLS, C respectively, in loops C -- blocked all HPALLOC or HPDALLOC calls by using a CPP flag F90 C 01/24/02 Steve Howard (Jeff Young) - dynamic allocation C 12/13/04 J.Young: vert dyn alloc - Use VGRD_DEFN C 08 Jun 11 J.Young: Replaced I/O API include files with UTILIO_DEFN C 05 Jul 11 David Wong: - added PRE_COL_LOC and PRE_ROW_LOC to hold C pre normalized value of COL_LOC and ROW_LOC, C respectively C - used COLSX_PE and ROWSX_PE to determine the C beginning and ending column and row number for C calling INTERPX with MET_CRO_3D_FIN file C - used PRE_COL_LOC and PRE_ROW_LOC to determine the C beginning and ending column and row number for C calling INTERPX with MET_CRO_3D_CRS file C 21 May 12 J.Young: Replaced IC_PARMS include file with an F90 module C 06 Nov 18 S.Roselle: Removed parallel processing code; C Replaced UTILIO_DEFN with M3UTILIO C 10 June 19 F. Sidi : - Commented out Integer STATUS because it is unused C - Resolved Memory Issue by looping over species instead C - Added First_Time logical and save statements to C avoid re-printing of redundant write statements C 20 April 21 C. Hogrefe: Force height or pressure interpolation if either C grid uses hybrid vertical coordinates C*********************************************************************** USE HGRD_DEFN ! Module to store and load the horizontal grid variables USE VGRD_DEFN ! vertical layer specifications USE M3UTILIO ! IOAPI module USE IC_PARMS ! ICON parameters IMPLICIT NONE C Arguments: INTEGER, INTENT( IN ) :: LOGUNIT ! Unit number for output log INTEGER, INTENT( IN ) :: SDATE ! Date for IC Output INTEGER, INTENT( IN ) :: STIME ! Time for IC output INTEGER, INTENT( IN ) :: NCOLS_IN ! No. of columns in input conc file INTEGER, INTENT( IN ) :: NROWS_IN ! No. of rows in input conc file INTEGER, INTENT( IN ) :: NLAYS_IN ! No. of layers in input conc file INTEGER, INTENT( IN ) :: NSPCS_IN ! No. of species in input conc file INTEGER, INTENT( IN ) :: COL_LOC( :,: ) ! Output IC col corresponding to & INTEGER, INTENT( IN ) :: ROW_LOC( :,: ) ! Output IC row corresponding to ! a cell in the input conc file REAL, INTENT( IN ) :: ICIN( :,:,: ) ! Input conc array REAL, INTENT( OUT ) :: ICVI( :,:,: ) ! Output IC array CHARACTER( 16 ), INTENT( IN ) :: CTM_FL_NAME( : ) ! Name of input conc file C Parameters: None C External Functions: None C Local Variables: LOGICAL, SAVE :: LDEC ! Flag for monotonic decreasing layer levels LOGICAL, SAVE :: LINC ! Flag for monotonic increasing layer levels LOGICAL, SAVE :: L_IDENTICAL ! Flag for identical vert coord systems LOGICAL, SAVE :: L_RATINT ! Flag to use rational function interpolation LOGICAL, SAVE :: L_SAME_SCALE ! Flag for same vert coord systems but ! different resolutions LOGICAL, SAVE :: FIRST_TIME = .TRUE. ! Flag for first call to subroutine CHARACTER( 20 ) :: CHR1 ! Value of variable 1 in character data CHARACTER( 20 ) :: CHR2 ! Value of variable 1 in character data CHARACTER( 80 ) :: MSG ! Log message CHARACTER( 16 ) :: PNAME = 'M3_VINTERP' ! Procedure Name CHARACTER( 16 ), SAVE :: ZP_VNAME ! ZH or PRES Variable Name INTEGER C, CIN ! Loop indices for columns INTEGER L ! Loop index for vertical layers INTEGER MXLEV ! Largest no. of levels INTEGER R, RIN ! Loop indices for rows ! INTEGER STATUS ! Staus code INTEGER V ! Loop index for variables INTEGER ALLOCSTAT ! Status returned from array allocation REAL DELY ! Error estimate for conc interpolated by rational func REAL X3 ! Vertical coordinate used in interpolation REAL Y ! Interpolated concentration REAL, ALLOCATABLE, SAVE :: X3_OLD( : ) ! Old Vertical coordinate values REAL, ALLOCATABLE, SAVE :: WORKA( : ) ! Work array for conc input REAL, ALLOCATABLE, SAVE :: HT_IC( :,:,: ) ! New mid-layer heights REAL, ALLOCATABLE, SAVE :: HT_CTM( :,:,: ) ! Old mid-layer heights INTERFACE SUBROUTINE LR_INTERP ( L_RATINT, XA, YA, N, X, Y, DELY ) LOGICAL, INTENT( IN ) :: L_RATINT REAL, INTENT( IN ) :: XA( : ) REAL, INTENT( IN ) :: YA( : ) REAL, INTENT( IN ) :: X REAL, INTENT( OUT ) :: Y REAL, INTENT( OUT ) :: DELY INTEGER, INTENT( IN ) :: N END SUBROUTINE LR_INTERP END INTERFACE C*********************************************************************** cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c allocate arrays cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF ( FIRST_TIME ) THEN ALLOCATE( WORKA( NLAYS_IN ), X3_OLD( NLAYS_IN ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN MSG = 'Failure allocating WORKA, X3_OLD' CALL M3EXIT ( PNAME, 0, 0, MSG, XSTAT1 ) END IF ALLOCATE( HT_IC( NCOLS,NROWS,NLAYS ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN MSG = 'Failure allocating HT_IC' CALL M3EXIT ( PNAME, 0, 0, MSG, XSTAT1 ) END IF ALLOCATE( HT_CTM( NCOLS_IN,NROWS_IN,NLAYS_IN ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN MSG = 'Failure allocating HT_CTM' CALL M3EXIT ( PNAME, 0, 0, MSG, XSTAT1 ) END IF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Determine type of interpolation to use: linear or rational function cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF ( .NOT. DESC3( CTM_FL_NAME( 1 ) ) ) THEN MSG = 'Could not read DESC of ' // CTM_FL_NAME( 1 ) & // ' file' CALL M3EXIT ( PNAME, SDATE, STIME, MSG, XSTAT2 ) END IF WRITE( LOGUNIT, 92000 ) L_RATINT = .FALSE. MSG = 'Flag for interpolation by rational function' ! L_RATINT = ENVYN( 'RATIONAL_FUNC', MSG, L_RATINT, STATUS ) IF ( .NOT. L_RATINT ) THEN MSG = 'Vertical interpolation method: Linear' ELSE MSG = 'Vertical interpolation method: Rational Function.' END IF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Check for consistent vertical coordinates cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc L_IDENTICAL = .TRUE. L_SAME_SCALE = .TRUE. c..the following two lines are for testing only ! L_IDENTICAL = .FALSE. ! L_SAME_SCALE = .FALSE. IF ( VGTYP_GD .NE. VGTYP3D .OR. VGTOP_GD .NE. VGTOP3D) THEN L_IDENTICAL = .FALSE. L_SAME_SCALE = .FALSE. END IF IF ( NLAYS .EQ. NLAYS_IN ) THEN DO L = 1, NLAYS + 1 WRITE( CHR1, 94000 ) VGLVS_GD( L ) WRITE( CHR2, 94000 ) VGLVS3D ( L ) IF ( CHR1 .NE. CHR2 ) L_IDENTICAL = .FALSE. END DO ELSE L_IDENTICAL = .FALSE. END IF C If either grid uses hybrid vertical coordinates, force height C or pressure interpolation IF ( ( VGTYP_GD . EQ. -9999 ) .OR. ( VGTYP3D . EQ. -9999 ) ) THEN L_IDENTICAL = .FALSE. L_SAME_SCALE = .FALSE. ENDIF END IF ! END OF FIRST_TIME block cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c For identical vertical coordinates, copy the CTM concs to the output c IC array and return cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF ( L_IDENTICAL ) THEN IF ( FIRST_TIME ) WRITE( LOGUNIT, 92020 ) DO C = 1, NCOLS DO R = 1, NROWS DO L = 1, NLAYS ICVI( C, R, L ) = ICIN( C, R, L) END DO END DO END DO FIRST_TIME = .FALSE. RETURN END IF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Interpolate by VGLEVS for vertical coords of same type but different c resolution cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF ( L_SAME_SCALE ) THEN IF ( FIRST_TIME) THEN IF ( .NOT. DESC3( CTM_FL_NAME( 1 ) ) ) THEN MSG = 'Could not read DESC of ' // CTM_FL_NAME( 1 ) & // ' file' CALL M3EXIT ( PNAME, SDATE, STIME, MSG, XSTAT2 ) END IF WRITE( LOGUNIT, 92040 ) WRITE( LOGUNIT, 92060 ) VGDESC( VGTYP_GD ) WRITE( LOGUNIT, 92080 ) MXLEV = MAX( NLAYS + 1, NLAYS_IN + 1 ) DO L = 1, MXLEV IF ( L .LE. NLAYS + 1 .AND. L .LE. NLAYS_IN + 1 ) THEN WRITE( LOGUNIT, 92100 ) L, VGLVS_GD( L ), VGLVS3D( L ) ELSE IF ( L .LE. NLAYS + 1 .AND. L .GT. NLAYS_IN + 1 ) THEN WRITE( LOGUNIT, 92100 ) L, VGLVS_GD( L ) ELSE IF ( L .GT. NLAYS + 1 .AND. L .LE. NLAYS_IN + 1 ) THEN WRITE( LOGUNIT, 92120 ) L, VGLVS3D( L ) END IF END DO WRITE( LOGUNIT, 92140 ) MSG DO L = 1, NLAYS3D X3_OLD( L ) = 0.5 * ( VGLVS3D( L ) + VGLVS3D( L+1 ) ) END DO LINC = .FALSE. LDEC = .FALSE. IF ( VGLVS3D ( NLAYS_IN ) .GT. VGLVS3D ( 1 ) ) THEN LINC = .TRUE. ELSE LDEC = .TRUE. END IF END IF ! End of FIRST_TIME Block DO C = 1, NCOLS DO R = 1, NROWS DO L = 1, NLAYS_IN WORKA( L ) = ICIN( C,R,L ) END DO DO L = 1, NLAYS IF ( NLAYS_IN .EQ. 1 ) THEN ICVI( C,R,L ) = WORKA( 1 ) ELSE X3 = 0.5 * ( VGLVS_GD( L ) + VGLVS_GD( L + 1 ) ) IF ( LINC .AND. X3 .LE. X3_OLD( 1 ) ) THEN ICVI( C,R,L ) = WORKA( 1 ) ELSE IF ( LDEC .AND. X3 .GE. X3_OLD( 1 ) ) THEN ICVI( C,R,L ) = WORKA( 1 ) ELSE IF ( LINC .AND. X3 .GE. X3_OLD( NLAYS_IN ) ) THEN ICVI( C,R,L ) = WORKA( NLAYS_IN ) ELSE IF ( LDEC .AND. X3 .LE. X3_OLD( NLAYS_IN ) ) THEN ICVI( C,R,L ) = WORKA( NLAYS_IN ) ELSE CALL LR_INTERP ( L_RATINT, X3_OLD, WORKA, NLAYS_IN, & X3, Y, DELY ) ICVI( C,R,L ) = Y END IF END IF END DO END DO END DO FIRST_TIME = .FALSE. RETURN END IF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Interpolate by height for all other vertical grid types; a dynamic c array holding heights will need to be allocated cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF ( FIRST_TIME ) THEN WRITE( LOGUNIT, 92140 ) MSG IF ( .NOT. DESC3( MET_CRO_3D_CRS ) ) THEN MSG = 'Could not read DESC of ' // MET_CRO_3D_CRS & // ' file' CALL M3EXIT ( PNAME, SDATE, STIME, MSG, XSTAT2 ) END IF ZP_VNAME = 'ZH' V = INDEX1( ZP_VNAME, NVARS3D, VNAME3D ) IF ( V .NE. 0 ) THEN WRITE( LOGUNIT, 92160 ) TRIM( ZP_VNAME ) ELSE ZP_VNAME = 'PRES' V = INDEX1( ZP_VNAME, NVARS3D, VNAME3D ) IF ( V .NE. 0 ) THEN WRITE( LOGUNIT, 92160 ) TRIM( ZP_VNAME ) ELSE MSG = 'Could not find ZH or PRES in file ' // MET_CRO_3D_CRS CALL M3EXIT ( PNAME, SDATE, STIME, MSG, XSTAT1 ) END IF END IF C Get the layer mid-point heights IF ( .NOT. READ3( MET_CRO_3D_FIN, ZP_VNAME, ALLAYS3, SDATE, STIME, & HT_IC ) ) THEN MSG = 'Could not read layer heights from file ' // MET_CRO_3D_FIN CALL M3EXIT ( PNAME, SDATE, STIME, MSG, XSTAT1 ) END IF IF ( .NOT. INTERP3( MET_CRO_3D_CRS, ZP_VNAME, PNAME, SDATE, STIME, & NROWS_IN*NCOLS_IN*NLAYS_IN, HT_CTM ) ) THEN MSG = 'Could not read layer heights from file ' // MET_CRO_3D_CRS CALL M3EXIT ( PNAME, SDATE, STIME, MSG, XSTAT1 ) END IF END IF ! End of FIRST_TIME block C Do the interpolation C... for height interpolation IF ( ZP_VNAME .EQ. 'ZH' ) THEN DO C = 1, NCOLS DO R = 1, NROWS CIN = COL_LOC( C,R ) RIN = ROW_LOC( C,R ) ! DO V = 1, NSPCS_IN DO L = 1, NLAYS_IN WORKA( L ) = ICIN( C,R,L ) X3_OLD( L ) = HT_CTM( CIN,RIN,L ) END DO DO L = 1, NLAYS IF ( NLAYS_IN .EQ. 1 ) THEN ICVI( C,R,L ) = WORKA( 1 ) ELSE X3 = HT_IC( C,R,L ) IF ( X3 .LT. X3_OLD( 1 ) ) THEN ICVI( C,R,L ) = WORKA( 1 ) ELSE IF ( X3 .GT. X3_OLD( NLAYS_IN ) ) THEN ICVI( C,R,L ) = WORKA( NLAYS_IN ) ELSE CALL LR_INTERP ( L_RATINT, X3_OLD, WORKA, NLAYS_IN, & X3, Y, DELY ) ICVI( C,R,L ) = Y END IF END IF END DO !END DO END DO END DO C... for pressure interpolation ELSE IF ( ZP_VNAME .EQ. 'PRES' ) THEN DO C = 1, NCOLS DO R = 1, NROWS CIN = COL_LOC( C,R ) RIN = ROW_LOC( C,R ) ! DO V = 1, NSPCS_IN DO L = 1, NLAYS_IN WORKA( L ) = ICIN( C,R,L ) X3_OLD( L ) = HT_CTM( CIN,RIN,L ) END DO DO L = 1, NLAYS IF ( NLAYS_IN .EQ. 1 ) THEN ICVI( C,R,L ) = WORKA( 1 ) ELSE X3 = HT_IC( C,R,L ) IF ( X3 .GT. X3_OLD( 1 ) ) THEN ICVI( C,R,L ) = WORKA( 1 ) ELSE IF ( X3 .LT. X3_OLD( NLAYS_IN ) ) THEN ICVI( C,R,L ) = WORKA( NLAYS_IN ) ELSE CALL LR_INTERP ( L_RATINT, X3_OLD, WORKA, NLAYS_IN, & X3, Y, DELY ) ICVI( C,R,L ) = Y END IF END IF END DO !END DO END DO END DO END IF FIRST_TIME = .FALSE. RETURN C************************* FORMAT Statements *************************** 92000 FORMAT( // 1X, 79( '#' ) & / 1X, '# Vertical Interpolation Section ' & / 1X, 79( '#' ) ) 92020 FORMAT( // 5X, 'The vertical structure in Layer Defn is identical' & ' to that in the CTM input file. ' & // 5X, 'No vertical interpolation necessary' ) 92040 FORMAT( // 5X, 'The Layer Defn and CTM vertical grid types are the ' & 'same, but the resolution is different.' / & 5X, 'Vertical interpolation using VGLVS ' & '(listed below). ' ) 92060 FORMAT( // 5X, 'Vertical grid type: ', A ) 92080 FORMAT( // 5X, 'Vertical layer surface values (VGLVS) : ' & /10X, ' K Layer Defn Input CTM' ) 92100 FORMAT( 10X, I2, 1X, F12.3, 1X, F12.3 ) 92120 FORMAT( 10X, I2, 13X, 1X, F12.3 ) 92140 FORMAT( //5X, A ) 92160 FORMAT( //5X, 'The COORD.EXT and CTM vertical grid types are ', & 'different. ' & / 5X, 'Vertical interpolation using ', A, 1X, & 'from the MET_CRO_3D files' ) 94000 FORMAT( 1PE20.4 ) END ================================================ FILE: PREP/icon/src/profile/prof_driver.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/ICON/src/profile/prof_driver.F,v 1.2 2011/10/21 16:41:56 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% SUBROUTINE PROF_INIC( LOGUNIT ) C*********************************************************************** C Function: Opens the input profile data file, and calls the routine to C compute the ICs and write the output IC file C Preconditions: None C Key Subroutines/Functions Called: ICOUT C Revision History: Prototype created by Jerry Gipson, January, 1998 C Modified April 1998 by JG to remove ppb option for C input profile file C 06 Jun 11 J.Young: Replaced I/O API include files with UTILIO_DEFN C 07 Jun 11 J.Young: Removed RADM2<->CB4 mechanism conversion feature C 13 Jun 11 J.Young: Convert for Namelist redesign C 21 May 12 J.Young: Replaced IC_PARMS include file with an F90 module C 02 Nov 18 S.Roselle: Removed species mapping C 06 Nov 18 S.Roselle: Replaced UTILIO_DEFN with M3UTILIO C*********************************************************************** USE M3UTILIO ! IOAPI module USE IC_PARMS ! ICON parameters IMPLICIT NONE C Arguments: INTEGER, INTENT( IN ) :: LOGUNIT ! Unit number for output log C Parameters: None C Local Variables: CHARACTER( 16 ) :: ENV_DFLT = ' ' ! Environment variable default value CHARACTER( 80 ) :: ENV_DESC ! Environment variable description CHARACTER( 80 ) :: MSG ! Log message CHARACTER( 16 ) :: PNAME = 'PROF_INIC' ! Procedure name CHARACTER( 256 ) :: PROF_FL_NAME ! Input profile file name CHARACTER( 16 ) :: IC_PROFILE = 'IC_PROFILE' ! Logical name of input profile file INTEGER STATUS ! Status code INTERFACE SUBROUTINE PROF_ICOUT ( LOGUNIT, PROF_FL_NAME ) INTEGER, INTENT( IN ) :: LOGUNIT CHARACTER( 256 ), INTENT( IN ) :: PROF_FL_NAME END SUBROUTINE PROF_ICOUT END INTERFACE C*********************************************************************** WRITE( LOGUNIT, 92000 ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Open the input profile file, read the number of species and their c names, and list the file on the output log cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc ENV_DESC = 'Input IC Profile file' CALL ENVSTR ( IC_PROFILE, ENV_DESC, ENV_DFLT, PROF_FL_NAME, STATUS ) IF ( STATUS .NE. 0 ) THEN MSG = 'No IC profile file assigned to IC_PROFILE' CALL M3ERR ( PNAME, 0, 0, MSG, .TRUE. ) END IF ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Compute ICs from the input PROFILE and output ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc CALL PROF_ICOUT ( LOGUNIT, PROF_FL_NAME ) RETURN C************************* FORMAT STATEMENTS *************************** 92000 FORMAT( // 1X, 79( '#' ) & / 1X, '# Input file section ' & / 1X, 79( '#' ) & // 5X, 'Initial Concentrations from an input IC profile ', & 'file.' ) END ================================================ FILE: PREP/icon/src/profile/prof_icout.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/ICON/src/profile/prof_icout.F,v 1.2 2011/10/21 16:41:56 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% SUBROUTINE PROF_ICOUT ( LOGUNIT, PROF_FL_NAME ) C*********************************************************************** C Function: Reads the input profile concentration file and opens and C writes the output IC file C Preconditions: None C Key Subroutines/Functions Called: OPN_IC_FILE C PROF_VINTERP C Revision History: C Prototype created by Jerry Gipson, January, 1998 C Modified April 1998 by JG to remove ppb option for C input profile file C Modified 4/22/99 by JG to provide default treatment C for missing SDATE and STIME C Modified 04/20/00 by David Wong, LM C -- enable parallelization C 01/24/02 Steve Howard (Jeff Young) - dynamic allocation C 12/13/04 J.Young: vert dyn alloc - Use VGRD_DEFN C 06 Jun 11 J.Young: Replaced I/O API include files with UTILIO_DEFN C 21 May 12 J.Young: Replaced IC_PARMS include file with an F90 module C 02 Sep 18 C.Hogrefe and S.Roselle: Adapted to read new profile format; C removed species mapping C 06 Nov 18 S.Roselle: Replaced UTILIO_DEFN with M3UTILIO C*********************************************************************** USE HGRD_DEFN ! Module to store and load the horizontal grid variables USE VGRD_DEFN ! vertical layer specifications USE M3UTILIO ! IOAPI module USE IC_PARMS ! ICON parameters IMPLICIT NONE C Arguments: INTEGER, INTENT( IN ) :: LOGUNIT ! Unit number for output log CHARACTER( 256 ), INTENT( IN ):: PROF_FL_NAME ! Input profile file name C Parameters: none C Local Variables: CHARACTER( 80 ) :: MSG = ' ' ! Log message CHARACTER( 16 ) :: PNAME = 'PROF_ICOUT' ! Program Name CHARACTER( 16 ) :: VNAME ! Species name on CTM conc file CHARACTER( 16 ), ALLOCATABLE :: IC_FNAME( : ) ! Logical names of IC Output file(s) CHARACTER(1000) :: RECORD CHARACTER(16), ALLOCATABLE :: VNAME_PROF_TEMP(:) CHARACTER(16), ALLOCATABLE :: VUNIT_PROF_TEMP(:) CHARACTER(16), ALLOCATABLE :: PROF_SP_NAME( : ) ! Profile species names CHARACTER(16), ALLOCATABLE :: UNITS_IN( : ) ! Units for CTM species CHARACTER(80), ALLOCATABLE :: VDESC_IN( : ) ! Variable description for CTM species INTEGER NSPCS_IN ! Total No. of species in input file(s) INTEGER NLAYS_IN ! No. of layers in input file INTEGER C, R ! Column, Row loop indices INTEGER FLN ! IC output file number INTEGER L ! Layer loop index INTEGER N ! Loop indices for species INTEGER PFILE ! Unit number of profile file INTEGER SDATE ! Date for IC Output INTEGER STIME ! Time for IC output INTEGER TSTEP ! Timestep for IC Output INTEGER I, K, NVARS, NFIELDS INTEGER IOSTATUS ! Status code INTEGER ALLOCSTAT ! Status returned from array allocation INTEGER, ALLOCATABLE :: VTYPE_IN( : ) ! variable type for CTM species LOGICAL LNEG ! Flag for negative concentrations REAL, ALLOCATABLE :: ZH_IN( : ) ! Input layer heights REAL, ALLOCATABLE :: COUT( :,:,: ) ! Output IC conc REAL, ALLOCATABLE :: INPROF( :,: ) ! Input conc profiles REAL, ALLOCATABLE :: VIPROF( :,:,:,: ) ! Vert. interp. profiles REAL, ALLOCATABLE :: VAR_PROF_TEMP( :,: ) INTERFACE SUBROUTINE PROF_VINTERP( LOGUNIT, NSPCS_IN, NLAYS_IN, ZH_IN, & CONCIN, CONCOUT ) INTEGER, INTENT( IN ) :: LOGUNIT INTEGER, INTENT( IN ) :: NSPCS_IN INTEGER, INTENT( IN ) :: NLAYS_IN REAL, INTENT( IN ) :: ZH_IN( : ) REAL, INTENT( IN ) :: CONCIN( :,: ) REAL, INTENT( OUT ) :: CONCOUT( :,:,:,: ) END SUBROUTINE PROF_VINTERP SUBROUTINE OPN_IC_FILE ( LOGUNIT, SDATE, STIME, TSTEP, NSPCS_OUT, & SPNAME_OUT, VTYPE_OUT, UNITS_OUT, & VDESC_OUT, IC_FNAME, RINDX ) CHARACTER( 16 ), INTENT( OUT ) :: IC_FNAME( : ) CHARACTER( 16 ), INTENT( IN ) :: SPNAME_OUT( : ) CHARACTER( 16 ), INTENT( IN ) :: UNITS_OUT( : ) CHARACTER( 80 ), INTENT( IN ) :: VDESC_OUT( : ) INTEGER, INTENT( IN ) :: LOGUNIT INTEGER, INTENT( IN ) :: NSPCS_OUT INTEGER, INTENT( IN ) :: RINDX INTEGER, INTENT( IN ) :: SDATE INTEGER, INTENT( IN ) :: STIME INTEGER, INTENT( IN ) :: TSTEP INTEGER, INTENT( IN ) :: VTYPE_OUT( : ) END SUBROUTINE OPN_IC_FILE END INTERFACE C*********************************************************************** cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Read the input profile file data cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc PFILE = JUNIT() OPEN( UNIT = PFILE, FILE = PROF_FL_NAME, ERR = 999 ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c read comment lines cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc DO READ( PFILE,'(A)',IOSTAT = IOSTATUS ) RECORD IF ( IOSTATUS .NE. 0 ) THEN MSG = 'Error reading profile file' CALL M3EXIT ( PNAME, 0, 0, MSG, XSTAT2 ) END IF IF ( RECORD(1:1) .NE. '#' ) EXIT END DO cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c done reading comment lines, now parse column names cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc NFIELDS = 1 DO I = 1, LEN( RECORD ) IF ( RECORD(I:I) .EQ. ',' ) NFIELDS = NFIELDS + 1 END DO NLAYS_IN = NFIELDS - 2 ! FIELDS 1 AND 2 ARE NAME AND UNITS cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c allocate arrays cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc ALLOCATE( VAR_PROF_TEMP( MX_INFL_SP, NLAYS_IN ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN MSG = 'Failure allocating VAR_PROF_TEMP' CALL M3EXIT ( PNAME, 0, 0, MSG, XSTAT1 ) END IF ALLOCATE( INPROF( NLAYS_IN, MX_INFL_SP ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN MSG = 'Failure allocating INPROF' CALL M3EXIT ( PNAME, 0, 0, MSG, XSTAT1 ) END IF ALLOCATE( ZH_IN( NLAYS_IN ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN MSG = 'Failure allocating ZH_IN' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF ALLOCATE( VNAME_PROF_TEMP( MX_INFL_SP), & VUNIT_PROF_TEMP( MX_INFL_SP), & PROF_SP_NAME( MX_INFL_SP ), & STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN MSG = 'Failure allocating VNAME_PROF_TEMP, VUNIT_PROF_TEMP, PROF_SP_NAME' CALL M3EXIT ( PNAME, 0, 0, MSG, XSTAT1 ) END IF ALLOCATE( UNITS_IN( MX_INFL_SP ), & VDESC_IN( MX_INFL_SP ), & VTYPE_IN( MX_INFL_SP ), & STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN MSG = 'Failure allocating UNITS_IN, VDESC_IN, VTYPE_IN' CALL M3EXIT ( PNAME, 0, 0, MSG, XSTAT1 ) END IF ALLOCATE( IC_FNAME( MXCTMS ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN MSG = 'Failure allocating IC_FNAME' CALL M3EXIT ( PNAME, 0, 0, MSG, XSTAT1 ) END IF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c read data fields cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc NVARS = 1 DO READ( PFILE,*,IOSTAT = IOSTATUS ) & VNAME_PROF_TEMP( NVARS ), & VUNIT_PROF_TEMP( NVARS ), & ( VAR_PROF_TEMP( NVARS,K ), K=1,NLAYS_IN ) IF ( IOSTATUS .NE. 0 ) THEN IF ( NVARS .EQ. 1 ) THEN ! error in first data line MSG = 'Error: no species data in profile file' CALL M3EXIT ( PNAME, 0, 0, MSG, XSTAT2 ) ELSE EXIT END IF END IF NVARS = NVARS + 1 END DO NVARS = NVARS - 1 cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c load data into species arrays cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc NSPCS_IN = 0 INPROF = 0.0 DO N = 1, NVARS IF ( N .EQ. INDEX1( 'PRES', NVARS, VNAME_PROF_TEMP ) ) THEN CYCLE ELSE IF ( N .EQ. INDEX1( 'ZH', NVARS, VNAME_PROF_TEMP ) ) THEN DO L = 1, NLAYS_IN ZH_IN( L ) = VAR_PROF_TEMP( N,L ) END DO ELSE IF ( N .EQ. INDEX1( 'ZF', NVARS, VNAME_PROF_TEMP ) ) THEN CYCLE ELSE IF ( N .EQ. INDEX1( 'WVEL', NVARS, VNAME_PROF_TEMP ) ) THEN CYCLE ELSE NSPCS_IN = NSPCS_IN + 1 PROF_SP_NAME( NSPCS_IN ) = VNAME_PROF_TEMP( N ) UNITS_IN( NSPCS_IN ) = VUNIT_PROF_TEMP( N ) VTYPE_IN( NSPCS_IN ) = M3REAL VDESC_IN( NSPCS_IN ) = VNAME_PROF_TEMP( N ) DO L = 1, NLAYS_IN INPROF( L,NSPCS_IN ) = VAR_PROF_TEMP( N,L ) END DO END IF END DO ALLOCATE( VIPROF( NCOLS, NROWS, NLAYS, NSPCS_IN ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN MSG = 'Failure allocating VIPROF' CALL M3EXIT ( PNAME, 0, 0, MSG, XSTAT1 ) END IF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c vertical interpolation cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc CALL PROF_VINTERP ( LOGUNIT, NSPCS_IN, NLAYS_IN, ZH_IN, INPROF, VIPROF ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Open IC output file cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc SDATE = 0 STIME = 0 TSTEP = 0 CALL OPN_IC_FILE ( LOGUNIT, SDATE, STIME, TSTEP, NSPCS_IN, & PROF_SP_NAME, VTYPE_IN, UNITS_IN, VDESC_IN, & IC_FNAME, 1 ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Write the output IC concentrations cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc ALLOCATE( COUT( NCOLS, NROWS, NLAYS ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN MSG = 'Failure allocating COUT' CALL M3EXIT ( PNAME, 0, 0, MSG, XSTAT1 ) END IF LNEG = .FALSE. DO N = 1, NSPCS_IN FLN = ( N - 1 ) / MXVARS3 + 1 VNAME = PROF_SP_NAME( N ) DO L = 1, NLAYS DO R = 1, NROWS DO C = 1, NCOLS COUT( C,R,L ) = VIPROF( C,R,L,N ) END DO END DO END DO IF ( .NOT. WRITE3( IC_FNAME( FLN ), VNAME, SDATE, STIME, & COUT( 1,1,1 ) ) ) THEN MSG = 'Could not WRITE species ' // VNAME // & 'to file ' // IC_FNAME( FLN ) CALL M3EXIT ( PNAME, SDATE, STIME, MSG, XSTAT2 ) END IF END DO IF ( LNEG ) THEN MSG = 'Negative ICs output' CALL M3EXIT ( PNAME, 0, 0, MSG, XSTAT2 ) END IF RETURN 999 CONTINUE MSG = 'Could not open file ' // PROF_FL_NAME CALL M3EXIT ( PNAME, 0, 0, MSG, XSTAT2 ) C************************* FORMAT STATEMENTS *************************** 94000 FORMAT( 1X ) END ================================================ FILE: PREP/icon/src/profile/prof_vinterp.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/ICON/src/profile/prof_vinterp.F,v 1.2 2011/10/21 16:41:57 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% SUBROUTINE PROF_VINTERP ( LOGUNIT, NSPCS_IN, NLAYS_IN, ZH_IN, & CONCIN, CONCOUT ) C************************************************************************* C Function: Interpolates/Extrapolates concentrations in vertical. C The number of layers in CONCIN is collapsed or expanded C according to the number of layers in COORD.EXT. C Interpolation is done using rational function interpolation C ( Numerical Recipes, Press et al.) or linear C interpolation. When extapolation is required, the C concentration of the outside layer is used. If the input C file has only one layer, the concentrations in that layer C are used for all output layers. C Preconditions: None C Key Subroutines/Functions Called: LR_INTERP C Revision History: Prototype created by Jerry Gipson, January, 1998 C 01/24/02 Steve Howard (Jeff Young) - dynamic allocation C 12/13/04 J.Young: vert dyn alloc - Use VGRD_DEFN C 06 Jun 11 J.Young: Replaced I/O API include files with UTILIO_DEFN C 21 May 12 J.Young: Replaced IC_PARMS include file with an F90 module C 02 Nov 19 S.Roselle: Reconfigured to do vertical interpolation to C target vertical layer heights (ZH) C 06 Nov 18 S.Roselle: Replaced UTILIO_DEFN with M3UTILIO C 30 Nov 18 S.Roselle: To provide spatially uniform ICs, target domain C average mid-layer heights are used for the vertical C interpolation C 10 June 19 F. Sidi : Commented out INTEGER STATUS because it is unused C************************************************************************* USE HGRD_DEFN ! Module to store and load the horizontal grid variables USE VGRD_DEFN ! vertical layer specifications USE M3UTILIO ! IOAPI module USE IC_PARMS ! ICON parameters IMPLICIT NONE C Arguments: INTEGER, INTENT( IN ) :: LOGUNIT ! Unit number for output log INTEGER, INTENT( IN ) :: NSPCS_IN ! No. of species in input profile INTEGER, INTENT( IN ) :: NLAYS_IN ! No. of layers in input profile REAL, INTENT( IN ) :: ZH_IN( : ) ! Input layer heights REAL, INTENT( IN ) :: CONCIN( :,: ) ! Input conc array REAL, INTENT( OUT ) :: CONCOUT( :,:,:,: ) ! Output IC array C Parameters: None C External Functions: None C Local Variables: CHARACTER( 80 ) :: MSG ! Log message CHARACTER( 16 ) :: PNAME = 'PROF_VINTERP' ! Procedure Name CHARACTER( 16 ) :: VNAME ! Variable Name INTEGER L ! Loop index for vertical layers INTEGER N ! Loop index INTEGER C, R ! Loop indices for col, row ! INTEGER STATUS ! Status code INTEGER JDATE ! Date for first record on CRO file INTEGER JTIME ! Time for first record on CRO file INTEGER ALLOCSTAT ! Status returned from array allocation LOGICAL L_RATINT ! Flag to use rational function interpolation REAL DELY ! Error estimate for conc interpolated by rational func REAL X3 ! Vertical coordinate used in interpolation REAL Y ! Interpolated concentration REAL, ALLOCATABLE :: WORKA( : ) ! Work array for conc input REAL, ALLOCATABLE :: X3_OLD( : ) ! Old Vertical coordinate values REAL, ALLOCATABLE :: ZH_OUT( :,:,: ) ! mid-layer heights for target file REAL, ALLOCATABLE :: ZH_OUT_AVG( : ) ! domain average mid-layer heights for target file INTERFACE SUBROUTINE LR_INTERP ( L_RATINT, XA, YA, N, X, Y, DELY ) LOGICAL, INTENT( IN ) :: L_RATINT REAL, INTENT( IN ) :: XA( : ) REAL, INTENT( IN ) :: YA( : ) REAL, INTENT( IN ) :: X REAL, INTENT( OUT ) :: Y REAL, INTENT( OUT ) :: DELY INTEGER, INTENT( IN ) :: N END SUBROUTINE LR_INTERP END INTERFACE C********************************************************************** ALLOCATE( WORKA( NLAYS_IN ), & X3_OLD( NLAYS_IN ), & ZH_OUT( NCOLS,NROWS,NLAYS ), & ZH_OUT_AVG( NLAYS ), & STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN MSG = 'Failure allocating WORKA, X3_OLD, ZH_OUT, ZH_OUT_AVG' CALL M3EXIT ( PNAME, 0, 0, MSG, XSTAT1 ) END IF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c open MET_CRO_3D_FIN file cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF ( .NOT. OPEN3 ( MET_CRO_3D_FIN, FSREAD3, PNAME ) ) THEN MSG = 'Could not open ' // MET_CRO_3D_FIN // ' file' CALL M3EXIT ( PNAME, 0, 0, MSG, XSTAT1 ) END IF JDATE = SDATE3D JTIME = STIME3D ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Determine type of interpolation to use: linear or rational function ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc L_RATINT = .FALSE. MSG = 'Flag for interpolation by rational function' ! L_RATINT = ENVYN( 'RATIONAL_FUNC', MSG, L_RATINT, STATUS ) IF ( .NOT. L_RATINT ) THEN MSG = 'Linear vertical interpolation used' ELSE MSG = 'Vertical interpolation by rational function' END IF CALL M3MESG ( MSG ) ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Interpolate by ZH ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C Get the layer mid-point heights VNAME = 'ZH' IF ( .NOT. READ3( MET_CRO_3D_FIN, VNAME, ALLAYS3, JDATE, JTIME, & ZH_OUT ) ) THEN MSG = 'Could not read layer heights form file ' // MET_CRO_3D_FIN CALL M3ERR ( PNAME, JDATE, JTIME, MSG, .TRUE. ) END IF C Compute domain average layer mid-point heights ZH_OUT_AVG = 0.0 DO L = 1, NLAYS DO C = 1, NCOLS DO R = 1, NROWS ZH_OUT_AVG( L ) = ZH_OUT_AVG( L ) + ZH_OUT( C,R,L ) END DO END DO ZH_OUT_AVG( L ) = ZH_OUT_AVG( L ) / ( NCOLS * NROWS ) END DO DO L = 1, NLAYS_IN X3_OLD( L ) = ZH_IN( L ) END DO CONCOUT = 0.0 DO N = 1, NSPCS_IN DO L = 1, NLAYS_IN WORKA( L ) = CONCIN( L,N ) END DO IF ( NLAYS_IN .EQ. 1 ) THEN DO L = 1, NLAYS DO R = 1, NROWS DO C = 1, NCOLS CONCOUT( C,R,L,N ) = WORKA( 1 ) END DO END DO END DO ELSE DO L = 1, NLAYS X3 = ZH_OUT_AVG( L ) IF ( X3 .LT. X3_OLD( 1 ) ) THEN DO R = 1, NROWS DO C = 1, NCOLS CONCOUT( C,R,L,N ) = WORKA( 1 ) END DO END DO ELSE IF ( X3 .GT. X3_OLD( NLAYS_IN ) ) THEN DO R = 1, NROWS DO C = 1, NCOLS CONCOUT( C,R,L,N ) = WORKA( NLAYS_IN ) END DO END DO ELSE CALL LR_INTERP ( L_RATINT, X3_OLD, WORKA, NLAYS_IN, & X3, Y, DELY ) DO R = 1, NROWS DO C = 1, NCOLS CONCOUT( C,R,L,N ) = Y END DO END DO END IF END DO END IF END DO RETURN END ================================================ FILE: PREP/icon/src/tracer/trac_driver.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/ICON/src/tracer/trac_driver.F,v 1.2 2011/10/21 16:41:57 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% SUBROUTINE TRAC_INIC ( LOGUNIT ) C*********************************************************************** C Function: Call the routine to compute catalogued special tracer species C ICs and write the Models-3 output file C Preconditions: None C Key Subroutines/Functions Called: C Revision History: C Prototype created by Jerry Gipson, January, 1998 C 01/24/02 Steve Howard (Jeff Young) - dynamic allocation C 19 Jul 11 J.Young: Convert for Namelist redesign + UTILIO_DEFN C 21 May 12 J.Young: Replaced IC_PARMS include file with an F90 module C 05 Nov 18 S.Roselle: UTILIO_DEFN replaced with M3UTILIO C*********************************************************************** USE HGRD_DEFN ! Module to store and load the horizontal grid variables USE VGRD_DEFN ! vertical layer specifications USE M3UTILIO ! IOAPI USE IC_PARMS ! ICON parameters IMPLICIT NONE C Arguments: INTEGER, INTENT( IN ) :: LOGUNIT ! Unit number for output log C Parameters: None C External Functions: None C Local Variables: CHARACTER( 80 ) :: MSG ! Log message CHARACTER( 16 ) :: PNAME = 'TRAC_INIC' ! Procedure name CHARACTER( 16 ) :: VNAME ! Output variable name CHARACTER( 16 ), ALLOCATABLE :: SPNAME_OUT( : ) ! Output tracer names CHARACTER( 16 ), ALLOCATABLE :: UNITS_OUT( : ) ! Output tracer units CHARACTER( 16 ), ALLOCATABLE :: TR_FNAME( : ) ! Output file name INTEGER FLN ! Output file number INTEGER N ! Loop index INTEGER NSPCS_OUT ! Number of IC species on output file(s) INTEGER ALLOCSTAT ! Status returned from array allocation INTEGER SDATE ! Date for IC Output INTEGER STIME ! Time for IC output INTEGER TSTEP ! Timestep for IC Output INTEGER, ALLOCATABLE :: VTYPE_OUT( : ) ! Output tracer variable type REAL, ALLOCATABLE :: TCOUT( :,:,: ) ! Output tracer concs INTERFACE SUBROUTINE OPN_IC_FILE ( LOGUNIT, SDATE, STIME, TSTEP, NSPCS_OUT, & SPNAME_OUT, VTYPE_OUT, UNITS_OUT, & VDESC_OUT, IC_FNAME, RINDX ) CHARACTER( 16 ), INTENT( OUT ) :: IC_FNAME( : ) CHARACTER( 16 ), INTENT( IN ) :: SPNAME_OUT( : ) CHARACTER( 16 ), INTENT( IN ) :: UNITS_OUT( : ) CHARACTER( 80 ), INTENT( IN ) :: VDESC_OUT( : ) INTEGER, INTENT( IN ) :: LOGUNIT INTEGER, INTENT( IN ) :: NSPCS_OUT INTEGER, INTENT( IN ) :: RINDX INTEGER, INTENT( IN ) :: SDATE INTEGER, INTENT( IN ) :: STIME INTEGER, INTENT( IN ) :: TSTEP INTEGER, INTENT( IN ) :: VTYPE_OUT( : ) END SUBROUTINE OPN_IC_FILE SUBROUTINE TRAC_IC ( TRNAME, TCOUT ) CHARACTER( 16 ), INTENT( IN ) :: TRNAME REAL, INTENT( OUT ) :: TCOUT( :,:,: ) END SUBROUTINE TRAC_IC END INTERFACE C*********************************************************************** WRITE( LOGUNIT, 92000 ) ALLOCATE( TR_FNAME( MXCTMS ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN MSG = 'Failure allocating TR_FNAME' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF ALLOCATE( UNITS_OUT( NTRACERS ), & SPNAME_OUT( NTRACERS ), & VTYPE_OUT( NTRACERS ), & STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN MSG = 'Failure allocating UNITS_OUT, SPNAME_OUT, VTYPE_OUT' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF NSPCS_OUT = NTRACERS DO N = 1, NSPCS_OUT SPNAME_OUT( N ) = TRAC_NAME( N ) VTYPE_OUT( N ) = M3REAL UNITS_OUT( N ) = "N/A" END DO cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c open the Models3 IC output file(s) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc SDATE = 0 STIME = 0 TSTEP = 0 CALL OPN_IC_FILE( LOGUNIT, SDATE, STIME, TSTEP, & NSPCS_OUT, SPNAME_OUT, VTYPE_OUT, UNITS_OUT, TRAC_DESC, & TR_FNAME, 1 ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c compute the ICs and write the ooutput file cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc ALLOCATE ( TCOUT( NCOLS,NROWS,NLAYS ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN MSG = 'Error allocating TCOUT' CALL M3EXIT ( PNAME, 0, 0, MSG, XSTAT2 ) END IF DO N = 1, NSPCS_OUT FLN = ( N - 1 ) / MXVARS3 + 1 VNAME = SPNAME_OUT( N ) CALL TRAC_IC ( VNAME, TCOUT ) IF ( .NOT. WRITE3( TR_FNAME( FLN ), VNAME, SDATE, STIME, & TCOUT ) ) THEN MSG = 'Could not WRITE species ' // TRIM( VNAME ) & // 'to file ' // TR_FNAME( FLN ) CALL M3EXIT( PNAME, SDATE, STIME, MSG, XSTAT1 ) END IF END DO RETURN C************************* FORMAT STATEMENTS *************************** 92000 FORMAT( // 1X, 79( '#' ) & / 1X, '# TRACER species section ' & / 1X, 79( '#' ) & // 5X, 'The tracer species module has been invoked; ', & 'ICs will be generated for tracer species ONLY.' ) END ================================================ FILE: PREP/icon/src/tracer/trac_ic.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/ICON/src/tracer/trac_ic.F,v 1.2 2011/10/21 16:41:58 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% SUBROUTINE TRAC_IC ( TRNAME, TCOUT ) C*********************************************************************** C Function: Compute ICs for special tracer species C Preconditions: None C Key Subroutines/Functions Called: C Revision History: C Prototype created by Daewon Byun C Modified for implementation in Models-3 ICON by Jerry Gipson, January, 1998 C 01/24/02 Steve Howard (Jeff Young) - dynamic allocation C 19 Jul 11 J.Young: Convert for Namelist redesign C 21 May 12 J.Young: Replaced IC_PARMS include file with an F90 module C*********************************************************************** USE HGRD_DEFN ! Module to store and load the horizontal grid variables USE VGRD_DEFN ! vertical layer specifications USE M3UTILIO ! IOAPI module USE IC_PARMS ! ICON paramters IMPLICIT NONE C Include FILES: C Arguments: CHARACTER( 16 ), INTENT( IN ) :: TRNAME ! Tracer name REAL, INTENT( OUT ) :: TCOUT( :,:,: ) C Parameters: INTEGER, PARAMETER :: CELL_RAD = 3 ! Radius for superposition tracers ! INTEGER, PARAMETER :: COL_PEAK = 10 ! Location of center of peak for superposition tracers ! INTEGER, PARAMETER :: ROW_PEAK = 10 ! Location of center of peak for superposition tracers REAL, PARAMETER :: CMAX = 50.0 ! Max tracer conc for superposition tracers REAL, PARAMETER :: CMIN = 50.0 ! Min tracer conc for superposition tracers C External Functions: None C Saved Local Variables: LOGICAL, SAVE :: LFIRST = .TRUE. ! Flag for first call REAL, SAVE, ALLOCATABLE :: SHAPE( :,: ) ! Shape factor for superposition tracers C Local Variables: CHARACTER( 16 ) :: PNAME = 'TRAC_IC' ! Procedure name CHARACTER( 80 ) :: MSG ! Log message INTEGER COL_PEAK ! Location of center of peak for superposition tracers INTEGER ROW_PEAK ! Location of center of peak for superposition tracers INTEGER C, R, L ! Grid loop indices INTEGER ALLOCSTAT ! Status returned from array allocation REAL DISTSQ ! Distance squared for for superposition tracers REAL RADSQ ! Hill radius squared for superposition tracers REAL XDIST ! x-distance for for superposition tracers REAL YDIST ! y-distance for for superposition tracers C*********************************************************************** cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Compute shape factors for superposition tracers on first call cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF ( LFIRST ) THEN LFIRST = .FALSE. ALLOCATE( SHAPE( NCOLS,NROWS ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN MSG = 'Failure allocating SHAPE' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF DO R = 1, NROWS DO C = 1, NCOLS SHAPE( C,R ) = 0.0 END DO END DO RADSQ = FLOAT( CELL_RAD ) ** 2 COL_PEAK = NCOLS / 2 ROW_PEAK = NROWS / 2 DO R = 1, NROWS YDIST = ABS( FLOAT( R - ROW_PEAK ) ) DO C = 1, NCOLS XDIST = ABS( FLOAT( C - COL_PEAK ) ) DISTSQ = XDIST * XDIST + YDIST * YDIST + RADSQ SHAPE( C,R ) = RADSQ / DISTSQ END DO END DO END IF ! LFIRST cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Compute the ICs cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF ( TRNAME .EQ. TRAC_NAME( 1 ) ) THEN ! UN_IC1_BC0 DO L = 1, NLAYS DO R = 1, NROWS DO C = 1, NCOLS TCOUT( C,R,L ) = 1.0 END DO END DO END DO ELSE IF ( TRNAME .EQ. TRAC_NAME( 2 ) ) THEN ! UN_IC1_BC1 DO L = 1, NLAYS DO R = 1, NROWS DO C = 1, NCOLS TCOUT( C,R,L ) = 1.0 END DO END DO END DO ELSE IF ( TRNAME .EQ. TRAC_NAME( 3 ) ) THEN ! UN_IC0_BC1 DO L = 1, NLAYS DO R = 1, NROWS DO C = 1, NCOLS TCOUT( C,R,L ) = 0.0 END DO END DO END DO ELSE IF ( TRNAME .EQ. TRAC_NAME( 4 ) ) THEN ! STREET DO L = 1, NLAYS DO R = 1, NROWS DO C = 1, NCOLS IF ( MOD( C, 2 ) .EQ. 0 .AND. MOD( R, 2 ) .EQ. 0 ) THEN TCOUT( C,R,L ) = 1.0 ELSE TCOUT( C,R,L ) = 0.0 END IF END DO END DO END DO ELSE IF ( TRNAME .EQ. TRAC_NAME( 5 ) ) THEN ! CHECKERBOARD DO L = 1, NLAYS DO R = 1, NROWS DO C = 1, NCOLS IF ( MOD( C, 2 ) .EQ. MOD( R, 2 ) ) THEN TCOUT( C,R,L ) = 1.0 ELSE TCOUT( C,R,L ) = 0.0 END IF END DO END DO END DO ELSE IF ( TRNAME .EQ. TRAC_NAME( 6 ) ) THEN ! SPOS_SIG_A DO L = 1, NLAYS DO R = 1, NROWS DO C = 1, NCOLS TCOUT( C,R,L ) = 1.0 * CMAX * ( 1.0 + SHAPE( C,R ) ) + CMIN END DO END DO END DO ELSE IF ( TRNAME .EQ. TRAC_NAME( 7 ) ) THEN ! SPOS_SIG_B DO L = 1, NLAYS DO R = 1, NROWS DO C = 1, NCOLS TCOUT( C,R,L ) = 2.0 * CMAX * ( 1.0 + SHAPE( C,R ) ) - CMIN END DO END DO END DO ELSE IF ( TRNAME .EQ. TRAC_NAME( 8 ) ) THEN ! SPOS_SIG_C DO L = 1, NLAYS DO R = 1, NROWS DO C = 1, NCOLS TCOUT( C,R,L ) = - 1.0 * CMAX * ( 1.0 + SHAPE( C,R ) ) + 2.0 * CMIN END DO END DO END DO END IF RETURN END ================================================ FILE: PREP/mcip/README.md ================================================ # Meteorology-Chemistry Interface Processor (MCIP) The Meteorology-Chemistry Interface Processor (MCIP) ingests output from the [Weather Research and Forecasting (WRF) Model](http://www.wrf-model.org) to prepare the meteorology files that are used within the CMAQ Modeling System. Where possible, MCIP uses data directly from the meteorological model to maximize consistency with the CMAQ Modeling System. When specific atmospheric fields are not explicitly output by WRF, MCIP uses scientific algorithms to create those fields for CMAQ. MCIP output is used by the emissions model (for example, to provide time-varying temperatures for mobile emissions) and by the CCTM to define the atmospheric conditions. A scientific overview of MCIP is in [Otte and Pleim (2010)](https://www.geosci-model-dev.net/3/243/2010/). MCIP performs the following functions using the output (history) file from WRF: - Defines the computational domain for the CCTM. The CCTM typically uses a smaller computational domain than the meteorological model, and the lateral boundary cells from the meteorological model generally are not used by CCTM. - Extracts meteorological model output on the computational domain that is prescribed for the CCTM. - Processes all required meteorological fields for the emissions model and the CCTM. Meteorological fields such as atmospheric temperature, pressure, humidity, and winds are acquired directly from the meteorological model (i.e., "passed through"). - Uses the available meteorological fields to compute additional fields that are required by the CCTM but are not part of the meteorological model's output stream, such as the Jacobian which is used for coordinate transformations. - Outputs files that contain meteorological and geospatial information used by the emissions model and the CCTM. The output can be either in I/O API or netCDF. MCIP is written in FORTRAN, and it runs on a single processor in a Unix/Linux environment. MCIP is driven by a C-shell script with several run-time options that are defined through a FORTRAN namelist. It is typical to use MCIP to process hourly output fields from the meteorological model for each one-day period. MCIP is often updated concurrently with the CCTM. The changes to MCIP are documented with each update to the software, and a "Frequently Asked Questions" (FAQ) file exists that is specific to MCIP. As of MCIPv5.0, WRF is the only meteorological model that can be processed with MCIP, but MCIP could be expanded to process data from other meteorological models. MCIP can be used to determine the spatial region that is processed by CMAQ. MCIP can process the full meteorological modeling domain, uniformly trim cells from that domain, or "window" a rectilinear subset of that domain. Configuration options for MCIP include the time periods over which to extract data from the meteorological model output files, horizontal and vertical grid definitions, and selections for integrating satellite cloud observations into MCIP output. ## Files, configuration, and environment variables All MCIP configurations are established at run-time (rather than at compile time) via Fortran namelist variables rather than environment variables, which is a distinction from the rest of the CMAQ programs. The user does not need to directly edit the MCIP namelist file. All configuration settings are contained in the MCIP run script (run_mcip.csh), which automatically creates a new namelist file each time the script is executed. The MCIP input files are listed in Table 1, and the MCIP output files are listed in Table 2. ## Compilation Configuration All model configuration options for MCIP are set during execution. System compiler options must be set in the provided Linux Makefile to build the program for different operating system/compiler combinations. Example compiler paths, flags, and library locations are provided in the default Makefile. ## Execution Configuration Variables The variables listed here are set by the user in the MCIP script (run_mcip.csh), and they are used during execution of the program. - `APPL [default: None]` Application name; scenario ID for file naming - `CoordName [default: None]` Coordinate system name of the MCIP output grid that is written to the GRIDDESC file. Additional information about the parameters in the GRIDDESC file can be found in the [I/O API Documentation](https://www.cmascenter.org/ioapi/documentation/all_versions/html/GRIDDESC.html). - `GridName [default: None]` Model grid name of the MCIP output grid that is written to the GRIDDESC file. - `DataPath [default: $CMAQ_DATA]` Input/output data directory path - `InMetDir [default: None]` Path of the input data directory containing the WRF‑ARW output data files - `InGeoDir [default: None]` Path of the input data directory containing the WRF Geogrid file - `OutDir [default: $CMAQ_HOME/data/mcip]` Path of the MCIP output data directory - `ProgDir [default: $CMAQ_HOME/PREP/mcip/src]` Working directory containing the MCIP executable - `WorkDir [default: $OutDir]` Temporary working directory for Fortran links and the namelist file - `InMetFiles [default: None]` List of input meteorology files, including the directory path for each file; without modifying MCIP, up to 300 meteorological model output files are allowed as input to a single MCIP execution - `IfGeo [default: F]` Binary flag indicating the availability of an input WRF Geogrid file; options include T (true) or F (false) - `InGeoFile [default: None]` Name and location of input WRF Geogrid file - `LPV: [default: 0]` Compute and output potential vorticity. This must be activated to support the [CCTM O3 potential vorticity scaling](../../CCTM/docs/ReleaseNotes/Potential_Vorticity_Scaling.md). - `0`: Do not compute and output potential vorticity - `1`: Compute and output potential vorticity - `LWOUT [default: 0]` Output vertical velocities. - `0`: Do not output vertical velocity - `1`: Output vertical velocity - `LUVBOUT [default: 0]` Output u- and v-component winds on B staggered grid. - `0`: Do not output u- and v-component winds on B-grid - `1`: Output u- and v-component winds on B-grid (in addition to the C-grid) - `MCIP_START [format: YYYY-MM-DD-HH:MM:SS.SSSS]` Beginning date and time (UTC) of data to output from MCIP. The start date and time must be contained within the input data from WRF. - `MCIP_END [format: YYYY-MM-DD-HH:MM:SS.SSSS]` End date and time (UTC) of data to output from MCIP. The end date and time must be contained within the input data from WRF. - `INTVL [default: 60]` Output interval in minutes. This setting determines the amount of model time contained in each output time step. The output interval for MCIP can be less frequent than the incoming meteorological model output (e.g., process 30-minute data for CCTM from 15-minute WRF output). - `MKGRID [default: T]` Determines whether to output static (GRID) meteorology files - `IOFORM [default: 1]` Choose output format. - `1`: Models-3 I/O API - `2`: netCDF - `BTRIM [default: 5]` The number of boundary points to remove on each of the four horizontal sides of the meteorology output to define the MCIP output domain. Setting BTRIM = 0 will specify the maximum extent of the input meteorology domain. To remove the WRF lateral boundaries, set BTRIM = 5 (recommended). This setting affects the output MCIP horizontal domain by reducing the input meteorology domain by 2*BTRIM + 2*NTHIK + 1, where NTHIK is the lateral boundary thickness (from the BDY files). The extra point reflects the conversion from the grid points (dot points) to grid cells (cross points). To crop a subset of the input meteorology ("window"), set BTRIM = -1; this setting causes BTRIM to be replaced by the information provided by X0, Y0, NCOLS, and NROWS (see below). - `X0 [used only if BTRIM = -1]` The *x*-coordinate of the lower-left corner of the full MCIP cross-point domain (including the MCIP lateral boundary) based on the input WRF‑ARW domain. X0 refers to the east-west direction. - `Y0 [used only if BTRIM = -1]` The *y*-coordinate of the lower-left corner of the full MCIP cross-point domain (including the MCIP lateral boundary) based on the input WRF‑ARW domain. Y0 refers to the north-south direction. - `NCOLS [used only if BTRIM = -1]` Number of columns in the output MCIP domain (excluding MCIP lateral boundaries) - `NROWS [used only if BTRIM = -1]` Number of rows in the output MCIP domain (excluding MCIP lateral boundaries) - `LPRT_COL [default: 0]` Column cell coordinate for diagnostic outputs on the MCIP modeling domain - `LPRT_ROW [default: 0]` Row cell coordinate for diagnostic outputs on the MCIP modeling domain - `WRF_LC_REF_LAT [optional; used only for Lambert conformal projections; default: -999.0]` WRF Lambert Conformal reference latitude. Use this setting to force the reference latitude in the output MCIP data. If not set, MCIP will use the average of the two true latitudes. ## Compiling and Running **Compile MCIP** MCIP is compiled with a Makefile. The configuration options in the Makefile include the compiler and compiler flags to use for building the executable. Note that MCIP is not a parallelized code, so parallel versions of netCDF and I/O API are not required. The Makefile is located in the directory with the MCIP source code (`$CMAQ_HOME/PREP/mcip/src`). To compile MCIP, source the config_cmaq.csh file and invoke the Makefile at the command line: ``` cd $CMAQ_HOME/PREP/mcip/src/ source $CMAQ_HOME/config_cmaq.csh ./make |& tee make.mcip.log ``` To port MCIP to different compilers, change the compiler names, locations, and flags in the config_cmaq.csh script. **Run MCIP** Set the run script settings according to the execution configuration variables described above. Run MCIP to produce meteorology input data for the CCTM: ``` cd $CMAQ_HOME/PREP/mcip/scripts ./run_mcip.csh |& tee run_mcip.log ``` **Table 1. MCIP input files** |**File Name**|**Format**|**Description**|**Required**| |------------|------------------------------|-----------------------------------------------------|---------------------| |InMetFiles|netCDF (WRF)|List of WRF output files for input to MCIP|required| |InGeoFile|netCDF (WRF)|Output from WRF Geogrid processor|optional; only required if fractional land use are not part of the WRF output| **Table 2. MCIP output files** |**File Name**|**Format**|**Description**|**Required**| |--------------------|-----------------|------------------------------------------------------------------|---------------------------| |GRIDDESC|ASCII|Grid description file with coordinate and grid definition information|required| |GRID_BDY_2D|I/O API|Time-independent 2-D boundary meteorology file|required| |GRID_CRO_2D|I/O API|Time-independent 2-D cross-point meteorology file|required| |GRID_CRO_3D|I/O API|Time-independent 3-D cross-point meteorology file|required| |GRID_DOT_2D|I/O API|Time-independent 2-D dot-point meteorology file|required| |LUFRAC_CRO|I/O API|Time-independent fractional land use by category|created if fractional land use was provided in WRF's output or in Geogrid output| |MET_BDY_3D|I/O API|Time-varying 3-D boundary meteorology file|required| |MET_CRO_2D|I/O API|Time-varying 2-D cross-point meteorology file|required| |MET_CRO_3D|I/O API|Time-varying 3-D cross-point meteorology file|required| |MET_DOT_3D|I/O API|Time-varying 3-D dot-point meteorology file|required| |MOSAIC_CRO|I/O API|Time-varying 3-D output from mosaic land use|created if the Noah Mosaic land-surface model was run in WRF| |SOI_CRO|I/O API|Time-varying soil properties in each soil layer|created if a land-surface model was run in WRF| |mcip.nc|netCDF|contains both time-independent and time-varying output variables that contain 2-D layers (either only in 2-D or in 3-D, where the third dimension could be atmospheric layers, soil layers, land use categories, mosaic categories, etc.)|required, if IOFORM=2| |mcip_bdy.nc|netCDF|contains time-independent and time-varying output along the domain perimeter|required, if IOFORM=2| The default location of the MCIP output files is the `$CMAQ_HOME/data/mcip/$GridName` directory, but it can be changed in the MCIP script using the `$OutDir` variable. The names of the MCIP output files are generic and do not have any information about the model grid that they are simulating or the time period that is covered. These attributes can be controlled by the MCIP script. For example, the name of the grid can be used in the output directory path. In addition, the default naming convention for all MCIP output files appends the `APPL` environment variable to the file name to identify files by the time period that is represented by the file. All of the file naming variables for the MCIP outputs are set in the run script, and they can be easily tailored to fit each user's application or style. **Previous Versions of MCIP** MCIPv4.3 and MCIPv4.2 were released via the CMASCenter MCIP GitHub repository. Beginning with version 4.5, MCIP is released as part of the CMAQ repository. The MCIP version and CMAQ version are aligned beginning with version 5.3.3. * [MCIPv5.4 (October 2022)](https://github.com/USEPA/CMAQ/blob/5.4/PREP/mcip/docs/ReleaseNotes) - bundled under CMAQv5.4 * [MCIPv5.3.3 (August 2021)](https://github.com/USEPA/CMAQ/blob/5.3.3/PREP/mcip/docs/ReleaseNotes) - bundled under CMAQv5.3.3 * [MCIPv5.1 (December 2019)](https://github.com/USEPA/CMAQ/blob/5.3.1/PREP/mcip/docs/ReleaseNotes) - bundled under CMAQv5.3.1 * [MCIP v5.0 (August 2019)](https://github.com/USEPA/CMAQ/blob/5.3/PREP/mcip/docs/ReleaseNotes) - bundled under CMAQv5.3 * [MCIP v4.5 (October 2018)](https://github.com/USEPA/CMAQ/blob/CMAQv5.3.b2_19Oct2018/PREP/mcip/docs/ReleaseNotes) - bundled under CMAQv5.3beta2 * [MCIP v4.3 (November 2015)](https://github.com/CMASCenter/MCIP/tree/4.3) - available on CMASCenter GitHub repository * [MCIP v4.2 (December 2013)](https://github.com/CMASCenter/MCIP/tree/4.2) - available on CMASCenter GitHub repository ================================================ FILE: PREP/mcip/docs/CHANGES ================================================ CHANGES for MCIP MCIP Version 5.5 (19 September 2024) - Changed constraint on XORIG and YORIG for Lambert conformal projections with user-specified runtime reference latitude. Original constraint of 500 meters introduced an error in calculating the location of the lower-left corner (i.e., XORIG and YORIG) in domains with a horizontal grid spacing that is not a multiple of 1 km. Now using a constraint of 5 meters to allow for "neater" XORIG and YORIG values across compilers. Changed files: PREP/mcip/src/setgriddefs.f90 - Updated WRF option translation for the MCIP metadata for new physics introduced between WRFv4.1 and WRFv4.6. Changed files: PREP/mcip/src/wrfemopts.f90 - Removed redundant NF90_OPEN/NF90_CLOSE couplet to improve efficiency. Changed files: PREP/mcip/src/rdwrfem.f90 - Updated version stamp. Changed files: PREP/mcip/src/mcipparm_mod.f90 -------------------------------------------------------------------------------- MCIP Version 5.4 (12 July 2022) - Updated version stamp. Changed files: PREP/mcip/src/mcipparm_mod.f90 -------------------------------------------------------------------------------- MCIP Version 5.3.3 (30 June 2021) - Removed reliance on reading F (Coriolis parameter) from WRF output for PV scaling in CMAQ. Instead, calculate F from latitude. Changed files: mcip5/rdwrfem.f90 - Corrected error in logic for processing meteorology data at a time interval that is coarser than the available data in the file. Changed files: mcip5/setgriddefs.f90 - Updated description and units for potential vorticity to adhere to constraints on character field in I/O API. Note that units do not conform to MKS, but full explanation is given in the description field. Changed files: mcip5/init_ctm.f90 - Corrected minor bug in assigning bounds for XCLAY_PX, as identified in CMAS Center Forum. Changed files: mcip5/metvars2ctm.f90 - Changed write statement for MCIP-generated GRIDDESC files to accommodate domains with more than 999 grid cells on a side. Changes files: mcip5/wrgdesc.f90 - Updated Makefile to reflect newer options for PGI. Changed files: mcip5/Makefile - Updated version stamp. With this release, the versioning for MCIP will become consistent with the CMAQ system. The version skips from MCIPv5.1 to MCIPv5.3.3. (There is no MCIPv5.2 or MCIPv5.3.) Changed files: mcip5/mcipparm_mod.f90 -------------------------------------------------------------------------------- MCIP Version 5.1 (25 November 2019) - Expanded options to allow for surface analysis nudging option 2 (FASDAS), which has been available since WRFv3.8. Changed files: mcip5/blddesc.f90 mcip5/setup_wrfem.f90 - Corrected setting for namelist variable file_geo in namelist generation part of the script. Changed files: mcip5/run_mcip.csh - Corrected error in setting the 3D fractional cloud coverage on one of the lateral boundaries. Changed files: mcip5/ctmproc.f90 - Updated release stamp. Changed files: mcip5/mcipparm_mod.f90 -------------------------------------------------------------------------------- MCIP Version 5.0 (19 June 2019) - Updated units of output fields to conform to CF compliance. These units were formerly set in gridout.f90, groutcom_mod.f90, luoutcom_mod.f90, mcoutcom_mod.f90, mdoutcom_mod.f90, metcro.f90, mosoutcom_mod.f90, and soioutcom_mod.f90. They are now all contained in a new routine. New file: mcip5/init_ctm.f90 - Renamed module with land use categories to avoid confusion. Changed file: mcip5/getluse.f90 New file: mcip5/lucats_mod.f90 Deleted file: mcip5/luvars_mod.f90 - Renamed module with netCDF IO routines to broaden usage beyond WRF. Changed file: mcip5/rdwrfem.f90 mcip5/setup_wrfem.f90 New file: mcip5/netcdf_io_mod.f90 Deleted file: mcip5/wrf_netcdf_mod.f90 - Combined elements of MCIP output fields from several modules into a single Fortran module. Changed files: mcip5/alloc_ctm.f90 mcip5/dealloc_ctm.f90 mcip5/gridout.f90 mcip5/lucro.f90 mcip5/metcro.f90 mcip5/metdot.f90 mcip5/moscro.f90 mcip5/soilcro.f90 New file: mcip5/ctmvars_mod.f90 Deleted files: mcip5/groutcom_mod.f90 mcip5/luoutcom_mod.f90 mcip5/mcoutcom_mod.f90 mcip5/mdoutcom_mod.f90 mcip5/mosoutcom_mod.f90 mcip5/soioutcom_mod.f90 - Created a missing value token for MCIP. Changed files: mcip5/gridout.f90 mcip5/init_x.f90 mcip5/mcipparm_mod.f90 mcip5/metcro.f90 mcip5/metvars2ctm.f90 mcip5/pblsup.f90 mcip5/resistcalc.f90 mcip5/setup_wrfem.f90 - Changed internal data formats for output variables to use data structures. Changed files: mcip5/alloc_ctm.f90 mcip5/ctmvars_mod.f90 mcip5/dealloc_ctm.f90 mcip5/gridout.f90 mcip5/init_ctm.f90 mcip5/lucro.f90 mcip5/mcipparm_mod.f90 mcip5/metcro.f90 mcip5/metdot.f90 mcip5/moscro.f90 mcip5/soicro.f90 - Corrected bug in setting land use category names in MCIP for USGS24 + lakes. Changed files: mcip5/getluse.f90 mcip5/lucats_mod.f90 - Enabled hybrid option for vertical coordinate in WRF. Was already coded, but was commented out. Changed condition to enable processing for the hybrid vertical coordinate. Changed files: mcip5/alloc_met.f90 mcip5/alloc_x.f90 mcip5/init_met.f90 mcip5/init_x.f90 mcip5/metvars2ctm.f90 mcip5/rdwrfem.f90 - Removed support for MM5v3 input. Changed files: mcip5/alloc_ctm.f90 mcip5/alloc_met.f90 mcip5/alloc_x.f90 mcip5/blddesc.f90 mcip5/dealloc_ctm.f90 mcip5/dealloc_met.f90 mcip5/dealloc_x.f90 mcip5/files_mod.f90 mcip5/getmet.f90 mcip5/gridout.f90 mcip5/groutcom_mod.f90 mcip5/init_met.f90 mcip5/init_x.f90 mcip5/metcro.f90 mcip5/metinfo_mod.f90 mcip5/metvars_mod.f90 mcip5/metvars2ctm.f90 mcip5/mcip.f90 mcip5/pblsup.f90 mcip5/rdwrfem.f90 mcip5/readnml.f90 mcip5/setgriddefs.f90 mcip5/setup.f90 mcip5/setup_wrfem.f90 mcip5/statflds.f90 mcip5/xvars_mod.f90 mcip5/Makefile mcip5/run_mcip.csh Deleted files: mcip5/cori.f90 mcip5/getgist.f90 mcip5/getversion.f90 mcip5/mm5v3opts.f90 mcip5/rdmm5v3.f90 mcip5/refstate.f90 mcip5/sat2mcip_mod.f90 mcip5/setup_mm5v3.f90 mcip5/readter.f90 mcip5/vertnhy.f90 - Changed fill value for convective rainfall when "no cumulus parameterization" was used from -1 to a large negative number to prevent inadvertent use in CCTM and post-processing. Changed files: mcip5/metvars2ctm.f90 - Corrected error in computing precipitation amounts when the tipping bucket is used and less than 0.5 mm of precipitation accumulated during the same hour that the bucket tips; corrects erroneous precipitation spikes. Corrected error in array mapping for precipitation on initial time step in the outermost row and column (dummy cells not used by CMAQ). Changed files: mcip5/rdwrfem.f90 - Allowed WRFv4.0+ input to be used. Changed file: mcip5/setup.f90 - Modified criteria to determine whether incremental precipitation is available in WRF output. WRFv4.0 allows header variable PREC_ACC_DT to appear even if the accompanying precipitation fields are not in the output. Changed file: mcip5/setup_wrfem.f90 - Moved parsing and processing of output fields on the CCTM grid to routines separated from the output functions. Changed files: mcip5/Makefile mcip5/gridout.f90 mcip5/mcip.f90 Deleted files: mcip5/lucro.f90 mcip5/metcro.f90 mcip5/metdot.f90 mcip5/moscro.f90 mcip5/soilcro.f90 New files: mcip5/ctmproc.f90 mcip5/gridproc.f90 mcip5/ctmout.f90 mcip5/outcm3io.f90 mcip5/outgm3io.f90 mcip5/outncf.f90 mcip5/outncfglobal.f90 - Added flag (IFRCURB) to determine if fraction of urban area is obtained from an urban canopy model in WRF. Changed files: mcip5/gridproc.f90 mcip5/mcipparm_mod.f90 mcip5/setup_wrfem.f90 - Added runtime option to choose output format. Changed files: mcip5/Makefile mcip5/close_files.f90 mcip5/ctmout.f90 mcip5/files_mod.f90 mcip5/gridout.f90 mcip5/mcipparm_mod.f90 mcip5/readnml.f90 New files: mcip5/outcm3io.f90 mcip5/outgm3io.f90 mcip5/outglog.f90 mcip5/outclog.f90 mcip5/outncf.f90 mcip5/outncfglobal.f90 - Updated to identify physics options from WRFv4.0 and WRFv4.1. Changed file: mcip5/wrfemopts.f90 - Removed layer collapsing. Changed files: mcip5/ctmproc.f90 mcip5/mcipparm_mod.f90 mcip5/readnml.f90 mcip5/setup_wrfem.f90 mcip5/Makefile mcip5/run_mcip.csh Deleted files: mcip5/collapx.f90 - Updated metadata descriptions for JACOBF, JACOBM, DENSA_J, and WWIND. Changed files: mcip5/init_ctm.f90 - Added 7 new 2D variables to the output if the Pleim-Xiu land-surface model is run in WRFv4.1. These variables can be used to improve simulation of dust in CCTM. LAI_PX replaces LAI in the output, and the following 6 variables are added: WSAT_PX, WFC_PX, WWLT_PX, CSAND_PX, FMSAND_PX, and CLAY_PX. Added 4 optional 3D variables with Kain-Fritsch convective parameterization scheme with radiative feedbacks on. These variables can enhance cloud representation in CCTM. The variables include: QC_CU, QI_CU, CLDFRA_DP, and CLDFRA_SH. Changed files: mcip5/alloc_ctm.f90 mcip5/alloc_met.f90 mcip5/alloc_x.f90 mcip5/ctmproc.f90 mcip5/ctmvars_mod.f90 mcip5/dealloc_ctm.f90 mcip5/dealloc_met.f90 mcip5/dealloc_x.f90 mcip5/init_ctm.f90 mcip5/init_met.f90 mcip5/init_x.f90 mcip5/mcipparm_mod.f90 mcip5/metvars2ctm.f90 mcip5/metvars_mod.f90 mcip5/outcm3io.f90 mcip5/rdwrfem.f90 mcip5/setup_wrfem.f90 mcip5/setgriddefs.f90 mcip5/xvars_mod.f90 - Modified calculations of the total Jacobian (Jacobian divided by the square of the map scale factors) to eliminate unnecessary multiplication and division by density. Changed files: mcip5/ctmproc.f90 - Commensurate with removing support for MM5, changed default 3D winds output to be on the Arakawa-C staggering (like CCTM) instead of on the Arakawa-B staggering. In METDOT3D, now the default output will be UWINDC and VWINDC instead of UWIND and VWIND. Instead of allowing UWINDC and VWINDC to be optional via the runtime switch, LUVCOUT, the runtime switch is renamed LUVBOUT, and the optional variables are UWIND and VWIND. The switch remains "on" by default. Changed files: mcip5/alloc_ctm.f90 mcip5/ctmproc.f90 mcip5/init_ctm.f90 mcip5/mcipparm_mod.f90 mcip5/readnml.f90 mcip5/setgriddefs.f90 mcip5/run_mcip.csh - Updated release stamp. Changed files: mcip4/mcipparm_mod.f90 -------------------------------------------------------------------------------- MCIP Version 4.5 (16 March 2018) - Corrected error in calculation of dot-point latitude and longitude for polar steroegraphic WRF. Changed files: mcip4/rdwrfem.f90 - Refined calculation of interval between WRF output times to account for small drifts when advection time steps do not fall exactly on the hour. Changed files: mcip4/mcipparm_mod.f90 mcip4/rdwrfem.f90 mcip4/setgriddefs.f90 - Corrected error in print statement for CLDFRA in the log file. Changed files: mcip4/rdwrfem.f90 - Corrected error in print statement and comment for Monin-Obukhov length from the Pleim-Xiu land-surface model in WRF. Print statement and comment erroneously attributed MOL to ACM2 PBL scheme. Changed files: mcip4/pblsup.f90 mcip4/setgriddefs.f90 - Updated options for compiling with Intel Fortran by eliminating the need for the IMF library. Reversed the order of loading netcdff and netcdf so the netCDF Fortran library is loaded first for all compilers. Changed files: mcip4/Makefile - Added snow height (SNOWH) to METCRO2D output. Changed files: mcip4/alloc_ctm.f90 mcip4/alloc_met.f90 mcip4/alloc_x.f90 mcip4/dealloc_ctm.f90 mcip4/dealloc_met.f90 mcip4/dealloc_x.f90 mcip4/init_met.f90 mcip4/init_x.f90 mcip4/mcoutcom_mod.f90 mcip4/metcro.f90 mcip4/metvars_mod.f90 mcip4/metvars2ctm.f90 mcip4/rdwrfem.f90 mcip4/xvars_mod.f90 - Changed initial value for MET_PCP_INCR from real to integer to align with type specified for the variable. Changed files: mcip4/setup_mm5v3.f90 - Removed unused variables. Changed files: mcip4/sat2mcip_mod.f90 - Added capability to properly process PURB when the 21-category MODIS land use is used in WRF. Corrected an internal list for the 21-category MODIS for the lake category. Changed files: mcip4/getluse.f90 mcip4/luvars_mod.f90 - Created a minumum value for rainfall in order to avoid underflow condition. Changed files: mcip4/rdwrfem.f90 - Removed superfluous variables METROW and METCOL. Changed files: mcip4/mcipparm_mod.f90 mcip4/sat2mcip_mod.f90 mcip4/setgriddefs.f90 - Added support for hybrid vertical coordinate in WRF output. Disabled the effects on the Jacobian pending additional testing and modifications within CMAQ. Changed files: mcip4/alloc_met.f90 mcip4/alloc_x.f90 mcip4/dealloc_met.f90 mcip4/dealloc_x.f90 mcip4/init_met.f90 mcip4/init_x.f90 mcip4/metvars_mod.f90 mcip4/metvars2ctm.f90 mcip4/rdwrfem.f90 mcip4/setup_wrfem.f90 mcip4/xvars_mod.f90 - Added coefficient for spectral nudging of moisture to metadata. Changed file: mcip4/blddesc.f90 - Changed print statement preceding the printing of metadata in the log file. Changed file: mcip4/mcip.f90 - Added capability to read and process data from the NOAH Mosaic land-surface model in WRF via MCIP. Changed files: mcip4/alloc_ctm.f90 mcip4/alloc_met.f90 mcip4/alloc_x.f90 mcip4/dealloc_ctm.f90 mcip4/dealloc_met.f90 mcip4/dealloc_x.f90 mcip4/getluse.f90 mcip4/files_mod.f90 mcip4/init_met.f90 mcip4/init_x.f90 mcip4/mcip.f90 mcip4/mcipparm_mod.f90 mcip4/metgrid2ctm.f90 mcip4/metvars_mod.f90 mcip4/metvars2ctm.f90 mcip4/pblsup.f90 mcip4/rdwrfem.f90 mcip4/run_mcip.csh mcip4/setgriddefs.f90 mcip4/setup_mm5v3.f90 mcip4/setup_wrfem.f90 mcip4/wrf_netcdf_mod.f90 mcip4/wrfemopts.f90 mcip4/xvars_mod.f90 New files: mcip4/comheader_mos.f90 mcip4/getpsih.f90 mcip4/moscro.f90 mcip4/mosoutcom_mod.f90 - Removed unnecessary variable MAXLUC and replaced it with existing variable NUMMETLU. Changed files: mcip4/alloc_x.f90 mcip4/mcipparm_mod.f90 - Created new M3 I/O API output file for data within soil layers. Changed files: mcip4/alloc_ctm.f90 mcip4/alloc_met.f90 mcip4/alloc_x.f90 mcip4/comheader.f90 mcip4/dealloc_ctm.f90 mcip4/dealloc_met.f90 mcip4/dealloc_x.f90 mcip4/files_mod.f90 mcip4/init_met.f90 mcip4/init_x.f90 mcip4/mcip.f90 mcip4/metvars_mod.f90 mcip4/metvars2ctm.f90 mcip4/rdwrfem.f90 mcip4/run_mcip.csh mcip4/xvars_mod.f90 New files: mcip4/comheader_soi.f90 mcip4/soicro.f90 mcip4/soioutcom_mod.f90 - Created new M3 I/O API output file for fractional land use data. Changed files: mcip4/alloc_ctm.f90 mcip4/dealloc_ctm.f90 mcip4/mcip.f90 New files: mcip4/comheader_lufrac.f90 mcip4/lucro.f90 mcip4/luoutcom_mod.f90 - Prevent MCIP from using meteorology initialization time period. Changed file: mcip4/setgriddefs.f90 - Updated release stamp. Changed files: mcip4/mcipparm_mod.f90 -------------------------------------------------------------------------------- MCIP Version 4.4 (23 June 2017) - Changed name of run script to "run_mcip.csh" and changed names of MCIP output files referenced in the script to have the extension ".nc" for consistency with other changes in the CMAQ system. New file: mcip4/run_mcip.csh Deleted file: mcip4/run.mcip - Made minor changes related to WRF implementation of MODIS land use with category 21 representing "lake". Changed files: mcip4/rdwrfem.f90 mcip4/resistcalc.f90 mcip4/setup_wrfem.f90 - Corrected error in the calculation of 10-m wind speed from WRF simulations. Previous version inadvertently used longitude from center of the domain instead of the reference longitude for the projection. Should not affect CMAQ simulations because WDIR10 is not used. Changed files: mcip4/pblsup.f90 - Refined coding to increase robustness under different compilers. Changed files: mcip4/gridout.f90 - Changed reference to WRF variable for fraction of urban area from FRC_URB to FRC_URB2D to be consistent with its usage in WRF. Changed files: mcip4/rdwrfem.f90 - Updated metadata for new physics options in WRFv3.8, WRFv3.8.1, and WRFv3.9. Changed files: mcip4/wrfemopts.f90 - Now determine whether the hybrid vertical coordinate was used in WRF; the option is available as of WRFv3.9. Currently disable option to use MCIP and CMAQ with hybrid vertical coordinate until additional modifications and testing are performed. Changed files: mcip4/metinfo_mod.f90 mcip4/setgriddefs.f90 mcip4/setup_mm5v3.f90 mcip4/setup_wrfem.f90 - Updated release stamp. Changed files: mcip4/mcipparm_mod.f90 -------------------------------------------------------------------------------- MCIP Version 4.3 (6 November 2015) - Updated to accommodate optional lake category in WRF USGS and MODIS land use classifications. Moved definitions of land use indices from getluse.f90 to setup_wrfem.f90 and setup_mm5v3.f90 because indices for water, ice, lake, and urban are global variables in WRF output header. Changed files: mcip4/getluse.f90 mcip4/setup_mm5v3.f90 mcip4/setup_wrfem.f90 - Corrected error-handling for format 9400 and in four places that of the code that would have still worked with the "old" error-handling format. Changed files: mcip4/rdwrfem.f90 - Removed requirement that fractional land use field (FRC_URB) is part of WRF output when the urban canopy model is used. Changed files: mcip4/getluse.f90 mcip4/gridout.f90 mcip4/rdwrfem.f90 - Added 3D cloud fraction to METCRO3D output. This field is only created when 3D cloud fraction from WRF is exclusively comprised of resolved cloud. Changed files: mcip4/alloc_ctm.f90 mcip4/alloc_met.f90 mcip4/alloc_x.f90 mcip4/dealloc_ctm.f90 mcip4/dealloc_met.f90 mcip4/dealloc_x.f90 mcip4/init_met.f90 mcip4/init_x.f90 mcip4/mcipparm_mod.f90 mcip4/mcoutcom_mod.f90 mcip4/metcro.f90 mcip4/metvars_mod.f90 mcip4/metvars2ctm.f90 mcip4/rdwrfem.f90 mcip4/setgriddefs.f90 mcip4/setup_mm5v3.f90 mcip4/setup_wrfem.f90 mcip4/xvars_mod.f90 - Updated metadata for new physics options in WRFv3.6, WRFv3.6.1, and WRFv3.7. Changed files: mcip4/wrfemopts.f90 - Changed latent heat flux from QFX to LH to be consistent with variable name in WRF and WRF-CMAQ coupled model. Affects variable name in METCRO2D and all local variable names. Changed files: mcip4/alloc_ctm.f90 mcip4/alloc_met.f90 mcip4/alloc_x.f90 mcip4/dealloc_ctm.f90 mcip4/dealloc_met.f90 mcip4/dealloc_x.f90 mcip4/init_met.f90 mcip4/init_x.f90 mcip4/mcoutcom_mod.f90 mcip4/metcro.f90 mcip4/metvars_mod.f90 mcip4/metvars2ctm.f90 mcip4/pblsup.f90 mcip4/rdmm5v3.f90 mcip4/rdwrfem.f90 mcip4/xvars_mod.f90 - Recompute Monin-Obukhov length if PX is used in WRF because local MOL in ACM2 on the WRF time step is not actually passed to WRF output. Makes MOL usage in CMAQ consistent with other on-time-step calculations in WRF. This is done only when the Pleim-Xiu land-surface model is used in WRF. Changed files: mcip4/alloc_met.f90 mcip4/alloc_x.f90 mcip4/const_pbl_mod.f90 mcip4/dealloc_met.f90 mcip4/dealloc_x.f90 mcip4/init_met.f90 mcip4/init_x.f90 mcip4/mcipparm_mod.f90 mcip4/metvars_mod.f90 mcip4/metvars2ctm.f90 mcip4/pblsup.f90 mcip4/rdwrfem.f90 mcip4/setgriddefs.f90 mcip4/setup_mm5v3.f90 mcip4/setup_wrfem.f90 mcip4/xvars_mod.f90 - When Pleim-Xiu land-surface model is used in WRF, realign soil categories so they match WRF documentation and for consistency when used in the dust and bidi models in CMAQ. (This function has been commented out in MCIPv4.3, and is reserved for future use.) Changed files: mcip4/Makefile mcip4/rdwrfem.f90 New file: mcip4/detangle_soil_px.f90 - Changed IF/THEN conditional to remove segmentation fault triggered by some Fortran compilers. Changed file: mcip4/getluse.f90 - Changed WRITE statements for printing sampled data to log file to eliminate warning messages. Changed files: mcip4/metcro.f90 mcip4/metdot.f90 mcip4/rdwrfem.f90 - Updated suite of debug options associated with various compilers. Changed file: mcip4/Makefile - The following output variables in METCRO2D are now deprecated: cloud fraction (CFRAC) cloud top (CLDT) cloud bottom (CLDB) liquid water content (WBAR) The default CMAQ no longer uses these fields, and they will be removed from METCRO2D in the next release of MCIP. - Updated release stamp. Changed files: mcip4/mcipparm_mod.f90 -------------------------------------------------------------------------------- MCIP Version 4.2 (23 August 2013) - Increased maximum number of input files for MCIP in order to handle one year of daily output files at a time. Changed files: mcip4/files_mod.f90 mcip4/run.mcip - Added option to process convective and non-convective precipitation if it is already incremental from WRF. Changed files: mcip4/metinfo_mod.f90 mcip4/rdwrfem.f90 mcip4/setup_mm5v3.f90 mcip4/setup_wrfem.f90 - Added handling for 40-category 2006 NLCD-MODIS land use classification as "NLCD40". Added alternate name for 50-category 2001 NLCD-MODIS land use classification as "NLCD50". Changed files: mcip4/getluse.f90 mcip4/luvars_mod.f90 mcip4/metvars2ctm.f90 mcip4/rdwrfem.f90 mcip4/resistcalc.f90 mcip4/setup_wrfem.f90 - Read land-water mask from WRF and use directly for WRF runs that used the Pleim-Xiu land-surface model (rather than reconstructing inside MCIP). For other LSMs in WRF, the land-water mask is dynamic and ice points toggle from water to land. Changed files: mcip4/alloc_met.f90 mcip4/dealloc_met.f90 mcip4/getluse.f90 mcip4/init_met.f90 mcip4/metvars_mod.f90 mcip4/rdwrfem.f90 - Updated metadata for new physics options in WRFv3.4.1 and WRFv3.5. Changed files: mcip4/wrfemopts.f90 - Updated version stamp. Changed files: mcip4/mcipparm_mod.f90 -------------------------------------------------------------------------------- MCIP Version 4.1 (11 May 2012) - Updated code and made minor corrections to handle spectral nudging runs from WRF. Changed files: mcip4/blddesc.f90 mcip4/metinfo_mod.f90 mcip4/setup_wrfem.f90 - Force 2-m water vapor mixing ratio from WRF with YSU PBL to be filled with layer 1 QVAPOR to avoid occasional Q2 < 0 in wintertime. Changed files: mcip4/setup_wrfem.f90 - Corrected error in tipping bucket precipitation calculation. Changed files: mcip4/rdwrfem.f90 - Added provision for calculating Monin-Obukhov length when the sensible heat flux is 0. Changed files: mcip4/pblsup.f90 - Updated metadata for new physics options in WRFv3.4. Changed files: mcip4/wrfemopts.f90 - Corrected alphabetization of files in Makefile. Changed files: mcip4/Makefile - Updated release stamp. Changed files: mcip4/mcipparm_mod.f90 -------------------------------------------------------------------------------- MCIP Version 4.0 (9 September 2011) - Removed option to compute dry deposition velocities in MCIP. Option is now exclusively available in CMAQ's CCTM. Changed files: mcip4/Makefile mcip4/dynflds.f90 mcip4/mcip.f90 mcip4/mcipparm_mod.f90 mcip4/metcro.f90 mcip4/readnml.f90 mcip4/run.mcip mcip4/setgriddefs.f90 Removed files: mcip4/alloc_depv.f90 mcip4/dealloc_depv.f90 mcip4/depvvars_mod.f90 mcip4/hlconst.f90 mcip4/init_depv.f90 mcip4/m3dry.f90 - Corrected error in calculating dot point map-scale factors for polar stereographic projections when true latitude is not at the pole. Changed files: mcip4/mapfac_ps.f90 - Changed calculation of dot-point and face-point latitude and longitude for polar stereographic projection to interpolation to eliminate the error in the calculation. The approximation from interpolation is adequate for CMAQ. Changed files: mcip4/rdmm5v3.f90 mcip4/rdwrfem.f90 Removed file: mcip4/xy2ll_ps.f90 - Improved support for long MCIP runs from long WRF runs. Changed files: mcip4/rdwrfem.f90 mcip4/setup_wrfem.f90 - Corrected error in propagating canopy wetness from WRF runs to MCIP output where scaling was over air density rather than water density. Changed files: mcip4/metvars2ctm.f90 - Added sea ice to METCRO2D. Corrected land/water mask so that ice cells are considered water. Changed files: mcip4/alloc_ctm.f90 mcip4/alloc_met.f90 mcip4/alloc_x.f90 mcip4/dealloc_ctm.f90 mcip4/dealloc_met.f90 mcip4/dealloc_x.f90 mcip4/getluse.f90 mcip4/init_met.f90 mcip4/init_x.f90 mcip4/mcipparm_mod.f90 mcip4/mcoutcom_mod.f90 mcip4/metcro.f90 mcip4/metvars_mod.f90 mcip4/metvars2ctm.f90 mcip4/rdmm5v3.f90 mcip4/rdwrfem.f90 mcip4/xvars_mod.f90 - Added option for precipitation tipping bucket to be used in WRF and processed correctly by MCIP. Changed files: mcip4/alloc_met.f90 mcip4/dealloc_met.f90 mcip4/init_met.f90 mcip4/metinfo_mod.f90 mcip4/metvars_mod.f90 mcip4/rdwrfem.f90 mcip4/setup_mm5v3.f90 mcip4/setup_wrfem.f90 - Changed values of output convective precipitation array to negative (i.e., non-physical) values if a cumulus parameterization scheme was not used in the meteorological model. Works with a change to the sub-grid cloud scheme in CMAQv5.0. Changed files: mcip4/metvars2ctm.f90 - Changed format of print statements to take Intel compiler's recommendations and eliminate warning messages. Changed files: mcip4/blddesc.f90 mcip4/statflds.f90 - Updated metadata with options from WRFv3.2 and WRFv3.3. Added shallow convection option to metadata. Changed files: mcip4/blddesc.f90 mcip4/metinfo_mod.f90 mcip4/mm5v3opts.f90 mcip4/setup_mm5v3.f90 mcip4/setup_wrfem.f90 mcip4/wrfemopts.f90 - Corrected variable type mismatch between double-precision and single-precision real. Changed files: mcip4/ll2xy_lam.f90 mcip4/ll2xy_lam_tan.f90 - Replaced Fortran 90 modules parms3_mod.f90, fdesc3_mod.f90, and iodecl3_mod.f90 and dependencies on PARMS3.EXT, FDESC3.EXT, and IODECL3.EXT with I/O API module M3UTILIO. Also removed I/O API internal parameter checking call to I/O API routine IOPARMS3 in init_io.f90. ** MCIP now has a dependency on I/O API v3.1 or higher. Removed files: mcip4/fdesc3_mod.f90 mcip4/iodecl3_mod.f90 mcip4/parms3_mod.f90 Changed files: mcip4/alloc_ctm.f90 mcip4/close_files.f90 mcip4/comheader.f90 mcip4/gridout.f90 mcip4/init_io.f90 mcip4/init_x.f90 mcip4/mcipparm_mod.f90 mcip4/metcro.f90 mcip4/metdot.f90 mcip4/metvars2ctm.f90 mcip4/pblsup.f90 mcip4/resistcalc.f90 mcip4/sat2mcip_mod.f90 mcip4/setgriddefs.f90 mcip4/setup_mm5v3.f90 mcip4/setup_wrfem.f90 mcip4/Makefile - Changed name of module FILE to FILES to avoid conflict with F90 protected intrinsic. Removed file: mcip4/file_mod.f90 New file: mcip4/files_mod.f90 Changed files: mcip4/chkwpshdr.f90 mcip4/chkwrfhdr.f90 mcip4/getgist.f90 mcip4/getversion.f90 mcip4/gridout.f90 mcip4/mcip.f90 mcip4/metcro.f90 mcip4/metdot.f90 mcip4/rdmm5v3.f90 mcip4/rdwrfem.f90 mcip4/readnml.f90 mcip4/readter.f90 mcip4/setup.f90 mcip4/setup_mm5v3.f90 mcip4/setup_wrfem.f90 mcip4/wrgdesc.f90 mcip4/Makefile - Updated netCDF commands from F77 to F90, and improved error handling. Changed files: mcip4/chkwpshdr.f90 mcip4/chkwrfhdr.f90 mcip4/rdwrfem.f90 mcip4/sat2mcip_mod.f90 mcip4/setgriddefs.f90 mcip4/setup.f90 mcip4/setup_wrfem.f90 mcip4/wrf_netcdf_mod.f90 - Improved error handling by removing GOTO statements. Changed files: mcip4/collapx.f90 mcip4/getgist.f90 mcip4/getluse.f90 mcip4/getmet.f90 mcip4/getversion.f90 mcip4/gridout.f90 mcip4/layht.f90 mcip4/ll2xy_lam.f90 mcip4/metcro.f90 mcip4/metdot.f90 mcip4/metvars2ctm.f90 mcip4/rdmm5v3.f90 mcip4/readnml.f90 mcip4/readter.f90 mcip4/resistcalc.f90 mcip4/setup_mm5v3.f90 mcip4/statflds.f90 - Consolidated land use definitions and removed unnecessary routines. Removed files: mcip4/alloc_lu.f90 mcip4/dealloc_lu.f90 mcip4/init_lu.f90 Changed files: mcip4/luvars_mod.f90 mcip4/mcip.f90 mcip4/Makefile - Changed arguments for subroutine GETH_IDTS in module DATE_PACK so that the character strings are explicitly 19-characters long. Changed files: mcip4/date_pack_mod.f90 mcip4/rdmm5v3.f90 mcip4/rdwrfem.f90 mcip4/sat2mcip_mod.f90 mcip4/setup_wrfem.f90 - Changed TOL on comparing data sets for MM5. Changed files: mcip4/setup_mm5v3.f90 - Updated F77 constructs to F90, and replaced DATA statement declarations with PARAMETER statements. - Changed directory names from MCIP3 to MCIP4 and mcip3 to mcip4 to minimize confusion. - Updated disclaimer at top of codes. - Updated release stamp. Changed files: mcip4/mcipparm_mod.f90 -------------------------------------------------------------------------------- MCIP Version 3.5 beta (29 Oct 2009) and Version 3.6 (19 Mar 2010) - Added user option to define reference latitude for WRF domains with Lambert conformal projection. This option uses a new namelist variable, and this option is particularly useful when trying to match a WRF domain to an existing MM5 domain (to compare WRF vs. MM5 or to "recycle" emissions surrogates). Changed files: mcip3/mcipparm_mod.f90 mcip3/readnml.f90 mcip3/setgriddefs.f90 mcip3/run.mcip - Corrected calculation of I/O API header variables for WRF polar stereographic projection. Changed files: mcip3/ll2xy_ps.f90 mcip3/setgriddefs.f90 - Corrected error in computing wind direction when U-component wind is effectively zero. Changed file: mcip3/wind.f90 - Corrected error checking of surface-layer scheme for 2nd and subsequent WRF files. Changed files: mcip3/chkwrfhdr.f90 - Corrected error in mapping TKE to DUMARAY1 and vice versa in the layer collapsing prior to outputting cross-point 3-D fields. Changed files: mcip3/metcro.f90 - Added Modified IGBP MODIS NOAH and NLCD/MODIS as land-use classification options for WRF. Changed GRIDCRO2D to print land use category description (e.g., urban, deciduous forest) and classification source when fractional land use categories are available rather than "land use category N". New files: mcip3/alloc_lu.f90 mcip3/dealloc_lu.f90 mcip3/init_lu.f90 mcip3/luvars_mod.f90 Changed files: mcip3/alloc_x.f90 mcip3/dealloc_x.f90 mcip3/getluse.f90 mcip3/gridout.f90 mcip3/mcip.f90 mcip3/mcippparm_mod.f90 mcip3/metvars2ctm.f90 mcip3/resistcalc.f90 mcip3/rdwrfem.f90 mcip3/setup_wrfem.f90 mcip3/xvars_mod.f90 mcip3/Makefile - Updated code to support changes in WRFv3.1+. Changed files: mcip3/alloc_met.f90 mcip3/blddesc.f90 mcip3/getluse.f90 mcip3/metinfo_mod.f90 mcip3/rdwrfem.f90 mcip3/setgriddefs.f90 mcip3/setup_mm5v3.f90 mcip3/setup_wrfem.f90 mcip3/wrfemopts.f90 - Added urban model option to output metadata. Changed files: mcip3/blddesc.f90 mcip3/mm5v3opts.f90 mcip3/wrfemopts.f90 - Added condition that vegetation fraction must be greater than zero to be considered a land point in M3Dry. This works around intermittent inconsistencies in surface fields in some WRF data sets. Changed files: mcip3/m3dry.f90 - Added option to output 3D field of potential vorticity. New files: mcip3/pvs.f90 Changed files: mcip3/alloc_ctm.f90 mcip3/alloc_met.f90 mcip3/alloc_x.f90 mcip3/dealloc_ctm.f90 mcip3/dealloc_met.f90 mcip3/dealloc_x.f90 mcip3/dynflds.f90 mcip3/init_met.f90 mcip3/init_x.f90 mcip3/mcipparm_mod.f90 mcip3/mcoutcom_mod.f90 mcip3/metcro.f90 mcip3/metvars_mod.f90 mcip3/metvars2ctm.f90 mcip3/rdmm5v3.f90 mcip3/readnml.f90 mcip3/xvars_mod.f90 mcip3/Makefile mcip3/run.mcip - Added map-scale factors squared on cross points so the field does not need to be recalculated each MCIP time step. Changed files: mcip3/alloc_x.f90 mcip3/dealloc_x.f90 mcip3/gridout.f90 mcip3/init_x.f90 mcip3/metcro.f90 mcip3/metgrid2ctm.f90 mcip3/xvars_mod.f90 - Improved and generalized gridding routines to include additional flexibility for WRF domains. Corrected errors in defining dot-point latitudes and longitudes for WRF nests. Deleted file: mcip3/gridgeometry.f90 New files: mcip3/cori.f90 mcip3/ll2xy_merc.f90 mcip3/mapfac_lam.f90 mcip3/mapfac_merc.f90 mcip3/mapfac_ps.f90 mcip3/xy2ll_lam.f90 mcip3/xy2ll_merc.f90 mcip3/xy2ll_ps.f90 Changed files: mcip3/Makefile mcip3/ll2xy_lam_sec.f90 mcip3/ll2xy_ps.f90 mcip3/rdmm5v3.f90 mcip3/rdwrfem.f90 mcip3/setgriddefs.f90 mcip3/setup_mm5v3.f90 mcip3/setup_wrfem.f90 - Allow output variable PURB to be generated without fractional land use but with the urban model in WRF. Changed files: mcip3/alloc_ctm.f90 mcip3/alloc_x.f90 mcip3/gridout.f90 mcip3/init_x.f90 - Remove vertical velocity (predicted by the meteorological model; WWIND) from output by default; retain user option to output 3D field. Add user option to output u- and v-component winds (UWINDC and VWINDC) on C-staggered grid used by WRF and CMAQ. (Note: UWIND and VWIND, which are on the B-staggered grid used by MM5, are still available in METDOT3D by default.) Changed files: mcip3/alloc_ctm.f90 mcip3/dealloc_ctm.f90 mcip3/mcipparm_mod.f90 mcip3/mcoutcom_mod.f90 mcip3/mdoutcom_mod.f90 mcip3/metcro.f90 mcip3/metdot.f90 mcip3/readnml.f90 mcip3/setgriddefs.f90 mcip3/run.mcip - Allow output from WRF Preprocessing System (WPS) routine, GEOGRID, to provide fractional land use output if it is unavailable in WRF output (i.e., use file geogrid_d01 in addition to wrfout). New file: mcip3/chkwpshdr.f90 Changed files: mcip3/mcipparm_mod.f90 mcip3/rdwrfem.f90 mcip3/setgriddefs.f90 mcip3/setup_mm5v3.f90 mcip3/setup_wrfem.f90 mcip3/Makefile mcip3/run.mcip - Changed method for determining whether or not roughness length and fractional land use exist to avoid error condition with netCDF4. Changed files: mcip3/mcipparm_mod.f90 mcip3/rdwrfem.f90 mcip3/setup_wrfem.f90 - Corrected error in checking WRF observation nudging coefficient for temperature. Changed files: mcip3/chkwrfhdr.f90 - Changed representation of Mercator projection from MM5 and WRF in I/O API from "general Mercator" to "equatorial Mercator". Changed files: mcip3/setgriddefs.f90 mcip3/setup_mm5v3.f90 mcip3/setup_wrfem.f90 - Changed code to allow leaf area index to be filled when a land-surface model is not used in WRF. Changed file: mcip3/rdwrfem.f90 - Changed netCDF Fortran 90 calls to netCDF Fortran 77 calls in satellite routines to improve compatibility with netCDF4 and reduce compiler dependencies on the netCDF Fortran 90 interface. Changed file: mcip3/sat2mcip_mod.f90 - Changed some real number comparisons from "equivalences" to "less than tolerances". Changed files: mcip3/m3dry.f90 mcip3/metvars2ctm.f90 mcip3/pblsup.f90 mcip3/rdmm5v3.f90 mcip3/rdwrfem.f90 - Corrected typo in netCDF description of roughness length, ZRUF. Changed files: mcip3/mcoutcom_mod.f90 - Improved WRF file handling and streamlined netCDF reads from WRF files. Reduced number of times files were opened and closed in netCDF. Changed all netCDF routines to use Fortran interfaces. Changed files: mcip3/chkwpshdr.f90 mcip3/chkwrfhdr.f90 mcip3/rdwrfem.f90 mcip3/setup.f90 mcip3/setup_wrfem.f90 mcip3/wrf_netcdf_mod.f90 - Added metadata summary to MCIP log file. Changed files: mcip3/mcip.f90 - Added compiler options for gfortran. Changed files: mcip3/Makefile - Removed unused variables. Changed files: mcip3/chkwpshdr.f90 mcip3/chkwrfhdr.f90 mcip3/dynflds.f90 mcip3/getluse.f90 mcip3/getsdt.f90 mcip3/ll2xy_merc.f90 mcip3/mcip.f90 mcip3/pblsup.f90 mcip3/rdmm5v3.f90 mcip3/rdwrfem.f90 mcip3/readter.f90 mcip3/setgriddefs.f90 mcip3/setup_wrfem.f90 mcip3/sfclayer.f90 mcip3/wrf_netcdf_mod.f90 - Changed all Fortran routines from *.F to *.f90 to better conform to standard naming conventions. Changed files: mcip3/Makefile mcip3/*.f90 - Added compiler options for gfortran. Changed file: mcip3/Makefile - Changed directory names from MCIP2 to MCIP3 and mcip2 to mcip3 to minimize confusion. - Updated version stamp. Changed files: mcip3/mcipparm_mod.f90 -------------------------------------------------------------------------------- MCIP Version 3.4.1 (4 December 2008) - Changed setting for YCENT_GD (and, thus, XORIG_GD and YORIG_GD) for WRF for Lambert conformal projection so that the headers will not fail in the Spatial Allocator. Reference latitude is now set to the average of the true latitudes for the secant Lambert conformal case. (Still need to test settings for polar stereographic and Mercator for WRF.) Changed files: mcip2/ll2xy_lam.F mcip2/ll2xy_lam_sec.F mcip2/setgriddefs.F - Prevent users from having tangent Lambert conformal case until it can be tested with the Spatial Allocator. (Known problem is that the Spatial Allocator does not work properly when the reference latitude is equal to the first true latitude. Work-around is to set reference latitude to average of true latitudes for Lambert conformal. But average of true latitudes for tangent Lambert conformal case is the first true latitude, which will result in the same problem as solution used in MCIPv3.4.) Changed files: mcip2/ll2xy_lam.F - Updated version stamp. Changed files: mcip2/mcipparm_mod.F -------------------------------------------------------------------------------- MCIP Version 3.4 (3 November 2008) - Corrected the scaling parameter used to estimate the friction velocity over water in surface waters (variable "D3"). Added an exception for elemental mercury deposition to wet soil surfaces as most measurements show evasion from recently wet soil surfaces. Also added trap for undefined dry deposition velocities (e.g., NaN). Changed files: mcip2/m3dry.F - Added dry deposition velocities for five air toxic species. Changed files: mcip2/hlconst.F mcip2/init_depv.F mcip2/m3dry.F mcip2/mcipparm_mod.F - Added sample print statements to log file for percentage of urban area and fractional land use when those fields are available. Changed files: mcip2/gridout.F - Changed code to use values for gravitational constant and dry gas constant that are consistent with MM5 system rather than CMAQ system for computing coordinate-based fields. Removed explicit recalculation of reference P-star and use field directly from MM5 output. Changed files: mcip2/metvars2ctm.F mcip2/refstate.F - Added preliminary support for urban canopy model in WRF. Changed file: mcip2/alloc_met.F mcip2/dealloc_met.F mcip2/getluse.F mcip2/init_met.F mcip2/metinfo_mod.F mcip2/metvars_mod.F mcip2/rdwrfem.F mcip2/setup_mm5v3.F mcip2/setup_wrfem.F - Corrected reading snow cover field for MM5 simulations with snow effects turned off (i.e., IFSNOW=0). Changed files: mcip2/rdmm5v3.F - Changed settings for WRF for XCENT_GD, YCENT_GD, XORIG_GD, and YORIG_GD in GRIDDESC and M3IO headers for Lambert conformal projection so that headers will be compatible with M3IO utility routines LL2LAM and LAM2LL. Still need to test with polar stereographic and Mercator projections. Changed files: mcip2/setgriddefs.F New files: mcip2/ll2xy_lam.F mcip2/ll2xy_lam_sec.F mcip2/ll2xy_lam_tan.F mcip2/ll2xy_ps.F - Changed read of vegetation fraction for WRF to preferentially use VEGF_PX rather than VEGFRA for Pleim-Xiu land-surface model. Changed files: mcip2/rdwrfem.F - Added processing option to include GOES-East satellite analyses to replace cloud top, cloud bottom, and cloud cover and to add cloud transmissivity for use in photolysis in CMAQ. Software components contributed by University of Alabama at Huntsville. Requires additional data sets and preprocessing package available from University of Alabama at Huntsville. Changed files: mcip2/Makefile mcip2/mcip.F mcip2/metcro.F mcip2/readnml.F mcip2/run.mcip mcip2/setgriddefs.F New file: mcip2/sat2mcip_mod.F - Added 2-m mixing ratio (Q2) to the METCRO2D output. Use Q2 directly from MM5 or WRF, if it is available; otherwise use layer-1 QV. Modified PBLSUP to use Q2 rather than layer-1 QV to diagnose near-surface variables. Added turbulent kinetic energy (TKE or TKEF) to the METCRO3D output, if it is available from MM5 or WRF. Changed files: mcip2/alloc_ctm.F mcip2/alloc_met.F mcip2/alloc_x.F mcip2/dealloc_ctm.F mcip2/dealloc_met.F mcip2/dealloc_x.F mcip2/init_met.F mcip2/init_x.F mcip2/mcipparm_mod.F mcip2/mcoutcom_mod.F mcip2/metcro.F mcip2/metvars_mod.F mcip2/metvars2ctm.F mcip2/pblsup.F mcip2/rdmm5v3.F mcip2/rdwrfem.F mcip2/setgriddefs.F mcip2/setup_mm5v3.F mcip2/setup_wrfem.F mcip2/xvars_mod.F - Allow skin temperature from WRF-based input to be filled by top-layer soil temperature, if skin temperature is unavailable in WRF output. Changed files: mcip2/rdwrfem.F - Expanded tables of roughness length values to include 33 USGS land use categories. Added error-checking when ZNT is set from the lookup table for WRF. Corrected season assignment for WRF lookup table for the Southern Hemisphere. Changed files: mcip2/metvars2ctm.F mcip2/rdwrfem.F mcip2/resistcalc.F - Added error checking to ensure that WRF files used in an MCIP run are from the same simulation so that incremental precipitation totals are processed correctly. Changed files: mcip2/rdwrfem.F New file: mcip2/chkwrfhdr.F - Updated list of WRF model options used in metadata to reflect changes in WRFv3. Changed files: mcip2/wrfemopts.F - Changed setting for LAI to a fixed value (4.0) if NOAH LSM was used with WRF and if LAI is not found in the meteorology input files. Check LAI, RA, and RSTOM to ensure that there are non-zero values in the fields, if they exist. If the values of RA and/or RSTOM are all 0.0, reset IFRESIST flag so that they will be calculated later. If LAI is in output but is 0.0, set LAI to a fixed value (4.0) for NOAH LSM. Changed files: mcip2/metvars2ctm.F mcip2/rdwrfem.F - Changed criteria for setting number of land use categories from WRF when netCDF dimension "land_cat_stag" does not exist (i.e., when fractional land use is not part of the output). Changed files: mcip2/getluse.F mcip2/setup_wrfem.F mcip2/rdwrfem.F - Added nudging coefficients to metadata. Changed files: mcip2/blddesc.F mcip2/metinfo_mod.F mcip2/setup_mm5v3.F mcip2/setup_wrfem.F - Added earth radius assumed in MCIP to user input and to metadata. Changed files: mcip2/blddesc.F mcip2/const_mod.F mcip2/mcipparm_mod.F mcip2/readnml.F mcip2/run.mcip mcip2/gridgeometry.F - Updated Henry's Law constants for O3, NO3, hexane, octane, nonane, and methanol, and updated isoprene reference following changes made to analogous routine in CMAQ. Changed files: mcip2/hlconst.F - Replaced NTHIKD with NTHIK and replaced NBNDYD with NBNDY. Removed option for NTHIK=0. Changed files: mcip2/alloc_ctm.F mcip2/gridout.F mcip2/mcipparm_mod.F mcip2/metcro.F mcip2/setgriddefs.F - Increased maximum number of meteorology input files to 300 to accommodate 5-minute input for one day (i.e., 289 files). Changed files: mcip2/file_mod.F - Changed code to explicitly read free-form F90-compliant "include" files from I/O API rather than duplicate their contents. Changed files: mcip2/fdesc3_mod.F mcip2/iodecl3_mod.F mcip2/parms3_mod.F mcip2/Makefile - Updated version stamp. Changed files: mcip2/mcipparm_mod.F -------------------------------------------------------------------------------- MCIP Version 3.3 (1 Aug 2007) - Added a non-zero mesophyll resistance for NO, NO2, and CO in M3Dry following Pleim et al. (1984). Restored wet cuticle resistance for O3 based on field study measurements. Added wet ground resistance. Changed ground resistance to include partitioning of wet and dry ground. Updated pH of rain water for eastern United States and outside of North America. Changed reactivity for PAN. Corrected error in the calculation of surface resistance over water where (Sc/Pr)**(2/3) had inadvertently been omitted from the numerator. Surface resistance over water is now a function of species. Surface resistance over water now uses wet bulb temperature rather than ground (water) temperature in the calculation of the effective Henry's law constant, and algorithm has been updated. Changed (Sc/Pr)**(2/3) over water to a species-dependent, meteorologically dependent variable. Effective Henry's law constant over land now uses 2-m temperature rather than layer 1 temperature. Clarified usage of variables that store saturation vapor pressure and humidity. Changed files: mcip2/m3dry.F - Removed dry deposition velocity calculations for obsolete chlorine species ICL1 and ICL2. Changed files: mcip2/init_depv.F mcip2/m3dry.F - Corrected error in processing incremental precipitation (output fields RN and RC in METCRO2D) for first MCIP output time period when the first WRF output time is not used by MCIP. Changed files: mcip2/rdwrfem.F - Corrected error in calculation of contravariant vertical velocity (output field WHAT_JD in METCRO3D) for non-hydrostatic MM5 simulations where the total surface pressure from the first time period processed by MCIP was used rather than the reference surface pressure. [Has no impact on CMAQ simulations that use the (default) Yamartino scheme because contravariant vertical velocity is recalculated there.] Also eliminated calculation of reference surface pressure in METGRID2CTM because it was never referenced before being overwritten with total pressure and it is now captured in REFSTATE. Changed files: mcip2/alloc_x.F mcip2/dealloc_x.F mcip2/init_x.F mcip2/metgrid2ctm.F mcip2/refstate.F mcip2/vertnhy.F mcip2/xvars_mod.F - Added output fields to support calculating dry deposition velocities inline in the CCTM. Added option (LDDEP=0) to bypass calculating dry deposition velocities in MCIP. Added fractional land use to output. Changed files: mcip2/alloc_ctm.F mcip2/dealloc_ctm.F mcip2/gridout.F mcip2/groutcom_mod.F mcip2/mcip.F mcip2/mcoutcom_mod.F mcip2/metcro.F - Removed obsolescent routines for processing RADM dry deposition velocities, MM5 version 2-formatted data, and recalculating PBL and radiation fields. Changed code so that M3Dry with chlorine and mercury is the only option to compute dry deposition velocities in MCIP. Removed user options associated with these (former) MCIP functions (i.e., LPBL, LCLD, LRAD, LHYDOUT). Changed USTAR and RADYN to be 2D arrays without a dimension for fractional land use that was required for RADMdry. Removed RADMdry variable ISESN. Changed files: mcip2/Makefile mcip2/run.mcip mcip2/alloc_depv.F mcip2/alloc_x.F mcip2/dealloc_depv.F mcip2/depvvars_mod.F mcip2/dynflds.F mcip2/getluse.F mcip2/getmet.F mcip2/getversion.F mcip2/init_depv.F mcip2/init_x.F mcip2/m3dry.F mcip2/mcipparm_mod.F mcip2/metcro.F mcip2/metgrid2ctm.F mcip2/metinfo_mod.F mcip2/metvars2ctm.F mcip2/pblsup.F mcip2/readnml.F mcip2/resistcalc.F mcip2/setgriddefs.F mcip2/setup.F mcip2/setup_mm5v3.F mcip2/setup_wrfem.F mcip2/statflds.F mcip2/xvars_mod.F Deleted files: mcip2/const_mete_mod.F mcip2/crs2dot.F mcip2/cvmgp.F mcip2/cvmgz.F mcip2/lradmdat_mod.F mcip2/mdate2hdate.F mcip2/pblpkg.F mcip2/pblpwr.F mcip2/radmdry.F mcip2/rdmm5.F mcip2/rdmm5v2.F mcip2/setup_mm5v2.F mcip2/sfcflux.F mcip2/slflux.F mcip2/solar.F mcip2/transm.F mcip2/verthyd.F - Modified calculations to eliminate dependencies on functions CVMGP and CVMGZ. Changed files: mcip2/getpblht.F mcip2/pblsup.F - Eliminated dependencies on module CONST_METE. Changed files: mcip2/bcldprc_ak.F mcip2/wind.F - Removed RBNDYI and JACOBS from output. Changed files: mcip2/alloc_ctm.F mcip2/alloc_x.F mcip2/dealloc_ctm.F mcip2/dealloc_x.F mcip2/init_x.F mcip2/m3dry.F mcip2/mcoutcom_mod.F mcip2/metcro.F mcip2/xvars_mod.F - Removed calculations of low, middle, and high cloud amounts. Changed files: mcip2/alloc_x.F mcip2/bcldprc_ak.F mcip2/dealloc_x.F mcip2/init_x.F mcip2/xvars_mod.F - Removed calculations of 1.5-m and 10-m temperatures. Changed 2-m temperature to be output all of the time and to be calculated if it is unavailable in the input meteorology file(s). Changed 2-m temperature from "XT2" to "XTEMP2". Changed files: mcip2/alloc_ctm.F mcip2/alloc_x.F mcip2/dealloc_ctm.F mcip2/dealloc_x.F mcip2/init_x.F mcip2/m3dry.F mcip2/mcoutcom_mod.F mcip2/metcro.F mcip2/pblsup.F mcip2/xvars_mod.F - Simplfied calculation of layer-1 specific humidity to optimize code. (Exact same answer.) Changed file: mcip2/pblsup.F - Updated MCIP to account for new method of storing "real" scalars in WRF I/O API with WRFv2.2. Changed files: mcip2/setup_wrfem.F mcip2/wrf_netcdf_mod.F - Added reads for fractional land use, leaf area index, aerodynamic and stomatal resistances, vegetation fraction, and canopy wetness, if they are available, in WRF. Allowed for roughness length to be filled from a lookup table if it is not available in WRF output file. Changed files: mcip2/metinfo_mod.F mcip2/rdwrfem.F mcip2/setup_wrfem.F mcip2/wrf_netcdf_mod.F - Removed reads and internal variables for emissivity and net radiation. Changed P-X variables for soil moisture, soil temperature, and soil type to general optional variables associated with IFSOIL. Changed files: mcip2/alloc_ctm.F mcip2/alloc_met.F mcip2/alloc_x.F mcip2/dealloc_ctm.F mcip2/dealloc_met.F mcip2/dealloc_x.F mcip2/init_met.F mcip2/init_x.F mcip2/mcoutcom_mod.F mcip2/metcro.F mcip2/metvars_mod.F mcip2/metvars2ctm.F mcip2/rdmm5v3.F mcip2/rdwrfem.F mcip2/xvars_mod.F - Refined M3IO description of dominant land use categories to include land use source. Changed files: mcip2/getluse.F mcip2/gridout.F mcip2/groutcom_mod.F mcip2/resistcalc.F mcip2/setup_mm5v3.F mcip2/setup_wrfem.F mcip2/xvars_mod.F - Moved F2 and RSTMIN from metvars2ctm.F to resistcalc.F, and made them local variables. Changed files: mcip2/alloc_x.F mcip2/dealloc_x.F mcip2/init_x.F mcip2/metvars2ctm.F mcip2/resistcalc.F mcip2/xvars_mod.F - Eliminated logical variable "PX" to make code more general. Added several flags to indicate whether or not fields are available in input meteorology. Made changes to accommodate the NOAH LSM. Changed files: mcip2/alloc_ctm.F mcip2/alloc_met.F mcip2/dealloc_ctm.F mcip2/dealloc_met.F mcip2/init_met.F mcip2/m3dry.F mcip2/mcipparm_mod.F mcip2/mcoutcom_mod.F mcip2/metcro.F mcip2/metinfo_mod.F mcip2/pblsup.F mcip2/rdmm5v3.F mcip2/rdwrfem.F mcip2/setup_mm5v3.F mcip2/setup_wrfem.F - Changed setting of Schmidt number for water to be consistent in code. Changed files: mcip2/resistcalc.F - Corrected setting for number of microphysical species available when warm rain scheme is run in MM5. Changed files: mcip2/setup_mm5v3.F - Corrected sample prints in the log file for a one-cell domain. Changed file: mcip2/setgriddefs.F - Added "IMPLICIT NONE". Changed files: mcip2/alloc_x.F mcip2/const_mod.F mcip2/const_pbl_mod.F mcip2/coord_mod.F mcip2/date_time_mod.F mcip2/depvvars_mod.F mcip2/fdesc3_mod.F mcip2/file_mod.F mcip2/getpblht.F mcip2/groutcom_mod.F mcip2/iodecl3_mod.F mcip2/mcipparm_mod.F mcip2/mcoutcom_mod.F mcip2/mdoutcom_mod.F mcip2/metinfo_mod.F mcip2/metvars_mod.F mcip2/parms3_mod.F mcip2/setgriddefs.F mcip2/vertarys.F mcip2/vgrd_mod.F mcip2/xvars_mod.F - Reduced memory use in cloud postprocessing routine. Changed files: mcip2/bcldprc_ak.F - Added metadata to output files to describe MCIP version, input meteorology source, and options used in the meteorology model. Changed files: mcip2/Makefile mcip2/comheader.F mcip2/mcipparm_mod.F mcip2/metinfo_mod.F mcip2/setup_mm5v3.F mcip2/setup_wrfem.F mcip2/statflds.F mcip2/vstamp.F New files: mcip2/blddesc.F mcip2/mm5v3opts.F mcip2/wrfemopts.F - Updated version stamp. Changed files: mcip2/mcipparm_mod.F mcip2/vstamp.F -------------------------------------------------------------------------------- MCIP Version 3.2 (20 September 2006) - Modified I/O API header variable settings for WRF-ARW (WRF-EM) to reflect additional capability to have center of coarse domain located elsewhere than the center of the projection. (Note that applications of CMAQ with WRF-ARW input will no longer adhere to the "grid family" paradigm for the Models-3 I/O API, and a separate GRIDDESC file will be required for each grid.) Changed files: mcip2/metinfo_mod.F mcip2/setgriddefs.F mcip2/setup_mm5v2.F mcip2/setup_mm5v3.F mcip2/setup_wrfem.F Deleted file: mcip2/xxyy.F - For non-PX runs only: Corrected error in bookkeeping "last wet time" in M3Dry dry deposition when Pleim-Xiu land-surface model is not run. Also now use ground temperature rather than 2-m air temperature to calculate ground-level relative humidity. Allow canopy to dry out gradually between 2 and 3 hours after "last wet time". Changed files: mcip2/dynflds.F mcip2/m3dry.F - Corrected checking and setting of I/O API header variables for Mercator and polar stereographic projections. Changed files: mcip2/rdmm5v2.F mcip2/rdmm5v3.F mcip2/setgriddefs.F mcip2/setup_mm5v2.F mcip2/setup_mm5v3.F mcip2/setup_wrfem.F - Added restriction that Eta/Ferrier microphysics scheme in WRF-ARW (WRF-EM) is currently incompatible with CMAQ. Changed file: mcip2/setup_wrfem.F - Added capability to fill land-use lookup table fields in MM5v3-formatted data that have been converted from MM5v2 format. Changed file: mcip2/rdmm5v3.F - Corrected filling of vertical velocity array for MM5v2-formatted data. Changed file: mcip2/rdmm5v2.F - Added land-water mask to output in GRIDCRO2D. Changed files: mcip2/alloc_ctm.F mcip2/alloc_x.F mcip2/dealloc_ctm.F mcip2/dealloc_x.F mcip2/getluse.F mcip2/gridout.F mcip2/groutcom_mod.F mcip2/init_x.F mcip2/xvars_mod.F - Corrected logic for processing MM5's TERRAIN file to account for expanded grid in domain 1. Changed file: mcip2/readter.F - Updated condition for GRIDCRO3D output to reflect new WRF-ARW (WRF-EM) vertical coordinate descriptor for I/O API. Changed files: mcip2/alloc_ctm.F mcip2/gridout.F - Optimized calculations of species-specific constants. Changed files: mcip2/alloc_depv.F mcip2/dealloc_depv.F mcip2/depvvars_mod.F mcip2/m3dry.F - Use land-water mask rather than dominant land use array to determine water points. Changed files: mcip2/m3dry.F mcip2/resistcalc.F - General code clean-up (remove unused variables, moved variables from global modules to local within subroutines, type mismatches, correcting or clarifying comments, etc.). Changed files: mcip2/alloc_x.F mcip2/collapx.F mcip2/const_mete_mod.F mcip2/const_mod.F mcip2/dealloc_x.F mcip2/getluse.F mcip2/getmet.F mcip2/gridout.F mcip2/init_met.F mcip2/init_x.F mcip2/layht.F mcip2/m3dry.F mcip2/metcro.F mcip2/metdot.F mcip2/metgrid2ctm.F mcip2/metvars2ctm.F mcip2/pblpkg.F mcip2/pblpwr.F mcip2/resistcalc.F mcip2/setgriddefs.F mcip2/setup_mm5v3.F mcip2/setup_wrfem.F mcip2/sfcflux.F mcip2/sfclayer.F mcip2/slflux.F mcip2/solar.F mcip2/vertnhy.F mcip2/vertnhy_wrf.F mcip2/wrf_netcdf_mod.F mcip2/xvars_mod.F - Added ASCII file that includes calling tree for MCIP. New file: doc/CODE_STRUCTURE - Updated frequently asked questions list. Changed file: doc/FAQ - Updated version stamp. Changed file: mcip2/vstamp.F -------------------------------------------------------------------------------- MCIP Version 3.1 (27 February 2006) - Updated calculation of dry deposition velocities for elemental mercury (Hg0) in M3Dry. Changed files: mcip2/alloc_depv.F mcip2/dealloc_depv.F mcip2/depvvars_mod.F mcip2/m3dry.F - Changed tolerances on calculation of grid origin for WRF so that the grid center is not restricted to a cell corner. Changed file: mcip2/setgriddefs.F - Updated code for vertical coordinate definitions for WRF. Changed files: mcip2/parms3_mod.F mcip2/setgriddefs.F - Corrected setting of I/O API grid definition for Mercator projection. Changed file: mcip2/setgriddefs.F - Updated script to correctly set namelist end string for Mac running XLF compiler. Changed file: mcip2/run.mcip - Removed unused "USE" statement. Changed file: mcip2/dynflds.F - Updated frequently asked questions list. Changed file: doc/FAQ - Updated version stamp. Changed file: mcip2/vstamp.F -------------------------------------------------------------------------------- MCIP Version 3.0 (19 August 2005) - Added processing of meteorological fields from WRF-EM (i.e., WRF-ARW or NCAR core). Changed files: mcip2/alloc_met.F mcip2/alloc_x.F mcip2/dealloc_met.F mcip2/dealloc_x.F mcip2/getmet.F mcip2/init_met.F mcip2/init_x.F mcip2/m3dry.F mcip2/mcip.F mcip2/mcoutcom_mod.F mcip2/metgrid2ctm.F mcip2/metinfo_mod.F mcip2/metvars_mod.F mcip2/metvars2ctm.F mcip2/pblpkg.F mcip2/pblsup.F mcip2/radmdry.F mcip2/setgriddefs.F mcip2/statflds.F New files: mcip2/rdwrfem.F mcip2/setup.F mcip2/setup_wrfem.F mcip2/vertnhy_wrf.F mcip2/wrf_netcdf_mod.F mcip2/xxyy.F Deleted files: mcip2/setupmm5.F - Renamed subroutines to make code more general. New files: mcip2/setup_mm5v2.F mcip2/setup_mm5v3.F Deleted files: mcip2/setupv2.F mcip2/setupv3.F - Added options to M3Dry for processing dry deposition species for chlorine and mercury. Moved setup of dry deposition arrays to separate routines. Removed pointers to dry deposition species names. Changed files: mcip2/alloc_x.F mcip2/dealloc_x.F mcip2/dynflds.F mcip2/hlconst.F mcip2/init_x.F mcip2/m3dry.F mcip2/mcip.F mcip2/mcipparm_mod.F mcip2/mcoutcom_mod.F mcip2/metcro.F mcip2/radmdry.F mcip2/readnml.F mcip2/setgriddefs.F mcip2/xvars_mod.F mcip2/run.mcip New files: mcip2/alloc_depv.F mcip2/dealloc_depv.F mcip2/depvvars_mod.F mcip2/init_depv.F - Added capability to process and use fractional land use fields from MM5v3, if they are available in separate input file. Allow fractional land use to be used in RADMDry. Added optional output field, percent urban area (PURB), to GRIDCRO2D. Changed files: mcip2/alloc_ctm.F mcip2/alloc_met.F mcip2/alloc_x.F mcip2/dealloc_ctm.F mcip2/dealloc_met.F mcip2/dealloc_x.F mcip2/file_mod.F mcip2/getluse.F mcip2/gridout.F mcip2/groutcom_mod.F mcip2/init_met.F mcip2/init_x.F mcip2/mcipparm_mod.F mcip2/rdmm5v3.F mcip2/readnml.F mcip2/setup_mm5v3.F mcip2/xvars_mod.F mcip2/run.mcip New files: mcip2/readter.F - Corrected settings for Southern Hemisphere seasons and other calculations for Southern Hemisphere domains. Changed files: mcip2/gridgeometry.F mcip2/mcipparm_mod.F mcip2/pblpkg.F mcip2/pblsup.F mcip2/radmdry.F mcip2/setup_mm5v2.F mcip2/setup_mm5v3.F mcip2/sfcflux.F - Added option to use all layers from input meteorology as MCIP output without specifying list a priori. Changed files: mcip2/mcipparm_mod.F mcip2/readnml.F mcip2/setup_mm5v2.F mcip2/setup_mm5v3.F mcip2/run.mcip - Added check to ensure settings in I/O API library are consistent with settings in modules in MCIP. Requires I/O API v3.0. Changed files: mcip2/init_io.F - Changed calculations of 3D transport winds (UHAT_JD, VHAT_JD, and WHAT_JD) and PBL variables to use winds and map-scale factors with fewer interpolation steps to better reflect fields from input meteorology model. Changed files: mcip2/alloc_x.F mcip2/dealloc_x.F mcip2/init_x.F mcip2/metdot.F mcip2/metvars2ctm.F mcip2/pblpkg.F mcip2/pblsup.F mcip2/verthyd.F mcip2/vertnhy.F mcip2/xvars_mod.F - Updated calculation of layer heights for non-hydrostatic MM5 to use formulae defined by NCAR for MM5 base state rather than subroutine LAYHT. Changed file: mcip2/refstate.F - Removed GRIDCRO3D for hydrostatic runs. Changed files: mcip2/alloc_ctm.F mcip2/dealloc_ctm.F mcip2/gridout.F - Added optimization to extracting fields from input meteorology onto internal MCIP "X" arrays. Changed files: mcip2/getluse.F mcip2/metgrid2ctm.F mcip2/metvars2ctm.F - Several minor adjustments to RADM dry deposition and variable filling, including a provision to prevent negative dry deposition velocities from occurring in output. Changed files: mcip2/radmdry.F - Changed index order on arrays read from meteorology files to be Cartesian (X,Y,Z) with origin at surface and southwest corner rather than use MM5 convention (Y,X,Z) to make code more general. Changed namelist variables I0 and J0 to Y0 and X0, respectively. Changed files: mcip2/alloc_met.F mcip2/getluse.F mcip2/gridgeometry.F mcip2/metgrid2ctm.F mcip2/metinfo_mod.F mcip2/metvars2ctm.F mcip2/rdmm5v2.F mcip2/rdmm5v3.F mcip2/readnml.F mcip2/setgriddefs.F mcip2/setup_mm5v2.F mcip2/setup_mm5v3.F mcip2/run.mcip.F - Changed maximum number of meteorology input files from 5 to 100. Changed files: mcip2/file_mod.F mcip2/readnmlF mcip2/run.mcip - Updated double-precision declarations to F90 standard. Changed files: mcip2/const_mod.F mcip2/coord_mod.F - Consolidated extracting state variables from input meteorology onto internal MCIP "X" grid. Changed file: mcip2/metvars2ctm.F Deleted file: mcip2/met3dsup.F - Removed option to use interpolation with rational functions for layer collapsing. Changed files: mcip2/collapx.F mcip2/gridout.F mcip2/metcro.F mcip2/metdot.F Deleted file: mcip2/ratint.F - Made minor correction to calculation of theta-v-star. Changed files: mcip2/pblsup.F - Added option to use 10-m wind components if they are available from input meteorology file to fill output fields for 10-m wind speed and 10-m wind direction. Changed files: mcip2/alloc_met.F mcip2/alloc_x.F mcip2/dealloc_met.F mcip2/dealloc_x.F mcip2/init_met.F mcip2/init_x.F mcip2/metinfo_mod.F mcip2/metvar2ctm.F mcip2/pblsup.F mcip2/rdmm5v3.F mcip2/setup_mm5v2.F mcip2/setup_mm5v3.F - Changed variable names to avoid confusion with F90 intrinsic functions. Changed files: mcip2/date_pack_mod.F mcip2/gridout.F mcip2/metcro.F mcip2/metdot.F mcip2/metvars2ctm.F mcip2/rdmm5v2.F mcip2/rdmm5v3.F mcip2/setup_mm5v2.F mcip2/setup_mm5v3.F mcip2/statflds.F - Removed option to interpolate input meteorology fields to finer horizontal grid spacing (in favor of adding code efficiencies). Modified output file names in environment variables by removing "_G1" to reflect this change. Changed files: mcip2/file_mod.F mcip2/getluse.F mcip2/gridout.F mcip2/mcipparm_mod.F mcip2/metcro.F mcip2/metdot.F mcip2/metgrid2ctm.F mcip2/metvars2ctm.F mcip2/readnml.F mcip2/setgriddefs.F mcip2/run.mcip Deleted files: mcip2/bilin2d.F mcip2/bilin3d.F - Removed several unused variables. Changed files: mcip2/alloc_met.F mcip2/alloc_x.F mcip2/dealloc_met.F mcip2/dealloc_x.F mcip2/file_mod.F mcip2/init_met.F mcip2/init_x.F mcip2/mcipparm_mod.F mcip2/metinfo_mod.F mcip2/metvars2ctm.F mcip2/metvars_mod.F mcip2/rdmm5v2.F mcip2/rdmm5v3.F mcip2/readnml.F mcip2/refstate.F mcip2/resistcalc.F mcip2/setgriddefs.F mcip2/sfcflux.F mcip2/slflux.F mcip2/xvars_mod.F - Updated compiler options for IBM and PGF90. Added compiler options for Intel. Removed compiler options for SGI and Sun. Changed file: mcip2/Makefile - Created list of frequently asked questions for user self-help. New file: doc/FAQ - Updated version stamp. Changed files: mcip2/vstamp.F -------------------------------------------------------------------------------- MCIP Version 2.3 (18 August 2004) - Added processing of hydrometeor field, graupel. Changed files: mcip2/alloc_ctm.F mcip2/alloc_met.F mcip2/alloc_x.F mcip2/dealloc_ctm.F mcip2/dealloc_met.F mcip2/dealloc_x.F mcip2/init_met.F mcip2/init_x.F mcip2/mcoutcom_mod.F mcip2/metcro.F mcip2/metvars_mod.F mcip2/metvars2ctm.F mcip2/null_x.F mcip2/rdmm5v2.F mcip2/rdmm5v3.F mcip2/xvars_mod.F - Added work-around to account for NCAR bug in processing vegetation fraction for the Pleim-Xiu land-surface model. The bug was introduced in MM5 in MM5v3.5 and was corrected in MM5v3.6.2. Changed files: mcip2/alloc_met.F mcip2/dealloc_met.F mcip2/init_met.F mcip2/m3dry.F mcip2/metvars_mod.F mcip2/rdmm5v3.F - Corrected minor formatting bugs in GRIDDESC output file. Changed files: mcip2/wrgdesc.F - Added provision to set minimum PBL heights when Mellor-Yamada (Eta) PBL scheme is used in MM5. Changed files: mcip2/pblsup.F - Restored GRIDBDY2D file to output. Changed files: mcip2/alloc_ctm.F mcip2/dealloc_ctm.F mcip2/file_mod.F mcip2/gridout.F mcip2/groutcom_mod.F mcip2/run.mcip - Added initialization of I/O API. Changed files: mcip2/mcip.F mcip2/Makefile New files: mcip2/init_io.F - Restored full Jacobian (JACOBF and JACOBS) to output. Changed files: mcip2/alloc_ctm.F mcip2/dealloc_ctm.F mcip2/mcoutcom_mod.F mcip2/metcro.F - Added flag to create static output (GRID) files. Changed files: mcip2/file_mod.F mcip2/mcip.F mcip2/readnml.F mcip2/run.mcip - Modified error-checking for restart files to ensure that there is no physical discontinuity. Changed files: mcip2/rdmm5v3.F - Added Henry's Law constants for new species to be consistent with latest version in CMAQ. Changed files: mcip2/hlconst.F - Refined error-checking that prevents users from defining thinner top and/or bottom layers than available in MM5 output. Changed files: mcip2/statflds.F - Removed bookkeeping XFLAGS and associated variables XNAMES and XINDEX including pointers to XINDEX. Changed files: mcip2/alloc_x.F mcip2/bcldprc_ak.F mcip2/dealloc_x.F mcip2/getluse.F mcip2/init_x.F mcip2/m3dry.F mcip2/mcipparm_mod.F mcip2/met3dsup.F mcip2/metgrid2ctm.F mcip2/metvars2ctm.F mcip2/pblpkg.F mcip2/pblsup.F mcip2/radmdry.F mcip2/refstate.F mcip2/resistcalc.F mcip2/solar.F mcip2/xvars_mod.F Deleted files: mcip2/null_x.F - Eliminated type mismatches flagged by compiler in debug mode by adding interface block for obscure, unused routine. Changed files: mcip2/collapx.F - Eliminated support for NT version of MCIP. Deleted files: mcip2/Makefile.nt mcip2/run_mcip.bat - Updated modules that support I/O API. Changed files: mcip2/iodecl3_mod.F mcip2/parms3_mod.F - Changed local array allocation to occur only on initial call to subroutine to avoid memory fragmentation. Changed files: mcip2/bcldprc_ak.F mcip2/getpblht.F mcip2/gridout.F mcip2/met3dsup.F mcip2/metcro.F mcip2/metdot.F mcip2/pblpkg.F mcip2/pblsup.F mcip2/radmdry.F mcip2/rdmm5v2.F mcip2/rdmm5v3.F mcip2/verthyd.F - Corrected header settings for polar stereographic and Mercator projections. Changed files: mcip2/rdmm5v2.F mcip2/rdmm5v3.F mcip2/setgriddefs.F mcip2/setupv2.F mcip2/setupv3.F - Modified code so that arrays are made available in output only if user options in MM5 generate those data, e.g., hydrometeor species and variables from the Pleim-Xiu land-surface model. Changed files: mcip2/alloc_ctm.F mcip2/dealloc_ctm.F mcip2/mcipparm_mod.F mcip2/mcoutcom_mod.F mcip2/metcro.F mcip2/setgriddefs.F mcip2/setupv2.F mcip2/setupv3.F - Limited calculation of wind speed for initial time (in MM5 file) to the cross-point domain. Changed files: mcip2/pblsup.F - Added provision to define PBL height if bulk Richardson number suggests it should be the lowest model layer. Changed files: mcip2/getpblht.F - Modified code to handle MM5's IFSNOW=2 option which creates WEASD instead of SNOWCOVR. Changed files: mcip2/metinfo_mod.F mcip2/rdmm5v3.F mcip2/setupv2.F mcip2/setupv3.F - Clean up unused variables. Changed files: mcip2/metinfo_mod.F mcip2/pblsup.F mcip2/setupv2.F mcip2/setupv3.F mcip2/sfclayer.F - Added 10-m wind speed and direction to output. Changed XWIND10 to XWSPD10. Changed files: mcip2/Makefile mcip2/alloc_ctm.F mcip2/alloc_x.F mcip2/dealloc_ctm.F mcip2/dealloc_x.F mcip2/init_x.F mcip2/m3dry.F mcip2/mcoutcom_mod.F mcip2/metcro.F mcip2/metinfo_mod.F mcip2/pblpkg.F mcip2/pblsup.F mcip2/setupv2.F mcip2/setupv3.F mcip2/xvars_mod.F New files: mcip2/wind.F - Added explicit calculation of dot-point latitude, longitude, and map-scale factors based on grid geometry. Changed files: mcip2/metinfo_mod.F mcip2/rdmm5v2.F mcip2/rdmm5v3.F mcip2/setupv2.F mcip2/setupv3.F New files: mcip2/gridgeometry.F - Added 2-m temperature (TEMP2) to be passed through from MM5, if it is available there. Changed files: mcip2/alloc_ctm.F mcip2/alloc_met.F mcip2/alloc_x.F mcip2/dealloc_ctm.F mcip2/dealloc_met.F mcip2/dealloc_x.F mcip2/init_met.F mcip2/init_x.F mcip2/mcipparm_mod.F mcip2/mcoutcom_mod.F mcip2/metcro.F mcip2/metinfo_mod.F mcip2/metvars_mod.F mcip2/metvars2ctm.F mcip2/rdmm5v3.F mcip2/setgriddefs.F mcip2/setupv2.F mcip2/setupv3.F mcip2/xvars_mod.F - Added leaf-area index from the Pleim-Xiu LSM to output. Changed files: mcip2/alloc_ctm.F mcip2/dealloc_ctm.F mcip2/mcoutcom_mod.F mcip2/metcro.F - Removed obsolete land-use input options. Changed files: mcip2/alloc_x.F mcip2/dealloc_x.F mcip2/getluse.F mcip2/lradmdat_mod.F mcip2/mcipparm_mod.F mcip2/readnml.F mcip2/setgriddefs.F mcip2/xvars_mod.F Deleted files: mcip2/lutrans1.F mcip2/lutrans2.F mcip2/lutrans3.F mcip2/lutrans4.F mcip2/lutrans5.F mcip2/lutrans6.F - Updated version stamp. Changed files: mcip2/vstamp.F -------------------------------------------------------------------------------- MCIP Version 2.2 (11 June 2003) - Improved dry deposition algorithms, particularly for winter cases. In M3DRY, added explicit resistance to snow and ice with dependence on temperature; modified cuticle resistance for NH3 as function of relative humidity; and added wet ground similarly to wet canopy. Changed files: mcip2/m3dry.F mcip2/radmdry.F mcip2/Makefile mcip2/Makefile.nt New file: mcip2/hlconst.F - Added three new dry deposition species: N2O5, NO3, and generic aldehyde. Changed files: mcip2/alloc_x.F mcip2/init_x.F mcip2/m3dry.F mcip2/mcipparm_mod.F mcip2/null_x.F mcip2/radmdry.F mcip2/xvars_mod.F - Added snow cover field to input and output to support winter dry deposition algorithms. Changed files: mcip2/alloc_ctm.F mcip2/alloc_met.F mcip2/alloc_x.F mcip2/dealloc_ctm.F mcip2/dealloc_met.F mcip2/dealloc_x.F mcip2/init_met.F mcip2/init_x.F mcip2/mcoutcom_mod.F mcip2/metcro.F mcip2/metvars_mod.F mcip2/metvars2ctm.F mcip2/null_x.F mcip2/rdmm5v2.F mcip2/rdmm5v3.F mcip2/xvars_mod.F - Changed definition of F2 (for resistance calculations) to be based on land use category to improve resistance calculations for M3DRY when Pleim-Xiu land-surface model is not run. Changed files: mcip2/alloc_x.F mcip2/dealloc_x.F mcip2/init_x.F mcip2/metinfo_mod.F mcip2/metvars2ctm.F mcip2/null_x.F mcip2/rdmm5v2.F mcip2/rdmm5v3.F mcip2/resistcalc.F mcip2/xvars_mod.F - Corrected algorithm to calculate W in the PSRATE calculation for hydrostatic vertical velocity. Changed files: mcip2/verthyd.F - Commented out the need for PBL variables on input if they are set to be rediagnosed (for compatibility with MM5v2.6 and prior releases. Changed files: mcip2/rdmm5v2.F - Restricted output vertical structure so that layer collapsing is not used to create a thinner lowest or top layer than input meteorology. Changed files: mcip2/statflds.F - Removed GRIDBDY2D, GRIDBDY3D, and METBDY2D from output. Removed dry deposition species, ATRA and ATRAP, from output. Removed several other extraneous variables from output. Changed files: mcip2/alloc_ctm.F mcip2/alloc_x.F mcip2/dealloc_ctm.F mcip2/file_mod.F mcip2/gridout.F mcip2/groutcom_mod.F mcip2/init_x.F mcip2/m3dry.F mcip2/mcipparm_mod.F mcip2/mcoutcom_mod.F mcip2/metcro.F mcip2/null_x.F mcip2/radmdry.F mcip2/run.mcip mcip2/run_mcip.bat mcip2/xvars_mod.F - Clarified instructions on setting BTRIM, I0, and J0 in script. Removed links to GRIDBDY2D, GRIDBDY3D, and METBDY2D. Changed files: mcip2/run.mcip mcip2/run_mcip.bat - Updated version stamp. Changed files: mcip2/vstamp.F -------------------------------------------------------------------------------- MCIP Version 2.1 (27 March 2003) - Added calculation of mid-layer density using virtual temperature. Changed files: mcip2/met3dsup.F - Corrected bugs in calculations of UHAT_S and VHAT_T: added calls to COLLAPX for XUHAT and XVHAT, and fixed algorithm to translate from dot points to square and triangle points (Arakawa B grid to Arakawa C grid). Also changed COLLAPX calls for UHAT_S and VHAT_T to be on winds coupled with density and Jacobian for better mass conservation. Changed files: mcip2/metdot.F - Corrected calculation of WGHT_TOP and WGHT_BOT that is used to get WHAT_JD_C and WHAT_JD_B on full levels. Removed extraneous calculation of X3MIDL. Changed calls to COLLAPX to be on Jacobian coupled with density instead of just Jacobian for better mass conservation. Changed subsequent calculations of output variables based on Jacobian. Changed files: mcip2/metcro.F - Corrected calculation of weights used for vertical interpolation to full levels. Corrected algorithm to calculate XWHAT from XUHAT and XVHAT. Changed files: mcip2/vertnhy.F - Modified definitions of XORIG_GD and YORIG_GD to minimize real number round-off issues which can cause header mismatches in CMAQ. Added double precision attributes to variables assigned to I/O API header. Changed files: mcip2/setgriddefs.F - Removed unused variable JDRATE from code and from METCRO3D. Changed files: mcip2/alloc_ctm.F mcip2/alloc_x.F mcip2/dealloc_ctm.F mcip2/dealloc_x.F mcip2/init_x.F mcip2/mcoutcom_mod.F mcip2/metcro.F mcip2/null_x.F mcip2/verthyd.F mcip2/xvars_mod.F - Simplified algorithm to map input meteorology to MCIP_X domain. Changed files: mcip2/lutrans3.F mcip2/metgrid2ctm.F mcip2/metvars2ctm.F - Expanded MCIP_X domain dot-point arrays to (NCOLS_X+1, NROWS_X+1). Changed supporting code to reflect new dimensions. Changed files: mcip2/alloc_x.F mcip2/met3dsup.F mcip2/metdot.F mcip2/metgrid2ctm.F mcip2/metvars2ctm.F mcip2/pblpkg.F mcip2/pblsup.F mcip2/vertnhy.F - Constrained calculation of non-PBL parameters with user option LRAD in the PBL rediagnosis routine. Changed files: mcip2/pblpkg.F - Updated version stamp. Changed files: mcip2/vstamp.F -------------------------------------------------------------------------------- MCIP Version 2.0 (19 March 2002) - Added temperature dependence to Henry's Law constants in Models-3 dry deposition scheme. Added temperature and pressure dependence to diffusivity in Models-3 dry deposition scheme. Changed the reference wet cuticle resistance. Changed files: BLD/m3dry.F - Added dry deposition velocity for new species, methanol. Changed files: BLD/alloc_x.F BLD/init_x.F BLD/m3dry.F BLD/mcipparm_mod.F BLD/null_x.F BLD/radmdry.F BLD/xvars_mod.F - Corrected error in translation between input domain and MCIP "X" domain. (Error from MCIP Version 1.) This routine was over-looked in correction of this bug in second beta release. Changed files: BLD/lutrans3.F - Made minor changes to improve portability of code including re-ordering variable declarations and changing file access from Fortran unit numbers to explicit file names. Changed files: run.mcip BLD/bilin2d.F BLD/bilin3d.F BLD/file_mod.F BLD/getgist.F BLD/metgrid2ctm.F BLD/metvars2ctm.F BLD/rdmm5v2.F BLD/rdmm5v3.F BLD/readnml.F BLD/setupmm5.F BLD/wrgdesc.F - Added missing explicit variable declarations. Changed files: BLD/resistcalc.F - Allow MM5v2 output from 2000 and beyond to show up correctly in date/time stamps. Changed files: BLD/mdate2hdate.F - Replaced error-exit calls to "abort" and "stop" statments with calls to "m3exit" for graceful shut-down of I/O API files. Moved SDATE and STIME to new module DATE_TIME. Changed files: BLD/Makefile BLD/close_files.F BLD/collapx.F BLD/crs2dot.F BLD/dynflds.F BLD/getgist.F BLD/getversion.F BLD/getluse.F BLD/gridout.F BLD/layht.F BLD/lutrans1.F BLD/lutrans3.F BLD/lutrans5.F BLD/lutrans6.F BLD/mcip.F BLD/met3dsup.F BLD/metcro.F BLD/metdot.F BLD/metvars2ctm.F BLD/pblpkg.F BLD/rdmm5.F BLD/rdmm5v2.F BLD/rdmm5v3.F BLD/readnml.F BLD/setgriddefs.F BLD/setupmm5.F BLD/setupv2.F BLD/setupv3.F BLD/sfcflux.F New files: BLD/date_time_mod.F BLD/graceful_stop.F Deleted file: BLD/errmsg.F - Changed logic to define water points using dominant land use category. Changed files: BLD/m3dry.F BLD/resistcalc.F - Created script and Makefile for Windows NT. New files: run_mcip.bat BLD/Makefile.nt - Corrected calculation of PSIM variable. Changed files: BLD/sfclayer.F - Added basic compiler options for Sun, IBM, Linux, and SGI to Makefile. Changed files: BLD/Makefile - Generalized the end-of-namelist delimiter in the script. Changed files: run.mcip - Changed the creation of the GRIDDESC file from a list-directed write to a formatted write to improve portability. Changed files: BLD/wrgdesc.F - Adjusted minimum PBL height to be height of lowest mid-layer rather than height of lowest full layer for PBL pass-through option. Changed files: BLD/getpblht.F - Changed initialization of X-variables from 0.0 to BADVAL3 (a large negative number) and changed missing output variables to BADVAL3 to avoid confusion. Changed files: BLD/gridout.F BLD/init_x.F BLD/m3dry.F BLD/metcro.F BLD/metdot.F BLD/metvars2ctm.F BLD/pblsup.F BLD/radmdry.F BLD/resistcalc.F BLD/setupv2.F BLD/setupv3.F - Removed RIB from output. Changed files: BLD/alloc_ctm.F BLD/dealloc_ctm.F BLD/mcoutcom_mod.F BLD/metcro.F - Corrected text definition of RSTOMI and SURF2 in MC2VDESC. Corrected units of SURF2 in MC2UNITS. Changed QICE and QSNOW to QI and QS to be consistent with CCTM. Changed files: BLD/mcoutcom_mod.F - Renamed SURF2 as WIND10, and SURF1 as TEMP1P5. Changed files: BLD/alloc_ctm.F BLD/alloc_x.F BLD/dealloc_ctm.F BLD/dealloc_x.F BLD/init_x.F BLD/mcoutcom_mod.F BLD/metcro.F BLD/null_x.F BLD/pblpkg.F BLD/pblsup.F BLD/xvars_mod.F - Changed PBL-rediagnosis routine to use constants that are common to the rest of the code. In some cases, definitions of constants were either made more precise or changed outright to be consistent with other PBL rediagnosis routines. This affects TEMP10, TEMP1P5, and WIND10 in the PBL rediagnosis options only. Changed files: BLD/pblpwr.F - Corrected bug that persisted cloud base arrays when clouds had dissipated. Changed files: BLD/bcldprc_ak.F - Replace GOTO/CONTINUE section of code with DO loop. Changed files: BLD/sfcflux.F - Removed minimum size for windows. Changed files: run.mcip BLD/readnml.F BLD/setgriddefs.F - Added updates to XFLAGS for variables filled in METVARS2CTM. Changed files: BLD/metvars2ctm.F - Corrected upper bound for DO loop. Changed files: BLD/locate.F - Changed file names for Fortran 90 modules from "module_routine_name.F" to "routine_name_mod.F". Changed files: BLD/Makefile (and physical names of all f90 modules) - Updated disclaimer. Changed files: BLD/*.F - Updated version stamp. Changed files: BLD/vstamp.F -------------------------------------------------------------------------------- MCIP Version 2, Beta Release 3 (20 November 2001) - Corrected setting of XORIG_GD and YORIG_GD which was inadvertently changed in beta release 2. Changed files: BLD/setgriddefs.F - Allow use of MCIP in the absence of input cloud and rain mixing ratios, e.g., from MM5 "warm rain" scheme. Changed files: BLD/rdmm5v2.F BLD/rdmm5v3.F - Added time stamp for all input time periods read in MM5v2 file. Changed files: BLD/rdmm5v2.F - Removed "sanity" checks. Changed files: Makefile BLD/gridout.F BLD/metcro.F BLD/metdot.F Deleted files: BLD/sanity.F - Updated version stamp. Changed files: BLD/vstamp.F -------------------------------------------------------------------------------- MCIP Version 2, Beta Release 2 (18 October 2001) - Corrected calculation of RNET in non-P-X applications to include emissivity. (Note that GLW represents a different quantity for "pass-through" and P-X versions than for recalculation. Variables RNET and GLW are not used in any downstream processor.) Changed files: BLD/metvars2ctm.F - Added ASCII output file GRIDDESC to contain grid description information. Added new variable COORDNAM to describe coordinate system used in GRIDDESC. GRIDDESC will be used by SMOKE and other programs within CMAQ system. Changed files: run.mcip BLD/Makefile BLD/mcip.F BLD/module_coord.F BLD/module_file.F BLD/module_mcipparm.F BLD/readnml.F BLD/setgriddefs.F New files: BLD/wrgdesc.F - Corrected setting of P_GAM_GD for Lambert conformal maps. Also set P_ALP_GD, P_BET_GD, and P_GAM_GD based on map projection. Changed files: BLD/setgriddefs.F BLD/setupv2.F BLD/setupv3.F - Added capability to process 24-category land use in MM5v2 files. Changed files: BLD/rdmm5v2.F - Corrected precipitation calculation in first hour of second, third, etc., MM5 input files. Added logic to use multiple output files when MM5 option for splitting output is used in MM5v3. Added error-checking on header variables for multiple input MM5 files. Changed files: BLD/rdmm5v2.F BLD/rdmm5v3.F - Added windowing capability for the MCIP output sub-domain. Corrected definition of grid dimensions based on BTRIM, I0, and J0. Corrected print statement regarding end location of window. Changed files: run.mcip BLD/readnml.F BLD/setgriddefs.F - Corrected restriction on variables in MET_CRO_3D related to epsilon. Added the same restriction to MET_BDY_3D. Changed files: BLD/metcro.F - Corrected error in translation between input domain and MCIP "X" domain. (Error from MCIP Version 1.) Changed files: BLD/metgrid2ctm.F BLD/metvars2ctm.F - Updated version stamp. Changed files: BLD/vstamp.F -------------------------------------------------------------------------------- MCIP Version 2, Beta Release (21 September 2001) MCIP Version 2 contains the following new features: - Entirely re-engineered to be dynamically allocatable. That is, grid specifications and user options are run-time input rather than compile-time input. A single MCIP executable can be used for any input MM5 files without re-compiling. Run-time options are communicated via a Fortran namelist that is set from the run script. - Supports both MM5 Version 2 and MM5 Version 3 formatted files. The user does not need to specify the format type. - Includes "pass-through" options for PBL and radiation variables. - Processes output fields from the Pleim-Xiu land-surface model in MM5. - New option for Models-3 (Pleim) dry deposition routine. - New 3-D output fields for ice and snow mixing ratios. - New dry deposition velocity fields for atrazine (ATRA) and atrazine product (ATRAP). - New 2-D output fields for soil moisture, soil temperature, and soil texture when Pleim-Xiu land-surface model is run. - Ability to use multiple (e.g., restart) MM5 input files on the same execution of MCIP. - Ability to process MCIP at coarser granularity than input MM5. For example, MCIP can generate hourly output if MM5 input is every 30 minutes or 15 minutes. - MCIP calculations only occur for time period selected. (Input files must be read to find correct start time, but processing through MCIP only occurs on times of interest.) - Ability to print input and output variables in a user-defined cell. - Significant clean-up and re-organization of the code has also occurred. Because of the extent of the revisions to MCIP, some of the features in the current release of MCIP were omitted from MCIP Version 2. Some of these features will be added at a later time if demand warrants it. Some of the features in the current release of MCIP that are NOT supported in MCIP Version 2 at this time include: - Windowing of sub-domains. (Code is still in place, but has not been formally tested.) This capability will be available in the next release of the CCTM. {NOTE: Windowing was added back into MCIP in Beta Release 2.} - Input meteorology from existing MCIP files. - Creating MCIP output at finer horizontal grid spacing than input. - Use of common ".EXT" include files consistent with other CMAQ programs. - Use of "cfg" file, "m3bld", and "bldit" script to compile MCIP. - Extensive use of environment variables to set user definitions. ================================================ FILE: PREP/mcip/docs/FAQ ================================================ Frequently Asked Questions for MCIP MCIP Version 5.5 (19 September 2024) What are the changes in this release? There are only three changes in this release. 1. MCIP calculates XORIG and YORIG (projection parameters used by the CMAQ system) from the projection information used by WRF. Because the math calculations can get messy with real and double-precision trigonometry, the solutions are inexact. Prior versions of MCIP used a constraint to round the XORIG and YORIG to multiples of 500 meters. This constraint was introduced several years ago, when most groups were using horizontal grid spacings that were evenly divisible by 1 kilometer. This release changes the constraint on XORIG and YORIG to now be in multiples of 5 meters (rather than 500 meters). This change allows domains with horizontal grid spacings like 1.333 km and 4.25 km to be handled correctly. In addition, there is consistency in XORIG and YORIG values across compilers and optimizations. 2. The WRF physics option tokens were updated for the MCIP metadata to reflect new physics introduced between WRFv4.1 and WRFv4.6. 3. The routine that reads WRF data was updated to remove a redundant NF90_OPEN/NF90_CLOSE couplet that slightly slowed the MCIP processing. Is there an MCIPv5.4.1? No. There were no updates to MCIP in the release of CMAQv5.4.1. MCIP was not updated and remained at MCIPv5.4 for both CMAQv5.4 and CMAQv5.4.1. Do I need to update from MCIPv5.3.3 or MCIPv5.4 to work with CMAQv5.5? Not necessarily. If you are starting new runs with CMAQv5.5, and if you do not have MCIP files, then it is recommended that you use MCIPv5.5. However, if you have MCIP files processed already *AND* if you are *not* using a horizontal grid spacing that is not a multiple of 1 km (e.g., 1.333 km or 4.25 km), then you can probably use your older MCIP files. I already pointed out something that needs to be corrected in MCIP, but I do not see the update here. What is going on? There are a few corrections to MCIP that did not get incorporated into this release due to timelines and competing priorities. They are in the queue for the next release. Thank you for your patience. MCIP crashed, and I don't understand my error. What should I do? Clean up the directory with your MCIP executable and compiled object (.o) files by using "make clean". Then recompile with the debug options turned on, ensuring that you have the "traceback" or equivalent directive for your compiler. Then rerun, and you should have a more meaningful error message that may point you to the subroutine and specific line of code that is causing your error. I think there is a bug in MCIP. How can I report it? You can use the CMAS Center Forum to report bugs, get help from the community, and communicate with developers. You can use the "MCIP" category (upper-left corner on the Forum) for issues that are strictly related to MCIP. Before opening a new thread on the Forum, please search the Forum to see if the issue has already been raised and addressed. If not, please open a new thread rather than amending an existing thread. https://forum.cmascenter.org Where can I get more information on the CMAQ system? Please visit https://www.epa.gov/cmaq Where can I get training on how to use the CMAQ system? The CMAS Center provides periodic training on the use and utility of the CMAQ system. Please visit https://www.cmascenter.org Do you take user suggestions? Yes! Please submit them via the CMAS Center Forum https://forum.cmascenter.org -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- MCIP Version 5.4 (12 September 2022) What are the changes in this release? None. MCIPv5.4 has not been updated since the previous release (v5.3.3). Note that, beginning with version v5.3.3, the versioning of MCIP is aligned with the numbering used for CMAQ. Therefore, the MCIP version numbering is updated with the release of CMAQv5.4. -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- MCIP Version 5.3.3 (16 June 2021) What are the changes in this release? The changes in MCIPv5.3.3 are summarized in the "ReleaseNotes" file and in greater detail in the "CHANGES" file. Note that the versioning is changed with this release to align versions of MCIP with the same numbering used for CMAQ. What happened to MCIP version 5.1? MCIP version 5.1 was released with CMAQv5.3, but the FAQ was not updated. What happened to MCIP versions 5.2 and 5.3? Those versions do not exist. After MCIPv5.1, we decided to keep the version numbering for MCIP consistent with the CMAQ system to minimize confusion. Accordingly, we skip from MCIPv5.1 to MCIPv5.3.3 in the public releases on GitHub. Do I need to update from MCIPv5.1 to MCIPv5.3.3? Maybe. There are very minor changes between these releases, but there are a handful of minor bug fixes that are addressed with this release. Please read the "CHANGES" file to determine if those bugs apply to your work. MCIP crashed, and I don't understand my error. What should I do? Clean up the directory with your MCIP executable and compiled object (.o) files by using "make clean". Then recompile with the debug options turned on, ensuring that you have the "traceback" or equivalent directive for your compiler. Then rerun, and you should have a more meaningful error message that may point you to the subroutine and specific line of code that is causing your error. I think there is a bug in MCIP. How can I report it? You can use the CMAS Center Forum to report bugs, get help from the community, and communicate with developers. You can use the "MCIP" category (upper-left corner on the Forum) for issues that are strictly related to MCIP. Before opening a new thread on the Forum, please search the Forum to see if the issue has already been raised and addressed. If not, please open a new thread rather than amending an existing thread. Where can I get more information on the CMAQ system? Please visit www.epa.gov/cmaq. Where can I get training on how to use the CMAQ system? The CMAS Center provides periodic training on the use and utility of the CMAQ system. Please visit www.cmascenter.org. Do you take user suggestions? Yes! Please submit them via the CMAS Center Forum. -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- MCIP Version 5.0 (20 June 2019) What are the changes in MCIPv5.0? The changes in MCIPv5.0 are summarized in the "ReleaseNotes" file and in greater detail in the "CHANGES" file. You will need to use I/O API v3.1 or v3.2 with this release, and you will use the netCDF F90 module rather than the netCDF F77 include. Do I need to update to MCIPv5.0? It is entirely up to you. Updating is required if you are using ANY of the following: - CMAQv5.3 - WRFv4.0+ - WRF with hybrid vertical coordinates Do I need to update my script from MCIPv4.5 to MCIPv5.0? Yes. If you want to use MCIPv5.0, you need to use the new script because the input namelist has changed. Can I use netCDF 4 with MCIP? Yes. Will MCIP work on a Mac? Yes. It has been tested with Intel Fortran and gfortran. Can I still use MM5v3 data in MCIPv5.0? No. It was eliminated in MCIPv5.0. Do I need to update to MCIPv5.0 to use CMAQv5.3? Yes. If I run the two-way-coupled WRF-CMAQ system (available with CMAQv5.3), do I need to run MCIP? No. The functionality of MCIP is handled within the two-way-coupled WRF-CMAQ system in AQPREP. Can I run MCIP on multiple processors? No. MCIP is not a parallel code. Because there is so much time spent reading and writing data, MCIP probably would be I/O bound and would not scale well across multiple processors. Why do I need I/O API v3.1 or v3.2 for MCIPv5.0? The I/O API include files PARMS3.EXT, FDESC3.EXT, and IODECL3.EXT have been encapsulated in the I/O API module M3UTILIO. Using this module will reduce user errors that had been associated with changes to I/O API parameters in I/O API but not in the CMAQ system codes themselves. It helps protect users like you! Why do I need to use the netCDF F90 module instead of including the netCDF F77 include file? MCIP relies on the F90 netCDF functions and routines rather than the F77 versions. Reading netCDF files under F90 is greatly simplified. How can I find out what model/version/options/MCIP I used for my MCIP output? Check out the metadata that is included in the I/O API headers of MCIP output files. Use the command "ncdump -h ", and see the character field FILEDESC that is part of the I/O API header (near the end). That field has been filled for MCIP since MCIPv3.3. It is best viewed on a terminal of 80-character width. It is also echoed at the end of the MCIP log file. I'm publishing a paper and I want to cite MCIP. What reference should I use? In general, the citable reference for MCIP is Otte and Pleim (2010): Otte, T. L., and J. E. Pleim, 2010. The Meteorology-Chemistry Interface Processor (MCIP) for the CMAQ modeling system: updates through MCIPv3.4.1. Geoscientific Model Development, 3, 243-256. A DOI will also be available for CMAQv5.3 (which includes MCIPv5.0). Can I use the netCDF MCIP output with the rest of the CMAQ system? Not yet. However, you can visualize the file in Verdi 2.0 and use various netCDF tools to manipulate the file. MCIP is not compiling properly. Can you help? MCIP must be compiled to include the netCDF Fortran 90 module, as well as the I/O API library. All three of these elements (MCIP, netCDF, and I/O API) *MUST* be compiled with the same Fortran compiler. That is, you cannot mix and match libraries compiled with gfortran with source code compiled with the Intel compiler. The three elements must be compiled sequentially so that the same versions of the libraries are used consistently. Build netCDF first, then include that version of netCDF into the compile of I/O API, then use both to build MCIP. MCIP is not a parallel code; it only runs on a single processor. Errors in the compile that are related to "mpi" mean there is a mismatch in the version of the Fortran compiler used among netCDF, I/O API, and MCIP. Where can I get help on MCIP-related issues? The CMAS Center hosts an online Forum to address issues related to software in the CMAQ system. The MCIP Category is dedicated to MCIP-related issues, and it can be found at: https://forum.cmascenter.org/c/mcip. Before creating a new Topic (thread) in the MCIP Category, users are strongly encouraged to search previous entries to determine if other users have reported similar issues, and if a solution has been posted. Prior to the launch of the Forum, users submitted discussion through the listserv "m3user". That listserv is deprecated in favor of the Forum. However, discussions in "m3user" can be accessed and searched from the archive at https://lists.unc.edu/read/?forum=m3user. Do you take user suggestions? All user suggestions are considered, but not all are accepted. -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- MCIP Version 4.0 (9 September 2011) What are the changes in MCIPv4.0? The changes in MCIPv4.0 are summarized in the "ReleaseNotes" file and in greater detail in the "CHANGES" file. You will need to use I/O API v3.1 with this release, and you will use the netCDF F90 module rather than the netCDF F77 include. Do I need to update to MCIPv4.0? It is entirely up to you. Updating is strongly recommended if you are using ANY of the following: - WRF - polar stereographic projection - horizontal grid spacing of 8 km or smaller - new option for albedo in CMAQv5.0 that depends on sea ice array Do I need to update my script from MCIPv3.6 to MCIPv4.0? If you want to use MCIPv4.0, you need to use the new script because the input namelist has changed. There have also been some minor bug fixes in the script. Can I use netCDF 4 with MCIP? Yes. Will MCIP work on a Mac? Yes. It has been tested with Intel Fortran and gfortran. Can I still use MM5v3 data in MCIPv4.0? Yes. Do I need to update to MCIPv4.0 to use CMAQv5.0? Probably not, but it's a good idea. See comments about v4.0 update, above. If I run the two-way-coupled WRF-CMAQ system (available with CMAQv5.0), do I need to run MCIP? No. The functionality of MCIP is handled within the two-way-coupled WRF-CMAQ system in AQPREP. Why do I need I/O API v3.1 for MCIPv4.0? The I/O API include files PARMS3.EXT, FDESC3.EXT, and IODECL3.EXT have been encapsulated in the I/O API v3.1 module M3UTILIO. Using this module will reduce user errors that had been associated with changes to I/O API parameters in I/O API but not in the CMAQ system codes themselves. It helps protect users like you! Why do I need to use the netCDF F90 module instead of including the netCDF F77 include file? MCIP now relies on the F90 netCDF functions and routines rather than the F77 versions. Reading netCDF files under F90 is greatly simplified. Why did you change all of the error handling? The error messages from netCDF-related errors have been made more explicit to parrot back the text version of the error rather than the integer error code. In addition, removing line numbers was part of compliance with the Fortran 2003 standard. How can I find out what model/version/options/MCIP I used for my MCIP output? Check out the metadata that is included in the I/O API headers of MCIP output files. Use the command "ncdump -h ", and see the character field FILEDESC that is part of the I/O API header (near the end). That field has been filled for MCIP since MCIPv3.3. It is best viewed on a terminal of 80-character width. It is also echoed at the end of the MCIP log file. Do you take user suggestions? All user suggestions are considered, but not all are accepted. -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- MCIP Version 3.6 (19 March 2010) and Version 3.5 (29 October 2009) What are the changes in MCIPv3.6? The changes in MCIPv3.6 are listed briefly in the "ReleaseNotes" file and in greater detail in the "CHANGES" file. Please pay particular attention to the NOTEs in the "ReleaseNotes" file because they describe some of the future changes that are anticipated for MCIP. Do I need to update to MCIPv3.6? It is entirely up to you. If you are using WRFv3.1+, then updating to the new release of MCIP is strongly encouraged. Also, if you are using WRF nests or a projection in WRF other than Lambert conformal, then you should use the latest code. Do I need to update my script from MCIPv3.4 to MCIPv3.6? There are some new user options related to toggling on/off output fields and for choosing a reference latitude for WRF Lambert conformal grids. If those changes do not interest you, then you probably are OK with your previous script. Those new user options will just be assigned default values if you choose not to set them via the script/namelist. Can I use netCDF 4 with MCIP? It appears to be working with the version of I/O API 3 that was updated 28 October 2009. I'm using MM5 fields. Did anything change that affects my runs? Not in any appreciable way, unless you want to take advantage of the additional choices related to output fields. You may see small changes in rotated wind direction under very unique circumstances. Why did you make the C-staggered latitude, longitude, and map-scale factors show up in GRIDDOT2D for my MM5 runs when MM5 uses the B-staggered grid? Six 2D fields is a small price to pay. Can anything in CMAQ use the new, optional u- and v-component wind fields yet? Changes to CMAQv4.7.1 are expected in eddyx.F and edyintb.F. Do I need to output the u- and v-component winds on the C-staggered grid if I'm using MM5? No. Why do you need two sets of wind components right now? If you choose to output the C-staggered winds for your WRF domain, the B-staggered winds are still needed for plume rise. An update to use the C-staggered winds has not been reconciled in SMOKE or in the meteorologically dependent portion of the plume rise that has been included in CMAQ. Can anything in CMAQ use the new, optional potential vorticity field yet? Not in the released code. Does anything in CMAQ use the vertical velocity field predicted by the meteorological model (i.e., what happens if I turn it off)? Nothing in CMAQ uses WWIND. Your METCRO3D files will be smaller if you turn off WWIND. What extra fields do I need to turn on in the "wrfout" (history) file with the WRF Registry? MCIPv3.6 can make use of the following fields if they are available in the WRF output (and these fields are NOT part of the WRF output by default in WRFv3.1): fractional land use (LANDUSEF), aerodynamic resistance (RA), stomatal resistance (RS), vegetation fraction in the Pleim-Xiu LSM (VEGF_PX), roughness length (ZNT), and inverse Monin-Obukhov length (RMOL). I already have LANDUSEF in my "wrfout" (history) files. Do I need to also supply the GEOGRID file? No. The GEOGRID is a backup in case the user forgot to add LANDUSEF to the WRF history file via the WRF Registry. (This is handy for groups that are collaborating on meteorological and air quality simulations, where the WRF simulations have already been conducted.) Do I have to use the Pleim-Xiu land-surface model in MM5/WRF to run MCIP? No. Some of the MCIP/CMAQ physics probably work better with the Pleim-Xiu (PX) LSM than other land-surface models, but changes have been made to improve the use of MCIP and CMAQ for other LSMs. One thing to note is that the mixing within the planetary boudnary layer (PBL) can be more consistent between MM5/WRF and CMAQ if the Asymmetric Convective Model version 2 (ACM2), which is commonly used with the PX LSM, is used in MM5/WRF. Why is there a variable to specify the reference latitude for the WRF Lambert conformal simulations? The notion of a "center latitude" (which is required in the I/O API used by CMAQ) is not available in the WRF output. There is additional flexibility in how one can define simulation domains in WRF beyond what was available in MM5. Just going on what's available in the WRF output headers, it is impossible to "reconstruct" an existing MM5 domain that covers the same area under certain circumstances. Several users have inquired about matching MM5 and WRF domains and getting the I/O API headers consistent. (There are multiple ways of using the fields in the I/O API headers to represent the same domains.) Thus, the option for users to hand-pick the center (or reference) latitude was created in MCIP. Several users had access to this change in an unreleased code, MCIPv3.4.1.1, which was initially made available in December 2008. This change is formally released as part of MCIPv3.6. How can I find out what model/version/options/MCIP I used for my MCIP output? Check out the metadata that is included in the I/O API headers of MCIP output files. Use the command "ncdump -h ", and see the character field FILEDESC that is part of the I/O API header (near the end). That field has been filled for MCIP since MCIPv3.3. It is best viewed on a terminal of 80-character width. It is also echoed at the end of the MCIP log file. How can I visualize Mercator output from MCIP? It's not working in PAVE or IDV, You can try VERDI, IDL, R, or GoogleEarth. -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- MCIP Version 3.4.1 (4 December 2008) What are the changes in MCIPv3.4.1? The changes in MCIPv3.4.1 are listed briefly in the "ReleaseNotes" file and in greater detail in the "CHANGES" file. Please pay particular attention to the NOTEs in the "ReleaseNotes" file because they describe some of the future changes that are anticipated for MCIP. What was the problem with the Spatial Allocator that caused the change to GRIDDESC for WRF Lambert conformal between MCIPv3.4 and MCIPv3.4.1? In MCIPv3.4, the reference latitude for the GRIDDESC and the I/O API headers was selected arbitrarily (but conveniently) to be the first true latitude for Lambert conformal projections. In the Spatial Allocator, the GIS utility routine, PROJ4, gives the wrong result when the reference latitude is equal to the first true latitude; the details have not been thoroughly investigated. However, to work around this issue, the reference latitude for Lambert conformal was arbitrarily changed to the average of the true latitudes, and the tangent Lambert conformal case (which would have the average of the true latitudes equal to the true latitudes...because there is just one) was temporarily prevented in MCIP. Why can't you just stop changing the GRIDDESC file??? If there were an easy solution to map the WRF headers into the CMAQ system via the I/O API, we would have done it already! (Thanks for your patience.) -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- MCIP Version 3.4 (4 November 2008) What are the changes in MCIPv3.4? The changes in MCIPv3.4 are listed briefly in the "ReleaseNotes" file and in greater detail in the "CHANGES" file. Do I need MCIPv3.4 to run CMAQv4.7? Yes, particularly for the dry deposition velocity calculations in CMAQ and for the bi-direction flux option. Do I need MCIPv3.4 for WRFv3? Yes. Some minor changes were introduced to adjust to WRFv3. In addition, there are corrections in MCIP to the way the WRF grids are depicted in the MCIP output. There are also changes for new physics options in WRFv3 and added support for the NOAH land surface model. My GRIDDESC file for WRF data is different from my MM5 GRIDDESC for the same grid. Why? The WRF model offers additional flexibility in the way that grids are defined beyond what was available in MM5. The "center latitude" in the I/O API header that has commonly been associated with the center of the projection in MM5 is not a standard input in WRF...so it is not a standard output for WRF. In MCIPv3.3, an attempt was made to accommodate the flexibility in WRF's domain definitions, but there was an oversight that affected the downstream programs, so the method used in MCIPv3.3 is not correct for the CMAQ system and the I/O API utility routines. Thus, in MCIPv3.4, a completely different method was used for WRF grids such that the "center latitude" for Lambert conformal projections was chosen to be the first true latitude. This will make the YCENT different, as well as the XORIG and YORIG which are computed relative to the point at XCENT, YCENT. [NOTE: This solution was updated in MCIPv3.4.1 to use the average of the true latitudes rather than the first true latitude for the reference point.] I want to use my emissions from my MM5-based project with WRF data on the same grid, but SMOKE keeps crashing! What can I do? You have three options. (1) Edit the SMOKE routines to comment out the error- checking on the GRIDDESC variables YCENT, XORIG, and YORIG. (2) Use the I/O API utility "m3edhdr" to edit the headers of your MCIP output files to adjust YCENT, XORIG, and YORIG to the MM5-based projection's values. (3) Rerun the emissions with the WRF-based output. These options should be exercised *VERY* carefully! Dry deposition velocities can be computed in CMAQ. Do I need to compute them in MCIP anymore? No. The dry deposition velocity calculations were left in MCIP for this release cycle so that users can convince themselves that the methodology was implemented consistently in MCIP and CMAQ. Note: The dry deposition velocity calculations will be removed from MCIP in the next major release. -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- MCIP Version 3.3 (1 Aug 2007) What are the changes in MCIPv3.3? There are several scientific updates in the M3Dry dry deposition routine. In addition, legacy user options (RADMdry dry deposition, recalculation of PBL fields, recalculation of radiation fields, input using MM5v2 format) have been removed. A few minor bugs have been corrected, and some updates have been made for WRFv2.2. A metadata section was added to the MCIP output files to improve traceability of the MCIP version and the input data sets. Also, MCIP has been made more flexible with regard to near-surface fields so that land- surface models in addition to Pleim-Xiu (such as NOAH) can be better accommodated. A few new fields have been added to output (largely to support the forthcoming inline dry deposition calculations in the CCTM), while some have been removed (most notably the diagnosed 1.5-m and 10-m temperatures). Consult the ReleaseNotes and CHANGES files (and the code itself!) for more details. Do I need to update my script to run MCIPv3.3? Yes. The user definitions for the PBL and radiation options have been removed, and they are no longer valid namelist variables. What happened to the 1.5-m temperature and 10-m temperature fields? I need them for emissions! The diagnosed temperatures at 1.5 m and 10 m AGL were removed from the MCIP output in MCIPv3.3. These temperatures were diagnosed in MCIP using an algorithm that is unrelated to the PBL schemes used in the meteorological model, and differences between the 1.5-m temperature diagnosed in MCIP (with that algorithm) and the 2-m temperature diagnosed in the PBL model within the meteorological model can be very significant (e.g., ~5-6 deg C). In an effort to keep the meteorological and air quality models as consistent as possible, the MCIP-diagnosed temperatures were removed in favor of the 2-m temperature. Internal processes in MCIP (e.g., in the dry deposition model) now use 2-m temperature. While the 2-m temperature has become a somewhat standard output field in the meteorological models over the past few years, 2-m temperature is not available in "older" versions of some models; in that case, 2-m temperature is diagnosed in MCIP and made available in METCRO2D. Emissions should now use "TEMP2" rather than "TEMP1P5" and/or "TEMP10". Were other fields removed with MCIPv3.3? In addition to 1.5-m and 10-m temperature (TEMP1P5 and TEMP10, respectively), the inverse of the laminar boundary resistance (RBNDYI) and the total Jacobian at the surface have been removed because no downstream processes used those fields. Also, dry deposition velocities are no longer computed for two chlorine species (VD_ICL1 and VD_ICL2) because they are not required for CB05; those species are only used in CB-IV with chlorine extensions. Are there any new fields in the MCIPv3.3 output? Yes. If fractional land use is available in the input to MCIP, then the fractional land use (by category) is added to GRIDCRO2D. In addition, vegetation fraction (VEG) and leaf-area index (LAI) are output in METCRO2D for all runs. Lastly, soil moisture (SOIM1 and SOIM2), soil temperature (SOIT1 and SOIT2), soil type (SLTYP), and canopy wetness (WR) are output if they are available in the input meteorology (not just for PX runs); the five soil fields must all be available (as a package) to appear in the output. I have sensitivity tests with different meteorological model options, and I'm overwriting my MCIP output files. My metadata isn't changing, though. What's wrong? The metadata will appear in the first instance of an MCIP output file. It will not be updated if the file is overwritten. The easy solution is to move or delete the original files and just create new MCIP files with each run. I set LDDEP=0 to compute dry deposition velocities inline in CMAQ, but I can't figure out how to make it work in CMAQ. What's wrong? The option to compute dry deposition velocities inline in CMAQ is not released as of CMAQv4.6. It should be released in 2008. For now, set LDDEP=4, and run MCIP and CMAQ as you've always done it. My project really depends on {pick at least one of [RADMDry], [recalculated PBL parameters], [recalculated radiation parameters], [MM5v2-formatted data]}, but I want to use the latest MCIP. What can I do? The Release Notes that accompanied MCIPv3.2 (the previous release) indicated that these options had been targeted for removal in this release of MCIP. In the time that elapsed, no users protested to keep the options available, so the options were removed, as promised. You can either keep using the version of MCIP that you've been using, or transition to more recent science. I want to use the minimum Kz formulation in CMAQ that's been available since CMAQv4.5, and I'm using WRF input. Can I do it now? Yes, as long as your WRF output file includes the field LANDUSEF (fractional land use), which has been made available in WRFv2.2. My MM5 run used the NOAH LSM, and my MCIPv3.3 output is different from my MCIPv3.2 output. What's going on? Some new code has been added in MCIPv3.3 to better accommodate additional land-surface models, such as the NOAH LSM, for both MM5 and WRF. Some near-surface fields that were only captured for the Pleim-Xiu land-surface model are now captured and used in MCIP as long as they are available in the meteorological model output. Some of those fields are now in the MCIP output. It looks like MCIPv3.3 can accommodate the Pleim-Xiu land-surface model in WRF, but PX doesn't seem to be in my release of WRF. What's going on? The Pleim-Xiu land-surface model is being implemented in WRF, and it should be available in NCAR's release of WRFv3, targeted for spring 2008. My GRIDCRO2D file is MUCH bigger with MCIPv3.3 than it had been. Why? The fractional land use (by category) is now included in the GRIDCRO2D file to support the forthcoming inline dry deposition in CMAQ. The fractional land use for the urban area (LUFRAC_01) does not match the percent of urban area (PURB). Is there a bug? No. This is intentional. The fields represent slightly different quantities. LUFRAC_01 is the fraction of urban area compared to all other land use categories such that the sum of LUFRAC_{nn} is 1.0. PURB is the percentage of urban area related to the proportion of land within the cell. I'm not running CMAQ with chlorine or mercury, so I don't need those extra dry deposition species. Can I turn them off in the MCIP output to save some disk space? No. That option was eliminated in MCIPv3.3. You will just get six (it was eight before this release) additional dry deposition species in METCRO2D. CMAQ will ignore the extra fields. If conserving disk space is important. you can modify MCIP so that those fields are not written to the output, If we're already up to MCIP version 3 and beyond, then why are some of my directories (and other documentation) referencing "MCIP2"? This is an artifact of the developmental software configuration management archive in RTP. The entry for MCIP in the archive is called "MCIP2". It really does not have anything to do with the version number for the program. -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- MCIP Version 3.2 (26 Sept 2006) What are the changes in MCIPv3.2? There are several minor changes and updates for MCIPv3.2. Most notably, the I/O API header variable settings for meteorology fields from the WRF-ARW are modified to reflect the additional capability to have the center of the coarse domain located elsewhere than the center of the projection, which is an option that is not possible with MM5. With this change, applications of CMAQ that use WRF-ARW fields as input will no longer adhere to the "grid family" paradigm for the Models-3 I/O API, and a separate GRIDDESC file will be needed for each WRF-based domain. Another noteworthy change in MCIPv3.2 is a correction to the "last wet time" algorithm in the M3Dry dry deposition routine for applications that do not use the Pleim-Xiu land-surface model in the input meteorology. In addition, the polar stereographic and Mercator projection settings in the I/O API are updated again. One new field, land-water mask (LWMASK), is added to the GRIDCRO2D file to support future work. Finally, in MCIPv3.2, several legacy user options are tagged as obsolescent, and they are targeted for removal in the next release of MCIP. These obsolescent options include RADMDry dry deposition, PBL recalculation options, radiation recalculation options, and processing data in MM5v2 format. Several other minor changes have been made in MCIPv3.2; consult the ReleaseNotes and CHANGES files for additional details. I'm running the same domain for WRF and for MM5, and the GRIDDESC file has different numbers in it. What's wrong? Nothing. The different numbers will project the same domain. In GRIDDESC files for MM5-based data, the XORIG and YORIG are the location of the lower-left corner of the domain with respect to XCENT and YCENT at the center of the projection (using the "grid family" paradigm). For WRF-ARW-based data, XCENT and YCENT are the center of the *domain* (and not necessarily the center of the projection), and XORIG and YORIG are the lower-left corner with respect to that point. Can WRF-NMM data be processed through MCIP? Not at this time. There is no "mmheader" file with my WRF-based MCIP run. What's wrong? Nothing. The "mmheader" file contains the contents of the MM5 header. Because MM5 data are not in a "standard" format, "mmheader" is convenient. It's easier to put it in a separate file rather than clutter the MCIP log file. The contents of the WRF header can easily be viewed by using "ncdump -h ". Are there any options in WRF-ARW that are incompatible with CMAQ? So far, just one. The Eta/Ferrier microphysics lumps all hydrometeors into "total condensate", and that field is output using the same variable that is otherwise assigned to cloud water mixing ratio. CMAQ currently needs a breakdown of the hydrometeor components, so this scheme is currently blocked from being processed through MCIP. -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- MCIP Version 3.1 (27 Feb 2006) What are the changes in MCIPv3.1? There are several minor changes to the code for MCIPv3.1. The dry deposition velocity for elemental mercury was updated. Also, the automated calculations of some grid parameters were modified for WRF so that the center of the projection is not restricted to a cell corner. In addition, a minor correction was made for the I/O API header for data sets with Mercator projection. If I am using MCIPv3, do I need to upgrade to MCIPv3.1? Users do not need to upgrade from MCIPv3.0 to MCIPv3.1 unless the mercury option in CMAQ is going to be used. Users who have WRF-ARW (formerly WRF-EM) data should consider upgrading to MCIPv3.1 to take advantage of minor corrections in the code, but this is not required if MCIPv3.0 already runs with the user's WRF data set. Users who have data with Mercator projection (either MM5 or WRF) should upgrade to MCIPv3.1. New users should start with MCIPv3.1. If I ran MM5 (or WRF) without the Pleim-Xiu land-surface model, can I use the "M3Dry" dry deposition routine in MCIP? Yes. While "M3Dry" was specifically written to take advantage of fields that are available in the output from the Pleim-Xiu land-surface model, there is some code that creates those fields within MCIP for meteorology data sets that do not already have them. This code probably could be improved, but it is not an impediment to using "M3Dry". -------------------------------------------------------------------------------- -------------------------------------------------------------------------------- MCIP Version 3.0 (19 Aug 2005) What were the major changes in MCIPv3.0? The major change was to allow meteorology fields to be input from either MM5 or WRF. There are also new optional dry deposition species for chlorine and mercury with the M3Dry scheme. There is also an option to use fractional land use in MCIP if it is imported from an MM5v3 pre-processing file. The detailed list of changes is in the file "CHANGES". I want to run MCIP with WRF model data. What do I need to do? There are a handful of things that need to be done in WRF to run MCIP with WRF data. 1. The WRF model must be WRFv2.0 or newer. 2. Must use the WRF-EM core. (WRF namelist variable dyn_opt=2. This is the default.) MCIPv3 does not support WRF-NMM (NCEP core). 3. Output must be in WRF I/O API (using NetCDF) format. (WRF namelist variable io_form_history=2. This is the default.) 4. Must use non-hydrostatic dynamics in WRF. (WRF namelist variable non_hydrostatic=.true. This is the default.) 5. WRF output should be hourly at most. (WRF namelist variable history_interval=60, or fewer, minutes. The default is 180 min.) 6. The following 2D variables need to be added to the WRF output (history) file: UST, ALBEDO, EMISS, and ZNT. Variables can be added to the history file by adding "h" in the 8th column of the WRF Registry on the line that describes the variable. Also, the water vapor mixing ratio and mixing ratios associated with the explicit moisture can go negative in WRF. This is a result of the mass conservation and the advection scheme used in WRF. Negative mixing ratios will cause problems in CMAQ. There are two namelist variables in WRF that eliminate negative mixing ratios (mp_zero_out and mp_zero_out_thresh), but they are not invoked by default. Users need to decide whether or not this should be controlled in WRF or downstream. Either way, MCIPv3 will not permit negative mixing ratios to be passed to CMAQ. In addition, a floor value of 1.0e-14 kg/kg has been set for water vapor mixing ratio in MCIP since negative mixing ratios are otherwise zeroed out in WRF. A positive water vapor mixing ratio is required for the aerosol model in CMAQ. Where do I need to specify if my dataset is from MM5 or WRF? The user does not need to indicate if the input meteorology files are from MM5 or WRF. MCIP automatically determines if the file is MM5 or WRF by trying to open the input file as a NetCDF file. If the file can be read as NetCDF, MCIP assumes the input is a WRF dataset. Otherwise, MM5 is assumed. When using MM5 data, it is normal to see a message in the MCIP log file that says, "NCOPN: : Not a netCDF file". Are there any new output fields in MCIPv3.0? One new output field is PURB, or percentage of urban area. This field appears in GRIDCRO2D if an additional input file that contains fractional land use information (e.g., MM5's TERRAIN file) is provided for input. PURB can only be generated currently for MM5v3-based MCIP runs. There are also optional dry deposition velocities in METCRO2D for 6 chlorine and 2 mercury species. Were any output fields eliminated in MCIPv3.0? No. I ran MCIP with WRF input data, and there is no GRIDCRO3D file. What happened? GRIDCRO3D contains reference height fields that are relevant for non-hydrostatic MM5, but not for WRF. GRIDCRO3D will not created for WRF. Older versions of SMOKE have a minor dependency on this file, but a change should have been made in the recent release to extract WRF layer heights from METCRO3D rather than from GRIDCRO3D for plume rise calculations. CMAQ does not require GRIDCRO3D. I want to run with MM5 data, and I'm having problems compiling some of the new routines with WRF. Can I just shut off the WRF part of MCIPv3? No. MCIPv3 is an integrated code for both MM5 and WRF. The locations of the NetCDF library and the file "netcdf.inc" need to be verified in the Makefile and the code must be compiled as a total package. I ran MCIP with the options for chlorine and mercury dry deposition, but I don't want to run those versions of CMAQ. Do I need to rerun MCIP? No. There will just be 6 extra chlorine species and 2 extra mercury species in METCRO2D. No other species dry deposition are affected if these options are turned on in MCIPv3. The chlorine and mercury species in METCRO2D will be ignored. I want to run with chlorine (and mercury) but I want to use RADMDry instead of M3Dry. Can I do this? No. MCIPv3 is only set up to generate chlorine and mercury dry deposition velocities using M3Dry. Do I need to change my script to use MCIPv3.0? Yes. There have been several changes to the MCIP script for MCIPv3.0. Most notably, the windowing variables I0 and J0 have been renamed Y0 and X0 to make MCIP more general. Also, the option to read the MM5 TERRAIN file has been added so that fractional land use can be processed. The names of the environment variables for the output files have also been modified, and the logic surrounding the number of input meteorology files has been generalized. In short, it is recommended that users start with a new script rather than trying to adapt their existing scripts to include the MCIP updates. I can't find my TERRAIN file. Can I use a different file to provide fractional land use? Since the fractional land use fields appear in all of the MM5v3 preprocessing output files, any of the TERRAIN, REGRID, RAWINS, LITTLE_R, and MMINPUT files can be read into MCIP to obtain fractional land use. I'm using MM5v3 input files, and I don't have the files to provide fractional land use. Can I still run CMAQ? Yes. This is not a problem for CMAQ. PURB supports an option to modify the minimum Kz in CMAQv4.5. PURB is not required; the minimum Kz calculation will otherwise revert to the method used in CMAQv4.4. I already have MCIP and emissions files created for CMAQ, but I want to take advantage of the new minimum Kz formulation in CMAQv4.5. Do I have to start over again since I don't have PURB in my GRIDCRO2D file? Fortunately, users can run MCIPv3 for one hour with the fractional land use input and the appropriate MM5 file to create a new GRIDCRO2D file that contains PURB. This new GRIDCRO2D file can be used in place of the old GRIDCRO2D files for applications that are already underway. For most users, the other five fields in GRIDCRO2D should be unaffected by this change. I ran WRF, and I want to use the new minimum Kz formulation in CMAQv4.5. Can I do this? [*** See update with MCIPv3.3 ***] No. As of now, WRF does not have fractional land use fields available in the output. MCIPv3 is not set up to use WRF output with an MM5 TERRAIN file (or other MM5 preprocessing file) to obtain the fractional land use information. I can't get I/O API 3 to work properly on my machine, and I need to run MCIP. What can I do? The subroutine ioparms3 (which is called from init_io.F) is the only dependency on I/O API 3 in MCIPv3. If you want to use I/O API 2.2 with MCIP, modify the routine init_io.F by commenting out the call to ioparms3 and the variable checks below it (starting with the comment "Verify that the I/O API library..."). Then recompile and run MCIPv3 with the I/O API 2.2 library. You should, however, ensure that your I/O API library and the parameters in MCIP are consistent (e.g., if the maximum number of species has been increased in your I/O API library, then parms3_mod.F in MCIP needs to be modified to reflect this change). I want to use the Intel compiler on Linux. What else do I need to do? In addition to the compiler options in the Makefile, it may be necessary to also set the following environment variables (noted in C-shell, below, but can be easily adjusted for KSH/BASH): To reverse the order of the bytes on reading MM5 files: setenv F_UFMTENDIAN big To find the shared-object file, libcxa.so.5: setenv LD_LIBRARY_PATH /path-to-your-Intel-compiler/lib To find file ifcore_msg.cat for debugging: setenv NLSPATH /path-to-your-Intel-compiler/lib/%N I don't know the layer structure of the MM5 file. How can I find out what it is? There is a new option in MCIPv3 to run with all of the MM5 layers without specifying the structure in the script. Users can run MCIP for the full MM5/WRF layer structure by setting the script variable CTMLAYs = "-1.0". If layer collapsing is desired, users can run MCIP for one hour with the previous setting for CTMLAYS to determine the structure (which will appear in the log file), then set the CMAQ layer structure based on the MM5/WRF structure. I set BTRIM = 0 to use the full extent of my MM5 files in CMAQ, but the output dimensions smaller by 3 in each dimension. What happened? Actually you are getting the full extent of your MM5 files if you set BTRIM = 0. The output in the METCRO2D and METCRO3D files is 3 smaller in each dimension, but that accounts for two things. First, the MM5 dimensions are in terms of dot points, while the CMAQ dimensions are in terms of scalar (or cross) points (i.e., cells). The dot point dimensions are inherently one larger than the scalar point (e.g., cell) dimensions, so that accounts for one of the three. The other two cells in each dimension are the one-cell picture-frame boundaries for CMAQ. Unlike MM5, the CMAQ files containing the full fields (i.e., GRIDCRO2D, GRIDCRO3D, METCRO2D, METCRO3D) do not include the boundary cells. The CMAQ boundary file (METBDY3D) contains the picture frame around METCRO3D, and METBDY3D was filled using MM5 fields. I heard there was an option to interpolate meteorological fields to finer horizontal grid spacing with MCIP. Is this true? Not anymore. The option existed as "hidden" code in MCIPv2.3 and prior releases, but it had some bugs in it. The code has been removed as of MCIPv3 in favor of some code optimizations. The preferred method of creating fine-scale meteorology is to run the meteorology model at the desired horizontal grid spacing, and then process through MCIP. ================================================ FILE: PREP/mcip/docs/ReleaseNotes ================================================ ******************************************************************************** Announcing the release of MCIP Version 5.5 (19 September 2024) ******************************************************************************** The MCIP code is updated to version 5.5. This is a minor update to MCIP. These release notes and the CHANGES file reflect all changes that have been made to MCIP since MCIPv5.4 (the previous release). Changes to MCIPv5.5 were made by Tanya Spero (U.S. EPA). MCIPv5.5 accompanies CMAQv5.5. If you are using CMAQv5.3+, you must upgrade to use MCIPv5.0+. MCIPv5.5 requires I/O API version 3.1 or greater to support error-checking within the I/O API. MCIPv5.5 requires the netCDF F90 module (rather than the F77 include). MCIP can be cited with the following reference: Otte, T. L., and J. E. Pleim, 2010. The Meteorology-Chemistry Interface Processor (MCIP) for the CMAQ modeling system: updates through MCIPv3.4.1. Geoscientific Model Development, 3, 243-256. A DOI will also be available for CMAQv5.5 (which includes MCIPv5.5). Background on MCIP and other useful information about the CMAQ system can be found online at http://www.epa.gov/cmaq. Inquiries related to potential bugs in MCIPv5.5 for questions related to proper use of the code should be submitted to the MCIP Category in the Forum hosted by the CMAS Center: https://forum.cmascenter.org/c/mcip. Users are encouraged to read the Frequently Asked Questions (FAQ) file. Users should consult the FAQ and other issues raised within the Forum before submitting new inquiries. MCIPv5.5 was tested with the following Fortran compilers under both debug and optimized options (as shown in the Makefile): Intel 21.4 with netCDF 4.9.2 and I/O API 3.2 Nvidia 22.11 with netCDF 4.9.2 and I/O API 3.2 GCC 8.5.0 with netCDF 4.9.2 and I/O API 3.2 With MCIPv5.5, the following remain deprecated: - Including "SOIM1", "SOIM2", "SOIT1", and "SOIT2" in METCRO2D. Those fields are now in a separate file that includes all soil layers and their associated depths (SOI_CRO). - Including "LUFRAC_xx" in GRIDCRO2D. Those fields are now in a separate file that includes each fractional land use classification (LUFRAC_CRO). With MCIPv5.5, the following output variables in METCRO2D remain deprecated: - 2-D cloud fraction (CFRAC) - cloud top (CLDT) - cloud bottom (CLDB) - liquid water content (WBAR) They will be removed from METCRO2D in a forthcoming release of MCIP. Interactions with members of the CMAQ user community led to some of the changes that have been incorporated into MCIPv5.5. The following is a summary of the changes in MCIPv5.5: 1. Changed constraint on XORIG and YORIG for Lambert conformal projections with user-specified runtime reference latitude. Original constraint of 500 meters introduced an error in calculating the location of the lower-left corner (i.e., XORIG and YORIG) in domains with a horizontal grid spacing that is not a multiple of 1 km. Now using a constraint of 5 meters to allow for "neater" XORIG and YORIG values across compilers. 2. Updated WRF option translation for the MCIP metadata for new physics introduced between WRFv4.1 and WRFv4.6. 3. Removed a redundant NF90_OPEN/NF90_CLOSE couplet to improve efficiency. ================================================ FILE: PREP/mcip/scripts/run_mcip.csh ================================================ #!/bin/csh -f #------------------------------------------------------------------------------# # The Community Multiscale Air Quality (CMAQ) system software is in # # continuous development by various groups and is based on information # # from these groups: Federal Government employees, contractors working # # within a United States Government contract, and non-Federal sources # # including research institutions. These groups give the Government # # permission to use, prepare derivative works of, and distribute copies # # of their work in the CMAQ system to the public and to permit others # # to do so. The United States Environmental Protection Agency # # therefore grants similar permission to use the CMAQ system software, # # but users are requested to provide copies of derivative works or # # products designed to operate in the CMAQ system to the United States # # Government without restrictions as to use by others. Software # # that is used with the CMAQ system but distributed under the GNU # # General Public License or the GNU Lesser General Public License is # # subject to their copyright restrictions. # #------------------------------------------------------------------------------# #======================================================================= # # Script: run.mcip # Purpose: Runs Models-3/CMAQ Meteorology-Chemistry Interface # Processor. Part of the US EPA's Models-3/CMAQ system. # Method: In UNIX/Linux: run.mcip >&! mcip.log # Revised: 20 Sep 2001 Original version. (T. Otte) # 18 Oct 2001 Added CoordName to user definitions. Deleted # script variable DomIdMM5. Added Fortran link # for GRIDDESC file. Moved namelist output to # WorkDir, and mmheader output to OutDir. Added # user variables I0, J0, NCOLS, and NROWS for # MCIP windowing. (T. Otte) # 29 Jan 2002 Added new namelist for file names. Generalized # the end-of-namelist delimiter. (T. Otte) # 27 Feb 2002 Removed minimum size for windows. (T. Otte) # 19 Mar 2002 Changed default grid cell for printing. # (T. Otte) # 11 Jun 2003 Clarified instructions on use of BTRIM and # setting I0 and J0 for windowing option. # Removed GRIDBDY2D, GRIDBDY3D, and METBDY2D # from output. (T. Otte) # 01 Jul 2004 Restored GRIDBDY2D to output. (T. Otte) # 29 Nov 2004 Added TERRAIN option for input to get # fractional land use from MM5 preprocessor. # (T. Otte) # 26 May 2005 Changed I0 and J0 to Y0 and X0 to make code # more general. Removed "_G1" from environment # variables for output files. Created two new # user options for calculating dry deposition # velocities. Added capability to process more # than five input meteorology files in a single # MCIP run. (T. Otte) # 27 Feb 2006 Updated automated namelist generator for # Linux on Mac (assumed to be) using the XLF # compiler. (T. Otte) # 24 Jul 2007 Added option to bypass dry deposition velocity # calculations in MCIP so that they can be done # inline in the CCTM. Eliminated options to # use RADM (Wesely) dry deposition, eliminated # multiple versions of M3Dry (Pleim) dry # deposition, and eliminated options and to # recalculate PBL and radiation fields in MCIP. # (T. Otte) # 27 May 2008 Added optional namelist variable to override # earth radius default from MM5 and WRF. # (T. Otte) # Added variables to support GOES satellite # cloud processing (InSatDir, InSatFile, LSAT). # Requires additional data and preprocessing # package available from University of Alabama # at Huntsville. Contributed by University of # Alabama at Huntsville. (A. Biazar and T. Otte) # 23 Dec 2008 Added optional namelist variable to override # default setting for reference latitude for # WRF Lambert conformal projection. (T. Otte) # 19 Mar 2010 Added namelist variable option to compute # and output potential vorticity. Added namelist # variable option to output vertical velocity # predicted by meteorological model. Allow # output from WRF Preprocessing System (WPS) # routine, GEOGRID, to provide fractional land # use output if it is unavailable in WRF output. # Add user option to output u- and v-component # winds on C-staggered grid. (T. Otte) # 09 Sep 2010 Removed option to generate dry deposition # velocities in MCIP. (T. Otte) # 07 Sep 2011 Corrected minor typos in error-checking (as # identified by Debra Baker, Univ. of Maryland). # Updated disclaimer. (T. Otte) # 31 May 2012 Changed comment about MAX_MM to be consistent # with the change to the code. (T. Otte) # 16 Mar 2018 Added new optional output files for land use, # soil, and mosaic output. Now delete rather # than overwrite existing MCIP output files. # (T. Spero) # 18 Dec 2018 Removed support for MM5v3 input. Added runtime # option to choose output format. Removed option # to turn off static output. (T. Spero) # 20 Jun 2019 Removed layer collapsing. Changed LUVCOUT to # to LUVBOUT to make the default output for # u- and v-component winds on the Arakawa-C # staggering. The Arakawa-B staggering is now # optional (additional fields), and the Arakawa-C # staggering is the default. (T. Spero) # 17 Nov 2019 Corrected variable setting for file_geo in # namelist generation code. (T. Spero) #======================================================================= #----------------------------------------------------------------------- # Set identification for input and output files. # # APPL = Application Name (tag for MCIP output file names) # CoordName = Coordinate system name for GRIDDESC # GridName = Grid Name descriptor for GRIDDESC # InMetDir = Directory that contains input meteorology files # InGeoDir = Directory that contains input WRF "GEOGRID" file to # provide fractional land-use categories if "LANDUSEF" # was not included in the WRFOUT files. # OutDir = Directory to write MCIP output files # ProgDir = Directory that contains the MCIP executable # WorkDir = Working Directory for Fortran links and namelist #----------------------------------------------------------------------- source $CMAQ_HOME/config_cmaq.csh set APPL = 160702 set CoordName = LamCon_40N_97W # 16-character maximum set GridName = 2016_12SE1 # 16-character maximum set DataPath = $CMAQ_DATA set InMetDir = $DataPath/wrf set InGeoDir = $DataPath/wrf set OutDir = $DataPath/mcip/$GridName set ProgDir = $CMAQ_HOME/PREP/mcip/src set WorkDir = $OutDir #----------------------------------------------------------------------- # Set name(s) of input meteorology file(s) # # File name(s) must be set inside parentheses since "InMetFiles" is # a C-shell script array. Multiple file names should be space- # delimited. Additional lines can be used when separated by a # back-slash (\) continuation marker. The file names can be as # they appear on your system; MCIP will link the files in by a # Fortran unit number and the explicit name via a namelist. The # files must be listed in chronological order. The maximum number # of input meteorology files must be less than or equal to the number # in MAX_MM in file_mod.F (default is 367). # # Example: # set InMetFiles = ( $InMetDir/wrfout_d01_date1 \ # $InMetDir/wrfout_d01_date2 ) # #----------------------------------------------------------------------- set InMetFiles = ( $InMetDir/subset_wrfout_d01_2016-07-01_00:00:00 \ $InMetDir/subset_wrfout_d01_2016-07-02_00:00:00 \ $InMetDir/subset_wrfout_d01_2016-07-03_00:00:00 ) set IfGeo = "F" set InGeoFile = $InGeoDir/geo_em_d01.nc #----------------------------------------------------------------------- # Set user control options. # # LPV: 0 = Do not compute and output potential vorticity # 1 = Compute and output potential vorticity # # LWOUT: 0 = Do not output vertical velocity # 1 = Output vertical velocity # # LUVBOUT: 0 = Do not output u- and v-component winds on B-grid # 1 = Output u- and v-component winds on B-grid (cell corner) # in addition to the C-grid (cell face) output #----------------------------------------------------------------------- set LPV = 0 set LWOUT = 0 set LUVBOUT = 1 #----------------------------------------------------------------------- # Set run start and end date. (YYYY-MO-DD-HH:MI:SS.SSSS) # MCIP_START: First date and time to be output [UTC] # MCIP_END: Last date and time to be output [UTC] # INTVL: Frequency of output [minutes] #----------------------------------------------------------------------- set MCIP_START = 2016-07-02-00:00:00.0000 # [UTC] set MCIP_END = 2016-07-03-00:00:00.0000 # [UTC] set INTVL = 60 # [min] #----------------------------------------------------------------------- # Choose output format. # 1 = Models-3 I/O API # 2 = netCDF #----------------------------------------------------------------------- set IOFORM = 1 #----------------------------------------------------------------------- # Set number of meteorology "boundary" points to remove on each of four # horizontal sides of MCIP domain. This affects the output MCIP domain # dimensions by reducing meteorology domain by 2*BTRIM + 2*NTHIK + 1, # where NTHIK is the lateral boundary thickness (in BDY files), and the # extra point reflects conversion from grid points (dot points) to grid # cells (cross points). Setting BTRIM = 0 will use maximum of input # meteorology. To remove MM5 lateral boundaries, set BTRIM = 5. # # *** If windowing a specific subset domain of input meteorology, set # BTRIM = -1, and BTRIM will be ignored in favor of specific window # information in X0, Y0, NCOLS, and NROWS. #----------------------------------------------------------------------- set BTRIM = 0 #----------------------------------------------------------------------- # Define MCIP subset domain. (Only used if BTRIM = -1. Otherwise, # the following variables will be set automatically from BTRIM and # size of input meteorology fields.) # X0: X-coordinate of lower-left corner of full MCIP "X" domain # (including MCIP lateral boundary) based on input MM5 domain. # X0 refers to the east-west dimension. Minimum value is 1. # Y0: Y-coordinate of lower-left corner of full MCIP "X" domain # (including MCIP lateral boundary) based on input MM5 domain. # Y0 refers to the north-south dimension. Minimum value is 1. # NCOLS: Number of columns in output MCIP domain (excluding MCIP # lateral boundaries). # NROWS: Number of rows in output MCIP domain (excluding MCIP # lateral boundaries). #----------------------------------------------------------------------- set X0 = 13 set Y0 = 94 set NCOLS = 89 set NROWS = 104 #----------------------------------------------------------------------- # Set coordinates for cell for diagnostic prints on output domain. # If coordinate is set to 0, domain center cell will be used. #----------------------------------------------------------------------- set LPRT_COL = 0 set LPRT_ROW = 0 #----------------------------------------------------------------------- # Optional: Set WRF Lambert conformal reference latitude. # (Handy for matching WRF grids to existing MM5 grids.) # If not set, MCIP will use average of two true latitudes. # To "unset" this variable, set the script variable to "-999.0". # Alternatively, if the script variable is removed here, remove it # from the setting of the namelist (toward the end of the script). #----------------------------------------------------------------------- set WRF_LC_REF_LAT = 40.0 #======================================================================= #======================================================================= # Set up and run MCIP. # Should not need to change anything below here. #======================================================================= #======================================================================= set PROG = mcip date #----------------------------------------------------------------------- # Make sure directories exist. #----------------------------------------------------------------------- if ( ! -d $InMetDir ) then echo "No such input directory $InMetDir" exit 1 endif if ( ! -d $OutDir ) then echo "No such output directory...will try to create one" mkdir -p $OutDir if ( $status != 0 ) then echo "Failed to make output directory, $OutDir" exit 1 endif endif if ( ! -d $ProgDir ) then echo "No such program directory $ProgDir" exit 1 endif #----------------------------------------------------------------------- # Make sure the input files exist. #----------------------------------------------------------------------- if ( $IfGeo == "T" ) then if ( ! -f $InGeoFile ) then echo "No such input file $InGeoFile" exit 1 endif endif foreach fil ( $InMetFiles ) if ( ! -f $fil ) then echo "No such input file $fil" exit 1 endif end #----------------------------------------------------------------------- # Make sure the executable exists. #----------------------------------------------------------------------- if ( ! -f $ProgDir/${PROG}.exe ) then echo "Could not find ${PROG}.exe" exit 1 endif #----------------------------------------------------------------------- # Create a work directory for this job. #----------------------------------------------------------------------- if ( ! -d $WorkDir ) then mkdir -p $WorkDir if ( $status != 0 ) then echo "Failed to make work directory, $WorkDir" exit 1 endif endif cd $WorkDir #----------------------------------------------------------------------- # Set up script variables for input files. #----------------------------------------------------------------------- if ( $IfGeo == "T" ) then if ( -f $InGeoFile ) then set InGeo = $InGeoFile else set InGeo = "no_file" endif else set InGeo = "no_file" endif set FILE_GD = $OutDir/GRIDDESC #----------------------------------------------------------------------- # Create namelist with user definitions. #----------------------------------------------------------------------- set MACHTYPE = `uname` if ( ( $MACHTYPE == "AIX" ) || ( $MACHTYPE == "Darwin" ) ) then set Marker = "/" else set Marker = "&END" endif cat > $WorkDir/namelist.${PROG} << ! &FILENAMES file_gd = "$FILE_GD" file_mm = "$InMetFiles[1]", ! if ( $#InMetFiles > 1 ) then @ nn = 2 while ( $nn <= $#InMetFiles ) cat >> $WorkDir/namelist.${PROG} << ! "$InMetFiles[$nn]", ! @ nn ++ end endif if ( $IfGeo == "T" ) then cat >> $WorkDir/namelist.${PROG} << ! file_geo = "$InGeo" ! endif cat >> $WorkDir/namelist.${PROG} << ! ioform = $IOFORM $Marker &USERDEFS lpv = $LPV lwout = $LWOUT luvbout = $LUVBOUT mcip_start = "$MCIP_START" mcip_end = "$MCIP_END" intvl = $INTVL coordnam = "$CoordName" grdnam = "$GridName" btrim = $BTRIM lprt_col = $LPRT_COL lprt_row = $LPRT_ROW wrf_lc_ref_lat = $WRF_LC_REF_LAT $Marker &WINDOWDEFS x0 = $X0 y0 = $Y0 ncolsin = $NCOLS nrowsin = $NROWS $Marker ! #----------------------------------------------------------------------- # Set links to FORTRAN units. #----------------------------------------------------------------------- rm fort.* if ( -f $FILE_GD ) rm -f $FILE_GD ln -s $FILE_GD fort.4 ln -s $WorkDir/namelist.${PROG} fort.8 set NUMFIL = 0 foreach fil ( $InMetFiles ) @ NN = $NUMFIL + 10 ln -s $fil fort.$NN @ NUMFIL ++ end #----------------------------------------------------------------------- # Set output file names and other miscellaneous environment variables. #----------------------------------------------------------------------- setenv IOAPI_CHECK_HEADERS T setenv EXECUTION_ID $PROG setenv GRID_BDY_2D $OutDir/GRIDBDY2D_${APPL}.nc setenv GRID_CRO_2D $OutDir/GRIDCRO2D_${APPL}.nc setenv GRID_DOT_2D $OutDir/GRIDDOT2D_${APPL}.nc setenv MET_BDY_3D $OutDir/METBDY3D_${APPL}.nc setenv MET_CRO_2D $OutDir/METCRO2D_${APPL}.nc setenv MET_CRO_3D $OutDir/METCRO3D_${APPL}.nc setenv MET_DOT_3D $OutDir/METDOT3D_${APPL}.nc setenv LUFRAC_CRO $OutDir/LUFRAC_CRO_${APPL}.nc setenv SOI_CRO $OutDir/SOI_CRO_${APPL}.nc setenv MOSAIC_CRO $OutDir/MOSAIC_CRO_${APPL}.nc if ( -f $GRID_BDY_2D ) rm -f $GRID_BDY_2D if ( -f $GRID_CRO_2D ) rm -f $GRID_CRO_2D if ( -f $GRID_DOT_2D ) rm -f $GRID_DOT_2D if ( -f $MET_BDY_3D ) rm -f $MET_BDY_3D if ( -f $MET_CRO_2D ) rm -f $MET_CRO_2D if ( -f $MET_CRO_3D ) rm -f $MET_CRO_3D if ( -f $MET_DOT_3D ) rm -f $MET_DOT_3D if ( -f $LUFRAC_CRO ) rm -f $LUFRAC_CRO if ( -f $SOI_CRO ) rm -f $SOI_CRO if ( -f $MOSAIC_CRO ) rm -f $MOSAIC_CRO if ( -f $OutDir/mcip.nc ) rm -f $OutDir/mcip.nc if ( -f $OutDir/mcip_bdy.nc ) rm -f $OutDir/mcip_bdy.nc #----------------------------------------------------------------------- # Execute MCIP. #----------------------------------------------------------------------- $ProgDir/${PROG}.exe if ( $status == 0 ) then rm fort.* exit 0 else echo "Error running $PROG" exit 1 endif ================================================ FILE: PREP/mcip/src/Makefile ================================================ #------------------------------------------------------------------------------# # The Community Multiscale Air Quality (CMAQ) system software is in # # continuous development by various groups and is based on information # # from these groups: Federal Government employees, contractors working # # within a United States Government contract, and non-Federal sources # # including research institutions. These groups give the Government # # permission to use, prepare derivative works of, and distribute copies # # of their work in the CMAQ system to the public and to permit others # # to do so. The United States Environmental Protection Agency # # therefore grants similar permission to use the CMAQ system software, # # but users are requested to provide copies of derivative works or # # products designed to operate in the CMAQ system to the United States # # Government without restrictions as to use by others. Software # # that is used with the CMAQ system but distributed under the GNU # # General Public License or the GNU Lesser General Public License is # # subject to their copyright restrictions. # #------------------------------------------------------------------------------# .SUFFIXES: .SUFFIXES: .o .f90 .F90 MODEL = mcip.exe #...Portland Group Fortran ###FC = /usr/local/apps/nvidia/Linux_x86_64/22.11/compilers/bin/nvfortran ###NETCDF = /usr/local/apps/netcdf-4.9.2/nvhpc-22.11 ###IOAPI_ROOT = /usr/local/apps/ioapi-3.2/nvhpc-22.11 ###FFLAGS = -g -O0 -Ktrap=unf -Ktrap=ovf -Ktrap=divz -Ktrap=inv -Ktrap=fp \ ### -Ktrap=inexact -pc 32 -Mbounds -Mchkptr -Kieee \ ### -Minform,inform -Mfree -byteswapio -I$(NETCDF)/include \ ### -I$(IOAPI_ROOT)/Linux2_x86_64pg ###FFLAGS = -O4 -fastsse -pc 32 -Mfree -byteswapio -I$(NETCDF)/include \ ### -I$(IOAPI_ROOT)/Linux2_x86_64pg ###LIBS = -L$(IOAPI_ROOT)/Linux2_x86_64pg -lioapi \ ### -L$(NETCDF)/lib -lnetcdff -lnetcdf #...gfortran ###FC = gfortran ###NETCDF = /usr/local/apps/netcdf-4.9.2/gcc-8.5 ###IOAPI_ROOT = /usr/local/apps/ioapi-3.2/gcc-8.5 ###FFLAGS = -O3 -I$(NETCDF)/include -I$(IOAPI_ROOT)/Linux2_x86_64 ###FFLAGS = -g -O0 \ ### -ffpe-trap='invalid','zero','overflow','underflow' \ ### -I$(NETCDF)/include -I$(IOAPI_ROOT)/Linux2_x86_64 ###LIBS = -L$(IOAPI_ROOT)/Linux2_x86_64 -lioapi \ ### -L$(NETCDF)/lib -lnetcdff -lnetcdf #...Intel Fortran FC = ifort NETCDF = /usr/local/apps/netcdf-4.9.2/intel-21.4 IOAPI_ROOT = /usr/local/apps/ioapi-3.2/intel-21.4 ###FFLAGS = -g -O0 -check all -C -traceback -FR -I$(NETCDF)/include \ ### -I$(IOAPI_ROOT)/Linux2_x86_64ifort FFLAGS = -O3 -traceback -FR -I$(NETCDF)/include \ -I$(IOAPI_ROOT)/Linux2_x86_64ifort LIBS = -L$(IOAPI_ROOT)/lib -lioapi \ -L$(NETCDF)/lib -lnetcdff -lnetcdf DEFS = MODULES =\ const_mod.o \ const_pbl_mod.o \ coord_mod.o \ ctmvars_mod.o \ date_time_mod.o \ date_pack_mod.o \ files_mod.o \ lucats_mod.o \ mcipparm_mod.o \ metinfo_mod.o \ metvars_mod.o \ netcdf_io_mod.o \ vgrd_mod.o \ xvars_mod.o OBJS =\ mcip.o \ alloc_ctm.o \ alloc_met.o \ alloc_x.o \ bcldprc_ak.o \ blddesc.o \ chkwpshdr.o \ chkwrfhdr.o \ close_files.o \ comheader.o \ comheader_lufrac.o \ comheader_mos.o \ comheader_soi.o \ ctmout.o \ ctmproc.o \ dealloc_ctm.o \ dealloc_met.o \ dealloc_x.o \ detangle_soil_px.o \ e_aerk.o \ dynflds.o \ getluse.o \ getmet.o \ getpblht.o \ getpsih.o \ getsdt.o \ graceful_stop.o \ gridout.o \ gridproc.o \ init_ctm.o \ init_io.o \ init_met.o \ init_x.o \ julian.o \ layht.o \ ll2xy_lam.o \ ll2xy_lam_sec.o \ ll2xy_lam_tan.o \ ll2xy_merc.o \ ll2xy_ps.o \ locate.o \ mapfac_lam.o \ mapfac_merc.o \ mapfac_ps.o \ metgrid2ctm.o \ metvars2ctm.o \ outclog.o \ outcm3io.o \ outglog.o \ outgm3io.o \ outncf.o \ outncfbdy.o \ outncfglobal.o \ pblsup.o \ ptemp.o \ pvs.o \ qsat.o \ rdwrfem.o \ readnml.o \ resistcalc.o \ setgriddefs.o \ setup.o \ setup_wrfem.o \ sfclayer.o \ statflds.o \ vertarys.o \ vertnhy_wrf.o \ vstamp.o \ vtemp.o \ wind.o \ wrfemopts.o \ wrgdesc.o \ xy2ll_lam.o \ xy2ll_merc.o all: @$(MAKE) $(MODULES) @$(MAKE) $(MODEL) $(MODEL): $(OBJS) $(FC) -o $(MODEL) $(FFLAGS) $(OBJS) $(MODULES) $(LIBS) $(OBJS): $(MODULES) .f90.o: $(FC) $(FFLAGS) $(INCLUDES) -c $< .F90.o: $(FC) $(FFLAGS) $(INCLUDES) -c $< $(DEFS) clean: rm -f *.o *.mod *.il $(MODEL) ================================================ FILE: PREP/mcip/src/alloc_ctm.f90 ================================================ !------------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------------! SUBROUTINE alloc_ctm !------------------------------------------------------------------------------- ! Name: Allocate Arrays for CTM Dimensions ! Purpose: Allocate arrays based on CTM grid. ! Revised: 14 Sep 2001 Original version. (T. Otte) ! 27 Feb 2002 Renamed SURF2 as WIND10. Removed RIB. (T. Otte) ! 18 Mar 2003 Removed JDRATE. (T. Otte) ! 09 Jun 2003 Added SNOCOV to METCRO2D. (D. Schwede) ! Removed extraneous variables from output. (T. Otte) ! 09 Aug 2004 Added JACOBS, WSPD10, WDIR10, SOIM1, SOIM2, SOIT1, ! SOIT2, SLTYP, JACOBF, QG, TEMP2, and LAI. Restored ! GRIDBDY2D file to output. Modified code so that arrays ! are made available in output only if user options in ! MM5 generate those data. (T. Otte and D. Schwede) ! 29 Nov 2004 Added PURB. (T. Otte) ! 25 Feb 2005 Eliminated GRIDCRO3D for hydrostatic runs. (T. Otte) ! 19 Aug 2005 Moved VD_C from a pointer to MC2 to an individual ! array that is allocated in ALLOC_DEPV. (T. Otte) ! 14 Jul 2006 Updated condition for GRID_CRO_3D fields to reflect ! new vertical structure indicator for WRF. Added ! new output field LWMASK. (T. Otte) ! 25 Jul 2007 Removed TEM1P5 and TEMP10. Write TEMP2 regardless ! of whether or not it is part of input meteorology. ! Added VEG to output, made LAI a general output field, ! and added WR to output to support inline dry ! deposition velocity calculations in CCTM. Added ! fractional land use. Removed RBNDYI and JACOBS. ! (T. Otte) ! 21 Apr 2008 Replaced NBNDYD with NBNDY in allocation of boundary ! arrays. Added 2-m mixing ratio (Q2_C) and turbulent ! kinetic energy (TKE_C and TKE_B) arrays. (T. Otte) ! 29 Oct 2009 Added potential vorticity (PVC_C and PVC_B). Added ! latitude, longitude, and map-scale factors squared ! on U and V faces to GRIDDOT2D. Allow output variable ! PURB to be created with urban model in WRF. Remove ! vertical velocity (predicted by the meteorological ! model; WWIND) from output by default; retain user ! option to output 3D field. Add user option to output ! u- and v-component winds (UWINDC and VWINDC) on ! C-staggered grid. (T. Otte) ! 14 Dec 2010 Added sea ice. (T. Otte) ! 11 Aug 2011 Replaced module PARMS3 with I/O API module M3UTILIO. ! (T. Otte) ! 07 Sep 2011 Updated disclaimer. (T. Otte) ! 10 Apr 2015 Added new arrays CFRAC3D_C and CFRAC3D_B to pass 3D ! resolved cloud fraction to output. (T. Spero) ! 20 Aug 2015 Changed latent heat flux from QFX to LH. (T. Spero) ! 16 Mar 2018 Added SNOWH to METCRO2D output. Added 3d soil, land ! use and mosaic arrays. (T. Spero) ! 27 Jun 2018 Consolidated output variables into a single module ! CTMVARS. Allocate data structures. (T. Spero) ! 14 Sep 2018 Removed support for MM5v3 input. (T. Spero) ! 18 Dec 2018 Updated to use new data structures. (T. Spero) ! 18 Jun 2019 Added new surface variables with PX LSM that can ! improve dust simulation in CCTM. Changed variable ! LUVCOUT to LUVBOUT to reflect that the default 3D wind ! components are on the Arakawa-C staggered grid, and ! the optional additional 3D winds are on the Arakawa-B ! staggered grid. Added optional variables from KF ! convective scheme with radiative feedbacks. (T. Spero) !------------------------------------------------------------------------------- USE coord USE vgrd USE metinfo USE mcipparm USE ctmvars IMPLICIT NONE INTEGER :: nn INTEGER :: nwr INTEGER :: nsoil2d INTEGER :: npxwrf41 INTEGER :: ntke INTEGER :: npv INTEGER :: nwout INTEGER :: ncld3d INTEGER :: nkfrad !------------------------------------------------------------------------------- ! Allocate grid arrays for COORD. !------------------------------------------------------------------------------- ALLOCATE ( vglvs_gd ( nlays+1 ) ) ALLOCATE ( x3face_gd ( 0:nlays ) ) !------------------------------------------------------------------------------- ! Allocate grid arrays for VGRD. !------------------------------------------------------------------------------- ALLOCATE ( x3face ( 0:nlays ) ) ALLOCATE ( x3midl ( nlays ) ) !------------------------------------------------------------------------------- ! Time-independent 2d fields at cell centers. !------------------------------------------------------------------------------- nfld2dxy = 6 IF ( iflufrc ) THEN nfld2dxy = nfld2dxy + 1 ! adds PURB ENDIF ALLOCATE ( fld2dxy ( nfld2dxy ) ) DO nn = 1, nfld2dxy ALLOCATE ( fld2dxy(nn)%fld(ncols,nrows) ) ALLOCATE ( fld2dxy(nn)%bdy(nbndy) ) ENDDO g_lat => fld2dxy( 1) g_lon => fld2dxy( 2) g_msfx2 => fld2dxy( 3) g_ht => fld2dxy( 4) g_dluse => fld2dxy( 5) g_lwmask => fld2dxy( 6) IF ( iflufrc ) THEN g_purb => fld2dxy( 7) ENDIF !------------------------------------------------------------------------------- ! Time-independent 2d fields at cell corners and cell faces. ! ! These arrays are all set to the dot-point dimensions to accommodate the ! false dot points in the Arakawa-C staggered grid that are output in ! Models-3 I/O API "DOT" files. When the output is written in netCDF, the ! true dimensions of the Arakawa-C staggered fields are used. !------------------------------------------------------------------------------- nfld2dxy_d = 9 ALLOCATE ( fld2dxy_d ( nfld2dxy_d ) ) DO nn = 1, nfld2dxy_d ALLOCATE ( fld2dxy_d(nn)%fld(ncols+1,nrows+1) ) ENDDO g_latd => fld2dxy_d( 1) g_lond => fld2dxy_d( 2) g_msfd2 => fld2dxy_d( 3) g_latu => fld2dxy_d( 4) g_lonu => fld2dxy_d( 5) g_msfu2 => fld2dxy_d( 6) g_latv => fld2dxy_d( 7) g_lonv => fld2dxy_d( 8) g_msfv2 => fld2dxy_d( 9) !------------------------------------------------------------------------------- ! Time-independent 3d fields (fractional land use) at cell centers. !------------------------------------------------------------------------------- IF ( iflufrc ) THEN nfld3dxyl = 1 ALLOCATE ( fld3dxyl ( nfld3dxyl ) ) DO nn = 1, nfld3dxyl ALLOCATE ( fld3dxyl(nn)%fld(ncols,nrows,nummetlu) ) ENDDO g_lufrac => fld3dxyl( 1) ELSE nfld3dxyl = 0 ENDIF !------------------------------------------------------------------------------- ! Time-varying 2d fields at cell centers. !------------------------------------------------------------------------------- IF ( ifwr ) THEN nwr = 1 ! WR ELSE nwr = 0 ENDIF IF ( ifsoil ) THEN nsoil2d = 5 ! SOIM1, SOIM2, SOIT1, SOIT2, SLTYP ELSE nsoil2d = 0 ENDIF IF ( ifpxwrf41 ) THEN npxwrf41 = 6 ! WSAT_PX, WFC_PX, WWLT_PX, CSAND_PX, FMSAND_PX, CLAY_PX ELSE npxwrf41 = 0 ENDIF nfld2dxyt = 29 + nwr + nsoil2d + npxwrf41 ALLOCATE ( fld2dxyt ( nfld2dxyt ) ) DO nn = 1, nfld2dxyt ALLOCATE ( fld2dxyt(nn)%fld(ncols,nrows) ) ENDDO c_prsfc => fld2dxyt( 1) c_ustar => fld2dxyt( 2) c_wstar => fld2dxyt( 3) c_pbl => fld2dxyt( 4) c_zruf => fld2dxyt( 5) c_moli => fld2dxyt( 6) c_hfx => fld2dxyt( 7) c_lh => fld2dxyt( 8) c_radyni => fld2dxyt( 9) c_rstomi => fld2dxyt(10) c_tempg => fld2dxyt(11) c_temp2 => fld2dxyt(12) c_q2 => fld2dxyt(13) c_wspd10 => fld2dxyt(14) c_wdir10 => fld2dxyt(15) c_glw => fld2dxyt(16) c_gsw => fld2dxyt(17) c_rgrnd => fld2dxyt(18) c_rn => fld2dxyt(19) c_rc => fld2dxyt(20) c_cfrac => fld2dxyt(21) c_cldt => fld2dxyt(22) c_cldb => fld2dxyt(23) c_wbar => fld2dxyt(24) c_snocov => fld2dxyt(25) c_veg => fld2dxyt(26) c_lai => fld2dxyt(27) c_seaice => fld2dxyt(28) c_snowh => fld2dxyt(29) IF ( ifwr ) THEN c_wr => fld2dxyt(29+nwr) ENDIF IF ( ifsoil ) THEN c_soim1 => fld2dxyt(29+nwr+1) c_soim2 => fld2dxyt(29+nwr+2) c_soit1 => fld2dxyt(29+nwr+3) c_soit2 => fld2dxyt(29+nwr+4) c_sltyp => fld2dxyt(29+nwr+5) ENDIF IF ( ifpxwrf41 ) THEN c_wsat_px => fld2dxyt(29+nwr+nsoil2d+1) c_wfc_px => fld2dxyt(29+nwr+nsoil2d+2) c_wwlt_px => fld2dxyt(29+nwr+nsoil2d+3) c_csand_px => fld2dxyt(29+nwr+nsoil2d+4) c_fmsand_px => fld2dxyt(29+nwr+nsoil2d+5) c_clay_px => fld2dxyt(29+nwr+nsoil2d+6) ENDIF !------------------------------------------------------------------------------- ! Time-varying 3d fields at cell centers. !------------------------------------------------------------------------------- IF ( iftke ) THEN ntke = 1 ! TKE ELSE ntke = 0 ENDIF IF ( lpv > 0 ) THEN npv = 1 ! PV ELSE npv = 0 ENDIF IF ( lwout > 0 ) THEN nwout = 1 ! WWIND ELSE nwout = 0 ENDIF IF ( ifcld3d ) THEN ncld3d = 1 ! CFRAC_3D ELSE ncld3d = 0 ENDIF nfld3dxyzt = 10 + ntke + npv + nwout + ncld3d ALLOCATE ( fld3dxyzt ( nfld3dxyzt ) ) DO nn = 1, nfld3dxyzt ALLOCATE ( fld3dxyzt(nn)%fld(ncols,nrows,nlays) ) ALLOCATE ( fld3dxyzt(nn)%bdy(nbndy,nlays) ) ENDDO c_jacobf => fld3dxyzt( 1) c_jacobm => fld3dxyzt( 2) c_densa_j => fld3dxyzt( 3) c_what_jd => fld3dxyzt( 4) c_ta => fld3dxyzt( 5) c_qv => fld3dxyzt( 6) c_pres => fld3dxyzt( 7) c_dens => fld3dxyzt( 8) c_zh => fld3dxyzt( 9) c_zf => fld3dxyzt(10) IF ( iftke ) THEN c_tke => fld3dxyzt(10+ntke) ENDIF IF ( lpv > 0 ) THEN c_pv => fld3dxyzt(10+ntke+npv) ENDIF IF ( lwout > 0 ) THEN c_wwind => fld3dxyzt(10+ntke+npv+nwout) ENDIF IF ( ifcld3d ) THEN c_cfrac_3d => fld3dxyzt(10+ntke+npv+nwout+ncld3d) ENDIF IF ( ifkfradextras ) THEN nkfrad = 4 ELSE nkfrad = 0 ENDIF nfld3dxyzt_q = nqspecies + nkfrad IF ( nqspecies > 0 ) THEN ALLOCATE ( fld3dxyzt_q ( nfld3dxyzt_q ) ) DO nn = 1, nfld3dxyzt_q ALLOCATE ( fld3dxyzt_q(nn)%fld(ncols,nrows,nlays) ) ALLOCATE ( fld3dxyzt_q(nn)%bdy(nbndy,nlays) ) ENDDO c_qc => fld3dxyzt_q(1) c_qr => fld3dxyzt_q(2) IF ( nqspecies >= 4 ) THEN c_qi => fld3dxyzt_q(3) c_qs => fld3dxyzt_q(4) IF ( nqspecies >= 5 ) THEN c_qg => fld3dxyzt_q(5) ENDIF ENDIF IF ( ifkfradextras ) THEN c_qc_cu => fld3dxyzt_q(nqspecies+1) c_qi_cu => fld3dxyzt_q(nqspecies+2) c_cldfra_dp => fld3dxyzt_q(nqspecies+3) c_cldfra_sh => fld3dxyzt_q(nqspecies+4) ENDIF ENDIF !------------------------------------------------------------------------------- ! Time-varying 3d fields at cell corners and cell faces. ! ! These arrays are all set to the dot-point dimensions to accommodate the ! false dot points in the Arakawa-C staggered grid that are output in ! Models-3 I/O API "DOT" files. When the output is written in netCDF, the ! true dimensions of the Arakawa-C staggered fields are used. !------------------------------------------------------------------------------- IF ( luvbout > 0 ) THEN nfld3dxyzt_d = 6 ELSE nfld3dxyzt_d = 4 ENDIF ALLOCATE ( fld3dxyzt_d ( nfld3dxyzt_d ) ) DO nn = 1, nfld3dxyzt_d ALLOCATE ( fld3dxyzt_d(nn)%fld(ncols+1,nrows+1,nlays) ) ENDDO c_uwindc => fld3dxyzt_d( 1) c_vwindc => fld3dxyzt_d( 2) c_uhat_jd => fld3dxyzt_d( 3) c_vhat_jd => fld3dxyzt_d( 4) IF ( luvbout > 0 ) THEN c_uwind => fld3dxyzt_d( 5) c_vwind => fld3dxyzt_d( 6) ENDIF !------------------------------------------------------------------------------- ! Time-varying 3d fields (soil layers) at cell centers. !------------------------------------------------------------------------------- IF ( ifsoil ) THEN nfld3dxyst = 2 ALLOCATE ( fld3dxyst ( nfld3dxyst ) ) DO nn = 1, nfld3dxyst ALLOCATE ( fld3dxyst(nn)%fld(ncols,nrows,metsoi) ) ENDDO c_soit3d => fld3dxyst( 1) c_soim3d => fld3dxyst( 2) ELSE nfld3dxyst = 0 ENDIF !------------------------------------------------------------------------------- ! Time-varying 3d fields (mosaic land use categories) at cell centers. !------------------------------------------------------------------------------- IF ( ifmosaic ) THEN nfld3dxymt = 7 ALLOCATE ( fld3dxymt ( nfld3dxymt ) ) DO nn = 1, nfld3dxymt ALLOCATE ( fld3dxymt(nn)%fld(ncols,nrows,nummosaic) ) ENDDO c_lufrac2 => fld3dxymt( 1) c_moscat => fld3dxymt( 2) c_lai_mos => fld3dxymt( 3) c_rai_mos => fld3dxymt( 4) c_rsi_mos => fld3dxymt( 5) c_tsk_mos => fld3dxymt( 6) c_znt_mos => fld3dxymt( 7) ELSE nfld3dxymt = 0 ENDIF END SUBROUTINE alloc_ctm ================================================ FILE: PREP/mcip/src/alloc_met.f90 ================================================ !------------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------------! SUBROUTINE alloc_met !------------------------------------------------------------------------------- ! Name: Allocate Meteorology Variables ! Purpose: Allocate arrays for input meteorology variables. ! Revised: 10 Sep 2001 Original version. (T. Otte) ! 29 May 2003 Added SNOWCOVR. (D. Schwede) ! 09 Aug 2004 Added QGA, VEGOLD, and T2. (D. Schwede and T. Otte) ! 29 Nov 2004 Added LUFRAC. (T. Otte) ! 04 Apr 2005 Changed array dimensions from I,J to X,Y to make code ! more general. Now all meteorology arrays will have ! the east-west index first, as opposed to the standard ! MM5 convention. For MM5 input, arrays are transposed ! to the new convention in either RDMM5V2 or RDMM5V3. ! Removed unused variables REGIME and MAVAIL. Added PH, ! PHB, PB, MU, and MUB for WRF. Added U10 and V10. ! (T. Otte and S.-B. Kim) ! 11 Aug 2005 Removed unused variable FSOIL. (T. Otte) ! 25 Jul 2007 Removed internal variables for emissivity and net ! radiation. Eliminated logical variable "PX" to make ! code more general. (T. Otte) ! 05 May 2008 Added 2-m mixing ratio (Q2) and turbulent kinetic ! energy (TKE) arrays. Added urban fraction (FRC_URB) ! and urban roughness length (Z0C_URB2D) for ! MET_UCMCALL=1. (T. Otte) ! 29 Oct 2009 Changed MET_UCMCALL to MET_URBAN_PHYS, and allowed ! for variable to be set to be greater than 1. Added ! THETA and CORIOLIS for when potential vorticity is ! needed. Added LATU, LONU, MAPU, LATV, LONV, and ! and MAPV. Removed Z0C_URB2D. (T. Otte) ! 15 Dec 2010 Added sea ice. Added tipping buckets for convective ! and non-convective precipitation. (T. Otte) ! 07 Sep 2011 Updated disclaimer. (T. Otte) ! 11 Sep 2012 Added LANDMASK to be read from WRF. (T. Otte) ! 10 Apr 2015 Added new array CLDFRA to pass 3D resolved cloud ! fraction to output. (T. Spero) ! 21 Aug 2015 Changed latent heat flux from QFX to LH. Fill THETA ! and add moisture flux (QFX) for IFMOLACM. (T. Spero) ! 17 Sep 2015 Changed IFMOLACM to IFMOLPX. (T. Spero) ! 16 Mar 2018 Added SNOWH to output. Added C1H, C2H, C1F, and C2F to ! support hybrid vertical coordinate in WRF. Added ! LUFRAC2, MOSCATIDX, ZNT_MOS, TSK_MOS, RA_MOS, RS_MOS, ! and LAI_MOS for NOAH Mosaic land-surface model. ! Added DZS, SOIT3D, and SOIM3D. Added WSPDSFC and ! XLAIDYN for Noah. (T. Spero) ! 27 Jun 2018 Removed local aliases for dimensions of input ! meteorological fields. (T. Spero) ! 14 Sep 2018 Changed condition to enable hybrid vertical coordinate ! from WRF. Removed support for MM5v3 input. (T. Spero) ! 18 Jun 2019 Added new surface variables with PX LSM that can ! improve dust simulation in CCTM. Added optional ! variables from KF convective scheme with radiative ! feedbacks. (T. Spero) !------------------------------------------------------------------------------- USE metinfo USE metvars USE mcipparm IMPLICIT NONE !------------------------------------------------------------------------------- ! Allocate time-invariant fields. !------------------------------------------------------------------------------- ALLOCATE ( albedo (met_nx, met_ny) ) ! time varying in P-X LSM ALLOCATE ( landmask (met_nx, met_ny) ) ! time varying in NOAH LSM ALLOCATE ( landuse (met_nx, met_ny) ) ALLOCATE ( latcrs (met_nx, met_ny) ) ALLOCATE ( latdot (met_nx, met_ny) ) ALLOCATE ( latu (met_nx, met_ny) ) ALLOCATE ( latv (met_nx, met_ny) ) ALLOCATE ( loncrs (met_nx, met_ny) ) ALLOCATE ( londot (met_nx, met_ny) ) ALLOCATE ( lonu (met_nx, met_ny) ) ALLOCATE ( lonv (met_nx, met_ny) ) ALLOCATE ( mapcrs (met_nx, met_ny) ) ALLOCATE ( mapdot (met_nx, met_ny) ) ALLOCATE ( mapu (met_nx, met_ny) ) ALLOCATE ( mapv (met_nx, met_ny) ) ALLOCATE ( sigmaf (met_nz+1) ) ALLOCATE ( sigmah (met_nz) ) ALLOCATE ( terrain (met_nx, met_ny) ) ALLOCATE ( znt (met_nx, met_ny) ) IF ( iflufrc ) THEN ALLOCATE ( lufrac (met_nx, met_ny, nummetlu) ) IF ( ifmosaic ) THEN ALLOCATE ( lufrac2 (met_nx, met_ny, nummetlu) ) ALLOCATE ( moscatidx (met_nx, met_ny, nummetlu) ) ENDIF ENDIF IF ( lpv > 0 ) THEN ! potential vorticity; get Coriolis ALLOCATE ( coriolis (met_nx, met_ny) ) ENDIF IF ( met_hybrid >= 0 ) THEN ALLOCATE ( c1f (met_nz+1) ) ALLOCATE ( c1h (met_nz) ) ALLOCATE ( c2f (met_nz+1) ) ALLOCATE ( c2h (met_nz) ) ENDIF IF ( met_ns > 0 ) THEN ALLOCATE ( dzs (met_ns) ) ENDIF !------------------------------------------------------------------------------- ! Allocate time-varying fields. !------------------------------------------------------------------------------- ALLOCATE ( glw (met_nx, met_ny) ) ALLOCATE ( groundt (met_nx, met_ny) ) ALLOCATE ( hfx (met_nx, met_ny) ) ALLOCATE ( i_rainc (met_nx, met_ny) ) ALLOCATE ( i_rainnc(met_nx, met_ny) ) ALLOCATE ( ircold (met_nx, met_ny) ) ALLOCATE ( irnold (met_nx, met_ny) ) ALLOCATE ( lh (met_nx, met_ny) ) ALLOCATE ( pp (met_nx, met_ny, met_nz) ) ALLOCATE ( psa (met_nx, met_ny) ) ALLOCATE ( qca (met_nx, met_ny, met_nz) ) ALLOCATE ( qga (met_nx, met_ny, met_nz) ) ALLOCATE ( qia (met_nx, met_ny, met_nz) ) ALLOCATE ( qra (met_nx, met_ny, met_nz) ) ALLOCATE ( qsa (met_nx, met_ny, met_nz) ) ALLOCATE ( qva (met_nx, met_ny, met_nz) ) ALLOCATE ( raincon (met_nx, met_ny) ) ALLOCATE ( rainnon (met_nx, met_ny) ) ALLOCATE ( rcold (met_nx, met_ny) ) ! save this variable on each call ALLOCATE ( rgrnd (met_nx, met_ny) ) ALLOCATE ( rnold (met_nx, met_ny) ) ! save this variable on each call ALLOCATE ( seaice (met_nx, met_ny) ) ALLOCATE ( snowcovr(met_nx, met_ny) ) ALLOCATE ( snowh (met_nx, met_ny) ) ALLOCATE ( ta (met_nx, met_ny, met_nz) ) ALLOCATE ( ua (met_nx, met_ny, met_nz) ) ALLOCATE ( ust (met_nx, met_ny) ) ALLOCATE ( va (met_nx, met_ny, met_nz) ) ALLOCATE ( wa (met_nx, met_ny, met_nz+1) ) ALLOCATE ( zpbl (met_nx, met_ny) ) IF ( ift2m ) THEN ! 2-m temperature available ALLOCATE ( t2 (met_nx, met_ny) ) ENDIF IF ( ifq2m ) THEN ! 2-m mixing ratio available ALLOCATE ( q2 (met_nx, met_ny) ) ENDIF IF ( ifw10m ) THEN ! 10-m wind components available ALLOCATE ( u10 (met_nx, met_ny) ) ALLOCATE ( v10 (met_nx, met_ny) ) ENDIF IF ( met_model == 2 ) THEN ! WRF ALLOCATE ( mu (met_nx, met_ny) ) ALLOCATE ( mub (met_nx, met_ny) ) ALLOCATE ( pb (met_nx, met_ny, met_nz) ) ALLOCATE ( ph (met_nx, met_ny, met_nz+1) ) ALLOCATE ( phb (met_nx, met_ny, met_nz+1) ) ENDIF IF ( iflai ) THEN ! leaf area index available ALLOCATE ( lai (met_nx, met_ny) ) ENDIF IF ( ifmol ) THEN ! Monin-Obukhov length available ALLOCATE ( mol (met_nx, met_ny) ) ENDIF IF ( ifresist ) THEN ! aerodynamic and stomatal resistances available ALLOCATE ( ra (met_nx, met_ny) ) ALLOCATE ( rstom (met_nx, met_ny) ) ENDIF IF ( ifveg ) THEN ! vegetation fraction available ALLOCATE ( veg (met_nx, met_ny) ) ENDIF IF ( ifwr ) THEN ! canopy wetness available ALLOCATE ( wr (met_nx, met_ny) ) ENDIF IF ( ifsoil ) THEN ! soil moisture, temperature, and type available ALLOCATE ( isltyp (met_nx, met_ny) ) ALLOCATE ( soilt1 (met_nx, met_ny) ) ALLOCATE ( soilt2 (met_nx, met_ny) ) ALLOCATE ( w2 (met_nx, met_ny) ) ALLOCATE ( wg (met_nx, met_ny) ) ALLOCATE ( soim3d (met_nx, met_ny, met_ns) ) ALLOCATE ( soit3d (met_nx, met_ny, met_ns) ) ENDIF IF ( iftke ) THEN ! turbulent kinetic energy available IF ( iftkef ) THEN ! TKE on full-levels ALLOCATE ( tke (met_nx, met_ny, met_nz+1) ) ELSE ! TKE on half-levels ALLOCATE ( tke (met_nx, met_ny, met_nz) ) ENDIF ENDIF IF ( lpv > 0 .OR. ifmolpx ) THEN ! need potential temperature ALLOCATE ( theta (met_nx, met_ny, met_nz) ) ENDIF IF ( ifmolpx ) THEN ! recalculate Monin-Obukhov length for WRF-ACM2 ALLOCATE ( qfx (met_nx, met_ny) ) ENDIF IF ( met_urban_phys >= 1 ) THEN ! urban canopy model in WRF ALLOCATE ( frc_urb (met_nx, met_ny) ) ENDIF IF ( ifcld3d ) THEN ALLOCATE ( cldfra (met_nx, met_ny, met_nz) ) ENDIF IF ( ifmosaic ) THEN ALLOCATE ( lai_mos (met_nx, met_ny, nummosaic) ) ALLOCATE ( ra_mos (met_nx, met_ny, nummosaic) ) ALLOCATE ( rs_mos (met_nx, met_ny, nummosaic) ) ALLOCATE ( tsk_mos (met_nx, met_ny, nummosaic) ) ALLOCATE ( znt_mos (met_nx, met_ny, nummosaic) ) ALLOCATE ( wspdsfc (met_nx, met_ny) ) ALLOCATE ( xlaidyn (met_nx, met_ny) ) ENDIF IF ( ifpxwrf41 ) THEN ALLOCATE ( lai_px (met_nx, met_ny) ) ALLOCATE ( wsat_px (met_nx, met_ny) ) ALLOCATE ( wfc_px (met_nx, met_ny) ) ALLOCATE ( wwlt_px (met_nx, met_ny) ) ALLOCATE ( csand_px (met_nx, met_ny) ) ALLOCATE ( fmsand_px (met_nx, met_ny) ) ALLOCATE ( clay_px (met_nx, met_ny) ) ENDIF IF ( ifkfradextras ) THEN ALLOCATE ( qc_cu (met_nx, met_ny, met_nz) ) ALLOCATE ( qi_cu (met_nx, met_ny, met_nz) ) ALLOCATE ( cldfra_dp (met_nx, met_ny, met_nz) ) ALLOCATE ( cldfra_sh (met_nx, met_ny, met_nz) ) ENDIF END SUBROUTINE alloc_met ================================================ FILE: PREP/mcip/src/alloc_x.f90 ================================================ !------------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------------! SUBROUTINE alloc_x !------------------------------------------------------------------------------- ! Name: Allocate X Arrays ! Purpose: Allocate X arrays with MCIP transfer array dimensions. ! Revised: 19 Sep 2001 Original version. (T. Otte) ! 14 Jan 2002 Added new dry deposition species, methanol. ! (Y. Wu and T. Otte) ! 27 Feb 2002 Renamed SURF2 as WIND10 and SURF1 as TEMP1P5. (T. Otte) ! 18 Mar 2003 Removed XJDRATE. Expanded dot-point array dimensions ! to be (NCOLS_X+1, NROWS_X+1). (T. Otte) ! 09 Jun 2003 Added XF2DEF, XSNOCOV, XDELTA, XLSTWET, and XRH. ! Added new dry deposition species: N2O5, NO3, and ! generic aldehyde. Removed dry deposition species, ! ATRA and ATRAP, from output. (D. Schwede, T. Otte, ! and J. Pleim) ! 10 Aug 2004 Added XQGRAUP, XWSPD10, XWDIR10, and XT2. Removed ! XFLAGS, XINDEX, XNAMES, and XLUSNAME. (T. Otte and ! D. Schwede) ! 01 Dec 2004 Added XPURB. (T. Otte) ! 04 Apr 2005 Removed unused variables XREGIME, XRTOLD, XPRSOLD, and ! XDENSAM_REF. Moved XDFLUX and XPSRATE as local ! variables in VERTHYD. Added XMU and XGEOF for WRF. ! Changed XUU and XVV to XUU_D and XVV_D, and changed ! XUHAT and XVHAT to XUU_S and XVV_T. Added pointer ! indices for optional chlorine and mercury species. ! Removed XENTRP. Added XU10 and XV10. (T. Otte) ! 19 Aug 2005 Removed XDEPIDX and pointers to XDEPIDX. Moved ! XDEPSPC and XVD to ALLOC_DEPV. Removed unused ! variables XCAPG, XMMPASS, and XFSOIL. Removed XRH and ! made it a local scalar in M3DRY. (T. Otte and ! W. Hutzell) ! 14 Jul 2006 Removed XDELTA and XLSTWET to be local variables in ! M3DRY. Added XLWMASK. (T. Otte) ! 30 Jul 2007 Added IMPLICIT NONE. Changed XUSTAR and XRADYN ! to 2D arrays without a dimension for fractional land ! use that was required for RADMdry. Removed XRBNDY. ! Removed low, middle, and high cloud arrays. Removed ! 1.5-m and 10-m temperature arrays. Create 2-m ! temperature array even if it is not part of input ! meteorology. Changed 2-m temperature from XT2 to ! XTEMP2. Removed XRNET and XEMISS. Removed XF2DEF and ! XRSTMIN to be local variables in RESISTCALC. Added ! XPSTAR0. (T. Otte) ! 21 Apr 2008 Added 2-m mixing ratio (XQ2) and turbulent kinetic ! energy (XTKE) arrays. (T. Otte) ! 29 Oct 2009 Added land-use category description, XLUDESC. Added ! potential vorticity (XPVC), Coriolis (XCORL), and ! potential temperature (XTHETA). Added map-scale ! factors squared (on cross points, XMAPC2). Added ! XLATU, XLONU, XMAPU, XLATV, XLONV, and XMAPV. Allow ! output variable PURB to be created with urban model ! in WRF. (T. Otte) ! 14 Dec 2010 Added sea ice. (T. Otte) ! 07 Sep 2011 Updated disclaimer. (T. Otte) ! 10 Apr 2015 Added new array XCFRAC3D to pass 3D resolved cloud ! fraction to output. (T. Spero) ! 21 Aug 2015 Changed latent heat flux from QFX to LH. Fill THETA ! and add moisture flux (QFX) for IFMOLACM. (T. Spero) ! 17 Sep 2015 Changed IFMOLACM to IFMOLPX. (T. Spero) ! 16 Mar 2018 Added SNOWH to output. Added XMUHYB to support hybrid ! vertical coordinate in WRF output. Added XLUFRAC2, ! XMOSCATIDX, XZNT_MOS, XTSK_MOS, XRA_MOS, XRS_MOS, and ! XLAI_MOS for NOAH Mosaic land-surface model. Added ! XZSOIL, and added 3D soil arrays, XSOIT3D and XSOIM3D. ! Added XWSPDSFC and XXLAIDYN for Noah. (T. Spero) ! 14 Sep 2018 Changed condition to enable hybrid vertical coordinate ! in WRF. Removed support for MM5v3 input. (T. Spero) ! 18 Jun 2019 Added new surface variables with PX LSM that can ! improve dust simulation in CCTM. Added optional ! variables from KF convective scheme with radiative ! feedbacks. (T. Spero) !------------------------------------------------------------------------------- USE mcipparm USE xvars USE metinfo IMPLICIT NONE !------------------------------------------------------------------------------- ! Scalars and One-Dimensional Arrays !------------------------------------------------------------------------------- ALLOCATE ( xx3face ( 0:metlay ) ) ALLOCATE ( xx3midl ( metlay ) ) ALLOCATE ( xdx3 ( metlay ) ) ALLOCATE ( xludesc ( nummetlu ) ) IF ( metsoi > 0 ) THEN ALLOCATE ( xzsoil ( metsoi ) ) ENDIF !------------------------------------------------------------------------------- ! Dot-Point and Face 2D Arrays. !------------------------------------------------------------------------------- ALLOCATE ( xlatd (ncols_x+1, nrows_x+1) ) ALLOCATE ( xlatu (ncols_x+1, nrows_x+1) ) ALLOCATE ( xlatv (ncols_x+1, nrows_x+1) ) ALLOCATE ( xlond (ncols_x+1, nrows_x+1) ) ALLOCATE ( xlonu (ncols_x+1, nrows_x+1) ) ALLOCATE ( xlonv (ncols_x+1, nrows_x+1) ) ALLOCATE ( xmapd (ncols_x+1, nrows_x+1) ) ALLOCATE ( xmapu (ncols_x+1, nrows_x+1) ) ALLOCATE ( xmapv (ncols_x+1, nrows_x+1) ) !------------------------------------------------------------------------------- ! Cross-Point 2D Arrays. !------------------------------------------------------------------------------- ALLOCATE ( xlatc (ncols_x, nrows_x) ) ALLOCATE ( xlonc (ncols_x, nrows_x) ) ALLOCATE ( xmapc (ncols_x, nrows_x) ) ALLOCATE ( xmapc2 (ncols_x, nrows_x) ) ALLOCATE ( xtopo (ncols_x, nrows_x) ) ALLOCATE ( xprsfc (ncols_x, nrows_x) ) ALLOCATE ( xdenss (ncols_x, nrows_x) ) ALLOCATE ( xtempg (ncols_x, nrows_x) ) ALLOCATE ( xrainn (ncols_x, nrows_x) ) ALLOCATE ( xrainc (ncols_x, nrows_x) ) ALLOCATE ( xdluse (ncols_x, nrows_x) ) ALLOCATE ( xlwmask(ncols_x, nrows_x) ) IF ( ( iflufrc ) .OR. ( met_urban_phys >= 1 ) ) THEN ALLOCATE ( xpurb (ncols_x, nrows_x) ) ENDIF IF ( lpv > 0 ) THEN ALLOCATE ( xcorl (ncols_x, nrows_x) ) ENDIF IF ( ifmolpx ) THEN ALLOCATE ( xqfx (ncols_x, nrows_x) ) ENDIF ALLOCATE ( xglw (ncols_x, nrows_x) ) ALLOCATE ( xgsw (ncols_x, nrows_x) ) ALLOCATE ( xhfx (ncols_x, nrows_x) ) ALLOCATE ( xlh (ncols_x, nrows_x) ) ALLOCATE ( xustar (ncols_x, nrows_x) ) ALLOCATE ( xpbl (ncols_x, nrows_x) ) ALLOCATE ( xzruf (ncols_x, nrows_x) ) ALLOCATE ( xmol (ncols_x, nrows_x) ) ALLOCATE ( xrgrnd (ncols_x, nrows_x) ) ALLOCATE ( xwr (ncols_x, nrows_x) ) ALLOCATE ( xlai (ncols_x, nrows_x) ) ALLOCATE ( xveg (ncols_x, nrows_x) ) ALLOCATE ( xwstar (ncols_x, nrows_x) ) ALLOCATE ( xrib (ncols_x, nrows_x) ) ALLOCATE ( xradyn (ncols_x, nrows_x) ) ALLOCATE ( xrstom (ncols_x, nrows_x) ) ALLOCATE ( xtemp2 (ncols_x, nrows_x) ) ALLOCATE ( xq2 (ncols_x, nrows_x) ) ALLOCATE ( xwspd10 (ncols_x, nrows_x) ) ALLOCATE ( xwdir10 (ncols_x, nrows_x) ) ALLOCATE ( xalbedo (ncols_x, nrows_x) ) ALLOCATE ( xmavail (ncols_x, nrows_x) ) ALLOCATE ( xcfract (ncols_x, nrows_x) ) ALLOCATE ( xcldtop (ncols_x, nrows_x) ) ALLOCATE ( xcldbot (ncols_x, nrows_x) ) ALLOCATE ( xwbar (ncols_x, nrows_x) ) ALLOCATE ( xsnocov (ncols_x, nrows_x) ) ALLOCATE ( xseaice (ncols_x, nrows_x) ) ALLOCATE ( xsnowh (ncols_x, nrows_x) ) IF ( met_hybrid >= 0 ) THEN ALLOCATE ( xmuhyb (ncols_x, nrows_x) ) ENDIF IF ( ifw10m ) THEN ALLOCATE ( xu10 (ncols_x, nrows_x) ) ALLOCATE ( xv10 (ncols_x, nrows_x) ) ENDIF IF ( ifsoil ) THEN ALLOCATE ( xtga (ncols_x, nrows_x) ) ALLOCATE ( xt2a (ncols_x, nrows_x) ) ALLOCATE ( xwga (ncols_x, nrows_x) ) ALLOCATE ( xw2a (ncols_x, nrows_x) ) ALLOCATE ( xsltyp (ncols_x, nrows_x) ) ENDIF IF ( ifpxwrf41 ) THEN ALLOCATE ( xwsat_px (ncols_x, nrows_x) ) ALLOCATE ( xwfc_px (ncols_x, nrows_x) ) ALLOCATE ( xwwlt_px (ncols_x, nrows_x) ) ALLOCATE ( xcsand_px (ncols_x, nrows_x) ) ALLOCATE ( xfmsand_px (ncols_x, nrows_x) ) ALLOCATE ( xclay_px (ncols_x, nrows_x) ) ENDIF ALLOCATE ( xluse (ncols_x, nrows_x, nummetlu) ) !------------------------------------------------------------------------------- ! Cross-Point 3D Arrays. !------------------------------------------------------------------------------- ALLOCATE ( xtempm (ncols_x, nrows_x, metlay) ) ALLOCATE ( xpresm (ncols_x, nrows_x, metlay) ) ALLOCATE ( xdensam (ncols_x, nrows_x, metlay) ) ALLOCATE ( xdenswm (ncols_x, nrows_x, metlay) ) ALLOCATE ( x3jacobf (ncols_x, nrows_x, 0:metlay) ) ALLOCATE ( x3jacobm (ncols_x, nrows_x, metlay) ) ALLOCATE ( x3htf (ncols_x, nrows_x, 0:metlay) ) ALLOCATE ( x3htm (ncols_x, nrows_x, metlay) ) ALLOCATE ( xwhat (ncols_x, nrows_x, 0:metlay) ) ALLOCATE ( xwvapor (ncols_x, nrows_x, metlay) ) ALLOCATE ( xwwind (ncols_x, nrows_x, 0:metlay) ) ALLOCATE ( xcldwtr (ncols_x, nrows_x, metlay) ) ALLOCATE ( xranwtr (ncols_x, nrows_x, metlay) ) ALLOCATE ( xqice (ncols_x, nrows_x, metlay) ) ALLOCATE ( xqsnow (ncols_x, nrows_x, metlay) ) ALLOCATE ( xqgraup (ncols_x, nrows_x, metlay) ) IF ( iftke ) THEN IF ( iftkef ) THEN ALLOCATE ( xtke (ncols_x, nrows_x, 0:metlay) ) ELSE ALLOCATE ( xtke (ncols_x, nrows_x, metlay) ) ENDIF ENDIF IF ( lpv > 0 ) THEN ALLOCATE ( xpvc (ncols_x, nrows_x, metlay) ) ENDIF IF ( lpv > 0 .OR. ifmolpx ) THEN ALLOCATE ( xtheta (ncols_x, nrows_x, metlay) ) ENDIF IF ( ifcld3d ) THEN ALLOCATE ( xcfrac3d (ncols_x, nrows_x, metlay) ) ENDIF IF ( ifkfradextras ) THEN ALLOCATE ( xqc_cu (ncols_x, nrows_x, metlay) ) ALLOCATE ( xqi_cu (ncols_x, nrows_x, metlay) ) ALLOCATE ( xcldfrad (ncols_x, nrows_x, metlay) ) ALLOCATE ( xcldfras (ncols_x, nrows_x, metlay) ) ENDIF !------------------------------------------------------------------------------- ! Dot-Point (and Face-Point) 3D Arrays. !------------------------------------------------------------------------------- ALLOCATE ( xuu_d (ncols_x+1, nrows_x+1, metlay) ) ALLOCATE ( xvv_d (ncols_x+1, nrows_x+1, metlay) ) ALLOCATE ( xuu_s (ncols_x+1, nrows_x+1, metlay) ) ALLOCATE ( xvv_t (ncols_x+1, nrows_x+1, metlay) ) !------------------------------------------------------------------------------- ! Cross-Point Arrays for Soil. !------------------------------------------------------------------------------- IF ( ifsoil ) THEN ALLOCATE ( xsoit3d (ncols_x, nrows_x, metsoi) ) ALLOCATE ( xsoim3d (ncols_x, nrows_x, metsoi) ) ENDIF !------------------------------------------------------------------------------- ! Cross-Point Arrays for Mosaic. !------------------------------------------------------------------------------- IF ( ifmosaic ) THEN ALLOCATE ( xlufrac2 (ncols_x, nrows_x, nummosaic) ) ! <-- input full LU ALLOCATE ( xmoscatidx (ncols_x, nrows_x, nummosaic) ) ! <-- input full LU ALLOCATE ( xlai_mos (ncols_x, nrows_x, nummosaic) ) ALLOCATE ( xra_mos (ncols_x, nrows_x, nummosaic) ) ALLOCATE ( xrs_mos (ncols_x, nrows_x, nummosaic) ) ALLOCATE ( xtsk_mos (ncols_x, nrows_x, nummosaic) ) ALLOCATE ( xznt_mos (ncols_x, nrows_x, nummosaic) ) ALLOCATE ( xwspdsfc (ncols_x, nrows_x) ) ! <-- to be all Noah ALLOCATE ( xxlaidyn (ncols_x, nrows_x) ) ! <-- to be all Noah ENDIF !------------------------------------------------------------------------------- ! Variables for WRF only. !------------------------------------------------------------------------------- IF ( met_model == 2 ) THEN ! WRF ALLOCATE ( xmu (ncols_x, nrows_x) ) ALLOCATE ( xgeof (ncols_x, nrows_x, 0:metlay) ) ENDIF !------------------------------------------------------------------------------- ! Internal Arrays. !------------------------------------------------------------------------------- ALLOCATE ( xdx3htf (ncols_x, nrows_x, metlay) ) ALLOCATE ( xdensaf (ncols_x, nrows_x, 0:metlay) ) ALLOCATE ( xpresf (ncols_x, nrows_x, 0:metlay) ) END SUBROUTINE alloc_x ================================================ FILE: PREP/mcip/src/bcldprc_ak.f90 ================================================ !------------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------------! SUBROUTINE bcldprc_ak !------------------------------------------------------------------------------- ! Name: Cloud Processor for Anthes-Kuo Scheme ! Purpose: Determine the base and top of cloudy layers, as well as the mean ! water content and fractional area of cloud coverage using JEP H54 ! cloud and photolysis scheme. (ANTHES-KUO scheme) ! Revised: 20 Mar 1991 Original version. (CJW) ! 27 Oct 1995 Modified. (C. Ingram) ! 05 Feb 1997 Updated for Models-3. (D. Byun) ! 04 Feb 1998 Changed include method nonglobal includes. (D. Byun) ! 10 Sep 2001 Converted to free-form f90. Changed CCOV to ! allocatable. Changed vertical dimension of CCOV ! from MAXK to METLAY. (T. Otte) ! 27 Feb 2002 Corrected bug that persisted cloud base arrays when ! clouds had dissipated. (T. Otte and S. Roselle) ! 08 Jul 2004 Changed local array allocation to occur only on ! initial call to subroutine to avoid memory ! fragmentation. Removed XFLAGS. (T. Otte) ! 09 Apr 2007 Combined two sets of c,r loops. Changed CCOV from a ! 3D to a 1D (k-only) array. Removed unused variable ! PNAME. Removed low, middle, and high cloud ! calculations. (T. Otte) ! 01 Sep 2011 Replaced statement functions with external routines. ! (T. Otte) ! 07 Sep 2011 Updated disclaimer. (T. Otte) !------------------------------------------------------------------------------- USE mcipparm USE xvars USE const IMPLICIT NONE INTEGER :: c REAL :: cbase REAL :: ccmax REAL, SAVE, ALLOCATABLE :: ccov ( : ) REAL :: ctop REAL :: dp REAL :: dtdp REAL, EXTERNAL :: e_aerk REAL :: es REAL :: frac INTEGER :: iflag INTEGER :: itr INTEGER :: k INTEGER :: kbase INTEGER :: kct INTEGER :: kmx INTEGER :: ktop REAL, PARAMETER :: mvoma = mwwat / mwair ! 0.622015 REAL :: pbar REAL :: pbase REAL :: plcl REAL :: qlcl REAL :: qs REAL, EXTERNAL :: qsat REAL :: qwat REAL :: qwsa INTEGER :: r REAL :: rh REAL :: rhc REAL :: sg1 REAL :: sumz REAL :: tad REAL :: tbar REAL :: tbase REAL :: tlcl REAL :: twc REAL :: wl REAL :: wtbar REAL :: x1 !------------------------------------------------------------------------------- ! Allocate necessary variables. !------------------------------------------------------------------------------- IF ( .NOT. ALLOCATED ( ccov ) ) ALLOCATE ( ccov (metlay) ) !------------------------------------------------------------------------------- ! Initialize all cloud variables. !------------------------------------------------------------------------------- xwbar (:,:) = 0.0 xcldbot (:,:) = 0.0 xcldtop (:,:) = 0.0 xcfract (:,:) = 0.0 ccov (:) = 0.0 !------------------------------------------------------------------------------- ! Loop over grid points to compute cloud coverage, cloud base and top, and ! average liquid water content in cloud. !------------------------------------------------------------------------------- DO c = 1, ncols_x DO r = 1, nrows_x !------------------------------------------------------------------------- ! Define cloud coverage (CCOV). !------------------------------------------------------------------------- kmx = 1 DO k = 1, metlay ! Define RH and critical RH of all layers. es = e_aerk( xtempm(c,r,k) - stdtemp ) qs = qsat( es, xpresm(c,r,k) ) rh = xwvapor(c,r,k) / qs rh = MIN(rh,1.0) ! Set RHC to at least 98% in PBL - JEP 5/91 IF ( x3htf(c,r,k-1) < xpbl(c,r) ) THEN rhc = 0.98 kmx = k IF ( rh > rhc ) THEN ! CBL mixing induced clouds should not exceed the frac area of ! the updrafts at top of cbl, les estimates are ~34% ! (Schumann 89, and Wyngaard and Brost 84) ccov(k) = 0.34 * ( rh - rhc ) / ( 1.0 - rhc ) ELSE ccov(k) = 0.0 ENDIF ELSE sg1 = xpresm(c,r,k) / xpresm(c,r,kmx) rhc = 1.0 - ( 2.0 * sg1 * (1.0-sg1) * (1.0 + 1.732*(sg1-0.5)) ) IF ( rh > rhc ) THEN ccov(k) = ( (rh - rhc)/(1.0 - rhc) )**2 ! Geleyn et al., 1982 ELSE ccov(k) = 0.0 ENDIF ENDIF ccov(k) = MAX( MIN( ccov(k), 1.0 ), 0.0 ) ENDDO !------------------------------------------------------------------------- ! Get cloud top and bottom and XWBAR. !------------------------------------------------------------------------- kct = 0 kbase = 0 ktop = 0 ccmax = 0.0 ! Determine level of highest rh relative to RHC. DO k = 2, metlay-1 IF ( ccov(k) > ccmax ) THEN ccmax = ccov(k) kct = k ENDIF ENDDO frac = 0.0 cbase = 0.0 ctop = 0.0 wtbar = 0.0 sumz = 0.0 ! Exit with no cloud values if RH < RHC at all levels. IF ( ccmax < 0.01 ) THEN xcldtop(c,r) = 0.0 xcldbot(c,r) = 0.0 CYCLE ENDIF ! Look for cloud top and base layer up and down from level of max RH. top: DO k = kct, metlay ktop = k - 1 IF ( ccov(k) < 0.5*ccmax ) EXIT top ENDDO top bottom: DO k = kct, 1, -1 kbase = k + 1 IF ( ccov(k) < 0.5*ccmax ) EXIT bottom ENDDO bottom DO k = 1, ktop IF ( k < kbase ) cbase = cbase + xdx3htf(c,r,k) ctop = ctop + xdx3htf(c,r,k) ENDDO xcldtop(c,r) = ctop xcldbot(c,r) = cbase ! We need pres. at the bottom of the lowest layer containing clouds. ! Temp. and qv at cloud base are for mid layer values. plcl = xpresf(c,r,kbase-1) tlcl = ( plcl - xpresm(c,r,kbase) ) / & ( xpresm(c,r,kbase-1) - xpresm(c,r,kbase) ) * & ( xtempm(c,r,kbase-1) - xtempm(c,r,kbase) ) + & xtempm(c,r,kbase) es = e_aerk( tlcl - stdtemp ) qlcl = qsat( es, plcl ) iflag = 0 pbase = plcl tbase = tlcl ! Follow moist adiabat up. DO k = kbase, ktop dp = pbase - xpresm(c,r,k) pbar = pbase - dp / 2.0 tbar = tbase DO itr = 1, 5 es = e_aerk( tbar - stdtemp ) qs = qsat( es, pbar ) x1 = lv0 * qs / ( rdgas * tbar ) dtdp = rdgas * tbar / pbar / cpd * ( ( 1.0 + x1 ) / & ( 1.0 + mvoma * lv0 / cpd / tbar * x1 ) ) tad = tbase - dp * dtdp tbar = ( tad + tbase ) * 0.5 ENDDO ! Determine water content by fraction of adiabatic. tad = MAX(tad, 150.0) IF ( tad > xtempm(c,r,k) ) iflag = 1 ! Pressure in Pascal = cb*1000 wl = 0.7 * EXP( ( xpresm(c,r,k) - plcl ) / 8000.0 ) + 0.2 es = e_aerk( tad - stdtemp ) qwsa = qsat( es, xpresm(c,r,k) ) qwat = wl * ( qlcl - qwsa ) qwat = MAX(qwat, 0.0) twc = qwat * xpresm(c,r,k) * 1.0e3 / rdgas / xtempm(c,r,k) wtbar = wtbar + twc * xdx3htf(c,r,k) frac = frac + ccov(k) * xdx3htf(c,r,k) sumz = sumz + xdx3htf(c,r,k) tbase = tad pbase = xpresm(c,r,k) ENDDO xcfract(c,r) = frac / sumz xwbar (c,r) = wtbar / sumz IF ( xcfract(c,r) < 0.001 ) THEN xcldtop(c,r) = 0.0 xcldbot(c,r) = 0.0 ENDIF IF ( xwbar(c,r) == 0.0 ) THEN xcldtop(c,r) = 0.0 xcldbot(c,r) = 0.0 xcfract(c,r) = 0.0 CYCLE ENDIF ! If stable environment, use alternate water content expression. IF ( iflag == 0 ) THEN wtbar = 0.0 DO k = kbase, ktop twc = 0.05e3 * xwvapor(c,r,k) * xpresm(c,r,k) / & rdgas / xtempm(c,r,k) wtbar = wtbar + twc * xdx3htf(c,r,k) ENDDO xwbar(c,r) = wtbar / sumz ENDIF ENDDO ENDDO !------------------------------------------------------------------------------- ! Deallocate variables. !------------------------------------------------------------------------------- ! DEALLOCATE ( ccov ) ! commented out to avoid memory fragmentation END SUBROUTINE bcldprc_ak ================================================ FILE: PREP/mcip/src/blddesc.f90 ================================================ !------------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------------! SUBROUTINE blddesc !------------------------------------------------------------------------------- ! Name: Build File Description ! Purpose: Builds file description used as metadata in output files. ! Revised: 31 Jul 2007 Original version. (T. Otte) ! 29 May 2008 Added meteorology model's nudging coefficients and ! earth radius (assumed in MCIP) to metadata. (T. Otte) ! 26 Aug 2009 Added urban model option to output metadata. Added ! spectral nudging to GRID_FDDA options. (T. Otte) ! 22 Dec 2010 Changed format of print statements from "es9.3" to ! "es10.3" to take Intel compiler's recommendations ! and eliminate warning messages. (T. Otte) ! 01 Sep 2011 Added shallow convection option (available in WRFv3.3) ! to output metadata. Replace F77 character declarations ! with F90 standard. (T. Otte) ! 07 Sep 2011 Updated disclaimer. (T. Otte) ! 07 Dec 2011 Added MET_FDDA_GPH3D for spectral nudging coefficient ! toward geopotential. (T. Otte) ! 26 Jan 2018 Added coefficient for spectral nudging of moisture to ! metadata. (T. Spero) ! 14 Sep 2018 Removed support for MM5v3 input. (T. Spero) ! 12 Nov 2019 Expanded options to allow for surface analysis ! nudging option 2 (FASDAS), which has been available ! since WRFv3.8. (T. Spero) !------------------------------------------------------------------------------- USE mcipparm USE metinfo IMPLICIT NONE CHARACTER(LEN=16) :: coeff_g CHARACTER(LEN=16) :: coeff_q CHARACTER(LEN=16) :: coeff_t CHARACTER(LEN=16) :: coeff_v CHARACTER(LEN=16) :: text CHARACTER(LEN=30) :: txt_cupa CHARACTER(LEN=30) :: txt_lsm CHARACTER(LEN=30) :: txt_lu = ' ' CHARACTER(LEN=30) :: txt_lwrad CHARACTER(LEN=30) :: txt_microphys CHARACTER(LEN=30) :: txt_pbl CHARACTER(LEN=30) :: txt_sflay CHARACTER(LEN=30) :: txt_shcu CHARACTER(LEN=30) :: txt_swrad CHARACTER(LEN=30) :: txt_urban !------------------------------------------------------------------------------- ! Write primary header for output. !------------------------------------------------------------------------------- fdesc(:)(1:) = ' ' ! initialize fdesc( 1) = 'US EPA COMMUNITY MULTISCALE AIR QUALITY MODEL' fdesc( 2) = 'METEOROLOGY-CHEMISTRY INTERFACE PROCESSOR' fdesc( 4) = TRIM(progname) // ' ' // TRIM(ver) // ' FROZEN ' // vdate IF ( ( met_model == 2 ) .AND. ( met_iversion == 2 ) ) THEN text = 'WRF ARW' ELSE text = 'UNKNOWN SOURCE' ENDIF fdesc( 7) = 'INPUT METEOROLOGY DATA FROM ' // TRIM(text) // ' ' // TRIM(met_release) fdesc( 8) = 'INPUT RUN INITIALIZED: ' // TRIM(met_startdate) IF ( ( met_model == 2 ) .AND. ( met_iversion == 2 ) ) THEN CALL wrfemopts (txt_cupa, txt_microphys, txt_lwrad, txt_swrad, & txt_pbl, txt_sflay, txt_lsm, txt_urban, txt_shcu, txt_lu) ENDIF fdesc(10) = 'CUMULUS PARAMETERIZATION: ' // TRIM(txt_cupa) fdesc(12) = 'SHALLOW CONVECTION: ' // TRIM(txt_shcu) fdesc(14) = 'MICROPHYSICS: ' // TRIM(txt_microphys) fdesc(16) = 'LONGWAVE RADIATION: ' // TRIM(txt_lwrad) fdesc(18) = 'SHORTWAVE RADIATION: ' // TRIM(txt_swrad) fdesc(20) = 'PBL SCHEME: ' // TRIM(txt_pbl) fdesc(22) = 'SURFACE LAYER SCHEME: ' // TRIM(txt_sflay) fdesc(24) = 'LAND-SURFACE SCHEME: ' // TRIM(txt_lsm) fdesc(26) = 'URBAN MODEL: ' // TRIM(txt_urban) fdesc(28) = 'LAND USE CLASSIFICATION: ' // TRIM(txt_lu) IF ( met_fdda_3dan == 1 ) THEN text = 'GRID' IF ( met_fdda_gv3d >= 0.0 ) THEN WRITE ( coeff_v, '(es10.3, a)' ) met_fdda_gv3d, ' s-1' ELSE coeff_v = 'unknown' ENDIF IF ( met_fdda_gt3d >= 0.0 ) THEN WRITE ( coeff_t, '(es10.3, a)' ) met_fdda_gt3d, ' s-1' ELSE coeff_t = 'unknown' ENDIF IF ( met_fdda_gq3d >= 0.0 ) THEN WRITE ( coeff_q, '(es10.3, a)' ) met_fdda_gq3d, ' s-1' ELSE coeff_q = 'unknown' ENDIF coeff_g = 'not applicable' ELSE IF ( met_fdda_3dan == 2 ) THEN text = 'SPECTRAL' IF ( met_fdda_gv3d >= 0.0 ) THEN WRITE ( coeff_v, '(es10.3, a)' ) met_fdda_gv3d, ' s-1' ELSE coeff_v = 'unknown' ENDIF IF ( met_fdda_gt3d >= 0.0 ) THEN WRITE ( coeff_t, '(es10.3, a)' ) met_fdda_gt3d, ' s-1' ELSE coeff_t = 'unknown' ENDIF IF ( met_fdda_gq3d >= 0.0 ) THEN WRITE ( coeff_q, '(es10.3, a)' ) met_fdda_gq3d, ' s-1' ELSE coeff_q = 'not applicable' ENDIF IF ( met_fdda_gph3d >= 0.0 ) THEN WRITE ( coeff_g, '(es10.3, a)' ) met_fdda_gph3d, ' s-1' ELSE coeff_g = 'unknown' ENDIF ELSE text = 'OFF' coeff_v = 'not applicable' coeff_t = 'not applicable' coeff_q = 'not applicable' coeff_g = 'not applicable' ENDIF fdesc(30) = '3D ANALYSIS NUDGING: ' // TRIM(text) fdesc(31) = ' WIND COEFF: ' // TRIM(coeff_v) fdesc(32) = ' TEMP COEFF: ' // TRIM(coeff_t) fdesc(33) = ' MOIS COEFF: ' // TRIM(coeff_q) fdesc(34) = ' GEOP COEFF: ' // TRIM(coeff_g) IF ( met_fdda_sfan == 1 ) THEN text = 'STANDARD' IF ( met_fdda_gvsfc >= 0.0 ) THEN WRITE ( coeff_v, '(es10.3, a)' ) met_fdda_gvsfc, ' s-1' ELSE coeff_v = 'unknown' ENDIF IF ( met_fdda_gtsfc >= 0.0 ) THEN WRITE ( coeff_t, '(es10.3, a)' ) met_fdda_gtsfc, ' s-1' ELSE coeff_t = 'unknown' ENDIF IF ( met_fdda_gqsfc >= 0.0 ) THEN WRITE ( coeff_q, '(es10.3, a)' ) met_fdda_gqsfc, ' s-1' ELSE coeff_q = 'unknown' ENDIF ELSE IF ( met_fdda_sfan == 2 ) THEN text = 'FASDAS' IF ( met_fdda_gvsfc >= 0.0 ) THEN WRITE ( coeff_v, '(es10.3, a)' ) met_fdda_gvsfc, ' s-1' ELSE coeff_v = 'unknown' ENDIF IF ( met_fdda_gtsfc >= 0.0 ) THEN WRITE ( coeff_t, '(es10.3, a)' ) met_fdda_gtsfc, ' s-1' ELSE coeff_t = 'unknown' ENDIF IF ( met_fdda_gqsfc >= 0.0 ) THEN WRITE ( coeff_q, '(es10.3, a)' ) met_fdda_gqsfc, ' s-1' ELSE coeff_q = 'unknown' ENDIF ELSE text = 'OFF' coeff_v = 'not applicable' coeff_t = 'not applicable' coeff_q = 'not applicable' ENDIF fdesc(36) = 'SFC ANALYSIS NUDGING: ' // TRIM(text) fdesc(37) = ' WIND COEFF: ' // TRIM(coeff_v) fdesc(38) = ' TEMP COEFF: ' // TRIM(coeff_t) fdesc(39) = ' MOIS COEFF: ' // TRIM(coeff_q) IF ( met_fdda_obs == 1 ) THEN text = 'ON' IF ( met_fdda_giv >= 0.0 ) THEN WRITE ( coeff_v, '(es10.3, a)' ) met_fdda_giv, ' s-1' ELSE coeff_v = 'unknown' ENDIF IF ( met_fdda_git >= 0.0 ) THEN WRITE ( coeff_t, '(es10.3, a)' ) met_fdda_git, ' s-1' ELSE coeff_t = 'unknown' ENDIF IF ( met_fdda_giq >= 0.0 ) THEN WRITE ( coeff_q, '(es10.3, a)' ) met_fdda_giq, ' s-1' ELSE coeff_q = 'unknown' ENDIF ELSE text = 'OFF' coeff_v = 'not applicable' coeff_t = 'not applicable' coeff_q = 'not applicable' ENDIF fdesc(41) = 'OBS NUDGING: ' // TRIM(text) fdesc(42) = ' WIND COEFF: ' // TRIM(coeff_v) fdesc(43) = ' TEMP COEFF: ' // TRIM(coeff_t) fdesc(44) = ' MOIS COEFF: ' // TRIM(coeff_q) WRITE ( text, '(f11.3, a)' ) eradm, ' m' fdesc(46) = 'EARTH RADIUS ASSUMED IN MCIP: ' // TRIM(text) END SUBROUTINE blddesc ================================================ FILE: PREP/mcip/src/chkwpshdr.f90 ================================================ !------------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------------! SUBROUTINE chkwpshdr (fl, cdfid) !------------------------------------------------------------------------------- ! Name: Check WPS Header ! Purpose: Check WPS header variables from a WPS output file against the ! "base" WRF output file used for this MCIP run to ensure that the ! WRF output files are from the same domain. ! Notes: This routine is not thorough, but it should be enough to spot-check ! key variables that would indicate a different WRF simulation. ! This routine assumes that FL (input argument) is already opened. ! Revised: 23 Sep 2009 Original version. (T. Otte) ! 12 Feb 2010 Removed unused variables CDFID, DATE_INIT, DX, DY, ! N_TIMES, and VARID, and removed unused format ! statements 9600 and 9700. Changed RTOL to 1.0e-4. ! Corrected PNAME to "CHKWPSHDR". (T. Otte) ! 17 Mar 2010 Added input argument CDFID. Removed dependency on ! module WRF_NETCDF. (T. Otte) ! 29 Aug 2011 Changed name of module FILE to FILES to avoid conflict ! with F90 protected intrinsic. Updated netCDF commands ! to F90, and improved error handling. (T. Otte) ! 07 Sep 2011 Updated disclaimer. (T. Otte) !------------------------------------------------------------------------------- USE files USE mcipparm USE metinfo USE netcdf IMPLICIT NONE INTEGER, INTENT(IN) :: cdfid CHARACTER(LEN=80) :: cval CHARACTER(LEN=4) :: cval4 CHARACTER(LEN=256), INTENT(IN) :: fl CHARACTER(LEN=256) :: fl1 INTEGER :: ival CHARACTER(LEN=16), PARAMETER :: pname = 'CHKWPSHDR' INTEGER :: rcode REAL, PARAMETER :: rtol = 1.0e-4 REAL :: rval !------------------------------------------------------------------------------- ! Error, warning, and informational messages. !------------------------------------------------------------------------------- CHARACTER(LEN=256), PARAMETER :: f9000 = "(/, 1x, 70('*'), & & /, 1x, '*** SUBROUTINE: ', a, & & /, 1x, '*** WRF FILES DO NOT SEEM TO BE FROM SAME DOMAIN', & & /, 1x, '*** VARIABLE = ', a)" CHARACTER(LEN=256), PARAMETER :: f9100 = "( & & /, 1x, '*** FIRST FILE = ', a, & & /, 1x, '*** VALUE IN FIRST FILE = ', i4, & & /, 1x, '*** NEW FILE = ', a, & & /, 1x, '*** VALUE IN NEW FILE = ', i4, & & /, 1x, 70('*'))" CHARACTER(LEN=256), PARAMETER :: f9200 = "( & & /, 1x, '*** FIRST FILE = ', a, & & /, 1x, '*** VALUE IN FIRST FILE = ', f13.3, & & /, 1x, '*** NEW FILE = ', a, & & /, 1x, '*** VALUE IN NEW FILE = ', f13.3, & & /, 1x, 70('*'))" CHARACTER(LEN=256), PARAMETER :: f9300 = "( & & /, 1x, '*** FIRST FILE = ', a, & & /, 1x, '*** VALUE IN FIRST FILE = ', a, & & /, 1x, '*** NEW FILE = ', a, & & /, 1x, '*** VALUE IN NEW FILE = ', a, & & /, 1x, 70('*'))" CHARACTER(LEN=256), PARAMETER :: f9400 = "(/, 1x, 70('*'), & & /, 1x, '*** SUBROUTINE: ', a, & & /, 1x, '*** ERROR RETRIEVING VARIABLE FROM WPS FILE', & & /, 1x, '*** VARIABLE = ', a, & & /, 1x, '*** NCF: ', a, & & /, 1x, 70('*'))" CHARACTER(LEN=256), PARAMETER :: f9800 = "(/, 1x, 70('*'), & & /, 1x, '*** SUBROUTINE: ', a, & & /, 1x, '*** ERROR EXTRACTING WPS VERSION FROM HEADER', & & /, 1x, '*** NCF: ', a, & & /, 1x, 70('*'))" !------------------------------------------------------------------------------- ! Check NX, NY, and NZ. !------------------------------------------------------------------------------- fl1 = file_mm(1) rcode = nf90_get_att (cdfid, nf90_global, 'WEST-EAST_GRID_DIMENSION', ival) IF ( rcode == nf90_noerr ) THEN IF ( ival /= met_nx ) THEN WRITE (*,f9000) TRIM(pname), 'WEST-EAST_GRID_DIMENSION' WRITE (*,f9100) TRIM(fl1), met_nx, TRIM(fl), ival CALL graceful_stop (pname) ENDIF ELSE WRITE (*,f9400) TRIM(pname), 'WEST-EAST_GRID_DIMENSION', & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF rcode = nf90_get_att (cdfid, nf90_global, 'SOUTH-NORTH_GRID_DIMENSION', ival) IF ( rcode == nf90_noerr ) THEN IF ( ival /= met_ny ) THEN WRITE (*,f9000) TRIM(pname), 'SOUTH-NORTH_GRID_DIMENSION' WRITE (*,f9100) TRIM(fl1), met_ny, TRIM(fl), ival CALL graceful_stop (pname) ENDIF ELSE WRITE (*,f9400) TRIM(pname), 'SOUTH-NORTH_GRID_DIMENSION', & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF !------------------------------------------------------------------------------- ! Check domain attributes. !------------------------------------------------------------------------------- rcode = nf90_get_att (cdfid, nf90_global, 'DX', rval) IF ( rcode == nf90_noerr ) THEN IF ( ABS( rval - met_resoln ) > rtol ) THEN WRITE (*,f9000) TRIM(pname), 'DX' WRITE (*,f9200) TRIM(fl1), met_resoln, TRIM(fl), rval CALL graceful_stop (pname) ENDIF ELSE WRITE (*,f9400) TRIM(pname), 'DX', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF rcode = nf90_get_att (cdfid, nf90_global, 'DY', rval) IF ( rcode == nf90_noerr ) THEN IF ( ABS( rval - met_resoln ) > rtol ) THEN WRITE (*,f9000) TRIM(pname), 'DY' WRITE (*,f9200) TRIM(fl1), met_resoln, TRIM(fl), rval CALL graceful_stop (pname) ENDIF ELSE WRITE (*,f9400) TRIM(pname), 'DY', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF rcode = nf90_get_att (cdfid, nf90_global, 'MAP_PROJ', ival) IF ( rcode == nf90_noerr ) THEN IF ( ival /= met_mapproj ) THEN WRITE (*,f9000) TRIM(pname), 'MAP_PROJ' WRITE (*,f9100) TRIM(fl1), met_mapproj, TRIM(fl), ival CALL graceful_stop (pname) ENDIF ELSE WRITE (*,f9400) TRIM(pname), 'MAP_PROJ', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF rcode = nf90_get_att (cdfid, nf90_global, 'STAND_LON', rval) IF ( rcode == nf90_noerr ) THEN IF ( ABS( rval - met_proj_clon ) > rtol ) THEN WRITE (*,f9000) TRIM(pname), 'STAND_LON' WRITE (*,f9200) TRIM(fl1), met_proj_clon, TRIM(fl), rval CALL graceful_stop (pname) ENDIF ELSE WRITE (*,f9400) TRIM(pname), 'STAND_LON', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF rcode = nf90_get_att (cdfid, nf90_global, 'MOAD_CEN_LAT', rval) IF ( rcode == nf90_noerr ) THEN IF ( ABS( rval - met_proj_clat ) > rtol ) THEN WRITE (*,f9000) TRIM(pname), 'MOAD_CEN_LAT' WRITE (*,f9200) TRIM(fl1), met_proj_clat, TRIM(fl), rval CALL graceful_stop (pname) ENDIF ELSE WRITE (*,f9400) TRIM(pname), 'MOAD_CEN_LAT', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF rcode = nf90_get_att (cdfid, nf90_global, 'CEN_LON', rval) IF ( rcode == nf90_noerr ) THEN IF ( ABS( rval - met_x_centd ) > rtol ) THEN WRITE (*,f9000) TRIM(pname), 'CEN_LON' WRITE (*,f9200) TRIM(fl1), met_x_centd, TRIM(fl), rval CALL graceful_stop (pname) ENDIF ELSE WRITE (*,f9400) TRIM(pname), 'CEN_LON', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF rcode = nf90_get_att (cdfid, nf90_global, 'CEN_LAT', rval) IF ( rcode == nf90_noerr ) THEN IF ( ABS( rval - met_y_centd ) > rtol ) THEN WRITE (*,f9000) TRIM(pname), 'CEN_LAT' WRITE (*,f9200) TRIM(fl1), met_y_centd, TRIM(fl), rval CALL graceful_stop (pname) ENDIF ELSE WRITE (*,f9400) TRIM(pname), 'CEN_LAT', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF rcode = nf90_get_att (cdfid, nf90_global, 'TRUELAT1', rval) IF ( rcode == nf90_noerr ) THEN IF ( ABS( rval - met_tru1 ) > rtol ) THEN WRITE (*,f9000) TRIM(pname), 'TRUELAT1' WRITE (*,f9200) TRIM(fl1), met_tru1, TRIM(fl), rval CALL graceful_stop (pname) ENDIF ELSE WRITE (*,f9400) TRIM(pname), 'TRUELAT1', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF rcode = nf90_get_att (cdfid, nf90_global, 'TRUELAT2', rval) IF ( rcode == nf90_noerr ) THEN IF ( ABS( rval - met_tru2 ) > rtol ) THEN WRITE (*,f9000) TRIM(pname), 'TRUELAT2' WRITE (*,f9200) TRIM(fl1), met_tru2, TRIM(fl), rval CALL graceful_stop (pname) ENDIF ELSE WRITE (*,f9400) TRIM(pname), 'TRUELAT2', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF rcode = nf90_get_att (cdfid, nf90_global, 'MMINLU', cval) IF ( rcode == nf90_noerr ) THEN IF ( cval(1:3) /= met_lu_src(1:3) ) THEN WRITE (*,f9000) TRIM(pname), 'MMINLU' WRITE (*,f9300) TRIM(fl1), TRIM(met_lu_src), TRIM(fl), TRIM(cval) CALL graceful_stop (pname) ENDIF ELSE WRITE (*,f9400) TRIM(pname), 'MMINLU', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF rcode = nf90_get_att (cdfid, nf90_global, 'TITLE', cval) IF ( rcode == nf90_noerr ) THEN cval4 = ' ' IF ( cval(21:21) == "V" ) THEN cval4(1:2) = cval(21:22) ELSE WRITE (*,f9800) TRIM(pname), TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF IF ( cval(23:23) == "." ) THEN cval4(3:4) = cval(23:24) ENDIF IF ( cval4 >= "V3.1" ) THEN rcode = nf90_get_att (cdfid, nf90_global, 'NUM_LAND_CAT', ival) IF ( rcode == nf90_noerr ) THEN IF ( ival /= nummetlu ) THEN WRITE (*,f9000) TRIM(pname), 'NUM_LAND_CAT' WRITE (*,f9100) TRIM(fl1), nummetlu, TRIM(fl), ival CALL graceful_stop (pname) ENDIF ELSE WRITE (*,f9400) TRIM(pname), 'NUM_LAND_CAT', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ENDIF ELSE WRITE (*,f9400) TRIM(pname), 'TITLE', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF END SUBROUTINE chkwpshdr ================================================ FILE: PREP/mcip/src/chkwrfhdr.f90 ================================================ !------------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------------! SUBROUTINE chkwrfhdr (fl, cdfid) !------------------------------------------------------------------------------- ! Name: Check WRF Header ! Purpose: Check WRF header variables from one WRF output file against the ! "base" WRF output file used for this MCIP run to ensure that the ! WRF output files are from the same simulation. ! Notes: This routine is not thorough, but it should be enough to spot-check ! key variables that would indicate a different WRF simulation. ! This routine assumes that FL (input argument) is already opened. ! Revised: 15 May 2008 Original version. (T. Otte) ! 11 May 2009 Correct bug in checking surface layer scheme in ! subsequent files. (T. Otte) ! 25 Sep 2009 Removed netCDF file opening to prevent condition with ! too many open files for long simulations. Added ! check on urban physics option and surface analysis ! nudging options. Changed code to allow for GRID_FDDA ! to be greater than 1. Corrected bug in checking to ! ensure that data are from same simulation (i.e., ! restarted rather than reinitialized). Corrected bug ! in checking observation nudging coefficient for ! temperature. (T. Otte) ! 12 Feb 2010 Removed unused variables CDFID, DX, DY, N_TIMES, and ! VARID, and removed unused format statements 9600 and ! 9700. Changed RTOL to 1.0e-4. (T. Otte) ! 18 Mar 2010 Added CDFID as an input argument. Removed dependency ! on module WRF_NETCDF. (T. Otte) ! 23 Aug 2011 Changed name of module FILE to FILES to avoid conflict ! with F90 protected intrinsic. Updated netCDF commands ! to F90, and improved error handling. (T. Otte) ! 07 Sep 2011 Updated disclaimer. (T. Otte) !------------------------------------------------------------------------------- USE files USE metinfo USE netcdf IMPLICIT NONE INTEGER, INTENT(IN) :: cdfid CHARACTER(LEN=80) :: cval CHARACTER(LEN=8) :: cval8 CHARACTER(LEN=19) :: date_init INTEGER :: dimid CHARACTER(LEN=256), INTENT(IN) :: fl CHARACTER(LEN=256) :: fl1 INTEGER :: ival CHARACTER(LEN=16), PARAMETER :: pname = 'CHKWRFHDR' INTEGER :: rcode REAL, PARAMETER :: rtol = 1.0e-4 REAL :: rval !------------------------------------------------------------------------------- ! Error-handling section. !------------------------------------------------------------------------------- CHARACTER(LEN=256), PARAMETER :: f9000 = "(/, 1x, 70('*'), & & /, 1x, '*** SUBROUTINE: ', a, & & /, 1x, '*** WRF FILES DO NOT SEEM TO BE FROM SAME DOMAIN', & & /, 1x, '*** VARIABLE = ', a)" CHARACTER(LEN=256), PARAMETER :: f9100 = "( & & /, 1x, '*** FIRST FILE = ', a, & & /, 1x, '*** VALUE IN FIRST FILE = ', i4, & & /, 1x, '*** NEW FILE = ', a, & & /, 1x, '*** VALUE IN NEW FILE = ', i4, & & /, 1x, 70('*'))" CHARACTER(LEN=256), PARAMETER :: f9200 = "( & & /, 1x, '*** FIRST FILE = ', a, & & /, 1x, '*** VALUE IN FIRST FILE = ', f13.3, & & /, 1x, '*** NEW FILE = ', a, & & /, 1x, '*** VALUE IN NEW FILE = ', f13.3, & & /, 1x, 70('*'))" CHARACTER(LEN=256), PARAMETER :: f9300 = "( & & /, 1x, '*** FIRST FILE = ', a, & & /, 1x, '*** VALUE IN FIRST FILE = ', a, & & /, 1x, '*** NEW FILE = ', a, & & /, 1x, '*** VALUE IN NEW FILE = ', a, & & /, 1x, 70('*'))" CHARACTER(LEN=256), PARAMETER :: f9400 = "(/, 1x, 70('*'), & & /, 1x, '*** SUBROUTINE: ', a, & & /, 1x, '*** ERROR RETRIEVING VARIABLE FROM WRF FILE', & & /, 1x, '*** VARIABLE = ', a, & & /, 1x, '*** NCF: ', a, & & /, 1x, 70('*'))" !------------------------------------------------------------------------------- ! Check NX, NY, and NZ. !------------------------------------------------------------------------------- fl1 = file_mm(1) rcode = nf90_get_att (cdfid, nf90_global, 'WEST-EAST_GRID_DIMENSION', ival) IF ( rcode == nf90_noerr ) THEN IF ( ival /= met_nx ) THEN WRITE (*,f9000) TRIM(pname), 'WEST-EAST_GRID_DIMENSION' WRITE (*,f9100) TRIM(fl1), met_nx, TRIM(fl), ival CALL graceful_stop (pname) ENDIF ELSE WRITE (*,f9400) TRIM(pname), 'WEST-EAST_GRID_DIMENSION', & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF rcode = nf90_get_att (cdfid, nf90_global, 'SOUTH-NORTH_GRID_DIMENSION', ival) IF ( rcode == nf90_noerr ) THEN IF ( ival /= met_ny ) THEN WRITE (*,f9000) TRIM(pname), 'SOUTH-NORTH_GRID_DIMENSION' WRITE (*,f9100) TRIM(fl1), met_ny, TRIM(fl), ival CALL graceful_stop (pname) ENDIF ELSE WRITE (*,f9400) TRIM(pname), 'SOUTH-NORTH_GRID_DIMENSION', & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF rcode = nf90_get_att (cdfid, nf90_global, 'BOTTOM-TOP_GRID_DIMENSION', ival) IF ( rcode == nf90_noerr ) THEN IF ( ival-1 /= met_nz ) THEN WRITE (*,f9000) TRIM(pname), 'BOTTOM-TOP_GRID_DIMENSION' WRITE (*,f9100) TRIM(fl1), met_nz, TRIM(fl), ival-1 CALL graceful_stop (pname) ENDIF ELSE WRITE (*,f9400) TRIM(pname), 'BOTTOM-TOP_GRID_DIMENSION', & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF !------------------------------------------------------------------------------- ! Check domain attributes. !------------------------------------------------------------------------------- rcode = nf90_get_att (cdfid, nf90_global, 'TITLE', cval) IF ( rcode == nf90_noerr ) THEN cval8 = ' ' IF ( cval(18:18) == "V" ) THEN cval8(1:2) = cval(18:19) ENDIF IF ( cval(20:20) == '.' ) THEN cval8(3:4) = cval(20:21) ENDIF IF ( cval(22:22) == '.' ) THEN cval8(5:6) = cval(22:23) ENDIF IF ( cval(24:24) == '.' ) THEN cval8(7:8) = cval(24:25) ENDIF IF ( cval8 /= met_release ) THEN WRITE (*,f9000) TRIM(pname), 'WRF VERSION' WRITE (*,f9300) TRIM(fl1), met_release, TRIM(fl), cval8 CALL graceful_stop (pname) ENDIF ELSE WRITE (*,f9400) TRIM(pname), 'TITLE', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF rcode = nf90_get_att (cdfid, nf90_global, 'DX', rval) IF ( rcode == nf90_noerr ) THEN IF ( ABS( rval - met_resoln ) > rtol ) THEN WRITE (*,f9000) TRIM(pname), 'DX' WRITE (*,f9200) TRIM(fl1), met_resoln, TRIM(fl), rval CALL graceful_stop (pname) ENDIF ELSE WRITE (*,f9400) TRIM(pname), 'DX', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF rcode = nf90_get_att (cdfid, nf90_global, 'DY', rval) IF ( rcode == nf90_noerr ) THEN IF ( ABS( rval - met_resoln ) > rtol ) THEN WRITE (*,f9000) TRIM(pname), 'DY' WRITE (*,f9200) TRIM(fl1), met_resoln, TRIM(fl), rval CALL graceful_stop (pname) ENDIF ELSE WRITE (*,f9400) TRIM(pname), 'DY', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF rcode = nf90_get_att (cdfid, nf90_global, 'MAP_PROJ', ival) IF ( rcode == nf90_noerr ) THEN IF ( ival /= met_mapproj ) THEN WRITE (*,f9000) TRIM(pname), 'MAP_PROJ' WRITE (*,f9100) TRIM(fl1), met_mapproj, TRIM(fl), ival CALL graceful_stop (pname) ENDIF ELSE WRITE (*,f9400) TRIM(pname), 'MAP_PROJ', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF rcode = nf90_get_att (cdfid, nf90_global, 'STAND_LON', rval) IF ( rcode == nf90_noerr ) THEN IF ( ABS( rval - met_proj_clon ) > rtol ) THEN WRITE (*,f9000) TRIM(pname), 'STAND_LON' WRITE (*,f9200) TRIM(fl1), met_proj_clon, TRIM(fl), rval CALL graceful_stop (pname) ENDIF ELSE WRITE (*,f9400) TRIM(pname), 'STAND_LON', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF rcode = nf90_get_att (cdfid, nf90_global, 'MOAD_CEN_LAT', rval) IF ( rcode == nf90_noerr ) THEN IF ( ABS( rval - met_proj_clat ) > rtol ) THEN WRITE (*,f9000) TRIM(pname), 'MOAD_CEN_LAT' WRITE (*,f9200) TRIM(fl1), met_proj_clat, TRIM(fl), rval CALL graceful_stop (pname) ENDIF ELSE WRITE (*,f9400) TRIM(pname), 'MOAD_CEN_LAT', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF rcode = nf90_get_att (cdfid, nf90_global, 'CEN_LON', rval) IF ( rcode == nf90_noerr ) THEN IF ( ABS( rval - met_x_centd ) > rtol ) THEN WRITE (*,f9000) TRIM(pname), 'CEN_LON' WRITE (*,f9200) TRIM(fl1), met_x_centd, TRIM(fl), rval CALL graceful_stop (pname) ENDIF ELSE WRITE (*,f9400) TRIM(pname), 'CEN_LON', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF rcode = nf90_get_att (cdfid, nf90_global, 'CEN_LAT', rval) IF ( rcode == nf90_noerr ) THEN IF ( ABS( rval - met_y_centd ) > rtol ) THEN WRITE (*,f9000) TRIM(pname), 'CEN_LAT' WRITE (*,f9200) TRIM(fl1), met_y_centd, TRIM(fl), rval CALL graceful_stop (pname) ENDIF ELSE WRITE (*,f9400) TRIM(pname), 'CEN_LAT', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF rcode = nf90_get_att (cdfid, nf90_global, 'TRUELAT1', rval) IF ( rcode == nf90_noerr ) THEN IF ( ABS( rval - met_tru1 ) > rtol ) THEN WRITE (*,f9000) TRIM(pname), 'TRUELAT1' WRITE (*,f9200) TRIM(fl1), met_tru1, TRIM(fl), rval CALL graceful_stop (pname) ENDIF ELSE WRITE (*,f9400) TRIM(pname), 'TRUELAT1', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF rcode = nf90_get_att (cdfid, nf90_global, 'TRUELAT2', rval) IF ( rcode == nf90_noerr ) THEN IF ( ABS( rval - met_tru2 ) > rtol ) THEN WRITE (*,f9000) TRIM(pname), 'TRUELAT2' WRITE (*,f9200) TRIM(fl1), met_tru2, TRIM(fl), rval CALL graceful_stop (pname) ENDIF ELSE WRITE (*,f9400) TRIM(pname), 'TRUELAT2', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF !------------------------------------------------------------------------------- ! Extract model run options. !------------------------------------------------------------------------------- rcode = nf90_get_att (cdfid, nf90_global, 'MMINLU', cval) IF ( rcode == nf90_noerr ) THEN IF ( cval(1:4) /= met_lu_src(1:4) ) THEN WRITE (*,f9000) TRIM(pname), 'MMINLU' WRITE (*,f9300) TRIM(fl1), met_lu_src(1:4), TRIM(fl), cval(1:4) CALL graceful_stop (pname) ENDIF ELSE WRITE (*,f9400) TRIM(pname), 'MMINLU', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF rcode = nf90_get_att (cdfid, nf90_global, 'ISWATER', ival) IF ( rcode == nf90_noerr ) THEN IF ( ival /= met_lu_water ) THEN WRITE (*,f9000) TRIM(pname), 'ISWATER' WRITE (*,f9100) TRIM(fl1), met_lu_water, TRIM(fl), ival CALL graceful_stop (pname) ENDIF ELSE WRITE (*,f9400) TRIM(pname), 'ISWATER', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF rcode = nf90_inq_dimid (cdfid, 'soil_layers_stag', dimid) IF ( rcode /= nf90_noerr ) THEN WRITE (*,f9400) TRIM(pname), 'ID for soil_layers_stag', & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF rcode = nf90_inquire_dimension (cdfid, dimid, len=ival) IF ( rcode == nf90_noerr ) THEN IF ( ival /= met_ns ) THEN WRITE (*,f9000) TRIM(pname), 'soil_layers_stag' WRITE (*,f9100) TRIM(fl1), met_ns, TRIM(fl), ival CALL graceful_stop (pname) ENDIF ELSE WRITE (*,f9400) TRIM(pname), 'value for soil_layers_stag', & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF rcode = nf90_get_att (cdfid, nf90_global, 'RA_LW_PHYSICS', ival) IF ( rcode == nf90_noerr ) THEN IF ( ival /= met_lw_rad ) THEN WRITE (*,f9000) TRIM(pname), 'RA_LW_PHYSICS' WRITE (*,f9100) TRIM(fl1), met_lw_rad, TRIM(fl), ival CALL graceful_stop (pname) ENDIF ELSE WRITE (*,f9400) TRIM(pname), 'RA_LW_PHYSICS', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF rcode = nf90_get_att (cdfid, nf90_global, 'RA_SW_PHYSICS', ival) IF ( rcode == nf90_noerr ) THEN IF ( ival /= met_sw_rad ) THEN WRITE (*,f9000) TRIM(pname), 'RA_SW_PHYSICS' WRITE (*,f9100) TRIM(fl1), met_sw_rad, TRIM(fl), ival CALL graceful_stop (pname) ENDIF ELSE WRITE (*,f9400) TRIM(pname), 'RA_SW_PHYSICS', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF rcode = nf90_get_att (cdfid, nf90_global, 'CU_PHYSICS', ival) IF ( rcode == nf90_noerr ) THEN IF ( ival /= met_cumulus ) THEN WRITE (*,f9000) TRIM(pname), 'CU_PHYSICS' WRITE (*,f9100) TRIM(fl1), met_cumulus, TRIM(fl), ival CALL graceful_stop (pname) ENDIF ELSE WRITE (*,f9400) TRIM(pname), 'CU_PHYSICS', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF rcode = nf90_get_att (cdfid, nf90_global, 'MP_PHYSICS', ival) IF ( rcode == nf90_noerr ) THEN IF ( ival /= met_expl_moist ) THEN WRITE (*,f9000) TRIM(pname), 'MP_PHYSICS' WRITE (*,f9100) TRIM(fl1), met_expl_moist, TRIM(fl), ival CALL graceful_stop (pname) ENDIF ELSE WRITE (*,f9400) TRIM(pname), 'MP_PHYSICS', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF rcode = nf90_get_att (cdfid, nf90_global, 'BL_PBL_PHYSICS', ival) IF ( rcode == nf90_noerr ) THEN IF ( ival /= met_pbl ) THEN WRITE (*,f9000) TRIM(pname), 'BL_PBL_PHYSICS' WRITE (*,f9100) TRIM(fl1), met_pbl, TRIM(fl), ival CALL graceful_stop (pname) ENDIF ELSE WRITE (*,f9400) TRIM(pname), 'BL_PBL_PHYSICS', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF rcode = nf90_get_att (cdfid, nf90_global, 'SF_SFCLAY_PHYSICS', ival) IF ( rcode == nf90_noerr ) THEN IF ( ival /= met_sfc_lay ) THEN WRITE (*,f9000) TRIM(pname), 'SF_SFCLAY_PHYSICS' WRITE (*,f9100) TRIM(fl1), met_sfc_lay, TRIM(fl), ival CALL graceful_stop (pname) ENDIF ELSE WRITE (*,f9400) TRIM(pname), 'SF_SFCLAY_PHYSICS', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF rcode = nf90_get_att (cdfid, nf90_global, 'SF_SURFACE_PHYSICS', ival) IF ( rcode == nf90_noerr ) THEN IF ( ival /= met_soil_lsm ) THEN WRITE (*,f9000) TRIM(pname), 'SF_SURFACE_PHYSICS' WRITE (*,f9100) TRIM(fl1), met_soil_lsm, TRIM(fl), ival CALL graceful_stop (pname) ENDIF ELSE WRITE (*,f9400) TRIM(pname), 'SF_SURFACE_PHYSICS', & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF IF ( TRIM(met_release) >= 'V3.1' ) THEN rcode = nf90_get_att (cdfid, nf90_global, 'SF_URBAN_PHYSICS', ival) IF ( rcode == nf90_noerr ) THEN IF ( ival /= met_urban_phys ) THEN WRITE (*,f9000) TRIM(pname), 'SF_URBAN_PHYSICS' WRITE (*,f9100) TRIM(fl1), met_urban_phys, TRIM(fl), ival CALL graceful_stop (pname) ENDIF ELSE WRITE (*,f9400) TRIM(pname), 'SF_URBAN_PHYSICS', & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ENDIF !------------------------------------------------------------------------------- ! Extract WRF start date and time information. !------------------------------------------------------------------------------- rcode = nf90_get_att (cdfid, nf90_global, 'SIMULATION_START_DATE', date_init) IF ( rcode == nf90_noerr ) THEN date_init(11:11) = "-" ! change from "_" to "-" for consistency IF ( date_init /= met_startdate(1:19) ) THEN WRITE (*,f9000) TRIM(pname), 'SIMULATION_START_DATE' WRITE (*,f9300) TRIM(fl1), met_startdate(1:19), TRIM(fl), date_init CALL graceful_stop (pname) ENDIF ELSE WRITE (*,f9400) TRIM(pname), 'SIMULATION_START_DATE', & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF !------------------------------------------------------------------------------- ! Determine FDDA options. !------------------------------------------------------------------------------- rcode = nf90_get_att (cdfid, nf90_global, 'GRID_FDDA', ival) IF ( rcode == nf90_noerr ) THEN IF ( ival /= met_fdda_3dan ) THEN WRITE (*,f9000) TRIM(pname), 'GRID_FDDA' WRITE (*,f9100) TRIM(fl1), met_fdda_3dan, TRIM(fl), ival CALL graceful_stop (pname) ENDIF ELSE IF ( TRIM(met_release) >= 'V2.2' ) THEN WRITE (*,f9400) TRIM(pname), 'GRID_FDDA', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ENDIF rcode = nf90_get_att (cdfid, nf90_global, 'GUV', rval) IF ( rcode == nf90_noerr ) THEN IF ( ABS( rval - met_fdda_gv3d ) > rtol ) THEN WRITE (*,f9000) TRIM(pname), 'GUV' WRITE (*,f9200) TRIM(fl1), met_fdda_gv3d, TRIM(fl), rval CALL graceful_stop (pname) ENDIF ELSE IF ( ( TRIM(met_release) >= 'V2.2' ) .AND. ( met_fdda_3dan == 1 ) ) THEN WRITE (*,f9400) TRIM(pname), 'GUV', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ELSE IF ( ( TRIM(met_release) >= 'V3.1' ) .AND. & ( met_fdda_3dan == 2 ) ) THEN WRITE (*,f9400) TRIM(pname), 'GUV', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ENDIF rcode = nf90_get_att (cdfid, nf90_global, 'GT', rval) IF ( rcode == nf90_noerr ) THEN IF ( ABS( rval - met_fdda_gt3d ) > rtol ) THEN WRITE (*,f9000) TRIM(pname), 'GT' WRITE (*,f9200) TRIM(fl1), met_fdda_gt3d, TRIM(fl), rval CALL graceful_stop (pname) ENDIF ELSE IF ( ( TRIM(met_release) >= 'V2.2' ) .AND. ( met_fdda_3dan == 1 ) ) THEN WRITE (*,f9400) TRIM(pname), 'GT', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ELSE IF ( ( TRIM(met_release) >= 'V3.1' ) .AND. ( met_fdda_3dan == 2 ) ) THEN WRITE (*,f9400) TRIM(pname), 'GT', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ENDIF rcode = nf90_get_att (cdfid, nf90_global, 'GQ', rval) IF ( rcode == nf90_noerr ) THEN IF ( ABS( rval - met_fdda_gq3d ) > rtol ) THEN WRITE (*,f9000) TRIM(pname), 'GQ' WRITE (*,f9200) TRIM(fl1), met_fdda_gq3d, TRIM(fl), rval CALL graceful_stop (pname) ENDIF ELSE IF ( ( TRIM(met_release) >= 'V2.2' ) .AND. ( met_fdda_3dan == 1 ) ) THEN WRITE (*,f9400) TRIM(pname), 'GQ', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ENDIF rcode = nf90_get_att (cdfid, nf90_global, 'GRID_SFDDA', ival) IF ( rcode == nf90_noerr ) THEN IF ( ival /= met_fdda_sfan ) THEN WRITE (*,f9000) TRIM(pname), 'GRID_SFDDA' WRITE (*,f9100) TRIM(fl1), met_fdda_sfan, TRIM(fl), ival CALL graceful_stop (pname) ENDIF ELSE IF ( TRIM(met_release) >= 'V3.1' ) THEN WRITE (*,f9400) TRIM(pname), 'GRID_SFDDA', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ENDIF rcode = nf90_get_att (cdfid, nf90_global, 'GUV_SFC', rval) IF ( rcode == nf90_noerr ) THEN IF ( ABS( rval - met_fdda_gvsfc ) > rtol ) THEN WRITE (*,f9000) TRIM(pname), 'GUV_SFC' WRITE (*,f9200) TRIM(fl1), met_fdda_gvsfc, TRIM(fl), rval CALL graceful_stop (pname) ENDIF ELSE IF ( ( TRIM(met_release) >= 'V3.1' ) .AND. ( met_fdda_sfan == 1 ) ) THEN WRITE (*,f9400) TRIM(pname), 'GUV_SFC', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ENDIF rcode = nf90_get_att (cdfid, nf90_global, 'GT_SFC', rval) IF ( rcode == nf90_noerr ) THEN IF ( ABS( rval - met_fdda_gtsfc ) > rtol ) THEN WRITE (*,f9000) TRIM(pname), 'GT_SFC' WRITE (*,f9200) TRIM(fl1), met_fdda_gtsfc, TRIM(fl), rval CALL graceful_stop (pname) ENDIF ELSE IF ( ( TRIM(met_release) >= 'V3.1' ) .AND. ( met_fdda_sfan == 1 ) ) THEN WRITE (*,f9400) TRIM(pname), 'GT_SFC', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ENDIF rcode = nf90_get_att (cdfid, nf90_global, 'GQ_SFC', rval) IF ( rcode == nf90_noerr ) THEN IF ( ABS( rval - met_fdda_gqsfc ) > rtol ) THEN WRITE (*,f9000) TRIM(pname), 'GQ_SFC' WRITE (*,f9200) TRIM(fl1), met_fdda_gqsfc, TRIM(fl), rval CALL graceful_stop (pname) ENDIF ELSE IF ( ( TRIM(met_release) >= 'V3.1' ) .AND. ( met_fdda_sfan == 1 ) ) THEN WRITE (*,f9400) TRIM(pname), 'GQ_SFC', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ENDIF rcode = nf90_get_att (cdfid, nf90_global, 'OBS_NUDGE_OPT', ival) IF ( rcode == nf90_noerr ) THEN IF ( ival /= met_fdda_obs ) THEN WRITE (*,f9000) TRIM(pname), 'OBS_NUDGE_OPT' WRITE (*,f9100) TRIM(fl1), met_fdda_obs, TRIM(fl), ival CALL graceful_stop (pname) ENDIF ELSE IF ( TRIM(met_release) >= 'V2.2' ) THEN WRITE (*,f9400) TRIM(pname), 'OBS_NUDGE_OPT', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ENDIF rcode = nf90_get_att (cdfid, nf90_global, 'OBS_COEF_WIND', rval) IF ( rcode == nf90_noerr ) THEN IF ( ABS( rval - met_fdda_giv ) > rtol ) THEN WRITE (*,f9000) TRIM(pname), 'OBS_COEF_WIND' WRITE (*,f9200) TRIM(fl1), met_fdda_giv, TRIM(fl), rval CALL graceful_stop (pname) ENDIF ELSE IF ( ( TRIM(met_release) >= 'V2.2' ) .AND. ( met_fdda_obs == 1 ) ) THEN WRITE (*,f9400) TRIM(pname), 'OBS_COEF_WIND', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ENDIF rcode = nf90_get_att (cdfid, nf90_global, 'OBS_COEF_TEMP', rval) IF ( rcode == nf90_noerr ) THEN IF ( ABS( rval - met_fdda_git ) > rtol ) THEN WRITE (*,f9000) TRIM(pname), 'OBS_COEF_TEMP' WRITE (*,f9200) TRIM(fl1), met_fdda_git, TRIM(fl), rval CALL graceful_stop (pname) ENDIF ELSE IF ( ( TRIM(met_release) >= 'V2.2' ) .AND. ( met_fdda_obs == 1 ) ) THEN WRITE (*,f9400) TRIM(pname), 'OBS_COEF_TEMP', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ENDIF rcode = nf90_get_att (cdfid, nf90_global, 'OBS_COEF_MOIS', rval) IF ( rcode == nf90_noerr ) THEN IF ( ABS( rval - met_fdda_giq ) > rtol ) THEN WRITE (*,f9000) TRIM(pname), 'OBS_COEF_MOIS' WRITE (*,f9200) TRIM(fl1), met_fdda_giq, TRIM(fl), rval CALL graceful_stop (pname) ENDIF ELSE IF ( ( TRIM(met_release) >= 'V2.2' ) .AND. ( met_fdda_obs == 1 ) ) THEN WRITE (*,f9400) TRIM(pname), 'OBS_COEF_MOIS', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ENDIF END SUBROUTINE chkwrfhdr ================================================ FILE: PREP/mcip/src/close_files.f90 ================================================ !------------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------------! SUBROUTINE close_files !------------------------------------------------------------------------------- ! Name: Close Files ! Purpose: Close I/O API files. ! Revised: 10 Sep 2001 Original version. (T. Otte) ! 09 Jan 2002 Changed "stop" statements to calls to "m3exit" for ! graceful shut-down of I/O API files. (T. Otte) ! 29 Aug 2011 Replaced module IODECL3 with I/O API module M3UTILIO. ! Replaced F77 character declarations with F90 standard. ! Improved error handling. (T. Otte) ! 07 Sep 2011 Updated disclaimer. (T. Otte) ! 19 Dec 2018 Added runtime option to choose output format. ! (T. Spero) !------------------------------------------------------------------------------- USE files USE m3utilio USE mcipparm, ONLY: ioform USE netcdf IMPLICIT NONE CHARACTER(LEN=16), PARAMETER :: pname = 'CLOSE_FILES' INTEGER :: rcode !------------------------------------------------------------------------------- ! Error, warning, and informational messages. !------------------------------------------------------------------------------- CHARACTER(LEN=256), PARAMETER :: f9000 = "(/, 1x, 70('*'), & & /, 1x, '*** SUBROUTINE: ', a, & & /, 1x, '*** COULD NOT CLOSE I/O API OUTPUT FILES', & & /, 1x, 70('*'))" CHARACTER(LEN=256), PARAMETER :: f9100 = "(/, 1x, 70('*'), & & /, 1x, '*** SUBROUTINE: ', a, & & /, 1x, '*** ERROR CLOSING NETCDF FILE', & & /, 1x, '*** FILE = ', a, & & /, 1x, '*** ', a, & & /, 1x, 70('*'))" !------------------------------------------------------------------------------- ! Gracefully close output files. !------------------------------------------------------------------------------- SELECT CASE ( ioform ) CASE ( 1 ) ! Models-3 I/O API IF ( .NOT. shut3() ) THEN WRITE (*,f9000) TRIM(pname) CALL graceful_stop (pname) ENDIF CASE ( 2 ) ! netCDF rcode = nf90_close (cdfid_m) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9100) TRIM(pname), TRIM(mcipncf), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF rcode = nf90_close (cdfid_b) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9100) TRIM(pname), TRIM(mcipbdyncf), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF END SELECT END SUBROUTINE close_files ================================================ FILE: PREP/mcip/src/comheader.f90 ================================================ !------------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------------! SUBROUTINE comheader (sdate, stime) !------------------------------------------------------------------------------- ! Name: Common Header ! Purpose: Builds a common header part for I/O API output. ! Revised: 27 Jan 1997 Created for MCIP and generalized CTM. (D. Byun) ! 04 Feb 1998 LSM include nonglobal changed. (D. Byun) ! 10 Sep 2001 Converted to free-form f90. (T. Otte) ! 30 Jul 2007 Fill FDESC3D to create metadata. (T. Otte) ! 11 Aug 2011 Replaced module FDESC3 with I/O API module M3UTILIO. ! (T. Otte) ! 07 Sep 2011 Updated disclaimer. (T. Otte) ! 10 Feb 2018 Reinitialize VGLVS3D on each call to accommodate ! additional 3D I/O API output files where the third ! dimension is not atmospheric layers. (T. Spero) !------------------------------------------------------------------------------- USE coord USE m3utilio USE mcipparm IMPLICIT NONE INTEGER, INTENT(IN) :: sdate ! YYYYDDD INTEGER, INTENT(IN) :: stime ! HHMMSS !------------------------------------------------------------------------------- ! Fill common headers from MODULE COORD. !------------------------------------------------------------------------------- sdate3d = sdate stime3d = stime gdnam3d = gdname_gd gdtyp3d = gdtyp_gd p_alp3d = p_alp_gd p_bet3d = p_bet_gd p_gam3d = p_gam_gd xcent3d = xcent_gd ycent3d = ycent_gd xorig3d = xorig_gd yorig3d = yorig_gd xcell3d = xcell_gd ycell3d = ycell_gd vgtyp3d = vgtyp_gd vgtop3d = vgtop_gd ! Layer defined in standard met. coordinate. vglvs3d(:) = 0.0 ! initialized to ensure monotonicity vglvs3d(1:nlays+1) = vglvs_gd(1:nlays+1) ! Initialize FDESC3D and UPDESC3D array. fdesc3d(1:mxdesc3) = ' ' updsc3d(1:mxdesc3) = ' ' fdesc3d(:) = fdesc(:) updsc3d(:) = fdesc(:) END SUBROUTINE comheader ================================================ FILE: PREP/mcip/src/comheader_lufrac.f90 ================================================ !------------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------------! SUBROUTINE comheader_lufrac (sdate, stime) !------------------------------------------------------------------------------- ! Name: Common Header (Land Use Fraction) ! Purpose: Builds a common header part for I/O API output. ! Revised: 13 Feb 2018 Initial version adapted from comheader.f90 in ! MCIPv4.4. (T. Spero) !------------------------------------------------------------------------------- USE coord USE m3utilio USE mcipparm IMPLICIT NONE INTEGER :: i INTEGER, INTENT(IN) :: sdate ! YYYYDDD INTEGER, INTENT(IN) :: stime ! HHMMSS !------------------------------------------------------------------------------- ! Fill common headers from MODULE COORD. !------------------------------------------------------------------------------- sdate3d = sdate stime3d = stime gdnam3d = gdname_gd gdtyp3d = gdtyp_gd p_alp3d = p_alp_gd p_bet3d = p_bet_gd p_gam3d = p_gam_gd xcent3d = xcent_gd ycent3d = ycent_gd xorig3d = xorig_gd yorig3d = yorig_gd xcell3d = xcell_gd ycell3d = ycell_gd vgtyp3d = imiss3 vgtop3d = 0.0 ! Layer defined in number of categories. vglvs3d(:) = 999.9 ! initialized to ensure monotonicity DO i = 1, nummetlu vglvs3d(i) = FLOAT(i) ENDDO ! Initialize FDESC3D and UPDESC3D array. fdesc3d(1:mxdesc3) = ' ' updsc3d(1:mxdesc3) = ' ' fdesc3d(:) = fdesc(:) updsc3d(:) = fdesc(:) END SUBROUTINE comheader_lufrac ================================================ FILE: PREP/mcip/src/comheader_mos.f90 ================================================ !------------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------------! SUBROUTINE comheader_mos (sdate, stime) !------------------------------------------------------------------------------- ! Name: Common Header (Mosaic) ! Purpose: Builds a common header part for I/O API output. ! Revised: 10 Feb 2018 Initial version adapted from comheader.f90 in ! MCIPv4.4. (T. Spero) !------------------------------------------------------------------------------- USE coord USE m3utilio USE mcipparm IMPLICIT NONE INTEGER :: i INTEGER, INTENT(IN) :: sdate ! YYYYDDD INTEGER, INTENT(IN) :: stime ! HHMMSS !------------------------------------------------------------------------------- ! Fill common headers from MODULE COORD. !------------------------------------------------------------------------------- sdate3d = sdate stime3d = stime gdnam3d = gdname_gd gdtyp3d = gdtyp_gd p_alp3d = p_alp_gd p_bet3d = p_bet_gd p_gam3d = p_gam_gd xcent3d = xcent_gd ycent3d = ycent_gd xorig3d = xorig_gd yorig3d = yorig_gd xcell3d = xcell_gd ycell3d = ycell_gd vgtyp3d = imiss3 vgtop3d = 0.0 ! Layer defined in number of categories. vglvs3d(:) = 999.9 ! initialized to ensure monotonicity DO i = 1, nummosaic vglvs3d(i) = FLOAT(i) ENDDO ! Initialize FDESC3D and UPDESC3D array. fdesc3d(1:mxdesc3) = ' ' updsc3d(1:mxdesc3) = ' ' fdesc3d(:) = fdesc(:) updsc3d(:) = fdesc(:) END SUBROUTINE comheader_mos ================================================ FILE: PREP/mcip/src/comheader_soi.f90 ================================================ !------------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------------! SUBROUTINE comheader_soi (sdate, stime) !------------------------------------------------------------------------------- ! Name: Common Header (Soil) ! Purpose: Builds a common header part for I/O API output. ! Revised: 10 Feb 2018 Initial version adapted from comheader.f90 in ! MCIPv4.4. (T. Spero) !------------------------------------------------------------------------------- USE coord USE m3utilio USE mcipparm USE xvars, ONLY: xzsoil IMPLICIT NONE INTEGER :: i INTEGER, INTENT(IN) :: sdate ! YYYYDDD INTEGER, INTENT(IN) :: stime ! HHMMSS !------------------------------------------------------------------------------- ! Fill common headers from MODULE COORD. !------------------------------------------------------------------------------- sdate3d = sdate stime3d = stime gdnam3d = gdname_gd gdtyp3d = gdtyp_gd p_alp3d = p_alp_gd p_bet3d = p_bet_gd p_gam3d = p_gam_gd xcent3d = xcent_gd ycent3d = ycent_gd xorig3d = xorig_gd yorig3d = yorig_gd xcell3d = xcell_gd ycell3d = ycell_gd vgtyp3d = vghval3 vgtop3d = 0.0 ! Layer defined in soil depths. vglvs3d(:) = -999.9 ! initialized to ensure monotonicity DO i = 1, metsoi vglvs3d(i) = xzsoil(i) ENDDO ! Initialize FDESC3D and UPDESC3D array. fdesc3d(1:mxdesc3) = ' ' updsc3d(1:mxdesc3) = ' ' fdesc3d(:) = fdesc(:) updsc3d(:) = fdesc(:) END SUBROUTINE comheader_soi ================================================ FILE: PREP/mcip/src/const_mod.f90 ================================================ !------------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------------! MODULE const !------------------------------------------------------------------------------- ! Name: Constants ! Purpose: Contains fundamental constants for air quality modeling. ! Sets universal constants for all CMAQ programs. ! Revised: ?? Jun 1992 Adapted from ROM's PI.EXT. (C. Coats) ! 01 Mar 1993 Included constants needed by LCM aqueous chemistry. ! (J. McHenry) ! ?? Sep 1993 Included additional constants needed for FMEM clouds ! and aqueous chemistry. (J. McHenry) ! 04 Mar 1996 Reflect current Models3 view that MKS units should be ! used wherever possible and that sources be documented. ! Some variables have been added, names changed, and ! values revised. (F. Binkowski) ! 07 Mar 1996 Add universal gas constant and compute gas constant ! in chemical form. TWOPI is now calculated rather ! than input. (???) ! 13 Mar 1996 Group declarations and parameter statements. (???) ! 13 Sep 1996 Include more physical constants. (???) ! 24 Dec 1996 Eliminate silly EPSILON, AMISS. (???) ! 06 Jan 1997 Eliminate most derived constants. (J. Young) ! 17 Jan 1997 Comments only to provide numerical values as ! reference. (D. Byun) ! 10 Sep 2001 Converted to free-form f90 and changed name from ! CONST.EXT to module_const.f90. (T. Otte) ! 16 Aug 2005 Updated declaration of PI to F90 standard. (T. Otte) ! 21 Jun 2006 Updated calculations that use PI. (T. Otte) ! 23 Apr 2008 Changed REARTH and DG2M (derived from REARTH) from ! F90 parameters to values set from user input. ! (T. Otte) ! 07 Sep 2011 Updated disclaimer. (T. Otte) !------------------------------------------------------------------------------- !------------------------------------------------------------------------------- ! References: ! ! CRC76, "CRC Handbook of Chemistry and Physics (76th Ed)", ! CRC Press, 1995 ! Hobbs, P.V. "Basic Physical Chemistry for the Atmospheric Sciences", ! Cambridge Univ. Press, 206 pp, 1995. ! Snyder, J.P., "Map Projections-A Working Manual, U.S. Geological Survey ! Paper 1395 U.S.GPO, Washington, DC, 1987. ! Stull, R. B., "An Introduction to Bounday Layer Meteorology", Kluwer, ! Dordrecht, 1988 !------------------------------------------------------------------------------- IMPLICIT NONE ! Geometric Constants: ! pi (single precision: 3.141593) REAL(8), PARAMETER :: pi = 3.14159265358979324d0 ! pi/180 [ rad/deg ] REAL, PARAMETER :: pi180 = REAL (pi / 1.8d2) ! Geodetic Constants: ! radius of earth [ m ] ! -- radius of sphere having same surface area as Clarke ellipsoid of 1866 ! (Source: Snyder, 1987) !!! REAL, PARAMETER :: rearth = 6370997.0 REAL :: rearth ! length of a sidereal day [ sec ] (Source: CRC76, pp. 14-6) REAL, PARAMETER :: siday = 86164.09 ! mean gravitational acceleration [ m/sec**2 ] ! -- mean of polar and equatorial values (Source: CRC76, pp. 14-6) REAL, PARAMETER :: grav = 9.80622 ! latitude degrees to meters !!! REAL, PARAMETER :: dg2m = rearth * pi180 REAL :: dg2m ! Solar Constant [ W/m**2 ] (Source: CRC76, pp. 14-2) REAL, PARAMETER :: solcnst = 1373.0 ! Fundamental Constants: (Source: CRC76, pp. 1-1 to 1-6) ! Avogadro's Constant [ number/mol ] REAL, PARAMETER :: avo = 6.0221367e23 ! universal gas constant [ J/mol-K ] REAL, PARAMETER :: rgasuniv = 8.314510 ! standard atmosphere [ Pa ] REAL, PARAMETER :: stdatmpa = 101325.0 ! standard temperature [ K ] REAL, PARAMETER :: stdtemp = 273.15 ! Stefan-Boltzmann [ W/(m**2 K**4) ] REAL, PARAMETER :: stfblz = 5.67051e-8 ! Non-MKS: ! Molar volume at STP [ L/mol ] Non MKS units REAL, PARAMETER :: molvol = 22.41410 ! Atmospheric Constants: ! mean molecular weight for dry air [ g/mol ] ! -- 78.06% N2, 21% O2, and 0.943% A on a mole fraction basis ! (Source: Hobbs, 1995, pp. 69-70) REAL, PARAMETER :: mwair = 28.9628 ! dry-air gas constant [ 287.07548994 J/kg-K ] REAL, PARAMETER :: rdgas = 1.0e3 * rgasuniv / mwair ! mean molecular weight for water vapor [ g/mol ] REAL, PARAMETER :: mwwat = 18.0153 ! gas constant for water vapor [ 461.52492604 J/kg-K ] REAL, PARAMETER :: rwvap = 1.0e3 * rgasuniv / mwwat ! FSB NOTE: CPD, CVD, CPWVAP and CVWVAP are calculated assuming dry air and ! water vapor are classical ideal gases, i.e. vibration does not contribute ! to internal energy. ! specific heat of dry air at constant pressure [ 1004.7642148 J/kg-K ] REAL, PARAMETER :: cpd = 7.0 * rdgas / 2.0 ! specific heat of dry air at constant volume [ 717.68872485 J/kg-K ] REAL, PARAMETER :: cvd = 5.0 * rdgas / 2.0 ! specific heat for water vapor at constant pressure [ 1846.0997042 J/kg-K ] REAL, PARAMETER :: cpwvap = 4.0 * rwvap ! specific heat for water vapor at constant volume [ 1384.5747781 J/kg-K ] REAL, PARAMETER :: cvwvap = 3.0 * rwvap ! vapor press of water at 0 C [ Pa ] (Source: CRC76 pp. 6-15) REAL, PARAMETER :: vp0 = 611.29 ! The following values are taken from p. 641 of Stull (1988): ! latent heat of vaporization of water at 0 C [ J/kg ] REAL, PARAMETER :: lv0 = 2.501e6 ! Rate of change of latent heat of vaporization w.r.t. temperature [ J/kg-K ] REAL, PARAMETER :: dlvdt = 2370.0 ! latent heat of fusion of water at 0 C [ J/kg ] REAL, PARAMETER :: lf0 = 3.34e5 END MODULE const ================================================ FILE: PREP/mcip/src/const_pbl_mod.f90 ================================================ !------------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------------! MODULE const_pbl !------------------------------------------------------------------------------- ! Name: Constants for Planetary Boundary Layer ! Purpose: Parametric constants for describing planetary boundary layer. ! Revised: 17 Jan 1997 Original version. (D. Byun) ! 20 Jan 1997 Revised to reflect current Models-3 view that MKS ! units should be used wherever possible, and that ! sources be documented. Some variables have been ! added, names changed, and values revised. (D. Byun) ! 20 Sep 2001 Converted to free-form f90. (T. Otte) ! 09 Apr 2007 Added IMPLICIT NONE. (T. Otte) ! 07 Sep 2011 Updated disclaimer. (T. Otte) ! 21 Aug 2015 Added variables from WRF/ACM2 to support updated ! calculation of Monin-Obukhov length within MCIP, which ! allows for "corrector" portion of predictor/corrector ! equation to be used in CMAQ. Removed unused variables ! RICR, RIMAX, RIMIN, ALAMDAO, CH, ANEUT, BNEUT, ZREF, ! PBLMAX, PBLMIN, and SIMILIM. (T. Spero) !------------------------------------------------------------------------------- IMPLICIT NONE ! Surface layer similarity ! (1) simple - no distinction for momentum and heat ! REAL, PARAMETER :: vkar = 0.4 ! REAL, PARAMETER :: betam = 5.0 ! REAL, PARAMETER :: betah = 5.0 ! REAL, PARAMETER :: gamam = 16.0 ! REAL, PARAMETER :: gamah = 16.0 ! REAL, PARAMETER :: pro = 1.0 ! (2) Businger, et al. (1971) ! REAL, PARAMETER :: vkar = 0.35 ! REAL, PARAMETER :: betam = 4.7 ! REAL, PARAMETER :: betah = 6.35 ! REAL, PARAMETER :: gamam = 15.0 ! REAL, PARAMETER :: gamah = 9.0 ! REAL, PARAMETER :: pro = 0.74 ! (3) Hogstrom (1988) REAL, PARAMETER :: vkar = 0.40 REAL, PARAMETER :: betam = 6.00 REAL, PARAMETER :: betah = 8.21 REAL, PARAMETER :: gamam = 19.30 REAL, PARAMETER :: gamah = 11.60 REAL, PARAMETER :: pro = 0.95 REAL, PARAMETER :: amolmin = 1.25 ! min allowed 1.0/ABS(MOL) ! Constants used by PBLSUP that are consistent with those used in WRF/ACM2 ! (adapted from WRF's module_model_constants.f90 as of WRFV3.7). REAL, PARAMETER :: r_d = 287.0 REAL, PARAMETER :: r_v = 461.6 REAL, PARAMETER :: cp = 7.0 * r_d / 2.0 REAL, PARAMETER :: ep_1 = r_v / r_d - 1.0 END MODULE const_pbl ================================================ FILE: PREP/mcip/src/coord_mod.f90 ================================================ !------------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------------! MODULE coord !------------------------------------------------------------------------------- ! Name: Coordinate and Domain Descriptions ! Purpose: Contains coordinate and domain descriptions. ! Revised: 28 Jan 1998 Original version. (D. Byun) ! 28 Jan 1998 Removed commented out old data. (J. Young) ! 10 Sep 2001 Converted to free-form f90. (T. Otte) ! 03 Oct 2001 Added variable COORDNAM_GD. Changed declarations ! for real variables from REAL(8) to DOUBLE PRECISION. ! (T. Otte) ! 16 Aug 2005 Replaced DOUBLE PRECISION with REAL(8). (T. Otte) ! 09 Apr 2007 Added IMPLICIT NONE. (T. Otte) ! 30 Aug 2011 Changed F77 character declarations to F90 standard. ! (T. Otte) ! 07 Sep 2011 Updated disclaimer. (T. Otte) !------------------------------------------------------------------------------- IMPLICIT NONE !------------------------------------------------------------------------------- ! The definitions and declarations in this include file follow those ! given in the I/O-API include file FDESC3C.EXT and replace similar ! definitions. This include file is compatible with FDESC3C.EXT. ! ! All variable names end in string "_GD", which is a grid identifier for ! multiple grid applications. "_GD" should be "_G1" for the first grid, ! "_G2" for the second grid, etc. ! ! The horizontal grid definition information is REAL*8 in order ! to achieve the required precision in geographic-to/from-grid ! coordinate conversions. !------------------------------------------------------------------------------- !------------------------------------------------------------------------------- ! GDTYP_GD: ! The map projection type: ! 1: LATGRD for lat-lon coordinates (unused) ! 2: LAMGRD for Lambert coordinates ! 3: MERGRD for Mercator coordinates ! 4: STEGRD for Stereographic coordinates ! 5: UTMGRD for UTM coordinates !------------------------------------------------------------------------------- INTEGER :: gdtyp_gd !------------------------------------------------------------------------------- ! The definitions of the map projection specification parameters: ! P_ALP_GD (PROJ_ALPHA), ! P_BET_GD (PROJ_BETA), ! P_GAM_GD (PROJ_GAMMA), ! depend upon the projection type, as follows: ! (Note: if P_ALP_GD < AMISS (=-9E36, from PARMS3.EXT), then the grid ! description is missing or invalid.) ! ! Lambert P_ALP_GD <= P_BET_GD are the two latitudes that ! determine the projection cone; P_GAM_GD is the ! central meridian. ! ! Mercator P_ALP_GD and P_BET_GD are the latitude and longitude ! of the coordinate origin (within the tangent circle); ! P_GAM_GD is the angle between the cylinder axis ! and the North polar axis. ! ! Stereographic P_ALP_GD and P_BET_GD are the latitude and longitude ! of the point of tangency; P_GAM_GD is the angle from ! true North to the Y-axis. ! ! UTM: P_ALP_GD is the UTM zone. ! P_BET_GD and P_GAM_GD are unused. ! ! lat-lon: Currently not used. Coordinate units are degrees, with ! -180.0 < X <= 180.0, -90.0 <= Y <= 90.0 ! Western longitudes and southern latitudes are negative. !------------------------------------------------------------------------------- REAL(8) :: p_alp_gd ! degrees REAL(8) :: p_bet_gd ! degrees REAL(8) :: p_gam_gd ! degrees !------------------------------------------------------------------------------- ! (XCENT_GD, YCENT_GD): ! For Lambert, Mercator, and Stereographic, these are the ! longitude, -180 < X <= 180, and the latitude, -90 <= Y <= 90, ! for the center of the grid's respective Cartesian coordinate system. ! For UTM: ? ! For Lat-Lon: unused !------------------------------------------------------------------------------- REAL(8) :: xcent_gd ! degrees longitude REAL(8) :: ycent_gd ! degrees latitude !------------------------------------------------------------------------------- ! (XORIG_GD, YORIG_GD): ! For Lambert, Mercator, Stereographic, and UTM these are the ! location in map units (Km) of the origin cell (1,1) (lower left corner) ! of the of the horizontal grid measured from (XCENT_GD, YCENT_GD). ! For Lat-Lon: units are degrees - unused !------------------------------------------------------------------------------- REAL(8) :: xorig_gd ! X-origin [m] REAL(8) :: yorig_gd ! Y-origin [m] !------------------------------------------------------------------------------- ! (XCELL_GD, YCELL_GD): ! The X-direction and Y-direction cell dimensions (m) for a regular grid ! If zero, the grid is assumed irregular and described by other means (e.g. ! a grid-geometry file). !------------------------------------------------------------------------------- REAL(8) :: xcell_gd ! X-cell dimension [m] REAL(8) :: ycell_gd ! Y-cell dimension [m] !------------------------------------------------------------------------------- ! VGTYP_GD: ! The vertical grid type: ! 1: VGSIGP for sigma-P coordinates ! 2: VGSGP0 for sigma-P0 coordinates ! 3: VGSIGZ for sigma-Z coordinates ! 4: VGETAP for eta-P coordinates ! 5: VGPRES for pressure coordinates ! 6: VGZVAL for Z (meters above ground) ! 7: VHZVAL for H (meters above mean sea level) ! 8: IMISS for vertical coordinates not stored in VGLVSD ! (e.g., temporally or spatially changing vertical coordinates) !------------------------------------------------------------------------------- INTEGER :: vgtyp_gd !------------------------------------------------------------------------------- ! VGTPUN_GD: ! The units of the vertical coordinate top. !------------------------------------------------------------------------------- CHARACTER(LEN=16) :: vgtpun_gd !------------------------------------------------------------------------------- ! VGTOP_GD: ! The value for the model top used in the definition of the sigma ! coordinate systems in the VGTPUN_GD units ! For sigma-P, the relationship between pressure levels P and sigma-P is ! given by the following formula: ! sigma-P = ( P - VGTOP_GD ) / (P_srf - VGTOP_GD ), ! where P_srf is the surface pressure. !------------------------------------------------------------------------------- REAL :: vgtop_gd !------------------------------------------------------------------------------- ! VGLVUN_GD: ! The units of the vertical coordinate surface values !------------------------------------------------------------------------------- CHARACTER(LEN=16) :: vglvun_gd !------------------------------------------------------------------------------- ! VGLVS_GD( 1...NLAYS+1 ): ! The list of vertical coordinate surface values in the VGLVUN_GD units ! Layer k extends from VGLVS3D( k ) to VGLVS3D( k+1 ). !------------------------------------------------------------------------------- REAL, ALLOCATABLE :: vglvs_gd ( : ) !------------------------------------------------------------------------------- ! X3FACE_GD( 0: NLAYS ): ! The list of vertical coordinate surface values in the VGLVUN_GD units ! coverted to values monotonically increasing with altitude. ( 1 - VGLVS_GD ) !------------------------------------------------------------------------------- REAL, ALLOCATABLE :: x3face_gd ( : ) !------------------------------------------------------------------------------- ! COORDNAM_GD: ! The coordinate system name used for I/O-API description and GRIDDESC. !------------------------------------------------------------------------------- CHARACTER(LEN=16) :: coordnam_gd !------------------------------------------------------------------------------- ! GDNAME_GD: ! The grid name used for I/O-API description and GRIDDESC. !------------------------------------------------------------------------------- CHARACTER(LEN=16) :: gdname_gd END MODULE coord ================================================ FILE: PREP/mcip/src/ctmout.f90 ================================================ !------------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------------! SUBROUTINE ctmout (mcip_now, sdate, stime) !------------------------------------------------------------------------------- ! Name: CTM Output -- Create output for CTM ! Purpose: Output time-varying fields. ! Revised: 19 Dec 2018 Original version in MCIPv5.0. Subsumes parts of ! metcro.f90, metdot.f90, soilcro.f90, and moscro.f90 ! from MCIPv4.5. (T. Spero) !------------------------------------------------------------------------------- USE mcipparm, ONLY: ioform IMPLICIT NONE CHARACTER(LEN=24), INTENT(IN) :: mcip_now INTEGER, INTENT(IN) :: sdate INTEGER, INTENT(IN) :: stime !------------------------------------------------------------------------------- ! Write time-varying output fields. !------------------------------------------------------------------------------- SELECT CASE ( ioform ) CASE ( 1 ) ! Models-3 I/O API CALL outcm3io (sdate, stime) CASE ( 2 ) ! netCDF CALL outncf (mcip_now, sdate, stime) CALL outncfbdy (mcip_now, sdate, stime) END SELECT !------------------------------------------------------------------------------- ! Print sample output to log file. !------------------------------------------------------------------------------- CALL outclog END SUBROUTINE ctmout ================================================ FILE: PREP/mcip/src/ctmproc.f90 ================================================ !------------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------------! SUBROUTINE ctmproc !------------------------------------------------------------------------------- ! Name: Meteorology on Cross Points ! Purpose: Compute and output time-dependent, cross-point parameters. ! Revised: 15 Jan 1997 Created for MCIP and generalized CTM. (D. Byun) ! 04 Feb 1998 LSM method for nonglobal variables changed. (???) ! 30 Apr 1999 PSTAR was replaced with PRSFC and MAXK. (D. Byun) ! 20 Sep 2001 Converted to free-form f90. Added interface for ! COLLAPX and removed WORKC. Added interface for ! SANITY and removed NCELLS. Removed IFTYPE and ! dependence of TSTEP3D on this variable. This routine ! always accesses time-dependent data. Removed ISTAT ! from argument list. Changed DUMARAY0 and DUMARAY1 to ! allocatable. Removed NLAYS from argument lists ! for COMHEADER and COLLAPX. Added QICE, QSNOW, SOIM1, ! SOIM2, SOIT1, SOIT2, and SLTYP to output. Removed ! unused arrays for LAMDA and MCONERR. (T. Otte) ! 11 Oct 2001 Changed lower-limit restrictions on MC3 and MB3 with ! epsilon. (T. Otte) ! 20 Nov 2001 Removed "sanity" checks. (T. Otte) ! 27 Feb 2002 Changed "stop" statements to calls to "m3exit" for ! graceful shut-down of I/O API files. Added logic ! to enable "missing" variables in output to have ! values of BADVAL3 < AMISS3, or 0.0, as appropriate. ! Removed RIB from output. Renamed SURF2 as WIND10 ! and SURF1 as TEMP1P5. (T. Otte) ! 27 Mar 2003 Corrected calculation of WGHT_TOP and WGHT_BOT that ! is used to get WHAT_JD_C and WHAT_JD_B on full levels. ! Removed extraneous calculation of X3MIDL. Changed ! calls to COLLAPX to be on Jacobian coupled with ! density instead of just Jacobian for better mass ! conservation reasons. Changed subsequent calculations ! of output variables based on Jacobian. Removed ! JDRATE. (J. Pleim and T. Otte) ! 09 Jun 2003 Added SNOCOV to output. (D. Schwede) ! Removed extraneous variables from output. Also ! removed unused file METBDY2D. (T. Otte) ! 09 Aug 2004 Modified code so that arrays are made available in ! output only if user options in MM5 generate those ! data. Added graupel (QG), full Jacobian (JACOBS and ! JACOBF), 10-m wind speed and direction (WSPD10 and ! WDIR10), passed-through 2-m temperature (TEMP2), and ! leaf-area index from Pleim-Xiu LSM to output. ! Changed local array allocation to occur only on initial ! call to subroutine to avoid memory fragmentation. ! Added initialization of NTHIK3D for I/O API output. ! (T. Otte and D. Schwede) ! 31 Jan 2005 Changed output file names by removing "_G1". (T. Otte) ! 19 Aug 2005 Added USE statement for new DEPVVARS module. Changed ! internal variable EPSILON to EPSILONQ and internal ! variable INDEX to IDX to avoid confusion with F90 ! intrinsic functions. Modified call to COLLAPX to ! reflect that there is one option for layer collapsing. ! (T. Otte) ! 19 Jun 2006 Updated comment to reflect that there is only one ! way to collapse fields. Corrected setting of ! VNAME3D for dry deposition species. Removed unused ! variable JDATE. (T. Otte) ! 26 Jul 2007 Changed XUSTAR and XRADYN to 2D arrays without a ! dimension for fractional land use that was required ! for RADMdry. Removed 1.5-m and 10-m temperature ! arrays. Fill 2-m temperature array regardless of ! whether it is available in input meteorology. ! Changed 2-m temperature from XT2 to XTEMP2. Added ! VEG to output, made LAI a general output variable, and ! added WR to output to support inline dry deposition ! velocity calculations in CCTM. Removed RBNDYI and ! JACOBS from output. (T. Otte) ! 28 Apr 2008 Replaced variable NTHIKD with NTHIK and removed ! options for NTHIK=0 in METBDY3D. Added Q2 to ! METCRO2D, and added TKE or TKEF to METCRO3D and ! METBDY3D if TKE is available in meteorology file. ! (T. Otte) ! Added cloud transmissivity variable to output if ! external satellite data are provided. When satellite ! data are available and this option is invoked, ! photolysis rates in CMAQ are computed using cloud ! cover, cloud transmissivity, cloud top and bottom ! heights, and cloud fraction that are based on observed ! fields rather than model-derived estimates. ! Contributed by University of Alabama at Huntsville. ! (A. Biazar and T. Otte) ! 29 Oct 2009 Corrected an error in the mapping of TKE to DUMARAY1 ! and vice versa in the layer collapsing. Added user ! option to output potential vorticity. Use XMAPC2 ! rather than squaring XMAPC each time routine is ! called. Remove vertical velocity (predicted by the ! meteorological model, WWIND) from output by default; ! retain user option to output 3D field. (T. Otte) ! 14 Dec 2010 Removed option to compute dry deposition velocities ! in MCIP. Added sea ice. (T. Otte) ! 11 Aug 2011 Replaced modules FDESC3, IODECL3, and PARMS3 with ! I/O API module M3UTILIO. (T. Otte) ! 01 Sep 2011 Changed name of module FILE to FILES to avoid conflict ! with F90 protected intrinsic. Improved error ! handling. (T. Otte) ! 07 Sep 2011 Updated disclaimer. (T. Otte) ! 27 Apr 2015 Added 3D resolved cloud fraction (CFRAC_3D) to output ! if it is available in incoming meteorological model ! data (T. Spero) ! 20 Aug 2015 Changed latent heat flux from QFX to LH. (T. Spero) ! 30 Oct 2015 Changed WRITE statements for printing sampled data to ! log file to eliminate warning messages. (T. Spero) ! 22 Nov 2017 Added SNOWH to output. (T. Spero) ! 26 Jun 2018 Updated units to conform to CF compliance. ! Consolidated output variables into a single module ! CTMVARS. Now use netCDF tokens for missing values. ! (T. Spero) ! 14 Sep 2018 Removed support for MM5v3 input. (T. Spero) ! 13 Dec 2018 Updated to use new data structures. Removed deprecated ! variables CFRAC, CLDT, CLDB, and WBAR. (T. Spero) ! 17 Dec 2018 Moved parsing and processing of output fields on the ! CCTM. grid to a different routine. Most of this ! is from metcro.f90, soilcro.f90, moscro.f90, and ! metdot.f90. (T. Spero) ! 18 Jun 2019 Removed layer collapsing. Added new surface variables ! with PX LSM that can improve dust simulation in CCTM. ! Simplified calculation of JACOBM and JACOBF to remove ! extra multiplication and division of density. Changed ! variable LUVCOUT to LUVBOUT to reflect that the default ! 3D wind components are on the Arakawa-C staggered grid, ! and the optional additional 3D winds are on the ! Arakawa-B staggered grid. Added optional variables ! from KF convective scheme with radiative feedbacks. ! (T. Spero) ! 21 Nov 2019 Corrected error in setting the 3D fractional cloud ! coverage on one of the lateral boundaries. (T. Spero) !------------------------------------------------------------------------------- USE mcipparm USE xvars USE ctmvars USE vgrd USE coord ! <--- fix this so that X3FACE and X3MIDL are moved TLS 14Dec18 IMPLICIT NONE INTEGER :: c INTEGER :: cm1 INTEGER :: col LOGICAL, SAVE :: first = .TRUE. INTEGER :: icld INTEGER :: idx INTEGER :: ii INTEGER :: ipv INTEGER :: itke INTEGER :: iwout REAL, SAVE, ALLOCATABLE :: jdenm ( : , : , : ) INTEGER :: k INTEGER :: l INTEGER :: lvl INTEGER :: r REAL :: rhojmi INTEGER :: rm1 INTEGER :: row REAL, SAVE, ALLOCATABLE :: wght_bot ( : ) REAL, SAVE, ALLOCATABLE :: wght_top ( : ) REAL :: x3jfmin REAL :: x3jmmin REAL :: xdnamin REAL :: xdnjmin REAL :: xmapmin REAL(8) :: xorigdot REAL, SAVE, ALLOCATABLE :: xrhojf ( : , : , : ) REAL, SAVE, ALLOCATABLE :: xrhojm ( : , : , : ) REAL, SAVE, ALLOCATABLE :: xuhat_s ( : , : , : ) REAL, SAVE, ALLOCATABLE :: xvhat_t ( : , : , : ) REAL(8) :: yorigdot !------------------------------------------------------------------------------- ! Allocate necessary variables. !------------------------------------------------------------------------------- IF ( .NOT. ALLOCATED ( jdenm ) ) & ALLOCATE ( jdenm ( ncols_x+1, nrows_x+1, metlay ) ) IF ( .NOT. ALLOCATED ( xrhojf ) ) & ALLOCATE ( xrhojf ( ncols_x, nrows_x, 0:metlay ) ) IF ( .NOT. ALLOCATED ( xrhojm ) ) & ALLOCATE ( xrhojm ( ncols_x, nrows_x, metlay ) ) IF ( .NOT. ALLOCATED ( xuhat_s ) ) & ALLOCATE ( xuhat_s ( ncols_x+1, nrows_x+1, metlay ) ) IF ( .NOT. ALLOCATED ( xvhat_t ) ) & ALLOCATE ( xvhat_t ( ncols_x+1, nrows_x+1, metlay ) ) !------------------------------------------------------------------------------- ! Compute linear interpolation coefficients based on layer thickness. !------------------------------------------------------------------------------- IF ( first ) THEN ALLOCATE ( wght_top (nlays) ) ALLOCATE ( wght_bot (nlays) ) DO lvl = 1, nlays-1 wght_top(lvl) = ( x3face_gd(lvl) - x3midl(lvl) ) & / ( x3midl (lvl+1) - x3midl(lvl) ) wght_bot(lvl) = 1.0 - wght_top(lvl) ENDDO IF ( iftke ) THEN itke = 1 ELSE itke = 0 ENDIF IF ( lpv > 0 ) THEN ipv = 1 ELSE ipv = 0 ENDIF IF ( lwout > 0 ) THEN iwout = 1 ELSE iwout = 0 ENDIF IF ( ifcld3d ) THEN icld = 1 ELSE icld = 0 ENDIF first = .FALSE. ENDIF !------------------------------------------------------------------------------- ! Fill time-varying 2d fields at cell centers. !------------------------------------------------------------------------------- xmapmin = MINVAL(xmapc) x3jfmin = MINVAL(x3jacobf) DO row = 1, nrows r = row + nthik DO col = 1, ncols c = col + nthik c_prsfc%fld(col,row) = xprsfc(c,r) c_ustar%fld(col,row) = xustar(c,r) c_wstar%fld(col,row) = xwstar(c,r) c_pbl%fld(col,row) = xpbl(c,r) c_zruf%fld(col,row) = xzruf(c,r) IF ( xmol(c,r) < xmissing ) THEN c_moli%fld(col,row) = 0.0 ELSE c_moli%fld(col,row) = 1.0 / xmol(c,r) ENDIF c_hfx%fld(col,row) = xhfx(c,r) c_lh%fld(col,row) = xlh(c,r) IF ( xradyn(c,r) < xmissing ) THEN c_radyni%fld(col,row) = 0.0 ELSE c_radyni%fld(col,row) = 1.0 / xradyn(c,r) ENDIF IF ( xrstom(c,r) < xmissing ) THEN c_rstomi%fld(col,row) = 0.0 ELSE c_rstomi%fld(col,row) = 1.0 / xrstom(c,r) ENDIF c_tempg%fld(col,row) = xtempg(c,r) c_temp2%fld(col,row) = xtemp2(c,r) c_q2%fld(col,row) = xq2(c,r) c_wspd10%fld(col,row) = xwspd10(c,r) c_wdir10%fld(col,row) = xwdir10(c,r) c_glw%fld(col,row) = xglw(c,r) c_gsw%fld(col,row) = xgsw(c,r) c_rgrnd%fld(col,row) = xrgrnd(c,r) c_rn%fld(col,row) = xrainn(c,r) c_rc%fld(col,row) = xrainc(c,r) c_cfrac%fld(col,row) = xcfract(c,r) c_cldt%fld(col,row) = xcldtop(c,r) c_cldb%fld(col,row) = xcldbot(c,r) c_wbar%fld(col,row) = xwbar(c,r) c_snocov%fld(col,row) = xsnocov(c,r) c_veg%fld(col,row) = xveg(c,r) c_lai%fld(col,row) = xlai(c,r) c_seaice%fld(col,row) = xseaice(c,r) c_snowh%fld(col,row) = xsnowh(c,r) IF ( ifwr ) THEN c_wr%fld(col,row) = xwr(c,r) ENDIF IF ( ifsoil ) THEN c_soim1%fld(col,row) = xwga(c,r) c_soim2%fld(col,row) = xw2a(c,r) c_soit1%fld(col,row) = xtga(c,r) c_soit2%fld(col,row) = xt2a(c,r) c_sltyp%fld(col,row) = xsltyp(c,r) ENDIF IF ( ifpxwrf41 ) THEN c_wsat_px%fld(col,row) = xwsat_px(c,r) c_wfc_px%fld(col,row) = xwfc_px(c,r) c_wwlt_px%fld(col,row) = xwwlt_px(c,r) c_csand_px%fld(col,row) = xcsand_px(c,r) c_fmsand_px%fld(col,row) = xfmsand_px(c,r) c_clay_px%fld(col,row) = xclay_px(c,r) ENDIF ENDDO ENDDO !------------------------------------------------------------------------------- ! Calculate density*Jacobian on mid-layers and full levels. !------------------------------------------------------------------------------- DO k = 1, metlay DO r = 1, nrows_x DO c = 1, ncols_x xrhojm(c,r,k) = xdensam(c,r,k) * x3jacobm(c,r,k) ENDDO ENDDO ENDDO DO k = 0, metlay DO r = 1, nrows_x DO c = 1, ncols_x xrhojf(c,r,k) = xdensaf(c,r,k) * x3jacobf(c,r,k) ENDDO ENDDO ENDDO !------------------------------------------------------------------------------- ! Scale potential vorticity by Jacobian*density/map-scale factor. !------------------------------------------------------------------------------- IF ( lpv > 0 ) THEN DO k = 1, metlay DO r = 1, nrows_x DO c = 1, ncols_x rhojmi = 1.0 / xrhojm(c,r,k) xpvc(c,r,k) = rhojmi * xpvc(c,r,k) ENDDO ENDDO ENDDO ENDIF !------------------------------------------------------------------------------- ! Compute density*Jacobian for X-domain. Persist outermost row and column ! of cross-point JDENM field into non-physical dot-point array. These data ! will be used to fill non-physical extra row/column of square/triangle flux ! points. These data are just available so that large "missing" values do not ! corrupt UHAT_S and VHAT_T fields for display purposes. Note that JDENM is ! the portion of the UHAT_JD and VHAT_JD that includes (rho*J/m^2)*m. ! Also note that this is a subtle deviation from equations 12-120a and 12-120b ! in "Science Algorithms of the EPA Models-3/CMAQ Modeling System" ! (EPA/600/R-99/030), since contravariant wind components (equations 12-119a and ! 12-119b) are no longer computed in MCIP on dot points, and they are not stored ! locally. !------------------------------------------------------------------------------- DO k = 1, metlay DO r = 1, nrows_x DO c = 1, ncols_x jdenm(c,r,k) = xdensam(c,r,k) * x3jacobm(c,r,k) / xmapc(c,r) ENDDO ENDDO ENDDO jdenm(ncols_x+1,:,:) = jdenm(ncols_x,:,:) jdenm(:,nrows_x+1,:) = jdenm(:,nrows_x,:) !------------------------------------------------------------------------------- ! Compute contra-u*density*Jacobian at flux (square) points, ! and compute contra-v*density*Jacobian at flux (triangle) points. !------------------------------------------------------------------------------- DO k = 1, metlay DO r = 1, nrows_x+1 rm1 = MAX( r-1, 1 ) DO c = 1, ncols_x+1 cm1 = MAX( c-1, 1 ) xuhat_s(c,r,k) = 0.5 * ( jdenm(cm1,r,k) + jdenm(c,r,k) ) * xuu_s(c,r,k) xvhat_t(c,r,k) = 0.5 * ( jdenm(c,rm1,k) + jdenm(c,r,k) ) * xvv_t(c,r,k) ENDDO ENDDO ENDDO !------------------------------------------------------------------------------- ! Fill time-varying 3d fields at cell centers. !------------------------------------------------------------------------------- x3jmmin = MINVAL(x3jacobm) xdnamin = MINVAL(xdensam) DO row = 1, nrows r = row + nthik DO col = 1, ncols c = col + nthik DO lvl = 1, nlays ! Used in generalized vertical coordinates in CCTM. IF ( ( x3jfmin > xmissing ) .AND. ( xmapmin > xmissing ) ) THEN c_jacobf%fld(col,row,lvl) = x3jacobf(c,r,lvl) / xmapc2(c,r) ENDIF IF ( ( x3jmmin > xmissing ) .AND. ( xmapmin > xmissing ) ) THEN c_jacobm%fld(col,row,lvl) = x3jacobm(c,r,lvl) / xmapc2(c,r) ENDIF IF ( ( xdnamin > xmissing ) .AND. ( x3jmmin > xmissing ) ) THEN c_densa_j%fld(col,row,lvl) = xrhojm(c,r,lvl) / xmapc2(c,r) ENDIF ! State fields. c_ta%fld(col,row,lvl) = xtempm(c,r,lvl) c_qv%fld(col,row,lvl) = xwvapor(c,r,lvl) c_pres%fld(col,row,lvl) = xpresm(c,r,lvl) c_dens%fld(col,row,lvl) = xdensam(c,r,lvl) c_zh%fld(col,row,lvl) = x3htm(c,r,lvl) c_zf%fld(col,row,lvl) = x3htf(c,r,lvl) ! Moisture fields. IF ( nqspecies >= 2 ) THEN c_qc%fld(col,row,lvl) = xcldwtr(c,r,lvl) c_qr%fld(col,row,lvl) = xranwtr(c,r,lvl) IF ( nqspecies >= 4 ) THEN c_qi%fld(col,row,lvl) = xqice (c,r,lvl) c_qs%fld(col,row,lvl) = xqsnow(c,r,lvl) IF ( nqspecies == 5 ) THEN c_qg%fld(col,row,lvl) = xqgraup(c,r,lvl) ENDIF ENDIF ENDIF IF ( iftke ) THEN c_tke%fld(col,row,lvl) = xtke(c,r,lvl) ENDIF IF ( lpv > 0 ) THEN c_pv%fld(col,row,lvl) = xpvc(c,r,lvl) ENDIF IF ( lwout > 0 ) THEN c_wwind%fld(col,row,lvl) = xwwind(c,r,lvl) ENDIF IF ( ifcld3d ) THEN c_cfrac_3d%fld(col,row,lvl) = xcfrac3d(c,r,lvl) ENDIF IF ( ifkfradextras ) THEN c_qc_cu%fld(col,row,lvl) = xqc_cu(c,r,lvl) c_qi_cu%fld(col,row,lvl) = xqi_cu(c,r,lvl) c_cldfra_dp%fld(col,row,lvl) = xcldfrad(c,r,lvl) c_cldfra_sh%fld(col,row,lvl) = xcldfras(c,r,lvl) ENDIF ENDDO ENDDO ENDDO ! Added for mass consistency xdnjmin = MINVAL(c_densa_j%fld(:,:,:)) IF ( xdnjmin > xmissing ) THEN DO row = 1, nrows r = row + nthik DO col = 1, ncols c = col + nthik DO lvl = 1, nlays-1 c_what_jd%fld(col,row,lvl) = xwhat(c,r,lvl) * & ( wght_bot(lvl) * c_densa_j%fld(col,row,lvl) & + wght_top(lvl) * c_densa_j%fld(col,row,lvl+1) ) ENDDO c_what_jd%fld(col,row,nlays) = 0.0 ENDDO ENDDO ENDIF !------------------------------------------------------------------------------- ! Fill boundaries for time-varying 3d fields at cell centers. !------------------------------------------------------------------------------- idx = 0 ! Southern boundary moving west to east from column 1 (in output grid) to ! column NCOLS+NTHIK. DO r = 1, nthik DO c = 1 + nthik, ncols_x idx = idx + 1 DO lvl = 1, nlays ! Used in generalized vertical coordinates in CCTM. IF ( ( x3jfmin > xmissing ) .AND. ( xmapmin > xmissing ) ) THEN c_jacobf%bdy(idx,lvl) = x3jacobf(c,r,lvl) / xmapc2(c,r) ENDIF IF ( ( x3jmmin > xmissing ) .AND. ( xmapmin > xmissing ) ) THEN c_jacobm%bdy(idx,lvl) = x3jacobm(c,r,lvl) / xmapc2(c,r) ENDIF IF ( ( xdnamin > xmissing ) .AND. ( x3jmmin > xmissing ) ) THEN c_densa_j%bdy(idx,lvl) = xrhojm(c,r,lvl) / xmapc2(c,r) ENDIF ! State variables. c_ta%bdy(idx,lvl) = xtempm(c,r,lvl) c_qv%bdy(idx,lvl) = xwvapor(c,r,lvl) c_pres%bdy(idx,lvl) = xpresm(c,r,lvl) c_dens%bdy(idx,lvl) = xdensam(c,r,lvl) c_zh%bdy(idx,lvl) = x3htm(c,r,lvl) c_zf%bdy(idx,lvl) = x3htf(c,r,lvl) ! Moisture variables. IF ( nqspecies >= 2 ) THEN c_qc%bdy(idx,lvl) = xcldwtr(c,r,lvl) c_qr%bdy(idx,lvl) = xranwtr(c,r,lvl) IF ( nqspecies >= 4 ) THEN c_qi%bdy(idx,lvl) = xqice(c,r,lvl) c_qs%bdy(idx,lvl) = xqsnow(c,r,lvl) IF ( nqspecies == 5 ) THEN c_qg%bdy(idx,lvl) = xqgraup(c,r,lvl) ENDIF ENDIF ENDIF IF ( iftke ) THEN c_tke%bdy(idx,lvl) = xtke(c,r,lvl) ENDIF IF ( lpv > 0 ) THEN c_pv%bdy(idx,lvl) = xpvc(c,r,lvl) ENDIF IF ( lwout > 0 ) THEN c_wwind%bdy(idx,lvl) = xwwind(c,r,lvl) ENDIF IF ( ifcld3d ) THEN c_cfrac_3d%bdy(idx,lvl) = xcfrac3d(c,r,lvl) ENDIF IF ( ifkfradextras ) THEN c_qc_cu%bdy(idx,lvl) = xqc_cu(c,r,lvl) c_qi_cu%bdy(idx,lvl) = xqi_cu(c,r,lvl) c_cldfra_dp%bdy(idx,lvl) = xcldfrad(c,r,lvl) c_cldfra_sh%bdy(idx,lvl) = xcldfras(c,r,lvl) ENDIF ENDDO ! Added for mass consistency IF ( xdnjmin > xmissing ) THEN DO lvl = 1, nlays-1 c_what_jd%bdy(idx,lvl) = xwhat(c,r,lvl) * & ( wght_bot(lvl) * c_densa_j%bdy(idx,lvl) & + wght_top(lvl) * c_densa_j%bdy(idx,lvl+1) ) ENDDO c_what_jd%bdy(idx,nlays) = 0.0 ENDIF ENDDO ENDDO ! Eastern boundary moving south to north from row 1 (in output grid) to ! row NROWS+NTHIK. DO r = 1+nthik, nrows_x DO l = 1, nthik c = ncols_x - nthik + l idx = idx + 1 DO lvl = 1, nlays ! Used in generalized vertical coordinates in CCTM. IF ( ( x3jfmin > xmissing ) .AND. ( xmapmin > xmissing ) ) THEN c_jacobf%bdy(idx,lvl) = x3jacobf(c,r,lvl) / xmapc2(c,r) ENDIF IF ( ( x3jmmin > xmissing ) .AND. ( xmapmin > xmissing ) ) THEN c_jacobm%bdy(idx,lvl) = x3jacobm(c,r,lvl) / xmapc2(c,r) ENDIF IF ( ( xdnamin > xmissing ) .AND. ( x3jmmin > xmissing ) ) THEN c_densa_j%bdy(idx,lvl) = xrhojm(c,r,lvl) / xmapc2(c,r) ENDIF ! State variables. c_ta%bdy(idx,lvl) = xtempm(c,r,lvl) c_qv%bdy(idx,lvl) = xwvapor(c,r,lvl) c_pres%bdy(idx,lvl) = xpresm(c,r,lvl) c_dens%bdy(idx,lvl) = xdensam(c,r,lvl) c_zh%bdy(idx,lvl) = x3htm(c,r,lvl) c_zf%bdy(idx,lvl) = x3htf(c,r,lvl) ! Moisture variables. IF ( nqspecies >= 2 ) THEN c_qc%bdy(idx,lvl) = xcldwtr(c,r,lvl) c_qr%bdy(idx,lvl) = xranwtr(c,r,lvl) IF ( nqspecies >= 4 ) THEN c_qi%bdy(idx,lvl) = xqice(c,r,lvl) c_qs%bdy(idx,lvl) = xqsnow(c,r,lvl) IF ( nqspecies == 5 ) THEN c_qg%bdy(idx,lvl) = xqgraup(c,r,lvl) ENDIF ENDIF ENDIF IF ( iftke ) THEN c_tke%bdy(idx,lvl) = xtke(c,r,lvl) ENDIF IF ( lpv > 0 ) THEN c_pv%bdy(idx,lvl) = xpvc(c,r,lvl) ENDIF IF ( lwout > 0 ) THEN c_wwind%bdy(idx,lvl) = xwwind(c,r,lvl) ENDIF IF ( ifcld3d ) THEN c_cfrac_3d%bdy(idx,lvl) = xcfrac3d(c,r,lvl) ENDIF IF ( ifkfradextras ) THEN c_qc_cu%bdy(idx,lvl) = xqc_cu(c,r,lvl) c_qi_cu%bdy(idx,lvl) = xqi_cu(c,r,lvl) c_cldfra_dp%bdy(idx,lvl) = xcldfrad(c,r,lvl) c_cldfra_sh%bdy(idx,lvl) = xcldfras(c,r,lvl) ENDIF ENDDO ! Added for mass consistency IF ( xdnjmin > xmissing ) THEN DO lvl = 1, nlays-1 c_what_jd%bdy(idx,lvl) = xwhat(c,r,lvl) * & ( wght_bot(lvl) * c_densa_j%bdy(idx,lvl) & + wght_top(lvl) * c_densa_j%bdy(idx,lvl+1) ) ENDDO c_what_jd%bdy(idx,nlays) = 0.0 ENDIF ENDDO ENDDO ! Northern boundary moving west to east from column 1-NTHIK (in output grid) ! to column NCOLS. DO l = 1, nthik r = nrows_x - nthik + l DO c = 1, ncols_x - nthik idx = idx + 1 DO lvl = 1, nlays ! Used in generalized vertical coordinates in CCTM. IF ( ( x3jfmin > xmissing ) .AND. ( xmapmin > xmissing ) ) THEN c_jacobf%bdy(idx,lvl) = x3jacobf(c,r,lvl) / xmapc2(c,r) ENDIF IF ( ( x3jmmin > xmissing ) .AND. ( xmapmin > xmissing ) ) THEN c_jacobm%bdy(idx,lvl) = x3jacobm(c,r,lvl) / xmapc2(c,r) ENDIF IF ( ( xdnamin > xmissing ) .AND. ( x3jmmin > xmissing ) ) THEN c_densa_j%bdy(idx,lvl) = xrhojm(c,r,lvl) / xmapc2(c,r) ENDIF ! State variables. c_ta%bdy(idx,lvl) = xtempm(c,r,lvl) c_qv%bdy(idx,lvl) = xwvapor(c,r,lvl) c_pres%bdy(idx,lvl) = xpresm(c,r,lvl) c_dens%bdy(idx,lvl) = xdensam(c,r,lvl) c_zh%bdy(idx,lvl) = x3htm(c,r,lvl) c_zf%bdy(idx,lvl) = x3htf(c,r,lvl) ! Moisture variables. IF ( nqspecies >= 2 ) THEN c_qc%bdy(idx,lvl) = xcldwtr(c,r,lvl) c_qr%bdy(idx,lvl) = xranwtr(c,r,lvl) IF ( nqspecies >= 4 ) THEN c_qi%bdy(idx,lvl) = xqice(c,r,lvl) c_qs%bdy(idx,lvl) = xqsnow(c,r,lvl) IF ( nqspecies == 5 ) THEN c_qg%bdy(idx,lvl) = xqgraup(c,r,lvl) ENDIF ENDIF ENDIF IF ( iftke ) THEN c_tke%bdy(idx,lvl) = xtke(c,r,lvl) ENDIF IF ( lpv > 0 ) THEN c_pv%bdy(idx,lvl) = xpvc(c,r,lvl) ENDIF IF ( lwout > 0 ) THEN c_wwind%bdy(idx,lvl) = xwwind(c,r,lvl) ENDIF IF ( ifcld3d ) THEN c_cfrac_3d%bdy(idx,lvl) = xcfrac3d(c,r,lvl) ENDIF IF ( ifkfradextras ) THEN c_qc_cu%bdy(idx,lvl) = xqc_cu(c,r,lvl) c_qi_cu%bdy(idx,lvl) = xqi_cu(c,r,lvl) c_cldfra_dp%bdy(idx,lvl) = xcldfrad(c,r,lvl) c_cldfra_sh%bdy(idx,lvl) = xcldfras(c,r,lvl) ENDIF ENDDO ! Added for mass consistency IF ( xdnjmin > xmissing ) THEN DO lvl = 1, nlays-1 c_what_jd%bdy(idx,lvl) = xwhat(c,r,lvl) * & ( wght_bot(lvl) * c_densa_j%bdy(idx,lvl) & + wght_top(lvl) * c_densa_j%bdy(idx,lvl+1) ) ENDDO c_what_jd%bdy(idx,nlays) = 0.0 ENDIF ENDDO ENDDO ! Western boundary moving south to north from row 1-NTHIK (in output grid) ! to row NROWS. DO r = 1, nrows_x - nthik DO c = 1, nthik idx = idx + 1 DO lvl = 1, nlays ! Used in generalized vertical coordinates in CCTM. IF ( ( x3jfmin > xmissing ) .AND. ( xmapmin > xmissing ) ) THEN c_jacobf%bdy(idx,lvl) = x3jacobf(c,r,lvl) / xmapc2(c,r) ENDIF IF ( ( x3jmmin > xmissing ) .AND. ( xmapmin > xmissing ) ) THEN c_jacobm%bdy(idx,lvl) = x3jacobm(c,r,lvl) / xmapc2(c,r) ENDIF IF ( ( xdnamin > xmissing ) .AND. ( x3jmmin > xmissing ) ) THEN c_densa_j%bdy(idx,lvl) = xrhojm(c,r,lvl) / xmapc2(c,r) ENDIF ! State variables. c_ta%bdy(idx,lvl) = xtempm(c,r,lvl) c_qv%bdy(idx,lvl) = xwvapor(c,r,lvl) c_pres%bdy(idx,lvl) = xpresm(c,r,lvl) c_dens%bdy(idx,lvl) = xdensam(c,r,lvl) c_zh%bdy(idx,lvl) = x3htm(c,r,lvl) c_zf%bdy(idx,lvl) = x3htf(c,r,lvl) ! Moisture variables. IF ( nqspecies >= 2 ) THEN c_qc%bdy(idx,lvl) = xcldwtr(c,r,lvl) c_qr%bdy(idx,lvl) = xranwtr(c,r,lvl) IF ( nqspecies >= 4 ) THEN c_qi%bdy(idx,lvl) = xqice(c,r,lvl) c_qs%bdy(idx,lvl) = xqsnow(c,r,lvl) IF ( nqspecies == 5 ) THEN c_qg%bdy(idx,lvl) = xqgraup(c,r,lvl) ENDIF ENDIF ENDIF IF ( iftke ) THEN c_tke%bdy(idx,lvl) = xtke(c,r,lvl) ENDIF IF ( lpv > 0 ) THEN c_pv%bdy(idx,lvl) = xpvc(c,r,lvl) ENDIF IF ( lwout > 0 ) THEN c_wwind%bdy(idx,lvl) = xwwind(c,r,lvl) ENDIF IF ( ifcld3d ) THEN c_cfrac_3d%bdy(idx,lvl) = xcfrac3d(c,r,lvl) ENDIF IF ( ifkfradextras ) THEN c_qc_cu%bdy(idx,lvl) = xqc_cu(c,r,lvl) c_qi_cu%bdy(idx,lvl) = xqi_cu(c,r,lvl) c_cldfra_dp%bdy(idx,lvl) = xcldfrad(c,r,lvl) c_cldfra_sh%bdy(idx,lvl) = xcldfras(c,r,lvl) ENDIF ENDDO ! Added for mass consistency IF ( xdnjmin > xmissing ) THEN DO lvl = 1, nlays-1 c_what_jd%bdy(idx,lvl) = xwhat(c,r,lvl) * & ( wght_bot(lvl) * c_densa_j%bdy(idx,lvl) & + wght_top(lvl) * c_densa_j%bdy(idx,lvl+1) ) ENDDO c_what_jd%bdy(idx,nlays) = 0.0 ENDIF ENDDO ENDDO !------------------------------------------------------------------------------- ! Fill time-varying 3d fields at cell corners and cell faces. ! ! These arrays are all set to the dot-point dimensions to accommodate the ! false dot points in the Arakawa-C staggered grid that are output in ! Models-3 I/O API "DOT" files. When the output is written in netCDF, the ! true dimensions of the Arakawa-C staggered fields are used. !------------------------------------------------------------------------------- DO k = 1, nlays DO row = 1, nrows+1 r = row + nthik DO col = 1, ncols+1 c = col + nthik c_uwindc%fld(col,row,k) = xuu_s(c,r,k) c_vwindc%fld(col,row,k) = xvv_t(c,r,k) c_uhat_jd%fld(col,row,k) = xuhat_s(c,r,k) c_vhat_jd%fld(col,row,k) = xvhat_t(c,r,k) IF ( luvbout > 0 ) THEN c_uwind%fld(col,row,k) = xuu_d(c,r,k) c_vwind%fld(col,row,k) = xvv_d(c,r,k) ENDIF ENDDO ENDDO ENDDO !------------------------------------------------------------------------------- ! Fill time-varying 3d fields (soil layers) at cell centers. !------------------------------------------------------------------------------- IF ( ifsoil ) THEN DO row = 1, nrows r = row + nthik DO col = 1, ncols c = col + nthik DO lvl = 1, metsoi c_soit3d%fld(col,row,lvl) = xsoit3d(c,r,lvl) c_soim3d%fld(col,row,lvl) = xsoim3d(c,r,lvl) ENDDO ENDDO ENDDO ENDIF !------------------------------------------------------------------------------- ! Fill time-varying 3d fields (mosaic land use categories) at cell centers. !------------------------------------------------------------------------------- IF ( ifmosaic ) THEN DO row = 1, nrows r = row + nthik DO col = 1, ncols c = col + nthik DO lvl = 1, nummosaic c_lufrac2%fld(col,row,lvl) = xlufrac2 (c,r,lvl) c_moscat%fld(col,row,lvl) = xmoscatidx(c,r,lvl) c_lai_mos%fld(col,row,lvl) = xlai_mos (c,r,lvl) IF ( xra_mos(c,r,lvl) < xmissing ) THEN c_rai_mos%fld(col,row,lvl) = 0.0 ELSE c_rai_mos%fld(col,row,lvl) = 1.0 / xra_mos(c,r,lvl) ENDIF IF ( xrs_mos(c,r,lvl) < xmissing ) THEN c_rsi_mos%fld(col,row,lvl) = 0.0 ELSE c_rsi_mos%fld(col,row,lvl) = 1.0 / xrs_mos(c,r,lvl) ENDIF c_tsk_mos%fld(col,row,lvl) = xtsk_mos (c,r,lvl) c_znt_mos%fld(col,row,lvl) = xznt_mos (c,r,lvl) ENDDO ENDDO ENDDO ENDIF !------------------------------------------------------------------------------- ! Deallocate variables. !------------------------------------------------------------------------------- ! DEALLOCATE ( jdenm ) ! commented out to avoid memory fragmentation ! DEALLOCATE ( xrhojf ) ! commented out to avoid memory fragmentation ! DEALLOCATE ( xrhojm ) ! commented out to avoid memory fragmentation ! DEALLOCATE ( xuhat_s ) ! commented out to avoid memory fragmentation ! DEALLOCATE ( xvhat_t ) ! commented out to avoid memory fragmentation END SUBROUTINE ctmproc ================================================ FILE: PREP/mcip/src/ctmvars_mod.f90 ================================================ !------------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------------! MODULE ctmvars !------------------------------------------------------------------------------- ! Name: Meteorology Variables Output for CTM ! Purpose: Contains output meteorology arrays. ! Revised: 22 Jun 2018 Original version created by combining modules GROUTCOM, ! LUOUTCOM, MCOUTCOM, MDOUTCOM, MOSOUTCOM, and SOIOUTCOM. ! (T. Spero) ! 14 Sep 2018 Removed support for MM5v3 input. (T. Spero) ! 13 Dec 2018 Built new data structures. (T. Spero) ! 18 Jun 2019 Added new surface variables with PX LSM that can ! improve dust simulation in CCTM. Added optional ! variables from KF convective scheme with radiative ! feedbacks. (T. Spero) !------------------------------------------------------------------------------- IMPLICIT NONE !------------------------------------------------------------------------------- ! Define data structures. !------------------------------------------------------------------------------- TYPE fld2ddata REAL, POINTER :: fld ( : , : ) REAL, POINTER :: bdy ( : ) CHARACTER(LEN=16) :: fldname CHARACTER(LEN=80) :: long_name CHARACTER(LEN=16) :: units CHARACTER(LEN=16) :: dimnames ( 4 ) INTEGER :: istart ( 4 ) INTEGER :: iend ( 4 ) CHARACTER(LEN=16) :: dimnames_b ( 4 ) INTEGER :: istart_b ( 4 ) INTEGER :: iend_b ( 4 ) END TYPE fld2ddata TYPE fld3ddata REAL, POINTER :: fld ( : , : , : ) REAL, POINTER :: bdy ( : , : ) CHARACTER(LEN=16) :: fldname CHARACTER(LEN=80) :: long_name CHARACTER(LEN=16) :: units CHARACTER(LEN=16) :: dimnames ( 4 ) INTEGER :: istart ( 4 ) INTEGER :: iend ( 4 ) CHARACTER(LEN=16) :: dimnames_b ( 4 ) INTEGER :: istart_b ( 4 ) INTEGER :: iend_b ( 4 ) END TYPE fld3ddata !------------------------------------------------------------------------------- ! Time-independent 2d fields at cell centers. !------------------------------------------------------------------------------- TYPE(fld2ddata), ALLOCATABLE, TARGET :: fld2dxy ( : ) TYPE(fld2ddata), POINTER :: g_lat TYPE(fld2ddata), POINTER :: g_lon TYPE(fld2ddata), POINTER :: g_msfx2 TYPE(fld2ddata), POINTER :: g_ht TYPE(fld2ddata), POINTER :: g_dluse TYPE(fld2ddata), POINTER :: g_lwmask TYPE(fld2ddata), POINTER :: g_purb !------------------------------------------------------------------------------- ! Time independent 2d fields at cell corners and cell faces. !------------------------------------------------------------------------------- TYPE(fld2ddata), ALLOCATABLE, TARGET :: fld2dxy_d ( : ) TYPE(fld2ddata), POINTER :: g_latd TYPE(fld2ddata), POINTER :: g_lond TYPE(fld2ddata), POINTER :: g_msfd2 TYPE(fld2ddata), POINTER :: g_latu TYPE(fld2ddata), POINTER :: g_lonu TYPE(fld2ddata), POINTER :: g_msfu2 TYPE(fld2ddata), POINTER :: g_latv TYPE(fld2ddata), POINTER :: g_lonv TYPE(fld2ddata), POINTER :: g_msfv2 !------------------------------------------------------------------------------- ! Time-independent 3d fields (fractional land use) at cell centers. !------------------------------------------------------------------------------- TYPE(fld3ddata), ALLOCATABLE, TARGET :: fld3dxyl ( : ) TYPE(fld3ddata), POINTER :: g_lufrac !------------------------------------------------------------------------------- ! Time-varying 2d fields at cell centers. !------------------------------------------------------------------------------- TYPE(fld2ddata), ALLOCATABLE, TARGET :: fld2dxyt ( : ) TYPE(fld2ddata), POINTER :: c_prsfc TYPE(fld2ddata), POINTER :: c_ustar TYPE(fld2ddata), POINTER :: c_wstar TYPE(fld2ddata), POINTER :: c_pbl TYPE(fld2ddata), POINTER :: c_zruf TYPE(fld2ddata), POINTER :: c_moli TYPE(fld2ddata), POINTER :: c_hfx TYPE(fld2ddata), POINTER :: c_lh TYPE(fld2ddata), POINTER :: c_radyni TYPE(fld2ddata), POINTER :: c_rstomi TYPE(fld2ddata), POINTER :: c_tempg TYPE(fld2ddata), POINTER :: c_temp2 TYPE(fld2ddata), POINTER :: c_q2 TYPE(fld2ddata), POINTER :: c_wspd10 TYPE(fld2ddata), POINTER :: c_wdir10 TYPE(fld2ddata), POINTER :: c_glw TYPE(fld2ddata), POINTER :: c_gsw TYPE(fld2ddata), POINTER :: c_rgrnd TYPE(fld2ddata), POINTER :: c_rn TYPE(fld2ddata), POINTER :: c_rc TYPE(fld2ddata), POINTER :: c_cfrac TYPE(fld2ddata), POINTER :: c_cldt TYPE(fld2ddata), POINTER :: c_cldb TYPE(fld2ddata), POINTER :: c_wbar TYPE(fld2ddata), POINTER :: c_snocov TYPE(fld2ddata), POINTER :: c_veg TYPE(fld2ddata), POINTER :: c_lai TYPE(fld2ddata), POINTER :: c_seaice TYPE(fld2ddata), POINTER :: c_snowh TYPE(fld2ddata), POINTER :: c_wr TYPE(fld2ddata), POINTER :: c_soim1 TYPE(fld2ddata), POINTER :: c_soim2 TYPE(fld2ddata), POINTER :: c_soit1 TYPE(fld2ddata), POINTER :: c_soit2 TYPE(fld2ddata), POINTER :: c_sltyp TYPE(fld2ddata), POINTER :: c_wsat_px TYPE(fld2ddata), POINTER :: c_wfc_px TYPE(fld2ddata), POINTER :: c_wwlt_px TYPE(fld2ddata), POINTER :: c_csand_px TYPE(fld2ddata), POINTER :: c_fmsand_px TYPE(fld2ddata), POINTER :: c_clay_px !------------------------------------------------------------------------------- ! Time-varying 3d fields at cell centers. !------------------------------------------------------------------------------- TYPE(fld3ddata), ALLOCATABLE, TARGET :: fld3dxyzt ( : ) TYPE(fld3ddata), POINTER :: c_jacobf TYPE(fld3ddata), POINTER :: c_jacobm TYPE(fld3ddata), POINTER :: c_densa_j TYPE(fld3ddata), POINTER :: c_what_jd TYPE(fld3ddata), POINTER :: c_ta TYPE(fld3ddata), POINTER :: c_qv TYPE(fld3ddata), POINTER :: c_pres TYPE(fld3ddata), POINTER :: c_dens TYPE(fld3ddata), POINTER :: c_zh TYPE(fld3ddata), POINTER :: c_zf TYPE(fld3ddata), POINTER :: c_tke TYPE(fld3ddata), POINTER :: c_pv TYPE(fld3ddata), POINTER :: c_wwind TYPE(fld3ddata), POINTER :: c_cfrac_3d TYPE(fld3ddata), ALLOCATABLE, TARGET :: fld3dxyzt_q ( : ) TYPE(fld3ddata), POINTER :: c_qc TYPE(fld3ddata), POINTER :: c_qr TYPE(fld3ddata), POINTER :: c_qi TYPE(fld3ddata), POINTER :: c_qs TYPE(fld3ddata), POINTER :: c_qg TYPE(fld3ddata), POINTER :: c_qc_cu TYPE(fld3ddata), POINTER :: c_qi_cu TYPE(fld3ddata), POINTER :: c_cldfra_dp TYPE(fld3ddata), POINTER :: c_cldfra_sh !------------------------------------------------------------------------------- ! Time-varying 3d fields at cell corners and cell faces. !------------------------------------------------------------------------------- TYPE(fld3ddata), ALLOCATABLE, TARGET :: fld3dxyzt_d ( : ) TYPE(fld3ddata), POINTER :: c_uwindc TYPE(fld3ddata), POINTER :: c_vwindc TYPE(fld3ddata), POINTER :: c_uhat_jd TYPE(fld3ddata), POINTER :: c_vhat_jd TYPE(fld3ddata), POINTER :: c_uwind TYPE(fld3ddata), POINTER :: c_vwind !------------------------------------------------------------------------------- ! Time-varying 3d fields (soil layers) at cell centers. !------------------------------------------------------------------------------- TYPE(fld3ddata), ALLOCATABLE, TARGET :: fld3dxyst ( : ) TYPE(fld3ddata), POINTER :: c_soit3d TYPE(fld3ddata), POINTER :: c_soim3d !------------------------------------------------------------------------------- ! Time-varying 3d fields (mosaic land use categories) at cell centers. !------------------------------------------------------------------------------- TYPE(fld3ddata), ALLOCATABLE, TARGET :: fld3dxymt ( : ) TYPE(fld3ddata), POINTER :: c_lufrac2 TYPE(fld3ddata), POINTER :: c_moscat TYPE(fld3ddata), POINTER :: c_lai_mos TYPE(fld3ddata), POINTER :: c_rai_mos TYPE(fld3ddata), POINTER :: c_rsi_mos TYPE(fld3ddata), POINTER :: c_tsk_mos TYPE(fld3ddata), POINTER :: c_znt_mos END MODULE ctmvars ================================================ FILE: PREP/mcip/src/date_pack_mod.f90 ================================================ !------------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------------! MODULE date_pack !------------------------------------------------------------------------------- ! Name: Date Utility Programs ! Purpose: Manipulate 24-character date representation in MM5v3. ! Notes: This routine has been modified from NCAR's MM5 utility code, ! and it has been adapted for use with the Models-3/CMAQ system. ! Revised: 17 Feb 2001 Original version. (NCAR) ! 10 Sep 2001 Modified for use with MCIP. (T. Otte) ! 18 Aug 2005 Changed internal variable NLEN to NEWLEN and internal ! variable ISIGN to IFAC to avoid confusion with F90 ! intrinsic functions. (T. Otte) ! 31 Aug 2011 Removed unused variables. Assume input to GETH_IDTS ! is CHARACTER(LEN=19). (T. Otte) ! 07 Sep 2011 Updated disclaimer. (T. Otte) !------------------------------------------------------------------------------- ! 1. geth_idts (ndate, odate, idts) ! Get the time period between two dates. ! 2. geth_newdate ( ndate, odate, idts) ! Get the new date based on the old date and a time difference. ! 3. split_date_char ( date , century_year , month , day , hour , minute , second ) ! Given the date, return the integer components. CONTAINS !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! SUBROUTINE geth_idts (newdate, olddate, idts) IMPLICIT NONE ! From 2 input mdates ('YYYY-MM-DD HH:MM:SS.ffff'), ! compute the time difference. ! on entry - ndate - the new hdate. ! odate - the old hdate. ! on exit - idts - the change in time in seconds. CHARACTER(LEN=19), INTENT(IN) :: newdate, olddate INTEGER, INTENT(OUT) :: idts ! Local Variables ! yrnew - indicates the year associated with "ndate" ! yrold - indicates the year associated with "odate" ! monew - indicates the month associated with "ndate" ! moold - indicates the month associated with "odate" ! dynew - indicates the day associated with "ndate" ! dyold - indicates the day associated with "odate" ! hrnew - indicates the hour associated with "ndate" ! hrold - indicates the hour associated with "odate" ! minew - indicates the minute associated with "ndate" ! miold - indicates the minute associated with "odate" ! scnew - indicates the second associated with "ndate" ! scold - indicates the second associated with "odate" ! i - loop counter ! mday - a list assigning the number of days in each month CHARACTER(LEN=19) :: ndate, odate INTEGER :: yrnew, monew, dynew, hrnew, minew, scnew INTEGER :: yrold, moold, dyold, hrold, miold, scold INTEGER :: mday(12), i, newdys, olddys LOGICAL :: npass, opass INTEGER :: ifac IF (olddate.GT.newdate) THEN ifac = -1 ndate = olddate odate = newdate ELSE ndate = newdate odate = olddate ifac = 1 END IF ! Assign the number of days in a months mday( 1) = 31 mday( 2) = 28 mday( 3) = 31 mday( 4) = 30 mday( 5) = 31 mday( 6) = 30 mday( 7) = 31 mday( 8) = 31 mday( 9) = 30 mday(10) = 31 mday(11) = 30 mday(12) = 31 ! Break down old hdate into parts hrold = 0 miold = 0 scold = 0 READ (odate( 1: 4), '(i4)') yrold READ (odate( 6: 7), '(i2)') moold READ (odate( 9:10), '(i2)') dyold READ (odate(12:13), '(i2)') hrold READ (odate(15:16), '(i2)') miold READ (odate(18:19), '(i2)') scold ! Break down new hdate into parts hrnew = 0 minew = 0 scnew = 0 READ (ndate( 1: 4), '(i4)') yrnew READ (ndate( 6: 7), '(i2)') monew READ (ndate( 9:10), '(i2)') dynew READ (ndate(12:13), '(i2)') hrnew READ (ndate(15:16), '(i2)') minew READ (ndate(18:19), '(i2)') scnew ! Check that the dates make sense. npass = .true. opass = .true. ! Check that the month of NDATE makes sense. IF ((monew.GT.12).or.(monew.LT.1)) THEN PRINT*, 'GETH_IDTS: Month of NDATE = ', monew npass = .false. END IF ! Check that the month of ODATE makes sense. IF ((moold.GT.12).or.(moold.LT.1)) THEN PRINT*, 'GETH_IDTS: Month of ODATE = ', moold opass = .false. END IF ! Check that the day of NDATE makes sense. IF (monew.ne.2) THEN ! ...... For all months but February IF ((dynew.GT.mday(monew)).or.(dynew.LT.1)) THEN PRINT*, 'GETH_IDTS: Day of NDATE = ', dynew npass = .false. END IF ELSE IF (monew.eq.2) THEN ! ...... For February IF ((dynew.GT.nfeb(yrnew)).OR.(dynew.LT.1)) THEN PRINT*, 'GETH_IDTS: Day of NDATE = ', dynew npass = .false. END IF END IF ! Check that the day of ODATE makes sense. IF (moold.ne.2) THEN ! ...... For all months but February IF ((dyold.GT.mday(moold)).or.(dyold.LT.1)) THEN PRINT*, 'GETH_IDTS: Day of ODATE = ', dyold opass = .false. END IF ELSE IF (moold.eq.2) THEN ! ....... For February IF ((dyold.GT.nfeb(yrold)).or.(dyold.LT.1)) THEN PRINT*, 'GETH_IDTS: Day of ODATE = ', dyold opass = .false. END IF END IF ! Check that the hour of NDATE makes sense. IF ((hrnew.GT.23).or.(hrnew.LT.0)) THEN PRINT*, 'GETH_IDTS: Hour of NDATE = ', hrnew npass = .false. END IF ! Check that the hour of ODATE makes sense. IF ((hrold.GT.23).or.(hrold.LT.0)) THEN PRINT*, 'GETH_IDTS: Hour of ODATE = ', hrold opass = .false. END IF ! Check that the minute of NDATE makes sense. IF ((minew.GT.59).or.(minew.LT.0)) THEN PRINT*, 'GETH_IDTS: Minute of NDATE = ', minew npass = .false. END IF ! Check that the minute of ODATE makes sense. IF ((miold.GT.59).or.(miold.LT.0)) THEN PRINT*, 'GETH_IDTS: Minute of ODATE = ', miold opass = .false. END IF ! Check that the second of NDATE makes sense. IF ((scnew.GT.59).or.(scnew.LT.0)) THEN PRINT*, 'GETH_IDTS: SECOND of NDATE = ', scnew npass = .false. END IF ! Check that the second of ODATE makes sense. IF ((scold.GT.59).or.(scold.LT.0)) THEN PRINT*, 'GETH_IDTS: Second of ODATE = ', scold opass = .false. END IF IF (.not. npass) THEN PRINT*, 'Screwy NDATE: ', ndate STOP 'ndate_2' END IF IF (.not. opass) THEN PRINT*, 'Screwy ODATE: ', odate STOP 'odate_1' END IF ! Date Checks are completed. Continue. ! Compute number of days from 1 January ODATE, 00:00:00 until ndate ! Compute number of hours from 1 January ODATE, 00:00:00 until ndate ! Compute number of minutes from 1 January ODATE, 00:00:00 until ndate newdys = 0 DO i = yrold, yrnew - 1 newdys = newdys + (365 + (nfeb(i)-28)) END DO IF (monew .GT. 1) THEN mday(2) = nfeb(yrnew) DO i = 1, monew - 1 newdys = newdys + mday(i) END DO mday(2) = 28 END IF newdys = newdys + dynew-1 ! Compute number of hours from 1 January ODATE, 00:00:00 until odate ! Compute number of minutes from 1 January ODATE, 00:00:00 until odate olddys = 0 IF (moold .GT. 1) THEN mday(2) = nfeb(yrold) DO i = 1, moold - 1 olddys = olddys + mday(i) END DO mday(2) = 28 END IF olddys = olddys + dyold-1 ! Determine the time difference in seconds idts = (newdys - olddys) * 86400 idts = idts + (hrnew - hrold) * 3600 idts = idts + (minew - miold) * 60 idts = idts + (scnew - scold) IF (ifac .eq. -1) THEN idts = idts * ifac END IF END SUBROUTINE geth_idts !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! SUBROUTINE geth_newdate (ndate, odate, idt) IMPLICIT NONE ! From old date ('YYYY-MM-DD HH:MM:SS.ffff') and ! delta-time, compute the new date. ! on entry - odate - the old hdate. ! idt - the change in time ! on exit - ndate - the new hdate. INTEGER , INTENT(IN) :: idt CHARACTER (LEN=*) , INTENT(OUT) :: ndate CHARACTER (LEN=*) , INTENT(IN) :: odate ! Local Variables ! yrold - indicates the year associated with "odate" ! moold - indicates the month associated with "odate" ! dyold - indicates the day associated with "odate" ! hrold - indicates the hour associated with "odate" ! miold - indicates the minute associated with "odate" ! scold - indicates the second associated with "odate" ! yrnew - indicates the year associated with "ndate" ! monew - indicates the month associated with "ndate" ! dynew - indicates the day associated with "ndate" ! hrnew - indicates the hour associated with "ndate" ! minew - indicates the minute associated with "ndate" ! scnew - indicates the second associated with "ndate" ! mday - a list assigning the number of days in each month ! i - loop counter ! nday - the integer number of days represented by "idt" ! nhour - the integer number of hours in "idt" after taking out ! all the whole days ! nmin - the integer number of minutes in "idt" after taking out ! all the whole days and whole hours. ! nsec - the integer number of minutes in "idt" after taking out ! all the whole days, whole hours, and whole minutes. INTEGER :: newlen, olen INTEGER :: yrnew, monew, dynew, hrnew, minew, scnew, frnew INTEGER :: yrold, moold, dyold, hrold, miold, scold, frold INTEGER :: mday(12), nday, nhour, nmin, nsec, nfrac, i, ifrc LOGICAL :: opass CHARACTER (LEN=10) :: hfrc CHARACTER (LEN=1) :: sp ! INTEGER, EXTERNAL :: nfeb ! in the same module now ! Assign the number of days in a months mday( 1) = 31 mday( 2) = 28 mday( 3) = 31 mday( 4) = 30 mday( 5) = 31 mday( 6) = 30 mday( 7) = 31 mday( 8) = 31 mday( 9) = 30 mday(10) = 31 mday(11) = 30 mday(12) = 31 ! Break down old hdate into parts hrold = 0 miold = 0 scold = 0 frold = 0 olen = LEN(odate) IF (olen.GE.11) THEN sp = odate(11:11) else sp = ' ' END IF ! Use internal READ statements to convert the CHARACTER string ! date into INTEGER components. READ(odate(1:4), '(I4)') yrold READ(odate(6:7), '(I2)') moold READ(odate(9:10), '(I2)') dyold IF (olen.GE.13) THEN READ(odate(12:13),'(I2)') hrold IF (olen.GE.16) THEN READ(odate(15:16),'(I2)') miold IF (olen.GE.19) THEN READ(odate(18:19),'(I2)') scold IF (olen.GT.20) THEN READ(odate(21:olen),'(I2)') frold END IF END IF END IF END IF ! Set the number of days in February for that year. mday(2) = nfeb(yrold) ! Check that ODATE makes sense. opass = .TRUE. ! Check that the month of ODATE makes sense. IF ((moold.GT.12).or.(moold.LT.1)) THEN WRITE(*,*) 'GETH_NEWDATE: Month of ODATE = ', moold opass = .FALSE. END IF ! Check that the day of ODATE makes sense. IF ((dyold.GT.mday(moold)).or.(dyold.LT.1)) THEN WRITE(*,*) 'GETH_NEWDATE: Day of ODATE = ', dyold opass = .FALSE. END IF ! Check that the hour of ODATE makes sense. IF ((hrold.GT.23).or.(hrold.LT.0)) THEN WRITE(*,*) 'GETH_NEWDATE: Hour of ODATE = ', hrold opass = .FALSE. END IF ! Check that the minute of ODATE makes sense. IF ((miold.GT.59).or.(miold.LT.0)) THEN WRITE(*,*) 'GETH_NEWDATE: Minute of ODATE = ', miold opass = .FALSE. END IF ! Check that the second of ODATE makes sense. IF ((scold.GT.59).or.(scold.LT.0)) THEN WRITE(*,*) 'GETH_NEWDATE: Second of ODATE = ', scold opass = .FALSE. END IF ! Check that the fractional part of ODATE makes sense. IF (.not.opass) THEN WRITE(*,*) 'GETH_NEWDATE: Crazy ODATE: ', odate(1:olen), olen STOP 'odate_3' END IF ! Date Checks are completed. Continue. ! Compute the number of days, hours, minutes, and seconds in idt IF ( (olen.GT.20) .AND. (olen/=24) ) THEN !idt should be in fractions of seconds ifrc = olen-20 ifrc = 10**ifrc nday = ABS(idt)/(86400*ifrc) nhour = MOD(ABS(idt),86400*ifrc)/(3600*ifrc) nmin = MOD(ABS(idt),3600*ifrc)/(60*ifrc) nsec = MOD(ABS(idt),60*ifrc)/(ifrc) nfrac = MOD(ABS(idt), ifrc) ELSE IF ( (olen.eq.19) .OR. (olen.eq.24) ) THEN !idt should be in seconds ifrc = 1 nday = ABS(idt)/86400 ! Integer number of days in delta-time nhour = MOD(ABS(idt),86400)/3600 nmin = MOD(ABS(idt),3600)/60 nsec = MOD(ABS(idt),60) nfrac = 0 ELSE IF (olen.eq.16) THEN !idt should be in minutes ifrc = 1 nday = ABS(idt)/1440 ! Integer number of days in delta-time nhour = MOD(ABS(idt),1440)/60 nmin = MOD(ABS(idt),60) nsec = 0 nfrac = 0 ELSE IF (olen.eq.13) THEN !idt should be in hours ifrc = 1 nday = ABS(idt)/24 ! Integer number of days in delta-time nhour = MOD(ABS(idt),24) nmin = 0 nsec = 0 nfrac = 0 ELSE IF (olen.eq.10) THEN !idt should be in days ifrc = 1 nday = ABS(idt)/24 ! Integer number of days in delta-time nhour = 0 nmin = 0 nsec = 0 nfrac = 0 ELSE WRITE(*,'(''GETH_NEWDATE: Strange length for ODATE: '', i3)') & olen WRITE(*,*) odate(1:olen) STOP 'odate_4' END IF IF (idt.GE.0) THEN frnew = frold + nfrac IF (frnew.GE.ifrc) THEN frnew = frnew - ifrc nsec = nsec + 1 END IF scnew = scold + nsec IF (scnew .GE. 60) THEN scnew = scnew - 60 nmin = nmin + 1 END IF minew = miold + nmin IF (minew .GE. 60) THEN minew = minew - 60 nhour = nhour + 1 END IF hrnew = hrold + nhour IF (hrnew .GE. 24) THEN hrnew = hrnew - 24 nday = nday + 1 END IF dynew = dyold monew = moold yrnew = yrold DO i = 1, nday dynew = dynew + 1 IF (dynew.GT.mday(monew)) THEN dynew = dynew - mday(monew) monew = monew + 1 IF (monew .GT. 12) THEN monew = 1 yrnew = yrnew + 1 ! If the year changes, recompute the number of days in February mday(2) = nfeb(yrnew) END IF END IF END DO ELSE IF (idt.LT.0) THEN frnew = frold - nfrac IF (frnew .LT. 0) THEN frnew = frnew + ifrc nsec = nsec - 1 END IF scnew = scold - nsec IF (scnew .LT. 00) THEN scnew = scnew + 60 nmin = nmin + 1 END IF minew = miold - nmin IF (minew .LT. 00) THEN minew = minew + 60 nhour = nhour + 1 END IF hrnew = hrold - nhour IF (hrnew .LT. 00) THEN hrnew = hrnew + 24 nday = nday + 1 END IF dynew = dyold monew = moold yrnew = yrold DO i = 1, nday dynew = dynew - 1 IF (dynew.eq.0) THEN monew = monew - 1 IF (monew.eq.0) THEN monew = 12 yrnew = yrnew - 1 ! If the year changes, recompute the number of days in February mday(2) = nfeb(yrnew) END IF dynew = mday(monew) END IF END DO END IF ! Now construct the new mdate newlen = LEN(ndate) IF (newlen.GT.20) THEN WRITE(ndate(1:19),19) yrnew, monew, dynew, hrnew, minew, scnew WRITE(hfrc,'(I10)') frnew+1000000000 ndate = ndate(1:19)//'.'//hfrc(31-newlen:10) ELSE IF (newlen.eq.19.or.newlen.eq.20) THEN WRITE(ndate(1:19),19) yrnew, monew, dynew, hrnew, minew, scnew 19 format(I4,'-',I2.2,'-',I2.2,'_',I2.2,':',I2.2,':',I2.2) IF (newlen.eq.20) ndate = ndate(1:19)//'.' ELSE IF (newlen.eq.16) THEN WRITE(ndate,16) yrnew, monew, dynew, hrnew, minew 16 format(I4,'-',I2.2,'-',I2.2,'_',I2.2,':',I2.2) ELSE IF (newlen.eq.13) THEN WRITE(ndate,13) yrnew, monew, dynew, hrnew 13 format(I4,'-',I2.2,'-',I2.2,'_',I2.2) ELSE IF (newlen.eq.10) THEN WRITE(ndate,10) yrnew, monew, dynew 10 format(I4,'-',I2.2,'-',I2.2) END IF IF (olen.GE.11) ndate(11:11) = sp END SUBROUTINE geth_newdate !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! FUNCTION nfeb ( year ) RESULT (num_days) ! Compute the number of days in February for the given year IMPLICIT NONE INTEGER :: year INTEGER :: num_days num_days = 28 ! By default, February has 28 days ... IF (MOD(year,4).eq.0) THEN num_days = 29 ! But every four years, it has 29 days ... IF (MOD(year,100).eq.0) THEN num_days = 28 ! Except every 100 years, when it has 28 days ... IF (MOD(year,400).eq.0) THEN num_days = 29 ! Except every 400 years, when it has 29 days. END IF END IF END IF END FUNCTION nfeb !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! SUBROUTINE split_date_char ( date , century_year , month , day , hour , minute , second ) IMPLICIT NONE ! Input data. CHARACTER(LEN=19) , INTENT(IN) :: date ! Output data. INTEGER , INTENT(OUT) :: century_year , month , day , hour , minute , second READ(date,FMT='( I4.4)') century_year READ(date,FMT='( 5X,I2.2)') month READ(date,FMT='( 8X,I2.2)') day READ(date,FMT='(11X,I2.2)') hour READ(date,FMT='(14X,I2.2)') minute READ(date,FMT='(17X,I2.2)') second END SUBROUTINE split_date_char END MODULE date_pack ================================================ FILE: PREP/mcip/src/date_time_mod.f90 ================================================ !------------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------------! MODULE date_time !------------------------------------------------------------------------------- ! Name: Date and Time ! Purpose: Contains date and time in I/O API convention. ! Revised: 09 Jan 2002 Original version. (T. Otte) ! 09 Apr 2007 Added IMPLICIT NONE. (T. Otte) ! 07 Sep 2011 Updated disclaimer. (T. Otte) !------------------------------------------------------------------------------- IMPLICIT NONE INTEGER :: sdate ! YYYYDDD INTEGER :: stime ! HHMISS END MODULE date_time ================================================ FILE: PREP/mcip/src/dealloc_ctm.f90 ================================================ !------------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------------! SUBROUTINE dealloc_ctm !------------------------------------------------------------------------------- ! Name: Deallocate Arrays for CTM Dimensions ! Purpose: Deallocate arrays based on CTM grid. ! Revised: 14 Sep 2001 Original version. (T. Otte) ! 27 Feb 2002 Renamed SURF2 as WIND10. Removed RIB. (T. Otte) ! 18 Mar 2003 Removed JDRATE. (T. Otte) ! 09 Jun 2003 Added SNOCOV to METCRO2D. (D. Schwede) ! Removed extraneous variables from output. (T. Otte) ! 09 Aug 2004 Added JACOBS, WSPD10, WDIR10, SOIM1, SOIM2, SOIT1, ! SOIT2, SLTYP, JACOBF, QG, TEMP2, and LAI. Restored ! GRIDBDY2D file to output. Modified code so that arrays ! are made available in output only if user options in ! MM5 generate those data. (T. Otte and D. Schwede) ! 01 Dec 2004 Added PURB. (T. Otte) ! 25 Feb 2005 Eliminated GRIDCRO3D for hydrostatic runs. (T. Otte) ! 19 Aug 2005 Moved VD_C from a pointer to MC2 to an individual ! array that is deallocated in DEALLOC_DEPV. (T. Otte) ! 14 Jul 2006 Added new output fields LWMASK. (T. Otte) ! 25 Jul 2007 Removed 1.5-m and 10-m temperature arrays. Use 2-m ! temperature regardless of whether or not it is in ! input meteorology. Added VEG to output, made LAI a ! general output variable, and added WR to output to ! support inline dry deposition velocity calculations ! in CCTM. Added fractional land use. Removed RBNDYI ! and JACOBS. (T. Otte) ! 21 Apr 2008 Added 2-m mixing ratio (Q2_C) and turbulent kinetic ! energy (TKE_C and TKE_B) arrays. (T. Otte) ! 23 Sep 2009 Added potential vorticity (PVC_C and PVC_B). Added ! latitude, longitude, and map-scale factors squared ! on U and V faces to GRIDDOT2D. Remove vertical ! velocity (predicted by the meteorological model; WWIND) ! from output by default; retain user option to output ! 3D field. Add user option to output u- and v- ! component winds (UWINDC and VWINDC) on C-staggered ! grid. (T. Otte) ! 14 Dec 2010 Added sea ice. (T. Otte) ! 07 Sep 2011 Updated disclaimer. (T. Otte) ! 10 Apr 2015 Added new arrays CFRAC3D_C and CFRAC3D_B to pass 3D ! resolved cloud fraction to output. (T. Spero) ! 20 Aug 2015 Changed latent heat flux from QFX to LH. (T. Spero) ! 16 Mar 2018 Added SNOWH to output. Added mosaic, land use, and ! soil arrays. (T. Spero) ! 27 Jun 2018 Consolidated output arrays into a single module ! CTMVARS. Deallocate data structures. (T. Spero) ! 14 Sep 2018 Removed support for MM5v3 input. (T. Spero) ! 13 Dec 2018 Updated to use new data structures. (T. Spero) ! 18 Jun 2019 Added new surface variables with PX LSM that can ! improve dust simulation in CCTM. Added optional ! variables from KF convective scheme with radiative ! feedbacks. (T. Spero) !------------------------------------------------------------------------------- USE coord USE vgrd USE ctmvars USE mcipparm IMPLICIT NONE INTEGER :: nn !------------------------------------------------------------------------------- ! Deallocate grid arrays for COORD. !------------------------------------------------------------------------------- DEALLOCATE ( vglvs_gd ) DEALLOCATE ( x3face_gd ) !------------------------------------------------------------------------------- ! Deallocate grid arrays for VGRD. !------------------------------------------------------------------------------- DEALLOCATE ( x3face ) DEALLOCATE ( x3midl ) !------------------------------------------------------------------------------- ! Release memory for time-independent 2d fields at cell centers. !------------------------------------------------------------------------------- NULLIFY ( g_lat ) NULLIFY ( g_lon ) NULLIFY ( g_msfx2 ) NULLIFY ( g_ht ) NULLIFY ( g_dluse ) NULLIFY ( g_lwmask ) IF ( ASSOCIATED ( g_purb ) ) NULLIFY ( g_purb ) DO nn = 1, nfld2dxy DEALLOCATE ( fld2dxy(nn)%fld ) DEALLOCATE ( fld2dxy(nn)%bdy ) ENDDO !------------------------------------------------------------------------------- ! Release memory for time-independent 2d fields at cell corners and faces. !------------------------------------------------------------------------------- NULLIFY ( g_latd ) NULLIFY ( g_lond ) NULLIFY ( g_msfv2 ) NULLIFY ( g_latu ) NULLIFY ( g_lonu ) NULLIFY ( g_msfv2 ) NULLIFY ( g_latv ) NULLIFY ( g_lonv ) NULLIFY ( g_msfv2 ) DO nn = 1, nfld2dxy_d DEALLOCATE ( fld2dxy_d(nn)%fld ) ENDDO !------------------------------------------------------------------------------- ! Release memory for time-independent 3d fields (frac land use) at cell centers. !------------------------------------------------------------------------------- IF ( ASSOCIATED ( g_lufrac ) ) NULLIFY ( g_lufrac ) IF ( ALLOCATED ( fld3dxyl ) ) THEN DO nn = 1, nfld3dxyl DEALLOCATE ( fld3dxyl(nn)%fld ) ENDDO ENDIF !------------------------------------------------------------------------------- ! Release memory for time-varying 2d fields at cell centers. !------------------------------------------------------------------------------- NULLIFY ( c_prsfc ) NULLIFY ( c_ustar ) NULLIFY ( c_wstar ) NULLIFY ( c_pbl ) NULLIFY ( c_zruf ) NULLIFY ( c_moli ) NULLIFY ( c_hfx ) NULLIFY ( c_lh ) NULLIFY ( c_radyni ) NULLIFY ( c_rstomi ) NULLIFY ( c_tempg ) NULLIFY ( c_temp2 ) NULLIFY ( c_q2 ) NULLIFY ( c_wspd10 ) NULLIFY ( c_wdir10 ) NULLIFY ( c_glw ) NULLIFY ( c_gsw ) NULLIFY ( c_rgrnd ) NULLIFY ( c_rn ) NULLIFY ( c_rc ) NULLIFY ( c_cfrac ) NULLIFY ( c_cldt ) NULLIFY ( c_cldb ) NULLIFY ( c_wbar ) NULLIFY ( c_snocov ) NULLIFY ( c_veg ) NULLIFY ( c_lai ) NULLIFY ( c_seaice ) NULLIFY ( c_snowh ) IF ( ASSOCIATED ( c_wr ) ) NULLIFY ( c_wr ) IF ( ASSOCIATED ( c_soim1 ) ) NULLIFY ( c_soim1 ) IF ( ASSOCIATED ( c_soim2 ) ) NULLIFY ( c_soim2 ) IF ( ASSOCIATED ( c_soit1 ) ) NULLIFY ( c_soit1 ) IF ( ASSOCIATED ( c_soit2 ) ) NULLIFY ( c_soit2 ) IF ( ASSOCIATED ( c_sltyp ) ) NULLIFY ( c_sltyp ) IF ( ASSOCIATED ( c_wsat_px ) ) NULLIFY ( c_wsat_px ) IF ( ASSOCIATED ( c_wfc_px ) ) NULLIFY ( c_wfc_px ) IF ( ASSOCIATED ( c_wwlt_px ) ) NULLIFY ( c_wwlt_px ) IF ( ASSOCIATED ( c_csand_px ) ) NULLIFY ( c_csand_px ) IF ( ASSOCIATED ( c_fmsand_px ) ) NULLIFY ( c_fmsand_px ) IF ( ASSOCIATED ( c_clay_px ) ) NULLIFY ( c_clay_px ) DO nn = 1, nfld2dxyt DEALLOCATE ( fld2dxyt(nn)%fld ) ENDDO !------------------------------------------------------------------------------- ! Release memory for time-varying 3d fields at cell centers. !------------------------------------------------------------------------------- NULLIFY ( c_jacobf ) NULLIFY ( c_jacobm ) NULLIFY ( c_densa_j ) NULLIFY ( c_what_jd ) NULLIFY ( c_ta ) NULLIFY ( c_qv ) NULLIFY ( c_pres ) NULLIFY ( c_dens ) NULLIFY ( c_zh ) NULLIFY ( c_zf ) IF ( ASSOCIATED ( c_tke ) ) NULLIFY ( c_tke ) IF ( ASSOCIATED ( c_pv ) ) NULLIFY ( c_pv ) IF ( ASSOCIATED ( c_wwind ) ) NULLIFY ( c_wwind ) IF ( ASSOCIATED ( c_cfrac_3d ) ) NULLIFY ( c_cfrac_3d ) DO nn = 1, nfld3dxyzt DEALLOCATE ( fld3dxyzt(nn)%fld ) DEALLOCATE ( fld3dxyzt(nn)%bdy ) ENDDO IF ( nfld3dxyzt_q > 0 ) THEN IF ( ASSOCIATED ( c_qc ) ) NULLIFY ( c_qc ) IF ( ASSOCIATED ( c_qr ) ) NULLIFY ( c_qr ) IF ( ASSOCIATED ( c_qi ) ) NULLIFY ( c_qi ) IF ( ASSOCIATED ( c_qs ) ) NULLIFY ( c_qs ) IF ( ASSOCIATED ( c_qg ) ) NULLIFY ( c_qg ) IF ( ASSOCIATED ( c_qc_cu ) ) NULLIFY ( c_qc_cu ) IF ( ASSOCIATED ( c_qi_cu ) ) NULLIFY ( c_qi_cu ) IF ( ASSOCIATED ( c_cldfra_dp ) ) NULLIFY ( c_cldfra_dp ) IF ( ASSOCIATED ( c_cldfra_sh ) ) NULLIFY ( c_cldfra_sh ) DO nn = 1, nfld3dxyzt_q DEALLOCATE ( fld3dxyzt_q(nn)%fld ) DEALLOCATE ( fld3dxyzt_q(nn)%bdy ) ENDDO ENDIF !------------------------------------------------------------------------------- ! Release memory for time-varying 3d fields at cell corners and cell faces. !------------------------------------------------------------------------------- NULLIFY ( c_uwind ) NULLIFY ( c_vwind ) NULLIFY ( c_uhat_jd ) NULLIFY ( c_vhat_jd ) IF ( ASSOCIATED ( c_uwindc ) ) NULLIFY ( c_uwindc ) IF ( ASSOCIATED ( c_vwindc ) ) NULLIFY ( c_vwindc ) DO nn = 1, nfld3dxyzt_d DEALLOCATE ( fld3dxyzt_d(nn)%fld ) ENDDO !------------------------------------------------------------------------------- ! Release memory for time-varying 3d fields (soil layers) at cell centers. !------------------------------------------------------------------------------- IF ( nfld3dxyst > 0 ) THEN NULLIFY ( c_soit3d ) NULLIFY ( c_soim3d ) DO nn = 1, nfld3dxyst DEALLOCATE ( fld3dxyst(nn)%fld ) ENDDO ENDIF !------------------------------------------------------------------------------- ! Release memory for time-varying 3d fields (mosaic land use categories) at cell ! centers. !------------------------------------------------------------------------------- IF ( nfld3dxymt > 0 ) THEN NULLIFY ( c_lufrac2 ) NULLIFY ( c_moscat ) NULLIFY ( c_lai_mos ) NULLIFY ( c_rai_mos ) NULLIFY ( c_rsi_mos ) NULLIFY ( c_tsk_mos ) NULLIFY ( c_znt_mos ) DO nn = 1, nfld3dxymt DEALLOCATE ( fld3dxymt(nn)%fld ) ENDDO ENDIF END SUBROUTINE dealloc_ctm ================================================ FILE: PREP/mcip/src/dealloc_met.f90 ================================================ !------------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------------! SUBROUTINE dealloc_met !------------------------------------------------------------------------------- ! Name: Deallocate Meteorology Variables ! Purpose: Deallocate arrays for input meteorology variables. ! Revised: 10 Sep 2001 Original version. (T. Otte) ! 29 May 2003 Added SNOWCOVR. (D. Schwede) ! 09 Aug 2004 Added QGA, VEGOLD, and T2. (D. Schwede and T. Otte) ! 29 Nov 2004 Added LUFRAC. (T. Otte) ! 04 Apr 2005 Removed unused variables REGIME and MAVAIL. Added PH, ! PHB, PB, MU, and MUB for WRF. Added U10 and V10. ! (T. Otte and S.-B. Kim) ! 11 Aug 2005 Removed unused variable FSOIL. (T. Otte) ! 25 Jul 2007 Removed internal variables for emissivity and net ! radiation. Eliminated logical variable "PX" to make ! code more general. (T. Otte) ! 05 May 2008 Added 2-m mixing ratio (Q2) and turbulent kinetic ! energy (TKE) arrays. Added urban fraction (FRC_URB) ! and urban roughness length (Z0C_URB2D) for ! MET_UCMCALL=1. (T. Otte) ! 29 Sep 2009 Added THETA and CORIOLIS for when potential vorticity ! is needed. Added LATU, LONU, MAPU, LATV, LONV, and ! MAPV. Removed Z0C_URB2D. (T. Otte) ! 15 Dec 2010 Added sea ice. Added tipping buckets for convective ! and non-convective precipitation. (T. Otte) ! 07 Sep 2011 Updated disclaimer. (T. Otte) ! 11 Sep 2012 Added LANDMASK to be read from WRF. (T. Otte) ! 10 Apr 2015 Added new array CLDFRA to pass 3D resolved cloud ! fraction to output. (T. Spero) ! 21 Aug 2015 Changed latent heat flux from QFX to LH. Added ! moisture flux (QFX). (T. Spero) ! 16 Mar 2018 Added SNOWH to output. Added C1H, C2H, C1F, and C2F to ! support hybrid vertical coordinate in WRF. Added ! LUFRAC2, MOSCATIDX, ZNT_MOS, TSK_MOS, RA_MOS, RS_MOS, ! and LAI_MOS for NOAH Mosaic land-surface model. ! Added DZS, SOIT3D, and SOIM3D. Added WSPDSFC and ! XLAIDYN for Noah. (T. Spero) ! 14 Sep 2018 Removed support for MM5v3 input. (T. Spero) ! 18 Jun 2019 Added new surface variables with PX LSM that can ! improve dust simulation in CCTM. Added optional ! variables from KF convective scheme with radiative ! feedbacks. (T. Spero) !------------------------------------------------------------------------------- USE metinfo USE metvars USE mcipparm IMPLICIT NONE !------------------------------------------------------------------------------- ! Deallocate time-invariant fields. !------------------------------------------------------------------------------- DEALLOCATE ( albedo ) ! <--- time-variant with Pleim-Xiu and NOAH LSMs DEALLOCATE ( landmask ) ! <--- time-variant with NOAH LSM DEALLOCATE ( landuse ) DEALLOCATE ( latcrs ) DEALLOCATE ( latdot ) DEALLOCATE ( latu ) DEALLOCATE ( latv ) DEALLOCATE ( loncrs ) DEALLOCATE ( londot ) DEALLOCATE ( lonu ) DEALLOCATE ( lonv ) DEALLOCATE ( mapcrs ) DEALLOCATE ( mapdot ) DEALLOCATE ( sigmaf ) DEALLOCATE ( sigmah ) DEALLOCATE ( terrain ) DEALLOCATE ( znt ) IF ( ALLOCATED ( lufrac ) ) DEALLOCATE ( lufrac ) IF ( ALLOCATED ( lufrac2 ) ) DEALLOCATE ( lufrac2 ) IF ( ALLOCATED ( moscatidx ) ) DEALLOCATE ( moscatidx ) IF ( ALLOCATED ( coriolis ) ) DEALLOCATE ( coriolis ) IF ( ALLOCATED ( c1f ) ) DEALLOCATE ( c1f ) IF ( ALLOCATED ( c1h ) ) DEALLOCATE ( c1h ) IF ( ALLOCATED ( c2f ) ) DEALLOCATE ( c2f ) IF ( ALLOCATED ( c2h ) ) DEALLOCATE ( c2h ) IF ( ALLOCATED ( dzs ) ) DEALLOCATE ( dzs ) !------------------------------------------------------------------------------- ! Deallocate time-variant fields. !------------------------------------------------------------------------------- DEALLOCATE ( glw ) DEALLOCATE ( groundt ) DEALLOCATE ( hfx ) DEALLOCATE ( i_rainc ) DEALLOCATE ( i_rainnc) DEALLOCATE ( ircold ) DEALLOCATE ( irnold ) DEALLOCATE ( lh ) DEALLOCATE ( pp ) DEALLOCATE ( psa ) DEALLOCATE ( qca ) DEALLOCATE ( qga ) DEALLOCATE ( qia ) DEALLOCATE ( qra ) DEALLOCATE ( qsa ) DEALLOCATE ( qva ) DEALLOCATE ( raincon ) DEALLOCATE ( rainnon ) DEALLOCATE ( rcold ) DEALLOCATE ( rgrnd ) DEALLOCATE ( rnold ) DEALLOCATE ( seaice ) DEALLOCATE ( snowcovr) DEALLOCATE ( snowh ) DEALLOCATE ( ta ) DEALLOCATE ( ua ) DEALLOCATE ( ust ) DEALLOCATE ( va ) DEALLOCATE ( wa ) DEALLOCATE ( zpbl ) IF ( ALLOCATED ( t2 ) ) DEALLOCATE ( t2 ) IF ( ALLOCATED ( q2 ) ) DEALLOCATE ( q2 ) IF ( ALLOCATED ( u10 ) ) DEALLOCATE ( u10 ) IF ( ALLOCATED ( v10 ) ) DEALLOCATE ( v10 ) IF ( ALLOCATED ( qfx ) ) DEALLOCATE ( qfx ) IF ( met_model == 2 ) THEN ! WRF DEALLOCATE ( mu ) DEALLOCATE ( mub ) DEALLOCATE ( pb ) DEALLOCATE ( ph ) DEALLOCATE ( phb ) ENDIF IF ( ALLOCATED ( isltyp ) ) DEALLOCATE ( isltyp ) IF ( ALLOCATED ( lai ) ) DEALLOCATE ( lai ) IF ( ALLOCATED ( mol ) ) DEALLOCATE ( mol ) IF ( ALLOCATED ( ra ) ) DEALLOCATE ( ra ) IF ( ALLOCATED ( rstom ) ) DEALLOCATE ( rstom ) IF ( ALLOCATED ( soilt1 ) ) DEALLOCATE ( soilt1 ) IF ( ALLOCATED ( soilt2 ) ) DEALLOCATE ( soilt2 ) IF ( ALLOCATED ( soim3d ) ) DEALLOCATE ( soim3d ) IF ( ALLOCATED ( soit3d ) ) DEALLOCATE ( soit3d ) IF ( ALLOCATED ( veg ) ) DEALLOCATE ( veg ) IF ( ALLOCATED ( w2 ) ) DEALLOCATE ( w2 ) IF ( ALLOCATED ( wg ) ) DEALLOCATE ( wg ) IF ( ALLOCATED ( wr ) ) DEALLOCATE ( wr ) IF ( ALLOCATED ( tke ) ) DEALLOCATE ( tke ) IF ( ALLOCATED ( theta ) ) DEALLOCATE ( theta ) IF ( ALLOCATED ( frc_urb ) ) DEALLOCATE ( frc_urb ) IF ( ALLOCATED ( cldfra ) ) DEALLOCATE ( cldfra ) IF ( ALLOCATED ( lai_mos ) ) DEALLOCATE ( lai_mos ) IF ( ALLOCATED ( ra_mos ) ) DEALLOCATE ( ra_mos ) IF ( ALLOCATED ( rs_mos ) ) DEALLOCATE ( rs_mos ) IF ( ALLOCATED ( tsk_mos ) ) DEALLOCATE ( tsk_mos ) IF ( ALLOCATED ( znt_mos ) ) DEALLOCATE ( znt_mos ) IF ( ALLOCATED ( wspdsfc ) ) DEALLOCATE ( wspdsfc ) IF ( ALLOCATED ( xlaidyn ) ) DEALLOCATE ( xlaidyn ) IF ( ALLOCATED ( lai_px ) ) DEALLOCATE ( lai_px ) IF ( ALLOCATED ( wsat_px ) ) DEALLOCATE ( wsat_px ) IF ( ALLOCATED ( wwlt_px ) ) DEALLOCATE ( wwlt_px ) IF ( ALLOCATED ( wfc_px ) ) DEALLOCATE ( wfc_px ) IF ( ALLOCATED ( csand_px ) ) DEALLOCATE ( csand_px ) IF ( ALLOCATED ( fmsand_px ) ) DEALLOCATE ( fmsand_px ) IF ( ALLOCATED ( clay_px ) ) DEALLOCATE ( clay_px ) IF ( ALLOCATED ( qc_cu ) ) DEALLOCATE ( qc_cu ) IF ( ALLOCATED ( qi_cu ) ) DEALLOCATE ( qi_cu ) IF ( ALLOCATED ( cldfra_dp ) ) DEALLOCATE ( cldfra_dp ) IF ( ALLOCATED ( cldfra_sh ) ) DEALLOCATE ( cldfra_sh ) END SUBROUTINE dealloc_met ================================================ FILE: PREP/mcip/src/dealloc_x.f90 ================================================ !------------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------------! SUBROUTINE dealloc_x !------------------------------------------------------------------------------- ! Name: Deallocate X Arrays ! Purpose: Deallocate X arrays with MCIP transfer array dimensions. ! Revised: 19 Sep 2001 Original version. (T. Otte) ! 27 Feb 2002 Renamed XSURF1 as XTEMP1P5 and XSURF2 as XWIND10. ! (T. Otte) ! 18 Mar 2003 Removed XJDRATE. (T. Otte) ! 29 May 2003 Added XF2DEF, XSNOCOV, XDELTA, XLSTWET, and XRH. ! (D. Schwede, T. Otte, and J. Pleim) ! 10 Aug 2004 Added XQGRAUP, XWSPD10, XWDIR10, and XT2. Removed ! XFLAGS, XINDEX, XNAMES, and XLUSNAME. Moved remaining ! contents of NULL_X to this routine to simplify code. ! (T. Otte and D. Schwede) ! 01 Dec 2004 Added XPURB. (T. Otte) ! 04 Apr 2005 Removed unused variables XREGIME, XRTOLD, XPRSOLD, and ! XDENSAM_REF. Moved XDFLUX and XPSRATE as local ! variables in VERTHYD. Added XMU and XGEOF for WRF. ! Changed XUU and XVV to XUU_D and XVV_D, and changed ! XUHAT and XVHAT to XUU_S and XVV_T. Added pointer ! indices for optional chlorine and mercury species. ! Removed XENTRP. Added XU10 and XV10. (T. Otte) ! 19 Aug 2005 Removed XDEPIDX and pointers to XDEPIDX. Moved ! XDEPSPC and XVD to DEALLOC_DEPV. Removed unused ! variables XCAPG, XMMPASS, and XFSOIL. Removed XRH and ! made it a local scalar in M3DRY. (T. Otte and ! W. Hutzell) ! 14 Jul 2006 Removed XDELTA and XLSTWET to be local variables in ! M3DRY. Added XLWMASK. (T. Otte) ! 30 Jul 2007 Removed XCFRACH, XCFRACM, XCFRACL, XRBNDY, XTEMP1P5, ! and XTEMP10. Create 2-m temperature array even if ! it is not part of input meteorology. Changed 2-m ! temperature from XT2 to XTEMP2. Removed internal ! variables for emissivity and net radiation. Removed ! XF2DEF and XRSTMIN to be local variables in ! RESISTCALC. Added XPSTAR0. (T. Otte) ! 21 Apr 2008 Added 2-m mixing ratio (XQ2) and turbulent kinetic ! energy (XTKE) arrays. (T. Otte) ! 17 Sep 2009 Added land-use category description, XLUDESC. Added ! potential vorticity (XPVC), Coriolis (XCORL), and ! potential temperature (XTHETA). Removed dependency ! on module MCIPPARM. Added map-scale factors squared ! (on cross points, XMAPC2). Added XLATU, XLONU, XMAPU, ! XLATV, XLONV, and XMAPV. (T. Otte) ! 14 Dec 2010 Added sea ice. (T. Otte) ! 07 Sep 2011 Updated disclaimer. (T. Otte) ! 10 Apr 2015 Added new array XCFRAC3D to pass 3D resolved cloud ! fraction to output. (T. Spero) ! 21 Aug 2015 Changed latent heat flux from QFX to LH. Added ! moisture flux (QFX). (T. Spero) ! 16 Mar 2018 Added SNOWH to output. Added XMUHYB to support hybrid ! vertical coordinate in WRF output. Added XLUFRAC2, ! XMOSCATIDX, XZNT_MOS, XTSK_MOS, XRA_MOS, XRS_MOS, and ! XLAI_MOS for NOAH Mosaic land-surface model. Added ! XZSOIL, and added 3D soil arrays, XSOIT3D and XSOIM3D. ! Added XWSPDSFC and XXLAIDYN for Noah. (T. Spero) ! 14 Sep 2018 Removed support for MM5v3 input. (T. Spero) ! 18 Jun 2019 Added new surface variables with PX LSM that can ! improve dust simulation in CCTM. Added optional ! variables from KF convective scheme with radiative ! feedbacks. (T. Spero) !------------------------------------------------------------------------------- USE xvars IMPLICIT NONE !------------------------------------------------------------------------------- ! Scalars and One-Dimensional Arrays !------------------------------------------------------------------------------- DEALLOCATE ( xx3face ) DEALLOCATE ( xx3midl ) DEALLOCATE ( xdx3 ) DEALLOCATE ( xludesc ) IF ( ALLOCATED ( xzsoil ) ) DEALLOCATE ( xzsoil ) !------------------------------------------------------------------------------- ! Dot-Point and Face 2D Arrays. !------------------------------------------------------------------------------- DEALLOCATE ( xlatd ) DEALLOCATE ( xlatu ) DEALLOCATE ( xlatv ) DEALLOCATE ( xlond ) DEALLOCATE ( xlonu ) DEALLOCATE ( xlonv ) DEALLOCATE ( xmapd ) DEALLOCATE ( xmapu ) DEALLOCATE ( xmapv ) !------------------------------------------------------------------------------- ! Cross-Point 2D Arrays. !------------------------------------------------------------------------------- DEALLOCATE ( xlatc ) DEALLOCATE ( xlonc ) DEALLOCATE ( xmapc ) DEALLOCATE ( xmapc2 ) DEALLOCATE ( xtopo ) DEALLOCATE ( xprsfc ) DEALLOCATE ( xdenss ) DEALLOCATE ( xtempg ) DEALLOCATE ( xrainn ) DEALLOCATE ( xrainc ) DEALLOCATE ( xdluse ) DEALLOCATE ( xlwmask ) IF ( ALLOCATED ( xpurb ) ) DEALLOCATE ( xpurb ) IF ( ALLOCATED ( xcorl ) ) DEALLOCATE ( xcorl ) IF ( ALLOCATED ( xqfx ) ) DEALLOCATE ( xqfx ) DEALLOCATE ( xglw ) DEALLOCATE ( xgsw ) DEALLOCATE ( xhfx ) DEALLOCATE ( xlh ) DEALLOCATE ( xustar ) DEALLOCATE ( xpbl ) DEALLOCATE ( xzruf ) DEALLOCATE ( xmol ) DEALLOCATE ( xrgrnd ) DEALLOCATE ( xwr ) DEALLOCATE ( xlai ) DEALLOCATE ( xveg ) DEALLOCATE ( xwstar ) DEALLOCATE ( xrib ) DEALLOCATE ( xradyn ) DEALLOCATE ( xrstom ) DEALLOCATE ( xtemp2 ) DEALLOCATE ( xq2 ) DEALLOCATE ( xwspd10 ) DEALLOCATE ( xwdir10 ) DEALLOCATE ( xalbedo ) DEALLOCATE ( xmavail ) DEALLOCATE ( xcfract ) DEALLOCATE ( xcldtop ) DEALLOCATE ( xcldbot ) DEALLOCATE ( xwbar ) DEALLOCATE ( xsnocov ) DEALLOCATE ( xseaice ) DEALLOCATE ( xsnowh ) IF ( ALLOCATED ( xmuhyb ) ) DEALLOCATE ( xmuhyb ) IF ( ALLOCATED ( xu10 ) ) DEALLOCATE ( xu10 ) IF ( ALLOCATED ( xv10 ) ) DEALLOCATE ( xv10 ) IF ( ALLOCATED ( xtga ) ) DEALLOCATE ( xtga ) IF ( ALLOCATED ( xt2a ) ) DEALLOCATE ( xt2a ) IF ( ALLOCATED ( xwga ) ) DEALLOCATE ( xwga ) IF ( ALLOCATED ( xw2a ) ) DEALLOCATE ( xw2a ) IF ( ALLOCATED ( xsltyp ) ) DEALLOCATE ( xsltyp ) DEALLOCATE ( xluse ) !------------------------------------------------------------------------------- ! Cross-Point 3D Arrays. !------------------------------------------------------------------------------- DEALLOCATE ( xtempm ) DEALLOCATE ( xpresm ) DEALLOCATE ( xdensam ) DEALLOCATE ( xdenswm ) DEALLOCATE ( x3jacobf ) DEALLOCATE ( x3jacobm ) DEALLOCATE ( x3htf ) DEALLOCATE ( x3htm ) DEALLOCATE ( xwhat ) DEALLOCATE ( xwvapor ) DEALLOCATE ( xwwind ) DEALLOCATE ( xcldwtr ) DEALLOCATE ( xranwtr ) DEALLOCATE ( xqice ) DEALLOCATE ( xqsnow ) DEALLOCATE ( xqgraup ) IF ( ALLOCATED (xtke) ) DEALLOCATE ( xtke ) IF ( ALLOCATED (xpvc) ) DEALLOCATE ( xpvc ) IF ( ALLOCATED (xtheta) ) DEALLOCATE ( xtheta ) IF ( ALLOCATED (xcfrac3d) ) DEALLOCATE ( xcfrac3d ) IF ( ALLOCATED (xqc_cu) ) DEALLOCATE ( xqc_cu ) IF ( ALLOCATED (xqi_cu) ) DEALLOCATE ( xqi_cu ) IF ( ALLOCATED (xcldfrad) ) DEALLOCATE ( xcldfrad ) IF ( ALLOCATED (xcldfras) ) DEALLOCATE ( xcldfras ) !------------------------------------------------------------------------------- ! Dot-Point (and Face-Point) 3D Arrays. !------------------------------------------------------------------------------- DEALLOCATE ( xuu_d ) DEALLOCATE ( xvv_d ) DEALLOCATE ( xuu_s ) DEALLOCATE ( xvv_t ) !------------------------------------------------------------------------------- ! Cross-Point Arrays for Soil. !------------------------------------------------------------------------------- IF ( ALLOCATED ( xsoit3d ) ) DEALLOCATE ( xsoit3d ) IF ( ALLOCATED ( xsoim3d ) ) DEALLOCATE ( xsoim3d ) !------------------------------------------------------------------------------- ! Cross-Point Arrays for Mosaic. !------------------------------------------------------------------------------- IF ( ALLOCATED ( xlufrac2 ) ) DEALLOCATE ( xlufrac2 ) IF ( ALLOCATED ( xmoscatidx ) ) DEALLOCATE ( xmoscatidx ) IF ( ALLOCATED ( xlai_mos ) ) DEALLOCATE ( xlai_mos ) IF ( ALLOCATED ( xra_mos ) ) DEALLOCATE ( xra_mos ) IF ( ALLOCATED ( xrs_mos ) ) DEALLOCATE ( xrs_mos ) IF ( ALLOCATED ( xtsk_mos ) ) DEALLOCATE ( xtsk_mos ) IF ( ALLOCATED ( xznt_mos ) ) DEALLOCATE ( xznt_mos ) IF ( ALLOCATED ( xwspdsfc ) ) DEALLOCATE ( xwspdsfc ) IF ( ALLOCATED ( xxlaidyn ) ) DEALLOCATE ( xxlaidyn ) !------------------------------------------------------------------------------- ! Cross-Point Arrays for Pleim-Xiu land surface model with WRFv4.1. !------------------------------------------------------------------------------- IF ( ALLOCATED ( xwsat_px ) ) DEALLOCATE ( xwsat_px ) IF ( ALLOCATED ( xwfc_px ) ) DEALLOCATE ( xwfc_px ) IF ( ALLOCATED ( xwwlt_px ) ) DEALLOCATE ( xwwlt_px ) IF ( ALLOCATED ( xcsand_px ) ) DEALLOCATE ( xcsand_px ) IF ( ALLOCATED ( xfmsand_px ) ) DEALLOCATE ( xfmsand_px ) IF ( ALLOCATED ( xclay_px ) ) DEALLOCATE ( xclay_px ) !------------------------------------------------------------------------------- ! Variables for WRF only. !------------------------------------------------------------------------------- IF ( ALLOCATED ( xmu ) ) DEALLOCATE ( xmu ) IF ( ALLOCATED ( xgeof ) ) DEALLOCATE ( xgeof ) !------------------------------------------------------------------------------- ! Internal arrrays. !------------------------------------------------------------------------------- DEALLOCATE ( xdx3htf ) DEALLOCATE ( xdensaf ) DEALLOCATE ( xpresf ) END SUBROUTINE dealloc_x ================================================ FILE: PREP/mcip/src/detangle_soil_px.f90 ================================================ !------------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------------! SUBROUTINE detangle_soil_px !------------------------------------------------------------------------------- ! Name: Detangle Soil Categories from Pleim-Xiu Land-Surface Model ! Purpose: Realign soil categories from Pleim-Xiu land-surface model in WRF ! so that they are consistent with the WRF documentation and can be ! handled properly within CMAQ. ! Notes: WRFv3.7 and all prior versions have soil categories within PXLSM ! placed in an indexing that is inconsistent with the WRF ! documentation. See subroutine SOILPROP in WRF's module_sf_pxlsm. ! Revised: 25 Aug 2015 Original version. (T. Spero) !------------------------------------------------------------------------------- USE metinfo, ONLY: nx => met_nx, ny => met_ny USE metvars, ONLY: isltyp IMPLICIT NONE INTEGER :: i INTEGER :: j CHARACTER(LEN=16), PARAMETER :: pname = 'DETANGLE_SOIL_PX' !------------------------------------------------------------------------------- ! Error, warning, and informational messages. !------------------------------------------------------------------------------- CHARACTER(LEN=256), PARAMETER :: f9000 = "(/, 1x, 70('*'), & & /, 1x, '*** SUBROUTINE: ', a, & & /, 1x, '*** UNEXPECTED SOIL CATEGORY FROM PXLSM: ', i3, & & /, 1x, '*** AT WRF GRID CELL: ', i4, 2x, i4, & & /, 1x, 70('*'))" !------------------------------------------------------------------------------- ! Loop over grid cells to align soil type from PXLSM with WRF standard. ! ! Categories in PXLSM range from 1-11 plus 14, where categories 1-3 and 14 are ! consistent with WRF standard, category 4 is a combination of WRF categories ! 4-5, and categories 5-11 from PXLSM are the same as 6-12 from WRF, ! respectively. WRF categories 13, 15, and 16 are not part of the PXLSM ! classification. ! ! WRF soil categories: ! 1 Sand ! 2 Loamy Sand ! 3 Sandy Loam ! 4 Silt Loam ! 5 Silt ! 6 Loam ! 7 Sandy Clay Loam ! 8 Silty Clay Loam ! 9 Clay Loam ! 10 Sandy Clay ! 11 Silty Clay ! 12 Clay ! 13 Organic Material ! 14 Water ! 15 Bedrock ! 16 Other (land-ice) !------------------------------------------------------------------------------- DO i = 1, nx DO j = 1, ny SELECT CASE ( isltyp(i,j) ) CASE ( 1:4, 14 ) isltyp(i,j) = isltyp(i,j) CASE ( 5:11 ) isltyp(i,j) = isltyp(i,j) + 1 CASE DEFAULT WRITE (*,f9000) TRIM(pname), isltyp(i,j), i, j CALL graceful_stop (pname) END SELECT ENDDO ENDDO END SUBROUTINE detangle_soil_px ================================================ FILE: PREP/mcip/src/dynflds.f90 ================================================ !------------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------------! SUBROUTINE dynflds !------------------------------------------------------------------------------- ! Name: Dynamic Fields ! Purpose: Maps and calculates time-variant fields on MCIP X grids. ! Revised: 12 Sep 2001 Original version. (T. Otte) ! 09 Jan 2002 Changed calls to "abort" to calls to "m3exit" for ! graceful shut-down of I/O API files. (T. Otte) ! 28 Feb 2005 Allowed new user options for LDDEP = 3 or 4 for dry ! deposition velocity calculations for additional ! chlorine and mercury species in M3DRY. Removed call ! to MET3DSUP since that subroutine was combined into ! METVARS2CTM. (T. Otte) ! 27 Feb 2006 Removed unnecessary dependence on module METINFO. ! (T. Otte) ! 30 Jun 2006 Added SDATE and STIME to calling argument list ! for M3DRY. (T. Otte) ! 24 Jul 2007 Added option to bypass dry deposition velocity ! calculations in MCIP so that they can be performed ! in the CCTM, and changed code so that M3Dry with ! chlorine and mercury is the only option to compute ! dry deposition velocities in MCIP. Removed obsolescent ! user-definable run time options for recalculating PBL, ! cloud, and radiation fields. (T. Otte) ! 29 Oct 2009 Added optional call to compute potential vorticity. ! (T. Otte) ! 12 Feb 2010 Removed unused argument GMT. (T. Otte) ! 09 Sep 2010 Removed option to compute dry deposition velocities ! in MCIP. Removed input arguments SDATE and ! STIME. (T. Otte) ! 07 Sep 2011 Updated disclaimer. (T. Otte) !------------------------------------------------------------------------------- USE mcipparm IMPLICIT NONE !------------------------------------------------------------------------------- ! Put input meteorology variables on MCIP (X) grid and calculate required ! state variables for CTM. !------------------------------------------------------------------------------- CALL metvars2ctm !------------------------------------------------------------------------------- ! Calculate supplemental planetary boundary layer fields. !------------------------------------------------------------------------------- CALL pblsup !------------------------------------------------------------------------------- ! Calculate cloud fields. !------------------------------------------------------------------------------- CALL bcldprc_ak !------------------------------------------------------------------------------- ! Compute potential vorticity. !------------------------------------------------------------------------------- IF ( lpv > 0 ) THEN CALL pvs ENDIF END SUBROUTINE dynflds ================================================ FILE: PREP/mcip/src/e_aerk.f90 ================================================ !------------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------------! FUNCTION e_aerk (tempc) !------------------------------------------------------------------------------- ! Name: Saturation Vapor Pressure ! Purpose: Returns saturation vapor pressure [Pa] as a funtion of temperature ! in degrees Celsius. ! Revised: ?? ??? ???? Original version as a statement function in MCIP ! routines bcldprc_ak.f90 and getpblht.f90. ! 23 Feb 2011 Converted to independent routine. (T. Otte) ! 07 Sep 2011 Updated disclaimer. (T. Otte) !------------------------------------------------------------------------------- USE const IMPLICIT NONE REAL :: e_aerk ! saturation vapor pressure [Pa] REAL, INTENT(IN) :: tempc ! temperature [deg C] e_aerk = vp0 * EXP( 17.625 * tempc / ( 243.04 + tempc ) ) END FUNCTION e_aerk ================================================ FILE: PREP/mcip/src/files_mod.f90 ================================================ !------------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------------! MODULE files !------------------------------------------------------------------------------- ! Name: Files ! Purpose: Contains FORTRAN units and file names. ! Revised: 10 Sep 2001 Original version. (T. Otte) ! 03 Oct 2001 Added unit for GRIDDESC file. (T. Otte) ! 07 Jan 2002 Added explicit file names for input meteorology ! file, namelist, grid description, and meteorology ! header. (T. Otte) ! 09 Jun 2003 Removed GRIDBDY2D, GRIDBDY3D, and METBDY2D from ! output. (T. Otte) ! 01 Jul 2004 Restored GRIDBDY2D. Fixed lengths of output file ! names to be strictly CHARACTER*16. Added flag to ! create static output (grid) files. (T. Otte) ! 29 Nov 2004 Added optional input MM5 "TERRAIN" file to get ! fractional land use fields. (T. Otte) ! 26 May 2005 Removed unused (input) variables GRIDCRO2D, GRIDCRO3D, ! LANDCRO2D, METCRO2D, METCRO3D, and METDOT3D. Changed ! names for output files by removing "_G1". Added new ! parameter to define maximum number of input meteorology ! files, and increased default maximum to 100. (T. Otte) ! 09 Apr 2007 Added IMPLICIT NONE. (T. Otte) ! 02 May 2008 Increased MAX_MM to 300 to accommodate 5-minute output ! for one day. (T. Otte) ! 30 Aug 2011 Changed name of routine from FILE to FILES to avoid ! conflict with F90 protected intrinsic names. Changed ! F77 character declarations to F90 standard. (T. Otte) ! 07 Sep 2011 Updated disclaimer. (T. Otte) ! 31 May 2012 Increased MAX_MM from 300 to 367 to allow for a full ! year to be run (including leap year and previous day ! for precipitation calculation). (T. Otte) ! 10 Feb 2018 Added new optional output files for fractional land ! use, layered soil data, and mosaic data. (T. Spero) ! 18 Dec 2018 Removed support for MM5v3 input files. Added file ! names for netCDF output. Removed runtime option ! to not output time-independent files. (T. Spero) !------------------------------------------------------------------------------- IMPLICIT NONE INTEGER :: iutmm INTEGER, PARAMETER :: iutgd = 4 INTEGER, PARAMETER :: iutmmi = 10 INTEGER, PARAMETER :: iutnml = 8 INTEGER, PARAMETER :: max_mm = 367 CHARACTER(LEN=256) :: file_gd CHARACTER(LEN=256) :: file_mm ( max_mm ) CHARACTER(LEN=256), PARAMETER :: file_nml = 'namelist.mcip' CHARACTER(LEN=256) :: file_geo CHARACTER(LEN=16), PARAMETER :: gridbdy2d = 'GRID_BDY_2D ' CHARACTER(LEN=16), PARAMETER :: gridcro2d = 'GRID_CRO_2D ' CHARACTER(LEN=16), PARAMETER :: griddot2d = 'GRID_DOT_2D ' CHARACTER(LEN=16), PARAMETER :: lufraccro = 'LUFRAC_CRO ' CHARACTER(LEN=16), PARAMETER :: metbdy3d = 'MET_BDY_3D ' CHARACTER(LEN=16), PARAMETER :: metcro2d = 'MET_CRO_2D ' CHARACTER(LEN=16), PARAMETER :: metcro3d = 'MET_CRO_3D ' CHARACTER(LEN=16), PARAMETER :: metdot3d = 'MET_DOT_3D ' CHARACTER(LEN=16), PARAMETER :: mosaiccro = 'MOSAIC_CRO ' CHARACTER(LEN=16), PARAMETER :: soicro = 'SOI_CRO ' CHARACTER(LEN=16), PARAMETER :: mcipbdyncf = 'mcip_bdy.nc ' CHARACTER(LEN=16), PARAMETER :: mcipncf = 'mcip.nc ' INTEGER :: cdfid_b INTEGER :: cdfid_m END MODULE files ================================================ FILE: PREP/mcip/src/getluse.f90 ================================================ !------------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------------! SUBROUTINE getluse !------------------------------------------------------------------------------- ! Name: Get Land Use ! Purpose: Reads in land use fractions and reclassifies categories ! following RADM as needed for use with PBLPKG and RADMDRY. ! Revised: 15 Jan 1997 Created for MCIP and generalized CTM. (D. Byun) ! 20 May 1997 Adapted for Models-3 BETA system. (D. Byun) ! 04 Feb 1998 Changed include for nonglobal includes. (D. Byun) ! 14 Apr 2000 Added more LU data options. (D. Byun) ! 10 Sep 2001 Converted to free-form f90. Removed retrieval of BMAX ! from environment and added it to MCIPPARM. Converted ! arrays to allocatable based on run-time definitions. ! Removed re-calculations of NCG_I and NCG_J. Changed ! MAXI and MAXJ to METROW and METCOL. Removed argument ! list. Changed 11-category water from "7" to LWATER. ! Added calculations for LUTYPE=3. Moved calculations ! for each definition of LUTYPE to separate subroutines. ! (T. Otte) ! 09 Jan 2002 Changed calls to "abort" to calls to "m3exit" for ! graceful shut-down of I/O API files. (T. Otte) ! 26 Mar 2003 Simplified algorithm to map input meteorology to ! MCIP_X domain. (T. Otte) ! 11 Aug 2004 Removed obsolete land-use input sources so that all ! land-use input is assumed to come directly from MM5 ! to be converted to RADM categories. Added algorithms ! from lutrans3.F here. Removed XFLAGS. Removed ! conversion of land use to RADM categories if RADM dry ! deposition and/or PBL recalculation is not used. ! (T. Otte) ! 01 Dec 2004 Added processing for fractional land use categories ! if those fields are available. (T. Otte) ! 08 Apr 2005 Removed NDX and option to interpolate to finer scale ! meteorology. Changed I and J dimensions to Y and X ! to make the code more general. Added optimization ! of loops using F90 implicit loop structures. (T. Otte) ! 20 Jul 2005 Recoded nested WHERE-ELSEWHERE-END WHERE for known bug ! in PGF90v5.2 compiler. (T. Otte) ! 14 Jul 2006 Corrected comparison of REAL field in XDLUSE with ! INTEGER scalar LWATER. Removed unused variables ! IIL and JJL. Define land-water mask array. (T. Otte) ! 04 May 2007 Removed option to convert to RADM land use categories. ! Defined character string with land use classification ! source. Changed criteria to file XLUSRC. (T. Otte) ! 05 May 2008 Expanded possible land use configurations to include ! 33-category USGS classification in WRFv2.2+. Changed ! definition of PURB to reflect urban land use that can ! be in categories 1, 31, 32, and 33 for USGS 33-category ! land use. Changed to preferentially fill PURB from ! FRC_URB when the urban canopy model is used in WRF. ! (T. Otte) ! 27 Oct 2009 Added NLCD/MODIS and Modified IGBP MODIS-NOAH as ! land-use classification systems for WRF. Changed ! MET_UCMCALL to MET_URBAN_PHYS, and allowed for variable ! to be set to be greater than 1. (T. Otte) ! 12 Feb 2010 Removed unused variables IDOM and J. (T. Otte) ! 15 Dec 2010 Moved LWATER from module MCIPPARM to be a local ! variable. Added LICE, and use it to refine land/water ! mask to include ice cells as water rather than land. ! (T. Otte) ! 29 Aug 2011 Improved error handling. (T. Otte) ! 07 Sep 2011 Updated disclaimer. (T. Otte) ! 10 Sep 2012 Added handling for 40-category 2006 NLCD-MODIS land ! use classification as "NLCD40". Added alternate name ! for 50-category 2001 NLCD-MODIS land use classification ! as "NLCD50". Changed LUCATNLCD to LUCATNLCD50 and ! added new field LUCATNLCD40. Changed XLUSRC for the ! 50-category classification from "NLCD-MODIS" to ! "NLCD50". Added XLUSRC of "NLCD40" for the 40-category ! classification. Corrected error in mapping of water ! from NLCD-MODIS (NLCD50) into a single category where ! category 47 (barren or sparsely vegetated) was used ! instead of category 48 (IGBP water). In the computed ! land mask, returned snow/ice to land. Now use land ! mask directly from WRF if Pleim-Xiu LSM was used in ! WRF. (T. Otte) ! 26 Nov 2014 Added code to handle separate lake category option in ! USGS and MODIS land use classifications from WRF by ! converting lakes to generic water (because CMAQ does ! not distinguish handling lakes of yet). Also removed ! requirement to have FRC_URB available when the urban ! canopy model is used in WRF. (T. Spero and C. Nolte) ! 30 Oct 2015 Corrected logic on filling PURB to account for case ! where FRC_URB has not been allocated. (T. Spero) ! 09 Feb 2018 Added capability to properly process PURB when the ! 21-category MODIS land use is used in WRF. Added ! processing of fractional land use for NOAH Mosaic. ! (T. Spero) ! 22 Jun 2018 Changed name of module LUVARS to LUCATS to minimize ! confusion. (T. Spero) ! 08 Aug 2018 Corrected bug in setting land use category names in ! MCIP for USGS24 + lakes. (T. Spero) !------------------------------------------------------------------------------- USE lucats USE metvars USE metinfo, nx => met_nx, ny => met_ny USE xvars USE mcipparm IMPLICIT NONE INTEGER :: col INTEGER :: ec INTEGER :: er INTEGER :: i INTEGER :: ii INTEGER :: jj INTEGER :: lu INTEGER :: lumax CHARACTER(LEN=16), PARAMETER :: pname = 'GETLUSE' INTEGER :: row INTEGER :: sc INTEGER :: sr !------------------------------------------------------------------------------- ! Error, warning, and informational messages. !------------------------------------------------------------------------------- CHARACTER(LEN=256), PARAMETER :: f9000 = "(/, 1x, 70('*'), & & /, 1x, '*** SUBROUTINE: ', a, & & /, 1x, '*** TOO MANY INPUT LAND USE CATEGORIES', & & /, 1x, '*** MAXIMUM ALLOWED (MAXLUC) = ', i4, & & /, 1x, '*** ATTEMPTED SIZE = ', i4, & & /, 1x, 70('*'))" CHARACTER(LEN=256), PARAMETER :: f9100 = "(/, 1x, 70('*'), & & /, 1x, '*** SUBROUTINE: ', a, & & /, 1x, '*** UNKNOWN LAND USE SOURCE AND MAX CATEGORIES', & & /, 1x, '*** LAND USE SOURCE = ', a, & & /, 1x, '*** NUMBER OF CATEGORIES = ', i4, & & /, 1x, 70('*'))" !------------------------------------------------------------------------------- ! Set up land-use classification-specific information. !------------------------------------------------------------------------------- IF ( nummetlu > SIZE(xluse,3) ) THEN WRITE (*,f9000) TRIM(pname), SIZE(xluse,3), nummetlu CALL graceful_stop (pname) ENDIF lumax = nummetlu IF ( ( met_lu_src(1:3) == "USG" ) .AND. ( nummetlu == 24 ) ) THEN xlusrc = "USGS24" ! accounts for lake category 28 DO i = 1, nummetlu xludesc(i) = TRIM(xlusrc) // ': ' // TRIM(lucatusgs24(i)) ENDDO ELSE IF ( ( met_lu_src(1:3) == "USG" ) .AND. ( nummetlu == 28 ) ) THEN xlusrc = "USGS28" DO i = 1, nummetlu xludesc(i) = TRIM(xlusrc) // ': ' // TRIM(lucatusgs28(i)) ENDDO ELSE IF ( ( met_lu_src(1:3) == "USG" ) .AND. ( nummetlu == 33 ) ) THEN xlusrc = "USGS33" DO i = 1, nummetlu xludesc(i) = TRIM(xlusrc) // ': ' // TRIM(lucatusgs33(i)) ENDDO ELSE IF ( ( met_lu_src(1:3) == "OLD" ) .AND. ( nummetlu == 13 ) ) THEN xlusrc = "MM513" DO i = 1, nummetlu xludesc(i) = TRIM(xlusrc) // ': ' // TRIM(lucatold(i)) ENDDO ELSE IF ( ( met_lu_src(1:3) == "MOD" ) .AND. ( nummetlu == 20 ) .OR. & ( met_lu_src(1:3) == "MOD" ) .AND. ( nummetlu == 21 ) .OR. & ( met_lu_src(1:3) == "MOD" ) .AND. ( nummetlu == 33 ) ) THEN xlusrc = "MODIS NOAH" ! accounts for lake category 21 DO i = 1, nummetlu xludesc(i) = TRIM(xlusrc) // ': ' // TRIM(lucatmod(i)) ENDDO ELSE IF ( ( met_lu_src(1:3) == "NLC" ) .AND. ( nummetlu == 50 ) ) THEN xlusrc = "NLCD50" DO i = 1, nummetlu xludesc(i) = TRIM(xlusrc) // ': ' // TRIM(lucatnlcd50(i)) ENDDO ELSE IF ( ( met_lu_src(1:3) == "NLC" ) .AND. ( nummetlu == 40 ) ) THEN xlusrc = "NLCD40" DO i = 1, nummetlu xludesc(i) = TRIM(xlusrc) // ': ' // TRIM(lucatnlcd40(i)) ENDDO ELSE IF ( ( ( met_lu_src(1:3) == "SiB" ) .OR. ( met_lu_src(1:3) == "SIB" ) ) & .AND. ( nummetlu == 16 ) ) THEN xlusrc = "SIB" DO i = 1, nummetlu xludesc(i) = TRIM(xlusrc) // ': ' // TRIM(lucatsib(i)) ENDDO ELSE WRITE (*,f9100) TRIM(pname), met_lu_src, nummetlu CALL graceful_stop (pname) ENDIF !------------------------------------------------------------------------------- ! Fill input land use from meteorological model into output arrays. !------------------------------------------------------------------------------- sc = x0 ec = x0 + ncols_x - 1 sr = y0 er = y0 + nrows_x - 1 IF ( iflufrc ) THEN xluse (:,:,1:lumax) = lufrac (sc:ec,sr:er,:) xdluse(:,:) = landuse(sc:ec,sr:er) IF ( iflu2wrfout ) THEN xlufrac2 (:,:,:) = lufrac2 (sc:ec,sr:er,1:nummosaic) xmoscatidx (:,:,:) = moscatidx(sc:ec,sr:er,1:nummosaic) ENDIF ELSE DO col = 1, ncols_x ii = x0 + col - 1 DO row = 1, nrows_x jj = y0 + row - 1 lu = landuse(ii,jj) xluse (col,row,:) = 0.0 xluse (col,row,lu) = 1.0 xdluse(col,row) = lu ENDDO ENDDO ! Adjust NLCD-MODIS (50-category and 40-category versions) ! for duplicate water and ice categories. IF ( TRIM(xlusrc) == "NLCD50" ) THEN ! NLCD50 ! Adjust NLCD50 (formerly NLCD-MODIS) to consolidate all water ! into single category. xluse(:,:, 1) = xluse(:,:,1) + xluse(:,:,31) + xluse(:,:,48) xluse(:,:,31) = 0.0 xluse(:,:,48) = 0.0 ! Adjust NLCD50 to consolidate all ice into single category. xluse(:,:, 2) = xluse(:,:,2) + xluse(:,:,46) xluse(:,:,46) = 0.0 DO col = 1, ncols_x DO row = 1, nrows_x ! Convert "water" to "open water". IF ( xdluse(col,row) == 31 ) THEN xdluse(col,row) = 1 ENDIF ! Convert "IGBP water" to "open water". IF ( xdluse(col,row) == 48 ) THEN xdluse(col,row) = 1 ENDIF ! Convert "Permanent Snow and Ice" to "Perennial Ice-Snow" IF ( xdluse(col,row) == 46 ) THEN xdluse(col,row) = 2 ENDIF ! If there was overlap in water categories, ensure dominant category ! is water if the sum is greater than 50% of the cell. IF ( xluse(col,row,1) > 0.50 ) THEN xdluse(col,row) = 1 ENDIF ! If there was overlap in ice categories, ensure dominant category ! is ice if the sum is greater than 50% of the cell. IF ( xluse(col,row,2) > 0.50 ) THEN xdluse(col,row) = 2 ENDIF ENDDO ENDDO ELSE IF ( TRIM(xlusrc) == "NLCD40" ) THEN ! NLCD40 ! Adjust NLCD40 to consolidate all water into single category. xluse(:,:,17) = xluse(:,:,17) + xluse(:,:,21) xluse(:,:,21) = 0.0 ! Adjust NLCD50 to consolidate all ice into single category. xluse(:,:,15) = xluse(:,:,15) + xluse(:,:,22) xluse(:,:,22) = 0.0 DO col = 1, ncols_x DO row = 1, nrows_x ! Convert "open water" to "IGBP water". IF ( xdluse(col,row) == 21 ) THEN xdluse(col,row) = 17 ENDIF ! Convert "Perennial Ice-Snow" to "Snow and Ice" IF ( xdluse(col,row) == 22 ) THEN xdluse(col,row) = 15 ENDIF ! If there was overlap in water categories, ensure dominant category ! is water if the sum is greater than 50% of the cell. IF ( xluse(col,row,17) > 0.50 ) THEN xdluse(col,row) = 17 ENDIF ! If there was overlap in ice categories, ensure dominant category ! is ice if the sum is greater than 50% of the cell. IF ( xluse(col,row,15) > 0.50 ) THEN xdluse(col,row) = 15 ENDIF ENDDO ENDDO ENDIF ! NLCD-MODIS ENDIF ! fractional land use !------------------------------------------------------------------------------- ! If lakes are defined in WRF land-use classification, convert lakes to ! generic water category here. !------------------------------------------------------------------------------- IF ( met_lu_lake > 0 ) THEN ! lakes in a separate land use index WHERE ( NINT(xdluse) == met_lu_lake ) xdluse = met_lu_water ENDWHERE xluse(:,:,met_lu_water) = xluse(:,:,met_lu_water) + xluse(:,:,met_lu_lake) ENDIF !------------------------------------------------------------------------------- ! Define land-water mask. !------------------------------------------------------------------------------- IF ( ( met_soil_lsm == 7 ) .AND. ( met_model == 2 ) ) THEN ! P-X and WRF xlwmask(:,:) = landmask(sc:ec,sr:er) ELSE ! LANDMASK is a dynamic, time-variant field in WRF for LSMs other than P-X, ! so reconstruct it as a static field using the dominant land-use category. WHERE ( NINT(xdluse) == met_lu_water ) ! water xlwmask = 0.0 ELSEWHERE ! land xlwmask = 1.0 END WHERE ENDIF !------------------------------------------------------------------------------- ! Fill percentage of urban area (PURB) based on amount of land in grid cell. ! When urban canopy model is used in WRF, use fraction of urban area in ! cell (FRC_URB) to fill PURB, if PRC_URB is available. !------------------------------------------------------------------------------- IF ( met_urban_phys >= 1 ) THEN sc = x0 ec = x0 + ncols_x - 1 sr = y0 er = y0 + nrows_x - 1 xpurb(:,:) = frc_urb(sc:ec,sr:er) * 100.0 ! [fraction -> percent] ELSE IF ( iflufrc ) THEN ! fractional land use available DO row = 1, nrows_x DO col = 1, ncols_x IF ( NINT(xdluse(col,row)) == met_lu_water ) THEN ! water is dominant xpurb(col,row) = 0.0 ELSE ! land is dominant over water in cell IF ( xluse(col,row,met_lu_water) < 1.0 ) THEN IF ( TRIM(xlusrc) == 'USGS33' ) THEN xpurb(col,row) = ( ( xluse(col,row,1) + xluse(col,row,31) + & xluse(col,row,32) + xluse(col,row,33) ) / & (1.0 - xluse(col,row,met_lu_water)) ) * 100.0 ELSE IF ( TRIM(xlusrc) == 'MODIS NOAH' ) THEN IF ( nummetlu == 33 ) THEN xpurb(col,row) = ( ( xluse(col,row,13) + xluse(col,row,31) + & xluse(col,row,32) + xluse(col,row,33) ) / & (1.0 - xluse(col,row,met_lu_water)) ) * 100.0 ELSE IF ( ( nummetlu == 20 ) .OR. ( nummetlu == 21 ) ) THEN xpurb(col,row) = ( xluse(col,row,13) / & (1.0 - xluse(col,row,met_lu_water)) ) * 100.0 ENDIF ELSE IF ( TRIM(xlusrc) == 'NLCD50' ) THEN xpurb(col,row) = ( ( xluse(col,row,3) * 0.10 + & xluse(col,row,4) * 0.35 + & xluse(col,row,5) * 0.65 + & xluse(col,row,6) * 0.90 + & xluse(col,row,44) ) / & (1.0 - xluse(col,row,met_lu_water)) ) * 100.0 ELSE IF ( TRIM(xlusrc) == 'NLCD40' ) THEN xpurb(col,row) = ( ( xluse(col,row,23) * 0.10 + & xluse(col,row,24) * 0.35 + & xluse(col,row,25) * 0.65 + & xluse(col,row,26) * 0.90 + & xluse(col,row,13) ) / & (1.0 - xluse(col,row,met_lu_water)) ) * 100.0 ELSE IF ( TRIM(xlusrc) == 'SIB' ) THEN xpurb(col,row) = 0.0 ! urban is not specified in SiB ELSE ! "OLD" from MM5 xpurb(col,row) = ( xluse(col,row,1) / & (1.0 - xluse(col,row,met_lu_water)) ) * 100.0 ENDIF ELSE xpurb(col,row) = 0.0 ENDIF ENDIF ENDDO ENDDO ENDIF END SUBROUTINE getluse ================================================ FILE: PREP/mcip/src/getmet.f90 ================================================ !------------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------------! SUBROUTINE getmet (mcip_now) !------------------------------------------------------------------------------- ! Name: Get Meteorology (from MM5) ! Purpose: Get input meteorology information from MM5v2 or MM5v3 files. ! Revised: 04 Feb 1997 Original version. (Y.-H. Li) ! 04 Mar 1997 Added include file 'LRADMDAT.EXT'. Replaced loop ! indices with METCOL, METROW, METLAY. (D. Byun) ! 29 May 1997 Modified SUBST include for beta version. (D. Byun) ! 05 Nov 1997 Added nonhydrostatic and hydrostatic output ! functions. (D. Byun) ! 04 Feb 1998 Changed include method for nonglobals. (D. Byun) ! 04 Mar 1998 Allow high resolution land use data. (R. Tang) ! 19 Sep 2001 Rewrote entire section of code in and called from this ! routine and organized it into logical subroutines. ! All code is now in free-form f90. This routine and ! others called within replace getmet_mm5.F. (T. Otte) ! 12 Jan 2005 Added option to call WRF input routine. (T. Otte) ! 19 Jun 2006 Updated error-handling if unknown meteorology model ! is encountered. (T. Otte) ! 09 Apr 2007 Changed routine to directly call RDMM5V3 rather than ! RDMM5 because MM5v2-formatted data are no longer ! suppported. (T. Otte) ! 29 Aug 2011 Improved error handling. (T. Otte) ! 07 Sep 2011 Updated disclaimer. (T. Otte) ! 14 Sep 2018 Removed support for MM5v3 input. (T. Spero) !------------------------------------------------------------------------------- USE metinfo, ONLY: met_model IMPLICIT NONE CHARACTER(LEN=24), INTENT(IN) :: mcip_now CHARACTER(LEN=16), PARAMETER :: pname = 'GETMET' !------------------------------------------------------------------------------- ! Error, warning, and informational messages. !------------------------------------------------------------------------------- CHARACTER(LEN=256), PARAMETER :: f9000 = "(/, 1x, 70('*'), & & /, 1x, '*** SUBROUTINE: ', a, & & /, 1x, '*** UNKNOWN INPUT MET MODEL SOURCE', & & /, 1x, '*** MUST BE WRF-ARW', & & /, 1x, '*** MET_MODEL = ', i4, & & /, 1x, 70('*'))" !------------------------------------------------------------------------------- ! Read meteorology information for this time period. !------------------------------------------------------------------------------- IF ( met_model == 2 ) THEN ! WRF-ARW CALL rdwrfem (mcip_now) ELSE WRITE (*,f9000) TRIM(pname), met_model CALL graceful_stop (pname) ENDIF END SUBROUTINE getmet ================================================ FILE: PREP/mcip/src/getpblht.f90 ================================================ !------------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------------! SUBROUTINE getpblht (c, r, wspd) !------------------------------------------------------------------------------- ! Name: Get PBL Height ! Purpose: Calculates PBL height from bulk Richardson number. ! Notes: This routine is used when PBL from input meteorology is 0.0. ! Bulk Richardson number calculation taken from Byun's pblpkg.F ! subroutine. PBL height algorithm from Alapaty's VMM for MM5. ! Revised: 19 Sep 2001 Original version. (T. Otte) ! 08 Jan 2002 Adjusted minimum PBL height to be height of lowest ! mid-layer rather than height of lowest full layer. ! (T. Otte) ! 12 Jul 2004 Added provision to specify PBL height if KTOP is 1. ! Changed local array allocation to occur only on ! initial call to subroutine to avoid memory ! fragmentation. (T. Otte) ! 09 Apr 2007 Added IMPLICIT NONE. Added explicit declarations for ! E_AERK, QSURF, and DTEMP. Modified calculations of ! DTMPV, DTEMP, and RIBK to remove dependencies on ! function CVMGZ. (T. Otte) ! 01 Sep 2011 Replaced statement functions with external routines. ! (T. Otte) ! 07 Sep 2011 Updated disclaimer. (T. Otte) !------------------------------------------------------------------------------- USE mcipparm USE const USE xvars IMPLICIT NONE REAL :: apbl INTEGER, INTENT(IN) :: c REAL :: densd REAL :: densw REAL :: dtemp REAL, PARAMETER :: dtempmax = 5.0 ! max sfc_T - air_T REAL, PARAMETER :: dtempmin = -3.0 ! min sfc_t - air_T REAL :: dtmpv REAL, EXTERNAL :: e_aerk REAL :: fract1 REAL :: fract2 INTEGER :: k INTEGER :: ktop REAL :: psurf REAL, EXTERNAL :: ptemp REAL :: qratio REAL :: qsurf INTEGER, INTENT(IN) :: r REAL :: rhumid REAL, SAVE, ALLOCATABLE :: ribk ( : ) REAL :: tsurf REAL :: vpress REAL :: vptemp REAL, SAVE, ALLOCATABLE :: vptempk ( : ) REAL :: vptsurf REAL :: vsat REAL, EXTERNAL :: vtemp REAL, INTENT(IN) :: wspd ( : ) REAL :: zpbl !------------------------------------------------------------------------------- ! Allocate necessary arrays. !------------------------------------------------------------------------------- IF ( .NOT. ALLOCATED ( ribk ) ) ALLOCATE ( ribk ( metlay ) ) IF ( .NOT. ALLOCATED ( vptempk ) ) ALLOCATE ( vptempk ( metlay ) ) !------------------------------------------------------------------------------- ! Compute difference of virtual temperature. Algorithm taken from Byun's ! pblpkg.F. !------------------------------------------------------------------------------- ! Saturation vapor pressure over water [mb] ! Estimating water vapor at surface with TSURF = 0.5*(TEMPM(1)+TEMPG) ! assuming it has the same relative humidity as the layer 1 air, ! but at the reference temperature vsat = e_aerk( xtempm(c,r,1) - stdtemp ) vpress = xdenswm(c,r,1) * rwvap * xtempm(c,r,1) rhumid = vpress / vsat psurf = xpresm(c,r,1) + grav*xdensam(c,r,1)*x3htm(c,r,1) ! [Pa] tsurf = 0.5 * ( xtempm(c,r,1) + xtempg(c,r) ) vsat = e_aerk( tsurf - stdtemp ) ! [Pa] vpress = vsat * rhumid densw = vpress / ( rwvap * tsurf ) densd = xdensaf(c,r,0) qsurf = densw / densd ! Virtual temperature of ground and air above ground vptsurf = vtemp( tsurf, qsurf ) vptsurf = ptemp( vptsurf, psurf ) qratio = xdenswm(c,r,1) / ( xdensam(c,r,1) - xdenswm(c,r,1) ) vptemp = vtemp( xtempm(c,r,1), qratio ) vptemp = ptemp( vptemp, xpresm(c,r,1) ) dtmpv = vptsurf - vptemp IF ( dtmpv < dtempmin ) dtmpv = dtempmin IF ( dtmpv > dtempmax ) dtmpv = dtempmax IF ( dtmpv == 0.0 ) THEN dtmpv = 1.0e-10 ENDIF !------------------------------------------------------------------------------- ! Calculate bulk Richardson number. Algorithm taken from Byun's pblpkg.F. !------------------------------------------------------------------------------- ribloop: DO k = 1, metlay vptempk(k) = vtemp( xtempm(c,r,k), qratio ) vptempk(k) = ptemp( vptempk(k), xpresm(c,r,k) ) dtemp = - ( dtmpv + vptempk(1) - vptempk(k) ) IF ( dtemp == 0.0 ) THEN dtemp = 1.0e-10 ENDIF ribk(k) = grav * x3htm(c,r,k) * dtemp / ( tsurf * wspd(k)**2 ) IF ( ribk(k) == 0.0 ) THEN ribk(k) = -1.0e-10 ENDIF IF ( ribk(k) >= 0.25 ) THEN ktop = k EXIT ribloop ENDIF ENDDO ribloop !------------------------------------------------------------------------------- ! Calculate PBL height. Algorithm adapted from Alapaty's VMM for Blackadar ! in MM5. !------------------------------------------------------------------------------- IF ( ktop /= 1 ) THEN fract1 = ( 0.25 - ribk(ktop-1) ) / ( ribk(ktop) - ribk(ktop-1) ) fract2 = 1.0 - fract1 apbl = x3htm(c,r,ktop) * fract1 zpbl = apbl + ( x3htm(c,r,ktop) * fract2 ) ELSE zpbl = x3htm(c,r,ktop) ENDIF IF ( zpbl < x3htm(c,r,1) ) THEN xpbl(c,r) = x3htm(c,r,1) ELSE xpbl(c,r) = zpbl ENDIF !------------------------------------------------------------------------------- ! Deallocate arrays. !------------------------------------------------------------------------------- ! DEALLOCATE ( ribk ) ! commented out to avoid memory fragmentation ! DEALLOCATE ( vptempk ) ! commented out to avoid memory fragmentation END SUBROUTINE getpblht ================================================ FILE: PREP/mcip/src/getpsih.f90 ================================================ !------------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------------! SUBROUTINE getpsih (z1, z2, ustar, amol, psih) !------------------------------------------------------------------------------- ! Name: Surface Layer ! Purpose: Compute PSIH using a mosaic USTAR to get aerodynamic resistance. ! Uses similarity based on Hogstrom (1988). ! Notes: Adapted from sfclayer.f90 from MCIPv4.4. ! Revised: 10 Feb 2018 Original version. (T. Spero) !------------------------------------------------------------------------------- USE const_pbl IMPLICIT NONE REAL :: alogz1z2 REAL, INTENT(IN) :: amol ! Monin-Obukhov length [m] REAL, INTENT(OUT) :: psih REAL :: psih0 REAL, INTENT(IN) :: ustar ! friction velocity [m/s] REAL :: x1 REAL :: x2 REAL, INTENT(IN) :: z1 ! height [m] REAL :: z1ol REAL, INTENT(IN) :: z2 ! height [m] REAL :: z2ol ! Compute psi functions from aerodynamic resistance. z1ol = z1 / amol z2ol = z2 / amol alogz1z2 = ALOG(z1/z2) IF ( z1ol >= 0.0 ) THEN IF ( z1ol > 1.0 ) THEN psih0 = 1.0 - betah - z1ol ELSE psih0 = - betah * z1ol ENDIF IF ( z2ol > 1.0 ) THEN psih = psih0 - (1.0 - betah - z2ol) ELSE psih = psih0 + betah * z2ol ENDIF ELSE psih = 2.0 * ALOG( (1.0 + SQRT(1.0 - gamah*z1ol)) / & (1.0 + SQRT(1.0 - gamah*z2ol)) ) ENDIF END SUBROUTINE getpsih ================================================ FILE: PREP/mcip/src/getsdt.f90 ================================================ !------------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------------! SUBROUTINE getsdt (hdate, sdate, stime) !------------------------------------------------------------------------------- ! Name: Get SDATE and STIME ! Purpose: Compute SDATE and STIME from MM5-type (and WRF-type) date. ! Revised: 10 Sep 2001 Original version. (T. Otte) ! 12 Feb 2010 Removed GMT from argument list and calculations. ! (T. Otte) ! 30 Aug 2011 Changed F77 character declarations to F90 standard. ! (T. Otte) ! 07 Sep 2011 Updated disclaimer. (T. Otte) !------------------------------------------------------------------------------- IMPLICIT NONE INTEGER :: dd CHARACTER(LEN=24), INTENT(IN) :: hdate ! YYYY_MO_DD-HH:MI:SS.SSSS INTEGER :: hh INTEGER :: jjj INTEGER, EXTERNAL :: julian INTEGER :: mi INTEGER :: mo INTEGER, INTENT(OUT) :: sdate ! YYYYJJJ INTEGER, INTENT(OUT) :: stime ! HHMISS INTEGER :: yyyy READ ( hdate(1:4), '(i4.4)' ) yyyy READ ( hdate(6:7), '(i2.2)' ) mo READ ( hdate(9:10), '(i2.2)' ) dd READ ( hdate(12:13), '(i2.2)' ) hh READ ( hdate(15:16), '(i2.2)' ) mi jjj = julian (yyyy, mo, dd) sdate = ( yyyy * 1000 ) + jjj stime = ( hh * 10000 ) + ( mi * 100 ) ! assume seconds are 0 END SUBROUTINE getsdt ================================================ FILE: PREP/mcip/src/graceful_stop.f90 ================================================ !------------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------------! SUBROUTINE graceful_stop (pname) !------------------------------------------------------------------------------- ! Name: Graceful Stop ! Purpose: Gracefully stop program and close I/O API files. ! Revised: 09 Jan 2002 Original version. (T. Otte) ! 30 Aug 2011 Changed F77 character declarations to F90 standard. ! (T. Otte) ! 07 Sep 2011 Updated disclaimer. (T. Otte) !------------------------------------------------------------------------------- USE date_time IMPLICIT NONE INTEGER, PARAMETER :: m3stat = 6247 ! MCIP error CHARACTER(LEN=16), INTENT(IN) :: pname CHARACTER(LEN=80) :: xmsg xmsg = 'ABNORMAL TERMINATION IN ' // TRIM(pname) CALL m3exit (pname, sdate, stime, xmsg, m3stat) END SUBROUTINE graceful_stop ================================================ FILE: PREP/mcip/src/gridout.f90 ================================================ !------------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------------! SUBROUTINE gridout (sdate, stime) !------------------------------------------------------------------------------- ! Name: GRID Output -- Create "grid" (or time-independent) output for CTM ! Purpose: Output time-independent fields. ! Revised: 18 Dec 2018 Original version in MCIPv5.0. Subsumes part of ! gridout.f90 from MCIPv4.5. (T. Spero) !------------------------------------------------------------------------------- USE mcipparm, ONLY: ioform IMPLICIT NONE INTEGER, INTENT(IN) :: sdate INTEGER, INTENT(IN) :: stime !------------------------------------------------------------------------------- ! Write time-independent output fields. !------------------------------------------------------------------------------- SELECT CASE ( ioform ) CASE ( 1 ) ! Models-3 I/O API CALL outgm3io (sdate, stime) END SELECT !------------------------------------------------------------------------------- ! Write GRIDDESC file. !------------------------------------------------------------------------------- CALL wrgdesc !------------------------------------------------------------------------------- ! Print sample output to log file. !------------------------------------------------------------------------------- CALL outglog END SUBROUTINE gridout ================================================ FILE: PREP/mcip/src/gridproc.f90 ================================================ !------------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------------! SUBROUTINE gridproc !------------------------------------------------------------------------------- ! Name: Grid Processing ! Purpose: Fill arrays for time-independent output fields. ! Revised: 14 Dec 2018 Initial version with code taken from gridout.f90 and ! lucro.f90. (T. Spero) ! 18 Jun 2019 Updated comments to add clarification for the ! sizing of the dot-point arrays. (T. Spero) !------------------------------------------------------------------------------- USE mcipparm USE xvars USE ctmvars IMPLICIT NONE INTEGER :: c INTEGER :: col INTEGER :: idx INTEGER :: l INTEGER :: lvl INTEGER :: r INTEGER :: row REAL :: xmapmin !------------------------------------------------------------------------------- ! Fill time-independent 2d fields at cell centers. !------------------------------------------------------------------------------- xmapmin = MINVAL(xmapc) ! XMAPMIN also used for XMAPD DO row = 1, nrows r = row + nthik DO col = 1, ncols c = col + nthik g_lat%fld(col,row) = xlatc(c,r) g_lon%fld(col,row) = xlonc(c,r) IF ( xmapmin < xmissing ) THEN g_msfx2%fld(col,row) = fillreal ELSE g_msfx2%fld(col,row) = xmapc2(c,r) ! already squared ENDIF g_ht%fld(col,row) = xtopo(c,r) g_dluse%fld(col,row) = xdluse(c,r) g_lwmask%fld(col,row) = xlwmask(c,r) IF ( iflufrc ) THEN g_purb%fld(col,row) = xpurb(c,r) ELSE IF ( ifrcurb ) THEN ! include PURB from urban canopy model g_purb%fld(col,row) = xpurb(c,r) ENDIF ENDDO ENDDO !------------------------------------------------------------------------------- ! Fill time-independent 3d fields (fractional land use) at cell centers. !------------------------------------------------------------------------------- IF ( iflufrc ) THEN ! fractional land use data are available DO row = 1, nrows r = row + nthik DO col = 1, ncols c = col + nthik DO lvl = 1, nummetlu g_lufrac%fld(col,row,lvl) = xluse(c,r,lvl) ENDDO ENDDO ENDDO ENDIF !------------------------------------------------------------------------------- ! Fill time-independent 2d fields for boundaries. !------------------------------------------------------------------------------- idx = 0 ! Southern boundary moving west to east from column 1 (in output grid) to ! column NCOLS+NTHIK. DO r = 1, nthik DO c = 1 + nthik, ncols_x idx = idx + 1 g_lat%bdy(idx) = xlatc(c,r) g_lon%bdy(idx) = xlonc(c,r) IF ( xmapmin < xmissing ) THEN g_msfx2%bdy(idx) = fillreal ELSE g_msfx2%bdy(idx) = xmapc2(c,r) ! already squared ENDIF g_ht%bdy(idx) = xtopo(c,r) g_dluse%bdy(idx) = xdluse(c,r) g_lwmask%bdy(idx) = xlwmask(c,r) IF ( iflufrc ) THEN g_purb%bdy(idx) = xpurb(c,r) ELSE IF ( ifrcurb ) THEN ! include PURB from urban canopy model g_purb%bdy(idx) = xpurb(c,r) ENDIF ENDDO ENDDO ! Eastern boundary moving south to north from row 1 (in output grid) to ! row NROWS+NTHIK. DO r = 1+nthik, nrows_x DO l = 1, nthik c = ncols_x - nthik + l idx = idx + 1 g_lat%bdy(idx) = xlatc(c,r) g_lon%bdy(idx) = xlonc(c,r) IF ( xmapmin < xmissing ) THEN g_msfx2%bdy(idx) = xmissing ELSE g_msfx2%bdy(idx) = xmapc2(c,r) ! already squared ENDIF g_ht%bdy(idx) = xtopo(c,r) g_dluse%bdy(idx) = xdluse(c,r) g_lwmask%bdy(idx) = xlwmask(c,r) IF ( iflufrc ) THEN g_purb%bdy(idx) = xpurb(c,r) ELSE IF ( ifrcurb ) THEN ! include PURB from urban canopy model g_purb%bdy(idx) = xpurb(c,r) ENDIF ENDDO ENDDO ! Northern boundary moving west to east from column 1-NTHIK (in output grid) ! to column NCOLS. DO l = 1, nthik r = nrows_x - nthik + l DO c = 1, ncols_x - nthik idx = idx + 1 g_lat%bdy(idx) = xlatc(c,r) g_lon%bdy(idx) = xlonc(c,r) IF ( xmapmin < xmissing ) THEN g_msfx2%bdy(idx) = fillreal ELSE g_msfx2%bdy(idx) = xmapc2(c,r) ! already squared ENDIF g_ht%bdy(idx) = xtopo(c,r) g_dluse%bdy(idx) = xdluse(c,r) g_lwmask%bdy(idx) = xlwmask(c,r) IF ( iflufrc ) THEN g_purb%bdy(idx) = xpurb(c,r) ELSE IF ( ifrcurb ) THEN ! include PURB from urban canopy model g_purb%bdy(idx) = xpurb(c,r) ENDIF ENDDO ENDDO ! Western boundary moving south to north from row 1-NTHIK (in output grid) ! to row NROWS. DO r = 1, nrows_x - nthik DO c = 1, nthik idx = idx + 1 g_lat%bdy(idx) = xlatc(c,r) g_lon%bdy(idx) = xlonc(c,r) IF ( xmapmin < xmissing ) THEN g_msfx2%bdy(idx) = fillreal ELSE g_msfx2%bdy(idx) = xmapc2(c,r) ! already squared ENDIF g_ht%bdy(idx) = xtopo(c,r) g_dluse%bdy(idx) = xdluse(c,r) g_lwmask%bdy(idx) = xlwmask(c,r) IF ( iflufrc ) THEN g_purb%bdy(idx) = xpurb(c,r) ELSE IF ( ifrcurb ) THEN ! include PURB from urban canopy model g_purb%bdy(idx) = xpurb(c,r) ENDIF ENDDO ENDDO !------------------------------------------------------------------------------- ! Fill time-independent 2d fields at cell corners and faces. ! ! These arrays are all set to the dot-point dimensions to accommodate the ! false dot points in the Arakawa-C staggered grid that are output in ! Models-3 I/O API "DOT" files. When the output is written in netCDF, the ! true dimensions of the Arakawa-C staggered fields are used. !------------------------------------------------------------------------------- xmapmin = MINVAL(xmapd) ! XMAPMIN also used for XMAPC DO row = 1, nrows+1 r = row + nthik DO col = 1, ncols+1 c = col + nthik g_latd%fld(col,row) = xlatd(c,r) g_lond%fld(col,row) = xlond(c,r) IF ( xmapmin < xmissing ) THEN g_msfd2%fld(col,row) = fillreal ELSE g_msfd2%fld(col,row) = xmapd(c,r)**2 ENDIF g_latu%fld(col,row) = xlatu(c,r) g_lonu%fld(col,row) = xlonu(c,r) IF ( xmapmin < xmissing ) THEN g_msfu2%fld(col,row) = fillreal ELSE g_msfu2%fld(col,row) = xmapu(c,r)**2 ENDIF g_latv%fld(col,row) = xlatv(c,r) g_lonv%fld(col,row) = xlonv(c,r) IF ( xmapmin < xmissing ) THEN g_msfv2%fld(col,row) = fillreal ELSE g_msfv2%fld(col,row) = xmapv(c,r)**2 ENDIF ENDDO ENDDO END SUBROUTINE gridproc ================================================ FILE: PREP/mcip/src/init_ctm.f90 ================================================ !------------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------------! SUBROUTINE init_ctm !------------------------------------------------------------------------------- ! Name: Initialize CTM data structures. ! Purpose: Initializes CTM data structures. ! Revised: 13 Dec 2018 Initial version. (T. Spero) ! 18 Jun 2019 Added new surface variables with PX LSM that can ! improve dust simulation in CCTM. Changed variable ! LUVCOUT to LUVBOUT to reflect that the default 3D wind ! components are on the Arakawa-C staggered grid, and ! the optional additional 3D winds are on the Arakawa-B ! staggered grid. Added optional variables from KF ! convective scheme with radiative feedback. (T. Spero) ! 08 Oct 2020 Updated description and units for potential vorticity ! to adhere to constraints on character field in ! I/O API. Note that units do not conform to MKS, but ! full explanation is given in the description field. ! (T. Spero) !------------------------------------------------------------------------------- USE mcipparm USE ctmvars IMPLICIT NONE !------------------------------------------------------------------------------- ! Initialize output dimensions. !------------------------------------------------------------------------------- nx = ncols ny = nrows nz = nlays nxp1 = nx + 1 nyp1 = ny + 1 nzp1 = nz + 1 nperim = nbndy nlucat = nummetlu nmos = nummosaic nsoi = metsoi !------------------------------------------------------------------------------- ! Time-independent 2d fields at cell centers. !------------------------------------------------------------------------------- g_lat%fld = fillreal g_lat%bdy = fillreal g_lat%fldname = 'LAT' g_lat%long_name = 'latitude at cell centers' g_lat%units = 'degrees_north' g_lat%dimnames(1) = 'nx' g_lat%dimnames(2) = 'ny' g_lat%istart(1) = 1 g_lat%istart(2) = 1 g_lat%iend(1) = nx g_lat%iend(2) = ny g_lat%dimnames_b(1) = 'nperim' g_lat%istart_b(1) = 1 g_lat%iend_b(1) = nperim g_lon%fld = fillreal g_lon%bdy = fillreal g_lon%fldname = 'LON' g_lon%long_name = 'longitude at cell centers' g_lon%units = 'degrees_east' g_lon%dimnames(1) = 'nx' g_lon%dimnames(2) = 'ny' g_lon%istart(1) = 1 g_lon%istart(2) = 1 g_lon%iend(1) = nx g_lon%iend(2) = ny g_lon%dimnames_b(1) = 'nperim' g_lon%istart_b(1) = 1 g_lon%iend_b(1) = nperim g_msfx2%fld = fillreal g_msfx2%bdy = fillreal g_msfx2%fldname = 'MSFX2' g_msfx2%long_name = 'map-scale factor squared' g_msfx2%units = 'm2 m-2' g_msfx2%dimnames(1) = 'nx' g_msfx2%dimnames(2) = 'ny' g_msfx2%istart(1) = 1 g_msfx2%istart(2) = 1 g_msfx2%iend(1) = nx g_msfx2%iend(2) = ny g_msfx2%dimnames_b(1) = 'nperim' g_msfx2%istart_b(1) = 1 g_msfx2%iend_b(1) = nperim g_ht%fld = fillreal g_ht%bdy = fillreal g_ht%fldname = 'HT' g_ht%long_name = 'terrain elevation' g_ht%units = 'm' g_ht%dimnames(1) = 'nx' g_ht%dimnames(2) = 'ny' g_ht%istart(1) = 1 g_ht%istart(2) = 1 g_ht%iend(1) = nx g_ht%iend(2) = ny g_ht%dimnames_b(1) = 'nperim' g_ht%istart_b(1) = 1 g_ht%iend_b(1) = nperim g_dluse%fld = fillreal g_dluse%bdy = fillreal g_dluse%fldname = 'DLUSE' g_dluse%long_name = 'dominant land use category' g_dluse%units = '1' g_dluse%dimnames(1) = 'nx' g_dluse%dimnames(2) = 'ny' g_dluse%istart(1) = 1 g_dluse%istart(2) = 1 g_dluse%iend(1) = nx g_dluse%iend(2) = ny g_dluse%dimnames_b(1) = 'nperim' g_dluse%istart_b(1) = 1 g_dluse%iend_b(1) = nperim g_lwmask%fld = fillreal g_lwmask%bdy = fillreal g_lwmask%fldname = 'LWMASK' g_lwmask%long_name = 'land-water mask (1=land, 0=water)' g_lwmask%units = '1' g_lwmask%dimnames(1) = 'nx' g_lwmask%dimnames(2) = 'ny' g_lwmask%istart(1) = 1 g_lwmask%istart(2) = 1 g_lwmask%iend(1) = nx g_lwmask%iend(2) = ny g_lwmask%dimnames_b(1) = 'nperim' g_lwmask%istart_b(1) = 1 g_lwmask%iend_b(1) = nperim IF ( iflufrc ) THEN g_purb%fld = fillreal g_purb%bdy = fillreal g_purb%fldname = 'PURB' g_purb%long_name = 'urban percent of cell based on land' g_purb%units = 'percent' g_purb%dimnames(1) = 'nx' g_purb%dimnames(2) = 'ny' g_purb%istart(1) = 1 g_purb%istart(2) = 1 g_purb%iend(1) = nx g_purb%iend(2) = ny g_purb%dimnames_b(1) = 'nperim' g_purb%istart_b(1) = 1 g_purb%iend_b(1) = nperim ENDIF !------------------------------------------------------------------------------- ! Time-independent 2d fields at cell corners and cell faces. !------------------------------------------------------------------------------- g_latd%fld = fillreal g_latd%fldname = 'LATD' g_latd%long_name = 'latitude at cell corners' g_latd%units = 'degrees_north' g_latd%dimnames(1) = 'nxp1' g_latd%dimnames(2) = 'nyp1' g_latd%istart(1) = 1 g_latd%istart(2) = 1 g_latd%iend(1) = nxp1 g_latd%iend(2) = nyp1 g_lond%fld = fillreal g_lond%fldname = 'LOND' g_lond%long_name = 'longitude at cell corners' g_lond%units = 'degrees_east' g_lond%dimnames(1) = 'nxp1' g_lond%dimnames(2) = 'nyp1' g_lond%istart(1) = 1 g_lond%istart(2) = 1 g_lond%iend(1) = nxp1 g_lond%iend(2) = nyp1 g_msfd2%fld = fillreal g_msfd2%fldname = 'MSFD2' g_msfd2%long_name = 'squared map-scale factor at cell corners' g_msfd2%units = 'm2 m-2' g_msfd2%dimnames(1) = 'nxp1' g_msfd2%dimnames(2) = 'nyp1' g_msfd2%istart(1) = 1 g_msfd2%istart(2) = 1 g_msfd2%iend(1) = nxp1 g_msfd2%iend(2) = nyp1 g_latu%fld = fillreal g_latu%fldname = 'LATU' g_latu%long_name = 'latitude at cell U faces' g_latu%units = 'degrees_north' g_latu%dimnames(1) = 'nxp1' IF ( ioform == 1 ) THEN ! M3IO -- keep false dot points g_latu%dimnames(2) = 'nyp1' ELSE ! preserve Arakawa-C staggering g_latu%dimnames(2) = 'ny' ENDIF g_latu%istart(1) = 1 g_latu%istart(2) = 1 g_latu%iend(1) = nxp1 IF ( ioform == 1 ) THEN ! M3IO -- keep false dot points g_latu%iend(2) = nyp1 ELSE ! preserve Arakawa-C staggering g_latu%iend(2) = ny ENDIF g_lonu%fld = fillreal g_lonu%fldname = 'LONU' g_lonu%long_name = 'longitude at cell U faces' g_lonu%units = 'degrees_east' g_lonu%dimnames(1) = 'nxp1' IF ( ioform == 1 ) THEN ! M3IO -- keep false dot points g_lonu%dimnames(2) = 'nyp1' ELSE ! preserve Arakawa-C staggering g_lonu%dimnames(2) = 'ny' ENDIF g_lonu%istart(1) = 1 g_lonu%istart(2) = 1 g_lonu%iend(1) = nxp1 IF ( ioform == 1 ) THEN ! M3IO -- keep false dot points g_lonu%iend(2) = nyp1 ELSE ! preserve Arakawa-C staggering g_lonu%iend(2) = ny ENDIF g_msfu2%fld = fillreal g_msfu2%fldname = 'MSFU2' g_msfu2%long_name = 'squared map-scale factor at cell U faces' g_msfu2%units = 'm2 m-2' g_msfu2%dimnames(1) = 'nxp1' IF ( ioform == 1 ) THEN ! M3IO -- keep false dot points g_msfu2%dimnames(2) = 'nyp1' ELSE ! preserve Arakawa-C staggering g_msfu2%dimnames(2) = 'ny' ENDIF g_msfu2%istart(1) = 1 g_msfu2%istart(2) = 1 g_msfu2%iend(1) = nxp1 IF ( ioform == 1 ) THEN ! M3IO -- keep false dot points g_msfu2%iend(2) = nyp1 ELSE ! preserve Arakawa-C staggering g_msfu2%iend(2) = ny ENDIF g_latv%fld = fillreal g_latv%fldname = 'LATV' g_latv%long_name = 'latitude at cell V faces' g_latv%units = 'degrees_north' IF ( ioform == 1 ) THEN ! M3IO -- keep false dot points g_latv%dimnames(1) = 'nxp1' ELSE ! preserve Arakawa-C staggering g_latv%dimnames(1) = 'nx' ENDIF g_latv%dimnames(2) = 'nyp1' g_latv%istart(1) = 1 g_latv%istart(2) = 1 IF ( ioform == 1 ) THEN ! M3IO -- keep false dot points g_latv%iend(1) = nxp1 ELSE ! preserve Arakawa-C staggering g_latv%iend(1) = nx ENDIF g_latv%iend(2) = nyp1 g_lonv%fld = fillreal g_lonv%fldname = 'LONV' g_lonv%long_name = 'longitude at cell V faces' g_lonv%units = 'degrees_east' IF ( ioform == 1 ) THEN ! M3IO -- keep false dot points g_lonv%dimnames(1) = 'nxp1' ELSE ! preserve Arakawa-C staggering g_lonv%dimnames(1) = 'nx' ENDIF g_lonv%dimnames(2) = 'nyp1' g_lonv%istart(1) = 1 g_lonv%istart(2) = 1 IF ( ioform == 1 ) THEN ! M3IO -- keep false dot points g_lonv%iend(1) = nxp1 ELSE ! preserve Arakawa-C staggering g_lonv%iend(1) = nx ENDIF g_lonv%iend(2) = nyp1 g_msfv2%fld = fillreal g_msfv2%fldname = 'MSFV2' g_msfv2%long_name = 'squared map-scale factor at cell V faces' g_msfv2%units = 'm2 m-2' IF ( ioform == 1 ) THEN ! M3IO -- keep false dot points g_msfv2%dimnames(1) = 'nxp1' ELSE ! preserve Arakawa-C staggering g_msfv2%dimnames(1) = 'nx' ENDIF g_msfv2%dimnames(2) = 'nyp1' g_msfv2%istart(1) = 1 g_msfv2%istart(2) = 1 IF ( ioform == 1 ) THEN ! M3IO -- keep false dot points g_msfv2%iend(1) = nxp1 ELSE ! preserve Arakawa-C staggering g_msfv2%iend(1) = nx ENDIF g_msfv2%iend(2) = nyp1 !------------------------------------------------------------------------------- ! Time-independent 3d fields (fractional land use) at cell centers. !------------------------------------------------------------------------------- IF ( iflufrc ) THEN g_lufrac%fld = fillreal g_lufrac%fldname = 'LUFRAC' g_lufrac%long_name = 'fractional land use' g_lufrac%units = 'percent' g_lufrac%dimnames(1) = 'nx' g_lufrac%dimnames(2) = 'ny' g_lufrac%dimnames(3) = 'nlucat' g_lufrac%istart(1) = 1 g_lufrac%istart(2) = 1 g_lufrac%istart(3) = 1 g_lufrac%iend(1) = nx g_lufrac%iend(2) = ny g_lufrac%iend(3) = nummetlu ENDIF !------------------------------------------------------------------------------- ! Time-varying 2d fields at cell centers. !------------------------------------------------------------------------------- c_prsfc%fld = fillreal c_prsfc%fldname = 'PRSFC' c_prsfc%long_name = 'surface pressure' c_prsfc%units = 'Pa' c_prsfc%dimnames(1) = 'nx' c_prsfc%dimnames(2) = 'ny' c_prsfc%istart(1) = 1 c_prsfc%istart(2) = 1 c_prsfc%iend(1) = nx c_prsfc%iend(2) = ny c_ustar%fld = fillreal c_ustar%fldname = 'USTAR' c_ustar%long_name = 'cell averaged friction velocity' c_ustar%units = 'm s-1' c_ustar%dimnames(1) = 'nx' c_ustar%dimnames(2) = 'ny' c_ustar%istart(1) = 1 c_ustar%istart(2) = 1 c_ustar%iend(1) = nx c_ustar%iend(2) = ny c_wstar%fld = fillreal c_wstar%fldname = 'WSTAR' c_wstar%long_name = 'convective velocity scale' c_wstar%units = 'm s-1' c_wstar%dimnames(1) = 'nx' c_wstar%dimnames(2) = 'ny' c_wstar%istart(1) = 1 c_wstar%istart(2) = 1 c_wstar%iend(1) = nx c_wstar%iend(2) = ny c_pbl%fld = fillreal c_pbl%fldname = 'PBL' c_pbl%long_name = 'PBL height' c_pbl%units = 'm' c_pbl%dimnames(1) = 'nx' c_pbl%dimnames(2) = 'ny' c_pbl%istart(1) = 1 c_pbl%istart(2) = 1 c_pbl%iend(1) = nx c_pbl%iend(2) = ny c_zruf%fld = fillreal c_zruf%fldname = 'ZRUF' c_zruf%long_name = 'surface roughness length' c_zruf%units = 'm' c_zruf%dimnames(1) = 'nx' c_zruf%dimnames(2) = 'ny' c_zruf%istart(1) = 1 c_zruf%istart(2) = 1 c_zruf%iend(1) = nx c_zruf%iend(2) = ny c_moli%fld = fillreal c_moli%fldname = 'MOLI' c_moli%long_name = 'inverse of Monin-Obukhov length' c_moli%units = 'm-1' c_moli%dimnames(1) = 'nx' c_moli%dimnames(2) = 'ny' c_moli%istart(1) = 1 c_moli%istart(2) = 1 c_moli%iend(1) = nx c_moli%iend(2) = ny c_hfx%fld = fillreal c_hfx%fldname = 'HFX' c_hfx%long_name = 'sensible heat flux' c_hfx%units = 'W m-2' c_hfx%dimnames(1) = 'nx' c_hfx%dimnames(2) = 'ny' c_hfx%istart(1) = 1 c_hfx%istart(2) = 1 c_hfx%iend(1) = nx c_hfx%iend(2) = ny c_lh%fld = fillreal c_lh%fldname = 'LH' c_lh%long_name = 'latent heat flux' c_lh%units = 'W m-2' c_lh%dimnames(1) = 'nx' c_lh%dimnames(2) = 'ny' c_lh%istart(1) = 1 c_lh%istart(2) = 1 c_lh%iend(1) = nx c_lh%iend(2) = ny c_radyni%fld = fillreal c_radyni%fldname = 'RADYNI' c_radyni%long_name = 'inverse of aerodynamic resistance' c_radyni%units = 'm s-1' c_radyni%dimnames(1) = 'nx' c_radyni%dimnames(2) = 'ny' c_radyni%istart(1) = 1 c_radyni%istart(2) = 1 c_radyni%iend(1) = nx c_radyni%iend(2) = ny c_rstomi%fld = fillreal c_rstomi%fldname = 'RSTOMI' c_rstomi%long_name = 'inverse of stomatic resistance' c_rstomi%units = 'm s-1' c_rstomi%dimnames(1) = 'nx' c_rstomi%dimnames(2) = 'ny' c_rstomi%istart(1) = 1 c_rstomi%istart(2) = 1 c_rstomi%iend(1) = nx c_rstomi%iend(2) = ny c_tempg%fld = fillreal c_tempg%fldname = 'TEMPG' c_tempg%long_name = 'skin temperature at ground' c_tempg%units = 'K' c_tempg%dimnames(1) = 'nx' c_tempg%dimnames(2) = 'ny' c_tempg%istart(1) = 1 c_tempg%istart(2) = 1 c_tempg%iend(1) = nx c_tempg%iend(2) = ny c_temp2%fld = fillreal c_temp2%fldname = 'TEMP2' c_temp2%long_name = 'temperature at 2 m' c_temp2%units = 'K' c_temp2%dimnames(1) = 'nx' c_temp2%dimnames(2) = 'ny' c_temp2%istart(1) = 1 c_temp2%istart(2) = 1 c_temp2%iend(1) = nx c_temp2%iend(2) = ny c_q2%fld = fillreal c_q2%fldname = 'Q2' c_q2%long_name = 'mixing ratio at 2 m' c_q2%units = 'kg kg-1' c_q2%dimnames(1) = 'nx' c_q2%dimnames(2) = 'ny' c_q2%istart(1) = 1 c_q2%istart(2) = 1 c_q2%iend(1) = nx c_q2%iend(2) = ny c_wspd10%fld = fillreal c_wspd10%fldname = 'WSPD10' c_wspd10%long_name = 'wind speed at 10 m' c_wspd10%units = 'm s-1' c_wspd10%dimnames(1) = 'nx' c_wspd10%dimnames(2) = 'ny' c_wspd10%istart(1) = 1 c_wspd10%istart(2) = 1 c_wspd10%iend(1) = nx c_wspd10%iend(2) = ny c_wdir10%fld = fillreal c_wdir10%fldname = 'WDIR10' c_wdir10%long_name = 'wind direction at 10 m' c_wdir10%units = 'degree' c_wdir10%dimnames(1) = 'nx' c_wdir10%dimnames(2) = 'ny' c_wdir10%istart(1) = 1 c_wdir10%istart(2) = 1 c_wdir10%iend(1) = nx c_wdir10%iend(2) = ny c_glw%fld = fillreal c_glw%fldname = 'GLW' c_glw%long_name = 'longwave radiation at ground' c_glw%units = 'W m-2' c_glw%dimnames(1) = 'nx' c_glw%dimnames(2) = 'ny' c_glw%istart(1) = 1 c_glw%istart(2) = 1 c_glw%iend(1) = nx c_glw%iend(2) = ny c_gsw%fld = fillreal c_gsw%fldname = 'GSW' c_gsw%long_name = 'solar radiation absorbed at ground' c_gsw%units = 'W m-2' c_gsw%dimnames(1) = 'nx' c_gsw%dimnames(2) = 'ny' c_gsw%istart(1) = 1 c_gsw%istart(2) = 1 c_gsw%iend(1) = nx c_gsw%iend(2) = ny c_rgrnd%fld = fillreal c_rgrnd%fldname = 'RGRND' c_rgrnd%long_name = 'solar radiation reaching ground' c_rgrnd%units = 'W m-2' c_rgrnd%dimnames(1) = 'nx' c_rgrnd%dimnames(2) = 'ny' c_rgrnd%istart(1) = 1 c_rgrnd%istart(2) = 1 c_rgrnd%iend(1) = nx c_rgrnd%iend(2) = ny c_rn%fld = fillreal c_rn%fldname = 'RN' c_rn%long_name = 'nonconvective precipitation in interval' c_rn%units = 'cm' c_rn%dimnames(1) = 'nx' c_rn%dimnames(2) = 'ny' c_rn%istart(1) = 1 c_rn%istart(2) = 1 c_rn%iend(1) = nx c_rn%iend(2) = ny c_rc%fld = fillreal c_rc%fldname = 'RC' c_rc%long_name = 'convective precipitation in interval' c_rc%units = 'cm' c_rc%dimnames(1) = 'nx' c_rc%dimnames(2) = 'ny' c_rc%istart(1) = 1 c_rc%istart(2) = 1 c_rc%iend(1) = nx c_rc%iend(2) = ny c_cfrac%fld = fillreal c_cfrac%fldname = 'CFRAC' c_cfrac%long_name = 'total cloud fraction' c_cfrac%units = '1' c_cfrac%dimnames(1) = 'nx' c_cfrac%dimnames(2) = 'ny' c_cfrac%istart(1) = 1 c_cfrac%istart(2) = 1 c_cfrac%iend(1) = nx c_cfrac%iend(2) = ny c_cldt%fld = fillreal c_cldt%fldname = 'CLDT' c_cldt%long_name = 'cloud top layer height' c_cldt%units = 'm' c_cldt%dimnames(1) = 'nx' c_cldt%dimnames(2) = 'ny' c_cldt%istart(1) = 1 c_cldt%istart(2) = 1 c_cldt%iend(1) = nx c_cldt%iend(2) = ny c_cldb%fld = fillreal c_cldb%fldname = 'CLDB' c_cldb%long_name = 'cloud bottom layer height' c_cldb%units = 'm' c_cldb%dimnames(1) = 'nx' c_cldb%dimnames(2) = 'ny' c_cldb%istart(1) = 1 c_cldb%istart(2) = 1 c_cldb%iend(1) = nx c_cldb%iend(2) = ny c_wbar%fld = fillreal c_wbar%fldname = 'WBAR' c_wbar%long_name = 'average liquid water content of cloud' c_wbar%units = 'g m-3' c_wbar%dimnames(1) = 'nx' c_wbar%dimnames(2) = 'ny' c_wbar%istart(1) = 1 c_wbar%istart(2) = 1 c_wbar%iend(1) = nx c_wbar%iend(2) = ny c_snocov%fld = fillreal c_snocov%fldname = 'SNOCOV' c_snocov%long_name = 'snow cover' c_snocov%units = '1' c_snocov%dimnames(1) = 'nx' c_snocov%dimnames(2) = 'ny' c_snocov%istart(1) = 1 c_snocov%istart(2) = 1 c_snocov%iend(1) = nx c_snocov%iend(2) = ny c_veg%fld = fillreal c_veg%fldname = 'VEG' c_veg%long_name = 'vegetation coverage' c_veg%units = '1' c_veg%dimnames(1) = 'nx' c_veg%dimnames(2) = 'ny' c_veg%istart(1) = 1 c_veg%istart(2) = 1 c_veg%iend(1) = nx c_veg%iend(2) = ny c_lai%fld = fillreal c_lai%fldname = 'LAI' IF ( ifpxwrf41 ) THEN c_lai%long_name = 'leaf-area index from PX LSM' ELSE c_lai%long_name = 'leaf-area index' ENDIF c_lai%units = 'm2 m-2' c_lai%dimnames(1) = 'nx' c_lai%dimnames(2) = 'ny' c_lai%istart(1) = 1 c_lai%istart(2) = 1 c_lai%iend(1) = nx c_lai%iend(2) = ny c_seaice%fld = fillreal c_seaice%fldname = 'SEAICE' c_seaice%long_name = 'sea ice' c_seaice%units = '1' c_seaice%dimnames(1) = 'nx' c_seaice%dimnames(2) = 'ny' c_seaice%istart(1) = 1 c_seaice%istart(2) = 1 c_seaice%iend(1) = nx c_seaice%iend(2) = ny c_snowh%fld = fillreal c_snowh%fldname = 'SNOWH' c_snowh%long_name = 'snow height' c_snowh%units = 'm' c_snowh%dimnames(1) = 'nx' c_snowh%dimnames(2) = 'ny' c_snowh%istart(1) = 1 c_snowh%istart(2) = 1 c_snowh%iend(1) = nx c_snowh%iend(2) = ny IF ( ifwr ) THEN c_wr%fld = fillreal c_wr%fldname = 'WR' c_wr%long_name = 'canopy moisture content' c_wr%units = 'm' c_wr%dimnames(1) = 'nx' c_wr%dimnames(2) = 'ny' c_wr%istart(1) = 1 c_wr%istart(2) = 1 c_wr%iend(1) = nx c_wr%iend(2) = ny ENDIF IF ( ifsoil ) THEN c_soim1%fld = fillreal c_soim1%fldname = 'SOIM1' c_soim1%long_name = 'volumetric soil moisture in top cm' c_soim1%units = 'm3 m-3' c_soim1%dimnames(1) = 'nx' c_soim1%dimnames(2) = 'ny' c_soim1%istart(1) = 1 c_soim1%istart(2) = 1 c_soim1%iend(1) = nx c_soim1%iend(2) = ny c_soim2%fld = fillreal c_soim2%fldname = 'SOIM2' c_soim2%long_name = 'volumetric soil moisture in top m' c_soim2%units = 'm3 m-3' c_soim2%dimnames(1) = 'nx' c_soim2%dimnames(2) = 'ny' c_soim2%istart(1) = 1 c_soim2%istart(2) = 1 c_soim2%iend(1) = nx c_soim2%iend(2) = ny c_soit1%fld = fillreal c_soit1%fldname = 'SOIT1' c_soit1%long_name = 'soil temperature in top cm' c_soit1%units = 'K' c_soit1%dimnames(1) = 'nx' c_soit1%dimnames(2) = 'ny' c_soit1%istart(1) = 1 c_soit1%istart(2) = 1 c_soit1%iend(1) = nx c_soit1%iend(2) = ny c_soit2%fld = fillreal c_soit2%fldname = 'SOIT2' c_soit2%long_name = 'soil temperature in top m' c_soit2%units = 'K' c_soit2%dimnames(1) = 'nx' c_soit2%dimnames(2) = 'ny' c_soit2%istart(1) = 1 c_soit2%istart(2) = 1 c_soit2%iend(1) = nx c_soit2%iend(2) = ny c_sltyp%fld = fillreal c_sltyp%fldname = 'SLTYP' c_sltyp%long_name = 'soil texture type by USDA category' c_sltyp%units = '1' c_sltyp%dimnames(1) = 'nx' c_sltyp%dimnames(2) = 'ny' c_sltyp%istart(1) = 1 c_sltyp%istart(2) = 1 c_sltyp%iend(1) = nx c_sltyp%iend(2) = ny ENDIF ! ifsoil IF ( ifpxwrf41 ) THEN c_wsat_px%fld = fillreal c_wsat_px%fldname = 'WSAT_PX' c_wsat_px%long_name = 'soil saturation from PX LSM' c_wsat_px%units = 'm3 m-3' c_wsat_px%dimnames(1) = 'nx' c_wsat_px%dimnames(2) = 'ny' c_wsat_px%istart(1) = 1 c_wsat_px%istart(2) = 1 c_wsat_px%iend(1) = nx c_wsat_px%iend(2) = ny c_wfc_px%fld = fillreal c_wfc_px%fldname = 'WFC_PX' c_wfc_px%long_name = 'soil field capacity from PX LSM' c_wfc_px%units = 'm3 m-3' c_wfc_px%dimnames(1) = 'nx' c_wfc_px%dimnames(2) = 'ny' c_wfc_px%istart(1) = 1 c_wfc_px%istart(2) = 1 c_wfc_px%iend(1) = nx c_wfc_px%iend(2) = ny c_wwlt_px%fld = fillreal c_wwlt_px%fldname = 'WWLT_PX' c_wwlt_px%long_name = 'soil wilting point from PX LSM' c_wwlt_px%units = 'm3 m-3' c_wwlt_px%dimnames(1) = 'nx' c_wwlt_px%dimnames(2) = 'ny' c_wwlt_px%istart(1) = 1 c_wwlt_px%istart(2) = 1 c_wwlt_px%iend(1) = nx c_wwlt_px%iend(2) = ny c_csand_px%fld = fillreal c_csand_px%fldname = 'CSAND_PX' c_csand_px%long_name = 'coarse sand from PX LSM' c_csand_px%units = '1' c_csand_px%dimnames(1) = 'nx' c_csand_px%dimnames(2) = 'ny' c_csand_px%istart(1) = 1 c_csand_px%istart(2) = 1 c_csand_px%iend(1) = nx c_csand_px%iend(2) = ny c_fmsand_px%fld = fillreal c_fmsand_px%fldname = 'FMSAND_PX' c_fmsand_px%long_name = 'fine-medium sand from PX LSM' c_fmsand_px%units = '1' c_fmsand_px%dimnames(1) = 'nx' c_fmsand_px%dimnames(2) = 'ny' c_fmsand_px%istart(1) = 1 c_fmsand_px%istart(2) = 1 c_fmsand_px%iend(1) = nx c_fmsand_px%iend(2) = ny c_clay_px%fld = fillreal c_clay_px%fldname = 'CLAY_PX' c_clay_px%long_name = 'clay from PX LSM' c_clay_px%units = '1' c_clay_px%dimnames(1) = 'nx' c_clay_px%dimnames(2) = 'ny' c_clay_px%istart(1) = 1 c_clay_px%istart(2) = 1 c_clay_px%iend(1) = nx c_clay_px%iend(2) = ny ENDIF ! ifpxwrf41 !------------------------------------------------------------------------------- ! Time-varying 3d fields at cell centers. !------------------------------------------------------------------------------- c_jacobf%fld = fillreal c_jacobf%bdy = fillreal c_jacobf%fldname = 'JACOBF' c_jacobf%long_name = 'Jacobian at layer face scaled by MSFX2' c_jacobf%units = 'm' c_jacobf%dimnames(1) = 'nx' c_jacobf%dimnames(2) = 'ny' c_jacobf%dimnames(3) = 'nz' c_jacobf%istart(1) = 1 c_jacobf%istart(2) = 1 c_jacobf%istart(3) = 1 c_jacobf%iend(1) = nx c_jacobf%iend(2) = ny c_jacobf%iend(3) = nz c_jacobf%dimnames_b(1) = 'nperim' c_jacobf%dimnames_b(2) = 'nz' c_jacobf%istart_b(1) = 1 c_jacobf%istart_b(2) = 1 c_jacobf%iend_b(1) = nperim c_jacobf%iend_b(2) = nz c_jacobm%fld = fillreal c_jacobm%bdy = fillreal c_jacobm%fldname = 'JACOBM' c_jacobm%long_name = 'Jacobian at layer middle scaled by MSFX2' c_jacobm%units = 'm' c_jacobm%dimnames(1) = 'nx' c_jacobm%dimnames(2) = 'ny' c_jacobm%dimnames(3) = 'nz' c_jacobm%istart(1) = 1 c_jacobm%istart(2) = 1 c_jacobm%istart(3) = 1 c_jacobm%iend(1) = nx c_jacobm%iend(2) = ny c_jacobm%iend(3) = nz c_jacobm%dimnames_b(1) = 'nperim' c_jacobm%dimnames_b(2) = 'nz' c_jacobm%istart_b(1) = 1 c_jacobm%istart_b(2) = 1 c_jacobm%iend_b(1) = nperim c_jacobm%iend_b(2) = nz c_densa_j%fld = fillreal c_densa_j%bdy = fillreal c_densa_j%fldname = 'DENSA_J' c_densa_j%long_name = 'J-weighted air density (dry) scaled by MSFX2' c_densa_j%units = 'kg m-2' c_densa_j%dimnames(1) = 'nx' c_densa_j%dimnames(2) = 'ny' c_densa_j%dimnames(3) = 'nz' c_densa_j%istart(1) = 1 c_densa_j%istart(2) = 1 c_densa_j%istart(3) = 1 c_densa_j%iend(1) = nx c_densa_j%iend(2) = ny c_densa_j%iend(3) = nz c_densa_j%dimnames_b(1) = 'nperim' c_densa_j%dimnames_b(2) = 'nz' c_densa_j%istart_b(1) = 1 c_densa_j%istart_b(2) = 1 c_densa_j%iend_b(1) = nperim c_densa_j%iend_b(2) = nz c_what_jd%fld = fillreal c_what_jd%bdy = fillreal c_what_jd%fldname = 'WHAT_JD' c_what_jd%long_name = 'J- and density weighted vert contravariant-W' c_what_jd%units = 'kg m-1 s-1' c_what_jd%dimnames(1) = 'nx' c_what_jd%dimnames(2) = 'ny' c_what_jd%dimnames(3) = 'nz' c_what_jd%istart(1) = 1 c_what_jd%istart(2) = 1 c_what_jd%istart(3) = 1 c_what_jd%iend(1) = nx c_what_jd%iend(2) = ny c_what_jd%iend(3) = nz c_what_jd%dimnames_b(1) = 'nperim' c_what_jd%dimnames_b(2) = 'nz' c_what_jd%istart_b(1) = 1 c_what_jd%istart_b(2) = 1 c_what_jd%iend_b(1) = nperim c_what_jd%iend_b(2) = nz c_ta%fld = fillreal c_ta%bdy = fillreal c_ta%fldname = 'TA' c_ta%long_name = 'air temperature' c_ta%units = 'K' c_ta%dimnames(1) = 'nx' c_ta%dimnames(2) = 'ny' c_ta%dimnames(3) = 'nz' c_ta%istart(1) = 1 c_ta%istart(2) = 1 c_ta%istart(3) = 1 c_ta%iend(1) = nx c_ta%iend(2) = ny c_ta%iend(3) = nz c_ta%dimnames_b(1) = 'nperim' c_ta%dimnames_b(2) = 'nz' c_ta%istart_b(1) = 1 c_ta%istart_b(2) = 1 c_ta%iend_b(1) = nperim c_ta%iend_b(2) = nz c_qv%fld = fillreal c_qv%bdy = fillreal c_qv%fldname = 'QV' c_qv%long_name = 'water vapor mixing ratio' c_qv%units = 'kg kg-1' c_qv%dimnames(1) = 'nx' c_qv%dimnames(2) = 'ny' c_qv%dimnames(3) = 'nz' c_qv%istart(1) = 1 c_qv%istart(2) = 1 c_qv%istart(3) = 1 c_qv%iend(1) = nx c_qv%iend(2) = ny c_qv%iend(3) = nz c_qv%dimnames_b(1) = 'nperim' c_qv%dimnames_b(2) = 'nz' c_qv%istart_b(1) = 1 c_qv%istart_b(2) = 1 c_qv%iend_b(1) = nperim c_qv%iend_b(2) = nz c_pres%fld = fillreal c_pres%bdy = fillreal c_pres%fldname = 'PRES' c_pres%long_name = 'pressure' c_pres%units = 'Pa' c_pres%dimnames(1) = 'nx' c_pres%dimnames(2) = 'ny' c_pres%dimnames(3) = 'nz' c_pres%istart(1) = 1 c_pres%istart(2) = 1 c_pres%istart(3) = 1 c_pres%iend(1) = nx c_pres%iend(2) = ny c_pres%iend(3) = nz c_pres%dimnames_b(1) = 'nperim' c_pres%dimnames_b(2) = 'nz' c_pres%istart_b(1) = 1 c_pres%istart_b(2) = 1 c_pres%iend_b(1) = nperim c_pres%iend_b(2) = nz c_dens%fld = fillreal c_dens%bdy = fillreal c_dens%fldname = 'DENS' c_dens%long_name = 'density of air (dry)' c_dens%units = 'kg m-3' c_dens%dimnames(1) = 'nx' c_dens%dimnames(2) = 'ny' c_dens%dimnames(3) = 'nz' c_dens%istart(1) = 1 c_dens%istart(2) = 1 c_dens%istart(3) = 1 c_dens%iend(1) = nx c_dens%iend(2) = ny c_dens%iend(3) = nz c_dens%dimnames_b(1) = 'nperim' c_dens%dimnames_b(2) = 'nz' c_dens%istart_b(1) = 1 c_dens%istart_b(2) = 1 c_dens%iend_b(1) = nperim c_dens%iend_b(2) = nz c_zh%fld = fillreal c_zh%bdy = fillreal c_zh%fldname = 'ZH' c_zh%long_name = 'mid-layer height above ground' c_zh%units = 'm' c_zh%dimnames(1) = 'nx' c_zh%dimnames(2) = 'ny' c_zh%dimnames(3) = 'nz' c_zh%istart(1) = 1 c_zh%istart(2) = 1 c_zh%istart(3) = 1 c_zh%iend(1) = nx c_zh%iend(2) = ny c_zh%iend(3) = nz c_zh%dimnames_b(1) = 'nperim' c_zh%dimnames_b(2) = 'nz' c_zh%istart_b(1) = 1 c_zh%istart_b(2) = 1 c_zh%iend_b(1) = nperim c_zh%iend_b(2) = nz c_zf%fld = fillreal c_zf%bdy = fillreal c_zf%fldname = 'ZF' c_zf%long_name = 'full-layer height above ground' c_zf%units = 'm' c_zf%dimnames(1) = 'nx' c_zf%dimnames(2) = 'ny' c_zf%dimnames(3) = 'nz' c_zf%istart(1) = 1 c_zf%istart(2) = 1 c_zf%istart(3) = 1 c_zf%iend(1) = nx c_zf%iend(2) = ny c_zf%iend(3) = nz c_zf%dimnames_b(1) = 'nperim' c_zf%dimnames_b(2) = 'nz' c_zf%istart_b(1) = 1 c_zf%istart_b(2) = 1 c_zf%iend_b(1) = nperim c_zf%iend_b(2) = nz IF ( iftke ) THEN c_tke%fld = fillreal c_tke%bdy = fillreal IF ( iftkef ) THEN c_tke%fldname = 'TKEF' c_tke%long_name = 'turbulent kinetic energy on full-levels' ELSE c_tke%fldname = 'TKE' c_tke%long_name = 'turbulent kinetic energy on half-layers' ENDIF c_tke%units = 'J kg-1' c_tke%dimnames(1) = 'nx' c_tke%dimnames(2) = 'ny' c_tke%dimnames(3) = 'nz' c_tke%istart(1) = 1 c_tke%istart(2) = 1 c_tke%istart(3) = 1 c_tke%iend(1) = nx c_tke%iend(2) = ny c_tke%iend(3) = nz c_tke%dimnames_b(1) = 'nperim' c_tke%dimnames_b(2) = 'nz' c_tke%istart_b(1) = 1 c_tke%istart_b(2) = 1 c_tke%iend_b(1) = nperim c_tke%iend_b(2) = nz ENDIF IF ( lpv > 0 ) THEN c_pv%fld = fillreal c_pv%bdy = fillreal c_pv%fldname = 'PV' c_pv%long_name = 'potential vorticity (m2 K kg-1 s-1 * E-6)' c_pv%units = 'm2 K mg-1 s-1' ! <-- use scale_factor to change mg to kg c_pv%dimnames(1) = 'nx' c_pv%dimnames(2) = 'ny' c_pv%dimnames(3) = 'nz' c_pv%istart(1) = 1 c_pv%istart(2) = 1 c_pv%istart(3) = 1 c_pv%iend(1) = nx c_pv%iend(2) = ny c_pv%iend(3) = nz c_pv%dimnames_b(1) = 'nperim' c_pv%dimnames_b(2) = 'nz' c_pv%istart_b(1) = 1 c_pv%istart_b(2) = 1 c_pv%iend_b(1) = nperim c_pv%iend_b(2) = nz ENDIF IF ( lwout > 0 ) THEN c_wwind%fld = fillreal c_wwind%bdy = fillreal c_wwind%fldname = 'WWIND' c_wwind%long_name = 'vertical velocity' c_wwind%units = 'm s-1' c_wwind%dimnames(1) = 'nx' c_wwind%dimnames(2) = 'ny' c_wwind%dimnames(3) = 'nz' c_wwind%istart(1) = 1 c_wwind%istart(2) = 1 c_wwind%istart(3) = 1 c_wwind%iend(1) = nx c_wwind%iend(2) = ny c_wwind%iend(3) = nz c_wwind%dimnames_b(1) = 'nperim' c_wwind%dimnames_b(2) = 'nz' c_wwind%istart_b(1) = 1 c_wwind%istart_b(2) = 1 c_wwind%iend_b(1) = nperim c_wwind%iend_b(2) = nz ENDIF IF ( ifcld3d ) THEN c_cfrac_3d%fld = fillreal c_cfrac_3d%bdy = fillreal c_cfrac_3d%fldname = 'CFRAC_3D' c_cfrac_3d%long_name = '3D resolved cloud fraction' c_cfrac_3d%units = '1' c_cfrac_3d%dimnames(1) = 'nx' c_cfrac_3d%dimnames(2) = 'ny' c_cfrac_3d%dimnames(3) = 'nz' c_cfrac_3d%istart(1) = 1 c_cfrac_3d%istart(2) = 1 c_cfrac_3d%istart(3) = 1 c_cfrac_3d%iend(1) = nx c_cfrac_3d%iend(2) = ny c_cfrac_3d%iend(3) = nz c_cfrac_3d%dimnames_b(1) = 'nperim' c_cfrac_3d%dimnames_b(2) = 'nz' c_cfrac_3d%istart_b(1) = 1 c_cfrac_3d%istart_b(2) = 1 c_cfrac_3d%iend_b(1) = nperim c_cfrac_3d%iend_b(2) = nz ENDIF IF ( nqspecies >= 2 ) THEN c_qc%fld = fillreal c_qc%bdy = fillreal c_qc%fldname = 'QC' c_qc%long_name = 'cloud water mixing ratio' c_qc%units = 'kg kg-1' c_qc%dimnames(1) = 'nx' c_qc%dimnames(2) = 'ny' c_qc%dimnames(3) = 'nz' c_qc%istart(1) = 1 c_qc%istart(2) = 1 c_qc%istart(3) = 1 c_qc%iend(1) = nx c_qc%iend(2) = ny c_qc%iend(3) = nz c_qc%dimnames_b(1) = 'nperim' c_qc%dimnames_b(2) = 'nz' c_qc%istart_b(1) = 1 c_qc%istart_b(2) = 1 c_qc%iend_b(1) = nperim c_qc%iend_b(2) = nz c_qr%fld = fillreal c_qr%bdy = fillreal c_qr%fldname = 'QR' c_qr%long_name = 'rain water mixing ratio' c_qr%units = 'kg kg-1' c_qr%dimnames(1) = 'nx' c_qr%dimnames(2) = 'ny' c_qr%dimnames(3) = 'nz' c_qr%istart(1) = 1 c_qr%istart(2) = 1 c_qr%istart(3) = 1 c_qr%iend(1) = nx c_qr%iend(2) = ny c_qr%iend(3) = nz c_qr%dimnames_b(1) = 'nperim' c_qr%dimnames_b(2) = 'nz' c_qr%istart_b(1) = 1 c_qr%istart_b(2) = 1 c_qr%iend_b(1) = nperim c_qr%iend_b(2) = nz IF ( nqspecies >= 4 ) THEN c_qi%fld = fillreal c_qi%bdy = fillreal c_qi%fldname = 'QI' c_qi%long_name = 'ice mixing ratio' c_qi%units = 'kg kg-1' c_qi%dimnames(1) = 'nx' c_qi%dimnames(2) = 'ny' c_qi%dimnames(3) = 'nz' c_qi%istart(1) = 1 c_qi%istart(2) = 1 c_qi%istart(3) = 1 c_qi%iend(1) = nx c_qi%iend(2) = ny c_qi%iend(3) = nz c_qi%dimnames_b(1) = 'nperim' c_qi%dimnames_b(2) = 'nz' c_qi%istart_b(1) = 1 c_qi%istart_b(2) = 1 c_qi%iend_b(1) = nperim c_qi%iend_b(2) = nz c_qs%fld = fillreal c_qs%bdy = fillreal c_qs%fldname = 'QS' c_qs%long_name = 'snow mixing ratio' c_qs%units = 'kg kg-1' c_qs%dimnames(1) = 'nx' c_qs%dimnames(2) = 'ny' c_qs%dimnames(3) = 'nz' c_qs%istart(1) = 1 c_qs%istart(2) = 1 c_qs%istart(3) = 1 c_qs%iend(1) = nx c_qs%iend(2) = ny c_qs%iend(3) = nz c_qs%dimnames_b(1) = 'nperim' c_qs%dimnames_b(2) = 'nz' c_qs%istart_b(1) = 1 c_qs%istart_b(2) = 1 c_qs%iend_b(1) = nperim c_qs%iend_b(2) = nz IF ( nqspecies >= 5 ) THEN c_qg%fld = fillreal c_qg%bdy = fillreal c_qg%fldname = 'QG' c_qg%long_name = 'graupel mixing ratio' c_qg%units = 'kg kg-1' c_qg%dimnames(1) = 'nx' c_qg%dimnames(2) = 'ny' c_qg%dimnames(3) = 'nz' c_qg%istart(1) = 1 c_qg%istart(2) = 1 c_qg%istart(3) = 1 c_qg%iend(1) = nx c_qg%iend(2) = ny c_qg%iend(3) = nz c_qg%dimnames_b(1) = 'nperim' c_qg%dimnames_b(2) = 'nz' c_qg%istart_b(1) = 1 c_qg%istart_b(2) = 1 c_qg%iend_b(1) = nperim c_qg%iend_b(2) = nz ENDIF IF ( ifkfradextras ) THEN c_qc_cu%fld = fillreal c_qc_cu%bdy = fillreal c_qc_cu%fldname = 'QC_CU' c_qc_cu%long_name = 'subgrid cloud water mixing ratio from KF' c_qc_cu%units = 'kg kg-1' c_qc_cu%dimnames(1) = 'nx' c_qc_cu%dimnames(2) = 'ny' c_qc_cu%dimnames(3) = 'nz' c_qc_cu%istart(1) = 1 c_qc_cu%istart(2) = 1 c_qc_cu%istart(3) = 1 c_qc_cu%iend(1) = nx c_qc_cu%iend(2) = ny c_qc_cu%iend(3) = nz c_qc_cu%dimnames_b(1) = 'nperim' c_qc_cu%dimnames_b(2) = 'nz' c_qc_cu%istart_b(1) = 1 c_qc_cu%istart_b(2) = 1 c_qc_cu%iend_b(1) = nperim c_qc_cu%iend_b(2) = nz c_qi_cu%fld = fillreal c_qi_cu%bdy = fillreal c_qi_cu%fldname = 'QI_CU' c_qi_cu%long_name = 'subgrid cloud ice mixing ratio from KF' c_qi_cu%units = 'kg kg-1' c_qi_cu%dimnames(1) = 'nx' c_qi_cu%dimnames(2) = 'ny' c_qi_cu%dimnames(3) = 'nz' c_qi_cu%istart(1) = 1 c_qi_cu%istart(2) = 1 c_qi_cu%istart(3) = 1 c_qi_cu%iend(1) = nx c_qi_cu%iend(2) = ny c_qi_cu%iend(3) = nz c_qi_cu%dimnames_b(1) = 'nperim' c_qi_cu%dimnames_b(2) = 'nz' c_qi_cu%istart_b(1) = 1 c_qi_cu%istart_b(2) = 1 c_qi_cu%iend_b(1) = nperim c_qi_cu%iend_b(2) = nz c_cldfra_dp%fld = fillreal c_cldfra_dp%bdy = fillreal c_cldfra_dp%fldname = 'CLDFRA_DP' c_cldfra_dp%long_name = 'subgrid deep cloud fraction' c_cldfra_dp%units = '1' c_cldfra_dp%dimnames(1) = 'nx' c_cldfra_dp%dimnames(2) = 'ny' c_cldfra_dp%dimnames(3) = 'nz' c_cldfra_dp%istart(1) = 1 c_cldfra_dp%istart(2) = 1 c_cldfra_dp%istart(3) = 1 c_cldfra_dp%iend(1) = nx c_cldfra_dp%iend(2) = ny c_cldfra_dp%iend(3) = nz c_cldfra_dp%dimnames_b(1) = 'nperim' c_cldfra_dp%dimnames_b(2) = 'nz' c_cldfra_dp%istart_b(1) = 1 c_cldfra_dp%istart_b(2) = 1 c_cldfra_dp%iend_b(1) = nperim c_cldfra_dp%iend_b(2) = nz c_cldfra_sh%fld = fillreal c_cldfra_sh%bdy = fillreal c_cldfra_sh%fldname = 'CLDFRA_SH' c_cldfra_sh%long_name = 'subgrid shallow cloud fraction' c_cldfra_sh%units = '1' c_cldfra_sh%dimnames(1) = 'nx' c_cldfra_sh%dimnames(2) = 'ny' c_cldfra_sh%dimnames(3) = 'nz' c_cldfra_sh%istart(1) = 1 c_cldfra_sh%istart(2) = 1 c_cldfra_sh%istart(3) = 1 c_cldfra_sh%iend(1) = nx c_cldfra_sh%iend(2) = ny c_cldfra_sh%iend(3) = nz c_cldfra_sh%dimnames_b(1) = 'nperim' c_cldfra_sh%dimnames_b(2) = 'nz' c_cldfra_sh%istart_b(1) = 1 c_cldfra_sh%istart_b(2) = 1 c_cldfra_sh%iend_b(1) = nperim c_cldfra_sh%iend_b(2) = nz ENDIF ! kfradextras ENDIF ! nqspecies >= 4 ENDIF ! nqspecies >= 2 !------------------------------------------------------------------------------- ! Time-varying 3d fields at cell corners and cell faces. !------------------------------------------------------------------------------- c_uwindc%fld = fillreal c_uwindc%fldname = 'UWINDC' c_uwindc%long_name = 'U-comp. of true wind at W-E faces' c_uwindc%units = 'm s-1' c_uwindc%dimnames(1) = 'nxp1' IF ( ioform == 1 ) THEN ! M3IO -- keep false dot points c_uwindc%dimnames(2) = 'nyp1' ELSE ! preserve Arakawa-C staggering c_uwindc%dimnames(2) = 'ny' ENDIF c_uwindc%dimnames(3) = 'nz' c_uwindc%istart(1) = 1 c_uwindc%istart(2) = 1 c_uwindc%istart(3) = 1 c_uwindc%iend(1) = nxp1 IF ( ioform == 1 ) THEN ! M3IO -- keep false dot points c_uwindc%iend(2) = nyp1 ELSE ! preserve Arakawa-C staggering c_uwindc%iend(2) = ny ENDIF c_uwindc%iend(3) = nz c_vwindc%fld = fillreal c_vwindc%fldname = 'VWINDC' c_vwindc%long_name = 'V-comp. of true wind at S-N faces' c_vwindc%units = 'm s-1' IF ( ioform == 1 ) THEN ! M3IO -- keep false dot points c_vwindc%dimnames(1) = 'nxp1' ELSE ! preserve Arakawa-C staggering c_vwindc%dimnames(1) = 'nx' ENDIF c_vwindc%dimnames(2) = 'nyp1' c_vwindc%dimnames(3) = 'nz' c_vwindc%istart(1) = 1 c_vwindc%istart(2) = 1 c_vwindc%istart(3) = 1 IF ( ioform == 1 ) THEN ! M3IO -- keep false dot points c_vwindc%iend(1) = nxp1 ELSE ! preserve Arakawa-C staggering c_vwindc%iend(1) = nx ENDIF c_vwindc%iend(2) = nyp1 c_vwindc%iend(3) = nz c_uhat_jd%fld = fillreal c_uhat_jd%fldname = 'UHAT_JD' c_uhat_jd%long_name = '(contravariant_U*Jacobian*Density) at square pt' c_uhat_jd%units = 'kg m-1 s-1' c_uhat_jd%dimnames(1) = 'nxp1' IF ( ioform == 1 ) THEN ! M3IO -- keep false dot points c_uhat_jd%dimnames(2) = 'nyp1' ELSE ! preserve Arakawa-C staggering c_uhat_jd%dimnames(2) = 'ny' ENDIF c_uhat_jd%dimnames(3) = 'nz' c_uhat_jd%istart(1) = 1 c_uhat_jd%istart(2) = 1 c_uhat_jd%istart(3) = 1 c_uhat_jd%iend(1) = nxp1 IF ( ioform == 1 ) THEN ! M3IO -- keep false dot points c_uhat_jd%iend(2) = nyp1 ELSE ! preserve Arakawa-C staggering c_uhat_jd%iend(2) = ny ENDIF c_uhat_jd%iend(3) = nz c_vhat_jd%fld = fillreal c_vhat_jd%fldname = 'VHAT_JD' c_vhat_jd%long_name = '(contravariant_V*Jacobian*Density) at triangle pt' c_vhat_jd%units = 'kg m-1 s-1' IF ( ioform == 1 ) THEN ! M3IO -- keep false dot points c_vhat_jd%dimnames(1) = 'nxp1' ELSE ! preserve Arakawa-C staggering c_vhat_jd%dimnames(1) = 'nx' ENDIF c_vhat_jd%dimnames(2) = 'nyp1' c_vhat_jd%dimnames(3) = 'nz' c_vhat_jd%istart(1) = 1 c_vhat_jd%istart(2) = 1 c_vhat_jd%istart(3) = 1 IF ( ioform == 1 ) THEN ! M3IO -- keep false dot points c_vhat_jd%iend(1) = nxp1 ELSE ! preserve Arakawa-C staggering c_vhat_jd%iend(1) = nx ENDIF c_vhat_jd%iend(2) = nyp1 c_vhat_jd%iend(3) = nz IF ( luvbout > 0 ) THEN c_uwind%fld = fillreal c_uwind%fldname = 'UWIND' c_uwind%long_name = 'U-comp. of true wind at dot point' c_uwind%units = 'm s-1' c_uwind%dimnames(1) = 'nxp1' c_uwind%dimnames(2) = 'nyp1' c_uwind%dimnames(3) = 'nz' c_uwind%istart(1) = 1 c_uwind%istart(2) = 1 c_uwind%istart(3) = 1 c_uwind%iend(1) = nxp1 c_uwind%iend(2) = nyp1 c_uwind%iend(3) = nz c_vwind%fld = fillreal c_vwind%fldname = 'VWIND' c_vwind%long_name = 'V-comp. of true wind at dot point' c_vwind%units = 'm s-1' c_vwind%dimnames(1) = 'nxp1' c_vwind%dimnames(2) = 'nyp1' c_vwind%dimnames(3) = 'nz' c_vwind%istart(1) = 1 c_vwind%istart(2) = 1 c_vwind%istart(3) = 1 c_vwind%iend(1) = nxp1 c_vwind%iend(2) = nyp1 c_vwind%iend(3) = nz ENDIF !------------------------------------------------------------------------------- ! Time-varying 3d fields (soil layers) at cell centers. !------------------------------------------------------------------------------- IF ( ifsoil ) THEN c_soit3d%fld = fillreal c_soit3d%fldname = 'SOIT3D' c_soit3d%long_name = 'soil temperature' c_soit3d%units = 'K' c_soit3d%dimnames(1) = 'nx' c_soit3d%dimnames(2) = 'ny' c_soit3d%dimnames(3) = 'nsoi' c_soit3d%istart(1) = 1 c_soit3d%istart(2) = 1 c_soit3d%istart(3) = 1 c_soit3d%iend(1) = nx c_soit3d%iend(2) = ny c_soit3d%iend(3) = nsoi c_soim3d%fld = fillreal c_soim3d%fldname = 'SOIM3D' c_soim3d%long_name = 'soil moisture' c_soim3d%units = 'm3 m-3' c_soim3d%dimnames(1) = 'nx' c_soim3d%dimnames(2) = 'ny' c_soim3d%dimnames(3) = 'nsoi' c_soim3d%istart(1) = 1 c_soim3d%istart(2) = 1 c_soim3d%istart(3) = 1 c_soim3d%iend(1) = nx c_soim3d%iend(2) = ny c_soim3d%iend(3) = nsoi ENDIF !------------------------------------------------------------------------------- ! Time-varying 3d fields (mosaic land use categories) at cell centers. !------------------------------------------------------------------------------- IF ( ifmosaic ) THEN c_lufrac2%fld = fillreal c_lufrac2%fldname = 'LUFRAC2' c_lufrac2%long_name = 'ranked fractional land use' c_lufrac2%units = 'percent' c_lufrac2%dimnames(1) = 'nx' c_lufrac2%dimnames(2) = 'ny' c_lufrac2%dimnames(3) = 'nmos' c_lufrac2%istart(1) = 1 c_lufrac2%istart(2) = 1 c_lufrac2%istart(3) = 1 c_lufrac2%iend(1) = nx c_lufrac2%iend(2) = ny c_lufrac2%iend(3) = nmos c_moscat%fld = fillreal c_moscat%fldname = 'MOSCAT' c_moscat%long_name = 'land use category for LUFRAC2' c_moscat%units = '1' c_moscat%dimnames(1) = 'nx' c_moscat%dimnames(2) = 'ny' c_moscat%dimnames(3) = 'nmos' c_moscat%istart(1) = 1 c_moscat%istart(2) = 1 c_moscat%istart(3) = 1 c_moscat%iend(1) = nx c_moscat%iend(2) = ny c_moscat%iend(3) = nmos c_lai_mos%fld = fillreal c_lai_mos%fldname = 'LAI_MOS' c_lai_mos%long_name = 'leaf area index (mosaic)' c_lai_mos%units = 'm2 m-2' c_lai_mos%dimnames(1) = 'nx' c_lai_mos%dimnames(2) = 'ny' c_lai_mos%dimnames(3) = 'nmos' c_lai_mos%istart(1) = 1 c_lai_mos%istart(2) = 1 c_lai_mos%istart(3) = 1 c_lai_mos%iend(1) = nx c_lai_mos%iend(2) = ny c_lai_mos%iend(3) = nmos c_rai_mos%fld = fillreal c_rai_mos%fldname = 'RAI_MOS' c_rai_mos%long_name = 'inverse of aerodynamic resistance (mosaic)' c_rai_mos%units = 'm s-1' c_rai_mos%dimnames(1) = 'nx' c_rai_mos%dimnames(2) = 'ny' c_rai_mos%dimnames(3) = 'nmos' c_rai_mos%istart(1) = 1 c_rai_mos%istart(2) = 1 c_rai_mos%istart(3) = 1 c_rai_mos%iend(1) = nx c_rai_mos%iend(2) = ny c_rai_mos%iend(3) = nmos c_rsi_mos%fld = fillreal c_rsi_mos%fldname = 'RSI_MOS' c_rsi_mos%long_name = 'inverse of stomatal resistance (mosaic)' c_rsi_mos%units = 'm s-1' c_rsi_mos%dimnames(1) = 'nx' c_rsi_mos%dimnames(2) = 'ny' c_rsi_mos%dimnames(3) = 'nmos' c_rsi_mos%istart(1) = 1 c_rsi_mos%istart(2) = 1 c_rsi_mos%istart(3) = 1 c_rsi_mos%iend(1) = nx c_rsi_mos%iend(2) = ny c_rsi_mos%iend(3) = nmos c_tsk_mos%fld = fillreal c_tsk_mos%fldname = 'TSK_MOS' c_tsk_mos%long_name = 'vegetation temperature (mosaic)' c_tsk_mos%units = 'K' c_tsk_mos%dimnames(1) = 'nx' c_tsk_mos%dimnames(2) = 'ny' c_tsk_mos%dimnames(3) = 'nmos' c_tsk_mos%istart(1) = 1 c_tsk_mos%istart(2) = 1 c_tsk_mos%istart(3) = 1 c_tsk_mos%iend(1) = nx c_tsk_mos%iend(2) = ny c_tsk_mos%iend(3) = nmos c_znt_mos%fld = fillreal c_znt_mos%fldname = 'ZNT_MOS' c_znt_mos%long_name = 'roughness length (mosaic)' c_znt_mos%units = 'm' c_znt_mos%dimnames(1) = 'nx' c_znt_mos%dimnames(2) = 'ny' c_znt_mos%dimnames(3) = 'nmos' c_znt_mos%istart(1) = 1 c_znt_mos%istart(2) = 1 c_znt_mos%istart(3) = 1 c_znt_mos%iend(1) = nx c_znt_mos%iend(2) = ny c_znt_mos%iend(3) = nmos ENDIF END SUBROUTINE init_ctm ================================================ FILE: PREP/mcip/src/init_io.f90 ================================================ !------------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------------! SUBROUTINE init_io !------------------------------------------------------------------------------- ! Name: Initializes I/O API ! Purpose: Initialize I/O API. ! Revised: 18 Aug 2004 Original version. (T. Otte) ! 08 Mar 2005 Enabled/mandated use of I/O API 3 or beyond. (T. Otte) ! 30 Aug 2011 Replaced modules IODECL3 and PARMS3 with I/O API ! module M3UTILIO. Removed call to I/O API utility ! routine IOPARMS3. Mandates use of I/O API 3.1 or ! beyond. Deleted unused variables. (T. Otte) ! 07 Sep 2011 Updated disclaimer. (T. Otte) !------------------------------------------------------------------------------- USE date_time USE m3utilio IMPLICIT NONE INTEGER :: funit !------------------------------------------------------------------------------- ! Initialize I/O API. !------------------------------------------------------------------------------- funit = init3() !------------------------------------------------------------------------------- ! Initialize current date and time to missing values. !------------------------------------------------------------------------------- sdate = imiss3 stime = imiss3 END SUBROUTINE init_io ================================================ FILE: PREP/mcip/src/init_met.f90 ================================================ !------------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------------! SUBROUTINE init_met !------------------------------------------------------------------------------- ! Name: Initialize Meteorology Arrays ! Purpose: Initializes meteorology arrays. ! Revised: 10 Sep 2001 Original version. (T. Otte) ! 29 May 2003 Added SNOWCOVR. (D. Schwede) ! 09 Aug 2004 Added QGA, VEGOLD, and T2. (D. Schwede and T. Otte) ! 29 Nov 2004 Added LUFRAC. (T. Otte) ! 04 Apr 2005 Removed unused variables REGIME and MAVAIL. Added PH, ! PHB, PB, MU, and MUB for WRF. Added U10 and V10. ! (T. Otte and S.-B. Kim) ! 11 Aug 2005 Removed unused variable FSOIL. (T. Otte) ! 19 Jun 2006 Corrected initial values for ISLTYP and LANDUSE. ! (T. Otte) ! 25 Jul 2007 Removed internal variables for emissivity and net ! radiation. Eliminated logical variable "PX" to make ! code more general. (T. Otte) ! 05 May 2008 Added 2-m mixing ratio (Q2) and turbulent kinetic ! energy (TKE) arrays. Added urban fraction (FRC_URB) ! and urban roughness length (Z0C_URB2D) for ! MET_UCMCALL=1. (T. Otte) ! 29 Sep 2009 Added THETA and CORIOLIS for when potential vorticity ! is needed. Added LATU, LONU, MAPU, LATV, LONV, and ! MAPV. Removed Z0C_URB2D. (T. Otte) ! 15 Dec 2010 Added sea ice. Added tipping buckets for convective ! and non-convective precipitation. (T. Otte) ! 01 Sep 2011 Corrected initialization of ISLTYP to match variable ! type. (T. Otte) ! 07 Sep 2011 Updated disclaimer. (T. Otte) ! 11 Sep 2012 Added LANDMASK to be read from WRF. (T. Otte) ! 10 Apr 2015 Added new array CLDFRA to pass 3D resolved cloud ! fraction to output. (T. Spero) ! 21 Aug 2015 Changed latent heat flux from QFX to LH. Added ! moisture flux (QFX) for IFMOLACM. (T. Spero) ! 16 Mar 2018 Added SNOWH to output. Added C1H, C2H, C1F, and C2F to ! support hybrid vertical coordinate in WRF. Added ! LUFRAC2, MOSCATIDX, LAI_MOS, RA_MOS, RS_MOS, TSK_MOS, ! and ZNT_MOS to support NOAH Mosaic land-surface model. ! Added DZS to capture soil layers, and added 3D soil ! arrays, SOIT3D and SOIM3D. Added WSPDSFC and XLAIDYN ! for Noah. (T. Spero) ! 14 Sep 2018 Changed condition to enable hybrid vertical coordinate ! in WRF. Removed support for MM5v3 input. (T. Spero) ! 18 Jun 2019 Added new surface variables with PX LSM that can ! improve dust simulation in CCTM. Added optional ! variables from KF convective scheme with radiative ! feedbacks. (T. Spero) !------------------------------------------------------------------------------- USE metinfo USE metvars USE mcipparm IMPLICIT NONE !------------------------------------------------------------------------------- ! Initialize meteorology arrays. !------------------------------------------------------------------------------- IF ( met_hybrid >= 0 ) THEN ! using hybrid vertical coordinate in WRF c1f (:) = 0.0 ; c1h (:) = 0.0 c2f (:) = 0.0 ; c2f (:) = 0.0 ENDIF sigmaf (:) = 0.0 ; sigmah (:) = 0.0 IF ( met_ns > 0 ) THEN ! using multi-layer land-surface model dzs (:) = 0.0 ENDIF albedo (:,:) = 0.0 ; glw (:,:) = 0.0 groundt (:,:) = 0.0 ; hfx (:,:) = 0.0 i_rainc (:,:) = 0 ; i_rainnc (:,:) = 0 ircold (:,:) = 0 ; irnold (:,:) = 0 landmask (:,:) = 0.0 ; landuse (:,:) = 0 latcrs (:,:) = 0.0 ; latdot (:,:) = 0.0 latu (:,:) = 0.0 ; latv (:,:) = 0.0 lh (:,:) = 0.0 ; loncrs (:,:) = 0.0 londot (:,:) = 0.0 ; lonu (:,:) = 0.0 lonv (:,:) = 0.0 ; mapcrs (:,:) = 0.0 mapdot (:,:) = 0.0 ; mapu (:,:) = 0.0 mapv (:,:) = 0.0 ; psa (:,:) = 0.0 raincon (:,:) = 0.0 ; rainnon (:,:) = 0.0 rcold (:,:) = 0.0 ; rgrnd (:,:) = 0.0 rnold (:,:) = 0.0 ; seaice (:,:) = 0.0 snowcovr (:,:) = 0.0 ; snowh (:,:) = 0.0 terrain (:,:) = 0.0 ; ust (:,:) = 0.0 znt (:,:) = 0.0 ; zpbl (:,:) = 0.0 IF ( ift2m ) THEN ! 2-m temperature available t2 (:,:) = 0.0 ENDIF IF ( ifq2m ) THEN ! 2-m mixing ratio available q2 (:,:) = 0.0 ENDIF IF ( ifw10m ) THEN ! 10-m wind components available u10 (:,:) = 0.0 v10 (:,:) = 0.0 ENDIF pp (:,:,:) = 0.0 ; qca (:,:,:) = 0.0 qga (:,:,:) = 0.0 ; qia (:,:,:) = 0.0 qra (:,:,:) = 0.0 ; qsa (:,:,:) = 0.0 qva (:,:,:) = 0.0 ; ta (:,:,:) = 0.0 ua (:,:,:) = 0.0 ; va (:,:,:) = 0.0 wa (:,:,:) = 0.0 IF ( iflufrc ) THEN ! fractional land use fields available lufrac (:,:,:) = 0.0 ENDIF IF ( met_model == 2 ) THEN ! WRF mu (:,:) = 0.0 ; mub (:,:) = 0.0 pb (:,:,:) = 0.0 ph (:,:,:) = 0.0 ; phb (:,:,:) = 0.0 ENDIF IF ( ALLOCATED ( coriolis ) ) coriolis (:,:) = 0.0 IF ( ALLOCATED ( isltyp ) ) isltyp (:,:) = 0 IF ( ALLOCATED ( lai ) ) lai (:,:) = 0.0 IF ( ALLOCATED ( mol ) ) mol (:,:) = 0.0 IF ( ALLOCATED ( qfx ) ) qfx (:,:) = 0.0 IF ( ALLOCATED ( ra ) ) ra (:,:) = 0.0 IF ( ALLOCATED ( rstom ) ) rstom (:,:) = 0.0 IF ( ALLOCATED ( soilt1 ) ) soilt1 (:,:) = 0.0 IF ( ALLOCATED ( soilt2 ) ) soilt2 (:,:) = 0.0 IF ( ALLOCATED ( veg ) ) veg (:,:) = 0.0 IF ( ALLOCATED ( w2 ) ) w2 (:,:) = 0.0 IF ( ALLOCATED ( wg ) ) wg (:,:) = 0.0 IF ( ALLOCATED ( wr ) ) wr (:,:) = 0.0 IF ( ALLOCATED ( tke ) ) tke (:,:,:) = 0.0 IF ( ALLOCATED ( theta ) ) theta (:,:,:) = 0.0 IF ( ALLOCATED ( frc_urb ) ) frc_urb (:,:) = 0.0 IF ( ALLOCATED ( cldfra ) ) cldfra (:,:,:) = 0.0 IF ( ALLOCATED ( soim3d ) ) soim3d (:,:,:) = 0.0 IF ( ALLOCATED ( soit3d ) ) soit3d (:,:,:) = 0.0 IF ( ALLOCATED ( lufrac2 ) ) lufrac2 (:,:,:) = 0.0 IF ( ALLOCATED ( moscatidx ) ) moscatidx(:,:,:) = 0 IF ( ALLOCATED ( lai_mos ) ) lai_mos (:,:,:) = 0.0 IF ( ALLOCATED ( ra_mos ) ) ra_mos (:,:,:) = 0.0 IF ( ALLOCATED ( rs_mos ) ) rs_mos (:,:,:) = 0.0 IF ( ALLOCATED ( tsk_mos ) ) tsk_mos (:,:,:) = 0.0 IF ( ALLOCATED ( znt_mos ) ) znt_mos (:,:,:) = 0.0 IF ( ALLOCATED ( wspdsfc ) ) wspdsfc (:,:) = 0.0 IF ( ALLOCATED ( xlaidyn ) ) xlaidyn (:,:) = 0.0 IF ( ALLOCATED ( lai_px ) ) lai_px (:,:) = 0.0 IF ( ALLOCATED ( wwlt_px ) ) wwlt_px (:,:) = 0.0 IF ( ALLOCATED ( wsat_px ) ) wsat_px (:,:) = 0.0 IF ( ALLOCATED ( wfc_px ) ) wfc_px (:,:) = 0.0 IF ( ALLOCATED ( csand_px ) ) csand_px (:,:) = 0.0 IF ( ALLOCATED ( fmsand_px ) ) fmsand_px(:,:) = 0.0 IF ( ALLOCATED ( clay_px ) ) clay_px (:,:) = 0.0 IF ( ALLOCATED ( qc_cu ) ) qc_cu (:,:,:) = 0.0 IF ( ALLOCATED ( qi_cu ) ) qi_cu (:,:,:) = 0.0 IF ( ALLOCATED ( cldfra_dp ) ) cldfra_dp(:,:,:) = 0.0 IF ( ALLOCATED ( cldfra_sh ) ) cldfra_sh(:,:,:) = 0.0 END SUBROUTINE init_met ================================================ FILE: PREP/mcip/src/init_x.f90 ================================================ !------------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------------! SUBROUTINE init_x !------------------------------------------------------------------------------- ! Name: Initialize X arrays. ! Purpose: Initializes X arrays. ! Revised: 26 Jan 1997 Created for MCIP and generalized CTM. (D. Byun) ! 04 Feb 1998 Changed include method nonglobal includes. (D. Byun) ! 30 Apr 1999 Replaced PSTAR with PRSFC. (D. Byun) ! 19 Sep 2001 Converted to free-form f90. Removed SDATE and STIME ! from routine. Changed routine name from INITX to ! INIT_X. (T. Otte) ! 14 Jan 2002 Added new dry deposition species, methanol. ! (Y. Wu and T. Otte) ! 23 Jan 2002 Changed initialization of X-variables from 0.0 to ! BADVAL3 to avoid confusion. (T. Otte) ! 27 Feb 2002 Renamed XSURF1 as XTEMP1P5 and XSURF2 as XWIND10. ! (T. Otte) ! 18 Mar 2003 Removed XJDRATE. (T. Otte) ! 09 Jun 2003 Added XF2DEF, XSNOCOV, XDELTA, XLSTWET, XRH. Added ! new dry deposition species: N2O5, NO3, and generic ! aldehyde. (D. Schwede, T. Otte, and J. Pleim) ! Removed extraneous variables from output. (T. Otte) ! 09 Aug 2004 Added XQGRAUP, XWSPD10, XWDIR10, and XT2. Removed ! XFLAGS, XINDEX, and XNAMES. (T. Otte and D. Schwede) ! 01 Dec 2004 Added XPURB. (T. Otte) ! 04 Apr 2005 Removed unused variables XREGIME and XRTOLD. Added ! initialization of WRF variables. Changed XUU and XVV ! to XUU_D and XVV_D, and changed XUHAT and XVHAT to ! XUU_S and XVV_T. Added pointer indices for optional ! chlorine and mercury species. Removed XENTRP. Added ! XU10 and XV10. (T. Otte, S.-B. Kim, G. Sarwar, and ! R. Bullock) ! 19 Aug 2005 Removed initialization of XDEPIDX and XVD. Moved ! XDEPSPC to INIT_DEPV. Removed unused variables XCAPG, ! XMMPASS, and XFSOIL. Removed array XRH and made it a ! local scalar in M3DRY. (T. Otte and W. Hutzell) ! 14 Jul 2006 Removed XDELTA and XLSTWET to be local variables in ! M3DRY. Added XLWMASK. (T. Otte) ! 30 Jul 2007 Changed XUSTAR and XRADYN to 2D arrays without a ! dimension for fractional land use that was required ! for RADMdry. Removed XRBNDY, XCFRACH, XCFRACM, ! XCFRACL, XTEMP1P5, and XTEMP10. Create 2-m ! temperature array even if it is not part of input ! meteorology. Changed 2-m temperature from XT2 to ! XTEMP2. Removed internal variables for emissivity ! and net radiation. Removed XF2DEF and XRSTMIN to be ! local variables in RESISTCALC. Added XPSTAR0. Added ! initialization for XDENSAF_REF. (T. Otte) ! 21 Apr 2008 Added 2-m mixing ratio (XQ2) and turbulent kinetic ! energy (XTKE) arrays. (T. Otte) ! 29 Oct 2009 Added potential vorticity (XPVC), Coriolis (XCORL), ! and potential temperature (XTHETA). Added map-scale ! factors squared (on cross points, XMAPC2). Added ! XLATU, XLONU, XMAPU, XLATV, XLONV, and XMAPV. Allow ! output variable PURB to be created with urban model ! in WRF. (T. Otte) ! 14 Dec 2010 Added sea ice. (T. Otte) ! 11 Aug 2011 Replaced module PARMS3 with I/O API module M3UTILIO. ! (T. Otte) ! 07 Sep 2011 Updated disclaimer. (T. Otte) ! 10 Apr 2015 Added new array XCFRAC3D to pass 3D resolved cloud ! fraction to output. (T. Spero) ! 21 Aug 2015 Changed latent heat flux from QFX to LH. Fill THETA ! and add moisture flux (QFX) for IFMOLACM. (T. Spero) ! 17 Sep 2015 Changed IFMOLACM to IFMOLPX. (T. Spero) ! 16 Mar 2018 Added SNOWH to output. Added XMUHYB to support hybrid ! vertical coordinate in WRF output. Added XLUFRAC2, ! XMOSCATIDX, XLAI_MOS, XRA_MOS, XRS_MOS, XTSK_MOS, and ! XZNT_MOS to support NOAH Mosaic land-surface model. ! Added XZSOIL to define soil layer depths, and added ! 3D soil arrays, XSOIT3D and XSOIM3D. Added ! XWSPDSFC and XXLAIDYN for Noah. (T. Spero) ! 26 Jun 2018 Now use netCDF tokens for missing data. (T. Spero) ! 14 Sep 2018 Changed condition to enable hybrid vertical coordinate ! in WRF. Removed support for MM5v3 input. (T. Spero) ! 18 Jun 2019 Added new surface variables with PX LSM that can ! improve dust simulation in CCTM. Added optional ! variables from KF convective scheme with radiative ! feedbacks. (T. Spero) !------------------------------------------------------------------------------- USE mcipparm USE xvars USE metinfo IMPLICIT NONE !------------------------------------------------------------------------------- ! Initialize X-arrays. !------------------------------------------------------------------------------- xx3face (:) = fillreal ; xx3midl (:) = fillreal xalbedo (:,:) = fillreal ; xcfract (:,:) = fillreal xcldbot (:,:) = fillreal ; xcldtop (:,:) = fillreal xdenss (:,:) = fillreal ; xdluse (:,:) = fillreal xglw (:,:) = fillreal ; xgsw (:,:) = fillreal xhfx (:,:) = fillreal ; xlai (:,:) = fillreal xlatc (:,:) = fillreal ; xlatd (:,:) = fillreal xlatu (:,:) = fillreal ; xlatv (:,:) = fillreal xlh (:,:) = fillreal ; xlonc (:,:) = fillreal xlond (:,:) = fillreal ; xlonu (:,:) = fillreal xlonv (:,:) = fillreal ; xlwmask (:,:) = fillreal xmapc (:,:) = fillreal ; xmapc2 (:,:) = fillreal xmapd (:,:) = fillreal ; xmapu (:,:) = fillreal xmapv (:,:) = fillreal ; xmol (:,:) = fillreal xpbl (:,:) = fillreal ; xprsfc (:,:) = fillreal xq2 (:,:) = fillreal ; xradyn (:,:) = fillreal xrainc (:,:) = fillreal ; xrainn (:,:) = fillreal xrgrnd (:,:) = fillreal ; xrib (:,:) = fillreal xrstom (:,:) = fillreal ; xseaice (:,:) = fillreal xsnocov (:,:) = fillreal ; xsnowh (:,:) = fillreal xtemp2 (:,:) = fillreal ; xtempg (:,:) = fillreal xtopo (:,:) = fillreal ; xustar (:,:) = fillreal xveg (:,:) = fillreal ; xwbar (:,:) = fillreal xwdir10 (:,:) = fillreal ; xwr (:,:) = fillreal xwspd10 (:,:) = fillreal ; xwstar (:,:) = fillreal xzruf (:,:) = fillreal IF ( met_hybrid >= 0 ) THEN xmuhyb(:,:) = fillreal ENDIF IF ( ifw10m ) THEN xu10 (:,:) = fillreal ; xv10 (:,:) = fillreal ENDIF IF ( ( iflufrc ) .OR. ( met_urban_phys >= 1 ) ) THEN xpurb (:,:) = fillreal ENDIF IF ( lpv > 0 ) THEN xcorl (:,:) = fillreal ENDIF IF ( ifmolpx ) THEN xqfx (:,:) = fillreal ENDIF IF ( ifsoil ) THEN xsltyp(:,:) = fillreal xt2a (:,:) = fillreal xtga (:,:) = fillreal xw2a (:,:) = fillreal xwga (:,:) = fillreal ENDIF IF ( met_model == 2 ) THEN ! WRF xmu (:,:) = fillreal xgeof (:,:,:) = fillreal ENDIF x3htf (:,:,:) = fillreal ; x3htm (:,:,:) = fillreal x3jacobf(:,:,:) = fillreal ; x3jacobm(:,:,:) = fillreal xcldwtr (:,:,:) = fillreal ; xdensam (:,:,:) = fillreal xdenswm (:,:,:) = fillreal ; xdx3htf (:,:,:) = fillreal xluse (:,:,:) = fillreal ; xpresm (:,:,:) = fillreal xqgraup (:,:,:) = fillreal ; xqice (:,:,:) = fillreal xqsnow (:,:,:) = fillreal ; xranwtr (:,:,:) = fillreal xtempm (:,:,:) = fillreal ; xuu_d (:,:,:) = fillreal xuu_s (:,:,:) = fillreal ; xvv_d (:,:,:) = fillreal xvv_t (:,:,:) = fillreal ; xwhat (:,:,:) = fillreal xwvapor (:,:,:) = fillreal ; xwwind (:,:,:) = fillreal IF ( iftke ) THEN xtke (:,:,:) = fillreal ENDIF IF ( lpv > 0 ) THEN xpvc (:,:,:) = fillreal ENDIF IF ( lpv > 0 .OR. ifmolpx ) THEN xtheta(:,:,:) = fillreal ENDIF IF ( ifcld3d ) THEN xcfrac3d(:,:,:) = fillreal ENDIF IF ( ( ifsoil ) .AND. ( metsoi > 0 ) ) THEN xzsoil (:) = fillreal xsoit3d(:,:,:) = fillreal xsoim3d(:,:,:) = fillreal ENDIF IF ( nummosaic > 0 ) THEN xlufrac2 (:,:,:) = fillreal xmoscatidx(:,:,:) = fillreal xlai_mos (:,:,:) = fillreal xra_mos (:,:,:) = fillreal xrs_mos (:,:,:) = fillreal xtsk_mos (:,:,:) = fillreal xznt_mos (:,:,:) = fillreal xwspdsfc (:,:) = fillreal xxlaidyn (:,:) = fillreal ENDIF IF ( ifpxwrf41 ) THEN xwsat_px (:,:) = fillreal xwfc_px (:,:) = fillreal xwwlt_px (:,:) = fillreal xcsand_px (:,:) = fillreal xfmsand_px(:,:) = fillreal xclay_px (:,:) = fillreal ENDIF IF ( ifkfradextras ) THEN xqc_cu (:,:,:) = fillreal xqi_cu (:,:,:) = fillreal xcldfrad(:,:,:) = fillreal xcldfras(:,:,:) = fillreal ENDIF END SUBROUTINE init_x ================================================ FILE: PREP/mcip/src/julian.f90 ================================================ !------------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------------! FUNCTION julian (year, mnth, mday) !------------------------------------------------------------------------------- ! Name: Julian Day ! Purpose: Returns the Julian day (1...365,366) corresponding to the date ! MNTH-MDAY-YEAR. NOTE: This is NOT the Julian DATE -- only the ! day-number. To get the Julian date: ! JDATE = 1000 * YEAR + JULIAN ( YEAR , MNTH , MDAY ) ! Revised: ?? May 1988 Modified for ROMNET. (???) ! ?? Aug 1990 Modified for ROM 2.2: improved comments; improved ! algorithm using IF-THEN-ELSE IF construction. (???) ! 10 Sep 2001 Converted to free-form f90. (T. Otte) ! 07 Sep 2011 Updated disclaimer. (T. Otte) !------------------------------------------------------------------------------- IMPLICIT NONE INTEGER :: julian ! Julian day from arguments INTEGER :: l INTEGER :: m INTEGER, INTENT(IN) :: mday ! day of month [1-31] INTEGER, INTENT(IN) :: mnth ! month of year [1-12] INTEGER :: n INTEGER, INTENT(IN) :: year ! four-digit calendar year m = MOD((mnth + 9), 12) n = (m * 153 + 2) / 5 + mday + 58 IF ( MOD(year, 4) /= 0 ) THEN l = 365 ELSE IF ( MOD(year, 100) /= 0 ) THEN l = 366 n = 1 + n ELSE IF ( MOD(year, 400) /= 0 ) THEN l = 365 ELSE l = 366 n = 1 + n END IF julian = 1 + MOD(n, l) END FUNCTION julian ================================================ FILE: PREP/mcip/src/layht.f90 ================================================ !------------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------------! SUBROUTINE layht (xx3face, xx3midl, xx3jcbf, xx3jcbm, xx3htf, xx3htm) !------------------------------------------------------------------------------- ! Name: Layer Heights ! Purpose: Compute height of vertical coordinates for given Jacobian. ! XX3HT = XX3JACOB * ( X3 (K+1) - X3 (K) ) ! ! Input: IMAX,JMAX: total domain size in x (E-W) & y (N-S) direction ! KMAX : number of layers (actually used) ! XX3FACE : vertical coordinate values of layer interface ! XX3MIDL : vertical coordinate values of layer middle ! XX3JCBF : vertical Jacobian at layer face in meter ! XX3JCBM : vertical Jacobian at layer middle in meter ! ! Output: XX3HTF : height of layer interface in meter ! XX3HTM : height of layer middle in meter ! ! Revised: 05 Feb 1997 Created for MCIP and generalized CTM. (D. Byun) ! 18 Sep 2001 Converted to free-form f90. (T. Otte) ! 09 Jan 2002 Changed calls to "abort" to calls to "m3exit" for ! graceful shut-down of I/O API files. (T. Otte) ! 19 Jun 2006 Removed dependency on module CONST. (T. Otte) ! 29 Aug 2011 Improved error handling. (T. Otte) ! 07 Sep 2011 Updated disclaimer. (T. Otte) !------------------------------------------------------------------------------- IMPLICIT NONE INTEGER :: i INTEGER :: imax INTEGER :: j INTEGER :: jmax INTEGER :: k INTEGER :: lbndf INTEGER :: lbndm CHARACTER(LEN=16), PARAMETER :: pname = 'LAYHT' INTEGER :: ubndf INTEGER :: ubndm REAL, INTENT(IN) :: xx3face ( : ) REAL, INTENT(OUT) :: xx3htf ( : , : , : ) REAL, INTENT(OUT) :: xx3htm ( : , : , : ) REAL, INTENT(IN) :: xx3jcbf ( : , : , : ) REAL, INTENT(IN) :: xx3jcbm ( : , : , : ) REAL, INTENT(IN) :: xx3midl ( : ) !------------------------------------------------------------------------------- ! Error, warning, and informational messages. !------------------------------------------------------------------------------- CHARACTER(LEN=256), PARAMETER :: f9000 = "(/, 1x, 70('*'), & & /, 1x, '*** SUBROUTINE: ', a, & & /, 1x, '*** PROBLEM WITH IMAX', & & /, 1x, '*** SIZES OF XX3HTF, XX3HTM = ', 2(2x, i4), & & /, 1x, '*** SIZES OF XX3JCBF, XX3JCBM = ', 2(2x, i4), & & /, 1x, 70('*'))" CHARACTER(LEN=256), PARAMETER :: f9100 = "(/, 1x, 70('*'), & & /, 1x, '*** SUBROUTINE: ', a, & & /, 1x, '*** PROBLEM WITH JMAX', & & /, 1x, '*** SIZES OF XX3HTF, XX3HTM = ', 2(2x, i4), & & /, 1x, '*** SIZES OF XX3JCBF, XX3JCBM = ', 2(2x, i4), & & /, 1x, 70('*'))" CHARACTER(LEN=256), PARAMETER :: f9200 = "(/, 1x, 70('*'), & & /, 1x, '*** SUBROUTINE: ', a, & & /, 1x, '*** PROBLEM WITH MIDDLE LEVEL DIMENSION', & & /, 1x, '*** SIZE OF XX3MIDL = ', 2x, i4, & & /, 1x, '*** SIZES OF XX3HTM, XX3JCBM = ', 2(2x, i4), & & /, 1x, 70('*'))" CHARACTER(LEN=256), PARAMETER :: f9300 = "(/, 1x, 70('*'), & & /, 1x, '*** SUBROUTINE: ', a, & & /, 1x, '*** PROBLEM WITH FACE LEVEL DIMENSION', & & /, 1x, '*** SIZE OF XX3FACE = ', 2x, i4, & & /, 1x, '*** SIZES OF XX3HTF, XX3JCBF = ', 2(2x, i4), & & /, 1x, 70('*'))" !------------------------------------------------------------------------------- ! Since input arrays are assumed-shape, do simple QC on array sizes and ! extract dimension information. !------------------------------------------------------------------------------- ! Check IMAX. imax = SIZE(xx3htf,1) IF ( ( SIZE(xx3htm,1) /= imax ) .OR. ( SIZE(xx3jcbf,1) /= imax ) .OR. & ( SIZE(xx3jcbm,1) /= imax ) ) THEN WRITE (*,f9000) TRIM(pname), imax, SIZE(xx3htm,1), SIZE(xx3jcbf,1), & SIZE(xx3jcbm,1) CALL graceful_stop (pname) ENDIF ! Check JMAX. jmax = SIZE(xx3htf,2) IF ( ( SIZE(xx3htm,2) /= jmax ) .OR. ( SIZE(xx3jcbf,2) /= jmax ) .OR. & ( SIZE(xx3jcbm,2) /= jmax ) ) THEN WRITE (*,f9100) TRIM(pname), jmax, SIZE(xx3htm,2), SIZE(xx3jcbf,2), & SIZE(xx3jcbm,2) CALL graceful_stop (pname) ENDIF ! Check vertical dimensions. IF ( ( SIZE(xx3midl,1) /= SIZE(xx3htm,3) ) .OR. & ( SIZE(xx3midl,1) /= SIZE(xx3jcbm,3) ) ) THEN WRITE (*,f9200) TRIM(pname), SIZE(xx3midl,1), SIZE(xx3htm,3), & SIZE(xx3jcbm,3) CALL graceful_stop (pname) ELSE lbndm = LBOUND(xx3midl,1) ubndm = UBOUND(xx3midl,1) ENDIF IF ( ( SIZE(xx3face,1) /= SIZE(xx3htf,3) ) .OR. & ( SIZE(xx3face,1) /= SIZE(xx3jcbf,3) ) ) THEN WRITE (*,f9300) TRIM(pname), SIZE(xx3face,1), SIZE(xx3htf,3), & SIZE(xx3jcbf,3) CALL graceful_stop (pname) ELSE lbndf = LBOUND(xx3face,1) ubndf = UBOUND(xx3face,1) ENDIF !------------------------------------------------------------------------------- ! Build layer height fields using Jacobian. !------------------------------------------------------------------------------- DO i = 1, imax DO j = 1, jmax ! Full levels xx3htf(i,j,lbndf) = 0.0 DO k = lbndf+1, ubndf xx3htf(i,j,k) = xx3htf(i,j,k-1) + ( xx3face(k) - xx3face(k-1) ) * & xx3jcbm(i,j,lbndm+k-2) ENDDO ! Half levels xx3htm(i,j,lbndm) = ( xx3midl(lbndm) - xx3face(lbndf) ) & * 0.5 * ( xx3jcbf(i,j,lbndf) + xx3jcbm(i,j,lbndm) ) DO k = lbndm+1, ubndm xx3htm(i,j,k) = xx3htm(i,j,k-1) + ( xx3midl(k) - xx3midl(k-1) ) * & xx3jcbf(i,j,lbndf+k-1) ENDDO ENDDO ENDDO END SUBROUTINE layht ================================================ FILE: PREP/mcip/src/ll2xy_lam.f90 ================================================ !------------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------------! SUBROUTINE ll2xy_lam (phi, lambda, phi1, phi2, lambda0, phi0, xx, yy) !------------------------------------------------------------------------------- ! Name: Latitude-Longitude to (X,Y) for Lambert Conformal Projection ! Purpose: Determines secant or tangent Lambert conformal case, and calls ! appropriate routine. ! Revised: 03 Jun 2008 Original version. (T. Otte) ! 26 Nov 2008 Added argument for reference latitude, PHI0. ! Prevent users from having tangent Lambert conformal ! case until it can be tested with the Spatial ! Allocator. (Known problem is that the Spatial ! Allocator does not work properly when the ! reference latitude is equal to the first true ! latitude. Work-around is to set reference latitude ! to average of true latitudes for Lambert conformal. ! But average of true latiudes for tangent Lambert ! conformal case is the first true latitude, which ! will result in the same problem as solution used ! in MCIPv3.4.) (T. Otte) ! 01 Sep 2011 Improved error handling. Changed XX and YY from ! double-precision to single-precision reals. (T. Otte) ! 07 Sep 2011 Updated disclaimer. (T. Otte) !------------------------------------------------------------------------------- IMPLICIT NONE REAL, INTENT(IN) :: lambda ! longitude [deg] REAL, INTENT(IN) :: lambda0 ! standard longitude [deg] REAL, INTENT(IN) :: phi ! latitude [deg] REAL, INTENT(IN) :: phi0 ! reference latitude [deg] REAL, INTENT(IN) :: phi1 ! true latitude 1 [deg] REAL, INTENT(IN) :: phi2 ! true latitude 2 [deg] REAL, PARAMETER :: phitol = 0.001 ! tolerance [deg] CHARACTER(LEN=16), PARAMETER :: pname = 'LL2XY_LAM' REAL, INTENT(OUT) :: xx ! X-coordinate from origin REAL, INTENT(OUT) :: yy ! Y-coordinate from origin !------------------------------------------------------------------------------- ! Error, warning, and informational messages. !------------------------------------------------------------------------------- CHARACTER(LEN=256), PARAMETER :: f9000 = "(/, 1x, 70('*'), & & /, 1x, '*** SUBROUTINE: ', a, & & /, 1x, '*** TANGENT LAMBERT CONFORMAL PROJECTION DETECTED', & & /, 1x, '*** TRUE LATITUDES = ', f8.3, 2x, f8.3, & & /, 1x, '*** MAY NOT WORK PROPERLY IN SPATIAL ALLOCATOR', & & /, 1x, 70('*'))" !------------------------------------------------------------------------------- ! Determine whether Lambert conformal is tangent or secant. !------------------------------------------------------------------------------- IF ( ABS( phi1 - phi2 ) < phitol ) THEN ! tangent case WRITE (*,f9000) TRIM(pname), phi1, phi2 CALL graceful_stop (pname) ! CALL ll2xy_lam_tan (phi, lambda, phi1, lambda0, xx, yy) ELSE ! secant case CALL ll2xy_lam_sec (phi, lambda, phi1, phi2, lambda0, phi0, xx, yy) ENDIF END SUBROUTINE ll2xy_lam ================================================ FILE: PREP/mcip/src/ll2xy_lam_sec.f90 ================================================ !------------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------------! SUBROUTINE ll2xy_lam_sec (phi, lambda, phi1, phi2, lambda0, phi0, xx, yy) !------------------------------------------------------------------------------- ! Name: Latitude-Longitude to (X,Y) for Lambert Conformal Projection ! Purpose: Calculates (X,Y) from origin for a given latitude-longitude pair ! and Lambert conformal projection information for secant case. ! Notes: Equations taken from "Map Projections: Theory and Applications" ! by Frederick Pearson, II (1990), pp. 181-182. ! Revised: 03 Jun 2008 Original version. (T. Otte) ! 04 Dec 2008 Added argument for reference latitude, PHI0. ! Changed routine so it is no longer hard-wired to ! have a reference latitude at the first true ! latitude. (T. Otte and J. Pleim) ! 17 Sep 2009 Corrected inline comments associated with definitions ! of RHO and RHO0. Corrected calculation of PSI (with ! no impact on results). (T. Otte) ! 07 Sep 2011 Updated disclaimer. (T. Otte) !------------------------------------------------------------------------------- USE const, ONLY: rearth IMPLICIT NONE REAL(8) :: deg2rad ! convert degrees to radians REAL(8) :: dlambda ! delta lambda REAL(8) :: drearth ! double-precision radius of earth [m] REAL, INTENT(IN) :: lambda ! longitude [deg] REAL, INTENT(IN) :: lambda0 ! standard longitude [deg] REAL, INTENT(IN) :: phi ! latitude [deg] REAL(8) :: phirad ! latitude [rad] REAL, INTENT(IN) :: phi0 ! reference latitude [deg] REAL(8) :: phi0rad ! reference latitude [rad] REAL, INTENT(IN) :: phi1 ! true latitude 1 [deg] REAL(8) :: phi1rad ! true latitude 1 [rad] REAL, INTENT(IN) :: phi2 ! true latitude 2 [deg] REAL(8) :: phi2rad ! true latitude 2 [rad] REAL(8) :: pi REAL(8) :: piover4 ! pi/4 REAL(8) :: psi ! auxiliary function REAL(8) :: rho ! polar radius to latitude phi REAL(8) :: rho0 ! polar radius to origin REAL(8) :: term REAL(8) :: term0 REAL(8) :: term1 REAL(8) :: term2 REAL(8) :: theta ! polar angle REAL(8) :: sinphi0 ! cone constant REAL, INTENT(OUT) :: xx ! X-coordinate from origin REAL, INTENT(OUT) :: yy ! Y-coordinate from origin !------------------------------------------------------------------------------- ! Compute constants. !------------------------------------------------------------------------------- piover4 = DATAN(1.0d0) pi = 4.0d0 * piover4 deg2rad = pi / 1.8d2 drearth = DBLE(rearth) !------------------------------------------------------------------------------- ! Compute cone constant, SINPHI0. ! Note: PHI0 is the reference latitude, which is user-defined. It is NOT ! used in the calculation of SINPHI0, which is the cone constant. !------------------------------------------------------------------------------- phi0rad = DBLE(phi0) * deg2rad ! convert PHI0 from degrees to radians phi1rad = DBLE(phi1) * deg2rad ! convert PHI1 from degrees to radians phi2rad = DBLE(phi2) * deg2rad ! convert PHI2 from degrees to radians term0 = DTAN (piover4 - phi0rad/2.0d0) term1 = DTAN (piover4 - phi1rad/2.0d0) term2 = DTAN (piover4 - phi2rad/2.0d0) sinphi0 = DLOG ( DCOS(phi1rad) / DCOS(phi2rad) ) sinphi0 = sinphi0 / DLOG (term1 / term2) !------------------------------------------------------------------------------- ! Compute polar angle, THETA. !------------------------------------------------------------------------------- dlambda = DBLE(lambda - lambda0) * deg2rad theta = dlambda * sinphi0 !------------------------------------------------------------------------------- ! Compute polar radius to origin, RHO0, where origin is at PHI0. !------------------------------------------------------------------------------- psi = drearth * DCOS(phi1rad) / sinphi0 / (term1**sinphi0) rho0 = psi * (term0**sinphi0) !------------------------------------------------------------------------------- ! Compute polar radius to latitude PHI, RHO. !------------------------------------------------------------------------------- phirad = DBLE(phi) * deg2rad ! convert PHI from degrees to radians term = DTAN (piover4 - phirad/2.0d0) rho = psi * (term**sinphi0) !------------------------------------------------------------------------------- ! Compute Cartesian coordinates, XX and YY. !------------------------------------------------------------------------------- xx = REAL( rho * DSIN(theta) ) yy = REAL( rho0 - rho * DCOS(theta) ) END SUBROUTINE ll2xy_lam_sec ================================================ FILE: PREP/mcip/src/ll2xy_lam_tan.f90 ================================================ !------------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------------! SUBROUTINE ll2xy_lam_tan (phi, lambda, phi0, lambda0, xx, yy) !------------------------------------------------------------------------------- ! Name: Latitude-Longitude to (X,Y) for Lambert Conformal Projection ! Purpose: Calcluates (X,Y) from origin for a given latitude-longitude pair ! and Lambert conformal projection information for tangent case. ! Notes: Equations taken from "Map Projections: Theory and Applications" ! by Frederick Pearson, II (1990), pp. 168-175. ! Revised: 03 Jun 2008 Original version. (T. Otte) ! 01 Sep 2011 Changed XX and YY from double-precision to single- ! precision reals. (T. Otte) ! 07 Sep 2011 Updated disclaimer. (T. Otte) !------------------------------------------------------------------------------- USE const, ONLY: rearth IMPLICIT NONE REAL(8) :: deg2rad ! convert degrees to radians REAL(8) :: dlambda ! delta lambda REAL(8) :: drearth ! double-precision radius of earth [m] REAL, INTENT(IN) :: lambda ! longitude [deg] REAL, INTENT(IN) :: lambda0 ! standard longitude [deg] REAL, INTENT(IN) :: phi ! latitude [deg] REAL(8) :: phirad ! latitude [rad] REAL, INTENT(IN) :: phi0 ! true latitude [deg] REAL(8) :: phi0rad ! true latitude [rad] REAL(8) :: pi REAL(8) :: piover4 ! pi/4 REAL(8) :: rho ! polar radius to origin REAL(8) :: rho0 ! polar radius to latitude phi REAL(8) :: term REAL(8) :: term0 REAL(8) :: theta ! polar angle REAL(8) :: sinphi0 ! cone constant REAL, INTENT(OUT) :: xx ! X-coordinate from origin REAL, INTENT(OUT) :: yy ! Y-coordinate from origin !------------------------------------------------------------------------------- ! Compute constants. !------------------------------------------------------------------------------- piover4 = DATAN(1.0d0) pi = 4.0d0 * piover4 deg2rad = pi / 1.8d2 drearth = DBLE(rearth) !------------------------------------------------------------------------------- ! Compute cone constant, SINPHI0. !------------------------------------------------------------------------------- phi0rad = phi0 * deg2rad ! convert PHI0 from degrees to radians sinphi0 = DSIN (phi0rad) !------------------------------------------------------------------------------- ! Compute polar angle, THETA. !------------------------------------------------------------------------------- dlambda = (lambda - lambda0) * deg2rad theta = dlambda * sinphi0 !------------------------------------------------------------------------------- ! Compute polar radius to origin, RHO0, where origin is at PHI0. !------------------------------------------------------------------------------- rho0 = drearth * DCOS(phi0rad) / sinphi0 !------------------------------------------------------------------------------- ! Compute polar radius to latitude PHI, RHO. !------------------------------------------------------------------------------- phirad = phi * deg2rad ! convert PHI from degrees to radians term = DTAN (piover4 - phirad /2.0d0) term0 = DTAN (piover4 - phi0rad/2.0d0) rho = rho0 * (( term / term0 )**sinphi0) !------------------------------------------------------------------------------- ! Compute Cartesian coordinates, XX and YY. !------------------------------------------------------------------------------- xx = REAL( rho * DSIN(theta)) yy = REAL(rho0 - rho * DCOS(theta)) END SUBROUTINE ll2xy_lam_tan ================================================ FILE: PREP/mcip/src/ll2xy_merc.f90 ================================================ !------------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------------! SUBROUTINE ll2xy_merc (phi, lambda, lambda0, xx, yy) !------------------------------------------------------------------------------- ! Name: Latitude-Longitude to (X,Y) for Mercator Projection ! Purpose: Calcluates (X,Y) from origin for a given latitude-longitude pair ! and Mercator projection information. ! Notes: Equations taken from "Map Projections: Theory and Applications" ! by Frederick Pearson, II (1990), pp. 190-192. ! Revised: 23 Sep 2009 Original version. (T. Otte) ! 12 Feb 2010 Removed unused variable FAC. (T. Otte) ! 07 Sep 2011 Updated disclaimer. (T. Otte) !------------------------------------------------------------------------------- USE const, ONLY: rearth IMPLICIT NONE REAL(8) :: deg2rad ! convert degrees to radians REAL(8) :: drearth ! earth radius [m] REAL, INTENT(IN) :: lambda0 ! center longitude [deg] REAL(8) :: lambda0rad ! center longitude [rad] REAL, INTENT(IN) :: lambda ! longitude [deg] REAL(8) :: lambdarad ! longitude [rad] REAL, INTENT(IN) :: phi ! latitude [deg] REAL(8) :: phirad ! latitude [rad] REAL(8) :: pi REAL(8) :: piover4 ! pi/4 REAL, INTENT(OUT) :: xx ! X-coordinate from origin REAL, INTENT(OUT) :: yy ! Y-coordinate from origin !------------------------------------------------------------------------------- ! Compute constants. !------------------------------------------------------------------------------- piover4 = DATAN(1.0d0) pi = 4.0d0 * piover4 deg2rad = pi / 1.8d2 drearth = DBLE(rearth) !------------------------------------------------------------------------------- ! Compute Cartesian coordinates, XX and YY. !------------------------------------------------------------------------------- phirad = DBLE(phi) * deg2rad ! convert degrees to radians lambdarad = DBLE(lambda) * deg2rad ! convert degrees to radians lambda0rad = DBLE(lambda0) * deg2rad ! convert degrees to radians xx = REAL( drearth * (lambdarad - lambda0rad) ) yy = REAL( drearth * DLOG( DTAN( piover4 + (phirad/2.0d0) ) ) ) END SUBROUTINE ll2xy_merc ================================================ FILE: PREP/mcip/src/ll2xy_ps.f90 ================================================ !------------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------------! SUBROUTINE ll2xy_ps (phi, lambda, phi1, lambda0, xx, yy) !------------------------------------------------------------------------------- ! Name: Latitude-Longitude to (X,Y) for Polar Stereographic Projection ! Purpose: Calcluates (X,Y) from origin for a given latitude-longitude pair ! and polar stereographic projection information. ! Notes: Adapted from equations found at http://starbase.jpl.nasa.gov/ ! mgn-v-rdrs-5-dvdr-v1.0/gvdr0001/catalog/dsmp.lbl. ! Revised: 28 Sep 2009 Original version. (T. Otte) ! 07 Sep 2011 Updated disclaimer. (T. Otte) !------------------------------------------------------------------------------- USE const, ONLY: rearth IMPLICIT NONE REAL(8) :: deg2rad ! convert degrees to radians REAL(8) :: drearth ! earth radius [m] REAL(8) :: hemi ! +/-1 for Northern/Southern Hemis REAL, INTENT(IN) :: lambda ! longitude [deg] REAL, INTENT(IN) :: lambda0 ! standard longitude [deg] REAL, INTENT(IN) :: phi ! latitude [deg] REAL(8) :: phirad ! latitude [rad] REAL, INTENT(IN) :: phi1 ! true latitude 1 [deg] REAL(8) :: phi1rad ! true latitude 1 [rad] REAL(8) :: pi REAL(8) :: piover4 ! pi/4 REAL(8) :: scalefac REAL(8) :: sigma ! image scale REAL(8) :: theta ! polar angle REAL(8) :: tt REAL, INTENT(OUT) :: xx ! X-coordinate from origin REAL, INTENT(OUT) :: yy ! Y-coordinate from origin !------------------------------------------------------------------------------- ! Compute constants. !------------------------------------------------------------------------------- piover4 = DATAN(1.0d0) pi = 4.0d0 * piover4 deg2rad = pi / 1.8d2 drearth = DBLE(rearth) !------------------------------------------------------------------------------- ! Compute image scale, SIGMA. !------------------------------------------------------------------------------- hemi = DSIGN (1.0d0, DBLE(phi1)) phi1rad = DBLE(phi1) * deg2rad ! convert PHI1 from degrees to radians phirad = DBLE(phi) * deg2rad ! convert PHI from degrees to radians sigma = (1.0d0 + DSIN(phi1rad)) / 2.0d0 * hemi scalefac = drearth / sigma tt = DTAN ( piover4 - phirad/2.0d0) !------------------------------------------------------------------------------- ! Compute polar angle, THETA. !------------------------------------------------------------------------------- theta = DBLE(lambda - lambda0) * deg2rad !------------------------------------------------------------------------------- ! Compute Cartesian coordinates, XX and YY. !------------------------------------------------------------------------------- xx = REAL( 2.0d0 * scalefac * tt * DSIN(theta) ) yy = REAL( -hemi * 2.0d0 * scalefac * tt * DCOS(theta) ) END SUBROUTINE ll2xy_ps ================================================ FILE: PREP/mcip/src/locate.f90 ================================================ !------------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------------! SUBROUTINE locate (xx, x, j) !------------------------------------------------------------------------------- ! Name: Locate ! Purpose: Locates index of value X for given monotonic array XX. ! Input: XX: array of monotonic values ! For our application, it represents vertical coordinate values ! X: Value to bracket in XX ! Output: J: Index where X is located in XX ! XX(J) <= X < XX(J+1) ! *** I hope this is correct - test it DWB ! Notes: This routine is adapted from the Numerical Recipe. ! Revised: ?? ??? 19?? Original version. (D. Byun) ! 10 Sep 2001 Converted to free-form f90. Removed N from ! argument list. (T. Otte) ! 19 Mar 2002 Corrected upper limit on DO loop. (T. Otte) ! 07 Sep 2011 Updated disclaimer. (T. Otte) !------------------------------------------------------------------------------- IMPLICIT NONE INTEGER, INTENT(OUT) :: j INTEGER :: lbnd REAL, PARAMETER :: small = 1.0e-6 INTEGER :: ubnd REAL, INTENT(IN) :: x REAL, INTENT(IN) :: xx ( : ) ! Step thru array 1 element at a time. lbnd = LBOUND(xx,1) ubnd = UBOUND(xx,1) DO j = lbnd, ubnd-1 IF ( ( x+small >= xx(j) ) .AND. ( x < xx(j+1) ) ) EXIT ENDDO END SUBROUTINE locate ================================================ FILE: PREP/mcip/src/lucats_mod.f90 ================================================ !------------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------------! MODULE lucats !------------------------------------------------------------------------------- ! Name: Land Use Categories ! Purpose: Contains input land use classification arrays. ! Revised: 25 Aug 2009 Original version. (T. Otte) ! 01 Sep 2011 Include all land use information as parameter ! statements rather than allocatable and filled later. ! Eliminates need for routines ALLOC_LU, DEALLOC_LU, ! and INIT_LU. (T. Otte) ! 07 Sep 2011 Updated disclaimer. (T. Otte) ! 07 Sep 2012 Added handling for 40-category 2006 NLCD-MODIS land ! use classification as "NLCD40". Added alternate name ! for 50-category 2001 NLCD-MODIS land use classification ! as "NLCD50". Changed LUCATNLCD to LUCATNLCD50 and ! added new field LUCATNLCD40. (T. Otte) ! 01 Feb 2018 Updated MODIS category 21 to be "Lake". (T. Spero) ! 22 Jun 2018 Changed name of module LUVARS to LUCATS to minimize ! confusion. (T. Spero) ! 08 Aug 2018 Corrected bug in setting land use category names in ! MCIP for USGS24 + lakes. (T. Spero) !------------------------------------------------------------------------------- IMPLICIT NONE CHARACTER(LEN=48), PARAMETER :: lucatold ( 13 ) = & ! MM5 "old" (/ "Urban Land ", & ! 1 "Agriculture ", & ! 2 "Range-Grassland ", & ! 3 "Deciduous Forest ", & ! 4 "Coniferous Forest ", & ! 5 "Mixed Forest and Wetland ", & ! 6 "Water ", & ! 7 "Marsh or Wetland ", & ! 8 "Desert ", & ! 9 "Tundra ", & ! 10 "Permanent Ice ", & ! 11 "Tropical or Subtropical Forest ", & ! 12 "Savannah " /) ! 13 CHARACTER(LEN=48), PARAMETER :: lucatusgs24 ( 24 ) = & ! USGS 24-category (/ "Urban Land ", & ! 1 "Dryland Cropland and Pasture ", & ! 2 "Irrigated Cropland and Pasture ", & ! 3 "Mixed Dryland and Irrigated Cropland and Pasture", & ! 4 "Cropland-Grassland Mosaic ", & ! 5 "Cropland-Woodland Mosaic ", & ! 6 "Grassland ", & ! 7 "Shrubland ", & ! 8 "Mixed Shrubland-Grassland ", & ! 9 "Savannah ", & ! 10 "Deciduous Broadleaf Forest ", & ! 11 "Deciduous Needleleaf Forest ", & ! 12 "Evergreen Broadleaf Forest ", & ! 13 "Evergreen Needleleaf Forest ", & ! 14 "Mixed Forest ", & ! 15 "Water ", & ! 16 "Herbaceous Wetland ", & ! 17 "Wooded Wetland ", & ! 18 "Barren or Sparsely Vegetated ", & ! 19 "Herbaceous Tundra ", & ! 20 "Wooded Tundra ", & ! 21 "Mixed Tundra ", & ! 22 "Bare Ground Tundra ", & ! 23 "Snow or Ice " /) ! 24 CHARACTER(LEN=48), PARAMETER :: lucatsib ( 16 ) = & ! SiB (/ "Evergreen Broadleaf Trees ", & ! 1 "Broadleaf Deciduous Trees ", & ! 2 "Deciduous and Evergreen Trees ", & ! 3 "Evergreen Needleleaf Trees ", & ! 4 "Deciduous Needleleaf Trees ", & ! 5 "Ground Cover with Trees and Shrubs ", & ! 6 "Ground Cover Only ", & ! 7 "Broadleaf Shrubs with Perennial Ground Cover ", & ! 8 "Broadleaf Shrubs with Bare Soil ", & ! 9 "Ground Cover with Dwarf Trees and Shrubs ", & ! 10 "Bare Soil ", & ! 11 "Agriculture or C3 Grassland ", & ! 12 "Persistent Wetland ", & ! 13 "Dry Coastal Complexes ", & ! 14 "Water ", & ! 15 "Ice Cap and Glacier " /) ! 16 CHARACTER(LEN=48), PARAMETER :: lucatusgs28 ( 28 ) = & ! USGS 28-category (/ lucatusgs24(1:24), & ! 1-24 "~~~unassigned~~~ ", & ! 25 "~~~unassigned~~~ ", & ! 26 "~~~unassigned~~~ ", & ! 27 "Lake " /) ! 28 CHARACTER(LEN=48), PARAMETER :: lucatusgs33 ( 33 ) = & ! USGS 33-category (/ lucatusgs24(1:24), & ! 1-24 "Playa ", & ! 25 "Lava ", & ! 26 "White Sand ", & ! 27 "~~~unassigned~~~ ", & ! 28 "~~~unassigned~~~ ", & ! 29 "~~~unassigned~~~ ", & ! 30 "Low Intensity Residential ", & ! 31 "High Intensity Residential ", & ! 32 "Industrial or Commercial " /) ! 33 CHARACTER(LEN=48), PARAMETER :: lucatmod ( 33 ) = & ! MODIS-NOAH 33 (/ "Evergreen Needleleaf Forest ", & ! 1 "Evergreen Broadleaf Forest ", & ! 2 "Deciduous Needleleaf Forest ", & ! 3 "Deciduous Broadleaf Forest ", & ! 4 "Mixed Forests ", & ! 5 "Closed Shrublands ", & ! 6 "Open Shrublands ", & ! 7 "Woody Savannas ", & ! 8 "Savannas ", & ! 9 "Grasslands ", & ! 10 "Permanent Wetlands ", & ! 11 "Croplands ", & ! 12 "Urban and Built-Up ", & ! 13 "Cropland-Natural Vegetation Mosaic ", & ! 14 "Snow and Ice ", & ! 15 "Barren or Sparsely Vegetated ", & ! 16 "Water ", & ! 17 "Wooded Tundra ", & ! 18 "Mixed Tundra ", & ! 19 "Barren Tundra ", & ! 20 "Lake (if from WRFv3.8 or later) ", & ! 21 "~~~unassigned~~~ ", & ! 22 "~~~unassigned~~~ ", & ! 23 "~~~unassigned~~~ ", & ! 24 "~~~unassigned~~~ ", & ! 25 "~~~unassigned~~~ ", & ! 26 "~~~unassigned~~~ ", & ! 27 "~~~unassigned~~~ ", & ! 28 "~~~unassigned~~~ ", & ! 29 "~~~unassigned~~~ ", & ! 30 "Low Intensity Residential ", & ! 31 "High Intensity Residential ", & ! 32 "Industrial or Commercial " /) ! 33 CHARACTER(LEN=48), PARAMETER :: lucatnlcd50 ( 50 ) = & ! NLCD-MODIS 50 (/ "Open Water ", & ! 1 "Perennial Ice-Snow ", & ! 2 "Developed Open Space ", & ! 3 "Developed Low Intensity ", & ! 4 "Developed Medium Intensity ", & ! 5 "Developed High Intensity ", & ! 6 "Barren Land (Rock-Sand-Clay) ", & ! 7 "Unconsolidated Shore ", & ! 8 "Deciduous Forest ", & ! 9 "Evergreen Forest ", & ! 10 "Mixed Forest ", & ! 11 "Dwarf Scrub ", & ! 12 "Shrub-Scrub ", & ! 13 "Grassland-Herbaceous ", & ! 14 "Sedge-Herbaceous ", & ! 15 "Lichens ", & ! 16 "Moss ", & ! 17 "Tundra ", & ! 18 "Pasture-Hay ", & ! 19 "Cultivated Crops ", & ! 20 "Woody Wetlands ", & ! 21 "Palustrine Forested Wetland ", & ! 22 "Palustrine Scrub-Shrub Wetland ", & ! 23 "Estuarine Forested Wetland ", & ! 24 "Estuarine Scrub-Shrub Wetland ", & ! 25 "Emergent Herbaceous Wetlands ", & ! 26 "Palustrine Emergent Wetland ", & ! 27 "Estuarine Emergent Wetland ", & ! 28 "Palustrine Aquatic Bed ", & ! 29 "Estuarine Aquatic Bed ", & ! 30 "Water ", & ! 31 "Evergreen Needleleaf Forest ", & ! 32 "Evergreen Broadleaf Forest ", & ! 33 "Deciduous Needleleaf Forest ", & ! 34 "Deciduous Broadleaf Forest ", & ! 35 "Mixed Forests ", & ! 36 "Closed Shrublands ", & ! 37 "Open Shrublands ", & ! 38 "Woody Savannas ", & ! 39 "Savannas ", & ! 40 "Grasslands ", & ! 41 "Permanent Wetlands ", & ! 42 "Croplands ", & ! 43 "Urban and Built Up ", & ! 44 "Cropland-Natural Vegetation Mosaic ", & ! 45 "Permanent Snow and Ice ", & ! 46 "Barren or Sparsely Vegetated ", & ! 47 "IGBP Water ", & ! 48 "unclassified ", & ! 49 "fill value " /) ! 50 CHARACTER(LEN=48), PARAMETER :: lucatnlcd40 ( 40 ) = & ! NLCD-MODIS 40 (/ "Evergreen Needleleaf Forest ", & ! 1 "Evergreen Broadleaf Forest ", & ! 2 "Deciduous Needleleaf Forest ", & ! 3 "Deciduous Broadleaf Forest ", & ! 4 "Mixed Forest ", & ! 5 "Closed Shrublands ", & ! 6 "Open Shrublands ", & ! 7 "Woody Savanna ", & ! 8 "Savanna ", & ! 9 "Grasslands ", & ! 10 "Permanent Wetlands ", & ! 11 "Croplands ", & ! 12 "Urban and Built-up ", & ! 13 "Cropland-Natural Vegetation Mosaic ", & ! 14 "Snow and Ice ", & ! 15 "Barren or Sparsely Vegetated ", & ! 16 "IGBP water ", & ! 17 "unclassified ", & ! 18 "fill value (normally ocean water) ", & ! 19 "unclassified ", & ! 20 "Open water ", & ! 21 "Perrenial Ice/snow ", & ! 22 "Developed open space ", & ! 23 "Developed Low Intensity ", & ! 24 "Developed Medium Intensity ", & ! 25 "Developed High Intensity ", & ! 26 "Barren Land ", & ! 27 "Deciduous Forest ", & ! 28 "Evergreen Forest ", & ! 29 "Mixed Forest ", & ! 30 "Dwarf Scrub ", & ! 31 "Shrub/Scrub ", & ! 32 "Grassland/Herbaceous ", & ! 33 "Sedge/Herbaceous ", & ! 34 "Lichens ", & ! 35 "Moss ", & ! 36 "Pasture/Hay ", & ! 37 "Cultivated Crops ", & ! 38 "Woody Wetland ", & ! 39 "Emergent Herbaceous Wetland " /) ! 40 END MODULE lucats ================================================ FILE: PREP/mcip/src/mapfac_lam.f90 ================================================ !------------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------------! REAL FUNCTION mapfac_lam (phi, phi1, phi2) !------------------------------------------------------------------------------- ! Name: Map-Scale Factor for Lambert conformal projection. ! Purpose: Calculates map-scale factors for secant Lambert conformal projection ! from latitude and true latitudes. ! Notes: Equations taken from "Numerical Prediction and Dynamic Meteorology", ! Second Edition, by George J. Haltiner and Roger Terry Williams ! (1980), pp. 13-14. (Equations modified; see comments in code.) ! Revised: 03 Sep 2009 Original version. (T. Otte) ! 07 Sep 2011 Updated disclaimer. (T. Otte) !------------------------------------------------------------------------------- IMPLICIT NONE REAL(8) :: deg2rad ! convert degrees to radians REAL, INTENT(IN) :: phi ! latitude [deg] REAL(8) :: phirad ! latitude [rad] REAL, INTENT(IN) :: phi1 ! true latitude 1 [deg] REAL(8) :: phi1rad ! true latitude 1 [rad] REAL, INTENT(IN) :: phi2 ! true latitude 2 [deg] REAL(8) :: phi2rad ! true latitude 2 [rad] REAL(8) :: pi REAL(8) :: piover4 ! pi/4 REAL(8) :: sinphi0 ! cone constant REAL(8) :: term1 REAL(8) :: term2 REAL(8) :: term3 REAL(8) :: term4 REAL(8) :: term5 !------------------------------------------------------------------------------- ! Compute constants. !------------------------------------------------------------------------------- piover4 = DATAN(1.0d0) pi = 4.0d0 * piover4 deg2rad = pi / 1.8d2 !------------------------------------------------------------------------------- ! Compute cone constant, SINPHI0. ("K" in Haltiner and Williams, Eqn. 1-40.) !------------------------------------------------------------------------------- phi1rad = DBLE(phi1) * deg2rad ! convert PHI1 from degrees to radians phi2rad = DBLE(phi2) * deg2rad ! convert PHI2 from degrees to radians term1 = DTAN (piover4 - phi1rad/2.0d0) term2 = DTAN (piover4 - phi2rad/2.0d0) sinphi0 = DLOG ( DCOS(phi1rad) / DCOS(phi2rad) ) sinphi0 = sinphi0 / DLOG (term1 / term2) !------------------------------------------------------------------------------- ! Compute map-scale factor, MAPFAC. ! ! M(phi) = (COS phi / COS phi1)**(K - 1) * ((1 + SIN phi1) / (1 + SIN phi))**K ! Note: Original equation in Haltiner and Williams (1-40) is incorrect because ! K-1 and K are exponents rather than multiplicative terms. !------------------------------------------------------------------------------- phirad = DBLE(phi) * deg2rad ! convert PHI from degrees to radians term3 = DCOS(phirad) / DCOS(phi1rad) term4 = sinphi0 - 1.0 term5 = (1.0d0 + DSIN(phi1rad)) / (1.0d0 + DSIN(phirad)) mapfac_lam = REAL(term3**term4 * term5**sinphi0) END FUNCTION mapfac_lam ================================================ FILE: PREP/mcip/src/mapfac_merc.f90 ================================================ !------------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------------! REAL FUNCTION mapfac_merc (phi) !------------------------------------------------------------------------------- ! Name: Map-Scale Factor for Mercator projection ! Purpose: Calculates map-scale factors for Mercator projection from latitude. ! Notes: Equation taken from "Numerical Prediction and Dynamic Meteorology", ! Second Edition, by George J. Haltiner and Roger Terry Williams ! (1980), pp. 13. ! Revised: 15 Sep 2009 Original version. (T. Otte) ! 07 Sep 2011 Updated disclaimer. (T. Otte) !------------------------------------------------------------------------------- IMPLICIT NONE REAL(8) :: deg2rad ! convert degrees to radians REAL, INTENT(IN) :: phi ! latitude [deg] REAL(8) :: phirad ! latitude [rad] REAL(8) :: pi REAL(8) :: piover4 ! pi/4 !------------------------------------------------------------------------------- ! Compute constants. !------------------------------------------------------------------------------- piover4 = DATAN(1.0d0) pi = 4.0d0 * piover4 deg2rad = pi / 1.8d2 !------------------------------------------------------------------------------- ! Compute map-scale factor, MAPFAC. ! ! M(phi) = COS phi0 / COS phi ! ! where phi0 is the latitude of the "true" projection (assumed to be equator) !------------------------------------------------------------------------------- phirad = DBLE(phi) * deg2rad ! convert PHI from degrees to radians mapfac_merc = REAL( 1.0d0 / DCOS(phirad) ) END FUNCTION mapfac_merc ================================================ FILE: PREP/mcip/src/mapfac_ps.f90 ================================================ !------------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------------! REAL FUNCTION mapfac_ps (phi, phi1) !------------------------------------------------------------------------------- ! Name: Map-Scale Factor for polar stereographic projection. ! Purpose: Calculates map-scale factors for polar stereographic projection ! from latitude. ! Notes: Equation taken from "Numerical Prediction and Dynamic Meteorology", ! Second Edition, by George J. Haltiner and Roger Terry Williams ! (1980), pp. 11-13. ! Revised: 24 Sep 2009 Original version. (T. Otte) ! 21 Sep 2010 Corrected error in calculation that assumed that ! true latitude was at the pole. Now calculation ! correctly accounts for true latitude. (T. Otte) ! 07 Sep 2011 Updated disclaimer. (T. Otte) !------------------------------------------------------------------------------- IMPLICIT NONE REAL(8) :: deg2rad ! convert degrees to radians REAL(8) :: hemi ! +/-1 for Northern/Southern Hemis REAL, INTENT(IN) :: phi ! latitude [deg] REAL(8) :: phirad ! latitude [rad] REAL(8) :: phi1rad ! true latitude 1 [rad] REAL, INTENT(IN) :: phi1 ! true latitude 1 [deg] REAL(8) :: pi REAL(8) :: piover4 ! pi/4 !------------------------------------------------------------------------------- ! Compute constants. !------------------------------------------------------------------------------- piover4 = DATAN(1.0d0) pi = 4.0d0 * piover4 deg2rad = pi / 1.8d2 !------------------------------------------------------------------------------- ! Compute map-scale factor, MAPFAC. ! ! M(phi) = (1 + SIN(hemi*phi1)) / (1 + SIN phi) !------------------------------------------------------------------------------- hemi = DSIGN( 1.0d0, DBLE(phi1) ) phirad = DBLE(phi) * deg2rad ! convert PHI from degrees to radians phi1rad = DBLE(phi1) * deg2rad ! convert PHI1 from degrees to radians mapfac_ps = REAL( (1.0d0 + hemi * DSIN(phi1rad)) / (1.0d0 + DSIN(phirad)) ) END FUNCTION mapfac_ps ================================================ FILE: PREP/mcip/src/mcip.f90 ================================================ !------------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------------! PROGRAM mcip !------------------------------------------------------------------------------- ! Name: Meteorology-Chemistry Interface Processor ! Purpose: Generates a complete set of meteorological data for transport ! processors of Models-3 CTM. ! Revised: 25 Jan 1997 Original version. (D. Byun) ! 20 May 1997 Adapted for Models-3 BETA system. (D. Byun) ! 05 Nov 1997 Nonhydrostatic/hydrostatic output function. (D. Byun) ! 04 Feb 1998 Changed include method for nonglobals. (D. Byun) ! 13 Mar 1998 Get JUDATE in YYYYDDD. (J. Young) ! 24 Mar 1998 Added SOLAR to calculate radiation. (A. Bourgeois) ! 20 Sep 2001 Rewrote and restructured entire program. ! Converted to free-form f90. Added, deleted, and ! modified several subroutines, variables, and ! modules. (T. Otte) ! 03 Oct 2001 Added call to WRGDESC to write GRIDDESC file. (T. Otte) ! 29 Jan 2002 Created module DATE_TIME for SDATE and STIME. Altered ! format for successful end-of-program. (T. Otte) ! 03 Aug 2004 Added initialization of I/O API. Added flag to create ! static output (grid) files. (T. Otte) ! 26 May 2005 Changed replaced call to SETUPMM5 with call to SETUP ! to make code more general. (T. Otte) ! 11 Aug 2005 Added calls to new routines ALLOC_DEPV, INIT_DEPV, ! and DEALLOC_DEPV. (T. Otte) ! 09 Apr 2007 Added option to bypass dry deposition velocity ! calculations in MCIP so that they can be performed ! in the CCTM. (T. Otte) ! 28 Apr 2008 Added user option to process observed cloud fields ! for satellite photolysis adjustment. Requires ! additional data sets and preprocessing package ! available from University of Alabama at Huntsville. ! Contributed by University of Alabama at Huntsville. ! (A. Biazar and T. Otte) ! 25 Aug 2009 Added calls to ALLOC_LU, INIT_LU, and DEALLOC_LU to ! set up land-use classification information. (T. Otte) ! 12 Feb 2010 Removed unused variable GMT from subroutines GETSDT ! and DYNFLDS. (T. Otte) ! 19 Mar 2010 Added echo of metadata summary to MCIP log file. ! (T. Otte) ! 09 Sep 2010 Removed option to compute dry deposition velocities ! in MCIP. Removed arguments SDATE and STIME from ! subroutine DYNFLDS. (T. Otte) ! 30 Aug 2011 Changed name of module FILE to FILES to avoid conflict ! with F90 protected intrinsic. Removed calls to ! ALLOC_LU, DEALLOC_LU, and INIT_LU. (T. Otte) ! 07 Sep 2011 Updated disclaimer. (T. Otte) ! 13 Feb 2018 Added optional output files for land use, soil, and ! mosaic data. Changed print statement preceding the ! printing of metadata in the log file. (T. Spero) ! 27 Jun 2018 Added call to INIT_CTM. (T. Spero) ! 14 Sep 2018 Removed support for MM5v3 input. (T. Spero) ! 18 Dec 2018 Separated parsing and processing of output fields on ! the CCTM grid from the output routines. Removed ! runtime option to not output time-independent files. ! (T. Spero) ! 09 Jul 2019 Remove argument CTMLAYS from subroutine READNML. ! (T. Spero) !------------------------------------------------------------------------------- USE mcipparm USE date_pack USE date_time USE files IMPLICIT NONE REAL :: ctmlays ( maxlays ) LOGICAL :: first = .TRUE. CHARACTER(LEN=24) :: mcip_next ! YYYY-MO-DD-HH:MI:SS.SSSS CHARACTER(LEN=24) :: mcip_now ! YYYY-MO-DD-HH:MI:SS.SSSS !------------------------------------------------------------------------------- ! Error, warning, and informational messages. !------------------------------------------------------------------------------- CHARACTER(LEN=256), PARAMETER :: f100 = "(//, 1x, 78('~'), & & /, 1x, '~~~ Processing meteorology for time = ', a, & & /, 1x, 78('~'), /)" CHARACTER(LEN=256), PARAMETER :: f200 = "(//, 1x, 78('~'), & & /, 1x, '~~~ Metadata summary', & & /, 1x, 78('~'), /)" !------------------------------------------------------------------------------- ! Initialize I/O API. !------------------------------------------------------------------------------- CALL init_io !------------------------------------------------------------------------------- ! Read user options from namelist. !------------------------------------------------------------------------------- CALL vstamp CALL readnml mcip_now = mcip_start CALL getsdt (mcip_now, sdate, stime) !------------------------------------------------------------------------------- ! Set up input meteorology. !------------------------------------------------------------------------------- CALL setup (ctmlays) !------------------------------------------------------------------------------- ! Set up grid definitions from input meteorology and user input. !------------------------------------------------------------------------------- CALL setgriddefs !------------------------------------------------------------------------------- ! Allocate necessary arrays. !------------------------------------------------------------------------------- CALL alloc_met CALL alloc_x CALL alloc_ctm !------------------------------------------------------------------------------- ! Initialize arrays. !------------------------------------------------------------------------------- CALL init_met CALL init_x CALL init_ctm !------------------------------------------------------------------------------- ! Fill vertical arrays. !------------------------------------------------------------------------------- CALL vertarys (ctmlays) !------------------------------------------------------------------------------- ! Loop over time to get input, process fields, and write output. !------------------------------------------------------------------------------- timeloop: DO WRITE (*,f100) mcip_now CALL getmet (mcip_now) ! Read input meteorology file. IF ( first ) THEN CALL statflds ! Put time-independent fields on MCIP grid CALL gridproc ! Parse and process time-independent data. first = .FALSE. ENDIF CALL dynflds ! Put time-varying fields on MCIP grid. CALL ctmproc ! Parse and process time-varying data. CALL gridout (sdate, stime) ! Output time-independent data. CALL ctmout (mcip_now, sdate, stime) ! Output time-varying data. ! Update SDATE and STIME for next I/O API header. CALL geth_newdate (mcip_next, mcip_now, intvl*60) IF ( mcip_next > mcip_end ) EXIT timeloop mcip_now = mcip_next CALL getsdt (mcip_now, sdate, stime) ENDDO timeloop WRITE (*,f200) WRITE (*,'(a)') fdesc(:) !------------------------------------------------------------------------------- ! Deallocate arrays. !------------------------------------------------------------------------------- CALL dealloc_met CALL dealloc_x CALL dealloc_ctm !------------------------------------------------------------------------------- ! Close output files. !------------------------------------------------------------------------------- CALL close_files WRITE (*,'(//, a)') 'NORMAL TERMINATION' END PROGRAM mcip ================================================ FILE: PREP/mcip/src/mcipparm_mod.f90 ================================================ !------------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------------! MODULE mcipparm !------------------------------------------------------------------------------- ! Name: MCIP Parameters ! Purpose: Contains MCIP parameters. ! Revised: 28 Jan 1997 Original version. (D. Byun) ! 16 May 1997 Moved land use parameters into LANDPARM.EXT. (???) ! 23 May 1997 Include MAXI, MAXJ, MAXK definitions. (???) ! 01 May 2000 Added NTHIK=0 option. (???) ! 20 Sep 2001 Converted to free-form f90 and changed name from ! MCIPPARM.EXT to module_mcipparm.F. Removed ! explicit parameter definitions of grid dimensions. ! Added several variables formerly contained in ! MCIPCOM such that all user definitions (aside from ! those in the input meteorology) are contained in ! this module. Added two new dry deposition species ! for atrazine. (T. Otte) ! 03 Oct 2001 Added variable COORDNAM. (T. Otte) ! 14 Jan 2002 Added new dry deposition species, methanol. ! (Y. Wu and T. Otte) ! 09 Jun 2003 Added new dry deposition species: N2O5, NO3, and ! generic aldehyde. Removed dry deposition species, ! ATRA and ATRAP, from output. (D. Schwede and T. Otte) ! 11 Aug 2004 Modified code so that arrays are made available in ! output only if user options in MM5 generate those ! data, so NQSPECIES and NPXFIELDS are new variables. ! Added T2OUT. Removed MAXVAR and LUTYPE. Moved LWATER ! here from LRADMDAT. (T. Otte) ! 29 Nov 2004 Added IFLUFRC to determine if fractional land use ! fields will be processed. Added NUMMETLU to include ! number of land use categories in incoming meteorology ! data. (T. Otte) ! 26 May 2005 Removed NDX and option to interpolate to finer scale ! meteorology. Removed I0LUSE, J0LUSE, and BMAX, which ! are no longer used. Removed NDEP and made its usage ! explicit in PBLPKG and RADMDRY. Removed IWIND and ! made its usage explicit in VERTHYD. Changed NCG_I and ! NCG_J to NCG_X and NCG_Y, changed I0 and J0 to X0 and ! Y0, and changed LPRT_METI and LPRT_METJ to LPRT_METX ! and LPRT_METY to make code more general. Added ! new variables LDDGAS, LDDCL, and LDDHG to account for ! optional dry deposition of chlorine and mercury ! species. Allowed LTOTG to be defined later from ! LDDGAS, LDDCL, and LDDHG. Increased MAXLAYS from 50 ! to 100. Added logical variable NEEDLAYERS to allow ! users to use all input meteorology layers in MCIP ! without specifying in the namelist a priori. (T. Otte) ! 19 Aug 2005 Removed unused variables NO_MAX and NO_MIN. Updated ! comment on definition of ISESN. (T. Otte) ! 01 Aug 2007 Added IMPLICIT NONE. Removed user options for LPBL, ! LRAD, LCLD, and LHYDOUT. Updated comment for LDDEP ! to reflect new option (0) and removed options (1-3). ! Removed RADMdry variable ISESN. Removed T2OUT. ! Moved IFT2M and IFW10M from module METINFO. Created ! new variables IFVEG, IFLAI, IFMOL, IFRESIST, IFWR, and ! IFSOIL. Eliminated logical variable PX and NPXFIELDS. ! Eliminated two obsolete chlorine species. Moved ! program and version descriptors from VSTAMP to here. ! Added array FDESC to capture metadata. (T. Otte) ! 03 Nov 2008 Removed NTHIKD and NBNDYD. Added IFQ2M, IFTKE, IFTKEF, ! and ERADM. Increased number of dry deposition species ! from 26 to 31. Updated release stamp. (T. Otte) ! 24 Nov 2008 Updated release stamp. (T. Otte) ! 23 Dec 2008 Added user-definable reference latitude for WRF ! Lambert conformal data sets. Best used for ! consistency with existing MM5 data sets. Updated ! release stamp. (T. Otte) ! 29 Oct 2009 Added user-definable option to compute and output ! 3D potential vorticity (LPV). Added user-definable ! option to output meteorological model's vertical ! velocity (WWIND). Added user-definable option to ! output u- and v-component winds on C-staggered grid. ! Added logical variable IFLUWRFOUT to determine if ! land use fractions are in WRF output or GEOGRID output. ! Added logical variable IFZNT to determine if roughness ! length is in input meteorological model file. Updated ! release stamp. (T. Otte) ! 19 Mar 2010 Updated release stamp. (T. Otte) ! 20 Jan 2011 Removed option to compute dry deposition velocities ! in MCIP. Added logical variable NEEDSEAICE to cue ! approximation of sea ice field if it is not available ! in input. Moved LWATER to be a local variable in ! GETLUSE. Updated release stamp. (T. Otte) ! 01 Sep 2011 Replaced module FDESC3 with I/O API module M3UTILIO. ! Replaced F77 character declarations with F90 standard. ! (T. Otte) ! 07 Sep 2011 Updated disclaimer. (T. Otte) ! 09 Sep 2011 Updated release stamp. (T. Otte) ! 11 May 2012 Updated release stamp. (T. Otte) ! 21 Aug 2012 Updated release stamp. (T. Otte) ! 11 Sep 2012 Updated release stamp. (T. Otte) ! 30 Sep 2013 Updated release stamp. (T. Otte) ! 26 Nov 2014 Updated release stamp. (T. Spero) ! 27 Apr 2015 Added logical variable IFCLD3D to indicate if 3D cloud ! fraction field is available in incoming meteorological ! model output and represents resolved cloud fraction. ! Updated release stamp. (T. Spero) ! 25 Aug 2015 Added variable IFMOLACM to control whether Monin- ! Obukhov length calculation will be updated with ! "corrector" portion of predictor-corrector from ! WRF/ACM2. Updated release stamp. (T. Spero) ! 08 Sep 2015 Updated release stamp. (T. Spero) ! 17 Sep 2015 Changed IFMOLACM to IFMOLPX. Updated release stamp. ! (T. Spero) ! 20 Jun 2017 Updated release stamp. (T. Spero) ! 16 Mar 2018 Added variables TTOL_SEC, IFLU2WRFOUT, IFMOSAIC, ! NUMMOSAIC, and METSOI. Removed variables MAXLUC, ! METROW, and METCOL. Updated release stamp. (T. Spero) ! 27 Jun 2018 Added netCDF fill value (FILLREAL and FILLINT) and ! missing value (XMISSING) tokens. Added counters for ! number of output fields in each category. (T. Spero) ! 18 Dec 2018 Updated to use new data structures. Added runtime ! option to choose output format. Updated release ! stamp. (T. Spero) ! 19 Jun 2019 Removed layer collapsing. Added flag for new surface ! variables with PX LSM that can improve dust ! simulation in CCTM. Changed variable LUVCOUT to ! LUVBOUT to reflect that the default 3D wind components ! are now on the Arakawa-C staggered grid, and the ! optional additional 3D winds are on the Arakawa-B ! staggered grid. Added a flag to indicate if the ! convective scheme included radiative feedbacks. Added ! a flag for extra variables available with KF convective ! scheme with radiative feedbacks. (T. Spero) ! 15 Jul 2019 Updated release stamp. (T. Spero) ! 21 Nov 2019 Updated release stamp. (T. Spero) ! 06 Mar 2020 Updated the version stamp. (T. Spero) ! 30 Jun 2021 Updated the version stamp. Beginning with this ! release, version for MCIP will become consistent ! with CMAQ. Therefore, the versioning skips from ! MCIPv5.1 to MCIPv5.3.3. (T. Spero) ! 12 Jul 2022 Updated version stamp. (M. Mallard) ! 19 Sep 2024 Updated version stamp. (T. Spero) !------------------------------------------------------------------------------- USE m3utilio, ONLY: mxdesc3 IMPLICIT NONE !------------------------------------------------------------------------------- ! Token parameters for netCDF. !------------------------------------------------------------------------------- INTEGER, PARAMETER :: fillint = -9e8 ! netCDF _FillValue REAL, PARAMETER :: fillreal = -9.0e20 ! netCDF _FillValue REAL, PARAMETER :: xmissing = -1.0e20 ! netCDF missing_value !------------------------------------------------------------------------------- ! Dimensions for netCDF output. !------------------------------------------------------------------------------- INTEGER :: nlucat INTEGER :: nmos INTEGER :: nperim INTEGER :: nsoi INTEGER :: nsoicat INTEGER :: nx INTEGER :: nxp1 ! nx + 1 INTEGER :: ny INTEGER :: nyp1 ! ny + 1 INTEGER :: nz INTEGER :: nzp1 ! nz + 1 !------------------------------------------------------------------------------- ! Number of output fields in each category. !------------------------------------------------------------------------------- INTEGER :: nfld2dxy ! time-independent 2d cell centers INTEGER :: nfld2dxy_d ! time-independent 2d cell corners/faces INTEGER :: nfld2dxyt ! time-varying 2d cell centers INTEGER :: nfld3dxyl ! time-independent 3d (lu) cell centers INTEGER :: nfld3dxym ! time-independent 3d (mos) cell centers INTEGER :: nfld3dxymt ! time-3d (mos) cell centers INTEGER :: nfld3dxyst ! time-varying 3d (soil) cell centers INTEGER :: nfld3dxyzt ! time-varying 3d cell centers INTEGER :: nfld3dxyzt_d ! time-varying 3d cell corners/faces INTEGER :: nfld3dxyzt_q ! time-varying 3d cell centers (moisture) !------------------------------------------------------------------------------- ! Dimensions of CTM domain. !------------------------------------------------------------------------------- INTEGER :: ncols ! number of grid columns (X direction) INTEGER :: nrows ! number of grid rows (Y direction) INTEGER :: nlays ! number of vertical layers INTEGER, PARAMETER :: nthik = 1 ! boundary thickness (cells) INTEGER :: nbndy ! number of cells in one layer of boundary INTEGER :: nbdrytrim ! number of meteorology "boundary" points ! to remove (on each of four sides) INTEGER :: ncg_x ! coarse grid X INTEGER :: ncg_y ! coarse grid Y INTEGER, PARAMETER :: maxlays = 100 ! max allowed in NLAYS INTEGER, PARAMETER :: ttol_sec = 300 ! time tolerance [in seconds] for output ! from the meteorological model to ! deviate from valid time and still be ! considered valid at that time !------------------------------------------------------------------------------- ! Dimensions of "X" domain (CTM + BNDARY area). !------------------------------------------------------------------------------- INTEGER :: metlay ! met. grid dimension for layers INTEGER :: metsoi ! number of soil layers INTEGER :: nrows_x INTEGER :: ncols_x !------------------------------------------------------------------------------- ! Other dimensional parameters. !------------------------------------------------------------------------------- INTEGER :: nqspecies ! number of hydrometeor species in met INTEGER :: nummetlu ! number of met. land use categories INTEGER :: nummosaic ! number of mosaic land use categories REAL :: eradm ! earth radius [m] REAL :: wrf_lc_ref_lat ! WRF Lambert conformal ref. latitude !------------------------------------------------------------------------------- ! Flags to indicate whether or not fields are available in input meteorology. !------------------------------------------------------------------------------- LOGICAL :: ifcld3d ! 3D resolved clouds in input file? LOGICAL :: ifcuradfdbk ! cumulus-radiative feedbacks used? LOGICAL :: ifkfradextras ! KF-radiative feedbacks extra arrays? LOGICAL :: iflai ! leaf area index in input file? LOGICAL :: iflufrc ! fractional land use available? LOGICAL :: ifluwrfout ! is fractional land use in WRF history? LOGICAL :: iflu2wrfout ! is fractional land use 2 in WRF history? LOGICAL :: ifmol ! Monin-Obukhov length in input file? LOGICAL :: ifmolpx ! MOL to be updated from WRF/PX? LOGICAL :: ifmosaic ! NOAH Mosaic LSM used in WRF? LOGICAL :: ifpxwrf41 ! WRFv4.1 + PX additional sfc vars? LOGICAL :: ifq2m ! 2-m mixing ratio in input file? LOGICAL :: ifrcurb ! get PURB from urban canopy model? LOGICAL :: ifresist ! aero and stom resistances in input file? LOGICAL :: ifsoil ! soil mois, temp, and type in input file? LOGICAL :: ift2m ! 2-m temperature in input file? LOGICAL :: iftke ! turbulent kinetic energy in input file? LOGICAL :: iftkef ! TKE (if exists) on full levels? LOGICAL :: ifveg ! vegetation fraction in input file? LOGICAL :: ifw10m ! 10-m wind components in input file? LOGICAL :: ifwr ! canopy wetness in input file? LOGICAL :: ifznt ! roughness length in input file? LOGICAL :: needseaice ! sea ice in input file? !------------------------------------------------------------------------------- ! Run Options. !------------------------------------------------------------------------------- INTEGER :: lpv ! user input: 0 = Do not compute or output PV ! 1 = Compute and output PV INTEGER :: lwout ! user input: 0 = Do not output WWIND ! 1 = Output WWIND INTEGER :: luvbout ! user input: 0 = Do not output UWIND and VWIND, ! and use UWINDC and VWINDC instead ! 1 = Output UWIND and VWIND ! in addition to UWINDC and VWINDC !------------------------------------------------------------------------------- ! Grid/Domain Related Parameters !------------------------------------------------------------------------------- INTEGER :: x0 ! user input: lower-left corner of CTM on met grid INTEGER :: y0 ! user input: lower-left corner of CTM on met grid !------------------------------------------------------------------------------- ! Run Time Specifications !------------------------------------------------------------------------------- CHARACTER(LEN=24) :: mcip_start ! user input: YYYY-MO-DD-HH:MI:SS.SSSS CHARACTER(LEN=24) :: mcip_end ! user input: YYYY-MO-DD-HH:MI:SS.SSSS INTEGER :: intvl ! user input: time interval for output [min] INTEGER :: grstep ! calculated from INTVL (HHMMSS) CHARACTER(LEN=16) :: coordnam ! user input: Coordinate name CHARACTER(LEN=16) :: grdnam ! user input: Grid name INTEGER :: ioform ! user input: 1 = Models-3 I/O API ! 2 = netCDF !------------------------------------------------------------------------------- ! Coordinates for diagnostic prints. !------------------------------------------------------------------------------- INTEGER :: lprt_metx ! X-coordinate in MET domain INTEGER :: lprt_mety ! Y-coordinate in MET domain INTEGER :: lprt_col ! COL-coordinate in output domain INTEGER :: lprt_row ! ROW-coordinate in output domain INTEGER :: lprt_xcol ! COL-coordinate in X domain INTEGER :: lprt_xrow ! ROW-coordinate in X domain !------------------------------------------------------------------------------- ! Program and version descriptors. !------------------------------------------------------------------------------- CHARACTER(LEN=80) :: fdesc ( mxdesc3 ) CHARACTER(LEN=16), PARAMETER :: progname = 'MCIP' CHARACTER(LEN=10), PARAMETER :: vdate = '09/19/2024' CHARACTER(LEN=8), PARAMETER :: ver = 'V5.5' END MODULE mcipparm ================================================ FILE: PREP/mcip/src/metgrid2ctm.f90 ================================================ !------------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------------! SUBROUTINE metgrid2ctm !------------------------------------------------------------------------------- ! Name: Meteorology Grid to CTM Grid ! Purpose: Puts time-invariant meteorology arrays on CTM grid. ! Notes: Algorithms taken from MCIP v1 getmet_mm5.F. ! Revised: 17 Sep 2001 Original version. (T. Otte) ! 16 Oct 2001 Corrected error in translation between input ! domain and MCIP "X" domain. (T. Otte) ! 21 Dec 2001 Changed order of variable declarations in interface ! to improve portability. (S. Howard and T. Otte) ! 22 Jan 2002 Added definition of XPRSFC for non-hydrostatic ! runs. (T. Otte) ! 26 Mar 2003 Simplified algorithm to map input meteorology to ! MCIP_X domain. Enabled dot-point MCIP_X arrays to ! be filled to the correct dimensions. (T. Otte) ! 07 Jul 2004 Removed XFLAGS. (T. Otte) ! 21 Jan 2005 Removed NDX and option to interpolate to finer scale ! meteorology. Changed I and J to X and Y to make ! code more general. Added optimization of loops ! using F90 implicit loop structures. (T. Otte and ! D. Wong) ! 19 Jun 2006 Removed unused variables COL, II, IIL, JJ, JJL, LU, ! PNAME, and ROW. (T. Otte) ! 31 Jul 2007 Removed use of MET_INHYD for MM5 processing. Removed ! filling of XPRSFC with reference pressure here since ! it is not used and is now saved from REFSTATE. ! Removed dependency on module METINFO. (T. Otte) ! 17 Sep 2009 Added map-scale factors squared (on cross points, ! XMAPC2) to minimize repeated squaring in other places ! in MCIP. Added latitude, longitude, and map-scale ! factors on U and V faces. (T. Otte) ! 07 Sep 2011 Updated disclaimer. (T. Otte) !------------------------------------------------------------------------------- USE mcipparm USE xvars USE metvars IMPLICIT NONE INTEGER :: ec INTEGER :: er INTEGER :: jw INTEGER :: lbndface INTEGER :: lbndsigf INTEGER :: maxface INTEGER :: sc INTEGER :: sr INTEGER :: ubndsigf REAL, ALLOCATABLE :: x3workf ( : ) !------------------------------------------------------------------------------- ! Set up vertical coordinate, where XX3FACE and XX3MIDL are layer face and ! middle definitions. XX3FACE and XX3MIDL are dimensioned in MCIPCOM ! and increase monotonically with height. !------------------------------------------------------------------------------- lbndsigf = LBOUND(sigmaf,1) lbndface = LBOUND(xx3face,1) ubndsigf = UBOUND(sigmaf,1) maxface = lbndface + SIZE(sigmaf) - 1 ALLOCATE ( x3workf ( lbndsigf:ubndsigf ) ) IF ( sigmaf(lbndsigf) > sigmaf(ubndsigf) ) THEN ! NOT monotonic increase DO jw = lbndsigf, ubndsigf x3workf(jw) = sigmaf(lbndsigf) - sigmaf(jw) ENDDO ELSE DO jw = lbndsigf, ubndsigf x3workf(jw) = sigmaf(jw) - sigmaf(lbndsigf) ENDDO ENDIF xx3face(lbndface:maxface) = x3workf(lbndsigf:ubndsigf) DO jw = 1, SIZE(sigmah) xx3midl(jw) = 0.5 * ( xx3face(jw-1) + xx3face(jw) ) ENDDO DEALLOCATE ( x3workf ) !------------------------------------------------------------------------------- ! Put time-invariant cross-point arrays on MCIP_X grid. !------------------------------------------------------------------------------- sc = x0 ec = x0 + ncols_x - 1 sr = y0 er = y0 + nrows_x - 1 xtopo(:,:) = terrain(sc:ec,sr:er) xmapc(:,:) = mapcrs (sc:ec,sr:er) xlatc(:,:) = latcrs (sc:ec,sr:er) xlonc(:,:) = loncrs (sc:ec,sr:er) xmapc2(:,:) = xmapc(:,:) * xmapc(:,:) !------------------------------------------------------------------------------- ! Put time-invariant dot-point and face arrays on MCIP_X grid. Note that ! the face arrays are one column or one row smaller than the dot-point arrays ! on the physical grid, but the face arrays are oversized to the dot-point ! array space in MCIP out of convenience. !------------------------------------------------------------------------------- sc = x0 ec = x0 + ncols_x sr = y0 er = y0 + nrows_x xmapd(:,:) = mapdot(sc:ec,sr:er) xlatd(:,:) = latdot(sc:ec,sr:er) xlond(:,:) = londot(sc:ec,sr:er) xmapu(:,:) = mapu(sc:ec,sr:er) xlatu(:,:) = latu(sc:ec,sr:er) xlonu(:,:) = lonu(sc:ec,sr:er) xmapv(:,:) = mapv(sc:ec,sr:er) xlatv(:,:) = latv(sc:ec,sr:er) xlonv(:,:) = lonv(sc:ec,sr:er) END SUBROUTINE metgrid2ctm ================================================ FILE: PREP/mcip/src/metinfo_mod.f90 ================================================ !------------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------------! MODULE metinfo !------------------------------------------------------------------------------- ! Name: Meteorology Information ! Purpose: Contains information about the input meteorology fields. ! Revised: 10 Sep 2001 Original version. (T. Otte) ! 29 May 2003 Added MM5 season. (T. Otte and J. Pleim) ! 05 Aug 2004 Added MM5 snow option (MET_SNOW_OPT), cone factor ! (MET_CONE_FAC), and true latitude 1 (MET_TRU1). ! Removed unused variables MET_SDATE and MET_STIME. ! Added IFT2M. (T. Otte) ! 31 Mar 2005 Changed variable names from I,J,K representation ! to Y,X,Z representation to make code more general. ! Added new variable MET_MODEL. Allowed MET_IVERSION ! to be more generic to support MM5 and WRF. Removed ! unused variables MET_MDATE, MET_IEXPAND, MET_IOFFSET, ! and MET_JOFFSET. Added MET_TRU2 and IFW10M. (T. Otte) ! 10 May 2006 Added new variables MET_PROJ_CLAT and MET_PROJ_CLON. ! (T. Otte) ! 30 Jul 2007 Added IMPLICIT NONE. Changed comment related to ! MET_IVERSION to remove indicator for MM5v2-formatted ! data. Removed variable MET_INHYD. Moved IFT2M and ! IFW10M to module MCIPPARM. Added MET_LU_SRC, MET_NS, ! MET_RELEASE, MET_FDDA_3DAN, MET_FDDA_SFAN, and ! MET_FDDA_OBS. Changed MET_RADIATION into MET_LW_RAD ! and MET_SW_RAD. (T. Otte) ! 05 May 2008 Added nudging coefficients, earth radius, and whether ! or not the urban canopy model was invoked (WRF only). ! (T. Otte) ! 22 Sep 2009 Changed MET_UCMCALL to MET_URBAN_PHYS, and allowed ! for variable to be set to be greater than 1. Added ! variables MET_RICTR_DOT, MET_RJCTR_DOT, MET_CEN_LAT, ! MET_CEN_LON, MET_XXCTR, MET_YYCTR, and MET_REF_LAT. ! (T. Otte) ! 15 Dec 2010 Added MET_RAIN_BUCKET. (T. Otte) ! 30 Aug 2011 Added MET_SHAL_CU. Changed F77 character declarations ! to F90 standard. (T. Otte) ! 07 Sep 2011 Updated disclaimer. (T. Otte) ! 07 Dec 2011 Added MET_FDDA_GPH3D and changed descriptions of ! MET_FDDA_Gx3D variables. (T. Otte) ! 21 Aug 2012 Added MET_PCP_INCR to accommodate WRFv3.2 option to ! output incremental (rather than accumulated) ! precipitation. (T. Otte) ! 26 Nov 2014 Added variables for land use indices associated with ! ice, lake, and urban (MET_LU_ICE, MET_LU_LAKE, and ! MET_LU_URBAN). (T. Spero) ! 22 Jun 2017 Added MET_HYBRID. (T. Spero) ! 14 Sep 2018 Removed support for MM5v3 input. (T. Spero) !------------------------------------------------------------------------------- IMPLICIT NONE ! Input data format. INTEGER :: met_model ! 2=WRF (removed option: 1=MM5) INTEGER :: met_iversion ! 2=WRF-ARW CHARACTER(LEN=8) :: met_release ! release version ! Grid information. REAL :: met_cen_lat ! center latitude of this domain REAL :: met_cen_lon ! center longitude of this domain REAL :: met_cone_fac ! cone factor INTEGER :: met_gratio ! grid ratio w.r.t. coarse dom INTEGER :: met_mapproj ! map proj: 1-lamcon, 2-pol, 3-utm INTEGER :: met_ns ! number of soil layers INTEGER :: met_nx ! this domain X (E-W) dimension INTEGER :: met_nxcoarse ! coarse dom X (E-W) dimension INTEGER :: met_ny ! this domain Y (N-S) dimension INTEGER :: met_nycoarse ! coarse dom Y (N-S) dimension INTEGER :: met_nz ! number of half-sigma layers REAL :: met_p_alp_d ! projection alpha REAL :: met_p_bet_d ! projection beta REAL :: met_p_gam_d ! projection gamma REAL :: met_proj_clat ! projection center latitude [degrees] REAL :: met_proj_clon ! projection center longitude [degrees] REAL :: met_ptop ! model top [Pa] REAL :: met_ref_lat ! ref latitude for Lam con [degrees] REAL :: met_resoln ! horiz grid spacing [m] REAL :: met_rictr_dot ! I coord of ctr point in dot-point-space REAL :: met_rjctr_dot ! J coord of ctr point in dot-point-space REAL :: met_tapfrq ! output interval [min] REAL :: met_tru1 ! true latitude 1 [degrees] REAL :: met_tru2 ! true latitude 2 [degrees] REAL :: met_x_11 ! coarse dom loc of this dom's x=1 REAL :: met_x_centd ! reference center longitude REAL :: met_xxctr ! distance [m] from origin to center in X REAL :: met_y_11 ! coarse dom loc of this dom's y=1 REAL :: met_y_centd ! reference center latitude REAL :: met_yyctr ! distance [m] from origin to center in Y ! Non-hydrostatic base state variables. REAL :: met_p00 ! non-hyd ref pressure [Pa] REAL :: met_tiso ! non-hyd ref isothermal temp [K] REAL :: met_tlp ! non-hyd ref lapse [K/500 hPa] REAL :: met_ts0 ! non-hyd ref sfc temp [K] ! Physics options and other user input. INTEGER :: met_cumulus ! cumulus parameterization scheme INTEGER :: met_expl_moist ! explicit moist physics scheme INTEGER :: met_hybrid ! hybrid vertical coordinate in met? INTEGER :: met_lu_ice ! ice index in land use INTEGER :: met_lu_lake ! lake index in land use INTEGER :: met_lu_urban ! urban index in land use INTEGER :: met_lu_water ! water index in land use CHARACTER(LEN=19) :: met_lu_src ! source of land use categorization INTEGER :: met_lw_rad ! longwave radiation scheme INTEGER :: met_pbl ! PBL scheme INTEGER :: met_pcp_incr ! Time increment [min] for precip REAL :: met_rain_bucket ! Tipping bucket for precipitation INTEGER :: met_sfc_lay ! surface layer scheme INTEGER :: met_shal_cu ! shallow convection option INTEGER :: met_soil_lsm ! surface/soil scheme or LSM INTEGER :: met_snow_opt ! snow option INTEGER :: met_sw_rad ! shortwave radiation scheme INTEGER :: met_urban_phys ! urban canopy model (WRF only) ! FDDA options. INTEGER :: met_fdda_3dan ! 3d nudging? (0=no, 1=GRID, 2=SPEC) INTEGER :: met_fdda_obs ! obs nudging? (0=no, 1=yes) INTEGER :: met_fdda_sfan ! sfc analysis nudging? (0=no, 1=GRID) REAL :: met_fdda_gv3d ! 3d nudging coeff. for wind REAL :: met_fdda_gt3d ! 3d nudging coeff. for temperature REAL :: met_fdda_gq3d ! 3d nudging coeff. for moisture REAL :: met_fdda_gph3d ! 3d nudging coeff. for geopotential REAL :: met_fdda_gvsfc ! sfc analysis nudging coeff. for wind REAL :: met_fdda_gtsfc ! sfc analysis nudging coeff. for temp. REAL :: met_fdda_gqsfc ! sfc analysis nudging coeff. for mois. REAL :: met_fdda_giv ! obs nudging coeff. for wind REAL :: met_fdda_git ! obs nudging coeff. for temp. REAL :: met_fdda_giq ! obs nudging coeff. for mois. ! Date and time information. INTEGER :: met_restart ! "restarted" run? (1=yes, 0=no) INTEGER :: met_season ! 1=summer, 2=winter CHARACTER(LEN=24) :: met_startdate ! YYYY-MM-DD-HH:MM:SS.SSSS END MODULE metinfo ================================================ FILE: PREP/mcip/src/metvars2ctm.f90 ================================================ !------------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------------! SUBROUTINE metvars2ctm !------------------------------------------------------------------------------- ! Name: Meteorology Variables to CTM (X) Grid ! Purpose: Puts time-variant meteorology arrays on CTM (X) grid. ! Notes: MM5 algorithms taken from original getmet_mm5.F. Vegetation ! information does not include seasonal changes. ! Revised: 20 Sep 2001 Original version. (T. Otte) ! 03 Oct 2001 Updated calculation of XRNET. (T. Otte and J. Pleim) ! 16 Oct 2001 Corrected error in translation between input ! domain and MCIP "X" domain. (T. Otte) ! 21 Dec 2001 Changed order of variable declarations in interface ! to improve portability. (S. Howard and T. Otte) ! 23 Jan 2002 Changed calls to "abort" to calls to "m3exit" for ! graceful shut-down of I/O API files. Added updates ! to XFLAGS for variables filled here. Changed missing ! value on XRSTOM to BADVAL3. (T. Otte) ! 26 Mar 2003 Simplified algorithm to map input meteorology to ! MCIP_X domain. Enabled dot-point MCIP_X arrays to ! be filled to the correct dimensions. (T. Otte) ! 29 May 2003 Added minimum leaf area index and vegetation values ! to represent winter conditions for USGS land use. ! LAI and VEG are based on values used by Vegeland (for ! P-X) in MM5. Also added F2 as a function of USGS land ! use. Added translation of snow cover to MCIP_X domain. ! (T. Otte, J. Pleim, and D. Schwede) ! 09 Aug 2004 Added graupel processing. Added 2-m temperature, if ! it is available from incoming meteorology. Removed ! XFLAGS. (T. Otte and D. Schwede) ! 26 May 2005 Removed NDX and option to interpolate to finer scale ! meteorology. Added optimization of loops using F90 ! implicit loop structures. Removed unused variables ! REGIME and MAVAIL. Changed XUU and XVV to XUU_D and ! XVV_D, and changed definitions to be input model- ! specific. Added definitions of XUU_S and XVV_T. ! Added contents of MET3DSUP. Added WRF algorithms. ! Added processing of 10-m wind components. Added ! floor value for QV. (T. Otte) ! 19 Aug 2005 Removed unused variables FSOIL and XFSOIL. Changed ! internal variable EPSILON to EPSILONQ to avoid ! confusion with F90 intrinsic function. (T. Otte) ! 13 Sep 2005 Changed logic for defining surface density from 2-m ! temperature to prevent "null pointer" error with ! PGF90 compiler. (T. Otte) ! 19 Jun 2006 Removed dependency on module CONST_PBL. Removed ! unused variables DETA, IIL, JJL, LVL, and LVLF1. ! (T. Otte) ! 30 Jul 2007 Removed algorithms that supported hydrostatic MM5 ! output (e.g., from MM5v2). Changed XUSTAR and XRADYN ! to 2D arrays without a dimension for fractional land ! use that was required for RADMdry. Changed 2-m ! temperature from XT2 to XTEMP2. Removed internal ! variables for emissivity and net radiation. Moved ! land-use-based filling of F2 and RSTMIN to subroutine ! RESISTCALC. Removed references to logical variable ! "PX" to make code more general. (T. Otte) ! 28 Apr 2008 Changed setting for LAI to a fixed value if NOAH LSM ! was used with WRF and if LAI is not found in the input ! meteorology file(s). Added 2-m mixing ratio and ! turbulent kinetic energy. Changed to use gravitational ! constant and dry gas constant values from MM5 system ! rather than from CMAQ system for coordinate ! calculations. Removed unused variable GRAVI, and ! removed dependency on module CONST. Expanded lookup ! tables for LAI and VEG for 33-category USGS, and ! deleted unused lookup tables for RST. (T. Otte) ! 29 Oct 2009 Added potential temperature and Coriolis for when ! potential vorticity is needed. Added default values ! of LAI and VEG for MODIS-NOAH and NLCD-MODIS land-use ! classification systems. Changed real number ! comparisons from "equivalences" to "less than ! tolerances". (T. Otte) ! 19 Mar 2010 Corrected comment that provided Jacobian equations for ! WRF. Corrected logic in LAI algorithm for when IFLAI ! is FALSE. (T. Otte) ! 23 Dec 2010 Corrected scaling of XWR for WRF runs so that water ! density is used rather than air density. (J. Pleim) ! Added sea ice. Set ice threshold temperature over ! water to 271.36 K to be consistent with CMAQ. (T. Otte) ! 23 Feb 2010 Replaced statement functions with external routines. ! (T. Otte) ! 01 Sep 2011 Replaced module PARMS3 with I/O API module M3UTILIO. ! Improved error handling. Replaced DATA statements ! with parameters. (T. Otte) ! 07 Sep 2011 Updated disclaimer. (T. Otte) ! 09 Sep 2011 Fill convective rain array with negative values if ! no cumulus parameterization was used in the ! meteorological model. Works with change to sub-grid ! cloud scheme in CMAQv5.0. (T. Otte) ! 10 Sep 2012 Added handling for 40-category 2006 NLCD-MODIS land ! use classification as "NLCD40". Added alternate name ! for 50-category 2001 NLCD-MODIS land use classification ! as "NLCD50". Appended "D50" to the ends of LAINLC, ! LAIMNNLC, VEGNLC, and VEGMNNLC to distinguish them ! for NLCD50. Added analogous variables for NLCD40. ! Some of the values for NCLD50 were updated with the ! current values from module_sf_pxlsm_data.F from ! WRFv3.4. The values for NCLD40 are also consistent ! with the same routine. (T. Otte) ! 24 Apr 2015 Added 3D resolved cloud fraction to output if it is ! available in incoming meteorological model data. ! (T. Spero) ! 21 Aug 2015 Changed latent heat flux from QFX to LH. Fill THETA ! and add moisture flux (QFX) for IFMOLACM. (T. Spero) ! 17 Sep 2015 Changed IFMOLACM to IFMOLPX. (T. Spero) ! 16 Mar 2018 Added SNOWH to output. Changed calculation of Jacobian ! for hybrid vertical coordinate in WRF, but disabled it ! for this release until addtional modifications and ! testing with CMAQ can be conducted. Calculate soil ! layer depths in XZSOIL, and map 3D soil data into 3D ! soil arrays. Process data for NOAH Mosaic. Added ! mapping of Noah wind speed and dynamic LAI. (T. Spero) ! 28 Aug 2018 Enabled Jacobian calculation for hybrid vertical ! coordinate in WRF. (T. Spero) ! 19 Sep 2018 Removed support for MM5v3 input. Now use netCDF tokens ! for missing data. Changed fill value for "no cumulus ! parameterization" from -1 to a large negative number ! to prevent inadverent use in CMAQ. (T. Spero) ! 18 Jun 2019 Added new surface variables with PX LSM that can ! improve dust simulation in CCTM. Added optional ! variables from KF convective scheme with radiative ! feedbacks. (T. Spero) ! 13 May 2021 Corrected minor error in assigning bounds for XCLAY_PX ! as identified through CMAS Forum. (T. Spero) !------------------------------------------------------------------------------- USE mcipparm USE metinfo USE xvars USE metvars IMPLICIT NONE INTEGER :: c INTEGER :: ec REAL, PARAMETER :: epsilonq = 1.0e-30 REAL, PARAMETER :: epsilonqv = 1.0e-14 INTEGER :: er REAL, PARAMETER :: giwrf = 1.0 / 9.81 ! [s2/m] REAL, PARAMETER :: icethresh = 271.36 ! [K] INTEGER :: ii INTEGER :: ilu INTEGER :: jj INTEGER :: k INTEGER :: kp1 CHARACTER(LEN=16), PARAMETER :: pname = 'METVARS2CTM' REAL :: qf INTEGER :: r REAL, PARAMETER :: rdovcp = 2.0 / 7.0 ! Rd / cP REAL, PARAMETER :: rdwrf = 287.0 ! [J/kg/K] REAL, PARAMETER :: rvwrf = 461.6 ! [J/kg/K] INTEGER :: sc REAL, PARAMETER :: smallnum = 1.0e-7 INTEGER :: sr REAL :: tf REAL, EXTERNAL :: vtemp REAL :: wgt1 REAL :: wgt2 REAL :: z0 REAL :: z1 REAL :: z2 INTERFACE SUBROUTINE layht (xx3face, xx3midl, x3jacobf, x3jacobm, x3htf, x3htm) IMPLICIT NONE REAL, INTENT(OUT) :: x3htf ( : , : , : ) REAL, INTENT(OUT) :: x3htm ( : , : , : ) REAL, INTENT(IN) :: x3jacobf ( : , : , : ) REAL, INTENT(IN) :: x3jacobm ( : , : , : ) REAL, INTENT(IN) :: xx3face ( : ) REAL, INTENT(IN) :: xx3midl ( : ) END SUBROUTINE layht END INTERFACE !------------------------------------------------------------------------------- ! Land-use based arrays. !------------------------------------------------------------------------------- REAL, PARAMETER :: laimod ( 33 ) = & (/ 5.0, 5.0, 5.0, 5.0, 5.0, 3.0, 2.0, 2.5, 2.0, & 2.5, 3.0, 3.0, 3.0, 3.0, 0.1, 1.0, 0.0, 3.4, & 2.4, 1.4, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, & 0.0, 0.0, 0.0, 2.2, 2.1, 2.0 /) REAL, PARAMETER :: laimnmod ( 33 ) = & (/ 3.0, 4.0, 1.0, 1.0, 2.0, 1.0, 1.0, 1.0, 1.0, & 1.0, 1.0, 0.5, 1.0, 1.0, 0.1, 0.5, 0.0, 2.0, & 1.0, 0.1, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, & 0.0, 0.0, 0.0, 0.7, 0.6, 0.5 /) REAL, PARAMETER :: lainlcd50 ( 50 ) = & (/ 0.0, 0.1, 3.0, 3.0, 3.0, 3.0, 1.0, 0.5, 5.0, & 4.0, 5.0, 2.0, 2.5, 2.5, 2.0, 1.0, 1.0, 1.0, & 3.0, 3.0, 5.0, 5.0, 3.0, 5.0, 3.0, 2.0, 2.0, & 2.0, 1.0, 1.0, 0.0, 4.0, 5.0, 5.0, 5.0, 5.0, & 3.0, 2.5, 2.5, 2.0, 2.5, 3.0, 3.0, 3.0, 3.0, & 0.1, 1.0, 0.0, 0.0, 0.0 /) REAL, PARAMETER :: laimnnlcd50 ( 50 ) = & (/ 0.0, 0.1, 1.0, 1.0, 1.0, 1.0, 0.5, 0.2, 1.0, & 3.0, 2.0, 1.0, 1.0, 1.0, 1.0, 1.0, 1.0, 1.0, & 1.0, 0.5, 2.0, 2.0, 1.0, 2.0, 1.0, 1.0, 1.0, & 1.0, 0.5, 0.5, 0.0, 3.0, 4.0, 1.0, 1.0, 2.0, & 1.0, 1.0, 1.0, 1.0, 1.0, 1.0, 0.5, 1.0, 1.0, & 0.1, 0.5, 0.0, 0.0, 0.0 /) REAL, PARAMETER :: lainlcd40 ( 40 ) = & (/ 4.0, 5.0, 5.0, 5.0, 5.0, 3.0, 2.5, 2.5, 2.0, & 2.5, 3.0, 3.0, 3.0, 3.0, 0.1, 1.0, 0.0, 0.0, & 0.0, 0.0, 0.0, 0.1, 3.0, 3.0, 3.0, 3.0, 1.0, & 5.0, 4.0, 5.0, 2.0, 2.5, 2.5, 2.0, 1.0, 1.0, & 3.0, 3.0, 5.0, 2.0 /) REAL, PARAMETER :: laimnnlcd40 ( 40 ) = & (/ 3.0, 4.0, 1.0, 1.0, 2.0, 1.0, 1.0, 1.0, 1.0, & 1.0, 1.0, 0.5, 1.0, 1.0, 0.1, 0.5, 0.0, 0.0, & 0.0, 0.0, 0.0, 0.1, 1.0, 1.0, 1.0, 1.0, 0.5, & 1.0, 3.0, 2.0, 1.0, 1.0, 1.0, 1.0, 1.0, 1.0, & 1.0, 0.5, 2.0, 1.0 /) REAL, PARAMETER :: laimm5 ( 13 ) = & (/ 2.0, 3.0, 3.0, 5.0, 4.5, 5.0, 0.0, 2.0, 0.5, & 1.0, 0.0, 5.0, 2.0 /) REAL, PARAMETER :: laiusgs ( 33 ) = & (/ 2.0, 3.0, 3.0, 3.0, 2.5, 4.0, 2.5, 3.0, 3.0, & 2.0, 5.0, 5.0, 5.0, 4.0, 5.0, 0.0, 2.0, 5.0, & 0.5, 1.0, 1.0, 1.0, 0.1, 0.1, 0.1, 0.1, 0.1, & 0.0, 0.0, 0.0, 2.2, 2.1, 2.0 /) REAL, PARAMETER :: laimnusgs ( 33 ) = & (/ 0.5, 0.5, 0.5, 0.5, 1.0, 1.5, 1.0, 1.0, 1.0, & 1.0, 1.0, 1.0, 4.0, 3.0, 2.0, 0.0, 1.0, 3.0, & 0.2, 0.5, 0.5, 0.5, 0.1, 0.1, 0.1, 0.1, 0.1, & 0.0, 0.0, 0.0, 0.7, 0.6, 0.5 /) REAL, PARAMETER :: vegmod ( 33 ) = & (/ 0.90, 0.95, 0.95, 0.95, 0.95, 0.90, 0.75, 0.80, 0.70, & 0.85, 0.75, 0.95, 0.40, 0.95, 0.05, 0.20, 0.00, 0.70, & 0.40, 0.20, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, & 0.00, 0.00, 0.00, 0.50, 0.45, 0.40 /) REAL, PARAMETER :: vegmnmod ( 33 ) = & (/ 0.80, 0.85, 0.50, 0.50, 0.60, 0.50, 0.50, 0.60, 0.50, & 0.60, 0.45, 0.10, 0.20, 0.40, 0.02, 0.05, 0.00, 0.50, & 0.20, 0.05, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, & 0.00, 0.00, 0.00, 0.30, 0.25, 0.20 /) REAL, PARAMETER :: vegnlcd50 ( 50 ) = & (/ 0.00, 0.05, 0.90, 0.70, 0.40, 0.15, 0.20, 0.15, 0.95, & 0.90, 0.95, 0.50, 0.75, 0.85, 0.80, 0.80, 0.80, 0.50, & 0.95, 0.95, 0.90, 0.90, 0.90, 0.90, 0.90, 0.60, 0.80, & 0.80, 0.60, 0.60, 0.00, 0.90, 0.95, 0.95, 0.95, 0.95, & 0.90, 0.75, 0.80, 0.70, 0.85, 0.75, 0.95, 0.40, 0.95, & 0.05, 0.20, 0.00, 0.00, 0.00 /) REAL, PARAMETER :: vegmnnlcd50 ( 50 ) = & (/ 0.00, 0.02, 0.80, 0.60, 0.30, 0.05, 0.05, 0.05, 0.50, & 0.80, 0.60, 0.20, 0.50, 0.60, 0.20, 0.20, 0.20, 0.20, & 0.80, 0.10, 0.80, 0.80, 0.80, 0.80, 0.80, 0.40, 0.40, & 0.40, 0.20, 0.20, 0.00, 0.80, 0.85, 0.50, 0.50, 0.60, & 0.50, 0.50, 0.60, 0.50, 0.60, 0.45, 0.10, 0.20, 0.40, & 0.02, 0.05, 0.00, 0.00, 0.00 /) REAL, PARAMETER :: vegnlcd40 ( 40 ) = & (/ 0.90, 0.95, 0.95, 0.95, 0.95, 0.90, 0.75, 0.80, 0.70, & 0.85, 0.75, 0.95, 0.40, 0.95, 0.05, 0.20, 0.00, 0.00, & 0.00, 0.00, 0.00, 0.05, 0.90, 0.70, 0.40, 0.15, 0.20, & 0.95, 0.90, 0.95, 0.50, 0.75, 0.85, 0.80, 0.80, 0.80, & 0.95, 0.95, 0.90, 0.60 /) REAL, PARAMETER :: vegmnnlcd40 ( 40 ) = & (/ 0.80, 0.85, 0.50, 0.50, 0.60, 0.50, 0.50, 0.60, 0.50, & 0.60, 0.45, 0.10, 0.20, 0.40, 0.02, 0.05, 0.00, 0.00, & 0.00, 0.00, 0.00, 0.02, 0.80, 0.60, 0.30, 0.05, 0.05, & 0.50, 0.80, 0.60, 0.20, 0.50, 0.60, 0.20, 0.20, 0.20, & 0.80, 0.10, 0.80, 0.40 /) REAL, PARAMETER :: vegmm5 ( 13 ) = & (/ 0.40, 0.95, 0.95, 0.95, 0.95, 0.95, 0.00, 0.75, 0.10, & 0.20, 0.00, 0.90, 0.80 /) REAL, PARAMETER :: vegusgs ( 33 ) = & (/ 0.40, 0.95, 0.95, 0.95, 0.95, 0.95, 0.95, 0.70, 0.85, & 0.80, 0.95, 0.95, 0.95, 0.90, 0.95, 0.00, 0.60, 0.90, & 0.10, 0.20, 0.30, 0.20, 0.05, 0.05, 0.02, 0.02, 0.02, & 0.00, 0.00, 0.00, 0.50, 0.45, 0.40 /) REAL, PARAMETER :: vegmnusgs ( 33 ) = & (/ 0.20, 0.15, 0.10, 0.15, 0.35, 0.40, 0.70, 0.50, 0.60, & 0.60, 0.50, 0.50, 0.85, 0.80, 0.60, 0.00, 0.40, 0.80, & 0.05, 0.10, 0.10, 0.05, 0.02, 0.02, 0.01, 0.01, 0.01, & 0.00, 0.00, 0.00, 0.30, 0.25, 0.20 /) !------------------------------------------------------------------------------- ! Error, warning, and informational messages. !------------------------------------------------------------------------------- CHARACTER(LEN=256), PARAMETER :: f9000 = "(/, 1x, 70('*'), & & /, 1x, '*** SUBROUTINE: ', a, & & /, 1x, '*** UNKNOWN LAND USE INPUT DATA SOURCE', & & /, 1x, '*** DATA SOURCE IS ', a, & & /, 1x, 70('*'))" !------------------------------------------------------------------------------- ! Put time-variant cross-point arrays on MCIP_X grid. !------------------------------------------------------------------------------- sc = x0 ec = x0 + ncols_x - 1 sr = y0 er = y0 + nrows_x - 1 xtempg (:,:) = groundt (sc:ec,sr:er) IF ( met_model == 2 .AND. met_cumulus == 0 ) THEN ! no cumulus scheme xrainc (:,:) = fillreal ! fill with negative values as flag for CMAQv5.0 ELSE xrainc (:,:) = raincon (sc:ec,sr:er) ! rain is already incremental here ENDIF xrainn (:,:) = rainnon (sc:ec,sr:er) ! rain is already incremental here xpbl (:,:) = zpbl (sc:ec,sr:er) xhfx (:,:) = hfx (sc:ec,sr:er) xlh (:,:) = lh (sc:ec,sr:er) xustar (:,:) = ust (sc:ec,sr:er) xrgrnd (:,:) = rgrnd (sc:ec,sr:er) xglw (:,:) = glw (sc:ec,sr:er) xzruf (:,:) = znt (sc:ec,sr:er) xalbedo(:,:) = albedo (sc:ec,sr:er) xsnocov(:,:) = snowcovr(sc:ec,sr:er) xsnowh (:,:) = snowh (sc:ec,sr:er) xgsw (:,:) = xrgrnd(:,:) * ( 1.0 - xalbedo(:,:) ) IF ( ift2m ) THEN xtemp2(:,:) = t2 (sc:ec,sr:er) ELSE ! ~ Calculate in PBLSUP. ENDIF IF ( ifq2m ) THEN xq2 (:,:) = q2 (sc:ec,sr:er) ELSE xq2 (:,:) = qva (sc:ec,sr:er,1) ! fill Q2 with QV from layer 1 ENDIF IF ( ifw10m ) THEN xu10 (:,:) = u10 (sc:ec,sr:er) xv10 (:,:) = v10 (sc:ec,sr:er) ELSE ! ~ Calculate in PBLSUP. ENDIF IF ( ifmolpx ) THEN xqfx(:,:) = qfx(sc:ec,sr:er) ENDIF IF ( iflai .AND. ifpxwrf41 ) THEN xlai(:,:) = lai_px(sc:ec,sr:er) ELSE IF ( iflai .AND. ( MAXVAL(lai) > smallnum ) ) THEN xlai(:,:) = lai(sc:ec,sr:er) ELSE IF ( ( met_model == 2 ) .AND. ( met_soil_lsm == 2 ) ) THEN xlai(:,:) = 4.0 ELSE DO c = 1, ncols_x ii = x0 + c - 1 DO r = 1, nrows_x jj = y0 + r - 1 ilu = landuse(ii,jj) IF ( met_lu_src(1:3) == "USG" ) THEN ! USGS 24- or 33-cat. l.u. IF ( met_season == 1 ) THEN ! summer xlai (c,r) = laiusgs(ilu) ELSE IF ( met_season == 2 ) THEN ! winter xlai (c,r) = laimnusgs(ilu) ENDIF ELSE IF ( met_lu_src(1:3) == "OLD" ) THEN ! MM5 13-category old l.u. xlai (c,r) = laimm5(ilu) ELSE IF ( met_lu_src(4:6) == "D50" ) THEN ! NLCD-MODIS 50-cat. l.u. IF ( met_season == 1 ) THEN ! summer xlai (c,r) = lainlcd50(ilu) ELSE IF ( met_season == 2 ) THEN ! winter xlai (c,r) = laimnnlcd50(ilu) ENDIF ELSE IF ( met_lu_src(4:6) == "D40" ) THEN ! NLCD-MODIS 40-cat. l.u. IF ( met_season == 1 ) THEN ! summer xlai (c,r) = lainlcd40(ilu) ELSE IF ( met_season == 2 ) THEN ! winter xlai (c,r) = laimnnlcd40(ilu) ENDIF ELSE IF ( met_lu_src(1:3) == "MOD" ) THEN ! MODIS-NOAH 20/33-cat. IF ( met_season == 1 ) THEN ! summer xlai (c,r) = laimod(ilu) ELSE IF ( met_season == 2 ) THEN ! winter xlai (c,r) = laimnmod(ilu) ENDIF ELSE WRITE (*,f9000) TRIM(pname), TRIM(met_lu_src) CALL graceful_stop (pname) ENDIF ENDDO ENDDO ENDIF ENDIF ! iflai IF ( ifveg ) THEN xveg (:,:) = veg (sc:ec,sr:er) ELSE DO c = 1, ncols_x ii = x0 + c - 1 DO r = 1, nrows_x jj = y0 + r - 1 ilu = landuse(ii,jj) IF ( met_lu_src(1:3) == "USG" ) THEN ! USGS 24- or 33-cat. l.u. IF ( met_season == 1 ) THEN ! summer xveg (c,r) = vegusgs(ilu) ELSE IF ( met_season == 2 ) THEN ! winter xveg (c,r) = vegmnusgs(ilu) ENDIF ELSE IF ( met_lu_src(1:3) == "OLD" ) THEN ! MM5 13-category old l.u. xveg (c,r) = vegmm5(ilu) ELSE IF ( met_lu_src(4:6) == "D50" ) THEN ! NLCD-MODIS 50-cat. l.u. xveg (c,r) = vegnlcd50(ilu) ELSE IF ( met_lu_src(4:6) == "D40" ) THEN ! NLCD-MODIS 40-cat. l.u. xveg (c,r) = vegnlcd40(ilu) ELSE IF ( met_lu_src(1:3) == "MOD" ) THEN ! MODIS-NOAH 20/33-cat. xveg (c,r) = vegmod(ilu) ELSE WRITE (*,f9000) TRIM(pname), TRIM(met_lu_src) CALL graceful_stop (pname) ENDIF ENDDO ENDDO ENDIF IF ( ifresist ) THEN xradyn (:,:) = ra (sc:ec,sr:er) xrstom (:,:) = rstom (sc:ec,sr:er) ! At water points, stomatal resistance is 0.0. Since ! inverse of XRSTOM is output in ctmproc.f90, need to avoid ! division by 0.0. Use netCDF token as place-holder. WHERE ( xrstom == 0.0 ) xrstom = fillreal ELSE ! ~ Calculate in RESISTCALC. ENDIF IF ( ifmol ) THEN xmol (:,:) = mol (sc:ec,sr:er) ELSE ! ~ Calculate in PBLSUP. ENDIF IF ( ifwr ) THEN xwr (:,:) = wr (sc:ec,sr:er) IF ( met_model == 2 ) THEN ! WRF: divide by water density xwr(:,:) = xwr(:,:) * 0.001 ! kg/m2 -> m ENDIF ELSE ! ~ Approximate in M3DRY and do not output. ENDIF IF ( .NOT. needseaice ) THEN xseaice(:,:) = seaice(sc:ec,sr:er) ELSE DO c = 1, ncols_x DO r = 1, nrows_x IF ( ( NINT(xlwmask(c,r)) == 0 ) .AND. & ( xtempg(c,r) <= icethresh ) ) THEN ! very cold water xseaice(c,r) = 1.0 ! ice ELSE xseaice(c,r) = 0.0 ! not ice ENDIF ENDDO ENDDO ENDIF IF ( ifsoil ) THEN xw2a (:,:) = w2 (sc:ec,sr:er) xwga (:,:) = wg (sc:ec,sr:er) xsltyp (:,:) = FLOAT( isltyp(sc:ec,sr:er) ) xtga (:,:) = soilt1(sc:ec,sr:er) xt2a (:,:) = soilt2(sc:ec,sr:er) xsoim3d(:,:,:) = soim3d(sc:ec,sr:er,:) xsoit3d(:,:,:) = soit3d(sc:ec,sr:er,:) ELSE ! ~ Downstream options that request these fields cannot be invoked ! ~ as they will not be in the output. ENDIF IF ( ifmosaic ) THEN xlai_mos(:,:,:) = lai_mos(sc:ec,sr:er,:) xrs_mos (:,:,:) = rs_mos(sc:ec,sr:er,:) xtsk_mos(:,:,:) = tsk_mos(sc:ec,sr:er,:) xznt_mos(:,:,:) = znt_mos(sc:ec,sr:er,:) xwspdsfc(:,:) = wspdsfc(sc:ec,sr:er) xxlaidyn(:,:) = xlaidyn(sc:ec,sr:er) ENDIF IF ( ifpxwrf41 ) THEN xwwlt_px(:,:) = wwlt_px (sc:ec,sr:er) xwfc_px(:,:) = wfc_px (sc:ec,sr:er) xwsat_px(:,:) = wsat_px (sc:ec,sr:er) xcsand_px(:,:) = csand_px (sc:ec,sr:er) xfmsand_px(:,:) = fmsand_px(sc:ec,sr:er) xclay_px(:,:) = clay_px (sc:ec,sr:er) ENDIF IF ( lpv > 0 ) THEN xcorl (:,:) = coriolis(sc:ec,sr:er) ENDIF xtempm (:,:,:) = ta (sc:ec,sr:er,:) xwvapor(:,:,:) = qva(sc:ec,sr:er,:) xcldwtr(:,:,:) = qca(sc:ec,sr:er,:) xranwtr(:,:,:) = qra(sc:ec,sr:er,:) xqice (:,:,:) = qia(sc:ec,sr:er,:) xqsnow (:,:,:) = qsa(sc:ec,sr:er,:) xqgraup(:,:,:) = qga(sc:ec,sr:er,:) IF ( ifkfradextras ) THEN xqc_cu (:,:,:) = qc_cu (sc:ec,sr:er,:) xqi_cu (:,:,:) = qi_cu (sc:ec,sr:er,:) xcldfrad(:,:,:) = cldfra_dp(sc:ec,sr:er,:) xcldfras(:,:,:) = cldfra_sh(sc:ec,sr:er,:) ENDIF xwwind (:,:,0:) = wa(sc:ec,sr:er,1:) IF ( ( iftke ) .AND. ( .NOT. iftkef ) ) THEN ! TKE on half-layers xtke (:,:, :) = tke(sc:ec,sr:er, :) ELSE IF ( ( iftke ) .AND. ( iftkef ) ) THEN ! TKE on full-levels xtke (:,:,0:) = tke(sc:ec,sr:er,1:) ENDIF ! Ensure that very small (and sometimes negative!) values from WRF moisture ! fields are not used. Here, EPSILONQ is the same minimum value as is set ! in ctmproc.f90. Floor value for XWVAPOR (EPSILONQV) is based on MM5 value. WHERE ( xwvapor < epsilonqv ) xwvapor = epsilonqv WHERE ( xcldwtr < epsilonq ) xcldwtr = 0.0 WHERE ( xranwtr < epsilonq ) xranwtr = 0.0 WHERE ( xqice < epsilonq ) xqice = 0.0 WHERE ( xqsnow < epsilonq ) xqsnow = 0.0 WHERE ( xqgraup < epsilonq ) xqgraup = 0.0 IF ( ifkfradextras ) THEN WHERE ( xqc_cu < epsilonq ) xqc_cu = 0.0 WHERE ( xqi_cu < epsilonq ) xqi_cu = 0.0 ENDIF !------------------------------------------------------------------------------- ! Put time-variant dot-point arrays on MCIP_X grid. XUU_D and XVV_D are on ! B-grid (dot points). XUU_S and XVV_T are on C-grid (face points). !------------------------------------------------------------------------------- sc = x0 ec = x0 + ncols_x sr = y0 er = y0 + nrows_x IF ( met_model == 2 ) THEN ! WRF: UA and VA on C-grid (face points) xuu_d(:,1, :) = ua(sc:ec,sr,:) xuu_d(:,2:nrows_x,:) = 0.5 * (ua(sc:ec,sr:er-2,:) + ua(sc:ec,sr+1:er-1,:)) xuu_d(:,nrows_x+1,:) = ua(sc:ec,er-1,:) xvv_d(1, :,:) = va(sc,sr:er,:) xvv_d(2:ncols_x,:,:) = 0.5 * (va(sc:ec-2,sr:er,:) + va(sc+1:ec-1,sr:er,:)) xvv_d(ncols_x+1,:,:) = va(ec-1,sr:er,:) xuu_s(:,:,:) = ua(sc:ec,sr:er,:) xvv_t(:,:,:) = va(sc:ec,sr:er,:) ENDIF !------------------------------------------------------------------------------ ! Compute pressure and potential temperature (if necessary). Put cloud ! fraction on transfer grid, if available. !------------------------------------------------------------------------------ sc = x0 ec = x0 + ncols_x - 1 sr = y0 er = y0 + nrows_x - 1 IF ( met_model == 2 ) THEN ! WRF xpresm(:,:,:) = pb (sc:ec,sr:er,:) + pp(sc:ec,sr:er,:) xmu (:,:) = mub(sc:ec,sr:er) + mu(sc:ec,sr:er) xgeof (:,:,:) = phb(sc:ec,sr:er,:) + ph(sc:ec,sr:er,:) ! As of WRFv2.0.3.1, PSFC = 0.0 at WRF initial time. IF ( MINVAL(psa) > 0.0 ) THEN xprsfc(:,:) = psa(sc:ec,sr:er) ! PSA contains PSFC for WRF ELSE DO c = 1, ncols_x DO r = 1, nrows_x z0 = xgeof(c,r,0) ! Z0, Z1, Z2 really defined as Zx/grav z1 = 0.5 * ( xgeof(c,r,0) + xgeof(c,r,1) ) z2 = 0.5 * ( xgeof(c,r,1) + xgeof(c,r,2) ) wgt1 = (z2 - z0) / (z2 - z1) wgt2 = 1.0 - wgt1 xprsfc(c,r) = wgt1 * xpresm(c,r,1) + wgt2 * xpresm(c,r,2) ENDDO ENDDO ENDIF xpresf(:,:,0) = xprsfc(:,:) ! Calculate full-level pressure from geopotential and hydrostatic equation. ! Assume temperature at mid-layers is sufficient "average" between full ! levels. DO k = 1, metlay xpresf(:,:,k) = xpresf(:,:,k-1) * & EXP( (xgeof(:,:,k-1) - xgeof(:,:,k)) / & (rdwrf * xtempm(:,:,k)) ) ENDDO IF ( lpv > 0 .OR. ifmolpx ) THEN ! need theta xtheta(:,:,:) = theta(sc:ec,sr:er,:) ENDIF IF ( ifcld3d ) THEN ! passing through 3D cloud fraction xcfrac3d(:,:,:) = cldfra(sc:ec,sr:er,:) ENDIF ENDIF !------------------------------------------------------------------------------ ! Compute density. ! IF using WRF output and if canopy wetness is in the output, convert from ! kg m^-2 to m by dividing by density. !------------------------------------------------------------------------------ IF ( met_model == 2 ) THEN ! WRF DO k = 1, metlay kp1 = MIN(k+1,metlay) DO c = 1, ncols_x DO r = 1, nrows_x ! Use formula for "alt" (total inverse density, alpha) from WRF's ! module_initialize_real.F, and replace potential temperature with ! temperature using Poisson's equation. Density is 1./alt. Note ! that this computed density matches well (to 6 or so decimal places) ! with WRF's prognostic density, expressed as 1./(alb+al); alb and al ! are not in the default WRF Registry as output to the history file ! (as of v2.0.3.1). It only matches to 3 decimal places with 1./alt ! when alt is output in the WRF history file. xdensam(c,r,k) = ( xpresm(c,r,k) / ( rdwrf * xtempm(c,r,k) * & (1.0 + rvwrf*xwvapor(c,r,k)/rdwrf) ) ) tf = 0.5 * (xtempm (c,r,k) + xtempm (c,r,kp1)) qf = 0.5 * (xwvapor(c,r,k) + xwvapor(c,r,kp1)) xdensaf(c,r,k) = ( xpresf(c,r,k) / ( rdwrf * tf * & (1.0 + rvwrf*qf/rdwrf) ) ) ENDDO ENDDO ENDDO IF ( ( ift2m ) .AND. ( MAXVAL(xtemp2) > smallnum ) ) THEN ! T2 = 0 at init xdensaf(:,:,0) = ( xpresf(:,:,0) / ( rdwrf * xtemp2(:,:) * & (1.0 + rvwrf*xwvapor(:,:,1)/rdwrf) ) ) ELSE xdensaf(:,:,0) = ( xpresf(:,:,0) / ( rdwrf * xtempm(:,:,1) * & (1.0 + rvwrf*xwvapor(:,:,1)/rdwrf) ) ) ENDIF xdenss(:,:) = xdensaf(:,:,0) ENDIF xdenswm(:,:,:) = xdensam(:,:,:) * xwvapor(:,:,:) / ( 1.0 + xwvapor(:,:,:) ) !------------------------------------------------------------------------------- ! If input meteorology has a time-varying vertical coordinate, compute Jacobian ! and layer heights. !------------------------------------------------------------------------------- IF ( met_model == 2 ) THEN IF ( met_hybrid >= 0 ) THEN DO k = 0, metlay ! Adjust mu (a.k.a., ps - ptop) for hybrid coordinate. ! Calculate Jacobian from WRF relation: ! J*g = - d(phi)/d(eta) = - d(g z)/d(eta) = mu alpha = mu/rho xmuhyb(:,:) = c1f(k+1) * xmu(:,:) + c2f(k+1) x3jacobf(:,:,k) = giwrf * xmuhyb(:,:) / xdensaf(:,:,k) IF ( k == 0 ) CYCLE xmuhyb(:,:) = c1h(k) * xmu(:,:) + c2h(k) x3jacobm(:,:,k) = giwrf * xmuhyb(:,:) / xdensam(:,:,k) ENDDO ELSE DO k = 0, metlay ! Calculate Jacobian from WRF relation: ! J*g = - d(phi)/d(eta) = - d(g z)/d(eta) = mu alpha = mu/rho x3jacobf(:,:,k) = giwrf * xmu(:,:) / xdensaf(:,:,k) IF ( k == 0 ) CYCLE x3jacobm(:,:,k) = giwrf * xmu(:,:) / xdensam(:,:,k) ENDDO ENDIF CALL layht (xx3face, xx3midl, x3jacobf, x3jacobm, x3htf, x3htm) ENDIF !------------------------------------------------------------------------------- ! Calculate height differences. !------------------------------------------------------------------------------- DO k = 1, metlay xdx3htf(:,:,k) = x3htf(:,:,k) - x3htf(:,:,k-1) ! X3HTF starts at 0 in vert ENDDO !------------------------------------------------------------------------------- ! Calculate contravariant velocity (w-component). !------------------------------------------------------------------------------- IF ( met_model == 2 ) THEN ! WRF-ARW CALL vertnhy_wrf ENDIF !------------------------------------------------------------------------------- ! Calculate depths of soil layers. !------------------------------------------------------------------------------- IF ( met_model == 2 ) THEN ! WRF-ARW IF ( met_ns > 0 ) THEN DO k = 1, met_ns xzsoil(k) = 0.0 - (SUM(dzs(1:k))) ! m ENDDO ENDIF ENDIF END SUBROUTINE metvars2ctm ================================================ FILE: PREP/mcip/src/metvars_mod.f90 ================================================ !------------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------------! MODULE metvars !------------------------------------------------------------------------------- ! Name: Meteorology Variables ! Purpose: Contains input meteorology arrays. ! Revised: 19 Sep 2001 Original version. (T. Otte) ! 29 May 2003 Added SNOWCOVR. (D. Schwede) ! 09 Aug 2004 Added QGA, VEGOLD, and T2. (D. Schwede and T. Otte) ! 29 Nov 2004 Added LUFRAC. (T. Otte) ! 04 Apr 2005 Removed unused variables REGIME and MAVAIL. Added PH, ! PHB, PB, MU, and MUB for WRF. Added U10 and V10. ! (T. Otte and S.-B. Kim) ! 11 Aug 2005 Removed unused variable FSOIL. (T. Otte) ! 26 Jul 2007 Added IMPLICIT NONE. Removed internal variables for ! emissivity and net radiation. (T. Otte) ! 05 May 2008 Added 2-m mixing ratio (Q2) and turbulent kinetic ! energy (TKE) arrays. Added urban fraction (FRC_URB) ! and urban roughness length (Z0C_URB2D) for ! MET_UCMCALL=1. (T. Otte) ! 29 Sep 2009 Added THETA and CORIOLIS for when potential vorticity ! is needed. Added LATU, LONU, MAPU, LATV, LONV, and ! MAPV. Removed Z0C_URB2D. (T. Otte) ! 15 Dec 2010 Added sea ice. Added tipping buckets for convective ! and non-convective precipitation. (T. Otte) ! 07 Sep 2011 Updated disclaimer. (T. Otte) ! 11 Sep 2012 Added LANDMASK to be read from WRF. (T. Otte) ! 10 Apr 2015 Added new array CLDFRA to pass 3D resolved cloud ! fraction to output. (T. Spero) ! 21 Aug 2015 Changed latent heat flux from QFX to LH. Added ! moisture flux (QFX) for IFMOLACM. (T. Spero) ! 16 Mar 2018 Added SNOWH to output. Added C1H, C2H, C1F, and C2F to ! support hybrid vertical coordinate in WRF. Added ! LUFRAC2, MOSCATIDX, LAI_MOS, RA_MOS, RS_MOS, TSK_MOS, ! and ZNT_MOS to support NOAH Mosaic land-surface model. ! Added DZS to capture soil layers, and added 3D soil ! arrays, SOIT3D and SOIM3D. Added WSPDSFC and XLAIDYN ! for Noah. (T. Spero) ! 14 Sep 2018 Removed support for MM5v3 input. (T. Spero) ! 18 Jun 2019 Added new surface variables with PX LSM that can ! improve dust simulation in CCTM. Added optional ! variables from KF convective scheme with radiative ! feedbacks. (T. Spero) !------------------------------------------------------------------------------- IMPLICIT NONE REAL, ALLOCATABLE :: albedo ( : , : ) REAL, ALLOCATABLE :: c1f ( : ) REAL, ALLOCATABLE :: c1h ( : ) REAL, ALLOCATABLE :: c2f ( : ) REAL, ALLOCATABLE :: c2h ( : ) REAL, ALLOCATABLE :: clay_px ( : , : ) REAL, ALLOCATABLE :: cldfra ( : , : , : ) REAL, ALLOCATABLE :: cldfra_dp ( : , : , : ) REAL, ALLOCATABLE :: cldfra_sh ( : , : , : ) REAL, ALLOCATABLE :: coriolis ( : , : ) REAL, ALLOCATABLE :: csand_px ( : , : ) REAL, ALLOCATABLE :: dzs ( : ) REAL, ALLOCATABLE :: fmsand_px ( : , : ) REAL, ALLOCATABLE :: frc_urb ( : , : ) REAL, ALLOCATABLE :: glw ( : , : ) REAL, ALLOCATABLE :: groundt ( : , : ) REAL, ALLOCATABLE :: hfx ( : , : ) INTEGER, ALLOCATABLE :: i_rainc ( : , : ) INTEGER, ALLOCATABLE :: i_rainnc ( : , : ) INTEGER, ALLOCATABLE :: ircold ( : , : ) INTEGER, ALLOCATABLE :: irnold ( : , : ) INTEGER, ALLOCATABLE :: isltyp ( : , : ) REAL, ALLOCATABLE :: lai ( : , : ) REAL, ALLOCATABLE :: lai_mos ( : , : , : ) REAL, ALLOCATABLE :: lai_px ( : , : ) REAL, ALLOCATABLE :: landmask ( : , : ) INTEGER, ALLOCATABLE :: landuse ( : , : ) REAL, ALLOCATABLE :: latcrs ( : , : ) REAL, ALLOCATABLE :: latdot ( : , : ) REAL, ALLOCATABLE :: latu ( : , : ) REAL, ALLOCATABLE :: latv ( : , : ) REAL, ALLOCATABLE :: lh ( : , : ) REAL, ALLOCATABLE :: loncrs ( : , : ) REAL, ALLOCATABLE :: londot ( : , : ) REAL, ALLOCATABLE :: lonu ( : , : ) REAL, ALLOCATABLE :: lonv ( : , : ) REAL, ALLOCATABLE :: lufrac ( : , : , : ) REAL, ALLOCATABLE :: lufrac2 ( : , : , : ) REAL, ALLOCATABLE :: mapcrs ( : , : ) REAL, ALLOCATABLE :: mapdot ( : , : ) REAL, ALLOCATABLE :: mapu ( : , : ) REAL, ALLOCATABLE :: mapv ( : , : ) REAL, ALLOCATABLE :: mol ( : , : ) INTEGER, ALLOCATABLE :: moscatidx ( : , : , : ) REAL, ALLOCATABLE :: mu ( : , : ) REAL, ALLOCATABLE :: mub ( : , : ) REAL, ALLOCATABLE :: pb ( : , : , : ) REAL, ALLOCATABLE :: ph ( : , : , : ) REAL, ALLOCATABLE :: phb ( : , : , : ) REAL, ALLOCATABLE :: pp ( : , : , : ) REAL, ALLOCATABLE :: psa ( : , : ) REAL, ALLOCATABLE :: q2 ( : , : ) REAL, ALLOCATABLE :: qca ( : , : , : ) REAL, ALLOCATABLE :: qc_cu ( : , : , : ) REAL, ALLOCATABLE :: qfx ( : , : ) REAL, ALLOCATABLE :: qga ( : , : , : ) REAL, ALLOCATABLE :: qia ( : , : , : ) REAL, ALLOCATABLE :: qi_cu ( : , : , : ) REAL, ALLOCATABLE :: qra ( : , : , : ) REAL, ALLOCATABLE :: qsa ( : , : , : ) REAL, ALLOCATABLE :: qva ( : , : , : ) REAL, ALLOCATABLE :: ra ( : , : ) REAL, ALLOCATABLE :: ra_mos ( : , : , : ) REAL, ALLOCATABLE :: raincon ( : , : ) REAL, ALLOCATABLE :: rainnon ( : , : ) REAL, ALLOCATABLE :: rcold ( : , : ) REAL, ALLOCATABLE :: rgrnd ( : , : ) REAL, ALLOCATABLE :: rnold ( : , : ) REAL, ALLOCATABLE :: rs_mos ( : , : , : ) REAL, ALLOCATABLE :: rstom ( : , : ) REAL, ALLOCATABLE :: seaice ( : , : ) REAL, ALLOCATABLE :: sigmaf ( : ) REAL, ALLOCATABLE :: sigmah ( : ) REAL, ALLOCATABLE :: snowcovr ( : , : ) REAL, ALLOCATABLE :: snowh ( : , : ) REAL, ALLOCATABLE :: soilt1 ( : , : ) REAL, ALLOCATABLE :: soilt2 ( : , : ) REAL, ALLOCATABLE :: soim3d ( : , : , : ) REAL, ALLOCATABLE :: soit3d ( : , : , : ) REAL, ALLOCATABLE :: t2 ( : , : ) REAL, ALLOCATABLE :: ta ( : , : , : ) REAL, ALLOCATABLE :: terrain ( : , : ) REAL, ALLOCATABLE :: theta ( : , : , : ) REAL, ALLOCATABLE :: tke ( : , : , : ) REAL, ALLOCATABLE :: tsk_mos ( : , : , : ) REAL, ALLOCATABLE :: u10 ( : , : ) REAL, ALLOCATABLE :: ua ( : , : , : ) REAL, ALLOCATABLE :: ust ( : , : ) REAL, ALLOCATABLE :: v10 ( : , : ) REAL, ALLOCATABLE :: va ( : , : , : ) REAL, ALLOCATABLE :: veg ( : , : ) REAL, ALLOCATABLE :: w2 ( : , : ) REAL, ALLOCATABLE :: wa ( : , : , : ) REAL, ALLOCATABLE :: wfc_px ( : , : ) REAL, ALLOCATABLE :: wg ( : , : ) REAL, ALLOCATABLE :: wr ( : , : ) REAL, ALLOCATABLE :: wsat_px ( : , : ) REAL, ALLOCATABLE :: wspdsfc ( : , : ) REAL, ALLOCATABLE :: wwlt_px ( : , : ) REAL, ALLOCATABLE :: xlaidyn ( : , : ) REAL, ALLOCATABLE :: znt ( : , : ) REAL, ALLOCATABLE :: znt_mos ( : , : , : ) REAL, ALLOCATABLE :: zpbl ( : , : ) END MODULE metvars ================================================ FILE: PREP/mcip/src/netcdf_io_mod.f90 ================================================ !------------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------------! MODULE netcdf_io !------------------------------------------------------------------------------- ! Name: NetCDF IO ! Purpose: Contains routines to read NetCDF output. ! Revised: 31 Aug 2004 Original version provided by U. Houston. (S.-B. Kim) ! 21 Jul 2005 Updated to include error-handling on NetCDF functions ! and to conform to NetCDF standard routines for ! retrieving data (to eliminate type mismatches). ! Updated formatting. (T. Otte) ! 02 Aug 2005 Changed order of variable declarations in some ! subroutines to avoid compile failure on some ! machines. (T. Otte) ! 20 Jun 2006 Removed unused variables. Changed local variables ! FILE to FILENAME and DATA to DATAOUT to avoid ! conflicts with F90 keywords. (T. Otte) ! 19 Apr 2007 Added new routine GET_VAR_REAL2_CDF to read "real" ! scalars, as needed for WRFv2.2. Added new routine ! GET_DIM_INT_CDF to retrieve netCDF dimensions. ! Changed internal error handling so that errors are ! passed back using a non-zero RCODE for dimension ! mismatches in addition to netCDF errors. (T. Otte) ! 12 Feb 2010 Removed unused variable ID_TIME from subroutine ! GET_GL_ATT_INT_CDF. (T. Otte) ! 19 Mar 2010 Removed routines GET_DIMS_CDF, GET_DIM_INT_CDF, ! GET_GL_ATT_INT_CDF, GET_GL_ATT_REAL_CDF, ! GET_GL_ATT_TEXT_CDF, and GET_DIM_ATT_INT_CDF. ! Removed file open and close functions from all ! remaining routines, and changed input argument ! from FILENAME to CDFID. (T. Otte) ! 31 Aug 2011 Updated netCDF to F90. Removed GET_TIMES_CDF. ! Changed F77 character declarations to F90 standard. ! (T. Otte) ! 07 Sep 2011 Updated disclaimer. (T. Otte) ! 02 Feb 2018 Added new routine GET_VAR_3D_INT_CDF. (T. Spero) ! 22 Jun 2018 Changed module name from WRF_NETCDF to NETCDF_IO. ! (T. Spero) !------------------------------------------------------------------------------- CONTAINS !------------------------------------------------------------------------------- !------------------------------------------------------------------------------- SUBROUTINE get_var_3d_real_cdf (cdfid, var, dum3d, it, rcode) USE netcdf IMPLICIT NONE INTEGER, INTENT(IN) :: cdfid REAL, INTENT(OUT) :: dum3d ( : , : , : ) INTEGER :: id_data INTEGER, INTENT(IN) :: it INTEGER :: nx INTEGER :: ny INTEGER :: nz INTEGER, INTENT(OUT) :: rcode CHARACTER(LEN=*), INTENT(IN) :: var nx = SIZE(dum3d,1) ny = SIZE(dum3d,2) nz = SIZE(dum3d,3) rcode = nf90_inq_varid (cdfid, var, id_data) IF ( rcode /= nf90_noerr ) RETURN rcode = nf90_get_var (cdfid, id_data, dum3d, start=(/1,1,1,it/), & count=(/nx,ny,nz,1/)) END SUBROUTINE get_var_3d_real_cdf !------------------------------------------------------------------------------- !------------------------------------------------------------------------------- SUBROUTINE get_var_3d_int_cdf (cdfid, var, idum3d, it, rcode) USE netcdf IMPLICIT NONE INTEGER, INTENT(IN) :: cdfid INTEGER :: id_data INTEGER, INTENT(OUT) :: idum3d ( : , : , : ) INTEGER, INTENT(IN) :: it INTEGER :: nx INTEGER :: ny INTEGER :: nz INTEGER, INTENT(OUT) :: rcode CHARACTER(LEN=*), INTENT(IN) :: var nx = SIZE(idum3d,1) ny = SIZE(idum3d,2) nz = SIZE(idum3d,3) rcode = nf90_inq_varid (cdfid, var, id_data) IF ( rcode /= nf90_noerr ) RETURN rcode = nf90_get_var (cdfid, id_data, idum3d, start=(/1,1,1,it/), & count=(/nx,ny,nz,1/)) END SUBROUTINE get_var_3d_int_cdf !------------------------------------------------------------------------------- !------------------------------------------------------------------------------- SUBROUTINE get_var_2d_real_cdf (cdfid, var, dum2d, it, rcode) USE netcdf IMPLICIT NONE INTEGER, INTENT(IN) :: cdfid REAL, INTENT(OUT) :: dum2d ( : , : ) INTEGER :: id_data INTEGER, INTENT(IN) :: it INTEGER :: nx INTEGER :: ny INTEGER, INTENT(OUT) :: rcode CHARACTER(LEN=*), INTENT(IN) :: var nx = SIZE(dum2d,1) ny = SIZE(dum2d,2) rcode = nf90_inq_varid (cdfid, var, id_data) IF ( rcode /= nf90_noerr ) RETURN rcode = nf90_get_var (cdfid, id_data, dum2d, start=(/1,1,it/), & count=(/nx,ny,1/)) END SUBROUTINE get_var_2d_real_cdf !------------------------------------------------------------------------------- !------------------------------------------------------------------------------- SUBROUTINE get_var_2d_int_cdf (cdfid, var, idum2d, it, rcode) USE netcdf IMPLICIT NONE INTEGER, INTENT(IN) :: cdfid INTEGER :: id_data INTEGER, INTENT(OUT) :: idum2d ( : , : ) INTEGER, INTENT(IN) :: it INTEGER :: nx INTEGER :: ny INTEGER, INTENT(OUT) :: rcode CHARACTER(LEN=*), INTENT(IN) :: var nx = SIZE(idum2d,1) ny = SIZE(idum2d,2) rcode = nf90_inq_varid (cdfid, var, id_data) IF ( rcode /= nf90_noerr ) RETURN rcode = nf90_get_var (cdfid, id_data, idum2d, start=(/1,1,it/), & count=(/nx,ny,1/)) END SUBROUTINE get_var_2d_int_cdf !------------------------------------------------------------------------------- !------------------------------------------------------------------------------- SUBROUTINE get_var_1d_real_cdf (cdfid, var, dum1d, it, rcode) USE netcdf IMPLICIT NONE INTEGER, INTENT(IN) :: cdfid REAL, INTENT(OUT) :: dum1d ( : ) INTEGER :: id_data INTEGER, INTENT(IN) :: it INTEGER :: nx INTEGER, INTENT(OUT) :: rcode CHARACTER(LEN=*), INTENT(IN) :: var nx = SIZE(dum1d) rcode = nf90_inq_varid (cdfid, var, id_data) IF ( rcode /= nf90_noerr ) RETURN rcode = nf90_get_var (cdfid, id_data, dum1d, start=(/1,it/), & count=(/nx,1/)) END SUBROUTINE get_var_1d_real_cdf !------------------------------------------------------------------------------- !------------------------------------------------------------------------------- SUBROUTINE get_var_real_cdf (cdfid, var, scalar, rcode) USE netcdf IMPLICIT NONE INTEGER, INTENT(IN) :: cdfid INTEGER :: id_data INTEGER, INTENT(OUT) :: rcode REAL, INTENT(OUT) :: scalar CHARACTER(LEN=*), INTENT(IN) :: var rcode = nf90_inq_varid (cdfid, var, id_data) IF ( rcode /= nf90_noerr ) RETURN rcode = nf90_get_var (cdfid, id_data, scalar) END SUBROUTINE get_var_real_cdf !------------------------------------------------------------------------------- !------------------------------------------------------------------------------- END MODULE netcdf_io ================================================ FILE: PREP/mcip/src/outclog.f90 ================================================ !------------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------------! SUBROUTINE outclog !------------------------------------------------------------------------------- ! Name: Output CTM -- Log ! Purpose: Output sample of time-varying fields to log file. ! Revised: 17 Dec 2018 Original version in MCIPv5.0. Subsumes parts of ! metcro.f90, metdot.f90, soilcro.f90, and moscro.f90 ! from MCIPv4.5. (T. Spero) !------------------------------------------------------------------------------- USE mcipparm USE ctmvars IMPLICIT NONE CHARACTER(LEN=63) :: ifmt1 INTEGER :: k INTEGER :: k1 INTEGER :: k2 INTEGER :: n CHARACTER(LEN=2) :: str1 CHARACTER(LEN=2) :: str2 !------------------------------------------------------------------------------- ! Error, warning, and informational messages. !------------------------------------------------------------------------------- CHARACTER(LEN=256), PARAMETER :: f6000 = "(1x, a9, 2x, f12.4, 2x, a)" !------------------------------------------------------------------------------- ! Print sample output to log file. !------------------------------------------------------------------------------- k1 = nlays / 5 k2 = MOD(nlays, 5) WRITE ( str1, '(i2)' ) k1 - 1 WRITE ( str2, '(i2)' ) k2 IF ( (k1 - 1) > 0 ) THEN IF ( k2 > 0 ) THEN ifmt1 = "(/,1x,a9,5(2x,f12.4)," // str1 // "(/,10x,5(2x,f12.4)),/,10x," & & // str2 // "(2x,f12.4))" ELSE ifmt1 = "(/,1x,a9,5(2x,f12.4)," // str1 // "(/,10x,5(2x,f12.4)))" ENDIF ELSE IF ( k2 > 0 ) THEN ifmt1 = "(/,1x,a9,5(2x,f12.4),/,10x," // str2 // "(2x,f12.4))" ELSE ifmt1 = "(/,1x,a9,5(2x,f12.4))" ENDIF ENDIF WRITE (*,'(/,a,/)') '- METCRO: Printing sample cells in output grid' DO n = 1, nfld2dxyt WRITE (*,f6000) TRIM(fld2dxyt(n)%fldname), & fld2dxyt(n)%fld(lprt_col,lprt_row), & TRIM(fld2dxyt(n)%units) ENDDO DO n = 1, nfld3dxyzt WRITE (*,ifmt1) TRIM(fld3dxyzt(n)%fldname), & (fld3dxyzt(n)%fld(lprt_col,lprt_row,k),k=1,nlays) ENDDO IF ( nqspecies > 0 ) THEN DO n = 1, nfld3dxyzt_q WRITE (*,ifmt1) TRIM(fld3dxyzt_q(n)%fldname), & (fld3dxyzt_q(n)%fld(lprt_col,lprt_row,k),k=1,nlays) ENDDO ENDIF WRITE (*,'(/,a,/)') '- METDOT: Printing sample cells in output grid' DO n = 1, nfld3dxyzt_d WRITE (*,ifmt1) TRIM(fld3dxyzt_d(n)%fldname), & (fld3dxyzt_d(n)%fld(lprt_col,lprt_row,k),k=1,nlays) ENDDO IF ( ifsoil ) THEN k1 = metsoi / 5 k2 = MOD(metsoi, 5) WRITE ( str1, '(i2)' ) k1 - 1 WRITE ( str2, '(i2)' ) k2 IF ( (k1 - 1) > 0 ) THEN IF ( k2 > 0 ) THEN ifmt1 = "(/,1x,a9,5(2x,f12.4)," // str1 // "(/,10x,5(2x,f12.4)),/,10x,"& & // str2 // "(2x,f12.4))" ELSE ifmt1 = "(/,1x,a9,5(2x,f12.4)," // str1 // "(/,10x,5(2x,f12.4)))" ENDIF ELSE IF ( k2 > 0 ) THEN ifmt1 = "(/,1x,a9,5(2x,f12.4),/,10x," // str2 // "(2x,f12.4))" ELSE ifmt1 = "(/,1x,a9,5(2x,f12.4))" ENDIF ENDIF WRITE (*,'(/,a,/)') '- SOICRO: Printing sample cells in output grid' DO n = 1, nfld3dxyst WRITE (*,ifmt1) TRIM(fld3dxyst(n)%fldname), & (fld3dxyst(n)%fld(lprt_col,lprt_row,k),k=1,metsoi) ENDDO ENDIF ! ifsoil END SUBROUTINE outclog ================================================ FILE: PREP/mcip/src/outcm3io.f90 ================================================ !------------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------------! SUBROUTINE outcm3io (sdate, stime) !------------------------------------------------------------------------------- ! Name: Output CTM Fields in Models-3 I/O API ! Purpose: Output time-varying fields in Models-3 I/O API. ! Revised: 17 Dec 2018 Original version in MCIPv5.0. Subsumes parts of ! metcro.f90, metdot.f90, soilcro.f90, and moscro.f90 ! from MCIPv4.5. (T. Spero) ! 19 Jun 2019 Added optional variables from KF convective scheme ! with radiative feedbacks. (T. Spero) ! 15 Jul 2019 Corrected error in setting units for 3D microphysics ! fields. (T. Spero) !------------------------------------------------------------------------------- USE mcipparm USE ctmvars USE coord USE files USE vgrd USE m3utilio IMPLICIT NONE REAL, PARAMETER :: epsilonq = 1.0e-30 LOGICAL, SAVE :: first = .TRUE. INTEGER :: ii INTEGER :: n INTEGER :: nchar CHARACTER(LEN=16), PARAMETER :: pname = 'OUTCM3IO' INTEGER, INTENT(IN) :: sdate INTEGER, INTENT(IN) :: stime !------------------------------------------------------------------------------- ! Error, warning, and informational messages. !------------------------------------------------------------------------------- CHARACTER(LEN=256), PARAMETER :: f9000 = "(/, 1x, 70('*'), & & /, 1x, '*** SUBROUTINE: ', a, & & /, 1x, '*** ERROR OPENING FILE ', a, & & /, 1x, 70('*'))" CHARACTER(LEN=256), PARAMETER :: f9100 = "(/, 1x, 70('*'), & & /, 1x, '*** SUBROUTINE: ', a, & & /, 1x, '*** ERROR WRITING TO FILE ', a, & & /, 1x, 70('*'))" !------------------------------------------------------------------------------- ! Build common header for I/O API output. !------------------------------------------------------------------------------- CALL comheader (sdate, stime) !------------------------------------------------------------------------------- ! Write MET_CRO_2D. !------------------------------------------------------------------------------- DO n = 1, nfld2dxyt vtype3d(n) = m3real nchar = LEN_TRIM(fld2dxyt(n)%fldname) vname3d(n)(1:nchar) = TRIM(fld2dxyt(n)%fldname) vname3d(n)(nchar+1:) = ' ' nchar = LEN_TRIM(fld2dxyt(n)%units) units3d(n)(1:nchar) = TRIM(fld2dxyt(n)%units) units3d(n)(nchar+1:) = ' ' nchar = LEN_TRIM(fld2dxyt(n)%long_name) vdesc3d(n)(1:nchar) = TRIM(fld2dxyt(n)%long_name) vdesc3d(n)(nchar+1:) = ' ' ENDDO gdnam3d = TRIM(grdnam) // '_CROSS' xorig3d = xorig_gd yorig3d = yorig_gd ncols3d = ncols nrows3d = nrows nthik3d = nthik ftype3d = grdded3 nvars3d = nfld2dxyt nlays3d = 1 ncols3d = ncols nrows3d = nrows nthik3d = nthik tstep3d = grstep IF ( first ) THEN IF ( .NOT. open3 (metcro2d, fsunkn3, pname) ) THEN WRITE (*,f9000) TRIM(pname), TRIM(metcro2d) CALL graceful_stop (pname) ENDIF ENDIF IF ( .NOT. desc3 (metcro2d) ) THEN CALL m3err ('METCRO', sdate, stime, & 'Could not read DESC of ' // metcro2d // ' file', .TRUE.) ENDIF DO n = 1, nfld2dxyt IF ( .NOT. write3 (metcro2d, vname3d(n), sdate, stime, & fld2dxyt(n)%fld) ) THEN WRITE (*,f9100) TRIM(pname), TRIM(metcro2d) CALL graceful_stop (pname) ENDIF ENDDO !------------------------------------------------------------------------------- ! Write MET_CRO_3D. !------------------------------------------------------------------------------- DO n = 1, nfld3dxyzt vtype3d(n) = m3real nchar = LEN_TRIM(fld3dxyzt(n)%fldname) vname3d(n)(1:nchar) = TRIM(fld3dxyzt(n)%fldname) vname3d(n)(nchar+1:) = ' ' nchar = LEN_TRIM(fld3dxyzt(n)%units) units3d(n)(1:nchar) = TRIM(fld3dxyzt(n)%units) units3d(n)(nchar+1:) = ' ' nchar = LEN_TRIM(fld3dxyzt(n)%long_name) vdesc3d(n)(1:nchar) = TRIM(fld3dxyzt(n)%long_name) vdesc3d(n)(nchar+1:) = ' ' ENDDO IF ( nqspecies > 0 ) THEN DO ii = 1, nfld3dxyzt_q n = nfld3dxyzt + ii vtype3d(n) = m3real nchar = LEN_TRIM(fld3dxyzt_q(ii)%fldname) vname3d(n)(1:nchar) = TRIM(fld3dxyzt_q(ii)%fldname) vname3d(n)(nchar+1:) = ' ' nchar = LEN_TRIM(fld3dxyzt_q(ii)%units) units3d(n)(1:nchar) = TRIM(fld3dxyzt_q(ii)%units) units3d(n)(nchar+1:) = ' ' nchar = LEN_TRIM(fld3dxyzt_q(ii)%long_name) vdesc3d(n)(1:nchar) = TRIM(fld3dxyzt_q(ii)%long_name) vdesc3d(n)(nchar+1:) = ' ' ENDDO ENDIF gdnam3d = TRIM(grdnam) // '_CROSS' xorig3d = xorig_gd yorig3d = yorig_gd ncols3d = ncols nrows3d = nrows nthik3d = nthik ftype3d = grdded3 nvars3d = nfld3dxyzt + nfld3dxyzt_q nlays3d = nlays ncols3d = ncols nrows3d = nrows nthik3d = nthik tstep3d = grstep IF ( first ) THEN IF ( .NOT. open3 (metcro3d, fsunkn3, pname) ) THEN WRITE (*,f9000) TRIM(pname), TRIM(metcro3d) CALL graceful_stop (pname) ENDIF ENDIF IF ( .NOT. desc3 (metcro3d) ) THEN CALL m3err ('METCRO', sdate, stime, & 'Could not read DESC of ' // metcro3d // ' file', .TRUE.) ENDIF WHERE ( ABS(c_qv%fld(:,:,:)) < epsilonq ) c_qv%fld(:,:,:) = 0.0 IF ( ASSOCIATED(c_qc) ) THEN WHERE ( ABS(c_qc%fld(:,:,:)) < epsilonq ) c_qc%fld(:,:,:) = 0.0 ENDIF IF ( ASSOCIATED(c_qr) ) THEN WHERE ( ABS(c_qr%fld(:,:,:)) < epsilonq ) c_qr%fld(:,:,:) = 0.0 ENDIF IF ( ASSOCIATED(c_qi) ) THEN WHERE ( ABS(c_qi%fld(:,:,:)) < epsilonq ) c_qi%fld(:,:,:) = 0.0 ENDIF IF ( ASSOCIATED(c_qs) ) THEN WHERE ( ABS(c_qs%fld(:,:,:)) < epsilonq ) c_qs%fld(:,:,:) = 0.0 ENDIF IF ( ASSOCIATED(c_qg) ) THEN WHERE ( ABS(c_qg%fld(:,:,:)) < epsilonq ) c_qg%fld(:,:,:) = 0.0 ENDIF IF ( ASSOCIATED(c_qc_cu) ) THEN WHERE ( ABS(c_qc_cu%fld(:,:,:)) < epsilonq ) c_qc_cu%fld(:,:,:) = 0.0 ENDIF IF ( ASSOCIATED(c_qi_cu) ) THEN WHERE ( ABS(c_qi_cu%fld(:,:,:)) < epsilonq ) c_qi_cu%fld(:,:,:) = 0.0 ENDIF IF ( ASSOCIATED(c_cldfra_dp) ) THEN WHERE ( ABS(c_cldfra_dp%fld(:,:,:)) < epsilonq ) c_cldfra_dp%fld(:,:,:) = 0.0 ENDIF IF ( ASSOCIATED(c_cldfra_sh) ) THEN WHERE ( ABS(c_cldfra_sh%fld(:,:,:)) < epsilonq ) c_cldfra_sh%fld(:,:,:) = 0.0 ENDIF DO n = 1, nfld3dxyzt IF ( .NOT. write3 (metcro3d, vname3d(n), sdate, stime, & fld3dxyzt(n)%fld) ) THEN WRITE (*,f9100) TRIM(pname), TRIM(metcro2d) CALL graceful_stop (pname) ENDIF ENDDO IF ( nqspecies > 0 ) THEN DO n = 1, nfld3dxyzt_q IF ( .NOT. write3 (metcro3d, vname3d(nfld3dxyzt+n), sdate, stime, & fld3dxyzt_q(n)%fld) ) THEN WRITE (*,f9100) TRIM(pname), TRIM(metcro2d) CALL graceful_stop (pname) ENDIF ENDDO ENDIF !------------------------------------------------------------------------------- ! Write MET_BDY_3D. Header is the same as MET_CRO_3D except for file type. !------------------------------------------------------------------------------- ftype3d = bndary3 IF ( first ) THEN IF ( .NOT. open3 (metbdy3d, fsunkn3, pname) ) THEN WRITE (*,f9000) TRIM(pname), TRIM(metbdy3d) CALL graceful_stop (pname) ENDIF ENDIF IF ( .NOT. desc3 (metbdy3d) ) THEN CALL m3err ('METCRO', sdate, stime, & 'Could not read DESC of ' // metbdy3d // ' file', .TRUE.) ENDIF WHERE ( ABS(c_qv%bdy(:,:)) < epsilonq ) c_qv%bdy(:,:) = 0.0 IF ( ASSOCIATED(c_qc) ) THEN WHERE ( ABS(c_qc%bdy(:,:)) < epsilonq ) c_qc%bdy(:,:) = 0.0 ENDIF IF ( ASSOCIATED(c_qr) ) THEN WHERE ( ABS(c_qr%bdy(:,:)) < epsilonq ) c_qr%bdy(:,:) = 0.0 ENDIF IF ( ASSOCIATED(c_qi) ) THEN WHERE ( ABS(c_qi%bdy(:,:)) < epsilonq ) c_qi%bdy(:,:) = 0.0 ENDIF IF ( ASSOCIATED(c_qs) ) THEN WHERE ( ABS(c_qs%bdy(:,:)) < epsilonq ) c_qs%bdy(:,:) = 0.0 ENDIF IF ( ASSOCIATED(c_qg) ) THEN WHERE ( ABS(c_qg%bdy(:,:)) < epsilonq ) c_qg%bdy(:,:) = 0.0 ENDIF IF ( ASSOCIATED(c_qc_cu) ) THEN WHERE ( ABS(c_qc_cu%bdy(:,:)) < epsilonq ) c_qc_cu%bdy(:,:) = 0.0 ENDIF IF ( ASSOCIATED(c_qi_cu) ) THEN WHERE ( ABS(c_qi_cu%bdy(:,:)) < epsilonq ) c_qi_cu%bdy(:,:) = 0.0 ENDIF IF ( ASSOCIATED(c_cldfra_dp) ) THEN WHERE ( ABS(c_cldfra_dp%bdy(:,:)) < epsilonq ) c_cldfra_dp%bdy(:,:) = 0.0 ENDIF IF ( ASSOCIATED(c_cldfra_sh) ) THEN WHERE ( ABS(c_cldfra_sh%bdy(:,:)) < epsilonq ) c_cldfra_sh%bdy(:,:) = 0.0 ENDIF DO n = 1, nfld3dxyzt IF ( .NOT. write3 (metbdy3d, vname3d(n), sdate, stime, & fld3dxyzt(n)%bdy) ) THEN WRITE (*,f9100) TRIM(pname), TRIM(metbdy3d) CALL graceful_stop (pname) ENDIF ENDDO IF ( nqspecies > 0 ) THEN DO n = 1, nfld3dxyzt_q IF ( .NOT. write3 (metbdy3d, vname3d(nfld3dxyzt+n), sdate, stime, & fld3dxyzt_q(n)%bdy) ) THEN WRITE (*,f9100) TRIM(pname), TRIM(metbdy3d) CALL graceful_stop (pname) ENDIF ENDDO ENDIF !------------------------------------------------------------------------------- ! Write MET_DOT_3D. !------------------------------------------------------------------------------- DO n = 1, nfld3dxyzt_d vtype3d(n) = m3real nchar = LEN_TRIM(fld3dxyzt_d(n)%fldname) vname3d(n)(1:nchar) = TRIM(fld3dxyzt_d(n)%fldname) vname3d(n)(nchar+1:) = ' ' nchar = LEN_TRIM(fld3dxyzt_d(n)%units) units3d(n)(1:nchar) = TRIM(fld3dxyzt_d(n)%units) units3d(n)(nchar+1:) = ' ' nchar = LEN_TRIM(fld3dxyzt_d(n)%long_name) vdesc3d(n)(1:nchar) = TRIM(fld3dxyzt_d(n)%long_name) vdesc3d(n)(nchar+1:) = ' ' ENDDO gdnam3d = TRIM(grdnam) // '_DOT' xorig3d = xorig_gd - 0.5d0 * xcell_gd yorig3d = yorig_gd - 0.5d0 * ycell_gd ncols3d = ncols + 1 nrows3d = nrows + 1 nthik3d = nthik ftype3d = grdded3 nvars3d = nfld3dxyzt_d nlays3d = nlays tstep3d = grstep IF ( first ) THEN IF ( .NOT. open3 (metdot3d, fsunkn3, pname) ) THEN WRITE (*,f9000) TRIM(pname), TRIM(metdot3d) CALL graceful_stop (pname) ENDIF ENDIF IF ( .NOT. desc3 (metdot3d) ) THEN CALL m3err ('METDOT', sdate, stime, & 'Could not read DESC of ' // metdot3d // ' file', .TRUE.) ENDIF DO n = 1, nfld3dxyzt_d IF ( .NOT. write3 (metdot3d, vname3d(n), sdate, stime, & fld3dxyzt_d(n)%fld) ) THEN WRITE (*,f9100) TRIM(pname), TRIM(metdot3d) CALL graceful_stop (pname) ENDIF ENDDO !------------------------------------------------------------------------------- ! Write SOI_CRO. !------------------------------------------------------------------------------- IF ( ifsoil ) THEN CALL comheader_soi (sdate, stime) DO n = 1, nfld3dxyst vtype3d(n) = m3real nchar = LEN_TRIM(fld3dxyst(n)%fldname) vname3d(n)(1:nchar) = TRIM(fld3dxyst(n)%fldname) vname3d(n)(nchar+1:) = ' ' nchar = LEN_TRIM(fld3dxyst(n)%units) units3d(n)(1:nchar) = TRIM(fld3dxyst(n)%units) units3d(n)(nchar+1:) = ' ' nchar = LEN_TRIM(fld3dxyst(n)%long_name) vdesc3d(n)(1:nchar) = TRIM(fld3dxyst(n)%long_name) vdesc3d(n)(nchar+1:) = ' ' ENDDO gdnam3d = TRIM(grdnam) // '_CROSS' ftype3d = grdded3 nvars3d = nfld3dxyst nlays3d = metsoi ncols3d = ncols nrows3d = nrows nthik3d = nthik tstep3d = grstep IF ( first ) THEN IF ( .NOT. open3 (soicro, fsunkn3, pname) ) THEN WRITE (*,f9000) TRIM(pname), TRIM(soicro) CALL graceful_stop (pname) ENDIF ENDIF IF ( .NOT. desc3 (soicro) ) THEN CALL m3err ('SOICRO', sdate, stime, & 'Could not read DESC of ' // soicro // ' file', .TRUE.) ENDIF DO n = 1, nfld3dxyst IF ( .NOT. write3 (soicro, vname3d(n), sdate, stime, & fld3dxyst(n)%fld) ) THEN WRITE (*,f9100) TRIM(pname), TRIM(soicro) CALL graceful_stop (pname) ENDIF ENDDO ENDIF !------------------------------------------------------------------------------- ! Write MOSAIC_CRO. !------------------------------------------------------------------------------- IF ( ifmosaic ) THEN CALL comheader_mos (sdate, stime) DO n = 1, nfld3dxymt vtype3d(n) = m3real nchar = LEN_TRIM(fld3dxymt(n)%fldname) vname3d(n)(1:nchar) = TRIM(fld3dxymt(n)%fldname) vname3d(n)(nchar+1:) = ' ' nchar = LEN_TRIM(fld3dxymt(n)%units) units3d(n)(1:nchar) = TRIM(fld3dxymt(n)%units) units3d(n)(nchar+1:) = ' ' nchar = LEN_TRIM(fld3dxymt(n)%long_name) vdesc3d(n)(1:nchar) = TRIM(fld3dxymt(n)%long_name) vdesc3d(n)(nchar+1:) = ' ' ENDDO gdnam3d = TRIM(grdnam) // '_CROSS' ftype3d = grdded3 nvars3d = nfld3dxymt nlays3d = nummosaic ncols3d = ncols nrows3d = nrows nthik3d = nthik tstep3d = grstep IF ( first ) THEN IF ( .NOT. open3 (mosaiccro, fsunkn3, pname) ) THEN WRITE (*,f9000) TRIM(pname), TRIM(mosaiccro) CALL graceful_stop (pname) ENDIF ENDIF IF ( .NOT. desc3 (mosaiccro) ) THEN CALL m3err ('MOSCRO', sdate, stime, & 'Could not read DESC of ' // mosaiccro // ' file', .TRUE.) ENDIF DO n = 1, nfld3dxymt IF ( .NOT. write3 (mosaiccro, vname3d(n), sdate, stime, & fld3dxymt(n)%fld) ) THEN WRITE (*,f9100) TRIM(pname), TRIM(mosaiccro) CALL graceful_stop (pname) ENDIF ENDDO ENDIF first = .FALSE. END SUBROUTINE outcm3io ================================================ FILE: PREP/mcip/src/outglog.f90 ================================================ !------------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------------! SUBROUTINE outglog !------------------------------------------------------------------------------- ! Name: Output GRID -- Log ! Purpose: Output sample of time-independent fields to log file. ! Revised: 17 Dec 2018 Original version in MCIPv5.0. Subsumes part of ! gridout.f90 from MCIPv4.5. (T. Spero) !------------------------------------------------------------------------------- USE mcipparm USE ctmvars IMPLICIT NONE CHARACTER(LEN=63) :: ifmt1 INTEGER :: k INTEGER :: k1 INTEGER :: k2 INTEGER :: n CHARACTER(LEN=2) :: str1 CHARACTER(LEN=2) :: str2 !------------------------------------------------------------------------------- ! Error, warning, and informational messages. !------------------------------------------------------------------------------- CHARACTER(LEN=256), PARAMETER :: f6000 = "(1x, a9, 2x, f12.4, 2x, a)" !------------------------------------------------------------------------------- ! Print sample output to log file. !------------------------------------------------------------------------------- WRITE (*,'(/,a,/)') '- GRIDOUT: Printing sample cells in output grid' DO n = 1, nfld2dxy WRITE (*,f6000) TRIM(fld2dxy(n)%fldname), & fld2dxy(n)%fld(lprt_col,lprt_row), & TRIM(fld2dxy(n)%units) ENDDO DO n = 1, nfld2dxy_d WRITE (*,f6000) TRIM(fld2dxy_d(n)%fldname), & fld2dxy_d(n)%fld(lprt_col,lprt_row), & TRIM(fld2dxy_d(n)%units) ENDDO IF ( iflufrc ) THEN ! fractional land use data are available k1 = nummetlu / 5 k2 = MOD(nummetlu, 5) WRITE ( str1, '(i2)' ) k1 - 1 WRITE ( str2, '(i2)' ) k2 IF ( (k1 - 1) > 0 ) THEN IF ( k2 > 0 ) THEN ifmt1 = "(/,1x,a9,5(2x,f12.4)," // str1 // "(/,10x,5(2x,f12.4)),/,10x," & & // str2 // "(2x,f12.4))" ELSE ifmt1 = "(/,1x,a9,5(2x,f12.4)," // str1 // "(/,10x,5(2x,f12.4)))" ENDIF ELSE IF ( k2 > 0 ) THEN ifmt1 = "(/,1x,a9,5(2x,f12.4),/,10x," // str2 // "(2x,f12.4))" ELSE ifmt1 = "(/,1x,a9,5(2x,f12.4))" ENDIF ENDIF WRITE (*,'(/,a,/)') '- LUCRO: Printing sample cells in output grid' DO n = 1, nfld3dxyl WRITE (*,ifmt1) TRIM(fld3dxyl(n)%fldname), & (fld3dxyl(n)%fld(lprt_col,lprt_row,k),k=1,nummetlu) ENDDO ENDIF END SUBROUTINE outglog ================================================ FILE: PREP/mcip/src/outgm3io.f90 ================================================ !------------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------------! SUBROUTINE outgm3io (sdate, stime) !------------------------------------------------------------------------------- ! Name: Output GRID Fields in Models-3 I/O API ! Purpose: Output time-independent fields in Models-3 I/O API. ! Revised: 17 Dec 2018 Original version in MCIPv5.0. Subsumes part of ! gridout.f90 from MCIPv4.5. (T. Spero) ! CCTM grid to a separate subroutine. Subsumed output ! of fractional land use from lucro.f90. (T. Spero) ! 09 Jul 2019 Corrected output time step to 0 for time-invariant ! file LUFRAC_CRO. (T. Spero) !------------------------------------------------------------------------------- USE mcipparm USE xvars, ONLY: xlusrc USE ctmvars USE coord USE files USE m3utilio IMPLICIT NONE INTEGER :: n INTEGER :: nchar CHARACTER(LEN=16), PARAMETER :: pname = 'OUTGM3IO' INTEGER, INTENT(IN) :: sdate INTEGER, INTENT(IN) :: stime REAL(8) :: xorigdot REAL(8) :: yorigdot !------------------------------------------------------------------------------- ! Error, warning, and informational messages. !------------------------------------------------------------------------------- CHARACTER(LEN=256), PARAMETER :: f9000 = "(/, 1x, 70('*'), & & /, 1x, '*** SUBROUTINE: ', a, & & /, 1x, '*** ERROR OPENING FILE ', a, & & /, 1x, 70('*'))" CHARACTER(LEN=256), PARAMETER :: f9100 = "(/, 1x, 70('*'), & & /, 1x, '*** SUBROUTINE: ', a, & & /, 1x, '*** ERROR WRITING TO FILE ', a, & & /, 1x, 70('*'))" !------------------------------------------------------------------------------- ! Build common header for I/O API files. !------------------------------------------------------------------------------- CALL comheader (sdate, stime) !------------------------------------------------------------------------------- ! Write GRID_CRO_2D. !------------------------------------------------------------------------------- DO n = 1, nfld2dxy vtype3d(n) = m3real nchar = LEN_TRIM(fld2dxy(n)%fldname) vname3d(n)(1:nchar) = TRIM(fld2dxy(n)%fldname) vname3d(n)(nchar+1:) = ' ' nchar = LEN_TRIM(fld2dxy(n)%units) units3d(n)(1:nchar) = TRIM(fld2dxy(n)%units) units3d(n)(nchar+1:) = ' ' IF ( TRIM(vname3d(n)) == 'DLUSE' ) THEN nchar = LEN_TRIM(TRIM(fld2dxy(n)%long_name) // ' ' // TRIM(xlusrc)) vdesc3d(n)(1:nchar) = TRIM(fld2dxy(n)%long_name) // ' ' // TRIM(xlusrc) vdesc3d(n)(nchar+1:) = ' ' ELSE nchar = LEN_TRIM(fld2dxy(n)%long_name) vdesc3d(n)(1:nchar) = TRIM(fld2dxy(n)%long_name) vdesc3d(n)(nchar+1:) = ' ' ENDIF ENDDO gdnam3d = TRIM(grdnam) // '_CROSS' xorig3d = xorig_gd yorig3d = yorig_gd ncols3d = ncols nrows3d = nrows nthik3d = nthik ftype3d = grdded3 nvars3d = nfld2dxy nlays3d = 1 tstep3d = 0 IF ( .NOT. open3 (gridcro2d, fsunkn3, pname) ) THEN WRITE (*,f9000) TRIM(pname), TRIM(gridcro2d) CALL graceful_stop (pname) ENDIF IF ( .NOT. desc3 (gridcro2d) ) THEN CALL m3err ('GRIDOUT', sdate, stime, & 'Could not read DESC of ' // gridcro2d // ' file', .TRUE.) ENDIF DO n = 1, nfld2dxy IF ( .NOT. write3 (gridcro2d, vname3d(n), sdate, stime, & fld2dxy(n)%fld) ) THEN WRITE (*,f9100) TRIM(pname), TRIM(gridcro2d) CALL graceful_stop (pname) ENDIF ENDDO !------------------------------------------------------------------------------- ! Write GRID_BDY_2D. Header is the same as GRID_CRO_2D except for file type. !------------------------------------------------------------------------------- ftype3d = bndary3 IF ( .NOT. open3 (gridbdy2d, fsunkn3, pname) ) THEN WRITE (*,f9000) TRIM(pname), TRIM(gridbdy2d) CALL graceful_stop (pname) ENDIF IF ( .NOT. desc3 (gridbdy2d) ) THEN CALL m3err ('GRIDOUT', sdate, stime, & 'Could not read DESC of ' // gridbdy2d // ' file', .TRUE.) ENDIF DO n = 1, nfld2dxy IF ( .NOT. write3 (gridbdy2d, vname3d(n), sdate, stime, & fld2dxy(n)%bdy) ) THEN WRITE (*,f9100) TRIM(pname), TRIM(gridbdy2d) CALL graceful_stop (pname) ENDIF ENDDO !------------------------------------------------------------------------------- ! Write GRID_DOT_2D. !------------------------------------------------------------------------------- ! Compute XORIGDOT and YORIGDOT. Assume (XORIG_GD, YORIG_GD) are ! for cross cells without boundary. xorigdot = xorig_gd - (0.5 * xcell3d) yorigdot = yorig_gd - (0.5 * ycell3d) DO n = 1, nfld2dxy_d vtype3d(n) = m3real nchar = LEN_TRIM(fld2dxy_d(n)%fldname) vname3d(n)(1:nchar) = TRIM(fld2dxy_d(n)%fldname) vname3d(n)(nchar+1:) = ' ' nchar = LEN_TRIM(fld2dxy_d(n)%units) units3d(n)(1:nchar) = TRIM(fld2dxy_d(n)%units) units3d(n)(nchar+1:) = ' ' nchar = LEN_TRIM(fld2dxy_d(n)%long_name) vdesc3d(n)(1:nchar) = TRIM(fld2dxy_d(n)%long_name) vdesc3d(n)(nchar+1:) = ' ' ENDDO gdnam3d = TRIM(grdnam) // '_DOT' xorig3d = xorigdot yorig3d = yorigdot ncols3d = ncols + 1 nrows3d = nrows + 1 nthik3d = nthik ftype3d = grdded3 nvars3d = nfld2dxy_d nlays3d = 1 tstep3d = 0 IF ( .NOT. open3 (griddot2d, fsunkn3, pname) ) THEN WRITE (*,f9000) TRIM(pname), TRIM(griddot2d) CALL graceful_stop (pname) ENDIF IF ( .NOT. desc3 (griddot2d) ) THEN CALL m3err ('GRIDOUT', sdate, stime, & 'Could not read DESC of ' // griddot2d // ' file', .TRUE.) ENDIF DO n = 1, nfld2dxy_d IF ( .NOT. write3 (griddot2d, vname3d(n), sdate, stime, & fld2dxy_d(n)%fld) ) THEN WRITE (*,f9100) TRIM(pname), TRIM(griddot2d) CALL graceful_stop (pname) ENDIF ENDDO !------------------------------------------------------------------------------- ! Write LUFRAC_CRO. !------------------------------------------------------------------------------- IF ( iflufrc ) THEN ! fractional land use data are available CALL comheader_lufrac (sdate, stime) DO n = 1, nfld3dxyl vtype3d(n) = m3real nchar = LEN_TRIM(fld3dxyl(n)%fldname) vname3d(n)(1:nchar) = TRIM(fld3dxyl(n)%fldname) vname3d(n)(nchar+1:) = ' ' nchar = LEN_TRIM(fld3dxyl(n)%units) units3d(n)(1:nchar) = fld3dxyl(n)%units units3d(n)(nchar+1:) = ' ' nchar = LEN_TRIM(fld3dxyl(n)%long_name) vdesc3d(n)(1:nchar) = fld3dxyl(n)%long_name vdesc3d(n)(nchar+1:) = ' ' ENDDO gdnam3d = TRIM(grdnam) // '_CROSS' ftype3d = grdded3 nvars3d = nfld3dxyl nlays3d = nummetlu ncols3d = ncols nrows3d = nrows nthik3d = nthik tstep3d = 0 IF ( .NOT. open3 (lufraccro, fsunkn3, pname) ) THEN WRITE (*,f9000) TRIM(pname), TRIM(lufraccro) CALL graceful_stop (pname) ENDIF IF ( .NOT. desc3 (lufraccro) ) THEN CALL m3err ('LUCRO', sdate, stime, & 'Could not read DESC of ' // lufraccro // ' file', .TRUE.) ENDIF DO n = 1, nfld3dxyl IF ( .NOT. write3 (lufraccro, vname3d(n), sdate, stime, & fld3dxyl(n)%fld) ) THEN WRITE (*,f9100) TRIM(pname), TRIM(lufraccro) CALL graceful_stop (pname) ENDIF ENDDO ENDIF END SUBROUTINE outgm3io ================================================ FILE: PREP/mcip/src/outncf.f90 ================================================ SUBROUTINE outncf (mcip_now, sdate, stime) !------------------------------------------------------------------------------- ! Name: Output netCDF File ! Purpose: Create a netCDF file of MCIP output. ! Revised: 19 Dec 2018 Original version. (T. Spero) ! 18 Jun 2019 Added soil depths to output. Created logic to support ! true Arakawa-C sizing of output arrays rather than ! false dot points for staggered fields. (T. Spero) !------------------------------------------------------------------------------- USE files USE ctmvars USE mcipparm USE metinfo, ONLY: met_hybrid USE metvars, ONLY: sigmah, sigmaf, c1f, c1h, c2f, c2h USE netcdf USE xvars, ONLY: xzsoil IMPLICIT NONE INTEGER :: dim_nlucat INTEGER :: dim_nmos INTEGER :: dim_nsoillay INTEGER :: dim_nx INTEGER :: dim_nxp1 INTEGER :: dim_ny INTEGER :: dim_nyp1 INTEGER :: dim_nz INTEGER :: dim_nzp1 INTEGER :: dim_time INTEGER :: dim_timestr LOGICAL, SAVE :: first = .TRUE. CHARACTER(LEN=256) :: fl INTEGER, SAVE, ALLOCATABLE :: id_fld ( : ) INTEGER, SAVE :: id_time INTEGER, SAVE :: it = 0 INTEGER, PARAMETER :: len_time = 19 CHARACTER(LEN=24), INTENT(IN) :: mcip_now INTEGER :: mydimx INTEGER :: mydimy INTEGER :: myendx INTEGER :: myendy INTEGER :: myendz INTEGER :: n INTEGER :: nn INTEGER :: ntot INTEGER :: nvars CHARACTER(LEN=16), PARAMETER :: pname = 'OUTNCF' INTEGER :: rcode INTEGER, INTENT(IN) :: sdate INTEGER, INTENT(IN) :: stime CHARACTER(LEN=32) :: var !------------------------------------------------------------------------------- ! Error, warning, and informational messages. !------------------------------------------------------------------------------- CHARACTER(LEN=256), PARAMETER :: f9100 = "(/, 1x, 70('*'), & & /, 1x, '*** SUBROUTINE: ', a, & & /, 1x, '*** ERROR CREATING DIMENSION FOR ', a, & & /, 1x, '*** IN FILE ', a, & & /, 1x, '*** ', a, & & /, 1x, 70('*'))" CHARACTER(LEN=256), PARAMETER :: f9200 = "(/, 1x, 70('*'), & & /, 1x, '*** SUBROUTINE: ', a, & & /, 1x, '*** ERROR DEFINING VARIABLE ', a, & & /, 1x, '*** IN FILE ', a, & & /, 1x, '*** ', a, & & /, 1x, 70('*'))" CHARACTER(LEN=256), PARAMETER :: f9300 = "(/, 1x, 70('*'), & & /, 1x, '*** SUBROUTINE: ', a, & & /, 1x, '*** ERROR CREATING ATTRIBUTE FOR', a, & & /, 1x, '*** IN FILE ', a, & & /, 1x, '*** ', a, & & /, 1x, 70('*'))" CHARACTER(LEN=256), PARAMETER :: f9350 = "(/, 1x, 70('*'), & & /, 1x, '*** SUBROUTINE: ', a, & & /, 1x, '*** ERROR ENDING DEFINITIONS ', & & /, 1x, '*** IN FILE ', a, & & /, 1x, '*** ', a, & & /, 1x, 70('*'))" CHARACTER(LEN=256), PARAMETER :: f9400 = "(/, 1x, 70('*'), & & /, 1x, '*** SUBROUTINE: ', a, & & /, 1x, '*** ERROR WRITING VARIABLE ', a, & & /, 1x, '*** TO FILE ', a, & & /, 1x, '*** ', a, & & /, 1x, 70('*'))" CHARACTER(LEN=256), PARAMETER :: f9500 = "(/, 1x, 70('*'), & & /, 1x, '*** SUBROUTINE: ', a, & & /, 1x, '*** ERROR CREATING NETCDF FILE', & & /, 1x, '*** FILE = ', a, & & /, 1x, '*** ', a, & & /, 1x, 70('*'))" CHARACTER(LEN=256), PARAMETER :: f9700 = "(/, 1x, 70('*'), & & /, 1x, '*** SUBROUTINE: ', a, & & /, 1x, '*** ERROR CLOSING NETCDF FILE', & & /, 1x, '*** FILE = ', a, & & /, 1x, '*** ', a, & & /, 1x, 70('*'))" !------------------------------------------------------------------------------- ! Allocate necessary variables. !------------------------------------------------------------------------------- it = it + 1 nvars = nfld2dxy + nfld2dxy_d + nfld3dxyl + & nfld2dxyt + nfld3dxyzt + nfld3dxyzt_q + nfld3dxyzt_d + & nfld3dxyst + nfld3dxymt + 2 ! the extra 2 are full and half layers IF ( met_hybrid >= 0 ) THEN nvars = nvars + 4 ENDIF IF ( ifsoil ) THEN nvars = nvars + 1 ENDIF IF ( .NOT. ALLOCATED ( id_fld ) ) ALLOCATE ( id_fld ( nvars ) ) !------------------------------------------------------------------------------- ! If first time calling this routine, set up the netCDF output file. !------------------------------------------------------------------------------- IF ( first ) THEN !----------------------------------------------------------------------------- ! Create netCDF file. !----------------------------------------------------------------------------- fl = TRIM(mcipncf) rcode = nf90_create (fl, nf90_noclobber, cdfid_m) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9500) TRIM(pname), TRIM(fl), TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF !----------------------------------------------------------------------------- ! Set up dimensions. !----------------------------------------------------------------------------- var = "time" rcode = nf90_def_dim (cdfid_m, TRIM(var), nf90_unlimited, dim_time) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9100) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF var = "timestr" rcode = nf90_def_dim (cdfid_m, TRIM(var), len_time, dim_timestr) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9100) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF var = "nx" rcode = nf90_def_dim (cdfid_m, TRIM(var), nx, dim_nx) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9100) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF var = "ny" rcode = nf90_def_dim (cdfid_m, TRIM(var), ny, dim_ny) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9100) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF var = "nz" rcode = nf90_def_dim (cdfid_m, TRIM(var), nz, dim_nz) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9100) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF var = "nxp1" rcode = nf90_def_dim (cdfid_m, TRIM(var), nxp1, dim_nxp1) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9100) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF var = "nyp1" rcode = nf90_def_dim (cdfid_m, TRIM(var), nyp1, dim_nyp1) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9100) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF var = "nzp1" rcode = nf90_def_dim (cdfid_m, TRIM(var), nzp1, dim_nzp1) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9100) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF IF ( ifsoil ) THEN var = "nsoillay" rcode = nf90_def_dim (cdfid_m, TRIM(var), nsoi, dim_nsoillay) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9100) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ENDIF var = "nlucat" rcode = nf90_def_dim (cdfid_m, TRIM(var), nlucat, dim_nlucat) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9100) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF IF ( ifmosaic ) THEN var = "nmos" rcode = nf90_def_dim (cdfid_m, TRIM(var), nmos, dim_nmos) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9100) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ENDIF !----------------------------------------------------------------------------- ! Define variables that will populate the file. !----------------------------------------------------------------------------- var = "mtime" rcode = nf90_def_var (cdfid_m, TRIM(var), nf90_char, & (/ dim_timestr, dim_time /), id_time) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9200) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF DO n = 1, nfld2dxy var = TRIM(fld2dxy(n)%fldname) rcode = nf90_def_var (cdfid_m, TRIM(var), nf90_float, & (/ dim_nx, dim_ny /), id_fld(n)) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9200) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ENDDO ntot = nfld2dxy DO n = 1, nfld2dxy_d ! Some Arakawa-B (dots), some Arakawa-C (faces) nn = ntot + n var = TRIM(fld2dxy_d(n)%fldname) IF ( fld2dxy_d(n)%iend(1) == nx ) THEN mydimx = dim_nx ELSE IF ( fld2dxy_d(n)%iend(1) == nxp1 ) THEN mydimx = dim_nxp1 ELSE mydimx = 0 ENDIF IF ( fld2dxy_d(n)%iend(2) == ny ) THEN mydimy = dim_ny ELSE IF ( fld2dxy_d(n)%iend(2) == nyp1 ) THEN mydimy = dim_nyp1 ELSE mydimy = 0 ENDIF rcode = nf90_def_var (cdfid_m, TRIM(var), nf90_float, & (/ mydimx, mydimy /), id_fld(nn)) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9200) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ENDDO ntot = ntot + nfld2dxy_d IF ( iflufrc ) THEN DO n = 1, nfld3dxyl nn = ntot + n var = TRIM(fld3dxyl(n)%fldname) rcode = nf90_def_var (cdfid_m, TRIM(var), nf90_float, & (/ dim_nx, dim_ny, dim_nlucat /), id_fld(nn)) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9200) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ENDDO ntot = ntot + nfld3dxyl ENDIF DO n = 1, nfld2dxyt nn = ntot + n var = TRIM(fld2dxyt(n)%fldname) rcode = nf90_def_var (cdfid_m, TRIM(var), nf90_float, & (/ dim_nx, dim_ny, dim_time /), id_fld(nn)) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9200) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ENDDO ntot = ntot + nfld2dxyt DO n = 1, nfld3dxyzt nn = ntot + n var = TRIM(fld3dxyzt(n)%fldname) rcode = nf90_def_var (cdfid_m, TRIM(var), nf90_float, & (/ dim_nx, dim_ny, dim_nz, dim_time /), id_fld(nn)) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9200) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ENDDO ntot = ntot + nfld3dxyzt DO n = 1, nfld3dxyzt_q nn = ntot + n var = TRIM(fld3dxyzt_q(n)%fldname) rcode = nf90_def_var (cdfid_m, TRIM(var), nf90_float, & (/ dim_nx, dim_ny, dim_nz, dim_time /), id_fld(nn)) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9200) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ENDDO ntot = ntot + nfld3dxyzt_q DO n = 1, nfld3dxyzt_d ! Some Arakawa-B (dots), some Arakawa-C (faces) nn = ntot + n var = TRIM(fld3dxyzt_d(n)%fldname) IF ( fld3dxyzt_d(n)%iend(1) == nx ) THEN mydimx = dim_nx ELSE IF ( fld3dxyzt_d(n)%iend(1) == nxp1 ) THEN mydimx = dim_nxp1 ELSE mydimx = 0 ENDIF IF ( fld3dxyzt_d(n)%iend(2) == ny ) THEN mydimy = dim_ny ELSE IF ( fld3dxyzt_d(n)%iend(2) == nyp1 ) THEN mydimy = dim_nyp1 ELSE mydimy = 0 ENDIF rcode = nf90_def_var (cdfid_m, TRIM(var), nf90_float, & (/ mydimx, mydimy, dim_nz, dim_time /), & id_fld(nn)) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9200) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ENDDO ntot = ntot + nfld3dxyzt_d IF ( ifsoil ) THEN DO n = 1, nfld3dxyst nn = ntot + n var = TRIM(fld3dxyst(n)%fldname) rcode = nf90_def_var (cdfid_m, TRIM(var), nf90_float, & (/ dim_nx, dim_ny, dim_nsoillay, dim_time /), & id_fld(nn)) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9200) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ENDDO ntot = ntot + nfld3dxyst ENDIF IF ( ifmosaic ) THEN DO n = 1, nfld3dxymt nn = ntot + n var = TRIM(fld3dxymt(n)%fldname) rcode = nf90_def_var (cdfid_m, TRIM(var), nf90_float, & (/ dim_nx, dim_ny, dim_nmos, dim_time /), & id_fld(nn)) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9200) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ENDDO ntot = ntot + nfld3dxymt ENDIF nn = ntot + 1 var = "ZNU" rcode = nf90_def_var (cdfid_m, TRIM(var), nf90_float, & (/ dim_nz /), id_fld(nn)) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9200) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF nn = ntot + 2 var = "ZNW" rcode = nf90_def_var (cdfid_m, TRIM(var), nf90_float, & (/ dim_nzp1 /), id_fld(nn)) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9200) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ntot = ntot + 2 IF ( met_hybrid >= 0 ) THEN nn = ntot + 1 var = "C1H" rcode = nf90_def_var (cdfid_m, TRIM(var), nf90_float, & (/ dim_nz /), id_fld(nn)) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9200) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF nn = ntot + 2 var = "C2H" rcode = nf90_def_var (cdfid_m, TRIM(var), nf90_float, & (/ dim_nz /), id_fld(nn)) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9200) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF nn = ntot + 3 var = "C1F" rcode = nf90_def_var (cdfid_m, TRIM(var), nf90_float, & (/ dim_nzp1 /), id_fld(nn)) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9200) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF nn = ntot + 4 var = "C2F" rcode = nf90_def_var (cdfid_m, TRIM(var), nf90_float, & (/ dim_nzp1 /), id_fld(nn)) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9200) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ntot = ntot + 4 ENDIF ! met_hybrid >= 0 IF ( ifsoil ) THEN nn = ntot + 1 var = "ZSOIL" rcode = nf90_def_var (cdfid_m, TRIM(var), nf90_float, & (/ dim_nsoillay /), id_fld(nn)) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9200) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ntot = ntot + 1 ENDIF ! ifsoil = .TRUE. !----------------------------------------------------------------------------- ! Define global attributes. !----------------------------------------------------------------------------- CALL outncfglobal (cdfid_m, fl) !----------------------------------------------------------------------------- ! Define attributes for the variables. !----------------------------------------------------------------------------- DO n = 1, nfld2dxy var = TRIM(fld2dxy(n)%fldname) rcode = nf90_put_att (cdfid_m, id_fld(n), 'long_name', & TRIM(fld2dxy(n)%long_name)) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9300) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF rcode = nf90_put_att (cdfid_m, id_fld(n), 'units', TRIM(fld2dxy(n)%units)) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9300) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ENDDO ntot = nfld2dxy DO n = 1, nfld2dxy_d nn = ntot + n var = TRIM(fld2dxy_d(n)%fldname) rcode = nf90_put_att (cdfid_m, id_fld(nn), 'long_name', & TRIM(fld2dxy_d(n)%long_name)) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9300) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF rcode = nf90_put_att (cdfid_m, id_fld(nn), 'units', & TRIM(fld2dxy_d(n)%units)) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9300) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ENDDO ntot = ntot + nfld2dxy_d IF ( iflufrc ) THEN DO n = 1, nfld3dxyl nn = ntot + n var = TRIM(fld3dxyl(n)%fldname) rcode = nf90_put_att (cdfid_m, id_fld(nn), 'long_name', & TRIM(fld3dxyl(n)%long_name)) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9300) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF rcode = nf90_put_att (cdfid_m, id_fld(nn), 'units', & TRIM(fld3dxyl(n)%units)) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9300) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ENDDO ntot = ntot + nfld3dxyl ENDIF DO n = 1, nfld2dxyt nn = ntot + n var = TRIM(fld2dxyt(n)%fldname) rcode = nf90_put_att (cdfid_m, id_fld(nn), 'long_name', & TRIM(fld2dxyt(n)%long_name)) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9300) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF rcode = nf90_put_att (cdfid_m, id_fld(nn), 'units', & TRIM(fld2dxyt(n)%units)) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9300) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ENDDO ntot = ntot + nfld2dxyt DO n = 1, nfld3dxyzt nn = ntot + n var = TRIM(fld3dxyzt(n)%fldname) rcode = nf90_put_att (cdfid_m, id_fld(nn), 'long_name', & TRIM(fld3dxyzt(n)%long_name)) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9300) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF rcode = nf90_put_att (cdfid_m, id_fld(nn), 'units', & TRIM(fld3dxyzt(n)%units)) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9300) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ENDDO ntot = ntot + nfld3dxyzt DO n = 1, nfld3dxyzt_q nn = ntot + n var = TRIM(fld3dxyzt_q(n)%fldname) rcode = nf90_put_att (cdfid_m, id_fld(nn), 'long_name', & TRIM(fld3dxyzt_q(n)%long_name)) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9300) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF rcode = nf90_put_att (cdfid_m, id_fld(nn), 'units', & TRIM(fld3dxyzt_q(n)%units)) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9300) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ENDDO ntot = ntot + nfld3dxyzt_q DO n = 1, nfld3dxyzt_d nn = ntot + n var = TRIM(fld3dxyzt_d(n)%fldname) rcode = nf90_put_att (cdfid_m, id_fld(nn), 'long_name', & TRIM(fld3dxyzt_d(n)%long_name)) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9300) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF rcode = nf90_put_att (cdfid_m, id_fld(nn), 'units', & TRIM(fld3dxyzt_d(n)%units)) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9300) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ENDDO ntot = ntot + nfld3dxyzt_d IF ( ifsoil ) THEN DO n = 1, nfld3dxyst nn = ntot + n var = TRIM(fld3dxyst(n)%fldname) rcode = nf90_put_att (cdfid_m, id_fld(nn), 'long_name', & TRIM(fld3dxyst(n)%long_name)) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9300) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF rcode = nf90_put_att (cdfid_m, id_fld(nn), 'units', & TRIM(fld3dxyst(n)%units)) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9300) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ENDDO ntot = ntot + nfld3dxyst ENDIF IF ( ifmosaic ) THEN DO n = 1, nfld3dxymt nn = ntot + n var = TRIM(fld3dxymt(n)%fldname) rcode = nf90_put_att (cdfid_m, id_fld(nn), 'long_name', & TRIM(fld3dxymt(n)%long_name)) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9300) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF rcode = nf90_put_att (cdfid_m, id_fld(nn), 'units', & TRIM(fld3dxymt(n)%units)) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9300) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ENDDO ntot = ntot + nfld3dxymt ENDIF nn = ntot + 1 var = "ZNU" rcode = nf90_put_att (cdfid_m, id_fld(nn), 'long_name', & "eta values on half (mass) levels") IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9300) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF rcode = nf90_put_att (cdfid_m, id_fld(nn), 'units', & "1") IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9300) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF nn = ntot + 2 var = "ZNW" rcode = nf90_put_att (cdfid_m, id_fld(nn), 'long_name', & "eta values on full (w) levels") IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9300) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF rcode = nf90_put_att (cdfid_m, id_fld(nn), 'units', & "1") IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9300) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ntot = ntot + 2 IF ( met_hybrid >= 0 ) THEN nn = ntot + 1 var = "C1H" rcode = nf90_put_att (cdfid_m, id_fld(nn), 'long_name', & "half levels, c1h = d bf / d eta, using znw") IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9300) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF rcode = nf90_put_att (cdfid_m, id_fld(nn), 'units', & "1") IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9300) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF nn = ntot + 2 var = "C2H" rcode = nf90_put_att (cdfid_m, id_fld(nn), 'long_name', & "half levels, c2h = (1-c1h)*(p0-pt)") IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9300) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF rcode = nf90_put_att (cdfid_m, id_fld(nn), 'units', & "1") IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9300) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF nn = ntot + 3 var = "C1F" rcode = nf90_put_att (cdfid_m, id_fld(nn), 'long_name', & "full levels, c1f = d bf / d eta, using znu") IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9300) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF rcode = nf90_put_att (cdfid_m, id_fld(nn), 'units', & "1") IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9300) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF nn = ntot + 4 var = "C2F" rcode = nf90_put_att (cdfid_m, id_fld(nn), 'long_name', & "full levels, c2f = (1-c1f)*(p0-pt)") IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9300) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF rcode = nf90_put_att (cdfid_m, id_fld(nn), 'units', & "1") IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9300) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ntot = ntot + 4 ENDIF ! met_hybrid >= 0 IF ( ifsoil ) THEN nn = ntot + 1 var = "ZSOIL" rcode = nf90_put_att (cdfid_m, id_fld(nn), 'long_name', & "depth of bottom of soil layer") IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9300) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF rcode = nf90_put_att (cdfid_m, id_fld(nn), 'units', & "m") IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9300) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ntot = ntot + 1 ENDIF ! ifsoil = .TRUE. rcode = nf90_enddef (cdfid_m) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9350) TRIM(pname), TRIM(fl), TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ENDIF ! first = .TRUE. !------------------------------------------------------------------------------- ! Write variables. !------------------------------------------------------------------------------- var = "mtime" rcode = nf90_put_var (cdfid_m, id_time, mcip_now(1:len_time), & start = (/ 1, it /), count = (/ len_time, 1 /) ) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9400) TRIM(pname), TRIM(var), TRIM(fl), TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF IF ( first ) THEN ! write time-independent fields DO n = 1, nfld2dxy var = TRIM(fld2dxy(n)%fldname) rcode = nf90_put_var (cdfid_m, id_fld(n), fld2dxy(n)%fld) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9400) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ENDDO DO n = 1, nfld2dxy_d ! Some Arakawa-B (dots), some Arakawa-C (faces) nn = nfld2dxy + n var = TRIM(fld2dxy_d(n)%fldname) myendx = fld2dxy_d(n)%iend(1) myendy = fld2dxy_d(n)%iend(2) rcode = nf90_put_var (cdfid_m, id_fld(nn), & fld2dxy_d(n)%fld(1:myendx,1:myendy), & start = (/ 1, 1 /), & count = (/ myendx, myendy /) ) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9400) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ENDDO IF ( iflufrc ) THEN DO n = 1, nfld3dxyl nn = nfld2dxy + nfld2dxy_d + n var = TRIM(fld3dxyl(n)%fldname) rcode = nf90_put_var (cdfid_m, id_fld(nn), fld3dxyl(n)%fld) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9400) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ENDDO ENDIF ENDIF ! first ntot = nfld2dxy + nfld2dxy_d + nfld3dxyl DO n = 1, nfld2dxyt nn = ntot + n var = TRIM(fld2dxyt(n)%fldname) rcode = nf90_put_var (cdfid_m, id_fld(nn), fld2dxyt(n)%fld, & start = (/ 1, 1, it /), & count = (/ fld2dxyt(n)%iend(1), & fld2dxyt(n)%iend(2), 1 /) ) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9400) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ENDDO ntot = ntot + nfld2dxyt DO n = 1, nfld3dxyzt nn = ntot + n var = TRIM(fld3dxyzt(n)%fldname) rcode = nf90_put_var (cdfid_m, id_fld(nn), fld3dxyzt(n)%fld, & start = (/ 1, 1, 1, it /), & count = (/ fld3dxyzt(n)%iend(1), & fld3dxyzt(n)%iend(2), & fld3dxyzt(n)%iend(3), 1 /) ) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9400) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ENDDO ntot = ntot + nfld3dxyzt DO n = 1, nfld3dxyzt_q nn = ntot + n var = TRIM(fld3dxyzt_q(n)%fldname) rcode = nf90_put_var (cdfid_m, id_fld(nn), fld3dxyzt_q(n)%fld, & start = (/ 1, 1, 1, it /), & count = (/ fld3dxyzt_q(n)%iend(1), & fld3dxyzt_q(n)%iend(2), & fld3dxyzt_q(n)%iend(3), 1 /) ) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9400) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ENDDO ntot = ntot + nfld3dxyzt_q DO n = 1, nfld3dxyzt_d ! Some Arakawa-B (dots), some Arakawa-C (faces) nn = ntot + n var = TRIM(fld3dxyzt_d(n)%fldname) myendx = fld3dxyzt_d(n)%iend(1) myendy = fld3dxyzt_d(n)%iend(2) myendz = fld3dxyzt_d(n)%iend(3) rcode = nf90_put_var (cdfid_m, id_fld(nn), & fld3dxyzt_d(n)%fld(1:myendx,1:myendy,1:myendz), & start = (/ 1, 1, 1, it /), & count = (/ myendx, myendy, myendz, 1 /) ) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9400) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ENDDO ntot = ntot + nfld3dxyzt_d IF ( ifsoil ) THEN DO n = 1, nfld3dxyst nn = ntot + n var = TRIM(fld3dxyst(n)%fldname) rcode = nf90_put_var (cdfid_m, id_fld(nn), fld3dxyst(n)%fld, & start = (/ 1, 1, 1, it /), & count = (/ fld3dxyst(n)%iend(1), & fld3dxyst(n)%iend(2), & fld3dxyst(n)%iend(3), 1 /) ) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9400) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ENDDO ntot = ntot + nfld3dxyst ENDIF IF ( ifmosaic ) THEN DO n = 1, nfld3dxymt nn = ntot + n var = TRIM(fld3dxymt(n)%fldname) rcode = nf90_put_var (cdfid_m, id_fld(nn), fld3dxymt(n)%fld, & start = (/ 1, 1, 1, it /), & count = (/ fld3dxymt(n)%iend(1), & fld3dxymt(n)%iend(2), & fld3dxymt(n)%iend(3), 1 /) ) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9400) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ENDDO ntot = ntot + nfld3dxymt ENDIF nn = ntot + 1 var = "ZNU" rcode = nf90_put_var (cdfid_m, id_fld(nn), sigmah) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9400) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF nn = ntot + 2 var = "ZNW" rcode = nf90_put_var (cdfid_m, id_fld(nn), sigmaf) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9400) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ntot = ntot + 2 IF ( met_hybrid >= 0 ) THEN nn = ntot + 1 var = "C1H" rcode = nf90_put_var (cdfid_m, id_fld(nn), c1h) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9400) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF nn = ntot + 2 var = "C2H" rcode = nf90_put_var (cdfid_m, id_fld(nn), c2h) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9400) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF nn = ntot + 3 var = "C1F" rcode = nf90_put_var (cdfid_m, id_fld(nn), c1f) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9400) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF nn = ntot + 4 var = "C2F" rcode = nf90_put_var (cdfid_m, id_fld(nn), c2f) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9400) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ntot = ntot + 4 ENDIF ! met_hybrid >= 0 IF ( ifsoil ) THEN nn = ntot + 1 var = "ZSOIL" rcode = nf90_put_var (cdfid_m, id_fld(nn), xzsoil) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9400) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ENDIF ! ifsoil = .TRUE. first = .FALSE. END SUBROUTINE outncf ================================================ FILE: PREP/mcip/src/outncfbdy.f90 ================================================ SUBROUTINE outncfbdy (mcip_now, sdate, stime) !------------------------------------------------------------------------------- ! Name: Output netCDF File on Lateral Boundaries ! Purpose: Create a netCDF file of MCIP output on lateral boundaries. ! Revised: 19 Dec 2018 Original version. (T. Spero) !------------------------------------------------------------------------------- USE files USE ctmvars USE mcipparm USE netcdf IMPLICIT NONE INTEGER :: dim_nperim INTEGER :: dim_nz INTEGER :: dim_time INTEGER :: dim_timestr LOGICAL, SAVE :: first = .TRUE. CHARACTER(LEN=256) :: fl INTEGER, SAVE, ALLOCATABLE :: id_fld ( : ) INTEGER, SAVE :: id_time INTEGER, SAVE :: it = 0 INTEGER, PARAMETER :: len_time = 19 CHARACTER(LEN=24), INTENT(IN) :: mcip_now INTEGER :: n INTEGER :: nn INTEGER :: ntot INTEGER :: nvars CHARACTER(LEN=16), PARAMETER :: pname = 'OUTNCF' INTEGER :: rcode INTEGER, INTENT(IN) :: sdate INTEGER, INTENT(IN) :: stime CHARACTER(LEN=32) :: var !------------------------------------------------------------------------------- ! Error, warning, and informational messages. !------------------------------------------------------------------------------- CHARACTER(LEN=256), PARAMETER :: f9100 = "(/, 1x, 70('*'), & & /, 1x, '*** SUBROUTINE: ', a, & & /, 1x, '*** ERROR CREATING DIMENSION FOR ', a, & & /, 1x, '*** IN FILE ', a, & & /, 1x, '*** ', a, & & /, 1x, 70('*'))" CHARACTER(LEN=256), PARAMETER :: f9200 = "(/, 1x, 70('*'), & & /, 1x, '*** SUBROUTINE: ', a, & & /, 1x, '*** ERROR DEFINING VARIABLE ', a, & & /, 1x, '*** IN FILE ', a, & & /, 1x, '*** ', a, & & /, 1x, 70('*'))" CHARACTER(LEN=256), PARAMETER :: f9300 = "(/, 1x, 70('*'), & & /, 1x, '*** SUBROUTINE: ', a, & & /, 1x, '*** ERROR CREATING ATTRIBUTE FOR', a, & & /, 1x, '*** IN FILE ', a, & & /, 1x, '*** ', a, & & /, 1x, 70('*'))" CHARACTER(LEN=256), PARAMETER :: f9350 = "(/, 1x, 70('*'), & & /, 1x, '*** SUBROUTINE: ', a, & & /, 1x, '*** ERROR ENDING DEFINITIONS ', & & /, 1x, '*** IN FILE ', a, & & /, 1x, '*** ', a, & & /, 1x, 70('*'))" CHARACTER(LEN=256), PARAMETER :: f9400 = "(/, 1x, 70('*'), & & /, 1x, '*** SUBROUTINE: ', a, & & /, 1x, '*** ERROR WRITING VARIABLE ', a, & & /, 1x, '*** TO FILE ', a, & & /, 1x, '*** ', a, & & /, 1x, 70('*'))" CHARACTER(LEN=256), PARAMETER :: f9500 = "(/, 1x, 70('*'), & & /, 1x, '*** SUBROUTINE: ', a, & & /, 1x, '*** ERROR CREATING NETCDF FILE', & & /, 1x, '*** FILE = ', a, & & /, 1x, '*** ', a, & & /, 1x, 70('*'))" CHARACTER(LEN=256), PARAMETER :: f9700 = "(/, 1x, 70('*'), & & /, 1x, '*** SUBROUTINE: ', a, & & /, 1x, '*** ERROR CLOSING NETCDF FILE', & & /, 1x, '*** FILE = ', a, & & /, 1x, '*** ', a, & & /, 1x, 70('*'))" !------------------------------------------------------------------------------- ! Allocate necessary variables. !------------------------------------------------------------------------------- it = it + 1 nvars = nfld2dxy + nfld3dxyzt + nfld3dxyzt_q IF ( .NOT. ALLOCATED ( id_fld ) ) ALLOCATE ( id_fld ( nvars ) ) !------------------------------------------------------------------------------- ! If first time calling this routine, set up the netCDF output file. !------------------------------------------------------------------------------- IF ( first ) THEN !----------------------------------------------------------------------------- ! Create netCDF file. !----------------------------------------------------------------------------- fl = TRIM(mcipbdyncf) rcode = nf90_create (fl, nf90_noclobber, cdfid_b) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9500) TRIM(pname), TRIM(fl), TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF !----------------------------------------------------------------------------- ! Set up dimensions. !----------------------------------------------------------------------------- var = "time" rcode = nf90_def_dim (cdfid_b, TRIM(var), nf90_unlimited, dim_time) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9100) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF var = "timestr" rcode = nf90_def_dim (cdfid_b, TRIM(var), len_time, dim_timestr) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9100) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF var = "nperim" rcode = nf90_def_dim (cdfid_b, TRIM(var), nperim, dim_nperim) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9100) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF var = "nz" rcode = nf90_def_dim (cdfid_b, TRIM(var), nz, dim_nz) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9100) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF !----------------------------------------------------------------------------- ! Define variables that will populate the file. !----------------------------------------------------------------------------- var = "mtime" rcode = nf90_def_var (cdfid_b, TRIM(var), nf90_char, & (/ dim_timestr, dim_time /), id_time) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9200) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF DO n = 1, nfld2dxy var = TRIM(fld2dxy(n)%fldname) rcode = nf90_def_var (cdfid_b, TRIM(var), nf90_float, & (/ dim_nperim /), id_fld(n)) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9200) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ENDDO ntot = nfld2dxy DO n = 1, nfld3dxyzt nn = ntot + n var = TRIM(fld3dxyzt(n)%fldname) rcode = nf90_def_var (cdfid_b, TRIM(var), nf90_float, & (/ dim_nperim, dim_nz, dim_time /), id_fld(nn)) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9200) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ENDDO ntot = ntot + nfld3dxyzt DO n = 1, nfld3dxyzt_q nn = ntot + n var = TRIM(fld3dxyzt_q(n)%fldname) rcode = nf90_def_var (cdfid_b, TRIM(var), nf90_float, & (/ dim_nperim, dim_nz, dim_time /), id_fld(nn)) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9200) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ENDDO ntot = ntot + nfld3dxyzt_q !----------------------------------------------------------------------------- ! Define global attributes. !----------------------------------------------------------------------------- CALL outncfglobal (cdfid_b, fl) !----------------------------------------------------------------------------- ! Define attributes for the variables. !----------------------------------------------------------------------------- DO n = 1, nfld2dxy var = TRIM(fld2dxy(n)%fldname) rcode = nf90_put_att (cdfid_b, id_fld(n), 'long_name', & TRIM(fld2dxy(n)%long_name)) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9300) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF rcode = nf90_put_att (cdfid_b, id_fld(n), 'units', TRIM(fld2dxy(n)%units)) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9300) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ENDDO ntot = nfld2dxy DO n = 1, nfld3dxyzt nn = ntot + n var = TRIM(fld3dxyzt(n)%fldname) rcode = nf90_put_att (cdfid_b, id_fld(nn), 'long_name', & TRIM(fld3dxyzt(n)%long_name)) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9300) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF rcode = nf90_put_att (cdfid_b, id_fld(nn), 'units', & TRIM(fld3dxyzt(n)%units)) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9300) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ENDDO ntot = ntot + nfld3dxyzt DO n = 1, nfld3dxyzt_q nn = ntot + n var = TRIM(fld3dxyzt_q(n)%fldname) rcode = nf90_put_att (cdfid_b, id_fld(nn), 'long_name', & TRIM(fld3dxyzt_q(n)%long_name)) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9300) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF rcode = nf90_put_att (cdfid_b, id_fld(nn), 'units', & TRIM(fld3dxyzt_q(n)%units)) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9300) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ENDDO ntot = ntot + nfld3dxyzt_q rcode = nf90_enddef (cdfid_b) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9350) TRIM(pname), TRIM(fl), TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ENDIF ! first = .TRUE. !------------------------------------------------------------------------------- ! Write variables. !------------------------------------------------------------------------------- var = "mtime" rcode = nf90_put_var (cdfid_b, id_time, mcip_now(1:len_time), & start = (/ 1, it /), count = (/ len_time, 1 /) ) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9400) TRIM(pname), TRIM(var), TRIM(fl), TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF IF ( first ) THEN ! write time-independent fields DO n = 1, nfld2dxy var = TRIM(fld2dxy(n)%fldname) rcode = nf90_put_var (cdfid_b, id_fld(n), fld2dxy(n)%bdy) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9400) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ENDDO ENDIF ! first ntot = nfld2dxy DO n = 1, nfld3dxyzt nn = ntot + n var = TRIM(fld3dxyzt(n)%fldname) rcode = nf90_put_var (cdfid_b, id_fld(nn), fld3dxyzt(n)%bdy, & start = (/ 1, 1, it /), & count = (/ fld3dxyzt(n)%iend_b(1), & fld3dxyzt(n)%iend_b(2), 1 /) ) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9400) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ENDDO ntot = ntot + nfld3dxyzt DO n = 1, nfld3dxyzt_q nn = ntot + n var = TRIM(fld3dxyzt_q(n)%fldname) rcode = nf90_put_var (cdfid_b, id_fld(nn), fld3dxyzt_q(n)%bdy, & start = (/ 1, 1, it /), & count = (/ fld3dxyzt_q(n)%iend_b(1), & fld3dxyzt_q(n)%iend_b(2), 1 /) ) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9400) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ENDDO ntot = ntot + nfld3dxyzt_q first = .FALSE. END SUBROUTINE outncfbdy ================================================ FILE: PREP/mcip/src/outncfglobal.f90 ================================================ SUBROUTINE outncfglobal (cdfid_in, fl) !------------------------------------------------------------------------------- ! Name: Output netCDF Global Attributes ! Purpose: Write netCDF global attributes. ! Revised: 19 Dec 2018 Original version. (T. Spero) !------------------------------------------------------------------------------- USE metinfo USE mcipparm USE netcdf USE coord ! <-- these are I/O API coordinate variables IMPLICIT NONE INTEGER, INTENT(IN) :: cdfid_in CHARACTER(LEN=32) :: cstr CHARACTER(LEN=256), INTENT(IN) :: fl CHARACTER(LEN=16), PARAMETER :: pname = 'OUTNCFGLOBAL' INTEGER :: rcode CHARACTER(LEN=32) :: var !------------------------------------------------------------------------------- ! Error, warning, and informational messages. !------------------------------------------------------------------------------- CHARACTER(LEN=256), PARAMETER :: f9300 = "(/, 1x, 70('*'), & & /, 1x, '*** SUBROUTINE: ', a, & & /, 1x, '*** ERROR CREATING ATTRIBUTE FOR', a, & & /, 1x, '*** IN FILE ', a, & & /, 1x, '*** ', a, & & /, 1x, 70('*'))" !------------------------------------------------------------------------------- ! Define global attributes. !------------------------------------------------------------------------------- var = "PROGNAME" rcode = nf90_put_att (cdfid_in, nf90_global, var, progname) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9300) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF var = "VERSION" rcode = nf90_put_att (cdfid_in, nf90_global, var, ver) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9300) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF var = "CODE_DATE" rcode = nf90_put_att (cdfid_in, nf90_global, var, vdate) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9300) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF var = "INPUT_MODEL" IF ( met_model == 2 ) THEN cstr = "WRF ARW " // TRIM(met_release) ELSE cstr = " " ENDIF rcode = nf90_put_att (cdfid_in, nf90_global, var, cstr) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9300) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF var = "NCOLS" rcode = nf90_put_att (cdfid_in, nf90_global, var, ncols) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9300) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF var = "NROWS" rcode = nf90_put_att (cdfid_in, nf90_global, var, nrows) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9300) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF var = "NLAYS" rcode = nf90_put_att (cdfid_in, nf90_global, var, nlays) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9300) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF var = "NTHIK" rcode = nf90_put_att (cdfid_in, nf90_global, var, nthik) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9300) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF var = "GDTYP" rcode = nf90_put_att (cdfid_in, nf90_global, var, gdtyp_gd) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9300) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF var = "P_ALP" rcode = nf90_put_att (cdfid_in, nf90_global, var, p_alp_gd) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9300) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF var = "P_BET" rcode = nf90_put_att (cdfid_in, nf90_global, var, p_bet_gd) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9300) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF var = "P_GAM" rcode = nf90_put_att (cdfid_in, nf90_global, var, p_gam_gd) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9300) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF var = "XCENT" rcode = nf90_put_att (cdfid_in, nf90_global, var, xcent_gd) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9300) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF var = "YCENT" rcode = nf90_put_att (cdfid_in, nf90_global, var, ycent_gd) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9300) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF var = "XORIG" rcode = nf90_put_att (cdfid_in, nf90_global, var, xorig_gd) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9300) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF var = "YORIG" rcode = nf90_put_att (cdfid_in, nf90_global, var, yorig_gd) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9300) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF var = "XCELL" rcode = nf90_put_att (cdfid_in, nf90_global, var, xcell_gd) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9300) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF var = "YCELL" rcode = nf90_put_att (cdfid_in, nf90_global, var, ycell_gd) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9300) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF var = "VGTYP" rcode = nf90_put_att (cdfid_in, nf90_global, var, vgtyp_gd) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9300) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF var = "VGTOP" rcode = nf90_put_att (cdfid_in, nf90_global, var, vgtop_gd) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9300) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF var = "VGTOP" rcode = nf90_put_att (cdfid_in, nf90_global, var, vgtop_gd) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9300) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF var = "VGLVLS" rcode = nf90_put_att (cdfid_in, nf90_global, var, vglvs_gd(:)) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9300) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF var = "CEN_LAT" rcode = nf90_put_att (cdfid_in, nf90_global, var, met_cen_lat) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9300) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF var = "CEN_LON" rcode = nf90_put_att (cdfid_in, nf90_global, var, met_cen_lon) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9300) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF var = "TRUELAT1" rcode = nf90_put_att (cdfid_in, nf90_global, var, met_tru1) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9300) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF var = "TRUELAT2" rcode = nf90_put_att (cdfid_in, nf90_global, var, met_tru2) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9300) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF var = "MOAD_CEN_LAT" rcode = nf90_put_att (cdfid_in, nf90_global, var, met_proj_clat) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9300) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF var = "MET_REF_LAT" rcode = nf90_put_att (cdfid_in, nf90_global, var, met_ref_lat) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9300) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF var = "STAND_LON" rcode = nf90_put_att (cdfid_in, nf90_global, var, met_proj_clon) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9300) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF var = "DX" rcode = nf90_put_att (cdfid_in, nf90_global, var, met_resoln) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9300) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF var = "DY" rcode = nf90_put_att (cdfid_in, nf90_global, var, met_resoln) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9300) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF var = "PTOP" rcode = nf90_put_att (cdfid_in, nf90_global, var, met_ptop) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9300) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF var = "MET_CUMULUS" rcode = nf90_put_att (cdfid_in, nf90_global, var, met_cumulus) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9300) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF var = "MET_SHAL_CU" rcode = nf90_put_att (cdfid_in, nf90_global, var, met_shal_cu) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9300) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF var = "MET_MICROPHYS" rcode = nf90_put_att (cdfid_in, nf90_global, var, met_expl_moist) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9300) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF var = "MET_LW_RAD" rcode = nf90_put_att (cdfid_in, nf90_global, var, met_lw_rad) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9300) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF var = "MET_SW_RAD" rcode = nf90_put_att (cdfid_in, nf90_global, var, met_sw_rad) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9300) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF var = "MET_PBL" rcode = nf90_put_att (cdfid_in, nf90_global, var, met_pbl) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9300) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF var = "MET_SFC_LAY" rcode = nf90_put_att (cdfid_in, nf90_global, var, met_sfc_lay) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9300) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF var = "MET_LSM" rcode = nf90_put_att (cdfid_in, nf90_global, var, met_soil_lsm) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9300) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF var = "MET_URBAN_PHYS" rcode = nf90_put_att (cdfid_in, nf90_global, var, met_urban_phys) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9300) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF var = "LAND_USE_SOURCE" rcode = nf90_put_att (cdfid_in, nf90_global, var, met_lu_src) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9300) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF var = "MET_FDDA_3DAN" rcode = nf90_put_att (cdfid_in, nf90_global, var, met_fdda_3dan) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9300) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF IF ( met_fdda_3dan > 0 ) THEN ! 3d nudging (any variety) var = "MET_FDDA_3DAN_WIND" rcode = nf90_put_att (cdfid_in, nf90_global, var, met_fdda_gv3d) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9300) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF var = "MET_FDDA_3DAN_TEMP" rcode = nf90_put_att (cdfid_in, nf90_global, var, met_fdda_gt3d) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9300) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF var = "MET_FDDA_3DAN_MOIS" rcode = nf90_put_att (cdfid_in, nf90_global, var, met_fdda_gq3d) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9300) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF IF ( met_fdda_3dan == 2 ) THEN ! spectral nudging only var = "MET_FDDA_3DAN_GEOP" rcode = nf90_put_att (cdfid_in, nf90_global, var, met_fdda_gph3d) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9300) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ENDIF ENDIF ! 3d nudging var = "MET_FDDA_SFAN" rcode = nf90_put_att (cdfid_in, nf90_global, var, met_fdda_sfan) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9300) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF IF ( met_fdda_sfan > 0 ) THEN ! surface nudging var = "MET_FDDA_SFAN_WIND" rcode = nf90_put_att (cdfid_in, nf90_global, var, met_fdda_gvsfc) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9300) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF var = "MET_FDDA_SFAN_TEMP" rcode = nf90_put_att (cdfid_in, nf90_global, var, met_fdda_gtsfc) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9300) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF var = "MET_FDDA_SFAN_MOIS" rcode = nf90_put_att (cdfid_in, nf90_global, var, met_fdda_gqsfc) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9300) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ENDIF ! surface nudging var = "MET_FDDA_OBS" rcode = nf90_put_att (cdfid_in, nf90_global, var, met_fdda_obs) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9300) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF IF ( met_fdda_obs > 0 ) THEN ! observation nudging var = "MET_FDDA_OBS_WIND" rcode = nf90_put_att (cdfid_in, nf90_global, var, met_fdda_giv) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9300) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF var = "MET_FDDA_OBS_TEMP" rcode = nf90_put_att (cdfid_in, nf90_global, var, met_fdda_git) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9300) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF var = "MET_FDDA_OBS_MOIS" rcode = nf90_put_att (cdfid_in, nf90_global, var, met_fdda_giq) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9300) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ENDIF ! surface nudging var = "MET_HYBRID" rcode = nf90_put_att (cdfid_in, nf90_global, var, met_hybrid) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9300) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF var = "EARTH_RADIUS" rcode = nf90_put_att (cdfid_in, nf90_global, var, eradm) IF ( rcode /= nf90_noerr ) THEN WRITE (6,f9300) TRIM(pname), TRIM(var), TRIM(fl), & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF END SUBROUTINE outncfglobal ================================================ FILE: PREP/mcip/src/pblsup.f90 ================================================ !------------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------------! SUBROUTINE pblsup !------------------------------------------------------------------------------- ! Name: PBL Supplement ! Purpose: Computes 2-D parameters needed for CMAQ but not provided by ! the meteorology model (i.e., XWSTAR, XTEMP10, XTEMP1P5, XWIND10, ! and XALBEDO). ! Revised: 07 May 1998 Original version. (J. Pleim) ! 20 Sep 2001 Converted to free-form f90 and integrated into MCIP ! for general distribution. (T. Otte and J. Pleim) ! 23 Jan 2002 Changed missing value on XMOL to BADVAL3. (T. Otte) ! 27 Feb 2002 Renamed XSURF1 as XTEMP1P5 and XSURF2 as XWIND10. ! (T. Otte) ! 18 Mar 2003 Enabled last row and column of XUU and XVV to be ! used in calculation of UNS and VNS. (T. Otte) ! 04 Aug 2004 Added provision to set minimum PBL heights when ! Mellor-Yamada (Eta) PBL scheme is used. Changed local ! array allocation to occur only on initial call to ! subroutine to avoid memory fragmentation. Removed ! XFLAGS. Limited calculation of wind speed for initial ! time to the cross-point domain. Removed unused ! variable, RA, from calling argument list to SFCLAYER. ! Changed WIND10 to WSPD10. (T. Otte) ! 14 Apr 2005 Added changes for WRF. Changed wind speed calculation ! to use wind components native to input meteorology ! model. Added capability to use input 10-m wind ! components (rather than diagnosed) to calculate 10-m ! wind speed and direction. Removed unnecessary 1-D ! arrays. Corrected theta-v-star (TSTV) calculation. ! (T. Otte) ! 21 Jul 2005 Added provision to alternatively use XPBL to check for ! meteorology model initialization time. (T. Otte) ! 19 Aug 2005 Rearranged K loops on calculation of winds to avoid ! segmentation fault on Linux PGF90v5 compilers at ! optimization of O2 and higher. (T. Otte) ! 31 Jul 2007 Modified calculation of XWSTAR to remove dependency ! on function CVMGP. Removed calculation of fractional ! USTAR for RADMdry. Changed USTAR to a 2D array ! without a dimension for fractional land use that was ! required for RADMdry. Removed 1.5-m and 10-m ! temperature calculations. Compute 2-m temperature if ! it is unavailable in input meteorology. Removed ! logical variable "PX" and introduced new logicals for ! specific fields. Added call to RESISTCALC. Simplified ! calculation of QL1. (T. Otte) ! 29 Oct 2009 Changed real number comparisons from "equivalences" to ! "less than tolerances". (T. Otte) ! 12 Feb 2010 Removed unused variable ILU. Removed roughness length ! from argument list for subroutine SFCLAYER, and ! removed ZRUF from this routine. (T. Otte) ! 11 Aug 2011 Replaced module PARMS3 with I/O API module M3UTILIO. ! (T. Otte) ! 07 Sep 2011 Updated disclaimer. (T. Otte) ! 03 Nov 2011 Added provision for calculating Monin-Obukhov length ! when the sensible heat flux is 0. (T. Otte) ! 24 Aug 2015 Changed latent heat flux from QFX to LH. Added ! calculation of Monin-Obukhov length for WRF/ACM2 so ! "corrector" part of predictor-corrector equation is ! used here; MOL output by WRF for ACM2 is "predictor" ! step. MOL issue in WRF-CMAQ identified by H. Foroutan. ! Changed exponent in WSTAR calculation to remove the 7th ! decimal place to be consistent with the ACM2 use of ! that exponent in WRF. Eliminated local variable UST. ! Changed Rd and Cp in calculation of CPAIR to match ! value used by WRF (from 1004.67 to 1004.5); note that ! both values differ from CPD used by CMAQ (in CONST.EXT) ! and given in MCIP's const_mod.f90. (T. Spero) ! 17 Sep 2015 Changed IFMOLACM to IFMOLPX. (T. Spero) ! 01 Mar 2017 Corrected the reference longitude for the wind ! direction calculation for both MM5 and WRF. (T. Spero) ! 16 Mar 2018 Corrected comment that attributed Monin-Obukhov length ! to ACM2 rather than Pleim-Xiu LSM. Added calculation ! of mosaic aerodynamic resistance following method ! suggested by P. Campbell, and ensuring protection for ! resistances over water cells. (T. Spero) ! 26 Jun 2018 Now use netCDF tokens for missing data. (T. Spero) ! 14 Sep 2018 Removed support for MM5v3 input. (T. Spero) !------------------------------------------------------------------------------- USE mcipparm USE xvars USE const USE const_pbl USE metinfo IMPLICIT NONE REAL, PARAMETER :: amolmini = 1.0 / amolmin INTEGER :: c INTEGER :: cp1 REAL :: cpair REAL, PARAMETER :: ep1 = 0.608 REAL :: hfx INTEGER :: k REAL :: lv REAL :: p2 REAL :: psih REAL :: ql1 REAL :: qst INTEGER :: r INTEGER :: rp1 REAL, PARAMETER :: smallnum = 1.0e-7 REAL :: thv1 REAL :: tmpvtcon REAL :: theta1 REAL :: theta2 REAL :: thetav1 REAL :: tst REAL :: tstv REAL :: u2 REAL, SAVE, ALLOCATABLE :: ul ( : ) REAL :: ulev1 REAL :: uns REAL :: ustmos REAL :: vlev1 REAL :: vns REAL :: wvflx REAL :: ztemp INTERFACE SUBROUTINE getpblht (c, r, wspd) IMPLICIT NONE INTEGER, INTENT(IN) :: c INTEGER, INTENT(IN) :: r REAL, INTENT(IN) :: wspd ( : ) END SUBROUTINE getpblht END INTERFACE !------------------------------------------------------------------------------- ! For the time period that corresponds to a meteorology model initialization ! time, many PBL variables are not defined. At the initialization time for the ! meteorology model, the XUSTAR array may contain all 0.0 values or the XPBL ! array may contain all 0.0 values. In either case, set place-holder values for ! variables that would otherwise be calculated in this routine. !------------------------------------------------------------------------------- IF ( ( ABS(MAXVAL(xustar)) < smallnum ) .OR. & ( ABS(MAXVAL(xpbl)) < smallnum ) ) THEN ! assume initialization period xwstar (:,:) = 0.0 xmol (:,:) = fillreal ! inverse taken in metcro.F ! Compute 10-m wind speed and direction on scalar points. IF ( met_model == 2 ) THEN ! WRF: use native flux-point winds DO c = 1, ncols_x cp1 = c + 1 DO r = 1, nrows_x rp1 = r + 1 uns = 0.5 * ( xuu_s(c,r,1) + xuu_s(cp1,r,1) ) vns = 0.5 * ( xvv_t(c,r,1) + xvv_t(c,rp1,1) ) xwspd10(c,r) = SQRT((uns * uns) + (vns * vns)) CALL wind (uns, vns, xwspd10(c,r), xwdir10(c,r), & xlonc(c,r), met_proj_clon, met_cone_fac) ENDDO ENDDO ENDIF ELSE !------------------------------------------------------------------------------- ! Allocate necessary variables. !------------------------------------------------------------------------------- IF ( .NOT. ALLOCATED ( ul ) ) ALLOCATE ( ul (metlay) ) !------------------------------------------------------------------------------- ! Compute additional variables. !------------------------------------------------------------------------------- DO c = 1, ncols_x cp1 = c + 1 DO r = 1, nrows_x rp1 = r + 1 ! Compute wind speed profile on scalar points. IF ( met_model == 2 ) THEN ! WRF: use native flux-point winds DO k = 1, metlay uns = 0.5 * ( xuu_s(c,r,k) + xuu_s(cp1,r,k) ) vns = 0.5 * ( xvv_t(c,r,k) + xvv_t(c,rp1,k) ) ul(k) = MAX( 0.5, SQRT( (uns * uns) + (vns * vns) ) ) IF ( k == 1 ) THEN IF ( ifw10m ) THEN ulev1 = xu10(c,r) ! 10-m wind components already on scalar pts vlev1 = xv10(c,r) ELSE ulev1 = uns vlev1 = vns ENDIF ENDIF ENDDO ENDIF ! Estimate near-surface variables. ql1 = xwvapor(c,r,1) cpair = cp * (1.0 + 0.84 * ql1) ! [J / kg K] hfx = -xhfx(c,r) / (xdensam(c,r,1) * cpair) theta1 = xtempm(c,r,1) * (100000.0/xpresm(c,r,1))**0.286 ! Calculate Monin-Obukhov length if unavailable in input meteorology, ! except if missing from WRF/P-X simulation...which is done, below. IF ( .NOT. ifmol .AND. .NOT. ifmolpx ) THEN thetav1 = theta1 * (1.0 + ep1 * ql1) lv = lv0 - dlvdt * (xtempg(c,r) - stdtemp) wvflx = xlh(c,r) / lv tstv = ( hfx * (1.0 + ep1 * ql1) + & (ep1 * theta1 * wvflx)/xdensam(c,r,1) ) / xustar(c,r) IF ( ABS(tstv) > 0.000001 ) THEN xmol(c,r) = thetav1 * xustar(c,r) * xustar(c,r) / & (vkar * grav * tstv) ELSE xmol(c,r) = 1.0e7 ! small number for inverse MOL when HFX = 0.0 ENDIF ENDIF ! Recalculate Monin-Obukhov length when ACM2 PBL is used in WRF. ! MOL output by WRF is the "predictor" from the predictor-corrector ! equation. Recalculation here uses algorithms and constants from ! WRF phys/module_bl_acm.f90 and share/module_model_constants.f90 ! as of WRFv3.7. IF ( ifmolpx ) THEN tmpvtcon = 1.0 + ep_1 * ql1 tst = hfx / xustar(c,r) qst = -xqfx(c,r) / (xustar(c,r) * xdensam(c,r,1)) thv1 = tmpvtcon * xtheta(c,r,1) tstv = tst*tmpvtcon + thv1*ep_1*qst IF ( ABS(tstv) < 1.0e-6 ) THEN tstv = SIGN( 1.0e-6, tstv ) ENDIF xmol(c,r) = thv1 * xustar(c,r) * xustar(c,r) / (vkar * grav * tstv) ENDIF ! Limit MOL. ! (Note that this is not part of ACM2 in WRF, but per J. Pleim, ! we will apply it for all MOL coming out of MCIP. TLS 24 Aug 2015) xmol(c,r) = SIGN( MAX(ABS(xmol(c,r)), amolmini), xmol(c,r) ) ! Need to specify PBL height for schemes in WRF when it is input ! as lower than the height of the lowest mid-layer. IF ( xpbl(c,r) <= x3htm(c,r,1) ) THEN CALL getpblht (c, r, ul) ENDIF ! Calculate near-surface temperature and wind. If 10-m wind components ! are not provided in met model file, then 10-m wind speed will be ! calculated using similarity theory in sfclayer, and 10-m wind ! direction is calculated from layer-1 wind components (i.e., no ! directional shear assumed between layer-1 and surface). CALL wind (ulev1, vlev1, xwspd10(c,r), xwdir10(c,r), & xlonc(c,r), met_proj_clon, met_cone_fac) IF ( .NOT. ifw10m ) THEN ztemp = 10.0 ! [m] CALL sfclayer (theta1, theta2, ul(1), u2, x3htm(c,r,1), ztemp, & hfx, xustar(c,r), xmol(c,r)) xwspd10(c,r) = u2 ENDIF IF ( .NOT. ift2m ) THEN ztemp = 2.0 ! [m] p2 = xpresm(c,r,1) + grav * xdensam(c,r,1) * (x3htm(c,r,1) - ztemp) CALL sfclayer (theta1, theta2, ul(1), u2, x3htm(c,r,1), ztemp, & hfx, xustar(c,r), xmol(c,r)) xtemp2(c,r) = theta2 * (p2 / 100000.0)**0.286 ENDIF ! Compute W-star. IF ( xmol(c,r) < 0.0 ) THEN xwstar(c,r) = xustar(c,r) * ( xpbl(c,r) / & ( vkar * ABS( xmol(c,r) ) ) )**0.333333 ELSE xwstar(c,r) = 0.0 ENDIF ENDDO ENDDO !------------------------------------------------------------------------------- ! Dellocate variables. !------------------------------------------------------------------------------- ! DEALLOCATE ( ul ) ! commented out to avoid memory fragmentation ENDIF !------------------------------------------------------------------------------- ! Compute aerodynamic and stomatal resistances if they are not in input ! meteorology. !------------------------------------------------------------------------------- IF ( .NOT. ifresist ) THEN CALL resistcalc ENDIF !------------------------------------------------------------------------------- ! If NOAH Mosaic was used in WRF and the necessary variables were available in ! WRF output, compute aerodynamic resistance in each mosaic land use category. ! Method below was suggested by P. Campbell and is consistent with STAGE ! deposition in CMAQv5.3+. !------------------------------------------------------------------------------- IF ( ifmosaic ) THEN DO c = 1, ncols_x DO r = 1, nrows_x IF ( ( NINT(xlwmask(c,r)) == 0 ) .OR. & ( NINT(xdluse(c,r)) == met_lu_ice ) ) THEN ! water or ice xrs_mos(c,r,:) = fillreal ! inverse taken in moscro.f90, will be 0.0 xra_mos(c,r,:) = fillreal ! inverse taken in moscro.f90, will be 0.0 ELSE DO k = 1, nummosaic ustmos = xustar(c,r) * SQRT( LOG(x3htm(c,r,1) / xzruf(c,r)) / & LOG(x3htm(c,r,1) / xznt_mos(c,r,k)) ) CALL getpsih (x3htm(c,r,1), xznt_mos(c,r,k), ustmos, xmol(c,r), & psih) xra_mos(c,r,k) = pro * (LOG(x3htm(c,r,1)/xznt_mos(c,r,k))-psih) / & (vkar * ustmos) ENDDO ENDIF ENDDO ENDDO ENDIF END SUBROUTINE pblsup ================================================ FILE: PREP/mcip/src/ptemp.f90 ================================================ !------------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------------! FUNCTION ptemp (temp, press) !------------------------------------------------------------------------------- ! Name: Potential Temperature ! Purpose: Returns potential temperature [K] as a function of temperature [K] ! and pressure [Pa] using Poisson's equation. ! Revised: ?? ??? ???? Original version as a statement function in MCIP ! routine getpblht.f90. ! 23 Feb 2011 Converted to independent routine. (T. Otte) ! 07 Sep 2011 Updated disclaimer. (T. Otte) !------------------------------------------------------------------------------- IMPLICIT NONE REAL, INTENT(IN) :: press ! pressure [Pa] REAL :: ptemp ! virtual temperature [K] REAL, PARAMETER :: rdovcp = 2.0 / 7.0 ! Rd / cP REAL, INTENT(IN) :: temp ! temperature [K] ptemp = temp * ( 100000.0 / press )**rdovcp END FUNCTION ptemp ================================================ FILE: PREP/mcip/src/pvs.f90 ================================================ !------------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------------! SUBROUTINE pvs !------------------------------------------------------------------------------- ! Name: Potential Vorticity on Sigma ! Purpose: Compute potential vorticity on sigma surfaces from Ertel's form. ! Notes: Formalism based on Ebel et al., "Simulation of ozone intrusion ! caused by tropopause fold and cut-off low, Atmos. Environ., ! Part A, 25, 2131-2144. ! Revised: ?? ??? 1999 Original version. (S. McKeen) ! ?? ??? 2007 Adapted for use in air quality forecasting model. ! (H.-M. Lin and R. Mathur) ! 17 Sep 2009 Adapted for MCIP by changing array indexing and using ! arrays available in MCIP. (T. Otte) ! 07 Sep 2011 Updated disclaimer. Changed SCALE to SCALEF to avoid ! conflict with F90 intrinsic. (T. Otte) !------------------------------------------------------------------------------- USE coord USE mcipparm USE xvars IMPLICIT NONE INTEGER :: c INTEGER :: cp1 REAL :: dsx REAL :: dsy REAL, SAVE, ALLOCATABLE :: dtds ( : , : ) REAL, SAVE, ALLOCATABLE :: dtdx ( : , : ) REAL, SAVE, ALLOCATABLE :: dtdy ( : , : ) REAL, SAVE, ALLOCATABLE :: duds ( : , : ) REAL, SAVE, ALLOCATABLE :: dvds ( : , : ) REAL :: dx REAL :: dy REAL :: f0 REAL :: f1 REAL :: f2 INTEGER :: k INTEGER :: k0 INTEGER :: k1 INTEGER :: k2 INTEGER :: r INTEGER :: rp1 REAL, PARAMETER :: scalef = -1.0e6 REAL, SAVE, ALLOCATABLE :: sigma ( : ) REAL :: t00 REAL :: t1 REAL :: t2 REAL :: t3 REAL :: vor !------------------------------------------------------------------------------- ! Define variables for interaction. !------------------------------------------------------------------------------- dx = REAL(xcell_gd) dy = REAL(ycell_gd) dsx = 2.0 * dx dsy = 2.0 * dy !------------------------------------------------------------------------------- ! Allocate necessary variables. !------------------------------------------------------------------------------- IF ( .NOT. ALLOCATED ( duds ) ) ALLOCATE ( duds ( ncols_x, nrows_x ) ) IF ( .NOT. ALLOCATED ( dvds ) ) ALLOCATE ( dvds ( ncols_x, nrows_x ) ) IF ( .NOT. ALLOCATED ( dtdx ) ) ALLOCATE ( dtdx ( ncols_x, nrows_x ) ) IF ( .NOT. ALLOCATED ( dtdy ) ) ALLOCATE ( dtdy ( ncols_x, nrows_x ) ) IF ( .NOT. ALLOCATED ( dtds ) ) ALLOCATE ( dtds ( ncols_x, nrows_x ) ) IF ( .NOT. ALLOCATED ( sigma ) ) ALLOCATE ( sigma ( metlay ) ) !------------------------------------------------------------------------------- ! Transfer monotonically increased X3 to monotonically decreased SIGMA. ! This form allows subroutine to remain general for hybrid vertical coordinates. !------------------------------------------------------------------------------- DO k = 1, metlay sigma(k) = 1.0 - xx3midl(k) ENDDO !------------------------------------------------------------------------------- ! Compute vertical gradients using 2nd order polynomials at all levels. ! Gradients obtained at model sigma levels, ! not at sigma=.5*(sigma(K+1)+sigma(K-1)) !------------------------------------------------------------------------------- kloop: DO k = 1, metlay IF ( k == 1 ) THEN k0 = k k1 = k + 1 k2 = k + 2 f0 = -1.0 / (sigma(k1) - sigma(k0)) - 1.0 / (sigma(k2) - sigma(k0)) f1 = 1.0 / (sigma(k1) - sigma(k0)) + 1.0 / (sigma(k2) - sigma(k1)) f2 = -1.0 * ( (sigma(k1) - sigma(k0)) / & ( (sigma(k2) - sigma(k0)) * (sigma(k2) - sigma(k1)) ) ) ELSE IF ( k == metlay ) THEN k0 = k - 2 k1 = k - 1 k2 = k f0 = (sigma(k2) - sigma(k1)) / & ( (sigma(k2) - sigma(k0)) * (sigma(k1) - sigma(k0)) ) f1 = -1.0 / (sigma(k1) - sigma(k0)) - 1.0 / (sigma(k2) - sigma(k1)) f2 = 1.0 / (sigma(k2) - sigma(k0)) + 1.0 / (sigma(k2) - sigma(k1)) ELSE k0 = k - 1 k1 = k k2 = k + 1 f0 = -1.0 * (sigma(k2) - sigma(k1)) / & ( (sigma(k1) - sigma(k0)) * (sigma(k2) - sigma(k0)) ) f1 = 1.0 / (sigma(k1) - sigma(k0)) - 1.0 / (sigma(k2) - sigma(k1)) f2 = (sigma(k1) - sigma(k0)) / & ( (sigma(k2) - sigma(k1)) * (sigma(k2) - sigma(k0)) ) ENDIF !------------------------------------------------------------------------------- ! Compute vertical derivatives: dU/ds, dV/ds, dTHETA/ds. !------------------------------------------------------------------------------- DO r = 1, nrows_x rp1 = r + 1 DO c = 1, ncols_x cp1 = c + 1 duds(c,r) = 0.5 * ( f0 * ( xuu_s(cp1,r ,k0) + xuu_s(c,r,k0) ) + & f1 * ( xuu_s(cp1,r ,k1) + xuu_s(c,r,k1) ) + & f2 * ( xuu_s(cp1,r ,k2) + xuu_s(c,r,k2) ) ) dvds(c,r) = 0.5 * ( f0 * ( xvv_t(c ,rp1,k0) + xvv_t(c,r,k0) ) + & f1 * ( xvv_t(c ,rp1,k1) + xvv_t(c,r,k1) ) + & f2 * ( xvv_t(c ,rp1,k2) + xvv_t(c,r,k2) ) ) ENDDO ENDDO DO r = 1, nrows_x DO c = 1, ncols_x t00 = xtheta(c,r,k0) t1 = xtheta(c,r,k1) t2 = xtheta(c,r,k2) dtds(c,r) = f0*t00 + f1*t1 + f2*t2 ENDDO ENDDO !------------------------------------------------------------------------------- ! Compute horizontal derivatives: dTHETA/dx, dTHETA/dy. ! ! 6/8/99, Horizontal gradients also calculated by 2nd order polynomials ! at all levels. In particular, this modifies orig code so PV at side ! boundaries are not biased low. !------------------------------------------------------------------------------- DO r = 1, nrows_x DO c = 2, ncols_x-1 t1 = xtheta(c-1,r,k) / xmapc(c-1,r) t2 = xtheta(c+1,r,k) / xmapc(c+1,r) dtdx(c,r) = xmapc2(c,r) * (t2-t1) / dsx ENDDO t1 = xtheta(1,r,k) / xmapc(1,r) t2 = xtheta(2,r,k) / xmapc(2,r) t3 = xtheta(3,r,k) / xmapc(3,r) dtdx(1,r) = xmapc2(1,r) * (-1.5*t1 + 2.0*t2 - 0.5*t3) / dx t00 = xtheta(ncols_x-2,r,k) / xmapc(ncols_x-2,r) t1 = xtheta(ncols_x-1,r,k) / xmapc(ncols_x-1,r) t2 = xtheta(ncols_x, r,k) / xmapc(ncols_x, r) dtdx(ncols_x,r) = xmapc2(ncols_x,r) * (0.5*t00 - 2.0*t1 + 1.5*t2) / dx ENDDO DO c = 1, ncols_x DO r = 2, nrows_x-1 t1 = xtheta(c,r-1,k) / xmapc(c,r-1) t2 = xtheta(c,r+1,k) / xmapc(c,r+1) dtdy(c,r) = xmapc2(c,r) * (t2-t1) / dsy ENDDO t1 = xtheta(c,1,k) / xmapc(c,1) t2 = xtheta(c,2,k) / xmapc(c,2) t3 = xtheta(c,3,k) / xmapc(c,3) dtdy(c,1) = xmapc2(c,1) * (-1.5*t1 + 2.0*t2 - 0.5*t3) / dy t00 = xtheta(c,nrows_x-2,k) / xmapc(c,nrows_x-2) t1 = xtheta(c,nrows_x-1,k) / xmapc(c,nrows_x-1) t2 = xtheta(c,nrows_x, k) / xmapc(c,nrows_x) dtdy(c,nrows_x) = xmapc2(c,nrows_x) * (0.5*t00 - 2.0*t1 + 1.5*t2) / dy ENDDO !------------------------------------------------------------------------------- ! Compute slab absolute vorticity, and store potential vorticity in XPVC. ! ! 1. Because we use X3 instead of SIGMA in equation, ! GRAV/PSB is replaced by 1.0/XRHOJM (density * Jacobian). ! ! 2. As a shortcut, 1.0/XRHOJM is not included in XPVC here; ! it will be included in subroutine METCRO before PV is output. !------------------------------------------------------------------------------- DO r = 1, nrows_x rp1 = r + 1 DO c = 1, ncols_x cp1 = c + 1 vor = xmapc2(c,r) * ((xvv_d(cp1,r, k) + xvv_d(cp1,rp1,k) - & xvv_d(c, r, k) - xvv_d(c, rp1,k)) / dsx - & (xuu_d(c, rp1,k) + xuu_d(cp1,rp1,k) - & xuu_d(c, r, k) - xuu_d(cp1,r, k)) / dsy) + & xcorl(c,r) xpvc(c,r,k) = scalef * ( vor * dtds(c,r) & - dvds(c,r) * dtdx(c,r) & + duds(c,r) * dtdy(c,r) ) ENDDO ENDDO ENDDO kloop END SUBROUTINE pvs ================================================ FILE: PREP/mcip/src/qsat.f90 ================================================ !------------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------------! FUNCTION qsat (esat, pres) !------------------------------------------------------------------------------- ! Name: Saturation Mixing Ratio ! Purpose: Returns saturation mixing ratio as a function of saturation vapor ! pressure and pressure [Pa]. ! Revised: ?? ??? ???? Original version as a statement function in MCIP ! routine bcldprc_ak.f90. ! 23 Feb 2011 Converted to independent routine. (T. Otte) ! 07 Sep 2011 Updated disclaimer. (T. Otte) !------------------------------------------------------------------------------- USE const IMPLICIT NONE REAL, INTENT(IN) :: esat ! saturation vapor pressure [Pa] REAL, PARAMETER :: mvoma = mwwat / mwair ! 0.622015 REAL, INTENT(IN) :: pres ! pressure [Pa] REAL :: qsat ! saturation mixing ratio qsat = esat * mvoma / ( pres - esat ) END FUNCTION qsat ================================================ FILE: PREP/mcip/src/rdwrfem.f90 ================================================ !------------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------------! SUBROUTINE rdwrfem (mcip_now) !------------------------------------------------------------------------------- ! Name: Read WRFv2 and WRFv3 (Eulerian Mass Core) Output ! Purpose: Reads incoming WRFv2 and WRFv3 output files for use in MCIP. ! Notes: Adapted from S.-B. Kim's get_wrf.F in WCIP. ! Revised: 31 Mar 2005 Original version. (T. Otte) ! 15 Jul 2005 Modified variable retrievals so that the code will ! stop if a variable is not found. Corrected print ! statement for sample output. (T. Otte) ! 30 Jul 2007 Corrected error in processing incremental precipitation ! for first MCIP output time period when the first WRF ! WRF output time is not used by MCIP. Added reads for ! fractional land use, leaf area index, aerodynamic and ! stomatal resistances, inverse Monin-Obukhov length, and ! soil moisture, temperature, and type, if those fields ! are available. Removed read for emissivity. Allowed ! for roughness length to be filled from a lookup table ! if it is not available in WRF output. (T. Otte) ! 14 May 2008 Read TSLB (layer 1) if TSK is unavailable. Change ! static data tables for roughness length to allow for ! up to 33 categories of USGS, and added error-checking ! when ZNT is set from the lookup table. Corrected ! season assignment for lookup table for the Southern ! Hemisphere. Check LAI, RA, and RSTOM to ensure that ! there are non-zero values in the fields, if they ! exist. If the values of RA and/or RSTOM are all 0.0, ! reset IFRESIST flag so that they will be calculated ! later. If LAI is in output but is 0.0, set LAI to ! realistic values for NOAH LSM. Added 2-m mixing ratio ! (Q2) and turbulent kinetic energy (TKE), if available. ! Changed read on vegetation fraction to preferentially ! use VEGF_PX rather than VEGFRA for Pleim-Xiu land- ! surface model. Changed algorithm to find "valid" ! data to require time difference to be < TTOL rather ! than <= TTOL. Added urban fraction (FRC_URB), ! urban roughness length (Z0C_URB2D), and urban Monin- ! Obukhov length (XXXC_URB) for MET_UCMCALL=1. Added ! error checking to ensure that WRF files used in this ! MCIP run are from the same simulation so that ! incremental precipitation totals in RN and RC are ! processed correctly. (T. Otte) ! 29 Oct 2009 Cleaned up file opening and logging for WRF I/O API, ! particularly when the WRF headers of new files are ! checked, to prevent condition with too many files open ! for long simulations. Changed MET_UCMCALL to ! MET_URBAN_PHYS, and allowed for variable to be set to ! be greater than 1. Capture potential temperature ! (THETA) and Coriolis (CORIOLIS) when potential ! vorticity is needed. Changed method of computing ! latitude, longitude, and map-scale factor arrays to ! be more general; removed subroutine GRIDGEOMETRY. ! Added default roughness length values for NCLD-MODIS, ! SiB, and MODIS-NOAH. Increased MAX_TIMES to 1000 to ! enable processing of longer data sets. Removed ! DUM2D_D. Added latitude, longitude, and map-scale ! factors on U and V faces. Allow output from WRF ! Preprocessing System (WPS) routine, GEOGRID, to ! provide fractional land use output if it is unavailable ! in WRF output. Removed Z0C_URB2D. Corrected units ! for U10 and V10 in log file. Changed error condition ! to warning condition if LAI is set to zero on input ! and LSM other than NOAH was used. Changed reads of ! fractional land use and roughness length so that they ! are only performed if those fields are known to exist. ! Changed real-number comparisons of maximum values from ! "equivalences" to "less than tolerances". (T. Otte) ! 12 Feb 2010 Removed unused variables COMM and SYSDEP_INFO, and ! removed unused format 9600. (T. Otte) ! 18 Mar 2010 Added CDFID as an input argument for subroutine ! CHKWRFHDR. Changed all calls to netCDF routines to use ! the Fortran interface rather than the C interface. ! Changed input arguments for routines in WRF_NETCDF ! from FILENAME to CDFID to minimize I/O. (T. Otte) ! 23 Dec 2010 Improved support for long MCIP runs from long WRF ! runs by increasing MAX_TIMES to 9999. Also added ! missing "close" command for incoming WRF files. ! Added sea ice. Added support for precipitation ! tipping bucket option in WRF. Changed latitude and ! longitude calculations for polar stereograhic ! projection to interpolations. (T. Otte) ! 31 Aug 2011 Changed name of module FILE to FILES to avoid conflict ! with F90 protected intrinsic. Updated netCDF commands ! to F90, and improved error handling. Replaced calls ! to GET_TIMES_CDF with explicit netCDF functions. ! Changed F77 character declarations to F90 standard. ! Changed DATA statements to parameters. Changed ! arguments to 19-character elements for GETH_IDTS. ! (T. Otte) ! 07 Sep 2011 Updated disclaimer. (T. Otte) ! 21 Nov 2011 Corrected error in tipping bucket precipitation ! calculation. (T. Otte) ! 21 Aug 2012 Added MET_PCP_INCR to accommodate WRFv3.3 option to ! output incremental precipitation. (T. Otte) ! 11 Sep 2012 Added handling for 40-category 2006 NLCD-MODIS land ! use classification as "NLCD40". Added alternate name ! for 50-category 2001 NLCD-MODIS land use classification ! as "NLCD50". Changed SFZ0NLCSUM and SFZ0NLCWIN to ! SFZ0NLCD50SUM and SFZ0NLCD50WIN. Added analogous ! arrays for NLCD40. Updated values for roughness length ! for both NLCD-MODIS classifications using tables from ! WRFv3.4 module_sf_pxlsm_data.F. Added read of array ! LANDMASK to be used with runs that used Pleim-Xiu LSM. ! (T. Otte) ! 26 Nov 2014 Corrected formatting error in error-handling F9400, ! and corrected four locations of this routine that now ! reference F9400 incorrectly. Removed requirement to ! have FRC_URB available when urban canopy model is used ! in WRF. (T. Spero) ! 10 Apr 2015 If 3D resolved cloud fraction is in the WRF output, ! collect that field to pass through to output. ! (T. Spero) ! 25 Aug 2015 Changed latent heat flux from QFX to LH. Fill THETA ! and moisture flux (QFX) for IFMOLACM. If Pleim-Xiu ! land-surface model is used, realign soil categories ! to be consistent with WRF documentation. (T. Spero) ! 08 Sep 2015 Commented out realignment of soil categories for ! Pleim-Xiu land-surface model because CMAQ cannot ! handle this yet. (T. Spero) ! 17 Sep 2015 Changed IFMOLACM to IFMOLPX. (T. Spero) ! 30 Oct 2015 Changed WRITE statements for printing sampled data to ! log file to eliminate warning messages. (T. Spero) ! 22 Nov 2016 Changed urban model variable FRC_URB to FRC_URB2D to ! be consistent with its use in WRF. (T. Spero) ! 21 Apr 2017 Updated SFZ0 for MODIS so that category 21 is "Lake". ! (T. Spero) ! 16 Mar 2018 Corrected the settings for II and JJ in the loop for ! calculating dot-point latitude and longitude for polar ! stereographic WRF projections. Moved TTOL to ! MCIPPARM_MOD, and changed its local name to TTOL_SEC. ! Corrected error in print statement for WRF variable ! CLDFRA. Added SNOWH to output. Created a minimum ! value for rainfall in order to avoid underflow ! condition. Corrected minor error in array mapping in ! rain buckets in unused column and row. Added ! LUFRAC2, MOSCATIDX, LAI_MOS, RA_MOS, RS_MOS, TSK_MOS, ! ZNT_MOS, and DUM3D_M to support NOAH Mosaic land- ! surface model. Added DZS to capture soil layers, and ! added 3D soil arrays, SOIT3D and SOIM3D. Added ! WSPDSFC and XLAIDYN for Noah. (T. Spero) ! 27 Jun 2018 Changed name of module with netCDF IO to broaden its ! usage. Removed local aliases for dimensions of input ! meteorological fields. (T. Spero) ! 14 Sep 2018 Changed condition to enable hybrid vertical coordinate ! from WRF. Removed support for MM5v3 input. (T. Spero) ! 16 Oct 2018 Corrected error in computing precipitation amounts when ! the tipping bucket is used and less than 0.5 mm of ! precipitation accumulated during the same hour that the ! bucket tips; corrects erroneous precipitation spikes. ! Corrected error in array mapping for precipitation on ! initial time step in the outermost row and column ! (dummy cells not used by CMAQ). ! (C. Nolte and T. Spero) ! 23 Nov 2018 Changed local usages of NX, NY, and NZ to MET_NX, ! MET_NY, and MET_NZ to avoid confusion with generic ! usages of those variables for global dimensions in ! netCDF output. (T. Spero) ! 18 Jun 2019 Added new surface variables with PX LSM that can ! improve dust simulation in CCTM. Added optional ! variables from KF convective scheme with radiative ! feedbacks. (T. Spero) ! 06 Mar 2020 Removed need to read "F" (Coriolis parameter) from WRF ! output for potential vorticity scaling. Instead, ! calculate F inside this routine (called "CORIOLIS" ! here) from latitude. Value of angular momentum of ! earth (omega in new variable TWOOMEGA) is from WRF ! variable "EOMEG" in WRF routine: ! share/module_model_constants.f90. (T. Spero) ! 17 Jun 2021 Modified most recent change that calculates Coriolis ! parameter so that it does not rely on a non-standard ! Fortran intrinsic (SIND), which is only available ! for select compilers. (T. Spero) ! 13 Dec 2023 Removed redundant NF90_OPEN/NF90_CLOSE couplet to ! improve efficiency and memory management. (T. Spero) !------------------------------------------------------------------------------- USE date_pack USE files USE metinfo USE metvars USE mcipparm USE netcdf_io USE netcdf IMPLICIT NONE INTEGER, SAVE :: cdfid INTEGER :: cdfidg REAL :: deg2rad INTEGER :: dimids ( nf90_max_var_dims ) REAL, SAVE, ALLOCATABLE :: dum2d ( : , : ) INTEGER, SAVE, ALLOCATABLE :: dum2d_i ( : , : ) REAL, SAVE, ALLOCATABLE :: dum2d_u ( : , : ) REAL, SAVE, ALLOCATABLE :: dum2d_v ( : , : ) REAL, SAVE, ALLOCATABLE :: dum3d_l ( : , : , : ) INTEGER, SAVE, ALLOCATABLE :: dum3d_li ( : , : , : ) REAL, SAVE, ALLOCATABLE :: dum3d_m ( : , : , : ) REAL, SAVE, ALLOCATABLE :: dum3d_p ( : , : , : ) REAL, SAVE, ALLOCATABLE :: dum3d_s ( : , : , : ) REAL, SAVE, ALLOCATABLE :: dum3d_t ( : , : , : ) REAL, SAVE, ALLOCATABLE :: dum3d_u ( : , : , : ) REAL, SAVE, ALLOCATABLE :: dum3d_v ( : , : , : ) REAL, SAVE, ALLOCATABLE :: dum3d_w ( : , : , : ) CHARACTER(LEN=19) :: endseas LOGICAL, SAVE :: first = .TRUE. CHARACTER(LEN=256) :: fl CHARACTER(LEN=256) :: flg LOGICAL :: gotfaces = .TRUE. LOGICAL :: gotseaice LOGICAL :: gotznt INTEGER :: i INTEGER :: id_data INTEGER :: idts_end INTEGER :: idts_start INTEGER :: idtsec LOGICAL :: iffl CHARACTER(LEN=64) :: ifmt1 CHARACTER(LEN=64) :: ifmt1a CHARACTER(LEN=64) :: ifmt2 CHARACTER(LEN=64) :: ifmt3 CHARACTER(LEN=64) :: ifmt4 CHARACTER(LEN=64) :: ifmt5 INTEGER :: ii INTEGER :: im1 INTEGER :: it INTEGER, SAVE :: it_start INTEGER :: itm1 INTEGER :: j INTEGER :: jj INTEGER :: jm1 INTEGER :: k INTEGER :: k1 INTEGER :: k2 REAL :: latrad INTEGER :: lent REAL, EXTERNAL :: mapfac_lam REAL, EXTERNAL :: mapfac_merc REAL, EXTERNAL :: mapfac_ps CHARACTER(LEN=24), INTENT(IN) :: mcip_now CHARACTER(LEN=24) :: mcip_previous INTEGER :: m1count = 1 INTEGER, SAVE :: mmcount = 1 INTEGER, SAVE :: n_times LOGICAL, SAVE :: newfile = .TRUE. LOGICAL :: newfilem1 = .TRUE. INTEGER :: nxm INTEGER :: nym INTEGER :: nzp REAL :: pi CHARACTER(LEN=16), PARAMETER :: pname = 'RDWRFEM' INTEGER :: rcode REAL, PARAMETER :: rdovcp = 2.0 / 7.0 REAL, PARAMETER :: smallnum = 1.0e-7 CHARACTER(LEN=19) :: startseas CHARACTER(LEN=2) :: str1 CHARACTER(LEN=2) :: str2 CHARACTER(LEN=19),SAVE,ALLOCATABLE:: times ( : ) REAL, PARAMETER :: twoomega = 2.0 * 7.2921e-5 ! [s-1] REAL :: xoff REAL :: xxin REAL :: yoff REAL :: yyin ! Define roughness length as functions of land use and season in case ! it is not available in WRF output. REAL, PARAMETER :: sfz0oldsum ( 13 ) = & ! summer [cm] (/ 50.0, 15.0, 12.0, 50.0, 50.0, 40.0, 0.01, 20.0, & 10.0, 10.0, 5.0, 50.0, 15.0 /) REAL, PARAMETER :: sfz0oldwin ( 13 ) = & ! winter [cm] (/ 50.0, 5.0, 10.0, 50.0, 50.0, 40.0, 0.01, 20.0, & 10.0, 10.0, 5.0, 50.0, 15.0 /) REAL, PARAMETER :: sfz0modsum ( 33 ) = & ! summer [cm] (/ 50.0, 50.0, 50.0, 50.0, 50.0, 5.0, 6.0, 5.0, & 15.0, 12.0, 30.0, 15.0, 80.0, 14.0, 0.1, 1.0, & 0.01, 30.0, 15.0, 10.0, 0.01, 80.0, 80.0, 80.0, & 80.0, 80.0, 80.0, 80.0, 80.0, 80.0, 80.0, 80.0, 80.0 /) REAL, PARAMETER :: sfz0modwin ( 33 ) = & ! winter [cm] (/ 50.0, 50.0, 50.0, 50.0, 20.0, 1.0, 1.0, 1.0, & 15.0, 50.0, 30.0, 5.0, 80.0, 5.0, 0.1, 1.0, & 0.01, 10.0, 30.0, 15.0, 0.01, 80.0, 80.0, 80.0, & 80.0, 80.0, 80.0, 80.0, 80.0, 80.0, 80.0, 80.0, 80.0 /) REAL, PARAMETER :: sfz0nlcd50sum ( 50 ) = & ! summer [cm] (/ 0.1, 1.2, 30.0, 40.0, 60.0, 100.0, 5.0, 5.0, & 100.0, 100.0, 100.0, 10.0, 15.0, 7.0, 7.0, 5.0, & 5.0, 5.0, 7.0, 10.0, 55.0, 80.0, 30.0, 60.0, & 30.0, 11.0, 11.0, 11.0, 5.0, 5.0, 0.1, 100.0, & 90.0, 100.0, 100.0, 100.0, 15.0, 15.0, 25.0, 15.0, & 7.0, 20.0, 10.0, 80.0, 30.0, 1.2, 5.0, 0.1, & 0.1, 0.1 /) REAL, PARAMETER :: sfz0nlcd50win ( 50 ) = & ! winter [cm] (/ 0.1, 1.2, 30.0, 40.0, 60.0, 100.0, 5.0, 5.0, & 100.0, 100.0, 100.0, 10.0, 15.0, 7.0, 7.0, 5.0, & 5.0, 5.0, 7.0, 10.0, 55.0, 80.0, 30.0, 60.0, & 30.0, 11.0, 11.0, 11.0, 5.0, 5.0, 0.1, 100.0, & 90.0, 100.0, 100.0, 100.0, 15.0, 15.0, 25.0, 15.0, & 7.0, 20.0, 10.0, 80.0, 30.0, 1.2, 5.0, 0.1, & 0.1, 0.1 /) REAL, PARAMETER :: sfz0nlcd40sum ( 40 ) = & ! summer [cm] (/100.0, 90.0, 100.0, 100.0, 100.0, 30.0, 15.0, 25.0, & 15.0, 7.0, 20.0, 10.0, 80.0, 30.0, 1.2, 5.0, & 0.1, 0.1, 0.1, 0.1, 0.1, 1.2, 30.0, 40.0, & 60.0, 100.0, 5.0, 100.0, 100.0, 100.0, 10.0, 15.0, & 7.0, 7.0, 5.0, 5.0, 7.0, 10.0, 55.0, 11.0 /) REAL, PARAMETER :: sfz0nlcd40win ( 40 ) = & ! winter [cm] (/100.0, 90.0, 100.0, 100.0, 100.0, 30.0, 15.0, 25.0, & 15.0, 7.0, 20.0, 10.0, 80.0, 30.0, 1.2, 5.0, & 0.1, 0.1, 0.1, 0.1, 0.1, 1.2, 30.0, 40.0, & 60.0, 100.0, 5.0, 100.0, 100.0, 100.0, 10.0, 15.0, & 7.0, 7.0, 5.0, 5.0, 7.0, 10.0, 55.0, 11.0 /) REAL, PARAMETER :: sfz0sibsum ( 16 ) = & ! summer [cm] (/ 50.0, 50.0, 40.0, 50.0, 50.0, 15.0, 12.0, 12.0, & 12.0, 10.0, 10.0, 15.0, 20.0, 12.0, 0.01, 5.0 /) REAL, PARAMETER :: sfz0sibwin ( 16 ) = & ! winter [cm] (/ 50.0, 50.0, 40.0, 50.0, 50.0, 15.0, 10.0, 10.0, & 10.0, 10.0, 10.0, 5.0, 20.0, 10.0, 0.01, 5.0 /) REAL, PARAMETER :: sfz0usgssum ( 33 ) = & ! summer [cm] (/ 80.0, 15.0, 10.0, 15.0, 14.0, 20.0, 12.0, 5.0, & 6.0, 15.0, 50.0, 50.0, 50.0, 50.0, 50.0, 0.01, & 20.0, 40.0, 1.0, 10.0, 30.0, 15.0, 10.0, 5.0, & 1.0, 15.0, 1.0, 80.0, 80.0, 80.0, 80.0, 80.0, 80.0 /) REAL, PARAMETER :: sfz0usgswin ( 33 ) = & ! winter [cm] (/ 80.0, 5.0, 2.0, 5.0, 5.0, 20.0, 10.0, 1.0, & 1.0, 15.0, 50.0, 50.0, 50.0, 50.0, 20.0, 0.01, & 20.0, 40.0, 1.0, 10.0, 30.0, 15.0, 5.0, 5.0, & 1.0, 15.0, 1.0, 80.0, 80.0, 80.0, 80.0, 80.0, 80.0 /) !------------------------------------------------------------------------------- ! Error, warning, and informational messages. !------------------------------------------------------------------------------- CHARACTER(LEN=256), PARAMETER :: f6000 = "(1x, a, 1x, f12.4, 2x, a)" CHARACTER(LEN=256), PARAMETER :: f6100 = "(1x, a, 1x, i12, 2x, a)" CHARACTER(LEN=256), PARAMETER :: f9100 = "(/, 1x, 70('*'), & & /, 1x, '*** SUBROUTINE: ', a, & & /, 1x, '*** LOOKING FOR INPUT MET AT TIME ', a, & & /, 1x, '*** NO MORE INPUT WRF FILES', & & /, 1x, 70('*'))" CHARACTER(LEN=256), PARAMETER :: f9200 = "(/, 1x, 70('*'), & & /, 1x, '*** SUBROUTINE: ', a, & & /, 1x, '*** LOOKING FOR INPUT MET AT TIME ', a, & & /, 1x, '*** INPUT FILE NUMBER ', i3, ' IS BLANK', & & /, 1x, 70('*'))" CHARACTER(LEN=256), PARAMETER :: f9300 = "(/, 1x, 70('*'), & & /, 1x, '*** SUBROUTINE: ', a, & & /, 1x, '*** LOOKING FOR INPUT MET AT TIME ', a, & & /, 1x, '*** COULD NOT FIND FILE ', a, & & /, 1x, '*** FILE MAY NOT EXIST', & & /, 1x, 70('*'))" CHARACTER(LEN=256), PARAMETER :: f9400 = "(/, 1x, 70('*'), & & /, 1x, '*** SUBROUTINE: ', a, & & /, 1x, '*** ERROR RETRIEVING VARIABLE FROM WRF FILE', & & /, 1x, '*** VARIABLE = ', a, & & /, 1x, '*** RCODE = ', a, & & /, 1x, 70('*'))" CHARACTER(LEN=256), PARAMETER :: f9410 = "(/, 1x, 70('*'), & & /, 1x, '*** SUBROUTINE: ', a, & & /, 1x, '*** ERROR RETRIEVING NCF ID FROM WRF FILE', & & /, 1x, '*** VARIABLE = ', a, & & /, 1x, '*** NCF: ', a, & & /, 1x, 70('*'))" CHARACTER(LEN=256), PARAMETER :: f9420 = "(/, 1x, 70('*'), & & /, 1x, '*** SUBROUTINE: ', a, & & /, 1x, '*** ERROR INQUIRING ABOUT VAR IN WRF FILE', & & /, 1x, '*** VARIABLE = ', a, & & /, 1x, '*** NCF: ', a, & & /, 1x, 70('*'))" CHARACTER(LEN=256), PARAMETER :: f9430 = "(/, 1x, 70('*'), & & /, 1x, '*** SUBROUTINE: ', a, & & /, 1x, '*** ERROR RETRIEVING DIMS FROM WRF FILE', & & /, 1x, '*** VARIABLE = ', a, & & /, 1x, '*** NCF: ', a, & & /, 1x, 70('*'))" CHARACTER(LEN=256), PARAMETER :: f9500 = "(/, 1x, 70('*'), & & /, 1x, '*** SUBROUTINE: ', a, & & /, 1x, '*** UNKNOWN LAND USE CLASSIFICATION SYSTEM', & & /, 1x, '*** LAND USE SOURCE = ', a, & & /, 1x, '*** HIGHEST INDEX FOUND = ', i4, & & /, 1x, 70('*'))" CHARACTER(LEN=256), PARAMETER :: f9700 = "(/, 1x, 70('*'), & & /, 1x, '*** SUBROUTINE: ', a, & & /, 1x, '*** UNABLE TO SET ZNT FROM LOOKUP TABLE', & & /, 1x, '*** LAND USE SOURCE = ', a, & & /, 1x, '*** NUMBER OF LAND USE CATEGORIES = ', i3, & & /, 1x, 70('*'))" CHARACTER(LEN=256), PARAMETER :: f9800 = "(/, 1x, 70('*'), & & /, 1x, '*** SUBROUTINE: ', a, & & /, 1x, '*** UNABLE TO BLEND ', a, ' FOR UCM', & & /, 1x, '*** UNKNOWN LAND USE SOURCE', & & /, 1x, '*** LAND USE SOURCE = ', a, & & /, 1x, 70('*'))" CHARACTER(LEN=256), PARAMETER :: f9900 = "(/, 1x, 70('*'), & & /, 1x, '*** SUBROUTINE: ', a, & & /, 1x, '*** ERROR OPENING WRF NETCDF FILE', & & /, 1x, 70('*'))" CHARACTER(LEN=256), PARAMETER :: f9950 = "(/, 1x, 70('*'), & & /, 1x, '*** SUBROUTINE: ', a, & & /, 1x, '*** ERROR CLOSING WRF NETCDF FILE', & & /, 1x, 70('*'))" CHARACTER(LEN=256), PARAMETER :: f9975 = "(/, 1x, 70('*'), & & /, 1x, '*** SUBROUTINE: ', a, & & /, 1x, '*** DID NOT FIND ARRAY ', a, & & /, 1x, '*** WILL DEFINE FROM OTHER FIELDS LATER', & & /, 1x, 70('*'))" !------------------------------------------------------------------------------- ! Define additional staggered grid dimensions. !------------------------------------------------------------------------------- nxm = met_nx - 1 nym = met_ny - 1 nzp = met_nz + 1 !------------------------------------------------------------------------------- ! Set up print statements. !------------------------------------------------------------------------------- k1 = met_nz / 5 k2 = MOD(met_nz, 5) WRITE ( str1, '(i2)' ) k1 - 1 WRITE ( str2, '(i2)' ) k2 IF ( (k1 - 1) > 0 ) THEN IF ( k2 > 0 ) THEN ifmt1 = "(/,1x,a,5(1x,f12.4)," // str1 // "(/,10x,5(1x,f12.4)),/,10x," & & // str2 // "(1x,f12.4))" ELSE ifmt1 = "(/,1x,a,5(1x,f12.4)," // str1 // "(/,10x,5(1x,f12.4)))" ENDIF ELSE IF ( k2 > 0 ) THEN ifmt1 = "(/,1x,a,5(1x,f12.4),/,11x," // str2 // "(1x,f12.4))" ELSE ifmt1 = "(/,1x,a,5(1x,f12.4))" ENDIF ENDIF k1 = (nzp) / 5 k2 = MOD(nzp, 5) WRITE ( str1, '(i2)' ) k1 - 1 WRITE ( str2, '(i2)' ) k2 IF ( (k1 - 1) > 0 ) THEN IF ( k2 > 0 ) THEN ifmt1a = "(/,1x,a,5(1x,f12.4)," // str1 // "(/,10x,5(1x,f12.4)),/,10x," & & // str2 // "(1x,f12.4))" ELSE ifmt1a = "(/,1x,a,5(1x,f12.4)," // str1 // "(/,10x,5(1x,f12.4)))" ENDIF ELSE IF ( k2 > 0 ) THEN ifmt1a = "(/,1x,a,5(1x,f12.4),/,10x," // str2 // "(1x,f12.4))" ELSE ifmt1a = "(/,1x,a,5(1x,f12.4))" ENDIF ENDIF k1 = nummetlu / 5 k2 = MOD(nummetlu, 5) WRITE ( str1, '(i2)' ) k1 - 1 WRITE ( str2, '(i2)' ) k2 IF ( (k1 - 1) > 0 ) THEN IF ( k2 > 0 ) THEN ifmt2 = "(/,1x,a,5(1x,f12.4)," // str1 // "(/,10x,5(1x,f12.4)),/,10x," & & // str2 // "(1x,f12.4))" ifmt3 = "(/,1x,a,5(i12,1x)," // str1 // "(/,10x,5(1x,i12)),/,10x," & & // str2 // "(1x,i12))" ELSE ifmt2 = "(/,1x,a,5(1x,f12.4)," // str1 // "(/,10x,5(1x,f12.4)))" ifmt3 = "(/,1x,a,5(i12,1x)," // str1 // "(/,10x,5(1x,i12)))" ENDIF ELSE IF ( k2 > 0 ) THEN ifmt2 = "(/,1x,a,5(1x,f12.4),/,10x," // str2 // "(1x,f12.4))" ifmt3 = "(/,1x,a,5(i12,1x),/,10x," // str2 // "(1x,i12))" ELSE ifmt2 = "(/,1x,a,5(1x,f12.4))" ifmt3 = "(/,1x,a,5(i12,1x))" ENDIF ENDIF k1 = nummosaic / 5 k2 = MOD(nummosaic, 5) WRITE ( str1, '(i2)' ) k1 - 1 WRITE ( str2, '(i2)' ) k2 IF ( (k1 - 1) > 0 ) THEN IF ( k2 > 0 ) THEN ifmt4 = "(/,1x,a,5(1x,f12.4)," // str1 // "(/,10x,5(1x,f12.4)),/,10x," & & // str2 // "(1x,f12.4))" ELSE ifmt4 = "(/,1x,a,5(1x,f12.4)," // str1 // "(/,10x,5(1x,f12.4)))" ENDIF ELSE IF ( k2 > 0 ) THEN ifmt4 = "(/,1x,a,5(1x,f12.4),/,10x," // str2 // "(1x,f12.4))" ELSE ifmt4 = "(/,1x,a,5(1x,f12.4))" ENDIF ENDIF k1 = met_ns / 5 k2 = MOD(met_ns, 5) WRITE ( str1, '(i2)' ) k1 - 1 WRITE ( str2, '(i2)' ) k2 IF ( (k1 - 1) > 0 ) THEN IF ( k2 > 0 ) THEN ifmt5 = "(/,1x,a,5(1x,f12.4)," // str1 // "(/,10x,5(1x,f12.4)),/,10x," & & // str2 // "(1x,f12.4))" ELSE ifmt5 = "(/,1x,a,5(1x,f12.4)," // str1 // "(/,10x,5(1x,f12.4)))" ENDIF ELSE IF ( k2 > 0 ) THEN ifmt5 = "(/,1x,a,5(1x,f12.4),/,11x," // str2 // "(1x,f12.4))" ELSE ifmt5 = "(/,1x,a,5(1x,f12.4))" ENDIF ENDIF !------------------------------------------------------------------------------- ! Allocate necessary variables. !------------------------------------------------------------------------------- IF ( .NOT. ALLOCATED ( dum2d ) ) & ALLOCATE ( dum2d (nxm, nym) ) ! 2D, cross points IF ( .NOT. ALLOCATED ( dum2d_i ) ) & ALLOCATE ( dum2d_i (nxm, nym) ) ! 2D integer, cross points IF ( .NOT. ALLOCATED ( dum2d_u ) ) & ALLOCATE ( dum2d_u (met_nx, nym ) ) ! 2D, E-W flux pts IF ( .NOT. ALLOCATED ( dum2d_v ) ) & ALLOCATE ( dum2d_v (nxm, met_ny ) ) ! 2D, N-S flux pts IF ( .NOT. ALLOCATED ( dum3d_l ) ) & ALLOCATE ( dum3d_l (nxm, nym, nummetlu ) ) ! 3D, cross points, lu IF ( .NOT. ALLOCATED ( dum3d_li ) ) & ALLOCATE ( dum3d_li (nxm, nym, nummetlu ) ) ! 3D, cross points, lu int IF ( .NOT. ALLOCATED ( dum3d_m ) ) & ALLOCATE ( dum3d_m (nxm, nym, nummosaic) ) ! 3D, cross pts in mosaic cat IF ( .NOT. ALLOCATED ( dum3d_p ) ) & ALLOCATE ( dum3d_p (nxm, nym, met_nz ) ) ! 3D, cross points, half lvls IF ( .NOT. ALLOCATED ( dum3d_s ) ) & ALLOCATE ( dum3d_s (nxm, nym, met_ns ) ) ! 3D, cross points, soil lvls IF ( .NOT. ALLOCATED ( dum3d_t ) ) & ALLOCATE ( dum3d_t (nxm, nym, met_nz ) ) ! 3D, cross points, half lvls IF ( .NOT. ALLOCATED ( dum3d_u ) ) & ALLOCATE ( dum3d_u (met_nx, nym, met_nz ) ) ! 3D, E-W flux pts, half lvls IF ( .NOT. ALLOCATED ( dum3d_v ) ) & ALLOCATE ( dum3d_v (nxm, met_ny, met_nz ) ) ! 3D, N-S flux pts, half lvls IF ( .NOT. ALLOCATED ( dum3d_w ) ) & ALLOCATE ( dum3d_w (nxm, nym, nzp) ) ! 3D, cross points, full lvls !------------------------------------------------------------------------------- ! If not processing the first output time of the WRF run (and if not using the ! incremental precipitation option available in WRFv3.2+), retrieve accumulated ! precipitation totals from time increment before first MCIP step so that ! first incremental precipitation "rates" can be computed. This step ensures ! that the "hold" values for convective and non-convective precipitation are ! correctly set with last accumulated total. !------------------------------------------------------------------------------- gotseaice = .FALSE. IF ( ( first ) .AND. ( mcip_now > met_startdate ) & .AND. ( met_pcp_incr == 0 ) ) THEN CALL geth_newdate (mcip_previous, mcip_now, intvl*(-60)) fl = file_mm(m1count) findprev: DO IF ( newfilem1 ) THEN rcode = nf90_open (fl, nf90_nowrite, cdfid) IF ( rcode /= nf90_noerr ) THEN WRITE (*,f9900) TRIM(pname) CALL graceful_stop (pname) ENDIF CALL chkwrfhdr (fl, cdfid) rcode = nf90_inq_varid (cdfid, 'Times', id_data) IF ( rcode /= nf90_noerr ) THEN WRITE (*,f9410) TRIM(pname), 'Times', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF rcode = nf90_inquire_variable (cdfid, id_data, dimids=dimids) IF ( rcode /= nf90_noerr ) THEN WRITE (*,f9420) TRIM(pname), 'Times', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF rcode = nf90_inquire_dimension (cdfid, dimids(1), len=lent) IF ( rcode /= nf90_noerr ) THEN WRITE (*,f9430) TRIM(pname), 'Times', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF rcode = nf90_inquire_dimension (cdfid, dimids(2), len=n_times) IF ( rcode /= nf90_noerr ) THEN WRITE (*,f9430) TRIM(pname), 'Times', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF IF ( ALLOCATED ( times ) ) DEALLOCATE ( times ) ALLOCATE ( times ( n_times ) ) rcode = nf90_get_var (cdfid, id_data, times, & start=(/1,1/), count=(/lent,n_times/)) IF ( rcode /= nf90_noerr ) THEN WRITE (*,f9400) TRIM(pname), 'Times', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF newfilem1 = .FALSE. ENDIF DO i = 1, n_times CALL geth_idts (times(i), mcip_previous(1:19), idtsec) IF ( ABS(idtsec) < ttol_sec ) THEN ! found MCIP_PREVIOUS in WRF output itm1 = i EXIT findprev ENDIF ENDDO IF ( i > n_times ) THEN rcode = nf90_close (cdfid) IF ( rcode /= nf90_noerr ) THEN WRITE (*,f9950) TRIM(pname) CALL graceful_stop (pname) ENDIF newfilem1 = .TRUE. m1count = m1count + 1 IF ( m1count > max_mm ) THEN WRITE (*,f9100) TRIM(pname), mcip_previous CALL graceful_stop (pname) ENDIF fl = file_mm(m1count) IF ( fl(1:10) == ' ' ) THEN WRITE (*,f9200) TRIM(pname), mcip_previous, m1count CALL graceful_stop (pname) ENDIF INQUIRE (FILE=fl, EXIST=iffl) IF ( .NOT. iffl ) THEN WRITE (*,f9300) TRIM(pname), mcip_previous, TRIM(fl) CALL graceful_stop (pname) ENDIF ENDIF ENDDO findprev CALL get_var_2d_real_cdf (cdfid, 'RAINC', dum2d, itm1, rcode) IF ( rcode == nf90_noerr ) THEN rcold(1:nxm,1:nym) = dum2d(:,:) rcold(met_nx,:) = rcold(nxm,:) rcold(:,met_ny) = rcold(:,nym) WHERE ( rcold < smallnum ) rcold = 0.0 ENDWHERE ELSE WRITE (*,f9400) TRIM(pname), 'RAINC', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF CALL get_var_2d_real_cdf (cdfid, 'RAINNC', dum2d, itm1, rcode) IF ( rcode == nf90_noerr ) THEN rnold(1:nxm,1:nym) = dum2d(:,:) rnold(met_nx,:) = rnold(nxm,:) rnold(:,met_ny) = rnold(:,nym) WHERE ( rnold < smallnum ) rnold = 0.0 ENDWHERE ELSE WRITE (*,f9400) TRIM(pname), 'RAINNC', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF IF ( met_rain_bucket > 0.0 ) THEN ! tipping bucket is on CALL get_var_2d_int_cdf (cdfid, 'I_RAINC', dum2d_i, itm1, rcode) IF ( rcode == nf90_noerr ) THEN ircold(1:nxm,1:nym) = dum2d_i(:,:) ircold(met_nx,:) = ircold(nxm,:) ircold(:,met_ny) = ircold(:,nym) ELSE WRITE (*,f9400) TRIM(pname), 'I_RAINC', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF CALL get_var_2d_int_cdf (cdfid, 'I_RAINNC', dum2d_i, itm1, rcode) IF ( rcode == nf90_noerr ) THEN irnold(1:nxm,1:nym) = dum2d_i(:,:) irnold(met_nx,:) = irnold(nxm,:) irnold(:,met_ny) = irnold(:,nym) ELSE WRITE (*,f9400) TRIM(pname), 'I_RAINNC', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ENDIF ! tipping bucket rcode = nf90_close (cdfid) IF ( rcode /= nf90_noerr ) THEN WRITE (*,f9950) TRIM(pname) CALL graceful_stop (pname) ENDIF ENDIF !------------------------------------------------------------------------------- ! Find time index (IT) for MCIP_NOW in WRF output file. !------------------------------------------------------------------------------- fl = file_mm(mmcount) findit: DO IF ( newfile ) THEN rcode = nf90_open (fl, nf90_nowrite, cdfid) IF ( rcode /= nf90_noerr ) THEN WRITE (*,f9900) TRIM(pname) CALL graceful_stop (pname) ENDIF CALL chkwrfhdr (fl, cdfid) rcode = nf90_inq_varid (cdfid, 'Times', id_data) IF ( rcode /= nf90_noerr ) THEN WRITE (*,f9410) TRIM(pname), 'Times', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF rcode = nf90_inquire_variable (cdfid, id_data, dimids=dimids) IF ( rcode /= nf90_noerr ) THEN WRITE (*,f9420) TRIM(pname), 'Times', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF rcode = nf90_inquire_dimension (cdfid, dimids(1), len=lent) IF ( rcode /= nf90_noerr ) THEN WRITE (*,f9430) TRIM(pname), 'Times', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF rcode = nf90_inquire_dimension (cdfid, dimids(2), len=n_times) IF ( rcode /= nf90_noerr ) THEN WRITE (*,f9430) TRIM(pname), 'Times', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF IF ( ALLOCATED ( times ) ) DEALLOCATE ( times ) ALLOCATE ( times ( n_times ) ) rcode = nf90_get_var (cdfid, id_data, times, & start=(/1,1/), count=(/lent,n_times/)) IF ( rcode /= nf90_noerr ) THEN WRITE (*,f9400) TRIM(pname), 'Times', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF newfile = .FALSE. it_start = 1 ENDIF DO i = it_start, n_times CALL geth_idts (times(i), mcip_now(1:19), idtsec) IF ( ABS(idtsec) < ttol_sec ) THEN ! found MCIP_NOW in WRF output it = i IF ( i < n_times ) it_start = i + 1 EXIT findit ENDIF ENDDO IF ( i > n_times ) THEN rcode = nf90_close (cdfid) IF ( rcode /= nf90_noerr ) THEN WRITE (*,f9950) TRIM(pname) CALL graceful_stop (pname) ENDIF newfile = .TRUE. mmcount = mmcount + 1 IF ( mmcount > max_mm ) THEN WRITE (*,f9100) TRIM(pname), mcip_now CALL graceful_stop (pname) ENDIF fl = file_mm(mmcount) IF ( fl(1:10) == ' ' ) THEN WRITE (*,f9200) TRIM(pname), mcip_now, mmcount CALL graceful_stop (pname) ENDIF INQUIRE (FILE=fl, EXIST=iffl) IF ( .NOT. iffl ) THEN WRITE (*,f9300) TRIM(pname), mcip_now, TRIM(fl) CALL graceful_stop (pname) ENDIF ENDIF ENDDO findit !------------------------------------------------------------------------------- ! Read WRF data for this domain. !------------------------------------------------------------------------------- CALL get_var_3d_real_cdf (cdfid, 'U', dum3d_u, it, rcode) IF ( rcode == nf90_noerr ) THEN ua(:,1:nym, :) = dum3d_u(:,:,:) ua(:, met_ny,:) = ua(:,nym,:) WRITE (*,ifmt1) 'U ', (ua(lprt_metx,lprt_mety,k),k=1,met_nz) ELSE WRITE (*,f9400) TRIM(pname), 'U', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF CALL get_var_3d_real_cdf (cdfid, 'V', dum3d_v, it, rcode) IF ( rcode == nf90_noerr ) THEN va(1:nxm ,:,:) = dum3d_v(:,:,:) va( met_nx,:,:) = va(nxm,:,:) WRITE (*,ifmt1) 'V ', (va(lprt_metx,lprt_mety,k),k=1,met_nz) ELSE WRITE (*,f9400) TRIM(pname), 'V', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF CALL get_var_3d_real_cdf (cdfid, 'W', dum3d_w, it, rcode) IF ( rcode == nf90_noerr ) THEN wa(1:nxm, 1:nym, :) = dum3d_w(:,:,:) wa( met_nx, :, :) = wa(nxm,:,:) wa( :, met_ny,:) = wa(:,nym,:) WRITE (*,ifmt1a) 'W ', (wa(lprt_metx,lprt_mety,k),k=1,nzp) ELSE WRITE (*,f9400) TRIM(pname), 'W', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF CALL get_var_3d_real_cdf (cdfid, 'PH', dum3d_w, it, rcode) IF ( rcode == nf90_noerr ) THEN ph(1:nxm, 1:nym, :) = dum3d_w(:,:,:) ph( met_nx, :, :) = ph(nxm,:,:) ph( :, met_ny,:) = ph(:,nym,:) WRITE (*,ifmt1a) 'PH ', (ph(lprt_metx,lprt_mety,k),k=1,nzp) ELSE WRITE (*,f9400) TRIM(pname), 'PH', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF CALL get_var_3d_real_cdf (cdfid, 'PHB', dum3d_w, it, rcode) IF ( rcode == nf90_noerr ) THEN phb(1:nxm, 1:nym, :) = dum3d_w(:,:,:) phb( met_nx, :, :) = phb(nxm,:,:) phb( :, met_ny,:) = phb(:,nym,:) WRITE (*,ifmt1a) 'PHB ', (phb(lprt_metx,lprt_mety,k),k=1,nzp) ELSE WRITE (*,f9400) TRIM(pname), 'PHB', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF CALL get_var_3d_real_cdf (cdfid, 'P', dum3d_p, it, rcode) IF ( rcode == nf90_noerr ) THEN pp(1:nxm, 1:nym, :) = dum3d_p(:,:,:) pp( met_nx, :, :) = pp(nxm,:,:) pp( :, met_ny,:) = pp(:,nym,:) WRITE (*,ifmt1) 'P ', (pp(lprt_metx,lprt_mety,k),k=1,met_nz) ELSE WRITE (*,f9400) TRIM(pname), 'P', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF CALL get_var_3d_real_cdf (cdfid, 'PB', dum3d_p, it, rcode) IF ( rcode == 0 ) THEN pb(1:nxm, 1:nym, :) = dum3d_p(:,:,:) pb( met_nx, :, :) = pb(nxm,:,:) pb( :, met_ny,:) = pb(:,nym,:) WRITE (*,ifmt1) 'PB ', (pb(lprt_metx,lprt_mety,k),k=1,met_nz) ELSE WRITE (*,f9400) TRIM(pname), 'PB', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF CALL get_var_3d_real_cdf (cdfid, 'T', dum3d_t, it, rcode) IF ( rcode == nf90_noerr ) THEN dum3d_p(:,:,:) = dum3d_p(:,:,:) + pp(1:nxm,1:nym,:) ! pressure [Pa] dum3d_t(:,:,:) = dum3d_t(:,:,:) + 300.0 ! theta [K] IF ( lpv > 0 .OR. ifmolpx ) THEN ! need theta theta(1:nxm, 1:nym, :) = dum3d_t(:,:,:) theta( met_nx, :, :) = theta(nxm,:,:) theta( :, met_ny,:) = theta(:,nym,:) WRITE (*,ifmt1) 'THETA ', (theta(lprt_metx,lprt_mety,k),k=1,met_nz) ENDIF ta(1:nxm, 1:nym, :) = dum3d_t(:,:,:) * (dum3d_p(:,:,:)/100000.0)**rdovcp ta( met_nx, :, :) = ta(nxm,:,:) ta( :, met_ny,:) = ta(:,nym,:) WRITE (*,ifmt1) 'T ', (ta(lprt_metx,lprt_mety,k),k=1,met_nz) ELSE WRITE (*,f9400) TRIM(pname), 'T', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF CALL get_var_3d_real_cdf (cdfid, 'QVAPOR', dum3d_t, it, rcode) IF ( rcode == nf90_noerr ) THEN qva(1:nxm, 1:nym, :) = dum3d_t(:,:,:) qva( met_nx, :, :) = qva(nxm,:,:) qva( :, met_ny,:) = qva(:,nym,:) WRITE (*,ifmt1) 'QVAPOR ', (qva(lprt_metx,lprt_mety,k),k=1,met_nz) ELSE WRITE (*,f9400) TRIM(pname), 'QVAPOR', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF CALL get_var_3d_real_cdf (cdfid, 'QCLOUD', dum3d_t, it, rcode) IF ( rcode == nf90_noerr ) THEN qca(1:nxm, 1:nym, :) = dum3d_t(:,:,:) qca( met_nx, :, :) = qca(nxm,:,:) qca( :, met_ny,:) = qca(:,nym,:) WRITE (*,ifmt1) 'QCLOUD ', (qca(lprt_metx,lprt_mety,k),k=1,met_nz) ELSE WRITE (*,f9400) TRIM(pname), 'QCLOUD', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF CALL get_var_3d_real_cdf (cdfid, 'QRAIN', dum3d_t, it, rcode) IF ( rcode == nf90_noerr ) THEN qra(1:nxm, 1:nym, :) = dum3d_t(:,:,:) qra( met_nx, :, :) = qra(nxm,:,:) qra( :, met_ny,:) = qra(:,nym,:) WRITE (*,ifmt1) 'QRAIN ', (qra(lprt_metx,lprt_mety,k),k=1,met_nz) ELSE WRITE (*,f9400) TRIM(pname), 'QRAIN', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF rcode = nf90_inq_varid (cdfid, 'QICE', rcode) IF ( rcode == nf90_noerr ) THEN CALL get_var_3d_real_cdf (cdfid, 'QICE', dum3d_t, it, rcode) IF ( rcode == nf90_noerr ) THEN qia(1:nxm, 1:nym, :) = dum3d_t(:,:,:) qia( met_nx, :, :) = qia(nxm,:,:) qia( :, met_ny,:) = qia(:,nym,:) WRITE (*,ifmt1) 'QICE ', (qia(lprt_metx,lprt_mety,k),k=1,met_nz) ELSE WRITE (*,f9400) TRIM(pname), 'QICE', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ELSE qia(:,:,:) = 0.0 ENDIF rcode = nf90_inq_varid (cdfid, 'QSNOW', rcode) IF ( rcode == nf90_noerr ) THEN CALL get_var_3d_real_cdf (cdfid, 'QSNOW', dum3d_t, it, rcode) IF ( rcode == nf90_noerr ) THEN qsa(1:nxm, 1:nym, :) = dum3d_t(:,:,:) qsa( met_nx, :, :) = qsa(nxm,:,:) qsa( :, met_ny,:) = qsa(:,nym,:) WRITE (*,ifmt1) 'QSNOW ', (qsa(lprt_metx,lprt_mety,k),k=1,met_nz) ELSE WRITE (*,f9400) TRIM(pname), 'QSNOW', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ELSE qsa(:,:,:) = 0.0 ENDIF rcode = nf90_inq_varid (cdfid, 'QGRAUP', rcode) IF ( rcode == nf90_noerr ) THEN CALL get_var_3d_real_cdf (cdfid, 'QGRAUP', dum3d_t, it, rcode) IF ( rcode == nf90_noerr ) THEN qga(1:nxm, 1:nym, :) = dum3d_t(:,:,:) qga( met_nx, :, :) = qga(nxm,:,:) qga( :, met_ny,:) = qga(:,nym,:) WRITE (*,ifmt1) 'QGRAUP ', (qga(lprt_metx,lprt_mety,k),k=1,met_nz) ELSE WRITE (*,f9400) TRIM(pname), 'QGRAUP', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ELSE qga(:,:,:) = 0.0 ENDIF IF ( ( iftke ) .AND. ( iftkef ) ) THEN ! TKE on full-levels CALL get_var_3d_real_cdf (cdfid, 'TKE', dum3d_w, it, rcode) IF ( rcode == nf90_noerr ) THEN tke(1:nxm, 1:nym, :) = dum3d_w(:,:,:) tke( met_nx, :, :) = tke(nxm,:,:) tke( :, met_ny,:) = tke(:,nym,:) WRITE (*,ifmt1a) 'TKE ', (tke(lprt_metx,lprt_mety,k),k=1,nzp) ELSE WRITE (*,f9400) TRIM(pname), 'TKE', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ELSE IF ( ( iftke ) .AND. ( .NOT. iftkef ) ) THEN ! TKE on half-layers CALL get_var_3d_real_cdf (cdfid, 'TKE_MYJ', dum3d_t, it, rcode) IF ( rcode == nf90_noerr ) THEN tke(1:nxm, 1:nym, :) = dum3d_t(:,:,:) tke( met_nx, :, :) = tke(nxm,:,:) tke( :, met_ny,:) = tke(:,nym,:) WRITE (*,ifmt1) 'TKE_MYJ ', (tke(lprt_metx,lprt_mety,k),k=1,met_nz) ELSE WRITE (*,f9400) TRIM(pname), 'TKE_MYJ', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ENDIF IF ( ifcld3d ) THEN ! 3D resolved cloud fraction CALL get_var_3d_real_cdf (cdfid, 'CLDFRA', dum3d_t, it, rcode) IF ( rcode == nf90_noerr ) THEN cldfra(1:nxm, 1:nym, :) = dum3d_t(:,:,:) cldfra( met_nx, :, :) = cldfra(nxm,:,:) cldfra( :, met_ny,:) = cldfra(:,nym,:) WRITE (*,ifmt1a) 'CLDFRA ', (cldfra(lprt_metx,lprt_mety,k),k=1,met_nz) ELSE WRITE (*,f9400) TRIM(pname), 'CLDFRA', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ENDIF CALL get_var_2d_real_cdf (cdfid, 'MU', dum2d, it, rcode) IF ( rcode == nf90_noerr ) THEN mu(1:nxm,1:nym) = dum2d(:,:) mu(met_nx,:) = mu(nxm,:) mu(:,met_ny) = mu(:,nym) WRITE (*,f6000) 'MU ', mu(lprt_metx, lprt_mety), 'Pa' ELSE WRITE (*,f9400) TRIM(pname), 'MU', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF CALL get_var_2d_real_cdf (cdfid, 'MUB', dum2d, it, rcode) IF ( rcode == nf90_noerr ) THEN mub(1:nxm,1:nym) = dum2d(:,:) mub(met_nx,:) = mub(nxm,:) mub(:,met_ny) = mub(:,nym) WRITE (*,f6000) 'MUB ', mub(lprt_metx, lprt_mety), 'Pa' ELSE WRITE (*,f9400) TRIM(pname), 'MUB', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF IF ( ift2m ) THEN CALL get_var_2d_real_cdf (cdfid, 'T2', dum2d, it, rcode) IF ( rcode == nf90_noerr ) THEN t2(1:nxm,1:nym) = dum2d(:,:) t2(met_nx,:) = t2(nxm,:) t2(:,met_ny) = t2(:,nym) WRITE (*,f6000) 'T2 ', t2(lprt_metx, lprt_mety), 'K' ELSE WRITE (*,f9400) TRIM(pname), 'T2', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ENDIF IF ( ifq2m ) THEN CALL get_var_2d_real_cdf (cdfid, 'Q2', dum2d, it, rcode) IF ( rcode == nf90_noerr ) THEN q2(1:nxm,1:nym) = dum2d(:,:) q2(met_nx,:) = t2(nxm,:) q2(:,met_ny) = t2(:,nym) WRITE (*,f6000) 'Q2 ', q2(lprt_metx, lprt_mety), 'kg kg-1' ELSE WRITE (*,f9400) TRIM(pname), 'Q2', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ENDIF IF ( ifw10m ) THEN CALL get_var_2d_real_cdf (cdfid, 'U10', dum2d, it, rcode) IF ( rcode == nf90_noerr ) THEN u10(1:nxm,1:nym) = dum2d(:,:) u10(met_nx,:) = u10(nxm,:) u10(:,met_ny) = u10(:,nym) WRITE (*,f6000) 'U10 ', u10(lprt_metx, lprt_mety), 'm s-1' ELSE WRITE (*,f9400) TRIM(pname), 'U10', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF CALL get_var_2d_real_cdf (cdfid, 'V10', dum2d, it, rcode) IF ( rcode == nf90_noerr ) THEN v10(1:nxm,1:nym) = dum2d(:,:) v10(met_nx,:) = v10(nxm,:) v10(:,met_ny) = v10(:,nym) WRITE (*,f6000) 'V10 ', v10(lprt_metx, lprt_mety), 'm s-1' ELSE WRITE (*,f9400) TRIM(pname), 'V10', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ENDIF CALL get_var_2d_real_cdf (cdfid, 'PSFC', dum2d, it, rcode) IF ( rcode == nf90_noerr ) THEN psa(1:nxm,1:nym) = dum2d(:,:) psa(met_nx,:) = psa(nxm,:) psa(:,met_ny) = psa(:,nym) WRITE (*,f6000) 'PSFC ', psa(lprt_metx, lprt_mety), 'Pa' ELSE WRITE (*,f9400) TRIM(pname), 'PSFC', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF CALL get_var_2d_real_cdf (cdfid, 'MAPFAC_M', dum2d, it, rcode) IF ( rcode == nf90_noerr ) THEN mapcrs(1:nxm,1:nym) = dum2d(:,:) mapcrs(met_nx,:) = mapcrs(nxm,:) mapcrs(:,met_ny) = mapcrs(:,nym) WRITE (*,f6000) 'MAPFAC_M ', mapcrs(lprt_metx, lprt_mety), 'dimensionless' ELSE WRITE (*,f9400) TRIM(pname), 'MAPFAC_M', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF CALL get_var_2d_real_cdf (cdfid, 'MAPFAC_U', dum2d_u, it, rcode) IF ( rcode == nf90_noerr ) THEN mapu(:,1:nym) = dum2d_u(:,:) mapu(:,met_ny) = mapu(:,nym) WRITE (*,f6000) 'MAPFAC_U ', mapu(lprt_metx, lprt_mety), 'dimensionless' ELSE gotfaces = .FALSE. ENDIF CALL get_var_2d_real_cdf (cdfid, 'MAPFAC_V', dum2d_v, it, rcode) IF ( rcode == nf90_noerr ) THEN mapv(1:nxm,:) = dum2d_v(:,:) mapv(met_nx,:) = mapv(nxm,:) WRITE (*,f6000) 'MAPFAC_V ', mapv(lprt_metx, lprt_mety), 'dimensionless' ELSE gotfaces = .FALSE. ENDIF CALL get_var_2d_real_cdf (cdfid, 'HGT', dum2d, it, rcode) IF ( rcode == nf90_noerr ) THEN terrain(1:nxm,1:nym) = dum2d(:,:) terrain(met_nx,:) = terrain(nxm,:) terrain(:,met_ny) = terrain(:,nym) WRITE (*,f6000) 'HGT ', terrain(lprt_metx, lprt_mety), 'm' ELSE WRITE (*,f9400) TRIM(pname), 'HGT', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF IF ( met_pcp_incr == 0 ) THEN ! compute incremental precip in MCIP CALL get_var_2d_real_cdf (cdfid, 'RAINC', dum2d, it, rcode) IF ( rcode == nf90_noerr ) THEN WHERE ( dum2d < smallnum ) dum2d = 0.0 ENDWHERE raincon(1:nxm,1:nym) = (dum2d(:,:) - rcold(1:nxm,1:nym))/10.0 raincon(met_nx,:) = raincon(nxm,:) raincon(:,met_ny) = raincon(:,nym) rcold(1:nxm,1:nym) = dum2d(:,:) WRITE (*,f6000) 'RAINC ', raincon(lprt_metx, lprt_mety), 'cm' ELSE WRITE (*,f9400) TRIM(pname), 'RAINC', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF CALL get_var_2d_real_cdf (cdfid, 'RAINNC', dum2d, it, rcode) IF ( rcode == nf90_noerr ) THEN WHERE ( dum2d < smallnum ) dum2d = 0.0 ENDWHERE rainnon(1:nxm,1:nym) = (dum2d(:,:) - rnold(1:nxm,1:nym))/10.0 rainnon(met_nx,:) = rainnon(nxm,:) rainnon(:,met_ny) = rainnon(:,nym) rnold(1:nxm,1:nym) = dum2d(:,:) WRITE (*,f6000) 'RAINNC ', rainnon(lprt_metx, lprt_mety), 'cm' ELSE WRITE (*,f9400) TRIM(pname), 'RAINNC', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF IF ( met_rain_bucket > 0.0 ) THEN ! adjust RAINC and RAINNC for bucket CALL get_var_2d_int_cdf (cdfid, 'I_RAINC', dum2d_i, it, rcode) IF ( rcode == nf90_noerr ) THEN i_rainc(1:nxm,1:nym) = dum2d_i(:,:) - ircold(1:nxm,1:nym) i_rainc(met_nx,:) = i_rainc(nxm,:) i_rainc(:,met_ny) = i_rainc(:,nym) raincon(:,:) = raincon(:,:) + 0.1 * met_rain_bucket * FLOAT(i_rainc(:,:)) ircold (1:nxm,1:nym) = dum2d_i(:,:) ircold (met_nx,:) = ircold(nxm,:) ircold (:,met_ny) = ircold(:,nym) WRITE (*,f6100) 'I_RAINC ', i_rainc(lprt_metx, lprt_mety), 'times' WRITE (*,f6000) 'CONV RAIN', raincon(lprt_metx, lprt_mety), 'cm' ELSE WRITE (*,f9400) TRIM(pname), 'I_RAINC', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF CALL get_var_2d_int_cdf (cdfid, 'I_RAINNC', dum2d_i, it, rcode) IF ( rcode == nf90_noerr ) THEN i_rainnc(1:nxm,1:nym) = dum2d_i(:,:) - irnold(1:nxm,1:nym) i_rainnc(met_nx,:) = i_rainnc(nxm,:) i_rainnc(:,met_ny) = i_rainnc(:,nym) rainnon (:,:) = rainnon(:,:) + 0.1 * met_rain_bucket * FLOAT(i_rainnc(:,:)) irnold (1:nxm,1:nym) = dum2d_i(:,:) irnold (met_nx,:) = irnold(nxm,:) irnold (:,met_ny) = irnold(:,nym) WRITE (*,f6100) 'I_RAINNC ', i_rainnc(lprt_metx, lprt_mety), 'times' WRITE (*,f6000) 'NONC RAIN', rainnon(lprt_metx, lprt_mety), 'cm' ELSE WRITE (*,f9400) TRIM(pname), 'I_RAINNC', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ENDIF ! tipping bucket ! Ensure precipitation values for this time increment are not negative. raincon(:,:) = MAX(0.0, raincon(:,:)) rainnon(:,:) = MAX(0.0, rainnon(:,:)) ELSE ! incremental precip taken directly from WRF CALL get_var_2d_real_cdf (cdfid, 'PREC_ACC_C', dum2d, it, rcode) IF ( rcode == nf90_noerr ) THEN WHERE ( dum2d < smallnum ) dum2d = 0.0 ENDWHERE raincon(1:nxm,1:nym) = dum2d(:,:) / 10.0 raincon(met_nx,:) = raincon(nxm,:) raincon(:,met_ny) = raincon(:,nym) WRITE (*,f6000) 'RAINC ', raincon(lprt_metx, lprt_mety), 'cm' ELSE WRITE (*,f9400) TRIM(pname), 'PREC_ACC_C', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF CALL get_var_2d_real_cdf (cdfid, 'PREC_ACC_NC', dum2d, it, rcode) IF ( rcode == nf90_noerr ) THEN WHERE ( dum2d < smallnum ) dum2d = 0.0 ENDWHERE rainnon(1:nxm,1:nym) = dum2d(:,:) / 10.0 rainnon(met_nx,:) = rainnon(nxm,:) rainnon(:,met_ny) = rainnon(:,nym) WRITE (*,f6000) 'RAINNC ', rainnon(lprt_metx, lprt_mety), 'cm' ELSE WRITE (*,f9400) TRIM(pname), 'PREC_ACC_NC', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ENDIF ! incremental precip CALL get_var_2d_real_cdf (cdfid, 'SWDOWN', dum2d, it, rcode) IF ( rcode == nf90_noerr ) THEN rgrnd(1:nxm,1:nym) = dum2d(:,:) rgrnd(met_nx,:) = rgrnd(nxm,:) rgrnd(:,met_ny) = rgrnd(:,nym) WRITE (*,f6000) 'SWDOWN ', rgrnd(lprt_metx, lprt_mety), 'W m-2' ELSE WRITE (*,f9400) TRIM(pname), 'SWDOWN', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF CALL get_var_2d_real_cdf (cdfid, 'GLW', dum2d, it, rcode) IF ( rcode == nf90_noerr ) THEN glw(1:nxm,1:nym) = dum2d(:,:) glw(met_nx,:) = glw(nxm,:) glw(:,met_ny) = glw(:,nym) WRITE (*,f6000) 'GLW ', glw(lprt_metx, lprt_mety), 'W m-2' ELSE WRITE (*,f9400) TRIM(pname), 'GLW', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF CALL get_var_2d_real_cdf (cdfid, 'XLAT', dum2d, it, rcode) IF ( rcode == nf90_noerr ) THEN latcrs(1:nxm,1:nym) = dum2d(:,:) latcrs(met_nx,:) = latcrs(nxm,:) latcrs(:,met_ny) = latcrs(:,nym) WRITE (*,f6000) 'XLAT ', latcrs(lprt_metx, lprt_mety), 'degrees_north' ELSE WRITE (*,f9400) TRIM(pname), 'XLAT', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF CALL get_var_2d_real_cdf (cdfid, 'XLAT_U', dum2d_u, it, rcode) IF ( rcode == nf90_noerr ) THEN latu(:,1:nym) = dum2d_u(:,:) latu(:,met_ny) = latu(:,nym) WRITE (*,f6000) 'XLAT_U ', latu(lprt_metx, lprt_mety), 'degrees_north' ELSE gotfaces = .FALSE. ENDIF CALL get_var_2d_real_cdf (cdfid, 'XLAT_V', dum2d_v, it, rcode) IF ( rcode == nf90_noerr ) THEN latv(1:nxm,:) = dum2d_v(:,:) latv(met_nx,:) = latv(nxm,:) WRITE (*,f6000) 'XLAT_V ', latv(lprt_metx, lprt_mety), 'degrees_north' ELSE gotfaces = .FALSE. ENDIF CALL get_var_2d_real_cdf (cdfid, 'XLONG', dum2d, it, rcode) IF ( rcode == nf90_noerr ) THEN loncrs(1:nxm,1:nym) = dum2d(:,:) loncrs(met_nx,:) = loncrs(nxm,:) loncrs(:,met_ny) = loncrs(:,nym) WRITE (*,f6000) 'XLONG ', loncrs(lprt_metx, lprt_mety), 'degrees_east' ELSE WRITE (*,f9400) TRIM(pname), 'XLONG', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF CALL get_var_2d_real_cdf (cdfid, 'XLONG_U', dum2d_u, it, rcode) IF ( rcode == nf90_noerr ) THEN lonu(:,1:nym) = dum2d_u(:,:) lonu(:,met_ny) = lonu(:,nym) WRITE (*,f6000) 'XLONG_U ', lonu(lprt_metx, lprt_mety), 'degrees_east' ELSE gotfaces = .FALSE. ENDIF CALL get_var_2d_real_cdf (cdfid, 'XLONG_V', dum2d_v, it, rcode) IF ( rcode == nf90_noerr ) THEN lonv(1:nxm,:) = dum2d_v(:,:) lonv(met_nx,:) = lonv(nxm,:) WRITE (*,f6000) 'XLONG_V ', lonv(lprt_metx, lprt_mety), 'degrees_east' ELSE gotfaces = .FALSE. ENDIF CALL get_var_2d_real_cdf (cdfid, 'LU_INDEX', dum2d, it, rcode) IF ( rcode == nf90_noerr ) THEN IF ( MAXVAL(dum2d) > nummetlu ) THEN WRITE (*,f9500) TRIM(pname), met_lu_src, MAXVAL(dum2d) CALL graceful_stop (pname) ENDIF landuse(1:nxm,1:nym) = NINT(dum2d(:,:)) landuse(met_nx,:) = landuse(nxm,:) landuse(:,met_ny) = landuse(:,nym) WRITE (*,f6100) 'LU_INDEX ', landuse(lprt_metx, lprt_mety), 'category' ELSE WRITE (*,f9400) TRIM(pname), 'LU_INDEX', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF CALL get_var_2d_real_cdf (cdfid, 'LANDMASK', dum2d, it, rcode) IF ( rcode == nf90_noerr ) THEN landmask(1:nxm,1:nym) = dum2d(:,:) landmask(met_nx,:) = landmask(nxm,:) landmask(:,met_ny) = landmask(:,nym) WRITE (*,f6000) 'LANDMASK ', landmask(lprt_metx, lprt_mety), 'category' ELSE WRITE (*,f9400) TRIM(pname), 'LANDMASK', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF CALL get_var_2d_real_cdf (cdfid, 'HFX', dum2d, it, rcode) IF ( rcode == nf90_noerr ) THEN hfx(1:nxm,1:nym) = dum2d(:,:) hfx(met_nx,:) = hfx(nxm,:) hfx(:,met_ny) = hfx(:,nym) WRITE (*,f6000) 'HFX ', hfx(lprt_metx, lprt_mety), 'W m-2' ELSE WRITE (*,f9400) TRIM(pname), 'HFX', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF CALL get_var_2d_real_cdf (cdfid, 'LH', dum2d, it, rcode) IF ( rcode == nf90_noerr ) THEN lh(1:nxm,1:nym) = dum2d(:,:) lh(met_nx,:) = lh(nxm,:) lh(:,met_ny) = lh(:,nym) WRITE (*,f6000) 'LH ', lh(lprt_metx, lprt_mety), 'W m-2' ELSE WRITE (*,f9400) TRIM(pname), 'LH', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF CALL get_var_2d_real_cdf (cdfid, 'UST', dum2d, it, rcode) IF ( rcode == nf90_noerr ) THEN ust(1:nxm,1:nym) = dum2d(:,:) ust(met_nx,:) = ust(nxm,:) ust(:,met_ny) = ust(:,nym) WRITE (*,f6000) 'UST ', ust(lprt_metx, lprt_mety), 'm' ELSE WRITE (*,f9400) TRIM(pname), 'UST', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF IF ( ifmol ) THEN CALL get_var_2d_real_cdf (cdfid, 'RMOL', dum2d, it, rcode) IF ( rcode == nf90_noerr ) THEN mol(1:nxm,1:nym) = 1.0 / dum2d(:,:) mol(met_nx,:) = mol(nxm,:) mol(:,met_ny) = mol(:,nym) ELSE WRITE (*,f9400) TRIM(pname), 'RMOL', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF IF ( met_urban_phys >= 1 ) THEN ! UCM used; get MOL above urban canopy CALL get_var_2d_real_cdf (cdfid, 'XXXC_URB', dum2d, it, rcode) IF ( rcode == nf90_noerr ) THEN ! blend urban M-O length with RMOL IF ( ( met_lu_src(1:4) == 'USGS' ) .AND. & ( MAXVAL(landuse) > 24 ) ) THEN ! 33-category USGS/NLCD DO j = 1, nym DO i = 1, nxm IF ( ( landuse(i,j) == 1 ) .OR. ( landuse(i,j) == 31 ) .OR. & ( landuse(i,j) == 32 ) .OR. ( landuse(i,j) == 33 ) ) THEN mol(i,j) = dum2d(i,j) ! XXXC_URB is not inverted ENDIF ENDDO ENDDO ELSE IF ( met_lu_src(1:4) == 'USGS' ) THEN ! 24-category USGS DO j = 1, nym DO i = 1, nxm IF ( landuse(i,j) == 1 ) THEN ! urban mol(i,j) = dum2d(i,j) ! XXXC_URB is not inverted ENDIF ENDDO ENDDO ELSE WRITE (*,f9800) TRIM(pname), 'XXXC_URB (URBAN MOL)', met_lu_src(1:4) CALL graceful_stop (pname) ENDIF ELSE !~~~ Just use RMOL to fill Monin-Obukhov length without extra urban field ENDIF ENDIF WRITE (*,f6000) 'MOL ', mol(lprt_metx, lprt_mety), 'm' ENDIF IF ( ifmolpx ) THEN CALL get_var_2d_real_cdf (cdfid, 'QFX', dum2d, it, rcode) IF ( rcode == nf90_noerr ) THEN qfx(1:nxm,1:nym) = dum2d(:,:) qfx(met_nx,:) = qfx(nxm,:) qfx(:,met_ny) = qfx(:,nym) WRITE (*,f6000) 'QFX ', qfx(lprt_metx, lprt_mety), 'kg m-2 s-1' ELSE WRITE (*,f9400) TRIM(pname), 'QFX ', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ENDIF CALL get_var_2d_real_cdf (cdfid, 'PBLH', dum2d, it, rcode) IF ( rcode == nf90_noerr ) THEN zpbl(1:nxm,1:nym) = dum2d(:,:) zpbl(met_nx,:) = zpbl(nxm,:) zpbl(:,met_ny) = zpbl(:,nym) WRITE (*,f6000) 'PBLH ', zpbl(lprt_metx, lprt_mety), 'm' ELSE WRITE (*,f9400) TRIM(pname), 'PBLH', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF IF ( ifresist ) THEN CALL get_var_2d_real_cdf (cdfid, 'RA', dum2d, it, rcode) IF ( rcode == nf90_noerr ) THEN ra(1:nxm,1:nym) = dum2d(:,:) ra(met_nx,:) = ra(nxm,:) ra(:,met_ny) = ra(:,nym) IF ( ABS(MAXVAL(ra)) < smallnum ) THEN ifresist = .FALSE. ENDIF WRITE (*,f6000) 'RA ', ra(lprt_metx, lprt_mety), 's m-1' ELSE WRITE (*,f9400) TRIM(pname), 'RA', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF CALL get_var_2d_real_cdf (cdfid, 'RS', dum2d, it, rcode) IF ( rcode == nf90_noerr ) THEN rstom(1:nxm,1:nym) = dum2d(:,:) rstom(met_nx,:) = rstom(nxm,:) rstom(:,met_ny) = rstom(:,nym) IF ( ABS(MAXVAL(rstom)) < smallnum ) THEN ifresist = .FALSE. ENDIF WRITE (*,f6000) 'RS ', rstom(lprt_metx, lprt_mety), 's m-1' ELSE WRITE (*,f9400) TRIM(pname), 'RS', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ENDIF IF ( iflai ) THEN IF ( ifpxwrf41 ) THEN CALL get_var_2d_real_cdf (cdfid, 'LAI_PX', dum2d, it, rcode) IF ( rcode == nf90_noerr ) THEN lai_px(1:nxm,1:nym) = dum2d(:,:) lai_px(met_nx,:) = lai_px(nxm,:) lai_px(:,met_ny) = lai_px(:,nym) WRITE (*,f6000) 'LAI_PX ', lai_px(lprt_metx, lprt_mety), 'm2 m-2' ELSE WRITE (*,f9400) TRIM(pname), 'LAI_PX', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ELSE CALL get_var_2d_real_cdf (cdfid, 'LAI', dum2d, it, rcode) IF ( rcode == nf90_noerr ) THEN lai(1:nxm,1:nym) = dum2d(:,:) lai(met_nx,:) = lai(nxm,:) lai(:,met_ny) = lai(:,nym) IF ( ABS(MAXVAL(lai)) < smallnum ) THEN IF ( met_soil_lsm == 2 ) THEN ! NOAH LSM lai(:,:) = 4.0 ENDIF ENDIF WRITE (*,f6000) 'LAI ', lai(lprt_metx, lprt_mety), 'm2 m-2' ELSE WRITE (*,f9400) TRIM(pname), 'LAI', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ENDIF ENDIF IF ( ifwr ) THEN CALL get_var_2d_real_cdf (cdfid, 'CANWAT', dum2d, it, rcode) IF ( rcode == nf90_noerr ) THEN wr(1:nxm,1:nym) = dum2d(:,:) wr(met_nx,:) = wr(nxm,:) wr(:,met_ny) = wr(:,nym) WRITE (*,f6000) 'CANWAT ', wr(lprt_metx, lprt_mety), 'kg m-2' ELSE WRITE (*,f9400) TRIM(pname), 'CANWAT', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ENDIF IF ( ifveg ) THEN IF ( met_soil_lsm == 7 ) THEN ! Pleim-Xiu land-surface model CALL get_var_2d_real_cdf (cdfid, 'VEGF_PX', dum2d, it, rcode) IF ( rcode == nf90_noerr ) THEN veg(1:nxm,1:nym) = dum2d(:,:) veg(met_nx,:) = veg(nxm,:) veg(:,met_ny) = veg(:,nym) WRITE (*,f6000) 'VEGF_PX ', veg(lprt_metx, lprt_mety), 'm2 m-2' ELSE CALL get_var_2d_real_cdf (cdfid, 'VEGFRA', dum2d, it, rcode) IF ( rcode == nf90_noerr ) THEN veg(1:nxm,1:nym) = dum2d(:,:) * 0.01 veg(met_nx,:) = veg(nxm,:) veg(:,met_ny) = veg(:,nym) WRITE (*,f6000) 'VEGFRA ', veg(lprt_metx, lprt_mety), 'fraction' ELSE WRITE (*,f9400) TRIM(pname), 'VEGFRA', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ENDIF ELSE CALL get_var_2d_real_cdf (cdfid, 'VEGFRA', dum2d, it, rcode) IF ( rcode == nf90_noerr ) THEN veg(1:nxm,1:nym) = dum2d(:,:) * 0.01 veg(met_nx,:) = veg(nxm,:) veg(:,met_ny) = veg(:,nym) WRITE (*,f6000) 'VEGFRA ', veg(lprt_metx, lprt_mety), 'fraction' ELSE WRITE (*,f9400) TRIM(pname), 'VEGFRA', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ENDIF ENDIF IF ( ifsoil ) THEN CALL get_var_2d_int_cdf (cdfid, 'ISLTYP', dum2d_i, it, rcode) IF ( rcode == nf90_noerr ) THEN isltyp(1:nxm,1:nym) = dum2d_i(:,:) isltyp(met_nx,:) = isltyp(nxm,:) isltyp(:,met_ny) = isltyp(:,nym) !!! IF ( met_soil_lsm == 7 ) THEN ! Pleim-Xiu used; detangle soil categories !!! CALL detangle_soil_px !!! ENDIF WRITE (*,f6100) 'ISLTYP ', isltyp(lprt_metx, lprt_mety), 'category' ELSE WRITE (*,f9400) TRIM(pname), 'ISLTYP', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF CALL get_var_3d_real_cdf (cdfid, 'SMOIS', dum3d_s, it, rcode) IF ( rcode == nf90_noerr ) THEN wg(1:nxm,1:nym) = dum3d_s(:,:,1) wg(met_nx,:) = wg(nxm,:) wg(:,met_ny) = wg(:,nym) WRITE (*,f6000) 'SMOIS 1 ', wg(lprt_metx, lprt_mety), 'm3 m-3' w2(1:nxm,1:nym) = dum3d_s(:,:,2) w2(met_nx,:) = w2(nxm,:) w2(:,met_ny) = w2(:,nym) WRITE (*,f6000) 'SMOIS 2 ', w2(lprt_metx, lprt_mety), 'm3 m-3' soim3d(1:nxm,1:nym,:) = dum3d_s(:,:,:) soim3d(met_nx,:,:) = soim3d(nxm,:,:) soim3d(:,met_ny,:) = soim3d(:,nym,:) WRITE (*,ifmt5) 'SMOIS ', (soim3d(lprt_metx,lprt_mety,k),k=1,met_ns) ELSE WRITE (*,f9400) TRIM(pname), 'SMOIS', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF CALL get_var_3d_real_cdf (cdfid, 'TSLB', dum3d_s, it, rcode) IF ( rcode == nf90_noerr ) THEN soilt1(1:nxm,1:nym) = dum3d_s(:,:,1) soilt1(met_nx,:) = soilt1(nxm,:) soilt1(:,met_ny) = soilt1(:,nym) WRITE (*,f6000) 'TSLB 1 ', soilt1(lprt_metx, lprt_mety), 'K' soilt2(1:nxm,1:nym) = dum3d_s(:,:,2) soilt2(met_nx,:) = soilt2(nxm,:) soilt2(:,met_ny) = soilt2(:,nym) WRITE (*,f6000) 'TSLB 2 ', soilt2(lprt_metx, lprt_mety), 'K' soit3d(1:nxm,1:nym,:) = dum3d_s(:,:,:) soit3d(met_nx,:,:) = soit3d(nxm,:,:) soit3d(:,met_ny,:) = soit3d(:,nym,:) WRITE (*,ifmt5) 'TSLB ', (soit3d(lprt_metx,lprt_mety,k),k=1,met_ns) ELSE WRITE (*,f9400) TRIM(pname), 'TSLB', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ENDIF CALL get_var_2d_real_cdf (cdfid, 'TSK', dum2d, it, rcode) IF ( rcode == nf90_noerr ) THEN groundt(1:nxm,1:nym) = dum2d(:,:) groundt(met_nx,:) = groundt(nxm,:) groundt(:,met_ny) = groundt(:,nym) WRITE (*,f6000) 'TSK ', groundt(lprt_metx, lprt_mety), 'K' ELSE IF ( ifsoil ) THEN groundt(:,:) = soilt1(:,:) WRITE (*,f6000) 'TSK ', groundt(lprt_metx, lprt_mety), 'K' ELSE WRITE (*,f9400) TRIM(pname), 'TSK', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ENDIF CALL get_var_2d_real_cdf (cdfid, 'ALBEDO', dum2d, it, rcode) IF ( rcode == nf90_noerr ) THEN albedo(1:nxm,1:nym) = dum2d(:,:) albedo(met_nx,:) = albedo(nxm,:) albedo(:,met_ny) = albedo(:,nym) WRITE (*,f6000) 'ALBEDO ', albedo(lprt_metx, lprt_mety), 'fraction' ELSE WRITE (*,f9400) TRIM(pname), 'ALBEDO', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF IF ( first ) THEN IF ( iflufrc ) THEN IF ( ifluwrfout ) THEN ! land use fractions in WRF history file CALL get_var_3d_real_cdf (cdfid, 'LANDUSEF', dum3d_l, it, rcode) IF ( rcode == nf90_noerr ) THEN lufrac(1:nxm, 1:nym, :) = dum3d_l(:,:,:) lufrac( met_nx, :, :) = lufrac(nxm,:,:) lufrac( :, met_ny,:) = lufrac(:,nym,:) WRITE (*,ifmt2) 'LANDUSEF ', (lufrac(lprt_metx,lprt_mety,k),k=1,nummetlu) ELSE WRITE (*,f9400) TRIM(pname), 'LANDUSEF', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF IF ( iflu2wrfout ) THEN ! land use fractions (ranked) in WRF file CALL get_var_3d_real_cdf (cdfid, 'LANDUSEF2', dum3d_l, it, rcode) IF ( rcode == nf90_noerr ) THEN lufrac2(1:nxm, 1:nym, :) = dum3d_l(:,:,:) lufrac2( met_nx, :, :) = lufrac2(nxm,:,:) lufrac2( :, met_ny,:) = lufrac2(:,nym,:) WRITE (*,ifmt2) 'LANDUSEF2', (lufrac2(lprt_metx,lprt_mety,k),k=1,nummetlu) ELSE WRITE (*,f9400) TRIM(pname), 'LANDUSEF2', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF CALL get_var_3d_int_cdf (cdfid, 'MOSAIC_CAT_INDEX', dum3d_li, it, rcode) IF ( rcode == nf90_noerr ) THEN moscatidx(1:nxm, 1:nym, :) = dum3d_li(:,:,:) moscatidx( met_nx, :, :) = moscatidx(nxm,:,:) moscatidx( :, met_ny,:) = moscatidx(:,nym,:) WRITE (*,ifmt3) 'MOSAIC_CAT', (moscatidx(lprt_metx,lprt_mety,k),k=1,nummetlu) ELSE ! Will be filled in getluse.f90, if NOAH Mosaic LSM was used ENDIF ENDIF ELSE ! land use fractions in GEOGRID file from WPS flg = file_geo rcode = nf90_open (flg, nf90_nowrite, cdfidg) IF ( rcode /= nf90_noerr ) THEN WRITE (*,f9900) TRIM(pname) CALL graceful_stop (pname) ENDIF CALL get_var_3d_real_cdf (cdfidg, 'LANDUSEF', dum3d_l, 1, rcode) IF ( rcode == nf90_noerr ) THEN lufrac(1:nxm, 1:nym, :) = dum3d_l(:,:,:) lufrac( met_nx, :, :) = lufrac(nxm,:,:) lufrac( :, met_ny,:) = lufrac(:,nym,:) WRITE (*,ifmt2) 'LANDUSEF ', lufrac(lprt_metx,lprt_mety,:) ELSE WRITE (*,f9400) TRIM(pname), 'LANDUSEF', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF rcode = nf90_close (cdfidg) IF ( rcode /= nf90_noerr ) THEN WRITE (*,f9950) TRIM(pname) CALL graceful_stop (pname) ENDIF ENDIF ENDIF IF ( met_urban_phys >= 1 ) THEN ! urban canopy model used CALL get_var_2d_real_cdf (cdfid, 'FRC_URB2D', dum2d, it, rcode) IF ( rcode == nf90_noerr ) THEN frc_urb(1:nxm,1:nym) = dum2d(:,:) frc_urb(met_nx,:) = frc_urb(nxm,:) frc_urb(:,met_ny) = frc_urb(:,nym) WRITE (*,f6000) 'FRC_URB2D', frc_urb(lprt_metx, lprt_mety), 'fraction' ELSE WRITE (*,f9400) TRIM(pname), 'FRC_URB2D', TRIM(nf90_strerror(rcode)) ENDIF ENDIF ENDIF IF ( ifznt ) THEN ! expecting roughness length in file CALL get_var_2d_real_cdf (cdfid, 'ZNT', dum2d, it, rcode) IF ( rcode == nf90_noerr ) THEN znt(1:nxm,1:nym) = dum2d(:,:) znt(met_nx,:) = znt(nxm,:) znt(:,met_ny) = znt(:,nym) WRITE (*,f6000) 'ZNT ', znt(lprt_metx, lprt_mety), 'm' gotznt = .TRUE. ELSE WRITE (*,f9400) TRIM(pname), 'ZNT ', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ELSE gotznt = .FALSE. ENDIF CALL get_var_2d_real_cdf (cdfid, 'SNOWC', dum2d, it, rcode) IF ( rcode == nf90_noerr ) THEN snowcovr(1:nxm,1:nym) = dum2d(:,:) snowcovr(met_nx,:) = snowcovr(nxm,:) snowcovr(:,met_ny) = snowcovr(:,nym) WRITE (*,f6000) 'SNOWC ', snowcovr(lprt_metx, lprt_mety), 'category' ELSE WRITE (*,f9400) TRIM(pname), 'SNOWC', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF CALL get_var_2d_real_cdf (cdfid, 'SEAICE', dum2d, it, rcode) IF ( rcode == nf90_noerr ) THEN seaice(1:nxm,1:nym) = dum2d(:,:) seaice(met_nx,:) = seaice(nxm,:) seaice(:,met_ny) = seaice(:,nym) gotseaice = .TRUE. WRITE (*,f6000) 'SEAICE ', seaice(lprt_metx, lprt_mety), 'fraction' ELSE WRITE (*,f9400) TRIM(pname), 'SEAICE', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF CALL get_var_2d_real_cdf (cdfid, 'SNOWH', dum2d, it, rcode) IF ( rcode == nf90_noerr ) THEN snowh(1:nxm,1:nym) = dum2d(:,:) snowh(met_nx,:) = snowh(nxm,:) snowh(:,met_ny) = snowh(:,nym) WRITE (*,f6000) 'SNOWH ', snowh(lprt_metx, lprt_mety), 'm' ELSE WRITE (*,f9400) TRIM(pname), 'SNOWH', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF IF ( ifpxwrf41 ) THEN CALL get_var_2d_real_cdf (cdfid, 'WSAT_PX', dum2d, it, rcode) IF ( rcode == nf90_noerr ) THEN wsat_px(1:nxm,1:nym) = dum2d(:,:) wsat_px(met_nx,:) = wsat_px(nxm,:) wsat_px(:,met_ny) = wsat_px(:,nym) WRITE (*,f6000) 'WSAT_PX ', wsat_px(lprt_metx, lprt_mety), 'm3 m-3' ELSE WRITE (*,f9400) TRIM(pname), 'WSAT_PX', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF CALL get_var_2d_real_cdf (cdfid, 'WFC_PX', dum2d, it, rcode) IF ( rcode == nf90_noerr ) THEN wfc_px(1:nxm,1:nym) = dum2d(:,:) wfc_px(met_nx,:) = wfc_px(nxm,:) wfc_px(:,met_ny) = wfc_px(:,nym) WRITE (*,f6000) 'WFC_PX ', wfc_px(lprt_metx, lprt_mety), 'm3 m-3' ELSE WRITE (*,f9400) TRIM(pname), 'WFC_PX', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF CALL get_var_2d_real_cdf (cdfid, 'WWLT_PX', dum2d, it, rcode) IF ( rcode == nf90_noerr ) THEN wwlt_px(1:nxm,1:nym) = dum2d(:,:) wwlt_px(met_nx,:) = wwlt_px(nxm,:) wwlt_px(:,met_ny) = wwlt_px(:,nym) WRITE (*,f6000) 'WWLT_PX ', wwlt_px(lprt_metx, lprt_mety), 'm3 m-3' ELSE WRITE (*,f9400) TRIM(pname), 'WWLT_PX', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF CALL get_var_2d_real_cdf (cdfid, 'CSAND_PX', dum2d, it, rcode) IF ( rcode == nf90_noerr ) THEN csand_px(1:nxm,1:nym) = dum2d(:,:) csand_px(met_nx,:) = csand_px(nxm,:) csand_px(:,met_ny) = csand_px(:,nym) WRITE (*,f6000) 'CSAND_PX ', csand_px(lprt_metx, lprt_mety), '1' ELSE WRITE (*,f9400) TRIM(pname), 'CSAND_PX', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF CALL get_var_2d_real_cdf (cdfid, 'FMSAND_PX', dum2d, it, rcode) IF ( rcode == nf90_noerr ) THEN fmsand_px(1:nxm,1:nym) = dum2d(:,:) fmsand_px(met_nx,:) = fmsand_px(nxm,:) fmsand_px(:,met_ny) = fmsand_px(:,nym) WRITE (*,f6000) 'FMSAND_PX', fmsand_px(lprt_metx, lprt_mety), '1' ELSE WRITE (*,f9400) TRIM(pname), 'FMSAND_PX', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF CALL get_var_2d_real_cdf (cdfid, 'CLAY_PX', dum2d, it, rcode) IF ( rcode == nf90_noerr ) THEN clay_px(1:nxm,1:nym) = dum2d(:,:) clay_px(met_nx,:) = clay_px(nxm,:) clay_px(:,met_ny) = clay_px(:,nym) WRITE (*,f6000) 'CLAY_PX ', clay_px(lprt_metx, lprt_mety), '1' ELSE WRITE (*,f9400) TRIM(pname), 'CLAY_PX', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ENDIF IF ( ifmosaic ) THEN CALL get_var_3d_real_cdf (cdfid, 'LAI_MOSAIC', dum3d_m, it, rcode) IF ( rcode == nf90_noerr ) THEN lai_mos(1:nxm, 1:nym, :) = dum3d_m(:,:,:) lai_mos( met_nx, :, :) = lai_mos(nxm,:,:) lai_mos( :, met_ny,:) = lai_mos(:,nym,:) WRITE (*,ifmt4) 'LAI_MOS ', (lai_mos(lprt_metx,lprt_mety,k),k=1,nummosaic) ELSE WRITE (*,f9400) TRIM(pname), 'LAI_MOSAIC', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF CALL get_var_3d_real_cdf (cdfid, 'RS_MOSAIC', dum3d_m, it, rcode) IF ( rcode == nf90_noerr ) THEN rs_mos(1:nxm, 1:nym, :) = dum3d_m(:,:,:) rs_mos( met_nx, :, :) = rs_mos(nxm,:,:) rs_mos( :, met_ny,:) = rs_mos(:,nym,:) WRITE (*,ifmt4) 'RS_MOS ', (rs_mos(lprt_metx,lprt_mety,k),k=1,nummosaic) ELSE WRITE (*,f9400) TRIM(pname), 'RS_MOSAIC', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF CALL get_var_3d_real_cdf (cdfid, 'TSK_MOSAIC', dum3d_m, it, rcode) IF ( rcode == nf90_noerr ) THEN tsk_mos(1:nxm, 1:nym, :) = dum3d_m(:,:,:) tsk_mos( met_nx, :, :) = tsk_mos(nxm,:,:) tsk_mos( :, met_ny,:) = tsk_mos(:,nym,:) WRITE (*,ifmt4) 'TSK_MOS ', (tsk_mos(lprt_metx,lprt_mety,k),k=1,nummosaic) ELSE WRITE (*,f9400) TRIM(pname), 'TSK_MOSAIC', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF CALL get_var_3d_real_cdf (cdfid, 'ZNT_MOSAIC', dum3d_m, it, rcode) IF ( rcode == nf90_noerr ) THEN znt_mos(1:nxm, 1:nym, :) = dum3d_m(:,:,:) znt_mos( met_nx, :, :) = znt_mos(nxm,:,:) znt_mos( :, met_ny,:) = znt_mos(:,nym,:) WRITE (*,ifmt4) 'ZNT_MOS ', (znt_mos(lprt_metx,lprt_mety,k),k=1,nummosaic) ELSE WRITE (*,f9400) TRIM(pname), 'ZNT_MOSAIC', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF CALL get_var_2d_real_cdf (cdfid, 'WSPD', dum2d, it, rcode) IF ( rcode == nf90_noerr ) THEN wspdsfc(1:nxm,1:nym) = dum2d(:,:) wspdsfc(met_nx,:) = wspdsfc(nxm,:) wspdsfc(:,met_ny) = wspdsfc(:,nym) WRITE (*,f6000) 'WSPDSFC ', wspdsfc(lprt_metx, lprt_mety), 'm s-1' ELSE ! Original version was stored in "WSPDSFC"; released WRF code uses "WSPD" CALL get_var_2d_real_cdf (cdfid, 'WSPDSFC', dum2d, it, rcode) IF ( rcode == nf90_noerr ) THEN wspdsfc(1:nxm,1:nym) = dum2d(:,:) wspdsfc(met_nx,:) = wspdsfc(nxm,:) wspdsfc(:,met_ny) = wspdsfc(:,nym) WRITE (*,f6000) 'WSPDSFC ', wspdsfc(lprt_metx, lprt_mety), 'm s-1' ELSE WRITE (*,f9400) TRIM(pname), 'WSPDSFC', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ENDIF CALL get_var_2d_real_cdf (cdfid, 'XLAIDYN', dum2d, it, rcode) IF ( rcode == nf90_noerr ) THEN xlaidyn(1:nxm,1:nym) = dum2d(:,:) xlaidyn(met_nx,:) = xlaidyn(nxm,:) xlaidyn(:,met_ny) = xlaidyn(:,nym) WRITE (*,f6000) 'XLAIDYN ', xlaidyn(lprt_metx, lprt_mety), 'm2 m-2' ELSE WRITE (*,f9400) TRIM(pname), 'XLAIDYN', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ENDIF ! ifmosaic IF ( ifkfradextras ) THEN ! Extra vars from KF scheme w radiative feedbacks CALL get_var_3d_real_cdf (cdfid, 'QC_CU', dum3d_t, it, rcode) IF ( rcode == nf90_noerr ) THEN qc_cu(1:nxm, 1:nym, :) = dum3d_t(:,:,:) qc_cu( met_nx, :, :) = qc_cu(nxm,:,:) qc_cu( :, met_ny,:) = qc_cu(:,nym,:) WRITE (*,ifmt1a) 'QC_CU ', (qc_cu(lprt_metx,lprt_mety,k),k=1,met_nz) ELSE WRITE (*,f9400) TRIM(pname), 'QC_CU', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF CALL get_var_3d_real_cdf (cdfid, 'QI_CU', dum3d_t, it, rcode) IF ( rcode == nf90_noerr ) THEN qi_cu(1:nxm, 1:nym, :) = dum3d_t(:,:,:) qi_cu( met_nx, :, :) = qi_cu(nxm,:,:) qi_cu( :, met_ny,:) = qi_cu(:,nym,:) WRITE (*,ifmt1a) 'QI_CU ', (qi_cu(lprt_metx,lprt_mety,k),k=1,met_nz) ELSE WRITE (*,f9400) TRIM(pname), 'QI_CU', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF CALL get_var_3d_real_cdf (cdfid, 'CLDFRA_DP', dum3d_t, it, rcode) IF ( rcode == nf90_noerr ) THEN cldfra_dp(1:nxm, 1:nym, :) = dum3d_t(:,:,:) cldfra_dp( met_nx, :, :) = cldfra_dp(nxm,:,:) cldfra_dp( :, met_ny,:) = cldfra_dp(:,nym,:) WRITE (*,ifmt1a) 'CLDFRA_DP', (cldfra_dp(lprt_metx,lprt_mety,k),k=1,met_nz) ELSE WRITE (*,f9400) TRIM(pname), 'CLDFRA_DP', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF CALL get_var_3d_real_cdf (cdfid, 'CLDFRA_SH', dum3d_t, it, rcode) IF ( rcode == nf90_noerr ) THEN cldfra_sh(1:nxm, 1:nym, :) = dum3d_t(:,:,:) cldfra_sh( met_nx, :, :) = cldfra_sh(nxm,:,:) cldfra_sh( :, met_ny,:) = cldfra_sh(:,nym,:) WRITE (*,ifmt1a) 'CLDFRA_SH', (cldfra_sh(lprt_metx,lprt_mety,k),k=1,met_nz) ELSE WRITE (*,f9400) TRIM(pname), 'CLDFRA_SH', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ENDIF ! ifkfradextras CALL get_var_1d_real_cdf (cdfid, 'ZNU', sigmah, it, rcode) IF ( rcode /= nf90_noerr ) THEN WRITE (*,f9400) TRIM(pname), 'ZNU', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF CALL get_var_1d_real_cdf (cdfid, 'ZNW', sigmaf, it, rcode) IF ( rcode /= nf90_noerr ) THEN WRITE (*,f9400) TRIM(pname), 'ZNW', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF IF ( met_hybrid >= 0 ) THEN CALL get_var_1d_real_cdf (cdfid, 'C1F', c1f, it, rcode) IF ( rcode /= nf90_noerr ) THEN WRITE (*,f9400) TRIM(pname), 'C1F', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF CALL get_var_1d_real_cdf (cdfid, 'C1H', c1h, it, rcode) IF ( rcode /= nf90_noerr ) THEN WRITE (*,f9400) TRIM(pname), 'C1H', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF CALL get_var_1d_real_cdf (cdfid, 'C2F', c2f, it, rcode) IF ( rcode /= nf90_noerr ) THEN WRITE (*,f9400) TRIM(pname), 'C2F', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF CALL get_var_1d_real_cdf (cdfid, 'C2H', c2h, it, rcode) IF ( rcode /= nf90_noerr ) THEN WRITE (*,f9400) TRIM(pname), 'C2H', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ENDIF CALL get_var_1d_real_cdf (cdfid, 'DZS', dzs, it, rcode) IF ( rcode /= nf90_noerr ) THEN WRITE (*,f9400) TRIM(pname), 'DZS', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF !------------------------------------------------------------------------------- ! If this is the first time in this routine, then get latitude, longitude, and ! map-scale factors on dot points. !------------------------------------------------------------------------------- IF ( first ) THEN ! Compute distance from origin (at reflat, standlon) to domain center, and ! store in MET_XXCTR and MET_YYCTR. Then calculate latitude, longitude, ! and map-scale factors using offset distance of given grid point from ! center of domain. SELECT CASE ( met_mapproj ) CASE (1) ! Lambert conformal xoff = 0.0 ! dot-point grid: no offset from dot-point center value yoff = 0.0 ! dot-point grid: no offset from dot-point center value DO j = 1, met_ny DO i = 1, met_nx xxin = met_xxctr - & ( met_rictr_dot - (FLOAT(i) + xoff) ) * met_resoln yyin = met_yyctr - & ( met_rjctr_dot - (FLOAT(j) + yoff) ) * met_resoln CALL xy2ll_lam (xxin, yyin, met_tru1, met_tru2, met_proj_clon, & met_ref_lat, latdot(i,j), londot(i,j)) mapdot(i,j) = mapfac_lam (latdot(i,j), met_tru1, met_tru2) ENDDO ENDDO IF ( .NOT. gotfaces ) THEN ! get lat, lon, map-scale factor on faces xoff = 0.0 ! U-face: no offset in X from dot-point center value yoff = 0.5 ! U-face: 0.5-cell offset in Y from dot-point center value DO j = 1, met_ny ! use all Y to fill array; last row outside domain DO i = 1, met_nx xxin = met_xxctr - & ( met_rictr_dot - (FLOAT(i) + xoff) ) * met_resoln yyin = met_yyctr - & ( met_rjctr_dot - (FLOAT(j) + yoff) ) * met_resoln CALL xy2ll_lam (xxin, yyin, met_tru1, met_tru2, met_proj_clon, & met_ref_lat, latu(i,j), lonu(i,j)) mapu(i,j) = mapfac_lam (latu(i,j), met_tru1, met_tru2) ENDDO ENDDO xoff = 0.5 ! V-face: 0.5-cell offset in X from dot-point center value yoff = 0.0 ! V-face: no offset in Y from dot-point center value DO j = 1, met_ny DO i = 1, met_nx ! use all X to fill array; last col outside domain xxin = met_xxctr - & ( met_rictr_dot - (FLOAT(i) + xoff) ) * met_resoln yyin = met_yyctr - & ( met_rjctr_dot - (FLOAT(j) + yoff) ) * met_resoln CALL xy2ll_lam (xxin, yyin, met_tru1, met_tru2, met_proj_clon, & met_ref_lat, latv(i,j), lonv(i,j)) mapv(i,j) = mapfac_lam (latv(i,j), met_tru1, met_tru2) ENDDO ENDDO ENDIF CASE (2) ! polar stereographic DO j = 1, met_ny DO i = 1, met_nx ! Use four-point interpolation here for latitude and longitude. ! Because CMAQ will never use outermost row and column from WRF ! due to location of CMAQ boundaries, inexact values in the ! outermost row and column will not matter. ii = MIN(i,nxm) jj = MIN(j,nym) im1 = MIN(i-1,1) jm1 = MIN(j-1,1) latdot(i,j) = ( latcrs(im1,jj) + latcrs(ii,jj) + & latcrs(im1,jm1) + latcrs(ii,jm1) ) * 0.25 londot(i,j) = ( loncrs(im1,jj) + loncrs(ii,jj) + & loncrs(im1,jm1) + loncrs(ii,jm1) ) * 0.25 mapdot(i,j) = mapfac_ps (latdot(i,j), met_tru1) ENDDO ENDDO IF ( .NOT. gotfaces ) THEN ! get lat, lon, map-scale factor on faces DO j = 1, met_ny DO i = 1, met_nx ! Use linear interpolation here for latitude and longitude. ! Because CMAQ will never use outermost row and column from WRF ! due to location of CMAQ boundaries, inexact values in the ! outermost row and column will not matter. ii = MIN(i,nxm) jj = MIN(j,nym) im1 = MIN(i-1,1) jm1 = MIN(j-1,1) latu(i,j) = ( latcrs(im1,jj) + latcrs(ii,jj) ) * 0.5 lonu(i,j) = ( loncrs(im1,jj) + loncrs(ii,jj) ) * 0.5 mapu(i,j) = mapfac_ps (latu(i,j), met_tru1) latv(i,j) = ( latcrs(ii,jm1) + latcrs(ii,jj) ) * 0.5 lonv(i,j) = ( loncrs(ii,jm1) + loncrs(ii,jj) ) * 0.5 mapv(i,j) = mapfac_ps (latv(i,j), met_tru1) ENDDO ENDDO ENDIF CASE (3) ! Mercator xoff = 0.0 ! dot-point grid: no offset from dot-point center value yoff = 0.0 ! dot-point grid: no offset from dot-point center value DO j = 1, met_ny DO i = 1, met_nx xxin = met_xxctr - & ( met_rictr_dot - (FLOAT(i) + xoff) ) * met_resoln yyin = met_yyctr - & ( met_rjctr_dot - (FLOAT(j) + yoff) ) * met_resoln CALL xy2ll_merc (xxin, yyin, met_proj_clon, & latdot(i,j), londot(i,j)) mapdot(i,j) = mapfac_merc (latdot(i,j)) ENDDO ENDDO IF ( .NOT. gotfaces ) THEN ! get lat, lon, map-scale factor on faces xoff = 0.0 ! U-face: no offset in X from dot-point center value yoff = 0.5 ! U-face: 0.5-cell offset in Y from dot-point center value DO j = 1, met_ny ! use all Y to fill array; last row outside domain DO i = 1, met_nx xxin = met_xxctr - & ( met_rictr_dot - (FLOAT(i) + xoff) ) * met_resoln yyin = met_yyctr - & ( met_rjctr_dot - (FLOAT(j) + yoff) ) * met_resoln CALL xy2ll_merc (xxin, yyin, met_proj_clon, & latu(i,j), lonu(i,j)) mapu(i,j) = mapfac_merc (latu(i,j)) ENDDO ENDDO xoff = 0.5 ! V-face: 0.5-cell offset in X from dot-point center value yoff = 0.0 ! V-face: no offset in Y from dot-point center value DO j = 1, met_ny DO i = 1, met_nx ! use all X to fill array; last col outside domain xxin = met_xxctr - & ( met_rictr_dot - (FLOAT(i) + xoff) ) * met_resoln yyin = met_yyctr - & ( met_rjctr_dot - (FLOAT(j) + yoff) ) * met_resoln CALL xy2ll_merc (xxin, yyin, met_proj_clon, & latv(i,j), lonv(i,j)) mapv(i,j) = mapfac_merc (latv(i,j)) ENDDO ENDDO ENDIF END SELECT ENDIF !------------------------------------------------------------------------------- ! If this is the first time in this routine and potential vorticity scaling ! will be used in CMAQ, then calculate the Coriolis parameter. !------------------------------------------------------------------------------- IF ( first .AND. lpv > 0 ) THEN pi = 4.0 * ATAN(1.0) deg2rad = pi / 180.0 DO j = 1, nym DO i = 1, nxm !!! coriolis(i,j) = twoomega * SIND(latcrs(i,j)) latrad = latcrs(i,j) * deg2rad coriolis(i,j) = twoomega * SIN(latrad) ENDDO ENDDO coriolis(met_nx,:) = coriolis(nxm,:) coriolis(:,met_ny) = coriolis(:,nym) ENDIF !------------------------------------------------------------------------------- ! If this is the first time in this routine, then determine season. !------------------------------------------------------------------------------- IF ( first ) THEN ! These seasons are used in MM5 and WRF for land-use lookup tables. startseas = met_startdate(1:4) // "-04-15-00:00:00" endseas = met_startdate(1:4) // "-10-15-00:00:00" CALL geth_idts (met_startdate(1:19), startseas, idts_start) CALL geth_idts (endseas, met_startdate(1:19), idts_end) IF ( ( idts_start < 0 ) .OR. ( idts_end < 0 ) ) THEN IF ( met_cen_lat >= 0.0 ) THEN ! Northern Hemisphere met_season = 2 ! winter ELSE ! Southern Hemisphere met_season = 1 ! summer ENDIF ELSE IF ( met_cen_lat >= 0.0 ) THEN ! Northern Hemisphere met_season = 1 ! summer ELSE ! Southern Hemisphere met_season = 2 ! winter ENDIF ENDIF !------------------------------------------------------------------------------- ! If roughness length was not available in output, fill it from lookup tables. ! If the urban model was used in WRF, replace roughness length with urban- ! specific arrays. !------------------------------------------------------------------------------- IF ( .NOT. gotznt ) THEN IF ( met_season == 1 ) THEN ! summer DO j = 1, nym DO i = 1, nxm IF ( ( met_lu_src(1:4) == "USGS" ) .AND. & ( met_lu_water == 16 ) ) THEN znt(i,j) = sfz0usgssum(landuse(i,j)) * 0.01 ! cm --> m ELSE IF ( ( met_lu_src(1:3) == "OLD" ) .AND. & ( met_lu_water == 7 ) ) THEN znt(i,j) = sfz0oldsum(landuse(i,j)) * 0.01 ! cm --> m ELSE IF ( met_lu_src(1:6) == "NLCD50" ) THEN znt(i,j) = sfz0nlcd50sum(landuse(i,j)) * 0.01 ! cm --> m ELSE IF ( met_lu_src(1:6) == "NLCD40" ) THEN znt(i,j) = sfz0nlcd40sum(landuse(i,j)) * 0.01 ! cm --> m ELSE IF ( met_lu_src(1:3) == "SIB" ) THEN znt(i,j) = sfz0sibsum(landuse(i,j)) * 0.01 ! cm --> m ELSE IF ( met_lu_src(1:3) == "MOD" ) THEN znt(i,j) = sfz0modsum(landuse(i,j)) * 0.01 ! cm --> m ELSE WRITE (*,f9700) TRIM(pname), met_lu_src, met_lu_water CALL graceful_stop (pname) ENDIF ENDDO ENDDO ELSE IF ( met_season == 2 ) THEN ! winter DO j = 1, nym DO i = 1, nxm IF ( ( met_lu_src(1:4) == "USGS" ) .AND. & ( met_lu_water == 16 ) ) THEN znt(i,j) = sfz0usgswin(landuse(i,j)) * 0.01 ! cm --> m ELSE IF ( ( met_lu_src(1:3) == "OLD" ) .AND. & ( met_lu_water == 7 ) ) THEN znt(i,j) = sfz0oldwin(landuse(i,j)) * 0.01 ! cm --> m ELSE IF ( met_lu_src(1:6) == "NLCD50" ) THEN znt(i,j) = sfz0nlcd50win(landuse(i,j)) * 0.01 ! cm --> m ELSE IF ( met_lu_src(1:6) == "NLCD40" ) THEN znt(i,j) = sfz0nlcd40win(landuse(i,j)) * 0.01 ! cm --> m ELSE IF ( met_lu_src(1:3) == "SIB" ) THEN znt(i,j) = sfz0sibwin(landuse(i,j)) * 0.01 ! cm --> m ELSE IF ( met_lu_src(1:3) == "MOD" ) THEN znt(i,j) = sfz0modwin(landuse(i,j)) * 0.01 ! cm --> m ELSE WRITE (*,f9700) TRIM(pname), met_lu_src, met_lu_water CALL graceful_stop (pname) ENDIF ENDDO ENDDO ENDIF znt(:,met_ny) = znt(:,nym) znt(met_nx,:) = znt(nxm,:) IF ( met_urban_phys < 1 ) THEN ! if UCM, write after urban update WRITE (*,f6000) 'ZNT ', znt (lprt_metx, lprt_mety), 'm' ENDIF ENDIF first = .FALSE. ENDIF !------------------------------------------------------------------------------- ! If sea ice was not part of the output, set flag to compute it later ! in METVARS2CTM. !------------------------------------------------------------------------------- IF ( .NOT. gotseaice ) THEN WRITE (*,f9975) TRIM(pname), 'SEAICE' needseaice = .TRUE. ELSE needseaice = .FALSE. ENDIF !------------------------------------------------------------------------------- ! Deallocate arrays. !------------------------------------------------------------------------------- ! DEALLOCATE ( dum2d ) ! commented out to avoid memory fragmentation ! DEALLOCATE ( dum2d_i ) ! commented out to avoid memory fragmentation ! DEALLOCATE ( dum2d_u ) ! commented out to avoid memory fragmentation ! DEALLOCATE ( dum2d_v ) ! commented out to avoid memory fragmentation ! DEALLOCATE ( dum3d_l ) ! commented out to avoid memory fragmentation ! DEALLOCATE ( dum3d_li ) ! commented out to avoid memory fragmentation ! DEALLOCATE ( dum3d_m ) ! commented out to avoid memory fragmentation ! DEALLOCATE ( dum3d_p ) ! commented out to avoid memory fragmentation ! DEALLOCATE ( dum3d_s ) ! commented out to avoid memory fragmentation ! DEALLOCATE ( dum3d_t ) ! commented out to avoid memory fragmentation ! DEALLOCATE ( dum3d_u ) ! commented out to avoid memory fragmentation ! DEALLOCATE ( dum3d_v ) ! commented out to avoid memory fragmentation ! DEALLOCATE ( dum3d_w ) ! commented out to avoid memory fragmentation END SUBROUTINE rdwrfem ================================================ FILE: PREP/mcip/src/readnml.f90 ================================================ !------------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------------! SUBROUTINE readnml !------------------------------------------------------------------------------- ! Name: Read Namelist ! Purpose: Reads input namelist to get user control variables. ! Revised: 21 Sep 2001 Original version. (T. Otte) ! 16 Oct 2001 Added variable COORDNAM to namelist USERDEFS. ! Created new namelist WINDOWDEFS, and moved I0 and J0 ! from USERDEFS to WINDOWDEFS. Changed code related ! to I0 and J0 accordingly. Changed relationship ! between I0 and J0 and BTRIM. (T. Otte) ! 07 Jan 2002 Added explicit read of input meteorology files through ! the namelist to improved portability. (T. Otte and ! S. Howard) ! 09 Jan 2002 Changed calls to "abort" to calls to "m3exit" for ! graceful shut-down of I/O API files. (T. Otte) ! 27 Feb 2002 Removed minimum grid size for windows. (T. Otte) ! 19 Mar 2002 Added error-handling on OPEN and READ statements. ! (T. Otte and S. Howard) ! 10 Aug 2004 Added flag to create static output (grid) files. ! Removed LUTYPE from USERDEFS namelist. (T. Otte) ! 29 Nov 2004 Added optional input MM5 "TERRAIN" file to get ! fractional land use fields. (T. Otte) ! 26 May 2005 Removed NDX and CTM2MET and option to interpolate ! to finer scale meteorology. Removed I0LUSE, J0LUSE, ! and BMAX, which are no longer used. Removed NDEP and ! made its usage explicit in PBLPKG and RADMDRY. ! Removed IWIND and made its usage explicit in VERTHYD. ! Changed I0 and J0 to Y0 and X0 to make code more ! general. Added two new user options for LDDEP, and ! inserted calculation of LTOTG. Removed "no_file" ! option on FILE_MM. Added capability to use vertical ! structure from input meteorology file without ! specifying a priori via namelist. (T. Otte) ! 24 Jul 2007 Added option LDDEP=0 to indicate that dry deposition ! velocities will be computed outside MCIP. Changed ! code so that M3Dry with chlorine and mercury is the ! only option to compute dry deposition velocities in ! MCIP. Removed user option variables LPBL, LRAD, LCLD, ! and LHYDOUT. (T. Otte) ! 29 Apr 2008 Added earth radius in meters (ERADM) to the USERDEFS ! namelist. Use ERADM to compute values in CONST_MOD ! that were formerly set as F90 parameters. (T. Otte) ! Added user option to process satellite data for use ! in photolysis in CMAQ. Added FILE_SAT to FILENAMES ! namelist, and added LSAT to USERDEFS namelist. ! Contributed by University of Alabama at Huntsville. ! (A. Biazar and T. Otte) ! 23 Dec 2008 Added user-definable reference latitude for WRF ! Lambert conformal data sets. Best used for ! consistency with existing MM5 data sets. (T. Otte) ! 23 Sep 2009 Added user option to compute and output 3D field of ! potential vorticity. Added user option to output ! vertical velocity predicted by the meteorological ! model. Added user option to output u- and v- ! component winds on C-staggered grid. (T. Otte) ! 09 Sep 2010 Removed option to compute dry deposition velocities ! in MCIP. (T. Otte) ! 29 Aug 2011 Changed name of module FILE to FILES to avoid conflict ! with F90 protected intrinsic. Improved error ! handling. (T. Otte) ! 07 Sep 2011 Updated disclaimer. (T. Otte) ! 18 Dec 2018 Removed support for MM5v3 input. Added runtime option ! to choose output format. Removed runtime option to ! not output time-independent files. (T. Spero) ! 17 Jun 2019 Removed layer collapsing. Changed variable LUVCOUT to ! LUVBOUT to reflect that the default 3D wind components ! are on the Arakawa-C staggered grid, and the optional ! additional 3D winds are now on the Arakawa-B staggered ! grid. (T. Spero) !------------------------------------------------------------------------------- USE mcipparm USE const, ONLY: rearth, dg2m, pi180 USE files IMPLICIT NONE INTEGER :: btrim INTEGER :: hh INTEGER :: istat INTEGER :: mm INTEGER :: n INTEGER :: ncolsin INTEGER :: nrowsin CHARACTER(LEN=16), PARAMETER :: pname = 'READNML' NAMELIST /filenames/ file_gd, file_mm, file_geo, ioform NAMELIST /userdefs/ lpv, lwout, luvbout, & eradm, mcip_start, mcip_end, intvl, & coordnam, grdnam, & btrim, lprt_col, lprt_row, & wrf_lc_ref_lat NAMELIST /windowdefs/ x0, y0, ncolsin, nrowsin !------------------------------------------------------------------------------- ! Error, warning, and informational messages. !------------------------------------------------------------------------------- CHARACTER(LEN=256), PARAMETER :: f9000 = "(/, 1x, 70('*'), & & /, 1x, '*** SUBROUTINE: ', a, & & /, 1x, '*** ERROR OPENING NAMELIST FILE ON UNIT ', i3, & & /, 1x, '*** NAMELIST FILE NAME = ', a, & & /, 1x, '*** IOSTAT = ', i4, & & /, 1x, 70('*'))" CHARACTER(LEN=256), PARAMETER :: f9050 = "(/, 1x, 70('*'), & & /, 1x, '*** SUBROUTINE: ', a, & & /, 1x, '*** ERROR READING NAMELIST FILE ON UNIT ', i3, & & /, 1x, '*** NAMELIST FILE NAME = ', a, & & /, 1x, '*** NAMELIST = ', a, & & /, 1x, '*** IOSTAT = ', i4, & & /, 1x, 70('*'))" CHARACTER(LEN=256), PARAMETER :: f9300 = "(/, 1x, 70('*'), & & /, 1x, '*** SUBROUTINE: ', a, & & /, 1x, '*** Invalid value of ', a, ' :', i4, & & /, 1x, 70('*'))" CHARACTER(LEN=256), PARAMETER :: f9400 = "(/, 1x, 70('*'), & & /, 1x, '*** SUBROUTINE: ', a, & & /, 1x, '*** Invalid value of ERADM:', f12.3, & & /, 1x, '*** Verify that input value is in meters', & & /, 1x, 70('*'))" CHARACTER(LEN=256), PARAMETER :: f9500 = "(/, 1x, 70('*'), & & /, 1x, '*** SUBROUTINE: ', a, & & /, 1x, '*** Invalid value of WRF_LC_REF_LAT', & & /, 1x, '*** Value from namelist is ', f12.3, & & /, 1x, 70('*'))" CHARACTER(LEN=256), PARAMETER :: f9600 = "(/, 1x, 70('*'), & & /, 1x, '*** SUBROUTINE: ', a, & & /, 1x, '*** Start date must be before end date', & & /, 1x, '*** Input MCIP_START = ', a, & & /, 1x, '*** Input MCIP_END = ', a, & & /, 1x, 70('*'))" CHARACTER(LEN=256), PARAMETER :: f9650 = "(/, 1x, 70('*'), & & /, 1x, '*** SUBROUTINE: ', a, & & /, 1x, '*** Invalid coordinates for cell for diagnostics', & & /, 1x, '*** Input LPRT_COL and LPRT_ROW are ', i4, 2x, i4, & & /, 1x, 70('*'))" CHARACTER(LEN=256), PARAMETER :: f9950 = "(/, 1x, 70('*'), & & /, 1x, '*** SUBROUTINE: ', a, & & /, 1x, '*** Minimum value for X0 and Y0 is 1', & & /, 1x, '*** User input X0 and Y0: ', 2(1x, i4), & & /, 1x, 70('*'))" CHARACTER(LEN=256), PARAMETER :: f9975 = "(/, 1x, 70('*'), & & /, 1x, '*** SUBROUTINE: ', a, & & /, 1x, '*** Minimum value for NCOLS and NROWS is 1', & & /, 1x, '*** User input NCOLS and NROWS: ', 2(1x, i4), & & /, 1x, 70('*'))" !------------------------------------------------------------------------------- ! Open namelist file. !------------------------------------------------------------------------------- OPEN (iutnml, FILE=file_nml, STATUS='OLD', IOSTAT=istat) IF ( istat > 0 ) THEN WRITE (*,f9000) TRIM(pname), iutnml, TRIM(file_nml), istat CALL graceful_stop (pname) ENDIF !------------------------------------------------------------------------------- ! Initialize input file names. !------------------------------------------------------------------------------- file_gd = "GRIDDESC" file_mm(:) = " " file_geo = " " !------------------------------------------------------------------------------- ! Set default value for user-selected options. ! ! LPV: 0 = Do not compute and output 3D potential vorticity ! 1 = Compute and output 3D potential vorticity ! ! LWOUT: 0 = Do not output vertical velocity ! 1 = Output vertical velocity ! ! LUVBOUT: 0 = Do not output u- and v-component winds on B-staggered grid ! 1 = Output u- and v-component winds on B-staggered grid ! in addition to the C-staggered grid ! ! IOFORM: 1 = Models-3 I/O API ! 2 = netCDF !------------------------------------------------------------------------------- lpv = 0 lwout = 0 luvbout = 0 ioform = 1 !------------------------------------------------------------------------------- ! Set default value for earth radius in meters (ERADM). The default value is ! consistent with the value used for a spherical earth in MM5 and in WRF-ARW. !------------------------------------------------------------------------------- eradm = 6370000.0 ! [m] !------------------------------------------------------------------------------- ! Set default reference latitude for WRF Lambert conformal data sets. !------------------------------------------------------------------------------- wrf_lc_ref_lat = -999.9 !------------------------------------------------------------------------------- ! Set default date. !------------------------------------------------------------------------------- mcip_start = '0000-00-00-00:00:00.0000' mcip_end = '0000-00-00-00:00:00.0000' intvl = 0 !------------------------------------------------------------------------------- ! Set coordinates for cell to print diagnostic output. If 0 is set, ! domain center cell will be used. !------------------------------------------------------------------------------- lprt_col = 0 lprt_row = 0 !------------------------------------------------------------------------------- ! Set default meteorology "boundary" point removal to 5. !------------------------------------------------------------------------------- btrim = 5 !------------------------------------------------------------------------------- ! Initialize COORDNAM and GRDNAM to missing values. !------------------------------------------------------------------------------- coordnam = "????????????????" grdnam = "????????????????" !------------------------------------------------------------------------------- ! Set default values for coordinate of full MCIP "X" domain (including MCIP ! lateral boundary) lower-left corner with respect to the input meteorology ! domain. Minimum acceptable value is 1. X0 is the column offset, and Y0 is ! the row offset. !------------------------------------------------------------------------------- x0 = 1 y0 = 1 !------------------------------------------------------------------------------- ! Set default values for window size. (20 is arbitrary...just want to prevent ! "very small" domains.) !------------------------------------------------------------------------------- ncolsin = 20 nrowsin = 20 !------------------------------------------------------------------------------- ! Read namelist to get user definitions. Rewind namelist file after each ! read in case namelists are not in the correct order in the namelist. !------------------------------------------------------------------------------- READ (iutnml, filenames, IOSTAT=istat) IF ( istat > 0 ) THEN WRITE (*,f9050) TRIM(pname), iutnml, TRIM(file_nml), "filenames", istat CALL graceful_stop (pname) ENDIF REWIND (iutnml) READ (iutnml, userdefs, IOSTAT=istat) IF ( istat > 0 ) THEN WRITE (*,f9050) TRIM(pname), iutnml, TRIM(file_nml), "userdefs", istat CALL graceful_stop (pname) ENDIF REWIND (iutnml) IF ( btrim < 0 ) THEN READ (iutnml, windowdefs, IOSTAT=istat) IF ( istat > 0 ) THEN WRITE (*,f9050) TRIM(pname), iutnml, TRIM(file_nml), "windowdefs", istat CALL graceful_stop (pname) ENDIF REWIND (iutnml) ENDIF !------------------------------------------------------------------------------- ! Crop blank spaces off ends of file names. !------------------------------------------------------------------------------- file_gd = TRIM( ADJUSTL(file_gd) ) DO n = 1, SIZE(file_mm) file_mm(n) = TRIM( ADJUSTL( file_mm(n) ) ) ENDDO file_geo = TRIM( ADJUSTL(file_geo) ) IF ( file_geo(1:7) == "no_file" ) file_geo = " " !------------------------------------------------------------------------------- ! Verify values of user-defined options. !------------------------------------------------------------------------------- IF ( ( lpv /= 0 ) .AND. ( lpv /= 1 ) ) THEN WRITE (*,f9300) TRIM(pname), "LPV", lpv CALL graceful_stop (pname) ENDIF IF ( ( lwout /= 0 ) .AND. ( lwout /= 1 ) ) THEN WRITE (*,f9300) TRIM(pname), "LWOUT", lwout CALL graceful_stop (pname) ENDIF IF ( ( luvbout /= 0 ) .AND. ( luvbout /= 1 ) ) THEN WRITE (*,f9300) TRIM(pname), "LUVBOUT", luvbout CALL graceful_stop (pname) ENDIF IF ( ( ioform /= 1 ) .AND. ( ioform /= 2 ) ) THEN WRITE (*,f9300) TRIM(pname), "IOFORM", ioform CALL graceful_stop (pname) ENDIF IF ( eradm < 6000000.0 ) THEN ! user probably input km instead of meters WRITE (*,f9400) TRIM(pname), eradm CALL graceful_stop (pname) ELSE rearth = eradm ! fill value in CONST_MOD dg2m = rearth * pi180 ! fill value in CONST_MOD now that REARTH is known ENDIF IF ( ( ( wrf_lc_ref_lat > 90.0 ) .OR. ( wrf_lc_ref_lat < -90.0 ) ) .AND. & ( wrf_lc_ref_lat > -999.0 ) ) THEN WRITE (*,f9500) TRIM(pname), wrf_lc_ref_lat CALL graceful_stop (pname) ENDIF !------------------------------------------------------------------------------- ! Set start and end dates. Ensure that "special characters" that separate ! components of date are set correctly. If these are not set properly, the ! lexical time comparisons in the driver (mcip.f90) will not work properly. !------------------------------------------------------------------------------- mcip_start( 5: 5) = "-" ; mcip_end ( 5: 5) = "-" mcip_start( 8: 8) = "-" ; mcip_end ( 8: 8) = "-" mcip_start(11:11) = "-" ; mcip_end (11:11) = "-" mcip_start(14:14) = ":" ; mcip_end (14:14) = ":" mcip_start(17:24) = ":00.0000" ; mcip_end (17:24) = ":00.0000" IF ( mcip_start > mcip_end ) THEN WRITE (*,f9600) TRIM(pname), mcip_start, mcip_end CALL graceful_stop (pname) ENDIF !------------------------------------------------------------------------------- ! Ensure that cell coordinates for diagnostic output are not negative. !------------------------------------------------------------------------------- IF ( ( lprt_col < 0 ) .OR. ( lprt_row < 0 ) ) THEN WRITE (*,f9650) TRIM(pname), lprt_col, lprt_row CALL graceful_stop (pname) ENDIF !------------------------------------------------------------------------------- ! Store meteorology boundary removal in MCIPPARM. If not windowing, set ! coordinate of lower-left corner of output domain with respect to ! input meteorology domain. If windowing, ensure that I0 and J0 are ! not too small. !------------------------------------------------------------------------------- nbdrytrim = btrim IF ( nbdrytrim >= 0 ) THEN x0 = nbdrytrim + 1 y0 = nbdrytrim + 1 ENDIF IF ( ( x0 < 1 ) .OR. ( y0 < 1 ) ) THEN WRITE (*,f9950) TRIM(pname), x0, y0 CALL graceful_stop (pname) ENDIF !------------------------------------------------------------------------------- ! Verify that user-defined number of rows and columns is not less than 1. ! If windowing, use the user-defined input to set NCOLS and NROWS. !------------------------------------------------------------------------------- IF ( ( ncolsin >= 1 ) .AND. ( nrowsin >= 1 ) ) THEN IF ( nbdrytrim < 0 ) THEN ncols = ncolsin nrows = nrowsin ENDIF ELSE WRITE (*,f9975) TRIM(pname), ncolsin, nrowsin CALL graceful_stop (pname) ENDIF !------------------------------------------------------------------------------- ! Calculate GRSTEP from INTVL. GRSTEP is in STIME format (HHMMSS). ! Assume SS is 0. !------------------------------------------------------------------------------- hh = INT(intvl / 60) mm = MOD(intvl, 60) grstep = ( hh * 10000 ) + ( mm * 100 ) !------------------------------------------------------------------------------- ! Close namelist file. !------------------------------------------------------------------------------- CLOSE (iutnml) END SUBROUTINE readnml ================================================ FILE: PREP/mcip/src/resistcalc.f90 ================================================ !------------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------------! SUBROUTINE resistcalc !------------------------------------------------------------------------------- ! Name: Resistance Calculation ! Purpose: Calculates aerodynamic and stomatal resistances required ! to compute dry deposition velocities. ! Notes: Does not include effects of seasons. Assumed maximum leaf area ! index for each land use category. ! Revised: 18 Sep 2001 Original version. (J. Pleim and T. Otte) ! 21 Dec 2001 Added IMPLICIT NONE and missing variable ! declarations. (S. Howard and T. Otte) ! 23 Jan 2002 Changed missing value on XRADYN and XRSTOM to ! BADVAL3. (T. Otte) ! 07 Feb 2002 Changed logic to define water point using dominant ! land use category. (T. Otte) ! 10 Jun 2003 Changed definition of F2 to be based on land use ! category. Changed variable name GS to GSFC to avoid ! confusion with (future) variable GS in MCIPPARM. ! Added snow condition to calculation of saturation ! vapor pressure. (J. Pleim and T. Otte) ! 07 Jul 2004 Removed XFLAGS. (T. Otte) ! 09 Mar 2005 Removed unused variable W2AVAIL. (T. Otte) ! 14 Jul 2006 Removed unused variables W2MXAV and WSAT. Use ! land-water mask instead of dominant land use category ! to determine water points. (T. Otte) ! 10 Apr 2007 Changed USTAR and RADYN to 2D arrays without a ! dimension for fractional land use that was required ! for RADMdry. Removed dependency on module LRADMDAT. ! Added condition to set RADYN and RSTOM to BADVAL3 if ! USTAR is 0.0 (presumably at the beginning of a ! meteorology run) to prevent division by zero. Moved ! land-use-based filling of F2 and RSTMIN from subroutine ! METVARS2CTM. (T. Otte) ! Changed Schmidt number for water from 0.599 to 0.606 ! to be consistent with m3dry. (J. Bash and T. Otte) ! 28 Apr 2008 Expanded lookup tables for stomatal resistance and F2 ! to accommodate 33-category USGS in WRF. (T. Otte) ! 23 Sep 2009 Added lookup tables for stomatal resistance and F2 to ! accommodate MODIS-NOAH and NLCD-MODIS land use ! classification systems. (T. Otte) ! 01 Sep 2011 Replaced module PARMS3 with I/O API module M3UTILIO. ! Improved error handling. Changed DATA statements to ! parameters. (T. Otte) ! 07 Sep 2011 Updated disclaimer. (T. Otte) ! 11 Sep 2012 Added handling for 40-category 2006 NLCD-MODIS land ! use classification as "NLCD40". Added alternate name ! for 50-category 2001 NLCD-MODIS land use classification ! as "NLCD50". Changed F2DEFNLC and RSTNLC to ! F2DEFNLCD50 and RSTNLCD50. Added analogous arrays for ! NLCD40. Values for RST are taken from WRFv3.4 ! module_sf_pxlsm_data.F. F2 values for NLCD40 are ! adapted from F2 values for NLCD50. (T. Otte) ! 21 Apr 2017 Updated F2 for MODIS for category 21 as "Lake". ! (T. Spero) ! 26 Jun 2018 Now use netCDF tokens for missing data. (T. Spero) !------------------------------------------------------------------------------- USE mcipparm USE const USE const_pbl USE xvars IMPLICIT NONE REAL :: alogz1z0 INTEGER :: c REAL :: es REAL :: f1 REAL :: f2 REAL :: f3 REAL, PARAMETER :: f3min = 0.25 REAL :: f4 REAL, PARAMETER :: ftmin = 0.0000001 ! [m/s] REAL :: ftot REAL :: ga REAL :: gsfc INTEGER :: lu CHARACTER(LEN=16), PARAMETER :: pname = 'RESISTCALC' REAL :: psih REAL :: psih0 REAL :: q1 REAL :: qss INTEGER :: r REAL :: radf REAL :: radl REAL :: raw REAL, PARAMETER :: rsmax = 5000.0 ! [s/m] REAL :: rstmin REAL, PARAMETER :: svp2 = 17.67 ! from MM5 REAL, PARAMETER :: svp3 = 29.65 ! from MM5 REAL :: t1 REAL, PARAMETER :: wfc = 0.240 REAL, PARAMETER :: wwlt = 0.155 REAL :: z1 REAL :: z1ol REAL :: zntol REAL, PARAMETER :: f2defmod ( 33 ) = & (/ 0.90, 0.90, 0.90, 0.90, 0.90, 0.50, 0.50, 0.60, & 0.60, 0.70, 0.99, 0.93, 0.80, 0.85, 0.99, 0.30, & 1.00, 0.50, 0.60, 0.20, 1.00, 0.00, 0.00, 0.00, & 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.84, 0.82, 0.80 /) REAL, PARAMETER :: rstmod ( 33 ) = & (/ 175.0, 120.0, 175.0, 200.0, 200.0, 200.0, 200.0, 150.0, & 120.0, 100.0, 160.0, 70.0, 150.0, 100.0, 9999.0, 100.0, & 9999.0, 175.0, 120.0, 100.0, 9999.0, 9999.0, 9999.0, 9999.0, & 9999.0, 9999.0, 9999.0, 9999.0, 9999.0, 9999.0, 150.0, 140.0, 125.0 /) REAL, PARAMETER :: f2defnlcd50 ( 50 ) = & (/ 1.00, 0.99, 0.85, 0.84, 0.83, 0.82, 0.30, 0.50, & 0.90, 0.90, 0.90, 0.50, 0.50, 0.70, 0.60, 0.60, & 0.60, 0.50, 0.80, 0.95, 0.99, 0.99, 0.99, 0.99, & 0.99, 0.99, 0.99, 0.99, 0.99, 0.99, 1.00, 0.90, & 0.90, 0.90, 0.90, 0.90, 0.50, 0.50, 0.60, 0.60, & 0.70, 0.99, 0.85, 0.80, 0.85, 0.99, 0.30, 1.00, & 0.00, 0.00 /) REAL, PARAMETER :: rstnlcd50 ( 50 ) = & (/9999.0, 9999.0, 120.0, 120.0, 140.0, 160.0, 100.0, 100.0, & 200.0, 175.0, 200.0, 200.0, 200.0, 100.0, 100.0, 100.0, & 100.0, 100.0, 80.0, 70.0, 200.0, 200.0, 164.0, 200.0, & 164.0, 120.0, 120.0, 120.0, 100.0, 100.0, 9999.0, 175.0, & 120.0, 175.0, 200.0, 200.0, 200.0, 200.0, 150.0, 120.0, & 100.0, 160.0, 70.0, 150.0, 100.0, 9999.0, 100.0, 9999.0, & 9999.0, 9999.0 /) REAL, PARAMETER :: f2defnlcd40 ( 40 ) = & (/ 0.90, 0.90, 0.90, 0.90, 0.90, 0.50, 0.50, 0.60, & 0.60, 0.70, 0.99, 0.85, 0.80, 0.85, 0.99, 0.30, & 1.00, 0.00, 0.00, 0.00, 1.00, 0.99, 0.85, 0.84, & 0.83, 0.82, 0.30, 0.90, 0.90, 0.90, 0.50, 0.50, & 0.70, 0.60, 0.60, 0.60, 0.80, 0.95, 0.99, 0.99 /) REAL, PARAMETER :: rstnlcd40 ( 40 ) = & (/ 175.0, 120.0, 175.0, 200.0, 200.0, 200.0, 200.0, 150.0, & 120.0, 100.0, 160.0, 70.0, 150.0, 100.0, 9999.0, 100.0, & 9999.0, 9999.0, 9999.0, 9999.0, 9999.0, 9999.0, 120.0, 120.0, & 140.0, 160.0, 100.0, 200.0, 175.0, 200.0, 200.0, 200.0, & 100.0, 100.0, 100.0, 100.0, 80.0, 70.0, 200.0, 120.0 /) REAL, PARAMETER :: f2defold ( 13 ) = & (/ 0.80, 0.90, 0.70, 0.90, 0.90, 0.90, 1.00, 0.99, & 0.30, 0.60, 0.99, 0.99, 0.60 /) REAL, PARAMETER :: rstold ( 13 ) = & (/ 150.0, 70.0, 83.0, 183.0, 150.0, 200.0, 9999.0, 164.0, & 100.0, 150.0, 9999.0, 200.0, 120.0 /) REAL, PARAMETER :: f2defusgs ( 33 ) = & (/ 0.80, 0.85, 0.98, 0.90, 0.80, 0.90, 0.70, 0.50, & 0.60, 0.60, 0.90, 0.90, 0.90, 0.90, 0.90, 1.00, & 0.99, 0.99, 0.30, 0.40, 0.50, 0.60, 0.20, 0.99, & 0.20, 0.20, 0.20, 0.00, 0.00, 0.00, 0.84, 0.82, 0.80 /) REAL, PARAMETER :: rstusgs ( 33 ) = & (/ 150.0, 70.0, 60.0, 70.0, 80.0, 180.0, 100.0, 200.0, & 150.0, 120.0, 200.0, 175.0, 120.0, 175.0, 200.0, 9999.0, & 164.0, 200.0, 100.0, 150.0, 200.0, 150.0, 100.0, 300.0, & 100.0, 100.0, 100.0, 9999.0, 9999.0, 9999.0, 150.0, 140.0, 125.0 /) !------------------------------------------------------------------------------- ! Error, warning, and informational messages. !------------------------------------------------------------------------------- CHARACTER(LEN=256), PARAMETER :: f9000 = "(/, 1x, 70('*'), & & /, 1x, '*** SUBROUTINE: ', a, & & /, 1x, '*** UNKNOWN LAND USE INPUT DATA SOURCE: ', a, & & /, 1x, 70('*'))" !------------------------------------------------------------------------------- ! Loop over grid cells to calculate aerodynamic and stomatal resistances. !------------------------------------------------------------------------------- DO c = 1, ncols_x DO r = 1, nrows_x IF ( xustar(c,r) /= 0.0 ) THEN ! ustar undefined or 0.0 at init met time t1 = xtempm (c,r,1) q1 = xwvapor(c,r,1) lu = NINT( xdluse (c,r) ) z1 = x3htm (c,r,1) z1ol = z1 / xmol(c,r) zntol = xzruf(c,r) / xmol(c,r) alogz1z0 = ALOG(z1/xzruf(c,r)) ! Fill in land-use-based parameters: ! Effects of soil moisture are contained in F2. ! When not using LSM, soil moisture is estimated by moisture ! availability as a function of dominant land use category. ! Soil parameters here are based on loam. This formulation ! does not include effects of precipitation. IF ( xlusrc(1:3) == 'USG' ) THEN f2 = f2defusgs(lu) rstmin = rstusgs(lu) ELSE IF ( xlusrc(1:3) == 'MM5' ) THEN f2 = f2defold(lu) rstmin = rstold(lu) ELSE IF ( xlusrc(1:3) == 'MOD' ) THEN f2 = f2defmod(lu) rstmin = rstmod(lu) ELSE IF ( xlusrc(1:6) == 'NLCD50' ) THEN f2 = f2defnlcd50(lu) rstmin = rstnlcd50(lu) ELSE IF ( xlusrc(1:6) == 'NLCD40' ) THEN f2 = f2defnlcd40(lu) rstmin = rstnlcd40(lu) ELSE WRITE (*,f9000) TRIM(pname), TRIM(xlusrc) CALL graceful_stop (pname) ENDIF !------------------------------------------------------------------------------- ! Calculate aerodynamic resistance XRADYN. !------------------------------------------------------------------------------- IF ( z1ol >= 0.0 ) THEN IF ( z1ol > 1.0 ) THEN psih0 = 1.0 - betah - z1ol ELSE psih0 = -betah * z1ol ENDIF IF ( zntol > 1.0 ) THEN psih = psih0 - (1.0 - betah - zntol) ELSE psih = psih0 + betah * zntol ENDIF ELSE psih = 2.0 * ALOG( (1.0 + SQRT(1.0 - gamah*z1ol)) / & (1.0 + SQRT(1.0 - gamah*zntol)) ) ENDIF xradyn(c,r) = pro * ( alogz1z0 - psih ) / ( vkar * xustar(c,r) ) !------------------------------------------------------------------------------- ! Calculate stomatal resistance XRSTOM. !------------------------------------------------------------------------------- ! Effects of transpiration. IF ( NINT(xlwmask(c,r)) == 0 ) THEN ! water xrstom(c,r) = fillreal ! inverse taken in metcro.F ELSE ! Effects of radiation. IF ( rstmin > 130.0 ) THEN radl = 30.0 ! [W/m**2] ELSE radl = 100.0 ! [W/m**2] ENDIF radf = 1.1 * xrgrnd(c,r) / ( radl * xlai(c,r) ) ! NP89 - EQN34 f1 = (rstmin / rsmax + radf) / (1.0 + radf) ! Effects of air temperature following Avissar (1985) and Xiu (7/95). IF ( t1 <= 302.15 ) THEN f4 = 1.0 / (1.0 + EXP(-0.41 * (t1 - 282.05))) ELSE f4 = 1.0 / (1.0 + EXP( 0.50 * (t1 - 314.00))) ENDIF ftot = MAX( (xlai(c,r) * f1 * f2 * f4), ftmin ) gsfc = ftot / rstmin ! rb(water) = 2/(k*ust) (Scw/Pran)^2/3 ! = 5/ust (0.606/0.709)^2/3 ! = 4.503/ust raw = xradyn(c,r) + 4.503 / xustar(c,r) ! 4.503 = (Scw/Pran)^2/3 ga = 1.0 / raw ! Compute the saturated mixing ratio at surface temperature (XTEMPG). ! Saturation vapor pressure [mb] of water. IF ( ( xsnocov(c,r) > 0.0 ) .OR. ( xtempg(c,r) <= stdtemp ) ) THEN es = vp0 * EXP(22.514 - 6.15e3/xtempg(c,r)) ELSE es = vp0 * EXP(svp2 * (xtempg(c,r) - stdtemp) / (xtempg(c,r) - svp3)) ENDIF qss = es * 0.622 / (xprsfc(c,r) - es) ! Compute humidity effect according to RH at leaf surface. f3 = 0.5 * (gsfc - ga + SQRT(ga * ga + ga * gsfc * (4.0 * q1 / & qss - 2.0) + gsfc * gsfc)) / gsfc f3 = MIN( MAX(f3,f3min), 1.0 ) xrstom(c,r) = 1.0 / (gsfc * f3) ENDIF ELSE ! ustar = 0.0 xradyn(c,r) = fillreal ! inverse taken in metcro.F xrstom(c,r) = fillreal ! inverse taken in metcro.F ENDIF ENDDO ENDDO END SUBROUTINE resistcalc ================================================ FILE: PREP/mcip/src/setgriddefs.f90 ================================================ !------------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------------! SUBROUTINE setgriddefs !------------------------------------------------------------------------------- ! Name: Set Grid Definitions ! Purpose: Gets information from user input and input meteorology, and ! sets up grid definitions. ! Notes: Some algorithms taken from MCIP v1 getmet_mm5.F. ! Revised: 20 Sep 2001 Original version. (T. Otte) ! 16 Oct 2001 Added variable COORDNAM. Corrected definition ! of P_GAM_GD. Added provisions for windowing a ! subset of the meteorology domain. (T. Otte) ! 20 Nov 2001 Corrected setting of XORIG_GD and YORIG_GD. (T. Otte) ! 10 Jan 2002 Changed calls to "abort" to calls to "m3exit" for ! graceful shut-down of I/O API files. (T. Otte) ! 27 Feb 2002 Removed minimum grid size on windows. (T. Otte) ! 06 Mar 2003 Modified definitions of XORIG_GD and Y0RIG_GD to ! minimize real number round-off issues which can ! cause header mismatches in CMAQ. Added double ! precision attributes to variables assigned to ! I/O API header. (T. Otte) ! 10 Aug 2004 Added new grid projections. Moved definition of ! PX to setupv2 and setupv3. Added T2OUT. Removed ! checks from obsolete land-use input sources. (T. Otte) ! 24 Feb 2005 Removed NDX and option to interpolate to finer scale ! meteorology. Changed I and J naming conventions to ! Y and X to make code more general. Added vertical ! coordinate definition for WRF. Modified prints of ! user options to reflect new LDDEP = 3 or 4 for dry ! deposition velocity calculations of chlorine and ! mercury species with M3DRY. Added calculation of ! XORIG and YORIG for WRF grid definitions. Added logic ! to make center latitude more precise for WRF. (T. Otte) ! 15 Jul 2005 Added debugging for variable retrievals from WRF ! files. Added error-exit for problems defining YORIG ! for WRF. Added provisions for defining WRF XORIG and ! YORIG when dot-point lower-left corner coordinate is ! not available in WRF output. (T. Otte) ! 11 Aug 2005 Removed unused variable X_RESOL. (T. Otte) ! 27 Feb 2006 Changed tolerances on XORIG_M and YORIG_M for WRF to ! allow center of projection be at a face point or scalar ! point, rather than only on dot points. Updated ! vertical coordinate definitions to correspond with ! updates to I/O API PARMS3.EXT for WRF. Corrected ! I/O API grid definition for Mercator projection. ! (T. Otte) ! 07 Apr 2006 Corrected settings of P_ALP_GD, P_BET_GD, and ! P_GAM_GD for Mercator projection...again. (T. Otte) ! 12 May 2006 Corrected setting of GDTYP_GD for polar stereographic ! projection. Revised definitions of I/O API header ! variables for WRF-based domains. Corrected ! calculation of print column and row for center of ! grid. (T. Otte) ! 20 Jun 2006 Corrected operations involving double-precision ! variables XCELL_GD and YCELL_GD. (T. Otte) ! 31 Jul 2007 Added IMPLICIT NONE. Eliminated prints for former ! user-definable run options to recalculate PBL, cloud, ! and radiation. Removed I/O API header settings for ! MM5v2-based vertical coordinate. Removed T2OUT. ! Added prints to show whether or not some variables ! were part of input meteorology. Added print statements ! to show whether or not some meteorological fields were ! found in the input file; those that are not found may ! be calculated. Updated computation of LPRT_COL and ! LPRT_ROW for a one-cell domain. Changed code so that ! M3Dry with chlorine and mercury is the only option to ! compute dry deposition velocities in MCIP. Removed ! dependencies on modules FILE and WRF_NETCDF. (T. Otte) ! 06 May 2008 Changed settings for XCENT_GD, YCENT_GD, XORIG_GD, and ! YORIG_GD for WRF for Lambert conformal projection so ! that headers will be compatible with M3IO utility ! routines LL2LAM and LAM2LL. (Still need to test ! settings for polar stereographic and Mercator for ! WRF.) Removed NTHIKD and NBNDYD. Added error-checking ! to prevent NTHIK=0. Added print statements to log file ! to indicate whether or not each of Q2 and TKE were ! found in the MM5 or WRF file. Added print statements ! to log file to indicate whether or not UAH cloud field ! adjustment for photolysis has been invoked, and to ! indicate whether or not the urban canopy model has ! been invoked. (T. Otte) ! 26 Nov 2008 Changed setting for YCENT_GD (and, thus, XORIG_GD and ! YORIG_GD) for WRF for Lambert conformal projection so ! that the headers will not fail in the Spatial ! Allocator. Reference latitude now is set to the ! average of the true latitudes for the secant Lambert ! conformal case. (Still need to test settings for polar ! stereographic and Mercator for WRF.) (T. Otte) ! 23 Dec 2008 Added user-definable reference latitude for WRF ! Lambert conformal data sets. Best used for ! consistency with existing MM5 data sets. (T. Otte) ! 28 Apr 2009 Changed setting of XCENT and YCENT for polar ! stereographic WRF domains. (T. Otte) ! 28 Oct 2009 Changed MET_UCMCALL to MET_URBAN_PHYS, and allowed ! for variable to be set to be greater than 1. Removed ! setting of reference latitude for Lambert conformal ! because it is now done in SETUP_MM5V3 and SETUP_WRFEM. ! Remove subroutine GRIDGEOMETRY, and use dot-point ! latitude array directly to fill Mercator reference ! point information for I/O API headers. Changed ! XORIG and YORIG truncation logic to allow for grid ! cells to be increments of half of a grid cell removed ! (rather than limiting to a whole grid cell). Changed ! logic (again) to define I/O API projection parameters. ! Added user option to output vertical velocity predicted ! by the meteorological model rather than output it by ! default. Changed format on print statements in MCIP ! log file so that larger numbers in XORIG3D and YORIG3D ! can be accommodated and more precision is given after ! the decimal point. (T. Otte) ! 12 Feb 2010 Removed unused variables CNTRX, CNTRY, YLAT, and YLON, ! and removed unused format 9800. (T. Otte) ! 09 Sep 2010 Removed option to compute dry deposition velocities ! in MCIP. (T. Otte) ! 11 Aug 2011 Replaced module PARMS3 with I/O API module M3UTILIO. ! (T. Otte) ! 31 Aug 2011 Removed dependency on netcdf.inc, and improved error ! handling. Changed F77 character definitions to F90 ! standard. (T. Otte) ! 07 Sep 2011 Updated disclaimer. (T. Otte) ! 10 Apr 2015 Updated log file to indicate if 3D resolved cloud ! fraction will be part of output. (T. Spero) ! 21 Aug 2015 Updated log file to indicate if WRF/ACM2 was used and ! Monin-Obukhov length will be recalculated by MCIP to ! be consistent with other ACM2 physics in WRF. ! (T. Spero) ! 17 Sep 2015 Changed IFMOLACM to IFMOLPX. (T. Spero) ! 23 Jun 2017 Added MET_HYBRID setting to log output. (T. Spero) ! 22 Feb 2018 Refined calculation of interval between WRF output ! times to account for small drifts when advection time ! steps do not fall exactly on the hour. ! Corrected error in text of print statement 6155. ! Removed superfluous variables METROW and METCOL. ! Defined METSOI. Prevent MCIP from using meteorology ! initialization time. (T. Spero) ! 14 Sep 2018 Removed support for MM5v3 input. (T. Spero) ! 18 Jun 2019 Added a flag for new surface variables with PX LSM ! that can improve dust simulation in CCTM. Changed ! spacing in format statements improve readability in ! log file. Changed variable LUVCOUT to LUVBOUT to ! reflect that the default 3D wind components are on the ! Arakawa-C staggered grid, and the optional additional ! 3D winds are on the Arakawa-B staggered grid. Added ! write for IOFORM to log. Added flag for optional ! variable with KF convective scheme with radiative ! feedbacks. (T. Spero) ! 21 Sep 2020 Corrected error in logic for processing meteorology ! data at a time interval that is coarser than the ! available data in the file. (T. Spero) ! 30 Apr 2024 Changed constraint on XORIG and YORIG for Lambert ! conformal projections with user-specified runtime ! reference latitude. Original constraint of 500 meters ! introduced an error in calculating the location of the ! lower-left corner in domains with a horizontal grid ! spacing that is not a multiple of 1 km. Now using a ! constraint of 5 meters to allow for "neater" XORIG ! and YORIG values across compilers. (T. Spero) !------------------------------------------------------------------------------- USE mcipparm USE xvars USE metinfo USE coord USE m3utilio IMPLICIT NONE CHARACTER(LEN=60) :: option CHARACTER(LEN=16), PARAMETER :: pname = 'SETGRIDDEFS' REAL, PARAMETER :: pole = 90.0 ! degrees REAL :: rnthik INTEGER :: ttol_min ! minutes REAL :: xorig_ctm REAL :: xorig_m REAL :: xorig_x REAL :: xtemp CHARACTER(LEN=3) :: yesno REAL :: yorig_ctm REAL :: yorig_m REAL :: yorig_x REAL :: ytemp !------------------------------------------------------------------------------- ! Error, warning, and informational messages. !------------------------------------------------------------------------------- CHARACTER(LEN=256), PARAMETER :: f6000 = "(/, 1x, 'Output start date = ', a, & & /, 1x, 'Output end date = ', a, /, 1x, 'Output interval = ', i3, & & ' minutes', // )" CHARACTER(LEN=256), PARAMETER :: f6100 = "(1x, a, ' = ', i3, ': ', a)" CHARACTER(LEN=256), PARAMETER :: f6150 = & "(/, 1x, a, ' was ', a, ' found in the meteorology input file')" CHARACTER(LEN=256), PARAMETER :: f6155 = & "(/, 1x, a, ' will ', a, ' be recomputed by MCIP (Only for WRF P-X LSM)')" CHARACTER(LEN=256), PARAMETER :: f6160 = & "(1x, a, ' will be read from the ', a, ' file')" CHARACTER(LEN=256), PARAMETER :: f6175 = & "(/, 1x, a, ' will ', a, ' be in the output file')" CHARACTER(LEN=256), PARAMETER :: f6180 = & "(/, 1x, a, ' was ', a, ' used in the meteorology model')" CHARACTER(LEN=256), PARAMETER :: f6200 = & "(1x, a, ' domain dimensions (col, row, lay):', 3(2x, i3))" CHARACTER(LEN=256), PARAMETER :: f6300 = "(4x, a, 1x, a, 3x, i4, 2x, i4)" CHARACTER(LEN=256), PARAMETER :: f6400 = "(4x, a, 2x, i14)" CHARACTER(LEN=256), PARAMETER :: f6500 = "(4x, a, 2x, a)" CHARACTER(LEN=256), PARAMETER :: f6600 = "(4x, a, 2x, f14.3)" CHARACTER(LEN=256), PARAMETER :: f9000 = "(/, 1x, 70('*'), & & /, 1x, '*** SUBROUTINE: ', a, & & /, 1x, '*** NTHIK cannot be set to zero', & & /, 1x, 70('*'))" CHARACTER(LEN=256), PARAMETER :: f9025 = "(/, 1x, 70('*'), & & /, 1x, '*** SUBROUTINE: ', a, & & /, 1x, '*** MCIP lower-left corner is not in met domain', & & /, 1x, '*** X0, Y0 = ', 2(2x, i4), & & /, 1x, '*** NX, NY = ', 2(2x, i4), & & /, 1x, 70('*'))" CHARACTER(LEN=256), PARAMETER :: f9050 = "(/, 1x, 70('*'), & & /, 1x, '*** SUBROUTINE: ', a, & & /, 1x, '*** MCIP domain must have 1 or more cells per side', & & /, 1x, '*** NCOLS, NROWS = ', 2(2x, i4), & & /, 1x, 70('*'))" CHARACTER(LEN=256), PARAMETER :: f9100 = "(/, 1x, 70('*'), & & /, 1x, '*** SUBROUTINE: ', a, & & /, 1x, '*** Requested MCIP X domain exceeds met domain', & & /, 1x, '*** METCOL, METROW = ', i4, 2x, i4, & & /, 1x, '*** MCIP domain (col, row) = ', i4, 2x, i4, & & /, 1x, 70('*'))" CHARACTER(LEN=256), PARAMETER :: f9200 = "(/, 1x, 70('*'), & & /, 1x, '*** SUBROUTINE: ', a, & & /, 1x, '*** Requested MCIP dim.: ', i4, ' x ', i4, & & /, 1x, '*** Met. dim.: ', i4, ' x ', i4, & & /, 1x, '*** Max. allowable dim.: ', i4, ' x ', i4, & & /, 1x, 70('*'))" CHARACTER(LEN=256), PARAMETER :: f9250 = "(/, 1x, 70('*'), & & /, 1x, '*** SUBROUTINE: ', a, & & /, 1x, '*** Requested MCIP dim. exceed the actual Met. dim.', & & /, 1x, '*** Input meteorology dimensions: ', 2(2x, i4), & & /, 1x, '*** MCIP output domain in terms of met: ', 2(2x, i4), & & /, 1x, 70('*'))" CHARACTER(LEN=256), PARAMETER :: f9275 = "(/, 1x, 70('*'), & & /, 1x, '*** SUBROUTINE: ', a, & & /, 1x, '*** INVALID INPUT METEOROLOGY MAP PROJECTION ', i4, & & /, 1x, 70('*'))" CHARACTER(LEN=256), PARAMETER :: f9300 = "(/, 1x, 70('*'), & & /, 1x, '*** SUBROUTINE: ', a, & & /, 1x, ' MCIP output interval cannot be shorter than input', & & /, 1x, ' User-defined MCIP output interval = ', i3, & & /, 1x, ' Meteorology output interval = ', f5.1, & & /, 1x, 70('*'))" CHARACTER(LEN=256), PARAMETER :: f9400 = "(/, 1x, 70('*'), & & /, 1x, '*** SUBROUTINE: ', a, & & /, 1x, '*** MCIP output must start after meteorology start time', & & /, 1x, '*** User-defined MCIP start date = ', a, & & /, 1x, '*** Input meteorology start date = ', a, & & /, 1x, 70('*'))" CHARACTER(LEN=256), PARAMETER :: f9600 = "(/, 1x, 70('*'), & & /, 1x, '*** SUBROUTINE: ', a, & & /, 1x, '*** Diagnostic print cell is outside domain', & & /, 1x, '*** Input LPRT_COL and LPRT_ROW are ', i4, 2x, i4, & & /, 1x, '*** Output domain NCOLS and NROWS are ', i4, 2x, i4, & & /, 1x, 70('*'))" !------------------------------------------------------------------------------- ! Define MCIP grid coordinate information from meteorology grid input. !------------------------------------------------------------------------------- ttol_min = NINT( REAL(ttol_sec) / 60.0 ) ! convert time tolerance to minutes metlay = met_nz metsoi = met_ns IF ( nthik == 0 ) THEN WRITE (*,f9000) TRIM(pname) CALL graceful_stop (pname) ENDIF IF ( nbdrytrim >= 0 ) THEN ! not windowing...need to define NCOLS, NROWS ncols = met_nx - (2 * nbdrytrim) - (2 * nthik) - 1 nrows = met_ny - (2 * nbdrytrim) - (2 * nthik) - 1 ENDIF nrows_x = nrows + 2 * nthik ncols_x = ncols + 2 * nthik nbndy = 2 * nthik * (ncols + nrows + 2*nthik) !------------------------------------------------------------------------------- ! Check dimensions of domain. !------------------------------------------------------------------------------- IF ( ( x0 < 1 ) .OR. ( y0 < 1 ) .OR. & ( x0 > met_nx - 1 ) .OR. ( y0 > met_ny - 1 ) ) THEN WRITE (*,f9025) TRIM(pname), x0, y0, met_nx, met_ny CALL graceful_stop (pname) ENDIF IF ( ( ncols < 1 ) .OR. ( nrows < 1 ) ) THEN WRITE (*,f9050) TRIM(pname), ncols, nrows CALL graceful_stop (pname) ENDIF IF ( ( met_nx < (ncols_x + 1) ) .OR. & ( met_ny < (nrows_x + 1) ) ) THEN WRITE (*,f9100) TRIM(pname), met_nx, met_ny, ncols_x + 1, nrows_x + 1 CALL graceful_stop (pname) ENDIF IF ( ( ncols > met_nx-2*nthik-1 ) .OR. & ( nrows > met_ny-2*nthik-1 ) ) THEN WRITE (*,f9200) TRIM(pname), ncols, nrows, met_nx, met_ny, & met_nx-2*nthik-1, met_ny-2*nthik-1 CALL graceful_stop (pname) ENDIF IF ( ( x0+2*nthik+ncols-1 > met_nx-1 ) .OR. & ( y0+2*nthik+nrows-1 > met_ny-1 ) ) THEN WRITE (*,f9250) TRIM(pname), met_nx, met_ny, & x0+2*nthik+ncols-1, y0+2*nthik+nrows-1 CALL graceful_stop (pname) ENDIF !------------------------------------------------------------------------------- ! Calculate window domain size in terms of MET grid. !------------------------------------------------------------------------------- ncg_x = 1 + INT( ncols + 2 * nthik - 1 ) ncg_y = 1 + INT( nrows + 2 * nthik - 1 ) !------------------------------------------------------------------------------- ! GDTYP_GD: ! The map projection types in I/O API are: ! 1: LATGRD for lat-lon coordinates ! 2: LAMGRD for Lambert coordinates ! 3: MERGRD for Mercator coordinates ! 4: STEGRD for Stereographic coordinates ! 5: UTMGRD for UTM coordinates ! 6: POLGRD for polar stereographic coordinates ! 7: EQMGRD for equatorial Mercator coordinates ! 8: TRMGRD for transverse Mercator coordinates ! 9: ALBGRD for Albers equal-area conic ! 10: LEQGRD for Lambert azimuthal equal-area !------------------------------------------------------------------------------- IF ( met_mapproj == 1 ) THEN ! Lambert conformal gdtyp_gd = lamgrd3 ELSE IF ( met_mapproj == 2 ) THEN ! polar stereographic gdtyp_gd = polgrd3 ELSE IF ( met_mapproj == 3 ) THEN ! equatorial Mercator gdtyp_gd = eqmgrd3 ELSE WRITE (*,f9275) TRIM(pname), met_mapproj CALL graceful_stop (pname) ENDIF !------------------------------------------------------------------------------- ! The definitions of the map projection specification parameters, ! P_ALP_GD (alpha), P_BET_GD (beta), and P_GAM_GD (gamma), depend upon the ! projection type. (Note: if P_ALP_GD < AMISS, then the grid description is ! missing or invalid.) ! ! The following descriptions were liberally borrowed from the I/O API ! grid definition page: http://www.baronams.com/products/ioapi/GRIDS.html ! ! Lambert: P_ALP_GD <= P_BET_GD are the two latitudes that ! determine the projection cone; P_GAM_GD is the ! central meridian. ! ! Polar: P_ALP_GD is 1.0 for North Polar and -1.0 for South Polar. ! P_BET_GD is the secant latitude (latitude of true scale). ! P_GAM_GD is the central meridian. ! Eq. Mercator: P_ALP_GD is the latitude of the true scale, P_BET_GD is unused, ! and P_GAM_GD is the longitude of the central meridian. !------------------------------------------------------------------------------- p_alp_gd = DBLE(met_p_alp_d) p_bet_gd = DBLE(met_p_bet_d) p_gam_gd = DBLE(met_p_gam_d) !------------------------------------------------------------------------------- ! (XCENT_GD, YCENT_GD): ! For most projections, these are the longitude, -180 < X <= 180, and the ! latitude, -90 <= Y <= 90, for the center of the grid's respective Cartesian ! coordinate system. Units are meters. !------------------------------------------------------------------------------- IF ( ( met_model == 2 ) .AND. ( gdtyp_gd == lamgrd3 ) ) THEN xcent_gd = DBLE(met_proj_clon) ! [degrees longitude] ycent_gd = DBLE(met_ref_lat) ! [degrees latitude] ELSE IF ( gdtyp_gd == eqmgrd3 ) THEN xcent_gd = DBLE(met_proj_clon) ! [degrees longitude] ycent_gd = 0.0d0 ! [degrees latitude] ELSE xcent_gd = DBLE(met_proj_clon) ! [degrees longitude] ycent_gd = DBLE(met_proj_clat) ! [degrees latitude] ENDIF !------------------------------------------------------------------------------- ! (XCELL_GD, YCELL_GD): ! The X-direction and Y-direction cell dimensions (m) for a regular grid ! If zero, the grid is assumed irregular and described by other means (e.g. ! a grid-geometry file). !------------------------------------------------------------------------------- xcell_gd = DBLE(met_resoln) ! [m] ycell_gd = DBLE(met_resoln) ! [m] !------------------------------------------------------------------------------- ! VGTYP_GD: ! The vertical grid type: ! 1: VGSGPH3 for hydrostatic sigma-P coordinates ! 2: VGSGPN3 for non-hydrostatic sigma-P0 coordinates ! 3: VGSIGZ3 for sigma-Z coordinates ! 4: VGPRES3 for pressure (mb) coordinates ! 5: VGZVAL3 for Z (meters above mean sea level) ! 6: VHZVAL3 for H (meters above ground) ! 7: VGWRFEM for WRF mass-core sigma ! 8: VGWRFNM for WRF NMM ! -: IMISS for vertical coordinates not stored in VGLVSD ! (e.g., temporally or spatially changing vertical coordinates) !------------------------------------------------------------------------------- IF ( met_model == 2 ) THEN ! WRF-ARW IF ( met_hybrid <= 0 ) THEN ! sigma-type vertical coordinate vgtyp_gd = vgwrfem ! terrain-following dry hydrostatic pressure ELSE ! hybrid sigma-pressure vertical coordinate vgtyp_gd = imiss3 ENDIF ENDIF !------------------------------------------------------------------------------- ! VGTPUN_GD: ! The units of the vertical coordinate top. !------------------------------------------------------------------------------- vgtpun_gd = 'Pa' !------------------------------------------------------------------------------- ! VGTOP_GD: ! The value for the model top used in the definition of the sigma ! coordinate systems in the VGTPUN_GD units ! For sigma-P, the relationship between pressure levels P and sigma-P is ! given by the following formula: ! sigma-P = ( P - VGTOP_GD ) / (P_srf - VGTOP_GD ), ! where P_srf is the surface pressure. !------------------------------------------------------------------------------- vgtop_gd = met_ptop x3top = met_ptop !------------------------------------------------------------------------------- ! VGLVUN_GD: ! The units of the vertical coordinate surface values !------------------------------------------------------------------------------- vglvun_gd = 'none' !------------------------------------------------------------------------------- ! COORDNAM_GD: ! The coordinate system name used for I/O-API description and GRIDDESC. !------------------------------------------------------------------------------- coordnam_gd = coordnam !------------------------------------------------------------------------------- ! GDNAME_GD: ! The grid name used for I/O-API description and GRIDDESC. !------------------------------------------------------------------------------- gdname_gd = grdnam !------------------------------------------------------------------------------- ! Check origins of output MCIP domain and met from offsets. Take into account ! resolution of MET, MCIP, and NTHIK. ! (X0, Y0) = (COL_OFFSET, ROW_OFFSET) ! *** Note: The XORIG and YORIG values for WRF Lambert conformal are forced ! to increments of half-delta-X if a user-defined reference ! latitude was specified. !------------------------------------------------------------------------------- IF ( ( met_model == 2 ) .OR. ( gdtyp_gd == eqmgrd3 ) ) THEN ! WRF or Mercator xorig_ctm = met_xxctr - ( met_rictr_dot - FLOAT(x0+nthik) ) * met_resoln yorig_ctm = met_yyctr - ( met_rjctr_dot - FLOAT(y0+nthik) ) * met_resoln IF ( ( gdtyp_gd == lamgrd3 ) .AND. ( wrf_lc_ref_lat > -900.0 ) ) THEN ! Force XORIG and YORIG to be in increments of 5 meters. xtemp = xorig_ctm / 5.0 ytemp = yorig_ctm / 5.0 xtemp = FLOAT(NINT(xtemp)) ytemp = FLOAT(NINT(ytemp)) xorig_ctm = xtemp * 5.0 yorig_ctm = ytemp * 5.0 ENDIF ENDIF !------------------------------------------------------------------------------- ! (XORIG_GD, YORIG_GD): ! For Lambert, Mercator, Stereographic, and UTM these are the ! location in map units (Km) of the origin cell (1,1) (lower left corner) ! of the of the horizontal grid measured from (XCENT_GD, YCENT_GD). ! For Lat-Lon: units are degrees - unused !------------------------------------------------------------------------------- IF ( met_model == 2 ) THEN ! WRF -- Allow trailing digits. xorig_gd = DBLE(xorig_ctm) ! X-origin [m] yorig_gd = DBLE(yorig_ctm) ! Y-origin [m] ENDIF !------------------------------------------------------------------------------- ! Check user-defined MCIP output time info against input meteorology. !------------------------------------------------------------------------------- IF ( intvl < NINT(met_tapfrq) ) THEN WRITE (*,f9300) TRIM(pname), intvl, met_tapfrq CALL graceful_stop (pname) ENDIF IF ( mcip_start <= met_startdate ) THEN WRITE (*,f9400) TRIM(pname), mcip_start, met_startdate CALL graceful_stop (pname) ENDIF !------------------------------------------------------------------------------- ! Set up coordinates for diagnostic print on all domains. !------------------------------------------------------------------------------- IF ( ( lprt_col > ncols ) .OR. ( lprt_row > nrows ) .OR. & ( lprt_col < 0 ) .OR. ( lprt_row < 0 ) ) THEN WRITE (*,f9600) TRIM(pname), lprt_col, lprt_row, ncols, nrows CALL graceful_stop (pname) ENDIF IF ( lprt_col == 0 ) THEN IF ( ncols > 1 ) THEN lprt_col = (ncols + 1) / 2 ELSE lprt_col = 1 ENDIF ENDIF IF ( lprt_row == 0 ) THEN IF ( nrows > 1 ) THEN lprt_row = (nrows + 1) / 2 ELSE lprt_row = 1 ENDIF ENDIF lprt_xcol = lprt_col + nthik lprt_xrow = lprt_row + nthik lprt_metx = lprt_col + x0 lprt_mety = lprt_row + y0 !------------------------------------------------------------------------------- ! Echo user options and grid definitions to log file. !------------------------------------------------------------------------------- WRITE (*, "(/, 1x, 78('-'), /)") WRITE (*, "(24x, a, /)") 'USER OPTIONS AND GRID DEFINITIONS' WRITE (*,f6000) mcip_start, mcip_end, intvl SELECT CASE ( lpv ) CASE ( 0 ) option = 'Will not calculate and output 3D potential vorticity' CASE ( 1 ) option = 'Will calculate and output 3D potential vorticity' CASE DEFAULT option = '*** invalid ***' END SELECT WRITE (*,f6100) 'LPV ', lpv, TRIM(option) SELECT CASE ( lwout ) CASE ( 0 ) option = 'Will not output vertical velocity from the met model' CASE ( 1 ) option = 'Will output vertical velocity from the met model' CASE DEFAULT option = '*** invalid ***' END SELECT WRITE (*,f6100) 'LWOUT ', lwout, TRIM(option) SELECT CASE ( luvbout ) CASE ( 0 ) option = 'Will not output u- and v-component winds on B grid' CASE ( 1 ) option = 'Will output u- and v-component winds on B grid' CASE DEFAULT option = '*** invalid ***' END SELECT WRITE (*,f6100) 'LUVBOUT', luvbout, TRIM(option) SELECT CASE ( ioform ) CASE ( 1 ) option = 'Will write output in Models-3 I/O API' CASE ( 2 ) option = 'Will write output in netCDF' CASE DEFAULT option = '*** invalid ***' END SELECT WRITE (*,f6100) 'IOFORM ', ioform, TRIM(option) IF ( iflai ) THEN yesno = '' ELSE yesno = 'NOT' ENDIF WRITE (*,f6150) 'LAI', TRIM(yesno) IF ( iflufrc ) THEN yesno = '' ELSE yesno = 'NOT ' ENDIF WRITE (*,f6150) 'FRACTIONAL LAND USE', TRIM(yesno) IF ( ( iflufrc ) .AND. ( met_model == 2 ) ) THEN IF ( ifluwrfout ) THEN yesno = 'WRF' ELSE yesno = 'GEO' ENDIF WRITE (*,f6160) 'FRACTIONAL LAND USE', TRIM(yesno) ENDIF IF ( ifmol ) THEN yesno = '' ELSE yesno = 'NOT' ENDIF WRITE (*,f6150) 'MONIN-OBUKHOV LENGTH', TRIM(yesno) IF ( ifmolpx ) THEN yesno = '' ELSE yesno = 'NOT' ENDIF WRITE (*,f6155) 'MONIN-OBUKHOV LENGTH', TRIM(yesno) IF ( ifresist ) THEN yesno = '' ELSE yesno = 'NOT' ENDIF WRITE (*,f6150) 'AERODYNAMIC AND STOMATAL RESISTANCE', TRIM(yesno) IF ( ift2m ) THEN yesno = '' ELSE yesno = 'NOT' ENDIF WRITE (*,f6150) '2-m TEMPERATURE', TRIM(yesno) IF ( ifq2m ) THEN yesno = '' ELSE yesno = 'NOT' ENDIF WRITE (*,f6150) '2-m MIXING RATIO', TRIM(yesno) IF ( ifveg ) THEN yesno = '' ELSE yesno = 'NOT' ENDIF WRITE (*,f6150) 'VEGETATION FRACTION', TRIM(yesno) IF ( ifw10m ) THEN yesno = '' ELSE yesno = 'NOT' ENDIF WRITE (*,f6150) '10-m WIND', TRIM(yesno) IF ( ifwr ) THEN yesno = '' ELSE yesno = 'NOT' ENDIF WRITE (*,f6150) 'CANOPY WETNESS', TRIM(yesno) IF ( ifznt ) THEN yesno = '' ELSE yesno = 'NOT' ENDIF WRITE (*,f6150) 'ROUGHNESS LENGTH', TRIM(yesno) IF ( ifsoil ) THEN yesno = '' ELSE yesno = 'NOT' ENDIF WRITE (*,f6150) 'SOIL MOISTURE, TEMPERATURE, AND TYPE', TRIM(yesno) WRITE (*,f6175) 'SOIL MOISTURE, TEMPERATURE, AND TYPE', TRIM(yesno) IF ( iftke ) THEN yesno = '' ELSE yesno = 'NOT' ENDIF WRITE (*,f6150) 'TURBULENT KINETIC ENERGY', TRIM(yesno) IF ( ( iftke ) .AND. ( .NOT. iftkef ) ) THEN WRITE (*,*) ' TKE is on half-layers' ELSE IF ( ( iftke ) .AND. ( iftkef ) ) THEN WRITE (*,*) ' TKE is on full-levels' ENDIF IF ( met_urban_phys >= 1 ) THEN yesno = '' ELSE yesno = 'NOT' ENDIF IF ( met_model == 2 ) THEN WRITE (*,f6180) 'URBAN CANOPY MODEL (WRF ONLY)', TRIM(yesno) ENDIF IF ( ifcld3d ) THEN yesno = '' ELSE yesno = 'NOT' ENDIF WRITE (*,f6150) '3D RESOLVED CLOUD FRACTION', TRIM(yesno) IF ( ifpxwrf41 ) THEN yesno = '' ELSE yesno = 'NOT' ENDIF WRITE (*,f6175) 'ADDITIONAL PX SURFACE VARIABLES', TRIM(yesno) IF ( ifkfradextras ) THEN yesno = '' ELSE yesno = 'NOT' ENDIF WRITE (*,f6175) 'ADDITIONAL KF-RAD 3D VARIABLES', TRIM(yesno) IF ( met_hybrid > 0 ) THEN yesno = '' ELSE yesno = 'NOT' ENDIF WRITE (*,f6180) 'HYBRID VERTICAL COORDINATE', TRIM(yesno) WRITE (*,'(/)') WRITE (*,f6200) 'Met ', met_nx, met_ny, metlay WRITE (*,f6200) 'MCIP X', ncols_x, nrows_x, metlay WRITE (*,f6200) 'Output', ncols, nrows, nlays WRITE (*,'(/)') WRITE (*,*) 'Output grid resolution: ', xcell_gd / 1000.0, ' km' WRITE (*,*) 'Window domain origin on met domain (col,row): ', & x0, ', ', y0 WRITE (*,*) 'Window domain far corner on met domain (col,row): ', & x0 + ncg_x, ', ', y0 + ncg_y WRITE (*,'(/)') WRITE (*,"(' Cells and points for diagnostic prints')") WRITE (*,f6300) 'LPRT_COL ', 'LPRT_ROW ', lprt_col, lprt_row WRITE (*,f6300) 'LPRT_XCOL', 'LPRT_XROW', lprt_xcol, lprt_xrow WRITE (*,f6300) 'LPRT_METX', 'LPRT_METY', lprt_metx, lprt_mety WRITE (*,'(/)') WRITE (*,"(' IOAPI header variables:')") WRITE (*,f6400) 'GDTYP3D', gdtyp_gd WRITE (*,f6500) 'GDNAM3D', gdname_gd WRITE (*,f6600) 'P_ALP3D', p_alp_gd WRITE (*,f6600) 'P_BET3D', p_bet_gd WRITE (*,f6600) 'P_GAM3D', p_gam_gd WRITE (*,f6600) 'XCENT3D', xcent_gd WRITE (*,f6600) 'YCENT3D', ycent_gd WRITE (*,f6600) 'XORIG3D', xorig_gd WRITE (*,f6600) 'YORIG3D', yorig_gd WRITE (*,f6600) 'XCELL3D', xcell_gd WRITE (*,f6600) 'YCELL3D', ycell_gd WRITE (*,f6400) 'VGTYP3D', vgtyp_gd WRITE (*,f6600) 'VGTOP3D', vgtop_gd END SUBROUTINE setgriddefs ================================================ FILE: PREP/mcip/src/setup.f90 ================================================ !------------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------------! SUBROUTINE setup (ctmlays) !------------------------------------------------------------------------------- ! Name: Set Up the Input Meteorology Domain Attributes ! Purpose: Establishes bounds for MM5 or WRF post-processing. ! Revised: 10 Sep 2001 Original version. (T. Otte) ! 07 Jan 2002 Changed file name to explicit file rather than ! Fortran unit to improve portability. (S. Howard ! and T. Otte) ! 09 Jan 2002 Changed calls to "abort" to calls to "m3exit" for ! graceful shut-down of I/O API files. (T. Otte) ! 26 May 2005 Added WRF capability. Changed routine name from ! SETUPMM5 to SETUP to make code more general. (T. Otte) ! 09 Apr 2007 Removed option to handle MM5v2-formatted data. ! (T. Otte) ! 22 Apr 2008 Set WRF DYN_OPT to 2 (mass core) for WRFv3 and ! beyond because support for other cores within WRF-ARW ! was discontinued in WRFv3. (T. Otte) ! 17 Mar 2010 Changed all calls to netCDF routines to use the ! Fortran interface rather than the C interface. ! Rearranged subroutine to improve efficiency. Removed ! dependency on module WRF_NETCDF. Improved clarity ! in some error-handling messages. Added CDFID to the ! argument list for subroutine SETUP_WRFEM. (T. Otte) ! 31 Aug 2011 Changed name of module FILE to FILES to avoid conflict ! with F90 protected intrinsic. Updated netCDF commands ! to F90, and improved error handling. Changed F77 ! character declarations to F90 standard. (T. Otte) ! 07 Sep 2011 Updated disclaimer. (T. Otte) ! 14 Sep 2018 Removed support for MM5v3 input. (T. Spero) ! 15 Nov 2018 Allow WRFv4.0 input to be used. (T. Spero) !------------------------------------------------------------------------------- USE mcipparm USE metinfo USE files USE netcdf IMPLICIT NONE INTEGER :: cdfid REAL, INTENT(INOUT) :: ctmlays ( maxlays ) CHARACTER(LEN=19) :: gridtype INTEGER :: istat CHARACTER(LEN=16), PARAMETER :: pname = 'SETUP' INTEGER :: rcode CHARACTER(LEN=80) :: wrfversion !------------------------------------------------------------------------------- ! Error, warning, and informational messages. !------------------------------------------------------------------------------- CHARACTER(LEN=256), PARAMETER :: f9000 = "(/, 1x, 70('*'), & & /, 1x, '*** SUBROUTINE: ', a, & & /, 1x, '*** ERROR OPENING WRF NETCDF FILE', & & /, 1x, '*** FILE = ', a, & & /, 1x, '*** NCF: ', a, & & /, 1x, 70('*'))" CHARACTER(LEN=256), PARAMETER :: f9200 = "(/, 1x, 70('*'), & & /, 1x, '*** SUBROUTINE: ', a, & & /, 1x, '*** UNKNOWN WRF OUTPUT VERSION', & & /, 1x, '*** IVERSION = ', i3, & & /, 1x, '*** GRIDTYPE = ', a, & & /, 1x, 70('*'))" CHARACTER(LEN=256), PARAMETER :: f9300 = "(/, 1x, 70('*'), & & /, 1x, '*** SUBROUTINE: ', a, & & /, 1x, '*** ERROR RETRIEVING VARIABLE FROM WRF FILE', & & /, 1x, '*** VARIABLE = ', a, & & /, 1x, '*** NCF: ', a, & & /, 1x, 70('*'))" CHARACTER(LEN=256), PARAMETER :: f9400 = "(/, 1x, 70('*'), & & /, 1x, '*** SUBROUTINE: ', a, & & /, 1x, '*** UNKNOWN OR UNSUPPORTED WRF OUTPUT VERSION', & & /, 1x, '*** VERSION = ', a, & & /, 1x, 70('*'))" CHARACTER(LEN=256), PARAMETER :: f9500 = "(/, 1x, 70('*'), & & /, 1x, '*** SUBROUTINE: ', a, & & /, 1x, '*** ERROR CLOSING WRF FILE', & & /, 1x, '*** NCF: ', a, & & /, 1x, 70('*'))" !------------------------------------------------------------------------------- ! Try to determine if input meteorology file is in NetCDF format or not. ! If NetCDF format, it is probably WRF. !------------------------------------------------------------------------------- rcode = nf90_open (file_mm(1), nf90_nowrite, cdfid) IF ( rcode == nf90_noerr ) THEN ! successfully opened NetCDF file; assume WRF !--------------------------------------------------------------------------- ! If WRF, determine whether or not the Advanced Research WRF, ARW, formerly ! known as Eulerian mass, EM) version was used. !--------------------------------------------------------------------------- met_model = 2 rcode = nf90_get_att (cdfid, nf90_global, 'DYN_OPT', met_iversion) IF ( rcode /= nf90_noerr ) THEN rcode = nf90_get_att (cdfid, nf90_global, 'TITLE', wrfversion) IF ( rcode /= nf90_noerr ) THEN WRITE (*,f9300) TRIM(pname), 'TITLE', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF IF ( wrfversion(18:19) >= "V3" ) THEN met_iversion = 2 ! NCAR only supports mass core in WRFv3 and beyond ELSE WRITE (*,f9400) TRIM(pname), TRIM(wrfversion) CALL graceful_stop (pname) ENDIF ENDIF rcode = nf90_get_att (cdfid, nf90_global, 'GRIDTYPE', gridtype) IF ( rcode /= nf90_noerr ) THEN WRITE (*,f9300) TRIM(pname), 'GRIDTYPE', rcode CALL graceful_stop (pname) ENDIF IF ( ( met_iversion == 2 ) .AND. ( gridtype(1:1) == "C" ) ) THEN CALL setup_wrfem (cdfid, ctmlays) ELSE WRITE (*,f9200) TRIM(pname), met_iversion, gridtype CALL graceful_stop (pname) ENDIF rcode = nf90_close (cdfid) IF ( rcode /= nf90_noerr ) THEN WRITE (*,f9500) TRIM(pname), TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ELSE ! error opening file as NetCDF WRITE (*,f9000) TRIM(pname), TRIM(file_mm(1)), TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF END SUBROUTINE setup ================================================ FILE: PREP/mcip/src/setup_wrfem.f90 ================================================ !------------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------------! SUBROUTINE setup_wrfem (cdfid, ctmlays) !------------------------------------------------------------------------------- ! Name: Set Up the WRF Domain Attributes ! Purpose: Establishes bounds for WRF post-processing. ! Revised: ?? Jun 2004 Modified from MCIP2.2 for WRF. (S.-B. Kim) ! 26 May 2005 Changed vertical dimension to reflect full-layer ! dimension in WRFv2 header. Added dynamic calculation ! of MET_TAPFRQ. Converted dimensions to X,Y as opposed ! to the (former) convention that aligned with MM5. ! Included updates from MCIPv2.3. Added calculation of ! cone factor. Added logic for moist species, 2-m ! temperature, and 10-m winds. Added definitions for ! WRF base state variables. Added capability to use all ! WRF layers for MCIP without defining a priori. ! Cleaned up code. (T. Otte) ! 15 Jul 2005 Added debugging on variable retrievals. Changed check ! on 3D mixing ratios from rain to ice. Corrected RADM ! seasons for Southern Hemisphere. Corrected variable ! name for retrieval of surface physics option. (T. Otte) ! 18 Aug 2005 Changed internal variable SIGN to FAC to avoid ! confusion with F90 intrinsic function. (T. Otte) ! 10 Apr 2006 Corrected checking of I/O API variables for Mercator ! projection. (T. Otte) ! 12 May 2006 Corrected setting of I/O API variables for polar ! stereographic projection. Revised defining and ! setting projection variables for module METINFO. ! Added restriction on using Eta/Ferrier microphysics ! scheme where QCLOUD represents total condensate. ! (T. Otte) ! 20 Jun 2006 Changed setting of IDTSEC from REAL to INTEGER ! value. (T. Otte) ! 27 Jul 2007 Removed settings for RADMdry variable ISESN and for ! MET_INHYD. Updated read of P_TOP to account for new ! method of storing "real" scalars in WRF I/O API with ! WRFv2.2. Added checks for fractional land use, leaf ! area index, Monin-Obukhov length, aerodynamic and ! stomatal resistances, vegetation fraction, canopy ! wetness, and soil moisture, temperature, and type in ! WRF file. Added read for number of land use ! categories...new with WRFV2.2. Added read for number ! of soil layers, MET_RELEASE, MET_FDDA_3DAN and ! MET_FDDA_OBS. Set MET_FDDA_SFAN to 0 for now because ! that option is not in WRF ARW as of V2.2. Changed ! MET_RADIATION into MET_LW_RAD and MET_SW_RAD. ! (T. Otte) ! 06 May 2008 Changed criteria for setting NUMMETLU when netCDF ! dimension "land_cat_stag" does not exist. Added ! checks to determine if 2-m mixing ratio (Q2) and ! turbulent kinetic energy (TKE_MYJ) arrays exist, and ! set flags appropriately. Extract nudging coefficients ! from header to use in metadata. Extract whether or ! not the urban canopy model was used. (T. Otte) ! 27 Oct 2009 Cleaned up file opening and logging in WRF I/O API to ! prevent condition with too many files open for long ! simulations. Added MODIFIED IGBP MODIS NOAH and ! NLCD/MODIS as land-use classification options. ! Changed MET_UCMCALL to MET_URBAN_PHYS, and allowed ! for variable to be set to be greater than 1. Chnaged ! code to allow for surface analysis nudging option ! and coefficients to be defined per WRFv3.1. Define ! MET_CEN_LAT, MET_CEN_LON, MET_RICTR_DOT, MET_RJCTR_DOT, ! and MET_REF_LAT. Increased MAX_TIMES to 1000. Compute ! MET_XXCTR and MET_YYCTR. Corrected setting for ! DATE_INIT, and fill variable MET_RESTART. Read number ! of land use categories from WRF global attributes for ! WRFV3.1 and beyond. Allow output from WRF ! Preprocessing System (WPS) routine, GEOGRID, to provide ! fractional land use output if it is unavailable in WRF ! output. Fill MET_P_ALP_D and MET_P_BET_D here ! rather than in setgriddefs.F for Mercator. Added ! new logical variables IFLUWRFOUT and IFZNT. (T. Otte) ! 12 Feb 2010 Removed unused variables COMM and SYSDEP_INFO. ! (T. Otte) ! 18 Mar 2010 Added CDFID as an input argument, and no longer open ! and close WRF history file here. Added CDFIDG as an ! input argument for subroutine CHKWPSHDR. (T. Otte) ! 15 Dec 2010 Improved support for long MCIP runs from long WRF ! runs by increasing MAX_TIMES to 9999. Added ! MET_RAIN_BUCKET. (T. Otte) ! 23 Feb 2011 Refined error checking for MET_RAIN_BUCKET. (T. Otte) ! 11 Aug 2011 Added MET_SHAL_CU to input. Replaced module PARMS3 ! with I/O API module M3UTILIO. (T. Otte) ! 24 Aug 2011 Changed name of module FILE to FILES to avoid conflict ! with F90 protected intrinsic. Updated netCDF commands ! to F90, and improved error handling. Replaced calls ! to GET_TIMES_CDF with explicit netCDF functions. ! (T. Otte) ! 07 Sep 2011 Updated disclaimer. (T. Otte) ! 21 Nov 2011 Force 2-m water vapor mixing ratio from WRF with ! YSU PBL to be filled with layer 1 QVAPOR to avoid ! occasional Q2 < 0 in wintertime. (T. Otte) ! 07 Dec 2011 Removed requirement to fill nudging coefficient for ! moisture when spectral nudging is used in WRF; as of ! WRFv3.3.1, spectral nudging toward moisture is not ! released in WRF. Also added provision to collect ! nudging coefficient for geopotential when spectral ! nudging is used; was added to WRF header with WRFv3.2. ! (T. Otte) ! 21 Aug 2012 Added MET_PCP_INCR for WRFV3.2+. (T. Otte) ! 10 Sep 2012 Added handling for 40-category 2006 NLCD-MODIS land ! use classification as "NLCD40". Added alternate name ! for 50-category 2001 NLCD-MODIS land use classification ! as "NLCD50". (T. Otte) ! 26 Nov 2014 Added reads of ice, lake, and urban land use indices, ! and moved those definitions from getluse.f90 to this ! routine. (T. Spero) ! 10 Apr 2015 Determine if 3D cloud fraction is part of WRF output ! and if it represents resolved clouds. Fill new logical ! variable IFCLD3D appropriately so that if resolved ! cloud fraction is available, it will be passed through ! in output. (T. Spero) ! 21 Aug 2015 Added flag to capture whether ACM2 was run so that ! Monin-Obukhov length can be recalculated following ! the "corrector" part of the predictor-corrector in ! WRF/ACM2. (T. Spero) ! 17 Sep 2015 Changed IFMOLACM to IFMOLPX. (T. Spero) ! 21 Apr 2017 Added MODIS category 21 as "Lake". (T. Spero) ! 23 Jun 2017 Added a check for WRF's hybrid vertical coordinate ! in WRFv3.9 and beyond. Currently disabled MCIP when ! that coordinate is detected. To be implemented in ! a later release of MCIP. (T. Spero) ! 09 Feb 2018 Added support for hybrid vertical coordinate in WRF ! output. Added capability to read and process data ! from the NOAH Mosaic land-surface model. (T. Spero) ! 26 Jun 2018 Changed name of module with netCDF IO to broaden its ! usage. Now use netCDF tokens for missing data. ! (T. Spero) ! 14 Sep 2018 Removed support for MM5v3 input. (T. Spero) ! 23 Nov 2018 Modify criteria to determine whether incremental ! precipitation is available in WRF output. WRFv4.0 ! allows header variable PREC_ACC_DT to appear even if ! the accompanying precipitation fields are not in the ! output. (T. Spero) ! 14 Dec 2018 Added flag (IFRCURB) to determine if fraction of urban ! area is obtained from urban canopy model. (T. Spero) ! 10 May 2019 Removed layer collapsing. (T. Spero) ! 18 Jun 2019 Added a flag (IFPXWRF41) to determine of new surface ! variables with PX LSM are available to improve dust ! simulation in CCTM. Added a flag (IFCURADFDBK) to ! indicate if the convective scheme included radiative ! feedbacks. Added a flag (IFKFRADEXTRAS) for extra ! variables available with KF convective scheme with ! radiative feedbacks. (T. Spero) ! 07 Nov 2019 Expanded options to allow for surface analysis ! nudging option 2 (FASDAS), which has been available ! since WRFv3.8. (T. Spero) !------------------------------------------------------------------------------- USE metinfo USE date_pack USE mcipparm USE files USE netcdf_io USE const, ONLY: pi180 USE netcdf IMPLICIT NONE INTEGER , INTENT(IN) :: cdfid INTEGER :: cdfid2 INTEGER :: cdfidg REAL, INTENT(OUT) :: ctmlays ( maxlays ) CHARACTER(LEN=19) :: date_init CHARACTER(LEN=19) :: date_start INTEGER :: dimid INTEGER :: dimids ( nf90_max_var_dims ) REAL, ALLOCATABLE :: dum1d ( : ) REAL, ALLOCATABLE :: dum2d ( : , : ) REAL :: dx REAL :: dy REAL :: fac CHARACTER(LEN=256) :: fl CHARACTER(LEN=256) :: fl2 CHARACTER(LEN=256) :: flg CHARACTER(LEN=256) :: geofile INTEGER :: icloud_cu INTEGER :: id_data INTEGER :: idtsec LOGICAL :: ifgeo LOGICAL :: ifisltyp LOGICAL :: ifra LOGICAL :: ifrs LOGICAL :: ifsmois LOGICAL :: iftslb LOGICAL :: ifu10m LOGICAL :: ifv10m INTEGER :: it INTEGER :: ival INTEGER :: lent INTEGER :: n_times INTEGER :: nxm INTEGER :: nym CHARACTER(LEN=16), PARAMETER :: pname = 'SETUP_WRFEM' INTEGER :: rcode REAL :: rval CHARACTER(LEN=19), ALLOCATABLE :: times ( : ) CHARACTER(LEN=19), ALLOCATABLE :: times2 ( : ) INTEGER :: varid CHARACTER(LEN=80) :: wrfversion !------------------------------------------------------------------------------- ! Error, warning, and informational messages. !------------------------------------------------------------------------------- CHARACTER(LEN=256), PARAMETER :: f6000 = "(/, 1x, & & '- SUBROUTINE SETUP_WRFEM - READING WRF HEADER')" CHARACTER(LEN=256), PARAMETER :: f6100 = "(3x, & & 'WRF GRID DIMENSIONS (X,Y,Z) ', i4, 1x, i4, 1x, i3, //)" CHARACTER(LEN=256), PARAMETER :: f9000 = "(/, 1x, 70('*'), & & /, 1x, '*** SUBROUTINE: ', a, & & /, 1x, '*** MISMATCH IN DX AND DY', & & /, 1x, '*** DX, DY = ', 2(f7.2), & & /, 1x, 70('*'))" CHARACTER(LEN=256), PARAMETER :: f9100 = "(/, 1x, 70('*'), & & /, 1x, '*** SUBROUTINE: ', a, & & /, 1x, '*** UNKNOWN LAND USE CLASSIFICATION', & & /, 1x, '*** FIRST THREE LETTERS = ', a, & & /, 1x, 70('*'))" CHARACTER(LEN=256), PARAMETER :: f9225 = "(/, 1x, 70('*'), & & /, 1x, '*** SUBROUTINE: ', a, & & /, 1x, '*** QCLOUD NOT FOUND IN WRF OUTPUT...STOPPING', & & /, 1x, 70('*'))" CHARACTER(LEN=256), PARAMETER :: f9250 = "(/, 1x, 70('*'), & & /, 1x, '*** SUBROUTINE: ', a, & & /, 1x, '*** ETA/FERRIER SCHEME IS NOT SUPPORTED IN CMAQ', & & /, 1x, 70('*'))" CHARACTER(LEN=256), PARAMETER :: f9275 = "(/, 1x, 70('*'), & & /, 1x, '*** SUBROUTINE: ', a, & & /, 1x, '*** FOUND QCLOUD BUT NOT QRAIN...STOPPING', & & /, 1x, 70('*'))" CHARACTER(LEN=256), PARAMETER :: f9300 = "(/, 1x, 70('*'), & & /, 1x, '*** SUBROUTINE: ', a, & & /, 1x, '*** NQSPECIES SET AT 3',& & /, 1x, '*** MCIP NEEDS TO BE MODIFIED FOR THIS CASE', & & /, 1x, 70('*'))" CHARACTER(LEN=256), PARAMETER :: f9400 = "(/, 1x, 70('*'), & & /, 1x, '*** SUBROUTINE: ', a, & & /, 1x, '*** ERROR RETRIEVING VARIABLE FROM WRF FILE', & & /, 1x, '*** VARIABLE = ', a, & & /, 1x, '*** NCF: ', a, & & /, 1x, 70('*'))" CHARACTER(LEN=256), PARAMETER :: f9410 = "(/, 1x, 70('*'), & & /, 1x, '*** SUBROUTINE: ', a, & & /, 1x, '*** ERROR RETRIEVING NCF ID FROM WRF FILE', & & /, 1x, '*** VARIABLE = ', a, & & /, 1x, '*** NCF: ', a, & & /, 1x, 70('*'))" CHARACTER(LEN=256), PARAMETER :: f9420 = "(/, 1x, 70('*'), & & /, 1x, '*** SUBROUTINE: ', a, & & /, 1x, '*** ERROR INQUIRING ABOUT VAR IN WRF FILE', & & /, 1x, '*** VARIABLE = ', a, & & /, 1x, '*** NCF: ', a, & & /, 1x, 70('*'))" CHARACTER(LEN=256), PARAMETER :: f9430 = "(/, 1x, 70('*'), & & /, 1x, '*** SUBROUTINE: ', a, & & /, 1x, '*** ERROR RETRIEVING DIMS FROM WRF FILE', & & /, 1x, '*** VARIABLE = ', a, & & /, 1x, '*** NCF: ', a, & & /, 1x, 70('*'))" CHARACTER(LEN=256), PARAMETER :: f9500 = "(/, 1x, 70('*'), & & /, 1x, '*** SUBROUTINE: ', a, & & /, 1x, '*** ONLY FOUND ONE FILE WITH ONE TIME PERIOD', & & /, 1x, '*** SETTING OUTPUT FREQUENCY TO 1 MINUTE', & & /, 1x, 70('*'))" CHARACTER(LEN=256), PARAMETER :: f9550 = "(/, 1x, 70('*'), & & /, 1x, '*** SUBROUTINE: ', a, & & /, 1x, '*** NEED PRECIPITATION ACCUMULATION IN WRF TO MATCH', & & /, 1x, '*** MCIP OUTPUT INTERVAL', & & /, 1x, '*** PREC_ACC_DT from WRF: ', i4, & & /, 1x, '*** INTVL from MCIP: ', i4, & & /, 1x, 70('*'))" CHARACTER(LEN=256), PARAMETER :: f9600 = "(/, 1x, 70('*'), & & /, 1x, '*** SUBROUTINE: ', a, & & /, 1x, '*** ERROR OPENING WRF NETCDF FILE', & & /, 1x, '*** FILE = ', a, & & /, 1x, 70('*'))" CHARACTER(LEN=256), PARAMETER :: f9700 = "(/, 1x, 70('*'), & & /, 1x, '*** SUBROUTINE: ', a, & & /, 1x, '*** ERROR CLOSING WRF NETCDF FILE', & & /, 1x, '*** FILE = ', a, & & /, 1x, 70('*'))" CHARACTER(LEN=256), PARAMETER :: f9800 = "(/, 1x, 70('*'), & & /, 1x, '*** SUBROUTINE: ', a, & & /, 1x, '*** DID NOT FIND FRACTIONAL LAND USE IN wrfout', & & /, 1x, '*** AND DID NOT FIND GEOGRID FILE' & & /, 1x, '*** -- WILL NOT USE FRACTIONAL LAND USE DATA' & & /, 1x, 70('*'))" !------------------------------------------------------------------------------- ! Extract NX, NY, and NZ. !------------------------------------------------------------------------------- WRITE (*,f6000) fl = file_mm(1) rcode = nf90_get_att (cdfid, nf90_global, 'WEST-EAST_GRID_DIMENSION', met_nx) IF ( rcode /= nf90_noerr ) THEN WRITE (*,f9400) TRIM(pname), 'WEST-EAST_GRID_DIMENSION', & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF rcode = nf90_get_att (cdfid, nf90_global, 'SOUTH-NORTH_GRID_DIMENSION', & met_ny) IF ( rcode /= nf90_noerr ) THEN WRITE (*,f9400) TRIM(pname), 'SOUTH-NORTH_GRID_DIMENSION', & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF rcode = nf90_get_att (cdfid, nf90_global, 'BOTTOM-TOP_GRID_DIMENSION', ival) IF ( rcode /= nf90_noerr ) THEN WRITE (*,f9400) TRIM(pname), 'BOTTOM-TOP_GRID_DIMENSION', & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ELSE met_nz = ival - 1 ENDIF WRITE (*,f6100) met_nx, met_ny, met_nz met_rictr_dot = FLOAT(met_nx - 1) / 2.0 + 1.0 met_rjctr_dot = FLOAT(met_ny - 1) / 2.0 + 1.0 !------------------------------------------------------------------------------- ! If layer structure was not defined in user namelist, use WRF layers. !------------------------------------------------------------------------------- nlays = met_nz CALL get_var_1d_real_cdf (cdfid, 'ZNW', ctmlays(1:nlays+1), 1, rcode) IF ( rcode /= nf90_noerr ) THEN WRITE (*,f9400) TRIM(pname), 'ZNW', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF !------------------------------------------------------------------------------- ! Extract domain attributes. !------------------------------------------------------------------------------- rcode = nf90_get_att (cdfid, nf90_global, 'TITLE', wrfversion) IF ( rcode /= nf90_noerr ) THEN WRITE (*,f9400) TRIM(pname), 'TITLE', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF rcode = nf90_get_att (cdfid, nf90_global, 'DX', dx) IF ( rcode /= nf90_noerr ) THEN WRITE (*,f9400) TRIM(pname), 'DX', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF rcode = nf90_get_att (cdfid, nf90_global, 'DY', dy) IF ( rcode /= nf90_noerr ) THEN WRITE (*,f9400) TRIM(pname), 'DY', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF IF (dx == dy) THEN met_resoln = dx ELSE WRITE (*,f9000) TRIM(pname), dx, dy CALL graceful_stop (pname) ENDIF met_nxcoarse = met_nx met_nycoarse = met_ny met_gratio = 1 met_x_11 = 1 met_y_11 = 1 rcode = nf90_get_att (cdfid, nf90_global, 'MAP_PROJ', met_mapproj) IF ( rcode /= nf90_noerr ) THEN WRITE (*,f9400) TRIM(pname), 'MAP_PROJ', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF rcode = nf90_get_att (cdfid, nf90_global, 'STAND_LON', met_proj_clon) IF ( rcode /= nf90_noerr ) THEN WRITE (*,f9400) TRIM(pname), 'STAND_LON', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF rcode = nf90_get_att (cdfid, nf90_global, 'MOAD_CEN_LAT', met_proj_clat) IF ( rcode /= nf90_noerr ) THEN WRITE (*,f9400) TRIM(pname), 'MOAD_CEN_LAT', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF rcode = nf90_get_att (cdfid, nf90_global, 'CEN_LON', met_cen_lon) IF ( rcode /= nf90_noerr ) THEN WRITE (*,f9400) TRIM(pname), 'CEN_LON', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF met_x_centd = met_cen_lon rcode = nf90_get_att (cdfid, nf90_global, 'CEN_LAT', met_cen_lat) IF ( rcode /= nf90_noerr ) THEN WRITE (*,f9400) TRIM(pname), 'CEN_LAT', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF met_y_centd = met_cen_lat rcode = nf90_get_att (cdfid, nf90_global, 'TRUELAT1', met_tru1) IF ( rcode /= nf90_noerr ) THEN WRITE (*,f9400) TRIM(pname), 'TRUELAT1', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF rcode = nf90_get_att (cdfid, nf90_global, 'TRUELAT2', met_tru2) IF ( rcode /= nf90_noerr ) THEN WRITE (*,f9400) TRIM(pname), 'TRUELAT2', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF SELECT CASE ( met_mapproj ) CASE (1) ! Lambert conformal met_p_alp_d = MIN(met_tru1, met_tru2) ! true latitude 1 [degrees] met_p_bet_d = MAX(met_tru1, met_tru2) ! true latitude 2 [degrees] met_p_gam_d = met_proj_clon ! central meridian [degrees] IF ( met_proj_clat < 0.0 ) THEN fac = -1.0 ! Southern Hemisphere ELSE fac = 1.0 ! Northern Hemisphere ENDIF IF ( ABS(met_tru1 - met_tru2) > 1.0e-1 ) THEN met_cone_fac = ALOG10(COS(met_tru1 * pi180)) - & ALOG10(COS(met_tru2 * pi180)) met_cone_fac = met_cone_fac / & ( ALOG10(TAN((45.0 - fac*met_tru1/2.0) * pi180)) - & ALOG10(TAN((45.0 - fac*met_tru2/2.0) * pi180)) ) ELSE met_cone_fac = fac * SIN(met_tru1*pi180) ENDIF IF ( wrf_lc_ref_lat > -999.0 ) THEN met_ref_lat = wrf_lc_ref_lat ELSE met_ref_lat = ( met_tru1 + met_tru2 ) * 0.5 ENDIF CALL ll2xy_lam (met_cen_lat, met_cen_lon, met_tru1, met_tru2, & met_proj_clon, met_ref_lat, met_xxctr, met_yyctr) CASE (2) ! polar stereographic met_p_alp_d = SIGN(1.0, met_y_centd) ! +/-1.0 for North/South Pole met_p_bet_d = met_tru1 ! true latitude [degrees] met_p_gam_d = met_proj_clon ! central meridian [degrees] met_cone_fac = 1.0 ! cone factor met_ref_lat = -999.0 ! not used CALL ll2xy_ps (met_cen_lat, met_cen_lon, met_tru1, met_proj_clon, & met_xxctr, met_yyctr) CASE (3) ! Mercator met_p_alp_d = 0.0 ! lat of coord origin [deg] met_p_bet_d = 0.0 ! (not used) met_p_gam_d = met_proj_clon ! lon of coord origin [deg] met_cone_fac = 0.0 ! cone factor met_ref_lat = -999.0 ! not used CALL ll2xy_merc (met_cen_lat, met_cen_lon, met_proj_clon, & met_xxctr, met_yyctr) CASE DEFAULT met_p_bet_d = fillreal ! missing met_p_alp_d = fillreal ! missing met_p_gam_d = fillreal ! missing met_cone_fac = fillreal ! missing met_ref_lat = fillreal ! missing END SELECT !------------------------------------------------------------------------------- ! Extract model run options. !------------------------------------------------------------------------------- rcode = nf90_get_att (cdfid, nf90_global, 'MMINLU', met_lu_src) IF ( rcode /= nf90_noerr ) THEN WRITE (*,f9400) TRIM(pname), 'MMINLU', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF rcode = nf90_get_att (cdfid, nf90_global, 'ISWATER', met_lu_water) IF ( rcode /= nf90_noerr ) THEN WRITE (*,f9400) TRIM(pname), 'ISWATER', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF rcode = nf90_inq_dimid (cdfid, 'soil_layers_stag', dimid) IF ( rcode /= nf90_noerr ) THEN WRITE (*,f9400) TRIM(pname), 'ID for soil_layers_stag', & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF rcode = nf90_inquire_dimension (cdfid, dimid, len=met_ns) IF ( rcode /= nf90_noerr ) THEN WRITE (*,f9400) TRIM(pname), 'value for soil_layers_stag', & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ! Determine if NOAH Mosaic was run and created the correct output fields. ! Note that this code is temporarily modified later in this subroutine to ! toggle IFMOSAIC to FALSE if the fractional land use arrays are also not ! available. That change is temporary until a subroutine is added to ! reconstruct the fractional land use rank if it is missing. rcode = nf90_inq_dimid (cdfid, 'mosaic', dimid) IF ( rcode /= nf90_noerr ) THEN ifmosaic = .FALSE. ELSE rcode = nf90_inq_varid (cdfid, 'TSK_MOSAIC', rcode) IF ( rcode /= nf90_noerr ) THEN ifmosaic = .FALSE. ELSE rcode = nf90_inq_varid (cdfid, 'ZNT_MOSAIC', rcode) IF ( rcode /= nf90_noerr ) THEN ifmosaic = .FALSE. ELSE rcode = nf90_inq_varid (cdfid, 'LAI_MOSAIC', rcode) IF ( rcode /= nf90_noerr ) THEN ifmosaic = .FALSE. ELSE rcode = nf90_inq_varid (cdfid, 'RS_MOSAIC', rcode) IF ( rcode /= nf90_noerr ) THEN ifmosaic = .FALSE. ELSE ifmosaic = .TRUE. rcode = nf90_inquire_dimension (cdfid, dimid, len=nummosaic) IF ( rcode /= nf90_noerr ) THEN WRITE (*,f9400) TRIM(pname), 'value for mosaic', & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ENDIF ENDIF ENDIF ENDIF ENDIF ! NUM_LAND_CAT was added in WRFv3.1 to define number of land use categories. ! "land_cat_stag" was added in WRFv2.2 to define fractional land use. ! Older WRF runs do not include this dimension and they are restricted ! to 24-category USGS land cover. IF ( wrfversion(18:22) >= "V3.1" ) THEN ! WRFv3.1 or later rcode = nf90_get_att (cdfid, nf90_global, 'NUM_LAND_CAT', nummetlu) IF ( rcode /= nf90_noerr ) THEN WRITE (*,f9400) TRIM(pname), 'NUM_LAND_CAT', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF rcode = nf90_get_att (cdfid, nf90_global, 'ISICE', met_lu_ice) IF ( rcode /= nf90_noerr ) THEN WRITE (*,f9400) TRIM(pname), 'ISICE', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF rcode = nf90_get_att (cdfid, nf90_global, 'ISLAKE', met_lu_lake) IF ( rcode /= nf90_noerr ) THEN WRITE (*,f9400) TRIM(pname), 'ISLAKE', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF rcode = nf90_get_att (cdfid, nf90_global, 'ISURBAN', met_lu_urban) IF ( rcode /= nf90_noerr ) THEN WRITE (*,f9400) TRIM(pname), 'ISURBAN', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ELSE rcode = nf90_inq_dimid (cdfid, 'land_cat_stag', dimid) IF ( rcode /= nf90_noerr ) THEN ! only exists with fractional land use SELECT CASE ( met_lu_src(1:3) ) CASE ( "USG" ) ! USGS -- typically 24, but can be up to 33 in V2.2+ IF ( ( wrfversion(18:21) == "V2.2" ) .OR. & ( wrfversion(18:19) == "V3" ) ) THEN nummetlu = 33 ELSE nummetlu = 24 ENDIF met_lu_water = 16 met_lu_ice = 24 met_lu_urban = 1 met_lu_lake = -1 CASE ( "OLD" ) ! old MM5 13-category system nummetlu = 13 met_lu_water = 7 met_lu_ice = 11 met_lu_urban = 1 met_lu_lake = -1 CASE ( "SiB" ) ! SiB 16-category system nummetlu = 16 met_lu_water = 15 met_lu_ice = 16 met_lu_urban = -1 met_lu_lake = -1 CASE ( "MOD" ) ! Modified IGBP MODIS NOAH 33-category system nummetlu = 33 met_lu_water = 17 met_lu_ice = 15 met_lu_urban = 13 IF ( wrfversion(18:22) >= "V3.8" ) THEN ! WRFv3.8 or later met_lu_lake = 21 ELSE met_lu_lake = -1 ENDIF CASE ( "NLC" ) ! NLCD/MODIS combined system IF ( met_lu_src(4:6) == "D40") THEN nummetlu = 40 met_lu_water = 17 met_lu_ice = 15 met_lu_urban = 13 met_lu_lake = -1 ELSE nummetlu = 50 met_lu_water = 1 met_lu_ice = 2 met_lu_urban = 3 met_lu_lake = -1 ENDIF CASE DEFAULT WRITE (*,f9100) TRIM(pname), met_lu_src(1:3) CALL graceful_stop (pname) END SELECT ELSE rcode = nf90_inquire_dimension (cdfid, dimid, len=nummetlu) IF ( rcode /= nf90_noerr ) THEN WRITE (*,f9400) TRIM(pname), 'value for land_cat_stag', & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ENDIF ENDIF rcode = nf90_get_att (cdfid, nf90_global, 'RA_LW_PHYSICS', met_lw_rad) IF ( rcode /= nf90_noerr ) THEN WRITE (*,f9400) TRIM(pname), 'RA_LW_PHYSICS', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF rcode = nf90_get_att (cdfid, nf90_global, 'RA_SW_PHYSICS', met_sw_rad) IF ( rcode /= nf90_noerr ) THEN WRITE (*,f9400) TRIM(pname), 'RA_SW_PHYSICS', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF rcode = nf90_get_att (cdfid, nf90_global, 'CU_PHYSICS', met_cumulus) IF ( rcode /= nf90_noerr ) THEN WRITE (*,f9400) TRIM(pname), 'CU_PHYSICS', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF rcode = nf90_get_att (cdfid, nf90_global, 'MP_PHYSICS', met_expl_moist) IF ( rcode /= nf90_noerr ) THEN WRITE (*,f9400) TRIM(pname), 'MP_PHYSICS', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF rcode = nf90_get_att (cdfid, nf90_global, 'BL_PBL_PHYSICS', met_pbl) IF ( rcode /= nf90_noerr ) THEN WRITE (*,f9400) TRIM(pname), 'BL_PBL_PHYSICS', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF rcode = nf90_get_att (cdfid, nf90_global, 'SF_SFCLAY_PHYSICS', met_sfc_lay) IF ( rcode /= nf90_noerr ) THEN WRITE (*,f9400) TRIM(pname), 'SF_SFCLAY_PHYSICS', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF rcode = nf90_get_att (cdfid, nf90_global, 'SF_SURFACE_PHYSICS', met_soil_lsm) IF ( rcode /= nf90_noerr ) THEN WRITE (*,f9400) TRIM(pname), 'SF_SURFACE_PHYSICS', & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ! Determine if an urban model was used. IF ( wrfversion(18:21) >= "V3.1" ) THEN rcode = nf90_get_att (cdfid, nf90_global, 'SF_URBAN_PHYSICS', & met_urban_phys) IF ( rcode /= nf90_noerr ) THEN WRITE (*,f9400) TRIM(pname), 'SF_URBAN_PHYSICS', & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ELSE IF ( wrfversion(18:21) == "V3.0" ) THEN rcode = nf90_get_att (cdfid, nf90_global, 'UCMCALL', met_urban_phys) IF ( rcode /= nf90_noerr ) THEN WRITE (*,f9400) TRIM(pname), 'SF_URBAN_PHYSICS', & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ELSE ! In v2.2, header variable UCMCALL seems to always be 0 for nested runs, ! even when UCM is invoked. For now, use field TC_URB (canopy temperature) ! as a proxy to determine if the UCM was used. If the field does not exist, ! then the UCM was not used. If the field exists, determine if the data are ! "reasonable" (i.e., positive and non-zero); assume that UCM was used if ! the field contains "physical" data. nxm = met_nx - 1 nym = met_ny - 1 it = 1 ! use first time in file since some files just have one time ALLOCATE ( dum2d ( nxm, nym ) ) CALL get_var_2d_real_cdf (cdfid, 'TC_URB', dum2d, it, rcode) IF ( ( rcode == nf90_noerr ) .AND. ( MAXVAL(dum2d) > 100.0 ) ) THEN ! UCM met_urban_phys = 1 ELSE met_urban_phys = 0 ENDIF DEALLOCATE ( dum2d ) ENDIF IF ( met_urban_phys >= 1 ) THEN ifrcurb = .TRUE. ELSE ifrcurb = .FALSE. ENDIF ! Determine if shallow convection was used. IF ( wrfversion(18:21) >= "V3.3" ) THEN rcode = nf90_get_att (cdfid, nf90_global, 'SHCU_PHYSICS', met_shal_cu) IF ( rcode /= nf90_noerr ) THEN WRITE (*,f9400) TRIM(pname), 'SHCU_PHYSICS', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF IF ( met_shal_cu == 0 .AND. met_cumulus == 5 ) THEN ! Grell shallow on? rcode = nf90_get_att (cdfid, nf90_global, 'ISHALLOW', met_shal_cu) IF ( rcode /= nf90_noerr ) THEN WRITE (*,f9400) TRIM(pname), 'ISHALLOW', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ENDIF ELSE ! no way to easily tell if Grell 3D used shallow convection IF ( met_cumulus == 5 ) THEN ! Grell 3D met_shal_cu = -1 ELSE met_shal_cu = 0 ENDIF ENDIF met_snow_opt = 1 ! not used for WRF yet rcode = nf90_get_att (cdfid, nf90_global, 'BUCKET_MM', met_rain_bucket) IF ( rcode /= nf90_noerr ) THEN IF ( wrfversion(18:22) >= "V3.2" ) then ! BUCKET_MM implemented in WRFv3.2 WRITE (*,f9400) TRIM(pname), 'BUCKET_MM', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ELSE met_rain_bucket = -1.0 ENDIF ENDIF rcode = nf90_get_att (cdfid, nf90_global, 'PREC_ACC_DT', rval) IF ( rcode /= nf90_noerr ) THEN IF ( wrfversion(18:22) >= "V3.2" ) then ! PREC_ACC_DT added in WRFv3.2 WRITE (*,f9400) TRIM(pname), 'PREC_ACC_DT', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ELSE met_pcp_incr = 0 ENDIF ELSE rcode = nf90_inq_varid (cdfid, 'PREC_ACC_C', rcode) rcode = rcode + nf90_inq_varid (cdfid, 'PREC_ACC_NC', rcode) IF ( rcode /= nf90_noerr ) THEN met_pcp_incr = 0 ELSE met_pcp_incr = NINT(rval) ENDIF ENDIF IF ( met_pcp_incr > 0 ) THEN IF ( met_pcp_incr /= intvl ) THEN ! can't compute precip for CMAQ WRITE (*,f9550) TRIM(pname), met_pcp_incr, intvl CALL graceful_stop (pname) ENDIF ENDIF ! Determine if radiative feedbacks accompany the convective parameterization ! scheme. rcode = nf90_get_att (cdfid, nf90_global, 'ICLOUD_CU', ival) IF ( rcode == nf90_noerr ) THEN ! new enough version of WRF SELECT CASE ( ival ) CASE ( 0 ) ifcuradfdbk = .FALSE. CASE ( 1:2 ) ! 1=Grell, 2=KF or MSKF ifcuradfdbk = .TRUE. CASE DEFAULT ifcuradfdbk = .FALSE. END SELECT ELSE ifcuradfdbk = .FALSE. ENDIF !------------------------------------------------------------------------------- ! Extract WRF start date and time information. !------------------------------------------------------------------------------- rcode = nf90_get_att (cdfid, nf90_global, 'SIMULATION_START_DATE', date_init) IF ( rcode /= nf90_noerr ) THEN WRITE (*,f9400) TRIM(pname), 'SIMULATION_START_DATE', & TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF met_startdate = date_init(1:19) // '.0000' met_startdate(11:11) = "-" ! change from "_" to "-" for consistency rcode = nf90_get_att (cdfid, nf90_global, 'START_DATE', date_start) IF ( rcode /= nf90_noerr ) THEN WRITE (*,f9400) TRIM(pname), 'START_DATE', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF IF ( date_init == date_start ) THEN met_restart = 0 ELSE met_restart = 1 ENDIF rcode = nf90_inq_varid (cdfid, 'Times', id_data) IF ( rcode /= nf90_noerr ) THEN WRITE (*,f9410) TRIM(pname), 'Times', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF rcode = nf90_inquire_variable (cdfid, id_data, dimids=dimids) IF ( rcode /= nf90_noerr ) THEN WRITE (*,f9420) TRIM(pname), 'Times', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF rcode = nf90_inquire_dimension (cdfid, dimids(1), len=lent) IF ( rcode /= nf90_noerr ) THEN WRITE (*,f9430) TRIM(pname), 'Times', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF rcode = nf90_inquire_dimension (cdfid, dimids(2), len=n_times) IF ( rcode /= nf90_noerr ) THEN WRITE (*,f9430) TRIM(pname), 'Times', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF IF ( ALLOCATED ( times ) ) DEALLOCATE ( times ) ALLOCATE ( times ( n_times ) ) rcode = nf90_get_var (cdfid, id_data, times, & start=(/1,1/), count=(/lent,n_times/)) IF ( rcode /= nf90_noerr ) THEN WRITE (*,f9400) TRIM(pname), 'Times', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF IF ( n_times > 1 ) THEN CALL geth_idts (times(2)(1:19), times(1)(1:19), idtsec) ELSE fl2 = file_mm(2) IF ( fl2(1:10) == ' ' ) THEN WRITE (*,f9500) TRIM(pname) idtsec = 60 ELSE rcode = nf90_open (fl2, nf90_nowrite, cdfid2) IF ( rcode == nf90_noerr ) THEN rcode = nf90_inq_varid (cdfid2, 'Times', id_data) IF ( rcode /= nf90_noerr ) THEN WRITE (*,f9410) TRIM(pname), 'Times', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF rcode = nf90_inquire_variable (cdfid2, id_data, dimids=dimids) IF ( rcode /= nf90_noerr ) THEN WRITE (*,f9420) TRIM(pname), 'Times', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF rcode = nf90_inquire_dimension (cdfid2, dimids(1), len=lent) IF ( rcode /= nf90_noerr ) THEN WRITE (*,f9430) TRIM(pname), 'Times', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF rcode = nf90_inquire_dimension (cdfid2, dimids(2), len=n_times) IF ( rcode /= nf90_noerr ) THEN WRITE (*,f9430) TRIM(pname), 'Times', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF IF ( ALLOCATED ( times2 ) ) DEALLOCATE ( times2 ) ALLOCATE ( times2 ( n_times ) ) rcode = nf90_get_var (cdfid2, id_data, times2, & start=(/1,1/), count=(/lent,n_times/)) IF ( rcode /= nf90_noerr ) THEN WRITE (*,f9400) TRIM(pname), 'Times', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF CALL geth_idts (times2(1)(1:19), times(1)(1:19), idtsec) ELSE WRITE (*,f9600) TRIM(pname), TRIM(fl2) CALL graceful_stop (pname) ENDIF rcode = nf90_close (cdfid2) IF ( rcode /= nf90_noerr ) THEN WRITE (*,f9700) TRIM(pname), TRIM(fl2) CALL graceful_stop (pname) ENDIF ENDIF ENDIF met_tapfrq = REAL(idtsec / 60) ! convert sec --> min !------------------------------------------------------------------------------- ! Set variables for non-hydrostatic base state. There is no option for ! hydrostatic run in WRF. The base state variables are not currently output ! (as of WRFv2.2), so fill in "default" values from WRF namelist. ! ! Note: In WRFv2.2 NCAR changed the way "real" scalars (e.g., P_TOP) are ! stored in the WRF I/O API. !------------------------------------------------------------------------------- IF ( (wrfversion(18:21) == "V2.2") .OR. (wrfversion(18:19) >= "V3") ) THEN CALL get_var_real_cdf (cdfid, 'P_TOP', met_ptop, rcode) ELSE ALLOCATE ( dum1d ( 1 ) ) CALL get_var_1d_real_cdf (cdfid, 'P_TOP', dum1d, 1, rcode) met_ptop = dum1d(1) ENDIF IF ( rcode /= nf90_noerr ) THEN WRITE (*,f9400) TRIM(pname), 'P_TOP', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF met_p00 = 100000.0 ! base state sea-level pressure [Pa] met_ts0 = 290.0 ! base state sea-level temperature [K] met_tlp = 50.0 ! base state lapse rate d(T)/d(ln P) from 1000 to 300 mb met_tiso = fillreal ! base state stratospheric isothermal T [K] ! not used !------------------------------------------------------------------------------- ! Determine WRF release. !------------------------------------------------------------------------------- met_release = ' ' IF ( wrfversion(18:18) == "V" ) THEN met_release(1:2) = wrfversion(18:19) ENDIF IF ( wrfversion(20:20) == '.' ) THEN met_release(3:4) = wrfversion(20:21) ENDIF IF ( wrfversion(22:22) == '.' ) THEN met_release(5:6) = wrfversion(22:23) ENDIF IF ( wrfversion(24:24) == '.' ) THEN met_release(7:8) = wrfversion(24:25) ENDIF !------------------------------------------------------------------------------- ! Determine FDDA options. !------------------------------------------------------------------------------- rcode = nf90_get_att (cdfid, nf90_global, 'GRID_FDDA', met_fdda_3dan) IF ( rcode /= nf90_noerr ) THEN IF ( TRIM(met_release) < 'V2.2' ) THEN met_fdda_3dan = 0 ! not implemented until V2.2 ELSE WRITE (*,f9400) TRIM(pname), 'GRID_FDDA', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ENDIF rcode = nf90_get_att (cdfid, nf90_global, 'GUV', met_fdda_gv3d) IF ( rcode /= nf90_noerr ) THEN IF ( TRIM(met_release) < 'V2.2' ) THEN met_fdda_gv3d = -1.0 ! not in header until V2.2 ELSE IF ( met_fdda_3dan == 0 ) THEN met_fdda_gv3d = -1.0 ! not in header if analysis nudging is off ELSE WRITE (*,f9400) TRIM(pname), 'GUV', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ENDIF rcode = nf90_get_att (cdfid, nf90_global, 'GT', met_fdda_gt3d) IF ( rcode /= nf90_noerr ) THEN IF ( TRIM(met_release) < 'V2.2' ) THEN met_fdda_gt3d = -1.0 ! not in header until V2.2 ELSE IF ( met_fdda_3dan == 0 ) THEN met_fdda_gt3d = -1.0 ! not in header if analysis nudging is off ELSE WRITE (*,f9400) TRIM(pname), 'GT', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ENDIF rcode = nf90_get_att (cdfid, nf90_global, 'GQ', met_fdda_gq3d) IF ( rcode /= nf90_noerr ) THEN IF ( TRIM(met_release) < 'V2.2' ) THEN met_fdda_gq3d = -1.0 ! not in header until V2.2 ELSE IF ( met_fdda_3dan /= 1 ) THEN met_fdda_gq3d = -1.0 ! not in header if analysis nudging is off ELSE WRITE (*,f9400) TRIM(pname), 'GQ', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ENDIF rcode = nf90_get_att (cdfid, nf90_global, 'GPH', met_fdda_gph3d) IF ( rcode /= nf90_noerr ) THEN IF ( TRIM(met_release) < 'V3.2' ) THEN met_fdda_gph3d = -1.0 ! not in header until V3.2 ELSE IF ( met_fdda_3dan /= 2 ) THEN met_fdda_gph3d = -1.0 ! not in header if spectral nudging is off ELSE WRITE (*,f9400) TRIM(pname), 'GPH', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ENDIF IF ( TRIM(met_release) >= 'V3.1' ) THEN ! find sfc analysis nudging info rcode = nf90_get_att (cdfid, nf90_global, 'GRID_SFDDA', met_fdda_sfan) IF ( rcode /= nf90_noerr ) THEN WRITE (*,f9400) TRIM(pname), 'GRID_SFDDA', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF IF ( met_fdda_sfan == 1 .OR. met_fdda_sfan == 2 ) THEN rcode = nf90_get_att (cdfid, nf90_global, 'GUV_SFC', met_fdda_gvsfc) IF ( rcode /= nf90_noerr ) THEN WRITE (*,f9400) TRIM(pname), 'GUV_SFC', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF rcode = nf90_get_att (cdfid, nf90_global, 'GT_SFC', met_fdda_gtsfc) IF ( rcode /= nf90_noerr ) THEN WRITE (*,f9400) TRIM(pname), 'GT_SFC', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF rcode = nf90_get_att (cdfid, nf90_global, 'GQ_SFC', met_fdda_gqsfc) IF ( rcode /= nf90_noerr ) THEN WRITE (*,f9400) TRIM(pname), 'GQ_SFC', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ELSE met_fdda_gvsfc = -1.0 met_fdda_gtsfc = -1.0 met_fdda_gqsfc = -1.0 ENDIF ELSE met_fdda_sfan = 0 ! sfc analysis nudging not in WRF until V3.1 met_fdda_gvsfc = -1.0 met_fdda_gtsfc = -1.0 met_fdda_gqsfc = -1.0 ENDIF rcode = nf90_get_att (cdfid, nf90_global, 'OBS_NUDGE_OPT', met_fdda_obs) IF ( rcode /= nf90_noerr ) THEN IF ( TRIM(met_release) < 'V2.2' ) THEN met_fdda_obs = 0 ! not implemented until V2.2 ELSE WRITE (*,f9400) TRIM(pname), 'OBS_NUDGE_OPT', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ENDIF rcode = nf90_get_att (cdfid, nf90_global, 'OBS_COEF_WIND', met_fdda_giv) IF ( rcode /= nf90_noerr ) THEN IF ( TRIM(met_release) < 'V2.2' ) THEN met_fdda_giv = -1.0 ! not in header until V2.2 ELSE IF ( met_fdda_obs == 0 ) THEN met_fdda_giv = -1.0 ! not in header if obs nudging is off ELSE WRITE (*,f9400) TRIM(pname), 'OBS_COEF_WIND', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ENDIF rcode = nf90_get_att (cdfid, nf90_global, 'OBS_COEF_TEMP', met_fdda_git) IF ( rcode /= nf90_noerr ) THEN IF ( TRIM(met_release) < 'V2.2' ) THEN met_fdda_git = -1.0 ! not in header until V2.2 ELSE IF ( met_fdda_obs == 0 ) THEN met_fdda_git = -1.0 ! not in header if obs nudging is off ELSE WRITE (*,f9400) TRIM(pname), 'OBS_COEF_TEMP', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ENDIF rcode = nf90_get_att (cdfid, nf90_global, 'OBS_COEF_MOIS', met_fdda_giq) IF ( rcode /= nf90_noerr ) THEN IF ( TRIM(met_release) < 'V2.2' ) THEN met_fdda_giq = -1.0 ! not in header until V2.2 ELSE IF ( met_fdda_obs == 0 ) THEN met_fdda_giq = -1.0 ! not in header if obs nudging is off ELSE WRITE (*,f9400) TRIM(pname), 'OBS_COEF_MOIS', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ENDIF !------------------------------------------------------------------------------- ! Determine whether or not fractional land use is available in the output. ! Set the flag appropriately. !------------------------------------------------------------------------------- rcode = nf90_inq_varid (cdfid, 'LANDUSEF', varid) IF ( rcode == nf90_noerr ) THEN iflufrc = .TRUE. ! fractional land use is available ifluwrfout = .TRUE. ! fractional land use is located in WRF history file ELSE ifluwrfout = .FALSE. ! fractional land use is not available in WRF history geofile = TRIM( file_geo ) INQUIRE ( FILE=geofile, EXIST=ifgeo ) IF ( .NOT. ifgeo ) THEN WRITE (*,f9800) TRIM(pname) iflufrc = .FALSE. ELSE flg = file_geo rcode = nf90_open (flg, nf90_nowrite, cdfidg) IF ( rcode /= nf90_noerr ) THEN WRITE (*,f9600) TRIM(pname), TRIM(flg) CALL graceful_stop (pname) ENDIF CALL chkwpshdr (flg, cdfidg) rcode = nf90_inq_varid (cdfidg, 'LANDUSEF', varid) IF ( rcode == nf90_noerr ) THEN iflufrc = .TRUE. ! fractional land use is in the file ELSE iflufrc = .FALSE. ! fractional land use is not in the file ENDIF rcode = nf90_close (cdfidg) IF ( rcode /= nf90_noerr ) THEN WRITE (*,f9700) TRIM(pname),TRIM(flg) CALL graceful_stop (pname) ENDIF ENDIF ENDIF ! For now, require LANDUSEF2 and MOSAIC_CAT_INDEX to process NOAH Mosaic. ! IFMOSAIC is toggled to FALSE here if either field is missing. ! Can add a subroutine later to reconstruct those fields from LANDUSEF if ! LANDUSEF2 and/or MOSAIC_CAT_INDEX is missing. IF ( ifmosaic ) THEN rcode = nf90_inq_varid (cdfid, 'LANDUSEF2', varid) IF ( rcode == nf90_noerr ) THEN rcode = nf90_inq_varid (cdfid, 'MOSAIC_CAT_INDEX', varid) IF ( rcode == nf90_noerr ) THEN iflu2wrfout = .TRUE. ! lookup for LANDUSEF2 is in WRF history ELSE iflu2wrfout = .FALSE. ifmosaic = .FALSE. ENDIF ELSE iflu2wrfout = .FALSE. ! frac land use 2 is not available in WRF history ifmosaic = .FALSE. ENDIF ELSE iflu2wrfout = .FALSE. ENDIF !------------------------------------------------------------------------------- ! Determine whether or not the 2-m temperature, the 2-m mixing ratio, the ! 10-m wind components, and the turbulent kinetic energy are in the output, ! and set the flags appropriately. !------------------------------------------------------------------------------- rcode = nf90_inq_varid (cdfid, 'T2', varid) IF ( rcode == nf90_noerr ) THEN ift2m = .TRUE. ! 2-m temperature is in the file ELSE ift2m = .FALSE. ! 2-m temperature is not in the file ENDIF rcode = nf90_inq_varid (cdfid, 'Q2', varid) IF ( rcode == nf90_noerr ) THEN IF ( met_pbl == 1 ) THEN ! YSU PBL scheme ifq2m = .FALSE. ! do not use Q2 from YSU PBL; occasional winter negatives ELSE ifq2m = .TRUE. ! 2-m mixing ratio is in the file ENDIF ELSE ifq2m = .FALSE. ! 2-m mixing ratio is not in the file ENDIF rcode = nf90_inq_varid (cdfid, 'U10', varid) IF ( rcode == nf90_noerr ) THEN ifu10m = .TRUE. ! 10-m u-component wind is in the file ELSE ifu10m = .FALSE. ! 10-m u-component wind is not in the file ENDIF rcode = nf90_inq_varid (cdfid, 'V10', varid) IF ( rcode == nf90_noerr ) THEN ifv10m = .TRUE. ! 10-m v-component wind is in the file ELSE ifv10m = .FALSE. ! 10-m v-component wind is not in the file ENDIF IF ( ( ifu10m ) .AND. ( ifv10m ) ) THEN ifw10m = .TRUE. ELSE ifw10m = .FALSE. ENDIF rcode = nf90_inq_varid (cdfid, 'TKE_MYJ', varid) IF ( rcode == nf90_noerr ) THEN IF ( met_pbl == 2 ) THEN ! Mellor-Yamada-Janjic (Eta) iftke = .TRUE. ! turbulent kinetic energy is in the file iftkef = .FALSE. ! TKE is not on full-levels; it is on half-layers ELSE iftke = .FALSE. ! turbulent kinetic energy is not in the file iftkef = .FALSE. ENDIF ELSE iftke = .FALSE. ! turbulent kinetic energy is not in the file iftkef = .FALSE. ENDIF !------------------------------------------------------------------------------- ! Determine whether or not some surface variables are in the output, and set ! the flags appropriately. !------------------------------------------------------------------------------- rcode = nf90_inq_varid (cdfid, 'LAI', varid) IF ( rcode == nf90_noerr ) THEN iflai = .TRUE. ! leaf area index is in the file ELSE iflai = .FALSE. ! leaf area index is not in the file ENDIF rcode = nf90_inq_varid (cdfid, 'RMOL', varid) IF ( rcode == nf90_noerr ) THEN ifmol = .TRUE. ! (inverse) Monin-Obukhov length is in the file ELSE ifmol = .FALSE. ! (inverse) Monin-Obukhov length is not in the file ENDIF IF ( met_soil_lsm == 7 ) THEN ! PX was used in WRF ifmolpx = .TRUE. rcode = nf90_inq_varid (cdfid, 'LAI_PX', varid) ! there are 7 variables rcode = rcode + nf90_inq_varid (cdfid, 'WWLT_PX', varid) rcode = rcode + nf90_inq_varid (cdfid, 'WFC_PX', varid) rcode = rcode + nf90_inq_varid (cdfid, 'WSAT_PX', varid) rcode = rcode + nf90_inq_varid (cdfid, 'CSAND_PX', varid) rcode = rcode + nf90_inq_varid (cdfid, 'FMSAND_PX', varid) rcode = rcode + nf90_inq_varid (cdfid, 'CLAY_PX', varid) IF ( rcode == nf90_noerr ) THEN ifpxwrf41 = .TRUE. ! all 7 variables are available ELSE ifpxwrf41 = .FALSE. ENDIF ELSE ifmolpx = .FALSE. ifpxwrf41 = .FALSE. ENDIF rcode = nf90_inq_varid (cdfid, 'RA', varid) IF ( rcode == nf90_noerr ) THEN ifra = .TRUE. ! aerodynamic resistance is in the file ELSE ifra = .FALSE. ! aerodynamic resistance is not in the file ENDIF rcode = nf90_inq_varid (cdfid, 'RS', varid) IF ( rcode == nf90_noerr ) THEN ifrs = .TRUE. ! stomatal resistance is in the file ELSE ifrs = .FALSE. ! stomatal resistance is not in the file ENDIF IF ( ( ifra ) .AND. ( ifrs ) ) THEN ifresist = .TRUE. ELSE ifresist = .FALSE. ENDIF rcode = nf90_inq_varid (cdfid, 'VEGFRA', varid) IF ( rcode == nf90_noerr ) THEN ifveg = .TRUE. ! vegetation fraction is in the file ELSE ifveg = .FALSE. ! vegetation fraction is not in the file ENDIF rcode = nf90_inq_varid (cdfid, 'CANWAT', varid) IF ( rcode == nf90_noerr ) THEN ifwr = .TRUE. ! canopy wetness is in the file ELSE ifwr = .FALSE. ! canopy wetness is not in the file ENDIF rcode = nf90_inq_varid (cdfid, 'SMOIS', varid) IF ( rcode == nf90_noerr ) THEN ifsmois = .TRUE. ! soil moisture is in the file ELSE ifsmois = .FALSE. ! soil moisture is not in the file ENDIF rcode = nf90_inq_varid (cdfid, 'TSLB', varid) IF ( rcode == nf90_noerr ) THEN iftslb = .TRUE. ! soil temperature is in the file ELSE iftslb = .FALSE. ! soil temperature is not in the file ENDIF rcode = nf90_inq_varid (cdfid, 'ISLTYP', varid) IF ( rcode == nf90_noerr ) THEN ifisltyp = .TRUE. ! soil type is in the file ELSE ifisltyp = .FALSE. ! soil type is not in the file ENDIF If ( ( ifsmois ) .AND. ( iftslb ) .AND. ( ifisltyp ) ) THEN ifsoil = .TRUE. ELSE ifsoil = .FALSE. ENDIF rcode = nf90_inq_varid (cdfid, 'ZNT', varid) IF ( rcode == nf90_noerr ) THEN ifznt = .TRUE. ! roughness length is in the file ELSE ifznt = .FALSE. ! roughness length is not in the file ENDIF IF ( met_cumulus == 1 .AND. ifcuradfdbk ) THEN ! KF-Rad was used in WRF rcode = nf90_inq_varid (cdfid, 'QC_CU', varid) ! there are 4 variables rcode = rcode + nf90_inq_varid (cdfid, 'QI_CU', varid) rcode = rcode + nf90_inq_varid (cdfid, 'CLDFRA_DP', varid) rcode = rcode + nf90_inq_varid (cdfid, 'CLDFRA_SH', varid) IF ( rcode == nf90_noerr ) THEN ifkfradextras = .TRUE. ! all 4 variables are available ELSE ifkfradextras = .FALSE. ENDIF ELSE ifkfradextras = .FALSE. ENDIF !------------------------------------------------------------------------------- ! Determine the number of 3D cloud moisture species. Assume that cloud water ! mixing ratio and rain water mixing ratio will occur together. Also assume ! that cloud ice mixing ratio and cloud snow mixing ratio will occur together, ! but check for availability. Check for graupel, as well. ! Note: In WRFv2.1.2 and prior, the Eta/Ferrier microphysics scheme only ! outputs QCLOUD which represents total condensate, not cloud water mixing ! ratio. CMAQv4.6 and prior cannot handle this field, so MCIP will stop in ! this case. !------------------------------------------------------------------------------- rcode = nf90_inq_varid (cdfid, 'QCLOUD', varid) IF ( rcode == nf90_noerr ) THEN nqspecies = 1 ! QCLOUD is in the file ELSE ! need hydrometeor fields for CMAQ WRITE (*,f9225) TRIM(pname) CALL graceful_stop (pname) ENDIF rcode = nf90_inq_varid (cdfid, 'QRAIN', varid) IF ( rcode == nf90_noerr ) THEN nqspecies = nqspecies + 1 ! QRAIN is in the file ELSE IF ( met_expl_moist == 5 ) THEN ! Eta/Ferrier scheme WRITE (*,f9250) TRIM(pname) CALL graceful_stop (pname) ELSE WRITE (*,f9275) TRIM(pname) CALL graceful_stop (pname) ENDIF ENDIF rcode = nf90_inq_varid (cdfid, 'QICE', varid) IF ( rcode == nf90_noerr ) THEN nqspecies = nqspecies + 1 ! QICE is in the file ENDIF rcode = nf90_inq_varid (cdfid, 'QSNOW', varid) IF ( rcode == nf90_noerr ) THEN nqspecies = nqspecies + 1 ! QSNOW is in the file ENDIF IF ( nqspecies == 3 ) THEN ! not set up for QI w/o QS or vice versa WRITE (*,f9300) TRIM(pname) CALL graceful_stop (pname) ENDIF rcode = nf90_inq_varid (cdfid, 'QGRAUP', varid) IF ( rcode == nf90_noerr ) THEN nqspecies = nqspecies + 1 ! QGRAUP is in the file ENDIF IF ( nqspecies == 3 ) THEN ! not set up for QG without QI and QS WRITE (*,f9300) TRIM(pname) CALL graceful_stop (pname) ENDIF !------------------------------------------------------------------------------- ! Determine whether 3D resolved cloud fraction is part of WRF output. If ! Kain-Fritsch scheme with radiative feedbacks to subgrid clouds is used (new ! in WRFv3.6) or if MSKF is used (new in WRFv3.7) in WRF, then the 3D cloud ! fraction includes both resolved and subgrid clouds. !------------------------------------------------------------------------------- rcode = nf90_inq_varid (cdfid, 'CLDFRA', varid) IF ( rcode == nf90_noerr ) THEN IF ( TRIM(met_release) >= 'V3.6' ) THEN rcode = nf90_get_att (cdfid, nf90_global, 'ICLOUD_CU', icloud_cu) IF ( rcode == nf90_noerr ) THEN IF ( ( ( met_cumulus == 1 ) .AND. ( icloud_cu == 2 ) ) .OR. & ( met_cumulus == 11 ) ) THEN ifcld3d = .FALSE. ! 3D resolved cloud fraction is not in the file ELSE ifcld3d = .TRUE. ! 3D resolved cloud fraction is in the file ENDIF ELSE ifcld3d = .TRUE. ! 3D resolved cloud fraction is in the file ENDIF ELSE ifcld3d = .TRUE. ! 3D resolved cloud fraction is in the file ENDIF ELSE ifcld3d = .FALSE. ! 3D cloud fraction is not if the file ENDIF !------------------------------------------------------------------------------- ! Determine if the hybrid vertical coordinate has been used in WRF. It is ! available as of WRFv3.9. !------------------------------------------------------------------------------- IF ( TRIM(met_release) >= "V3.9") THEN rcode = nf90_get_att (cdfid, nf90_global, 'HYBRID_OPT', met_hybrid) IF ( rcode /= nf90_noerr ) THEN WRITE (*,f9400) TRIM(pname), 'HYBRID_OPT', TRIM(nf90_strerror(rcode)) CALL graceful_stop (pname) ENDIF ELSE met_hybrid = -1 ENDIF END SUBROUTINE setup_wrfem ================================================ FILE: PREP/mcip/src/sfclayer.f90 ================================================ !------------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------------! SUBROUTINE sfclayer (theta1, theta2, u1, u2, z1, z2, hfx, ustar, amol) !------------------------------------------------------------------------------- ! Name: Surface Layer ! Purpose: Interpolate temperature to a given height using surface layer ! similarity based on Hogstrom (1988). ! Revised: 13 Oct 1998 Original version. (J. Pleim) ! 20 Sep 2001 Converted to free-form f90. (T. Otte) ! 25 Jan 2002 Corrected error in calculation of PSIM. (T. Otte) ! 04 Aug 2004 Removed unused variable, RA, from calling argument ! list. (T. Otte) ! 20 Jun 2006 Removed unused variable ALOGZ1Z0. (T. Otte) ! 12 Feb 2010 Removed unused argument Z0. (T. Otte) ! 07 Sep 2011 Updated disclaimer. (T. Otte) !------------------------------------------------------------------------------- USE const_pbl IMPLICIT NONE REAL :: alogz1z2 REAL, INTENT(IN) :: amol ! Monin-Obukhov length [m] REAL, INTENT(IN) :: hfx ! sensible heat flux [W/m^2] REAL :: psih REAL :: psih0 REAL :: psim REAL :: psim0 REAL, INTENT(IN) :: theta1 ! pot'l temp at z1 [K] REAL, INTENT(OUT) :: theta2 ! pot'l temp at z2 [K] REAL, INTENT(IN) :: u1 ! wind speed at z1 [m/s] REAL, INTENT(OUT) :: u2 ! wind speed at z2 [m/s] REAL, INTENT(IN) :: ustar ! friction velocity [m/s] REAL :: x1 REAL :: x2 REAL, INTENT(IN) :: z1 ! height [m] REAL :: z1ol REAL, INTENT(IN) :: z2 ! height [m] REAL :: z2ol ! Compute psi functions from aerodynamic resistance. z1ol = z1 / amol z2ol = z2 / amol alogz1z2 = ALOG(z1/z2) IF ( z1ol >= 0.0 ) THEN IF ( z1ol > 1.0 ) THEN psih0 = 1.0 - betah - z1ol psim0 = 1.0 - betam - z1ol ELSE psih0 = - betah * z1ol psim0 = - betam * z1ol ENDIF IF ( z2ol > 1.0 ) THEN psih = psih0 - (1.0 - betah - z2ol) psim = psim0 - (1.0 - betam - z2ol) ELSE psih = psih0 + betah * z2ol psim = psim0 + betam * z2ol ENDIF ELSE psih = 2.0 * ALOG( (1.0 + SQRT(1.0 - gamah*z1ol)) / & (1.0 + SQRT(1.0 - gamah*z2ol)) ) x1 = (1.0 - gamam * z1ol)**0.25 x2 = (1.0 - gamam * z2ol)**0.25 psim = 2.0 * ALOG( (1.0+x1) / (1.0+x2) ) + & ALOG( (1.0+x1*x1) / (1.0+x2*x2)) - & 2.0 * ATAN(x1) + 2.0 * ATAN(x2) ENDIF theta2 = theta1 - pro*hfx / (vkar*ustar) * (alogz1z2-psih) u2 = u1 - ustar/vkar * (alogz1z2-psim) u2 = MAX (u2, 0.1) END SUBROUTINE sfclayer ================================================ FILE: PREP/mcip/src/statflds.f90 ================================================ !------------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------------! SUBROUTINE statflds !------------------------------------------------------------------------------- ! Name: Static Fields ! Purpose: Maps and calculates time-invariant fields on MCIP X grids. ! Revised: 10 Sep 2001 Original version. (T. Otte) ! 09 Jun 2003 Restricted output vertical structure so that layer ! collapsing is not used to create a thinner lowest or ! top layer than input meteorology. (T. Otte) ! 07 Jul 2004 Refined error-checking on vertical structure to ! avoid machine truncation errors. (T. Otte) ! 08 Apr 2005 Changed MET_KX to MET_NZ to make code more general. ! Added condition that REFSTATE is only called for ! non-hydrostatic MM5 input to MCIP. (T. Otte) ! 18 Aug 2005 Changed internal variable EPSILON to EPSILONS to ! avoid confusion with F90 intrinsic function. (T. Otte) ! 30 Jul 2007 Removed use of MET_INHYD to limit MM5 processing. ! Added call to BLDDESC to create metadata. (T, Otte) ! 22 Dec 2010 Changed print statements from "f8.6" to "f9.6" to ! take Intel compiler's recommendations and eliminate ! warning messages. (T. Otte) ! 29 Aug 2011 Improved error handling. (T. Otte) ! 07 Sep 2011 Updated disclaimer. (T. Otte) ! 14 Sep 2018 Removed support for MM5v3. (T. Spero) !------------------------------------------------------------------------------- USE mcipparm USE coord USE metinfo USE metvars IMPLICIT NONE REAL, PARAMETER :: epsilons = 1.0e-6 CHARACTER(LEN=16), PARAMETER :: pname = 'STATFLDS' !------------------------------------------------------------------------------- ! Error, warning, and informational messages. !------------------------------------------------------------------------------- CHARACTER(LEN=256), PARAMETER :: f9000 = "(/, 1x, 70('*'), & & /, 1x, '*** SUBROUTINE: ', a, & & /, 1x, '*** CANNOT COLLAPSE TO THINNER BOTTOM OR TOP LAYER THAN INPUT',& & /, 1x, '*** BOTTOM CTM, MET LAYERS: ', 2(2x, f9.6), & & /, 1x, '*** TOP CTM, MET LAYERS: ', 2(2x, f9.6), & & /, 1x, 70('*'))" !------------------------------------------------------------------------------- ! Verify that user input VGLVS_GD (from namelist variable CTMLAYS) is not ! trying to create thinner lowest layer or thinner top layer than input ! meteorology. !------------------------------------------------------------------------------- IF ( ( vglvs_gd(2) - sigmaf(2) > epsilons ) .OR. & ( -(vglvs_gd(nlays) - sigmaf(met_nz)) > epsilons ) ) THEN WRITE (*,f9000) TRIM(pname), vglvs_gd(2), sigmaf(2), vglvs_gd(nlays), & sigmaf(met_nz) CALL graceful_stop (pname) ENDIF !------------------------------------------------------------------------------- ! Get land use categories. !------------------------------------------------------------------------------- CALL getluse !------------------------------------------------------------------------------- ! Put time-invariant fields on MCIP grid. !------------------------------------------------------------------------------- CALL metgrid2ctm !------------------------------------------------------------------------------- ! Create metadata for output files. !------------------------------------------------------------------------------- CALL blddesc END SUBROUTINE statflds ================================================ FILE: PREP/mcip/src/vertarys.f90 ================================================ !------------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------------! SUBROUTINE vertarys (ctmlays) !------------------------------------------------------------------------------- ! Name: Vertical Arrays ! Purpose: Define vertical structure arrays from input. ! Revised: 20 Sep 2001 Original version. (T. Otte) ! 09 Apr 2007 Added IMPLICIT NONE. (T. Otte) ! 01 Sep 2011 Changed F77 character declarations to F90 standard. ! (T. Otte) ! 07 Sep 2011 Updated disclaimer. (T. Otte) !------------------------------------------------------------------------------- USE mcipparm USE xvars USE coord USE vgrd IMPLICIT NONE REAL, INTENT(IN) :: ctmlays ( maxlays ) CHARACTER(LEN=60) :: ifmt1 INTEGER :: k INTEGER :: k1 INTEGER :: k2 INTEGER :: lbnd INTEGER :: lbnd2 INTEGER :: nfull CHARACTER(LEN=2) :: str1 CHARACTER(LEN=2) :: str2 !------------------------------------------------------------------------------- ! VGLVS_GD( 1...NLAYS+1 ): ! The list of vertical coordinate surface values in the VGLVUN_GD units ! Layer k extends from VGLVS3D( k ) to VGLVS3D( k+1 ). !------------------------------------------------------------------------------- vglvs_gd(1:nlays+1) = ctmlays(1:nlays+1) !------------------------------------------------------------------------------- ! X3FACE_GD( 0: NLAYS ): ! The list of vertical coordinate surface values in the VGLVUN_GD units ! coverted to values monotonically increasing with altitude. ( 1 - VGLVS_GD ) !------------------------------------------------------------------------------- lbnd = LBOUND(x3face_gd,1) DO k = 0, nlays x3face_gd(lbnd+k) = 1.0 - vglvs_gd(k+1) ENDDO !------------------------------------------------------------------------------- ! Echo user-specified grid description info to log file. !------------------------------------------------------------------------------- nfull = nlays + 1 k1 = nfull / 6 k2 = MOD(nfull, 6) WRITE ( str1, '(i2)' ) k1 - 1 WRITE ( str2, '(i2)' ) k2 IF ( (k1 - 1) > 0 ) THEN IF ( k2 > 0 ) THEN ifmt1 = "(/,4x,a,6(2x,f7.5),/," // str1 // "(12x,6(2x,f7.5),/),12x," & & // str2 // "(2x,f7.5),/)" ELSE ifmt1 = "(/,4x,a,6(2x,f7.5),/," // str1 // "(12x,6(2x,f7.5),/))" ENDIF ELSE IF ( k2 > 0 ) THEN ifmt1 = "(/,4x,a,6(2x,f7.5),/,12x," // str2 // "(2x,f7.5),/)" ELSE ifmt1 = "(/,4x,a,6(2x,f7.5),/)" ENDIF ENDIF WRITE (*,ifmt1) 'VGLVS3D ', vglvs_gd WRITE (*, "(1x, 78('-'), /)") !------------------------------------------------------------------------------- ! Layer definition for CTM coordinate (monotonic increase with height). ! From X3FACE values, compute X3MIDL (layer middle coord. definition) ! X3MIDL is defined in VGRD. !------------------------------------------------------------------------------- lbnd2 = LBOUND(x3face,1) x3face(lbnd2:lbnd2+nlays) = x3face_gd(lbnd:lbnd+nlays) DO k = 1, nlays x3midl(k) = 0.5 * ( x3face(k-1) + x3face(k) ) ENDDO END SUBROUTINE vertarys ================================================ FILE: PREP/mcip/src/vertnhy_wrf.f90 ================================================ !------------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------------! SUBROUTINE vertnhy_wrf !------------------------------------------------------------------------------- ! Name: Vertical Velocities -- Non-Hydrostatic for WRF EM ! Purpose: Computes contravariant vertical velocity for WRF EM data where ! WRF is run with non-hydrostatic formulations. ! Notes: Based on equation 12-123 in "Science Algorithms of the EPA Models-3/ ! CMAQ Modeling System" (EPA/600/R-99/030). ! Revised: 22 Mar 2005 Original version. (T. Otte) ! 20 Jun 2006 Updated calculations with double precision scalars ! XCELL_GD and YCELL_GD. (T. Otte) ! 07 Sep 2011 Updated disclaimer. (T. Otte) !------------------------------------------------------------------------------- USE mcipparm USE xvars USE coord IMPLICIT NONE INTEGER :: cm1 INTEGER :: col INTEGER :: cp1 REAL, SAVE :: ddx2 REAL, SAVE :: ddy2 REAL :: dphidx REAL :: dphidy REAL :: dx REAL :: dy LOGICAL, SAVE :: firsttime = .TRUE. REAL, PARAMETER :: giwrf = 1.0 / 9.81 REAL :: ji INTEGER :: lp1 INTEGER :: lvl REAL :: mogn INTEGER :: rm1 INTEGER :: row INTEGER :: rp1 REAL :: ufcrs REAL :: vfcrs REAL, SAVE, ALLOCATABLE :: wght_bot ( : ) REAL, SAVE, ALLOCATABLE :: wght_top ( : ) !------------------------------------------------------------------------------- ! On first call to subroutine, calculate vertical weights for interpolation. !------------------------------------------------------------------------------- IF ( firsttime ) THEN ALLOCATE ( wght_bot (metlay) ) ALLOCATE ( wght_top (metlay) ) dx = REAL(xcell_gd) dy = REAL(ycell_gd) ddx2 = 0.5 / dx ddy2 = 0.5 / dy DO lvl = 1, metlay-1 wght_top(lvl) = ( xx3face(lvl) - xx3midl(lvl) ) / & ( xx3midl(lvl+1) - xx3midl(lvl) ) wght_bot(lvl) = 1.0 - wght_top(lvl) ENDDO wght_bot(metlay) = 1.0 wght_top(metlay) = 0.0 firsttime = .FALSE. ENDIF !------------------------------------------------------------------------------- ! Compute vertical velocity on full levels and scalar points. Here, the ! horizontal wind components are on face points and mid-layers, so interpolation ! is performed to obtain approximations of horizontal wind components on full ! levels and at scalar points. The calculation of XWHAT follows from equation ! 12-123 in "Science Algorithms of the EPA Models-3/CMAQ Modeling System" ! (EPA/600/R-99/030). (XWHAT = XIdot) ! XIdot = d(XI)/dt + (-m V dot del(H) + w) d(XI)/dz ! = 0 + (-m V dot del(H) + w) * (1/Jacobian) ! = - m u/J dH/dx - m v/J dH/dy + w/J ! = - m u/Jg d(phi)/dx - m v/Jg d(phi)/dy + w/J !------------------------------------------------------------------------------- xwhat(:,:,metlay) = 0.0 ! velocity zero, at top xwhat(:,:,0) = 0.0 ! velocity zero, at bottom DO row = 1, nrows_x rp1 = MIN(row+1,nrows_x) rm1 = MAX(row-1,1) DO col = 1, ncols_x cp1 = MIN(col+1,ncols_x) cm1 = MAX(col-1,1) mogn = - xmapc(col,row) * giwrf DO lvl = 1, metlay-1 lp1 = lvl + 1 ji = 1.0 / x3jacobf(col,row,lvl) ufcrs = 0.5 * & ((xuu_s(col,row,lvl) + xuu_s(cp1,row,lvl)) * wght_bot(lvl) + & (xuu_s(col,row,lp1) + xuu_s(cp1,row,lp1)) * wght_top(lvl)) vfcrs = 0.5 * & ((xvv_t(col,row,lvl) + xvv_t(col,rp1,lvl)) * wght_bot(lvl) + & (xvv_t(col,row,lp1) + xvv_t(col,rp1,lp1)) * wght_top(lvl)) dphidx = (xgeof(cp1,row,lvl) - xgeof(cm1,row,lvl)) * ddx2 dphidy = (xgeof(col,rp1,lvl) - xgeof(col,rm1,lvl)) * ddy2 xwhat(col,row,lvl) = ji * ( (mogn * ufcrs * dphidx) + & (mogn * vfcrs * dphidy) + & xwwind(col,row,lvl) ) ENDDO ENDDO ENDDO END SUBROUTINE vertnhy_wrf ================================================ FILE: PREP/mcip/src/vgrd_mod.f90 ================================================ !------------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------------! MODULE vgrd !------------------------------------------------------------------------------- ! Name: Vertical Grid Dimension Parameters ! Purpose: Contains vertical grid dimension parameters. ! Revised: ?? ??? 19?? Original version. (???) ! 10 Sep 2001 Converted to free-form f90. Removed explicit ! definition of NLAYS, and changed X3FACE and X3MIDL ! to allocatable arrays. (T. Otte) ! 09 Apr 2007 Added IMPLICIT NONE. (T. Otte) ! 07 Sep 2011 Updated disclaimer. (T. Otte) !------------------------------------------------------------------------------- IMPLICIT NONE REAL, ALLOCATABLE :: x3face ( : ) ! vert coord lyr sfc REAL, ALLOCATABLE :: x3midl ( : ) ! vert coord lyr ctr END MODULE vgrd ================================================ FILE: PREP/mcip/src/vstamp.f90 ================================================ !------------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------------! SUBROUTINE vstamp !------------------------------------------------------------------------------- ! Name: Version Stamp ! Purpose: Writes version and release identification to log file. ! Revised: 20 Sep 2001 Original version. (T. Otte) ! 18 Oct 2001 Updated for second beta release of MCIPv2. (T. Otte) ! 20 Nov 2001 Updated for third beta release of MCIPv2. (T. Otte) ! 19 Mar 2002 Updated for release of MCIP Version 2.0. (T. Otte) ! 27 Mar 2003 Updated for release of MCIP Version 2.1. (T. Otte) ! 11 Jun 2003 Updated for release of MCIP Version 2.2. (T. Otte) ! 18 Aug 2004 Updated for release of MCIP Version 2.3. (T. Otte) ! 19 Aug 2005 Updated for release of MCIP Version 3.0 (T. Otte) ! 27 Feb 2006 Updated for release of MCIP Version 3.1. (T. Otte) ! 18 Aug 2006 Updated for release of MCIP Version 3.2. (T. Otte) ! 31 Jul 2007 Moved version descriptors to MCIPPARM. Changed ! "RELEASED" to "FROZEN" in the prints to be more ! technically correct. (T. Otte) ! 07 Sep 2011 Updated disclaimer. (T. Otte) !------------------------------------------------------------------------------- USE mcipparm IMPLICIT NONE WRITE (*, "(/, 1x, 78('='), /)") WRITE (*, "(18x, a)") 'US EPA COMMUNITY MULTISCALE AIR QUALITY MODEL' WRITE (*, "(20x, a, /)") 'METEOROLOGY-CHEMISTRY INTERFACE PROCESSOR' WRITE (*, "(27x, a, 1x, a, ' FROZEN ', a)") & TRIM(progname), TRIM(ver), vdate WRITE (*, "(/, 1x, 78('='), ///)") END SUBROUTINE vstamp ================================================ FILE: PREP/mcip/src/vtemp.f90 ================================================ !------------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------------! FUNCTION vtemp (temp, qmix) !------------------------------------------------------------------------------- ! Name: Virtual Temperature ! Purpose: Returns virtual temperature [K] as a function of temperature [K] ! and specific humidity [kg/kg]. ! Revised: ?? ??? ???? Original version as a statement function in MCIP ! routines metvars2ctm.f90 and getpblht.f90. ! 23 Feb 2011 Converted to independent routine. (T. Otte) ! 07 Sep 2011 Updated disclaimer. (T. Otte) !------------------------------------------------------------------------------- IMPLICIT NONE REAL, INTENT(IN) :: temp ! temperature [K] REAL, INTENT(IN) :: qmix ! specific humidity [kg/kg] REAL :: vtemp ! virtual temperature [K] vtemp = temp * ( 1.0 + 0.6077 * qmix ) END FUNCTION vtemp ================================================ FILE: PREP/mcip/src/wind.f90 ================================================ !------------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------------! SUBROUTINE wind (u, v, wspd, wdir, xlon, xlonc, xn) !------------------------------------------------------------------------------- ! Name: Calculate Wind from Components ! Purpose: Calculate wind speed and direction from components. ! Revised: 01 Apr 2002 Original version in VEROBS. (T. Otte) ! 30 Apr 2004 Modified for MCIP. (T. Otte) ! 09 Apr 2007 Removed dependency on module CONST_METE and added ! dependency on module CONST. Explicitly declared ! RAD2DEG, which was in CONST_METE. (T. Otte) ! 12 Feb 2010 Corrected computation of wind direction when ! U-component wind is effectively zero. Simplified ! code by eliminating unnecessary IF/THEN/ELSE block. ! Error and solution suggested by Talat Odman. (T. Otte) ! 07 Sep 2011 Updated disclaimer. (T. Otte) !------------------------------------------------------------------------------- USE const IMPLICIT NONE REAL :: diff REAL, PARAMETER :: rad2deg = REAL (1.8d2 / pi) REAL, INTENT(IN) :: u REAL, INTENT(IN) :: v REAL, INTENT(OUT) :: wdir REAL, INTENT(OUT) :: wspd REAL, INTENT(IN) :: xlon REAL, INTENT(IN) :: xlonc REAL, INTENT(IN) :: xn !------------------------------------------------------------------------------- ! Compute wind speed by simple triangulation of components. !------------------------------------------------------------------------------- wspd = SQRT ( ( u * u ) + ( v * v ) ) !------------------------------------------------------------------------------- ! Find wind direction using simple trigonometry. ! Modify wind direction so that it is earth-relative. !------------------------------------------------------------------------------- wdir = 270.0 - ( ATAN2(v,u) * rad2deg ) diff = (xlonc - xlon) * xn IF (diff > 180.0) diff = diff - 360.0 IF (diff < -180.0) diff = diff + 360.0 wdir = wdir - diff IF (wdir > 360.0) wdir = wdir - 360.0 IF (wdir < 0.0) wdir = wdir + 360.0 END SUBROUTINE wind ================================================ FILE: PREP/mcip/src/wrfemopts.f90 ================================================ !------------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------------! SUBROUTINE wrfemopts (txt_cupa, txt_microphys, txt_lwrad, txt_swrad, & txt_pbl, txt_sflay, txt_lsm, txt_urban, txt_shcu, txt_lu) !------------------------------------------------------------------------------- ! Name: WRF ARW (EM) Options ! Purpose: Writes WRF options to an array that will form metadata for this run. ! Revised: 31 Jul 2007 Original version. (T. Otte) ! 15 Apr 2008 Updated for WRFv3 options. (T. Otte) ! 25 Aug 2009 Updated for WRFv3.1 options. Added urban model ! to physics descriptions. (T. Otte) ! 31 Aug 2011 Updated for WRFv3.2 and WRFv3.3. options. Added ! shallow convection option to physics descriptions. ! Changed F77 character declarations to F90 standard. ! (T. Otte) ! 07 Sep 2011 Updated disclaimer. (T. Otte) ! 11 May 2012 Updated for WRFv3.4 options. (T. Otte) ! 23 Aug 2013 Updated for WRFv3.4.1 and WRFv3.5 optoins. (T. Otte) ! 27 Apr 2015 Updated for WRFv3.6, WRFv3.6.1, and WRFv3.7.1 ! options. (T. Spero) ! 20 Jun 2017 Updated for WRFv3.8, WRFv3.8.1, and WRFv3.9 ! options. (T. Spero) ! 10 Feb 2018 Annotated LSM option if NOAH Mosaic is used. (T. Spero) ! 23 Nov 2018 Updated for WRFv4.0 options. (T. Spero) ! 18 Jun 2019 Updated for WRFv4.1 options. Improved metadata to ! annotate if radiative feedbacks were included in the ! convective scheme. (T. Spero) ! 09 Apr 2024 Updated for options through WRFv4.5.2. Pulled options ! from WRF Users Guide for v4.5. Also included options ! planned for WRFv4.6 from their Git packages. (T. Spero) !------------------------------------------------------------------------------- USE metinfo USE mcipparm, ONLY: ifmosaic, ifcuradfdbk IMPLICIT NONE CHARACTER(LEN=1), PARAMETER :: blank0 = ' ' INTEGER :: n CHARACTER(LEN=1), PARAMETER :: null0 = CHAR(0) CHARACTER(LEN=30), INTENT(OUT) :: txt_cupa CHARACTER(LEN=30), INTENT(OUT) :: txt_lsm CHARACTER(LEN=30), INTENT(OUT) :: txt_lu CHARACTER(LEN=30), INTENT(OUT) :: txt_lwrad CHARACTER(LEN=30), INTENT(OUT) :: txt_microphys CHARACTER(LEN=30), INTENT(OUT) :: txt_pbl CHARACTER(LEN=30), INTENT(OUT) :: txt_sflay CHARACTER(LEN=30), INTENT(OUT) :: txt_shcu CHARACTER(LEN=30), INTENT(OUT) :: txt_swrad CHARACTER(LEN=30), INTENT(OUT) :: txt_urban !------------------------------------------------------------------------------- ! Determine cumulus parameterization scheme. !------------------------------------------------------------------------------- SELECT CASE ( met_cumulus ) CASE ( 0 ) txt_cupa = 'None' CASE ( 1 ) IF ( ifcuradfdbk ) THEN ! feedback with radiation txt_cupa = 'KF with radiative feedback' ELSE txt_cupa = 'Kain-Fritsch' ENDIF CASE ( 2 ) txt_cupa = 'Betts-Miller-Janjic' CASE ( 3 ) IF ( met_release(1:4) >= "V3.5" ) THEN IF ( ifcuradfdbk ) THEN txt_cupa = 'GF with radiative feedback' ELSE txt_cupa = 'Grell-Freitas' ENDIF ELSE txt_cupa = 'Grell-Devenyi' ENDIF CASE ( 4 ) txt_cupa = 'Old Simpl. Arakawa-Schubert' CASE ( 5 ) IF ( ifcuradfdbk ) THEN txt_cupa = 'Grell G3 w radiative feedback' ELSE txt_cupa = 'Grell G3' ENDIF CASE ( 6 ) txt_cupa = 'Tiedtke' CASE ( 7 ) txt_cupa = 'Zhang-McFarlane (CESM)' CASE ( 10 ) txt_cupa = 'Modified K-F with PDF trigger' CASE ( 11 ) txt_cupa = 'MSKF with radiative feedback' CASE ( 14 ) txt_cupa = 'KIAPS Simpl. Arakawa-Schubert' CASE ( 16 ) txt_cupa = 'Newer Tiedtke' CASE ( 84 ) txt_cupa = 'New Simpl. Ara-Schu HWRF' CASE ( 93 ) txt_cupa = 'Grell-Devenyi' CASE ( 96 ) txt_cupa = 'New Simpl. Ara-Schu (NSAS)' CASE ( 99 ) txt_cupa = 'old Kain-Fritsch' CASE DEFAULT txt_cupa = '*** Unknown ***' END SELECT !------------------------------------------------------------------------------- ! Determine explicit moisture (microphysics) scheme. !------------------------------------------------------------------------------- SELECT CASE ( met_expl_moist ) CASE ( 0 ) txt_microphys = 'None' CASE ( 1 ) txt_microphys = 'Kessler' CASE ( 2 ) txt_microphys = 'Purdue Lin et al.' CASE ( 3 ) txt_microphys = 'WSM 3-Class Simple Ice' CASE ( 4 ) txt_microphys = 'WSM 5-Class' CASE ( 5 ) txt_microphys = 'Ferrier (Eta) Hi-Res' CASE ( 6 ) txt_microphys = 'WSM 6-Class' CASE ( 7 ) txt_microphys = 'Goddard GCE (4 ice)' CASE ( 8 ) txt_microphys = 'Thompson' CASE ( 9 ) txt_microphys = 'Millbrandt-Yau' CASE ( 10 ) txt_microphys = 'Morrison 2-moment' CASE ( 11 ) txt_microphys = 'CAM 5.1' CASE ( 12 ) txt_microphys = 'Millbrandt' CASE ( 13 ) txt_microphys = 'Stony Brook-Lin' CASE ( 14 ) txt_microphys = 'WDM 5-class' CASE ( 15 ) txt_microphys = 'Ferrier (Eta) Hi-Res Advect' CASE ( 16 ) txt_microphys = 'WDM 6-class' CASE ( 17 ) txt_microphys = 'NSSL 2-moment (const CCN)' CASE ( 18 ) txt_microphys = 'NSSL 2-moment (dyn CCN)' CASE ( 19 ) txt_microphys = 'NSSL 1-moment 7-class' CASE ( 21 ) txt_microphys = 'NSSL 1-moment 6-class' CASE ( 22 ) txt_microphys = 'NSSL 2-moment (no hail)' CASE ( 24 ) txt_microphys = 'WSM 7-Class' CASE ( 26 ) txt_microphys = 'WDM 7-Class' CASE ( 28 ) txt_microphys = 'Aerosol-Aware Thompson' CASE ( 30 ) txt_microphys = 'HUJI spectral bin -- fast' CASE ( 32 ) txt_microphys = 'HUJI spectral bin -- full' CASE ( 38 ) txt_microphys = 'Thompson Hail/Graupel/Aero' CASE ( 40 ) txt_microphys = 'Morrison+CESM aerosol' CASE ( 50 ) txt_microphys = 'P3 1-category' CASE ( 51 ) txt_microphys = 'P3 1-cat + dbl-mom cld water' CASE ( 52 ) txt_microphys = 'P3 2 ice' CASE ( 53 ) txt_microphys = 'P3 3 ice' CASE ( 55 ) txt_microphys = 'Jensen ISHMAEL' CASE ( 56 ) txt_microphys = 'NTU' CASE ( 95 ) txt_microphys = 'Ferrier (old Eta) NAM' CASE ( 96 ) txt_microphys = 'MAD WRF' CASE ( 97 ) txt_microphys = 'GSFC GCE' CASE ( 98 ) IF ( met_release(1:4) >= "V3.1" ) THEN txt_microphys = 'old Thompson scheme' ELSE txt_microphys = 'NCEP 3-Class Simple Ice' ENDIF CASE ( 99 ) txt_microphys = 'NCEP 5-Class' CASE ( 106 ) txt_microphys = 'WSM 6-Class R' CASE DEFAULT txt_microphys = '*** Unknown ***' END SELECT !------------------------------------------------------------------------------- ! Determine longwave radiation scheme. !------------------------------------------------------------------------------- SELECT CASE ( met_lw_rad ) CASE ( 0 ) txt_lwrad = 'None' CASE ( 1 ) txt_lwrad = 'RRTM' CASE ( 3 ) txt_lwrad = 'CAM' CASE ( 4 ) txt_lwrad = 'RRTMG' CASE ( 5 ) txt_lwrad = 'New Goddard' CASE ( 7 ) txt_lwrad = 'Fu-Liou-Gu UCLA' CASE ( 14 ) txt_lwrad = 'RRTMG-K' CASE ( 24 ) txt_lwrad = 'Fast RRTMg' CASE ( 31 ) txt_lwrad = 'Earth Held-Suarez' CASE ( 99 ) txt_lwrad = 'GFDL (Eta)' CASE DEFAULT txt_lwrad = '*** Unknown ***' END SELECT !------------------------------------------------------------------------------- ! Determine shortwave radiation scheme. !------------------------------------------------------------------------------- SELECT CASE ( met_sw_rad ) CASE ( 0 ) txt_swrad = 'None' CASE ( 1 ) txt_swrad = 'Dudhia' CASE ( 2 ) txt_swrad = 'Goddard' CASE ( 3 ) txt_swrad = 'CAM' CASE ( 4 ) txt_swrad = 'RRTMG' CASE ( 5 ) txt_swrad = 'New Goddard' CASE ( 7 ) txt_swrad = 'Fu-Liou-Gu UCLA' CASE ( 14 ) txt_swrad = 'RRTMG-K' CASE ( 24 ) txt_swrad = 'Fast RRTMg' CASE ( 31 ) txt_swrad = 'Earth Held-Suarez' CASE ( 99 ) txt_swrad = 'GFDL (Eta)' CASE DEFAULT txt_swrad = '*** Unknown ***' END SELECT !------------------------------------------------------------------------------- ! Determine planetary boundary layer scheme. !------------------------------------------------------------------------------- SELECT CASE ( met_pbl ) CASE ( 0 ) txt_pbl = 'None' CASE ( 1 ) txt_pbl = 'YSU' CASE ( 2 ) txt_pbl = 'Mellor-Yamada-Janjic (Eta) TKE' CASE ( 4 ) txt_pbl = 'QNSE-EDMF' CASE ( 5 ) txt_pbl = 'MYNN 2.5 level TKE' CASE ( 6 ) txt_pbl = 'MYNN 3.0 level TKE' CASE ( 7 ) txt_pbl = 'ACM2 (Pleim)' CASE ( 8 ) txt_pbl = 'Bougeault and Lacarrere' CASE ( 9 ) txt_pbl = 'UW Bretherton and Park (CESM)' CASE ( 10 ) txt_pbl = 'Total Energy-Mass Flux (TEMF)' CASE ( 11 ) txt_pbl = 'Shin-Hong scale-aware scheme' CASE ( 12 ) txt_pbl = 'Grenier-Bretherton-McCaa' CASE ( 16 ) txt_pbl = 'EEPS' CASE ( 17 ) txt_pbl = 'KEPS' CASE ( 94 ) txt_pbl = 'Quasi-Normal Scale Elim' CASE ( 99 ) txt_pbl = 'MRF' CASE DEFAULT txt_pbl = '*** Unknown ***' END SELECT !------------------------------------------------------------------------------- ! Determine surface-layer scheme. !------------------------------------------------------------------------------- SELECT CASE ( met_sfc_lay ) CASE ( 0 ) txt_sflay = 'None' CASE ( 1 ) IF ( met_release(1:4) >= "V3.6" ) THEN txt_sflay = 'Revised MM5 (Jimenez)' ELSE txt_sflay = 'Monin-Obukhov' ENDIF CASE ( 2 ) txt_sflay = 'Monin-Obukhov (Janjic Eta)' CASE ( 4 ) txt_sflay = 'QNSE' CASE ( 5 ) txt_sflay = 'MYNN' CASE ( 7 ) txt_sflay = 'Pleim' CASE ( 10 ) txt_sflay = 'Total Energy-Mass Flux (TEMF)' CASE ( 11 ) txt_sflay = 'Revised MM5 (Jimenez)' CASE ( 91 ) txt_sflay = 'MM5 Similarity' CASE DEFAULT txt_sflay = '*** Unknown ***' END SELECT !------------------------------------------------------------------------------- ! Determine surface scheme. !------------------------------------------------------------------------------- SELECT CASE ( met_soil_lsm ) CASE ( 0 ) txt_lsm = 'No Sfc Temperature Prediction' CASE ( 1 ) txt_lsm = 'Thermal Diffusion' CASE ( 2 ) IF ( ifmosaic ) THEN txt_lsm = 'NOAH Mosaic Land-Surface Model' ELSE txt_lsm = 'NOAH Land-Surface Model' ENDIF CASE ( 3 ) txt_lsm = 'RUC Land-Surface Model' CASE ( 4 ) txt_lsm = 'NOAH-MP' CASE ( 5 ) txt_lsm = 'CLM4' CASE ( 7 ) txt_lsm = 'Pleim-Xiu Land-Surface Model' CASE ( 8 ) txt_lsm = 'Simplified SiB' CASE DEFAULT txt_lsm = '*** Unknown ***' END SELECT !------------------------------------------------------------------------------- ! Determine urban model. !------------------------------------------------------------------------------- SELECT CASE ( met_urban_phys ) CASE ( 0 ) txt_urban = 'No urban physics' CASE ( 1 ) txt_urban = 'Single-Layer UCM (Kusaka)' CASE ( 2 ) txt_urban = 'Multi-Layer BEP (Martilli)' CASE ( 3 ) txt_urban = 'Multi-Layer Bldg Energy Model' CASE DEFAULT txt_urban = '*** Unknown ***' END SELECT !------------------------------------------------------------------------------- ! Determine shallow convection option. !------------------------------------------------------------------------------- SELECT CASE ( met_shal_cu ) CASE ( -1 ) txt_shcu = 'Grell 3D -- unknown' CASE ( 0 ) txt_shcu = 'No shallow convection' CASE ( 1 ) txt_shcu = 'Grell 3D shallow' CASE ( 2 ) txt_shcu = 'UW Bretherton and Park (CESM)' CASE ( 3 ) txt_shcu = 'GRIMS (YSU)' CASE ( 4 ) txt_shcu = 'NSAS Shallow Scheme' CASE ( 5 ) txt_shcu = 'Deng Shallow Scheme' CASE DEFAULT txt_shcu = '*** Unknown ***' END SELECT !------------------------------------------------------------------------------- ! Determine land use categorization. !------------------------------------------------------------------------------- txt_lu(1:LEN_TRIM(met_lu_src)) = met_lu_src(1:LEN_TRIM(met_lu_src)) DO n = 1, LEN_TRIM(txt_lu) IF ( txt_lu(n:n) == null0 ) THEN txt_lu(n:n) = blank0 ENDIF ENDDO END SUBROUTINE wrfemopts ================================================ FILE: PREP/mcip/src/wrgdesc.f90 ================================================ !------------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------------! SUBROUTINE wrgdesc !------------------------------------------------------------------------------- ! Name: Write Grid Description ! Purpose: Writes grid description (GRIDDESC) file. ! Revised: 03 Oct 2001 Original version. (T. Otte) ! 07 Jan 2002 Added OPEN and CLOSE statements for output file. ! (S. Howard and T. Otte) ! 30 Jan 2002 Changed the creation of the GRIDDESC file from ! a list-directed write to a formatted write to ! improve portability. (T. Otte) ! 01 Jul 2004 Corrected minor formatting bugs. (T. Otte) ! 29 Aug 2011 Changed name of module FILE to FILES to avoid conflict ! with F90 protected intrinsic. Changed name of internal ! variable BLANK to BLNK to avoid conflict with F90 ! protected intrinsic. (T. Otte) ! 07 Sep 2011 Updated disclaimer. (T. Otte) ! 30 Jun 2021 Changed format for GRIDDESC to accommodate modeling ! domains with more than 999 grid cells on a side. ! (T. Spero) !------------------------------------------------------------------------------- USE coord USE files USE mcipparm IMPLICIT NONE CHARACTER(LEN=1), PARAMETER :: blnk = ' ' CHARACTER(LEN=1), PARAMETER :: quote = CHAR(39) !------------------------------------------------------------------------------- ! Error, warning, and informational messages. !------------------------------------------------------------------------------- CHARACTER(LEN=256), PARAMETER :: f100 = "(a)" CHARACTER(LEN=256), PARAMETER :: f200 = "(i3, 5(1x, f13.3))" CHARACTER(LEN=256), PARAMETER :: f300 = "( a, 4(1x, f13.3), 3(1x, i4))" !------------------------------------------------------------------------------- ! Write grid description in two sets. Reader uses two list-directed READ ! statements to capture information. !------------------------------------------------------------------------------- OPEN (iutgd, FILE=file_gd) WRITE (iutgd,f100) quote // blnk // quote WRITE (iutgd,f100) quote // TRIM(coordnam_gd) // quote WRITE (iutgd,f200) gdtyp_gd, p_alp_gd, p_bet_gd, p_gam_gd, xcent_gd, ycent_gd WRITE (iutgd,f100) quote // blnk // quote WRITE (iutgd,f100) quote // TRIM(gdname_gd) // quote WRITE (iutgd,f300) quote // TRIM(coordnam_gd) // quote, xorig_gd, yorig_gd, & xcell_gd, ycell_gd, ncols, nrows, nthik WRITE (iutgd,f100) quote // blnk // quote CLOSE (iutgd) END SUBROUTINE wrgdesc ================================================ FILE: PREP/mcip/src/xvars_mod.f90 ================================================ !------------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------------! MODULE xvars !------------------------------------------------------------------------------- ! Name: X-Variables ! Purpose: Contains X-variables (CTM arrays plus boundary in horizontal). ! Revised: 25 Jan 1997 Original version. (D. Byun) ! 20 May 1997 For Models-3 Beta Version. (???) ! 05 Nov 1997 Added nonhydrostatic/hydrostatic output fnc. (???) ! 05 Jan 1998 Added mass consistency error, XMCONERR. (???) ! 30 Apr 1999 Replaced PSTAR with PRSFC. (???) ! 19 Sep 2001 Converted to free-form f90 and changed name from ! MCIPCOM.EXT to module_xvars.f90. Added XQICE ! and XQSNOW. Removed user-definable control parameters ! LWINDMOD, LNOMAPS, LNOTOPO, LM3DDEP, LSANITY, and ! LMASSOP. Changed arrays to allocatable. Removed ! COMMON blocks. Moved METCOL, METROW, and METLAY to ! MCIPPARM. Removed MET1, MET2, LUSE, and KFFILE since ! they are not used. Changed input date variables. ! Moved user input variables to MCIPPARM. Changed ! routine to XVARS. Added PX variables. Removed unused ! arrays for LAMDA and MCONERR. (T. Otte) ! 14 Jan 2002 Added new dry deposition species, methanol. ! (Y. Wu and T. Otte) ! 27 Feb 2002 Renamed XSURF1 as XTEMP1P5 and XSURF2 as XWIND10. ! (T. Otte) ! 18 Mar 2003 Removed XJDRATE. (T. Otte) ! 09 Jun 2003 Added XF2DEF, XSNOCOV, XDELTA, XLSTWET, and XRH. ! Added new dry deposition species: N2O5, NO3, and ! generic aldehyde. Removed dry deposition species, ! ATRA and ATRAP, from output. (T. Otte, J. Pleim, ! and D. Schwede) ! 10 Aug 2004 Added XQGRAUP, XWSPD10, XWDIR10, and XT2. Removed ! XFLAGS, XINDEX, XNAMES, the pointers to XNAMES, and ! XLUSNAME. (T. Otte and D. Schwede) ! 29 Nov 2004 Added XPURB. (T. Otte) ! 04 Apr 2005 Removed unused variables XREGIME, XRTOLD, XPRSOLD, ! XENTRP, and XDENSAM_REF. Moved XDFLUX and XPSRATE ! as local variables in VERTHYD. Added XMU and XGEOF ! for WRF. Changed XUU and XVV to XUU_D and XVV_D, and ! changed XUHAT and XVHAT to XUU_S and XVV_T. Added ! pointers for optional chlorine and mercury species. ! Added XU10 and XV10. (T. Otte, S.-B. Kim, G. Sarwar, ! and R. Bullock) ! 19 Aug 2005 Removed XDEPIDX and pointers to XDEPIDX. Moved ! XDEPSPC and XVD to DEPVVARS_MOD. Removed unused ! variables XCAPG, XMMPASS, XFSOIL, and X_RESOL. Removed ! XRH and made it a local scalar in M3DRY. (T. Otte and ! W. Hutzell) ! 14 Jul 2006 Removed XDELTA and XLSTWET to be local variables in ! M3DRY. Added XLWMASK. (T. Otte) ! 30 Jul 2007 Added IMPLICIT NONE. Changed XUSTAR and XRADYN to 2D ! arrays without a dimension for fractional land use ! that was required for RADMdry. Removed XRBNDY. ! Added comments for variables. Removed low, middle, ! and high cloud arrays, and 1.5-m and 10-m temperature ! arrays. Changed 2-m temperature from XT2 to XTEMP2. ! Removed internal variables for emissivity and net ! radiation. Added scalar XLUSRC. Removed XF2DEF and ! XRSTMIN to be local variables in RESISTCALC. Added ! XPSTAR0. (T. Otte) ! 21 Apr 2008 Added 2-m mixing ratio (XQ2) and turbulent kinetic ! energy (XTKE) arrays. (T. Otte) ! 17 Aug 2009 Added land-use category description, XLUDESC. Added ! 3D potential vorticity (XPVC), Coriolis (XCORL), and ! potential temperature (XTHETA). Added map-scale ! factor squared (on cross points, XMAPC2). Added ! XLATU, XLONU, XMAPU, XLATV, XLONV, and XMAPV. (T. Otte) ! 14 Dec 2010 Added sea ice. (T. Otte) ! 31 Aug 2011 Changed F77 character declarations to F90 standard. ! (T. Otte) ! 07 Sep 2011 Updated disclaimer. (T. Otte) ! 10 Apr 2015 Added new array XCFRAC3D to pass 3D resolved cloud ! fraction to output. (T. Spero) ! 21 Aug 2015 Changed latent heat flux from QFX to LH. Added ! moisture flux (QFX) for IFMOLACM. (T. Spero) ! 16 Mar 2018 Added SNOWH to output. Added XMUHYB to support hybrid ! vertical coordinate in WRF output. Added XLUFRAC2, ! XMOSCATIDX, XLAI_MOS, XRA_MOS, XRS_MOS, XTSK_MOS, and ! XZNT_MOS to support NOAH Mosaic land-surface model. ! Added XZSOIL to define depths of soil layers, and ! added 3D soil arrays, XSOIT3D and XSOIM3D. Added ! XWSPDSFC and XXLAIDYN for Noah. (T. Spero) ! 14 Sep 2018 Removed support for MM5v3 input. (T. Spero) ! 18 Jun 2019 Added new surface variables with PX LSM that can ! improve dust simulation in CCTM. Added optional ! variables from KF convective scheme with radiative ! feedbacks. (T. Spero) !------------------------------------------------------------------------------- IMPLICIT NONE !------------------------------------------------------------------------------- ! Scalars and One-Dimensional Arrays. !------------------------------------------------------------------------------- REAL :: x3top ! top of X-array data CHARACTER(LEN=10) :: xlusrc ! source of land use classification REAL, ALLOCATABLE :: xx3face ( : ) ! layer face of X-array data REAL, ALLOCATABLE :: xx3midl ( : ) ! layer middle of X-array data REAL, ALLOCATABLE :: xdx3 ( : ) ! layer thickness (positive always) REAL, ALLOCATABLE :: xzsoil ( : ) ! soil layer depths CHARACTER(LEN=80), ALLOCATABLE :: xludesc ( : ) ! land-use category !------------------------------------------------------------------------------- ! Dot-Point and Face 2D Arrays. !------------------------------------------------------------------------------- REAL, ALLOCATABLE :: xlatd ( : , : ) ! latitude at dot pts [degrees] REAL, ALLOCATABLE :: xlatu ( : , : ) ! latitude at U faces [degrees] REAL, ALLOCATABLE :: xlatv ( : , : ) ! latitude at V faces [degrees] REAL, ALLOCATABLE :: xlond ( : , : ) ! longitude at dot pts [degrees] REAL, ALLOCATABLE :: xlonu ( : , : ) ! longitude at U faces [degrees] REAL, ALLOCATABLE :: xlonv ( : , : ) ! longitude at V faces [degrees] REAL, ALLOCATABLE :: xmapd ( : , : ) ! map scale at dot pts [dim'less] REAL, ALLOCATABLE :: xmapu ( : , : ) ! map scale at U faces [dim'less] REAL, ALLOCATABLE :: xmapv ( : , : ) ! map scale at V faces [dim'less] !------------------------------------------------------------------------------- ! Cross-Point 2D Arrays. !------------------------------------------------------------------------------- REAL, ALLOCATABLE :: xcorl ( : , : ) ! Coriolis at cross pts [s-1] REAL, ALLOCATABLE :: xlatc ( : , : ) ! latitude at cross pts [degree] REAL, ALLOCATABLE :: xlonc ( : , : ) ! longitude at cross pts [degree] REAL, ALLOCATABLE :: xmapc ( : , : ) ! map scale at cross pts [dim'less] REAL, ALLOCATABLE :: xmapc2 ( : , : ) ! XMAPC**2 at cross pts [dim'less] REAL, ALLOCATABLE :: xtopo ( : , : ) ! topographic height (MSL) [m] REAL, ALLOCATABLE :: xprsfc ( : , : ) ! sfc pressure at cross [Pa] REAL, ALLOCATABLE :: xdenss ( : , : ) ! surface air density [kg/m3] REAL, ALLOCATABLE :: xtempg ( : , : ) ! ground surface temperature [K] REAL, ALLOCATABLE :: xrainn ( : , : ) ! nonconvective rain (cumulative) REAL, ALLOCATABLE :: xrainc ( : , : ) ! convective rain (cumulative) REAL, ALLOCATABLE :: xdluse ( : , : ) ! dominant land use category REAL, ALLOCATABLE :: xlwmask ( : , : ) ! land-water mask (1=land, 0=water) REAL, ALLOCATABLE :: xpurb ( : , : ) ! percentage of urban area [%] REAL, ALLOCATABLE :: xglw ( : , : ) ! l/w rad at grnd [W/m2] REAL, ALLOCATABLE :: xgsw ( : , : ) ! s/w rad absorbed at grnd [W/m2] REAL, ALLOCATABLE :: xhfx ( : , : ) ! sensible heat flux [W/m2] REAL, ALLOCATABLE :: xlh ( : , : ) ! latent heat flux [W/m2] REAL, ALLOCATABLE :: xustar ( : , : ) ! friction velocity [m] REAL, ALLOCATABLE :: xpbl ( : , : ) ! PBL height [m] REAL, ALLOCATABLE :: xzruf ( : , : ) ! surface roughness [m] REAL, ALLOCATABLE :: xmol ( : , : ) ! Monin-Obukhov length [m] REAL, ALLOCATABLE :: xrgrnd ( : , : ) ! s/w rad reaching grnd [W/m2] REAL, ALLOCATABLE :: xqfx ( : , : ) ! up moist flux at sfc [kg m-2 s-1] REAL, ALLOCATABLE :: xwstar ( : , : ) ! convective velocity scale [m/s] REAL, ALLOCATABLE :: xrib ( : , : ) ! bulk Richardson number REAL, ALLOCATABLE :: xradyn ( : , : ) ! aerodynamic resistance [s/m] REAL, ALLOCATABLE :: xrstom ( : , : ) ! stomatal resistance [s/m] REAL, ALLOCATABLE :: xtemp2 ( : , : ) ! 2-m temperature [K] REAL, ALLOCATABLE :: xq2 ( : , : ) ! 2-m mixing ratio [kg/kg] REAL, ALLOCATABLE :: xwspd10 ( : , : ) ! 10-m wind speed at crs [m/s] REAL, ALLOCATABLE :: xwdir10 ( : , : ) ! 10-m wind direction at crs [deg] REAL, ALLOCATABLE :: xalbedo ( : , : ) ! albedo [dim'less] REAL, ALLOCATABLE :: xmavail ( : , : ) ! moisture availability REAL, ALLOCATABLE :: xcfract ( : , : ) ! cloud fraction [fraction] REAL, ALLOCATABLE :: xcldtop ( : , : ) ! cloud top height [m] REAL, ALLOCATABLE :: xcldbot ( : , : ) ! cloud bottom height [m] REAL, ALLOCATABLE :: xwbar ( : , : ) ! avg liq water in cld [g/m3] REAL, ALLOCATABLE :: xsnocov ( : , : ) ! snow cover [1=yes, 0=no] REAL, ALLOCATABLE :: xseaice ( : , : ) ! sea ice [1=yes, 0=no; or frac] REAL, ALLOCATABLE :: xsnowh ( : , : ) ! snow height [m] REAL, ALLOCATABLE :: xmuhyb ( : , : ) ! dry mu in hybrid coordinate REAL, ALLOCATABLE :: xu10 ( : , : ) ! 10-m u-comp wind at crs [m/s] REAL, ALLOCATABLE :: xv10 ( : , : ) ! 10-m v-comp wind at crs [m/s] REAL, ALLOCATABLE :: xtga ( : , : ) ! ground temperature [K] REAL, ALLOCATABLE :: xt2a ( : , : ) ! deep layer soil temperature [K] REAL, ALLOCATABLE :: xwga ( : , : ) ! ground sfc soil moisture [m3/m3] REAL, ALLOCATABLE :: xw2a ( : , : ) ! deep layer soil moisture [m3/m3] REAL, ALLOCATABLE :: xwr ( : , : ) ! precip intercepted by canopy [m] REAL, ALLOCATABLE :: xlai ( : , : ) ! leaf area index [m2/m2] REAL, ALLOCATABLE :: xveg ( : , : ) ! vegetation coverage [decimal] REAL, ALLOCATABLE :: xsltyp ( : , : ) ! soil texture type [category] REAL, ALLOCATABLE :: xwsat_px ( : , : ) ! soil saturation (PX) [m3/m3] REAL, ALLOCATABLE :: xwwlt_px ( : , : ) ! soil wilt pt (PX) [m3/m3] REAL, ALLOCATABLE :: xwfc_px ( : , : ) ! soil fld capacity (PX) [m3/m3] REAL, ALLOCATABLE :: xcsand_px ( : , : ) ! coarse sand (PX) [fraction] REAL, ALLOCATABLE :: xfmsand_px ( : , : ) ! fine-medium sand (PX) [fraction] REAL, ALLOCATABLE :: xclay_px ( : , : ) ! clay (PX) [fraction] REAL, ALLOCATABLE :: xluse ( : , : , : ) ! landuse fractions [0-1] !------------------------------------------------------------------------------- ! Cross-Point 3D arrays. !------------------------------------------------------------------------------- REAL, ALLOCATABLE :: xtempm ( : , : , : ) ! temp. at layer middle [K] REAL, ALLOCATABLE :: xpresm ( : , : , : ) ! pressure at layer middle [Pa] REAL, ALLOCATABLE :: xdensam ( : , : , : ) ! air density at middle [kg/m^3] REAL, ALLOCATABLE :: xdenswm ( : , : , : ) ! vapor density at middle [kg/m^3] REAL, ALLOCATABLE :: x3jacobf( : , : , : ) ! Jacobian at layer face [m] REAL, ALLOCATABLE :: x3jacobm( : , : , : ) ! Jacobian at layer middle [m] REAL, ALLOCATABLE :: x3htf ( : , : , : ) ! AGL height at layer face [m] REAL, ALLOCATABLE :: x3htm ( : , : , : ) ! AGL height at layer middle [m] REAL, ALLOCATABLE :: xwhat ( : , : , : ) ! contra-w wind at face [m/s] REAL, ALLOCATABLE :: xwvapor ( : , : , : ) ! water vapor mixing ratio [kg/kg] REAL, ALLOCATABLE :: xwwind ( : , : , : ) ! vertical wind at face [m/s] REAL, ALLOCATABLE :: xcldwtr ( : , : , : ) ! cloud water mixing ratio [kg/kg] REAL, ALLOCATABLE :: xranwtr ( : , : , : ) ! rain water mixing ratio [kg/kg] REAL, ALLOCATABLE :: xqice ( : , : , : ) ! ice mixing ratio [kg/kg] REAL, ALLOCATABLE :: xqsnow ( : , : , : ) ! snow mixing ratio [kg/kg] REAL, ALLOCATABLE :: xqgraup ( : , : , : ) ! graupel mixing ratio [kg/kg] REAL, ALLOCATABLE :: xtke ( : , : , : ) ! turbulent kinetic energy [J/kg] REAL, ALLOCATABLE :: xpvc ( : , : , : ) ! potential vorticity [m^2-K/kg-s] REAL, ALLOCATABLE :: xtheta ( : , : , : ) ! potential temperature [K] REAL, ALLOCATABLE :: xcfrac3d( : , : , : ) ! resolved cloud fraction [frac] REAL, ALLOCATABLE :: xqc_cu ( : , : , : ) ! cld wtr mx rat from cu [kg/kg] REAL, ALLOCATABLE :: xqi_cu ( : , : , : ) ! cld ice mx rat from cu [kg/kg] REAL, ALLOCATABLE :: xcldfrad( : , : , : ) ! subgrid deep cld fraction [frac] REAL, ALLOCATABLE :: xcldfras( : , : , : ) ! subgrid shal cld fraction [frac] !------------------------------------------------------------------------------- ! Dot-Point (and Face-Point) 3D Arrays. !------------------------------------------------------------------------------- REAL, ALLOCATABLE :: xuu_d ( : , : , : ) ! u comp. wind on dot pts [m/s] REAL, ALLOCATABLE :: xvv_d ( : , : , : ) ! v comp. wind on dot pts [m/s] REAL, ALLOCATABLE :: xuu_s ( : , : , : ) ! u comp. wind on flux pts [m/s] REAL, ALLOCATABLE :: xvv_t ( : , : , : ) ! v comp. wind on flux pts [m/s] !------------------------------------------------------------------------------- ! Cross-Point Soil arrays. !------------------------------------------------------------------------------- REAL, ALLOCATABLE :: xsoit3d ( : , : , : ) ! soil temperature [K] REAL, ALLOCATABLE :: xsoim3d ( : , : , : ) ! soil moisture [m^3/m^3] !------------------------------------------------------------------------------- ! Cross-Point Mosaic arrays. !------------------------------------------------------------------------------- REAL, ALLOCATABLE :: xlufrac2 ( : , : , : ) ! LU fraction (rank ordered) REAL, ALLOCATABLE :: xmoscatidx ( : , : , : ) ! LU category with XLUFRAC2 REAL, ALLOCATABLE :: xlai_mos ( : , : , : ) ! LAI mosaic [area/area] REAL, ALLOCATABLE :: xra_mos ( : , : , : ) ! aero resist mosaic [s/m] REAL, ALLOCATABLE :: xrs_mos ( : , : , : ) ! stomatal resist mosaic [s/m] REAL, ALLOCATABLE :: xtsk_mos ( : , : , : ) ! skin temperature mosaic [K] REAL, ALLOCATABLE :: xznt_mos ( : , : , : ) ! roughness length mosaic [m] REAL, ALLOCATABLE :: xwspdsfc ( : , : ) ! wind spd within Noah [m/s] REAL, ALLOCATABLE :: xxlaidyn ( : , : ) ! Noah dynamic LAI [area/area] !------------------------------------------------------------------------------- ! Arrays for WRF only. !------------------------------------------------------------------------------- REAL, ALLOCATABLE :: xmu ( : , : ) ! Mu at cross points REAL, ALLOCATABLE :: xgeof ( : , : , : ) ! geopotential at face points !------------------------------------------------------------------------------- ! Internal Arrays. !------------------------------------------------------------------------------- REAL, ALLOCATABLE :: xdx3htf ( : , : , : ) ! layer thickness [m] REAL, ALLOCATABLE :: xdensaf ( : , : , : ) ! total air density at interface REAL, ALLOCATABLE :: xpresf ( : , : , : ) ! total air pressure at face END MODULE xvars ================================================ FILE: PREP/mcip/src/xy2ll_lam.f90 ================================================ !------------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------------! SUBROUTINE xy2ll_lam (xx, yy, phi1, phi2, lambda0, phi0, phi, lambda) !------------------------------------------------------------------------------- ! Name: (X,Y) to Latitude-Longitude for Lambert Conformal Projection ! Purpose: Calcluates latitude-longitude for a given (X,Y) pair from origin ! and Lambert conformal projection information. ! Notes: Equations adapted from http://mathworld.wolfram.com. ! Revised: 12 Dec 2007 Original version. (T. Otte) ! 18 Sep 2009 Added reference latitude (PHI0) as an argument. ! Converted to double-precision. Corrected comments ! associated with RHO0. Corrected calculation of PSI ! (with no impact on results). (T. Otte) ! 02 Oct 2009 Changed algorithm to follow Wolfram to eliminate the ! divide-by-zero condition for computing latitude along ! the standard longitude. (T. Otte) ! 07 Sep 2011 Updated disclaimer. (T. Otte) !------------------------------------------------------------------------------- USE const, ONLY: rearth IMPLICIT NONE REAL(8) :: deg2rad ! convert degrees to radians REAL(8) :: drearth ! earth radius [m] REAL, INTENT(OUT) :: lambda ! longitude [deg] REAL(8) :: lambdarad ! longitude [rad] REAL, INTENT(IN) :: lambda0 ! standard longitude [deg] REAL(8) :: lambda0rad ! standard longitude [rad] REAL, INTENT(OUT) :: phi ! latitude [deg] REAL(8) :: phirad ! latitude [rad] REAL, INTENT(IN) :: phi0 ! reference latitude [deg] REAL(8) :: phi0rad ! reference latitude [rad] REAL, INTENT(IN) :: phi1 ! true latitude 1 [deg] REAL(8) :: phi1rad ! true latitude 1 [rad] REAL, INTENT(IN) :: phi2 ! true latitude 2 [deg] REAL(8) :: phi2rad ! true latitude 2 [rad] REAL(8) :: pi REAL(8) :: piover2 ! pi/2 REAL(8) :: piover4 ! pi/4 REAL(8) :: psi ! auxiliary function REAL(8) :: rad2deg REAL(8) :: rho REAL(8) :: rho0 ! polar radius to origin REAL(8) :: term0 REAL(8) :: term1 REAL(8) :: term2 REAL(8) :: theta ! polar angle REAL(8) :: sinphi0 ! cone constant REAL(8) :: sinphi0inv ! 1/sinphi0 REAL, INTENT(IN) :: xx ! X-coordinate from origin REAL, INTENT(IN) :: yy ! Y-coordinate from origin !------------------------------------------------------------------------------- ! Compute constants. !------------------------------------------------------------------------------- piover4 = DATAN(1.0d0) pi = 4.0d0 * piover4 piover2 = 2.0d0 * piover4 deg2rad = pi / 1.8d2 rad2deg = 1.8d2 / pi drearth = DBLE(rearth) !------------------------------------------------------------------------------- ! Compute cone constant, SINPHI0. !------------------------------------------------------------------------------- phi0rad = DBLE(phi0) * deg2rad ! convert PHI0 from degrees to radians phi1rad = DBLE(phi1) * deg2rad ! convert PHI1 from degrees to radians phi2rad = DBLE(phi2) * deg2rad ! convert PHI2 from degrees to radians term0 = DTAN ( piover4 + phi0rad/2.0d0 ) term1 = DTAN ( piover4 + phi1rad/2.0d0 ) term2 = DTAN ( piover4 + phi2rad/2.0d0 ) sinphi0 = DLOG ( DCOS(phi1rad) / DCOS(phi2rad) ) sinphi0 = sinphi0 / DLOG (term2 / term1) sinphi0inv = 1.0d0 / sinphi0 !------------------------------------------------------------------------------- ! Compute polar radius to origin, RHO0, where origin is at PHI0. !------------------------------------------------------------------------------- psi = drearth * DCOS(phi1rad) * sinphi0inv * (term1**sinphi0) rho0 = psi / (term0**sinphi0) !------------------------------------------------------------------------------- ! Compute longitude, LAMBDA. !------------------------------------------------------------------------------- lambda0rad = lambda0 * deg2rad theta = DATAN( DBLE(xx) / (rho0 - DBLE(yy)) ) lambdarad = lambda0rad + theta * sinphi0inv lambda = REAL(lambdarad * rad2deg) !------------------------------------------------------------------------------- ! Compute latitude, PHI. !------------------------------------------------------------------------------- rho = DSQRT( DBLE(xx)*DBLE(xx) + (rho0-DBLE(yy))*(rho0-DBLE(yy)) ) rho = DSIGN(1.0d0, sinphi0) * rho phirad = (psi / rho)**sinphi0inv phirad = 2.0d0 * DATAN(phirad) - piover2 phi = REAL(phirad * rad2deg) END SUBROUTINE xy2ll_lam ================================================ FILE: PREP/mcip/src/xy2ll_merc.f90 ================================================ !------------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------------! SUBROUTINE xy2ll_merc (xx, yy, lambda0, phi, lambda) !------------------------------------------------------------------------------- ! Name: (X,Y) to Latitude-Longitude for Polar Stereographic Projection ! Purpose: Calcluates latitude-longitude for a given (X,Y) pair from origin ! and polar stereographic projection information. ! Notes: Equations taken from "Map Projections: Theory and Applications" ! by Frederick Pearson, II (1990), pp. 190-192. ! Revised: 18 Sep 2009 Original version. (T. Otte) ! 07 Sep 2011 Updated disclaimer. (T. Otte) !------------------------------------------------------------------------------- USE const, ONLY: rearth IMPLICIT NONE REAL(8) :: deg2rad ! convert degrees to radians REAL(8) :: drearth ! earth radius [m] REAL, INTENT(OUT) :: lambda ! longitude [deg] REAL(8) :: lambdarad ! longitude [rad] REAL, INTENT(IN) :: lambda0 ! center longitude [deg] REAL(8) :: lambda0rad ! center longitude [rad] REAL, INTENT(OUT) :: phi ! latitude [deg] REAL(8) :: phirad ! latitude [rad] REAL(8) :: pi REAL(8) :: piover2 ! pi/2 REAL(8) :: piover4 ! pi/4 REAL(8) :: rad2deg REAL, INTENT(IN) :: xx ! X-coordinate from origin REAL(8) :: xxd REAL, INTENT(IN) :: yy ! Y-coordinate from origin REAL(8) :: yyd !------------------------------------------------------------------------------- ! Compute constants. !------------------------------------------------------------------------------- piover4 = DATAN(1.0d0) piover2 = 2.0d0 * piover4 pi = 4.0d0 * piover4 deg2rad = pi / 1.8d2 rad2deg = 1.8d2 / pi drearth = DBLE(rearth) !------------------------------------------------------------------------------- ! Set up geometric constants. !------------------------------------------------------------------------------- xxd = DBLE(xx) yyd = DBLE(yy) !------------------------------------------------------------------------------- ! Compute latitude (PHI). !------------------------------------------------------------------------------- phirad = ( 2.0d0 * DATAN ( DEXP(yyd/drearth) ) ) - piover2 phi = REAL( phirad * rad2deg ) !------------------------------------------------------------------------------- ! Compute longitude (LAMBDA). !------------------------------------------------------------------------------- lambda0rad = DBLE(lambda0) * deg2rad lambdarad = lambda0rad + xxd/drearth lambda = REAL( lambdarad * rad2deg ) END SUBROUTINE xy2ll_merc ================================================ FILE: PYTOOLS/README.md ================================================ Python Tools for CMAQ ===================== This folder holds python tools for CMAQ. These tools may fill roles that are usually stored in PREP or POST folders. They are stored here to centralize the installation requirements. These Python Tools require Python v3.6 or higher. Some are written as Jupyter Notebooks, while others as scripts. All will require some libraries. The best way to check your installation is to run: `python install/show_versions.py install/requirements.txt` For information about how to install, see the install folder. Tool Listing ============ * [install](install/README.md) Describes preparing an environment for CMAQ/PYTOOLS. * [dmschlo](dmschlo/README.md) Prepares DMS and Chlorophyll-A concentrations for CMAQ. * [shp2cmaq](../PYTOOLS/shp2cmaq/README.md) Creates a CMAQ-ready grid mask from a shape file that can be used for defining regions and region families with DESID and using geographic source regions when running CMAQ-ISAM. ================================================ FILE: PYTOOLS/dmschlo/.gitignore ================================================ output cdogrids chlor_a dmsclimatology miniconda ================================================ FILE: PYTOOLS/dmschlo/CMAQ_DMS_ChlorA.ipynb ================================================ { "cells": [ { "cell_type": "markdown", "metadata": { "id": "Ol-xbgTvlzz2" }, "source": [ "# DMS and Chlorophyll-A for CMAQ\n", "\n", "---\n", " author: Barron H. Henderson\n", " contributors: Brett Gantt, Jeff Willison, Golam Sarwar, and Sara Farrell\n", " date: 2021-03-23\n", " last updated: 2024-06-12\n", "---\n", "\n", "This notebook creates CMAQ-Ready input files necessary for CMAQ halogen and DMS. DMS chemistry requires DMS concentrations and halogen chemistry relies on chlorophyll concentrations. The Chlorophyll is extracted from NASA MODIS-Aqua level-3 data prodcuts. The DMS is created from monthly climatologies from the Surface Ocean and Lower Atmosphere (SOLAS) project.\n", "\n" ] }, { "cell_type": "markdown", "metadata": {}, "source": [ "# Specify User Input Options\n", "\n", "* User input options are described below.\n", "* Most users will update `dom`, `ocnintmpl`, `ocnouttmpl`, and `gdpath`" ] }, { "cell_type": "code", "execution_count": null, "metadata": {}, "outputs": [], "source": [ "# dom : str\n", "# Name of output domain. For example, 12US1, 36US3, 108NHEMI2. This is used\n", "# to name outputs and inputs.\n", "dom = '12US1'\n", "\n", "# ocnintmpl : str\n", "# Path to OCEAN file with OPEN (0-1) and SURF (0-1) variables. The path can\n", "# use strftime templates to construct date specific paths. The strftime\n", "# function described at https://strftime.net/. For 2016-01-01, here are a\n", "# few examples: %F = 2016-01-01, %Y%j = 2016001, %m%d = 0101, %b = Jan,\n", "# %^b = JAN. e.g., OCEAN_%Y%b.nc = OCEAN_2016Jan.nc\n", "ocnintmpl = f'/work/MOD3DATA/2016_{dom}/surface/{dom}_surf.ncf'\n", "\n", "# ocnouttmpl : str\n", "# strftime template to create a new file. The new file will have ocnintmpl\n", "# variables in addition to DMS and CHLO.\n", "ocnouttmpl = f'output/{dom}/OCEAN_%m_L3m_MC_CHL_chlor_a_{dom}.nc'\n", "\n", "# gdpath : str\n", "# Path to an IOAPI file using the domain (dom). Most of the time you can use\n", "# your ocean file. If your ocnintmpl is time varying (i.e., uses strftime),\n", "# then you will need to update this to hard code a specific path. e.g.,\n", "# gdpath = ocnintmpl.replace('%b', 'Jan')\n", "gdpath = ocnintmpl\n", "\n", "# overwrite : bool\n", "# Default False, keep existing intermediate files. This is faster by a lot\n", "# when redoing a domain, but uses cached results. If True, recreate all.\n", "overwrite = False\n", "\n", "# getlatestchlo : bool\n", "# Default True, discover latest climatology urls from NASA server If False,\n", "# use a prexisting list of known urls. Known urls can be any url that NetCDF\n", "# can read (e.g, OpenDAP or local paths). They can also be month specific\n", "# instead of climatology\n", "getlatestchlo = False" ] }, { "cell_type": "markdown", "metadata": { "id": "xGn3VnPDLF4j" }, "source": [ "# Install Prerequisites\n", "\n", "* On Google Colab or other web-based platforms, you may need to install some non-standard libraries\n", "* To do this, the notebook will use a combination of `apt-get` or `miniconda`, and `pip`\n", "* Both can be run from within this notebook by specifying options below." ] }, { "cell_type": "code", "execution_count": null, "metadata": { "id": "kEMW45MRTS2b" }, "outputs": [], "source": [ "installprereq = True\n", "installcdo = False\n", "# Use a preinstalled version of cdo in the user path\n", "cdopath = 'cdo'\n", "# Or specify a specific path. For example, at EPA use :\n", "# cdopath = '/work/ROMO/anaconda_envs/cdo-1.9.8/bin/cdo'\n", "# If you intall cdo with miniconda\n", "# cdopath = './miniconda/bin/cdo'" ] }, { "cell_type": "markdown", "metadata": { "id": "Oqy0eNJVN_Bi" }, "source": [ "## Install Climate Data Operators\n", "\n", "* If you do not have climate data operators, this can install them for you.\n", " * There are two options, the first is `apt-get install cdo` which works on many Debian based linux systems.\n", " * The second is more robust and installs from Anaconda.\n", " * You can also install them yourself.\n", "* This may take a couple minutes" ] }, { "cell_type": "code", "execution_count": null, "metadata": { "id": "_Rj0_8nn93gD" }, "outputs": [], "source": [ "import os\n", "if installcdo:\n", " cdopath = './miniconda/bin/cdo'\n", " if not os.path.exists(cdopath):\n", " !wget -N -q https://repo.anaconda.com/miniconda/Miniconda3-latest-Linux-x86_64.sh\n", " !bash ./Miniconda3-latest-Linux-x86_64.sh -b -p ./miniconda &> log.miniconda\n", " !./miniconda/bin/conda install -c conda-forge -q -y 'cdo~=1.9' &> log.cdo" ] }, { "cell_type": "markdown", "metadata": { "id": "dVl1jAM8-71q" }, "source": [ "## pip\n", "\n", "* Install required prerequsites\n", "* This will be faster than installing cdo." ] }, { "cell_type": "code", "execution_count": null, "metadata": { "colab": { "base_uri": "https://localhost:8080/" }, "id": "-vhPJkCM97se", "outputId": "9733bd90-1a69-4001-f6c4-3a9e70559790" }, "outputs": [], "source": [ "if installprereq:\n", " # If on Google Colab:\n", " # 1. Copy the requirements file to this folder,\n", " # 2. remove --user\n", " !python -m pip install -q --user -r requirements.txt" ] }, { "cell_type": "markdown", "metadata": { "id": "aY78jFw5LN_k" }, "source": [ "## Now restart the Runtime\n", "\n", "* Optional.\n", "* Click on the Runtime menu.\n", "* Click `Restart Runtime`" ] }, { "cell_type": "markdown", "metadata": { "id": "Bb0x3o4COLsN" }, "source": [ "# Quick Run\n", "\n", "* From here, you can click Runtime, Run after\n", "* This will run everything and then give you a dialog to download the results." ] }, { "cell_type": "markdown", "metadata": { "id": "LtBUDryDLU5P" }, "source": [ "# Import libraries\n" ] }, { "cell_type": "code", "execution_count": null, "metadata": { "id": "1Za8quom-Jw5" }, "outputs": [], "source": [ "%matplotlib inline\n", "importsuccess = False\n", "from urllib.request import urlretrieve\n", "import os\n", "from datetime import datetime\n", "from glob import glob\n", "import zipfile\n", "import warnings\n", "\n", "import numpy as np\n", "import matplotlib.pyplot as plt\n", "import pandas as pd\n", "\n", "import cdo\n", "import pycno\n", "import PseudoNetCDF as pnc\n", "\n", "os.environ['IOAPI_ISPH'] = '6370000.'\n", "warnings.simplefilter('ignore')\n", "importsuccess = True" ] }, { "cell_type": "markdown", "metadata": { "id": "FoVLIdQSBJSp" }, "source": [ "## Prepare Climate Data Operators\n", "\n", "* Used for spatial interpolation\n", "* Instantiate an operator object (`cdoo`) that will be used in the rest of the project.\n", "* Set `debug=True` for detailed feedback" ] }, { "cell_type": "code", "execution_count": null, "metadata": { "id": "48wbKUlv_p-Q" }, "outputs": [], "source": [ "%pdb off\n", "cdoo = cdo.Cdo(cdopath)\n", "cdoo.setCdo(cdopath)\n", "print('CDI version', cdoo.version())" ] }, { "cell_type": "markdown", "metadata": { "id": "jm97a_WSBTyK" }, "source": [ "# Define the CMAQ Grid\n", "\n", "Script will create folders for dom, open file and create a CDO grid mapping definition." ] }, { "cell_type": "code", "execution_count": null, "metadata": { "id": "PNJHfh9F_lqN" }, "outputs": [], "source": [ "os.makedirs('cdogrids', exist_ok=True)\n", "os.makedirs(f'output/{dom}', exist_ok=True)\n", "os.makedirs(f'chlor_a/{dom}', exist_ok=True)\n", "os.makedirs(f'dmsclimatology/{dom}', exist_ok=True)" ] }, { "cell_type": "code", "execution_count": null, "metadata": { "id": "MNbuxMR53G41" }, "outputs": [], "source": [ "gdf = pnc.pncopen(gdpath, format='ioapi')\n", "proj = gdf.getproj()\n", "gproj = gdf.getproj(withgrid=True)\n", "crs = proj.crs.to_cf()" ] }, { "cell_type": "code", "execution_count": null, "metadata": { "id": "weQTj7odsz43" }, "outputs": [], "source": [ "cdogrid = f'cdogrids/{dom}.cdo'\n", "with open(cdogrid, 'w') as cdogf:\n", " cdogf.write(f\"\"\"\n", "gridtype = projection\n", "gridsize = {gdf.NROWS * gdf.NCOLS}\n", "xname = COL\n", "yname = ROW\n", "xsize = {gdf.NCOLS}\n", "ysize = {gdf.NROWS}\n", "xinc = {gdf.XCELL}\n", "xfirst = {gdf.XCELL / 2:.0f}\n", "yinc = {gdf.YCELL}\n", "yfirst = {gdf.YCELL / 2:.0f}\n", "grid_mapping_name = {crs['grid_mapping_name']}\n", "longitude_of_projection_origin = {gdf.XCENT}\n", "latitude_of_projection_origin = {gdf.YCENT}\n", "\"\"\")\n", " for k, v in crs.items():\n", " cdogf.write(f\"{k} = {v}\\n\".replace('(', '').replace(')', ''))" ] }, { "cell_type": "markdown", "metadata": { "id": "4gE-JC-YLgGO" }, "source": [ "# DMS Processing\n", "\n", "* Surface Ocean Lower Atmospheric Study (SOLAS)\n", "* Created a climatology of DMS (under short-lived species)\n", "* https://www.bodc.ac.uk/solas_integration/\n", "\n", "\n", "* Steps:\n", " 1. Download the data\n", " 2. Extract the CSV files\n", " 3. Create a netCDF file with known longitude and latitude.\n", " 4. Visualize\n", " 5. Regrid DMS" ] }, { "cell_type": "markdown", "metadata": { "id": "f1SH2iGIAs7p" }, "source": [ "## Download DMS Climatology\n", "\n", "* Downloads file to dmsclimatology folder.\n", "* If you prefer, download it there yourself manually." ] }, { "cell_type": "code", "execution_count": null, "metadata": { "id": "Dsxsj5-zliXT" }, "outputs": [], "source": [ "dmsurl = 'https://www.bodc.ac.uk/solas_integration/implementation_products/group1/dms/documents/dmsclimatology.zip'\n", "dmsdest = 'dmsclimatology/dmsclimatology.zip'\n", "if not os.path.exists(dmsdest):\n", " urlretrieve(dmsurl, dmsdest, reporthook=lambda c, s, t: print(f'\\r {min(1, c*s/t):5.1%}', end='', flush=True))" ] }, { "cell_type": "markdown", "metadata": { "id": "SQKxTJwyLtZW" }, "source": [ "## Extract CSV" ] }, { "cell_type": "code", "execution_count": null, "metadata": { "id": "1KUkmDBclsOt" }, "outputs": [], "source": [ "zf = zipfile.ZipFile(dmsdest)\n", "zf.extractall(path='dmsclimatology')" ] }, { "cell_type": "markdown", "metadata": { "id": "BhLvFO2ALwGf" }, "source": [ "## Create a NetCDF" ] }, { "cell_type": "code", "execution_count": null, "metadata": { "id": "rbf5_7XOlwi9" }, "outputs": [], "source": [ "dmsncpath = 'dmsclimatology/dmsconcentration.nc'\n", "if overwrite or not os.path.exists(dmsncpath):\n", " if os.path.exists(dmsncpath):\n", " os.remove(dmsncpath)\n", "\n", " dmsfile = pnc.PseudoNetCDFFile()\n", " dmsfile.createDimension('time', 12)\n", " dmsfile.createDimension('latitude', 180)\n", " dmsfile.createDimension('longitude', 360)\n", "\n", " timev = dmsfile.createVariable('time', 'd', ('time',))\n", " refdate = datetime(2000, 1, 1)\n", " middate = datetime(2000, 1, 15)\n", " timev[:] = [(middate.replace(month=i) - refdate).total_seconds() / 3600 / 24 for i in range(1, 13)]\n", " timev.units = 'days since 2000-01-01'\n", " timev.long_name = 'time'\n", "\n", " lonv = dmsfile.createVariable('longitude', 'd', ('longitude',))\n", " lonv[:] = np.linspace(-179.5, 179.5, 360)\n", " lonv.units = 'degrees_east'\n", " lonv.long_name = 'longitude'\n", "\n", " latv = dmsfile.createVariable('latitude', 'd', ('latitude',))\n", " latv[:] = np.linspace(-89.5, 89.5, 180)\n", " latv.units = 'degrees_north'\n", " latv.long_name = 'latitude'\n", "\n", " dmsfile.setCoords(['time', 'longitude', 'latitude'])\n", "\n", " dmsv = dmsfile.createVariable('DMS', 'f', ('time', 'latitude', 'longitude'), fill_value=-999)\n", " dmsv.units = 'nM'.ljust(16)\n", " dmsv.long_name = 'DMS'.ljust(16)\n", " dmsv.description = \"Hansell et al. seawater DMS climatology\".ljust(80)\n", "\n", " for ti, monthname in enumerate(['JAN', 'FEB', 'MAR', 'APR', 'MAY', 'JUN', 'JUL', 'AUG', 'SEP', 'OCT', 'NOV', 'DEC']):\n", " dmsdata = pd.read_csv(f'dmsclimatology/DMSclim_{monthname}.csv', names=np.linspace(-179.5, 179.5, 360), na_values=['NaN'])\n", " dmsdata.set_index(np.linspace(-89.5, 89.5, 180)[::-1], inplace=True)\n", " dmsv[ti] = dmsdata.values[::-1, ]\n", " dmsv[np.isnan(dmsv[:])] = np.ma.masked\n", "\n", " dmsfile.save(dmsncpath, format='NETCDF4_CLASSIC', verbose=0).close()\n", "else:\n", " print('Keeping file', dmsncpath)" ] }, { "cell_type": "markdown", "metadata": { "id": "TRywvdIwHkA3" }, "source": [ "## Now regrid DMS to model domain\n", "\n", "* `overwrite` is set to False, so if you re-run, it will keep old outputs. \n", "* `usesetmisstonn` is set to true, this interpolates valid values where data is missing.\n", " * This is super helpful for missing data.\n", " * This creates DMS overland.\n", " * If `usesetmisstonn`, you'll want to mask out overland." ] }, { "cell_type": "code", "execution_count": null, "metadata": { "id": "t0AxBqGyuPBk" }, "outputs": [], "source": [ "# Choose one or neither\n", "usesetmisstonn = False\n", "usefillmiss = False\n", "\n", "dmsoutpath = f'dmsclimatology/{dom}/dmsconcentration.{dom}.nc'\n", "if overwrite or not os.path.exists(dmsoutpath):\n", " if os.path.exists(dmsoutpath):\n", " os.remove(dmsoutpath)\n", " if usesetmisstonn:\n", " cdoo.setmisstoc(f'0 -remapycon,{cdogrid} -setctomiss,-999. -setmisstonn', input=dmsncpath, output=dmsoutpath, returnCdf=False)\n", " elif usefillmiss:\n", " cdoo.setmisstoc(f'0 -remapycon,{cdogrid} -setctomiss,-999. -fillmiss', input=dmsncpath, output=dmsoutpath, returnCdf=False)\n", " else:\n", " cdoo.setmisstoc(f'0 -remapycon,{cdogrid} -setctomiss,-999.', input=dmsncpath, output=dmsoutpath, returnCdf=False)\n", "else:\n", " print('Keeping file', dmsoutpath)" ] }, { "cell_type": "markdown", "metadata": { "id": "2B_P_LYUL-yQ" }, "source": [ "# Process Monthly Chlorophyll-A\n", "\n", "* This tutorial uses climatalogical Chlorophyll\n", "* At the download step, you can switch to year-specific by following special instructions\n" ] }, { "cell_type": "markdown", "metadata": { "id": "Cp1t3kMlURg4" }, "source": [ "## Download Monthly Chlorophyll-A\n", "\n", "* This tutorial uses climatalogical Chlorophyll\n", "* If this is okay for your project, just run the next cell without any edits.\n", "* You can update it to use year-specific values\n", " * Go to https://oceancolor.gsfc.nasa.gov/l3/\n", " * Choose Standard Product, MODIS-Aqua, Chlorophyll Concentration, Monthly, 9km\n", " * Click Extract or Download\n", " * Choose \"Mapped\" and Click \"Download\"\n", " * Copy the urls from the webpage list and paste over the results below.\n", " * Replace the cgi url with the opendap url\n", " * replace \"https://oceandata.sci.gsfc.nasa.gov/cgi/getfile/\"\n", " * with \"https://oceandata.sci.gsfc.nasa.gov:443/opendap/MODISA/L3SMI/%Y/%m%d/\n", " * where %Y, %m, and %d are the year, month and day in the file names. (e.g., 20020701)\n", " * AQUA_MODIS.%Y%m%d_%Y%m%d.L3m.MO.CHL.chlor_a.9km.nc\n", " * For example, the original URL https://oceandata.sci.gsfc.nasa.gov/cgi/getfile/AQUA_MODIS.20020701_20020731.L3m.MO.CHL.chlor_a.9km.nc becomes https://oceandata.sci.gsfc.nasa.gov:443/opendap/MODISA/L3SMI/2002/0701/AQUA_MODIS.20020701_20020731.L3m.MO.CHL.chlor_a.9km.nc\n", "\n", "* You can also use files that you have already downloaded, by setting urls to point to those files.\n" ] }, { "cell_type": "code", "execution_count": null, "metadata": {}, "outputs": [], "source": [ "if getlatestchlo:\n", " from urllib.request import urlopen\n", " import re\n", "\n", " urls = []\n", " webroot = 'https://oceandata.sci.gsfc.nasa.gov:443/opendap/MODISA/L3SMI/'\n", " for prefix in ['2002/0701', '2002/0801', '2002/0901', '2002/1001', '2002/1101', '2002/1201', '2003/0101', '2003/0201', '2003/0301', '2003/0401', '2003/0501', '2003/0601']:\n", " htmlout = urlopen(webroot + prefix)\n", " htmltxt = htmlout.read().decode()\n", " mostrecent = sorted(re.compile('(?<=>).+L3m_MC_CHL_chlor_a_9km.nc(?== 58.0 importlib_metadata >= 4.6 numpy >= 1.19.5 pandas >= 1.1.5 netCDF4 >= 1.5.8 matplotlib >= 3.3.4 pycno >= 0.2.0 pyproj >= 2.6.1 pseudonetcdf >= 3.2.0 cdo == 1.5.3 ================================================ FILE: PYTOOLS/install/README.md ================================================ # Installation The CMAQ Python Tools require Python version 3.6 (or greater) and additional libraries for processing data efficiently. Instructions on installation are provided below, but any standard installation processes are acceptable alternatives. The best way to test your installation is to run `python show_versions.py` ## Installing Python >=3.6 Installing Python >=3.6 can be done by using the installer for your system from python.org, or you can use a package like Anaconda. ## Virtual Environment (optional) If you don't want changes to affect your user or system environment, create a virtual environment to isolate the CMAQ python tools installation. ``` # Create a new virtual environment python -m venv ./cmaqpy # Do this anytime to activate the new environment source ./cmaqpy/bin/activate # Do this anytime to deactivate the new environment deactivate ``` If you're making a virtual environment and your python is from Anaconda, the ensurepip module will be missing and the `python -m venv ./cmaqpy` command will fail. Usually, Anaconda does not use venv but instead uses conda env. If you do want to use venv with Anaconda, modify the above as follows: ``` # Create a new virtual environment python -m venv ./cmaqpy # Do this anytime to activate the new environment source ./cmaqpy/bin/activate # Install pip curl https://bootstrap.pypa.io/get-pip.py -o get-pip.py python get-pip.py # Do this anytime to deactivate the new environment deactivate ``` If your python version is not "current", then get-pip.py will tell you which file to download instead. ## Installing Libraries Each tool will have some basic library requirements and many will share the same requirements. As a result, each tools should have it's own `./requirements.txt` and this folder contains a general `requirements.txt` that will meet the needs of many tools. To install the requirements of a particular tool, you can use pip or conda. ### pip `pip install --user --prefer-binary -r requirements.txt` To confirm that you have the libraries installed correctly, run `python show_versions.py requirements.txt` ### Anaconda Start by installing Anaconda or Miniconda. To install custom libraries, run the command below. If you started with Miniconda, it will take longer to run. `conda env create -n cmaqpy -f environment.yml` To activate the environment, run `conda activate cmaqpy` ================================================ FILE: PYTOOLS/install/environment.yml ================================================ # run: conda env create --file environment.yml name: cmaqpy channels: - conda-forge - defaults dependencies: - python >=3.6 - anaconda - pip - jupyterlab - setuptools - importlib_metadata>=4.6 - numpy>=1.19.5 - pandas >= 1.1.5 - netCDF4>=1.5.4 - matplotlib>=3.3 - pyproj>=2.6 - cdo==1.9 - pip: - pycno>=0.2.0 - pseudonetcdf>=3.2.2 - cdo==1.5.3 ================================================ FILE: PYTOOLS/install/requirements.txt ================================================ setuptools >= 58.0 importlib_metadata >= 4.6 numpy >= 1.19.5 pandas >= 1.1.5 xarray >= 0.16.2 scipy >= 1.5.4 netCDF4 >= 1.5.8 matplotlib >= 3.3.4 basemap >= 1.3.0 pycno >= 0.2.0 pyproj >= 2.6.1 pseudonetcdf >= 3.2.0 cdo == 1.5.3 ================================================ FILE: PYTOOLS/install/show_versions.py ================================================ import sys import argparse try: # Python 3.8 or above from importlib.metadata import version except ImportError: # Python 3.6 from importlib_metadata import version parser = argparse.ArgumentParser() parser.add_argument('requirements', nargs='*', help='requirements.txt file path(s)', default=['requirements.txt']) args = parser.parse_args() vinfo = sys.version_info def show(libname, vtxt, modifier): print(f'{libname:20s} {vtxt:12s} {modifier:12s}') show('Package', 'Version', 'Required') show('-'*20, '-'*12, '-'*12) show('Python', f'{vinfo.major}.{vinfo.minor}.{vinfo.micro}', '>= 3.6') for reqpath in args.requirements: with open(reqpath, 'r') as rf: reqtxt = rf.read().strip() for reqline in reqtxt.split('\n'): if ' ' not in reqline: libname = reqline modifier = '' else: si = reqline.find(' ') libname = reqline[:si] modifier = reqline[si:].strip() try: vtxt = version(libname) except Exception: vtxt = 'not found' show(libname, vtxt, modifier) ================================================ FILE: PYTOOLS/shp2cmaq/README.md ================================================ Create CMAQ-Ready File from Shapefile ===================================== --- author: Barron H. Henderson date: 2020-04-25 updated: 2024-04-24 --- This Notebook uses geopandas and cmaqsatproc to create IOAPI-like files for CMAQ. The overall process requires a shapefile with attributes and a GRIDDESC file. It produces variables that specify grid cell fractional coverage by each unique value of a specified attribute. It also produces total and dominant attribute variables. The total specifies the fraction coverage of any attribute. The dominant variable specifies which attribute has the largest area coverage. Two special notes: 1. It is possible to output an overlap weighted variable. For example, the population weighted by the fraction of a polygon's area in a grid cell. 2. In python, you can pass in a geopandas.GeoDataFrame instead of the path to a shapefile. This is useful when you want to add custom attributes before processing. Examples -------- ### Census State Boundaries for 12US1 Domain The US Census state boundary shapefile has Polygons for each state with the STUSPS attribute. With attrkey set to STUSPS, the notebook will create a variable for each unique value of STUSPS (e.g, AL, AK, AR, ... WV, WY) with the fractional area covered by that state. It will also create a variable STUSPS_DOM that uses numeric codes (in alphabetic order) to identify which STUSPS has the largest coverage of that cell. And, it will include a variable STUSPS_TOT with the total coverage of any STUSPS. 1. Download * https://www2.census.gov/geo/tiger/GENZ2022/shp/cb_2022_us_state_500k.zip * If url doesn't work, download from census.gov 2. Run tool: From SHELL: ```bash python shp2cmaq.py cb_2022_us_state_500k.zip STUSPS 12US1 ``` In python: ```python from shp2cmaq import shp2cmaq shp2cmaq('cb_2022_us_state_500k.zip', 'STUSPS', '12US1') ``` ### Natural Earth Countries for Hemispheric Domain The Natural Earth countries shapefile (administrative-level 0) has Polygons with the country identifier attribute ADM0_A3. The notebook will create a variable for each unique value of ADM0_A3 (e.g, USA, MEX, CAN). It will also create a variable (ADM0_A3_DOM) that uses numeric codes (in alphabetic order) to identify which ADM0_A3 has the largest coverage of that cell. And, it will include a variable ADM0_A3_TOT with the total coverage of any ADM0_A3. 1. Download * https://naciscdn.org/naturalearth/10m/cultural/ne_10m_admin_0_countries.zip * If url doesn't work, download from naturalearth.org 2. Run tool: From SHELL: ```bash python shp2cmaq.py ne_10m_admin_0_countries.zip ADM0_A3 108NHEMI2 ``` In python: ```python from shp2cmaq import shp2cmaq shp2cmaq('ne_110m_admin_0_countries.zip', 'ADM0_A3', '108NHEMI2') ``` ### Natural Earth State/Province Level for 36US3 The Natural Earth countries shapefile (administrative-level 1) has Polygons with the state/provice identifier attribute iso_3166_2. The notebook will create a variable for each unique value of iso_3166_2. It will also create a variable (iso_3166_2) that uses numeric codes (in alphabetic order) to identify which iso_3166_2_DOM has the largest coverage of that cell. And, it will include a variable iso_3166_2_TOT with the total coverage of any iso_3166_2. 1. Download * https://naciscdn.org/naturalearth/10m/cultural/ne_10m_admin_1_states_provinces.zip * If url doesn't work, download from naturalearth.org 2. Run tool: From SHELL: ```bash python shp2cmaq.py ne_10m_admin_1_states_provinces.zip iso_3166_2 36US3 ``` In python: ```python from shp2cmaq import shp2cmaq shp2cmaq('ne_10m_admin_1_states_provinces.zip', 'iso_3166_2', '36US3') ``` ### Overlap Weighted Variable shp2cmaq can also output a weighted area. For example, if you have population by state, each cell will be assigned a fraction of each state's population. The fraction will be equal to the fraction of the state's area that is in that grid cell. Obviously, populations are not uniformaly distributed across states by area. The finer the geography used, the better assumption that is. Steps: 1. Go to censusreporter.org. 2. Create a map of total population (B01003001) by state. 3. Download the map as a zipped shapefile. 4. Unzip the shapefile. 5. Run the tool: From SHELL: ```bash python shp2cmaq.py --srckey=B01003001 acs2022_5yr_B01003_04000US21/acs2022_5yr_B01003_04000US21.shp geoid 36US3 ``` In python: ```python from shp2cmaq import shp2cmaq shppath = 'acs2022_5yr_B01003_04000US21/acs2022_5yr_B01003_04000US21.shp' shp2cmaq(shppath, 'geoid', '36US3', srckey='B01003001') ``` ### Custom GeoDataFrame This example of a custom dataframe builds on the "Census State Boundaries for 12US1 Domain" example. It starts by opening the shapefile, but then adds a custom attribute. In this example, the custom attribute is the climate region. Climate region is derived from the postal abbreviation. The area overlap of each region should be the same as adding the variables from states in the example from which this is derived (e.g., CLIMREG_W = STUSPS_CA + STUSPS_NV). This is a trivial example, but illustrates a general capability. 1. Download * https://www2.census.gov/geo/tiger/GENZ2022/shp/cb_2022_us_state_500k.zip * If url doesn't work, download from census.gov 2. Run tool: ```python from shp2cmaq import shp2cmaq import geopandas as gpd regions = { 'NW': ['OR', 'WA', 'ID'], 'W': ['CA', 'NV'], 'NRP': ['MT', 'WY', 'ND', 'SD', 'NE'], 'SW': ['UT', 'AZ', 'CO', 'NM'], 'S': ['KS', 'OK', 'TX', 'AR', 'LA', 'MS'], 'UMW': ['MN', 'IA', 'WI', 'MI'], 'OV': ['MO', 'IL', 'IN', 'OH', 'KY', 'TN', 'WV'], 'SE': ['VA', 'NC', 'SC', 'GA', 'AL', 'FL'], 'NE': ['PA', 'NY', 'VT', 'NH', 'ME', 'MA', 'RI', 'CT', 'NJ', 'DE', 'MD', 'DC'], 'OTHER': ['AK', 'AS', 'HI', 'PR', 'VI', 'GU', 'MP'] } st2reg = {} for reg, sts in regions.items(): for st in sts: st2reg[st] = reg shpf = gpd.read_file('cb_2022_us_state_500k.zip') shpf['CLIMREG'] = shpf['STUSPS'].apply(lambda x: st2reg.get(x, "UNKNOWN")) shp2cmaq(shpf, 'CLIMREG', '12US1', outpath='CLIMREG.12US1.nc') ``` ================================================ FILE: PYTOOLS/shp2cmaq/requirements.txt ================================================ cmaqsatproc geopandas xarray netcdf4 pycno ================================================ FILE: PYTOOLS/shp2cmaq/shapefile2cmaq.ipynb ================================================ { "cells": [ { "cell_type": "markdown", "metadata": {}, "source": [ "# Create CMAQ-Ready Files from a Shapefiles\n", "\n", "This Notebook uses geopandas and cmaqsatproc to create IOAPI-like files for CMAQ. Geopandas supports optimized searches and projection conversions. This section focuses on creating I/O API NetCDF masks from **categorical** variables (e.g., **states**, **countries**) or from **quantitative** variables (i.e. **population**, **income**).\n", "* Categorical variables have grid cell values set to the fraction of the grid cell covered by a feature (e.g., state).\n", "* Quantitative variables have grid cell values set to the fraction of the feature (e.g., county) in the grid cell multiplied by the quantitative variable (e.g., population.)" ] }, { "cell_type": "markdown", "metadata": {}, "source": [ "## Install Libraries\n", "\n", "- You can try uncommenting and then running this cell for these libraries to populate in your current kernel\n", "- If this doesn't work, you can try two different optons:\n", " - try replacing !python -m pip` with `%pip`\n", " - Or run pip install outside of the notebook for the python environment you will be using.\n" ] }, { "cell_type": "code", "execution_count": null, "metadata": { "id": "CWZSGMYnYHiD" }, "outputs": [], "source": [ "#!python -m pip install -qq cmaqsatproc geopandas xarray netcdf4 pycno" ] }, { "cell_type": "markdown", "metadata": {}, "source": [ "## Import Libs Required\n", "- If this gives you a warning, your installation was likely unsuccessful\n", "- Or you need to restart your notebook to access the newly installed libraries." ] }, { "cell_type": "code", "execution_count": null, "metadata": {}, "outputs": [], "source": [ "import matplotlib.pyplot as plt\n", "import shp2cmaq\n", "import warnings\n", "import cmaqsatproc as csp\n", "import geopandas as gpd\n", "import xarray\n", "import netCDF4\n", "import pycno\n", "# ignore warnings\n", "warnings.simplefilter('ignore')" ] }, { "cell_type": "markdown", "metadata": { "id": "0RQ1nVpN1-sL" }, "source": [ "## Create a CMAQ-Ready File from a Shapefile with Categorical Data (Part 1)\n", "\n", "This section uses shapefiles to create a CMAQ-ready file with variables for each feature (e.g., state or country). Each grid cell's value in a variable expresses the fraction of the grid cell area that is within the feature polygon (e.g., state or country)." ] }, { "cell_type": "markdown", "metadata": {}, "source": [ "### Download Shapefiles for Tutorial\n", "\n", "- You can try uncommenting the following !wget commands to pull in shapefiles\n", "- If the wget downloads don't work for you, try downloading the files from their respective websites:\n", " - Natural Earth https://www.naturalearthdata.com.\n", " - US Census https://census.gov/" ] }, { "cell_type": "code", "execution_count": null, "metadata": { "id": "DoAc3RR5B-vf" }, "outputs": [], "source": [ "# Download an example shapefile if you don't already have one.\n", "# default examples\n", "#!wget -N https://www2.census.gov/geo/tiger/GENZ2022/shp/cb_2022_us_state_500k.zip # use with attrkey STUSPS\n", "# alternate examples\n", "#!wget -N https://naciscdn.org/naturalearth/10m/cultural/ne_10m_admin_0_countries.zip # use with attrkey ADM0_A3\n", "#!wget -N https://naciscdn.org/naturalearth/10m/cultural/ne_10m_admin_1_states_provinces.zip # us with attrkey iso_3166_2" ] }, { "cell_type": "markdown", "metadata": {}, "source": [ "### Set Configuration\n", "- Change the shppath to point to your shapefile\n", "- Set your attrkey (options for this should be in your shapefile metadata as a column)" ] }, { "cell_type": "code", "execution_count": null, "metadata": { "colab": { "base_uri": "https://localhost:8080/" }, "id": "M8SXK4c22Xwb", "outputId": "b46adad5-19c1-4330-ff65-8cf3a707a626" }, "outputs": [], "source": [ "# shppath : str\n", "# Path to a shapefile or zip file containing a shapefile\n", "shppath = 'cb_2022_us_state_500k.zip'\n", "\n", "# attrkey : str\n", "# Column to group shapes by e.g., STUSPS of census (AL, NC, etc)\n", "attrkey = 'STUSPS'\n", "\n", "# gdnam : str\n", "# Name of grid definition within gdpath (e.g., 12US1, 108NHEMI2)\n", "gdnam = '12US1'\n", "gdpath = None # None uses built-in; or specify your own GRIDDESC path\n", "\n", "# For more options, run help(shp2cmaq.shp2cmaq)\n", "#?shp2cmaq.shp2cmaq" ] }, { "cell_type": "markdown", "metadata": {}, "source": [ "### Run Tool\n", "\n", "1. This processor:\n", " * Reads in native projection.\n", " * Filters for in CMAQ domain.\n", " * Optionally, custom extra processing. run help(shp2cmaq.shp2cmaq)\n", "2. Calculates area overlap:\n", " * Performs grid cell intersections with shapefile polygons.\n", " * Aggregates results to grid cell level.\n", " * Finds largest area contributor.\n", " * Calculates total cell overlap.\n", "3. Outputs:\n", " * Store results as variables.\n", " * Save as IOAPI-like file" ] }, { "cell_type": "code", "execution_count": null, "metadata": { "colab": { "base_uri": "https://localhost:8080/" }, "id": "M8SXK4c22Xwb", "outputId": "b46adad5-19c1-4330-ff65-8cf3a707a626" }, "outputs": [], "source": [ "outpath = shp2cmaq.shp2cmaq(shppath, attrkey, gdnam, gdpath=None, verbose=1)" ] }, { "cell_type": "markdown", "metadata": {}, "source": [ "### Plot Result" ] }, { "cell_type": "code", "execution_count": null, "metadata": { "colab": { "base_uri": "https://localhost:8080/", "height": 383 }, "id": "i1wHo0m5s6j1", "outputId": "0173e1d0-0939-4d6e-ee96-f861b985bcb3" }, "outputs": [], "source": [ "igf = csp.open_ioapi(outpath)\n", "domkey = [k for k in list(igf.data_vars) if k.endswith('DOM')][0]\n", "totkey = [k for k in list(igf.data_vars) if k.endswith('TOT')][0]\n", "\n", "fig, axx = plt.subplots(1, 2, figsize=(12, 4))\n", "igf[domkey].where(lambda x: x > -999).plot(ax=axx[0], cmap='nipy_spectral')\n", "igf[totkey].plot(ax=axx[1], cmap='YlOrRd')\n", "_ = igf.csp.cno.drawcountries(ax=axx)\n", "name2idx = eval(igf[domkey].description)\n", "print('Dominant Index')\n", "print(str({v: k for k, v in name2idx.items()}))" ] }, { "cell_type": "markdown", "metadata": {}, "source": [ "## Create CMAQ-Ready File from a Shapefile with Quantitative Data (Part 2)\n", "\n", "This section uses shapefiles to create a CMAQ-ready file with variables for each feature (e.g., state or county). Each grid cell in the variable expresses the fraction of a quantitative variable that is within that grid cell. The fraction within the cell is assumed proportional to the fraction of the feature polygon (e.g., state or county) in that grid cell." ] }, { "cell_type": "markdown", "metadata": {}, "source": [ "### Download Shapefiles for Tutorial\n", "\n", "- You can try uncommenting the following !wget commands to pull in shapefiles and unzip them.\n", "- If the wget downloads don't work for you, try:\n", " 1. Go to https://censusreporter.org/,\n", " 2. Enter B01003 in the Explor dialog,\n", " 3. Enter states in the \"Show data by\",\n", " 4. Re-enter United States in the \"In\" dialog,\n", " 5. Hoover over \"Download data\",\n", " 6. Choose \"Shapefile\"\n", " 7. You must unzip the downloaded zip file." ] }, { "cell_type": "code", "execution_count": null, "metadata": {}, "outputs": [], "source": [ "#!wget -N -O acs2022_5yr_B01003_04000US21.zip 'https://api.censusreporter.org/1.0/data/download/acs2022_5yr?table_ids=B01003&geo_ids=040|01000US&format=shp'\n", "#!unzip acs2022_5yr_B01003_04000US21.zip" ] }, { "cell_type": "markdown", "metadata": {}, "source": [ "### Set Configuration\n", "\n", "- Change the shppath to point to your shapefile **(for this you will first need to unzip your zip file and then point to your .shp file)**\n", "- Set your attrkey (options for this should be in your shapefile metadata as a column)" ] }, { "cell_type": "code", "execution_count": null, "metadata": {}, "outputs": [], "source": [ "# shppath : str\n", "# Path to a shapefile or zip file containing a shapefile\n", "shppath = 'acs2022_5yr_B01003_04000US21/acs2022_5yr_B01003_04000US21.shp'\n", "\n", "# attrkey : str\n", "# Column to group shapes by e.g., STUSPS of census (AL, NC, etc)\n", "attrkey = 'geoid'\n", "\n", "# gdnam : str\n", "# Name of grid definition within gdpath (e.g., 12US1, 108NHEMI2)\n", "gdnam = '36US3'\n", "gdpath = None # None uses built-in; or specify your own GRIDDESC path\n", "\n", "# srckey : str\n", "# Name of quantitative variable (in this demo 'B01003001' is for population)\n", "srckey = 'B01003001' \n", "\n", "# For more options, run help(shp2cmaq.shp2cmaq)" ] }, { "cell_type": "markdown", "metadata": {}, "source": [ "### Run Tool\n", "\n", "1. This processor:\n", " * Reads in native projection.\n", " * Filters for in CMAQ domain.\n", " * Optionally, custom extra processing. run help(shp2cmaq.shp2cmaq)\n", "2. Calculates area overlap:\n", " * Performs grid cell intersections with shapefile polygons.\n", " * Aggregates results to grid cell level.\n", " * Finds largest area contributor.\n", " * Calculates total cell overlap.\n", "3. Outputs:\n", " * Store results as variables.\n", " * Save as IOAPI-like file" ] }, { "cell_type": "code", "execution_count": null, "metadata": {}, "outputs": [], "source": [ "census_outpath = shp2cmaq.shp2cmaq(shppath, attrkey, gdnam, srckey=srckey)" ] }, { "cell_type": "markdown", "metadata": {}, "source": [ "### Plot Result" ] }, { "cell_type": "code", "execution_count": null, "metadata": { "id": "t3SJuEI0mFpV" }, "outputs": [], "source": [ "igf = csp.open_ioapi(census_outpath)\n", "domkey = [k for k in list(igf.data_vars) if k.endswith('DOM')][0]\n", "totkey = [k for k in list(igf.data_vars) if k.endswith('TOT')][0]\n", "\n", "fig, axx = plt.subplots(1, 2, figsize=(12, 4))\n", "igf[domkey].where(lambda x: x > -999).plot(ax=axx[0], cmap='nipy_spectral')\n", "igf[totkey].plot(ax=axx[1], cmap='YlOrRd')\n", "_ = igf.csp.cno.drawcountries(ax=axx)\n", "name2idx = eval(igf[domkey].description)\n", "print('Dominant Index')\n", "print(str({v: k for k, v in name2idx.items()}))" ] }, { "cell_type": "code", "execution_count": null, "metadata": {}, "outputs": [], "source": [] } ], "metadata": { "colab": { "provenance": [] }, "kernelspec": { "display_name": "Python 3.6", "language": "python", "name": "python3" }, "language_info": { "codemirror_mode": { "name": "ipython", "version": 3 }, "file_extension": ".py", "mimetype": "text/x-python", "name": "python", "nbconvert_exporter": "python", "pygments_lexer": "ipython3", "version": "3.6.8" } }, "nbformat": 4, "nbformat_minor": 4 } ================================================ FILE: PYTOOLS/shp2cmaq/shp2cmaq.py ================================================ __doc__ = """ Overview ======== Utility to create CMAQ-ready files from shapefiles or other vector format. Although it has only been tested with shapefiles, it should support geojson. Contents -------- shp2cmaq : function Converts a shapefile to a CMAQ-ready mask file using area overlap Updates: - v1.0 : Barron H. Henderson converted code to a script. Installation Instructions ------------------------- Requires Python3 and libraries cmaqsatproc, geopandas, xarray, netcdf4. .. code-block::bash python -m pip install cmaqsatproc geopandas xarray netcdf4 Example Application ------------------- 1. Download shapefile https://www2.census.gov/geo/tiger/GENZ2022/shp/cb_2022_us_state_500k.zip 2. Run tool: .. code-block::bash python shp2cmaq.py cb_2022_us_state_500k.zip STUSPS 12US1 .. code-block::python # shp2cmaq file should be in run directory import shp2cmaq shp2cmaq.shp2cmaq('cb_2022_us_state_500k.zip', 'STUSPS', '12US1') """ import os import string __version__ = '1.0' def shp2cmaq( shppath, attrkey, gdnam, gdpath=None, outpath=None, bcrs='EPSG:4269', srckey='intersection_area', outformat='NETCDF4_CLASSIC', prefix=None, overwrite=False, verbose=1 ): """ Arguments --------- shppath : str Path to a shapefile or zip file containing a shapefile attrkey : str Column to group shapes by e.g., STUSPS of census (AL, NC, etc) gdnam : str Name of grid definition within gdpath (e.g., 12US1, 108NHEMI2) gdpath : str Path to a GRIDDESC file (optional for EPA domains 1US1, 4US1, 12US1, 12US2, 36US3, 108NHEMI2, etc) outpath : str Defines where the output will be stored. outformat : str Either NETCDF4_CLASSIC or NETCDF3_CLASSIC (bigger, more compatible) prefix : str Variable names with be _ (STUSPS_NC) srckey : str intersection_area, uses the area overlap. Anything else, uses srckey * intersection_area / shape_area overwrite : bool If True, overwrite without asking. verbose : int Level of verbosity """ import cmaqsatproc as csp import geopandas as gpd if prefix is None: prefix = f'{attrkey}_' prefix = prefix.upper() if outpath is None: if isinstance(shppath, str): rootname = os.path.splitext(os.path.basename(shppath))[0] outpath = f'./{rootname}.{attrkey}.{gdnam}.IOAPI.nc' else: raise ValueError('outpath is required when shppath is not a string.') if os.path.exists(outpath): if overwrite: print(f'INFO: Overwriting {outpath}.') else: print(f'Using cached {outpath}; set overwrite=True to remake.') return outpath if verbose > 0: print(f'INFO: Running this will create {outpath}.') gf = csp.open_griddesc(gdnam, gdpath=gdpath) if gf.GDTYP == 6: # For polar stereographic, make sure the bounds are reasonable. bbox = (-181, -30, 181, 91) else: # The default bounding box is the perimiter in WGS84 + 1 degree buffer # You may need to update 4326 to match your shapefile bbox = gf.csp.geodf.envelope.to_crs( bcrs ).unary_union.envelope.buffer(1).bounds if isinstance(shppath, str): shpf = gpd.read_file(shppath, bbox=bbox) elif isinstance(shppath, gpd.GeoDataFrame): shpf = shppath else: raise TypeError( 'shppath must be a path to a polygon file or a geopandas.' + f'GeoDataFrame; got {type(shppath)}' ) if srckey != 'intersection_area': if srckey not in shpf.columns: raise KeyError(f'Cannot find {srckey}; found {shpf.columns}') if attrkey not in shpf.columns: print('WARNING: attrkey must be in or derived from columns:') print(sorted(shpf.columns)) if bcrs != shpf.crs: print(f'INFO: Bounding box in {bcrs} and shapefile in {shpf.crs}.') print('INFO: If both are lat/lon variants, this is okay.') print(f'INFO: You can set bcrs=\'{shpf.crs}\' and run again') # Reproject input as grid projection and add custom variable with # basic name cleanup dshpf = shpf.to_crs(gf.csp.geodf.crs) attrdefn = f'{attrkey} removing spaces and special characters' # Derive custom key from another existing key dshpf['custom'] = prefix + dshpf[attrkey].astype(str) # Cleanup names using a few common rules dshpf['custom'] = dshpf['custom'].str.upper().str.replace('-', '_') dshpf['custom'] = dshpf['custom'].str.replace('~', '_') dshpf['custom'] = dshpf['custom'].str.replace('.', '_') dshpf['custom'] = dshpf['custom'].str.replace('_99', 'UNK') # add your own additional cleanup # dshpf['custom'] = dshpf['custom']... # Warn about weird names allowed_ascii = string.ascii_uppercase + string.digits + '_' anywarning = 0 for cat in dshpf['custom']: if len(cat) > 15: print(f'WARNING: {cat} is longer than 15 characters.') anywarning += 1 if cat[:1] not in string.ascii_uppercase: print(f'WARNING: {cat} starts with non uppercase ascii.') anywarning += 1 for c in cat: if c not in allowed_ascii: print(f'WARNING: {cat} has unallowed characters.') anywarning += 1 break if anywarning > 0: msg = 'INFO: Using names longer than 15 characters, with non-uppercase' msg += ' characters, or having special characters can cause issues' msg += ' when used with CMAQ. To shorten names, try adding a' msg += ' shorter than the attrkey. Or make a custom attribute' msg += ' that is shorter before processing.' print(msg) msg = 'EXAMPLE: Trim off first 7 characters of geoid\n' msg += ' import geopandas\n' msg += ' from shp2cmaq import shp2cmaq\n\n' msg += ' shppath = "acs2022_5yr_B01003_04000US21.shp"' msg += ' shpf = gpd.read_file(shppath)\n' msg += ' shpf["shortname"] = shpf["geoid"].str[7:]\n' msg += ' shp2cmaq(shpf, "shortname", "36US3", srckey="B01003001")' print(msg) # only required if calculating weighted values dshpf['shape_area'] = dshpf.geometry.area if verbose > 0: print('Unique Labels:') print(dshpf['custom'].unique()) # Calculate variables for each unique attribute value for fractional # area overlap, the dominant value domkey = f'{prefix}DOM' totkey = f'{prefix}TOT' attr_area = gpd.overlay( dshpf, gf.csp.geodf.reset_index(), how='intersection' ) intersection_area = attr_area.geometry.area if srckey == 'intersection_area': attr_area[srckey] = intersection_area else: # Add a intersection area weighted attribute value (e.g., population) weight = intersection_area / attr_area['shape_area'] attr_area[srckey] = weight * attr_area[srckey] attrkeys = sorted(attr_area['custom'].unique()) attr_area['custom_idx'] = attr_area['custom'].apply(attrkeys.index) gbkeys = ['custom', 'ROW', 'COL'] attr_area_sum = attr_area.groupby(gbkeys).sum(numeric_only=True) dom_area = attr_area.sort_values( by=srckey, ascending=False ).groupby(['ROW', 'COL']).agg(**{ 'custom': ('custom', 'first'), domkey: ('custom_idx', 'first'), totkey: (srckey, 'sum') }) dom_area_ds = dom_area.to_xarray() catds = attr_area_sum[srckey].unstack('custom').fillna(0).to_xarray() catds[totkey] = dom_area_ds[totkey] # Add all variables to gf for vark, var in catds.data_vars.items(): print(vark, end=',', flush=True) gf[vark] = var.astype('f') var_desc = f'Fractional overlap of {vark} with {gdnam}' gf[vark].attrs.update( long_name=vark.ljust(16), var_desc=var_desc.ljust(80)[:80], unit='1'.ljust(16) ) # Set any missing values (i.e., no overla) to 0. for vark in gf.data_vars: gf[vark] = gf[vark].fillna(0) # Add dominant key variable with custom missing value. gf[domkey] = dom_area_ds[domkey].fillna(-999).astype('i') gf[domkey] = gf[domkey].fillna(-999).astype('i') desctxt = str({k: i for i, k in enumerate(attrkeys)})[:-1] desctxt += ", 'UNASSIGNED': -999}" gf[domkey].attrs.update( long_name=domkey.ljust(16), var_desc=f'Dominant {attrkey} for {gdnam} cell'.ljust(80)[:80], units='1'.ljust(16), description=desctxt ) # Add IOAPI meta-data igf = gf.expand_dims(TSTEP=1, LAY=1).csp.to_ioapi() desctxt = f'{attrkey} fractional area coverage, total ({prefix}TOT) and' desctxt += f' dominant ({prefix}DOM)' igf.attrs['FILEDESC'] = f"""title: {outpath} author: shapefile2cmaq description: {desctxt} inputs: - Shapefile: {shppath} - Attribute: {attrdefn} - GDNAM: {gdnam} - GDPATH: {gdpath} file_version: 1.0 tool_version: {__version__} """.ljust(80*60)[:60*80] outdir = os.path.dirname(outpath) if outdir != '': os.makedirs(outdir, exist_ok=True) igf.to_netcdf(outpath, format=outformat) return outpath if __name__ == '__main__': import argparse prsr = argparse.ArgumentParser() aa = prsr.add_argument hstr = 'level of verbosity' aa('--verbose', help=hstr, default=0, action='count') hstr = 'Overwrite existing output' aa('--overwrite', help=hstr, default=False, action='store_true') hstr = 'NETCDF4_CLASSIC (smaller) or NETCDF3_CLASSIC (more compatible)' aa('--outformat', help=hstr, default='NETCDF4_CLASSIC') hstr = 'Variable names with be _' aa('--prefix', help=hstr, default=None) hstr = 'Anything other than intersection_area, uses srckey' hstr += ' * intersection_area / shape_area' aa('--srckey', help=hstr, default='intersection_area') aa('--gdpath', help='GRIDDESC path', default=None) aa('shppath', help='Path to shapefile or zip containing shapefile') aa('attrkey', help='Attribute in shapefile') aa('GDNAM', help='Grid definition name (must be in gdpath)') aa('outpath', nargs='?', default=None) args = prsr.parse_args() shp2cmaq(vars(args)) ================================================ FILE: README.md ================================================ CMAQv5.5 ========== [![DOI](https://zenodo.org/badge/DOI/10.5281/zenodo.13883210.svg)](https://doi.org/10.5281/zenodo.13883210) US EPA Community Multiscale Air Quality Model (CMAQ) Website: https://www.epa.gov/cmaq CMAQ is an active open-source development project of the U.S. EPA's Office of Research and Development that consists of a suite of programs for conducting air quality model simulations. CMAQ is supported by the CMAS Center: http://www.cmascenter.org CMAQ combines current knowledge in atmospheric science and air quality modeling with multi-processor computing techniques in an open-source framework to deliver fast, technically sound estimates of ozone, particulates, toxics, and acid deposition. Please see our 'How to Cite CMAQ' page if you are interested in referencing one of our released model versions, scientific algorithms, or model output in your own publication: https://www.epa.gov/cmaq/how-cite-cmaq ## CMAQ version 5.5 Overview: * [Frequently asked questions for upgrading to the latest CMAQ version](https://github.com/USEPA/CMAQ/wiki/CMAQv5.5-Series-FAQ) **- Updated for v5.5 release.** * [CMAQv5.5 Release Notes](https://github.com/USEPA/CMAQ/wiki/CMAQ-Release-Notes) - Release Notes are available on the CMAQ GitHub wiki. * [Tutorials for setting up and running CMAQ](DOCS/Users_Guide/Tutorials/README.md) **- Tutorials on running CMAQ, CMAQ-ISAM, CMAQ-DDM, and WRF-CMAQ test cases.** ## New features in CMAQ version 5.5 include: * Community Regional Atmospheric Chemistry Multiphase Mechanism (CRACMM) version 2 including updated formaldehyde chemistry impacting ozone and secondary organic aerosol formation * New support for running pre-configured global CMAQ simulations coupled with meteorology from the Model for Prediction Across Scales – Atmosphere (MPAS-A) * Expanded capabilities of the Integrated Source Apportionment Method (ISAM) to quantify source contributions to total secondary organic aerosol (SOA) and individual species * Updates to ISAM source attribution estimates, mainly impacting coarse particles and secondary organic aerosols formed through cloud processes * Updates to the Decoupled Direct Method (DDM) to improve second order ozone sensitivities. (*Note that DDM-3D is not compatible with the STAGE deposition model in CMAQv5.5.*) * Updated chemistry to properly capture photolysis effects from sub-grid clouds * Revised algorithms for modeling dry deposition (M3DRY and STAGE updates) * Improved accuracy and error checking for BDSNP soil NO in the MEGAN biogenic emissions algorithm * MCIP (meteorology pre-preprocessor) updates to grid origin definition for fine scale Lambert Conformal Grids (i.e., < 4km ) * Updates to Sulfur Tracking Model (STM) to properly attribute sulfate from gas phase chemistry * Updates to the Explicit and Lumped Model Output (ELMO) synthesizer to fix erroneous output for several PM aggregates including PMF_OC, PMF_NCOM, TNO3 * New shp2cmaq python tool to convert GIS shapefiles into gridded netCDF mask files that can be used for defining regions and region families with DESID and using geographic source regions when running CMAQ-ISAM * Simplified workflows for easier CMAQ installation * **See the full list of CMAQv5.5 updates on our new CMAQ Wiki page. [**CMAQv5.5 Updates**](https://github.com/USEPA/CMAQ/wiki/CMAQv5.5-Series-FAQ#do-i-need-to-update-from-v54-to-v55)** ## Important note for WRF-CMAQ users Coupled WRF-CMAQv5.5 [(Wong et al., 2010)](https://doi.org/10.5194/gmd-5-299-2012) is compatible with WRF versions 4.4 to 4.5.1. EPA's testing of WRF-CMAQ has included chemical mechanisms CB6r5 and CRACMMv1 with the M3DRY dry deposition scheme. Other model options can be used with the WRF-CMAQ model but will have limited user support for issues that are encountered. See the [WRF-CMAQv5.5 Release Note](https://github.com/USEPA/CMAQ/wiki/CMAQ-Release-Notes:-WRF-CMAQ-Coupled-Model#compatibility-issues-with-wrf-versions-452-and-later) for more information. ## Getting the CMAQ Repository This CMAQ Git archive is organized with each official public release stored as a branch on the main USEPA/CMAQ repository. The most recently released version of the the model will always be on the branch called 'main'. To clone code from the CMAQ Git archive, specify the branch (i.e. version number) and issue the following command from within a working directory on your server: ``` git clone -b main https://github.com/USEPA/CMAQ.git CMAQ_REPO ``` or ``` git clone -b main git@github.com:USEPA/CMAQ.git CMAQ_REPO ``` ### CMAQv5.5 Bug Fixes Users who wish to adopt the most recent bugfixes or minor updates to v5.5 should review the tagged versions of v5.5+: **[Record of changes to CMAQv5.5](https://github.com/USEPA/CMAQ/wiki/CMAQ-Bugfix-Branch#record-of-changes-to-cmaqv55)** To clone code with all of the CMAQv5.5 bug fixes issue the following command from within a working directory on your server: ``` git clone -b 5.5+ https://github.com/USEPA/CMAQ.git CMAQ55plus_REPO ``` ## CMAQ Repository Guide Source code and scripts are organized as follows: * **CCTM (CMAQ Chemical Transport Model):** code and scripts for running the 3D-CTM at the heart of CMAQ. * **DOCS:** CMAQ User's Guide, developers guidance, and short tutorials. * **PREP:** Data preprocessing tools for important input files like initial and boundary conditions, meteorology, etc. * **POST:** Data postprocessing tools for aggregating and evaluating CMAQ output products (e.g. Combine, Site-Compare, etc) * **PYTOOLS:** Python pre- and postprocessing tools (currently this includes the DMSCHLO preprocessor) * **UTIL:** Utilities for generating code and using CMAQ (e.g. chemical mechanism generation) ## Documentation Code documentation is included within this repository (they are version-controlled along with the code itself). * [FAQ for upgrading to the latest CMAQ version](https://github.com/USEPA/CMAQ/wiki/CMAQv5.5-Series-FAQ) * [CMAQv5.5 Release Notes](https://github.com/USEPA/CMAQ/wiki/CMAQ-Release-Notes) * [Tutorials](DOCS/Users_Guide/Tutorials/README.md) * [CMAQ User's Guide](DOCS/Users_Guide/README.md) * [Developers' Guide](DOCS/Developers_Guide/CMAQ_Dev_Guide.md) ## CMAQ Test Cases Test case input and output data for the CMAQv5.5 release are available from the CMAS Data Warehouse. Step-by-step benchmark tutorials using the test case data are provided in the GitHub repo. * [CMAQ Test Case Data](DOCS/CMAQ_Data.md) ## Other Online Resources * [Resources for Running CMAQ on Amazon Web Services](https://www.epa.gov/cmaq/cmaq-resourcesutilities-model-users#cmaq-on-the-cloud) * [Software Programs for Preparing CMAQ Inputs](https://www.epa.gov/cmaq/cmaq-resourcesutilities-model-users#prepare_cmaq_inputs) * [Software Programs for Evaluating and Visualizing CMAQ Outputs](https://www.epa.gov/cmaq/cmaq-resourcesutilities-model-users#evaluate_visualize_cmaq) * [2000 - 2023 air quality observation data from the CMAS Center Data Warehouse](https://drive.google.com/drive/u/1/folders/1QUlUXnHXvXz9qwePi5APzzHkiH5GWACw) - These files are formatted to be compatible with the [Atmospheric Model Evaluation Tool](https://www.epa.gov/cmaq/atmospheric-model-evaluation-tool). ## User Support * [Frequent CMAQ Questions](https://www.epa.gov/cmaq/frequent-cmaq-questions) are available on our website. * [Debugging tips](https://github.com/USEPA/CMAQ/blob/main/DOCS/Users_Guide/Tutorials/CMAQ_UG_tutorial_debug.md) are included with the CMAQ tutorials. * [The CMAS User Forum](https://forum.cmascenter.org/) is available for users and developers to discuss issues related to using the CMAQ system. [**Please read and follow these steps**](https://forum.cmascenter.org/t/please-read-before-posting/1321) prior to submitting new questions to the User Forum. ## EPA Disclaimer The United States Environmental Protection Agency (EPA) GitHub project code is provided on an "as is" basis and the user assumes responsibility for its use. EPA has relinquished control of the information and no longer has responsibility to protect the integrity, confidentiality, or availability of the information. Any reference to specific commercial products, processes, or services by service mark, trademark, manufacturer, or otherwise, does not constitute or imply their endorsement, recommendation or favoring by EPA. The EPA seal and logo shall not be used in any manner to imply endorsement of any commercial product or activity by EPA or the United States Government. * [Open source license](license.md) ================================================ FILE: UTIL/README.md ================================================ CMAQ Utilities ======== ## Overview The CMAQ release includes several optional utilities for model developers. Chemical reaction data is processed by the Chemical Mechanism Compiler (*chemmech*) for all chemical reaction solver approaches. This tool needs chemical namelists (e.g. GC_NAMELIST, AE_NAMELIST, etc) in order to run, and these namelists can be modified directly with a text editor or converted to CSV with the namelist converter *nml*. After running chemmech, to then generate files specifically for the Euler Backward Iterative (EBI) solver approach, the *create_ebi* is provided. Finally the Inline Photolysis Preprocessor (*inline_phot_preproc*) provides support for generating photylisis rate input to custom chemical mechanisms. In addition, the CMAQ repository includes software for generating Makefiles necessary for compiling the CCTM and other components. This bldmake utility is designed to account for user options, diagnose dependencies in source code and produce a Makefile ready to build executable files. Documentaiton for each utilitiy programs is provided in the README files within each folder. ## Utility Programs * **[bldmake](bldmake/README.md)**: CMAQ Makefile generator and model builder * **[chemmech](chemmech/README.md)**: generates chemical mechanism input files for the CMAQ programs from a mechanism definition file * **[create_ebi](create_ebi/README.md)**: creates mechanisms-dependent EBI chemistry solver source code * **[inline_phot_preproc](inline_phot_preproc/README.md)**: creates photolysis reaction parameter tables for the CCTM inline photlysis module * **[nml](nml/README.md)**: converts chemical mechanism csv output files from chemmech to the namelist files required by the CMAQ programs * **[jproc](jproc/README.md)**: calculates daily look-up tables containing clear-sky photolysis rates that are used by the tabular method for calculate photolysis rates in CMAQ CCTM. ================================================ FILE: UTIL/bldmake/README.md ================================================ The bldmake utility is used to create a Makefile suitable for compiling the components of CMAQ (e.g. CCTM, post-processing tools, ICON, BCON, etc.). The Makefiles produced will contain the proper rules, compilation flags, and library paths to produce each executable. The utility relies on a text-based configuration file (e.g. CCTM_v53.cfg) to determine the contents of the Makefile. Each configuration file includes information about the build-time options for the target executable, the compiler brand and version, the paths to required libraries (i.e. NetCDF and IOAPI), and compilation flags. With this input, bldmake harvests source code from the CMAQ repository consistent with the selected build-time options and auto-populates the Makefile with the correct dependencies for each process module. Note that each Makefile created by bldmake will only work for a specific compiler/version (set in the input to bldmake). Users should ensure that their compute environment is consistent when compiling with that Makefile and running the generated executable. The CMAQ repo contains shell script drivers (e.g. bldit_cctm.csh, bldit_combine.csh, etc.) for choosing build options, populating the bldmake configuration file, running bldmake to generate a Makefile, and running the Makefile to create an executable. The CMAQ team recommends users refrain from modifying bldmake or executing it stand-alone. Instead, please use these shell script drivers. ================================================ FILE: UTIL/bldmake/scripts/bldit_bldmake.csh ================================================ #! /bin/csh -f # ==================== Build Script for BLDMAKE ===================== # # Usage: bldit_bldmake.csh # # Requirements: I/O API & netCDF libraries; a Fortran compiler # # # # To report problems or request help with this script/program: # # http://www.cmascenter.org # # =================================================================== # #> Recompile BLDMAKE from source if requested or if it does not exist if ( $?CompileBLDMAKE || ! -f $BLDER ) then if (${compiler} == pgi) then # this addition flag is for handling backslash in quoted string properly set add_flags = -Mbackslash else set add_flags = endif #> Set BLDER to Default Path set BLDEXE = "bldmake_${compilerString}.exe" set BLDDIR = "$CMAQ_HOME/UTIL/bldmake" setenv BLDER "${BLDDIR}/${BLDEXE}" #> Make bldmake directory if it does not exist if ( ! -d $BLDDIR ) mkdir -pv $BLDDIR #> Compile BLDMAKE source code set BLDSRCDIR = "$CMAQ_REPO/UTIL/bldmake/src" set flist = (\ cfg_module\ bldmake\ parser\ utils ) #> Clean Destination BLDMAKE directory cd $BLDDIR rm *.o *.mod $BLDER #> Create Object Files cd $BLDSRCDIR foreach file ( $flist ) $myFC -c $add_flags $myFFLAGS $file.f -o $BLDDIR/$file.o end #> Compile BLDMAKE cd $BLDDIR $myFC *.o -o $BLDEXE if( ! -e $BLDEXE ) then echo " "; echo " ***ERROR*** BLDMAKE Compile failed"; echo " " exit 1 endif chmod 755 $BLDEXE echo " "; echo " Finish building $BLDEXE " endif exit ================================================ FILE: UTIL/bldmake/src/Makefile ================================================ # make file to build bldmake program EXEC = bldmake #To use nondefault compiler, type "make COMPILER=compiler" where compiler is PGF90 or GFORT. ifndef COMPILER #COMPILER = INTEL #COMPILER = PGF90 COMPILER = GFORT endif ifeq ($(COMPILER),INTEL) FC = ifort #F_FLAGS = -O2 -fixed -extend_source -WB F_FLAGS = -g -fixed -CU -CB -g -traceback -extend_source -WB else ifeq ($(COMPILER),PGF90) FC = pgf90 F_FLAGS = -Bstatic -Mextend -Mbounds -Mfixed -traceback -Mbackslash else ifeq ($(COMPILER),GFORT) FC = gfortran F_FLAGS = -ffixed-form -ffixed-line-length-132 -fcheck=all -fbacktrace else ERROR1 = "Makefile does not configure to support the specified compiler, $(COMPILER). User must modify Makefile." endif ifdef ERROR1 $(error $(ERROR1)) endif OBJS= cfg_module.o parser.o utils.o bldmake.o .SUFFIXES: .f $(EXEC): $(OBJS) $(FC) $(OBJS) -o $@ .f.o: $(FC) -c $(F_FLAGS) $< clean: \rm -f *.o *.mod # make file to build bldmake program ================================================ FILE: UTIL/bldmake/src/bldmake.f ================================================ !-----------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies! ! of their work in the CMAQ system to the public and to permit others ! ! to Do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !-----------------------------------------------------------------------! !------------------------------------------------------------------------------- ! PROGRAM bldmake ! Generate a Makefile for source files extracted from a git repository ! originally written in C by Steve Thorpe ! rewritten in Fortran by Steve Howard (for a CVS repository) ! redone to meet CMAQ coding standards by Jeff Young (Nov 2012) ! Sep 2013 J.Young: Increased local variables "modName" and "modFile" name ! lengths from 32 to 64 chars ! Dec 2013 D.Wong: Expanded functionality to handle twoway model ! Sep 2014 D.Wong: Setup . as the path that contains *.EXT files ! Aug 2015 D.Wong: Modified subroutine writeOBJS to put STENEX and PARIO ! in front of GLOBAL_MODULES in the OBJS sequence. In ! this arrangement, all routines in STENEX will stay under ! STENEX and all routines in PARIO will stay under PARIO ! rather than GLOBAL_MODULES ! Oct 2015 J.Young: Rework to make macros in the makefile for libs and ! compiler "I" references; get rid of the CVS option. ! Jan 2016 D.Wong: Fixed the include path of mpif.h ! June 2019 F. Sidi: Removed redundant IOAPI library. Makefile generated ! consistant with IOAPI library format. ! July 2019 F. Sidi: Added netCDF Fortran Library Path. Makefile generated ! consistent with netCDF library format. ! Nov 2020 D. Wong: moified the code to build Makefile.twoay automatically ! when build_twoway is turned on ! jan 2020 D. Wong: indlucded a help message for option -twoway ! June 2021 F. Sidi: Restore reading of MPICH string from cfg for mpi libraries !------------------------------------------------------------------------------- Program bldmake Use ModelCFG Implicit None Character( EXT_LEN ) :: cfgFile ! config file Integer :: lfn = 11 ! config file unit Integer status Integer n ! call Setup routine to process command line arguments Call setup( cfgFile ) ! open cfgFile Open ( unit=lfn, file=cfgFile, status='old', iostat=status ) If ( status .Ne. 0 ) Then Write( *,'(" Open error number:",i5)') status Call error_msg( 'Cannot open FILE [' // Trim(cfgFile) //']' ) End If ! read CFG file Call readCFG( lfn ) Close ( unit=lfn ) ! GIT repository Call git_export( status ) ! create Makefile if (twoway) then Open ( unit=lfn, file='Makefile.twoway', iostat=status ) else Open ( unit=lfn, file='Makefile', iostat=status ) end if If ( status .ne. 0 ) Call error_msg( 'Cannot create FILE [Makefile]' ) Call makefile( lfn, cfgFile ) Close (unit=lfn) ! Delete Stray temp.* files Call deletefile( 'temp.*', status ) ! If not makefile only (makefo), Then run the make command to compile If ( .not. makefo ) Then Call RunMake( status ) End If Stop End Program bldmake !------------------------------------------------------------------------------- ! Setup routine: gets input file and run options from command line !------------------------------------------------------------------------------- Subroutine setup( cfgFile ) Use ModelCfg Implicit None ! arguments Character( * ) :: cfgFile ! functions Integer :: IARGC ! local variables Integer :: status Integer :: nargs Integer :: n Character( NAME_LEN ) :: argv ! date and time variables Character( 8 ) :: cdate Character( 10 ) :: ctime Character( 5 ) :: czone Integer :: dateValues( 8 ) ! set defaults verbose = .False. serial = .False. debug = .False. debug_cctm= .False. isam_cctm = .False. checkout = .False. makefo = .False. twoway = .False. git_local = .False. repo = ' ' reporoot = ' ' ! check number of arguments on command line nargs = IARGC() ! non-standard compiler extension returns the number of arguments If ( nargs .Eq. 0 ) Then Call help_msg('No arguments on command line') Stop End If ! get last argument (the bldit-created config file) and write to cfgFile Call GETARG( nargs, cfgFile ) ! non-standard compiler extension returns argument ! specified - the last argumet in this case If ( cfgFile( 1:1 ) .Eq. '-' ) Then ! config file not the last argument Call ucase( cfgFile ) If ( cfgFile .Eq. '-HELP' ) Then Call help_msg(' ') Call cfgHelp( ); Stop End If Call help_msg('Invalid configuration file argument:' // Trim( cfgFile ) ) Stop End If ! write( *,* ) "cfg: ", cfgfile ! write( *,* ) "nargs: ", nargs ! check for run options Do n = 1, nargs-1 Call GETARG( n, argv ) ! write( *,* ) "n, argv: ", n, argv If ( argv( 1:1 ) .Ne. '-' ) Then Call help_msg('Invalid arguments on command line:' // Trim( argv ) ) Stop End If Call ucase( argv ) If ( argv .Eq. '-HELP' ) Then Call help_msg('Help option:' // Trim( argv ) ) Call cfgHelp( ); Stop End If If ( argv .Eq. '-MAKEFO' ) Then ! Make file only makefo = .True.; Cycle End If If ( argv .Eq. '-SERIAL' ) Then ! compile for serial execution serial = .True.; Cycle End If If ( argv .Eq. '-TWOWAY' ) Then ! WRF-CMAQ twoway CCTM If ( .Not. serial ) Then twoway = .True.; Cycle Else stop ' TwoWay not available for Serial execution' End If End If If ( argv .Eq. '-GIT_LOCAL' ) Then ! do not copy source files to BLD directory git_local = .True.; Cycle End If If ( argv .Eq. '-DEBUG' ) Then debug = .True.; Cycle End If If ( argv .Eq. '-DEBUG_CCTM' ) Then debug_cctm = .True.; Cycle End If If ( argv .Eq. '-ISAM_CCTM' ) Then isam_cctm = .True.; Cycle End If If ( argv .Eq. '-VERBOSE' ) Then verbose = .True.; Cycle End If Call help_msg( 'Invalid arguments [' // Trim(argv) // '] on command line' ) End Do ! If REPOROOT is defined, use it, Else set to current directory Call GETENV( 'REPOROOT', reporoot ) If ( Len_Trim( reporoot ) .Eq. 0 ) Then Call PWD( reporoot, status ) If ( status.ne.0 ) reporoot = './' End If If ( debug .or. verbose ) Then Write( *,'(''REPOROOT set to:'',a,/)') Trim( reporoot ) End If ! Get system date and time Call date_and_time( cdate, ctime, czone, dateValues ) Write( currentDate, '(i2.2,"/",i2.2,"/",2i4.2,":",i2.2,":",i2.2)' ) & dateValues( 2 ), dateValues( 3 ), dateValues( 1 ), & dateValues( 5 ), dateValues( 6 ), dateValues( 7 ) Return End Subroutine setup !------------------------------------------------------------------------------- ! Help message: Prints command line format and options and stops run !------------------------------------------------------------------------------- Subroutine help_msg( msg ) Implicit None ! arguments Character(*) msg Write( *,'(/,a)' ) Trim( msg ) Write( *,'(/"Usage: bldmake [-2O) ---> 2OH present | Needed to solve Group 1 and 2 | | NO2 ---> NO+O(3P) present | Needed to solve Group 1 | | N2O and excited NO2 are not active in NOx cycle | If the two species are present, their chemistry upsets the accuracy of the analytical soluton for NOx species | | O(3P) (+ O2) ---> O3 present | Needed to solve Group 1 | | NO + O3 ---> NO2 present | Needed to solve Group 1 and 2 | | HONO ---> OH + NO present | Needed to solve Group 2; often a photolysis reaction | | OH + NO ---> HONO present | Needed to solve Group 2; often a photolysis reaction | | HNO4 ---> HO2 + NO2 present | Needed to solve Group 2 | | HO2 + NO2 ---> HNO4 present | Needed to solve Group 2 | | HO2 + HO2 ---> H2O2 present | Needed to solve Group 2 | | C2H3O3 + C2H3O3 ---> _products_ present | Needed to solve Group 3; products mechanism dependent | | Negative product coefficients are only allowed for a photochemical species named PAR | Exception made for Carbon Bond mechanisms | ### Using create_ebi The create_ebi utility is designed compiled and run once for each application. Beside the utility's own source code and data files, compiling needs a photochemical mechanism's data module defined by the run script (Table 3.). If compilation is successful, the utility runs based on the run script options. To create a new EBI solver based on photochemical mechanism's reactions data module: 1) Copy scripts/bldrun.create_ebi.csh into its parent directory. _The bldrun script assumes that value of base is {CMAQ_REPO}/UTIL/create_ebi._ 2) Edit to define the FORTRAN compiler and mechanism's data module. See to Table 3 for options set by bldrun script. 3) Execute the script. _The script compiles create_ebi then runs the utility._ 4) Check the OUTDIR for the code files for the ebi solver, produced.
Table 3. create_ebi environment settings or run time options
| Names | Definition | Notes or Recommeded Value | |:-----|:-----|:------| | COMPILER | FORTRAN compiler to building create_ebi | the utility's makefile, _makefile.v5XX_, is step up for the Intel (INTEL), Portland Group (PGF90) and GCC gfortran (GFORT) compilers. If a separate compiler is to be used, the user has to modify the makefile to define the compiler and its compile flags, recommend including debugging flags| | RXNS_DATA_SRC | Full path to mechanism's RXNS_DATA_MODULE.F90 | Produced by CHEMMECH utility | | TMPLDIR | Full path to for FORTRAN templates for solver files | ${CMAQ_REPO}/UTIL/create_ebi/template_RXNSU_OPT | | DEGRADE_CODES | Full path to FOTRAN code fors exponential decay of select air toxic. Check Table 4. | ${CMAQ_REPO}/UTIL/create_ebi/degrade_codes_serial-RXNST | | SRCDIR | Full path to FORTRAN codes for create_ebi utility | ${CMAQ_REPO}/UTIL/create_ebi/src_RXNSU | | OUTDIR | Full path where to write output files | actual value is up to the user | | PAR_NEG_FLAG | whether mechamisms has the species PAR and the species as negative production coefficients | T for Carbon Bond based mechanism but F for other mechanisms1 | | DEGRADE_SUBS | include calls for HAPs degrade routines | T | | SOLVER_DELT | Default time step of solver in minutes | 2.5 but saprc07tic mechanism uses 1.25 | | MECH_NO | mechanism's name for nitrogen oxide | **NO** for cb6, saprc07t and racm22 based photochemical mechanisms | | MECH_NO2 | mechanism's name for nitrogen dioxide | **NO2** for cb6, saprc07t and racm2 based photochemical mechanisms | | MECH_O3 | mechanism's name for ozone | **O3** for cb6, saprc07t and racm2 based photochemical mechanisms | | MECH_O3P | mechanism's name for ground state oxygen atom | **O** for cb6 but **O3P** for saprc07t and racm2 based photochemical mechanisms | | MECH_O1D | mechanism's name for excited state oxygen atom | **O1D** for cb6, saprc07t and racm2 based photochemical mechanisms | | MECH_OH | mechanism's name for hydroyxl radical | **OH** for cb6 and saprc07t but **HO** for racm2 based photochemical mechanisms | | MECH_HO2 | mechanism's name for hydroperoxy radical | **HO2** for cb6, saprc07t and racm2 based photochemical mechanisms | | MECH_HONO | mechanism's name for nitrous acid | **HONO** for cb6, saprc07t and racm2 based photochemical mechanisms | | MECH_HNO4 | mechanism's name for proxynitric acid | **PNA** for cb6 but **HNO4** for saprc07t and racm2 based photochemical mechanisms | | MECH_PAN | mechanism's name for peroxy acetyl nitrate | **PAN** for cb6, saprc07t and racm2 based photochemical mechanisms | | MECH_C2O3 | mechanism's name for peroxy acetyl radical | **C2O3** for cb6, **MECO3** for saprc07t and **ACO3** racm2 based photochemical mechanisms | | MECH_NO3 | mechanism's name for nitrate radical | **NO3** for cb6, saprc07t and racm2 based photochemical mechanisms | | MECH_N2O5 | mechanism's name for dinitrogen pentoxide | **N2O5** for cb6, saprc07t and racm2 based photochemical mechanisms | 1. Negative product coefficients are only allowed for a photochemical species named PAR, common to Carbon Bond based photochemical mechanisms. 2. The three photochemical mechanisms released in CMAQ version 5.3. To report potential program errors or EBI solver failures, contact Bill Hutzell/USEPA at hutzell.bill@epa.gov ### Example Application. #### Compile CREATE_EBI #### After copying the bldrun_create_ebi.csh from $CMAQ_HOME/UTIL/create_ebi/scripts to another directory then editing the script to produce a solver for the saprc07tic_ae7i_aq. ``` bldrun_create_ebi.csh ``` Execute the script (the screen output can be redirected to a log file.) First set of lines send to screen will echo script options and show compilation commands. Upon its execution, create_ebi writes the below lines if the execution is successful. Value for OUTDIR: /home/hwo/CCTM_git_repository/UTIL/create_ebi/output/ebi_saprc07tic_ae7i_aq-Apr-08-2019-INTEL Value for TMPLDIR: /home/hwo/CCTM_git_repository/UTIL/create_ebi/template_RXNSU_OPT Value for PAR_NEG_FLAG: F returning FALSE Value for DEGRADE_SUBS: F returning FALSE Value for SOLVER_DELT: 1.250E+00 Value for MECH_NO2: NO2 Value for MECH_NO: NO Value for MECH_O3: O3 Value for MECH_O1D: O1D Value for MECH_O3P: O3P Value for MECH_OH: OH Value for MECH_HO2: HO2 Value for MECH_HONO: HONO Value for MECH_HNO4: HNO4 Value for MECH_PAN: PAN Value for MECH_C2O3: MECO3 Value for MECH_NO3: NO3 Value for MECH_N2O5: N2O5 Group species mapping results: nitric oxide (NO): NO nitrogen dioxide (NO2): NO2 ozone (O3): O3 ground state atomic oxygen (O3P): O3P excited atomic oxygen (O1D): O1D hydroxyl radical (OH): OH hydroperoxy radical (HO2): HO2 nitrous acid (HONO): HONO peroxynitric acid (HNO4): HNO4 nitrate radical (NO3): NO3 nitrogen pentoxide (N2O5): N2O5 peroxy acetyl radical (C2O3): MECO3 peroxy acetyl nitrate (PAN): PAN Checking mechanism for EBI solver requirements. No mechanism requirement problems detected - continuing. Found O1D destruction in reaction # 20 Found O1D destruction in reaction # 21 Found OH production via O1D in reaction # 20 No HO2 production via O1D found The following 10 output files were created: hrdriver.F hrsolver.F hrdata_mod.F hrinit.F hrg1.F hrg2.F hrg3.F hrg4.F hrprodloss.F hrrates.F Program CR_EBI_SOLVER completed successfully ### Input and Output files To create an EBI solver for a photochemical mechanism to be used in the CMAQ model, a user needs the Fortran data module describing the photochemical mechanism. The chemmech utility produces the module based on a mechanism definitions file and species namelist files. For more information, consult the README under ${CMAQ_REPO}/UTIL/chemmech. **Table 4. CREATE_EBI input files** |**File Name**|**Format**|**Description**| |----------------------------------|----------|----------------------------------------------------------| |RXNS_DATA_MODULE.F90|ASCII|a Fortran 90 module describing the photochemical mechanism produced by the chemmech utility | #### CREATE_EBI output files A successful application produces files under a directory defined the environment variable, OUTDIR. Their number depends on run time options (Table 5.) **Table 5. CREATE_EBI output files** |File Name|Format|Description| |---------------------------------------|---------------|-------------------------------------------------------| | hr\*.F|ASCII | Fortran files for the CCTM EBI chemistry solver| | DEGRADE_SETUP_TOX.F1 | ASCII | Fortran module that calculates exponent decay for a set of toxic air pollutants | | init_degrade.F1 | ASCII | Fortran code that initializes arrays in DEGRADE_SETUP_TOX.F | | degrade_data.F1 | ASCII | Fortran code that lists the set of toxic pollutants and their photochemical loss processes | | find_degrade.F1 | ASCII | Fortran code that search for the toxic pollutants in species namelists | | degrade.F1 | ASCII | Fortran code that calculated the exponental decay for the toxic pollutants | | final_degrade.F1 | ASCII | Fortran code that updates CGRID array | 1. Produced if DEGRADE_SUBS equals T. Compiling a version of the CMAQ model using this photochemical mechanism and its EBI solver. A user has two options. 1. update the source code ( _the two photochemical reaction modules produced by CHEMMECH and EBI solver files_) and Makefile in an existing CMAQ build directory. 2. Add the new mechanism and solver files to their CMAQ repository then use the cctm build-it script to build the CMAQ CCTM model. The latter option is more complicated because it creates subdirectories under `$CMAQ_HOME/CCTM/src/MECHS` and `$CMAQ_HOME/CCTM/src/gas` and involve files not produced by the user and other utilities. ## References. Hertel O., Berkowicz R., Christensen J., and Hov O. (1993). Test of Two Numerical Schemes for Use in Atmospheric Transport-Chemistry Models. Atmospheric Environment, Vol. 27A, No. 16, 2591-2661. ================================================ FILE: UTIL/create_ebi/docs/README.txt ================================================ # CMAQ.Create_EBI_Solver Data, runscript, and FORTRAN code that CMAQ v51 EBI Solver To create a new EBI solver: 1) Copy scripts/bldrun.create_ebi into its parent directory 2) Modify makefile.v50XX for the compilers and their flags on your computer platform, IF NECESSARY. 3) Change the copy of bldrun.create_ebi for your application. 3) Execute the script. Inputs and reference outputs are provided. To report potential program errors or EBI solver failures, contact Bill Hutzell/USEPA at hutzell.bill@epa.gov. ================================================ FILE: UTIL/create_ebi/scripts/bldrun_create_ebi.csh ================================================ #! /bin/csh -f # ============ CREATE_EBI_SOLVERv5.5.x Build Script ================= # # Usage: bldrun_create_ebi.csh [compiler] >&! bldrun_create_ebi.log # # Options for [compiler]: intel | gcc | pgi # # # # To report problems or request help with this script/program: # # http://www.cmascenter.org # # =================================================================== # # ======================================================================= #> Preliminary error checking and environment configuration # ======================================================================= #> Check that the host system is Linux-based set BLD_OS = `uname -s` if ($BLD_OS != 'Linux') then echo " $BLD_OS -> wrong bldit script for host!" exit 1 endif #> Set Compiler Identity by User Input: Options -> intel | pgi | gcc if ( $#argv == 1 ) then setenv compiler $argv[1] setenv compilerVrsn Empty else if ( $#argv == 2 ) then #> Compiler Name and Version have been provided setenv compiler $1 setenv compilerVrsn $2 else setenv compiler intel setenv compilerVrsn Empty echo "compiler and version not set" echo "usage: $0 " echo "setting compiler to intel" endif #> Source the config.cmaq file to set the build environment if( -e ../../../config_cmaq.csh )then cd ../../.. source ./config_cmaq.csh else #work offline from CMAQ repository and build environment setenv offline "Y" echo ${offline} setenv compilerString ${compiler} setenv CMAQ_HOME $cwd/.. endif echo ${CMAQ_HOME} #> Source Code Repository if( ! ( $?offline ) )then setenv REPOROOT ${CMAQ_REPO}/UTIL/create_ebi #> location of the source code for CHEMMECH else setenv REPOROOT ${CMAQ_HOME} endif #=============================================================================== #> Begin User Input Section #=============================================================================== #> User choices: working directory and application ID if ( ! $?MECH ) then set MECH = 'cb6r5m_ae7_aq' endif setenv CLEAR "TRUE" #> over-write existing output files #> Set working, input and output directories if( ! ( $?offline ) )then set WORKDIR = ${CMAQ_HOME}/UTIL/create_ebi else set WORKDIR = ${CMAQ_HOME} endif if ( ! $?INPDIR ) then setenv INPDIR ${WORKDIR}/input/${MECH} endif if ( ! $?OUTDIR ) then setenv OUTDIR ${WORKDIR}/output/ebi_${MECH} endif set VRSN = v55 #> model version setenv EXEC CREATE_EBI_${VRSN}.exe #> executable name for this application setenv BLDIR ${WORKDIR}/scripts/BLD_create_ebi_${VRSN}_${compilerString} #============================================================================================ #> Set locations for source code and templates #============================================================================================ setenv SRCDIR ${BLDIR} setenv TMPLDIR ${REPOROOT}/template_RXNSU_OPT set data_paths = ( ${TMPLDIR} ) foreach data_dir ( ${data_paths} ) if( ! ( -e ${data_dir} ) )cp -r $data_dir ${WORKDIR}/. end # Define environment variable for path to data module for photochemical mechanism # RXNS_DATA is the input directory containing the mechanism's data module # value will change based on user's goals. If the file is not found, this script # will check the output for CHEMMECH, and then check the CMAQ_REPO. If it is in # neither of those places, the script aborts. setenv RXNS_DATA_SRC ${INPDIR}/RXNS_DATA_MODULE.F90 if ( ! -e ${RXNS_DATA_SRC} ) then echo 'Below RXNS_DATA_MODULE input file does not exist' echo ${RXNS_DATA_SRC} exit 1 endif #============================================================================================ #> Copy CREATE_EBI Source Code into new build folder and compile #============================================================================================ if ( -e "$BLDIR" ) then echo " *** build directory exist, deleting it***" \rm -rf $BLDIR endif mkdir -pv $BLDIR cp ${REPOROOT}/src/* ${BLDIR}/. cd ${BLDIR}; make clean; make if( ! ( -e ${EXEC} ) )then echo "failed to compile ${BLDIR}/${EXEC}" exit 1 endif #============================================================================================ #> Confiugre options for running CREATE_EBI #============================================================================================ #Set options for the photochemical mechanism setenv DEGRADE_SUBS T # include calls for HAPs degrade routines #Set the below compound names within the mechanism if ( ${MECH} =~ *"cb"* || ${MECH} =~ *"CB"* ) then setenv PAR_NEG_FLAG T # True for CB6 but false for SAPRC07t and RACM2 if ( ${MECH} =~ *"cb6r3m"* || ${MECH} =~ *"CB6R3M"* ) then setenv SOLVER_DELT 1.25 # maximum time step (minutes) of solver integration up to four # significant figures in general or scientific notation # For cb6r3m recommended. else if ( ${MECH} =~ *"cb6r5m"* || ${MECH} =~ *"CB6R5M"* ) then setenv SOLVER_DELT 1.25 # maximum time step (minutes) of solver integration up to four # significant figures in general or scientific notation # For cb6r5m recommended. else setenv SOLVER_DELT 2.50 # maximum time step (minutes) of solver integration up to four # significant figures in general or scientific notation # For saprc07tic based mechanisms, 1.25 minutes is recommended. endif # #Mech # Description # cb6r3/cb05 # setenv MECH_NO NO # Species name for nitric oxide setenv MECH_NO2 NO2 # Species name for nitrogen dioxide setenv MECH_O3 O3 # Species name for ozone setenv MECH_O3P O # Species name for ground state oxygen atom setenv MECH_O1D O1D # Species name for excited state oxygen atom setenv MECH_OH OH # Species name for hydroxyl radical setenv MECH_HO2 HO2 # Species name for hydroperoxy radical setenv MECH_HONO HONO # Species name for nitrous acid setenv MECH_HNO4 PNA # Species name for peroxynitric acid setenv MECH_PAN PAN # Species name for peroxy acetyl nitrate setenv MECH_C2O3 C2O3 # Species name for peroxy acetyl radical setenv MECH_NO3 NO3 # Species name for nitrate radical setenv MECH_N2O5 N2O5 # Species name for dinitrogen pentoxide else if ( ${MECH} =~ *"saprc"* || ${MECH} =~ *"SAPRC"* ) then setenv PAR_NEG_FLAG F # True for CB6 but false for SAPRC07t and RACM2 if ( ${MECH} =~ *"saprc07tic"* || ${MECH} =~ *"SAPRC07TIC"* ) then setenv SOLVER_DELT 1.25 # maximum time step (minutes) of solver integration up to four # significant figures in general or scientific notation # For saprc07tic based mechanisms, 1.25 minutes is recommended. else setenv SOLVER_DELT 2.50 # maximum time step (minutes) of solver integration up to four # significant figures in general or scientific notation # For saprc07tic based mechanisms, 1.25 minutes is recommended. # endif endif # #Mech # Description # SAPRC07 # setenv MECH_NO NO # Species name for nitric oxide setenv MECH_NO2 NO2 # Species name for nitrogen dioxide setenv MECH_O3 O3 # Species name for ozone setenv MECH_O3P O3P # Species name for ground state oxygen atom setenv MECH_O1D O1D # Species name for excited state oxygen atom setenv MECH_OH OH # Species name for hydroxyl radical setenv MECH_HO2 HO2 # Species name for hydroperoxy radical setenv MECH_HONO HONO # Species name for nitrous acid setenv MECH_HNO4 HNO4 # Species name for peroxynitric acid setenv MECH_PAN PAN # Species name for peroxy acetyl nitrate setenv MECH_C2O3 MECO3 # Species name for peroxy acetyl radical setenv MECH_NO3 NO3 # Species name for nitrate radical setenv MECH_N2O5 N2O5 # Species name for dinitrogen pentoxide else if ( ${MECH} =~ *"racm"* || ${MECH} =~ *"RACM"* ) then setenv PAR_NEG_FLAG F # True for CB6 but false for SAPRC07t and RACM2 setenv SOLVER_DELT 2.50 # maximum time step (minutes) of solver integration up to four # significant figures in general or scientific notation # For cb6r3m and saprc07tic based mechanisms, 1.25 minutes is recommended. # #Mech # Description # RACM2 # setenv MECH_NO NO # Species name for nitric oxide setenv MECH_NO2 NO2 # Species name for nitrogen dioxide setenv MECH_O3 O3 # Species name for ozone setenv MECH_O3P O3P # Species name for ground state oxygen atom setenv MECH_O1D O1D # Species name for excited state oxygen atom setenv MECH_OH HO # Species name for hydroxyl radical setenv MECH_HO2 HO2 # Species name for hydroperoxy radical setenv MECH_HONO HONO # Species name for nitrous acid setenv MECH_HNO4 HNO4 # Species name for peroxynitric acid setenv MECH_PAN PAN # Species name for peroxy acetyl nitrate setenv MECH_C2O3 ACO3 # Species name for peroxy acetyl radical setenv MECH_NO3 NO3 # Species name for nitrate radical setenv MECH_N2O5 N2O5 # Species name for dinitrogen pentoxide else echo 'Undetermined chemical mechanism: the user must include case defining its key species and options.' echo 'Please update CREATE_EBI with new case' exit 1 endif #============================================================================================ #> Populate Output #============================================================================================ # Create Output Directory if( -e $OUTDIR ) then if( $CLEAR == "FALSE" )then echo "Previous output exists; set CLEAR to TRUE to delete" exit(1) endif echo "Removing old solver files" /bin/rm -rf ${OUTDIR} endif mkdir -p $OUTDIR \cp -f ${RXNS_DATA_SRC} $OUTDIR/. # Run CREATE_EBI.EXE $BLDIR/$EXEC if ( $? != 0 ) then echo "CREATE_EBI ($BLDIR/$EXEC) failed for some reason. Halt Build Process!" exit 1 endif ================================================ FILE: UTIL/create_ebi/src/ATDSC3.EXT ================================================ !......................................................................... ! Version "@(#)$Header$" ! EDSS/Models-3 I/O API. Copyright (C) 1992-2002 MCNC ! Distributed under the GNU LESSER GENERAL PUBLIC LICENSE version 2.1 ! See file "LGPL.txt" for conditions of use. !.................................................................... ! INCLUDE FILE ATDSC3.EXT ! ! DO NOT EDIT !! ! ! The EDSS/Models-3 I/O API depends in an essential manner ! upon the contents of this INCLUDE file. ANY CHANGES are ! likely to result in very obscure, difficult-to-diagnose ! bugs caused by an inconsistency between standard "libioapi.a" ! object-libraries and whatever code is compiled with the ! resulting modified INCLUDE-file. ! ! By making any changes to this INCLUDE file, the user ! explicitly agrees that in the case any assistance is ! required of MCNC or of the I/O API author, Carlie J. Coats, Jr. ! as a result of such changes, THE USER AND/OR HIS PROJECT OR ! CONTRACT AGREES TO REIMBURSE MCNC AND/OR THE I/O API AUTHOR, ! CARLIE J. COATS, JR., AT A RATE TRIPLE THE NORMAL CONTRACT ! RATE FOR THE SERVICES REQUIRED. ! ! CONTAINS: Fortran data structures for a MODELS 3 file description ! for file type TSRIES3 (timeseries). Based upon FDESC3.EXT. ! Used to pass data between RDDICT3, WRDICT3, CREATE3, DESC3, ! and their callers. Common BATTS3 is used to store the ! non-character-string data, and CATTS3 is used to store ! the character-string data (recall that FORTRAN 77 prohibits ! character and non-character data in the same common) ! ! SHOULD ONLY BE USED AS A NAME BASED ARGUMENT PASSING MECHANISM; ! the user should have local variables to/from which this data structure ! is copied immediately prior to or immediately after calls which set ! or use these COMMONs, since their values are subject to change at ! any time by the IOAPI. ! ! DEPENDENT UPON: PARMS3.EXT ! ! REVISION HISTORY: ! Prototype 6/1992 by Carlie J. Coats, Jr., MCNC Environmental ! Programs ! ! Modified 6/1996 by CJC to add variable attributes for ! TSRIES3 file type ! ! Modified 2/2002 by CJC for compatibility with both free and ! fixed Fortran 9x source forms ! ! SET BY: ! DESC3: Everything in ATTDSC3.EXT ! ! RDDICT3: FTYPE3D, TSTEP3D, NCOLS3D, NROWS3D, NLAYS3D, NVARS3D, ! NTHIK3D, GDTYP3D, P_ALP3D, P_BET3D, P_GAM3D, ! XORIG3D, YORIG3D, XCELL3D, YCELL3D, GDNAM3D, ! XCENT3D, YCENT3D, VNAME3D, UNITS3D, VDESC3D ! ! REFERENCED BY: ! CREATE3: FTYPE3D, SDATE3D, STIME3D, TSTEP3D, NCOLS3D, NROWS3D, ! NLAYS3D, NVARS3D, NTHIK3D, GDTYP3D, P_ALP3D, P_BET3D, ! P_GAM3D, XORIG3D, YORIG3D, XCELL3D, YCELL3D, GDNAM3D, ! XCENT3D, YCENT3D, VNAME3D, UNITS3D, VDESC3D ! ! WRDICT3: FTYPE3D, TSTEP3D, NCOLS3D, NROWS3D, NLAYS3D, NVARS3D, ! NTHIK3D, GDTYP3D, P_ALP3D, P_BET3D, P_GAM3D, XORIG3D, ! YORIG3D, XCELL3D, YCELL3D, XCELL3D, YCELL3D, GDNAM3D, ! VNAME3D, UNITS3D, VDESC3D ! !.................................................................... ! ! VARIABLE ATTRIBUTES CHARACTER*16 ATNAM3D( MXATTS3, MXVARS3) ! variable attrib. name REAL FATTS3D( MXATTS3, MXVARS3 ) ! var. att. value (real) INTEGER NATTS3D( MXVARS3 ) ! no. of var. atts used ! in addition to long_name, units, var_desc !!non-character per-variable attribute data COMMON / BATTS3 / & & NATTS3D, FATTS3D !! character-string per-variable attribute data COMMON / CATTS3 / & & ATNAM3D !................ end ATDSC3.EXT .................................... ================================================ FILE: UTIL/create_ebi/src/CONST3.EXT ================================================ !......................................................................... ! Version "@(#)$Header: /env/proj/archive/cvs/ioapi/./ioapi/src/CONST3.EXT,v 1.7 2001/01/03 20:14:33 coats Exp $" ! EDSS/Models-3 I/O API. Portions copyright (C) 1992-1997 MCNC ! See file "COPYRIGHT.txt" for conditions of use. !......................................................................... !.................................................................... ! INCLUDE FILE CONST3.EXT ! ! CONTAINS: ! Physical and mathematical constants ! ! REVISION HISTORY: ! ! Adapted 6/1992 by Carlie J. Coats, Jr., MCNC Environmental Programs, ! from ROM's PI.EXT. ! ! Revised 3/1/1993 John McHenry to include constants needed by ! LCM aqueous chemistry ! ! Revised 9/1993 by John McHenry to include additional constants ! needed for FMEM clouds and aqueous chemistry ! Modified 2/2002 by CJC for compatibility with both free and ! fixed Fortran 9x source forms !.................................................................... !....... Mathematical Constants REAL PI ! PI (single precision 3.14159...) REAL TWOPI ! 2 * PI REAL PI6 ! degrees-to-radians: PI/6 REAL PI180 ! degrees-to-radians: PI/180 REAL RPI180 ! radians-to-degrees: 180/PI REAL AMISS ! standard missing value -9999.9 REAL EPSILON ! "standard" small number PARAMETER ( & PI = 3.14159265358979324 , & TWOPI = 6.28318530717958649 , & PI6 = PI / 6.0 , & PI180 = PI / 180.0 , & RPI180 = 180.0 / PI , & AMISS = -9999.9 , & EPSILON = 1.0E-10 ) !....... Physical Constants REAL REARTH ! radius of the earth (meters) REAL DG2M ! latitude degrees to meters REAL DG2MSQ ! DG2M ** 2 REAL DG2KM ! latitude degrees to kilometers REAL D2KMSQ ! DG2KM ** 2 REAL SIDAY ! length of a sidereal day (seconds) REAL SIYEAR ! length of a sidereal year (days) REAL TRYEAR ! length of a tropical year (days) REAL EOMEGA ! Earth's angular velocity (radians/sec) REAL GRAV ! mean gravitational acceleration (m/sec**2) REAL RDGAS ! dry-air gas constant (J/g-deg.K) REAL RCHGAS ! gas constant in chemical units (L-atm/mole-K) REAL RWVP ! gas constant for water vapor (J/g-deg.K) REAL HWVP ! latent heat of vaporization of water at 0 C (J/g) REAL EWVP0 ! ref saturation vapor press of water at temp TWVP0 REAL TWVP0 ! base temp. for vapor pressure calculations (deg.K) REAL CTOK ! conversion constant from deg.C to deg.K REAL SI2PPM ! conversion constant from mu-g/m**3 to PPM REAL PPM2SI ! conversion constant from PPM to mu-g/m**3 REAL VP0 ! vapor press of water at 0 C (cb) REAL LV ! latent heat of vaporization of water at 0 C (J/kg) REAL LF ! latent heat of fusion of water at 0 C (J/kg) REAL CP ! specific heat of air at const press (J/kg-deg K) REAL RDCP ! RDGAS * CP REAL DALR ! dry adiabatic lapse rate (deg K/m) REAL GOVRD ! ratio of grav const to dry gas const GRAV/RDGAS REAL RDOVG ! RDGAS/GRAV REAL ROVCP ! ratio of dry gas const to specific heat const REAL LVOCP ! ratio of latent heat of vap to specific heat const REAL AVO ! Avogadro's Constant (number per mole) REAL BOLTZ ! Boltzmann's Constant (erg/K) REAL STDATMCB ! standard atmosphere in centibars REAL STDATMMB ! standard atmosphere in millibars PARAMETER ( & REARTH = 6367333.0 , DG2M = REARTH * PI180 , & DG2MSQ = DG2M * DG2M , DG2KM = 1.0E-3 * DG2M , & D2KMSQ = DG2KM * DG2KM , SIDAY = 86164.09 , & SIYEAR = 365.256363 , TRYEAR = 365.242190 , & EOMEGA = TWOPI / SIDAY , GRAV = 9.80665 , & RDGAS = 287.0406 , RWVP = 0.4615 , & HWVP = 2500.0 , EWVP0 = 40.0 , & TWVP0 = 302.0 , CTOK = 273.15 , & SI2PPM = 0.0245 , PPM2SI = 1.0 / SI2PPM , & CP = 1004.6 , VP0 = 0.6112 , & LF = 3.34E+5 , RCHGAS = 0.082057 , & LV = HWVP * 1.0E+3 , RDCP = RDGAS * CP , & DALR = GRAV / CP , GOVRD = GRAV / RDGAS , & RDOVG = RDGAS / GRAV , ROVCP = RDGAS / CP , & LVOCP = LV / CP , AVO = 6.02257E23 , & BOLTZ = 1.38E-16 , STDATMCB = 101.325 , & STDATMMB = 0.1 * STDATMCB ) !....... Molecular Weight and Bulk Density Constants REAL MWAIR ! mean molecular weight for air REAL MWWAT ! mean molecular weight for water REAL MWH2O2 ! mean molecular weight for H2O2 REAL MWNACL ! mean molecular weight for NaCl REAL MWCL ! mean atomic weight for Cl REAL MWNH3 ! mean molecular weight for NH3 REAL MWNH4 ! mean ionic weight for NH4 REAL MWNO3 ! mean ionic weight for NO3 REAL MWHNO3 ! mean molecular weight for HNO3 REAL MWORG ! mean molecular weight for lumped organics REAL MWSO2 ! mean molecular weight for SO2 REAL MWSO4 ! mean ionic weight for SO4 REAL MWH2SO4 ! mean molecular weight for H2SO4 REAL MVOMA ! ratio of mol wt of water vapor to mol wt of air REAL SO4TOAIR ! mol wt so4 / mol wt air REAL NH3TOAIR ! mol wt nh3 / mol wt air REAL NH4TOSO4 ! mol wt nh4 / mol wt so4 REAL RHOSO4 ! bulk density of aerosol sulfate (g/cm^3) REAL RHONH4 ! bulk density of aerosol ammonium (g/cm^3) REAL RHOH2O ! bulk density of aerosol water (g/cm^3) PARAMETER ( & MWAIR = 28.9644 , MWWAT = 18.0153 , & MWH2O2 = 34.0 , MWNACL = 58.44277 , & MWCL = 35.453 , MWNH3 = 17.03061 , & MWNH4 = 18.03858 , MWNO3 = 62.0049 , & MWHNO3 = 63.01287 , MWORG = 16.0 , & MWSO2 = 64.0 , MWSO4 = 96.0576 , & MWH2SO4 = 98.07354 , MVOMA = MWWAT / MWAIR , & SO4TOAIR = MWSO4 / MWAIR , NH3TOAIR = MWNH3 / MWAIR , & NH4TOSO4 = MWNH4 / MWSO4 , RHOSO4 = 1.8 , & RHONH4 = 1.8 , RHOH2O = 1.0 ) !................ end CONST3.EXT .................................... ================================================ FILE: UTIL/create_ebi/src/FDESC3.EXT ================================================ !......................................................................... ! Version "@(#)$Header$" ! EDSS/Models-3 I/O API. Copyright (C) 1992-2002 MCNC ! Distributed under the GNU LESSER GENERAL PUBLIC LICENSE version 2.1 ! See file "LGPL.txt" for conditions of use. !.................................................................... ! INCLUDE FILE FDESC3.EXT ! ! DO NOT EDIT !! ! ! The EDSS/Models-3 I/O API depends in an essential manner ! upon the contents of this INCLUDE file. ANY CHANGES are ! likely to result in very obscure, difficult-to-diagnose ! bugs caused by an inconsistency between standard "libioapi.a" ! object-libraries and whatever code is compiled with the ! resulting modified INCLUDE-file. ! ! By making any changes to this INCLUDE file, the user ! explicitly agrees that in the case any assistance is ! required of MCNC or of the I/O API author, Carlie J. Coats, Jr. ! as a result of such changes, THE USER AND/OR HIS PROJECT OR ! CONTRACT AGREES TO REIMBURSE MCNC AND/OR THE I/O API AUTHOR, ! CARLIE J. COATS, JR., AT A RATE TRIPLE THE NORMAL CONTRACT ! RATE FOR THE SERVICES REQUIRED. ! ! CONTAINS: Fortran data structures for a MODELS 3 file description. ! Used to pass data between RDDICT3, WRDICT3, OPEN3, DESC3, ! and their callers. Common BDESC3 is used to store the ! non-character-string data, and CDESC3 is used to store ! the character-string data (recall that FORTRAN 77 prohibits ! character and non-character data in the same common) ! ! SHOULD ONLY BE USED AS A NAME BASED ARGUMENT PASSING MECHANISM; ! the user should have local variables to/from which this data structure ! is copied immediately prior to or immediately after calls which set ! or use these COMMONs, since their values are subject to change at ! any time by the IOAPI. ! ! DEPENDENT UPON: PARMS3.EXT ! ! REVISION HISTORY: ! Prototype 5/1991 by CJC ! ! Revised 3/1992 by CJC for netCDF FORTRAN implementation of ! Models-3 I/O ! ! Modified 12/1992 by CJC: map-projection descriptive parameters ! P_ALP, P_BET, P_GAM. ! ! Modified 2/2002 by CJC updated dates, license, compatibility with ! both free and fixed Fortran 9x source forms ! ! SET BY: ! DESC3: Everything in FDESC3.EXT ! ! RDDICT3: FTYPE3D, TSTEP3D, NCOLS3D, NROWS3D, NLAYS3D, NVARS3D, ! NTHIK3D, GDTYP3D, P_ALP3D, P_BET3D, P_GAM3D, ! XORIG3D, YORIG3D, XCELL3D, YCELL3D, GDNAM3D, ! XCENT3D, YCENT3D, VGTYP3D, VGTOP3D, VGLVS3D, ! VNAME3D, UNITS3D, VDESC3D ! ! REFERENCED BY: ! OPEN3: FTYPE3D, SDATE3D, STIME3D, TSTEP3D, NCOLS3D, NROWS3D, ! NLAYS3D, NVARS3D, NTHIK3D, GDTYP3D, P_ALP3D, P_BET3D, ! P_GAM3D, XORIG3D, YORIG3D, XCELL3D, YCELL3D, GDNAM3D, ! XCENT3D, YCENT3D, VGTYP3D, VGTOP3D, VGLVS3D, ! VNAME3D, UNITS3D, VDESC3D ! ! WRDICT3: FTYPE3D, TSTEP3D, NCOLS3D, NROWS3D, NLAYS3D, NVARS3D, ! NTHIK3D, GDTYP3D, P_ALP3D, P_BET3D, P_GAM3D, XORIG3D, ! YORIG3D, XCELL3D, YCELL3D, XCELL3D, YCELL3D, GDNAM3D, ! VGTYP3D, VGTOP3D, VGLVS3D, VNAME3D, UNITS3D, VDESC3D ! !.................................................................... INTEGER FTYPE3D ! file type INTEGER CDATE3D ! creation date YYYYDDD INTEGER CTIME3D ! creation time HHMMSS INTEGER WDATE3D ! update date YYYYDDD INTEGER WTIME3D ! update time HHMMSS INTEGER SDATE3D ! file start date YYYYDDD INTEGER STIME3D ! file start time HHMMSS INTEGER TSTEP3D ! file time step HHMMSS INTEGER MXREC3D ! maximum time step record number (1,2,...) INTEGER NVARS3D ! number of species INTEGER NCOLS3D ! number of grid columns INTEGER NROWS3D ! number of grid rows INTEGER NLAYS3D ! number of layers INTEGER NTHIK3D ! BOUNDARY: perim thickness (cells) ! SPARSE MATRIX: number of matrix-cols INTEGER GDTYP3D ! grid type: 1=LAT-LON, 2=Lambert, ... !....... Note that horizontal grid definition information is REAL*8 in order !....... to achieve the required precision in geographic-to/from-grid !....... coordinate conversions. Meanings of the map projection !....... specification parameters P_ALP3D, P_BET3D, P_GAM3D depend !....... upon the projection type, as follows: !....... !....... If P_ALP3D < AMISS3 (=-9E36, from PARMS3.EXT), then !....... the grid description is missing or invalid. !....... !....... lat-lon: unused. Coordinate units are degrees, with !....... -180.0 < X <= 180.0, -90.0 <= Y <= 90.0 !....... Note that Western hemisphere longitudes are taken !....... to be negative. !....... !....... Lambert PROJ_ALPHA <= PROJ_BETA are the two latitudes which !....... determine the projection cone; PROJ_GAMMA is the !....... central meridian. Coordinate units are meters. !....... !....... (General) Mercator PROJ_ALPHA and PROJ_BETA are the !....... latitude and longitude of the coordinate origin !....... (within the tangent circle); !....... PROJ_GAMMA is the angle between the cylinder axis !....... and the North polar axis. Coordinate units are meters. !....... !....... (General Tangent) Stereographic PROJ_ALPHA and PROJ_BETA are !....... the latitude and longitude of the point of tangency; !....... PROJ_GAMMA is the angle from true North to the Y-axis. !....... Coordinate units are meters. !....... !....... UTM: PROJ_ALPHA is the UTM zone, as a double. !....... PROJ_BETA and PROJ_GAMMA are unused. !....... Note that for safety, PROJ_ALPHA should be !....... *>rounded<* to integer. !....... Coordinate units are meters. !....... !....... (Secant) Polar Stereographic: PROJ_ALPHA is 1 for North Polar !....... -1 for South Polar, as a double. !....... PROJ_BETA is the secant latitude (latitude of !....... true scale). !....... PROJ_GAMMA is the Y-axis. !....... Note that for safety, PROJ_ALPHA should be !....... *>rounded<* to integer. !....... Coordinate units are meters. !....... !....... Transverse Mercator PROJ_ALPHA is the latitude of the origin. !....... PROJ_BETA is the scale factor at the central meridian; !....... PROJ_GAMMA is the longitude of the central meridian. !....... Coordinate units are meters. !....... !....... Equatorial Mercator PROJ_ALPHA is the latitude of true scale. !....... PROJ_BETA is unused. !....... PROJ_GAMMA is the longitude of the central meridian. !....... Coordinate units are meters. !....... !....... (XCENT3D,YCENT3D): !....... For Lat-Lon: unused. !....... For UTM: these are the UTM offsets in meters (UTM coords for !....... the origin relative to a UTM system with origin at the equator !....... and central metidian of the UTM zone). !....... For other projectionss (e.g., Lambert, Mercator, and Stereographic), !....... these are the longitude, -180 < X <= 180, and the !....... latitude, -90 <= Y <= 90, for the center (0,0) of the !....... respective Cartesian coordinate system. !....... !....... (XORIG3D,YORIG3D) are the location in map units (deg. for lat-lon, !....... meters otherwise) of the lower-right corner of the origin (1,1) !....... cell of the horizontal grid. !....... !....... (XCELL3D,YCELL3D) are the X-direction and Y-direction lengths !....... ((deg. for lat-lon, meters otherwise) of side for cells in a !....... regular grid. If zero, the grid is taken to be an irregular !....... grid described by other means (e.g. a grid-geometry file). !....... !....... VGTYP3D is the vertical grid type token, VGSIGP3 for sigma-P !....... coordinates, VGSIGZ3 for sigma-Z, etc., or IMISS3 for vertical !....... coordinates not stored in VGLVS3D (e.g., temporally or spatially !....... changing vertical coordinates. !....... !....... VGTOP3D is the model-top used in the definition of the sigma !....... coordinate systems (e.g., for hydrostatic sigma-P, the !....... relationship between P and sigma is given by the following: !....... S = ( P - VGTOP3D ) / (P_ref - VGTOP3D ) !....... !....... VGLVS3D( 1, ..., NLAYS3D+1 ) is the list of vertical coordinate !....... values which specify the layers of the file. In principle, !....... layer K goes from VGLVS3D( K ) to VGLVS3D( K+1 ). REAL*8 P_ALP3D ! first, second, third map REAL*8 P_BET3D ! projection descriptive REAL*8 P_GAM3D ! parameters. REAL*8 XCENT3D ! lon for coord-system X=0 REAL*8 YCENT3D ! lat for coord-system Y=0 REAL*8 XORIG3D ! X-coordinate origin of grid (map units) REAL*8 YORIG3D ! Y-coordinate origin of grid REAL*8 XCELL3D ! X-coordinate cell dimension REAL*8 YCELL3D ! Y-coordinate cell dimension INTEGER VGTYP3D ! vertical coordinate type (VGSIGP3, ...) REAL VGTOP3D ! model-top, for sigma coord types. REAL VGLVS3D( MXLAYS3 + 1 ) ! vertical coord values. CHARACTER*16 GDNAM3D ! grid name (length NAMLEN3=16) CHARACTER*16 UPNAM3D ! last program writing to file (NAMLEN3=16) CHARACTER*80 EXECN3D ! value of env vble EXECUTION_ID CHARACTER*80 FDESC3D( MXDESC3 ) ! file description (MXDLEN3=80) CHARACTER*80 UPDSC3D( MXDESC3 ) ! update " (MXDLEN3=80) INTEGER VTYPE3D( MXVARS3 ) ! variable type: M3(INT|REAL|DBLE) CHARACTER*16 VNAME3D( MXVARS3 ) ! variable names (length MXDLEN3=80) CHARACTER*16 UNITS3D( MXVARS3 ) ! " units or 'none' (MXDLEN3=80) CHARACTER*80 VDESC3D( MXVARS3 ) ! " descriptions (MXDLEN3=80) !! non-character file description data COMMON / BDESC3 / & P_ALP3D, P_BET3D, P_GAM3D, XCENT3D, YCENT3D, & XORIG3D, YORIG3D, XCELL3D, YCELL3D, & FTYPE3D, CDATE3D, CTIME3D, WDATE3D, WTIME3D, & SDATE3D, STIME3D, TSTEP3D, MXREC3D, & NVARS3D, NCOLS3D, NROWS3D, NLAYS3D, NTHIK3D, & GDTYP3D, VGTYP3D, VGTOP3D, VGLVS3D, VTYPE3D !! character-string file description data COMMON / CDESC3 / & GDNAM3D, UPNAM3D, EXECN3D, FDESC3D, UPDSC3D, & VNAME3D, UNITS3D, VDESC3D !................ end FDESC3D.EXT .................................... ================================================ FILE: UTIL/create_ebi/src/IODECL3.EXT ================================================ !......................................................................... ! Version "@(#)$Header$" ! EDSS/Models-3 I/O API. Copyright (C) 1992-2002 MCNC ! Distributed under the GNU LESSER GENERAL PUBLIC LICENSE version 2.1 ! See file "LGPL.txt" for conditions of use. !.................................................................... ! INCLUDE FILE IODECL3.EXT ! ! ! DO NOT EDIT !! ! ! The EDSS/Models-3 I/O API depends in an essential manner ! upon the contents of this INCLUDE file. ANY CHANGES are ! likely to result in very obscure, difficult-to-diagnose ! bugs caused by an inconsistency between standard "libioapi.a" ! object-libraries and whatever code is compiled with the ! resulting modified INCLUDE-file. ! ! By making any changes to this INCLUDE file, the user ! explicitly agrees that in the case any assistance is ! required of MCNC or of the I/O API author, Carlie J. Coats, Jr. ! as a result of such changes, THE USER AND/OR HIS PROJECT OR ! CONTRACT AGREES TO REIMBURSE MCNC AND/OR THE I/O API AUTHOR, ! CARLIE J. COATS, JR., AT A RATE TRIPLE THE NORMAL CONTRACT ! RATE FOR THE SERVICES REQUIRED. ! ! CONTAINS: declarations and usage comments for the Models-3 (M3) ! Interprocess Communication Applications Programming ! Interface (API) ! ! DEPENDENT UPON: consistency with the API itself. ! ! RELATED FILES: PARM3.EXT, FDESC3.EXT ! ! REVISION HISTORY: ! prototype 3/1992 by Carlie J. Coats, Jr., MCNC Environmental ! Programs ! ! Modified 2/2002 by CJC: updated dates, license, compatibility ! with both free and fixed Fortran 9x source forms ! !.................................................................... LOGICAL CHECK3 ! is JDATE:JTIME available for FNAME? LOGICAL CLOSE3 ! close FNAME LOGICAL DESC3 ! Puts M3 file descriptions into FDESC3.EXT LOGICAL FILCHK3 ! check file type and dimensions INTEGER INIT3 ! Initializes M3 API and returns unit for log LOGICAL SHUT3 ! Shuts down API LOGICAL OPEN3 ! opens an M3 file LOGICAL READ3 ! read M3 file for variable,layer,timestep LOGICAL WRITE3 ! write timestep to M3 file LOGICAL XTRACT3 ! extract window from timestep in a M3 file LOGICAL INTERP3 ! do time interpolation from a M3 file LOGICAL DDTVAR3 ! do time derivative from M3 file LOGICAL INTERPX ! time interpolation from a window ! extraction from an M3 gridded file !! LOGICAL PINTERPB ! parallel time interpolation from an ! M3 boundary file LOGICAL INQATT3 ! inquire attributes in M3 file LOGICAL RDATT3 ! read numeric attributes by name from M3 file LOGICAL WRATT3 ! add new numeric attributes " LOGICAL RDATTC ! read CHAR attributes " LOGICAL WRATTC ! add new CHAR attributes " LOGICAL SYNC3 ! flushes file to disk, etc. EXTERNAL CHECK3 , CLOSE3, DESC3 , FILCHK3, INIT3 , & SHUT3 , OPEN3 , READ3 , WRITE3 , XTRACT3, & INTERP3, DDTVAR3, INQATT3, RDATT3 , WRATT3 , & RDATTC , WRATTC, SYNC3, INTERPX ! , PINTERPB !....................................................................... !.................. API FUNCTION USAGE AND EXAMPLES .................. !....... !....... In the examples below, names (FILENAME, PROGNAME, VARNAME) !....... should be CHARACTER*16, STATUS and RDFLAG are LOGICAL, dates !....... are INTEGER, coding the Julian date as YYYYDDD, times are !....... INTEGER, coding the time as HHMMSS, and LOGDEV is the FORTRAN !....... INTEGER unit number for the program's log file; and layer, !....... row, and column specifications use INTEGER FORTRAN array !....... index conventions (in particular, they are based at 1, not !....... based at 0, as in C). !....... Parameter values for "ALL...", for grid and file type IDs, !....... and for API dimensioning values are given in PARMS3.EXT; !....... file descriptions are passed via commons BDESC3 and CDESC3 !....... in file FDESC3.EXT. !....... !....... CHECK3(): check whether timestep JDATE:JTIME is available !....... for variable VNAME in file FILENAME. !....... FORTRAN usage is: !....... !....... STATUS = CHECK3 ( FILENAME, VNAME, JDATE, JTIME ) !....... IF ( .NOT. STATUS ) THEN !....... ... (data-record not available in file FNAME) !....... END IF !....... !....... CLOSE3(): check whether timestep JDATE:JTIME is available !....... for variable VNAME in file FILENAME. !....... FORTRAN usage is: !....... !....... STATUS = CLOSE3 ( FILENAME ) !....... IF ( .NOT. STATUS ) THEN !....... ... could not flush file to disk successfully, !....... or else file not currently open. !....... END IF !....... !....... DESC3(): return description of file FILENAME to the user !....... in commons BDESC3 and CDESC3, file FDESC3.EXT. !....... FORTRAN usage is: !....... !....... STATUS = DESC3 ( FILENAME ) !....... IF ( .NOT. STATUS ) THEN !....... ... (file not yet opened) !....... END IF !....... ... !....... (Now common FDESC3 (file FDESC3.EXT) contains the descriptive !....... information for this file.) !....... !....... FILCHK3(): check whether file type and dimensions for file !....... FILENAME match the type and dimensions supplied by the user. !....... FORTRAN usage is: !....... !....... STATUS = FILCHK3 ( FILENAME, FTYPE, NCOLS, NROWS, NLAYS, NTHIK ) !....... IF ( .NOT. STATUS ) THEN !....... ... (file type and dimensions do not match !....... the supplied FTYPE, NCOLS, NROWS, NLAYS, NTHIK) !....... END IF !....... ... !....... !....... INIT3(): set up the M3 API, open the program's log file, and !....... return the unit FORTRAN number for log file. May be called !....... multiple times (in which case, it always returns the log-file's !....... unit number). Note that block data INITBLK3.FOR must also be !....... linked in. !....... FORTRAN usage is: !....... !....... LOGDEV = INIT3 ( ) !....... IF ( LOGDEV .LT. 0 ) THEN !....... ... (can't proceed: probably can't open the log. !....... Stop the program) !....... END IF !....... !....... OPEN3(): open file FILENAME from program PROGNAME, with !....... requested read-write/old-new status. For files opened for WRITE, !....... record program-name and other history info in their headers. !....... May be called multiple times for the same file (in which case, !....... it returns true unless the request is for READ-WRITE status !....... for a file already opened READ-ONLY). Legal statuses are: !....... FSREAD3: "old read-only" !....... FSRDWR3: "old read-write" !....... FSNEW3: "new (read-write)" !....... FSUNKN3: "unknown (read_write)" !....... FORTRAN usage is: !....... !....... STATUS = OPEN3 ( FILENAME, FSTATUS, PROGNAME ) !....... IF ( .NOT. STATUS ) THEN !....... ... (process the error) !....... END IF !....... !....... READ3(): read data from FILENAME for timestep JDATE:JTIME, !....... variable VNAME, layer LAY, into location ARRAY. !....... If VNAME==ALLVARS3=='ALL ', reads all variables; !....... if LAY==ALLAYS3==-1, reads all layers. !....... Offers random access to the data by filename, date&time, variable, !....... and layer. For DICTIONARY files, logical name for file being !....... requested maps into the VNAME argument. For time-independent !....... files (including DICTIONARY files), JDATE and JTIME are ignored. !....... FORTRAN usage is: !....... !....... STATUS = READ3 ( FILENAME, VNAME, LAY, JDATE, JTIME, ARRAY ) !....... IF ( .NOT. STATUS ) THEN !....... ... (read failed -- process this error.) !....... END IF !....... !....... SHUT3(): Flushes and closes down all M3 files currently open. !....... Must be called before program termination; if it returns FALSE !....... the run must be considered suspect. !....... FORTRAN usage is: !....... !....... STATUS = SHUT3 ( ) !....... IF ( .NOT. STATUS ) THEN !....... ... (Flush of files to disk probably didn't work; !....... look at netCDF error messages) !....... END IF !....... !....... WRITE3(): write data from ARRAY to file FILENAME for timestep !....... JDATE:JTIME. For GRIDDED, BUONDARY, and CUSTOM files, VNAME !....... must be a variable found in the file, or else ALLVARS3=='ALL' !....... to write all variables from ARRAY. For other file types, !....... VNAME _must_ be ALLVARS3. !....... FORTRAN usage is: !....... !....... STATUS = WRITE3 ( FILENAME, VNAME, JDATE, JTIME, ARRAY ) !....... IF ( .NOT. STATUS ) THEN !....... ... (write failed -- process this error.) !....... END IF !....... !....... XTRACT3(): read/extract gridded data into location ARRAY !....... from FILENAME for time step JDATE:JTIME, variable VNAME !....... and the data window defined by !....... LOLAY <= layer <= HILAY, !....... LOROW <= row <= HIROW, !....... LOCOL <= column <= HICOL !....... FORTRAN usage is: !....... !....... STATUS = XTRACT3 ( FILENAME, VNAME, !....... & LOLAY, HILAY, !....... & LOROW, HIROW, !....... & LOCOL, HICOL, !....... & JDATE, JTIME, ARRAY ) !....... IF ( .NOT. STATUS ) THEN !....... ... (extract failed -- process this error.) !....... END IF !....... !....... INTERP3(): read/interpolate gridded, boundary, or custom data !....... into location ARRAY from FILENAME for time JDATE:JTIME, variable !....... VNAME, and all layers. Note use of ASIZE = transaction size = !....... size of ARRAY, for error-checking. !....... FORTRAN usage is: !....... !....... STATUS = INTERPX ( FILENAME, VNAME, CALLER, JDATE, JTIME, !....... & ASIZE, ARRAY ) !....... IF ( .NOT. STATUS ) THEN !....... ... (interpolate failed -- process this error.) !....... END IF !....... !....... INTERPX(): read/interpolate/window gridded, boundary, or custom !....... data into location ARRAY from FILENAME for time JDATE:JTIME, !....... variable VNAME, and all layers. !....... FORTRAN usage is: !....... !....... STATUS = INTERPX ( FILENAME, VNAME, CALLER, !....... & COL0, COL1, ROW0, ROW1, LAY0, LAY1, !....... & JDATE, JTIME, ARRAY ) !....... IF ( .NOT. STATUS ) THEN !....... ... (windowed interpolate failed -- process this error.) !....... END IF !....... !....... DDTVAR3(): read and calculate mean time derivative (per second) !....... for gridded, boundary, or custom data. Put result into location !....... ARRAY from FILENAME for time JDATE:JTIME, variable VNAME, and all !....... layers. Note use of ASIZE = transaction size = size of ARRAY, !....... for error-checking. Note d/dt( time-independent )==0.0 !....... FORTRAN usage is: !....... !....... STATUS = DDTVAR3 ( FILENAME, VNAME, JDATE, JTIME, !....... & ASIZE, ARRAY ) !....... IF ( .NOT. STATUS ) THEN !....... ... (operation failed -- process this error.) !....... END IF !....... !....... INQATT(): inquire how many attributes there are for a !....... particular file and variable (or for the file globally, !....... if the variable-name ALLVAR3 is used)), and what the !....... names, types, and array-dimensions of these attributes are. !....... FORTRAN usage is: !....... !....... STATUS = INQATT3( FNAME, VNAME, MXATTS, !....... & NATTS, ANAMES, ATYPES, ASIZES ) !....... IF ( .NOT. STATUS ) THEN !....... ... (operation failed -- process this error.) !....... END IF !....... !....... RDATT3(): Reads an INTEGER, REAL, or DOUBLE attribute by name !....... for a specified file and variable into a user-specified array. !....... If variable name is ALLVAR3, reads the file-global attribute. !....... FORTRAN usage is: !....... !....... STATUS = RDATT3( FNAME, VNAME, ANAME, ATYPE, AMAX, !....... & ASIZE, AVAL ) !....... IF ( .NOT. STATUS ) THEN !....... ... (operation failed -- process this error.) !....... END IF !....... !....... WRATT3(): Writes an INTEGER, REAL, or DOUBLE attribute by name !....... for a specified file and variable. If variable name is ALLVAR3, !....... reads the file-global attribute. !....... !....... STATUS = WRATT3( FNAME, VNAME, !....... & ANAME, ATYPE, AMAX, AVAL ) !....... IF ( .NOT. STATUS ) THEN !....... ... (operation failed -- process this error.) !....... END IF !....... !....... RDATTC(): Reads a CHARACTER string attribute by name !....... for a specified file and variable into a user-specified array. !....... If variable name is ALLVAR3, reads the file-global attribute. !....... FORTRAN usage is: !....... !....... STATUS = RDATTC( FNAME, VNAME, ANAME, CVAL ) !....... IF ( .NOT. STATUS ) THEN !....... ... (operation failed -- process this error.) !....... END IF !....... !....... WRATT3(): Writes a CHARACTER string attribute by name !....... for a specified file and variable. If variable name is ALLVAR3, !....... reads the file-global attribute. !....... !....... STATUS = WRATTC( FNAME, VNAME, ANAME, CVAL ) !....... IF ( .NOT. STATUS ) THEN !....... ... (operation failed -- process this error.) !....... END IF !....... !....... SYNC3(): Synchronize FILENAME with disk (flush output; !....... re-read header and invalidate data-buffers for input. !....... FORTRAN usage is: !....... !....... STATUS = SYNC3 ( FILENAME ) !....... IF ( .NOT. STATUS ) THEN !....... ... (file not yet opened, or disk-synch failed) !....... END IF !....... ... !....... !................ end IODECL3.EXT .................................... ================================================ FILE: UTIL/create_ebi/src/Makefile ================================================ ifndef EXEC MODEL = CREATE_EBI.EXE else MODEL = $(EXEC) endif ifndef compiler compiler = intel # other options (gcc | pgi ) endif ifeq ($(compiler),intel) FC = ifort CC = icc FPP = $(FC) F_FLAGS = -fixed -132 -O0 -fno-alias -mp1 -fpe0 -I. -g -CB -CU -traceback F90_FLAGS = -free -O0 -fno-alias -mp1 -I. -fpe0 -g -CB -CU -traceback f_FLAGS = -fixed -132 -O0 -fno-alias -mp1 -fpe0 -I. -g -CB -CU -traceback f90_FLAGS = -free -O0 -fno-alias -mp1 -I. -fpe0 -g -CB -CU -traceback C_FLAGS = -O2 -DFLDMN CPP = $(FPP) CPP_FLAGS = LINK_FLAGS = -static-intel else ifeq ($(compiler),pgi) FC = pgf90 CC = pgcc F_FLAGS = -Mfixed -Mextend -Mbounds -Mchkptr -Mchkstk -traceback -Ktrap=fp -O0 -I . -g F90_FLAGS = -Mfree -Mbounds -Mchkptr -Mchkstk -traceback -Ktrap=fp -O0 -I . -g f90_FLAGS = -Mfree -Mbounds -Mchkptr -Mchkstk -traceback -Ktrap=fp -O0 -I . -g f_FLAGS = -Mfixed -Mextend -Mbounds -Mchkfpstk -Mchkptr -Mchkstk -traceback -Ktrap=fp -O0 -I . -g C_FLAGS = -O2 -DFLDMN=1 LINK_FLAGS = # LINK_FLAGS = -Bstatic # LINK_FLAGS = -Bstatic -Bstatic_pgi else ifeq ($(compiler),nvhpc) FC = nvfortran CC = nvc F_FLAGS = -Mfixed -Mextend -Mbounds -Mchkptr -Mchkstk -traceback -Ktrap=fp -O0 -I . -g F90_FLAGS = -Mfree -Mbounds -Mchkptr -Mchkstk -traceback -Ktrap=fp -O0 -I . -g f90_FLAGS = -Mfree -Mbounds -Mchkptr -Mchkstk -traceback -Ktrap=fp -O0 -I . -g f_FLAGS = -Mfixed -Mextend -Mbounds -Mchkfpstk -Mchkptr -Mchkstk -traceback -Ktrap=fp -O0 -I . -g C_FLAGS = -O2 -DFLDMN=1 # LINK_FLAGS = -Bstatic -Bstatic-nvidia else ifeq ($(compiler),gcc) FC = gfortran CC = gcc f_FLAGS = -ffixed-form -ffixed-line-length-132 -O0 -funroll-loops -I. -fcheck=all -fbounds-check F_FLAGS = $(f_FLAGS) f90_FLAGS = -cpp -ffree-form -ffree-line-length-none -O0 -funroll-loops -I. -fcheck=all -fbounds-check F90_FLAGS = $(f90_FLAGS) C_FLAGS = -O2 -DFLDMN LINKER = $(FC) LINK_FLAGS = else ERROR1 = "Makefile not configured to support the specified compiler, $(compiler). USER MUST USE INTEL, PGF90 or GFORT options or MODIFY makefile.v50XX." endif ifdef ERROR1 $(error $(ERROR1)) endif LIBS = LOAD = $(FC) $(F_FLAGS) LOAD_F90 = $(FC) $(F90_FLAGS) LDFLAGS = $(LINK_FLAGS) LOAD = $(FC) $(F_FLAGS) LOAD_F90 = $(FC) $(F90_FLAGS) LDFLAGS = $(LINK_FLAGS) OBJS = module_env_functions.o \ module_envvar.o \ module_glbldata.o \ RXNS_DATA_MODULE.o \ junit.o \ driver.o \ set_glbldata.o \ util_subs.o \ err_check.o \ wr_driver.o \ wr_calcks.o \ wr_solver.o \ wr_init.o \ wr_data.o \ wr_gp1.o \ wr_gp2.o \ wr_gp3.o \ wr_gp4.o \ wr_prodloss.o \ wr_rates.o \ wr_ssa.o \ wr_special.o \ wr_copyrt.o \ wr_cvshdr.o \ # $(MODEL): $(OBJS) $(LOAD) $(LDFLAGS) -o $(MODEL) $(OBJS) $(LIBS) RXNS_DATA_MODULE.o: $(RXNS_DATA_SRC) $(LOAD_F90) -c $(INCLUDES) $(RXNS_DATA_SRC) module_env_functions.o: $(SRCDIR)/module_env_functions.F $(LOAD) -c $(INCLUDES) $(SRCDIR)/module_env_functions.F module_envvar.o: $(SRCDIR)/module_envvar.F $(LOAD) -c $(INCLUDES) $(SRCDIR)/module_envvar.F module_glbldata.o: $(SRCDIR)/module_glbldata.F $(LOAD) -c $(INCLUDES) $(SRCDIR)/module_glbldata.F driver.o: $(SRCDIR)/driver.F $(LOAD) -c $(INCLUDES) $(SRCDIR)/driver.F set_glbldata.o: $(SRCDIR)/set_glbldata.F $(LOAD) -c $(INCLUDES) $(SRCDIR)/set_glbldata.F junit.o: $(SRCDIR)/junit.F $(LOAD) -c $(INCLUDES) $(SRCDIR)/junit.F name_index.o: $(SRCDIR)/name_index.f $(LOAD) -c $(INCLUDES) $(SRCDIR)/name_index.f util_subs.o: $(SRCDIR)/util_subs.F $(LOAD) -c $(INCLUDES) $(SRCDIR)/util_subs.F err_check.o: $(SRCDIR)/err_check.F $(LOAD) -c $(INCLUDES) $(SRCDIR)/err_check.F wr_driver.o: $(SRCDIR)/wr_driver.F $(LOAD) -c $(INCLUDES) $(SRCDIR)/wr_driver.F wr_calcks.o: $(SRCDIR)/wr_calcks.F $(LOAD) -c $(INCLUDES) $(SRCDIR)/wr_calcks.F wr_solver.o: $(SRCDIR)/wr_solver.F $(LOAD) -c $(INCLUDES) $(SRCDIR)/wr_solver.F wr_data.o: $(SRCDIR)/wr_data.F $(LOAD) -c $(INCLUDES) $(SRCDIR)/wr_data.F wr_init.o: $(SRCDIR)/wr_init.F $(LOAD) -c $(INCLUDES) $(SRCDIR)/wr_init.F wr_gp1.o: $(SRCDIR)/wr_gp1.F $(LOAD) -c $(INCLUDES) $(SRCDIR)/wr_gp1.F wr_gp2.o: $(SRCDIR)/wr_gp2.F $(LOAD) -c $(INCLUDES) $(SRCDIR)/wr_gp2.F wr_gp3.o: $(SRCDIR)/wr_gp3.F $(LOAD) -c $(INCLUDES) $(SRCDIR)/wr_gp3.F wr_gp4.o: $(SRCDIR)/wr_gp4.F $(LOAD) -c $(INCLUDES) $(SRCDIR)/wr_gp4.F wr_prodloss.o: $(SRCDIR)/wr_prodloss.F $(LOAD) -c $(INCLUDES) $(SRCDIR)/wr_prodloss.F wr_rates.o: $(SRCDIR)/wr_rates.F $(LOAD) -c $(INCLUDES) $(SRCDIR)/wr_rates.F wr_special.o: $(SRCDIR)/wr_special.F $(LOAD) -c $(INCLUDES) $(SRCDIR)/wr_special.F wr_ssa.o: $(SRCDIR)/wr_ssa.F $(LOAD) -c $(INCLUDES) $(SRCDIR)/wr_ssa.F wr_copyrt.o: $(SRCDIR)/wr_copyrt.F $(LOAD) -c $(INCLUDES) $(SRCDIR)/wr_copyrt.F wr_cvshdr.o: $(SRCDIR)/wr_cvshdr.F $(LOAD) -c $(INCLUDES) $(SRCDIR)/wr_cvshdr.F ================================================ FILE: UTIL/create_ebi/src/NETCDF.EXT ================================================ !......................................................................... ! Version "@(#)$Header$" ! ! This is netCDF version 3.x "fortran/netcdf.inc" but under another ! INCLUDE-file naming convention. ! Copyright 1990-2000 University Corporation for Atmospheric Research; ! see URL http://www.unidata.ucar.edu/packages/netcdf/index.html ! ! DO NOT EDIT !! ! ! The EDSS/Models-3 I/O API depends in an essential manner ! upon the contents of this INCLUDE file. ANY CHANGES are ! likely to result in very obscure, difficult-to-diagnose ! bugs caused by an inconsistency between standard "libioapi.a" ! object-libraries and whatever code is compiled with the ! resulting modified INCLUDE-file. ! ! By making any changes to this INCLUDE file, the user ! explicitly agrees that in the case any assistance is ! required of MCNC or of the I/O API author, Carlie J. Coats, Jr. ! THE USER AND/OR HIS PROJECT OR CONTRACT AGREES TO REIMBURSE ! MCNC AND/OR THE I/O API AUTHOR, CARLIE J. COATS, JR., AT A ! RATE TRIPLE THE NORMAL CONTRACT RATE FOR THE SERVICES ! REQUIRED. ! !......................................................................... ! ! netCDF VERSION 3 FORTRAN INTERFACE: ! ! External netCDF data types: ! INTEGER NF_BYTE INTEGER NF_INT1 INTEGER NF_CHAR INTEGER NF_SHORT INTEGER NF_INT2 INTEGER NF_INT INTEGER NF_FLOAT INTEGER NF_REAL INTEGER NF_DOUBLE PARAMETER (NF_BYTE = 1) PARAMETER (NF_INT1 = NF_BYTE) PARAMETER (NF_CHAR = 2) PARAMETER (NF_SHORT = 3) PARAMETER (NF_INT2 = NF_SHORT) PARAMETER (NF_INT = 4) PARAMETER (NF_FLOAT = 5) PARAMETER (NF_REAL = NF_FLOAT) PARAMETER (NF_DOUBLE = 6) ! ! Default fill values: ! INTEGER NF_FILL_BYTE INTEGER NF_FILL_INT1 INTEGER NF_FILL_CHAR INTEGER NF_FILL_SHORT INTEGER NF_FILL_INT2 INTEGER NF_FILL_INT REAL NF_FILL_FLOAT REAL NF_FILL_REAL DOUBLEPRECISION NF_FILL_DOUBLE PARAMETER (NF_FILL_BYTE = -127) PARAMETER (NF_FILL_INT1 = NF_FILL_BYTE) PARAMETER (NF_FILL_CHAR = 0) PARAMETER (NF_FILL_SHORT = -32767) PARAMETER (NF_FILL_INT2 = NF_FILL_SHORT) PARAMETER (NF_FILL_INT = -2147483647) PARAMETER (NF_FILL_FLOAT = 9.9692099683868690e+36) PARAMETER (NF_FILL_REAL = NF_FILL_FLOAT) PARAMETER (NF_FILL_DOUBLE = 9.9692099683868690e+36) ! ! Mode flags for opening and creating a netCDF dataset: ! INTEGER NF_NOWRITE INTEGER NF_WRITE INTEGER NF_CLOBBER INTEGER NF_NOCLOBBER INTEGER NF_FILL INTEGER NF_NOFILL INTEGER NF_LOCK INTEGER NF_SHARE PARAMETER (NF_NOWRITE = 0) PARAMETER (NF_WRITE = 1) PARAMETER (NF_CLOBBER = 0) PARAMETER (NF_NOCLOBBER = 4) PARAMETER (NF_FILL = 0) PARAMETER (NF_NOFILL = 256) PARAMETER (NF_LOCK = 1024) PARAMETER (NF_SHARE = 2048) ! ! Size argument for defining an unlimited dimension: ! INTEGER NF_UNLIMITED PARAMETER (NF_UNLIMITED = 0) ! ! Global Attribute ID: ! INTEGER NF_GLOBAL PARAMETER (NF_GLOBAL = 0) ! ! Implementation limits: ! INTEGER NF_MAX_DIMS INTEGER NF_MAX_ATTRS INTEGER NF_MAX_VARS INTEGER NF_MAX_NAME INTEGER NF_MAX_VAR_DIMS PARAMETER (NF_MAX_DIMS = 100) PARAMETER (NF_MAX_ATTRS = 2000) PARAMETER (NF_MAX_VARS = 2000) PARAMETER (NF_MAX_NAME = 128) PARAMETER (NF_MAX_VAR_DIMS = NF_MAX_DIMS) ! ! Error codes: ! INTEGER NF_NOERR INTEGER NF_EBADID INTEGER NF_EEXIST INTEGER NF_EINVAL INTEGER NF_EPERM INTEGER NF_ENOTINDEFINE INTEGER NF_EINDEFINE INTEGER NF_EINVALCOORDS INTEGER NF_EMAXDIMS INTEGER NF_ENAMEINUSE INTEGER NF_ENOTATT INTEGER NF_EMAXATTS INTEGER NF_EBADTYPE INTEGER NF_EBADDIM INTEGER NF_EUNLIMPOS INTEGER NF_EMAXVARS INTEGER NF_ENOTVAR INTEGER NF_EGLOBAL INTEGER NF_ENOTNC INTEGER NF_ESTS INTEGER NF_EMAXNAME INTEGER NF_EUNLIMIT INTEGER NF_ENORECVARS INTEGER NF_ECHAR INTEGER NF_EEDGE INTEGER NF_ESTRIDE INTEGER NF_EBADNAME INTEGER NF_ERANGE PARAMETER (NF_NOERR = 0) PARAMETER (NF_EBADID = -33) PARAMETER (NF_EEXIST = -35) PARAMETER (NF_EINVAL = -36) PARAMETER (NF_EPERM = -37) PARAMETER (NF_ENOTINDEFINE = -38) PARAMETER (NF_EINDEFINE = -39) PARAMETER (NF_EINVALCOORDS = -40) PARAMETER (NF_EMAXDIMS = -41) PARAMETER (NF_ENAMEINUSE = -42) PARAMETER (NF_ENOTATT = -43) PARAMETER (NF_EMAXATTS = -44) PARAMETER (NF_EBADTYPE = -45) PARAMETER (NF_EBADDIM = -46) PARAMETER (NF_EUNLIMPOS = -47) PARAMETER (NF_EMAXVARS = -48) PARAMETER (NF_ENOTVAR = -49) PARAMETER (NF_EGLOBAL = -50) PARAMETER (NF_ENOTNC = -51) PARAMETER (NF_ESTS = -52) PARAMETER (NF_EMAXNAME = -53) PARAMETER (NF_EUNLIMIT = -54) PARAMETER (NF_ENORECVARS = -55) PARAMETER (NF_ECHAR = -56) PARAMETER (NF_EEDGE = -57) PARAMETER (NF_ESTRIDE = -58) PARAMETER (NF_EBADNAME = -59) PARAMETER (NF_ERANGE = -60) ! ! Error handling modes: ! INTEGER NF_FATAL INTEGER NF_VERBOSE PARAMETER (NF_FATAL = 1) PARAMETER (NF_VERBOSE = 2) ! ! MISCELLANEOUS ROUTINES: ! CHARACTER*80 NF_INQ_LIBVERS EXTERNAL NF_INQ_LIBVERS CHARACTER*80 NF_STRERROR ! (INTEGER NCERR) EXTERNAL NF_STRERROR LOGICAL NF_ISSYSERR ! (INTEGER NCERR) EXTERNAL NF_ISSYSERR ! ! CONTROL ROUTINES: ! INTEGER NF_CREATE ! (CHARACTER*(*) PATH, ! INTEGER CMODE, ! INTEGER NCID) EXTERNAL NF_CREATE INTEGER NF_OPEN ! (CHARACTER*(*) PATH, ! INTEGER MODE, ! INTEGER NCID) EXTERNAL NF_OPEN INTEGER NF_SET_FILL ! (INTEGER NCID, ! INTEGER FILLMODE, ! INTEGER OLD_MODE) EXTERNAL NF_SET_FILL INTEGER NF_REDEF ! (INTEGER NCID) EXTERNAL NF_REDEF INTEGER NF_ENDDEF ! (INTEGER NCID) EXTERNAL NF_ENDDEF INTEGER NF_SYNC ! (INTEGER NCID) EXTERNAL NF_SYNC INTEGER NF_ABORT ! (INTEGER NCID) EXTERNAL NF_ABORT INTEGER NF_CLOSE ! (INTEGER NCID) EXTERNAL NF_CLOSE INTEGER NF_DELETE ! (CHARACTER*(*) NCID) EXTERNAL NF_DELETE ! ! GENERAL INQUIRY ROUTINES: ! INTEGER NF_INQ ! (INTEGER NCID, ! INTEGER NDIMS, ! INTEGER NVARS, ! INTEGER NGATTS, ! INTEGER UNLIMDIMID) EXTERNAL NF_INQ INTEGER NF_INQ_NDIMS ! (INTEGER NCID, ! INTEGER NDIMS) EXTERNAL NF_INQ_NDIMS INTEGER NF_INQ_NVARS ! (INTEGER NCID, ! INTEGER NVARS) EXTERNAL NF_INQ_NVARS INTEGER NF_INQ_NATTS ! (INTEGER NCID, ! INTEGER NGATTS) EXTERNAL NF_INQ_NATTS INTEGER NF_INQ_UNLIMDIM ! (INTEGER NCID, ! INTEGER UNLIMDIMID) EXTERNAL NF_INQ_UNLIMDIM ! ! DIMENSION ROUTINES: ! INTEGER NF_DEF_DIM ! (INTEGER NCID, ! CHARACTER(*) NAME, ! INTEGER LEN, ! INTEGER DIMID) EXTERNAL NF_DEF_DIM INTEGER NF_INQ_DIMID ! (INTEGER NCID, ! CHARACTER(*) NAME, ! INTEGER DIMID) EXTERNAL NF_INQ_DIMID INTEGER NF_INQ_DIM ! (INTEGER NCID, ! INTEGER DIMID, ! CHARACTER(*) NAME, ! INTEGER LEN) EXTERNAL NF_INQ_DIM INTEGER NF_INQ_DIMNAME ! (INTEGER NCID, ! INTEGER DIMID, ! CHARACTER(*) NAME) EXTERNAL NF_INQ_DIMNAME INTEGER NF_INQ_DIMLEN ! (INTEGER NCID, ! INTEGER DIMID, ! INTEGER LEN) EXTERNAL NF_INQ_DIMLEN INTEGER NF_RENAME_DIM ! (INTEGER NCID, ! INTEGER DIMID, ! CHARACTER(*) NAME) EXTERNAL NF_RENAME_DIM ! ! GENERAL ATTRIBUTE ROUTINES: ! INTEGER NF_INQ_ATT ! (INTEGER NCID, ! INTEGER VARID, ! CHARACTER(*) NAME, ! INTEGER XTYPE, ! INTEGER LEN) EXTERNAL NF_INQ_ATT INTEGER NF_INQ_ATTID ! (INTEGER NCID, ! INTEGER VARID, ! CHARACTER(*) NAME, ! INTEGER ATTNUM) EXTERNAL NF_INQ_ATTID INTEGER NF_INQ_ATTTYPE ! (INTEGER NCID, ! INTEGER VARID, ! CHARACTER(*) NAME, ! INTEGER XTYPE) EXTERNAL NF_INQ_ATTTYPE INTEGER NF_INQ_ATTLEN ! (INTEGER NCID, ! INTEGER VARID, ! CHARACTER(*) NAME, ! INTEGER LEN) EXTERNAL NF_INQ_ATTLEN INTEGER NF_INQ_ATTNAME ! (INTEGER NCID, ! INTEGER VARID, ! INTEGER ATTNUM, ! CHARACTER(*) NAME) EXTERNAL NF_INQ_ATTNAME INTEGER NF_COPY_ATT ! (INTEGER NCID_IN, ! INTEGER VARID_IN, ! CHARACTER(*) NAME, ! INTEGER NCID_OUT, ! INTEGER VARID_OUT) EXTERNAL NF_COPY_ATT INTEGER NF_RENAME_ATT ! (INTEGER NCID, ! INTEGER VARID, ! CHARACTER(*) CURNAME, ! CHARACTER(*) NEWNAME) EXTERNAL NF_RENAME_ATT INTEGER NF_DEL_ATT ! (INTEGER NCID, ! INTEGER VARID, ! CHARACTER(*) NAME) EXTERNAL NF_DEL_ATT ! ! ATTRIBUTE PUT/GET ROUTINES: ! INTEGER NF_PUT_ATT_TEXT ! (INTEGER NCID, ! INTEGER VARID, ! CHARACTER(*) NAME, ! INTEGER LEN, ! CHARACTER(*) TEXT) EXTERNAL NF_PUT_ATT_TEXT INTEGER NF_GET_ATT_TEXT ! (INTEGER NCID, ! INTEGER VARID, ! CHARACTER(*) NAME, ! CHARACTER(*) TEXT) EXTERNAL NF_GET_ATT_TEXT INTEGER NF_PUT_ATT_INT1 ! (INTEGER NCID, ! INTEGER VARID, ! CHARACTER(*) NAME, ! INTEGER XTYPE, ! INTEGER LEN, ! NF_INT1_T I1VALS(1)) EXTERNAL NF_PUT_ATT_INT1 INTEGER NF_GET_ATT_INT1 ! (INTEGER NCID, ! INTEGER VARID, ! CHARACTER(*) NAME, ! NF_INT1_T I1VALS(1)) EXTERNAL NF_GET_ATT_INT1 INTEGER NF_PUT_ATT_INT2 ! (INTEGER NCID, ! INTEGER VARID, ! CHARACTER(*) NAME, ! INTEGER XTYPE, ! INTEGER LEN, ! NF_INT2_T I2VALS(1)) EXTERNAL NF_PUT_ATT_INT2 INTEGER NF_GET_ATT_INT2 ! (INTEGER NCID, ! INTEGER VARID, ! CHARACTER(*) NAME, ! NF_INT2_T I2VALS(1)) EXTERNAL NF_GET_ATT_INT2 INTEGER NF_PUT_ATT_INT ! (INTEGER NCID, ! INTEGER VARID, ! CHARACTER(*) NAME, ! INTEGER XTYPE, ! INTEGER LEN, ! INTEGER IVALS(1)) EXTERNAL NF_PUT_ATT_INT INTEGER NF_GET_ATT_INT ! (INTEGER NCID, ! INTEGER VARID, ! CHARACTER(*) NAME, ! INTEGER IVALS(1)) EXTERNAL NF_GET_ATT_INT INTEGER NF_PUT_ATT_REAL ! (INTEGER NCID, ! INTEGER VARID, ! CHARACTER(*) NAME, ! INTEGER XTYPE, ! INTEGER LEN, ! REAL RVALS(1)) EXTERNAL NF_PUT_ATT_REAL INTEGER NF_GET_ATT_REAL ! (INTEGER NCID, ! INTEGER VARID, ! CHARACTER(*) NAME, ! REAL RVALS(1)) EXTERNAL NF_GET_ATT_REAL INTEGER NF_PUT_ATT_DOUBLE ! (INTEGER NCID, ! INTEGER VARID, ! CHARACTER(*) NAME, ! INTEGER XTYPE, ! INTEGER LEN, ! DOUBLE DVALS(1)) EXTERNAL NF_PUT_ATT_DOUBLE INTEGER NF_GET_ATT_DOUBLE ! (INTEGER NCID, ! INTEGER VARID, ! CHARACTER(*) NAME, ! DOUBLE DVALS(1)) EXTERNAL NF_GET_ATT_DOUBLE ! ! GENERAL VARIABLE ROUTINES: ! INTEGER NF_DEF_VAR ! (INTEGER NCID, ! CHARACTER(*) NAME, ! INTEGER DATATYPE, ! INTEGER NDIMS, ! INTEGER DIMIDS(1), ! INTEGER VARID) EXTERNAL NF_DEF_VAR INTEGER NF_INQ_VAR ! (INTEGER NCID, ! INTEGER VARID, ! CHARACTER(*) NAME, ! INTEGER DATATYPE, ! INTEGER NDIMS, ! INTEGER DIMIDS(1), ! INTEGER NATTS) EXTERNAL NF_INQ_VAR INTEGER NF_INQ_VARID ! (INTEGER NCID, ! CHARACTER(*) NAME, ! INTEGER VARID) EXTERNAL NF_INQ_VARID INTEGER NF_INQ_VARNAME ! (INTEGER NCID, ! INTEGER VARID, ! CHARACTER(*) NAME) EXTERNAL NF_INQ_VARNAME INTEGER NF_INQ_VARTYPE ! (INTEGER NCID, ! INTEGER VARID, ! INTEGER XTYPE) EXTERNAL NF_INQ_VARTYPE INTEGER NF_INQ_VARNDIMS ! (INTEGER NCID, ! INTEGER VARID, ! INTEGER NDIMS) EXTERNAL NF_INQ_VARNDIMS INTEGER NF_INQ_VARDIMID ! (INTEGER NCID, ! INTEGER VARID, ! INTEGER DIMIDS(1)) EXTERNAL NF_INQ_VARDIMID INTEGER NF_INQ_VARNATTS ! (INTEGER NCID, ! INTEGER VARID, ! INTEGER NATTS) EXTERNAL NF_INQ_VARNATTS INTEGER NF_RENAME_VAR ! (INTEGER NCID, ! INTEGER VARID, ! CHARACTER(*) NAME) EXTERNAL NF_RENAME_VAR INTEGER NF_COPY_VAR ! (INTEGER NCID_IN, ! INTEGER VARID, ! INTEGER NCID_OUT) EXTERNAL NF_COPY_VAR ! ! ENTIRE VARIABLE PUT/GET ROUTINES: ! INTEGER NF_PUT_VAR_TEXT ! (INTEGER NCID, ! INTEGER VARID, ! CHARACTER(*) TEXT) EXTERNAL NF_PUT_VAR_TEXT INTEGER NF_GET_VAR_TEXT ! (INTEGER NCID, ! INTEGER VARID, ! CHARACTER(*) TEXT) EXTERNAL NF_GET_VAR_TEXT INTEGER NF_PUT_VAR_INT1 ! (INTEGER NCID, ! INTEGER VARID, ! NF_INT1_T I1VALS(1)) EXTERNAL NF_PUT_VAR_INT1 INTEGER NF_GET_VAR_INT1 ! (INTEGER NCID, ! INTEGER VARID, ! NF_INT1_T I1VALS(1)) EXTERNAL NF_GET_VAR_INT1 INTEGER NF_PUT_VAR_INT2 ! (INTEGER NCID, ! INTEGER VARID, ! NF_INT2_T I2VALS(1)) EXTERNAL NF_PUT_VAR_INT2 INTEGER NF_GET_VAR_INT2 ! (INTEGER NCID, ! INTEGER VARID, ! NF_INT2_T I2VALS(1)) EXTERNAL NF_GET_VAR_INT2 INTEGER NF_PUT_VAR_INT ! (INTEGER NCID, ! INTEGER VARID, ! INTEGER IVALS(1)) EXTERNAL NF_PUT_VAR_INT INTEGER NF_GET_VAR_INT ! (INTEGER NCID, ! INTEGER VARID, ! INTEGER IVALS(1)) EXTERNAL NF_GET_VAR_INT INTEGER NF_PUT_VAR_REAL ! (INTEGER NCID, ! INTEGER VARID, ! REAL RVALS(1)) EXTERNAL NF_PUT_VAR_REAL INTEGER NF_GET_VAR_REAL ! (INTEGER NCID, ! INTEGER VARID, ! REAL RVALS(1)) EXTERNAL NF_GET_VAR_REAL INTEGER NF_PUT_VAR_DOUBLE ! (INTEGER NCID, ! INTEGER VARID, ! DOUBLEPRECISION DVALS(1)) EXTERNAL NF_PUT_VAR_DOUBLE INTEGER NF_GET_VAR_DOUBLE ! (INTEGER NCID, ! INTEGER VARID, ! DOUBLEPRECISION DVALS(1)) EXTERNAL NF_GET_VAR_DOUBLE ! ! SINGLE VARIABLE PUT/GET ROUTINES: ! INTEGER NF_PUT_VAR1_TEXT ! (INTEGER NCID, ! INTEGER VARID, ! INTEGER INDEX(1), ! CHARACTER*1 TEXT) EXTERNAL NF_PUT_VAR1_TEXT INTEGER NF_GET_VAR1_TEXT ! (INTEGER NCID, ! INTEGER VARID, ! INTEGER INDEX(1), ! CHARACTER*1 TEXT) EXTERNAL NF_GET_VAR1_TEXT INTEGER NF_PUT_VAR1_INT1 ! (INTEGER NCID, ! INTEGER VARID, ! INTEGER INDEX(1), ! NF_INT1_T I1VAL) EXTERNAL NF_PUT_VAR1_INT1 INTEGER NF_GET_VAR1_INT1 ! (INTEGER NCID, ! INTEGER VARID, ! INTEGER INDEX(1), ! NF_INT1_T I1VAL) EXTERNAL NF_GET_VAR1_INT1 INTEGER NF_PUT_VAR1_INT2 ! (INTEGER NCID, ! INTEGER VARID, ! INTEGER INDEX(1), ! NF_INT2_T I2VAL) EXTERNAL NF_PUT_VAR1_INT2 INTEGER NF_GET_VAR1_INT2 ! (INTEGER NCID, ! INTEGER VARID, ! INTEGER INDEX(1), ! NF_INT2_T I2VAL) EXTERNAL NF_GET_VAR1_INT2 INTEGER NF_PUT_VAR1_INT ! (INTEGER NCID, ! INTEGER VARID, ! INTEGER INDEX(1), ! INTEGER IVAL) EXTERNAL NF_PUT_VAR1_INT INTEGER NF_GET_VAR1_INT ! (INTEGER NCID, ! INTEGER VARID, ! INTEGER INDEX(1), ! INTEGER IVAL) EXTERNAL NF_GET_VAR1_INT INTEGER NF_PUT_VAR1_REAL ! (INTEGER NCID, ! INTEGER VARID, ! INTEGER INDEX(1), ! REAL RVAL) EXTERNAL NF_PUT_VAR1_REAL INTEGER NF_GET_VAR1_REAL ! (INTEGER NCID, ! INTEGER VARID, ! INTEGER INDEX(1), ! REAL RVAL) EXTERNAL NF_GET_VAR1_REAL INTEGER NF_PUT_VAR1_DOUBLE ! (INTEGER NCID, ! INTEGER VARID, ! INTEGER INDEX(1), ! DOUBLEPRECISION DVAL) EXTERNAL NF_PUT_VAR1_DOUBLE INTEGER NF_GET_VAR1_DOUBLE ! (INTEGER NCID, ! INTEGER VARID, ! INTEGER INDEX(1), ! DOUBLEPRECISION DVAL) EXTERNAL NF_GET_VAR1_DOUBLE ! ! VARIABLE ARRAY PUT/GET ROUTINES: ! INTEGER NF_PUT_VARA_TEXT ! (INTEGER NCID, ! INTEGER VARID, ! INTEGER START(1), ! INTEGER COUNT(1), ! CHARACTER(*) TEXT) EXTERNAL NF_PUT_VARA_TEXT INTEGER NF_GET_VARA_TEXT ! (INTEGER NCID, ! INTEGER VARID, ! INTEGER START(1), ! INTEGER COUNT(1), ! CHARACTER(*) TEXT) EXTERNAL NF_GET_VARA_TEXT INTEGER NF_PUT_VARA_INT1 ! (INTEGER NCID, ! INTEGER VARID, ! INTEGER START(1), ! INTEGER COUNT(1), ! NF_INT1_T I1VALS(1)) EXTERNAL NF_PUT_VARA_INT1 INTEGER NF_GET_VARA_INT1 ! (INTEGER NCID, ! INTEGER VARID, ! INTEGER START(1), ! INTEGER COUNT(1), ! NF_INT1_T I1VALS(1)) EXTERNAL NF_GET_VARA_INT1 INTEGER NF_PUT_VARA_INT2 ! (INTEGER NCID, ! INTEGER VARID, ! INTEGER START(1), ! INTEGER COUNT(1), ! NF_INT2_T I2VALS(1)) EXTERNAL NF_PUT_VARA_INT2 INTEGER NF_GET_VARA_INT2 ! (INTEGER NCID, ! INTEGER VARID, ! INTEGER START(1), ! INTEGER COUNT(1), ! NF_INT2_T I2VALS(1)) EXTERNAL NF_GET_VARA_INT2 INTEGER NF_PUT_VARA_INT ! (INTEGER NCID, ! INTEGER VARID, ! INTEGER START(1), ! INTEGER COUNT(1), ! INTEGER IVALS(1)) EXTERNAL NF_PUT_VARA_INT INTEGER NF_GET_VARA_INT ! (INTEGER NCID, ! INTEGER VARID, ! INTEGER START(1), ! INTEGER COUNT(1), ! INTEGER IVALS(1)) EXTERNAL NF_GET_VARA_INT INTEGER NF_PUT_VARA_REAL ! (INTEGER NCID, ! INTEGER VARID, ! INTEGER START(1), ! INTEGER COUNT(1), ! REAL RVALS(1)) EXTERNAL NF_PUT_VARA_REAL INTEGER NF_GET_VARA_REAL ! (INTEGER NCID, ! INTEGER VARID, ! INTEGER START(1), ! INTEGER COUNT(1), ! REAL RVALS(1)) EXTERNAL NF_GET_VARA_REAL INTEGER NF_PUT_VARA_DOUBLE ! (INTEGER NCID, ! INTEGER VARID, ! INTEGER START(1), ! INTEGER COUNT(1), ! DOUBLEPRECISION DVALS(1)) EXTERNAL NF_PUT_VARA_DOUBLE INTEGER NF_GET_VARA_DOUBLE ! (INTEGER NCID, ! INTEGER VARID, ! INTEGER START(1), ! INTEGER COUNT(1), ! DOUBLEPRECISION DVALS(1)) EXTERNAL NF_GET_VARA_DOUBLE ! ! STRIDED VARIABLE PUT/GET ROUTINES: ! INTEGER NF_PUT_VARS_TEXT ! (INTEGER NCID, ! INTEGER VARID, ! INTEGER START(1), ! INTEGER COUNT(1), ! INTEGER STRIDE(1), ! CHARACTER(*) TEXT) EXTERNAL NF_PUT_VARS_TEXT INTEGER NF_GET_VARS_TEXT ! (INTEGER NCID, ! INTEGER VARID, ! INTEGER START(1), ! INTEGER COUNT(1), ! INTEGER STRIDE(1), ! CHARACTER(*) TEXT) EXTERNAL NF_GET_VARS_TEXT INTEGER NF_PUT_VARS_INT1 ! (INTEGER NCID, ! INTEGER VARID, ! INTEGER START(1), ! INTEGER COUNT(1), ! INTEGER STRIDE(1), ! NF_INT1_T I1VALS(1)) EXTERNAL NF_PUT_VARS_INT1 INTEGER NF_GET_VARS_INT1 ! (INTEGER NCID, ! INTEGER VARID, ! INTEGER START(1), ! INTEGER COUNT(1), ! INTEGER STRIDE(1), ! NF_INT1_T I1VALS(1)) EXTERNAL NF_GET_VARS_INT1 INTEGER NF_PUT_VARS_INT2 ! (INTEGER NCID, ! INTEGER VARID, ! INTEGER START(1), ! INTEGER COUNT(1), ! INTEGER STRIDE(1), ! NF_INT2_T I2VALS(1)) EXTERNAL NF_PUT_VARS_INT2 INTEGER NF_GET_VARS_INT2 ! (INTEGER NCID, ! INTEGER VARID, ! INTEGER START(1), ! INTEGER COUNT(1), ! INTEGER STRIDE(1), ! NF_INT2_T I2VALS(1)) EXTERNAL NF_GET_VARS_INT2 INTEGER NF_PUT_VARS_INT ! (INTEGER NCID, ! INTEGER VARID, ! INTEGER START(1), ! INTEGER COUNT(1), ! INTEGER STRIDE(1), ! INTEGER IVALS(1)) EXTERNAL NF_PUT_VARS_INT INTEGER NF_GET_VARS_INT ! (INTEGER NCID, ! INTEGER VARID, ! INTEGER START(1), ! INTEGER COUNT(1), ! INTEGER STRIDE(1), ! INTEGER IVALS(1)) EXTERNAL NF_GET_VARS_INT INTEGER NF_PUT_VARS_REAL ! (INTEGER NCID, ! INTEGER VARID, ! INTEGER START(1), ! INTEGER COUNT(1), ! INTEGER STRIDE(1), ! REAL RVALS(1)) EXTERNAL NF_PUT_VARS_REAL INTEGER NF_GET_VARS_REAL ! (INTEGER NCID, ! INTEGER VARID, ! INTEGER START(1), ! INTEGER COUNT(1), ! INTEGER STRIDE(1), ! REAL RVALS(1)) EXTERNAL NF_GET_VARS_REAL INTEGER NF_PUT_VARS_DOUBLE ! (INTEGER NCID, ! INTEGER VARID, ! INTEGER START(1), ! INTEGER COUNT(1), ! INTEGER STRIDE(1), ! DOUBLEPRECISION DVALS(1)) EXTERNAL NF_PUT_VARS_DOUBLE INTEGER NF_GET_VARS_DOUBLE ! (INTEGER NCID, ! INTEGER VARID, ! INTEGER START(1), ! INTEGER COUNT(1), ! INTEGER STRIDE(1), ! DOUBLEPRECISION DVALS(1)) EXTERNAL NF_GET_VARS_DOUBLE ! ! MAPPED VARIABLE PUT/GET ROUTINES: ! INTEGER NF_PUT_VARM_TEXT ! (INTEGER NCID, ! INTEGER VARID, ! INTEGER START(1), ! INTEGER COUNT(1), ! INTEGER STRIDE(1), ! INTEGER IMAP(1), ! CHARACTER(*) TEXT) EXTERNAL NF_PUT_VARM_TEXT INTEGER NF_GET_VARM_TEXT ! (INTEGER NCID, ! INTEGER VARID, ! INTEGER START(1), ! INTEGER COUNT(1), ! INTEGER STRIDE(1), ! INTEGER IMAP(1), ! CHARACTER(*) TEXT) EXTERNAL NF_GET_VARM_TEXT INTEGER NF_PUT_VARM_INT1 ! (INTEGER NCID, ! INTEGER VARID, ! INTEGER START(1), ! INTEGER COUNT(1), ! INTEGER STRIDE(1), ! INTEGER IMAP(1), ! NF_INT1_T I1VALS(1)) EXTERNAL NF_PUT_VARM_INT1 INTEGER NF_GET_VARM_INT1 ! (INTEGER NCID, ! INTEGER VARID, ! INTEGER START(1), ! INTEGER COUNT(1), ! INTEGER STRIDE(1), ! INTEGER IMAP(1), ! NF_INT1_T I1VALS(1)) EXTERNAL NF_GET_VARM_INT1 INTEGER NF_PUT_VARM_INT2 ! (INTEGER NCID, ! INTEGER VARID, ! INTEGER START(1), ! INTEGER COUNT(1), ! INTEGER STRIDE(1), ! INTEGER IMAP(1), ! NF_INT2_T I2VALS(1)) EXTERNAL NF_PUT_VARM_INT2 INTEGER NF_GET_VARM_INT2 ! (INTEGER NCID, ! INTEGER VARID, ! INTEGER START(1), ! INTEGER COUNT(1), ! INTEGER STRIDE(1), ! INTEGER IMAP(1), ! NF_INT2_T I2VALS(1)) EXTERNAL NF_GET_VARM_INT2 INTEGER NF_PUT_VARM_INT ! (INTEGER NCID, ! INTEGER VARID, ! INTEGER START(1), ! INTEGER COUNT(1), ! INTEGER STRIDE(1), ! INTEGER IMAP(1), ! INTEGER IVALS(1)) EXTERNAL NF_PUT_VARM_INT INTEGER NF_GET_VARM_INT ! (INTEGER NCID, ! INTEGER VARID, ! INTEGER START(1), ! INTEGER COUNT(1), ! INTEGER STRIDE(1), ! INTEGER IMAP(1), ! INTEGER IVALS(1)) EXTERNAL NF_GET_VARM_INT INTEGER NF_PUT_VARM_REAL ! (INTEGER NCID, ! INTEGER VARID, ! INTEGER START(1), ! INTEGER COUNT(1), ! INTEGER STRIDE(1), ! INTEGER IMAP(1), ! REAL RVALS(1)) EXTERNAL NF_PUT_VARM_REAL INTEGER NF_GET_VARM_REAL ! (INTEGER NCID, ! INTEGER VARID, ! INTEGER START(1), ! INTEGER COUNT(1), ! INTEGER STRIDE(1), ! INTEGER IMAP(1), ! REAL RVALS(1)) EXTERNAL NF_GET_VARM_REAL INTEGER NF_PUT_VARM_DOUBLE ! (INTEGER NCID, ! INTEGER VARID, ! INTEGER START(1), ! INTEGER COUNT(1), ! INTEGER STRIDE(1), ! INTEGER IMAP(1), ! DOUBLEPRECISION DVALS(1)) EXTERNAL NF_PUT_VARM_DOUBLE INTEGER NF_GET_VARM_DOUBLE ! (INTEGER NCID, ! INTEGER VARID, ! INTEGER START(1), ! INTEGER COUNT(1), ! INTEGER STRIDE(1), ! INTEGER IMAP(1), ! DOUBLEPRECISION DVALS(1)) EXTERNAL NF_GET_VARM_DOUBLE !CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC ! Begin netCDF 2.4 backward compatibility: ! ! ! Functions in the FORTRAN interface ! INTEGER NCCRE INTEGER NCOPN INTEGER NCDDEF INTEGER NCDID INTEGER NCVDEF INTEGER NCVID INTEGER NCTLEN INTEGER NCSFIL EXTERNAL NCCRE EXTERNAL NCOPN EXTERNAL NCDDEF EXTERNAL NCDID EXTERNAL NCVDEF EXTERNAL NCVID EXTERNAL NCTLEN EXTERNAL NCSFIL INTEGER NCRDWR INTEGER NCCREAT INTEGER NCEXCL INTEGER NCINDEF INTEGER NCNSYNC INTEGER NCHSYNC INTEGER NCNDIRTY INTEGER NCHDIRTY INTEGER NCLINK INTEGER NCNOWRIT INTEGER NCWRITE INTEGER NCCLOB INTEGER NCNOCLOB INTEGER NCGLOBAL INTEGER NCFILL INTEGER NCNOFILL INTEGER MAXNCOP INTEGER MAXNCDIM INTEGER MAXNCATT INTEGER MAXNCVAR INTEGER MAXNCNAM INTEGER MAXVDIMS INTEGER NCNOERR INTEGER NCEBADID INTEGER NCENFILE INTEGER NCEEXIST INTEGER NCEINVAL INTEGER NCEPERM INTEGER NCENOTIN INTEGER NCEINDEF INTEGER NCECOORD INTEGER NCEMAXDS INTEGER NCENAME INTEGER NCENOATT INTEGER NCEMAXAT INTEGER NCEBADTY INTEGER NCEBADD INTEGER NCESTS INTEGER NCEUNLIM INTEGER NCEMAXVS INTEGER NCENOTVR INTEGER NCEGLOB INTEGER NCENOTNC INTEGER NCFOOBAR INTEGER NCSYSERR INTEGER NCFATAL INTEGER NCVERBOS INTEGER NCENTOOL ! ! netCDF data types: ! INTEGER NCBYTE INTEGER NCCHAR INTEGER NCSHORT INTEGER NCLONG INTEGER NCFLOAT INTEGER NCDOUBLE PARAMETER(NCBYTE = 1) PARAMETER(NCCHAR = 2) PARAMETER(NCSHORT = 3) PARAMETER(NCLONG = 4) PARAMETER(NCFLOAT = 5) PARAMETER(NCDOUBLE = 6) ! ! masks for the struct NC flag field; passed in as 'mode' arg to ! nccreate and ncopen. ! ! read/write, 0 => readonly PARAMETER(NCRDWR = 1) ! in create phase, cleared by ncendef PARAMETER(NCCREAT = 2) ! on create destroy existing file PARAMETER(NCEXCL = 4) ! in define mode, cleared by ncendef PARAMETER(NCINDEF = 8) ! synchronise numrecs on change (X'10') PARAMETER(NCNSYNC = 16) ! synchronise whole header on change (X'20') PARAMETER(NCHSYNC = 32) ! numrecs has changed (X'40') PARAMETER(NCNDIRTY = 64) ! header info has changed (X'80') PARAMETER(NCHDIRTY = 128) ! prefill vars on endef and increase of record, the default behavior PARAMETER(NCFILL = 0) ! do not fill vars on endef and increase of record (X'100') PARAMETER(NCNOFILL = 256) ! isa link (X'8000') PARAMETER(NCLINK = 32768) ! ! 'mode' arguments for nccreate and ncopen ! PARAMETER(NCNOWRIT = 0) PARAMETER(NCWRITE = NCRDWR) PARAMETER(NCCLOB = NF_CLOBBER) PARAMETER(NCNOCLOB = NF_NOCLOBBER) ! ! 'size' argument to ncdimdef for an unlimited dimension ! INTEGER NCUNLIM PARAMETER(NCUNLIM = 0) ! ! attribute id to put/get a global attribute ! PARAMETER(NCGLOBAL = 0) ! ! Advisory Maximums: ! PARAMETER(MAXNCOP = 32) PARAMETER(MAXNCDIM = 100) PARAMETER(MAXNCATT = 2000) PARAMETER(MAXNCVAR = 2000) ! Not enforced PARAMETER(MAXNCNAM = 128) PARAMETER(MAXVDIMS = MAXNCDIM) ! ! Global netcdf error status variable ! Initialized in error.c ! ! No Error PARAMETER(NCNOERR = 0) ! Not a netcdf id PARAMETER(NCEBADID = 1) ! Too many netcdfs open PARAMETER(NCENFILE = 2) ! netcdf file exists && NCNOCLOB PARAMETER(NCEEXIST = 3) ! Invalid Argument PARAMETER(NCEINVAL = 4) ! Write to read only PARAMETER(NCEPERM = 5) ! Operation not allowed in data mode PARAMETER(NCENOTIN = 6) ! Operation not allowed in define mode PARAMETER(NCEINDEF = 7) ! Coordinates out of Domain PARAMETER(NCECOORD = 8) ! MAXNCDIMS exceeded PARAMETER(NCEMAXDS = 9) ! String match to name in use PARAMETER(NCENAME = 10) ! Attribute not found PARAMETER(NCENOATT = 11) ! MAXNCATTRS exceeded PARAMETER(NCEMAXAT = 12) ! Not a netcdf data type PARAMETER(NCEBADTY = 13) ! Invalid dimension id PARAMETER(NCEBADD = 14) ! NCUNLIMITED in the wrong index PARAMETER(NCEUNLIM = 15) ! MAXNCVARS exceeded PARAMETER(NCEMAXVS = 16) ! Variable not found PARAMETER(NCENOTVR = 17) ! Action prohibited on NCGLOBAL varid PARAMETER(NCEGLOB = 18) ! Not a netcdf file PARAMETER(NCENOTNC = 19) PARAMETER(NCESTS = 20) PARAMETER (NCENTOOL = 21) PARAMETER(NCFOOBAR = 32) PARAMETER(NCSYSERR = -1) ! ! Global options variable. Used to determine behavior of error handler. ! Initialized in lerror.c ! PARAMETER(NCFATAL = 1) PARAMETER(NCVERBOS = 2) ! ! Default fill values. These must be the same as in the C interface. ! INTEGER FILBYTE INTEGER FILCHAR INTEGER FILSHORT INTEGER FILLONG REAL FILFLOAT DOUBLEPRECISION FILDOUB PARAMETER (FILBYTE = -127) PARAMETER (FILCHAR = 0) PARAMETER (FILSHORT = -32767) PARAMETER (FILLONG = -2147483647) PARAMETER (FILFLOAT = 9.9692099683868690e+36) PARAMETER (FILDOUB = 9.9692099683868690e+36) ================================================ FILE: UTIL/create_ebi/src/NOTICE.EXT ================================================ !......................................................................... ! Version "@(#)$Header$" ! EDSS/Models-3 I/O API. ! Copyright (C) 1992-2002 MCNC and Carlie J. Coats, Jr., and ! copyright (C) 2002-2004 Baron Advanced Meteorological Systems, LLC ! ! Distributed under the GNU LESSER GENERAL PUBLIC LICENSE version 2.1 ! ! DO NOT EDIT !! ! ! The EDSS/Models-3 I/O API depends in an essential manner ! upon the I/O API source code. ANY CHANGES to INCLUDE files ! are likely to result in very obscure, difficult-to-diagnose ! bugs caused by an inconsistency between standard "libioapi.a" ! object-libraries and whatever code is compiled with the ! resulting modified INCLUDE-file. ! ! By making any changes to any of these INCLUDE files, the user ! explicitly agrees that in the case any assistance is required ! of MCNC or of the I/O API author, Carlie J. Coats, Jr., as ! a result of such changes, THE USER AND/OR HIS PROJECT OR ! CONTRACT AGREES TO REIMBURSE MCNC AND/OR THE I/O API AUTHOR, ! CARLIE J. COATS, JR., AT A RATE TRIPLE THE NORMAL CONTRACT ! RATE FOR THE SERVICES REQUIRED. ! ! See file "LGPL.txt" for additional conditions of use. !......................................................................... ================================================ FILE: UTIL/create_ebi/src/PARMS3.EXT ================================================ !......................................................................... ! Version "@(#)$Header$" ! EDSS/Models-3 I/O API. ! Copyright (C) 1992-2003 MCNC and Carlie J. Coats, Jr, and ! (C) 2003-2004 Baron Advanced Meteorological Systems LLC. ! Distributed under the GNU LESSER GENERAL PUBLIC LICENSE version 2.1 ! See file "LGPL.txt" for conditions of use. !.................................................................... ! INCLUDE FILE PARMS3.EXT ! ! DO NOT EDIT !! ! ! The EDSS/Models-3 I/O API depends in an essential manner ! upon the contents of this INCLUDE file. ANY CHANGES are ! likely to result in very obscure, difficult-to-diagnose ! bugs caused by an inconsistency between standard "libioapi.a" ! object-libraries and whatever code is compiled with the ! resulting modified INCLUDE-file. ! ! By making any changes to this INCLUDE file, the user ! explicitly agrees that in the case any assistance is ! required of MCNC or of the I/O API author, Carlie J. Coats, Jr. ! as a result of such changes, THE USER AND/OR HIS PROJECT OR ! CONTRACT AGREES TO REIMBURSE MCNC AND/OR THE I/O API AUTHOR, ! CARLIE J. COATS, JR., AT A RATE TRIPLE THE NORMAL CONTRACT ! RATE FOR THE SERVICES REQUIRED. ! ! CONTAINS: ! Fortran dimensioning parameters, standard file-type, grid-type, etc. ! token values for Models-3 I/O System API ! ! DEPENDENT UPON: ! M3INT, M3REAL, M3DBLE consistent with NETCDF.EXT ! Consistent with C include file "parms3.h" ! ! REVISION HISTORY: ! prototype 3/1992 by Carlie J. Coats, Jr., MCNC Environmental ! Programs ! ! Modified 12/1992 by CJC: new map projection type STEGRD3. ! ! Modified 6/1994 by CJC: I/O API Revisions. ! ! Modified 12/1996 by CJC: support for new file types ! Modified 2/2002 by CJC: updated dates, license; compatibility ! with both free and fixed Fortran 9x source forms ! ! Modified 10/2003 by CJC for I/O AI version 3: support for ! native-binary BINFILE3 file type !.................................................................... !........... Dimensioning parameters: INTEGER MXDLEN3 ! description line length INTEGER NAMLEN3 ! name length (logical names, etc.) INTEGER MXFILE3 ! max number of open files INTEGER MXVARS3 ! max number of variables per file INTEGER MXDESC3 ! max number of description lines INTEGER MXLAYS3 ! max # of layers per file INTEGER MXATTS3 ! max # ATDSC3.EXT attributes per variable !........... Token-values ("magic numbers"): INTEGER CUSTOM3 ! file type value "user-structured custom" INTEGER GRDDED3 ! file type value "gridded" INTEGER BNDARY3 ! file type value "boundary-condition" INTEGER IDDATA3 ! file type value "ID-referenced data" INTEGER PROFIL3 ! file type value "rawind vertical profiles" INTEGER GRNEST3 ! file type value "nested-grid" INTEGER SMATRX3 ! file type value "sparse matrix" INTEGER DCTNRY3 ! file type value "dictionary" INTEGER DGRAPH3 ! file type value "directed graph" INTEGER KFEVNT3 ! file type value "KF cloud event" INTEGER TSRIES3 ! file type value "time series" INTEGER PTRFLY3 ! file type value "pointer-flyer" INTEGER M3CHAR ! variable type value "CHARACTER-string" INTEGER M3BYTE ! variable type value "Byte" INTEGER M3INT ! variable type value "INTEGER" INTEGER M3REAL ! variable type value "REAL" INTEGER M3DBLE ! variable type value "DOUBLE PRECISION" INTEGER BUFFIL3 ! "buffered-file" value for CDFID INTEGER VIRFIL3 ! "virtual-file" value for CDFID INTEGER LSTFIL3 ! "file-list" value for CDFID INTEGER BINFIL3 ! "native-binary" value for CDFID INTEGER FSREAD3 ! OPEN3() flag: "old read-only" file INTEGER FSRDWR3 ! "old read-write" file INTEGER FSNEW3 ! "new (read-write)" file INTEGER FSUNKN3 ! "unknown (read_write)" file INTEGER FSCREA3 ! "unknown (write): truncate if exists" file INTEGER LATGRD3 ! grid type value: lat-lon coords INTEGER LAMGRD3 ! grid type value: Lambert (e.g., RADM) INTEGER MERGRD3 ! grid type value: (general) Mercator INTEGER STEGRD3 ! grid type value: (tangent) stereographic INTEGER UTMGRD3 ! grid type value: UTM (special case Merc.) INTEGER POLGRD3 ! grid type value: polar stereographic INTEGER EQMGRD3 ! grid type value: equatorial Mercator INTEGER TRMGRD3 ! grid type value: transverse Mercator INTEGER VGSGPH3 ! vert coord type 1: hydrostatic sigma-P INTEGER VGSGPN3 ! vert coord type 2: non-h sigma-P INTEGER VGSIGZ3 ! vert coord type 3: sigma-Z INTEGER VGPRES3 ! vert coord type 4: pressure (mb) INTEGER VGZVAL3 ! vert coord type 5: Z (m) (above sea lvl) INTEGER VGHVAL3 ! vert coord type 6: H (m) (above ground) INTEGER VGWRFEM ! vert coord type 7: WRF mass-core sigma INTEGER VGWRFNM ! vert coord type 8: WRF NMM INTEGER ALLAYS3 ! Flag value: read all layers CHARACTER*16 ALLVAR3 ! Flag value: read all variables REAL BADVAL3 ! real flag value: "bad" or "missing" REAL AMISS3 ! BADVAL3 < AMISS3 on all machines INTEGER OKFLAG3 ! int flag value: "good" values INTEGER IMISS3 ! int flag value: "bad" or "missing" CHARACTER*16 CMISS3 ! char flag value: "missing" INTEGER XSTAT0 ! Normal, successful completion INTEGER XSTAT1 ! File I/O error INTEGER XSTAT2 ! Execution error INTEGER XSTAT3 ! Special error INTEGER LITTLE_ENDIAN INTEGER BIG_ENDIAN INTEGER PDP_ENDIAN !....... Dimensioning parameters: PARAMETER ( MXFILE3 = 64 , MXVARS3 = 540 , & MXDESC3 = 60 , MXDLEN3 = 80 , & MXATTS3 = 20 , MXLAYS3 = 100 , & NAMLEN3 = 16 ) !....... Token-value parameters: PARAMETER ( KFEVNT3 = -3 , DGRAPH3 = -2 , CUSTOM3 = -1 , & DCTNRY3 = 0 , GRDDED3 = 1 , BNDARY3 = 2 , & IDDATA3 = 3 , PROFIL3 = 4 , GRNEST3 = 5 , & SMATRX3 = 6 , TSRIES3 = 7 , PTRFLY3 = 8 , & M3BYTE = 1 , M3CHAR = 2 , M3INT = 4 , & M3REAL = 5 , M3DBLE = 6 , & BUFFIL3 = -1 , VIRFIL3 = -2 , LSTFIL3 = -3 , & BINFIL3 = -4 , FSREAD3 = 1 , FSRDWR3 = 2 , & FSNEW3 = 3 , FSUNKN3 = 4 , & FSCREA3 = 5 ) PARAMETER ( LATGRD3 = 1 , LAMGRD3 = 2 , & MERGRD3 = 3 , STEGRD3 = 4 , & UTMGRD3 = 5 , POLGRD3 = 6 , & EQMGRD3 = 7 , TRMGRD3 = 8 ) PARAMETER ( VGSGPH3 = 1 , VGSGPN3 = 2 , & VGSIGZ3 = 3 , VGPRES3 = 4 , & VGZVAL3 = 5 , VGHVAL3 = 6 , & VGWRFEM = 7 , VGWRFNM = 8 ) PARAMETER ( ALLAYS3 = -1 , ALLVAR3 = 'ALL', & OKFLAG3 = 5461 , & IMISS3 = -9999 , & AMISS3 = -9.000E36 , & BADVAL3 = -9.999E36 , & CMISS3 = '????????????????' ) PARAMETER ( XSTAT0 = 0 , & XSTAT1 = 1 , & XSTAT2 = 2 , & XSTAT3 = 3 ) !....... These match BSD-style "endian.h" values: PARAMETER ( LITTLE_ENDIAN = 1234, & BIG_ENDIAN = 4321 , & PDP_ENDIAN = 3412 ) !................ end PARMS3.EXT .................................... ================================================ FILE: UTIL/create_ebi/src/STATE3.EXT ================================================ !......................................................................... ! Version "@(#)$Header$" ! EDSS/Models-3 I/O API. Copyright (C) 1992-2002 MCNC ! Distributed under the GNU LESSER GENERAL PUBLIC LICENSE version 2.1 ! See file "LGPL.txt" for conditions of use. !.................................................................... ! INCLUDE FILE STATE3.EXT ! ! ! DO NOT EDIT !! ! ! The EDSS/Models-3 I/O API depends in an essential manner ! upon the contents of this INCLUDE file. ANY CHANGES are ! likely to result in very obscure, difficult-to-diagnose ! bugs caused by an inconsistency between standard "libioapi.a" ! object-libraries and whatever code is compiled with the ! resulting modified INCLUDE-file. ! ! By making any changes to this INCLUDE file, the user ! explicitly agrees that in the case any assistance is ! required of MCNC or of the I/O API author, Carlie J. Coats, Jr. ! as a result of such changes, THE USER AND/OR HIS PROJECT OR ! CONTRACT AGREES TO REIMBURSE MCNC AND/OR THE I/O API AUTHOR, ! CARLIE J. COATS, JR., AT A RATE TRIPLE THE NORMAL CONTRACT ! RATE FOR THE SERVICES REQUIRED. ! ! CONTAINS: Commons BSTATE3 and CSTATE3 which store I/O system state ! for FORTRAN Models-3 I/O System API. (Recall that FORTRAN 77 ! prohibits character and non-character data in the same common.) ! Note that grid description info needs to be double-precision ! instead of single-precision, in order to minimize roundoff ! error in grid-to/from-geographic coordinate transformations. ! ! DEPENDENT UPON: PARMS3.EXT ! ! REFERENCED BY: IOAPI routines (assume that it is referenced by all ! of them. ! ! ---->> PRIVATE TO IO API; NOT TO BE USED BY APPLICATIONS !!!!! ! ! REVISION HISTORY: ! prototype 3/1992 by CJC ! modified 12/1992 by CJC: map-projection descriptive parameters P_ALP, ! P_BET, P_GAM (q.v. FDESC3.EXT) ! modified 7/1994 by CJC: XCENT3, YCENT3; reorder BSTATE3 for ! alignment of entries. ! Modified 12/1996 by CJC: support for new file types ! Modified 1/2002 by CJC: updated dates, license ! ! Modified 3/2002 by CJC: updated dates, license; compatibility ! with both free and fixed Fortran 9x source forms; split out ! virtual-mode COMMON in STATE3V.EXT ! ! Modified 3/2002 by CJC: flag STDOUT set by INIT3() and used ! by M3MSG2() to control error output to the screen. ! ! Modified 10/2002 by CJC for I/O AP1 v3: add VERSN3 to CSTATE3 !.................................................................... LOGICAL FINIT3 ! Is M3 FORTRAN I/O started? INTEGER COUNT3 ! current number of open files INTEGER CURDATE ! current date, format YYYYDDD INTEGER CURTIME ! current time, format HHMMSS INTEGER LOGDEV ! unit number for log file INTEGER CDFID3( MXFILE3 ) ! netCDF file ID's INTEGER FTYPE3( MXFILE3 ) ! file types(dict, grid, bdy, etc.) INTEGER SDATE3( MXFILE3 ) ! starting dates, format YYYYDDD INTEGER STIME3( MXFILE3 ) ! starting times, format HHMMSS INTEGER TSTEP3( MXFILE3 ) ! timesteps, format H*MMSS INTEGER MXREC3( MXFILE3 ) ! maximum timestep record number INTEGER NVARS3( MXFILE3 ) ! number of variables (species...) INTEGER NLAYS3( MXFILE3 ) ! number of layers INTEGER NROWS3( MXFILE3 ) ! number of grid rows or data sites INTEGER NCOLS3( MXFILE3 ) ! number of grid cols or profile lvls INTEGER NTHIK3( MXFILE3 ) ! B'DY: perimeter thickness (cells) INTEGER TINDX3( MXFILE3 ) ! netCDF var. ID for timestep-flag INTEGER NINDX3( MXFILE3 ) ! netCDF var. ID for site-count INTEGER SINDX3( MXFILE3 ) ! netCDF var. ID for site-ID INTEGER LINDX3( MXFILE3 ) ! netCDF var. ID for level-count INTEGER WCNDX3( MXFILE3 ) ! netCDF var. ID for bdy col-count INTEGER WRNDX3( MXFILE3 ) ! netCDF var. ID for bdy row-count INTEGER XINDX3( MXFILE3 ) ! netCDF var. ID for X INTEGER YINDX3( MXFILE3 ) ! netCDF var. ID for Y INTEGER ZINDX3( MXFILE3 ) ! netCDF var. ID for Z INTEGER DXNDX3( MXFILE3 ) ! netCDF var. ID for GRNEST DX INTEGER DYNDX3( MXFILE3 ) ! netCDF var. ID for GRNEST DY INTEGER VINDX3( MXVARS3, MXFILE3 ) ! netCDF var. IDs INTEGER VTYPE3( MXVARS3, MXFILE3 ) ! netCDF datatypes for vars INTEGER GDTYP3( MXFILE3 ) ! grid type (lat-lon, UTM, ... ) REAL*8 P_ALP3( MXFILE3 ) ! first, second, third map REAL*8 P_BET3( MXFILE3 ) ! projection descriptive REAL*8 P_GAM3( MXFILE3 ) ! parameters. REAL*8 XCENT3( MXFILE3 ) ! lon, coord system origin, by file REAL*8 YCENT3( MXFILE3 ) ! lat, coord system origin, by file REAL*8 XORIG3( MXFILE3 ) ! X-coord grid origin, by file REAL*8 YORIG3( MXFILE3 ) ! X-coord grid origin, by file REAL*8 XCELL3( MXFILE3 ) ! X-coord cell dimension, by file REAL*8 YCELL3( MXFILE3 ) ! X-coord cell dimension, by file LOGICAL VOLAT3( MXFILE3 ) ! "volatile" flags: use NCSYNC LOGICAL RONLY3( MXFILE3 ) ! read-only flags !........... Circular buffer structures used for BUFFERED "files". INTEGER BSIZE3( MXFILE3 ) ! buffer size or IMISS INTEGER LDATE3( MXVARS3, MXFILE3 ) ! start date, time for INTEGER LTIME3( MXVARS3, MXFILE3 ) ! current BUFFERED data INTEGER NDATE3( MXVARS3, MXFILE3 ) ! end date, time for INTEGER NTIME3( MXVARS3, MXFILE3 ) ! current BUFFERED data INTEGER ILAST3( MXVARS3, MXFILE3 ) ! 0,1 sub. for LDATE:LTIME !........... Data structures used for input LIST "file-sequences" for, !........... READ3/INTERP3, designated by logical-name bindings of the !........... form "setenv FOO "LIST:BAR,QUX,ZOT..." !........... This is done with "sparse representation" for the data !........... structures !........... NLIST3(FID) s the number of list entries for FLIST3(FID). !........... ILCNT3 is the total number of active list-entries. !........... ILIST3(*) is the list of FID's for all "list-files" !........... BEGRC3(*) is the list of starting record numbers, relative !........... to the parent FID !........... ENDRC3(*) is the list of ending record numbers, relative !........... to the parent FID INTEGER ILCNT3 ! total # of list entries INTEGER NLIST3( MXFILE3 ) ! list-size for this FID INTEGER IFRST3( MXFILE3 ) ! starting list index in ILIST3 INTEGER ILIST3( MXFILE3 ) ! ID-list (compressed) INTEGER BEGRC3( MXFILE3 ) ! buffer size or IMISS INTEGER ENDRC3( MXFILE3 ) ! buffer size or IMISS !........... Other system attributes: LOGICAL STDOUT ! controls message-echo to standard output CHARACTER*80 EXECN3 ! value of env vble EXECUTION_ID (set by INIT3()) CHARACTER*80 VERSN3 ! value of I/O API Version (set by INIT3()) CHARACTER*16 FLIST3( MXFILE3 ) ! file name table CHARACTER*16 GDNAM3( MXFILE3 ) ! grid name table CHARACTER*80 SCNDSC( MXDESC3 ) ! scenario description text CHARACTER*16 VLIST3( MXVARS3 , MXFILE3 ) ! variable-name table !! non-character portion of current I/O API state !! Note that DOUBLE components are listed first, in order !! to ensure appropriate (64-bit, usually) alignment. COMMON / BSTATE3 / & & P_ALP3, P_BET3, P_GAM3, & XCENT3, YCENT3, XORIG3, YORIG3, XCELL3, YCELL3, & FINIT3, COUNT3, CURDATE, CURTIME, LOGDEV, & CDFID3, FTYPE3, SDATE3, STIME3, TSTEP3, MXREC3, & NVARS3, NLAYS3, NROWS3, NCOLS3, NTHIK3, & TINDX3, NINDX3, SINDX3, LINDX3, WCNDX3, WRNDX3, & XINDX3, YINDX3, ZINDX3, DXNDX3, DYNDX3, VINDX3, & GDTYP3, VOLAT3, RONLY3, & BSIZE3, LDATE3, LTIME3, NDATE3, NTIME3, ILAST3, & VTYPE3, & ILCNT3, NLIST3, IFRST3, ILIST3, BEGRC3, ENDRC3, & STDOUT !! character portion of current I/O API state COMMON / CSTATE3 / & & EXECN3, SCNDSC, FLIST3, GDNAM3, VLIST3, VERSN3 SAVE / BSTATE3 / , / CSTATE3 / !................ end STATE3.EXT .................................... ================================================ FILE: UTIL/create_ebi/src/driver.F ================================================ PROGRAM CR_EBI_SOLVER C********************************************************************** C C FUNCTION: Create source code for mechanism specific EBI solver C C PRECONDITIONS: None C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by Jerry Gipson, February, 2004 C Modified 06/09 by J. Gipson to include steady-state C approximations and special rate constants C C********************************************************************** USE ENV_VARS USE GLOBAL_DATA ! USE M3UTILIO ! IOAPI parameters and declarations USE RXNS_DATA IMPLICIT NONE C..INCLUDES: C..ARGUMENTS: None C..PARAMETERS: None C..EXTERNAL FUNCTIONS: None C..LOCAL VARIABLES: CHARACTER( 16 ) :: PNAME = 'CR_EBI_SOLVER' CHARACTER( 80 ) :: MSG INTEGER :: N ! Loop index C********************************************************************** CALL GET_ENVS CALL SET_GLBLDATA CALL ERR_CHECK CALL WR_DRIVER ! CALL WR_CALCKS CALL WR_SOLVER CALL WR_DATA CALL WR_INIT CALL WR_GP1 CALL WR_GP2 CALL WR_GP3 CALL WR_GP4 CALL WR_PRODLOSS ! IF( NSPECIAL .GT. 0 ) CALL WR_SPECIAL IF( N_SS_SPC .GT. 0 ) THEN MSG = TRIM( PNAME ) & // ': ERROR: Mechanism uses steady state or equilibrium ' & // 'solution for specific species. The utility is ' & // 'disabled in the version of the EBI code generator.' WRITE(LOGDEV,'(a)')TRIM(MSG) STOP ! CALL WR_SSA END IF c..This subroutine needs to be called after all other to insure that c..all references to rxrat are properly accounted for CALL WR_RATES WRITE( LOGDEV, 90000 ) NOUTFLS DO N = 1, NOUTFLS WRITE( LOGDEV, 90020 ) OUTFLNAM( N ) END DO MSG = 'Program ' // PNAME( 1 : LEN_TRIM( PNAME ) ) // & ' completed successfully' WRITE(LOGDEV,'(a)')TRIM(MSG) STOP 90000 FORMAT( /'The following ', I2, ' output files were created:' ) 90020 FORMAT( 5X, A ) END ================================================ FILE: UTIL/create_ebi/src/err_check.F ================================================ SUBROUTINE ERR_CHECK C********************************************************************** C C FUNCTION: Check species & rxns for potential errors in creating C EBI source C C PRECONDITIONS: None C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by Jerry Gipson, March, 2004 C C********************************************************************** USE ENV_VARS USE GLOBAL_DATA ! USE M3UTILIO ! IOAPI parameters and declarations USE RXNS_DATA ! mechanism data and specifications IMPLICIT NONE C..INCLUDES: C..ARGUMENTS: None C..PARAMETERS: INTEGER, PARAMETER :: IZERO = 0 ! Integer zero C..EXTERNAL FUNCTIONS: ! INTEGER NAME_INDEX ! C..SAVED LOCAL VARIABLES: None C..SCRATCH LOCAL VARIABLES: CHARACTER( 5 ) :: RNUM CHARACTER( 16 ) :: PNAME = 'ERR_CHECK' ! Program name CHARACTER( 100 ) :: LINOUT ! Reaction line CHARACTER( 150 ) :: RXOUT ! Reaction line CHARACTER( 256 ) :: MSG ! Message text INTEGER :: E1, E2 INTEGER :: M, N INTEGER :: NPOS INTEGER :: IND REAL(8) :: RXN_LOSS = 0.0D0 REAL(8) :: RXN_PROD = 0.0D0 LOGICAL :: LERROR LOGICAL :: LRXN1 LOGICAL :: LFOUND C********************************************************************** LERROR = .FALSE. ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Check & report group species indices ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF( NO .EQ. 0 ) THEN MSG = 'ERROR: Group 1 species NO not found in species list' WRITE( LOGDEV, 92020 ) MSG( 1 : LEN_TRIM( MSG ) ) LERROR = .TRUE. END IF IF( NO2 .EQ. 0 ) THEN MSG = 'ERROR: Group 1 species NO2 not found in species list' WRITE( LOGDEV, 92020 ) MSG( 1 : LEN_TRIM( MSG ) ) LERROR = .TRUE. END IF IF( O3 .EQ. 0 ) THEN MSG = 'ERROR: Group 1 species O3 not found in species list' WRITE( LOGDEV, 92020 ) MSG( 1 : LEN_TRIM( MSG ) ) LERROR = .TRUE. END IF IF( O3P .EQ. 0 ) THEN MSG = 'ERROR: Group 1 species O3P not found in species list' WRITE( LOGDEV, 92020 ) MSG( 1 : LEN_TRIM( MSG ) ) LERROR = .TRUE. END IF IF( O1D .EQ. 0 ) THEN MSG = 'ERROR: Group 1 species O1D not found in species list' WRITE( LOGDEV, 92020 ) MSG( 1 : LEN_TRIM( MSG ) ) LERROR = .TRUE. END IF IF( LNO2EX_CYCLE .AND. NO2EX .EQ. 0 ) THEN MSG = 'ERROR: Group 1 species NO2EX not found in species list' WRITE( LOGDEV, 92020 ) MSG( 1 : LEN_TRIM( MSG ) ) LERROR = .TRUE. END IF IF( OH .EQ. 0 ) THEN MSG = 'ERROR: Group 2 species OH not found in species list' WRITE( LOGDEV, 92020 ) MSG( 1 : LEN_TRIM( MSG ) ) LERROR = .TRUE. END IF IF( HO2 .EQ. 0 ) THEN MSG = 'ERROR: Group 2 species HO2 not found in species list' WRITE( LOGDEV, 92020 ) MSG( 1 : LEN_TRIM( MSG ) ) LERROR = .TRUE. END IF IF( HONO .EQ. 0 ) THEN MSG = 'ERROR: Group 2 species HONO not found in species list' WRITE( LOGDEV, 92020 ) MSG( 1 : LEN_TRIM( MSG ) ) LERROR = .TRUE. END IF IF( HNO4 .EQ. 0 ) THEN MSG = 'ERROR: Group 2 species HNO4 not found in species list' WRITE( LOGDEV, 92020 ) MSG( 1 : LEN_TRIM( MSG ) ) LERROR = .TRUE. END IF IF( NO3 .EQ. 0 ) THEN MSG = 'ERROR: Group 3 species NO3 not found in species list' WRITE( LOGDEV, 92020 ) MSG( 1 : LEN_TRIM( MSG ) ) LERROR = .TRUE. END IF IF( N2O5 .EQ. 0 ) THEN MSG = 'ERROR: Group 3 species N2O5 not found in species list' WRITE( LOGDEV, 92020 ) MSG( 1 : LEN_TRIM( MSG ) ) LERROR = .TRUE. END IF IF( C2O3 .EQ. 0 ) THEN MSG = 'ERROR: Group 4 species C2O3 not found in species list' WRITE( LOGDEV, 92020 ) MSG( 1 : LEN_TRIM( MSG ) ) LERROR = .TRUE. END IF IF( PAN .EQ. 0 ) THEN MSG = 'ERROR: Group 4 species PAN not found in species list' WRITE( LOGDEV, 92020 ) MSG( 1 : LEN_TRIM( MSG ) ) LERROR = .TRUE. END IF IF( .NOT. LERROR ) THEN WRITE( LOGDEV, 93000 ) & SPECIES( NO )( 1 : LEN_TRIM( SPECIES( NO ) ) ), & SPECIES( NO2 )( 1 : LEN_TRIM( SPECIES( NO2 ) ) ), & SPECIES( O3 )( 1 : LEN_TRIM( SPECIES( O3 ) ) ), & SPECIES( O3P )( 1 : LEN_TRIM( SPECIES( O3P ) ) ), & SPECIES( O1D )( 1 : LEN_TRIM( SPECIES( O1D ) ) ), & SPECIES( OH )( 1 : LEN_TRIM( SPECIES( OH ) ) ), & SPECIES( HO2 )( 1 : LEN_TRIM( SPECIES( HO2 ) ) ), & SPECIES( HONO )( 1 : LEN_TRIM( SPECIES( HONO ) ) ), & SPECIES( HNO4 )( 1 : LEN_TRIM( SPECIES( HNO4 ) ) ), & SPECIES( NO3 )( 1 : LEN_TRIM( SPECIES( NO3 ) ) ), & SPECIES( N2O5 )( 1 : LEN_TRIM( SPECIES( N2O5 ) ) ), & SPECIES( C2O3 )( 1 : LEN_TRIM( SPECIES( C2O3 ) ) ), & SPECIES( PAN )( 1 : LEN_TRIM( SPECIES( PAN ) ) ) IF( LNO2EX_CYCLE ) WRITE( LOGDEV, 93010 ) & SPECIES( NO2EX )( 1 : LEN_TRIM( SPECIES( NO2EX ) ) ) END IF IF( LERROR ) THEN MSG = TRIM( PNAME ) // ': Stopping because of group species error' WRITE(LOGDEV,'(a)')TRIM(MSG) STOP END IF WRITE( LOGDEV, 94000 ) IF( LNO2EX_CYCLE ) WRITE( LOGDEV, 94010 ) c..check for rxns w/ more than 2 reactants ( Warning only ) LRXN1 = .TRUE. NPOS = 50 DO N = 1, NRXNS IF( NREACT( N ) .GT. 2 ) THEN IF( LRXN1 ) THEN WRITE( LOGDEV, 95000 ) LRXN1 = .FALSE. END IF WRITE( RNUM, '(I5)') N CALL CMPRS_RXN( IZERO, IZERO, IZERO, IZERO, N, RXOUT ) CALL TRIM_RXN( RXOUT, NPOS ) E1 = LEN_TRIM( RXOUT ) E2 = LEN_TRIM( RXLABEL( N ) ) LINOUT = ' REACTION ' // RNUM // ': <' // & RXLABEL( N )( 1 : LL ) // '> ' // RXOUT( 1 : E1 ) E1 = LEN_TRIM( LINOUT ) WRITE( LOGDEV, 92000 ) LINOUT( 1 : E1 ) END IF END DO c..check to make sure all O1D loss reactions are psuedo-first order LRXN1 = .TRUE. NPOS = 50 DO N = 1, NRXNS IF( ( IRR( N, 1 ) .EQ. O1D .AND. NREACT( N ) .GT. 1 ) .OR. & IRR( N, 2 ) .EQ. O1D .OR. IRR( N, 3 ) .EQ. O1D ) THEN IF( LRXN1 ) THEN WRITE( LOGDEV, 95020 ) LRXN1 = .FALSE. END IF WRITE( RNUM, '(I5)') N CALL CMPRS_RXN( IZERO, IZERO, IZERO, IZERO, N, RXOUT ) CALL TRIM_RXN( RXOUT, NPOS ) E1 = LEN_TRIM( RXOUT ) LINOUT = ' REACTION ' // RNUM // ': <' // & RXLABEL( N )( 1 : LL ) // '> ' // RXOUT( 1 : E1 ) E1 = LEN_TRIM( LINOUT ) WRITE( LOGDEV, 92000 ) LINOUT( 1 : E1 ) LERROR = .TRUE. END IF END DO c..check to make sure there is a O1D-->O3P reaction LFOUND = .FALSE. DO N = 1, NRXNS IF( ( IRR( N, 1 ) .EQ. O1D .AND. NREACT( N ) .EQ. 1 ) .AND. & IRR( N, 4 ) .EQ. O3P ) THEN LFOUND = .TRUE. EXIT END IF END DO IF( .NOT. LFOUND ) THEN WRITE( LOGDEV, 95040 ) LERROR = .TRUE. END IF c..check to make sure there is a O1D-->2*OH reaction LFOUND = .FALSE. DO N = 1, NRXNS IF( ( IRR( N, 1 ) .EQ. O1D .AND. NREACT( N ) .EQ. 1 ) .AND. & IRR( N, 4 ) .EQ. OH .AND. SC( N, 1 ) .EQ. 2.0D0 ) THEN LFOUND = .TRUE. EXIT END IF END DO IF( .NOT. LFOUND ) THEN WRITE( LOGDEV, 95060 ) LERROR = .TRUE. END IF c..check for a NO2=NO+O3P reaction LFOUND = .FALSE. DO N = 1, NRXNS IF( ( IRR( N, 1 ) .EQ. NO2 .AND. NREACT( N ) .EQ. 1 ) .AND. & ( ( IRR( N, 4 ) .EQ. NO .AND. IRR( N, 5 ) .EQ. O3P ) .OR. & ( IRR( N, 4 ) .EQ. O3P .AND. IRR( N, 5 ) .EQ. NO ) ) ) THEN LFOUND = .TRUE. EXIT END IF END DO IF( .NOT. LFOUND ) THEN WRITE( LOGDEV, 95080 ) LERROR = .TRUE. END IF c..check for a O3P-->O3 LFOUND = .FALSE. DO N = 1, NRXNS IF( IRR( N, 1 ) .EQ. O3P .AND. NREACT( N ) .EQ. 1 .AND. & IRR( N, 4 ) .EQ. O3 .AND. SC( N, 1 ) .EQ. 1.0D0 ) THEN LFOUND = .TRUE. EXIT END IF END DO IF( .NOT. LFOUND ) THEN WRITE( LOGDEV, 95100 ) LERROR = .TRUE. END IF c..check for a NO+O3=NO2 reaction LFOUND = .FALSE. DO N = 1, NRXNS IF( ( ( IRR( N, 1 ) .EQ. NO .AND. IRR( N, 2 ) .EQ. O3 ) .OR. & ( IRR( N, 2 ) .EQ. NO .AND. IRR( N, 1 ) .EQ. O3 ) ) .AND. & ( IRR( N, 4 ) .EQ. NO2 .AND. SC( N, 1 ) .EQ. 1.0D0 ) ) THEN LFOUND = .TRUE. EXIT END IF END DO IF( .NOT. LFOUND ) THEN WRITE( LOGDEV, 95120 ) LERROR = .TRUE. END IF c..check for a HONO=OH+NO reaction LFOUND = .FALSE. DO N = 1, NRXNS IF( ( ( IRR( N, 1 ) .EQ. HONO .AND. NREACT( N ) .EQ. 1 ) .AND. & ( IRR( N, 4 ) .EQ. OH .AND. IRR( N, 5 ) .EQ. NO ) ) .OR. & ( IRR( N, 4 ) .EQ. NO .AND. IRR( N, 5 ) .EQ. OH ) ) THEN LFOUND = .TRUE. EXIT END IF END DO IF( .NOT. LFOUND ) THEN WRITE( LOGDEV, 95140 ) LERROR = .TRUE. END IF c..check for a NO+OH=HONO reaction LFOUND = .FALSE. DO N = 1, NRXNS IF( ( ( IRR( N, 1 ) .EQ. OH .AND. IRR( N, 2 ) .EQ. NO ) .OR. & ( IRR( N, 1 ) .EQ. NO .AND. IRR( N, 2 ) .EQ. OH ) .AND. & NREACT( N ) .EQ. 2 ) .AND. & ( IRR( N, 4 ) .EQ. HONO .AND. NPRDCT( N ) .EQ. 1 ) ) THEN LFOUND = .TRUE. EXIT END IF END DO IF( .NOT. LFOUND ) THEN WRITE( LOGDEV, 95160 ) LERROR = .TRUE. END IF c..check for a HNO4=HO2+NO2 reaction LFOUND = .FALSE. DO N = 1, NRXNS IF( ( ( IRR( N, 1 ) .EQ. HNO4 .AND. NREACT( N ) .EQ. 1 ) .AND. & ( IRR( N, 4 ) .EQ. HO2 .AND. IRR( N, 5 ) .EQ. NO2 ) ) .OR. & ( IRR( N, 4 ) .EQ. NO2 .AND. IRR( N, 5 ) .EQ. HO2 ) ) THEN LFOUND = .TRUE. EXIT END IF END DO IF( .NOT. LFOUND ) THEN WRITE( LOGDEV, 95180 ) LERROR = .TRUE. END IF c..check for a HO2+NO2=HNO4 reaction LFOUND = .FALSE. DO N = 1, NRXNS IF( ( ( IRR( N, 1 ) .EQ. HO2 .AND. IRR( N, 2 ) .EQ. NO2 ) .OR. & ( IRR( N, 1 ) .EQ. NO2 .AND. IRR( N, 2 ) .EQ. HO2 ) .AND. & NREACT( N ) .EQ. 2 ) .AND. & ( IRR( N, 4 ) .EQ. HNO4 .AND. NPRDCT( N ) .EQ. 1 ) ) THEN LFOUND = .TRUE. EXIT END IF END DO IF( .NOT. LFOUND ) THEN WRITE( LOGDEV, 95200 ) LERROR = .TRUE. END IF c..check for a HO2+HO2= reaction LFOUND = .FALSE. DO N = 1, NRXNS IF( IRR( N, 1 ) .EQ. HO2 .AND. IRR( N, 2 ) .EQ. HO2 .AND. & NREACT( N ) .EQ. 2 ) THEN LFOUND = .TRUE. EXIT END IF END DO IF( .NOT. LFOUND ) THEN WRITE( LOGDEV, 95220 ) LERROR = .TRUE. END IF c..check for a C2O3+C2O3= reaction LFOUND = .FALSE. DO N = 1, NRXNS IF( IRR( N, 1 ) .EQ. C2O3 .AND. IRR( N, 2 ) .EQ. C2O3 .AND. & NREACT( N ) .EQ. 2 ) THEN LFOUND = .TRUE. RXN_C2O3_SELF = N EXIT END IF END DO IF( .NOT. LFOUND ) THEN WRITE( LOGDEV, 95240 ) LERROR = .TRUE. END IF c..If NO2EX cycle in group1, check cycle reactions IF( LNO2EX_CYCLE ) THEN c..check for NO2->NO2EX reaction LFOUND = .FALSE. DO N = 1, NRXNS IF( IRR( N, 1 ) .EQ. NO2 .AND. NREACT( N ) .EQ. 1 .AND. & IRR( N, 4 ) .EQ. NO2EX ) THEN LFOUND = .TRUE. EXIT END IF END DO IF( .NOT. LFOUND ) THEN WRITE( LOGDEV, 95260 ) LERROR = .TRUE. END IF c..Check that all NO2EX loss reactions are psuedo-first order LRXN1 = .TRUE. NPOS = 50 DO N = 1, NRXNS IF( ( IRR( N, 1 ) .EQ. NO2EX .AND. NREACT( N ) .GT. 1 ) .OR. & IRR( N, 2 ) .EQ. NO2EX .OR. IRR( N, 3 ) .EQ. NO2EX ) THEN IF( LRXN1 ) THEN WRITE( LOGDEV, 95280 ) LRXN1 = .FALSE. END IF WRITE( RNUM, '(I5)') N CALL CMPRS_RXN( IZERO, IZERO, IZERO, IZERO, N, RXOUT ) CALL TRIM_RXN( RXOUT, NPOS ) E1 = LEN_TRIM( RXOUT ) LINOUT = ' REACTION ' // RNUM // ': <' // & RXLABEL( N )( 1 : LL ) // '> ' // RXOUT( 1 : E1 ) E1 = LEN_TRIM( LINOUT ) WRITE( LOGDEV, 92000 ) LINOUT( 1 : E1 ) LERROR = .TRUE. END IF END DO END IF ! LNO2_CYCLE = .TRUE. ! Check for net negative stoichiometry in reactions DO M = 1, NRXNS DO N = 1, NUMB_MECH_SPC CALL SUM_COEFF( RXN_LOSS, 'R', N, M ) CALL SUM_COEFF( RXN_PROD, 'P', N, M ) IF( RXN_LOSS + RXN_PROD .GE. 0.0D0 )CYCLE IF( LPAR_NEG .AND. TRIM( CHEMISTRY_SPC( N ) ) .EQ. 'PAR' )CYCLE LERROR = .TRUE. IF( .NOT. LPAR_NEG .AND. TRIM( CHEMISTRY_SPC( N ) ) .EQ. 'PAR' )THEN WRITE( RNUM, '(I5)') N MSG = ' ERROR: REACTION ' // TRIM( RXLABEL( M ) ) & // ' has negative net yield for PAR but PAR_NEG_FLAG set to false. ' & // 'Correct run script and re-run.' WRITE(LOGDEV,92000)TRIM( MSG ) CYCLE END IF MSG = ' ERROR: REACTION ' // TRIM( RXLABEL( M ) ) & // ' has negative net yield for ' // TRIM( CHEMISTRY_SPC( N ) ) & // '. Not Permitted.' WRITE(LOGDEV,92000)TRIM( MSG ) END DO END DO c..check to make sure no group 1-4 species are also steady-state species IF( N_SS_SPC .GT. 0 ) THEN DO N = 1, N_SS_SPC IND = NAME_INDEX( SS_SPC( N ), N_SPECIES, SPECIES ) IF( IND .EQ. NO .OR. IND .EQ. NO2 .OR. & IND .EQ. O3 .OR. IND .EQ. O3P .OR. & IND .EQ. O1D .OR. IND .EQ. OH .OR. & IND .EQ. HO2 .OR. IND .EQ. HONO .OR. & IND .EQ. HNO4 .OR. IND .EQ. NO3 .OR. & IND .EQ. N2O5 .OR. IND .EQ. C2O3 .OR. & IND .EQ. PAN ) THEN WRITE( LOGDEV, 95300 ) SS_SPC( N ) LERROR = .TRUE. END IF IF( LNO2EX_CYCLE .AND. IND .EQ. NO2EX ) THEN WRITE( LOGDEV, 95300 ) SS_SPC( N ) LERROR = .TRUE. END IF END DO END IF IF( LERROR ) THEN MSG = TRIM( PNAME ) & // ': Stopping because mechanism requirements for EBI solver not met' WRITE(LOGDEV,'(a)')TRIM(MSG) STOP ELSE WRITE( LOGDEV, 94020 ) END IF RETURN 92000 FORMAT( A ) 92020 FORMAT(/ 5X, A ) 93000 FORMAT( // ' Group species mapping results:' / &' nitric oxide (NO): ', A / &' nitrogen dioxide (NO2): ', A / &' ozone (O3): ', A / &' ground state atomic oxygen (O3P): ', A / &' excited atomic oxygen (O1D): ', A / &' hydroxyl radical (OH): ', A / &' hydroperoxy radical (HO2): ', A / &' nitrous acid (HONO): ', A / &' peroxynitric acid (HNO4): ', A / &' nitrate radical (NO3): ', A / &' nitrogen pentoxide (N2O5): ', A / &' peroxy acetyl radical (C2O3): ', A / &' peroxy acetyl nitrate (PAN): ', A ) 93010 FORMAT( ' excited nitrogen dioxide (NO2EX): ', A ) 94000 FORMAT(//5X, 'Checking mechanism for EBI solver requirements.' ) 94010 FORMAT(//5X, 'NOTE: NO2EX is included in Group 1' ) 94020 FORMAT( /5X, 'No mechanism requirement problems detected - continuing.' ) 95000 FORMAT(/5X, 'WARNING: The following reactions have more than 2', & ' reactants.' ) 95020 FORMAT(/5X, 'ERROR: The mechanism includes a non psuedo 1st-order', & ' loss reaction for O1D' ) 95040 FORMAT(/5X, 'ERROR: O1D-->O3P reaction not found in mechanism' ) 95060 FORMAT(/5X, 'ERROR: O1D-->2*OH reaction not found in mechanism' ) 95080 FORMAT(/5X, 'ERROR: NO2-->NO+O3P reaction not found in mechanism' ) 95100 FORMAT(/5X, 'ERROR: O3P-->O3 reaction not found in mechanism' ) 95120 FORMAT(/5X, 'ERROR: NO+O3-->NO2 reaction not found in mechanism' ) 95140 FORMAT(/5X, 'ERROR: HONO-->OH+NO reaction not found in mechanism' ) 95160 FORMAT(/5X, 'ERROR: NO+OH-->HONO reaction not found in mechanism' ) 95180 FORMAT(/5X, 'ERROR: HNO4-->HO2+NO2 reaction not found in mechanism' ) 95200 FORMAT(/5X, 'ERROR: HO2+NO2-->HNO4 reaction not found in mechanism' ) 95220 FORMAT(/5X, 'ERROR: HO2+HO2--> reaction not found in mechanism' ) 95240 FORMAT(/5X, 'ERROR: C2O3+C2O3--> reaction not found in mechanism' ) 95260 FORMAT(/5X, 'ERROR: NO2-->NO2EX reaction not found inmechanism' ) 95280 FORMAT(/5X, 'ERROR: The mechanism includes a non psuedo 1st-order', & ' loss reaction for NO2EX' ) 95300 FORMAT(/5X, 'ERROR: The following group species cannot be put in', & ' steady-state: ', A ) END ================================================ FILE: UTIL/create_ebi/src/fake_ioapi.f ================================================ c...fake_ioapi.f subroutine m3exit ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) implicit none character*16 pname character*80 xmsg integer jdate, jtime, xstat1 print *, ' *******program ',pname,' terminated normally********' print *, ' at date/time ', jdate, jtime print *, xmsg return end subroutine m3warn ( PNAME, JDATE, JTIME, XMSG ) implicit none character*16 pname character*80 xmsg integer jdate, jtime print *, ' !!!warning in program ',pname,' !!!!!!!!!!' print *, ' at date/time ', jdate, jtime print *, xmsg return end subroutine pm3warn ( PNAME, JDATE, JTIME, XMSG ) implicit none character*16 pname character*80 xmsg integer jdate, jtime print *, ' !!!warning in program ',pname,' !!!!!!!!!!' print *, ' at date/time ', jdate, jtime print *, xmsg return end subroutine m3mesg ( MSG ) implicit none character*80 msg print *, msg return end integer function init3 ( ) implicit none init3 = 6 return end C......................................................................... C Version "@(#)$Header: /env/proj/archive/cvs/ioapi/./ioapi/src/trimlen.f,v 1.2 2000/11/28 21:23:07 smith_w Exp $" C EDSS/Models-3 I/O API. Copyright (C) 1992-1999 MCNC C Distributed under the GNU LESSER GENERAL PUBLIC LICENSE version 2.1 C See file "LGPL.txt" for conditions of use. C......................................................................... INTEGER FUNCTION TRIMLEN ( STRING ) C*********************************************************************** C function body starts at line 43 C C FUNCTION: return the effective length of argument CHARACTER*(*) STRING, C after trailing blanks have been trimmed. C C PRECONDITIONS REQUIRED: none C C SUBROUTINES AND FUNCTIONS CALLED: none C C REVISION HISTORY: C Prototype 8/91 by CJC C Version 2/93 for CRAY by CJC C C*********************************************************************** IMPLICIT NONE C........... ARGUMENTS and their descriptions: CHARACTER*(*) STRING C........... SCRATCH LOCAL VARIABLES and their descriptions: INTEGER L, K C*********************************************************************** C begin body of function TRIMLEN L = LEN( STRING ) DO 11 K = L, 1, -1 IF ( STRING( K:K ) .NE. ' ' ) THEN GO TO 12 END IF 11 CONTINUE K = 1 12 CONTINUE TRIMLEN = K RETURN END C......................................................................... C Version "@(#)$Header: /env/proj/archive/cvs/ioapi/./ioapi/src/index1.f,v 1.2 2000/11/28 21:22:49 smith_w Exp $" C EDSS/Models-3 I/O API. Copyright (C) 1992-1999 MCNC C Distributed under the GNU LESSER GENERAL PUBLIC LICENSE version 2.1 C See file "LGPL.txt" for conditions of use. C......................................................................... INTEGER FUNCTION INDEX1 (NAME, N, NLIST) C*********************************************************************** C subroutine body starts at line 46 C C FUNCTION: C C Searches for NAME in list NLIST and returns the subscript C (1...N) at which it is found, or returns 0 when NAME not C found in NLIST C C PRECONDITIONS REQUIRED: none C C SUBROUTINES AND FUNCTIONS CALLED: none C C REVISION HISTORY: C C 5/88 Modified for ROMNET C 9/94 Modified for Models-3 by CJC C C*********************************************************************** IMPLICIT NONE C....... Arguments and their descriptions: CHARACTER*(*) NAME ! Character string being searched for INTEGER N ! Length of array to be searched CHARACTER*(*) NLIST(*) ! array to be searched C....... Local variable: INTEGER I ! loop counter C..................................................................... C....... begin body of INDEX1() DO 100 I = 1, N IF ( NAME .EQ. NLIST( I ) ) THEN ! Found NAME in NLIST INDEX1 = I RETURN END IF 100 CONTINUE INDEX1 = 0 ! not found RETURN END ================================================ FILE: UTIL/create_ebi/src/junit.F ================================================ INTEGER FUNCTION JUNIT() C*********************************************************************** C function body starts at line 60 C C FUNCTION: C C Routine returns next available FORTRAN unit number C C REVISION HISTORY: C C 3/88 Maximum number of I/O unit numbers was increased from 50 C to 75 due to increased file I/O requirements. C 5/88 Modified for ROMNET C 7/90 Modified for ROM 2.2 -- uses EXWST for error abort. C 8/90 Algorithm simplification: replaced IF-GOTO loop by DO loop. C 8/90 Algorithm simplification: counting algorithm instead of table C of flags; uses POSIX standards-approved unit numbers 11-99 C 3/92 Models-3 Prototype version (eliminate EXWST) C 8/96 Modified by CJC -- On counting-algorithm failure, performs C INQUIREs to find available unit. C 2/97 conditional definition of EXIT under AIX C C ARGUMENT LIST DESCRIPTION: empty argument list C C RETURN VALUE: JUNIT Unit number selected C C LOCAL VARIABLE DESCRIPTION: C C IUNIT state variable: counts through available units C BOT parameter: first POSIX-approved unit number for FORTRAN I/O C TOP parameter: last ... C C*********************************************************************** IMPLICIT NONE C........... PARAMETERS and their descriptions: INTEGER BOT ! 1 less than initial unit number INTEGER TOP ! final unit number PARAMETER ( BOT = 10, TOP = 99 ) C........... SAVED LOCAL VARIABLES and their descriptions: INTEGER IUNIT, J LOGICAL FLAG DATA IUNIT / TOP / ! current highest unit number SAVE IUNIT C............................................................................ C....... begin body of JUNIT: IF ( IUNIT .GE. BOT ) THEN JUNIT = IUNIT IUNIT = IUNIT - 1 ELSE DO 11 J = BOT, TOP INQUIRE( UNIT=J, OPENED=FLAG ) IF ( .NOT. FLAG ) THEN JUNIT = J RETURN END IF 11 CONTINUE C......... If you get to here: failure WRITE (*,91001) BOT, TOP, IUNIT CALL EXIT( 2 ) END IF RETURN C************************* FORMAT STATEMENTS ************************** C Error and warning message formats 91xxx 91001 FORMAT (///, 1X, '*** ERROR ABORT IN ROUTINE JUNIT ***', & /, 5X, 'NO MORE UNIT NUMBERS AVAILABLE FOR I/O', & /, 5X, 'First POSIX-approved unit:', I4 , & /, 5X, 'Last POSIX-approved unit:', I4 , & /, 5X, 'Current unit: ', I4 , & //) END ================================================ FILE: UTIL/create_ebi/src/module_env_functions.F ================================================ MODULE GET_ENV_FUNCTIONS IMPLICIT NONE PUBLIC :: GET_ENV_STRING, GET_ENV_FLAG, GET_ENV_INT, GET_ENV_REAL, & GET_ENVLIST, VALUE_NAME INTEGER, PARAMETER, PRIVATE :: LOGDEV = 6 INTEGER, PARAMETER, PRIVATE :: MAX_LEN_WORD = 16 CONTAINS SUBROUTINE VALUE_NAME( VAR_NAME, VAR_VALUE ) IMPLICIT NONE CHARACTER*(*), INTENT( IN ) :: VAR_NAME CHARACTER*(*), INTENT( OUT ) :: VAR_VALUE INTEGER :: STATUS CALL GET_ENV_STRING( VAR_NAME, " ", VAR_NAME, VAR_VALUE, STATUS ) END SUBROUTINE VALUE_NAME SUBROUTINE GET_ENV_STRING( VAR_NAME, VAR_DESC, VAR_DEFAULT, VAR_VALUE, STATUS ) IMPLICIT NONE !arguments CHARACTER*(*), INTENT( IN ) :: VAR_NAME CHARACTER*(*), INTENT( IN ) :: VAR_DESC CHARACTER*(*), INTENT( IN ) :: VAR_DEFAULT CHARACTER*(*), INTENT( OUT ) :: VAR_VALUE INTEGER, INTENT( OUT ) :: STATUS !local CHARACTER( 586 ) :: MSG ! Message text CALL GET_ENVIRONMENT_VARIABLE( NAME=VAR_NAME, VALUE= VAR_VALUE, STATUS=STATUS, TRIM_NAME=.TRUE.) IF( STATUS .LT. 0 ) THEN MSG = 'ERROR in environment value for ' // TRIM( VAR_NAME ) WRITE(LOGDEV,'(a)')TRIM( MSG ) ELSE IF( STATUS .EQ. 1 )THEN STATUS = -1 VAR_VALUE = TRIM( VAR_DEFAULT ) ELSE IF( STATUS .GT. 1 )THEN STATUS = 1 MSG = 'ERROR in environment value for ' // TRIM( VAR_NAME ) WRITE(LOGDEV,'(a)')TRIM( MSG ) MSG = 'ERROR Processor does not support environment variables ' WRITE(LOGDEV,'(a)') END IF IF( STATUS .EQ. 0 )THEN MSG = ' Value for ' // TRIM( VAR_NAME ) // ': ' // TRIM( VAR_VALUE ) WRITE(LOGDEV,'(a)')TRIM( MSG ) END IF END SUBROUTINE GET_ENV_STRING LOGICAL FUNCTION GET_ENV_FLAG( VAR_NAME, VAR_DESC, VAR_DEFAULT, STATUS ) IMPLICIT NONE !arguments CHARACTER*(*), INTENT( IN ) :: VAR_NAME CHARACTER*(*), INTENT( IN ) :: VAR_DESC LOGICAL, INTENT( IN ) :: VAR_DEFAULT INTEGER, INTENT( OUT ) :: STATUS !local CHARACTER( 586 ) :: MSG ! Message text CHARACTER( 1 ) :: VAR_VALUE CHARACTER( 5 ) :: REPLY CALL GET_ENVIRONMENT_VARIABLE( NAME=VAR_NAME, VALUE= VAR_VALUE, STATUS=STATUS, TRIM_NAME=.TRUE.) IF( STATUS .LT. 0 ) THEN MSG = 'ERROR in environment value for ' // TRIM( VAR_NAME ) WRITE(LOGDEV,'(a)')TRIM( MSG ) STATUS = 1 ELSE IF( STATUS .EQ. 1 )THEN STATUS = -1 GET_ENV_FLAG = VAR_DEFAULT WRITE(LOGDEV,' (A,L)')'Environment Variable ' & // TRIM( VAR_NAME ) // ' missing.' & // ' Using default value of ',VAR_DEFAULT STATUS = -1 ELSE IF( STATUS .GT. 1 )THEN STATUS = 1 MSG = 'ERROR in environment value for ' // TRIM( VAR_NAME ) WRITE(LOGDEV,'(a)')TRIM( MSG ) MSG = 'ERROR Processor does not support environment variables ' WRITE(LOGDEV,'(a)') ELSE STATUS = 0 IF( VAR_VALUE(1:1) .EQ. 'T' .OR. VAR_VALUE(1:1) .EQ. 'Y' )THEN GET_ENV_FLAG = .TRUE. ELSE IF( VAR_VALUE(1:1) .EQ. 't' .OR. VAR_VALUE(1:1) .EQ. 'y' )THEN GET_ENV_FLAG = .TRUE. ELSE IF( VAR_VALUE(1:1) .EQ. 'F' .OR. VAR_VALUE(1:1) .EQ. 'N' )THEN GET_ENV_FLAG = .FALSE. ELSE IF( VAR_VALUE(1:1) .EQ. 'f' .OR. VAR_VALUE(1:1) .EQ. 'n' )THEN GET_ENV_FLAG = .FALSE. ELSE WRITE(LOGDEV,' (A,L)')'Environment Variable ' & // TRIM( VAR_NAME ) // ' must equal T, Y, F, or N.' & // ' Using default value of ',VAR_DEFAULT STATUS = -1 GET_ENV_FLAG = VAR_DEFAULT END IF END IF IF( STATUS .EQ. 0 )THEN IF( GET_ENV_FLAG )THEN REPLY = 'TRUE ' ELSE REPLY = 'FALSE' END IF WRITE(MSG,'(a,L1,a)')' Value for ' // TRIM( VAR_NAME ) // ': ',GET_ENV_FLAG, & ' returning ' // REPLY WRITE(LOGDEV,'(a)')TRIM( MSG ) END IF END FUNCTION GET_ENV_FLAG INTEGER FUNCTION GET_ENV_INT( VAR_NAME, VAR_DESC, VAR_DEFAULT, STATUS ) IMPLICIT NONE !arguments CHARACTER*(*), INTENT( IN ) :: VAR_NAME CHARACTER*(*), INTENT( IN ) :: VAR_DESC INTEGER, INTENT( IN ) :: VAR_DEFAULT INTEGER, INTENT( OUT ) :: STATUS !local CHARACTER( 120 ) :: MSG ! Message text CHARACTER( 120 ) :: VAR_VALUE CHARACTER( 5 ) :: REPLY INTEGER :: READ_VALUE CALL GET_ENVIRONMENT_VARIABLE( NAME=VAR_NAME, VALUE= VAR_VALUE, STATUS=STATUS, TRIM_NAME=.TRUE.) IF( STATUS .LT. 0 ) THEN MSG = 'ERROR in environment value for ' // TRIM( VAR_NAME ) WRITE(LOGDEV,'(a)')TRIM( MSG ) STATUS = 1 ELSE IF( STATUS .EQ. 1 )THEN STATUS = -1 GET_ENV_INT = VAR_DEFAULT WRITE(LOGDEV,' (A,I8)')'Environment Variable ' & // TRIM( VAR_NAME ) // ' missing.' & // ' Using default value of ',VAR_DEFAULT ELSE IF( STATUS .GT. 1 )THEN STATUS = 1 MSG = 'ERROR in environment value for ' // TRIM( VAR_NAME ) WRITE(LOGDEV,'(a)')TRIM( MSG ) MSG = 'ERROR Processor does not support environment variables ' WRITE(LOGDEV,'(a)') ELSE STATUS = 0 READ(VAR_VALUE , *)READ_VALUE GET_ENV_INT = READ_VALUE WRITE(MSG,'(a,I8)')' Value for ' // TRIM( VAR_NAME ) // ': ', & GET_ENV_INT WRITE(LOGDEV,'(a)')TRIM( MSG ) END IF END FUNCTION GET_ENV_INT REAL FUNCTION GET_ENV_REAL( VAR_NAME, VAR_DESC, VAR_DEFAULT, STATUS ) IMPLICIT NONE !arguments CHARACTER*(*), INTENT( IN ) :: VAR_NAME CHARACTER*(*), INTENT( IN ) :: VAR_DESC REAL, INTENT( IN ) :: VAR_DEFAULT INTEGER, INTENT( OUT ) :: STATUS !local CHARACTER( 120 ) :: MSG ! Message text CHARACTER( 120 ) :: VAR_VALUE CHARACTER( 5 ) :: REPLY CALL GET_ENVIRONMENT_VARIABLE( NAME=VAR_NAME, VALUE= VAR_VALUE, STATUS=STATUS, TRIM_NAME=.TRUE.) IF( STATUS .LT. 0 ) THEN MSG = 'ERROR in environment value for ' // TRIM( VAR_NAME ) WRITE(LOGDEV,'(a)')TRIM( MSG ) STATUS = 1 ELSE IF( STATUS .EQ. 1 )THEN STATUS = -1 GET_ENV_REAL = VAR_DEFAULT WRITE(LOGDEV,' (A,ES13.3)')' ' & // TRIM( VAR_NAME ) // ' is not set.' & // ' Using default value of ',VAR_DEFAULT ELSE IF( STATUS .GT. 1 )THEN STATUS = 1 MSG = 'ERROR in environment value for ' // TRIM( VAR_NAME ) WRITE(LOGDEV,'(a)')TRIM( MSG ) MSG = 'ERROR Processor does not support environment variables ' WRITE(LOGDEV,'(a)') ELSE STATUS = 0 READ(VAR_VALUE,*)GET_ENV_REAL WRITE(MSG,'(a,ES13.3)')' Value for ' // TRIM( VAR_NAME ) // ': ', & GET_ENV_REAL WRITE(LOGDEV,'(a)')TRIM( MSG ) END IF END FUNCTION GET_ENV_REAL SUBROUTINE GET_DDMONYY(DATE) IMPLICIT NONE CHARACTER(*), INTENT(INOUT) :: DATE CHARACTER( 2 ) :: DD CHARACTER( 3 ) :: MONS(1:12) CHARACTER( 4 ) :: YYYY INTEGER :: STIME, VALUES(8) MONS = (/'Jan','Feb','Mar','Apr','May','Jun', & 'Jul','Aug','Sep','Oct','Nov','Dec' /) CALL DATE_AND_TIME(VALUES=VALUES) WRITE( DD,'(I2)') VALUES(3) ! DD = '00' WRITE(YYYY,'(I4)') (0 + VALUES(1)) PRINT*,MONS(VALUES(2)) // DD // YYYY(1:4) DATE = MONS(VALUES(2)) // ' ' // DD // ', ' // YYYY(1:4) END SUBROUTINE GET_DDMONYY INTEGER FUNCTION NAME_INDEX( NAME, N_NAMES, NAMES ) IMPLICIT NONE CHARACTER(*), INTENT( IN ) :: NAME CHARACTER(*), INTENT( IN ) :: NAMES( : ) INTEGER, INTENT( IN ) :: N_NAMES INTEGER :: N,M NAME_INDEX = 0 M = SIZE( NAMES ) IF( M .LT. 1 )RETURN DO N = 1, M IF( NAME .EQ. NAMES( N ) )THEN NAME_INDEX = N RETURN END IF END DO RETURN END FUNCTION NAME_INDEX SUBROUTINE GET_ENVLIST ( ENV_VAR, NVARS, VAL_LIST, STATUS ) C get a list env var (quoted string of items delimited by white space, C commas or semi-colons) and parse out the items into variables. Two data C types: character strings and integers (still represented as strings in C the env var vaules). C Examples: C 1) setenv AVG_CONC_VARS "O3 NO NO2" C 2) setenv AVG_CONC_LAYS "2 5" < start at two, end at 5 C 3) setenv NPCOLSXNPROWS "4 3" C 4) setenv BCOL_ECOL "3 8" C 5) setenv BROW_EROW "2 10" C 6) setenv BLAY_ELAY "1 5" C In example (1), not only parse out the named items "O3", "NO" and "NO2", C but also obtain the count on the number of itmes (=3). ! Revision: 2013/02/11 David Wong: increased the max env var length from 256 to 1000 ! 13 Dec 2013 J.Young: 1000 breaks BUFLEN in IOAPI's envgets.c. Change to 512. ! 17 Jun 2016 J.Young: IOAPI's envgets.c BUFLEN has been increased to 10000. ! 20 Jun 2016 J.Young: Forget IOAPI's envgets.c: use Fortran GETENV ! 16 Mar 2018 B.Hutzell: Removed IOAPI, changed from GOTO to Do loop, and ! from GETENV to GET_ENVIRONMENT_VARIABLE intrinsic IMPLICIT NONE CHARACTER( * ), INTENT ( IN ) :: ENV_VAR INTEGER, INTENT ( OUT ) :: NVARS CHARACTER( * ), INTENT ( OUT ) :: VAL_LIST( : ) INTEGER, INTENT ( OUT ) :: STATUS INTEGER :: MAX_LEN INTEGER :: LEN_EVAL CHARACTER( 16 ) :: PNAME = 'GET_ENVLIST' CHARACTER( 1 ) :: CHR CHARACTER( 132) :: XMSG CHARACTER( MAX_LEN_WORD*SIZE( VAL_LIST ) ) :: E_VAL INTEGER :: JP( MAX_LEN_WORD*SIZE( VAL_LIST ) ) INTEGER :: KP( MAX_LEN_WORD*SIZE( VAL_LIST ) ) INTEGER :: IP, V MAX_LEN = MAX_LEN_WORD * ( SIZE( VAL_LIST ) + 1 ) ! multiple by 17 to allow deliminator C env_var_name C | env_var_value C | | ! CALL GETENV( ENV_VAR, E_VAL ) C env_var_name C | env_var_value C | | CALL GET_ENVIRONMENT_VARIABLE( NAME=ENV_VAR, VALUE=E_VAL, STATUS=STATUS, TRIM_NAME=.TRUE.) IF( STATUS .LT. 0 ) THEN XMSG = 'ERROR in environment value for ' // TRIM( ENV_VAR ) WRITE(LOGDEV,'(a)')TRIM( XMSG ) STATUS = 1 STOP ELSE IF( STATUS .EQ. 1 )THEN STATUS = -1 RETURN ELSE IF( STATUS .GT. 1 )THEN STATUS = 1 XMSG = 'ERROR in environment value for ' // TRIM( ENV_VAR ) WRITE(LOGDEV,'(a)')TRIM( XMSG ) XMSG = 'ERROR Processor does not support environment variables ' WRITE(LOGDEV,'(a)') STOP END IF IF ( E_VAL .EQ. " " ) THEN STATUS = 1 XMSG = 'Environment variable ' // ENV_VAR // ' not set' WRITE(LOGDEV,'(A,I8)')TRIM( XMSG ), SIZE( VAL_LIST ) NVARS = 0 RETURN END IF STATUS = 0 C Parse: NVARS = 0 C don't count until 1st char in string IP = 0 KP = 1 JP = 1 LEN_EVAL = LEN_TRIM( E_VAL ) IF ( LEN_EVAL .GT. MAX_LEN ) THEN XMSG = TRIM( PNAME ) // ': The Environment variable, ' & // TRIM( ENV_VAR ) // ', has too long, greater than ' WRITE(LOGDEV,'(A,I8)')TRIM( XMSG ), MAX_LEN STOP END IF 101 LOOP_101: DO ! read list IP = IP + 1 IF ( IP .GT. LEN_EVAL ) EXIT LOOP_101 CHR = E_VAL( IP:IP ) IF ( CHR .EQ. ' ' .OR. ICHAR ( CHR ) .EQ. 09 ) CYCLE LOOP_101 IF( NVARS .GT. SIZE( VAL_LIST ) )THEN XMSG = TRIM( PNAME ) // ':ERROR: Number of values in List, ' & // TRIM( ENV_VAR ) & // ', greater than the size of its storage array, ' WRITE(LOGDEV,'(A,I4)')TRIM( XMSG ), SIZE( VAL_LIST ) STOP END IF NVARS = NVARS + 1 JP( NVARS ) = IP ! 1st char IF( IP .EQ. LEN_EVAL )THEN ! word one character long KP( NVARS ) = IP V = 1 EXIT LOOP_101 END IF 201 LOOP_201: DO ! read word IP = IP + 1 CHR = E_VAL( IP:IP ) IF ( CHR .NE. ' ' .AND. & CHR .NE. ',' .AND. & CHR .NE. ';' .OR. & ICHAR ( CHR ) .EQ. 09 ) THEN ! 09 = horizontal tab CYCLE LOOP_201 ELSE ! last char in word KP( NVARS ) = IP - 1 V = JP( NVARS ) - IP IF( V .GT. MAX_LEN_WORD )THEN XMSG = 'The word, ' // E_VAL( JP(NVARS):KP(NVARS) ) & // ', in environment list, ' // TRIM( ENV_VAR ) & // ', is too long, ' WRITE(LOGDEV,'(A,1X,I2,A,I2)')TRIM( XMSG ), V, ' max allowed ', & MAX_LEN_WORD STOP END IF EXIT LOOP_201 END IF IF ( IP .GE. LEN_EVAL ) EXIT LOOP_101 END DO LOOP_201 END DO LOOP_101 IF( NVARS .GT. SIZE( VAL_LIST ) )THEN XMSG = TRIM( PNAME ) // ':ERROR: Number of values in List, ' & // TRIM( ENV_VAR ) // ', greater than ' WRITE(LOGDEV,'(A,I4)')TRIM( XMSG ), SIZE( VAL_LIST ) STOP END IF DO V = 1, NVARS VAL_LIST( V ) = E_VAL( JP( V ):KP( V ) ) END DO RETURN END SUBROUTINE GET_ENVLIST END MODULE GET_ENV_FUNCTIONS ================================================ FILE: UTIL/create_ebi/src/module_envvar.F ================================================ MODULE ENV_VARS USE GET_ENV_FUNCTIONS ! routines that retrieve environment data IMPLICIT NONE CHARACTER( 15 ) :: CR_DATE ! Run date ! CHARACTER( 16 ) :: AE_TAG ! aerosol name used in MECHNAME ! CHARACTER( 16 ) :: GC_TAG ! gas chem name used in MECHNAME ! CHARACTER( 16 ) :: AQ_TAG ! aq chem name used in MECHNAME CHARACTER( 16 ) :: MECH_NO ! Mech name for NO CHARACTER( 16 ) :: MECH_NO2 ! Mech name for NO2 CHARACTER( 16 ) :: MECH_O3 ! Mech name for O3 CHARACTER( 16 ) :: MECH_O3P ! Mech name for O3P CHARACTER( 16 ) :: MECH_O1D ! Mech name for O1D CHARACTER( 16 ) :: MECH_OH ! Mech name for OH CHARACTER( 16 ) :: MECH_HO2 ! Mech name for HO2 CHARACTER( 16 ) :: MECH_HONO ! Mech name for HONO CHARACTER( 16 ) :: MECH_HNO4 ! Mech name for HNO4 CHARACTER( 16 ) :: MECH_PAN ! Mech name for PAN CHARACTER( 16 ) :: MECH_C2O3 ! Mech name for C2O3 CHARACTER( 16 ) :: MECH_N2O5 ! Mech name for N2O5 CHARACTER( 16 ) :: MECH_NO3 ! Mech name for NO3 CHARACTER( 16 ) :: MECH_NO2EX = 'NO2EX' ! Mech name for NO2EX CHARACTER( 586 ) :: OUTPATH ! Output directory CHARACTER( 586 ) :: TMPLPATH ! Output directory LOGICAL :: L_ALL_MECHS ! Flag for all mechs (F=1 mech) LOGICAL :: LWR_COPY ! Flag to include copyright notice LOGICAL :: LWR_CVS_HDR ! Flag to include CVS headr line LOGICAL :: LPAR_NEG ! Flag for negative PAR stoich (cb4) LOGICAL :: LNO2EX_CYCLE ! Flag for to include NO2EX cycle in groups 1 & 2 LOGICAL :: LDEGRADE_SUBS ! Flag for include degrade codes for HAPs REAL :: TIME_STEP = 2.5 ! maximum solver time step in minutes INTEGER, PARAMETER :: LOGDEV = 6 CONTAINS SUBROUTINE GET_ENVS C************************************************************************* C C FUNCTION: Gets environment variables C C PRECONDITIONS: None C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by Jerry Gipson, February, 2004 C Modified Nov 04 by JG to get group species names C vi environment variables C Modified Dec 09 by JG to remove reset of LERROR to C false for each species name retrieval C Modified Dec 09 by JG to allow for inclusion C of NO2EX cycle in Groups 1 and 2 C C************************************************************************* IMPLICIT NONE C..INCLUDES: None C..ARGUMENTS: None C..PARAMETERS: None C..EXTERNAL FUNCTIONS: None C..SAVED LOCAL VARIABLES: None C..SCRATCH LOCAL VARIABLES: CHARACTER( 16 ) :: PNAME = 'GET_ENVS' ! Program Name CHARACTER( 5 ) :: TZ ! Time zone CHARACTER( 16 ) :: ENV_DFLT ! Environment variable default value CHARACTER( 24 ) :: TIMNDAT ! Wall clock time and date CHARACTER( 80 ) :: ENV_DESC ! Environment variable description CHARACTER( 80 ) :: MSG ! Message text CHARACTER( 256 ) :: RET_VAL ! Returned value of env var c........env var names CHARACTER( 16 ) :: ALL_MECHS = 'ALL_MECHS' CHARACTER( 16 ) :: GC_NAME = 'GC_NAME' CHARACTER( 16 ) :: AE_NAME = 'AE_NAME' CHARACTER( 16 ) :: AQ_NAME = 'AQ_NAME' CHARACTER( 16 ) :: OUTDIR = 'OUTDIR' CHARACTER( 16 ) :: TMPLDIR = 'TMPLDIR' CHARACTER( 16 ) :: COPYRT_FLAG = 'COPYRT_FLAG' CHARACTER( 16 ) :: CVS_HDR_FLAG = 'CVS_HDR_FLAG' CHARACTER( 16 ) :: PAR_NEG_FLAG = 'PAR_NEG_FLAG' CHARACTER( 16 ) :: NO2EX_FLAG = 'NO2EX_CYCLE' CHARACTER( 16 ) :: DEGRADE_SUBS = 'DEGRADE_SUBS' CHARACTER( 16 ) :: SOLVER_DELT = 'SOLVER_DELT' INTEGER :: EPOS ! String end position INTEGER :: STATUS ! Status code INTEGER :: IDATE ! Wall-clock date INTEGER :: ITIME ! Wall clock time LOGICAL :: LERROR ! Error Flag REAL :: DELT C********************************************************************** cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Get the time and date to be used as the time stamp for all outputs; c Convert from GMT to EDT or EST cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc CALL GET_DDMONYY(CR_DATE) ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Get flags for versions of mechanism to create cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc L_ALL_MECHS = .FALSE. ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Get names to use for the mechanism ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc ! ENV_DFLT = ' ' ! ENV_DESC = 'gas mechanism name' ! CALL GET_ENV_STRING( GC_NAME, ENV_DESC, ENV_DFLT, GC_TAG, STATUS ) ! IF( STATUS .NE. 0 .AND. LEN(GC_TAG) .GT. 1 ) THEN ! MSG = TRIM( PNAME ) // ': Gas phase mechanism not defined' ! WRITE(LOGDEV,'(a)')TRIM( MSG ) ! STOP ! END IF ! ENV_DFLT = ' ' ! ENV_DESC = 'aerosol mechanism name' ! CALL GET_ENV_STRING( AE_NAME, ENV_DESC, ENV_DFLT, AE_TAG, STATUS ) ! IF( STATUS .NE. 0 .AND. LEN(AE_TAG) .GT. 1 ) THEN ! MSG = TRIM( PNAME ) // ': Aerosol phase mechanism not defined' ! WRITE(LOGDEV,'(a)')TRIM( MSG ) ! STOP ! END IF ! ENV_DFLT = ' ' ! ENV_DESC = 'aq chem mechanism name' ! CALL GET_ENV_STRING( AQ_NAME, ENV_DESC, ENV_DFLT, AQ_TAG, STATUS ) ! IF( STATUS .NE. 0 .AND. LEN(AQ_TAG) .GT. 1 ) THEN ! MSG = TRIM( PNAME ) // ': Aqueous phase mechanism not defined' ! WRITE(LOGDEV,'(a)')TRIM( MSG ) ! STOP ! END IF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Get the name of the output directory and template directory cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc ENV_DFLT = './output' ENV_DESC = 'Output directory' CALL GET_ENV_STRING( OUTDIR, ENV_DESC, ENV_DFLT, OUTPATH, STATUS) IF( STATUS .GT. 0 ) THEN MSG = 'ERROR: no path assigned to OUTDIR' WRITE(LOGDEV,'(a)')TRIM( MSG ) END IF ENV_DFLT = './tmpldir' ENV_DESC = 'Template directory' CALL GET_ENV_STRING( TMPLDIR, ENV_DESC, ENV_DFLT, TMPLPATH, STATUS) IF( STATUS .NE. 0 ) THEN MSG = 'ERROR: no path assigned to TMPLDIR' WRITE(LOGDEV,'(a)')TRIM( MSG ) END IF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Get the flags for writing copyright and CVS header cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc LWR_COPY = .FALSE. ! ENV_DESC = 'Flag to write copyright notice' ! LWR_COPY = GET_ENV_FLAG( COPYRT_FLAG, ENV_DESC, LWR_COPY, STATUS ) LWR_CVS_HDR = .FALSE. ! ENV_DESC = 'Flag to write cvs hear notice' ! LWR_CVS_HDR = GET_ENV_FLAG( CVS_HDR_FLAG, ENV_DESC, LWR_CVS_HDR, STATUS ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Get the flag for including PAR negative stoichiometry cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc LPAR_NEG = .FALSE. ENV_DESC = 'Flag to include PAR negative stoichiometry' LPAR_NEG = GET_ENV_FLAG( PAR_NEG_FLAG, ENV_DESC, LPAR_NEG, STATUS ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Get the flag for including Degradation routines cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc LDEGRADE_SUBS = .FALSE. ENV_DESC = 'Flag to include call to HAPs degradation routines' LDEGRADE_SUBS = GET_ENV_FLAG( DEGRADE_SUBS, ENV_DESC, LDEGRADE_SUBS, STATUS ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Get the flag for including NO2EX in groups 1 and 2 cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc LNO2EX_CYCLE = .FALSE. ! ENV_DESC = 'Flag to include PAR negative stoichiometry' ! LNO2EX_CYCLE = GET_ENV_FLAG( NO2EX_FLAG, ENV_DESC, LNO2EX_CYCLE, STATUS ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Get the value for maximum solver timestep cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc ENV_DESC = 'Maximum EBI Solver TimeStep (minutes)' TIME_STEP = GET_ENV_REAL( SOLVER_DELT, ENV_DESC, TIME_STEP, STATUS ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Get the mechanism names for group species cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc LERROR = .FALSE. c..Group 1 species ENV_DFLT = ' ' ENV_DESC = 'Mechanism name for nitrogen dioxide (NO2)' CALL GET_ENV_STRING( 'MECH_NO2', ENV_DESC, ENV_DFLT, MECH_NO2, STATUS) IF( STATUS .NE. 0 ) THEN MSG = 'ERROR: Environment variable MECH_NO2 not found' WRITE(LOGDEV,'(a)')TRIM( MSG ) LERROR = .TRUE. END IF c LERROR = .FALSE. ENV_DFLT = ' ' ENV_DESC = 'Mechanism name for nitric oxide (NO)' CALL GET_ENV_STRING( 'MECH_NO', ENV_DESC, ENV_DFLT, MECH_NO, STATUS) IF( STATUS .NE. 0 ) THEN MSG = 'ERROR: Environment variable MECH_NO not found' WRITE(LOGDEV,'(a)')TRIM( MSG ) LERROR = .TRUE. END IF c LERROR = .FALSE. ENV_DFLT = ' ' ENV_DESC = 'Mechanism name for ozone (O3)' CALL GET_ENV_STRING( 'MECH_O3', ENV_DESC, ENV_DFLT, MECH_O3, STATUS) IF( STATUS .NE. 0 ) THEN MSG = 'ERROR: Environment variable MECH_O3 not found' WRITE(LOGDEV,'(a)')TRIM( MSG ) LERROR = .TRUE. END IF c LERROR = .FALSE. ENV_DFLT = ' ' ENV_DESC = 'Mechanism name for excited-state atomic oxygen (O1D)' CALL GET_ENV_STRING( 'MECH_O1D', ENV_DESC, ENV_DFLT, MECH_O1D, STATUS) IF( STATUS .NE. 0 ) THEN MSG = 'ERROR: Environment variable MECH_O1D not found' WRITE(LOGDEV,'(a)')TRIM( MSG ) LERROR = .TRUE. END IF c LERROR = .FALSE. ENV_DFLT = ' ' ENV_DESC = 'Mechanism name for ground-state atomic oxygen (O3P)' CALL GET_ENV_STRING( 'MECH_O3P', ENV_DESC, ENV_DFLT, MECH_O3P, STATUS) IF( STATUS .NE. 0 ) THEN MSG = 'ERROR: Environment variable MECH_O3P not found' WRITE(LOGDEV,'(a)')TRIM( MSG ) LERROR = .TRUE. END IF ! IF( LNO2EX_CYCLE ) THEN ! ENV_DFLT = ' ' ! ENV_DESC = 'Mechanism name for excited NO2 oxygen (NO2EX)' ! CALL GET_ENV_STRING( 'MECH_NO2EX', ENV_DESC, ENV_DFLT, MECH_NO2EX, STATUS) ! ! IF( STATUS .NE. 0 ) THEN ! MSG = 'ERROR: Environment variable MECH_NO2EX not found' ! WRITE(LOGDEV,'(a)')TRIM( MSG ) ! LERROR = .TRUE. ! END IF ! END IF c..Group 2 species c LERROR = .FALSE. ENV_DFLT = ' ' ENV_DESC = 'Mechanism name for hydroxyl radical (OH)' CALL GET_ENV_STRING( 'MECH_OH', ENV_DESC, ENV_DFLT, MECH_OH, STATUS) IF( STATUS .NE. 0 ) THEN MSG = 'ERROR: Environment variable MECH_OH not found' WRITE(LOGDEV,'(a)')TRIM( MSG ) LERROR = .TRUE. END IF c LERROR = .FALSE. ENV_DFLT = ' ' ENV_DESC = 'Mechanism name for hydroperoxy radical (HO2)' CALL GET_ENV_STRING( 'MECH_HO2', ENV_DESC, ENV_DFLT, MECH_HO2, STATUS) IF( STATUS .NE. 0 ) THEN MSG = 'ERROR: Environment variable MECH_HO2 not found' WRITE(LOGDEV,'(a)')TRIM( MSG ) LERROR = .TRUE. END IF c LERROR = .FALSE. ENV_DFLT = ' ' ENV_DESC = 'Mechanism name for nitrous acid (HONO)' CALL GET_ENV_STRING( 'MECH_HONO', ENV_DESC, ENV_DFLT, MECH_HONO, STATUS) IF( STATUS .NE. 0 ) THEN MSG = 'ERROR: Environment variable MECH_HONO not found' WRITE(LOGDEV,'(a)')TRIM( MSG ) LERROR = .TRUE. END IF c LERROR = .FALSE. ENV_DFLT = ' ' ENV_DESC = 'Mechanism name for pernitric acid (HNO4)' CALL GET_ENV_STRING( 'MECH_HNO4', ENV_DESC, ENV_DFLT, MECH_HNO4, STATUS) IF( STATUS .NE. 0 ) THEN MSG = 'ERROR: Environment variable MECH_HNO4 not found' WRITE(LOGDEV,'(a)')TRIM( MSG ) LERROR = .TRUE. END IF c..Group 3 species c LERROR = .FALSE. ENV_DFLT = ' ' ENV_DESC = 'Mechanism name for peroxy acetyl nitrate (PAN)' CALL GET_ENV_STRING( 'MECH_PAN', ENV_DESC, ENV_DFLT, MECH_PAN, STATUS) IF( STATUS .NE. 0 ) THEN MSG = 'ERROR: Environment variable MECH_PAN not found' WRITE(LOGDEV,'(a)')TRIM( MSG ) LERROR = .TRUE. END IF c LERROR = .FALSE. ENV_DFLT = ' ' ENV_DESC = 'Mechanism name for acetyl percoxy radical (C2O3)' CALL GET_ENV_STRING( 'MECH_C2O3', ENV_DESC, ENV_DFLT, MECH_C2O3, STATUS) IF( STATUS .NE. 0 ) THEN MSG = 'ERROR: Environment variable MECH_C2O3 not found' WRITE(LOGDEV,'(a)')TRIM( MSG ) LERROR = .TRUE. END IF c..Group 4 species c LERROR = .FALSE. ENV_DFLT = ' ' ENV_DESC = 'Mechanism name for nitrate radical (NO3)' CALL GET_ENV_STRING( 'MECH_NO3', ENV_DESC, ENV_DFLT, MECH_NO3, STATUS) IF( STATUS .NE. 0 ) THEN MSG = 'ERROR: Environment variable MECH_NO3 not found' WRITE(LOGDEV,'(a)')TRIM( MSG ) LERROR = .TRUE. END IF c LERROR = .FALSE. ENV_DFLT = ' ' ENV_DESC = 'Mechanism name for nitrogen pentoxide (N2O5)' CALL GET_ENV_STRING( 'MECH_N2O5', ENV_DESC, ENV_DFLT, MECH_N2O5, STATUS) IF( STATUS .NE. 0 ) THEN MSG = 'ERROR: Environment variable MECH_N2O5 not found' WRITE(LOGDEV,'(a)')TRIM( MSG ) LERROR = .TRUE. END IF IF( LERROR ) THEN MSG = TRIM( PNAME ) // ': Stopping because of error in defining group species' WRITE(LOGDEV,'(a)')TRIM( MSG ) STOP END IF RETURN 92000 FORMAT( /2X, 'The following mechanism versions will be created:' & / A / 1X ) END SUBROUTINE GET_ENVS END MODULE ENV_VARS ================================================ FILE: UTIL/create_ebi/src/module_envvar_new.F ================================================ MODULE ENV_VARS IMPLICIT NONE CHARACTER( 15 ) :: CR_DATE ! Run date CHARACTER( 16 ) :: AE_TAG ! aerosol name used in MECHNAME CHARACTER( 16 ) :: GC_TAG ! gas chem name used in MECHNAME CHARACTER( 16 ) :: AQ_TAG ! aq chem name used in MECHNAME CHARACTER( 16 ) :: MECH_NO ! Mech name for NO CHARACTER( 16 ) :: MECH_NO2 ! Mech name for NO2 CHARACTER( 16 ) :: MECH_O3 ! Mech name for O3 CHARACTER( 16 ) :: MECH_O3P ! Mech name for O3P CHARACTER( 16 ) :: MECH_O1D ! Mech name for O1D CHARACTER( 16 ) :: MECH_OH ! Mech name for OH CHARACTER( 16 ) :: MECH_HO2 ! Mech name for HO2 CHARACTER( 16 ) :: MECH_HONO ! Mech name for HONO CHARACTER( 16 ) :: MECH_HNO4 ! Mech name for HNO4 CHARACTER( 16 ) :: MECH_PAN ! Mech name for PAN CHARACTER( 16 ) :: MECH_C2O3 ! Mech name for C2O3 CHARACTER( 16 ) :: MECH_N2O5 ! Mech name for N2O5 CHARACTER( 16 ) :: MECH_NO3 ! Mech name for NO3 CHARACTER( 16 ) :: MECH_NO2EX ! Mech name for NO2EX CHARACTER( 256 ) :: OUTPATH ! Output directory CHARACTER( 256 ) :: TMPLPATH ! Output directory LOGICAL :: L_ALL_MECHS ! Flag for all mechs (F=1 mech) LOGICAL :: LWR_COPY ! Flag to include copyright notice LOGICAL :: LWR_CVS_HDR ! Flag to include CVS headr line LOGICAL :: LPAR_NEG ! Flag for negative PAR stoich (cb4) LOGICAL :: LNO2EX_CYCLE ! Flag for to include NO2EX cycle in groups 1 & 2 CONTAINS SUBROUTINE GET_ENVS C************************************************************************* C C FUNCTION: Gets environment variables C C PRECONDITIONS: None C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by Jerry Gipson, February, 2004 C Modified Nov 04 by JG to get group species names C vi environment variables C Modified Dec 09 by JG to remove reset of LERROR to C false for each species name retrieval C Modified Dec 09 by JG to allow for inclusion C of NO2EX cycle in Groups 1 and 2 C C************************************************************************* IMPLICIT NONE C..INCLUDES: INCLUDE SUBST_IOPARMS ! IOAPI parameters INCLUDE SUBST_IODECL ! IOAPI declarations C..ARGUMENTS: None C..PARAMETERS: None C..EXTERNAL FUNCTIONS: CHARACTER*24 DT2STR ! Function to get character date and time INTEGER ENVINT ! get value of integer environment variable LOGICAL ENVYN ! get value of logical environment variable LOGICAL ISDSTIME ! True if DST in effect C..SAVED LOCAL VARIABLES: None C..SCRATCH LOCAL VARIABLES: CHARACTER( 16 ) :: PNAME = 'GET_ENVS' ! Program Name CHARACTER( 5 ) :: TZ ! Time zone CHARACTER( 16 ) :: ENV_DFLT ! Environment variable default value CHARACTER( 24 ) :: TIMNDAT ! Wall clock time and date CHARACTER( 80 ) :: ENV_DESC ! Environment variable description CHARACTER( 80 ) :: MSG ! Message text CHARACTER( 256 ) :: RET_VAL ! Returned value of env var c........env var names CHARACTER( 16 ) :: ALL_MECHS = 'ALL_MECHS' CHARACTER( 16 ) :: GC_NAME = 'GC_NAME' CHARACTER( 16 ) :: AE_NAME = 'AE_NAME' CHARACTER( 16 ) :: AQ_NAME = 'AQ_NAME' CHARACTER( 16 ) :: OUTDIR = 'OUTDIR' CHARACTER( 16 ) :: TMPLDIR = 'TMPLDIR' CHARACTER( 16 ) :: COPYRT_FLAG = 'COPYRT_FLAG' CHARACTER( 16 ) :: CVS_HDR_FLAG = 'CVS_HDR_FLAG' CHARACTER( 16 ) :: PAR_NEG_FLAG = 'PAR_NEG_FLAG' CHARACTER( 16 ) :: NO2EX_FLAG = 'NO2EX_CYCLE' INTEGER :: EPOS ! String end position INTEGER :: LOGDEV ! Unit no. for output log INTEGER :: STATUS ! Status code INTEGER :: IDATE ! Wall-clock date INTEGER :: ITIME ! Wall clock time LOGICAL :: LERROR ! Error Flag C********************************************************************** LOGDEV = INIT3() cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Get the time and date to be used as the time stamp for all outputs; c Convert from GMT to EDT or EST cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc CALL GETDTTIME( IDATE, ITIME ) c..glg work around on 3/19/09 c IF( ISDSTIME( IDATE ) ) THEN c CALL NEXTIME( IDATE, ITIME, -40000 ) c TZ = ' EDT ' c ELSE c CALL NEXTIME( IDATE, ITIME, -50000 ) c TZ = ' EST ' c END IF CALL NEXTIME( IDATE, ITIME, -40000 ) TZ = ' EDT' c..glg work around on 3/19/09 TIMNDAT = DT2STR( IDATE, ITIME ) CR_DATE = ADJUSTL( TIMNDAT( 10 : 24 ) ) ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Get flags for versions of mechanism to create cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc L_ALL_MECHS = .TRUE. ENV_DESC = 'Flag do all mechanisms or one' L_ALL_MECHS = ENVYN( ALL_MECHS, ENV_DESC, L_ALL_MECHS, STATUS ) ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Get names to use for the mechanism ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc ENV_DFLT = ' ' ENV_DESC = 'gas mechanism name' CALL ENVSTR( GC_NAME, ENV_DESC, ENV_DFLT, GC_TAG, STATUS ) IF( STATUS .NE. 0 ) THEN MSG = 'Gas phase mechanism not defined' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT2 ) END IF ENV_DFLT = ' ' ENV_DESC = 'aerosol mechanism name' CALL ENVSTR( AE_NAME, ENV_DESC, ENV_DFLT, AE_TAG, STATUS ) IF( STATUS .NE. 0 ) THEN MSG = 'Aerosol phase mechanism not defined' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT2 ) END IF ENV_DFLT = ' ' ENV_DESC = 'aq chem mechanism name' CALL ENVSTR( AQ_NAME, ENV_DESC, ENV_DFLT, AQ_TAG, STATUS ) IF( STATUS .NE. 0 ) THEN MSG = 'Aerosol phase mechanism not defined' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT2 ) END IF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Get the name of the output directory and template directory cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc ENV_DFLT = './output' ENV_DESC = 'Output directory' CALL ENVSTR( OUTDIR, ENV_DESC, ENV_DFLT, OUTPATH, STATUS) IF( STATUS .NE. 0 ) THEN MSG = 'ERROR: no path assigned to OUTDIR' CALL M3MESG( MSG ) END IF ENV_DFLT = './tmpldir' ENV_DESC = 'Template directory' CALL ENVSTR( TMPLDIR, ENV_DESC, ENV_DFLT, TMPLPATH, STATUS) IF( STATUS .NE. 0 ) THEN MSG = 'ERROR: no path assigned to TMPLDIR' CALL M3MESG( MSG ) END IF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Get the flags for writing copyright and CVS header cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc LWR_COPY = .FALSE. ENV_DESC = 'Flag to write copyright notice' LWR_COPY = ENVYN( COPYRT_FLAG, ENV_DESC, LWR_COPY, STATUS ) LWR_CVS_HDR = .FALSE. ENV_DESC = 'Flag to write copyright notice' LWR_CVS_HDR = ENVYN( CVS_HDR_FLAG, ENV_DESC, LWR_CVS_HDR, STATUS ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Get the flag for including PAR negative stoichiometry cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc LPAR_NEG = .FALSE. ENV_DESC = 'Flag to include PAR negative stoichiometry' LPAR_NEG = ENVYN( PAR_NEG_FLAG, ENV_DESC, LPAR_NEG, STATUS ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Get the flag for including NO2EX in groups 1 and 2 cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc LNO2EX_CYCLE = .FALSE. ENV_DESC = 'Flag to include PAR negative stoichiometry' LNO2EX_CYCLE = ENVYN( NO2EX_FLAG, ENV_DESC, LNO2EX_CYCLE, STATUS ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Get the mechanism names for group species cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc LERROR = .FALSE. c..Group 1 species ENV_DFLT = ' ' ENV_DESC = 'Mechanism name for nitrogen dioxide (NO2)' CALL ENVSTR( 'MECH_NO2', ENV_DESC, ENV_DFLT, MECH_NO2, STATUS) IF( STATUS .NE. 0 ) THEN MSG = 'ERROR: Environment variable MECH_NO2 not found' CALL M3MESG( MSG ) LERROR = .TRUE. END IF c LERROR = .FALSE. ENV_DFLT = ' ' ENV_DESC = 'Mechanism name for nitric oxide (NO)' CALL ENVSTR( 'MECH_NO', ENV_DESC, ENV_DFLT, MECH_NO, STATUS) IF( STATUS .NE. 0 ) THEN MSG = 'ERROR: Environment variable MECH_NO not found' CALL M3MESG( MSG ) LERROR = .TRUE. END IF c LERROR = .FALSE. ENV_DFLT = ' ' ENV_DESC = 'Mechanism name for ozone (O3)' CALL ENVSTR( 'MECH_O3', ENV_DESC, ENV_DFLT, MECH_O3, STATUS) IF( STATUS .NE. 0 ) THEN MSG = 'ERROR: Environment variable MECH_O3 not found' CALL M3MESG( MSG ) LERROR = .TRUE. END IF c LERROR = .FALSE. ENV_DFLT = ' ' ENV_DESC = 'Mechanism name for excited-state atomic oxygen (O1D)' CALL ENVSTR( 'MECH_O1D', ENV_DESC, ENV_DFLT, MECH_O1D, STATUS) IF( STATUS .NE. 0 ) THEN MSG = 'ERROR: Environment variable MECH_O1D not found' CALL M3MESG( MSG ) LERROR = .TRUE. END IF c LERROR = .FALSE. ENV_DFLT = ' ' ENV_DESC = 'Mechanism name for ground-state atomic oxygen (O3P)' CALL ENVSTR( 'MECH_O3P', ENV_DESC, ENV_DFLT, MECH_O3P, STATUS) IF( STATUS .NE. 0 ) THEN MSG = 'ERROR: Environment variable MECH_O3P not found' CALL M3MESG( MSG ) LERROR = .TRUE. END IF IF( LNO2EX_CYCLE ) THEN ENV_DFLT = ' ' ENV_DESC = 'Mechanism name for excited NO2 oxygen (NO2EX)' CALL ENVSTR( 'MECH_NO2EX', ENV_DESC, ENV_DFLT, MECH_NO2EX, STATUS) IF( STATUS .NE. 0 ) THEN MSG = 'ERROR: Environment variable MECH_NO2EX not found' CALL M3MESG( MSG ) LERROR = .TRUE. END IF END IF c..Group 2 species c LERROR = .FALSE. ENV_DFLT = ' ' ENV_DESC = 'Mechanism name for hydroxyl radical (OH)' CALL ENVSTR( 'MECH_OH', ENV_DESC, ENV_DFLT, MECH_OH, STATUS) IF( STATUS .NE. 0 ) THEN MSG = 'ERROR: Environment variable MECH_OH not found' CALL M3MESG( MSG ) LERROR = .TRUE. END IF c LERROR = .FALSE. ENV_DFLT = ' ' ENV_DESC = 'Mechanism name for hydroperoxy radical (HO2)' CALL ENVSTR( 'MECH_HO2', ENV_DESC, ENV_DFLT, MECH_HO2, STATUS) IF( STATUS .NE. 0 ) THEN MSG = 'ERROR: Environment variable MECH_HO2 not found' CALL M3MESG( MSG ) LERROR = .TRUE. END IF c LERROR = .FALSE. ENV_DFLT = ' ' ENV_DESC = 'Mechanism name for nitrous acid (HONO)' CALL ENVSTR( 'MECH_HONO', ENV_DESC, ENV_DFLT, MECH_HONO, STATUS) IF( STATUS .NE. 0 ) THEN MSG = 'ERROR: Environment variable MECH_HONO not found' CALL M3MESG( MSG ) LERROR = .TRUE. END IF c LERROR = .FALSE. ENV_DFLT = ' ' ENV_DESC = 'Mechanism name for pernitric acid (HNO4)' CALL ENVSTR( 'MECH_HNO4', ENV_DESC, ENV_DFLT, MECH_HNO4, STATUS) IF( STATUS .NE. 0 ) THEN MSG = 'ERROR: Environment variable MECH_HNO4 not found' CALL M3MESG( MSG ) LERROR = .TRUE. END IF c..Group 3 species c LERROR = .FALSE. ENV_DFLT = ' ' ENV_DESC = 'Mechanism name for peroxy acetyl nitrate (PAN)' CALL ENVSTR( 'MECH_PAN', ENV_DESC, ENV_DFLT, MECH_PAN, STATUS) IF( STATUS .NE. 0 ) THEN MSG = 'ERROR: Environment variable MECH_PAN not found' CALL M3MESG( MSG ) LERROR = .TRUE. END IF c LERROR = .FALSE. ENV_DFLT = ' ' ENV_DESC = 'Mechanism name for acetyl percoxy radical (C2O3)' CALL ENVSTR( 'MECH_C2O3', ENV_DESC, ENV_DFLT, MECH_C2O3, STATUS) IF( STATUS .NE. 0 ) THEN MSG = 'ERROR: Environment variable MECH_C2O3 not found' CALL M3MESG( MSG ) LERROR = .TRUE. END IF c..Group 4 species c LERROR = .FALSE. ENV_DFLT = ' ' ENV_DESC = 'Mechanism name for nitrate radical (NO3)' CALL ENVSTR( 'MECH_NO3', ENV_DESC, ENV_DFLT, MECH_NO3, STATUS) IF( STATUS .NE. 0 ) THEN MSG = 'ERROR: Environment variable MECH_NO3 not found' CALL M3MESG( MSG ) LERROR = .TRUE. END IF c LERROR = .FALSE. ENV_DFLT = ' ' ENV_DESC = 'Mechanism name for nitrogen pentoxide (N2O5)' CALL ENVSTR( 'MECH_N2O5', ENV_DESC, ENV_DFLT, MECH_N2O5, STATUS) IF( STATUS .NE. 0 ) THEN MSG = 'ERROR: Environment variable MECH_N2O5 not found' CALL M3MESG( MSG ) LERROR = .TRUE. END IF IF( LERROR ) THEN MSG = 'Stopping because of error in defining group species' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT2 ) END IF RETURN 92000 FORMAT( /2X, 'The following mechanism versions will be created:' & / A / 1X ) END SUBROUTINE GET_ENVS END MODULE ENV_VARS ================================================ FILE: UTIL/create_ebi/src/module_envvar_test.F ================================================ MODULE ENV_VARS IMPLICIT NONE CHARACTER( 15 ) :: CR_DATE ! Run date CHARACTER( 16 ) :: AE_TAG ! aerosol name used in MECHNAME CHARACTER( 16 ) :: GC_TAG ! gas chem name used in MECHNAME CHARACTER( 16 ) :: AQ_TAG ! aq chem name used in MECHNAME CHARACTER( 16 ) :: MECH_NO ! Mech name for NO CHARACTER( 16 ) :: MECH_NO2 ! Mech name for NO2 CHARACTER( 16 ) :: MECH_O3 ! Mech name for O3 CHARACTER( 16 ) :: MECH_O3P ! Mech name for O3P CHARACTER( 16 ) :: MECH_O1D ! Mech name for O1D CHARACTER( 16 ) :: MECH_OH ! Mech name for OH CHARACTER( 16 ) :: MECH_HO2 ! Mech name for HO2 CHARACTER( 16 ) :: MECH_HONO ! Mech name for HONO CHARACTER( 16 ) :: MECH_HNO4 ! Mech name for HNO4 CHARACTER( 16 ) :: MECH_PAN ! Mech name for PAN CHARACTER( 16 ) :: MECH_C2O3 ! Mech name for C2O3 CHARACTER( 16 ) :: MECH_N2O5 ! Mech name for N2O5 CHARACTER( 16 ) :: MECH_NO3 ! Mech name for NO3 CHARACTER( 16 ) :: MECH_NO2EX ! Mech name for NO2EX CHARACTER( 256 ) :: OUTPATH ! Output directory CHARACTER( 256 ) :: TMPLPATH ! Output directory LOGICAL :: L_ALL_MECHS ! Flag for all mechs (F=1 mech) LOGICAL :: LWR_COPY ! Flag to include copyright notice LOGICAL :: LWR_CVS_HDR ! Flag to include CVS headr line LOGICAL :: LPAR_NEG ! Flag for negative PAR stoich (cb4) LOGICAL :: LNO2EX_CYCLE ! Flag for to include NO2EX cycle in groups 1 & 2 LOGICAL :: LDEGRADE_SUBS ! Flag for include degrade codes for HAPs CONTAINS SUBROUTINE GET_ENVS C************************************************************************* C C FUNCTION: Gets environment variables C C PRECONDITIONS: None C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by Jerry Gipson, February, 2004 C Modified Nov 04 by JG to get group species names C vi environment variables C Modified Dec 09 by JG to remove reset of LERROR to C false for each species name retrieval C Modified Dec 09 by JG to allow for inclusion C of NO2EX cycle in Groups 1 and 2 C C************************************************************************* USE M3UTILIO ! IOAPI parameters and functions declarations IMPLICIT NONE C..INCLUDES: ! INCLUDE SUBST_IOPARMS ! IOAPI parameters ! INCLUDE SUBST_IODECL ! IOAPI declarations C..ARGUMENTS: None C..PARAMETERS: None C..EXTERNAL FUNCTIONS: ! CHARACTER*24 DT2STR ! Function to get character date and time ! INTEGER ENVINT ! get value of integer environment variable ! LOGICAL ENVYN ! get value of logical environment variable ! LOGICAL ISDSTIME ! True if DST in effect C..SAVED LOCAL VARIABLES: None C..SCRATCH LOCAL VARIABLES: CHARACTER( 16 ) :: PNAME = 'GET_ENVS' ! Program Name CHARACTER( 5 ) :: TZ ! Time zone CHARACTER( 16 ) :: ENV_DFLT ! Environment variable default value CHARACTER( 24 ) :: TIMNDAT ! Wall clock time and date CHARACTER( 80 ) :: ENV_DESC ! Environment variable description CHARACTER( 80 ) :: MSG ! Message text CHARACTER( 256 ) :: RET_VAL ! Returned value of env var c........env var names CHARACTER( 16 ) :: ALL_MECHS = 'ALL_MECHS' CHARACTER( 16 ) :: GC_NAME = 'GC_NAME' CHARACTER( 16 ) :: AE_NAME = 'AE_NAME' CHARACTER( 16 ) :: AQ_NAME = 'AQ_NAME' CHARACTER( 16 ) :: OUTDIR = 'OUTDIR' CHARACTER( 16 ) :: TMPLDIR = 'TMPLDIR' CHARACTER( 16 ) :: COPYRT_FLAG = 'COPYRT_FLAG' CHARACTER( 16 ) :: CVS_HDR_FLAG = 'CVS_HDR_FLAG' CHARACTER( 16 ) :: PAR_NEG_FLAG = 'PAR_NEG_FLAG' CHARACTER( 16 ) :: NO2EX_FLAG = 'NO2EX_CYCLE' CHARACTER( 16 ) :: DEGRADE_SUBS = 'DEGRADE_SUBS' INTEGER :: EPOS ! String end position INTEGER :: LOGDEV ! Unit no. for output log INTEGER :: STATUS ! Status code INTEGER :: IDATE ! Wall-clock date INTEGER :: ITIME ! Wall clock time LOGICAL :: LERROR ! Error Flag C********************************************************************** LOGDEV = INIT3() cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Get the time and date to be used as the time stamp for all outputs; c Convert from GMT to EDT or EST cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc CALL GETDTTIME( IDATE, ITIME ) IF( ISDSTIME( IDATE ) ) THEN CALL NEXTIME( IDATE, ITIME, -40000 ) TZ = ' EDT ' ELSE CALL NEXTIME( IDATE, ITIME, -50000 ) TZ = ' EST ' END IF TIMNDAT = DT2STR( IDATE, ITIME ) CR_DATE = ADJUSTL( TIMNDAT( 10 : 24 ) ) ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Get flags for versions of mechanism to create cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc L_ALL_MECHS = .FALSE. ! ENV_DESC = 'Flag do all mechanisms or one' ! L_ALL_MECHS = ENVYN( ALL_MECHS, ENV_DESC, L_ALL_MECHS, STATUS ) ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Get names to use for the mechanism ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc ENV_DFLT = ' ' ENV_DESC = 'gas mechanism name' CALL ENVSTR( GC_NAME, ENV_DESC, ENV_DFLT, GC_TAG, STATUS ) IF( STATUS .NE. 0 ) THEN MSG = 'Gas phase mechanism not defined' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT2 ) END IF ENV_DFLT = ' ' ENV_DESC = 'aerosol mechanism name' CALL ENVSTR( AE_NAME, ENV_DESC, ENV_DFLT, AE_TAG, STATUS ) IF( STATUS .NE. 0 ) THEN MSG = 'Aerosol phase mechanism not defined' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT2 ) END IF ENV_DFLT = ' ' ENV_DESC = 'aq chem mechanism name' CALL ENVSTR( AQ_NAME, ENV_DESC, ENV_DFLT, AQ_TAG, STATUS ) IF( STATUS .NE. 0 ) THEN MSG = 'Aerosol phase mechanism not defined' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT2 ) END IF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Get the name of the output directory and template directory cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc ENV_DFLT = './output' ENV_DESC = 'Output directory' ! CALL ENVSTR( OUTDIR, ENV_DESC, ENV_DFLT, OUTPATH, STATUS) CALL GET_ENVIRONMENT_VARIABLE( NAME=OUTDIR, VALUE= OUTPATH, STATUS=STATUS, TRIM_NAME=.TRUE.) IF( STATUS .GT. 0 ) THEN MSG = 'ERROR: no path assigned to OUTDIR' CALL WRITE(6,*)TRIM( MSG ) ESLE IF( STATUS .LT. 0 )THEN OUTPATH = './output' END IF ENV_DFLT = './tmpldir' ENV_DESC = 'Template directory' CALL ENVSTR( TMPLDIR, ENV_DESC, ENV_DFLT, TMPLPATH, STATUS) IF( STATUS .NE. 0 ) THEN MSG = 'ERROR: no path assigned to TMPLDIR' CALL M3MESG( MSG ) END IF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Get the flags for writing copyright and CVS header cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc LWR_COPY = .FALSE. ENV_DESC = 'Flag to write copyright notice' LWR_COPY = ENVYN( COPYRT_FLAG, ENV_DESC, LWR_COPY, STATUS ) LWR_CVS_HDR = .FALSE. ENV_DESC = 'Flag to write copyright notice' LWR_CVS_HDR = ENVYN( CVS_HDR_FLAG, ENV_DESC, LWR_CVS_HDR, STATUS ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Get the flag for including PAR negative stoichiometry cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc LPAR_NEG = .FALSE. ENV_DESC = 'Flag to include PAR negative stoichiometry' LPAR_NEG = ENVYN( PAR_NEG_FLAG, ENV_DESC, LPAR_NEG, STATUS ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Get the flag for including Degradation routines cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc LDEGRADE_SUBS = .FALSE. ENV_DESC = 'Flag to include call to HAPs degradation routines' LDEGRADE_SUBS = ENVYN( DEGRADE_SUBS, ENV_DESC, LDEGRADE_SUBS, STATUS ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Get the flag for including NO2EX in groups 1 and 2 cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc LNO2EX_CYCLE = .FALSE. ENV_DESC = 'Flag to include PAR negative stoichiometry' LNO2EX_CYCLE = ENVYN( NO2EX_FLAG, ENV_DESC, LNO2EX_CYCLE, STATUS ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Get the mechanism names for group species cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc LERROR = .FALSE. c..Group 1 species ENV_DFLT = ' ' ENV_DESC = 'Mechanism name for nitrogen dioxide (NO2)' CALL ENVSTR( 'MECH_NO2', ENV_DESC, ENV_DFLT, MECH_NO2, STATUS) IF( STATUS .NE. 0 ) THEN MSG = 'ERROR: Environment variable MECH_NO2 not found' CALL M3MESG( MSG ) LERROR = .TRUE. END IF c LERROR = .FALSE. ENV_DFLT = ' ' ENV_DESC = 'Mechanism name for nitric oxide (NO)' CALL ENVSTR( 'MECH_NO', ENV_DESC, ENV_DFLT, MECH_NO, STATUS) IF( STATUS .NE. 0 ) THEN MSG = 'ERROR: Environment variable MECH_NO not found' CALL M3MESG( MSG ) LERROR = .TRUE. END IF c LERROR = .FALSE. ENV_DFLT = ' ' ENV_DESC = 'Mechanism name for ozone (O3)' CALL ENVSTR( 'MECH_O3', ENV_DESC, ENV_DFLT, MECH_O3, STATUS) IF( STATUS .NE. 0 ) THEN MSG = 'ERROR: Environment variable MECH_O3 not found' CALL M3MESG( MSG ) LERROR = .TRUE. END IF c LERROR = .FALSE. ENV_DFLT = ' ' ENV_DESC = 'Mechanism name for excited-state atomic oxygen (O1D)' CALL ENVSTR( 'MECH_O1D', ENV_DESC, ENV_DFLT, MECH_O1D, STATUS) IF( STATUS .NE. 0 ) THEN MSG = 'ERROR: Environment variable MECH_O1D not found' CALL M3MESG( MSG ) LERROR = .TRUE. END IF c LERROR = .FALSE. ENV_DFLT = ' ' ENV_DESC = 'Mechanism name for ground-state atomic oxygen (O3P)' CALL ENVSTR( 'MECH_O3P', ENV_DESC, ENV_DFLT, MECH_O3P, STATUS) IF( STATUS .NE. 0 ) THEN MSG = 'ERROR: Environment variable MECH_O3P not found' CALL M3MESG( MSG ) LERROR = .TRUE. END IF IF( LNO2EX_CYCLE ) THEN ENV_DFLT = ' ' ENV_DESC = 'Mechanism name for excited NO2 oxygen (NO2EX)' CALL ENVSTR( 'MECH_NO2EX', ENV_DESC, ENV_DFLT, MECH_NO2EX, STATUS) IF( STATUS .NE. 0 ) THEN MSG = 'ERROR: Environment variable MECH_NO2EX not found' CALL M3MESG( MSG ) LERROR = .TRUE. END IF END IF c..Group 2 species c LERROR = .FALSE. ENV_DFLT = ' ' ENV_DESC = 'Mechanism name for hydroxyl radical (OH)' CALL ENVSTR( 'MECH_OH', ENV_DESC, ENV_DFLT, MECH_OH, STATUS) IF( STATUS .NE. 0 ) THEN MSG = 'ERROR: Environment variable MECH_OH not found' CALL M3MESG( MSG ) LERROR = .TRUE. END IF c LERROR = .FALSE. ENV_DFLT = ' ' ENV_DESC = 'Mechanism name for hydroperoxy radical (HO2)' CALL ENVSTR( 'MECH_HO2', ENV_DESC, ENV_DFLT, MECH_HO2, STATUS) IF( STATUS .NE. 0 ) THEN MSG = 'ERROR: Environment variable MECH_HO2 not found' CALL M3MESG( MSG ) LERROR = .TRUE. END IF c LERROR = .FALSE. ENV_DFLT = ' ' ENV_DESC = 'Mechanism name for nitrous acid (HONO)' CALL ENVSTR( 'MECH_HONO', ENV_DESC, ENV_DFLT, MECH_HONO, STATUS) IF( STATUS .NE. 0 ) THEN MSG = 'ERROR: Environment variable MECH_HONO not found' CALL M3MESG( MSG ) LERROR = .TRUE. END IF c LERROR = .FALSE. ENV_DFLT = ' ' ENV_DESC = 'Mechanism name for pernitric acid (HNO4)' CALL ENVSTR( 'MECH_HNO4', ENV_DESC, ENV_DFLT, MECH_HNO4, STATUS) IF( STATUS .NE. 0 ) THEN MSG = 'ERROR: Environment variable MECH_HNO4 not found' CALL M3MESG( MSG ) LERROR = .TRUE. END IF c..Group 3 species c LERROR = .FALSE. ENV_DFLT = ' ' ENV_DESC = 'Mechanism name for peroxy acetyl nitrate (PAN)' CALL ENVSTR( 'MECH_PAN', ENV_DESC, ENV_DFLT, MECH_PAN, STATUS) IF( STATUS .NE. 0 ) THEN MSG = 'ERROR: Environment variable MECH_PAN not found' CALL M3MESG( MSG ) LERROR = .TRUE. END IF c LERROR = .FALSE. ENV_DFLT = ' ' ENV_DESC = 'Mechanism name for acetyl percoxy radical (C2O3)' CALL ENVSTR( 'MECH_C2O3', ENV_DESC, ENV_DFLT, MECH_C2O3, STATUS) IF( STATUS .NE. 0 ) THEN MSG = 'ERROR: Environment variable MECH_C2O3 not found' CALL M3MESG( MSG ) LERROR = .TRUE. END IF c..Group 4 species c LERROR = .FALSE. ENV_DFLT = ' ' ENV_DESC = 'Mechanism name for nitrate radical (NO3)' CALL ENVSTR( 'MECH_NO3', ENV_DESC, ENV_DFLT, MECH_NO3, STATUS) IF( STATUS .NE. 0 ) THEN MSG = 'ERROR: Environment variable MECH_NO3 not found' CALL M3MESG( MSG ) LERROR = .TRUE. END IF c LERROR = .FALSE. ENV_DFLT = ' ' ENV_DESC = 'Mechanism name for nitrogen pentoxide (N2O5)' CALL ENVSTR( 'MECH_N2O5', ENV_DESC, ENV_DFLT, MECH_N2O5, STATUS) IF( STATUS .NE. 0 ) THEN MSG = 'ERROR: Environment variable MECH_N2O5 not found' CALL M3MESG( MSG ) LERROR = .TRUE. END IF IF( LERROR ) THEN MSG = 'Stopping because of error in defining group species' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT2 ) END IF RETURN 92000 FORMAT( /2X, 'The following mechanism versions will be created:' & / A / 1X ) END SUBROUTINE GET_ENVS END MODULE ENV_VARS ================================================ FILE: UTIL/create_ebi/src/module_glbldata.F ================================================ MODULE GLOBAL_DATA IMPLICIT NONE INTEGER, PARAMETER :: MXRCT = 3 ! Max no. of reactants in a rxn INTEGER, PARAMETER :: MAXOUTFLS = 20 ! Max No. of output files generated c..Group species indices INTEGER :: NO = 0 INTEGER :: NO2 = 0 INTEGER :: O3 = 0 INTEGER :: O3P = 0 INTEGER :: O1D = 0 INTEGER :: OH = 0 INTEGER :: HO2 = 0 INTEGER :: HONO = 0 INTEGER :: HNO4 = 0 INTEGER :: NO3 = 0 INTEGER :: N2O5 = 0 INTEGER :: C2O3 = 0 INTEGER :: PAN = 0 INTEGER :: NO2EX = 0 INTEGER :: RXN_C2O3_SELF = 0 INTEGER :: CL = 0 ! Largest species character length INTEGER :: LL = 0 ! Largest reaction label length INTEGER :: N_AE_SPC = 0 ! No. of AE only species INTEGER :: N_AQ_SPC = 0 ! No. of AQ only species INTEGER :: N_GC_AE_SPC = 0 ! No. of species in AE mech INTEGER :: N_GC_AQ_SPC = 0 ! No. of species in AQ mech INTEGER :: N_GC_ONLY_SPC = 0 ! No. of species in gas-phase mech INTEGER :: N_GC_EBI = 0 ! No. of EBI species in GC mech INTEGER :: N_GC_AE_EBI = 0 ! No. of EBI species in AE mech INTEGER :: N_GC_AQ_EBI = 0 ! No. of EBI species in AQ mech INTEGER :: N_GC_ONLY_EBI = 0 ! No. of EBI species in gas-phase mech INTEGER :: NOUTFLS = 0 ! No. of output files generated C names of mechanism species , taken from GASCHEM_SPC in the RXDT.EXT file INTEGER, SAVE :: N_SPECIES CHARACTER( 16 ), ALLOCATABLE, SAVE :: SPECIES( : ) c..list of species in only in the AE & AQ mechanisms CHARACTER( 16 ), ALLOCATABLE :: AE_SPC( : ) CHARACTER( 16 ), ALLOCATABLE :: AQ_SPC( : ) c..complete list of species in AE, AQ, & gas-phase mechanisms CHARACTER( 16 ), ALLOCATABLE :: GC_AE_SPC( : ) CHARACTER( 16 ), ALLOCATABLE :: GC_AQ_SPC( : ) CHARACTER( 16 ), ALLOCATABLE :: GC_ONLY_SPC( : ) CHARACTER( 32 ) :: OUTFLNAM( MAXOUTFLS ) LOGICAL, ALLOCATABLE :: L_GC_EBI( : ) ! Flag for EBI GC species LOGICAL, ALLOCATABLE :: L_GC_AE_EBI( : ) LOGICAL, ALLOCATABLE :: L_GC_AQ_EBI( : ) LOGICAL, ALLOCATABLE :: L_GC_ONLY_EBI( : ) LOGICAL, ALLOCATABLE :: L_GC_ONLY_SPC( : ) ! Flag for gas-only species ! in SPECIES list LOGICAL, ALLOCATABLE :: L_LOW_TOL_SPC( : ) ! Low tolerance flag LOGICAL, ALLOCATABLE :: L_HII_TOL_SPC( : ) ! High or Tight tolerance flag LOGICAL, ALLOCATABLE :: L_RXFLAG( : ) LOGICAL, ALLOCATABLE :: L_SS_RXN_FLAG( : ) END MODULE GLOBAL_DATA ================================================ FILE: UTIL/create_ebi/src/set_glbldata.F ================================================ SUBROUTINE SET_GLBLDATA C********************************************************************** C C FUNCTION: Sets mechansim global data used by other subroutines C C PRECONDITIONS: None C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by Jerry Gipson, February, 2004 C Modified Nov 2004 by JG to use input group names C Modified Dec 2007 by Golam Sarwar to change RTOL for *RXN variables C Modified Nov 2009 by JG to add SS rxn flag C********************************************************************** USE ENV_VARS USE GLOBAL_DATA !! USE M3UTILIO ! IOAPI parameters and declarations USE RXNS_DATA IMPLICIT NONE C..INCLUDES: C..ARGUMENTS: None C..PARAMETERS: INTEGER, PARAMETER :: MAX_GRP_SPC = 20 ! Max no. species in group list INTEGER, PARAMETER :: N_LOW_TOL_SPC = 28 ! No. species w/ low tols, revised by Golam Sarwar INTEGER, PARAMETER :: N_HII_TOL_SPC = 4 ! No. species w/ strict rtols, revised by Golam Sarwar C..EXTERNAL FUNCTIONS: ! INTEGER NAME_INDEX ! C..SAVED LOCAL VARIABLES: None C..SCRATCH LOCAL VARIABLES: CHARACTER( 16 ) :: PNAME = 'SET_GLBLDATA' ! Program name CHARACTER( 16 ) :: GRP_SPC( MAX_GRP_SPC ) CHARACTER( 100 ) :: MSG CHARACTER( 16 ) :: LOW_TOL_SPC( N_LOW_TOL_SPC ) CHARACTER( 16 ) :: HII_TOL_SPC( N_HII_TOL_SPC ) = & (/ 'I ', 'IO ', 'HOI ', 'INO3' /) INTEGER :: EOS ! End of string position INTEGER :: N ! Loop index INTEGER :: IND INTEGER :: N_GRP_SPC ! No. of group species LOGICAL :: LERROR ! Error flag C********************************************************************** C *** revised by Golam Sarwar C DATA LOW_TOL_SPC / 'O' , 'O1D' , 'NTR' , 'SULF', !cb4 C & 'O3P' , 'O1D2' , 'SULF' , 'BZ_O', !saprc99 C & 'TBU_O' , 'BZNO2_O' , 'HOCOO' , !saprc99 C & 'O3P' , 'O1D' , 'SULF' / !radm2 DATA LOW_TOL_SPC / 'O' , 'O1D' , 'NTR' , 'SULF' , !cb05 & 'TOLNRXN', 'TOLHRXN' , 'XYLNRXN', 'XYLHRXN', !cb05 & 'ISOPRXN', 'TRPRXN ' , 'XYLNRXN', 'XYLHRXN', !cb05 & 'BNZNRXN', 'BNZHRXN ' , 'SESQRXN', 'SULRXN' , !cb05 & 'HCO3' , !cb05 & 'O3P' , 'O1D2' , 'BZ_O' , 'TBU_O' , !saprc99 & 'BZNO2_O', 'HOCOO' , 'ALK5RXN', & 'ALKRXN' , 'PAHRO2' , 'PAHHRXN', 'PAHNRXN' / ! version 5.1 SOA production C set up SPECIES array N_SPECIES = NUMB_MECH_SPC ALLOCATE( SPECIES( N_SPECIES + 1 ) ) SPECIES = ' ' DO N = 1, N_SPECIES SPECIES( N ) = CHEMISTRY_SPC( N ) END DO ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Get group species indices ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc LERROR = .FALSE. N = 0 c..NO NO = NAME_INDEX( MECH_NO, N_SPECIES, SPECIES ) IF( NO .NE. 0 ) THEN N = N +1 GRP_SPC( N ) = MECH_NO ELSE EOS = LEN_TRIM( MECH_NO ) MSG = 'ERROR: MECH_NO Group species ' // MECH_NO( 1 : EOS ) // & ' not found in mechanism' WRITE(LOGDEV,'(a)')TRIM( PNAME ) // ': ' // TRIM( MSG ) LERROR = .TRUE. END IF c..NO2 NO2 = NAME_INDEX( MECH_NO2, N_SPECIES, SPECIES ) IF( NO2 .NE. 0 ) THEN N = N +1 GRP_SPC( N ) = MECH_NO2 ELSE EOS = LEN_TRIM( MECH_NO2 ) MSG = 'ERROR: MECH_NO2 Group species ' // MECH_NO2( 1 : EOS ) // & ' not found in mechanism' WRITE(LOGDEV,'(a)')TRIM( PNAME ) // ': ' // TRIM( MSG ) LERROR = .TRUE. END IF c..O3 O3 = NAME_INDEX( MECH_O3, N_SPECIES, SPECIES ) IF( NO2 .NE. 0 ) THEN N = N +1 GRP_SPC( N ) = MECH_O3 ELSE EOS = LEN_TRIM( MECH_O3 ) MSG = 'ERROR: MECH_O3 Group species ' // MECH_O3( 1 : EOS ) // & ' not found in mechanism' WRITE(LOGDEV,'(a)')TRIM( PNAME ) // ': ' // TRIM( MSG ) LERROR = .TRUE. END IF c..O3P O3P = NAME_INDEX( MECH_O3P, N_SPECIES, SPECIES ) IF( O3P .NE. 0 ) THEN N = N +1 GRP_SPC( N ) = MECH_O3P ELSE EOS = LEN_TRIM( MECH_O3P ) MSG = 'ERROR: ECH_O3P Group species ' // MECH_O3P( 1 : EOS ) // & ' not found in mechanism' WRITE(LOGDEV,'(a)')TRIM( PNAME ) // ': ' // TRIM( MSG ) LERROR = .TRUE. END IF c..O1D O1D = NAME_INDEX( MECH_O1D, N_SPECIES, SPECIES ) IF( O1D .NE. 0 ) THEN N = N +1 GRP_SPC( N ) = MECH_O1D ELSE EOS = LEN_TRIM( MECH_O1D ) MSG = 'ERROR: MECH_O1D Group species value: ' // MECH_O1D( 1 : EOS ) // & ' not found in mechanism' WRITE(LOGDEV,'(a)')TRIM( PNAME ) // ': ' // TRIM( MSG ) LERROR = .TRUE. END IF c..OH OH = NAME_INDEX( MECH_OH, N_SPECIES, SPECIES ) IF( OH .NE. 0 ) THEN N = N +1 GRP_SPC( N ) = MECH_OH ELSE EOS = LEN_TRIM( MECH_OH ) MSG = 'ERROR: MECH_OH Group species ' // MECH_OH( 1 : EOS ) // & ' not found in mechanism' WRITE(LOGDEV,'(a)')TRIM( PNAME ) // ': ' // TRIM( MSG ) LERROR = .TRUE. END IF c..HO2 HO2 = NAME_INDEX( MECH_HO2 , N_SPECIES, SPECIES ) IF( HO2 .NE. 0 ) THEN N = N +1 GRP_SPC( N ) = MECH_HO2 ELSE EOS = LEN_TRIM( MECH_HO2 ) MSG = 'ERROR: MECH_HO2 Group species ' // MECH_HO2( 1 : EOS ) // & ' not found in mechanism' LERROR = .TRUE. END IF c..HONO HONO = NAME_INDEX( MECH_HONO, N_SPECIES, SPECIES ) IF( HONO .NE. 0 ) THEN N = N +1 GRP_SPC( N ) = MECH_HONO ELSE EOS = LEN_TRIM( MECH_HONO ) MSG = 'ERROR: MECH_HONO Group species ' // MECH_HONO( 1 : EOS ) // & ' not found in mechanism' WRITE(LOGDEV,'(a)')TRIM( PNAME ) // ': ' // TRIM( MSG ) LERROR = .TRUE. END IF c..HNO4 HNO4 = NAME_INDEX( MECH_HNO4, N_SPECIES, SPECIES ) IF( HNO4 .NE. 0 ) THEN N = N +1 GRP_SPC( N ) = MECH_HNO4 ELSE EOS = LEN_TRIM( MECH_HNO4 ) MSG = 'ERROR: MECH_HNO4 Group species ' // MECH_HNO4( 1 : EOS ) // & ' not found in mechanism' WRITE(LOGDEV,'(a)')TRIM( PNAME ) // ': ' // TRIM( MSG ) LERROR = .TRUE. END IF C..C2O3 C2O3 = NAME_INDEX( MECH_C2O3, N_SPECIES, SPECIES ) IF( C2O3 .NE. 0 ) THEN N = N +1 GRP_SPC( N ) = MECH_C2O3 ELSE EOS = LEN_TRIM( MECH_C2O3 ) MSG = 'ERROR: MECH_C2O3 Group species ' // MECH_C2O3( 1 : EOS ) // & ' not found in mechanism' WRITE(LOGDEV,'(a)')TRIM( PNAME ) // ': ' // TRIM( MSG ) LERROR = .TRUE. END IF C..PAN PAN = NAME_INDEX( MECH_PAN, N_SPECIES, SPECIES ) IF( PAN .NE. 0 ) THEN N = N +1 GRP_SPC( N ) = MECH_PAN ELSE EOS = LEN_TRIM( MECH_PAN ) MSG = 'ERROR: MECH_PAN Group species ' // MECH_PAN( 1 : EOS ) // & ' not found in mechanism' WRITE(LOGDEV,'(a)')TRIM( PNAME ) // ': ' // TRIM( MSG ) LERROR = .TRUE. END IF c..NO3 NO3 = NAME_INDEX( MECH_NO3, N_SPECIES, SPECIES ) IF( NO3 .NE. 0 ) THEN N = N +1 GRP_SPC( N ) = MECH_NO3 ELSE EOS = LEN_TRIM( MECH_NO3 ) MSG = 'ERROR: MECH_NO3 Group species ' // MECH_NO3( 1 : EOS ) // & ' not found in mechanism' LERROR = .TRUE. END IF c..N2O5 N2O5 = NAME_INDEX( MECH_N2O5, N_SPECIES, SPECIES ) IF( N2O5 .NE. 0 ) THEN N = N +1 GRP_SPC( N ) = MECH_N2O5 ELSE EOS = LEN_TRIM( MECH_N2O5 ) MSG = 'ERROR: MECH_N2O5 Group species ' // MECH_N2O5( 1 : EOS ) // & ' not found in mechanism' WRITE(LOGDEV,'(a)')TRIM( PNAME ) // ': ' // TRIM( MSG ) LERROR = .TRUE. END IF c..NO2EX IF( LNO2EX_CYCLE ) THEN NO2EX = NAME_INDEX( MECH_NO2EX, N_SPECIES, SPECIES ) IF( NO2EX .NE. 0 ) THEN N = N +1 GRP_SPC( N ) = MECH_NO2EX ELSE EOS = LEN_TRIM( MECH_NO2EX ) MSG = 'ERROR: MECH_NO2EXGroup species ' // MECH_NO2EX( 1 : EOS ) // & ' not found in mechanism' WRITE(LOGDEV,'(a)')TRIM( PNAME ) // ': ' // TRIM( MSG ) LERROR = .TRUE. END IF END IF N_GRP_SPC = N IF( LERROR ) THEN MSG = 'Stopping because of undefined group species name(s)' WRITE(LOGDEV,'(a)')TRIM( PNAME ) // ': ' // TRIM( MSG ) STOP END IF ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c If doing all mechanisms, get a list of species & find unique AE/AQ c species. Note three subroutines are needed because the include files c all use the same variable names (i.e., N_SPECIES & SPECIES) ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc N_AE_SPC = 0 N_AQ_SPC = 0 c..Flag species in SPECIES as gas-phase only or not ( i.e. AE or AQ) ALLOCATE( L_GC_ONLY_SPC( N_SPECIES ) ) IF( ALLOCATED( AE_SPC ) .OR. ALLOCATED( AQ_SPC ) )THEN DO N = 1, N_SPECIES L_GC_ONLY_SPC( N ) = .TRUE. IF( NAME_INDEX( SPECIES( N ), N_AE_SPC, AE_SPC ) .NE. 0 .OR. & NAME_INDEX( SPECIES( N ), N_AQ_SPC, AQ_SPC ) .NE. 0 ) & L_GC_ONLY_SPC( N ) = .FALSE. END DO ELSE L_GC_ONLY_SPC = .TRUE. END IF ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Find the max char lengths ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc DO N = 1, N_SPECIES CL = MAX( CL, LEN_TRIM( SPECIES( N ) ) ) END DO DO N = 1, NRXNS LL = MAX( LL, LEN_TRIM( RXLABEL( N ) ) ) END DO ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Tag each species as EBI or group ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc ALLOCATE( L_GC_EBI( N_SPECIES ) ) L_GC_EBI = .FALSE. DO N = 1, N_SPECIES IF( NAME_INDEX( SPECIES( N ), N_GRP_SPC, GRP_SPC ) .EQ. 0 ) THEN N_GC_EBI = N_GC_EBI + 1 L_GC_EBI( N ) = .TRUE. END IF END DO ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Tag gas-only species as low or high tolerance ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc ALLOCATE( L_LOW_TOL_SPC( N_SPECIES ) ) L_LOW_TOL_SPC = .FALSE. ALLOCATE(L_HII_TOL_SPC( N_SPECIES ) ) L_HII_TOL_SPC = .FALSE. DO N = 1, N_SPECIES IF( NAME_INDEX( SPECIES(N),N_LOW_TOL_SPC,LOW_TOL_SPC ) .NE. 0 ) THEN L_LOW_TOL_SPC( N ) = .TRUE. END IF END DO DO N = 1, N_SPECIES IF( NAME_INDEX( SPECIES(N),N_HII_TOL_SPC,HII_TOL_SPC ) .NE. 0 ) THEN L_HII_TOL_SPC( N ) = .TRUE. END IF END DO c..Tag NO2EX as low tol if cycle is in group 1 and 2 ! IF( LNO2EX_CYCLE ) L_LOW_TOL_SPC( NO2EX ) = .TRUE. IF( LNO2EX_CYCLE )THEN L_HII_TOL_SPC( NO ) = .TRUE. L_HII_TOL_SPC( NO2 ) = .TRUE. L_HII_TOL_SPC( NO2EX ) = .TRUE. END IF ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Set reaction rate flags - indicates RXRAT reference ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc ALLOCATE( L_RXFLAG( NRXNS ) ) L_RXFLAG = .FALSE. ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Set SS reactannt flags ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc ALLOCATE( L_SS_RXN_FLAG( NRXNS ) ) L_SS_RXN_FLAG = .FALSE. RETURN END SUBROUTINE GET_AE_SPC C********************************************************************** C C FUNCTION: Get a list of all species in the AE version of the mechanism C C PRECONDITIONS: None C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by Jerry Gipson, February, 2004 C C********************************************************************** USE GLOBAL_DATA IMPLICIT NONE C..INCLUDES: C..ARGUMENTS: None C..PARAMETERS: None C..EXTERNAL FUNCTIONS: None C..SAVED LOCAL VARIABLES: None C..SCRATCH LOCAL VARIABLES: INTEGER :: N ! Loop index C********************************************************************** N_GC_AE_SPC = N_SPECIES ALLOCATE( GC_AE_SPC( N_SPECIES ) ) DO N = 1, N_SPECIES GC_AE_SPC( N ) = SPECIES( N ) END DO RETURN END SUBROUTINE GET_AQ_SPC C********************************************************************** C C FUNCTION: Get a list of all species in the AQ version of the mechanism C C PRECONDITIONS: None C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by Jerry Gipson, February, 2004 C C********************************************************************** USE GLOBAL_DATA IMPLICIT NONE C..INCLUDES: C..ARGUMENTS: None C..PARAMETERS: None C..EXTERNAL FUNCTIONS: None C..SAVED LOCAL VARIABLES: None C..SCRATCH LOCAL VARIABLES: INTEGER :: N ! Loop index C********************************************************************** N_GC_AQ_SPC = N_SPECIES ALLOCATE( GC_AQ_SPC( N_SPECIES ) ) DO N = 1, N_SPECIES GC_AQ_SPC( N ) = SPECIES( N ) END DO RETURN END SUBROUTINE GET_GC_ONLY_SPC C********************************************************************** C C FUNCTION: Get a list of all species in the AE_AQ version of the mechanism C C PRECONDITIONS: None C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by Jerry Gipson, February, 2004 C C********************************************************************** USE GLOBAL_DATA IMPLICIT NONE C..INCLUDES: C..ARGUMENTS: None C..PARAMETERS: None C..EXTERNAL FUNCTIONS: None C..SAVED LOCAL VARIABLES: None C..SCRATCH LOCAL VARIABLES: INTEGER :: N ! Loop index C********************************************************************** N_GC_ONLY_SPC = N_SPECIES ALLOCATE( GC_ONLY_SPC( N_SPECIES ) ) DO N = 1, N_SPECIES GC_ONLY_SPC( N ) = SPECIES( N ) END DO RETURN END ================================================ FILE: UTIL/create_ebi/src/util_subs.F ================================================ SUBROUTINE SUM_COEFF( SUMC, RORP, SPINDX, NRX ) C********************************************************************** C C FUNCTION: Create source code for the hrgp1 subroutine in EBI C C PRECONDITIONS: None C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by Jerry Gipson, February, 2004 C C********************************************************************** USE ENV_VARS USE GLOBAL_DATA ! !!USE M3UTILIO ! IOAPI parameters and declarations USE RXNS_DATA ! mechanism data and specifications IMPLICIT NONE C..INCLUDES: C..ARGUMENTS: CHARACTER( * ) :: RORP ! Reactant or Product code INTEGER :: SPINDX ! Index of species INTEGER :: NRX ! Reaction number REAL( 8 ) :: SUMC ! Sum of species coefficients C..PARAMETERS: None C..EXTERNAL FUNCTIONS: None C..SAVED LOCAL VARIABLES: None CHARACTER( 16 ), SAVE :: PNAME = 'SUM_COEFF' ! Program name C..SCRATCH LOCAL VARIABLES: CHARACTER( 256 ) :: MSG ! Message text INTEGER :: P, R ! Loop indices C********************************************************************** SUMC = 0.0D0 IF( RORP .EQ. 'R' ) THEN DO R = 1, NREACT( NRX ) IF( IRR( NRX, R ) .EQ. SPINDX )SUMC = SUMC + 1.0D0 END DO RETURN ELSEIF( RORP .EQ. 'P' ) THEN DO P = 1, NPRDCT( NRX ) IF( IRR( NRX, P + MXRCT ) .EQ. SPINDX ) SUMC = SUMC + & SC( NRX, P ) END DO RETURN ELSE MSG = 'ERROR: Invalid code for SUM_COEFF - must be R or P ' WRITE(LOGDEV,'(a)')TRIM( PNAME ) // ': ' // TRIM( MSG ) STOP END IF END SUBROUTINE CMPRS_COEF( COUT, SGN, COEFF ) C********************************************************************** C C FUNCTION: Convert a coeff to compressed characters ( blank if 1.0 ) C C PRECONDITIONS: None C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by Jerry Gipson, February, 2004 C C********************************************************************** USE ENV_VARS USE GLOBAL_DATA !!USE M3UTILIO ! IOAPI parameters and declarations USE RXNS_DATA ! mechanism data and specifications IMPLICIT NONE C..INCLUDES: C..ARGUMENTS: CHARACTER( * ) :: COUT ! Reactant or Product code CHARACTER( * ) :: SGN ! Sign of coefficient REAL( 8 ) :: COEFF ! Coefficient C..PARAMETERS: None C..EXTERNAL FUNCTIONS: None C..SAVED LOCAL VARIABLES: None CHARACTER( 16 ), SAVE :: PNAME = 'CMPRS_COEF' ! Program name C..SCRATCH LOCAL VARIABLES: CHARACTER( 256 ) :: MSG ! Message text INTEGER :: N ! Loop index C********************************************************************** IF( COEFF .GE. 0.0D0 ) THEN SGN = '+' ELSE SGN = '-' COEFF = -1.0D0 * COEFF END IF COUT = ' ' IF( COEFF .EQ. 1.0D0 ) RETURN WRITE( COUT, '( D12.4 ) ' ) COEFF DO N = LEN( COUT ), 1, -1 IF( COUT( N : N ) .EQ. ' ' ) CYCLE ! IF( COUT( N : N ) .EQ. '0' .OR. COUT( N : N ) .EQ. '.' ) THEN ! COUT( N : N ) = ' ' ! ELSE ! EXIT ! END IF END DO COUT = ADJUSTL( COUT ) RETURN END SUBROUTINE CMPRS_RXN( RPOS1, RPOS2, PPOS1, PPOS2, IRX, RXOUT ) C********************************************************************** C C FUNCTION: Create a compressed mechanism reaction line with products C in specified order; C C PRECONDITIONS: None C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by Jerry Gipson, February, 2004 C C********************************************************************** USE ENV_VARS USE GLOBAL_DATA !!!!USE M3UTILIO ! IOAPI parameters and declarations USE RXNS_DATA ! mechanism data and specifications IMPLICIT NONE C..INCLUDES: ! INCLUDE SUBST_IOPARMS ! IOAPI parameters ! INCLUDE SUBST_IODECL ! IOAPI declarations C..ARGUMENTS: CHARACTER( * ) :: RXOUT ! Compressed reaction line INTEGER :: RPOS1 ! Species to occupy rctnt position 1 INTEGER :: RPOS2 ! Species to occupy rctnt position 2 INTEGER :: PPOS1 ! Species to occupy prod position 1 INTEGER :: PPOS2 ! Species to occupy prod position 2 INTEGER :: IRX ! Reaction index C..PARAMETERS: None C..EXTERNAL FUNCTIONS: None C..SAVED LOCAL VARIABLES: None CHARACTER( 16 ), SAVE :: PNAME = 'SUM_COEFF' ! Program name C..SCRATCH LOCAL VARIABLES: CHARACTER( 256 ) :: MSG ! Message text CHARACTER( 16 ) :: SAVSPEC CHARACTER*( 12 ) :: COUT ! Output coefficient CHARACTER*( 1 ) :: SGN ! Coefficient sign INTEGER :: EPOS ! end pos of string INTEGER :: EP ! end pos of character string INTEGER :: P, R ! Loop index INTEGER :: IND INTEGER :: LEN_RXOUT ! length of RXOUT string INTEGER :: SAVINDX ! Saved species index REAL( 8 ) :: SAVCOEF ! Saved coefficient CHARACTER( 16 ) :: RSPEC( MXRCT ) CHARACTER( 16 ) :: PSPEC( MXPRD ) INTEGER :: RINDX( MXRCT ) INTEGER :: PINDX( MXPRD ) REAL( 8 ) :: RCOEF( MXRCT ) REAL( 8 ) :: YCOEF( MXPRD ) C********************************************************************** c..determine length of RXOUT string LEN_RXOUT = LEN( RXOUT ) c..Load reactant species data into work arrays DO R = 1, NREACT( IRX ) RSPEC( R ) = SPECIES( IRR( IRX, R ) ) RINDX( R ) = IRR( IRX, R ) END DO c..Shuffle reactant positions if necessary IF( RPOS1 .NE. 0 ) THEN DO R = 2, NREACT( IRX ) IF( RINDX( R ) .EQ. RPOS1 ) THEN SAVSPEC = RSPEC( 1 ) SAVINDX = RINDX( 1 ) RSPEC( 1 ) = RSPEC( R ) RINDX( 1 ) = RINDX( R ) RSPEC( R ) = SAVSPEC RINDX( R ) = SAVINDX EXIT END IF END DO END IF IF( RPOS2 .NE. 0 ) THEN DO R = 3, NREACT( IRX ) IF( RINDX( R ) .EQ. RPOS2 ) THEN SAVSPEC = RSPEC( 2 ) SAVINDX = RINDX( 2 ) RSPEC( 2 ) = RSPEC( R ) RINDX( 2 ) = RINDX( R ) RSPEC( R ) = SAVSPEC RINDX( R ) = SAVINDX EXIT END IF END DO END IF c..Load product species data into work arrays DO P = 1, NPRDCT( IRX ) PINDX( P ) = IRR( IRX, P + 3 ) PSPEC( P ) = SPECIES( IRR( IRX, P + 3 ) ) YCOEF( P ) = SC( IRX, P ) END DO c..Shuffle product positions if necessary IF( PPOS1 .NE. 0 ) THEN DO P = 2, NPRDCT( IRX ) IF( PINDX( P ) .EQ. PPOS1 ) THEN SAVINDX = PINDX( 1 ) SAVSPEC = PSPEC( 1 ) SAVCOEF = YCOEF( 1 ) PINDX( 1 ) = PINDX( P ) PSPEC( 1 ) = PSPEC( P ) YCOEF( 1 ) = YCOEF( P ) PINDX( P ) = SAVINDX PSPEC( P ) = SAVSPEC YCOEF( P ) = SAVCOEF EXIT END IF END DO END IF IF( PPOS1 .NE. 0 ) THEN DO P = 3, NPRDCT( IRX ) IF( PINDX( P ) .EQ. PPOS2 ) THEN SAVINDX = PINDX( 2 ) SAVSPEC = PSPEC( 2 ) SAVCOEF = YCOEF( 2 ) PINDX( 2 ) = PINDX( P ) PSPEC( 2 ) = PSPEC( P ) YCOEF( 2 ) = YCOEF( P ) PINDX( P ) = SAVINDX PSPEC( P ) = SAVSPEC YCOEF( P ) = SAVCOEF EXIT END IF END DO END IF c..List the reactants IF( NREACT( IRX ) .EQ. 0 ) THEN RXOUT = '=' EPOS = 1 ELSE IND = IRR( IRX, 1 ) RXOUT = ADJUSTL( RSPEC( 1 ) ) EPOS = LEN_TRIM( RXOUT ) DO R = 2, NREACT( IRX ) RXOUT = RXOUT( 1 : EPOS ) // '+' // ADJUSTL( RSPEC( R ) ) EPOS = LEN_TRIM( RXOUT ) END DO RXOUT = RXOUT( 1 : EPOS ) // '=' EPOS = EPOS + 1 IF( EPOS .GE. LEN_RXOUT )RETURN END IF c..List the products DO P = 1, NPRDCT( IRX ) CALL CMPRS_COEF( COUT, SGN, YCOEF( P ) ) IF( P .GT. 1 .OR. ( P .EQ. 1 .AND. SGN .EQ. '-' ) ) THEN RXOUT = RXOUT( 1 : EPOS ) // SGN EPOS = EPOS + 1 IF( EPOS .GE. LEN_RXOUT )RETURN END IF EP = LEN_TRIM( COUT ) IF( EP .GT. 0 ) THEN RXOUT = RXOUT( 1 : EPOS ) // COUT( 1 : EP ) // '*' EPOS = LEN_TRIM( RXOUT ) END IF RXOUT = RXOUT( 1 : EPOS ) // PSPEC( P ) EPOS = LEN_TRIM( RXOUT ) END DO RETURN END SUBROUTINE TRIM_RXN( RXOUT, NPOS ) C********************************************************************** C C FUNCTION: Trim the reaction line C C PRECONDITIONS: None C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by Jerry Gipson, February, 2004 C C********************************************************************** USE ENV_VARS USE GLOBAL_DATA USE RXNS_DATA ! mechanism data and specifications IMPLICIT NONE C..INCLUDES: None C..ARGUMENTS: CHARACTER( * ) :: RXOUT ! Reactant or Product code INTEGER :: NPOS ! No of characters in string C..PARAMETERS: None C..EXTERNAL FUNCTIONS: None C..SAVED LOCAL VARIABLES: None CHARACTER( 16 ), SAVE :: PNAME = 'TRIM_RXN' ! Program name C..SCRATCH LOCAL VARIABLES: INTEGER :: ERX INTEGER :: N, P C********************************************************************** ERX = LEN_TRIM( RXOUT ) IF( ERX .LE. NPOS ) RETURN DO N = ERX, 1, -1 IF( RXOUT( N : N ) .EQ. '+' .OR. RXOUT( N : N ) .EQ. '-' .OR. & RXOUT( N : N ) .EQ. '=' ) THEN IF( N + 3 .GT. NPOS ) THEN CYCLE ELSE RXOUT( N + 1 : N + 3 ) = '...' DO P = N + 4 , ERX RXOUT( P : P ) = ' ' END DO EXIT END IF END IF END DO RETURN END SUBROUTINE BLD_OUTLINE( LINTYP, VNAME, PLSPEC, PLIND, COEFF, IRX, & GRPNO, NPOS, LINOUT, LRXN1, RPOS1, RPOS2, PPOS1, PPOS2 ) C********************************************************************** C C FUNCTION: Build the output line for specified variable name C C PRECONDITIONS: None C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by Jerry Gipson, February, 2004 C C********************************************************************** USE ENV_VARS USE GLOBAL_DATA !!USE M3UTILIO ! IOAPI parameters and declarations USE RXNS_DATA ! mechanism data and specifications IMPLICIT NONE C..INCLUDES: C..ARGUMENTS: CHARACTER( * ) :: LINTYP ! Reactant or Product code CHARACTER( * ) :: LINOUT ! Reactant or Product code CHARACTER( * ) :: VNAME ! Reactant or Product code CHARACTER( * ) :: PLSPEC ! Reactant or Product code INTEGER :: IRX ! No of characters in string INTEGER :: NPOS ! No of characters in string INTEGER :: GRPNO ! group number INTEGER :: PLIND ! species index INTEGER :: RPOS1 ! Index of 1st reactant INTEGER :: RPOS2 ! Index of 2nd reactant INTEGER :: PPOS1 ! Index of 1st product INTEGER :: PPOS2 ! Index of 2nd product LOGICAL :: LRXN1 ! Flag for first reaction REAL( 8 ) :: COEFF C..PARAMETERS: None C..EXTERNAL FUNCTIONS: None C..SAVED LOCAL VARIABLES: None CHARACTER( 16 ), SAVE :: PNAME = 'BLD_OUTLINE' ! Program name C..SCRATCH LOCAL VARIABLES: CHARACTER( 256 ) :: MSG ! Message text CHARACTER( 150 ) :: RXOUT ! Compressed rxn line CHARACTER( CL ) :: SPOUT ! Ouput species CHARACTER( 16 ) :: SPEC cglg CHARACTER*( 16 ) :: FILLR CHARACTER*( 80 ) :: FILLR CHARACTER*( 30 ) :: VOUT ! Output variable name CHARACTER*( 5 ) :: RNUM ! Reaction number CHARACTER*( 15 ) :: COUT ! Output coefficient CHARACTER*( 1 ) :: SGN ! Coefficient sign INTEGER :: NR ! Number of reactants INTEGER :: EPOS, EV ! end pos of string INTEGER :: ERX ! end pos of reaction string INTEGER :: N, R, S ! Loop indices INTEGER :: RCT( MXRCT ) C..SAVED LOCAL VARIABLES CHARACTER( 1 ), SAVE :: GROUP ! Group no (character) INTEGER, SAVE :: KO3_O1D = 0 INTEGER, SAVE :: KNO2_NO2EX = 0 C..SAVED LOGICAL VARIABLES LOGICAL, SAVE :: LFIRST = .TRUE. ! First call flag LOGICAL, SAVE :: FLAG_OH_S = .TRUE. ! controls OH_S write LOGICAL, SAVE :: FLAG_HO2_S = .TRUE. ! controls HO2_S write LOGICAL, SAVE :: USE_YCP = .FALSE. ! whether to YC or YCP C********************************************************************** IF( LFIRST ) THEN LFIRST = .FALSE. c..Find some special reactions and save their reaction number DO N = 1, NRXNS c..O3-->O1D IF( IRR( N, 1 ) .EQ. O3 .AND. IRR( N, 4 ) .EQ. O1D ) & KO3_O1D = N c..NO2-->NO2EX IF( LNO2EX_CYCLE ) THEN IF( IRR( N, 1 ) .EQ. NO2 .AND. IRR( N, 4 ) .EQ. NO2EX ) & KNO2_NO2EX = N END IF END DO END IF USE_YCP = .FALSE. WRITE( GROUP, '(I1)' ) GRPNO WRITE( RNUM , '( I5 )' ) IRX VOUT = ADJUSTL( VNAME ) EV = LEN_TRIM( VNAME ) DO S = 1, LEN(FILLR) FILLR( S : S ) = ' ' END DO IF( LINTYP .EQ. 'LFREQ' ) THEN ! for c..determine the reactant for the rate expression NR = 0 DO R = 1, MXRCT IF( IRR( IRX, R ) .GT. 0 .AND. IRR( IRX, R ) .NE. PLIND ) THEN NR = NR + 1 RCT( NR ) = IRR( IRX, R ) END IF END DO c..This section is necessary to properly do rxns of type NO+NO= IF( NR .EQ. 0 .AND. NREACT( IRX ) .EQ. 2 ) THEN NR = 1 RCT( NR ) = PLIND END IF IF( NR .GT. 1 ) THEN MSG = ' ' WRITE(LOGDEV,'(a)' )TRIM( MSG ) MSG = 'Warning: More than 1 reactant for ' // TRIM( VOUT ) & // ' term ( Reaction No. ' // TRIM ( RNUM ) // ' )' WRITE(LOGDEV,'(a)', ADVANCE = 'NO')TRIM( MSG ) MSG = ' check correctness of ' // TRIM( PLSPEC ) // & ' section in hrg' // TRIM( GROUP ) // '.F' WRITE(LOGDEV,'(a)')TRIM( MSG ) END IF c..build the output line COUT = ' ' IF( COEFF .NE. 1.0D0 ) WRITE( COUT, '( 1PD12.4, A )' ) COEFF, ' * ' IF( LRXN1 ) THEN LINOUT = ' ' // VOUT( 1 : EV ) // ' = ' // COUT // & 'RKI( ' // RNUM // ' )' ELSE LINOUT = ' &' // FILLR( 1 : MAX( 1, (EV-1) )) // ' + ' & // COUT // 'RKI( ' // RNUM // ' )' END IF EPOS = LEN_TRIM( LINOUT ) IF( NR .GE. 1 ) THEN DO R = 1, NR SPOUT = ADJUSTL( SPECIES( RCT( 1 ) ) ) USE_YCP = ( RCT( R ) .EQ. OH .OR. RCT( R ) .EQ. HO2 & .OR. RCT( R ) .EQ. O3P .OR. RCT( R ) .EQ. O3 & .OR. RCT( R ) .EQ. NO .OR. RCT( R ) .EQ. NO2 ) IF( VNAME .EQ. 'L15' .AND. USE_YCP )THEN LINOUT = LINOUT( 1 : EPOS ) // ' * YCP( ' // SPOUT // ' )' ELSE LINOUT = LINOUT( 1 : EPOS ) // ' * YC ( ' // SPOUT // ' )' END IF EPOS = LEN_TRIM( LINOUT ) END DO ELSE DO S = EPOS + 1, EPOS + CL + 10 LINOUT( S : S ) = ' ' END DO EPOS = EPOS + CL + 10 END IF LINOUT = LINOUT( 1 : EPOS ) // ' ' EPOS = EPOS + 3 CALL CMPRS_RXN( RPOS1, RPOS2, PPOS1, PPOS2, IRX, RXOUT ) CALL TRIM_RXN( RXOUT, NPOS ) ERX = LEN_TRIM( RXOUT ) LINOUT = LINOUT( 1 : EPOS ) // '! ' // RXOUT( 1 : ERX ) RETURN ELSEIF( LINTYP .EQ. 'RXRAT' ) THEN ! for COUT = ' ' IF( COEFF .NE. 1.0D0 ) WRITE( COUT, '( 1PD12.4, A )' ) COEFF, ' * ' c..special case for O3=O1D IF( VNAME .EQ. 'P12' .AND. IRR( IRX, 1 ) .EQ. O3 .AND. & IRR( IRX, 4 ) .EQ. O1D ) & COUT = ' O3P_S * ' c..special case for NO2EX=NO2 -- relate it to NO2->NO2EX IF( LNO2EX_CYCLE ) THEN IF( VNAME .EQ. 'P2' .AND. IRR( IRX, 1 ) .EQ. NO2EX .AND. & IRR( IRX, 4 ) .EQ. NO2 ) THEN WRITE( RNUM , '( I5 )' ) KNO2_NO2EX COUT = ' NO2_S * ' END IF END IF c..Special case for OH being formed form O1D -- relate it to O3 IF( VNAME .EQ. 'P4' .AND. IRR( IRX, 1 ) .EQ. O1D .AND. & IRR( IRX, 4 ) .EQ. OH ) THEN IF( FLAG_OH_S )THEN WRITE( RNUM , '( I5 )' ) KO3_O1D COUT = ' OH_S * ' ELSE LINOUT = ' ' RETURN END IF FLAG_OH_S = .FALSE. END IF c..Special case for HO2 being formed form O1D via H2 -- relate it to O3 IF( VNAME .EQ. 'P5' .AND. IRR( IRX, 1 ) .EQ. O1D .AND. & (PPOS1 .EQ. HO2 .OR. PPOS2 .EQ. HO2) ) THEN IF( FLAG_HO2_S )THEN WRITE( RNUM , '( I5 )' ) KO3_O1D COUT = ' HO2_S * ' ELSE LINOUT = ' ' RETURN END IF FLAG_HO2_S = .FALSE. END IF c..Special case for OH being formed from NO2EX -- relate it to NO2 IF( LNO2EX_CYCLE ) THEN IF( VNAME .EQ. 'P4' .AND. IRR( IRX, 1 ) .EQ. NO2EX .AND. & ( IRR( IRX, 4 ) .EQ. OH .OR. IRR( IRX, 5 ) .EQ. OH ) ) THEN WRITE( RNUM , '( I5 )' ) KNO2_NO2EX COUT = ' XOH_S * ' END IF END IF c..Special case for HONO being formed from NO2EX -- relate it to NO2 IF( LNO2EX_CYCLE ) THEN IF( VNAME .EQ. 'P19' .AND. IRR( IRX, 1 ) .EQ. NO2EX .AND. & ( IRR( IRX, 4 ) .EQ. HONO .OR. IRR( IRX, 5 ) .EQ. HONO ) ) THEN WRITE( RNUM , '( I5 )' ) KNO2_NO2EX COUT = ' XOH_S * ' END IF END IF IF( LRXN1 ) THEN IF( VNAME .EQ. 'P15' ) THEN LINOUT = ' ' // VNAME( 1 : EV ) // ' = ' // COUT // & 'RKI( ' // RNUM // ' )' DO R = 1, NREACT( IRX ) EPOS = LEN_TRIM( LINOUT ) S = IRR( IRX,R ) SPOUT(1:CL) = SPECIES( S )(1:CL) IF( S .EQ. O3P .OR. S .EQ. NO2 .OR. S .EQ. O3 . OR. S .EQ. OH )THEN LINOUT = LINOUT(1:EPOS) & // ' * YCP( ' // SPOUT(1:CL) // ' ) ' ELSE LINOUT = LINOUT(1:EPOS) & // ' * YC ( ' // SPOUT(1:CL) // ' ) ' END IF END DO ELSE LINOUT = ' ' // VNAME( 1 : EV ) // ' = ' // COUT // & 'RXRAT( ' // RNUM // ' )' END IF ELSE IF( VNAME .EQ. 'P15' ) THEN LINOUT = ' &' // FILLR( 1 : MAX( 1, (EV-1) )) // ' + ' & // COUT // 'RKI( ' // RNUM // ' )' DO R = 1, NREACT( IRX ) EPOS = LEN_TRIM( LINOUT ) S = IRR( IRX,R ) SPOUT(1:CL) = SPECIES( S )(1:CL) IF( S .EQ. O3P .OR. S .EQ. NO2 .OR. S .EQ. O3 . OR. S .EQ. OH )THEN LINOUT = LINOUT(1:EPOS) & // ' * YCP( ' // SPOUT(1:CL) // ' ) ' ELSE LINOUT = LINOUT(1:EPOS) & // ' * YC ( ' // SPOUT(1:CL) // ' ) ' END IF END DO ELSE LINOUT = ' &' // FILLR( 1 : MAX( 1, (EV-1) )) // ' + ' & // COUT // 'RXRAT( ' // RNUM // ' )' END IF END IF READ( RNUM, '(I5)' ) N L_RXFLAG( N ) = .TRUE. IF( VNAME .EQ. 'P15' ) THEN S = MAXVAL( NREACT ) - NREACT( IRX ) EPOS = LEN_TRIM( LINOUT ) DO R = 1, S LINOUT = LINOUT( 1 : EPOS ) // FILLR( 1:(CL+10) ) EPOS = EPOS + CL + 10 END DO LINOUT = LINOUT( 1 : EPOS ) // ' ' EPOS = EPOS + 6 ELSE EPOS = LEN_TRIM( LINOUT ) LINOUT = LINOUT( 1 : EPOS ) // ' ' EPOS = EPOS + 6 END IF CALL CMPRS_RXN( RPOS1, RPOS2, PPOS1, PPOS2, IRX, RXOUT ) CALL TRIM_RXN( RXOUT, NPOS ) ERX = LEN_TRIM( RXOUT ) LINOUT = LINOUT( 1 : EPOS ) // '! ' // RXOUT( 1 : ERX ) RETURN END IF END SUBROUTINE LCASE( BUFFER ) C********************************************************************** C C FUNCTION: Converts string uppper case letters to lower case C C PRECONDITIONS: None C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by Jerry Gipson, March, 2004 C C********************************************************************** IMPLICIT NONE C..INCLUDES: None C..ARGUMENTS: CHARACTER( * ) :: BUFFER ! Reactant or Product code C..PARAMETERS: INTEGER, PARAMETER :: CAPS = 65 INTEGER, PARAMETER :: CAPE = 90 INTEGER, PARAMETER :: DIFF = 32 C..EXTERNAL FUNCTIONS: None C..SAVED LOCAL VARIABLES: None C..SCRATCH LOCAL VARIABLES: INTEGER I, L, C C********************************************************************** L = LEN ( BUFFER ) DO I = 1 , L C = ICHAR ( BUFFER ( I : I ) ) IF ( C .GE. CAPS .AND. C .LE. CAPE ) & BUFFER ( I : I ) = CHAR ( C + DIFF ) END DO RETURN END ================================================ FILE: UTIL/create_ebi/src/wr_calcks.F ================================================ SUBROUTINE WR_CALCKS C********************************************************************** C C FUNCTION: Create source code for the hrcalcks subroutine in EBI C C PRECONDITIONS: None C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by Jerry Gipson, February, 2004 C C********************************************************************** USE ENV_VARS USE GLOBAL_DATA !!USE M3UTILIO ! IOAPI parameters and declarations USE RXNS_DATA ! mechanism data and specifications IMPLICIT NONE C..INCLUDES: ! INCLUDE SUBST_IOPARMS ! IOAPI parameters ! INCLUDE SUBST_IODECL ! IOAPI declarations C..ARGUMENTS: None C..PARAMETERS: None C..EXTERNAL FUNCTIONS: INTEGER JUNIT ! gets unit no. C..SAVED LOCAL VARIABLES: None C..SCRATCH LOCAL VARIABLES: CHARACTER( 16 ) :: PNAME = 'WR_CALCKS' ! Program name CHARACTER( 256 ) :: MSG ! Message text CHARACTER( 100 ) :: LINEIN ! Input line CHARACTER( 256 ) :: FNAME ! Name of file to open INTEGER :: EPOS ! end pos of string INTEGER :: IIN ! Unit no. of input file INTEGER :: IOUT ! Unit no. of output file LOGICAL :: LOUT1 = .FALSE. ! Flag for group 1 output processed LOGICAL :: LOUT2 = .FALSE. ! Flag for group 2 output processed LOGICAL :: LOUT3 = .FALSE. ! Flag for group 3 output processed C********************************************************************** ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Open ouput file and code template ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc EPOS = LEN_TRIM( OUTPATH ) FNAME = OUTPATH( 1 : EPOS ) // '/hrcalcks.F' IOUT = JUNIT() OPEN( UNIT = IOUT, FILE = FNAME, ERR = 9000 ) IIN = JUNIT() EPOS = LEN_TRIM( TMPLPATH ) FNAME = TMPLPATH( 1 : EPOS ) // '/hrcalcks.F' OPEN( UNIT = IIN, FILE = FNAME, ERR = 9000 ) ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Start processing ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF( LWR_COPY ) CALL WR_COPYRT( IOUT ) IF( LWR_CVS_HDR ) CALL WR_CVSHDR( IOUT ) 100 CONTINUE READ( IIN, 92000, END = 1000 ) LINEIN IF( LINEIN( 1 : 1 ) .NE. 'R' ) THEN WRITE( IOUT, 92000 ) LINEIN( 1 : LEN_TRIM( LINEIN ) ) ELSE IF( LINEIN( 2 : 2 ) .EQ. '1' .AND. .NOT. LOUT1 ) THEN WRITE( IOUT, 93000 ) CR_DATE( 1 : LEN_TRIM( CR_DATE ) ) LOUT1 = .TRUE. ELSEIF( LINEIN( 2 : 2 ) .EQ. '2' .AND. .NOT. LOUT2 ) THEN IF( NSPECIAL .EQ. 0 ) GO TO 100 WRITE( IOUT, 93100 ) LOUT2 = .TRUE. END IF END IF GO TO 100 1000 CONTINUE CLOSE( IIN ) CLOSE( IOUT ) NOUTFLS = NOUTFLS + 1 OUTFLNAM( NOUTFLS ) = 'hrcalcks.F' RETURN 9000 MSG = 'ERROR: Could not open ' // FNAME( 1 : LEN_TRIM( FNAME ) ) WRITE(LOGDEV,'(a)')TRIM( PNAME ) // ': ' // TRIM( MSG ) STOP 92000 FORMAT( A ) 93000 FORMAT( 'C REVISION HISTORY: Created by EBI solver program, ', A ) 93100 FORMAT( 'ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc' & /'c Set rate constants using concentration-dependent forms to zero' & /'ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc' & / 1X & /' DO NRT = 1, NSPECIAL_RXN' & /' IRXN = ISPECIAL( NRT, 1 )' & /' RK( NCELL, IRXN ) = 0.0' & /' END DO' & / 1X ) END ================================================ FILE: UTIL/create_ebi/src/wr_copyrt.F ================================================ SUBROUTINE WR_COPYRT( IOUT ) C********************************************************************** C C FUNCTION: Create source code for the driver for the EBI solver C C PRECONDITIONS: None C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by Jerry Gipson, February, 2004 C C********************************************************************** USE ENV_VARS !!USE M3UTILIO ! IOAPI parameters and declarations IMPLICIT NONE C..INCLUDES: C..ARGUMENTS: INTEGER :: IOUT ! Unit no. of output file C..PARAMETERS: INTEGER, PARAMETER :: MXLINES = 50 ! Max no of copyright lines C..EXTERNAL FUNCTIONS: INTEGER JUNIT ! gets unit no. C..SAVED LOCAL VARIABLES: CHARACTER( 100 ), SAVE :: COPYRT( MXLINES ) ! Copyright text INTEGER, SAVE :: NLIN ! No. of copyright lines LOGICAL, SAVE :: LFIRST = .TRUE. C..SCRATCH LOCAL VARIABLES: CHARACTER( 16 ) :: PNAME = 'WR_COPYRT' ! Program name CHARACTER( 16) :: MNAME ! Mech name to write CHARACTER( 16 ) :: MOUT ! Mech name for putput CHARACTER( 256 ) :: MSG ! Message text CHARACTER( 100 ) :: LINEIN ! Input line CHARACTER( 256 ) :: FNAME ! Name of file to open INTEGER :: E1 ! end pos of string INTEGER :: IIN ! Unit no. of input file INTEGER :: N ! C********************************************************************** ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Open ouput file and driver template ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF( LFIRST ) THEN IIN = JUNIT() E1 = LEN_TRIM( TMPLPATH ) FNAME = TMPLPATH( 1 : E1 ) // '/copyright.txt' OPEN( UNIT = IIN, FILE = FNAME, ERR = 9000 ) NLIN = 0 100 CONTINUE READ( IIN, 92000, END = 9000 ) LINEIN NLIN = NLIN + 1 IF( NLIN .GE. MXLINES ) THEN MSG = 'ERROR: Max no. of copyright lines exceeded;' // & ' it will not be written' WRITE(LOGDEV,'(a)')TRIM( PNAME ) // ': ' // TRIM( MSG ) NLIN = 0 GO TO 9000 END IF COPYRT( NLIN ) = LINEIN GO TO 100 9000 CONTINUE LFIRST = .FALSE. CLOSE( IIN ) END IF IF( NLIN .GT. 0 ) THEN DO N = 1, NLIN E1 = LEN_TRIM( COPYRT( N ) ) WRITE( IOUT, 92000 ) COPYRT( N )( 1 : E1 ) END DO WRITE( IOUT, 92000 ) END IF RETURN 92000 FORMAT( A ) END ================================================ FILE: UTIL/create_ebi/src/wr_cvshdr.F ================================================ SUBROUTINE WR_CVSHDR( IOUT ) C********************************************************************** C C FUNCTION: Write the CVS header lines for the EBI solver C C PRECONDITIONS: None C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by Jerry Gipson, February, 2004 C C********************************************************************** USE ENV_VARS !!USE M3UTILIO ! IOAPI parameters and declarations IMPLICIT NONE C..INCLUDES: ! INCLUDE SUBST_IOPARMS ! IOAPI parameters ! INCLUDE SUBST_IODECL ! IOAPI declarations C..ARGUMENTS: INTEGER :: IOUT ! Unit no. of output file C..PARAMETERS: INTEGER, PARAMETER :: MXLINES = 10 ! Max no of copyright lines C..EXTERNAL FUNCTIONS: INTEGER JUNIT ! gets unit no. C..SAVED LOCAL VARIABLES: CHARACTER( 100 ), SAVE :: CVSHDR( MXLINES ) ! Copyright text INTEGER, SAVE :: NLIN ! No. of copyright lines LOGICAL, SAVE :: LFIRST = .TRUE. C..SCRATCH LOCAL VARIABLES: CHARACTER( 16 ) :: PNAME = 'WR_CVSHDR' ! Program name CHARACTER( 16) :: MNAME ! Mech name to write CHARACTER( 16 ) :: MOUT ! Mech name for putput CHARACTER( 256 ) :: MSG ! Message text CHARACTER( 100 ) :: LINEIN ! Input line CHARACTER( 256 ) :: FNAME ! Name of file to open INTEGER :: E1 ! end pos of string INTEGER :: IIN ! Unit no. of input file INTEGER :: N C********************************************************************** ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Open ouput file and driver template ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF( LFIRST ) THEN IIN = JUNIT() E1 = LEN_TRIM( TMPLPATH ) FNAME = TMPLPATH( 1 : E1 ) // '/cvs_header.txt' OPEN( UNIT = IIN, FILE = FNAME, ERR = 9000 ) NLIN = 0 100 CONTINUE READ( IIN, 92000, END = 1000 ) LINEIN NLIN = NLIN + 1 IF( NLIN .GE. MXLINES ) THEN MSG = 'ERROR: Max no. of CVS header lines exceeded;' // & ' it will not be written' WRITE(LOGDEV,'(a)')TRIM( PNAME ) // ': ' // TRIM( MSG ) STOP NLIN = 0 GO TO 9000 END IF CVSHDR( NLIN ) = LINEIN GO TO 100 1000 CONTINUE LFIRST = .FALSE. CLOSE( IIN ) END IF IF( NLIN .GT. 0 ) THEN DO N = 1, NLIN E1 = LEN_TRIM( CVSHDR( N ) ) WRITE( IOUT, 92000 ) CVSHDR( N )( 1 : E1 ) END DO WRITE( IOUT, 92000 ) END IF RETURN 9000 MSG = 'ERROR: Could not open ' // FNAME( 1 : LEN_TRIM( FNAME ) ) WRITE(LOGDEV,'(a)')TRIM( PNAME ) // ': ' // TRIM( MSG ) STOP 92000 FORMAT( A ) END ================================================ FILE: UTIL/create_ebi/src/wr_data.F ================================================ SUBROUTINE WR_DATA C********************************************************************** C C FUNCTION: Create source code for the hrdata module in EBI C C PRECONDITIONS: None C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by Jerry Gipson, February, 2004 C Modified 7/09 to include SSA - J. Gipson C C********************************************************************** USE ENV_VARS USE GLOBAL_DATA !!USE M3UTILIO ! IOAPI parameters and declarations USE RXNS_DATA IMPLICIT NONE C..INCLUDES: C..ARGUMENTS: None C..PARAMETERS: None C..EXTERNAL FUNCTIONS: INTEGER JUNIT ! gets unit no. ! INTEGER INDEX1 ! find position of string in list C..SAVED LOCAL VARIABLES: None C..SCRATCH LOCAL VARIABLES: CHARACTER( 16 ) :: PNAME = 'WR_DATA' ! Program name CHARACTER( 256 ) :: MSG ! Message text CHARACTER( 100 ) :: LINEIN ! Input line CHARACTER( 256 ) :: FNAME ! Name of file to open INTEGER :: EPOS ! end pos of string INTEGER :: IND ! array index INTEGER :: IIN ! Unit no. of input file INTEGER :: IOUT ! Unit no. of output file INTEGER :: N ! Loop index LOGICAL :: LOUT1 = .FALSE. ! Flag for line 1 output processed LOGICAL :: LOUT2 = .FALSE. ! Flag for line 2 output processed LOGICAL :: LOUT3 = .FALSE. ! Flag for line 3 output processed LOGICAL :: LOUT4 = .FALSE. ! Flag for group 4 output processed LOGICAL :: LOUT5 = .FALSE. ! Flag for group 5 output processed LOGICAL :: LOUT6 = .FALSE. ! Flag for line 6 output processed C********************************************************************** ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Open ouput file and code template ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc EPOS = LEN_TRIM( OUTPATH ) FNAME = OUTPATH( 1 : EPOS ) // '/hrdata_mod.F' IOUT = JUNIT() OPEN( UNIT = IOUT, FILE = FNAME, ERR = 9000 ) IIN = JUNIT() EPOS = LEN_TRIM( TMPLPATH ) FNAME = TMPLPATH( 1 : EPOS ) // '/hrdata_mod.F' OPEN( UNIT = IIN, FILE = FNAME, ERR = 9000 ) IF( LWR_COPY ) CALL WR_COPYRT( IOUT ) IF( LWR_CVS_HDR ) CALL WR_CVSHDR( IOUT ) ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Read, modify, and write code from template ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 100 CONTINUE READ( IIN, 92000, END = 1000 ) LINEIN IF( LINEIN( 1 : 1 ) .NE. 'R' ) THEN WRITE( IOUT, 92000 ) LINEIN( 1 : LEN_TRIM( LINEIN ) ) ELSE IF( LINEIN( 2 : 2 ) .EQ. '1' .AND. .NOT. LOUT1 ) THEN WRITE( IOUT, 93000 ) TRIM( MECHNAME ) LOUT1 = .TRUE. ELSEIF( LINEIN( 2 : 2 ) .EQ. '2' .AND. .NOT. LOUT2 ) THEN WRITE( IOUT, 93020 ) CR_DATE( 1 : LEN_TRIM( CR_DATE ) ) LOUT2 = .TRUE. ELSEIF( LINEIN( 2 : 2 ) .EQ. '3' .AND. .NOT. LOUT3 ) THEN IF( LPAR_NEG ) WRITE( IOUT, 93040 ) LOUT3 = .TRUE. ELSEIF( LINEIN( 2 : 2 ) .EQ. '5' .AND. .NOT. LOUT5 ) THEN IF( LDEGRADE_SUBS ) WRITE( IOUT, 93045 ) LINEIN( 3 : LEN_TRIM( LINEIN ) ) LOUT5 = .FALSE. ELSEIF( LINEIN( 2 : 2 ) .EQ. '6' .AND. .NOT. LOUT6 ) THEN WRITE( IOUT, 93082 ) REAL( TIME_STEP,8 ) LOUT6 = .TRUE. END IF END IF GO TO 100 1000 CONTINUE ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Generate the species indices ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc WRITE( IOUT, 93050 ) DO N = 1, N_SPECIES EPOS = 16 ! LEN_TRIM( SPECIES( N ) ) WRITE( IOUT, 93081 ) SPECIES( N ) ( 1 : EPOS ), N END DO WRITE( IOUT, 93140 ) CLOSE( IIN ) CLOSE( IOUT ) NOUTFLS = NOUTFLS + 1 OUTFLNAM( NOUTFLS ) = 'hrdata_mod.F' RETURN 9000 MSG = 'ERROR: Could not open ' // FNAME( 1 : LEN_TRIM( FNAME ) ) WRITE(LOGDEV,'(a)')TRIM( PNAME ) // ': ' // TRIM( MSG ) STOP 92000 FORMAT( A ) 93000 FORMAT( 'C PRECONDITIONS: For the ', A, ' mechanism' ) 93020 FORMAT( 'C REVISION HISTORY: Created by EBI solver program, ', A ) 93040 FORMAT( 6X, 'REAL( 8 ), ALLOCATABLE :: PNEG( : )', & '! Negative production rates' ) 93050 FORMAT( 'c..Species indices' ) 93060 FORMAT( 'c..Gas species indices' ) 93080 FORMAT( 6X, 'INTEGER :: ', A16,' = ',I4 ) 93081 FORMAT( 6X, 'INTEGER, PARAMETER :: ', A16,' = ',I4 ) 93082 FORMAT( 6X, 'REAL( 8 ), PARAMETER :: DELTAT = ', 1PD9.3, ' ! EBI time step (min)' ) 93100 FORMAT( /'c..Aerosol species indices' ) 93120 FORMAT( /'c..AQ chemistry species indices' ) 93140 FORMAT( /6X, 'END MODULE HRDATA' ) 93045 FORMAT( 2X, A ) END ================================================ FILE: UTIL/create_ebi/src/wr_driver.F ================================================ SUBROUTINE WR_DRIVER C********************************************************************** C C FUNCTION: Create source code for the driver for the EBI solver C C PRECONDITIONS: None C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by Jerry Gipson, February, 2004 C C********************************************************************** USE ENV_VARS USE GLOBAL_DATA !!USE M3UTILIO ! IOAPI parameters and declarations USE RXNS_DATA ! mechanism data and specifications IMPLICIT NONE C..INCLUDES: C..ARGUMENTS: None C..PARAMETERS: None C..EXTERNAL FUNCTIONS: INTEGER JUNIT ! gets unit no. C..SAVED LOCAL VARIABLES: None C..SCRATCH LOCAL VARIABLES: CHARACTER( 16 ) :: PNAME = 'WR_DRIVER' ! Program name CHARACTER( 32) :: MNAME ! Mech name to write CHARACTER( 32 ) :: MOUT ! Mech name for putput CHARACTER( 256 ) :: MSG ! Message text CHARACTER( 140 ) :: LINEIN ! Input line CHARACTER( 256 ) :: FNAME ! Name of file to open CHARACTER( 4 ) :: COM_AE_TAG ! Compatible Aerosol version INTEGER :: EPOS ! end pos of string INTEGER :: IIN ! Unit no. of input file INTEGER :: IOUT ! Unit no. of output file INTEGER :: NMECH ! No. of mechanism names to check INTEGER :: N ! Loop index LOGICAL :: LOUT0 = .FALSE. ! Flag for group 0 output processed LOGICAL :: LOUT1 = .FALSE. ! Flag for group 1 output processed LOGICAL :: LOUT2 = .FALSE. ! Flag for group 2 output processed LOGICAL :: LOUT3 = .FALSE. ! Flag for group 3 output processed LOGICAL :: LOUT4 = .FALSE. ! Flag for group 4 output processed LOGICAL :: LOUT5 = .FALSE. ! Flag for group 5 output processed C********************************************************************** ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Open ouput file and driver template ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc EPOS = LEN_TRIM( OUTPATH ) FNAME = OUTPATH( 1 : EPOS ) // '/hrdriver.F' IOUT = JUNIT() OPEN( UNIT = IOUT, FILE = FNAME, ERR = 9000 ) IIN = JUNIT() EPOS = LEN_TRIM( TMPLPATH ) FNAME = TMPLPATH( 1 : EPOS ) // '/hrdriver.F' OPEN( UNIT = IIN, FILE = FNAME, ERR = 9000 ) ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Start processing ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF( LWR_COPY ) CALL WR_COPYRT( IOUT ) IF( LWR_CVS_HDR ) CALL WR_CVSHDR( IOUT ) 100 CONTINUE READ( IIN, 92000, END = 1000 ) LINEIN IF( LINEIN( 1 : 1 ) .NE. 'R' ) THEN WRITE( IOUT, 92000 ) LINEIN( 1 : LEN_TRIM( LINEIN ) ) ELSE IF( LINEIN( 2 : 2 ) .EQ. '1' .AND. .NOT. LOUT1 ) THEN WRITE( IOUT, 93000 ) TRIM( MECHNAME ) LOUT1 = .TRUE. ELSEIF( LINEIN( 2 : 2 ) .EQ. '2' .AND. .NOT. LOUT2 ) THEN WRITE( IOUT, 93020 ) CR_DATE( 1 : LEN_TRIM( CR_DATE ) ) LOUT2 = .TRUE. ELSEIF( LINEIN( 2 : 2 ) .EQ. '0' .AND. .NOT. LOUT0 ) THEN LOUT0 = .TRUE. ELSEIF( LINEIN( 2 : 2 ) .EQ. '3' .AND. .NOT. LOUT3 ) THEN WRITE( IOUT, 93080)TRIM( MECHNAME ) LOUT3 = .TRUE. ELSEIF( LINEIN( 2 : 2 ) .EQ. '4' .AND. .NOT. LOUT4 ) THEN WRITE( IOUT, 93110 ) TRIM( MECHNAME ) LOUT4 = .TRUE. ELSEIF( LINEIN( 2 : 2 ) .EQ. '5' .AND. .NOT. LOUT5 ) THEN IF( LDEGRADE_SUBS ) WRITE( IOUT, 93046 ) LINEIN( 3 : LEN_TRIM( LINEIN ) ) LOUT5 = .FALSE. END IF END IF GO TO 100 1000 CONTINUE CLOSE( IIN ) CLOSE( IOUT ) NOUTFLS = NOUTFLS + 1 OUTFLNAM( NOUTFLS ) = 'hrdriver.F' RETURN 9000 MSG = 'ERROR: Could not open ' // FNAME( 1 : LEN_TRIM( FNAME ) ) WRITE(LOGDEV,'(a)')TRIM( PNAME ) // ': ' // TRIM( MSG ) STOP 92000 FORMAT( A ) 93000 FORMAT( 'C PRECONDITIONS: For the ', A, ' mechanism' ) 93020 FORMAT( 'C REVISION HISTORY: Created by EBI solver program, ', A ) 93029 FORMAT( 11X,'USE RXNS_FUNCTION, ONLY : SPECIAL_RATES' ) 93030 FORMAT( 9X, 'IF( MECHNAME .NE. ''' , A, ''' ) THEN') 93040 FORMAT( 9X, 'IF( MECHNAME .NE. ''' , A, ''' .AND.' ) 93046 FORMAT( A ) 93060 FORMAT( 5X, '& MECHNAME .NE. ''', A, ''' .AND.' ) 93080 FORMAT( 9X, 'IF( MECHNAME .NE. ''' , A, ''' ) THEN') 93100 FORMAT( 5X, '& // '' the ', A, ' chemical mechanisms''' ) 93110 FORMAT( 5X, '& // '' the ', A, ' chemical mechanism''' ) END ================================================ FILE: UTIL/create_ebi/src/wr_driver.F.original ================================================ SUBROUTINE WR_DRIVER C********************************************************************** C C FUNCTION: Create source code for the driver for the EBI solver C C PRECONDITIONS: None C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by Jerry Gipson, February, 2004 C C********************************************************************** USE ENV_VARS IMPLICIT NONE C..INCLUDES: INCLUDE SUBST_IOPARMS ! IOAPI parameters INCLUDE SUBST_IODECL ! IOAPI declarations C..ARGUMENTS: None C..PARAMETERS: None C..EXTERNAL FUNCTIONS: INTEGER JUNIT ! gets unit no. C..SAVED LOCAL VARIABLES: None C..SCRATCH LOCAL VARIABLES: CHARACTER( 16 ) :: PNAME = 'WR_DRIVER' ! Program name CHARACTER( 16) :: MNAME ! Mech name to write CHARACTER( 16 ) :: MOUT ! Mech name for putput CHARACTER( 256 ) :: MSG ! Message text CHARACTER( 100 ) :: LINEIN ! Input line CHARACTER( 256 ) :: FNAME ! Name of file to open INTEGER :: EPOS ! end pos of string INTEGER :: IIN ! Unit no. of input file INTEGER :: IOUT ! Unit no. of output file INTEGER :: LOGDEV ! Unit no. of logdev INTEGER :: NMECH ! No. of mechanism names to check INTEGER :: N ! Loop index LOGICAL :: LOUT1 = .FALSE. ! Flag for group 1 output processed LOGICAL :: LOUT2 = .FALSE. ! Flag for group 2 output processed LOGICAL :: LOUT3 = .FALSE. ! Flag for group 3 output processed LOGICAL :: LOUT4 = .FALSE. ! Flag for group 4 output processed C********************************************************************** ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Open ouput file and driver template ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc LOGDEV = INIT3() EPOS = LEN_TRIM( OUTPATH ) FNAME = OUTPATH( 1 : EPOS ) // '/hrdriver.F' IOUT = JUNIT() OPEN( UNIT = IOUT, FILE = FNAME, ERR = 9000 ) IIN = JUNIT() EPOS = LEN_TRIM( TMPLPATH ) FNAME = TMPLPATH( 1 : EPOS ) // '/hrdriver.F' OPEN( UNIT = IIN, FILE = FNAME, ERR = 9000 ) ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Start processing ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF( LWR_COPY ) CALL WR_COPYRT( IOUT ) IF( LWR_CVS_HDR ) CALL WR_CVSHDR( IOUT ) 100 CONTINUE READ( IIN, 92000, END = 1000 ) LINEIN IF( LINEIN( 1 : 1 ) .NE. 'R' ) THEN WRITE( IOUT, 92000 ) LINEIN( 1 : LEN_TRIM( LINEIN ) ) ELSE IF( LINEIN( 2 : 2 ) .EQ. '1' .AND. .NOT. LOUT1 ) THEN WRITE( IOUT, 93000 ) GC_TAG( 1 : LEN_TRIM( GC_TAG ) ) LOUT1 = .TRUE. ELSEIF( LINEIN( 2 : 2 ) .EQ. '2' .AND. .NOT. LOUT2 ) THEN WRITE( IOUT, 93020 ) CR_DATE( 1 : LEN_TRIM( CR_DATE ) ) LOUT2 = .TRUE. ELSEIF( LINEIN( 2 : 2 ) .EQ. '3' .AND. .NOT. LOUT3 ) THEN MNAME = GC_TAG EPOS = LEN_TRIM( MNAME ) MOUT = ' ' MOUT( 1 : EPOS ) = MNAME( 1 : LEN_TRIM( MNAME ) ) WRITE( IOUT, 93040 ) MOUT MNAME = GC_TAG( 1 : LEN_TRIM( GC_TAG ) ) // '_' // & AE_TAG( 1 : LEN_TRIM( AE_TAG ) ) EPOS = LEN_TRIM( MNAME ) MOUT = ' ' MOUT( 1 : EPOS ) = MNAME( 1 : LEN_TRIM( MNAME ) ) WRITE( IOUT, 93060 ) MOUT MNAME = GC_TAG( 1 : LEN_TRIM( GC_TAG ) ) // '_' // & AQ_TAG( 1 : LEN_TRIM( AQ_TAG ) ) EPOS = LEN_TRIM( MNAME ) MOUT = ' ' MOUT( 1 : EPOS ) = MNAME( 1 : LEN_TRIM( MNAME ) ) WRITE( IOUT, 93060 ) MOUT MNAME = GC_TAG( 1 : LEN_TRIM( GC_TAG ) ) // '_' // & AE_TAG( 1 : LEN_TRIM( AE_TAG ) ) // '_' // & AQ_TAG( 1 : LEN_TRIM( AQ_TAG ) ) EPOS = LEN_TRIM( MNAME ) MOUT = ' ' MOUT( 1 : EPOS ) = MNAME( 1 : LEN_TRIM( MNAME ) ) WRITE( IOUT, 93080 ) MOUT LOUT3 = .TRUE. ELSEIF( LINEIN( 2 : 2 ) .EQ. '4' .AND. .NOT. LOUT4 ) THEN WRITE( IOUT, 93100 ) GC_TAG( 1 : LEN_TRIM( GC_TAG ) ) LOUT4 = .TRUE. ENDIF ENDIF GO TO 100 1000 CONTINUE CLOSE( IIN ) CLOSE( IOUT ) RETURN 9000 MSG = 'ERROR: Could not open ' // FNAME( 1 : LEN_TRIM( FNAME ) ) CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT2 ) 92000 FORMAT( A ) 93000 FORMAT( 'C PRECONDITIONS: For the ', A, ' family of mechanisms' ) 93020 FORMAT( 'C REVISION HISTORY: Created by EBI solver program, ', A ) 93040 FORMAT( 9X, 'IF( MECHNAME .NE. ''' , A, ''' .AND.' ) 93060 FORMAT( 5X, '& MECHNAME .NE. ''', A, ''' .AND.' ) 93080 FORMAT( 5X, '& MECHNAME .NE. ''', A, ''' ) THEN') 93100 FORMAT( 5X, '& // '' the ', A, ' chemical mechanisms''' ) END ================================================ FILE: UTIL/create_ebi/src/wr_gp1.F ================================================ SUBROUTINE WR_GP1 C********************************************************************** C C FUNCTION: Create source code for the hrgp1 subroutine in EBI C C PRECONDITIONS: None C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by Jerry Gipson, February, 2004 C C********************************************************************** USE ENV_VARS USE GLOBAL_DATA !!USE M3UTILIO ! IOAPI parameters and declarations USE RXNS_DATA ! mechanism data and specifications IMPLICIT NONE C..INCLUDES: C..ARGUMENTS: None C..PARAMETERS: INTEGER, PARAMETER :: GRPNO = 1 C..EXTERNAL FUNCTIONS: INTEGER JUNIT ! gets unit no. INTEGER INDEX1 ! find position of string in list C..SAVED LOCAL VARIABLES: None C..SCRATCH LOCAL VARIABLES: CHARACTER( 16 ) :: PNAME = 'WR_GP1' ! Program name CHARACTER( 256 ) :: MSG ! Message text CHARACTER( 100 ) :: LINEIN ! Input line CHARACTER( CL ) :: SPOUT ! Ouput species CHARACTER( 16 ) :: SPEC CHARACTER( 256 ) :: FNAME ! Name of file to open CHARACTER( 72 ) :: CLINE ! Line of c's CHARACTER( 256 ) :: LINOUT CHARACTER( 150 ) :: RXOUT CHARACTER( 100 ) :: BLANK_LINE CHARACTER*( 5 ) :: RNUM ! Reaction number CHARACTER*( 9 ) :: COUT ! Output coefficient CHARACTER*( 1 ) :: SGN ! Coefficient sign INTEGER :: E1, E2 ! end pos of string INTEGER :: IND ! array index INTEGER :: IIN ! Unit no. of input file INTEGER :: IOUT ! Unit no. of output file INTEGER :: N, S, P, R ! Loop indices INTEGER :: NR ! No. of reactants INTEGER :: NPOS ! Reaction index INTEGER :: RPOS1 ! Species to occupy reactant pos 1 in rxn line INTEGER :: RPOS2 ! Species to occupy reactant pos 2 in rxn line INTEGER :: PPOS1 ! Species to occupy product pos 1 in rxn line INTEGER :: PPOS2 ! Species to occupy product pos 2 in rxn line INTEGER :: J1, J2, K1_3 ! Rxn nos for NO2+hv, O3P+NO, & NO+O3 INTEGER :: KO3_O1D ! Rxn number for O3+hv=O1D INTEGER :: KNO2_NO2EX ! Rxn number for NO2+hv=NO2EX LOGICAL :: LPHOT ! Photolysis rxn flag LOGICAL :: LFIRST ! First pass flag LOGICAL :: LRXN1 ! First rxn flag LOGICAL :: LNO2EX_DONE ! Flag to indicate NO2EX done LOGICAL :: LERROR ! Error flag REAL( 8 ) :: COEFF ! Prod/loss coefficient REAL( 8 ) :: RNO ! Sum of NO reactant coefficients REAL( 8 ) :: RNO2 ! Sum of NO2 reactant coefficients REAL( 8 ) :: PNO ! Sum of NO product coefficients REAL( 8 ) :: PNO2 ! Sum of NO2 product coefficients REAL( 8 ) :: RO3 ! Sum of O3 reactant coefficients REAL( 8 ) :: PO3 ! Sum of O3 product coefficients REAL( 8 ) :: RO3P ! Sum of O3P reactant coefficients REAL( 8 ) :: PO3P ! Sum of O3P product coefficients REAL( 8 ) :: RO1D ! Sum of O1D reactant coefficients REAL( 8 ) :: PO1D ! Sum of O1D product coefficients C********************************************************************** LERROR = .FALSE. DO N = 1, 72 CLINE( N : N ) = 'c' END DO DO N = 1, 100 BLANK_LINE( N : N ) = ' ' END DO ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Open ouput file and code template ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc E1 = LEN_TRIM( OUTPATH ) FNAME = OUTPATH( 1 : E1 ) // '/hrg1.F' IOUT = JUNIT() OPEN( UNIT = IOUT, FILE = FNAME, ERR = 9000 ) IIN = JUNIT() E1 = LEN_TRIM( TMPLPATH ) FNAME = TMPLPATH( 1 : E1 ) // '/hrg1.F' OPEN( UNIT = IIN, FILE = FNAME, ERR = 9000 ) IF( LWR_COPY ) CALL WR_COPYRT( IOUT ) IF( LWR_CVS_HDR ) CALL WR_CVSHDR( IOUT ) ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Read, modify, and write 1st section of code from template ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 100 CONTINUE READ( IIN, 92000, END = 1000 ) LINEIN IF( LINEIN( 1 : 2 ) .EQ. 'R1' ) THEN WRITE( IOUT, 93000 ) TRIM( MECHNAME ) GO TO 100 ELSEIF( LINEIN( 1 : 2 ) .EQ. 'R2' ) THEN WRITE( IOUT, 93020 ) CR_DATE( 1 : LEN_TRIM( CR_DATE ) ) GO TO 100 ELSEIF( LINEIN( 1 : 2 ) .EQ. 'RE' ) THEN IF( LNO2EX_CYCLE ) WRITE( IOUT, 92000 ) LINEIN( 3 : LEN_TRIM( LINEIN ) ) GO TO 100 ELSEIF( LINEIN( 1 : 2 ) .EQ. 'S1' ) THEN GO TO 1000 ELSE WRITE( IOUT, 92000 ) LINEIN( 1 : LEN_TRIM( LINEIN ) ) GO TO 100 END IF 1000 CONTINUE cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Do O1D section cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc WRITE( IOUT, 92020 ) WRITE( IOUT, 92000 ) CLINE WRITE( IOUT, 93100 ) WRITE( IOUT, 92000 ) CLINE c..get all reactions in which O1D is reacting LRXN1 = .TRUE. DO N = 1, NRXNS IF ( IRR( N, 1 ) .NE. O1D ) CYCLE ! Skip Rxns w/ Lo1d=0 COEFF = 1.0D0 NPOS = 20 RPOS1 = O1D RPOS2 = 0 PPOS1 = 0 PPOS2 = 0 CALL BLD_OUTLINE( 'LFREQ', 'O1D_S', 'O1D', O1D, COEFF, N, GRPNO, & NPOS, LINOUT, LRXN1, RPOS1, RPOS2, PPOS1, PPOS2 ) LRXN1 = .FALSE. E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) END DO WRITE( IOUT, 92000 ) c..get reaction(s) producing O3P from O1D LRXN1 = .TRUE. DO N = 1, NRXNS IF ( IRR( N, 1 ) .NE. O1D .OR. IRR( N, 4 ) .NE. O3P ) CYCLE COEFF = SC( N, 1 ) NPOS = 20 RPOS1 = O1D RPOS2 = 0 PPOS1 = OH PPOS2 = 0 CALL BLD_OUTLINE( 'LFREQ', 'O3P_S', 'O1D', O1D, COEFF, N, GRPNO, & NPOS, LINOUT, LRXN1, RPOS1, RPOS2, PPOS1, PPOS2 ) LRXN1 = .FALSE. E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) END DO c..write the the final line WRITE( IOUT, 92000 ) LINOUT = ' O3P_S = O3P_S / O1D_S' E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Do NO2EX section if included in Group 1 cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF( LNO2EX_CYCLE ) THEN WRITE( IOUT, 92020 ) WRITE( IOUT, 92000 ) CLINE WRITE( IOUT, 93200 ) WRITE( IOUT, 92000 ) CLINE c..get all reactions in which NO2EX is reacting LRXN1 = .TRUE. DO N = 1, NRXNS IF ( IRR( N, 1 ) .NE. NO2EX ) CYCLE ! Skip Rxns w/ Lno2ex=0 COEFF = 1.0D0 NPOS = 20 RPOS1 = NO2EX RPOS2 = 0 PPOS1 = 0 PPOS2 = 0 CALL BLD_OUTLINE( 'LFREQ', 'EXN_S', 'NO2EX', NO2EX, COEFF, N, GRPNO, & NPOS, LINOUT, LRXN1, RPOS1, RPOS2, PPOS1, PPOS2 ) LRXN1 = .FALSE. E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) END DO WRITE( IOUT, 92000 ) c..get reaction(s) producing NO2 from NO2EX LRXN1 = .TRUE. DO N = 1, NRXNS IF ( IRR( N, 1 ) .NE. NO2EX .OR. IRR( N, 4 ) .NE. NO2 ) CYCLE COEFF = SC( N, 1 ) NPOS = 20 RPOS1 = NO2EX RPOS2 = 0 PPOS1 = NO2 PPOS2 = 0 CALL BLD_OUTLINE( 'LFREQ', 'NO2_S', 'NO2EX', NO2EX, COEFF, N, GRPNO, & NPOS, LINOUT, LRXN1, RPOS1, RPOS2, PPOS1, PPOS2 ) LRXN1 = .FALSE. E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) END DO c..write the the final line WRITE( IOUT, 92000 ) LINOUT = ' NO2_S = NO2_S / EXN_S' E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) END IF ! LNO2EX_CYCLE = .TRUE. cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c R1_2 computation ( Production of NO from reactions of NO2 ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C R1_2 includes the following NO loss/NO2 production terms: c a) those in which NO is produced from NO2 (include only c equivalent amounts of loss and production) c c Hence, c c {aNO +} bNO2 {+ X} = cNO + dNO2 c if c le a ==> Pno = 0, so R1_2 coeff = 0 c if c gt a ==> Pno > 0 c if b le d ==> Lno2 = 0, so R1_2 coeff = 0 c if b gt d ==> Lno2 > 0, so c if b-d > c-a ==> Lno2 > Pno, so R1_2 coeff = c-a c if b-d = c-a ==> Lno2 = Pno, so R1_2 coeff = c-a c if b-d < c-a ==> Lno2 < Pno, so R1_2 coeff = b-d c cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c..Write the section header WRITE( IOUT, 92020 ) WRITE( IOUT, 92000 ) CLINE WRITE( IOUT, 94000 ) WRITE( IOUT, 92000 ) CLINE LRXN1 = .TRUE. DO N = 1, NRXNS c..find the rxns to include and set the coefficient COEFF = 0.0D0 CALL SUM_COEFF( RNO, 'R', NO, N ) CALL SUM_COEFF( RNO2, 'R', NO2, N ) CALL SUM_COEFF( PNO, 'P', NO, N ) CALL SUM_COEFF( PNO2, 'P', NO2, N ) IF( PNO .LE. RNO ) CYCLE ! Skip rxn if Pno=0 IF( RNO2 .LE. PNO2 ) CYCLE ! Skip rxn if Lno2=0 IF( RNO2 - PNO2 .GE. PNO - RNO ) THEN COEFF = PNO - RNO ! for Lno2 >= Pno ELSE COEFF = RNO2 - PNO2 ! for Lno2 < Pno END IF IF( COEFF .EQ. 0.0D0 ) CYCLE c..call routine to create output line & write it NPOS = 20 RPOS1 = NO2 RPOS2 = 0 PPOS1 = NO PPOS2 = NO2 CALL BLD_OUTLINE( 'LFREQ', 'R1_2', 'NO2', NO2, COEFF, N, GRPNO, & NPOS, LINOUT, LRXN1, RPOS1, RPOS2, PPOS1, PPOS2 ) LRXN1 = .FALSE. E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) END DO WRITE( IOUT, '( A )' ) ' R1_2 = R1_2 * DTC' cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c P1 computation ( Production of NO ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C P1 includes NO production terms from the following reactions: c a) those in which NO is produced & NO2 is NOT a reactant c b) those in which NO is produced and NO2 is consumed and the c NO production rate exceeds the NO2 loss rate (excess amount only) c c Hence, c c {aNO +} bNO2 {+ X} = cNO + dNO2 c if c le a ==> Pno=o, so P1 coeff = 0 c if c gt a ==> Pno > 0, so c if b le d ==> Lno2 = 0, so P1 coeff = c-a c if b gt d ==> Lno2 > 0, so c if b-d > c-a ==> Lno2 > Pno, so P1 coeff = 0 c if b-d = c-a ==> Lno2 = Pno, so P1 coeff = 0 c if b-d < c-a ==> Lno2 < Pno, so P1 coeff = (c-a) - (b-d) c cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc WRITE( IOUT, 92020 ) LRXN1 = .TRUE. DO N = 1, NRXNS c..Determine the reaction to include & get the coefficient for the prod term COEFF = 0.0D0 CALL SUM_COEFF( RNO, 'R', NO, N ) CALL SUM_COEFF( RNO2, 'R', NO2, N ) CALL SUM_COEFF( PNO, 'P', NO, N ) CALL SUM_COEFF( PNO2, 'P', NO2, N ) IF( PNO .LE. RNO ) CYCLE ! Skip rxns w/ Pno=0 IF( RNO2 .LE. PNO2 ) THEN COEFF = PNO - RNO ! Rxns w/ Lno2=0 ELSEIF( RNO2 - PNO2 .LT. PNO - RNO ) THEN COEFF = ( PNO - RNO ) - ( RNO2 - PNO2 ) ! Rxns w/ Lno2 < Pno END IF IF( COEFF .EQ. 0.0D0 ) CYCLE c..call routine to create output line & write it NPOS = 25 RPOS1 = NO2 RPOS2 = 0 PPOS1 = NO PPOS2 = NO2 CALL BLD_OUTLINE( 'RXRAT', 'P1', ' ', 0, COEFF, N, GRPNO, & NPOS, LINOUT, LRXN1, RPOS1, RPOS2, PPOS1, PPOS2 ) LRXN1 = .FALSE. E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) END DO SPOUT = ADJUSTL( SPECIES( NO ) ) E1 = LEN_TRIM( SPOUT ) WRITE( IOUT, '( 3A )' ) ' P1 = YC0( ', SPOUT( 1 : E1 ), & ' ) + P1 * DTC' cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c L1 computation ( Loss of NO ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C L1 includes the following net NO loss terms: c a) loss from reactions in which NO2 is not produced c b) in reactions in which NO2 is produced, the amount of NO lost c in excess of the amount of NO2 formed c c Hence, c c aNO {+ bNO2} {+ X} = cNO + dNO2 c if a le c ==> Lno = 0, so L1 coeff =0 c if a gt c ==> Lno > 0, so c if d le b ==> Pno2 = 0 so L1 coeff = (a-c) c if d gt b ==> Pno2 > 0, so c if a-c le d-b ==> Lno < Pno2, so L1 coeff = 0 c if a-c gt d-b ==> Lno > Pno2, so L1 coeff = (a-c)-(d-b) c cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc WRITE( IOUT, 92020 ) LRXN1 = .TRUE. DO N = 1, NRXNS c..Determine the rxn to include & get the coefficient for the loss term COEFF = 0.0D0 CALL SUM_COEFF( RNO, 'R', NO, N ) CALL SUM_COEFF( RNO2, 'R', NO2, N ) CALL SUM_COEFF( PNO2, 'P', NO2, N ) CALL SUM_COEFF( PNO, 'P', NO, N ) IF( RNO .LE. PNO ) CYCLE ! Skip rxns w/ Lno=0 IF( PNO2 .LE. RNO2 ) COEFF = RNO - PNO ! Rxns w/ Lno>0 & Pno2=0 IF( PNO2 .GT. RNO2 .AND. & RNO - PNO .GT. PNO2 - RNO2 ) & COEFF = RNO - PNO - ( PNO2 - RNO2 ) ! Rxns w/ Lno>0 & Lno>Pno2 IF( COEFF .EQ. 0.0D0 ) CYCLE c..call routine to create output line & write it NPOS = 20 RPOS1 = NO RPOS2 = 0 PPOS1 = NO PPOS2 = NO2 CALL BLD_OUTLINE( 'LFREQ', 'L1', 'NO', NO, COEFF, N, GRPNO, & NPOS, LINOUT, LRXN1, RPOS1, RPOS2, PPOS1, PPOS2 ) LRXN1 = .FALSE. E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) END DO LINOUT = ' L1 = 1.0D0 + L1 * DTC' E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c R2_1 computation ( Production of NO2 from reactions of NO ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C R2_1 includes NO2 production from the following reeactions: c a) those in which NO2 is produced from NO (include only c equivalent amounts of loss and production) c b) EXCEPTION: do not include NO+O3=NO2 c c Hence, c c aNO {bNO2} {+ X} = cNO + dNO2 c if d le b ==> Pno2 = 0, so R2_1 coeff = 0 c if d gt b ==> Pno2 > 0 c if a le c ==> Lno = 0, so R2_1 coeff = 0 c if c gt a ==> Lno > 0, so c if d-b > a-c ==> Pno2 > Lno, so R2_1 coeff = a-c c if d-b = a-c ==> Pno2 = Lno, so R2_1 coeff = a-c c if d-b < a-c ==> Pno2 < Lno, so R2_1 coeff = d-b c cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c..Write the section header WRITE( IOUT, 92020 ) WRITE( IOUT, 92000 ) CLINE WRITE( IOUT, 94020 ) WRITE( IOUT, 92000 ) CLINE LRXN1 = .TRUE. DO N = 1, NRXNS c..Determine the rxn to include & get the coefficient for the loss term COEFF = 0.0D0 CALL SUM_COEFF( RNO, 'R', NO, N ) CALL SUM_COEFF( RNO2, 'R', NO2, N ) CALL SUM_COEFF( PNO, 'P', NO, N ) CALL SUM_COEFF( PNO2, 'P', NO2, N ) IF( PNO2 .LE. RNO2 ) CYCLE ! Skip rxns with Pno2=0 c..do not include NO+O3=NO2 reaction IF( ( IRR( N, 1 ) .EQ. NO .AND. IRR( N, 2 ) .EQ. O3 ) .OR. & ( IRR( N, 1 ) .EQ. O3 .AND. IRR( N, 2 ) .EQ. NO ) .AND. & IRR( N, 4 ) .EQ. NO2 ) CYCLE IF( RNO .LE. PNO ) CYCLE ! Skip rxns with Lno=0 IF( PNO2 - RNO2 .GE. RNO - PNO ) THEN COEFF = RNO - PNO ! for Pno2>=Lno ELSE COEFF = PNO2 - RNO2 ! for Pno2 Pno2=o, so P2 coeff = 0 c if d gt b ==> Pno2 > 0, so c if a le c ==> Lno = 0, so P2 coeff = d-b c if a gt c ==> Lno > 0, so c if d-b > a-c ==> Pno2 > Lno, so P2 coeff = (d-b)-(a-c) c if d-b = a-c ==> Pno2 = Lno, so P2 coeff = 0 c if d-b < a-c ==> Pno2 < Lno, so P2 coeff = 0 c c Added special treatment of NO2EX to group 1 - c cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc WRITE( IOUT, 92020 ) LRXN1 = .TRUE. LNO2EX_DONE = .FALSE. DO N = 1, NRXNS c..Determine the reaction to include & get the coefficient for the prod term COEFF = 0.0D0 CALL SUM_COEFF( RNO, 'R', NO, N ) CALL SUM_COEFF( RNO2, 'R', NO2, N ) CALL SUM_COEFF( PNO, 'P', NO, N ) CALL SUM_COEFF( PNO2, 'P', NO2, N ) c ! do not include NO+O3=NO2 reaction c IF( ( IRR( N, 1 ) .EQ. NO .AND. IRR( N, 2 ) .EQ. O3 ) .OR. c & ( IRR( N, 2 ) .EQ. NO .AND. IRR( N, 1 ) .EQ. O3 ) ) CYCLE IF( PNO2 .LE. RNO2 ) CYCLE ! Skip rxns with Pno2=0 IF( RNO .LE. PNO ) ! Rxns w/ Pno2>0 & Lno=0 & COEFF = PNO2 - RNO2 IF( RNO - PNO .GT. 0.0D0 .AND. ! Rxns w/ Pno2>0 & Lno>0 & & PNO2 - RNO2 .GT. RNO - PNO ) ! Pno2>Lno & COEFF = ( PNO2 - RNO2 ) - ( RNO - PNO ) IF( COEFF .EQ. 0.0D0 ) CYCLE c..only include 1 NO2EX-NO2 reaction ( multiple reactions accounted for in coeffs) IF( LNO2EX_CYCLE .AND. LNO2EX_DONE .AND. & IRR( N, 1 ) .EQ. NO2EX .AND. IRR( N, 4 ) .EQ. NO2 ) CYCLE c..call routine to create output line & write it NPOS = 25 RPOS1 = NO RPOS2 = NO2 PPOS1 = NO2 PPOS2 = NO CALL BLD_OUTLINE( 'RXRAT', 'P2', ' ', 0, COEFF, N, GRPNO, & NPOS, LINOUT, LRXN1, RPOS1, RPOS2, PPOS1, PPOS2 ) LRXN1 = .FALSE. E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) IF( LNO2EX_CYCLE .AND. & IRR( N, 1 ) .EQ. NO2EX .AND. IRR( N, 4 ) .EQ. NO2 ) & LNO2EX_DONE = .TRUE. END DO SPOUT = ADJUSTL( SPECIES( NO2 ) ) E1 = LEN_TRIM( SPOUT ) WRITE( IOUT, '( 3A )' ) ' P2 = YC0( ', SPOUT( 1 : E1 ), & ' ) + P2 * DTC' cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c L2 computation ( Loss of NO2 ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C L2 includes the following NO2 loss terms: c a) for reactions in which NO is not produced, the amount of NO2 lost c b) for reactions in which NO2 is lost and NO is produced, c the amount of NO2 lost in excess of the amount of NO produced c c Hence, c c {aNO +} bNO2 {+ X} = cNO + dNO2 c if b le d ==> Lno2 = 0, so L2 coeff =0 c if b gt d ==> Lno2 > 0, so c if c le a ==> Pno = 0 so L2 coeff = (a-c) c if c gt a ==> Pno > 0, so c if b-d le c-a ==> Lno2 < Pno, so L2 coeff = 0 c if b-d gt c-a ==> Lno2 > Pno, so L2 coeff = (b-d)-(c-a) c cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc WRITE( IOUT, 92020 ) LRXN1 = .TRUE. DO N = 1, NRXNS c..Determine the rxn to include & get the coefficient for the loss term COEFF = 0.0D0 CALL SUM_COEFF( RNO, 'R', NO, N ) CALL SUM_COEFF( RNO2, 'R', NO2, N ) CALL SUM_COEFF( PNO, 'P', NO, N ) CALL SUM_COEFF( PNO2, 'P', NO2, N ) IF( RNO2 .LE. PNO2 ) CYCLE ! Skip rxns w/ Lno2=0 IF( RNO .GE. PNO ) COEFF = RNO2 - PNO2 ! Rxns w/ Lno2>0 & Pno=0 IF( RNO2 + PNO2 .LT. 0.0D0 )THEN ! Stop net stoichiometry WRITE( RNUM, '(I5)') N MSG = 'REACTION ' // RNUM // ': has net stoichiometry for NO2.' & // ' not permitted. ' WRITE(LOGDEV,92000)TRIM( MSG ) LERROR = .TRUE. END IF IF( RNO .LT. PNO .AND. ! Rxns w/ Lno2>0 & Pno>0 & RNO2 - PNO2 .GT. PNO - RNO ) ! & Lno2>Pno & COEFF = (RNO2 -PNO2 ) - ( PNO - RNO ) IF( COEFF .EQ. 0.0D0 ) CYCLE c..call routine to create output line & write it NPOS = 20 RPOS1 = NO2 RPOS2 = NO PPOS1 = NO PPOS2 = NO2 CALL BLD_OUTLINE( 'LFREQ', 'L2 ', 'NO2', NO2, COEFF, N, GRPNO, & NPOS, LINOUT, LRXN1, RPOS1, RPOS2, PPOS1, PPOS2 ) LRXN1 = .FALSE. E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) END DO LINOUT = ' L2 = 1.0D0 + L2 * DTC' E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c P3 computation ( Production of O3 ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c P3 includes O3 production terms from the following reactions: c a) those in which O3 is produced EXCEPT O3P=O3 c cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c..Write the section header WRITE( IOUT, 92020 ) WRITE( IOUT, 92000 ) CLINE WRITE( IOUT, 94040 ) WRITE( IOUT, 92000 ) CLINE LRXN1 = .TRUE. DO N = 1, NRXNS c..Determine the reaction to include & get the coefficient for the prod term COEFF = 0.0D0 CALL SUM_COEFF( RO3, 'R', O3, N ) CALL SUM_COEFF( PO3, 'P', O3, N ) IF( RO3 .GE. PO3 ) CYCLE ! Skip rxns with Po3=0 IF( IRR( N, 1 ) .EQ. O3P .AND. & IRR( N, 4 ) .EQ. O3 ) CYCLE ! Skip O3P=O3 rxn COEFF = PO3 c..call routine to create output line & write it NPOS = 25 RPOS1 = 0 RPOS2 = 0 PPOS1 = O3 PPOS2 = 0 CALL BLD_OUTLINE( 'RXRAT', 'P3 ', ' ', 0, COEFF, N, GRPNO, & NPOS, LINOUT, LRXN1, RPOS1, RPOS2, PPOS1, PPOS2 ) LRXN1 = .FALSE. E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) END DO SPOUT = ADJUSTL( SPECIES( O3 ) ) E1 = LEN_TRIM( SPOUT ) IF( LRXN1 ) THEN WRITE( IOUT, '( 3A )' ) ' P3 = YC0( ', SPOUT( 1 : E1 ), & ' ) ' ELSE WRITE( IOUT, '( 3A )' ) ' P3 = YC0( ', SPOUT( 1 : E1 ), & ' ) + P3 * DTC' END IF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c L3 computation ( Loss of O3 ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c L3 includes O3 loss terms from the following reactions: c a) those in which O3 is lost EXCEPT NO+O3=NO2 cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc WRITE( IOUT, 92020 ) LRXN1 = .TRUE. DO N = 1, NRXNS c..Determine the rxn to include & get the coefficient for the loss term COEFF = 0.0D0 CALL SUM_COEFF( RO3, 'R', O3, N ) CALL SUM_COEFF( PO3, 'P', O3, N ) IF( PO3 .GE. RO3 ) CYCLE ! Skip rxns w/ Lo3=0 ! do not include NO+O3=NO2 reaction IF( ( IRR( N, 1 ) .EQ. NO .AND. IRR( N, 2 ) .EQ. O3 ) .OR. & ( IRR( N, 1 ) .EQ. O3 .AND. IRR( N, 2 ) .EQ. NO ) .AND. & IRR( N, 4 ) .EQ. NO2 ) CYCLE COEFF = RO3 c..call routine to create output line & write it NPOS = 20 RPOS1 = O3 RPOS2 = 0 PPOS1 = 0 PPOS2 = 0 CALL BLD_OUTLINE( 'LFREQ', 'L3 ', 'O3', O3, COEFF, N, GRPNO, & NPOS, LINOUT, LRXN1, RPOS1, RPOS2, PPOS1, PPOS2 ) LRXN1 = .FALSE. E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) END DO LINOUT = ' L3 = 1.0D0 + L3 * DTC' E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c P12 computation ( Production of O3P ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c P12 includes O3P production terms from the following reactions: c a) those in which O3P is produced EXCEPT NO2+hv=O3P c b) special conditions: eliminate O1D=O3P and change c O3=O1D to O3=O3P with stoichiometric coeff=O3P_S c ( done in BLD_OUTLINE) c cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c..Write the section header WRITE( IOUT, 92020 ) WRITE( IOUT, 92000 ) CLINE WRITE( IOUT, 94060 ) WRITE( IOUT, 92000 ) CLINE LRXN1 = .TRUE. DO N = 1, NRXNS CALL SUM_COEFF( RO3P, 'R', O3P, N ) CALL SUM_COEFF( PO3P, 'P', O3P, N ) IF( RO3P .GT. 0 .AND. PO3P .EQ. RO3P ) THEN ! Skip rxns with Po3p=0 CYCLE END IF c..Determine the reaction to include & get the coefficient for the prod term COEFF = 0.0D0 CALL SUM_COEFF( PO3P, 'P', O3P, N ) CALL SUM_COEFF( RO1D, 'R', O1D, N ) CALL SUM_COEFF( PO1D, 'P', O1D, N ) IF( PO3P .LE. 0.0D0 .AND. PO1D .LE. 0.0D0 ) CYCLE ! Skip rxns with Po3p=0 ! & Po1d=0 IF( IRR( N, 1 ) .EQ. O1D .AND. & IRR( N, 4 ) .EQ. O3P ) CYCLE ! Skip O1D=O3P ! Skip NO2+hv=O3P rxn IF( IRR( N, 1 ) .EQ. NO2 .AND. ( IRR( N, 4 ) .EQ. O3P .OR. & IRR( N, 5 ) .EQ. O3P ) ) CYCLE COEFF = PO3P c..call routine to create output line & write it NPOS = 25 RPOS1 = 0 RPOS2 = 0 PPOS1 = O3P PPOS2 = 0 CALL BLD_OUTLINE( 'RXRAT', 'P12 ', ' ', 0, COEFF, N, GRPNO, & NPOS, LINOUT, LRXN1, RPOS1, RPOS2, PPOS1, PPOS2 ) LRXN1 = .FALSE. E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) END DO SPOUT = ADJUSTL( SPECIES( O3P ) ) E1 = LEN_TRIM( SPOUT ) WRITE( IOUT, '( 3A )' ) ' P12 = YC0( ', SPOUT( 1 : E1 ), & ' ) + P12 * DTC' cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c L12 computation ( Loss of O3P ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c L12 includes O3P loss terms from the following reactions: c a) those in which O3P reacts cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c..Write the section header WRITE( IOUT, 92020 ) LRXN1 = .TRUE. DO N = 1, NRXNS c..Determine the reaction to include & get the coefficient for the prod term COEFF = 0.0D0 CALL SUM_COEFF( RO3P, 'R', O3P, N ) CALL SUM_COEFF( PO3P, 'P', O3P, N ) IF( PO3P .GE. RO3P ) CYCLE ! Skip rxns with Lo3p=0 COEFF = RO3P - PO3P c..call routine to create output line & write it NPOS = 25 RPOS1 = O3P RPOS2 = 0 PPOS1 = O3P PPOS2 = 0 CALL BLD_OUTLINE( 'LFREQ', 'L12 ', 'O3P', O3P, COEFF, N, GRPNO, & NPOS, LINOUT, LRXN1, RPOS1, RPOS2, PPOS1, PPOS2 ) LRXN1 = .FALSE. E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) END DO WRITE( IOUT, '( 3A )' ) ' L12 = 1.0D0 + L12 * DTC' cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Continue reading template section cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 200 CONTINUE READ( IIN, 92000, END = 300 ) LINEIN IF( LINEIN( 1 : 2 ) .EQ. 'S1' ) GO TO 300 GO TO 200 300 CONTINUE c..Find rection numbers for NO2->NO+O3P, O3P->O3, & NO+O3->NO2 DO N = 1, NRXNS IF( NREACT( N ) .EQ. 1 .AND. IRR( N, 1 ) .EQ. NO2 ) THEN IF( IRR( N, 4 ) .EQ. NO .AND. IRR( N, 5 ) .EQ. O3P .OR. & IRR( N, 4 ) .EQ. O3P .AND. IRR( N, 5 ) .EQ. NO ) & J1 = N END IF IF( IRR( N, 1 ) .EQ. O3P .AND. IRR( N, 4 ) .EQ. O3 ) & J2 = N IF( ( IRR( N, 1 ) .EQ. NO .AND. IRR( N, 2 ) .EQ. O3 ) .OR. & ( IRR( N, 1 ) .EQ. O3 .AND. IRR( N, 2 ) .EQ. NO ) ) & K1_3 = N END DO LFIRST = .TRUE. 400 CONTINUE READ( IIN, 92000, END = 2000 ) LINEIN IF( LINEIN( 1 : 2 ) .EQ. 'R3' ) THEN IF( LFIRST ) WRITE( IOUT, 95000 ) J1, J2, K1_3 LFIRST = .FALSE. GO TO 400 ELSEIF( LINEIN( 1 : 2 ) .EQ. 'S2' ) THEN GO TO 2000 ELSE WRITE( IOUT, 92000 ) LINEIN( 1 : LEN_TRIM( LINEIN ) ) GO TO 400 END IF 2000 CONTINUE cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Finish solution section code cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c..Find O3->O1D Rxn no. DO N = 1, NRXNS IF( IRR( N, 1 ) .EQ. O3 .AND. IRR( N, 4 ) .EQ. O1D ) THEN KO3_O1D = N EXIT END IF END DO c..Find NO2->NO2EX Rxn no. if NO2EX included in group IF( LNO2EX_CYCLE ) THEN DO N = 1, NRXNS IF( IRR( N, 1 ) .EQ. NO2 .AND. IRR( N, 4 ) .EQ. NO2EX ) THEN KNO2_NO2EX = N EXIT END IF END DO END IF WRITE( IOUT, 96000 ) SPECIES( NO )( 1 : LEN_TRIM( SPECIES( NO ) ) ) WRITE( IOUT, 96020 ) SPECIES( NO2 )( 1 : LEN_TRIM( SPECIES( NO2 ) ) ) WRITE( IOUT, 96040 ) SPECIES( NO2 )( 1 : LEN_TRIM( SPECIES( NO2 ) ) ) WRITE( IOUT, 96060 ) WRITE( IOUT, 96080 ) SPECIES( O3 )( 1 : LEN_TRIM( SPECIES( O3 ) ) ), & SPECIES( NO )( 1 : LEN_TRIM( SPECIES( NO ) ) ) WRITE( IOUT, 96100 ) SPECIES( O3P )( 1 : LEN_TRIM( SPECIES( O3P ) ) ) WRITE( RNUM, '(I5)' ) KO3_O1D RNUM = ADJUSTL( RNUM ) ! WRITE( IOUT, 96120 ) SPECIES( O1D )( 1 : LEN_TRIM( SPECIES( O1D ) ) ), ! & RNUM( 1 : LEN_TRIM( RNUM ) ), ! & SPECIES( O3 )( 1 : LEN_TRIM( SPECIES( O3 ) ) ) WRITE( IOUT, 96121 ) SPECIES( O1D )( 1 : LEN_TRIM( SPECIES( O1D ) ) ), & SPECIES( O1D )( 1 : LEN_TRIM( SPECIES( O1D ) ) ), & RNUM( 1 : LEN_TRIM( RNUM ) ), & SPECIES( O3 )( 1 : LEN_TRIM( SPECIES( O3 ) ) ) IF( LNO2EX_CYCLE ) THEN WRITE( RNUM, '(I5)' ) KNO2_NO2EX RNUM = ADJUSTL( RNUM ) WRITE( IOUT, 96130 ) SPECIES( NO2EX )( 1 : LEN_TRIM( SPECIES( NO2EX ) ) ), & RNUM( 1 : LEN_TRIM( RNUM ) ), & SPECIES( NO2 )( 1 : LEN_TRIM( SPECIES( NO2 ) ) ) WRITE( IOUT, 96135 ) SPECIES( NO2EX )( 1 : LEN_TRIM( SPECIES( NO2EX ) ) ), & RNUM( 1 : LEN_TRIM( RNUM ) ), & SPECIES( NO2 )( 1 : LEN_TRIM( SPECIES( NO2 ) ) ), & SPECIES( NO2 )( 1 : LEN_TRIM( SPECIES( NO2 ) ) ), & SPECIES( NO2EX )( 1 : LEN_TRIM( SPECIES( NO2EX ) ) ) END IF WRITE( IOUT, 96140 ) CLOSE( IIN ) CLOSE( IOUT ) NOUTFLS = NOUTFLS + 1 OUTFLNAM( NOUTFLS ) = 'hrg1.F' IF( LERROR )STOP RETURN 9000 MSG = 'ERROR: Could not open ' // FNAME( 1 : LEN_TRIM( FNAME ) ) WRITE(LOGDEV,'(a)')TRIM( PNAME ) // ': ' // TRIM( MSG ) STOP 92000 FORMAT( A ) 92020 FORMAT( / ) 93000 FORMAT( 'C PRECONDITIONS: For the ', A, ' mechanism' ) 93020 FORMAT( 'C REVISION HISTORY: Created by EBI solver program, ', A ) 93100 FORMAT( 'c O1D Section' / & 'c 1) sum of the rate constants for all O1D loss reactions' / & 'c 2) get fractional yield of O3P from O1D loss' ) 93200 FORMAT( 'c NO2EX Section' / & 'c 1) sum of the rate constants for all NO2EX loss reactions' / & 'c 2) get fractional yield of NO2 from NO2EX loss' ) 94000 FORMAT( & 'c NO Section' / & 'c R1_2 = production of NO from NO2 ( rates of form k[NO2][x] )' / & 'c except NO2+NO3=NO+NO2 (it is treated as if it', & ' were NO3=NO )' / & 'c P1 = remaining NO production terms' / & 'c L1 = loss of NO (except rxns producing NO2 - they', & ' are in R2_1)' ) 94020 FORMAT( & 'c NO2 Section' / & 'c R2_1 = production of NO2 from NO ( rates of form k[NO][x] )'/ & 'c a) NO+O3=NO2 not included'/ & 'c b) NO+NO3=2NO2 ( 1/2 of NO2 formation rate included )' / & 'c c) NO3+NO2=NO+NO2 is not included for NO2' / & 'c P2 = remaining NO2 production terms ' / & 'c a) NO+O3=NO2 not included' / & 'c b) NO+NO3=2NO2 (1/2 of NO2 formation rate included )' / & 'c L2 = loss of NO2 (except rxns producing NO2 - they are in R1_2)' ) 94040 FORMAT( & 'c O3 Section' / & 'c P3 = production of O3 except O+O2=O3' / & 'c L3 = loss terms for O3 except NO+O3=NO2' ) 94060 FORMAT( & 'c O3P Section ' / & 'c P12 = production of O3P except NO2+hv=O3P (J1)' / & 'c L12 = loss terms' ) 95000 FORMAT( &' RK1 = RKI( ', I3, ' ) * DTC ! J1 (NO2+hv=NO+O3P)' / &' RK2 = RKI( ', I3, ' ) * DTC ! J2 (O3P+O2=O3)' / &' RK3 = RKI( ', I3, ' ) * DTC ! k1_3 (NO+O3=NO2)' ) 96000 FORMAT( ' YCP( ', A, ' ) = MAX( 0.0D0, ( P1 + XX ) * L1_INV )' / ) 96020 FORMAT( ' YCP( ', A, ' ) = MAX( 0.0D0, ( P2 - XX ) * L2_INV )' / ) 96040 FORMAT( ' S1 = P12 + RK1 * YCP( ', A, ' )' / ) 96060 FORMAT( ' S2 = T4 * S1' / ) 96080 FORMAT( ' YCP( ', A, ' ) = ( P3 + S2 ) / ( L3 + RK3 * YCP( ', & A, ' ) )' / ) 96100 FORMAT( ' YCP( ', A, ' ) = S1 * L12_INV' / ) 96120 FORMAT( ' YCP( ', A, ' ) = RKI( ', A, ' ) * YCP( ', A, & ' ) / O1D_S' / ) 96121 FORMAT( ' YCP( ', A, ' ) = ( YC0( ', A,' ) + RKI( ', A, ' ) * YCP( ', A, ' ) * DTC ) ', & /' & / ( 1.0D0 + O1D_S * DTC )' / ) 96130 FORMAT( 'C Steady State Solution ' / & 'C YCP( ', A, ' ) = RKI( ', A, ' ) * YCP( ', A, & ' ) / EXN_S' / ) 96135 FORMAT( 'C Time Dependent Solution ' / & ' YCP( ', A, ' ) = RKI( ', A, ' )/EXN_S*(YCP( ', A, & ' ) - YC0( ', A, ' )*EXP( -EXN_S*DTC ) ) ' / & ' & + YC0( ', A, ' )*EXP( -EXN_S * DTC ) ' & / ) 96140 FORMAT( ' RETURN' // ' END' // ) END ================================================ FILE: UTIL/create_ebi/src/wr_gp2.F ================================================ SUBROUTINE WR_GP2 C********************************************************************** C C FUNCTION: Create source code for the hrgp2 subroutine in EBI C C PRECONDITIONS: None C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by Jerry Gipson, February, 2004 C C********************************************************************** USE ENV_VARS USE GLOBAL_DATA !!USE M3UTILIO ! IOAPI parameters and declarations USE RXNS_DATA IMPLICIT NONE C..INCLUDES: C..ARGUMENTS: None C..PARAMETERS: INTEGER, PARAMETER :: GRPNO = 2 C..EXTERNAL FUNCTIONS: INTEGER JUNIT ! gets unit no. ! INTEGER NAME_INDEX ! find position of string in list C..SAVED LOCAL VARIABLES: None C..SCRATCH LOCAL VARIABLES: CHARACTER( 16 ) :: PNAME = 'WR_GP2' ! Program name CHARACTER( 256 ) :: MSG ! Message text CHARACTER( 100 ) :: LINEIN ! Input line CHARACTER( CL ) :: SPOUT ! Ouput species CHARACTER( 16 ) :: SPEC CHARACTER( 256 ) :: FNAME ! Name of file to open CHARACTER( 72 ) :: CLINE ! Line of c's CHARACTER( 256 ) :: LINOUT CHARACTER( 150 ) :: RXOUT CHARACTER( 100 ) :: BLANK_LINE CHARACTER*( 5 ) :: RNUM ! Reaction number CHARACTER*( 6 ) :: COUT ! Output coefficient CHARACTER*( 1 ) :: SGN ! Coefficient sign INTEGER :: E1, E2 ! end pos of string INTEGER :: IND ! array index INTEGER :: IIN ! Unit no. of input file INTEGER :: IOUT ! Unit no. of output file INTEGER :: N, S, P, R ! Loop indices INTEGER :: NR ! No. of reactants INTEGER :: NPOS ! Reaction index INTEGER :: RPOS1 ! INTEGER :: RPOS2 ! INTEGER :: PPOS1 ! INTEGER :: PPOS2 ! LOGICAL :: LFIRST LOGICAL :: LRXN1 REAL( 8 ) :: COEFF REAL( 8 ) :: ROH REAL( 8 ) :: RHO2 REAL( 8 ) :: POH REAL( 8 ) :: PHO2 REAL( 8 ) :: RHONO REAL( 8 ) :: PHONO REAL( 8 ) :: RHNO4 REAL( 8 ) :: PHNO4 C********************************************************************** DO N = 1, 72 CLINE( N : N ) = 'c' END DO DO N = 1, 100 BLANK_LINE( N : N ) = ' ' END DO ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Open ouput file and code template ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc E1 = LEN_TRIM( OUTPATH ) FNAME = OUTPATH( 1 : E1 ) // '/hrg2.F' IOUT = JUNIT() OPEN( UNIT = IOUT, FILE = FNAME, ERR = 9000 ) IIN = JUNIT() E1 = LEN_TRIM( TMPLPATH ) FNAME = TMPLPATH( 1 : E1 ) // '/hrg2.F' OPEN( UNIT = IIN, FILE = FNAME, ERR = 9000 ) IF( LWR_COPY ) CALL WR_COPYRT( IOUT ) IF( LWR_CVS_HDR ) CALL WR_CVSHDR( IOUT ) ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Read, modify, and write 1st section of code from template ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 100 CONTINUE READ( IIN, 92000, END = 1000 ) LINEIN IF( LINEIN( 1 : 2 ) .EQ. 'R1' ) THEN WRITE( IOUT, 93000 ) TRIM( MECHNAME ) GO TO 100 ELSEIF( LINEIN( 1 : 2 ) .EQ. 'R2' ) THEN WRITE( IOUT, 93020 ) CR_DATE( 1 : LEN_TRIM( CR_DATE ) ) GO TO 100 ELSEIF( LINEIN( 1 : 2 ) .EQ. 'RE' ) THEN IF( LNO2EX_CYCLE ) WRITE( IOUT, 92000 ) LINEIN( 3 : LEN_TRIM( LINEIN ) ) GO TO 100 ELSEIF( LINEIN( 1 : 2 ) .EQ. 'S1' ) THEN GO TO 1000 ELSE WRITE( IOUT, 92000 ) LINEIN( 1 : LEN_TRIM( LINEIN ) ) GO TO 100 END IF 1000 CONTINUE cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Do O1D section cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc WRITE( IOUT, 92020 ) WRITE( IOUT, 94000 ) c..get all reactions in which O1D is reacting LRXN1 = .TRUE. DO N = 1, NRXNS RPOS1 = 0 DO R = 1, NREACT( N ) IF(IRR(N, R) .EQ. O1D)RPOS1 = O1D END DO IF ( RPOS1 .NE. O1D )THEN CYCLE ! Skip Rxns w/ Lo1d=0 ELSE PRINT*,' Found O1D destruction in reaction #',N END IF C IF ( IRR( N, 1 ) .NE. O1D ) CYCLE ! Skip Rxns w/ Lo1d=0 COEFF = 1.0D0 NPOS = 20 RPOS1 = O1D RPOS2 = 0 PPOS1 = 0 PPOS2 = 0 CALL BLD_OUTLINE( 'LFREQ', 'O1D_S', 'O1D', O1D, COEFF, N, GRPNO, & NPOS, LINOUT, LRXN1, RPOS1, RPOS2, PPOS1, PPOS2 ) LRXN1 = .FALSE. E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) END DO WRITE( IOUT, 92000 ) c..get reaction(s) producing OH from O1D LRXN1 = .TRUE. DO N = 1, NRXNS RPOS1 = 0 DO R = 1, NREACT( N ) IF(IRR(N, R) .EQ. O1D)RPOS1 = O1D END DO PPOS1 = 0 DO P = 1, NPRDCT( N ) C PRINT*,'For reaction ',N,', ', P, OH IF(IRR(N, P+3) .EQ. OH)PPOS1 = OH END DO IF ( RPOS1 .NE. O1D .OR. PPOS1 .NE. OH )THEN CYCLE ELSE PRINT*,' Found OH production via O1D in reaction #',N END IF C IF ( IRR( N, 1 ) .NE. O1D .OR. IRR( N, 4 ) .NE. OH ) CYCLE COEFF = SC( N, 1 ) NPOS = 20 RPOS1 = O1D RPOS2 = 0 PPOS1 = OH PPOS2 = 0 CALL BLD_OUTLINE( 'LFREQ', 'OH_S', 'O1D', O1D, COEFF, N, GRPNO, & NPOS, LINOUT, LRXN1, RPOS1, RPOS2, PPOS1, PPOS2 ) LRXN1 = .FALSE. E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) END DO c..write the the final line WRITE( IOUT, 92000 ) LINOUT = ' OH_S = OH_S / O1D_S' E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) WRITE( IOUT, 92000 ) c..get reaction(s) producing HO2 from O1D LRXN1 = .TRUE. LOOP_HO2: DO N = 1, NRXNS RPOS1 = 0 DO R = 1, NREACT( N ) IF(IRR(N, R) .EQ. O1D)RPOS1 = O1D END DO PPOS1 = 0 DO P = 1, NPRDCT( N ) C PRINT*,'For reaction ',N,', ', P, HO2 IF(IRR(N, P+3) .EQ. HO2)PPOS1 = HO2 END DO IF ( RPOS1 .NE. O1D .OR. PPOS1 .NE. HO2 )THEN CYCLE ELSE PRINT*,' Found HO2 production via O1D in reaction #',N END IF COEFF = SC( N, 1 ) NPOS = 20 RPOS1 = O1D RPOS2 = 0 PPOS1 = HO2 PPOS2 = 0 CALL BLD_OUTLINE( 'LFREQ', 'HO2_S', 'O1D', O1D, COEFF, N, GRPNO, & NPOS, LINOUT, LRXN1, RPOS1, RPOS2, PPOS1, PPOS2 ) LRXN1 = .FALSE. E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) END DO LOOP_HO2 c..write the the final line E1 = SCAN( LINOUT, '(') IF( E1 .GE. 1)THEN C print*,e1,'xx', LINOUT( 1 : E1 ) WRITE( IOUT, 92000 ) LINOUT = ' HO2_S = HO2_S / O1D_S' E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) ELSE PRINT*,'No HO2 production via O1D found' END IF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Do NO2EX_CYCLE section cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF( LNO2EX_CYCLE ) THEN WRITE( IOUT, 92000 ) WRITE( IOUT, 94010 ) c..get all reactions in which NO2EX is reacting LRXN1 = .TRUE. PRINT*,' NO2EX = ', NO2EX DO N = 1, NRXNS IF( IRR( N, 1 ) .NE. NO2EX ) CYCLE ! Skip Rxns w/ Lno2ex=0 COEFF = 1.0D0 NPOS = 20 RPOS1 = NO2EX RPOS2 = 0 PPOS1 = 0 PPOS2 = 0 CALL BLD_OUTLINE( 'LFREQ', 'EXN_S', 'NO2EX', NO2EX, COEFF, N, GRPNO, & NPOS, LINOUT, LRXN1, RPOS1, RPOS2, PPOS1, PPOS2 ) LRXN1 = .FALSE. E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) END DO WRITE( IOUT, 92000 ) c..get reaction(s) producing OH+HONO from NO2EX c..assumes reaction of form NO2EX=OH+HONO LRXN1 = .TRUE. DO N = 1, NRXNS IF( IRR( N, 1 ) .NE. NO2EX ) CYCLE IF( ( IRR( N, 4 ) .NE. OH .OR. IRR( N, 5 ) .NE. HONO ) .AND. & ( IRR( N, 5 ) .NE. OH .OR. IRR( N, 4 ) .NE. HONO ) ) CYCLE COEFF = 1.0D0 NPOS = 20 RPOS1 = NO2EX RPOS2 = 0 PPOS1 = OH PPOS2 = 0 CALL BLD_OUTLINE( 'LFREQ', 'XOH_S', 'NO2EX', NO2EX, COEFF, N, GRPNO, & NPOS, LINOUT, LRXN1, RPOS1, RPOS2, PPOS1, PPOS2 ) LRXN1 = .FALSE. E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) END DO c..write the the final line WRITE( IOUT, 92000 ) LINOUT = ' XOH_S = XOH_S / EXN_S' E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) END IF ! LNO2EX_CYCLE cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c R4_5 computation ( Production of OH from reactions of HO2 ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C R4_5 includes OH production from the following reactions: c a) those in which OH is produced form HO2 (include only c equivalent amounts of loss and production) c c Hence, c c {aOH +} bHO2 {+ X} = cOH + dHO2 c if c le a ==> Poh = 0, so R4_5 coeff = 0 c if c gt a ==> Poh > 0 c if b le d ==> Lho2 = 0, so R4_5 coeff = 0 c if b gt d ==> Lho2 > 0, so c if b-d > c-a ==> Lho2 > Poh, so R4_5 coeff = c-a c if b-d = c-a ==> Lho2 = Poh, so R4_5 coeff = c-a c if b-d < c-a ==> Lho2 < Poh, so R4_5 coeff = b-d c cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c..Write the section header WRITE( IOUT, 92000 ) WRITE( IOUT, 94020 ) LRXN1 = .TRUE. DO N = 1, NRXNS c..find the rxns to include and set the coefficient COEFF = 0.0D0 CALL SUM_COEFF( ROH, 'R', OH, N ) CALL SUM_COEFF( RHO2, 'R', HO2, N ) CALL SUM_COEFF( POH, 'P', OH, N ) CALL SUM_COEFF( PHO2, 'P', HO2, N ) IF( POH .LE. ROH ) CYCLE ! Skip if Poh=0 IF( RHO2 .LE. PHO2 ) CYCLE ! Skip if Lho2=0 IF( RHO2 - PHO2 .GE. POH - ROH ) THEN COEFF = POH - ROH ! for Lho2 >= Poh ELSE COEFF = RHO2 - PHO2 ! for Lho2 < Poh END IF IF( COEFF .EQ. 0.0D0 ) CYCLE c..call routine to create output line & write it NPOS = 20 RPOS1 = HO2 RPOS2 = OH PPOS1 = OH PPOS2 = HO2 CALL BLD_OUTLINE( 'LFREQ', 'R4_5', 'HO2', HO2, COEFF, N, GRPNO, & NPOS, LINOUT, LRXN1, RPOS1, RPOS2, PPOS1, PPOS2 ) LRXN1 = .FALSE. E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) END DO WRITE( IOUT, 92000 ) WRITE( IOUT, '( A )' ) ' R4_5 = R4_5 * DTC' cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c R4_19 computation ( Production of OH from reactions of HONO ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C R4_19 includes OH production from the following reaction: c a) HONO=OH+NO c cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc WRITE( IOUT, 92000 ) WRITE( IOUT, 94040 ) LRXN1 = .TRUE. DO N = 1, NRXNS c..Skip reactions other than HONO=OH+NO or HONO=NO+OH IF( IRR( N, 1 ) .NE. HONO ) CYCLE IF( ( IRR( N, 4 ) .NE. OH .OR. IRR( N, 5 ) .NE. NO ) .AND. & ( IRR( N, 5 ) .NE. OH .OR. IRR( N, 4 ) .NE. NO ) ) CYCLE COEFF = 1.0D0 c..call routine to create output line & write it NPOS = 20 RPOS1 = HONO RPOS2 = 0 PPOS1 = OH PPOS2 = 0 CALL BLD_OUTLINE( 'LFREQ', 'R4_19', 'HONO', HONO, COEFF, N, GRPNO, & NPOS, LINOUT, LRXN1, RPOS1, RPOS2, PPOS1, PPOS2 ) LRXN1 = .FALSE. E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) END DO WRITE( IOUT, 92000 ) WRITE( IOUT, '( A )' ) ' R4_19 = R4_19 * DTC' cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c P4 computation ( Production of OH ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C P4 includes OH production terms from the following reactions: c a) those in which OH is produced & HO2 & HONO are NOT reactants c b) those in which OH is produced and HO2 is consumed and the c OH production rate exceeds the HO2 loss rate (excess amount only) c c Hence, c c {aOH +} bHO2 {+ X} = cOH + dHO2 c if c le a ==> Poh=o, so P1 coeff = 0 c if c gt a ==> Poh > 0, so c if b le d ==> Lho2 = 0, so P4 coeff = c-a c if b gt d ==> Lho2 > 0, so c if b-d > c-a ==> Lho2 > Poh, so P4 coeff = 0 c if b-d = c-a ==> Lho2 = Poh, so P4 coeff = 0 c if b-d < c-a ==> Lho2 < Poh, so P4 coeff = (c-a) - (b-d) c cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc WRITE( IOUT, 92000 ) WRITE( IOUT, 94060 ) LRXN1 = .TRUE. DO N = 1, NRXNS c..Determine the reactions to include & get coefficients for the prod terms COEFF = 0.0D0 CALL SUM_COEFF( ROH, 'R', OH, N ) CALL SUM_COEFF( RHO2, 'R', HO2, N ) CALL SUM_COEFF( POH, 'P', OH, N ) CALL SUM_COEFF( PHO2, 'P', HO2, N ) IF( POH .LE. ROH ) CYCLE ! Skip rxns with Poh=0 IF( IRR( N, 1 ) .EQ. HONO .AND. ! Skip HONO=OH+NO rxn & POH .GT. 0.0D0 ) CYCLE IF( RHO2 .LE. PHO2 ) THEN ! Rxns with Lho2=0 COEFF = POH - ROH ELSEIF( RHO2 - PHO2 .LT. POH - ROH ) THEN ! Rxns w/ Lho2 < Poh COEFF = ( POH - ROH ) - ( RHO2 - PHO2 ) END IF IF( COEFF .EQ. 0.0D0 ) CYCLE c..call routine to create output line & write it NPOS = 30 RPOS1 = HO2 RPOS2 = OH PPOS1 = OH PPOS2 = HO2 CALL BLD_OUTLINE( 'RXRAT', 'P4', ' ', 0, COEFF, N, GRPNO, & NPOS, LINOUT, LRXN1, RPOS1, RPOS2, PPOS1, PPOS2 ) LRXN1 = .FALSE. E1 = LEN_TRIM( LINOUT ) IF( E1 .LT. 2)CYCLE WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) END DO SPOUT = ADJUSTL( SPECIES( OH ) ) E1 = LEN_TRIM( SPOUT ) WRITE( IOUT, 92000 ) WRITE( IOUT, '( 3A )' ) ' P4 = YC0( ', SPOUT( 1 : E1 ), & ' ) + P4 * DTC' cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c R5_4 computation ( Production of HO2 from reactions of OH ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C R5_4 includes OH production from the following reactions: c a) those in which HO2 is produced from OH (include only c equivalent amounts of loss and production) c c Hence, c c aOH {+ bHO2} {+ X} = cOH + dHO2 c if d le b ==> Pho2 = 0, so R5_4 coeff = 0 c if d gt b ==> Pho2 > 0 c if a le c ==> Loh = 0, so R5_4 coeff = 0 c if c gt a ==> Loh > 0, so c if d-b > a-c ==> Pho2 > Loh, so R4_5 coeff = a-c c if d-b = a-c ==> Pho2 = Loh, so R4_5 coeff = a-c c if d-b < a-c ==> Pho2 < Loh, so R4_5 coeff = d-b c cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c..Write the section header WRITE( IOUT, 92000 ) WRITE( IOUT, 94080 ) LRXN1 = .TRUE. DO N = 1, NRXNS c..find the rxns to include and set the coefficient COEFF = 0.0D0 CALL SUM_COEFF( ROH, 'R', OH, N ) CALL SUM_COEFF( RHO2, 'R', HO2, N ) CALL SUM_COEFF( POH, 'P', OH, N ) CALL SUM_COEFF( PHO2, 'P', HO2, N ) IF( PHO2 .LE. RHO2 ) CYCLE ! Skip if Pho2=0 IF( ROH .LE. POH ) CYCLE ! Skip if Loh=0 IF( PHO2 - RHO2 .GE. ROH - POH ) THEN COEFF = ROH - POH ! for Pho2 >= Loh ELSE COEFF = PHO2 - RHO2 ! for Pho2 < Loh END IF IF( COEFF .EQ. 0.0D0 ) CYCLE c..call routine to create output line & write it NPOS = 20 RPOS1 = OH RPOS2 = HO2 PPOS1 = HO2 PPOS2 = OH CALL BLD_OUTLINE( 'LFREQ', 'R5_4', 'OH', OH, COEFF, N, GRPNO, & NPOS, LINOUT, LRXN1, RPOS1, RPOS2, PPOS1, PPOS2 ) LRXN1 = .FALSE. E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) END DO WRITE( IOUT, 92000 ) WRITE( IOUT, '( A )' ) ' R5_4 = R5_4 * DTC' cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c R5_21 computation ( Production of HO2 from reactions of HNO4 ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C R5_21 includes OH production from the following reaction: c a) those in which HO2 is produced form the raction of HNO4 c cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc WRITE( IOUT, 92000 ) WRITE( IOUT, 94100 ) LRXN1 = .TRUE. DO N = 1, NRXNS c..find the rxns to include and set the coefficient COEFF = 0.0D0 CALL SUM_COEFF( RHNO4, 'R', HNO4, N ) CALL SUM_COEFF( PHO2, 'P', HO2, N ) IF( RHNO4 .LE. 0.0D0 .OR. PHO2 .LE. 0.0D0 ) CYCLE ! Skip if Pho2=0 or ! Lhno4=0 COEFF = MIN( PHO2, RHNO4 ) c..call routine to create output line & write it NPOS = 20 RPOS1 = HNO4 RPOS2 = 0 PPOS1 = HO2 PPOS2 = 0 CALL BLD_OUTLINE( 'LFREQ', 'R5_21', 'HNO4', HNO4, COEFF, N, GRPNO, & NPOS, LINOUT, LRXN1, RPOS1, RPOS2, PPOS1, PPOS2 ) LRXN1 = .FALSE. E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) END DO WRITE( IOUT, 92000 ) WRITE( IOUT, '( A )' ) ' R5_21 = R5_21 * DTC' cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c P5 computation ( Production of HO2 ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C P5 includes OH production terms from the following reactions: c a) those in which HO2 is produced & OH & HNO4 are NOT reactants c b) those in which HO2 is produced and OH is consumed and the c HO2 production rate exceeds the OH loss rate (excess amount only) c c) those in which HO2 is produced and HNO4 is consumed and the c HO2 production rate exceeds the HNO4 loss rate (excess amount only) c c Hence, c c {aOH +} bHO2 {+ X} = cOH + dHO2 c if d le b ==> Pho2=o, so P5 coeff = 0 c if d gt b ==> Pho2 > 0, so c if a le c ==> Loh = 0, so P5 coeff = d-b c if a gt c ==> Loh > 0, so c if d-b > a-c ==> Pho2 > Loh, so P5 coeff = (d-b)-(a-c) c if d-b = a-c ==> Pho2 = Loh, so P5 coeff = 0 c if d-b < a-c ==> Pho2 < Loh, so P5 coeff = 0 c cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc WRITE( IOUT, 92000 ) WRITE( IOUT, 94120 ) LRXN1 = .TRUE. DO N = 1, NRXNS c..Determine the reactions to include & get coefficients for the prod terms COEFF = 0.0D0 CALL SUM_COEFF( ROH, 'R', OH, N ) CALL SUM_COEFF( RHO2, 'R', HO2, N ) CALL SUM_COEFF( RHNO4, 'R', HNO4, N ) CALL SUM_COEFF( POH, 'P', OH, N ) CALL SUM_COEFF( PHO2, 'P', HO2, N ) IF( PHO2 .LE. RHO2 ) CYCLE ! Skip rxns with Pho2=0 IF( RHNO4 .GT. 0.0D0 ) THEN IF( RHO2 .GT. RHNO4 ) COEFF = RHO2 - RHNO4 ! Rxns w/ Ph02>Lhno4 ELSE IF( ROH .LE. POH ) THEN ! Rxns w/ Ph02>0 & Loh=0 COEFF = PHO2 - RHO2 ELSEIF( PHO2 - RHO2 .GT. ROH - POH ) THEN COEFF = ( PHO2 - RHO2 ) - ( ROH - POH ) !Rxns w/ Pho2>0 & Loh>0 END IF ! and Pho2 > Loh END IF IF( COEFF .EQ. 0.0D0 ) CYCLE c..call routine to create output line & write it NPOS = 30 RPOS1 = HO2 RPOS2 = OH PPOS1 = HO2 PPOS2 = OH CALL BLD_OUTLINE( 'RXRAT', 'P5', ' ', 0, COEFF, N, GRPNO, & NPOS, LINOUT, LRXN1, RPOS1, RPOS2, PPOS1, PPOS2 ) LRXN1 = .FALSE. E1 = LEN_TRIM( LINOUT ) IF( E1 .LT. 2)CYCLE WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) END DO SPOUT = ADJUSTL( SPECIES( HO2 ) ) E1 = LEN_TRIM( SPOUT ) WRITE( IOUT, 92000 ) WRITE( IOUT, '( 3A )' ) ' P5 = YC0( ', SPOUT( 1 : E1 ), & ' ) + P5 * DTC' cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c R19_4 computation ( Production of HONO from reactions of OH ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C R19_4 includes HONO production from the following reaction: c a) OH+NO=HONO c cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc WRITE( IOUT, 92000 ) WRITE( IOUT, 94140 ) LRXN1 = .TRUE. DO N = 1, NRXNS c..Find OH+NO=HONO Rxn IF( ( IRR( N, 1 ) .EQ. OH .AND. IRR( N, 2 ) .EQ. NO .AND. & IRR( N, 4 ) .EQ. HONO ) .OR. & ( IRR( N, 1 ) .EQ. NO .AND. IRR( N, 2 ) .EQ. OH .AND. & IRR( N, 4 ) .EQ. HONO ) ) & WRITE( RNUM, '(I5)' ) N END DO SPOUT = ADJUSTL( SPECIES( NO ) ) LINOUT = ' R19_4 = RKI( ' // RNUM // ' ) * YC( ' // & SPOUT // ' ) * DTC ! OH+NO=HONO' E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c P19 computation ( Production of HONO ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C P19 includes HONO production terms from the following reactions: c a) all that produce HONO except OH+NO=HONO c NOTE: there may be non in some mechanisms c cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc WRITE( IOUT, 92000 ) WRITE( IOUT, 94160 ) LRXN1 = .TRUE. DO N = 1, NRXNS c..Determine the reactions to include & get coefficients for the prod terms COEFF = 0.0D0 CALL SUM_COEFF( RHONO, 'R', HONO, N ) CALL SUM_COEFF( PHONO, 'P', HONO, N ) IF( PHONO .LE. RHONO ) CYCLE ! Skip rxns with Phono=0 ! Skip OH+NO=HONO Rxn IF( IRR( N, 1 ) .EQ. OH .AND. IRR( N, 2 ) .EQ. NO .OR. & IRR( N, 1 ) .EQ. NO .AND. IRR( N, 2 ) .EQ. OH ) & CYCLE COEFF = PHONO ! Rxns w/ Phono>0 IF( COEFF .EQ. 0.0D0 ) CYCLE c..call routine to create output line & write it NPOS = 30 RPOS1 = OH RPOS2 = NO PPOS1 = HONO PPOS2 = 0 CALL BLD_OUTLINE( 'RXRAT', 'P19', ' ', 0, COEFF, N, GRPNO, & NPOS, LINOUT, LRXN1, RPOS1, RPOS2, PPOS1, PPOS2 ) LRXN1 = .FALSE. E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) END DO IF( LRXN1 ) THEN SPOUT = ADJUSTL( SPECIES( HONO ) ) E1 = LEN_TRIM( SPOUT ) LINOUT = ' P19 = YC0( ' // SPOUT( 1 : E1 ) // ' )' E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) ELSE SPOUT = ADJUSTL( SPECIES( HONO ) ) E1 = LEN_TRIM( SPOUT ) WRITE( IOUT, 92000 ) WRITE( IOUT, '( 3A )' ) ' P19 = YC0( ', SPOUT( 1 : E1 ), & ' ) + P19 * DTC' END IF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c R21_5 computation ( Production of HNO4 from reactions of HO2 ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C R21_5 includes HONO production from the following reaction: c a) HO2+NO2=HNO4 c cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc E1 = LEN_TRIM( SPECIES( HNO4 ) ) E2 = LEN_TRIM( SPECIES( HO2 ) ) WRITE( IOUT, 92000 ) WRITE( IOUT, 94180 ) SPECIES( HNO4 )( 1 : E1 ), SPECIES( HO2 )( 1 : E2 ) LRXN1 = .TRUE. DO N = 1, NRXNS c..Find OH+NO=HONO Rxn IF( ( IRR( N, 1 ) .EQ. HO2 .AND. IRR( N, 2 ) .EQ. NO2 .AND. & IRR( N, 4 ) .EQ. HNO4 ) .OR. & ( IRR( N, 1 ) .EQ. NO2 .AND. IRR( N, 2 ) .EQ. HO2 .AND. & IRR( N, 4 ) .EQ. HNO4 ) ) & WRITE( RNUM, '(I5)' ) N END DO SPOUT = ADJUSTL( SPECIES( NO2 ) ) LINOUT = ' R21_5 = RKI( ' // RNUM // ' ) * YCP( ' // & SPOUT // ' ) * DTC ! HO2+NO2=HNO4' E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c P21 computation ( Production of HNO4 ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C P19 includes HONO production terms from the following reactions: c a) all that produce HNO4 except HO2+NO2=HNO4 c NOTE: Usually none c cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc E1 = LEN_TRIM( SPECIES( HNO4 ) ) WRITE( IOUT, 92000 ) WRITE( IOUT, 94200 ) SPECIES( HNO4 )( 1 : E1 ) LRXN1 = .TRUE. DO N = 1, NRXNS c..Determine the reactions to include & get coefficients for the prod terms COEFF = 0.0D0 CALL SUM_COEFF( RHNO4, 'R', HNO4, N ) CALL SUM_COEFF( PHNO4, 'P', HNO4, N ) IF( PHNO4 .LE. RHNO4 ) CYCLE ! Skip rxns with Phno4=0 ! Skip HO2+NO2=HNO4 Rxn IF( IRR( N, 1 ) .EQ. HO2 .AND. IRR( N, 2 ) .EQ. NO2 .OR. & IRR( N, 1 ) .EQ. NO2 .AND. IRR( N, 2 ) .EQ. HO2 ) & CYCLE COEFF = PHNO4 ! Rxns w/ Phono>0 IF( COEFF .EQ. 0.0D0 ) CYCLE c..call routine to create output line & write it NPOS = 30 RPOS1 = OH RPOS2 = NO PPOS1 = HONO PPOS2 = 0 CALL BLD_OUTLINE( 'RXRAT', 'P21', ' ', 0, COEFF, N, GRPNO, & NPOS, LINOUT, LRXN1, RPOS1, RPOS2, PPOS1, PPOS2 ) LRXN1 = .FALSE. E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) END DO IF( LRXN1 ) THEN SPOUT = ADJUSTL( SPECIES( HNO4 ) ) E1 = LEN_TRIM( SPOUT ) LINOUT = ' P21 = YC0( ' // SPOUT( 1 : E1 ) // ' )' E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) ELSE WRITE( IOUT, 92000 ) SPOUT = ADJUSTL( SPECIES( HNO4 ) ) E1 = LEN_TRIM( SPOUT ) WRITE( IOUT, '( 3A )' ) ' P21 = YC0( ', SPOUT( 1 : E1 ), & ' ) + P21 * DTC' END IF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c L4 computation ( Loss of OH ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C L4 includes the following OH loss terms: c a) loss from reactions in which HO2 or HONO is not produced c b) in reactions in which HO2 is produced, the amount of OH lost c in excess of the amount of HO2 formed c c Hence, c c aOH {+ bHO2} {+ X} = cOH + dHO2 c if a le c ==> Loh = 0, so L4 coeff =0 c if a gt c ==> Loh > 0, so c if d le b ==> Pho2 = 0 so L4 coeff = (a-c) c if d gt b ==> Pho2 > 0, so c if a-c le d-b ==> Loh < Pho2, so L4 coeff = 0 c if a-c gt d-b ==> Loh > Pho2, so L4 coeff = (a-c)-(d-b) c cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc E1 = LEN_TRIM( SPECIES( OH ) ) WRITE( IOUT, 92000 ) WRITE( IOUT, 94220 ) SPECIES( OH )( 1 : E1 ) LRXN1 = .TRUE. DO N = 1, NRXNS c..Determine the rxn to include & get the coefficient for the loss term COEFF = 0.0D0 CALL SUM_COEFF( ROH, 'R', OH, N ) CALL SUM_COEFF( RHO2, 'R', HO2, N ) CALL SUM_COEFF( POH, 'P', OH, N ) CALL SUM_COEFF( PHO2, 'P', HO2, N ) IF( ROH .LE. POH ) CYCLE ! Skip rxns w/ Loh=0 IF( IRR( N, 4 ) .EQ. HONO .AND. ! Skip OH+NO=HONO rxn & ROH .GT. 0.0D0 ) CYCLE IF( PHO2 .LE. RHO2 ) COEFF = ROH - POH ! Rxns w/ Loh > 0 & ! Pho2 = 0 IF( PHO2 .GT. RHO2 .AND. & ROH - POH .GT. PHO2 - RHO2 ) ! Rxns w/ Loh > 0 & & COEFF = ROH - POH - ( PHO2 - RHO2 ) ! Pho2 > 0 IF( ABS( COEFF ) .LT. 1.0D-8 ) CYCLE c..call routine to create output line & write it NPOS = 20 RPOS1 = OH RPOS2 = HO2 PPOS1 = HO2 PPOS2 = OH CALL BLD_OUTLINE( 'LFREQ', 'L4', 'OH', OH, COEFF, N, GRPNO, & NPOS, LINOUT, LRXN1, RPOS1, RPOS2, PPOS1, PPOS2 ) LRXN1 = .FALSE. E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) END DO WRITE( IOUT, 92000 ) LINOUT = ' L4 = 1.0D0 + L4 * DTC + R5_4 + R19_4' E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c L5 computation ( Loss of HO2 ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C L5 includes the following HO2 loss terms: c a) loss from reactions in which HO2 or HNO4 is not produced c EXCEPTION: HO2+HO2=H2O2 c b) in reactions in which OH is produced, the amount of HO2 lost c in excess of the amount of OH formed c c Hence, c c aOH {+ bHO2} {+ X} = cOH + dHO2 c if b le d ==> Lho2 = 0, so L5 coeff =0 c if b gt d ==> Lho2 > 0, so c if c le a ==> Poh = 0 so L5 coeff = (a-c) c if c gt a ==> Poh > 0, so c if b-d le c-a ==> Lho2 < Poh, so L5 coeff = 0 c if b-d gt c-a ==> Lho2 > Poh, so L5 coeff = (b-d)-(c-a) c cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc SPOUT = SPECIES( HO2 ) E1 = LEN_TRIM( SPOUT ) WRITE( IOUT, 92000 ) WRITE( IOUT, 94240 ) SPOUT( 1 : E1 ), SPOUT( 1 : E1 ), SPOUT( 1 : E1 ) LRXN1 = .TRUE. DO N = 1, NRXNS c..Determine the rxn to include & get the coefficient for the loss term COEFF = 0.0D0 CALL SUM_COEFF( ROH, 'R', OH, N ) CALL SUM_COEFF( RHO2, 'R', HO2, N ) CALL SUM_COEFF( POH, 'P', OH, N ) CALL SUM_COEFF( PHO2, 'P', HO2, N ) IF( RHO2 .LE. PHO2 ) CYCLE ! Skip rxns w/ Lho2=0 IF( IRR( N, 4 ) .EQ. HNO4 .AND. ! Skip HO2+NO2=HNO4 rxn & RHO2 .GT. 0.0D0 ) CYCLE IF( RHO2 .GE. 2.0D0 ) CYCLE ! Skip HO2+HO2 rxns IF( POH .LE. ROH ) COEFF = RHO2 - PHO2 ! Rxns w/ Lho2 > 0 & ! Poh = 0 IF( POH .GT. ROH .AND. & RHO2 - PHO2 .GT. POH - ROH ) ! Rxns w/ Loh > 0 & & COEFF = RHO2 - PHO2 - ( POH - ROH ) ! Pho2 > 0 & Lho2>Poh IF( COEFF .EQ. 0.0D0 ) CYCLE c..call routine to create output line & write it NPOS = 20 RPOS1 = HO2 RPOS2 = OH PPOS1 = OH PPOS2 = HO2 CALL BLD_OUTLINE( 'LFREQ', 'L5', 'HO2', HO2, COEFF, N, GRPNO, & NPOS, LINOUT, LRXN1, RPOS1, RPOS2, PPOS1, PPOS2 ) LRXN1 = .FALSE. E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) END DO WRITE( IOUT, 92000 ) LINOUT = ' L5 = 1.0D0 + L5 * DTC + R4_5 + R21_5' E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c L19 computation ( Loss of HONO ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C L19 includes the following HONO loss terms: c a) loss from reactions in which OH is not produced c c Hence, c cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc SPOUT = SPECIES( HONO ) E1 = LEN_TRIM( SPOUT ) WRITE( IOUT, 92000 ) WRITE( IOUT, 94260 ) SPOUT( 1 : E1 ) LRXN1 = .TRUE. DO N = 1, NRXNS c..Determine the rxn to include & get the coefficient for the loss term COEFF = 0.0D0 CALL SUM_COEFF( RHONO, 'R', HONO, N ) CALL SUM_COEFF( POH, 'P', OH, N ) IF( RHONO .LE. 0.0D0 ) CYCLE ! Skip rxns w/ Lhono=0 IF( POH .GT. 0.0D0 ) CYCLE ! Skip rxn w/ Poh>0 COEFF = RHONO c..call routine to create output line & write it NPOS = 20 RPOS1 = HONO RPOS2 = OH PPOS1 = OH PPOS2 = 0 CALL BLD_OUTLINE( 'LFREQ', 'L19', 'HONO', HONO, COEFF, N, GRPNO, & NPOS, LINOUT, LRXN1, RPOS1, RPOS2, PPOS1, PPOS2 ) LRXN1 = .FALSE. E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) END DO WRITE( IOUT, 92000 ) LINOUT = ' L19 = 1.0D0 + L19 * DTC + R4_19' E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c L21 computation ( Loss of HNO4 ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C L21 includes the following HNO4 loss terms: c a) loss from reactions in which HO2 is not produced c b) in reactions in which HO2 is produced, the amount of HNO4 lost c in excess of the amount of HO2 formed c cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc SPOUT = SPECIES( HNO4 ) E1 = LEN_TRIM( SPOUT ) WRITE( IOUT, 92000 ) WRITE( IOUT, 94280 ) SPOUT( 1 : E1 ) LRXN1 = .TRUE. DO N = 1, NRXNS c..Determine the rxn to include & get the coefficient for the loss term COEFF = 0.0D0 CALL SUM_COEFF( RHNO4, 'R', HNO4, N ) CALL SUM_COEFF( PHO2, 'P', HO2, N ) IF( RHNO4 .LE. 0.0D0 ) CYCLE ! Skip rxns w/ Lhno4=0 IF( PHO2 .GE. RHNO4 ) CYCLE ! Skip rxn w/ Pho2>Lhno4 COEFF = RHNO4 - PHO2 ! Excess amount of HNO4 lost c..call routine to create output line & write it NPOS = 20 RPOS1 = HNO4 RPOS2 = HO2 PPOS1 = HO2 PPOS2 = 0 CALL BLD_OUTLINE( 'LFREQ', 'L21', 'HNO4', HNO4, COEFF, N, GRPNO, & NPOS, LINOUT, LRXN1, RPOS1, RPOS2, PPOS1, PPOS2 ) LRXN1 = .FALSE. E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) END DO WRITE( IOUT, 92000 ) LINOUT = ' L21 = 1.0D0 + L21 * DTC + R5_21' E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Continue reading template section cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c..finish reading skipped section of template (i.e., code between S1 markers) 200 CONTINUE READ( IIN, 92000, END = 300 ) LINEIN IF( LINEIN( 1 : 2 ) .EQ. 'S1' ) GO TO 300 GO TO 200 300 CONTINUE c..Build line for the A term (coefficient of [HO2]**2 ) LINOUT = ' A = 2.0D0 * ( RKI( ' E1 = LEN_TRIM( LINOUT ) + 1 LRXN1 = .TRUE. DO N = 1, NRXNS IF( IRR( N, 1 ) .NE. HO2 .OR. IRR( N, 2 ) .NE. HO2 ) CYCLE WRITE( RNUM, '(I5)' ) N IF( LRXN1 ) THEN LINOUT = LINOUT( 1 : E1 ) // RNUM // ' )' E1 = LEN_TRIM( LINOUT ) LRXN1 = .FALSE. ELSE LINOUT = LINOUT( 1 : E1 ) // ' + RKI( ' // RNUM // ' )' E1 = LEN_TRIM( LINOUT ) END IF END DO LINOUT = LINOUT( 1 : E1 ) // ' ) * DTC' 400 CONTINUE READ( IIN, 92000, END = 2000 ) LINEIN IF( LINEIN( 1 : 2 ) .EQ. 'R3' ) THEN WRITE( IOUT, 95000) SPECIES( HO2 )( 1 : LEN_TRIM( SPECIES( HO2 ) ) ) ELSEIF( LINEIN( 1 : 2 ) .EQ. 'R4' ) THEN E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) ELSEIF( LINEIN( 1 : 2 ) .EQ. 'R5' ) THEN WRITE( IOUT, 95020) SPECIES( HO2 )( 1 : LEN_TRIM( SPECIES( HO2 ) ) ) ELSEIF( LINEIN( 1 : 2 ) .EQ. 'R6' ) THEN WRITE( IOUT, 95040) SPECIES( OH )( 1 : LEN_TRIM( SPECIES( OH ) ) ), & SPECIES( HO2 )( 1 : LEN_TRIM( SPECIES( HO2 ) ) ) ELSEIF( LINEIN( 1 : 2 ) .EQ. 'R7' ) THEN WRITE( IOUT, 95060) SPECIES( HNO4 )( 1 : LEN_TRIM( SPECIES( HNO4 ) ) ), & SPECIES( HO2 )( 1 : LEN_TRIM( SPECIES( HO2 ) ) ) ELSEIF( LINEIN( 1 : 2 ) .EQ. 'R8' ) THEN WRITE( IOUT, 95080) SPECIES( HONO )( 1 : LEN_TRIM( SPECIES( HONO ) ) ), & SPECIES( OH )( 1 : LEN_TRIM( SPECIES( OH ) ) ) ELSE WRITE( IOUT, 92000 ) LINEIN( 1 : LEN_TRIM( LINEIN ) ) END IF GO TO 400 2000 CONTINUE CLOSE( IIN ) CLOSE( IOUT ) NOUTFLS = NOUTFLS + 1 OUTFLNAM( NOUTFLS ) = 'hrg2.F' RETURN 9000 MSG = 'ERROR: Could not open ' // FNAME( 1 : LEN_TRIM( FNAME ) ) WRITE(LOGDEV,'(a)')TRIM( PNAME ) // ': ' // TRIM( MSG ) STOP 92000 FORMAT( A ) 92020 FORMAT( / ) 93000 FORMAT( 'C PRECONDITIONS: For the ', A, ' mechanism' ) 93020 FORMAT( 'C REVISION HISTORY: Created by EBI solver program, ', A ) 94000 FORMAT( & 'c..stoichiometric coefficient for production of HOX from O3 via O1D' ) 94010 FORMAT( & 'c..stoichiometric coefficient for production of OH from NO2EX' ) 94020 FORMAT( & 'c..Production of HO from HO2 (r4,5 terms )' ) 94040 FORMAT( & 'c..Production of HO from HONO (r4,19 terms )' ) 94060 FORMAT( & 'c..Remaining HO production' ) 94080 FORMAT( & 'c..Production of HO2 from OH ( r5,4 terms )' ) 94100 FORMAT( & 'c..Production of HO2 from HNO4 (r5,21 term )' ) 94120 FORMAT( & 'c..Remaining HO2 production terms' ) 94140 FORMAT( & 'c..Production of HONO from OH (r19,4 terms )' ) 94160 FORMAT( & 'c..Remaining HONO production terms' ) 94180 FORMAT( & 'c..Production of ', A, ' from ', A, ' (r21,5 term )' ) 94200 FORMAT( & 'c..Remaining ', A, ' production terms' ) 94220 FORMAT( & 'c..', A, ' loss terms not in R5_4 & R19_4' ) 94240 FORMAT( & 'c..', A, ' loss terms not included in R4_5 & R21_5', & ' (except for ', A, '+', A, ' )' ) 94260 FORMAT( & 'c..', A, ' loss terms not included in R4_19' ) 94280 FORMAT( & 'c..', A, ' loss terms not included in R5_21' ) 95000 FORMAT( & 'c..solve quadratic equation for ', A ) 95020 FORMAT( & ' YCP( ', A, ' ) = MAX( Q / A , -C / Q )' ) 95040 FORMAT( & ' YCP( ', A, ' ) = ( ( P4 + R4_5 * YCP( ', A, & ' ) ) * L19 + R4_19 * P19 ) * T1' ) 95060 FORMAT( & ' YCP( ', A, ' ) = ( P21 + R21_5 * YCP( ', A, & ' ) ) * L21_INV' ) 95080 FORMAT( & ' YCP( ', A, ' ) = ( P19 + R19_4 * YCP( ', A, & ' ) ) / L19' ) END ================================================ FILE: UTIL/create_ebi/src/wr_gp2.F_02-27-06 ================================================ SUBROUTINE WR_GP2 C********************************************************************** C C FUNCTION: Create source code for the hrgp2 subroutine in EBI C C PRECONDITIONS: None C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by Jerry Gipson, February, 2004 C C********************************************************************** USE ENV_VARS USE GLOBAL_DATA IMPLICIT NONE C..INCLUDES: INCLUDE SUBST_IOPARMS ! IOAPI parameters INCLUDE SUBST_IODECL ! IOAPI declarations INCLUDE SUBST_GC_SPC ! Mechanism gas-phase species INCLUDE SUBST_RXCMMN ! Mechanism data C..ARGUMENTS: None C..PARAMETERS: INTEGER, PARAMETER :: GRPNO = 2 C..EXTERNAL FUNCTIONS: INTEGER JUNIT ! gets unit no. INTEGER INDEX1 ! find position of string in list C..SAVED LOCAL VARIABLES: None C..SCRATCH LOCAL VARIABLES: CHARACTER( 16 ) :: PNAME = 'WR_GP2' ! Program name CHARACTER( 256 ) :: MSG ! Message text CHARACTER( 100 ) :: LINEIN ! Input line CHARACTER( CL ) :: SPOUT ! Ouput species CHARACTER( 16 ) :: SPEC CHARACTER( 256 ) :: FNAME ! Name of file to open CHARACTER( 72 ) :: CLINE ! Line of c's CHARACTER( 100 ) :: LINOUT CHARACTER( 100 ) :: RXOUT CHARACTER( 100 ) :: BLANK_LINE CHARACTER*( 3 ) :: RNUM ! Reaction number CHARACTER*( 6 ) :: COUT ! Output coefficient CHARACTER*( 1 ) :: SGN ! Coefficient sign INTEGER :: E1, E2 ! end pos of string INTEGER :: IND ! array index INTEGER :: IIN ! Unit no. of input file INTEGER :: IOUT ! Unit no. of output file INTEGER :: LOGDEV ! Unit no. of logdev INTEGER :: N, S, P, R ! Loop indices INTEGER :: NR ! No. of reactants INTEGER :: NPOS ! Reaction index INTEGER :: RPOS1 ! INTEGER :: RPOS2 ! INTEGER :: PPOS1 ! INTEGER :: PPOS2 ! LOGICAL :: LFIRST LOGICAL :: LRXN1 REAL :: COEFF REAL :: ROH REAL :: RHO2 REAL :: POH REAL :: PHO2 REAL :: RHONO REAL :: PHONO REAL :: RHNO4 REAL :: PHNO4 C********************************************************************** DO N = 1, 72 CLINE( N : N ) = 'c' ENDDO DO N = 1, 100 BLANK_LINE( N : N ) = ' ' ENDDO ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Open ouput file and code template ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc LOGDEV = INIT3() E1 = LEN_TRIM( OUTPATH ) FNAME = OUTPATH( 1 : E1 ) // '/hrg2.F' IOUT = JUNIT() OPEN( UNIT = IOUT, FILE = FNAME, ERR = 9000 ) IIN = JUNIT() E1 = LEN_TRIM( TMPLPATH ) FNAME = TMPLPATH( 1 : E1 ) // '/hrg2.F' OPEN( UNIT = IIN, FILE = FNAME, ERR = 9000 ) IF( LWR_COPY ) CALL WR_COPYRT( IOUT ) IF( LWR_CVS_HDR ) CALL WR_CVSHDR( IOUT ) ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Read, modify, and write 1st section of code from template ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 100 CONTINUE READ( IIN, 92000, END = 1000 ) LINEIN IF( LINEIN( 1 : 2 ) .EQ. 'R1' ) THEN WRITE( IOUT, 93000 ) GC_TAG( 1 : LEN_TRIM( GC_TAG ) ) GO TO 100 ELSEIF( LINEIN( 1 : 2 ) .EQ. 'R2' ) THEN WRITE( IOUT, 93020 ) CR_DATE( 1 : LEN_TRIM( CR_DATE ) ) GO TO 100 ELSEIF( LINEIN( 1 : 2 ) .EQ. 'S1' ) THEN GO TO 1000 ELSE WRITE( IOUT, 92000 ) LINEIN( 1 : LEN_TRIM( LINEIN ) ) GO TO 100 ENDIF 1000 CONTINUE cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Do O1D section cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc WRITE( IOUT, 92020 ) WRITE( IOUT, 94000 ) c..get all reactions in which O1D is reacting LRXN1 = .TRUE. DO N = 1, NRXNS IF ( IRR( N, 1 ) .NE. O1D ) CYCLE ! Skip Rxns w/ Lo1d=0 COEFF = 1.0 NPOS = 20 RPOS1 = O1D RPOS2 = 0 PPOS1 = 0 PPOS2 = 0 CALL BLD_OUTLINE( 'LFREQ', 'O1D_S', 'O1D', O1D, COEFF, N, GRPNO, & NPOS, LINOUT, LRXN1, RPOS1, RPOS2, PPOS1, PPOS2 ) LRXN1 = .FALSE. E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) ENDDO WRITE( IOUT, 92000 ) c..get reaction(s) producing OH from O1D LRXN1 = .TRUE. DO N = 1, NRXNS IF ( IRR( N, 1 ) .NE. O1D .OR. IRR( N, 4 ) .NE. OH ) CYCLE COEFF = SC( N, 1 ) NPOS = 20 RPOS1 = O1D RPOS2 = 0 PPOS1 = OH PPOS2 = 0 CALL BLD_OUTLINE( 'LFREQ', 'OH_S', 'O1D', O1D, COEFF, N, GRPNO, & NPOS, LINOUT, LRXN1, RPOS1, RPOS2, PPOS1, PPOS2 ) LRXN1 = .FALSE. E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) ENDDO c..write the the final line WRITE( IOUT, 92000 ) LINOUT = ' OH_S = OH_S / O1D_S' E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) c..get reaction(s) producing HO2 from O1D LRXN1 = .TRUE. DO N = 1, NRXNS IF ( IRR( N, 1 ) .NE. O1D .OR. IRR( N, 4 ) .NE. HO2 ) CYCLE COEFF = SC( N, 1 ) NPOS = 20 RPOS1 = O1D RPOS2 = 0 PPOS1 = HO2 PPOS2 = 0 CALL BLD_OUTLINE( 'LFREQ', 'HO2_S', 'O1D', O1D, COEFF, N, GRPNO, & NPOS, LINOUT, LRXN1, RPOS1, RPOS2, PPOS1, PPOS2 ) LRXN1 = .FALSE. E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) ENDDO c..write the the final line IF( E1 .GT. 2)THEN print*,e1,'xx', LINOUT( 1 : E1 ) WRITE( IOUT, 92000 ) LINOUT = ' HO2_S = HO2_S / O1D_S' E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) ENDIF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c R4_5 computation ( Production of OH from reactions of HO2 ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C R4_5 includes OH production from the following reactions: c a) those in which OH is produced form HO2 (include only c equivalent amounts of loss and production) c c Hence, c c {aOH +} bHO2 {+ X} = cOH + dHO2 c if c le a ==> Poh = 0, so R4_5 coeff = 0 c if c gt a ==> Poh > 0 c if b le d ==> Lho2 = 0, so R4_5 coeff = 0 c if b gt d ==> Lho2 > 0, so c if b-d > c-a ==> Lho2 > Poh, so R4_5 coeff = c-a c if b-d = c-a ==> Lho2 = Poh, so R4_5 coeff = c-a c if b-d < c-a ==> Lho2 < Poh, so R4_5 coeff = b-d c cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c..Write the section header WRITE( IOUT, 92000 ) WRITE( IOUT, 94020 ) LRXN1 = .TRUE. DO N = 1, NRXNS c..find the rxns to include and set the coefficient COEFF = 0.0 CALL SUM_COEFF( ROH, 'R', OH, N ) CALL SUM_COEFF( RHO2, 'R', HO2, N ) CALL SUM_COEFF( POH, 'P', OH, N ) CALL SUM_COEFF( PHO2, 'P', HO2, N ) IF( POH .LE. ROH ) CYCLE ! Skip if Poh=0 IF( RHO2 .LE. PHO2 ) CYCLE ! Skip if Lho2=0 IF( RHO2 - PHO2 .GE. POH - ROH ) THEN COEFF = POH - ROH ! for Lho2 >= Poh ELSE COEFF = RHO2 - PHO2 ! for Lho2 < Poh ENDIF IF( COEFF .EQ. 0.0 ) CYCLE c..call routine to create output line & write it NPOS = 20 RPOS1 = HO2 RPOS2 = OH PPOS1 = OH PPOS2 = HO2 CALL BLD_OUTLINE( 'LFREQ', 'R4_5', 'HO2', HO2, COEFF, N, GRPNO, & NPOS, LINOUT, LRXN1, RPOS1, RPOS2, PPOS1, PPOS2 ) LRXN1 = .FALSE. E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) ENDDO WRITE( IOUT, 92000 ) WRITE( IOUT, '( A )' ) ' R4_5 = R4_5 * DTC' cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c R4_19 computation ( Production of OH from reactions of HONO ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C R4_19 includes OH production from the following reaction: c a) HONO=OH+NO c cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc WRITE( IOUT, 92000 ) WRITE( IOUT, 94040 ) LRXN1 = .TRUE. DO N = 1, NRXNS c..Skip reactions other than HONO=OH+NO or HONO=NO+OH IF( IRR( N, 1 ) .NE. HONO ) CYCLE IF( ( IRR( N, 4 ) .NE. OH .OR. IRR( N, 5 ) .NE. NO ) .AND. & ( IRR( N, 5 ) .NE. OH .OR. IRR( N, 4 ) .NE. NO ) ) CYCLE COEFF = 1.0 c..call routine to create output line & write it NPOS = 20 RPOS1 = HONO RPOS2 = 0 PPOS1 = OH PPOS2 = 0 CALL BLD_OUTLINE( 'LFREQ', 'R4_19', 'HONO', HONO, COEFF, N, GRPNO, & NPOS, LINOUT, LRXN1, RPOS1, RPOS2, PPOS1, PPOS2 ) LRXN1 = .FALSE. E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) ENDDO WRITE( IOUT, 92000 ) WRITE( IOUT, '( A )' ) ' R4_19 = R4_19 * DTC' cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c P4 computation ( Production of OH ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C P4 includes OH production terms from the following reactions: c a) those in which OH is produced & HO2 & HONO are NOT reactants c b) those in which OH is produced and HO2 is consumed and the c OH production rate exceeds the HO2 loss rate (excess amount only) c c Hence, c c {aOH +} bHO2 {+ X} = cOH + dHO2 c if c le a ==> Poh=o, so P1 coeff = 0 c if c gt a ==> Poh > 0, so c if b le d ==> Lho2 = 0, so P4 coeff = c-a c if b gt d ==> Lho2 > 0, so c if b-d > c-a ==> Lho2 > Poh, so P4 coeff = 0 c if b-d = c-a ==> Lho2 = Poh, so P4 coeff = 0 c if b-d < c-a ==> Lho2 < Poh, so P4 coeff = (c-a) - (b-d) c cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc WRITE( IOUT, 92000 ) WRITE( IOUT, 94060 ) LRXN1 = .TRUE. DO N = 1, NRXNS c..Determine the reactions to include & get coefficients for the prod terms COEFF = 0.0 CALL SUM_COEFF( ROH, 'R', OH, N ) CALL SUM_COEFF( RHO2, 'R', HO2, N ) CALL SUM_COEFF( POH, 'P', OH, N ) CALL SUM_COEFF( PHO2, 'P', HO2, N ) IF( POH .LE. ROH ) CYCLE ! Skip rxns with Poh=0 IF( IRR( N, 1 ) .EQ. HONO .AND. ! Skip HONO=OH+NO rxn & POH .GT. 0.0 ) CYCLE IF( RHO2 .LE. PHO2 ) THEN ! Rxns with Lho2=0 COEFF = POH - ROH ELSEIF( RHO2 - PHO2 .LT. POH - ROH ) THEN ! Rxns w/ Lho2 < Poh COEFF = ( POH - ROH ) - ( RHO2 - PHO2 ) ENDIF IF( COEFF .EQ. 0.0 ) CYCLE c..call routine to create output line & write it NPOS = 30 RPOS1 = HO2 RPOS2 = OH PPOS1 = OH PPOS2 = HO2 CALL BLD_OUTLINE( 'RXRAT', 'P4', ' ', 0, COEFF, N, GRPNO, & NPOS, LINOUT, LRXN1, RPOS1, RPOS2, PPOS1, PPOS2 ) LRXN1 = .FALSE. E1 = LEN_TRIM( LINOUT ) IF( E1 .LT. 2)CYCLE WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) ENDDO SPOUT = ADJUSTL( GC_SPC( OH ) ) E1 = LEN_TRIM( SPOUT ) WRITE( IOUT, 92000 ) WRITE( IOUT, '( 3A )' ) ' P4 = YC0( ', SPOUT( 1 : E1 ), & ' ) + P4 * DTC' cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c R5_4 computation ( Production of HO2 from reactions of OH ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C R5_4 includes OH production from the following reactions: c a) those in which HO2 is produced from OH (include only c equivalent amounts of loss and production) c c Hence, c c aOH {+ bHO2} {+ X} = cOH + dHO2 c if d le b ==> Pho2 = 0, so R5_4 coeff = 0 c if d gt b ==> Pho2 > 0 c if a le c ==> Loh = 0, so R5_4 coeff = 0 c if c gt a ==> Loh > 0, so c if d-b > a-c ==> Pho2 > Loh, so R4_5 coeff = a-c c if d-b = a-c ==> Pho2 = Loh, so R4_5 coeff = a-c c if d-b < a-c ==> Pho2 < Loh, so R4_5 coeff = d-b c cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c..Write the section header WRITE( IOUT, 92000 ) WRITE( IOUT, 94080 ) LRXN1 = .TRUE. DO N = 1, NRXNS c..find the rxns to include and set the coefficient COEFF = 0.0 CALL SUM_COEFF( ROH, 'R', OH, N ) CALL SUM_COEFF( RHO2, 'R', HO2, N ) CALL SUM_COEFF( POH, 'P', OH, N ) CALL SUM_COEFF( PHO2, 'P', HO2, N ) IF( PHO2 .LE. RHO2 ) CYCLE ! Skip if Pho2=0 IF( ROH .LE. POH ) CYCLE ! Skip if Loh=0 IF( PHO2 - RHO2 .GE. ROH - POH ) THEN COEFF = ROH - POH ! for Pho2 >= Loh ELSE COEFF = PHO2 - RHO2 ! for Pho2 < Loh ENDIF IF( COEFF .EQ. 0.0 ) CYCLE c..call routine to create output line & write it NPOS = 20 RPOS1 = OH RPOS2 = HO2 PPOS1 = HO2 PPOS2 = OH CALL BLD_OUTLINE( 'LFREQ', 'R5_4', 'OH', OH, COEFF, N, GRPNO, & NPOS, LINOUT, LRXN1, RPOS1, RPOS2, PPOS1, PPOS2 ) LRXN1 = .FALSE. E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) ENDDO WRITE( IOUT, 92000 ) WRITE( IOUT, '( A )' ) ' R5_4 = R5_4 * DTC' cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c R5_21 computation ( Production of HO2 from reactions of HNO4 ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C R5_21 includes OH production from the following reaction: c a) those in which HO2 is produced form the raction of HNO4 c cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc WRITE( IOUT, 92000 ) WRITE( IOUT, 94100 ) LRXN1 = .TRUE. DO N = 1, NRXNS c..find the rxns to include and set the coefficient COEFF = 0.0 CALL SUM_COEFF( RHNO4, 'R', HNO4, N ) CALL SUM_COEFF( PHO2, 'P', HO2, N ) IF( RHNO4 .LE. 0.0 .OR. PHO2 .LE. 0.0 ) CYCLE ! Skip if Pho2=0 or ! Lhno4=0 COEFF = MIN( PHO2, RHNO4 ) c..call routine to create output line & write it NPOS = 20 RPOS1 = HNO4 RPOS2 = 0 PPOS1 = HO2 PPOS2 = 0 CALL BLD_OUTLINE( 'LFREQ', 'R5_21', 'HNO4', HNO4, COEFF, N, GRPNO, & NPOS, LINOUT, LRXN1, RPOS1, RPOS2, PPOS1, PPOS2 ) LRXN1 = .FALSE. E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) ENDDO WRITE( IOUT, 92000 ) WRITE( IOUT, '( A )' ) ' R5_21 = R5_21 * DTC' cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c P5 computation ( Production of HO2 ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C P5 includes OH production terms from the following reactions: c a) those in which HO2 is produced & OH & HNO4 are NOT reactants c b) those in which HO2 is produced and OH is consumed and the c HO2 production rate exceeds the OH loss rate (excess amount only) c c) those in which HO2 is produced and HNO4 is consumed and the c HO2 production rate exceeds the HNO4 loss rate (excess amount only) c c Hence, c c {aOH +} bHO2 {+ X} = cOH + dHO2 c if d le b ==> Pho2=o, so P5 coeff = 0 c if d gt b ==> Pho2 > 0, so c if a le c ==> Loh = 0, so P5 coeff = d-b c if a gt c ==> Loh > 0, so c if d-b > a-c ==> Pho2 > Loh, so P5 coeff = (d-b)-(a-c) c if d-b = a-c ==> Pho2 = Loh, so P5 coeff = 0 c if d-b < a-c ==> Pho2 < Loh, so P5 coeff = 0 c cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc WRITE( IOUT, 92000 ) WRITE( IOUT, 94120 ) LRXN1 = .TRUE. DO N = 1, NRXNS c..Determine the reactions to include & get coefficients for the prod terms COEFF = 0.0 CALL SUM_COEFF( ROH, 'R', OH, N ) CALL SUM_COEFF( RHO2, 'R', HO2, N ) CALL SUM_COEFF( RHNO4, 'R', HNO4, N ) CALL SUM_COEFF( POH, 'P', OH, N ) CALL SUM_COEFF( PHO2, 'P', HO2, N ) IF( PHO2 .LE. RHO2 ) CYCLE ! Skip rxns with Pho2=0 IF( RHNO4 .GT. 0.0 ) THEN IF( RHO2 .GT. RHNO4 ) COEFF = RHO2 - RHNO4 ! Rxns w/ Ph02>Lhno4 ELSE IF( ROH .LE. POH ) THEN ! Rxns w/ Ph02>0 & Loh=0 COEFF = PHO2 - RHO2 ELSEIF( PHO2 - RHO2 .GT. ROH - POH ) THEN COEFF = ( PHO2 - RHO2 ) - ( ROH - POH ) !Rxns w/ Pho2>0 & Loh>0 ENDIF ! and Pho2 > Loh ENDIF IF( COEFF .EQ. 0.0 ) CYCLE c..call routine to create output line & write it NPOS = 30 RPOS1 = HO2 RPOS2 = OH PPOS1 = HO2 PPOS2 = OH CALL BLD_OUTLINE( 'RXRAT', 'P5', ' ', 0, COEFF, N, GRPNO, & NPOS, LINOUT, LRXN1, RPOS1, RPOS2, PPOS1, PPOS2 ) LRXN1 = .FALSE. E1 = LEN_TRIM( LINOUT ) IF( E1 .LT. 2)CYCLE WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) ENDDO SPOUT = ADJUSTL( GC_SPC( HO2 ) ) E1 = LEN_TRIM( SPOUT ) WRITE( IOUT, 92000 ) WRITE( IOUT, '( 3A )' ) ' P5 = YC0( ', SPOUT( 1 : E1 ), & ' ) + P5 * DTC' cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c R19_4 computation ( Production of HONO from reactions of OH ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C R19_4 includes HONO production from the following reaction: c a) OH+NO=HONO c cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc WRITE( IOUT, 92000 ) WRITE( IOUT, 94140 ) LRXN1 = .TRUE. DO N = 1, NRXNS c..Find OH+NO=HONO Rxn IF( ( IRR( N, 1 ) .EQ. OH .AND. IRR( N, 2 ) .EQ. NO .AND. & IRR( N, 4 ) .EQ. HONO ) .OR. & ( IRR( N, 1 ) .EQ. NO .AND. IRR( N, 2 ) .EQ. OH .AND. & IRR( N, 4 ) .EQ. HONO ) ) & WRITE( RNUM, '(I3)' ) N ENDDO SPOUT = ADJUSTL( GC_SPC( NO ) ) LINOUT = ' R19_4 = RKI( ' // RNUM // ' ) * YC( ' // & SPOUT // ' ) * DTC ! OH+NO=HONO' E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c P19 computation ( Production of HONO ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C P19 includes HONO production terms from the following reactions: c a) all that produce HONO except OH+NO=HONO c NOTE: there may be non in some mechanisms c cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc WRITE( IOUT, 92000 ) WRITE( IOUT, 94160 ) LRXN1 = .TRUE. DO N = 1, NRXNS c..Determine the reactions to include & get coefficients for the prod terms COEFF = 0.0 CALL SUM_COEFF( RHONO, 'R', HONO, N ) CALL SUM_COEFF( PHONO, 'P', HONO, N ) IF( PHONO .LE. RHONO ) CYCLE ! Skip rxns with Phono=0 ! Skip OH+NO=HONO Rxn IF( IRR( N, 1 ) .EQ. OH .AND. IRR( N, 2 ) .EQ. NO .OR. & IRR( N, 1 ) .EQ. NO .AND. IRR( N, 2 ) .EQ. OH ) & CYCLE COEFF = PHONO ! Rxns w/ Phono>0 IF( COEFF .EQ. 0.0 ) CYCLE c..call routine to create output line & write it NPOS = 30 RPOS1 = OH RPOS2 = NO PPOS1 = HONO PPOS2 = 0 CALL BLD_OUTLINE( 'RXRAT', 'P19', ' ', 0, COEFF, N, GRPNO, & NPOS, LINOUT, LRXN1, RPOS1, RPOS2, PPOS1, PPOS2 ) LRXN1 = .FALSE. E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) ENDDO IF( LRXN1 ) THEN SPOUT = ADJUSTL( GC_SPC( HONO ) ) E1 = LEN_TRIM( SPOUT ) LINOUT = ' P19 = YC0( ' // SPOUT( 1 : E1 ) // ' )' E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) ELSE SPOUT = ADJUSTL( GC_SPC( HONO ) ) E1 = LEN_TRIM( SPOUT ) WRITE( IOUT, 92000 ) WRITE( IOUT, '( 3A )' ) ' P19 = YC0( ', SPOUT( 1 : E1 ), & ' ) + P19 * DTC' ENDIF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c R21_5 computation ( Production of HNO4 from reactions of HO2 ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C R21_5 includes HONO production from the following reaction: c a) HO2+NO2=HNO4 c cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc E1 = LEN_TRIM( GC_SPC( HNO4 ) ) E2 = LEN_TRIM( GC_SPC( HO2 ) ) WRITE( IOUT, 92000 ) WRITE( IOUT, 94180 ) GC_SPC( HNO4 )( 1 : E1 ), GC_SPC( HO2 )( 1 : E2 ) LRXN1 = .TRUE. DO N = 1, NRXNS c..Find OH+NO=HONO Rxn IF( ( IRR( N, 1 ) .EQ. HO2 .AND. IRR( N, 2 ) .EQ. NO2 .AND. & IRR( N, 4 ) .EQ. HNO4 ) .OR. & ( IRR( N, 1 ) .EQ. NO2 .AND. IRR( N, 2 ) .EQ. HO2 .AND. & IRR( N, 4 ) .EQ. HNO4 ) ) & WRITE( RNUM, '(I3)' ) N ENDDO SPOUT = ADJUSTL( GC_SPC( NO2 ) ) LINOUT = ' R21_5 = RKI( ' // RNUM // ' ) * YC( ' // & SPOUT // ' ) * DTC ! HO2+NO2=HNO4' E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c P21 computation ( Production of HNO4 ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C P19 includes HONO production terms from the following reactions: c a) all that produce HNO4 except HO2+NO2=HNO4 c NOTE: Usually none c cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc E1 = LEN_TRIM( GC_SPC( HNO4 ) ) WRITE( IOUT, 92000 ) WRITE( IOUT, 94200 ) GC_SPC( HNO4 )( 1 : E1 ) LRXN1 = .TRUE. DO N = 1, NRXNS c..Determine the reactions to include & get coefficients for the prod terms COEFF = 0.0 CALL SUM_COEFF( RHNO4, 'R', HNO4, N ) CALL SUM_COEFF( PHNO4, 'P', HNO4, N ) IF( PHNO4 .LE. RHNO4 ) CYCLE ! Skip rxns with Phno4=0 ! Skip HO2+NO2=HNO4 Rxn IF( IRR( N, 1 ) .EQ. HO2 .AND. IRR( N, 2 ) .EQ. NO2 .OR. & IRR( N, 1 ) .EQ. NO2 .AND. IRR( N, 2 ) .EQ. HO2 ) & CYCLE COEFF = PHNO4 ! Rxns w/ Phono>0 IF( COEFF .EQ. 0.0 ) CYCLE c..call routine to create output line & write it NPOS = 30 RPOS1 = OH RPOS2 = NO PPOS1 = HONO PPOS2 = 0 CALL BLD_OUTLINE( 'RXRAT', 'P21', ' ', 0, COEFF, N, GRPNO, & NPOS, LINOUT, LRXN1, RPOS1, RPOS2, PPOS1, PPOS2 ) LRXN1 = .FALSE. E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) ENDDO IF( LRXN1 ) THEN SPOUT = ADJUSTL( GC_SPC( HNO4 ) ) E1 = LEN_TRIM( SPOUT ) LINOUT = ' P21 = YC0( ' // SPOUT( 1 : E1 ) // ' )' E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) ELSE WRITE( IOUT, 92000 ) SPOUT = ADJUSTL( GC_SPC( HNO4 ) ) E1 = LEN_TRIM( SPOUT ) WRITE( IOUT, '( 3A )' ) ' P21 = YC0( ', SPOUT( 1 : E1 ), & ' ) + P21 * DTC' ENDIF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c L4 computation ( Loss of OH ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C L4 includes the following OH loss terms: c a) loss from reactions in which HO2 or HONO is not produced c b) in reactions in which HO2 is produced, the amount of OH lost c in excess of the amount of HO2 formed c c Hence, c c aOH {+ bHO2} {+ X} = cOH + dHO2 c if a le c ==> Loh = 0, so L4 coeff =0 c if a gt c ==> Loh > 0, so c if d le b ==> Pho2 = 0 so L4 coeff = (a-c) c if d gt b ==> Pho2 > 0, so c if a-c le d-b ==> Loh < Pho2, so L4 coeff = 0 c if a-c gt d-b ==> Loh > Pho2, so L4 coeff = (a-c)-(d-b) c cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc E1 = LEN_TRIM( GC_SPC( OH ) ) WRITE( IOUT, 92000 ) WRITE( IOUT, 94220 ) GC_SPC( OH )( 1 : E1 ) LRXN1 = .TRUE. DO N = 1, NRXNS c..Determine the rxn to include & get the coefficient for the loss term COEFF = 0.0 CALL SUM_COEFF( ROH, 'R', OH, N ) CALL SUM_COEFF( RHO2, 'R', HO2, N ) CALL SUM_COEFF( POH, 'P', OH, N ) CALL SUM_COEFF( PHO2, 'P', HO2, N ) IF( ROH .LE. POH ) CYCLE ! Skip rxns w/ Loh=0 IF( IRR( N, 4 ) .EQ. HONO .AND. ! Skip OH+NO=HONO rxn & ROH .GT. 0.0 ) CYCLE IF( PHO2 .LE. RHO2 ) COEFF = ROH - POH ! Rxns w/ Loh > 0 & ! Pho2 = 0 IF( PHO2 .GT. RHO2 .AND. & ROH - POH .GT. PHO2 - RHO2 ) ! Rxns w/ Loh > 0 & & COEFF = ROH - POH - ( PHO2 - RHO2 ) ! Pho2 > 0 IF( COEFF .EQ. 0.0 ) CYCLE c..call routine to create output line & write it NPOS = 20 RPOS1 = OH RPOS2 = HO2 PPOS1 = HO2 PPOS2 = OH CALL BLD_OUTLINE( 'LFREQ', 'L4', 'OH', OH, COEFF, N, GRPNO, & NPOS, LINOUT, LRXN1, RPOS1, RPOS2, PPOS1, PPOS2 ) LRXN1 = .FALSE. E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) ENDDO WRITE( IOUT, 92000 ) LINOUT = ' L4 = 1.0 + L4 * DTC + R5_4 + R19_4' E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c L5 computation ( Loss of HO2 ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C L5 includes the following HO2 loss terms: c a) loss from reactions in which HO2 or HNO4 is not produced c EXCEPTION: HO2+HO2=H2O2 c b) in reactions in which OH is produced, the amount of HO2 lost c in excess of the amount of OH formed c c Hence, c c aOH {+ bHO2} {+ X} = cOH + dHO2 c if b le d ==> Lho2 = 0, so L5 coeff =0 c if b gt d ==> Lho2 > 0, so c if c le a ==> Poh = 0 so L5 coeff = (a-c) c if c gt a ==> Poh > 0, so c if b-d le c-a ==> Lho2 < Poh, so L5 coeff = 0 c if b-d gt c-a ==> Lho2 > Poh, so L5 coeff = (b-d)-(c-a) c cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc SPOUT = GC_SPC( HO2 ) E1 = LEN_TRIM( SPOUT ) WRITE( IOUT, 92000 ) WRITE( IOUT, 94240 ) SPOUT( 1 : E1 ), SPOUT( 1 : E1 ), SPOUT( 1 : E1 ) LRXN1 = .TRUE. DO N = 1, NRXNS c..Determine the rxn to include & get the coefficient for the loss term COEFF = 0.0 CALL SUM_COEFF( ROH, 'R', OH, N ) CALL SUM_COEFF( RHO2, 'R', HO2, N ) CALL SUM_COEFF( POH, 'P', OH, N ) CALL SUM_COEFF( PHO2, 'P', HO2, N ) IF( RHO2 .LE. PHO2 ) CYCLE ! Skip rxns w/ Lho2=0 IF( IRR( N, 4 ) .EQ. HNO4 .AND. ! Skip HO2+NO2=HNO4 rxn & RHO2 .GT. 0.0 ) CYCLE IF( RHO2 .GE. 2.0 ) CYCLE ! Skip HO2+HO2 rxns IF( POH .LE. ROH ) COEFF = RHO2 - PHO2 ! Rxns w/ Lho2 > 0 & ! Poh = 0 IF( POH .GT. ROH .AND. & RHO2 - PHO2 .GT. POH - ROH ) ! Rxns w/ Loh > 0 & & COEFF = RHO2 - PHO2 - ( POH - ROH ) ! Pho2 > 0 & Lho2>Poh IF( COEFF .EQ. 0.0 ) CYCLE c..call routine to create output line & write it NPOS = 20 RPOS1 = HO2 RPOS2 = OH PPOS1 = OH PPOS2 = HO2 CALL BLD_OUTLINE( 'LFREQ', 'L5', 'HO2', HO2, COEFF, N, GRPNO, & NPOS, LINOUT, LRXN1, RPOS1, RPOS2, PPOS1, PPOS2 ) LRXN1 = .FALSE. E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) ENDDO WRITE( IOUT, 92000 ) LINOUT = ' L5 = 1.0 + L5 * DTC + R4_5 + R21_5' E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c L19 computation ( Loss of HONO ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C L19 includes the following HONO loss terms: c a) loss from reactions in which OH is not produced c c Hence, c cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc SPOUT = GC_SPC( HONO ) E1 = LEN_TRIM( SPOUT ) WRITE( IOUT, 92000 ) WRITE( IOUT, 94260 ) SPOUT( 1 : E1 ) LRXN1 = .TRUE. DO N = 1, NRXNS c..Determine the rxn to include & get the coefficient for the loss term COEFF = 0.0 CALL SUM_COEFF( RHONO, 'R', HONO, N ) CALL SUM_COEFF( POH, 'P', OH, N ) IF( RHONO .LE. 0.0 ) CYCLE ! Skip rxns w/ Lhono=0 IF( POH .GT. 0.0 ) CYCLE ! Skip rxn w/ Poh>0 COEFF = RHONO c..call routine to create output line & write it NPOS = 20 RPOS1 = HONO RPOS2 = OH PPOS1 = OH PPOS2 = 0 CALL BLD_OUTLINE( 'LFREQ', 'L19', 'HONO', HONO, COEFF, N, GRPNO, & NPOS, LINOUT, LRXN1, RPOS1, RPOS2, PPOS1, PPOS2 ) LRXN1 = .FALSE. E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) ENDDO WRITE( IOUT, 92000 ) LINOUT = ' L19 = 1.0 + L19 * DTC + R4_19' E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c L21 computation ( Loss of HNO4 ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C L21 includes the following HNO4 loss terms: c a) loss from reactions in which HO2 is not produced c b) in reactions in which HO2 is produced, the amount of HNO4 lost c in excess of the amount of HO2 formed c cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc SPOUT = GC_SPC( HNO4 ) E1 = LEN_TRIM( SPOUT ) WRITE( IOUT, 92000 ) WRITE( IOUT, 94280 ) SPOUT( 1 : E1 ) LRXN1 = .TRUE. DO N = 1, NRXNS c..Determine the rxn to include & get the coefficient for the loss term COEFF = 0.0 CALL SUM_COEFF( RHNO4, 'R', HNO4, N ) CALL SUM_COEFF( PHO2, 'P', HO2, N ) IF( RHNO4 .LE. 0.0 ) CYCLE ! Skip rxns w/ Lhno4=0 IF( PHO2 .GE. RHNO4 ) CYCLE ! Skip rxn w/ Pho2>Lhno4 COEFF = RHNO4 - PHO2 ! Excess amount of HNO4 lost c..call routine to create output line & write it NPOS = 20 RPOS1 = HNO4 RPOS2 = HO2 PPOS1 = HO2 PPOS2 = 0 CALL BLD_OUTLINE( 'LFREQ', 'L21', 'HNO4', HNO4, COEFF, N, GRPNO, & NPOS, LINOUT, LRXN1, RPOS1, RPOS2, PPOS1, PPOS2 ) LRXN1 = .FALSE. E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) ENDDO WRITE( IOUT, 92000 ) LINOUT = ' L21 = 1.0 + L21 * DTC + R5_21' E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Continue reading template section cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c..finish reading skipped section of template (i.e., code between S1 markers) 200 CONTINUE READ( IIN, 92000, END = 300 ) LINEIN IF( LINEIN( 1 : 2 ) .EQ. 'S1' ) GO TO 300 GO TO 200 300 CONTINUE c..Build line for the A term (coefficient of [HO2]**2 ) LINOUT = ' A = 2.0 * ( RKI( ' E1 = LEN_TRIM( LINOUT ) + 1 LRXN1 = .TRUE. DO N = 1, NRXNS IF( IRR( N, 1 ) .NE. HO2 .OR. IRR( N, 2 ) .NE. HO2 ) CYCLE WRITE( RNUM, '(I3)' ) N IF( LRXN1 ) THEN LINOUT = LINOUT( 1 : E1 ) // RNUM // ' )' E1 = LEN_TRIM( LINOUT ) LRXN1 = .FALSE. ELSE LINOUT = LINOUT( 1 : E1 ) // ' + RKI( ' // RNUM // ' )' E1 = LEN_TRIM( LINOUT ) ENDIF ENDDO LINOUT = LINOUT( 1 : E1 ) // ' ) * DTC' 400 CONTINUE READ( IIN, 92000, END = 2000 ) LINEIN IF( LINEIN( 1 : 2 ) .EQ. 'R3' ) THEN WRITE( IOUT, 95000) GC_SPC( HO2 )( 1 : LEN_TRIM( GC_SPC( HO2 ) ) ) ELSEIF( LINEIN( 1 : 2 ) .EQ. 'R4' ) THEN E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) ELSEIF( LINEIN( 1 : 2 ) .EQ. 'R5' ) THEN WRITE( IOUT, 95020) GC_SPC( HO2 )( 1 : LEN_TRIM( GC_SPC( HO2 ) ) ) ELSEIF( LINEIN( 1 : 2 ) .EQ. 'R6' ) THEN WRITE( IOUT, 95040) GC_SPC( OH )( 1 : LEN_TRIM( GC_SPC( OH ) ) ), & GC_SPC( HO2 )( 1 : LEN_TRIM( GC_SPC( HO2 ) ) ) ELSEIF( LINEIN( 1 : 2 ) .EQ. 'R7' ) THEN WRITE( IOUT, 95060) GC_SPC( HNO4 )( 1 : LEN_TRIM( GC_SPC( HNO4 ) ) ), & GC_SPC( HO2 )( 1 : LEN_TRIM( GC_SPC( HO2 ) ) ) ELSEIF( LINEIN( 1 : 2 ) .EQ. 'R8' ) THEN WRITE( IOUT, 95080) GC_SPC( HONO )( 1 : LEN_TRIM( GC_SPC( HONO ) ) ), & GC_SPC( OH )( 1 : LEN_TRIM( GC_SPC( OH ) ) ) ELSE WRITE( IOUT, 92000 ) LINEIN( 1 : LEN_TRIM( LINEIN ) ) ENDIF GO TO 400 2000 CONTINUE CLOSE( IIN ) CLOSE( IOUT ) RETURN 9000 MSG = 'ERROR: Could not open ' // FNAME( 1 : LEN_TRIM( FNAME ) ) CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT2 ) 92000 FORMAT( A ) 92020 FORMAT( / ) 93000 FORMAT( 'C PRECONDITIONS: For the ', A, ' family of mechanisms' ) 93020 FORMAT( 'C REVISION HISTORY: Created by EBI solver program, ', A ) 94000 FORMAT( & 'c..stoichiometric coefficient for production of OH from O3 via O1D' ) 94020 FORMAT( & 'c..Production of HO from HO2 (r4,5 terms )' ) 94040 FORMAT( & 'c..Production of HO from HONO (r4,19 terms )' ) 94060 FORMAT( & 'c..Remaining HO production' ) 94080 FORMAT( & 'c..Production of HO2 from OH ( r5,4 terms )' ) 94100 FORMAT( & 'c..Production of HO2 from HNO4 (r5,21 term )' ) 94120 FORMAT( & 'c..Remaining HO2 production terms' ) 94140 FORMAT( & 'c..Production of HONO from OH (r19,4 terms )' ) 94160 FORMAT( & 'c..Remaining HONO production terms' ) 94180 FORMAT( & 'c..Production of ', A, ' from ', A, ' (r21,5 term )' ) 94200 FORMAT( & 'c..Remaining ', A, ' production terms' ) 94220 FORMAT( & 'c..', A, ' loss terms not in R5_4 & R19_4' ) 94240 FORMAT( & 'c..', A, ' loss terms not included in R4_5 & R21_5', & ' (except for ', A, '+', A, ' )' ) 94260 FORMAT( & 'c..', A, ' loss terms not included in R4_19' ) 94280 FORMAT( & 'c..', A, ' loss terms not inluded in R5_21' ) 95000 FORMAT( & 'c..solve quadratic equation for ', A ) 95020 FORMAT( & ' YCP( ', A, ' ) = MAX( Q / A , -C / Q )' ) 95040 FORMAT( & ' YCP( ', A, ' ) = ( ( P4 + R4_5 * YCP( ', A, & ' ) ) * L19 + R4_19 * P19 ) * T1' ) 95060 FORMAT( & ' YCP( ', A, ' ) = ( P21 + R21_5 * YCP( ', A, & ' ) ) * L21_INV' ) 95080 FORMAT( & ' YCP( ', A, ' ) = ( P19 + R19_4 * YCP( ', A, & ' ) ) / L19' ) END ================================================ FILE: UTIL/create_ebi/src/wr_gp3.F ================================================ SUBROUTINE WR_GP3 C********************************************************************** C C FUNCTION: Create source code for the hrgp3 subroutine in EBI C C PRECONDITIONS: None C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by Jerry Gipson, March, 2004 C C********************************************************************** USE ENV_VARS USE GLOBAL_DATA !!USE M3UTILIO ! IOAPI parameters and declarations USE RXNS_DATA IMPLICIT NONE C..INCLUDES: C..ARGUMENTS: None C..PARAMETERS: INTEGER, PARAMETER :: GRPNO = 3 C..EXTERNAL FUNCTIONS: INTEGER JUNIT ! gets unit no. INTEGER INDEX1 ! find position of string in list C..SAVED LOCAL VARIABLES: None C..SCRATCH LOCAL VARIABLES: CHARACTER( 16 ) :: PNAME = 'WR_GP3' ! Program name CHARACTER( 256 ) :: MSG ! Message text CHARACTER( 100 ) :: LINEIN ! Input line CHARACTER( CL ) :: SPOUT ! Ouput species CHARACTER( 16 ) :: SPEC CHARACTER( 256 ) :: FNAME ! Name of file to open CHARACTER( 72 ) :: CLINE ! Line of c's CHARACTER( 256 ) :: LINOUT CHARACTER( 150 ) :: RXOUT CHARACTER( 100 ) :: BLANK_LINE CHARACTER*( 5 ) :: RNUM ! Reaction number CHARACTER*( 6 ) :: COUT ! Output coefficient CHARACTER*( 1 ) :: SGN ! Coefficient sign INTEGER :: E1, E2 ! end pos of string INTEGER :: IND ! array index INTEGER :: IIN ! Unit no. of input file INTEGER :: IOUT ! Unit no. of output file INTEGER :: N, S, P, R ! Loop indices INTEGER :: NR ! No. of reactants INTEGER :: NPOS ! Reaction index INTEGER :: RPOS1 ! INTEGER :: RPOS2 ! INTEGER :: PPOS1 ! INTEGER :: PPOS2 ! LOGICAL :: LFIRST LOGICAL :: LRXN1 LOGICAL :: LFIRST_R3 = .TRUE. REAL( 8 ) :: COEFF REAL( 8 ) :: RPAN REAL( 8 ) :: PPAN REAL( 8 ) :: RC2O3 REAL( 8 ) :: PC2O3 C********************************************************************** DO N = 1, 72 CLINE( N : N ) = 'c' END DO DO N = 1, 100 BLANK_LINE( N : N ) = ' ' END DO ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Open ouput file and code template ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc E1 = LEN_TRIM( OUTPATH ) FNAME = OUTPATH( 1 : E1 ) // '/hrg3.F' IOUT = JUNIT() OPEN( UNIT = IOUT, FILE = FNAME, ERR = 9000 ) IIN = JUNIT() E1 = LEN_TRIM( TMPLPATH ) FNAME = TMPLPATH( 1 : E1 ) // '/hrg3.F' OPEN( UNIT = IIN, FILE = FNAME, ERR = 9000 ) IF( LWR_COPY ) CALL WR_COPYRT( IOUT ) IF( LWR_CVS_HDR ) CALL WR_CVSHDR( IOUT ) ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Read, modify, and write 1st section of code from template ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 100 CONTINUE READ( IIN, 92000, END = 1000 ) LINEIN IF( LINEIN( 1 : 2 ) .EQ. 'R1' ) THEN WRITE( IOUT, 93000 ) TRIM( MECHNAME ) GO TO 100 ELSEIF( LINEIN( 1 : 2 ) .EQ. 'R2' ) THEN WRITE( IOUT, 93020 ) CR_DATE( 1 : LEN_TRIM( CR_DATE ) ) GO TO 100 ELSEIF( LINEIN( 1 : 2 ) .EQ. 'R3' ) THEN IF( LFIRST_R3 ) THEN SPOUT = SPECIES( C2O3 ) CALL LCASE( SPOUT ) E1 = LEN_TRIM( SPOUT ) LINOUT = ' REAL( 8 ) :: K8_8 ! K' // & SPOUT( 1 : E1 ) // '+' // SPOUT( 1 : E1 ) // ' * delta t' E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) SPOUT = SPECIES( PAN ) CALL LCASE( SPOUT ) E1 = LEN_TRIM( SPOUT ) LINOUT = ' REAL( 8 ) :: R8_9 ! K' // SPOUT( 1 : E1 ) // & '-->' E1 = LEN_TRIM( LINOUT ) SPOUT = SPECIES( C2O3 ) CALL LCASE( SPOUT ) E2 = LEN_TRIM( SPOUT ) LINOUT = LINOUT( 1 : E1 ) // SPOUT( 1 : E2 ) // & ' * delta t' E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) SPOUT = SPECIES( C2O3 ) CALL LCASE( SPOUT ) E1 = LEN_TRIM( SPOUT ) LINOUT = ' REAL( 8 ) :: R9_8 ! K' // SPOUT( 1 : E1 ) // & '+' E1 = LEN_TRIM( LINOUT ) SPOUT = SPECIES( no2 ) CALL LCASE( SPOUT ) E2 = LEN_TRIM( SPOUT ) LINOUT = LINOUT( 1 : E1 ) // SPOUT( 1 : E2 ) // '-->' E1 = LEN_TRIM( LINOUT ) SPOUT = SPECIES( PAN ) CALL LCASE( SPOUT ) E2 = LEN_TRIM( SPOUT ) LINOUT = LINOUT( 1 : E1 ) // SPOUT( 1 : E2 ) // & ' * [NO2] * delta t' E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) LFIRST_R3 = .FALSE. END IF GO TO 100 ELSEIF( LINEIN( 1 : 2 ) .EQ. 'S1' ) THEN GO TO 1000 ELSE WRITE( IOUT, 92000 ) LINEIN( 1 : LEN_TRIM( LINEIN ) ) GO TO 100 END IF 1000 CONTINUE cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c P8 production section cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c P8 includes C2O3 production from all reactions except PAN=C2O3 c cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc E1 = LEN_TRIM( SPECIES( C2O3 ) ) E2 = LEN_TRIM( SPECIES( PAN ) ) WRITE( IOUT, 92000 ) WRITE( IOUT, 94000 ) SPECIES( C2O3 )( 1 : E1 ), SPECIES( PAN )( 1 : E2 ) c..Determine the reactions to include & get coefficients for the prod terms LRXN1 = .TRUE. DO N = 1, NRXNS COEFF = 0.0D0 CALL SUM_COEFF( RC2O3, 'R', C2O3, N ) CALL SUM_COEFF( PC2O3, 'P', C2O3, N ) IF( PC2O3 .LE. RC2O3 ) CYCLE ! Skip rxns with Pc2o3=0 ! Skip PAN=C2O3 Rxn IF( IRR( N, 1 ) .EQ. PAN .AND. IRR( N, 4 ) .EQ. C2O3 .OR. & IRR( N, 1 ) .EQ. PAN .AND. IRR( N, 5 ) .EQ. C2O3 ) & CYCLE COEFF = PC2O3 - RC2O3 ! Rxns w/ Pc2o3>0 c..call routine to create output line & write it NPOS = 30 RPOS1 = 0 RPOS2 = 0 PPOS1 = C2O3 PPOS2 = 0 CALL BLD_OUTLINE( 'RXRAT', 'P8', ' ', 0, COEFF, N, GRPNO, & NPOS, LINOUT, LRXN1, RPOS1, RPOS2, PPOS1, PPOS2 ) LRXN1 = .FALSE. E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) END DO cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c L8 computation ( Loss of C2O3 ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C L8 includes the following C2O3 loss terms: c a) all reactions in which C2O3 is lost except C2O3+C2O3 c cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc SPOUT = SPECIES( C2O3 ) E1 = LEN_TRIM( SPOUT ) WRITE( IOUT, 92000 ) WRITE( IOUT, 94020 ) SPOUT( 1 : E1 ), SPOUT( 1 : E1 ), SPOUT( 1 : E1 ) LRXN1 = .TRUE. DO N = 1, NRXNS c..Determine the rxn to include & get the coefficient for the loss term COEFF = 0.0D0 CALL SUM_COEFF( RC2O3, 'R', C2O3, N ) CALL SUM_COEFF( PC2O3, 'P', C2O3, N ) IF( RC2O3 .LE. PC2O3 ) CYCLE ! Skip rxns w/ Lc2o3=0 ! Skip C2O3+C2O3 rxn IF( IRR( N, 1 ) .EQ. C2O3 .AND. IRR( N, 2 ) .EQ. C2O3 ) CYCLE COEFF = RC2O3 - PC2O3 c..call routine to create output line & write it NPOS = 20 RPOS1 = C2O3 RPOS2 = 0 PPOS1 = 0 PPOS2 = 0 CALL BLD_OUTLINE( 'LFREQ', 'L8', 'C2O3', C2O3, COEFF, N, GRPNO, & NPOS, LINOUT, LRXN1, RPOS1, RPOS2, PPOS1, PPOS2 ) LRXN1 = .FALSE. E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) END DO cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c L9 computation ( Loss of PAN ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c L9 includes all reactions in which PAN is lost c cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc SPOUT = SPECIES( PAN ) E1 = LEN_TRIM( SPOUT ) WRITE( IOUT, 92000 ) WRITE( IOUT, 94040 ) SPOUT( 1 : E1 ) LRXN1 = .TRUE. DO N = 1, NRXNS c..Determine the rxn to include & get the coefficient for the loss term COEFF = 0.0D0 CALL SUM_COEFF( RPAN, 'R', PAN, N ) CALL SUM_COEFF( PPAN, 'P', PAN, N ) IF( RPAN .LE. PPAN ) CYCLE ! Skip rxns w/ Lc2o3=0 COEFF = RPAN - PPAN c..call routine to create output line & write it NPOS = 20 RPOS1 = PAN RPOS2 = 0 PPOS1 = 0 PPOS2 = 0 CALL BLD_OUTLINE( 'LFREQ', 'L9', 'PAN', PAN, COEFF, N, GRPNO, & NPOS, LINOUT, LRXN1, RPOS1, RPOS2, PPOS1, PPOS2 ) LRXN1 = .FALSE. E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) END DO cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c R8_8, R8_9, and R9_8 terms cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc WRITE( IOUT, 92000 ) WRITE( IOUT, 94060 ) c..K8,8 term ( C2O3+C2O3=) ! DO N = 1, NRXNS ! IF( IRR( N, 1 ) .EQ. C2O3 .AND. IRR( N, 2 ) .EQ. C2O3 ) THEN ! WRITE( RNUM, '( I5 )' ) N ! LINOUT = ' K8_8 = RKI( ' // RNUM // ' ) * DTC' ! E1 = LEN_TRIM( LINOUT ) ! WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) ! END IF ! END DO IF( RXN_C2O3_SELF .GT. 0 )THEN WRITE( RNUM, '( I5 )' ) RXN_C2O3_SELF LINOUT = ' K8_8 = RKI( ' // RNUM // ' ) * DTC' E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) ELSE LINOUT = ' K8_8 = 0.0D0' WRITE( IOUT, 92000 ) TRIM( LINOUT ) END IF c..R8,9 term ( production of C2O3 fro PAN ) LRXN1 = .TRUE. DO N = 1, NRXNS IF( IRR( N, 1 ) .EQ. PAN .AND. IRR( N, 4 ) .EQ. C2O3 .OR. & IRR( N, 1 ) .EQ. PAN .AND. IRR( N, 5 ) .EQ. C2O3 ) THEN WRITE( RNUM, '( I5 )' ) N c LINOUT = ' R8_9 = RKI( ' // RNUM // ' ) * DTC' IF( LRXN1 )THEN LINOUT = ' R8_9 = ( RKI( ' // RNUM // ' ) ' LRXN1 = .FALSE. ELSE LINOUT = ' & + RKI( ' // RNUM // ' ) ' END IF E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92040, ADVANCE= 'NO' ) LINOUT( 1 : E1 ) END IF END DO WRITE( IOUT, 92060) c..R9,8 term ( production of PAN from C2O3 ) LRXN1 = .TRUE. DO N = 1, NRXNS IF( ( IRR( N, 1 ) .EQ. C2O3 .AND. IRR( N, 2 ) .EQ. NO2 .AND. & IRR( N, 4 ) .EQ. PAN ) .OR. & ( IRR( N, 1 ) .EQ. NO2 .AND. IRR( N, 2 ) .EQ. C2O3 .AND. & IRR( N, 4 ) .EQ. PAN ) ) THEN WRITE( RNUM, '( I5 )' ) N SPOUT = SPECIES( NO2 ) E2 = LEN_TRIM( SPOUT ) IF( LRXN1 )THEN LINOUT = ' R9_8 = ( RKI( ' // RNUM // ' ) * YC( ' // & SPOUT( 1 : E2 ) // ' ) ' LRXN1 = .FALSE. ELSE LINOUT = ' & + RKI( ' // RNUM // ' ) * YC( ' // & SPOUT( 1 : E2 ) // ' ) ' END IF E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92040, ADVANCE= 'NO' ) LINOUT( 1 : E1 ) END IF END DO WRITE( IOUT, 92060) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Continue reading template section cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c..finish reading skipped section of template (i.e., code between S1 markers) 200 CONTINUE READ( IIN, 92000, END = 300 ) LINEIN IF( LINEIN( 1 : 2 ) .EQ. 'S1' ) GO TO 300 GO TO 200 300 CONTINUE 400 CONTINUE READ( IIN, 92000, END = 2000 ) LINEIN IF( LINEIN( 1 : 2 ) .EQ. 'R4' ) THEN WRITE( IOUT, 95000) SPECIES( C2O3 )( 1 : LEN_TRIM( SPECIES( C2O3 ) ) ), & SPECIES( PAN )( 1 : LEN_TRIM( SPECIES( PAN ) ) ) ELSEIF( LINEIN( 1 : 2 ) .EQ. 'R5' ) THEN WRITE( IOUT, 95020) SPECIES( C2O3 )( 1 : LEN_TRIM( SPECIES( C2O3 ) ) ), & SPECIES( PAN )( 1 : LEN_TRIM( SPECIES( PAN ) ) ) ELSEIF( LINEIN( 1 : 2 ) .EQ. 'R6' ) THEN WRITE( IOUT, 95040) SPECIES( C2O3 )( 1 : LEN_TRIM( SPECIES( C2O3 ) ) ) ELSEIF( LINEIN( 1 : 2 ) .EQ. 'R7' ) THEN WRITE( IOUT, 95060) SPECIES( PAN )( 1 : LEN_TRIM( SPECIES( PAN ) ) ), & SPECIES( PAN )( 1 : LEN_TRIM( SPECIES( PAN ) ) ), & SPECIES( C2O3 )( 1 : LEN_TRIM( SPECIES( C2O3 ) ) ) ELSE WRITE( IOUT, 92000 ) LINEIN( 1 : LEN_TRIM( LINEIN ) ) END IF GO TO 400 2000 CONTINUE CLOSE( IIN ) CLOSE( IOUT ) NOUTFLS = NOUTFLS + 1 OUTFLNAM( NOUTFLS ) = 'hrg3.F' RETURN 9000 MSG = 'ERROR: Could not open ' // FNAME( 1 : LEN_TRIM( FNAME ) ) WRITE(LOGDEV,'(a)')TRIM( PNAME ) // ': ' // TRIM( MSG ) STOP 92000 FORMAT( A ) 92020 FORMAT( / ) 92040 FORMAT( /, A ) 92060 FORMAT(' ) * DTC ') 93000 FORMAT( 'C PRECONDITIONS: For the ', A, ' mechanism' ) 93020 FORMAT( 'C REVISION HISTORY: Created by EBI solver program, ', A ) 94000 FORMAT( & 'c..Production of ', A, ' (except from ', A, ' )' ) 94020 FORMAT( & 'c..Loss frequency of ', A, ' ( not including ', A, & ' + ', A, ' )' ) 94040 FORMAT( & 'c..Loss frequency of ', A ) 94060 FORMAT( & 'c..K8_8, R8_9, and R9_8 terms' ) 95000 FORMAT( & 'c..Solution of quadratic equation to get ', A, ' & ', A ) 95020 FORMAT( & ' C = CMN * ( YC0( ', A, ' ) + P8 * DTC ) + ', & ' R8_9 * YC0( ', A, ' )' ) 95040 FORMAT( & ' YCP( ', A, ' ) = MAX( Q / A , -C / Q )' ) 95060 FORMAT( & ' YCP( ', A, ' ) = ( YC0( ', A, ' ) + R9_8 * ', & 'YCP( ', A, ' ) ) / CMN' ) END ================================================ FILE: UTIL/create_ebi/src/wr_gp3.F_1st_mod ================================================ SUBROUTINE WR_GP3 C********************************************************************** C C FUNCTION: Create source code for the hrgp3 subroutine in EBI C C PRECONDITIONS: None C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by Jerry Gipson, March, 2004 C C********************************************************************** USE ENV_VARS USE GLOBAL_DATA IMPLICIT NONE C..INCLUDES: INCLUDE SUBST_IOPARMS ! IOAPI parameters INCLUDE SUBST_IODECL ! IOAPI declarations INCLUDE SUBST_GC_SPC ! Mechanism gas-phase species INCLUDE SUBST_RXCMMN ! Mechanism data C..ARGUMENTS: None C..PARAMETERS: INTEGER, PARAMETER :: GRPNO = 3 C..EXTERNAL FUNCTIONS: INTEGER JUNIT ! gets unit no. INTEGER INDEX1 ! find position of string in list C..SAVED LOCAL VARIABLES: None C..SCRATCH LOCAL VARIABLES: CHARACTER( 16 ) :: PNAME = 'WR_GP3' ! Program name CHARACTER( 256 ) :: MSG ! Message text CHARACTER( 100 ) :: LINEIN ! Input line CHARACTER( CL ) :: SPOUT ! Ouput species CHARACTER( 16 ) :: SPEC CHARACTER( 256 ) :: FNAME ! Name of file to open CHARACTER( 72 ) :: CLINE ! Line of c's CHARACTER( 100 ) :: LINOUT CHARACTER( 100 ) :: RXOUT CHARACTER( 100 ) :: BLANK_LINE CHARACTER*( 3 ) :: RNUM ! Reaction number CHARACTER*( 6 ) :: COUT ! Output coefficient CHARACTER*( 1 ) :: SGN ! Coefficient sign INTEGER :: E1, E2 ! end pos of string INTEGER :: IND ! array index INTEGER :: IIN ! Unit no. of input file INTEGER :: IOUT ! Unit no. of output file INTEGER :: LOGDEV ! Unit no. of logdev INTEGER :: N, S, P, R ! Loop indices INTEGER :: NR ! No. of reactants INTEGER :: NPOS ! Reaction index INTEGER :: RPOS1 ! INTEGER :: RPOS2 ! INTEGER :: PPOS1 ! INTEGER :: PPOS2 ! LOGICAL :: LFIRST LOGICAL :: LRXN1 LOGICAL :: LFIRST_R3 = .TRUE. REAL :: COEFF REAL :: RPAN REAL :: PPAN REAL :: RC2O3 REAL :: PC2O3 C********************************************************************** DO N = 1, 72 CLINE( N : N ) = 'c' ENDDO DO N = 1, 100 BLANK_LINE( N : N ) = ' ' ENDDO ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Open ouput file and code template ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc LOGDEV = INIT3() E1 = LEN_TRIM( OUTPATH ) FNAME = OUTPATH( 1 : E1 ) // '/hrg3.F' IOUT = JUNIT() OPEN( UNIT = IOUT, FILE = FNAME, ERR = 9000 ) IIN = JUNIT() E1 = LEN_TRIM( TMPLPATH ) FNAME = TMPLPATH( 1 : E1 ) // '/hrg3.F' OPEN( UNIT = IIN, FILE = FNAME, ERR = 9000 ) IF( LWR_COPY ) CALL WR_COPYRT( IOUT ) IF( LWR_CVS_HDR ) CALL WR_CVSHDR( IOUT ) ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Read, modify, and write 1st section of code from template ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 100 CONTINUE READ( IIN, 92000, END = 1000 ) LINEIN IF( LINEIN( 1 : 2 ) .EQ. 'R1' ) THEN WRITE( IOUT, 93000 ) GC_TAG( 1 : LEN_TRIM( GC_TAG ) ) GO TO 100 ELSEIF( LINEIN( 1 : 2 ) .EQ. 'R2' ) THEN WRITE( IOUT, 93020 ) CR_DATE( 1 : LEN_TRIM( CR_DATE ) ) GO TO 100 ELSEIF( LINEIN( 1 : 2 ) .EQ. 'R3' ) THEN IF( LFIRST_R3 ) THEN SPOUT = GC_SPC( C2O3 ) CALL LCASE( SPOUT ) E1 = LEN_TRIM( SPOUT ) LINOUT = ' REAL K8_8 ! K' // & SPOUT( 1 : E1 ) // '+' // SPOUT( 1 : E1 ) // ' * delta t' E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) SPOUT = GC_SPC( PAN ) CALL LCASE( SPOUT ) E1 = LEN_TRIM( SPOUT ) LINOUT = ' REAL R8_9 ! K' // SPOUT( 1 : E1 ) // & '-->' E1 = LEN_TRIM( LINOUT ) SPOUT = GC_SPC( C2O3 ) CALL LCASE( SPOUT ) E2 = LEN_TRIM( SPOUT ) LINOUT = LINOUT( 1 : E1 ) // SPOUT( 1 : E2 ) // & ' * delta t' E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) SPOUT = GC_SPC( C2O3 ) CALL LCASE( SPOUT ) E1 = LEN_TRIM( SPOUT ) LINOUT = ' REAL R9_8 ! K' // SPOUT( 1 : E1 ) // & '+' E1 = LEN_TRIM( LINOUT ) SPOUT = GC_SPC( no2 ) CALL LCASE( SPOUT ) E2 = LEN_TRIM( SPOUT ) LINOUT = LINOUT( 1 : E1 ) // SPOUT( 1 : E2 ) // '-->' E1 = LEN_TRIM( LINOUT ) SPOUT = GC_SPC( PAN ) CALL LCASE( SPOUT ) E2 = LEN_TRIM( SPOUT ) LINOUT = LINOUT( 1 : E1 ) // SPOUT( 1 : E2 ) // & ' * [NO2] * delta t' E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) LFIRST_R3 = .FALSE. ENDIF GO TO 100 ELSEIF( LINEIN( 1 : 2 ) .EQ. 'S1' ) THEN GO TO 1000 ELSE WRITE( IOUT, 92000 ) LINEIN( 1 : LEN_TRIM( LINEIN ) ) GO TO 100 ENDIF 1000 CONTINUE cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c P8 production section cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c P8 includes C2O3 production from all reactions except PAN=C2O3 c cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc E1 = LEN_TRIM( GC_SPC( C2O3 ) ) E2 = LEN_TRIM( GC_SPC( PAN ) ) WRITE( IOUT, 92000 ) WRITE( IOUT, 94000 ) GC_SPC( C2O3 )( 1 : E1 ), GC_SPC( PAN )( 1 : E2 ) c..Determine the reactions to include & get coefficients for the prod terms LRXN1 = .TRUE. DO N = 1, NRXNS COEFF = 0.0 CALL SUM_COEFF( RC2O3, 'R', C2O3, N ) CALL SUM_COEFF( PC2O3, 'P', C2O3, N ) IF( PC2O3 .LE. RC2O3 ) CYCLE ! Skip rxns with Pc2o3=0 ! Skip PAN=C2O3 Rxn IF( IRR( N, 1 ) .EQ. PAN .AND. IRR( N, 4 ) .EQ. C2O3 .OR. & IRR( N, 1 ) .EQ. PAN .AND. IRR( N, 5 ) .EQ. C2O3 ) & CYCLE COEFF = PC2O3 - RC2O3 ! Rxns w/ Pc2o3>0 c..call routine to create output line & write it NPOS = 30 RPOS1 = 0 RPOS2 = 0 PPOS1 = C2O3 PPOS2 = 0 CALL BLD_OUTLINE( 'RXRAT', 'P8', ' ', 0, COEFF, N, GRPNO, & NPOS, LINOUT, LRXN1, RPOS1, RPOS2, PPOS1, PPOS2 ) LRXN1 = .FALSE. E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) ENDDO cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c L8 computation ( Loss of C2O3 ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C L8 includes the following C2O3 loss terms: c a) all reactions in which C2O3 is lost except C2O3+C2O3 c cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc SPOUT = GC_SPC( C2O3 ) E1 = LEN_TRIM( SPOUT ) WRITE( IOUT, 92000 ) WRITE( IOUT, 94020 ) SPOUT( 1 : E1 ), SPOUT( 1 : E1 ), SPOUT( 1 : E1 ) LRXN1 = .TRUE. DO N = 1, NRXNS c..Determine the rxn to include & get the coefficient for the loss term COEFF = 0.0 CALL SUM_COEFF( RC2O3, 'R', C2O3, N ) CALL SUM_COEFF( PC2O3, 'P', C2O3, N ) IF( RC2O3 .LE. PC2O3 ) CYCLE ! Skip rxns w/ Lc2o3=0 ! Skip C2O3+C2O3 rxn IF( IRR( N, 1 ) .EQ. C2O3 .AND. IRR( N, 2 ) .EQ. C2O3 ) CYCLE COEFF = RC2O3 - PC2O3 c..call routine to create output line & write it NPOS = 20 RPOS1 = C2O3 RPOS2 = 0 PPOS1 = 0 PPOS2 = 0 CALL BLD_OUTLINE( 'LFREQ', 'L8', 'C2O3', C2O3, COEFF, N, GRPNO, & NPOS, LINOUT, LRXN1, RPOS1, RPOS2, PPOS1, PPOS2 ) LRXN1 = .FALSE. E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) ENDDO cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c L9 computation ( Loss of PAN ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c L9 includes all reactions in which PAN is lost c cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc SPOUT = GC_SPC( PAN ) E1 = LEN_TRIM( SPOUT ) WRITE( IOUT, 92000 ) WRITE( IOUT, 94040 ) SPOUT( 1 : E1 ) LRXN1 = .TRUE. DO N = 1, NRXNS c..Determine the rxn to include & get the coefficient for the loss term COEFF = 0.0 CALL SUM_COEFF( RPAN, 'R', PAN, N ) CALL SUM_COEFF( PPAN, 'P', PAN, N ) IF( RPAN .LE. PPAN ) CYCLE ! Skip rxns w/ Lc2o3=0 COEFF = RPAN - PPAN c..call routine to create output line & write it NPOS = 20 RPOS1 = PAN RPOS2 = 0 PPOS1 = 0 PPOS2 = 0 CALL BLD_OUTLINE( 'LFREQ', 'L9', 'PAN', PAN, COEFF, N, GRPNO, & NPOS, LINOUT, LRXN1, RPOS1, RPOS2, PPOS1, PPOS2 ) LRXN1 = .FALSE. E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) ENDDO cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c R8_8, R8_9, and R9_8 terms cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc WRITE( IOUT, 92000 ) WRITE( IOUT, 94060 ) c..K8,8 term ( C2O3+C2O3=) DO N = 1, NRXNS IF( IRR( N, 1 ) .EQ. C2O3 .AND. IRR( N, 2 ) .EQ. C2O3 ) THEN WRITE( RNUM, '( I3 )' ) N LINOUT = ' K8_8 = RKI( ' // RNUM // ' ) * DTC' E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) ENDIF ENDDO c..R8,9 term ( production of C2O3 fro PAN ) LRXN1 = .TRUE. DO N = 1, NRXNS IF( IRR( N, 1 ) .EQ. PAN .AND. IRR( N, 4 ) .EQ. C2O3 .OR. & IRR( N, 1 ) .EQ. PAN .AND. IRR( N, 5 ) .EQ. C2O3 ) THEN WRITE( RNUM, '( I3 )' ) N c LINOUT = ' R8_9 = RKI( ' // RNUM // ' ) * DTC' IF( LRXN1 )THEN LINOUT = ' R8_9 = RKI( ' // RNUM // ' ) ' LRXN1 = .FALSE. ELSE LINOUT = ' & + RKI( ' // RNUM // ' ) ' ENDIF E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) ENDIF ENDDO c..R9,8 term ( production of PAN from C2O3 ) LRXN1 = .TRUE. DO N = 1, NRXNS IF( ( IRR( N, 1 ) .EQ. C2O3 .AND. IRR( N, 2 ) .EQ. NO2 .AND. & IRR( N, 4 ) .EQ. PAN ) .OR. & ( IRR( N, 1 ) .EQ. NO2 .AND. IRR( N, 2 ) .EQ. C2O3 .AND. & IRR( N, 4 ) .EQ. PAN ) ) THEN WRITE( RNUM, '( I3 )' ) N SPOUT = GC_SPC( NO2 ) E2 = LEN_TRIM( SPOUT ) IF( LRXN1 )THEN LINOUT = ' R9_8 = RKI( ' // RNUM // ' ) * YC( ' // & SPOUT( 1 : E2 ) // ' ) ' LRXN1 = .FALSE. ELSE LINOUT = ' & + RKI( ' // RNUM // ' ) * YC( ' // & SPOUT( 1 : E2 ) // ' ) ' ENDIF E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) ENDIF ENDDO c..update R8,9 and R9,8 terms with the time step C WRITE( IOUT, 92020) C LINOUT = ' R8_9 = R8_9 * DTC ' C E1 = LEN_TRIM( LINOUT ) C WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) C LINOUT = ' R9_8 = R9_8 * DTC ' C E1 = LEN_TRIM( LINOUT ) C WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Continue reading template section cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c..finish reading skipped section of template (i.e., code between S1 markers) 200 CONTINUE READ( IIN, 92000, END = 300 ) LINEIN IF( LINEIN( 1 : 2 ) .EQ. 'S1' ) GO TO 300 GO TO 200 300 CONTINUE 400 CONTINUE READ( IIN, 92000, END = 2000 ) LINEIN IF( LINEIN( 1 : 2 ) .EQ. 'R4' ) THEN WRITE( IOUT, 95000) GC_SPC( C2O3 )( 1 : LEN_TRIM( GC_SPC( C2O3 ) ) ), & GC_SPC( PAN )( 1 : LEN_TRIM( GC_SPC( PAN ) ) ) ELSEIF( LINEIN( 1 : 2 ) .EQ. 'R5' ) THEN WRITE( IOUT, 95020) GC_SPC( C2O3 )( 1 : LEN_TRIM( GC_SPC( C2O3 ) ) ), & GC_SPC( PAN )( 1 : LEN_TRIM( GC_SPC( PAN ) ) ) ELSEIF( LINEIN( 1 : 2 ) .EQ. 'R6' ) THEN WRITE( IOUT, 95040) GC_SPC( C2O3 )( 1 : LEN_TRIM( GC_SPC( C2O3 ) ) ) ELSEIF( LINEIN( 1 : 2 ) .EQ. 'R7' ) THEN WRITE( IOUT, 95060) GC_SPC( PAN )( 1 : LEN_TRIM( GC_SPC( PAN ) ) ), & GC_SPC( PAN )( 1 : LEN_TRIM( GC_SPC( PAN ) ) ), & GC_SPC( C2O3 )( 1 : LEN_TRIM( GC_SPC( C2O3 ) ) ) ELSE WRITE( IOUT, 92000 ) LINEIN( 1 : LEN_TRIM( LINEIN ) ) ENDIF GO TO 400 2000 CONTINUE CLOSE( IIN ) CLOSE( IOUT ) RETURN 9000 MSG = 'ERROR: Could not open ' // FNAME( 1 : LEN_TRIM( FNAME ) ) CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT2 ) 92000 FORMAT( A ) 92020 FORMAT( / ) 93000 FORMAT( 'C PRECONDITIONS: For the ', A, ' family of mechanisms' ) 93020 FORMAT( 'C REVISION HISTORY: Created by EBI solver program, ', A ) 94000 FORMAT( & 'c..Production of ', A, ' (except from ', A, ' )' ) 94020 FORMAT( & 'c..Loss frequency of ', A, ' ( not including ', A, & ' + ', A, ' )' ) 94040 FORMAT( & 'c..Loss frequency of ', A ) 94060 FORMAT( & 'c..K8_8, R8_9, and R9_8 terms' ) 95000 FORMAT( & 'c..Solution of quadratic equation to get ', A, ' & ', A ) 95020 FORMAT( & ' C = CMN * ( YC0( ', A, ' ) + P8 * DTC ) + ', & '(R8_9*DTC) * YC0( ', A, ' )' ) 95040 FORMAT( & ' YCP( ', A, ' ) = MAX( Q / A , -C / Q )' ) 95060 FORMAT( & ' YCP( ', A, ' ) = ( YC0( ', A, ' ) + (R9_8*DTC) * ', & 'YCP( ', A, ' ) ) / CMN' ) END ================================================ FILE: UTIL/create_ebi/src/wr_gp4.F ================================================ SUBROUTINE WR_GP4 C********************************************************************** C C FUNCTION: Create source code for the hrg4 subroutine in EBI C C PRECONDITIONS: None C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by Jerry Gipson, March, 2004 C C********************************************************************** USE ENV_VARS USE GLOBAL_DATA !!USE M3UTILIO ! IOAPI parameters and declarations USE RXNS_DATA IMPLICIT NONE C..INCLUDES: C..ARGUMENTS: None C..PARAMETERS: INTEGER, PARAMETER :: GRPNO = 4 C..EXTERNAL FUNCTIONS: INTEGER JUNIT ! gets unit no. ! INTEGER NAME_INDEX ! find position of string in list C..SAVED LOCAL VARIABLES: None C..SCRATCH LOCAL VARIABLES: CHARACTER( 16 ) :: PNAME = 'WR_GP4' ! Program name CHARACTER( 256 ) :: MSG ! Message text CHARACTER( 100 ) :: LINEIN ! Input line CHARACTER( CL ) :: SPOUT ! Ouput species CHARACTER( 16 ) :: SPEC CHARACTER( 256 ) :: FNAME ! Name of file to open CHARACTER( 72 ) :: CLINE ! Line of c's CHARACTER( 256 ) :: LINOUT CHARACTER( 150 ) :: RXOUT CHARACTER( 100 ) :: BLANK_LINE CHARACTER*( 5 ) :: RNUM ! Reaction number CHARACTER*( 6 ) :: COUT ! Output coefficient CHARACTER*( 1 ) :: SGN ! Coefficient sign INTEGER :: E1, E2 ! end pos of string INTEGER :: IND ! array index INTEGER :: IIN ! Unit no. of input file INTEGER :: IOUT ! Unit no. of output file INTEGER :: N, S, P, R ! Loop indices INTEGER :: NR ! No. of reactants INTEGER :: NPOS ! Reaction index INTEGER :: RPOS1 ! INTEGER :: RPOS2 ! INTEGER :: PPOS1 ! INTEGER :: PPOS2 ! LOGICAL :: LFIRST LOGICAL :: LRXN1 LOGICAL :: LFIRST_R3 = .TRUE. LOGICAL :: LQUAD = .FALSE. REAL( 8 ) :: COEFF REAL( 8 ) :: RNO3 REAL( 8 ) :: PNO3 REAL( 8 ) :: RN2O5 REAL( 8 ) :: PN2O5 C********************************************************************** DO N = 1, 72 CLINE( N : N ) = 'c' END DO DO N = 1, 100 BLANK_LINE( N : N ) = ' ' END DO ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Open ouput file and code template ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc E1 = LEN_TRIM( OUTPATH ) FNAME = OUTPATH( 1 : E1 ) // '/hrg4.F' IOUT = JUNIT() OPEN( UNIT = IOUT, FILE = FNAME, ERR = 9000 ) IIN = JUNIT() E1 = LEN_TRIM( TMPLPATH ) FNAME = TMPLPATH( 1 : E1 ) // '/hrg4.F' OPEN( UNIT = IIN, FILE = FNAME, ERR = 9000 ) IF( LWR_COPY ) CALL WR_COPYRT( IOUT ) IF( LWR_CVS_HDR ) CALL WR_CVSHDR( IOUT ) ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Determine if there is a NO3+NO3 reaction ( ==> quadratic solution) ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc LQUAD = .FALSE. DO N = 1, NRXNS IF( IRR( N, 1 ) .EQ. NO3 .AND. IRR( N, 2 ) .EQ. NO3 ) & LQUAD = .TRUE. END DO ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Read, modify, and write 1st section of code from template ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 100 CONTINUE READ( IIN, 92000, END = 1000 ) LINEIN IF( LINEIN( 1 : 2 ) .EQ. 'R1' ) THEN WRITE( IOUT, 93000 ) TRIM( MECHNAME ) GO TO 100 ELSEIF( LINEIN( 1 : 2 ) .EQ. 'R2' ) THEN WRITE( IOUT, 93020 ) CR_DATE( 1 : LEN_TRIM( CR_DATE ) ) GO TO 100 ELSEIF( LINEIN( 1 : 2 ) .EQ. 'R3' ) THEN E1 = LEN_TRIM( SPECIES( NO3 ) ) E2 = LEN_TRIM( SPECIES( N2O5 ) ) IF( LFIRST_R3 ) THEN IF( LQUAD ) THEN WRITE( IOUT, 93500 ) SPECIES( NO3 )( 1 : E1 ), & SPECIES( N2O5 )( 1 : E2 ), & SPECIES( NO3 )( 1 : E1 ) SPOUT = SPECIES( NO3 ) CALL LCASE( SPOUT ) E1 = LEN_TRIM( SPOUT ) LINOUT = ' REAL( 8 ) :: K15_15 ! K' // & SPOUT( 1 : E1 ) // '+' // SPOUT( 1 : E1 ) // ' * delta t' E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) ELSE WRITE( IOUT, 93520 ) SPECIES( NO3 )( 1 : E1 ), & SPECIES( N2O5 )( 1 : E2 ), & SPECIES( NO3 )( 1 : E1 ) END IF SPOUT = SPECIES( N2O5 ) CALL LCASE( SPOUT ) E1 = LEN_TRIM( SPOUT ) LINOUT = ' REAL( 8 ) :: R15_16 ! K' // SPOUT( 1 : E1 ) // & '-->' E1 = LEN_TRIM( LINOUT ) SPOUT = SPECIES( NO3 ) CALL LCASE( SPOUT ) E2 = LEN_TRIM( SPOUT ) LINOUT = LINOUT( 1 : E1 ) // SPOUT( 1 : E2 ) // & ' * delta t' E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) SPOUT = SPECIES( NO3 ) CALL LCASE( SPOUT ) E2 = LEN_TRIM( SPOUT ) LINOUT = ' REAL( 8 ) :: R16_15 ! K' // SPOUT( 1 : E2 ) // & '+' E1 = LEN_TRIM( LINOUT ) SPOUT = SPECIES( NO2 ) CALL LCASE( SPOUT ) E2 = LEN_TRIM( SPOUT ) LINOUT = LINOUT( 1 : E1 ) // SPOUT( 1 : E2 ) // '-->' E1 = LEN_TRIM( LINOUT ) SPOUT = SPECIES( N2O5 ) CALL LCASE( SPOUT ) E2 = LEN_TRIM( SPOUT ) LINOUT = LINOUT( 1 : E1 ) // SPOUT( 1 : E2 ) // & '[NO2] * delta t' E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) LFIRST_R3 = .FALSE. END IF GO TO 100 ELSEIF( LINEIN( 1 : 2 ) .EQ. 'S1' ) THEN GO TO 1000 ELSE WRITE( IOUT, 92000 ) LINEIN( 1 : LEN_TRIM( LINEIN ) ) GO TO 100 END IF 1000 CONTINUE cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c P15 production section cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c P15 includes NO3 production from all reactions except N2O5=NO2+NO3 c cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc E1 = LEN_TRIM( SPECIES( NO3 ) ) E2 = LEN_TRIM( SPECIES( N2O5 ) ) WRITE( IOUT, 92000 ) WRITE( IOUT, 94000 ) SPECIES( NO3 )( 1 : E1 ), SPECIES( N2O5 )( 1 : E2 ) c..Determine the reactions to include & get coefficients for the prod terms LRXN1 = .TRUE. DO N = 1, NRXNS COEFF = 0.0D0 CALL SUM_COEFF( RN2O5, 'R', N2O5, N ) CALL SUM_COEFF( RNO3, 'R', NO3, N ) CALL SUM_COEFF( PNO3, 'P', NO3, N ) IF( PNO3 .LE. RNO3 ) CYCLE ! Skip rxns with Pno3=0 ! Skip N2O5=NO3+NO2 Rxn IF( IRR( N, 1 ) .EQ. N2O5 .AND. IRR( N, 4 ) .EQ. NO3 .OR. & IRR( N, 1 ) .EQ. N2O5 .AND. IRR( N, 5 ) .EQ. NO3 ) & CYCLE COEFF = PNO3 - RNO3 ! Rxns w/ Pc2o3>0 c..call routine to create output line & write it NPOS = 30 RPOS1 = 0 RPOS2 = 0 PPOS1 = NO3 PPOS2 = 0 CALL BLD_OUTLINE( 'RXRAT', 'P15', ' ', 0, COEFF, N, GRPNO, & NPOS, LINOUT, LRXN1, RPOS1, RPOS2, PPOS1, PPOS2 ) LRXN1 = .FALSE. E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) END DO cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c L15 computation ( Loss of NO3 ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C L15 includes the following NO3 loss terms: c a) all reactions in which NO3 is lost except NO3+NO3 if present c cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc SPOUT = SPECIES( NO3 ) E1 = LEN_TRIM( SPOUT ) WRITE( IOUT, 92000 ) WRITE( IOUT, 94020 ) SPOUT( 1 : E1 ), SPOUT( 1 : E1 ), SPOUT( 1 : E1 ) LRXN1 = .TRUE. DO N = 1, NRXNS c..Determine the rxn to include & get the coefficient for the loss term COEFF = 0.0D0 CALL SUM_COEFF( RNO3, 'R', NO3, N ) CALL SUM_COEFF( PNO3, 'P', NO3, N ) IF( PNO3 .GE. RNO3 ) CYCLE ! Skip rxns w/ Lno3=0 ! Skip NO3+NO3 rxn IF( IRR( N, 1 ) .EQ. NO3 .AND. IRR( N, 2 ) .EQ. NO3 ) CYCLE COEFF = RNO3 - PNO3 c..call routine to create output line & write it NPOS = 20 RPOS1 = NO3 RPOS2 = 0 PPOS1 = 0 PPOS2 = 0 CALL BLD_OUTLINE( 'LFREQ', 'L15', 'NO3', NO3, COEFF, N, GRPNO, & NPOS, LINOUT, LRXN1, RPOS1, RPOS2, PPOS1, PPOS2 ) LRXN1 = .FALSE. E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) END DO cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c L16 computation ( Loss of N2O5 ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c L15 includes all reactions in which N2O5 is lost c cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc SPOUT = SPECIES( N2O5 ) E1 = LEN_TRIM( SPOUT ) WRITE( IOUT, 92000 ) WRITE( IOUT, 94040 ) SPOUT( 1 : E1 ) LRXN1 = .TRUE. DO N = 1, NRXNS c..Determine the rxn to include & get the coefficient for the loss term COEFF = 0.0D0 CALL SUM_COEFF( RN2O5, 'R', N2O5, N ) CALL SUM_COEFF( PN2O5, 'P', N2O5, N ) IF( RN2O5 .LE. PN2O5 ) CYCLE ! Skip rxns w/ Ln2o5=0 COEFF = RN2O5 - PN2O5 c..call routine to create output line & write it NPOS = 20 RPOS1 = N2O5 RPOS2 = 0 PPOS1 = 0 PPOS2 = 0 CALL BLD_OUTLINE( 'LFREQ', 'L16', 'N2O5', N2O5, COEFF, N, GRPNO, & NPOS, LINOUT, LRXN1, RPOS1, RPOS2, PPOS1, PPOS2 ) LRXN1 = .FALSE. E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) END DO cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c k15_15, R15_16, and R16_15 terms cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c..Header & K15_15 term if present ( NO3+NO3=) IF( LQUAD ) THEN WRITE( IOUT, 92000 ) WRITE( IOUT, 94060 ) DO N = 1, NRXNS IF( IRR( N, 1 ) .EQ. NO3 .AND. IRR( N, 2 ) .EQ. NO3 ) THEN WRITE( RNUM, '( I5 )' ) N LINOUT = ' K15_15 = RKI( ' // RNUM // ' ) * DTC' E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) END IF END DO ELSE WRITE( IOUT, 92000 ) WRITE( IOUT, 94080 ) END IF c..R15_16 term ( production of NO3 from N2O5 ) LRXN1 = .TRUE. DO N = 1, NRXNS IF( IRR( N, 1 ) .EQ. N2O5 .AND. IRR( N, 4 ) .EQ. NO3 .OR. & IRR( N, 1 ) .EQ. N2O5 .AND. IRR( N, 5 ) .EQ. NO3 ) THEN WRITE( RNUM, '( I5 )' ) N IF( LRXN1 )THEN LINOUT = ' R15_16 = ( RKI( ' // RNUM // ' ) ' LRXN1 = .FALSE. ELSE LINOUT = ' & + RKI( ' // RNUM // ' ) ' END IF E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92040, ADVANCE = 'NO' ) LINOUT( 1 : E1 ) END IF END DO WRITE( IOUT, 92060) WRITE( IOUT, 92020) c..R16_15 term ( production of N2O5 from NO3 ) DO N = 1, NRXNS IF( ( IRR( N, 1 ) .EQ. NO3 .AND. IRR( N, 4 ) .EQ. N2O5 ) .OR. & ( IRR( N, 2 ) .EQ. NO3 .AND. IRR( N, 4 ) .EQ. N2O5 ) ) THEN WRITE( RNUM, '( I5 )' ) N LINOUT = ' R16_15 = RKI( ' // RNUM // & ' ) * YCP( NO2 ) * DTC' E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) END IF END DO cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Write the remaining code cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF( LQUAD ) THEN LINOUT = 'c..Solution of quadratic equation to get ' // & SPECIES( NO3 )( 1 : LEN_TRIM( SPECIES( NO3 ) ) ) // ' & ' // & SPECIES( N2O5 )( 1 : LEN_TRIM( SPECIES( N2O5 ) ) ) E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) WRITE( IOUT, 95000) SPECIES( NO3 )( 1 : LEN_TRIM( SPECIES( NO3 ) ) ), & SPECIES( N2O5 )( 1 : LEN_TRIM( SPECIES( N2O5 ) ) ) WRITE( IOUT, 95020) WRITE( IOUT, 95040) SPECIES( NO3 )( 1 : LEN_TRIM( SPECIES( NO3 ) ) ) WRITE( IOUT, 95060) SPECIES( N2O5 )( 1 : LEN_TRIM( SPECIES( N2O5 ) ) ), & SPECIES( N2O5 )( 1 : LEN_TRIM( SPECIES( N2O5 ) ) ), & SPECIES( NO3 )( 1 : LEN_TRIM( SPECIES( NO3 ) ) ) ELSE WRITE( IOUT, 96000) WRITE( IOUT, 96020) SPECIES( NO3 )( 1 : LEN_TRIM( SPECIES( NO3 ) ) ) WRITE( IOUT, 96040) SPECIES( N2O5 )( 1 : LEN_TRIM( SPECIES( N2O5 ) ) ), & SPECIES( N2O5 )( 1 : LEN_TRIM( SPECIES( N2O5 ) ) ) WRITE( IOUT, 96060) SPECIES( NO3 )( 1 : LEN_TRIM( SPECIES( NO3 ) ) ), & SPECIES( N2O5 )( 1 : LEN_TRIM( SPECIES( N2O5 ) ) ) END IF WRITE( IOUT, 97000) CLOSE( IIN ) CLOSE( IOUT ) NOUTFLS = NOUTFLS + 1 OUTFLNAM( NOUTFLS ) = 'hrg4.F' RETURN 9000 MSG = 'ERROR: Could not open ' // FNAME( 1 : LEN_TRIM( FNAME ) ) WRITE(LOGDEV,'(a)')TRIM( PNAME ) // ': ' // TRIM( MSG ) STOP 92000 FORMAT( A ) 92020 FORMAT( / ) 92040 FORMAT( /, A ) 92060 FORMAT(' ) * DTC ') 93000 FORMAT( 'C PRECONDITIONS: For the ', A, ' mechanism' ) 93020 FORMAT( 'C REVISION HISTORY: Created by EBI solver program, ', A ) 93500 FORMAT( & ' REAL( 8 ) :: A, B, C, Q ! Quadratic equation terms'/ & ' REAL( 8 ) :: CMN ! Temp scalar'/ & ' REAL( 8 ) :: L15 ! Loss of ', A / & ' REAL( 8 ) :: L16 ! Loss of ', A / & ' REAL( 8 ) :: P15 ! Production of ', A ) 93520 FORMAT( & ' REAL( 8 ) :: A1, A2, A3 ! Temp scalars'/ & ' REAL( 8 ) :: ATOP3 ! Temp scalar'/ & ' REAL( 8 ) :: ATOP5 ! Temp scalar'/ & ' REAL( 8 ) :: BOTT ! Temp scalar'/ & ' REAL( 8 ) :: L15 ! Loss of ', A / & ' REAL( 8 ) :: L16 ! Loss of ', A / & ' REAL( 8 ) :: P15 ! Production of ', A ) 94000 FORMAT( & 'c..Production of ', A, ' (except from ', A, ' )' ) 94020 FORMAT( & 'c..Loss frequency of ', A, ' ( except ', A, & ' + ', A, ' if present )' ) 94040 FORMAT( & 'c..Loss frequency of ', A ) 94060 FORMAT( & 'c..K15_15, R15_16, and R16_15 terms' ) 94080 FORMAT( & 'c..R15_16 and R16_15 terms' ) 95000 FORMAT( & ' CMN = 1.0D0 + L16 * DTC' / & ' A = 2.0D0 * K15_15 * CMN' / & ' B = CMN * ( 1.0D0 + L15 * DTC ) - R15_16 * R16_15' / & ' C = CMN * ( YC0( ', A, ' ) + P15 * DTC ) + ', & ' R15_16 * YC0( ', A, ' )' ) 95020 FORMAT(/ & ' Q = -0.5D0 * ( B + SIGN( 1.0D0, B ) * ', & 'SQRT( B * B + 4.0D0 * A * C ) )' ) 95040 FORMAT( & ' YCP( ', A, ' ) = MAX( Q / A , -C / Q )' ) 95060 FORMAT( & ' YCP( ', A, ' ) = ( YC0( ', A, ' ) + R16_15 * ', & 'YCP( ', A, ' ) ) / CMN' ) 96000 FORMAT(/ & 'c..Solve analytically' ) 96020 FORMAT(/ & ' A1 = 1.0D0 + L16 * DTC' / & ' A2 = 1.0D0 + L15 * DTC' / & ' A3 = YC0( ', A, ' ) + P15 * DTC' ) 96040 FORMAT(/ & ' ATOP3 = A1 * A3 + R15_16 * YC0( ', A, ' )' / & ' ATOP5 = A2 * YC0( ', A, ' ) + R16_15 * A3' / & ' BOTT = A1 * A2 - R15_16 * R16_15' ) 96060 FORMAT(/ & ' YCP( ', A, ' ) = ATOP3 / BOTT' / & ' YCP( ', A, ' ) = ATOP5 / BOTT' ) 97000 FORMAT( / & ' RETURN' // & ' END' ) END ================================================ FILE: UTIL/create_ebi/src/wr_gp4.F_1st_mod ================================================ SUBROUTINE WR_GP4 C********************************************************************** C C FUNCTION: Create source code for the hrg4 subroutine in EBI C C PRECONDITIONS: None C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by Jerry Gipson, March, 2004 C C********************************************************************** USE ENV_VARS USE GLOBAL_DATA IMPLICIT NONE C..INCLUDES: INCLUDE SUBST_IOPARMS ! IOAPI parameters INCLUDE SUBST_IODECL ! IOAPI declarations INCLUDE SUBST_GC_SPC ! Mechanism gas-phase species INCLUDE SUBST_RXCMMN ! Mechanism data C..ARGUMENTS: None C..PARAMETERS: INTEGER, PARAMETER :: GRPNO = 4 C..EXTERNAL FUNCTIONS: INTEGER JUNIT ! gets unit no. INTEGER INDEX1 ! find position of string in list C..SAVED LOCAL VARIABLES: None C..SCRATCH LOCAL VARIABLES: CHARACTER( 16 ) :: PNAME = 'WR_GP4' ! Program name CHARACTER( 256 ) :: MSG ! Message text CHARACTER( 100 ) :: LINEIN ! Input line CHARACTER( CL ) :: SPOUT ! Ouput species CHARACTER( 16 ) :: SPEC CHARACTER( 256 ) :: FNAME ! Name of file to open CHARACTER( 72 ) :: CLINE ! Line of c's CHARACTER( 100 ) :: LINOUT CHARACTER( 100 ) :: RXOUT CHARACTER( 100 ) :: BLANK_LINE CHARACTER*( 3 ) :: RNUM ! Reaction number CHARACTER*( 6 ) :: COUT ! Output coefficient CHARACTER*( 1 ) :: SGN ! Coefficient sign INTEGER :: E1, E2 ! end pos of string INTEGER :: IND ! array index INTEGER :: IIN ! Unit no. of input file INTEGER :: IOUT ! Unit no. of output file INTEGER :: LOGDEV ! Unit no. of logdev INTEGER :: N, S, P, R ! Loop indices INTEGER :: NR ! No. of reactants INTEGER :: NPOS ! Reaction index INTEGER :: RPOS1 ! INTEGER :: RPOS2 ! INTEGER :: PPOS1 ! INTEGER :: PPOS2 ! LOGICAL :: LFIRST LOGICAL :: LRXN1 LOGICAL :: LFIRST_R3 = .TRUE. LOGICAL :: LQUAD = .FALSE. REAL :: COEFF REAL :: RNO3 REAL :: PNO3 REAL :: RN2O5 REAL :: PN2O5 C********************************************************************** DO N = 1, 72 CLINE( N : N ) = 'c' ENDDO DO N = 1, 100 BLANK_LINE( N : N ) = ' ' ENDDO ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Open ouput file and code template ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc LOGDEV = INIT3() E1 = LEN_TRIM( OUTPATH ) FNAME = OUTPATH( 1 : E1 ) // '/hrg4.F' IOUT = JUNIT() OPEN( UNIT = IOUT, FILE = FNAME, ERR = 9000 ) IIN = JUNIT() E1 = LEN_TRIM( TMPLPATH ) FNAME = TMPLPATH( 1 : E1 ) // '/hrg4.F' OPEN( UNIT = IIN, FILE = FNAME, ERR = 9000 ) IF( LWR_COPY ) CALL WR_COPYRT( IOUT ) IF( LWR_CVS_HDR ) CALL WR_CVSHDR( IOUT ) ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Determine if there is a NO3+NO3 reaction ( ==> quadratic solution) ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc LQUAD = .FALSE. DO N = 1, NRXNS IF( IRR( N, 1 ) .EQ. NO3 .AND. IRR( N, 2 ) .EQ. NO3 ) & LQUAD = .TRUE. ENDDO ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Read, modify, and write 1st section of code from template ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 100 CONTINUE READ( IIN, 92000, END = 1000 ) LINEIN IF( LINEIN( 1 : 2 ) .EQ. 'R1' ) THEN WRITE( IOUT, 93000 ) GC_TAG( 1 : LEN_TRIM( GC_TAG ) ) GO TO 100 ELSEIF( LINEIN( 1 : 2 ) .EQ. 'R2' ) THEN WRITE( IOUT, 93020 ) CR_DATE( 1 : LEN_TRIM( CR_DATE ) ) GO TO 100 ELSEIF( LINEIN( 1 : 2 ) .EQ. 'R3' ) THEN E1 = LEN_TRIM( GC_SPC( NO3 ) ) E2 = LEN_TRIM( GC_SPC( N2O5 ) ) IF( LFIRST_R3 ) THEN IF( LQUAD ) THEN WRITE( IOUT, 93500 ) GC_SPC( NO3 )( 1 : E1 ), & GC_SPC( N2O5 )( 1 : E2 ), & GC_SPC( NO3 )( 1 : E1 ) SPOUT = GC_SPC( NO3 ) CALL LCASE( SPOUT ) E1 = LEN_TRIM( SPOUT ) LINOUT = ' REAL K15_15 ! K' // & SPOUT( 1 : E1 ) // '+' // SPOUT( 1 : E1 ) // ' * delta t' E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) ELSE WRITE( IOUT, 93520 ) GC_SPC( NO3 )( 1 : E1 ), & GC_SPC( N2O5 )( 1 : E2 ), & GC_SPC( NO3 )( 1 : E1 ) ENDIF SPOUT = GC_SPC( N2O5 ) CALL LCASE( SPOUT ) E1 = LEN_TRIM( SPOUT ) LINOUT = ' REAL R15_16 ! K' // SPOUT( 1 : E1 ) // & '-->' E1 = LEN_TRIM( LINOUT ) SPOUT = GC_SPC( NO3 ) CALL LCASE( SPOUT ) E2 = LEN_TRIM( SPOUT ) LINOUT = LINOUT( 1 : E1 ) // SPOUT( 1 : E2 ) // & ' * delta t' E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) SPOUT = GC_SPC( NO3 ) CALL LCASE( SPOUT ) E2 = LEN_TRIM( SPOUT ) LINOUT = ' REAL R16_15 ! K' // SPOUT( 1 : E2 ) // & '+' E1 = LEN_TRIM( LINOUT ) SPOUT = GC_SPC( NO2 ) CALL LCASE( SPOUT ) E2 = LEN_TRIM( SPOUT ) LINOUT = LINOUT( 1 : E1 ) // SPOUT( 1 : E2 ) // '-->' E1 = LEN_TRIM( LINOUT ) SPOUT = GC_SPC( N2O5 ) CALL LCASE( SPOUT ) E2 = LEN_TRIM( SPOUT ) LINOUT = LINOUT( 1 : E1 ) // SPOUT( 1 : E2 ) // & '[NO2] * delta t' E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) LFIRST_R3 = .FALSE. ENDIF GO TO 100 ELSEIF( LINEIN( 1 : 2 ) .EQ. 'S1' ) THEN GO TO 1000 ELSE WRITE( IOUT, 92000 ) LINEIN( 1 : LEN_TRIM( LINEIN ) ) GO TO 100 ENDIF 1000 CONTINUE cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c P15 production section cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c P15 includes NO3 production from all reactions except N2O5=NO2+NO3 c cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc E1 = LEN_TRIM( GC_SPC( NO3 ) ) E2 = LEN_TRIM( GC_SPC( N2O5 ) ) WRITE( IOUT, 92000 ) WRITE( IOUT, 94000 ) GC_SPC( NO3 )( 1 : E1 ), GC_SPC( N2O5 )( 1 : E2 ) c..Determine the reactions to include & get coefficients for the prod terms LRXN1 = .TRUE. DO N = 1, NRXNS COEFF = 0.0 CALL SUM_COEFF( RN2O5, 'R', N2O5, N ) CALL SUM_COEFF( RNO3, 'R', NO3, N ) CALL SUM_COEFF( PNO3, 'P', NO3, N ) IF( PNO3 .LE. RNO3 ) CYCLE ! Skip rxns with Pno3=0 ! Skip N2O5=NO3+NO2 Rxn IF( IRR( N, 1 ) .EQ. N2O5 .AND. IRR( N, 4 ) .EQ. NO3 .OR. & IRR( N, 1 ) .EQ. N2O5 .AND. IRR( N, 5 ) .EQ. NO3 ) & CYCLE COEFF = PNO3 - RNO3 ! Rxns w/ Pc2o3>0 c..call routine to create output line & write it NPOS = 30 RPOS1 = 0 RPOS2 = 0 PPOS1 = NO3 PPOS2 = 0 CALL BLD_OUTLINE( 'RXRAT', 'P15', ' ', 0, COEFF, N, GRPNO, & NPOS, LINOUT, LRXN1, RPOS1, RPOS2, PPOS1, PPOS2 ) LRXN1 = .FALSE. E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) ENDDO cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c L15 computation ( Loss of NO3 ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C L15 includes the following NO3 loss terms: c a) all reactions in which NO3 is lost except NO3+NO3 if present c cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc SPOUT = GC_SPC( NO3 ) E1 = LEN_TRIM( SPOUT ) WRITE( IOUT, 92000 ) WRITE( IOUT, 94020 ) SPOUT( 1 : E1 ), SPOUT( 1 : E1 ), SPOUT( 1 : E1 ) LRXN1 = .TRUE. DO N = 1, NRXNS c..Determine the rxn to include & get the coefficient for the loss term COEFF = 0.0 CALL SUM_COEFF( RNO3, 'R', NO3, N ) CALL SUM_COEFF( PNO3, 'P', NO3, N ) IF( PNO3 .GE. RNO3 ) CYCLE ! Skip rxns w/ Lno3=0 ! Skip NO3+NO3 rxn IF( IRR( N, 1 ) .EQ. NO3 .AND. IRR( N, 2 ) .EQ. NO3 ) CYCLE COEFF = RNO3 - PNO3 c..call routine to create output line & write it NPOS = 20 RPOS1 = NO3 RPOS2 = 0 PPOS1 = 0 PPOS2 = 0 CALL BLD_OUTLINE( 'LFREQ', 'L15', 'NO3', NO3, COEFF, N, GRPNO, & NPOS, LINOUT, LRXN1, RPOS1, RPOS2, PPOS1, PPOS2 ) LRXN1 = .FALSE. E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) ENDDO cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c L16 computation ( Loss of N2O5 ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c L15 includes all reactions in which N2O5 is lost c cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc SPOUT = GC_SPC( N2O5 ) E1 = LEN_TRIM( SPOUT ) WRITE( IOUT, 92000 ) WRITE( IOUT, 94040 ) SPOUT( 1 : E1 ) LRXN1 = .TRUE. DO N = 1, NRXNS c..Determine the rxn to include & get the coefficient for the loss term COEFF = 0.0 CALL SUM_COEFF( RN2O5, 'R', N2O5, N ) CALL SUM_COEFF( PN2O5, 'P', N2O5, N ) IF( RN2O5 .LE. PN2O5 ) CYCLE ! Skip rxns w/ Ln2o5=0 COEFF = RN2O5 - PN2O5 c..call routine to create output line & write it NPOS = 20 RPOS1 = N2O5 RPOS2 = 0 PPOS1 = 0 PPOS2 = 0 CALL BLD_OUTLINE( 'LFREQ', 'L16', 'N2O5', N2O5, COEFF, N, GRPNO, & NPOS, LINOUT, LRXN1, RPOS1, RPOS2, PPOS1, PPOS2 ) LRXN1 = .FALSE. E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) ENDDO cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c k15_15, R15_16, and R16_15 terms cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c..Header & K15_15 term if present ( NO3+NO3=) IF( LQUAD ) THEN WRITE( IOUT, 92000 ) WRITE( IOUT, 94060 ) DO N = 1, NRXNS IF( IRR( N, 1 ) .EQ. NO3 .AND. IRR( N, 2 ) .EQ. NO3 ) THEN WRITE( RNUM, '( I3 )' ) N LINOUT = ' K15_15 = RKI( ' // RNUM // ' ) * DTC' E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) ENDIF ENDDO ELSE WRITE( IOUT, 92000 ) WRITE( IOUT, 94080 ) ENDIF c..R15_16 term ( production of NO3 from N2O5 ) LRXN1 = .TRUE. DO N = 1, NRXNS IF( IRR( N, 1 ) .EQ. N2O5 .AND. IRR( N, 4 ) .EQ. NO3 .OR. & IRR( N, 1 ) .EQ. N2O5 .AND. IRR( N, 5 ) .EQ. NO3 ) THEN WRITE( RNUM, '( I3 )' ) N IF( LRXN1 )THEN LINOUT = ' R15_16 = RKI( ' // RNUM // ' ) ' LRXN1 = .FALSE. ELSE LINOUT = ' & + RKI( ' // RNUM // ' ) ' ENDIF E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) ENDIF ENDDO C LINOUT = ' R15_16 = R15_16 * DTC ' C E1 = LEN_TRIM( LINOUT ) C WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) c..R16_15 term ( production of N2O5 from NO3 ) DO N = 1, NRXNS IF( ( IRR( N, 1 ) .EQ. NO3 .AND. IRR( N, 4 ) .EQ. N2O5 ) .OR. & ( IRR( N, 2 ) .EQ. NO3 .AND. IRR( N, 4 ) .EQ. N2O5 ) ) THEN WRITE( RNUM, '( I3 )' ) N LINOUT = ' R16_15 = RKI( ' // RNUM // & ' ) * YC( NO2 ) * DTC' E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) ENDIF ENDDO cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Write the remaining code cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF( LQUAD ) THEN LINOUT = 'c..Solution of quadratic equation to get ' // & GC_SPC( NO3 )( 1 : LEN_TRIM( GC_SPC( NO3 ) ) ) // ' & ' // & GC_SPC( N2O5 )( 1 : LEN_TRIM( GC_SPC( N2O5 ) ) ) E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) WRITE( IOUT, 95000) GC_SPC( NO3 )( 1 : LEN_TRIM( GC_SPC( NO3 ) ) ), & GC_SPC( N2O5 )( 1 : LEN_TRIM( GC_SPC( N2O5 ) ) ) WRITE( IOUT, 95020) WRITE( IOUT, 95040) GC_SPC( NO3 )( 1 : LEN_TRIM( GC_SPC( NO3 ) ) ) WRITE( IOUT, 95060) GC_SPC( N2O5 )( 1 : LEN_TRIM( GC_SPC( N2O5 ) ) ), & GC_SPC( N2O5 )( 1 : LEN_TRIM( GC_SPC( N2O5 ) ) ), & GC_SPC( NO3 )( 1 : LEN_TRIM( GC_SPC( NO3 ) ) ) ELSE WRITE( IOUT, 96000) WRITE( IOUT, 96020) GC_SPC( NO3 )( 1 : LEN_TRIM( GC_SPC( NO3 ) ) ) WRITE( IOUT, 96040) GC_SPC( N2O5 )( 1 : LEN_TRIM( GC_SPC( N2O5 ) ) ), & GC_SPC( N2O5 )( 1 : LEN_TRIM( GC_SPC( N2O5 ) ) ) WRITE( IOUT, 96060) GC_SPC( NO3 )( 1 : LEN_TRIM( GC_SPC( NO3 ) ) ), & GC_SPC( N2O5 )( 1 : LEN_TRIM( GC_SPC( N2O5 ) ) ) ENDIF WRITE( IOUT, 97000) CLOSE( IIN ) CLOSE( IOUT ) RETURN 9000 MSG = 'ERROR: Could not open ' // FNAME( 1 : LEN_TRIM( FNAME ) ) CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT2 ) 92000 FORMAT( A ) 92020 FORMAT( / ) 93000 FORMAT( 'C PRECONDITIONS: For the ', A, ' family of mechanisms' ) 93020 FORMAT( 'C REVISION HISTORY: Created by EBI solver program, ', A ) 93500 FORMAT( & ' REAL A, B, C, Q ! Quadratic equation terms'/ & ' REAL CMN ! Temp scalar'/ & ' REAL L15 ! Loss of ', A / & ' REAL L16 ! Loss of ', A / & ' REAL P15 ! Production of ', A ) 93520 FORMAT( & ' REAL A1, A2, A3 ! Temp scalars'/ & ' REAL ATOP3 ! Temp scalar'/ & ' REAL ATOP5 ! Temp scalar'/ & ' REAL BOTT ! Temp scalar'/ & ' REAL L15 ! Loss of ', A / & ' REAL L16 ! Loss of ', A / & ' REAL P15 ! Production of ', A ) 94000 FORMAT( & 'c..Production of ', A, ' (except from ', A, ' )' ) 94020 FORMAT( & 'c..Loss frequency of ', A, ' ( except ', A, & ' + ', A, ' if present )' ) 94040 FORMAT( & 'c..Loss frequency of ', A ) 94060 FORMAT( & 'c..K15_15, R15_16, and R16_15 terms' ) 94080 FORMAT( & 'c..R15_16 and R16_15 terms' ) 95000 FORMAT( & ' CMN = 1.0 + L16 * DTC' / & ' A = 2.0 * K15_15 * CMN' / & ' B = CMN * ( 1.0 + L15 * DTC ) - (R15_16*DTC) * R16_15' / & ' C = CMN * ( YC0( ', A, ' ) + P15 * DTC ) + ', & '(R15_16*DTC) * YC0( ', A, ' )' ) 95020 FORMAT(/ & ' Q = -0.5 * ( B + SIGN( 1.0, B ) * ', & 'SQRT( B * B + 4.0 * A * C ) )' ) 95040 FORMAT( & ' YCP( ', A, ' ) = MAX( Q / A , -C / Q )' ) 95060 FORMAT( & ' YCP( ', A, ' ) = ( YC0( ', A, ' ) + R16_15 * ', & 'YCP( ', A, ' ) ) / CMN' ) 96000 FORMAT(/ & 'c..Solve analytically' ) 96020 FORMAT(/ & ' A1 = 1.0 + L16 * DTC' / & ' A2 = 1.0 + L15 * DTC' / & ' A3 = YC0( ', A, ' ) + P15 * DTC' ) 96040 FORMAT(/ & ' ATOP3 = A1 * A3 + (R15_16*DTC) * YC0( ', A, ' )' / & ' ATOP5 = A2 * YC0( ', A, ' ) + R16_15 * A3' / & ' BOTT = A1 * A2 - (R15_16*DTC) * R16_15' ) 96060 FORMAT(/ & ' YCP( ', A, ' ) = ATOP3 / BOTT' / & ' YCP( ', A, ' ) = ATOP5 / BOTT' ) 97000 FORMAT( / & ' RETURN' // & ' END' ) END ================================================ FILE: UTIL/create_ebi/src/wr_grp1.F_03-06-06 ================================================ SUBROUTINE WR_GP1 C********************************************************************** C C FUNCTION: Create source code for the hrgp1 subroutine in EBI C C PRECONDITIONS: None C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by Jerry Gipson, February, 2004 C C********************************************************************** USE ENV_VARS USE GLOBAL_DATA IMPLICIT NONE C..INCLUDES: INCLUDE SUBST_IOPARMS ! IOAPI parameters INCLUDE SUBST_IODECL ! IOAPI declarations INCLUDE SUBST_GC_SPC ! Mechanism gas-phase species INCLUDE SUBST_RXCMMN ! Mechanism data C..ARGUMENTS: None C..PARAMETERS: INTEGER, PARAMETER :: GRPNO = 1 C..EXTERNAL FUNCTIONS: INTEGER JUNIT ! gets unit no. INTEGER INDEX1 ! find position of string in list C..SAVED LOCAL VARIABLES: None C..SCRATCH LOCAL VARIABLES: CHARACTER( 16 ) :: PNAME = 'WR_GP1' ! Program name CHARACTER( 256 ) :: MSG ! Message text CHARACTER( 100 ) :: LINEIN ! Input line CHARACTER( CL ) :: SPOUT ! Ouput species CHARACTER( 16 ) :: SPEC CHARACTER( 256 ) :: FNAME ! Name of file to open CHARACTER( 72 ) :: CLINE ! Line of c's CHARACTER( 100 ) :: LINOUT CHARACTER( 100 ) :: RXOUT CHARACTER( 100 ) :: BLANK_LINE CHARACTER*( 3 ) :: RNUM ! Reaction number CHARACTER*( 9 ) :: COUT ! Output coefficient CHARACTER*( 1 ) :: SGN ! Coefficient sign INTEGER :: E1, E2 ! end pos of string INTEGER :: IND ! array index INTEGER :: IIN ! Unit no. of input file INTEGER :: IOUT ! Unit no. of output file INTEGER :: LOGDEV ! Unit no. of logdev INTEGER :: N, S, P, R ! Loop indices INTEGER :: NR ! No. of reactants INTEGER :: NPOS ! Reaction index INTEGER :: RPOS1 ! Species to occupy reactant pos 1 in rxn line INTEGER :: RPOS2 ! Species to occupy reactant pos 2 in rxn line INTEGER :: PPOS1 ! Species to occupy product pos 1 in rxn line INTEGER :: PPOS2 ! Species to occupy product pos 2 in rxn line INTEGER :: J1, J2, K1_3 ! Rxn nos for NO2+hv, O3P+NO, & NO+O3 INTEGER :: KO3_O1D ! Rxn number for O3+hv=O1D LOGICAL :: LPHOT ! Photolysis rxn flag LOGICAL :: LFIRST ! First pass flag LOGICAL :: LRXN1 ! First rxn flag REAL :: COEFF ! Prod/loss coefficient REAL :: RNO ! Sum of NO reactant coefficients REAL :: RNO2 ! Sum of NO2 reactant coefficients REAL :: PNO ! Sum of NO product coefficients REAL :: PNO2 ! Sum of NO2 product coefficients REAL :: RO3 ! Sum of O3 reactant coefficients REAL :: PO3 ! Sum of O3 product coefficients REAL :: RO3P ! Sum of O3P reactant coefficients REAL :: PO3P ! Sum of O3P product coefficients REAL :: RO1D ! Sum of O1D reactant coefficients REAL :: PO1D ! Sum of O1D product coefficients C********************************************************************** DO N = 1, 72 CLINE( N : N ) = 'c' ENDDO DO N = 1, 100 BLANK_LINE( N : N ) = ' ' ENDDO ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Open ouput file and code template ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc LOGDEV = INIT3() E1 = LEN_TRIM( OUTPATH ) FNAME = OUTPATH( 1 : E1 ) // '/hrg1.F' IOUT = JUNIT() OPEN( UNIT = IOUT, FILE = FNAME, ERR = 9000 ) IIN = JUNIT() E1 = LEN_TRIM( TMPLPATH ) FNAME = TMPLPATH( 1 : E1 ) // '/hrg1.F' OPEN( UNIT = IIN, FILE = FNAME, ERR = 9000 ) IF( LWR_COPY ) CALL WR_COPYRT( IOUT ) IF( LWR_CVS_HDR ) CALL WR_CVSHDR( IOUT ) ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Read, modify, and write 1st section of code from template ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 100 CONTINUE READ( IIN, 92000, END = 1000 ) LINEIN IF( LINEIN( 1 : 2 ) .EQ. 'R1' ) THEN WRITE( IOUT, 93000 ) GC_TAG( 1 : LEN_TRIM( GC_TAG ) ) GO TO 100 ELSEIF( LINEIN( 1 : 2 ) .EQ. 'R2' ) THEN WRITE( IOUT, 93020 ) CR_DATE( 1 : LEN_TRIM( CR_DATE ) ) GO TO 100 ELSEIF( LINEIN( 1 : 2 ) .EQ. 'S1' ) THEN GO TO 1000 ELSE WRITE( IOUT, 92000 ) LINEIN( 1 : LEN_TRIM( LINEIN ) ) GO TO 100 ENDIF 1000 CONTINUE cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Do O1D section cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc WRITE( IOUT, 92020 ) WRITE( IOUT, 92000 ) CLINE WRITE( IOUT, 93100 ) WRITE( IOUT, 92000 ) CLINE c..get all reactions in which O1D is reacting LRXN1 = .TRUE. DO N = 1, NRXNS IF ( IRR( N, 1 ) .NE. O1D ) CYCLE ! Skip Rxns w/ Lo1d=0 COEFF = 1.0 NPOS = 20 RPOS1 = O1D RPOS2 = 0 PPOS1 = 0 PPOS2 = 0 CALL BLD_OUTLINE( 'LFREQ', 'O1D_S', 'O1D', O1D, COEFF, N, GRPNO, & NPOS, LINOUT, LRXN1, RPOS1, RPOS2, PPOS1, PPOS2 ) LRXN1 = .FALSE. E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) ENDDO WRITE( IOUT, 92000 ) c..get reaction(s) producing O3P from O1D LRXN1 = .TRUE. DO N = 1, NRXNS IF ( IRR( N, 1 ) .NE. O1D .OR. IRR( N, 4 ) .NE. O3P ) CYCLE COEFF = SC( N, 1 ) NPOS = 20 RPOS1 = O1D RPOS2 = 0 PPOS1 = OH PPOS2 = 0 CALL BLD_OUTLINE( 'LFREQ', 'O3P_S', 'O1D', O1D, COEFF, N, GRPNO, & NPOS, LINOUT, LRXN1, RPOS1, RPOS2, PPOS1, PPOS2 ) LRXN1 = .FALSE. E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) ENDDO c..write the the final line WRITE( IOUT, 92000 ) LINOUT = ' O3P_S = O3P_S / O1D_S' E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c R1_2 computation ( Production of NO from reactions of NO2 ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C R1_2 includes the following NO loss/NO2 production terms: c a) those in which NO is produced from NO2 (include only c equivalent amounts of loss and production) c c Hence, c c {aNO +} bNO2 {+ X} = cNO + dNO2 c if c le a ==> Pno = 0, so R1_2 coeff = 0 c if c gt a ==> Pno > 0 c if b le d ==> Lno2 = 0, so R1_2 coeff = 0 c if b gt d ==> Lno2 > 0, so c if b-d > c-a ==> Lno2 > Pno, so R1_2 coeff = c-a c if b-d = c-a ==> Lno2 = Pno, so R1_2 coeff = c-a c if b-d < c-a ==> Lno2 < Pno, so R1_2 coeff = b-d c cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c..Write the section header WRITE( IOUT, 92020 ) WRITE( IOUT, 92000 ) CLINE WRITE( IOUT, 94000 ) WRITE( IOUT, 92000 ) CLINE LRXN1 = .TRUE. DO N = 1, NRXNS c..find the rxns to include and set the coefficient COEFF = 0.0 CALL SUM_COEFF( RNO, 'R', NO, N ) CALL SUM_COEFF( RNO2, 'R', NO2, N ) CALL SUM_COEFF( PNO, 'P', NO, N ) CALL SUM_COEFF( PNO2, 'P', NO2, N ) IF( PNO .LE. RNO ) CYCLE ! Skip rxn if Pno=0 IF( RNO2 .LE. PNO2 ) CYCLE ! Skip rxn if Lno2=0 IF( RNO2 - PNO2 .GE. PNO - RNO ) THEN COEFF = PNO - RNO ! for Lno2 >= Pno ELSE COEFF = RNO2 - PNO2 ! for Lno2 < Pno ENDIF IF( COEFF .EQ. 0.0 ) CYCLE c..call routine to create output line & write it NPOS = 20 RPOS1 = NO2 RPOS2 = 0 PPOS1 = NO PPOS2 = NO2 CALL BLD_OUTLINE( 'LFREQ', 'R1_2', 'NO2', NO2, COEFF, N, GRPNO, & NPOS, LINOUT, LRXN1, RPOS1, RPOS2, PPOS1, PPOS2 ) LRXN1 = .FALSE. E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) ENDDO WRITE( IOUT, '( A )' ) ' R1_2 = R1_2 * DTC' cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c P1 computation ( Production of NO ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C P1 includes NO production terms from the following reactions: c a) those in which NO is produced & NO2 is NOT a reactant c b) those in which NO is produced and NO2 is consumed and the c NO production rate exceeds the NO2 loss rate (excess amount only) c c Hence, c c {aNO +} bNO2 {+ X} = cNO + dNO2 c if c le a ==> Pno=o, so P1 coeff = 0 c if c gt a ==> Pno > 0, so c if b le d ==> Lno2 = 0, so P1 coeff = c-a c if b gt d ==> Lno2 > 0, so c if b-d > c-a ==> Lno2 > Pno, so P1 coeff = 0 c if b-d = c-a ==> Lno2 = Pno, so P1 coeff = 0 c if b-d < c-a ==> Lno2 < Pno, so P1 coeff = (c-a) - (b-d) c cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc WRITE( IOUT, 92020 ) LRXN1 = .TRUE. DO N = 1, NRXNS c..Determine the reaction to include & get the coefficient for the prod term COEFF = 0.0 CALL SUM_COEFF( RNO, 'R', NO, N ) CALL SUM_COEFF( RNO2, 'R', NO2, N ) CALL SUM_COEFF( PNO, 'P', NO, N ) CALL SUM_COEFF( PNO2, 'P', NO2, N ) IF( PNO .LE. RNO ) CYCLE ! Skip rxns w/ Pno=0 IF( RNO2 .LE. PNO2 ) THEN COEFF = PNO - RNO ! Rxns w/ Lno2=0 ELSEIF( RNO2 - PNO2 .LT. PNO - RNO ) THEN COEFF = ( PNO - RNO ) - ( RNO2 - PNO2 ) ! Rxns w/ Lno2 < Pno ENDIF IF( COEFF .EQ. 0.0 ) CYCLE c..call routine to create output line & write it NPOS = 25 RPOS1 = NO2 RPOS2 = 0 PPOS1 = NO PPOS2 = NO2 CALL BLD_OUTLINE( 'RXRAT', 'P1', ' ', 0, COEFF, N, GRPNO, & NPOS, LINOUT, LRXN1, RPOS1, RPOS2, PPOS1, PPOS2 ) LRXN1 = .FALSE. E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) ENDDO SPOUT = ADJUSTL( GC_SPC( NO ) ) E1 = LEN_TRIM( SPOUT ) WRITE( IOUT, '( 3A )' ) ' P1 = YC0( ', SPOUT( 1 : E1 ), & ' ) + P1 * DTC' cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c L1 computation ( Loss of NO ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C L1 includes the following net NO loss terms: c a) loss from reactions in which NO2 is not produced c b) in reactions in which NO2 is produced, the amount of NO lost c in excess of the amount of NO2 formed c c Hence, c c aNO {+ bNO2} {+ X} = cNO + dNO2 c if a le c ==> Lno = 0, so L1 coeff =0 c if a gt c ==> Lno > 0, so c if d le b ==> Pno2 = 0 so L1 coeff = (a-c) c if d gt b ==> Pno2 > 0, so c if a-c le d-b ==> Lno < Pno2, so L1 coeff = 0 c if a-c gt d-b ==> Lno > Pno2, so L1 coeff = (a-c)-(d-b) c cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc WRITE( IOUT, 92020 ) LRXN1 = .TRUE. DO N = 1, NRXNS c..Determine the rxn to include & get the coefficient for the loss term COEFF = 0.0 CALL SUM_COEFF( RNO, 'R', NO, N ) CALL SUM_COEFF( RNO2, 'R', NO2, N ) CALL SUM_COEFF( PNO2, 'P', NO2, N ) CALL SUM_COEFF( PNO, 'P', NO, N ) IF( RNO .LE. PNO ) CYCLE ! Skip rxns w/ Lno=0 IF( PNO2 .LE. RNO2 ) COEFF = RNO - PNO ! Rxns w/ Lno>0 & Pno2=0 IF( PNO2 .GT. RNO2 .AND. & RNO - PNO .GT. PNO2 - RNO2 ) & COEFF = RNO - PNO - ( PNO2 - RNO2 ) ! Rxns w/ Lno>0 & Lno>Pno2 IF( COEFF .EQ. 0.0 ) CYCLE c..call routine to create output line & write it NPOS = 20 RPOS1 = NO RPOS2 = 0 PPOS1 = NO PPOS2 = NO2 CALL BLD_OUTLINE( 'LFREQ', 'L1', 'NO', NO, COEFF, N, GRPNO, & NPOS, LINOUT, LRXN1, RPOS1, RPOS2, PPOS1, PPOS2 ) LRXN1 = .FALSE. E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) ENDDO LINOUT = ' L1 = 1.0 + L1 * DTC' E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c R2_1 computation ( Production of NO2 from reactions of NO ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C R2_1 includes NO2 production from the following reeactions: c a) those in which NO2 is produced from NO (include only c equivalent amounts of loss and production) c b) EXCEPTION: do not include NO+O3=NO2 c c Hence, c c aNO {bNO2} {+ X} = cNO + dNO2 c if d le b ==> Pno2 = 0, so R2_1 coeff = 0 c if d gt b ==> Pno2 > 0 c if a le c ==> Lno = 0, so R2_1 coeff = 0 c if c gt a ==> Lno > 0, so c if d-b > a-c ==> Pno2 > Lno, so R2_1 coeff = a-c c if d-b = a-c ==> Pno2 = Lno, so R2_1 coeff = a-c c if d-b < a-c ==> Pno2 < Lno, so R2_1 coeff = d-b c cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c..Write the section header WRITE( IOUT, 92020 ) WRITE( IOUT, 92000 ) CLINE WRITE( IOUT, 94020 ) WRITE( IOUT, 92000 ) CLINE LRXN1 = .TRUE. DO N = 1, NRXNS c..Determine the rxn to include & get the coefficient for the loss term COEFF = 0.0 CALL SUM_COEFF( RNO, 'R', NO, N ) CALL SUM_COEFF( RNO2, 'R', NO2, N ) CALL SUM_COEFF( PNO, 'P', NO, N ) CALL SUM_COEFF( PNO2, 'P', NO2, N ) IF( PNO2 .LE. RNO2 ) CYCLE ! Skip rxns with Pno2=0 c..do not include NO+O3=NO2 reaction IF( ( IRR( N, 1 ) .EQ. NO .AND. IRR( N, 2 ) .EQ. O3 ) .OR. & ( IRR( N, 1 ) .EQ. O3 .AND. IRR( N, 2 ) .EQ. NO ) .AND. & IRR( N, 4 ) .EQ. NO2 ) CYCLE IF( RNO .LE. PNO ) CYCLE ! Skip rxns with Lno=0 IF( PNO2 - RNO2 .GE. RNO - PNO ) THEN COEFF = RNO - PNO ! for Pno2>=Lno ELSE COEFF = PNO2 - RNO2 ! for Pno2 Pno2=o, so P2 coeff = 0 c if d gt b ==> Pno2 > 0, so c if a le c ==> Lno = 0, so P2 coeff = d-b c if a gt c ==> Lno > 0, so c if d-b > a-c ==> Pno2 > Lno, so P2 coeff = (d-b)-(a-c) c if d-b = a-c ==> Pno2 = Lno, so P2 coeff = 0 c if d-b < a-c ==> Pno2 < Lno, so P2 coeff = 0 c cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc WRITE( IOUT, 92020 ) LRXN1 = .TRUE. DO N = 1, NRXNS c..Determine the reaction to include & get the coefficient for the prod term COEFF = 0.0 CALL SUM_COEFF( RNO, 'R', NO, N ) CALL SUM_COEFF( RNO2, 'R', NO2, N ) CALL SUM_COEFF( PNO, 'P', NO, N ) CALL SUM_COEFF( PNO2, 'P', NO2, N ) c ! do not include NO+O3=NO2 reaction c IF( ( IRR( N, 1 ) .EQ. NO .AND. IRR( N, 2 ) .EQ. O3 ) .OR. c & ( IRR( N, 2 ) .EQ. NO .AND. IRR( N, 1 ) .EQ. O3 ) ) CYCLE IF( PNO2 .LE. RNO2 ) CYCLE ! Skip rxns with Pno2=0 IF( RNO .LE. PNO ) ! Rxns w/ Pno2>0 & Lno=0 & COEFF = PNO2 - RNO2 IF( RNO - PNO .GT. 0.0 .AND. ! Rxns w/ Pno2>0 & Lno>0 & & PNO2 - RNO2 .GT. RNO - PNO ) ! Pno2>Lno & COEFF = ( PNO2 - RNO2 ) - ( RNO - PNO ) IF( COEFF .EQ. 0.0 ) CYCLE c..call routine to create output line & write it NPOS = 25 RPOS1 = NO RPOS2 = NO2 PPOS1 = NO2 PPOS2 = NO CALL BLD_OUTLINE( 'RXRAT', 'P2', ' ', 0, COEFF, N, GRPNO, & NPOS, LINOUT, LRXN1, RPOS1, RPOS2, PPOS1, PPOS2 ) LRXN1 = .FALSE. E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) ENDDO SPOUT = ADJUSTL( GC_SPC( NO2 ) ) E1 = LEN_TRIM( SPOUT ) WRITE( IOUT, '( 3A )' ) ' P2 = YC0( ', SPOUT( 1 : E1 ), & ' ) + P2 * DTC' cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c L2 computation ( Loss of NO2 ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C L2 includes the following NO2 loss terms: c a) for reactions in which NO is not produced, the amount of NO2 lost c b) for reactions in which NO2 is lost and NO is produced, c the amount of NO2 lost in excess of the amount of NO produced c c Hence, c c {aNO +} bNO2 {+ X} = cNO + dNO2 c if b le d ==> Lno2 = 0, so L2 coeff =0 c if b gt d ==> Lno2 > 0, so c if c le a ==> Pno = 0 so L2 coeff = (a-c) c if c gt a ==> Pno > 0, so c if b-d le c-a ==> Lno2 < Pno, so L2 coeff = 0 c if b-d gt c-a ==> Lno2 > Pno, so L2 coeff = (b-d)-(c-a) c cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc WRITE( IOUT, 92020 ) LRXN1 = .TRUE. DO N = 1, NRXNS c..Determine the rxn to include & get the coefficient for the loss term COEFF = 0.0 CALL SUM_COEFF( RNO, 'R', NO, N ) CALL SUM_COEFF( RNO2, 'R', NO2, N ) CALL SUM_COEFF( PNO, 'P', NO, N ) CALL SUM_COEFF( PNO2, 'P', NO2, N ) IF( RNO2 .LE. PNO2 ) CYCLE ! Skip rxns w/ Lno2=0 IF( RNO .GE. PNO ) COEFF = RNO2 - PNO2 ! Rxns w/ Lno2>0 & Pno=0 IF( RNO .LT. PNO .AND. ! Rxns w/ Lno2>0 & Pno>0 & RNO2 - PNO2 .GT. PNO - RNO ) ! & Lno2>Pno & COEFF = (RNO2 -PNO2 ) - ( PNO - RNO ) IF( COEFF .EQ. 0.0 ) CYCLE c..call routine to create output line & write it NPOS = 20 RPOS1 = NO2 RPOS2 = NO PPOS1 = NO PPOS2 = NO2 CALL BLD_OUTLINE( 'LFREQ', 'L2 ', 'NO2', NO2, COEFF, N, GRPNO, & NPOS, LINOUT, LRXN1, RPOS1, RPOS2, PPOS1, PPOS2 ) LRXN1 = .FALSE. E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) ENDDO LINOUT = ' L2 = 1.0 + L2 * DTC' E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c P3 computation ( Production of O3 ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c P3 includes O3 production terms from the following reactions: c a) those in which O3 is produced EXCEPT O3P=O3 c cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c..Write the section header WRITE( IOUT, 92020 ) WRITE( IOUT, 92000 ) CLINE WRITE( IOUT, 94040 ) WRITE( IOUT, 92000 ) CLINE LRXN1 = .TRUE. DO N = 1, NRXNS c..Determine the reaction to include & get the coefficient for the prod term COEFF = 0.0 CALL SUM_COEFF( RO3, 'R', O3, N ) CALL SUM_COEFF( PO3, 'P', O3, N ) IF( RO3 .GE. PO3 ) CYCLE ! Skip rxns with Po3=0 IF( IRR( N, 1 ) .EQ. O3P .AND. & IRR( N, 4 ) .EQ. O3 ) CYCLE ! Skip O3P=O3 rxn COEFF = PO3 c..call routine to create output line & write it NPOS = 25 RPOS1 = 0 RPOS2 = 0 PPOS1 = O3 PPOS2 = 0 CALL BLD_OUTLINE( 'RXRAT', 'P3 ', ' ', 0, COEFF, N, GRPNO, & NPOS, LINOUT, LRXN1, RPOS1, RPOS2, PPOS1, PPOS2 ) LRXN1 = .FALSE. E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) ENDDO SPOUT = ADJUSTL( GC_SPC( O3 ) ) E1 = LEN_TRIM( SPOUT ) IF( LRXN1 ) THEN WRITE( IOUT, '( 3A )' ) ' P3 = YC0( ', SPOUT( 1 : E1 ), & ' ) ' ELSE WRITE( IOUT, '( 3A )' ) ' P3 = YC0( ', SPOUT( 1 : E1 ), & ' ) + P3 * DTC' ENDIF cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c L3 computation ( Loss of O3 ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c L3 includes O3 loss terms from the following reactions: c a) those in which O3 is lost EXCEPT NO+O3=NO2 cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc WRITE( IOUT, 92020 ) LRXN1 = .TRUE. DO N = 1, NRXNS c..Determine the rxn to include & get the coefficient for the loss term COEFF = 0.0 CALL SUM_COEFF( RO3, 'R', O3, N ) CALL SUM_COEFF( PO3, 'P', O3, N ) IF( PO3 .GE. RO3 ) CYCLE ! Skip rxns w/ Lo3=0 ! do not include NO+O3=NO2 reaction IF( ( IRR( N, 1 ) .EQ. NO .AND. IRR( N, 2 ) .EQ. O3 ) .OR. & ( IRR( N, 1 ) .EQ. O3 .AND. IRR( N, 2 ) .EQ. NO ) .AND. & IRR( N, 4 ) .EQ. NO2 ) CYCLE COEFF = RO3 c..call routine to create output line & write it NPOS = 20 RPOS1 = O3 RPOS2 = 0 PPOS1 = 0 PPOS2 = 0 CALL BLD_OUTLINE( 'LFREQ', 'L3 ', 'O3', O3, COEFF, N, GRPNO, & NPOS, LINOUT, LRXN1, RPOS1, RPOS2, PPOS1, PPOS2 ) LRXN1 = .FALSE. E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) ENDDO LINOUT = ' L3 = 1.0 + L3 * DTC' E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c P12 computation ( Production of O3P ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c P12 includes O3P production terms from the following reactions: c a) those in which O3P is produced EXCEPT NO2+hv=O3P c b) special conditions: eliminate O1D=O3P and change c O3=O1D to O3=O3P with stoichiometric coeff=O3P_S c ( done in BLD_OUTLINE) c cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c..Write the section header WRITE( IOUT, 92020 ) WRITE( IOUT, 92000 ) CLINE WRITE( IOUT, 94060 ) WRITE( IOUT, 92000 ) CLINE LRXN1 = .TRUE. DO N = 1, NRXNS c..Determine the reaction to include & get the coefficient for the prod term COEFF = 0.0 CALL SUM_COEFF( PO3P, 'P', O3P, N ) CALL SUM_COEFF( RO1D, 'R', O1D, N ) CALL SUM_COEFF( PO1D, 'P', O1D, N ) IF( PO3P .LE. 0.0 .AND. PO1D .LE. 0.0 ) CYCLE ! Skip rxns with Po3p=0 ! & Po1d=0 IF( IRR( N, 1 ) .EQ. O1D .AND. & IRR( N, 4 ) .EQ. O3P ) CYCLE ! Skip O1D=O3P ! Skip NO2+hv=O3P rxn IF( IRR( N, 1 ) .EQ. NO2 .AND. ( IRR( N, 4 ) .EQ. O3P .OR. & IRR( N, 5 ) .EQ. O3P ) ) CYCLE COEFF = PO3P c..call routine to create output line & write it NPOS = 25 RPOS1 = 0 RPOS2 = 0 PPOS1 = O3P PPOS2 = 0 CALL BLD_OUTLINE( 'RXRAT', 'P12 ', ' ', 0, COEFF, N, GRPNO, & NPOS, LINOUT, LRXN1, RPOS1, RPOS2, PPOS1, PPOS2 ) LRXN1 = .FALSE. E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) ENDDO SPOUT = ADJUSTL( GC_SPC( O3P ) ) E1 = LEN_TRIM( SPOUT ) WRITE( IOUT, '( 3A )' ) ' P12 = YC0( ', SPOUT( 1 : E1 ), & ' ) + P12 * DTC' cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c L12 computation ( Loss of O3P ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c L12 includes O3P loss terms from the following reactions: c a) those in which O3P reacts cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c..Write the section header WRITE( IOUT, 92020 ) LRXN1 = .TRUE. DO N = 1, NRXNS c..Determine the reaction to include & get the coefficient for the prod term COEFF = 0.0 CALL SUM_COEFF( RO3P, 'R', O3P, N ) CALL SUM_COEFF( PO3P, 'P', O3P, N ) IF( PO3P .GE. RO3P ) CYCLE ! Skip rxns with Lo3p=0 COEFF = RO3P - PO3P c..call routine to create output line & write it NPOS = 25 RPOS1 = O3P RPOS2 = 0 PPOS1 = O3P PPOS2 = 0 CALL BLD_OUTLINE( 'LFREQ', 'L12 ', 'O3P', O3P, COEFF, N, GRPNO, & NPOS, LINOUT, LRXN1, RPOS1, RPOS2, PPOS1, PPOS2 ) LRXN1 = .FALSE. E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) ENDDO WRITE( IOUT, '( 3A )' ) ' L12 = 1.0 + L12 * DTC' cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Continue reading template section cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 200 CONTINUE READ( IIN, 92000, END = 300 ) LINEIN IF( LINEIN( 1 : 2 ) .EQ. 'S1' ) GO TO 300 GO TO 200 300 CONTINUE c..Find rection numbers for NO2->NO+O, O3P->O3, & NO+O3->NO2 DO N = 1, NRXNS IF( NREACT( N ) .EQ. 1 .AND. IRR( N, 1 ) .EQ. NO2 ) J1 = N IF( IRR( N, 1 ) .EQ. O3P .AND. IRR( N, 4 ) .EQ. O3 ) & J2 = N IF( ( IRR( N, 1 ) .EQ. NO .AND. IRR( N, 2 ) .EQ. O3 ) .OR. & ( IRR( N, 1 ) .EQ. O3 .AND. IRR( N, 2 ) .EQ. NO ) ) & K1_3 = N ENDDO LFIRST = .TRUE. 400 CONTINUE READ( IIN, 92000, END = 2000 ) LINEIN IF( LINEIN( 1 : 2 ) .EQ. 'R3' ) THEN IF( LFIRST ) WRITE( IOUT, 95000 ) J1, J2, K1_3 LFIRST = .FALSE. GO TO 400 ELSEIF( LINEIN( 1 : 2 ) .EQ. 'S2' ) THEN GO TO 2000 ELSE WRITE( IOUT, 92000 ) LINEIN( 1 : LEN_TRIM( LINEIN ) ) GO TO 400 ENDIF 2000 CONTINUE cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Finish solution section code cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c..Find O3->O1D Rxn no. DO N = 1, NRXNS IF( IRR( N, 1 ) .EQ. O3 .AND. IRR( N, 4 ) .EQ. O1D ) THEN KO3_O1D = N EXIT ENDIF ENDDO WRITE( IOUT, 96000 ) GC_SPC( NO )( 1 : LEN_TRIM( GC_SPC( NO ) ) ) WRITE( IOUT, 96020 ) GC_SPC( NO2 )( 1 : LEN_TRIM( GC_SPC( NO2 ) ) ) WRITE( IOUT, 96040 ) GC_SPC( NO2 )( 1 : LEN_TRIM( GC_SPC( NO2 ) ) ) WRITE( IOUT, 96060 ) WRITE( IOUT, 96080 ) GC_SPC( O3 )( 1 : LEN_TRIM( GC_SPC( O3 ) ) ), & GC_SPC( NO )( 1 : LEN_TRIM( GC_SPC( NO ) ) ) WRITE( IOUT, 96100 ) GC_SPC( O3P )( 1 : LEN_TRIM( GC_SPC( O3P ) ) ) WRITE( RNUM, '(I3)' ) KO3_O1D RNUM = ADJUSTL( RNUM ) WRITE( IOUT, 96120 ) GC_SPC( O1D )( 1 : LEN_TRIM( GC_SPC( O1D ) ) ), & RNUM( 1 : LEN_TRIM( RNUM ) ), & GC_SPC( O3 )( 1 : LEN_TRIM( GC_SPC( O3 ) ) ) WRITE( IOUT, 96140 ) CLOSE( IIN ) CLOSE( IOUT ) RETURN 9000 MSG = 'ERROR: Could not open ' // FNAME( 1 : LEN_TRIM( FNAME ) ) CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT2 ) 92000 FORMAT( A ) 92020 FORMAT( / ) 93000 FORMAT( 'C PRECONDITIONS: For the ', A, ' family of mechanisms' ) 93020 FORMAT( 'C REVISION HISTORY: Created by EBI solver program, ', A ) 93100 FORMAT( 'c O1D Section' / & 'c 1) sum of the rate constants for all O1D loss reactions' / & 'c 2) get fractional yield of O3P from O1D loss' ) 94000 FORMAT( & 'c NO Section' / & 'c R1_2 = production of NO from NO2 ( rates of form k[NO2][x] )' / & 'c except NO2+NO3=NO+NO2 (it is treated as if it', & ' were NO3=NO )' / & 'c P1 = remaining NO production terms' / & 'c L1 = loss of NO (except rxns producing NO2 - they', & ' are in R2_1)' ) 94020 FORMAT( & 'c NO2 Section' / & 'c R2_1 = production of NO2 from NO ( rates of form k[NO][x] )'/ & 'c a) NO+O3=NO2 not included'/ & 'c b) NO+NO3=2NO2 ( 1/2 of NO2 formation rate included )' / & 'c c) NO3+NO2=NO+NO2 is not included for NO2' / & 'c P2 = remaining NO2 production terms ' / & 'c a) NO+O3=NO2 not included' / & 'c b) NO+NO3=2NO2 (1/2 of NO2 formation rate included )' / & 'c L2 = loss of NO2 (except rxns producing NO2 - they are in R1_2)' ) 94040 FORMAT( & 'c O3 Section' / & 'c P3 = production of O3 except O+O2=O3' / & 'c L3 = loss terms for O3 except NO+O3=NO2' ) 94060 FORMAT( & 'c O3P Section ' / & 'c P12 = production of O3P except NO2+hv=O3P (J1)' / & 'c L12 = loss terms' ) 95000 FORMAT( &' RK1 = RKI( ', I3, ' ) * DTC ! J1 (NO2+hv=NO+O3P)' / &' RK2 = RKI( ', I3, ' ) * DTC ! J2 (O3P+O2=O3)' / &' RK3 = RKI( ', I3, ' ) * DTC ! k1_3 (NO+O3=NO2)' ) 96000 FORMAT( ' YCP( ', A, ' ) = MAX( 0.0, ( P1 + XX ) * L1_INV )' / ) 96020 FORMAT( ' YCP( ', A, ' ) = MAX( 0.0, ( P2 - XX ) * L2_INV )' / ) 96040 FORMAT( ' S1 = P12 + RK1 * YCP( ', A, ' )' / ) 96060 FORMAT( ' S2 = T4 * S1' / ) 96080 FORMAT( ' YCP( ', A, ' ) = ( P3 + S2 ) / ( L3 + RK3 * YCP( ', & A, ' ) )' / ) 96100 FORMAT( ' YCP( ', A, ' ) = S1 * L12_INV' / ) 96120 FORMAT( ' YCP( ', A, ' ) = RKI( ', A, ' ) * YCP( ', A, & ' ) / O1D_S' / ) 96140 FORMAT( ' RETURN' // ' END' // ) END ================================================ FILE: UTIL/create_ebi/src/wr_init.F ================================================ SUBROUTINE WR_INIT C********************************************************************** C C FUNCTION: Create source code for the hrinit subroutine in EBI C C PRECONDITIONS: None C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by Jerry Gipson, February, 2004 C C********************************************************************** USE ENV_VARS USE GLOBAL_DATA USE RXNS_DATA IMPLICIT NONE C..INCLUDES: C..ARGUMENTS: None C..PARAMETERS: C..EXTERNAL FUNCTIONS: INTEGER JUNIT ! gets unit no. ! INTEGER NAME_INDEX ! find position of string in list C..SAVED LOCAL VARIABLES: None C..SCRATCH LOCAL VARIABLES: CHARACTER( 16 ) :: PNAME = 'WR_INIT' ! Program name CHARACTER( 256 ) :: MSG ! Message text CHARACTER( 100 ) :: LINEIN ! Input line CHARACTER( 16 ) :: SPOUT ! Ouput species CHARACTER( 16 ) :: SPEC CHARACTER( 256 ) :: FNAME ! Name of file to open CHARACTER( 72 ) :: CLINE ! Line of c's CHARACTER( 7 ) :: LOW_TOL = '1.0D+00' ! Low tolerance CHARACTER( 7 ) :: STD_TOL = '5.0D-04' ! Standard tolerance CHARACTER( 7 ) :: HII_TOL = '1.0D-05' ! High or tight tolerance INTEGER :: EPOS ! end pos of string INTEGER :: IND ! array index INTEGER :: IIN ! Unit no. of input file INTEGER :: IOUT ! Unit no. of output file INTEGER :: N, S ! Loop indices INTEGER :: NSPEC ! LOGICAL :: LFLAG LOGICAL :: LOUT1 = .FALSE. ! Flag for group 1 output processed LOGICAL :: LOUT2 = .FALSE. ! Flag for group 2 output processed LOGICAL :: LOUT3 = .FALSE. ! Flag for group 3 output processed LOGICAL :: LOUT4 = .FALSE. ! Flag for group 4 output processed LOGICAL :: LOUT5 = .FALSE. ! Flag for group 5 output processed C********************************************************************** DO N = 1, 72 CLINE( N : N ) = 'c' END DO ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Open ouput file and code template ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc EPOS = LEN_TRIM( OUTPATH ) FNAME = OUTPATH( 1 : EPOS ) // '/hrinit.F' IOUT = JUNIT() OPEN( UNIT = IOUT, FILE = FNAME, ERR = 9000 ) IIN = JUNIT() EPOS = LEN_TRIM( TMPLPATH ) FNAME = TMPLPATH( 1 : EPOS ) // '/hrinit.F' OPEN( UNIT = IIN, FILE = FNAME, ERR = 9000 ) IF( LWR_COPY ) CALL WR_COPYRT( IOUT ) IF( LWR_CVS_HDR ) CALL WR_CVSHDR( IOUT ) ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Read, modify, and write code from template ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 100 CONTINUE READ( IIN, 92000, END = 1000 ) LINEIN IF( LINEIN( 1 : 1 ) .NE. 'R' ) THEN WRITE( IOUT, 92000 ) LINEIN( 1 : LEN_TRIM( LINEIN ) ) ELSE IF( LINEIN( 2 : 2 ) .EQ. '1' .AND. .NOT. LOUT1 ) THEN WRITE( IOUT, 93000 ) TRIM( MECHNAME ) LOUT1 = .TRUE. ELSEIF( LINEIN( 2 : 2 ) .EQ. '2' .AND. .NOT. LOUT2 ) THEN WRITE( IOUT, 93020 ) CR_DATE( 1 : LEN_TRIM( CR_DATE ) ) LOUT2 = .TRUE. ELSEIF( LINEIN( 2 : 2 ) .EQ. '3' .AND. .NOT. LOUT3 ) THEN WRITE( IOUT, 93025 ) NSPECIAL LOUT3 = .TRUE. ELSEIF( LINEIN( 2 : 2 ) .EQ. '4' .AND. .NOT. LOUT4 ) THEN IF( LPAR_NEG ) WRITE( IOUT, 93040 ) IF( N_SS_SPC .GT. 0 ) WRITE( IOUT, 93045 ) LOUT4 = .TRUE. ELSEIF( LINEIN( 2 : 2 ) .EQ. '5' .AND. .NOT. LOUT5 ) THEN IF( LDEGRADE_SUBS ) WRITE( IOUT, 93046 ) LINEIN( 3 : LEN_TRIM( LINEIN ) ) LOUT5 = .FALSE. END IF END IF GO TO 100 1000 CONTINUE CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC C Write first section for one mech CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC ! WRITE( IOUT, 92000 ) CLINE ! WRITE( IOUT, 93100 ) ! WRITE( IOUT, 92000 ) CLINE c..create indices for all mechanism species ! DO N = 1, N_SPECIES ! SPOUT = ' ' ! EPOS = LEN_TRIM( SPECIES( N ) ) ! SPOUT( 1 : EPOS ) = SPECIES( N )( 1 : EPOS ) ! WRITE( IOUT, 93120 ) SPOUT( 1 : CL ), N ! END DO IF( N_SS_SPC .EQ. 0 ) THEN ! no ss species in mech c..form ebi species array (all species except those in groups 1-4) WRITE( IOUT, 93140 ) N_GC_EBI IND = 0 DO N = 1, N_SPECIES IF( L_GC_EBI( N ) ) THEN IND = IND + 1 WRITE( IOUT, 93160 ) IND, SPECIES( N ) & ( 1 : LEN_TRIM( SPECIES( N ) ) ) END IF END DO ELSE ! some species in mech are in ss c..form ebi species array ( no SS species, no group species ) WRITE( IOUT, 93140 ) ( N_GC_EBI - N_SS_SPC ) IND = 0 DO N = 1, N_SPECIES IF( NAME_INDEX( SPECIES( N ), N_SS_SPC, SS_SPC) .EQ. 0 .AND. & L_GC_EBI( N ) ) THEN IND = IND + 1 WRITE( IOUT, 93160 ) IND, SPECIES( N ) & ( 1 : LEN_TRIM( SPECIES( N ) ) ) END IF END DO c..form ss species array WRITE( IOUT, 93180 ) IND = 0 DO N = 1, N_SS_SPC IND = IND + 1 WRITE( IOUT, 93200 ) IND, & SS_SPC( N )( 1 : LEN_TRIM( SS_SPC( N ) ) ) END DO c..form active species array ( all species except SS species ) WRITE( IOUT, 93220 ) N_SPECIES - N_SS_SPC IND = 0 DO N = 1, N_SPECIES IF( NAME_INDEX( SPECIES( N ), N_SS_SPC, SS_SPC ) .EQ. 0 ) THEN IND = IND + 1 WRITE( IOUT, 93240 ) IND, & SPECIES( N )( 1 : LEN_TRIM( SPECIES( N ) ) ) END IF END DO END IF ! N_SS_SPC > 0 CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC C Write tolerance section CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC WRITE( IOUT, 92020 ) WRITE( IOUT, 92000 ) CLINE WRITE( IOUT, 95000 ) WRITE( IOUT, 92000 ) CLINE DO N = 1, N_SPECIES IF( L_LOW_TOL_SPC( N ) ) THEN WRITE( IOUT, 95020 ) SPECIES( N )( 1 : CL ), LOW_TOL ELSEIF( L_HII_TOL_SPC( N ) ) THEN WRITE( IOUT, 95020 ) SPECIES( N )( 1 : CL ), HII_TOL ELSE WRITE( IOUT, 95020 ) SPECIES( N )( 1 : CL ), STD_TOL END IF END DO WRITE( IOUT, 96000 ) CLOSE( IIN ) CLOSE( IOUT ) NOUTFLS = NOUTFLS + 1 OUTFLNAM( NOUTFLS ) = 'hrinit.F' RETURN 9000 MSG = 'ERROR: Could not open ' // FNAME( 1 : LEN_TRIM( FNAME ) ) WRITE(LOGDEV,'(a)')TRIM( PNAME ) // ': ' // TRIM( MSG ) STOP 92000 FORMAT( A ) 92020 FORMAT( / ) 93000 FORMAT( 'C PRECONDITIONS: For the ', A, ' mechanism' ) 93020 FORMAT( 'C REVISION HISTORY: Created by EBI solver program, ', A ) 93025 FORMAT( 6X, 'N_SPCL_RKS = ', I3 ) 93040 FORMAT( 5X, '& PNEG( N_SPEC),' ) 93045 FORMAT( 6X, 'ALLOCATE( RKI_SAV( MAX_CELLS_EBI, NRXNS ) )' ) 93100 FORMAT( 'c Set species indices and pointers' ) 93120 FORMAT( 6X, A, ' = ', I3 ) 93139 FORMAT( /'c..Allocate and define ebi species' / & 6X, 'N_EBISP = ', I3 / & 6X, 'ALLOCATE( EBISP( N_EBISP ) ) ' / ) 93140 FORMAT( /'c..Allocate and define ebi species' / & /6X, 'N_EBISP = ', I3 / & 6X, 'ALLOCATE( EBISP( N_EBISP ), STAT = IOS ) ' / & 6X, 'IF ( IOS .NE. 0 ) THEN' / & 6X, " MSG = 'Error allocating EBISP' " / & 6X, ' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 )' / & 6X, 'END IF' / ) 93160 FORMAT( 6X, 'EBISP( ', I3, ' ) = ', A ) 93180 FORMAT( /'c..Allocate and define steady-state species' / & 6X, 'ALLOCATE( SSASP( N_SS_SPC ) ) ' / ) 93200 FORMAT( 6X, 'SSASP( ', I3, ' ) = ', A ) 93220 FORMAT( /'c..Allocate and define active mechanism species' / & 6X, 'N_ACTSP = ', I3 / & 6X, 'ALLOCATE( ACTSP( N_ACTSP ) ) ' / ) 93240 FORMAT( 6X, 'ACTSP( ', I3, ' ) = ', A ) 94000 FORMAT( 'c Set species indices for gas-phase only version' ) 94020 FORMAT( 'c Set species indices for gas-phase plus aerosol only version' ) 94040 FORMAT( 'c Set species indices for gas-phase plus AQ chemistry version' ) 94060 FORMAT( 'c Set species indices for gas-phase plus ', & ' aerosol plus AQ chem version' ) 94100 FORMAT( 6X, 'IF( .NOT. L_AQ_VRSN .AND. .NOT. L_AE_VRSN ) THEN'/ ) 94120 FORMAT( 6X, 'IF( L_AE_VRSN .AND. .NOT. L_AQ_VRSN ) THEN' / ) 94140 FORMAT( 6X, 'IF( .NOT. L_AE_VRSN .AND. L_AQ_VRSN ) THEN' / ) 94160 FORMAT( 6X, 'IF( L_AE_VRSN .AND. L_AQ_VRSN ) THEN' / ) 94180 FORMAT( 9X, A, ' = ', I3 ) 94200 FORMAT( /9X, 'N_EBISP = ', I3 / & 9X, 'ALLOCATE( EBISP( N_EBISP ), STAT = IOS ) ' / & 9X, 'IF ( IOS .NE. 0 ) THEN' / & 9X, " MSG = 'Error allocating EBISP' " / & 9X, ' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 )' / & 9x, 'END IF' ) 94220 FORMAT( 9X, 'EBISP( ', I3, ' ) = ', A ) 94240 FORMAT( /6X, 'END IF' ) 95000 FORMAT( 'c Set species tolerances' ) 95020 FORMAT( 6X, 'RTOL( ', A, ' ) = ', A ) 95040 FORMAT( /6X, 'IF( L_AE_VRSN ) THEN' / ) 93046 FORMAT( 2X, A ) 95060 FORMAT( /6X, 'IF( L_AQ_VRSN ) THEN' / ) 95080 FORMAT( 9X, 'RTOL( ', A, ' ) = ', A ) 96000 FORMAT( //6X, 'RETURN' // 6X, 'END' ) END ================================================ FILE: UTIL/create_ebi/src/wr_prodloss.F ================================================ SUBROUTINE WR_PRODLOSS C********************************************************************** C C FUNCTION: Create source code for the hrprodloss subroutine in EBI C C PRECONDITIONS: None C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by Jerry Gipson, March, 2004 C C********************************************************************** USE ENV_VARS USE GLOBAL_DATA !!USE M3UTILIO ! IOAPI parameters and declarations USE RXNS_DATA IMPLICIT NONE C..INCLUDES: C..ARGUMENTS: None C..PARAMETERS: INTEGER, PARAMETER :: GRPNO = 5 C..EXTERNAL FUNCTIONS: INTEGER JUNIT ! gets unit no. ! INTEGER NAME_INDEX ! find position of string in list C..SAVED LOCAL VARIABLES: None C..SCRATCH LOCAL VARIABLES: CHARACTER( 16 ) :: PNAME = 'WR_PRODLOSS'! Program name CHARACTER( 256 ) :: MSG ! Message text CHARACTER( 100 ) :: LINEIN ! Input line CHARACTER( 256 ) :: LINOUT CHARACTER( 16 ) :: SPOUT ! Ouput species CHARACTER( 16 ) :: SPEC CHARACTER( 40 ) :: VNAME CHARACTER( 256 ) :: FNAME ! Name of file to open CHARACTER( 72 ) :: CLINE ! Line of c's INTEGER :: E1, E2 ! end pos of string INTEGER :: IND ! array index INTEGER :: IIN ! Unit no. of input file INTEGER :: IOUT ! Unit no. of output file INTEGER :: N, S ! Loop indices INTEGER :: NPOS ! Reaction index INTEGER :: RPOS1 ! INTEGER :: RPOS2 ! INTEGER :: PPOS1 ! INTEGER :: PPOS2 ! LOGICAL :: LRXN1 REAL( 8 ) :: COEFF REAL( 8 ) :: RCOEF REAL( 8 ) :: YCOEF C********************************************************************** DO N = 1, 72 CLINE( N : N ) = 'c' END DO ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Open ouput file and code template ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc E1 = LEN_TRIM( OUTPATH ) FNAME = OUTPATH( 1 : E1 ) // '/hrprodloss.F' IOUT = JUNIT() OPEN( UNIT = IOUT, FILE = FNAME, ERR = 9000 ) IIN = JUNIT() E1 = LEN_TRIM( TMPLPATH ) FNAME = TMPLPATH( 1 : E1 ) // '/hrprodloss.F' OPEN( UNIT = IIN, FILE = FNAME, ERR = 9000 ) IF( LWR_COPY ) CALL WR_COPYRT( IOUT ) IF( LWR_CVS_HDR ) CALL WR_CVSHDR( IOUT ) ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Read, modify, and write first part of code from template ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 100 CONTINUE READ( IIN, 92000, END = 1000 ) LINEIN IF( LINEIN( 1 : 2 ) .EQ. 'R1' ) THEN WRITE( IOUT, 93000 ) TRIM( MECHNAME ) GO TO 100 ELSEIF( LINEIN( 1 : 2 ) .EQ. 'R2' ) THEN WRITE( IOUT, 93020 ) CR_DATE( 1 : LEN_TRIM( CR_DATE ) ) GO TO 100 ELSEIF( LINEIN( 1 : 2 ) .EQ. 'S1' ) THEN GO TO 1000 ELSE E1 = LEN_TRIM( LINEIN ) WRITE( IOUT, 92000 ) LINEIN( 1 : E1 ) GO TO 100 END IF 1000 CONTINUE ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Output prod loss terms for gas-phase EBI species ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc DO S = 1, N_SPECIES IF( .NOT. L_GC_EBI( S ) ) CYCLE ! Skip non-EBI species IF( .NOT. L_GC_ONLY_SPC( S ) ) CYCLE ! Skip non gas-only species IF( N_SS_SPC .GT. 0 ) THEN ! Skip SS species IF( NAME_INDEX( SPECIES( S ), N_SS_SPC, SS_SPC ) .NE. 0 ) CYCLE END IF WRITE( IOUT, 92000 ) SPEC = ADJUSTL( SPECIES( S ) ) VNAME = 'PROD( ' // SPEC( 1 : CL ) // ' )' c..production terms LRXN1 = .TRUE. DO N = 1, NRXNS CALL SUM_COEFF( RCOEF, 'R', S, N ) CALL SUM_COEFF( YCOEF, 'P', S, N ) IF( YCOEF .LE. RCOEF ) CYCLE COEFF = YCOEF - RCOEF NPOS = 30 RPOS1 = 0 RPOS2 = 0 PPOS1 = S PPOS2 = 0 CALL BLD_OUTLINE( 'RXRAT', VNAME, ' ', 0, COEFF, N, GRPNO, & NPOS, LINOUT, LRXN1, RPOS1, RPOS2, PPOS1, PPOS2 ) E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) LRXN1 = .FALSE. END DO IF( LRXN1 ) THEN E2 = LEN_TRIM( VNAME ) LINOUT = ' ' // VNAME( 1 : E2 ) // ' = 0.0D0' E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) END IF c..loss terms VNAME = 'LOSS( ' // SPEC( 1 : CL ) // ' )' LRXN1 = .TRUE. DO N = 1, NRXNS CALL SUM_COEFF( RCOEF, 'R', S, N ) CALL SUM_COEFF( YCOEF, 'P', S, N ) IF( RCOEF .LE. YCOEF ) CYCLE COEFF = RCOEF - YCOEF NPOS = 30 RPOS1 = S RPOS2 = 0 PPOS1 = S PPOS2 = 0 CALL BLD_OUTLINE( 'RXRAT', VNAME, ' ', 0, COEFF, N, GRPNO, & NPOS, LINOUT, LRXN1, RPOS1, RPOS2, PPOS1, PPOS2 ) E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) LRXN1 = .FALSE. END DO IF( LRXN1 ) THEN E2 = LEN_TRIM( VNAME ) LINOUT = ' ' // VNAME( 1 : E2 ) // ' = 0.0D0' E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) END IF END DO ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Production/loss terms for AE species ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF( N_AE_SPC .GT. 0 ) THEN LINOUT = ' IF( L_AE_VRSN ) THEN' E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) DO S = 1, N_AE_SPC IND = NAME_INDEX( AE_SPC( S ) , N_SPECIES, SPECIES ) WRITE( IOUT, 92000 ) SPEC = ADJUSTL( AE_SPC( S ) ) VNAME = ' PROD( ' // SPEC( 1 : CL ) // ' )' c..production terms LRXN1 = .TRUE. DO N = 1, NRXNS CALL SUM_COEFF( RCOEF, 'R', IND, N ) CALL SUM_COEFF( YCOEF, 'P', IND, N ) IF( YCOEF .LE. RCOEF ) CYCLE COEFF = YCOEF - RCOEF NPOS = 30 RPOS1 = 0 RPOS2 = 0 PPOS1 = IND PPOS2 = 0 CALL BLD_OUTLINE( 'RXRAT', VNAME, ' ', 0, COEFF, N, GRPNO, & NPOS, LINOUT, LRXN1, RPOS1, RPOS2, PPOS1, PPOS2 ) E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) LRXN1 = .FALSE. END DO IF( LRXN1 ) THEN E2 = LEN_TRIM( VNAME ) LINOUT = ' ' // VNAME( 1 : E2 ) // ' = 0.0D0' E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) END IF c..loss terms VNAME = ' LOSS( ' // SPEC( 1 : CL ) // ' )' LRXN1 = .TRUE. DO N = 1, NRXNS CALL SUM_COEFF( RCOEF, 'R', IND, N ) CALL SUM_COEFF( YCOEF, 'P', IND, N ) IF( RCOEF .LE. YCOEF ) CYCLE COEFF = RCOEF - YCOEF NPOS = 30 RPOS1 = IND RPOS2 = 0 PPOS1 = IND PPOS2 = 0 CALL BLD_OUTLINE( 'RXRAT', VNAME, ' ', 0, COEFF, N, GRPNO, & NPOS, LINOUT, LRXN1, RPOS1, RPOS2, PPOS1, PPOS2 ) E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) LRXN1 = .FALSE. END DO IF( LRXN1 ) THEN E2 = LEN_TRIM( VNAME ) LINOUT = ' ' // VNAME( 1 : E2 ) // ' = 0.0D0' E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) END IF END DO LINOUT = ' END IF' E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) END IF ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Production/loss terms for AQ species ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF( N_AQ_SPC .GT. 0 ) THEN LINOUT = ' IF( L_AQ_VRSN ) THEN' E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) DO S = 1, N_AQ_SPC IND = NAME_INDEX( AQ_SPC( S ) , N_SPECIES, SPECIES ) WRITE( IOUT, 92000 ) SPEC = ADJUSTL( AQ_SPC( S ) ) VNAME = ' PROD( ' // SPEC( 1 : CL ) // ' )' c..production terms LRXN1 = .TRUE. DO N = 1, NRXNS CALL SUM_COEFF( RCOEF, 'R', IND, N ) CALL SUM_COEFF( YCOEF, 'P', IND, N ) IF( YCOEF .LE. RCOEF ) CYCLE COEFF = YCOEF - RCOEF NPOS = 30 RPOS1 = 0 RPOS2 = 0 PPOS1 = IND PPOS2 = 0 CALL BLD_OUTLINE( 'RXRAT', VNAME, ' ', 0, COEFF, N, GRPNO, & NPOS, LINOUT, LRXN1, RPOS1, RPOS2, PPOS1, PPOS2 ) E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) LRXN1 = .FALSE. END DO IF( LRXN1 ) THEN E2 = LEN_TRIM( VNAME ) LINOUT = ' ' // VNAME( 1 : E2 ) // ' = 0.0D0' E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) END IF c..loss terms VNAME = ' LOSS( ' // SPEC( 1 : CL ) // ' )' LRXN1 = .TRUE. DO N = 1, NRXNS CALL SUM_COEFF( RCOEF, 'R', IND, N ) CALL SUM_COEFF( YCOEF, 'P', IND, N ) IF( RCOEF .LE. YCOEF ) CYCLE COEFF = RCOEF - YCOEF NPOS = 30 RPOS1 = IND RPOS2 = 0 PPOS1 = IND PPOS2 = 0 CALL BLD_OUTLINE( 'RXRAT', VNAME, ' ', 0, COEFF, N, GRPNO, & NPOS, LINOUT, LRXN1, RPOS1, RPOS2, PPOS1, PPOS2 ) E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) LRXN1 = .FALSE. END DO IF( LRXN1 ) THEN E2 = LEN_TRIM( VNAME ) LINOUT = ' ' // VNAME( 1 : E2 ) // ' = 0.0D0' E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) END IF END DO LINOUT = ' END IF' E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) END IF ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Production terms for negative stoichiometry ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF( LPAR_NEG ) THEN WRITE( IOUT, 92000 ) S = NAME_INDEX( 'PAR', N_SPECIES, SPECIES ) VNAME = 'PNEG( PAR )' c..production terms LRXN1 = .TRUE. DO N = 1, NRXNS CALL SUM_COEFF( RCOEF, 'R', S, N ) CALL SUM_COEFF( YCOEF, 'P', S, N ) IF( YCOEF .GE. 0.0 ) CYCLE IF( RCOEF - ABS( YCOEF ) .GE. 0.0D0 ) CYCLE COEFF = ABS( YCOEF ) NPOS = 30 RPOS1 = 0 RPOS2 = 0 PPOS1 = S PPOS2 = 0 CALL BLD_OUTLINE( 'RXRAT', VNAME, ' ', 0, COEFF, N, GRPNO, & NPOS, LINOUT, LRXN1, RPOS1, RPOS2, PPOS1, PPOS2 ) E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) LRXN1 = .FALSE. END DO IF( LRXN1 ) THEN E2 = LEN_TRIM( VNAME ) LINOUT = ' ' // VNAME( 1 : E2 ) // ' = 0.0D0' E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) END IF END IF WRITE( IOUT, 97000 ) CLOSE( IIN ) CLOSE( IOUT ) NOUTFLS = NOUTFLS + 1 OUTFLNAM( NOUTFLS ) = 'hrprodloss.F' RETURN 9000 MSG = 'ERROR: Could not open ' // FNAME( 1 : LEN_TRIM( FNAME ) ) WRITE(LOGDEV,'(a)')TRIM( PNAME ) // ': ' // TRIM( MSG ) STOP 92000 FORMAT( A ) 92020 FORMAT( / ) 93000 FORMAT( 'C PRECONDITIONS: For the ', A, ' mechanism' ) 93020 FORMAT( 'C REVISION HISTORY: Created by EBI solver program, ', A ) 96000 FORMAT( //6X, 'RETURN' // 6X, 'END' ) 97000 FORMAT( / & ' RETURN' // & ' END' ) END ================================================ FILE: UTIL/create_ebi/src/wr_rates.F ================================================ SUBROUTINE WR_RATES C********************************************************************** C C FUNCTION: Create source code for the hrrates subroutine in EBI C C PRECONDITIONS: None C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by Jerry Gipson, March, 2004 C C Nov. 17 2005:WHUTZELL changed writing of rate so the length of species C name is used not maximum of all species names C C********************************************************************** USE ENV_VARS USE GLOBAL_DATA !!USE M3UTILIO ! IOAPI parameters and declarations USE RXNS_DATA IMPLICIT NONE C..INCLUDES: C..ARGUMENTS: None C..PARAMETERS: C..EXTERNAL FUNCTIONS: INTEGER JUNIT ! gets unit no. ! INTEGER NAME_INDEX ! find position of string in list C..SAVED LOCAL VARIABLES: None C..SCRATCH LOCAL VARIABLES: CHARACTER( 16 ) :: PNAME = 'WR_RATES' ! Program name CHARACTER( 256 ) :: MSG ! Message text CHARACTER( 256 ) :: LINEIN ! Input line CHARACTER( 256 ) :: LINOUT CHARACTER( 16 ) :: SPOUT ! Ouput species CHARACTER( 16 ) :: SPEC CHARACTER( 30 ) :: VNAME CHARACTER( 256 ) :: FNAME ! Name of file to open CHARACTER( 72 ) :: CLINE ! Line of c's CHARACTER( 5 ) :: RNUM INTEGER :: E1, E2 ! end pos of string INTEGER :: IND1 ! array index INTEGER :: IND2 ! array index INTEGER :: IND3 ! array index INTEGER :: IIN ! Unit no. of input file INTEGER :: IOUT ! Unit no. of output file INTEGER :: N, S ! Loop indices INTEGER :: NPOS ! Reaction index INTEGER :: RPOS1 ! INTEGER :: RPOS2 ! INTEGER :: PPOS1 ! INTEGER :: PPOS2 ! LOGICAL :: LRXN1 REAL :: COEFF REAL :: RCOEF REAL :: YCOEF C********************************************************************** DO N = 1, 72 CLINE( N : N ) = 'c' END DO ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Open ouput file and code template ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc E1 = LEN_TRIM( OUTPATH ) FNAME = OUTPATH( 1 : E1 ) // '/hrrates.F' IOUT = JUNIT() OPEN( UNIT = IOUT, FILE = FNAME, ERR = 9000 ) IIN = JUNIT() E1 = LEN_TRIM( TMPLPATH ) FNAME = TMPLPATH( 1 : E1 ) // '/hrrates.F' OPEN( UNIT = IIN, FILE = FNAME, ERR = 9000 ) IF( LWR_COPY ) CALL WR_COPYRT( IOUT ) IF( LWR_CVS_HDR ) CALL WR_CVSHDR( IOUT ) ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Read, modify, and write first part of code from template ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 100 CONTINUE READ( IIN, 92000, END = 1000 ) LINEIN IF( LINEIN( 1 : 2 ) .EQ. 'R1' ) THEN WRITE( IOUT, 93000 ) TRIM( MECHNAME ) GO TO 100 ELSEIF( LINEIN( 1 : 2 ) .EQ. 'R2' ) THEN WRITE( IOUT, 93020 ) CR_DATE( 1 : LEN_TRIM( CR_DATE ) ) GO TO 100 ELSEIF( LINEIN( 1 : 2 ) .EQ. 'S1' ) THEN GO TO 1000 ELSE E1 = LEN_TRIM( LINEIN ) WRITE( IOUT, 92000 ) LINEIN( 1 : E1 ) GO TO 100 END IF 1000 CONTINUE ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Write reactions for gas-phase only portion of mechanism ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc WRITE( IOUT, 94000 ) DO N = 1, NRXNS IND1 = 0 IND2 = 0 IND3 = 0 IF( N_AE_SPC .GT. 0 .AND. N_AQ_SPC .GT. 0 )THEN IF( IRR( N, 1 ) .NE. 0 ) & IND1 = MAX( NAME_INDEX( SPECIES( IRR( N, 1 ) ), N_AE_SPC, AE_SPC ), & NAME_INDEX( SPECIES( IRR( N, 1 ) ), N_AQ_SPC, AQ_SPC ) ) IF( IRR( N, 2 ) .NE. 0 ) & IND2 = MAX( NAME_INDEX( SPECIES( IRR( N, 1 ) ), N_AE_SPC, AE_SPC ), & NAME_INDEX( SPECIES( IRR( N, 1 ) ), N_AQ_SPC, AQ_SPC ) ) IF( IRR( N, 2 ) .NE. 0 ) & IND2 = MAX( NAME_INDEX( SPECIES( IRR( N, 1 ) ), N_AE_SPC, AE_SPC ), & NAME_INDEX( SPECIES( IRR( N, 1 ) ), N_AQ_SPC, AQ_SPC ) ) END IF c..skip rxn if any reactant is a AE or AQ species IF( IND1 .NE. 0 .OR. IND2 .NE. 0 .OR. IND3 .NE. 0 ) CYCLE WRITE( RNUM, '( I5 )' ) N LINOUT = ' RXRAT( ' // RNUM // ' ) = RKI( ' // RNUM // & ' )' E1 = LEN_TRIM( LINOUT ) DO S = 1, NREACT( N ) IF( IRR( N, S ) .NE. 0 ) THEN SPEC = ADJUSTL( SPECIES( IRR( N, S ) ) ) E2 = LEN_TRIM( SPEC ) LINOUT = LINOUT( 1 : E1 ) // ' * YC( ' // SPEC( 1 : E2 ) // & ' )' E1 = LEN_TRIM( LINOUT ) END IF END DO IF( .NOT. L_RXFLAG( N ) ) LINOUT( 1 : 1 ) = '!' IF( L_SS_RXN_FLAG( N ) ) LINOUT( 1 : 1 ) = '!' WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) END DO ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Write reactions for AE only portion of mechanism ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc LRXN1 = .TRUE. DO N = 1, NRXNS IND1 = 0 IND2 = 0 IND3 = 0 IF( N_AE_SPC .GT. 0 )THEN IF( IRR( N, 1 ) .NE. 0 ) & IND1 = NAME_INDEX( SPECIES( IRR( N, 1 ) ), N_AE_SPC, AE_SPC ) IF( IRR( N, 2 ) .NE. 0 ) & IND2 = NAME_INDEX( SPECIES( IRR( N, 1 ) ), N_AE_SPC, AE_SPC ) IF( IRR( N, 3 ) .NE. 0 ) & IND3 = NAME_INDEX( SPECIES( IRR( N, 1 ) ), N_AE_SPC, AE_SPC ) END IF c..do rxn if any reactant is a AE or AQ species IF( IND1 .NE. 0 .OR. IND2 .NE. 0 .OR. IND3 .NE. 0 ) THEN IF( LRXN1 ) THEN WRITE( IOUT, 95000 ) LRXN1 = .FALSE. END IF WRITE( RNUM, '( I5 )' ) N LINOUT = ' RXRAT( ' // RNUM // ' ) = RKI( ' // RNUM // & ' )' E1 = LEN_TRIM( LINOUT ) DO S = 1, NREACT( N ) IF( IRR( N, S ) .NE. 0 ) THEN SPEC = ADJUSTL( SPECIES( IRR( N, S ) ) ) LINOUT = LINOUT( 1 : E1 ) // ' * YC( ' // SPEC( 1 : CL ) // & ' )' E1 = LEN_TRIM( LINOUT ) END IF END DO IF( .NOT. L_RXFLAG( N ) ) LINOUT( 1 : 1 ) = '!' IF( L_SS_RXN_FLAG( N ) ) LINOUT( 1 : 1 ) = '!' WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) END IF END DO IF( .NOT. LRXN1 ) WRITE( IOUT, 95020 ) ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Write reactions for AQ only portion of mechanism ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc LRXN1 = .TRUE. DO N = 1, NRXNS IND1 = 0 IND2 = 0 IND3 = 0 IF( N_AQ_SPC .GT. 0 )THEN IF( IRR( N, 1 ) .NE. 0 ) & IND1 = NAME_INDEX( SPECIES( IRR( N, 1 ) ), N_AQ_SPC, AQ_SPC ) IF( IRR( N, 2 ) .NE. 0 ) & IND2 = NAME_INDEX( SPECIES( IRR( N, 1 ) ), N_AQ_SPC, AQ_SPC ) IF( IRR( N, 3 ) .NE. 0 ) & IND3 = NAME_INDEX( SPECIES( IRR( N, 1 ) ), N_AQ_SPC, AQ_SPC ) END IF c..do rxn if any reactant is a AE or AQ species IF( IND1 .NE. 0 .OR. IND2 .NE. 0 .OR. IND3 .NE. 0 ) THEN IF( LRXN1 ) THEN WRITE( IOUT, 95040 ) LRXN1 = .FALSE. END IF WRITE( RNUM, '( I5 )' ) N LINOUT = ' RXRAT( ' // RNUM // ' ) = RKI( ' // RNUM // & ' )' E1 = LEN_TRIM( LINOUT ) DO S = 1, NREACT( N ) IF( IRR( N, S ) .NE. 0 ) THEN SPEC = ADJUSTL( SPECIES( IRR( N, S ) ) ) LINOUT = LINOUT( 1 : E1 ) // ' * YC( ' // SPEC( 1 : CL ) // & ' )' E1 = LEN_TRIM( LINOUT ) END IF END DO IF( .NOT. L_RXFLAG( N ) ) LINOUT( 1 : 1 ) = '!' IF( L_SS_RXN_FLAG( N ) ) LINOUT( 1 : 1 ) = '!' WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) END IF END DO IF( .NOT. LRXN1 ) WRITE( IOUT, 95020 ) WRITE( IOUT, 96000 ) CLOSE( IIN ) CLOSE( IOUT ) NOUTFLS = NOUTFLS + 1 OUTFLNAM( NOUTFLS ) = 'hrrates.F' RETURN 9000 MSG = 'ERROR: Could not open ' // FNAME( 1 : LEN_TRIM( FNAME ) ) WRITE(LOGDEV,'(a)')TRIM( PNAME ) // ': ' // TRIM( MSG ) STOP 92000 FORMAT( A ) 92020 FORMAT( / ) 93000 FORMAT( 'C PRECONDITIONS: For the ', A, ' mechanism' ) 93020 FORMAT( 'C REVISION HISTORY: Created by EBI solver program, ', A ) 94000 FORMAT( & 'C..NOTE: RXRAT commented out are not referenced by any routine' ) 95000 FORMAT(/ & ' IF( L_AE_VRSN ) THEN' / ) 95020 FORMAT(/ & ' END IF' ) 95040 FORMAT(/ & ' IF( L_AQ_VRSN ) THEN' / ) 96000 FORMAT( //6X, 'RETURN' // 6X, 'END' ) END ================================================ FILE: UTIL/create_ebi/src/wr_rates.F_orig ================================================ SUBROUTINE WR_RATES C********************************************************************** C C FUNCTION: Create source code for the hrrates subroutine in EBI C C PRECONDITIONS: None C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by Jerry Gipson, March, 2004 C C********************************************************************** USE ENV_VARS USE GLOBAL_DATA IMPLICIT NONE C..INCLUDES: INCLUDE SUBST_IOPARMS ! IOAPI parameters INCLUDE SUBST_IODECL ! IOAPI declarations INCLUDE SUBST_GC_SPC ! Mechanism gas-phase species INCLUDE SUBST_RXCMMN ! Mechanism data C..ARGUMENTS: None C..PARAMETERS: C..EXTERNAL FUNCTIONS: INTEGER JUNIT ! gets unit no. INTEGER INDEX1 ! find position of string in list C..SAVED LOCAL VARIABLES: None C..SCRATCH LOCAL VARIABLES: CHARACTER( 16 ) :: PNAME = 'WR_RATES' ! Program name CHARACTER( 256 ) :: MSG ! Message text CHARACTER( 100 ) :: LINEIN ! Input line CHARACTER( 100 ) :: LINOUT CHARACTER( 16 ) :: SPOUT ! Ouput species CHARACTER( 16 ) :: SPEC CHARACTER( 30 ) :: VNAME CHARACTER( 256 ) :: FNAME ! Name of file to open CHARACTER( 72 ) :: CLINE ! Line of c's CHARACTER( 3 ) :: RNUM INTEGER :: E1, E2 ! end pos of string INTEGER :: IND1 ! array index INTEGER :: IND2 ! array index INTEGER :: IND3 ! array index INTEGER :: IIN ! Unit no. of input file INTEGER :: IOUT ! Unit no. of output file INTEGER :: LOGDEV ! Unit no. of logdev INTEGER :: N, S ! Loop indices INTEGER :: NPOS ! Reaction index INTEGER :: RPOS1 ! INTEGER :: RPOS2 ! INTEGER :: PPOS1 ! INTEGER :: PPOS2 ! LOGICAL :: LRXN1 REAL :: COEFF REAL :: RCOEF REAL :: PCOEF C********************************************************************** DO N = 1, 72 CLINE( N : N ) = 'c' ENDDO ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Open ouput file and code template ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc LOGDEV = INIT3() E1 = LEN_TRIM( OUTPATH ) FNAME = OUTPATH( 1 : E1 ) // '/hrrates.F' IOUT = JUNIT() OPEN( UNIT = IOUT, FILE = FNAME, ERR = 9000 ) IIN = JUNIT() E1 = LEN_TRIM( TMPLPATH ) FNAME = TMPLPATH( 1 : E1 ) // '/hrrates.F' OPEN( UNIT = IIN, FILE = FNAME, ERR = 9000 ) IF( LWR_COPY ) CALL WR_COPYRT( IOUT ) IF( LWR_CVS_HDR ) CALL WR_CVSHDR( IOUT ) ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Read, modify, and write first part of code from template ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 100 CONTINUE READ( IIN, 92000, END = 1000 ) LINEIN IF( LINEIN( 1 : 2 ) .EQ. 'R1' ) THEN WRITE( IOUT, 93000 ) GC_TAG( 1 : LEN_TRIM( GC_TAG ) ) GO TO 100 ELSEIF( LINEIN( 1 : 2 ) .EQ. 'R2' ) THEN WRITE( IOUT, 93020 ) CR_DATE( 1 : LEN_TRIM( CR_DATE ) ) GO TO 100 ELSEIF( LINEIN( 1 : 2 ) .EQ. 'S1' ) THEN GO TO 1000 ELSE E1 = LEN_TRIM( LINEIN ) WRITE( IOUT, 92000 ) LINEIN( 1 : E1 ) GO TO 100 ENDIF 1000 CONTINUE ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Write reactions for gas-phase only portion of mechanism ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc WRITE( IOUT, 94000 ) DO N = 1, NRXNS IND1 = 0 IND2 = 0 IND3 = 0 IF( IRR( N, 1 ) .NE. 0 ) & IND1 = MAX( INDEX1( GC_SPC( IRR( N, 1 ) ), N_AE_SPC, AE_SPC ), & INDEX1( GC_SPC( IRR( N, 1 ) ), N_AQ_SPC, AQ_SPC ) ) IF( IRR( N, 2 ) .NE. 0 ) & IND2 = MAX( INDEX1( GC_SPC( IRR( N, 1 ) ), N_AE_SPC, AE_SPC ), & INDEX1( GC_SPC( IRR( N, 1 ) ), N_AQ_SPC, AQ_SPC ) ) IF( IRR( N, 2 ) .NE. 0 ) & IND2 = MAX( INDEX1( GC_SPC( IRR( N, 1 ) ), N_AE_SPC, AE_SPC ), & INDEX1( GC_SPC( IRR( N, 1 ) ), N_AQ_SPC, AQ_SPC ) ) c..skip rxn if any reactant is a AE or AQ species IF( IND1 .NE. 0 .OR. IND2 .NE. 0 .OR. IND3 .NE. 0 ) CYCLE WRITE( RNUM, '( I3 )' ) N LINOUT = ' RXRAT( ' // RNUM // ' ) = RKI( ' // RNUM // & ' )' E1 = LEN_TRIM( LINOUT ) DO S = 1, NREACT( N ) IF( IRR( N, S ) .NE. 0 ) THEN SPEC = ADJUSTL( GC_SPC( IRR( N, S ) ) ) LINOUT = LINOUT( 1 : E1 ) // ' * YC( ' // SPEC( 1 : CL ) // & ' )' E1 = LEN_TRIM( LINOUT ) ENDIF ENDDO IF( .NOT. L_RXFLAG( N ) ) LINOUT( 1 : 1 ) = '!' WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) ENDDO ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Write reactions for AE only portion of mechanism ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc LRXN1 = .TRUE. DO N = 1, NRXNS IND1 = 0 IND2 = 0 IND3 = 0 IF( IRR( N, 1 ) .NE. 0 ) & IND1 = INDEX1( GC_SPC( IRR( N, 1 ) ), N_AE_SPC, AE_SPC ) IF( IRR( N, 2 ) .NE. 0 ) & IND2 = INDEX1( GC_SPC( IRR( N, 1 ) ), N_AE_SPC, AE_SPC ) IF( IRR( N, 3 ) .NE. 0 ) & IND3 = INDEX1( GC_SPC( IRR( N, 1 ) ), N_AE_SPC, AE_SPC ) c..do rxn if any reactant is a AE or AQ species IF( IND1 .NE. 0 .OR. IND2 .NE. 0 .OR. IND3 .NE. 0 ) THEN IF( LRXN1 ) THEN WRITE( IOUT, 95000 ) LRXN1 = .FALSE. ENDIF WRITE( RNUM, '( I3 )' ) N LINOUT = ' RXRAT( ' // RNUM // ' ) = RKI( ' // RNUM // & ' )' E1 = LEN_TRIM( LINOUT ) DO S = 1, NREACT( N ) IF( IRR( N, S ) .NE. 0 ) THEN SPEC = ADJUSTL( GC_SPC( IRR( N, S ) ) ) LINOUT = LINOUT( 1 : E1 ) // ' * YC( ' // SPEC( 1 : CL ) // & ' )' E1 = LEN_TRIM( LINOUT ) ENDIF ENDDO IF( .NOT. L_RXFLAG( N ) ) LINOUT( 1 : 1 ) = '!' WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) ENDIF ENDDO IF( .NOT. LRXN1 ) WRITE( IOUT, 95020 ) ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Write reactions for AQ only portion of mechanism ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc LRXN1 = .TRUE. DO N = 1, NRXNS IND1 = 0 IND2 = 0 IND3 = 0 IF( IRR( N, 1 ) .NE. 0 ) & IND1 = INDEX1( GC_SPC( IRR( N, 1 ) ), N_AQ_SPC, AQ_SPC ) IF( IRR( N, 2 ) .NE. 0 ) & IND2 = INDEX1( GC_SPC( IRR( N, 1 ) ), N_AQ_SPC, AQ_SPC ) IF( IRR( N, 3 ) .NE. 0 ) & IND3 = INDEX1( GC_SPC( IRR( N, 1 ) ), N_AQ_SPC, AQ_SPC ) c..do rxn if any reactant is a AE or AQ species IF( IND1 .NE. 0 .OR. IND2 .NE. 0 .OR. IND3 .NE. 0 ) THEN IF( LRXN1 ) THEN WRITE( IOUT, 95040 ) LRXN1 = .FALSE. ENDIF WRITE( RNUM, '( I3 )' ) N LINOUT = ' RXRAT( ' // RNUM // ' ) = RKI( ' // RNUM // & ' )' E1 = LEN_TRIM( LINOUT ) DO S = 1, NREACT( N ) IF( IRR( N, S ) .NE. 0 ) THEN SPEC = ADJUSTL( GC_SPC( IRR( N, S ) ) ) LINOUT = LINOUT( 1 : E1 ) // ' * YC( ' // SPEC( 1 : CL ) // & ' )' E1 = LEN_TRIM( LINOUT ) ENDIF ENDDO IF( .NOT. L_RXFLAG( N ) ) LINOUT( 1 : 1 ) = '!' WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) ENDIF ENDDO IF( .NOT. LRXN1 ) WRITE( IOUT, 95020 ) WRITE( IOUT, 96000 ) CLOSE( IIN ) CLOSE( IOUT ) RETURN 9000 MSG = 'ERROR: Could not open ' // FNAME( 1 : LEN_TRIM( FNAME ) ) CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT2 ) 92000 FORMAT( A ) 92020 FORMAT( / ) 93000 FORMAT( 'C PRECONDITIONS: For the ', A, ' family of mechanisms' ) 93020 FORMAT( 'C REVISION HISTORY: Created by EBI solver program, ', A ) 94000 FORMAT( & 'C..NOTE: RXRAT commented out are not referenced by any routine' ) 95000 FORMAT(/ & ' IF( L_AE_VRSN ) THEN' / ) 95020 FORMAT(/ & ' ENDIF' ) 95040 FORMAT(/ & ' IF( L_AQ_VRSN ) THEN' / ) 96000 FORMAT( //6X, 'RETURN' // 6X, 'END' ) END ================================================ FILE: UTIL/create_ebi/src/wr_solver.F ================================================ SUBROUTINE WR_SOLVER C********************************************************************** C C FUNCTION: Create source code for the hrsolver subroutine in EBI C C PRECONDITIONS: None C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by Jerry Gipson, February, 2004 C C********************************************************************** USE ENV_VARS USE GLOBAL_DATA !!USE M3UTILIO ! IOAPI parameters and declarations USE RXNS_DATA IMPLICIT NONE C..INCLUDES: C..ARGUMENTS: None C..PARAMETERS: None C..EXTERNAL FUNCTIONS: INTEGER JUNIT ! gets unit no. C..SAVED LOCAL VARIABLES: None C..SCRATCH LOCAL VARIABLES: CHARACTER( 16 ) :: PNAME = 'WR_SOLVER' ! Program name CHARACTER( 256 ) :: MSG ! Message text CHARACTER( 132 ) :: LINEIN ! Input line CHARACTER( 256 ) :: FNAME ! Name of file to open INTEGER :: EPOS ! end pos of string INTEGER :: IIN ! Unit no. of input file INTEGER :: IOUT ! Unit no. of output file LOGICAL :: LOUT0 = .FALSE. ! Flag for line 1 output processed LOGICAL :: LOUT1 = .FALSE. ! Flag for line 1 output processed LOGICAL :: LOUT2 = .FALSE. ! Flag for line 2 output processed LOGICAL :: LOUT3 = .FALSE. ! Flag for line 3 output processed LOGICAL :: LOUT4 = .FALSE. ! Flag for line 4 output processed LOGICAL :: LOUT5 = .FALSE. ! Flag for line 5 output processed C********************************************************************** ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Open ouput file and code template ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc EPOS = LEN_TRIM( OUTPATH ) FNAME = OUTPATH( 1 : EPOS ) // '/hrsolver.F' IOUT = JUNIT() OPEN( UNIT = IOUT, FILE = FNAME, ERR = 9000 ) IIN = JUNIT() EPOS = LEN_TRIM( TMPLPATH ) IF( N_SS_SPC .EQ. 0 ) THEN FNAME = TMPLPATH( 1 : EPOS ) // '/hrsolver.F' ELSE FNAME = TMPLPATH( 1 : EPOS ) // '/hrsolver_ss.F' END IF OPEN( UNIT = IIN, FILE = FNAME, ERR = 9000 ) ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Start processing ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF( LWR_COPY ) CALL WR_COPYRT( IOUT ) IF( LWR_CVS_HDR ) CALL WR_CVSHDR( IOUT ) 100 CONTINUE READ( IIN, 92000, END = 1000 ) LINEIN IF( LINEIN( 1 : 1 ) .NE. 'R' ) THEN WRITE( IOUT, 92000 ) LINEIN( 1 : LEN_TRIM( LINEIN ) ) ELSE IF( LINEIN( 2 : 2 ) .EQ. '0' .AND. .NOT. LOUT0 ) THEN IF( NSPECIAL .NE. 0 ) WRITE( IOUT, 93029 ) LOUT0 = .TRUE. ELSEIF( LINEIN( 2 : 2 ) .EQ. '1' .AND. .NOT. LOUT1 ) THEN WRITE( IOUT, 93000 ) TRIM( MECHNAME ) LOUT1 = .TRUE. ELSEIF( LINEIN( 2 : 2 ) .EQ. '2' .AND. .NOT. LOUT2 ) THEN WRITE( IOUT, 93020 ) CR_DATE( 1 : LEN_TRIM( CR_DATE ) ) LOUT2 = .TRUE. ELSEIF( LINEIN( 2 : 2 ) .EQ. '3' .AND. .NOT. LOUT3 ) THEN IF( NSPECIAL .NE. 0 ) WRITE( IOUT, 93030 ) LOUT3 = .TRUE. ELSEIF( LINEIN( 2 : 2 ) .EQ. '4' .AND. .NOT. LOUT4 ) THEN IF( LPAR_NEG ) THEN WRITE( IOUT, 93040 ) ELSE WRITE( IOUT, 93060 ) END IF LOUT3 = .TRUE. ELSEIF( LINEIN( 2 : 2 ) .EQ. '5' .AND. .NOT. LOUT5 ) THEN IF( LDEGRADE_SUBS ) WRITE( IOUT, 93046 ) LINEIN( 3 : LEN_TRIM( LINEIN ) ) LOUT5 = .FALSE. END IF END IF GO TO 100 1000 CONTINUE CLOSE( IIN ) CLOSE( IOUT ) NOUTFLS = NOUTFLS + 1 OUTFLNAM( NOUTFLS ) = 'hrsolver.F' RETURN 9000 MSG = 'ERROR: Could not open ' // FNAME( 1 : LEN_TRIM( FNAME ) ) WRITE(LOGDEV,'(a)')TRIM( PNAME ) // ': ' // TRIM( MSG ) STOP 92000 FORMAT( A ) 93000 FORMAT( 'C PRECONDITIONS: For the ', A, ' mechanism' ) 93020 FORMAT( 'C REVISION HISTORY: Created by EBI solver program, ', A ) 93029 FORMAT( 6X,'USE RXNS_FUNCTION, ONLY : SPECIAL_RATES' ) 93030 FORMAT( 2/15X, 'FORALL( S=1:N_SPEC )SYC( NCELL, S ) = YC( S ) ' & /15X, 'CALL SPECIAL_RATES( NUMCELLS=NCELL, TEMP=TEMP, DENS=DENSITY, ', & 'Y=SYC, RKI=RKI_SAV )' & /15X, 'FORALL( S = 1:NRXNS )RKI( S ) = RKI_SAV( NCELL, S )' / ) 93040 FORMAT( 'c..Special treatment of PAR because of negative product ', & 'stoichiometry' / & 15X,'IF( PNEG( PAR ) .GT. 0.0D0 ) THEN' / & 15X,' FXDLOSS = PNEG( PAR ) * DTC' / & 15X,' IF( FXDLOSS .GE. YC0( PAR ) + PROD( PAR ) * DTC ) THEN' / & 15X,' YCP( PAR ) = 0.0D0' / & 15X,' ELSE' / & 15X,' VARLOSS = MAX( LOSS( PAR ) - PNEG( PAR ) , ZERO )' / & 15X,' YCP( PAR ) = ( YC0( PAR ) + PROD( PAR ) * DTC - ' / & 5X,'&', 13X, 'FXDLOSS ) / ( 1.0D0 + VARLOSS * DTC / YC( PAR ) )' / & 15X,' END IF' / & 15X,'END IF' ) !93046 FORMAT( 2X, A ) 93046 FORMAT( A ) 93060 FORMAT( / ) END ================================================ FILE: UTIL/create_ebi/src/wr_special.F ================================================ SUBROUTINE WR_SPECIAL C********************************************************************** C C FUNCTION: Create source code for the HRCALC_SPECIAL subroutine in EBI C C PRECONDITIONS: Mechanism data must have been processed by CMAQ CHEMMECH C C KEY SUBROUTINES/FUNCTIONS CALLED: None C C REVISION HISTORY: Created by Jerry Gipson, July, 2009 C C********************************************************************** USE ENV_VARS USE GLOBAL_DATA !!USE M3UTILIO ! IOAPI parameters and declarations USE RXNS_DATA IMPLICIT NONE C..INCLUDES: C..PARAMETERS: None C..EXTERNAL FUNCTIONS: INTEGER JUNIT ! gets unit no. C..SAVED LOCAL VARIABLES: CHARACTER( 16 ), SAVE :: PNAME = 'WR_SPECIAL' ! Program name C..SCRATCH LOCAL VARIABLES: CHARACTER( 256 ) :: MSG ! Message text CHARACTER( 100 ) :: LINEIN ! Input line CHARACTER( 100 ) :: LINOUT ! Output line CHARACTER( 256 ) :: FNAME ! Name of file to open CHARACTER( 4 ) :: RKOUT ! Output reaction number CHARACTER( 9 ) :: COUT ! Output coefficient CHARACTER( 16 ) :: SPOUT ! Output species name CHARACTER( 16 ) :: LBLOUT ! Output reaction label CHARACTER( 16 ) :: OPOUT ! Output operator name INTEGER :: EPOS ! end pos of string INTEGER :: E1 ! end pos of string INTEGER :: IIN ! Unit no. of input file INTEGER :: IOUT ! Unit no. of output file INTEGER :: N ! Loop index INTEGER :: T1 ! Loop index INTEGER :: POS ! Loop index INTEGER :: IND ! Array index INTEGER :: MXL_OPNAM = 0 ! Length of longest spec. op. name INTEGER :: MXL_SPC = 0 ! Length of longest species name used by sp. ops INTEGER :: MXL_LBL = 0 ! Length of longest rx label used by sp. ops INTEGER :: MXL_LBL2 = 0 ! Length of longest rx label set to a special rate INTEGER :: RKNUM ! Reaction index INTEGER :: SPNUM ! Species index INTEGER :: OPNUM ! Operator index LOGICAL :: LDONE1 ! Flag to indicate one term of sp. op output LOGICAL :: LERROR = .FALSE. ! Error flag REAL :: COEFF ! Coefficient for a term in special operator C********************************************************************** ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Get max lengths of key character strings for formatting purposes ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c..get length of the longest operator name MXL_OPNAM = 0 DO N = 1, NSPECIAL MXL_OPNAM = MAX( MXL_OPNAM , LEN_TRIM( SPECIAL( N ) ) ) END DO c..get length of the longest species name that is referenced by operators MXL_SPC = 0 DO N = 1, NSPECIAL DO T1 = 1, MAXSPECTERMS IND = INDEX_CTERMS( N, T1 ) IF( IND .NE. 0 ) MXL_SPC = MAX( MXL_SPC, LEN_TRIM( SPECIES( IND ) ) ) END DO END DO c..get length of the longest rxn label that is referenced in operator definitions MXL_LBL = 0 DO N = 1, NSPECIAL DO T1 = 1, MAXSPECTERMS IND = INDEX_KTERMS( N, T1 ) IF( IND .NE. 0 ) MXL_LBL = MAX( MXL_LBL, LEN_TRIM( RXLABEL( IND ) ) ) END DO END DO c..get length of the longest rxn label that is set equal to an operator value MXL_LBL2 = 0 DO N = 1, NSPECIAL IND = ISPECIAL( N, 1 ) IF( IND .NE. 0 ) MXL_LBL2 = MAX( MXL_LBL2, LEN_TRIM( RXLABEL( IND ) ) ) END DO ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Open ouput file and code template ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc E1 = LEN_TRIM( OUTPATH ) FNAME = OUTPATH( 1 : E1 ) // '/hrcalc_special.F' IOUT = JUNIT() OPEN( UNIT = IOUT, FILE = FNAME, ERR = 9000 ) IIN = JUNIT() E1 = LEN_TRIM( TMPLPATH ) FNAME = TMPLPATH( 1 : E1 ) // '/hrcalc_special.F' OPEN( UNIT = IIN, FILE = FNAME, ERR = 9000 ) IF( LWR_COPY ) CALL WR_COPYRT( IOUT ) IF( LWR_CVS_HDR ) CALL WR_CVSHDR( IOUT ) ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Read, modify, and write first part of code from template ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 100 CONTINUE READ( IIN, 92000, END = 1000 ) LINEIN IF( LINEIN( 1 : 2 ) .EQ. 'R1' ) THEN WRITE( IOUT, 93000 ) TRIM( MECHNAME ) GO TO 100 ELSEIF( LINEIN( 1 : 2 ) .EQ. 'R2' ) THEN WRITE( IOUT, 93020 ) CR_DATE( 1 : LEN_TRIM( CR_DATE ) ) GO TO 100 ELSEIF( LINEIN( 1 : 2 ) .EQ. 'R3' ) THEN c..Declare special rate constant names DO N = 1, NSPECIAL WRITE( IOUT, 95000 ) SPECIAL( N ) END DO WRITE( IOUT, 92000 ) GO TO 100 ELSEIF( LINEIN( 1 : 2 ) .EQ. 'S1' ) THEN GO TO 1000 ELSE E1 = LEN_TRIM( LINEIN ) WRITE( IOUT, 92000 ) LINEIN( 1 : E1 ) GO TO 100 END IF 1000 CONTINUE cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Section to compute values of special rate constants cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc WRITE( IOUT, 92000 )'c..Compute values of special rate constants' DO N = 1, NSPECIAL WRITE( IOUT , 92000 ) LDONE1 = .FALSE. OPOUT = ADJUSTL( SPECIAL( N ) ) LINOUT = ' ' // OPOUT( 1 : MXL_OPNAM ) LINOUT = LINOUT( 1 : MXL_OPNAM + 6 ) // ' = ' EPOS = MXL_OPNAM + 9 c..Loop for rate constant/concentration terms DO T1 = 1, MAXSPECTERMS IF( INDEX_KTERMS( N, T1 ) .EQ. 0 .OR. INDEX_KTERMS( N, T1 ) .EQ. 0 ) CYCLE COEFF = KC_COEFFS( N, T1 ) COUT = ' ' IF( COEFF .NE. 1.0 ) WRITE( COUT, '( F6.3, A )' ) COEFF, ' * ' RKNUM = INDEX_KTERMS( N, T1 ) WRITE( RKOUT, '( I4 )' ) RKNUM SPNUM = INDEX_CTERMS( N, T1 ) SPOUT = ADJUSTL ( SPECIES( SPNUM ) ) LINOUT = LINOUT( 1 : EPOS ) // COUT // 'RKI( NCELL, '// RKOUT // ' ) * YC( NCELL, ' // & SPOUT( 1 : MXL_SPC ) // ' ) !' EPOS = LEN_TRIM( LINOUT ) LBLOUT = ADJUSTL( RXLABEL( RKNUM ) ) LINOUT = LINOUT( 1 : EPOS ) // ' RKI( NCELL,' // RKOUT // ') = RKI<' // & LBLOUT( 1 : MXL_LBL ) // '>' EPOS = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : EPOS ) LDONE1 = .TRUE. DO POS = 1, MXL_OPNAM + 9 LINOUT( POS : POS ) = ' ' IF( POS .EQ. 6 ) LINOUT( POS : POS ) = '&' IF( POS .EQ. MXL_OPNAM + 8 ) LINOUT( POS : POS ) = '+' END DO EPOS = MXL_OPNAM + 9 END DO c..Loop for other special operator terms DO T1 = 1, MAXSPECTERMS IF( OPERATORS( N, T1 ) .EQ. 0 ) CYCLE COEFF = OPERATOR_COEFFS( N , T1 ) COUT = ' ' IF( COEFF .NE. 1.0 ) WRITE( COUT, '( F6.3, A )' ) COEFF, ' * ' OPOUT = ADJUSTL( SPECIAL( OPERATORS( N, T1 ) ) ) LINOUT = LINOUT( 1 : EPOS ) // COUT // OPOUT( 1 : MXL_OPNAM ) EPOS = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : EPOS ) LDONE1 = .TRUE. DO POS = 1, MXL_OPNAM + 9 LINOUT( POS : POS ) = ' ' IF( POS .EQ. 6 ) LINOUT( POS : POS ) = '&' IF( POS .EQ. MXL_OPNAM + 8 ) LINOUT( POS : POS ) = '+' END DO EPOS = MXL_OPNAM + 9 END DO IF( .NOT. LDONE1 ) THEN WRITE( LOGDEV, 91000 ) SPECIAL ( N ) LERROR = .TRUE. END IF END DO c..stop if any errors encountered IF( LERROR ) THEN MSG = 'Stopping because of special rate constant errors' WRITE(LOGDEV,'(a)')TRIM( PNAME ) // ': ' // TRIM( MSG ) STOP END IF c..Set rate constants of individual reactions WRITE( IOUT, 92000 ) WRITE( IOUT, 92000 ) 'c..set individual mechanism rate constants' WRITE( IOUT, 92000 ) DO N = 1, NSPECIAL_RXN RKNUM = ISPECIAL( N, 1 ) WRITE( RKOUT, '( I4 )' ) RKNUM OPNUM = ISPECIAL( N, 2 ) OPOUT = ADJUSTL( SPECIAL( OPNUM ) ) LBLOUT = ADJUSTL( RXLABEL( RKNUM ) ) LINOUT = ' RKI( NCELL, ' // RKOUT // ' ) = ' // OPOUT( 1 : MXL_OPNAM ) // & ' ! RKI<' // LBLOUT ( 1 : MXL_LBL2 ) // '>' EPOS = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : EPOS ) END DO WRITE( IOUT, 95100 ) CLOSE( IIN ) CLOSE( IOUT ) NOUTFLS = NOUTFLS + 1 OUTFLNAM( NOUTFLS ) = 'hrcalc_special.F' RETURN 9000 CONTINUE MSG = 'ERROR: Could not open ' // FNAME( 1 : LEN_TRIM( FNAME ) ) WRITE(LOGDEV,'(a)')TRIM( PNAME ) // ': ' // TRIM( MSG ) STOP 91000 FORMAT( 'ERROR: No terms found for special rate constant named: ', A ) 92000 FORMAT( A ) 93000 FORMAT( 'C PRECONDITIONS: For the ', A, ' mechanism' ) 93020 FORMAT( 'C REVISION HISTORY: Created by EBI solver program, ', A ) 95000 FORMAT( 6X, 'REAL ', A16 ) 95100 FORMAT( / 6X, 'RETURN' // 6X, 'END' ) END ================================================ FILE: UTIL/create_ebi/src/wr_ssa.F ================================================ SUBROUTINE WR_SSA C********************************************************************** C C FUNCTION: Create source code for the hrcalc_SS subroutine in EBI C C PRECONDITIONS: Mechanism data must have been processed by CMAQ CHEMMECH C C KEY SUBROUTINES/FUNCTIONS CALLED: SUM_COEFF C BLD_OUTLINE C C REVISION HISTORY: Created by Jerry Gipson, July, 2009 C C********************************************************************** USE ENV_VARS USE GLOBAL_DATA !!USE M3UTILIO ! IOAPI parameters and declarations USE RXNS_DATA IMPLICIT NONE C..INCLUDES: C..ARGUMENTS: None C..PARAMETERS: INTEGER, PARAMETER :: GRPNO = 5 C..EXTERNAL FUNCTIONS: INTEGER JUNIT ! gets unit no. ! INTEGER NAME_INDEX ! find position of string in list C..SAVED LOCAL VARIABLES: CHARACTER( 16 ), SAVE :: PNAME = 'WR_HRCALC_SSA' ! Program name C..SCRATCH LOCAL VARIABLES: CHARACTER( 256 ) :: MSG ! Message text CHARACTER( 100 ) :: LINEIN ! Input line CHARACTER( 100 ) :: LINOUT ! Output line CHARACTER( 256 ) :: FNAME ! Name of file to open CHARACTER( 4 ) :: RKOUT ! Output reaction number CHARACTER( 9 ) :: COUT ! Output coefficient CHARACTER( 16 ) :: SPOUT ! Output species name CHARACTER( 16 ) :: LBLOUT ! Output reaction label CHARACTER( 16 ) :: OPOUT ! Output operator name CHARACTER( 16 ) :: RCTOUT ! Output reactant name CHARACTER( 30 ) :: VNAME ! Name of variable to be written CHARACTER( 72 ) :: CLINE ! String of c's INTEGER :: EPOS ! end pos of string INTEGER :: IIN ! Unit no. of input file INTEGER :: IOUT ! Unit no. of output file INTEGER :: E1 ! End pos. of string INTEGER :: E2 ! End pos. of string INTEGER :: NPOS ! Position number INTEGER :: RPOS1 ! Reactant pos. in cmprsd rxn string INTEGER :: RPOS2 ! Reactant pos. in cmprsd rxn string INTEGER :: PPOS1 ! Reactant pos. in cmprsd rxn string INTEGER :: PPOS2 ! Reactant pos. in cmprsd rxn string INTEGER :: IR ! Loop index INTEGER :: N ! Loop index INTEGER :: S ! Loop index INTEGER :: T1 ! Loop index INTEGER :: IND ! Array index INTEGER :: NRX ! Reaction no. INTEGER :: RKNUM ! Reaction index INTEGER :: SPNUM ! Species index INTEGER :: OPNUM ! Operator index LOGICAL :: LRXN1 ! Flag to indicate one term output LOGICAL :: LERROR = .FALSE. ! Error flag LOGICAL :: L_SS_RXN ! Flag to indicate a SS species is a reactant LOGICAL, ALLOCATABLE :: L_SPECIAL_RK( : ) ! Flag to indicate rxn w/ special rate const REAL :: COEFF ! Net prod/loss coefficient REAL :: RCOEF ! Sum of number of molecules of a single reactant REAL :: YCOEF ! Sum of coefficients for a product in one rxn C********************************************************************** ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Initialize variables ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c..Line of c's DO N = 1, 72 CLINE( N : N ) = 'c' END DO ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Open ouput file and code template ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc E1 = LEN_TRIM( OUTPATH ) FNAME = OUTPATH( 1 : E1 ) // '/hrcalc_ss.F' IOUT = JUNIT() OPEN( UNIT = IOUT, FILE = FNAME, ERR = 9000 ) IIN = JUNIT() E1 = LEN_TRIM( TMPLPATH ) FNAME = TMPLPATH( 1 : E1 ) // '/hrcalc_ss.F' OPEN( UNIT = IIN, FILE = FNAME, ERR = 9000 ) IF( LWR_COPY ) CALL WR_COPYRT( IOUT ) IF( LWR_CVS_HDR ) CALL WR_CVSHDR( IOUT ) ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Read, modify, and write first part of code from template ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 100 CONTINUE READ( IIN, 92000, END = 1000 ) LINEIN IF( LINEIN( 1 : 2 ) .EQ. 'R1' ) THEN WRITE( IOUT, 93000 ) TRIM( MECHNAME ) GO TO 100 ELSEIF( LINEIN( 1 : 2 ) .EQ. 'R2' ) THEN WRITE( IOUT, 93020 ) TRIM( CR_DATE ) GO TO 100 ELSEIF( LINEIN( 1 : 2 ) .EQ. 'S1' ) THEN GO TO 1000 ELSE E1 = LEN_TRIM( LINEIN ) WRITE( IOUT, 92000 ) LINEIN( 1 : E1 ) GO TO 100 END IF 1000 CONTINUE cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Flag reactions if they use a special rate constant cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc ALLOCATE( L_SPECIAL_RK( NRXNS ) ) L_SPECIAL_RK = .FALSE. ! Array DO N = 1, NSPECIAL_RXN L_SPECIAL_RK( ISPECIAL( N, 1 ) ) = .TRUE. END DO ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Process each steady-state species one at a time and generate code for c each one that computes its production, loss frequency, and concentration; c then generate code that updates the reaction rate of all reactions c in which this SS species is a reactant ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc DO S = 1, N_SS_SPC WRITE( IOUT, 92000 ) SPOUT = ADJUSTL( SS_SPC( S ) ) WRITE( IOUT, 92100 ) CLINE, SPOUT, CLINE SPNUM = NAME_INDEX( SPOUT, N_SPECIES, SPECIES ) ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Loop over all reactions to get all SS production terms ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc VNAME = 'SS_PROD' LRXN1 = .TRUE. WRITE( IOUT, 92000 ) DO N = 1, MAX_SS_PROD NRX = SS_PROD_RXNS( S, N ) IF( NRX .LE. 0 ) CYCLE COEFF = SS_PROD_COEF( S, N ) NPOS = 30 RPOS1 = 0 RPOS2 = 0 PPOS1 = SPNUM PPOS2 = 0 CALL BLD_OUTLINE( 'RXRAT', VNAME, ' ', 0, COEFF, NRX, GRPNO, & NPOS, LINOUT, LRXN1, RPOS1, RPOS2, PPOS1, PPOS2 ) E1 = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) LRXN1 = .FALSE. END DO c..Error generated if the SS species has no production terms IF( LRXN1 ) THEN WRITE( LOGDEV, 98000 ) SPOUT LERROR = .TRUE. END IF ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Loop over all reactions to get all SS loss frequency terms c If the reaction uses a special rate constant, use RKI; if not c use RKI_SAV ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc LRXN1 = .TRUE. WRITE( IOUT, 92000 ) DO N = 1, MAX_SS_LOSS NRX = SS_LOSS_RXNS( S, N ) IF( NRX .LE. 0 ) CYCLE c..Don't need to calculate rxrat in hrrates if this reaction has a SS reactant L_SS_RXN_FLAG( NRX ) = .TRUE. WRITE( RKOUT, '( I4 )' ) NRX IF( LRXN1 ) THEN IF( L_SPECIAL_RK( NRX ) ) THEN LINOUT = ' SS_LFRQ = RKI( NCELL, ' // RKOUT // ' )' ELSE LINOUT = ' SS_LFRQ = RKI_SAV( NCELL, ' // RKOUT // ' )' END IF ELSE IF( L_SPECIAL_RK( NRX ) ) THEN LINOUT = ' & + RKI( NCELL, ' // RKOUT // ' )' ELSE LINOUT = ' & + RKI_SAV( NCELL, ' // RKOUT // ' )' END IF END IF E1 = LEN_TRIM( LINOUT ) DO IND = 1, NREACT( NRX ) SPOUT = ADJUSTL( SPECIES( IRR( NRX, IND ) ) ) E2 = LEN_TRIM( SPOUT ) LINOUT = LINOUT( 1 : E1 ) // '* YC( NCELL, ' // SPOUT( 1 : E2 ) // ' )' E1 = LEN_TRIM( LINOUT ) END DO WRITE( IOUT, 92000 ) LINOUT( 1 : E1 ) LRXN1 = .FALSE. END DO ! End loop over MAX_SS_LOSS c..Error generated if the SS species has no loss terms IF( LRXN1 ) THEN WRITE( LOGDEV, 98020 ) SPOUT LERROR = .TRUE. END IF ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Generate code that computes the SS species concentration ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc WRITE( IOUT, 92120 ) SPOUT = ADJUSTL( SS_SPC( S ) ) E1 = LEN_TRIM( SPOUT ) LINOUT = ' IF( SS_LFRQ .LE. 0.0 ) SS_LFRQ = MINLOSS' EPOS = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : EPOS ) LINOUT = ' YC( NCELL, ' // SPOUT( 1 : E1 ) // & ' ) = SS_PROD / SS_LFRQ' EPOS = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : EPOS ) LINOUT = ' YC( NCELL, ' // SPOUT( 1 : E1 ) // ' ) = MAX( YC( NCELL, ' // & SPOUT( 1 : E1 ) // ' ), MINCONC )' EPOS = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : EPOS ) ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Generate code that updates reaction rates and rate constants for all c reactions that have this SS species as a reactant; The SS conc is rolled c into the rate constant using RKI for special rate constants and c RKI_SAV for non-special rate constants ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc WRITE( IOUT, 92140 ) c..This section updates reaction rates (rxrat) DO N = 1, MAX_SS_LOSS NRX = SS_LOSS_RXNS( S, N ) IF( NRX .LE. 0 ) CYCLE WRITE( RKOUT, '( I4 )' ) NRX IF( L_SPECIAL_RK( NRX ) ) THEN LINOUT = ' RXRAT( NCELL, ' // RKOUT // ' ) = RKI( NCELL, ' // & RKOUT // ' ) ' ELSE LINOUT = ' RXRAT( NCELL, ' // RKOUT // ' ) = RKI_SAV( NCELL, ' // & RKOUT // ' ) ' END IF EPOS = LEN_TRIM( LINOUT ) c..Loop over all non-SS reactants for this rxn ( must be LE 2 ) DO IR = 1, 2 IND = IRR( NRX, IR ) IF( IND .EQ. 0 ) CYCLE RCTOUT = ADJUSTL( SPECIES( IND ) ) E1 = LEN_TRIM( RCTOUT ) LINOUT = LINOUT( 1 : EPOS ) // ' * YC( NCELL, ' // & RCTOUT( 1 : E1 ) // ' )' EPOS = LEN_TRIM( LINOUT ) END DO c..Add the SS reactant RCTOUT = ADJUSTL( SS_SPC( S ) ) E1 = LEN_TRIM( RCTOUT ) LINOUT = LINOUT( 1 : EPOS ) // ' * YC( NCELL, ' // & RCTOUT( 1 : E1 ) // ' )' EPOS = LEN_TRIM( LINOUT ) WRITE( IOUT, 92000 ) LINOUT( 1 : EPOS ) END DO ! Loop over reactions c..This section writes code to update rate constants DO N = 1, MAX_SS_LOSS NRX = SS_LOSS_RXNS( S, N ) IF( NRX .LE. 0 ) CYCLE WRITE( RKOUT, '( I4 )' ) NRX IF( L_SPECIAL_RK( NRX ) ) THEN LINOUT = ' RKI( NCELL, ' // RKOUT // ' ) = RKI( NCELL, ' // & RKOUT // ' ) * YC( NCELL, ' // RCTOUT( 1 : E1 ) // ' )' EPOS = LEN_TRIM( LINOUT ) ELSE LINOUT = ' RKI( NCELL, ' // RKOUT // ' ) = RKI_SAV( NCELL, ' // & RKOUT // ' ) * YC( NCELL, ' // RCTOUT( 1 : E1 ) // ' )' EPOS = LEN_TRIM( LINOUT ) END IF WRITE( IOUT, 92000 ) LINOUT( 1 : EPOS ) END DO ! Loop over reactions END DO ! Loop over SS species WRITE( IOUT, 95100 ) IF( LERROR ) THEN MSG = 'STOPPING because of errors in processing steady-state species' WRITE(LOGDEV,'(a)')TRIM( PNAME ) // ': ' // TRIM( MSG ) STOP END IF CLOSE( IIN ) CLOSE( IOUT ) NOUTFLS = NOUTFLS + 1 OUTFLNAM( NOUTFLS ) = 'hrcalc_ss.F' DEALLOCATE( L_SPECIAL_RK ) RETURN 9000 CONTINUE MSG = 'ERROR: Could not open ' // FNAME( 1 : LEN_TRIM( FNAME ) ) WRITE(LOGDEV,'(a)')TRIM( PNAME ) // ': ' // TRIM( MSG ) STOP 92000 FORMAT( A ) 92100 FORMAT( / A / 'c SS Species: ', A / A ) 92120 FORMAT( /'c..compute steady-state concentration' ) 92140 FORMAT( /'c..update reaction rates with the computed SS species conc ' ) 93000 FORMAT( 'C PRECONDITIONS: For the ', A, ' mechanism' ) 93020 FORMAT( 'C REVISION HISTORY: Created by EBI solver program, ', A ) 95000 FORMAT( 6X, 'REAL ', A ) 95100 FORMAT( 6X, 'RETURN' // 6X, 'END' ) 98000 FORMAT( 'ERROR: The following steady-state species has no production term: ', A ) 98020 FORMAT( 'ERROR: The following steady-state species has no loss term: ', A ) END ================================================ FILE: UTIL/create_ebi/template_RXNSU_OPT/copyright.txt ================================================ C*********************************************************************** C Portions of Models-3/CMAQ software were developed or based on * C information from various groups: Federal Government employees, * C contractors working on a United States Government contract, and * C non-Federal sources (including research institutions). These * C research institutions have given the Government permission to * C use, prepare derivative works, and distribute copies of their * C work in Models-3/CMAQ to the public and to permit others to do * C so. EPA therefore grants similar permissions for use of the * C Models-3/CMAQ software, but users are requested to provide copies * C of derivative works to the Government without restrictions as to * C use by others. Users are responsible for acquiring their own * C copies of commercial software associated with Models-3/CMAQ and * C for complying with vendor requirements. Software copyrights by * C the MCNC Environmental Modeling Center are used with their * C permissions subject to the above restrictions. * C*********************************************************************** ================================================ FILE: UTIL/create_ebi/template_RXNSU_OPT/cvs_header.txt ================================================ C RCS file, release, date & time of last delta, author, state, [and locker] C $Header$ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% ================================================ FILE: UTIL/create_ebi/template_RXNSU_OPT/hrdata_mod.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! MODULE HRDATA C************************************************************************* C C FUNCTION: Mechanism & solver data for EBI solver C R1 PRECONDITIONS: For CB4 family of mechanisms only C C KEY SUBROUTINES/FUNCTIONS CALLED: None C R2 REVISION HISTORY: Prototype created by Jerry Gipson, April, 2003 C C 18 Jul 14 B.Hutzell: revised to use real(8) variables for solution C************************************************************************* c..EBI solver fixed parameters INTEGER, PARAMETER :: NEBITER = 1000 ! No. of iterations for EBI INTEGER, PARAMETER :: MAX_CELLS_EBI = 1 ! max # cells in local conc arrays R6 REAL( 8 ), PARAMETER :: DELTAT = 2.500D+00 ! EBI time step c..Mechanism specific variables INTEGER N_SPEC ! No. of species in mechanism INTEGER N_RXNS ! No. of reactions in mechanism INTEGER N_EBISP ! No. of species solved by EBI INTEGER NING1 ! No. of species in group 1 INTEGER NING2 ! No. of species in group 2 INTEGER N_SPCL_RKS ! No. of special rate constants INTEGER N_ACTSP ! No. of species in mechanism (non-ss spec) INTEGER NCELL ! cell number in EBI Block c..Control flags LOGICAL L_AE_VRSN ! Flag for aerosol version of mech LOGICAL L_AQ_VRSN ! Flag for aqueous chemistry version of mech LOGICAL CALL_IRR ! Flag initializing for IRR and calling PA_IRR R5! SWITCH for calling DEGRADE routine R5 LOGICAL, SAVE :: CALL_DEG = .TRUE. c..Miscellaneous variables INTEGER N_EBI_IT ! No. of iterations for EBI INTEGER N_EBI_STEPS ! No. of time steps for EBI INTEGER N_INR_STEPS ! No. of inner time steps for EBI INTEGER PECOL_OFFSET ! Local Column Offset for processor INTEGER PEROW_OFFSET ! Local Column Offset for processor R5 R5 INTEGER, SAVE :: MODEL_SPECIES ! No. of species in CGRID REAL( 8 ) EBI_TMSTEP ! Time step for EBI loops (min) REAL( 8 ) CHEMSTEP ! Chemistry integration interval (min) c...Allocatable arrays INTEGER, ALLOCATABLE :: EBISP( : ) ! Index of EBI species INTEGER, ALLOCATABLE :: SSASP( : ) ! Index of ss species INTEGER, ALLOCATABLE :: ACTSP( : ) ! Index of active species INTEGER, ALLOCATABLE :: IOLD2NEW( :,: ) ! YC species map, used if NSPECIAL > 0 REAL( 8 ), ALLOCATABLE :: RKI( : ) ! Rate constants REAL( 8 ), ALLOCATABLE :: RKI_SAV( :, : ) ! Saved values of RKI for SS species calcs REAL( 8 ), ALLOCATABLE :: YC ( : ) ! Species concentrations REAL( 8 ), ALLOCATABLE :: YC0( : ) ! Species concentrations REAL( 8 ), ALLOCATABLE :: YCP( : ) ! Species concentrations REAL( 8 ), ALLOCATABLE :: SYC( :, : ) ! Species concentrations REAL, ALLOCATABLE :: FORWARD_CONV( : ) ! CGRID to CHEM Species conversion factor REAL, ALLOCATABLE :: REVERSE_CONV( : ) ! CHEM to CGRID Species conversion factor REAL( 8 ), ALLOCATABLE :: RXRAT( : ) ! Reaction rates REAL( 8 ), ALLOCATABLE :: RTOL( : ) ! Species tolerances R5 REAL( 8 ), ALLOCATABLE :: YCCELL( : ) ! ALL Species in cgrid REAL( 8 ), ALLOCATABLE :: PROD( : ) ! Prod of species REAL( 8 ), ALLOCATABLE :: LOSS( : ) ! Loss of species R3 REAL( 8 ), ALLOCATABLE :: PNEG( : ) ! Negative production rates REAL, ALLOCATABLE :: PRES( :, :, : ) ! pressure (Pa) REAL, ALLOCATABLE :: QV ( :, :, : ) ! water vapor (Kg/Kg air) REAL, ALLOCATABLE :: TA ( :, :, : ) ! temperature (K) REAL, ALLOCATABLE :: SEAICE ( :, :) ! fractional seaice cover, [-] REAL, ALLOCATABLE :: DENS( :, :, : ) ! mass density (Kg/m^3) REAL, ALLOCATABLE :: SEAWATER_ZONE ( :,: ) ! fractional area of OPEN+SURF LOGICAL, ALLOCATABLE :: LFLAGIRR ( :,:,: ) ! Conduct IRR for cell REAL( 8 ), ALLOCATABLE :: ATMPRES ( : ) ! Cell pressure, Atm ! REAL( 8 ), ALLOCATABLE :: PRESCELL( : ) ! Cell pressure, Pa REAL( 8 ), ALLOCATABLE :: H2O ( : ) ! Cell H2O mixing ratio (ppmV) REAL( 8 ), ALLOCATABLE :: TEMP ( : ) ! Cell Temperature REAL( 8 ), ALLOCATABLE :: DENSITY ( : ) ! Cell mass density (Kg/m3) REAL( 8 ), ALLOCATABLE :: HET ( :, : ) ! cell heterogeneous reaction rates REAL( 8 ), ALLOCATABLE :: RJIN ( :, : ) ! J-values for a cell REAL( 8 ), ALLOCATABLE :: SEAWATER ( : ) ! fractional area of OPEN+SURF for specific cell ================================================ FILE: UTIL/create_ebi/template_RXNSU_OPT/hrdriver.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE CHEM( CGRID, JDATE, JTIME, TSTEP ) C********************************************************************** C C FUNCTION: Driver subroutine for Euler Backward Iterative solver C R1 PRECONDITIONS: For the SAPRC99 family of mechanisms only C C KEY SUBROUTINES/FUNCTIONS CALLED: HRINIT, HRCALCKS, HRSOLVER R5C FIND_DEGRADED, INIT_DEGRADE, FINAL_DEGRADE C R2 REVISION HISTORY: Prototype created by Jerry Gipson, September, 2003 C Based on the algorithm in "Test of Two Numerical C Schemes for Use in Atmospheric Transport-Chemistry C Models", O. Hertel, R. Berkowicz, J. Christensen, C and O. Hov, Atm Env., Vol. 27A, No. 16, 1993. C Original MEBI code developed by Ho-Chun Huang, C SUNY, Albany -- "On the performance of numerical C solvers for a chemistry submodel in three-dimensional C air quality models 1. Box model simulations", C H. Huang and J.S. Chang, JGR, Vol 106, No. D17, 2001. C This version replaces Huang and Chang use of numerical C solutions with analytical solutions derived in C Hertel et al. C 21 Jun 10 J.Young: convert for Namelist redesign C 11 May 11 D.Wong: incorporated twoway model implementation C 27 Sep 11 B.Hutzell: revised method for defining CALL_DEG variable C 18 Jul 14 B.Hutzell: revised: 1) to use the RXNS_DATA and RXNS_FUNCTION C modules instead of include files, 2) to enable C reactions between species types, 3) to calculate C heterogeneous rate constants via AEROSOL_CHEMISTRY C module, 4) to replace call to HRCALCKS with C subroutine in RXNS_FUNCTION module and 5) to change C how degrade routines are used, if present C 02 Dec 14 B.Hutzell: 1) added terrestrial data to conduct surface C dependent reactions and 2) modified the call CALC_RCONST C routine C 01 Feb 19 D.Wong: Implemented centralized I/O approach, removed all MY_N C clauses C********************************************************************** USE HGRD_DEFN ! horizontal domain specifications USE VGRD_DEFN ! vertical layer specifications USE CGRID_SPCS ! CGRID mechanism species USE UTILIO_DEFN ! IOAPI parameters and functions declarations USE RXNS_DATA USE AEROSOL_CHEMISTRY USE RXNS_FUNCTION #ifdef isam USE SA_IRR_DEFN USE SA_DEFN #endif USE HRDATA USE PHOT_MOD, Only: INIT_PHOT_SHARED, RJ ! photolysis rate, in-line module USE PA_DEFN, Only: LIRR ! Process Analysis control and data variable USE PA_IRR_CLT R5#ifndef isam R5 USE DEGRADE_ROUTINES, ONLY : N_REACT, RXTANT_MAP, DEG_LAY, DEG_COL, DEG_ROW, R5 & FIND_DEGRADED, INIT_DEGRADE, FINAL_DEGRADE R5#else R5 USE DEGRADE_ROUTINES, ONLY : N_REACT, RXTANT_MAP, SA_DEGRADE_EXTRACT, R5 & FIND_DEGRADED, INIT_DEGRADE, FINAL_DEGRADE, R5 & SA_DEGRADE_UPLOAD, DEG_LAY, DEG_COL, DEG_ROW R5#endif USE CENTRALIZED_IO_MODULE, ONLY : INTERPOLATE_VAR, OCEAN, SZONE #ifdef sens USE DDM3D_CHEM Use DDM3D_DEFN, Only: DATENUM, STARTDATE, IPT, IDATE, HIGH, NP, NPMAX, CKTIME #endif IMPLICIT NONE C..Includes: INCLUDE SUBST_FILES_ID ! CMAQ files INCLUDE SUBST_CONST ! CMAQ constants INCLUDE SUBST_EMISPRM ! Emissions processing control parameters C..Arguments: REAL, POINTER :: CGRID( :,:,:,: ) ! Species concentrations INTEGER JDATE ! Current date (YYYYDDD) INTEGER JTIME ! Current time (HHMMSS) INTEGER TSTEP( 3 ) ! Time step vector (HHMMSS) C..Parameters: REAL( 8 ), PARAMETER :: DCONMIN = 1.0D-30 ! minimum species concentration allowed REAL, PARAMETER :: CONCMIN = 1.0E-30 ! minimum species concentration allowed REAL, PARAMETER :: MAOMV = 1.0E6 * MWAIR / MWWAT ! Mol Wt of air over Mol Wt of water times 1.0E6 C..External Functions: C..Saved Local Variables: CHARACTER( 16 ), SAVE :: PNAME = 'HRDRIVER' ! Program name INTEGER, SAVE :: ISTFL ! Unit no. of iteration stat output file LOGICAL, SAVE :: LFIRST = .TRUE. ! Flag for first call to this subroutine REAL( 8 ), SAVE :: PA2ATM ! Pascal to atm conv fac C..Scratch Local Variables: CHARACTER( 132 ) :: MSG ! Message text CHARACTER( 16 ) :: VNAME ! Name of I/O API data variable INTEGER C, E, L, R, S ! Loop indices INTEGER ISP ! array index INTEGER AVGEBI ! Average no. of EBI iterations INTEGER DELT_SEC ! EBI max time step in seconds INTEGER ESP ! Loop index for emissions species INTEGER ITMSTEP ! Chemistry integration interval (sec) INTEGER LEV ! Layer index INTEGER MIDDATE ! Date at time step midpoint INTEGER MIDTIME ! Time at time step midpoint INTEGER NPH ! Index for number of phot. rxns in PHOT INTEGER SPC ! Species loop index #ifdef hrstats INTEGER MNEBI ! Min no. of EBI iterations INTEGER MXEBI ! Max no. of EBI iterations #endif LOGICAL LSUNLIGHT ! Flag for sunlight REAL INV_DENS ! reciprocal of air mass density, m3/Kg #ifdef hrstats REAL SUMEBI ! Sum of EBI iterations #endif INTERFACE SUBROUTINE HRSOLVER( JDATE, JTIME, C, R, L ) R0 INTEGER, INTENT( IN ) :: JDATE ! Current date (YYYYDDD) INTEGER, INTENT( IN ) :: JTIME ! Current time (HHMMSS) INTEGER, INTENT( IN ) :: C, R, L ! Cell col, row, lev END SUBROUTINE HRSOLVER SUBROUTINE HETCHEM_UPDATE_AERO( CGRID ) REAL, POINTER :: CGRID( :,:,:,: ) ! species concentration in cell END SUBROUTINE HETCHEM_UPDATE_AERO END INTERFACE C********************************************************************** IF( NUMB_MECH_SPC .EQ. 0 ) RETURN ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c On first call, call routines to set-up for EBI solver ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc IF( LFIRST ) THEN R3 IF( MECHNAME .NE. 'SAPRC99 ' .AND. R3 & MECHNAME .NE. 'SAPRC99_AQ ' .AND. R3 & MECHNAME .NE. 'SAPRC99_AE ' .AND. R3 & MECHNAME .NE. 'SAPRC99_AE2 ' .AND. R3 & MECHNAME .NE. 'SAPRC99_AE3 ' .AND. R3 & MECHNAME .NE. 'SAPRC99_AE4 ' .AND. R3 & MECHNAME .NE. 'SAPRC99_AE_AQ ' .AND. R3 & MECHNAME .NE. 'SAPRC99_AE2_AQ ' .AND. R3 & MECHNAME .NE. 'SAPRC99_AE3_AQ ' ) THEN R3 & MECHNAME .NE. 'SAPRC99_AE4_AQ ' ) THEN MSG = 'This version of the EBI solver can only be used with' R4 & // ' the SAPRC99 chemical mechanisms' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF #ifdef emis_chem EMISVD = .FALSE. #else EMISVD = .TRUE. #endif IF( INDEX( MECHNAME, 'AE' ) .NE. 0 ) THEN L_AE_VRSN = .TRUE. ELSE L_AE_VRSN = .FALSE. END IF IF( INDEX( MECHNAME, 'AQ' ) .NE. 0 ) THEN L_AQ_VRSN = .TRUE. ELSE L_AQ_VRSN = .FALSE. END IF IF( LIRR ) THEN CALL_IRR = .TRUE. ELSE CALL_IRR = .FALSE. END IF R5 MODEL_SPECIES = NSPCSD ! WTH: find number of model species R5 R5! Determine whether DEGRADE rountines are needed. R5 R5 CALL FIND_DEGRADED( JDATE, JTIME, CALL_DEG ) R5 IF( CALL_DEG )THEN R5 WRITE(LOGDEV,*)'TX DEGRADE ROUTINES USED' R5 WRITE(LOGDEV,*)'Mechanism contains degraded species' R5#ifdef verbose_gas R5 ELSE R5 WRITE(LOGDEV,*)'TX DEGRADE ROUTINES OMITTED' R5 WRITE(LOGDEV,*)'MECHANISM does not include degraded species' R5#endif R5 END IF CALL HRINIT ITMSTEP = TIME2SEC( TSTEP( 2 ) ) CHEMSTEP = REAL( ITMSTEP, 8 ) / 60.0D0 WRITE( LOGDEV, 92000 ) CHEMSTEP, DELTAT WRITE( LOGDEV, 92020 ) DO SPC = 1, NUMB_MECH_SPC WRITE( LOGDEV, 92040 ) CHEMISTRY_SPC( SPC ), RTOL( SPC ) END DO PA2ATM = REAL( 1.0 / STDATMPA, 8) c..If emissions processing requested stop IF( .NOT. EMISVD ) THEN ! assumes emis processing in gas chem MSG = 'ERROR: EBI solver not configured to '// & 'process emissions in chemistry' CALL M3EXIT( PNAME, JDATE, JTIME, MSG, XSTAT1 ) END IF ! End if doing emissions #ifdef hrstats ISTFL = JUNIT() OPEN( UNIT=ISTFL, FILE='iterstat.dat' ) WRITE( ISTFL, 94020 ) #endif C Define processor offsets PECOL_OFFSET = COLSD_PE( 1, MYPE+1 ) - 1 PEROW_OFFSET = ROWSD_PE( 1, MYPE+1 ) - 1 ALLOCATE( SEAWATER_ZONE( NCOLS, NROWS ) ) DO R = 1, NROWS DO C = 1, NCOLS SEAWATER_ZONE( C,R ) = OCEAN( C,R ) + SZONE( C,R ) END DO END DO ALLOCATE( DENS( NCOLS, NROWS, NLAYS ), PRES( NCOLS, NROWS, NLAYS ), & QV ( NCOLS, NROWS, NLAYS ), TA ( NCOLS, NROWS, NLAYS ), & SEAICE( NCOLS, NROWS ) ) C..Initialize shared photolysis data CALL INIT_PHOT_SHARED() C..Determine which cells need IRR ALLOCATE( LFLAGIRR ( NCOLS, NROWS, NLAYS ) ) CALL PA_IRR_CKCELLS ( LFLAGIRR ) #ifdef isam NUMB_ISAM_CELLS = 1.0D0 / ( NCOLS * NROWS * NLAYS ) CALL SA_IRR_INIT #endif #ifdef sens CALL INIT_DDM3D_CHEM() C For higher order sensitivities IF ( HIGH ) THEN DO RXN = 1, NRXNS IF( NREACT( RXN ) .EQ. 1 ) THEN ORDER1( RXN ) = .TRUE. ELSE ORDER1( RXN ) = .FALSE. END IF END DO END IF #endif LFIRST = .FALSE. END IF ! First time ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc C Set date and time to center of time step, get necessary physical C data ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc MIDDATE = JDATE MIDTIME = JTIME ITMSTEP = TIME2SEC( TSTEP( 2 ) ) CHEMSTEP = REAL( ITMSTEP, 8 ) / 60.0D0 CALL NEXTIME( MIDDATE, MIDTIME, SEC2TIME( ITMSTEP / 2 ) ) C.. Compute number of time step loops and step size for EBI solver DELT_SEC = INT( DELTAT * 60.0D0 + 0.1D0 ) IF( DELT_SEC .GE. ITMSTEP ) THEN N_EBI_STEPS = 2 EBI_TMSTEP = 0.5D0 * CHEMSTEP ELSE IF( MOD( ITMSTEP, DELT_SEC ) .EQ. 0 ) THEN N_EBI_STEPS = ITMSTEP / DELT_SEC ELSE N_EBI_STEPS = ITMSTEP / DELT_SEC + 1 END IF EBI_TMSTEP = CHEMSTEP / REAL( N_EBI_STEPS, 8 ) END IF N_INR_STEPS = 1 C.. Get fractional seaice coverage from the METCRO2D file. CALL INTERPOLATE_VAR ('SEAICE', MIDDATE, MIDTIME, SEAICE) C.. Get ambient temperature in K CALL INTERPOLATE_VAR ('TA', MIDDATE, MIDTIME, TA) C.. Get specific humidity in Kg H2O / Kg air CALL INTERPOLATE_VAR ('QV', MIDDATE, MIDTIME, QV) ! Get ambient MASS DENSITY in Kg/m^3 CALL INTERPOLATE_VAR ('DENS', MIDDATE, MIDTIME, DENS) C.. Get pressure in Pascals CALL INTERPOLATE_VAR ('PRES', MIDDATE, MIDTIME, PRES) C.. Get Heteorogeneous rates and Update Aerosol Distribution Properties CALL HETCHEM_RATES( TA, PRES, QV, CGRID, DENS ) #ifdef sens DATENUM = 1 + JDATE - STARTDATE ! Set the date and hour counters used in sensitivity calls C For reaction rate sensitivities DO NP = 1, NPMAX IF ( IPT( NP ) .EQ. 5 ) THEN CALL CKTIME( JDATE,JTIME,NP,RXNFLAG(NP) ) ! Rxnflag set to true iff ipt=5 and time, date within bounds IF ( IDATE( NP, DATENUM ) .NE. 1 ) RXNFLAG( NP ) = .FALSE. ELSE RXNFLAG( NP ) = .FALSE. END IF END DO #endif sens ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Top of loop over cells ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc #ifdef hrstats MNEBI = 1000 MXEBI = 0 SUMEBI = 0.0 #endif NCELL = 1 DO L = 1, NLAYS DO R = 1, NROWS DO C = 1, NCOLS R5 DEG_LAY = L R5 DEG_ROW = R R5 DEG_COL = C c..reset CALL_IRR based on cell's values CALL_IRR = LFLAGIRR( C,R,L ) c..Load ICs INV_DENS = 1.0 / DENS( C,R,L ) DO SPC = 1, NUMB_MECH_SPC S = CGRID_INDEX( SPC ) IF( CONVERT_CONC( SPC ) )THEN YC( SPC ) = REAL( MAX( CONCMIN, & INV_DENS*FORWARD_CONV( SPC )*CGRID( C,R,L,S )), 8 ) ELSE YC( SPC ) = REAL( MAX( CGRID( C,R,L,S ), CONCMIN), 8 ) END IF END DO R5 IF(CALL_DEG)THEN ! INITIALIZE degradation routines R5 R5 YCCELL = 0.0D0 R5 DO S = 1, MODEL_SPECIES R5 YCCELL( S ) = REAL( CGRID(C,R,L,S), 8) R5 END DO R5 CALL INIT_DEGRADE(YCCELL,TA(C,R,L),DENS(C,R,L),PRES(C,R,L),QV(C,R,L),RJIN(NCELL,:), R5 & JDATE, JTIME) R5 R5#ifdef isam R5 CALL SA_DEGRADE_EXTRACT( C,R,L,DENS(C,R,L) ) R5#endif R5 END IF c..Set physical quantities TEMP( NCELL ) = REAL( TA( C,R,L ), 8) DENSITY( NCELL ) = REAL( DENS( C,R,L ), 8) ! PRESCELL( NCELL ) = REAL( PRES( C,R,L ), 8) ATMPRES( NCELL ) = PA2ATM * REAL( PRES( C,R,L ), 8) H2O( NCELL ) = REAL( MAX ( MAOMV * QV( C,R,L ), 0.0 ), 8) SEAWATER (NCELL) = MAX ( 0.0D0, ( REAL( SEAWATER_ZONE( C,R ) - SEAICE (C,R) ,8) ) ) c..Get rate constants LSUNLIGHT = .FALSE. FORALL( NPH = 1:NPHOTAB ) RJIN( NCELL,NPH ) = REAL( RJ( C,R,L,NPH ), 8) IF( MAXVAL(RJIN) .GT. 0.0D0 ) LSUNLIGHT = .TRUE. FORALL ( NPH = 1:NHETERO )HET( NCELL,NPH ) = REAL( KHETERO( NPH,C,R,L ), 8) CALL CALC_RCONST( TEMP, ATMPRES, H2O, RJIN, HET, LSUNLIGHT, SEAWATER, RKI_SAV, NCELL ) FORALL( NPH = 1:NRXNS )RKI( NPH ) = RKI_SAV( NCELL, NPH ) #ifdef isam #if defined(isam) || defined(verbose_isam) C...For diagnosing IRR calculations in log files IF( CHECK_ISAM )THEN WRITE_CELL = .FALSE. IF( C .EQ. MAX(1, NCOLS/2) .AND. R .EQ. MAX(1,NROWS/2) .AND. L .EQ. 1 )THEN WRITE_CELL = .TRUE. WRITE(LOGDEV,*)'WRITE_CELL = .TRUE.' ELSE WRITE_CELL = .FALSE. END IF END IF #endif CALL SA_IRR_EXTRACT( C, R, L, DENS( C,R,L ),YC ) #endif c..Call EBI solver N_EBI_IT = 0 CALL HRSOLVER( JDATE, JTIME, C, R, L ) #ifdef hrstats MXEBI = MAX( MXEBI, N_EBI_IT ) MNEBI = MIN( MNEBI, N_EBI_IT ) SUMEBI = SUMEBI + REAL( N_EBI_IT ) #endif c..Update concentration array DO SPC = 1, NUMB_MECH_SPC S = CGRID_INDEX( SPC ) IF( CONVERT_CONC( SPC ) )THEN CGRID( C,R,L,S ) = REAL( REVERSE_CONV( SPC ) * DENS( C,R,L ) & * MAX( YC( SPC ), DCONMIN), 4) ELSE CGRID( C,R,L,S ) = REAL( MAX( YC( SPC ), DCONMIN), 4) END IF END DO R5 IF(CALL_DEG)THEN ! WTH: update based on degrade routines R5 CALL FINAL_DEGRADE(YCCELL) R5 UPDATE_DEGRADED: DO SPC = 1, N_REACT R5 ISP = RXTANT_MAP( SPC ) R5 IF( ISP .LE. 0 )CYCLE UPDATE_DEGRADED R5 DO S = 1, NUMB_MECH_SPC R5 IF( CGRID_INDEX( S ) .EQ. ISP )CYCLE UPDATE_DEGRADED R5 END DO R5 CGRID(C,R,L,ISP) = REAL( YCCELL(ISP), 4) R5 END DO UPDATE_DEGRADED R5#ifdef isam R5 CALL SA_DEGRADE_UPLOAD( C,R,L,DENS(C,R,L) ) R5#endif R5 END IF #ifdef isam CALL SA_IRR_UPLOAD( C, R, L, DENS( C,R,L ), YC ) #endif c..update irrout arrays if needed IF ( LFLAGIRR( C,R,L ) )CALL PA_IRR_CELLENDF( C, R, L ) #ifdef sens DO RXN = 1, NRXNS SRK( RXN ) = RKI( RXN ) IF ( HIGH ) THEN IF ( ORDER1 (RXN ) ) THEN SRK2( RXN ) = 0.0 ELSE SRK2( RXN ) = RKI( RXN ) END IF END IF END DO CALL SOLVE_DDM3D_CHEM( C,R,L,CHEMSTEP ) #endif END DO END DO END DO ! Update Aerosol Surface Area CALL HETCHEM_UPDATE_AERO( CGRID ) #ifdef hrstats AVGEBI = SUMEBI / REAL( NCOLS * NROWS * NLAYS ) WRITE( ISTFL, 94040 ) JDATE, JTIME, MNEBI, AVGEBI, MXEBI #endif RETURN C*********************** FORMAT STATEMENTS **************************** 92000 FORMAT( / 10X, 'Euler Backward Iterative Parameters -' & / 10X, 'Chemistry Integration Time Interval (min):', F12.4, & / 10X, 'EBI maximum time step (min): ', F12.4 ) 92020 FORMAT( //10X, 'Species convergence tolerances:' ) 92040 FORMAT( 10X, A16, 2X, 1PE12.2 ) 92060 FORMAT( / 10X, 'Emissions Processing in Chemistry ...' & / 10X, 'Number of Emissions Layers: ', I3 & / 10X, 'out of total Number of Model Layers:', I3 ) 94020 FORMAT( 'DATE TIME ', 'MNEBI AVEBI MXEBI' ) 94040 FORMAT( I7, 1X, I6, 1X, 3( I5, 1X ) ) END ================================================ FILE: UTIL/create_ebi/template_RXNSU_OPT/hrg1.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE HRG1( DTC ) C********************************************************************** C C FUNCTION: To solve for the concentration of NO2, NO, O3, and O3P C algebraically. C R1 PRECONDITIONS: For SAPRC99 family of mechanisms only C C KEY SUBROUTINES/FUNCTIONS CALLED: None C R2 REVISION HISTORY: Prototype created by Jerry Gipson, January, 2003 C C 18 Jul 14 B.Hutzell: revised to use real(8) variables C 01 Jun 18 B.Hutzell: replaced steady solution for O1D with backward Euler C approximation. To match conditions where the initial C concentration cannot be neglected. C********************************************************************** USE HRDATA IMPLICIT NONE C..INCLUDES: None C..ARGUMENTS: REAL( 8 ), INTENT( IN ) :: DTC ! Time step C..PARAMETERS: None C..EXTERNAL FUNCTIONS: NONE C..SAVED LOCAL VARIABLES: ! CHARACTER( 16 ), SAVE :: PNAME = 'HRG1' ! Prgram Name C..SCRATCH LOCAL VARIABLES: REAL( 8 ) :: O1D_S ! sum of O1D loss frequencies REAL( 8 ) :: O3P_S ! stoich coeff for O3P from O1D RE REAL( 8 ) :: EXN_S ! sum of NO2EX loss frequencies RE REAL( 8 ) :: NO2_S ! stoich coeff for NO2 from NO2EX REAL( 8 ) :: R1_2 ! production term for NO from NO2 REAL( 8 ) :: R2_1 ! production term for NO2 from NO REAL( 8 ) :: P1, P2, P3, P12 ! production terms for NO, NO2, O3, & O3P REAL( 8 ) :: L1, L2, L3, L12 ! loss terms for NO, NO2, O3, O3P REAL( 8 ) :: L1_INV, L2_INV, & L3_INV, L12_INV ! inverse of loss terms REAL( 8 ) :: T1, T2, T3, T4, T5 ! intermerdiate terms REAL( 8 ) :: F1, F2, F3 ! intermerdiate terms REAL( 8 ) :: A, B, C ! coefficients for quadratic equation REAL( 8 ) :: Q, XX, S1, S2 ! intermerdiate terms REAL( 8 ) :: RK1, RK2, RK3 ! rate constants REAL( 8 ) :: PO3 ! temp variable for O3 C********************************************************************** S1 cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c O1D2 Section c 1) sum of the rate constants for all O1D loss reactions c 2) get fractional yield of O3P from O1D loss cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc O1D_DNM = RKI( 19 ) + RKI( 20 ) O3P_S = RKI( 20 ) / O1D_DNM cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c NO Section c R1_2 = production of NO from NO2 ( rates of form k[NO2][x] ) c except NO2+NO3=NO+NO2 (it is treated as if it were NO3=NO ) c P1 = remaining NO production terms c L1 = loss of NO (except rxns producing NO2 - they are in R2_1) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc R1_2 = RKI( 1 ) ! NO2+hv=NO & + RKI( 5 ) * YC( O3P ) ! NO2+O3P=NO R1_2 = R1_2 * DTC P1 = RXRAT( 14 ) ! NO2+NO3=NO+NO2 & + RXRAT( 15 ) ! NO3+hv=NO & + RXRAT( 22 ) ! HONO+hv=NO P1 = YC0( NCELL, NO ) + P1 * DTC L1 = RKI( 21 ) * YC( HO ) ! NO+HO=HONO & + RKI( 23 ) * YC( RO2_N ) ! NO+RO2_N=RNO3 L1 = 1.0D0 + L1 * DTC cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c NO2 Section c R2_1 = production of NO2 from NO ( rates of form k[NO][x] ) c a) NO+O3=NO2 not included c b) NO+NO3=2NO2 ( 1/2 of rate included ) c c) NO3+NO2=NO+NO2 is not included for NO2 c P2 = remaining NO2 production terms c a) NO+O3=NO2 not included c b) NO+NO3=2NO2 (1/2 of rate included ) c L2 = loss of NO2 (except rxns producing NO2 - they are in R1_2) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc R2_1 = RKI( 4 ) * YC( O3P ) ! NO+O3P=NO2 & + RKI( 9 ) * YC( NO3 ) ! NO+NO3=2*NO2 (1/2) & + 2.000D0 * RKI( 10 ) * YC( NO ) ! NO+NO=2*NO2 & + RKI( 31 ) * YC( HO2 ) ! NO+HO2=NO2 & + RKI( 46 ) * YC( C_O2 ) ! NO+C_O2=NO2 & + RKI( 51 ) * YC( RO2_R ) ! NO+RO2_R=NO2 & + RKI( 56 ) * YC( R2O2 ) ! NO+R2O2=NO2 & + RKI( 62 ) * YC( RO2_N ) ! NO+RO2_N=NO2 & + RKI( 71 ) * YC( CCO_O2 ) ! NO+CCO_O2=NO2 & + RKI( 81 ) * YC( RCO_O2 ) ! NO+RCO_O2=NO2 & + RKI( 92 ) * YC( BZCO_O2 ) ! NO+BZCO_O2=NO2 & + RKI( 104 ) * YC( MA_RCO3 ) ! NO+MA_RCO3=NO2 & + RKI( 128 ) * YC( HOCOO ) ! NO+HOCOO=NO2 R2_1 = R2_1 * DTC P2 = RXRAT( 10 ) ! NO+NO3=2*NO2 (1/2) & + RXRAT( 12 ) ! N2O5=NO2 & + RXRAT( 16 ) ! NO3+hv=NO2 & + RXRAT( 23 ) ! HONO+hv=NO2 & + RXRAT( 24 ) ! HONO+HO=NO2 & + RXRAT( 26 ) ! NO3+HO=NO2 & + RXRAT( 28 ) ! HNO3+hv=NO2 & + RXRAT( 33 ) ! HNO4=NO2 & + 0.610D0 * RXRAT( 34 ) ! HNO4+hv=0.610*NO2 & + RXRAT( 35 ) ! HNO4+HO=NO2 & + 0.800D0 * RXRAT( 39 ) ! NO3+HO2=0.800*NO2 & + 2.000D0 * RXRAT( 40 ) ! NO3+NO3=2*NO2 & + RXRAT( 48 ) ! NO3+C_O2=NO2 & + RXRAT( 58 ) ! NO3+RO2_R=NO2 & + RXRAT( 65 ) ! NO3+RO2_N=NO2 & + RXRAT( 70 ) ! PAN=NO2 & + RXRAT( 73 ) ! NO3+CCO_O2=NO2 & + RXRAT( 80 ) ! PAN2=NO2 & + RXRAT( 83 ) ! NO3+RCO_O2=NO2 & + RXRAT( 91 ) ! PBZN=NO2 & + RXRAT( 94 ) ! NO3+BZCO_O2=NO2 & + RXRAT( 103 ) ! MA_PAN=NO2 & + RXRAT( 106 ) ! NO3+MA_RCO3=NO2 & + 0.338 * RXRAT( 176 ) ! RNO3+HO=0.338*NO2 & + RXRAT( 177 ) ! RNO3+hv=NO2 & + 0.187 * RXRAT( 191 ) ! NO3+ISOPRENE=0.187*NO2 & + 0.474 * RXRAT( 195 ) ! NO3+TRP1=0.474*NO2 & + 0.391D0 * RXRAT( 210 ) ! NO3+OLE2=0.391*NO2 P2 = YC0( NCELL, NO2 ) + P2 * DTC L2 = RKI( 6 ) * YC( O3P ) ! NO2+O3P=NO3 & + RKI( 9 ) * YC( O3 ) ! NO2+O3=NO3 & + RKI( 12 ) * YC( NO3 ) ! NO2+NO3=N2O5 & + RKI( 25 ) * YC( NO ) ! NO2+OH=HNO3 & + RKI( 32 ) * YC( HO2 ) ! NO2+HO2=HNO4 & + RKI( 69 ) * YC( CCO_O2 ) ! NO2+CCO_O2=PAN & + RKI( 79 ) * YC( RCO_O2 ) ! NO2+RCO_O2=PAN2 & + RKI( 90 ) * YC( BZCO_O2 ) ! NO2+BZCO_O2=PBZN & + RKI( 102 ) * YC( MA_RCO3 ) ! NO2+MA_RCO3=MA_PAN & + 0.800D0 * RKI( 115 ) * YC( TBU_O ) ! NO2+TBU_O=RNO3 & + RKI( 117 ) * YC( BZ_O ) ! NO2+BZ_O=NPHE & + RKI( 120 ) * YC( BZNO2_O ) ! NO2+BZNO2_O= L2 = 1.0D0 + L2 * DTC cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c O3 Section c P3 = production of O3 except O+O2=O3 c except NO2+NO3=NO+NO2 (it is treated as if it were NO3=NO ) c L3 = loss terms for O3 except NO+O3=NO2 cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc P3 = 0.250D0 * RXRAT( 72 ) ! CCO_O2+HO2=0.250*O3 & + 0.250D0 * RXRAT( 82 ) ! RCO_O2+HO2=0.250*O3 & + 0.250D0 * RXRAT( 93 ) ! BZCO_O2+HO2=0.250*O3 & + 0.250D0 * RXRAT( 105 ) ! MA_RCO3+HO2=0.250*O3 P3 = YC0( NCELL, O3 ) + P3 * DTC L3 = RKI( 3 ) * YC( O3P ) ! O3+O3P= & + RKI( 8 ) * YC( NO2 ) ! O3+NO2=NO3 & + RKI( 17 ) ! O3+hv=O3P & + RKI( 18 ) ! O3+hv=O1D2 & + RKI( 30 ) * YC( HO ) ! O3+OH=HO2 & + RKI( 36 ) * YC( HO2 ) ! O3+HO2=OH & + RKI( 162 ) * YC( METHACRO ) ! O3+METHACRO= & + RKI( 167 ) * YC( MVK ) ! O3+MVK= & + RKI( 171 ) * YC( ISOPROD ) ! O3+ISOPROD= & + RKI( 179 ) * YC( DCB1 ) ! O3+DCB1= & + RKI( 186 ) * YC( ETHENE ) ! O3+ETHENE= & + RKI( 190 ) * YC( ISOPRENE ) ! O3+ISOPRENE= & + RKI( 194 ) * YC( TRP1 ) ! O3+TRP1= & + RKI( 205 ) * YC( OLE1 ) ! O3+OLE1= & + RKI( 209 ) * YC( OLE2 ) ! O3+OLE2= L3 = 1.0D0 + L3 * DTC cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c O3P Section c P12 = production of O3P except NO2+hv=O3P (J1) c L12 = loss terms cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc P12 = RXRAT( 16 ) ! NO3+hv=O3P & + RXRAT( 17 ) ! O3+hv=O3P & + O3P_S * RXRAT( 18 ) ! O3+hv=O1D2=>O3P P12 = YC0( NCELL, O ) + P12 * DTC L12 = RKI( 2 ) ! O3P=O3 & + RKI( 4 ) * YC( NO ) ! O3P+NO=NO2 & + RKI( 5 ) * YC( NO2 ) ! O3P+NO2=NO & + RKI( 6 ) * YC( NO2 ) ! O3P+NO=NO3 & + RKI( 164 ) * YC( METHACRO ) ! O3P+METHACRO= & + RKI( 168 ) * YC( MVK ) ! O3P+MVK= & + RKI( 188 ) * YC( ETHENE ) ! O3P+ETHENE= & + RKI( 192 ) * YC( ISOPRENE ) ! O3P+ISOPRENE= & + RKI( 196 ) * YC( TRP1 ) ! O3P+TRP1= & + RKI( 207 ) * YC( OLE1 ) ! O3P+OLE1= & + RKI( 211 ) * YC( OLE2 ) ! O3P+OLE2= L12 = 1.0D0 + L12 * DTC S1 ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Solution section ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c..compute reciprocal of loss terms L1_INV = 1.0D0 / L1 L2_INV = 1.0D0 / L2 L3_INV = 1.0D0 / L3 L12_INV = 1.0D0 / L12 c..compute specific k*delta t terms R3 RK1 = RKI( 1 ) * DTC ! J1 (NO2+hv=NO+O3P) R3 RK2 = RKI( 2 ) * DTC ! J2 (O3P+O2=O3) R3 RK3 = RKI( 3 ) * DTC ! k1_3 (NO+O3=NO2) c..compute terms that are used to calulate a,b & c T1 = RK1 * L2_INV ! J1 / ( 1.0 + Lno2 * dt ) T2 = R1_2 * L2_INV ! r1,2 / ( 1.0 + Lno2 * dt) T3 = R2_1 * L1_INV ! r2,1 / ( 1.0 + Lno * dt) T4 = RK2 * L12_INV ! J2 / ( 1.0 + Lo3p * dt ) T5 = T3 * P1 - T2 * P2 ! T3 * Pno - T2 * Pno2 F1 = 1.0D0 + T2 + T3 ! factor in calculating a & b F2 = T1 * T4 ! factor in calculating a & b F3 = L3 * L1 + RK3 * P1 ! (1 + Lo3 * dt) (1 + lno * dt ) ! + k1,3 * dt * Pno PO3 = P3 + P12 * T4 A = RK3 * ( F1 - F2 ) B = F1 * F3 + RK3 * ( F2 * ( P2 - P1 ) + PO3 + T5 ) C = RK3 * P1 * ( PO3 + P2 * F2 ) + F3 * T5 Q = -0.5D0 * ( B + SIGN( 1.0D0, B ) * SQRT( B * B - 4.0D0 * A * C ) ) XX = MAX( Q / A , C / Q ) ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Species solutions c [NO] = ( P1 + x ) / ( 1 + L1 ) c [NO2] = ( P2 - x ) / ( 1 + L2 ) c [O3 ] = ( P3 + Ko3p->O3 ) / (1 + K1,3 * [NO] + L3 ) c [O3P] = ( P12 + J1 * [NO2] ) / ( 1 + L12 ) c [O1D] = ( yc0(o1d) + Ko3->o1d * [O3] *dtc) / ( 1 + O1D_S*dtc ) ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc S2 YCP( NCELL, NO ) = MAX( 0.0D0, ( P1 + XX ) * L1_INV ) YCP( NCELL, NO2 ) = MAX( 0.0D0, ( P2 - XX ) * L2_INV ) S1 = P12 + RK1 * YCP( NCELL, NO2 ) S2 = T4 * S1 YCP( O3 ) = ( P3 + S2 ) / ( L3 + RK3 * YCP( NO ) ) YCP( O3P ) = S1 * L12_INV YCP( O1D2 ) = ( YC0( O1D2 ) + RKI( 18 ) * YCP( O3 ) * DTC ) & / ( 1.0D0 + O1D_DNM * DTC ) RETURN END ================================================ FILE: UTIL/create_ebi/template_RXNSU_OPT/hrg2.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE HRG2( DTC ) C********************************************************************** C C FUNCTION: To solve for the concentration of HO, HO2, HONO, and C HNO4 alebraically. C R1 PRECONDITIONS: For SAPRC99 family of mechanisms only C C KEY SUBROUTINES/FUNCTIONS CALLED: None C R2 REVISION HISTORY: Prototype created by Jerry Gipson, September, 2003 C C 18 Jul 14 B.Hutzell: revised to use real(8) variables C********************************************************************** USE HRDATA IMPLICIT NONE C..INCLUDES: None C..ARGUMENTS: REAL( 8 ), INTENT( IN ) :: DTC ! Time step C..PARAMETERS: None C..EXTERNAL FUNCTIONS: NONE C..SAVED LOCAL VARIABLES: ! CHARACTER( 16 ), SAVE :: PNAME = 'HRG2' ! Program name C..SCRATCH LOCAL VARIABLES: REAL( 8 ) :: O1D_S ! sum of O1D loss frequencies REAL( 8 ) :: OH_S ! stoich coeff for OH from O1D+H2O or H2 REAL( 8 ) :: HO2_S ! stoich coeff for HO2 from O1D+H2 rxn RE REAL( 8 ) :: EXN_S ! sum of NO2EX loss frequencies REAL( 8 ) :: XOH_S ! stoich coeff for OH & HONO from NO2EX loss rxn REAL( 8 ) :: R4_19 ! production of OH from HONO REAL( 8 ) :: R19_4 ! production of HONO from OH REAL( 8 ) :: R4_5 ! production of OH from HO2 REAL( 8 ) :: R5_4 ! production of HO2 from OH REAL( 8 ) :: R5_21 ! production of HO2 from HNO4 REAL( 8 ) :: R21_5 ! production of HNO4 from HO2 REAL( 8 ) :: P4, P5, P19, P21 ! species production form other paths REAL( 8 ) :: L4, L5, L19, L21 ! species loss terms REAL( 8 ) :: A, B, C ! coeffs of quadratic eq. for HO2 REAL( 8 ) :: Q ! intermediate term REAL( 8 ) :: T1, T2, T3 ! intermediate terms REAL( 8 ) :: L21_INV ! reciprocal of HNO4 loss term C********************************************************************** S1 c..stoichiometric coefficient for production of HO from O3 via O1D OH_S = 2.0D0D0 * RKI( 19 ) / ( RKI( 19 ) + RKI( 20 ) ) c..Production of HO from HO2 (r4,5 terms ) R4_5 = RKI( 31 ) * YC( NO ) ! HO2+NO=HO+NO2 & + RKI( 36 ) * YC( O3 ) ! HO2+O3=HO & + 0.800D0 * RKI( 39 ) * YC( NO3 ) ! HO2+NO3=0.8*HO R4_5 = R4_5 * DTC c..Production of HO from HONO (r4,19 terms ) R4_19 = RKI( 22 ) * DTC ! HONO+hv=HO+NO c..Remaining HO production P4 = OH_S * RXRAT( 18 ) ! O3+Hv=>O1D2=2*HO & + RXRAT( 28 ) ! HNO3+hv=HO & + 0.390D0 * RXRAT( 34 ) ! HNO4+hv=0.39*HO & + 2.000D0 * RXRAT( 41 ) ! HO2H+hv=2*HO & + RXRAT( 142 ) ! COOH=HO & + RXRAT( 144 ) ! ROOH=HO & + 0.208D0 * RXRAT( 162 ) ! METHACRO+O3=0.208*HO & + 0.330D0 * RXRAT( 165 ) ! METHACRO+hv=0.330*HO & + 0.164D0 * RXRAT( 167 ) ! MVK+O3=0.164*HO & + 0.285D0 * RXRAT( 171 ) ! ISOPROD+O3=0.285*HO & + 0.500D0 * RXRAT( 179 ) ! DCB1+O3=0.500*HO & + 0.120D0 * RXRAT( 186 ) ! ETHENE+O3=0.120*HO & + 0.266D0 * RXRAT( 190 ) ! ISOPRENE+O3=0.266*HO & + 0.567D0 * RXRAT( 194 ) ! TRP1+O3=0.285*HO & + 0.155D0 * RXRAT( 205 ) ! OLE1+O3=0.155*HO & + 0.378D0 * RXRAT( 209 ) ! OLE2+O3=0.378*HO P4 = YC0( NCELL, HO ) + P4 * DTC c..Production of HO2 from OH ( r5,4 terms ) R5_4 = RKI( 26 ) * YC( NO3 ) ! HO+NO3=HO2 & + RKI( 29 ) * YC( CO ) ! HO+CO=HO2 & + RKI( 30 ) * YC( O3 ) ! HO+O3=HO2 & + RKI( 42 ) * YC( HO2H ) ! HO+HO2H=HO2 & + RKI( 44 ) * YC( SO2 ) ! HO+SO2=HO2 & + RKI( 45 ) ! HO+{H2}=HO2 & + RKI( 125 ) * YC( HCHO ) ! HO+HCHO=HO2 & + RKI( 140 ) * YC( MEOH ) ! HO+MEOH=HO2 & + 0.630D0 * RKI( 147 ) * YC( GLY ) ! HO+GLY=0.63*HO2 & + 0.379D0 * RKI( 174 ) * YC( PROD2 ) ! HO+PROD2=0.379*HO2 & + 0.113D0 * RKI( 176 ) * YC( RNO3 ) ! HO+RNO3=0.113*HO2 & + 0.121D0 * RKI( 198 ) * YC( ALK2 ) ! HO+ALK2=0.121*HO2+0.246*HO & + 0.224D0 * RKI( 202 ) * YC( ARO1 ) ! HO+ARO1=0.224*HO2 & + 0.187D0 * RKI( 203 ) * YC( ARO2 ) ! HO+ARO2=0.187*HO2 & + RKI( 212 ) * YC( HCOOH ) ! HO+HCOOH=HO2 R5_4 = R5_4 * DTC c..Production of HO2 from HNO4 (r5,21 term ) R5_21 = RKI( 33 ) ! HNO4=HO2 & + 0.610D0 * RKI( 34 ) ! HNO4+hv=0.61*HO2 R5_21 = R5_21 * DTC c..Remaining HO2 production terms P5 = RXRAT( 23 ) ! HONO+hv=HO2 & + RXRAT( 46 ) ! C_O2+NO=HO2 & + RXRAT( 48 ) ! C_O2+NO3=HO2 & + 2.000D0 * RXRAT( 50 ) ! C_O2+C_O2=2*HO2 & + RXRAT( 51 ) ! RO2_R+NO=HO2 & + RXRAT( 53 ) ! RO2_R+NO3=HO2 & + RXRAT( 54 ) ! RO2_R+C_O2=HO2 & + RXRAT( 55 ) ! RO2_R+RO2_R=HO2 & + RXRAT( 64 ) ! RO2_N+C_O2=HO2 & + RXRAT( 65 ) ! RO2_N+NO3=HO2 & + RXRAT( 66 ) ! RO2_N+RO2_R=HO2 & + RXRAT( 68 ) ! RO2_N+RO2_N=HO2 & + 2.000D0 * RXRAT( 123 ) ! HCHO+hv=2*HO2 & + RXRAT( 127 ) ! HOCOO=HO2 & + RXRAT( 128 ) ! HOCOO+NO=HO2 & + RXRAT( 129 ) ! HCHO+NO3=HO2 & + RXRAT( 131 ) ! CCHO=HO2 & + RXRAT( 134 ) ! RCHO=HO2 & + RXRAT( 142 ) ! COOH+hv=HO2 & + RXRAT( 144 ) ! ROOH+hv=HO2 & + 2.000D0 * RXRAT( 145 ) ! GLY+hv=2*HO2 & + 0.630D0 * RXRAT( 148 ) ! GLY+NO3=0.63*HO2 & + RXRAT( 149 ) ! MGLY+hv=HO2 & + 0.008D0 * RXRAT( 162 ) ! METHACRO+O3=0.008*HO2 & + 0.340D0 * RXRAT( 165 ) ! METHACRO+hv=0.340*HO2 & + 0.06D04 * RXRAT( 167 ) ! MVK+O3=0.064*HO2 & + 0.400D0 * RXRAT( 171 ) ! ISOPROD+O3=0.400*HO2 & + 1.233D0 * RXRAT( 173 ) ! ISOPROD+hv=1.233*HO2 & + 0.341D0 * RXRAT( 177 ) ! RNO3+hv=0.341*HO2 & + 1.500D0 * RXRAT( 179 ) ! DCB1+O3=1.500*HO2 & + 0.500D0 * RXRAT( 181 ) ! DCB2+hv=0.500*HO2 & + 0.500D0 * RXRAT( 183 ) ! DCB3+hv=0.500*HO2 & + 0.120D0 * RXRAT( 186 ) ! ETHENE+O3=0.120*HO2 & + 0.500D0 * RXRAT( 188 ) ! ETHENE+O3P=0.500*HO2 & + 0.033D0 * RXRAT( 194 ) ! TRP1+O3=0.033*HO2 & + 0.056D0 * RXRAT( 205 ) ! OLE1+O3=0.056*HO2 & + 0.003D0 * RXRAT( 209 ) ! OLE2+O3=0.003*HO2 & + 0.013D0 * RXRAT( 211 ) ! OLE2+O3P=0.013*HO2 P5 = YC0( NCELL, HO2 ) + P5 * DTC c..Production of HONO from OH (r19,4 terms ) R19_4 = RKI( 21 ) * YC( NO ) * DTC ! HO+NO=HONO c..Remaining HONO production terms P19 = YC0( NCELL, HONO ) c..Production of HNO4 from HO2 (r21,5 term ) R21_5 = RKI( 32 ) * YC( NO2 ) * DTC ! HO2+NO2=HNO4 c..Remaining HNO4 production terms P21 = YC0( NCELL, HNO4 ) c..OH Loss terms not in R5_4 & R19_4 L4 = RKI( 24 ) * YC( HONO ) ! HO+HONO=NO2 & + RKI( 25 ) * YC( NO2 ) ! HO+NO2=HNO3 & + RKI( 27 ) * YC( HNO3 ) ! HO+HNO3=NO3 & + RKI( 35 ) * YC( HNO4 ) ! HO+HNO4=NO2 & + RKI( 43 ) * YC( HO2 ) ! HO+HO2= & + RKI( 130 ) * YC( CCHO ) ! HO+CCHO= & + RKI( 133 ) * YC( RCHO ) ! HO+RCHO= & + RKI( 136 ) * YC( ACET ) ! HO+ACET= & + RKI( 138 ) * YC( MEK ) ! HO+MEK= & + 0.650D0 * RKI( 141 ) * YC( COOH ) ! HO+COOH=0.35*HO & + 0.340D0 * RKI( 143 ) * YC( ROOH ) ! HO+ROOH=0.66*HO & + 0.370D0 * RKI( 147 ) * YC( GLY ) ! HO+GLY=0.63*HO2 & + RKI( 150 ) * YC( MGLY ) ! HO+MGLY= & + RKI( 153 ) * YC( PHEN ) ! HO+PHEN= & + RKI( 155 ) * YC( CRES ) ! HO+CRES= & + RKI( 158 ) * YC( BALD ) ! HO+BALD= & + RKI( 161 ) * YC( METHACRO ) ! HO+METHACRO= & + RKI( 166 ) * YC( MVK ) ! HO+MVK= & + RKI( 170 ) * YC( ISOPROD ) ! HO+ISOPROD= & + 0.621D0 * RKI( 174 ) * YC( PROD2 ) ! HO+PROD2=0.379*HO2 & + 0.887D0 * RKI( 176 ) * YC( RNO3 ) ! HO+RNO3=0.113*HO2 & + RKI( 178 ) * YC( DCB1 ) ! HO+DCB1= & + RKI( 180 ) * YC( DCB2 ) ! HO+DCB2= & + RKI( 182 ) * YC( DCB3 ) ! HO+DCB3= & + RKI( 184 ) ! HO+{CH4}= & + RKI( 185 ) * YC( ETHENE ) ! HO+ETHENE= & + RKI( 189 ) * YC( ISOPRENE ) ! HO+ISOPRENE= & + RKI( 193 ) * YC( TRP1 ) ! HO+TRP1= & + RKI( 197 ) * YC( ALK1 ) ! HO+ALK1= & + 0.633D0 * RKI( 198 ) * YC( ALK2 ) ! HO+ALK2=0.246HO+0.121HO2 & + RKI( 199 ) * YC( ALK3 ) ! HO+ALK3= & + RKI( 200 ) * YC( ALK4 ) ! HO+ALK4= & + RKI( 201 ) * YC( ALK5 ) ! HO+ALK5= & + 0.776D0 * RKI( 202 ) * YC( ARO1 ) ! HO+ARO1=0.224*HO2 & + 0.813D0 * RKI( 203 ) * YC( ARO2 ) ! HO+ARO2=0.187*HO2 & + RKI( 204 ) * YC( OLE1 ) ! HO+OLE1= & + RKI( 208 ) * YC( OLE2 ) ! HO+OLE2= & + RKI( 213 ) * YC( CCO_OH ) ! HO+CCO_OH= & + RKI( 214 ) * YC( RCO_OH ) ! HO+RCO_OH= L4 = 1.0D0 + L4 * DTC + R5_4 + R19_4 c..HO2 Loss terms not included in R4_5 & R21_5 (except for HO2+HO2 ) L5 = 0.200D0 * RKI( 39 ) * YC( NO3 ) ! HO2+NO3=0.8*HO & + RKI( 43 ) * YC( HO ) ! HO2+HO= & + RKI( 47 ) * YC( C_O2 ) ! HO2+C_O2= & + RKI( 52 ) * YC( RO2_R ) ! HO2+RO2_R= & + RKI( 63 ) * YC( RO2_N ) ! HO2+RO2_N= & + RKI( 72 ) * YC( CCO_O2 ) ! HO2+CCO_O2= & + RKI( 82 ) * YC( RCO_O2 ) ! HO2+RCO_O2= & + RKI( 93 ) * YC( BZCO_O2 ) ! HO2+BZCO_O2= & + RKI( 105 ) * YC( MA_RCO3 ) ! HO2+MA_RCO3= & + RKI( 118 ) * YC( BZ_O ) ! HO2+BZ_O= & + RKI( 121 ) * YC( BZNO2_O ) ! HO2+BZNO2_O= & + RKI( 126 ) * YC( HCHO ) ! HO2+HCHO= L5 = 1.0D0 + L5 * DTC + R4_5 + R21_5 c..HONO loss terms not included in R4_19 L19 = + RKI( 23 ) ! HONO+hv=HO2 & + RKI( 24 ) * YC( HO ) ! HONO+HO=NO2 L19 = 1.0D0 + L19 * DTC + R4_19 c..HNO4 loss terms not inluded in R5_21 L21 = 0.390D0 * RKI( 34 ) ! HNO4+hv=0.61HO2+0.39HO & + RKI( 35 ) * YC( HO ) ! HNO4+HO=NO2 L21 = 1.0D0 + L21 * DTC + R5_21 S1 ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Solution section ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c..compute terms used to calculate a,b & c L21_INV = 1.0D0 / L21 T1 = 1.0D0 / ( L4 * L19 - R4_19 * R19_4 ) T2 = R5_4 * T1 T3 = R5_21 * L21_INV R3c..solve quadratic equation for HO2 R4 A = 2.0D0 * ( RKI( 37 ) + RKI( 38 ) ) * DTC B = L5 - T3 * R21_5 - T2 * R4_5 * L19 C = P5 + T3 * P21 + T2 * ( P4 * L19 + P19 * R4_19 ) Q = -0.5D0 * ( B + SIGN( 1.0D0, B ) * SQRT( B * B + 4.0D0 * A * C ) ) R5 YCP( NCELL, HO2 ) = MAX( Q / A , -C / Q ) c..compute remaining species concentrations R6 YCP( NCELL, HO ) = ( ( P4 + R4_5 * YCP( NCELL, HO2 ) ) * L19 + R4_19 * P19 ) * T1 R7 YCP( NCELL, HNO4 ) = ( P21 + R21_5 * YCP( NCELL, HO2 ) ) * L21_INV R8 YCP( NCELL, HONO ) = ( P19 + R19_4 * YCP( NCELL, HO ) ) / L19 RETURN END ================================================ FILE: UTIL/create_ebi/template_RXNSU_OPT/hrg3.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE HRG3( DTC ) C********************************************************************** C C FUNCTION: To solve for the concentration of C2O3 and PAN C R1 PRECONDITIONS: For SAPRC99 family of mechanisms only C C KEY SUBROUTINES/FUNCTIONS CALLED: None C R2 REVISION HISTORY: Prototype created by Jerry Gipson, September, 2003 C C 18 Jul 14 B.Hutzell: revised to use real(8) variables C********************************************************************** USE HRDATA IMPLICIT NONE C..INCLUDES: NONE C..ARGUMENTS: REAL( 8 ), INTENT( IN ) :: DTC ! Time step C..PARAMETERS: NONE C..EXTERNAL FUNCTIONS: NONE C..SAVED LOCAL VARIABLES: ! CHARACTER( 16 ), SAVE :: PNAME = 'HRG3' ! Program name C..SCRATCH LOCAL VARIABLES: REAL( 8 ) :: A, B, C, Q ! Quadratic equation terms REAL( 8 ) :: CMN ! Temp scalar REAL( 8 ) :: L8 ! Loss of CCO_O2 REAL( 8 ) :: L9 ! Loss of PAN REAL( 8 ) :: P8 ! Production of CCO_O2 R3 REAL( 8 ) :: K8_8 ! Kcco_o2+cco_o2 x delta t R3 REAL( 8 ) :: R8_9 ! Kpan-->cco_o2 x delta t R3 REAL( 8 ) :: R9_8 ! Kcco_o2+no2-->pan C********************************************************************** S1 c..Production rate of CCO_O2 (except from PAN ) PCCO_O2 = RXRAT( 104 ) + RXRAT( 106 ) + & RXRAT( 112 ) + & RXRAT( 113 ) + 2.000D0 * RXRAT( 114 ) + & RXRAT( 130 ) + RXRAT( 132 ) + & RXRAT( 136 ) + RXRAT( 137 ) + & 0.492D0 * RXRAT( 138 ) + RXRAT( 139 ) + & RXRAT( 149 ) + RXRAT( 150 ) + & RXRAT( 151 ) + 2.000D0 * RXRAT( 152 ) + & 0.670D0 * RXRAT( 165 ) + 0.675D0 * RXRAT( 166 ) + & 0.467D0 * RXRAT( 173 ) + 0.029D0 * RXRAT( 174 ) + & 0.667D0 * RXRAT( 175 ) + RXRAT( 180 ) + & 0.500D0 * RXRAT( 181 ) + RXRAT( 182 ) + & 0.500D0 * RXRAT( 183 ) + 0.123D0 * RXRAT( 194 ) + & 0.011D0 * RXRAT( 200 ) + 0.137D0 * RXRAT( 209 ) c..Loss frequency of CCO_O2 ( not including CCO_O2 + CCO_O2 ) LCCO_O2 = RKI( 69 ) * YC( NO2 ) + & RKI( 71 ) * YC( NO ) + & RKI( 72 ) * YC( HO2 ) + & RKI( 73 ) * YC( NO3 ) + & RKI( 74 ) * YC( C_O2 ) + & RKI( 75 ) * YC( RO2_R ) + & RKI( 77 ) * YC( RO2_N ) + & RKI( 88 ) * YC( RCO_O2 ) + & RKI( 99 ) * YC( BZCO_O2 ) c..Loss frequency of PAN LPAN = RKI( 70 ) c....R8_8 = K for CCO_O2+CCO_O2= times delta t c....R8_9 = K for CCO_O2+NO2=PAN times delta t times [NO2] c....R8_9 = K for PAN=C2O3+NO2 times delta t R8_8 = RKI( 78 ) * DTC R8_9 = RKI( 70 ) * DTC R9_8 = RKI( 69 ) * YC( NO2 ) * DTC S1 R4..Solution of quadratic equation to get CCO_O2 & PAN CMN = 1.0 + L9 * DTC A = 2.0D0 * K8_8 * CMN B = CMN * ( 1.0D0 + L8 * DTC ) - R8_9 * R9_8 R5 C = CMN * ( YC0( NCELL, CCO_O2 ) + P8 * DTC ) + R8_9 * YC0( NCELL, PAN ) Q = -0.5D0 * ( B + SIGN( 1.0D0, B ) * SQRT( B * B + 4.0D0 * A * C ) ) R6 YCP( NCELL, CCO_O2 ) = MAX( Q / A , -C / Q ) R7 YCP( NCELL, PAN ) = ( YC0( NCELL, PAN ) + R8_9 * YCP( NCELL, CCO_O2 ) ) / CMN RETURN END ================================================ FILE: UTIL/create_ebi/template_RXNSU_OPT/hrg4.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE HRG4( DTC ) C********************************************************************** C C FUNCTION: To solve for the concentration of NO3 and N2O5 C R1 PRECONDITIONS: For SAPRC99 family of mechanisms only C C KEY SUBROUTINES/FUNCTIONS CALLED: None C R2 REVISION HISTORY: Prototype created by Jerry Gipson, September, 2003 C C 18 Jul 14 B.Hutzell: revised to use real(8) variables C********************************************************************** USE HRDATA IMPLICIT NONE C..INCLUDES: NONE C..ARGUMENTS: REAL( 8 ), INTENT( IN ) :: DTC ! Time step C..PARAMETERS: NONE C..EXTERNAL FUNCTIONS: NONE C..SAVED LOCAL VARIABLES: ! CHARACTER( 16 ), SAVE :: PNAME = 'HRG4' ! Program name C..SCRATCH LOCAL VARIABLES: R3 REAL( 8 ) :: A, B, C, Q ! Quadratic equation terms R3 REAL( 8 ) :: CMN ! Temp scalar R3 REAL( 8 ) :: L15 ! Loss of NO3 R3 REAL( 8 ) :: L16 ! Loss of N2O5 R3 REAL( 8 ) :: P15 ! Production of NO3 R3 REAL( 8 ) :: R040DT ! Kno3+no3 x delta t R3 REAL( 8 ) :: R012DT ! Kn2o5-->no3 x delta t R3 REAL( 8 ) :: R011DT ! Kno3+no2-->n2o5 C********************************************************************** S1 c..Production of NO3 (except from N2O5 ) PNO3 = RXRAT( 6 ) + RXRAT( 8 ) + RXRAT( 27 ) + & 0.390D0 * RXRAT( 34 ) c..Loss frequncy of NO3 ( excluding NO3 + NO3 ) LNO3 = RKI( 9 ) * YC( NO ) + RKI( 11 ) * YC( NO2 ) + & RKI( 14 ) * YC( NO2 ) + RKI( 15 ) + & RKI( 16 ) + RKI( 26 ) * YC( HO ) + & RKI( 39 ) * YC( HO2 ) + RKI( 48 ) * YC( C_O2 ) + & RKI( 53 ) * YC( RO2_R ) + RKI( 58 ) * YC( R2O2 ) + & RKI( 65 ) * YC( RO2_N ) + RKI( 73 ) * YC( CCO_O2 ) + & RKI( 83 ) * YC( RCO_O2 ) + RKI( 94 ) * YC( BZCO_O2 ) + & RKI( 106 ) * YC( MA_RCO3 ) + RKI( 129 ) * YC( HCHO ) + & RKI( 132 ) * YC( CCHO ) + RKI( 135 ) * YC( RCHO ) + & RKI( 148 ) * YC( GLY ) + RKI( 151 ) * YC( MGLY ) + & RKI( 154 ) * YC( PHEN ) + RKI( 156 ) * YC( CRES ) + & RKI( 157 ) * YC( NPHE ) + RKI( 160 ) * YC( BALD ) + & RKI( 163 ) * YC( METHACRO ) + RKI( 172 ) * YC( ISOPROD ) + & RKI( 187 ) * YC( ETHENE ) + RKI( 191 ) * YC( ISOPRENE ) + & RKI( 195 ) * YC( TRP1 ) + RKI( 206 ) * YC( OLE1 ) + & RKI( 210 ) * YC( OLE2 ) c..Loss frequency of N2O5 LN2O5 = RKI( 12 ) + RKI( 13 ) c..Solution of quadratic equation to get NO3 & N2O5 c....R040DT = K for NO3+NO3= times delta t c....R011DT = K for NO3+NO2=N2O5 times delta t times [NO2] c....R012DT = K for N2O5=NO3+NO2 times delta t K15_15 = RKI( 40 ) * DTC R16_15 = RKI( 11 ) * YC( NO2 ) * DTC R15_16 = RKI( 12 ) * DTC CMN = 1.0D0 + L16 * DTC A = 2.0D0 * K15_15 * CMN B = CMN * ( 1.0D0 + LNO3 * DTC ) - R15_16 * R16_15 C = CMN * ( YC0( NO3 ) + PNO3 * DTC ) + R15_16 * YC0( N2O5 ) Q = -0.5D0 * ( B + SIGN( 1.0D0, B ) * SQRT( B * B + 4.0D0 * A * C ) ) YCP( NO3 ) = MAX( Q / A , -C / Q ) YCP( N2O5 ) = ( YC0( N2O5 ) + R16_15 * YCP( NO3 ) ) / CMN S1 RETURN END ================================================ FILE: UTIL/create_ebi/template_RXNSU_OPT/hrinit.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE HRINIT C*********************************************************************** C C FUNCTION: To initialize species tolerances, arrays, and indices C R1 PRECONDITIONS: For CB4 mechanisms only C C RETURN VALUES: None C C KEY SUBROUTINES/FUNCTIONS CALLED: None C R2 REVISION HISTORY: Prototype created by Jerry Gipson, January, 2002 C 21 Jun 10 J.Young: convert for Namelist redesign C 18 Jul 14 B.Hutzell: revised to use the RXNS_DATA and RXNS_FUNCTION C modules instead of include files C*********************************************************************** USE UTILIO_DEFN USE HRDATA USE RXNS_DATA USE RXNS_FUNCTION IMPLICIT NONE C.....INCLUDES: Include SUBST_CONST ! common constants C.....ARGUMENTS: NONE C.....PARAMETERS: NONE C.....SAVED VARIABLES: CHARACTER( 16 ), SAVE :: PNAME = 'HRINIT' ! Program name C.....LOCAL VARIABLES: CHARACTER( 132 ) :: MSG ! Log message INTEGER N ! Loop index INTEGER IOS ! Allocate error status C*********************************************************************** N_SPEC = NUMB_MECH_SPC N_RXNS = NRXNS R3 ALLOCATE( RKI( NRXNS ), & RKI_SAV( MAX_CELLS_EBI, NRXNS ), & FORWARD_CONV( NUMB_MECH_SPC), & REVERSE_CONV( NUMB_MECH_SPC), & RXRAT( NRXNS ), & RTOL( NUMB_MECH_SPC), & YC( NUMB_MECH_SPC), & YC0( NUMB_MECH_SPC), & YCP( NUMB_MECH_SPC), & PROD( NUMB_MECH_SPC), & LOSS( NUMB_MECH_SPC), R4 & PNEG( NUMB_MECH_SPC), & STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating RKI, RXRAT, RTOL, YC, YC0, YCP, FORWARD_CONV, ' & // 'REVERSE_CONV, PROD, LOSS, or PNEG' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF ALLOCATE( ATMPRES( MAX_CELLS_EBI ), & H2O ( MAX_CELLS_EBI ), & TEMP ( MAX_CELLS_EBI ), & DENSITY( MAX_CELLS_EBI ), & HET ( MAX_CELLS_EBI, NHETERO ), & RJIN ( MAX_CELLS_EBI, NPHOTAB ), & SEAWATER ( MAX_CELLS_EBI ) , & STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating ATMPRES, H2O, TEMP, HET, RJIN, SEAWATER ' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF IF( NSPECIAL .GT. 0 )THEN ALLOCATE( SYC( MAX_CELLS_EBI, NUMB_MECH_SPC ), STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating SYC' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF ALLOCATE( IOLD2NEW( NUMB_MECH_SPC, 1 ), STAT = IOS ) IF ( IOS .NE. 0 ) THEN MSG = 'Error allocating IOLD2NEW' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) END IF DO N = 1, NUMB_MECH_SPC IOLD2NEW( N, 1 ) = N END DO END IF IF( .NOT. MAP_CHEMISTRY_SPECIES() )THEN MSG = 'Detected above error(s) when mapping Chemistry species from CGRID species' CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT2 ) END IF DO N = 1, NUMB_MECH_SPC FORWARD_CONV( N ) = 1.0E-3 * MWAIR / SPECIES_MOLWT( N ) REVERSE_CONV( N ) = 1.0E+3 / MWAIR * SPECIES_MOLWT( N ) END DO ! initialize all reaction rates to zero so unused array elements are defined RXRAT = 0.0D0 ! initialize all production and loss rates to zero so unused array elements are defined PROD = 0.0D0 LOSS = 0.0D0 NING1 = 4 NING2 = 4 R5 ALLOCATE( YCCELL( MODEL_SPECIES), STAT = IOS ) ! array for degradation routines R5 IF ( IOS .NE. 0 ) THEN R5 MSG = 'Error allocating YCCELL ' R5 CALL M3EXIT( PNAME, 0, 0, MSG, XSTAT1 ) R5 END IF ================================================ FILE: UTIL/create_ebi/template_RXNSU_OPT/hrprodloss.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE HRPRODLOSS C*********************************************************************** C C FUNCTION: To compute the production and loss rates for EBI species C R1 PRECONDITIONS: For SAPRC99 family of mechanisms only C C RETURN VALUES: None C C KEY SUBROUTINES/FUNCTIONS CALLED: None C R2 REVISION HISTORY: Prototype created by Jerry Gipson, September, 2003 C C 18 Jul 14 B.Hutzell: revised to use real(8) variables C*********************************************************************** USE HRDATA IMPLICIT NONE C.....INCLUDES: NONE C.....ARGUMENTS: NONE C.....PARAMETERS: NONE C.....EXTERNAL FUNCTIONS: NONE C.....SAVED VARIABLES: NONE ! CHARACTER( 16 ), SAVE :: PNAME = 'HRPRODLOSS' ! Program name C.....LOCAL VARIABLES: C*********************************************************************** S1 PROD( NCELL, HNO3 ) = 2.000 * RXRAT( 13 ) & + RXRAT( 25 ) & + 0.200 * RXRAT( 39 ) & + RXRAT( 129 ) & + RXRAT( 132 ) & + RXRAT( 135 ) & + RXRAT( 148 ) & + RXRAT( 151 ) & + RXRAT( 154 ) & + RXRAT( 156 ) & + RXRAT( 157 ) & + RXRAT( 160 ) & + 0.500 * RXRAT( 163 ) & + 0.150 * RXRAT( 172 ) LOSS( NCELL, HNO3 ) = RXRAT( 27 ) & + RXRAT( 28 ) PROD( NCELL, CO ) = RXRAT( 123 ) & + RXRAT( 124 ) & + RXRAT( 125 ) & + RXRAT( 129 ) & + RXRAT( 131 ) & + 0.034 * RXRAT( 133 ) & + RXRAT( 134 ) & + 2.000 * RXRAT( 145 ) & + RXRAT( 146 ) & + 1.260 * RXRAT( 147 ) & + 1.260 * RXRAT( 148 ) & + RXRAT( 149 ) & + RXRAT( 150 ) & + RXRAT( 151 ) & + 0.416 * RXRAT( 161 ) & + 0.450 * RXRAT( 162 ) & + 0.500 * RXRAT( 163 ) & + 0.670 * RXRAT( 165 ) & + 0.475 * RXRAT( 167 ) & + 0.700 * RXRAT( 169 ) & + 0.336 * RXRAT( 170 ) & + 0.498 * RXRAT( 171 ) & + 0.572 * RXRAT( 172 ) & + 1.233 * RXRAT( 173 ) & + RXRAT( 178 ) & + 1.500 * RXRAT( 179 ) & + RXRAT( 181 ) & + RXRAT( 183 ) & + 0.500 * RXRAT( 186 ) & + 0.491 * RXRAT( 188 ) & + 0.275 * RXRAT( 190 ) & + 0.157 * RXRAT( 194 ) & + 0.160 * RXRAT( 198 ) & + 0.002 * RXRAT( 200 ) & + 0.345 * RXRAT( 205 ) & + 0.265 * RXRAT( 209 ) & + 0.012 * RXRAT( 211 ) LOSS( NCELL, CO ) = RXRAT( 29 ) PROD( NCELL, HO2H ) = RXRAT( 37 ) & + RXRAT( 38 ) LOSS( NCELL, HO2H ) = RXRAT( 41 ) & + RXRAT( 42 ) PROD( NCELL, SO2 ) = 0.0 LOSS( NCELL, SO2 ) = RXRAT( 44 ) PROD( NCELL, SULF ) = RXRAT( 44 ) LOSS( NCELL, SULF ) = 0.0 PROD( NCELL, C_O2 ) = RXRAT( 71 ) & + RXRAT( 73 ) & + 2.000 * RXRAT( 78 ) & + RXRAT( 88 ) & + RXRAT( 99 ) & + RXRAT( 111 ) & + RXRAT( 116 ) & + RXRAT( 131 ) & + RXRAT( 137 ) & + 0.650 * RXRAT( 141 ) & + 0.300 * RXRAT( 169 ) & + RXRAT( 184 ) & + 0.300 * RXRAT( 188 ) & + 0.250 * RXRAT( 192 ) & + 0.011 * RXRAT( 200 ) & + 0.076 * RXRAT( 205 ) & + 0.197 * RXRAT( 209 ) & + 0.030 * RXRAT( 210 ) & + 0.870 * RXRAT( 213 ) LOSS( NCELL, C_O2 ) = RXRAT( 46 ) & + RXRAT( 47 ) & + RXRAT( 48 ) & + 2.000 * RXRAT( 49 ) & + 2.000 * RXRAT( 50 ) & + RXRAT( 54 ) & + RXRAT( 64 ) & + RXRAT( 74 ) & + RXRAT( 84 ) & + RXRAT( 95 ) & + RXRAT( 107 ) PROD( NCELL, HCHO ) = RXRAT( 46 ) & + RXRAT( 48 ) & + RXRAT( 49 ) & + 2.000 * RXRAT( 50 ) & + 0.750 * RXRAT( 54 ) & + 0.750 * RXRAT( 64 ) & + RXRAT( 74 ) & + RXRAT( 84 ) & + RXRAT( 95 ) & + RXRAT( 104 ) & + RXRAT( 106 ) & + RXRAT( 107 ) & + RXRAT( 111 ) & + RXRAT( 112 ) & + RXRAT( 113 ) & + 2.000 * RXRAT( 114 ) & + RXRAT( 127 ) & + RXRAT( 136 ) & + 0.115 * RXRAT( 138 ) & + RXRAT( 140 ) & + 0.350 * RXRAT( 141 ) & + RXRAT( 142 ) & + RXRAT( 146 ) & + 0.084 * RXRAT( 161 ) & + 0.200 * RXRAT( 162 ) & + 0.670 * RXRAT( 165 ) & + 0.300 * RXRAT( 166 ) & + 0.100 * RXRAT( 167 ) & + 0.055 * RXRAT( 170 ) & + 0.125 * RXRAT( 171 ) & + 0.227 * RXRAT( 172 ) & + 0.300 * RXRAT( 173 ) & + 0.213 * RXRAT( 174 ) & + 0.506 * RXRAT( 175 ) & + 0.010 * RXRAT( 176 ) & + 0.134 * RXRAT( 177 ) & + 1.610 * RXRAT( 185 ) & + RXRAT( 186 ) & + 0.191 * RXRAT( 188 ) & + 0.624 * RXRAT( 189 ) & + 0.592 * RXRAT( 190 ) & + 0.240 * RXRAT( 192 ) & + 0.276 * RXRAT( 193 ) & + 0.235 * RXRAT( 194 ) & + 0.039 * RXRAT( 198 ) & + 0.026 * RXRAT( 199 ) & + 0.024 * RXRAT( 200 ) & + 0.026 * RXRAT( 201 ) & + 0.732 * RXRAT( 204 ) & + 0.500 * RXRAT( 205 ) & + 0.244 * RXRAT( 208 ) & + 0.269 * RXRAT( 209 ) & + 0.079 * RXRAT( 210 ) LOSS( NCELL, HCHO ) = RXRAT( 123 ) & + RXRAT( 124 ) & + RXRAT( 125 ) & + RXRAT( 126 ) & + RXRAT( 129 ) PROD( NCELL, COOH ) = RXRAT( 47 ) LOSS( NCELL, COOH ) = RXRAT( 141 ) & + RXRAT( 142 ) PROD( NCELL, MEOH ) = RXRAT( 49 ) & + 0.250 * RXRAT( 54 ) & + 0.250 * RXRAT( 64 ) LOSS( NCELL, MEOH ) = RXRAT( 140 ) PROD( NCELL, RO2_R ) = RXRAT( 81 ) & + RXRAT( 83 ) & + RXRAT( 88 ) & + 2.000 * RXRAT( 89 ) & + RXRAT( 100 ) & + RXRAT( 112 ) & + 0.034 * RXRAT( 133 ) & + RXRAT( 134 ) & + 0.370 * RXRAT( 138 ) & + RXRAT( 139 ) & + 0.340 * RXRAT( 143 ) & + 0.760 * RXRAT( 153 ) & + 0.760 * RXRAT( 155 ) & + 0.500 * RXRAT( 161 ) & + 0.100 * RXRAT( 162 ) & + 0.500 * RXRAT( 163 ) & + 0.330 * RXRAT( 165 ) & + 0.300 * RXRAT( 166 ) & + 0.050 * RXRAT( 167 ) & + 0.670 * RXRAT( 170 ) & + 0.048 * RXRAT( 171 ) & + 0.799 * RXRAT( 172 ) & + 0.473 * RXRAT( 174 ) & + 0.960 * RXRAT( 175 ) & + 0.376 * RXRAT( 176 ) & + 0.564 * RXRAT( 177 ) & + RXRAT( 178 ) & + RXRAT( 181 ) & + RXRAT( 183 ) & + RXRAT( 185 ) & + RXRAT( 187 ) & + 0.200 * RXRAT( 188 ) & + 0.907 * RXRAT( 189 ) & + 0.066 * RXRAT( 190 ) & + 0.749 * RXRAT( 191 ) & + 0.750 * RXRAT( 193 ) & + 0.031 * RXRAT( 194 ) & + 0.276 * RXRAT( 195 ) & + RXRAT( 197 ) & + 0.612 * RXRAT( 198 ) & + 0.695 * RXRAT( 199 ) & + 0.835 * RXRAT( 200 ) & + 0.653 * RXRAT( 201 ) & + 0.765 * RXRAT( 202 ) & + 0.804 * RXRAT( 203 ) & + 0.910 * RXRAT( 204 ) & + 0.022 * RXRAT( 205 ) & + 0.824 * RXRAT( 206 ) & + 0.918 * RXRAT( 208 ) & + 0.033 * RXRAT( 209 ) & + 0.442 * RXRAT( 210 ) & + 0.012 * RXRAT( 211 ) & + 0.130 * RXRAT( 213 ) & + RXRAT( 214 ) LOSS( NCELL, RO2_R ) = RXRAT( 51 ) & + RXRAT( 52 ) & + RXRAT( 53 ) & + RXRAT( 54 ) & + 2.000 * RXRAT( 55 ) & + RXRAT( 66 ) & + RXRAT( 75 ) & + RXRAT( 85 ) & + RXRAT( 96 ) & + RXRAT( 108 ) PROD( NCELL, ROOH ) = RXRAT( 52 ) & + RXRAT( 63 ) LOSS( NCELL, ROOH ) = RXRAT( 143 ) & + RXRAT( 144 ) PROD( NCELL, R2O2 ) = RXRAT( 92 ) & + RXRAT( 94 ) & + RXRAT( 99 ) & + RXRAT( 100 ) & + 2.000 * RXRAT( 101 ) & + RXRAT( 113 ) & + RXRAT( 136 ) & + 0.616 * RXRAT( 138 ) & + 0.675 * RXRAT( 166 ) & + 0.515 * RXRAT( 175 ) & + 0.596 * RXRAT( 176 ) & + 0.152 * RXRAT( 177 ) & + RXRAT( 180 ) & + RXRAT( 181 ) & + RXRAT( 182 ) & + RXRAT( 183 ) & + 0.079 * RXRAT( 189 ) & + 0.126 * RXRAT( 190 ) & + 0.187 * RXRAT( 191 ) & + 0.240 * RXRAT( 192 ) & + 0.500 * RXRAT( 193 ) & + 0.729 * RXRAT( 194 ) & + 0.750 * RXRAT( 195 ) & + 0.559 * RXRAT( 199 ) & + 0.936 * RXRAT( 200 ) & + 0.948 * RXRAT( 201 ) & + 0.205 * RXRAT( 204 ) & + 0.488 * RXRAT( 206 ) & + 0.001 * RXRAT( 208 ) & + 0.137 * RXRAT( 209 ) & + 0.711 * RXRAT( 210 ) LOSS( NCELL, R2O2 ) = RXRAT( 56 ) & + RXRAT( 57 ) & + RXRAT( 58 ) & + RXRAT( 59 ) & + RXRAT( 60 ) & + 2.000 * RXRAT( 61 ) & + RXRAT( 67 ) & + RXRAT( 76 ) & + RXRAT( 86 ) & + RXRAT( 97 ) & + RXRAT( 109 ) PROD( NCELL, RO2_N ) = 0.001 * RXRAT( 133 ) & + 0.042 * RXRAT( 138 ) & + 0.025 * RXRAT( 166 ) & + 0.041 * RXRAT( 170 ) & + 0.051 * RXRAT( 172 ) & + 0.070 * RXRAT( 174 ) & + 0.040 * RXRAT( 175 ) & + 0.173 * RXRAT( 176 ) & + 0.095 * RXRAT( 177 ) & + 0.093 * RXRAT( 189 ) & + 0.008 * RXRAT( 190 ) & + 0.064 * RXRAT( 191 ) & + 0.010 * RXRAT( 192 ) & + 0.250 * RXRAT( 193 ) & + 0.180 * RXRAT( 194 ) & + 0.250 * RXRAT( 195 ) & + 0.021 * RXRAT( 198 ) & + 0.070 * RXRAT( 199 ) & + 0.143 * RXRAT( 200 ) & + 0.347 * RXRAT( 201 ) & + 0.011 * RXRAT( 202 ) & + 0.009 * RXRAT( 203 ) & + 0.090 * RXRAT( 204 ) & + 0.001 * RXRAT( 205 ) & + 0.176 * RXRAT( 206 ) & + 0.082 * RXRAT( 208 ) & + 0.002 * RXRAT( 209 ) & + 0.136 * RXRAT( 210 ) & + 0.001 * RXRAT( 211 ) LOSS( NCELL, RO2_N ) = RXRAT( 62 ) & + RXRAT( 63 ) & + RXRAT( 64 ) & + RXRAT( 65 ) & + RXRAT( 66 ) & + 2.000 * RXRAT( 68 ) & + RXRAT( 77 ) & + RXRAT( 87 ) & + RXRAT( 98 ) & + RXRAT( 110 ) PROD( NCELL, RNO3 ) = RXRAT( 62 ) & + RXRAT( 115 ) & + 0.572 * RXRAT( 172 ) & + 0.276 * RXRAT( 195 ) & + 0.511 * RXRAT( 206 ) & + 0.321 * RXRAT( 210 ) LOSS( NCELL, RNO3 ) = 0.690 * RXRAT( 176 ) & + RXRAT( 177 ) PROD( NCELL, MEK ) = 0.500 * RXRAT( 64 ) & + RXRAT( 65 ) & + 0.500 * RXRAT( 66 ) & + RXRAT( 68 ) & + 0.416 * RXRAT( 161 ) & + 0.550 * RXRAT( 168 ) & + 0.150 * RXRAT( 170 ) & + 0.210 * RXRAT( 171 ) & + 0.233 * RXRAT( 173 ) & + 0.115 * RXRAT( NCE LL, 174 ) & + 0.177 * RXRAT( 176 ) & + 0.243 * RXRAT( 177 ) & + 0.332 * RXRAT( 199 ) & + 0.110 * RXRAT( 200 ) & + 0.089 * RXRAT( 201 ) & + 0.437 * RXRAT( 207 ) & + 0.072 * RXRAT( 208 ) & + 0.026 * RXRAT( 209 ) & + 0.001 * RXRAT( 210 ) & + 0.659 * RXRAT( 211 ) LOSS( NCELL, MEK ) = RXRAT( 138 ) & + RXRAT( 139 ) PROD( NCELL, PROD2 ) = 0.500 * RXRAT( 64 ) & + 0.500 * RXRAT( 66 ) & + RXRAT( 68 ) & + RXRAT( 77 ) & + RXRAT( 87 ) & + RXRAT( 98 ) & + 0.700 * RXRAT( 169 ) & + 0.332 * RXRAT( 170 ) & + 0.048 * RXRAT( 176 ) & + 0.435 * RXRAT( 177 ) & + 0.100 * RXRAT( 190 ) & + 0.750 * RXRAT( 192 ) & + 0.276 * RXRAT( 193 ) & + 0.276 * RXRAT( 194 ) & + 0.853 * RXRAT( 196 ) & + 0.125 * RXRAT( 200 ) & + 0.417 * RXRAT( 201 ) & + 0.055 * RXRAT( 202 ) & + 0.119 * RXRAT( 204 ) & + 0.215 * RXRAT( 205 ) & + 0.113 * RXRAT( 207 ) & + 0.006 * RXRAT( 209 ) & + 0.259 * RXRAT( 211 ) LOSS( NCELL, PROD2 ) = 0.671 * RXRAT( 174 ) & + RXRAT( 175 ) PROD( NCELL, CCO_OOH ) = 0.750 * RXRAT( 72 ) LOSS( NCELL, CCO_OOH ) = 0.0 PROD( NCELL, CCO_OH ) = 0.250 * RXRAT( 72 ) & + RXRAT( 74 ) & + RXRAT( 75 ) & + RXRAT( 77 ) & + 0.050 * RXRAT( 205 ) & + 0.129 * RXRAT( 209 ) LOSS( NCELL, CCO_OH ) = RXRAT( 213 ) PROD( NCELL, RCO_O2 ) = RXRAT( 80 ) & + 0.965 * RXRAT( 133 ) & + RXRAT( 135 ) & + 0.096 * RXRAT( 138 ) & + 0.370 * RXRAT( 147 ) & + 0.370 * RXRAT( 148 ) & + 0.100 * RXRAT( 162 ) & + 0.050 * RXRAT( 167 ) & + 0.048 * RXRAT( 171 ) & + 0.300 * RXRAT( 173 ) & + 0.049 * RXRAT( 174 ) & + 0.333 * RXRAT( 175 ) & + 0.201 * RXRAT( 194 ) & + 0.006 * RXRAT( 209 ) LOSS( NCELL, RCO_O2 ) = RXRAT( 79 ) & + RXRAT( 81 ) & + RXRAT( 82 ) & + RXRAT( 83 ) & + RXRAT( 84 ) & + RXRAT( 85 ) & + RXRAT( 87 ) & + RXRAT( 88 ) & + 2.000 * RXRAT( 89 ) & + RXRAT( 100 ) & + RXRAT( 112 ) PROD( NCELL, PAN2 ) = RXRAT( 79 ) LOSS( NCELL, PAN2 ) = RXRAT( 80 ) PROD( NCELL, CCHO ) = RXRAT( 81 ) & + RXRAT( 83 ) & + RXRAT( 88 ) & + 2.000 * RXRAT( 89 ) & + RXRAT( 100 ) & + RXRAT( 112 ) & + 0.034 * RXRAT( 133 ) & + RXRAT( 134 ) & + 0.482 * RXRAT( 138 ) & + RXRAT( 139 ) & + 0.129 * RXRAT( 170 ) & + 0.047 * RXRAT( 171 ) & + 0.467 * RXRAT( 173 ) & + 0.084 * RXRAT( 174 ) & + 0.246 * RXRAT( 175 ) & + 0.439 * RXRAT( 176 ) & + 0.431 * RXRAT( 177 ) & + 0.195 * RXRAT( 185 ) & + 0.250 * RXRAT( 188 ) & + RXRAT( 197 ) & + 0.445 * RXRAT( 199 ) & + 0.455 * RXRAT( 200 ) & + 0.099 * RXRAT( 201 ) & + 0.294 * RXRAT( 204 ) & + 0.154 * RXRAT( 205 ) & + 0.009 * RXRAT( 206 ) & + 0.732 * RXRAT( 208 ) & + 0.456 * RXRAT( 209 ) & + 0.507 * RXRAT( 210 ) & + 0.605 * RXRAT( 214 ) LOSS( NCELL, CCHO ) = RXRAT( 130 ) & + RXRAT( 131 ) & + RXRAT( 132 ) PROD( NCELL, RCO_OOH ) = 0.750 * RXRAT( 82 ) & + 0.750 * RXRAT( 93 ) & + 0.750 * RXRAT( 105 ) LOSS( NCELL, RCO_OOH ) = 0.0 PROD( NCELL, RCO_OH ) = 0.250 * RXRAT( 82 ) & + RXRAT( 84 ) & + RXRAT( 85 ) & + RXRAT( 87 ) & + 0.250 * RXRAT( 93 ) & + RXRAT( 95 ) & + RXRAT( 96 ) & + RXRAT( 98 ) & + 0.250 * RXRAT( 105 ) & + RXRAT( 107 ) & + RXRAT( 108 ) & + 2.000 * RXRAT( 110 ) & + 0.372 * RXRAT( 171 ) & + 0.150 * RXRAT( 190 ) & + 0.189 * RXRAT( 194 ) & + 0.119 * RXRAT( 205 ) & + 0.303 * RXRAT( 209 ) LOSS( NCELL, RCO_OH ) = RXRAT( 214 ) PROD( NCELL, BZCO_O2 ) = RXRAT( 91 ) & + RXRAT( 158 ) & + RXRAT( 160 ) LOSS( NCELL, BZCO_O2 ) = RXRAT( 90 ) & + RXRAT( 92 ) & + RXRAT( 93 ) & + RXRAT( 94 ) & + RXRAT( 95 ) & + RXRAT( 96 ) & + RXRAT( 98 ) & + RXRAT( 99 ) & + RXRAT( 100 ) & + 2.000 * RXRAT( 101 ) & + RXRAT( 113 ) PROD( NCELL, PBZN ) = RXRAT( 90 ) LOSS( NCELL, PBZN ) = RXRAT( 91 ) PROD( NCELL, BZ_O ) = RXRAT( 92 ) & + RXRAT( 94 ) & + RXRAT( 99 ) & + RXRAT( 100 ) & + 2.000 * RXRAT( 101 ) & + RXRAT( 113 ) & + 0.240 * RXRAT( 153 ) & + RXRAT( 154 ) & + 0.240 * RXRAT( 155 ) & + RXRAT( 156 ) LOSS( NCELL, BZ_O ) = RXRAT( 117 ) & + RXRAT( 118 ) & + RXRAT( 119 ) PROD( NCELL, MA_RCO3 ) = RXRAT( 103 ) & + 0.500 * RXRAT( 161 ) & + 0.500 * RXRAT( 163 ) & + 0.330 * RXRAT( 165 ) & + 0.300 * RXRAT( 169 ) & + 0.289 * RXRAT( 170 ) & + 0.150 * RXRAT( 172 ) & + 0.192 * RXRAT( 190 ) & + 0.240 * RXRAT( 192 ) LOSS( NCELL, MA_RCO3 ) = RXRAT( 102 ) & + RXRAT( 104 ) & + RXRAT( 105 ) & + RXRAT( 106 ) & + RXRAT( 107 ) & + RXRAT( 108 ) & + RXRAT( 110 ) & + RXRAT( 111 ) & + RXRAT( 112 ) & + RXRAT( 113 ) & + 2.000 * RXRAT( 114 ) PROD( NCELL, MA_PAN ) = RXRAT( 102 ) LOSS( NCELL, MA_PAN ) = RXRAT( 103 ) PROD( NCELL, TBU_O ) = 0.236 * RXRAT( 199 ) LOSS( NCELL, TBU_O ) = RXRAT( 115 ) & + RXRAT( 116 ) PROD( NCELL, ACET ) = RXRAT( 116 ) & + 0.006 * RXRAT( 176 ) & + 0.020 * RXRAT( 177 ) & + 0.130 * RXRAT( 194 ) & + 0.417 * RXRAT( 198 ) & + 0.024 * RXRAT( 199 ) & + 0.452 * RXRAT( 200 ) & + 0.072 * RXRAT( 201 ) & + 0.005 * RXRAT( 204 ) & + 0.001 * RXRAT( 205 ) & + 0.024 * RXRAT( 206 ) & + 0.127 * RXRAT( 208 ) & + 0.045 * RXRAT( 209 ) & + 0.102 * RXRAT( 210 ) LOSS( NCELL, ACET ) = RXRAT( 136 ) & + RXRAT( 137 ) PROD( NCELL, NPHE ) = RXRAT( 117 ) & + RXRAT( 121 ) & + RXRAT( 122 ) LOSS( NCELL, NPHE ) = RXRAT( 157 ) PROD( NCELL, PHEN ) = RXRAT( 118 ) & + RXRAT( 119 ) & + 0.017 * RXRAT( 202 ) LOSS( NCELL, PHEN ) = RXRAT( 153 ) & + RXRAT( 154 ) PROD( NCELL, BZNO2_O ) = RXRAT( 157 ) LOSS( NCELL, BZNO2_O ) = RXRAT( 120 ) & + RXRAT( 121 ) & + RXRAT( 122 ) PROD( NCELL, HOCOO ) = RXRAT( 126 ) LOSS( NCELL, HOCOO ) = RXRAT( 127 ) & + RXRAT( 128 ) PROD( NCELL, HCOOH ) = RXRAT( 128 ) & + 0.333 * RXRAT( 162 ) & + 0.351 * RXRAT( 167 ) & + 0.100 * RXRAT( 171 ) & + 0.370 * RXRAT( 186 ) & + 0.204 * RXRAT( 190 ) & + 0.103 * RXRAT( 194 ) & + 0.121 * RXRAT( 198 ) & + 0.185 * RXRAT( 205 ) & + 0.073 * RXRAT( 209 ) LOSS( NCELL, HCOOH ) = RXRAT( 212 ) PROD( NCELL, RCHO ) = 0.370 * RXRAT( 138 ) & + RXRAT( 143 ) & + RXRAT( 144 ) & + RXRAT( 164 ) & + 0.675 * RXRAT( 166 ) & + 0.450 * RXRAT( 168 ) & + 0.013 * RXRAT( 170 ) & + 0.218 * RXRAT( 172 ) & + 0.558 * RXRAT( 174 ) & + 0.710 * RXRAT( 175 ) & + 0.213 * RXRAT( 176 ) & + 0.147 * RXRAT( 177 ) & + RXRAT( 178 ) & + RXRAT( 180 ) & + RXRAT( 182 ) & + RXRAT( 187 ) & + 0.474 * RXRAT( 193 ) & + 0.205 * RXRAT( 194 ) & + 0.474 * RXRAT( 195 ) & + 0.147 * RXRAT( 196 ) & + 0.155 * RXRAT( 198 ) & + 0.122 * RXRAT( 199 ) & + 0.244 * RXRAT( 200 ) & + 0.204 * RXRAT( 201 ) & + 0.497 * RXRAT( 204 ) & + 0.363 * RXRAT( 205 ) & + 0.037 * RXRAT( 206 ) & + 0.450 * RXRAT( 207 ) & + 0.511 * RXRAT( 208 ) & + 0.305 * RXRAT( 209 ) & + 0.151 * RXRAT( 210 ) & + 0.069 * RXRAT( 211 ) & + 0.210 * RXRAT( 214 ) LOSS( NCELL, RCHO ) = RXRAT( 133 ) & + RXRAT( 134 ) & + RXRAT( 135 ) PROD( NCELL, GLY ) = 0.230 * RXRAT( 153 ) & + 0.150 * RXRAT( 170 ) & + 0.023 * RXRAT( 171 ) & + RXRAT( 179 ) & + 0.500 * RXRAT( 181 ) & + 0.500 * RXRAT( 183 ) & + 0.009 * RXRAT( 188 ) & + 0.001 * RXRAT( 194 ) & + 0.248 * RXRAT( 198 ) & + 0.118 * RXRAT( 202 ) & + 0.097 * RXRAT( 203 ) LOSS( NCELL, GLY ) = RXRAT( 145 ) & + RXRAT( 146 ) & + RXRAT( 147 ) & + RXRAT( 148 ) PROD( NCELL, MGLY ) = 0.230 * RXRAT( 155 ) & + 0.084 * RXRAT( 161 ) & + 0.900 * RXRAT( 162 ) & + 0.300 * RXRAT( 166 ) & + 0.950 * RXRAT( 167 ) & + 0.174 * RXRAT( 170 ) & + 0.742 * RXRAT( 171 ) & + 0.008 * RXRAT( 172 ) & + 0.500 * RXRAT( 181 ) & + 0.500 * RXRAT( 183 ) & + 0.119 * RXRAT( 202 ) & + 0.287 * RXRAT( 203 ) & + 0.130 * RXRAT( 213 ) LOSS( NCELL, MGLY ) = RXRAT( 149 ) & + RXRAT( 150 ) & + RXRAT( 151 ) PROD( NCELL, BACL ) = 0.031 * RXRAT( 194 ) & + 0.087 * RXRAT( 203 ) & + 0.185 * RXRAT( 214 ) LOSS( NCELL, BACL ) = RXRAT( 152 ) PROD( NCELL, CRES ) = 0.207 * RXRAT( 202 ) & + 0.187 * RXRAT( 203 ) LOSS( NCELL, CRES ) = RXRAT( 155 ) & + RXRAT( 156 ) PROD( NCELL, BALD ) = 0.059 * RXRAT( 202 ) & + 0.050 * RXRAT( 203 ) & + 0.061 * RXRAT( 208 ) & + 0.042 * RXRAT( 209 ) & + 0.015 * RXRAT( 210 ) LOSS( NCELL, BALD ) = RXRAT( 158 ) & + RXRAT( 159 ) & + RXRAT( 160 ) PROD( NCELL, METHACRO ) = 0.230 * RXRAT( 189 ) & + 0.390 * RXRAT( 190 ) & + 0.025 * RXRAT( 208 ) & + 0.026 * RXRAT( 209 ) & + 0.012 * RXRAT( 211 ) LOSS( NCELL, METHACRO ) = RXRAT( 161 ) & + RXRAT( 162 ) & + RXRAT( 163 ) & + RXRAT( 164 ) & + RXRAT( 165 ) PROD( NCELL, MVK ) = 0.320 * RXRAT( 189 ) & + 0.160 * RXRAT( 190 ) & + 0.048 * RXRAT( 210 ) LOSS( NCELL, MVK ) = RXRAT( 166 ) & + RXRAT( 167 ) & + RXRAT( 168 ) & + RXRAT( 169 ) PROD( NCELL, ISOPROD ) = 0.357 * RXRAT( 189 ) & + 0.936 * RXRAT( 191 ) & + 0.025 * RXRAT( 208 ) LOSS( NCELL, ISOPROD ) = RXRAT( 170 ) & + RXRAT( 171 ) & + RXRAT( 172 ) & + RXRAT( 173 ) PROD( NCELL, DCB1 ) = 0.491 * RXRAT( 202 ) & + 0.561 * RXRAT( 203 ) LOSS( NCELL, DCB1 ) = RXRAT( 178 ) & + RXRAT( 179 ) PROD( NCELL, DCB2 ) = 0.108 * RXRAT( 202 ) & + 0.099 * RXRAT( 203 ) LOSS( NCELL, DCB2 ) = RXRAT( 180 ) & + RXRAT( 181 ) PROD( NCELL, DCB3 ) = 0.051 * RXRAT( 202 ) & + 0.093 * RXRAT( 203 ) LOSS( NCELL, DCB3 ) = RXRAT( 182 ) & + RXRAT( 183 ) PROD( NCELL, ETHENE ) = 0.0 LOSS( NCELL, ETHENE ) = RXRAT( 185 ) & + RXRAT( 186 ) & + RXRAT( 187 ) & + RXRAT( 188 ) PROD( NCELL, ISOPRENE ) = 0.0 LOSS( NCELL, ISOPRENE ) = RXRAT( 189 ) & + RXRAT( 190 ) & + RXRAT( 191 ) & + RXRAT( 192 ) PROD( NCELL, TRP1 ) = 0.0 LOSS( NCELL, TRP1 ) = RXRAT( 193 ) & + RXRAT( 194 ) & + RXRAT( 195 ) & + RXRAT( 196 ) PROD( NCELL, ALK1 ) = 0.0 LOSS( NCELL, ALK1 ) = RXRAT( 197 ) PROD( NCELL, ALK2 ) = 0.0 LOSS( NCELL, ALK2 ) = RXRAT( 198 ) PROD( NCELL, ALK3 ) = 0.0 LOSS( NCELL, ALK3 ) = RXRAT( 199 ) PROD( NCELL, ALK4 ) = 0.0 LOSS( NCELL, ALK4 ) = RXRAT( 200 ) PROD( NCELL, ALK5 ) = 0.0 LOSS( NCELL, ALK5 ) = RXRAT( 201 ) PROD( NCELL, ARO1 ) = 0.0 LOSS( NCELL, ARO1 ) = RXRAT( 202 ) PROD( NCELL, ARO2 ) = 0.0 LOSS( NCELL, ARO2 ) = RXRAT( 203 ) PROD( NCELL, OLE1 ) = 0.0 LOSS( NCELL, OLE1 ) = RXRAT( 204 ) & + RXRAT( 205 ) & + RXRAT( 206 ) & + RXRAT( 207 ) PROD( NCELL, OLE2 ) = 0.0 LOSS( NCELL, OLE2 ) = RXRAT( 208 ) & + RXRAT( 209 ) & + RXRAT( 210 ) & + RXRAT( 211 ) IF( L_AE_VRSN ) THEN PROD( NCELL, SULAER ) = RXRAT( 44 ) LOSS( NCELL, SULAER ) = 0.0 PROD( NCELL, ALK5AER ) = RXRAT( 201 ) LOSS( NCELL, ALK5AER ) = 0.0 PROD( NCELL, OLE2AER ) = RXRAT( 208 ) & + RXRAT( 209 ) & + RXRAT( 210 ) LOSS( NCELL, OLE2AER ) = 0.0 PROD( NCELL, ARO1AER ) = RXRAT( 202 ) LOSS( NCELL, ARO1AER ) = 0.0 PROD( NCELL, ARO2AER ) = RXRAT( 203 ) LOSS( NCELL, ARO2AER ) = 0.0 PROD( NCELL, CRESAER ) = RXRAT( 155 ) & + RXRAT( 156 ) LOSS( NCELL, CRESAER ) = 0.0 PROD( NCELL, TRP1AER ) = RXRAT( 193 ) & + RXRAT( 194 ) & + RXRAT( 195 ) & + RXRAT( 196 ) LOSS( NCELL, TRP1AER ) = 0.0 END IF RETURN END S1 ================================================ FILE: UTIL/create_ebi/template_RXNSU_OPT/hrrates.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE HRRATES C*********************************************************************** C C FUNCTION: To calculate rates of reactions C R1 PRECONDITIONS: For SAPRC99 family of mechanisms C C KEY SUBROUTINES/FUNCTIONS CALLED: None C R2 REVISION HISTORY: Prototype created by Jerry Gipson, September, 2003 C C*********************************************************************** USE HRDATA IMPLICIT NONE C.....INCLUDES: NONE C.....ARGUMENTS: NONE C.....PARAMETERS: NONE C.....EXTERNAL FUNCTIONS: NONE C.....SAVED VARIABLES: NONE ! CHARACTER( 16 ), SAVE :: PNAME = 'HRRATES' ! Program name C.....LOCAL VARIABLES: None C*********************************************************************** S1 C..NOTE: RXRAT commented out are not referenced by any routine C..Photolytic reactions ! RXRAT( 1 ) = RKI( 1 ) * YC( NO2 ) RXRAT( 15 ) = RKI( 15 ) * YC( NO3 ) RXRAT( 16 ) = RKI( 16 ) * YC( NO3 ) RXRAT( 17 ) = RKI( 17 ) * YC( O3 ) RXRAT( 18 ) = RKI( 18 ) * YC( O3 ) RXRAT( 22 ) = RKI( 22 ) * YC( HONO ) RXRAT( 23 ) = RKI( 23 ) * YC( HONO ) RXRAT( 28 ) = RKI( 28 ) * YC( HNO3 ) RXRAT( 34 ) = RKI( 34 ) * YC( HNO4 ) RXRAT( 41 ) = RKI( 41 ) * YC( HO2H ) RXRAT( 123 ) = RKI( 123 ) * YC( HCHO ) RXRAT( 124 ) = RKI( 124 ) * YC( HCHO ) RXRAT( 131 ) = RKI( 131 ) * YC( CCHO ) RXRAT( 134 ) = RKI( 134 ) * YC( RCHO ) RXRAT( 137 ) = RKI( 137 ) * YC( ACET ) RXRAT( 139 ) = RKI( 139 ) * YC( MEK ) RXRAT( 142 ) = RKI( 142 ) * YC( COOH ) RXRAT( 144 ) = RKI( 144 ) * YC( ROOH ) RXRAT( 145 ) = RKI( 145 ) * YC( GLY ) RXRAT( 146 ) = RKI( 146 ) * YC( GLY ) RXRAT( 149 ) = RKI( 149 ) * YC( MGLY ) RXRAT( 152 ) = RKI( 152 ) * YC( BACL ) RXRAT( 159 ) = RKI( 159 ) * YC( BALD ) RXRAT( 165 ) = RKI( 165 ) * YC( METHACRO ) RXRAT( 169 ) = RKI( 169 ) * YC( MVK ) RXRAT( 173 ) = RKI( 173 ) * YC( ISOPROD ) RXRAT( 175 ) = RKI( 175 ) * YC( PROD2 ) RXRAT( 177 ) = RKI( 177 ) * YC( RNO3 ) RXRAT( 181 ) = RKI( 181 ) * YC( DCB2 ) RXRAT( 183 ) = RKI( 183 ) * YC( DCB3 ) C..Thermal reactions ! RXRAT( 2 ) = RKI( 2 ) * YC( O3P ) ! RXRAT( 3 ) = RKI( 3 ) * YC( O3P ) * YC( O3 ) ! RXRAT( 4 ) = RKI( 4 ) * YC( O3P ) * YC( NO ) ! RXRAT( 5 ) = RKI( 5 ) * YC( O3P ) * YC( NO2 ) RXRAT( 6 ) = RKI( 6 ) * YC( O3P ) * YC( NO2 ) ! RXRAT( 7 ) = RKI( 7 ) * YC( O3 ) * YC( NO ) RXRAT( 8 ) = RKI( 8 ) * YC( O3 ) * YC( NO2 ) RXRAT( 9 ) = RKI( 9 ) * YC( NO ) * YC( NO3 ) ! RXRAT( 10 ) = RKI( 10 ) * YC( NO ) * YC( NO ) ! RXRAT( 11 ) = RKI( 11 ) * YC( NO2 ) * YC( NO3 ) RXRAT( 12 ) = RKI( 12 ) * YC( N2O5 ) RXRAT( 13 ) = RKI( 13 ) * YC( N2O5 ) RXRAT( 14 ) = RKI( 14 ) * YC( NO2 ) * YC( NO3 ) ! RXRAT( 19 ) = RKI( 19 ) * YC( O1D2 ) ! RXRAT( 20 ) = RKI( 20 ) * YC( O1D2 ) ! RXRAT( 21 ) = RKI( 21 ) * YC( HO ) * YC( NO ) RXRAT( 24 ) = RKI( 24 ) * YC( HO ) * YC( HONO ) RXRAT( 25 ) = RKI( 25 ) * YC( HO ) * YC( NO2 ) RXRAT( 26 ) = RKI( 26 ) * YC( HO ) * YC( NO3 ) RXRAT( 27 ) = RKI( 27 ) * YC( HO ) * YC( HNO3 ) RXRAT( 29 ) = RKI( 29 ) * YC( HO ) * YC( CO ) ! RXRAT( 30 ) = RKI( 30 ) * YC( HO ) * YC( O3 ) ! RXRAT( 31 ) = RKI( 31 ) * YC( HO2 ) * YC( NO ) ! RXRAT( 32 ) = RKI( 32 ) * YC( HO2 ) * YC( NO2 ) RXRAT( 33 ) = RKI( 33 ) * YC( HNO4 ) RXRAT( 35 ) = RKI( 35 ) * YC( HNO4 ) * YC( HO ) ! RXRAT( 36 ) = RKI( 36 ) * YC( HO2 ) * YC( O3 ) RXRAT( 37 ) = RKI( 37 ) * YC( HO2 ) * YC( HO2 ) RXRAT( 38 ) = RKI( 38 ) * YC( HO2 ) * YC( HO2 ) RXRAT( 39 ) = RKI( 39 ) * YC( NO3 ) * YC( HO2 ) RXRAT( 40 ) = RKI( 40 ) * YC( NO3 ) * YC( NO3 ) RXRAT( 42 ) = RKI( 42 ) * YC( HO2H ) * YC( HO ) ! RXRAT( 43 ) = RKI( 43 ) * YC( HO ) * YC( HO2 ) RXRAT( 44 ) = RKI( 44 ) * YC( HO ) * YC( SO2 ) ! RXRAT( 45 ) = RKI( 45 ) * YC( HO ) RXRAT( 46 ) = RKI( 46 ) * YC( C_O2 ) * YC( NO ) RXRAT( 47 ) = RKI( 47 ) * YC( C_O2 ) * YC( HO2 ) RXRAT( 48 ) = RKI( 48 ) * YC( C_O2 ) * YC( NO3 ) RXRAT( 49 ) = RKI( 49 ) * YC( C_O2 ) * YC( C_O2 ) RXRAT( 50 ) = RKI( 50 ) * YC( C_O2 ) * YC( C_O2 ) RXRAT( 51 ) = RKI( 51 ) * YC( RO2_R ) * YC( NO ) RXRAT( 52 ) = RKI( 52 ) * YC( RO2_R ) * YC( HO2 ) RXRAT( 53 ) = RKI( 53 ) * YC( RO2_R ) * YC( NO3 ) RXRAT( 54 ) = RKI( 54 ) * YC( RO2_R ) * YC( C_O2 ) RXRAT( 55 ) = RKI( 55 ) * YC( RO2_R ) * YC( RO2_R ) RXRAT( 56 ) = RKI( 56 ) * YC( R2O2 ) * YC( NO ) RXRAT( 57 ) = RKI( 57 ) * YC( R2O2 ) * YC( HO2 ) RXRAT( 58 ) = RKI( 58 ) * YC( R2O2 ) * YC( NO3 ) RXRAT( 59 ) = RKI( 59 ) * YC( R2O2 ) * YC( C_O2 ) RXRAT( 60 ) = RKI( 60 ) * YC( R2O2 ) * YC( RO2_R ) RXRAT( 61 ) = RKI( 61 ) * YC( R2O2 ) * YC( R2O2 ) RXRAT( 62 ) = RKI( 62 ) * YC( RO2_N ) * YC( NO ) RXRAT( 63 ) = RKI( 63 ) * YC( RO2_N ) * YC( HO2 ) RXRAT( 64 ) = RKI( 64 ) * YC( RO2_N ) * YC( C_O2 ) RXRAT( 65 ) = RKI( 65 ) * YC( RO2_N ) * YC( NO3 ) RXRAT( 66 ) = RKI( 66 ) * YC( RO2_N ) * YC( RO2_R ) RXRAT( 67 ) = RKI( 67 ) * YC( RO2_N ) * YC( R2O2 ) RXRAT( 68 ) = RKI( 68 ) * YC( RO2_N ) * YC( RO2_N ) ! RXRAT( 69 ) = RKI( 69 ) * YC( CCO_O2 ) * YC( NO2 ) RXRAT( 70 ) = RKI( 70 ) * YC( PAN ) RXRAT( 71 ) = RKI( 71 ) * YC( CCO_O2 ) * YC( NO ) RXRAT( 72 ) = RKI( 72 ) * YC( CCO_O2 ) * YC( HO2 ) RXRAT( 73 ) = RKI( 73 ) * YC( CCO_O2 ) * YC( NO3 ) RXRAT( 74 ) = RKI( 74 ) * YC( CCO_O2 ) * YC( C_O2 ) RXRAT( 75 ) = RKI( 75 ) * YC( CCO_O2 ) * YC( RO2_R ) RXRAT( 76 ) = RKI( 76 ) * YC( CCO_O2 ) * YC( R2O2 ) RXRAT( 77 ) = RKI( 77 ) * YC( CCO_O2 ) * YC( RO2_N ) RXRAT( 78 ) = RKI( 78 ) * YC( CCO_O2 ) * YC( CCO_O2 ) RXRAT( 79 ) = RKI( 79 ) * YC( RCO_O2 ) * YC( NO2 ) RXRAT( 80 ) = RKI( 80 ) * YC( PAN2 ) RXRAT( 81 ) = RKI( 81 ) * YC( RCO_O2 ) * YC( NO ) RXRAT( 82 ) = RKI( 82 ) * YC( RCO_O2 ) * YC( HO2 ) RXRAT( 83 ) = RKI( 83 ) * YC( RCO_O2 ) * YC( NO3 ) RXRAT( 84 ) = RKI( 84 ) * YC( RCO_O2 ) * YC( C_O2 ) RXRAT( 85 ) = RKI( 85 ) * YC( RCO_O2 ) * YC( RO2_R ) RXRAT( 86 ) = RKI( 86 ) * YC( RCO_O2 ) * YC( R2O2 ) RXRAT( 87 ) = RKI( 87 ) * YC( RCO_O2 ) * YC( RO2_N ) RXRAT( 88 ) = RKI( 88 ) * YC( RCO_O2 ) * YC( CCO_O2 ) RXRAT( 89 ) = RKI( 89 ) * YC( RCO_O2 ) * YC( RCO_O2 ) RXRAT( 90 ) = RKI( 90 ) * YC( BZCO_O2 ) * YC( NO2 ) RXRAT( 91 ) = RKI( 91 ) * YC( PBZN ) RXRAT( 92 ) = RKI( 92 ) * YC( BZCO_O2 ) * YC( NO ) RXRAT( 93 ) = RKI( 93 ) * YC( BZCO_O2 ) * YC( HO2 ) RXRAT( 94 ) = RKI( 94 ) * YC( BZCO_O2 ) * YC( NO3 ) RXRAT( 95 ) = RKI( 95 ) * YC( BZCO_O2 ) * YC( C_O2 ) RXRAT( 96 ) = RKI( 96 ) * YC( BZCO_O2 ) * YC( RO2_R ) RXRAT( 97 ) = RKI( 97 ) * YC( BZCO_O2 ) * YC( R2O2 ) RXRAT( 98 ) = RKI( 98 ) * YC( BZCO_O2 ) * YC( RO2_N ) RXRAT( 99 ) = RKI( 99 ) * YC( BZCO_O2 ) * YC( CCO_O2 ) RXRAT( 100 ) = RKI( 100 ) * YC( BZCO_O2 ) * YC( RCO_O2 ) RXRAT( 101 ) = RKI( 101 ) * YC( BZCO_O2 ) * YC( BZCO_O2 ) RXRAT( 102 ) = RKI( 102 ) * YC( MA_RCO3 ) * YC( NO2 ) RXRAT( 103 ) = RKI( 103 ) * YC( MA_PAN ) RXRAT( 104 ) = RKI( 104 ) * YC( MA_RCO3 ) * YC( NO ) RXRAT( 105 ) = RKI( 105 ) * YC( MA_RCO3 ) * YC( HO2 ) RXRAT( 106 ) = RKI( 106 ) * YC( MA_RCO3 ) * YC( NO3 ) RXRAT( 107 ) = RKI( 107 ) * YC( MA_RCO3 ) * YC( C_O2 ) RXRAT( 108 ) = RKI( 108 ) * YC( MA_RCO3 ) * YC( RO2_R ) RXRAT( 109 ) = RKI( 109 ) * YC( MA_RCO3 ) * YC( R2O2 ) RXRAT( 110 ) = RKI( 110 ) * YC( MA_RCO3 ) * YC( RO2_N ) RXRAT( 111 ) = RKI( 111 ) * YC( MA_RCO3 ) * YC( CCO_O2 ) RXRAT( 112 ) = RKI( 112 ) * YC( MA_RCO3 ) * YC( RCO_O2 ) RXRAT( 113 ) = RKI( 113 ) * YC( MA_RCO3 ) * YC( BZCO_O2 ) RXRAT( 114 ) = RKI( 114 ) * YC( MA_RCO3 ) * YC( MA_RCO3 ) RXRAT( 115 ) = RKI( 115 ) * YC( TBU_O ) * YC( NO2 ) RXRAT( 116 ) = RKI( 116 ) * YC( TBU_O ) RXRAT( 117 ) = RKI( 117 ) * YC( BZ_O ) * YC( NO2 ) RXRAT( 118 ) = RKI( 118 ) * YC( BZ_O ) * YC( HO2 ) RXRAT( 119 ) = RKI( 119 ) * YC( BZ_O ) RXRAT( 120 ) = RKI( 120 ) * YC( BZNO2_O ) * YC( NO2 ) RXRAT( 121 ) = RKI( 121 ) * YC( BZNO2_O ) * YC( HO2 ) RXRAT( 122 ) = RKI( 122 ) * YC( BZNO2_O ) RXRAT( 125 ) = RKI( 125 ) * YC( HCHO ) * YC( HO ) RXRAT( 126 ) = RKI( 126 ) * YC( HCHO ) * YC( HO2 ) RXRAT( 127 ) = RKI( 127 ) * YC( HOCOO ) RXRAT( 128 ) = RKI( 128 ) * YC( HOCOO ) * YC( NO ) RXRAT( 129 ) = RKI( 129 ) * YC( HCHO ) * YC( NO3 ) RXRAT( 130 ) = RKI( 130 ) * YC( CCHO ) * YC( HO ) RXRAT( 132 ) = RKI( 132 ) * YC( CCHO ) * YC( NO3 ) RXRAT( 133 ) = RKI( 133 ) * YC( RCHO ) * YC( HO ) RXRAT( 135 ) = RKI( 135 ) * YC( RCHO ) * YC( NO3 ) RXRAT( 136 ) = RKI( 136 ) * YC( ACET ) * YC( HO ) RXRAT( 138 ) = RKI( 138 ) * YC( MEK ) * YC( HO ) RXRAT( 140 ) = RKI( 140 ) * YC( MEOH ) * YC( HO ) RXRAT( 141 ) = RKI( 141 ) * YC( COOH ) * YC( HO ) RXRAT( 143 ) = RKI( 143 ) * YC( ROOH ) * YC( HO ) RXRAT( 147 ) = RKI( 147 ) * YC( GLY ) * YC( HO ) RXRAT( 148 ) = RKI( 148 ) * YC( GLY ) * YC( NO3 ) RXRAT( 150 ) = RKI( 150 ) * YC( MGLY ) * YC( HO ) RXRAT( 151 ) = RKI( 151 ) * YC( MGLY ) * YC( NO3 ) RXRAT( 153 ) = RKI( 153 ) * YC( PHEN ) * YC( HO ) RXRAT( 154 ) = RKI( 154 ) * YC( PHEN ) * YC( NO3 ) RXRAT( 155 ) = RKI( 155 ) * YC( CRES ) * YC( HO ) RXRAT( 156 ) = RKI( 156 ) * YC( CRES ) * YC( NO3 ) RXRAT( 157 ) = RKI( 157 ) * YC( NPHE ) * YC( NO3 ) RXRAT( 158 ) = RKI( 158 ) * YC( BALD ) * YC( HO ) RXRAT( 160 ) = RKI( 160 ) * YC( BALD ) * YC( NO3 ) RXRAT( 161 ) = RKI( 161 ) * YC( METHACRO ) * YC( HO ) RXRAT( 162 ) = RKI( 162 ) * YC( METHACRO ) * YC( O3 ) RXRAT( 163 ) = RKI( 163 ) * YC( METHACRO ) * YC( NO3 ) RXRAT( 164 ) = RKI( 164 ) * YC( METHACRO ) * YC( O3P ) RXRAT( 166 ) = RKI( 166 ) * YC( MVK ) * YC( HO ) RXRAT( 167 ) = RKI( 167 ) * YC( MVK ) * YC( O3 ) RXRAT( 168 ) = RKI( 168 ) * YC( MVK ) * YC( O3P ) RXRAT( 170 ) = RKI( 170 ) * YC( ISOPROD ) * YC( HO ) RXRAT( 171 ) = RKI( 171 ) * YC( ISOPROD ) * YC( O3 ) RXRAT( 172 ) = RKI( 172 ) * YC( ISOPROD ) * YC( NO3 ) RXRAT( 174 ) = RKI( 174 ) * YC( PROD2 ) * YC( HO ) RXRAT( 176 ) = RKI( 176 ) * YC( RNO3 ) * YC( HO ) RXRAT( 178 ) = RKI( 178 ) * YC( DCB1 ) * YC( HO ) RXRAT( 179 ) = RKI( 179 ) * YC( DCB1 ) * YC( O3 ) RXRAT( 180 ) = RKI( 180 ) * YC( DCB2 ) * YC( HO ) RXRAT( 182 ) = RKI( 182 ) * YC( DCB3 ) * YC( HO ) RXRAT( 184 ) = RKI( 184 ) * YC( HO ) RXRAT( 185 ) = RKI( 185 ) * YC( ETHENE ) * YC( HO ) RXRAT( 186 ) = RKI( 186 ) * YC( ETHENE ) * YC( O3 ) RXRAT( 187 ) = RKI( 187 ) * YC( ETHENE ) * YC( NO3 ) RXRAT( 188 ) = RKI( 188 ) * YC( ETHENE ) * YC( O3P ) RXRAT( 189 ) = RKI( 189 ) * YC( ISOPRENE ) * YC( HO ) RXRAT( 190 ) = RKI( 190 ) * YC( ISOPRENE ) * YC( O3 ) RXRAT( 191 ) = RKI( 191 ) * YC( ISOPRENE ) * YC( NO3 ) RXRAT( 192 ) = RKI( 192 ) * YC( ISOPRENE ) * YC( O3P ) RXRAT( 193 ) = RKI( 193 ) * YC( TRP1 ) * YC( HO ) RXRAT( 194 ) = RKI( 194 ) * YC( TRP1 ) * YC( O3 ) RXRAT( 195 ) = RKI( 195 ) * YC( TRP1 ) * YC( NO3 ) RXRAT( 196 ) = RKI( 196 ) * YC( TRP1 ) * YC( O3P ) RXRAT( 197 ) = RKI( 197 ) * YC( ALK1 ) * YC( HO ) RXRAT( 198 ) = RKI( 198 ) * YC( ALK2 ) * YC( HO ) RXRAT( 199 ) = RKI( 199 ) * YC( ALK3 ) * YC( HO ) RXRAT( 200 ) = RKI( 200 ) * YC( ALK4 ) * YC( HO ) RXRAT( 201 ) = RKI( 201 ) * YC( ALK5 ) * YC( HO ) RXRAT( 202 ) = RKI( 202 ) * YC( ARO1 ) * YC( HO ) RXRAT( 203 ) = RKI( 203 ) * YC( ARO2 ) * YC( HO ) RXRAT( 204 ) = RKI( 204 ) * YC( OLE1 ) * YC( HO ) RXRAT( 205 ) = RKI( 205 ) * YC( OLE1 ) * YC( O3 ) RXRAT( 206 ) = RKI( 206 ) * YC( OLE1 ) * YC( NO3 ) RXRAT( 207 ) = RKI( 207 ) * YC( OLE1 ) * YC( O3P ) RXRAT( 208 ) = RKI( 208 ) * YC( OLE2 ) * YC( HO ) RXRAT( 209 ) = RKI( 209 ) * YC( OLE2 ) * YC( O3 ) RXRAT( 210 ) = RKI( 210 ) * YC( OLE2 ) * YC( NO3 ) RXRAT( 211 ) = RKI( 211 ) * YC( OLE2 ) * YC( O3P ) RXRAT( 212 ) = RKI( 212 ) * YC( HCOOH ) * YC( HO ) RXRAT( 213 ) = RKI( 213 ) * YC( CCO_OH ) * YC( HO ) RXRAT( 214 ) = RKI( 214 ) * YC( RCO_OH ) * YC( HO ) RETURN END S1 ================================================ FILE: UTIL/create_ebi/template_RXNSU_OPT/hrsolver.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! SUBROUTINE HRSOLVER( JDATE, JTIME, C, R, L ) C********************************************************************** C C FUNCTION: EBI solver C R1 PRECONDITIONS: For SAPRC99 family of mechanisms only C C KEY SUBROUTINES/FUNCTIONS CALLED: HRRATES, HRG1, HRG2, HRG3 C HRG4, HRPRODLOSS R5C DEGRADE C R2 REVISION HISTORY: Prototype created by Jerry Gipson, September, 2003 C 21 Jun 10 J.Young: convert for Namelist redesign C 18 Jul 14 B.Hutzell: revised 1) to use the RXNS_DATA and RXNS_FUNCTION C modules instead of include files and 2) to use C real(8) variables C********************************************************************** USE RUNTIME_VARS USE UTILIO_DEFN USE RXNS_DATA USE HRDATA USE PA_IRR_MODULE #ifdef isam USE SA_IRR_DEFN #endif #ifdef sens USE DDM3D_CHEM, ONLY: YCDDM USE CGRID_SPCS, ONLY: GC_SPC #endif R5 USE DEGRADE_ROUTINES, ONLY : DEGRADE, SA_DEGRADE_STEP R0 IMPLICIT NONE C..INCLUDES: C..ARGUMENTS: INTEGER, INTENT( IN ) :: JDATE ! Current date (YYYYDDD) INTEGER, INTENT( IN ) :: JTIME ! Current time (HHMMSS) INTEGER, INTENT( IN ) :: C, R, L ! Cell col, row, lev C..PARAMETERS: INTEGER, PARAMETER :: MXBKUPS = 5 ! Max no. of back-ups allowed INTEGER, PARAMETER :: STAT = 1 ! Status code REAL( 8 ), PARAMETER :: DTMIN = 1.0D-08 ! Smallest time step allowed, min REAL( 8 ), PARAMETER :: EPSLON = 1.0D-30 ! Small number REAL( 8 ), PARAMETER :: MAXPRED = 1.0D+03 ! Upper limit on predicted conc REAL( 8 ), PARAMETER :: ZERO = 1.0D-40 ! effective zero REAL( 8 ), PARAMETER :: FLOOR = 1.0D-08 ! Min conc for RTOL C..EXTERNAL FUNCTIONS: C..SAVED LOCAL VARIABLES: CHARACTER( 16 ), SAVE :: PNAME = 'HRSOLVER' ! Program name LOGICAL, SAVE :: LFIRST = .TRUE. ! Flag for first call LOGICAL, ALLOCATABLE, SAVE :: LEBISPFL( : ) ! Convergence Error Flag for EBI species LOGICAL, ALLOCATABLE, SAVE :: MAXCONC ( : ) ! MAXCONC ERROR Flag for EBI species LOGICAL, ALLOCATABLE, SAVE :: NOTMAX ( : ) ! Initial concentration not greater than MAXPRED REAL( 8 ), ALLOCATABLE, SAVE :: RERROR ( : ) ! Relative Error REAL( 8 ), ALLOCATABLE, SAVE :: AERROR ( : ) ! Absolute Error C..SCRATCH LOCAL VARIABLES: CHARACTER( 132 ) :: MSG ! Message text INTEGER CELLNO ! Cell no. fo debug output INTEGER ITER ! Loop index for Backward Euler iterations INTEGER S ! Loop index for species INTEGER SP ! Imbedded loop index for species INTEGER NEBI ! Loop index for time steps INTEGER NINR ! No. of inner time steps #ifdef hrdebug INTEGER N ! Loop index #endif R5 INTEGER M ! species index INTEGER EBI ! Loop index INTEGER NBKUPS ! No. of times time step reduced INTEGER ERR ! Allocate error flag LOGICAL LEBI_CONV ! Flag for EBI convergence LOGICAL MXFL ! hit MAXPRED flag REAL( 8 ) DTC ! Time step to take R5 REAL( 8 ) DTG ! Time step in degrade routines, sec REAL( 8 ) FXDLOSS ! Total loss due to negative stoichiometry REAL( 8 ) VARLOSS ! Loss excluding negative stoichiometry #ifdef hrdebug CHARACTER( 8 ) :: NOTE ! Convergence fail note INTEGER COL ! Column to generate deboug output for INTEGER ROW ! Row to generate deboug output for INTEGER LEV ! Level to generate deboug output for INTEGER DBGOUT ! Output unit for debu outpt LOGICAL LDEBUG ! Debug output flag LOGICAL, SAVE :: LOPEN = .FALSE. #endif C********************************************************************** IF( LFIRST ) THEN LFIRST = .FALSE. ALLOCATE ( LEBISPFL( NUMB_MECH_SPC ), STAT = ERR ) IF ( ERR .NE. 0 ) THEN MSG = 'Error allocating LEBISPFL' CALL M3EXIT( PNAME, JDATE, JTIME, MSG, XSTAT1 ) END IF ALLOCATE ( MAXCONC( NUMB_MECH_SPC ), STAT = ERR ) IF ( ERR .NE. 0 ) THEN MSG = 'Error allocating MAXCONC' CALL M3EXIT( PNAME, JDATE, JTIME, MSG, XSTAT1 ) END IF ALLOCATE ( NOTMAX( NUMB_MECH_SPC ), STAT = ERR ) IF ( ERR .NE. 0 ) THEN MSG = 'Error allocating NOTMAX' CALL M3EXIT( PNAME, JDATE, JTIME, MSG, XSTAT1 ) END IF ALLOCATE ( RERROR( NUMB_MECH_SPC ), STAT = ERR ) IF ( ERR .NE. 0 ) THEN MSG = 'Error allocating ERROR' CALL M3EXIT( PNAME, JDATE, JTIME, MSG, XSTAT1 ) END IF ALLOCATE ( AERROR( NUMB_MECH_SPC ), STAT = ERR ) IF ( ERR .NE. 0 ) THEN MSG = 'Error allocating AERROR' CALL M3EXIT( PNAME, JDATE, JTIME, MSG, XSTAT1 ) END IF END IF #ifdef sens YCDDM = 0.0D0 #endif c++++++++++++++++++++++++Debug section++++++++++++++++++++++++++++++++++ #ifdef hrdebug COL = 0 ROW = 0 LEV = 0 IF( C .EQ. COL .AND. R .EQ. ROW .AND. L .EQ. LEV ) THEN c IF( JTIME .EQ. 160000 ) THEN LDEBUG = .TRUE. ELSE LDEBUG = .FALSE. END IF IF( LDEBUG ) THEN IF( .NOT. LOPEN ) THEN DBGOUT = JUNIT() OPEN( UNIT = DBGOUT, FILE = 'debug.out' ) LOPEN = .TRUE. END IF WRITE( DBGOUT, '( A, 2I4, I3, 1X, I7, 1X, I6 ) ' ) & 'Debug output for col/row/lev/date/time:', & C, R, L, JDATE, JTIME WRITE( DBGOUT, '( A, F7.2) ' ) & 'EBI_TMSTEP = ', EBI_TMSTEP WRITE( DBGOUT, '( A )' ) 'Starting concs and rate constants' DO N = 1, NUMB_MECH_SPC WRITE( DBGOUT, '( A, I3, 1X, A, 1X, 1PD13.5 )' ) & 'SP ',N, CHEMISTRY_SPC( N ), YC( N ) END DO DO N = 1, N_RXNS WRITE( DBGOUT, '( A, I3, 1X, 1PD13.5 )' ) & 'RKI ', N, RKI( N ) END DO END IF #endif c++++++++++++++++++++++++Debug section++++++++++++++++++++++++++++++++++ DTC = EBI_TMSTEP N_EBI_IT = 0 NBKUPS = 0 N_INR_STEPS = 1 NEBI = 1 LEBI_CONV = .TRUE. #ifdef isam UPDATE_SOLD = .FALSE. UPDATE_PROBABILITIES = .TRUE. CALL SA_IRR_UNBLOCKED ( .TRUE., RKI, YC, DTC ) #endif DO S = 1, NUMB_MECH_SPC IF( YC( S ) .LE. MAXPRED )THEN NOTMAX( S ) = .TRUE. ELSE NOTMAX( S ) = .FALSE. WRITE(LOGDEV,91000)C, R, L, CHEMISTRY_SPC(S), YC(S) END IF END DO ! Initial PA_IRR IF( CALL_IRR ) CALL PA_IRR ( .TRUE., RKI, YC, DTC ) R5 SA_DEGRADE_STEP = 0 TSTEP_EBI: DO ! EBI time-step loop SUBSTEP_EBI: DO NINR = 1, N_INR_STEPS ! time substeps loop ! first attempt is sub time-step equals EBI time-step IF( LEBI_CONV ) YC0 = YC ! Set ICs for EBI iterations ITER_SUBSTEP: DO ITER = 1, NEBITER ! iteration loop solving for sub time-step N_EBI_IT = N_EBI_IT + 1 R3 CALL HRRATES c++++++++++++++++++++++++Debug section++++++++++++++++++++++++++++++++++ #ifdef hrdebug IF( LDEBUG ) THEN WRITE( DBGOUT, '( A, I5 )' ) 'ITER NO ', ITER WRITE( DBGOUT, '( A, F12.5 )' ) & ' DTC=', DTC IF( ITER .EQ. 1 ) THEN WRITE( DBGOUT, '( A )' ) 'Starting reaction rates' DO N = 1, N_RXNS WRITE( DBGOUT, '( A, I3, 1X, 1PD13.5 )' ) & 'RXRAT ', N, RXRAT( NCELL, N ) END DO END IF END IF #endif c++++++++++++++++++++++++Debug section++++++++++++++++++++++++++++++++++ cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Call routines to compute concentrations of groups 1-4 cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc CALL HRG1( DTC ) CALL HRG2( DTC ) CALL HRG3( DTC ) CALL HRG4( DTC ) cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Do the Euler backward method cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc CALL HRPRODLOSS DO EBI = 1, N_EBISP S = EBISP( EBI ) YCP( S ) = YC( S )*( ( YC0( S ) + PROD( S ) * DTC ) & / ( YC( S ) + LOSS( S ) * DTC ) ) END DO R4 cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c Check for convergence cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc LEBI_CONV = .TRUE. MXFL = .FALSE. DO S = 1, NUMB_MECH_SPC LEBISPFL( S ) = .FALSE. YCP( S ) = MAX( ZERO, YCP( S ) ) AERROR( S ) = MAX( ABS( YC(S)-YCP(S) ), EPSLON ) RERROR( S ) = AERROR( S ) / MAX( FLOOR, ABS( YC(S)+YCP(S) ) ) IF( RERROR( S ) .GT. RTOL(S) .OR. AERROR( S ) .GT. 1.0D-5 )THEN LEBI_CONV = .FALSE. LEBISPFL( S ) = .TRUE. END IF c..test if predictions growing too large IF( YCP( S ) .GT. MAXPRED .AND. NOTMAX( S ) ) THEN MXFL = .TRUE. LEBI_CONV = .FALSE. LEBISPFL( S ) = .TRUE. END IF YC( S ) = YCP( S ) END DO c..test if predictions growing too large, abort interation loop IF( MXFL ) EXIT ITER_SUBSTEP c++++++++++++++++++++++++Debug section++++++++++++++++++++++++++++++++++ #ifdef hrdebug IF( LDEBUG ) THEN WRITE( DBGOUT, '( A, I5 )' ) 'Concs after ITER= ', ITER DO S = 1, NUMB_MECH_SPC IF( LEBISPFL( S ) ) THEN NOTE = 'CONV FAIL' ELSE NOTE = ' ' END IF WRITE( DBGOUT, '( I3, 1X, A, 1PD13.5, 1X, A )' ) & S, CHEMISTRY_SPC( S ), YC( S ), NOTE END DO IF( LEBI_CONV ) WRITE( DBGOUT, '( A )' ) & '****Convergence achieved' END IF #endif c++++++++++++++++++++++++Debug section++++++++++++++++++++++++++++++++++ IF( LEBI_CONV ) THEN R5 DTG = 60.0D0 * DTC R5 DO S = 1, NUMB_MECH_SPC R5 M = CGRID_INDEX( S ) R5 YCCELL( M ) = YC( S ) R5 END DO #if defined(isam) || defined(verbose_isam) R5 SA_DEGRADE_STEP = SA_DEGRADE_STEP + 1 #endif R5 IF( CALL_DEG )CALL DEGRADE(YCCELL, DTG, JDATE, JTIME) ! :WTH Call degradation routine R5 IF( CALL_IRR ) CALL PA_IRR ( .FALSE., RKI, YC, DTC ) #ifdef isam IF( NEBI .EQ. N_EBI_STEPS )UPDATE_SOLD = .TRUE. CALL SA_IRR_UNBLOCKED ( .FALSE., RKI, YC, DTC ) UPDATE_PROBABILITIES = .FALSE. #endif #ifdef sens C Update the sum for the average over the chemistry integration YCDDM = YCDDM & + ( ( 0.5D0 * DTC ) * ( YC + YC0 ) ) #endif CYCLE SUBSTEP_EBI ! solve for next sub time-step END IF END DO ITER_SUBSTEP ! interating for substep failed, attempt to increase number of sub time-steps NBKUPS = NBKUPS + 1 ! IF( NBKUPS .LE. MXBKUPS ) THEN IF ( DTC .GT. DTMIN ) THEN ! reset YC and cut sub time-step in half IF ( MXFL ) THEN WRITE( LOGDEV, 92008 ) NBKUPS WRITE( LOGDEV, 92009 ) C+PECOL_OFFSET, R+PEROW_OFFSET, L DO S = 1, NUMB_MECH_SPC IF( LEBISPFL( S ) )WRITE( LOGDEV, 92010 )TRIM( CHEMISTRY_SPC( S ) ), & YC0(S), YCP(S) END DO ELSE WRITE( LOGDEV, 92000 ) C+PECOL_OFFSET, R+PEROW_OFFSET, L, NBKUPS DO S = 1, NUMB_MECH_SPC IF( LEBISPFL( S ) )WRITE( LOGDEV, 92010 )TRIM( CHEMISTRY_SPC( S ) ), & YC0(S), YCP(S) END DO END IF YC = YC0 ! Set ICs for EBI time-step DTC = 0.5D0 * DTC N_INR_STEPS = 2 ** NBKUPS EXIT SUBSTEP_EBI ELSE WRITE( LOGDEV, 92040 ) C+PECOL_OFFSET, R+PEROW_OFFSET, L WRITE( LOGDEV, 92060 ) DO S = 1, NUMB_MECH_SPC IF( LEBISPFL( S ) ) WRITE( LOGDEV, 92080 ) CHEMISTRY_SPC( S ), & YC0(S), YCP(S) END DO MSG = 'ERROR: Stopping because of EBI convergence failures' CALL M3EXIT( PNAME, JDATE, JTIME, MSG, XSTAT2 ) END IF END DO SUBSTEP_EBI IF( LEBI_CONV )THEN NEBI = 1 + NEBI ! test for completing final EBI time-step IF( NEBI .GT. N_EBI_STEPS )EXIT TSTEP_EBI ! test whether backups were done IF( NBKUPS .EQ. 0 )CYCLE TSTEP_EBI ! Reset NBKUPS, N_INR_STEPS and sub-time step NBKUPS = 0 N_INR_STEPS = 1 DTC = EBI_TMSTEP END IF END DO TSTEP_EBI #ifdef sens ! Compute average over integration and filter values YCDDM = YCDDM / CHEMSTEP WHERE ( YCDDM .LT. 1.0D-25 ) YCDDM = 0.0D0 #endif RETURN 91000 FORMAT( 'WARNING: EBI solver in cell (',2(I4,','),I4,') Init.Conc. for ', & A16, ' = ', ES12.4,' ppmV') 92000 FORMAT( 'WARNING: EBI Euler convergence failure' / & ' Reducing EBI time step because of ', & ' convergence failure in ' / & ' Cell (', I3, ', ', I3, ', ', I3, ')' , & ' Solution Attempt #', I2 / & ' Below Species Causing Error: Init.Conc, Pred.Conc.' ) 92008 FORMAT( 'WARNING: At solution attempt #', I2 ) 92009 FORMAT( 'WARNING: EBI Euler convergence failure' / & ' Reducing EBI time step because of ', & ' MAXPRED failure in ' / & ' Cell (', I3, ', ', I3, ', ', I3, ')' , & ' for the below species: : Init.Conc, Pred.Conc.') 92010 FORMAT( A16, 2(1X,ES12.4), ' ppmV' ) 92040 FORMAT( 'ERROR: Max number of EBI time step reductions exceeded' & / ' Convergence failure for cell (', I3, ', ', I3, & ', ', I3, ')' ) 92060 FORMAT( ' Convergence failure for the following species:', & 'Init.Conc, Pred.Conc.' ) 92080 FORMAT( 10X, A, 2(1X,ES12.4), ' ppmV ' ) 92061 FORMAT( ' Convergence failure for the following species:', & 'Init.Conc, Pred.Conc.,Rel.Error,' ) 92081 FORMAT( 10X, A, 2(1X,ES12.4), ' ppmV ', ES12.4,'%' ) END ================================================ FILE: UTIL/inline_phot_preproc/README.md ================================================ # Inline photolysis preprocessor (inline_phot_preproc) ## Background The Inline photolysis preprocessor utility creates two input files used by the in-line method for calculating photolysis rates. The CSQY_DATA\_*mechanism* file contains the cross-section and quantum yields for the photolysis rates used by the specified photochemical *mechanism*. The *mechanism* is determined the RXNS_DATA_MODULE.F90 from building and running the **chemmech** utility. The PHOT_OPTICS.dat file gives the optical properties for cloud water and ice plus the refractive indice for aerosol species. The file does not change between photochemical *mechanisms*. When using the files for CCTM executions, the number of wavebands defined in the CSQY_DATA\_*mechanism* and PHOT_OPTICS.dat files need to be the same. The utility's method is based on how FAST-JX version 6.8 processes cross-section and quantum yield data to a condensed waveband structure for calculating photolysis rates. The process has two steps that allocate the data over wavelength bins and average the data over the bins based on the solar spectrum. The below table lists the maximum number of wavelength bins. At the shortest wavelength, bins overlap because the O2 absorption cross-section and the solar flux are correlated in the Schumman-Runge bands. The utility includes an option that subsets the bins starting from longest to shortest wavelenghts.
Table 1. Wavelength Bins Intervals
|Bin| start(nm) | effective(nm) | stop(nm) | |:----:|:-------------------:|:--------------------:|:---------------------:| | 1| 177.500| 186.839| 202.500 | | 2| 177.500| 191.209| 202.500 | | 3| 202.500| 193.620| 206.500 | | 4| 206.500| 196.244| 209.500 | | 5| 209.500| 202.392| 212.500 | | 6| 212.500| 208.183| 215.500 | | 7| 215.500| 211.125| 221.500 | | 8| 221.500| 213.817| 233.000 | | 9| 233.000| 261.412| 275.500 | | 10| 275.500| 270.511| 286.500 | | 11| 286.500| 281.149| 291.000 | | 12| 291.000| 294.590| 298.300 | | 13| 298.300| 303.151| 307.500 | | 14| 307.500| 310.007| 312.500 | | 15| 312.500| 316.434| 320.300 | | 16| 320.300| 333.076| 345.000 | | 17| 345.000| 381.997| 412.500 | | 18| 412.500| 607.723| 850.000 | ### Using the Utility. The utility is built and executed for each application because the RXNS_DATA_MODULE.F90 file can change between applications. It is a FORTRAN program and the bldrun script specifies what compiler to use. To use the utility follow the below instructions. 1) Copy and edit bldrun.inline_phot_preproc.csh (see Table 2.) for your compiler and Mechanism. Save and run to build the software. 2) IF NEEDED, modify src/inline_phot_preproc.makefile based on the compilers and their flags on your computer platform. 3) If the application uses photolysis rates whose cross-section and quantum yields are not listed under the subdirectory, _photolysis_CSQY_data_, create the data files for each rate and add them to the directory. 4) Execute the script. Check the bldrun.log file if the executable does not produce CSQY_DATA table in the output directory.
Table 2. inline_phot_preproc bldrun script run time or environment settings
| Names | Definition | Notes or Recommeded Value | |:-----|:-----|:------| | COMPILER | FORTRAN compiler to building create_ebi | the utility's makefile, _src/inline_phot_preproc.makefile_, is step up for the Intel (INTEL), Portland Group (PGF90) and GCC gfortran (GFORT) compilers. If a separate compiler is to be used, the user has to modify the makefile to define the compiler and its compile flags, recommend including debugging flags| | RXNS_DATA_SRC | Full path to mechanism's RXNS_DATA_MODULE.F90 or mechanism include files | Produced by CHEMMECH utility | | USE_RXNS_MODULES | whether FORTRAN 90 describe the photochemical mechanism | T if CMAQ v5.1 or higher but comment out if CMAQ v5.02 and lower | | WVL_AE_REFRAC | Whether to include spectral values of refractive indices for aerosol species | T if CMAQ v5.1 or higher and if CMAQ lower than version 5.1 | | SPLIT_OUTPUT | whether optical and CSQY data written to two separate files | T if CMAQ v5.1 or higher and if CMAQ lower than version 5.1 | | N_WAVEBANDS_OUT | Number of Wavebands to write to output files starting from the band with the longest | range 1 to 18; use 7 for CMAQ and 11 from MPAS-CMAQ | | APPL | Name of the photochemical mechanism for application | values equals MECHNAME in RXNS_DATA_MODULE.F90 | | WVBIN_FILE | Full path to file defining the wavelength bins | ${CMAQ_REPO}/UTIL/inline_phot_preproc/flux_data/wavel-bins.dat | | FLUX_FILE | Full path to solar flux file used for averaging over the wavelength bins | ${CMAQ_REPO}/UTIL/inline_phot_preproc/flux_data/solar-p05nm-UCI.dat | | CSQY_DATA_RAW | Path to directory with ASCII files containing cross-section and quantum yield versus wavelength for photolysis rates in the photochemical mechanism | ${CMAQ_REPO}/inline_phot_preproc/photolysis_CSQY_data; individual file names correspond to values of the PHOTAB array in the RXNS_DATA_MODULE.F90 file | | MAX_NUMB_REFRACT | maximum number of aerosol refractive indices to be use | 16, the value can be greater than the actual number used | | AE_REFRAC_LIST | Lists names of environment variable defining file paths to each aerosol refractive index | "index1 index2 ... indexn" in general where indexi defines from 1 to MAX_NUMB_REFRACT file paths. The current build-runscript use **"WATER SOLUTE DUST SEASALT SOOT ISOP_NOX ISOP_SOX LIMONENE_SOA APINENE_SOA NAPTH_SOA MXYL_HIGH_NOX MXYL_LOW_NOX TOLU_HIGH_NOX TOLU_LOW_NOX ORGCARB BIOMASS"** but can be changed. Read the section on aerosol refractive indices. | | index1 | Full path to file containing the refractive index 1 | ${CMAQ_REPO}/inline_phot_preproc/refractive_indices/water_refractive_index.dat, WATER | | index2 | Full path to file containing the refractive index 2 | ${CMAQ_REPO}/inline_phot_preproc/inline_phot_preproc/refractive_indices/OPAC_water_clouds/inso00, DUST | | index3 | Full path to file containing the refractive index 3 | ${CMAQ_REPO}/inline_phot_preproc/inline_phot_preproc/refractive_indices/OPAC_water_clouds/waso00, SOLUTE | | indexn | Full path to file containing the refractive index n | ${CMAQ_REPO}/inline_phot_preproc/inline_phot_preproc/refractive_indicesadient_aerosol_refrac_indx/refract_biomass_new.txt, BIOMASS | | OUT_DIR | Full path to output directory | Value is the user's preference | 1. CMAQ version 5.32 and lower are hardwired to use only these refractive indices based on information set in AERO_DATA.F. Models higher than versions allows change default value by change the _OPTICS_ entries in the aerosol species name list.
Table 2. INLINE_PHOT_PREPROC output files
|File Name|Format|Description| |----------------|------------|------------------------------------------------------------| |CSQY_DATA_**mechanism**|ASCII|Processed cross-sections and quantum yields as a function of temperature and wavelength bin; **mechanism** equals the value of MECHNAME in RXNS_DATA_MODULE.F90 | |PHOT_OPTICS.dat |ASCII|Wavelength, Optical and Surface Albedo Parameters for CMAQ In-Line Photolysis calculation.| To report potential program errors or failures, contact Bill Hutzell/USEPA at hutzell.bill@epa.gov. ### Files, configuration, and environment variables In general, applications of inline_phot_preproc vary based on the photochemical mechanism's reaction data module, RXNS_DATA_MODULE.F90, and ASCII files containing cross-section and quantum yield data for photolysis rates used by the photochemical mechanism. The chemmech utility produces the RXNS_DATA_MODULE.F90 file. The latter files are created by the user if they do not exist under the ${CMAQ_REPO}/inline_phot_preproc/photolysis_CSQY_data directory. Each of these files have names listed in the PHOTAB array defined by the mechanism's RXNS_DATA_MODULE.F90 file (Figure 1.). The array is constucted based on reactions of the mechanism definitions file (check the chemmech README for more information). These files follow simple formatting rules (Table 3.). Check files under CSQY_DATA_RAW for examples. Table 3. General Format Rules for cross-section and quantum yield data files. * First line read gives the name of the photolysis rate used by the photochemical mechanism. The PHOTAB array in RXNS_DATA_MODULE.F90 lists the names. * Comment lines begin with a "!". Comments should give the reactions reactants and products as well as cite the source of the file's data. * Second line read begins with a "B", "E", "C", or "P". The first three symbols state whether the values are the Beginning, End or Center of the wavelength intervals of the data. The last symbol, "P", states that data should interperted as irradance value. The case determines how the data is interpolated across the wavelength bands in Table 1. - Interpolation scheme gives zero results for wavelengths not covered by the data file. * Third line read begins with "FAC=" followed by a real number. Its value gives a factor to convert the cross-section data into cm-2. * Remaining lines read give the data values for the wavelengths (nm), cross-sections and quantum yields of the photolysis rate in free format.
Figure 1. The PHOTAB array extracted from RXNS_DATA_MODULE.F90 for the saprc07tc_ae6_aq mechanism
INTEGER, PARAMETER :: NPHOTAB = 38 CHARACTER( 16 ) :: PHOTAB( NPHOTAB ) DATA ( PHOTAB( IRXXN ), IRXXN = 1, NPHOTAB ) / & & 'NO2_06 ', 'NO3NO_06 ', 'NO3NO2_6 ', & & 'O3O1D_06 ', 'O3O3P_06 ', 'HONO_06 ', & & 'HNO3 ', 'HNO4_06 ', 'H2O2 ', & & 'PAN ', 'HCHOR_06 ', 'HCHOM_06 ', & & 'CCHO_R ', 'C2CHO ', 'ACET_06 ', & & 'MEK_06 ', 'COOH ', 'GLY_07R ', & & 'GLY_07M ', 'MGLY_06 ', 'BACL_07 ', & & 'BALD_06 ', 'AFG1 ', 'MACR_06 ', & & 'MVK_06 ', 'IC3ONO2 ', 'HOCCHO_IUPAC ', & & 'ACRO_09 ', 'PAA ', 'CL2 ', & & 'CLNO_06 ', 'CLONO ', 'CLNO2 ', & & 'CLONO2_1 ', 'CLONO2_2 ', 'HOCL_06 ', & & 'CLCCHO ', 'CLACET '/ To make the CMAQ CCTM use a new CSQY_DATA_**mechanism**, modify the value of CSQY_DATA in the CCTM run-script to equal the new file. CCTM needs to be compiled with RXNS_DATA_MODULE.F90 used to create the new file. Compiling CCTM also needs to use the RXNS_FUNC_MODULE.F90 that the chemmech utility produced along with the RXNS_DATA_MODULE.F90. If an applications of inline_phot_preproc changes the N_WAVEBANDS_OUT from the standard value, 7, the CCTM run-script has use the new CSQY_DATA_**mechanism** and PHOT_OPTICS.dat files. #### Aerosol Refractive Indices
Table 3. Aerosol Refractive defined in build-run script
The current build-run script uses Table 3's refractive indices. Their raw data files are located under the _refractive indices_ subdirectory. After processing this data, inline_phot_preproc writes results to the PHOT_OPTICS.dat file read by the CCTM model. A user may change refractive indices written to PHOT_OPTICS.dat by changing **AE_REFRAC_LIST** then setting new environment variables in the new list and/or by changing values of environment variables in the existing list. The _refractive indices_ subdirectory also contain data files that can be used. If a user wants to use their own data, the files have to use the same format as the current repository's files. Note that wavelengths have to use nanometers as their units. | Names | Definition or aerosol material | Source | |:--------------|:---------------------------------------------|:---------------------| | WATER | water in the aqueous aerosol component | Segelstein, D., 1981 | | DUST | insoluble mineral and unidentified material | OPAC software package (M. Hess et. al, 1998) | | SOLUTE | inorganic solutes in aqueous aerosol component such as SO4, NH4, NO3 and CL ions | OPAC software package (M. Hess et. al, 1998) | | SOOT | insoluble elemental carbon | Chang,H & T.T. Charalmpopoulos (1990), Bond, T.C. & R.W. Bergstrom (2006), Personal Communication from Tami Bond. | | SEASALT | material from sea spray | OPAC software package (M. Hess et. al, 1998) | | ISOP_NOX | organic material from isoprene oxidation and later reactions with NOx | Nakayama et. al (2018) | | ISOP_SOX | organic material from isoprene oxidation and later reactions with SOx | Nakayama et. al (2018) | | LIMONENE_SOA | organic material from limonene oxidation similar biogenic gases | Lui et. al (2013) | | APINENE_SOA | organic material from alpha-pinene oxidation similar biogenic gases | Lui et. al (2013) | | NAPTH_SOA | organic material from polycyclic aromatic hydrocarbon oxidation | Lambe et. al (2013) | | MXYL_HIGH_NOX | organic material from xylenes oxidation under high NOx | Lui et. al (2015) | | MXYL_LOW_NOX | organic material from xylenes oxidation under low NOx | Lui et. al (2015) | | TOLU_HIGH_NOX | organic material from toluene oxidation under high NOx | Lui et. al (2015) | | TOLU_LOW_LOW | organic material from toluene oxidation under low NOx | Lui et. al (2015) | | ORGCARB | general organic material | Assembled from numerous sources by Adient review (McMeeking et. al, 2010) | | BIOMASS | organic material from biomass combustion | Assembled from numerous sources by Adient review (McMeeking et. al, 2010) | ### References ADIENT database: http://www.met.rdg.ac.uk/~adient/refractiveindices.html, last accessed on January 22, 2021. Bian H. and Prather M. J. (2002). Fast-J2: Accurate Simulation of Stratospheric Photolysis in Global Chemical Models, J. Atmos. Chem., 41, 281-296. (Table I & II corrected, June 2008). Bond, T.C. (2012), personal communication. Bond, T.C. & R.W. Bergstrom (2006) Light absorption by Carbonaceous Particles: An investigative review, Aerosol Science and Technology. Vol. 40. pp 27-67 Chang,H and T.T. Charalmpopoulos (1990) Determination of the wavelength dependence of refractive indices of flame soot, Proceeding of the Royal Society of London A, Vol. 430, pp 577-591. Hess M., Koepke P., and I. (1998): Optical Properties of Aerosols and clouds: The software package OPAC, Bull. Am. Met. Soc., 79, 831-844. Andrew T. Lambe, Christopher D. Cappa, Paola Massoli, Timothy B. Onasch, Sara D. Forestieri, Alexander T. Martin, Molly J. Cummings, David R. Croasdale, William H. Brune, Douglas R. Worsnop, and Paul Davidovits (2013). Environmental Science & Technology, 47(12), 6349-6357, DOI: 10.1021/es401043j. Liu P.F., Yue Zhang, and Scot T. Martin (2013). Complex Refractive Indices of Thin Films of Secondary Organic Materials by Spectroscopic Ellipsometry from 220 to 1200 nm Environmental Science & Technology 47(23), 13594-13601, DOI: 10.1021/es403411e. Liu P.F., N. Abdelmalki, H.-M. Hung, Y. Wang, W. H. Brune and S. T. Martin (2015). Ultraviolet and visible complex refractive indices of secondary organic material produced by photooxidation of the aromatic compounds toluene and m-xylene Atmos. Chem. Phys., 15, 1435-1446, doi:10.5194/acp-15-1435-2015. McMeeking, G. R., Hamburger, T., Liu, D., Flynn, M., Morgan, W. T., Northway, M., Highwood, 5 E. J., Krejci, R., Allan, J. D., Minikin, A., and Coe, H. (2010). Black carbon measurements in the boundary layer over western and northern Europe, Atmos. Chem. Phys., 10, 93939414, doi:10.5194/acp-10-9393-2010. Nakayama T., Kei Sato, Takashi Imamura, and Yutaka Matsumi (2018). Effect of Oxidation Process on Complex Refractive Index of Secondary Organic Aerosol Generated from Isoprene. Environmental Science & Technology 52(5), 2566-2574. DOI: 10.1021/acs.est.7b05852 Segelstein, D., (1981), The Complex Refractive Index of Water, M.S. Thesis, University of Missouri--Kansas City, MO. / ================================================ FILE: UTIL/inline_phot_preproc/docs/README.txt ================================================ # CMAQ.inline phot preprocessor ## General Information The utility creates two input files used by the in-line method for calculating photolysis rates. The CSQY_DATA_"mechanism" file contains the cross-section and quantum yields for the photolysis rates used by the specified photochemical "mechanism". The "mechanism" is determined the RXNS_DATA_MODULE.F90 for building and running the utility. The PHOT_OPTICS.dat file gives the optical properties for cloud water and ice plus the refractive indice for aerosol species. The file does not change between photochemical "mechanisms". When using the files for CCTM executions, the number of wavebands defined in the CSQY_DATA_"mechanism" and PHOT_OPTICS.dat files need to be the same. The buildrun script sets this number. ## Using the Utility. The utility uses FORTRAN. It is built and executed for each application because the RXNS_DATA_MODULE.F90 file can change between applications. To use the utility follow the below instructions. 1) Copy and edit scripts/bldrun.inline_phot_preproc.csh for your compiler and Mechanism. Save and run to build the software. 2) IF NECESSARY, modify src/inline_phot_preproc.makefile based on the compilers and their flags on your computer platform. 3) If application uses photolysis rates whose cross-section and quantum yields are not listed under photolysis_CSQY_data, create the data files and add them to the directory. 4) Execute the script. Check the bldrun.log file if the executable does not produce CSQY_DATA table in the output directory. To report potential program errors or failures, contact Bill Hutzell/USEPA at hutzell.bill@epa.gov ================================================ FILE: UTIL/inline_phot_preproc/ice_clouds/fu96.asy ================================================ # Q. Fu, An Accurate Parameterization of the Solar Radiative # Properties of Cirrus Clouds for Climate Models, Journal of # Climate 9, 2058-2082, 1996. # # Asymmetry factor g = c0 + c1 * D + c2 * D**2 +c3 * D**3, eq. 3.9c # # Band limit c0 c1 c2 c3 # (um) # 0.25 0.30 0.733260e-00 0.918317e-03 -0.422974e-06 -0.107976e-07 0.30 0.33 0.737809e-00 0.897515e-03 -0.217099e-06 -0.116090e-07 0.33 0.36 0.740926e-00 0.890216e-03 -0.187919e-06 -0.116760e-07 0.36 0.40 0.743546e-00 0.908674e-03 -0.465326e-06 -0.105786e-07 0.40 0.44 0.747054e-00 0.886508e-03 -0.259305e-06 -0.113305e-07 0.44 0.48 0.748613e-00 0.890545e-03 -0.344038e-06 -0.110117e-07 0.48 0.52 0.749856e-00 0.889161e-03 -0.349578e-06 -0.109913e-07 0.52 0.57 0.751135e-00 0.909208e-03 -0.634939e-06 -0.984390e-08 0.57 0.64 0.752131e-00 0.937763e-03 -0.972292e-06 -0.862063e-08 0.64 0.69 0.749693e-00 0.105446e-02 -0.232576e-05 -0.358307e-08 0.69 0.75 0.753393e-00 0.961630e-03 -0.132519e-05 -0.717071e-08 0.75 0.78 0.751779e-00 0.103341e-02 -0.213121e-05 -0.424308e-08 0.78 0.87 0.752318e-00 0.104224e-02 -0.226618e-05 -0.368283e-08 0.87 1.00 0.751715e-00 0.110166e-02 -0.291300e-05 -0.137242e-08 1.00 1.10 0.752048e-00 0.112044e-02 -0.311826e-05 -0.570868e-09 1.10 1.19 0.752292e-00 0.114395e-02 -0.327944e-05 -0.242583e-09 1.19 1.41 0.751277e-00 0.129824e-02 -0.499075e-05 0.633757e-08 1.41 1.53 0.752528e-00 0.195748e-02 -0.102495e-04 0.235479e-07 1.53 1.64 0.751497e-00 0.205963e-02 -0.112135e-04 0.273998e-07 1.64 2.13 0.758748e-00 0.202709e-02 -0.117029e-04 0.295195e-07 2.13 2.38 0.775916e-00 0.174517e-02 -0.921314e-05 0.215003e-07 2.38 2.91 0.829283e-00 0.206865e-02 -0.159247e-04 0.501791e-07 2.91 3.42 0.919599e-00 0.503025e-03 -0.574771e-05 0.201731e-07 3.42 4.00 0.759183e-00 0.493765e-02 -0.484059e-04 0.165801e-06 4.00 4.99 0.799084e-00 0.481706e-02 -0.513220e-04 0.184420e-06 ================================================ FILE: UTIL/inline_phot_preproc/ice_clouds/fu96.del ================================================ # Q. Fu, An Accurate Parameterization of the Solar Radiative # Properties of Cirrus Clouds for Climate Models, Journal of # Climate 9, 2058-2082, 1996. # # delta-fraction f = d0 + d1 * D + d2 * D**2 +d3 * D**3, eq. 3.9d # # Band limit d0 d1 d2 d3 # (um) # 0.25 0.30 0.119114e-00 0.271746e-03 0.167483e-05 -0.114603e-07 0.30 0.33 0.118072e-00 0.271772e-03 0.169253e-05 -0.115557e-07 0.33 0.36 0.117402e-00 0.266303e-03 0.177039e-05 -0.118611e-07 0.36 0.40 0.116918e-00 0.259549e-03 0.186749e-05 -0.122603e-07 0.40 0.44 0.116280e-00 0.260187e-03 0.186852e-05 -0.122767e-07 0.44 0.48 0.115924e-00 0.257563e-03 0.190915e-05 -0.124662e-07 0.48 0.52 0.115698e-00 0.253051e-03 0.196886e-05 -0.127068e-07 0.52 0.57 0.115399e-00 0.254148e-03 0.195306e-05 -0.126367e-07 0.57 0.64 0.115075e-00 0.253778e-03 0.196362e-05 -0.126915e-07 0.64 0.69 0.114851e-00 0.253877e-03 0.195544e-05 -0.126520e-07 0.69 0.75 0.114702e-00 0.249621e-03 0.200834e-05 -0.128407e-07 0.75 0.78 0.114529e-00 0.252697e-03 0.196954e-05 -0.126964e-07 0.78 0.87 0.114363e-00 0.251588e-03 0.197763e-05 -0.127169e-07 0.87 1.00 0.114063e-00 0.252039e-03 0.196981e-05 -0.127049e-07 1.00 1.10 0.113929e-00 0.243713e-03 0.205704e-05 -0.130243e-07 1.10 1.19 0.113586e-00 0.247068e-03 0.200607e-05 -0.128484e-07 1.19 1.41 0.113458e-00 0.234418e-03 0.205104e-05 -0.129739e-07 1.41 1.53 0.112862e-00 -0.588231e-04 0.228614e-05 -0.133209e-07 1.53 1.64 0.112523e-00 -0.108250e-04 0.197961e-05 -0.125509e-07 1.64 2.13 0.109846e-00 -0.277684e-03 0.325839e-05 -0.165331e-07 2.13 2.38 0.107118e-00 0.719242e-04 0.192582e-05 -0.122234e-07 2.38 2.91 0.890564e-01 -0.274978e-03 0.339897e-05 -0.160260e-07 2.91 3.42 0.187637e-02 -0.671949e-04 0.800971e-06 -0.306127e-08 3.42 4.00 0.980959e-02 -0.176412e-02 0.148821e-04 -0.488661e-07 4.00 4.99 0.800921e-01 -0.196027e-02 0.192241e-04 -0.663994e-07 ================================================ FILE: UTIL/inline_phot_preproc/ice_clouds/fu96.ext ================================================ # Q. Fu, An Accurate Parameterization of the Solar Radiative # Properties of Cirrus Clouds for Climate Models, Journal of # Climate 9, 2058-2082, 1996. # # Extinction coefficient b = IWC * (a0 + a1/D), eq. 3.9a # # Band limit a0 a1 # (um) # 0.25 0.30 -0.236447e-03 0.253817e+01 0.30 0.33 -0.266955e-03 0.254179e+01 0.33 0.36 -0.293599e-03 0.254540e+01 0.36 0.40 -0.258858e-03 0.253815e+01 0.40 0.44 -0.106451e-03 0.252684e+01 0.44 0.48 0.129121e-03 0.250410e+01 0.48 0.52 -0.945458e-04 0.252061e+01 0.52 0.57 -0.303108e-04 0.251805e+01 0.57 0.64 0.982244e-04 0.250875e+01 0.64 0.69 0.161983e-03 0.250746e+01 0.69 0.75 -0.304991e-03 0.254412e+01 0.75 0.78 0.226539e-03 0.249909e+01 0.78 0.87 0.810443e-04 0.251619e+01 0.87 1.00 0.737638e-04 0.251051e+01 1.00 1.10 -0.614288e-03 0.256520e+01 1.10 1.19 0.413595e-03 0.248783e+01 1.19 1.41 0.651659e-04 0.251660e+01 1.41 1.53 -0.805155e-03 0.257600e+01 1.53 1.64 0.644675e-03 0.247060e+01 1.64 2.13 -0.837325e-04 0.252504e+01 2.13 2.38 0.489477e-03 0.248776e+01 2.38 2.91 0.234245e-03 0.248573e+01 2.91 3.42 0.297295e-03 0.248895e+01 3.42 4.00 0.187598e-03 0.251396e+01 4.00 4.99 -0.254823e-03 0.252909e+01 ================================================ FILE: UTIL/inline_phot_preproc/ice_clouds/fu96.ssa ================================================ # Q. Fu, An Accurate Parameterization of the Solar Radiative # Properties of Cirrus Clouds for Climate Models, Journal of # Climate 9, 2058-2082, 1996. # # Coalbedo 1-w = b0 + b1 * D + b2 * D**2 +b3 * D**3, eq. 3.9b # # Band limit b0 b1 b2 b3 # (um) # 0.25 0.30 -0.269919e-06 0.212909e-06 -0.265397e-09 0.112983e-11 0.30 0.33 -0.100570e-06 0.160441e-06 -0.205663e-09 0.888595e-12 0.33 0.36 0.182299e-06 0.112454e-06 -0.108031e-09 0.499801e-12 0.36 0.40 -0.198529e-06 0.939480e-07 -0.254540e-09 0.110876e-11 0.40 0.44 0.325057e-07 0.543665e-07 -0.924925e-10 0.453386e-12 0.44 0.48 0.710418e-06 0.142205e-07 0.199874e-09 -0.781101e-12 0.48 0.52 0.508447e-06 0.273206e-07 0.496553e-10 -0.186001e-12 0.52 0.57 0.989368e-07 0.544286e-07 -0.100877e-09 0.456410e-12 0.57 0.64 -0.893276e-07 0.114916e-06 -0.162990e-09 0.653291e-12 0.64 0.69 -0.778001e-07 0.253360e-06 -0.115489e-09 0.465084e-12 0.69 0.75 0.312168e-06 0.493304e-06 0.179019e-09 -0.731058e-12 0.75 0.78 -0.275031e-06 0.972285e-06 -0.223685e-09 0.575512e-12 0.78 0.87 -0.157963e-06 0.172475e-05 0.902156e-10 -0.379423e-12 0.87 1.00 -0.232733e-06 0.641602e-05 0.197733e-09 -0.696836e-12 1.00 1.10 -0.938455e-05 0.177414e-04 -0.113004e-08 0.237196e-11 1.10 1.19 0.647675e-05 0.218111e-04 0.183054e-08 -0.828710e-11 1.19 1.41 -0.148012e-06 0.902355e-04 -0.198190e-07 0.401914e-10 1.41 1.53 -0.285518e-04 0.171993e-02 -0.743697e-05 0.209647e-07 1.53 1.64 0.201931e-02 0.183364e-02 -0.700232e-05 0.184287e-07 1.64 2.13 0.253234e-02 0.175078e-02 -0.800994e-05 0.231309e-07 2.13 2.38 0.583469e-03 0.118127e-02 -0.340011e-05 0.878549e-08 2.38 2.91 0.905631e-01 0.293935e-02 -0.189176e-04 0.593361e-07 2.91 3.42 0.464416e-00 0.204716e-04 -0.460373e-06 0.203198e-08 3.42 4.00 0.196793e-00 0.575235e-02 -0.529220e-04 0.176618e-06 4.00 4.99 0.260155e-00 0.545547e-02 -0.558760e-04 0.197086e-06 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/ACET-06 ================================================ ACET-06 ! CH3-CO-CH3 + HV = Radical products ! IUPAC Subcommittee on Gas Kinetic Data Evaluation Data Sheet P7 ! This datasheet updated: 19th December 2005. ! Website: http://www.iupac-kinetic.ch.cam.ac.uk/. ! IUPAC recommendations used for both absorption cross sections and quantum yield ! Cross sections and quantum yields are for 298K only. ! Uncertain whether the cross sections are calculated correctly from the complex ! Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 280.0 4.910E-20 0.6000 281.0 4.860E-20 0.5820 282.0 4.790E-20 0.5630 283.0 4.710E-20 0.5440 284.0 4.620E-20 0.5260 285.0 4.540E-20 0.5070 286.0 4.440E-20 0.4890 287.0 4.360E-20 0.4710 288.0 4.280E-20 0.4530 289.0 4.150E-20 0.4360 290.0 4.060E-20 0.4190 291.0 3.950E-20 0.4020 292.0 3.820E-20 0.3850 293.0 3.710E-20 0.3700 294.0 3.570E-20 0.3540 295.0 3.420E-20 0.3390 296.0 3.260E-20 0.3240 297.0 3.110E-20 0.3100 298.0 2.980E-20 0.2960 299.0 2.820E-20 0.2830 300.0 2.670E-20 0.2700 301.0 2.580E-20 0.2580 302.0 2.450E-20 0.2460 303.0 2.300E-20 0.2240 304.0 2.180E-20 0.1950 305.0 2.050E-20 0.1700 306.0 1.890E-20 0.1470 307.0 1.750E-20 0.1270 308.0 1.610E-20 0.1110 309.0 1.490E-20 0.0960 310.0 1.360E-20 0.0840 311.0 1.240E-20 0.0730 312.0 1.140E-20 0.0640 313.0 1.060E-20 0.0560 314.0 9.440E-21 0.0500 315.0 8.370E-21 0.0440 316.0 7.600E-21 0.0390 317.0 6.840E-21 0.0350 318.0 5.980E-21 0.0310 319.0 5.230E-21 0.0280 320.0 4.550E-21 0.0250 321.0 4.110E-21 0.0230 322.0 3.480E-21 0.0210 323.0 2.940E-21 0.0190 324.0 2.480E-21 0.0170 325.0 2.100E-21 0.0160 326.0 1.740E-21 0.0140 327.0 1.410E-21 0.0130 328.0 1.130E-21 0.0120 329.0 9.130E-22 0.0110 330.0 7.400E-22 0.0100 331.0 5.860E-22 0.0090 332.0 4.650E-22 0.0090 333.0 3.750E-22 0.0080 334.0 3.110E-22 0.0070 335.0 2.480E-22 0.0070 336.0 1.990E-22 0.0060 337.0 1.620E-22 0.0060 338.0 1.350E-22 0.0050 339.0 1.130E-22 0.0050 340.0 9.120E-23 0.0050 341.0 7.290E-23 0.0040 342.0 5.830E-23 0.0040 343.0 4.940E-23 0.0040 344.0 3.650E-23 0.0040 345.0 3.010E-23 0.0030 346.0 2.350E-23 0.0030 347.0 1.580E-23 0.0030 348.0 1.110E-23 0.0030 349.0 1.070E-23 0.0020 350.0 0.000E+00 0.0000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/ACETONE_RADM88 ================================================ ACETONE_RADM88 ! Acetone Photolysis (ACETONE) ! CH3COCH3 + hv -> CH3 + CH3CO ! Taken from the original RADM data ! format: wl, abs_cs, qy Beginning ! With FAC, units are (cm^2/molecule) FAC=1.0 277.778 5.300E-20 7.655E-02 281.690 5.300E-20 7.655E-02 285.714 5.100E-20 7.655E-02 289.855 4.400E-20 7.655E-02 294.118 3.500E-20 7.655E-02 298.500 3.000E-20 7.655E-02 302.500 2.800E-20 7.655E-02 303.500 2.500E-20 7.655E-02 304.500 2.300E-20 7.655E-02 305.500 2.100E-20 7.655E-02 306.500 2.000E-20 7.655E-02 307.500 1.800E-20 7.655E-02 308.500 1.700E-20 7.655E-02 309.500 1.500E-20 7.655E-02 310.500 1.400E-20 7.655E-02 311.500 1.300E-20 7.655E-02 312.500 1.200E-20 7.655E-02 313.500 1.100E-20 7.655E-02 314.500 9.200E-21 7.655E-02 317.500 5.300E-21 7.655E-02 322.500 2.800E-21 7.655E-02 327.500 1.900E-21 7.655E-02 332.500 0.000E+00 7.655E-02 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/ACETONE_SAPRC99 ================================================ ACETONE ! ACETONE + HV = CH3CO. + CH3. ! SAPRC-99 Photolysis data. Supplied by William P. L. Carter. ! Created from PhotDat.xls on 29-Jan-2000 10:07 Points (the mechanism was evaluated assuming this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 250.0 2.470E-20 0.760 254.0 3.040E-20 0.776 258.0 3.610E-20 0.792 262.0 4.150E-20 0.768 266.0 4.580E-20 0.704 270.0 4.910E-20 0.640 274.0 5.060E-20 0.604 278.0 5.070E-20 0.568 280.0 5.050E-20 0.550 281.0 5.010E-20 0.525 282.0 4.940E-20 0.500 283.0 4.860E-20 0.475 284.0 4.760E-20 0.450 285.0 4.680E-20 0.425 286.0 4.580E-20 0.400 287.0 4.500E-20 0.375 288.0 4.410E-20 0.350 289.0 4.290E-20 0.325 290.0 4.190E-20 0.302 291.0 4.080E-20 0.284 292.0 3.940E-20 0.266 293.0 3.810E-20 0.249 294.0 3.670E-20 0.232 295.0 3.520E-20 0.217 296.0 3.350E-20 0.201 297.0 3.200E-20 0.187 298.0 3.070E-20 0.173 299.0 2.910E-20 0.160 300.0 2.770E-20 0.147 301.0 2.660E-20 0.135 302.0 2.530E-20 0.124 303.0 2.370E-20 0.114 304.0 2.240E-20 0.104 305.0 2.110E-20 0.095 306.0 1.950E-20 0.086 307.0 1.800E-20 0.078 308.0 1.660E-20 0.071 309.0 1.540E-20 0.064 310.0 1.410E-20 0.057 311.0 1.280E-20 0.052 312.0 1.170E-20 0.046 313.0 1.080E-20 0.042 314.0 9.670E-21 0.037 315.0 8.580E-21 0.033 316.0 7.770E-21 0.029 317.0 6.990E-21 0.026 318.0 6.080E-21 0.023 319.0 5.300E-21 0.020 320.0 4.670E-21 0.018 321.0 4.070E-21 0.016 322.0 3.440E-21 0.014 323.0 2.870E-21 0.012 324.0 2.430E-21 0.011 325.0 2.050E-21 0.009 326.0 1.680E-21 0.008 327.0 1.350E-21 0.007 328.0 1.080E-21 0.006 329.0 8.600E-22 0.005 330.0 6.700E-22 0.005 331.0 5.100E-22 0.004 332.0 4.000E-22 0.003 333.0 3.100E-22 0.003 334.0 2.600E-22 0.002 335.0 1.700E-22 0.002 336.0 1.400E-22 0.002 337.0 1.100E-22 0.002 338.0 9.000E-23 0.001 339.0 6.000E-23 0.001 340.0 5.000E-23 0.001 341.0 5.000E-23 0.001 342.0 3.000E-23 0.001 343.0 4.000E-23 0.001 344.0 2.000E-23 0.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/ACET_06 ================================================ ACET-06 ! CH3-CO-CH3 + HV = Radical products ! IUPAC Subcommittee on Gas Kinetic Data Evaluation Data Sheet P7 ! This datasheet updated: 19th December 2005. ! Website: http://www.iupac-kinetic.ch.cam.ac.uk/. ! IUPAC recommendations used for both absorption cross sections and quantum yield ! Cross sections and quantum yields are for 298K only. ! Uncertain whether the cross sections are calculated correctly from the complex ! Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 280.0 4.910E-20 0.6000 281.0 4.860E-20 0.5820 282.0 4.790E-20 0.5630 283.0 4.710E-20 0.5440 284.0 4.620E-20 0.5260 285.0 4.540E-20 0.5070 286.0 4.440E-20 0.4890 287.0 4.360E-20 0.4710 288.0 4.280E-20 0.4530 289.0 4.150E-20 0.4360 290.0 4.060E-20 0.4190 291.0 3.950E-20 0.4020 292.0 3.820E-20 0.3850 293.0 3.710E-20 0.3700 294.0 3.570E-20 0.3540 295.0 3.420E-20 0.3390 296.0 3.260E-20 0.3240 297.0 3.110E-20 0.3100 298.0 2.980E-20 0.2960 299.0 2.820E-20 0.2830 300.0 2.670E-20 0.2700 301.0 2.580E-20 0.2580 302.0 2.450E-20 0.2460 303.0 2.300E-20 0.2240 304.0 2.180E-20 0.1950 305.0 2.050E-20 0.1700 306.0 1.890E-20 0.1470 307.0 1.750E-20 0.1270 308.0 1.610E-20 0.1110 309.0 1.490E-20 0.0960 310.0 1.360E-20 0.0840 311.0 1.240E-20 0.0730 312.0 1.140E-20 0.0640 313.0 1.060E-20 0.0560 314.0 9.440E-21 0.0500 315.0 8.370E-21 0.0440 316.0 7.600E-21 0.0390 317.0 6.840E-21 0.0350 318.0 5.980E-21 0.0310 319.0 5.230E-21 0.0280 320.0 4.550E-21 0.0250 321.0 4.110E-21 0.0230 322.0 3.480E-21 0.0210 323.0 2.940E-21 0.0190 324.0 2.480E-21 0.0170 325.0 2.100E-21 0.0160 326.0 1.740E-21 0.0140 327.0 1.410E-21 0.0130 328.0 1.130E-21 0.0120 329.0 9.130E-22 0.0110 330.0 7.400E-22 0.0100 331.0 5.860E-22 0.0090 332.0 4.650E-22 0.0090 333.0 3.750E-22 0.0080 334.0 3.110E-22 0.0070 335.0 2.480E-22 0.0070 336.0 1.990E-22 0.0060 337.0 1.620E-22 0.0060 338.0 1.350E-22 0.0050 339.0 1.130E-22 0.0050 340.0 9.120E-23 0.0050 341.0 7.290E-23 0.0040 342.0 5.830E-23 0.0040 343.0 4.940E-23 0.0040 344.0 3.650E-23 0.0040 345.0 3.010E-23 0.0030 346.0 2.350E-23 0.0030 347.0 1.580E-23 0.0030 348.0 1.110E-23 0.0030 349.0 1.070E-23 0.0020 350.0 0.000E+00 0.0000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/ACET_CO_CRI ================================================ ACET_CO_CRI !1 bar, 298K quantum yields for the photolysis of acetone (CH3COCH3) !CH3COCH3 ---> 2CH3 + CO !IUPAC 2005 Recommendation !http://www.iupac-kinetic.ch.cam.ac.uk ! !Blitz, M. A., Heard, D. E., Pilling, M. J., Arnold S. R. and M. Chipperfield, Geophys. Res. Lett. !L06111, doi:10.1029/2003GL018793, 2004. ! !See IUPAC datasheet or spreadsheet for p & T dependent QY calculation ! !phi1 (ch3+ch3+co) = qy_co !phi2 (ch3co+ch3) = qy_ch3co !phi3 (total) = qy_total ! !***IMPORTANT! - only reaction channel phi2 (ch3co + ch3) is defined in MCMv3.2. !Either add a channel for phi1 (ch3+ch3+co) to your mechanism or use the phi3 (total) !for this channel in order to get the photolytic loss of acetone correct*** ! !wvl(nm) XC(cm2) qy_co qy_ch3co qy_total Points ! With FAC, units are (cm^2/molecule) FAC=1.0 248.0 2.200E-20 0.45000 0.55000 1.00000 266.0 4.490E-20 0.45000 0.55000 1.00000 279.0 4.920E-20 0.19571 0.42371 0.61942 279.5 4.915E-20 0.19055 0.41953 0.61008 280.0 4.910E-20 0.18550 0.41523 0.60073 280.5 4.885E-20 0.18055 0.41081 0.59136 281.0 4.860E-20 0.17570 0.40628 0.58198 281.5 4.825E-20 0.17096 0.40164 0.57260 282.0 4.790E-20 0.16632 0.39691 0.56323 282.5 4.750E-20 0.16178 0.39209 0.55387 283.0 4.710E-20 0.15734 0.38719 0.54453 283.5 4.665E-20 0.15300 0.38221 0.53521 284.0 4.620E-20 0.14876 0.37716 0.52592 284.5 4.580E-20 0.14462 0.37206 0.51668 285.0 4.540E-20 0.14057 0.36689 0.50747 285.5 4.490E-20 0.13662 0.36169 0.49831 286.0 4.440E-20 0.13276 0.35644 0.48920 286.5 4.400E-20 0.12900 0.35115 0.48015 287.0 4.360E-20 0.12533 0.34584 0.47117 287.5 4.320E-20 0.12174 0.34051 0.46225 288.0 4.280E-20 0.11825 0.33515 0.45340 288.5 4.215E-20 0.11484 0.32979 0.44463 289.0 4.150E-20 0.11152 0.32442 0.43594 289.5 4.105E-20 0.10828 0.31906 0.42734 290.0 4.060E-20 0.10512 0.31369 0.41882 290.5 4.005E-20 0.10205 0.30834 0.41039 291.0 3.950E-20 0.09906 0.30300 0.40206 291.5 3.885E-20 0.09614 0.29768 0.39383 292.0 3.820E-20 0.09330 0.29239 0.38569 292.5 3.765E-20 0.09054 0.28712 0.37766 293.0 3.710E-20 0.08785 0.28188 0.36973 293.5 3.640E-20 0.08524 0.27668 0.36191 294.0 3.570E-20 0.08269 0.27151 0.35420 294.5 3.495E-20 0.08021 0.26639 0.34660 295.0 3.420E-20 0.07781 0.26131 0.33911 295.5 3.340E-20 0.07546 0.25628 0.33174 296.0 3.260E-20 0.07319 0.25129 0.32448 296.5 3.185E-20 0.07097 0.24636 0.31733 297.0 3.110E-20 0.06882 0.24148 0.31030 297.5 3.045E-20 0.06673 0.23666 0.30339 298.0 2.980E-20 0.06470 0.23190 0.29660 298.5 2.900E-20 0.06272 0.22720 0.28992 299.0 2.820E-20 0.06080 0.22256 0.28336 299.5 2.745E-20 0.05894 0.21798 0.27692 300.0 2.670E-20 0.05713 0.21347 0.27060 300.5 2.625E-20 0.05538 0.20902 0.26439 301.0 2.580E-20 0.05367 0.20463 0.25830 301.5 2.515E-20 0.05201 0.20032 0.25233 302.0 2.450E-20 0.05040 0.19607 0.24647 302.5 2.375E-20 0.04884 0.19092 0.23976 303.0 2.300E-20 0.04733 0.17650 0.22383 303.5 2.240E-20 0.04586 0.16294 0.20880 304.0 2.180E-20 0.04443 0.15024 0.19467 304.5 2.115E-20 0.04305 0.13836 0.18141 305.0 2.050E-20 0.04170 0.12729 0.16899 305.5 1.970E-20 0.04040 0.11699 0.15739 306.0 1.890E-20 0.03914 0.10744 0.14658 306.5 1.820E-20 0.03791 0.09859 0.13650 307.0 1.750E-20 0.03672 0.09041 0.12713 307.5 1.680E-20 0.03557 0.08286 0.11843 308.0 1.610E-20 0.03445 0.07591 0.11036 308.5 1.550E-20 0.03337 0.06951 0.10288 309.0 1.490E-20 0.03232 0.06363 0.09595 309.5 1.425E-20 0.03130 0.05824 0.08953 310.0 1.360E-20 0.03031 0.05329 0.08360 310.5 1.300E-20 0.02935 0.04876 0.07811 311.0 1.240E-20 0.02842 0.04461 0.07304 311.5 1.190E-20 0.02752 0.04082 0.06834 312.0 1.140E-20 0.02665 0.03735 0.06400 312.5 1.100E-20 0.02580 0.03419 0.05999 313.0 1.060E-20 0.02499 0.03129 0.05628 313.5 1.002E-20 0.02419 0.02865 0.05284 314.0 9.440E-21 0.02342 0.02624 0.04966 314.5 8.905E-21 0.02268 0.02404 0.04671 315.0 8.370E-21 0.02195 0.02202 0.04398 315.5 7.985E-21 0.02126 0.02019 0.04144 316.0 7.600E-21 0.02058 0.01851 0.03909 316.5 7.220E-21 0.01992 0.01698 0.03690 317.0 6.840E-21 0.01928 0.01559 0.03487 317.5 6.410E-21 0.01867 0.01431 0.03298 318.0 5.980E-21 0.01807 0.01314 0.03121 318.5 5.605E-21 0.01749 0.01208 0.02957 319.0 5.230E-21 0.01693 0.01110 0.02803 319.5 4.890E-21 0.01639 0.01021 0.02660 320.0 4.550E-21 0.01587 0.00939 0.02526 320.5 4.330E-21 0.01536 0.00864 0.02400 321.0 4.110E-21 0.01486 0.00796 0.02282 321.5 3.795E-21 0.01439 0.00733 0.02172 322.0 3.480E-21 0.01393 0.00675 0.02068 322.5 3.210E-21 0.01348 0.00623 0.01970 323.0 2.940E-21 0.01305 0.00574 0.01879 323.5 2.710E-21 0.01263 0.00530 0.01792 324.0 2.480E-21 0.01222 0.00489 0.01711 324.5 2.290E-21 0.01183 0.00451 0.01634 325.0 2.100E-21 0.01145 0.00416 0.01561 325.5 1.920E-21 0.01108 0.00384 0.01492 326.0 1.740E-21 0.01072 0.00355 0.01427 326.5 1.575E-21 0.01038 0.00328 0.01366 327.0 1.410E-21 0.01004 0.00303 0.01307 327.5 1.270E-21 0.00972 0.00280 0.01252 328.0 1.130E-21 0.00940 0.00259 0.23714 328.5 1.022E-21 0.00910 0.00240 0.01150 329.0 9.130E-22 0.00881 0.00222 0.01102 329.5 8.265E-22 0.00852 0.00205 0.01057 330.0 7.400E-22 0.00825 0.00190 0.01014 330.5 6.630E-22 0.00798 0.00175 0.00973 331.0 5.860E-22 0.00772 0.00162 0.00935 331.5 5.255E-22 0.00747 0.00150 0.00898 332.0 4.650E-22 0.00723 0.00139 0.00862 332.5 4.200E-22 0.00700 0.00129 0.00829 333.0 3.750E-22 0.00677 0.00119 0.00796 333.5 3.430E-22 0.00655 0.00110 0.00766 334.0 3.110E-22 0.00634 0.00102 0.00736 334.5 2.795E-22 0.00614 0.00095 0.00708 335.0 2.480E-22 0.00594 0.00088 0.00681 335.5 2.235E-22 0.00574 0.00081 0.00656 336.0 1.990E-22 0.00556 0.00075 0.00631 336.5 1.805E-22 0.00538 0.00070 0.00608 337.0 1.620E-22 0.00520 0.00065 0.00585 337.5 1.485E-22 0.00504 0.00060 0.00563 338.0 1.350E-22 0.00487 0.00055 0.00543 338.5 1.240E-22 0.00471 0.00051 0.00523 339.0 1.130E-22 0.00456 0.00048 0.00504 339.5 1.021E-22 0.00441 0.00044 0.00486 340.0 9.120E-23 0.00427 0.00041 0.00468 340.5 8.205E-23 0.00413 0.00038 0.00451 341.0 7.290E-23 0.00400 0.00035 0.00435 341.5 6.560E-23 0.00387 0.00033 0.00420 342.0 5.830E-23 0.00374 0.00030 0.00405 342.5 5.385E-23 0.00362 0.00028 0.00390 343.0 4.940E-23 0.00350 0.00026 0.00377 343.5 4.295E-23 0.00339 0.00024 0.00363 344.0 3.650E-23 0.00328 0.00023 0.00351 344.5 3.330E-23 0.00317 0.00021 0.00338 345.0 3.010E-23 0.00307 0.00019 0.00327 345.5 2.680E-23 0.00297 0.00018 0.00315 346.0 2.350E-23 0.00288 0.00017 0.00304 346.5 1.965E-23 0.00278 0.00016 0.00294 347.0 1.580E-23 0.00269 0.00015 0.00284 347.5 1.345E-23 0.00260 0.00013 0.00274 348.0 1.110E-23 0.00252 0.00013 0.00264 348.5 1.090E-23 0.00244 0.00012 0.00255 349.0 1.070E-23 0.00236 0.00011 0.00247 360.0 0.000E+00 0.00000 0.00000 0.00000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/ACET_IUPAC10 ================================================ ACET_IUPAC10 ! j(ACET) IUPAC(2010) ! ACET = 0.38 CO + 1.38 MEO2 + 1.38 RO2 + 0.62 C2O3 ! From IUPAC Subcommittee on Gas Kinetic Data Evaluation ! Data Sheet P7, updated 19th Dec, 2005 !These are point values Begining (the mechanism evaluated with this format) !WL(nm) XSEC(cm2) QY FAC=1.0 280.0 4.910E-20 0.600 281.0 4.860E-20 0.582 282.0 4.790E-20 0.563 283.0 4.710E-20 0.544 284.0 4.620E-20 0.526 285.0 4.540E-20 0.507 286.0 4.440E-20 0.489 287.0 4.360E-20 0.471 288.0 4.280E-20 0.453 289.0 4.150E-20 0.436 290.0 4.060E-20 0.419 291.0 3.950E-20 0.402 292.0 3.820E-20 0.385 293.0 3.710E-20 0.370 294.0 3.570E-20 0.354 295.0 3.420E-20 0.339 296.0 3.260E-20 0.324 297.0 3.110E-20 0.310 298.0 2.980E-20 0.296 299.0 2.820E-20 0.283 300.0 2.670E-20 0.270 301.0 2.580E-20 0.258 302.0 2.450E-20 0.246 303.0 2.300E-20 0.224 304.0 2.180E-20 0.195 305.0 2.050E-20 0.170 306.0 1.890E-20 0.147 307.0 1.750E-20 0.127 308.0 1.610E-20 0.111 309.0 1.490E-20 0.096 310.0 1.360E-20 0.084 311.0 1.240E-20 0.073 312.0 1.140E-20 0.064 313.0 1.060E-20 0.056 314.0 9.440E-21 0.050 315.0 8.370E-21 0.044 316.0 7.600E-21 0.039 317.0 6.840E-21 0.035 318.0 5.980E-21 0.031 319.0 5.230E-21 0.028 320.0 4.550E-21 0.025 321.0 4.110E-21 0.023 322.0 3.480E-21 0.021 323.0 2.940E-21 0.019 324.0 2.480E-21 0.017 325.0 2.100E-21 0.016 326.0 1.740E-21 0.014 327.0 1.410E-21 0.013 328.0 1.130E-21 0.012 329.0 9.130E-22 0.011 330.0 7.400E-22 0.010 331.0 5.860E-22 0.009 332.0 4.650E-22 0.009 333.0 3.750E-22 0.008 334.0 3.110E-22 0.007 335.0 2.480E-22 0.007 336.0 1.990E-22 0.006 337.0 1.620E-22 0.006 338.0 1.350E-22 0.005 339.0 1.130E-22 0.005 340.0 9.120E-23 0.005 341.0 7.290E-23 0.004 342.0 5.830E-23 0.004 343.0 4.940E-23 0.004 344.0 3.650E-23 0.004 345.0 3.010E-23 0.003 346.0 2.350E-23 0.003 347.0 1.580E-23 0.003 348.0 1.110E-23 0.003 349.0 1.070E-23 0.002 350.0 0.000E+00 0.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/ACET_R2_CRI ================================================ ACET_R2_CRI !1 bar, 298K quantum yields for the photolysis of acetone (CH3COCH3) !CHOCHO ---> CH3CO+CH3 !IUPAC 2013 Recommendation !http://www.iupac-kinetic.ch.cam.ac.uk ! !Blitz, M. A., Heard, D. E., Pilling, M. J., Arnold S. R. and M. Chipperfield, Geophys. Res. Lett. !L06111, doi:10.1029/2003GL018793, 2004. ! !See IUPAC datasheet or spreadsheet for p & T dependent QY calculation ! !phi1 (ch3+ch3+co) = qy_co !phi2 (ch3co+ch3) = qy_ch3co !phi3 (total) = qy_total ! !***IMPORTANT! - only reaction channel phi2 (ch3co + ch3) is defined in MCMv3.2. !Either add a channel for phi1 (ch3+ch3+co) to your mechanism or use the phi3 (total) !for this channel in order to get the photolytic loss of acetone correct*** ! !wvl(nm) XC(cm2)qy_ch3co qy_co qy_total Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 248.0 2.200E-20 0.55000 0.45000 1.00000 266.0 4.490E-20 0.55000 0.45000 1.00000 279.0 4.920E-20 0.42371 0.19571 0.61942 279.5 4.915E-20 0.41953 0.19055 0.61008 280.0 4.910E-20 0.41523 0.18550 0.60073 280.5 4.885E-20 0.41081 0.18055 0.59136 281.0 4.860E-20 0.40628 0.17570 0.58198 281.5 4.825E-20 0.40164 0.17096 0.57260 282.0 4.790E-20 0.39691 0.16632 0.56323 282.5 4.750E-20 0.39209 0.16178 0.55387 283.0 4.710E-20 0.38719 0.15734 0.54453 283.5 4.665E-20 0.38221 0.15300 0.53521 284.0 4.620E-20 0.37716 0.14876 0.52592 284.5 4.580E-20 0.37206 0.14462 0.51668 285.0 4.540E-20 0.36689 0.14057 0.50747 285.5 4.490E-20 0.36169 0.13662 0.49831 286.0 4.440E-20 0.35644 0.13276 0.48920 286.5 4.400E-20 0.35115 0.12900 0.48015 287.0 4.360E-20 0.34584 0.12533 0.47117 287.5 4.320E-20 0.34051 0.12174 0.46225 288.0 4.280E-20 0.33515 0.11825 0.45340 288.5 4.215E-20 0.32979 0.11484 0.44463 289.0 4.150E-20 0.32442 0.11152 0.43594 289.5 4.105E-20 0.31906 0.10828 0.42734 290.0 4.060E-20 0.31369 0.10512 0.41882 290.5 4.005E-20 0.30834 0.10205 0.41039 291.0 3.950E-20 0.30300 0.09906 0.40206 291.5 3.885E-20 0.29768 0.09614 0.39383 292.0 3.820E-20 0.29239 0.09330 0.38569 292.5 3.765E-20 0.28712 0.09054 0.37766 293.0 3.710E-20 0.28188 0.08785 0.36973 293.5 3.640E-20 0.27668 0.08524 0.36191 294.0 3.570E-20 0.27151 0.08269 0.35420 294.5 3.495E-20 0.26639 0.08021 0.34660 295.0 3.420E-20 0.26131 0.07781 0.33911 295.5 3.340E-20 0.25628 0.07546 0.33174 296.0 3.260E-20 0.25129 0.07319 0.32448 296.5 3.185E-20 0.24636 0.07097 0.31733 297.0 3.110E-20 0.24148 0.06882 0.31030 297.5 3.045E-20 0.23666 0.06673 0.30339 298.0 2.980E-20 0.23190 0.06470 0.29660 298.5 2.900E-20 0.22720 0.06272 0.28992 299.0 2.820E-20 0.22256 0.06080 0.28336 299.5 2.745E-20 0.21798 0.05894 0.27692 300.0 2.670E-20 0.21347 0.05713 0.27060 300.5 2.625E-20 0.20902 0.05538 0.26439 301.0 2.580E-20 0.20463 0.05367 0.25830 301.5 2.515E-20 0.20032 0.05201 0.25233 302.0 2.450E-20 0.19607 0.05040 0.24647 302.5 2.375E-20 0.19092 0.04884 0.23976 303.0 2.300E-20 0.17650 0.04733 0.22383 303.5 2.240E-20 0.16294 0.04586 0.20880 304.0 2.180E-20 0.15024 0.04443 0.19467 304.5 2.115E-20 0.13836 0.04305 0.18141 305.0 2.050E-20 0.12729 0.04170 0.16899 305.5 1.970E-20 0.11699 0.04040 0.15739 306.0 1.890E-20 0.10744 0.03914 0.14658 306.5 1.820E-20 0.09859 0.03791 0.13650 307.0 1.750E-20 0.09041 0.03672 0.12713 307.5 1.680E-20 0.08286 0.03557 0.11843 308.0 1.610E-20 0.07591 0.03445 0.11036 308.5 1.550E-20 0.06951 0.03337 0.10288 309.0 1.490E-20 0.06363 0.03232 0.09595 309.5 1.425E-20 0.05824 0.03130 0.08953 310.0 1.360E-20 0.05329 0.03031 0.08360 310.5 1.300E-20 0.04876 0.02935 0.07811 311.0 1.240E-20 0.04461 0.02842 0.07304 311.5 1.190E-20 0.04082 0.02752 0.06834 312.0 1.140E-20 0.03735 0.02665 0.06400 312.5 1.100E-20 0.03419 0.02580 0.05999 313.0 1.060E-20 0.03129 0.02499 0.05628 313.5 1.002E-20 0.02865 0.02419 0.05284 314.0 9.440E-21 0.02624 0.02342 0.04966 314.5 8.905E-21 0.02404 0.02268 0.04671 315.0 8.370E-21 0.02202 0.02195 0.04398 315.5 7.985E-21 0.02019 0.02126 0.04144 316.0 7.600E-21 0.01851 0.02058 0.03909 316.5 7.220E-21 0.01698 0.01992 0.03690 317.0 6.840E-21 0.01559 0.01928 0.03487 317.5 6.410E-21 0.01431 0.01867 0.03298 318.0 5.980E-21 0.01314 0.01807 0.03121 318.5 5.605E-21 0.01208 0.01749 0.02957 319.0 5.230E-21 0.01110 0.01693 0.02803 319.5 4.890E-21 0.01021 0.01639 0.02660 320.0 4.550E-21 0.00939 0.01587 0.02526 320.5 4.330E-21 0.00864 0.01536 0.02400 321.0 4.110E-21 0.00796 0.01486 0.02282 321.5 3.795E-21 0.00733 0.01439 0.02172 322.0 3.480E-21 0.00675 0.01393 0.02068 322.5 3.210E-21 0.00623 0.01348 0.01970 323.0 2.940E-21 0.00574 0.01305 0.01879 323.5 2.710E-21 0.00530 0.01263 0.01792 324.0 2.480E-21 0.00489 0.01222 0.01711 324.5 2.290E-21 0.00451 0.01183 0.01634 325.0 2.100E-21 0.00416 0.01145 0.01561 325.5 1.920E-21 0.00384 0.01108 0.01492 326.0 1.740E-21 0.00355 0.01072 0.01427 326.5 1.575E-21 0.00328 0.01038 0.01366 327.0 1.410E-21 0.00303 0.01004 0.01307 327.5 1.270E-21 0.00280 0.00972 0.01252 328.0 1.130E-21 0.00259 0.00940 0.23714 328.5 1.022E-21 0.00240 0.00910 0.01150 329.0 9.130E-22 0.00222 0.00881 0.01102 329.5 8.265E-22 0.00205 0.00852 0.01057 330.0 7.400E-22 0.00190 0.00825 0.01014 330.5 6.630E-22 0.00175 0.00798 0.00973 331.0 5.860E-22 0.00162 0.00772 0.00935 331.5 5.255E-22 0.00150 0.00747 0.00898 332.0 4.650E-22 0.00139 0.00723 0.00862 332.5 4.200E-22 0.00129 0.00700 0.00829 333.0 3.750E-22 0.00119 0.00677 0.00796 333.5 3.430E-22 0.00110 0.00655 0.00766 334.0 3.110E-22 0.00102 0.00634 0.00736 334.5 2.795E-22 0.00095 0.00614 0.00708 335.0 2.480E-22 0.00088 0.00594 0.00681 335.5 2.235E-22 0.00081 0.00574 0.00656 336.0 1.990E-22 0.00075 0.00556 0.00631 336.5 1.805E-22 0.00070 0.00538 0.00608 337.0 1.620E-22 0.00065 0.00520 0.00585 337.5 1.485E-22 0.00060 0.00504 0.00563 338.0 1.350E-22 0.00055 0.00487 0.00543 338.5 1.240E-22 0.00051 0.00471 0.00523 339.0 1.130E-22 0.00048 0.00456 0.00504 339.5 1.021E-22 0.00044 0.00441 0.00486 340.0 9.120E-23 0.00041 0.00427 0.00468 340.5 8.205E-23 0.00038 0.00413 0.00451 341.0 7.290E-23 0.00035 0.00400 0.00435 341.5 6.560E-23 0.00033 0.00387 0.00420 342.0 5.830E-23 0.00030 0.00374 0.00405 342.5 5.385E-23 0.00028 0.00362 0.00390 343.0 4.940E-23 0.00026 0.00350 0.00377 343.5 4.295E-23 0.00024 0.00339 0.00363 344.0 3.650E-23 0.00023 0.00328 0.00351 344.5 3.330E-23 0.00021 0.00317 0.00338 345.0 3.010E-23 0.00019 0.00307 0.00327 345.5 2.680E-23 0.00018 0.00297 0.00315 346.0 2.350E-23 0.00017 0.00288 0.00304 346.5 1.965E-23 0.00016 0.00278 0.00294 347.0 1.580E-23 0.00015 0.00269 0.00284 347.5 1.345E-23 0.00013 0.00260 0.00274 348.0 1.110E-23 0.00013 0.00252 0.00264 348.5 1.090E-23 0.00012 0.00244 0.00255 349.0 1.070E-23 0.00011 0.00236 0.00247 360.0 0.000E+00 0.00000 0.00000 0.00000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/ACRO-09 ================================================ ACRO-09 ! ! Chemical Kinetics and Photochemical Data for Use in Atmospheric Studies ! Evaluation Number 15. JPL Publication 06-2. July 10, 2006 ! The quantum yields were derived using the pressure and wavelength-dependent ! expression given by IUPAC (2005) for MVK, ! with the total pressure adjusted so that the radical forming photolysis rates ! for the chamber experiments are the same as those that fit the chamber data. ! Adjusted pressure = 1.50 atm. ! Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 282.0 8.400E-21 0.1058 284.0 9.700E-21 0.0948 286.0 1.080E-20 0.0849 288.0 1.230E-20 0.0761 290.0 1.460E-20 0.0682 292.0 1.620E-20 0.0611 294.0 1.800E-20 0.0547 296.0 1.970E-20 0.0490 298.0 2.180E-20 0.0439 300.0 2.470E-20 0.0393 302.0 2.700E-20 0.0352 304.0 2.850E-20 0.0316 306.0 3.090E-20 0.0283 308.0 3.290E-20 0.0253 310.0 3.590E-20 0.0227 312.0 3.920E-20 0.0203 314.0 4.150E-20 0.0182 316.0 4.210E-20 0.0163 318.0 4.470E-20 0.0146 320.0 4.650E-20 0.0131 322.0 5.080E-20 0.0117 324.0 5.170E-20 0.0105 326.0 5.340E-20 0.0094 328.0 5.200E-20 0.0084 330.0 5.310E-20 0.0076 332.0 5.440E-20 0.0068 334.0 5.800E-20 0.0061 336.0 6.240E-20 0.0054 338.0 5.460E-20 0.0049 340.0 5.310E-20 0.0044 342.0 5.100E-20 0.0039 344.0 5.120E-20 0.0035 346.0 5.300E-20 0.0031 348.0 5.170E-20 0.0028 350.0 5.940E-20 0.0025 352.0 5.790E-20 0.0023 354.0 4.180E-20 0.0020 356.0 3.630E-20 0.0018 358.0 3.280E-20 0.0016 360.0 3.920E-20 0.0015 362.0 3.720E-20 0.0013 364.0 2.860E-20 0.0012 366.0 3.740E-20 0.0010 368.0 3.820E-20 0.0009 370.0 2.170E-20 0.0008 372.0 1.580E-20 0.0007 374.0 1.140E-20 0.0007 376.0 1.140E-20 0.0006 378.0 1.240E-20 0.0005 380.0 1.100E-20 0.0005 382.0 8.400E-21 0.0004 384.0 7.900E-21 0.0004 386.0 1.180E-20 0.0003 388.0 4.900E-21 0.0003 390.0 2.500E-21 0.0003 392.0 0.000E+00 0.0002 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/ACROLEIN ================================================ ACROLEIN ! Acrolein photolysis (ACROLEIN) ! C3H4O + hv -> products ! Absorption cross sections for Acrolein. From Gardner et al. (1987) ! E. P. Gardler, P. D. Sperry, and J. G. Calvert, JPC _91_, 1922 (1987) ! Digitized from small figure. ! format: wl, abs_cs, qy Centered ! With FAC, units are (cm^2/molecule) FAC=1.0 250.0 1.803E-21 1.0 252.0 2.052E-21 1.0 253.0 2.199E-21 1.0 254.0 2.325E-21 1.0 255.0 2.452E-21 1.0 256.0 2.562E-21 1.0 257.0 2.651E-21 1.0 258.0 2.739E-21 1.0 259.0 2.828E-21 1.0 260.0 2.985E-21 1.0 261.0 3.241E-21 1.0 262.0 3.474E-21 1.0 263.0 3.580E-21 1.0 264.0 3.929E-21 1.0 265.0 4.669E-21 1.0 266.0 5.099E-21 1.0 267.0 5.383E-21 1.0 268.0 5.735E-21 1.0 269.0 6.132E-21 1.0 270.0 6.640E-21 1.0 271.0 7.197E-21 1.0 272.0 7.773E-21 1.0 273.0 8.372E-21 1.0 274.0 8.938E-21 1.0 275.0 9.546E-21 1.0 276.0 1.038E-20 1.0 277.0 1.116E-20 1.0 278.0 1.194E-20 1.0 279.0 1.267E-20 1.0 280.0 1.272E-20 1.0 281.0 1.259E-20 1.0 282.0 1.259E-20 1.0 283.0 1.283E-20 1.0 284.0 1.328E-20 1.0 285.0 1.383E-20 1.0 286.0 1.437E-20 1.0 287.0 1.496E-20 1.0 288.0 1.565E-20 1.0 289.0 1.634E-20 1.0 290.0 1.707E-20 1.0 291.0 1.782E-20 1.0 292.0 1.861E-20 1.0 293.0 1.953E-20 1.0 294.0 2.046E-20 1.0 295.0 2.147E-20 1.0 296.0 2.256E-20 1.0 297.0 2.366E-20 1.0 298.0 2.475E-20 1.0 299.0 2.598E-20 1.0 300.0 2.725E-20 1.0 301.0 2.853E-20 1.0 302.0 2.986E-20 1.0 303.0 3.130E-20 1.0 304.0 3.265E-20 1.0 305.0 3.390E-20 1.0 306.0 3.513E-20 1.0 307.0 3.635E-20 1.0 308.0 3.769E-20 1.0 309.0 3.915E-20 1.0 310.0 4.070E-20 1.0 311.0 4.250E-20 1.0 312.0 4.395E-20 1.0 313.0 4.441E-20 1.0 314.0 4.500E-20 1.0 315.0 4.594E-20 1.0 316.0 4.747E-20 1.0 317.0 4.898E-20 1.0 318.0 5.054E-20 1.0 319.0 5.188E-20 1.0 320.0 5.311E-20 1.0 321.0 5.425E-20 1.0 322.0 5.517E-20 1.0 323.0 5.599E-20 1.0 324.0 5.666E-20 1.0 325.0 5.668E-20 1.0 326.0 5.620E-20 1.0 327.0 5.635E-20 1.0 328.0 5.713E-20 1.0 329.0 5.758E-20 1.0 330.0 5.802E-20 1.0 331.0 5.950E-20 1.0 332.0 6.228E-20 1.0 333.0 6.395E-20 1.0 334.0 6.379E-20 1.0 335.0 6.238E-20 1.0 336.0 6.007E-20 1.0 337.0 5.787E-20 1.0 338.0 5.634E-20 1.0 339.0 5.562E-20 1.0 340.0 5.523E-20 1.0 341.0 5.536E-20 1.0 342.0 5.529E-20 1.0 343.0 5.467E-20 1.0 344.0 5.411E-20 1.0 345.0 5.400E-20 1.0 346.0 5.476E-20 1.0 347.0 5.902E-20 1.0 348.0 6.078E-20 1.0 349.0 6.002E-20 1.0 350.0 5.528E-20 1.0 351.0 5.031E-20 1.0 352.0 4.496E-20 1.0 353.0 4.034E-20 1.0 354.0 3.747E-20 1.0 355.0 3.545E-20 1.0 356.0 3.445E-20 1.0 357.0 3.462E-20 1.0 358.0 3.489E-20 1.0 359.0 3.414E-20 1.0 360.0 3.234E-20 1.0 361.0 2.954E-20 1.0 362.0 2.807E-20 1.0 363.0 2.909E-20 1.0 364.0 3.245E-20 1.0 365.0 3.543E-20 1.0 366.0 3.304E-20 1.0 367.0 2.776E-20 1.0 368.0 2.147E-20 1.0 369.0 1.594E-20 1.0 370.0 1.192E-20 1.0 371.0 8.994E-21 1.0 372.0 7.216E-21 1.0 373.0 5.855E-21 1.0 374.0 4.691E-21 1.0 375.0 3.721E-21 1.0 376.0 3.572E-21 1.0 377.0 3.546E-21 1.0 378.0 2.827E-21 1.0 379.0 1.690E-21 1.0 380.0 8.293E-24 1.0 381.0 0.000E-00 1.0 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/ACROLEIN_SAPRC99 ================================================ ACROLEIN ! Absorption cross sections for Acrolein. ! SAPRC-99 Photolysis data. Supplied by William P. L. Carter. ! Created from PhotDat.xls on 29-Jan-2000 10:07 Points (the mechanism was evaluated assuming this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 250.0 1.803E-21 1.000 252.0 2.052E-21 1.000 253.0 2.199E-21 1.000 254.0 2.325E-21 1.000 255.0 2.452E-21 1.000 256.0 2.562E-21 1.000 257.0 2.651E-21 1.000 258.0 2.739E-21 1.000 259.0 2.828E-21 1.000 260.0 2.985E-21 1.000 261.0 3.241E-21 1.000 262.0 3.474E-21 1.000 263.0 3.580E-21 1.000 264.0 3.929E-21 1.000 265.0 4.669E-21 1.000 266.0 5.099E-21 1.000 267.0 5.383E-21 1.000 268.0 5.735E-21 1.000 269.0 6.132E-21 1.000 270.0 6.640E-21 1.000 271.0 7.197E-21 1.000 272.0 7.773E-21 1.000 273.0 8.372E-21 1.000 274.0 8.938E-21 1.000 275.0 9.546E-21 1.000 276.0 1.038E-20 1.000 277.0 1.116E-20 1.000 278.0 1.194E-20 1.000 279.0 1.267E-20 1.000 280.0 1.272E-20 1.000 281.0 1.259E-20 1.000 282.0 1.259E-20 1.000 283.0 1.283E-20 1.000 284.0 1.328E-20 1.000 285.0 1.383E-20 1.000 286.0 1.437E-20 1.000 287.0 1.496E-20 1.000 288.0 1.565E-20 1.000 289.0 1.634E-20 1.000 290.0 1.707E-20 1.000 291.0 1.782E-20 1.000 292.0 1.861E-20 1.000 293.0 1.953E-20 1.000 294.0 2.046E-20 1.000 295.0 2.147E-20 1.000 296.0 2.256E-20 1.000 297.0 2.366E-20 1.000 298.0 2.475E-20 1.000 299.0 2.598E-20 1.000 300.0 2.725E-20 1.000 301.0 2.853E-20 1.000 302.0 2.986E-20 1.000 303.0 3.130E-20 1.000 304.0 3.265E-20 1.000 305.0 3.390E-20 1.000 306.0 3.513E-20 1.000 307.0 3.635E-20 1.000 308.0 3.769E-20 1.000 309.0 3.915E-20 1.000 310.0 4.070E-20 1.000 311.0 4.250E-20 1.000 312.0 4.395E-20 1.000 313.0 4.441E-20 1.000 314.0 4.500E-20 1.000 315.0 4.594E-20 1.000 316.0 4.747E-20 1.000 317.0 4.898E-20 1.000 318.0 5.054E-20 1.000 319.0 5.188E-20 1.000 320.0 5.311E-20 1.000 321.0 5.425E-20 1.000 322.0 5.517E-20 1.000 323.0 5.599E-20 1.000 324.0 5.666E-20 1.000 325.0 5.668E-20 1.000 326.0 5.620E-20 1.000 327.0 5.635E-20 1.000 328.0 5.713E-20 1.000 329.0 5.758E-20 1.000 330.0 5.802E-20 1.000 331.0 5.950E-20 1.000 332.0 6.228E-20 1.000 333.0 6.395E-20 1.000 334.0 6.379E-20 1.000 335.0 6.238E-20 1.000 336.0 6.007E-20 1.000 337.0 5.787E-20 1.000 338.0 5.634E-20 1.000 339.0 5.562E-20 1.000 340.0 5.523E-20 1.000 341.0 5.536E-20 1.000 342.0 5.529E-20 1.000 343.0 5.467E-20 1.000 344.0 5.411E-20 1.000 345.0 5.400E-20 1.000 346.0 5.476E-20 1.000 347.0 5.902E-20 1.000 348.0 6.078E-20 1.000 349.0 6.002E-20 1.000 350.0 5.528E-20 1.000 351.0 5.031E-20 1.000 352.0 4.496E-20 1.000 353.0 4.034E-20 1.000 354.0 3.747E-20 1.000 355.0 3.545E-20 1.000 356.0 3.445E-20 1.000 357.0 3.462E-20 1.000 358.0 3.489E-20 1.000 359.0 3.414E-20 1.000 360.0 3.234E-20 1.000 361.0 2.954E-20 1.000 362.0 2.807E-20 1.000 363.0 2.909E-20 1.000 364.0 3.245E-20 1.000 365.0 3.543E-20 1.000 366.0 3.304E-20 1.000 367.0 2.776E-20 1.000 368.0 2.147E-20 1.000 369.0 1.594E-20 1.000 370.0 1.192E-20 1.000 371.0 8.994E-21 1.000 372.0 7.216E-21 1.000 373.0 5.855E-21 1.000 374.0 4.691E-21 1.000 375.0 3.721E-21 1.000 376.0 3.572E-21 1.000 377.0 3.546E-21 1.000 378.0 2.827E-21 1.000 379.0 1.690E-21 1.000 380.0 8.293E-24 1.000 381.0 0.000E+00 1.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/ACRO_09 ================================================ ACRO-09 ! ! Chemical Kinetics and Photochemical Data for Use in Atmospheric Studies ! Evaluation Number 15. JPL Publication 06-2. July 10, 2006 ! The quantum yields were derived using the pressure and wavelength-dependent ! expression given by IUPAC (2005) for MVK, ! with the total pressure adjusted so that the radical forming photolysis rates ! for the chamber experiments are the same as those that fit the chamber data. ! Adjusted pressure = 1.50 atm. ! Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 282.0 8.400E-21 0.1058 284.0 9.700E-21 0.0948 286.0 1.080E-20 0.0849 288.0 1.230E-20 0.0761 290.0 1.460E-20 0.0682 292.0 1.620E-20 0.0611 294.0 1.800E-20 0.0547 296.0 1.970E-20 0.0490 298.0 2.180E-20 0.0439 300.0 2.470E-20 0.0393 302.0 2.700E-20 0.0352 304.0 2.850E-20 0.0316 306.0 3.090E-20 0.0283 308.0 3.290E-20 0.0253 310.0 3.590E-20 0.0227 312.0 3.920E-20 0.0203 314.0 4.150E-20 0.0182 316.0 4.210E-20 0.0163 318.0 4.470E-20 0.0146 320.0 4.650E-20 0.0131 322.0 5.080E-20 0.0117 324.0 5.170E-20 0.0105 326.0 5.340E-20 0.0094 328.0 5.200E-20 0.0084 330.0 5.310E-20 0.0076 332.0 5.440E-20 0.0068 334.0 5.800E-20 0.0061 336.0 6.240E-20 0.0054 338.0 5.460E-20 0.0049 340.0 5.310E-20 0.0044 342.0 5.100E-20 0.0039 344.0 5.120E-20 0.0035 346.0 5.300E-20 0.0031 348.0 5.170E-20 0.0028 350.0 5.940E-20 0.0025 352.0 5.790E-20 0.0023 354.0 4.180E-20 0.0020 356.0 3.630E-20 0.0018 358.0 3.280E-20 0.0016 360.0 3.920E-20 0.0015 362.0 3.720E-20 0.0013 364.0 2.860E-20 0.0012 366.0 3.740E-20 0.0010 368.0 3.820E-20 0.0009 370.0 2.170E-20 0.0008 372.0 1.580E-20 0.0007 374.0 1.140E-20 0.0007 376.0 1.140E-20 0.0006 378.0 1.240E-20 0.0005 380.0 1.100E-20 0.0005 382.0 8.400E-21 0.0004 384.0 7.900E-21 0.0004 386.0 1.180E-20 0.0003 388.0 4.900E-21 0.0003 390.0 2.500E-21 0.0003 392.0 0.000E+00 0.0002 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/ACRO_10 ================================================ ACRO-09 ! ! Chemical Kinetics and Photochemical Data for Use in Atmospheric Studies ! Evaluation Number 15. JPL Publication 06-2. July 10, 2006 ! The quantum yields were derived using the pressure and wavelength-dependent ! expression given by IUPAC (2005) for MVK, ! with the total pressure adjusted so that the radical forming photolysis rates ! for the chamber experiments are the same as those that fit the chamber data. ! Adjusted pressure = 1.50 atm. ! Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 282.0 8.400E-21 0.1058 284.0 9.700E-21 0.0948 286.0 1.080E-20 0.0849 288.0 1.230E-20 0.0761 290.0 1.460E-20 0.0682 292.0 1.620E-20 0.0611 294.0 1.800E-20 0.0547 296.0 1.970E-20 0.0490 298.0 2.180E-20 0.0439 300.0 2.470E-20 0.0393 302.0 2.700E-20 0.0352 304.0 2.850E-20 0.0316 306.0 3.090E-20 0.0283 308.0 3.290E-20 0.0253 310.0 3.590E-20 0.0227 312.0 3.920E-20 0.0203 314.0 4.150E-20 0.0182 316.0 4.210E-20 0.0163 318.0 4.470E-20 0.0146 320.0 4.650E-20 0.0131 322.0 5.080E-20 0.0117 324.0 5.170E-20 0.0105 326.0 5.340E-20 0.0094 328.0 5.200E-20 0.0084 330.0 5.310E-20 0.0076 332.0 5.440E-20 0.0068 334.0 5.800E-20 0.0061 336.0 6.240E-20 0.0054 338.0 5.460E-20 0.0049 340.0 5.310E-20 0.0044 342.0 5.100E-20 0.0039 344.0 5.120E-20 0.0035 346.0 5.300E-20 0.0031 348.0 5.170E-20 0.0028 350.0 5.940E-20 0.0025 352.0 5.790E-20 0.0023 354.0 4.180E-20 0.0020 356.0 3.630E-20 0.0018 358.0 3.280E-20 0.0016 360.0 3.920E-20 0.0015 362.0 3.720E-20 0.0013 364.0 2.860E-20 0.0012 366.0 3.740E-20 0.0010 368.0 3.820E-20 0.0009 370.0 2.170E-20 0.0008 372.0 1.580E-20 0.0007 374.0 1.140E-20 0.0007 376.0 1.140E-20 0.0006 378.0 1.240E-20 0.0005 380.0 1.100E-20 0.0005 382.0 8.400E-21 0.0004 384.0 7.900E-21 0.0004 386.0 1.180E-20 0.0003 388.0 4.900E-21 0.0003 390.0 2.500E-21 0.0003 392.0 0.000E+00 0.0002 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/AFG1 ================================================ AFG1 ! Photolysis of lumped photoreactive aromatic unsaturated dicarbonyl product. ! Based on 31.6% BUTEDIAL and 68.4% 4OX2PEAL with QY(BUTEDIAL) = 0.723 and ! QY(4OX2PEAL) = 1.000 ! From h:\mech\saprc06\phf.xls, "AFG1" sheet and based on ! h:\mech\saprc06\aroprods.xls ! Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 290.0 1.820E-18 1.0000 295.0 1.740E-18 1.0000 300.0 1.560E-18 1.0000 305.0 1.330E-18 1.0000 310.0 1.100E-18 1.0000 315.0 9.300E-19 1.0000 320.0 7.890E-19 1.0000 325.0 6.520E-19 1.0000 330.0 5.410E-19 1.0000 335.0 4.580E-19 1.0000 340.0 3.780E-19 1.0000 345.0 3.270E-19 1.0000 350.0 2.760E-19 1.0000 355.0 2.440E-19 1.0000 360.0 2.090E-19 1.0000 365.0 1.850E-19 1.0000 370.0 1.550E-19 1.0000 375.0 1.410E-19 1.0000 380.0 1.200E-19 1.0000 385.0 1.020E-19 1.0000 390.0 9.030E-20 1.0000 395.0 7.760E-20 1.0000 400.0 6.050E-20 1.0000 405.0 6.090E-20 1.0000 410.0 4.310E-20 1.0000 415.0 3.130E-20 1.0000 420.0 3.010E-20 1.0000 425.0 2.440E-20 1.0000 430.0 1.890E-20 1.0000 435.0 1.440E-20 1.0000 440.0 8.210E-21 1.0000 445.0 4.330E-21 1.0000 450.0 2.740E-21 1.0000 455.0 1.830E-21 1.0000 460.0 9.130E-22 1.0000 465.0 4.560E-22 1.0000 470.0 0.000E+00 1.0000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/ALD2_R_IUPAC10 ================================================ ALD2_R_IUPAC10 ! j(ALD2_R) IUPAC(2010) CH3CHO ! ALD2 = MEO2 + RO2 + CO + HO2 ! From IUPAC Subcommittee on Gas Kinetic Data Evaluation ! Data Sheet P2, updated 16th May, 2002 !These are point values Begining (the mechanism evaluated with this format) !WL(nm) XSEC(cm2) QY FAC=1.0 256.0 1.759E-20 0.300 258.0 1.994E-20 0.305 262.0 2.440E-20 0.326 266.0 3.050E-20 0.358 270.0 3.420E-20 0.390 274.0 4.030E-20 0.466 278.0 4.190E-20 0.542 280.0 4.500E-20 0.580 281.0 4.690E-20 0.578 282.0 4.720E-20 0.576 283.0 4.750E-20 0.574 284.0 4.610E-20 0.572 285.0 4.490E-20 0.570 286.0 4.440E-20 0.562 287.0 4.590E-20 0.570 288.0 4.720E-20 0.562 289.0 4.770E-20 0.570 290.0 4.890E-20 0.530 291.0 4.780E-20 0.520 292.0 4.680E-20 0.510 293.0 4.530E-20 0.500 294.0 4.330E-20 0.490 295.0 4.270E-20 0.480 296.0 4.240E-20 0.470 297.0 4.380E-20 0.460 298.0 4.410E-20 0.450 299.0 4.260E-20 0.440 300.0 4.160E-20 0.430 301.0 3.990E-20 0.418 302.0 3.860E-20 0.406 303.0 3.720E-20 0.394 304.0 3.480E-20 0.382 305.0 3.420E-20 0.370 306.0 3.420E-20 0.354 307.0 3.360E-20 0.338 308.0 3.330E-20 0.322 309.0 3.140E-20 0.306 310.0 2.930E-20 0.280 311.0 2.760E-20 0.266 312.0 2.530E-20 0.242 313.0 2.470E-20 0.218 314.0 2.440E-20 0.194 315.0 2.200E-20 0.170 316.0 2.040E-20 0.156 317.0 2.070E-20 0.142 318.0 1.980E-20 0.128 319.0 1.870E-20 0.114 320.0 1.720E-20 0.100 321.0 1.480E-20 0.088 322.0 1.400E-20 0.076 323.0 1.240E-20 0.064 324.0 1.090E-20 0.052 325.0 1.140E-20 0.040 326.0 1.070E-20 0.032 327.0 8.580E-21 0.024 328.0 7.470E-21 0.016 329.0 7.070E-21 0.008 330.0 6.670E-21 0.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/ALD2_R_IUPAC13 ================================================ ALD2_R_IUPAC13 ! j(ALD2_R) IUPAC(2013) CH3CHO ! ALD2 = MEO2 + RO2 + CO + HO2 ! From IUPAC Subcommittee on Gas Kinetic Data Evaluation ! Data Sheet P2, updated June, 2013 ! Lumps channela 2 and 3 in data sheet !These are point values POINT !WL(nm) XSEC(cm2) QY FAC=1.0 202.0 5.600E-22 0.420 206.0 5.300E-22 0.420 210.0 4.900E-22 0.420 214.0 4.800E-22 0.420 218.0 5.200E-22 0.420 222.0 6.500E-22 0.420 226.0 9.600E-22 0.420 230.0 1.510E-21 0.420 234.0 2.410E-21 0.420 238.0 3.750E-21 0.420 242.0 5.640E-21 0.420 246.0 8.180E-21 0.420 250.0 1.128E-20 0.420 254.0 1.524E-20 0.420 258.0 1.994E-20 0.420 262.0 2.440E-20 0.432 266.0 3.050E-20 0.462 270.0 3.420E-20 0.510 274.0 4.030E-20 0.582 278.0 4.190E-20 0.648 280.0 4.500E-20 0.680 281.0 4.690E-20 0.676 282.0 4.720E-20 0.672 283.0 4.750E-20 0.668 284.0 4.610E-20 0.664 285.0 4.490E-20 0.660 286.0 4.440E-20 0.652 287.0 4.590E-20 0.644 288.0 4.720E-20 0.636 289.0 4.770E-20 0.628 290.0 4.890E-20 0.620 291.0 4.780E-20 0.610 292.0 4.680E-20 0.600 293.0 4.530E-20 0.590 294.0 4.330E-20 0.580 295.0 4.270E-20 0.570 296.0 4.240E-20 0.556 297.0 4.380E-20 0.542 298.0 4.410E-20 0.528 299.0 4.260E-20 0.514 300.0 4.160E-20 0.500 301.0 3.990E-20 0.484 302.0 3.860E-20 0.468 303.0 3.720E-20 0.452 304.0 3.480E-20 0.436 305.0 3.420E-20 0.420 306.0 3.420E-20 0.400 307.0 3.360E-20 0.380 308.0 3.330E-20 0.360 309.0 3.140E-20 0.340 310.0 2.930E-20 0.320 311.0 2.760E-20 0.296 312.0 2.530E-20 0.272 313.0 2.470E-20 0.248 314.0 2.440E-20 0.224 315.0 2.200E-20 0.200 316.0 2.040E-20 0.180 317.0 2.070E-20 0.160 318.0 1.979E-20 0.140 319.0 1.874E-20 0.120 320.0 1.723E-20 0.100 321.0 1.484E-20 0.088 322.0 1.402E-20 0.076 323.0 1.244E-20 0.064 324.0 1.091E-20 0.052 325.0 1.136E-20 0.040 326.0 1.074E-20 0.034 327.0 8.580E-21 0.028 328.0 7.470E-21 0.022 329.0 7.070E-21 0.016 330.0 6.880E-21 0.010 331.0 5.880E-21 0.008 332.0 5.300E-21 0.006 333.0 3.980E-21 0.004 334.0 3.630E-21 0.002 335.0 3.500E-21 0.000 336.0 2.380E-21 0.000 337.0 2.220E-21 0.000 338.0 2.050E-21 0.000 339.0 2.190E-21 0.000 340.0 1.500E-21 0.000 341.0 7.400E-22 0.000 342.0 4.200E-22 0.000 343.0 3.100E-22 0.000 344.0 2.600E-22 0.000 345.0 2.100E-22 0.000 346.0 1.900E-22 0.000 347.0 1.500E-22 0.000 348.0 1.600E-22 0.000 349.0 1.000E-22 0.000 350.0 8.000E-23 0.000 351.0 7.000E-23 0.000 352.0 6.000E-23 0.000 353.0 5.000E-23 0.000 354.0 5.000E-23 0.000 355.0 4.000E-23 0.000 356.0 5.000E-23 0.000 357.0 3.000E-23 0.000 358.0 4.000E-23 0.000 359.0 2.000E-23 0.000 360.0 3.000E-23 0.000 361.0 2.000E-23 0.000 362.0 1.000E-23 0.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/ALDX_R_IUPAC10 ================================================ ALDX_R_IUPAC10 ! j(ALDX_R) IUPAC(2010)/SAPRC99 CH3CH2CHO ! ALDX = MEO2 + RO2 + CO + HO2 ! From IUPAC Subcommittee on Gas Kinetic Data Evaluation ! Data Sheet P3, updated 16th May, 2002 !These are point values Begining (the mechanism evaluated with this format) !WL(nm) XSEC(cm2) QY FAC=1.0 294.0 5.800E-20 0.890 295.0 5.570E-20 0.885 296.0 5.370E-20 0.880 297.0 5.160E-20 0.875 298.0 5.020E-20 0.870 299.0 5.020E-20 0.865 300.0 5.040E-20 0.860 301.0 5.090E-20 0.855 302.0 5.070E-20 0.850 303.0 4.940E-20 0.818 304.0 4.690E-20 0.786 305.0 4.320E-20 0.755 306.0 4.040E-20 0.723 307.0 3.810E-20 0.691 308.0 3.650E-20 0.659 309.0 3.620E-20 0.627 310.0 3.600E-20 0.596 311.0 3.530E-20 0.564 312.0 3.500E-20 0.532 313.0 3.320E-20 0.500 314.0 3.060E-20 0.480 315.0 2.770E-20 0.460 316.0 2.430E-20 0.440 317.0 2.180E-20 0.420 318.0 2.000E-20 0.400 319.0 1.860E-20 0.380 320.0 1.830E-20 0.360 321.0 1.780E-20 0.340 322.0 1.660E-20 0.320 323.0 1.580E-20 0.300 324.0 1.490E-20 0.280 325.0 1.300E-20 0.260 326.0 1.130E-20 0.248 327.0 9.960E-21 0.236 328.0 8.280E-21 0.223 329.0 6.850E-21 0.211 330.0 5.750E-21 0.199 331.0 4.940E-21 0.187 332.0 4.660E-21 0.174 333.0 4.300E-21 0.162 334.0 3.730E-21 0.150 335.0 3.250E-21 0.133 336.0 2.800E-21 0.117 337.0 2.300E-21 0.100 338.0 1.850E-21 0.083 339.0 1.660E-21 0.067 340.0 1.550E-21 0.050 341.0 1.190E-21 0.033 342.0 7.600E-22 0.017 343.0 4.500E-22 0.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/ALDX_R_IUPAC13 ================================================ ALDX_R_IUPAC13 ! j(ALDX_R) IUPAC(2010) ! ALDX = MEO2 + RO2 + CO + HO2 ! From IUPAC Subcommittee on Gas Kinetic Data Evaluation ! Data Sheet P24, updated June, 2010 !These are point values POINTS !WL(nm) XSEC(cm2) QY FAC=1.0 280.0 5.120E-20 0.310 281.0 5.210E-20 0.348 282.0 5.290E-20 0.386 283.0 5.380E-20 0.424 284.0 5.470E-20 0.462 285.0 5.560E-20 0.500 286.0 5.640E-20 0.542 287.0 5.730E-20 0.584 288.0 5.790E-20 0.626 289.0 5.850E-20 0.668 290.0 5.870E-20 0.710 291.0 5.840E-20 0.750 292.0 5.840E-20 0.790 293.0 5.880E-20 0.830 294.0 5.920E-20 0.870 295.0 5.940E-20 0.910 296.0 5.860E-20 0.928 297.0 5.780E-20 0.946 298.0 5.730E-20 0.964 299.0 5.690E-20 0.982 300.0 5.590E-20 1.000 301.0 5.480E-20 1.000 302.0 5.430E-20 1.000 303.0 5.360E-20 1.000 304.0 5.290E-20 1.000 305.0 5.150E-20 1.000 306.0 4.980E-20 1.000 307.0 4.730E-20 1.000 308.0 4.570E-20 1.000 309.0 4.410E-20 1.000 310.0 4.270E-20 1.000 311.0 4.130E-20 1.000 312.0 3.990E-20 1.000 313.0 3.860E-20 1.000 314.0 3.730E-20 1.000 315.0 3.610E-20 1.000 316.0 3.480E-20 1.000 317.0 3.260E-20 1.000 318.0 2.820E-20 1.000 319.0 2.600E-20 1.000 320.0 2.410E-20 1.000 321.0 2.280E-20 1.000 322.0 2.175E-20 1.000 323.0 2.076E-20 1.000 324.0 1.951E-20 1.000 325.0 1.842E-20 1.000 326.0 1.710E-20 0.988 327.0 1.584E-20 0.976 328.0 1.397E-20 0.964 329.0 1.195E-20 0.952 330.0 9.500E-21 0.940 331.0 7.850E-21 0.878 332.0 6.720E-21 0.815 333.0 5.670E-21 0.753 334.0 4.900E-21 0.690 335.0 4.250E-21 0.627 336.0 3.570E-21 0.564 337.0 2.970E-21 0.501 338.0 2.570E-21 0.438 339.0 2.150E-21 0.375 340.0 1.730E-21 0.312 341.0 1.470E-21 0.249 342.0 1.230E-21 0.186 343.0 8.100E-22 0.123 344.0 5.900E-22 0.060 345.0 3.400E-22 0.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/ALD_CBIV88 ================================================ ALD_CBIV88 ! Acetaldehyde Photolysis (ALD) ! CH3CHO + hv (+2O2)-> CH3OO + HO2 + CO ! Taken from Gery et al. (1988); Absorption CS and QY from Baulch et al. (1984). ! format: wl, abs_cs, qy Centered ! With FAC, units are (cm^2/molecule) FAC=1.0E-20 256 1.76 0.300 258 1.99 0.305 262 2.44 0.326 266 3.05 0.358 270 3.42 0.390 274 4.03 0.466 278 4.19 0.542 280 4.50 0.580 281 4.54 0.575 282 4.58 0.570 283 4.62 0.565 284 4.66 0.560 285 4.70 0.555 286 4.74 0.550 287 4.78 0.545 288 4.82 0.540 289 4.86 0.535 290 4.90 0.530 291 4.82 0.520 292 4.74 0.510 293 4.66 0.500 294 4.58 0.490 295 4.50 0.480 296 4.46 0.470 297 4.42 0.460 298 4.38 0.450 299 4.34 0.440 300 4.30 0.430 301 4.12 0.418 302 3.94 0.406 303 3.76 0.394 304 3.58 0.382 305 3.40 0.370 306 3.27 0.350 307 3.14 0.330 308 3.01 0.310 309 2.88 0.290 310 2.75 0.270 311 2.62 0.250 312 2.49 0.230 313 2.36 0.210 314 2.23 0.190 315 2.10 0.170 316 2.04 0.156 317 1.98 0.142 318 1.92 0.128 319 1.86 0.114 320 1.80 0.100 321 1.66 0.088 322 1.52 0.076 323 1.38 0.064 324 1.24 0.052 325 1.10 0.040 326 1.18 0.032 327 0.94 0.024 328 0.85 0.016 329 0.77 0.008 330 0.69 0.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/ALD_JPL19 ================================================ ALD_JPL19 ! ALD + HV = HO2 + ETHP + CO ! Absorption cross sections for propionaldehyde from NASA JPL 2019 evaluation, Table 4D-4 ! J. B. Burkholder, S. P. Sander, J. Abbatt, J. R. Barker, C. Cappa, J. D. Crounse, T. S. Dibble, R. E. Huie, C. E. Kolb, ! M. J. Kurylo, V. L. Orkin, C. J. Percival, D. M. Wilmouth, and P. H. Wine "Chemical Kinetics and Photochemical ! Data for Use in Atmospheric Studies, Evaluation No. 19," JPL Publication 19-5, Jet Propulsion Laboratory, Pasadena, ! 2019 http://jpldataeval.jpl.nasa.gov. ! Quantum yield are fit from Heicklen et al. (1986) and IUPAC P3 datasheet (updated 16th May 2002) ! Supplied by Drs. William Stockwell and Emily Saunders, reformatted by Dr. Golam Sarwar to make it compatible with CMAQ Points ! With FAC, units are (cm^2/molecule) FAC=1.0 202 4.90E-22 0.000 206 4.90E-22 0.000 210 5.70E-22 0.000 214 6.90E-22 0.000 218 8.00E-22 0.000 222 9.10E-22 0.000 226 1.15E-21 0.000 230 1.63E-21 0.000 234 2.57E-21 0.000 238 4.07E-21 0.000 242 6.22E-21 0.000 246 9.09E-21 0.000 250 1.29E-20 0.152 254 1.75E-20 0.222 258 2.25E-20 0.316 262 2.88E-20 0.412 266 3.43E-20 0.508 270 4.12E-20 0.604 274 4.59E-20 0.700 278 5.17E-20 0.797 280 5.16E-20 0.839 281 5.21E-20 0.856 282 5.35E-20 0.870 283 5.57E-20 0.880 284 5.78E-20 0.890 285 5.86E-20 0.900 286 5.82E-20 0.910 287 5.72E-20 0.920 288 5.59E-20 0.930 289 5.52E-20 0.935 290 5.56E-20 0.935 291 5.68E-20 0.930 292 5.81E-20 0.920 293 5.88E-20 0.904 294 5.80E-20 0.887 295 5.57E-20 0.868 296 5.37E-20 0.848 297 5.16E-20 0.828 298 5.02E-20 0.807 299 5.02E-20 0.786 300 5.04E-20 0.765 301 5.09E-20 0.744 302 5.07E-20 0.724 303 4.94E-20 0.703 304 4.69E-20 0.682 305 4.32E-20 0.661 306 4.04E-20 0.640 307 3.81E-20 0.620 308 3.65E-20 0.599 309 3.62E-20 0.578 310 3.60E-20 0.557 311 3.53E-20 0.536 312 3.50E-20 0.516 313 3.32E-20 0.495 314 3.06E-20 0.474 315 2.77E-20 0.453 316 2.43E-20 0.432 317 2.18E-20 0.412 318 2.00E-20 0.391 319 1.86E-20 0.370 320 1.83E-20 0.349 321 1.78E-20 0.328 322 1.66E-20 0.308 323 1.58E-20 0.290 324 1.49E-20 0.273 325 1.30E-20 0.259 326 1.13E-20 0.246 327 9.96E-21 0.235 328 8.28E-21 0.223 329 6.85E-21 0.211 330 5.75E-21 0.199 331 4.94E-21 0.187 332 4.66E-21 0.174 333 4.30E-21 0.163 334 3.73E-21 0.152 335 3.25E-21 0.142 336 2.80E-21 0.133 337 2.30E-21 0.125 338 1.85E-21 0.117 339 1.66E-21 0.108 340 1.55E-21 0.099 341 1.19E-21 0.090 342 7.60E-22 0.080 343 4.50E-22 0.070 344 3.10E-22 0.060 345 2.50E-22 0.050 346 1.90E-22 0.040 347 1.60E-22 0.030 348 1.40E-22 0.020 349 1.30E-22 0.012 350 1.00E-22 0.000 351 8.00E-23 0.000 352 7.00E-23 0.000 353 5.00E-23 0.000 354 4.00E-23 0.000 355 2.00E-23 0.000 356 1.00E-23 0.000 357 1.00E-23 0.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/ALD_RACM2 ================================================ ALD_RACM2 ! ALD + HV = HO2 + ETHP + CO ! Absorption x-section from NASA - 2006 ! Quantum yield from Heicklen - 1986 ! Supplied by Dr. Wendy Goliff, reformatted by Dr. Golam Sarwar to make it compatible with CMAQ Points ! With FAC, units are (cm^2/molecule) FAC=1.0 186.1 0.000E+00 0.000 187.8 0.000E+00 0.000 189.6 0.000E+00 0.000 191.4 0.000E+00 0.000 193.3 0.000E+00 0.000 195.2 0.000E+00 0.000 197.1 0.000E+00 0.000 199.0 0.000E+00 0.000 201.0 0.000E+00 0.000 203.1 0.490E-21 0.000 205.2 0.490E-21 0.000 207.3 0.510E-21 0.000 209.4 0.550E-21 0.000 211.7 0.630E-21 0.000 213.9 0.690E-21 0.000 216.2 0.750E-21 0.000 218.6 0.800E-21 0.000 221.0 0.880E-21 0.000 223.5 0.103E-21 0.000 226.0 0.115E-20 0.000 228.6 0.151E-20 0.000 231.3 0.187E-20 0.000 234.0 0.257E-20 0.000 236.7 0.370E-20 0.000 239.6 0.514E-20 0.000 242.5 0.622E-20 0.000 245.4 0.837E-20 0.000 248.5 0.189E-19 0.000 251.6 0.152E-19 0.000 254.8 0.187E-19 0.000 258.2 0.225E-19 0.000 261.5 0.288E-19 0.890 265.0 0.329E-19 0.890 268.5 0.378E-19 0.890 272.2 0.436E-19 0.890 275.9 0.488E-19 0.890 279.8 0.516E-19 0.890 283.7 0.578E-19 0.890 287.8 0.559E-19 0.890 292.0 0.581E-19 0.890 296.3 0.537E-19 0.883 300.5 0.504E-19 0.867 303.0 0.494E-19 0.826 304.0 0.469E-19 0.798 305.0 0.432E-19 0.766 306.0 0.404E-19 0.732 307.0 0.381E-19 0.697 308.0 0.365E-19 0.660 309.0 0.362E-19 0.625 310.0 0.360E-19 0.591 311.0 0.353E-19 0.558 312.0 0.350E-19 0.527 313.0 0.332E-19 0.500 314.0 0.306E-19 0.475 316.0 0.243E-19 0.429 320.0 0.183E-19 0.348 325.0 0.130E-19 0.260 330.0 0.575E-20 0.194 335.0 0.325E-20 0.000 340.0 0.155E-20 0.000 345.0 0.250E-21 0.000 350.0 0.100E-21 0.000 355.0 0.200E-22 0.000 360.0 0.000E+00 0.000 365.0 0.000E+00 0.000 370.0 0.000E+00 0.000 375.0 0.000E+00 0.000 380.0 0.000E+00 0.000 385.0 0.000E+00 0.000 390.0 0.000E+00 0.000 395.0 0.000E+00 0.000 400.0 0.000E+00 0.000 405.0 0.000E+00 0.000 410.0 0.000E+00 0.000 415.0 0.000E+00 0.000 420.0 0.000E+00 0.000 425.0 0.000E+00 0.000 430.0 0.000E+00 0.000 435.0 0.000E+00 0.000 440.0 0.000E+00 0.000 445.0 0.000E+00 0.000 450.0 0.000E+00 0.000 455.0 0.000E+00 0.000 460.0 0.000E+00 0.000 465.0 0.000E+00 0.000 470.0 0.000E+00 0.000 475.0 0.000E+00 0.000 480.0 0.000E+00 0.000 485.0 0.000E+00 0.000 490.0 0.000E+00 0.000 495.0 0.000E+00 0.000 500.0 0.000E+00 0.000 505.0 0.000E+00 0.000 510.0 0.000E+00 0.000 515.0 0.000E+00 0.000 520.0 0.000E+00 0.000 525.0 0.000E+00 0.000 530.0 0.000E+00 0.000 535.0 0.000E+00 0.000 540.0 0.000E+00 0.000 545.0 0.000E+00 0.000 550.0 0.000E+00 0.000 555.0 0.000E+00 0.000 560.0 0.000E+00 0.000 565.0 0.000E+00 0.000 570.0 0.000E+00 0.000 575.0 0.000E+00 0.000 580.0 0.000E+00 0.000 585.0 0.000E+00 0.000 590.0 0.000E+00 0.000 595.0 0.000E+00 0.000 600.0 0.000E+00 0.000 605.0 0.000E+00 0.000 610.0 0.000E+00 0.000 615.0 0.000E+00 0.000 620.0 0.000E+00 0.000 625.0 0.000E+00 0.000 630.0 0.000E+00 0.000 635.0 0.000E+00 0.000 640.0 0.000E+00 0.000 644.8 0.000E+00 0.000 651.0 0.000E+00 0.000 660.0 0.000E+00 0.000 670.0 0.000E+00 0.000 680.0 0.000E+00 0.000 690.0 0.000E+00 0.000 700.0 0.000E+00 0.000 710.0 0.000E+00 0.000 720.0 0.000E+00 0.000 730.0 0.000E+00 0.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/ALD_RADM88 ================================================ ALD_RADM88 ! Acetaldehyde Photolysis (ALD) ! CH3CHO + hv (+2O2)-> CH3OO + HO2 + CO ! Absorption CS from avg of Calvert and Pitts (1966) and Meyrahn (1984); ! QY from Meyrahn et al. (1981) ! format: wl, abs_cs, qy Beginning ! With FAC, units are (cm^2/molecule) FAC=1.0 206.186 2.957E-21 0.000E+00 208.333 2.176E-21 0.000E+00 210.526 2.410E-21 0.000E+00 212.766 1.519E-21 0.000E+00 215.054 6.961E-22 0.000E+00 217.391 3.801E-22 0.000E+00 219.780 1.537E-22 0.000E+00 222.222 1.412E-22 0.000E+00 224.719 2.429E-22 0.000E+00 227.273 5.560E-22 0.000E+00 229.885 1.140E-21 0.000E+00 232.558 2.138E-21 0.000E+00 235.294 3.192E-21 0.000E+00 238.095 4.428E-21 0.000E+00 240.964 5.980E-21 0.000E+00 243.902 7.759E-21 0.000E+00 246.914 1.000E-20 0.000E+00 250.000 1.277E-20 0.000E+00 253.165 1.613E-20 0.000E+00 256.410 2.014E-20 0.000E+00 259.740 2.381E-20 0.000E+00 263.158 2.822E-20 3.493E-01 266.667 3.245E-20 3.779E-01 270.270 3.683E-20 4.303E-01 273.973 4.007E-20 5.016E-01 277.778 4.342E-20 5.662E-01 281.690 4.498E-20 5.615E-01 285.714 4.548E-20 5.411E-01 289.855 4.434E-20 5.121E-01 294.118 4.217E-20 4.732E-01 298.500 3.904E-20 4.300E-01 302.500 3.542E-20 3.920E-01 303.500 3.407E-20 3.760E-01 304.500 3.339E-20 3.600E-01 305.500 3.268E-20 3.440E-01 306.500 3.195E-20 3.280E-01 307.500 3.113E-20 3.120E-01 308.500 2.968E-20 2.960E-01 309.500 2.813E-20 2.798E-01 310.500 2.657E-20 2.625E-01 311.500 2.502E-20 2.450E-01 312.500 2.355E-20 2.275E-01 313.500 2.251E-20 2.100E-01 314.500 2.048E-20 1.750E-01 317.500 1.566E-20 1.093E-01 322.500 1.092E-20 5.188E-02 327.500 6.427E-21 6.266E-03 332.500 2.787E-21 0.000E+00 337.500 9.063E-22 0.000E+00 342.500 3.280E-22 0.000E+00 347.500 4.022E-23 0.000E+00 352.500 0.000E+00 0.000E+00 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/BACL-07 ================================================ BACL-07 ! CH3COCOCH3 + HV = 2 CH3CO. ! Absorption cross sections from Plum et al (1983) as used in SAPRC-99 ! mechanism. Quantum yields calculated using the IUPAC (2005)-recommended ! expression for the pressure and wavelength-dependence quantum yields for ! methyl glyoxal, but with the effective presssure adjusted so the ! photolysis rate, relative to that for NO2, under ambient conditions is ! consistent with that measured by Klotz et al (2000) in the Euphore outdoor ! chamber. ! Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 280.0 4.440E-20 0.9960 283.0 4.330E-20 0.9950 285.0 3.900E-20 0.9940 288.0 3.570E-20 0.9930 290.0 3.250E-20 0.9920 293.0 2.920E-20 0.9910 295.0 2.600E-20 0.9890 298.0 2.160E-20 0.9870 300.0 1.790E-20 0.9850 303.0 1.730E-20 0.9820 305.0 1.460E-20 0.9800 308.0 1.080E-20 0.9760 310.0 9.200E-21 0.9730 313.0 7.030E-21 0.9680 315.0 6.490E-21 0.9640 318.0 5.410E-21 0.9580 320.0 5.410E-21 0.9530 323.0 5.410E-21 0.9460 325.0 4.330E-21 0.9390 328.0 3.250E-21 0.9310 330.0 3.790E-21 0.9220 333.0 3.790E-21 0.9120 335.0 4.330E-21 0.9010 338.0 4.870E-21 0.8900 340.0 5.410E-21 0.8770 343.0 5.950E-21 0.8630 345.0 6.490E-21 0.8490 348.0 7.030E-21 0.8330 350.0 8.120E-21 0.8160 353.0 7.570E-21 0.7980 355.0 9.200E-21 0.7800 358.0 9.740E-21 0.7600 360.0 1.080E-20 0.7390 363.0 1.190E-20 0.7180 365.0 1.410E-20 0.6960 368.0 1.510E-20 0.6730 370.0 1.790E-20 0.6500 373.0 2.000E-20 0.6260 375.0 2.110E-20 0.6030 378.0 2.330E-20 0.5780 380.0 2.600E-20 0.5540 383.0 2.810E-20 0.5300 385.0 3.140E-20 0.4960 388.0 3.460E-20 0.4510 390.0 3.900E-20 0.4100 393.0 4.110E-20 0.3740 395.0 4.330E-20 0.3410 398.0 4.380E-20 0.3120 400.0 4.650E-20 0.2850 403.0 4.810E-20 0.2610 405.0 5.190E-20 0.2400 408.0 5.840E-20 0.2200 410.0 6.060E-20 0.2020 413.0 6.490E-20 0.1860 415.0 6.920E-20 0.1710 418.0 6.870E-20 0.1580 420.0 6.820E-20 0.1450 423.0 6.710E-20 0.1340 425.0 6.490E-20 0.1240 428.0 5.950E-20 0.1150 430.0 5.730E-20 0.1060 433.0 6.280E-20 0.0980 435.0 6.010E-20 0.0910 438.0 5.840E-20 0.0850 440.0 5.950E-20 0.0790 443.0 6.490E-20 0.0730 445.0 5.950E-20 0.0680 448.0 4.980E-20 0.0630 450.0 3.790E-20 0.0590 453.0 2.810E-20 0.0550 455.0 1.730E-20 0.0510 458.0 1.080E-20 0.0480 460.0 5.410E-21 0.0450 463.0 3.790E-21 0.0420 465.0 2.160E-21 0.0390 468.0 1.080E-21 0.0370 470.0 1.080E-21 0.0350 473.0 0.000E+00 0.0320 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/BACL_07 ================================================ BACL-07 ! CH3COCOCH3 + HV = 2 CH3CO. ! Absorption cross sections from Plum et al (1983) as used in SAPRC-99 ! mechanism. Quantum yields calculated using the IUPAC (2005)-recommended ! expression for the pressure and wavelength-dependence quantum yields for ! methyl glyoxal, but with the effective presssure adjusted so the ! photolysis rate, relative to that for NO2, under ambient conditions is ! consistent with that measured by Klotz et al (2000) in the Euphore outdoor ! chamber. ! Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 280.0 4.440E-20 0.9960 283.0 4.330E-20 0.9950 285.0 3.900E-20 0.9940 288.0 3.570E-20 0.9930 290.0 3.250E-20 0.9920 293.0 2.920E-20 0.9910 295.0 2.600E-20 0.9890 298.0 2.160E-20 0.9870 300.0 1.790E-20 0.9850 303.0 1.730E-20 0.9820 305.0 1.460E-20 0.9800 308.0 1.080E-20 0.9760 310.0 9.200E-21 0.9730 313.0 7.030E-21 0.9680 315.0 6.490E-21 0.9640 318.0 5.410E-21 0.9580 320.0 5.410E-21 0.9530 323.0 5.410E-21 0.9460 325.0 4.330E-21 0.9390 328.0 3.250E-21 0.9310 330.0 3.790E-21 0.9220 333.0 3.790E-21 0.9120 335.0 4.330E-21 0.9010 338.0 4.870E-21 0.8900 340.0 5.410E-21 0.8770 343.0 5.950E-21 0.8630 345.0 6.490E-21 0.8490 348.0 7.030E-21 0.8330 350.0 8.120E-21 0.8160 353.0 7.570E-21 0.7980 355.0 9.200E-21 0.7800 358.0 9.740E-21 0.7600 360.0 1.080E-20 0.7390 363.0 1.190E-20 0.7180 365.0 1.410E-20 0.6960 368.0 1.510E-20 0.6730 370.0 1.790E-20 0.6500 373.0 2.000E-20 0.6260 375.0 2.110E-20 0.6030 378.0 2.330E-20 0.5780 380.0 2.600E-20 0.5540 383.0 2.810E-20 0.5300 385.0 3.140E-20 0.4960 388.0 3.460E-20 0.4510 390.0 3.900E-20 0.4100 393.0 4.110E-20 0.3740 395.0 4.330E-20 0.3410 398.0 4.380E-20 0.3120 400.0 4.650E-20 0.2850 403.0 4.810E-20 0.2610 405.0 5.190E-20 0.2400 408.0 5.840E-20 0.2200 410.0 6.060E-20 0.2020 413.0 6.490E-20 0.1860 415.0 6.920E-20 0.1710 418.0 6.870E-20 0.1580 420.0 6.820E-20 0.1450 423.0 6.710E-20 0.1340 425.0 6.490E-20 0.1240 428.0 5.950E-20 0.1150 430.0 5.730E-20 0.1060 433.0 6.280E-20 0.0980 435.0 6.010E-20 0.0910 438.0 5.840E-20 0.0850 440.0 5.950E-20 0.0790 443.0 6.490E-20 0.0730 445.0 5.950E-20 0.0680 448.0 4.980E-20 0.0630 450.0 3.790E-20 0.0590 453.0 2.810E-20 0.0550 455.0 1.730E-20 0.0510 458.0 1.080E-20 0.0480 460.0 5.410E-21 0.0450 463.0 3.790E-21 0.0420 465.0 2.160E-21 0.0390 468.0 1.080E-21 0.0370 470.0 1.080E-21 0.0350 473.0 0.000E+00 0.0320 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/BACL_ADJ_SAPRC99 ================================================ BACL_ADJ ! BACL + HV = PRODUCTS ! SAPRC-99 Photolysis data. Supplied by William P. L. Carter. ! Created from PhotDat.xls on 29-Jan-2000 10:07 Points (the mechanism was evaluated assuming this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 230.0 1.300E-20 1.000 232.5 1.460E-20 1.000 235.0 1.680E-20 1.000 237.5 1.840E-20 1.000 240.0 2.160E-20 1.000 242.5 2.490E-20 1.000 245.0 2.650E-20 1.000 247.5 2.710E-20 1.000 250.0 3.030E-20 1.000 252.5 3.460E-20 1.000 255.0 3.460E-20 1.000 257.5 3.570E-20 1.000 260.0 3.950E-20 1.000 262.5 4.170E-20 1.000 265.0 4.170E-20 1.000 267.5 4.220E-20 1.000 270.0 4.600E-20 1.000 272.5 4.540E-20 1.000 275.0 4.330E-20 1.000 277.5 4.220E-20 1.000 280.0 4.440E-20 1.000 282.5 4.330E-20 1.000 285.0 3.900E-20 1.000 287.5 3.570E-20 1.000 290.0 3.250E-20 1.000 292.5 2.920E-20 1.000 295.0 2.600E-20 1.000 297.5 2.160E-20 1.000 300.0 1.790E-20 1.000 302.5 1.730E-20 1.000 305.0 1.460E-20 1.000 307.5 1.080E-20 1.000 310.0 9.200E-21 1.000 312.5 7.030E-21 1.000 315.0 6.490E-21 1.000 317.5 5.410E-21 1.000 320.0 5.410E-21 1.000 322.5 5.410E-21 1.000 325.0 4.330E-21 1.000 327.5 3.250E-21 1.000 330.0 3.790E-21 1.000 332.5 3.790E-21 1.000 335.0 4.330E-21 1.000 337.5 4.870E-21 1.000 340.0 5.410E-21 1.000 342.5 5.950E-21 1.000 345.0 6.490E-21 1.000 347.5 7.030E-21 1.000 350.0 8.120E-21 0.995 352.5 7.570E-21 0.960 355.0 9.200E-21 0.925 357.5 9.740E-21 0.890 360.0 1.080E-20 0.855 362.5 1.190E-20 0.820 365.0 1.410E-20 0.785 367.5 1.510E-20 0.750 370.0 1.790E-20 0.715 372.5 2.000E-20 0.680 375.0 2.110E-20 0.645 377.5 2.330E-20 0.610 380.0 2.600E-20 0.575 382.5 2.810E-20 0.540 385.0 3.140E-20 0.505 387.5 3.460E-20 0.470 390.0 3.900E-20 0.435 392.5 4.110E-20 0.399 395.0 4.330E-20 0.364 397.5 4.380E-20 0.329 400.0 4.650E-20 0.294 402.5 4.810E-20 0.259 405.0 5.190E-20 0.224 407.5 5.840E-20 0.189 410.0 6.060E-20 0.154 412.5 6.490E-20 0.119 415.0 6.920E-20 0.084 417.5 6.870E-20 0.049 420.0 6.820E-20 0.014 422.5 6.710E-20 0.000 425.0 6.490E-20 0.000 427.5 5.950E-20 0.000 430.0 5.730E-20 0.000 432.5 6.280E-20 0.000 435.0 6.010E-20 0.000 437.5 5.840E-20 0.000 440.0 5.950E-20 0.000 442.5 6.490E-20 0.000 445.0 5.950E-20 0.000 447.5 4.980E-20 0.000 450.0 3.790E-20 0.000 452.5 2.810E-20 0.000 455.0 1.730E-20 0.000 457.5 1.080E-20 0.000 460.0 5.410E-21 0.000 462.5 3.790E-21 0.000 465.0 2.160E-21 0.000 467.5 1.080E-21 0.000 470.0 1.080E-21 0.000 472.5 0.000E+00 0.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/BALD-06 ================================================ BALD-06 ! Benzaldehyde absorption cross sections recommended by Calvert et al (2002) ! From Lang (1961-1971) in hexane solution ! Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 280.0 3.491E-18 1.0000 281.0 3.267E-18 1.0000 282.0 3.131E-18 1.0000 283.0 2.705E-18 1.0000 284.0 2.656E-18 1.0000 285.0 2.643E-18 1.0000 286.0 2.569E-18 1.0000 287.0 2.599E-18 1.0000 288.0 2.810E-18 1.0000 289.0 2.400E-18 1.0000 290.0 1.998E-18 1.0000 291.0 1.410E-18 1.0000 292.0 8.250E-19 1.0000 293.0 6.120E-19 1.0000 294.0 3.990E-19 1.0000 295.0 2.780E-19 1.0000 296.0 1.570E-19 1.0000 297.0 1.340E-19 1.0000 298.0 1.100E-19 1.0000 299.0 9.200E-20 1.0000 300.0 7.400E-20 1.0000 301.0 6.900E-20 1.0000 302.0 6.500E-20 1.0000 303.0 6.600E-20 1.0000 304.0 6.800E-20 1.0000 305.0 7.100E-20 1.0000 306.0 7.300E-20 1.0000 307.0 7.400E-20 1.0000 308.0 7.400E-20 1.0000 309.0 7.300E-20 1.0000 310.0 7.200E-20 1.0000 311.0 6.800E-20 1.0000 312.0 6.800E-20 1.0000 313.0 7.000E-20 1.0000 314.0 8.100E-20 1.0000 315.0 8.900E-20 1.0000 316.0 9.200E-20 1.0000 317.0 9.300E-20 1.0000 318.0 9.100E-20 1.0000 319.0 8.700E-20 1.0000 320.0 8.600E-20 1.0000 321.0 8.400E-20 1.0000 322.0 8.500E-20 1.0000 323.0 8.900E-20 1.0000 324.0 9.100E-20 1.0000 325.0 9.700E-20 1.0000 326.0 1.000E-19 1.0000 327.0 1.000E-19 1.0000 328.0 1.000E-19 1.0000 329.0 1.000E-19 1.0000 330.0 9.300E-20 1.0000 331.0 9.000E-20 1.0000 332.0 8.700E-20 1.0000 333.0 8.500E-20 1.0000 334.0 8.600E-20 1.0000 335.0 8.900E-20 1.0000 336.0 9.300E-20 1.0000 337.0 9.700E-20 1.0000 338.0 1.010E-19 1.0000 339.0 1.040E-19 1.0000 340.0 1.000E-19 1.0000 341.0 9.400E-20 1.0000 342.0 8.600E-20 1.0000 343.0 8.300E-20 1.0000 344.0 7.900E-20 1.0000 345.0 7.400E-20 1.0000 346.0 7.000E-20 1.0000 347.0 6.500E-20 1.0000 348.0 6.100E-20 1.0000 349.0 6.100E-20 1.0000 350.0 6.300E-20 1.0000 351.0 7.000E-20 1.0000 352.0 7.600E-20 1.0000 353.0 8.300E-20 1.0000 354.0 8.400E-20 1.0000 355.0 7.300E-20 1.0000 356.0 6.200E-20 1.0000 357.0 5.500E-20 1.0000 358.0 4.800E-20 1.0000 359.0 4.100E-20 1.0000 360.0 3.300E-20 1.0000 361.0 3.100E-20 1.0000 362.0 2.900E-20 1.0000 363.0 2.600E-20 1.0000 364.0 2.400E-20 1.0000 365.0 2.400E-20 1.0000 366.0 2.500E-20 1.0000 367.0 2.700E-20 1.0000 368.0 2.900E-20 1.0000 369.0 3.300E-20 1.0000 370.0 3.600E-20 1.0000 371.0 4.000E-20 1.0000 372.0 3.300E-20 1.0000 373.0 2.300E-20 1.0000 374.0 1.400E-20 1.0000 375.0 9.900E-21 1.0000 376.0 6.100E-21 1.0000 377.0 4.600E-21 1.0000 378.0 3.000E-21 1.0000 379.0 0.000E+00 1.0000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/BALD_06 ================================================ BALD-06 ! Benzaldehyde absorption cross sections recommended by Calvert et al (2002) ! From Lang (1961-1971) in hexane solution ! Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 280.0 3.491E-18 1.0000 281.0 3.267E-18 1.0000 282.0 3.131E-18 1.0000 283.0 2.705E-18 1.0000 284.0 2.656E-18 1.0000 285.0 2.643E-18 1.0000 286.0 2.569E-18 1.0000 287.0 2.599E-18 1.0000 288.0 2.810E-18 1.0000 289.0 2.400E-18 1.0000 290.0 1.998E-18 1.0000 291.0 1.410E-18 1.0000 292.0 8.250E-19 1.0000 293.0 6.120E-19 1.0000 294.0 3.990E-19 1.0000 295.0 2.780E-19 1.0000 296.0 1.570E-19 1.0000 297.0 1.340E-19 1.0000 298.0 1.100E-19 1.0000 299.0 9.200E-20 1.0000 300.0 7.400E-20 1.0000 301.0 6.900E-20 1.0000 302.0 6.500E-20 1.0000 303.0 6.600E-20 1.0000 304.0 6.800E-20 1.0000 305.0 7.100E-20 1.0000 306.0 7.300E-20 1.0000 307.0 7.400E-20 1.0000 308.0 7.400E-20 1.0000 309.0 7.300E-20 1.0000 310.0 7.200E-20 1.0000 311.0 6.800E-20 1.0000 312.0 6.800E-20 1.0000 313.0 7.000E-20 1.0000 314.0 8.100E-20 1.0000 315.0 8.900E-20 1.0000 316.0 9.200E-20 1.0000 317.0 9.300E-20 1.0000 318.0 9.100E-20 1.0000 319.0 8.700E-20 1.0000 320.0 8.600E-20 1.0000 321.0 8.400E-20 1.0000 322.0 8.500E-20 1.0000 323.0 8.900E-20 1.0000 324.0 9.100E-20 1.0000 325.0 9.700E-20 1.0000 326.0 1.000E-19 1.0000 327.0 1.000E-19 1.0000 328.0 1.000E-19 1.0000 329.0 1.000E-19 1.0000 330.0 9.300E-20 1.0000 331.0 9.000E-20 1.0000 332.0 8.700E-20 1.0000 333.0 8.500E-20 1.0000 334.0 8.600E-20 1.0000 335.0 8.900E-20 1.0000 336.0 9.300E-20 1.0000 337.0 9.700E-20 1.0000 338.0 1.010E-19 1.0000 339.0 1.040E-19 1.0000 340.0 1.000E-19 1.0000 341.0 9.400E-20 1.0000 342.0 8.600E-20 1.0000 343.0 8.300E-20 1.0000 344.0 7.900E-20 1.0000 345.0 7.400E-20 1.0000 346.0 7.000E-20 1.0000 347.0 6.500E-20 1.0000 348.0 6.100E-20 1.0000 349.0 6.100E-20 1.0000 350.0 6.300E-20 1.0000 351.0 7.000E-20 1.0000 352.0 7.600E-20 1.0000 353.0 8.300E-20 1.0000 354.0 8.400E-20 1.0000 355.0 7.300E-20 1.0000 356.0 6.200E-20 1.0000 357.0 5.500E-20 1.0000 358.0 4.800E-20 1.0000 359.0 4.100E-20 1.0000 360.0 3.300E-20 1.0000 361.0 3.100E-20 1.0000 362.0 2.900E-20 1.0000 363.0 2.600E-20 1.0000 364.0 2.400E-20 1.0000 365.0 2.400E-20 1.0000 366.0 2.500E-20 1.0000 367.0 2.700E-20 1.0000 368.0 2.900E-20 1.0000 369.0 3.300E-20 1.0000 370.0 3.600E-20 1.0000 371.0 4.000E-20 1.0000 372.0 3.300E-20 1.0000 373.0 2.300E-20 1.0000 374.0 1.400E-20 1.0000 375.0 9.900E-21 1.0000 376.0 6.100E-21 1.0000 377.0 4.600E-21 1.0000 378.0 3.000E-21 1.0000 379.0 0.000E+00 1.0000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/BALD_RACM2 ================================================ BALD_RACM2 ! BALD + HV = CHO + HO2 + CO ! Absorption cross sections from SAPRC07 ! Quantum yields from SAPRC07 ! Supplied by Dr. Wendy Goliff, Reformatted by Dr. Golam Sarwar to make it compatible with CMAQ Points ! With FAC, units are (cm^2/molecule) FAC=1.0 186.1 0.000E+00 0.000 187.8 0.000E+00 0.000 189.6 0.000E+00 0.000 191.4 0.000E+00 0.000 193.3 0.000E+00 0.000 195.2 0.000E+00 0.000 197.1 0.000E+00 0.000 199.0 0.000E+00 0.000 201.0 0.000E+00 0.000 203.1 0.000E+00 0.000 205.2 0.000E+00 0.000 207.3 0.000E+00 0.000 209.4 0.000E+00 0.000 211.7 0.000E+00 0.000 213.9 0.000E+00 0.000 216.2 0.000E+00 0.000 218.6 0.000E+00 0.000 221.0 0.000E+00 0.000 223.5 0.000E+00 0.000 226.0 0.000E+00 0.000 228.6 0.000E+00 0.000 231.3 0.000E+00 0.000 234.0 0.000E+00 0.000 236.7 0.000E+00 0.000 239.6 0.000E+00 0.000 242.5 0.000E+00 0.000 245.4 0.000E+00 0.000 248.5 0.000E+00 0.000 251.6 0.000E+00 0.000 254.8 0.000E+00 0.000 258.2 0.000E+00 0.000 261.5 0.000E+00 0.000 265.0 0.000E+00 0.000 268.5 0.000E+00 0.000 272.2 0.000E+00 0.000 275.9 0.000E+00 0.000 279.8 0.349E-17 0.060 283.7 0.266E-17 0.060 287.8 0.281E-17 0.060 292.0 0.825E-18 0.060 296.3 0.157E-18 0.060 300.5 0.690E-19 0.060 303.0 0.660E-19 0.060 304.0 0.680E-19 0.060 305.0 0.710E-19 0.060 306.0 0.730E-19 0.060 307.0 0.740E-19 0.060 308.0 0.740E-19 0.060 309.0 0.730E-19 0.060 310.0 0.720E-19 0.060 311.0 0.680E-19 0.060 312.0 0.680E-19 0.060 313.0 0.700E-19 0.060 314.0 0.810E-19 0.060 316.0 0.920E-19 0.060 320.0 0.860E-19 0.060 325.0 0.970E-19 0.060 330.0 0.930E-19 0.060 335.0 0.890E-19 0.060 340.0 0.100E-18 0.060 345.0 0.740E-19 0.060 350.0 0.630E-19 0.060 355.0 0.730E-19 0.060 360.0 0.330E-19 0.060 365.0 0.240E-19 0.060 370.0 0.360E-19 0.060 375.0 0.990E-20 0.000 380.0 0.000E+00 0.000 385.0 0.000E+00 0.000 390.0 0.000E+00 0.000 395.0 0.000E+00 0.000 400.0 0.000E+00 0.000 405.0 0.000E+00 0.000 410.0 0.000E+00 0.000 415.0 0.000E+00 0.000 420.0 0.000E+00 0.000 425.0 0.000E+00 0.000 430.0 0.000E+00 0.000 435.0 0.000E+00 0.000 440.0 0.000E+00 0.000 445.0 0.000E+00 0.000 450.0 0.000E+00 0.000 455.0 0.000E+00 0.000 460.0 0.000E+00 0.000 465.0 0.000E+00 0.000 470.0 0.000E+00 0.000 475.0 0.000E+00 0.000 480.0 0.000E+00 0.000 485.0 0.000E+00 0.000 490.0 0.000E+00 0.000 495.0 0.000E+00 0.000 500.0 0.000E+00 0.000 505.0 0.000E+00 0.000 510.0 0.000E+00 0.000 515.0 0.000E+00 0.000 520.0 0.000E+00 0.000 525.0 0.000E+00 0.000 530.0 0.000E+00 0.000 535.0 0.000E+00 0.000 540.0 0.000E+00 0.000 545.0 0.000E+00 0.000 550.0 0.000E+00 0.000 555.0 0.000E+00 0.000 560.0 0.000E+00 0.000 565.0 0.000E+00 0.000 570.0 0.000E+00 0.000 575.0 0.000E+00 0.000 580.0 0.000E+00 0.000 585.0 0.000E+00 0.000 590.0 0.000E+00 0.000 595.0 0.000E+00 0.000 600.0 0.000E+00 0.000 605.0 0.000E+00 0.000 610.0 0.000E+00 0.000 615.0 0.000E+00 0.000 620.0 0.000E+00 0.000 625.0 0.000E+00 0.000 630.0 0.000E+00 0.000 635.0 0.000E+00 0.000 640.0 0.000E+00 0.000 644.8 0.000E+00 0.000 651.0 0.000E+00 0.000 660.0 0.000E+00 0.000 670.0 0.000E+00 0.000 680.0 0.000E+00 0.000 690.0 0.000E+00 0.000 700.0 0.000E+00 0.000 710.0 0.000E+00 0.000 720.0 0.000E+00 0.000 730.0 0.000E+00 0.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/BIACET_MCMv32 ================================================ BIACET_MCMv32 !Biacetyl (CH3C(O)C(O)CH3) absorption cross sections (1 bar, 298 K) !phi (CH3CO + CH3CO) = 0.158 for wavelength less than 460 nm !http://iupac.pole-ether.fr/htdocs/datasheets/pdf/P23_Biacetyl+hv.pdf dated 2011 ! !Cross Secton ! 1) Horowitz, A., R. Meller, and G. K. Moortgat, ! The UV-VIS absorption cross sectiono of the a-dicarbonyl compounds: ! pyruvic acid, biacetyl, and glyoxal. J. Photochem. Photobiol. ! A:Chemistry, v.146, pp.19-27, 2001. ! !Quantum Yield ! ! 1) Christopher N. Plum, Eugenlo Sanhueza, Roger Atkinson, William P. L. Carter and James N. Pitts Jr ! OH Radical Rate Constants and Photolysis Rates of a-Dicarbonyls ! Environ. Sci. Technol., Vol. 17, No. 8, 1983, p.480 ! 2) Rajakumar, B., Gierczak, T., Flad, J., Ravishankara, A.R., and Burkholder, J.B., J. Photochem ! Photobiol. A: Chem. 199, 336-344, 2008. ! ! ! Pressure correction based on phi(z=infi) and ph(z=0) values based on ! by solving the below for kq ! phi(z=infi)/ph(z=0) = (0.76/0.16) = 1.0 + kq*Temp(z=0)*Number_Density(z=0) ! Number Density in molecules/cm3 ! !wavelength (nm) sigma phi Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 206.0 1.030E-19 0.158 207.0 9.860E-20 0.158 208.0 9.140E-20 0.158 209.0 7.970E-20 0.158 210.0 6.740E-20 0.158 211.0 5.820E-20 0.158 212.0 5.180E-20 0.158 213.0 4.700E-20 0.158 214.0 4.290E-20 0.158 215.0 3.900E-20 0.158 216.0 3.550E-20 0.158 217.0 3.210E-20 0.158 218.0 2.900E-20 0.158 219.0 2.580E-20 0.158 220.0 2.260E-20 0.158 221.0 1.960E-20 0.158 222.0 1.700E-20 0.158 223.0 1.500E-20 0.158 224.0 1.350E-20 0.158 225.0 1.270E-20 0.158 226.0 1.230E-20 0.158 227.0 1.240E-20 0.158 228.0 1.280E-20 0.158 229.0 1.340E-20 0.158 230.0 1.410E-20 0.158 231.0 1.470E-20 0.158 232.0 1.530E-20 0.158 233.0 1.590E-20 0.158 234.0 1.680E-20 0.158 235.0 1.800E-20 0.158 236.0 1.920E-20 0.158 237.0 2.090E-20 0.158 238.0 2.150E-20 0.158 239.0 2.210E-20 0.158 240.0 2.290E-20 0.158 241.0 2.390E-20 0.158 242.0 2.540E-20 0.158 243.0 2.690E-20 0.158 244.0 2.800E-20 0.158 245.0 2.890E-20 0.158 246.0 2.940E-20 0.158 247.0 2.990E-20 0.158 248.0 3.050E-20 0.158 249.0 3.150E-20 0.158 250.0 3.310E-20 0.158 251.0 3.480E-20 0.158 252.0 3.600E-20 0.158 253.0 3.680E-20 0.158 254.0 3.730E-20 0.158 255.0 3.750E-20 0.158 256.0 3.780E-20 0.158 257.0 3.840E-20 0.158 258.0 3.940E-20 0.158 259.0 4.090E-20 0.158 260.0 4.270E-20 0.158 261.0 4.410E-20 0.158 262.0 4.460E-20 0.158 263.0 4.490E-20 0.158 264.0 4.490E-20 0.158 265.0 4.480E-20 0.158 266.0 4.490E-20 0.158 267.0 4.540E-20 0.158 268.0 4.630E-20 0.158 269.0 4.810E-20 0.158 270.0 4.950E-20 0.158 271.0 5.000E-20 0.158 272.0 4.980E-20 0.158 273.0 3.920E-20 0.158 274.0 4.850E-20 0.158 275.0 4.760E-20 0.158 276.0 4.700E-20 0.158 277.0 4.680E-20 0.158 278.0 4.670E-20 0.158 279.0 4.680E-20 0.158 280.0 4.710E-20 0.158 281.0 4.730E-20 0.158 282.0 4.650E-20 0.158 283.0 4.500E-20 0.158 284.0 4.320E-20 0.158 285.0 4.140E-20 0.158 286.0 3.940E-20 0.158 287.0 3.770E-20 0.158 288.0 3.620E-20 0.158 289.0 3.500E-20 0.158 290.0 3.380E-20 0.158 291.0 3.280E-20 0.158 292.0 3.200E-20 0.158 293.0 3.110E-20 0.158 294.0 2.960E-20 0.158 295.0 2.730E-20 0.158 296.0 2.500E-20 0.158 297.0 2.290E-20 0.158 298.0 2.100E-20 0.158 299.0 1.930E-20 0.158 300.0 1.770E-20 0.158 301.0 1.640E-20 0.158 302.0 1.540E-20 0.158 303.0 1.460E-20 0.158 304.0 1.380E-20 0.158 305.0 1.320E-20 0.158 306.0 1.270E-20 0.158 307.0 1.210E-20 0.158 308.0 1.100E-20 0.158 309.0 0.950E-20 0.158 310.0 0.815E-20 0.158 311.0 0.707E-20 0.158 312.0 0.616E-20 0.158 313.0 0.539E-20 0.158 314.0 0.480E-20 0.158 315.0 0.438E-20 0.158 316.0 0.405E-20 0.158 317.0 0.380E-20 0.158 318.0 0.360E-20 0.158 319.0 0.344E-20 0.158 320.0 0.334E-20 0.158 321.0 0.331E-20 0.158 322.0 0.321E-20 0.158 323.0 0.295E-20 0.158 324.0 0.261E-20 0.158 325.0 0.232E-20 0.158 326.0 0.212E-20 0.158 327.0 0.200E-20 0.158 328.0 0.194E-20 0.158 329.0 0.193E-20 0.158 330.0 0.196E-20 0.158 331.0 0.203E-20 0.158 332.0 0.212E-20 0.158 333.0 0.199E-20 0.158 334.0 0.216E-20 0.158 335.0 0.231E-20 0.158 336.0 0.245E-20 0.158 337.0 0.263E-20 0.158 338.0 0.284E-20 0.158 339.0 0.296E-20 0.158 340.0 0.298E-20 0.158 341.0 0.318E-20 0.158 342.0 0.346E-20 0.158 343.0 0.365E-20 0.158 344.0 0.387E-20 0.158 345.0 0.412E-20 0.158 346.0 0.442E-20 0.158 347.0 0.469E-20 0.158 348.0 0.499E-20 0.158 349.0 0.534E-20 0.158 350.0 0.565E-20 0.158 351.0 0.607E-20 0.158 352.0 0.650E-20 0.158 353.0 0.683E-20 0.158 354.0 0.729E-20 0.158 355.0 0.771E-20 0.158 356.0 0.815E-20 0.158 357.0 0.864E-20 0.158 358.0 0.916E-20 0.158 359.0 0.966E-20 0.158 360.0 1.020E-20 0.158 361.0 1.080E-20 0.158 362.0 1.190E-20 0.158 363.0 1.260E-20 0.158 364.0 1.330E-20 0.158 365.0 1.410E-20 0.158 366.0 1.490E-20 0.158 367.0 1.570E-20 0.158 368.0 1.660E-20 0.158 369.0 1.760E-20 0.158 370.0 1.850E-20 0.158 371.0 1.940E-20 0.158 372.0 2.020E-20 0.158 373.0 2.100E-20 0.158 374.0 2.170E-20 0.158 375.0 2.250E-20 0.158 376.0 2.330E-20 0.158 377.0 2.410E-20 0.158 378.0 2.500E-20 0.158 379.0 2.580E-20 0.158 380.0 2.680E-20 0.158 381.0 2.790E-20 0.158 382.0 2.920E-20 0.158 383.0 3.070E-20 0.158 384.0 3.220E-20 0.158 385.0 3.390E-20 0.158 386.0 3.530E-20 0.158 387.0 3.670E-20 0.158 388.0 3.820E-20 0.158 389.0 4.000E-20 0.158 390.0 4.170E-20 0.158 391.0 4.340E-20 0.158 392.0 4.470E-20 0.158 393.0 4.560E-20 0.158 394.0 4.620E-20 0.158 395.0 4.670E-20 0.158 396.0 4.730E-20 0.158 397.0 4.820E-20 0.158 398.0 4.920E-20 0.158 399.0 5.020E-20 0.158 400.0 5.120E-20 0.158 401.0 5.190E-20 0.158 402.0 5.260E-20 0.158 403.0 5.380E-20 0.158 404.0 5.540E-20 0.158 405.0 5.750E-20 0.158 406.0 6.000E-20 0.158 407.0 6.260E-20 0.158 408.0 6.470E-20 0.158 409.0 6.590E-20 0.158 410.0 6.690E-20 0.158 411.0 6.820E-20 0.158 412.0 6.970E-20 0.158 413.0 7.110E-20 0.158 414.0 7.310E-20 0.158 415.0 7.470E-20 0.158 416.0 7.570E-20 0.158 417.0 7.620E-20 0.158 418.0 7.510E-20 0.158 419.0 7.390E-20 0.158 420.0 7.370E-20 0.158 421.0 7.320E-20 0.158 422.0 7.250E-20 0.158 423.0 7.240E-20 0.158 424.0 7.130E-20 0.158 425.0 6.980E-20 0.158 426.0 6.810E-20 0.158 427.0 6.570E-20 0.158 428.0 6.430E-20 0.158 429.0 6.340E-20 0.158 430.0 6.310E-20 0.158 431.0 6.400E-20 0.158 432.0 6.630E-20 0.158 433.0 6.780E-20 0.158 434.0 6.780E-20 0.158 435.0 6.720E-20 0.158 436.0 6.560E-20 0.158 437.0 6.400E-20 0.158 438.0 6.420E-20 0.158 439.0 6.280E-20 0.158 440.0 6.510E-20 0.158 441.0 6.670E-20 0.158 442.0 6.990E-20 0.158 443.0 7.230E-20 0.158 444.0 6.850E-20 0.158 445.0 6.490E-20 0.158 446.0 5.900E-20 0.158 447.0 5.430E-20 0.158 448.0 5.010E-20 0.158 449.0 4.330E-20 0.158 450.0 4.060E-20 0.158 451.0 3.440E-20 0.158 452.0 3.200E-20 0.158 453.0 2.650E-20 0.158 454.0 2.160E-20 0.158 455.0 1.720E-20 0.158 456.0 1.390E-20 0.158 457.0 1.140E-20 0.158 458.0 0.853E-20 0.158 459.0 0.726E-20 0.158 460.0 0.549E-20 0.158 461.0 0.454E-20 0.158 462.0 0.356E-20 0.158 463.0 0.280E-20 0.158 464.0 0.219E-20 0.158 465.0 0.179E-20 0.158 466.0 0.143E-20 0.158 467.0 0.118E-20 0.158 468.0 0.096E-20 0.158 469.0 0.081E-20 0.158 470.0 0.069E-20 0.158 471.0 0.059E-20 0.158 472.0 0.051E-20 0.158 473.0 0.044E-20 0.158 474.0 0.040E-20 0.158 475.0 0.035E-20 0.158 476.0 0.031E-20 0.158 477.0 0.028E-20 0.158 478.0 0.025E-20 0.158 479.0 0.023E-20 0.158 480.0 0.021E-20 0.158 481.0 0.019E-20 0.158 482.0 0.018E-20 0.158 483.0 0.017E-20 0.158 484.0 0.016E-20 0.158 485.0 0.015E-20 0.158 486.0 0.015E-20 0.158 487.0 0.015E-20 0.158 488.0 0.015E-20 0.158 489.0 0.016E-20 0.158 490.0 0.018E-20 0.158 491.0 0.019E-20 0.158 492.0 0.021E-20 0.158 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/BR2 ================================================ BR2 ! BR2 + HV = 2BR ! SAPRC-99 Photolysis data. ! Supplied by Brett Gantt ! Created from IUPAC dataset PBr9 3-Mar-2014 10:00 Points (the mechanism was evaluated assuming this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 200.0 5.620E-21 1.000 205.0 7.230E-21 1.000 210.0 8.700E-21 1.000 215.0 9.830E-21 1.000 220.0 1.040E-20 1.000 225.0 1.060E-20 1.000 230.0 1.010E-20 1.000 235.0 9.250E-21 1.000 240.0 8.080E-21 1.000 245.0 6.760E-21 1.000 250.0 5.430E-21 1.000 255.0 4.220E-21 1.000 260.0 3.160E-21 1.000 265.0 2.290E-21 1.000 270.0 1.610E-21 1.000 275.0 1.800E-21 1.000 280.0 7.280E-22 1.000 285.0 4.710E-22 1.000 290.0 2.398E-22 1.000 295.0 1.880E-22 1.000 300.0 1.240E-22 1.000 305.0 1.010E-22 1.000 310.0 1.350E-22 1.000 315.0 2.740E-22 1.000 320.0 6.260E-22 1.000 325.0 1.410E-21 1.000 330.0 2.990E-21 1.000 335.0 6.020E-21 1.000 340.0 1.140E-20 1.000 345.0 2.050E-20 1.000 350.0 3.480E-20 1.000 355.0 5.630E-20 1.000 360.0 8.650E-20 1.000 365.0 1.270E-19 1.000 370.0 1.780E-19 1.000 375.0 2.390E-19 1.000 380.0 3.070E-19 1.000 385.0 3.790E-19 1.000 390.0 4.510E-19 1.000 395.0 5.180E-19 1.000 400.0 5.740E-19 1.000 405.0 6.160E-19 1.000 410.0 6.420E-19 1.000 415.0 6.510E-19 1.000 420.0 6.770E-19 1.000 425.0 6.080E-19 1.000 430.0 6.010E-19 1.000 435.0 5.710E-19 1.000 440.0 5.400E-19 1.000 445.0 5.120E-19 1.000 450.0 4.870E-19 1.000 455.0 4.670E-19 1.000 460.0 4.510E-19 1.000 465.0 4.380E-19 1.000 470.0 4.280E-19 1.000 475.0 4.170E-19 1.000 480.0 4.030E-19 1.000 485.0 3.860E-19 1.000 490.0 3.660E-19 1.000 495.0 3.430E-19 1.000 500.0 3.180E-19 1.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/BR2_IUPAC10 ================================================ BR2_IUPAC10 ! BR2 + HV = 2BR ! BR2 Photolysis data (QY from Parrella et al., 2012) ! Supplied by Brett Gantt ! Created from IUPAC dataset Points (these data can be treated as point values) ! With FAC, units are (cm^2/molecule) FAC=1.0 200.0 5.620E-21 1.000 205.0 7.230E-21 1.000 210.0 8.700E-21 1.000 215.0 9.830E-21 1.000 220.0 1.040E-20 1.000 225.0 1.060E-20 1.000 230.0 1.010E-20 1.000 235.0 9.250E-21 1.000 240.0 8.080E-21 1.000 245.0 6.760E-21 1.000 250.0 5.430E-21 1.000 255.0 4.220E-21 1.000 260.0 3.160E-21 1.000 265.0 2.290E-21 1.000 270.0 1.610E-21 1.000 275.0 1.800E-21 1.000 280.0 7.280E-22 1.000 285.0 4.710E-22 1.000 290.0 2.398E-22 1.000 295.0 1.880E-22 1.000 300.0 1.240E-22 1.000 305.0 1.010E-22 1.000 310.0 1.350E-22 1.000 315.0 2.740E-22 1.000 320.0 6.260E-22 1.000 325.0 1.410E-21 1.000 330.0 2.990E-21 1.000 335.0 6.020E-21 1.000 340.0 1.140E-20 1.000 345.0 2.050E-20 1.000 350.0 3.480E-20 1.000 355.0 5.630E-20 1.000 360.0 8.650E-20 1.000 365.0 1.270E-19 1.000 370.0 1.780E-19 1.000 375.0 2.390E-19 1.000 380.0 3.070E-19 1.000 385.0 3.790E-19 1.000 390.0 4.510E-19 1.000 395.0 5.180E-19 1.000 400.0 5.740E-19 1.000 405.0 6.160E-19 1.000 410.0 6.420E-19 1.000 415.0 6.510E-19 1.000 420.0 6.770E-19 1.000 425.0 6.080E-19 1.000 430.0 6.010E-19 1.000 435.0 5.710E-19 1.000 440.0 5.400E-19 1.000 445.0 5.120E-19 1.000 450.0 4.870E-19 1.000 455.0 4.670E-19 1.000 460.0 4.510E-19 1.000 465.0 4.380E-19 1.000 470.0 4.280E-19 1.000 475.0 4.170E-19 1.000 480.0 4.030E-19 1.000 485.0 3.860E-19 1.000 490.0 3.660E-19 1.000 495.0 3.430E-19 1.000 500.0 3.180E-19 1.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/BR2_IUPAC2014 ================================================ BR2 ! BR2 + HV = 2BR ! SAPRC-99 Photolysis data. ! Supplied by Brett Gantt ! Created from IUPAC dataset 3-Mar-2014 10:00 Points (the mechanism was evaluated assuming this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 200.0 5.620E-21 1.000 205.0 7.230E-21 1.000 210.0 8.700E-21 1.000 215.0 9.830E-21 1.000 220.0 1.040E-20 1.000 225.0 1.060E-20 1.000 230.0 1.010E-20 1.000 235.0 9.250E-21 1.000 240.0 8.080E-21 1.000 245.0 6.760E-21 1.000 250.0 5.430E-21 1.000 255.0 4.220E-21 1.000 260.0 3.160E-21 1.000 265.0 2.290E-21 1.000 270.0 1.610E-21 1.000 275.0 1.800E-21 1.000 280.0 7.280E-22 1.000 285.0 4.710E-22 1.000 290.0 2.398E-22 1.000 295.0 1.880E-22 1.000 300.0 1.240E-22 1.000 305.0 1.010E-22 1.000 310.0 1.350E-22 1.000 315.0 2.740E-22 1.000 320.0 6.260E-22 1.000 325.0 1.410E-21 1.000 330.0 2.990E-21 1.000 335.0 6.020E-21 1.000 340.0 1.140E-20 1.000 345.0 2.050E-20 1.000 350.0 3.480E-20 1.000 355.0 5.630E-20 1.000 360.0 8.650E-20 1.000 365.0 1.270E-19 1.000 370.0 1.780E-19 1.000 375.0 2.390E-19 1.000 380.0 3.070E-19 1.000 385.0 3.790E-19 1.000 390.0 4.510E-19 1.000 395.0 5.180E-19 1.000 400.0 5.740E-19 1.000 405.0 6.160E-19 1.000 410.0 6.420E-19 1.000 415.0 6.510E-19 1.000 420.0 6.770E-19 1.000 425.0 6.080E-19 1.000 430.0 6.010E-19 1.000 435.0 5.710E-19 1.000 440.0 5.400E-19 1.000 445.0 5.120E-19 1.000 450.0 4.870E-19 1.000 455.0 4.670E-19 1.000 460.0 4.510E-19 1.000 465.0 4.380E-19 1.000 470.0 4.280E-19 1.000 475.0 4.170E-19 1.000 480.0 4.030E-19 1.000 485.0 3.860E-19 1.000 490.0 3.660E-19 1.000 495.0 3.430E-19 1.000 500.0 3.180E-19 1.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/BRCL ================================================ BRCL ! BRCL + HV = BR + CL ! BRCL Photolysis data ! Supplied by Golam Sarwar ! Created from IUPAC dataset 19-Mar-2014 11:00 Points (These data can be treated as point values) ! With FAC, units are (cm^2/molecule) FAC=1.0 200.0 2.950E-20 1.000 210.0 4.270E-20 1.000 220.0 6.310E-20 1.000 230.0 6.610E-20 1.000 240.0 5.620E-20 1.000 250.0 4.070E-20 1.000 260.0 5.500E-20 1.000 270.0 1.290E-20 1.000 280.0 0.660E-20 1.000 290.0 0.390E-20 1.000 300.0 0.560E-20 1.000 310.0 1.510E-20 1.000 320.0 4.070E-20 1.000 330.0 9.120E-20 1.000 340.0 17.00E-20 1.000 350.0 28.18E-20 1.000 360.0 34.67E-20 1.000 370.0 41.69E-20 1.000 380.0 39.81E-20 1.000 390.0 33.88E-20 1.000 400.0 28.18E-20 1.000 410.0 22.39E-20 1.000 420.0 17.78E-20 1.000 430.0 14.45E-20 1.000 440.0 12.59E-20 1.000 450.0 10.72E-20 1.000 460.0 9.330E-20 1.000 470.0 7.940E-20 1.000 480.0 6.310E-20 1.000 490.0 5.010E-20 1.000 500.0 3.390E-20 1.000 510.0 2.630E-20 1.000 520.0 1.660E-20 1.000 530.0 1.100E-20 1.000 540.0 0.660E-20 1.000 550.0 0.410E-20 1.000 560.0 0.250E-20 1.000 570.0 0.144E-20 1.000 580.0 0.832E-20 1.000 590.0 0.048E-20 1.000 600.0 0.025E-20 1.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/BRCL_IUPAC10 ================================================ BRCL_IUPAC10 ! BRCL + HV = BR + CL ! BRCL Photolysis data ! Supplied by Golam Sarwar ! Created from IUPAC dataset PBr3 Points (these data can be treated as point values) ! With FAC, units are (cm^2/molecule) FAC=1.0 200.0 2.950E-20 1.000 210.0 4.270E-20 1.000 220.0 6.310E-20 1.000 230.0 6.610E-20 1.000 240.0 5.620E-20 1.000 250.0 4.070E-20 1.000 260.0 5.500E-20 1.000 270.0 1.290E-20 1.000 280.0 6.600E-21 1.000 290.0 3.900E-21 1.000 300.0 5.600E-21 1.000 310.0 1.510E-20 1.000 320.0 4.070E-20 1.000 330.0 9.120E-20 1.000 340.0 1.700E-19 1.000 350.0 2.818E-19 1.000 360.0 3.467E-19 1.000 370.0 4.169E-19 1.000 380.0 3.981E-19 1.000 390.0 3.388E-19 1.000 400.0 2.818E-19 1.000 410.0 2.239E-19 1.000 420.0 1.778E-19 1.000 430.0 1.445E-19 1.000 440.0 1.259E-19 1.000 450.0 1.072E-19 1.000 460.0 9.330E-20 1.000 470.0 7.940E-20 1.000 480.0 6.310E-20 1.000 490.0 5.010E-20 1.000 500.0 3.390E-20 1.000 510.0 2.630E-20 1.000 520.0 1.660E-20 1.000 530.0 1.100E-20 1.000 540.0 6.600E-21 1.000 550.0 4.100E-21 1.000 560.0 2.500E-21 1.000 570.0 1.440E-21 1.000 580.0 8.320E-21 1.000 590.0 4.800E-22 1.000 600.0 2.500E-22 1.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/BRCL_IUPAC2014 ================================================ BRCL ! BRCL + HV = BR + CL ! BRCL Photolysis data ! Supplied by Golam Sarwar ! Created from IUPAC dataset PBr8 19-Mar-2014 11:00 Points (These data can be treated as point values) ! With FAC, units are (cm^2/molecule) FAC=1.0 200.0 2.950E-20 1.000 210.0 4.270E-20 1.000 220.0 6.310E-20 1.000 230.0 6.610E-20 1.000 240.0 5.620E-20 1.000 250.0 4.070E-20 1.000 260.0 5.500E-20 1.000 270.0 1.290E-20 1.000 280.0 0.660E-20 1.000 290.0 0.390E-20 1.000 300.0 0.560E-20 1.000 310.0 1.510E-20 1.000 320.0 4.070E-20 1.000 330.0 9.120E-20 1.000 340.0 17.00E-20 1.000 350.0 28.18E-20 1.000 360.0 34.67E-20 1.000 370.0 41.69E-20 1.000 380.0 39.81E-20 1.000 390.0 33.88E-20 1.000 400.0 28.18E-20 1.000 410.0 22.39E-20 1.000 420.0 17.78E-20 1.000 430.0 14.45E-20 1.000 440.0 12.59E-20 1.000 450.0 10.72E-20 1.000 460.0 9.330E-20 1.000 470.0 7.940E-20 1.000 480.0 6.310E-20 1.000 490.0 5.010E-20 1.000 500.0 3.390E-20 1.000 510.0 2.630E-20 1.000 520.0 1.660E-20 1.000 530.0 1.100E-20 1.000 540.0 0.660E-20 1.000 550.0 0.410E-20 1.000 560.0 0.250E-20 1.000 570.0 0.144E-20 1.000 580.0 0.832E-20 1.000 590.0 0.048E-20 1.000 600.0 0.025E-20 1.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/BRNO2 ================================================ BRNO2 ! BRNO2 + HV = BR + NO2 ! BRNO2 Photolysis data ! Supplied by Brett Gantt ! Created from IUPAC dataset 3-Mar-2014 10:00 Points (These data can be treated as point values) ! With FAC, units are (cm^2/molecule) FAC=1.0 185.0 2.048E-17 1.000 190.0 3.601E-17 1.000 195.0 5.013E-17 1.000 200.0 5.386E-17 1.000 205.0 4.499E-17 1.000 210.0 2.521E-17 1.000 215.0 1.170E-17 1.000 220.0 5.540E-18 1.000 225.0 3.730E-18 1.000 230.0 3.430E-18 1.000 235.0 3.620E-18 1.000 240.0 3.870E-18 1.000 245.0 3.900E-18 1.000 250.0 3.630E-18 1.000 255.0 3.100E-18 1.000 260.0 2.510E-18 1.000 265.0 1.970E-18 1.000 270.0 1.540E-18 1.000 275.0 1.160E-18 1.000 280.0 8.800E-19 1.000 285.0 6.300E-19 1.000 290.0 4.400E-19 1.000 295.0 3.000E-19 1.000 300.0 2.000E-19 1.000 305.0 1.500E-19 1.000 310.0 1.100E-19 1.000 315.0 1.100E-19 1.000 320.0 1.000E-19 1.000 325.0 1.200E-19 1.000 330.0 1.300E-19 1.000 335.0 1.400E-19 1.000 340.0 1.600E-19 1.000 345.0 1.500E-19 1.000 350.0 1.600E-19 1.000 355.0 1.600E-19 1.000 360.0 1.800E-19 1.000 365.0 1.900E-19 1.000 370.0 1.700E-19 1.000 375.0 1.800E-19 1.000 380.0 1.700E-19 1.000 385.0 1.700E-19 1.000 390.0 1.600E-19 1.000 395.0 1.500E-19 1.000 400.0 1.400E-19 1.000 405.0 1.400E-19 1.000 410.0 1.300E-19 1.000 415.0 1.200E-19 1.000 420.0 1.100E-19 1.000 425.0 1.000E-19 1.000 430.0 9.000E-20 1.000 435.0 8.000E-20 1.000 440.0 7.000E-20 1.000 445.0 7.000E-20 1.000 450.0 6.000E-20 1.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/BRNO2_IUPAC10 ================================================ BRNO2_IUPAC10 ! BRNO2 + HV = BR + NO2 ! BRNO2 Photolysis data ! Supplied by Brett Gantt ! Created from IUPAC dataset PBr6 Points (these data can be treated as point values) ! With FAC, units are (cm^2/molecule) FAC=1.0 185.0 2.048E-17 1.000 190.0 3.601E-17 1.000 195.0 5.013E-17 1.000 200.0 5.386E-17 1.000 205.0 4.499E-17 1.000 210.0 2.521E-17 1.000 215.0 1.170E-17 1.000 220.0 5.540E-18 1.000 225.0 3.730E-18 1.000 230.0 3.430E-18 1.000 235.0 3.620E-18 1.000 240.0 3.870E-18 1.000 245.0 3.900E-18 1.000 250.0 3.630E-18 1.000 255.0 3.100E-18 1.000 260.0 2.510E-18 1.000 265.0 1.970E-18 1.000 270.0 1.540E-18 1.000 275.0 1.160E-18 1.000 280.0 8.800E-19 1.000 285.0 6.300E-19 1.000 290.0 4.400E-19 1.000 295.0 3.000E-19 1.000 300.0 2.000E-19 1.000 305.0 1.500E-19 1.000 310.0 1.100E-19 1.000 315.0 1.100E-19 1.000 320.0 1.000E-19 1.000 325.0 1.200E-19 1.000 330.0 1.300E-19 1.000 335.0 1.400E-19 1.000 340.0 1.600E-19 1.000 345.0 1.500E-19 1.000 350.0 1.600E-19 1.000 355.0 1.600E-19 1.000 360.0 1.800E-19 1.000 365.0 1.900E-19 1.000 370.0 1.700E-19 1.000 375.0 1.800E-19 1.000 380.0 1.700E-19 1.000 385.0 1.700E-19 1.000 390.0 1.600E-19 1.000 395.0 1.500E-19 1.000 400.0 1.400E-19 1.000 405.0 1.400E-19 1.000 410.0 1.300E-19 1.000 415.0 1.200E-19 1.000 420.0 1.100E-19 1.000 425.0 1.000E-19 1.000 430.0 9.000E-20 1.000 435.0 8.000E-20 1.000 440.0 7.000E-20 1.000 445.0 7.000E-20 1.000 450.0 6.000E-20 1.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/BRNO2_IUPAC2014 ================================================ BRNO2 ! BRNO2 + HV = BR + NO2 ! BRNO2 Photolysis data ! Supplied by Brett Gantt ! Created from IUPAC dataset 3-Mar-2014 10:00 Points (These data can be treated as point values) ! With FAC, units are (cm^2/molecule) FAC=1.0 185.0 2.048E-17 1.000 190.0 3.601E-17 1.000 195.0 5.013E-17 1.000 200.0 5.386E-17 1.000 205.0 4.499E-17 1.000 210.0 2.521E-17 1.000 215.0 1.170E-17 1.000 220.0 5.540E-18 1.000 225.0 3.730E-18 1.000 230.0 3.430E-18 1.000 235.0 3.620E-18 1.000 240.0 3.870E-18 1.000 245.0 3.900E-18 1.000 250.0 3.630E-18 1.000 255.0 3.100E-18 1.000 260.0 2.510E-18 1.000 265.0 1.970E-18 1.000 270.0 1.540E-18 1.000 275.0 1.160E-18 1.000 280.0 8.800E-19 1.000 285.0 6.300E-19 1.000 290.0 4.400E-19 1.000 295.0 3.000E-19 1.000 300.0 2.000E-19 1.000 305.0 1.500E-19 1.000 310.0 1.100E-19 1.000 315.0 1.100E-19 1.000 320.0 1.000E-19 1.000 325.0 1.200E-19 1.000 330.0 1.300E-19 1.000 335.0 1.400E-19 1.000 340.0 1.600E-19 1.000 345.0 1.500E-19 1.000 350.0 1.600E-19 1.000 355.0 1.600E-19 1.000 360.0 1.800E-19 1.000 365.0 1.900E-19 1.000 370.0 1.700E-19 1.000 375.0 1.800E-19 1.000 380.0 1.700E-19 1.000 385.0 1.700E-19 1.000 390.0 1.600E-19 1.000 395.0 1.500E-19 1.000 400.0 1.400E-19 1.000 405.0 1.400E-19 1.000 410.0 1.300E-19 1.000 415.0 1.200E-19 1.000 420.0 1.100E-19 1.000 425.0 1.000E-19 1.000 430.0 9.000E-20 1.000 435.0 8.000E-20 1.000 440.0 7.000E-20 1.000 445.0 7.000E-20 1.000 450.0 6.000E-20 1.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/BRO ================================================ BRO ! BRO + HV = BR + O ! BRO Photolysis data ! Supplied by Brett Gantt ! Created from IUPAC dataset 3-Mar-2014 10:00 Points (These data can be treated as point values) ! With FAC, units are (cm^2/molecule) FAC=1.0 302.0 2.000E-18 1.000 307.0 2.590E-18 1.000 312.0 4.540E-18 1.000 317.0 3.910E-18 1.000 322.0 6.000E-18 1.000 327.0 7.530E-18 1.000 332.0 6.280E-18 1.000 337.0 5.890E-18 1.000 342.0 5.150E-18 1.000 347.0 3.990E-18 1.000 352.0 2.280E-18 1.000 357.0 1.720E-18 1.000 362.0 1.610E-18 1.000 367.0 9.200E-19 1.000 372.0 5.100E-19 1.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/BRONO2_M ================================================ BRONO2_M ! BRONO2 + HV = BRO + NO2 ! BRONO2_M Photolysis data ! Supplied by Brett Gantt ! Created from IUPAC dataset 3-Mar-2014 10:00 Points (These data can be treated as point values) ! With FAC, units are (cm^2/molecule) FAC=1.0 200.0 6.800E-18 0.710 205.0 5.200E-18 0.710 210.0 3.610E-18 0.710 215.0 2.920E-18 0.710 220.0 2.560E-18 0.710 225.0 2.300E-18 0.710 230.0 2.050E-18 0.710 235.0 1.750E-18 0.710 240.0 1.400E-18 0.710 245.0 1.060E-18 0.710 250.0 7.970E-19 0.710 255.0 6.000E-19 0.710 260.0 4.710E-19 0.710 265.0 3.890E-19 0.710 270.0 3.380E-19 0.710 275.0 3.050E-19 0.710 280.0 2.790E-19 0.710 285.0 2.560E-19 0.710 290.0 2.320E-19 0.710 295.0 2.080E-19 0.710 300.0 1.860E-19 0.710 305.0 1.650E-19 0.710 310.0 1.450E-19 0.710 315.0 1.270E-19 0.710 320.0 1.130E-19 0.710 325.0 1.020E-19 0.710 330.0 9.320E-20 0.710 335.0 8.620E-20 0.710 340.0 8.060E-20 0.710 345.0 7.570E-20 0.710 350.0 7.010E-20 0.710 355.0 6.520E-20 0.710 360.0 5.990E-20 0.710 365.0 5.430E-20 0.710 370.0 4.890E-20 0.710 375.0 4.350E-20 0.710 380.0 3.850E-20 0.710 385.0 3.370E-20 0.710 390.0 2.970E-20 0.710 395.0 2.590E-20 0.710 400.0 2.280E-20 0.710 405.0 2.010E-20 0.710 410.0 1.810E-20 0.710 415.0 1.650E-20 0.710 420.0 1.500E-20 0.710 425.0 1.380E-20 0.710 430.0 1.290E-20 0.710 435.0 1.200E-20 0.710 440.0 1.110E-20 0.710 445.0 1.030E-20 0.710 450.0 9.280E-21 0.710 455.0 8.310E-21 0.710 460.0 7.420E-21 0.710 465.0 6.520E-21 0.710 470.0 5.660E-21 0.710 475.0 4.610E-21 0.710 480.0 3.920E-21 0.710 485.0 3.970E-21 0.710 490.0 2.490E-21 0.710 495.0 2.070E-21 0.710 500.0 1.500E-21 0.710 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/BRONO2_M_IUPAC10 ================================================ BRONO2_M_IUPAC10 ! BRONO2 + HV = BRO + NO2 ! BRONO2_M_IUPAC10 Photolysis data (QY taken from Yang et al., 2005) ! Supplied by Brett Gantt ! Created from IUPAC dataset Points (these data can be treated as point values) ! With FAC, units are (cm^2/molecule) FAC=1.0 200.0 6.800E-18 0.710 205.0 5.200E-18 0.710 210.0 3.610E-18 0.710 215.0 2.920E-18 0.710 220.0 2.560E-18 0.710 225.0 2.300E-18 0.710 230.0 2.050E-18 0.710 235.0 1.750E-18 0.710 240.0 1.400E-18 0.710 245.0 1.060E-18 0.710 250.0 7.970E-19 0.710 255.0 6.000E-19 0.710 260.0 4.710E-19 0.710 265.0 3.890E-19 0.710 270.0 3.380E-19 0.710 275.0 3.050E-19 0.710 280.0 2.790E-19 0.710 285.0 2.560E-19 0.710 290.0 2.320E-19 0.710 295.0 2.080E-19 0.710 300.0 1.860E-19 0.710 305.0 1.650E-19 0.710 310.0 1.450E-19 0.710 315.0 1.270E-19 0.710 320.0 1.130E-19 0.710 325.0 1.020E-19 0.710 330.0 9.320E-20 0.710 335.0 8.620E-20 0.710 340.0 8.060E-20 0.710 345.0 7.570E-20 0.710 350.0 7.010E-20 0.710 355.0 6.520E-20 0.710 360.0 5.990E-20 0.710 365.0 5.430E-20 0.710 370.0 4.890E-20 0.710 375.0 4.350E-20 0.710 380.0 3.850E-20 0.710 385.0 3.370E-20 0.710 390.0 2.970E-20 0.710 395.0 2.590E-20 0.710 400.0 2.280E-20 0.710 405.0 2.010E-20 0.710 410.0 1.810E-20 0.710 415.0 1.650E-20 0.710 420.0 1.500E-20 0.710 425.0 1.380E-20 0.710 430.0 1.290E-20 0.710 435.0 1.200E-20 0.710 440.0 1.110E-20 0.710 445.0 1.030E-20 0.710 450.0 9.280E-21 0.710 455.0 8.310E-21 0.710 460.0 7.420E-21 0.710 465.0 6.520E-21 0.710 470.0 5.660E-21 0.710 475.0 4.610E-21 0.710 480.0 3.920E-21 0.710 485.0 3.970E-21 0.710 490.0 2.490E-21 0.710 495.0 2.070E-21 0.710 500.0 1.500E-21 0.710 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/BRONO2_M_IUPAC2014 ================================================ BRONO2_M ! BRONO2 + HV = BRO + NO2 ! BRONO2_M Photolysis data ! Supplied by Brett Gantt ! Created from IUPAC dataset 3-Mar-2014 10:00 Points (These data can be treated as point values) ! With FAC, units are (cm^2/molecule) FAC=1.0 200.0 6.800E-18 0.710 205.0 5.200E-18 0.710 210.0 3.610E-18 0.710 215.0 2.920E-18 0.710 220.0 2.560E-18 0.710 225.0 2.300E-18 0.710 230.0 2.050E-18 0.710 235.0 1.750E-18 0.710 240.0 1.400E-18 0.710 245.0 1.060E-18 0.710 250.0 7.970E-19 0.710 255.0 6.000E-19 0.710 260.0 4.710E-19 0.710 265.0 3.890E-19 0.710 270.0 3.380E-19 0.710 275.0 3.050E-19 0.710 280.0 2.790E-19 0.710 285.0 2.560E-19 0.710 290.0 2.320E-19 0.710 295.0 2.080E-19 0.710 300.0 1.860E-19 0.710 305.0 1.650E-19 0.710 310.0 1.450E-19 0.710 315.0 1.270E-19 0.710 320.0 1.130E-19 0.710 325.0 1.020E-19 0.710 330.0 9.320E-20 0.710 335.0 8.620E-20 0.710 340.0 8.060E-20 0.710 345.0 7.570E-20 0.710 350.0 7.010E-20 0.710 355.0 6.520E-20 0.710 360.0 5.990E-20 0.710 365.0 5.430E-20 0.710 370.0 4.890E-20 0.710 375.0 4.350E-20 0.710 380.0 3.850E-20 0.710 385.0 3.370E-20 0.710 390.0 2.970E-20 0.710 395.0 2.590E-20 0.710 400.0 2.280E-20 0.710 405.0 2.010E-20 0.710 410.0 1.810E-20 0.710 415.0 1.650E-20 0.710 420.0 1.500E-20 0.710 425.0 1.380E-20 0.710 430.0 1.290E-20 0.710 435.0 1.200E-20 0.710 440.0 1.110E-20 0.710 445.0 1.030E-20 0.710 450.0 9.280E-21 0.710 455.0 8.310E-21 0.710 460.0 7.420E-21 0.710 465.0 6.520E-21 0.710 470.0 5.660E-21 0.710 475.0 4.610E-21 0.710 480.0 3.920E-21 0.710 485.0 3.970E-21 0.710 490.0 2.490E-21 0.710 495.0 2.070E-21 0.710 500.0 1.500E-21 0.710 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/BRONO2_R ================================================ BRONO2_R ! BRONO2 + HV = BR + NO3 ! BRONO2_R Photolysis data ! Supplied by Brett Gantt ! Created from IUPAC dataset 3-Mar-2014 10:00 Points (These data can be treated as point values) ! With FAC, units are (cm^2/molecule) FAC=1.0 200.0 6.800E-18 0.290 205.0 5.200E-18 0.290 210.0 3.610E-18 0.290 215.0 2.920E-18 0.290 220.0 2.560E-18 0.290 225.0 2.300E-18 0.290 230.0 2.050E-18 0.290 235.0 1.750E-18 0.290 240.0 1.400E-18 0.290 245.0 1.060E-18 0.290 250.0 7.970E-19 0.290 255.0 6.000E-19 0.290 260.0 4.710E-19 0.290 265.0 3.890E-19 0.290 270.0 3.380E-19 0.290 275.0 3.050E-19 0.290 280.0 2.790E-19 0.290 285.0 2.560E-19 0.290 290.0 2.320E-19 0.290 295.0 2.080E-19 0.290 300.0 1.860E-19 0.290 305.0 1.650E-19 0.290 310.0 1.450E-19 0.290 315.0 1.270E-19 0.290 320.0 1.130E-19 0.290 325.0 1.020E-19 0.290 330.0 9.320E-20 0.290 335.0 8.620E-20 0.290 340.0 8.060E-20 0.290 345.0 7.570E-20 0.290 350.0 7.010E-20 0.290 355.0 6.520E-20 0.290 360.0 5.990E-20 0.290 365.0 5.430E-20 0.290 370.0 4.890E-20 0.290 375.0 4.350E-20 0.290 380.0 3.850E-20 0.290 385.0 3.370E-20 0.290 390.0 2.970E-20 0.290 395.0 2.590E-20 0.290 400.0 2.280E-20 0.290 405.0 2.010E-20 0.290 410.0 1.810E-20 0.290 415.0 1.650E-20 0.290 420.0 1.500E-20 0.290 425.0 1.380E-20 0.290 430.0 1.290E-20 0.290 435.0 1.200E-20 0.290 440.0 1.110E-20 0.290 445.0 1.030E-20 0.290 450.0 9.280E-21 0.290 455.0 8.310E-21 0.290 460.0 7.420E-21 0.290 465.0 6.520E-21 0.290 470.0 5.660E-21 0.290 475.0 4.610E-21 0.290 480.0 3.920E-21 0.290 485.0 3.970E-21 0.290 490.0 2.490E-21 0.290 495.0 2.070E-21 0.290 500.0 1.500E-21 0.290 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/BRONO2_R_IUPAC10 ================================================ BRONO2_R_IUPAC10 ! BRONO2 + HV = BR + NO3 ! BRONO2_R_IUPAC10 Photolysis data (QY taken from Yang et al., 2005) ! Supplied by Brett Gantt ! Created from IUPAC dataset Points (these data can be treated as point values) ! With FAC, units are (cm^2/molecule) FAC=1.0 200.0 6.800E-18 0.290 205.0 5.200E-18 0.290 210.0 3.610E-18 0.290 215.0 2.920E-18 0.290 220.0 2.560E-18 0.290 225.0 2.300E-18 0.290 230.0 2.050E-18 0.290 235.0 1.750E-18 0.290 240.0 1.400E-18 0.290 245.0 1.060E-18 0.290 250.0 7.970E-19 0.290 255.0 6.000E-19 0.290 260.0 4.710E-19 0.290 265.0 3.890E-19 0.290 270.0 3.380E-19 0.290 275.0 3.050E-19 0.290 280.0 2.790E-19 0.290 285.0 2.560E-19 0.290 290.0 2.320E-19 0.290 295.0 2.080E-19 0.290 300.0 1.860E-19 0.290 305.0 1.650E-19 0.290 310.0 1.450E-19 0.290 315.0 1.270E-19 0.290 320.0 1.130E-19 0.290 325.0 1.020E-19 0.290 330.0 9.320E-20 0.290 335.0 8.620E-20 0.290 340.0 8.060E-20 0.290 345.0 7.570E-20 0.290 350.0 7.010E-20 0.290 355.0 6.520E-20 0.290 360.0 5.990E-20 0.290 365.0 5.430E-20 0.290 370.0 4.890E-20 0.290 375.0 4.350E-20 0.290 380.0 3.850E-20 0.290 385.0 3.370E-20 0.290 390.0 2.970E-20 0.290 395.0 2.590E-20 0.290 400.0 2.280E-20 0.290 405.0 2.010E-20 0.290 410.0 1.810E-20 0.290 415.0 1.650E-20 0.290 420.0 1.500E-20 0.290 425.0 1.380E-20 0.290 430.0 1.290E-20 0.290 435.0 1.200E-20 0.290 440.0 1.110E-20 0.290 445.0 1.030E-20 0.290 450.0 9.280E-21 0.290 455.0 8.310E-21 0.290 460.0 7.420E-21 0.290 465.0 6.520E-21 0.290 470.0 5.660E-21 0.290 475.0 4.610E-21 0.290 480.0 3.920E-21 0.290 485.0 3.970E-21 0.290 490.0 2.490E-21 0.290 495.0 2.070E-21 0.290 500.0 1.500E-21 0.290 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/BRONO2_R_IUPAC2014 ================================================ BRONO2_R ! BRONO2 + HV = BR + NO3 ! BRONO2_R Photolysis data ! Supplied by Brett Gantt ! Created from IUPAC dataset 3-Mar-2014 10:00 Points (These data can be treated as point values) ! With FAC, units are (cm^2/molecule) FAC=1.0 200.0 6.800E-18 0.290 205.0 5.200E-18 0.290 210.0 3.610E-18 0.290 215.0 2.920E-18 0.290 220.0 2.560E-18 0.290 225.0 2.300E-18 0.290 230.0 2.050E-18 0.290 235.0 1.750E-18 0.290 240.0 1.400E-18 0.290 245.0 1.060E-18 0.290 250.0 7.970E-19 0.290 255.0 6.000E-19 0.290 260.0 4.710E-19 0.290 265.0 3.890E-19 0.290 270.0 3.380E-19 0.290 275.0 3.050E-19 0.290 280.0 2.790E-19 0.290 285.0 2.560E-19 0.290 290.0 2.320E-19 0.290 295.0 2.080E-19 0.290 300.0 1.860E-19 0.290 305.0 1.650E-19 0.290 310.0 1.450E-19 0.290 315.0 1.270E-19 0.290 320.0 1.130E-19 0.290 325.0 1.020E-19 0.290 330.0 9.320E-20 0.290 335.0 8.620E-20 0.290 340.0 8.060E-20 0.290 345.0 7.570E-20 0.290 350.0 7.010E-20 0.290 355.0 6.520E-20 0.290 360.0 5.990E-20 0.290 365.0 5.430E-20 0.290 370.0 4.890E-20 0.290 375.0 4.350E-20 0.290 380.0 3.850E-20 0.290 385.0 3.370E-20 0.290 390.0 2.970E-20 0.290 395.0 2.590E-20 0.290 400.0 2.280E-20 0.290 405.0 2.010E-20 0.290 410.0 1.810E-20 0.290 415.0 1.650E-20 0.290 420.0 1.500E-20 0.290 425.0 1.380E-20 0.290 430.0 1.290E-20 0.290 435.0 1.200E-20 0.290 440.0 1.110E-20 0.290 445.0 1.030E-20 0.290 450.0 9.280E-21 0.290 455.0 8.310E-21 0.290 460.0 7.420E-21 0.290 465.0 6.520E-21 0.290 470.0 5.660E-21 0.290 475.0 4.610E-21 0.290 480.0 3.920E-21 0.290 485.0 3.970E-21 0.290 490.0 2.490E-21 0.290 495.0 2.070E-21 0.290 500.0 1.500E-21 0.290 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/BRO_IUPAC10 ================================================ BRO_IUPAC10 ! BRO + HV = BR + O ! BRO Photolysis data (QY from Parrella et al., 2012) ! Supplied by Brett Gantt ! Created from IUPAC dataset Points (these data can be treated as point values) ! With FAC, units are (cm^2/molecule) FAC=1.0 302.0 2.000E-18 1.000 307.0 2.590E-18 1.000 312.0 4.540E-18 1.000 317.0 3.910E-18 1.000 322.0 6.000E-18 1.000 327.0 7.530E-18 1.000 332.0 6.280E-18 1.000 337.0 5.890E-18 1.000 342.0 5.150E-18 1.000 347.0 3.990E-18 1.000 352.0 2.280E-18 1.000 357.0 1.720E-18 1.000 362.0 1.610E-18 1.000 367.0 9.200E-19 1.000 372.0 5.100E-19 1.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/BRO_IUPAC14 ================================================ BRO_IUPAC14 ! BRO + HV = BR + O ! BRO Photolysis data ! Supplied by Brett Gantt ! Created from IUPAC dataset 3-Mar-2014 10:00 Points (These data can be treated as point values) ! With FAC, units are (cm^2/molecule) FAC=1.0 302.0 2.000E-18 1.000 307.0 2.590E-18 1.000 312.0 4.540E-18 1.000 317.0 3.910E-18 1.000 322.0 6.000E-18 1.000 327.0 7.530E-18 1.000 332.0 6.280E-18 1.000 337.0 5.890E-18 1.000 342.0 5.150E-18 1.000 347.0 3.990E-18 1.000 352.0 2.280E-18 1.000 357.0 1.720E-18 1.000 362.0 1.610E-18 1.000 367.0 9.200E-19 1.000 372.0 5.100E-19 1.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/BRO_IUPAC2014 ================================================ BRO ! BRO + HV = BR + O ! BRO Photolysis data ! Supplied by Brett Gantt ! Created from IUPAC dataset 3-Mar-2014 10:00 Points (These data can be treated as point values) ! With FAC, units are (cm^2/molecule) FAC=1.0 302.0 2.000E-18 1.000 307.0 2.590E-18 1.000 312.0 4.540E-18 1.000 317.0 3.910E-18 1.000 322.0 6.000E-18 1.000 327.0 7.530E-18 1.000 332.0 6.280E-18 1.000 337.0 5.890E-18 1.000 342.0 5.150E-18 1.000 347.0 3.990E-18 1.000 352.0 2.280E-18 1.000 357.0 1.720E-18 1.000 362.0 1.610E-18 1.000 367.0 9.200E-19 1.000 372.0 5.100E-19 1.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/BZCHO_SAPRC99 ================================================ BZCHO ! Benzaldehyde absorbtion coefs in n-Hexane ! SAPRC-99 Photolysis data. Supplied by William P. L. Carter. ! Created from PhotDat.xls on 29-Jan-2000 10:07 Points (the mechanism was evaluated assuming this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 299.0 1.776E-19 1.000 304.0 7.400E-20 1.000 306.0 6.910E-20 1.000 309.0 6.410E-20 1.000 313.0 6.910E-20 1.000 314.0 6.910E-20 1.000 318.0 6.410E-20 1.000 325.0 8.390E-20 1.000 332.0 7.650E-20 1.000 338.0 8.880E-20 1.000 342.0 8.880E-20 1.000 346.0 7.890E-20 1.000 349.0 7.890E-20 1.000 354.0 9.130E-20 1.000 355.0 8.140E-20 1.000 364.0 5.670E-20 1.000 368.0 6.660E-20 1.000 369.0 8.390E-20 1.000 370.0 8.390E-20 1.000 372.0 3.450E-20 1.000 374.0 3.210E-20 1.000 376.0 2.470E-20 1.000 377.0 2.470E-20 1.000 380.0 3.580E-20 1.000 382.0 9.900E-21 1.000 386.0 0.000E+00 1.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/C2CHO ================================================ C2CHO ! C2CHO + HV = C2H5. + CHO. ! IUPAC (1997) Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 294.0 5.800E-20 0.8900 295.0 5.570E-20 0.8850 296.0 5.370E-20 0.8800 297.0 5.160E-20 0.8750 298.0 5.020E-20 0.8700 299.0 5.020E-20 0.8650 300.0 5.040E-20 0.8600 301.0 5.090E-20 0.8550 302.0 5.070E-20 0.8500 303.0 4.940E-20 0.8180 304.0 4.690E-20 0.7860 305.0 4.320E-20 0.7550 306.0 4.040E-20 0.7230 307.0 3.810E-20 0.6910 308.0 3.650E-20 0.6590 309.0 3.620E-20 0.6270 310.0 3.600E-20 0.5960 311.0 3.530E-20 0.5640 312.0 3.500E-20 0.5320 313.0 3.320E-20 0.5000 314.0 3.060E-20 0.4800 315.0 2.770E-20 0.4600 316.0 2.430E-20 0.4400 317.0 2.180E-20 0.4200 318.0 2.000E-20 0.4000 319.0 1.860E-20 0.3800 320.0 1.830E-20 0.3600 321.0 1.780E-20 0.3400 322.0 1.660E-20 0.3200 323.0 1.580E-20 0.3000 324.0 1.490E-20 0.2800 325.0 1.300E-20 0.2600 326.0 1.130E-20 0.2480 327.0 9.960E-21 0.2360 328.0 8.280E-21 0.2230 329.0 6.850E-21 0.2110 330.0 5.750E-21 0.1990 331.0 4.940E-21 0.1870 332.0 4.660E-21 0.1740 333.0 4.300E-21 0.1620 334.0 3.730E-21 0.1500 335.0 3.250E-21 0.1330 336.0 2.800E-21 0.1170 337.0 2.300E-21 0.1000 338.0 1.850E-21 0.0830 339.0 1.660E-21 0.0670 340.0 1.550E-21 0.0500 341.0 1.190E-21 0.0330 342.0 7.600E-22 0.0170 343.0 4.500E-22 0.0000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/C2CHO_R_MCMv32 ================================================ C2CHO_R_MCMv32 !C2H5CHO:Propionaldehyde (298K and 1 bar) photolysis quantum yields (C2H5 + HCO) !C2H5CHO --> C2H5 + HCO !Chen and Zhu J. (2001). The Wavelength Dependence of the Photodissociation of Propionaldehyde in the !280-330 nm Region, Phys. Chem. A., 105, 9689-9696. ! !Cross-Section recommended by IUPAC 2002 that gives no preferred quantum yields !http://iupac.pole-ether.fr/htdocs/datasheets/pdf/P3_C2H5CHO+hv.pdf ! ! !J14 in MCM v3.2:C2H5CHO-> C2H5 + HCO !wvl(nm) XC(cm^2) qy_hco Points ! With FAC, units are (cm^2/molecule) FAC=1.0 280.0 5.16E-20 0.850 285.0 5.86E-20 1.000 290.0 5.56E-20 0.950 295.0 5.57E-20 0.980 300.0 5.04E-20 0.920 305.0 4.32E-20 0.950 310.0 3.60E-20 0.980 315.0 2.77E-20 0.910 320.0 1.83E-20 1.000 325.0 1.30E-20 1.000 330.0 5.75E-21 0.840 335.0 3.25E-21 0.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/C2CHO_SAPRC99 ================================================ C2CHO ! C2CHO + HV = C2H5. + CHO. ! SAPRC-99 Photolysis data. Supplied by William P. L. Carter. ! Created from PhotDat.xls on 29-Jan-2000 10:07 Points (the mechanism was evaluated assuming this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 294.0 5.800E-20 0.890 295.0 5.570E-20 0.885 296.0 5.370E-20 0.880 297.0 5.160E-20 0.875 298.0 5.020E-20 0.870 299.0 5.020E-20 0.865 300.0 5.040E-20 0.860 301.0 5.090E-20 0.855 302.0 5.070E-20 0.850 303.0 4.940E-20 0.818 304.0 4.690E-20 0.786 305.0 4.320E-20 0.755 306.0 4.040E-20 0.723 307.0 3.810E-20 0.691 308.0 3.650E-20 0.659 309.0 3.620E-20 0.627 310.0 3.600E-20 0.596 311.0 3.530E-20 0.564 312.0 3.500E-20 0.532 313.0 3.320E-20 0.500 314.0 3.060E-20 0.480 315.0 2.770E-20 0.460 316.0 2.430E-20 0.440 317.0 2.180E-20 0.420 318.0 2.000E-20 0.400 319.0 1.860E-20 0.380 320.0 1.830E-20 0.360 321.0 1.780E-20 0.340 322.0 1.660E-20 0.320 323.0 1.580E-20 0.300 324.0 1.490E-20 0.280 325.0 1.300E-20 0.260 326.0 1.130E-20 0.248 327.0 9.960E-21 0.236 328.0 8.280E-21 0.223 329.0 6.850E-21 0.211 330.0 5.750E-21 0.199 331.0 4.940E-21 0.187 332.0 4.660E-21 0.174 333.0 4.300E-21 0.162 334.0 3.730E-21 0.150 335.0 3.250E-21 0.133 336.0 2.800E-21 0.117 337.0 2.300E-21 0.100 338.0 1.850E-21 0.083 339.0 1.660E-21 0.067 340.0 1.550E-21 0.050 341.0 1.190E-21 0.033 342.0 7.600E-22 0.017 343.0 4.500E-22 0.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/CCHO_R ================================================ CCHO_R ! CCHO + HV = CH3 + CHO ! IUPAC (1997) Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 256.0 1.759E-20 0.300 258.0 1.994E-20 0.305 262.0 2.440E-20 0.3260 266.0 3.050E-20 0.3580 270.0 3.420E-20 0.3900 274.0 4.030E-20 0.4660 278.0 4.190E-20 0.5420 280.0 4.500E-20 0.5800 281.0 4.690E-20 0.5750 282.0 4.720E-20 0.5700 283.0 4.750E-20 0.5650 284.0 4.610E-20 0.5600 285.0 4.490E-20 0.5550 286.0 4.440E-20 0.5500 287.0 4.590E-20 0.5450 288.0 4.720E-20 0.5400 289.0 4.770E-20 0.5350 290.0 4.890E-20 0.5300 291.0 4.780E-20 0.5200 292.0 4.680E-20 0.5100 293.0 4.530E-20 0.5000 294.0 4.330E-20 0.4900 295.0 4.270E-20 0.4800 296.0 4.240E-20 0.4700 297.0 4.380E-20 0.4600 298.0 4.410E-20 0.4500 299.0 4.260E-20 0.4400 300.0 4.160E-20 0.4300 301.0 3.990E-20 0.4180 302.0 3.860E-20 0.4060 303.0 3.720E-20 0.3940 304.0 3.480E-20 0.3820 305.0 3.420E-20 0.3700 306.0 3.420E-20 0.3540 307.0 3.360E-20 0.3380 308.0 3.330E-20 0.3220 309.0 3.140E-20 0.3060 310.0 2.930E-20 0.2900 311.0 2.760E-20 0.2660 312.0 2.530E-20 0.2420 313.0 2.470E-20 0.2180 314.0 2.440E-20 0.1940 315.0 2.200E-20 0.1700 316.0 2.040E-20 0.1560 317.0 2.070E-20 0.1420 318.0 1.980E-20 0.1280 319.0 1.870E-20 0.1140 320.0 1.720E-20 0.1000 321.0 1.480E-20 0.0880 322.0 1.400E-20 0.0760 323.0 1.240E-20 0.0640 324.0 1.090E-20 0.0520 325.0 1.140E-20 0.0400 326.0 1.070E-20 0.0320 327.0 8.580E-21 0.0240 328.0 7.470E-21 0.0160 329.0 7.070E-21 0.0080 330.0 6.670E-21 0.0000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/CCHO_R1_MCMv32 ================================================ CCHO_R1_MCMv32 !CH3CHO photolysis at 298K and 1 atm ! !CH3CHO --> CH3+HCO !Both XC and QY taken from !http://iupac.pole-ether.fr/htdocs/datasheets/pdf/P2_CH3CHO+hv.pdf !that was dated June 2013 ! !XC from ! Martinez, R. D. , Buitrago, A. A., Howell, N. W., Hearn, C. H., and Joens, J. A., ! Atmos. Environ. 26A, 785 1992. !QY from ! Moortgat, G.K., Meyrahn, H. and Warneck, P., Chem.Phys.Chem., 11, 3896, 2010 !Notes: !(1)QY values are not interpolated over wavelength of measure XC values ans QY for ! CH3CO+H also give as supplementary data !(2)Number density correction available from Warneck, P. and Moortgat, G.K., Atmos. ! Environ., 62, 153, 2012. ! !WVL(nm),XC(cm2),CH3+HCO,CH3CO+H Points ! With FAC, units are (cm^2/molecule) FAC=1.0 256.0 1.759E-20 0.120 0.300 258.0 1.994E-20 0.115 0.305 262.0 2.440E-20 0.310 0.110 266.0 3.050E-20 0.350 0.100 270.0 3.420E-20 0.410 0.100 274.0 4.030E-20 0.410 0.100 278.0 4.190E-20 0.510 0.090 280.0 4.500E-20 0.590 0.090 281.0 4.690E-20 0.590 0.090 282.0 4.720E-20 0.590 0.090 283.0 4.750E-20 0.590 0.090 284.0 4.610E-20 0.590 0.090 285.0 4.490E-20 0.580 0.080 286.0 4.440E-20 0.580 0.080 287.0 4.590E-20 0.580 0.080 288.0 4.720E-20 0.580 0.080 289.0 4.770E-20 0.580 0.080 290.0 4.890E-20 0.550 0.070 291.0 4.780E-20 0.550 0.070 292.0 4.680E-20 0.550 0.070 293.0 4.530E-20 0.550 0.070 294.0 4.330E-20 0.550 0.070 295.0 4.270E-20 0.500 0.070 296.0 4.240E-20 0.500 0.070 297.0 4.380E-20 0.500 0.070 298.0 4.410E-20 0.500 0.070 299.0 4.260E-20 0.500 0.070 300.0 4.160E-20 0.440 0.060 301.0 3.990E-20 0.440 0.060 302.0 3.860E-20 0.440 0.060 303.0 3.720E-20 0.440 0.060 304.0 3.480E-20 0.440 0.060 305.0 3.420E-20 0.360 0.060 306.0 3.420E-20 0.360 0.060 307.0 3.360E-20 0.360 0.060 308.0 3.330E-20 0.360 0.060 309.0 3.140E-20 0.360 0.060 310.0 2.930E-20 0.280 0.040 311.0 2.760E-20 0.280 0.040 312.0 2.530E-20 0.280 0.040 313.0 2.470E-20 0.280 0.040 314.0 2.440E-20 0.280 0.040 315.0 2.200E-20 0.180 0.020 316.0 2.040E-20 0.180 0.020 317.0 2.070E-20 0.180 0.020 318.0 1.979E-20 0.180 0.020 319.0 1.874E-20 0.180 0.020 320.0 1.723E-20 0.090 0.010 321.0 1.484E-20 0.090 0.010 322.0 1.402E-20 0.090 0.010 323.0 1.244E-20 0.090 0.010 324.0 1.091E-20 0.090 0.010 325.0 1.136E-20 0.040 0.000 326.0 1.074E-20 0.040 0.000 327.0 8.580E-21 0.040 0.000 328.0 7.470E-21 0.040 0.000 329.0 7.070E-21 0.040 0.000 330.0 6.880E-21 0.010 0.000 331.0 5.880E-21 0.010 0.000 332.0 5.300E-21 0.010 0.000 333.0 3.980E-21 0.010 0.000 334.0 3.630E-21 0.010 0.000 335.0 3.500E-21 0.000 0.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/CCHO_R2_MCMv32 ================================================ CCHO_R2_MCMv32 !CH3CHO photolysis at 298K and 1 atm ! !CH3CHO --> CH3CO+H !Both XC and QY taken from !http://iupac.pole-ether.fr/htdocs/datasheets/pdf/P2_CH3CHO+hv.pdf !that was dated June 2013 ! !XC from ! Martinez, R. D. , Buitrago, A. A., Howell, N. W., Hearn, C. H., and Joens, J. A., ! Atmos. Environ. 26A, 785 1992. !QY from ! Moortgat, G.K., Meyrahn, H. and Warneck, P., Chem.Phys.Chem., 11, 3896, 2010 !Notes: !(1)QY values are not interpolated over wavelength of measure XC values ans QY for ! CH3CO+H also give as supplementary data !(2)Number density correction available from Warneck, P. and Moortgat, G.K., Atmos. ! Environ., 62, 153, 2012. ! !WVL(nm),XC(cm2),CH3CO+H,CH3+HCO, Points ! With FAC, units are (cm^2/molecule) FAC=1.0 256.0 1.759E-20 0.120 0.300 258.0 1.994E-20 0.115 0.305 262.0 2.440E-20 0.110 0.310 266.0 3.050E-20 0.100 0.350 270.0 3.420E-20 0.100 0.410 274.0 4.030E-20 0.100 0.410 278.0 4.190E-20 0.090 0.510 280.0 4.500E-20 0.090 0.590 281.0 4.690E-20 0.090 0.590 282.0 4.720E-20 0.090 0.590 283.0 4.750E-20 0.090 0.590 284.0 4.610E-20 0.090 0.590 285.0 4.490E-20 0.080 0.580 286.0 4.440E-20 0.080 0.580 287.0 4.590E-20 0.080 0.580 288.0 4.720E-20 0.080 0.580 289.0 4.770E-20 0.080 0.580 290.0 4.890E-20 0.070 0.550 291.0 4.780E-20 0.070 0.550 292.0 4.680E-20 0.070 0.550 293.0 4.530E-20 0.070 0.550 294.0 4.330E-20 0.070 0.550 295.0 4.270E-20 0.070 0.500 296.0 4.240E-20 0.070 0.500 297.0 4.380E-20 0.070 0.500 298.0 4.410E-20 0.070 0.500 299.0 4.260E-20 0.070 0.500 300.0 4.160E-20 0.060 0.440 301.0 3.990E-20 0.060 0.440 302.0 3.860E-20 0.060 0.440 303.0 3.720E-20 0.060 0.440 304.0 3.480E-20 0.060 0.440 305.0 3.420E-20 0.060 0.360 306.0 3.420E-20 0.060 0.360 307.0 3.360E-20 0.060 0.360 308.0 3.330E-20 0.060 0.360 309.0 3.140E-20 0.060 0.360 310.0 2.930E-20 0.040 0.280 311.0 2.760E-20 0.040 0.280 312.0 2.530E-20 0.040 0.280 313.0 2.470E-20 0.040 0.280 314.0 2.440E-20 0.040 0.280 315.0 2.200E-20 0.020 0.180 316.0 2.040E-20 0.020 0.180 317.0 2.070E-20 0.020 0.180 318.0 1.979E-20 0.020 0.180 319.0 1.874E-20 0.020 0.180 320.0 1.723E-20 0.010 0.090 321.0 1.484E-20 0.010 0.090 322.0 1.402E-20 0.010 0.090 323.0 1.244E-20 0.010 0.090 324.0 1.091E-20 0.010 0.090 325.0 1.136E-20 0.000 0.040 326.0 1.074E-20 0.000 0.040 327.0 8.580E-21 0.000 0.040 328.0 7.470E-21 0.000 0.040 329.0 7.070E-21 0.000 0.040 330.0 6.880E-21 0.000 0.010 331.0 5.880E-21 0.000 0.010 332.0 5.300E-21 0.000 0.010 333.0 3.980E-21 0.000 0.010 334.0 3.630E-21 0.000 0.010 335.0 3.500E-21 0.000 0.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/CCHO_R_SAPRC99 ================================================ CCHO_R ! CCHO + HV = CH3 + CHO ! SAPRC-99 Photolysis data. Supplied by William P. L. Carter. ! Created from PhotDat.xls on 29-Jan-2000 10:07 Points (the mechanism was evaluated assuming this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 256.0 1.759E-20 0.300 258.0 1.994E-20 0.305 262.0 2.440E-20 0.326 266.0 3.050E-20 0.358 270.0 3.420E-20 0.390 274.0 4.030E-20 0.466 278.0 4.190E-20 0.542 280.0 4.500E-20 0.580 281.0 4.690E-20 0.575 282.0 4.720E-20 0.570 283.0 4.750E-20 0.565 284.0 4.610E-20 0.560 285.0 4.490E-20 0.555 286.0 4.440E-20 0.550 287.0 4.590E-20 0.545 288.0 4.720E-20 0.540 289.0 4.770E-20 0.535 290.0 4.890E-20 0.530 291.0 4.780E-20 0.520 292.0 4.680E-20 0.510 293.0 4.530E-20 0.500 294.0 4.330E-20 0.490 295.0 4.270E-20 0.480 296.0 4.240E-20 0.470 297.0 4.380E-20 0.460 298.0 4.410E-20 0.450 299.0 4.260E-20 0.440 300.0 4.160E-20 0.430 301.0 3.990E-20 0.418 302.0 3.860E-20 0.406 303.0 3.720E-20 0.394 304.0 3.480E-20 0.382 305.0 3.420E-20 0.370 306.0 3.420E-20 0.354 307.0 3.360E-20 0.338 308.0 3.330E-20 0.322 309.0 3.140E-20 0.306 310.0 2.930E-20 0.290 311.0 2.760E-20 0.266 312.0 2.530E-20 0.242 313.0 2.470E-20 0.218 314.0 2.440E-20 0.194 315.0 2.200E-20 0.170 316.0 2.040E-20 0.156 317.0 2.070E-20 0.142 318.0 1.980E-20 0.128 319.0 1.870E-20 0.114 320.0 1.720E-20 0.100 321.0 1.480E-20 0.088 322.0 1.400E-20 0.076 323.0 1.240E-20 0.064 324.0 1.090E-20 0.052 325.0 1.140E-20 0.040 326.0 1.070E-20 0.032 327.0 8.580E-21 0.024 328.0 7.470E-21 0.016 329.0 7.070E-21 0.008 330.0 6.670E-21 0.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/CH3CHO_RACM2 ================================================ CH3CHO_RACM2 ! ACD + HV = MO2 + HO2 + CO ! Absorption x-section from NASA - 2006 ! Quantum yield from NASA - 2006 ! Supplied by Dr. Wendy Goliff, reformatted by Dr. Golam Sarwar to make it compatible with CMAQ Points ! With FAC, units are (cm^2/molecule) FAC=1.0 186.1 0.000E+00 0.000 187.8 0.000E+00 0.000 189.6 0.000E+00 0.000 191.4 0.000E+00 0.000 193.3 0.000E+00 0.000 195.2 0.000E+00 0.000 197.1 0.000E+00 0.000 199.0 0.000E+00 0.000 201.0 0.000E+00 0.000 203.1 0.552E-21 0.000 205.2 0.536E-21 0.000 207.3 0.517E-21 0.000 209.4 0.496E-21 0.000 211.7 0.486E-21 0.000 213.9 0.480E-21 0.000 216.2 0.502E-21 0.000 218.6 0.540E-21 0.000 221.0 0.618E-21 0.000 223.5 0.766E-21 0.000 226.0 0.960E-21 0.000 228.6 0.132E-20 0.000 231.3 0.180E-20 0.000 234.0 0.241E-20 0.000 236.7 0.331E-20 0.000 239.6 0.481E-20 0.000 242.5 0.651E-20 0.000 245.4 0.850E-20 0.000 248.5 0.107E-19 0.000 251.6 0.134E-19 0.000 254.8 0.166E-19 0.000 258.2 0.205E-19 0.300 261.5 0.240E-19 0.320 265.0 0.291E-19 0.350 268.5 0.326E-19 0.387 272.2 0.374E-19 0.444 275.9 0.409E-19 0.530 279.8 0.430E-19 0.580 283.7 0.462E-19 0.590 287.8 0.466E-19 0.560 292.0 0.466E-19 0.520 296.3 0.428E-19 0.470 300.5 0.406E-19 0.423 303.0 0.370E-19 0.390 304.0 0.346E-19 0.380 305.0 0.343E-19 0.365 306.0 0.341E-19 0.350 307.0 0.336E-19 0.330 308.0 0.331E-19 0.310 309.0 0.311E-19 0.295 310.0 0.292E-19 0.280 311.0 0.273E-19 0.260 312.0 0.252E-19 0.240 313.0 0.247E-19 0.215 314.0 0.238E-19 0.190 316.0 0.207E-19 0.150 320.0 0.170E-19 0.100 325.0 0.115E-19 0.040 330.0 0.699E-20 0.010 335.0 0.350E-20 0.000 340.0 0.135E-20 0.000 345.0 0.210E-21 0.000 350.0 0.774E-22 0.000 355.0 0.500E-22 0.000 360.0 0.275E-22 0.000 365.0 0.000E+00 0.000 370.0 0.000E+00 0.000 375.0 0.000E+00 0.000 380.0 0.000E+00 0.000 385.0 0.000E+00 0.000 390.0 0.000E+00 0.000 395.0 0.000E+00 0.000 400.0 0.000E+00 0.000 405.0 0.000E+00 0.000 410.0 0.000E+00 0.000 415.0 0.000E+00 0.000 420.0 0.000E+00 0.000 425.0 0.000E+00 0.000 430.0 0.000E+00 0.000 435.0 0.000E+00 0.000 440.0 0.000E+00 0.000 445.0 0.000E+00 0.000 450.0 0.000E+00 0.000 455.0 0.000E+00 0.000 460.0 0.000E+00 0.000 465.0 0.000E+00 0.000 470.0 0.000E+00 0.000 475.0 0.000E+00 0.000 480.0 0.000E+00 0.000 485.0 0.000E+00 0.000 490.0 0.000E+00 0.000 495.0 0.000E+00 0.000 500.0 0.000E+00 0.000 505.0 0.000E+00 0.000 510.0 0.000E+00 0.000 515.0 0.000E+00 0.000 520.0 0.000E+00 0.000 525.0 0.000E+00 0.000 530.0 0.000E+00 0.000 535.0 0.000E+00 0.000 540.0 0.000E+00 0.000 545.0 0.000E+00 0.000 550.0 0.000E+00 0.000 555.0 0.000E+00 0.000 560.0 0.000E+00 0.000 565.0 0.000E+00 0.000 570.0 0.000E+00 0.000 575.0 0.000E+00 0.000 580.0 0.000E+00 0.000 585.0 0.000E+00 0.000 590.0 0.000E+00 0.000 595.0 0.000E+00 0.000 600.0 0.000E+00 0.000 605.0 0.000E+00 0.000 610.0 0.000E+00 0.000 615.0 0.000E+00 0.000 620.0 0.000E+00 0.000 625.0 0.000E+00 0.000 630.0 0.000E+00 0.000 635.0 0.000E+00 0.000 640.0 0.000E+00 0.000 644.8 0.000E+00 0.000 651.0 0.000E+00 0.000 660.0 0.000E+00 0.000 670.0 0.000E+00 0.000 680.0 0.000E+00 0.000 690.0 0.000E+00 0.000 700.0 0.000E+00 0.000 710.0 0.000E+00 0.000 720.0 0.000E+00 0.000 730.0 0.000E+00 0.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/CH3COCH3A_JPL19 ================================================ CH3COCH3A_JPL19 ! ACT + HV = ACO3 + MO2 ! Source: Chemical Kinetics and Photochemical Data for Use in Atmospheric Studies, Evaluation No. ! 19," JPL Publication 19-5, Jet Propulsion Laboratory, Pasadena, ! 2019 http://jpldataeval.jpl.nasa.gov ! Absorption x-section from JPL-19/Acetone 298K (Table 4D-27-1) ! 1)Gierczak, T.; Burkholder, J. B.; Bauerle, S.; Ravishankara, A. R. Photochemisty of acetone under ! atmospheric conditions. Chem. Phys. 1998, 231, 229-244, doi:10.1016/S0301-0104(98)00006-8. ! 2)Burkholder, J. B., personal communication to the NASA JPL Panel. ! Quantum yield - JPL-19/Acetone 295K and 1 atm for channel producing ACO3 + MO2 ! Blitz, M. A., Heard, D. E., Pilling, M. J., Arnold S. R. and M. Chipperfield, Geophys. Res. Lett. ! L06111, doi:10.1029/2003GL018793, 2004. ! Supplied by Drs. William Stockwell and Emily Saunders, reformatted by Dr. Golam Sarwar to make it compatible with CMAQ ! Points ! With FAC, units are (cm^2/molecule) FAC=1.0 279 4.92E-20 0.4323 280 4.91E-20 0.4231 281 4.86E-20 0.4134 282 4.79E-20 0.4033 283 4.71E-20 0.3928 284 4.62E-20 0.3820 285 4.54E-20 0.3710 286 4.44E-20 0.3598 287 4.36E-20 0.3485 288 4.28E-20 0.3371 289 4.15E-20 0.3257 290 4.06E-20 0.3144 291 3.95E-20 0.3031 292 3.82E-20 0.2919 293 3.71E-20 0.2808 294 3.57E-20 0.2699 295 3.42E-20 0.2593 296 3.26E-20 0.2488 297 3.11E-20 0.2386 298 2.98E-20 0.2287 299 2.82E-20 0.2190 300 2.67E-20 0.2096 301 2.58E-20 0.2005 302 2.45E-20 0.1917 303 2.30E-20 0.1705 304 2.18E-20 0.1446 305 2.05E-20 0.1221 306 1.89E-20 0.1027 307 1.75E-20 0.0861 308 1.61E-20 0.0720 309 1.49E-20 0.0602 310 1.36E-20 0.0502 311 1.24E-20 0.0419 312 1.14E-20 0.0350 313 1.06E-20 0.0292 314 9.44E-21 0.0244 315 8.37E-21 0.0204 316 7.60E-21 0.0171 317 6.84E-21 0.0144 318 5.98E-21 0.0121 319 5.23E-21 0.0102 320 4.55E-21 0.0086 321 4.11E-21 0.0073 322 3.48E-21 0.0061 323 2.94E-21 0.0052 324 2.48E-21 0.0044 325 2.10E-21 0.0038 326 1.74E-21 0.0032 327 1.41E-21 0.0027 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/CH3COCH3B_JPL19 ================================================ CH3COCH3B_JPL19 ! ACT + HV = 2.0*MO2 + CO ! Source: Chemical Kinetics and Photochemical Data for Use in Atmospheric Studies, Evaluation No. ! 19," JPL Publication 19-5, Jet Propulsion Laboratory, Pasadena, ! 2019 http://jpldataeval.jpl.nasa.gov ! Absorption x-section from JPL-19/Acetone 298K (Table 4D-27-1) ! 1)Gierczak, T.; Burkholder, J. B.; Bauerle, S.; Ravishankara, A. R. Photochemisty of acetone under ! atmospheric conditions. Chem. Phys. 1998, 231, 229-244, doi:10.1016/S0301-0104(98)00006-8. ! 2)Burkholder, J. B., personal communication to the NASA JPL Panel. ! Quantum yield - JPL-19/Acetone 295K and 1 atm for channel producing ACO3 + MO2 ! Blitz, M. A., Heard, D. E., Pilling, M. J., Arnold S. R. and M. Chipperfield, Geophys. Res. Lett. ! L06111, doi:10.1029/2003GL018793, 2004. ! Supplied by Drs. William Stockwell and Emily Saunders, reformatted by Dr. Golam Sarwar to make it compatible with CMAQ Points ! With FAC, units are (cm^2/molecule) FAC=1.0 279 4.92E-20 0.1841 280 4.91E-20 0.1741 281 4.86E-20 0.1645 282 4.79E-20 0.1554 283 4.71E-20 0.1467 284 4.62E-20 0.1384 285 4.54E-20 0.1305 286 4.44E-20 0.1229 287 4.36E-20 0.1158 288 4.28E-20 0.1090 289 4.15E-20 0.1026 290 4.06E-20 0.0965 291 3.95E-20 0.0907 292 3.82E-20 0.0853 293 3.71E-20 0.0801 294 3.57E-20 0.0752 295 3.42E-20 0.0706 296 3.26E-20 0.0663 297 3.11E-20 0.0622 298 2.98E-20 0.0584 299 2.82E-20 0.0547 300 2.67E-20 0.0513 301 2.58E-20 0.0481 302 2.45E-20 0.0451 303 2.30E-20 0.0423 304 2.18E-20 0.0396 305 2.05E-20 0.0371 306 1.89E-20 0.0347 307 1.75E-20 0.0325 308 1.61E-20 0.0304 309 1.49E-20 0.0285 310 1.36E-20 0.0267 311 1.24E-20 0.0250 312 1.14E-20 0.0234 313 1.06E-20 0.0219 314 9.44E-21 0.0205 315 8.37E-21 0.0191 316 7.60E-21 0.0179 317 6.84E-21 0.0167 318 5.98E-21 0.0157 319 5.23E-21 0.0146 320 4.55E-21 0.0137 321 4.11E-21 0.0128 322 3.48E-21 0.0120 323 2.94E-21 0.0112 324 2.48E-21 0.0105 325 2.10E-21 0.0098 326 1.74E-21 0.0091 327 1.41E-21 0.0086 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/CH3COCH3_RACM2 ================================================ CH3COCH3_RACM2 ! ACT + HV = ACO3 + MO2 ! Absorption x-section from NASA - 2006 ! Quantum yield ! Supplied by Dr. Wendy Goliff, reformatted by Dr. Golam Sarwar to make it compatible with CMAQ Points ! With FAC, units are (cm^2/molecule) FAC=1.0 186.1 0.000E+00 0.000 187.8 0.000E+00 0.000 189.6 0.000E+00 0.000 191.4 0.000E+00 0.000 193.3 0.000E+00 0.000 195.2 0.000E+00 0.000 197.1 0.000E+00 0.000 199.0 0.000E+00 0.000 201.0 0.000E+00 0.000 203.1 0.000E+00 0.000 205.2 0.000E+00 0.000 207.3 0.000E+00 0.000 209.4 0.000E+00 0.000 211.7 0.000E+00 0.000 213.9 0.000E+00 0.000 216.2 0.167E-20 0.000 218.6 0.212E-20 0.000 221.0 0.270E-20 0.000 223.5 0.346E-20 0.000 226.0 0.419E-20 0.000 228.6 0.535E-20 0.000 231.3 0.637E-20 0.000 234.0 0.815E-20 0.000 236.7 0.103E-19 0.000 239.6 0.130E-19 0.000 242.5 0.160E-19 0.000 245.4 0.183E-19 0.000 248.5 0.233E-19 0.880 251.6 0.274E-19 0.880 254.8 0.315E-19 0.880 258.2 0.357E-19 0.880 261.5 0.407E-19 0.880 265.0 0.441E-19 0.880 268.5 0.472E-19 0.880 272.2 0.491E-19 0.880 275.9 0.493E-19 0.880 279.8 0.491E-19 0.880 283.7 0.462E-19 0.840 287.8 0.428E-19 0.770 292.0 0.382E-19 0.720 296.3 0.326E-19 0.640 300.5 0.258E-19 0.610 303.0 0.230E-19 0.500 304.0 0.218E-19 0.430 305.0 0.205E-19 0.400 306.0 0.189E-19 0.320 307.0 0.175E-19 0.280 308.0 0.161E-19 0.260 309.0 0.149E-19 0.240 310.0 0.136E-19 0.200 311.0 0.124E-19 0.170 312.0 0.114E-19 0.150 313.0 0.106E-19 0.120 314.0 0.944E-20 0.100 316.0 0.760E-20 0.060 320.0 0.455E-20 0.050 325.0 0.210E-20 0.025 330.0 0.740E-21 0.000 335.0 0.248E-21 0.000 340.0 0.912E-22 0.000 345.0 0.301E-22 0.000 350.0 0.000E+00 0.000 355.0 0.000E+00 0.000 360.0 0.000E+00 0.000 365.0 0.000E+00 0.000 370.0 0.000E+00 0.000 375.0 0.000E+00 0.000 380.0 0.000E+00 0.000 385.0 0.000E+00 0.000 390.0 0.000E+00 0.000 395.0 0.000E+00 0.000 400.0 0.000E+00 0.000 405.0 0.000E+00 0.000 410.0 0.000E+00 0.000 415.0 0.000E+00 0.000 420.0 0.000E+00 0.000 425.0 0.000E+00 0.000 430.0 0.000E+00 0.000 435.0 0.000E+00 0.000 440.0 0.000E+00 0.000 445.0 0.000E+00 0.000 450.0 0.000E+00 0.000 455.0 0.000E+00 0.000 460.0 0.000E+00 0.000 465.0 0.000E+00 0.000 470.0 0.000E+00 0.000 475.0 0.000E+00 0.000 480.0 0.000E+00 0.000 485.0 0.000E+00 0.000 490.0 0.000E+00 0.000 495.0 0.000E+00 0.000 500.0 0.000E+00 0.000 505.0 0.000E+00 0.000 510.0 0.000E+00 0.000 515.0 0.000E+00 0.000 520.0 0.000E+00 0.000 525.0 0.000E+00 0.000 530.0 0.000E+00 0.000 535.0 0.000E+00 0.000 540.0 0.000E+00 0.000 545.0 0.000E+00 0.000 550.0 0.000E+00 0.000 555.0 0.000E+00 0.000 560.0 0.000E+00 0.000 565.0 0.000E+00 0.000 570.0 0.000E+00 0.000 575.0 0.000E+00 0.000 580.0 0.000E+00 0.000 585.0 0.000E+00 0.000 590.0 0.000E+00 0.000 595.0 0.000E+00 0.000 600.0 0.000E+00 0.000 605.0 0.000E+00 0.000 610.0 0.000E+00 0.000 615.0 0.000E+00 0.000 620.0 0.000E+00 0.000 625.0 0.000E+00 0.000 630.0 0.000E+00 0.000 635.0 0.000E+00 0.000 640.0 0.000E+00 0.000 644.8 0.000E+00 0.000 651.0 0.000E+00 0.000 660.0 0.000E+00 0.000 670.0 0.000E+00 0.000 680.0 0.000E+00 0.000 690.0 0.000E+00 0.000 700.0 0.000E+00 0.000 710.0 0.000E+00 0.000 720.0 0.000E+00 0.000 730.0 0.000E+00 0.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/CH3I_IUPAC10 ================================================ CH3I_IUPAC10 ! CH3I + HV = I + MEO2 ! CH3I Photolysis data ! Supplied by Golam Sarwar ! Created from IUPAC dataset Points (these data can be treated as point values) ! With FAC, units are (cm^2/molecule) FAC=1.0 205.0 7.000E-20 1.000 210.0 3.800E-20 1.000 215.0 5.200E-20 1.000 220.0 6.900E-20 1.000 225.0 9.100E-20 1.000 230.0 1.260E-19 1.000 235.0 2.020E-19 1.000 240.0 3.740E-19 1.000 245.0 6.360E-19 1.000 250.0 9.210E-19 1.000 255.0 1.111E-18 1.000 260.0 1.123E-18 1.000 265.0 9.660E-19 1.000 270.0 7.170E-19 1.000 275.0 4.710E-19 1.000 280.0 2.800E-19 1.000 285.0 1.520E-19 1.000 290.0 7.790E-20 1.000 295.0 3.920E-20 1.000 300.0 2.030E-20 1.000 305.0 1.090E-20 1.000 310.0 6.190E-21 1.000 315.0 3.560E-21 1.000 320.0 2.150E-21 1.000 325.0 1.240E-21 1.000 330.0 7.000E-22 1.000 335.0 3.300E-22 1.000 340.0 2.300E-22 1.000 345.0 1.270E-22 1.000 350.0 6.700E-23 1.000 355.0 2.600E-23 1.000 360.0 1.300E-23 1.000 365.0 4.000E-24 1.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/CH3ONO2_MCMv32 ================================================ CH3ONO2_MCMv32 !Methyl nitrate (CH3ONO2) T dependent cross sections !CH3ONO2 --> CH3O + NO2 !IUPAC 2005 recommendation !http://iupac.pole-ether.fr/htdocs/datasheets/pdf/P14_CH3ONO2+hv.pdf dated May 2002 ! !average values from: !1. J.M. Roberts and R.W. Fajer, Environ. Sci. Technol. 23, 945 (1989) !2. O. Rattigan, E. Lutman, R. L. Jones, R. A. Cox, K. Clemitshaw, and J. Williams, J. !Photochem. Photobiol. A: Chem. 66, 313 (1992); corrigendum, ibid, 69, 125 (1992) !3. R. K. Talukdar, J. B. Burkholder, M. Hunter, M. K. Giles, J. M. Roberts, and A. R. !Ravishankara, J. Chem. Soc. Faraday Trans. 93, 2797 (1997) ! !Quantum Yield !R. K. Talukdar, J. B. Burkholder, M. Hunter, M. K. Giles, J. M. Roberts, and A. R. !Ravishankara, J. Chem. Soc. Faraday Trans. 93, 2797 (1997) ! !phi (CH3O + NO2) = unity at wavlengths > 248 nm ! !sigma(wavelength, T) = sig0(wavlength, 298K)*EXP(B*(T-298)) !nm sig0 qy B (1e3 K-1) Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 240.0 5.88E-20 1.000 3.48 245.0 4.19E-20 1.000 3.29 250.0 3.59E-20 1.000 2.96 255.0 3.30E-20 1.000 2.82 260.0 3.06E-20 1.000 2.83 265.0 2.77E-20 1.000 2.92 270.0 2.39E-20 1.000 3.08 275.0 2.00E-20 1.000 3.28 280.0 1.58E-20 1.000 3.51 285.0 1.19E-20 1.000 3.78 290.0 8.05E-21 1.000 4.04 295.0 5.68E-21 1.000 4.47 300.0 3.60E-21 1.000 4.94 305.0 2.14E-21 1.000 5.56 310.0 1.34E-21 1.000 6.33 315.0 6.33E-22 1.000 7.34 320.0 3.16E-22 1.000 8.74 325.0 1.44E-22 1.000 9.97 330.0 6.61E-23 1.000 13.6 335.0 2.74E-23 1.000 13.6 340.0 1.22E-23 1.000 13.6 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/CH3OOH_MCMv32 ================================================ CH3OOH_MCMv32 !methyl peroxide (CH3OOH) absorption spectrum (1 bar, 298 K) !IUPAC 2005 Recommendation !http://www.iupac-kinetic.ch.cam.ac.uk !Cross-section and Quantum yield !G. L. Vaghjiani and A. R. Ravishankara, J. Geophys. Res. 94, 3487 (1989) !G. L. Vaghjiani and A. R. Ravishankara, J. Chem. Phys. 92, 996 (1990) ! !phi (CH3O + OH) = unity at wavelengths > 290 nm ! !wavelength (nm) sigma qy Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 210.0 31.2E-20 1.000 215.0 20.9E-20 1.000 220.0 15.4E-20 1.000 225.0 12.2E-20 1.000 230.0 9.62E-20 1.000 235.0 7.61E-20 1.000 240.0 6.05E-20 1.000 245.0 4.88E-20 1.000 250.0 3.98E-20 1.000 255.0 3.23E-20 1.000 260.0 2.56E-20 1.000 265.0 2.11E-20 1.000 270.0 1.70E-20 1.000 275.0 1.39E-20 1.000 280.0 1.09E-20 1.000 285.0 8.63E-21 1.000 290.0 6.91E-21 1.000 295.0 5.51E-21 1.000 300.0 4.13E-21 1.000 305.0 3.13E-21 1.000 310.0 2.39E-21 1.000 315.0 1.82E-21 1.000 320.0 1.37E-21 1.000 325.0 1.05E-21 1.000 330.0 7.90E-22 1.000 335.0 6.10E-22 1.000 340.0 4.70E-22 1.000 345.0 3.50E-22 1.000 350.0 2.70E-22 1.000 355.0 2.10E-22 1.000 360.0 1.60E-22 1.000 365.0 1.20E-22 1.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/CHBR2CL_BILDE1998 ================================================ MB2C ! CHBR2CL + HV = 2BR ! CHBR2CL Photolysis data. ! Supplied by Brett Gantt ! Created from Bilde et al. J Phys Chem A 1998 (Figure 11 at 298K) Points (These data can be treated as point values) ! With FAC, units are (cm^2/molecule) FAC=1.0 200.0 3.000E-18 1.000 205.0 3.500E-18 1.000 210.0 4.000E-18 1.000 215.0 3.000E-18 1.000 220.0 2.000E-18 1.000 225.0 1.750E-18 1.000 230.0 1.500E-18 1.000 235.0 1.250E-18 1.000 240.0 1.100E-18 1.000 245.0 1.000E-18 1.000 250.0 9.000E-19 1.000 255.0 6.500E-19 1.000 260.0 4.000E-19 1.000 265.0 2.500E-19 1.000 270.0 1.250E-19 1.000 275.0 8.000E-20 1.000 280.0 4.000E-20 1.000 285.0 2.500E-20 1.000 290.0 1.000E-20 1.000 295.0 6.500E-21 1.000 300.0 3.000E-21 1.000 305.0 1.500E-21 1.000 310.0 8.000E-22 1.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/CHBR3_IUPAC2014 ================================================ MB3 ! CHBR3 + HV = 3BR ! CHBR3 Photolysis data ! Supplied by Golam Sarwar ! Created from IUPAC dataset 19-Mar-2014 15:00 Points (the mechanism was evaluated assuming this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 190.0 3.990E-18 1.000 192.0 3.600E-18 1.000 194.0 3.510E-18 1.000 196.0 3.660E-18 1.000 198.0 3.930E-18 1.000 200.0 4.160E-18 1.000 202.0 4.330E-18 1.000 204.0 4.400E-18 1.000 206.0 4.450E-18 1.000 208.0 4.510E-18 1.000 210.0 4.680E-18 1.000 212.0 4.930E-18 1.000 214.0 5.240E-18 1.000 216.0 5.530E-18 1.000 218.0 5.740E-18 1.000 220.0 5.820E-18 1.000 222.0 5.780E-18 1.000 224.0 5.580E-18 1.000 226.0 5.270E-18 1.000 228.0 4.870E-18 1.000 230.0 4.410E-18 1.000 232.0 3.970E-18 1.000 234.0 3.620E-18 1.000 236.0 3.240E-18 1.000 238.0 2.950E-18 1.000 240.0 2.730E-18 1.000 242.0 2.530E-18 1.000 244.0 2.340E-18 1.000 246.0 2.140E-18 1.000 248.0 1.940E-18 1.000 250.0 1.740E-18 1.000 252.0 1.580E-18 1.000 254.0 1.360E-18 1.000 256.0 1.160E-18 1.000 258.0 9.860E-19 1.000 260.0 8.280E-19 1.000 262.0 6.890E-19 1.000 264.0 5.690E-19 1.000 266.0 4.670E-19 1.000 268.0 3.800E-19 1.000 270.0 3.080E-19 1.000 272.0 2.480E-19 1.000 274.0 1.980E-19 1.000 276.0 1.580E-19 1.000 278.0 1.250E-19 1.000 280.0 9.880E-20 1.000 282.0 7.770E-20 1.000 284.0 6.100E-20 1.000 286.0 4.810E-20 1.000 288.0 3.750E-20 1.000 290.0 2.880E-20 1.000 292.0 2.220E-20 1.000 294.0 1.700E-20 1.000 296.0 1.280E-20 1.000 298.0 9.510E-21 1.000 300.0 7.190E-21 1.000 302.0 5.300E-21 1.000 304.0 3.940E-21 1.000 306.0 2.980E-21 1.000 308.0 2.260E-21 1.000 310.0 1.710E-21 1.000 312.0 1.270E-21 1.000 314.0 9.500E-22 1.000 316.0 7.100E-22 1.000 318.0 5.300E-22 1.000 320.0 3.900E-22 1.000 322.0 2.900E-22 1.000 324.0 2.100E-22 1.000 326.0 1.600E-22 1.000 328.0 9.000E-23 1.000 330.0 9.000E-23 1.000 332.0 7.000E-23 1.000 334.0 5.000E-23 1.000 336.0 4.000E-23 1.000 338.0 3.000E-23 1.000 340.0 2.000E-23 1.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/CHBRCL2_BILDE1998 ================================================ MBC2 ! CHBRCL2 + HV = BR ! CHBRCL2 Photolysis data. ! Supplied by Brett Gantt ! Created from Bilde et al. J Phys Chem A 1998 (Figure 9 at 298K) Points (the mechanism was evaluated assuming this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 210.0 7.000E-19 1.000 215.0 7.250E-19 1.000 220.0 7.500E-19 1.000 225.0 6.500E-19 1.000 230.0 6.000E-19 1.000 235.0 5.000E-19 1.000 240.0 4.000E-19 1.000 245.0 3.250E-19 1.000 250.0 2.500E-19 1.000 255.0 1.750E-19 1.000 260.0 9.000E-20 1.000 265.0 6.000E-20 1.000 270.0 3.000E-20 1.000 275.0 1.500E-20 1.000 280.0 9.000E-21 1.000 285.0 6.000E-21 1.000 290.0 4.500E-21 1.000 295.0 3.000E-21 1.000 300.0 1.500E-21 1.000 305.0 9.000E-22 1.000 310.0 6.500E-22 1.000 315.0 4.000E-22 1.000 320.0 1.750E-22 1.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/CL2 ================================================ CL2 ! CL2 + HV = 2 CL ! FROM IUPAC EVALUATION (1996) ! RECOMMEND UNIT QUANTUM YIELD ! Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 260.0 2.000E-21 1.0000 270.0 8.200E-21 1.0000 280.0 2.600E-20 1.0000 290.0 6.200E-20 1.0000 300.0 1.190E-19 1.0000 310.0 1.850E-19 1.0000 320.0 2.370E-19 1.0000 330.0 2.550E-19 1.0000 340.0 2.350E-19 1.0000 350.0 1.880E-19 1.0000 360.0 1.320E-19 1.0000 370.0 8.400E-20 1.0000 380.0 5.000E-20 1.0000 390.0 2.900E-20 1.0000 400.0 1.800E-20 1.0000 410.0 1.300E-20 1.0000 420.0 9.600E-21 1.0000 430.0 7.300E-21 1.0000 440.0 5.400E-21 1.0000 450.0 3.800E-21 1.0000 460.0 2.600E-21 1.0000 470.0 1.600E-21 1.0000 480.0 0.000E+00 1.0000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/CL2_IUPAC04 ================================================ CL2_IUPAC04 ! CL2 + HV = 2*CL ! 260 nm and 470 nm ! IUPAC Subcommittee on Gas Kinetic Data Evaluation; Data Sheet PCl11 Website: 15th December 2000 ! Website: http://www.iupac-kinetic.ch.cam.ac.uk between 260 nm and 470 nm ! > 260 nm ! J. Tellinghuisen, "Precise equilibrium constants from spectrophotometric data: ! BrCl in Br2/Cl2," J. Phys. Chem. A 107, 753-757 (2003) ! > 470 nm ! NASA JPL (2015) recommendation ! Assume these are point values (not specified in data source) POINT ! With FAC, units are (cm^2/molecule) FAC=1.0 200 6.50e-22 1 210 1.91e-22 1 220 1.53e-22 1 230 2.30e-22 1 240 1.53e-22 1 250 4.59e-22 1 260 2.0E-21 1 270 8.2E-21 1 280 2.6E-20 1 290 6.2E-20 1 300 1.19E-19 1 310 1.85E-19 1 320 2.37E-19 1 330 2.55E-19 1 340 2.35E-19 1 350 1.88E-19 1 360 1.32E-19 1 370 8.4E-20 1 380 5.0E-20 1 390 2.9E-20 1 400 1.8E-20 1 410 1.3E-20 1 420 9.6E-21 1 430 7.3E-21 1 440 5.4E-21 1 450 3.8E-21 1 460 2.6E-21 1 470 1.6E-21 1 480 9.57E-22 1 490 5.34E-22 1 500 2.83E-22 1 510 1.42E-22 1 520 6.81E-23 1 530 3.13E-23 1 540 1.37E-23 1 550 5.80E-23 1 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/CL2_IUPAC04_mod ================================================ CL2_IUPAC04 ! CL2 + HV = 2*CL ! 260 nm and 470 nm ! IUPAC Subcommittee on Gas Kinetic Data Evaluation; Data Sheet PCl11 Website: 15th December 2000 ! Website: http://www.iupac-kinetic.ch.cam.ac.uk between 260 nm and 470 nm ! > 260 nm ! J. Tellinghuisen, "Precise equilibrium constants from spectrophotometric data: ! BrCl in Br2/Cl2," J. Phys. Chem. A 107, 753-757 (2003) ! > 470 nm ! NASA JPL (2015) recommendation ! Assume these are point values (not specified in data source) POINT ! With FAC, units are (cm^2/molecule) FAC=1.0 200 6.50e-22 1 210 1.91e-22 1 220 1.53e-22 1 230 2.30e-22 1 240 1.53e-22 1 250 4.59e-22 1 260 2.0E-21 1 270 8.2E-21 1 280 2.6E-20 1 290 6.2E-20 1 300 1.19E-19 1 310 1.85E-19 1 320 2.37E-19 1 330 2.55E-19 1 340 2.35E-19 1 350 1.88E-19 1 360 1.32E-19 1 370 8.4E-20 1 380 5.0E-20 1 390 2.9E-20 1 400 1.8E-20 1 410 1.3E-20 1 420 9.6E-21 1 430 7.3E-21 1 440 5.4E-21 1 450 3.8E-21 1 460 2.6E-21 1 470 1.6E-21 1 480 9.57E-22 1 490 5.34E-22 1 500 2.83E-22 1 510 1.42E-22 1 520 6.81E-23 1 530 3.13E-23 1 540 1.37E-23 1 550 5.80E-23 1 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/CLACET ================================================ CLACET ! Chloroacetone absorption cross sections ! Chloroacetone absorption cross sections ! Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 210.0 2.200E-19 1.0000 211.0 2.300E-19 1.0000 212.0 2.430E-19 1.0000 213.0 2.550E-19 1.0000 214.0 2.640E-19 1.0000 215.0 2.750E-19 1.0000 216.0 2.890E-19 1.0000 217.0 3.010E-19 1.0000 218.0 3.090E-19 1.0000 219.0 3.170E-19 1.0000 220.0 3.240E-19 1.0000 221.0 3.280E-19 1.0000 222.0 3.320E-19 1.0000 223.0 3.350E-19 1.0000 224.0 3.350E-19 1.0000 225.0 3.300E-19 1.0000 226.0 3.230E-19 1.0000 227.0 3.180E-19 1.0000 228.0 3.130E-19 1.0000 229.0 3.030E-19 1.0000 230.0 2.890E-19 1.0000 231.0 2.730E-19 1.0000 232.0 2.570E-19 1.0000 233.0 2.400E-19 1.0000 234.0 2.220E-19 1.0000 235.0 2.030E-19 1.0000 236.0 1.840E-19 1.0000 237.0 1.650E-19 1.0000 238.0 1.460E-19 1.0000 239.0 1.270E-19 1.0000 240.0 1.100E-19 1.0000 241.0 9.500E-20 1.0000 242.0 8.150E-20 1.0000 243.0 6.930E-20 1.0000 244.0 5.850E-20 1.0000 245.0 4.950E-20 1.0000 246.0 4.260E-20 1.0000 247.0 3.740E-20 1.0000 248.0 3.360E-20 1.0000 249.0 3.110E-20 1.0000 250.0 2.960E-20 1.0000 251.0 2.900E-20 1.0000 252.0 2.920E-20 1.0000 253.0 3.000E-20 1.0000 254.0 3.100E-20 1.0000 255.0 3.240E-20 1.0000 256.0 3.390E-20 1.0000 257.0 3.560E-20 1.0000 258.0 3.750E-20 1.0000 259.0 3.970E-20 1.0000 260.0 4.190E-20 1.0000 261.0 4.400E-20 1.0000 262.0 4.630E-20 1.0000 263.0 4.860E-20 1.0000 264.0 5.120E-20 1.0000 265.0 5.380E-20 1.0000 266.0 5.650E-20 1.0000 267.0 5.890E-20 1.0000 268.0 6.140E-20 1.0000 269.0 6.390E-20 1.0000 270.0 6.650E-20 1.0000 271.0 6.930E-20 1.0000 272.0 7.200E-20 1.0000 273.0 7.470E-20 1.0000 274.0 7.710E-20 1.0000 275.0 7.940E-20 1.0000 276.0 8.160E-20 1.0000 277.0 8.370E-20 1.0000 278.0 8.590E-20 1.0000 279.0 8.820E-20 1.0000 280.0 9.030E-20 1.0000 281.0 9.230E-20 1.0000 282.0 9.410E-20 1.0000 283.0 9.560E-20 1.0000 284.0 9.690E-20 1.0000 285.0 9.800E-20 1.0000 286.0 9.890E-20 1.0000 287.0 9.980E-20 1.0000 288.0 1.000E-19 1.0000 289.0 1.010E-19 1.0000 290.0 1.020E-19 1.0000 291.0 1.020E-19 1.0000 292.0 1.020E-19 1.0000 293.0 1.020E-19 1.0000 294.0 1.010E-19 1.0000 295.0 1.000E-19 1.0000 296.0 9.890E-20 1.0000 297.0 9.770E-20 1.0000 298.0 9.660E-20 1.0000 299.0 9.540E-20 1.0000 300.0 9.410E-20 1.0000 301.0 9.250E-20 1.0000 302.0 9.040E-20 1.0000 303.0 8.800E-20 1.0000 304.0 8.530E-20 1.0000 305.0 8.240E-20 1.0000 306.0 7.940E-20 1.0000 307.0 7.630E-20 1.0000 308.0 7.340E-20 1.0000 309.0 7.060E-20 1.0000 310.0 6.770E-20 1.0000 311.0 6.500E-20 1.0000 312.0 6.220E-20 1.0000 313.0 5.930E-20 1.0000 314.0 5.610E-20 1.0000 315.0 5.280E-20 1.0000 316.0 4.920E-20 1.0000 317.0 4.570E-20 1.0000 318.0 4.220E-20 1.0000 319.0 3.890E-20 1.0000 320.0 3.580E-20 1.0000 321.0 3.300E-20 1.0000 322.0 3.040E-20 1.0000 323.0 2.800E-20 1.0000 324.0 2.580E-20 1.0000 325.0 2.370E-20 1.0000 326.0 2.160E-20 1.0000 327.0 1.950E-20 1.0000 328.0 1.730E-20 1.0000 329.0 1.520E-20 1.0000 330.0 1.330E-20 1.0000 331.0 1.140E-20 1.0000 332.0 9.790E-21 1.0000 333.0 8.320E-21 1.0000 334.0 7.070E-21 1.0000 335.0 5.980E-21 1.0000 336.0 5.060E-21 1.0000 337.0 4.270E-21 1.0000 338.0 3.610E-21 1.0000 339.0 3.020E-21 1.0000 340.0 2.520E-21 1.0000 341.0 2.120E-21 1.0000 342.0 1.760E-21 1.0000 343.0 1.450E-21 1.0000 344.0 1.200E-21 1.0000 345.0 1.030E-21 1.0000 346.0 8.870E-22 1.0000 347.0 7.570E-22 1.0000 348.0 6.420E-22 1.0000 349.0 5.470E-22 1.0000 350.0 4.580E-22 1.0000 351.0 4.110E-22 1.0000 352.0 3.280E-22 1.0000 353.0 3.190E-22 1.0000 354.0 2.200E-22 1.0000 355.0 1.930E-22 1.0000 356.0 1.380E-22 1.0000 357.0 1.340E-22 1.0000 358.0 9.170E-23 1.0000 359.0 1.550E-22 1.0000 360.0 1.280E-22 1.0000 365.0 0.000E+00 1.0000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/CLCCHO ================================================ CLCCHO ! Chloroacetaldehyde absorption cross sections ! NASA (2006) evaluation Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 240.0 9.520E-21 1.0000 241.0 8.870E-21 1.0000 242.0 8.850E-21 1.0000 243.0 8.810E-21 1.0000 244.0 8.450E-21 1.0000 245.0 8.140E-21 1.0000 246.0 8.150E-21 1.0000 247.0 8.410E-21 1.0000 248.0 8.570E-21 1.0000 249.0 8.640E-21 1.0000 250.0 8.750E-21 1.0000 251.0 8.840E-21 1.0000 252.0 9.260E-21 1.0000 253.0 9.590E-21 1.0000 254.0 9.770E-21 1.0000 255.0 1.010E-20 1.0000 256.0 1.080E-20 1.0000 257.0 1.180E-20 1.0000 258.0 1.230E-20 1.0000 259.0 1.280E-20 1.0000 260.0 1.330E-20 1.0000 261.0 1.420E-20 1.0000 262.0 1.530E-20 1.0000 263.0 1.680E-20 1.0000 264.0 1.840E-20 1.0000 265.0 1.910E-20 1.0000 266.0 1.980E-20 1.0000 267.0 2.080E-20 1.0000 268.0 2.230E-20 1.0000 269.0 2.330E-20 1.0000 270.0 2.460E-20 1.0000 271.0 2.650E-20 1.0000 272.0 2.850E-20 1.0000 273.0 2.980E-20 1.0000 274.0 3.040E-20 1.0000 275.0 3.130E-20 1.0000 276.0 3.290E-20 1.0000 277.0 3.380E-20 1.0000 278.0 3.570E-20 1.0000 279.0 3.820E-20 1.0000 280.0 3.990E-20 1.0000 281.0 4.230E-20 1.0000 282.0 4.090E-20 1.0000 283.0 4.150E-20 1.0000 284.0 4.310E-20 1.0000 285.0 4.550E-20 1.0000 286.0 4.640E-20 1.0000 287.0 4.800E-20 1.0000 288.0 4.990E-20 1.0000 289.0 5.030E-20 1.0000 290.0 5.200E-20 1.0000 291.0 4.950E-20 1.0000 292.0 4.940E-20 1.0000 293.0 5.140E-20 1.0000 294.0 5.480E-20 1.0000 295.0 5.470E-20 1.0000 296.0 5.640E-20 1.0000 297.0 5.560E-20 1.0000 298.0 5.750E-20 1.0000 299.0 5.630E-20 1.0000 300.0 5.570E-20 1.0000 301.0 5.100E-20 1.0000 302.0 4.920E-20 1.0000 303.0 5.010E-20 1.0000 304.0 5.300E-20 1.0000 305.0 5.270E-20 1.0000 306.0 5.480E-20 1.0000 307.0 5.340E-20 1.0000 308.0 5.440E-20 1.0000 309.0 5.370E-20 1.0000 310.0 5.030E-20 1.0000 311.0 4.610E-20 1.0000 312.0 3.920E-20 1.0000 313.0 3.710E-20 1.0000 314.0 3.730E-20 1.0000 315.0 3.960E-20 1.0000 316.0 3.850E-20 1.0000 317.0 4.160E-20 1.0000 318.0 3.840E-20 1.0000 319.0 3.780E-20 1.0000 320.0 3.840E-20 1.0000 321.0 3.430E-20 1.0000 322.0 3.260E-20 1.0000 323.0 2.490E-20 1.0000 324.0 2.110E-20 1.0000 325.0 1.920E-20 1.0000 326.0 1.870E-20 1.0000 327.0 1.870E-20 1.0000 328.0 1.700E-20 1.0000 329.0 1.920E-20 1.0000 330.0 1.640E-20 1.0000 331.0 1.520E-20 1.0000 332.0 1.680E-20 1.0000 333.0 1.420E-20 1.0000 334.0 1.360E-20 1.0000 335.0 1.060E-20 1.0000 336.0 7.470E-21 1.0000 337.0 6.220E-21 1.0000 338.0 5.020E-21 1.0000 339.0 4.110E-21 1.0000 340.0 3.400E-21 1.0000 341.0 2.810E-21 1.0000 342.0 2.470E-21 1.0000 343.0 2.130E-21 1.0000 344.0 1.900E-21 1.0000 345.0 1.590E-21 1.0000 346.0 1.360E-21 1.0000 347.0 9.770E-22 1.0000 348.0 7.910E-22 1.0000 349.0 6.230E-22 1.0000 350.0 5.450E-22 1.0000 351.0 5.580E-22 1.0000 352.0 6.030E-22 1.0000 353.0 6.330E-22 1.0000 354.0 5.650E-22 1.0000 355.0 3.770E-22 1.0000 356.0 2.390E-22 1.0000 357.0 1.230E-22 1.0000 358.0 0.000E+00 1.0000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/CLNO-06 ================================================ CLNO-06 ! CLNO absorption cross sections recommended by IUPAC (2005) ! Wavelength where absorption goes to zero est'd by extrapolation ! Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 280.0 1.060E-19 1.0000 282.0 1.020E-19 1.0000 284.0 9.990E-20 1.0000 286.0 9.840E-20 1.0000 288.0 9.710E-20 1.0000 290.0 9.640E-20 1.0000 292.0 9.630E-20 1.0000 294.0 9.690E-20 1.0000 296.0 9.710E-20 1.0000 298.0 9.890E-20 1.0000 300.0 1.000E-19 1.0000 302.0 1.030E-19 1.0000 304.0 1.050E-19 1.0000 306.0 1.080E-19 1.0000 308.0 1.110E-19 1.0000 310.0 1.150E-19 1.0000 312.0 1.190E-19 1.0000 314.0 1.220E-19 1.0000 316.0 1.250E-19 1.0000 318.0 1.300E-19 1.0000 320.0 1.340E-19 1.0000 322.0 1.360E-19 1.0000 324.0 1.400E-19 1.0000 326.0 1.430E-19 1.0000 328.0 1.460E-19 1.0000 330.0 1.470E-19 1.0000 332.0 1.490E-19 1.0000 334.0 1.510E-19 1.0000 336.0 1.530E-19 1.0000 338.0 1.530E-19 1.0000 340.0 1.520E-19 1.0000 342.0 1.530E-19 1.0000 344.0 1.510E-19 1.0000 346.0 1.510E-19 1.0000 348.0 1.490E-19 1.0000 350.0 1.450E-19 1.0000 355.0 1.360E-19 1.0000 360.0 1.290E-19 1.0000 365.0 1.200E-19 1.0000 370.0 1.100E-19 1.0000 375.0 9.950E-20 1.0000 380.0 8.860E-20 1.0000 385.0 7.820E-20 1.0000 390.0 6.860E-20 1.0000 395.0 5.970E-20 1.0000 400.0 5.130E-20 1.0000 405.0 4.400E-20 1.0000 410.0 3.830E-20 1.0000 415.0 3.380E-20 1.0000 420.0 2.890E-20 1.0000 425.0 2.450E-20 1.0000 430.0 2.210E-20 1.0000 435.0 2.200E-20 1.0000 440.0 2.200E-20 1.0000 445.0 2.070E-20 1.0000 450.0 1.870E-20 1.0000 455.0 1.790E-20 1.0000 460.0 1.950E-20 1.0000 465.0 2.250E-20 1.0000 470.0 2.500E-20 1.0000 475.0 2.610E-20 1.0000 480.0 2.530E-20 1.0000 485.0 2.330E-20 1.0000 490.0 2.070E-20 1.0000 495.0 1.780E-20 1.0000 500.0 1.500E-20 1.0000 527.0 0.000E+00 1.0000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/CLNO2 ================================================ CLNO2 ! CLNO2 + HV = CL + NO2 ! FROM IUPAC EVALUATION (1996) ! RECOMMEND UNIT QUANTUM YILED Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 190.0 2.690E-17 1.0000 200.0 4.680E-18 1.0000 210.0 3.200E-18 1.0000 220.0 3.390E-18 1.0000 230.0 2.260E-18 1.0000 240.0 1.330E-18 1.0000 250.0 9.060E-19 1.0000 260.0 6.130E-19 1.0000 270.0 3.530E-19 1.0000 280.0 2.200E-19 1.0000 290.0 1.730E-19 1.0000 300.0 1.490E-19 1.0000 310.0 1.210E-19 1.0000 320.0 8.870E-20 1.0000 330.0 5.840E-20 1.0000 340.0 3.540E-20 1.0000 350.0 2.040E-20 1.0000 360.0 1.150E-20 1.0000 370.0 6.900E-21 1.0000 380.0 0.000E+00 1.0000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/CLNO2_IUPAC13 ================================================ CLNO2_IUPAC13 ! CLNO2 + HV = CL + NO2 ! ! Based on IUPAC EVALUATION (2013) ! Data Sheet III.A5.110 PCl9 !RECOMMEND QUANTUM YIELD: one ! !Cross Section: ! B. Ghosh, D.K. Papanastasiou, R.K. Talukdar, J.M. Roberts, and J.B. Burkholder, ! Nitryl chloride (ClNO2): UV/Vis absorption spectrum between 210 and 296 K and ! O(3P) quantum yield at 193 and 248 nm," J. Phys. Chem. A 116, 5796-5805 (2012); ! DOI: 10.1021/jp207389y Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 190.00 2.690E-17 1.0000 200.00 4.015e-18 1.0000 201.00 3.640e-18 1.0000 202.00 3.360e-18 1.0000 203.00 3.186e-18 1.0000 204.00 3.095e-18 1.0000 205.00 3.056e-18 1.0000 206.00 3.060e-18 1.0000 207.00 3.091e-18 1.0000 208.00 3.141e-18 1.0000 209.00 3.200e-18 1.0000 210.00 3.262e-18 1.0000 211.00 3.325e-18 1.0000 212.00 3.383e-18 1.0000 213.00 3.427e-18 1.0000 214.00 3.458e-18 1.0000 215.00 3.478e-18 1.0000 216.00 3.481e-18 1.0000 217.00 3.467e-18 1.0000 218.00 3.436e-18 1.0000 219.00 3.387e-18 1.0000 220.00 3.321e-18 1.0000 220.25 3.302e-18 1.0000 220.50 3.282e-18 1.0000 220.75 3.262e-18 1.0000 221.00 3.240e-18 1.0000 221.25 3.218e-18 1.0000 221.50 3.195e-18 1.0000 221.75 3.172e-18 1.0000 222.00 3.148e-18 1.0000 222.25 3.124e-18 1.0000 222.50 3.099e-18 1.0000 222.75 3.074e-18 1.0000 223.00 3.049e-18 1.0000 223.25 3.023e-18 1.0000 223.50 2.996e-18 1.0000 223.75 2.968e-18 1.0000 224.00 2.939e-18 1.0000 224.25 2.910e-18 1.0000 224.50 2.879e-18 1.0000 224.75 2.848e-18 1.0000 225.00 2.816e-18 1.0000 225.25 2.785e-18 1.0000 225.50 2.753e-18 1.0000 225.75 2.722e-18 1.0000 226.00 2.690e-18 1.0000 226.25 2.659e-18 1.0000 226.50 2.628e-18 1.0000 226.75 2.597e-18 1.0000 227.00 2.566e-18 1.0000 227.25 2.536e-18 1.0000 227.50 2.506e-18 1.0000 227.75 2.476e-18 1.0000 228.00 2.447e-18 1.0000 228.25 2.417e-18 1.0000 228.50 2.386e-18 1.0000 228.75 2.356e-18 1.0000 229.00 2.324e-18 1.0000 229.25 2.293e-18 1.0000 229.50 2.262e-18 1.0000 229.75 2.232e-18 1.0000 230.00 2.203e-18 1.0000 230.25 2.174e-18 1.0000 230.50 2.145e-18 1.0000 230.75 2.117e-18 1.0000 231.00 2.088e-18 1.0000 231.25 2.060e-18 1.0000 231.50 2.032e-18 1.0000 231.75 2.006e-18 1.0000 232.00 1.980e-18 1.0000 232.25 1.954e-18 1.0000 232.50 1.929e-18 1.0000 232.75 1.904e-18 1.0000 233.00 1.879e-18 1.0000 233.25 1.853e-18 1.0000 233.50 1.827e-18 1.0000 233.75 1.803e-18 1.0000 234.00 1.780e-18 1.0000 234.25 1.758e-18 1.0000 234.50 1.737e-18 1.0000 234.75 1.716e-18 1.0000 235.00 1.696e-18 1.0000 235.25 1.676e-18 1.0000 235.50 1.655e-18 1.0000 235.75 1.634e-18 1.0000 236.00 1.613e-18 1.0000 236.25 1.592e-18 1.0000 236.50 1.573e-18 1.0000 236.75 1.556e-18 1.0000 237.00 1.539e-18 1.0000 237.25 1.522e-18 1.0000 237.50 1.504e-18 1.0000 237.75 1.486e-18 1.0000 238.00 1.467e-18 1.0000 238.25 1.449e-18 1.0000 238.50 1.431e-18 1.0000 238.75 1.415e-18 1.0000 239.00 1.402e-18 1.0000 239.25 1.389e-18 1.0000 239.50 1.376e-18 1.0000 239.75 1.362e-18 1.0000 240.00 1.348e-18 1.0000 240.25 1.334e-18 1.0000 240.50 1.319e-18 1.0000 240.75 1.304e-18 1.0000 241.00 1.291e-18 1.0000 241.25 1.278e-18 1.0000 241.50 1.265e-18 1.0000 241.75 1.253e-18 1.0000 242.00 1.242e-18 1.0000 242.25 1.231e-18 1.0000 242.50 1.220e-18 1.0000 242.75 1.207e-18 1.0000 243.00 1.193e-18 1.0000 243.25 1.180e-18 1.0000 243.50 1.168e-18 1.0000 243.75 1.156e-18 1.0000 244.00 1.146e-18 1.0000 244.25 1.137e-18 1.0000 244.50 1.129e-18 1.0000 244.75 1.122e-18 1.0000 245.00 1.112e-18 1.0000 245.25 1.101e-18 1.0000 245.50 1.089e-18 1.0000 245.75 1.077e-18 1.0000 246.00 1.065e-18 1.0000 246.25 1.055e-18 1.0000 246.50 1.047e-18 1.0000 246.75 1.040e-18 1.0000 247.00 1.033e-18 1.0000 247.25 1.024e-18 1.0000 247.50 1.017e-18 1.0000 247.75 1.008e-18 1.0000 248.00 9.975e-19 1.0000 248.25 9.848e-19 1.0000 248.50 9.740e-19 1.0000 248.75 9.645e-19 1.0000 249.00 9.560e-19 1.0000 249.25 9.488e-19 1.0000 249.50 9.418e-19 1.0000 249.75 9.352e-19 1.0000 250.00 9.286e-19 1.0000 250.25 9.197e-19 1.0000 250.50 9.092e-19 1.0000 250.75 8.981e-19 1.0000 251.00 8.867e-19 1.0000 251.25 8.757e-19 1.0000 251.50 8.670e-19 1.0000 251.75 8.595e-19 1.0000 252.00 8.529e-19 1.0000 252.25 8.471e-19 1.0000 252.50 8.404e-19 1.0000 252.75 8.328e-19 1.0000 253.00 8.243e-19 1.0000 253.25 8.149e-19 1.0000 253.50 8.047e-19 1.0000 253.75 7.952e-19 1.0000 254.00 7.864e-19 1.0000 254.25 7.783e-19 1.0000 254.50 7.718e-19 1.0000 254.75 7.655e-19 1.0000 255.00 7.594e-19 1.0000 255.25 7.530e-19 1.0000 255.50 7.454e-19 1.0000 255.75 7.365e-19 1.0000 256.00 7.269e-19 1.0000 256.25 7.167e-19 1.0000 256.50 7.064e-19 1.0000 256.75 6.966e-19 1.0000 257.00 6.881e-19 1.0000 257.25 6.806e-19 1.0000 257.50 6.738e-19 1.0000 257.75 6.673e-19 1.0000 258.00 6.607e-19 1.0000 258.25 6.535e-19 1.0000 258.50 6.457e-19 1.0000 258.75 6.370e-19 1.0000 259.00 6.280e-19 1.0000 259.25 6.192e-19 1.0000 259.50 6.108e-19 1.0000 259.75 6.031e-19 1.0000 260.00 5.959e-19 1.0000 260.25 5.893e-19 1.0000 260.50 5.832e-19 1.0000 260.75 5.767e-19 1.0000 261.00 5.702e-19 1.0000 261.25 5.632e-19 1.0000 261.50 5.557e-19 1.0000 261.75 5.476e-19 1.0000 262.00 5.395e-19 1.0000 262.25 5.315e-19 1.0000 262.50 5.238e-19 1.0000 262.75 5.164e-19 1.0000 263.00 5.101e-19 1.0000 263.25 5.040e-19 1.0000 263.50 4.981e-19 1.0000 263.75 4.921e-19 1.0000 264.00 4.859e-19 1.0000 264.25 4.793e-19 1.0000 264.50 4.725e-19 1.0000 264.75 4.656e-19 1.0000 265.00 4.586e-19 1.0000 265.25 4.515e-19 1.0000 265.50 4.447e-19 1.0000 265.75 4.384e-19 1.0000 266.00 4.325e-19 1.0000 266.25 4.267e-19 1.0000 266.50 4.212e-19 1.0000 266.75 4.159e-19 1.0000 267.00 4.103e-19 1.0000 267.25 4.047e-19 1.0000 267.50 3.990e-19 1.0000 267.75 3.933e-19 1.0000 268.00 3.876e-19 1.0000 268.25 3.817e-19 1.0000 268.50 3.761e-19 1.0000 268.75 3.708e-19 1.0000 269.00 3.658e-19 1.0000 269.25 3.611e-19 1.0000 269.50 3.565e-19 1.0000 269.75 3.520e-19 1.0000 270.00 3.477e-19 1.0000 270.25 3.433e-19 1.0000 270.50 3.387e-19 1.0000 270.75 3.343e-19 1.0000 271.00 3.300e-19 1.0000 271.25 3.254e-19 1.0000 271.50 3.210e-19 1.0000 271.75 3.166e-19 1.0000 272.00 3.123e-19 1.0000 272.25 3.081e-19 1.0000 272.50 3.042e-19 1.0000 272.75 3.003e-19 1.0000 273.00 2.965e-19 1.0000 273.25 2.929e-19 1.0000 273.50 2.892e-19 1.0000 273.75 2.855e-19 1.0000 274.00 2.819e-19 1.0000 274.25 2.783e-19 1.0000 274.50 2.749e-19 1.0000 274.75 2.715e-19 1.0000 275.00 2.682e-19 1.0000 275.25 2.651e-19 1.0000 275.50 2.619e-19 1.0000 275.75 2.588e-19 1.0000 276.00 2.559e-19 1.0000 276.25 2.532e-19 1.0000 276.50 2.505e-19 1.0000 276.75 2.477e-19 1.0000 277.00 2.450e-19 1.0000 277.25 2.424e-19 1.0000 277.50 2.398e-19 1.0000 277.75 2.374e-19 1.0000 278.00 2.350e-19 1.0000 278.25 2.327e-19 1.0000 278.50 2.303e-19 1.0000 278.75 2.281e-19 1.0000 279.00 2.259e-19 1.0000 279.25 2.237e-19 1.0000 279.50 2.216e-19 1.0000 279.75 2.197e-19 1.0000 280.00 2.177e-19 1.0000 281.00 2.101e-19 1.0000 282.00 2.033e-19 1.0000 283.00 1.975e-19 1.0000 284.00 1.922e-19 1.0000 285.00 1.876e-19 1.0000 286.00 1.833e-19 1.0000 287.00 1.794e-19 1.0000 288.00 1.760e-19 1.0000 289.00 1.731e-19 1.0000 290.00 1.701e-19 1.0000 291.00 1.677e-19 1.0000 292.00 1.654e-19 1.0000 293.00 1.630e-19 1.0000 294.00 1.605e-19 1.0000 295.00 1.583e-19 1.0000 296.00 1.564e-19 1.0000 297.00 1.543e-19 1.0000 298.00 1.522e-19 1.0000 299.00 1.500e-19 1.0000 300.00 1.476e-19 1.0000 301.00 1.451e-19 1.0000 302.00 1.426e-19 1.0000 303.00 1.401e-19 1.0000 304.00 1.375e-19 1.0000 305.00 1.349e-19 1.0000 306.00 1.321e-19 1.0000 307.00 1.292e-19 1.0000 308.00 1.263e-19 1.0000 309.00 1.234e-19 1.0000 310.00 1.203e-19 1.0000 311.00 1.172e-19 1.0000 312.00 1.141e-19 1.0000 313.00 1.108e-19 1.0000 314.00 1.075e-19 1.0000 315.00 1.042e-19 1.0000 316.00 1.009e-19 1.0000 317.00 9.764e-20 1.0000 318.00 9.443e-20 1.0000 319.00 9.124e-20 1.0000 320.00 8.808e-20 1.0000 321.00 8.493e-20 1.0000 322.00 8.176e-20 1.0000 323.00 7.853e-20 1.0000 324.00 7.545e-20 1.0000 325.00 7.241e-20 1.0000 326.00 6.942e-20 1.0000 327.00 6.650e-20 1.0000 328.00 6.367e-20 1.0000 329.00 6.092e-20 1.0000 330.00 5.825e-20 1.0000 331.00 5.564e-20 1.0000 332.00 5.307e-20 1.0000 333.00 5.057e-20 1.0000 334.00 4.823e-20 1.0000 335.00 4.593e-20 1.0000 336.00 4.369e-20 1.0000 337.00 4.157e-20 1.0000 338.00 3.953e-20 1.0000 339.00 3.754e-20 1.0000 340.00 3.563e-20 1.0000 341.00 3.381e-20 1.0000 342.00 3.207e-20 1.0000 343.00 3.039e-20 1.0000 344.00 2.879e-20 1.0000 345.00 2.726e-20 1.0000 346.00 2.580e-20 1.0000 347.00 2.444e-20 1.0000 348.00 2.313e-20 1.0000 349.00 2.191e-20 1.0000 350.00 2.071e-20 1.0000 351.00 1.958e-20 1.0000 352.00 1.853e-20 1.0000 353.00 1.750e-20 1.0000 354.00 1.651e-20 1.0000 355.00 1.558e-20 1.0000 356.00 1.471e-20 1.0000 357.00 1.389e-20 1.0000 358.00 1.310e-20 1.0000 359.00 1.237e-20 1.0000 360.00 1.167e-20 1.0000 361.00 1.100e-20 1.0000 362.00 1.038e-20 1.0000 363.00 9.787e-21 1.0000 364.00 9.227e-21 1.0000 365.00 8.697e-21 1.0000 366.00 8.192e-21 1.0000 367.00 7.728e-21 1.0000 368.00 7.283e-21 1.0000 369.00 6.875e-21 1.0000 370.00 6.482e-21 1.0000 371.00 6.107e-21 1.0000 372.00 5.759e-21 1.0000 373.00 5.429e-21 1.0000 374.00 5.116e-21 1.0000 375.00 4.818e-21 1.0000 376.00 4.544e-21 1.0000 377.00 4.275e-21 1.0000 378.00 4.030e-21 1.0000 379.00 3.799e-21 1.0000 380.00 3.580e-21 1.0000 381.00 3.378e-21 1.0000 382.00 3.180e-21 1.0000 383.00 3.010e-21 1.0000 384.00 2.839e-21 1.0000 385.00 2.679e-21 1.0000 386.00 2.529e-21 1.0000 387.00 2.378e-21 1.0000 388.00 2.242e-21 1.0000 389.00 2.126e-21 1.0000 390.00 2.009e-21 1.0000 391.00 1.890e-21 1.0000 392.00 1.774e-21 1.0000 393.00 1.675e-21 1.0000 394.00 1.579e-21 1.0000 395.00 1.495e-21 1.0000 396.00 1.411e-21 1.0000 397.00 1.328e-21 1.0000 398.00 1.249e-21 1.0000 399.00 1.185e-21 1.0000 400.00 1.124e-21 1.0000 401.00 1.062e-21 1.0000 402.00 1.004e-21 1.0000 403.00 9.484e-22 1.0000 404.00 8.915e-22 1.0000 405.00 8.394e-22 1.0000 406.00 7.958e-22 1.0000 407.00 7.606e-22 1.0000 408.00 7.151e-22 1.0000 409.00 6.751e-22 1.0000 410.00 6.418e-22 1.0000 411.00 6.082e-22 1.0000 412.00 5.695e-22 1.0000 413.00 5.362e-22 1.0000 414.00 5.123e-22 1.0000 415.00 4.862e-22 1.0000 416.00 4.600e-22 1.0000 417.00 4.344e-22 1.0000 418.00 4.107e-22 1.0000 419.00 3.875e-22 1.0000 420.00 3.601e-22 1.0000 421.00 3.360e-22 1.0000 422.00 3.191e-22 1.0000 423.00 2.975e-22 1.0000 424.00 2.880e-22 1.0000 425.00 2.824e-22 1.0000 426.00 2.749e-22 1.0000 427.00 2.457e-22 1.0000 428.00 2.379e-22 1.0000 429.00 2.266e-22 1.0000 430.00 2.124e-22 1.0000 431.00 2.044e-22 1.0000 432.00 2.028e-22 1.0000 433.00 1.846e-22 1.0000 434.00 1.754e-22 1.0000 435.00 1.692e-22 1.0000 436.00 1.543e-22 1.0000 437.00 1.503e-22 1.0000 438.00 1.400e-22 1.0000 439.00 1.288e-22 1.0000 440.00 1.221e-22 1.0000 441.00 1.130e-22 1.0000 442.00 1.133e-22 1.0000 443.00 1.071e-22 1.0000 444.00 9.837e-23 1.0000 445.00 9.050e-23 1.0000 446.00 8.986e-23 1.0000 447.00 8.394e-23 1.0000 448.00 7.585e-23 1.0000 449.00 7.729e-23 1.0000 450.00 7.899e-23 1.0000 451.00 7.242e-23 1.0000 452.00 6.955e-23 1.0000 453.00 6.941e-23 1.0000 454.00 6.138e-23 1.0000 455.00 6.348e-23 1.0000 456.00 6.142e-23 1.0000 457.00 4.725e-23 1.0000 458.00 5.342e-23 1.0000 459.00 5.869e-23 1.0000 460.00 5.474e-23 1.0000 461.00 4.708e-23 1.0000 462.00 3.512e-23 1.0000 463.00 3.570e-23 1.0000 464.00 4.184e-23 1.0000 465.00 3.690e-23 1.0000 466.00 3.836e-23 1.0000 467.00 3.688e-23 1.0000 468.00 3.764e-23 1.0000 469.00 4.390e-23 1.0000 470.00 3.207e-23 1.0000 471.00 2.276e-23 1.0000 472.00 2.207e-23 1.0000 473.00 2.678e-23 1.0000 474.00 3.391e-23 1.0000 475.00 2.053e-23 1.0000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/CLNO_06 ================================================ CLNO-06 ! CLNO absorption cross sections recommended by IUPAC (2005) ! Wavelength where absorption goes to zero est'd by extrapolation ! Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 190.0 4.320E-17 1.0000 192.0 5.340E-17 1.0000 194.0 6.150E-17 1.0000 196.0 6.480E-17 1.0000 198.0 6.310E-17 1.0000 200.0 5.860E-17 1.0000 202.0 5.250E-17 1.0000 204.0 4.540E-17 1.0000 206.0 3.840E-17 1.0000 208.0 3.210E-17 1.0000 210.0 2.630E-17 1.0000 212.0 2.180E-17 1.0000 214.0 1.760E-17 1.0000 216.0 1.400E-17 1.0000 218.0 1.110E-17 1.0000 220.0 8.960E-18 1.0000 222.0 7.070E-18 1.0000 224.0 5.520E-18 1.0000 226.0 4.360E-18 1.0000 228.0 3.390E-18 1.0000 230.0 2.660E-18 1.0000 232.0 2.120E-18 1.0000 234.0 1.640E-18 1.0000 236.0 1.280E-18 1.0000 238.0 1.010E-18 1.0000 240.0 8.250E-19 1.0000 242.0 6.720E-19 1.0000 244.0 5.510E-19 1.0000 246.0 4.520E-19 1.0000 248.0 3.770E-19 1.0000 250.0 3.170E-19 1.0000 252.0 2.740E-19 1.0000 254.0 2.370E-19 1.0000 256.0 2.130E-19 1.0000 258.0 1.900E-19 1.0000 260.0 1.750E-19 1.0000 262.0 1.650E-19 1.0000 264.0 1.530E-19 1.0000 266.0 1.440E-19 1.0000 268.0 1.360E-19 1.0000 270.0 1.290E-19 1.0000 272.0 1.230E-19 1.0000 274.0 1.180E-19 1.0000 276.0 1.130E-19 1.0000 278.0 1.070E-19 1.0000 280.0 1.060E-19 1.0000 282.0 1.020E-19 1.0000 284.0 9.990E-20 1.0000 286.0 9.840E-20 1.0000 288.0 9.710E-20 1.0000 290.0 9.640E-20 1.0000 292.0 9.630E-20 1.0000 294.0 9.690E-20 1.0000 296.0 9.710E-20 1.0000 298.0 9.890E-20 1.0000 300.0 1.000E-19 1.0000 302.0 1.030E-19 1.0000 304.0 1.050E-19 1.0000 306.0 1.080E-19 1.0000 308.0 1.110E-19 1.0000 310.0 1.150E-19 1.0000 312.0 1.190E-19 1.0000 314.0 1.220E-19 1.0000 316.0 1.250E-19 1.0000 318.0 1.300E-19 1.0000 320.0 1.340E-19 1.0000 322.0 1.360E-19 1.0000 324.0 1.400E-19 1.0000 326.0 1.430E-19 1.0000 328.0 1.460E-19 1.0000 330.0 1.470E-19 1.0000 332.0 1.490E-19 1.0000 334.0 1.510E-19 1.0000 336.0 1.530E-19 1.0000 338.0 1.530E-19 1.0000 340.0 1.520E-19 1.0000 342.0 1.530E-19 1.0000 344.0 1.510E-19 1.0000 346.0 1.510E-19 1.0000 348.0 1.490E-19 1.0000 350.0 1.450E-19 1.0000 355.0 1.360E-19 1.0000 360.0 1.290E-19 1.0000 365.0 1.200E-19 1.0000 370.0 1.100E-19 1.0000 375.0 9.950E-20 1.0000 380.0 8.860E-20 1.0000 385.0 7.820E-20 1.0000 390.0 6.860E-20 1.0000 395.0 5.970E-20 1.0000 400.0 5.130E-20 1.0000 405.0 4.400E-20 1.0000 410.0 3.830E-20 1.0000 415.0 3.380E-20 1.0000 420.0 2.890E-20 1.0000 425.0 2.450E-20 1.0000 430.0 2.210E-20 1.0000 435.0 2.200E-20 1.0000 440.0 2.200E-20 1.0000 445.0 2.070E-20 1.0000 450.0 1.870E-20 1.0000 455.0 1.790E-20 1.0000 460.0 1.950E-20 1.0000 465.0 2.250E-20 1.0000 470.0 2.500E-20 1.0000 475.0 2.610E-20 1.0000 480.0 2.530E-20 1.0000 485.0 2.330E-20 1.0000 490.0 2.070E-20 1.0000 495.0 1.780E-20 1.0000 500.0 1.500E-20 1.0000 527.0 0.000E+00 1.0000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/CLONO ================================================ CLONO ! CLONO + HV = CL + NO2 ! FROM IUPAC EVALUATION (1996) Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 235.0 2.150E-18 1.0000 240.0 1.760E-18 1.0000 245.0 1.370E-18 1.0000 250.0 1.060E-18 1.0000 255.0 6.500E-19 1.0000 260.0 6.460E-19 1.0000 265.0 6.930E-19 1.0000 270.0 9.030E-19 1.0000 275.0 1.100E-18 1.0000 280.0 1.320E-18 1.0000 285.0 1.440E-18 1.0000 290.0 1.440E-18 1.0000 295.0 1.420E-18 1.0000 300.0 1.290E-18 1.0000 305.0 1.140E-18 1.0000 310.0 1.050E-18 1.0000 315.0 9.810E-19 1.0000 320.0 8.030E-19 1.0000 325.0 7.540E-19 1.0000 330.0 5.870E-19 1.0000 335.0 5.770E-19 1.0000 340.0 4.370E-19 1.0000 345.0 3.570E-19 1.0000 350.0 2.690E-19 1.0000 355.0 2.290E-19 1.0000 360.0 1.610E-19 1.0000 365.0 1.130E-19 1.0000 370.0 9.000E-20 1.0000 375.0 6.900E-20 1.0000 380.0 4.100E-20 1.0000 385.0 3.300E-20 1.0000 390.0 2.200E-20 1.0000 395.0 1.500E-20 1.0000 400.0 6.000E-21 1.0000 405.0 0.000E+00 1.0000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/CLONO2-1 ================================================ CLONO2-1 ! CLONO2 + hv = CLO. + NO2 ! CLONO2 absorption cross sections and quantum yields recommended by IUPAC (2005) ! Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 280.0 1.190E-19 0.4000 285.0 8.800E-20 0.4000 290.0 6.410E-20 0.4000 295.0 4.380E-20 0.4000 300.0 3.130E-20 0.4000 305.0 2.240E-20 0.4000 310.0 1.600E-20 0.3860 315.0 1.140E-20 0.3500 320.0 8.310E-21 0.3140 325.0 6.130E-21 0.2790 330.0 4.660E-21 0.2430 335.0 3.670E-21 0.2070 340.0 3.020E-21 0.1710 345.0 2.580E-21 0.1360 350.0 2.290E-21 0.1000 355.0 2.080E-21 0.0640 360.0 2.000E-21 0.0290 365.0 1.800E-21 0.0000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/CLONO2-2 ================================================ CLONO2-2 ! CLONO2 + hv = CL. + NO3 ! CLONO2 absorption cross sections and quantum yields recommended by IUPAC (2005) ! Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 280.0 1.190E-19 0.6000 285.0 8.800E-20 0.6000 290.0 6.410E-20 0.6000 295.0 4.380E-20 0.6000 300.0 3.130E-20 0.6000 305.0 2.240E-20 0.6000 310.0 1.600E-20 0.6140 315.0 1.140E-20 0.6500 320.0 8.310E-21 0.6860 325.0 6.130E-21 0.7210 330.0 4.660E-21 0.7570 335.0 3.670E-21 0.7930 340.0 3.020E-21 0.8290 345.0 2.580E-21 0.8640 350.0 2.290E-21 0.9000 355.0 2.080E-21 0.9360 360.0 2.000E-21 0.9710 365.0 1.800E-21 1.0000 370.0 1.590E-21 1.0000 375.0 1.410E-21 1.0000 380.0 1.210E-21 1.0000 385.0 1.370E-21 1.0000 390.0 9.100E-22 1.0000 395.0 7.600E-22 1.0000 400.0 6.400E-22 1.0000 405.0 5.400E-22 1.0000 410.0 4.400E-22 1.0000 415.0 3.600E-22 1.0000 420.0 3.200E-22 1.0000 425.0 2.300E-22 1.0000 430.0 1.900E-22 1.0000 435.0 0.000E+00 1.0000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/CLONO2_1 ================================================ CLONO2-1 ! CLONO2 + hv = CLO. + NO2 ! CLONO2 absorption cross sections and quantum yields recommended by IUPAC (2005) ! also consistent with JPL (2015) Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 196.0 3.100E-18 0.4000 198.0 2.940E-18 0.4000 200.0 2.820E-18 0.4000 202.0 2.770E-18 0.4000 204.0 2.800E-18 0.4000 206.0 2.880E-18 0.4000 208.0 3.000E-18 0.4000 210.0 3.140E-18 0.4000 212.0 3.290E-18 0.4000 214.0 3.390E-18 0.4000 216.0 3.450E-18 0.4000 218.0 3.410E-18 0.4000 220.0 3.320E-18 0.4000 222.0 3.140E-18 0.4000 224.0 2.910E-18 0.4000 226.0 2.640E-18 0.4000 228.0 2.350E-18 0.4000 230.0 2.080E-18 0.4000 232.0 1.820E-18 0.4000 234.0 1.580E-18 0.4000 236.0 1.380E-18 0.4000 238.0 1.200E-18 0.4000 240.0 1.050E-18 0.4000 242.0 9.190E-19 0.4000 244.0 8.120E-19 0.4000 246.0 7.160E-19 0.4000 248.0 6.240E-19 0.4000 250.0 5.600E-19 0.4000 252.0 5.020E-19 0.4000 254.0 4.530E-19 0.4000 256.0 4.100E-19 0.4000 258.0 3.720E-19 0.4000 260.0 3.380E-19 0.4000 262.0 3.060E-19 0.4000 264.0 2.780E-19 0.4000 266.0 2.520E-19 0.4000 268.0 2.270E-19 0.4000 270.0 2.050E-19 0.4000 272.0 1.850E-19 0.4000 274.0 1.660E-19 0.4000 276.0 1.490E-19 0.4000 278.0 1.330E-19 0.4000 280.0 1.190E-19 0.4000 285.0 8.800E-20 0.4000 290.0 6.410E-20 0.4000 295.0 4.380E-20 0.4000 300.0 3.130E-20 0.4000 305.0 2.240E-20 0.4000 310.0 1.600E-20 0.3860 315.0 1.140E-20 0.3500 320.0 8.310E-21 0.3140 325.0 6.130E-21 0.2790 330.0 4.660E-21 0.2430 335.0 3.670E-21 0.2070 340.0 3.020E-21 0.1710 345.0 2.580E-21 0.1360 350.0 2.290E-21 0.1000 355.0 2.080E-21 0.0640 360.0 2.000E-21 0.0290 365.0 1.800E-21 0.0000 370.0 1.590E-21 0.0000 375.0 1.410E-21 0.0000 380.0 1.210E-21 0.0000 385.0 1.370E-21 0.0000 390.0 9.100E-22 0.0000 395.0 7.600E-22 0.0000 400.0 6.400E-22 0.0000 405.0 5.400E-22 0.0000 410.0 4.400E-22 0.0000 415.0 3.600E-22 0.0000 420.0 3.200E-22 0.0000 425.0 2.300E-22 0.0000 430.0 1.900E-22 0.0000 435.0 0.000E+00 0.0000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/CLONO2_2 ================================================ CLONO2-2 ! CLONO2 + hv = CL. + NO3 ! CLONO2 absorption cross sections and quantum yields recommended by IUPAC (2005) ! also consistent with JPL (2015) Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 196.0 3.100E-18 0.6000 198.0 2.940E-18 0.6000 200.0 2.820E-18 0.6000 202.0 2.770E-18 0.6000 204.0 2.800E-18 0.6000 206.0 2.880E-18 0.6000 208.0 3.000E-18 0.6000 210.0 3.140E-18 0.6000 212.0 3.290E-18 0.6000 214.0 3.390E-18 0.6000 216.0 3.450E-18 0.6000 218.0 3.410E-18 0.6000 220.0 3.320E-18 0.6000 222.0 3.140E-18 0.6000 224.0 2.910E-18 0.6000 226.0 2.640E-18 0.6000 228.0 2.350E-18 0.6000 230.0 2.080E-18 0.6000 232.0 1.820E-18 0.6000 234.0 1.580E-18 0.6000 236.0 1.380E-18 0.6000 238.0 1.200E-18 0.6000 240.0 1.050E-18 0.6000 242.0 9.190E-19 0.6000 244.0 8.120E-19 0.6000 246.0 7.160E-19 0.6000 248.0 6.240E-19 0.6000 250.0 5.600E-19 0.6000 252.0 5.020E-19 0.6000 254.0 4.530E-19 0.6000 256.0 4.100E-19 0.6000 258.0 3.720E-19 0.6000 260.0 3.380E-19 0.6000 262.0 3.060E-19 0.6000 264.0 2.780E-19 0.6000 266.0 2.520E-19 0.6000 268.0 2.270E-19 0.6000 270.0 2.050E-19 0.6000 272.0 1.850E-19 0.6000 274.0 1.660E-19 0.6000 276.0 1.490E-19 0.6000 278.0 1.330E-19 0.6000 280.0 1.190E-19 0.6000 285.0 8.800E-20 0.6000 290.0 6.410E-20 0.6000 295.0 4.380E-20 0.6000 300.0 3.130E-20 0.6000 305.0 2.240E-20 0.6000 310.0 1.600E-20 0.6140 315.0 1.140E-20 0.6500 320.0 8.310E-21 0.6860 325.0 6.130E-21 0.7210 330.0 4.660E-21 0.7570 335.0 3.670E-21 0.7930 340.0 3.020E-21 0.8290 345.0 2.580E-21 0.8640 350.0 2.290E-21 0.9000 355.0 2.080E-21 0.9360 360.0 2.000E-21 0.9710 365.0 1.800E-21 1.0000 370.0 1.590E-21 1.0000 375.0 1.410E-21 1.0000 380.0 1.210E-21 1.0000 385.0 1.370E-21 1.0000 390.0 9.100E-22 1.0000 395.0 7.600E-22 1.0000 400.0 6.400E-22 1.0000 405.0 5.400E-22 1.0000 410.0 4.400E-22 1.0000 415.0 3.600E-22 1.0000 420.0 3.200E-22 1.0000 425.0 2.300E-22 1.0000 430.0 1.900E-22 1.0000 435.0 0.000E+00 1.0000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/COHBR_JPL2010 ================================================ COHBR_JPL2010 ! COHBR + HV = BR + CO + HO2 ! COHBR Photolysis data (QY assumed) ! Supplied by Golam Sarwar ! Created from NASA/JPL 2010 dataset Points (these data can be treated as point values) ! With FAC, units are (cm^2/molecule) FAC=1.0 240.0 1.87E-19 1.000 241.0 2.01E-19 1.000 242.0 1.94E-19 1.000 243.0 1.98E-19 1.000 244.0 1.91E-19 1.000 245.0 2.00E-19 1.000 246.0 2.26E-19 1.000 247.0 2.26E-19 1.000 248.0 2.36E-19 1.000 249.0 2.25E-19 1.000 250.0 2.23E-19 1.000 251.0 2.40E-19 1.000 252.0 2.50E-19 1.000 253.0 2.71E-19 1.000 254.0 2.69E-19 1.000 255.0 2.75E-19 1.000 256.0 2.75E-19 1.000 257.0 2.69E-19 1.000 258.0 2.88E-19 1.000 259.0 2.89E-19 1.000 260.0 3.19E-19 1.000 261.0 3.01E-19 1.000 262.0 3.24E-19 1.000 263.0 2.99E-19 1.000 264.0 3.11E-19 1.000 265.0 2.99E-19 1.000 266.0 3.25E-19 1.000 267.0 3.16E-19 1.000 268.0 3.38E-19 1.000 269.0 3.09E-19 1.000 270.0 3.19E-19 1.000 271.0 3.09E-19 1.000 272.0 2.96E-19 1.000 273.0 3.14E-19 1.000 274.0 2.93E-19 1.000 275.0 3.15E-19 1.000 276.0 2.85E-19 1.000 277.0 2.91E-19 1.000 278.0 2.68E-19 1.000 279.0 2.56E-19 1.000 280.0 2.51E-19 1.000 281.0 2.32E-19 1.000 282.0 2.38E-19 1.000 283.0 2.20E-19 1.000 284.0 2.17E-19 1.000 285.0 2.01E-19 1.000 286.0 1.91E-19 1.000 287.0 1.75E-19 1.000 288.0 1.73E-19 1.000 289.0 1.49E-19 1.000 290.0 1.55E-19 1.000 291.0 1.27E-19 1.000 292.0 1.33E-19 1.000 293.0 1.11E-19 1.000 294.0 1.08E-19 1.000 295.0 9.79E-20 1.000 296.0 9.08E-20 1.000 297.0 8.03E-20 1.000 298.0 7.35E-20 1.000 299.0 5.97E-20 1.000 300.0 5.86E-20 1.000 301.0 5.25E-20 1.000 302.0 4.47E-20 1.000 303.0 4.38E-20 1.000 304.0 3.53E-20 1.000 305.0 3.18E-20 1.000 306.0 2.77E-20 1.000 307.0 2.43E-20 1.000 308.0 2.12E-20 1.000 309.0 1.90E-20 1.000 310.0 1.65E-20 1.000 311.0 1.51E-20 1.000 312.0 1.34E-20 1.000 313.0 1.13E-20 1.000 314.0 1.01E-20 1.000 315.0 8.01E-21 1.000 316.0 6.87E-21 1.000 317.0 6.13E-21 1.000 318.0 6.11E-21 1.000 319.0 5.76E-21 1.000 320.0 5.22E-21 1.000 321.0 4.76E-21 1.000 322.0 4.24E-21 1.000 323.0 3.63E-21 1.000 324.0 3.08E-21 1.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/COOH ================================================ COOH ! CH3OOH + HV = PRODUCTS ! IUPAC (1997). Also recommend unit quantum yields. ! wl abs qy Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 210.0 3.120E-19 1.0000 215.0 2.090E-19 1.0000 220.0 1.540E-19 1.0000 225.0 1.220E-19 1.0000 230.0 9.620E-20 1.0000 235.0 7.610E-20 1.0000 240.0 6.050E-20 1.0000 245.0 4.880E-20 1.0000 250.0 3.980E-20 1.0000 255.0 3.230E-20 1.0000 260.0 2.560E-20 1.0000 265.0 2.110E-20 1.0000 270.0 1.700E-20 1.0000 275.0 1.390E-20 1.0000 280.0 1.090E-20 1.0000 285.0 8.630E-21 1.0000 290.0 6.910E-21 1.0000 295.0 5.510E-21 1.0000 300.0 4.130E-21 1.0000 305.0 3.130E-21 1.0000 310.0 2.390E-21 1.0000 315.0 1.820E-21 1.0000 320.0 1.370E-21 1.0000 325.0 1.050E-21 1.0000 330.0 7.900E-22 1.0000 335.0 6.100E-22 1.0000 340.0 4.700E-22 1.0000 345.0 3.500E-22 1.0000 350.0 2.700E-22 1.0000 355.0 2.100E-22 1.0000 360.0 1.600E-22 1.0000 365.0 1.200E-22 1.0000 370.0 0.000E+00 1.0000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/COOH_SAPRC99 ================================================ COOH ! CH3OOH + HV = PRODUCTS ! SAPRC-99 Photolysis data. Supplied by William P. L. Carter. ! Created from PhotDat.xls on 29-Jan-2000 10:07 Points (the mechanism was evaluated assuming this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 210.0 3.120E-19 1.000 215.0 2.090E-19 1.000 220.0 1.540E-19 1.000 225.0 1.220E-19 1.000 230.0 9.620E-20 1.000 235.0 7.610E-20 1.000 240.0 6.050E-20 1.000 245.0 4.880E-20 1.000 250.0 3.980E-20 1.000 255.0 3.230E-20 1.000 260.0 2.560E-20 1.000 265.0 2.110E-20 1.000 270.0 1.700E-20 1.000 275.0 1.390E-20 1.000 280.0 1.090E-20 1.000 285.0 8.630E-21 1.000 290.0 6.910E-21 1.000 295.0 5.510E-21 1.000 300.0 4.130E-21 1.000 305.0 3.130E-21 1.000 310.0 2.390E-21 1.000 315.0 1.820E-21 1.000 320.0 1.370E-21 1.000 325.0 1.050E-21 1.000 330.0 7.900E-22 1.000 335.0 6.100E-22 1.000 340.0 4.700E-22 1.000 345.0 3.500E-22 1.000 350.0 2.700E-22 1.000 355.0 2.100E-22 1.000 360.0 1.600E-22 1.000 365.0 1.200E-22 1.000 370.0 0.000E+00 1.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/ETHLN_RACM2 ================================================ ETHLN_RACM2 ! ETHLN + hv = NO2 + HO2 + CO + HCHO j(ethln) ! cross section based on Mller et al. 2014 (Fig.2) ! quantum yield based on Mller (2014). ! They assume a near-unit quantum yield for ethanal nitrate ! Made by Azimeh Zare Points (the mechanism evaluated with this format) ! With "FAC," units are (cm^2/molecule) FAC=1.0 255 10.0E-20 0.94 260 8.53E-20 0.94 265 8.00E-20 0.92 270 7.50E-20 0.9 275 7.50E-20 0.9 280 7.45E-20 0.9 285 7.20E-20 0.9 290 7.10E-20 0.9 295 6.90E-20 0.9 300 6.90E-20 0.9 305 6.10E-20 0.9 310 6.00E-20 0.9 315 5.00E-20 0.9 320 4.70E-20 0.9 325 4.10E-20 0.9 330 3.90E-20 0.9 335 2.00E-20 0.9 340 0.90E-20 0.9 345 0.00E+00 0.9 350 0.00E+00 0.9 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/ETHYNO3_MCMv32 ================================================ ETHYNO3_MCMv32 !ethyl nitrate cross-sections (CH3CH2ONO2) !CH3CH2ONO2 --> C2H5O + NO2 !MPI-Mainz Spectral Atlas !IUPAC 2015 recommendation !http://iupac.pole-ether.fr/htdocs/datasheets/pdf/P15_C2H5ONO2+hv.pdf dated May 2002 ! !298K cs from: !M. P. Turberg, D. M. Giolando, C. Tilt, T. Soper, S. Mason, M. Davies, P. Klingensmith, !and G. A. Takacs, J. Photochem. Photobiol. A51, 281 (1990) ! !T dependence average from: !1. L. Zhu and C.-F. Ding, Chem. Phys. Lett. 265, 177 (1997). !2. K. C. Clemitshaw, J. Williams, O. V. Rattigan, D. E. Shallcross, K. S. Law, and R. A. ! Cox, J. Photochem. Photobiol. A: Chemistry 102, 117 (1997). !3. R. K. Talukdar, J. B. Burkholder, M. Hunter, M. K. Giles, J. M. Roberts, and A. R. ! Ravishankara, J. Chem. Soc. Faraday Trans. 93, 2797 (1997) ! !Quantum Yield ! !phi (CH3CH2O + NO2) = unity from 290 nm to 340 nm ! !ln(sigma(T,lambda)) - ln(sigma(298,lambda)) = B * (T-298) ! !C2H5CHO (298K and 1 bar) photolysis quantum yields (C2H5 + HCO) ! !Chen and Zhu J. Phys. Chem. A., 105, 9689 (2001) !nm sig(298K) qy B(K-1) Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 235.0 1.10E-19 1.000 0.0014 240.0 7.70E-20 1.000 0.0028 245.0 5.40E-20 1.000 0.0029 250.0 4.50E-20 1.000 0.0028 255.0 4.10E-20 1.000 0.0026 260.0 3.90E-20 1.000 0.0026 265.0 3.60E-20 1.000 0.0029 270.0 3.10E-20 1.000 0.0031 275.0 2.70E-20 1.000 0.0033 280.0 2.20E-20 1.000 0.0036 285.0 1.70E-20 1.000 0.0038 290.0 1.20E-20 0.980 0.0042 295.0 8.50E-21 0.950 0.0047 300.0 5.50E-21 0.920 0.0051 305.0 3.30E-21 0.950 0.0058 310.0 1.90E-21 0.980 0.0067 315.0 1.00E-21 0.040 0.0079 320.0 5.10E-22 0.028 0.0086 325.0 2.60E-22 0.021 0.0104 330.0 1.20E-22 0.023 0.0129 335.0 4.90E-23 0.000 0.0141 340.0 2.50E-23 0.000 0.0156 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/FMCL_IUPAC04 ================================================ FMCL_IUPAC04 ! FMCL + hv --> HCO + CL ! IUPAC Subcommittee on Gas Kinetic Data Evaluation; Data Sheet PCl28 Website: 15th December 2000 ! Website: http://www.iupac-kinetic.ch.cam.ac.uk ! Reference: H. G. Libuda, F. Zabel, E. H. Fink, and K. H. Becker, J. Phys. Chem. 94, 5860 (1990) POINT ! With FAC, units are (cm^2/molecule) FAC=1.0E-20 236.1 3.8 1.0 241.5 4.9 1.0 247.3 5.6 1.0 251.4 5.4 1.0 253.7 6.0 1.0 256.1 5.6 1.0 258.2 5.8 1.0 260.2 6.0 1.0 263.5 5.1 1.0 265.7 5.3 1.0 267.9 5.2 1.0 269.1 3.9 1.0 270.2 3.5 1.0 271.4 4.0 1.0 273.8 4.1 1.0 276.3 3.4 1.0 277.7 2.4 1.0 278.9 2.1 1.0 280.2 2.4 1.0 282.7 2.3 1.0 285.3 1.64 1.0 286.8 1.04 1.0 288.0 0.86 1.0 289.4 0.97 1.0 292.2 0.81 1.0 294.9 0.46 1.0 296.7 0.32 1.0 298.1 0.22 1.0 299.5 0.25 1.0 302.3 0.172 1.0 305.2 0.08 1.0 308.1 0.027 1.0 309.3 0.021 1.0 311.1 0.02 1.0 314.1 0.013 1.0 316.7 0.008 1.0 318.7 0.007 1.0 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/FORM_M_IUPAC10 ================================================ FORM_M_IUPAC10 ! j(FORM_M) IUPAC(2010) ! FORM = CO ! From IUPAC Subcommittee on Gas Kinetic Data Evaluation ! Data Sheet P1, updated 16th May, 2002 !These are point values Begining (the mechanism evaluated with this format) !WL(nm) XSEC(cm2) QY FAC=1.0 240.0 7.820E-22 0.4900 241.0 7.750E-22 0.4900 242.0 1.227E-21 0.4900 243.0 1.591E-21 0.4900 244.0 1.096E-21 0.4900 245.0 1.313E-21 0.4900 246.0 1.634E-21 0.4900 247.0 1.511E-21 0.4900 248.0 2.338E-21 0.4900 249.0 3.178E-21 0.4900 250.0 2.572E-21 0.4900 251.0 2.039E-21 0.4900 252.0 3.366E-21 0.4900 253.0 2.894E-21 0.4900 254.0 3.417E-21 0.4900 255.0 4.502E-21 0.4900 256.0 6.282E-21 0.4900 257.0 4.430E-21 0.4900 258.0 3.073E-21 0.4900 259.0 6.174E-21 0.4900 260.0 6.045E-21 0.4900 261.0 6.591E-21 0.4780 262.0 6.033E-21 0.4660 263.0 1.077E-20 0.4540 264.0 9.465E-21 0.4420 265.0 5.305E-21 0.4300 266.0 5.387E-21 0.4180 267.0 1.360E-20 0.4060 268.0 1.243E-20 0.3940 269.0 9.908E-21 0.3830 270.0 9.626E-21 0.3770 271.0 1.941E-20 0.3700 272.0 1.430E-20 0.3640 273.0 8.106E-21 0.3570 274.0 6.575E-21 0.3510 275.0 2.143E-20 0.3440 276.0 2.584E-20 0.3380 277.0 1.573E-20 0.3310 278.0 1.035E-20 0.3250 279.0 2.451E-20 0.3160 280.0 2.340E-20 0.302 281.0 1.560E-20 0.287 282.0 9.730E-21 0.273 283.0 7.220E-21 0.258 284.0 4.260E-20 0.245 285.0 4.050E-20 0.239 286.0 2.100E-20 0.232 287.0 1.150E-20 0.226 288.0 3.170E-20 0.219 289.0 3.220E-20 0.218 290.0 1.170E-20 0.232 291.0 1.840E-20 0.246 292.0 7.970E-21 0.261 293.0 3.130E-20 0.275 294.0 7.150E-20 0.289 295.0 4.050E-20 0.302 296.0 2.470E-20 0.314 297.0 1.370E-20 0.326 298.0 4.220E-20 0.339 299.0 3.170E-20 0.341 300.0 9.640E-21 0.312 301.0 1.620E-20 0.282 302.0 8.540E-21 0.259 303.0 3.020E-20 0.237 304.0 7.220E-20 0.230 305.0 4.750E-20 0.268 306.0 4.290E-20 0.306 307.0 1.780E-20 0.301 308.0 1.380E-20 0.280 309.0 3.250E-20 0.268 310.0 1.740E-20 0.281 311.0 4.620E-21 0.293 312.0 1.190E-20 0.293 313.0 9.060E-21 0.288 314.0 5.640E-20 0.289 315.0 5.570E-20 0.306 316.0 2.560E-20 0.323 317.0 5.780E-20 0.329 318.0 3.150E-20 0.331 319.0 9.780E-21 0.333 320.0 1.190E-20 0.335 321.0 1.600E-20 0.337 322.0 7.220E-21 0.354 323.0 3.280E-21 0.377 324.0 8.580E-21 0.400 325.0 1.580E-20 0.423 326.0 6.880E-20 0.446 327.0 4.370E-20 0.490 328.0 1.220E-20 0.540 329.0 3.120E-20 0.562 330.0 3.870E-20 0.501 331.0 1.410E-20 0.439 332.0 3.470E-21 0.444 333.0 2.140E-21 0.470 334.0 1.590E-21 0.503 335.0 9.670E-22 0.558 336.0 1.260E-21 0.613 337.0 3.830E-21 0.607 338.0 1.920E-20 0.579 339.0 5.380E-20 0.559 340.0 3.150E-20 0.560 341.0 9.780E-21 0.525 342.0 5.090E-21 0.490 343.0 1.920E-20 0.455 344.0 1.270E-20 0.420 345.0 4.370E-21 0.385 346.0 1.190E-21 0.350 347.0 4.410E-22 0.315 348.0 7.540E-22 0.280 349.0 3.790E-22 0.245 350.0 3.620E-22 0.210 351.0 8.930E-22 0.192 352.0 7.300E-21 0.174 353.0 2.280E-20 0.156 354.0 1.640E-20 0.138 355.0 6.960E-21 0.120 356.0 1.480E-21 0.102 357.0 3.450E-22 0.084 358.0 1.860E-22 0.066 359.0 1.110E-22 0.048 360.0 8.700E-23 0.030 361.0 1.000E-22 0.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/FORM_M_IUPAC13 ================================================ FORM_M_IUPAC13 ! j(FORM_M) IUPAC(2013) ! FORM = CO ! From IUPAC Subcommittee on Gas Kinetic Data Evaluation ! Data Sheet P1, updated 16th April, 2013 ! Note that QY was calculated using the difference between ! total quantum yield and the yield for the radical channel. !These are point values POINT !WL(nm) XSEC(cm2) QY FAC=1.0 226.0 1.800E-22 0.530 227.0 1.700E-22 0.530 228.0 1.800E-22 0.530 229.0 1.900E-22 0.530 230.0 2.100E-22 0.530 231.0 1.700E-22 0.530 232.0 3.400E-22 0.530 233.0 2.600E-22 0.530 234.0 3.300E-22 0.530 235.0 3.600E-22 0.530 236.0 5.400E-22 0.530 237.0 7.700E-22 0.530 238.0 5.700E-22 0.530 239.0 6.800E-22 0.530 240.0 7.800E-22 0.530 241.0 7.800E-22 0.525 242.0 1.230E-21 0.520 243.0 1.590E-21 0.515 244.0 1.100E-21 0.510 245.0 1.310E-21 0.505 246.0 1.630E-21 0.500 247.0 1.510E-21 0.495 248.0 2.340E-21 0.490 249.0 3.180E-21 0.485 250.0 2.570E-21 0.480 251.0 2.040E-21 0.481 252.0 3.370E-21 0.482 253.0 2.890E-21 0.483 254.0 3.420E-21 0.484 255.0 4.500E-21 0.485 256.0 6.280E-21 0.486 257.0 4.430E-21 0.487 258.0 3.070E-21 0.488 259.0 6.170E-21 0.489 260.0 6.050E-21 0.490 261.0 6.590E-21 0.481 262.0 6.030E-21 0.472 263.0 1.077E-20 0.463 264.0 9.470E-21 0.454 265.0 5.310E-21 0.446 266.0 5.390E-21 0.437 267.0 1.360E-20 0.428 268.0 1.243E-20 0.419 269.0 9.910E-21 0.410 270.0 9.630E-21 0.401 271.0 1.941E-20 0.392 272.0 1.430E-20 0.383 273.0 8.110E-21 0.374 274.0 6.580E-21 0.365 275.0 2.143E-20 0.356 276.0 2.584E-20 0.347 277.0 1.573E-20 0.338 278.0 1.035E-20 0.329 279.0 2.451E-20 0.320 280.0 2.338E-20 0.300 281.0 1.562E-20 0.270 282.0 9.730E-21 0.270 283.0 7.220E-21 0.250 284.0 4.265E-20 0.260 285.0 4.050E-20 0.310 286.0 2.095E-20 0.320 287.0 1.153E-20 0.300 288.0 3.169E-20 0.290 289.0 3.225E-20 0.290 290.0 1.173E-20 0.280 291.0 1.836E-20 0.270 292.0 7.970E-21 0.270 293.0 3.128E-20 0.260 294.0 7.154E-20 0.300 295.0 4.054E-20 0.210 296.0 2.474E-20 0.240 297.0 1.367E-20 0.250 298.0 4.217E-20 0.330 299.0 3.175E-20 0.350 300.0 9.640E-21 0.300 301.0 1.625E-20 0.300 302.0 8.540E-21 0.270 303.0 3.021E-20 0.286 304.0 7.219E-20 0.250 305.0 4.752E-20 0.290 306.0 4.292E-20 0.358 307.0 1.781E-20 0.320 308.0 1.385E-20 0.300 309.0 3.252E-20 0.290 310.0 1.737E-20 0.300 311.0 4.620E-21 0.320 312.0 1.188E-20 0.331 313.0 9.060E-21 0.270 314.0 5.637E-20 0.319 315.0 5.565E-20 0.220 316.0 2.561E-20 0.250 317.0 5.777E-20 0.347 318.0 3.151E-20 0.340 319.0 9.780E-21 0.426 320.0 1.194E-20 0.400 321.0 1.598E-20 0.350 322.0 7.220E-21 0.420 323.0 3.280E-21 0.525 324.0 8.580E-21 0.510 325.0 1.578E-20 0.540 340.0 3.151E-20 0.640 341.0 9.780E-21 0.610 342.0 5.090E-21 0.580 343.0 1.922E-20 0.550 344.0 1.268E-20 0.510 345.0 4.370E-21 0.500 346.0 1.190E-21 0.470 347.0 4.400E-22 0.440 348.0 7.500E-22 0.420 349.0 3.800E-22 0.380 350.0 3.600E-22 0.360 351.0 8.900E-22 0.330 352.0 7.300E-21 0.300 353.0 2.275E-20 0.280 354.0 1.645E-20 0.250 355.0 6.960E-21 0.120 356.0 1.480E-21 0.100 357.0 3.500E-22 0.070 358.0 1.900E-22 0.040 359.0 1.100E-22 0.010 360.0 9.000E-23 0.000 361.0 1.000E-22 0.000 362.0 2.100E-22 0.000 363.0 1.400E-22 0.000 364.0 9.000E-23 0.000 365.0 9.000E-23 0.000 366.0 9.000E-23 0.000 367.0 9.000E-23 0.000 368.0 1.400E-22 0.000 369.0 3.000E-22 0.000 370.0 6.400E-22 0.000 371.0 5.700E-22 0.000 372.0 2.000E-22 0.000 373.0 1.100E-22 0.000 374.0 9.000E-23 0.000 375.0 9.000E-23 0.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/FORM_R_IUPAC10 ================================================ FORM_R_IUPAC10 ! j(FORM_R) IUPAC(2010) ! FORM = 2 HO2 + CO ! From IUPAC Subcommittee on Gas Kinetic Data Evaluation ! Data Sheet P1, updated 16th May, 2002 !These are point values Begining (the mechanism evaluated with this format) !WL(nm) XSEC(cm2) QY FAC=1.0 240.0 7.820E-22 0.2700 241.0 7.750E-22 0.2720 242.0 1.227E-21 0.2740 243.0 1.591E-21 0.2760 244.0 1.096E-21 0.2780 245.0 1.313E-21 0.2800 246.0 1.634E-21 0.2820 247.0 1.511E-21 0.2840 248.0 2.338E-21 0.2860 249.0 3.178E-21 0.2880 250.0 2.572E-21 0.2900 251.0 2.039E-21 0.2910 252.0 3.366E-21 0.2920 253.0 2.894E-21 0.2930 254.0 3.417E-21 0.2940 255.0 4.502E-21 0.2950 256.0 6.282E-21 0.2960 257.0 4.430E-21 0.2970 258.0 3.073E-21 0.2980 259.0 6.174E-21 0.2990 260.0 6.045E-21 0.3000 261.0 6.591E-21 0.3140 262.0 6.033E-21 0.3290 263.0 1.077E-20 0.3430 264.0 9.465E-21 0.3570 265.0 5.305E-21 0.3710 266.0 5.387E-21 0.3860 267.0 1.360E-20 0.4000 268.0 1.243E-20 0.4140 269.0 9.908E-21 0.4290 270.0 9.626E-21 0.4430 271.0 1.941E-20 0.4580 272.0 1.430E-20 0.4720 273.0 8.106E-21 0.4870 274.0 6.575E-21 0.5010 275.0 2.143E-20 0.5160 276.0 2.584E-20 0.5300 277.0 1.573E-20 0.5450 278.0 1.035E-20 0.5590 279.0 2.451E-20 0.5750 280.0 2.340E-20 0.596 281.0 1.560E-20 0.616 282.0 9.730E-21 0.637 283.0 7.220E-21 0.658 284.0 4.260E-20 0.677 285.0 4.050E-20 0.691 286.0 2.100E-20 0.706 287.0 1.150E-20 0.721 288.0 3.170E-20 0.735 289.0 3.220E-20 0.743 290.0 1.170E-20 0.733 291.0 1.840E-20 0.723 292.0 7.970E-21 0.712 293.0 3.130E-20 0.702 294.0 7.150E-20 0.691 295.0 4.050E-20 0.681 296.0 2.470E-20 0.671 297.0 1.370E-20 0.660 298.0 4.220E-20 0.650 299.0 3.170E-20 0.650 300.0 9.640E-21 0.684 301.0 1.620E-20 0.717 302.0 8.540E-21 0.742 303.0 3.020E-20 0.764 304.0 7.220E-20 0.770 305.0 4.750E-20 0.732 306.0 4.290E-20 0.694 307.0 1.780E-20 0.699 308.0 1.380E-20 0.720 309.0 3.250E-20 0.732 310.0 1.740E-20 0.720 311.0 4.620E-21 0.707 312.0 1.190E-20 0.707 313.0 9.060E-21 0.712 314.0 5.640E-20 0.711 315.0 5.570E-20 0.694 316.0 2.560E-20 0.677 317.0 5.780E-20 0.672 318.0 3.150E-20 0.670 319.0 9.780E-21 0.668 320.0 1.190E-20 0.666 321.0 1.600E-20 0.664 322.0 7.220E-21 0.643 323.0 3.280E-21 0.616 324.0 8.580E-21 0.589 325.0 1.580E-20 0.562 326.0 6.880E-20 0.535 327.0 4.370E-20 0.482 328.0 1.220E-20 0.420 329.0 3.120E-20 0.383 330.0 3.870E-20 0.425 331.0 1.410E-20 0.466 332.0 3.470E-21 0.427 333.0 2.140E-21 0.361 334.0 1.590E-21 0.287 335.0 9.670E-22 0.192 336.0 1.260E-21 0.096 337.0 3.830E-21 0.063 338.0 1.920E-20 0.050 339.0 5.380E-20 0.033 340.0 3.150E-20 0.000 341.0 9.780E-21 0.000 342.0 5.090E-21 0.000 343.0 1.920E-20 0.000 344.0 1.270E-20 0.000 345.0 4.370E-21 0.000 346.0 1.190E-21 0.000 347.0 4.410E-22 0.000 348.0 7.540E-22 0.000 349.0 3.790E-22 0.000 350.0 3.620E-22 0.000 351.0 8.930E-22 0.000 352.0 7.300E-21 0.000 353.0 2.280E-20 0.000 354.0 1.640E-20 0.000 355.0 6.960E-21 0.000 356.0 1.480E-21 0.000 357.0 3.450E-22 0.000 358.0 1.860E-22 0.000 359.0 1.110E-22 0.000 361.0 1.000E-22 0.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/FORM_R_IUPAC13 ================================================ FORM_R_IUPAC13 ! j(FORM_R) IUPAC(2013) ! FORM = 2*HO2 + CO ! From IUPAC Subcommittee on Gas Kinetic Data Evaluation ! Data Sheet P1, updated 16th April, 2013 !These are point values POINT !WL(nm) XSEC(cm2) QY FAC=1.0 226.0 1.800E-22 0.270 227.0 1.700E-22 0.270 228.0 1.800E-22 0.270 229.0 1.900E-22 0.270 230.0 2.100E-22 0.270 231.0 1.700E-22 0.270 232.0 3.400E-22 0.270 233.0 2.600E-22 0.270 234.0 3.300E-22 0.270 235.0 3.600E-22 0.270 236.0 5.400E-22 0.270 237.0 7.700E-22 0.270 238.0 5.700E-22 0.270 239.0 6.800E-22 0.270 240.0 7.800E-22 0.270 241.0 7.800E-22 0.275 242.0 1.230E-21 0.280 243.0 1.590E-21 0.285 244.0 1.100E-21 0.290 245.0 1.310E-21 0.295 246.0 1.630E-21 0.300 247.0 1.510E-21 0.305 248.0 2.340E-21 0.310 249.0 3.180E-21 0.315 250.0 2.570E-21 0.320 251.0 2.040E-21 0.319 252.0 3.370E-21 0.318 253.0 2.890E-21 0.317 254.0 3.420E-21 0.316 255.0 4.500E-21 0.315 256.0 6.280E-21 0.314 257.0 4.430E-21 0.313 258.0 3.070E-21 0.312 259.0 6.170E-21 0.311 260.0 6.050E-21 0.310 261.0 6.590E-21 0.320 262.0 6.030E-21 0.330 263.0 1.077E-20 0.340 264.0 9.470E-21 0.350 265.0 5.310E-21 0.360 266.0 5.390E-21 0.370 267.0 1.360E-20 0.380 268.0 1.243E-20 0.390 269.0 9.910E-21 0.400 270.0 9.630E-21 0.416 271.0 1.941E-20 0.432 272.0 1.430E-20 0.448 273.0 8.110E-21 0.464 274.0 6.580E-21 0.480 275.0 2.143E-20 0.496 276.0 2.584E-20 0.512 277.0 1.573E-20 0.528 278.0 1.035E-20 0.544 279.0 2.451E-20 0.560 280.0 2.338E-20 0.580 281.0 1.562E-20 0.600 282.0 9.730E-21 0.620 283.0 7.220E-21 0.640 284.0 4.265E-20 0.650 285.0 4.050E-20 0.670 286.0 2.095E-20 0.680 287.0 1.153E-20 0.700 288.0 3.169E-20 0.710 289.0 3.225E-20 0.710 290.0 1.173E-20 0.720 291.0 1.836E-20 0.730 292.0 7.970E-21 0.730 293.0 3.128E-20 0.740 294.0 7.154E-20 0.700 295.0 4.054E-20 0.790 296.0 2.474E-20 0.760 297.0 1.367E-20 0.750 298.0 4.217E-20 0.670 299.0 3.175E-20 0.650 300.0 9.640E-21 0.700 301.0 1.625E-20 0.700 302.0 8.540E-21 0.730 303.0 3.021E-20 0.714 304.0 7.219E-20 0.750 305.0 4.752E-20 0.710 306.0 4.292E-20 0.642 307.0 1.781E-20 0.680 308.0 1.385E-20 0.700 309.0 3.252E-20 0.710 310.0 1.737E-20 0.700 311.0 4.620E-21 0.680 312.0 1.188E-20 0.669 313.0 9.060E-21 0.730 314.0 5.637E-20 0.681 315.0 5.565E-20 0.780 316.0 2.561E-20 0.750 317.0 5.777E-20 0.653 318.0 3.151E-20 0.660 319.0 9.780E-21 0.574 320.0 1.194E-20 0.600 321.0 1.598E-20 0.650 322.0 7.220E-21 0.580 323.0 3.280E-21 0.475 324.0 8.580E-21 0.490 325.0 1.578E-20 0.460 340.0 3.151E-20 0.010 341.0 9.780E-21 0.008 342.0 5.090E-21 0.008 343.0 1.922E-20 0.008 344.0 1.268E-20 0.007 345.0 4.370E-21 0.007 346.0 1.190E-21 0.007 347.0 4.400E-22 0.007 348.0 7.500E-22 0.007 349.0 3.800E-22 0.006 350.0 3.600E-22 0.006 351.0 8.900E-22 0.005 352.0 7.300E-21 0.005 353.0 2.275E-20 0.005 354.0 1.645E-20 0.005 355.0 6.960E-21 0.005 356.0 1.480E-21 0.000 357.0 3.500E-22 0.000 358.0 1.900E-22 0.000 359.0 1.100E-22 0.000 360.0 9.000E-23 0.000 361.0 1.000E-22 0.000 362.0 2.100E-22 0.000 363.0 1.400E-22 0.000 364.0 9.000E-23 0.000 365.0 9.000E-23 0.000 366.0 9.000E-23 0.000 367.0 9.000E-23 0.000 368.0 1.400E-22 0.000 369.0 3.000E-22 0.000 370.0 6.400E-22 0.000 371.0 5.700E-22 0.000 372.0 2.000E-22 0.000 373.0 1.100E-22 0.000 374.0 9.000E-23 0.000 375.0 9.000E-23 0.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/GLY-07M ================================================ GLY-07M ! HCOCHO + HV = HCHO + H2 ! Absorption cross sections from Volkamer, R., P. Spietz, J. Burrows, ! and U. Platt (2005): "High-resolution absorption cross sections of ! glyoxal in the UV-vis and IR spectral ranges," J. Photochem. Photobiol. ! A, 172 35-46. Quantum yields at wavelengths below 350 nm derived from ! those used for the radical forming process assuming total quantum ! yields of 1. Quantum yields at higher wavelengths assumed to decline ! expodentially at a rate that gives a 13% formaldehyde yield telative to ! photodecomposition under the conditions of Plum et al (1983). ! Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 289.0 3.800E-20 0.6750 290.0 3.734E-20 0.6740 291.0 3.643E-20 0.6730 292.0 3.654E-20 0.6710 293.0 3.681E-20 0.6700 294.0 3.729E-20 0.6690 295.0 3.809E-20 0.6670 296.0 3.824E-20 0.6660 297.0 3.922E-20 0.6650 298.0 4.073E-20 0.6630 299.0 4.123E-20 0.6620 300.0 4.045E-20 0.6610 301.0 3.905E-20 0.6590 302.0 3.779E-20 0.6580 303.0 3.567E-20 0.6570 304.0 3.350E-20 0.6550 305.0 3.242E-20 0.6540 306.0 3.223E-20 0.6530 307.0 3.200E-20 0.6510 308.0 3.146E-20 0.6500 309.0 3.123E-20 0.6410 310.0 3.100E-20 0.6310 311.0 3.222E-20 0.6220 312.0 3.343E-20 0.6130 313.0 3.390E-20 0.6040 314.0 3.233E-20 0.5940 315.0 2.805E-20 0.5850 316.0 2.646E-20 0.5760 317.0 2.460E-20 0.5660 318.0 2.214E-20 0.5570 319.0 1.927E-20 0.5480 320.0 1.854E-20 0.5380 321.0 1.885E-20 0.5290 322.0 1.766E-20 0.5200 323.0 1.723E-20 0.5110 324.0 1.677E-20 0.5010 325.0 1.603E-20 0.4920 326.0 1.606E-20 0.4830 327.0 1.695E-20 0.4730 328.0 1.937E-20 0.4640 329.0 1.857E-20 0.4550 330.0 1.689E-20 0.4450 331.0 1.128E-20 0.4360 332.0 1.048E-20 0.4270 333.0 9.660E-21 0.4170 334.0 9.190E-21 0.4080 335.0 7.370E-21 0.3990 336.0 6.300E-21 0.3900 337.0 5.890E-21 0.3800 338.0 6.470E-21 0.3710 339.0 5.850E-21 0.3620 340.0 5.530E-21 0.3520 341.0 5.630E-21 0.3430 342.0 5.100E-21 0.3340 343.0 4.990E-21 0.3240 344.0 6.490E-21 0.3150 345.0 6.240E-21 0.3060 346.0 7.330E-21 0.2970 347.0 6.310E-21 0.2870 348.0 6.040E-21 0.2780 349.0 4.150E-21 0.2690 350.0 3.910E-21 0.2590 351.0 3.950E-21 0.2500 352.0 4.230E-21 0.2320 353.0 4.150E-21 0.2150 354.0 4.030E-21 0.2000 355.0 4.220E-21 0.1860 356.0 4.430E-21 0.1720 357.0 4.310E-21 0.1600 358.0 4.710E-21 0.1480 359.0 5.030E-21 0.1380 360.0 5.460E-21 0.1280 361.0 6.270E-21 0.1190 362.0 7.060E-21 0.1100 363.0 6.390E-21 0.1020 364.0 6.800E-21 0.0950 365.0 6.650E-21 0.0880 366.0 7.430E-21 0.0820 367.0 8.600E-21 0.0760 368.0 1.012E-20 0.0700 369.0 1.063E-20 0.0650 370.0 1.139E-20 0.0610 371.0 1.185E-20 0.0560 372.0 1.141E-20 0.0520 373.0 1.212E-20 0.0490 374.0 1.352E-20 0.0450 375.0 1.332E-20 0.0420 376.0 1.377E-20 0.0390 377.0 1.467E-20 0.0360 378.0 1.605E-20 0.0330 379.0 1.534E-20 0.0310 380.0 1.934E-20 0.0290 381.0 2.455E-20 0.0270 382.0 2.019E-20 0.0250 383.0 2.069E-20 0.0230 384.0 1.939E-20 0.0210 385.0 1.893E-20 0.0200 386.0 1.835E-20 0.0180 387.0 2.287E-20 0.0170 388.0 3.000E-20 0.0160 389.0 3.206E-20 0.0150 390.0 3.483E-20 0.0140 391.0 3.922E-20 0.0130 392.0 3.801E-20 0.0120 393.0 2.852E-20 0.0110 394.0 3.147E-20 0.0100 395.0 3.855E-20 0.0090 396.0 3.679E-20 0.0090 397.0 3.361E-20 0.0080 398.0 4.323E-20 0.0080 399.0 4.345E-20 0.0070 400.0 3.873E-20 0.0070 401.0 4.455E-20 0.0060 402.0 5.843E-20 0.0060 403.0 7.159E-20 0.0050 404.0 6.237E-20 0.0050 405.0 4.491E-20 0.0040 406.0 4.482E-20 0.0040 407.0 4.066E-20 0.0040 408.0 3.444E-20 0.0040 409.0 4.008E-20 0.0030 410.0 5.661E-20 0.0030 411.0 7.221E-20 0.0030 412.0 7.406E-20 0.0030 413.0 1.075E-19 0.0020 414.0 1.012E-19 0.0020 415.0 1.019E-19 0.0020 416.0 6.073E-20 0.0020 417.0 6.829E-20 0.0020 418.0 7.873E-20 0.0020 419.0 9.134E-20 0.0020 420.0 5.602E-20 0.0010 421.0 7.188E-20 0.0010 422.0 6.990E-20 0.0010 423.0 1.305E-19 0.0010 424.0 8.239E-20 0.0010 425.0 1.045E-19 0.0010 426.0 1.641E-19 0.0010 427.0 1.610E-19 0.0010 428.0 2.142E-19 0.0010 429.0 6.499E-20 0.0010 430.0 7.027E-20 0.0010 431.0 6.518E-20 0.0010 432.0 6.082E-20 0.0010 433.0 5.657E-20 0.0010 434.0 6.809E-20 0.0010 435.0 7.660E-20 0.0000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/GLY-07R ================================================ GLY-07R ! HCOCHO + HV = HCO. + HCO. ! Absorption cross sections from Volkamer, R., P. Spietz, J. Burrows, and ! U. Platt (2005): "High-resolution absorption cross sections of glyoxal ! in the UV-vis and IR spectral ranges," J. Photochem. Photobiol. A, 172 ! 35-46. Quantum yields at wavelengths below 350 nm based on the data of ! Zhu et al (1996) which are consistent with the data of Langford and ! Moore (1984). Quantum yields at higher wavelengths assumed to decline ! expodentially with wavelength at a rate that gives a photolysis rate ! relative to NO2 consistent with the data of Klotz et al (2000). ! Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 289.0 3.800E-20 0.3250 290.0 3.734E-20 0.3260 291.0 3.643E-20 0.3270 292.0 3.654E-20 0.3290 293.0 3.681E-20 0.3300 294.0 3.729E-20 0.3310 295.0 3.809E-20 0.3330 296.0 3.824E-20 0.3340 297.0 3.922E-20 0.3350 298.0 4.073E-20 0.3370 299.0 4.123E-20 0.3380 300.0 4.045E-20 0.3390 301.0 3.905E-20 0.3410 302.0 3.779E-20 0.3420 303.0 3.567E-20 0.3430 304.0 3.350E-20 0.3450 305.0 3.242E-20 0.3460 306.0 3.223E-20 0.3470 307.0 3.200E-20 0.3490 308.0 3.146E-20 0.3500 309.0 3.123E-20 0.3590 310.0 3.100E-20 0.3690 311.0 3.222E-20 0.3780 312.0 3.343E-20 0.3870 313.0 3.390E-20 0.3970 314.0 3.233E-20 0.4060 315.0 2.805E-20 0.4150 316.0 2.646E-20 0.4240 317.0 2.460E-20 0.4340 318.0 2.214E-20 0.4430 319.0 1.927E-20 0.4520 320.0 1.854E-20 0.4620 321.0 1.885E-20 0.4710 322.0 1.766E-20 0.4800 323.0 1.723E-20 0.4900 324.0 1.677E-20 0.4990 325.0 1.603E-20 0.5080 326.0 1.606E-20 0.5170 327.0 1.695E-20 0.5270 328.0 1.937E-20 0.5360 329.0 1.857E-20 0.5450 330.0 1.689E-20 0.5550 331.0 1.128E-20 0.5640 332.0 1.048E-20 0.5730 333.0 9.660E-21 0.5830 334.0 9.190E-21 0.5920 335.0 7.370E-21 0.6010 336.0 6.300E-21 0.6110 337.0 5.890E-21 0.6200 338.0 6.470E-21 0.6290 339.0 5.850E-21 0.6380 340.0 5.530E-21 0.6480 341.0 5.630E-21 0.6570 342.0 5.100E-21 0.6660 343.0 4.990E-21 0.6760 344.0 6.490E-21 0.6850 345.0 6.240E-21 0.6940 346.0 7.330E-21 0.7040 347.0 6.310E-21 0.7130 348.0 6.040E-21 0.7220 349.0 4.150E-21 0.7310 350.0 3.910E-21 0.7410 351.0 3.950E-21 0.7500 352.0 4.230E-21 0.7150 353.0 4.150E-21 0.6810 354.0 4.030E-21 0.6490 355.0 4.220E-21 0.6190 356.0 4.430E-21 0.5890 357.0 4.310E-21 0.5620 358.0 4.710E-21 0.5350 359.0 5.030E-21 0.5100 360.0 5.460E-21 0.4860 361.0 6.270E-21 0.4630 362.0 7.060E-21 0.4420 363.0 6.390E-21 0.4210 364.0 6.800E-21 0.4010 365.0 6.650E-21 0.3820 366.0 7.430E-21 0.3640 367.0 8.600E-21 0.3470 368.0 1.012E-20 0.3310 369.0 1.063E-20 0.3150 370.0 1.139E-20 0.3000 371.0 1.185E-20 0.2860 372.0 1.141E-20 0.2730 373.0 1.212E-20 0.2600 374.0 1.352E-20 0.2480 375.0 1.332E-20 0.2360 376.0 1.377E-20 0.2250 377.0 1.467E-20 0.2140 378.0 1.605E-20 0.2040 379.0 1.534E-20 0.1950 380.0 1.934E-20 0.1860 381.0 2.455E-20 0.1770 382.0 2.019E-20 0.1690 383.0 2.069E-20 0.1610 384.0 1.939E-20 0.1530 385.0 1.893E-20 0.1460 386.0 1.835E-20 0.1390 387.0 2.287E-20 0.1320 388.0 3.000E-20 0.1260 389.0 3.206E-20 0.1200 390.0 3.483E-20 0.1150 391.0 3.922E-20 0.1090 392.0 3.801E-20 0.1040 393.0 2.852E-20 0.0990 394.0 3.147E-20 0.0950 395.0 3.855E-20 0.0900 396.0 3.679E-20 0.0860 397.0 3.361E-20 0.0820 398.0 4.323E-20 0.0780 399.0 4.345E-20 0.0740 400.0 3.873E-20 0.0710 401.0 4.455E-20 0.0670 402.0 5.843E-20 0.0640 403.0 7.159E-20 0.0610 404.0 6.237E-20 0.0580 405.0 4.491E-20 0.0560 406.0 4.482E-20 0.0530 407.0 4.066E-20 0.0510 408.0 3.444E-20 0.0480 409.0 4.008E-20 0.0460 410.0 5.661E-20 0.0440 411.0 7.221E-20 0.0420 412.0 7.406E-20 0.0400 413.0 1.075E-19 0.0380 414.0 1.012E-19 0.0360 415.0 1.019E-19 0.0340 416.0 6.073E-20 0.0330 417.0 6.829E-20 0.0310 418.0 7.873E-20 0.0300 419.0 9.134E-20 0.0280 420.0 5.602E-20 0.0270 421.0 7.188E-20 0.0260 422.0 6.990E-20 0.0250 423.0 1.305E-19 0.0230 424.0 8.239E-20 0.0220 425.0 1.045E-19 0.0210 426.0 1.641E-19 0.0200 427.0 1.610E-19 0.0190 428.0 2.142E-19 0.0180 429.0 6.499E-20 0.0180 430.0 7.027E-20 0.0170 431.0 6.518E-20 0.0160 432.0 6.082E-20 0.0150 433.0 5.657E-20 0.0140 434.0 6.809E-20 0.0140 435.0 7.660E-20 0.0130 436.0 1.319E-19 0.0130 437.0 9.185E-20 0.0120 438.0 1.382E-19 0.0110 439.0 1.214E-19 0.0110 440.0 2.594E-19 0.0100 441.0 1.312E-19 0.0100 442.0 9.013E-20 0.0090 443.0 1.112E-19 0.0090 444.0 1.346E-19 0.0090 445.0 1.511E-19 0.0080 446.0 7.818E-20 0.0080 447.0 3.730E-20 0.0070 448.0 4.144E-20 0.0070 449.0 5.527E-20 0.0070 450.0 8.682E-20 0.0060 451.0 1.382E-19 0.0060 452.0 1.595E-19 0.0060 453.0 3.037E-19 0.0060 454.0 2.690E-19 0.0050 455.0 5.199E-19 0.0050 456.0 1.567E-19 0.0050 457.0 2.661E-20 0.0050 458.0 2.201E-20 0.0040 459.0 9.020E-21 0.0040 460.0 1.202E-20 0.0040 461.0 8.830E-21 0.0040 462.0 5.880E-21 0.0040 463.0 3.220E-21 0.0000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/GLYD_IUPAC10 ================================================ GLYD_IUPAC10 ! HOCH2CHO + hv ---> products ! IUPAC (2002) based on Bacher et al (2001), J. Atm. Chem, 39, 171. ! quantum yield = 0.75+/-0.25 ! lambda(nm) xcross(1.E+20*cm2) yield Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 205.0 3.910E-19 0.750 206.0 3.370E-19 0.750 207.0 2.870E-19 0.750 208.0 2.460E-19 0.750 209.0 2.120E-19 0.750 210.0 1.810E-19 0.750 211.0 1.530E-19 0.750 212.0 1.300E-19 0.750 213.0 1.120E-19 0.750 214.0 9.400E-20 0.750 215.0 7.840E-20 0.750 216.0 6.490E-20 0.750 217.0 5.300E-20 0.750 218.0 4.260E-20 0.750 219.0 3.370E-20 0.750 220.0 2.650E-20 0.750 221.0 2.130E-20 0.750 222.0 1.650E-20 0.750 223.0 1.360E-20 0.750 224.0 1.120E-20 0.750 225.0 9.330E-21 0.750 226.0 7.830E-21 0.750 227.0 6.910E-21 0.750 228.0 6.370E-21 0.750 229.0 6.370E-21 0.750 230.0 6.490E-21 0.750 231.0 6.440E-21 0.750 232.0 6.800E-21 0.750 233.0 7.230E-21 0.750 234.0 7.850E-21 0.750 235.0 8.330E-21 0.750 236.0 8.800E-21 0.750 237.0 9.390E-21 0.750 238.0 1.030E-20 0.750 239.0 1.110E-20 0.750 240.0 1.200E-20 0.750 241.0 1.280E-20 0.750 242.0 1.380E-20 0.750 243.0 1.500E-20 0.750 244.0 1.590E-20 0.750 245.0 1.710E-20 0.750 246.0 1.830E-20 0.750 247.0 1.950E-20 0.750 248.0 2.090E-20 0.750 249.0 2.220E-20 0.750 251.0 2.500E-20 0.750 252.0 2.650E-20 0.750 253.0 2.820E-20 0.750 254.0 2.970E-20 0.750 255.0 3.090E-20 0.750 256.0 3.210E-20 0.750 257.0 3.390E-20 0.750 258.0 3.590E-20 0.750 259.0 3.750E-20 0.750 260.0 3.890E-20 0.750 261.0 4.020E-20 0.750 262.0 4.130E-20 0.750 263.0 4.240E-20 0.750 264.0 4.400E-20 0.750 265.0 4.600E-20 0.750 266.0 4.750E-20 0.750 267.0 4.850E-20 0.750 268.0 4.920E-20 0.750 269.0 4.990E-20 0.750 270.0 5.050E-20 0.750 271.0 5.140E-20 0.750 272.0 5.230E-20 0.750 273.0 5.360E-20 0.750 274.0 5.400E-20 0.750 275.0 5.410E-20 0.750 276.0 5.390E-20 0.750 277.0 5.420E-20 0.750 278.0 5.370E-20 0.750 279.0 5.340E-20 0.750 280.0 5.340E-20 0.750 281.0 5.370E-20 0.750 282.0 5.370E-20 0.750 283.0 5.250E-20 0.750 284.0 5.120E-20 0.750 285.0 5.010E-20 0.750 286.0 4.930E-20 0.750 287.0 4.800E-20 0.750 288.0 4.670E-20 0.750 289.0 4.580E-20 0.750 290.0 4.500E-20 0.750 291.0 4.410E-20 0.750 292.0 4.190E-20 0.750 293.0 3.960E-20 0.750 294.0 3.760E-20 0.750 295.0 3.590E-20 0.750 296.0 3.460E-20 0.750 297.0 3.290E-20 0.750 298.0 3.170E-20 0.750 299.0 3.020E-20 0.750 300.0 2.900E-20 0.750 301.0 2.740E-20 0.750 302.0 2.510E-20 0.750 303.0 2.260E-20 0.750 304.0 2.070E-20 0.750 305.0 1.910E-20 0.750 306.0 1.770E-20 0.750 307.0 1.640E-20 0.750 308.0 1.500E-20 0.750 309.0 1.360E-20 0.750 310.0 1.250E-20 0.750 311.0 1.150E-20 0.750 312.0 1.030E-20 0.750 313.0 8.840E-21 0.750 314.0 7.710E-21 0.750 315.0 6.890E-21 0.750 316.0 5.970E-21 0.750 317.0 5.160E-21 0.750 318.0 4.550E-21 0.750 319.0 3.960E-21 0.750 320.0 3.290E-21 0.750 321.0 2.850E-21 0.750 322.0 2.490E-21 0.750 323.0 2.130E-21 0.750 324.0 1.850E-21 0.750 325.0 1.470E-21 0.750 326.0 1.280E-21 0.750 327.0 1.050E-21 0.750 328.0 8.700E-22 0.750 329.0 8.400E-22 0.750 330.0 6.800E-22 0.750 331.0 5.800E-22 0.750 332.0 4.300E-22 0.750 333.0 4.000E-22 0.750 334.0 4.000E-22 0.750 335.0 3.900E-22 0.750 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/GLYF_RACM2 ================================================ GLYF_RACM2 ! GLY + HV = HCHO + CO ! RACM2 Photolysis data ! Supplied by Dr. Wendy Goliff ! Reformatted by Dr. Golam Sarwar to make it compatible with CMAQ Points ! With FAC, units are (cm^2/molecule) FAC=1.0 186.1 0.000E+00 0.000 187.8 0.000E+00 0.000 189.6 0.000E+00 0.000 191.4 0.000E+00 0.000 193.3 0.000E+00 0.000 195.2 0.000E+00 0.000 197.1 0.000E+00 0.000 199.0 0.000E+00 0.000 201.0 0.000E+00 0.000 203.1 0.000E+00 0.000 205.2 0.000E+00 0.000 207.3 0.000E+00 0.000 209.4 0.000E+00 0.000 211.7 0.000E+00 0.000 213.9 0.000E+00 0.000 216.2 0.000E+00 0.000 218.6 0.000E+00 0.000 221.0 0.000E+00 0.000 223.5 0.000E+00 0.000 226.0 0.000E+00 0.203 228.6 0.000E+00 0.213 231.3 0.000E+00 0.226 234.0 0.000E+00 0.240 236.7 0.000E+00 0.253 239.6 0.000E+00 0.269 242.5 0.000E+00 0.280 245.4 0.000E+00 0.293 248.5 0.000E+00 0.307 251.6 0.150E-19 0.320 254.8 0.166E-19 0.334 258.2 0.183E-19 0.346 261.5 0.199E-19 0.357 265.0 0.226E-19 0.369 268.5 0.242E-19 0.382 272.2 0.274E-19 0.394 275.9 0.306E-19 0.407 279.8 0.312E-19 0.420 283.7 0.353E-19 0.427 287.8 0.381E-19 0.436 292.0 0.365E-19 0.444 296.3 0.385E-19 0.453 300.5 0.397E-19 0.457 303.0 0.357E-19 0.459 304.0 0.335E-19 0.459 305.0 0.324E-19 0.460 306.0 0.322E-19 0.460 307.0 0.320E-19 0.459 308.0 0.315E-19 0.459 309.0 0.312E-19 0.458 310.0 0.310E-19 0.458 311.0 0.322E-19 0.457 312.0 0.334E-19 0.456 313.0 0.339E-19 0.454 314.0 0.323E-19 0.453 316.0 0.265E-19 0.448 320.0 0.185E-19 0.433 325.0 0.160E-19 0.408 330.0 0.169E-19 0.379 335.0 0.737E-20 0.337 340.0 0.553E-20 0.279 345.0 0.624E-20 0.204 350.0 0.391E-20 0.150 355.0 0.422E-20 0.108 360.0 0.546E-20 0.072 365.0 0.665E-20 0.040 370.0 0.114E-19 0.022 375.0 0.133E-19 0.014 380.0 0.193E-19 0.011 385.0 0.189E-19 0.008 390.0 0.348E-19 0.007 395.0 0.386E-19 0.005 400.0 0.387E-19 0.004 405.0 0.449E-19 0.003 410.0 0.566E-19 0.002 415.0 0.102E-18 0.001 420.0 0.560E-19 0.000 425.0 0.104E-18 0.000 430.0 0.703E-19 0.000 435.0 0.766E-19 0.000 440.0 0.259E-18 0.000 445.0 0.151E-18 0.000 450.0 0.868E-19 0.000 455.0 0.520E-18 0.000 460.0 0.120E-19 0.000 465.0 0.330E-20 0.000 470.0 0.760E-21 0.000 475.0 0.159E-20 0.000 480.0 0.740E-21 0.000 485.0 0.500E-21 0.000 490.0 0.450E-21 0.000 495.0 0.420E-21 0.000 500.0 0.330E-21 0.000 505.0 0.350E-21 0.000 510.0 0.230E-21 0.000 515.0 0.530E-21 0.000 520.0 0.100E-20 0.000 525.0 0.400E-22 0.000 530.0 0.000E+00 0.000 535.0 0.000E+00 0.000 540.0 0.000E+00 0.000 545.0 0.000E+00 0.000 550.0 0.000E+00 0.000 555.0 0.000E+00 0.000 560.0 0.000E+00 0.000 565.0 0.000E+00 0.000 570.0 0.000E+00 0.000 575.0 0.000E+00 0.000 580.0 0.000E+00 0.000 585.0 0.000E+00 0.000 590.0 0.000E+00 0.000 595.0 0.000E+00 0.000 600.0 0.000E+00 0.000 605.0 0.000E+00 0.000 610.0 0.000E+00 0.000 615.0 0.000E+00 0.000 620.0 0.000E+00 0.000 625.0 0.000E+00 0.000 630.0 0.000E+00 0.000 635.0 0.000E+00 0.000 640.0 0.000E+00 0.000 644.8 0.000E+00 0.000 651.0 0.000E+00 0.000 660.0 0.000E+00 0.000 670.0 0.000E+00 0.000 680.0 0.000E+00 0.000 690.0 0.000E+00 0.000 700.0 0.000E+00 0.000 710.0 0.000E+00 0.000 720.0 0.000E+00 0.000 730.0 0.000E+00 0.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/GLYH2_RACM2 ================================================ GLYH2_RACM2 ! GLY + HV = H2 + 2*CO ! RACM2 Photolysis data ! Supplied by Dr. Wendy Goliff ! Reformatted by Dr. Golam Sarwar to make it compatible with CMAQ Points ! With FAC, units are (cm^2/molecule) FAC=1.0 186.1 0.000E+00 0.000 187.8 0.000E+00 0.000 189.6 0.000E+00 0.000 191.4 0.000E+00 0.000 193.3 0.000E+00 0.000 195.2 0.000E+00 0.000 197.1 0.000E+00 0.000 199.0 0.000E+00 0.000 201.0 0.000E+00 0.000 203.1 0.000E+00 0.000 205.2 0.000E+00 0.000 207.3 0.000E+00 0.000 209.4 0.000E+00 0.000 211.7 0.000E+00 0.000 213.9 0.000E+00 0.000 216.2 0.000E+00 0.000 218.6 0.000E+00 0.000 221.0 0.000E+00 0.000 223.5 0.000E+00 0.000 226.0 0.000E+00 0.555 228.6 0.000E+00 0.542 231.3 0.000E+00 0.527 234.0 0.000E+00 0.510 236.7 0.000E+00 0.494 239.6 0.000E+00 0.475 242.5 0.000E+00 0.462 245.4 0.000E+00 0.446 248.5 0.000E+00 0.428 251.6 0.150E-19 0.412 254.8 0.166E-19 0.395 258.2 0.183E-19 0.379 261.5 0.199E-19 0.363 265.0 0.226E-19 0.345 268.5 0.242E-19 0.328 272.2 0.274E-19 0.309 275.9 0.306E-19 0.291 279.8 0.312E-19 0.270 283.7 0.353E-19 0.255 287.8 0.381E-19 0.239 292.0 0.365E-19 0.220 296.3 0.385E-19 0.201 300.5 0.397E-19 0.184 303.0 0.357E-19 0.174 304.0 0.335E-19 0.170 305.0 0.324E-19 0.166 306.0 0.322E-19 0.162 307.0 0.320E-19 0.158 308.0 0.315E-19 0.154 309.0 0.312E-19 0.150 310.0 0.310E-19 0.146 311.0 0.322E-19 0.142 312.0 0.334E-19 0.138 313.0 0.339E-19 0.133 314.0 0.323E-19 0.129 316.0 0.265E-19 0.122 320.0 0.185E-19 0.110 325.0 0.160E-19 0.095 330.0 0.169E-19 0.080 335.0 0.737E-20 0.065 340.0 0.553E-20 0.051 345.0 0.624E-20 0.036 350.0 0.391E-20 0.021 355.0 0.422E-20 0.008 360.0 0.546E-20 0.000 365.0 0.665E-20 0.000 370.0 0.114E-19 0.000 375.0 0.133E-19 0.000 380.0 0.193E-19 0.000 385.0 0.189E-19 0.000 390.0 0.348E-19 0.000 395.0 0.386E-19 0.000 400.0 0.387E-19 0.000 405.0 0.449E-19 0.000 410.0 0.566E-19 0.000 415.0 0.102E-18 0.000 420.0 0.560E-19 0.000 425.0 0.104E-18 0.000 430.0 0.703E-19 0.000 435.0 0.766E-19 0.000 440.0 0.259E-18 0.000 445.0 0.151E-18 0.000 450.0 0.868E-19 0.000 455.0 0.520E-18 0.000 460.0 0.120E-19 0.000 465.0 0.330E-20 0.000 470.0 0.760E-21 0.000 475.0 0.159E-20 0.000 480.0 0.740E-21 0.000 485.0 0.500E-21 0.000 490.0 0.450E-21 0.000 495.0 0.420E-21 0.000 500.0 0.330E-21 0.000 505.0 0.350E-21 0.000 510.0 0.230E-21 0.000 515.0 0.530E-21 0.000 520.0 0.100E-20 0.000 525.0 0.400E-22 0.000 530.0 0.000E+00 0.000 535.0 0.000E+00 0.000 540.0 0.000E+00 0.000 545.0 0.000E+00 0.000 550.0 0.000E+00 0.000 555.0 0.000E+00 0.000 560.0 0.000E+00 0.000 565.0 0.000E+00 0.000 570.0 0.000E+00 0.000 575.0 0.000E+00 0.000 580.0 0.000E+00 0.000 585.0 0.000E+00 0.000 590.0 0.000E+00 0.000 595.0 0.000E+00 0.000 600.0 0.000E+00 0.000 605.0 0.000E+00 0.000 610.0 0.000E+00 0.000 615.0 0.000E+00 0.000 620.0 0.000E+00 0.000 625.0 0.000E+00 0.000 630.0 0.000E+00 0.000 635.0 0.000E+00 0.000 640.0 0.000E+00 0.000 644.8 0.000E+00 0.000 651.0 0.000E+00 0.000 660.0 0.000E+00 0.000 670.0 0.000E+00 0.000 680.0 0.000E+00 0.000 690.0 0.000E+00 0.000 700.0 0.000E+00 0.000 710.0 0.000E+00 0.000 720.0 0.000E+00 0.000 730.0 0.000E+00 0.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/GLYHX_RACM2 ================================================ GLYHX_RACM2 ! GLY + HV = 2*HO2 + 2*CO ! RACM2 Photolysis data ! Supplied by Dr. Wendy Goliff ! Reformatted by Dr. Golam Sarwar to make it compatible with CMAQ Points ! With FAC, units are (cm^2/molecule) FAC=1.0 186.1 0.000E+00 0.000 187.8 0.000E+00 0.000 189.6 0.000E+00 0.000 191.4 0.000E+00 0.000 193.3 0.000E+00 0.000 195.2 0.000E+00 0.000 197.1 0.000E+00 0.000 199.0 0.000E+00 0.000 201.0 0.000E+00 0.000 203.1 0.000E+00 0.000 205.2 0.000E+00 0.000 207.3 0.000E+00 0.000 209.4 0.000E+00 0.000 211.7 0.000E+00 0.000 213.9 0.000E+00 0.000 216.2 0.000E+00 0.000 218.6 0.000E+00 0.000 221.0 0.000E+00 0.000 223.5 0.000E+00 0.000 226.0 0.000E+00 0.242 228.6 0.000E+00 0.245 231.3 0.000E+00 0.247 234.0 0.000E+00 0.250 236.7 0.000E+00 0.253 239.6 0.000E+00 0.256 242.5 0.000E+00 0.259 245.4 0.000E+00 0.261 248.5 0.000E+00 0.265 251.6 0.150E-19 0.268 254.8 0.166E-19 0.271 258.2 0.183E-19 0.275 261.5 0.199E-19 0.280 265.0 0.226E-19 0.286 268.5 0.242E-19 0.291 272.2 0.274E-19 0.297 275.9 0.306E-19 0.303 279.8 0.312E-19 0.310 283.7 0.353E-19 0.317 287.8 0.381E-19 0.326 292.0 0.365E-19 0.335 296.3 0.385E-19 0.347 300.5 0.397E-19 0.359 303.0 0.357E-19 0.367 304.0 0.335E-19 0.371 305.0 0.324E-19 0.374 306.0 0.322E-19 0.378 307.0 0.320E-19 0.383 308.0 0.315E-19 0.387 309.0 0.312E-19 0.392 310.0 0.310E-19 0.396 311.0 0.322E-19 0.401 312.0 0.334E-19 0.407 313.0 0.339E-19 0.412 314.0 0.323E-19 0.418 316.0 0.265E-19 0.430 320.0 0.185E-19 0.457 325.0 0.160E-19 0.497 330.0 0.169E-19 0.541 335.0 0.737E-20 0.593 340.0 0.553E-20 0.648 345.0 0.624E-20 0.616 350.0 0.391E-20 0.520 355.0 0.422E-20 0.424 360.0 0.546E-20 0.332 365.0 0.665E-20 0.253 370.0 0.114E-19 0.191 375.0 0.133E-19 0.142 380.0 0.193E-19 0.104 385.0 0.189E-19 0.077 390.0 0.348E-19 0.057 395.0 0.386E-19 0.043 400.0 0.387E-19 0.033 405.0 0.449E-19 0.026 410.0 0.566E-19 0.020 415.0 0.102E-18 0.016 420.0 0.560E-19 0.013 425.0 0.104E-18 0.010 430.0 0.703E-19 0.008 435.0 0.766E-19 0.006 440.0 0.259E-18 0.003 445.0 0.151E-18 0.001 450.0 0.868E-19 0.000 455.0 0.520E-18 0.000 460.0 0.120E-19 0.000 465.0 0.330E-20 0.000 470.0 0.760E-21 0.000 475.0 0.159E-20 0.000 480.0 0.740E-21 0.000 485.0 0.500E-21 0.000 490.0 0.450E-21 0.000 495.0 0.420E-21 0.000 500.0 0.330E-21 0.000 505.0 0.350E-21 0.000 510.0 0.230E-21 0.000 515.0 0.530E-21 0.000 520.0 0.100E-20 0.000 525.0 0.400E-22 0.000 530.0 0.000E+00 0.000 535.0 0.000E+00 0.000 540.0 0.000E+00 0.000 545.0 0.000E+00 0.000 550.0 0.000E+00 0.000 555.0 0.000E+00 0.000 560.0 0.000E+00 0.000 565.0 0.000E+00 0.000 570.0 0.000E+00 0.000 575.0 0.000E+00 0.000 580.0 0.000E+00 0.000 585.0 0.000E+00 0.000 590.0 0.000E+00 0.000 595.0 0.000E+00 0.000 600.0 0.000E+00 0.000 605.0 0.000E+00 0.000 610.0 0.000E+00 0.000 615.0 0.000E+00 0.000 620.0 0.000E+00 0.000 625.0 0.000E+00 0.000 630.0 0.000E+00 0.000 635.0 0.000E+00 0.000 640.0 0.000E+00 0.000 644.8 0.000E+00 0.000 651.0 0.000E+00 0.000 660.0 0.000E+00 0.000 670.0 0.000E+00 0.000 680.0 0.000E+00 0.000 690.0 0.000E+00 0.000 700.0 0.000E+00 0.000 710.0 0.000E+00 0.000 720.0 0.000E+00 0.000 730.0 0.000E+00 0.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/GLYOX_M_CRI ================================================ GLYOX_R_CRI !Glyoxal (CHOCHO) channel quantum yields (1 bar, 298 K) !CHOCHO--->HCHO+CO ! !Cross-Section combines IUPAC (2013) recommendation (250-473 nm) and JPL 2011 (474-526 nm). ! The latter comes from the URL: ! http://satellite.mpic.de/spectral_atlas/cross_sections/Organics%20%28carbonyls%29/Bicarbonyls/CHOCHO.spc ! accessed Feb. 12, 2016 ! Note that the JPL values are the same from 250 to 473 nm as IUPAC values ! !QY based on recommendation ! http://iupac.pole-ether.fr/htdocs/datasheets/pdf/P4_(CHO)2+hv.pdf dated 2013 but ! the IUPAC data sheet appears to incorrectly use the formula for ! QY of total and individual channels derived in ! Salter, R. J., Blitz, M. A., Heard, D. E., Pilling, M. J., Rickard, A. R. and ! Seakins, P. W., Phys. Chem. Chem. Phys., 15, 6516, 2013. ! (1) In IUPAC datasheet, the right side of the phi total equation should use the ! reciprocal of pressure correction based on EQ6 in Salter et al. (2013) ! (2) The IUPAC datasheet may have reversed B1 and B2 values in Table 3 in Salter et al. ! (2013) for the individual ! !Channel Possible: !phi1 = H2 + 2CO !phi2 = HCO + HCO !phi3 = HCHO + CO !phi4 = HCO+CO+H !phi5 = 2H+2CO !phi6 = TOTAL ! Note that phi2, phi4 and phi5 are summed in the 2CO+2HO2 column because the species are ! expected result from these channels ! !wvl XCROSS HCHO+CO H2+2CO 2HCO HCO+CO+H 2H+2CO Total 2CO+2HO2 Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 250.0 1.73E-20 0.3549940 0.0000000 0.0034229 0.3888348 0.2526732 0.9999250 0.6449310 251.0 1.52E-20 0.3569473 0.0000000 0.0036735 0.3887472 0.2505473 0.9999154 0.6429681 252.0 1.48E-20 0.3590325 0.0000000 0.0039424 0.3886531 0.2482767 0.9999046 0.6408721 253.0 1.55E-20 0.3612552 0.0000000 0.0042309 0.3885518 0.2458548 0.9998926 0.6386375 254.0 1.60E-20 0.3636207 0.0000000 0.0045404 0.3884428 0.2432753 0.9998792 0.6362586 255.0 1.67E-20 0.3661339 0.0000000 0.0048724 0.3883257 0.2405322 0.9998643 0.6337303 256.0 1.62E-20 0.3687995 0.0000000 0.0052285 0.3881997 0.2376199 0.9998476 0.6310481 257.0 1.81E-20 0.3716211 0.0000000 0.0056106 0.3880642 0.2345331 0.9998290 0.6282079 258.0 1.82E-20 0.3746019 0.0000000 0.0060203 0.3879185 0.2312676 0.9998084 0.6252065 259.0 1.85E-20 0.3777441 0.0000000 0.0064598 0.3877619 0.2278196 0.9997855 0.6220413 260.0 1.83E-20 0.3810490 0.0000000 0.0069311 0.3875934 0.2241865 0.9997600 0.6187110 261.0 1.96E-20 0.3845164 0.0000000 0.0074365 0.3874123 0.2203664 0.9997317 0.6152152 262.0 2.03E-20 0.3881453 0.0000000 0.0079785 0.3872176 0.2163590 0.9997003 0.6115550 263.0 2.14E-20 0.3919329 0.0000000 0.0085596 0.3870082 0.2121650 0.9996656 0.6077327 264.0 2.18E-20 0.3958748 0.0000000 0.0091825 0.3867831 0.2077866 0.9996271 0.6037523 265.0 2.26E-20 0.3999653 0.0000000 0.0098504 0.3865412 0.2032277 0.9995846 0.5996193 266.0 2.33E-20 0.4041966 0.0000000 0.0105662 0.3862811 0.1984937 0.9995376 0.5953410 267.0 2.37E-20 0.4085591 0.0000000 0.0113334 0.3860016 0.1935916 0.9994857 0.5909266 268.0 2.36E-20 0.4130414 0.0000000 0.0121555 0.3857013 0.1885302 0.9994284 0.5863870 269.0 2.48E-20 0.4176302 0.0000000 0.0130364 0.3853785 0.1833200 0.9993652 0.5817350 270.0 2.51E-20 0.4223104 0.0000000 0.0139802 0.3850318 0.1779733 0.9992956 0.5769852 271.0 2.61E-20 0.4270648 0.0000000 0.0149912 0.3846593 0.1725038 0.9992190 0.5721542 272.0 2.72E-20 0.4318748 0.0000000 0.0160739 0.3842591 0.1669269 0.9991347 0.5672599 273.0 2.81E-20 0.4367200 0.0000000 0.0172333 0.3838294 0.1612593 0.9990421 0.5623220 274.0 2.92E-20 0.4415788 0.0000000 0.0184746 0.3833680 0.1555189 0.9989403 0.5573615 275.0 3.00E-20 0.4464282 0.0000000 0.0198033 0.3828726 0.1497245 0.9988286 0.5524004 276.0 3.06E-20 0.4512442 0.0000000 0.0212252 0.3823409 0.1438957 0.9987061 0.5474619 277.0 3.09E-20 0.4560022 0.0000000 0.0227467 0.3817702 0.1380526 0.9985717 0.5425695 278.0 3.08E-20 0.4606771 0.0000000 0.0243741 0.3811580 0.1322155 0.9984246 0.5377475 279.0 3.09E-20 0.4652436 0.0000000 0.0261144 0.3805012 0.1264044 0.9982636 0.5330200 280.0 3.14E-20 0.4696763 0.0000000 0.0279750 0.3797969 0.1206392 0.9980875 0.5284112 281.0 3.22E-20 0.4739504 0.0000000 0.0299636 0.3790418 0.1149392 0.9978950 0.5239446 282.0 3.32E-20 0.4780414 0.0000000 0.0320883 0.3782325 0.1093226 0.9976848 0.5196433 283.0 3.46E-20 0.4819258 0.0000000 0.0343575 0.3773653 0.1038066 0.9974553 0.5155295 284.0 3.57E-20 0.4855809 0.0000000 0.0367804 0.3764364 0.0984072 0.9972050 0.5116241 285.0 3.67E-20 0.4889853 0.0000000 0.0393661 0.3754419 0.0931389 0.9969322 0.5079469 286.0 3.80E-20 0.4921187 0.0000000 0.0421246 0.3743774 0.0880144 0.9966350 0.5045164 287.0 3.79E-20 0.4949621 0.0000000 0.0450659 0.3732384 0.0830451 0.9963115 0.5013495 288.0 3.81E-20 0.4974980 0.0000000 0.0482009 0.3720204 0.0782405 0.9959597 0.4984617 289.0 3.80E-20 0.4997103 0.0000000 0.0515403 0.3707183 0.0736083 0.9955772 0.4958669 290.0 3.73E-20 0.5015843 0.0000000 0.0550956 0.3693271 0.0691547 0.9951617 0.4935774 291.0 3.64E-20 0.5031065 0.0000000 0.0588786 0.3678414 0.0648841 0.9947106 0.4916041 292.0 3.65E-20 0.5042649 0.0000000 0.0629013 0.3662556 0.0607993 0.9942212 0.4899563 293.0 3.68E-20 0.5050487 0.0000000 0.0671760 0.3645641 0.0569019 0.9936907 0.4886420 294.0 3.73E-20 0.5054480 0.0000000 0.0717153 0.3627609 0.0531918 0.9931159 0.4876679 295.0 3.81E-20 0.5054543 0.0000000 0.0765317 0.3608398 0.0496678 0.9924936 0.4870393 296.0 3.82E-20 0.5050599 0.0000000 0.0816382 0.3587946 0.0463276 0.9918202 0.4867603 297.0 3.92E-20 0.5042580 0.0000000 0.0870474 0.3566188 0.0431679 0.9910921 0.4868342 298.0 4.07E-20 0.5030426 0.0000000 0.0927722 0.3543060 0.0401847 0.9903055 0.4872628 299.0 4.12E-20 0.5014087 0.0000000 0.0988248 0.3518494 0.0373730 0.9894560 0.4880473 300.0 4.05E-20 0.4993517 0.0000000 0.1052175 0.3492426 0.0347276 0.9885394 0.4891877 301.0 3.91E-20 0.4968679 0.0000000 0.1119620 0.3464787 0.0322424 0.9875510 0.4906831 302.0 3.78E-20 0.4939541 0.0000000 0.1190691 0.3435513 0.0299113 0.9864859 0.4925317 303.0 3.57E-20 0.4906081 0.0000000 0.1265491 0.3404539 0.0277278 0.9853389 0.4947308 304.0 3.35E-20 0.4868281 0.0000000 0.1344112 0.3371801 0.0256853 0.9841047 0.4972766 305.0 3.24E-20 0.4826133 0.0000000 0.1426634 0.3337239 0.0237769 0.9827776 0.5001642 306.0 3.22E-20 0.4779637 0.0000000 0.1513122 0.3300795 0.0219960 0.9813514 0.5033878 307.0 3.20E-20 0.4728800 0.0000000 0.1603625 0.3262417 0.0203359 0.9798201 0.5069401 308.0 3.15E-20 0.4673642 0.0000000 0.1698173 0.3222054 0.0187899 0.9781769 0.5108127 309.0 3.12E-20 0.4614194 0.0000000 0.1796775 0.3179666 0.0173516 0.9764151 0.5149957 310.0 3.10E-20 0.4550499 0.0000000 0.1899416 0.3135214 0.0160147 0.9745275 0.5194777 311.0 3.22E-20 0.4482612 0.0000000 0.2006053 0.3088673 0.0147730 0.9725067 0.5242455 312.0 3.34E-20 0.4410606 0.0000000 0.2116616 0.3040021 0.0136207 0.9703449 0.5292843 313.0 3.39E-20 0.4334568 0.0000000 0.2231003 0.2989249 0.0125521 0.9680341 0.5345773 314.0 3.23E-20 0.4254603 0.0000000 0.2349080 0.2936359 0.0115618 0.9655660 0.5401057 315.0 2.81E-20 0.4170835 0.0000000 0.2470674 0.2881364 0.0106448 0.9629321 0.5458486 316.0 2.65E-20 0.4083407 0.0000000 0.2595580 0.2824289 0.0097960 0.9601236 0.5517829 317.0 2.46E-20 0.3992481 0.0000000 0.2723551 0.2765174 0.0090109 0.9571315 0.5578834 318.0 2.21E-20 0.3898240 0.0000000 0.2854301 0.2704072 0.0082852 0.9539464 0.5641224 319.0 1.93E-20 0.3800888 0.0000000 0.2987506 0.2641051 0.0076145 0.9505591 0.5704702 320.0 1.85E-20 0.3700649 0.0000000 0.3122801 0.2576196 0.0069952 0.9469598 0.5768949 321.0 1.89E-20 0.3597767 0.0000000 0.3259785 0.2509604 0.0064235 0.9431390 0.5833623 322.0 1.77E-20 0.3492503 0.0000000 0.3398016 0.2441390 0.0058959 0.9390868 0.5898365 323.0 1.72E-20 0.3385139 0.0000000 0.3537019 0.2371682 0.0054094 0.9347934 0.5962796 324.0 1.68E-20 0.3275969 0.0000000 0.3676286 0.2300626 0.0049609 0.9302491 0.6026521 325.0 1.60E-20 0.3165305 0.0000000 0.3815281 0.2228377 0.0045476 0.9254439 0.6089134 326.0 1.61E-20 0.3053467 0.0000000 0.3953441 0.2155107 0.0041669 0.9203684 0.6150217 327.0 1.70E-20 0.2940785 0.0000000 0.4090184 0.2080997 0.0038164 0.9150130 0.6209344 328.0 1.94E-20 0.2827598 0.0000000 0.4224911 0.2006239 0.0034937 0.9093686 0.6266088 329.0 1.86E-20 0.2714244 0.0000000 0.4357017 0.1931033 0.0031969 0.9034263 0.6320018 330.0 1.69E-20 0.2601064 0.0000000 0.4485888 0.1855585 0.0029239 0.8971776 0.6370712 331.0 1.13E-20 0.2488393 0.0000000 0.4610917 0.1780107 0.0026729 0.8906146 0.6417753 332.0 1.05E-20 0.2376561 0.0000000 0.4731504 0.1704810 0.0024423 0.8837299 0.6460737 333.0 9.66E-21 0.2265889 0.0000000 0.4847064 0.1629908 0.0022304 0.8765166 0.6499277 334.0 9.19E-21 0.2156684 0.0000000 0.4957034 0.1555611 0.0020359 0.8689689 0.6533004 335.0 7.37E-21 0.2049239 0.0000000 0.5060877 0.1482125 0.0018574 0.8610815 0.6561576 336.0 6.30E-21 0.1943827 0.0000000 0.5158091 0.1409649 0.0016936 0.8528502 0.6584675 337.0 5.89E-21 0.1840702 0.0000000 0.5248210 0.1338373 0.0015434 0.8442719 0.6602016 338.0 6.47E-21 0.1740098 0.0000000 0.5330812 0.1268476 0.0014057 0.8353444 0.6613345 339.0 5.85E-21 0.1642224 0.0000000 0.5405522 0.1200127 0.0012795 0.8260668 0.6618445 340.0 5.53E-21 0.1547263 0.0000000 0.5472013 0.1133480 0.0011640 0.8164396 0.6617133 341.0 5.63E-21 0.1455377 0.0000000 0.5530013 0.1068672 0.0010583 0.8064645 0.6609268 342.0 5.10E-21 0.1366698 0.0000000 0.5579304 0.1005828 0.0009616 0.7961446 0.6594748 343.0 4.99E-21 0.1281337 0.0000000 0.5619722 0.0945055 0.0008732 0.7854845 0.6573508 344.0 6.49E-21 0.1199378 0.0000000 0.5651161 0.0886442 0.0007923 0.7744904 0.6545526 345.0 6.24E-21 0.1120880 0.0000000 0.5673571 0.0830062 0.0007185 0.7631698 0.6510818 346.0 7.33E-21 0.1045881 0.0000000 0.5686955 0.0775973 0.0006512 0.7515322 0.6469440 347.0 6.31E-21 0.0974397 0.0000000 0.5691372 0.0724215 0.0005897 0.7395881 0.6421485 348.0 6.04E-21 0.0906421 0.0000000 0.5686930 0.0674813 0.0005337 0.7273501 0.6367080 349.0 4.15E-21 0.0841928 0.0000000 0.5673789 0.0627775 0.0004827 0.7148319 0.6306390 350.0 3.91E-21 0.0780878 0.0000000 0.5652151 0.0583097 0.0004363 0.7020488 0.6239610 351.0 3.95E-21 0.0723211 0.0000000 0.5622263 0.0540762 0.0003940 0.6890176 0.6166965 352.0 4.23E-21 0.0668858 0.0000000 0.5584411 0.0500740 0.0003556 0.6757564 0.6088706 353.0 4.15E-21 0.0617733 0.0000000 0.5538915 0.0462990 0.0003207 0.6622845 0.6005112 354.0 4.03E-21 0.0569743 0.0000000 0.5486128 0.0427462 0.0002890 0.6486223 0.5916480 355.0 4.22E-21 0.0524784 0.0000000 0.5426428 0.0394098 0.0002602 0.6347913 0.5823129 356.0 4.43E-21 0.0482747 0.0000000 0.5360216 0.0362833 0.0002342 0.6208138 0.5725391 357.0 4.31E-21 0.0443515 0.0000000 0.5287914 0.0333593 0.0002106 0.6067127 0.5623613 358.0 4.71E-21 0.0406968 0.0000000 0.5209955 0.0306303 0.0001892 0.5925118 0.5518150 359.0 5.03E-21 0.0372983 0.0000000 0.5126786 0.0280882 0.0001699 0.5782350 0.5409367 360.0 5.46E-21 0.0341435 0.0000000 0.5038858 0.0257248 0.0001525 0.5639066 0.5297631 361.0 6.27E-21 0.0312199 0.0000000 0.4946628 0.0235314 0.0001367 0.5495508 0.5183309 362.0 7.06E-21 0.0285150 0.0000000 0.4850550 0.0214995 0.0001225 0.5351920 0.5066770 363.0 6.39E-21 0.0260164 0.0000000 0.4751076 0.0196204 0.0001097 0.5208541 0.4948377 364.0 6.80E-21 0.0237120 0.0000000 0.4648649 0.0178856 0.0000982 0.5065607 0.4828487 365.0 6.65E-21 0.0215898 0.0000000 0.4543706 0.0162866 0.0000878 0.4923349 0.4707450 366.0 7.43E-21 0.0196383 0.0000000 0.4436670 0.0148151 0.0000785 0.4781989 0.4585605 367.0 8.60E-21 0.0178463 0.0000000 0.4327949 0.0134630 0.0000701 0.4641742 0.4463279 368.0 1.01E-20 0.0162030 0.0000000 0.4217936 0.0122224 0.0000625 0.4502815 0.4340785 369.0 1.06E-20 0.0146981 0.0000000 0.4107007 0.0110857 0.0000558 0.4365403 0.4218422 370.0 1.14E-20 0.0133216 0.0000000 0.3995518 0.0100457 0.0000497 0.4229689 0.4096472 371.0 1.19E-20 0.0120642 0.0000000 0.3883805 0.0090954 0.0000443 0.4095844 0.3975202 372.0 1.14E-20 0.0109169 0.0000000 0.3772183 0.0082281 0.0000395 0.3964028 0.3854859 373.0 1.21E-20 0.0098712 0.0000000 0.3660945 0.0074376 0.0000351 0.3834385 0.3735673 374.0 1.35E-20 0.0089193 0.0000000 0.3550363 0.0067180 0.0000312 0.3707048 0.3617855 375.0 1.33E-20 0.0080536 0.0000000 0.3440685 0.0060635 0.0000278 0.3582133 0.3501598 376.0 1.38E-20 0.0072671 0.0000000 0.3332138 0.0054690 0.0000247 0.3459745 0.3387075 377.0 1.47E-20 0.0065532 0.0000000 0.3224927 0.0049295 0.0000219 0.3339973 0.3274441 378.0 1.61E-20 0.0059059 0.0000000 0.3119235 0.0044403 0.0000195 0.3222892 0.3163833 379.0 1.53E-20 0.0053194 0.0000000 0.3015221 0.0039973 0.0000173 0.3108562 0.3055367 380.0 1.93E-20 0.0047886 0.0000000 0.2913027 0.0035964 0.0000153 0.2997030 0.2949144 381.0 2.46E-20 0.0043084 0.0000000 0.2812771 0.0032339 0.0000136 0.2888329 0.2845245 382.0 2.02E-20 0.0038743 0.0000000 0.2714551 0.0029064 0.0000120 0.2782478 0.2743735 383.0 2.07E-20 0.0034823 0.0000000 0.2618445 0.0026107 0.0000107 0.2679481 0.2644658 384.0 1.94E-20 0.0031285 0.0000000 0.2524513 0.0023439 0.0000094 0.2579330 0.2548046 385.0 1.89E-20 0.0028093 0.0000000 0.2432792 0.0021033 0.0000084 0.2482001 0.2453909 386.0 1.84E-20 0.0025215 0.0000000 0.2343303 0.0018865 0.0000074 0.2387457 0.2362242 387.0 2.29E-20 0.0022621 0.0000000 0.2256044 0.0016913 0.0000065 0.2295643 0.2273023 388.0 3.00E-20 0.0020284 0.0000000 0.2170995 0.0015155 0.0000058 0.2206493 0.2186209 389.0 3.21E-20 0.0018180 0.0000000 0.2088115 0.0013573 0.0000051 0.2119920 0.2101740 390.0 3.48E-20 0.0016286 0.0000000 0.2007340 0.0012150 0.0000045 0.2035821 0.2019535 391.0 3.92E-20 0.0014581 0.0000000 0.1928583 0.0010870 0.0000040 0.1954074 0.1939493 392.0 3.80E-20 0.0013046 0.0000000 0.1851734 0.0009718 0.0000035 0.1874533 0.1861487 393.0 2.85E-20 0.0011664 0.0000000 0.1776655 0.0008682 0.0000031 0.1797032 0.1785368 394.0 3.15E-20 0.0010420 0.0000000 0.1703179 0.0007750 0.0000027 0.1721376 0.1710956 395.0 3.86E-20 0.0009299 0.0000000 0.1631110 0.0006911 0.0000024 0.1647344 0.1638045 396.0 3.68E-20 0.0008289 0.0000000 0.1560219 0.0006155 0.0000021 0.1574684 0.1566395 397.0 3.36E-20 0.0007378 0.0000000 0.1490243 0.0005474 0.0000019 0.1503114 0.1495736 398.0 4.32E-20 0.0006555 0.0000000 0.1420889 0.0004860 0.0000016 0.1432320 0.1425765 399.0 4.35E-20 0.0005812 0.0000000 0.1351832 0.0004305 0.0000014 0.1361963 0.1356151 400.0 3.87E-20 0.0005139 0.0000000 0.1282728 0.0003804 0.0000012 0.1291683 0.1286544 401.0 4.46E-20 0.0004529 0.0000000 0.1213225 0.0003350 0.0000011 0.1221114 0.1216585 402.0 5.84E-20 0.0003976 0.0000000 0.1142981 0.0002938 0.0000009 0.1149905 0.1145928 403.0 7.16E-20 0.0003474 0.0000000 0.1071700 0.0002565 0.0000008 0.1077748 0.1074273 404.0 6.24E-20 0.0003019 0.0000000 0.0999167 0.0002227 0.0000007 0.1004420 0.1001401 405.0 4.49E-20 0.0002605 0.0000000 0.0925302 0.0001920 0.0000006 0.0929833 0.0927228 406.0 4.48E-20 0.0002231 0.0000000 0.0850205 0.0001643 0.0000005 0.0854084 0.0851853 407.0 4.07E-20 0.0001893 0.0000000 0.0774213 0.0001393 0.0000004 0.0777503 0.0775610 408.0 3.44E-20 0.0001590 0.0000000 0.0697921 0.0001169 0.0000003 0.0700684 0.0699094 409.0 4.01E-20 0.0001321 0.0000000 0.0622188 0.0000970 0.0000003 0.0624482 0.0623161 410.0 5.66E-20 0.0001084 0.0000000 0.0548086 0.0000796 0.0000002 0.0549968 0.0548884 411.0 7.22E-20 0.0000879 0.0000000 0.0476812 0.0000645 0.0000002 0.0478338 0.0477459 412.0 7.41E-20 0.0000704 0.0000000 0.0409565 0.0000516 0.0000001 0.0410786 0.0410082 413.0 1.08E-19 0.0000556 0.0000000 0.0347406 0.0000407 0.0000001 0.0348370 0.0347814 414.0 1.01E-19 0.0000434 0.0000000 0.0291143 0.0000318 0.0000001 0.0291897 0.0291462 415.0 1.02E-19 0.0000335 0.0000000 0.0241261 0.0000245 0.0000001 0.0241843 0.0241507 416.0 6.07E-20 0.0000256 0.0000000 0.0197899 0.0000187 0.0000001 0.0198343 0.0198086 417.0 6.83E-20 0.0000194 0.0000000 0.0160882 0.0000142 0.0000000 0.0161219 0.0161025 418.0 7.87E-20 0.0000146 0.0000000 0.0129796 0.0000106 0.0000000 0.0130049 0.0129903 419.0 9.13E-20 0.0000109 0.0000000 0.0104060 0.0000079 0.0000000 0.0104249 0.0104140 420.0 5.60E-20 0.0000081 0.0000000 0.0083014 0.0000059 0.0000000 0.0083155 0.0083074 421.0 7.19E-20 0.0000060 0.0000000 0.0065980 0.0000044 0.0000000 0.0066084 0.0066024 422.0 6.99E-20 0.0000044 0.0000000 0.0052308 0.0000032 0.0000000 0.0052385 0.0052341 423.0 1.30E-19 0.0000033 0.0000000 0.0041410 0.0000024 0.0000000 0.0041467 0.0041434 424.0 8.24E-20 0.0000024 0.0000000 0.0032769 0.0000018 0.0000000 0.0032811 0.0032787 425.0 1.04E-19 0.0000018 0.0000000 0.0025946 0.0000013 0.0000000 0.0025977 0.0025959 426.0 1.64E-19 0.0000013 0.0000000 0.0020575 0.0000010 0.0000000 0.0020598 0.0020584 427.0 1.61E-19 0.0000010 0.0000000 0.0016355 0.0000007 0.0000000 0.0016372 0.0016362 428.0 2.14E-19 0.0000007 0.0000000 0.0013044 0.0000005 0.0000000 0.0013056 0.0013049 429.0 6.50E-20 0.0000005 0.0000000 0.0010447 0.0000004 0.0000000 0.0010456 0.0010451 430.0 7.03E-20 0.0000004 0.0000000 0.0008411 0.0000003 0.0000000 0.0008418 0.0008414 431.0 6.52E-20 0.0000003 0.0000000 0.0006813 0.0000002 0.0000000 0.0006818 0.0006815 432.0 6.08E-20 0.0000002 0.0000000 0.0005557 0.0000002 0.0000000 0.0005561 0.0005559 433.0 5.66E-20 0.0000002 0.0000000 0.0004569 0.0000001 0.0000000 0.0004572 0.0004570 434.0 6.81E-20 0.0000001 0.0000000 0.0003790 0.0000001 0.0000000 0.0003792 0.0003791 435.0 7.66E-20 0.0000001 0.0000000 0.0003174 0.0000001 0.0000000 0.0003175 0.0003174 436.0 1.32E-19 0.0000001 0.0000000 0.0002685 0.0000001 0.0000000 0.0002686 0.0002685 437.0 9.19E-20 0.0000001 0.0000000 0.0002295 0.0000000 0.0000000 0.0002296 0.0002295 438.0 1.38E-19 0.0000001 0.0000000 0.0001983 0.0000000 0.0000000 0.0001984 0.0001984 439.0 1.21E-19 0.0000000 0.0000000 0.0001733 0.0000000 0.0000000 0.0001733 0.0001733 440.0 2.59E-19 0.0000000 0.0000000 0.0001530 0.0000000 0.0000000 0.0001531 0.0001530 441.0 1.31E-19 0.0000000 0.0000000 0.0001365 0.0000000 0.0000000 0.0001365 0.0001365 442.0 9.01E-20 0.0000000 0.0000000 0.0001230 0.0000000 0.0000000 0.0001230 0.0001230 443.0 1.11E-19 0.0000000 0.0000000 0.0001118 0.0000000 0.0000000 0.0001118 0.0001118 444.0 1.35E-19 0.0000000 0.0000000 0.0001024 0.0000000 0.0000000 0.0001025 0.0001024 445.0 1.51E-19 0.0000000 0.0000000 0.0000946 0.0000000 0.0000000 0.0000946 0.0000946 446.0 7.82E-20 0.0000000 0.0000000 0.0000879 0.0000000 0.0000000 0.0000879 0.0000879 447.0 3.73E-20 0.0000000 0.0000000 0.0000822 0.0000000 0.0000000 0.0000822 0.0000822 448.0 4.14E-20 0.0000000 0.0000000 0.0000772 0.0000000 0.0000000 0.0000772 0.0000772 449.0 5.53E-20 0.0000000 0.0000000 0.0000728 0.0000000 0.0000000 0.0000729 0.0000728 450.0 8.68E-20 0.0000000 0.0000000 0.0000690 0.0000000 0.0000000 0.0000690 0.0000690 451.0 1.38E-19 0.0000000 0.0000000 0.0000656 0.0000000 0.0000000 0.0000656 0.0000656 452.0 1.59E-19 0.0000000 0.0000000 0.0000625 0.0000000 0.0000000 0.0000625 0.0000625 453.0 3.04E-19 0.0000000 0.0000000 0.0000596 0.0000000 0.0000000 0.0000597 0.0000596 454.0 2.69E-19 0.0000000 0.0000000 0.0000571 0.0000000 0.0000000 0.0000571 0.0000571 455.0 5.20E-19 0.0000000 0.0000000 0.0000547 0.0000000 0.0000000 0.0000547 0.0000547 456.0 1.57E-19 0.0000000 0.0000000 0.0000525 0.0000000 0.0000000 0.0000525 0.0000525 457.0 2.66E-20 0.0000000 0.0000000 0.0000504 0.0000000 0.0000000 0.0000504 0.0000504 458.0 2.20E-20 0.0000000 0.0000000 0.0000485 0.0000000 0.0000000 0.0000485 0.0000485 459.0 9.02E-21 0.0000000 0.0000000 0.0000467 0.0000000 0.0000000 0.0000467 0.0000467 460.0 1.20E-20 0.0000000 0.0000000 0.0000450 0.0000000 0.0000000 0.0000450 0.0000450 461.0 8.83E-21 0.0000000 0.0000000 0.0000434 0.0000000 0.0000000 0.0000434 0.0000434 462.0 5.88E-21 0.0000000 0.0000000 0.0000418 0.0000000 0.0000000 0.0000418 0.0000418 463.0 3.22E-21 0.0000000 0.0000000 0.0000404 0.0000000 0.0000000 0.0000404 0.0000404 464.0 3.39E-21 0.0000000 0.0000000 0.0000390 0.0000000 0.0000000 0.0000390 0.0000390 465.0 3.30E-21 0.0000000 0.0000000 0.0000376 0.0000000 0.0000000 0.0000377 0.0000376 466.0 4.16E-21 0.0000000 0.0000000 0.0000364 0.0000000 0.0000000 0.0000364 0.0000364 467.0 5.22E-21 0.0000000 0.0000000 0.0000352 0.0000000 0.0000000 0.0000352 0.0000352 468.0 1.49E-21 0.0000000 0.0000000 0.0000340 0.0000000 0.0000000 0.0000340 0.0000340 469.0 9.10E-22 0.0000000 0.0000000 0.0000329 0.0000000 0.0000000 0.0000329 0.0000329 470.0 7.60E-22 0.0000000 0.0000000 0.0000318 0.0000000 0.0000000 0.0000318 0.0000318 471.0 8.60E-22 0.0000000 0.0000000 0.0000307 0.0000000 0.0000000 0.0000307 0.0000307 472.0 9.20E-22 0.0000000 0.0000000 0.0000297 0.0000000 0.0000000 0.0000297 0.0000297 473.0 1.10E-21 0.0000000 0.0000000 0.0000288 0.0000000 0.0000000 0.0000288 0.0000288 474.0 1.08E-21 0.0000000 0.0000000 0.0000279 0.0000000 0.0000000 0.0000279 0.0000279 475.0 1.59E-21 0.0000000 0.0000000 0.0000270 0.0000000 0.0000000 0.0000270 0.0000270 476.0 1.55E-21 0.0000000 0.0000000 0.0000261 0.0000000 0.0000000 0.0000261 0.0000261 477.0 1.81E-21 0.0000000 0.0000000 0.0000253 0.0000000 0.0000000 0.0000253 0.0000253 478.0 2.55E-21 0.0000000 0.0000000 0.0000245 0.0000000 0.0000000 0.0000245 0.0000245 479.0 1.42E-21 0.0000000 0.0000000 0.0000237 0.0000000 0.0000000 0.0000237 0.0000237 480.0 7.40E-22 0.0000000 0.0000000 0.0000230 0.0000000 0.0000000 0.0000230 0.0000230 481.0 7.00E-22 0.0000000 0.0000000 0.0000223 0.0000000 0.0000000 0.0000223 0.0000223 482.0 6.50E-22 0.0000000 0.0000000 0.0000216 0.0000000 0.0000000 0.0000216 0.0000216 483.0 5.30E-22 0.0000000 0.0000000 0.0000209 0.0000000 0.0000000 0.0000209 0.0000209 484.0 7.10E-22 0.0000000 0.0000000 0.0000203 0.0000000 0.0000000 0.0000203 0.0000203 485.0 5.00E-22 0.0000000 0.0000000 0.0000197 0.0000000 0.0000000 0.0000197 0.0000197 486.0 4.10E-22 0.0000000 0.0000000 0.0000191 0.0000000 0.0000000 0.0000191 0.0000191 487.0 5.60E-22 0.0000000 0.0000000 0.0000185 0.0000000 0.0000000 0.0000185 0.0000185 488.0 7.00E-22 0.0000000 0.0000000 0.0000179 0.0000000 0.0000000 0.0000179 0.0000179 489.0 4.20E-22 0.0000000 0.0000000 0.0000174 0.0000000 0.0000000 0.0000174 0.0000174 490.0 4.50E-22 0.0000000 0.0000000 0.0000169 0.0000000 0.0000000 0.0000169 0.0000169 491.0 4.10E-22 0.0000000 0.0000000 0.0000164 0.0000000 0.0000000 0.0000164 0.0000164 492.0 3.90E-22 0.0000000 0.0000000 0.0000159 0.0000000 0.0000000 0.0000159 0.0000159 493.0 4.00E-22 0.0000000 0.0000000 0.0000154 0.0000000 0.0000000 0.0000154 0.0000154 494.0 4.10E-22 0.0000000 0.0000000 0.0000150 0.0000000 0.0000000 0.0000150 0.0000150 495.0 4.20E-22 0.0000000 0.0000000 0.0000145 0.0000000 0.0000000 0.0000145 0.0000145 496.0 4.50E-22 0.0000000 0.0000000 0.0000141 0.0000000 0.0000000 0.0000141 0.0000141 497.0 3.30E-22 0.0000000 0.0000000 0.0000137 0.0000000 0.0000000 0.0000137 0.0000137 498.0 3.50E-22 0.0000000 0.0000000 0.0000133 0.0000000 0.0000000 0.0000133 0.0000133 499.0 3.20E-22 0.0000000 0.0000000 0.0000129 0.0000000 0.0000000 0.0000129 0.0000129 500.0 3.30E-22 0.0000000 0.0000000 0.0000125 0.0000000 0.0000000 0.0000125 0.0000125 501.0 3.80E-22 0.0000000 0.0000000 0.0000122 0.0000000 0.0000000 0.0000122 0.0000122 502.0 3.10E-22 0.0000000 0.0000000 0.0000118 0.0000000 0.0000000 0.0000118 0.0000118 503.0 4.20E-22 0.0000000 0.0000000 0.0000115 0.0000000 0.0000000 0.0000115 0.0000115 504.0 3.40E-22 0.0000000 0.0000000 0.0000112 0.0000000 0.0000000 0.0000112 0.0000112 505.0 3.50E-22 0.0000000 0.0000000 0.0000109 0.0000000 0.0000000 0.0000109 0.0000109 506.0 4.60E-22 0.0000000 0.0000000 0.0000106 0.0000000 0.0000000 0.0000106 0.0000106 507.0 4.20E-22 0.0000000 0.0000000 0.0000103 0.0000000 0.0000000 0.0000103 0.0000103 508.0 3.70E-22 0.0000000 0.0000000 0.0000100 0.0000000 0.0000000 0.0000100 0.0000100 509.0 3.00E-22 0.0000000 0.0000000 0.0000097 0.0000000 0.0000000 0.0000097 0.0000097 510.0 2.30E-22 0.0000000 0.0000000 0.0000094 0.0000000 0.0000000 0.0000094 0.0000094 511.0 2.30E-22 0.0000000 0.0000000 0.0000092 0.0000000 0.0000000 0.0000092 0.0000092 512.0 3.00E-22 0.0000000 0.0000000 0.0000089 0.0000000 0.0000000 0.0000089 0.0000089 513.0 2.30E-22 0.0000000 0.0000000 0.0000087 0.0000000 0.0000000 0.0000087 0.0000087 514.0 3.00E-22 0.0000000 0.0000000 0.0000084 0.0000000 0.0000000 0.0000084 0.0000084 515.0 5.30E-22 0.0000000 0.0000000 0.0000082 0.0000000 0.0000000 0.0000082 0.0000082 516.0 3.50E-22 0.0000000 0.0000000 0.0000080 0.0000000 0.0000000 0.0000080 0.0000080 517.0 5.10E-22 0.0000000 0.0000000 0.0000078 0.0000000 0.0000000 0.0000078 0.0000078 518.0 1.02E-21 0.0000000 0.0000000 0.0000076 0.0000000 0.0000000 0.0000076 0.0000076 519.0 6.50E-22 0.0000000 0.0000000 0.0000074 0.0000000 0.0000000 0.0000074 0.0000074 520.0 1.00E-21 0.0000000 0.0000000 0.0000072 0.0000000 0.0000000 0.0000072 0.0000072 521.0 1.69E-21 0.0000000 0.0000000 0.0000070 0.0000000 0.0000000 0.0000070 0.0000070 522.0 3.70E-22 0.0000000 0.0000000 0.0000068 0.0000000 0.0000000 0.0000068 0.0000068 523.0 1.10E-22 0.0000000 0.0000000 0.0000066 0.0000000 0.0000000 0.0000066 0.0000066 524.0 7.00E-23 0.0000000 0.0000000 0.0000064 0.0000000 0.0000000 0.0000064 0.0000064 525.0 4.00E-23 0.0000000 0.0000000 0.0000063 0.0000000 0.0000000 0.0000063 0.0000063 526.0 0.00E+00 0.0000000 0.0000000 0.0000061 0.0000000 0.0000000 0.0000061 0.0000061 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/GLYOX_R_CRI ================================================ GLYOX_R_CRI !Glyoxal (CHOCHO) channel quantum yields (1 bar, 298 K) !Rate sums quantum yields of phi2, phi4, and phi5 channels because the species are ! expected result from these channels ! !CHOCHO--->2HCO !CHOCHO--->2H+2CHO !CHOCHO--->HCO+CO+H ! !Cross-Section combines IUPAC (2013) recommendation (250-473 nm) and JPL 2011 (474-526 nm). ! The latter comes from the URL: ! http://satellite.mpic.de/spectral_atlas/cross_sections/Organics%20%28carbonyls%29/Bicarbonyls/CHOCHO.spc ! accessed Feb. 12, 2016 ! Note that the JPL values are the same from 250 to 473 nm as IUPAC values ! !Quantum Yields based on recommendation ! http://iupac.pole-ether.fr/htdocs/datasheets/pdf/P4_(CHO)2+hv.pdf dated 2013 but ! the IUPAC data sheet appears to incorrectly use the formula for ! QY of total and individual channels derived in ! Salter, R. J., Blitz, M. A., Heard, D. E., Pilling, M. J., Rickard, A. R. and ! Seakins, P. W., Phys. Chem. Chem. Phys., 15, 6516, 2013. ! (1) In IUPAC datasheet, the right side of the phi total equation should use the ! reciprocal of pressure correction based on EQ6 in Salter et al. (2013) ! (2) The IUPAC datasheet may have reversed B1 and B2 values in Table 3 in Salter et al. ! (2013) for the individual ! !Channel Possible: !phi1 = H2 + 2CO !phi2 = HCO + HCO !phi3 = HCHO + CO !phi4 = HCO+CO+H !phi5 = 2H+2CO !phi6 = TOTAL ! ! !wvl XCROSS 2CO+2HO2 H2+2CO 2HCO HCHO+CO HCO+CO+H 2H+2CO Total Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 250.0 1.73E-20 0.6449310 0.0000000 0.0034229 0.3549940 0.3888348 0.2526732 0.9999250 251.0 1.52E-20 0.6429681 0.0000000 0.0036735 0.3569473 0.3887472 0.2505473 0.9999154 252.0 1.48E-20 0.6408721 0.0000000 0.0039424 0.3590325 0.3886531 0.2482767 0.9999046 253.0 1.55E-20 0.6386375 0.0000000 0.0042309 0.3612552 0.3885518 0.2458548 0.9998926 254.0 1.60E-20 0.6362586 0.0000000 0.0045404 0.3636207 0.3884428 0.2432753 0.9998792 255.0 1.67E-20 0.6337303 0.0000000 0.0048724 0.3661339 0.3883257 0.2405322 0.9998643 256.0 1.62E-20 0.6310481 0.0000000 0.0052285 0.3687995 0.3881997 0.2376199 0.9998476 257.0 1.81E-20 0.6282079 0.0000000 0.0056106 0.3716211 0.3880642 0.2345331 0.9998290 258.0 1.82E-20 0.6252065 0.0000000 0.0060203 0.3746019 0.3879185 0.2312676 0.9998084 259.0 1.85E-20 0.6220413 0.0000000 0.0064598 0.3777441 0.3877619 0.2278196 0.9997855 260.0 1.83E-20 0.6187110 0.0000000 0.0069311 0.3810490 0.3875934 0.2241865 0.9997600 261.0 1.96E-20 0.6152152 0.0000000 0.0074365 0.3845164 0.3874123 0.2203664 0.9997317 262.0 2.03E-20 0.6115550 0.0000000 0.0079785 0.3881453 0.3872176 0.2163590 0.9997003 263.0 2.14E-20 0.6077327 0.0000000 0.0085596 0.3919329 0.3870082 0.2121650 0.9996656 264.0 2.18E-20 0.6037523 0.0000000 0.0091825 0.3958748 0.3867831 0.2077866 0.9996271 265.0 2.26E-20 0.5996193 0.0000000 0.0098504 0.3999653 0.3865412 0.2032277 0.9995846 266.0 2.33E-20 0.5953410 0.0000000 0.0105662 0.4041966 0.3862811 0.1984937 0.9995376 267.0 2.37E-20 0.5909266 0.0000000 0.0113334 0.4085591 0.3860016 0.1935916 0.9994857 268.0 2.36E-20 0.5863870 0.0000000 0.0121555 0.4130414 0.3857013 0.1885302 0.9994284 269.0 2.48E-20 0.5817350 0.0000000 0.0130364 0.4176302 0.3853785 0.1833200 0.9993652 270.0 2.51E-20 0.5769852 0.0000000 0.0139802 0.4223104 0.3850318 0.1779733 0.9992956 271.0 2.61E-20 0.5721542 0.0000000 0.0149912 0.4270648 0.3846593 0.1725038 0.9992190 272.0 2.72E-20 0.5672599 0.0000000 0.0160739 0.4318748 0.3842591 0.1669269 0.9991347 273.0 2.81E-20 0.5623220 0.0000000 0.0172333 0.4367200 0.3838294 0.1612593 0.9990421 274.0 2.92E-20 0.5573615 0.0000000 0.0184746 0.4415788 0.3833680 0.1555189 0.9989403 275.0 3.00E-20 0.5524004 0.0000000 0.0198033 0.4464282 0.3828726 0.1497245 0.9988286 276.0 3.06E-20 0.5474619 0.0000000 0.0212252 0.4512442 0.3823409 0.1438957 0.9987061 277.0 3.09E-20 0.5425695 0.0000000 0.0227467 0.4560022 0.3817702 0.1380526 0.9985717 278.0 3.08E-20 0.5377475 0.0000000 0.0243741 0.4606771 0.3811580 0.1322155 0.9984246 279.0 3.09E-20 0.5330200 0.0000000 0.0261144 0.4652436 0.3805012 0.1264044 0.9982636 280.0 3.14E-20 0.5284112 0.0000000 0.0279750 0.4696763 0.3797969 0.1206392 0.9980875 281.0 3.22E-20 0.5239446 0.0000000 0.0299636 0.4739504 0.3790418 0.1149392 0.9978950 282.0 3.32E-20 0.5196433 0.0000000 0.0320883 0.4780414 0.3782325 0.1093226 0.9976848 283.0 3.46E-20 0.5155295 0.0000000 0.0343575 0.4819258 0.3773653 0.1038066 0.9974553 284.0 3.57E-20 0.5116241 0.0000000 0.0367804 0.4855809 0.3764364 0.0984072 0.9972050 285.0 3.67E-20 0.5079469 0.0000000 0.0393661 0.4889853 0.3754419 0.0931389 0.9969322 286.0 3.80E-20 0.5045164 0.0000000 0.0421246 0.4921187 0.3743774 0.0880144 0.9966350 287.0 3.79E-20 0.5013495 0.0000000 0.0450659 0.4949621 0.3732384 0.0830451 0.9963115 288.0 3.81E-20 0.4984617 0.0000000 0.0482009 0.4974980 0.3720204 0.0782405 0.9959597 289.0 3.80E-20 0.4958669 0.0000000 0.0515403 0.4997103 0.3707183 0.0736083 0.9955772 290.0 3.73E-20 0.4935774 0.0000000 0.0550956 0.5015843 0.3693271 0.0691547 0.9951617 291.0 3.64E-20 0.4916041 0.0000000 0.0588786 0.5031065 0.3678414 0.0648841 0.9947106 292.0 3.65E-20 0.4899563 0.0000000 0.0629013 0.5042649 0.3662556 0.0607993 0.9942212 293.0 3.68E-20 0.4886420 0.0000000 0.0671760 0.5050487 0.3645641 0.0569019 0.9936907 294.0 3.73E-20 0.4876679 0.0000000 0.0717153 0.5054480 0.3627609 0.0531918 0.9931159 295.0 3.81E-20 0.4870393 0.0000000 0.0765317 0.5054543 0.3608398 0.0496678 0.9924936 296.0 3.82E-20 0.4867603 0.0000000 0.0816382 0.5050599 0.3587946 0.0463276 0.9918202 297.0 3.92E-20 0.4868342 0.0000000 0.0870474 0.5042580 0.3566188 0.0431679 0.9910921 298.0 4.07E-20 0.4872628 0.0000000 0.0927722 0.5030426 0.3543060 0.0401847 0.9903055 299.0 4.12E-20 0.4880473 0.0000000 0.0988248 0.5014087 0.3518494 0.0373730 0.9894560 300.0 4.05E-20 0.4891877 0.0000000 0.1052175 0.4993517 0.3492426 0.0347276 0.9885394 301.0 3.91E-20 0.4906831 0.0000000 0.1119620 0.4968679 0.3464787 0.0322424 0.9875510 302.0 3.78E-20 0.4925317 0.0000000 0.1190691 0.4939541 0.3435513 0.0299113 0.9864859 303.0 3.57E-20 0.4947308 0.0000000 0.1265491 0.4906081 0.3404539 0.0277278 0.9853389 304.0 3.35E-20 0.4972766 0.0000000 0.1344112 0.4868281 0.3371801 0.0256853 0.9841047 305.0 3.24E-20 0.5001642 0.0000000 0.1426634 0.4826133 0.3337239 0.0237769 0.9827776 306.0 3.22E-20 0.5033878 0.0000000 0.1513122 0.4779637 0.3300795 0.0219960 0.9813514 307.0 3.20E-20 0.5069401 0.0000000 0.1603625 0.4728800 0.3262417 0.0203359 0.9798201 308.0 3.15E-20 0.5108127 0.0000000 0.1698173 0.4673642 0.3222054 0.0187899 0.9781769 309.0 3.12E-20 0.5149957 0.0000000 0.1796775 0.4614194 0.3179666 0.0173516 0.9764151 310.0 3.10E-20 0.5194777 0.0000000 0.1899416 0.4550499 0.3135214 0.0160147 0.9745275 311.0 3.22E-20 0.5242455 0.0000000 0.2006053 0.4482612 0.3088673 0.0147730 0.9725067 312.0 3.34E-20 0.5292843 0.0000000 0.2116616 0.4410606 0.3040021 0.0136207 0.9703449 313.0 3.39E-20 0.5345773 0.0000000 0.2231003 0.4334568 0.2989249 0.0125521 0.9680341 314.0 3.23E-20 0.5401057 0.0000000 0.2349080 0.4254603 0.2936359 0.0115618 0.9655660 315.0 2.81E-20 0.5458486 0.0000000 0.2470674 0.4170835 0.2881364 0.0106448 0.9629321 316.0 2.65E-20 0.5517829 0.0000000 0.2595580 0.4083407 0.2824289 0.0097960 0.9601236 317.0 2.46E-20 0.5578834 0.0000000 0.2723551 0.3992481 0.2765174 0.0090109 0.9571315 318.0 2.21E-20 0.5641224 0.0000000 0.2854301 0.3898240 0.2704072 0.0082852 0.9539464 319.0 1.93E-20 0.5704702 0.0000000 0.2987506 0.3800888 0.2641051 0.0076145 0.9505591 320.0 1.85E-20 0.5768949 0.0000000 0.3122801 0.3700649 0.2576196 0.0069952 0.9469598 321.0 1.89E-20 0.5833623 0.0000000 0.3259785 0.3597767 0.2509604 0.0064235 0.9431390 322.0 1.77E-20 0.5898365 0.0000000 0.3398016 0.3492503 0.2441390 0.0058959 0.9390868 323.0 1.72E-20 0.5962796 0.0000000 0.3537019 0.3385139 0.2371682 0.0054094 0.9347934 324.0 1.68E-20 0.6026521 0.0000000 0.3676286 0.3275969 0.2300626 0.0049609 0.9302491 325.0 1.60E-20 0.6089134 0.0000000 0.3815281 0.3165305 0.2228377 0.0045476 0.9254439 326.0 1.61E-20 0.6150217 0.0000000 0.3953441 0.3053467 0.2155107 0.0041669 0.9203684 327.0 1.70E-20 0.6209344 0.0000000 0.4090184 0.2940785 0.2080997 0.0038164 0.9150130 328.0 1.94E-20 0.6266088 0.0000000 0.4224911 0.2827598 0.2006239 0.0034937 0.9093686 329.0 1.86E-20 0.6320018 0.0000000 0.4357017 0.2714244 0.1931033 0.0031969 0.9034263 330.0 1.69E-20 0.6370712 0.0000000 0.4485888 0.2601064 0.1855585 0.0029239 0.8971776 331.0 1.13E-20 0.6417753 0.0000000 0.4610917 0.2488393 0.1780107 0.0026729 0.8906146 332.0 1.05E-20 0.6460737 0.0000000 0.4731504 0.2376561 0.1704810 0.0024423 0.8837299 333.0 9.66E-21 0.6499277 0.0000000 0.4847064 0.2265889 0.1629908 0.0022304 0.8765166 334.0 9.19E-21 0.6533004 0.0000000 0.4957034 0.2156684 0.1555611 0.0020359 0.8689689 335.0 7.37E-21 0.6561576 0.0000000 0.5060877 0.2049239 0.1482125 0.0018574 0.8610815 336.0 6.30E-21 0.6584675 0.0000000 0.5158091 0.1943827 0.1409649 0.0016936 0.8528502 337.0 5.89E-21 0.6602016 0.0000000 0.5248210 0.1840702 0.1338373 0.0015434 0.8442719 338.0 6.47E-21 0.6613345 0.0000000 0.5330812 0.1740098 0.1268476 0.0014057 0.8353444 339.0 5.85E-21 0.6618445 0.0000000 0.5405522 0.1642224 0.1200127 0.0012795 0.8260668 340.0 5.53E-21 0.6617133 0.0000000 0.5472013 0.1547263 0.1133480 0.0011640 0.8164396 341.0 5.63E-21 0.6609268 0.0000000 0.5530013 0.1455377 0.1068672 0.0010583 0.8064645 342.0 5.10E-21 0.6594748 0.0000000 0.5579304 0.1366698 0.1005828 0.0009616 0.7961446 343.0 4.99E-21 0.6573508 0.0000000 0.5619722 0.1281337 0.0945055 0.0008732 0.7854845 344.0 6.49E-21 0.6545526 0.0000000 0.5651161 0.1199378 0.0886442 0.0007923 0.7744904 345.0 6.24E-21 0.6510818 0.0000000 0.5673571 0.1120880 0.0830062 0.0007185 0.7631698 346.0 7.33E-21 0.6469440 0.0000000 0.5686955 0.1045881 0.0775973 0.0006512 0.7515322 347.0 6.31E-21 0.6421485 0.0000000 0.5691372 0.0974397 0.0724215 0.0005897 0.7395881 348.0 6.04E-21 0.6367080 0.0000000 0.5686930 0.0906421 0.0674813 0.0005337 0.7273501 349.0 4.15E-21 0.6306390 0.0000000 0.5673789 0.0841928 0.0627775 0.0004827 0.7148319 350.0 3.91E-21 0.6239610 0.0000000 0.5652151 0.0780878 0.0583097 0.0004363 0.7020488 351.0 3.95E-21 0.6166965 0.0000000 0.5622263 0.0723211 0.0540762 0.0003940 0.6890176 352.0 4.23E-21 0.6088706 0.0000000 0.5584411 0.0668858 0.0500740 0.0003556 0.6757564 353.0 4.15E-21 0.6005112 0.0000000 0.5538915 0.0617733 0.0462990 0.0003207 0.6622845 354.0 4.03E-21 0.5916480 0.0000000 0.5486128 0.0569743 0.0427462 0.0002890 0.6486223 355.0 4.22E-21 0.5823129 0.0000000 0.5426428 0.0524784 0.0394098 0.0002602 0.6347913 356.0 4.43E-21 0.5725391 0.0000000 0.5360216 0.0482747 0.0362833 0.0002342 0.6208138 357.0 4.31E-21 0.5623613 0.0000000 0.5287914 0.0443515 0.0333593 0.0002106 0.6067127 358.0 4.71E-21 0.5518150 0.0000000 0.5209955 0.0406968 0.0306303 0.0001892 0.5925118 359.0 5.03E-21 0.5409367 0.0000000 0.5126786 0.0372983 0.0280882 0.0001699 0.5782350 360.0 5.46E-21 0.5297631 0.0000000 0.5038858 0.0341435 0.0257248 0.0001525 0.5639066 361.0 6.27E-21 0.5183309 0.0000000 0.4946628 0.0312199 0.0235314 0.0001367 0.5495508 362.0 7.06E-21 0.5066770 0.0000000 0.4850550 0.0285150 0.0214995 0.0001225 0.5351920 363.0 6.39E-21 0.4948377 0.0000000 0.4751076 0.0260164 0.0196204 0.0001097 0.5208541 364.0 6.80E-21 0.4828487 0.0000000 0.4648649 0.0237120 0.0178856 0.0000982 0.5065607 365.0 6.65E-21 0.4707450 0.0000000 0.4543706 0.0215898 0.0162866 0.0000878 0.4923349 366.0 7.43E-21 0.4585605 0.0000000 0.4436670 0.0196383 0.0148151 0.0000785 0.4781989 367.0 8.60E-21 0.4463279 0.0000000 0.4327949 0.0178463 0.0134630 0.0000701 0.4641742 368.0 1.01E-20 0.4340785 0.0000000 0.4217936 0.0162030 0.0122224 0.0000625 0.4502815 369.0 1.06E-20 0.4218422 0.0000000 0.4107007 0.0146981 0.0110857 0.0000558 0.4365403 370.0 1.14E-20 0.4096472 0.0000000 0.3995518 0.0133216 0.0100457 0.0000497 0.4229689 371.0 1.19E-20 0.3975202 0.0000000 0.3883805 0.0120642 0.0090954 0.0000443 0.4095844 372.0 1.14E-20 0.3854859 0.0000000 0.3772183 0.0109169 0.0082281 0.0000395 0.3964028 373.0 1.21E-20 0.3735673 0.0000000 0.3660945 0.0098712 0.0074376 0.0000351 0.3834385 374.0 1.35E-20 0.3617855 0.0000000 0.3550363 0.0089193 0.0067180 0.0000312 0.3707048 375.0 1.33E-20 0.3501598 0.0000000 0.3440685 0.0080536 0.0060635 0.0000278 0.3582133 376.0 1.38E-20 0.3387075 0.0000000 0.3332138 0.0072671 0.0054690 0.0000247 0.3459745 377.0 1.47E-20 0.3274441 0.0000000 0.3224927 0.0065532 0.0049295 0.0000219 0.3339973 378.0 1.61E-20 0.3163833 0.0000000 0.3119235 0.0059059 0.0044403 0.0000195 0.3222892 379.0 1.53E-20 0.3055367 0.0000000 0.3015221 0.0053194 0.0039973 0.0000173 0.3108562 380.0 1.93E-20 0.2949144 0.0000000 0.2913027 0.0047886 0.0035964 0.0000153 0.2997030 381.0 2.46E-20 0.2845245 0.0000000 0.2812771 0.0043084 0.0032339 0.0000136 0.2888329 382.0 2.02E-20 0.2743735 0.0000000 0.2714551 0.0038743 0.0029064 0.0000120 0.2782478 383.0 2.07E-20 0.2644658 0.0000000 0.2618445 0.0034823 0.0026107 0.0000107 0.2679481 384.0 1.94E-20 0.2548046 0.0000000 0.2524513 0.0031285 0.0023439 0.0000094 0.2579330 385.0 1.89E-20 0.2453909 0.0000000 0.2432792 0.0028093 0.0021033 0.0000084 0.2482001 386.0 1.84E-20 0.2362242 0.0000000 0.2343303 0.0025215 0.0018865 0.0000074 0.2387457 387.0 2.29E-20 0.2273023 0.0000000 0.2256044 0.0022621 0.0016913 0.0000065 0.2295643 388.0 3.00E-20 0.2186209 0.0000000 0.2170995 0.0020284 0.0015155 0.0000058 0.2206493 389.0 3.21E-20 0.2101740 0.0000000 0.2088115 0.0018180 0.0013573 0.0000051 0.2119920 390.0 3.48E-20 0.2019535 0.0000000 0.2007340 0.0016286 0.0012150 0.0000045 0.2035821 391.0 3.92E-20 0.1939493 0.0000000 0.1928583 0.0014581 0.0010870 0.0000040 0.1954074 392.0 3.80E-20 0.1861487 0.0000000 0.1851734 0.0013046 0.0009718 0.0000035 0.1874533 393.0 2.85E-20 0.1785368 0.0000000 0.1776655 0.0011664 0.0008682 0.0000031 0.1797032 394.0 3.15E-20 0.1710956 0.0000000 0.1703179 0.0010420 0.0007750 0.0000027 0.1721376 395.0 3.86E-20 0.1638045 0.0000000 0.1631110 0.0009299 0.0006911 0.0000024 0.1647344 396.0 3.68E-20 0.1566395 0.0000000 0.1560219 0.0008289 0.0006155 0.0000021 0.1574684 397.0 3.36E-20 0.1495736 0.0000000 0.1490243 0.0007378 0.0005474 0.0000019 0.1503114 398.0 4.32E-20 0.1425765 0.0000000 0.1420889 0.0006555 0.0004860 0.0000016 0.1432320 399.0 4.35E-20 0.1356151 0.0000000 0.1351832 0.0005812 0.0004305 0.0000014 0.1361963 400.0 3.87E-20 0.1286544 0.0000000 0.1282728 0.0005139 0.0003804 0.0000012 0.1291683 401.0 4.46E-20 0.1216585 0.0000000 0.1213225 0.0004529 0.0003350 0.0000011 0.1221114 402.0 5.84E-20 0.1145928 0.0000000 0.1142981 0.0003976 0.0002938 0.0000009 0.1149905 403.0 7.16E-20 0.1074273 0.0000000 0.1071700 0.0003474 0.0002565 0.0000008 0.1077748 404.0 6.24E-20 0.1001401 0.0000000 0.0999167 0.0003019 0.0002227 0.0000007 0.1004420 405.0 4.49E-20 0.0927228 0.0000000 0.0925302 0.0002605 0.0001920 0.0000006 0.0929833 406.0 4.48E-20 0.0851853 0.0000000 0.0850205 0.0002231 0.0001643 0.0000005 0.0854084 407.0 4.07E-20 0.0775610 0.0000000 0.0774213 0.0001893 0.0001393 0.0000004 0.0777503 408.0 3.44E-20 0.0699094 0.0000000 0.0697921 0.0001590 0.0001169 0.0000003 0.0700684 409.0 4.01E-20 0.0623161 0.0000000 0.0622188 0.0001321 0.0000970 0.0000003 0.0624482 410.0 5.66E-20 0.0548884 0.0000000 0.0548086 0.0001084 0.0000796 0.0000002 0.0549968 411.0 7.22E-20 0.0477459 0.0000000 0.0476812 0.0000879 0.0000645 0.0000002 0.0478338 412.0 7.41E-20 0.0410082 0.0000000 0.0409565 0.0000704 0.0000516 0.0000001 0.0410786 413.0 1.08E-19 0.0347814 0.0000000 0.0347406 0.0000556 0.0000407 0.0000001 0.0348370 414.0 1.01E-19 0.0291462 0.0000000 0.0291143 0.0000434 0.0000318 0.0000001 0.0291897 415.0 1.02E-19 0.0241507 0.0000000 0.0241261 0.0000335 0.0000245 0.0000001 0.0241843 416.0 6.07E-20 0.0198086 0.0000000 0.0197899 0.0000256 0.0000187 0.0000001 0.0198343 417.0 6.83E-20 0.0161025 0.0000000 0.0160882 0.0000194 0.0000142 0.0000000 0.0161219 418.0 7.87E-20 0.0129903 0.0000000 0.0129796 0.0000146 0.0000106 0.0000000 0.0130049 419.0 9.13E-20 0.0104140 0.0000000 0.0104060 0.0000109 0.0000079 0.0000000 0.0104249 420.0 5.60E-20 0.0083074 0.0000000 0.0083014 0.0000081 0.0000059 0.0000000 0.0083155 421.0 7.19E-20 0.0066024 0.0000000 0.0065980 0.0000060 0.0000044 0.0000000 0.0066084 422.0 6.99E-20 0.0052341 0.0000000 0.0052308 0.0000044 0.0000032 0.0000000 0.0052385 423.0 1.30E-19 0.0041434 0.0000000 0.0041410 0.0000033 0.0000024 0.0000000 0.0041467 424.0 8.24E-20 0.0032787 0.0000000 0.0032769 0.0000024 0.0000018 0.0000000 0.0032811 425.0 1.04E-19 0.0025959 0.0000000 0.0025946 0.0000018 0.0000013 0.0000000 0.0025977 426.0 1.64E-19 0.0020584 0.0000000 0.0020575 0.0000013 0.0000010 0.0000000 0.0020598 427.0 1.61E-19 0.0016362 0.0000000 0.0016355 0.0000010 0.0000007 0.0000000 0.0016372 428.0 2.14E-19 0.0013049 0.0000000 0.0013044 0.0000007 0.0000005 0.0000000 0.0013056 429.0 6.50E-20 0.0010451 0.0000000 0.0010447 0.0000005 0.0000004 0.0000000 0.0010456 430.0 7.03E-20 0.0008414 0.0000000 0.0008411 0.0000004 0.0000003 0.0000000 0.0008418 431.0 6.52E-20 0.0006815 0.0000000 0.0006813 0.0000003 0.0000002 0.0000000 0.0006818 432.0 6.08E-20 0.0005559 0.0000000 0.0005557 0.0000002 0.0000002 0.0000000 0.0005561 433.0 5.66E-20 0.0004570 0.0000000 0.0004569 0.0000002 0.0000001 0.0000000 0.0004572 434.0 6.81E-20 0.0003791 0.0000000 0.0003790 0.0000001 0.0000001 0.0000000 0.0003792 435.0 7.66E-20 0.0003174 0.0000000 0.0003174 0.0000001 0.0000001 0.0000000 0.0003175 436.0 1.32E-19 0.0002685 0.0000000 0.0002685 0.0000001 0.0000001 0.0000000 0.0002686 437.0 9.19E-20 0.0002295 0.0000000 0.0002295 0.0000001 0.0000000 0.0000000 0.0002296 438.0 1.38E-19 0.0001984 0.0000000 0.0001983 0.0000001 0.0000000 0.0000000 0.0001984 439.0 1.21E-19 0.0001733 0.0000000 0.0001733 0.0000000 0.0000000 0.0000000 0.0001733 440.0 2.59E-19 0.0001530 0.0000000 0.0001530 0.0000000 0.0000000 0.0000000 0.0001531 441.0 1.31E-19 0.0001365 0.0000000 0.0001365 0.0000000 0.0000000 0.0000000 0.0001365 442.0 9.01E-20 0.0001230 0.0000000 0.0001230 0.0000000 0.0000000 0.0000000 0.0001230 443.0 1.11E-19 0.0001118 0.0000000 0.0001118 0.0000000 0.0000000 0.0000000 0.0001118 444.0 1.35E-19 0.0001024 0.0000000 0.0001024 0.0000000 0.0000000 0.0000000 0.0001025 445.0 1.51E-19 0.0000946 0.0000000 0.0000946 0.0000000 0.0000000 0.0000000 0.0000946 446.0 7.82E-20 0.0000879 0.0000000 0.0000879 0.0000000 0.0000000 0.0000000 0.0000879 447.0 3.73E-20 0.0000822 0.0000000 0.0000822 0.0000000 0.0000000 0.0000000 0.0000822 448.0 4.14E-20 0.0000772 0.0000000 0.0000772 0.0000000 0.0000000 0.0000000 0.0000772 449.0 5.53E-20 0.0000728 0.0000000 0.0000728 0.0000000 0.0000000 0.0000000 0.0000729 450.0 8.68E-20 0.0000690 0.0000000 0.0000690 0.0000000 0.0000000 0.0000000 0.0000690 451.0 1.38E-19 0.0000656 0.0000000 0.0000656 0.0000000 0.0000000 0.0000000 0.0000656 452.0 1.59E-19 0.0000625 0.0000000 0.0000625 0.0000000 0.0000000 0.0000000 0.0000625 453.0 3.04E-19 0.0000596 0.0000000 0.0000596 0.0000000 0.0000000 0.0000000 0.0000597 454.0 2.69E-19 0.0000571 0.0000000 0.0000571 0.0000000 0.0000000 0.0000000 0.0000571 455.0 5.20E-19 0.0000547 0.0000000 0.0000547 0.0000000 0.0000000 0.0000000 0.0000547 456.0 1.57E-19 0.0000525 0.0000000 0.0000525 0.0000000 0.0000000 0.0000000 0.0000525 457.0 2.66E-20 0.0000504 0.0000000 0.0000504 0.0000000 0.0000000 0.0000000 0.0000504 458.0 2.20E-20 0.0000485 0.0000000 0.0000485 0.0000000 0.0000000 0.0000000 0.0000485 459.0 9.02E-21 0.0000467 0.0000000 0.0000467 0.0000000 0.0000000 0.0000000 0.0000467 460.0 1.20E-20 0.0000450 0.0000000 0.0000450 0.0000000 0.0000000 0.0000000 0.0000450 461.0 8.83E-21 0.0000434 0.0000000 0.0000434 0.0000000 0.0000000 0.0000000 0.0000434 462.0 5.88E-21 0.0000418 0.0000000 0.0000418 0.0000000 0.0000000 0.0000000 0.0000418 463.0 3.22E-21 0.0000404 0.0000000 0.0000404 0.0000000 0.0000000 0.0000000 0.0000404 464.0 3.39E-21 0.0000390 0.0000000 0.0000390 0.0000000 0.0000000 0.0000000 0.0000390 465.0 3.30E-21 0.0000376 0.0000000 0.0000376 0.0000000 0.0000000 0.0000000 0.0000377 466.0 4.16E-21 0.0000364 0.0000000 0.0000364 0.0000000 0.0000000 0.0000000 0.0000364 467.0 5.22E-21 0.0000352 0.0000000 0.0000352 0.0000000 0.0000000 0.0000000 0.0000352 468.0 1.49E-21 0.0000340 0.0000000 0.0000340 0.0000000 0.0000000 0.0000000 0.0000340 469.0 9.10E-22 0.0000329 0.0000000 0.0000329 0.0000000 0.0000000 0.0000000 0.0000329 470.0 7.60E-22 0.0000318 0.0000000 0.0000318 0.0000000 0.0000000 0.0000000 0.0000318 471.0 8.60E-22 0.0000307 0.0000000 0.0000307 0.0000000 0.0000000 0.0000000 0.0000307 472.0 9.20E-22 0.0000297 0.0000000 0.0000297 0.0000000 0.0000000 0.0000000 0.0000297 473.0 1.10E-21 0.0000288 0.0000000 0.0000288 0.0000000 0.0000000 0.0000000 0.0000288 474.0 1.08E-21 0.0000279 0.0000000 0.0000279 0.0000000 0.0000000 0.0000000 0.0000279 475.0 1.59E-21 0.0000270 0.0000000 0.0000270 0.0000000 0.0000000 0.0000000 0.0000270 476.0 1.55E-21 0.0000261 0.0000000 0.0000261 0.0000000 0.0000000 0.0000000 0.0000261 477.0 1.81E-21 0.0000253 0.0000000 0.0000253 0.0000000 0.0000000 0.0000000 0.0000253 478.0 2.55E-21 0.0000245 0.0000000 0.0000245 0.0000000 0.0000000 0.0000000 0.0000245 479.0 1.42E-21 0.0000237 0.0000000 0.0000237 0.0000000 0.0000000 0.0000000 0.0000237 480.0 7.40E-22 0.0000230 0.0000000 0.0000230 0.0000000 0.0000000 0.0000000 0.0000230 481.0 7.00E-22 0.0000223 0.0000000 0.0000223 0.0000000 0.0000000 0.0000000 0.0000223 482.0 6.50E-22 0.0000216 0.0000000 0.0000216 0.0000000 0.0000000 0.0000000 0.0000216 483.0 5.30E-22 0.0000209 0.0000000 0.0000209 0.0000000 0.0000000 0.0000000 0.0000209 484.0 7.10E-22 0.0000203 0.0000000 0.0000203 0.0000000 0.0000000 0.0000000 0.0000203 485.0 5.00E-22 0.0000197 0.0000000 0.0000197 0.0000000 0.0000000 0.0000000 0.0000197 486.0 4.10E-22 0.0000191 0.0000000 0.0000191 0.0000000 0.0000000 0.0000000 0.0000191 487.0 5.60E-22 0.0000185 0.0000000 0.0000185 0.0000000 0.0000000 0.0000000 0.0000185 488.0 7.00E-22 0.0000179 0.0000000 0.0000179 0.0000000 0.0000000 0.0000000 0.0000179 489.0 4.20E-22 0.0000174 0.0000000 0.0000174 0.0000000 0.0000000 0.0000000 0.0000174 490.0 4.50E-22 0.0000169 0.0000000 0.0000169 0.0000000 0.0000000 0.0000000 0.0000169 491.0 4.10E-22 0.0000164 0.0000000 0.0000164 0.0000000 0.0000000 0.0000000 0.0000164 492.0 3.90E-22 0.0000159 0.0000000 0.0000159 0.0000000 0.0000000 0.0000000 0.0000159 493.0 4.00E-22 0.0000154 0.0000000 0.0000154 0.0000000 0.0000000 0.0000000 0.0000154 494.0 4.10E-22 0.0000150 0.0000000 0.0000150 0.0000000 0.0000000 0.0000000 0.0000150 495.0 4.20E-22 0.0000145 0.0000000 0.0000145 0.0000000 0.0000000 0.0000000 0.0000145 496.0 4.50E-22 0.0000141 0.0000000 0.0000141 0.0000000 0.0000000 0.0000000 0.0000141 497.0 3.30E-22 0.0000137 0.0000000 0.0000137 0.0000000 0.0000000 0.0000000 0.0000137 498.0 3.50E-22 0.0000133 0.0000000 0.0000133 0.0000000 0.0000000 0.0000000 0.0000133 499.0 3.20E-22 0.0000129 0.0000000 0.0000129 0.0000000 0.0000000 0.0000000 0.0000129 500.0 3.30E-22 0.0000125 0.0000000 0.0000125 0.0000000 0.0000000 0.0000000 0.0000125 501.0 3.80E-22 0.0000122 0.0000000 0.0000122 0.0000000 0.0000000 0.0000000 0.0000122 502.0 3.10E-22 0.0000118 0.0000000 0.0000118 0.0000000 0.0000000 0.0000000 0.0000118 503.0 4.20E-22 0.0000115 0.0000000 0.0000115 0.0000000 0.0000000 0.0000000 0.0000115 504.0 3.40E-22 0.0000112 0.0000000 0.0000112 0.0000000 0.0000000 0.0000000 0.0000112 505.0 3.50E-22 0.0000109 0.0000000 0.0000109 0.0000000 0.0000000 0.0000000 0.0000109 506.0 4.60E-22 0.0000106 0.0000000 0.0000106 0.0000000 0.0000000 0.0000000 0.0000106 507.0 4.20E-22 0.0000103 0.0000000 0.0000103 0.0000000 0.0000000 0.0000000 0.0000103 508.0 3.70E-22 0.0000100 0.0000000 0.0000100 0.0000000 0.0000000 0.0000000 0.0000100 509.0 3.00E-22 0.0000097 0.0000000 0.0000097 0.0000000 0.0000000 0.0000000 0.0000097 510.0 2.30E-22 0.0000094 0.0000000 0.0000094 0.0000000 0.0000000 0.0000000 0.0000094 511.0 2.30E-22 0.0000092 0.0000000 0.0000092 0.0000000 0.0000000 0.0000000 0.0000092 512.0 3.00E-22 0.0000089 0.0000000 0.0000089 0.0000000 0.0000000 0.0000000 0.0000089 513.0 2.30E-22 0.0000087 0.0000000 0.0000087 0.0000000 0.0000000 0.0000000 0.0000087 514.0 3.00E-22 0.0000084 0.0000000 0.0000084 0.0000000 0.0000000 0.0000000 0.0000084 515.0 5.30E-22 0.0000082 0.0000000 0.0000082 0.0000000 0.0000000 0.0000000 0.0000082 516.0 3.50E-22 0.0000080 0.0000000 0.0000080 0.0000000 0.0000000 0.0000000 0.0000080 517.0 5.10E-22 0.0000078 0.0000000 0.0000078 0.0000000 0.0000000 0.0000000 0.0000078 518.0 1.02E-21 0.0000076 0.0000000 0.0000076 0.0000000 0.0000000 0.0000000 0.0000076 519.0 6.50E-22 0.0000074 0.0000000 0.0000074 0.0000000 0.0000000 0.0000000 0.0000074 520.0 1.00E-21 0.0000072 0.0000000 0.0000072 0.0000000 0.0000000 0.0000000 0.0000072 521.0 1.69E-21 0.0000070 0.0000000 0.0000070 0.0000000 0.0000000 0.0000000 0.0000070 522.0 3.70E-22 0.0000068 0.0000000 0.0000068 0.0000000 0.0000000 0.0000000 0.0000068 523.0 1.10E-22 0.0000066 0.0000000 0.0000066 0.0000000 0.0000000 0.0000000 0.0000066 524.0 7.00E-23 0.0000064 0.0000000 0.0000064 0.0000000 0.0000000 0.0000000 0.0000064 525.0 4.00E-23 0.0000063 0.0000000 0.0000063 0.0000000 0.0000000 0.0000000 0.0000063 526.0 0.00E+00 0.0000061 0.0000000 0.0000061 0.0000000 0.0000000 0.0000000 0.0000061 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/GLY_07M ================================================ GLY-07M ! HCOCHO + HV = HCHO + H2 ! Absorption cross sections from Volkamer, R., P. Spietz, J. Burrows, ! and U. Platt (2005): "High-resolution absorption cross sections of ! glyoxal in the UV-vis and IR spectral ranges," J. Photochem. Photobiol. ! A, 172 35-46. Quantum yields at wavelengths below 350 nm derived from ! those used for the radical forming process assuming total quantum ! yields of 1. Quantum yields at higher wavelengths assumed to decline ! expodentially at a rate that gives a 13% formaldehyde yield telative to ! photodecomposition under the conditions of Plum et al (1983). ! Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 289.0 3.800E-20 0.6750 290.0 3.734E-20 0.6740 291.0 3.643E-20 0.6730 292.0 3.654E-20 0.6710 293.0 3.681E-20 0.6700 294.0 3.729E-20 0.6690 295.0 3.809E-20 0.6670 296.0 3.824E-20 0.6660 297.0 3.922E-20 0.6650 298.0 4.073E-20 0.6630 299.0 4.123E-20 0.6620 300.0 4.045E-20 0.6610 301.0 3.905E-20 0.6590 302.0 3.779E-20 0.6580 303.0 3.567E-20 0.6570 304.0 3.350E-20 0.6550 305.0 3.242E-20 0.6540 306.0 3.223E-20 0.6530 307.0 3.200E-20 0.6510 308.0 3.146E-20 0.6500 309.0 3.123E-20 0.6410 310.0 3.100E-20 0.6310 311.0 3.222E-20 0.6220 312.0 3.343E-20 0.6130 313.0 3.390E-20 0.6040 314.0 3.233E-20 0.5940 315.0 2.805E-20 0.5850 316.0 2.646E-20 0.5760 317.0 2.460E-20 0.5660 318.0 2.214E-20 0.5570 319.0 1.927E-20 0.5480 320.0 1.854E-20 0.5380 321.0 1.885E-20 0.5290 322.0 1.766E-20 0.5200 323.0 1.723E-20 0.5110 324.0 1.677E-20 0.5010 325.0 1.603E-20 0.4920 326.0 1.606E-20 0.4830 327.0 1.695E-20 0.4730 328.0 1.937E-20 0.4640 329.0 1.857E-20 0.4550 330.0 1.689E-20 0.4450 331.0 1.128E-20 0.4360 332.0 1.048E-20 0.4270 333.0 9.660E-21 0.4170 334.0 9.190E-21 0.4080 335.0 7.370E-21 0.3990 336.0 6.300E-21 0.3900 337.0 5.890E-21 0.3800 338.0 6.470E-21 0.3710 339.0 5.850E-21 0.3620 340.0 5.530E-21 0.3520 341.0 5.630E-21 0.3430 342.0 5.100E-21 0.3340 343.0 4.990E-21 0.3240 344.0 6.490E-21 0.3150 345.0 6.240E-21 0.3060 346.0 7.330E-21 0.2970 347.0 6.310E-21 0.2870 348.0 6.040E-21 0.2780 349.0 4.150E-21 0.2690 350.0 3.910E-21 0.2590 351.0 3.950E-21 0.2500 352.0 4.230E-21 0.2320 353.0 4.150E-21 0.2150 354.0 4.030E-21 0.2000 355.0 4.220E-21 0.1860 356.0 4.430E-21 0.1720 357.0 4.310E-21 0.1600 358.0 4.710E-21 0.1480 359.0 5.030E-21 0.1380 360.0 5.460E-21 0.1280 361.0 6.270E-21 0.1190 362.0 7.060E-21 0.1100 363.0 6.390E-21 0.1020 364.0 6.800E-21 0.0950 365.0 6.650E-21 0.0880 366.0 7.430E-21 0.0820 367.0 8.600E-21 0.0760 368.0 1.012E-20 0.0700 369.0 1.063E-20 0.0650 370.0 1.139E-20 0.0610 371.0 1.185E-20 0.0560 372.0 1.141E-20 0.0520 373.0 1.212E-20 0.0490 374.0 1.352E-20 0.0450 375.0 1.332E-20 0.0420 376.0 1.377E-20 0.0390 377.0 1.467E-20 0.0360 378.0 1.605E-20 0.0330 379.0 1.534E-20 0.0310 380.0 1.934E-20 0.0290 381.0 2.455E-20 0.0270 382.0 2.019E-20 0.0250 383.0 2.069E-20 0.0230 384.0 1.939E-20 0.0210 385.0 1.893E-20 0.0200 386.0 1.835E-20 0.0180 387.0 2.287E-20 0.0170 388.0 3.000E-20 0.0160 389.0 3.206E-20 0.0150 390.0 3.483E-20 0.0140 391.0 3.922E-20 0.0130 392.0 3.801E-20 0.0120 393.0 2.852E-20 0.0110 394.0 3.147E-20 0.0100 395.0 3.855E-20 0.0090 396.0 3.679E-20 0.0090 397.0 3.361E-20 0.0080 398.0 4.323E-20 0.0080 399.0 4.345E-20 0.0070 400.0 3.873E-20 0.0070 401.0 4.455E-20 0.0060 402.0 5.843E-20 0.0060 403.0 7.159E-20 0.0050 404.0 6.237E-20 0.0050 405.0 4.491E-20 0.0040 406.0 4.482E-20 0.0040 407.0 4.066E-20 0.0040 408.0 3.444E-20 0.0040 409.0 4.008E-20 0.0030 410.0 5.661E-20 0.0030 411.0 7.221E-20 0.0030 412.0 7.406E-20 0.0030 413.0 1.075E-19 0.0020 414.0 1.012E-19 0.0020 415.0 1.019E-19 0.0020 416.0 6.073E-20 0.0020 417.0 6.829E-20 0.0020 418.0 7.873E-20 0.0020 419.0 9.134E-20 0.0020 420.0 5.602E-20 0.0010 421.0 7.188E-20 0.0010 422.0 6.990E-20 0.0010 423.0 1.305E-19 0.0010 424.0 8.239E-20 0.0010 425.0 1.045E-19 0.0010 426.0 1.641E-19 0.0010 427.0 1.610E-19 0.0010 428.0 2.142E-19 0.0010 429.0 6.499E-20 0.0010 430.0 7.027E-20 0.0010 431.0 6.518E-20 0.0010 432.0 6.082E-20 0.0010 433.0 5.657E-20 0.0010 434.0 6.809E-20 0.0010 435.0 7.660E-20 0.0000 436.0 1.319E-19 0.0000 437.0 9.185E-20 0.0000 438.0 1.382E-19 0.0000 439.0 1.214E-19 0.0000 440.0 2.594E-19 0.0000 441.0 1.312E-19 0.0000 442.0 9.013E-20 0.0000 443.0 1.112E-19 0.0000 444.0 1.346E-19 0.0000 445.0 1.511E-19 0.0000 446.0 7.818E-20 0.0000 447.0 3.730E-20 0.0000 448.0 4.144E-20 0.0000 449.0 5.527E-20 0.0000 450.0 8.682E-20 0.0000 451.0 1.382E-19 0.0000 452.0 1.595E-19 0.0000 453.0 3.037E-19 0.0000 454.0 2.690E-19 0.0000 455.0 5.199E-19 0.0000 456.0 1.567E-19 0.0000 457.0 2.661E-20 0.0000 458.0 2.201E-20 0.0000 459.0 9.020E-21 0.0000 460.0 1.202E-20 0.0000 461.0 8.830E-21 0.0000 462.0 5.880E-21 0.0000 463.0 3.220E-21 0.0000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/GLY_07R ================================================ GLY-07R ! HCOCHO + HV = HCO. + HCO. ! Absorption cross sections from Volkamer, R., P. Spietz, J. Burrows, and ! U. Platt (2005): "High-resolution absorption cross sections of glyoxal ! in the UV-vis and IR spectral ranges," J. Photochem. Photobiol. A, 172 ! 35-46. Quantum yields at wavelengths below 350 nm based on the data of ! Zhu et al (1996) which are consistent with the data of Langford and ! Moore (1984). Quantum yields at higher wavelengths assumed to decline ! expodentially with wavelength at a rate that gives a photolysis rate ! relative to NO2 consistent with the data of Klotz et al (2000). ! Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 289.0 3.800E-20 0.3250 290.0 3.734E-20 0.3260 291.0 3.643E-20 0.3270 292.0 3.654E-20 0.3290 293.0 3.681E-20 0.3300 294.0 3.729E-20 0.3310 295.0 3.809E-20 0.3330 296.0 3.824E-20 0.3340 297.0 3.922E-20 0.3350 298.0 4.073E-20 0.3370 299.0 4.123E-20 0.3380 300.0 4.045E-20 0.3390 301.0 3.905E-20 0.3410 302.0 3.779E-20 0.3420 303.0 3.567E-20 0.3430 304.0 3.350E-20 0.3450 305.0 3.242E-20 0.3460 306.0 3.223E-20 0.3470 307.0 3.200E-20 0.3490 308.0 3.146E-20 0.3500 309.0 3.123E-20 0.3590 310.0 3.100E-20 0.3690 311.0 3.222E-20 0.3780 312.0 3.343E-20 0.3870 313.0 3.390E-20 0.3970 314.0 3.233E-20 0.4060 315.0 2.805E-20 0.4150 316.0 2.646E-20 0.4240 317.0 2.460E-20 0.4340 318.0 2.214E-20 0.4430 319.0 1.927E-20 0.4520 320.0 1.854E-20 0.4620 321.0 1.885E-20 0.4710 322.0 1.766E-20 0.4800 323.0 1.723E-20 0.4900 324.0 1.677E-20 0.4990 325.0 1.603E-20 0.5080 326.0 1.606E-20 0.5170 327.0 1.695E-20 0.5270 328.0 1.937E-20 0.5360 329.0 1.857E-20 0.5450 330.0 1.689E-20 0.5550 331.0 1.128E-20 0.5640 332.0 1.048E-20 0.5730 333.0 9.660E-21 0.5830 334.0 9.190E-21 0.5920 335.0 7.370E-21 0.6010 336.0 6.300E-21 0.6110 337.0 5.890E-21 0.6200 338.0 6.470E-21 0.6290 339.0 5.850E-21 0.6380 340.0 5.530E-21 0.6480 341.0 5.630E-21 0.6570 342.0 5.100E-21 0.6660 343.0 4.990E-21 0.6760 344.0 6.490E-21 0.6850 345.0 6.240E-21 0.6940 346.0 7.330E-21 0.7040 347.0 6.310E-21 0.7130 348.0 6.040E-21 0.7220 349.0 4.150E-21 0.7310 350.0 3.910E-21 0.7410 351.0 3.950E-21 0.7500 352.0 4.230E-21 0.7150 353.0 4.150E-21 0.6810 354.0 4.030E-21 0.6490 355.0 4.220E-21 0.6190 356.0 4.430E-21 0.5890 357.0 4.310E-21 0.5620 358.0 4.710E-21 0.5350 359.0 5.030E-21 0.5100 360.0 5.460E-21 0.4860 361.0 6.270E-21 0.4630 362.0 7.060E-21 0.4420 363.0 6.390E-21 0.4210 364.0 6.800E-21 0.4010 365.0 6.650E-21 0.3820 366.0 7.430E-21 0.3640 367.0 8.600E-21 0.3470 368.0 1.012E-20 0.3310 369.0 1.063E-20 0.3150 370.0 1.139E-20 0.3000 371.0 1.185E-20 0.2860 372.0 1.141E-20 0.2730 373.0 1.212E-20 0.2600 374.0 1.352E-20 0.2480 375.0 1.332E-20 0.2360 376.0 1.377E-20 0.2250 377.0 1.467E-20 0.2140 378.0 1.605E-20 0.2040 379.0 1.534E-20 0.1950 380.0 1.934E-20 0.1860 381.0 2.455E-20 0.1770 382.0 2.019E-20 0.1690 383.0 2.069E-20 0.1610 384.0 1.939E-20 0.1530 385.0 1.893E-20 0.1460 386.0 1.835E-20 0.1390 387.0 2.287E-20 0.1320 388.0 3.000E-20 0.1260 389.0 3.206E-20 0.1200 390.0 3.483E-20 0.1150 391.0 3.922E-20 0.1090 392.0 3.801E-20 0.1040 393.0 2.852E-20 0.0990 394.0 3.147E-20 0.0950 395.0 3.855E-20 0.0900 396.0 3.679E-20 0.0860 397.0 3.361E-20 0.0820 398.0 4.323E-20 0.0780 399.0 4.345E-20 0.0740 400.0 3.873E-20 0.0710 401.0 4.455E-20 0.0670 402.0 5.843E-20 0.0640 403.0 7.159E-20 0.0610 404.0 6.237E-20 0.0580 405.0 4.491E-20 0.0560 406.0 4.482E-20 0.0530 407.0 4.066E-20 0.0510 408.0 3.444E-20 0.0480 409.0 4.008E-20 0.0460 410.0 5.661E-20 0.0440 411.0 7.221E-20 0.0420 412.0 7.406E-20 0.0400 413.0 1.075E-19 0.0380 414.0 1.012E-19 0.0360 415.0 1.019E-19 0.0340 416.0 6.073E-20 0.0330 417.0 6.829E-20 0.0310 418.0 7.873E-20 0.0300 419.0 9.134E-20 0.0280 420.0 5.602E-20 0.0270 421.0 7.188E-20 0.0260 422.0 6.990E-20 0.0250 423.0 1.305E-19 0.0230 424.0 8.239E-20 0.0220 425.0 1.045E-19 0.0210 426.0 1.641E-19 0.0200 427.0 1.610E-19 0.0190 428.0 2.142E-19 0.0180 429.0 6.499E-20 0.0180 430.0 7.027E-20 0.0170 431.0 6.518E-20 0.0160 432.0 6.082E-20 0.0150 433.0 5.657E-20 0.0140 434.0 6.809E-20 0.0140 435.0 7.660E-20 0.0130 436.0 1.319E-19 0.0130 437.0 9.185E-20 0.0120 438.0 1.382E-19 0.0110 439.0 1.214E-19 0.0110 440.0 2.594E-19 0.0100 441.0 1.312E-19 0.0100 442.0 9.013E-20 0.0090 443.0 1.112E-19 0.0090 444.0 1.346E-19 0.0090 445.0 1.511E-19 0.0080 446.0 7.818E-20 0.0080 447.0 3.730E-20 0.0070 448.0 4.144E-20 0.0070 449.0 5.527E-20 0.0070 450.0 8.682E-20 0.0060 451.0 1.382E-19 0.0060 452.0 1.595E-19 0.0060 453.0 3.037E-19 0.0060 454.0 2.690E-19 0.0050 455.0 5.199E-19 0.0050 456.0 1.567E-19 0.0050 457.0 2.661E-20 0.0050 458.0 2.201E-20 0.0040 459.0 9.020E-21 0.0040 460.0 1.202E-20 0.0040 461.0 8.830E-21 0.0040 462.0 5.880E-21 0.0040 463.0 3.220E-21 0.0000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/GLY_1H_MCMv32 ================================================ GLY_1H_MCMv32 !Glyoxal (CHOCHO) channel quantum yields (1 bar, 298 K) !Rate sums quantum yields of phi2 and phi5 channels !CHOCHO--->2HCO !CHOCHO--->2H+2CHO !http://iupac.pole-ether.fr/htdocs/datasheets/pdf/P4_(CHO)2+hv.pdf !Dated: May 2013 ! !phi1 = H2 + 2CO !phi2 = HCO + HCO !phi3 = HCHO + CO !phi4 = HCO+CO+H !phi5 = 2H+2CO !phi6 = TOTAL ! ! !wvl XCROSS HCO+CO+H 2H+2CO H2+2CO 2HCO HCHO+CO Total Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 250.0 1.73E-20 0.3888 0.2527 0.0000 0.0034 0.3550 0.9999 251.0 1.52E-20 0.3887 0.2505 0.0000 0.0037 0.3570 0.9999 252.0 1.48E-20 0.3887 0.2483 0.0000 0.0039 0.3591 0.9999 253.0 1.55E-20 0.3886 0.2459 0.0000 0.0042 0.3613 0.9999 254.0 1.60E-20 0.3884 0.2433 0.0000 0.0045 0.3637 0.9998 255.0 1.67E-20 0.3883 0.2405 0.0000 0.0049 0.3662 0.9998 256.0 1.62E-20 0.3882 0.2376 0.0000 0.0052 0.3689 0.9998 257.0 1.81E-20 0.3881 0.2345 0.0000 0.0056 0.3717 0.9998 258.0 1.82E-20 0.3879 0.2313 0.0000 0.0060 0.3747 0.9997 259.0 1.85E-20 0.3878 0.2278 0.0000 0.0065 0.3779 0.9997 260.0 1.83E-20 0.3876 0.2242 0.0000 0.0069 0.3812 0.9997 261.0 1.96E-20 0.3874 0.2204 0.0000 0.0074 0.3847 0.9996 262.0 2.03E-20 0.3872 0.2164 0.0000 0.0080 0.3883 0.9996 263.0 2.14E-20 0.3870 0.2122 0.0000 0.0086 0.3921 0.9995 264.0 2.18E-20 0.3868 0.2078 0.0000 0.0092 0.3961 0.9995 265.0 2.26E-20 0.3865 0.2032 0.0000 0.0099 0.4002 0.9994 266.0 2.33E-20 0.3863 0.1985 0.0000 0.0106 0.4045 0.9994 267.0 2.37E-20 0.3860 0.1936 0.0000 0.0113 0.4089 0.9993 268.0 2.36E-20 0.3857 0.1885 0.0000 0.0122 0.4134 0.9992 269.0 2.48E-20 0.3854 0.1833 0.0000 0.0130 0.4180 0.9991 270.0 2.51E-20 0.3850 0.1780 0.0000 0.0140 0.4227 0.9990 271.0 2.61E-20 0.3847 0.1725 0.0000 0.0150 0.4275 0.9989 272.0 2.72E-20 0.3843 0.1669 0.0000 0.0161 0.4324 0.9988 273.0 2.81E-20 0.3838 0.1613 0.0000 0.0172 0.4373 0.9986 274.0 2.92E-20 0.3834 0.1555 0.0000 0.0185 0.4422 0.9985 275.0 3.00E-20 0.3829 0.1497 0.0000 0.0198 0.4471 0.9983 276.0 3.06E-20 0.3823 0.1439 0.0000 0.0212 0.4520 0.9981 277.0 3.09E-20 0.3818 0.1381 0.0000 0.0227 0.4568 0.9979 278.0 3.08E-20 0.3812 0.1322 0.0000 0.0244 0.4615 0.9977 279.0 3.09E-20 0.3805 0.1264 0.0000 0.0261 0.4662 0.9975 280.0 3.14E-20 0.3798 0.1206 0.0000 0.0280 0.4707 0.9972 281.0 3.22E-20 0.3790 0.1149 0.0000 0.0300 0.4751 0.9969 282.0 3.32E-20 0.3782 0.1093 0.0000 0.0321 0.4792 0.9966 283.0 3.46E-20 0.3774 0.1038 0.0000 0.0344 0.4832 0.9962 284.0 3.57E-20 0.3764 0.0984 0.0000 0.0368 0.4870 0.9958 285.0 3.67E-20 0.3754 0.0931 0.0000 0.0394 0.4905 0.9954 286.0 3.80E-20 0.3744 0.0880 0.0000 0.0421 0.4938 0.9950 287.0 3.79E-20 0.3732 0.0830 0.0000 0.0451 0.4968 0.9945 288.0 3.81E-20 0.3720 0.0782 0.0000 0.0482 0.4995 0.9939 289.0 3.80E-20 0.3707 0.0736 0.0000 0.0515 0.5019 0.9934 290.0 3.73E-20 0.3693 0.0692 0.0000 0.0551 0.5040 0.9927 291.0 3.64E-20 0.3678 0.0649 0.0000 0.0589 0.5057 0.9920 292.0 3.65E-20 0.3663 0.0608 0.0000 0.0629 0.5071 0.9913 293.0 3.68E-20 0.3646 0.0569 0.0000 0.0672 0.5081 0.9905 294.0 3.73E-20 0.3628 0.0532 0.0000 0.0717 0.5088 0.9896 295.0 3.81E-20 0.3608 0.0497 0.0000 0.0765 0.5091 0.9887 296.0 3.82E-20 0.3588 0.0463 0.0000 0.0816 0.5090 0.9876 297.0 3.92E-20 0.3566 0.0432 0.0000 0.0870 0.5086 0.9866 298.0 4.07E-20 0.3543 0.0402 0.0000 0.0928 0.5078 0.9854 299.0 4.12E-20 0.3518 0.0374 0.0000 0.0988 0.5066 0.9841 300.0 4.05E-20 0.3492 0.0347 0.0000 0.1052 0.5050 0.9827 301.0 3.91E-20 0.3465 0.0322 0.0000 0.1120 0.5030 0.9813 302.0 3.78E-20 0.3435 0.0299 0.0000 0.1191 0.5006 0.9797 303.0 3.57E-20 0.3404 0.0277 0.0000 0.1265 0.4979 0.9780 304.0 3.35E-20 0.3372 0.0257 0.0000 0.1344 0.4947 0.9762 305.0 3.24E-20 0.3337 0.0238 0.0000 0.1427 0.4912 0.9743 306.0 3.22E-20 0.3301 0.0220 0.0000 0.1513 0.4874 0.9722 307.0 3.20E-20 0.3262 0.0203 0.0000 0.1604 0.4831 0.9700 308.0 3.15E-20 0.3222 0.0188 0.0000 0.1698 0.4785 0.9677 309.0 3.12E-20 0.3180 0.0174 0.0000 0.1797 0.4736 0.9652 310.0 3.10E-20 0.3135 0.0160 0.0000 0.1899 0.4683 0.9626 311.0 3.22E-20 0.3089 0.0148 0.0000 0.2006 0.4627 0.9598 312.0 3.34E-20 0.3040 0.0136 0.0000 0.2117 0.4568 0.9568 313.0 3.39E-20 0.2989 0.0126 0.0000 0.2231 0.4505 0.9536 314.0 3.23E-20 0.2936 0.0116 0.0000 0.2349 0.4441 0.9502 315.0 2.81E-20 0.2881 0.0106 0.0000 0.2471 0.4373 0.9467 316.0 2.65E-20 0.2824 0.0098 0.0000 0.2595 0.4303 0.9429 317.0 2.46E-20 0.2765 0.0090 0.0000 0.2723 0.4232 0.9389 318.0 2.21E-20 0.2704 0.0083 0.0000 0.2854 0.4158 0.9347 319.0 1.93E-20 0.2641 0.0076 0.0000 0.2987 0.4083 0.9303 320.0 1.85E-20 0.2576 0.0070 0.0000 0.3123 0.4007 0.9257 321.0 1.89E-20 0.2509 0.0064 0.0000 0.3260 0.3930 0.9207 322.0 1.77E-20 0.2441 0.0059 0.0000 0.3398 0.3852 0.9156 323.0 1.72E-20 0.2372 0.0054 0.0000 0.3537 0.3774 0.9101 324.0 1.68E-20 0.2300 0.0050 0.0000 0.3676 0.3696 0.9044 325.0 1.60E-20 0.2228 0.0045 0.0000 0.3815 0.3619 0.8984 326.0 1.61E-20 0.2155 0.0042 0.0000 0.3953 0.3543 0.8921 327.0 1.70E-20 0.2081 0.0038 0.0000 0.4090 0.3469 0.8854 328.0 1.94E-20 0.2006 0.0035 0.0000 0.4225 0.3396 0.8785 329.0 1.86E-20 0.1931 0.0032 0.0000 0.4357 0.3325 0.8712 330.0 1.69E-20 0.1855 0.0029 0.0000 0.4486 0.3256 0.8636 331.0 1.13E-20 0.1780 0.0027 0.0000 0.4611 0.3191 0.8556 332.0 1.05E-20 0.1705 0.0024 0.0000 0.4731 0.3128 0.8473 333.0 9.66E-21 0.1630 0.0022 0.0000 0.4847 0.3069 0.8385 334.0 9.19E-21 0.1555 0.0020 0.0000 0.4957 0.3013 0.8294 335.0 7.37E-21 0.1482 0.0019 0.0000 0.5060 0.2961 0.8198 336.0 6.30E-21 0.1409 0.0017 0.0000 0.5157 0.2913 0.8099 337.0 5.89E-21 0.1338 0.0015 0.0000 0.5248 0.2869 0.7995 338.0 6.47E-21 0.1268 0.0014 0.0000 0.5330 0.2829 0.7886 339.0 5.85E-21 0.1200 0.0013 0.0000 0.5405 0.2794 0.7773 340.0 5.53E-21 0.1133 0.0012 0.0000 0.5471 0.2762 0.7656 341.0 5.63E-21 0.1069 0.0011 0.0000 0.5529 0.2735 0.7534 342.0 5.10E-21 0.1006 0.0010 0.0000 0.5578 0.2711 0.7407 343.0 4.99E-21 0.0945 0.0009 0.0000 0.5619 0.2692 0.7276 344.0 6.49E-21 0.0886 0.0008 0.0000 0.5650 0.2676 0.7140 345.0 6.24E-21 0.0830 0.0007 0.0000 0.5672 0.2663 0.6999 346.0 7.33E-21 0.0776 0.0007 0.0000 0.5686 0.2654 0.6854 347.0 6.31E-21 0.0724 0.0006 0.0000 0.5690 0.2647 0.6705 348.0 6.04E-21 0.0675 0.0005 0.0000 0.5686 0.2643 0.6551 349.0 4.15E-21 0.0628 0.0005 0.0000 0.5672 0.2641 0.6393 350.0 3.91E-21 0.0583 0.0004 0.0000 0.5651 0.2640 0.6232 351.0 3.95E-21 0.0541 0.0004 0.0000 0.5621 0.2641 0.6067 352.0 4.23E-21 0.0501 0.0004 0.0000 0.5583 0.2643 0.5898 353.0 4.15E-21 0.0463 0.0003 0.0000 0.5537 0.2646 0.5727 354.0 4.03E-21 0.0427 0.0003 0.0000 0.5485 0.2649 0.5553 355.0 4.22E-21 0.0394 0.0003 0.0000 0.5425 0.2652 0.5377 356.0 4.43E-21 0.0363 0.0002 0.0000 0.5359 0.2654 0.5199 357.0 4.31E-21 0.0333 0.0002 0.0000 0.5286 0.2655 0.5020 358.0 4.71E-21 0.0306 0.0002 0.0000 0.5208 0.2656 0.4840 359.0 5.03E-21 0.0281 0.0002 0.0000 0.5125 0.2655 0.4660 360.0 5.46E-21 0.0257 0.0002 0.0000 0.5037 0.2652 0.4480 361.0 6.27E-21 0.0235 0.0001 0.0000 0.4945 0.2647 0.4301 362.0 7.06E-21 0.0215 0.0001 0.0000 0.4849 0.2640 0.4122 363.0 6.39E-21 0.0196 0.0001 0.0000 0.4749 0.2631 0.3945 364.0 6.80E-21 0.0179 0.0001 0.0000 0.4647 0.2620 0.3770 365.0 6.65E-21 0.0163 0.0001 0.0000 0.4542 0.2606 0.3598 366.0 7.43E-21 0.0148 0.0001 0.0000 0.4435 0.2589 0.3428 367.0 8.60E-21 0.0135 0.0001 0.0000 0.4326 0.2570 0.3262 368.0 1.01E-20 0.0122 0.0001 0.0000 0.4216 0.2548 0.3100 369.0 1.06E-20 0.0111 0.0001 0.0000 0.4105 0.2524 0.2941 370.0 1.14E-20 0.0100 0.0000 0.0000 0.3994 0.2497 0.2787 371.0 1.19E-20 0.0091 0.0000 0.0000 0.3882 0.2467 0.2637 372.0 1.14E-20 0.0082 0.0000 0.0000 0.3770 0.2436 0.2492 373.0 1.21E-20 0.0074 0.0000 0.0000 0.3659 0.2401 0.2351 374.0 1.35E-20 0.0067 0.0000 0.0000 0.3549 0.2365 0.2216 375.0 1.33E-20 0.0061 0.0000 0.0000 0.3439 0.2327 0.2086 376.0 1.38E-20 0.0055 0.0000 0.0000 0.3330 0.2287 0.1962 377.0 1.47E-20 0.0049 0.0000 0.0000 0.3223 0.2246 0.1842 378.0 1.61E-20 0.0044 0.0000 0.0000 0.3117 0.2203 0.1728 379.0 1.53E-20 0.0040 0.0000 0.0000 0.3014 0.2158 0.1619 380.0 1.93E-20 0.0036 0.0000 0.0000 0.2911 0.2112 0.1516 381.0 2.46E-20 0.0032 0.0000 0.0000 0.2811 0.2066 0.1417 382.0 2.02E-20 0.0029 0.0000 0.0000 0.2713 0.2018 0.1324 383.0 2.07E-20 0.0026 0.0000 0.0000 0.2617 0.1970 0.1235 384.0 1.94E-20 0.0023 0.0000 0.0000 0.2523 0.1921 0.1152 385.0 1.89E-20 0.0021 0.0000 0.0000 0.2431 0.1872 0.1073 386.0 1.84E-20 0.0019 0.0000 0.0000 0.2342 0.1823 0.0998 387.0 2.29E-20 0.0017 0.0000 0.0000 0.2255 0.1773 0.0928 388.0 3.00E-20 0.0015 0.0000 0.0000 0.2170 0.1723 0.0862 389.0 3.21E-20 0.0014 0.0000 0.0000 0.2087 0.1674 0.0799 390.0 3.48E-20 0.0012 0.0000 0.0000 0.2006 0.1624 0.0741 391.0 3.92E-20 0.0011 0.0000 0.0000 0.1927 0.1574 0.0686 392.0 3.80E-20 0.0010 0.0000 0.0000 0.1850 0.1525 0.0634 393.0 2.85E-20 0.0009 0.0000 0.0000 0.1775 0.1475 0.0585 394.0 3.15E-20 0.0008 0.0000 0.0000 0.1702 0.1426 0.0539 395.0 3.86E-20 0.0007 0.0000 0.0000 0.1630 0.1377 0.0496 396.0 3.68E-20 0.0006 0.0000 0.0000 0.1559 0.1327 0.0455 397.0 3.36E-20 0.0005 0.0000 0.0000 0.1489 0.1277 0.0416 398.0 4.32E-20 0.0005 0.0000 0.0000 0.1420 0.1227 0.0379 399.0 4.35E-20 0.0004 0.0000 0.0000 0.1350 0.1176 0.0344 400.0 3.87E-20 0.0004 0.0000 0.0000 0.1281 0.1124 0.0311 401.0 4.46E-20 0.0003 0.0000 0.0000 0.1212 0.1071 0.0279 402.0 5.84E-20 0.0003 0.0000 0.0000 0.1141 0.1017 0.0248 403.0 7.16E-20 0.0003 0.0000 0.0000 0.1070 0.0961 0.0219 404.0 6.24E-20 0.0002 0.0000 0.0000 0.0997 0.0902 0.0191 405.0 4.49E-20 0.0002 0.0000 0.0000 0.0923 0.0842 0.0164 406.0 4.48E-20 0.0002 0.0000 0.0000 0.0848 0.0780 0.0139 407.0 4.07E-20 0.0001 0.0000 0.0000 0.0772 0.0715 0.0115 408.0 3.44E-20 0.0001 0.0000 0.0000 0.0696 0.0650 0.0094 409.0 4.01E-20 0.0001 0.0000 0.0000 0.0620 0.0583 0.0075 410.0 5.66E-20 0.0001 0.0000 0.0000 0.0545 0.0517 0.0058 411.0 7.22E-20 0.0001 0.0000 0.0000 0.0474 0.0453 0.0044 412.0 7.41E-20 0.0001 0.0000 0.0000 0.0407 0.0391 0.0033 413.0 1.08E-19 0.0000 0.0000 0.0000 0.0344 0.0333 0.0023 414.0 1.01E-19 0.0000 0.0000 0.0000 0.0288 0.0280 0.0016 415.0 1.02E-19 0.0000 0.0000 0.0000 0.0238 0.0233 0.0011 416.0 6.07E-20 0.0000 0.0000 0.0000 0.0194 0.0191 0.0008 417.0 6.83E-20 0.0000 0.0000 0.0000 0.0157 0.0155 0.0005 418.0 7.87E-20 0.0000 0.0000 0.0000 0.0126 0.0125 0.0003 419.0 9.13E-20 0.0000 0.0000 0.0000 0.0101 0.0100 0.0002 420.0 5.60E-20 0.0000 0.0000 0.0000 0.0080 0.0079 0.0001 421.0 7.19E-20 0.0000 0.0000 0.0000 0.0063 0.0062 0.0001 422.0 6.99E-20 0.0000 0.0000 0.0000 0.0049 0.0049 0.0000 423.0 1.30E-19 0.0000 0.0000 0.0000 0.0038 0.0038 0.0000 424.0 8.24E-20 0.0000 0.0000 0.0000 0.0030 0.0030 0.0000 425.0 1.04E-19 0.0000 0.0000 0.0000 0.0023 0.0023 0.0000 426.0 1.64E-19 0.0000 0.0000 0.0000 0.0018 0.0018 0.0000 427.0 1.61E-19 0.0000 0.0000 0.0000 0.0014 0.0014 0.0000 428.0 2.14E-19 0.0000 0.0000 0.0000 0.0010 0.0010 0.0000 429.0 6.50E-20 0.0000 0.0000 0.0000 0.0008 0.0008 0.0000 430.0 7.03E-20 0.0000 0.0000 0.0000 0.0006 0.0006 0.0000 431.0 6.52E-20 0.0000 0.0000 0.0000 0.0005 0.0005 0.0000 432.0 6.08E-20 0.0000 0.0000 0.0000 0.0003 0.0003 0.0000 433.0 5.66E-20 0.0000 0.0000 0.0000 0.0003 0.0003 0.0000 434.0 6.81E-20 0.0000 0.0000 0.0000 0.0002 0.0002 0.0000 435.0 7.66E-20 0.0000 0.0000 0.0000 0.0001 0.0001 0.0000 436.0 1.32E-19 0.0000 0.0000 0.0000 0.0001 0.0001 0.0000 437.0 9.19E-20 0.0000 0.0000 0.0000 0.0001 0.0001 0.0000 438.0 1.38E-19 0.0000 0.0000 0.0000 0.0001 0.0001 0.0000 439.0 1.21E-19 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 440.0 2.59E-19 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 441.0 1.31E-19 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 442.0 9.01E-20 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 443.0 1.11E-19 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 444.0 1.35E-19 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 445.0 1.51E-19 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 446.0 7.82E-20 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 447.0 3.73E-20 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 448.0 4.14E-20 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 449.0 5.53E-20 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 450.0 8.68E-20 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 451.0 1.38E-19 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 452.0 1.59E-19 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 453.0 3.04E-19 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 454.0 2.69E-19 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 455.0 5.20E-19 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 456.0 1.57E-19 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 457.0 2.66E-20 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 458.0 2.20E-20 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 459.0 9.02E-21 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 460.0 1.20E-20 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 461.0 8.83E-21 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 462.0 5.88E-21 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 463.0 3.22E-21 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 464.0 3.39E-21 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 465.0 3.30E-21 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 466.0 4.16E-21 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 467.0 5.22E-21 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 468.0 1.49E-21 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 469.0 9.10E-22 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 470.0 7.60E-22 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 471.0 8.60E-22 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 472.0 9.20E-22 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 473.0 1.10E-21 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/GLY_2H_MCMv32 ================================================ GLY_2H_MCMv32 !Glyoxal (CHOCHO) channel quantum yields (1 bar, 298 K) !Rate sums quantum yields of phi2 and phi5 channels !CHOCHO--->2HCO !CHOCHO--->2H+2CHO !http://iupac.pole-ether.fr/htdocs/datasheets/pdf/P4_(CHO)2+hv.pdf !Dated: May 2013 ! !phi1 = H2 + 2CO !phi2 = HCO + HCO !phi3 = HCHO + CO !phi4 = HCO+CO+H !phi5 = 2H+2CO !phi6 = TOTAL ! ! !wvl XCROSS 2H+2CO H2+2CO 2HCO HCHO+CO HCO+CO+H Total Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 250.0 1.73E-20 0.2527 0.0000 0.0034 0.3550 0.3888 0.9999 251.0 1.52E-20 0.2505 0.0000 0.0037 0.3570 0.3887 0.9999 252.0 1.48E-20 0.2483 0.0000 0.0039 0.3591 0.3887 0.9999 253.0 1.55E-20 0.2459 0.0000 0.0042 0.3613 0.3886 0.9999 254.0 1.60E-20 0.2433 0.0000 0.0045 0.3637 0.3884 0.9998 255.0 1.67E-20 0.2405 0.0000 0.0049 0.3662 0.3883 0.9998 256.0 1.62E-20 0.2376 0.0000 0.0052 0.3689 0.3882 0.9998 257.0 1.81E-20 0.2345 0.0000 0.0056 0.3717 0.3881 0.9998 258.0 1.82E-20 0.2313 0.0000 0.0060 0.3747 0.3879 0.9997 259.0 1.85E-20 0.2278 0.0000 0.0065 0.3779 0.3878 0.9997 260.0 1.83E-20 0.2242 0.0000 0.0069 0.3812 0.3876 0.9997 261.0 1.96E-20 0.2204 0.0000 0.0074 0.3847 0.3874 0.9996 262.0 2.03E-20 0.2164 0.0000 0.0080 0.3883 0.3872 0.9996 263.0 2.14E-20 0.2122 0.0000 0.0086 0.3921 0.3870 0.9995 264.0 2.18E-20 0.2078 0.0000 0.0092 0.3961 0.3868 0.9995 265.0 2.26E-20 0.2032 0.0000 0.0099 0.4002 0.3865 0.9994 266.0 2.33E-20 0.1985 0.0000 0.0106 0.4045 0.3863 0.9994 267.0 2.37E-20 0.1936 0.0000 0.0113 0.4089 0.3860 0.9993 268.0 2.36E-20 0.1885 0.0000 0.0122 0.4134 0.3857 0.9992 269.0 2.48E-20 0.1833 0.0000 0.0130 0.4180 0.3854 0.9991 270.0 2.51E-20 0.1780 0.0000 0.0140 0.4227 0.3850 0.9990 271.0 2.61E-20 0.1725 0.0000 0.0150 0.4275 0.3847 0.9989 272.0 2.72E-20 0.1669 0.0000 0.0161 0.4324 0.3843 0.9988 273.0 2.81E-20 0.1613 0.0000 0.0172 0.4373 0.3838 0.9986 274.0 2.92E-20 0.1555 0.0000 0.0185 0.4422 0.3834 0.9985 275.0 3.00E-20 0.1497 0.0000 0.0198 0.4471 0.3829 0.9983 276.0 3.06E-20 0.1439 0.0000 0.0212 0.4520 0.3823 0.9981 277.0 3.09E-20 0.1381 0.0000 0.0227 0.4568 0.3818 0.9979 278.0 3.08E-20 0.1322 0.0000 0.0244 0.4615 0.3812 0.9977 279.0 3.09E-20 0.1264 0.0000 0.0261 0.4662 0.3805 0.9975 280.0 3.14E-20 0.1206 0.0000 0.0280 0.4707 0.3798 0.9972 281.0 3.22E-20 0.1149 0.0000 0.0300 0.4751 0.3790 0.9969 282.0 3.32E-20 0.1093 0.0000 0.0321 0.4792 0.3782 0.9966 283.0 3.46E-20 0.1038 0.0000 0.0344 0.4832 0.3774 0.9962 284.0 3.57E-20 0.0984 0.0000 0.0368 0.4870 0.3764 0.9958 285.0 3.67E-20 0.0931 0.0000 0.0394 0.4905 0.3754 0.9954 286.0 3.80E-20 0.0880 0.0000 0.0421 0.4938 0.3744 0.9950 287.0 3.79E-20 0.0830 0.0000 0.0451 0.4968 0.3732 0.9945 288.0 3.81E-20 0.0782 0.0000 0.0482 0.4995 0.3720 0.9939 289.0 3.80E-20 0.0736 0.0000 0.0515 0.5019 0.3707 0.9934 290.0 3.73E-20 0.0692 0.0000 0.0551 0.5040 0.3693 0.9927 291.0 3.64E-20 0.0649 0.0000 0.0589 0.5057 0.3678 0.9920 292.0 3.65E-20 0.0608 0.0000 0.0629 0.5071 0.3663 0.9913 293.0 3.68E-20 0.0569 0.0000 0.0672 0.5081 0.3646 0.9905 294.0 3.73E-20 0.0532 0.0000 0.0717 0.5088 0.3628 0.9896 295.0 3.81E-20 0.0497 0.0000 0.0765 0.5091 0.3608 0.9887 296.0 3.82E-20 0.0463 0.0000 0.0816 0.5090 0.3588 0.9876 297.0 3.92E-20 0.0432 0.0000 0.0870 0.5086 0.3566 0.9866 298.0 4.07E-20 0.0402 0.0000 0.0928 0.5078 0.3543 0.9854 299.0 4.12E-20 0.0374 0.0000 0.0988 0.5066 0.3518 0.9841 300.0 4.05E-20 0.0347 0.0000 0.1052 0.5050 0.3492 0.9827 301.0 3.91E-20 0.0322 0.0000 0.1120 0.5030 0.3465 0.9813 302.0 3.78E-20 0.0299 0.0000 0.1191 0.5006 0.3435 0.9797 303.0 3.57E-20 0.0277 0.0000 0.1265 0.4979 0.3404 0.9780 304.0 3.35E-20 0.0257 0.0000 0.1344 0.4947 0.3372 0.9762 305.0 3.24E-20 0.0238 0.0000 0.1427 0.4912 0.3337 0.9743 306.0 3.22E-20 0.0220 0.0000 0.1513 0.4874 0.3301 0.9722 307.0 3.20E-20 0.0203 0.0000 0.1604 0.4831 0.3262 0.9700 308.0 3.15E-20 0.0188 0.0000 0.1698 0.4785 0.3222 0.9677 309.0 3.12E-20 0.0174 0.0000 0.1797 0.4736 0.3180 0.9652 310.0 3.10E-20 0.0160 0.0000 0.1899 0.4683 0.3135 0.9626 311.0 3.22E-20 0.0148 0.0000 0.2006 0.4627 0.3089 0.9598 312.0 3.34E-20 0.0136 0.0000 0.2117 0.4568 0.3040 0.9568 313.0 3.39E-20 0.0126 0.0000 0.2231 0.4505 0.2989 0.9536 314.0 3.23E-20 0.0116 0.0000 0.2349 0.4441 0.2936 0.9502 315.0 2.81E-20 0.0106 0.0000 0.2471 0.4373 0.2881 0.9467 316.0 2.65E-20 0.0098 0.0000 0.2595 0.4303 0.2824 0.9429 317.0 2.46E-20 0.0090 0.0000 0.2723 0.4232 0.2765 0.9389 318.0 2.21E-20 0.0083 0.0000 0.2854 0.4158 0.2704 0.9347 319.0 1.93E-20 0.0076 0.0000 0.2987 0.4083 0.2641 0.9303 320.0 1.85E-20 0.0070 0.0000 0.3123 0.4007 0.2576 0.9257 321.0 1.89E-20 0.0064 0.0000 0.3260 0.3930 0.2509 0.9207 322.0 1.77E-20 0.0059 0.0000 0.3398 0.3852 0.2441 0.9156 323.0 1.72E-20 0.0054 0.0000 0.3537 0.3774 0.2372 0.9101 324.0 1.68E-20 0.0050 0.0000 0.3676 0.3696 0.2300 0.9044 325.0 1.60E-20 0.0045 0.0000 0.3815 0.3619 0.2228 0.8984 326.0 1.61E-20 0.0042 0.0000 0.3953 0.3543 0.2155 0.8921 327.0 1.70E-20 0.0038 0.0000 0.4090 0.3469 0.2081 0.8854 328.0 1.94E-20 0.0035 0.0000 0.4225 0.3396 0.2006 0.8785 329.0 1.86E-20 0.0032 0.0000 0.4357 0.3325 0.1931 0.8712 330.0 1.69E-20 0.0029 0.0000 0.4486 0.3256 0.1855 0.8636 331.0 1.13E-20 0.0027 0.0000 0.4611 0.3191 0.1780 0.8556 332.0 1.05E-20 0.0024 0.0000 0.4731 0.3128 0.1705 0.8473 333.0 9.66E-21 0.0022 0.0000 0.4847 0.3069 0.1630 0.8385 334.0 9.19E-21 0.0020 0.0000 0.4957 0.3013 0.1555 0.8294 335.0 7.37E-21 0.0019 0.0000 0.5060 0.2961 0.1482 0.8198 336.0 6.30E-21 0.0017 0.0000 0.5157 0.2913 0.1409 0.8099 337.0 5.89E-21 0.0015 0.0000 0.5248 0.2869 0.1338 0.7995 338.0 6.47E-21 0.0014 0.0000 0.5330 0.2829 0.1268 0.7886 339.0 5.85E-21 0.0013 0.0000 0.5405 0.2794 0.1200 0.7773 340.0 5.53E-21 0.0012 0.0000 0.5471 0.2762 0.1133 0.7656 341.0 5.63E-21 0.0011 0.0000 0.5529 0.2735 0.1069 0.7534 342.0 5.10E-21 0.0010 0.0000 0.5578 0.2711 0.1006 0.7407 343.0 4.99E-21 0.0009 0.0000 0.5619 0.2692 0.0945 0.7276 344.0 6.49E-21 0.0008 0.0000 0.5650 0.2676 0.0886 0.7140 345.0 6.24E-21 0.0007 0.0000 0.5672 0.2663 0.0830 0.6999 346.0 7.33E-21 0.0007 0.0000 0.5686 0.2654 0.0776 0.6854 347.0 6.31E-21 0.0006 0.0000 0.5690 0.2647 0.0724 0.6705 348.0 6.04E-21 0.0005 0.0000 0.5686 0.2643 0.0675 0.6551 349.0 4.15E-21 0.0005 0.0000 0.5672 0.2641 0.0628 0.6393 350.0 3.91E-21 0.0004 0.0000 0.5651 0.2640 0.0583 0.6232 351.0 3.95E-21 0.0004 0.0000 0.5621 0.2641 0.0541 0.6067 352.0 4.23E-21 0.0004 0.0000 0.5583 0.2643 0.0501 0.5898 353.0 4.15E-21 0.0003 0.0000 0.5537 0.2646 0.0463 0.5727 354.0 4.03E-21 0.0003 0.0000 0.5485 0.2649 0.0427 0.5553 355.0 4.22E-21 0.0003 0.0000 0.5425 0.2652 0.0394 0.5377 356.0 4.43E-21 0.0002 0.0000 0.5359 0.2654 0.0363 0.5199 357.0 4.31E-21 0.0002 0.0000 0.5286 0.2655 0.0333 0.5020 358.0 4.71E-21 0.0002 0.0000 0.5208 0.2656 0.0306 0.4840 359.0 5.03E-21 0.0002 0.0000 0.5125 0.2655 0.0281 0.4660 360.0 5.46E-21 0.0002 0.0000 0.5037 0.2652 0.0257 0.4480 361.0 6.27E-21 0.0001 0.0000 0.4945 0.2647 0.0235 0.4301 362.0 7.06E-21 0.0001 0.0000 0.4849 0.2640 0.0215 0.4122 363.0 6.39E-21 0.0001 0.0000 0.4749 0.2631 0.0196 0.3945 364.0 6.80E-21 0.0001 0.0000 0.4647 0.2620 0.0179 0.3770 365.0 6.65E-21 0.0001 0.0000 0.4542 0.2606 0.0163 0.3598 366.0 7.43E-21 0.0001 0.0000 0.4435 0.2589 0.0148 0.3428 367.0 8.60E-21 0.0001 0.0000 0.4326 0.2570 0.0135 0.3262 368.0 1.01E-20 0.0001 0.0000 0.4216 0.2548 0.0122 0.3100 369.0 1.06E-20 0.0001 0.0000 0.4105 0.2524 0.0111 0.2941 370.0 1.14E-20 0.0000 0.0000 0.3994 0.2497 0.0100 0.2787 371.0 1.19E-20 0.0000 0.0000 0.3882 0.2467 0.0091 0.2637 372.0 1.14E-20 0.0000 0.0000 0.3770 0.2436 0.0082 0.2492 373.0 1.21E-20 0.0000 0.0000 0.3659 0.2401 0.0074 0.2351 374.0 1.35E-20 0.0000 0.0000 0.3549 0.2365 0.0067 0.2216 375.0 1.33E-20 0.0000 0.0000 0.3439 0.2327 0.0061 0.2086 376.0 1.38E-20 0.0000 0.0000 0.3330 0.2287 0.0055 0.1962 377.0 1.47E-20 0.0000 0.0000 0.3223 0.2246 0.0049 0.1842 378.0 1.61E-20 0.0000 0.0000 0.3117 0.2203 0.0044 0.1728 379.0 1.53E-20 0.0000 0.0000 0.3014 0.2158 0.0040 0.1619 380.0 1.93E-20 0.0000 0.0000 0.2911 0.2112 0.0036 0.1516 381.0 2.46E-20 0.0000 0.0000 0.2811 0.2066 0.0032 0.1417 382.0 2.02E-20 0.0000 0.0000 0.2713 0.2018 0.0029 0.1324 383.0 2.07E-20 0.0000 0.0000 0.2617 0.1970 0.0026 0.1235 384.0 1.94E-20 0.0000 0.0000 0.2523 0.1921 0.0023 0.1152 385.0 1.89E-20 0.0000 0.0000 0.2431 0.1872 0.0021 0.1073 386.0 1.84E-20 0.0000 0.0000 0.2342 0.1823 0.0019 0.0998 387.0 2.29E-20 0.0000 0.0000 0.2255 0.1773 0.0017 0.0928 388.0 3.00E-20 0.0000 0.0000 0.2170 0.1723 0.0015 0.0862 389.0 3.21E-20 0.0000 0.0000 0.2087 0.1674 0.0014 0.0799 390.0 3.48E-20 0.0000 0.0000 0.2006 0.1624 0.0012 0.0741 391.0 3.92E-20 0.0000 0.0000 0.1927 0.1574 0.0011 0.0686 392.0 3.80E-20 0.0000 0.0000 0.1850 0.1525 0.0010 0.0634 393.0 2.85E-20 0.0000 0.0000 0.1775 0.1475 0.0009 0.0585 394.0 3.15E-20 0.0000 0.0000 0.1702 0.1426 0.0008 0.0539 395.0 3.86E-20 0.0000 0.0000 0.1630 0.1377 0.0007 0.0496 396.0 3.68E-20 0.0000 0.0000 0.1559 0.1327 0.0006 0.0455 397.0 3.36E-20 0.0000 0.0000 0.1489 0.1277 0.0005 0.0416 398.0 4.32E-20 0.0000 0.0000 0.1420 0.1227 0.0005 0.0379 399.0 4.35E-20 0.0000 0.0000 0.1350 0.1176 0.0004 0.0344 400.0 3.87E-20 0.0000 0.0000 0.1281 0.1124 0.0004 0.0311 401.0 4.46E-20 0.0000 0.0000 0.1212 0.1071 0.0003 0.0279 402.0 5.84E-20 0.0000 0.0000 0.1141 0.1017 0.0003 0.0248 403.0 7.16E-20 0.0000 0.0000 0.1070 0.0961 0.0003 0.0219 404.0 6.24E-20 0.0000 0.0000 0.0997 0.0902 0.0002 0.0191 405.0 4.49E-20 0.0000 0.0000 0.0923 0.0842 0.0002 0.0164 406.0 4.48E-20 0.0000 0.0000 0.0848 0.0780 0.0002 0.0139 407.0 4.07E-20 0.0000 0.0000 0.0772 0.0715 0.0001 0.0115 408.0 3.44E-20 0.0000 0.0000 0.0696 0.0650 0.0001 0.0094 409.0 4.01E-20 0.0000 0.0000 0.0620 0.0583 0.0001 0.0075 410.0 5.66E-20 0.0000 0.0000 0.0545 0.0517 0.0001 0.0058 411.0 7.22E-20 0.0000 0.0000 0.0474 0.0453 0.0001 0.0044 412.0 7.41E-20 0.0000 0.0000 0.0407 0.0391 0.0001 0.0033 413.0 1.08E-19 0.0000 0.0000 0.0344 0.0333 0.0000 0.0023 414.0 1.01E-19 0.0000 0.0000 0.0288 0.0280 0.0000 0.0016 415.0 1.02E-19 0.0000 0.0000 0.0238 0.0233 0.0000 0.0011 416.0 6.07E-20 0.0000 0.0000 0.0194 0.0191 0.0000 0.0008 417.0 6.83E-20 0.0000 0.0000 0.0157 0.0155 0.0000 0.0005 418.0 7.87E-20 0.0000 0.0000 0.0126 0.0125 0.0000 0.0003 419.0 9.13E-20 0.0000 0.0000 0.0101 0.0100 0.0000 0.0002 420.0 5.60E-20 0.0000 0.0000 0.0080 0.0079 0.0000 0.0001 421.0 7.19E-20 0.0000 0.0000 0.0063 0.0062 0.0000 0.0001 422.0 6.99E-20 0.0000 0.0000 0.0049 0.0049 0.0000 0.0000 423.0 1.30E-19 0.0000 0.0000 0.0038 0.0038 0.0000 0.0000 424.0 8.24E-20 0.0000 0.0000 0.0030 0.0030 0.0000 0.0000 425.0 1.04E-19 0.0000 0.0000 0.0023 0.0023 0.0000 0.0000 426.0 1.64E-19 0.0000 0.0000 0.0018 0.0018 0.0000 0.0000 427.0 1.61E-19 0.0000 0.0000 0.0014 0.0014 0.0000 0.0000 428.0 2.14E-19 0.0000 0.0000 0.0010 0.0010 0.0000 0.0000 429.0 6.50E-20 0.0000 0.0000 0.0008 0.0008 0.0000 0.0000 430.0 7.03E-20 0.0000 0.0000 0.0006 0.0006 0.0000 0.0000 431.0 6.52E-20 0.0000 0.0000 0.0005 0.0005 0.0000 0.0000 432.0 6.08E-20 0.0000 0.0000 0.0003 0.0003 0.0000 0.0000 433.0 5.66E-20 0.0000 0.0000 0.0003 0.0003 0.0000 0.0000 434.0 6.81E-20 0.0000 0.0000 0.0002 0.0002 0.0000 0.0000 435.0 7.66E-20 0.0000 0.0000 0.0001 0.0001 0.0000 0.0000 436.0 1.32E-19 0.0000 0.0000 0.0001 0.0001 0.0000 0.0000 437.0 9.19E-20 0.0000 0.0000 0.0001 0.0001 0.0000 0.0000 438.0 1.38E-19 0.0000 0.0000 0.0001 0.0001 0.0000 0.0000 439.0 1.21E-19 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 440.0 2.59E-19 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 441.0 1.31E-19 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 442.0 9.01E-20 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 443.0 1.11E-19 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 444.0 1.35E-19 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 445.0 1.51E-19 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 446.0 7.82E-20 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 447.0 3.73E-20 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 448.0 4.14E-20 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 449.0 5.53E-20 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 450.0 8.68E-20 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 451.0 1.38E-19 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 452.0 1.59E-19 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 453.0 3.04E-19 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 454.0 2.69E-19 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 455.0 5.20E-19 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 456.0 1.57E-19 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 457.0 2.66E-20 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 458.0 2.20E-20 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 459.0 9.02E-21 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 460.0 1.20E-20 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 461.0 8.83E-21 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 462.0 5.88E-21 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 463.0 3.22E-21 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 464.0 3.39E-21 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 465.0 3.30E-21 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 466.0 4.16E-21 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 467.0 5.22E-21 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 468.0 1.49E-21 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 469.0 9.10E-22 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 470.0 7.60E-22 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 471.0 8.60E-22 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 472.0 9.20E-22 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 473.0 1.10E-21 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/GLY_2R_MCMv32 ================================================ GLY_2R_MCMv32 !Glyoxal (CHOCHO) channel quantum yields (1 bar, 298 K) !Rate sums quantum yields of phi2 and phi5 channels !CHOCHO--->2HCO !CHOCHO--->2H+2CHO !http://iupac.pole-ether.fr/htdocs/datasheets/pdf/P4_(CHO)2+hv.pdf !Dated: May 2013 ! !phi1 = H2 + 2CO !phi2 = HCO + HCO !phi3 = HCHO + CO !phi4 = HCO+CO+H !phi5 = 2H+2CO !phi6 = TOTAL ! ! !wvl XCROSS 2HCO HCO+CO+H 2H+2CO H2+2CO HCHO+CO Total Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 250.0 1.73E-20 0.0034 0.3888 0.2527 0.0000 0.3550 0.9999 251.0 1.52E-20 0.0037 0.3887 0.2505 0.0000 0.3570 0.9999 252.0 1.48E-20 0.0039 0.3887 0.2483 0.0000 0.3591 0.9999 253.0 1.55E-20 0.0042 0.3886 0.2459 0.0000 0.3613 0.9999 254.0 1.60E-20 0.0045 0.3884 0.2433 0.0000 0.3637 0.9998 255.0 1.67E-20 0.0049 0.3883 0.2405 0.0000 0.3662 0.9998 256.0 1.62E-20 0.0052 0.3882 0.2376 0.0000 0.3689 0.9998 257.0 1.81E-20 0.0056 0.3881 0.2345 0.0000 0.3717 0.9998 258.0 1.82E-20 0.0060 0.3879 0.2313 0.0000 0.3747 0.9997 259.0 1.85E-20 0.0065 0.3878 0.2278 0.0000 0.3779 0.9997 260.0 1.83E-20 0.0069 0.3876 0.2242 0.0000 0.3812 0.9997 261.0 1.96E-20 0.0074 0.3874 0.2204 0.0000 0.3847 0.9996 262.0 2.03E-20 0.0080 0.3872 0.2164 0.0000 0.3883 0.9996 263.0 2.14E-20 0.0086 0.3870 0.2122 0.0000 0.3921 0.9995 264.0 2.18E-20 0.0092 0.3868 0.2078 0.0000 0.3961 0.9995 265.0 2.26E-20 0.0099 0.3865 0.2032 0.0000 0.4002 0.9994 266.0 2.33E-20 0.0106 0.3863 0.1985 0.0000 0.4045 0.9994 267.0 2.37E-20 0.0113 0.3860 0.1936 0.0000 0.4089 0.9993 268.0 2.36E-20 0.0122 0.3857 0.1885 0.0000 0.4134 0.9992 269.0 2.48E-20 0.0130 0.3854 0.1833 0.0000 0.4180 0.9991 270.0 2.51E-20 0.0140 0.3850 0.1780 0.0000 0.4227 0.9990 271.0 2.61E-20 0.0150 0.3847 0.1725 0.0000 0.4275 0.9989 272.0 2.72E-20 0.0161 0.3843 0.1669 0.0000 0.4324 0.9988 273.0 2.81E-20 0.0172 0.3838 0.1613 0.0000 0.4373 0.9986 274.0 2.92E-20 0.0185 0.3834 0.1555 0.0000 0.4422 0.9985 275.0 3.00E-20 0.0198 0.3829 0.1497 0.0000 0.4471 0.9983 276.0 3.06E-20 0.0212 0.3823 0.1439 0.0000 0.4520 0.9981 277.0 3.09E-20 0.0227 0.3818 0.1381 0.0000 0.4568 0.9979 278.0 3.08E-20 0.0244 0.3812 0.1322 0.0000 0.4615 0.9977 279.0 3.09E-20 0.0261 0.3805 0.1264 0.0000 0.4662 0.9975 280.0 3.14E-20 0.0280 0.3798 0.1206 0.0000 0.4707 0.9972 281.0 3.22E-20 0.0300 0.3790 0.1149 0.0000 0.4751 0.9969 282.0 3.32E-20 0.0321 0.3782 0.1093 0.0000 0.4792 0.9966 283.0 3.46E-20 0.0344 0.3774 0.1038 0.0000 0.4832 0.9962 284.0 3.57E-20 0.0368 0.3764 0.0984 0.0000 0.4870 0.9958 285.0 3.67E-20 0.0394 0.3754 0.0931 0.0000 0.4905 0.9954 286.0 3.80E-20 0.0421 0.3744 0.0880 0.0000 0.4938 0.9950 287.0 3.79E-20 0.0451 0.3732 0.0830 0.0000 0.4968 0.9945 288.0 3.81E-20 0.0482 0.3720 0.0782 0.0000 0.4995 0.9939 289.0 3.80E-20 0.0515 0.3707 0.0736 0.0000 0.5019 0.9934 290.0 3.73E-20 0.0551 0.3693 0.0692 0.0000 0.5040 0.9927 291.0 3.64E-20 0.0589 0.3678 0.0649 0.0000 0.5057 0.9920 292.0 3.65E-20 0.0629 0.3663 0.0608 0.0000 0.5071 0.9913 293.0 3.68E-20 0.0672 0.3646 0.0569 0.0000 0.5081 0.9905 294.0 3.73E-20 0.0717 0.3628 0.0532 0.0000 0.5088 0.9896 295.0 3.81E-20 0.0765 0.3608 0.0497 0.0000 0.5091 0.9887 296.0 3.82E-20 0.0816 0.3588 0.0463 0.0000 0.5090 0.9876 297.0 3.92E-20 0.0870 0.3566 0.0432 0.0000 0.5086 0.9866 298.0 4.07E-20 0.0928 0.3543 0.0402 0.0000 0.5078 0.9854 299.0 4.12E-20 0.0988 0.3518 0.0374 0.0000 0.5066 0.9841 300.0 4.05E-20 0.1052 0.3492 0.0347 0.0000 0.5050 0.9827 301.0 3.91E-20 0.1120 0.3465 0.0322 0.0000 0.5030 0.9813 302.0 3.78E-20 0.1191 0.3435 0.0299 0.0000 0.5006 0.9797 303.0 3.57E-20 0.1265 0.3404 0.0277 0.0000 0.4979 0.9780 304.0 3.35E-20 0.1344 0.3372 0.0257 0.0000 0.4947 0.9762 305.0 3.24E-20 0.1427 0.3337 0.0238 0.0000 0.4912 0.9743 306.0 3.22E-20 0.1513 0.3301 0.0220 0.0000 0.4874 0.9722 307.0 3.20E-20 0.1604 0.3262 0.0203 0.0000 0.4831 0.9700 308.0 3.15E-20 0.1698 0.3222 0.0188 0.0000 0.4785 0.9677 309.0 3.12E-20 0.1797 0.3180 0.0174 0.0000 0.4736 0.9652 310.0 3.10E-20 0.1899 0.3135 0.0160 0.0000 0.4683 0.9626 311.0 3.22E-20 0.2006 0.3089 0.0148 0.0000 0.4627 0.9598 312.0 3.34E-20 0.2117 0.3040 0.0136 0.0000 0.4568 0.9568 313.0 3.39E-20 0.2231 0.2989 0.0126 0.0000 0.4505 0.9536 314.0 3.23E-20 0.2349 0.2936 0.0116 0.0000 0.4441 0.9502 315.0 2.81E-20 0.2471 0.2881 0.0106 0.0000 0.4373 0.9467 316.0 2.65E-20 0.2595 0.2824 0.0098 0.0000 0.4303 0.9429 317.0 2.46E-20 0.2723 0.2765 0.0090 0.0000 0.4232 0.9389 318.0 2.21E-20 0.2854 0.2704 0.0083 0.0000 0.4158 0.9347 319.0 1.93E-20 0.2987 0.2641 0.0076 0.0000 0.4083 0.9303 320.0 1.85E-20 0.3123 0.2576 0.0070 0.0000 0.4007 0.9257 321.0 1.89E-20 0.3260 0.2509 0.0064 0.0000 0.3930 0.9207 322.0 1.77E-20 0.3398 0.2441 0.0059 0.0000 0.3852 0.9156 323.0 1.72E-20 0.3537 0.2372 0.0054 0.0000 0.3774 0.9101 324.0 1.68E-20 0.3676 0.2300 0.0050 0.0000 0.3696 0.9044 325.0 1.60E-20 0.3815 0.2228 0.0045 0.0000 0.3619 0.8984 326.0 1.61E-20 0.3953 0.2155 0.0042 0.0000 0.3543 0.8921 327.0 1.70E-20 0.4090 0.2081 0.0038 0.0000 0.3469 0.8854 328.0 1.94E-20 0.4225 0.2006 0.0035 0.0000 0.3396 0.8785 329.0 1.86E-20 0.4357 0.1931 0.0032 0.0000 0.3325 0.8712 330.0 1.69E-20 0.4486 0.1855 0.0029 0.0000 0.3256 0.8636 331.0 1.13E-20 0.4611 0.1780 0.0027 0.0000 0.3191 0.8556 332.0 1.05E-20 0.4731 0.1705 0.0024 0.0000 0.3128 0.8473 333.0 9.66E-21 0.4847 0.1630 0.0022 0.0000 0.3069 0.8385 334.0 9.19E-21 0.4957 0.1555 0.0020 0.0000 0.3013 0.8294 335.0 7.37E-21 0.5060 0.1482 0.0019 0.0000 0.2961 0.8198 336.0 6.30E-21 0.5157 0.1409 0.0017 0.0000 0.2913 0.8099 337.0 5.89E-21 0.5248 0.1338 0.0015 0.0000 0.2869 0.7995 338.0 6.47E-21 0.5330 0.1268 0.0014 0.0000 0.2829 0.7886 339.0 5.85E-21 0.5405 0.1200 0.0013 0.0000 0.2794 0.7773 340.0 5.53E-21 0.5471 0.1133 0.0012 0.0000 0.2762 0.7656 341.0 5.63E-21 0.5529 0.1069 0.0011 0.0000 0.2735 0.7534 342.0 5.10E-21 0.5578 0.1006 0.0010 0.0000 0.2711 0.7407 343.0 4.99E-21 0.5619 0.0945 0.0009 0.0000 0.2692 0.7276 344.0 6.49E-21 0.5650 0.0886 0.0008 0.0000 0.2676 0.7140 345.0 6.24E-21 0.5672 0.0830 0.0007 0.0000 0.2663 0.6999 346.0 7.33E-21 0.5686 0.0776 0.0007 0.0000 0.2654 0.6854 347.0 6.31E-21 0.5690 0.0724 0.0006 0.0000 0.2647 0.6705 348.0 6.04E-21 0.5686 0.0675 0.0005 0.0000 0.2643 0.6551 349.0 4.15E-21 0.5672 0.0628 0.0005 0.0000 0.2641 0.6393 350.0 3.91E-21 0.5651 0.0583 0.0004 0.0000 0.2640 0.6232 351.0 3.95E-21 0.5621 0.0541 0.0004 0.0000 0.2641 0.6067 352.0 4.23E-21 0.5583 0.0501 0.0004 0.0000 0.2643 0.5898 353.0 4.15E-21 0.5537 0.0463 0.0003 0.0000 0.2646 0.5727 354.0 4.03E-21 0.5485 0.0427 0.0003 0.0000 0.2649 0.5553 355.0 4.22E-21 0.5425 0.0394 0.0003 0.0000 0.2652 0.5377 356.0 4.43E-21 0.5359 0.0363 0.0002 0.0000 0.2654 0.5199 357.0 4.31E-21 0.5286 0.0333 0.0002 0.0000 0.2655 0.5020 358.0 4.71E-21 0.5208 0.0306 0.0002 0.0000 0.2656 0.4840 359.0 5.03E-21 0.5125 0.0281 0.0002 0.0000 0.2655 0.4660 360.0 5.46E-21 0.5037 0.0257 0.0002 0.0000 0.2652 0.4480 361.0 6.27E-21 0.4945 0.0235 0.0001 0.0000 0.2647 0.4301 362.0 7.06E-21 0.4849 0.0215 0.0001 0.0000 0.2640 0.4122 363.0 6.39E-21 0.4749 0.0196 0.0001 0.0000 0.2631 0.3945 364.0 6.80E-21 0.4647 0.0179 0.0001 0.0000 0.2620 0.3770 365.0 6.65E-21 0.4542 0.0163 0.0001 0.0000 0.2606 0.3598 366.0 7.43E-21 0.4435 0.0148 0.0001 0.0000 0.2589 0.3428 367.0 8.60E-21 0.4326 0.0135 0.0001 0.0000 0.2570 0.3262 368.0 1.01E-20 0.4216 0.0122 0.0001 0.0000 0.2548 0.3100 369.0 1.06E-20 0.4105 0.0111 0.0001 0.0000 0.2524 0.2941 370.0 1.14E-20 0.3994 0.0100 0.0000 0.0000 0.2497 0.2787 371.0 1.19E-20 0.3882 0.0091 0.0000 0.0000 0.2467 0.2637 372.0 1.14E-20 0.3770 0.0082 0.0000 0.0000 0.2436 0.2492 373.0 1.21E-20 0.3659 0.0074 0.0000 0.0000 0.2401 0.2351 374.0 1.35E-20 0.3549 0.0067 0.0000 0.0000 0.2365 0.2216 375.0 1.33E-20 0.3439 0.0061 0.0000 0.0000 0.2327 0.2086 376.0 1.38E-20 0.3330 0.0055 0.0000 0.0000 0.2287 0.1962 377.0 1.47E-20 0.3223 0.0049 0.0000 0.0000 0.2246 0.1842 378.0 1.61E-20 0.3117 0.0044 0.0000 0.0000 0.2203 0.1728 379.0 1.53E-20 0.3014 0.0040 0.0000 0.0000 0.2158 0.1619 380.0 1.93E-20 0.2911 0.0036 0.0000 0.0000 0.2112 0.1516 381.0 2.46E-20 0.2811 0.0032 0.0000 0.0000 0.2066 0.1417 382.0 2.02E-20 0.2713 0.0029 0.0000 0.0000 0.2018 0.1324 383.0 2.07E-20 0.2617 0.0026 0.0000 0.0000 0.1970 0.1235 384.0 1.94E-20 0.2523 0.0023 0.0000 0.0000 0.1921 0.1152 385.0 1.89E-20 0.2431 0.0021 0.0000 0.0000 0.1872 0.1073 386.0 1.84E-20 0.2342 0.0019 0.0000 0.0000 0.1823 0.0998 387.0 2.29E-20 0.2255 0.0017 0.0000 0.0000 0.1773 0.0928 388.0 3.00E-20 0.2170 0.0015 0.0000 0.0000 0.1723 0.0862 389.0 3.21E-20 0.2087 0.0014 0.0000 0.0000 0.1674 0.0799 390.0 3.48E-20 0.2006 0.0012 0.0000 0.0000 0.1624 0.0741 391.0 3.92E-20 0.1927 0.0011 0.0000 0.0000 0.1574 0.0686 392.0 3.80E-20 0.1850 0.0010 0.0000 0.0000 0.1525 0.0634 393.0 2.85E-20 0.1775 0.0009 0.0000 0.0000 0.1475 0.0585 394.0 3.15E-20 0.1702 0.0008 0.0000 0.0000 0.1426 0.0539 395.0 3.86E-20 0.1630 0.0007 0.0000 0.0000 0.1377 0.0496 396.0 3.68E-20 0.1559 0.0006 0.0000 0.0000 0.1327 0.0455 397.0 3.36E-20 0.1489 0.0005 0.0000 0.0000 0.1277 0.0416 398.0 4.32E-20 0.1420 0.0005 0.0000 0.0000 0.1227 0.0379 399.0 4.35E-20 0.1350 0.0004 0.0000 0.0000 0.1176 0.0344 400.0 3.87E-20 0.1281 0.0004 0.0000 0.0000 0.1124 0.0311 401.0 4.46E-20 0.1212 0.0003 0.0000 0.0000 0.1071 0.0279 402.0 5.84E-20 0.1141 0.0003 0.0000 0.0000 0.1017 0.0248 403.0 7.16E-20 0.1070 0.0003 0.0000 0.0000 0.0961 0.0219 404.0 6.24E-20 0.0997 0.0002 0.0000 0.0000 0.0902 0.0191 405.0 4.49E-20 0.0923 0.0002 0.0000 0.0000 0.0842 0.0164 406.0 4.48E-20 0.0848 0.0002 0.0000 0.0000 0.0780 0.0139 407.0 4.07E-20 0.0772 0.0001 0.0000 0.0000 0.0715 0.0115 408.0 3.44E-20 0.0696 0.0001 0.0000 0.0000 0.0650 0.0094 409.0 4.01E-20 0.0620 0.0001 0.0000 0.0000 0.0583 0.0075 410.0 5.66E-20 0.0545 0.0001 0.0000 0.0000 0.0517 0.0058 411.0 7.22E-20 0.0474 0.0001 0.0000 0.0000 0.0453 0.0044 412.0 7.41E-20 0.0407 0.0001 0.0000 0.0000 0.0391 0.0033 413.0 1.08E-19 0.0344 0.0000 0.0000 0.0000 0.0333 0.0023 414.0 1.01E-19 0.0288 0.0000 0.0000 0.0000 0.0280 0.0016 415.0 1.02E-19 0.0238 0.0000 0.0000 0.0000 0.0233 0.0011 416.0 6.07E-20 0.0194 0.0000 0.0000 0.0000 0.0191 0.0008 417.0 6.83E-20 0.0157 0.0000 0.0000 0.0000 0.0155 0.0005 418.0 7.87E-20 0.0126 0.0000 0.0000 0.0000 0.0125 0.0003 419.0 9.13E-20 0.0101 0.0000 0.0000 0.0000 0.0100 0.0002 420.0 5.60E-20 0.0080 0.0000 0.0000 0.0000 0.0079 0.0001 421.0 7.19E-20 0.0063 0.0000 0.0000 0.0000 0.0062 0.0001 422.0 6.99E-20 0.0049 0.0000 0.0000 0.0000 0.0049 0.0000 423.0 1.30E-19 0.0038 0.0000 0.0000 0.0000 0.0038 0.0000 424.0 8.24E-20 0.0030 0.0000 0.0000 0.0000 0.0030 0.0000 425.0 1.04E-19 0.0023 0.0000 0.0000 0.0000 0.0023 0.0000 426.0 1.64E-19 0.0018 0.0000 0.0000 0.0000 0.0018 0.0000 427.0 1.61E-19 0.0014 0.0000 0.0000 0.0000 0.0014 0.0000 428.0 2.14E-19 0.0010 0.0000 0.0000 0.0000 0.0010 0.0000 429.0 6.50E-20 0.0008 0.0000 0.0000 0.0000 0.0008 0.0000 430.0 7.03E-20 0.0006 0.0000 0.0000 0.0000 0.0006 0.0000 431.0 6.52E-20 0.0005 0.0000 0.0000 0.0000 0.0005 0.0000 432.0 6.08E-20 0.0003 0.0000 0.0000 0.0000 0.0003 0.0000 433.0 5.66E-20 0.0003 0.0000 0.0000 0.0000 0.0003 0.0000 434.0 6.81E-20 0.0002 0.0000 0.0000 0.0000 0.0002 0.0000 435.0 7.66E-20 0.0001 0.0000 0.0000 0.0000 0.0001 0.0000 436.0 1.32E-19 0.0001 0.0000 0.0000 0.0000 0.0001 0.0000 437.0 9.19E-20 0.0001 0.0000 0.0000 0.0000 0.0001 0.0000 438.0 1.38E-19 0.0001 0.0000 0.0000 0.0000 0.0001 0.0000 439.0 1.21E-19 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 440.0 2.59E-19 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 441.0 1.31E-19 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 442.0 9.01E-20 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 443.0 1.11E-19 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 444.0 1.35E-19 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 445.0 1.51E-19 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 446.0 7.82E-20 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 447.0 3.73E-20 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 448.0 4.14E-20 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 449.0 5.53E-20 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 450.0 8.68E-20 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 451.0 1.38E-19 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 452.0 1.59E-19 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 453.0 3.04E-19 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 454.0 2.69E-19 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 455.0 5.20E-19 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 456.0 1.57E-19 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 457.0 2.66E-20 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 458.0 2.20E-20 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 459.0 9.02E-21 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 460.0 1.20E-20 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 461.0 8.83E-21 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 462.0 5.88E-21 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 463.0 3.22E-21 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 464.0 3.39E-21 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 465.0 3.30E-21 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 466.0 4.16E-21 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 467.0 5.22E-21 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 468.0 1.49E-21 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 469.0 9.10E-22 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 470.0 7.60E-22 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 471.0 8.60E-22 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 472.0 9.20E-22 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 473.0 1.10E-21 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/GLY_ABS_SAPRC99 ================================================ GLY_ABS ! Glyoxal Absorption Cross Sections ! SAPRC-99 Photolysis data. Supplied by William P. L. Carter. ! Created from PhotDat.xls on 29-Jan-2000 10:07 Points (the mechanism was evaluated assuming this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 230.0 2.870E-21 1.000 235.0 2.870E-21 1.000 240.0 4.300E-21 1.000 245.0 5.730E-21 1.000 250.0 8.600E-21 1.000 255.0 1.150E-20 1.000 260.0 1.430E-20 1.000 265.0 1.860E-20 1.000 270.0 2.290E-20 1.000 275.0 2.580E-20 1.000 280.0 2.870E-20 1.000 285.0 3.300E-20 1.000 290.0 3.150E-20 1.000 295.0 3.300E-20 1.000 300.0 3.580E-20 1.000 305.0 2.720E-20 1.000 310.0 2.720E-20 1.000 312.5 2.870E-20 1.000 315.0 2.290E-20 1.000 320.0 1.430E-20 1.000 325.0 1.150E-20 1.000 327.5 1.430E-20 1.000 330.0 1.150E-20 1.000 335.0 2.870E-21 1.000 340.0 0.000E+00 1.000 355.0 0.000E+00 1.000 360.0 2.290E-21 1.000 365.0 2.870E-21 1.000 370.0 8.030E-21 1.000 375.0 1.000E-20 1.000 380.0 1.720E-20 1.000 382.0 1.580E-20 1.000 384.0 1.490E-20 1.000 386.0 1.490E-20 1.000 388.0 2.870E-20 1.000 390.0 3.150E-20 1.000 391.0 3.240E-20 1.000 392.0 3.040E-20 1.000 393.0 2.230E-20 1.000 394.0 2.630E-20 1.000 395.0 3.040E-20 1.000 396.0 2.630E-20 1.000 397.0 2.430E-20 1.000 398.0 3.240E-20 1.000 399.0 3.040E-20 1.000 400.0 2.840E-20 1.000 401.0 3.240E-20 1.000 402.0 4.460E-20 1.000 403.0 5.270E-20 1.000 404.0 4.260E-20 1.000 405.0 3.040E-20 1.000 406.0 3.040E-20 1.000 407.0 2.840E-20 1.000 408.0 2.430E-20 1.000 409.0 2.840E-20 1.000 410.0 6.080E-20 1.000 411.0 5.070E-20 1.000 411.5 6.080E-20 1.000 412.0 4.860E-20 1.000 413.0 8.310E-20 1.000 413.5 6.480E-20 1.000 414.0 7.500E-20 1.000 414.5 8.110E-20 1.000 415.0 8.110E-20 1.000 415.5 6.890E-20 1.000 416.0 4.260E-20 1.000 417.0 4.860E-20 1.000 418.0 5.880E-20 1.000 419.0 6.690E-20 1.000 420.0 3.850E-20 1.000 421.0 5.670E-20 1.000 421.5 4.460E-20 1.000 422.0 5.270E-20 1.000 422.5 1.050E-19 1.000 423.0 8.510E-20 1.000 424.0 6.080E-20 1.000 425.0 7.290E-20 1.000 426.0 1.180E-19 1.000 426.5 1.300E-19 1.000 427.0 1.070E-19 1.000 428.0 1.660E-19 1.000 429.0 4.050E-20 1.000 430.0 5.070E-20 1.000 431.0 4.860E-20 1.000 432.0 4.050E-20 1.000 433.0 3.650E-20 1.000 434.0 4.050E-20 1.000 434.5 6.080E-20 1.000 435.0 5.070E-20 1.000 436.0 8.110E-20 1.000 436.5 1.130E-19 1.000 437.0 5.270E-20 1.000 438.0 1.010E-19 1.000 438.5 1.380E-19 1.000 439.0 7.700E-20 1.000 440.0 2.470E-19 1.000 441.0 8.110E-20 1.000 442.0 6.080E-20 1.000 443.0 7.500E-20 1.000 444.0 9.320E-20 1.000 445.0 1.130E-19 1.000 446.0 5.270E-20 1.000 447.0 2.430E-20 1.000 448.0 2.840E-20 1.000 449.0 3.850E-20 1.000 450.0 6.080E-20 1.000 451.0 1.090E-19 1.000 451.5 9.320E-20 1.000 452.0 1.220E-19 1.000 453.0 2.390E-19 1.000 454.0 1.700E-19 1.000 455.0 3.400E-19 1.000 455.5 4.050E-19 1.000 456.0 1.010E-19 1.000 457.0 1.620E-20 1.000 458.0 1.220E-20 1.000 458.5 1.420E-20 1.000 459.0 4.050E-21 1.000 460.0 4.050E-21 1.000 460.5 6.080E-21 1.000 461.0 2.030E-21 1.000 462.0 0.000E+00 1.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/GLY_FO_MCMv32 ================================================ GLY_FO_MCMv32 !Glyoxal (CHOCHO) channel quantum yields (1 bar, 298 K) !CHOCHO--->HCHO+CO !http://iupac.pole-ether.fr/htdocs/datasheets/pdf/P4_(CHO)2+hv.pdf ! !Photolysis of glyoxal in air !Jovan Tadic, Geert K. Moortgat and Klaus Wirtz !Journal of Photochemistry and Photobiology A: Chemistry, 177 (2006) 116-124 ! !phi1 = H2 + 2CO !phi2 = HCO + HCO !phi3 = HCHO + CO !phi4 = HCO+CO+H !phi5 = 2H+2CO !phi6 = TOTAL ! !wvl XCROSS HCHO+CO h2+2CO 2HCO HCO+CO+H 2H+2CO Total 2CO + 2HO2 Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 250.0 1.73E-20 0.3550 0.0000 0.0034 0.3888 0.2527 0.9999 0.6111 251.0 1.52E-20 0.3570 0.0000 0.0037 0.3887 0.2505 0.9999 0.6112 252.0 1.48E-20 0.3591 0.0000 0.0039 0.3887 0.2483 0.9999 0.6113 253.0 1.55E-20 0.3613 0.0000 0.0042 0.3886 0.2459 0.9999 0.6114 254.0 1.60E-20 0.3637 0.0000 0.0045 0.3884 0.2433 0.9998 0.6115 255.0 1.67E-20 0.3662 0.0000 0.0049 0.3883 0.2405 0.9998 0.6116 256.0 1.62E-20 0.3689 0.0000 0.0052 0.3882 0.2376 0.9998 0.6117 257.0 1.81E-20 0.3717 0.0000 0.0056 0.3881 0.2345 0.9998 0.6119 258.0 1.82E-20 0.3747 0.0000 0.0060 0.3879 0.2313 0.9997 0.6120 259.0 1.85E-20 0.3779 0.0000 0.0065 0.3878 0.2278 0.9997 0.6122 260.0 1.83E-20 0.3812 0.0000 0.0069 0.3876 0.2242 0.9997 0.6123 261.0 1.96E-20 0.3847 0.0000 0.0074 0.3874 0.2204 0.9996 0.6125 262.0 2.03E-20 0.3883 0.0000 0.0080 0.3872 0.2164 0.9996 0.6127 263.0 2.14E-20 0.3921 0.0000 0.0086 0.3870 0.2122 0.9995 0.6129 264.0 2.18E-20 0.3961 0.0000 0.0092 0.3868 0.2078 0.9995 0.6131 265.0 2.26E-20 0.4002 0.0000 0.0099 0.3865 0.2032 0.9994 0.6133 266.0 2.33E-20 0.4045 0.0000 0.0106 0.3863 0.1985 0.9994 0.6135 267.0 2.37E-20 0.4089 0.0000 0.0113 0.3860 0.1936 0.9993 0.6138 268.0 2.36E-20 0.4134 0.0000 0.0122 0.3857 0.1885 0.9992 0.6141 269.0 2.48E-20 0.4180 0.0000 0.0130 0.3854 0.1833 0.9991 0.6144 270.0 2.51E-20 0.4227 0.0000 0.0140 0.3850 0.1780 0.9990 0.6147 271.0 2.61E-20 0.4275 0.0000 0.0150 0.3847 0.1725 0.9989 0.6150 272.0 2.72E-20 0.4324 0.0000 0.0161 0.3843 0.1669 0.9988 0.6154 273.0 2.81E-20 0.4373 0.0000 0.0172 0.3838 0.1613 0.9986 0.6158 274.0 2.92E-20 0.4422 0.0000 0.0185 0.3834 0.1555 0.9985 0.6162 275.0 3.00E-20 0.4471 0.0000 0.0198 0.3829 0.1497 0.9983 0.6166 276.0 3.06E-20 0.4520 0.0000 0.0212 0.3823 0.1439 0.9981 0.6171 277.0 3.09E-20 0.4568 0.0000 0.0227 0.3818 0.1381 0.9979 0.6176 278.0 3.08E-20 0.4615 0.0000 0.0244 0.3812 0.1322 0.9977 0.6181 279.0 3.09E-20 0.4662 0.0000 0.0261 0.3805 0.1264 0.9975 0.6187 280.0 3.14E-20 0.4707 0.0000 0.0280 0.3798 0.1206 0.9972 0.6193 281.0 3.22E-20 0.4751 0.0000 0.0300 0.3790 0.1149 0.9969 0.6200 282.0 3.32E-20 0.4792 0.0000 0.0321 0.3782 0.1093 0.9966 0.6207 283.0 3.46E-20 0.4832 0.0000 0.0344 0.3774 0.1038 0.9962 0.6214 284.0 3.57E-20 0.4870 0.0000 0.0368 0.3764 0.0984 0.9958 0.6222 285.0 3.67E-20 0.4905 0.0000 0.0394 0.3754 0.0931 0.9954 0.6230 286.0 3.80E-20 0.4938 0.0000 0.0421 0.3744 0.0880 0.9950 0.6240 287.0 3.79E-20 0.4968 0.0000 0.0451 0.3732 0.0830 0.9945 0.6249 288.0 3.81E-20 0.4995 0.0000 0.0482 0.3720 0.0782 0.9939 0.6260 289.0 3.80E-20 0.5019 0.0000 0.0515 0.3707 0.0736 0.9934 0.6271 290.0 3.73E-20 0.5040 0.0000 0.0551 0.3693 0.0692 0.9927 0.6282 291.0 3.64E-20 0.5057 0.0000 0.0589 0.3678 0.0649 0.9920 0.6295 292.0 3.65E-20 0.5071 0.0000 0.0629 0.3663 0.0608 0.9913 0.6308 293.0 3.68E-20 0.5081 0.0000 0.0672 0.3646 0.0569 0.9905 0.6322 294.0 3.73E-20 0.5088 0.0000 0.0717 0.3628 0.0532 0.9896 0.6337 295.0 3.81E-20 0.5091 0.0000 0.0765 0.3608 0.0497 0.9887 0.6353 296.0 3.82E-20 0.5090 0.0000 0.0816 0.3588 0.0463 0.9876 0.6370 297.0 3.92E-20 0.5086 0.0000 0.0870 0.3566 0.0432 0.9866 0.6388 298.0 4.07E-20 0.5078 0.0000 0.0928 0.3543 0.0402 0.9854 0.6407 299.0 4.12E-20 0.5066 0.0000 0.0988 0.3518 0.0374 0.9841 0.6428 300.0 4.05E-20 0.5050 0.0000 0.1052 0.3492 0.0347 0.9827 0.6449 301.0 3.91E-20 0.5030 0.0000 0.1120 0.3465 0.0322 0.9813 0.6472 302.0 3.78E-20 0.5006 0.0000 0.1191 0.3435 0.0299 0.9797 0.6496 303.0 3.57E-20 0.4979 0.0000 0.1265 0.3404 0.0277 0.9780 0.6521 304.0 3.35E-20 0.4947 0.0000 0.1344 0.3372 0.0257 0.9762 0.6548 305.0 3.24E-20 0.4912 0.0000 0.1427 0.3337 0.0238 0.9743 0.6577 306.0 3.22E-20 0.4874 0.0000 0.1513 0.3301 0.0220 0.9722 0.6607 307.0 3.20E-20 0.4831 0.0000 0.1604 0.3262 0.0203 0.9700 0.6638 308.0 3.15E-20 0.4785 0.0000 0.1698 0.3222 0.0188 0.9677 0.6671 309.0 3.12E-20 0.4736 0.0000 0.1797 0.3180 0.0174 0.9652 0.6706 310.0 3.10E-20 0.4683 0.0000 0.1899 0.3135 0.0160 0.9626 0.6742 311.0 3.22E-20 0.4627 0.0000 0.2006 0.3089 0.0148 0.9598 0.6780 312.0 3.34E-20 0.4568 0.0000 0.2117 0.3040 0.0136 0.9568 0.6820 313.0 3.39E-20 0.4505 0.0000 0.2231 0.2989 0.0126 0.9536 0.6862 314.0 3.23E-20 0.4441 0.0000 0.2349 0.2936 0.0116 0.9502 0.6905 315.0 2.81E-20 0.4373 0.0000 0.2471 0.2881 0.0106 0.9467 0.6950 316.0 2.65E-20 0.4303 0.0000 0.2595 0.2824 0.0098 0.9429 0.6997 317.0 2.46E-20 0.4232 0.0000 0.2723 0.2765 0.0090 0.9389 0.7045 318.0 2.21E-20 0.4158 0.0000 0.2854 0.2704 0.0083 0.9347 0.7095 319.0 1.93E-20 0.4083 0.0000 0.2987 0.2641 0.0076 0.9303 0.7147 320.0 1.85E-20 0.4007 0.0000 0.3123 0.2576 0.0070 0.9257 0.7199 321.0 1.89E-20 0.3930 0.0000 0.3260 0.2509 0.0064 0.9207 0.7253 322.0 1.77E-20 0.3852 0.0000 0.3398 0.2441 0.0059 0.9156 0.7309 323.0 1.72E-20 0.3774 0.0000 0.3537 0.2372 0.0054 0.9101 0.7365 324.0 1.68E-20 0.3696 0.0000 0.3676 0.2300 0.0050 0.9044 0.7422 325.0 1.60E-20 0.3619 0.0000 0.3815 0.2228 0.0045 0.8984 0.7480 326.0 1.61E-20 0.3543 0.0000 0.3953 0.2155 0.0042 0.8921 0.7538 327.0 1.70E-20 0.3469 0.0000 0.4090 0.2081 0.0038 0.8854 0.7597 328.0 1.94E-20 0.3396 0.0000 0.4225 0.2006 0.0035 0.8785 0.7655 329.0 1.86E-20 0.3325 0.0000 0.4357 0.1931 0.0032 0.8712 0.7713 330.0 1.69E-20 0.3256 0.0000 0.4486 0.1855 0.0029 0.8636 0.7771 331.0 1.13E-20 0.3191 0.0000 0.4611 0.1780 0.0027 0.8556 0.7828 332.0 1.05E-20 0.3128 0.0000 0.4731 0.1705 0.0024 0.8473 0.7883 333.0 9.66E-21 0.3069 0.0000 0.4847 0.1630 0.0022 0.8385 0.7938 334.0 9.19E-21 0.3013 0.0000 0.4957 0.1555 0.0020 0.8294 0.7990 335.0 7.37E-21 0.2961 0.0000 0.5060 0.1482 0.0019 0.8198 0.8040 336.0 6.30E-21 0.2913 0.0000 0.5157 0.1409 0.0017 0.8099 0.8087 337.0 5.89E-21 0.2869 0.0000 0.5248 0.1338 0.0015 0.7995 0.8132 338.0 6.47E-21 0.2829 0.0000 0.5330 0.1268 0.0014 0.7886 0.8174 339.0 5.85E-21 0.2794 0.0000 0.5405 0.1200 0.0013 0.7773 0.8211 340.0 5.53E-21 0.2762 0.0000 0.5471 0.1133 0.0012 0.7656 0.8245 341.0 5.63E-21 0.2735 0.0000 0.5529 0.1069 0.0011 0.7534 0.8275 342.0 5.10E-21 0.2711 0.0000 0.5578 0.1006 0.0010 0.7407 0.8299 343.0 4.99E-21 0.2692 0.0000 0.5619 0.0945 0.0009 0.7276 0.8319 344.0 6.49E-21 0.2676 0.0000 0.5650 0.0886 0.0008 0.7140 0.8334 345.0 6.24E-21 0.2663 0.0000 0.5672 0.0830 0.0007 0.6999 0.8343 346.0 7.33E-21 0.2654 0.0000 0.5686 0.0776 0.0007 0.6854 0.8346 347.0 6.31E-21 0.2647 0.0000 0.5690 0.0724 0.0006 0.6705 0.8343 348.0 6.04E-21 0.2643 0.0000 0.5686 0.0675 0.0005 0.6551 0.8334 349.0 4.15E-21 0.2641 0.0000 0.5672 0.0628 0.0005 0.6393 0.8318 350.0 3.91E-21 0.2640 0.0000 0.5651 0.0583 0.0004 0.6232 0.8296 351.0 3.95E-21 0.2641 0.0000 0.5621 0.0541 0.0004 0.6067 0.8266 352.0 4.23E-21 0.2643 0.0000 0.5583 0.0501 0.0004 0.5898 0.8230 353.0 4.15E-21 0.2646 0.0000 0.5537 0.0463 0.0003 0.5727 0.8187 354.0 4.03E-21 0.2649 0.0000 0.5485 0.0427 0.0003 0.5553 0.8136 355.0 4.22E-21 0.2652 0.0000 0.5425 0.0394 0.0003 0.5377 0.8079 356.0 4.43E-21 0.2654 0.0000 0.5359 0.0363 0.0002 0.5199 0.8015 357.0 4.31E-21 0.2655 0.0000 0.5286 0.0333 0.0002 0.5020 0.7944 358.0 4.71E-21 0.2656 0.0000 0.5208 0.0306 0.0002 0.4840 0.7866 359.0 5.03E-21 0.2655 0.0000 0.5125 0.0281 0.0002 0.4660 0.7781 360.0 5.46E-21 0.2652 0.0000 0.5037 0.0257 0.0002 0.4480 0.7690 361.0 6.27E-21 0.2647 0.0000 0.4945 0.0235 0.0001 0.4301 0.7593 362.0 7.06E-21 0.2640 0.0000 0.4849 0.0215 0.0001 0.4122 0.7490 363.0 6.39E-21 0.2631 0.0000 0.4749 0.0196 0.0001 0.3945 0.7381 364.0 6.80E-21 0.2620 0.0000 0.4647 0.0179 0.0001 0.3770 0.7267 365.0 6.65E-21 0.2606 0.0000 0.4542 0.0163 0.0001 0.3598 0.7148 366.0 7.43E-21 0.2589 0.0000 0.4435 0.0148 0.0001 0.3428 0.7025 367.0 8.60E-21 0.2570 0.0000 0.4326 0.0135 0.0001 0.3262 0.6897 368.0 1.01E-20 0.2548 0.0000 0.4216 0.0122 0.0001 0.3100 0.6765 369.0 1.06E-20 0.2524 0.0000 0.4105 0.0111 0.0001 0.2941 0.6629 370.0 1.14E-20 0.2497 0.0000 0.3994 0.0100 0.0000 0.2787 0.6491 371.0 1.19E-20 0.2467 0.0000 0.3882 0.0091 0.0000 0.2637 0.6350 372.0 1.14E-20 0.2436 0.0000 0.3770 0.0082 0.0000 0.2492 0.6206 373.0 1.21E-20 0.2401 0.0000 0.3659 0.0074 0.0000 0.2351 0.6061 374.0 1.35E-20 0.2365 0.0000 0.3549 0.0067 0.0000 0.2216 0.5914 375.0 1.33E-20 0.2327 0.0000 0.3439 0.0061 0.0000 0.2086 0.5766 376.0 1.38E-20 0.2287 0.0000 0.3330 0.0055 0.0000 0.1962 0.5618 377.0 1.47E-20 0.2246 0.0000 0.3223 0.0049 0.0000 0.1842 0.5469 378.0 1.61E-20 0.2203 0.0000 0.3117 0.0044 0.0000 0.1728 0.5320 379.0 1.53E-20 0.2158 0.0000 0.3014 0.0040 0.0000 0.1619 0.5172 380.0 1.93E-20 0.2112 0.0000 0.2911 0.0036 0.0000 0.1516 0.5024 381.0 2.46E-20 0.2066 0.0000 0.2811 0.0032 0.0000 0.1417 0.4877 382.0 2.02E-20 0.2018 0.0000 0.2713 0.0029 0.0000 0.1324 0.4731 383.0 2.07E-20 0.1970 0.0000 0.2617 0.0026 0.0000 0.1235 0.4587 384.0 1.94E-20 0.1921 0.0000 0.2523 0.0023 0.0000 0.1152 0.4444 385.0 1.89E-20 0.1872 0.0000 0.2431 0.0021 0.0000 0.1073 0.4304 386.0 1.84E-20 0.1823 0.0000 0.2342 0.0019 0.0000 0.0998 0.4165 387.0 2.29E-20 0.1773 0.0000 0.2255 0.0017 0.0000 0.0928 0.4028 388.0 3.00E-20 0.1723 0.0000 0.2170 0.0015 0.0000 0.0862 0.3893 389.0 3.21E-20 0.1674 0.0000 0.2087 0.0014 0.0000 0.0799 0.3760 390.0 3.48E-20 0.1624 0.0000 0.2006 0.0012 0.0000 0.0741 0.3630 391.0 3.92E-20 0.1574 0.0000 0.1927 0.0011 0.0000 0.0686 0.3502 392.0 3.80E-20 0.1525 0.0000 0.1850 0.0010 0.0000 0.0634 0.3375 393.0 2.85E-20 0.1475 0.0000 0.1775 0.0009 0.0000 0.0585 0.3251 394.0 3.15E-20 0.1426 0.0000 0.1702 0.0008 0.0000 0.0539 0.3128 395.0 3.86E-20 0.1377 0.0000 0.1630 0.0007 0.0000 0.0496 0.3006 396.0 3.68E-20 0.1327 0.0000 0.1559 0.0006 0.0000 0.0455 0.2886 397.0 3.36E-20 0.1277 0.0000 0.1489 0.0005 0.0000 0.0416 0.2766 398.0 4.32E-20 0.1227 0.0000 0.1420 0.0005 0.0000 0.0379 0.2647 399.0 4.35E-20 0.1176 0.0000 0.1350 0.0004 0.0000 0.0344 0.2527 400.0 3.87E-20 0.1124 0.0000 0.1281 0.0004 0.0000 0.0311 0.2406 401.0 4.46E-20 0.1071 0.0000 0.1212 0.0003 0.0000 0.0279 0.2283 402.0 5.84E-20 0.1017 0.0000 0.1141 0.0003 0.0000 0.0248 0.2158 403.0 7.16E-20 0.0961 0.0000 0.1070 0.0003 0.0000 0.0219 0.2031 404.0 6.24E-20 0.0902 0.0000 0.0997 0.0002 0.0000 0.0191 0.1900 405.0 4.49E-20 0.0842 0.0000 0.0923 0.0002 0.0000 0.0164 0.1766 406.0 4.48E-20 0.0780 0.0000 0.0848 0.0002 0.0000 0.0139 0.1628 407.0 4.07E-20 0.0715 0.0000 0.0772 0.0001 0.0000 0.0115 0.1488 408.0 3.44E-20 0.0650 0.0000 0.0696 0.0001 0.0000 0.0094 0.1345 409.0 4.01E-20 0.0583 0.0000 0.0620 0.0001 0.0000 0.0075 0.1203 410.0 5.66E-20 0.0517 0.0000 0.0545 0.0001 0.0000 0.0058 0.1063 411.0 7.22E-20 0.0453 0.0000 0.0474 0.0001 0.0000 0.0044 0.0927 412.0 7.41E-20 0.0391 0.0000 0.0407 0.0001 0.0000 0.0033 0.0798 413.0 1.08E-19 0.0333 0.0000 0.0344 0.0000 0.0000 0.0023 0.0678 414.0 1.01E-19 0.0280 0.0000 0.0288 0.0000 0.0000 0.0016 0.0568 415.0 1.02E-19 0.0233 0.0000 0.0238 0.0000 0.0000 0.0011 0.0471 416.0 6.07E-20 0.0191 0.0000 0.0194 0.0000 0.0000 0.0008 0.0386 417.0 6.83E-20 0.0155 0.0000 0.0157 0.0000 0.0000 0.0005 0.0313 418.0 7.87E-20 0.0125 0.0000 0.0126 0.0000 0.0000 0.0003 0.0251 419.0 9.13E-20 0.0100 0.0000 0.0101 0.0000 0.0000 0.0002 0.0200 420.0 5.60E-20 0.0079 0.0000 0.0080 0.0000 0.0000 0.0001 0.0159 421.0 7.19E-20 0.0062 0.0000 0.0063 0.0000 0.0000 0.0001 0.0125 422.0 6.99E-20 0.0049 0.0000 0.0049 0.0000 0.0000 0.0000 0.0098 423.0 1.30E-19 0.0038 0.0000 0.0038 0.0000 0.0000 0.0000 0.0076 424.0 8.24E-20 0.0030 0.0000 0.0030 0.0000 0.0000 0.0000 0.0059 425.0 1.04E-19 0.0023 0.0000 0.0023 0.0000 0.0000 0.0000 0.0046 426.0 1.64E-19 0.0018 0.0000 0.0018 0.0000 0.0000 0.0000 0.0035 427.0 1.61E-19 0.0014 0.0000 0.0014 0.0000 0.0000 0.0000 0.0027 428.0 2.14E-19 0.0010 0.0000 0.0010 0.0000 0.0000 0.0000 0.0021 429.0 6.50E-20 0.0008 0.0000 0.0008 0.0000 0.0000 0.0000 0.0016 430.0 7.03E-20 0.0006 0.0000 0.0006 0.0000 0.0000 0.0000 0.0012 431.0 6.52E-20 0.0005 0.0000 0.0005 0.0000 0.0000 0.0000 0.0009 432.0 6.08E-20 0.0003 0.0000 0.0003 0.0000 0.0000 0.0000 0.0007 433.0 5.66E-20 0.0003 0.0000 0.0003 0.0000 0.0000 0.0000 0.0005 434.0 6.81E-20 0.0002 0.0000 0.0002 0.0000 0.0000 0.0000 0.0004 435.0 7.66E-20 0.0001 0.0000 0.0001 0.0000 0.0000 0.0000 0.0003 436.0 1.32E-19 0.0001 0.0000 0.0001 0.0000 0.0000 0.0000 0.0002 437.0 9.19E-20 0.0001 0.0000 0.0001 0.0000 0.0000 0.0000 0.0001 438.0 1.38E-19 0.0001 0.0000 0.0001 0.0000 0.0000 0.0000 0.0001 439.0 1.21E-19 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0001 440.0 2.59E-19 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0001 441.0 1.31E-19 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 442.0 9.01E-20 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 443.0 1.11E-19 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 444.0 1.35E-19 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 445.0 1.51E-19 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 446.0 7.82E-20 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 447.0 3.73E-20 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 448.0 4.14E-20 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 449.0 5.53E-20 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 450.0 8.68E-20 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 451.0 1.38E-19 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 452.0 1.59E-19 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 453.0 3.04E-19 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 454.0 2.69E-19 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 455.0 5.20E-19 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 456.0 1.57E-19 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 457.0 2.66E-20 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 458.0 2.20E-20 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 459.0 9.02E-21 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 460.0 1.20E-20 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 461.0 8.83E-21 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 462.0 5.88E-21 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 463.0 3.22E-21 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 464.0 3.39E-21 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 465.0 3.30E-21 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 466.0 4.16E-21 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 467.0 5.22E-21 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 468.0 1.49E-21 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 469.0 9.10E-22 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 470.0 7.60E-22 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 471.0 8.60E-22 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 472.0 9.20E-22 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 473.0 1.10E-21 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/GLY_H2_MCMv32 ================================================ GLY_H2_MCMv32 !Glyoxal (CHOCHO) channel quantum yields (1 bar, 298 K) !Rate sums quantum yields of phi2 and phi5 channels !CHOCHO--->2HCO !CHOCHO--->2H+2CHO !http://iupac.pole-ether.fr/htdocs/datasheets/pdf/P4_(CHO)2+hv.pdf !Dated: May 2013 ! !phi1 = H2 + 2CO !phi2 = HCO + HCO !phi3 = HCHO + CO !phi4 = HCO+CO+H !phi5 = 2H+2CO !phi6 = TOTAL ! ! !wvl XCROSS H2+2CO 2HCO HCHO+CO HCO+CO+H 2H+2CO Total Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 250.0 1.73E-20 0.0000 0.0034 0.3550 0.3888 0.2527 0.9999 251.0 1.52E-20 0.0000 0.0037 0.3570 0.3887 0.2505 0.9999 252.0 1.48E-20 0.0000 0.0039 0.3591 0.3887 0.2483 0.9999 253.0 1.55E-20 0.0000 0.0042 0.3613 0.3886 0.2459 0.9999 254.0 1.60E-20 0.0000 0.0045 0.3637 0.3884 0.2433 0.9998 255.0 1.67E-20 0.0000 0.0049 0.3662 0.3883 0.2405 0.9998 256.0 1.62E-20 0.0000 0.0052 0.3689 0.3882 0.2376 0.9998 257.0 1.81E-20 0.0000 0.0056 0.3717 0.3881 0.2345 0.9998 258.0 1.82E-20 0.0000 0.0060 0.3747 0.3879 0.2313 0.9997 259.0 1.85E-20 0.0000 0.0065 0.3779 0.3878 0.2278 0.9997 260.0 1.83E-20 0.0000 0.0069 0.3812 0.3876 0.2242 0.9997 261.0 1.96E-20 0.0000 0.0074 0.3847 0.3874 0.2204 0.9996 262.0 2.03E-20 0.0000 0.0080 0.3883 0.3872 0.2164 0.9996 263.0 2.14E-20 0.0000 0.0086 0.3921 0.3870 0.2122 0.9995 264.0 2.18E-20 0.0000 0.0092 0.3961 0.3868 0.2078 0.9995 265.0 2.26E-20 0.0000 0.0099 0.4002 0.3865 0.2032 0.9994 266.0 2.33E-20 0.0000 0.0106 0.4045 0.3863 0.1985 0.9994 267.0 2.37E-20 0.0000 0.0113 0.4089 0.3860 0.1936 0.9993 268.0 2.36E-20 0.0000 0.0122 0.4134 0.3857 0.1885 0.9992 269.0 2.48E-20 0.0000 0.0130 0.4180 0.3854 0.1833 0.9991 270.0 2.51E-20 0.0000 0.0140 0.4227 0.3850 0.1780 0.9990 271.0 2.61E-20 0.0000 0.0150 0.4275 0.3847 0.1725 0.9989 272.0 2.72E-20 0.0000 0.0161 0.4324 0.3843 0.1669 0.9988 273.0 2.81E-20 0.0000 0.0172 0.4373 0.3838 0.1613 0.9986 274.0 2.92E-20 0.0000 0.0185 0.4422 0.3834 0.1555 0.9985 275.0 3.00E-20 0.0000 0.0198 0.4471 0.3829 0.1497 0.9983 276.0 3.06E-20 0.0000 0.0212 0.4520 0.3823 0.1439 0.9981 277.0 3.09E-20 0.0000 0.0227 0.4568 0.3818 0.1381 0.9979 278.0 3.08E-20 0.0000 0.0244 0.4615 0.3812 0.1322 0.9977 279.0 3.09E-20 0.0000 0.0261 0.4662 0.3805 0.1264 0.9975 280.0 3.14E-20 0.0000 0.0280 0.4707 0.3798 0.1206 0.9972 281.0 3.22E-20 0.0000 0.0300 0.4751 0.3790 0.1149 0.9969 282.0 3.32E-20 0.0000 0.0321 0.4792 0.3782 0.1093 0.9966 283.0 3.46E-20 0.0000 0.0344 0.4832 0.3774 0.1038 0.9962 284.0 3.57E-20 0.0000 0.0368 0.4870 0.3764 0.0984 0.9958 285.0 3.67E-20 0.0000 0.0394 0.4905 0.3754 0.0931 0.9954 286.0 3.80E-20 0.0000 0.0421 0.4938 0.3744 0.0880 0.9950 287.0 3.79E-20 0.0000 0.0451 0.4968 0.3732 0.0830 0.9945 288.0 3.81E-20 0.0000 0.0482 0.4995 0.3720 0.0782 0.9939 289.0 3.80E-20 0.0000 0.0515 0.5019 0.3707 0.0736 0.9934 290.0 3.73E-20 0.0000 0.0551 0.5040 0.3693 0.0692 0.9927 291.0 3.64E-20 0.0000 0.0589 0.5057 0.3678 0.0649 0.9920 292.0 3.65E-20 0.0000 0.0629 0.5071 0.3663 0.0608 0.9913 293.0 3.68E-20 0.0000 0.0672 0.5081 0.3646 0.0569 0.9905 294.0 3.73E-20 0.0000 0.0717 0.5088 0.3628 0.0532 0.9896 295.0 3.81E-20 0.0000 0.0765 0.5091 0.3608 0.0497 0.9887 296.0 3.82E-20 0.0000 0.0816 0.5090 0.3588 0.0463 0.9876 297.0 3.92E-20 0.0000 0.0870 0.5086 0.3566 0.0432 0.9866 298.0 4.07E-20 0.0000 0.0928 0.5078 0.3543 0.0402 0.9854 299.0 4.12E-20 0.0000 0.0988 0.5066 0.3518 0.0374 0.9841 300.0 4.05E-20 0.0000 0.1052 0.5050 0.3492 0.0347 0.9827 301.0 3.91E-20 0.0000 0.1120 0.5030 0.3465 0.0322 0.9813 302.0 3.78E-20 0.0000 0.1191 0.5006 0.3435 0.0299 0.9797 303.0 3.57E-20 0.0000 0.1265 0.4979 0.3404 0.0277 0.9780 304.0 3.35E-20 0.0000 0.1344 0.4947 0.3372 0.0257 0.9762 305.0 3.24E-20 0.0000 0.1427 0.4912 0.3337 0.0238 0.9743 306.0 3.22E-20 0.0000 0.1513 0.4874 0.3301 0.0220 0.9722 307.0 3.20E-20 0.0000 0.1604 0.4831 0.3262 0.0203 0.9700 308.0 3.15E-20 0.0000 0.1698 0.4785 0.3222 0.0188 0.9677 309.0 3.12E-20 0.0000 0.1797 0.4736 0.3180 0.0174 0.9652 310.0 3.10E-20 0.0000 0.1899 0.4683 0.3135 0.0160 0.9626 311.0 3.22E-20 0.0000 0.2006 0.4627 0.3089 0.0148 0.9598 312.0 3.34E-20 0.0000 0.2117 0.4568 0.3040 0.0136 0.9568 313.0 3.39E-20 0.0000 0.2231 0.4505 0.2989 0.0126 0.9536 314.0 3.23E-20 0.0000 0.2349 0.4441 0.2936 0.0116 0.9502 315.0 2.81E-20 0.0000 0.2471 0.4373 0.2881 0.0106 0.9467 316.0 2.65E-20 0.0000 0.2595 0.4303 0.2824 0.0098 0.9429 317.0 2.46E-20 0.0000 0.2723 0.4232 0.2765 0.0090 0.9389 318.0 2.21E-20 0.0000 0.2854 0.4158 0.2704 0.0083 0.9347 319.0 1.93E-20 0.0000 0.2987 0.4083 0.2641 0.0076 0.9303 320.0 1.85E-20 0.0000 0.3123 0.4007 0.2576 0.0070 0.9257 321.0 1.89E-20 0.0000 0.3260 0.3930 0.2509 0.0064 0.9207 322.0 1.77E-20 0.0000 0.3398 0.3852 0.2441 0.0059 0.9156 323.0 1.72E-20 0.0000 0.3537 0.3774 0.2372 0.0054 0.9101 324.0 1.68E-20 0.0000 0.3676 0.3696 0.2300 0.0050 0.9044 325.0 1.60E-20 0.0000 0.3815 0.3619 0.2228 0.0045 0.8984 326.0 1.61E-20 0.0000 0.3953 0.3543 0.2155 0.0042 0.8921 327.0 1.70E-20 0.0000 0.4090 0.3469 0.2081 0.0038 0.8854 328.0 1.94E-20 0.0000 0.4225 0.3396 0.2006 0.0035 0.8785 329.0 1.86E-20 0.0000 0.4357 0.3325 0.1931 0.0032 0.8712 330.0 1.69E-20 0.0000 0.4486 0.3256 0.1855 0.0029 0.8636 331.0 1.13E-20 0.0000 0.4611 0.3191 0.1780 0.0027 0.8556 332.0 1.05E-20 0.0000 0.4731 0.3128 0.1705 0.0024 0.8473 333.0 9.66E-21 0.0000 0.4847 0.3069 0.1630 0.0022 0.8385 334.0 9.19E-21 0.0000 0.4957 0.3013 0.1555 0.0020 0.8294 335.0 7.37E-21 0.0000 0.5060 0.2961 0.1482 0.0019 0.8198 336.0 6.30E-21 0.0000 0.5157 0.2913 0.1409 0.0017 0.8099 337.0 5.89E-21 0.0000 0.5248 0.2869 0.1338 0.0015 0.7995 338.0 6.47E-21 0.0000 0.5330 0.2829 0.1268 0.0014 0.7886 339.0 5.85E-21 0.0000 0.5405 0.2794 0.1200 0.0013 0.7773 340.0 5.53E-21 0.0000 0.5471 0.2762 0.1133 0.0012 0.7656 341.0 5.63E-21 0.0000 0.5529 0.2735 0.1069 0.0011 0.7534 342.0 5.10E-21 0.0000 0.5578 0.2711 0.1006 0.0010 0.7407 343.0 4.99E-21 0.0000 0.5619 0.2692 0.0945 0.0009 0.7276 344.0 6.49E-21 0.0000 0.5650 0.2676 0.0886 0.0008 0.7140 345.0 6.24E-21 0.0000 0.5672 0.2663 0.0830 0.0007 0.6999 346.0 7.33E-21 0.0000 0.5686 0.2654 0.0776 0.0007 0.6854 347.0 6.31E-21 0.0000 0.5690 0.2647 0.0724 0.0006 0.6705 348.0 6.04E-21 0.0000 0.5686 0.2643 0.0675 0.0005 0.6551 349.0 4.15E-21 0.0000 0.5672 0.2641 0.0628 0.0005 0.6393 350.0 3.91E-21 0.0000 0.5651 0.2640 0.0583 0.0004 0.6232 351.0 3.95E-21 0.0000 0.5621 0.2641 0.0541 0.0004 0.6067 352.0 4.23E-21 0.0000 0.5583 0.2643 0.0501 0.0004 0.5898 353.0 4.15E-21 0.0000 0.5537 0.2646 0.0463 0.0003 0.5727 354.0 4.03E-21 0.0000 0.5485 0.2649 0.0427 0.0003 0.5553 355.0 4.22E-21 0.0000 0.5425 0.2652 0.0394 0.0003 0.5377 356.0 4.43E-21 0.0000 0.5359 0.2654 0.0363 0.0002 0.5199 357.0 4.31E-21 0.0000 0.5286 0.2655 0.0333 0.0002 0.5020 358.0 4.71E-21 0.0000 0.5208 0.2656 0.0306 0.0002 0.4840 359.0 5.03E-21 0.0000 0.5125 0.2655 0.0281 0.0002 0.4660 360.0 5.46E-21 0.0000 0.5037 0.2652 0.0257 0.0002 0.4480 361.0 6.27E-21 0.0000 0.4945 0.2647 0.0235 0.0001 0.4301 362.0 7.06E-21 0.0000 0.4849 0.2640 0.0215 0.0001 0.4122 363.0 6.39E-21 0.0000 0.4749 0.2631 0.0196 0.0001 0.3945 364.0 6.80E-21 0.0000 0.4647 0.2620 0.0179 0.0001 0.3770 365.0 6.65E-21 0.0000 0.4542 0.2606 0.0163 0.0001 0.3598 366.0 7.43E-21 0.0000 0.4435 0.2589 0.0148 0.0001 0.3428 367.0 8.60E-21 0.0000 0.4326 0.2570 0.0135 0.0001 0.3262 368.0 1.01E-20 0.0000 0.4216 0.2548 0.0122 0.0001 0.3100 369.0 1.06E-20 0.0000 0.4105 0.2524 0.0111 0.0001 0.2941 370.0 1.14E-20 0.0000 0.3994 0.2497 0.0100 0.0000 0.2787 371.0 1.19E-20 0.0000 0.3882 0.2467 0.0091 0.0000 0.2637 372.0 1.14E-20 0.0000 0.3770 0.2436 0.0082 0.0000 0.2492 373.0 1.21E-20 0.0000 0.3659 0.2401 0.0074 0.0000 0.2351 374.0 1.35E-20 0.0000 0.3549 0.2365 0.0067 0.0000 0.2216 375.0 1.33E-20 0.0000 0.3439 0.2327 0.0061 0.0000 0.2086 376.0 1.38E-20 0.0000 0.3330 0.2287 0.0055 0.0000 0.1962 377.0 1.47E-20 0.0000 0.3223 0.2246 0.0049 0.0000 0.1842 378.0 1.61E-20 0.0000 0.3117 0.2203 0.0044 0.0000 0.1728 379.0 1.53E-20 0.0000 0.3014 0.2158 0.0040 0.0000 0.1619 380.0 1.93E-20 0.0000 0.2911 0.2112 0.0036 0.0000 0.1516 381.0 2.46E-20 0.0000 0.2811 0.2066 0.0032 0.0000 0.1417 382.0 2.02E-20 0.0000 0.2713 0.2018 0.0029 0.0000 0.1324 383.0 2.07E-20 0.0000 0.2617 0.1970 0.0026 0.0000 0.1235 384.0 1.94E-20 0.0000 0.2523 0.1921 0.0023 0.0000 0.1152 385.0 1.89E-20 0.0000 0.2431 0.1872 0.0021 0.0000 0.1073 386.0 1.84E-20 0.0000 0.2342 0.1823 0.0019 0.0000 0.0998 387.0 2.29E-20 0.0000 0.2255 0.1773 0.0017 0.0000 0.0928 388.0 3.00E-20 0.0000 0.2170 0.1723 0.0015 0.0000 0.0862 389.0 3.21E-20 0.0000 0.2087 0.1674 0.0014 0.0000 0.0799 390.0 3.48E-20 0.0000 0.2006 0.1624 0.0012 0.0000 0.0741 391.0 3.92E-20 0.0000 0.1927 0.1574 0.0011 0.0000 0.0686 392.0 3.80E-20 0.0000 0.1850 0.1525 0.0010 0.0000 0.0634 393.0 2.85E-20 0.0000 0.1775 0.1475 0.0009 0.0000 0.0585 394.0 3.15E-20 0.0000 0.1702 0.1426 0.0008 0.0000 0.0539 395.0 3.86E-20 0.0000 0.1630 0.1377 0.0007 0.0000 0.0496 396.0 3.68E-20 0.0000 0.1559 0.1327 0.0006 0.0000 0.0455 397.0 3.36E-20 0.0000 0.1489 0.1277 0.0005 0.0000 0.0416 398.0 4.32E-20 0.0000 0.1420 0.1227 0.0005 0.0000 0.0379 399.0 4.35E-20 0.0000 0.1350 0.1176 0.0004 0.0000 0.0344 400.0 3.87E-20 0.0000 0.1281 0.1124 0.0004 0.0000 0.0311 401.0 4.46E-20 0.0000 0.1212 0.1071 0.0003 0.0000 0.0279 402.0 5.84E-20 0.0000 0.1141 0.1017 0.0003 0.0000 0.0248 403.0 7.16E-20 0.0000 0.1070 0.0961 0.0003 0.0000 0.0219 404.0 6.24E-20 0.0000 0.0997 0.0902 0.0002 0.0000 0.0191 405.0 4.49E-20 0.0000 0.0923 0.0842 0.0002 0.0000 0.0164 406.0 4.48E-20 0.0000 0.0848 0.0780 0.0002 0.0000 0.0139 407.0 4.07E-20 0.0000 0.0772 0.0715 0.0001 0.0000 0.0115 408.0 3.44E-20 0.0000 0.0696 0.0650 0.0001 0.0000 0.0094 409.0 4.01E-20 0.0000 0.0620 0.0583 0.0001 0.0000 0.0075 410.0 5.66E-20 0.0000 0.0545 0.0517 0.0001 0.0000 0.0058 411.0 7.22E-20 0.0000 0.0474 0.0453 0.0001 0.0000 0.0044 412.0 7.41E-20 0.0000 0.0407 0.0391 0.0001 0.0000 0.0033 413.0 1.08E-19 0.0000 0.0344 0.0333 0.0000 0.0000 0.0023 414.0 1.01E-19 0.0000 0.0288 0.0280 0.0000 0.0000 0.0016 415.0 1.02E-19 0.0000 0.0238 0.0233 0.0000 0.0000 0.0011 416.0 6.07E-20 0.0000 0.0194 0.0191 0.0000 0.0000 0.0008 417.0 6.83E-20 0.0000 0.0157 0.0155 0.0000 0.0000 0.0005 418.0 7.87E-20 0.0000 0.0126 0.0125 0.0000 0.0000 0.0003 419.0 9.13E-20 0.0000 0.0101 0.0100 0.0000 0.0000 0.0002 420.0 5.60E-20 0.0000 0.0080 0.0079 0.0000 0.0000 0.0001 421.0 7.19E-20 0.0000 0.0063 0.0062 0.0000 0.0000 0.0001 422.0 6.99E-20 0.0000 0.0049 0.0049 0.0000 0.0000 0.0000 423.0 1.30E-19 0.0000 0.0038 0.0038 0.0000 0.0000 0.0000 424.0 8.24E-20 0.0000 0.0030 0.0030 0.0000 0.0000 0.0000 425.0 1.04E-19 0.0000 0.0023 0.0023 0.0000 0.0000 0.0000 426.0 1.64E-19 0.0000 0.0018 0.0018 0.0000 0.0000 0.0000 427.0 1.61E-19 0.0000 0.0014 0.0014 0.0000 0.0000 0.0000 428.0 2.14E-19 0.0000 0.0010 0.0010 0.0000 0.0000 0.0000 429.0 6.50E-20 0.0000 0.0008 0.0008 0.0000 0.0000 0.0000 430.0 7.03E-20 0.0000 0.0006 0.0006 0.0000 0.0000 0.0000 431.0 6.52E-20 0.0000 0.0005 0.0005 0.0000 0.0000 0.0000 432.0 6.08E-20 0.0000 0.0003 0.0003 0.0000 0.0000 0.0000 433.0 5.66E-20 0.0000 0.0003 0.0003 0.0000 0.0000 0.0000 434.0 6.81E-20 0.0000 0.0002 0.0002 0.0000 0.0000 0.0000 435.0 7.66E-20 0.0000 0.0001 0.0001 0.0000 0.0000 0.0000 436.0 1.32E-19 0.0000 0.0001 0.0001 0.0000 0.0000 0.0000 437.0 9.19E-20 0.0000 0.0001 0.0001 0.0000 0.0000 0.0000 438.0 1.38E-19 0.0000 0.0001 0.0001 0.0000 0.0000 0.0000 439.0 1.21E-19 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 440.0 2.59E-19 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 441.0 1.31E-19 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 442.0 9.01E-20 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 443.0 1.11E-19 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 444.0 1.35E-19 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 445.0 1.51E-19 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 446.0 7.82E-20 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 447.0 3.73E-20 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 448.0 4.14E-20 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 449.0 5.53E-20 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 450.0 8.68E-20 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 451.0 1.38E-19 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 452.0 1.59E-19 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 453.0 3.04E-19 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 454.0 2.69E-19 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 455.0 5.20E-19 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 456.0 1.57E-19 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 457.0 2.66E-20 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 458.0 2.20E-20 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 459.0 9.02E-21 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 460.0 1.20E-20 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 461.0 8.83E-21 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 462.0 5.88E-21 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 463.0 3.22E-21 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 464.0 3.39E-21 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 465.0 3.30E-21 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 466.0 4.16E-21 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 467.0 5.22E-21 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 468.0 1.49E-21 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 469.0 9.10E-22 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 470.0 7.60E-22 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 471.0 8.60E-22 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 472.0 9.20E-22 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 473.0 1.10E-21 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/GLY_R_IUPAC10 ================================================ GLY_R_IUPAC10 !GLY = 2 HO2 + 2 CO !j(GLY) IUPAC(2010) ! From IUPAC Subcommittee on Gas Kinetic Data Evaluation ! Data Sheet P4, updated 19th Dec, 2013 !Glyoxal (CHOCHO) channel quantum yields (1 bar, 298 K) !Rate sums quantum yields of all nonzero channels because the species are !expected result from these channels if all HCHO is assumed to yield ! 2HO2+2CO ! !CHOCHO--->2HCO !CHOCHO--->2H+2CHO !CHOCHO--->HCO+CO+H !CHCHO ----> HCHO +CO --(assumed)--> 2HO + 2CO ! !Cross-Section combines IUPAC (2013) recommendation (250-473 nm) and JPL 2011 (474-526 nm). ! The latter comes from the URL: ! http://satellite.mpic.de/spectral_atlas/cross_sections ! accessed Feb. 12, 2016 ! Note that the JPL values are the same from 250 to 473 nm as IUPAC values ! !Quantum Yields based on recommendation ! http://iupac.pole-ether.fr/htdocs/datasheets/pdf/P4_(CHO)2+hv.pdf dated 2013 but ! the IUPAC data sheet appears to incorrectly use the formula for ! QY of total and individual channels derived in ! Salter, R. J., Blitz, M. A., Heard, D. E., Pilling, M. J., Rickard, A. R. and ! Seakins, P. W., Phys. Chem. Chem. Phys., 15, 6516, 2013. ! (1) In IUPAC datasheet, the right side of the phi total equation should use the ! reciprocal of pressure correction based on EQ6 in Salter et al. (2013) ! (2) The IUPAC datasheet may have reversed B1 and B2 values in Table 3 in Salter et al. ! (2013) for the individual ! !Channel Possible: !phi1 = H2 + 2CO !phi2 = HCO + HCO !phi3 = HCHO + CO !phi4 = HCO+CO+H !phi5 = 2H+2CO !phi6 = TOTAL !These are point values Points !wl(nm) XC(cm2) Total H2+2CO,2HCO,HCHO+CO,HCO+CO+H,2H+2CO FAC=1.0 250.0 1.730E-20 1.000 0.000 0.003 0.355 0.389 0.253 251.0 1.520E-20 1.000 0.000 0.004 0.357 0.389 0.251 252.0 1.480E-20 1.000 0.000 0.004 0.359 0.389 0.248 253.0 1.550E-20 1.000 0.000 0.004 0.361 0.389 0.246 254.0 1.600E-20 1.000 0.000 0.005 0.364 0.388 0.243 255.0 1.670E-20 1.000 0.000 0.005 0.366 0.388 0.241 256.0 1.620E-20 1.000 0.000 0.005 0.369 0.388 0.238 257.0 1.810E-20 1.000 0.000 0.006 0.372 0.388 0.235 258.0 1.820E-20 1.000 0.000 0.006 0.375 0.388 0.231 259.0 1.850E-20 1.000 0.000 0.006 0.378 0.388 0.228 260.0 1.830E-20 1.000 0.000 0.007 0.381 0.388 0.224 261.0 1.960E-20 1.000 0.000 0.007 0.385 0.387 0.220 262.0 2.030E-20 1.000 0.000 0.008 0.388 0.387 0.216 263.0 2.140E-20 1.000 0.000 0.009 0.392 0.387 0.212 264.0 2.180E-20 1.000 0.000 0.009 0.396 0.387 0.208 265.0 2.260E-20 1.000 0.000 0.010 0.400 0.387 0.203 266.0 2.330E-20 1.000 0.000 0.011 0.404 0.386 0.198 267.0 2.370E-20 0.999 0.000 0.011 0.409 0.386 0.194 268.0 2.360E-20 0.999 0.000 0.012 0.413 0.386 0.189 269.0 2.480E-20 0.999 0.000 0.013 0.418 0.385 0.183 270.0 2.510E-20 0.999 0.000 0.014 0.422 0.385 0.178 271.0 2.610E-20 0.999 0.000 0.015 0.427 0.385 0.173 272.0 2.720E-20 0.999 0.000 0.016 0.432 0.384 0.167 273.0 2.810E-20 0.999 0.000 0.017 0.437 0.384 0.161 274.0 2.920E-20 0.999 0.000 0.018 0.442 0.383 0.156 275.0 3.000E-20 0.999 0.000 0.020 0.446 0.383 0.150 276.0 3.060E-20 0.999 0.000 0.021 0.451 0.382 0.144 277.0 3.090E-20 0.999 0.000 0.023 0.456 0.382 0.138 278.0 3.080E-20 0.998 0.000 0.024 0.461 0.381 0.132 279.0 3.090E-20 0.998 0.000 0.026 0.465 0.381 0.126 280.0 3.140E-20 0.998 0.000 0.028 0.470 0.380 0.121 281.0 3.220E-20 0.998 0.000 0.030 0.474 0.379 0.115 282.0 3.320E-20 0.998 0.000 0.032 0.478 0.378 0.109 283.0 3.460E-20 0.997 0.000 0.034 0.482 0.377 0.104 284.0 3.570E-20 0.997 0.000 0.037 0.486 0.376 0.098 285.0 3.670E-20 0.997 0.000 0.039 0.489 0.375 0.093 286.0 3.800E-20 0.997 0.000 0.042 0.492 0.374 0.088 287.0 3.790E-20 0.996 0.000 0.045 0.495 0.373 0.083 288.0 3.810E-20 0.996 0.000 0.048 0.497 0.372 0.078 289.0 3.800E-20 0.996 0.000 0.052 0.500 0.371 0.074 290.0 3.730E-20 0.995 0.000 0.055 0.502 0.369 0.069 291.0 3.640E-20 0.995 0.000 0.059 0.503 0.368 0.065 292.0 3.650E-20 0.994 0.000 0.063 0.504 0.366 0.061 293.0 3.680E-20 0.994 0.000 0.067 0.505 0.365 0.057 294.0 3.730E-20 0.993 0.000 0.072 0.505 0.363 0.053 295.0 3.810E-20 0.992 0.000 0.077 0.505 0.361 0.050 296.0 3.820E-20 0.992 0.000 0.082 0.505 0.359 0.046 297.0 3.920E-20 0.991 0.000 0.087 0.504 0.357 0.043 298.0 4.070E-20 0.990 0.000 0.093 0.503 0.354 0.040 299.0 4.120E-20 0.989 0.000 0.099 0.501 0.352 0.037 300.0 4.050E-20 0.989 0.000 0.105 0.499 0.349 0.035 301.0 3.910E-20 0.988 0.000 0.112 0.497 0.346 0.032 302.0 3.780E-20 0.986 0.000 0.119 0.494 0.344 0.030 303.0 3.570E-20 0.985 0.000 0.127 0.491 0.340 0.028 304.0 3.350E-20 0.984 0.000 0.134 0.487 0.337 0.026 305.0 3.240E-20 0.983 0.000 0.143 0.483 0.334 0.024 306.0 3.220E-20 0.981 0.000 0.151 0.478 0.330 0.022 307.0 3.200E-20 0.980 0.000 0.160 0.473 0.326 0.020 308.0 3.150E-20 0.978 0.000 0.170 0.467 0.322 0.019 309.0 3.120E-20 0.976 0.000 0.180 0.461 0.318 0.017 310.0 3.100E-20 0.975 0.000 0.190 0.455 0.314 0.016 311.0 3.220E-20 0.973 0.000 0.201 0.448 0.309 0.015 312.0 3.340E-20 0.970 0.000 0.212 0.441 0.304 0.014 313.0 3.390E-20 0.968 0.000 0.223 0.433 0.299 0.013 314.0 3.230E-20 0.966 0.000 0.235 0.425 0.294 0.012 315.0 2.810E-20 0.963 0.000 0.247 0.417 0.288 0.011 316.0 2.650E-20 0.960 0.000 0.260 0.408 0.282 0.010 317.0 2.460E-20 0.957 0.000 0.272 0.399 0.277 0.009 318.0 2.210E-20 0.954 0.000 0.285 0.390 0.270 0.008 319.0 1.930E-20 0.951 0.000 0.299 0.380 0.264 0.008 320.0 1.850E-20 0.947 0.000 0.312 0.370 0.258 0.007 321.0 1.890E-20 0.943 0.000 0.326 0.360 0.251 0.006 322.0 1.770E-20 0.939 0.000 0.340 0.349 0.244 0.006 323.0 1.720E-20 0.935 0.000 0.354 0.339 0.237 0.005 324.0 1.680E-20 0.930 0.000 0.368 0.328 0.230 0.005 325.0 1.600E-20 0.925 0.000 0.382 0.317 0.223 0.005 326.0 1.610E-20 0.920 0.000 0.395 0.305 0.216 0.004 327.0 1.700E-20 0.915 0.000 0.409 0.294 0.208 0.004 328.0 1.940E-20 0.909 0.000 0.422 0.283 0.201 0.003 329.0 1.860E-20 0.903 0.000 0.436 0.271 0.193 0.003 330.0 1.690E-20 0.897 0.000 0.449 0.260 0.186 0.003 331.0 1.130E-20 0.891 0.000 0.461 0.249 0.178 0.003 332.0 1.050E-20 0.884 0.000 0.473 0.238 0.170 0.002 333.0 9.660E-21 0.877 0.000 0.485 0.227 0.163 0.002 334.0 9.190E-21 0.869 0.000 0.496 0.216 0.156 0.002 335.0 7.370E-21 0.861 0.000 0.506 0.205 0.148 0.002 336.0 6.300E-21 0.853 0.000 0.516 0.194 0.141 0.002 337.0 5.890E-21 0.844 0.000 0.525 0.184 0.134 0.002 338.0 6.470E-21 0.835 0.000 0.533 0.174 0.127 0.001 339.0 5.850E-21 0.826 0.000 0.541 0.164 0.120 0.001 340.0 5.530E-21 0.816 0.000 0.547 0.155 0.113 0.001 341.0 5.630E-21 0.806 0.000 0.553 0.146 0.107 0.001 342.0 5.100E-21 0.796 0.000 0.558 0.137 0.101 0.001 343.0 4.990E-21 0.785 0.000 0.562 0.128 0.095 0.001 344.0 6.490E-21 0.774 0.000 0.565 0.120 0.089 0.001 345.0 6.240E-21 0.763 0.000 0.567 0.112 0.083 0.001 346.0 7.330E-21 0.752 0.000 0.569 0.105 0.078 0.001 347.0 6.310E-21 0.740 0.000 0.569 0.097 0.072 0.001 348.0 6.040E-21 0.727 0.000 0.569 0.091 0.067 0.001 349.0 4.150E-21 0.715 0.000 0.567 0.084 0.063 0.000 350.0 3.910E-21 0.702 0.000 0.565 0.078 0.058 0.000 351.0 3.950E-21 0.689 0.000 0.562 0.072 0.054 0.000 352.0 4.230E-21 0.676 0.000 0.558 0.067 0.050 0.000 353.0 4.150E-21 0.662 0.000 0.554 0.062 0.046 0.000 354.0 4.030E-21 0.649 0.000 0.549 0.057 0.043 0.000 355.0 4.220E-21 0.635 0.000 0.543 0.052 0.039 0.000 356.0 4.430E-21 0.621 0.000 0.536 0.048 0.036 0.000 357.0 4.310E-21 0.607 0.000 0.529 0.044 0.033 0.000 358.0 4.710E-21 0.593 0.000 0.521 0.041 0.031 0.000 359.0 5.030E-21 0.578 0.000 0.513 0.037 0.028 0.000 360.0 5.460E-21 0.564 0.000 0.504 0.034 0.026 0.000 361.0 6.270E-21 0.550 0.000 0.495 0.031 0.024 0.000 362.0 7.060E-21 0.535 0.000 0.485 0.029 0.021 0.000 363.0 6.390E-21 0.521 0.000 0.475 0.026 0.020 0.000 364.0 6.800E-21 0.507 0.000 0.465 0.024 0.018 0.000 365.0 6.650E-21 0.492 0.000 0.454 0.022 0.016 0.000 366.0 7.430E-21 0.478 0.000 0.444 0.020 0.015 0.000 367.0 8.600E-21 0.464 0.000 0.433 0.018 0.013 0.000 368.0 1.010E-20 0.450 0.000 0.422 0.016 0.012 0.000 369.0 1.060E-20 0.437 0.000 0.411 0.015 0.011 0.000 370.0 1.140E-20 0.423 0.000 0.400 0.013 0.010 0.000 371.0 1.190E-20 0.410 0.000 0.388 0.012 0.009 0.000 372.0 1.140E-20 0.396 0.000 0.377 0.011 0.008 0.000 373.0 1.210E-20 0.383 0.000 0.366 0.010 0.007 0.000 374.0 1.350E-20 0.371 0.000 0.355 0.009 0.007 0.000 375.0 1.330E-20 0.358 0.000 0.344 0.008 0.006 0.000 376.0 1.380E-20 0.346 0.000 0.333 0.007 0.005 0.000 377.0 1.470E-20 0.334 0.000 0.322 0.007 0.005 0.000 378.0 1.610E-20 0.322 0.000 0.312 0.006 0.004 0.000 379.0 1.530E-20 0.311 0.000 0.302 0.005 0.004 0.000 380.0 1.930E-20 0.300 0.000 0.291 0.005 0.004 0.000 381.0 2.460E-20 0.289 0.000 0.281 0.004 0.003 0.000 382.0 2.020E-20 0.278 0.000 0.271 0.004 0.003 0.000 383.0 2.070E-20 0.268 0.000 0.262 0.003 0.003 0.000 384.0 1.940E-20 0.258 0.000 0.252 0.003 0.002 0.000 385.0 1.890E-20 0.248 0.000 0.243 0.003 0.002 0.000 386.0 1.840E-20 0.239 0.000 0.234 0.003 0.002 0.000 387.0 2.290E-20 0.230 0.000 0.226 0.002 0.002 0.000 388.0 3.000E-20 0.221 0.000 0.217 0.002 0.002 0.000 389.0 3.210E-20 0.212 0.000 0.209 0.002 0.001 0.000 390.0 3.480E-20 0.204 0.000 0.201 0.002 0.001 0.000 391.0 3.920E-20 0.195 0.000 0.193 0.001 0.001 0.000 392.0 3.800E-20 0.187 0.000 0.185 0.001 0.001 0.000 393.0 2.850E-20 0.180 0.000 0.178 0.001 0.001 0.000 394.0 3.150E-20 0.172 0.000 0.170 0.001 0.001 0.000 395.0 3.860E-20 0.165 0.000 0.163 0.001 0.001 0.000 396.0 3.680E-20 0.157 0.000 0.156 0.001 0.001 0.000 397.0 3.360E-20 0.150 0.000 0.149 0.001 0.001 0.000 398.0 4.320E-20 0.143 0.000 0.142 0.001 0.000 0.000 399.0 4.350E-20 0.136 0.000 0.135 0.001 0.000 0.000 400.0 3.870E-20 0.129 0.000 0.128 0.001 0.000 0.000 401.0 4.460E-20 0.122 0.000 0.121 0.000 0.000 0.000 402.0 5.840E-20 0.115 0.000 0.114 0.000 0.000 0.000 403.0 7.160E-20 0.108 0.000 0.107 0.000 0.000 0.000 404.0 6.240E-20 0.100 0.000 0.100 0.000 0.000 0.000 405.0 4.490E-20 0.093 0.000 0.093 0.000 0.000 0.000 406.0 4.480E-20 0.085 0.000 0.085 0.000 0.000 0.000 407.0 4.070E-20 0.078 0.000 0.077 0.000 0.000 0.000 408.0 3.440E-20 0.070 0.000 0.070 0.000 0.000 0.000 409.0 4.010E-20 0.062 0.000 0.062 0.000 0.000 0.000 410.0 5.660E-20 0.055 0.000 0.055 0.000 0.000 0.000 411.0 7.220E-20 0.048 0.000 0.048 0.000 0.000 0.000 412.0 7.410E-20 0.041 0.000 0.041 0.000 0.000 0.000 413.0 1.080E-19 0.035 0.000 0.035 0.000 0.000 0.000 414.0 1.010E-19 0.029 0.000 0.029 0.000 0.000 0.000 415.0 1.020E-19 0.024 0.000 0.024 0.000 0.000 0.000 416.0 6.070E-20 0.020 0.000 0.020 0.000 0.000 0.000 417.0 6.830E-20 0.016 0.000 0.016 0.000 0.000 0.000 418.0 7.870E-20 0.013 0.000 0.013 0.000 0.000 0.000 419.0 9.130E-20 0.010 0.000 0.010 0.000 0.000 0.000 420.0 5.600E-20 0.008 0.000 0.008 0.000 0.000 0.000 421.0 7.190E-20 0.007 0.000 0.007 0.000 0.000 0.000 422.0 6.990E-20 0.005 0.000 0.005 0.000 0.000 0.000 423.0 1.300E-19 0.004 0.000 0.004 0.000 0.000 0.000 424.0 8.240E-20 0.003 0.000 0.003 0.000 0.000 0.000 425.0 1.040E-19 0.003 0.000 0.003 0.000 0.000 0.000 426.0 1.640E-19 0.002 0.000 0.002 0.000 0.000 0.000 427.0 1.610E-19 0.002 0.000 0.002 0.000 0.000 0.000 428.0 2.140E-19 0.001 0.000 0.001 0.000 0.000 0.000 429.0 6.500E-20 0.001 0.000 0.001 0.000 0.000 0.000 430.0 7.030E-20 0.001 0.000 0.001 0.000 0.000 0.000 431.0 6.520E-20 0.001 0.000 0.001 0.000 0.000 0.000 432.0 6.080E-20 0.001 0.000 0.001 0.000 0.000 0.000 433.0 5.660E-20 0.000 0.000 0.000 0.000 0.000 0.000 434.0 6.810E-20 0.000 0.000 0.000 0.000 0.000 0.000 435.0 7.660E-20 0.000 0.000 0.000 0.000 0.000 0.000 436.0 1.320E-19 0.000 0.000 0.000 0.000 0.000 0.000 437.0 9.190E-20 0.000 0.000 0.000 0.000 0.000 0.000 438.0 1.380E-19 0.000 0.000 0.000 0.000 0.000 0.000 439.0 1.210E-19 0.000 0.000 0.000 0.000 0.000 0.000 440.0 2.590E-19 0.000 0.000 0.000 0.000 0.000 0.000 441.0 1.310E-19 0.000 0.000 0.000 0.000 0.000 0.000 442.0 9.010E-20 0.000 0.000 0.000 0.000 0.000 0.000 443.0 1.110E-19 0.000 0.000 0.000 0.000 0.000 0.000 444.0 1.350E-19 0.000 0.000 0.000 0.000 0.000 0.000 445.0 1.510E-19 0.000 0.000 0.000 0.000 0.000 0.000 446.0 7.820E-20 0.000 0.000 0.000 0.000 0.000 0.000 447.0 3.730E-20 0.000 0.000 0.000 0.000 0.000 0.000 448.0 4.140E-20 0.000 0.000 0.000 0.000 0.000 0.000 449.0 5.530E-20 0.000 0.000 0.000 0.000 0.000 0.000 450.0 8.680E-20 0.000 0.000 0.000 0.000 0.000 0.000 451.0 1.380E-19 0.000 0.000 0.000 0.000 0.000 0.000 452.0 1.590E-19 0.000 0.000 0.000 0.000 0.000 0.000 453.0 3.040E-19 0.000 0.000 0.000 0.000 0.000 0.000 454.0 2.690E-19 0.000 0.000 0.000 0.000 0.000 0.000 455.0 5.200E-19 0.000 0.000 0.000 0.000 0.000 0.000 456.0 1.570E-19 0.000 0.000 0.000 0.000 0.000 0.000 457.0 2.660E-20 0.000 0.000 0.000 0.000 0.000 0.000 458.0 2.200E-20 0.000 0.000 0.000 0.000 0.000 0.000 459.0 9.020E-21 0.000 0.000 0.000 0.000 0.000 0.000 460.0 1.200E-20 0.000 0.000 0.000 0.000 0.000 0.000 461.0 8.830E-21 0.000 0.000 0.000 0.000 0.000 0.000 462.0 5.880E-21 0.000 0.000 0.000 0.000 0.000 0.000 463.0 3.220E-21 0.000 0.000 0.000 0.000 0.000 0.000 464.0 3.390E-21 0.000 0.000 0.000 0.000 0.000 0.000 465.0 3.300E-21 0.000 0.000 0.000 0.000 0.000 0.000 466.0 4.160E-21 0.000 0.000 0.000 0.000 0.000 0.000 467.0 5.220E-21 0.000 0.000 0.000 0.000 0.000 0.000 468.0 1.490E-21 0.000 0.000 0.000 0.000 0.000 0.000 469.0 9.100E-22 0.000 0.000 0.000 0.000 0.000 0.000 470.0 7.600E-22 0.000 0.000 0.000 0.000 0.000 0.000 471.0 8.600E-22 0.000 0.000 0.000 0.000 0.000 0.000 472.0 9.200E-22 0.000 0.000 0.000 0.000 0.000 0.000 473.0 1.100E-21 0.000 0.000 0.000 0.000 0.000 0.000 474.0 1.080E-21 0.000 0.000 0.000 0.000 0.000 0.000 475.0 1.590E-21 0.000 0.000 0.000 0.000 0.000 0.000 476.0 1.550E-21 0.000 0.000 0.000 0.000 0.000 0.000 477.0 1.810E-21 0.000 0.000 0.000 0.000 0.000 0.000 478.0 2.550E-21 0.000 0.000 0.000 0.000 0.000 0.000 479.0 1.420E-21 0.000 0.000 0.000 0.000 0.000 0.000 480.0 7.400E-22 0.000 0.000 0.000 0.000 0.000 0.000 481.0 7.000E-22 0.000 0.000 0.000 0.000 0.000 0.000 482.0 6.500E-22 0.000 0.000 0.000 0.000 0.000 0.000 483.0 5.300E-22 0.000 0.000 0.000 0.000 0.000 0.000 484.0 7.100E-22 0.000 0.000 0.000 0.000 0.000 0.000 485.0 5.000E-22 0.000 0.000 0.000 0.000 0.000 0.000 486.0 4.100E-22 0.000 0.000 0.000 0.000 0.000 0.000 487.0 5.600E-22 0.000 0.000 0.000 0.000 0.000 0.000 488.0 7.000E-22 0.000 0.000 0.000 0.000 0.000 0.000 489.0 4.200E-22 0.000 0.000 0.000 0.000 0.000 0.000 490.0 4.500E-22 0.000 0.000 0.000 0.000 0.000 0.000 491.0 4.100E-22 0.000 0.000 0.000 0.000 0.000 0.000 492.0 3.900E-22 0.000 0.000 0.000 0.000 0.000 0.000 493.0 4.000E-22 0.000 0.000 0.000 0.000 0.000 0.000 494.0 4.100E-22 0.000 0.000 0.000 0.000 0.000 0.000 495.0 4.200E-22 0.000 0.000 0.000 0.000 0.000 0.000 496.0 4.500E-22 0.000 0.000 0.000 0.000 0.000 0.000 497.0 3.300E-22 0.000 0.000 0.000 0.000 0.000 0.000 498.0 3.500E-22 0.000 0.000 0.000 0.000 0.000 0.000 499.0 3.200E-22 0.000 0.000 0.000 0.000 0.000 0.000 500.0 3.300E-22 0.000 0.000 0.000 0.000 0.000 0.000 501.0 3.800E-22 0.000 0.000 0.000 0.000 0.000 0.000 502.0 3.100E-22 0.000 0.000 0.000 0.000 0.000 0.000 503.0 4.200E-22 0.000 0.000 0.000 0.000 0.000 0.000 504.0 3.400E-22 0.000 0.000 0.000 0.000 0.000 0.000 505.0 3.500E-22 0.000 0.000 0.000 0.000 0.000 0.000 506.0 4.600E-22 0.000 0.000 0.000 0.000 0.000 0.000 507.0 4.200E-22 0.000 0.000 0.000 0.000 0.000 0.000 508.0 3.700E-22 0.000 0.000 0.000 0.000 0.000 0.000 509.0 3.000E-22 0.000 0.000 0.000 0.000 0.000 0.000 510.0 2.300E-22 0.000 0.000 0.000 0.000 0.000 0.000 511.0 2.300E-22 0.000 0.000 0.000 0.000 0.000 0.000 512.0 3.000E-22 0.000 0.000 0.000 0.000 0.000 0.000 513.0 2.300E-22 0.000 0.000 0.000 0.000 0.000 0.000 514.0 3.000E-22 0.000 0.000 0.000 0.000 0.000 0.000 515.0 5.300E-22 0.000 0.000 0.000 0.000 0.000 0.000 516.0 3.500E-22 0.000 0.000 0.000 0.000 0.000 0.000 517.0 5.100E-22 0.000 0.000 0.000 0.000 0.000 0.000 518.0 1.020E-21 0.000 0.000 0.000 0.000 0.000 0.000 519.0 6.500E-22 0.000 0.000 0.000 0.000 0.000 0.000 520.0 1.000E-21 0.000 0.000 0.000 0.000 0.000 0.000 521.0 1.690E-21 0.000 0.000 0.000 0.000 0.000 0.000 522.0 3.700E-22 0.000 0.000 0.000 0.000 0.000 0.000 523.0 1.100E-22 0.000 0.000 0.000 0.000 0.000 0.000 524.0 7.000E-23 0.000 0.000 0.000 0.000 0.000 0.000 525.0 4.000E-23 0.000 0.000 0.000 0.000 0.000 0.000 526.0 0.000E+00 0.000 0.000 0.000 0.000 0.000 0.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/GLY_R_IUPAC13 ================================================ GLY_R_IUPAC10 !GLY = 2 HO2 + 2 CO !j(GLY) IUPAC(2013) ! From IUPAC Subcommittee on Gas Kinetic Data Evaluation ! Data Sheet P4, updated 19th Dec, 2013 !Glyoxal (CHOCHO) channel quantum yields (1 bar, 298 K) !Rate sums quantum yields of all nonzero channels because the species are !expected result from these channels if all HCHO is assumed to yield ! 2HO2+2CO ! !CHOCHO--->2HCO !CHOCHO--->2H+2CO !CHOCHO--->HCO+CO+H !Cross-Section combines IUPAC (2013) recommendation (250-473 nm) and JPL 2011 (474-526 nm). ! The latter comes from the URL: ! http://satellite.mpic.de/spectral_atlas/cross_sections ! accessed Feb. 12, 2016 ! Note that the JPL values are the same from 250 to 473 nm as IUPAC values ! !Quantum Yields based on recommendation ! http://iupac.pole-ether.fr/htdocs/datasheets/pdf/P4_(CHO)2+hv.pdf dated 2013 but ! the IUPAC data sheet appears to incorrectly use the formula for ! QY of total and individual channels derived in ! Salter, R. J., Blitz, M. A., Heard, D. E., Pilling, M. J., Rickard, A. R. and ! Seakins, P. W., Phys. Chem. Chem. Phys., 15, 6516, 2013. ! (1) In IUPAC datasheet, the right side of the phi total equation should use the ! reciprocal of pressure correction based on EQ6 in Salter et al. (2013) ! (2) The IUPAC datasheet may have reversed B1 and B2 values in Table 3 in Salter et al. ! (2013) for the individual ! !Channel Possible: !phi1 = H2 + 2CO !phi2 = HCO + HCO !phi3 = HCHO + CO !phi4 = HCO+CO+H !phi5 = 2H+2CO !phi6 = TOTAL !These are point values Points !wl(nm) XC(cm2) Total 2HO2+2CO,sum(phi2+phi4+phi5) FAC=1.0 200.0 1.725E-20 0.949 201.0 1.725E-20 0.949 202.0 1.725E-20 0.949 203.0 1.725E-20 0.949 204.0 1.725E-20 0.949 205.0 1.725E-20 0.949 206.0 1.725E-20 0.949 207.0 1.725E-20 0.948 208.0 1.725E-20 0.948 209.0 1.725E-20 0.948 210.0 1.725E-20 0.948 211.0 1.725E-20 0.948 212.0 1.725E-20 0.948 213.0 1.725E-20 0.947 214.0 1.725E-20 0.947 215.0 1.725E-20 0.947 216.0 1.725E-20 0.947 217.0 1.725E-20 0.946 218.0 1.725E-20 0.946 219.0 1.725E-20 0.946 220.0 1.725E-20 0.945 221.0 1.725E-20 0.945 222.0 1.725E-20 0.945 223.0 1.725E-20 0.944 224.0 1.725E-20 0.944 225.0 1.725E-20 0.943 226.0 1.725E-20 0.942 227.0 1.725E-20 0.942 228.0 1.725E-20 0.941 229.0 1.725E-20 0.940 230.0 1.725E-20 0.939 231.0 1.725E-20 0.938 232.0 1.725E-20 0.937 233.0 1.725E-20 0.936 234.0 1.725E-20 0.935 235.0 1.725E-20 0.934 236.0 1.725E-20 0.933 237.0 1.725E-20 0.931 238.0 1.725E-20 0.930 239.0 1.725E-20 0.928 240.0 1.725E-20 0.926 241.0 1.725E-20 0.924 242.0 1.725E-20 0.922 243.0 1.725E-20 0.920 244.0 1.725E-20 0.917 245.0 1.725E-20 0.914 246.0 1.725E-20 0.911 247.0 1.725E-20 0.908 248.0 1.725E-20 0.905 249.0 1.725E-20 0.901 250.0 1.725E-20 0.898 251.0 1.520E-20 0.894 252.0 1.477E-20 0.889 253.0 1.545E-20 0.884 254.0 1.596E-20 0.880 255.0 1.667E-20 0.874 256.0 1.619E-20 0.869 257.0 1.809E-20 0.863 258.0 1.823E-20 0.856 259.0 1.850E-20 0.850 260.0 1.828E-20 0.843 261.0 1.957E-20 0.836 262.0 2.027E-20 0.828 263.0 2.144E-20 0.820 264.0 2.184E-20 0.812 265.0 2.261E-20 0.803 266.0 2.333E-20 0.794 267.0 2.371E-20 0.785 268.0 2.361E-20 0.775 269.0 2.475E-20 0.765 270.0 2.509E-20 0.755 271.0 2.613E-20 0.745 272.0 2.720E-20 0.734 273.0 2.810E-20 0.724 274.0 2.920E-20 0.713 275.0 3.000E-20 0.702 276.0 3.060E-20 0.691 277.0 3.087E-20 0.681 278.0 3.078E-20 0.670 279.0 3.086E-20 0.659 280.0 3.135E-20 0.649 281.0 3.216E-20 0.639 282.0 3.322E-20 0.629 283.0 3.455E-20 0.619 284.0 3.568E-20 0.610 285.0 3.673E-20 0.601 286.0 3.797E-20 0.593 287.0 3.791E-20 0.584 288.0 3.813E-20 0.577 289.0 3.800E-20 0.570 290.0 3.734E-20 0.563 291.0 3.643E-20 0.557 292.0 3.654E-20 0.551 293.0 3.681E-20 0.546 294.0 3.729E-20 0.541 295.0 3.809E-20 0.537 296.0 3.824E-20 0.533 297.0 3.922E-20 0.530 298.0 4.073E-20 0.528 299.0 4.123E-20 0.525 300.0 4.045E-20 0.524 301.0 3.905E-20 0.523 302.0 3.779E-20 0.523 303.0 3.567E-20 0.523 304.0 3.350E-20 0.523 305.0 3.242E-20 0.524 306.0 3.223E-20 0.525 307.0 3.200E-20 0.527 308.0 3.146E-20 0.530 309.0 3.123E-20 0.532 310.0 3.100E-20 0.536 311.0 3.222E-20 0.539 312.0 3.343E-20 0.543 313.0 3.390E-20 0.547 314.0 3.233E-20 0.552 315.0 2.805E-20 0.557 316.0 2.646E-20 0.562 317.0 2.460E-20 0.567 318.0 2.214E-20 0.573 319.0 1.927E-20 0.578 320.0 1.854E-20 0.584 321.0 1.885E-20 0.590 322.0 1.766E-20 0.596 323.0 1.723E-20 0.602 324.0 1.677E-20 0.608 325.0 1.603E-20 0.614 326.0 1.606E-20 0.620 327.0 1.695E-20 0.625 328.0 1.937E-20 0.631 329.0 1.857E-20 0.636 330.0 1.689E-20 0.641 331.0 1.128E-20 0.645 332.0 1.048E-20 0.649 333.0 9.660E-21 0.653 334.0 9.190E-21 0.656 335.0 7.370E-21 0.659 336.0 6.300E-21 0.661 337.0 5.890E-21 0.663 338.0 6.470E-21 0.664 339.0 5.850E-21 0.664 340.0 5.530E-21 0.664 341.0 5.630E-21 0.663 342.0 5.100E-21 0.662 343.0 4.990E-21 0.660 344.0 6.490E-21 0.657 345.0 6.240E-21 0.654 346.0 7.330E-21 0.649 347.0 6.310E-21 0.645 348.0 6.040E-21 0.639 349.0 4.150E-21 0.633 350.0 3.910E-21 0.627 351.0 3.950E-21 0.619 352.0 4.230E-21 0.612 353.0 4.150E-21 0.603 354.0 4.030E-21 0.594 355.0 4.220E-21 0.585 356.0 4.430E-21 0.575 357.0 4.310E-21 0.565 358.0 4.710E-21 0.555 359.0 5.030E-21 0.544 360.0 5.460E-21 0.533 361.0 6.270E-21 0.521 362.0 7.060E-21 0.510 363.0 6.390E-21 0.498 364.0 6.800E-21 0.486 365.0 6.650E-21 0.474 366.0 7.430E-21 0.461 367.0 8.600E-21 0.449 368.0 1.012E-20 0.437 369.0 1.063E-20 0.425 370.0 1.139E-20 0.413 371.0 1.185E-20 0.400 372.0 1.141E-20 0.388 373.0 1.212E-20 0.376 374.0 1.352E-20 0.365 375.0 1.332E-20 0.353 376.0 1.377E-20 0.341 377.0 1.467E-20 0.330 378.0 1.605E-20 0.319 379.0 1.534E-20 0.308 380.0 1.934E-20 0.297 381.0 2.455E-20 0.287 382.0 2.019E-20 0.277 383.0 2.069E-20 0.267 384.0 1.939E-20 0.257 385.0 1.893E-20 0.248 386.0 1.835E-20 0.238 387.0 2.287E-20 0.229 388.0 3.000E-20 0.221 389.0 3.206E-20 0.212 390.0 3.483E-20 0.204 391.0 3.922E-20 0.196 392.0 3.801E-20 0.188 393.0 2.852E-20 0.180 394.0 3.147E-20 0.173 395.0 3.855E-20 0.165 396.0 3.679E-20 0.158 397.0 3.361E-20 0.151 398.0 4.323E-20 0.144 399.0 4.345E-20 0.137 400.0 3.873E-20 0.130 401.0 4.455E-20 0.123 402.0 5.843E-20 0.116 403.0 7.159E-20 0.108 404.0 6.237E-20 0.101 405.0 4.491E-20 0.094 406.0 4.482E-20 0.086 407.0 4.066E-20 0.078 408.0 3.444E-20 0.070 409.0 4.008E-20 0.063 410.0 5.661E-20 0.055 411.0 7.221E-20 0.048 412.0 7.406E-20 0.041 413.0 1.075E-19 0.035 414.0 1.012E-19 0.029 415.0 1.019E-19 0.024 416.0 6.073E-20 0.020 417.0 6.829E-20 0.016 418.0 7.873E-20 0.013 419.0 9.134E-20 0.010 420.0 5.602E-20 0.008 421.0 7.188E-20 0.007 422.0 6.990E-20 0.005 423.0 1.305E-19 0.004 424.0 8.239E-20 0.003 425.0 1.045E-19 0.003 426.0 1.641E-19 0.002 427.0 1.610E-19 0.002 428.0 2.142E-19 0.001 429.0 6.499E-20 0.001 430.0 7.027E-20 0.001 431.0 6.518E-20 0.001 432.0 6.082E-20 0.001 433.0 5.657E-20 0.000 434.0 6.809E-20 0.000 435.0 7.660E-20 0.000 436.0 1.319E-19 0.000 437.0 9.185E-20 0.000 438.0 1.382E-19 0.000 439.0 1.214E-19 0.000 440.0 2.594E-19 0.000 441.0 1.312E-19 0.000 442.0 9.013E-20 0.000 443.0 1.112E-19 0.000 444.0 1.346E-19 0.000 445.0 1.511E-19 0.000 446.0 7.818E-20 0.000 447.0 3.730E-20 0.000 448.0 4.144E-20 0.000 449.0 5.527E-20 0.000 450.0 8.682E-20 0.000 451.0 1.382E-19 0.000 452.0 1.595E-19 0.000 453.0 3.037E-19 0.000 454.0 2.690E-19 0.000 455.0 5.199E-19 0.000 456.0 1.567E-19 0.000 457.0 2.661E-20 0.000 458.0 2.201E-20 0.000 459.0 9.020E-21 0.000 460.0 1.202E-20 0.000 461.0 8.830E-21 0.000 462.0 5.880E-21 0.000 463.0 3.220E-21 0.000 464.0 3.390E-21 0.000 465.0 3.300E-21 0.000 466.0 4.160E-21 0.000 467.0 5.220E-21 0.000 468.0 1.490E-21 0.000 469.0 9.100E-22 0.000 470.0 7.600E-22 0.000 471.0 8.600E-22 0.000 472.0 9.200E-22 0.000 473.0 1.100E-21 0.000 474.0 1.080E-21 0.000 475.0 1.590E-21 0.000 476.0 1.550E-21 0.000 477.0 1.810E-21 0.000 478.0 2.550E-21 0.000 479.0 1.420E-21 0.000 480.0 7.400E-22 0.000 481.0 7.000E-22 0.000 482.0 6.500E-22 0.000 483.0 5.300E-22 0.000 484.0 7.100E-22 0.000 485.0 5.000E-22 0.000 486.0 4.100E-22 0.000 487.0 5.600E-22 0.000 488.0 7.000E-22 0.000 489.0 4.200E-22 0.000 490.0 4.500E-22 0.000 491.0 4.100E-22 0.000 492.0 3.900E-22 0.000 493.0 4.000E-22 0.000 494.0 4.100E-22 0.000 495.0 4.200E-22 0.000 496.0 4.500E-22 0.000 497.0 3.300E-22 0.000 498.0 3.500E-22 0.000 499.0 3.200E-22 0.000 500.0 3.300E-22 0.000 501.0 3.800E-22 0.000 502.0 3.100E-22 0.000 503.0 4.200E-22 0.000 504.0 3.400E-22 0.000 505.0 3.500E-22 0.000 506.0 4.600E-22 0.000 507.0 4.200E-22 0.000 508.0 3.700E-22 0.000 509.0 3.000E-22 0.000 510.0 2.300E-22 0.000 511.0 2.300E-22 0.000 512.0 3.000E-22 0.000 513.0 2.300E-22 0.000 514.0 3.000E-22 0.000 515.0 5.300E-22 0.000 516.0 3.500E-22 0.000 517.0 5.100E-22 0.000 518.0 1.020E-21 0.000 519.0 6.500E-22 0.000 520.0 1.000E-21 0.000 521.0 1.690E-21 0.000 522.0 3.700E-22 0.000 523.0 1.100E-22 0.000 524.0 7.000E-23 0.000 525.0 4.000E-23 0.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/GLY_R_SAPRC99 ================================================ GLY_R ! Glyoxal + hv = 2 HCO ! SAPRC-99 Photolysis data. Supplied by William P. L. Carter. ! Created from PhotDat.xls on 29-Jan-2000 10:07 Points (the mechanism was evaluated assuming this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 230.0 2.870E-21 1.000 235.0 2.870E-21 1.000 240.0 4.300E-21 1.000 245.0 5.730E-21 1.000 250.0 8.600E-21 1.000 255.0 1.150E-20 1.000 260.0 1.430E-20 1.000 265.0 1.860E-20 1.000 270.0 2.290E-20 1.000 275.0 2.580E-20 1.000 280.0 2.870E-20 1.000 285.0 3.300E-20 1.000 290.0 3.150E-20 1.000 295.0 3.300E-20 1.000 300.0 3.580E-20 1.000 305.0 2.720E-20 1.000 310.0 2.720E-20 1.000 312.5 2.870E-20 1.000 315.0 2.290E-20 1.000 320.0 1.430E-20 1.000 325.0 1.150E-20 1.000 327.5 1.430E-20 1.000 330.0 1.150E-20 1.000 335.0 2.870E-21 1.000 340.0 0.000E+00 1.000 345.0 0.000E+00 1.000 350.0 0.000E+00 1.000 355.0 0.000E+00 1.000 360.0 2.290E-21 1.000 365.0 2.870E-21 1.000 370.0 8.030E-21 1.000 375.0 1.000E-20 1.000 380.0 1.720E-20 0.972 382.0 1.580E-20 0.855 384.0 1.490E-20 0.737 386.0 1.490E-20 0.620 388.0 2.870E-20 0.502 390.0 3.150E-20 0.384 391.0 3.240E-20 0.326 392.0 3.040E-20 0.267 393.0 2.230E-20 0.208 394.0 2.630E-20 0.149 395.0 3.040E-20 0.090 396.0 2.630E-20 0.032 397.0 2.430E-20 0.000 398.0 3.240E-20 0.000 399.0 3.040E-20 0.000 400.0 2.840E-20 0.000 401.0 3.240E-20 0.000 402.0 4.460E-20 0.000 403.0 5.270E-20 0.000 404.0 4.260E-20 0.000 405.0 3.040E-20 0.000 406.0 3.040E-20 0.000 407.0 2.840E-20 0.000 408.0 2.430E-20 0.000 409.0 2.840E-20 0.000 410.0 6.080E-20 0.000 411.0 5.070E-20 0.000 411.5 6.080E-20 0.000 412.0 4.860E-20 0.000 413.0 8.310E-20 0.000 413.5 6.480E-20 0.000 414.0 7.500E-20 0.000 414.5 8.110E-20 0.000 415.0 8.110E-20 0.000 415.5 6.890E-20 0.000 416.0 4.260E-20 0.000 417.0 4.860E-20 0.000 418.0 5.880E-20 0.000 419.0 6.690E-20 0.000 420.0 3.850E-20 0.000 421.0 5.670E-20 0.000 421.5 4.460E-20 0.000 422.0 5.270E-20 0.000 422.5 1.050E-19 0.000 423.0 8.510E-20 0.000 424.0 6.080E-20 0.000 425.0 7.290E-20 0.000 426.0 1.180E-19 0.000 426.5 1.300E-19 0.000 427.0 1.070E-19 0.000 428.0 1.660E-19 0.000 429.0 4.050E-20 0.000 430.0 5.070E-20 0.000 431.0 4.860E-20 0.000 432.0 4.050E-20 0.000 433.0 3.650E-20 0.000 434.0 4.050E-20 0.000 434.5 6.080E-20 0.000 435.0 5.070E-20 0.000 436.0 8.110E-20 0.000 436.5 1.130E-19 0.000 437.0 5.270E-20 0.000 438.0 1.010E-19 0.000 438.5 1.380E-19 0.000 439.0 7.700E-20 0.000 440.0 2.470E-19 0.000 441.0 8.110E-20 0.000 442.0 6.080E-20 0.000 443.0 7.500E-20 0.000 444.0 9.320E-20 0.000 445.0 1.130E-19 0.000 446.0 5.270E-20 0.000 447.0 2.430E-20 0.000 448.0 2.840E-20 0.000 449.0 3.850E-20 0.000 450.0 6.080E-20 0.000 451.0 1.090E-19 0.000 451.5 9.320E-20 0.000 452.0 1.220E-19 0.000 453.0 2.390E-19 0.000 454.0 1.700E-19 0.000 455.0 3.400E-19 0.000 455.5 4.050E-19 0.000 456.0 1.010E-19 0.000 457.0 1.620E-20 0.000 458.0 1.220E-20 0.000 458.5 1.420E-20 0.000 459.0 4.050E-21 0.000 460.0 4.050E-21 0.000 460.5 6.080E-21 0.000 461.0 2.030E-21 0.000 462.0 0.000E+00 0.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/GLYform_RADM88 ================================================ GLYform_RADM88 ! Glyoxal Photolysis (GLYform) ! HCOCHO + hv -> HCHO + CO ! Abs CS from Plum et al. [1983] ! Carter's recommendation for low/high band quantum yields ! format: wl, abs_cs, qy Beginning ! With FAC, units are (cm^2/molecule) FAC=1.0 229.885 0.000E+00 0.000E+00 232.558 3.396E-21 0.000E+00 235.294 4.008E-21 0.000E+00 238.095 4.859E-21 0.000E+00 240.964 5.730E-21 0.000E+00 243.902 6.622E-21 0.000E+00 246.914 7.537E-21 0.000E+00 250.000 9.055E-21 0.000E+00 253.165 1.119E-20 0.000E+00 256.410 1.333E-20 0.000E+00 259.740 1.620E-20 0.000E+00 263.158 2.018E-20 0.000E+00 266.667 2.243E-20 0.000E+00 270.270 2.477E-20 0.000E+00 273.973 2.762E-20 0.000E+00 277.778 2.888E-20 0.000E+00 281.690 3.179E-20 0.000E+00 285.714 3.218E-20 0.000E+00 289.855 3.211E-20 0.000E+00 294.118 3.375E-20 0.000E+00 298.500 3.434E-20 0.000E+00 302.500 3.068E-20 0.000E+00 303.500 2.896E-20 0.000E+00 304.500 2.746E-20 0.000E+00 305.500 2.724E-20 0.000E+00 306.500 2.724E-20 0.000E+00 307.500 2.724E-20 0.000E+00 308.500 2.724E-20 0.000E+00 309.500 2.733E-20 0.000E+00 310.500 2.795E-20 0.000E+00 311.500 2.834E-20 0.000E+00 312.500 2.676E-20 0.000E+00 313.500 2.485E-20 0.000E+00 314.500 2.123E-20 0.000E+00 317.500 1.506E-20 0.000E+00 322.500 1.267E-20 0.000E+00 327.500 1.422E-20 0.000E+00 332.500 2.294E-20 0.000E+00 337.500 3.584E-21 0.000E+00 342.500 0.000E+00 2.500E-02 347.500 0.000E+00 2.500E-02 352.500 2.863E-22 2.500E-02 357.500 2.076E-21 2.500E-02 362.500 3.442E-21 2.500E-02 367.500 7.636E-21 2.500E-02 372.500 1.068E-20 2.500E-02 377.500 1.587E-20 2.500E-02 382.500 1.655E-20 2.500E-02 387.500 3.025E-20 2.500E-02 392.500 2.634E-20 2.500E-02 397.500 3.364E-20 2.500E-02 402.500 3.658E-20 2.500E-02 407.500 4.564E-20 2.500E-02 412.500 6.427E-20 2.500E-02 417.500 5.456E-20 2.500E-02 422.500 9.215E-20 2.500E-02 427.500 6.774E-20 2.500E-02 432.500 5.993E-20 2.500E-02 437.500 1.170E-19 2.500E-02 442.500 7.148E-20 2.500E-02 447.500 7.295E-20 2.500E-02 452.500 2.008E-19 2.500E-02 457.500 0.000E+00 2.500E-02 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/GLYmol_RADM88 ================================================ GLYmol_RADM88 ! Glyoxal Photolysis (GLYmol) ! HCOCHO + hv -> 2CO + H2 ! Abs CS from Plum et al. [1983] ! Carter's recommendation for low/high band quantum yields ! format: wl, abs_cs, qy Beginning ! With FAC, units are (cm^2/molecule) FAC=1.0 232.558 3.396E-21 1.000E+00 235.294 4.008E-21 1.000E+00 238.095 4.859E-21 1.000E+00 240.964 5.730E-21 1.000E+00 243.902 6.622E-21 1.000E+00 246.914 7.537E-21 1.000E+00 250.000 9.055E-21 1.000E+00 253.165 1.119E-20 1.000E+00 256.410 1.333E-20 1.000E+00 259.740 1.620E-20 1.000E+00 263.158 2.018E-20 1.000E+00 266.667 2.243E-20 1.000E+00 270.270 2.477E-20 1.000E+00 273.973 2.762E-20 1.000E+00 277.778 2.888E-20 1.000E+00 281.690 3.179E-20 1.000E+00 285.714 3.218E-20 1.000E+00 289.855 3.211E-20 1.000E+00 294.118 3.375E-20 1.000E+00 298.500 3.434E-20 1.000E+00 302.500 3.068E-20 1.000E+00 303.500 2.896E-20 1.000E+00 304.500 2.746E-20 1.000E+00 305.500 2.724E-20 1.000E+00 306.500 2.724E-20 1.000E+00 307.500 2.724E-20 1.000E+00 308.500 2.724E-20 1.000E+00 309.500 2.733E-20 1.000E+00 310.500 2.795E-20 1.000E+00 311.500 2.834E-20 1.000E+00 312.500 2.676E-20 1.000E+00 313.500 2.485E-20 1.000E+00 314.500 2.123E-20 1.000E+00 317.500 1.506E-20 1.000E+00 322.500 1.267E-20 1.000E+00 327.500 1.422E-20 1.000E+00 332.500 2.294E-20 1.000E+00 337.500 3.584E-21 1.000E+00 342.500 0.000E+00 0.000E+00 347.500 0.000E+00 0.000E+00 352.500 2.863E-22 0.000E+00 357.500 2.076E-21 0.000E+00 362.500 3.442E-21 0.000E+00 367.500 7.636E-21 0.000E+00 372.500 1.068E-20 0.000E+00 377.500 1.587E-20 0.000E+00 382.500 1.655E-20 0.000E+00 387.500 3.025E-20 0.000E+00 392.500 2.634E-20 0.000E+00 397.500 3.364E-20 0.000E+00 402.500 3.658E-20 0.000E+00 407.500 4.564E-20 0.000E+00 412.500 6.427E-20 0.000E+00 417.500 5.456E-20 0.000E+00 422.500 9.215E-20 0.000E+00 427.500 6.774E-20 0.000E+00 432.500 5.993E-20 0.000E+00 437.500 1.170E-19 0.000E+00 442.500 7.148E-20 0.000E+00 447.500 7.295E-20 0.000E+00 452.500 2.008E-19 0.000E+00 457.500 0.000E+00 0.000E+00 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/H2O2 ================================================ H2O2 ! H2O2 + HV = 2 OH ! IUPAC (1997) Recommended. Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 190.0 6.720E-19 1.0000 195.0 5.630E-19 1.0000 200.0 4.750E-19 1.0000 205.0 4.080E-19 1.0000 210.0 3.570E-19 1.0000 215.0 3.070E-19 1.0000 220.0 2.580E-19 1.0000 225.0 2.170E-19 1.0000 230.0 1.820E-19 1.0000 235.0 1.500E-19 1.0000 240.0 1.240E-19 1.0000 245.0 1.020E-19 1.0000 250.0 8.300E-20 1.0000 255.0 6.700E-20 1.0000 260.0 5.300E-20 1.0000 265.0 4.200E-20 1.0000 270.0 3.300E-20 1.0000 275.0 2.600E-20 1.0000 280.0 2.000E-20 1.0000 285.0 1.500E-20 1.0000 290.0 1.200E-20 1.0000 295.0 9.000E-21 1.0000 300.0 6.800E-21 1.0000 305.0 5.100E-21 1.0000 310.0 3.900E-21 1.0000 315.0 2.900E-21 1.0000 320.0 2.200E-21 1.0000 325.0 1.600E-21 1.0000 330.0 1.300E-21 1.0000 335.0 1.000E-21 1.0000 340.0 7.000E-22 1.0000 345.0 5.000E-22 1.0000 350.0 4.000E-22 1.0000 355.0 0.000E+00 1.0000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/H2O2_IUPAC10 ================================================ H2O2_IUPAC10 ! j(H2O2) IUPAC(2010) ! H2O2 = 2 OH ! From IUPAC Subcommittee on Gas Kinetic Data Evaluation ! Data Sheet PHOx2, updated 2 Oct, 2001 !These are point values Begining (the mechanism evaluated with this format) !WL(nm) XSEC(cm2) QY FAC=1.0 190.0 6.720E-19 1.000 195.0 5.630E-19 1.000 200.0 4.750E-19 1.000 205.0 4.080E-19 1.000 210.0 3.570E-19 1.000 215.0 3.070E-19 1.000 220.0 2.580E-19 1.000 225.0 2.170E-19 1.000 230.0 1.820E-19 1.000 235.0 1.500E-19 1.000 240.0 1.240E-19 1.000 245.0 1.020E-19 1.000 250.0 8.300E-20 1.000 255.0 6.700E-20 1.000 260.0 5.300E-20 1.000 265.0 4.200E-20 1.000 270.0 3.300E-20 1.000 275.0 2.600E-20 1.000 280.0 2.000E-20 1.000 285.0 1.500E-20 1.000 290.0 1.200E-20 1.000 295.0 9.000E-21 1.000 300.0 6.800E-21 1.000 305.0 5.100E-21 1.000 310.0 3.900E-21 1.000 315.0 2.900E-21 1.000 320.0 2.200E-21 1.000 325.0 1.600E-21 1.000 330.0 1.300E-21 1.000 335.0 1.000E-21 1.000 340.0 7.000E-22 1.000 345.0 5.000E-22 1.000 350.0 4.000E-22 1.000 355.0 0.000E+00 1.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/H2O2_NASA94 ================================================ H2O2_NASA94 ! Hydrogen Peroxide Photolysis (H2O2) ! H2O2 + hv -> OH + OH ! Taken from NASA (1994); Absorption CS for T=298 K; ! format: wl, abs_cs, qy Points ! With FAC, units are (cm^2/molecule) FAC=1.0E-20 190.0 67.2 1.0 195.0 56.4 1.0 200.0 47.5 1.0 205.0 40.8 1.0 210.0 35.7 1.0 215.0 30.7 1.0 220.0 25.8 1.0 225.0 21.7 1.0 230.0 18.2 1.0 235.0 15.0 1.0 240.0 12.4 1.0 245.0 10.2 1.0 250.0 8.3 1.0 255.0 6.7 1.0 260.0 5.3 1.0 265.0 4.2 1.0 270.0 3.3 1.0 275.0 2.6 1.0 280.0 2.0 1.0 285.0 1.5 1.0 290.0 1.2 1.0 295.0 0.90 1.0 300.0 0.68 1.0 305.0 0.51 1.0 310.0 0.39 1.0 315.0 0.29 1.0 320.0 0.22 1.0 325.0 0.16 1.0 330.0 0.13 1.0 335.0 0.10 1.0 340.0 0.07 1.0 345.0 0.05 1.0 350.0 0.04 1.0 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/H2O2_RACM2 ================================================ H2O2_RACM2 ! H2O2 + HV = HO + HO ! Absorption cross sections from NASA (2006) ! Quantum yield is taken to be 1.0 ! Supplied by Dr. Wendy Goliff, reformatted by Dr. Golam Sarwar to make it compatible with CMAQ Points ! With FAC, units are (cm^2/molecule) FAC=1.0 186.1 0.000E+00 1.000 187.8 0.000E+00 1.000 189.6 0.000E+00 1.000 191.4 0.642E-18 1.000 193.3 0.601E-18 1.000 195.2 0.560E-18 1.000 197.1 0.527E-18 1.000 199.0 0.493E-18 1.000 201.0 0.462E-18 1.000 203.1 0.433E-18 1.000 205.2 0.406E-18 1.000 207.3 0.385E-18 1.000 209.4 0.363E-18 1.000 211.7 0.340E-18 1.000 213.9 0.318E-18 1.000 216.2 0.295E-18 1.000 218.6 0.272E-18 1.000 221.0 0.250E-18 1.000 223.5 0.229E-18 1.000 226.0 0.210E-18 1.000 228.6 0.192E-18 1.000 231.3 0.174E-18 1.000 234.0 0.156E-18 1.000 236.7 0.141E-18 1.000 239.6 0.126E-18 1.000 242.5 0.113E-18 1.000 245.4 0.100E-18 1.000 248.5 0.887E-19 1.000 251.6 0.779E-19 1.000 254.8 0.676E-19 1.000 258.2 0.580E-19 1.000 261.5 0.497E-19 1.000 265.0 0.420E-19 1.000 268.5 0.357E-19 1.000 272.2 0.299E-19 1.000 275.9 0.249E-19 1.000 279.8 0.202E-19 1.000 283.7 0.163E-19 1.000 287.8 0.133E-19 1.000 292.0 0.108E-19 1.000 296.3 0.843E-20 1.000 300.5 0.663E-20 1.000 303.0 0.578E-20 1.000 304.0 0.544E-20 1.000 305.0 0.510E-20 1.000 306.0 0.486E-20 1.000 307.0 0.462E-20 1.000 308.0 0.438E-20 1.000 309.0 0.414E-20 1.000 310.0 0.390E-20 1.000 311.0 0.370E-20 1.000 312.0 0.350E-20 1.000 313.0 0.330E-20 1.000 314.0 0.310E-20 1.000 316.0 0.276E-20 1.000 320.0 0.220E-20 1.000 325.0 0.160E-20 1.000 330.0 0.130E-20 1.000 335.0 0.100E-20 1.000 340.0 0.700E-21 1.000 345.0 0.500E-21 1.000 350.0 0.400E-21 1.000 355.0 0.000E+00 1.000 360.0 0.000E+00 1.000 365.0 0.000E+00 1.000 370.0 0.000E+00 1.000 375.0 0.000E+00 1.000 380.0 0.000E+00 1.000 385.0 0.000E+00 1.000 390.0 0.000E+00 1.000 395.0 0.000E+00 1.000 400.0 0.000E+00 1.000 405.0 0.000E+00 1.000 410.0 0.000E+00 1.000 415.0 0.000E+00 1.000 420.0 0.000E+00 1.000 425.0 0.000E+00 1.000 430.0 0.000E+00 1.000 435.0 0.000E+00 1.000 440.0 0.000E+00 1.000 445.0 0.000E+00 1.000 450.0 0.000E+00 1.000 455.0 0.000E+00 1.000 460.0 0.000E+00 1.000 465.0 0.000E+00 1.000 470.0 0.000E+00 1.000 475.0 0.000E+00 1.000 480.0 0.000E+00 1.000 485.0 0.000E+00 1.000 490.0 0.000E+00 1.000 495.0 0.000E+00 1.000 500.0 0.000E+00 1.000 505.0 0.000E+00 1.000 510.0 0.000E+00 1.000 515.0 0.000E+00 1.000 520.0 0.000E+00 1.000 525.0 0.000E+00 1.000 530.0 0.000E+00 1.000 535.0 0.000E+00 1.000 540.0 0.000E+00 1.000 545.0 0.000E+00 1.000 550.0 0.000E+00 1.000 555.0 0.000E+00 1.000 560.0 0.000E+00 1.000 565.0 0.000E+00 1.000 570.0 0.000E+00 1.000 575.0 0.000E+00 1.000 580.0 0.000E+00 1.000 585.0 0.000E+00 1.000 590.0 0.000E+00 1.000 595.0 0.000E+00 1.000 600.0 0.000E+00 1.000 605.0 0.000E+00 1.000 610.0 0.000E+00 1.000 615.0 0.000E+00 1.000 620.0 0.000E+00 1.000 625.0 0.000E+00 1.000 630.0 0.000E+00 1.000 635.0 0.000E+00 1.000 640.0 0.000E+00 1.000 644.8 0.000E+00 1.000 651.0 0.000E+00 1.000 660.0 0.000E+00 1.000 670.0 0.000E+00 1.000 680.0 0.000E+00 1.000 690.0 0.000E+00 1.000 700.0 0.000E+00 1.000 710.0 0.000E+00 1.000 720.0 0.000E+00 1.000 730.0 0.000E+00 1.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/H2O2_RADM88 ================================================ H2O2_RADM88 ! Hydrogen Peroxide Photolysis (H2O2) ! H2O2 + hv -> OH + OH ! Abs. CS avg of Lin et al. [1978] and Molina and Molina [1981]; ! QY assumed to be unity over UV absorption range ! format: wl, abs_cs, qy Beginning ! With FAC, units are (cm^2/molecule) FAC=1.0 190.476 3.207E-19 1.000E+00 192.308 3.003E-19 1.000E+00 194.175 2.801E-19 1.000E+00 196.078 5.272E-19 1.000E+00 198.020 4.925E-19 1.000E+00 200.000 4.615E-19 1.000E+00 202.020 4.341E-19 1.000E+00 204.082 4.068E-19 1.000E+00 206.186 3.816E-19 1.000E+00 208.333 3.563E-19 1.000E+00 210.526 3.329E-19 1.000E+00 212.766 3.100E-19 1.000E+00 215.054 2.881E-19 1.000E+00 217.391 2.671E-19 1.000E+00 219.780 2.463E-19 1.000E+00 222.222 2.260E-19 1.000E+00 224.719 2.066E-19 1.000E+00 227.273 1.888E-19 1.000E+00 229.885 1.714E-19 1.000E+00 232.558 1.547E-19 1.000E+00 235.294 1.392E-19 1.000E+00 238.095 1.246E-19 1.000E+00 240.964 1.116E-19 1.000E+00 243.902 9.925E-20 1.000E+00 246.914 8.805E-20 1.000E+00 250.000 7.761E-20 1.000E+00 253.165 6.782E-20 1.000E+00 256.410 5.796E-20 1.000E+00 259.740 4.920E-20 1.000E+00 263.158 4.207E-20 1.000E+00 266.667 3.539E-20 1.000E+00 270.270 2.960E-20 1.000E+00 273.973 2.463E-20 1.000E+00 277.778 2.021E-20 1.000E+00 281.690 1.613E-20 1.000E+00 285.714 1.288E-20 1.000E+00 289.855 1.030E-20 1.000E+00 294.118 8.164E-21 1.000E+00 298.500 6.467E-21 1.000E+00 302.500 5.595E-21 1.000E+00 303.500 5.255E-21 1.000E+00 304.500 4.929E-21 1.000E+00 305.500 4.686E-21 1.000E+00 306.500 4.457E-21 1.000E+00 307.500 4.228E-21 1.000E+00 308.500 3.999E-21 1.000E+00 309.500 3.774E-21 1.000E+00 310.500 3.576E-21 1.000E+00 311.500 3.382E-21 1.000E+00 312.500 3.188E-21 1.000E+00 313.500 2.994E-21 1.000E+00 314.500 2.652E-21 1.000E+00 317.500 2.075E-21 1.000E+00 322.500 1.528E-21 1.000E+00 327.500 1.186E-21 1.000E+00 332.500 9.363E-22 1.000E+00 337.500 6.863E-22 1.000E+00 342.500 5.031E-22 1.000E+00 347.500 3.250E-22 1.000E+00 352.500 0.000E+00 1.000E+00 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/H2O2_SAPRC99 ================================================ H2O2 ! H2O2 + HV = 2 OH ! SAPRC-99 Photolysis data. Supplied by William P. L. Carter. ! Created from PhotDat.xls on 29-Jan-2000 10:07 Points (the mechanism was evaluated assuming this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 190.0 6.720E-19 1.000 195.0 5.630E-19 1.000 200.0 4.750E-19 1.000 205.0 4.080E-19 1.000 210.0 3.570E-19 1.000 215.0 3.070E-19 1.000 220.0 2.580E-19 1.000 225.0 2.170E-19 1.000 230.0 1.820E-19 1.000 235.0 1.500E-19 1.000 240.0 1.240E-19 1.000 245.0 1.020E-19 1.000 250.0 8.300E-20 1.000 255.0 6.700E-20 1.000 260.0 5.300E-20 1.000 265.0 4.200E-20 1.000 270.0 3.300E-20 1.000 275.0 2.600E-20 1.000 280.0 2.000E-20 1.000 285.0 1.500E-20 1.000 290.0 1.200E-20 1.000 295.0 9.000E-21 1.000 300.0 6.800E-21 1.000 305.0 5.100E-21 1.000 310.0 3.900E-21 1.000 315.0 2.900E-21 1.000 320.0 2.200E-21 1.000 325.0 1.600E-21 1.000 330.0 1.300E-21 1.000 335.0 1.000E-21 1.000 340.0 7.000E-22 1.000 345.0 5.000E-22 1.000 350.0 4.000E-22 1.000 355.0 0.000E+00 1.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/HCHOM-06 ================================================ HCHOM-06 ! HCHO + HV = H2 + CO ! IUPAC Subcommittee on Gas Kinetic Data Evaluation Data Sheet P1 ! This datasheet updated: 16th May 2002. ! Website: http://www.iupac-kinetic.ch.cam.ac.uk/. ! IUPAC recommendations used for both absorption cross sections and quantum yield ! Quantum yields for wl < 0.360 interpolated. ! Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 240.0 7.820E-22 0.4900 241.0 7.750E-22 0.4900 242.0 1.227E-21 0.4900 243.0 1.591E-21 0.4900 244.0 1.096E-21 0.4900 245.0 1.313E-21 0.4900 246.0 1.634E-21 0.4900 247.0 1.511E-21 0.4900 248.0 2.338E-21 0.4900 249.0 3.178E-21 0.4900 250.0 2.572E-21 0.4900 251.0 2.039E-21 0.4900 252.0 3.366E-21 0.4900 253.0 2.894E-21 0.4900 254.0 3.417E-21 0.4900 255.0 4.502E-21 0.4900 256.0 6.282E-21 0.4900 257.0 4.430E-21 0.4900 258.0 3.073E-21 0.4900 259.0 6.174E-21 0.4900 260.0 6.045E-21 0.4900 261.0 6.591E-21 0.4780 262.0 6.033E-21 0.4660 263.0 1.077E-20 0.4540 264.0 9.465E-21 0.4420 265.0 5.305E-21 0.4300 266.0 5.387E-21 0.4180 267.0 1.360E-20 0.4060 268.0 1.243E-20 0.3940 269.0 9.908E-21 0.3830 270.0 9.626E-21 0.3770 271.0 1.941E-20 0.3700 272.0 1.430E-20 0.3640 273.0 8.106E-21 0.3570 274.0 6.575E-21 0.3510 275.0 2.143E-20 0.3440 276.0 2.584E-20 0.3380 277.0 1.573E-20 0.3310 278.0 1.035E-20 0.3250 279.0 2.451E-20 0.3160 280.0 2.338E-20 0.3020 281.0 1.562E-20 0.2870 282.0 9.728E-21 0.2730 283.0 7.224E-21 0.2580 284.0 4.265E-20 0.2450 285.0 4.050E-20 0.2390 286.0 2.095E-20 0.2320 287.0 1.153E-20 0.2260 288.0 3.169E-20 0.2190 289.0 3.225E-20 0.2180 290.0 1.173E-20 0.2320 291.0 1.836E-20 0.2460 292.0 7.973E-21 0.2610 293.0 3.128E-20 0.2750 294.0 7.154E-20 0.2890 295.0 4.054E-20 0.3020 296.0 2.474E-20 0.3140 297.0 1.367E-20 0.3260 298.0 4.217E-20 0.3390 299.0 3.175E-20 0.3410 300.0 9.638E-21 0.3120 301.0 1.625E-20 0.2820 302.0 8.537E-21 0.2590 303.0 3.021E-20 0.2370 304.0 7.219E-20 0.2300 305.0 4.752E-20 0.2680 306.0 4.292E-20 0.3060 307.0 1.781E-20 0.3010 308.0 1.385E-20 0.2800 309.0 3.252E-20 0.2680 310.0 1.737E-20 0.2810 311.0 4.623E-21 0.2930 312.0 1.188E-20 0.2930 313.0 9.064E-21 0.2880 314.0 5.637E-20 0.2890 315.0 5.565E-20 0.3060 316.0 2.561E-20 0.3230 317.0 5.777E-20 0.3290 318.0 3.151E-20 0.3310 319.0 9.779E-21 0.3330 320.0 1.194E-20 0.3350 321.0 1.598E-20 0.3370 322.0 7.216E-21 0.3540 323.0 3.281E-21 0.3770 324.0 8.584E-21 0.4000 325.0 1.578E-20 0.4230 326.0 6.876E-20 0.4460 327.0 4.370E-20 0.4900 328.0 1.220E-20 0.5400 329.0 3.120E-20 0.5620 330.0 3.865E-20 0.5010 331.0 1.412E-20 0.4390 332.0 3.474E-21 0.4440 333.0 2.135E-21 0.4700 334.0 1.587E-21 0.5030 335.0 9.670E-22 0.5580 336.0 1.261E-21 0.6130 337.0 3.825E-21 0.6070 338.0 1.919E-20 0.5790 339.0 5.381E-20 0.5590 340.0 3.151E-20 0.5600 341.0 9.783E-21 0.5250 342.0 5.093E-21 0.4900 343.0 1.922E-20 0.4550 344.0 1.268E-20 0.4200 345.0 4.369E-21 0.3850 346.0 1.190E-21 0.3500 347.0 4.410E-22 0.3150 348.0 7.540E-22 0.2800 349.0 3.790E-22 0.2450 350.0 3.620E-22 0.2100 351.0 8.930E-22 0.1920 352.0 7.295E-21 0.1740 353.0 2.275E-20 0.1560 354.0 1.645E-20 0.1380 355.0 6.964E-21 0.1200 356.0 1.483E-21 0.1020 357.0 3.450E-22 0.0840 358.0 1.860E-22 0.0660 359.0 1.110E-22 0.0480 360.0 8.700E-23 0.0300 361.0 1.000E-22 0.0120 362.0 2.110E-22 0.0000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/HCHOM_06 ================================================ HCHOM-06 ! HCHO + HV = H2 + CO ! IUPAC Subcommittee on Gas Kinetic Data Evaluation Data Sheet P1 ! This datasheet updated: 16th May 2002. ! Website: http://www.iupac-kinetic.ch.cam.ac.uk/. ! IUPAC recommendations used for both absorption cross sections and quantum yield ! Quantum yields for wl < 0.360 interpolated. ! Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 240.0 7.820E-22 0.4900 241.0 7.750E-22 0.4900 242.0 1.227E-21 0.4900 243.0 1.591E-21 0.4900 244.0 1.096E-21 0.4900 245.0 1.313E-21 0.4900 246.0 1.634E-21 0.4900 247.0 1.511E-21 0.4900 248.0 2.338E-21 0.4900 249.0 3.178E-21 0.4900 250.0 2.572E-21 0.4900 251.0 2.039E-21 0.4900 252.0 3.366E-21 0.4900 253.0 2.894E-21 0.4900 254.0 3.417E-21 0.4900 255.0 4.502E-21 0.4900 256.0 6.282E-21 0.4900 257.0 4.430E-21 0.4900 258.0 3.073E-21 0.4900 259.0 6.174E-21 0.4900 260.0 6.045E-21 0.4900 261.0 6.591E-21 0.4780 262.0 6.033E-21 0.4660 263.0 1.077E-20 0.4540 264.0 9.465E-21 0.4420 265.0 5.305E-21 0.4300 266.0 5.387E-21 0.4180 267.0 1.360E-20 0.4060 268.0 1.243E-20 0.3940 269.0 9.908E-21 0.3830 270.0 9.626E-21 0.3770 271.0 1.941E-20 0.3700 272.0 1.430E-20 0.3640 273.0 8.106E-21 0.3570 274.0 6.575E-21 0.3510 275.0 2.143E-20 0.3440 276.0 2.584E-20 0.3380 277.0 1.573E-20 0.3310 278.0 1.035E-20 0.3250 279.0 2.451E-20 0.3160 280.0 2.338E-20 0.3020 281.0 1.562E-20 0.2870 282.0 9.728E-21 0.2730 283.0 7.224E-21 0.2580 284.0 4.265E-20 0.2450 285.0 4.050E-20 0.2390 286.0 2.095E-20 0.2320 287.0 1.153E-20 0.2260 288.0 3.169E-20 0.2190 289.0 3.225E-20 0.2180 290.0 1.173E-20 0.2320 291.0 1.836E-20 0.2460 292.0 7.973E-21 0.2610 293.0 3.128E-20 0.2750 294.0 7.154E-20 0.2890 295.0 4.054E-20 0.3020 296.0 2.474E-20 0.3140 297.0 1.367E-20 0.3260 298.0 4.217E-20 0.3390 299.0 3.175E-20 0.3410 300.0 9.638E-21 0.3120 301.0 1.625E-20 0.2820 302.0 8.537E-21 0.2590 303.0 3.021E-20 0.2370 304.0 7.219E-20 0.2300 305.0 4.752E-20 0.2680 306.0 4.292E-20 0.3060 307.0 1.781E-20 0.3010 308.0 1.385E-20 0.2800 309.0 3.252E-20 0.2680 310.0 1.737E-20 0.2810 311.0 4.623E-21 0.2930 312.0 1.188E-20 0.2930 313.0 9.064E-21 0.2880 314.0 5.637E-20 0.2890 315.0 5.565E-20 0.3060 316.0 2.561E-20 0.3230 317.0 5.777E-20 0.3290 318.0 3.151E-20 0.3310 319.0 9.779E-21 0.3330 320.0 1.194E-20 0.3350 321.0 1.598E-20 0.3370 322.0 7.216E-21 0.3540 323.0 3.281E-21 0.3770 324.0 8.584E-21 0.4000 325.0 1.578E-20 0.4230 326.0 6.876E-20 0.4460 327.0 4.370E-20 0.4900 328.0 1.220E-20 0.5400 329.0 3.120E-20 0.5620 330.0 3.865E-20 0.5010 331.0 1.412E-20 0.4390 332.0 3.474E-21 0.4440 333.0 2.135E-21 0.4700 334.0 1.587E-21 0.5030 335.0 9.670E-22 0.5580 336.0 1.261E-21 0.6130 337.0 3.825E-21 0.6070 338.0 1.919E-20 0.5790 339.0 5.381E-20 0.5590 340.0 3.151E-20 0.5600 341.0 9.783E-21 0.5250 342.0 5.093E-21 0.4900 343.0 1.922E-20 0.4550 344.0 1.268E-20 0.4200 345.0 4.369E-21 0.3850 346.0 1.190E-21 0.3500 347.0 4.410E-22 0.3150 348.0 7.540E-22 0.2800 349.0 3.790E-22 0.2450 350.0 3.620E-22 0.2100 351.0 8.930E-22 0.1920 352.0 7.295E-21 0.1740 353.0 2.275E-20 0.1560 354.0 1.645E-20 0.1380 355.0 6.964E-21 0.1200 356.0 1.483E-21 0.1020 357.0 3.450E-22 0.0840 358.0 1.860E-22 0.0660 359.0 1.110E-22 0.0480 360.0 8.700E-23 0.0300 361.0 1.000E-22 0.0120 362.0 2.110E-22 0.0000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/HCHOR-06 ================================================ HCHOR-06 ! HCHO + HV = HCO. + H. ! IUPAC Subcommittee on Gas Kinetic Data Evaluation Data Sheet P1 ! This datasheet updated: 16th May 2002. ! Website: http://www.iupac-kinetic.ch.cam.ac.uk/. ! IUPAC recommendations used for both absorption cross sections and quantum yield ! Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 240.0 7.820E-22 0.2700 241.0 7.750E-22 0.2720 242.0 1.227E-21 0.2740 243.0 1.591E-21 0.2760 244.0 1.096E-21 0.2780 245.0 1.313E-21 0.2800 246.0 1.634E-21 0.2820 247.0 1.511E-21 0.2840 248.0 2.338E-21 0.2860 249.0 3.178E-21 0.2880 250.0 2.572E-21 0.2900 251.0 2.039E-21 0.2910 252.0 3.366E-21 0.2920 253.0 2.894E-21 0.2930 254.0 3.417E-21 0.2940 255.0 4.502E-21 0.2950 256.0 6.282E-21 0.2960 257.0 4.430E-21 0.2970 258.0 3.073E-21 0.2980 259.0 6.174E-21 0.2990 260.0 6.045E-21 0.3000 261.0 6.591E-21 0.3140 262.0 6.033E-21 0.3290 263.0 1.077E-20 0.3430 264.0 9.465E-21 0.3570 265.0 5.305E-21 0.3710 266.0 5.387E-21 0.3860 267.0 1.360E-20 0.4000 268.0 1.243E-20 0.4140 269.0 9.908E-21 0.4290 270.0 9.626E-21 0.4430 271.0 1.941E-20 0.4580 272.0 1.430E-20 0.4720 273.0 8.106E-21 0.4870 274.0 6.575E-21 0.5010 275.0 2.143E-20 0.5160 276.0 2.584E-20 0.5300 277.0 1.573E-20 0.5450 278.0 1.035E-20 0.5590 279.0 2.451E-20 0.5750 280.0 2.338E-20 0.5960 281.0 1.562E-20 0.6160 282.0 9.728E-21 0.6370 283.0 7.224E-21 0.6580 284.0 4.265E-20 0.6770 285.0 4.050E-20 0.6910 286.0 2.095E-20 0.7060 287.0 1.153E-20 0.7210 288.0 3.169E-20 0.7350 289.0 3.225E-20 0.7430 290.0 1.173E-20 0.7330 291.0 1.836E-20 0.7230 292.0 7.973E-21 0.7120 293.0 3.128E-20 0.7020 294.0 7.154E-20 0.6910 295.0 4.054E-20 0.6810 296.0 2.474E-20 0.6710 297.0 1.367E-20 0.6600 298.0 4.217E-20 0.6500 299.0 3.175E-20 0.6500 300.0 9.638E-21 0.6840 301.0 1.625E-20 0.7170 302.0 8.537E-21 0.7420 303.0 3.021E-20 0.7640 304.0 7.219E-20 0.7700 305.0 4.752E-20 0.7320 306.0 4.292E-20 0.6940 307.0 1.781E-20 0.6990 308.0 1.385E-20 0.7200 309.0 3.252E-20 0.7320 310.0 1.737E-20 0.7200 311.0 4.623E-21 0.7070 312.0 1.188E-20 0.7070 313.0 9.064E-21 0.7120 314.0 5.637E-20 0.7110 315.0 5.565E-20 0.6940 316.0 2.561E-20 0.6770 317.0 5.777E-20 0.6720 318.0 3.151E-20 0.6700 319.0 9.779E-21 0.6680 320.0 1.194E-20 0.6660 321.0 1.598E-20 0.6640 322.0 7.216E-21 0.6430 323.0 3.281E-21 0.6160 324.0 8.584E-21 0.5890 325.0 1.578E-20 0.5620 326.0 6.876E-20 0.5350 327.0 4.370E-20 0.4820 328.0 1.220E-20 0.4200 329.0 3.120E-20 0.3830 330.0 3.865E-20 0.4250 331.0 1.412E-20 0.4660 332.0 3.474E-21 0.4270 333.0 2.135E-21 0.3610 334.0 1.587E-21 0.2870 335.0 9.670E-22 0.1920 336.0 1.261E-21 0.0960 337.0 3.825E-21 0.0630 338.0 1.919E-20 0.0500 339.0 5.381E-20 0.0330 340.0 3.151E-20 0.0000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/HCHOR_06 ================================================ HCHOR-06 ! HCHO + HV = HCO. + H. ! IUPAC Subcommittee on Gas Kinetic Data Evaluation Data Sheet P1 ! This datasheet updated: 16th May 2002. ! Website: http://www.iupac-kinetic.ch.cam.ac.uk/. ! IUPAC recommendations used for both absorption cross sections and quantum yield ! Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 240.0 7.820E-22 0.2700 241.0 7.750E-22 0.2720 242.0 1.227E-21 0.2740 243.0 1.591E-21 0.2760 244.0 1.096E-21 0.2780 245.0 1.313E-21 0.2800 246.0 1.634E-21 0.2820 247.0 1.511E-21 0.2840 248.0 2.338E-21 0.2860 249.0 3.178E-21 0.2880 250.0 2.572E-21 0.2900 251.0 2.039E-21 0.2910 252.0 3.366E-21 0.2920 253.0 2.894E-21 0.2930 254.0 3.417E-21 0.2940 255.0 4.502E-21 0.2950 256.0 6.282E-21 0.2960 257.0 4.430E-21 0.2970 258.0 3.073E-21 0.2980 259.0 6.174E-21 0.2990 260.0 6.045E-21 0.3000 261.0 6.591E-21 0.3140 262.0 6.033E-21 0.3290 263.0 1.077E-20 0.3430 264.0 9.465E-21 0.3570 265.0 5.305E-21 0.3710 266.0 5.387E-21 0.3860 267.0 1.360E-20 0.4000 268.0 1.243E-20 0.4140 269.0 9.908E-21 0.4290 270.0 9.626E-21 0.4430 271.0 1.941E-20 0.4580 272.0 1.430E-20 0.4720 273.0 8.106E-21 0.4870 274.0 6.575E-21 0.5010 275.0 2.143E-20 0.5160 276.0 2.584E-20 0.5300 277.0 1.573E-20 0.5450 278.0 1.035E-20 0.5590 279.0 2.451E-20 0.5750 280.0 2.338E-20 0.5960 281.0 1.562E-20 0.6160 282.0 9.728E-21 0.6370 283.0 7.224E-21 0.6580 284.0 4.265E-20 0.6770 285.0 4.050E-20 0.6910 286.0 2.095E-20 0.7060 287.0 1.153E-20 0.7210 288.0 3.169E-20 0.7350 289.0 3.225E-20 0.7430 290.0 1.173E-20 0.7330 291.0 1.836E-20 0.7230 292.0 7.973E-21 0.7120 293.0 3.128E-20 0.7020 294.0 7.154E-20 0.6910 295.0 4.054E-20 0.6810 296.0 2.474E-20 0.6710 297.0 1.367E-20 0.6600 298.0 4.217E-20 0.6500 299.0 3.175E-20 0.6500 300.0 9.638E-21 0.6840 301.0 1.625E-20 0.7170 302.0 8.537E-21 0.7420 303.0 3.021E-20 0.7640 304.0 7.219E-20 0.7700 305.0 4.752E-20 0.7320 306.0 4.292E-20 0.6940 307.0 1.781E-20 0.6990 308.0 1.385E-20 0.7200 309.0 3.252E-20 0.7320 310.0 1.737E-20 0.7200 311.0 4.623E-21 0.7070 312.0 1.188E-20 0.7070 313.0 9.064E-21 0.7120 314.0 5.637E-20 0.7110 315.0 5.565E-20 0.6940 316.0 2.561E-20 0.6770 317.0 5.777E-20 0.6720 318.0 3.151E-20 0.6700 319.0 9.779E-21 0.6680 320.0 1.194E-20 0.6660 321.0 1.598E-20 0.6640 322.0 7.216E-21 0.6430 323.0 3.281E-21 0.6160 324.0 8.584E-21 0.5890 325.0 1.578E-20 0.5620 326.0 6.876E-20 0.5350 327.0 4.370E-20 0.4820 328.0 1.220E-20 0.4200 329.0 3.120E-20 0.3830 330.0 3.865E-20 0.4250 331.0 1.412E-20 0.4660 332.0 3.474E-21 0.4270 333.0 2.135E-21 0.3610 334.0 1.587E-21 0.2870 335.0 9.670E-22 0.1920 336.0 1.261E-21 0.0960 337.0 3.825E-21 0.0630 338.0 1.919E-20 0.0500 339.0 5.381E-20 0.0330 340.0 3.151E-20 0.0000 341.0 9.783E-21 0.0000 342.0 5.093E-21 0.0000 343.0 1.922E-20 0.0000 344.0 1.268E-20 0.0000 345.0 4.369E-21 0.0000 346.0 1.190E-21 0.0000 347.0 4.410E-22 0.0000 348.0 7.540E-22 0.0000 349.0 3.790E-22 0.0000 350.0 3.620E-22 0.0000 351.0 8.930E-22 0.0000 352.0 7.295E-21 0.0000 353.0 2.275E-20 0.0000 354.0 1.645E-20 0.0000 355.0 6.964E-21 0.0000 356.0 1.483E-21 0.0000 357.0 3.450E-22 0.0000 358.0 1.860E-22 0.0000 359.0 1.110E-22 0.0000 360.0 8.700E-23 0.0000 361.0 1.000E-22 0.0000 362.0 2.110E-22 0.0000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/HCHO_MOL_JPL19 ================================================ HCHO_MOL_JPL19 ! HCHO + HV = CO + H2 ! Source: Chemical Kinetics and Photochemical Data for Use in Atmospheric Studies, Evaluation No. ! 19," JPL Publication 19-5, Jet Propulsion Laboratory, Pasadena, ! 2019 http://jpldataeval.jpl.nasa.gov ! Absorption x-section from Table 4D-2 (Recommended Absorption Cross Sections of CH2O at 298 K and Temperature Coefficients Averaged over 1 nm Intervals) ! Quantum yield from Table 4D-4 (Recommended CH2O Photolysis Quantum Yields at 300 K and 1 Atmosphere) ! Supplied by Dr. William Stockwell, reformatted by Dr. Golam Sarwar to make it compatible with CMAQ ! Points ! With FAC, units are (cm^2/molecule) FAC=1.0 226 1.93E-22 0.000 227 1.82E-22 0.000 228 1.91E-22 0.000 229 2.05E-22 0.000 230 2.21E-22 0.000 231 3.56E-22 0.000 232 3.62E-22 0.000 233 2.83E-22 0.000 234 3.51E-22 0.000 235 3.92E-22 0.000 236 5.82E-22 0.000 237 8.33E-22 0.000 238 6.14E-22 0.000 239 7.37E-22 0.000 240 8.45E-22 0.000 241 8.37E-22 0.000 242 1.33E-21 0.000 243 1.72E-21 0.000 244 1.18E-21 0.000 245 1.42E-21 0.000 246 1.76E-21 0.000 247 1.63E-21 0.000 248 2.53E-21 0.000 249 3.43E-21 0.000 250 2.78E-21 0.490 251 2.20E-21 0.492 252 3.64E-21 0.493 253 3.12E-21 0.494 254 3.69E-21 0.495 255 4.86E-21 0.496 256 6.79E-21 0.496 257 4.78E-21 0.497 258 3.32E-21 0.497 259 6.67E-21 0.496 260 6.52E-21 0.493 261 7.13E-21 0.490 262 6.50E-21 0.487 263 1.17E-20 0.485 264 1.02E-20 0.482 265 5.72E-21 0.477 266 5.81E-21 0.471 267 1.47E-20 0.465 268 1.34E-20 0.458 269 1.07E-20 0.450 270 1.04E-20 0.441 271 2.10E-20 0.432 272 1.54E-20 0.422 273 8.75E-21 0.412 274 7.10E-21 0.401 275 2.32E-20 0.391 276 2.80E-20 0.380 277 1.70E-20 0.371 278 1.11E-20 0.362 279 2.65E-20 0.356 280 2.53E-20 0.347 281 1.68E-20 0.337 282 1.05E-20 0.329 283 7.78E-21 0.321 284 4.61E-20 0.313 285 4.37E-20 0.307 286 2.26E-20 0.302 287 1.24E-20 0.296 288 3.42E-20 0.291 289 3.48E-20 0.284 290 1.26E-20 0.278 291 1.99E-20 0.272 292 8.60E-21 0.266 293 3.36E-20 0.262 294 7.72E-20 0.259 295 4.38E-20 0.256 296 2.68E-20 0.254 297 1.47E-20 0.252 298 4.56E-20 0.249 299 3.42E-20 0.245 300 1.04E-20 0.242 301 1.76E-20 0.239 302 9.20E-21 0.238 303 3.26E-20 0.238 304 7.81E-20 0.238 305 5.12E-20 0.240 306 4.63E-20 0.242 307 1.92E-20 0.246 308 1.49E-20 0.251 309 3.52E-20 0.256 310 1.88E-20 0.263 311 4.98E-21 0.271 312 1.28E-20 0.280 313 9.74E-21 0.291 314 6.10E-20 0.302 315 6.00E-20 0.315 316 2.74E-20 0.329 317 6.25E-20 0.344 318 3.40E-20 0.361 319 1.05E-20 0.378 320 1.28E-20 0.397 321 1.73E-20 0.417 322 7.79E-21 0.439 323 3.53E-21 0.461 324 9.30E-21 0.485 325 1.66E-20 0.511 326 7.42E-20 0.537 327 4.72E-20 0.565 328 1.32E-20 0.594 329 3.37E-20 0.625 330 4.17E-20 0.657 331 1.52E-20 0.690 332 3.74E-21 0.714 333 2.31E-21 0.730 334 1.72E-21 0.737 335 1.04E-21 0.735 336 1.36E-21 0.724 337 4.14E-21 0.705 338 2.07E-20 0.687 339 5.94E-20 0.665 340 3.40E-20 0.645 341 1.06E-20 0.620 342 5.44E-21 0.590 343 2.07E-20 0.560 344 1.37E-20 0.530 345 4.71E-21 0.505 346 1.28E-21 0.480 347 4.76E-22 0.450 348 8.18E-22 0.425 349 4.08E-22 0.400 350 3.89E-22 0.375 351 9.66E-22 0.350 352 7.90E-21 0.320 353 2.46E-20 0.285 354 1.78E-20 0.250 355 7.52E-21 0.220 356 1.60E-21 0.190 357 3.72E-22 0.160 358 2.01E-22 0.130 359 1.20E-22 0.090 360 9.40E-23 0.040 361 1.08E-22 0.000 362 2.28E-22 0.000 363 1.52E-22 0.000 364 1.02E-22 0.000 365 9.50E-23 0.000 366 9.18E-23 0.000 367 9.83E-23 0.000 368 1.54E-22 0.000 369 3.21E-22 0.000 370 6.87E-22 0.000 371 6.18E-22 0.000 372 2.13E-22 0.000 373 1.22E-22 0.000 374 9.83E-23 0.000 375 9.40E-23 0.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/HCHO_MOL_RACM2 ================================================ HCHO_MOL_RACM2 ! HCHO + HV = CO + H2 ! Absorption x-section from NASA - 2006 ! Quantum yield from NASA - 2006 ! Supplied by Dr. Wendy Goliff, reformatted by Dr. Golam Sarwar to make it compatible with CMAQ Points ! With FAC, units are (cm^2/molecule) FAC=1.0 186.1 0.000E+00 0.000 187.8 0.000E+00 0.000 189.6 0.000E+00 0.000 191.4 0.000E+00 0.000 193.3 0.000E+00 0.000 195.2 0.000E+00 0.000 197.1 0.000E+00 0.000 199.0 0.000E+00 0.000 201.0 0.000E+00 0.000 203.1 0.000E+00 0.000 205.2 0.000E+00 0.000 207.3 0.000E+00 0.000 209.4 0.000E+00 0.000 211.7 0.000E+00 0.000 213.9 0.000E+00 0.000 216.2 0.000E+00 0.000 218.6 0.000E+00 0.000 221.0 0.000E+00 0.000 223.5 0.000E+00 0.000 226.0 0.166E-21 0.000 228.6 0.181E-21 0.000 231.3 0.303E-21 0.000 234.0 0.313E-21 0.000 236.7 0.625E-21 0.000 239.6 0.704E-21 0.000 242.5 0.126E-20 0.000 245.4 0.139E-20 0.000 248.5 0.254E-20 0.000 251.6 0.270E-20 0.491 254.8 0.449E-20 0.497 258.2 0.478E-20 0.488 261.5 0.698E-20 0.470 265.0 0.736E-20 0.454 268.5 0.113E-19 0.431 272.2 0.130E-19 0.401 275.9 0.184E-19 0.368 279.8 0.186E-19 0.343 283.7 0.255E-19 0.315 287.8 0.233E-19 0.292 292.0 0.266E-19 0.266 296.3 0.328E-19 0.255 300.5 0.160E-19 0.241 303.0 0.302E-19 0.238 304.0 0.723E-19 0.238 305.0 0.474E-19 0.240 306.0 0.429E-19 0.242 307.0 0.178E-19 0.246 308.0 0.138E-19 0.251 309.0 0.326E-19 0.256 310.0 0.174E-19 0.263 311.0 0.461E-20 0.271 312.0 0.119E-19 0.280 313.0 0.902E-20 0.291 314.0 0.565E-19 0.302 316.0 0.254E-19 0.329 320.0 0.153E-19 0.397 325.0 0.279E-19 0.489 330.0 0.199E-19 0.657 335.0 0.196E-20 0.735 340.0 0.239E-19 0.650 345.0 0.758E-20 0.500 350.0 0.194E-20 0.380 355.0 0.961E-20 0.220 360.0 0.139E-21 0.004 365.0 0.100E-22 0.000 370.0 0.369E-21 0.000 375.0 0.870E-22 0.000 380.0 0.000E+00 0.000 385.0 0.000E+00 0.000 390.0 0.000E+00 0.000 395.0 0.000E+00 0.000 400.0 0.000E+00 0.000 405.0 0.000E+00 0.000 410.0 0.000E+00 0.000 415.0 0.000E+00 0.000 420.0 0.000E+00 0.000 425.0 0.000E+00 0.000 430.0 0.000E+00 0.000 435.0 0.000E+00 0.000 440.0 0.000E+00 0.000 445.0 0.000E+00 0.000 450.0 0.000E+00 0.000 455.0 0.000E+00 0.000 460.0 0.000E+00 0.000 465.0 0.000E+00 0.000 470.0 0.000E+00 0.000 475.0 0.000E+00 0.000 480.0 0.000E+00 0.000 485.0 0.000E+00 0.000 490.0 0.000E+00 0.000 495.0 0.000E+00 0.000 500.0 0.000E+00 0.000 505.0 0.000E+00 0.000 510.0 0.000E+00 0.000 515.0 0.000E+00 0.000 520.0 0.000E+00 0.000 525.0 0.000E+00 0.000 530.0 0.000E+00 0.000 535.0 0.000E+00 0.000 540.0 0.000E+00 0.000 545.0 0.000E+00 0.000 550.0 0.000E+00 0.000 555.0 0.000E+00 0.000 560.0 0.000E+00 0.000 565.0 0.000E+00 0.000 570.0 0.000E+00 0.000 575.0 0.000E+00 0.000 580.0 0.000E+00 0.000 585.0 0.000E+00 0.000 590.0 0.000E+00 0.000 595.0 0.000E+00 0.000 600.0 0.000E+00 0.000 605.0 0.000E+00 0.000 610.0 0.000E+00 0.000 615.0 0.000E+00 0.000 620.0 0.000E+00 0.000 625.0 0.000E+00 0.000 630.0 0.000E+00 0.000 635.0 0.000E+00 0.000 640.0 0.000E+00 0.000 644.8 0.000E+00 0.000 651.0 0.000E+00 0.000 660.0 0.000E+00 0.000 670.0 0.000E+00 0.000 680.0 0.000E+00 0.000 690.0 0.000E+00 0.000 700.0 0.000E+00 0.000 710.0 0.000E+00 0.000 720.0 0.000E+00 0.000 730.0 0.000E+00 0.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/HCHO_M_MCMv32 ================================================ HCHO_M_MCMv32 !HCHO (298K and 1 atm) photolysis quantum yields for the non radical (H2 + CO) channel !HCHO->H2+CO !Recommendation of IUPAC 2013 !http://iupac.pole-ether.fr/htdocs/datasheets/pdf/P1_HCHO+hv.pdf !J12 in MCM v3.2:HCHO->H2+CO ! ! !XC from: ! Meller, R. E. and Moortgat, G. K.: J. Geophys.Res., 105, 7089, 2000. !QY is constructed by IUPAC from ! Moortgat, G. K., Seiler, W., and Warneck, P., J. Chem. Phys. 78, 1185, 1983. !Note: XC have temperature dependence QY for J12 has pressure correction for wvl ! greater than 330 nm. ! !wvl(nm) XC(cm2) H2+CO H+HCO Total Points ! With FAC, units are (cm^2/molecule) FAC=1.0 240.0 7.800E-22 0.7300 0.2700 0.8000 250.0 2.570E-21 0.4800 0.3200 0.8000 260.0 6.050E-21 0.4900 0.3100 0.8000 269.0 9.910E-21 0.4100 0.4000 0.8100 279.0 2.451E-20 0.3200 0.5600 0.8800 280.0 2.338E-20 0.3000 0.5800 0.8800 281.0 1.562E-20 0.2700 0.6000 0.8700 282.0 9.730E-21 0.2700 0.6200 0.8900 283.0 7.220E-21 0.2500 0.6400 0.8900 284.0 4.265E-20 0.2600 0.6500 0.9100 285.0 4.050E-20 0.3100 0.6700 0.9800 286.0 2.095E-20 0.3200 0.6800 1.0000 287.0 1.153E-20 0.3000 0.7000 1.0000 288.0 3.169E-20 0.2900 0.7100 1.0000 289.0 3.225E-20 0.2900 0.7100 1.0000 290.0 1.173E-20 0.2800 0.7200 1.0000 291.0 1.836E-20 0.2700 0.7300 1.0000 292.0 7.970E-21 0.2700 0.7300 1.0000 293.0 3.128E-20 0.2600 0.7400 1.0000 294.0 7.154E-20 0.3000 0.7000 1.0000 295.0 4.054E-20 0.2100 0.7900 1.0000 296.0 2.474E-20 0.2400 0.7600 1.0000 297.0 1.367E-20 0.2800 0.7400 1.0000 298.0 4.217E-20 0.3300 0.6700 1.0000 299.0 3.175E-20 0.3500 0.6500 1.0000 300.0 9.640E-21 0.3000 0.7000 1.0000 301.0 1.625E-20 0.3000 0.7000 1.0000 302.0 8.540E-21 0.2700 0.7300 1.0000 303.0 3.021E-20 0.2860 0.7140 1.0000 304.0 7.219E-20 0.2500 0.7500 1.0000 305.0 4.752E-20 0.2900 0.7100 1.0000 306.0 4.292E-20 0.3580 0.6420 1.0000 307.0 1.781E-20 0.3200 0.6800 1.0000 308.0 1.385E-20 0.3000 0.7000 1.0000 309.0 3.252E-20 0.2900 0.7100 1.0000 310.0 1.737E-20 0.3000 0.7000 1.0000 311.0 4.620E-21 0.3200 0.6800 1.0000 312.0 1.188E-20 0.3310 0.6690 1.0000 313.0 9.060E-21 0.2700 0.7300 1.0000 314.0 5.637E-20 0.3190 0.6810 1.0000 315.0 5.565E-20 0.2200 0.7800 1.0000 316.0 2.561E-20 0.2500 0.7500 1.0000 317.0 5.777E-20 0.3470 0.6530 1.0000 318.0 3.151E-20 0.3400 0.6600 1.0000 319.0 9.780E-21 0.4310 0.5790 1.0000 320.0 1.194E-20 0.4000 0.6000 1.0000 321.0 1.598E-20 0.3500 0.6500 1.0000 322.0 7.220E-21 0.4200 0.5800 1.0000 323.0 3.280E-21 0.5250 0.4750 1.0000 324.0 8.580E-21 0.5100 0.4900 1.0000 325.0 1.578E-20 0.5400 0.4600 1.0000 326.0 6.876E-20 0.4940 0.5060 1.0000 327.0 4.370E-20 0.5000 0.5000 1.0000 328.0 1.220E-20 0.6000 0.4000 1.0000 329.0 3.120E-20 0.6710 0.3290 1.0000 330.0 3.865E-20 0.6200 0.3800 1.0000 331.0 1.412E-20 0.4300 0.4600 0.8900 332.0 3.470E-21 0.4500 0.3700 0.8200 333.0 2.140E-21 0.4800 0.2400 0.7200 334.0 1.590E-21 0.5100 0.1120 0.6220 335.0 9.700E-22 0.5600 0.0700 0.6300 336.0 1.260E-21 0.6200 0.0550 0.6750 337.0 3.830E-21 0.6100 0.0350 0.6450 338.0 1.919E-20 0.5800 0.0100 0.5900 339.0 5.381E-20 0.5800 0.0110 0.5910 340.0 3.151E-20 0.6400 0.0100 0.6500 341.0 9.780E-21 0.6100 0.0080 0.6180 342.0 5.090E-21 0.5800 0.0080 0.5880 343.0 1.922E-20 0.5500 0.0080 0.5580 344.0 1.268E-20 0.5100 0.0070 0.5170 345.0 4.370E-21 0.5000 0.0070 0.5070 346.0 1.190E-21 0.4700 0.0070 0.4770 347.0 4.400E-22 0.4400 0.0070 0.4470 348.0 7.500E-22 0.4200 0.0070 0.4270 349.0 3.800E-22 0.3800 0.0060 0.3860 350.0 3.600E-22 0.3600 0.0060 0.3660 351.0 8.900E-22 0.3300 0.0050 0.3350 352.0 7.300E-21 0.3000 0.0050 0.3050 353.0 2.275E-20 0.2800 0.0050 0.2850 354.0 1.645E-20 0.2500 0.0050 0.2550 355.0 6.960E-21 0.1200 0.0050 0.1250 356.0 1.480E-21 0.1000 0.0000 0.1000 357.0 3.500E-22 0.0700 0.0000 0.0700 358.0 1.900E-22 0.0400 0.0000 0.0400 359.0 1.100E-22 0.0100 0.0000 0.0100 360.0 9.000E-23 0.0000 0.0000 0.0000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/HCHO_M_SAPRC99 ================================================ HCHO_M ! HCHO + HV = H2 + CO ! SAPRC-99 Photolysis data. Supplied by William P. L. Carter. ! Created from PhotDat.xls on 29-Jan-2000 10:07 Points (the mechanism was evaluated assuming this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 240.0 6.400E-22 0.490 241.0 5.600E-22 0.490 242.0 1.050E-21 0.490 243.0 1.150E-21 0.490 244.0 8.200E-22 0.490 245.0 1.030E-21 0.490 246.0 9.800E-22 0.490 247.0 1.350E-21 0.490 248.0 1.910E-21 0.490 249.0 2.820E-21 0.490 250.0 2.050E-21 0.490 251.0 1.700E-21 0.490 252.0 2.880E-21 0.490 253.0 2.550E-21 0.490 254.0 2.550E-21 0.490 255.0 3.600E-21 0.490 256.0 5.090E-21 0.490 257.0 3.390E-21 0.490 258.0 2.260E-21 0.490 259.0 5.040E-21 0.490 260.0 5.050E-21 0.490 261.0 5.490E-21 0.484 262.0 5.200E-21 0.478 263.0 9.330E-21 0.472 264.0 8.230E-21 0.466 265.0 4.300E-21 0.460 266.0 4.950E-21 0.454 267.0 1.240E-20 0.448 268.0 1.110E-20 0.442 269.0 8.780E-21 0.436 270.0 9.360E-21 0.430 271.0 1.790E-20 0.419 272.0 1.230E-20 0.408 273.0 6.450E-21 0.397 274.0 6.560E-21 0.386 275.0 2.230E-20 0.375 276.0 2.420E-20 0.364 277.0 1.400E-20 0.353 278.0 1.050E-20 0.342 279.0 2.550E-20 0.331 280.0 2.080E-20 0.320 281.0 1.480E-20 0.312 282.0 8.810E-21 0.304 283.0 1.070E-20 0.296 284.0 4.490E-20 0.288 285.0 3.590E-20 0.280 286.0 1.960E-20 0.272 287.0 1.300E-20 0.264 288.0 3.360E-20 0.256 289.0 2.840E-20 0.248 290.0 1.300E-20 0.240 291.0 1.750E-20 0.237 292.0 8.320E-21 0.234 293.0 3.730E-20 0.231 294.0 6.540E-20 0.228 295.0 3.950E-20 0.225 296.0 2.330E-20 0.222 297.0 1.510E-20 0.219 298.0 4.040E-20 0.216 299.0 2.870E-20 0.213 300.0 8.710E-21 0.210 301.0 1.720E-20 0.211 302.0 1.060E-20 0.212 303.0 3.200E-20 0.213 304.0 6.900E-20 0.214 305.0 4.910E-20 0.215 306.0 4.630E-20 0.216 307.0 2.100E-20 0.217 308.0 1.490E-20 0.218 309.0 3.410E-20 0.219 310.0 1.950E-20 0.220 311.0 5.210E-21 0.236 312.0 1.120E-20 0.252 313.0 1.120E-20 0.268 314.0 4.750E-20 0.284 315.0 5.250E-20 0.300 316.0 2.900E-20 0.316 317.0 5.370E-20 0.332 318.0 2.980E-20 0.348 319.0 9.180E-21 0.364 320.0 1.260E-20 0.380 321.0 1.530E-20 0.408 322.0 6.690E-21 0.436 323.0 3.450E-21 0.464 324.0 8.160E-21 0.492 325.0 1.850E-20 0.520 326.0 5.950E-20 0.548 327.0 3.490E-20 0.576 328.0 1.090E-20 0.604 329.0 3.350E-20 0.632 330.0 3.320E-20 0.660 331.0 1.070E-20 0.650 332.0 2.890E-21 0.640 333.0 2.150E-21 0.630 334.0 1.710E-21 0.620 335.0 1.430E-21 0.610 336.0 1.940E-21 0.600 337.0 4.170E-21 0.590 338.0 2.360E-20 0.580 339.0 4.710E-20 0.570 340.0 2.480E-20 0.560 341.0 7.590E-21 0.525 342.0 6.810E-21 0.490 343.0 1.950E-20 0.455 344.0 1.140E-20 0.420 345.0 3.230E-21 0.385 346.0 1.130E-21 0.350 347.0 6.600E-22 0.315 348.0 1.220E-21 0.280 349.0 3.200E-22 0.245 350.0 3.800E-22 0.210 351.0 1.040E-21 0.192 352.0 7.130E-21 0.174 353.0 2.210E-20 0.156 354.0 1.540E-20 0.138 355.0 6.760E-21 0.120 356.0 1.350E-21 0.102 357.0 3.600E-22 0.084 358.0 5.700E-23 0.066 359.0 5.800E-22 0.048 360.0 8.200E-22 0.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/HCHO_RAD_JPL19 ================================================ HCHO_RAD_JPL19 ! HCHO + HV = HO2 + HO2 + CO ! Source: Chemical Kinetics and Photochemical Data for Use in Atmospheric Studies, Evaluation No. ! 19," JPL Publication 19-5, Jet Propulsion Laboratory, Pasadena, ! 2019 http://jpldataeval.jpl.nasa.gov ! Absorption x-section from Table 4D-2 (Recommended Absorption Cross Sections of CH2O at 298 K and Temperature Coefficients Averaged over 1 nm Intervals) ! Quantum yield from Table 4D-4 (Recommended CH2O Photolysis Quantum Yields at 300 K and 1 Atmosphere) ! Supplied by Dr. William Stockwell, reformatted by Dr. Golam Sarwar to make it compatible with CMAQ ! Points ! With FAC, units are (cm^2/molecule) FAC=1.0 226 1.93E-22 0.000 227 1.82E-22 0.000 228 1.91E-22 0.000 229 2.05E-22 0.000 230 2.21E-22 0.000 231 3.56E-22 0.000 232 3.62E-22 0.000 233 2.83E-22 0.000 234 3.51E-22 0.000 235 3.92E-22 0.000 236 5.82E-22 0.000 237 8.33E-22 0.000 238 6.14E-22 0.000 239 7.37E-22 0.000 240 8.45E-22 0.000 241 8.37E-22 0.000 242 1.33E-21 0.000 243 1.72E-21 0.000 244 1.18E-21 0.000 245 1.42E-21 0.000 246 1.76E-21 0.000 247 1.63E-21 0.000 248 2.53E-21 0.000 249 3.43E-21 0.000 250 2.78E-21 0.310 251 2.20E-21 0.308 252 3.64E-21 0.307 253 3.12E-21 0.306 254 3.69E-21 0.305 255 4.86E-21 0.304 256 6.79E-21 0.304 257 4.78E-21 0.303 258 3.32E-21 0.303 259 6.67E-21 0.304 260 6.52E-21 0.307 261 7.13E-21 0.312 262 6.50E-21 0.318 263 1.17E-20 0.325 264 1.02E-20 0.333 265 5.72E-21 0.343 266 5.81E-21 0.354 267 1.47E-20 0.365 268 1.34E-20 0.377 269 1.07E-20 0.390 270 1.04E-20 0.404 271 2.10E-20 0.418 272 1.54E-20 0.433 273 8.75E-21 0.448 274 7.10E-21 0.464 275 2.32E-20 0.479 276 2.80E-20 0.495 277 1.70E-20 0.512 278 1.11E-20 0.528 279 2.65E-20 0.544 280 2.53E-20 0.560 281 1.68E-20 0.576 282 1.05E-20 0.591 283 7.78E-21 0.606 284 4.61E-20 0.620 285 4.37E-20 0.633 286 2.26E-20 0.645 287 1.24E-20 0.657 288 3.42E-20 0.669 289 3.48E-20 0.680 290 1.26E-20 0.690 291 1.99E-20 0.700 292 8.60E-21 0.710 293 3.36E-20 0.718 294 7.72E-20 0.726 295 4.38E-20 0.734 296 2.68E-20 0.740 297 1.47E-20 0.746 298 4.56E-20 0.751 299 3.42E-20 0.755 300 1.04E-20 0.758 301 1.76E-20 0.761 302 9.20E-21 0.762 303 3.26E-20 0.762 304 7.81E-20 0.762 305 5.12E-20 0.760 306 4.63E-20 0.758 307 1.92E-20 0.754 308 1.49E-20 0.749 309 3.52E-20 0.744 310 1.88E-20 0.737 311 4.98E-21 0.729 312 1.28E-20 0.720 313 9.74E-21 0.709 314 6.10E-20 0.698 315 6.00E-20 0.685 316 2.74E-20 0.671 317 6.25E-20 0.656 318 3.40E-20 0.639 319 1.05E-20 0.622 320 1.28E-20 0.603 321 1.73E-20 0.583 322 7.79E-21 0.561 323 3.53E-21 0.539 324 9.30E-21 0.515 325 1.66E-20 0.489 326 7.42E-20 0.463 327 4.72E-20 0.435 328 1.32E-20 0.406 329 3.37E-20 0.375 330 4.17E-20 0.343 331 1.52E-20 0.310 332 3.74E-21 0.276 333 2.31E-21 0.240 334 1.72E-21 0.203 335 1.04E-21 0.165 336 1.36E-21 0.126 337 4.14E-21 0.085 338 2.07E-20 0.043 339 5.94E-20 0.000 340 3.40E-20 0.000 341 1.06E-20 0.000 342 5.44E-21 0.000 343 2.07E-20 0.000 344 1.37E-20 0.000 345 4.71E-21 0.000 346 1.28E-21 0.000 347 4.76E-22 0.000 348 8.18E-22 0.000 349 4.08E-22 0.000 350 3.89E-22 0.000 351 9.66E-22 0.000 352 7.90E-21 0.000 353 2.46E-20 0.000 354 1.78E-20 0.000 355 7.52E-21 0.000 356 1.60E-21 0.000 357 3.72E-22 0.000 358 2.01E-22 0.000 359 1.20E-22 0.000 360 9.40E-23 0.000 361 1.08E-22 0.000 362 2.28E-22 0.000 363 1.52E-22 0.000 364 1.02E-22 0.000 365 9.50E-23 0.000 366 9.18E-23 0.000 367 9.83E-23 0.000 368 1.54E-22 0.000 369 3.21E-22 0.000 370 6.87E-22 0.000 371 6.18E-22 0.000 372 2.13E-22 0.000 373 1.22E-22 0.000 374 9.83E-23 0.000 375 9.40E-23 0.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/HCHO_RAD_RACM2 ================================================ HCHO_RAD_RACM2 ! HCHO + HV = HO2 + HO2 + CO ! Absorption x-section from NASA - 2006 ! Quantum yield from NASA - 2006 ! Supplied by Dr. Wendy Goliff, reformatted by Dr. Golam Sarwar to make it compatible with CMAQ Points ! With FAC, units are (cm^2/molecule) FAC=1.0 186.1 0.000E+00 0.000 187.8 0.000E+00 0.000 189.6 0.000E+00 0.000 191.4 0.000E+00 0.000 193.3 0.000E+00 0.000 195.2 0.000E+00 0.000 197.1 0.000E+00 0.000 199.0 0.000E+00 0.000 201.0 0.000E+00 0.000 203.1 0.000E+00 0.000 205.2 0.000E+00 0.000 207.3 0.000E+00 0.000 209.4 0.000E+00 0.000 211.7 0.000E+00 0.000 213.9 0.000E+00 0.000 216.2 0.000E+00 0.000 218.6 0.000E+00 0.000 221.0 0.000E+00 0.000 223.5 0.000E+00 0.000 226.0 0.166E-21 0.000 228.6 0.181E-21 0.000 231.3 0.303E-21 0.000 234.0 0.313E-21 0.000 236.7 0.625E-21 0.000 239.6 0.704E-21 0.000 242.5 0.126E-20 0.000 245.4 0.139E-20 0.000 248.5 0.254E-20 0.000 251.6 0.270E-20 0.309 254.8 0.449E-20 0.303 258.2 0.478E-20 0.312 261.5 0.698E-20 0.333 265.0 0.736E-20 0.366 268.5 0.113E-19 0.407 272.2 0.130E-19 0.455 275.9 0.184E-19 0.507 279.8 0.186E-19 0.562 283.7 0.255E-19 0.616 287.8 0.233E-19 0.667 292.0 0.266E-19 0.710 296.3 0.328E-19 0.742 300.5 0.160E-19 0.760 303.0 0.302E-19 0.762 304.0 0.723E-19 0.762 305.0 0.474E-19 0.760 306.0 0.429E-19 0.758 307.0 0.178E-19 0.754 308.0 0.138E-19 0.749 309.0 0.326E-19 0.744 310.0 0.174E-19 0.737 311.0 0.461E-20 0.729 312.0 0.119E-19 0.720 313.0 0.902E-20 0.709 314.0 0.565E-19 0.698 316.0 0.254E-19 0.671 320.0 0.153E-19 0.603 325.0 0.279E-19 0.489 330.0 0.199E-19 0.343 335.0 0.196E-20 0.165 340.0 0.239E-19 0.650 345.0 0.758E-20 0.500 350.0 0.194E-20 0.380 355.0 0.961E-20 0.220 360.0 0.139E-21 0.004 365.0 0.100E-22 0.000 370.0 0.369E-21 0.000 375.0 0.870E-22 0.000 380.0 0.000E+00 0.000 385.0 0.000E+00 0.000 390.0 0.000E+00 0.000 395.0 0.000E+00 0.000 400.0 0.000E+00 0.000 405.0 0.000E+00 0.000 410.0 0.000E+00 0.000 415.0 0.000E+00 0.000 420.0 0.000E+00 0.000 425.0 0.000E+00 0.000 430.0 0.000E+00 0.000 435.0 0.000E+00 0.000 440.0 0.000E+00 0.000 445.0 0.000E+00 0.000 450.0 0.000E+00 0.000 455.0 0.000E+00 0.000 460.0 0.000E+00 0.000 465.0 0.000E+00 0.000 470.0 0.000E+00 0.000 475.0 0.000E+00 0.000 480.0 0.000E+00 0.000 485.0 0.000E+00 0.000 490.0 0.000E+00 0.000 495.0 0.000E+00 0.000 500.0 0.000E+00 0.000 505.0 0.000E+00 0.000 510.0 0.000E+00 0.000 515.0 0.000E+00 0.000 520.0 0.000E+00 0.000 525.0 0.000E+00 0.000 530.0 0.000E+00 0.000 535.0 0.000E+00 0.000 540.0 0.000E+00 0.000 545.0 0.000E+00 0.000 550.0 0.000E+00 0.000 555.0 0.000E+00 0.000 560.0 0.000E+00 0.000 565.0 0.000E+00 0.000 570.0 0.000E+00 0.000 575.0 0.000E+00 0.000 580.0 0.000E+00 0.000 585.0 0.000E+00 0.000 590.0 0.000E+00 0.000 595.0 0.000E+00 0.000 600.0 0.000E+00 0.000 605.0 0.000E+00 0.000 610.0 0.000E+00 0.000 615.0 0.000E+00 0.000 620.0 0.000E+00 0.000 625.0 0.000E+00 0.000 630.0 0.000E+00 0.000 635.0 0.000E+00 0.000 640.0 0.000E+00 0.000 644.8 0.000E+00 0.000 651.0 0.000E+00 0.000 660.0 0.000E+00 0.000 670.0 0.000E+00 0.000 680.0 0.000E+00 0.000 690.0 0.000E+00 0.000 700.0 0.000E+00 0.000 710.0 0.000E+00 0.000 720.0 0.000E+00 0.000 730.0 0.000E+00 0.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/HCHO_R_MCMv32 ================================================ HCHO_R_MCMv32 !HCHO (298K and 1 atm) photolysis quantum yields for the non radical (H2 + CO) channel !HCHO->H+HCO !Recommendation of IUPAC 2013 !http://iupac.pole-ether.fr/htdocs/datasheets/pdf/P1_HCHO+hv.pdf !J11 in MCM v3.2:HCHO->H+HCO ! ! !XC from: ! Meller, R. E. and Moortgat, G. K.: J. Geophys.Res., 105, 7089, 2000. !QY is constructed by IUPAC from ! Moortgat, G. K., Seiler, W., and Warneck, P., J. Chem. Phys. 78, 1185, 1983. !Note: XC have temperature dependence QY for J12 has pressure correction for wvl ! greater than 330 nm. ! !wvl(nm) XC(cm2) H2+CO H+HCO Total Points ! With FAC, units are (cm^2/molecule) FAC=1.0 240.0 7.800E-22 0.2700 0.7300 0.8000 250.0 2.570E-21 0.3200 0.4800 0.8000 260.0 6.050E-21 0.3100 0.4900 0.8000 269.0 9.910E-21 0.4000 0.4100 0.8100 279.0 2.451E-20 0.5600 0.3200 0.8800 280.0 2.338E-20 0.5800 0.3000 0.8800 281.0 1.562E-20 0.6000 0.2700 0.8700 282.0 9.730E-21 0.6200 0.2700 0.8900 283.0 7.220E-21 0.6400 0.2500 0.8900 284.0 4.265E-20 0.6500 0.2600 0.9100 285.0 4.050E-20 0.6700 0.3100 0.9800 286.0 2.095E-20 0.6800 0.3200 1.0000 287.0 1.153E-20 0.7000 0.3000 1.0000 288.0 3.169E-20 0.7100 0.2900 1.0000 289.0 3.225E-20 0.7100 0.2900 1.0000 290.0 1.173E-20 0.7200 0.2800 1.0000 291.0 1.836E-20 0.7300 0.2700 1.0000 292.0 7.970E-21 0.7300 0.2700 1.0000 293.0 3.128E-20 0.7400 0.2600 1.0000 294.0 7.154E-20 0.7000 0.3000 1.0000 295.0 4.054E-20 0.7900 0.2100 1.0000 296.0 2.474E-20 0.7600 0.2400 1.0000 297.0 1.367E-20 0.7400 0.2800 1.0000 298.0 4.217E-20 0.6700 0.3300 1.0000 299.0 3.175E-20 0.6500 0.3500 1.0000 300.0 9.640E-21 0.7000 0.3000 1.0000 301.0 1.625E-20 0.7000 0.3000 1.0000 302.0 8.540E-21 0.7300 0.2700 1.0000 303.0 3.021E-20 0.7140 0.2860 1.0000 304.0 7.219E-20 0.7500 0.2500 1.0000 305.0 4.752E-20 0.7100 0.2900 1.0000 306.0 4.292E-20 0.6420 0.3580 1.0000 307.0 1.781E-20 0.6800 0.3200 1.0000 308.0 1.385E-20 0.7000 0.3000 1.0000 309.0 3.252E-20 0.7100 0.2900 1.0000 310.0 1.737E-20 0.7000 0.3000 1.0000 311.0 4.620E-21 0.6800 0.3200 1.0000 312.0 1.188E-20 0.6690 0.3310 1.0000 313.0 9.060E-21 0.7300 0.2700 1.0000 314.0 5.637E-20 0.6810 0.3190 1.0000 315.0 5.565E-20 0.7800 0.2200 1.0000 316.0 2.561E-20 0.7500 0.2500 1.0000 317.0 5.777E-20 0.6530 0.3470 1.0000 318.0 3.151E-20 0.6600 0.3400 1.0000 319.0 9.780E-21 0.5790 0.4310 1.0000 320.0 1.194E-20 0.6000 0.4000 1.0000 321.0 1.598E-20 0.6500 0.3500 1.0000 322.0 7.220E-21 0.5800 0.4200 1.0000 323.0 3.280E-21 0.4750 0.5250 1.0000 324.0 8.580E-21 0.4900 0.5100 1.0000 325.0 1.578E-20 0.4600 0.5400 1.0000 326.0 6.876E-20 0.5060 0.4940 1.0000 327.0 4.370E-20 0.5000 0.5000 1.0000 328.0 1.220E-20 0.4000 0.6000 1.0000 329.0 3.120E-20 0.3290 0.6710 1.0000 330.0 3.865E-20 0.3800 0.6200 1.0000 331.0 1.412E-20 0.4600 0.4300 0.8900 332.0 3.470E-21 0.3700 0.4500 0.8200 333.0 2.140E-21 0.2400 0.4800 0.7200 334.0 1.590E-21 0.1120 0.5100 0.6220 335.0 9.700E-22 0.0700 0.5600 0.6300 336.0 1.260E-21 0.0550 0.6200 0.6750 337.0 3.830E-21 0.0350 0.6100 0.6450 338.0 1.919E-20 0.0100 0.5800 0.5900 339.0 5.381E-20 0.0110 0.5800 0.5910 340.0 3.151E-20 0.0100 0.6400 0.6500 341.0 9.780E-21 0.0080 0.6100 0.6180 342.0 5.090E-21 0.0080 0.5800 0.5880 343.0 1.922E-20 0.0080 0.5500 0.5580 344.0 1.268E-20 0.0070 0.5100 0.5170 345.0 4.370E-21 0.0070 0.5000 0.5070 346.0 1.190E-21 0.0070 0.4700 0.4770 347.0 4.400E-22 0.0070 0.4400 0.4470 348.0 7.500E-22 0.0070 0.4200 0.4270 349.0 3.800E-22 0.0060 0.3800 0.3860 350.0 3.600E-22 0.0060 0.3600 0.3660 351.0 8.900E-22 0.0050 0.3300 0.3350 352.0 7.300E-21 0.0050 0.3000 0.3050 353.0 2.275E-20 0.0050 0.2800 0.2850 354.0 1.645E-20 0.0050 0.2500 0.2550 355.0 6.960E-21 0.0050 0.1200 0.1250 356.0 1.480E-21 0.0000 0.1000 0.1000 357.0 3.500E-22 0.0000 0.0700 0.0700 358.0 1.900E-22 0.0000 0.0400 0.0400 359.0 1.100E-22 0.0000 0.0100 0.0100 360.0 9.000E-23 0.0000 0.0000 0.0000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/HCHO_R_SAPRC99 ================================================ HCHO_R ! HCHO + HV = HCO + H ! SAPRC-99 Photolysis data. Supplied by William P. L. Carter. ! Created from PhotDat.xls on 29-Jan-2000 10:07 Points (the mechanism was evaluated assuming this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 240.0 6.400E-22 0.270 241.0 5.600E-22 0.272 242.0 1.050E-21 0.274 243.0 1.150E-21 0.276 244.0 8.200E-22 0.278 245.0 1.030E-21 0.280 246.0 9.800E-22 0.282 247.0 1.350E-21 0.284 248.0 1.910E-21 0.286 249.0 2.820E-21 0.288 250.0 2.050E-21 0.290 251.0 1.700E-21 0.291 252.0 2.880E-21 0.292 253.0 2.550E-21 0.293 254.0 2.550E-21 0.294 255.0 3.600E-21 0.295 256.0 5.090E-21 0.296 257.0 3.390E-21 0.297 258.0 2.260E-21 0.298 259.0 5.040E-21 0.299 260.0 5.050E-21 0.300 261.0 5.490E-21 0.308 262.0 5.200E-21 0.316 263.0 9.330E-21 0.324 264.0 8.230E-21 0.332 265.0 4.300E-21 0.340 266.0 4.950E-21 0.348 267.0 1.240E-20 0.356 268.0 1.110E-20 0.364 269.0 8.780E-21 0.372 270.0 9.360E-21 0.380 271.0 1.790E-20 0.399 272.0 1.230E-20 0.418 273.0 6.450E-21 0.437 274.0 6.560E-21 0.456 275.0 2.230E-20 0.475 276.0 2.420E-20 0.494 277.0 1.400E-20 0.513 278.0 1.050E-20 0.532 279.0 2.550E-20 0.551 280.0 2.080E-20 0.570 281.0 1.480E-20 0.586 282.0 8.810E-21 0.602 283.0 1.070E-20 0.618 284.0 4.490E-20 0.634 285.0 3.590E-20 0.650 286.0 1.960E-20 0.666 287.0 1.300E-20 0.682 288.0 3.360E-20 0.698 289.0 2.840E-20 0.714 290.0 1.300E-20 0.730 291.0 1.750E-20 0.735 292.0 8.320E-21 0.740 293.0 3.730E-20 0.745 294.0 6.540E-20 0.750 295.0 3.950E-20 0.755 296.0 2.330E-20 0.760 297.0 1.510E-20 0.765 298.0 4.040E-20 0.770 299.0 2.870E-20 0.775 300.0 8.710E-21 0.780 301.0 1.720E-20 0.780 302.0 1.060E-20 0.780 303.0 3.200E-20 0.780 304.0 6.900E-20 0.780 305.0 4.910E-20 0.780 306.0 4.630E-20 0.780 307.0 2.100E-20 0.780 308.0 1.490E-20 0.780 309.0 3.410E-20 0.780 310.0 1.950E-20 0.780 311.0 5.210E-21 0.764 312.0 1.120E-20 0.748 313.0 1.120E-20 0.732 314.0 4.750E-20 0.716 315.0 5.250E-20 0.700 316.0 2.900E-20 0.684 317.0 5.370E-20 0.668 318.0 2.980E-20 0.652 319.0 9.180E-21 0.636 320.0 1.260E-20 0.620 321.0 1.530E-20 0.585 322.0 6.690E-21 0.550 323.0 3.450E-21 0.515 324.0 8.160E-21 0.480 325.0 1.850E-20 0.445 326.0 5.950E-20 0.410 327.0 3.490E-20 0.375 328.0 1.090E-20 0.340 329.0 3.350E-20 0.305 330.0 3.320E-20 0.270 331.0 1.070E-20 0.243 332.0 2.890E-21 0.216 333.0 2.150E-21 0.189 334.0 1.710E-21 0.162 335.0 1.430E-21 0.135 336.0 1.940E-21 0.108 337.0 4.170E-21 0.081 338.0 2.360E-20 0.054 339.0 4.710E-20 0.027 340.0 2.480E-20 0.000 341.0 7.590E-21 0.000 342.0 6.810E-21 0.000 343.0 1.950E-20 0.000 344.0 1.140E-20 0.000 345.0 3.230E-21 0.000 346.0 1.130E-21 0.000 347.0 6.600E-22 0.000 348.0 1.220E-21 0.000 349.0 3.200E-22 0.000 350.0 3.800E-22 0.000 351.0 1.040E-21 0.000 352.0 7.130E-21 0.000 353.0 2.210E-20 0.000 354.0 1.540E-20 0.000 355.0 6.760E-21 0.000 356.0 1.350E-21 0.000 357.0 3.600E-22 0.000 358.0 5.700E-23 0.000 359.0 5.800E-22 0.000 360.0 8.200E-22 0.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/HCHOmol_CBIV88 ================================================ HCHOmol_CBIV88 ! Formaldehyde Photolysis to molecular hydrogen (HCHOmol) ! HCHO + hv -> H2 + CO ! Taken from Gery et al. (1988); Absorption CS from Bass (1980); QY from ! Calvert (1980) fit to his data and Moortgat and coworkers (1978, 1979). ! format: wl, abs_cs, qy Centered ! With FAC, units are (cm^2/molecule) FAC=1.0E-20 280 2.34 0.440 281 1.65 0.420 282 0.76 0.400 283 0.46 0.380 284 3.93 0.370 285 3.46 0.350 286 2.32 0.330 287 0.95 0.320 288 2.32 0.300 289 2.50 0.290 290 1.43 0.280 291 1.32 0.270 292 0.66 0.250 293 5.22 0.240 294 4.30 0.240 295 3.21 0.230 296 1.59 0.220 297 1.96 0.210 298 3.66 0.210 299 1.55 0.210 300 0.72 0.200 301 1.51 0.200 302 0.74 0.200 303 4.35 0.200 304 4.79 0.200 305 4.94 0.210 306 3.02 0.210 307 1.16 0.210 308 2.18 0.220 309 2.25 0.230 310 1.03 0.240 311 0.81 0.250 312 1.49 0.260 313 1.55 0.270 314 3.99 0.280 315 2.88 0.300 316 2.79 0.310 317 3.59 0.330 318 1.65 0.350 319 0.73 0.370 320 1.71 0.390 321 1.32 0.410 322 0.43 0.430 323 0.60 0.460 324 0.75 0.490 325 2.19 0.510 326 3.44 0.540 327 1.75 0.550 328 1.01 0.570 329 3.03 0.580 330 1.96 0.590 331 0.79 0.600 332 0.32 0.610 333 0.15 0.620 334 0.17 0.620 335 0.02 0.620 336 0.17 0.620 337 0.32 0.620 338 1.93 0.610 339 2.15 0.610 340 1.07 0.600 341 0.31 0.590 342 0.94 0.570 343 1.37 0.560 344 0.57 0.540 345 0.12 0.520 346 0.04 0.500 347 0.04 0.470 348 0.07 0.450 349 0.03 0.420 350 0.03 0.390 351 0.09 0.360 352 0.90 0.330 353 1.17 0.300 354 0.72 0.260 355 0.26 0.230 356 0.05 0.200 357 0.03 0.160 358 0.04 0.130 359 0.03 0.100 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/HCHOmol_NASA94 ================================================ HCHOmol_NASA94 ! Formaldehyde Photolysis to molecular hydrogen (HCHOmol) ! HCHO + hv -> H2 + CO ! Taken from the original RADM data, with NASA (1994) updates ! format: wl, abs_cs, qy Centered ! With FAC, units are (cm^2/molecule) FAC=1.0 245.400 0.000E+00 0.000E+00 248.500 0.000E+00 7.697E-03 251.600 3.910E-22 4.797E-01 254.800 1.183E-21 4.889E-01 258.100 2.807E-21 4.943E-01 261.400 5.063E-21 4.980E-01 264.900 5.548E-21 4.945E-01 268.500 9.348E-21 4.845E-01 272.100 1.160E-20 4.566E-01 275.900 1.602E-20 3.861E-01 279.700 1.584E-20 3.418E-01 283.700 2.267E-20 3.251E-01 287.800 2.126E-20 3.061E-01 292.000 2.264E-20 2.871E-01 296.300 2.988E-20 2.698E-01 300.500 8.500E-21 2.546E-01 303.000 4.330E-20 2.470E-01 304.000 4.330E-20 2.470E-01 305.000 3.790E-20 2.470E-01 306.000 3.250E-20 2.470E-01 307.000 3.250E-20 2.470E-01 308.000 2.220E-20 2.520E-01 309.000 2.220E-20 2.520E-01 310.000 1.575E-20 2.565E-01 311.000 9.310E-21 2.610E-01 312.000 9.310E-21 2.610E-01 313.000 3.400E-20 2.760E-01 314.000 3.400E-20 2.760E-01 316.000 3.808E-20 3.093E-01 320.000 1.415E-20 3.955E-01 325.000 2.456E-20 5.150E-01 330.000 1.785E-20 6.655E-01 335.000 1.270E-21 7.335E-01 340.000 2.148E-20 6.345E-01 345.000 6.655E-21 5.020E-01 350.000 1.375E-21 3.710E-01 355.000 8.375E-21 2.310E-01 360.000 0.000E+00 1.036E-01 365.000 0.000E+00 5.906E-03 370.000 0.000E+00 0.000E+00 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/HCHOmol_RADM88 ================================================ HCHOmol_RADM88 ! Formaldehyde Photolysis to molecular hydrogen (HCHOmol) ! HCHO + hv -> H2 + CO ! Abs CS: Avg of Moortgat et al. [1980,1983] and Bass et al. [1980] ! QY from Moortgat et al. [1983]; Horowitz and Calvert [1978] ! format: wl, abs_cs, qy Beginning ! With FAC, units are (cm^2/molecule) FAC=1.0 246.914 0.000E+00 7.697E-03 250.000 3.910E-22 4.797E-01 253.165 1.183E-21 4.889E-01 256.410 2.807E-21 4.943E-01 259.740 5.063E-21 4.980E-01 263.158 5.548E-21 4.945E-01 266.667 9.348E-21 4.845E-01 270.270 1.160E-20 4.566E-01 273.973 1.602E-20 3.861E-01 277.778 1.584E-20 3.418E-01 281.690 2.267E-20 3.251E-01 285.714 2.126E-20 3.061E-01 289.855 2.264E-20 2.871E-01 294.118 2.988E-20 2.698E-01 298.500 1.523E-20 2.546E-01 302.500 2.281E-20 2.490E-01 303.500 6.326E-20 2.470E-01 304.500 4.668E-20 2.456E-01 305.500 4.497E-20 2.480E-01 306.500 2.035E-20 2.510E-01 307.500 1.412E-20 2.540E-01 308.500 2.959E-20 2.570E-01 309.500 1.745E-20 2.602E-01 310.500 7.280E-21 2.645E-01 311.500 1.340E-20 2.690E-01 312.500 1.247E-20 2.735E-01 313.500 3.917E-20 2.789E-01 314.500 3.947E-20 3.103E-01 317.500 1.526E-20 3.941E-01 322.500 2.110E-20 5.081E-01 327.500 1.923E-20 6.761E-01 332.500 2.134E-21 7.593E-01 337.500 1.632E-20 6.361E-01 342.500 6.668E-21 5.015E-01 347.500 1.519E-21 3.734E-01 352.500 7.166E-21 2.290E-01 357.500 9.075E-23 1.036E-01 362.500 0.000E+00 5.906E-03 367.500 0.000E+00 0.000E+00 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/HCHOrad_CBIV88 ================================================ HCHOrad_CBIV88 ! Formaldehyde Photolysis to radical (HCHOrad) ! HCHO + hv -> H + HCO ! Taken from Gery et al. (1988); Absorption CS from Bass (1980); QY from ! Calvert (1980) fit to his data and Moortgat and coworkers (1978, 1979). ! format: wl, abs_cs, qy Centered ! With FAC, units are (cm^2/molecule) FAC=1.0E-20 280 2.34 0.560 281 1.65 0.580 282 0.76 0.600 283 0.46 0.620 284 3.93 0.630 285 3.46 0.650 286 2.32 0.670 287 0.95 0.680 288 2.32 0.700 289 2.50 0.710 290 1.43 0.720 291 1.32 0.730 292 0.66 0.750 293 5.22 0.760 294 4.30 0.760 295 3.21 0.770 296 1.59 0.780 297 1.96 0.790 298 3.66 0.790 299 1.55 0.790 300 0.72 0.800 301 1.51 0.800 302 0.74 0.800 303 4.35 0.800 304 4.79 0.800 305 4.94 0.790 306 3.02 0.790 307 1.16 0.790 308 2.18 0.780 309 2.25 0.770 310 1.03 0.760 311 0.81 0.750 312 1.49 0.740 313 1.55 0.730 314 3.99 0.720 315 2.88 0.700 316 2.79 0.690 317 3.59 0.670 318 1.65 0.650 319 0.73 0.630 320 1.71 0.610 321 1.32 0.590 322 0.43 0.570 323 0.60 0.540 324 0.75 0.510 325 2.19 0.490 326 3.44 0.460 327 1.75 0.430 328 1.01 0.390 329 3.03 0.360 330 1.96 0.330 331 0.79 0.290 332 0.32 0.250 333 0.15 0.210 334 0.17 0.170 335 0.02 0.130 336 0.17 0.083 337 0.32 0.038 338 1.93 0.000 339 2.15 0.000 340 1.07 0.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/HCHOrad_NASA94 ================================================ HCHOrad_NASA94 ! Formaldehyde Photolysis to radical (HCHOrad) ! HCHO + hv -> H + HCO ! Taken from the original RADM data, with NASA (1994) updates ! format: wl, abs_cs, qy Centered ! With FAC, units are (cm^2/molecule) FAC=1.0 245.400 0.000E+00 0.000E+00 248.500 0.000E+00 5.671E-03 251.600 3.910E-22 3.405E-01 254.800 1.183E-21 3.228E-01 258.100 2.807E-21 3.169E-01 261.400 5.063E-21 3.194E-01 264.900 5.548E-21 3.325E-01 268.500 9.348E-21 3.647E-01 272.100 1.160E-20 4.055E-01 275.900 1.602E-20 4.556E-01 279.700 1.584E-20 5.223E-01 283.700 2.267E-20 6.061E-01 287.800 2.126E-20 6.805E-01 292.000 2.264E-20 7.243E-01 296.300 2.988E-20 7.423E-01 300.500 8.500E-21 7.502E-01 303.000 4.330E-20 7.530E-01 304.000 4.330E-20 7.530E-01 305.000 3.790E-20 7.530E-01 306.000 3.250E-20 7.530E-01 307.000 3.250E-20 7.530E-01 308.000 2.220E-20 7.480E-01 309.000 2.220E-20 7.480E-01 310.000 1.575E-20 7.435E-01 311.000 9.310E-21 7.390E-01 312.000 9.310E-21 7.390E-01 313.000 3.400E-20 7.240E-01 314.000 3.400E-20 7.240E-01 316.000 3.808E-20 6.907E-01 320.000 1.415E-20 5.910E-01 325.000 2.456E-20 4.560E-01 330.000 1.785E-20 3.010E-01 335.000 1.270E-21 1.305E-01 340.000 2.148E-20 1.800E-02 345.000 6.655E-21 5.000E-04 350.000 1.375E-21 0.000E+00 355.000 8.375E-21 0.000E+00 360.000 0.000E+00 0.000E+00 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/HCHOrad_RADM88 ================================================ HCHOrad_RADM88 ! Formaldehyde Photolysis to radical (HCHOrad) ! HCHO + hv -> H + HCO ! Abs CS: Avg of Moortgat et al. [1980,1983] and Bass et al. [1980] ! QY from Moortgat et al. [1983]; Horowitz and Calvert [1978] ! format: wl, abs_cs, qy Beginning ! With FAC, units are (cm^2/molecule) FAC=1.0 246.914 0.000E+00 5.671E-03 250.000 3.910E-22 3.405E-01 253.165 1.183E-21 3.228E-01 256.410 2.807E-21 3.169E-01 259.740 5.063E-21 3.194E-01 263.158 5.548E-21 3.325E-01 266.667 9.348E-21 3.647E-01 270.270 1.160E-20 4.055E-01 273.973 1.602E-20 4.556E-01 277.778 1.584E-20 5.223E-01 281.690 2.267E-20 6.061E-01 285.714 2.126E-20 6.805E-01 289.855 2.264E-20 7.243E-01 294.118 2.988E-20 7.423E-01 298.500 1.523E-20 7.502E-01 302.500 2.281E-20 7.530E-01 303.500 6.326E-20 7.540E-01 304.500 4.668E-20 7.548E-01 305.500 4.497E-20 7.540E-01 306.500 2.035E-20 7.530E-01 307.500 1.412E-20 7.520E-01 308.500 2.959E-20 7.510E-01 309.500 1.745E-20 7.495E-01 310.500 7.280E-21 7.450E-01 311.500 1.340E-20 7.396E-01 312.500 1.247E-20 7.317E-01 313.500 3.917E-20 7.233E-01 314.500 3.947E-20 6.903E-01 317.500 1.526E-20 5.931E-01 322.500 2.110E-20 4.581E-01 327.500 1.923E-20 3.050E-01 332.500 2.134E-21 1.223E-01 337.500 1.632E-20 3.429E-03 342.500 6.668E-21 0.000E+00 347.500 1.519E-21 0.000E+00 352.500 7.166E-21 0.000E+00 357.500 9.075E-23 0.000E+00 362.500 0.000E+00 0.000E+00 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/HKET_RACM2 ================================================ HKET_RACM2 ! HKET + HV = HO2 + ACO3 + HCHO ! Absorption x-section from ! Quantum yield from ! Supplied by Dr. Wendy Goliff, reformatted by Dr. Golam Sarwar to make it compatible with CMAQ Points ! With FAC, units are (cm^2/molecule) FAC=1.0 186.1 0.000E+00 0.000 187.8 0.000E+00 0.000 189.6 0.000E+00 0.000 191.4 0.000E+00 0.000 193.3 0.000E+00 0.000 195.2 0.000E+00 0.000 197.1 0.000E+00 0.000 199.0 0.000E+00 0.000 201.0 0.000E+00 0.000 203.1 0.000E+00 0.000 205.2 0.000E+00 0.000 207.3 0.000E+00 0.000 209.4 0.000E+00 0.000 211.7 0.000E+00 0.000 213.9 0.000E+00 0.000 216.2 0.000E+00 0.000 218.6 0.000E+00 0.000 221.0 0.000E+00 0.000 223.5 0.000E+00 0.000 226.0 0.000E+00 0.000 228.6 0.000E+00 0.000 231.3 0.000E+00 0.000 234.0 0.000E+00 0.000 236.7 0.229E-19 0.000 239.6 0.278E-19 0.000 242.5 0.334E-19 0.650 245.4 0.374E-19 0.650 248.5 0.456E-19 0.650 251.6 0.518E-19 0.650 254.8 0.572E-19 0.650 258.2 0.619E-19 0.650 261.5 0.661E-19 0.650 265.0 0.674E-19 0.650 268.5 0.667E-19 0.650 272.2 0.642E-19 0.650 275.9 0.590E-19 0.650 279.8 0.512E-19 0.650 283.7 0.427E-19 0.650 287.8 0.334E-19 0.650 292.0 0.245E-19 0.650 296.3 0.169E-19 0.650 300.5 0.961E-20 0.650 303.0 0.743E-20 0.650 304.0 0.652E-20 0.650 305.0 0.569E-20 0.650 306.0 0.493E-20 0.650 307.0 0.431E-20 0.650 308.0 0.379E-20 0.650 309.0 0.331E-20 0.650 310.0 0.287E-20 0.650 311.0 0.249E-20 0.650 312.0 0.219E-20 0.650 313.0 0.192E-20 0.650 314.0 0.177E-20 0.650 316.0 0.142E-20 0.650 320.0 0.954E-21 0.650 325.0 0.629E-21 0.650 330.0 0.463E-21 0.650 335.0 0.345E-21 0.650 340.0 0.000E+00 0.650 345.0 0.000E+00 0.650 350.0 0.000E+00 0.650 355.0 0.000E+00 0.650 360.0 0.000E+00 0.650 365.0 0.000E+00 0.650 370.0 0.000E+00 0.650 375.0 0.000E+00 0.650 380.0 0.000E+00 0.650 385.0 0.000E+00 0.650 390.0 0.000E+00 0.650 395.0 0.000E+00 0.650 400.0 0.000E+00 0.650 405.0 0.000E+00 0.650 410.0 0.000E+00 0.650 415.0 0.000E+00 0.650 420.0 0.000E+00 0.650 425.0 0.000E+00 0.000 430.0 0.000E+00 0.000 435.0 0.000E+00 0.000 440.0 0.000E+00 0.000 445.0 0.000E+00 0.000 450.0 0.000E+00 0.000 455.0 0.000E+00 0.000 460.0 0.000E+00 0.000 465.0 0.000E+00 0.000 470.0 0.000E+00 0.000 475.0 0.000E+00 0.000 480.0 0.000E+00 0.000 485.0 0.000E+00 0.000 490.0 0.000E+00 0.000 495.0 0.000E+00 0.000 500.0 0.000E+00 0.000 505.0 0.000E+00 0.000 510.0 0.000E+00 0.000 515.0 0.000E+00 0.000 520.0 0.000E+00 0.000 525.0 0.000E+00 0.000 530.0 0.000E+00 0.000 535.0 0.000E+00 0.000 540.0 0.000E+00 0.000 545.0 0.000E+00 0.000 550.0 0.000E+00 0.000 555.0 0.000E+00 0.000 560.0 0.000E+00 0.000 565.0 0.000E+00 0.000 570.0 0.000E+00 0.000 575.0 0.000E+00 0.000 580.0 0.000E+00 0.000 585.0 0.000E+00 0.000 590.0 0.000E+00 0.000 595.0 0.000E+00 0.000 600.0 0.000E+00 0.000 605.0 0.000E+00 0.000 610.0 0.000E+00 0.000 615.0 0.000E+00 0.000 620.0 0.000E+00 0.000 625.0 0.000E+00 0.000 630.0 0.000E+00 0.000 635.0 0.000E+00 0.000 640.0 0.000E+00 0.000 644.8 0.000E+00 0.000 651.0 0.000E+00 0.000 660.0 0.000E+00 0.000 670.0 0.000E+00 0.000 680.0 0.000E+00 0.000 690.0 0.000E+00 0.000 700.0 0.000E+00 0.000 710.0 0.000E+00 0.000 720.0 0.000E+00 0.000 730.0 0.000E+00 0.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/HNO3 ================================================ HNO3 ! HNO3 + HV = products ! IUPAC (1997) Recommendation Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 190.0 1.360E-17 1.0000 195.0 1.020E-17 1.0000 200.0 5.880E-18 1.0000 205.0 2.800E-18 1.0000 210.0 1.040E-18 1.0000 215.0 3.650E-19 1.0000 220.0 1.490E-19 1.0000 225.0 8.810E-20 1.0000 230.0 5.750E-20 1.0000 235.0 3.750E-20 1.0000 240.0 2.580E-20 1.0000 245.0 2.110E-20 1.0000 250.0 1.970E-20 1.0000 255.0 1.950E-20 1.0000 260.0 1.910E-20 1.0000 265.0 1.800E-20 1.0000 270.0 1.620E-20 1.0000 275.0 1.380E-20 1.0000 280.0 1.120E-20 1.0000 285.0 8.580E-21 1.0000 290.0 6.150E-21 1.0000 295.0 4.120E-21 1.0000 300.0 2.630E-21 1.0000 305.0 1.500E-21 1.0000 310.0 8.100E-22 1.0000 315.0 4.100E-22 1.0000 320.0 2.000E-22 1.0000 325.0 9.500E-23 1.0000 330.0 4.300E-23 1.0000 335.0 2.200E-23 1.0000 340.0 1.000E-23 1.0000 345.0 6.000E-24 1.0000 350.0 4.000E-24 1.0000 355.0 0.000E+00 1.0000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/HNO3_IUPAC04 ================================================ HNO3_IUPAC04 !HONO2 + HV = OH + NO2 ! From IUPAC Subcommittee on Gas Kinetic Data Evaluation ! Data Sheet PNOx2_HONO2, updated 16th July 2001 ! Website: http://www.iupac-kinetic.ch.cam.ac.uk/ Points (These are point values) ! With FAC, units are (cm^2/molecule) FAC=1.0 190.0 1.360E-17 1.000 195.0 1.020E-17 1.000 200.0 5.880E-18 1.000 205.0 2.800E-18 1.000 210.0 1.040E-18 1.000 215.0 3.650E-19 1.000 220.0 1.490E-19 1.000 225.0 8.810E-20 1.000 230.0 5.750E-20 1.000 235.0 3.750E-20 1.000 240.0 2.580E-20 1.000 245.0 2.110E-20 1.000 250.0 1.970E-20 1.000 255.0 1.950E-20 1.000 260.0 1.910E-20 1.000 265.0 1.800E-20 1.000 270.0 1.620E-20 1.000 275.0 1.380E-20 1.000 280.0 1.120E-20 1.0 285.0 8.580E-21 1.0 290.0 6.150E-21 1.0 295.0 4.120E-21 1.0 300.0 2.630E-21 1.0 305.0 1.500E-21 1.0 310.0 8.100E-22 1.0 315.0 4.100E-22 1.0 320.0 2.000E-22 1.0 325.0 9.500E-23 1.0 330.0 4.300E-23 1.0 335.0 2.200E-23 1.0 340.0 1.000E-23 1.0 345.0 6.000E-24 1.0 350.0 4.000E-24 1.0 355.0 0.0 1.0 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/HNO3_IUPAC10 ================================================ HNO3_IUPAC10 ! j(HNO3) IUPAC(2010) ! HNO3 = OH + NO2 ! From IUPAC Subcommittee on Gas Kinetic Data Evaluation ! Data Sheet PNOx2, updated 16th Jul, 2001 !These are point values Begining (the mechanism evaluated with this format) !WL(nm) XSEC(cm2) QY FAC=1.0 190.0 1.360E-17 1.000 195.0 1.020E-17 1.000 200.0 5.880E-18 1.000 205.0 2.800E-18 1.000 210.0 1.040E-18 1.000 215.0 3.650E-19 1.000 220.0 1.490E-19 1.000 225.0 8.810E-20 1.000 230.0 5.750E-20 1.000 235.0 3.750E-20 1.000 240.0 2.580E-20 1.000 245.0 2.110E-20 1.000 250.0 1.970E-20 1.000 255.0 1.950E-20 1.000 260.0 1.910E-20 1.000 265.0 1.800E-20 1.000 270.0 1.620E-20 1.000 275.0 1.380E-20 1.000 280.0 1.120E-20 1.000 285.0 8.580E-21 1.000 290.0 6.150E-21 1.000 295.0 4.120E-21 1.000 300.0 2.630E-21 1.000 305.0 1.500E-21 1.000 310.0 8.100E-22 1.000 315.0 4.100E-22 1.000 320.0 2.000E-22 1.000 325.0 9.500E-23 1.000 330.0 4.300E-23 1.000 335.0 2.200E-23 1.000 340.0 1.000E-23 1.000 345.0 6.000E-24 1.000 350.0 4.000E-24 1.000 351.0 0.000E+00 1.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/HNO3_NASA94 ================================================ HNO3_NASA94 ! Nitric Acid Photolysis (HNO3) ! HNO3 + hv -> OH + NO2 ! Taken from the original RADM data, with NASA (1994) updates ! format: wl, abs_cs, qy Centered ! With FAC, units are (cm^2/molecule) FAC=1.0 187.800 0.000E+00 1.000E+00 189.600 1.117E-17 1.000E+00 191.400 1.264E-17 1.000E+00 193.200 1.143E-17 1.000E+00 195.100 1.007E-17 1.000E+00 197.000 8.507E-18 1.000E+00 199.000 6.781E-18 1.000E+00 201.000 5.168E-18 1.000E+00 203.100 3.846E-18 1.000E+00 205.100 2.733E-18 1.000E+00 207.300 1.844E-18 1.000E+00 209.400 1.198E-18 1.000E+00 211.600 7.522E-19 1.000E+00 213.900 4.597E-19 1.000E+00 216.200 2.766E-19 1.000E+00 218.600 1.833E-19 1.000E+00 221.000 1.335E-19 1.000E+00 223.500 1.029E-19 1.000E+00 226.000 8.067E-20 1.000E+00 228.600 6.457E-20 1.000E+00 231.200 5.237E-20 1.000E+00 233.900 4.174E-20 1.000E+00 236.700 3.192E-20 1.000E+00 239.500 2.690E-20 1.000E+00 242.400 2.288E-20 1.000E+00 245.400 2.096E-20 1.000E+00 248.500 1.992E-20 1.000E+00 251.600 1.963E-20 1.000E+00 254.800 1.950E-20 1.000E+00 258.100 1.929E-20 1.000E+00 261.400 1.883E-20 1.000E+00 264.900 1.801E-20 1.000E+00 268.500 1.678E-20 1.000E+00 272.100 1.524E-20 1.000E+00 275.900 1.339E-20 1.000E+00 279.700 1.135E-20 1.000E+00 283.700 9.238E-21 1.000E+00 287.800 7.200E-21 1.000E+00 292.000 5.336E-21 1.000E+00 296.300 3.732E-21 1.000E+00 300.500 2.490E-21 1.000E+00 303.000 1.875E-21 1.000E+00 304.000 1.670E-21 1.000E+00 305.000 1.500E-21 1.000E+00 306.000 1.330E-21 1.000E+00 307.000 1.190E-21 1.000E+00 308.000 1.050E-21 1.000E+00 309.000 9.320E-22 1.000E+00 310.000 8.140E-22 1.000E+00 311.000 7.210E-22 1.000E+00 312.000 6.280E-22 1.000E+00 313.000 5.465E-22 1.000E+00 314.000 4.650E-22 1.000E+00 316.000 3.640E-22 1.000E+00 320.000 2.063E-22 1.000E+00 325.000 9.753E-23 1.000E+00 330.000 4.520E-23 1.000E+00 335.000 2.217E-23 1.000E+00 340.000 1.096E-23 1.000E+00 345.000 6.040E-24 1.000E+00 350.000 2.940E-24 1.000E+00 355.000 0.000E+00 1.000E+00 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/HNO3_RACM2 ================================================ HNO3_RACM2 ! HNO3 + HV = HO + NO2 ! Absorption x-section from NASA - 2006 ! Quantum yield assumed to be 1.0 ! Supplied by Dr. Wendy Goliff, reformatted by Dr. Golam Sarwar to make it compatible with CMAQ Points ! With FAC, units are (cm^2/molecule) FAC=1.0 186.1 0.000E+00 1.000 187.8 0.000E+00 1.000 189.6 0.000E+00 1.000 191.4 0.000E+00 1.000 193.3 0.114E-16 1.000 195.2 0.100E-16 1.000 197.1 0.847E-17 1.000 199.0 0.679E-17 1.000 201.0 0.518E-17 1.000 203.1 0.382E-17 1.000 205.2 0.270E-17 1.000 207.3 0.182E-17 1.000 209.4 0.120E-17 1.000 211.7 0.730E-18 1.000 213.9 0.451E-18 1.000 216.2 0.283E-18 1.000 218.6 0.185E-18 1.000 221.0 0.134E-18 1.000 223.5 0.102E-18 1.000 226.0 0.802E-19 1.000 228.6 0.650E-19 1.000 231.3 0.518E-19 1.000 234.0 0.414E-19 1.000 236.7 0.321E-19 1.000 239.6 0.265E-19 1.000 242.5 0.230E-19 1.000 245.4 0.209E-19 1.000 248.5 0.199E-19 1.000 251.6 0.196E-19 1.000 254.8 0.195E-19 1.000 258.2 0.193E-19 1.000 261.5 0.188E-19 1.000 265.0 0.180E-19 1.000 268.5 0.168E-19 1.000 272.2 0.152E-19 1.000 275.9 0.134E-19 1.000 279.8 0.113E-19 1.000 283.7 0.924E-20 1.000 287.8 0.719E-20 1.000 292.0 0.532E-20 1.000 296.3 0.371E-20 1.000 300.5 0.249E-20 1.000 303.0 0.188E-20 1.000 304.0 0.167E-20 1.000 305.0 0.150E-20 1.000 306.0 0.133E-20 1.000 307.0 0.119E-20 1.000 308.0 0.105E-20 1.000 309.0 0.932E-21 1.000 310.0 0.814E-21 1.000 311.0 0.721E-21 1.000 312.0 0.628E-21 1.000 313.0 0.548E-21 1.000 314.0 0.468E-21 1.000 316.0 0.362E-21 1.000 320.0 0.197E-21 1.000 325.0 0.950E-22 1.000 330.0 0.431E-22 1.000 335.0 0.220E-22 1.000 340.0 0.103E-22 1.000 345.0 0.595E-23 1.000 350.0 0.420E-23 1.000 355.0 0.000E+00 1.000 360.0 0.000E+00 1.000 365.0 0.000E+00 1.000 370.0 0.000E+00 1.000 375.0 0.000E+00 1.000 380.0 0.000E+00 1.000 385.0 0.000E+00 1.000 390.0 0.000E+00 1.000 395.0 0.000E+00 1.000 400.0 0.000E+00 1.000 405.0 0.000E+00 1.000 410.0 0.000E+00 1.000 415.0 0.000E+00 1.000 420.0 0.000E+00 1.000 425.0 0.000E+00 1.000 430.0 0.000E+00 1.000 435.0 0.000E+00 1.000 440.0 0.000E+00 1.000 445.0 0.000E+00 1.000 450.0 0.000E+00 1.000 455.0 0.000E+00 1.000 460.0 0.000E+00 1.000 465.0 0.000E+00 1.000 470.0 0.000E+00 1.000 475.0 0.000E+00 1.000 480.0 0.000E+00 1.000 485.0 0.000E+00 1.000 490.0 0.000E+00 1.000 495.0 0.000E+00 1.000 500.0 0.000E+00 1.000 505.0 0.000E+00 1.000 510.0 0.000E+00 1.000 515.0 0.000E+00 1.000 520.0 0.000E+00 1.000 525.0 0.000E+00 1.000 530.0 0.000E+00 1.000 535.0 0.000E+00 1.000 540.0 0.000E+00 1.000 545.0 0.000E+00 1.000 550.0 0.000E+00 1.000 555.0 0.000E+00 1.000 560.0 0.000E+00 1.000 565.0 0.000E+00 1.000 570.0 0.000E+00 1.000 575.0 0.000E+00 1.000 580.0 0.000E+00 1.000 585.0 0.000E+00 1.000 590.0 0.000E+00 1.000 595.0 0.000E+00 1.000 600.0 0.000E+00 1.000 605.0 0.000E+00 1.000 610.0 0.000E+00 1.000 615.0 0.000E+00 1.000 620.0 0.000E+00 1.000 625.0 0.000E+00 1.000 630.0 0.000E+00 1.000 635.0 0.000E+00 1.000 640.0 0.000E+00 1.000 644.8 0.000E+00 1.000 651.0 0.000E+00 1.000 660.0 0.000E+00 1.000 670.0 0.000E+00 1.000 680.0 0.000E+00 1.000 690.0 0.000E+00 1.000 700.0 0.000E+00 1.000 710.0 0.000E+00 1.000 720.0 0.000E+00 1.000 730.0 0.000E+00 1.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/HNO3_RADM88 ================================================ HNO3_RADM88 ! Nitric Acid Photolysis (HNO3) ! HNO3 + hv -> OH + NO2 ! Abs CS from Molina and Molina [1981] ! QY assumed to be unity over UV absorption range ! format: wl, abs_cs, qy Beginning ! With FAC, units are (cm^2/molecule) FAC=1.0 190.476 1.370E-17 1.000E+00 192.308 1.220E-17 1.000E+00 194.175 1.040E-17 1.000E+00 196.078 8.540E-18 1.000E+00 198.020 6.660E-18 1.000E+00 200.000 5.120E-18 1.000E+00 202.020 3.600E-18 1.000E+00 204.082 2.480E-18 1.000E+00 206.186 1.670E-18 1.000E+00 208.333 9.930E-19 1.000E+00 210.526 6.640E-19 1.000E+00 212.766 3.780E-19 1.000E+00 215.054 2.570E-19 1.000E+00 217.391 1.650E-19 1.000E+00 219.780 1.220E-19 1.000E+00 222.222 9.100E-20 1.000E+00 224.719 7.260E-20 1.000E+00 227.273 5.770E-20 1.000E+00 229.885 4.660E-20 1.000E+00 232.558 3.680E-20 1.000E+00 235.294 3.000E-20 1.000E+00 238.095 2.480E-20 1.000E+00 240.964 2.200E-20 1.000E+00 243.902 2.030E-20 1.000E+00 246.914 1.920E-20 1.000E+00 250.000 1.900E-20 1.000E+00 253.165 1.890E-20 1.000E+00 256.410 1.870E-20 1.000E+00 259.740 1.770E-20 1.000E+00 263.158 1.670E-20 1.000E+00 266.667 1.570E-20 1.000E+00 270.270 1.400E-20 1.000E+00 273.973 1.210E-20 1.000E+00 277.778 1.010E-20 1.000E+00 281.690 8.130E-21 1.000E+00 285.714 6.170E-21 1.000E+00 289.855 4.440E-21 1.000E+00 294.118 2.950E-21 1.000E+00 298.500 2.080E-21 1.000E+00 302.500 1.740E-21 1.000E+00 303.500 1.550E-21 1.000E+00 304.500 1.390E-21 1.000E+00 305.500 1.240E-21 1.000E+00 306.500 1.090E-21 1.000E+00 307.500 9.350E-22 1.000E+00 308.500 7.850E-22 1.000E+00 309.500 6.710E-22 1.000E+00 310.500 5.930E-22 1.000E+00 311.500 5.150E-22 1.000E+00 312.500 4.370E-22 1.000E+00 313.500 3.300E-22 1.000E+00 314.500 2.000E-22 1.000E+00 317.500 8.500E-23 1.000E+00 322.500 3.500E-23 1.000E+00 327.500 0.000E+00 1.000E+00 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/HNO3_SAPRC99 ================================================ HNO3 ! HNO3 + HV = products ! SAPRC-99 Photolysis data. Supplied by William P. L. Carter. ! Created from PhotDat.xls on 29-Jan-2000 10:07 Points (the mechanism was evaluated assuming this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 190.0 1.360E-17 1.000 195.0 1.020E-17 1.000 200.0 5.880E-18 1.000 205.0 2.800E-18 1.000 210.0 1.040E-18 1.000 215.0 3.650E-19 1.000 220.0 1.490E-19 1.000 225.0 8.810E-20 1.000 230.0 5.750E-20 1.000 235.0 3.750E-20 1.000 240.0 2.580E-20 1.000 245.0 2.110E-20 1.000 250.0 1.970E-20 1.000 255.0 1.950E-20 1.000 260.0 1.910E-20 1.000 265.0 1.800E-20 1.000 270.0 1.620E-20 1.000 275.0 1.380E-20 1.000 280.0 1.120E-20 1.000 285.0 8.580E-21 1.000 290.0 6.150E-21 1.000 295.0 4.120E-21 1.000 300.0 2.630E-21 1.000 305.0 1.500E-21 1.000 310.0 8.100E-22 1.000 315.0 4.100E-22 1.000 320.0 2.000E-22 1.000 325.0 9.500E-23 1.000 330.0 4.300E-23 1.000 335.0 2.200E-23 1.000 340.0 1.000E-23 1.000 345.0 6.000E-24 1.000 350.0 4.000E-24 1.000 355.0 0.000E+00 1.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/HNO4-06 ================================================ HNO4-06 ! HO2NO2 + HV = PRODUCTS ! NASA (2006) ! Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 280.0 9.290E-20 1.0000 282.0 8.110E-20 1.0000 284.0 6.930E-20 1.0000 286.0 5.860E-20 1.0000 288.0 4.910E-20 1.0000 290.0 3.950E-20 1.0000 292.0 3.370E-20 1.0000 294.0 2.780E-20 1.0000 296.0 2.300E-20 1.0000 298.0 1.910E-20 1.0000 300.0 1.520E-20 1.0000 302.0 1.280E-20 1.0000 304.0 1.050E-20 1.0000 306.0 8.530E-21 1.0000 308.0 7.020E-21 1.0000 310.0 5.510E-21 1.0000 312.0 4.650E-21 1.0000 314.0 3.800E-21 1.0000 316.0 3.130E-21 1.0000 318.0 2.650E-21 1.0000 320.0 2.160E-21 1.0000 322.0 1.840E-21 1.0000 324.0 1.520E-21 1.0000 326.0 1.280E-21 1.0000 328.0 1.100E-21 1.0000 330.0 9.260E-22 1.0000 332.0 7.880E-22 1.0000 334.0 6.500E-22 1.0000 336.0 5.400E-22 1.0000 338.0 4.560E-22 1.0000 340.0 3.720E-22 1.0000 342.0 3.200E-22 1.0000 344.0 2.680E-22 1.0000 346.0 2.280E-22 1.0000 348.0 1.980E-22 1.0000 350.0 1.680E-22 1.0000 352.0 1.380E-22 1.0000 360.0 0.000E+00 1.0000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/HNO4_06 ================================================ HNO4-06 ! HO2NO2 + HV = PRODUCTS ! NASA (2011) ! Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 190.0 1.01e-17 1.000 195.0 8.16e-18 1.000 200.0 5.63e-18 1.000 205.0 3.67e-18 1.000 210.0 2.39e-18 1.000 215.0 1.61e-18 1.000 220.0 1.18e-18 1.000 225.0 9.35e-19 1.000 230.0 7.92e-19 1.000 235.0 6.83e-19 1.000 240.0 5.81e-19 1.000 245.0 4.90e-19 1.000 250.0 4.13e-19 1.000 255.0 3.50e-19 1.000 260.0 2.85e-19 1.000 265.0 2.30e-19 1.000 270.0 1.81e-19 1.000 275.0 1.34e-19 1.000 280.0 9.29e-20 1.000 282.0 8.11e-20 1.000 284.0 6.93e-20 1.000 286.0 5.86e-20 1.000 288.0 4.91e-20 1.000 290.0 3.95e-20 1.000 292.0 3.37e-20 1.000 294.0 2.78e-20 1.000 296.0 2.30e-20 1.000 298.0 1.91e-20 1.000 300.0 1.52e-20 1.000 302.0 1.28e-20 1.000 304.0 1.05e-20 1.000 306.0 8.53e-21 1.000 308.0 7.02e-21 1.000 310.0 5.51e-21 1.000 312.0 4.65e-21 1.000 314.0 3.80e-21 1.000 316.0 3.13e-21 1.000 318.0 2.65e-21 1.000 320.0 2.16e-21 1.000 322.0 1.84e-21 1.000 324.0 1.52e-21 1.000 326.0 1.28e-21 1.000 328.0 1.10e-21 1.000 330.0 9.26e-22 1.000 332.0 7.88e-22 1.000 334.0 6.50e-22 1.000 336.0 5.40e-22 1.000 338.0 4.56e-22 1.000 340.0 3.72e-22 1.000 342.0 3.20e-22 1.000 344.0 2.68e-22 1.000 346.0 2.28e-22 1.000 348.0 1.98e-22 1.000 350.0 1.68e-22 1.000 351.0 0.000000 0.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/HNO4_NASA94 ================================================ HNO4_NASA94 ! Pernitric Acid Photolysis (HNO4) ! HNO4 + hv -> HO2 + NO2 ! Taken from the original RADM data, with NASA (1994) updates ! format: wl, abs_cs, qy Centered ! With FAC, units are (cm^2/molecule) FAC=1.0 186.100 0.000E+00 1.000E+00 187.800 6.754E-18 1.000E+00 189.600 1.010E-17 1.000E+00 191.400 1.010E-17 1.000E+00 193.200 8.360E-18 1.000E+00 195.100 8.160E-18 1.000E+00 197.000 7.483E-18 1.000E+00 199.000 5.630E-18 1.000E+00 201.000 5.630E-18 1.000E+00 203.100 4.126E-18 1.000E+00 205.100 3.670E-18 1.000E+00 207.300 3.173E-18 1.000E+00 209.400 2.390E-18 1.000E+00 211.600 2.297E-18 1.000E+00 213.900 1.610E-18 1.000E+00 216.200 1.610E-18 1.000E+00 218.600 1.200E-18 1.000E+00 221.000 1.180E-18 1.000E+00 223.500 9.623E-19 1.000E+00 226.000 9.350E-19 1.000E+00 228.600 8.044E-19 1.000E+00 231.200 7.896E-19 1.000E+00 233.900 6.820E-19 1.000E+00 236.700 6.605E-19 1.000E+00 239.500 5.810E-19 1.000E+00 242.400 5.371E-19 1.000E+00 245.400 4.890E-19 1.000E+00 248.500 4.266E-19 1.000E+00 251.600 3.990E-19 1.000E+00 254.800 3.500E-19 1.000E+00 258.100 3.063E-19 1.000E+00 261.400 2.744E-19 1.000E+00 264.900 2.300E-19 1.000E+00 268.500 1.923E-19 1.000E+00 272.100 1.623E-19 1.000E+00 275.900 1.310E-19 1.000E+00 279.700 9.300E-20 1.000E+00 283.700 6.824E-20 1.000E+00 287.800 4.892E-20 1.000E+00 292.000 3.331E-20 1.000E+00 296.300 2.172E-20 1.000E+00 300.500 1.400E-20 1.000E+00 303.000 9.000E-21 1.000E+00 304.000 9.000E-21 1.000E+00 305.000 9.000E-21 1.000E+00 306.000 9.000E-21 1.000E+00 307.000 9.000E-21 1.000E+00 308.000 5.000E-21 1.000E+00 309.000 5.000E-21 1.000E+00 310.000 5.000E-21 1.000E+00 311.000 5.000E-21 1.000E+00 312.000 5.000E-21 1.000E+00 313.000 3.000E-21 1.000E+00 314.000 3.000E-21 1.000E+00 316.000 3.000E-21 1.000E+00 320.000 2.000E-21 1.000E+00 325.000 1.000E-21 1.000E+00 330.000 0.000E+00 1.000E+00 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/HNO4_RACM2 ================================================ HNO4_RACM2 ! HNO4 + HV = 0.20*HO + 0.80*HO2 + 0.80*NO2 + 0.20*NO3 ! Absorption x-section from NASA - 2006 ! Quantum yield assumed to be 1.0 ! Supplied by Dr. Wendy Goliff, reformatted by Dr. Golam Sarwar to make it compatible with CMAQ Points ! With FAC, units are (cm^2/molecule) FAC=1.0 186.1 0.000E+00 1.000 187.8 0.000E+00 1.000 189.6 0.000E+00 1.000 191.4 0.956E-17 1.000 193.3 0.882E-17 1.000 195.2 0.806E-17 1.000 197.1 0.710E-17 1.000 199.0 0.614E-17 1.000 201.0 0.524E-17 1.000 203.1 0.441E-17 1.000 205.2 0.362E-17 1.000 207.3 0.308E-17 1.000 209.4 0.254E-17 1.000 211.7 0.212E-17 1.000 213.9 0.178E-17 1.000 216.2 0.151E-17 1.000 218.6 0.130E-17 1.000 221.0 0.113E-17 1.000 223.5 0.101E-17 1.000 226.0 0.906E-18 1.000 228.6 0.832E-18 1.000 231.3 0.764E-18 1.000 234.0 0.704E-18 1.000 236.7 0.648E-18 1.000 239.6 0.589E-18 1.000 242.5 0.535E-18 1.000 245.4 0.483E-18 1.000 248.5 0.436E-18 1.000 251.6 0.393E-18 1.000 254.8 0.353E-18 1.000 258.2 0.308E-18 1.000 261.5 0.269E-18 1.000 265.0 0.230E-18 1.000 268.5 0.195E-18 1.000 272.2 0.160E-18 1.000 275.9 0.127E-18 1.000 279.8 0.945E-19 1.000 283.7 0.711E-19 1.000 287.8 0.501E-19 1.000 292.0 0.337E-19 1.000 296.3 0.224E-19 1.000 300.5 0.146E-19 1.000 303.0 0.117E-19 1.000 304.0 0.105E-19 1.000 305.0 0.952E-20 1.000 306.0 0.853E-20 1.000 307.0 0.778E-20 1.000 308.0 0.702E-20 1.000 309.0 0.627E-20 1.000 310.0 0.551E-20 1.000 311.0 0.508E-20 1.000 312.0 0.465E-20 1.000 313.0 0.423E-20 1.000 314.0 0.380E-20 1.000 316.0 0.313E-20 1.000 320.0 0.216E-20 1.000 325.0 0.140E-20 1.000 330.0 0.926E-21 1.000 335.0 0.595E-21 1.000 340.0 0.372E-21 1.000 345.0 0.145E-21 1.000 350.0 0.168E-21 1.000 355.0 0.000E+00 1.000 360.0 0.000E+00 1.000 365.0 0.000E+00 1.000 370.0 0.000E+00 1.000 375.0 0.000E+00 1.000 380.0 0.000E+00 1.000 385.0 0.000E+00 1.000 390.0 0.000E+00 1.000 395.0 0.000E+00 1.000 400.0 0.000E+00 1.000 405.0 0.000E+00 1.000 410.0 0.000E+00 1.000 415.0 0.000E+00 1.000 420.0 0.000E+00 1.000 425.0 0.000E+00 1.000 430.0 0.000E+00 1.000 435.0 0.000E+00 1.000 440.0 0.000E+00 1.000 445.0 0.000E+00 1.000 450.0 0.000E+00 1.000 455.0 0.000E+00 1.000 460.0 0.000E+00 1.000 465.0 0.000E+00 1.000 470.0 0.000E+00 1.000 475.0 0.000E+00 1.000 480.0 0.000E+00 1.000 485.0 0.000E+00 1.000 490.0 0.000E+00 1.000 495.0 0.000E+00 1.000 500.0 0.000E+00 1.000 505.0 0.000E+00 1.000 510.0 0.000E+00 1.000 515.0 0.000E+00 1.000 520.0 0.000E+00 1.000 525.0 0.000E+00 1.000 530.0 0.000E+00 1.000 535.0 0.000E+00 1.000 540.0 0.000E+00 1.000 545.0 0.000E+00 1.000 550.0 0.000E+00 1.000 555.0 0.000E+00 1.000 560.0 0.000E+00 1.000 565.0 0.000E+00 1.000 570.0 0.000E+00 1.000 575.0 0.000E+00 1.000 580.0 0.000E+00 1.000 585.0 0.000E+00 1.000 590.0 0.000E+00 1.000 595.0 0.000E+00 1.000 600.0 0.000E+00 1.000 605.0 0.000E+00 1.000 610.0 0.000E+00 1.000 615.0 0.000E+00 1.000 620.0 0.000E+00 1.000 625.0 0.000E+00 1.000 630.0 0.000E+00 1.000 635.0 0.000E+00 1.000 640.0 0.000E+00 1.000 644.8 0.000E+00 1.000 651.0 0.000E+00 1.000 660.0 0.000E+00 1.000 670.0 0.000E+00 1.000 680.0 0.000E+00 1.000 690.0 0.000E+00 1.000 700.0 0.000E+00 1.000 710.0 0.000E+00 1.000 720.0 0.000E+00 1.000 730.0 0.000E+00 1.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/HNO4_RADM88 ================================================ HNO4_RADM88 ! Pernitric Acid Photolysis (HNO4) ! HNO4 + hv -> HO2 + NO2 ! Abs CS from Molina and Molina [1981]; ! QY assumed to be unity over UV absorption range ! format: wl, abs_cs, qy Beginning ! With FAC, units are (cm^2/molecule) FAC=1.0 188.679 1.000E-17 1.000E+00 190.476 9.000E-18 1.000E+00 192.308 7.600E-18 1.000E+00 194.175 6.600E-18 1.000E+00 196.078 5.600E-18 1.000E+00 198.020 4.800E-18 1.000E+00 200.000 4.000E-18 1.000E+00 202.020 3.400E-18 1.000E+00 204.082 2.900E-18 1.000E+00 206.186 2.400E-18 1.000E+00 208.333 2.100E-18 1.000E+00 210.526 1.700E-18 1.000E+00 212.766 1.500E-18 1.000E+00 215.054 1.300E-18 1.000E+00 217.391 1.100E-18 1.000E+00 219.780 1.000E-18 1.000E+00 222.222 9.000E-19 1.000E+00 224.719 8.200E-19 1.000E+00 227.273 7.500E-19 1.000E+00 229.885 6.800E-19 1.000E+00 232.558 6.500E-19 1.000E+00 235.294 6.000E-19 1.000E+00 238.095 5.500E-19 1.000E+00 240.964 5.000E-19 1.000E+00 243.902 4.400E-19 1.000E+00 246.914 4.000E-19 1.000E+00 250.000 3.500E-19 1.000E+00 253.165 3.000E-19 1.000E+00 256.410 2.700E-19 1.000E+00 259.740 2.350E-19 1.000E+00 263.158 2.000E-19 1.000E+00 266.667 1.800E-19 1.000E+00 270.270 1.550E-19 1.000E+00 273.973 1.250E-19 1.000E+00 277.778 9.000E-20 1.000E+00 281.690 6.500E-20 1.000E+00 285.714 4.500E-20 1.000E+00 289.855 3.100E-20 1.000E+00 294.118 2.100E-20 1.000E+00 298.500 1.350E-20 1.000E+00 302.500 1.100E-20 1.000E+00 303.500 1.000E-20 1.000E+00 304.500 9.000E-21 1.000E+00 305.500 8.500E-21 1.000E+00 306.500 7.700E-21 1.000E+00 307.500 7.000E-21 1.000E+00 308.500 6.600E-21 1.000E+00 309.500 6.000E-21 1.000E+00 310.500 5.500E-21 1.000E+00 311.500 5.100E-21 1.000E+00 312.500 4.500E-21 1.000E+00 313.500 4.200E-21 1.000E+00 314.500 3.300E-21 1.000E+00 317.500 2.400E-21 1.000E+00 322.500 1.500E-21 1.000E+00 327.500 1.000E-21 1.000E+00 332.500 0.000E+00 1.000E+00 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/HO2NO2_IUPAC04 ================================================ HO2NO2_IUPAC04 ! HOONO2 + HV = products ! From IUPAC Subcommittee on Gas Kinetic Data Evaluation ! Data Sheet PNOx3_HO2NO2, updated 16th July 2001 ! Website: http://www.iupac-kinetic.ch.cam.ac.uk/ Points (These are point values) ! With FAC, units are (cm^2/molecule) FAC=1.0 280.0 9.300E-20 1.0 285.0 6.200E-20 1.0 290.0 3.900E-20 1.0 295.0 2.400E-20 1.0 300.0 1.400E-20 1.0 305.0 8.500E-21 1.0 310.0 5.300E-21 1.0 315.0 3.900E-21 1.0 320.0 2.400E-21 1.0 325.0 1.500E-21 1.0 330.0 9.000E-22 1.0 335.0 0.0 1.0 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/HO2NO2_SAPRC99 ================================================ HO2NO2 ! HO2NO2 + HV = PRODUCTS ! SAPRC-99 Photolysis data. Supplied by William P. L. Carter. ! Created from PhotDat.xls on 29-Jan-2000 10:07 Points (the mechanism was evaluated assuming this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 190.0 1.010E-17 1.000 195.0 8.160E-18 1.000 200.0 5.630E-18 1.000 205.0 3.670E-18 1.000 210.0 2.390E-18 1.000 215.0 1.610E-18 1.000 220.0 1.180E-18 1.000 225.0 9.320E-19 1.000 230.0 7.880E-19 1.000 235.0 6.800E-19 1.000 240.0 5.790E-19 1.000 245.0 4.970E-19 1.000 250.0 4.110E-19 1.000 255.0 3.490E-19 1.000 260.0 2.840E-19 1.000 265.0 2.290E-19 1.000 270.0 1.800E-19 1.000 275.0 1.330E-19 1.000 280.0 9.300E-20 1.000 285.0 6.200E-20 1.000 290.0 3.900E-20 1.000 295.0 2.400E-20 1.000 300.0 1.400E-20 1.000 305.0 8.500E-21 1.000 310.0 5.300E-21 1.000 315.0 3.900E-21 1.000 320.0 2.400E-21 1.000 325.0 1.500E-21 1.000 330.0 9.000E-22 1.000 335.0 0.000E+00 1.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/HOBR ================================================ HOBR ! HOBR + HV = BR + OH ! HOBr Photolysis data ! Supplied by Brett Gantt ! Created from IUPAC dataset 3-Mar-2014 10:00 Points (These data can be treated as point values) ! With FAC, units are (cm^2/molecule) FAC=1.0 250.0 4.160E-20 1.000 255.0 6.930E-20 1.000 260.0 1.050E-19 1.000 265.0 1.460E-19 1.000 270.0 1.870E-19 1.000 275.0 2.210E-19 1.000 280.0 2.430E-19 1.000 285.0 2.500E-19 1.000 290.0 2.400E-19 1.000 295.0 2.100E-19 1.000 300.0 1.910E-19 1.000 305.0 1.620E-19 1.000 310.0 1.360E-19 1.000 315.0 1.180E-19 1.000 320.0 1.080E-19 1.000 325.0 1.050E-19 1.000 330.0 1.080E-19 1.000 335.0 1.130E-19 1.000 340.0 1.190E-19 1.000 350.0 1.230E-19 1.000 345.0 1.250E-19 1.000 355.0 1.220E-19 1.000 360.0 1.150E-19 1.000 365.0 1.050E-19 1.000 370.0 9.320E-20 1.000 375.0 8.000E-20 1.000 380.0 6.660E-20 1.000 385.0 5.380E-20 1.000 390.0 4.220E-20 1.000 395.0 3.240E-20 1.000 400.0 2.430E-20 1.000 405.0 1.800E-20 1.000 410.0 1.360E-20 1.000 415.0 1.080E-20 1.000 420.0 9.670E-21 1.000 425.0 1.000E-20 1.000 430.0 1.150E-20 1.000 435.0 1.400E-20 1.000 440.0 1.680E-20 1.000 445.0 1.960E-20 1.000 450.0 2.180E-20 1.000 455.0 2.280E-20 1.000 460.0 2.280E-20 1.000 465.0 2.140E-20 1.000 470.0 1.910E-20 1.000 475.0 1.620E-20 1.000 480.0 1.300E-20 1.000 485.0 9.930E-21 1.000 490.0 7.230E-21 1.000 495.0 5.020E-21 1.000 500.0 3.340E-21 1.000 505.0 2.120E-21 1.000 510.0 1.290E-21 1.000 515.0 7.500E-22 1.000 520.0 4.200E-22 1.000 525.0 2.300E-22 1.000 530.0 1.200E-22 1.000 535.0 6.000E-23 1.000 540.0 3.000E-23 1.000 545.0 1.000E-24 1.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/HOBR_IUPAC10 ================================================ HOBR_IUPAC10 ! HOBR + HV = BR + OH ! HOBr Photolysis data ! Supplied by Brett Gantt ! Created from IUPAC dataset Points (these data can be treated as point values) ! With FAC, units are (cm^2/molecule) FAC=1.0 250.0 4.160E-20 1.000 255.0 6.930E-20 1.000 260.0 1.050E-19 1.000 265.0 1.460E-19 1.000 270.0 1.870E-19 1.000 275.0 2.210E-19 1.000 280.0 2.430E-19 1.000 285.0 2.500E-19 1.000 290.0 2.400E-19 1.000 295.0 2.100E-19 1.000 300.0 1.910E-19 1.000 305.0 1.620E-19 1.000 310.0 1.360E-19 1.000 315.0 1.180E-19 1.000 320.0 1.080E-19 1.000 325.0 1.050E-19 1.000 330.0 1.080E-19 1.000 335.0 1.130E-19 1.000 340.0 1.190E-19 1.000 345.0 1.250E-19 1.000 350.0 1.230E-19 1.000 355.0 1.220E-19 1.000 360.0 1.150E-19 1.000 365.0 1.050E-19 1.000 370.0 9.320E-20 1.000 375.0 8.000E-20 1.000 380.0 6.660E-20 1.000 385.0 5.380E-20 1.000 390.0 4.220E-20 1.000 395.0 3.240E-20 1.000 400.0 2.430E-20 1.000 405.0 1.800E-20 1.000 410.0 1.360E-20 1.000 415.0 1.080E-20 1.000 420.0 9.670E-21 1.000 425.0 1.000E-20 1.000 430.0 1.150E-20 1.000 435.0 1.400E-20 1.000 440.0 1.680E-20 1.000 445.0 1.960E-20 1.000 450.0 2.180E-20 1.000 455.0 2.280E-20 1.000 460.0 2.280E-20 1.000 465.0 2.140E-20 1.000 470.0 1.910E-20 1.000 475.0 1.620E-20 1.000 480.0 1.300E-20 1.000 485.0 9.930E-21 1.000 490.0 7.230E-21 1.000 495.0 5.020E-21 1.000 500.0 3.340E-21 1.000 505.0 2.120E-21 1.000 510.0 1.290E-21 1.000 515.0 7.500E-22 1.000 520.0 4.200E-22 1.000 525.0 2.300E-22 1.000 530.0 1.200E-22 1.000 535.0 6.000E-23 1.000 540.0 3.000E-23 1.000 545.0 1.000E-24 1.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/HOBR_IUPAC2014 ================================================ HOBR ! HOBR + HV = BR + OH ! HOBr Photolysis data ! Supplied by Brett Gantt ! Created from IUPAC dataset 3-Mar-2014 10:00 Points (These data can be treated as point values) ! With FAC, units are (cm^2/molecule) FAC=1.0 250.0 4.160E-20 1.000 255.0 6.930E-20 1.000 260.0 1.050E-19 1.000 265.0 1.460E-19 1.000 270.0 1.870E-19 1.000 275.0 2.210E-19 1.000 280.0 2.430E-19 1.000 285.0 2.500E-19 1.000 290.0 2.400E-19 1.000 295.0 2.100E-19 1.000 300.0 1.910E-19 1.000 305.0 1.620E-19 1.000 310.0 1.360E-19 1.000 315.0 1.180E-19 1.000 320.0 1.080E-19 1.000 325.0 1.050E-19 1.000 330.0 1.080E-19 1.000 335.0 1.130E-19 1.000 340.0 1.190E-19 1.000 350.0 1.230E-19 1.000 345.0 1.250E-19 1.000 355.0 1.220E-19 1.000 360.0 1.150E-19 1.000 365.0 1.050E-19 1.000 370.0 9.320E-20 1.000 375.0 8.000E-20 1.000 380.0 6.660E-20 1.000 385.0 5.380E-20 1.000 390.0 4.220E-20 1.000 395.0 3.240E-20 1.000 400.0 2.430E-20 1.000 405.0 1.800E-20 1.000 410.0 1.360E-20 1.000 415.0 1.080E-20 1.000 420.0 9.670E-21 1.000 425.0 1.000E-20 1.000 430.0 1.150E-20 1.000 435.0 1.400E-20 1.000 440.0 1.680E-20 1.000 445.0 1.960E-20 1.000 450.0 2.180E-20 1.000 455.0 2.280E-20 1.000 460.0 2.280E-20 1.000 465.0 2.140E-20 1.000 470.0 1.910E-20 1.000 475.0 1.620E-20 1.000 480.0 1.300E-20 1.000 485.0 9.930E-21 1.000 490.0 7.230E-21 1.000 495.0 5.020E-21 1.000 500.0 3.340E-21 1.000 505.0 2.120E-21 1.000 510.0 1.290E-21 1.000 515.0 7.500E-22 1.000 520.0 4.200E-22 1.000 525.0 2.300E-22 1.000 530.0 1.200E-22 1.000 535.0 6.000E-23 1.000 540.0 3.000E-23 1.000 545.0 1.000E-24 1.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/HOCCHO ================================================ HOCCHO ! Glycolahdehyde photolysis. IUPAC Data Sheet P5, May 2002 ! From PhotDat.xls Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 205.0 3.910E-19 0.7500 206.0 3.370E-19 0.7500 207.0 2.870E-19 0.7500 208.0 2.460E-19 0.7500 209.0 2.120E-19 0.7500 210.0 1.810E-19 0.7500 211.0 1.530E-19 0.7500 212.0 1.300E-19 0.7500 213.0 1.120E-19 0.7500 214.0 9.400E-20 0.7500 215.0 7.840E-20 0.7500 216.0 6.490E-20 0.7500 217.0 5.300E-20 0.7500 218.0 4.260E-20 0.7500 219.0 3.370E-20 0.7500 220.0 2.650E-20 0.7500 221.0 2.130E-20 0.7500 222.0 1.650E-20 0.7500 223.0 1.360E-20 0.7500 224.0 1.120E-20 0.7500 225.0 9.330E-21 0.7500 226.0 7.830E-21 0.7500 227.0 6.910E-21 0.7500 228.0 6.370E-21 0.7500 229.0 6.370E-21 0.7500 230.0 6.490E-21 0.7500 231.0 6.440E-21 0.7500 232.0 6.800E-21 0.7500 233.0 7.230E-21 0.7500 234.0 7.850E-21 0.7500 235.0 8.330E-21 0.7500 236.0 8.800E-21 0.7500 237.0 9.390E-21 0.7500 238.0 1.030E-20 0.7500 239.0 1.110E-20 0.7500 240.0 1.200E-20 0.7500 241.0 1.280E-20 0.7500 242.0 1.380E-20 0.7500 243.0 1.500E-20 0.7500 244.0 1.590E-20 0.7500 245.0 1.710E-20 0.7500 246.0 1.830E-20 0.7500 247.0 1.950E-20 0.7500 248.0 2.090E-20 0.7500 249.0 2.220E-20 0.7500 250.0 2.360E-20 0.7500 251.0 2.500E-20 0.7500 252.0 2.650E-20 0.7500 253.0 2.820E-20 0.7500 254.0 2.970E-20 0.7500 255.0 3.090E-20 0.7500 256.0 3.210E-20 0.7500 257.0 3.390E-20 0.7500 258.0 3.590E-20 0.7500 259.0 3.750E-20 0.7500 260.0 3.890E-20 0.7500 261.0 4.020E-20 0.7500 262.0 4.130E-20 0.7500 263.0 4.240E-20 0.7500 264.0 4.400E-20 0.7500 265.0 4.600E-20 0.7500 266.0 4.750E-20 0.7500 267.0 4.850E-20 0.7500 268.0 4.920E-20 0.7500 269.0 4.990E-20 0.7500 270.0 5.050E-20 0.7500 271.0 5.140E-20 0.7500 272.0 5.230E-20 0.7500 273.0 5.360E-20 0.7500 274.0 5.400E-20 0.7500 275.0 5.410E-20 0.7500 276.0 5.390E-20 0.7500 277.0 5.420E-20 0.7500 278.0 5.370E-20 0.7500 279.0 5.340E-20 0.7500 280.0 5.340E-20 0.7500 281.0 5.370E-20 0.7500 282.0 5.370E-20 0.7500 283.0 5.250E-20 0.7500 284.0 5.120E-20 0.7500 285.0 5.010E-20 0.7500 286.0 4.930E-20 0.7500 287.0 4.800E-20 0.7500 288.0 4.670E-20 0.7500 289.0 4.580E-20 0.7500 290.0 4.500E-20 0.7500 291.0 4.410E-20 0.7500 292.0 4.190E-20 0.7500 293.0 3.960E-20 0.7500 294.0 3.760E-20 0.7500 295.0 3.590E-20 0.7500 296.0 3.460E-20 0.7500 297.0 3.290E-20 0.7500 298.0 3.170E-20 0.7500 299.0 3.020E-20 0.7500 300.0 2.900E-20 0.7500 301.0 2.740E-20 0.7500 302.0 2.510E-20 0.7500 303.0 2.260E-20 0.7500 304.0 2.070E-20 0.7500 305.0 1.910E-20 0.7500 306.0 1.770E-20 0.7500 307.0 1.640E-20 0.7500 308.0 1.500E-20 0.7500 309.0 1.360E-20 0.7500 310.0 1.250E-20 0.7500 311.0 1.150E-20 0.7500 312.0 1.030E-20 0.7500 313.0 8.840E-21 0.7500 314.0 7.710E-21 0.7500 315.0 6.890E-21 0.7500 316.0 5.970E-21 0.7500 317.0 5.160E-21 0.7500 318.0 4.550E-21 0.7500 319.0 3.960E-21 0.7500 320.0 3.290E-21 0.7500 321.0 2.850E-21 0.7500 322.0 2.490E-21 0.7500 323.0 2.130E-21 0.7500 324.0 1.850E-21 0.7500 325.0 1.470E-21 0.7500 326.0 1.280E-21 0.7500 327.0 1.050E-21 0.7500 328.0 8.700E-22 0.7500 329.0 8.400E-22 0.7500 330.0 6.800E-22 0.7500 331.0 5.800E-22 0.7500 332.0 4.300E-22 0.7500 333.0 4.000E-22 0.7500 334.0 4.000E-22 0.7500 335.0 3.900E-22 0.7500 336.0 0.000E+00 0.7500 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/HOCCHO_IUPAC ================================================ HOCCHO_IUPAC ! HOCH2CHO + hv ---> products ! IUPAC (2002) based on Bacher et al (2001), J. Atm. Chem, 39, 171. ! quantum yield = 0.75+/-0.25 ! lambda(nm) xcross(1.E+20*cm2) yield Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 205.0 3.910E-19 0.750 206.0 3.370E-19 0.750 207.0 2.870E-19 0.750 208.0 2.460E-19 0.750 209.0 2.120E-19 0.750 210.0 1.810E-19 0.750 211.0 1.530E-19 0.750 212.0 1.300E-19 0.750 213.0 1.120E-19 0.750 214.0 9.400E-20 0.750 215.0 7.840E-20 0.750 216.0 6.490E-20 0.750 217.0 5.300E-20 0.750 218.0 4.260E-20 0.750 219.0 3.370E-20 0.750 220.0 2.650E-20 0.750 221.0 2.130E-20 0.750 222.0 1.650E-20 0.750 223.0 1.360E-20 0.750 224.0 1.120E-20 0.750 225.0 9.330E-21 0.750 226.0 7.830E-21 0.750 227.0 6.910E-21 0.750 228.0 6.370E-21 0.750 229.0 6.370E-21 0.750 230.0 6.490E-21 0.750 231.0 6.440E-21 0.750 232.0 6.800E-21 0.750 233.0 7.230E-21 0.750 234.0 7.850E-21 0.750 235.0 8.330E-21 0.750 236.0 8.800E-21 0.750 237.0 9.390E-21 0.750 238.0 1.030E-20 0.750 239.0 1.110E-20 0.750 240.0 1.200E-20 0.750 241.0 1.280E-20 0.750 242.0 1.380E-20 0.750 243.0 1.500E-20 0.750 244.0 1.590E-20 0.750 245.0 1.710E-20 0.750 246.0 1.830E-20 0.750 247.0 1.950E-20 0.750 248.0 2.090E-20 0.750 249.0 2.220E-20 0.750 251.0 2.500E-20 0.750 252.0 2.650E-20 0.750 253.0 2.820E-20 0.750 254.0 2.970E-20 0.750 255.0 3.090E-20 0.750 256.0 3.210E-20 0.750 257.0 3.390E-20 0.750 258.0 3.590E-20 0.750 259.0 3.750E-20 0.750 260.0 3.890E-20 0.750 261.0 4.020E-20 0.750 262.0 4.130E-20 0.750 263.0 4.240E-20 0.750 264.0 4.400E-20 0.750 265.0 4.600E-20 0.750 266.0 4.750E-20 0.750 267.0 4.850E-20 0.750 268.0 4.920E-20 0.750 269.0 4.990E-20 0.750 270.0 5.050E-20 0.750 271.0 5.140E-20 0.750 272.0 5.230E-20 0.750 273.0 5.360E-20 0.750 274.0 5.400E-20 0.750 275.0 5.410E-20 0.750 276.0 5.390E-20 0.750 277.0 5.420E-20 0.750 278.0 5.370E-20 0.750 279.0 5.340E-20 0.750 280.0 5.340E-20 0.750 281.0 5.370E-20 0.750 282.0 5.370E-20 0.750 283.0 5.250E-20 0.750 284.0 5.120E-20 0.750 285.0 5.010E-20 0.750 286.0 4.930E-20 0.750 287.0 4.800E-20 0.750 288.0 4.670E-20 0.750 289.0 4.580E-20 0.750 290.0 4.500E-20 0.750 291.0 4.410E-20 0.750 292.0 4.190E-20 0.750 293.0 3.960E-20 0.750 294.0 3.760E-20 0.750 295.0 3.590E-20 0.750 296.0 3.460E-20 0.750 297.0 3.290E-20 0.750 298.0 3.170E-20 0.750 299.0 3.020E-20 0.750 300.0 2.900E-20 0.750 301.0 2.740E-20 0.750 302.0 2.510E-20 0.750 303.0 2.260E-20 0.750 304.0 2.070E-20 0.750 305.0 1.910E-20 0.750 306.0 1.770E-20 0.750 307.0 1.640E-20 0.750 308.0 1.500E-20 0.750 309.0 1.360E-20 0.750 310.0 1.250E-20 0.750 311.0 1.150E-20 0.750 312.0 1.030E-20 0.750 313.0 8.840E-21 0.750 314.0 7.710E-21 0.750 315.0 6.890E-21 0.750 316.0 5.970E-21 0.750 317.0 5.160E-21 0.750 318.0 4.550E-21 0.750 319.0 3.960E-21 0.750 320.0 3.290E-21 0.750 321.0 2.850E-21 0.750 322.0 2.490E-21 0.750 323.0 2.130E-21 0.750 324.0 1.850E-21 0.750 325.0 1.470E-21 0.750 326.0 1.280E-21 0.750 327.0 1.050E-21 0.750 328.0 8.700E-22 0.750 329.0 8.400E-22 0.750 330.0 6.800E-22 0.750 331.0 5.800E-22 0.750 332.0 4.300E-22 0.750 333.0 4.000E-22 0.750 334.0 4.000E-22 0.750 335.0 3.900E-22 0.750 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/HOCCHO_JPL2011 ================================================ HOCCHO_JPL2011 ! HOCH2CHO + hv ---> products !JPL 2011 recommendation for HOCH2CHO absorption cross-seciotn and total !quantum yield. Four channels but the fourth is considered insignificant: ! HOCH2CHO + hv ---> CH2OH+HCO phi1=0.83 ! HOCH2CHO + hv ---> CH3OH+CO phi2=0.10 ! HOCH2CHO + hv ---> OH+CH2CHO phi3=0.07 ! HOCH2CHO + hv ---> HOCH2CO+H phi4=0.00 !Sander, S. P., Abbatt, J., Barker, J. R., Burkholder, J. B., Friedl, R. R., !Golden, D. M., et al. (2011). Chemical Kinetics and Photochemical Data for !Use in Atmospheric Studies, Evaluation No. 17. Pasadena, CA: Jet Propulsion !Laboratory. !http://jpldataeval.jpl.nasa.gov/pdf/JPL%2010-6%20Final%2015June2011.pdf Points ! With FAC, units are (cm^2/molecule) FAC=1.0 208.0 2.060E-19 1.00 210.0 1.310E-19 1.00 212.0 8.150E-20 1.00 214.0 4.930E-20 1.00 216.0 2.940E-20 1.00 218.0 1.720E-20 1.00 220.0 1.000E-20 1.00 222.0 6.400E-21 1.00 224.0 4.500E-21 1.00 226.0 3.900E-21 1.00 228.0 4.200E-21 1.00 230.0 5.300E-21 1.00 232.0 6.300E-21 1.00 234.0 7.900E-21 1.00 236.0 9.700E-21 1.00 238.0 1.150E-20 1.00 240.0 1.390E-20 1.00 242.0 1.630E-20 1.00 244.0 1.770E-20 1.00 246.0 2.250E-20 1.00 248.0 2.570E-20 1.00 250.0 2.940E-20 1.00 252.0 3.370E-20 1.00 254.0 3.760E-20 1.00 256.0 4.150E-20 1.00 258.0 4.610E-20 1.00 260.0 5.030E-20 1.00 262.0 5.330E-20 1.00 264.0 5.680E-20 1.00 266.0 6.100E-20 1.00 268.0 6.350E-20 1.00 270.0 6.490E-20 1.00 272.0 6.740E-20 1.00 274.0 6.980E-20 1.00 276.0 6.980E-20 1.00 278.0 6.930E-20 1.00 280.0 6.910E-20 1.00 282.0 6.920E-20 1.00 284.0 6.600E-20 1.00 286.0 6.380E-20 1.00 288.0 6.090E-20 1.00 290.0 5.880E-20 1.00 292.0 5.430E-20 1.00 294.0 4.870E-20 1.00 296.0 4.500E-20 1.00 298.0 4.100E-20 1.00 300.0 3.740E-20 1.00 302.0 3.190E-20 1.00 304.0 2.650E-20 1.00 306.0 2.260E-20 1.00 308.0 1.880E-20 1.00 310.0 1.570E-20 1.00 312.0 1.280E-20 1.00 314.0 9.400E-21 1.00 316.0 7.000E-21 1.00 318.0 5.300E-21 1.00 320.0 4.000E-21 1.00 322.0 3.100E-21 1.00 324.0 2.100E-21 1.00 326.0 1.400E-21 1.00 328.0 1.000E-21 1.00 330.0 7.000E-22 1.00 332.0 4.000E-22 1.00 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/HOCCHO_RACM2 ================================================ HOCCHO_RACM2 ! copied from HOCCHO_JPL2011 ! GLYC + hv = 2.0 HO2 + HCHO + CO ! GLYC: C2H4O2: glycoaldehyde(hydroxyacetaldehyde) ! JPL 2011 recommendation for HOCH2CHO absorption cross-seciotn and total ! quantum yield. !Sander et al. (2011). Points ! With FAC, units are (cm^2/molecule) FAC=1.0 208.0 2.060E-19 1.00 210.0 1.310E-19 1.00 212.0 8.150E-20 1.00 214.0 4.930E-20 1.00 216.0 2.940E-20 1.00 218.0 1.720E-20 1.00 220.0 1.000E-20 1.00 222.0 6.400E-21 1.00 224.0 4.500E-21 1.00 226.0 3.900E-21 1.00 228.0 4.200E-21 1.00 230.0 5.300E-21 1.00 232.0 6.300E-21 1.00 234.0 7.900E-21 1.00 236.0 9.700E-21 1.00 238.0 1.150E-20 1.00 240.0 1.390E-20 1.00 242.0 1.630E-20 1.00 244.0 1.770E-20 1.00 246.0 2.250E-20 1.00 248.0 2.570E-20 1.00 250.0 2.940E-20 1.00 252.0 3.370E-20 1.00 254.0 3.760E-20 1.00 256.0 4.150E-20 1.00 258.0 4.610E-20 1.00 260.0 5.030E-20 1.00 262.0 5.330E-20 1.00 264.0 5.680E-20 1.00 266.0 6.100E-20 1.00 268.0 6.350E-20 1.00 270.0 6.490E-20 1.00 272.0 6.740E-20 1.00 274.0 6.980E-20 1.00 276.0 6.980E-20 1.00 278.0 6.930E-20 1.00 280.0 6.910E-20 1.00 282.0 6.920E-20 1.00 284.0 6.600E-20 1.00 286.0 6.380E-20 1.00 288.0 6.090E-20 1.00 290.0 5.880E-20 1.00 292.0 5.430E-20 1.00 294.0 4.870E-20 1.00 296.0 4.500E-20 1.00 298.0 4.100E-20 1.00 300.0 3.740E-20 1.00 302.0 3.190E-20 1.00 304.0 2.650E-20 1.00 306.0 2.260E-20 1.00 308.0 1.880E-20 1.00 310.0 1.570E-20 1.00 312.0 1.280E-20 1.00 314.0 9.400E-21 1.00 316.0 7.000E-21 1.00 318.0 5.300E-21 1.00 320.0 4.000E-21 1.00 322.0 3.100E-21 1.00 324.0 2.100E-21 1.00 326.0 1.400E-21 1.00 328.0 1.000E-21 1.00 330.0 7.000E-22 1.00 332.0 4.000E-22 1.00 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/HOCL-06 ================================================ HOCL-06 ! HOCL absorption cross sections recommended by IUPAC (2005) ! ! Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 280.0 4.640E-20 1.0000 282.0 4.620E-20 1.0000 284.0 4.680E-20 1.0000 286.0 4.790E-20 1.0000 288.0 4.950E-20 1.0000 290.0 5.130E-20 1.0000 292.0 5.330E-20 1.0000 294.0 5.520E-20 1.0000 296.0 5.710E-20 1.0000 298.0 5.860E-20 1.0000 300.0 5.990E-20 1.0000 302.0 6.080E-20 1.0000 304.0 6.120E-20 1.0000 306.0 6.120E-20 1.0000 308.0 6.070E-20 1.0000 310.0 5.970E-20 1.0000 312.0 5.840E-20 1.0000 314.0 5.660E-20 1.0000 316.0 5.450E-20 1.0000 318.0 5.210E-20 1.0000 320.0 4.950E-20 1.0000 322.0 4.670E-20 1.0000 324.0 4.380E-20 1.0000 326.0 4.090E-20 1.0000 328.0 3.790E-20 1.0000 330.0 3.500E-20 1.0000 332.0 3.210E-20 1.0000 334.0 2.940E-20 1.0000 336.0 2.680E-20 1.0000 338.0 2.440E-20 1.0000 340.0 2.220E-20 1.0000 342.0 2.030E-20 1.0000 344.0 1.840E-20 1.0000 346.0 1.690E-20 1.0000 348.0 1.550E-20 1.0000 350.0 1.430E-20 1.0000 352.0 1.330E-20 1.0000 354.0 1.240E-20 1.0000 356.0 1.170E-20 1.0000 358.0 1.110E-20 1.0000 360.0 1.060E-20 1.0000 362.0 1.020E-20 1.0000 364.0 9.850E-21 1.0000 366.0 9.510E-21 1.0000 368.0 9.190E-21 1.0000 370.0 8.880E-21 1.0000 372.0 8.550E-21 1.0000 374.0 8.220E-21 1.0000 376.0 7.860E-21 1.0000 378.0 7.480E-21 1.0000 380.0 7.080E-21 1.0000 382.0 6.670E-21 1.0000 384.0 6.240E-21 1.0000 386.0 5.800E-21 1.0000 388.0 5.350E-21 1.0000 390.0 4.910E-21 1.0000 392.0 4.470E-21 1.0000 394.0 4.050E-21 1.0000 396.0 3.640E-21 1.0000 398.0 3.250E-21 1.0000 400.0 2.880E-21 1.0000 402.0 2.540E-21 1.0000 404.0 2.220E-21 1.0000 406.0 1.940E-21 1.0000 408.0 1.680E-21 1.0000 410.0 1.440E-21 1.0000 412.0 1.240E-21 1.0000 414.0 1.050E-21 1.0000 416.0 8.900E-22 1.0000 418.0 7.500E-22 1.0000 420.0 6.300E-22 1.0000 422.0 0.000E+00 1.0000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/HOCL_06 ================================================ HOCL-06 ! HOCL absorption cross sections recommended by IUPAC (2005). ! Points (the mechanism evaluated with this format). ! With FAC, units are (cm^2/molecule) FAC=1.0 200.0 7.180E-20 1.0000 202.0 6.390E-20 1.0000 204.0 5.810E-20 1.0000 206.0 5.460E-20 1.0000 208.0 5.370E-20 1.0000 210.0 5.540E-20 1.0000 212.0 5.980E-20 1.0000 214.0 6.680E-20 1.0000 216.0 7.630E-20 1.0000 218.0 8.810E-20 1.0000 220.0 1.020E-19 1.0000 222.0 1.160E-19 1.0000 224.0 1.320E-19 1.0000 226.0 1.470E-19 1.0000 228.0 1.620E-19 1.0000 230.0 1.750E-19 1.0000 232.0 1.870E-19 1.0000 234.0 1.960E-19 1.0000 236.0 2.020E-19 1.0000 238.0 2.050E-19 1.0000 240.0 2.060E-19 1.0000 242.0 2.030E-19 1.0000 244.0 1.980E-19 1.0000 246.0 1.900E-19 1.0000 248.0 1.810E-19 1.0000 250.0 1.700E-19 1.0000 252.0 1.580E-19 1.0000 254.0 1.460E-19 1.0000 256.0 1.330E-19 1.0000 260.0 1.090E-19 1.0000 262.0 9.730E-20 1.0000 264.0 8.680E-20 1.0000 266.0 7.750E-20 1.0000 268.0 6.940E-20 1.0000 270.0 6.250E-20 1.0000 272.0 5.690E-20 1.0000 274.0 5.290E-20 1.0000 276.0 4.940E-20 1.0000 278.0 4.740E-20 1.0000 280.0 4.640E-20 1.0000 282.0 4.620E-20 1.0000 284.0 4.680E-20 1.0000 286.0 4.790E-20 1.0000 288.0 4.950E-20 1.0000 290.0 5.130E-20 1.0000 292.0 5.330E-20 1.0000 294.0 5.520E-20 1.0000 296.0 5.710E-20 1.0000 298.0 5.860E-20 1.0000 300.0 5.990E-20 1.0000 302.0 6.080E-20 1.0000 304.0 6.120E-20 1.0000 306.0 6.120E-20 1.0000 308.0 6.070E-20 1.0000 310.0 5.970E-20 1.0000 312.0 5.840E-20 1.0000 314.0 5.660E-20 1.0000 316.0 5.450E-20 1.0000 318.0 5.210E-20 1.0000 320.0 4.950E-20 1.0000 322.0 4.670E-20 1.0000 324.0 4.380E-20 1.0000 326.0 4.090E-20 1.0000 328.0 3.790E-20 1.0000 330.0 3.500E-20 1.0000 332.0 3.210E-20 1.0000 334.0 2.940E-20 1.0000 336.0 2.680E-20 1.0000 338.0 2.440E-20 1.0000 340.0 2.220E-20 1.0000 342.0 2.030E-20 1.0000 344.0 1.840E-20 1.0000 346.0 1.690E-20 1.0000 348.0 1.550E-20 1.0000 350.0 1.430E-20 1.0000 352.0 1.330E-20 1.0000 354.0 1.240E-20 1.0000 356.0 1.170E-20 1.0000 358.0 1.110E-20 1.0000 360.0 1.060E-20 1.0000 362.0 1.020E-20 1.0000 364.0 9.850E-21 1.0000 366.0 9.510E-21 1.0000 368.0 9.190E-21 1.0000 370.0 8.880E-21 1.0000 372.0 8.550E-21 1.0000 374.0 8.220E-21 1.0000 376.0 7.860E-21 1.0000 378.0 7.480E-21 1.0000 380.0 7.080E-21 1.0000 382.0 6.670E-21 1.0000 384.0 6.240E-21 1.0000 386.0 5.800E-21 1.0000 388.0 5.350E-21 1.0000 390.0 4.910E-21 1.0000 392.0 4.470E-21 1.0000 394.0 4.050E-21 1.0000 396.0 3.640E-21 1.0000 398.0 3.250E-21 1.0000 400.0 2.880E-21 1.0000 402.0 2.540E-21 1.0000 404.0 2.220E-21 1.0000 406.0 1.940E-21 1.0000 408.0 1.680E-21 1.0000 410.0 1.440E-21 1.0000 412.0 1.240E-21 1.0000 414.0 1.050E-21 1.0000 416.0 8.900E-22 1.0000 418.0 7.500E-22 1.0000 420.0 6.300E-22 1.0000 422.0 0.000E+00 1.0000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/HOCL_IUPAC04 ================================================ HOCL_IUPAC04 ! HOCL + HV = HO + CL ! IUPAC Subcommittee on Gas Kinetic Data Evaluation; Data Sheet PCl2 Website: 15th December 2000 ! Website: http://www.iupac-kinetic.ch.cam.ac.uk ! Assume these are point values - not specified in data source POINT !With FAC, units are (cm^2/molecule) FAC=1.0E-20 200 7.18 1 202 6.39 1 204 5.81 1 206 5.46 1 208 5.37 1 210 5.54 1 212 5.98 1 214 6.68 1 216 7.63 1 218 8.81 1 220 10.2 1 222 11.6 1 224 13.2 1 226 14.7 1 228 16.2 1 230 17.5 1 232 18.7 1 234 19.6 1 236 20.2 1 238 20.5 1 240 20.6 1 242 20.3 1 244 19.8 1 246 19.0 1 248 18.1 1 250 17.0 1 252 15.8 1 254 14.6 1 256 13.3 1 258 12.1 1 260 10.9 1 262 9.73 1 264 8.68 1 266 7.75 1 268 6.94 1 270 6.25 1 272 5.69 1 274 5.29 1 276 4.94 1 278 4.74 1 280 4.64 1 282 4.62 1 284 4.68 1 286 4.79 1 288 4.95 1 290 5.13 1 292 5.33 1 294 5.52 1 296 5.71 1 298 5.86 1 300 5.99 1 302 6.08 1 304 6.12 1 306 6.12 1 308 6.07 1 310 5.97 1 312 5.84 1 314 5.66 1 316 5.45 1 318 5.21 1 320 4.95 1 322 4.67 1 324 4.38 1 326 4.09 1 328 3.79 1 330 3.50 1 332 3.21 1 334 2.94 1 336 2.68 1 338 2.44 1 340 2.22 1 342 2.03 1 344 1.84 1 346 1.69 1 348 1.55 1 350 1.43 1 352 1.33 1 354 1.24 1 356 1.17 1 358 1.11 1 360 1.06 1 362 1.02 1 364 0.985 1 366 0.951 1 368 0.919 1 370 0.888 1 372 0.855 1 374 0.822 1 376 0.786 1 378 0.748 1 380 0.708 1 382 0.667 1 384 0.624 1 386 0.580 1 388 0.535 1 390 0.491 1 392 0.447 1 394 0.405 1 396 0.364 1 398 0.325 1 400 0.288 1 402 0.254 1 404 0.222 1 406 0.194 1 408 0.168 1 410 0.144 1 412 0.124 1 414 0.105 1 416 0.089 1 418 0.075 1 420 0.063 1 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/HOI_IUPAC10 ================================================ HOI_IUPAC10 ! HOI + HV = I + OH ! HOI Photolysis data ! Supplied by Golam Sarwar ! Created from IUPAC dataset PI2 Points (these data can be treated as point values) ! With FAC, units are (cm^2/molecule) FAC=1.0 280.0 7.700E-22 1.000 285.0 2.260E-21 1.000 290.0 5.890E-21 1.000 295.0 1.370E-20 1.000 300.0 2.860E-20 1.000 305.0 5.410E-20 1.000 310.0 9.260E-20 1.000 315.0 1.450E-19 1.000 320.0 2.070E-19 1.000 325.0 2.720E-19 1.000 330.0 3.290E-19 1.000 335.0 3.700E-19 1.000 340.0 3.850E-19 1.000 345.0 3.770E-19 1.000 350.0 3.470E-19 1.000 355.0 3.040E-19 1.000 360.0 2.580E-19 1.000 365.0 2.210E-19 1.000 370.0 1.980E-19 1.000 375.0 1.940E-19 1.000 380.0 2.070E-19 1.000 385.0 2.330E-19 1.000 390.0 2.660E-19 1.000 395.0 2.980E-19 1.000 400.0 3.220E-19 1.000 405.0 3.320E-19 1.000 410.0 3.270E-19 1.000 415.0 3.070E-19 1.000 420.0 2.750E-19 1.000 425.0 2.350E-19 1.000 430.0 1.920E-19 1.000 435.0 1.500E-19 1.000 440.0 1.130E-19 1.000 445.0 8.130E-20 1.000 450.0 5.630E-20 1.000 455.0 3.760E-20 1.000 460.0 2.420E-20 1.000 465.0 1.500E-20 1.000 470.0 9.040E-21 1.000 475.0 5.250E-21 1.000 480.0 2.960E-21 1.000 485.0 1.610E-21 1.000 490.0 8.600E-22 1.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/HONO-06 ================================================ HONO-06 ! HONO + HV = HO. + NO ! NASA (2006) recommended absorption cross sections. No recommendation on quantum ! IUPAC (2005) recommendation (Data Sheet PNOx1, July, 2001) recommends unit quan ! (IUPAC recommended absorption cross sections are low resolution, so NASA values ! Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 270.0 3.700E-20 1.0000 272.0 3.000E-20 1.0000 274.0 2.500E-20 1.0000 296.0 3.260E-21 1.0000 297.0 5.650E-21 1.0000 298.0 5.170E-21 1.0000 299.0 4.290E-21 1.0000 300.0 6.170E-21 1.0000 301.0 6.900E-21 1.0000 302.0 5.790E-21 1.0000 303.0 9.250E-21 1.0000 304.0 1.040E-20 1.0000 305.0 1.570E-20 1.0000 306.0 1.290E-20 1.0000 307.0 9.160E-21 1.0000 308.0 1.450E-20 1.0000 309.0 2.010E-20 1.0000 310.0 1.510E-20 1.0000 311.0 2.070E-20 1.0000 312.0 2.420E-20 1.0000 313.0 2.250E-20 1.0000 314.0 3.350E-20 1.0000 315.0 2.540E-20 1.0000 316.0 1.610E-20 1.0000 317.0 3.210E-20 1.0000 318.0 4.490E-20 1.0000 319.0 3.190E-20 1.0000 320.0 4.660E-20 1.0000 321.0 5.960E-20 1.0000 322.0 4.050E-20 1.0000 323.0 4.560E-20 1.0000 324.0 5.890E-20 1.0000 325.0 4.050E-20 1.0000 326.0 2.650E-20 1.0000 326.5 3.550E-20 1.0000 327.0 6.440E-20 1.0000 327.5 1.026E-19 1.0000 328.0 9.220E-20 1.0000 328.5 6.380E-20 1.0000 329.0 5.200E-20 1.0000 329.5 6.120E-20 1.0000 330.0 9.920E-20 1.0000 330.5 1.506E-19 1.0000 331.0 1.432E-19 1.0000 331.5 9.880E-20 1.0000 332.0 6.940E-20 1.0000 332.5 6.000E-20 1.0000 333.0 6.310E-20 1.0000 333.5 7.110E-20 1.0000 334.0 8.350E-20 1.0000 334.5 8.370E-20 1.0000 335.0 7.710E-20 1.0000 335.5 6.550E-20 1.0000 336.0 5.330E-20 1.0000 336.5 4.360E-20 1.0000 337.0 4.230E-20 1.0000 337.5 5.130E-20 1.0000 338.0 9.380E-20 1.0000 338.5 1.652E-19 1.0000 339.0 1.432E-19 1.0000 339.5 9.960E-20 1.0000 340.0 7.790E-20 1.0000 340.5 8.510E-20 1.0000 341.0 1.613E-19 1.0000 341.5 3.152E-19 1.0000 342.0 2.940E-19 1.0000 342.5 1.847E-19 1.0000 343.0 1.143E-19 1.0000 343.5 8.290E-20 1.0000 344.0 7.590E-20 1.0000 344.5 8.180E-20 1.0000 345.0 8.770E-20 1.0000 345.5 9.100E-20 1.0000 346.0 9.640E-20 1.0000 346.5 8.870E-20 1.0000 347.0 7.800E-20 1.0000 347.5 7.060E-20 1.0000 348.0 6.630E-20 1.0000 348.5 6.260E-20 1.0000 349.0 6.000E-20 1.0000 349.5 6.470E-20 1.0000 350.0 9.060E-20 1.0000 350.5 1.495E-19 1.0000 351.0 1.694E-19 1.0000 351.5 1.407E-19 1.0000 352.0 1.242E-19 1.0000 352.5 1.281E-19 1.0000 353.0 1.634E-19 1.0000 353.5 2.849E-19 1.0000 354.0 4.873E-19 1.0000 354.5 4.434E-19 1.0000 355.0 2.764E-19 1.0000 355.5 1.640E-19 1.0000 356.0 1.113E-19 1.0000 356.5 9.350E-20 1.0000 357.0 9.450E-20 1.0000 357.5 1.008E-19 1.0000 358.0 9.840E-20 1.0000 358.5 9.020E-20 1.0000 359.0 8.370E-20 1.0000 359.5 7.670E-20 1.0000 360.0 6.870E-20 1.0000 360.5 6.320E-20 1.0000 361.0 6.050E-20 1.0000 361.5 5.950E-20 1.0000 362.0 5.980E-20 1.0000 362.5 6.350E-20 1.0000 363.0 7.390E-20 1.0000 363.5 9.220E-20 1.0000 364.0 1.149E-19 1.0000 364.5 1.271E-19 1.0000 365.0 1.282E-19 1.0000 365.5 1.319E-19 1.0000 366.0 1.484E-19 1.0000 366.5 1.843E-19 1.0000 367.0 2.508E-19 1.0000 367.5 3.518E-19 1.0000 368.0 4.356E-19 1.0000 368.5 4.137E-19 1.0000 369.0 3.145E-19 1.0000 369.5 2.172E-19 1.0000 369.9 1.505E-19 1.0000 370.1 9.490E-20 1.0000 372.0 7.960E-20 1.0000 373.0 6.300E-20 1.0000 374.0 4.590E-20 1.0000 375.0 3.550E-20 1.0000 376.0 3.360E-20 1.0000 377.0 3.660E-20 1.0000 378.0 4.330E-20 1.0000 379.0 5.660E-20 1.0000 380.0 7.210E-20 1.0000 381.0 9.130E-20 1.0000 382.0 1.244E-19 1.0000 383.0 1.703E-19 1.0000 384.0 1.947E-19 1.0000 385.0 1.609E-19 1.0000 386.0 1.052E-19 1.0000 387.0 6.590E-20 1.0000 388.0 4.300E-20 1.0000 389.0 2.810E-20 1.0000 390.0 1.710E-20 1.0000 391.0 9.920E-21 1.0000 392.0 7.310E-21 1.0000 393.0 5.970E-21 1.0000 394.0 5.280E-21 1.0000 395.0 4.030E-21 1.0000 396.0 2.370E-21 1.0000 397.0 7.100E-22 1.0000 398.0 0.000E+00 1.0000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/HONO_06 ================================================ HONO-06 ! HONO + HV = HO. + NO ! NASA (2006) recommended absorption cross sections. No recommendation on quantum ! IUPAC (205) recommendation (Data Sheet PNOx1, July, 2001) recommends unit quan ! (IUPAC recommended absorption cross sections are low resolution, so NASA values ! Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 184.0 8.500E-19 1.000 186.0 9.500E-19 1.000 188.0 1.060E-18 1.000 190.0 1.240E-18 1.000 192.0 1.430E-18 1.000 194.0 1.620E-18 1.000 196.0 1.790E-18 1.000 198.0 1.960E-18 1.000 200.0 2.100E-18 1.000 202.0 2.190E-18 1.000 204.0 2.230E-18 1.000 205.0 2.240E-18 1.000 206.0 2.230E-18 1.000 208.0 2.200E-18 1.000 210.0 2.130E-18 1.000 212.0 2.040E-18 1.000 214.0 1.930E-18 1.000 216.0 1.790E-18 1.000 218.0 1.640E-18 1.000 220.0 1.500E-18 1.000 222.0 1.350E-18 1.000 224.0 1.210E-18 1.000 226.0 1.080E-18 1.000 228.0 9.450E-19 1.000 230.0 8.450E-19 1.000 232.0 7.400E-19 1.000 234.0 6.600E-19 1.000 236.0 5.800E-19 1.000 238.0 5.000E-19 1.000 240.0 4.300E-19 1.000 242.0 3.700E-19 1.000 244.0 3.200E-19 1.000 246.0 2.750E-19 1.000 248.0 2.350E-19 1.000 250.0 2.000E-19 1.000 252.0 1.700E-19 1.000 254.0 1.450E-19 1.000 256.0 1.230E-19 1.000 258.0 1.030E-19 1.000 260.0 8.600E-20 1.000 262.0 7.300E-20 1.000 264.0 6.200E-20 1.000 266.0 5.300E-20 1.000 268.0 4.300E-20 1.000 270.0 3.700E-20 1.0000 272.0 3.000E-20 1.0000 274.0 2.500E-20 1.0000 296.0 3.260E-21 1.0000 297.0 5.650E-21 1.0000 298.0 5.170E-21 1.0000 299.0 4.290E-21 1.0000 300.0 6.170E-21 1.0000 301.0 6.900E-21 1.0000 302.0 5.790E-21 1.0000 303.0 9.250E-21 1.0000 304.0 1.040E-20 1.0000 305.0 1.570E-20 1.0000 306.0 1.290E-20 1.0000 307.0 9.160E-21 1.0000 308.0 1.450E-20 1.0000 309.0 2.010E-20 1.0000 310.0 1.510E-20 1.0000 311.0 2.070E-20 1.0000 312.0 2.420E-20 1.0000 313.0 2.250E-20 1.0000 314.0 3.350E-20 1.0000 315.0 2.540E-20 1.0000 316.0 1.610E-20 1.0000 317.0 3.210E-20 1.0000 318.0 4.490E-20 1.0000 319.0 3.190E-20 1.0000 320.0 4.660E-20 1.0000 321.0 5.960E-20 1.0000 322.0 4.050E-20 1.0000 323.0 4.560E-20 1.0000 324.0 5.890E-20 1.0000 325.0 4.050E-20 1.0000 326.0 2.650E-20 1.0000 326.5 3.550E-20 1.0000 327.0 6.440E-20 1.0000 327.5 1.026E-19 1.0000 328.0 9.220E-20 1.0000 328.5 6.380E-20 1.0000 329.0 5.200E-20 1.0000 329.5 6.120E-20 1.0000 330.0 9.920E-20 1.0000 330.5 1.506E-19 1.0000 331.0 1.432E-19 1.0000 331.5 9.880E-20 1.0000 332.0 6.940E-20 1.0000 332.5 6.000E-20 1.0000 333.0 6.310E-20 1.0000 333.5 7.110E-20 1.0000 334.0 8.350E-20 1.0000 334.5 8.370E-20 1.0000 335.0 7.710E-20 1.0000 335.5 6.550E-20 1.0000 336.0 5.330E-20 1.0000 336.5 4.360E-20 1.0000 337.0 4.230E-20 1.0000 337.5 5.130E-20 1.0000 338.0 9.380E-20 1.0000 338.5 1.652E-19 1.0000 339.0 1.432E-19 1.0000 339.5 9.960E-20 1.0000 340.0 7.790E-20 1.0000 340.5 8.510E-20 1.0000 341.0 1.613E-19 1.0000 341.5 3.152E-19 1.0000 342.0 2.940E-19 1.0000 342.5 1.847E-19 1.0000 343.0 1.143E-19 1.0000 343.5 8.290E-20 1.0000 344.0 7.590E-20 1.0000 344.5 8.180E-20 1.0000 345.0 8.770E-20 1.0000 345.5 9.100E-20 1.0000 346.0 9.640E-20 1.0000 346.5 8.870E-20 1.0000 347.0 7.800E-20 1.0000 347.5 7.060E-20 1.0000 348.0 6.630E-20 1.0000 348.5 6.260E-20 1.0000 349.0 6.000E-20 1.0000 349.5 6.470E-20 1.0000 350.0 9.060E-20 1.0000 350.5 1.495E-19 1.0000 351.0 1.694E-19 1.0000 351.5 1.407E-19 1.0000 352.0 1.242E-19 1.0000 352.5 1.281E-19 1.0000 353.0 1.634E-19 1.0000 353.5 2.849E-19 1.0000 354.0 4.873E-19 1.0000 354.5 4.434E-19 1.0000 355.0 2.764E-19 1.0000 355.5 1.640E-19 1.0000 356.0 1.113E-19 1.0000 356.5 9.350E-20 1.0000 357.0 9.450E-20 1.0000 357.5 1.008E-19 1.0000 358.0 9.840E-20 1.0000 358.5 9.020E-20 1.0000 359.0 8.370E-20 1.0000 359.5 7.670E-20 1.0000 360.0 6.870E-20 1.0000 360.5 6.320E-20 1.0000 361.0 6.050E-20 1.0000 361.5 5.950E-20 1.0000 362.0 5.980E-20 1.0000 362.5 6.350E-20 1.0000 363.0 7.390E-20 1.0000 363.5 9.220E-20 1.0000 364.0 1.149E-19 1.0000 364.5 1.271E-19 1.0000 365.0 1.282E-19 1.0000 365.5 1.319E-19 1.0000 366.0 1.484E-19 1.0000 366.5 1.843E-19 1.0000 367.0 2.508E-19 1.0000 367.5 3.518E-19 1.0000 368.0 4.356E-19 1.0000 368.5 4.137E-19 1.0000 369.0 3.145E-19 1.0000 369.5 2.172E-19 1.0000 369.9 1.505E-19 1.0000 370.1 9.490E-20 1.0000 372.0 7.960E-20 1.0000 373.0 6.300E-20 1.0000 374.0 4.590E-20 1.0000 375.0 3.550E-20 1.0000 376.0 3.360E-20 1.0000 377.0 3.660E-20 1.0000 378.0 4.330E-20 1.0000 379.0 5.660E-20 1.0000 380.0 7.210E-20 1.0000 381.0 9.130E-20 1.0000 382.0 1.244E-19 1.0000 383.0 1.703E-19 1.0000 384.0 1.947E-19 1.0000 385.0 1.609E-19 1.0000 386.0 1.052E-19 1.0000 387.0 6.590E-20 1.0000 388.0 4.300E-20 1.0000 389.0 2.810E-20 1.0000 390.0 1.710E-20 1.0000 391.0 9.920E-21 1.0000 392.0 7.310E-21 1.0000 393.0 5.970E-21 1.0000 394.0 5.280E-21 1.0000 395.0 4.030E-21 1.0000 396.0 2.370E-21 1.0000 397.0 7.100E-22 1.0000 398.0 0.000E+00 1.0000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/HONO_IUPAC04 ================================================ HONO_IUPAC04 !HONO + HV = HO + NO ! From IUPAC Subcommittee on Gas Kinetic Data Evaluation ! Data Sheet PNOx1_HONO, updated 16th July 2001 ! Website: http://www.iupac-kinetic.ch.cam.ac.uk/ ! NASA JPL (2015) below 305 nm Points (!These are point values) ! With FAC, units are (cm^2/molecule) FAC=1.0 184.0 8.50e-19 1.000 186.0 9.50e-19 1.000 188.0 1.06e-18 1.000 190.0 1.24e-18 1.000 192.0 1.43e-18 1.000 194.0 1.62e-18 1.000 196.0 1.79e-18 1.000 198.0 1.96e-18 1.000 200.0 2.10e-18 1.000 202.0 2.19e-18 1.000 204.0 2.23e-18 1.000 205.0 2.24e-18 1.000 206.0 2.23e-18 1.000 208.0 2.20e-18 1.000 210.0 2.13e-18 1.000 212.0 2.04e-18 1.000 214.0 1.93e-18 1.000 216.0 1.79e-18 1.000 218.0 1.64e-18 1.000 220.0 1.50e-18 1.000 222.0 1.35e-18 1.000 224.0 1.21e-18 1.000 226.0 1.08e-18 1.000 228.0 9.45e-19 1.000 230.0 8.45e-19 1.000 232.0 7.40e-19 1.000 234.0 6.60e-19 1.000 236.0 5.80e-19 1.000 238.0 5.00e-19 1.000 240.0 4.30e-19 1.000 242.0 3.70e-19 1.000 244.0 3.20e-19 1.000 246.0 2.75e-19 1.000 248.0 2.35e-19 1.000 250.0 2.00e-19 1.000 252.0 1.70e-19 1.000 254.0 1.45e-19 1.000 256.0 1.23e-19 1.000 258.0 1.03e-19 1.000 260.0 8.60e-20 1.000 262.0 7.30e-20 1.000 264.0 6.20e-20 1.000 266.0 5.30e-20 1.000 268.0 4.30e-20 1.000 270.0 3.70e-20 1.000 272.0 3.00e-20 1.000 274.0 2.50e-20 1.000 296.0 3.26e-21 1.000 297.0 5.65e-21 1.000 298.0 5.17e-21 1.000 299.0 4.29e-21 1.000 300.0 6.17E-21 1.000 305.0 0.70E-20 1.000 310.0 1.60E-20 1.000 315.0 2.50E-20 1.000 320.0 4.40E-20 1.000 325.0 5.00E-20 1.000 330.0 9.30E-20 1.000 335.0 6.50E-20 1.000 340.0 1.68E-19 1.000 345.0 9.60E-20 1.000 350.0 1.15E-19 1.000 355.0 2.36E-19 1.000 360.0 8.00E-20 1.000 365.0 1.61E-19 1.000 370.0 2.05E-19 1.000 375.0 4.90E-20 1.000 380.0 9.20E-20 1.000 385.0 1.45E-19 1.000 390.0 2.40E-20 1.000 395.0 0.60E-20 1.000 400.0 0.00E-00 1.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/HONO_IUPAC10 ================================================ HONO_IUPAC10 ! j(HONO) IUPAC10 ! HONO = NO + OH ! From IUPAC Subcommittee on Gas Kinetic Data Evaluation ! Data Sheet PNOx1, updated 16th July, 2001 ! NASA JPL (2015) below 305 nm !These are point values Begining (the mechanism evaluated with this format) !WL(nm) XSEC(cm2) QY FAC=1.0 184.0 8.50e-19 1.000 186.0 9.50e-19 1.000 188.0 1.06e-18 1.000 190.0 1.24e-18 1.000 192.0 1.43e-18 1.000 194.0 1.62e-18 1.000 196.0 1.79e-18 1.000 198.0 1.96e-18 1.000 200.0 2.10e-18 1.000 202.0 2.19e-18 1.000 204.0 2.23e-18 1.000 205.0 2.24e-18 1.000 206.0 2.23e-18 1.000 208.0 2.20e-18 1.000 210.0 2.13e-18 1.000 212.0 2.04e-18 1.000 214.0 1.93e-18 1.000 216.0 1.79e-18 1.000 218.0 1.64e-18 1.000 220.0 1.50e-18 1.000 222.0 1.35e-18 1.000 224.0 1.21e-18 1.000 226.0 1.08e-18 1.000 228.0 9.45e-19 1.000 230.0 8.45e-19 1.000 232.0 7.40e-19 1.000 234.0 6.60e-19 1.000 236.0 5.80e-19 1.000 238.0 5.00e-19 1.000 240.0 4.30e-19 1.000 242.0 3.70e-19 1.000 244.0 3.20e-19 1.000 246.0 2.75e-19 1.000 248.0 2.35e-19 1.000 250.0 2.00e-19 1.000 252.0 1.70e-19 1.000 254.0 1.45e-19 1.000 256.0 1.23e-19 1.000 258.0 1.03e-19 1.000 260.0 8.60e-20 1.000 262.0 7.30e-20 1.000 264.0 6.20e-20 1.000 266.0 5.30e-20 1.000 268.0 4.30e-20 1.000 270.0 3.70e-20 1.000 272.0 3.00e-20 1.000 274.0 2.50e-20 1.000 296.0 3.26e-21 1.000 297.0 5.65e-21 1.000 298.0 5.17e-21 1.000 299.0 4.29e-21 1.000 300.0 6.17E-21 1.000 305.0 7.000E-21 1.000 310.0 1.600E-20 1.000 315.0 2.500E-20 1.000 320.0 4.400E-20 1.000 325.0 5.000E-20 1.000 330.0 9.300E-20 1.000 335.0 6.500E-20 1.000 340.0 1.680E-19 1.000 345.0 9.600E-20 1.000 350.0 1.150E-19 1.000 355.0 2.360E-19 1.000 360.0 8.000E-20 1.000 365.0 1.610E-19 1.000 370.0 2.050E-19 1.000 375.0 4.900E-20 1.000 380.0 9.200E-20 1.000 385.0 1.450E-19 1.000 390.0 2.400E-20 1.000 395.0 6.000E-21 1.000 396.0 0.000E+00 1.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/HONO_NASA94 ================================================ HONO_NASA94 ! Nitrous Acid Photolysis (HONO) ! HONO + hv -> OH + NO ! Taken from the original RADM data, with NASA (1994) updates ! format: wl, abs_cs, qy Centered ! With FAC, units are (cm^2/molecule) FAC=1.0 309.000 0.000E+00 1.000E+00 310.000 1.300E-20 1.000E+00 311.000 1.900E-20 1.000E+00 312.000 2.800E-20 1.000E+00 313.000 2.200E-20 1.000E+00 314.000 3.600E-20 1.000E+00 316.000 2.500E-20 1.000E+00 320.000 5.360E-20 1.000E+00 325.000 5.340E-20 1.000E+00 330.000 1.110E-19 1.000E+00 335.000 7.860E-20 1.000E+00 340.000 1.888E-19 1.000E+00 345.000 1.164E-19 1.000E+00 350.000 1.298E-19 1.000E+00 355.000 2.788E-19 1.000E+00 360.000 9.540E-20 1.000E+00 365.000 1.790E-19 1.000E+00 370.000 2.598E-19 1.000E+00 375.000 5.900E-20 1.000E+00 380.000 1.012E-19 1.000E+00 385.000 1.756E-19 1.000E+00 390.000 3.040E-20 1.000E+00 395.000 6.200E-21 1.000E+00 400.000 0.000E+00 1.000E+00 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/HONO_NO2_SAPRC99 ================================================ HONO-NO2 ! HONO + HV = H. + NO2 ! SAPRC-99 Photolysis data. Supplied by William P. L. Carter. ! Created from PhotDat.xls on 29-Jan-2000 10:07 Points (the mechanism was evaluated assuming this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 309.0 0.000E+00 0.590 310.0 1.300E-20 0.590 311.0 1.900E-20 0.589 312.0 2.800E-20 0.579 313.0 2.200E-20 0.568 314.0 3.600E-20 0.557 315.0 3.000E-20 0.546 316.0 1.400E-20 0.536 317.0 3.100E-20 0.525 318.0 5.600E-20 0.514 319.0 3.600E-20 0.504 320.0 4.900E-20 0.493 321.0 7.800E-20 0.482 322.0 4.900E-20 0.471 323.0 5.100E-20 0.461 324.0 7.100E-20 0.450 325.0 5.000E-20 0.439 326.0 2.900E-20 0.429 327.0 6.600E-20 0.418 328.0 1.170E-19 0.407 329.0 6.100E-20 0.396 330.0 1.110E-19 0.386 331.0 1.790E-19 0.375 332.0 8.700E-20 0.364 333.0 7.600E-20 0.354 334.0 9.600E-20 0.343 335.0 9.600E-20 0.332 336.0 7.200E-20 0.321 337.0 5.300E-20 0.311 338.0 1.000E-19 0.300 339.0 1.880E-19 0.289 340.0 1.000E-19 0.279 341.0 1.700E-19 0.268 342.0 3.860E-19 0.257 343.0 1.490E-19 0.246 344.0 9.700E-20 0.236 345.0 1.090E-19 0.225 346.0 1.230E-19 0.214 347.0 1.040E-19 0.204 348.0 9.100E-20 0.193 349.0 7.900E-20 0.182 350.0 1.120E-19 0.171 351.0 2.120E-19 0.161 352.0 1.550E-19 0.150 353.0 1.910E-19 0.139 354.0 5.810E-19 0.129 355.0 3.640E-19 0.118 356.0 1.410E-19 0.107 357.0 1.170E-19 0.096 358.0 1.200E-19 0.086 359.0 1.040E-19 0.075 360.0 9.000E-20 0.064 361.0 8.300E-20 0.054 362.0 8.000E-20 0.043 363.0 9.600E-20 0.032 364.0 1.460E-19 0.021 365.0 1.680E-19 0.011 366.0 1.830E-19 0.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/HONO_NO_SAPRC99 ================================================ HONO-NO ! HONO + HV = HO. + NO ! SAPRC-99 Photolysis data. Supplied by William P. L. Carter. ! Created from PhotDat.xls on 29-Jan-2000 10:07 Points (the mechanism was evaluated assuming this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 309.0 0.000E+00 0.410 310.0 1.300E-20 0.410 311.0 1.900E-20 0.411 312.0 2.800E-20 0.421 313.0 2.200E-20 0.432 314.0 3.600E-20 0.443 315.0 3.000E-20 0.454 316.0 1.400E-20 0.464 317.0 3.100E-20 0.475 318.0 5.600E-20 0.486 319.0 3.600E-20 0.496 320.0 4.900E-20 0.507 321.0 7.800E-20 0.518 322.0 4.900E-20 0.529 323.0 5.100E-20 0.539 324.0 7.100E-20 0.550 325.0 5.000E-20 0.561 326.0 2.900E-20 0.571 327.0 6.600E-20 0.582 328.0 1.170E-19 0.593 329.0 6.100E-20 0.604 330.0 1.110E-19 0.614 331.0 1.790E-19 0.625 332.0 8.700E-20 0.636 333.0 7.600E-20 0.646 334.0 9.600E-20 0.657 335.0 9.600E-20 0.668 336.0 7.200E-20 0.679 337.0 5.300E-20 0.689 338.0 1.000E-19 0.700 339.0 1.880E-19 0.711 340.0 1.000E-19 0.721 341.0 1.700E-19 0.732 342.0 3.860E-19 0.743 343.0 1.490E-19 0.754 344.0 9.700E-20 0.764 345.0 1.090E-19 0.775 346.0 1.230E-19 0.786 347.0 1.040E-19 0.796 348.0 9.100E-20 0.807 349.0 7.900E-20 0.818 350.0 1.120E-19 0.829 351.0 2.120E-19 0.839 352.0 1.550E-19 0.850 353.0 1.910E-19 0.861 354.0 5.810E-19 0.871 355.0 3.640E-19 0.882 356.0 1.410E-19 0.893 357.0 1.170E-19 0.904 358.0 1.200E-19 0.914 359.0 1.040E-19 0.925 360.0 9.000E-20 0.936 361.0 8.300E-20 0.946 362.0 8.000E-20 0.957 363.0 9.600E-20 0.968 364.0 1.460E-19 0.979 365.0 1.680E-19 0.989 366.0 1.830E-19 1.000 367.0 3.020E-19 1.000 368.0 5.200E-19 1.000 369.0 3.880E-19 1.000 370.0 1.780E-19 1.000 371.0 1.130E-19 1.000 372.0 1.000E-19 1.000 373.0 7.700E-20 1.000 374.0 6.200E-20 1.000 375.0 5.300E-20 1.000 376.0 5.300E-20 1.000 377.0 5.000E-20 1.000 378.0 5.800E-20 1.000 379.0 8.000E-20 1.000 380.0 9.600E-20 1.000 381.0 1.130E-19 1.000 382.0 1.590E-19 1.000 383.0 2.100E-19 1.000 384.0 2.410E-19 1.000 385.0 2.030E-19 1.000 386.0 1.340E-19 1.000 387.0 9.000E-20 1.000 388.0 5.600E-20 1.000 389.0 3.400E-20 1.000 390.0 2.700E-20 1.000 391.0 2.000E-20 1.000 392.0 1.500E-20 1.000 393.0 1.100E-20 1.000 394.0 6.000E-21 1.000 395.0 1.000E-20 1.000 396.0 4.000E-21 1.000 400.0 0.000E+00 1.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/HONO_RACM2 ================================================ HONO_RACM2 ! HONO + HV = HO + NO ! Absorption x-section from NASA - 2006 ! ! Supplied by Dr. Wendy Goliff, reformatted by Dr. Golam Sarwar to make it compatible with CMAQ Points ! With FAC, units are (cm^2/molecule) FAC=1.0 186.1 0.955E-18 1.000 187.8 0.105E-17 1.000 189.6 0.120E-17 1.000 191.4 0.137E-17 1.000 193.3 0.155E-17 1.000 195.2 0.172E-17 1.000 197.1 0.188E-17 1.000 199.0 0.203E-17 1.000 201.0 0.215E-17 1.000 203.1 0.221E-17 1.000 205.2 0.224E-17 1.000 207.3 0.221E-17 1.000 209.4 0.215E-17 1.000 211.7 0.205E-17 1.000 213.9 0.194E-17 1.000 216.2 0.178E-17 1.000 218.6 0.160E-17 1.000 221.0 0.143E-17 1.000 223.5 0.125E-17 1.000 226.0 0.108E-17 1.000 228.6 0.915E-18 1.000 231.3 0.777E-18 1.000 234.0 0.660E-18 1.000 236.7 0.552E-18 1.000 239.6 0.444E-18 1.000 242.5 0.358E-18 1.000 245.4 0.289E-18 1.000 248.5 0.226E-18 1.000 251.6 0.176E-18 1.000 254.8 0.136E-18 1.000 258.2 0.101E-18 1.000 261.5 0.763E-19 1.000 265.0 0.575E-19 1.000 268.5 0.415E-19 1.000 272.2 0.295E-19 1.000 275.9 0.231E-19 1.000 279.8 0.193E-19 1.000 283.7 0.154E-19 1.000 287.8 0.114E-19 1.000 292.0 0.721E-20 1.000 296.3 0.398E-20 1.000 300.5 0.654E-20 1.000 303.0 0.925E-20 1.000 304.0 0.104E-19 1.000 305.0 0.157E-19 1.000 306.0 0.129E-19 1.000 307.0 0.916E-20 1.000 308.0 0.145E-19 1.000 309.0 0.201E-19 1.000 310.0 0.151E-19 1.000 311.0 0.207E-19 1.000 312.0 0.242E-19 1.000 313.0 0.225E-19 1.000 314.0 0.335E-19 1.000 316.0 0.161E-19 1.000 320.0 0.466E-19 1.000 325.0 0.405E-19 1.000 330.0 0.992E-19 1.000 335.0 0.771E-19 1.000 340.0 0.779E-19 1.000 345.0 0.877E-19 1.000 350.0 0.906E-19 1.000 355.0 0.276E-18 1.000 360.0 0.687E-19 1.000 365.0 0.128E-18 1.000 370.0 0.151E-18 1.000 375.0 0.355E-19 1.000 380.0 0.721E-19 1.000 385.0 0.161E-18 1.000 390.0 0.171E-19 1.000 395.0 0.403E-20 1.000 400.0 0.000E+00 1.000 405.0 0.000E+00 1.000 410.0 0.000E+00 1.000 415.0 0.000E+00 1.000 420.0 0.000E+00 1.000 425.0 0.000E+00 1.000 430.0 0.000E+00 1.000 435.0 0.000E+00 1.000 440.0 0.000E+00 1.000 445.0 0.000E+00 1.000 450.0 0.000E+00 1.000 455.0 0.000E+00 1.000 460.0 0.000E+00 1.000 465.0 0.000E+00 1.000 470.0 0.000E+00 1.000 475.0 0.000E+00 1.000 480.0 0.000E+00 1.000 485.0 0.000E+00 1.000 490.0 0.000E+00 1.000 495.0 0.000E+00 1.000 500.0 0.000E+00 1.000 505.0 0.000E+00 1.000 510.0 0.000E+00 1.000 515.0 0.000E+00 1.000 520.0 0.000E+00 1.000 525.0 0.000E+00 1.000 530.0 0.000E+00 1.000 535.0 0.000E+00 1.000 540.0 0.000E+00 1.000 545.0 0.000E+00 1.000 550.0 0.000E+00 1.000 555.0 0.000E+00 1.000 560.0 0.000E+00 1.000 565.0 0.000E+00 1.000 570.0 0.000E+00 1.000 575.0 0.000E+00 1.000 580.0 0.000E+00 1.000 585.0 0.000E+00 1.000 590.0 0.000E+00 1.000 595.0 0.000E+00 1.000 600.0 0.000E+00 1.000 605.0 0.000E+00 1.000 610.0 0.000E+00 1.000 615.0 0.000E+00 1.000 620.0 0.000E+00 1.000 625.0 0.000E+00 1.000 630.0 0.000E+00 1.000 635.0 0.000E+00 1.000 640.0 0.000E+00 1.000 644.8 0.000E+00 1.000 651.0 0.000E+00 1.000 660.0 0.000E+00 1.000 670.0 0.000E+00 1.000 680.0 0.000E+00 1.000 690.0 0.000E+00 1.000 700.0 0.000E+00 1.000 710.0 0.000E+00 1.000 720.0 0.000E+00 1.000 730.0 0.000E+00 1.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/HONO_RADM88 ================================================ HONO_RADM88 ! Nitrous Acid Photolysis (HONO) ! HONO + hv -> OH + NO ! Taken from the original RADM data ! format: wl, abs_cs, qy Beginning ! With FAC, units are (cm^2/molecule) FAC=1.0 310.500 2.500E-22 1.000E+00 311.500 2.025E-21 1.000E+00 312.500 3.975E-21 1.000E+00 313.500 4.500E-21 1.000E+00 314.500 5.258E-21 1.000E+00 317.500 3.935E-20 1.000E+00 322.500 3.934E-20 1.000E+00 327.500 8.513E-20 1.000E+00 332.500 6.312E-20 1.000E+00 337.500 1.692E-19 1.000E+00 342.500 1.139E-19 1.000E+00 347.500 1.071E-19 1.000E+00 352.500 2.583E-19 1.000E+00 357.500 7.305E-20 1.000E+00 362.500 1.838E-19 1.000E+00 367.500 2.062E-19 1.000E+00 372.500 3.707E-20 1.000E+00 377.500 8.246E-20 1.000E+00 382.500 1.459E-19 1.000E+00 387.500 1.421E-20 1.000E+00 392.500 0.000E+00 1.000E+00 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/HOP_RADM88 ================================================ HOP_RADM88 ! Higher Organic Peroxides Photolysis (HOP) ! CH3OOH? + hv -> products ! Abs CS based on Molina and Arguello [1979]; ! QY assumed to be unity over UV absorption range ! format: wl, abs_cs, qy Beginning ! With FAC, units are (cm^2/molecule) FAC=1.0 210.526 3.495E-19 1.000E+00 212.766 3.144E-19 1.000E+00 215.054 2.786E-19 1.000E+00 217.391 2.419E-19 1.000E+00 219.780 2.120E-19 1.000E+00 222.222 1.919E-19 1.000E+00 224.719 1.714E-19 1.000E+00 227.273 1.505E-19 1.000E+00 229.885 1.328E-19 1.000E+00 232.558 1.190E-19 1.000E+00 235.294 1.049E-19 1.000E+00 238.095 9.074E-20 1.000E+00 240.964 8.070E-20 1.000E+00 243.902 7.178E-20 1.000E+00 246.914 6.263E-20 1.000E+00 250.000 5.484E-20 1.000E+00 253.165 4.843E-20 1.000E+00 256.410 4.185E-20 1.000E+00 259.740 3.612E-20 1.000E+00 263.158 3.161E-20 1.000E+00 266.667 2.699E-20 1.000E+00 270.270 2.288E-20 1.000E+00 273.973 1.912E-20 1.000E+00 277.778 1.541E-20 1.000E+00 281.690 1.278E-20 1.000E+00 285.714 1.033E-20 1.000E+00 289.855 8.365E-21 1.000E+00 294.118 6.981E-21 1.000E+00 298.500 5.702E-21 1.000E+00 302.500 5.080E-21 1.000E+00 303.500 4.840E-21 1.000E+00 304.500 4.600E-21 1.000E+00 305.500 4.360E-21 1.000E+00 306.500 4.120E-21 1.000E+00 307.500 3.880E-21 1.000E+00 308.500 3.640E-21 1.000E+00 309.500 3.411E-21 1.000E+00 310.500 3.250E-21 1.000E+00 311.500 3.100E-21 1.000E+00 312.500 2.950E-21 1.000E+00 313.500 2.800E-21 1.000E+00 314.500 2.500E-21 1.000E+00 317.500 1.944E-21 1.000E+00 322.500 1.500E-21 1.000E+00 327.500 1.119E-21 1.000E+00 332.500 8.500E-22 1.000E+00 337.500 6.187E-22 1.000E+00 342.500 5.000E-22 1.000E+00 347.500 3.875E-22 1.000E+00 352.500 2.000E-22 1.000E+00 357.500 0.000E+00 1.000E+00 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/HPALD ================================================ HPALD ! HPALD total photolysis ! Absorption cross sections based on MACR, with unity quantum yield ! Peeters and Muller ! PCCP, 12, 14227-14235 (2010) Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 250.0 2.070E-21 1.0000 251.0 1.940E-21 1.0000 252.0 1.870E-21 1.0000 253.0 1.800E-21 1.0000 254.0 1.780E-21 1.0000 255.0 1.770E-21 1.0000 256.0 1.800E-21 1.0000 257.0 1.800E-21 1.0000 258.0 1.860E-21 1.0000 259.0 1.930E-21 1.0000 260.0 2.010E-21 1.0000 261.0 2.110E-21 1.0000 262.0 2.240E-21 1.0000 263.0 2.410E-21 1.0000 264.0 2.630E-21 1.0000 265.0 2.830E-21 1.0000 266.0 3.050E-21 1.0000 267.0 3.330E-21 1.0000 268.0 3.630E-21 1.0000 269.0 3.980E-21 1.0000 270.0 4.360E-21 1.0000 271.0 4.790E-21 1.0000 272.0 5.200E-21 1.0000 273.0 5.670E-21 1.0000 274.0 6.160E-21 1.0000 275.0 6.730E-21 1.0000 276.0 7.320E-21 1.0000 277.0 7.930E-21 1.0000 278.0 8.630E-21 1.0000 279.0 9.360E-21 1.0000 280.0 1.010E-20 1.0000 281.0 1.090E-20 1.0000 282.0 1.180E-20 1.0000 283.0 1.260E-20 1.0000 284.0 1.350E-20 1.0000 285.0 1.450E-20 1.0000 286.0 1.560E-20 1.0000 287.0 1.670E-20 1.0000 288.0 1.790E-20 1.0000 289.0 1.900E-20 1.0000 290.0 2.030E-20 1.0000 291.0 2.160E-20 1.0000 292.0 2.280E-20 1.0000 293.0 2.400E-20 1.0000 294.0 2.520E-20 1.0000 295.0 2.680E-20 1.0000 296.0 2.850E-20 1.0000 297.0 2.990E-20 1.0000 298.0 3.130E-20 1.0000 299.0 3.260E-20 1.0000 300.0 3.440E-20 1.0000 301.0 3.610E-20 1.0000 302.0 3.760E-20 1.0000 303.0 3.910E-20 1.0000 304.0 4.040E-20 1.0000 305.0 4.190E-20 1.0000 306.0 4.400E-20 1.0000 307.0 4.580E-20 1.0000 308.0 4.710E-20 1.0000 309.0 4.810E-20 1.0000 310.0 4.920E-20 1.0000 311.0 5.130E-20 1.0000 312.0 5.350E-20 1.0000 313.0 5.500E-20 1.0000 314.0 5.610E-20 1.0000 315.0 5.700E-20 1.0000 316.0 5.870E-20 1.0000 317.0 6.040E-20 1.0000 318.0 6.190E-20 1.0000 319.0 6.280E-20 1.0000 320.0 6.270E-20 1.0000 321.0 6.180E-20 1.0000 322.0 6.210E-20 1.0000 323.0 6.340E-20 1.0000 324.0 6.580E-20 1.0000 325.0 6.740E-20 1.0000 326.0 6.730E-20 1.0000 327.0 6.680E-20 1.0000 328.0 6.830E-20 1.0000 329.0 7.070E-20 1.0000 330.0 7.150E-20 1.0000 331.0 7.160E-20 1.0000 332.0 7.030E-20 1.0000 333.0 6.690E-20 1.0000 334.0 6.410E-20 1.0000 335.0 6.080E-20 1.0000 336.0 5.970E-20 1.0000 337.0 6.250E-20 1.0000 338.0 6.380E-20 1.0000 339.0 6.370E-20 1.0000 340.0 6.240E-20 1.0000 341.0 6.020E-20 1.0000 342.0 5.980E-20 1.0000 343.0 6.580E-20 1.0000 344.0 6.790E-20 1.0000 345.0 6.530E-20 1.0000 346.0 6.110E-20 1.0000 347.0 5.630E-20 1.0000 348.0 5.220E-20 1.0000 349.0 4.550E-20 1.0000 350.0 4.160E-20 1.0000 351.0 3.850E-20 1.0000 352.0 3.890E-20 1.0000 353.0 4.350E-20 1.0000 354.0 4.310E-20 1.0000 355.0 4.140E-20 1.0000 356.0 3.620E-20 1.0000 357.0 3.530E-20 1.0000 358.0 3.460E-20 1.0000 359.0 3.810E-20 1.0000 360.0 5.050E-20 1.0000 361.0 4.280E-20 1.0000 362.0 3.610E-20 1.0000 363.0 2.860E-20 1.0000 364.0 2.680E-20 1.0000 365.0 2.330E-20 1.0000 366.0 1.920E-20 1.0000 367.0 1.620E-20 1.0000 368.0 1.400E-20 1.0000 369.0 1.310E-20 1.0000 370.0 1.420E-20 1.0000 371.0 1.670E-20 1.0000 372.0 1.530E-20 1.0000 373.0 1.430E-20 1.0000 374.0 1.080E-20 1.0000 375.0 9.770E-21 1.0000 376.0 1.000E-20 1.0000 377.0 1.070E-20 1.0000 378.0 1.350E-20 1.0000 379.0 2.180E-20 1.0000 380.0 1.300E-20 1.0000 381.0 9.840E-21 1.0000 382.0 5.550E-21 1.0000 383.0 4.560E-21 1.0000 384.0 3.640E-21 1.0000 385.0 3.310E-21 1.0000 386.0 2.460E-21 1.0000 387.0 2.050E-21 1.0000 388.0 1.810E-21 1.0000 389.0 1.610E-21 1.0000 390.0 1.470E-21 1.0000 391.0 1.560E-21 1.0000 392.0 1.590E-21 1.0000 393.0 1.530E-21 1.0000 394.0 1.490E-21 1.0000 395.0 1.230E-21 1.0000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/HPALD_MCMv32 ================================================ HPALD_MCMv32 !Absorption cross-sections for C5 hydroperoxy-aldehydes (C5HPALD1 and C5HPALD1) formed from isoprene are !assumed equivalent to those of methcrolein. ! !Cross-Section: ! Methacrolein CH2C(CH3)CHO absorption cross-sections (298K) ! Taken from: MPI_Mainz Spectral Atlas (http://www.atmosphere.mpg.de/enid/2295) ! IUPAC 2005 Recommendation ! http://www.iupac-kinetic.ch.cam.ac.uk ! ! T. Gierczak, J.B. Burkholder, R.K. Talukdar, A. Mellouki, S.B. Barone, ! and A.R. Ravishankara: Atmospheric fate of methyl vinyl ketone and ! methacrolein, J. Photochem. Photobiol. A: Chem. 110, 1-10 (1997) ! !Quantum Yields ! A value of QY = 1.0 is assumed over the relevant wavelength range, based on information provided ! by Peeters and co-workers: ! Peeters et al., HOx radical regeneration in the oxidation of isoprene: Phys. Chem. Chem. Phys., 28, 59355939 (2009). ! ! T = 298 K, resolution = 1 nm ! !wvl(nm) XC(cm2) QY Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 250.0 2.07E-21 1.00 251.0 1.94E-21 1.00 252.0 1.87E-21 1.00 253.0 1.80E-21 1.00 254.0 1.78E-21 1.00 255.0 1.77E-21 1.00 256.0 1.80E-21 1.00 257.0 1.80E-21 1.00 258.0 1.86E-21 1.00 259.0 1.93E-21 1.00 260.0 2.01E-21 1.00 261.0 2.11E-21 1.00 262.0 2.24E-21 1.00 263.0 2.41E-21 1.00 264.0 2.63E-21 1.00 265.0 2.83E-21 1.00 266.0 3.05E-21 1.00 267.0 3.33E-21 1.00 268.0 3.63E-21 1.00 269.0 3.98E-21 1.00 270.0 4.36E-21 1.00 271.0 4.79E-21 1.00 272.0 5.20E-21 1.00 273.0 5.67E-21 1.00 274.0 6.16E-21 1.00 275.0 6.73E-21 1.00 276.0 7.32E-21 1.00 277.0 7.93E-21 1.00 278.0 8.63E-21 1.00 279.0 9.36E-21 1.00 280.0 1.01E-20 1.00 281.0 1.09E-20 1.00 282.0 1.18E-20 1.00 283.0 1.26E-20 1.00 284.0 1.35E-20 1.00 285.0 1.45E-20 1.00 286.0 1.56E-20 1.00 287.0 1.67E-20 1.00 288.0 1.79E-20 1.00 289.0 1.90E-20 1.00 290.0 2.03E-20 1.00 291.0 2.16E-20 1.00 292.0 2.28E-20 1.00 293.0 2.40E-20 1.00 294.0 2.52E-20 1.00 295.0 2.68E-20 1.00 296.0 2.85E-20 1.00 297.0 2.99E-20 1.00 298.0 3.13E-20 1.00 299.0 3.26E-20 1.00 300.0 3.44E-20 1.00 301.0 3.61E-20 1.00 302.0 3.76E-20 1.00 303.0 3.91E-20 1.00 304.0 4.04E-20 1.00 305.0 4.19E-20 1.00 306.0 4.40E-20 1.00 307.0 4.58E-20 1.00 308.0 4.71E-20 1.00 309.0 4.81E-20 1.00 310.0 4.92E-20 1.00 311.0 5.13E-20 1.00 312.0 5.35E-20 1.00 313.0 5.50E-20 1.00 314.0 5.61E-20 1.00 315.0 5.70E-20 1.00 316.0 5.87E-20 1.00 317.0 6.04E-20 1.00 318.0 6.19E-20 1.00 319.0 6.28E-20 1.00 320.0 6.27E-20 1.00 321.0 6.18E-20 1.00 322.0 6.21E-20 1.00 323.0 6.34E-20 1.00 324.0 6.58E-20 1.00 325.0 6.74E-20 1.00 326.0 6.73E-20 1.00 327.0 6.68E-20 1.00 328.0 6.83E-20 1.00 329.0 7.07E-20 1.00 330.0 7.15E-20 1.00 331.0 7.16E-20 1.00 332.0 7.03E-20 1.00 333.0 6.69E-20 1.00 334.0 6.41E-20 1.00 335.0 6.08E-20 1.00 336.0 5.97E-20 1.00 337.0 6.25E-20 1.00 338.0 6.38E-20 1.00 339.0 6.37E-20 1.00 340.0 6.24E-20 1.00 341.0 6.02E-20 1.00 342.0 5.98E-20 1.00 343.0 6.58E-20 1.00 344.0 6.79E-20 1.00 345.0 6.53E-20 1.00 346.0 6.11E-20 1.00 347.0 5.63E-20 1.00 348.0 5.22E-20 1.00 349.0 4.55E-20 1.00 350.0 4.16E-20 1.00 351.0 3.85E-20 1.00 352.0 3.89E-20 1.00 353.0 4.35E-20 1.00 354.0 4.31E-20 1.00 355.0 4.14E-20 1.00 356.0 3.62E-20 1.00 357.0 3.53E-20 1.00 358.0 3.46E-20 1.00 359.0 3.81E-20 1.00 360.0 5.05E-20 1.00 361.0 4.28E-20 1.00 362.0 3.61E-20 1.00 363.0 2.86E-20 1.00 364.0 2.68E-20 1.00 365.0 2.33E-20 1.00 366.0 1.92E-20 1.00 367.0 1.62E-20 1.00 368.0 1.40E-20 1.00 369.0 1.31E-20 1.00 370.0 1.42E-20 1.00 371.0 1.67E-20 1.00 372.0 1.53E-20 1.00 373.0 1.43E-20 1.00 374.0 1.08E-20 1.00 375.0 9.77E-21 1.00 376.0 1.00E-20 1.00 377.0 1.07E-20 1.00 378.0 1.35E-20 1.00 379.0 2.18E-20 1.00 380.0 1.30E-20 1.00 381.0 9.84E-21 1.00 382.0 5.55E-21 1.00 383.0 4.56E-21 1.00 384.0 3.64E-21 1.00 385.0 3.31E-21 1.00 386.0 2.46E-21 1.00 387.0 2.05E-21 1.00 388.0 1.81E-21 1.00 389.0 1.61E-21 1.00 390.0 1.47E-21 1.00 391.0 1.56E-21 1.00 392.0 1.59E-21 1.00 393.0 1.53E-21 1.00 394.0 1.49E-21 1.00 395.0 1.23E-21 1.00 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/HPALD_RACM2 ================================================ HPALD_RACM2 ! HPALD (C5 hydroperoxy-aldehydes) total photolysis ! Absorption cross sections based on MACR, with unity quantum yield ! Peeters and Muller (2010) Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 250.0 2.070E-21 1.0000 251.0 1.940E-21 1.0000 252.0 1.870E-21 1.0000 253.0 1.800E-21 1.0000 254.0 1.780E-21 1.0000 255.0 1.770E-21 1.0000 256.0 1.800E-21 1.0000 257.0 1.800E-21 1.0000 258.0 1.860E-21 1.0000 259.0 1.930E-21 1.0000 260.0 2.010E-21 1.0000 261.0 2.110E-21 1.0000 262.0 2.240E-21 1.0000 263.0 2.410E-21 1.0000 264.0 2.630E-21 1.0000 265.0 2.830E-21 1.0000 266.0 3.050E-21 1.0000 267.0 3.330E-21 1.0000 268.0 3.630E-21 1.0000 269.0 3.980E-21 1.0000 270.0 4.360E-21 1.0000 271.0 4.790E-21 1.0000 272.0 5.200E-21 1.0000 273.0 5.670E-21 1.0000 274.0 6.160E-21 1.0000 275.0 6.730E-21 1.0000 276.0 7.320E-21 1.0000 277.0 7.930E-21 1.0000 278.0 8.630E-21 1.0000 279.0 9.360E-21 1.0000 280.0 1.010E-20 1.0000 281.0 1.090E-20 1.0000 282.0 1.180E-20 1.0000 283.0 1.260E-20 1.0000 284.0 1.350E-20 1.0000 285.0 1.450E-20 1.0000 286.0 1.560E-20 1.0000 287.0 1.670E-20 1.0000 288.0 1.790E-20 1.0000 289.0 1.900E-20 1.0000 290.0 2.030E-20 1.0000 291.0 2.160E-20 1.0000 292.0 2.280E-20 1.0000 293.0 2.400E-20 1.0000 294.0 2.520E-20 1.0000 295.0 2.680E-20 1.0000 296.0 2.850E-20 1.0000 297.0 2.990E-20 1.0000 298.0 3.130E-20 1.0000 299.0 3.260E-20 1.0000 300.0 3.440E-20 1.0000 301.0 3.610E-20 1.0000 302.0 3.760E-20 1.0000 303.0 3.910E-20 1.0000 304.0 4.040E-20 1.0000 305.0 4.190E-20 1.0000 306.0 4.400E-20 1.0000 307.0 4.580E-20 1.0000 308.0 4.710E-20 1.0000 309.0 4.810E-20 1.0000 310.0 4.920E-20 1.0000 311.0 5.130E-20 1.0000 312.0 5.350E-20 1.0000 313.0 5.500E-20 1.0000 314.0 5.610E-20 1.0000 315.0 5.700E-20 1.0000 316.0 5.870E-20 1.0000 317.0 6.040E-20 1.0000 318.0 6.190E-20 1.0000 319.0 6.280E-20 1.0000 320.0 6.270E-20 1.0000 321.0 6.180E-20 1.0000 322.0 6.210E-20 1.0000 323.0 6.340E-20 1.0000 324.0 6.580E-20 1.0000 325.0 6.740E-20 1.0000 326.0 6.730E-20 1.0000 327.0 6.680E-20 1.0000 328.0 6.830E-20 1.0000 329.0 7.070E-20 1.0000 330.0 7.150E-20 1.0000 331.0 7.160E-20 1.0000 332.0 7.030E-20 1.0000 333.0 6.690E-20 1.0000 334.0 6.410E-20 1.0000 335.0 6.080E-20 1.0000 336.0 5.970E-20 1.0000 337.0 6.250E-20 1.0000 338.0 6.380E-20 1.0000 339.0 6.370E-20 1.0000 340.0 6.240E-20 1.0000 341.0 6.020E-20 1.0000 342.0 5.980E-20 1.0000 343.0 6.580E-20 1.0000 344.0 6.790E-20 1.0000 345.0 6.530E-20 1.0000 346.0 6.110E-20 1.0000 347.0 5.630E-20 1.0000 348.0 5.220E-20 1.0000 349.0 4.550E-20 1.0000 350.0 4.160E-20 1.0000 351.0 3.850E-20 1.0000 352.0 3.890E-20 1.0000 353.0 4.350E-20 1.0000 354.0 4.310E-20 1.0000 355.0 4.140E-20 1.0000 356.0 3.620E-20 1.0000 357.0 3.530E-20 1.0000 358.0 3.460E-20 1.0000 359.0 3.810E-20 1.0000 360.0 5.050E-20 1.0000 361.0 4.280E-20 1.0000 362.0 3.610E-20 1.0000 363.0 2.860E-20 1.0000 364.0 2.680E-20 1.0000 365.0 2.330E-20 1.0000 366.0 1.920E-20 1.0000 367.0 1.620E-20 1.0000 368.0 1.400E-20 1.0000 369.0 1.310E-20 1.0000 370.0 1.420E-20 1.0000 371.0 1.670E-20 1.0000 372.0 1.530E-20 1.0000 373.0 1.430E-20 1.0000 374.0 1.080E-20 1.0000 375.0 9.770E-21 1.0000 376.0 1.000E-20 1.0000 377.0 1.070E-20 1.0000 378.0 1.350E-20 1.0000 379.0 2.180E-20 1.0000 380.0 1.300E-20 1.0000 381.0 9.840E-21 1.0000 382.0 5.550E-21 1.0000 383.0 4.560E-21 1.0000 384.0 3.640E-21 1.0000 385.0 3.310E-21 1.0000 386.0 2.460E-21 1.0000 387.0 2.050E-21 1.0000 388.0 1.810E-21 1.0000 389.0 1.610E-21 1.0000 390.0 1.470E-21 1.0000 391.0 1.560E-21 1.0000 392.0 1.590E-21 1.0000 393.0 1.530E-21 1.0000 394.0 1.490E-21 1.0000 395.0 1.230E-21 1.0000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/HYDRO_ACET_CRI ================================================ HYDRO_ACET_CRI !HACET --> CH3CO3 + HO2 + HCHO (1) ! --> HCHO + HO2 + CO + CH3O2 combined channels (2) + (3) ! --> OH + CH2C(O)CH3 (4) ! Only channels (1) and (2) are significant and have equal individual qyes. !Cross-Section: ! Sander, S. P., Abbatt, J., Barker, J. R., Burkholder, J. B., Friedl, R. R., ! Golden, D. M., et al. (2011). Chemical Kinetics and Photochemical Data for ! Use in Atmospheric Studies, Evaluation No. 17. Pasadena, CA: Jet Propulsion ! Laboratory. !http://jpldataeval.jpl.nasa.gov/pdf/JPL%2010-6%20Final%2015June2011.pdf ! !Quantum Yield: ! based on ! Orlando, J. J., G. S. Tyndall, J.-M. Fracheboud, E. G. Estupian, S. Haberkorn and A. Zimmer, 1999, ! Atmos. Environ., 33, 1621-1629. ! ! Spectral dependence empirical derived with a synthetic actinic flux to give a mean quantum yield ! between 290 and 420 nm equal approximately 0.3 and mean quantum yield between 240 and 420 nm equal ! to approximately .5. They consistent with the error bars in Orlando et. al (1999). For troposheric ! chemistry values under 290 nm do not have a significant contribution to the photolysis rates. ! ! With FAC, units are (cm^2/molecule) Points !WV(nm) XC(cm-2) QY FAC=1.0 236.0 2.13E-20 1.000E+00 237.0 2.29E-20 1.000E+00 238.0 2.43E-20 1.000E+00 239.0 2.59E-20 1.000E+00 240.0 2.78E-20 1.000E+00 241.0 2.94E-20 1.000E+00 242.0 3.14E-20 1.000E+00 243.0 3.34E-20 1.000E+00 244.0 3.55E-20 1.000E+00 245.0 3.74E-20 1.000E+00 246.0 3.95E-20 1.000E+00 247.0 4.14E-20 1.000E+00 248.0 4.34E-20 1.000E+00 249.0 4.56E-20 1.000E+00 250.0 4.76E-20 1.000E+00 251.0 4.98E-20 1.000E+00 252.0 5.18E-20 1.000E+00 253.0 5.36E-20 1.000E+00 254.0 5.54E-20 1.000E+00 255.0 5.72E-20 1.000E+00 256.0 5.89E-20 1.000E+00 257.0 6.06E-20 1.000E+00 258.0 6.19E-20 1.000E+00 259.0 6.30E-20 1.000E+00 260.0 6.41E-20 1.000E+00 261.0 6.50E-20 1.000E+00 262.0 6.61E-20 1.000E+00 263.0 6.68E-20 1.000E+00 264.0 6.72E-20 1.000E+00 265.0 6.74E-20 1.000E+00 266.0 6.74E-20 1.000E+00 267.0 6.74E-20 1.000E+00 268.0 6.71E-20 1.000E+00 269.0 6.67E-20 1.000E+00 270.0 6.61E-20 1.000E+00 271.0 6.53E-20 1.000E+00 272.0 6.42E-20 1.000E+00 273.0 6.30E-20 1.000E+00 274.0 6.18E-20 1.000E+00 275.0 6.05E-20 1.000E+00 276.0 5.90E-20 1.000E+00 277.0 5.73E-20 1.000E+00 278.0 5.54E-20 1.000E+00 279.0 5.33E-20 1.000E+00 280.0 5.12E-20 1.000E+00 281.0 4.91E-20 1.000E+00 282.0 4.69E-20 1.000E+00 283.0 4.48E-20 1.000E+00 284.0 4.27E-20 1.000E+00 285.0 4.05E-20 1.000E+00 286.0 3.82E-20 1.000E+00 287.0 3.58E-20 1.000E+00 288.0 3.34E-20 1.000E+00 289.0 3.11E-20 9.831E-01 290.0 2.87E-20 9.500E-01 291.0 2.66E-20 9.169E-01 292.0 2.45E-20 8.839E-01 293.0 2.26E-20 8.511E-01 294.0 2.06E-20 8.184E-01 295.0 1.87E-20 7.861E-01 296.0 1.69E-20 7.542E-01 297.0 1.52E-20 7.228E-01 298.0 1.36E-20 6.918E-01 299.0 1.22E-20 6.615E-01 300.0 1.08E-20 6.318E-01 301.0 9.61E-21 6.027E-01 302.0 8.43E-21 5.744E-01 303.0 7.43E-21 5.469E-01 304.0 6.52E-21 5.202E-01 305.0 5.69E-21 4.942E-01 306.0 4.93E-21 4.692E-01 307.0 4.31E-21 4.450E-01 308.0 3.79E-21 4.217E-01 309.0 3.31E-21 3.993E-01 310.0 2.87E-21 3.777E-01 311.0 2.49E-21 3.571E-01 312.0 2.19E-21 3.373E-01 313.0 1.92E-21 3.184E-01 314.0 1.77E-21 3.004E-01 315.0 1.57E-21 2.832E-01 316.0 1.42E-21 2.668E-01 317.0 1.33E-21 2.512E-01 318.0 1.17E-21 2.364E-01 319.0 1.04E-21 2.223E-01 320.0 9.54E-22 2.090E-01 321.0 8.67E-22 1.964E-01 322.0 7.76E-22 1.845E-01 323.0 7.17E-22 1.732E-01 324.0 6.72E-22 1.625E-01 325.0 6.29E-22 1.525E-01 326.0 6.51E-22 1.430E-01 327.0 5.66E-22 1.340E-01 328.0 5.07E-22 1.256E-01 329.0 5.09E-22 1.177E-01 330.0 4.63E-22 1.102E-01 331.0 4.06E-22 1.032E-01 332.0 3.72E-22 9.660E-02 333.0 3.58E-22 9.041E-02 334.0 3.74E-22 8.459E-02 335.0 3.45E-22 7.914E-02 336.0 3.13E-22 7.402E-02 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/HYDRPMETH_BUT_10 ================================================ HPALD ! HPALD total photolysis ! Absorption cross sections based on MACR, with unity quantum yield ! Peeters and Muller ! PCCP, 12, 14227-14235 (2010) Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 250.0 2.070E-21 1.0000 251.0 1.940E-21 1.0000 252.0 1.870E-21 1.0000 253.0 1.800E-21 1.0000 254.0 1.780E-21 1.0000 255.0 1.770E-21 1.0000 256.0 1.800E-21 1.0000 257.0 1.800E-21 1.0000 258.0 1.860E-21 1.0000 259.0 1.930E-21 1.0000 260.0 2.010E-21 1.0000 261.0 2.110E-21 1.0000 262.0 2.240E-21 1.0000 263.0 2.410E-21 1.0000 264.0 2.630E-21 1.0000 265.0 2.830E-21 1.0000 266.0 3.050E-21 1.0000 267.0 3.330E-21 1.0000 268.0 3.630E-21 1.0000 269.0 3.980E-21 1.0000 270.0 4.360E-21 1.0000 271.0 4.790E-21 1.0000 272.0 5.200E-21 1.0000 273.0 5.670E-21 1.0000 274.0 6.160E-21 1.0000 275.0 6.730E-21 1.0000 276.0 7.320E-21 1.0000 277.0 7.930E-21 1.0000 278.0 8.630E-21 1.0000 279.0 9.360E-21 1.0000 280.0 1.010E-20 1.0000 281.0 1.090E-20 1.0000 282.0 1.180E-20 1.0000 283.0 1.260E-20 1.0000 284.0 1.350E-20 1.0000 285.0 1.450E-20 1.0000 286.0 1.560E-20 1.0000 287.0 1.670E-20 1.0000 288.0 1.790E-20 1.0000 289.0 1.900E-20 1.0000 290.0 2.030E-20 1.0000 291.0 2.160E-20 1.0000 292.0 2.280E-20 1.0000 293.0 2.400E-20 1.0000 294.0 2.520E-20 1.0000 295.0 2.680E-20 1.0000 296.0 2.850E-20 1.0000 297.0 2.990E-20 1.0000 298.0 3.130E-20 1.0000 299.0 3.260E-20 1.0000 300.0 3.440E-20 1.0000 301.0 3.610E-20 1.0000 302.0 3.760E-20 1.0000 303.0 3.910E-20 1.0000 304.0 4.040E-20 1.0000 305.0 4.190E-20 1.0000 306.0 4.400E-20 1.0000 307.0 4.580E-20 1.0000 308.0 4.710E-20 1.0000 309.0 4.810E-20 1.0000 310.0 4.920E-20 1.0000 311.0 5.130E-20 1.0000 312.0 5.350E-20 1.0000 313.0 5.500E-20 1.0000 314.0 5.610E-20 1.0000 315.0 5.700E-20 1.0000 316.0 5.870E-20 1.0000 317.0 6.040E-20 1.0000 318.0 6.190E-20 1.0000 319.0 6.280E-20 1.0000 320.0 6.270E-20 1.0000 321.0 6.180E-20 1.0000 322.0 6.210E-20 1.0000 323.0 6.340E-20 1.0000 324.0 6.580E-20 1.0000 325.0 6.740E-20 1.0000 326.0 6.730E-20 1.0000 327.0 6.680E-20 1.0000 328.0 6.830E-20 1.0000 329.0 7.070E-20 1.0000 330.0 7.150E-20 1.0000 331.0 7.160E-20 1.0000 332.0 7.030E-20 1.0000 333.0 6.690E-20 1.0000 334.0 6.410E-20 1.0000 335.0 6.080E-20 1.0000 336.0 5.970E-20 1.0000 337.0 6.250E-20 1.0000 338.0 6.380E-20 1.0000 339.0 6.370E-20 1.0000 340.0 6.240E-20 1.0000 341.0 6.020E-20 1.0000 342.0 5.980E-20 1.0000 343.0 6.580E-20 1.0000 344.0 6.790E-20 1.0000 345.0 6.530E-20 1.0000 346.0 6.110E-20 1.0000 347.0 5.630E-20 1.0000 348.0 5.220E-20 1.0000 349.0 4.550E-20 1.0000 350.0 4.160E-20 1.0000 351.0 3.850E-20 1.0000 352.0 3.890E-20 1.0000 353.0 4.350E-20 1.0000 354.0 4.310E-20 1.0000 355.0 4.140E-20 1.0000 356.0 3.620E-20 1.0000 357.0 3.530E-20 1.0000 358.0 3.460E-20 1.0000 359.0 3.810E-20 1.0000 360.0 5.050E-20 1.0000 361.0 4.280E-20 1.0000 362.0 3.610E-20 1.0000 363.0 2.860E-20 1.0000 364.0 2.680E-20 1.0000 365.0 2.330E-20 1.0000 366.0 1.920E-20 1.0000 367.0 1.620E-20 1.0000 368.0 1.400E-20 1.0000 369.0 1.310E-20 1.0000 370.0 1.420E-20 1.0000 371.0 1.670E-20 1.0000 372.0 1.530E-20 1.0000 373.0 1.430E-20 1.0000 374.0 1.080E-20 1.0000 375.0 9.770E-21 1.0000 376.0 1.000E-20 1.0000 377.0 1.070E-20 1.0000 378.0 1.350E-20 1.0000 379.0 2.180E-20 1.0000 380.0 1.300E-20 1.0000 381.0 9.840E-21 1.0000 382.0 5.550E-21 1.0000 383.0 4.560E-21 1.0000 384.0 3.640E-21 1.0000 385.0 3.310E-21 1.0000 386.0 2.460E-21 1.0000 387.0 2.050E-21 1.0000 388.0 1.810E-21 1.0000 389.0 1.610E-21 1.0000 390.0 1.470E-21 1.0000 391.0 1.560E-21 1.0000 392.0 1.590E-21 1.0000 393.0 1.530E-21 1.0000 394.0 1.490E-21 1.0000 395.0 1.230E-21 1.0000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/I2_IUPAC10 ================================================ I2_IUPAC10 ! I2 + HV = 2*I ! I2 Photolysis data ! Supplied by Golam Sarwar ! below 400 nm from JPL(2011) ! in MPI-Mainz UV/VIS Spectral Atlas ! http://satellite.mpic.de/spectral_atlas/cross_sections ! at and above 400 nm ! Created from IUPAC dataset PI7 Points (these data can be treated as point values) ! With FAC, units are (cm^2/molecule) FAC=1.0 185.0 1.850E-17 1.000 190.0 2.010E-17 1.000 195.0 1.220E-17 1.000 200.0 7.320E-18 1.000 205.0 5.190E-18 1.000 210.0 4.180E-18 1.000 215.0 3.520E-18 1.000 220.0 3.020E-18 1.000 225.0 2.600E-18 1.000 230.0 2.250E-18 1.000 235.0 1.970E-18 1.000 240.0 1.690E-18 1.000 245.0 1.470E-18 1.000 250.0 1.280E-18 1.000 255.0 1.100E-18 1.000 260.0 9.710E-19 1.000 265.0 8.420E-19 1.000 270.0 7.290E-19 1.000 275.0 6.310E-19 1.000 280.0 5.440E-19 1.000 285.0 4.590E-19 1.000 290.0 3.890E-19 1.000 295.0 3.240E-19 1.000 300.0 2.740E-19 1.000 305.0 2.310E-19 1.000 310.0 1.810E-19 1.000 315.0 1.510E-19 1.000 320.0 1.220E-19 1.000 325.0 1.050E-19 1.000 330.0 7.790E-20 1.000 335.0 6.180E-20 1.000 340.0 4.710E-20 1.000 345.0 4.080E-20 1.000 350.0 2.580E-20 1.000 355.0 1.940E-20 1.000 360.0 1.240E-20 1.000 365.0 1.020E-20 1.000 370.0 6.590E-21 1.000 375.0 8.230E-21 1.000 380.0 1.140E-20 1.000 385.0 1.010E-20 1.000 390.0 9.250E-21 1.000 395.0 1.110E-20 1.000 400.0 2.900E-20 1.000 405.0 3.800E-20 1.000 410.0 4.300E-20 1.000 415.0 5.300E-20 1.000 420.0 5.800E-20 1.000 425.0 8.100E-20 1.000 430.0 1.330E-19 1.000 435.0 1.530E-19 1.000 440.0 1.990E-19 1.000 445.0 2.530E-19 1.000 450.0 3.270E-19 1.000 455.0 4.320E-19 1.000 460.0 5.600E-19 1.000 465.0 7.090E-19 1.000 470.0 8.800E-19 1.000 475.0 1.070E-18 1.000 480.0 1.290E-18 1.000 485.0 1.520E-18 1.000 490.0 1.750E-18 1.000 495.0 2.000E-18 1.000 500.0 2.240E-18 1.000 505.0 2.450E-18 1.000 510.0 2.620E-18 1.000 515.0 2.760E-18 1.000 520.0 2.780E-18 1.000 525.0 2.850E-18 1.000 530.0 2.820E-18 1.000 535.0 2.750E-18 1.000 540.0 2.600E-18 1.000 545.0 2.410E-18 1.000 550.0 2.250E-18 1.000 555.0 2.020E-18 1.000 560.0 1.740E-18 1.000 565.0 1.540E-18 1.000 570.0 1.280E-18 1.000 575.0 9.550E-19 1.000 580.0 9.120E-19 1.000 585.0 7.290E-19 1.000 590.0 6.440E-19 1.000 595.0 5.880E-19 1.000 600.0 4.660E-19 1.000 605.0 4.220E-19 1.000 610.0 4.000E-19 1.000 615.0 3.360E-19 1.000 620.0 3.000E-19 1.000 625.0 2.760E-19 1.000 630.0 2.740E-19 1.000 635.0 2.220E-19 1.000 640.0 2.330E-19 1.000 645.0 2.220E-19 1.000 650.0 2.120E-19 1.000 655.0 2.030E-19 1.000 660.0 1.860E-19 1.000 665.0 1.700E-19 1.000 670.0 1.740E-19 1.000 675.0 1.560E-19 1.000 680.0 1.460E-19 1.000 685.0 1.370E-19 1.000 690.0 1.260E-19 1.000 695.0 1.060E-19 1.000 700.0 1.010E-19 1.000 705.0 7.400E-20 1.000 710.0 6.300E-20 1.000 715.0 5.900E-20 1.000 720.0 5.400E-20 1.000 725.0 3.100E-20 1.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/IBR_IUPAC10 ================================================ IBR_IUPAC10 ! IBR + HV = I + BR ! IBR Photolysis data (QY assumed) ! Supplied by Golam Sarwar ! Created from IUPAC dataset Points (these data can be treated as point values) ! With FAC, units are (cm^2/molecule) FAC=1.0 220.0 3.590E-20 1.000 230.0 5.700E-20 1.000 240.0 1.021E-19 1.000 250.0 1.671E-19 1.000 260.0 2.145E-19 1.000 270.0 2.309E-19 1.000 280.0 2.110E-19 1.000 290.0 1.682E-19 1.000 300.0 1.243E-19 1.000 310.0 7.950E-20 1.000 320.0 5.390E-20 1.000 330.0 3.360E-20 1.000 340.0 2.140E-20 1.000 350.0 1.450E-20 1.000 360.0 1.530E-20 1.000 370.0 2.370E-20 1.000 380.0 4.170E-20 1.000 390.0 6.960E-20 1.000 400.0 1.200E-19 1.000 410.0 2.046E-19 1.000 420.0 3.173E-19 1.000 430.0 4.477E-19 1.000 440.0 5.869E-19 1.000 450.0 7.192E-19 1.000 460.0 8.518E-19 1.000 470.0 9.849E-19 1.000 480.0 1.111E-18 1.000 490.0 1.198E-18 1.000 500.0 1.216E-18 1.000 510.0 1.159E-18 1.000 520.0 1.030E-18 1.000 530.0 8.583E-19 1.000 540.0 6.752E-19 1.000 550.0 5.234E-19 1.000 560.0 3.663E-19 1.000 570.0 2.722E-19 1.000 580.0 1.988E-19 1.000 590.0 1.457E-19 1.000 600.0 1.132E-19 1.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/IC3ONO2 ================================================ IC3ONO2 ! ! I-C3H7ONO2 + HV = PRODUCTS ! IUPAC (1997). Recommend assuming unit quantum yields. ! This has stronger absorption than n-C3-ONO2 and lower nitrates, ! but chosen as representative of lumped higher nitrates. ! wl abs Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 185.0 1.790E-17 1.0000 188.0 1.810E-17 1.0000 190.0 1.790E-17 1.0000 195.0 1.610E-17 1.0000 200.0 1.260E-17 1.0000 205.0 8.670E-18 1.0000 210.0 4.980E-18 1.0000 215.0 2.470E-18 1.0000 220.0 1.170E-18 1.0000 225.0 5.800E-19 1.0000 230.0 3.100E-19 1.0000 235.0 1.800E-19 1.0000 240.0 1.100E-19 1.0000 245.0 7.000E-20 1.0000 250.0 5.700E-20 1.0000 255.0 5.200E-20 1.0000 260.0 4.900E-20 1.0000 265.0 4.600E-20 1.0000 270.0 4.100E-20 1.0000 275.0 3.600E-20 1.0000 280.0 2.900E-20 1.0000 285.0 2.300E-20 1.0000 290.0 1.700E-20 1.0000 295.0 1.200E-20 1.0000 300.0 8.100E-21 1.0000 305.0 5.200E-21 1.0000 310.0 3.200E-21 1.0000 315.0 1.900E-21 1.0000 320.0 1.100E-21 1.0000 325.0 6.100E-22 1.0000 330.0 3.700E-22 1.0000 335.0 0.000E+00 1.0000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/IC3ONO2_SAPRC99 ================================================ IC3ONO2 ! I-C3H7ONO2 + HV = PRODUCTS ! SAPRC-99 Photolysis data. Supplied by William P. L. Carter. ! Created from PhotDat.xls on 29-Jan-2000 10:07 Points (the mechanism was evaluated assuming this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 185.0 1.790E-17 1.000 188.0 1.810E-17 1.000 190.0 1.790E-17 1.000 195.0 1.610E-17 1.000 200.0 1.260E-17 1.000 205.0 8.670E-18 1.000 210.0 4.980E-18 1.000 215.0 2.470E-18 1.000 220.0 1.170E-18 1.000 225.0 5.800E-19 1.000 230.0 3.100E-19 1.000 235.0 1.800E-19 1.000 240.0 1.100E-19 1.000 245.0 7.000E-20 1.000 250.0 5.700E-20 1.000 255.0 5.200E-20 1.000 260.0 4.900E-20 1.000 265.0 4.600E-20 1.000 270.0 4.100E-20 1.000 275.0 3.600E-20 1.000 280.0 2.900E-20 1.000 285.0 2.300E-20 1.000 290.0 1.700E-20 1.000 295.0 1.200E-20 1.000 300.0 8.100E-21 1.000 305.0 5.200E-21 1.000 310.0 3.200E-21 1.000 315.0 1.900E-21 1.000 320.0 1.100E-21 1.000 325.0 6.100E-22 1.000 330.0 3.700E-22 1.000 335.0 0.000E+00 1.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/ICL_IUPAC10 ================================================ ICL_IUPAC10 ! ICL + HV = I + CL ! ICL Photolysis data (QY assumed) ! Supplied by Golam Sarwar ! Created from IUPAC dataset Points (these data can be treated as point values) ! With FAC, units are (cm^2/molecule) FAC=1.0 220.0 2.130E-19 1.000 230.0 3.540E-19 1.000 240.0 4.400E-19 1.000 250.0 4.330E-19 1.000 260.0 3.530E-19 1.000 270.0 2.440E-19 1.000 280.0 1.540E-19 1.000 290.0 9.410E-20 1.000 300.0 6.080E-20 1.000 310.0 4.590E-20 1.000 320.0 4.010E-20 1.000 330.0 3.670E-20 1.000 340.0 3.290E-20 1.000 350.0 3.100E-20 1.000 360.0 3.520E-20 1.000 370.0 5.310E-20 1.000 380.0 8.790E-20 1.000 390.0 1.390E-19 1.000 400.0 1.900E-19 1.000 410.0 2.470E-19 1.000 420.0 2.890E-19 1.000 430.0 3.210E-19 1.000 440.0 3.540E-19 1.000 450.0 3.890E-19 1.000 460.0 4.170E-19 1.000 470.0 4.260E-19 1.000 480.0 4.090E-19 1.000 490.0 3.630E-19 1.000 500.0 2.940E-19 1.000 510.0 2.280E-19 1.000 520.0 1.640E-19 1.000 530.0 1.150E-19 1.000 540.0 8.000E-20 1.000 550.0 5.700E-20 1.000 560.0 4.320E-20 1.000 570.0 3.440E-20 1.000 580.0 2.830E-20 1.000 590.0 2.100E-20 1.000 600.0 1.760E-20 1.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/IMONIT_RACM2 ================================================ IMONIT_RACM2 ! IMONIT + hv = HKET + NO2: j(Pj_imonit) ; ! j(Pj_onitoh1) ~ MCM n-propyl nitrate (n-C3H7ONO2) : J<53>, ! divided by 3 at mech.def file: Browne et al. 2014: divided by 3 due to the hydroxy group (Robert & Fajer 1989) ! Absorption x-section taken from IUPAC recommended ! Quantum Yield (φ) = 1.00 IUPAC recommended ! Made by Azimeh Zare Jul2016 !Absorption cross-sections at 298 K Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1 185.0 1.810E-17 1.000 190.0 1.800E-17 1.000 195.0 1.600E-17 1.000 200.0 1.260E-17 1.000 205.0 0.855E-17 1.000 210.0 0.489E-17 1.000 215.0 0.244E-17 1.000 220.0 0.105E-17 1.000 225.0 0.050E-17 1.000 230.0 0.027E-17 1.000 235.0 0.015E-17 1.000 240.0 8.900E-20 1.000 245.0 6.000E-20 1.000 250.0 4.800E-20 1.000 255.0 4.400E-20 1.000 260.0 4.000E-20 1.000 265.0 3.600E-20 1.000 270.0 3.200E-20 1.000 275.0 2.800E-20 1.000 280.0 2.300E-20 1.000 285.0 1.800E-20 1.000 290.0 1.300E-20 1.000 295.0 0.950E-20 1.000 300.0 0.570E-20 1.000 305.0 0.340E-20 1.000 310.0 0.190E-20 1.000 315.0 0.100E-20 1.000 320.0 0.053E-20 1.000 325.0 0.031E-20 1.000 330.0 0.022E-20 1.000 335.0 0.018E-20 1.000 340.0 0.016E-20 1.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/INO2_06 ================================================ INO2_06 ! INO2 + HV = I + NO2 ! INO2 Photolysis data (QY assumed) ! Supplied by Golam Sarwar ! Created from NASA/JPL dataset Points (these data can be treated as point values) ! With FAC, units are (cm^2/molecule) FAC=1.0 210.0 2.360E-18 1.000 215.0 1.870E-18 1.000 220.0 1.960E-18 1.000 225.0 2.790E-18 1.000 230.0 3.470E-18 1.000 235.0 3.990E-18 1.000 240.0 4.220E-18 1.000 245.0 4.000E-18 1.000 250.0 3.300E-18 1.000 255.0 2.340E-18 1.000 260.0 1.620E-18 1.000 265.0 9.960E-19 1.000 270.0 8.710E-19 1.000 275.0 8.980E-19 1.000 280.0 9.960E-19 1.000 285.0 9.220E-19 1.000 290.0 8.100E-19 1.000 295.0 6.200E-19 1.000 300.0 3.730E-19 1.000 305.0 3.080E-19 1.000 310.0 2.470E-19 1.000 315.0 2.510E-19 1.000 320.0 2.750E-19 1.000 325.0 3.250E-19 1.000 330.0 3.120E-19 1.000 335.0 3.490E-19 1.000 340.0 3.730E-19 1.000 345.0 3.730E-19 1.000 350.0 2.980E-19 1.000 355.0 2.950E-19 1.000 360.0 2.710E-19 1.000 365.0 2.070E-19 1.000 370.0 1.490E-19 1.000 375.0 7.400E-20 1.000 380.0 2.400E-20 1.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/INO_06 ================================================ INO_06 ! INO + HV = I + NO ! INO Photolysis data ! Supplied by Golam Sarwar ! Created from NASA/JPL dataset Points (these data can be treated as point values) ! With FAC, units are (cm^2/molecule) FAC=1.0 223.0 2.250E-18 1.000 230.0 1.690E-17 1.000 235.0 5.640E-17 1.000 238.0 6.850E-17 1.000 245.0 6.000E-17 1.000 251.0 4.880E-17 1.000 260.0 2.270E-17 1.000 270.0 1.040E-17 1.000 280.0 5.000E-18 1.000 290.0 1.870E-18 1.000 300.0 9.200E-19 1.000 310.0 4.100E-19 1.000 360.0 4.500E-19 1.000 370.0 5.900E-19 1.000 380.0 6.500E-19 1.000 390.0 7.800E-19 1.000 400.0 9.200E-19 1.000 410.0 1.100E-18 1.000 420.0 1.000E-18 1.000 430.0 9.400E-19 1.000 440.0 8.000E-19 1.000 450.0 6.000E-19 1.000 460.0 4.000E-19 1.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/IONO2_06 ================================================ IONO2_06 ! IONO2 + HV = I + NO3 ! IONO2 Photolysis data (QY based on Sherwen et al., ACP 2016) ! Supplied by Golam Sarwar, QY reduced to 0.210 following Sherwen et al., ACP 2016 ! Created from NASA/JPL dataset (JPL Publication 10-6) Points (these data can be treated as point values) ! With FAC, units are (cm^2/molecule) FAC=1.0 245.0 1.210E-17 0.210 250.0 1.170E-17 0.210 255.0 1.060E-17 0.210 260.0 9.460E-18 0.210 265.0 8.800E-18 0.210 270.0 7.970E-18 0.210 275.0 7.720E-18 0.210 280.0 7.410E-18 0.210 285.0 6.910E-18 0.210 290.0 6.310E-18 0.210 295.0 5.770E-18 0.210 300.0 5.250E-18 0.210 305.0 4.950E-18 0.210 310.0 4.620E-18 0.210 315.0 4.410E-18 0.210 320.0 4.040E-18 0.210 325.0 3.960E-18 0.210 330.0 3.800E-18 0.210 335.0 3.740E-18 0.210 340.0 3.600E-18 0.210 345.0 3.480E-18 0.210 350.0 3.340E-18 0.210 355.0 3.160E-18 0.210 360.0 2.940E-18 0.210 365.0 2.700E-18 0.210 370.0 2.420E-18 0.210 375.0 2.130E-18 0.210 380.0 1.840E-18 0.210 385.0 1.530E-18 0.210 390.0 1.300E-18 0.210 395.0 1.030E-18 0.210 400.0 7.800E-19 0.210 405.0 6.050E-19 0.210 410.0 4.960E-19 0.210 415.0 4.160E-19 0.210 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/IO_IUPAC10 ================================================ IO_IUPAC10 ! IO + HV = I + O ! IO Photolysis data ! Supplied by Golam Sarwar ! Created from IUPAC dataset PI3 Points (these data can be treated as point values) ! With FAC, units are (cm^2/molecule) FAC=1.0 345.0 7.800E-19 1.000 350.0 1.000E-18 1.000 355.0 1.360E-18 1.000 360.0 1.850E-18 1.000 365.0 2.250E-18 1.000 370.0 2.990E-18 1.000 375.0 3.570E-18 1.000 380.0 4.420E-18 1.000 385.0 4.630E-18 1.000 390.0 5.650E-18 1.000 395.0 6.550E-18 1.000 400.0 6.407E-18 1.000 405.0 7.090E-18 1.000 410.0 7.530E-18 1.000 415.0 5.180E-18 1.000 420.0 9.040E-18 1.000 425.0 4.170E-18 1.000 430.0 6.110E-18 1.000 435.0 6.920E-18 1.000 440.0 1.610E-18 1.000 445.0 4.940E-18 1.000 450.0 1.020E-18 1.000 455.0 2.360E-18 1.000 460.0 9.000E-19 1.000 465.0 3.900E-19 1.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/IPROCHO_MCMv32 ================================================ IPRCHO_MCMv32 !i-C3H7CHO (i-butyraldehyde, 2-methylpropanal) photolysis cross-sections !Absorption Cross-Section: ! From MPI-Mainz-UV-VIS Spectral Atlas ! Reference: ! R. D. Martinez, A. A. Buitrago, N. W. Howell, C. H. Hearn, and ! J. A. Joens, Atmos. Env. 26A, 785 (1992) !Quantum Yield are three point running average based on ! Y. Chen, L. Zhu and J. S. Francisco, Wavelength-Dependent Photolysis of ! n-Butyraldehyde and i-Butyraldehyde in the 280-330 nm Region., J. Phys. ! Chem., 106, 7755 (2002) ! !wl,nm XC,cm^2 QY QY,observed Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 202.0 9.29E-21 0.000 0.000 206.0 4.55E-21 0.000 0.000 210.0 2.27E-21 0.000 0.000 214.0 1.63E-21 0.000 0.000 218.0 1.09E-21 0.000 0.000 222.0 6.20E-22 0.000 0.000 226.0 7.00E-22 0.000 0.000 230.0 1.05E-21 0.000 0.000 234.0 1.66E-21 0.000 0.000 238.0 2.61E-21 0.000 0.000 242.0 4.02E-21 0.000 0.000 246.0 6.01E-21 0.000 0.000 250.0 8.73E-21 0.000 0.000 254.0 1.22E-20 0.000 0.000 258.0 1.66E-20 0.000 0.000 262.0 2.19E-20 0.000 0.000 266.0 2.76E-20 0.000 0.000 270.0 3.40E-20 0.000 0.000 274.0 4.00E-20 0.000 0.000 278.0 4.63E-20 0.103 0.000 280.0 4.90E-20 0.207 0.310 281.0 5.02E-20 0.310 0.310 282.0 5.08E-20 0.310 0.310 283.0 5.17E-20 0.310 0.310 284.0 5.29E-20 0.373 0.310 285.0 5.42E-20 0.437 0.500 286.0 5.57E-20 0.500 0.500 287.0 5.66E-20 0.500 0.500 288.0 5.69E-20 0.500 0.500 289.0 5.75E-20 0.570 0.500 290.0 5.78E-20 0.640 0.710 291.0 5.75E-20 0.710 0.710 292.0 5.76E-20 0.710 0.710 293.0 5.79E-20 0.710 0.710 294.0 5.83E-20 0.777 0.710 295.0 5.88E-20 0.843 0.910 296.0 5.86E-20 0.910 0.910 297.0 5.75E-20 0.910 0.910 298.0 5.68E-20 0.910 0.910 299.0 5.64E-20 0.940 0.910 300.0 5.55E-20 0.970 1.000 301.0 5.42E-20 1.000 1.000 302.0 5.37E-20 1.000 1.000 303.0 5.31E-20 1.000 1.000 304.0 5.24E-20 0.973 1.000 305.0 5.17E-20 0.947 0.920 306.0 5.00E-20 0.920 0.920 307.0 4.73E-20 0.920 0.920 308.0 4.52E-20 0.920 0.920 309.0 4.38E-20 0.947 0.920 310.0 4.25E-20 0.973 1.000 311.0 4.08E-20 1.000 1.000 312.0 3.93E-20 1.000 1.000 313.0 3.82E-20 1.000 1.000 314.0 3.68E-20 1.000 1.000 315.0 3.55E-20 1.000 1.000 316.0 3.41E-20 1.000 1.000 317.0 3.14E-20 1.000 1.000 318.0 2.79E-20 1.000 1.000 319.0 2.55E-20 1.000 1.000 320.0 2.38E-20 1.000 1.000 321.0 2.24E-20 1.000 1.000 322.0 2.09E-20 1.000 1.000 323.0 1.93E-20 1.000 1.000 324.0 1.81E-20 1.000 1.000 325.0 1.69E-20 1.000 1.000 326.0 1.56E-20 1.000 1.000 327.0 1.46E-20 1.000 1.000 328.0 1.34E-20 1.000 1.000 329.0 1.15E-20 0.980 1.000 330.0 9.18E-21 0.960 0.940 331.0 7.60E-21 0.940 0.940 332.0 6.61E-21 0.940 0.940 333.0 5.79E-21 0.940 0.940 334.0 5.10E-21 0.940 0.940 335.0 4.45E-21 0.940 0.940 336.0 3.73E-21 0.940 0.940 337.0 3.17E-21 0.940 0.940 338.0 2.79E-21 0.940 0.940 339.0 2.38E-21 0.940 0.940 340.0 1.87E-21 0.940 0.940 341.0 1.65E-21 0.940 0.940 342.0 1.38E-21 0.940 0.940 343.0 7.70E-22 0.940 0.940 344.0 4.70E-22 0.940 0.940 345.0 3.40E-22 0.940 0.940 346.0 2.50E-22 0.940 0.940 347.0 1.90E-22 0.940 0.940 348.0 1.50E-22 0.940 0.940 349.0 1.30E-22 0.940 0.940 350.0 1.10E-22 0.940 0.940 351.0 1.00E-22 0.940 0.940 352.0 9.00E-23 0.940 0.940 353.0 8.00E-23 0.940 0.940 354.0 5.00E-23 0.940 0.940 355.0 4.00E-23 0.940 0.940 356.0 3.00E-23 0.940 0.940 357.0 1.00E-23 0.940 0.940 358.0 1.00E-23 0.940 0.940 359.0 1.00E-23 0.627 0.940 360.0 0.00E+00 0.313 0.000 361.0 0.00E+00 0.000 0.000 362.0 0.00E+00 0.000 0.000 363.0 0.00E+00 0.000 0.000 364.0 0.00E+00 0.000 0.000 365.0 0.00E+00 0.000 0.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/IPRONO3_MCMv32 ================================================ IPRONO3_MCMv32 !2-propyl nitrate T dependent cross-sections ((CH3)2CHONO2) ! !Taken from the MPI-Mainz Spectral Atlas: !http://www.atmosphere.mpg.de/enid/2295 ! !From IUPAC 2005 recommendation !http://iupac.pole-ether.fr/htdocs/datasheets/pdf//P17_i-C3H7ONO2+hv.pdf ! !Taken from: !1. J. M. Roberts and R. W. Fajer, Environ. Sci. Technol. 23, 945 (1989). !2. M. P. Turberg, D. M. Giolando, C. Tilt, T. Soper, S. Mason, M. Davies, P. Klingensmith, !and G. A. Takacs, J. Photochem. Photobiol. A51, 281 (1990). !3. K. C. Clemitshaw, J. Williams, O. V. Rattigan, D. E. Shallcross, K. S. Law, and R. A. !Cox, J. Photochem. Photobiol. A: Chemistry 102, 117 (1997). !4. R. K. Talukdar, J. B. Burkholder, M. Hunter, M. K. Giles, J. M. Roberts, and A. R. !Ravishankara, J. Chem. Soc. Faraday Trans. 93, 2797 (1997). ! !Quantum Yield ! !There are no data on either the products of photodissociation or the quantum yields. !However, the quantum yields for photodissociation of both ethyl and methyl nitrate to form !NO2 have been shown to be unity at 308 nm and 248 nm, see IUPAC datasheets for these RONO2 species ! !Equation: ln (sigma (T)) - ln (sigma (298 K)) = B(T-(298)) ! !wavelength (nm) sigma (298K) qy B(K-1) Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 185.0 1.79E-17 1.000 -0.009 188.0 1.81E-17 1.000 -0.009 190.0 1.79E-17 1.000 -0.009 195.0 1.61E-17 1.000 -0.009 200.0 1.26E-17 1.000 -0.009 205.0 8.67E-18 1.000 -0.009 210.0 4.98E-18 1.000 -0.009 215.0 2.47E-18 1.000 -0.009 220.0 1.25E-18 1.000 -0.009 225.0 6.20E-19 1.000 -0.009 230.0 3.40E-19 1.000 -0.009 235.0 1.80E-19 1.000 -0.009 240.0 1.10E-19 1.000 0.0028 245.0 7.00E-20 1.000 0.0027 250.0 5.40E-20 1.000 0.0025 255.0 4.90E-20 1.000 0.0025 260.0 4.60E-20 1.000 0.0026 265.0 4.30E-20 1.000 0.0028 270.0 3.90E-20 1.000 0.0031 275.0 3.40E-20 1.000 0.0033 280.0 2.80E-20 1.000 0.0036 285.0 2.20E-20 1.000 0.004 290.0 1.60E-20 1.000 0.0044 295.0 1.20E-20 1.000 0.0048 300.0 7.80E-21 1.000 0.0054 305.0 5.00E-21 1.000 0.0061 310.0 2.90E-21 1.000 0.0069 315.0 1.70E-21 1.000 0.0081 320.0 8.50E-22 1.000 0.0094 325.0 4.40E-22 1.000 0.0111 330.0 2.20E-22 1.000 0.0119 335.0 1.10E-22 1.000 0.014 340.0 5.30E-23 1.000 0.0139 345.0 1.80E-23 1.000 -0.009 350.0 8.00E-24 1.000 -0.009 355.0 2.90E-24 1.000 -0.009 360.0 1.80E-24 1.000 -0.009 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/ISOPNB_RACM2 ================================================ ISOPNB_RACM2 ! ISOPNB + hv = ISOP + NO2: j(Pj_sopnb) ; ! j(Pj_onitoh3) ~ MCMv3.3.1 tert-butyl nitrate (t-C4H9ONO2) : J<55>, FAC=0.333 ! Absorption x-section taken from Roberts and Fajer (1989) ! Quantum Yield (φ) = 1.00 ! Made by Azimeh Zare Jul2016 ! at mech.def file: cross sections should be divided by 3 due to the hydroxy group !(Browne et al., 2014 and Robeerts and Fajer (1989)) !Absorption cross-sections at 298 K Points ! With FAC, units are (cm^2/molecule) FAC=1 270.0 4.300E-20 1.000 275.0 4.000E-20 1.000 280.0 3.700E-20 1.000 285.0 3.100E-20 1.000 290.0 2.600E-20 1.000 295.0 2.000E-20 1.000 300.0 1.500E-20 1.000 305.0 1.000E-20 1.000 310.0 7.000E-21 1.000 315.0 4.500E-21 1.000 320.0 2.700E-21 1.000 325.0 1.500E-21 1.000 330.0 8.600E-22 1.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/ISOPND_RACM2 ================================================ ISOPND_RACM2 ! ISOPND + hv = ISOP + NO2: j(Pj_isopnd) ; ! j(Pj_onit1) ~ MCM n-propyl nitrate (n-C3H7ONO2) : J<53> ! Absorption x-section taken from IUPAC recommended ! Quantum Yield (φ) = 1.00 IUPAC recommended ! Made by Azimeh Zare Jul2016 !Absorption cross-sections at 298 K Points ! With FAC, units are (cm^2/molecule) FAC=1.0 185.0 1.810E-17 1.000 190.0 1.800E-17 1.000 195.0 1.600E-17 1.000 200.0 1.260E-17 1.000 205.0 0.855E-17 1.000 210.0 0.489E-17 1.000 215.0 0.244E-17 1.000 220.0 0.105E-17 1.000 225.0 0.050E-17 1.000 230.0 0.027E-17 1.000 235.0 0.015E-17 1.000 240.0 8.900E-20 1.000 245.0 6.000E-20 1.000 250.0 4.800E-20 1.000 255.0 4.400E-20 1.000 260.0 4.000E-20 1.000 265.0 3.600E-20 1.000 270.0 3.200E-20 1.000 275.0 2.800E-20 1.000 280.0 2.300E-20 1.000 285.0 1.800E-20 1.000 290.0 1.300E-20 1.000 295.0 0.950E-20 1.000 300.0 0.570E-20 1.000 305.0 0.340E-20 1.000 310.0 0.190E-20 1.000 315.0 0.100E-20 1.000 320.0 0.053E-20 1.000 325.0 0.031E-20 1.000 330.0 0.022E-20 1.000 335.0 0.018E-20 1.000 340.0 0.016E-20 1.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/ISPD ================================================ ISPD ! ISPD photolysis = average of IUPAC MACR and MVK ! Supplied by Greg Yarwood from CAMx (July 17, 2013) ! 1st column is wavelength ! 2nd column is absorption cross-section and 3rd column is QY Points (assumed) ! With FAC, units are (cm^2/molecule) FAC=1.0 280.0 1.170E-20 0.05 281.0 1.250E-20 0.05 282.0 1.340E-20 0.05 283.0 1.430E-20 0.05 284.0 1.525E-20 0.05 285.0 1.630E-20 0.05 286.0 1.735E-20 0.05 287.0 1.850E-20 0.05 288.0 1.970E-20 0.05 289.0 2.095E-20 0.05 290.0 2.230E-20 0.05 291.0 2.355E-20 0.05 292.0 2.475E-20 0.05 293.0 2.605E-20 0.05 294.0 2.725E-20 0.05 295.0 2.880E-20 0.05 296.0 3.045E-20 0.05 297.0 3.190E-20 0.05 298.0 3.345E-20 0.05 299.0 3.480E-20 0.05 300.0 3.655E-20 0.05 301.0 3.825E-20 0.05 302.0 3.980E-20 0.05 303.0 4.130E-20 0.05 304.0 4.275E-20 0.05 305.0 4.425E-20 0.05 306.0 4.610E-20 0.05 307.0 4.770E-20 0.05 308.0 4.920E-20 0.05 309.0 5.055E-20 0.05 310.0 5.180E-20 0.05 311.0 5.355E-20 0.05 312.0 5.540E-20 0.05 313.0 5.685E-20 0.05 314.0 5.815E-20 0.05 315.0 5.920E-20 0.05 316.0 6.075E-20 0.05 317.0 6.230E-20 0.05 318.0 6.365E-20 0.05 319.0 6.455E-20 0.05 320.0 6.485E-20 0.05 321.0 6.470E-20 0.05 322.0 6.520E-20 0.05 323.0 6.595E-20 0.05 324.0 6.730E-20 0.05 325.0 6.845E-20 0.05 326.0 6.875E-20 0.05 327.0 6.885E-20 0.05 328.0 6.995E-20 0.05 329.0 7.150E-20 0.05 330.0 7.215E-20 0.05 331.0 7.230E-20 0.05 332.0 7.145E-20 0.05 333.0 6.935E-20 0.05 334.0 6.725E-20 0.05 335.0 6.510E-20 0.05 336.0 6.410E-20 0.05 337.0 6.475E-20 0.05 338.0 6.470E-20 0.05 339.0 6.420E-20 0.05 340.0 6.340E-20 0.05 341.0 6.220E-20 0.05 342.0 6.165E-20 0.05 343.0 6.465E-20 0.05 344.0 6.545E-20 0.05 345.0 6.380E-20 0.05 346.0 6.125E-20 0.05 347.0 5.855E-20 0.05 348.0 5.495E-20 0.05 349.0 5.010E-20 0.05 350.0 4.680E-20 0.05 351.0 4.395E-20 0.05 352.0 4.305E-20 0.05 353.0 4.440E-20 0.05 354.0 4.315E-20 0.05 355.0 4.145E-20 0.05 356.0 3.825E-20 0.05 357.0 3.735E-20 0.05 358.0 3.675E-20 0.05 359.0 3.850E-20 0.05 360.0 4.365E-20 0.05 361.0 3.940E-20 0.05 362.0 3.550E-20 0.05 363.0 3.110E-20 0.05 364.0 2.985E-20 0.05 365.0 2.680E-20 0.05 366.0 2.345E-20 0.05 367.0 2.060E-20 0.05 368.0 1.800E-20 0.05 369.0 1.660E-20 0.05 370.0 1.650E-20 0.05 371.0 1.705E-20 0.05 372.0 1.555E-20 0.05 373.0 1.455E-20 0.05 374.0 1.235E-20 0.05 375.0 1.144E-20 0.05 376.0 1.130E-20 0.05 377.0 1.155E-20 0.05 378.0 1.275E-20 0.05 379.0 1.690E-20 0.05 380.0 1.175E-20 0.05 381.0 9.825E-21 0.05 382.0 7.335E-21 0.05 383.0 6.670E-21 0.05 384.0 6.465E-21 0.05 385.0 5.440E-21 0.05 386.0 4.415E-21 0.05 387.0 3.695E-21 0.05 388.0 3.140E-21 0.05 389.0 2.785E-21 0.05 390.0 2.455E-21 0.05 391.0 2.330E-21 0.05 392.0 2.260E-21 0.05 393.0 2.140E-21 0.05 394.0 1.950E-21 0.05 395.0 1.650E-21 0.05 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/KETONE_RADM88 ================================================ KETONE_RADM88 ! Methyl Ethyl Ketone (KETONE) ! CH3COC2H5 + hv -> ACO3 + ETH ! Abs CS from Calvert and Pitts [1966]; ! QY from Gardner et al. [1984] ! format: wl, abs_cs, qy Beginning ! With FAC, units are (cm^2/molecule) FAC=1.0 277.778 6.000E-20 7.655E-02 281.690 5.800E-20 7.655E-02 285.714 5.500E-20 7.655E-02 289.855 5.100E-20 7.655E-02 294.118 4.100E-20 7.655E-02 298.500 3.200E-20 7.655E-02 302.500 3.000E-20 7.655E-02 303.500 2.800E-20 7.655E-02 304.500 2.500E-20 7.655E-02 305.500 2.300E-20 7.655E-02 306.500 2.100E-20 7.655E-02 307.500 1.900E-20 7.655E-02 308.500 1.700E-20 7.655E-02 309.500 1.500E-20 7.655E-02 310.500 1.400E-20 7.655E-02 311.500 1.200E-20 7.655E-02 312.500 1.100E-20 7.655E-02 313.500 1.000E-20 7.655E-02 314.500 7.800E-21 7.655E-02 317.500 3.900E-21 7.655E-02 322.500 1.800E-21 7.655E-02 327.500 0.000E+00 7.655E-02 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/KETONE_SAPRC99 ================================================ KETONE ! Methyl Ethyl Ketone Absorption Cross Sections ! SAPRC-99 Photolysis data. Supplied by William P. L. Carter. ! Created from PhotDat.xls on 29-Jan-2000 10:07 Points (the mechanism was evaluated assuming this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 198.5 3.950E-19 1.000 199.0 1.610E-19 1.000 199.5 7.750E-20 1.000 200.0 3.760E-20 1.000 200.5 2.510E-20 1.000 201.0 1.830E-20 1.000 201.5 1.360E-20 1.000 202.0 1.160E-20 1.000 202.5 8.970E-21 1.000 203.0 4.620E-21 1.000 203.5 3.180E-21 1.000 204.0 2.420E-21 1.000 204.5 2.010E-21 1.000 205.0 1.770E-21 1.000 205.5 1.640E-21 1.000 206.0 1.540E-21 1.000 206.5 1.520E-21 1.000 207.0 1.540E-21 1.000 207.5 1.620E-21 1.000 208.0 1.640E-21 1.000 208.5 1.600E-21 1.000 209.0 1.570E-21 1.000 209.5 1.490E-21 1.000 210.0 1.470E-21 1.000 210.5 1.520E-21 1.000 211.0 1.500E-21 1.000 211.5 1.620E-21 1.000 212.0 1.810E-21 1.000 212.5 2.100E-21 1.000 213.0 2.230E-21 1.000 213.5 2.060E-21 1.000 214.0 1.690E-21 1.000 214.5 1.490E-21 1.000 215.0 1.420E-21 1.000 215.5 1.420E-21 1.000 216.0 1.420E-21 1.000 216.5 1.480E-21 1.000 217.0 1.480E-21 1.000 217.5 1.530E-21 1.000 218.0 1.560E-21 1.000 218.5 1.670E-21 1.000 219.0 1.680E-21 1.000 219.5 1.780E-21 1.000 220.0 1.850E-21 1.000 220.5 1.920E-21 1.000 221.0 2.010E-21 1.000 221.5 2.110E-21 1.000 222.0 2.230E-21 1.000 222.5 2.330E-21 1.000 223.0 2.480E-21 1.000 223.5 2.600E-21 1.000 224.0 2.740E-21 1.000 224.5 2.850E-21 1.000 225.0 3.040E-21 1.000 225.5 3.150E-21 1.000 226.0 3.330E-21 1.000 226.5 3.550E-21 1.000 227.0 3.730E-21 1.000 227.5 3.930E-21 1.000 228.0 4.110E-21 1.000 228.5 4.340E-21 1.000 229.0 4.560E-21 1.000 229.5 4.750E-21 1.000 230.0 5.010E-21 1.000 230.5 5.270E-21 1.000 231.0 5.530E-21 1.000 231.5 5.830E-21 1.000 232.0 6.150E-21 1.000 232.5 6.450E-21 1.000 233.0 6.730E-21 1.000 233.5 7.020E-21 1.000 234.0 7.420E-21 1.000 234.5 7.830E-21 1.000 235.0 8.110E-21 1.000 235.5 8.450E-21 1.000 236.0 8.820E-21 1.000 236.5 9.210E-21 1.000 237.0 9.650E-21 1.000 237.5 1.000E-20 1.000 238.0 1.050E-20 1.000 238.5 1.100E-20 1.000 239.0 1.150E-20 1.000 239.5 1.200E-20 1.000 240.0 1.230E-20 1.000 240.5 1.280E-20 1.000 241.0 1.320E-20 1.000 241.5 1.380E-20 1.000 242.0 1.440E-20 1.000 242.5 1.500E-20 1.000 243.0 1.570E-20 1.000 243.5 1.630E-20 1.000 244.0 1.680E-20 1.000 244.5 1.750E-20 1.000 245.0 1.810E-20 1.000 245.5 1.880E-20 1.000 246.0 1.960E-20 1.000 246.5 2.030E-20 1.000 247.0 2.110E-20 1.000 247.5 2.190E-20 1.000 248.0 2.250E-20 1.000 248.5 2.330E-20 1.000 249.0 2.400E-20 1.000 249.5 2.480E-20 1.000 250.0 2.560E-20 1.000 250.5 2.640E-20 1.000 251.0 2.730E-20 1.000 251.5 2.810E-20 1.000 252.0 2.880E-20 1.000 252.5 2.980E-20 1.000 253.0 3.070E-20 1.000 253.5 3.160E-20 1.000 254.0 3.250E-20 1.000 254.5 3.340E-20 1.000 255.0 3.430E-20 1.000 255.5 3.510E-20 1.000 256.0 3.590E-20 1.000 256.5 3.670E-20 1.000 257.0 3.750E-20 1.000 257.5 3.840E-20 1.000 258.0 3.940E-20 1.000 258.5 4.030E-20 1.000 259.0 4.130E-20 1.000 259.5 4.220E-20 1.000 260.0 4.280E-20 1.000 260.5 4.330E-20 1.000 261.0 4.410E-20 1.000 261.5 4.490E-20 1.000 262.0 4.570E-20 1.000 262.5 4.650E-20 1.000 263.0 4.720E-20 1.000 263.5 4.780E-20 1.000 264.0 4.850E-20 1.000 264.5 4.920E-20 1.000 265.0 4.990E-20 1.000 265.5 5.040E-20 1.000 266.0 5.120E-20 1.000 266.5 5.220E-20 1.000 267.0 5.280E-20 1.000 267.5 5.340E-20 1.000 268.0 5.410E-20 1.000 268.5 5.460E-20 1.000 269.0 5.510E-20 1.000 269.5 5.550E-20 1.000 270.0 5.590E-20 1.000 270.5 5.630E-20 1.000 271.0 5.660E-20 1.000 271.5 5.700E-20 1.000 272.0 5.740E-20 1.000 272.5 5.780E-20 1.000 273.0 5.810E-20 1.000 273.5 5.860E-20 1.000 274.0 5.900E-20 1.000 274.5 5.930E-20 1.000 275.0 5.960E-20 1.000 275.5 5.970E-20 1.000 276.0 5.980E-20 1.000 276.5 5.980E-20 1.000 277.0 5.990E-20 1.000 277.5 5.990E-20 1.000 278.0 5.980E-20 1.000 278.5 5.960E-20 1.000 279.0 5.960E-20 1.000 279.5 5.950E-20 1.000 280.0 5.940E-20 1.000 280.5 5.920E-20 1.000 281.0 5.900E-20 1.000 281.5 5.880E-20 1.000 282.0 5.860E-20 1.000 282.5 5.830E-20 1.000 283.0 5.790E-20 1.000 283.5 5.750E-20 1.000 284.0 5.710E-20 1.000 284.5 5.670E-20 1.000 285.0 5.610E-20 1.000 285.5 5.560E-20 1.000 286.0 5.510E-20 1.000 286.5 5.450E-20 1.000 287.0 5.410E-20 1.000 287.5 5.370E-20 1.000 288.0 5.330E-20 1.000 288.5 5.270E-20 1.000 289.0 5.210E-20 1.000 289.5 5.150E-20 1.000 290.0 5.080E-20 1.000 290.5 4.990E-20 1.000 291.0 4.890E-20 1.000 291.5 4.820E-20 1.000 292.0 4.730E-20 1.000 292.5 4.620E-20 1.000 293.0 4.530E-20 1.000 293.5 4.410E-20 1.000 294.0 4.320E-20 1.000 294.5 4.230E-20 1.000 295.0 4.150E-20 1.000 295.5 4.110E-20 1.000 296.0 4.010E-20 1.000 296.5 3.940E-20 1.000 297.0 3.880E-20 1.000 297.5 3.770E-20 1.000 298.0 3.690E-20 1.000 298.5 3.630E-20 1.000 299.0 3.540E-20 1.000 299.5 3.460E-20 1.000 300.0 3.360E-20 1.000 300.5 3.240E-20 1.000 301.0 3.160E-20 1.000 301.5 3.060E-20 1.000 302.0 2.950E-20 1.000 302.5 2.820E-20 1.000 303.0 2.700E-20 1.000 303.5 2.590E-20 1.000 304.0 2.490E-20 1.000 304.5 2.420E-20 1.000 305.0 2.340E-20 1.000 305.5 2.280E-20 1.000 306.0 2.190E-20 1.000 306.5 2.110E-20 1.000 307.0 2.040E-20 1.000 307.5 1.930E-20 1.000 308.0 1.880E-20 1.000 308.5 1.800E-20 1.000 309.0 1.730E-20 1.000 309.5 1.660E-20 1.000 310.0 1.580E-20 1.000 310.5 1.480E-20 1.000 311.0 1.420E-20 1.000 311.5 1.340E-20 1.000 312.0 1.260E-20 1.000 312.5 1.170E-20 1.000 313.0 1.130E-20 1.000 313.5 1.080E-20 1.000 314.0 1.040E-20 1.000 314.5 9.690E-21 1.000 315.0 8.910E-21 1.000 315.5 8.610E-21 1.000 316.0 7.880E-21 1.000 316.5 7.250E-21 1.000 317.0 6.920E-21 1.000 317.5 6.430E-21 1.000 318.0 6.070E-21 1.000 318.5 5.640E-21 1.000 319.0 5.190E-21 1.000 319.5 4.660E-21 1.000 320.0 4.360E-21 1.000 320.5 3.950E-21 1.000 321.0 3.640E-21 1.000 321.5 3.380E-21 1.000 322.0 3.170E-21 1.000 322.5 2.800E-21 1.000 323.0 2.620E-21 1.000 323.5 2.290E-21 1.000 324.0 2.130E-21 1.000 324.5 1.930E-21 1.000 325.0 1.700E-21 1.000 325.5 1.580E-21 1.000 326.0 1.480E-21 1.000 326.5 1.240E-21 1.000 327.0 1.200E-21 1.000 327.5 1.040E-21 1.000 328.0 9.510E-22 1.000 328.5 8.440E-22 1.000 329.0 7.260E-22 1.000 329.5 6.700E-22 1.000 330.0 6.080E-22 1.000 330.5 5.150E-22 1.000 331.0 4.560E-22 1.000 331.5 4.130E-22 1.000 332.0 3.560E-22 1.000 332.5 3.300E-22 1.000 333.0 2.970E-22 1.000 333.5 2.670E-22 1.000 334.0 2.460E-22 1.000 334.5 2.210E-22 1.000 335.0 1.930E-22 1.000 335.5 1.560E-22 1.000 336.0 1.470E-22 1.000 336.5 1.370E-22 1.000 337.0 1.270E-22 1.000 337.5 1.190E-22 1.000 338.0 1.090E-22 1.000 338.5 1.010E-22 1.000 339.0 9.090E-23 1.000 339.5 8.220E-23 1.000 340.0 7.660E-23 1.000 340.5 7.430E-23 1.000 341.0 6.830E-23 1.000 341.5 6.720E-23 1.000 342.0 6.040E-23 1.000 342.5 4.780E-23 1.000 343.0 0.000E+00 1.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/KET_IUPAC10 ================================================ KET_IUPAC10 ! j(KET) IUPAC(2010) CH3COC2H5 ! KET = products ! From IUPAC Subcommittee on Gas Kinetic Data Evaluation ! Data Sheet P8, updated 5th Dec, 2005 ! Use quantum yield from ACET !These are point values Begining (the mechanism evaluated with this format) !WL(nm) XSEC(cm2) QY FAC=1.0 280.0 5.740E-20 0.600 281.0 5.720E-20 0.582 282.0 5.680E-20 0.563 283.0 5.620E-20 0.544 284.0 5.540E-20 0.526 285.0 5.440E-20 0.507 286.0 5.350E-20 0.489 287.0 5.260E-20 0.471 288.0 5.170E-20 0.453 289.0 5.060E-20 0.436 290.0 4.940E-20 0.419 291.0 4.780E-20 0.402 292.0 4.600E-20 0.385 293.0 4.420E-20 0.370 294.0 4.240E-20 0.354 295.0 4.080E-20 0.339 296.0 3.930E-20 0.324 297.0 3.790E-20 0.310 298.0 3.650E-20 0.296 299.0 3.480E-20 0.283 300.0 3.300E-20 0.270 301.0 3.100E-20 0.258 302.0 2.890E-20 0.246 303.0 2.690E-20 0.224 304.0 2.500E-20 0.195 305.0 2.330E-20 0.170 306.0 2.170E-20 0.147 307.0 2.020E-20 0.127 308.0 1.880E-20 0.111 309.0 1.730E-20 0.096 310.0 1.580E-20 0.084 311.0 1.420E-20 0.073 312.0 1.280E-20 0.064 313.0 1.140E-20 0.056 314.0 1.010E-20 0.050 315.0 8.960E-21 0.044 316.0 7.940E-21 0.039 317.0 6.970E-21 0.035 318.0 6.110E-21 0.031 319.0 5.310E-21 0.028 320.0 4.570E-21 0.025 321.0 3.890E-21 0.023 322.0 3.280E-21 0.021 323.0 2.760E-21 0.019 324.0 2.290E-21 0.017 325.0 1.890E-21 0.016 326.0 1.560E-21 0.014 327.0 1.290E-21 0.013 328.0 1.050E-21 0.012 329.0 8.500E-22 0.011 330.0 6.700E-22 0.010 331.0 5.400E-22 0.009 332.0 4.200E-22 0.009 333.0 3.300E-22 0.008 334.0 2.500E-22 0.007 335.0 2.000E-22 0.007 336.0 1.400E-22 0.006 337.0 1.100E-22 0.006 338.0 8.000E-23 0.005 339.0 7.000E-23 0.005 340.0 5.000E-23 0.005 341.0 5.000E-23 0.004 342.0 3.000E-23 0.004 343.0 3.000E-23 0.004 344.0 2.000E-23 0.004 345.0 1.000E-23 0.003 346.0 1.000E-23 0.003 347.0 0.000E+00 0.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/KET_JGR19 ================================================ KET_JGR19 ! KET = 1.5*ETHP + 0.5*ACO3 + 0.5*CO ! Absorption x-section composition of three ketobe from Brewer et al., 2019 ! Brewer,J.F. Papanastasiou,D.K.,Burkholder,J.B.,Fischer,E.V.,Ren,Y.,Mellouki,A.,Ravishankara,A.R.(2019). ! Atmospheric photolysis of methyl ethyl, diethyl, and propyl ethylketones: Temperature-dependent ! UV absorption cross sections. Journal of Geophysical Research: Atmospheres,124, 5906-5918. ! https://doi.org/10.1029/2019JD030391 ! Quantum yield from Raben and Moortgat, 1996 ! 1) W.H. Raben, G.K. Moortgat, in: J. Baker (Ed.), Progress and Problems in Atmospheric Chemistry, ! World Scientific, Singapore, 1996, pp. 318-373 ! 2) IUPAC datasheet P8 (5th December 2005) ! Supplied by Drs. William Stockwell and Emily Saunders, reformatted by Dr. Golam Sarwar to make it compatible with CMAQ Points ! With FAC, units are (cm^2/molecule) FAC=1.0 200 1.06E-19 0.34 201 8.77E-20 0.34 202 3.38E-20 0.34 203 1.00E-20 0.34 204 4.43E-21 0.34 205 2.54E-21 0.34 206 1.46E-21 0.34 207 1.01E-21 0.34 208 8.96E-22 0.34 209 8.53E-22 0.34 210 8.44E-22 0.34 211 8.57E-22 0.34 212 8.78E-22 0.34 213 9.05E-22 0.34 214 9.45E-22 0.34 215 1.01E-21 0.34 216 1.06E-21 0.34 217 1.12E-21 0.34 218 1.20E-21 0.34 219 1.29E-21 0.34 220 1.40E-21 0.34 221 1.52E-21 0.34 222 1.68E-21 0.34 223 1.83E-21 0.34 224 2.02E-21 0.34 225 2.23E-21 0.34 226 2.47E-21 0.34 227 2.74E-21 0.34 228 3.04E-21 0.34 229 3.38E-21 0.34 230 3.76E-21 0.34 231 4.17E-21 0.34 232 4.63E-21 0.34 233 5.14E-21 0.34 234 5.69E-21 0.34 235 6.30E-21 0.34 236 6.97E-21 0.34 237 7.68E-21 0.34 238 8.46E-21 0.34 239 9.31E-21 0.34 240 1.02E-20 0.34 241 1.12E-20 0.34 242 1.22E-20 0.34 243 1.33E-20 0.34 244 1.45E-20 0.34 245 1.58E-20 0.34 246 1.71E-20 0.34 247 1.84E-20 0.34 248 1.98E-20 0.34 249 2.13E-20 0.34 250 2.29E-20 0.34 251 2.46E-20 0.34 252 2.62E-20 0.34 253 2.79E-20 0.34 254 2.96E-20 0.34 255 3.14E-20 0.34 256 3.33E-20 0.34 257 3.52E-20 0.34 258 3.71E-20 0.34 259 3.89E-20 0.34 260 4.07E-20 0.34 261 4.25E-20 0.34 262 4.43E-20 0.34 263 4.62E-20 0.34 264 4.81E-20 0.34 265 4.98E-20 0.34 266 5.14E-20 0.34 267 5.29E-20 0.34 268 5.43E-20 0.34 269 5.57E-20 0.34 270 5.71E-20 0.34 271 5.84E-20 0.34 272 5.95E-20 0.34 273 6.05E-20 0.34 274 6.12E-20 0.34 275 6.19E-20 0.34 276 6.26E-20 0.34 277 6.31E-20 0.34 278 6.34E-20 0.34 279 6.34E-20 0.34 280 6.33E-20 0.34 281 6.31E-20 0.34 282 6.28E-20 0.34 283 6.25E-20 0.34 284 6.21E-20 0.34 285 6.15E-20 0.34 286 6.05E-20 0.34 287 5.93E-20 0.34 288 5.78E-20 0.34 289 5.63E-20 0.34 290 5.49E-20 0.34 291 5.37E-20 0.34 292 5.24E-20 0.34 293 5.10E-20 0.34 294 4.93E-20 0.34 295 4.72E-20 0.34 296 4.49E-20 0.34 297 4.25E-20 0.34 298 4.03E-20 0.34 299 3.83E-20 0.34 300 3.65E-20 0.34 301 3.47E-20 0.34 302 3.30E-20 0.34 303 3.10E-20 0.34 304 2.88E-20 0.34 305 2.65E-20 0.34 306 2.41E-20 0.34 307 2.19E-20 0.34 308 1.99E-20 0.34 309 1.81E-20 0.34 310 1.65E-20 0.34 311 1.51E-20 0.34 312 1.38E-20 0.34 313 1.24E-20 0.34 314 1.11E-20 0.34 315 9.70E-21 0.34 316 8.38E-21 0.34 317 7.17E-21 0.34 318 6.09E-21 0.34 319 5.16E-21 0.34 320 4.37E-21 0.34 321 3.68E-21 0.34 322 3.08E-21 0.34 323 2.56E-21 0.34 324 2.13E-21 0.34 325 1.76E-21 0.34 326 1.44E-21 0.34 327 1.18E-21 0.34 328 9.62E-22 0.34 329 7.85E-22 0.34 330 6.31E-22 0.34 331 5.13E-22 0.34 332 4.13E-22 0.34 333 3.33E-22 0.34 334 2.70E-22 0.34 335 2.20E-22 0.34 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/KET_RACM2 ================================================ KET_RACM2 ! KET = ETHP + ACO3 ! Absorption x-section from Yujing and Mellouki, 2000 ! Quantum yield from Raben and Moortgat, 1996 ! Supplied by Dr. Wendy Goliff, reformatted by Dr. Golam Sarwar to make it compatible with CMAQ Points ! With FAC, units are (cm^2/molecule) FAC=1.0 186.1 0.000E+00 1.000 187.8 0.000E+00 1.000 189.6 0.000E+00 1.000 191.4 0.000E+00 1.000 193.3 0.000E+00 1.000 195.2 0.000E+00 1.000 197.1 0.000E+00 1.000 199.0 0.000E+00 1.000 201.0 0.000E+00 1.000 203.1 0.000E+00 1.000 205.2 0.000E+00 1.000 207.3 0.000E+00 1.000 209.4 0.000E+00 1.000 211.7 0.000E+00 1.000 213.9 0.000E+00 1.000 216.2 0.000E+00 1.000 218.6 0.000E+00 1.000 221.0 0.000E+00 1.000 223.5 0.000E+00 1.000 226.0 0.000E+00 1.000 228.6 0.000E+00 1.000 231.3 0.000E+00 1.000 234.0 0.000E+00 1.000 236.7 0.000E+00 1.000 239.6 0.113E-19 1.000 242.5 0.144E-19 1.000 245.4 0.179E-19 1.000 248.5 0.221E-19 1.000 251.6 0.265E-19 1.000 254.8 0.320E-19 1.000 258.2 0.367E-19 1.000 261.5 0.422E-19 1.000 265.0 0.465E-19 1.000 268.5 0.511E-19 1.000 272.2 0.533E-19 1.000 275.9 0.561E-19 1.000 279.8 0.562E-19 1.000 283.7 0.544E-19 1.000 287.8 0.507E-19 1.000 292.0 0.457E-19 1.000 296.3 0.389E-19 1.000 300.5 0.318E-19 1.000 303.0 0.269E-19 1.000 304.0 0.250E-19 1.000 305.0 0.232E-19 1.000 306.0 0.217E-19 1.000 307.0 0.202E-19 1.000 308.0 0.182E-19 1.000 309.0 0.173E-19 1.000 310.0 0.158E-19 1.000 311.0 0.143E-19 1.000 312.0 0.128E-19 1.000 313.0 0.114E-19 1.000 314.0 0.101E-19 1.000 316.0 0.790E-20 1.000 320.0 0.439E-20 1.000 325.0 0.176E-20 1.000 330.0 0.610E-21 1.000 335.0 0.160E-21 1.000 340.0 0.000E+00 1.000 345.0 0.000E+00 1.000 350.0 0.000E+00 1.000 355.0 0.000E+00 1.000 360.0 0.000E+00 1.000 365.0 0.000E+00 1.000 370.0 0.000E+00 1.000 375.0 0.000E+00 1.000 380.0 0.000E+00 1.000 385.0 0.000E+00 1.000 390.0 0.000E+00 1.000 395.0 0.000E+00 1.000 400.0 0.000E+00 1.000 405.0 0.000E+00 1.000 410.0 0.000E+00 1.000 415.0 0.000E+00 1.000 420.0 0.000E+00 1.000 425.0 0.000E+00 1.000 430.0 0.000E+00 1.000 435.0 0.000E+00 1.000 440.0 0.000E+00 1.000 445.0 0.000E+00 1.000 450.0 0.000E+00 1.000 455.0 0.000E+00 1.000 460.0 0.000E+00 1.000 465.0 0.000E+00 1.000 470.0 0.000E+00 1.000 475.0 0.000E+00 1.000 480.0 0.000E+00 1.000 485.0 0.000E+00 1.000 490.0 0.000E+00 1.000 495.0 0.000E+00 1.000 500.0 0.000E+00 1.000 505.0 0.000E+00 1.000 510.0 0.000E+00 1.000 515.0 0.000E+00 1.000 520.0 0.000E+00 1.000 525.0 0.000E+00 1.000 530.0 0.000E+00 1.000 535.0 0.000E+00 1.000 540.0 0.000E+00 1.000 545.0 0.000E+00 1.000 550.0 0.000E+00 1.000 555.0 0.000E+00 1.000 560.0 0.000E+00 1.000 565.0 0.000E+00 1.000 570.0 0.000E+00 1.000 575.0 0.000E+00 1.000 580.0 0.000E+00 1.000 585.0 0.000E+00 1.000 590.0 0.000E+00 1.000 595.0 0.000E+00 1.000 600.0 0.000E+00 1.000 605.0 0.000E+00 1.000 610.0 0.000E+00 1.000 615.0 0.000E+00 1.000 620.0 0.000E+00 1.000 625.0 0.000E+00 1.000 630.0 0.000E+00 1.000 635.0 0.000E+00 1.000 640.0 0.000E+00 1.000 644.8 0.000E+00 1.000 651.0 0.000E+00 1.000 660.0 0.000E+00 1.000 670.0 0.000E+00 1.000 680.0 0.000E+00 1.000 690.0 0.000E+00 1.000 700.0 0.000E+00 1.000 710.0 0.000E+00 1.000 720.0 0.000E+00 1.000 730.0 0.000E+00 1.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/MACR-06 ================================================ MACR-06 ! Methacrolein total photolysis ! Absorption cross sections from IUPAC Subcommittee on Gas Kinetic Data Evaluatio ! Website: http://www.iupac-kinetic.ch.cam.ac.uk/. This datasheet updated: 16th M ! The quantum yields were derived using the pressure and wavelength-dependent ! expression given by IUPAC (2005) for MVK, with the total pressure adjusted so ! that the radical forming photolysis rates for the chamber experiments are the ! same as those that fit the chamber data. ! Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 250.0 2.070E-21 0.5670 251.0 1.940E-21 0.5370 252.0 1.870E-21 0.5080 253.0 1.800E-21 0.4810 254.0 1.780E-21 0.4550 255.0 1.770E-21 0.4310 256.0 1.800E-21 0.4080 257.0 1.800E-21 0.3860 258.0 1.860E-21 0.3650 259.0 1.930E-21 0.3460 260.0 2.010E-21 0.3270 261.0 2.110E-21 0.3100 262.0 2.240E-21 0.2930 263.0 2.410E-21 0.2780 264.0 2.630E-21 0.2630 265.0 2.830E-21 0.2490 266.0 3.050E-21 0.2350 267.0 3.330E-21 0.2230 268.0 3.630E-21 0.2110 269.0 3.980E-21 0.2000 270.0 4.360E-21 0.1890 271.0 4.790E-21 0.1790 272.0 5.200E-21 0.1690 273.0 5.670E-21 0.1600 274.0 6.160E-21 0.1520 275.0 6.730E-21 0.1430 276.0 7.320E-21 0.1360 277.0 7.930E-21 0.1290 278.0 8.630E-21 0.1220 279.0 9.360E-21 0.1150 280.0 1.010E-20 0.1090 281.0 1.090E-20 0.1030 282.0 1.180E-20 0.0980 283.0 1.260E-20 0.0920 284.0 1.350E-20 0.0870 285.0 1.450E-20 0.0830 286.0 1.560E-20 0.0780 287.0 1.670E-20 0.0740 288.0 1.790E-20 0.0700 289.0 1.900E-20 0.0660 290.0 2.030E-20 0.0630 291.0 2.160E-20 0.0600 292.0 2.280E-20 0.0560 293.0 2.400E-20 0.0530 294.0 2.520E-20 0.0500 295.0 2.680E-20 0.0480 296.0 2.850E-20 0.0450 297.0 2.990E-20 0.0430 298.0 3.130E-20 0.0400 299.0 3.260E-20 0.0380 300.0 3.440E-20 0.0360 301.0 3.610E-20 0.0340 302.0 3.760E-20 0.0320 303.0 3.910E-20 0.0310 304.0 4.040E-20 0.0290 305.0 4.190E-20 0.0280 306.0 4.400E-20 0.0260 307.0 4.580E-20 0.0250 308.0 4.710E-20 0.0230 309.0 4.810E-20 0.0220 310.0 4.920E-20 0.0210 311.0 5.130E-20 0.0200 312.0 5.350E-20 0.0190 313.0 5.500E-20 0.0180 314.0 5.610E-20 0.0170 315.0 5.700E-20 0.0160 316.0 5.870E-20 0.0150 317.0 6.040E-20 0.0140 318.0 6.190E-20 0.0130 319.0 6.280E-20 0.0130 320.0 6.270E-20 0.0120 321.0 6.180E-20 0.0110 322.0 6.210E-20 0.0110 323.0 6.340E-20 0.0100 324.0 6.580E-20 0.0100 325.0 6.740E-20 0.0090 326.0 6.730E-20 0.0090 327.0 6.680E-20 0.0080 328.0 6.830E-20 0.0080 329.0 7.070E-20 0.0070 330.0 7.150E-20 0.0070 331.0 7.160E-20 0.0070 332.0 7.030E-20 0.0060 333.0 6.690E-20 0.0060 334.0 6.410E-20 0.0060 335.0 6.080E-20 0.0050 336.0 5.970E-20 0.0050 337.0 6.250E-20 0.0050 338.0 6.380E-20 0.0040 339.0 6.370E-20 0.0040 340.0 6.240E-20 0.0040 341.0 6.020E-20 0.0040 342.0 5.980E-20 0.0040 343.0 6.580E-20 0.0030 344.0 6.790E-20 0.0030 345.0 6.530E-20 0.0030 346.0 6.110E-20 0.0030 347.0 5.630E-20 0.0030 348.0 5.220E-20 0.0030 349.0 4.550E-20 0.0020 350.0 4.160E-20 0.0020 351.0 3.850E-20 0.0020 352.0 3.890E-20 0.0020 353.0 4.350E-20 0.0020 354.0 4.310E-20 0.0020 355.0 4.140E-20 0.0020 356.0 3.620E-20 0.0020 357.0 3.530E-20 0.0020 358.0 3.460E-20 0.0010 359.0 3.810E-20 0.0010 360.0 5.050E-20 0.0010 361.0 4.280E-20 0.0010 362.0 3.610E-20 0.0010 363.0 2.860E-20 0.0010 364.0 2.680E-20 0.0010 365.0 2.330E-20 0.0010 366.0 1.920E-20 0.0010 367.0 1.620E-20 0.0010 368.0 1.400E-20 0.0010 369.0 1.310E-20 0.0010 370.0 1.420E-20 0.0010 371.0 1.670E-20 0.0010 372.0 1.530E-20 0.0010 373.0 1.430E-20 0.0010 374.0 1.080E-20 0.0010 375.0 9.770E-21 0.0010 376.0 1.000E-20 0.0010 377.0 1.070E-20 0.0010 378.0 1.350E-20 0.0000 379.0 2.180E-20 0.0000 380.0 1.300E-20 0.0000 381.0 9.840E-21 0.0000 382.0 5.550E-21 0.0000 383.0 4.560E-21 0.0000 384.0 3.640E-21 0.0000 385.0 3.310E-21 0.0000 386.0 2.460E-21 0.0000 387.0 2.050E-21 0.0000 388.0 1.810E-21 0.0000 389.0 1.610E-21 0.0000 390.0 1.470E-21 0.0000 391.0 1.560E-21 0.0000 392.0 1.590E-21 0.0000 393.0 1.530E-21 0.0000 394.0 1.490E-21 0.0000 395.0 1.230E-21 0.0000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/MACRN_RACM2 ================================================ MACRN_RACM2 ! MACRN + hv = NO2 + HO2 + CO + HAC j(macrn) ! cross section based on Mller et al. 2014 (Fig.2) ! quantum yield based on Mller (2014). ! R2SMH (updated RACM2 at WRF-Chem) uses i-butyraldehyde cross sections recommended by Atkinson et al. (2006) for MACRN ! but Mller (2014) show large cross-section enhancements for MACRN and a near-unit quantum yield for these compounds. ! They assume a near-unit quantum yield for ethanal nitrate ! Made by Azimeh Zare Points (the mechanism evaluated with this format) ! With "FAC," units are (cm^2/molecule) FAC=1.0 255 14.10E-20 0.94 260 12.00E-20 0.94 265 11.10E-20 0.92 270 11.10E-20 0.9 275 11.70E-20 0.9 280 12.60E-20 0.9 285 13.10E-20 0.9 290 13.30E-20 0.9 295 13.50E-20 0.9 300 12.90E-20 0.9 305 12.50E-20 0.9 310 11.10E-20 0.9 315 10.60E-20 0.9 320 9.100E-20 0.9 325 8.800E-20 0.9 330 8.000E-20 0.9 335 6.500E-20 0.9 340 3.500E-20 0.9 345 0.000E+00 0.9 350 0.000E+00 0.9 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/MACR_06 ================================================ MACR-06 ! Methacrolein total photolysis ! Absorption cross sections from IUPAC Subcommittee on Gas Kinetic Data Evaluatio ! Website: http://www.iupac-kinetic.ch.cam.ac.uk/. This datasheet updated: 16th M ! The quantum yields were derived using the pressure and wavelength-dependent ! expression given by IUPAC (2005) for MVK, with the total pressure adjusted so ! that the radical forming photolysis rates for the chamber experiments are the ! same as those that fit the chamber data. ! Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 250.0 2.070E-21 0.5670 251.0 1.940E-21 0.5370 252.0 1.870E-21 0.5080 253.0 1.800E-21 0.4810 254.0 1.780E-21 0.4550 255.0 1.770E-21 0.4310 256.0 1.800E-21 0.4080 257.0 1.800E-21 0.3860 258.0 1.860E-21 0.3650 259.0 1.930E-21 0.3460 260.0 2.010E-21 0.3270 261.0 2.110E-21 0.3100 262.0 2.240E-21 0.2930 263.0 2.410E-21 0.2780 264.0 2.630E-21 0.2630 265.0 2.830E-21 0.2490 266.0 3.050E-21 0.2350 267.0 3.330E-21 0.2230 268.0 3.630E-21 0.2110 269.0 3.980E-21 0.2000 270.0 4.360E-21 0.1890 271.0 4.790E-21 0.1790 272.0 5.200E-21 0.1690 273.0 5.670E-21 0.1600 274.0 6.160E-21 0.1520 275.0 6.730E-21 0.1430 276.0 7.320E-21 0.1360 277.0 7.930E-21 0.1290 278.0 8.630E-21 0.1220 279.0 9.360E-21 0.1150 280.0 1.010E-20 0.1090 281.0 1.090E-20 0.1030 282.0 1.180E-20 0.0980 283.0 1.260E-20 0.0920 284.0 1.350E-20 0.0870 285.0 1.450E-20 0.0830 286.0 1.560E-20 0.0780 287.0 1.670E-20 0.0740 288.0 1.790E-20 0.0700 289.0 1.900E-20 0.0660 290.0 2.030E-20 0.0630 291.0 2.160E-20 0.0600 292.0 2.280E-20 0.0560 293.0 2.400E-20 0.0530 294.0 2.520E-20 0.0500 295.0 2.680E-20 0.0480 296.0 2.850E-20 0.0450 297.0 2.990E-20 0.0430 298.0 3.130E-20 0.0400 299.0 3.260E-20 0.0380 300.0 3.440E-20 0.0360 301.0 3.610E-20 0.0340 302.0 3.760E-20 0.0320 303.0 3.910E-20 0.0310 304.0 4.040E-20 0.0290 305.0 4.190E-20 0.0280 306.0 4.400E-20 0.0260 307.0 4.580E-20 0.0250 308.0 4.710E-20 0.0230 309.0 4.810E-20 0.0220 310.0 4.920E-20 0.0210 311.0 5.130E-20 0.0200 312.0 5.350E-20 0.0190 313.0 5.500E-20 0.0180 314.0 5.610E-20 0.0170 315.0 5.700E-20 0.0160 316.0 5.870E-20 0.0150 317.0 6.040E-20 0.0140 318.0 6.190E-20 0.0130 319.0 6.280E-20 0.0130 320.0 6.270E-20 0.0120 321.0 6.180E-20 0.0110 322.0 6.210E-20 0.0110 323.0 6.340E-20 0.0100 324.0 6.580E-20 0.0100 325.0 6.740E-20 0.0090 326.0 6.730E-20 0.0090 327.0 6.680E-20 0.0080 328.0 6.830E-20 0.0080 329.0 7.070E-20 0.0070 330.0 7.150E-20 0.0070 331.0 7.160E-20 0.0070 332.0 7.030E-20 0.0060 333.0 6.690E-20 0.0060 334.0 6.410E-20 0.0060 335.0 6.080E-20 0.0050 336.0 5.970E-20 0.0050 337.0 6.250E-20 0.0050 338.0 6.380E-20 0.0040 339.0 6.370E-20 0.0040 340.0 6.240E-20 0.0040 341.0 6.020E-20 0.0040 342.0 5.980E-20 0.0040 343.0 6.580E-20 0.0030 344.0 6.790E-20 0.0030 345.0 6.530E-20 0.0030 346.0 6.110E-20 0.0030 347.0 5.630E-20 0.0030 348.0 5.220E-20 0.0030 349.0 4.550E-20 0.0020 350.0 4.160E-20 0.0020 351.0 3.850E-20 0.0020 352.0 3.890E-20 0.0020 353.0 4.350E-20 0.0020 354.0 4.310E-20 0.0020 355.0 4.140E-20 0.0020 356.0 3.620E-20 0.0020 357.0 3.530E-20 0.0020 358.0 3.460E-20 0.0010 359.0 3.810E-20 0.0010 360.0 5.050E-20 0.0010 361.0 4.280E-20 0.0010 362.0 3.610E-20 0.0010 363.0 2.860E-20 0.0010 364.0 2.680E-20 0.0010 365.0 2.330E-20 0.0010 366.0 1.920E-20 0.0010 367.0 1.620E-20 0.0010 368.0 1.400E-20 0.0010 369.0 1.310E-20 0.0010 370.0 1.420E-20 0.0010 371.0 1.670E-20 0.0010 372.0 1.530E-20 0.0010 373.0 1.430E-20 0.0010 374.0 1.080E-20 0.0010 375.0 9.770E-21 0.0010 376.0 1.000E-20 0.0010 377.0 1.070E-20 0.0010 378.0 1.350E-20 0.0000 379.0 2.180E-20 0.0000 380.0 1.300E-20 0.0000 381.0 9.840E-21 0.0000 382.0 5.550E-21 0.0000 383.0 4.560E-21 0.0000 384.0 3.640E-21 0.0000 385.0 3.310E-21 0.0000 386.0 2.460E-21 0.0000 387.0 2.050E-21 0.0000 388.0 1.810E-21 0.0000 389.0 1.610E-21 0.0000 390.0 1.470E-21 0.0000 391.0 1.560E-21 0.0000 392.0 1.590E-21 0.0000 393.0 1.530E-21 0.0000 394.0 1.490E-21 0.0000 395.0 1.230E-21 0.0000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/MACR_A_MCMv32 ================================================ MACR_MCMv32 !Methacrolein CH2C(CH3)CHO photolysis (298K) sums the first and third channels ! MACR ---> H + CH2=C(CH3)CO (phi3) ! MACR ---> H3C=CH2 + HCO (phi1) !and neglects remaining channel ! ---> C3H6 +CO (phi2) ! !IUPAC 2002 Recommendation !http://iupac.pole-ether.fr/htdocs/datasheets/pdf/P9_CH2C(CH3)CHO+hv.pdf !Dated: May 2002 ! !Cross-Section ! T. Gierczak, J.B. Burkholder, R.K. Talukdar, A. Mellouki, S.B. Barone, ! and A.R. Ravishankara: Atmospheric fate of methyl vinyl ketone and ! methacrolein, J. Photochem. Photobiol. A: Chem. 110, 1-10 (1997) ! Taken from: ! MPI_Mainz Spectral Atlas (http://www.atmosphere.mpg.de/enid/2295) ! ! !Quantum Yields ! Very low total qy (< 0.05 IUPAC 2002 but it does not recommend a value.) ! ! Average of the optimised total QY of 0.0039 (Pinho et al, 2005) used from ! ! 1. Carter, 2000. Documentation of the SAPRC-99 ! chemical mechanism for VOC reactivity assessment. Final ! Report to California Air Resources Board Contract 92-329 ! and Contract 95-308, Air Pollution Research Center and ! College of Engineering Center for Environmental Research ! and Technology University of California Riverside, ! California. ! 2. Pinho et al., Atmos Env, 39(7), 1303-1322 (2005) ! 3. RADICAL, 2002. Final report on the EU fourth framework ! project evaluation of radical sources in atmospheric ! chemistry through chamber and laboratory studies, ! RADICAL. European Communities Report EUR ! 20254 EN, G.K. Moortgat (Coordinator), MPI Mainz, Germany ! !phi1 (CH3C=CH2 + HCO) = 1.95E-3 !phi3 (CH2=C(CH3)CO + H) = 1.95E-3 ! ! !T = 298 K, resolution = 1 nm !wvl(nm) XC(cm2)qy Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 250.0 2.07E-21 0.00390 251.0 1.94E-21 0.00390 252.0 1.87E-21 0.00390 253.0 1.80E-21 0.00390 254.0 1.78E-21 0.00390 255.0 1.77E-21 0.00390 256.0 1.80E-21 0.00390 257.0 1.80E-21 0.00390 258.0 1.86E-21 0.00390 259.0 1.93E-21 0.00390 260.0 2.01E-21 0.00390 261.0 2.11E-21 0.00390 262.0 2.24E-21 0.00390 263.0 2.41E-21 0.00390 264.0 2.63E-21 0.00390 265.0 2.83E-21 0.00390 266.0 3.05E-21 0.00390 267.0 3.33E-21 0.00390 268.0 3.63E-21 0.00390 269.0 3.98E-21 0.00390 270.0 4.36E-21 0.00390 271.0 4.79E-21 0.00390 272.0 5.20E-21 0.00390 273.0 5.67E-21 0.00390 274.0 6.16E-21 0.00390 275.0 6.73E-21 0.00390 276.0 7.32E-21 0.00390 277.0 7.93E-21 0.00390 278.0 8.63E-21 0.00390 279.0 9.36E-21 0.00390 280.0 1.01E-20 0.00390 281.0 1.09E-20 0.00390 282.0 1.18E-20 0.00390 283.0 1.26E-20 0.00390 284.0 1.35E-20 0.00390 285.0 1.45E-20 0.00390 286.0 1.56E-20 0.00390 287.0 1.67E-20 0.00390 288.0 1.79E-20 0.00390 289.0 1.90E-20 0.00390 290.0 2.03E-20 0.00390 291.0 2.16E-20 0.00390 292.0 2.28E-20 0.00390 293.0 2.40E-20 0.00390 294.0 2.52E-20 0.00390 295.0 2.68E-20 0.00390 296.0 2.85E-20 0.00390 297.0 2.99E-20 0.00390 298.0 3.13E-20 0.00390 299.0 3.26E-20 0.00390 300.0 3.44E-20 0.00390 301.0 3.61E-20 0.00390 302.0 3.76E-20 0.00390 303.0 3.91E-20 0.00390 304.0 4.04E-20 0.00390 305.0 4.19E-20 0.00390 306.0 4.40E-20 0.00390 307.0 4.58E-20 0.00390 308.0 4.71E-20 0.00390 309.0 4.81E-20 0.00390 310.0 4.92E-20 0.00390 311.0 5.13E-20 0.00390 312.0 5.35E-20 0.00390 313.0 5.50E-20 0.00390 314.0 5.61E-20 0.00390 315.0 5.70E-20 0.00390 316.0 5.87E-20 0.00390 317.0 6.04E-20 0.00390 318.0 6.19E-20 0.00390 319.0 6.28E-20 0.00390 320.0 6.27E-20 0.00390 321.0 6.18E-20 0.00390 322.0 6.21E-20 0.00390 323.0 6.34E-20 0.00390 324.0 6.58E-20 0.00390 325.0 6.74E-20 0.00390 326.0 6.73E-20 0.00390 327.0 6.68E-20 0.00390 328.0 6.83E-20 0.00390 329.0 7.07E-20 0.00390 330.0 7.15E-20 0.00390 331.0 7.16E-20 0.00390 332.0 7.03E-20 0.00390 333.0 6.69E-20 0.00390 334.0 6.41E-20 0.00390 335.0 6.08E-20 0.00390 336.0 5.97E-20 0.00390 337.0 6.25E-20 0.00390 338.0 6.38E-20 0.00390 339.0 6.37E-20 0.00390 340.0 6.24E-20 0.00390 341.0 6.02E-20 0.00390 342.0 5.98E-20 0.00390 343.0 6.58E-20 0.00390 344.0 6.79E-20 0.00390 345.0 6.53E-20 0.00390 346.0 6.11E-20 0.00390 347.0 5.63E-20 0.00390 348.0 5.22E-20 0.00390 349.0 4.55E-20 0.00390 350.0 4.16E-20 0.00390 351.0 3.85E-20 0.00390 352.0 3.89E-20 0.00390 353.0 4.35E-20 0.00390 354.0 4.31E-20 0.00390 355.0 4.14E-20 0.00390 356.0 3.62E-20 0.00390 357.0 3.53E-20 0.00390 358.0 3.46E-20 0.00390 359.0 3.81E-20 0.00390 360.0 5.05E-20 0.00390 361.0 4.28E-20 0.00390 362.0 3.61E-20 0.00390 363.0 2.86E-20 0.00390 364.0 2.68E-20 0.00390 365.0 2.33E-20 0.00390 366.0 1.92E-20 0.00390 367.0 1.62E-20 0.00390 368.0 1.40E-20 0.00390 369.0 1.31E-20 0.00390 370.0 1.42E-20 0.00390 371.0 1.67E-20 0.00390 372.0 1.53E-20 0.00390 373.0 1.43E-20 0.00390 374.0 1.08E-20 0.00390 375.0 9.77E-21 0.00390 376.0 1.00E-20 0.00390 377.0 1.07E-20 0.00390 378.0 1.35E-20 0.00390 379.0 2.18E-20 0.00390 380.0 1.30E-20 0.00390 381.0 9.84E-21 0.00390 382.0 5.55E-21 0.00390 383.0 4.56E-21 0.00390 384.0 3.64E-21 0.00390 385.0 3.31E-21 0.00390 386.0 2.46E-21 0.00390 387.0 2.05E-21 0.00390 388.0 1.81E-21 0.00390 389.0 1.61E-21 0.00390 390.0 1.47E-21 0.00390 391.0 1.56E-21 0.00390 392.0 1.59E-21 0.00390 393.0 1.53E-21 0.00390 394.0 1.49E-21 0.00390 395.0 1.23E-21 0.00390 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/MACR_B_MCMv32 ================================================ MACR_B_MCMv32 !Methacrolein CH2C(CH3)CHO photolysis (298K) sums the first and third channels ! MACR --->CH2=C(CH3)CO + H (phi3) !and neglects remaining channel ! ---> C3H6 +CO (phi2) ! !IUPAC 2002 Recommendation !http://iupac.pole-ether.fr/htdocs/datasheets/pdf/P9_CH2C(CH3)CHO+hv.pdf !Dated: May 2002 ! !Cross-Section ! T. Gierczak, J.B. Burkholder, R.K. Talukdar, A. Mellouki, S.B. Barone, ! and A.R. Ravishankara: Atmospheric fate of methyl vinyl ketone and ! methacrolein, J. Photochem. Photobiol. A: Chem. 110, 1-10 (1997) ! Taken from: ! MPI_Mainz Spectral Atlas (http://www.atmosphere.mpg.de/enid/2295) ! ! !Quantum Yields ! Very low total qy (< 0.05 IUPAC 2002 but it does not recommend a value.) ! ! Average of the optimised total QY of 0.0039 (Pinho et al, 2005) used from ! ! 1. Carter, 2000. Documentation of the SAPRC-99 ! chemical mechanism for VOC reactivity assessment. Final ! Report to California Air Resources Board Contract 92-329 ! and Contract 95-308, Air Pollution Research Center and ! College of Engineering Center for Environmental Research ! and Technology University of California Riverside, ! California. ! 2. Pinho et al., Atmos Env, 39(7), 1303-1322 (2005) ! 3. RADICAL, 2002. Final report on the EU fourth framework ! project evaluation of radical sources in atmospheric ! chemistry through chamber and laboratory studies, ! RADICAL. European Communities Report EUR ! 20254 EN, G.K. Moortgat (Coordinator), MPI Mainz, Germany ! !phi1 (CH3C=CH2 + HCO) = 1.95E-3 !phi3 (CH2=C(CH3)CO + H) = 1.95E-3 ! ! !T = 298 K, resolution = 1 nm !wvl(nm) XC(cm2)qy Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 250.0 2.07E-21 0.00195 251.0 1.94E-21 0.00195 252.0 1.87E-21 0.00195 253.0 1.80E-21 0.00195 254.0 1.78E-21 0.00195 255.0 1.77E-21 0.00195 256.0 1.80E-21 0.00195 257.0 1.80E-21 0.00195 258.0 1.86E-21 0.00195 259.0 1.93E-21 0.00195 260.0 2.01E-21 0.00195 261.0 2.11E-21 0.00195 262.0 2.24E-21 0.00195 263.0 2.41E-21 0.00195 264.0 2.63E-21 0.00195 265.0 2.83E-21 0.00195 266.0 3.05E-21 0.00195 267.0 3.33E-21 0.00195 268.0 3.63E-21 0.00195 269.0 3.98E-21 0.00195 270.0 4.36E-21 0.00195 271.0 4.79E-21 0.00195 272.0 5.20E-21 0.00195 273.0 5.67E-21 0.00195 274.0 6.16E-21 0.00195 275.0 6.73E-21 0.00195 276.0 7.32E-21 0.00195 277.0 7.93E-21 0.00195 278.0 8.63E-21 0.00195 279.0 9.36E-21 0.00195 280.0 1.01E-20 0.00195 281.0 1.09E-20 0.00195 282.0 1.18E-20 0.00195 283.0 1.26E-20 0.00195 284.0 1.35E-20 0.00195 285.0 1.45E-20 0.00195 286.0 1.56E-20 0.00195 287.0 1.67E-20 0.00195 288.0 1.79E-20 0.00195 289.0 1.90E-20 0.00195 290.0 2.03E-20 0.00195 291.0 2.16E-20 0.00195 292.0 2.28E-20 0.00195 293.0 2.40E-20 0.00195 294.0 2.52E-20 0.00195 295.0 2.68E-20 0.00195 296.0 2.85E-20 0.00195 297.0 2.99E-20 0.00195 298.0 3.13E-20 0.00195 299.0 3.26E-20 0.00195 300.0 3.44E-20 0.00195 301.0 3.61E-20 0.00195 302.0 3.76E-20 0.00195 303.0 3.91E-20 0.00195 304.0 4.04E-20 0.00195 305.0 4.19E-20 0.00195 306.0 4.40E-20 0.00195 307.0 4.58E-20 0.00195 308.0 4.71E-20 0.00195 309.0 4.81E-20 0.00195 310.0 4.92E-20 0.00195 311.0 5.13E-20 0.00195 312.0 5.35E-20 0.00195 313.0 5.50E-20 0.00195 314.0 5.61E-20 0.00195 315.0 5.70E-20 0.00195 316.0 5.87E-20 0.00195 317.0 6.04E-20 0.00195 318.0 6.19E-20 0.00195 319.0 6.28E-20 0.00195 320.0 6.27E-20 0.00195 321.0 6.18E-20 0.00195 322.0 6.21E-20 0.00195 323.0 6.34E-20 0.00195 324.0 6.58E-20 0.00195 325.0 6.74E-20 0.00195 326.0 6.73E-20 0.00195 327.0 6.68E-20 0.00195 328.0 6.83E-20 0.00195 329.0 7.07E-20 0.00195 330.0 7.15E-20 0.00195 331.0 7.16E-20 0.00195 332.0 7.03E-20 0.00195 333.0 6.69E-20 0.00195 334.0 6.41E-20 0.00195 335.0 6.08E-20 0.00195 336.0 5.97E-20 0.00195 337.0 6.25E-20 0.00195 338.0 6.38E-20 0.00195 339.0 6.37E-20 0.00195 340.0 6.24E-20 0.00195 341.0 6.02E-20 0.00195 342.0 5.98E-20 0.00195 343.0 6.58E-20 0.00195 344.0 6.79E-20 0.00195 345.0 6.53E-20 0.00195 346.0 6.11E-20 0.00195 347.0 5.63E-20 0.00195 348.0 5.22E-20 0.00195 349.0 4.55E-20 0.00195 350.0 4.16E-20 0.00195 351.0 3.85E-20 0.00195 352.0 3.89E-20 0.00195 353.0 4.35E-20 0.00195 354.0 4.31E-20 0.00195 355.0 4.14E-20 0.00195 356.0 3.62E-20 0.00195 357.0 3.53E-20 0.00195 358.0 3.46E-20 0.00195 359.0 3.81E-20 0.00195 360.0 5.05E-20 0.00195 361.0 4.28E-20 0.00195 362.0 3.61E-20 0.00195 363.0 2.86E-20 0.00195 364.0 2.68E-20 0.00195 365.0 2.33E-20 0.00195 366.0 1.92E-20 0.00195 367.0 1.62E-20 0.00195 368.0 1.40E-20 0.00195 369.0 1.31E-20 0.00195 370.0 1.42E-20 0.00195 371.0 1.67E-20 0.00195 372.0 1.53E-20 0.00195 373.0 1.43E-20 0.00195 374.0 1.08E-20 0.00195 375.0 9.77E-21 0.00195 376.0 1.00E-20 0.00195 377.0 1.07E-20 0.00195 378.0 1.35E-20 0.00195 379.0 2.18E-20 0.00195 380.0 1.30E-20 0.00195 381.0 9.84E-21 0.00195 382.0 5.55E-21 0.00195 383.0 4.56E-21 0.00195 384.0 3.64E-21 0.00195 385.0 3.31E-21 0.00195 386.0 2.46E-21 0.00195 387.0 2.05E-21 0.00195 388.0 1.81E-21 0.00195 389.0 1.61E-21 0.00195 390.0 1.47E-21 0.00195 391.0 1.56E-21 0.00195 392.0 1.59E-21 0.00195 393.0 1.53E-21 0.00195 394.0 1.49E-21 0.00195 395.0 1.23E-21 0.00195 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/MACR_MCMv32 ================================================ MACR_MCMv32 !Methacrolein CH2C(CH3)CHO photolysis (298K) sums the first and third channels ! MACR ---> H + CH2=C(CH3)CO (phi3) ! MACR ---> H3C=CH2 + HCO (phi1) !and neglects remaining channel ! ---> C3H6 +CO (phi2) ! !IUPAC 2002 Recommendation !http://iupac.pole-ether.fr/htdocs/datasheets/pdf/P9_CH2C(CH3)CHO+hv.pdf !Dated: May 2002 ! !Cross-Section ! T. Gierczak, J.B. Burkholder, R.K. Talukdar, A. Mellouki, S.B. Barone, ! and A.R. Ravishankara: Atmospheric fate of methyl vinyl ketone and ! methacrolein, J. Photochem. Photobiol. A: Chem. 110, 1-10 (1997) ! Taken from: ! MPI_Mainz Spectral Atlas (http://www.atmosphere.mpg.de/enid/2295) ! ! !Quantum Yields ! Very low total qy (< 0.05 IUPAC 2002 but it does not recommend a value.) ! ! Average of the optimised total QY of 0.0039 (Pinho et al, 2005) used from ! ! 1. Carter, 2000. Documentation of the SAPRC-99 ! chemical mechanism for VOC reactivity assessment. Final ! Report to California Air Resources Board Contract 92-329 ! and Contract 95-308, Air Pollution Research Center and ! College of Engineering Center for Environmental Research ! and Technology University of California Riverside, ! California. ! 2. Pinho et al., Atmos Env, 39(7), 1303-1322 (2005) ! 3. RADICAL, 2002. Final report on the EU fourth framework ! project evaluation of radical sources in atmospheric ! chemistry through chamber and laboratory studies, ! RADICAL. European Communities Report EUR ! 20254 EN, G.K. Moortgat (Coordinator), MPI Mainz, Germany ! !phi1 (CH3C=CH2 + HCO) = 1.95E-3 !phi3 (CH2=C(CH3)CO + H) = 1.95E-3 ! ! !T = 298 K, resolution = 1 nm !wvl(nm) XC(cm2)qy Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 250.0 2.07E-21 0.00390 251.0 1.94E-21 0.00390 252.0 1.87E-21 0.00390 253.0 1.80E-21 0.00390 254.0 1.78E-21 0.00390 255.0 1.77E-21 0.00390 256.0 1.80E-21 0.00390 257.0 1.80E-21 0.00390 258.0 1.86E-21 0.00390 259.0 1.93E-21 0.00390 260.0 2.01E-21 0.00390 261.0 2.11E-21 0.00390 262.0 2.24E-21 0.00390 263.0 2.41E-21 0.00390 264.0 2.63E-21 0.00390 265.0 2.83E-21 0.00390 266.0 3.05E-21 0.00390 267.0 3.33E-21 0.00390 268.0 3.63E-21 0.00390 269.0 3.98E-21 0.00390 270.0 4.36E-21 0.00390 271.0 4.79E-21 0.00390 272.0 5.20E-21 0.00390 273.0 5.67E-21 0.00390 274.0 6.16E-21 0.00390 275.0 6.73E-21 0.00390 276.0 7.32E-21 0.00390 277.0 7.93E-21 0.00390 278.0 8.63E-21 0.00390 279.0 9.36E-21 0.00390 280.0 1.01E-20 0.00390 281.0 1.09E-20 0.00390 282.0 1.18E-20 0.00390 283.0 1.26E-20 0.00390 284.0 1.35E-20 0.00390 285.0 1.45E-20 0.00390 286.0 1.56E-20 0.00390 287.0 1.67E-20 0.00390 288.0 1.79E-20 0.00390 289.0 1.90E-20 0.00390 290.0 2.03E-20 0.00390 291.0 2.16E-20 0.00390 292.0 2.28E-20 0.00390 293.0 2.40E-20 0.00390 294.0 2.52E-20 0.00390 295.0 2.68E-20 0.00390 296.0 2.85E-20 0.00390 297.0 2.99E-20 0.00390 298.0 3.13E-20 0.00390 299.0 3.26E-20 0.00390 300.0 3.44E-20 0.00390 301.0 3.61E-20 0.00390 302.0 3.76E-20 0.00390 303.0 3.91E-20 0.00390 304.0 4.04E-20 0.00390 305.0 4.19E-20 0.00390 306.0 4.40E-20 0.00390 307.0 4.58E-20 0.00390 308.0 4.71E-20 0.00390 309.0 4.81E-20 0.00390 310.0 4.92E-20 0.00390 311.0 5.13E-20 0.00390 312.0 5.35E-20 0.00390 313.0 5.50E-20 0.00390 314.0 5.61E-20 0.00390 315.0 5.70E-20 0.00390 316.0 5.87E-20 0.00390 317.0 6.04E-20 0.00390 318.0 6.19E-20 0.00390 319.0 6.28E-20 0.00390 320.0 6.27E-20 0.00390 321.0 6.18E-20 0.00390 322.0 6.21E-20 0.00390 323.0 6.34E-20 0.00390 324.0 6.58E-20 0.00390 325.0 6.74E-20 0.00390 326.0 6.73E-20 0.00390 327.0 6.68E-20 0.00390 328.0 6.83E-20 0.00390 329.0 7.07E-20 0.00390 330.0 7.15E-20 0.00390 331.0 7.16E-20 0.00390 332.0 7.03E-20 0.00390 333.0 6.69E-20 0.00390 334.0 6.41E-20 0.00390 335.0 6.08E-20 0.00390 336.0 5.97E-20 0.00390 337.0 6.25E-20 0.00390 338.0 6.38E-20 0.00390 339.0 6.37E-20 0.00390 340.0 6.24E-20 0.00390 341.0 6.02E-20 0.00390 342.0 5.98E-20 0.00390 343.0 6.58E-20 0.00390 344.0 6.79E-20 0.00390 345.0 6.53E-20 0.00390 346.0 6.11E-20 0.00390 347.0 5.63E-20 0.00390 348.0 5.22E-20 0.00390 349.0 4.55E-20 0.00390 350.0 4.16E-20 0.00390 351.0 3.85E-20 0.00390 352.0 3.89E-20 0.00390 353.0 4.35E-20 0.00390 354.0 4.31E-20 0.00390 355.0 4.14E-20 0.00390 356.0 3.62E-20 0.00390 357.0 3.53E-20 0.00390 358.0 3.46E-20 0.00390 359.0 3.81E-20 0.00390 360.0 5.05E-20 0.00390 361.0 4.28E-20 0.00390 362.0 3.61E-20 0.00390 363.0 2.86E-20 0.00390 364.0 2.68E-20 0.00390 365.0 2.33E-20 0.00390 366.0 1.92E-20 0.00390 367.0 1.62E-20 0.00390 368.0 1.40E-20 0.00390 369.0 1.31E-20 0.00390 370.0 1.42E-20 0.00390 371.0 1.67E-20 0.00390 372.0 1.53E-20 0.00390 373.0 1.43E-20 0.00390 374.0 1.08E-20 0.00390 375.0 9.77E-21 0.00390 376.0 1.00E-20 0.00390 377.0 1.07E-20 0.00390 378.0 1.35E-20 0.00390 379.0 2.18E-20 0.00390 380.0 1.30E-20 0.00390 381.0 9.84E-21 0.00390 382.0 5.55E-21 0.00390 383.0 4.56E-21 0.00390 384.0 3.64E-21 0.00390 385.0 3.31E-21 0.00390 386.0 2.46E-21 0.00390 387.0 2.05E-21 0.00390 388.0 1.81E-21 0.00390 389.0 1.61E-21 0.00390 390.0 1.47E-21 0.00390 391.0 1.56E-21 0.00390 392.0 1.59E-21 0.00390 393.0 1.53E-21 0.00390 394.0 1.49E-21 0.00390 395.0 1.23E-21 0.00390 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/MACR_RACM2 ================================================ MACR_RACM2 ! MACR + HV = 0.34*HO + 0.66*HO2 + 0.67*ACO3 + 0.33*MACP + 0.34*XO2 + 0.67*CO + 0.67*HCHO ! Absorption x-section from NASA 2006 ! Quantum yield from ! Supplied by Dr. Wendy Goliff, reformatted by Dr. Golam Sarwar to make it compatible with CMAQ Points ! With FAC, units are (cm^2/molecule) FAC=1.0 186.1 0.000E+00 0.008 187.8 0.000E+00 0.008 189.6 0.000E+00 0.008 191.4 0.000E+00 0.008 193.3 0.000E+00 0.008 195.2 0.000E+00 0.008 197.1 0.000E+00 0.008 199.0 0.000E+00 0.008 201.0 0.000E+00 0.008 203.1 0.000E+00 0.008 205.2 0.000E+00 0.008 207.3 0.000E+00 0.008 209.4 0.000E+00 0.008 211.7 0.000E+00 0.008 213.9 0.000E+00 0.008 216.2 0.000E+00 0.008 218.6 0.000E+00 0.008 221.0 0.000E+00 0.008 223.5 0.000E+00 0.008 226.0 0.000E+00 0.008 228.6 0.000E+00 0.008 231.3 0.000E+00 0.008 234.0 0.000E+00 0.008 236.7 0.000E+00 0.008 239.6 0.000E+00 0.008 242.5 0.000E+00 0.008 245.4 0.000E+00 0.008 248.5 0.000E+00 0.008 251.6 0.190E-20 0.008 254.8 0.177E-20 0.008 258.2 0.187E-20 0.008 261.5 0.218E-20 0.008 265.0 0.283E-20 0.008 268.5 0.381E-20 0.008 272.2 0.529E-20 0.008 275.9 0.726E-20 0.008 279.8 0.995E-20 0.008 283.7 0.132E-19 0.008 287.8 0.177E-19 0.008 292.0 0.228E-19 0.008 296.3 0.289E-19 0.008 300.5 0.353E-19 0.008 303.0 0.391E-19 0.008 304.0 0.404E-19 0.008 305.0 0.419E-19 0.008 306.0 0.440E-19 0.008 307.0 0.458E-19 0.008 308.0 0.471E-19 0.008 309.0 0.481E-19 0.008 310.0 0.492E-19 0.008 311.0 0.513E-19 0.008 312.0 0.535E-19 0.008 313.0 0.550E-19 0.008 314.0 0.561E-19 0.008 316.0 0.587E-19 0.008 320.0 0.627E-19 0.008 325.0 0.674E-19 0.008 330.0 0.715E-19 0.008 335.0 0.608E-19 0.008 340.0 0.624E-19 0.008 345.0 0.653E-19 0.008 350.0 0.416E-19 0.008 355.0 0.414E-19 0.008 360.0 0.505E-19 0.008 365.0 0.233E-19 0.008 370.0 0.142E-19 0.008 375.0 0.977E-20 0.008 380.0 0.130E-19 0.008 385.0 0.331E-20 0.008 390.0 0.147E-20 0.008 395.0 0.123E-20 0.008 400.0 0.000E+00 0.008 405.0 0.000E+00 0.008 410.0 0.000E+00 0.008 415.0 0.000E+00 0.008 420.0 0.000E+00 0.008 425.0 0.000E+00 0.008 430.0 0.000E+00 0.008 435.0 0.000E+00 0.008 440.0 0.000E+00 0.008 445.0 0.000E+00 0.008 450.0 0.000E+00 0.008 455.0 0.000E+00 0.008 460.0 0.000E+00 0.008 465.0 0.000E+00 0.008 470.0 0.000E+00 0.008 475.0 0.000E+00 0.008 480.0 0.000E+00 0.008 485.0 0.000E+00 0.008 490.0 0.000E+00 0.008 495.0 0.000E+00 0.008 500.0 0.000E+00 0.008 505.0 0.000E+00 0.008 510.0 0.000E+00 0.008 515.0 0.000E+00 0.008 520.0 0.000E+00 0.008 525.0 0.000E+00 0.008 530.0 0.000E+00 0.008 535.0 0.000E+00 0.008 540.0 0.000E+00 0.008 545.0 0.000E+00 0.008 550.0 0.000E+00 0.008 555.0 0.000E+00 0.008 560.0 0.000E+00 0.008 565.0 0.000E+00 0.008 570.0 0.000E+00 0.008 575.0 0.000E+00 0.008 580.0 0.000E+00 0.008 585.0 0.000E+00 0.008 590.0 0.000E+00 0.008 595.0 0.000E+00 0.008 600.0 0.000E+00 0.008 605.0 0.000E+00 0.008 610.0 0.000E+00 0.008 615.0 0.000E+00 0.008 620.0 0.000E+00 0.008 625.0 0.000E+00 0.008 630.0 0.000E+00 0.008 635.0 0.000E+00 0.008 640.0 0.000E+00 0.008 644.8 0.000E+00 0.000 651.0 0.000E+00 0.000 660.0 0.000E+00 0.000 670.0 0.000E+00 0.000 680.0 0.000E+00 0.000 690.0 0.000E+00 0.000 700.0 0.000E+00 0.000 710.0 0.000E+00 0.000 720.0 0.000E+00 0.000 730.0 0.000E+00 0.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/MB2C ================================================ MB2C ! CHBR2CL + HV = 2BR ! CHBR2CL Photolysis data. ! Supplied by Brett Gantt ! Created from Bilde et al. J Phys Chem A 1998 (Figure 11 at 298K) Points (These data can be treated as point values) ! With FAC, units are (cm^2/molecule) FAC=1.0 200.0 3.000E-18 1.000 205.0 3.500E-18 1.000 210.0 4.000E-18 1.000 215.0 3.000E-18 1.000 220.0 2.000E-18 1.000 225.0 1.750E-18 1.000 230.0 1.500E-18 1.000 235.0 1.250E-18 1.000 240.0 1.100E-18 1.000 245.0 1.000E-18 1.000 250.0 9.000E-19 1.000 255.0 6.500E-19 1.000 260.0 4.000E-19 1.000 265.0 2.500E-19 1.000 270.0 1.250E-19 1.000 275.0 8.000E-20 1.000 280.0 4.000E-20 1.000 285.0 2.500E-20 1.000 290.0 1.000E-20 1.000 295.0 6.500E-21 1.000 300.0 3.000E-21 1.000 305.0 1.500E-21 1.000 310.0 8.000E-22 1.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/MB2C_BLIDE98 ================================================ MB2C_BLIDE98 ! CHBR2CL + HV = 2BR ! CHBR2CL Photolysis data. ! Supplied by Brett Gantt ! Created from Bilde et al. J Phys Chem A 1998 (Figure 11 at 298K) Points (these data can be treated as point values) ! With FAC, units are (cm^2/molecule) FAC=1.0 200.0 3.000E-18 1.000 205.0 3.500E-18 1.000 210.0 4.000E-18 1.000 215.0 3.000E-18 1.000 220.0 2.000E-18 1.000 225.0 1.750E-18 1.000 230.0 1.500E-18 1.000 235.0 1.250E-18 1.000 240.0 1.100E-18 1.000 245.0 1.000E-18 1.000 250.0 9.000E-19 1.000 255.0 6.500E-19 1.000 260.0 4.000E-19 1.000 265.0 2.500E-19 1.000 270.0 1.250E-19 1.000 275.0 8.000E-20 1.000 280.0 4.000E-20 1.000 285.0 2.500E-20 1.000 290.0 1.000E-20 1.000 295.0 6.500E-21 1.000 300.0 3.000E-21 1.000 305.0 1.500E-21 1.000 310.0 8.000E-22 1.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/MB3 ================================================ MB3 ! CHBR3 + HV = 3BR ! CHBR3 Photolysis data ! Supplied by Golam Sarwar ! Created from IUPAC dataset 19-Mar-2014 15:00 Points (the mechanism was evaluated assuming this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 190.0 3.990E-18 1.000 192.0 3.600E-18 1.000 194.0 3.510E-18 1.000 196.0 3.660E-18 1.000 198.0 3.930E-18 1.000 200.0 4.160E-18 1.000 202.0 4.330E-18 1.000 204.0 4.400E-18 1.000 206.0 4.450E-18 1.000 208.0 4.510E-18 1.000 210.0 4.680E-18 1.000 212.0 4.930E-18 1.000 214.0 5.240E-18 1.000 216.0 5.530E-18 1.000 218.0 5.740E-18 1.000 220.0 5.820E-18 1.000 222.0 5.780E-18 1.000 224.0 5.580E-18 1.000 226.0 5.270E-18 1.000 228.0 4.870E-18 1.000 230.0 4.410E-18 1.000 232.0 3.970E-18 1.000 234.0 3.620E-18 1.000 236.0 3.240E-18 1.000 238.0 2.950E-18 1.000 240.0 2.730E-18 1.000 242.0 2.530E-18 1.000 244.0 2.340E-18 1.000 246.0 2.140E-18 1.000 248.0 1.940E-18 1.000 250.0 1.740E-18 1.000 252.0 1.580E-18 1.000 254.0 1.360E-18 1.000 256.0 1.160E-18 1.000 258.0 9.860E-19 1.000 260.0 8.280E-19 1.000 262.0 6.890E-19 1.000 264.0 5.690E-19 1.000 266.0 4.670E-19 1.000 268.0 3.800E-19 1.000 270.0 3.080E-19 1.000 272.0 2.480E-19 1.000 274.0 1.980E-19 1.000 276.0 1.580E-19 1.000 278.0 1.250E-19 1.000 280.0 9.880E-20 1.000 282.0 7.770E-20 1.000 284.0 6.100E-20 1.000 286.0 4.810E-20 1.000 288.0 3.750E-20 1.000 290.0 2.880E-20 1.000 292.0 2.220E-20 1.000 294.0 1.700E-20 1.000 296.0 1.280E-20 1.000 298.0 9.510E-21 1.000 300.0 7.190E-21 1.000 302.0 5.300E-21 1.000 304.0 3.940E-21 1.000 306.0 2.980E-21 1.000 308.0 2.260E-21 1.000 310.0 1.710E-21 1.000 312.0 1.270E-21 1.000 314.0 9.500E-22 1.000 316.0 7.100E-22 1.000 318.0 5.300E-22 1.000 320.0 3.900E-22 1.000 322.0 2.900E-22 1.000 324.0 2.100E-22 1.000 326.0 1.600E-22 1.000 328.0 9.000E-23 1.000 330.0 9.000E-23 1.000 332.0 7.000E-23 1.000 334.0 5.000E-23 1.000 336.0 4.000E-23 1.000 338.0 3.000E-23 1.000 340.0 2.000E-23 1.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/MB3_IUPAC10 ================================================ MB3_IUPAC10 ! CHBR3 + HV = 3BR ! CHBR3 Photolysis data ! Supplied by Golam Sarwar ! Created from IUPAC dataset Points (these data can be treated as point values) ! With FAC, units are (cm^2/molecule) FAC=1.0 190.0 3.990E-18 1.000 192.0 3.600E-18 1.000 194.0 3.510E-18 1.000 196.0 3.660E-18 1.000 198.0 3.930E-18 1.000 200.0 4.160E-18 1.000 202.0 4.330E-18 1.000 204.0 4.400E-18 1.000 206.0 4.450E-18 1.000 208.0 4.510E-18 1.000 210.0 4.680E-18 1.000 212.0 4.930E-18 1.000 214.0 5.240E-18 1.000 216.0 5.530E-18 1.000 218.0 5.740E-18 1.000 220.0 5.820E-18 1.000 222.0 5.780E-18 1.000 224.0 5.580E-18 1.000 226.0 5.270E-18 1.000 228.0 4.870E-18 1.000 230.0 4.410E-18 1.000 232.0 3.970E-18 1.000 234.0 3.620E-18 1.000 236.0 3.240E-18 1.000 238.0 2.950E-18 1.000 240.0 2.730E-18 1.000 242.0 2.530E-18 1.000 244.0 2.340E-18 1.000 246.0 2.140E-18 1.000 248.0 1.940E-18 1.000 250.0 1.740E-18 1.000 252.0 1.580E-18 1.000 254.0 1.360E-18 1.000 256.0 1.160E-18 1.000 258.0 9.860E-19 1.000 260.0 8.280E-19 1.000 262.0 6.890E-19 1.000 264.0 5.690E-19 1.000 266.0 4.670E-19 1.000 268.0 3.800E-19 1.000 270.0 3.080E-19 1.000 272.0 2.480E-19 1.000 274.0 1.980E-19 1.000 276.0 1.580E-19 1.000 278.0 1.250E-19 1.000 280.0 9.880E-20 1.000 282.0 7.770E-20 1.000 284.0 6.100E-20 1.000 286.0 4.810E-20 1.000 288.0 3.750E-20 1.000 290.0 2.880E-20 1.000 292.0 2.220E-20 1.000 294.0 1.700E-20 1.000 296.0 1.280E-20 1.000 298.0 9.510E-21 1.000 300.0 7.190E-21 1.000 302.0 5.300E-21 1.000 304.0 3.940E-21 1.000 306.0 2.980E-21 1.000 308.0 2.260E-21 1.000 310.0 1.710E-21 1.000 312.0 1.270E-21 1.000 314.0 9.500E-22 1.000 316.0 7.100E-22 1.000 318.0 5.300E-22 1.000 320.0 3.900E-22 1.000 322.0 2.900E-22 1.000 324.0 2.100E-22 1.000 326.0 1.600E-22 1.000 328.0 9.000E-23 1.000 330.0 9.000E-23 1.000 332.0 7.000E-23 1.000 334.0 5.000E-23 1.000 336.0 4.000E-23 1.000 338.0 3.000E-23 1.000 340.0 2.000E-23 1.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/MBC2 ================================================ MBC2 ! CHBRCL2 + HV = BR ! CHBRCL2 Photolysis data. ! Supplied by Brett Gantt ! Created from Bilde et al. J Phys Chem A 1998 (Figure 9 at 298K) Points (the mechanism was evaluated assuming this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 210.0 7.000E-19 1.000 215.0 7.250E-19 1.000 220.0 7.500E-19 1.000 225.0 6.500E-19 1.000 230.0 6.000E-19 1.000 235.0 5.000E-19 1.000 240.0 4.000E-19 1.000 245.0 3.250E-19 1.000 250.0 2.500E-19 1.000 255.0 1.750E-19 1.000 260.0 9.000E-20 1.000 265.0 6.000E-20 1.000 270.0 3.000E-20 1.000 275.0 1.500E-20 1.000 280.0 9.000E-21 1.000 285.0 6.000E-21 1.000 290.0 4.500E-21 1.000 295.0 3.000E-21 1.000 300.0 1.500E-21 1.000 305.0 9.000E-22 1.000 310.0 6.500E-22 1.000 315.0 4.000E-22 1.000 320.0 1.750E-22 1.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/MBC2_BLIDE98 ================================================ MBC2_BLIDE98 ! CHBRCL2 + HV = BR ! CHBRCL2 Photolysis data ! Supplied by Brett Gantt ! Created from Bilde et al. J Phys Chem A 1998 (Figure 9 at 298K) Points (these data can be treated as point values) ! With FAC, units are (cm^2/molecule) FAC=1.0 210.0 7.000E-19 1.000 215.0 7.250E-19 1.000 220.0 7.500E-19 1.000 225.0 6.500E-19 1.000 230.0 6.000E-19 1.000 235.0 5.000E-19 1.000 240.0 4.000E-19 1.000 245.0 3.250E-19 1.000 250.0 2.500E-19 1.000 255.0 1.750E-19 1.000 260.0 9.000E-20 1.000 265.0 6.000E-20 1.000 270.0 3.000E-20 1.000 275.0 1.500E-20 1.000 280.0 9.000E-21 1.000 285.0 6.000E-21 1.000 290.0 4.500E-21 1.000 295.0 3.000E-21 1.000 300.0 1.500E-21 1.000 305.0 9.000E-22 1.000 310.0 6.500E-22 1.000 315.0 4.000E-22 1.000 320.0 1.750E-22 1.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/MEK-06 ================================================ MEK-06 ! MEK absorption cross sections ! IUPAC Subcommittee on Gas Kinetic Data Evaluation Data Sheet P8 ! This datasheet updated: 5th December 2005. ! Website: http://www.iupac-kinetic.ch.cam.ac.uk/. ! Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 202.0 1.412E-20 1.0000 206.0 1.920E-21 1.0000 210.0 1.600E-21 1.0000 214.0 1.830E-21 1.0000 218.0 2.250E-21 1.0000 222.0 2.900E-21 1.0000 226.0 3.910E-21 1.0000 230.0 5.340E-21 1.0000 234.0 7.420E-21 1.0000 238.0 1.029E-20 1.0000 242.0 1.410E-20 1.0000 246.0 1.886E-20 1.0000 250.0 2.450E-20 1.0000 254.0 3.090E-20 1.0000 258.0 3.740E-20 1.0000 262.0 4.390E-20 1.0000 266.0 4.960E-20 1.0000 270.0 5.400E-20 1.0000 274.0 5.680E-20 1.0000 278.0 5.770E-20 1.0000 280.0 5.740E-20 1.0000 281.0 5.720E-20 1.0000 282.0 5.680E-20 1.0000 283.0 5.620E-20 1.0000 284.0 5.540E-20 1.0000 285.0 5.440E-20 1.0000 286.0 5.350E-20 1.0000 287.0 5.260E-20 1.0000 288.0 5.170E-20 1.0000 289.0 5.060E-20 1.0000 290.0 4.940E-20 1.0000 291.0 4.780E-20 1.0000 292.0 4.600E-20 1.0000 293.0 4.420E-20 1.0000 294.0 4.240E-20 1.0000 295.0 4.080E-20 1.0000 296.0 3.930E-20 1.0000 297.0 3.790E-20 1.0000 298.0 3.650E-20 1.0000 299.0 3.480E-20 1.0000 300.0 3.300E-20 1.0000 301.0 3.100E-20 1.0000 302.0 2.890E-20 1.0000 303.0 2.690E-20 1.0000 304.0 2.500E-20 1.0000 305.0 2.330E-20 1.0000 306.0 2.170E-20 1.0000 307.0 2.020E-20 1.0000 308.0 1.876E-20 1.0000 309.0 1.727E-20 1.0000 310.0 1.575E-20 1.0000 311.0 1.423E-20 1.0000 312.0 1.276E-20 1.0000 313.0 1.136E-20 1.0000 314.0 1.009E-20 1.0000 315.0 8.960E-21 1.0000 316.0 7.940E-21 1.0000 317.0 6.970E-21 1.0000 318.0 6.110E-21 1.0000 319.0 5.310E-21 1.0000 320.0 4.570E-21 1.0000 321.0 3.890E-21 1.0000 322.0 3.280E-21 1.0000 323.0 2.760E-21 1.0000 324.0 2.290E-21 1.0000 325.0 1.890E-21 1.0000 326.0 1.560E-21 1.0000 327.0 1.290E-21 1.0000 328.0 1.050E-21 1.0000 329.0 8.500E-22 1.0000 330.0 6.700E-22 1.0000 331.0 5.400E-22 1.0000 332.0 4.200E-22 1.0000 333.0 3.300E-22 1.0000 334.0 2.500E-22 1.0000 335.0 2.000E-22 1.0000 336.0 1.400E-22 1.0000 337.0 1.100E-22 1.0000 338.0 8.000E-23 1.0000 339.0 7.000E-23 1.0000 340.0 5.000E-23 1.0000 341.0 5.000E-23 1.0000 342.0 3.000E-23 1.0000 343.0 3.000E-23 1.0000 344.0 2.000E-23 1.0000 345.0 1.000E-23 1.0000 346.0 1.000E-23 1.0000 347.0 0.000E+00 1.0000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/MEK_06 ================================================ MEK-06 ! MEK absorption cross sections ! IUPAC Subcommittee on Gas Kinetic Data Evaluation Data Sheet P8 ! This datasheet updated: 5th December 2005. ! Website: http://www.iupac-kinetic.ch.cam.ac.uk/. ! Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 202.0 1.412E-20 1.0000 206.0 1.920E-21 1.0000 210.0 1.600E-21 1.0000 214.0 1.830E-21 1.0000 218.0 2.250E-21 1.0000 222.0 2.900E-21 1.0000 226.0 3.910E-21 1.0000 230.0 5.340E-21 1.0000 234.0 7.420E-21 1.0000 238.0 1.029E-20 1.0000 242.0 1.410E-20 1.0000 246.0 1.886E-20 1.0000 250.0 2.450E-20 1.0000 254.0 3.090E-20 1.0000 258.0 3.740E-20 1.0000 262.0 4.390E-20 1.0000 266.0 4.960E-20 1.0000 270.0 5.400E-20 1.0000 274.0 5.680E-20 1.0000 278.0 5.770E-20 1.0000 280.0 5.740E-20 1.0000 281.0 5.720E-20 1.0000 282.0 5.680E-20 1.0000 283.0 5.620E-20 1.0000 284.0 5.540E-20 1.0000 285.0 5.440E-20 1.0000 286.0 5.350E-20 1.0000 287.0 5.260E-20 1.0000 288.0 5.170E-20 1.0000 289.0 5.060E-20 1.0000 290.0 4.940E-20 1.0000 291.0 4.780E-20 1.0000 292.0 4.600E-20 1.0000 293.0 4.420E-20 1.0000 294.0 4.240E-20 1.0000 295.0 4.080E-20 1.0000 296.0 3.930E-20 1.0000 297.0 3.790E-20 1.0000 298.0 3.650E-20 1.0000 299.0 3.480E-20 1.0000 300.0 3.300E-20 1.0000 301.0 3.100E-20 1.0000 302.0 2.890E-20 1.0000 303.0 2.690E-20 1.0000 304.0 2.500E-20 1.0000 305.0 2.330E-20 1.0000 306.0 2.170E-20 1.0000 307.0 2.020E-20 1.0000 308.0 1.876E-20 1.0000 309.0 1.727E-20 1.0000 310.0 1.575E-20 1.0000 311.0 1.423E-20 1.0000 312.0 1.276E-20 1.0000 313.0 1.136E-20 1.0000 314.0 1.009E-20 1.0000 315.0 8.960E-21 1.0000 316.0 7.940E-21 1.0000 317.0 6.970E-21 1.0000 318.0 6.110E-21 1.0000 319.0 5.310E-21 1.0000 320.0 4.570E-21 1.0000 321.0 3.890E-21 1.0000 322.0 3.280E-21 1.0000 323.0 2.760E-21 1.0000 324.0 2.290E-21 1.0000 325.0 1.890E-21 1.0000 326.0 1.560E-21 1.0000 327.0 1.290E-21 1.0000 328.0 1.050E-21 1.0000 329.0 8.500E-22 1.0000 330.0 6.700E-22 1.0000 331.0 5.400E-22 1.0000 332.0 4.200E-22 1.0000 333.0 3.300E-22 1.0000 334.0 2.500E-22 1.0000 335.0 2.000E-22 1.0000 336.0 1.400E-22 1.0000 337.0 1.100E-22 1.0000 338.0 8.000E-23 1.0000 339.0 7.000E-23 1.0000 340.0 5.000E-23 1.0000 341.0 5.000E-23 1.0000 342.0 3.000E-23 1.0000 343.0 3.000E-23 1.0000 344.0 2.000E-23 1.0000 345.0 1.000E-23 1.0000 346.0 1.000E-23 1.0000 347.0 0.000E+00 1.0000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/MEK_JGR19 ================================================ MEK_JGR19 ! MEK = 0.10*MO2 + ETHP + 0.9*ACO3 + 0.1*CO ! Absorption x-section composition of three ketobe from Brewer et al., 2019 ! Brewer,J.F. Papanastasiou,D.K.,Burkholder,J.B.,Fischer,E.V.,Ren,Y.,Mellouki,A.,Ravishankara,A.R.(2019). ! Atmospheric photolysis of methyl ethyl, diethyl, and propyl ethylketones: Temperature-dependent ! UV absorption cross sections. Journal of Geophysical Research: Atmospheres,124, 5906-5918. ! https://doi.org/10.1029/2019JD030391 ! Absorption x-section from Brewer et al., 2019 ! Quantum yield from ! 1) W.H. Raben, G.K. Moortgat, in: J. Baker (Ed.), Progress and Problems in Atmospheric Chemistry, ! World Scientific, Singapore, 1996, pp. 318-373 ! 2) IUPAC datasheet P8 (5th December 2005) ! Supplied by Drs. William Stockwell and Emily Saunders, reformatted by Dr. Golam Sarwar to make it compatible with CMAQ Points ! With FAC, units are (cm^2/molecule) FAC=1.0 200 2.92E-20 0.34 201 1.46E-20 0.34 202 9.60E-21 0.34 203 4.68E-21 0.34 204 2.42E-21 0.34 205 1.89E-21 0.34 206 1.70E-21 0.34 207 1.62E-21 0.34 208 1.56E-21 0.34 209 1.54E-21 0.34 210 1.53E-21 0.34 211 1.51E-21 0.34 212 1.55E-21 0.34 213 1.60E-21 0.34 214 1.69E-21 0.34 215 1.77E-21 0.34 216 1.82E-21 0.34 217 1.89E-21 0.34 218 1.98E-21 0.34 219 2.10E-21 0.34 220 2.25E-21 0.34 221 2.41E-21 0.34 222 2.60E-21 0.34 223 2.81E-21 0.34 224 3.04E-21 0.34 225 3.32E-21 0.34 226 3.62E-21 0.34 227 3.96E-21 0.34 228 4.32E-21 0.34 229 4.72E-21 0.34 230 5.17E-21 0.34 231 5.65E-21 0.34 232 6.18E-21 0.34 233 6.75E-21 0.34 234 7.38E-21 0.34 235 8.06E-21 0.34 236 8.79E-21 0.34 237 9.59E-21 0.34 238 1.04E-20 0.34 239 1.13E-20 0.34 240 1.23E-20 0.34 241 1.33E-20 0.34 242 1.44E-20 0.34 243 1.56E-20 0.34 244 1.68E-20 0.34 245 1.80E-20 0.34 246 1.94E-20 0.34 247 2.08E-20 0.34 248 2.22E-20 0.34 249 2.36E-20 0.34 250 2.51E-20 0.34 251 2.66E-20 0.34 252 2.83E-20 0.34 253 3.00E-20 0.34 254 3.16E-20 0.34 255 3.32E-20 0.34 256 3.48E-20 0.34 257 3.64E-20 0.34 258 3.81E-20 0.34 259 3.98E-20 0.34 260 4.16E-20 0.34 261 4.32E-20 0.34 262 4.46E-20 0.34 263 4.59E-20 0.34 264 4.72E-20 0.34 265 4.87E-20 0.34 266 5.01E-20 0.34 267 5.16E-20 0.34 268 5.28E-20 0.34 269 5.37E-20 0.34 270 5.45E-20 0.34 271 5.51E-20 0.34 272 5.58E-20 0.34 273 5.65E-20 0.34 274 5.72E-20 0.34 275 5.77E-20 0.34 276 5.80E-20 0.34 277 5.80E-20 0.34 278 5.79E-20 0.34 279 5.77E-20 0.34 280 5.75E-20 0.34 281 5.72E-20 0.34 282 5.67E-20 0.34 283 5.61E-20 0.34 284 5.52E-20 0.34 285 5.43E-20 0.34 286 5.33E-20 0.34 287 5.23E-20 0.34 288 5.14E-20 0.34 289 5.03E-20 0.34 290 4.91E-20 0.34 291 4.75E-20 0.34 292 4.58E-20 0.34 293 4.39E-20 0.34 294 4.21E-20 0.34 295 4.05E-20 0.34 296 3.90E-20 0.34 297 3.76E-20 0.34 298 3.61E-20 0.34 299 3.45E-20 0.34 300 3.27E-20 0.34 301 3.07E-20 0.34 302 2.86E-20 0.34 303 2.66E-20 0.34 304 2.48E-20 0.34 305 2.30E-20 0.34 306 2.15E-20 0.34 307 2.00E-20 0.34 308 1.85E-20 0.34 309 1.71E-20 0.34 310 1.56E-20 0.34 311 1.41E-20 0.34 312 1.26E-20 0.34 313 1.12E-20 0.34 314 9.99E-21 0.34 315 8.86E-21 0.34 316 7.84E-21 0.34 317 6.89E-21 0.34 318 6.03E-21 0.34 319 5.24E-21 0.34 320 4.50E-21 0.34 321 3.83E-21 0.34 322 3.23E-21 0.34 323 2.71E-21 0.34 324 2.26E-21 0.34 325 1.87E-21 0.34 326 1.54E-21 0.34 327 1.26E-21 0.34 328 1.03E-21 0.34 329 8.32E-22 0.34 330 6.70E-22 0.34 331 5.38E-22 0.34 332 4.25E-22 0.34 333 3.44E-22 0.34 334 2.71E-22 0.34 335 2.19E-22 0.34 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/MEK_MCMv32 ================================================ MEK_MCMv32 !CH3C(O)C2H5 (2-butanone, methyl ethyl ketone (MEK)) photolysis cross-sections @ 1 bar, 298 K !MEK --> CH3CO + C2H5 ! !IUPAC 2005 Recommendation !http://iupac.pole-ether.fr/htdocs/datasheets/pdf/P8_CH3COC2H5+hv.pdf !Dated Dec. 2005 ! Cross-Section: ! R. D. Martinez, A. A. Buitrago, N. W. Howell, C. H. Hearn, and J. A. Joens, Atmos. Env. 26A, 785 (1992) ! ! Photolysis QY (CH3CO + C2H5): ! Average of the optimised QY used in the evaluation of the MCM and SAPRC-99 using chamber data: ! phi1 (CH3CO + C2H5) = 0.16 from 275 to 380 nm (1 bar, 298K) based on MCM ! evaluation against chamber experiments for ozone (Pinho et al., 2005) but ! IUPAC 2005 recommendation set phi1 equal to 0.34 from 275 to 380 nm.! ! ! 1. Carter, 2000. Documentation of the SAPRC-99 ! chemical mechanism for VOC reactivity assessment. Final ! Report to California Air Resources Board Contract 92-329 ! and Contract 95-308, Air Pollution Research Center and ! College of Engineering Center for Environmental Research ! and Technology University of California Riverside, ! California. ! 2. Pinho et al., Atmos Env, 39(7), 1303-1322 (2005) ! !wvl(nm) XC(cm2) phi1 Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 202.0 1.41E-20 0.1600 206.0 1.92E-21 0.1600 210.0 1.60E-21 0.1600 214.0 1.83E-21 0.1600 218.0 2.25E-21 0.1600 222.0 2.90E-21 0.1600 226.0 3.91E-21 0.1600 230.0 5.34E-21 0.1600 234.0 7.42E-21 0.1600 238.0 1.03E-20 0.1600 242.0 1.41E-20 0.1600 246.0 1.89E-20 0.1600 250.0 2.45E-20 0.1600 254.0 3.09E-20 0.1600 258.0 3.74E-20 0.1600 262.0 4.39E-20 0.1600 266.0 4.96E-20 0.1600 270.0 5.40E-20 0.1600 274.0 5.68E-20 0.1600 278.0 5.77E-20 0.1600 280.0 5.74E-20 0.1600 281.0 5.72E-20 0.1600 282.0 5.68E-20 0.1600 283.0 5.62E-20 0.1600 284.0 5.54E-20 0.1600 285.0 5.44E-20 0.1600 286.0 5.35E-20 0.1600 287.0 5.26E-20 0.1600 288.0 5.17E-20 0.1600 289.0 5.06E-20 0.1600 292.0 4.60E-20 0.1600 293.0 4.42E-20 0.1600 294.0 4.24E-20 0.1600 295.0 4.08E-20 0.1600 296.0 3.93E-20 0.1600 297.0 3.79E-20 0.1600 298.0 3.65E-20 0.1600 299.0 3.48E-20 0.1600 300.0 3.30E-20 0.1600 301.0 3.10E-20 0.1600 302.0 2.89E-20 0.1600 303.0 2.69E-20 0.1600 304.0 2.50E-20 0.1600 305.0 2.33E-20 0.1600 306.0 2.17E-20 0.1600 307.0 2.02E-20 0.1600 308.0 1.88E-20 0.1600 309.0 1.73E-20 0.1600 310.0 1.58E-20 0.1600 311.0 1.42E-20 0.1600 312.0 1.28E-20 0.1600 313.0 1.14E-20 0.1600 314.0 1.01E-20 0.1600 315.0 8.96E-21 0.1600 316.0 7.94E-21 0.1600 317.0 6.97E-21 0.1600 318.0 6.11E-21 0.1600 319.0 5.31E-21 0.1600 320.0 4.57E-21 0.1600 321.0 3.89E-21 0.1600 324.0 2.29E-21 0.1600 325.0 1.89E-21 0.1600 326.0 1.56E-21 0.1600 327.0 1.29E-21 0.1600 328.0 1.05E-21 0.1600 329.0 8.50E-22 0.1600 330.0 6.70E-22 0.1600 331.0 5.40E-22 0.1600 332.0 4.20E-22 0.1600 333.0 3.30E-22 0.1600 334.0 2.50E-22 0.1600 335.0 2.00E-22 0.1600 336.0 1.40E-22 0.1600 337.0 1.10E-22 0.1600 338.0 8.00E-23 0.1600 339.0 7.00E-23 0.1600 340.0 5.00E-23 0.1600 341.0 5.00E-23 0.1600 342.0 3.00E-23 0.1600 343.0 3.00E-23 0.1600 344.0 2.00E-23 0.1600 345.0 1.00E-23 0.1600 346.0 1.00E-23 0.1600 347.0 0.00E+00 0.1600 348.0 1.00E-23 0.1600 349.0 0.00E+00 0.1600 350.0 0.00E+00 0.1600 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/MEK_RACM2 ================================================ MEK_RACM2 ! MEK = 0.50*MO2 + 0.50*ETHP + ACO3 ! Absorption x-section from Yujing and Mellouki, 2000 ! Quantum yield from W.H. Raben, G.K. Moortgat, in: J. Baker (Ed.), Progress and Problems in Atmospheric Chemistry, World Scientific, Singapore, 1996, pp. 318-373 ! Supplied by Dr. Wendy Goliff, reformatted by Dr. Golam Sarwar to make it compatible with CMAQ Points ! With FAC, units are (cm^2/molecule) FAC=1.0 186.1 0.000E+00 1.000 187.8 0.000E+00 1.000 189.6 0.000E+00 1.000 191.4 0.000E+00 1.000 193.3 0.000E+00 1.000 195.2 0.000E+00 1.000 197.1 0.000E+00 1.000 199.0 0.000E+00 1.000 201.0 0.000E+00 1.000 203.1 0.000E+00 1.000 205.2 0.000E+00 1.000 207.3 0.000E+00 1.000 209.4 0.000E+00 1.000 211.7 0.000E+00 1.000 213.9 0.000E+00 1.000 216.2 0.000E+00 1.000 218.6 0.000E+00 1.000 221.0 0.000E+00 1.000 223.5 0.000E+00 1.000 226.0 0.000E+00 1.000 228.6 0.000E+00 1.000 231.3 0.000E+00 1.000 234.0 0.000E+00 1.000 236.7 0.000E+00 1.000 239.6 0.113E-19 1.000 242.5 0.144E-19 1.000 245.4 0.179E-19 1.000 248.5 0.221E-19 1.000 251.6 0.265E-19 1.000 254.8 0.320E-19 1.000 258.2 0.367E-19 1.000 261.5 0.422E-19 1.000 265.0 0.465E-19 1.000 268.5 0.511E-19 1.000 272.2 0.533E-19 1.000 275.9 0.561E-19 1.000 279.8 0.562E-19 1.000 283.7 0.544E-19 1.000 287.8 0.507E-19 1.000 292.0 0.457E-19 1.000 296.3 0.389E-19 1.000 300.5 0.318E-19 1.000 303.0 0.269E-19 1.000 304.0 0.250E-19 1.000 305.0 0.232E-19 1.000 306.0 0.217E-19 1.000 307.0 0.202E-19 1.000 308.0 0.182E-19 1.000 309.0 0.173E-19 1.000 310.0 0.158E-19 1.000 311.0 0.143E-19 1.000 312.0 0.128E-19 1.000 313.0 0.114E-19 1.000 314.0 0.101E-19 1.000 316.0 0.790E-20 1.000 320.0 0.439E-20 1.000 325.0 0.176E-20 1.000 330.0 0.610E-21 1.000 335.0 0.160E-21 1.000 340.0 0.000E+00 1.000 345.0 0.000E+00 1.000 350.0 0.000E+00 1.000 355.0 0.000E+00 1.000 360.0 0.000E+00 1.000 365.0 0.000E+00 1.000 370.0 0.000E+00 1.000 375.0 0.000E+00 1.000 380.0 0.000E+00 1.000 385.0 0.000E+00 1.000 390.0 0.000E+00 1.000 395.0 0.000E+00 1.000 400.0 0.000E+00 1.000 405.0 0.000E+00 1.000 410.0 0.000E+00 1.000 415.0 0.000E+00 1.000 420.0 0.000E+00 1.000 425.0 0.000E+00 1.000 430.0 0.000E+00 1.000 435.0 0.000E+00 1.000 440.0 0.000E+00 1.000 445.0 0.000E+00 1.000 450.0 0.000E+00 1.000 455.0 0.000E+00 1.000 460.0 0.000E+00 1.000 465.0 0.000E+00 1.000 470.0 0.000E+00 1.000 475.0 0.000E+00 1.000 480.0 0.000E+00 1.000 485.0 0.000E+00 1.000 490.0 0.000E+00 1.000 495.0 0.000E+00 1.000 500.0 0.000E+00 1.000 505.0 0.000E+00 1.000 510.0 0.000E+00 1.000 515.0 0.000E+00 1.000 520.0 0.000E+00 1.000 525.0 0.000E+00 1.000 530.0 0.000E+00 1.000 535.0 0.000E+00 1.000 540.0 0.000E+00 1.000 545.0 0.000E+00 1.000 550.0 0.000E+00 1.000 555.0 0.000E+00 1.000 560.0 0.000E+00 1.000 565.0 0.000E+00 1.000 570.0 0.000E+00 1.000 575.0 0.000E+00 1.000 580.0 0.000E+00 1.000 585.0 0.000E+00 1.000 590.0 0.000E+00 1.000 595.0 0.000E+00 1.000 600.0 0.000E+00 1.000 605.0 0.000E+00 1.000 610.0 0.000E+00 1.000 615.0 0.000E+00 1.000 620.0 0.000E+00 1.000 625.0 0.000E+00 1.000 630.0 0.000E+00 1.000 635.0 0.000E+00 1.000 640.0 0.000E+00 1.000 644.8 0.000E+00 1.000 651.0 0.000E+00 1.000 660.0 0.000E+00 1.000 670.0 0.000E+00 1.000 680.0 0.000E+00 1.000 690.0 0.000E+00 1.000 700.0 0.000E+00 1.000 710.0 0.000E+00 1.000 720.0 0.000E+00 1.000 730.0 0.000E+00 1.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/MEPX_IUPAC10 ================================================ MEPX_IUPAC10 ! j(MEPX) IUPAC(2010) CH3OOH ! MEPX = MEO2 + RO2 + OH ! From IUPAC Subcommittee on Gas Kinetic Data Evaluation ! Data Sheet P12, updated 16th May, 2002 !These are point values Begining (the mechanism evaluated with this format) !WL(nm) XSEC(cm2) QY FAC=1.0 210.0 3.120E-19 1.000 215.0 2.090E-19 1.000 220.0 1.540E-19 1.000 225.0 1.220E-19 1.000 230.0 9.620E-20 1.000 235.0 7.610E-20 1.000 240.0 6.050E-20 1.000 245.0 4.880E-20 1.000 250.0 3.980E-20 1.000 255.0 3.230E-20 1.000 260.0 2.560E-20 1.000 265.0 2.110E-20 1.000 270.0 1.700E-20 1.000 275.0 1.390E-20 1.000 280.0 1.090E-20 1.000 285.0 8.630E-21 1.000 290.0 6.910E-21 1.000 295.0 5.510E-21 1.000 300.0 4.130E-21 1.000 305.0 3.130E-21 1.000 310.0 2.390E-21 1.000 315.0 1.820E-21 1.000 320.0 1.370E-21 1.000 325.0 1.050E-21 1.000 330.0 7.900E-22 1.000 335.0 6.100E-22 1.000 340.0 4.700E-22 1.000 345.0 3.500E-22 1.000 350.0 2.700E-22 1.000 355.0 2.100E-22 1.000 360.0 1.600E-22 1.000 365.0 1.200E-22 1.000 366.0 0.000E+00 1.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/MGLY-06 ================================================ MGLY-06 ! CH3COCHO + HV = CH3CO. + HCO. ! IUPAC Subcommittee on Gas Kinetic Data Evaluation Data Sheet P6 ! This datasheet updated: 16th January 2003. ! Website: http://www.iupac-kinetic.ch.cam.ac.uk/. ! Quantum yield calculated from the expression given for 472 torr N2. ! This "pressure" adjustment was made so the calculated photlysis rates ! for solar conditions would agree with the data of Klotz et al (2000) ! for the Euphore outdoor chamber. ! Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 280.0 4.877E-20 0.9840 285.0 4.719E-20 0.9770 290.0 4.838E-20 0.9680 295.0 4.362E-20 0.9560 300.0 3.754E-20 0.9410 305.0 3.361E-20 0.9220 310.0 2.365E-20 0.8970 315.0 1.891E-20 0.8670 320.0 1.511E-20 0.8320 325.0 9.380E-21 0.7900 330.0 6.520E-21 0.7430 335.0 4.820E-21 0.6920 340.0 3.230E-21 0.6370 345.0 3.000E-21 0.5790 350.0 3.940E-21 0.5220 355.0 5.600E-21 0.4650 360.0 6.950E-21 0.4110 365.0 1.077E-20 0.3600 370.0 1.475E-20 0.3130 375.0 1.911E-20 0.2710 380.0 2.429E-20 0.2340 385.0 3.221E-20 0.2000 390.0 4.029E-20 0.1650 395.0 4.732E-20 0.1380 400.0 5.664E-20 0.1150 401.0 5.900E-20 0.1110 402.0 6.070E-20 0.1070 403.0 6.350E-20 0.1040 404.0 6.540E-20 0.1000 405.0 6.910E-20 0.0970 406.0 7.200E-20 0.0930 407.0 7.580E-20 0.0900 408.0 7.940E-20 0.0870 409.0 8.120E-20 0.0840 410.0 8.520E-20 0.0820 411.0 8.630E-20 0.0790 412.0 9.070E-20 0.0760 413.0 9.370E-20 0.0740 414.0 9.620E-20 0.0710 415.0 9.680E-20 0.0690 416.0 9.710E-20 0.0670 417.0 1.004E-19 0.0650 418.0 1.007E-19 0.0630 419.0 1.012E-19 0.0610 420.0 1.021E-19 0.0590 421.0 1.034E-19 0.0570 422.0 1.051E-19 0.0550 423.0 1.045E-19 0.0530 424.0 1.015E-19 0.0520 425.0 1.034E-19 0.0500 426.0 1.024E-19 0.0490 427.0 9.840E-20 0.0470 428.0 1.001E-19 0.0460 429.0 9.940E-20 0.0440 430.0 1.041E-19 0.0430 431.0 1.053E-19 0.0420 432.0 9.790E-20 0.0400 433.0 1.064E-19 0.0390 434.0 1.054E-19 0.0380 435.0 1.081E-19 0.0370 436.0 1.113E-19 0.0360 437.0 9.990E-20 0.0350 438.0 1.059E-19 0.0340 439.0 1.101E-19 0.0330 440.0 9.940E-20 0.0320 441.0 1.039E-19 0.0310 442.0 1.020E-19 0.0300 443.0 1.017E-19 0.0290 444.0 1.117E-19 0.0280 445.0 9.610E-20 0.0280 446.0 8.900E-20 0.0270 447.0 9.840E-20 0.0260 448.0 9.180E-20 0.0250 449.0 1.013E-19 0.0250 450.0 8.670E-20 0.0240 451.0 6.340E-20 0.0230 452.0 6.330E-20 0.0230 453.0 6.080E-20 0.0220 454.0 4.460E-20 0.0210 455.0 3.690E-20 0.0210 456.0 3.080E-20 0.0200 457.0 2.460E-20 0.0200 458.0 1.810E-20 0.0190 459.0 1.280E-20 0.0190 460.0 9.140E-21 0.0180 461.0 7.950E-21 0.0180 462.0 6.420E-21 0.0170 463.0 4.790E-21 0.0170 464.0 3.320E-21 0.0160 465.0 2.680E-21 0.0160 466.0 2.270E-21 0.0160 467.0 1.870E-21 0.0150 468.0 1.600E-21 0.0150 469.0 1.330E-21 0.0140 470.0 1.080E-21 0.0140 471.0 9.900E-22 0.0140 472.0 8.900E-22 0.0130 473.0 7.700E-22 0.0130 474.0 6.700E-22 0.0130 475.0 6.200E-22 0.0120 476.0 0.000E+00 0.0120 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/MGLY_06 ================================================ MGLY-06 ! CH3COCHO + HV = CH3CO. + HCO. ! IUPAC Subcommittee on Gas Kinetic Data Evaluation Data Sheet P6 ! This datasheet updated: 16th January 2003. ! Website: http://www.iupac-kinetic.ch.cam.ac.uk/. ! Quantum yield calculated from the expression given for 472 torr N2. ! This "pressure" adjustment was made so the calculated photlysis rates ! for solar conditions would agree with the data of Klotz et al (2000) ! for the Euphore outdoor chamber. ! Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 280.0 4.877E-20 0.9840 285.0 4.719E-20 0.9770 290.0 4.838E-20 0.9680 295.0 4.362E-20 0.9560 300.0 3.754E-20 0.9410 305.0 3.361E-20 0.9220 310.0 2.365E-20 0.8970 315.0 1.891E-20 0.8670 320.0 1.511E-20 0.8320 325.0 9.380E-21 0.7900 330.0 6.520E-21 0.7430 335.0 4.820E-21 0.6920 340.0 3.230E-21 0.6370 345.0 3.000E-21 0.5790 350.0 3.940E-21 0.5220 355.0 5.600E-21 0.4650 360.0 6.950E-21 0.4110 365.0 1.077E-20 0.3600 370.0 1.475E-20 0.3130 375.0 1.911E-20 0.2710 380.0 2.429E-20 0.2340 385.0 3.221E-20 0.2000 390.0 4.029E-20 0.1650 395.0 4.732E-20 0.1380 400.0 5.664E-20 0.1150 401.0 5.900E-20 0.1110 402.0 6.070E-20 0.1070 403.0 6.350E-20 0.1040 404.0 6.540E-20 0.1000 405.0 6.910E-20 0.0970 406.0 7.200E-20 0.0930 407.0 7.580E-20 0.0900 408.0 7.940E-20 0.0870 409.0 8.120E-20 0.0840 410.0 8.520E-20 0.0820 411.0 8.630E-20 0.0790 412.0 9.070E-20 0.0760 413.0 9.370E-20 0.0740 414.0 9.620E-20 0.0710 415.0 9.680E-20 0.0690 416.0 9.710E-20 0.0670 417.0 1.004E-19 0.0650 418.0 1.007E-19 0.0630 419.0 1.012E-19 0.0610 420.0 1.021E-19 0.0590 421.0 1.034E-19 0.0570 422.0 1.051E-19 0.0550 423.0 1.045E-19 0.0530 424.0 1.015E-19 0.0520 425.0 1.034E-19 0.0500 426.0 1.024E-19 0.0490 427.0 9.840E-20 0.0470 428.0 1.001E-19 0.0460 429.0 9.940E-20 0.0440 430.0 1.041E-19 0.0430 431.0 1.053E-19 0.0420 432.0 9.790E-20 0.0400 433.0 1.064E-19 0.0390 434.0 1.054E-19 0.0380 435.0 1.081E-19 0.0370 436.0 1.113E-19 0.0360 437.0 9.990E-20 0.0350 438.0 1.059E-19 0.0340 439.0 1.101E-19 0.0330 440.0 9.940E-20 0.0320 441.0 1.039E-19 0.0310 442.0 1.020E-19 0.0300 443.0 1.017E-19 0.0290 444.0 1.117E-19 0.0280 445.0 9.610E-20 0.0280 446.0 8.900E-20 0.0270 447.0 9.840E-20 0.0260 448.0 9.180E-20 0.0250 449.0 1.013E-19 0.0250 450.0 8.670E-20 0.0240 451.0 6.340E-20 0.0230 452.0 6.330E-20 0.0230 453.0 6.080E-20 0.0220 454.0 4.460E-20 0.0210 455.0 3.690E-20 0.0210 456.0 3.080E-20 0.0200 457.0 2.460E-20 0.0200 458.0 1.810E-20 0.0190 459.0 1.280E-20 0.0190 460.0 9.140E-21 0.0180 461.0 7.950E-21 0.0180 462.0 6.420E-21 0.0170 463.0 4.790E-21 0.0170 464.0 3.320E-21 0.0160 465.0 2.680E-21 0.0160 466.0 2.270E-21 0.0160 467.0 1.870E-21 0.0150 468.0 1.600E-21 0.0150 469.0 1.330E-21 0.0140 470.0 1.080E-21 0.0140 471.0 9.900E-22 0.0140 472.0 8.900E-22 0.0130 473.0 7.700E-22 0.0130 474.0 6.700E-22 0.0130 475.0 6.200E-22 0.0120 476.0 0.000E+00 0.0120 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/MGLY_ABS_SAPRC99 ================================================ MGLY_ABS ! Methyl Glyoxal Absorption Cross Sections ! SAPRC-99 Photolysis data. Supplied by William P. L. Carter. ! Created from PhotDat.xls on 29-Jan-2000 10:07 Points (the mechanism was evaluated assuming this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 219.0 9.840E-21 1.000 219.5 1.040E-20 1.000 220.0 1.060E-20 1.000 220.5 1.110E-20 1.000 221.0 1.150E-20 1.000 221.5 1.180E-20 1.000 222.0 1.220E-20 1.000 222.5 1.240E-20 1.000 223.0 1.260E-20 1.000 223.5 1.260E-20 1.000 224.0 1.250E-20 1.000 224.5 1.240E-20 1.000 225.0 1.250E-20 1.000 225.5 1.270E-20 1.000 226.0 1.270E-20 1.000 226.5 1.290E-20 1.000 227.0 1.310E-20 1.000 227.5 1.320E-20 1.000 228.0 1.350E-20 1.000 228.5 1.370E-20 1.000 229.0 1.400E-20 1.000 229.5 1.420E-20 1.000 230.0 1.480E-20 1.000 230.5 1.530E-20 1.000 231.0 1.570E-20 1.000 231.5 1.590E-20 1.000 232.0 1.610E-20 1.000 232.5 1.620E-20 1.000 233.0 1.610E-20 1.000 233.5 1.680E-20 1.000 234.0 1.740E-20 1.000 234.5 1.800E-20 1.000 235.0 1.840E-20 1.000 235.5 1.870E-20 1.000 236.0 1.890E-20 1.000 236.5 1.910E-20 1.000 237.0 1.930E-20 1.000 237.5 1.940E-20 1.000 238.0 1.960E-20 1.000 238.5 1.960E-20 1.000 239.0 2.010E-20 1.000 239.5 2.040E-20 1.000 240.0 2.080E-20 1.000 240.5 2.100E-20 1.000 241.0 2.140E-20 1.000 241.5 2.160E-20 1.000 242.0 2.190E-20 1.000 242.5 2.200E-20 1.000 243.0 2.230E-20 1.000 243.5 2.260E-20 1.000 244.0 2.280E-20 1.000 244.5 2.290E-20 1.000 245.0 2.300E-20 1.000 245.5 2.320E-20 1.000 246.0 2.330E-20 1.000 246.5 2.350E-20 1.000 247.0 2.380E-20 1.000 247.5 2.410E-20 1.000 248.0 2.460E-20 1.000 248.5 2.510E-20 1.000 249.0 2.570E-20 1.000 249.5 2.610E-20 1.000 250.0 2.650E-20 1.000 250.5 2.670E-20 1.000 251.0 2.690E-20 1.000 251.5 2.690E-20 1.000 252.0 2.710E-20 1.000 252.5 2.720E-20 1.000 253.0 2.730E-20 1.000 253.5 2.740E-20 1.000 254.0 2.760E-20 1.000 254.5 2.780E-20 1.000 255.0 2.820E-20 1.000 255.5 2.870E-20 1.000 256.0 2.930E-20 1.000 256.5 2.980E-20 1.000 257.0 3.070E-20 1.000 257.5 3.120E-20 1.000 258.0 3.170E-20 1.000 258.5 3.210E-20 1.000 259.0 3.260E-20 1.000 259.5 3.280E-20 1.000 260.0 3.290E-20 1.000 260.5 3.310E-20 1.000 261.0 3.330E-20 1.000 261.5 3.340E-20 1.000 262.0 3.360E-20 1.000 262.5 3.380E-20 1.000 263.0 3.420E-20 1.000 263.5 3.440E-20 1.000 264.0 3.480E-20 1.000 264.5 3.540E-20 1.000 265.0 3.590E-20 1.000 265.5 3.650E-20 1.000 266.0 3.730E-20 1.000 266.5 3.800E-20 1.000 267.0 3.870E-20 1.000 267.5 3.950E-20 1.000 268.0 4.020E-20 1.000 268.5 4.080E-20 1.000 269.0 4.130E-20 1.000 269.5 4.170E-20 1.000 270.0 4.200E-20 1.000 270.5 4.220E-20 1.000 271.0 4.220E-20 1.000 271.5 4.220E-20 1.000 272.0 4.230E-20 1.000 272.5 4.240E-20 1.000 273.0 4.270E-20 1.000 273.5 4.290E-20 1.000 274.0 4.310E-20 1.000 274.5 4.330E-20 1.000 275.0 4.370E-20 1.000 275.5 4.420E-20 1.000 276.0 4.480E-20 1.000 276.5 4.560E-20 1.000 277.0 4.640E-20 1.000 277.5 4.710E-20 1.000 278.0 4.780E-20 1.000 278.5 4.830E-20 1.000 279.0 4.870E-20 1.000 279.5 4.900E-20 1.000 280.0 4.920E-20 1.000 280.5 4.930E-20 1.000 281.0 4.940E-20 1.000 281.5 4.920E-20 1.000 282.0 4.900E-20 1.000 282.5 4.860E-20 1.000 283.0 4.830E-20 1.000 283.5 4.790E-20 1.000 284.0 4.760E-20 1.000 284.5 4.720E-20 1.000 285.0 4.700E-20 1.000 285.5 4.680E-20 1.000 286.0 4.660E-20 1.000 286.5 4.650E-20 1.000 287.0 4.650E-20 1.000 287.5 4.680E-20 1.000 288.0 4.730E-20 1.000 288.5 4.780E-20 1.000 289.0 4.840E-20 1.000 289.5 4.890E-20 1.000 290.0 4.920E-20 1.000 290.5 4.920E-20 1.000 291.0 4.900E-20 1.000 291.5 4.860E-20 1.000 292.0 4.810E-20 1.000 292.5 4.750E-20 1.000 293.0 4.700E-20 1.000 293.5 4.650E-20 1.000 294.0 4.580E-20 1.000 294.5 4.480E-20 1.000 295.0 4.380E-20 1.000 295.5 4.270E-20 1.000 296.0 4.170E-20 1.000 296.5 4.070E-20 1.000 297.0 3.990E-20 1.000 297.5 3.940E-20 1.000 298.0 3.880E-20 1.000 298.5 3.820E-20 1.000 299.0 3.760E-20 1.000 299.5 3.720E-20 1.000 300.0 3.690E-20 1.000 300.5 3.680E-20 1.000 301.0 3.700E-20 1.000 301.5 3.720E-20 1.000 302.0 3.740E-20 1.000 302.5 3.740E-20 1.000 303.0 3.750E-20 1.000 303.5 3.710E-20 1.000 304.0 3.620E-20 1.000 304.5 3.510E-20 1.000 305.0 3.380E-20 1.000 305.5 3.250E-20 1.000 306.0 3.150E-20 1.000 306.5 3.040E-20 1.000 307.0 2.920E-20 1.000 307.5 2.800E-20 1.000 308.0 2.710E-20 1.000 308.5 2.630E-20 1.000 309.0 2.520E-20 1.000 309.5 2.430E-20 1.000 310.0 2.340E-20 1.000 310.5 2.250E-20 1.000 311.0 2.190E-20 1.000 311.5 2.120E-20 1.000 312.0 2.060E-20 1.000 312.5 2.020E-20 1.000 313.0 1.960E-20 1.000 313.5 1.920E-20 1.000 314.0 1.910E-20 1.000 314.5 1.880E-20 1.000 315.0 1.860E-20 1.000 315.5 1.850E-20 1.000 316.0 1.860E-20 1.000 316.5 1.870E-20 1.000 317.0 1.870E-20 1.000 317.5 1.870E-20 1.000 318.0 1.830E-20 1.000 318.5 1.750E-20 1.000 319.0 1.690E-20 1.000 319.5 1.600E-20 1.000 320.0 1.500E-20 1.000 320.5 1.410E-20 1.000 321.0 1.340E-20 1.000 321.5 1.270E-20 1.000 322.0 1.210E-20 1.000 322.5 1.180E-20 1.000 323.0 1.140E-20 1.000 323.5 1.080E-20 1.000 324.0 1.010E-20 1.000 324.5 9.620E-21 1.000 325.0 9.280E-21 1.000 325.5 8.750E-21 1.000 326.0 8.490E-21 1.000 326.5 8.210E-21 1.000 327.0 7.710E-21 1.000 327.5 7.380E-21 1.000 328.0 7.180E-21 1.000 328.5 6.860E-21 1.000 329.0 6.710E-21 1.000 329.5 6.630E-21 1.000 330.0 6.460E-21 1.000 330.5 6.290E-21 1.000 331.0 6.210E-21 1.000 331.5 6.180E-21 1.000 332.0 6.200E-21 1.000 332.5 5.490E-21 1.000 333.0 5.210E-21 1.000 333.5 5.380E-21 1.000 334.0 5.350E-21 1.000 334.5 5.040E-21 1.000 335.0 4.940E-21 1.000 335.5 4.900E-21 1.000 336.0 4.520E-21 1.000 336.5 4.260E-21 1.000 337.0 4.110E-21 1.000 337.5 3.760E-21 1.000 338.0 3.610E-21 1.000 338.5 3.580E-21 1.000 339.0 3.470E-21 1.000 339.5 3.320E-21 1.000 340.0 3.220E-21 1.000 340.5 3.100E-21 1.000 341.0 3.000E-21 1.000 341.5 2.940E-21 1.000 342.0 2.890E-21 1.000 342.5 2.860E-21 1.000 343.0 2.880E-21 1.000 343.5 2.880E-21 1.000 344.0 2.890E-21 1.000 344.5 2.910E-21 1.000 345.0 2.950E-21 1.000 345.5 3.000E-21 1.000 346.0 3.080E-21 1.000 346.5 3.180E-21 1.000 347.0 3.250E-21 1.000 347.5 3.300E-21 1.000 348.0 3.390E-21 1.000 348.5 3.510E-21 1.000 349.0 3.630E-21 1.000 349.5 3.730E-21 1.000 350.0 3.850E-21 1.000 350.5 3.990E-21 1.000 351.0 4.270E-21 1.000 351.5 4.470E-21 1.000 352.0 4.630E-21 1.000 352.5 4.780E-21 1.000 353.0 4.920E-21 1.000 353.5 5.070E-21 1.000 354.0 5.230E-21 1.000 354.5 5.390E-21 1.000 355.0 5.560E-21 1.000 355.5 5.770E-21 1.000 356.0 5.970E-21 1.000 356.5 6.150E-21 1.000 357.0 6.350E-21 1.000 357.5 6.560E-21 1.000 358.0 6.760E-21 1.000 358.5 6.950E-21 1.000 359.0 7.200E-21 1.000 359.5 7.440E-21 1.000 360.0 7.640E-21 1.000 360.5 7.890E-21 1.000 361.0 8.150E-21 1.000 361.5 8.430E-21 1.000 362.0 8.710E-21 1.000 362.5 9.020E-21 1.000 363.0 9.330E-21 1.000 363.5 9.650E-21 1.000 364.0 1.000E-20 1.000 364.5 1.040E-20 1.000 365.0 1.080E-20 1.000 365.5 1.110E-20 1.000 366.0 1.150E-20 1.000 366.5 1.190E-20 1.000 367.0 1.230E-20 1.000 367.5 1.270E-20 1.000 368.0 1.310E-20 1.000 368.5 1.350E-20 1.000 369.0 1.400E-20 1.000 369.5 1.440E-20 1.000 370.0 1.470E-20 1.000 370.5 1.510E-20 1.000 371.0 1.550E-20 1.000 371.5 1.590E-20 1.000 372.0 1.640E-20 1.000 372.5 1.700E-20 1.000 373.0 1.730E-20 1.000 373.5 1.770E-20 1.000 374.0 1.810E-20 1.000 374.5 1.860E-20 1.000 375.0 1.900E-20 1.000 375.5 1.960E-20 1.000 376.0 2.020E-20 1.000 376.5 2.060E-20 1.000 377.0 2.100E-20 1.000 377.5 2.140E-20 1.000 378.0 2.180E-20 1.000 378.5 2.240E-20 1.000 379.0 2.300E-20 1.000 379.5 2.370E-20 1.000 380.0 2.420E-20 1.000 380.5 2.470E-20 1.000 381.0 2.540E-20 1.000 381.5 2.620E-20 1.000 382.0 2.690E-20 1.000 382.5 2.790E-20 1.000 383.0 2.880E-20 1.000 383.5 2.960E-20 1.000 384.0 3.020E-20 1.000 384.5 3.100E-20 1.000 385.0 3.200E-20 1.000 385.5 3.290E-20 1.000 386.0 3.390E-20 1.000 386.5 3.510E-20 1.000 387.0 3.620E-20 1.000 387.5 3.690E-20 1.000 388.0 3.700E-20 1.000 388.5 3.770E-20 1.000 389.0 3.880E-20 1.000 389.5 3.970E-20 1.000 390.0 4.030E-20 1.000 390.5 4.120E-20 1.000 391.0 4.220E-20 1.000 391.5 4.290E-20 1.000 392.0 4.300E-20 1.000 392.5 4.380E-20 1.000 393.0 4.470E-20 1.000 393.5 4.550E-20 1.000 394.0 4.560E-20 1.000 394.5 4.590E-20 1.000 395.0 4.670E-20 1.000 395.5 4.800E-20 1.000 396.0 4.870E-20 1.000 396.5 4.960E-20 1.000 397.0 5.080E-20 1.000 397.5 5.190E-20 1.000 398.0 5.230E-20 1.000 398.5 5.390E-20 1.000 399.0 5.460E-20 1.000 399.5 5.540E-20 1.000 400.0 5.590E-20 1.000 400.5 5.770E-20 1.000 401.0 5.910E-20 1.000 401.5 5.990E-20 1.000 402.0 6.060E-20 1.000 402.5 6.200E-20 1.000 403.0 6.350E-20 1.000 403.5 6.520E-20 1.000 404.0 6.540E-20 1.000 404.5 6.640E-20 1.000 405.0 6.930E-20 1.000 405.5 7.150E-20 1.000 406.0 7.190E-20 1.000 406.5 7.320E-20 1.000 407.0 7.580E-20 1.000 407.5 7.880E-20 1.000 408.0 7.970E-20 1.000 408.5 7.910E-20 1.000 409.0 8.110E-20 1.000 409.5 8.410E-20 1.000 410.0 8.530E-20 1.000 410.5 8.590E-20 1.000 411.0 8.600E-20 1.000 411.5 8.800E-20 1.000 412.0 9.040E-20 1.000 412.5 9.450E-20 1.000 413.0 9.340E-20 1.000 413.5 9.370E-20 1.000 414.0 9.630E-20 1.000 414.5 9.710E-20 1.000 415.0 9.700E-20 1.000 415.5 9.650E-20 1.000 416.0 9.690E-20 1.000 416.5 9.890E-20 1.000 417.0 1.000E-19 1.000 417.5 1.020E-19 1.000 418.0 1.000E-19 1.000 418.5 1.020E-19 1.000 419.0 1.010E-19 1.000 419.5 1.010E-19 1.000 420.0 1.030E-19 1.000 420.5 1.010E-19 1.000 421.0 1.040E-19 1.000 421.5 1.050E-19 1.000 422.0 1.060E-19 1.000 422.5 1.040E-19 1.000 423.0 1.050E-19 1.000 423.5 1.050E-19 1.000 424.0 1.010E-19 1.000 424.5 1.010E-19 1.000 425.0 1.050E-19 1.000 425.5 1.030E-19 1.000 426.0 1.020E-19 1.000 426.5 1.010E-19 1.000 427.0 9.770E-20 1.000 427.5 9.810E-20 1.000 428.0 1.000E-19 1.000 428.5 1.020E-19 1.000 429.0 9.890E-20 1.000 429.5 9.850E-20 1.000 430.0 1.040E-19 1.000 430.5 1.080E-19 1.000 431.0 1.050E-19 1.000 431.5 1.020E-19 1.000 432.0 9.640E-20 1.000 432.5 1.010E-19 1.000 433.0 1.060E-19 1.000 433.5 1.090E-19 1.000 434.0 1.040E-19 1.000 434.5 1.030E-19 1.000 435.0 1.070E-19 1.000 435.5 1.160E-19 1.000 436.0 1.090E-19 1.000 436.5 1.110E-19 1.000 437.0 9.810E-20 1.000 437.5 9.710E-20 1.000 438.0 1.060E-19 1.000 438.5 1.160E-19 1.000 439.0 1.080E-19 1.000 439.5 1.050E-19 1.000 440.0 9.700E-20 1.000 440.5 1.010E-19 1.000 441.0 1.040E-19 1.000 441.5 1.070E-19 1.000 442.0 1.020E-19 1.000 442.5 9.680E-20 1.000 443.0 1.000E-19 1.000 443.5 1.140E-19 1.000 444.0 1.130E-19 1.000 444.5 1.030E-19 1.000 445.0 9.740E-20 1.000 445.5 8.460E-20 1.000 446.0 8.700E-20 1.000 446.5 9.970E-20 1.000 447.0 1.010E-19 1.000 447.5 9.150E-20 1.000 448.0 9.410E-20 1.000 448.5 8.990E-20 1.000 449.0 1.100E-19 1.000 449.5 9.120E-20 1.000 450.0 8.560E-20 1.000 450.5 8.280E-20 1.000 451.0 6.150E-20 1.000 451.5 5.560E-20 1.000 452.0 6.470E-20 1.000 452.5 7.270E-20 1.000 453.0 5.750E-20 1.000 453.5 5.080E-20 1.000 454.0 4.380E-20 1.000 454.5 3.810E-20 1.000 455.0 3.610E-20 1.000 455.5 3.610E-20 1.000 456.0 3.130E-20 1.000 456.5 2.720E-20 1.000 457.0 2.440E-20 1.000 457.5 2.220E-20 1.000 458.0 1.820E-20 1.000 458.5 1.430E-20 1.000 459.0 1.320E-20 1.000 459.5 1.050E-20 1.000 460.0 8.950E-21 1.000 460.5 8.900E-21 1.000 461.0 7.940E-21 1.000 461.5 7.040E-21 1.000 462.0 6.460E-21 1.000 462.5 5.630E-21 1.000 463.0 4.780E-21 1.000 463.5 3.940E-21 1.000 464.0 3.260E-21 1.000 464.5 2.970E-21 1.000 465.0 2.650E-21 1.000 465.5 2.460E-21 1.000 466.0 2.270E-21 1.000 466.5 2.080E-21 1.000 467.0 1.860E-21 1.000 467.5 1.760E-21 1.000 468.0 1.600E-21 1.000 468.5 1.440E-21 1.000 469.0 1.340E-21 1.000 469.5 1.200E-21 1.000 470.0 1.070E-21 1.000 470.5 1.020E-21 1.000 471.0 9.920E-22 1.000 471.5 9.970E-22 1.000 472.0 8.870E-22 1.000 472.5 8.270E-22 1.000 473.0 7.760E-22 1.000 473.5 7.150E-22 1.000 474.0 6.710E-22 1.000 474.5 6.670E-22 1.000 475.0 6.100E-22 1.000 475.5 6.170E-22 1.000 476.0 5.540E-22 1.000 476.5 5.220E-22 1.000 477.0 5.100E-22 1.000 477.5 5.170E-22 1.000 478.0 4.800E-22 1.000 478.5 4.710E-22 1.000 479.0 4.600E-22 1.000 479.5 4.350E-22 1.000 480.0 3.900E-22 1.000 480.5 3.710E-22 1.000 481.0 3.620E-22 1.000 481.5 3.520E-22 1.000 482.0 3.050E-22 1.000 482.5 3.050E-22 1.000 483.0 2.860E-22 1.000 483.5 2.530E-22 1.000 484.0 2.750E-22 1.000 484.5 2.590E-22 1.000 485.0 2.470E-22 1.000 485.5 2.360E-22 1.000 486.0 2.120E-22 1.000 486.5 1.890E-22 1.000 487.0 1.930E-22 1.000 487.5 1.860E-22 1.000 488.0 1.820E-22 1.000 488.5 1.750E-22 1.000 489.0 1.740E-22 1.000 489.5 1.720E-22 1.000 490.0 1.660E-22 1.000 490.5 1.750E-22 1.000 491.0 1.540E-22 1.000 491.5 1.740E-22 1.000 492.0 1.630E-22 1.000 492.5 1.530E-22 1.000 493.0 1.520E-22 1.000 493.5 5.850E-23 1.000 494.0 0.000E+00 1.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/MGLY_ADJ_SAPRC99 ================================================ MGLY_ADJ ! MGLY + HV = PRODUCTS ! SAPRC-99 Photolysis data. Supplied by William P. L. Carter. ! Created from PhotDat.xls on 29-Jan-2000 10:07 Points (the mechanism was evaluated assuming this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 219.0 9.840E-21 1.000 219.5 1.040E-20 1.000 220.0 1.060E-20 1.000 220.5 1.110E-20 1.000 221.0 1.150E-20 1.000 221.5 1.180E-20 1.000 222.0 1.220E-20 1.000 222.5 1.240E-20 1.000 223.0 1.260E-20 1.000 223.5 1.260E-20 1.000 224.0 1.250E-20 1.000 224.5 1.240E-20 1.000 225.0 1.250E-20 1.000 225.5 1.270E-20 1.000 226.0 1.270E-20 1.000 226.5 1.290E-20 1.000 227.0 1.310E-20 1.000 227.5 1.320E-20 1.000 228.0 1.350E-20 1.000 228.5 1.370E-20 1.000 229.0 1.400E-20 1.000 229.5 1.420E-20 1.000 230.0 1.480E-20 1.000 230.5 1.530E-20 1.000 231.0 1.570E-20 1.000 231.5 1.590E-20 1.000 232.0 1.610E-20 1.000 232.5 1.620E-20 1.000 233.0 1.610E-20 1.000 233.5 1.680E-20 1.000 234.0 1.740E-20 1.000 234.5 1.800E-20 1.000 235.0 1.840E-20 1.000 235.5 1.870E-20 1.000 236.0 1.890E-20 1.000 236.5 1.910E-20 1.000 237.0 1.930E-20 1.000 237.5 1.940E-20 1.000 238.0 1.960E-20 1.000 238.5 1.960E-20 1.000 239.0 2.010E-20 1.000 239.5 2.040E-20 1.000 240.0 2.080E-20 1.000 240.5 2.100E-20 1.000 241.0 2.140E-20 1.000 241.5 2.160E-20 1.000 242.0 2.190E-20 1.000 242.5 2.200E-20 1.000 243.0 2.230E-20 1.000 243.5 2.260E-20 1.000 244.0 2.280E-20 1.000 244.5 2.290E-20 1.000 245.0 2.300E-20 1.000 245.5 2.320E-20 1.000 246.0 2.330E-20 1.000 246.5 2.350E-20 1.000 247.0 2.380E-20 1.000 247.5 2.410E-20 1.000 248.0 2.460E-20 1.000 248.5 2.510E-20 1.000 249.0 2.570E-20 1.000 249.5 2.610E-20 1.000 250.0 2.650E-20 1.000 250.5 2.670E-20 1.000 251.0 2.690E-20 1.000 251.5 2.690E-20 1.000 252.0 2.710E-20 1.000 252.5 2.720E-20 1.000 253.0 2.730E-20 1.000 253.5 2.740E-20 1.000 254.0 2.760E-20 1.000 254.5 2.780E-20 1.000 255.0 2.820E-20 1.000 255.5 2.870E-20 1.000 256.0 2.930E-20 1.000 256.5 2.980E-20 1.000 257.0 3.070E-20 1.000 257.5 3.120E-20 1.000 258.0 3.170E-20 1.000 258.5 3.210E-20 1.000 259.0 3.260E-20 1.000 259.5 3.280E-20 1.000 260.0 3.290E-20 1.000 260.5 3.310E-20 1.000 261.0 3.330E-20 1.000 261.5 3.340E-20 1.000 262.0 3.360E-20 1.000 262.5 3.380E-20 1.000 263.0 3.420E-20 1.000 263.5 3.440E-20 1.000 264.0 3.480E-20 1.000 264.5 3.540E-20 1.000 265.0 3.590E-20 1.000 265.5 3.650E-20 1.000 266.0 3.730E-20 1.000 266.5 3.800E-20 1.000 267.0 3.870E-20 1.000 267.5 3.950E-20 1.000 268.0 4.020E-20 1.000 268.5 4.080E-20 1.000 269.0 4.130E-20 1.000 269.5 4.170E-20 1.000 270.0 4.200E-20 1.000 270.5 4.220E-20 1.000 271.0 4.220E-20 1.000 271.5 4.220E-20 1.000 272.0 4.230E-20 1.000 272.5 4.240E-20 1.000 273.0 4.270E-20 1.000 273.5 4.290E-20 1.000 274.0 4.310E-20 1.000 274.5 4.330E-20 1.000 275.0 4.370E-20 1.000 275.5 4.420E-20 1.000 276.0 4.480E-20 1.000 276.5 4.560E-20 1.000 277.0 4.640E-20 1.000 277.5 4.710E-20 1.000 278.0 4.780E-20 1.000 278.5 4.830E-20 1.000 279.0 4.870E-20 1.000 279.5 4.900E-20 1.000 280.0 4.920E-20 1.000 280.5 4.930E-20 1.000 281.0 4.940E-20 1.000 281.5 4.920E-20 1.000 282.0 4.900E-20 1.000 282.5 4.860E-20 1.000 283.0 4.830E-20 1.000 283.5 4.790E-20 1.000 284.0 4.760E-20 1.000 284.5 4.720E-20 1.000 285.0 4.700E-20 1.000 285.5 4.680E-20 1.000 286.0 4.660E-20 1.000 286.5 4.650E-20 1.000 287.0 4.650E-20 1.000 287.5 4.680E-20 1.000 288.0 4.730E-20 1.000 288.5 4.780E-20 1.000 289.0 4.840E-20 1.000 289.5 4.890E-20 1.000 290.0 4.920E-20 1.000 290.5 4.920E-20 1.000 291.0 4.900E-20 1.000 291.5 4.860E-20 1.000 292.0 4.810E-20 1.000 292.5 4.750E-20 1.000 293.0 4.700E-20 1.000 293.5 4.650E-20 1.000 294.0 4.580E-20 1.000 294.5 4.480E-20 1.000 295.0 4.380E-20 1.000 295.5 4.270E-20 1.000 296.0 4.170E-20 1.000 296.5 4.070E-20 1.000 297.0 3.990E-20 1.000 297.5 3.940E-20 1.000 298.0 3.880E-20 1.000 298.5 3.820E-20 1.000 299.0 3.760E-20 1.000 299.5 3.720E-20 1.000 300.0 3.690E-20 1.000 300.5 3.680E-20 1.000 301.0 3.700E-20 1.000 301.5 3.720E-20 1.000 302.0 3.740E-20 1.000 302.5 3.740E-20 1.000 303.0 3.750E-20 1.000 303.5 3.710E-20 1.000 304.0 3.620E-20 1.000 304.5 3.510E-20 1.000 305.0 3.380E-20 1.000 305.5 3.250E-20 1.000 306.0 3.150E-20 1.000 306.5 3.040E-20 1.000 307.0 2.920E-20 1.000 307.5 2.800E-20 1.000 308.0 2.710E-20 1.000 308.5 2.630E-20 1.000 309.0 2.520E-20 1.000 309.5 2.430E-20 1.000 310.0 2.340E-20 1.000 310.5 2.250E-20 1.000 311.0 2.190E-20 1.000 311.5 2.120E-20 1.000 312.0 2.060E-20 1.000 312.5 2.020E-20 1.000 313.0 1.960E-20 1.000 313.5 1.920E-20 1.000 314.0 1.910E-20 1.000 314.5 1.880E-20 1.000 315.0 1.860E-20 1.000 315.5 1.850E-20 1.000 316.0 1.860E-20 1.000 316.5 1.870E-20 1.000 317.0 1.870E-20 1.000 317.5 1.870E-20 1.000 318.0 1.830E-20 1.000 318.5 1.750E-20 1.000 319.0 1.690E-20 1.000 319.5 1.600E-20 1.000 320.0 1.500E-20 1.000 320.5 1.410E-20 1.000 321.0 1.340E-20 1.000 321.5 1.270E-20 1.000 322.0 1.210E-20 1.000 322.5 1.180E-20 1.000 323.0 1.140E-20 1.000 323.5 1.080E-20 1.000 324.0 1.010E-20 1.000 324.5 9.620E-21 1.000 325.0 9.280E-21 1.000 325.5 8.750E-21 1.000 326.0 8.490E-21 1.000 326.5 8.210E-21 1.000 327.0 7.710E-21 1.000 327.5 7.380E-21 1.000 328.0 7.180E-21 1.000 328.5 6.860E-21 1.000 329.0 6.710E-21 1.000 329.5 6.630E-21 1.000 330.0 6.460E-21 1.000 330.5 6.290E-21 1.000 331.0 6.210E-21 1.000 331.5 6.180E-21 1.000 332.0 6.200E-21 1.000 332.5 5.490E-21 1.000 333.0 5.210E-21 1.000 333.5 5.380E-21 1.000 334.0 5.350E-21 1.000 334.5 5.040E-21 1.000 335.0 4.940E-21 1.000 335.5 4.900E-21 1.000 336.0 4.520E-21 1.000 336.5 4.260E-21 1.000 337.0 4.110E-21 1.000 337.5 3.760E-21 1.000 338.0 3.610E-21 1.000 338.5 3.580E-21 1.000 339.0 3.470E-21 1.000 339.5 3.320E-21 1.000 340.0 3.220E-21 1.000 340.5 3.100E-21 1.000 341.0 3.000E-21 1.000 341.5 2.940E-21 1.000 342.0 2.890E-21 1.000 342.5 2.860E-21 1.000 343.0 2.880E-21 1.000 343.5 2.880E-21 1.000 344.0 2.890E-21 0.992 344.5 2.910E-21 0.984 345.0 2.950E-21 0.976 345.5 3.000E-21 0.968 346.0 3.080E-21 0.960 346.5 3.180E-21 0.953 347.0 3.250E-21 0.945 347.5 3.300E-21 0.937 348.0 3.390E-21 0.929 348.5 3.510E-21 0.921 349.0 3.630E-21 0.913 349.5 3.730E-21 0.905 350.0 3.850E-21 0.897 350.5 3.990E-21 0.889 351.0 4.270E-21 0.881 351.5 4.470E-21 0.873 352.0 4.630E-21 0.865 352.5 4.780E-21 0.858 353.0 4.920E-21 0.850 353.5 5.070E-21 0.842 354.0 5.230E-21 0.834 354.5 5.390E-21 0.826 355.0 5.560E-21 0.818 355.5 5.770E-21 0.810 356.0 5.970E-21 0.802 356.5 6.150E-21 0.794 357.0 6.350E-21 0.786 357.5 6.560E-21 0.778 358.0 6.760E-21 0.770 358.5 6.950E-21 0.763 359.0 7.200E-21 0.755 359.5 7.440E-21 0.747 360.0 7.640E-21 0.739 360.5 7.890E-21 0.731 361.0 8.150E-21 0.723 361.5 8.430E-21 0.715 362.0 8.710E-21 0.707 362.5 9.020E-21 0.699 363.0 9.330E-21 0.691 363.5 9.650E-21 0.683 364.0 1.000E-20 0.675 364.5 1.040E-20 0.668 365.0 1.080E-20 0.660 365.5 1.110E-20 0.652 366.0 1.150E-20 0.644 366.5 1.190E-20 0.636 367.0 1.230E-20 0.628 367.5 1.270E-20 0.620 368.0 1.310E-20 0.612 368.5 1.350E-20 0.604 369.0 1.400E-20 0.596 369.5 1.440E-20 0.588 370.0 1.470E-20 0.580 370.5 1.510E-20 0.573 371.0 1.550E-20 0.565 371.5 1.590E-20 0.557 372.0 1.640E-20 0.549 372.5 1.700E-20 0.541 373.0 1.730E-20 0.533 373.5 1.770E-20 0.525 374.0 1.810E-20 0.517 374.5 1.860E-20 0.509 375.0 1.900E-20 0.501 375.5 1.960E-20 0.493 376.0 2.020E-20 0.486 376.5 2.060E-20 0.478 377.0 2.100E-20 0.470 377.5 2.140E-20 0.462 378.0 2.180E-20 0.454 378.5 2.240E-20 0.446 379.0 2.300E-20 0.438 379.5 2.370E-20 0.430 380.0 2.420E-20 0.422 380.5 2.470E-20 0.414 381.0 2.540E-20 0.406 381.5 2.620E-20 0.398 382.0 2.690E-20 0.391 382.5 2.790E-20 0.383 383.0 2.880E-20 0.375 383.5 2.960E-20 0.367 384.0 3.020E-20 0.359 384.5 3.100E-20 0.351 385.0 3.200E-20 0.343 385.5 3.290E-20 0.335 386.0 3.390E-20 0.327 386.5 3.510E-20 0.319 387.0 3.620E-20 0.311 387.5 3.690E-20 0.303 388.0 3.700E-20 0.296 388.5 3.770E-20 0.288 389.0 3.880E-20 0.280 389.5 3.970E-20 0.272 390.0 4.030E-20 0.264 390.5 4.120E-20 0.256 391.0 4.220E-20 0.248 391.5 4.290E-20 0.240 392.0 4.300E-20 0.232 392.5 4.380E-20 0.224 393.0 4.470E-20 0.216 393.5 4.550E-20 0.208 394.0 4.560E-20 0.201 394.5 4.590E-20 0.193 395.0 4.670E-20 0.185 395.5 4.800E-20 0.177 396.0 4.870E-20 0.169 396.5 4.960E-20 0.161 397.0 5.080E-20 0.153 397.5 5.190E-20 0.145 398.0 5.230E-20 0.137 398.5 5.390E-20 0.129 399.0 5.460E-20 0.121 399.5 5.540E-20 0.113 400.0 5.590E-20 0.106 400.5 5.770E-20 0.098 401.0 5.910E-20 0.090 401.5 5.990E-20 0.082 402.0 6.060E-20 0.074 402.5 6.200E-20 0.066 403.0 6.350E-20 0.058 403.5 6.520E-20 0.050 404.0 6.540E-20 0.042 404.5 6.640E-20 0.034 405.0 6.930E-20 0.026 405.5 7.150E-20 0.018 406.0 7.190E-20 0.011 406.5 7.320E-20 0.003 407.0 7.580E-20 0.000 407.5 7.880E-20 0.000 408.0 7.970E-20 0.000 408.5 7.910E-20 0.000 409.0 8.110E-20 0.000 409.5 8.410E-20 0.000 410.0 8.530E-20 0.000 410.5 8.590E-20 0.000 411.0 8.600E-20 0.000 411.5 8.800E-20 0.000 412.0 9.040E-20 0.000 412.5 9.450E-20 0.000 413.0 9.340E-20 0.000 413.5 9.370E-20 0.000 414.0 9.630E-20 0.000 414.5 9.710E-20 0.000 415.0 9.700E-20 0.000 415.5 9.650E-20 0.000 416.0 9.690E-20 0.000 416.5 9.890E-20 0.000 417.0 1.000E-19 0.000 417.5 1.020E-19 0.000 418.0 1.000E-19 0.000 418.5 1.020E-19 0.000 419.0 1.010E-19 0.000 419.5 1.010E-19 0.000 420.0 1.030E-19 0.000 420.5 1.010E-19 0.000 421.0 1.040E-19 0.000 421.5 1.050E-19 0.000 422.0 1.060E-19 0.000 422.5 1.040E-19 0.000 423.0 1.050E-19 0.000 423.5 1.050E-19 0.000 424.0 1.010E-19 0.000 424.5 1.010E-19 0.000 425.0 1.050E-19 0.000 425.5 1.030E-19 0.000 426.0 1.020E-19 0.000 426.5 1.010E-19 0.000 427.0 9.770E-20 0.000 427.5 9.810E-20 0.000 428.0 1.000E-19 0.000 428.5 1.020E-19 0.000 429.0 9.890E-20 0.000 429.5 9.850E-20 0.000 430.0 1.040E-19 0.000 430.5 1.080E-19 0.000 431.0 1.050E-19 0.000 431.5 1.020E-19 0.000 432.0 9.640E-20 0.000 432.5 1.010E-19 0.000 433.0 1.060E-19 0.000 433.5 1.090E-19 0.000 434.0 1.040E-19 0.000 434.5 1.030E-19 0.000 435.0 1.070E-19 0.000 435.5 1.160E-19 0.000 436.0 1.090E-19 0.000 436.5 1.110E-19 0.000 437.0 9.810E-20 0.000 437.5 9.710E-20 0.000 438.0 1.060E-19 0.000 438.5 1.160E-19 0.000 439.0 1.080E-19 0.000 439.5 1.050E-19 0.000 440.0 9.700E-20 0.000 440.5 1.010E-19 0.000 441.0 1.040E-19 0.000 441.5 1.070E-19 0.000 442.0 1.020E-19 0.000 442.5 9.680E-20 0.000 443.0 1.000E-19 0.000 443.5 1.140E-19 0.000 444.0 1.130E-19 0.000 444.5 1.030E-19 0.000 445.0 9.740E-20 0.000 445.5 8.460E-20 0.000 446.0 8.700E-20 0.000 446.5 9.970E-20 0.000 447.0 1.010E-19 0.000 447.5 9.150E-20 0.000 448.0 9.410E-20 0.000 448.5 8.990E-20 0.000 449.0 1.100E-19 0.000 449.5 9.120E-20 0.000 450.0 8.560E-20 0.000 450.5 8.280E-20 0.000 451.0 6.150E-20 0.000 451.5 5.560E-20 0.000 452.0 6.470E-20 0.000 452.5 7.270E-20 0.000 453.0 5.750E-20 0.000 453.5 5.080E-20 0.000 454.0 4.380E-20 0.000 454.5 3.810E-20 0.000 455.0 3.610E-20 0.000 455.5 3.610E-20 0.000 456.0 3.130E-20 0.000 456.5 2.720E-20 0.000 457.0 2.440E-20 0.000 457.5 2.220E-20 0.000 458.0 1.820E-20 0.000 458.5 1.430E-20 0.000 459.0 1.320E-20 0.000 459.5 1.050E-20 0.000 460.0 8.950E-21 0.000 460.5 8.900E-21 0.000 461.0 7.940E-21 0.000 461.5 7.040E-21 0.000 462.0 6.460E-21 0.000 462.5 5.630E-21 0.000 463.0 4.780E-21 0.000 463.5 3.940E-21 0.000 464.0 3.260E-21 0.000 464.5 2.970E-21 0.000 465.0 2.650E-21 0.000 465.5 2.460E-21 0.000 466.0 2.270E-21 0.000 466.5 2.080E-21 0.000 467.0 1.860E-21 0.000 467.5 1.760E-21 0.000 468.0 1.600E-21 0.000 468.5 1.440E-21 0.000 469.0 1.340E-21 0.000 469.5 1.200E-21 0.000 470.0 1.070E-21 0.000 470.5 1.020E-21 0.000 471.0 9.920E-22 0.000 471.5 9.970E-22 0.000 472.0 8.870E-22 0.000 472.5 8.270E-22 0.000 473.0 7.760E-22 0.000 473.5 7.150E-22 0.000 474.0 6.710E-22 0.000 474.5 6.670E-22 0.000 475.0 6.100E-22 0.000 475.5 6.170E-22 0.000 476.0 5.540E-22 0.000 476.5 5.220E-22 0.000 477.0 5.100E-22 0.000 477.5 5.170E-22 0.000 478.0 4.800E-22 0.000 478.5 4.710E-22 0.000 479.0 4.600E-22 0.000 479.5 4.350E-22 0.000 480.0 3.900E-22 0.000 480.5 3.710E-22 0.000 481.0 3.620E-22 0.000 481.5 3.520E-22 0.000 482.0 3.050E-22 0.000 482.5 3.050E-22 0.000 483.0 2.860E-22 0.000 483.5 2.530E-22 0.000 484.0 2.750E-22 0.000 484.5 2.590E-22 0.000 485.0 2.470E-22 0.000 485.5 2.360E-22 0.000 486.0 2.120E-22 0.000 486.5 1.890E-22 0.000 487.0 1.930E-22 0.000 487.5 1.860E-22 0.000 488.0 1.820E-22 0.000 488.5 1.750E-22 0.000 489.0 1.740E-22 0.000 489.5 1.720E-22 0.000 490.0 1.660E-22 0.000 490.5 1.750E-22 0.000 491.0 1.540E-22 0.000 491.5 1.740E-22 0.000 492.0 1.630E-22 0.000 492.5 1.530E-22 0.000 493.0 1.520E-22 0.000 493.5 5.850E-23 0.000 494.0 0.000E+00 0.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/MGLY_IUPAC04 ================================================ MGLY_IUPAC04 !CH3COCHO + hv ---> CH3CO + HCO ! From IUPAC Subcommittee on Gas Kinetic Data Evaluation; IUPAC Stern-Volmer expression ! Data Sheet P6_CH3COCHO+hv.pdf, updated 16th Jan, 2003 ! Website: http://www.iupac-kinetic.ch.cam.ac.uk/ Points ( These are point values) ! Units: wavelength/[nm], cross-section/[cm^2], Quantum yields > 380 nm evaluated at 760 Torr using FAC=1.0 275.0 4.413E-20 1.00 280.0 4.877E-20 1.00 285.0 4.719E-20 1.00 290.0 4.838E-20 1.00 295.0 4.362E-20 1.00 300.0 3.754E-20 1.00 305.0 3.361E-20 1.00 310.0 2.365E-20 1.00 315.0 1.891E-20 1.00 320.0 1.511E-20 1.00 325.0 9.380E-21 1.00 330.0 6.520E-21 1.00 335.0 4.820E-21 1.00 340.0 3.230E-21 1.00 345.0 3.000E-21 1.00 350.0 3.940E-21 1.00 355.0 5.600E-21 1.00 360.0 6.950E-21 1.00 365.0 1.077E-20 1.00 370.0 1.475E-20 1.00 375.0 1.911E-20 1.00 380.0 2.429E-20 1.00 385.0 3.221E-20 0.132 390.0 4.029E-20 0.109 395.0 4.732E-20 0.091 400.0 5.664E-20 0.076 401.0 5.900E-20 0.073 402.0 6.070E-20 0.071 403.0 6.350E-20 0.069 404.0 6.540E-20 0.066 405.0 6.910E-20 0.064 406.0 7.200E-20 0.062 407.0 7.580E-20 0.060 408.0 7.940E-20 0.058 409.0 8.120E-20 0.056 410.0 8.520E-20 0.054 411.0 8.630E-20 0.052 412.0 9.070E-20 0.050 413.0 9.370E-20 0.049 414.0 9.620E-20 0.047 415.0 9.680E-20 0.046 416.0 9.710E-20 0.044 417.0 1.004E-19 0.043 418.0 1.007E-19 0.041 419.0 1.012E-19 0.040 420.0 1.021E-19 0.039 421.0 1.034E-19 0.038 422.0 1.051E-19 0.036 423.0 1.045E-19 0.035 424.0 1.015E-19 0.034 425.0 1.034E-19 0.033 426.0 1.024E-19 0.032 427.0 9.840E-20 0.031 428.0 1.001E-19 0.030 429.0 9.940E-20 0.029 430.0 1.041E-19 0.028 431.0 1.053E-19 0.028 432.0 9.790E-20 0.027 433.0 1.064E-19 0.026 434.0 1.054E-19 0.025 435.0 1.081E-19 0.024 436.0 1.113E-19 0.024 437.0 9.990E-20 0.023 438.0 1.059E-19 0.022 439.0 1.101E-19 0.022 440.0 9.940E-20 0.021 441.0 1.039E-19 0.021 442.0 1.020E-19 0.020 443.0 1.017E-19 0.019 444.0 1.117E-19 0.019 445.0 9.610E-20 0.018 446.0 8.900E-20 0.018 447.0 9.840E-20 0.017 448.0 9.180E-20 0.017 449.0 1.013E-19 0.016 450.0 8.670E-20 0.016 451.0 6.340E-20 0.015 452.0 6.330E-20 0.015 453.0 6.080E-20 0.015 454.0 4.460E-20 0.014 455.0 3.690E-20 0.014 456.0 3.080E-20 0.013 457.0 2.460E-20 0.013 458.0 1.810E-20 0.013 459.0 1.280E-20 0.012 460.0 9.140E-21 0.012 461.0 7.950E-21 0.012 462.0 6.420E-21 0.011 463.0 4.790E-21 0.011 464.0 3.320E-21 0.011 465.0 2.680E-21 0.011 466.0 2.270E-21 0.010 467.0 1.870E-21 0.010 468.0 1.600E-21 0.010 469.0 1.330E-21 0.010 470.0 1.080E-21 0.009 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/MGLY_IUPAC10 ================================================ MGLY_IUPAC10 ! CH3COCHO + hv ---> CH3CO + HCO ! consitent with IUPAC Subcommittee on Gas Kinetic Data Evaluation ! Data Sheet P6, updated 16th Jan, 2003 ! cross-section combine from the two IUPAC 2006 recommendations ! on the MPI-Mainz UV/VIS Spectral Atlas ! http://satellite.mpic.de/spectral_atlas/cross_sections ! for =< 440 nm ! quantum yields from IUPAC formula with pressure at 760 torr ! for > 440 nm ! set to zero ! These are point values Begining (the mechanism evaluated with this format) !WL(nm) XSEC(cm2) QY FAC=1.0 225.0 1.268E-20 1.000 230.0 1.477E-20 1.000 235.0 1.803E-20 0.999 240.0 2.071E-20 0.999 245.0 2.304E-20 0.999 250.0 2.612E-20 0.998 255.0 2.859E-20 0.996 260.0 3.280E-20 0.994 265.0 3.618E-20 0.992 270.0 4.159E-20 0.988 275.0 4.413E-20 0.982 280.0 4.877E-20 0.974 285.0 4.719E-20 0.964 290.0 4.838E-20 0.950 295.0 4.362E-20 0.932 300.0 3.754E-20 0.909 305.0 3.361E-20 0.879 310.0 2.365E-20 0.844 315.0 1.891E-20 0.802 320.0 1.511E-20 0.754 325.0 9.380E-21 0.700 330.0 6.520E-21 0.643 335.0 4.820E-21 0.582 340.0 3.230E-21 0.521 345.0 3.000E-21 0.461 350.0 3.940E-21 0.404 355.0 5.600E-21 0.351 360.0 6.950E-21 0.302 365.0 1.077E-20 0.259 370.0 1.475E-20 0.221 375.0 1.911E-20 0.188 380.0 2.429E-20 0.160 385.0 3.221E-20 0.135 390.0 4.029E-20 0.112 395.0 4.732E-20 0.093 400.0 5.664E-20 0.078 405.0 6.923E-20 0.065 410.0 8.459E-20 0.055 411.0 8.630E-20 0.053 412.0 9.070E-20 0.051 413.0 9.370E-20 0.050 414.0 9.620E-20 0.048 415.0 9.680E-20 0.047 416.0 9.710E-20 0.045 417.0 1.004E-19 0.044 418.0 1.007E-19 0.042 419.0 1.012E-19 0.041 420.0 1.021E-19 0.040 421.0 1.034E-19 0.038 422.0 1.051E-19 0.037 423.0 1.045E-19 0.036 424.0 1.015E-19 0.035 425.0 1.034E-19 0.034 426.0 1.024E-19 0.033 427.0 9.840E-20 0.032 428.0 1.001E-19 0.031 429.0 9.940E-20 0.030 430.0 1.041E-19 0.029 431.0 1.053E-19 0.028 432.0 9.790E-20 0.027 433.0 1.064E-19 0.026 434.0 1.054E-19 0.026 435.0 1.081E-19 0.025 436.0 1.113E-19 0.024 437.0 9.990E-20 0.023 438.0 1.059E-19 0.023 439.0 1.101E-19 0.022 440.0 9.940E-20 0.000 441.0 1.039E-19 0.000 442.0 1.020E-19 0.000 443.0 1.017E-19 0.000 444.0 1.117E-19 0.000 445.0 9.610E-20 0.000 446.0 8.900E-20 0.000 447.0 9.840E-20 0.000 448.0 9.180E-20 0.000 449.0 1.013E-19 0.000 450.0 8.670E-20 0.000 451.0 6.340E-20 0.000 452.0 6.330E-20 0.000 453.0 6.080E-20 0.000 454.0 4.460E-20 0.000 455.0 3.690E-20 0.000 456.0 3.080E-20 0.000 457.0 2.460E-20 0.000 458.0 1.810E-20 0.000 459.0 1.280E-20 0.000 460.0 9.140E-21 0.000 461.0 7.950E-21 0.000 462.0 6.420E-21 0.000 463.0 4.790E-21 0.000 464.0 3.320E-21 0.000 465.0 2.680E-21 0.000 466.0 2.270E-21 0.000 467.0 1.870E-21 0.000 468.0 1.600E-21 0.000 469.0 1.330E-21 0.000 470.0 1.080E-21 0.000 471.0 9.900E-22 0.000 472.0 8.900E-22 0.000 473.0 7.700E-22 0.000 474.0 6.700E-22 0.000 475.0 6.200E-22 0.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/MGLY_RACM2 ================================================ MGLY_RACM2 ! MGLY + HV = ACO3 + HO2 + CO ! Absorption x-section from NASA 2006 ! Quantum yield from NASA 2006 ! Supplied by Dr. Wendy Goliff, reformatted by Dr. Golam Sarwar to make it compatible with CMAQ Points ! With FAC, units are (cm^2/molecule) FAC=1.0 186.1 0.000E+00 1.000 187.8 0.000E+00 1.000 189.6 0.000E+00 1.000 191.4 0.000E+00 1.000 193.3 0.000E+00 1.000 195.2 0.000E+00 1.000 197.1 0.000E+00 1.000 199.0 0.000E+00 1.000 201.0 0.000E+00 1.000 203.1 0.000E+00 1.000 205.2 0.000E+00 1.000 207.3 0.000E+00 1.000 209.4 0.000E+00 1.000 211.7 0.000E+00 1.000 213.9 0.000E+00 1.000 216.2 0.000E+00 1.000 218.6 0.000E+00 1.000 221.0 0.000E+00 1.000 223.5 0.000E+00 1.000 226.0 0.131E-19 1.000 228.6 0.142E-19 1.000 231.3 0.156E-19 1.000 234.0 0.174E-19 1.000 236.7 0.189E-19 1.000 239.6 0.205E-19 1.000 242.5 0.219E-19 1.000 245.4 0.233E-19 1.000 248.5 0.252E-19 1.000 251.6 0.269E-19 1.000 254.8 0.285E-19 1.000 258.2 0.313E-19 1.000 261.5 0.338E-19 1.000 265.0 0.362E-19 1.000 268.5 0.394E-19 1.000 272.2 0.427E-19 1.000 275.9 0.450E-19 1.000 279.8 0.486E-19 1.000 283.7 0.476E-19 1.000 287.8 0.479E-19 1.000 292.0 0.465E-19 1.000 296.3 0.420E-19 1.000 300.5 0.371E-19 1.000 303.0 0.352E-19 1.000 304.0 0.344E-19 1.000 305.0 0.336E-19 1.000 306.0 0.316E-19 1.000 307.0 0.296E-19 1.000 308.0 0.276E-19 1.000 309.0 0.256E-19 1.000 310.0 0.237E-19 1.000 311.0 0.227E-19 1.000 312.0 0.218E-19 1.000 313.0 0.208E-19 1.000 314.0 0.199E-19 1.000 316.0 0.182E-19 1.000 320.0 0.151E-19 1.000 325.0 0.938E-20 1.000 330.0 0.652E-20 1.000 335.0 0.482E-20 1.000 340.0 0.323E-20 1.000 345.0 0.300E-20 1.000 350.0 0.394E-20 1.000 355.0 0.560E-20 1.000 360.0 0.695E-20 1.000 365.0 0.108E-19 1.000 370.0 0.148E-19 1.000 375.0 0.191E-19 1.000 380.0 0.243E-19 1.000 385.0 0.322E-19 1.000 390.0 0.403E-19 1.000 395.0 0.473E-19 0.697 400.0 0.566E-19 0.560 405.0 0.692E-19 0.429 410.0 0.846E-19 0.320 415.0 0.968E-19 0.288 420.0 0.103E-18 0.270 425.0 0.102E-18 0.225 430.0 0.101E-18 0.200 435.0 0.106E-18 0.191 440.0 0.104E-18 0.017 445.0 0.994E-19 0.005 450.0 0.813E-19 0.005 455.0 0.395E-19 0.005 460.0 0.109E-19 0.005 465.0 0.327E-20 0.005 470.0 0.000E+00 0.005 475.0 0.000E+00 0.005 480.0 0.000E+00 0.000 485.0 0.000E+00 0.000 490.0 0.000E+00 0.000 495.0 0.000E+00 0.000 500.0 0.000E+00 0.000 505.0 0.000E+00 0.000 510.0 0.000E+00 0.000 515.0 0.000E+00 0.000 520.0 0.000E+00 0.000 525.0 0.000E+00 0.000 530.0 0.000E+00 0.000 535.0 0.000E+00 0.000 540.0 0.000E+00 0.000 545.0 0.000E+00 0.000 550.0 0.000E+00 0.000 555.0 0.000E+00 0.000 560.0 0.000E+00 0.000 565.0 0.000E+00 0.000 570.0 0.000E+00 0.000 575.0 0.000E+00 0.000 580.0 0.000E+00 0.000 585.0 0.000E+00 0.000 590.0 0.000E+00 0.000 595.0 0.000E+00 0.000 600.0 0.000E+00 0.000 605.0 0.000E+00 0.000 610.0 0.000E+00 0.000 615.0 0.000E+00 0.000 620.0 0.000E+00 0.000 625.0 0.000E+00 0.000 630.0 0.000E+00 0.000 635.0 0.000E+00 0.000 640.0 0.000E+00 0.000 644.8 0.000E+00 0.000 651.0 0.000E+00 0.000 660.0 0.000E+00 0.000 670.0 0.000E+00 0.000 680.0 0.000E+00 0.000 690.0 0.000E+00 0.000 700.0 0.000E+00 0.000 710.0 0.000E+00 0.000 720.0 0.000E+00 0.000 730.0 0.000E+00 0.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/MGLY_RADM88 ================================================ MGLY_RADM88 ! Methyl Glyoxal Photolysis (MGLY) ! CH3COCHO + hv -> ACO3 + HO2 + CO ! Absorption CS from Plum et al. (1983); ! Carter's recommendation for low/high band quantum yields ! format: wl, abs_cs, qy Beginning ! With FAC, units are (cm^2/molecule) FAC=1.0 232.558 1.234E-20 1.000E+00 235.294 1.469E-20 1.000E+00 238.095 1.693E-20 1.000E+00 240.964 1.701E-20 1.000E+00 243.902 1.672E-20 1.000E+00 246.914 1.754E-20 1.000E+00 250.000 1.800E-20 1.000E+00 253.165 1.809E-20 1.000E+00 256.410 1.892E-20 1.000E+00 259.740 1.993E-20 1.000E+00 263.158 2.117E-20 1.000E+00 266.667 2.377E-20 1.000E+00 270.270 2.606E-20 1.000E+00 273.973 2.794E-20 1.000E+00 277.778 2.961E-20 1.000E+00 281.690 2.928E-20 1.000E+00 285.714 2.928E-20 1.000E+00 289.855 2.711E-20 1.000E+00 294.118 2.319E-20 1.000E+00 298.500 2.138E-20 1.000E+00 302.500 1.930E-20 1.000E+00 303.500 1.840E-20 1.000E+00 304.500 1.749E-20 1.000E+00 305.500 1.650E-20 1.000E+00 306.500 1.550E-20 1.000E+00 307.500 1.450E-20 1.000E+00 308.500 1.350E-20 1.000E+00 309.500 1.260E-20 1.000E+00 310.500 1.230E-20 1.000E+00 311.500 1.210E-20 1.000E+00 312.500 1.190E-20 1.000E+00 313.500 1.170E-20 1.000E+00 314.500 1.036E-20 1.000E+00 317.500 6.437E-21 1.000E+00 322.500 4.000E-21 1.000E+00 327.500 2.000E-21 1.000E+00 332.500 2.500E-22 1.000E+00 337.500 0.000E+00 1.000E+00 342.500 0.000E+00 1.070E-01 347.500 0.000E+00 1.070E-01 352.500 7.232E-22 1.070E-01 357.500 2.464E-21 1.070E-01 362.500 4.000E-21 1.070E-01 367.500 5.547E-21 1.070E-01 372.500 8.000E-21 1.070E-01 377.500 1.083E-20 1.070E-01 382.500 1.506E-20 1.070E-01 387.500 1.988E-20 1.070E-01 392.500 2.400E-20 1.070E-01 397.500 2.875E-20 1.070E-01 402.500 3.750E-20 1.070E-01 407.500 4.416E-20 1.070E-01 412.500 4.819E-20 1.070E-01 417.500 4.958E-20 1.070E-01 422.500 4.972E-20 1.070E-01 427.500 5.184E-20 1.070E-01 432.500 5.868E-20 1.070E-01 437.500 6.007E-20 1.070E-01 442.500 6.055E-20 1.070E-01 447.500 5.402E-20 1.070E-01 452.500 2.975E-20 1.070E-01 457.500 6.964E-21 1.070E-01 462.500 2.000E-21 1.070E-01 467.500 0.000E+00 1.070E-01 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/MHP_NASA94 ================================================ MHP_NASA94 ! Methyl Hydrogen Peroxide Photolysis (MHP) ! CH3OOH + hv -> products ! Taken from NASA (1994) ! format: wl, abs_cs, qy Centered ! With FAC, units are (cm^2/molecule) FAC=1.0 203.100 0.000E+00 1.000E+00 205.100 1.759E-19 1.000E+00 207.300 3.120E-19 1.000E+00 209.400 3.120E-19 1.000E+00 211.600 3.120E-19 1.000E+00 213.900 3.083E-19 1.000E+00 216.200 1.540E-19 1.000E+00 218.600 1.540E-19 1.000E+00 221.000 1.540E-19 1.000E+00 223.500 1.540E-19 1.000E+00 226.000 1.026E-19 1.000E+00 228.600 9.620E-20 1.000E+00 231.200 9.620E-20 1.000E+00 233.900 9.236E-20 1.000E+00 236.700 6.050E-20 1.000E+00 239.500 6.050E-20 1.000E+00 242.400 6.050E-20 1.000E+00 245.400 4.735E-20 1.000E+00 248.500 3.980E-20 1.000E+00 251.600 3.980E-20 1.000E+00 254.800 3.363E-20 1.000E+00 258.100 2.560E-20 1.000E+00 261.400 2.560E-20 1.000E+00 264.900 2.151E-20 1.000E+00 268.500 1.700E-20 1.000E+00 272.100 1.700E-20 1.000E+00 275.900 1.255E-20 1.000E+00 279.700 1.090E-20 1.000E+00 283.700 1.019E-20 1.000E+00 287.800 6.900E-21 1.000E+00 292.000 6.900E-21 1.000E+00 296.300 4.664E-21 1.000E+00 300.500 4.100E-21 1.000E+00 303.000 4.100E-21 1.000E+00 304.000 4.100E-21 1.000E+00 305.000 3.250E-21 1.000E+00 306.000 2.400E-21 1.000E+00 307.000 2.400E-21 1.000E+00 308.000 2.400E-21 1.000E+00 309.000 2.400E-21 1.000E+00 310.000 2.400E-21 1.000E+00 311.000 2.400E-21 1.000E+00 312.000 2.400E-21 1.000E+00 313.000 2.400E-21 1.000E+00 314.000 2.400E-21 1.000E+00 316.000 1.567E-21 1.000E+00 320.000 1.400E-21 1.000E+00 325.000 1.095E-21 1.000E+00 330.000 7.900E-22 1.000E+00 335.000 6.300E-22 1.000E+00 340.000 4.700E-22 1.000E+00 345.000 3.700E-22 1.000E+00 350.000 2.700E-22 1.000E+00 355.000 2.150E-22 1.000E+00 360.000 1.600E-22 1.000E+00 365.000 8.000E-23 1.000E+00 370.000 0.000E+00 1.000E+00 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/MHP_RADM88 ================================================ MHP_RADM88 ! Methyl Hydrogen Peroxide Photolysis (MHP) ! CH3OOH + hv -> products ! Abs CS based on Molina and Arguello [1979]; ! QY assumed to be unity over UV absorption range ! format: wl, abs_cs, qy Beginning ! With FAC, units are (cm^2/molecule) FAC=1.0 210.526 3.495E-19 1.000E+00 212.766 3.144E-19 1.000E+00 215.054 2.786E-19 1.000E+00 217.391 2.419E-19 1.000E+00 219.780 2.120E-19 1.000E+00 222.222 1.919E-19 1.000E+00 224.719 1.714E-19 1.000E+00 227.273 1.505E-19 1.000E+00 229.885 1.328E-19 1.000E+00 232.558 1.190E-19 1.000E+00 235.294 1.049E-19 1.000E+00 238.095 9.074E-20 1.000E+00 240.964 8.070E-20 1.000E+00 243.902 7.178E-20 1.000E+00 246.914 6.263E-20 1.000E+00 250.000 5.484E-20 1.000E+00 253.165 4.843E-20 1.000E+00 256.410 4.185E-20 1.000E+00 259.740 3.612E-20 1.000E+00 263.158 3.161E-20 1.000E+00 266.667 2.699E-20 1.000E+00 270.270 2.288E-20 1.000E+00 273.973 1.912E-20 1.000E+00 277.778 1.541E-20 1.000E+00 281.690 1.278E-20 1.000E+00 285.714 1.033E-20 1.000E+00 289.855 8.365E-21 1.000E+00 294.118 6.981E-21 1.000E+00 298.500 5.702E-21 1.000E+00 302.500 5.080E-21 1.000E+00 303.500 4.840E-21 1.000E+00 304.500 4.600E-21 1.000E+00 305.500 4.360E-21 1.000E+00 306.500 4.120E-21 1.000E+00 307.500 3.880E-21 1.000E+00 308.500 3.640E-21 1.000E+00 309.500 3.411E-21 1.000E+00 310.500 3.250E-21 1.000E+00 311.500 3.100E-21 1.000E+00 312.500 2.950E-21 1.000E+00 313.500 2.800E-21 1.000E+00 314.500 2.500E-21 1.000E+00 317.500 1.944E-21 1.000E+00 322.500 1.500E-21 1.000E+00 327.500 1.119E-21 1.000E+00 332.500 8.500E-22 1.000E+00 337.500 6.187E-22 1.000E+00 342.500 5.000E-22 1.000E+00 347.500 3.875E-22 1.000E+00 352.500 2.000E-22 1.000E+00 357.500 0.000E+00 1.000E+00 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/MI2_IUPAC10 ================================================ MI2_IUPAC10 ! MI2 + HV = 2.0*I ! MI2 Photolysis data ! Supplied by Golam Sarwar ! Created from IUPAC dataset PI12 Points (these data can be treated as point values) ! With FAC, units are (cm^2/molecule) FAC=1.0 205.0 4.070E-18 1.000 210.0 4.040E-18 1.000 215.0 3.220E-18 1.000 220.0 2.600E-18 1.000 225.0 1.980E-18 1.000 230.0 1.320E-18 1.000 235.0 1.090E-18 1.000 240.0 1.230E-18 1.000 245.0 1.500E-18 1.000 250.0 1.570E-18 1.000 255.0 1.400E-18 1.000 260.0 1.200E-18 1.000 265.0 1.300E-18 1.000 270.0 1.790E-18 1.000 275.0 2.550E-18 1.000 280.0 3.280E-18 1.000 285.0 3.730E-18 1.000 290.0 3.810E-18 1.000 295.0 3.720E-18 1.000 300.0 3.570E-18 1.000 305.0 3.380E-18 1.000 310.0 3.140E-18 1.000 315.0 2.800E-18 1.000 320.0 2.440E-18 1.000 325.0 2.030E-18 1.000 330.0 1.610E-18 1.000 335.0 1.200E-18 1.000 340.0 8.330E-19 1.000 345.0 5.370E-19 1.000 350.0 3.260E-19 1.000 355.0 1.920E-19 1.000 360.0 1.090E-19 1.000 365.0 6.050E-20 1.000 370.0 3.400E-20 1.000 375.0 1.930E-20 1.000 380.0 1.160E-20 1.000 385.0 7.700E-21 1.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/MIB_IUPAC10 ================================================ MIB_IUPAC10 ! MIB + HV = I + BR ! MIB Photolysis data ! Supplied by Golam Sarwar ! Created from IUPAC dataset PI11 Points (these data can be treated as point values) ! With FAC, units are (cm^2/molecule) FAC=1.0 215.0 5.670E-18 1.000 220.0 4.230E-18 1.000 225.0 2.690E-18 1.000 230.0 1.550E-18 1.000 235.0 9.790E-19 1.000 240.0 8.090E-19 1.000 245.0 9.370E-19 1.000 250.0 1.250E-18 1.000 255.0 1.700E-18 1.000 260.0 2.070E-18 1.000 265.0 2.280E-18 1.000 270.0 2.290E-18 1.000 275.0 2.140E-18 1.000 280.0 1.840E-18 1.000 285.0 1.500E-18 1.000 290.0 1.100E-18 1.000 295.0 8.250E-19 1.000 300.0 6.060E-19 1.000 305.0 4.290E-19 1.000 310.0 3.140E-19 1.000 315.0 2.310E-19 1.000 320.0 1.680E-19 1.000 325.0 1.150E-19 1.000 330.0 8.020E-20 1.000 335.0 5.520E-20 1.000 340.0 3.500E-20 1.000 345.0 2.240E-20 1.000 350.0 1.410E-20 1.000 355.0 8.170E-21 1.000 360.0 4.980E-21 1.000 365.0 3.020E-21 1.000 370.0 1.650E-21 1.000 375.0 9.800E-22 1.000 380.0 7.000E-22 1.000 385.0 3.900E-22 1.000 390.0 2.500E-22 1.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/MIC_IUPAC10 ================================================ MIC_IUPAC10 ! MIC + HV = I + CL ! MIC Photolysis data ! Supplied by Golam Sarwar ! Created from IUPAC dataset PI10 Points (these data can be treated as point values) ! With FAC, units are (cm^2/molecule) FAC=1.0 205.0 1.220E-18 1.000 210.0 3.910E-19 1.000 215.0 1.030E-19 1.000 220.0 7.000E-20 1.000 225.0 9.060E-20 1.000 230.0 1.380E-19 1.000 235.0 2.120E-19 1.000 240.0 3.180E-19 1.000 245.0 4.560E-19 1.000 250.0 6.290E-19 1.000 255.0 8.400E-19 1.000 260.0 1.050E-18 1.000 265.0 1.210E-18 1.000 270.0 1.270E-18 1.000 275.0 1.200E-18 1.000 280.0 1.030E-18 1.000 285.0 8.070E-19 1.000 290.0 5.810E-19 1.000 295.0 3.980E-19 1.000 300.0 2.590E-19 1.000 305.0 1.670E-19 1.000 310.0 1.090E-19 1.000 315.0 7.160E-20 1.000 320.0 4.790E-20 1.000 325.0 3.230E-20 1.000 330.0 2.140E-20 1.000 335.0 1.400E-20 1.000 340.0 9.050E-21 1.000 345.0 5.690E-21 1.000 350.0 3.500E-21 1.000 355.0 2.250E-21 1.000 360.0 1.380E-21 1.000 365.0 8.100E-22 1.000 370.0 4.800E-22 1.000 375.0 2.700E-22 1.000 380.0 1.700E-22 1.000 385.0 8.000E-23 1.000 390.0 6.000E-23 1.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/MVK-06 ================================================ MVK-06 ! MVK total photolysis ! IUPAC Subcommittee on Gas Kinetic Data Evaluation Data Sheet P10 ! Website: http://www.iupac-kinetic.ch.cam.ac.uk/ ! This datasheet updated: 9th August 2002. ! Decline in absorption cross sections with wavelength above 395 nm estimated by ! linear interpolation. ! Quantum yields for all photodecomposition processes. IUPAC recommends ~60% for ! propene formation, rest radical forming routes. ! Quantum yields calculated for 1 atm overpredicts photolysis rates for chamber ! experiments that gives best fits to data. Effective pressure increased to 5 atm ! to give overall quantum yields that are consistent with modeling chamber data. ! Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 250.0 2.410E-21 0.2050 251.0 2.410E-21 0.1940 252.0 2.240E-21 0.1830 253.0 2.410E-21 0.1740 254.0 2.410E-21 0.1640 255.0 2.580E-21 0.1560 256.0 2.750E-21 0.1470 257.0 2.750E-21 0.1390 258.0 2.930E-21 0.1320 259.0 3.100E-21 0.1250 260.0 3.270E-21 0.1180 261.0 3.610E-21 0.1120 262.0 3.790E-21 0.1060 263.0 3.960E-21 0.1000 264.0 4.300E-21 0.0950 265.0 4.650E-21 0.0900 266.0 4.990E-21 0.0850 267.0 5.340E-21 0.0800 268.0 5.680E-21 0.0760 269.0 6.200E-21 0.0720 270.0 6.540E-21 0.0680 271.0 7.060E-21 0.0650 272.0 7.570E-21 0.0610 273.0 8.090E-21 0.0580 274.0 8.780E-21 0.0550 275.0 9.290E-21 0.0520 276.0 9.980E-21 0.0490 277.0 1.080E-20 0.0460 278.0 1.150E-20 0.0440 279.0 1.240E-20 0.0420 280.0 1.330E-20 0.0390 281.0 1.410E-20 0.0370 282.0 1.500E-20 0.0350 283.0 1.600E-20 0.0330 284.0 1.700E-20 0.0320 285.0 1.810E-20 0.0300 286.0 1.910E-20 0.0280 287.0 2.030E-20 0.0270 288.0 2.150E-20 0.0250 289.0 2.290E-20 0.0240 290.0 2.430E-20 0.0230 291.0 2.550E-20 0.0210 292.0 2.670E-20 0.0200 293.0 2.810E-20 0.0190 294.0 2.930E-20 0.0180 295.0 3.080E-20 0.0170 296.0 3.240E-20 0.0160 297.0 3.390E-20 0.0150 298.0 3.560E-20 0.0150 299.0 3.700E-20 0.0140 300.0 3.870E-20 0.0130 301.0 4.040E-20 0.0120 302.0 4.200E-20 0.0120 303.0 4.350E-20 0.0110 304.0 4.510E-20 0.0110 305.0 4.660E-20 0.0100 306.0 4.820E-20 0.0090 307.0 4.960E-20 0.0090 308.0 5.130E-20 0.0080 309.0 5.300E-20 0.0080 310.0 5.440E-20 0.0080 311.0 5.580E-20 0.0070 312.0 5.730E-20 0.0070 313.0 5.870E-20 0.0060 314.0 6.020E-20 0.0060 315.0 6.140E-20 0.0060 316.0 6.280E-20 0.0050 317.0 6.420E-20 0.0050 318.0 6.540E-20 0.0050 319.0 6.630E-20 0.0050 320.0 6.700E-20 0.0040 321.0 6.760E-20 0.0040 322.0 6.830E-20 0.0040 323.0 6.850E-20 0.0040 324.0 6.880E-20 0.0030 325.0 6.950E-20 0.0030 326.0 7.020E-20 0.0030 327.0 7.090E-20 0.0030 328.0 7.160E-20 0.0030 329.0 7.230E-20 0.0030 330.0 7.280E-20 0.0030 331.0 7.300E-20 0.0020 332.0 7.260E-20 0.0020 333.0 7.180E-20 0.0020 334.0 7.040E-20 0.0020 335.0 6.940E-20 0.0020 336.0 6.850E-20 0.0020 337.0 6.700E-20 0.0020 338.0 6.560E-20 0.0020 339.0 6.470E-20 0.0020 340.0 6.440E-20 0.0010 341.0 6.420E-20 0.0010 342.0 6.350E-20 0.0010 343.0 6.350E-20 0.0010 344.0 6.300E-20 0.0010 345.0 6.230E-20 0.0010 346.0 6.140E-20 0.0010 347.0 6.080E-20 0.0010 348.0 5.770E-20 0.0010 349.0 5.470E-20 0.0010 350.0 5.200E-20 0.0010 351.0 4.940E-20 0.0010 352.0 4.720E-20 0.0010 353.0 4.530E-20 0.0010 354.0 4.320E-20 0.0010 355.0 4.150E-20 0.0010 356.0 4.030E-20 0.0010 357.0 3.940E-20 0.0010 358.0 3.890E-20 0.0010 359.0 3.890E-20 0.0010 360.0 3.680E-20 0.0000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/MVKN_RACM2 ================================================ MVKN_RACM2 ! MVKN + hv = GLYC + NO2 + ACO3 j(noa2) ! ! nitrooxy-acetone (NOA) photolysis quantum yields ! cross section based on Roberts and Fajer (1989). ! Mller et al. 2014 define the cross-section enhancement rnk of a carbonyl nitrate(Fig. 1) ! quantum yield based on Mller (2014). ! They estimate the average quantum yield to be 0.9 for NOA (noa1 here) ! and 0.75 for 3-nitrooxy-2-butanone (MVKN) (noa2 "here)," with an estimated error of ca. 0.2. ! The value of 0.9 is a factor of 4 higher than the MCMv3.2 averaged quantum yiel for "NOA," ! Made by Azimeh Zare ! quantum yield based on Mller (2014). ! They estimate the average quantum yield to be 0.9 for NOA (no2 here) ! and 0.75 for 3-nitrooxy-2-butanone (MVKN) (noa2 "here)," with an estimated error of ca. 0.2. ! The value of 0.75 is a factor of 4 higher than the MCMv3.2 averaged quantum yield for "NOA," Points (the mechanism evaluated with this format) ! With "FAC," units are (cm^2/molecule) FAC=1.0 ! NOA !rnk2 245 2.29E-19 0.75 !2.29E-19 1 250 1.47E-19 0.75 !1.47E-19 1 255 1.07E-19 0.75 !1.07E-19 1 260 8.53E-20 0.75 !8.53E-20 1 265 7.63E-20 0.75 !7.63E-20 1 270 8.75E-20 0.75 !7.29E-20 1.2 275 8.42E-20 0.75 !7.02E-20 1.2 280 7.67E-20 0.75 !6.67E-20 1.15 285 7.25E-20 0.75 !6.25E-20 1.16 290 7.00E-20 0.75 !5.83E-20 1.2 295 6.73E-20 0.75 !5.18E-20 1.3 300 6.94E-20 0.75 !4.48E-20 1.55 305 6.14E-20 0.75 !3.61E-20 1.7 310 5.11E-20 0.75 !2.69E-20 1.9 315 4.09E-20 0.75 !1.86E-20 2.2 320 3.67E-20 0.75 !1.31E-20 2.8 325 2.92E-20 0.75 !7.90E-21 3.7 330 2.37E-20 0.75 !4.55E-21 5.2 335 1.25E-20 0.75 !2.20E-21 5.7 340 8.00E-21 0.75 !1.60E-21 5 345 0.00E+00 0.75 !0.00E+00 1 350 0.00E+00 0.75 !0.00E+00 1 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/MVK_06 ================================================ MVK-06 ! MVK total photolysis ! IUPAC Subcommittee on Gas Kinetic Data Evaluation Data Sheet P10 ! Website: http://www.iupac-kinetic.ch.cam.ac.uk/ ! This datasheet updated: 9th August 2002. ! Decline in absorption cross sections with wavelength above 395 nm estimated by ! linear interpolation. ! Quantum yields for all photodecomposition processes. IUPAC recommends ~60% for ! propene formation, rest radical forming routes. ! Quantum yields calculated for 1 atm overpredicts photolysis rates for chamber ! experiments that gives best fits to data. Effective pressure increased to 5 atm ! to give overall quantum yields that are consistent with modeling chamber data. ! Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 250.0 2.410E-21 0.2050 251.0 2.410E-21 0.1940 252.0 2.240E-21 0.1830 253.0 2.410E-21 0.1740 254.0 2.410E-21 0.1640 255.0 2.580E-21 0.1560 256.0 2.750E-21 0.1470 257.0 2.750E-21 0.1390 258.0 2.930E-21 0.1320 259.0 3.100E-21 0.1250 260.0 3.270E-21 0.1180 261.0 3.610E-21 0.1120 262.0 3.790E-21 0.1060 263.0 3.960E-21 0.1000 264.0 4.300E-21 0.0950 265.0 4.650E-21 0.0900 266.0 4.990E-21 0.0850 267.0 5.340E-21 0.0800 268.0 5.680E-21 0.0760 269.0 6.200E-21 0.0720 270.0 6.540E-21 0.0680 271.0 7.060E-21 0.0650 272.0 7.570E-21 0.0610 273.0 8.090E-21 0.0580 274.0 8.780E-21 0.0550 275.0 9.290E-21 0.0520 276.0 9.980E-21 0.0490 277.0 1.080E-20 0.0460 278.0 1.150E-20 0.0440 279.0 1.240E-20 0.0420 280.0 1.330E-20 0.0390 281.0 1.410E-20 0.0370 282.0 1.500E-20 0.0350 283.0 1.600E-20 0.0330 284.0 1.700E-20 0.0320 285.0 1.810E-20 0.0300 286.0 1.910E-20 0.0280 287.0 2.030E-20 0.0270 288.0 2.150E-20 0.0250 289.0 2.290E-20 0.0240 290.0 2.430E-20 0.0230 291.0 2.550E-20 0.0210 292.0 2.670E-20 0.0200 293.0 2.810E-20 0.0190 294.0 2.930E-20 0.0180 295.0 3.080E-20 0.0170 296.0 3.240E-20 0.0160 297.0 3.390E-20 0.0150 298.0 3.560E-20 0.0150 299.0 3.700E-20 0.0140 300.0 3.870E-20 0.0130 301.0 4.040E-20 0.0120 302.0 4.200E-20 0.0120 303.0 4.350E-20 0.0110 304.0 4.510E-20 0.0110 305.0 4.660E-20 0.0100 306.0 4.820E-20 0.0090 307.0 4.960E-20 0.0090 308.0 5.130E-20 0.0080 309.0 5.300E-20 0.0080 310.0 5.440E-20 0.0080 311.0 5.580E-20 0.0070 312.0 5.730E-20 0.0070 313.0 5.870E-20 0.0060 314.0 6.020E-20 0.0060 315.0 6.140E-20 0.0060 316.0 6.280E-20 0.0050 317.0 6.420E-20 0.0050 318.0 6.540E-20 0.0050 319.0 6.630E-20 0.0050 320.0 6.700E-20 0.0040 321.0 6.760E-20 0.0040 322.0 6.830E-20 0.0040 323.0 6.850E-20 0.0040 324.0 6.880E-20 0.0030 325.0 6.950E-20 0.0030 326.0 7.020E-20 0.0030 327.0 7.090E-20 0.0030 328.0 7.160E-20 0.0030 329.0 7.230E-20 0.0030 330.0 7.280E-20 0.0030 331.0 7.300E-20 0.0020 332.0 7.260E-20 0.0020 333.0 7.180E-20 0.0020 334.0 7.040E-20 0.0020 335.0 6.940E-20 0.0020 336.0 6.850E-20 0.0020 337.0 6.700E-20 0.0020 338.0 6.560E-20 0.0020 339.0 6.470E-20 0.0020 340.0 6.440E-20 0.0010 341.0 6.420E-20 0.0010 342.0 6.350E-20 0.0010 343.0 6.350E-20 0.0010 344.0 6.300E-20 0.0010 345.0 6.230E-20 0.0010 346.0 6.140E-20 0.0010 347.0 6.080E-20 0.0010 348.0 5.770E-20 0.0010 349.0 5.470E-20 0.0010 350.0 5.200E-20 0.0010 351.0 4.940E-20 0.0010 352.0 4.720E-20 0.0010 353.0 4.530E-20 0.0010 354.0 4.320E-20 0.0010 355.0 4.150E-20 0.0010 356.0 4.030E-20 0.0010 357.0 3.940E-20 0.0010 358.0 3.890E-20 0.0010 359.0 3.890E-20 0.0010 360.0 3.680E-20 0.0000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/MVK_MCMv32 ================================================ MVK_MCMv32 !Methyl vinyl ketone CH2COCHCH2 Cross-sections and quantum ! !MVK --> CH3CH=CH2 + CO !MVK --> CH2CHCO + CH3 ! !MPI_Mainz Spectral Atlas (http://www.atmosphere.mpg.de) ! !Recommended values from IUPAC 2005 Datasheet P10 ! http://www.iupac-kinetic.ch.cam.ac.uk ! References ! T. Gierczak, J.B. Burkholder, R.K. Talukdar, A. Mellouki, S.B. Barone, ! and A.R. Ravishankara: Atmospheric fate of methyl vinyl ketone and ! methacrolein, J. Photochem. Photobiol. A: Chem. 110, 1-10 (1997) ! Cross-Section at T = 298 K, resolution = 1 nm ! Total quantum, phi equals ! exp(0.055*(Lambda-308))/(5.5+9.2E-19*M) ! where lambda is wavelength in nm and M is air number density in ! molecules/cm3 ! ! phi1 for CH3CH=CH2 + CO ! phi2 for CH2CHCO + CH3 ! phi1=0.5*phi, slightly lower than IUPAC recommendation, 0.60*phi ! phi2=0.5*phi, higher than IUPAC recommendation, 0.40*phi ! Note: IUPAC suggests third channel, C2H3+CH3CO is insignificant ! in !wl,nm XC(cm2) QY Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 250 2.41E-21 0.431686824 251 2.41E-21 0.408585167 252 2.24E-21 0.386719792 253 2.41E-21 0.36602454 254 2.41E-21 0.346436791 255 2.58E-21 0.327897277 256 2.75E-21 0.310349903 257 2.75E-21 0.293741574 258 2.93E-21 0.278022037 259 3.10E-21 0.263143729 260 3.27E-21 0.249061631 261 3.61E-21 0.235733135 262 3.79E-21 0.223117911 263 3.96E-21 0.211177789 264 4.30E-21 0.199876641 265 4.65E-21 0.189180272 266 4.99E-21 0.179056318 267 5.34E-21 0.169474145 268 5.68E-21 0.160404761 269 6.20E-21 0.151820724 270 6.54E-21 0.143696061 271 7.06E-21 0.136006187 272 7.57E-21 0.128727836 273 8.09E-21 0.121838985 274 8.78E-21 0.11531879 275 9.29E-21 0.109147522 276 9.98E-21 0.103306509 277 1.08E-20 0.097778076 278 1.15E-20 0.092545497 279 1.24E-20 0.087592938 280 1.33E-20 0.082905415 281 1.41E-20 0.078468744 282 1.50E-20 0.074269501 283 1.60E-20 0.070294979 284 1.70E-20 0.066533154 285 1.81E-20 0.062972642 286 1.91E-20 0.05960267 287 2.03E-20 0.056413042 288 2.15E-20 0.053394107 289 2.29E-20 0.050536729 290 2.43E-20 0.047832263 291 2.55E-20 0.045272527 292 2.67E-20 0.042849774 293 2.81E-20 0.040556675 294 2.93E-20 0.038386291 295 3.08E-20 0.036332054 296 3.24E-20 0.034387749 297 3.39E-20 0.032547494 298 3.56E-20 0.03080572 299 3.70E-20 0.029157156 300 3.87E-20 0.027596815 301 4.04E-20 0.026119976 302 4.20E-20 0.024722169 303 4.35E-20 0.023399166 304 4.51E-20 0.022146963 305 4.66E-20 0.020961772 306 4.82E-20 0.019840006 307 4.96E-20 0.018778271 308 5.13E-20 0.017773354 309 5.30E-20 0.016822216 310 5.44E-20 0.015921977 311 5.58E-20 0.015069915 312 5.73E-20 0.014263451 313 5.87E-20 0.013500144 314 6.02E-20 0.012777686 315 6.14E-20 0.01209389 316 6.28E-20 0.011446687 317 6.42E-20 0.01083412 318 6.54E-20 0.010254333 319 6.63E-20 0.009705574 320 6.70E-20 0.009186182 321 6.76E-20 0.008694585 322 6.83E-20 0.008229295 323 6.85E-20 0.007788906 324 6.88E-20 0.007372084 325 6.95E-20 0.006977568 326 7.02E-20 0.006604164 327 7.09E-20 0.006250743 328 7.16E-20 0.005916236 329 7.23E-20 0.005599629 330 7.28E-20 0.005299966 331 7.30E-20 0.005016339 332 7.26E-20 0.00474789 333 7.18E-20 0.004493808 334 7.04E-20 0.004253322 335 6.94E-20 0.004025706 336 6.85E-20 0.003810271 337 6.70E-20 0.003606365 338 6.56E-20 0.003413371 339 6.47E-20 0.003230705 340 6.44E-20 0.003057814 341 6.42E-20 0.002894176 342 6.35E-20 0.002739294 343 6.35E-20 0.002592701 344 6.30E-20 0.002453953 345 6.23E-20 0.002322631 346 6.14E-20 0.002198335 347 6.08E-20 0.002080692 348 5.77E-20 0.001969344 349 5.47E-20 0.001863955 350 5.20E-20 0.001764205 351 4.94E-20 0.001669794 352 4.72E-20 0.001580435 353 4.53E-20 0.001495859 354 4.32E-20 0.001415808 355 4.15E-20 0.001340041 356 4.03E-20 0.001268329 357 3.94E-20 0.001200455 358 3.89E-20 0.001136213 359 3.89E-20 0.001075408 360 3.68E-20 0.001017858 361 3.60E-20 0.000963387 362 3.49E-20 0.000911832 363 3.36E-20 0.000863035 364 3.29E-20 0.00081685 365 3.03E-20 0.000773137 366 2.77E-20 0.000731762 367 2.50E-20 0.000692602 368 2.20E-20 0.000655538 369 2.01E-20 0.000620457 370 1.88E-20 0.000587253 371 1.74E-20 0.000555826 372 1.58E-20 0.000526081 373 1.48E-20 0.000497928 374 1.39E-20 0.000471282 375 1.31E-20 0.000446061 376 1.26E-20 0.00042219 377 1.24E-20 0.000399597 378 1.20E-20 0.000378212 379 1.20E-20 0.000357972 380 1.05E-20 0.000338815 381 9.81E-21 0.000320684 382 9.12E-21 0.000303522 383 8.78E-21 0.00028728 384 9.29E-21 0.000271906 385 7.57E-21 0.000257355 386 6.37E-21 0.000243582 387 5.34E-21 0.000230547 388 4.47E-21 0.00021821 389 3.96E-21 0.000206532 390 3.44E-21 0.00019548 391 3.10E-21 0.000185018 392 2.93E-21 0.000175117 393 2.75E-21 0.000165746 394 2.41E-21 0.000156876 395 2.07E-21 0.000148481 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/MVK_RACM2 ================================================ MVK_RACM2 ! MVK + HV = 0.3*MO2 + 0.3*MACP + 0.7*CO + 0.7*UALD ! Absorption x-section from NASA 2006 ! Quantum yield from ! Supplied by Dr. Wendy Goliff, reformatted by Dr. Golam Sarwar to make it compatible with CMAQ Points ! With FAC, units are (cm^2/molecule) FAC=1.0 186.1 0.000E+00 0.000 187.8 0.000E+00 0.000 189.6 0.000E+00 0.000 191.4 0.000E+00 0.000 193.3 0.000E+00 0.000 195.2 0.000E+00 0.000 197.1 0.000E+00 0.000 199.0 0.000E+00 0.000 201.0 0.000E+00 0.000 203.1 0.000E+00 0.000 205.2 0.000E+00 0.000 207.3 0.000E+00 0.000 209.4 0.000E+00 0.000 211.7 0.000E+00 0.000 213.9 0.000E+00 0.000 216.2 0.000E+00 0.000 218.6 0.000E+00 0.000 221.0 0.000E+00 0.000 223.5 0.000E+00 0.000 226.0 0.000E+00 0.000 228.6 0.000E+00 0.000 231.3 0.000E+00 0.000 234.0 0.000E+00 0.000 236.7 0.000E+00 0.000 239.6 0.000E+00 0.000 242.5 0.000E+00 0.000 245.4 0.000E+00 0.000 248.5 0.000E+00 0.000 251.6 0.231E-20 0.000 254.8 0.255E-20 0.000 258.2 0.296E-20 0.000 261.5 0.344E-20 0.000 265.0 0.465E-20 0.000 268.5 0.594E-20 0.000 272.2 0.767E-20 0.000 275.9 0.998E-20 0.000 279.8 0.133E-19 0.039 283.7 0.170E-19 0.032 287.8 0.215E-19 0.025 292.0 0.267E-19 0.020 296.3 0.324E-19 0.016 300.5 0.396E-19 0.013 303.0 0.435E-19 0.011 304.0 0.451E-19 0.011 305.0 0.466E-19 0.010 306.0 0.482E-19 0.009 307.0 0.496E-19 0.009 308.0 0.513E-19 0.008 309.0 0.530E-19 0.008 310.0 0.544E-19 0.008 311.0 0.558E-19 0.007 312.0 0.573E-19 0.007 313.0 0.587E-19 0.006 314.0 0.602E-19 0.006 316.0 0.628E-19 0.005 320.0 0.670E-19 0.004 325.0 0.695E-19 0.003 330.0 0.728E-19 0.003 335.0 0.694E-19 0.002 340.0 0.644E-19 0.001 345.0 0.623E-19 0.001 350.0 0.520E-19 0.001 355.0 0.415E-19 0.001 360.0 0.368E-19 0.000 365.0 0.303E-19 0.000 370.0 0.188E-19 0.000 375.0 0.131E-19 0.000 380.0 0.105E-19 0.000 385.0 0.757E-20 0.000 390.0 0.344E-20 0.000 395.0 0.207E-20 0.000 400.0 0.000E+00 0.000 405.0 0.000E+00 0.000 410.0 0.000E+00 0.000 415.0 0.000E+00 0.000 420.0 0.000E+00 0.000 425.0 0.000E+00 0.000 430.0 0.000E+00 0.000 435.0 0.000E+00 0.000 440.0 0.000E+00 0.000 445.0 0.000E+00 0.000 450.0 0.000E+00 0.000 455.0 0.000E+00 0.000 460.0 0.000E+00 0.000 465.0 0.000E+00 0.000 470.0 0.000E+00 0.000 475.0 0.000E+00 0.000 480.0 0.000E+00 0.000 485.0 0.000E+00 0.000 490.0 0.000E+00 0.000 495.0 0.000E+00 0.000 500.0 0.000E+00 0.000 505.0 0.000E+00 0.000 510.0 0.000E+00 0.000 515.0 0.000E+00 0.000 520.0 0.000E+00 0.000 525.0 0.000E+00 0.000 530.0 0.000E+00 0.000 535.0 0.000E+00 0.000 540.0 0.000E+00 0.000 545.0 0.000E+00 0.000 550.0 0.000E+00 0.000 555.0 0.000E+00 0.000 560.0 0.000E+00 0.000 565.0 0.000E+00 0.000 570.0 0.000E+00 0.000 575.0 0.000E+00 0.000 580.0 0.000E+00 0.000 585.0 0.000E+00 0.000 590.0 0.000E+00 0.000 595.0 0.000E+00 0.000 600.0 0.000E+00 0.000 605.0 0.000E+00 0.000 610.0 0.000E+00 0.000 615.0 0.000E+00 0.000 620.0 0.000E+00 0.000 625.0 0.000E+00 0.000 630.0 0.000E+00 0.000 635.0 0.000E+00 0.000 640.0 0.000E+00 0.000 644.8 0.000E+00 0.000 651.0 0.000E+00 0.000 660.0 0.000E+00 0.000 670.0 0.000E+00 0.000 680.0 0.000E+00 0.000 690.0 0.000E+00 0.000 700.0 0.000E+00 0.000 710.0 0.000E+00 0.000 720.0 0.000E+00 0.000 730.0 0.000E+00 0.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/N2O5_IUPAC04 ================================================ N2O5_IUPAC04 !N2O5 + HV = NO2 + NO3 ! From IUPAC Subcommittee on Gas Kinetic Data Evaluation ! Data Sheet PNOx7_N2O5, updated 16th July 2001 ! Website: http://www.iupac-kinetic.ch.cam.ac.uk/ !NASA JPL-2011 below 280nm Points (! These are point values) ! With FAC, units are (cm^2/molecule) FAC=1.0 200.0 9.10E-18 0.000 202.0 8.42E-18 0.000 204.0 7.71E-18 0.000 206.0 6.82E-18 0.000 208.0 5.85E-18 0.000 210.0 4.45E-18 0.000 212.0 3.81E-18 0.000 214.0 3.22E-18 0.000 216.0 2.67E-18 0.000 218.0 2.20E-18 0.000 220.0 1.81E-18 0.000 222.0 1.51E-18 0.011 224.0 1.29E-18 0.037 226.0 1.13E-18 0.063 228.0 9.84E-19 0.088 230.0 8.82E-19 0.114 232.0 8.05E-19 0.139 234.0 7.40E-19 0.165 236.0 6.92E-19 0.191 238.0 6.46E-19 0.216 240.0 5.98E-19 0.242 242.0 5.31E-19 0.267 244.0 4.93E-19 0.293 246.0 4.56E-19 0.319 248.0 4.19E-19 0.344 250.0 3.86E-19 0.370 252.0 3.55E-19 0.396 254.0 3.26E-19 0.421 256.0 2.99E-19 0.447 258.0 2.75E-19 0.472 260.0 2.52E-19 0.498 262.0 2.31E-19 0.524 264.0 2.11E-19 0.549 266.0 1.94E-19 0.575 268.0 1.78E-19 0.601 270.0 1.62E-19 0.626 272.0 1.49E-19 0.652 274.0 1.37E-19 0.677 276.0 1.24E-19 0.703 278.0 1.14E-19 0.729 280.0 1.110E-19 0.74 285.0 8.590E-20 0.79 290.0 6.710E-20 0.85 295.0 5.110E-20 0.93 300.0 3.870E-20 1.0 305.0 2.910E-20 1.0 310.0 2.170E-20 1.0 315.0 1.620E-20 1.0 320.0 1.210E-20 1.0 325.0 8.900E-21 1.0 330.0 6.700E-21 1.0 335.0 5.000E-21 1.0 340.0 3.800E-21 1.0 345.0 2.790E-21 1.0 350.0 2.150E-21 1.0 355.0 1.640E-21 1.0 360.0 1.240E-21 1.0 365.0 9.100E-22 1.0 370.0 7.200E-22 1.0 375.0 5.300E-22 1.0 380.0 4.100E-22 1.0 385.0 3.200E-22 1.0 390.0 2.280E-22 1.0 395.0 1.710E-22 1.0 400.0 1.380E-22 1.0 405.0 1.030E-22 1.0 410.0 8.000E-23 1.0 411.0 0.000E+00 1.0 415.0 0.000E+00 1.0 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/N2O5_IUPAC10 ================================================ N2O5_IUPAC10 ! j(N2O5) IUPAC(2010) ! N2O5 = NO2 + NO3 ! From IUPAC Subcommittee on Gas Kinetic Data Evaluation ! Data Sheet PNOx7, updated 16th Jul, 2001 !NASA JPL-2011 below 280nm Points (! These are point values) ! With FAC, units are (cm^2/molecule) FAC=1.0 200.0 9.10E-18 0.000 202.0 8.42E-18 0.000 204.0 7.71E-18 0.000 206.0 6.82E-18 0.000 208.0 5.85E-18 0.000 210.0 4.45E-18 0.000 212.0 3.81E-18 0.000 214.0 3.22E-18 0.000 216.0 2.67E-18 0.000 218.0 2.20E-18 0.000 220.0 1.81E-18 0.000 222.0 1.51E-18 0.011 224.0 1.29E-18 0.037 226.0 1.13E-18 0.063 228.0 9.84E-19 0.088 230.0 8.82E-19 0.114 232.0 8.05E-19 0.139 234.0 7.40E-19 0.165 236.0 6.92E-19 0.191 238.0 6.46E-19 0.216 240.0 5.98E-19 0.242 242.0 5.31E-19 0.267 244.0 4.93E-19 0.293 246.0 4.56E-19 0.319 248.0 4.19E-19 0.344 250.0 3.86E-19 0.370 252.0 3.55E-19 0.396 254.0 3.26E-19 0.421 256.0 2.99E-19 0.447 258.0 2.75E-19 0.472 260.0 2.52E-19 0.498 262.0 2.31E-19 0.524 264.0 2.11E-19 0.549 266.0 1.94E-19 0.575 268.0 1.78E-19 0.601 270.0 1.62E-19 0.626 272.0 1.49E-19 0.652 274.0 1.37E-19 0.677 276.0 1.24E-19 0.703 278.0 1.14E-19 0.729 280.0 1.110E-19 0.740 285.0 8.590E-20 0.790 290.0 6.710E-20 0.850 295.0 5.110E-20 0.930 300.0 3.870E-20 1.000 305.0 2.910E-20 1.000 310.0 2.170E-20 1.000 315.0 1.620E-20 1.000 320.0 1.210E-20 1.000 325.0 8.900E-21 1.000 330.0 6.700E-21 1.000 335.0 5.000E-21 1.000 340.0 3.800E-21 1.000 345.0 2.790E-21 1.000 350.0 2.150E-21 1.000 355.0 1.640E-21 1.000 360.0 1.240E-21 1.000 365.0 9.100E-22 1.000 370.0 7.200E-22 1.000 375.0 5.300E-22 1.000 380.0 4.100E-22 1.000 385.0 3.200E-22 1.000 390.0 2.280E-22 1.000 395.0 1.710E-22 1.000 400.0 1.380E-22 1.000 405.0 1.030E-22 1.000 410.0 8.000E-23 1.000 411.0 0.000E+00 1.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/N2O5_NO2_JPL11 ================================================ N2O5_NO2_JPL11 ! j(N2O5_NO2) ! N2O5 = NO2 + NO3 ! Cross-section from JPL 2011 ! Quantum Yields based on linear regression from available data ! phi = 1 for l < 221.11820 ! phi = -2.832441 + 0.012809638 * l for 221.11820 <= l <= 299.18441 ! phi = 0 for l > 299.18441 Points (! These are point values) ! With FAC, units are (cm^2/molecule) FAC=1.0 200.0 9.10E-18 0.000 202.0 8.42E-18 0.000 204.0 7.71E-18 0.000 206.0 6.82E-18 0.000 208.0 5.85E-18 0.000 210.0 4.45E-18 0.000 212.0 3.81E-18 0.000 214.0 3.22E-18 0.000 216.0 2.67E-18 0.000 218.0 2.20E-18 0.000 220.0 1.81E-18 0.000 222.0 1.51E-18 0.011 224.0 1.29E-18 0.037 226.0 1.13E-18 0.063 228.0 9.84E-19 0.088 230.0 8.82E-19 0.114 232.0 8.05E-19 0.139 234.0 7.40E-19 0.165 236.0 6.92E-19 0.191 238.0 6.46E-19 0.216 240.0 5.98E-19 0.242 242.0 5.31E-19 0.267 244.0 4.93E-19 0.293 246.0 4.56E-19 0.319 248.0 4.19E-19 0.344 250.0 3.86E-19 0.370 252.0 3.55E-19 0.396 254.0 3.26E-19 0.421 256.0 2.99E-19 0.447 258.0 2.75E-19 0.472 260.0 2.52E-19 0.498 262.0 2.31E-19 0.524 264.0 2.11E-19 0.549 266.0 1.94E-19 0.575 268.0 1.78E-19 0.601 270.0 1.62E-19 0.626 272.0 1.49E-19 0.652 274.0 1.37E-19 0.677 276.0 1.24E-19 0.703 278.0 1.14E-19 0.729 280.0 1.05E-19 0.754 282.0 9.59E-20 0.780 284.0 8.74E-20 0.805 286.0 7.94E-20 0.831 288.0 7.20E-20 0.857 290.0 6.52E-20 0.882 292.0 5.88E-20 0.908 294.0 5.29E-20 0.934 296.0 4.75E-20 0.959 298.0 4.26E-20 0.985 300.0 3.81E-20 1.000 302.0 3.40E-20 1.000 304.0 3.03E-20 1.000 306.0 2.70E-20 1.000 308.0 2.40E-20 1.000 310.0 2.13E-20 1.000 312.0 1.90E-20 1.000 314.0 1.68E-20 1.000 316.0 1.49E-20 1.000 318.0 1.33E-20 1.000 320.0 1.18E-20 1.000 322.0 1.05E-20 1.000 324.0 9.30E-21 1.000 326.0 8.26E-21 1.000 328.0 7.35E-21 1.000 330.0 6.54E-21 1.000 332.0 5.82E-21 1.000 334.0 5.18E-21 1.000 336.0 4.62E-21 1.000 338.0 4.12E-21 1.000 340.0 3.68E-21 1.000 342.0 3.28E-21 1.000 344.0 2.93E-21 1.000 346.0 2.62E-21 1.000 348.0 2.34E-21 1.000 350.0 2.10E-21 1.000 352.0 1.88E-21 1.000 354.0 1.67E-21 1.000 356.0 1.49E-21 1.000 358.0 1.33E-21 1.000 360.0 1.20E-21 1.000 362.0 1.07E-21 1.000 364.0 9.58E-22 1.000 366.0 8.52E-22 1.000 368.0 7.63E-22 1.000 370.0 6.85E-22 1.000 372.0 6.13E-22 1.000 374.0 5.45E-22 1.000 376.0 4.84E-22 1.000 378.0 4.31E-22 1.000 380.0 3.83E-22 1.000 382.0 3.41E-22 1.000 384.0 3.05E-22 1.000 386.0 2.73E-22 1.000 388.0 2.42E-22 1.000 390.0 2.15E-22 1.000 392.0 1.93E-22 1.000 394.0 1.72E-22 1.000 396.0 1.50E-22 1.000 398.0 1.34E-22 1.000 400.0 1.40E-22 1.000 410.0 9.00E-23 1.000 420.0 5.00E-23 1.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/N2O5_O3P_JPL11 ================================================ N2O5_O3P_JPL11 ! j(N2O5_O3P) ! N2O5 = NO3 + NO + O3P ! Cross-section from JPL 2011 ! Quantum Yields based on linear regression from available data ! phi = 0 for l < 221.11820 ! phi = 3.832441-0.012809638*l for 221.11820 <= l <= 299.18441 ! phi = 1 for l > 299.18441 Points (! These are point values) ! With FAC, units are (cm^2/molecule) FAC=1.0 200.0 9.10E-18 1.000 202.0 8.42E-18 1.000 204.0 7.71E-18 1.000 206.0 6.82E-18 1.000 208.0 5.85E-18 1.000 210.0 4.45E-18 1.000 212.0 3.81E-18 1.000 214.0 3.22E-18 1.000 216.0 2.67E-18 1.000 218.0 2.20E-18 1.000 220.0 1.81E-18 1.000 222.0 1.51E-18 0.989 224.0 1.29E-18 0.963 226.0 1.13E-18 0.937 228.0 9.84E-19 0.912 230.0 8.82E-19 0.886 232.0 8.05E-19 0.861 234.0 7.40E-19 0.835 236.0 6.92E-19 0.809 238.0 6.46E-19 0.784 240.0 5.98E-19 0.758 242.0 5.31E-19 0.733 244.0 4.93E-19 0.707 246.0 4.56E-19 0.681 248.0 4.19E-19 0.656 250.0 3.86E-19 0.630 252.0 3.55E-19 0.604 254.0 3.26E-19 0.579 256.0 2.99E-19 0.553 258.0 2.75E-19 0.528 260.0 2.52E-19 0.502 262.0 2.31E-19 0.476 264.0 2.11E-19 0.451 266.0 1.94E-19 0.425 268.0 1.78E-19 0.399 270.0 1.62E-19 0.374 272.0 1.49E-19 0.348 274.0 1.37E-19 0.323 276.0 1.24E-19 0.297 278.0 1.14E-19 0.271 280.0 1.05E-19 0.246 282.0 9.59E-20 0.220 284.0 8.74E-20 0.195 286.0 7.94E-20 0.169 288.0 7.20E-20 0.143 290.0 6.52E-20 0.118 292.0 5.88E-20 0.092 294.0 5.29E-20 0.066 296.0 4.75E-20 0.041 298.0 4.26E-20 0.015 300.0 3.81E-20 0.000 302.0 3.40E-20 0.000 304.0 3.03E-20 0.000 306.0 2.70E-20 0.000 308.0 2.40E-20 0.000 310.0 2.13E-20 0.000 312.0 1.90E-20 0.000 314.0 1.68E-20 0.000 316.0 1.49E-20 0.000 318.0 1.33E-20 0.000 320.0 1.18E-20 0.000 322.0 1.05E-20 0.000 324.0 9.30E-21 0.000 326.0 8.26E-21 0.000 328.0 7.35E-21 0.000 330.0 6.54E-21 0.000 332.0 5.82E-21 0.000 334.0 5.18E-21 0.000 336.0 4.62E-21 0.000 338.0 4.12E-21 0.000 340.0 3.68E-21 0.000 342.0 3.28E-21 0.000 344.0 2.93E-21 0.000 346.0 2.62E-21 0.000 348.0 2.34E-21 0.000 350.0 2.10E-21 0.000 352.0 1.88E-21 0.000 354.0 1.67E-21 0.000 356.0 1.49E-21 0.000 358.0 1.33E-21 0.000 360.0 1.20E-21 0.000 362.0 1.07E-21 0.000 364.0 9.58E-22 0.000 366.0 8.52E-22 0.000 368.0 7.63E-22 0.000 370.0 6.85E-22 0.000 372.0 6.13E-22 0.000 374.0 5.45E-22 0.000 376.0 4.84E-22 0.000 378.0 4.31E-22 0.000 380.0 3.83E-22 0.000 382.0 3.41E-22 0.000 384.0 3.05E-22 0.000 386.0 2.73E-22 0.000 388.0 2.42E-22 0.000 390.0 2.15E-22 0.000 392.0 1.93E-22 0.000 394.0 1.72E-22 0.000 396.0 1.50E-22 0.000 398.0 1.34E-22 0.000 400.0 1.40E-22 0.000 410.0 9.00E-23 0.000 420.0 5.00E-23 0.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/NC3CHO_M_MCMv32 ================================================ NC3CHO_M_MCMv32 !n-C3H7CHO 298 K (n-butyraldehyde, n-butanal) photolysis cross-sections ! n-C3H7CHO --> C2H4 + CH3CHO:phi20 = 0.10 from 290 to 380 nm (1 bar, 298K) !IUPAC 2002 Recommendation !http://iupac.pole-ether.fr/htdocs/datasheets/pdf/P11_nC3H7CHO+hv.pdf ! R. D. Martinez, A. A. Buitrago, N. W. Howell, C. H. Hearn, and J. A. Joens, Atmos. Env. 26A, 785 (1992) ! !Photolysis QYs: IUPAC 2002 Recommendation which are lower than ! J. Tadic, I. Juranic and G. K. Moortgat, (2001). Pressure dependence of the photooxidation of selected ! carbonyl compounds in air: n-butanal and n-pentanal. J. Photchem. Photobiol. A: Chemisty, 143, 169-179. ! !J16 in MCM:n-C3H7CHO --> C2H4 + CH3CHO:phi20 = 0.10 from 290 to 380 nm (1 bar, 298K) !Pressure Correction: phiX = 2.6468*phiX0/(1.81 + 1.931e-3*P[Torr]), X=1,2 !Scale Factor: 1.0 ! !wvl(nm) XC(cm^2) QY Points ! With FAC, units are (cm^2/molecule) FAC=1.0 202.0 1.780E-22 0.100 206.0 3.160E-22 0.100 210.0 4.750E-22 0.100 214.0 6.230E-22 0.100 218.0 7.710E-22 0.100 222.0 8.500E-22 0.100 226.0 1.020E-21 0.100 230.0 1.330E-21 0.100 234.0 2.020E-21 0.100 238.0 3.160E-21 0.100 242.0 4.880E-21 0.100 246.0 7.240E-21 0.100 250.0 1.050E-20 0.100 254.0 1.450E-20 0.100 258.0 1.930E-20 0.100 262.0 2.520E-20 0.100 266.0 3.090E-20 0.100 270.0 3.810E-20 0.100 274.0 4.340E-20 0.100 278.0 5.020E-20 0.100 280.0 5.180E-20 0.100 281.0 5.220E-20 0.100 282.0 5.300E-20 0.100 283.0 5.450E-20 0.100 284.0 5.650E-20 0.100 285.0 5.810E-20 0.100 286.0 5.900E-20 0.100 287.0 5.890E-20 0.100 288.0 5.850E-20 0.100 289.0 5.800E-20 0.100 290.0 5.780E-20 0.100 291.0 5.830E-20 0.100 292.0 5.930E-20 0.100 293.0 6.050E-20 0.100 294.0 6.100E-20 0.100 295.0 6.030E-20 0.100 296.0 5.870E-20 0.100 297.0 5.690E-20 0.100 298.0 5.560E-20 0.100 299.0 5.460E-20 0.100 300.0 5.420E-20 0.100 301.0 5.430E-20 0.100 302.0 5.440E-20 0.100 303.0 5.430E-20 0.100 304.0 5.320E-20 0.100 305.0 5.080E-20 0.100 306.0 4.790E-20 0.100 307.0 4.500E-20 0.100 308.0 4.290E-20 0.100 309.0 4.150E-20 0.100 310.0 4.070E-20 0.100 311.0 4.000E-20 0.100 312.0 3.920E-20 0.100 313.0 3.820E-20 0.100 314.0 3.690E-20 0.100 315.0 3.460E-20 0.100 316.0 3.170E-20 0.100 317.0 2.850E-20 0.100 318.0 2.570E-20 0.100 319.0 2.370E-20 0.100 320.0 2.250E-20 0.100 321.0 2.180E-20 0.100 322.0 2.070E-20 0.100 323.0 1.960E-20 0.100 324.0 1.820E-20 0.100 325.0 1.690E-20 0.100 326.0 1.550E-20 0.100 327.0 1.390E-20 0.100 328.0 1.220E-20 0.100 329.0 1.040E-20 0.100 330.0 8.680E-21 0.100 331.0 7.340E-21 0.100 332.0 6.470E-21 0.100 333.0 6.020E-21 0.100 334.0 5.540E-21 0.100 335.0 4.850E-21 0.100 336.0 4.170E-21 0.100 337.0 3.460E-21 0.100 338.0 2.850E-21 0.100 339.0 2.420E-21 0.100 340.0 2.150E-21 0.100 341.0 1.910E-21 0.100 342.0 1.440E-21 0.100 343.0 9.300E-22 0.100 344.0 5.900E-22 0.100 345.0 4.100E-22 0.100 346.0 3.100E-22 0.100 347.0 2.600E-22 0.100 348.0 2.300E-22 0.100 349.0 1.800E-22 0.100 350.0 1.500E-22 0.100 351.0 1.400E-22 0.100 352.0 1.200E-22 0.100 353.0 1.000E-22 0.100 354.0 8.000E-23 0.100 355.0 6.000E-23 0.100 356.0 5.000E-23 0.100 357.0 4.000E-23 0.100 358.0 3.000E-23 0.100 359.0 2.000E-23 0.100 360.0 2.000E-23 0.100 361.0 2.000E-23 0.100 362.0 1.000E-23 0.100 363.0 1.000E-23 0.100 364.0 1.000E-23 0.100 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/NC3CHO_R_MCMv32 ================================================ NC3CHO_R_MCMv32 !n-C3H7CHO 298 K (n-butyraldehyde, n-butanal) photolysis cross-sections ! n-C3H7CHO --> C2H4 + CH3CHO:phi20 = 0.10 from 290 to 380 nm (1 bar, 298K) !IUPAC 2002 Recommendation !http://iupac.pole-ether.fr/htdocs/datasheets/pdf/P11_nC3H7CHO+hv.pdf ! R. D. Martinez, A. A. Buitrago, N. W. Howell, C. H. Hearn, and J. A. Joens, Atmos. Env. 26A, 785 (1992) ! !Photolysis QYs: IUPAC 2002 Recommendation which are lower than ! J. Tadic, I. Juranic and G. K. Moortgat, (2001). Pressure dependence of the photooxidation of selected ! carbonyl compounds in air: n-butanal and n-pentanal. J. Photchem. Photobiol. A: Chemisty, 143, 169-179. ! !J15 in MCM v3.2:n-C3H7CHO --> n-C3H7 + HCO:phi10 = 0.21 from 290 to 380 nm (1 bar, 298K) !Pressure Correction: phiX = 2.6468*phiX0/(1.81 + 1.931e-3*P[Torr]), X=1,2 !Scale Factor: 1.0 ! !wvl(nm) XC(cm^2) QY Points ! With FAC, units are (cm^2/molecule) FAC=1.0 202.0 1.780E-22 0.210 206.0 3.160E-22 0.210 210.0 4.750E-22 0.210 214.0 6.230E-22 0.210 218.0 7.710E-22 0.210 222.0 8.500E-22 0.210 226.0 1.020E-21 0.210 230.0 1.330E-21 0.210 234.0 2.020E-21 0.210 238.0 3.160E-21 0.210 242.0 4.880E-21 0.210 246.0 7.240E-21 0.210 250.0 1.050E-20 0.210 254.0 1.450E-20 0.210 258.0 1.930E-20 0.210 262.0 2.520E-20 0.210 266.0 3.090E-20 0.210 270.0 3.810E-20 0.210 274.0 4.340E-20 0.210 278.0 5.020E-20 0.210 280.0 5.180E-20 0.210 281.0 5.220E-20 0.210 282.0 5.300E-20 0.210 283.0 5.450E-20 0.210 284.0 5.650E-20 0.210 285.0 5.810E-20 0.210 286.0 5.900E-20 0.210 287.0 5.890E-20 0.210 288.0 5.850E-20 0.210 289.0 5.800E-20 0.210 290.0 5.780E-20 0.210 291.0 5.830E-20 0.210 292.0 5.930E-20 0.210 293.0 6.050E-20 0.210 294.0 6.100E-20 0.210 295.0 6.030E-20 0.210 296.0 5.870E-20 0.210 297.0 5.690E-20 0.210 298.0 5.560E-20 0.210 299.0 5.460E-20 0.210 300.0 5.420E-20 0.210 301.0 5.430E-20 0.210 302.0 5.440E-20 0.210 303.0 5.430E-20 0.210 304.0 5.320E-20 0.210 305.0 5.080E-20 0.210 306.0 4.790E-20 0.210 307.0 4.500E-20 0.210 308.0 4.290E-20 0.210 309.0 4.150E-20 0.210 310.0 4.070E-20 0.210 311.0 4.000E-20 0.210 312.0 3.920E-20 0.210 313.0 3.820E-20 0.210 314.0 3.690E-20 0.210 315.0 3.460E-20 0.210 316.0 3.170E-20 0.210 317.0 2.850E-20 0.210 318.0 2.570E-20 0.210 319.0 2.370E-20 0.210 320.0 2.250E-20 0.210 321.0 2.180E-20 0.210 322.0 2.070E-20 0.210 323.0 1.960E-20 0.210 324.0 1.820E-20 0.210 325.0 1.690E-20 0.210 326.0 1.550E-20 0.210 327.0 1.390E-20 0.210 328.0 1.220E-20 0.210 329.0 1.040E-20 0.210 330.0 8.680E-21 0.210 331.0 7.340E-21 0.210 332.0 6.470E-21 0.210 333.0 6.020E-21 0.210 334.0 5.540E-21 0.210 335.0 4.850E-21 0.210 336.0 4.170E-21 0.210 337.0 3.460E-21 0.210 338.0 2.850E-21 0.210 339.0 2.420E-21 0.210 340.0 2.150E-21 0.210 341.0 1.910E-21 0.210 342.0 1.440E-21 0.210 343.0 9.300E-22 0.210 344.0 5.900E-22 0.210 345.0 4.100E-22 0.210 346.0 3.100E-22 0.210 347.0 2.600E-22 0.210 348.0 2.300E-22 0.210 349.0 1.800E-22 0.210 350.0 1.500E-22 0.210 351.0 1.400E-22 0.210 352.0 1.200E-22 0.210 353.0 1.000E-22 0.210 354.0 8.000E-23 0.210 355.0 6.000E-23 0.210 356.0 5.000E-23 0.210 357.0 4.000E-23 0.210 358.0 3.000E-23 0.210 359.0 2.000E-23 0.210 360.0 2.000E-23 0.210 361.0 2.000E-23 0.210 362.0 1.000E-23 0.210 363.0 1.000E-23 0.210 364.0 1.000E-23 0.210 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/NITROXY_ACET_2014 ================================================ NOA_14 !nitrooxy-acetone (NOA) photolysis cross sections (298 K) as MCM !Data form the MPI-Mainz spectral atlas: !http://www.atmosphere.mpg.de/enid/2295 !Average of: !1. I. Barnes, K.H. Becker, and T. Zhu !J. Atmos. Chem. 17, 353-373 (1993). !2. J.M. Roberts and R.W. Fajer !Environ. Sci. Technol. 23, 945-951 (1989). ! !quantum yields: set to 1.0 as per Suarez-Bertoa et al., Env. Sci. Tech., ! Vol. 46,12502-12509, 2012 ! Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 245.0 2.29E-19 1.0 250.0 1.47E-19 1.0 255.0 1.07E-19 1.0 260.0 8.53E-20 1.0 265.0 7.63E-20 1.0 270.0 7.29E-20 1.0 275.0 7.02E-20 1.0 280.0 6.67E-20 1.0 285.0 6.25E-20 1.0 290.0 5.83E-20 1.0 295.0 5.18E-20 1.0 300.0 4.48E-20 1.0 305.0 3.61E-20 1.0 310.0 2.69E-20 1.0 315.0 1.86E-20 1.0 320.0 1.31E-20 1.0 325.0 7.90E-21 1.0 330.0 4.55E-21 1.0 335.0 2.20E-21 1.0 340.0 1.60E-21 1.0 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/NITROXY_ACET_93 ================================================ NOA !nitrooxy-acetone (NOA) photolysis cross sections (298 K) as MCM !Data form the MPI-Mainz spectral atlas: !http://www.atmosphere.mpg.de/enid/2295 !Average of: !1. I. Barnes, K.H. Becker, and T. Zhu !J. Atmos. Chem. 17, 353-373 (1993). !2. J.M. Roberts and R.W. Fajer !Environ. Sci. Technol. 23, 945-951 (1989). ! !quantum yields: estimated by analogy to the photolysis of ethyl nitrate and acetone as MCM ! Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 245.0 2.29E-19 0.94 250.0 1.47E-19 0.94 255.0 1.07E-19 0.94 260.0 8.53E-20 0.94 265.0 7.63E-20 0.92 270.0 7.29E-20 0.9 275.0 7.02E-20 0.85 280.0 6.67E-20 0.8 285.0 6.25E-20 0.75 290.0 5.83E-20 0.65 295.0 5.18E-20 0.56 300.0 4.48E-20 0.47 305.0 3.61E-20 0.39 310.0 2.69E-20 0.32 315.0 1.86E-20 0.262 320.0 1.31E-20 0.193 325.0 7.90E-21 0.164 330.0 4.55E-21 0.125 335.0 2.20E-21 0.137 340.0 1.60E-21 0.139 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/NITROXY_BUTA_2014 ================================================ NBO_14 !3-nitrooxy-2-butanone photolysis cross sections (298 K) !http://www.atmosphere.mpg.de/enid/2295 !1. I. Barnes, K.H. Becker, and T. Zhu !J. Atmos. Chem. 17, 353-373 (1993). ! quantum yields = 1 as per Muller (ACP, 14, 2497-2508, 2014) and Suarez-Bertoa ! ES&T, 46, 12502-12509 (2012) ! Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 245 2.934e-19 1.0 250 2.114e-19 1.0 255 1.644e-19 1.0 260 1.424e-19 1.0 265 1.332e-19 1.0 270 1.298e-19 1.0 275 1.273e-19 1.0 280 1.229e-19 1.0 285 1.155e-19 1.0 290 1.036e-19 1.0 295 9.110e-20 1.0 300 7.360e-20 1.0 305 5.850e-20 1.0 310 4.180e-20 1.0 315 2.820e-20 1.0 320 1.850e-20 1.0 325 1.070e-20 1.0 330 6.800e-21 1.0 335 4.900e-21 1.0 340 4.400e-21 1.0 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/NO2-06 ================================================ NO2-06 ! NO2 + HV = NO + O ! From NASA (2006). ! Absorption cross sections are averages for wavelength intervals given. ! Data alligned to smallest wavelength intervals for abs. coefs and qy's. ! Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 242.0 5.770E-20 1.0000 245.0 2.790E-20 1.0000 248.0 1.620E-20 1.0000 252.0 9.980E-21 1.0000 255.0 1.050E-20 1.0000 258.0 1.280E-20 1.0000 261.0 1.580E-20 1.0000 265.0 2.050E-20 1.0000 268.0 2.640E-20 1.0000 272.0 3.240E-20 1.0000 276.0 4.070E-20 1.0000 280.0 5.210E-20 1.0000 284.0 6.230E-20 1.0000 288.0 7.590E-20 1.0000 292.0 9.510E-20 1.0000 296.0 1.150E-19 1.0000 301.0 1.320E-19 1.0000 305.0 1.610E-19 1.0000 310.0 1.880E-19 1.0000 315.0 2.160E-19 1.0000 320.0 2.530E-19 1.0000 325.0 2.870E-19 1.0000 330.0 3.170E-19 1.0000 335.0 3.580E-19 1.0000 340.0 4.020E-19 1.0000 345.0 4.180E-19 1.0000 350.0 4.620E-19 1.0000 355.0 4.970E-19 1.0000 360.0 5.090E-19 1.0000 365.0 5.490E-19 1.0000 370.0 5.610E-19 1.0000 375.0 5.900E-19 1.0000 380.0 5.930E-19 1.0000 385.0 6.010E-19 1.0000 390.0 6.300E-19 1.0000 395.0 5.970E-19 1.0000 398.0 6.252E-19 1.0000 399.0 6.346E-19 0.9500 400.0 6.440E-19 0.8800 401.0 6.316E-19 0.7500 402.0 6.192E-19 0.6200 403.0 6.068E-19 0.5300 404.0 5.944E-19 0.4400 405.0 5.820E-19 0.3700 406.0 5.904E-19 0.3000 407.0 5.988E-19 0.2600 408.0 6.072E-19 0.2200 409.0 6.156E-19 0.1800 410.0 6.240E-19 0.1500 411.0 6.174E-19 0.1300 412.0 6.108E-19 0.1100 413.0 6.042E-19 0.0900 414.0 5.976E-19 0.0800 415.0 5.910E-19 0.0600 416.0 5.926E-19 0.0500 417.0 5.942E-19 0.0400 418.0 5.958E-19 0.0300 419.0 5.974E-19 0.0200 420.0 5.990E-19 0.0200 422.0 5.874E-19 0.0100 424.0 5.758E-19 0.0000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/NO2EX ================================================ NO2EX ! NO2 + HV = NO2* ! From NASA (2006), for 294 K. ! Absorption cross sections are averages for wavelength intervals given. ! Data alligned to smallest wavelength intervals for abs. coefs and qy's. ! Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 242.0 5.770E-20 0.0000 245.0 2.790E-20 0.0000 248.0 1.620E-20 0.0000 252.0 9.980E-21 0.0000 255.0 1.050E-20 0.0000 258.0 1.280E-20 0.0000 261.0 1.580E-20 0.0000 265.0 2.050E-20 0.0000 268.0 2.640E-20 0.0000 272.0 3.240E-20 0.0000 276.0 4.070E-20 0.0000 280.0 5.210E-20 0.0000 284.0 6.230E-20 0.0000 288.0 7.590E-20 0.0000 292.0 9.510E-20 0.0000 296.0 1.150E-19 0.0000 301.0 1.320E-19 0.0000 305.0 1.610E-19 0.0000 310.0 1.880E-19 0.0000 315.0 2.160E-19 0.0000 320.0 2.530E-19 0.0000 325.0 2.870E-19 0.0000 330.0 3.170E-19 0.0000 335.0 3.580E-19 0.0000 340.0 4.020E-19 0.0000 345.0 4.180E-19 0.0000 350.0 4.620E-19 0.0000 355.0 4.970E-19 0.0000 360.0 5.090E-19 0.0000 365.0 5.490E-19 0.0000 370.0 5.610E-19 0.0000 375.0 5.900E-19 0.0000 380.0 5.930E-19 0.0000 385.0 6.010E-19 0.0000 390.0 6.300E-19 0.0000 395.0 5.970E-19 0.0000 398.0 6.252E-19 0.0000 399.0 6.346E-19 0.0500 400.0 6.440E-19 0.1200 401.0 6.316E-19 0.2500 402.0 6.192E-19 0.3800 403.0 6.068E-19 0.4700 404.0 5.944E-19 0.5600 405.0 5.820E-19 0.6300 406.0 5.904E-19 0.7000 407.0 5.988E-19 0.7400 408.0 6.072E-19 0.7800 409.0 6.156E-19 0.8200 410.0 6.240E-19 0.8500 411.0 6.174E-19 0.8700 412.0 6.108E-19 0.8900 413.0 6.042E-19 0.9100 414.0 5.976E-19 0.9200 415.0 5.910E-19 0.9400 416.0 5.926E-19 0.9500 417.0 5.942E-19 0.9600 418.0 5.958E-19 0.9700 419.0 5.974E-19 0.9800 420.0 5.990E-19 0.9800 422.0 5.874E-19 0.9900 424.0 5.758E-19 1.0000 425.0 5.700E-19 1.0000 430.0 5.440E-19 1.0000 435.0 5.590E-19 1.0000 440.0 4.880E-19 1.0000 445.0 4.880E-19 1.0000 450.0 4.980E-19 1.0000 455.0 4.160E-19 1.0000 460.0 4.360E-19 1.0000 465.0 4.140E-19 1.0000 470.0 3.370E-19 1.0000 475.0 3.870E-19 1.0000 480.0 3.370E-19 1.0000 485.0 2.540E-19 1.0000 490.0 3.080E-19 1.0000 495.0 2.940E-19 1.0000 500.0 1.820E-19 1.0000 505.0 2.430E-19 1.0000 510.0 2.310E-19 1.0000 515.0 1.600E-19 1.0000 520.0 1.610E-19 1.0000 525.0 1.790E-19 1.0000 530.0 1.530E-19 1.0000 535.0 1.060E-19 1.0000 540.0 1.080E-19 1.0000 545.0 1.270E-19 1.0000 550.0 1.100E-19 1.0000 555.0 7.970E-20 1.0000 560.0 6.050E-20 1.0000 565.0 8.700E-20 1.0000 570.0 8.480E-20 1.0000 575.0 4.710E-20 1.0000 580.0 4.470E-20 1.0000 585.0 4.690E-20 1.0000 590.0 5.390E-20 1.0000 595.0 4.080E-20 1.0000 600.0 3.950E-20 1.0000 605.0 1.850E-20 1.0000 610.0 2.540E-20 1.0000 615.0 3.530E-20 1.0000 620.0 2.570E-20 1.0000 625.0 1.960E-20 1.0000 630.0 1.210E-20 1.0000 635.0 1.330E-20 1.0000 640.0 1.530E-20 1.0000 645.0 1.920E-20 1.0000 650.0 1.350E-20 1.0000 655.0 8.730E-21 1.0000 660.0 5.660E-21 1.0000 665.0 0.000E+00 1.0000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/NO2_06 ================================================ NO2-06 ! NO2 + HV = NO + O ! From NASA (2006). ! Absorption cross sections are averages for wavelength intervals given. ! Data alligned to smallest wavelength intervals for abs. coefs and qy's. ! !IUPAC 2005 for wavelength <242 to >205 !Au and Brion J (1997), J Chem. Phys. 218, 109-126. for wavelength <205 Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 155.0 1.250e-17 1.000 165.3 1.160e-17 1.000 177.1 6.800e-18 1.000 190.8 1.800e-18 1.000 205.0 3.381e-19 1.000 210.0 4.451e-19 1.000 215.0 4.887e-19 1.000 220.0 4.672e-19 1.000 225.0 3.904e-19 1.000 230.0 2.765e-19 1.000 235.0 1.653e-19 1.000 240.0 8.300e-20 1.000 242.0 5.770E-20 1.0000 245.0 2.790E-20 1.0000 248.0 1.620E-20 1.0000 252.0 9.980E-21 1.0000 255.0 1.050E-20 1.0000 258.0 1.280E-20 1.0000 261.0 1.580E-20 1.0000 265.0 2.050E-20 1.0000 268.0 2.640E-20 1.0000 272.0 3.240E-20 1.0000 276.0 4.070E-20 1.0000 280.0 5.210E-20 1.0000 284.0 6.230E-20 1.0000 288.0 7.590E-20 1.0000 292.0 9.510E-20 1.0000 296.0 1.150E-19 1.0000 301.0 1.320E-19 1.0000 305.0 1.610E-19 1.0000 310.0 1.880E-19 1.0000 315.0 2.160E-19 1.0000 320.0 2.530E-19 1.0000 325.0 2.870E-19 1.0000 330.0 3.170E-19 1.0000 335.0 3.580E-19 1.0000 340.0 4.020E-19 1.0000 345.0 4.180E-19 1.0000 350.0 4.620E-19 1.0000 355.0 4.970E-19 1.0000 360.0 5.090E-19 1.0000 365.0 5.490E-19 1.0000 370.0 5.610E-19 1.0000 375.0 5.900E-19 1.0000 380.0 5.930E-19 1.0000 385.0 6.010E-19 1.0000 390.0 6.300E-19 1.0000 395.0 5.970E-19 1.0000 398.0 6.252E-19 1.0000 399.0 6.346E-19 0.9500 400.0 6.440E-19 0.8800 401.0 6.316E-19 0.7500 402.0 6.192E-19 0.6200 403.0 6.068E-19 0.5300 404.0 5.944E-19 0.4400 405.0 5.820E-19 0.3700 406.0 5.904E-19 0.3000 407.0 5.988E-19 0.2600 408.0 6.072E-19 0.2200 409.0 6.156E-19 0.1800 410.0 6.240E-19 0.1500 411.0 6.174E-19 0.1300 412.0 6.108E-19 0.1100 413.0 6.042E-19 0.0900 414.0 5.976E-19 0.0800 415.0 5.910E-19 0.0600 416.0 5.926E-19 0.0500 417.0 5.942E-19 0.0400 418.0 5.958E-19 0.0300 419.0 5.974E-19 0.0200 420.0 5.990E-19 0.0200 422.0 5.874E-19 0.0100 424.0 5.758E-19 0.0000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/NO2_CBIV88 ================================================ NO2_CBIV88 ! Nitrogen Dioxide Photolysis (NO2) ! NO2 + hv -> NO + O ! Taken from Gery et al. (1988); Absorption CS and QY from DeMore et al. (1985). ! format: wl, abs_cs, qy Centered ! With FAC, units are (cm^2/molecule) FAC=1.0E-20 280 5.54 0.984 281 5.58 0.984 282 5.36 0.984 283 5.36 0.984 284 6.25 0.984 285 6.99 0.984 286 7.29 0.984 287 7.37 0.984 288 7.66 0.984 289 7.89 0.984 290 8.18 0.984 291 9.90 0.984 292 9.37 0.984 293 9.75 0.984 294 9.48 0.984 295 9.68 0.984 296 9.30 0.983 297 12.17 0.982 298 11.72 0.982 299 12.57 0.981 300 11.72 0.980 301 12.28 0.980 302 13.87 0.978 303 15.92 0.978 304 15.96 0.977 305 16.56 0.976 306 15.81 0.975 307 16.33 0.974 308 16.18 0.973 309 18.38 0.973 310 17.56 0.972 311 18.78 0.971 312 19.61 0.970 313 20.35 0.970 314 19.42 0.969 315 22.50 0.968 316 21.31 0.967 317 23.29 0.966 318 24.81 0.966 319 23.14 0.965 320 25.37 0.964 321 26.53 0.963 322 26.49 0.962 323 27.68 0.962 324 26.75 0.961 325 27.86 0.960 326 28.79 0.959 327 29.09 0.958 328 30.77 0.958 329 29.98 0.957 330 29.87 0.956 331 30.50 0.955 332 30.05 0.954 333 37.27 0.954 334 29.80 0.953 335 34.52 0.952 336 35.08 0.951 337 34.63 0.950 338 34.78 0.950 339 39.88 0.949 340 38.80 0.948 341 41.66 0.947 342 38.32 0.946 343 35.45 0.946 344 40.21 0.945 345 40.70 0.944 346 42.93 0.943 347 42.78 0.942 348 48.21 0.942 349 46.12 0.941 350 40.99 0.940 351 45.20 0.939 352 44.38 0.938 353 39.88 0.938 354 50.40 0.937 355 51.30 0.936 356 46.05 0.935 357 55.80 0.934 358 50.37 0.934 359 45.53 0.933 360 45.13 0.932 361 53.87 0.931 362 50.40 0.930 363 51.23 0.930 364 48.74 0.929 365 57.81 0.928 366 53.98 0.912 367 51.86 0.896 368 53.42 0.881 369 51.82 0.865 370 54.20 0.849 371 52.12 0.833 372 59.81 0.817 373 55.02 0.802 374 52.12 0.786 375 53.53 0.770 376 62.35 0.780 377 56.69 0.920 378 51.74 0.820 379 54.68 0.870 380 59.86 0.900 381 56.62 0.810 382 56.36 0.700 383 53.72 0.680 384 59.67 0.700 385 59.41 0.770 386 53.20 0.840 387 56.02 0.750 388 59.78 0.810 389 60.23 0.780 390 60.01 0.800 391 58.29 0.880 392 60.49 0.840 393 54.54 0.900 394 55.42 0.900 395 58.89 0.840 396 61.45 0.830 397 56.65 0.820 398 64.06 0.770 399 56.03 0.780 400 67.59 0.680 401 65.25 0.650 402 57.10 0.620 403 51.04 0.570 404 60.67 0.420 405 63.17 0.320 406 53.90 0.330 407 47.28 0.250 408 62.61 0.200 409 59.00 0.190 410 57.73 0.150 411 58.78 0.100 412 53.65 0.090 413 70.04 0.080 414 59.41 0.080 415 60.41 0.070 416 48.47 0.060 417 53.12 0.050 418 55.17 0.040 419 52.79 0.030 420 57.72 0.020 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/NO2_IUPAC10 ================================================ NO2_IUPAC10 ! j(NO2) IUPAC(2010) ! NO2 = NO + O ! From IUPAC Subcommittee on Gas Kinetic Data Evaluation ! Data Sheet PNOx4, updated 16th July 2001 ! These are point values !Au and Brion J (1997), J Chem. Phys. 218, 109-126 wavelength <205 Begining (the mechanism evaluated with this format) !WL(nm) XSEC(cm2) QY FAC=1.0 155.0 1.250e-17 1.000 165.3 1.160e-17 1.000 177.1 6.800e-18 1.000 190.8 1.800e-18 1.000 205.0 3.381e-19 1.000 210.0 4.451e-19 1.000 215.0 4.887e-19 1.000 220.0 4.672e-19 1.000 225.0 3.904e-19 1.000 230.0 2.765e-19 1.000 235.0 1.653e-19 1.000 240.0 8.300e-20 1.000 245.0 3.750e-20 1.000 250.0 1.460e-20 1.000 255.0 1.090e-20 1.000 260.0 1.540e-20 1.000 265.0 2.180e-20 1.000 270.0 2.920e-20 1.000 275.0 4.060e-20 1.000 280.0 5.270E-20 1.000 285.0 6.820E-20 1.000 290.0 8.640E-20 1.000 295.0 1.060E-19 1.000 300.0 1.300E-19 1.000 305.0 1.600E-19 1.000 310.0 1.880E-19 1.000 315.0 2.160E-19 1.000 320.0 2.540E-19 1.000 325.0 2.880E-19 1.000 330.0 3.190E-19 1.000 335.0 3.590E-19 1.000 340.0 4.020E-19 1.000 345.0 4.180E-19 1.000 350.0 4.610E-19 1.000 355.0 4.980E-19 1.000 360.0 5.080E-19 1.000 365.0 5.500E-19 1.000 370.0 5.610E-19 1.000 375.0 5.890E-19 1.000 380.0 5.920E-19 1.000 385.0 5.940E-19 1.000 390.0 6.200E-19 1.000 395.0 5.920E-19 1.000 399.0 6.290E-19 0.950 400.0 6.390E-19 0.880 401.0 6.260E-19 0.750 402.0 6.140E-19 0.620 403.0 6.010E-19 0.530 404.0 5.890E-19 0.440 405.0 5.770E-19 0.370 406.0 5.850E-19 0.300 407.0 5.920E-19 0.260 408.0 6.000E-19 0.220 409.0 6.080E-19 0.180 410.0 6.150E-19 0.150 411.0 6.100E-19 0.130 412.0 6.050E-19 0.110 413.0 6.000E-19 0.090 414.0 5.940E-19 0.080 415.0 5.890E-19 0.060 416.0 5.900E-19 0.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/NO2_NASA94 ================================================ NO2_NASA94 ! Nitrogen Dioxide Photolysis (NO2) ! NO2 + hv -> NO + O ! Taken from the original RADM data, with NASA (1994) updates ! format: wl, abs_cs, qy Centered ! With FAC, units are (cm^2/molecule) FAC=1.0 186.100 2.592E-19 1.000E+00 187.800 2.718E-19 1.000E+00 189.600 2.855E-19 1.000E+00 191.400 2.726E-19 1.000E+00 193.200 2.507E-19 1.000E+00 195.100 2.443E-19 1.000E+00 197.000 2.461E-19 1.000E+00 199.000 2.459E-19 1.000E+00 201.000 2.824E-19 1.000E+00 203.100 4.145E-19 1.000E+00 205.100 4.478E-19 1.000E+00 207.300 4.454E-19 1.000E+00 209.400 4.641E-19 1.000E+00 211.600 4.866E-19 1.000E+00 213.900 4.818E-19 1.000E+00 216.200 5.021E-19 1.000E+00 218.600 4.441E-19 1.000E+00 221.000 4.712E-19 1.000E+00 223.500 3.772E-19 1.000E+00 226.000 3.928E-19 1.000E+00 228.600 2.740E-19 1.000E+00 231.200 2.778E-19 1.000E+00 233.900 1.690E-19 1.000E+00 236.700 1.617E-19 1.000E+00 239.500 8.810E-20 1.000E+00 242.400 7.470E-20 1.000E+00 245.400 3.907E-20 1.000E+00 248.500 2.753E-20 1.000E+00 251.600 2.007E-20 1.000E+00 254.800 1.973E-20 1.000E+00 258.100 2.111E-20 1.000E+00 261.400 2.357E-20 1.000E+00 264.900 2.698E-20 1.000E+00 268.500 3.247E-20 1.000E+00 272.100 3.786E-20 1.000E+00 275.900 5.049E-20 1.000E+00 279.700 5.900E-20 1.000E+00 283.700 6.988E-20 1.000E+00 287.800 8.141E-20 9.994E-01 292.000 9.712E-20 9.986E-01 296.300 1.150E-19 9.978E-01 300.500 1.336E-19 9.970E-01 303.000 1.451E-19 9.960E-01 304.000 1.580E-19 9.960E-01 305.000 1.580E-19 9.960E-01 306.000 1.580E-19 9.960E-01 307.000 1.580E-19 9.960E-01 308.000 1.802E-19 9.950E-01 309.000 1.854E-19 9.950E-01 310.000 1.854E-19 9.950E-01 311.000 1.854E-19 9.950E-01 312.000 1.854E-19 9.950E-01 313.000 2.136E-19 9.940E-01 314.000 2.136E-19 9.940E-01 316.000 2.136E-19 9.940E-01 320.000 2.457E-19 9.930E-01 325.000 2.779E-19 9.920E-01 330.000 3.099E-19 9.910E-01 335.000 3.393E-19 9.900E-01 340.000 3.758E-19 9.890E-01 345.000 4.018E-19 9.880E-01 350.000 4.283E-19 9.870E-01 355.000 4.669E-19 9.860E-01 360.000 4.806E-19 9.840E-01 365.000 5.133E-19 9.830E-01 370.000 5.287E-19 9.810E-01 375.000 5.488E-19 9.790E-01 380.000 5.622E-19 9.744E-01 385.000 5.733E-19 9.690E-01 390.000 5.904E-19 9.604E-01 395.000 5.827E-19 9.274E-01 400.000 6.006E-19 6.940E-01 405.000 5.767E-19 3.550E-01 410.000 5.971E-19 1.344E-01 415.000 5.651E-19 5.980E-02 420.000 5.782E-19 1.820E-02 425.000 0.000E+00 8.000E-04 430.000 0.000E+00 0.000E+00 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/NO2_RACM2 ================================================ NO2_RACM2 ! NO2 + HV = O3P + NO ! Absorption cross-section from NASA - 2006 ! Quantum yield from NASA - 2006 ! Supplied by Dr. Wendy Goliff, reformatted by Dr. Golam Sarwar to make it compatible with CMAQ ! Au and Brion J (1997), J Chem. Phys. 218, 109-126 wavelength <205 ! IUPAC 2005 for wavelength <242 to >205 Points ! With FAC, units are (cm^2/molecule) FAC=1.0 155.0 1.250e-17 1.000 165.3 1.160e-17 1.000 177.1 6.800e-18 1.000 190.8 1.800e-18 1.000 205.0 3.381e-19 1.000 210.0 4.451e-19 1.000 215.0 4.887e-19 1.000 220.0 4.672e-19 1.000 225.0 3.904e-19 1.000 230.0 2.765e-19 1.000 235.0 1.653e-19 1.000 242.5 0.577E-19 1.000 245.4 0.279E-19 1.000 248.5 0.162E-19 1.000 251.6 0.998E-20 1.000 254.8 0.105E-19 1.000 258.2 0.128E-19 1.000 261.5 0.158E-19 1.000 265.0 0.205E-19 1.000 268.5 0.264E-19 1.000 272.2 0.324E-19 1.000 275.9 0.407E-19 1.000 279.8 0.521E-19 1.000 283.7 0.623E-19 1.000 287.8 0.759E-19 1.000 292.0 0.951E-19 1.000 296.3 0.115E-18 1.000 300.5 0.132E-18 1.000 303.0 0.132E-18 1.000 304.0 0.161E-18 1.000 305.0 0.161E-18 1.000 306.0 0.161E-18 1.000 307.0 0.161E-18 1.000 308.0 0.188E-18 1.000 309.0 0.188E-18 1.000 310.0 0.188E-18 1.000 311.0 0.188E-18 1.000 312.0 0.188E-18 1.000 313.0 0.216E-18 1.000 314.0 0.216E-18 1.000 316.0 0.216E-18 1.000 320.0 0.253E-18 1.000 325.0 0.287E-18 1.000 330.0 0.317E-18 1.000 335.0 0.358E-18 1.000 340.0 0.402E-18 1.000 345.0 0.418E-18 1.000 350.0 0.462E-18 1.000 355.0 0.497E-18 1.000 360.0 0.509E-18 1.000 365.0 0.549E-18 1.000 370.0 0.561E-18 1.000 375.0 0.590E-18 1.000 380.0 0.593E-18 1.000 385.0 0.601E-18 1.000 390.0 0.630E-18 1.000 395.0 0.597E-18 1.000 400.0 0.644E-18 0.940 405.0 0.582E-18 0.370 410.0 0.624E-18 0.150 415.0 0.591E-18 0.060 420.0 0.599E-18 0.020 425.0 0.570E-18 0.000 430.0 0.544E-18 0.000 435.0 0.559E-18 0.000 440.0 0.488E-18 0.000 445.0 0.488E-18 0.000 450.0 0.498E-18 0.000 455.0 0.416E-18 0.000 460.0 0.436E-18 0.000 465.0 0.414E-18 0.000 470.0 0.337E-18 0.000 475.0 0.387E-18 0.000 480.0 0.337E-18 0.000 485.0 0.254E-18 0.000 490.0 0.308E-18 0.000 495.0 0.294E-18 0.000 500.0 0.182E-18 0.000 505.0 0.243E-18 0.000 510.0 0.231E-18 0.000 515.0 0.160E-18 0.000 520.0 0.161E-18 0.000 525.0 0.179E-18 0.000 530.0 0.153E-18 0.000 535.0 0.106E-18 0.000 540.0 0.108E-18 0.000 545.0 0.127E-18 0.000 550.0 0.110E-18 0.000 555.0 0.797E-19 0.000 560.0 0.605E-19 0.000 565.0 0.870E-19 0.000 570.0 0.848E-19 0.000 575.0 0.471E-19 0.000 580.0 0.447E-19 0.000 585.0 0.469E-19 0.000 590.0 0.539E-19 0.000 595.0 0.408E-19 0.000 600.0 0.395E-19 0.000 605.0 0.185E-19 0.000 610.0 0.254E-19 0.000 615.0 0.353E-19 0.000 620.0 0.257E-19 0.000 625.0 0.196E-19 0.000 630.0 0.121E-19 0.000 635.0 0.133E-19 0.000 640.0 0.153E-19 0.000 644.8 0.192E-19 0.000 651.0 0.135E-19 0.000 660.0 0.566E-20 0.000 670.0 0.000E+00 0.000 680.0 0.000E+00 0.000 690.0 0.000E+00 0.000 700.0 0.000E+00 0.000 710.0 0.000E+00 0.000 720.0 0.000E+00 0.000 730.0 0.000E+00 0.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/NO2_RADM88 ================================================ NO2_RADM88 ! Nitrogen Dioxide Photolysis (NO2) ! NO2 + hv -> NO + O ! Abs. CS from Bass et al. [1976] and Davenport [1978]; ! QY from Gardner et al. [1987] ! format: wl, abs_cs, qy Beginning ! With FAC, units are (cm^2/molecule) FAC=1.0 185.185 2.592E-19 1.000E+00 186.916 2.718E-19 1.000E+00 188.679 2.855E-19 1.000E+00 190.476 2.726E-19 1.000E+00 192.308 2.507E-19 1.000E+00 194.175 2.443E-19 1.000E+00 196.078 2.461E-19 1.000E+00 198.020 2.459E-19 1.000E+00 200.000 2.824E-19 1.000E+00 202.020 2.918E-19 1.000E+00 204.082 3.534E-19 1.000E+00 206.186 3.741E-19 1.000E+00 208.333 4.103E-19 1.000E+00 210.526 4.359E-19 1.000E+00 212.766 4.450E-19 1.000E+00 215.054 4.595E-19 1.000E+00 217.391 4.169E-19 1.000E+00 219.780 4.538E-19 1.000E+00 222.222 3.702E-19 1.000E+00 224.719 3.889E-19 1.000E+00 227.273 2.693E-19 1.000E+00 229.885 2.757E-19 1.000E+00 232.558 1.707E-19 1.000E+00 235.294 1.617E-19 1.000E+00 238.095 7.847E-20 1.000E+00 240.964 6.118E-20 1.000E+00 243.902 2.883E-20 1.000E+00 246.914 2.134E-20 1.000E+00 250.000 1.404E-20 1.000E+00 253.165 1.492E-20 1.000E+00 256.410 1.595E-20 1.000E+00 259.740 1.795E-20 1.000E+00 263.158 2.184E-20 1.000E+00 266.667 2.717E-20 1.000E+00 270.270 3.270E-20 1.000E+00 273.973 4.100E-20 1.000E+00 277.778 5.258E-20 1.000E+00 281.690 6.265E-20 1.000E+00 285.714 7.620E-20 1.000E+00 289.855 9.395E-20 1.000E+00 294.118 1.092E-19 1.000E+00 298.500 1.262E-19 1.000E+00 302.500 1.508E-19 1.000E+00 303.500 1.559E-19 1.000E+00 304.500 1.552E-19 1.000E+00 305.500 1.533E-19 1.000E+00 306.500 1.612E-19 1.000E+00 307.500 1.655E-19 1.000E+00 308.500 1.813E-19 1.000E+00 309.500 1.826E-19 1.000E+00 310.500 1.910E-19 1.000E+00 311.500 2.029E-19 1.000E+00 312.500 2.007E-19 1.000E+00 313.500 1.993E-19 1.000E+00 314.500 2.200E-19 1.000E+00 317.500 2.501E-19 1.000E+00 322.500 2.807E-19 1.000E+00 327.500 3.042E-19 1.000E+00 332.500 3.404E-19 1.000E+00 337.500 3.843E-19 1.000E+00 342.500 4.045E-19 1.000E+00 347.500 4.465E-19 1.000E+00 352.500 4.877E-19 1.000E+00 357.500 4.936E-19 1.000E+00 362.500 5.287E-19 1.000E+00 367.500 5.401E-19 1.000E+00 372.500 5.633E-19 1.000E+00 377.500 5.609E-19 1.000E+00 382.500 5.716E-19 9.974E-01 387.500 6.003E-19 9.812E-01 392.500 5.686E-19 9.220E-01 397.500 6.176E-19 6.926E-01 402.500 5.492E-19 3.559E-01 407.500 5.981E-19 1.351E-01 412.500 5.772E-19 5.985E-02 417.500 0.000E+00 1.832E-02 422.500 0.000E+00 9.000E-04 427.500 0.000E+00 0.000E+00 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/NO2_SAPRC99 ================================================ NO2 ! NO2 + HV = NO + O ! SAPRC-99 Photolysis data. Supplied by William P. L. Carter. ! Created from PhotDat.xls on 29-Jan-2000 10:07 ! Au and Brion J (1997), J Chem. Phys. 218, 109-126 wavelength <205 Points (the mechanism was evaluated assuming this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 155.0 1.250e-17 1.000 165.3 1.160e-17 1.000 177.1 6.800e-18 1.000 190.8 1.800e-18 1.000 205.0 4.310E-19 1.000 210.0 4.720E-19 1.000 215.0 4.950E-19 1.000 220.0 4.560E-19 1.000 225.0 3.790E-19 1.000 230.0 2.740E-19 1.000 235.0 1.670E-19 1.000 240.0 9.310E-20 1.000 245.0 4.740E-20 1.000 250.0 2.480E-20 1.000 255.0 1.950E-20 1.000 260.0 2.240E-20 1.000 265.0 2.730E-20 1.000 270.0 4.110E-20 1.000 275.0 4.900E-20 1.000 280.0 5.920E-20 1.000 285.0 7.390E-20 1.000 290.0 9.000E-20 1.000 295.0 1.090E-19 1.000 300.0 1.310E-19 1.000 305.0 1.570E-19 1.000 310.0 1.860E-19 1.000 315.0 2.150E-19 0.990 320.0 2.480E-19 0.990 325.0 2.810E-19 0.990 330.0 3.130E-19 0.990 335.0 3.430E-19 0.990 340.0 3.800E-19 0.990 345.0 4.070E-19 0.990 350.0 4.310E-19 0.990 355.0 4.720E-19 0.990 360.0 4.830E-19 0.980 365.0 5.170E-19 0.980 370.0 5.320E-19 0.980 375.0 5.510E-19 0.980 380.0 5.640E-19 0.970 385.0 5.760E-19 0.970 390.0 5.930E-19 0.960 395.0 5.850E-19 0.935 400.0 6.020E-19 0.820 405.0 5.780E-19 0.355 410.0 6.000E-19 0.130 411.0 5.930E-19 0.110 412.0 5.860E-19 0.094 413.0 5.790E-19 0.083 414.0 5.720E-19 0.070 415.0 5.650E-19 0.059 416.0 5.680E-19 0.048 417.0 5.710E-19 0.039 418.0 5.750E-19 0.030 419.0 5.780E-19 0.023 420.0 5.810E-19 0.018 421.0 5.720E-19 0.012 422.0 5.640E-19 0.008 423.0 5.550E-19 0.004 424.0 5.470E-19 0.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/NO3NO-06 ================================================ NO3NO-06 ! NO3 + HV = NO + O2 ! From NASA (2006), for 298 K. ! Quantum yields for wavelengths above 640 nm estimated by linear extrapolation. ! Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 585.0 3.100E-18 0.0000 586.0 3.550E-18 0.0150 587.0 4.460E-18 0.0390 588.0 5.400E-18 0.0970 589.0 6.560E-18 0.1280 590.0 6.380E-18 0.1900 591.0 5.830E-18 0.2200 592.0 5.480E-18 0.2490 593.0 4.900E-18 0.3030 594.0 4.490E-18 0.3280 595.0 4.600E-18 0.3590 596.0 4.950E-18 0.3570 597.0 4.670E-18 0.3180 598.0 3.930E-18 0.3230 599.0 3.330E-18 0.3140 600.0 2.960E-18 0.2910 601.0 3.070E-18 0.2960 602.0 3.550E-18 0.2910 603.0 4.080E-18 0.2830 604.0 4.680E-18 0.2800 605.0 4.670E-18 0.2640 606.0 3.550E-18 0.2710 607.0 2.580E-18 0.2680 608.0 1.980E-18 0.2500 609.0 1.840E-18 0.2480 610.0 1.890E-18 0.2360 611.0 2.040E-18 0.2050 612.0 2.390E-18 0.2000 613.0 2.820E-18 0.1900 614.0 2.730E-18 0.1660 615.0 2.420E-18 0.1660 616.0 2.240E-18 0.1600 617.0 2.260E-18 0.1410 618.0 2.560E-18 0.1430 619.0 2.740E-18 0.1390 620.0 3.500E-18 0.1310 621.0 5.620E-18 0.1270 622.0 1.090E-17 0.1220 623.0 1.578E-17 0.1170 624.0 1.291E-17 0.1060 625.0 8.980E-18 0.0990 626.0 7.830E-18 0.0920 627.0 8.060E-18 0.0850 628.0 7.890E-18 0.0740 629.0 7.480E-18 0.0700 630.0 7.240E-18 0.0650 631.0 5.180E-18 0.0580 632.0 3.500E-18 0.0510 633.0 2.330E-18 0.0470 634.0 1.760E-18 0.0430 635.0 1.540E-18 0.0370 636.0 1.810E-18 0.0320 637.0 2.220E-18 0.0290 638.0 2.170E-18 0.0270 639.0 1.690E-18 0.0240 640.0 1.320E-18 0.0200 641.0 1.080E-18 0.0170 642.0 9.900E-19 0.0140 643.0 1.040E-18 0.0110 644.0 1.020E-18 0.0080 645.0 9.200E-19 0.0040 646.0 8.000E-19 0.0010 647.0 7.500E-19 0.0000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/NO3NO2-6 ================================================ NO3NO2-6 ! NO3 + HV = NO2 + O ! From NASA (2006), for 298 K. ! Quantum yields for wavelengths above 640 nm estimated by linear extrapolation. ! Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 403.0 2.000E-20 1.0000 404.0 0.000E+00 1.0000 405.0 3.000E-20 1.0000 406.0 2.000E-20 1.0000 407.0 1.000E-20 1.0000 408.0 3.000E-20 1.0000 409.0 0.000E+00 1.0000 410.0 1.000E-20 1.0000 411.0 2.000E-20 1.0000 412.0 5.000E-20 1.0000 413.0 5.000E-20 1.0000 414.0 2.000E-20 1.0000 415.0 6.000E-20 1.0000 416.0 7.000E-20 1.0000 417.0 8.000E-20 1.0000 418.0 5.000E-20 1.0000 419.0 9.000E-20 1.0000 420.0 9.000E-20 1.0000 421.0 9.000E-20 1.0000 422.0 1.000E-19 1.0000 423.0 1.200E-19 1.0000 424.0 1.000E-19 1.0000 425.0 8.000E-20 1.0000 426.0 1.500E-19 1.0000 427.0 1.500E-19 1.0000 428.0 1.300E-19 1.0000 429.0 1.200E-19 1.0000 430.0 1.800E-19 1.0000 431.0 1.400E-19 1.0000 432.0 1.600E-19 1.0000 433.0 1.900E-19 1.0000 434.0 2.000E-19 1.0000 435.0 1.700E-19 1.0000 436.0 1.600E-19 1.0000 437.0 2.000E-19 1.0000 438.0 2.300E-19 1.0000 439.0 2.200E-19 1.0000 440.0 2.100E-19 1.0000 441.0 2.000E-19 1.0000 442.0 2.300E-19 1.0000 443.0 1.900E-19 1.0000 444.0 2.100E-19 1.0000 445.0 2.200E-19 1.0000 446.0 2.600E-19 1.0000 447.0 3.100E-19 1.0000 448.0 2.600E-19 1.0000 449.0 3.000E-19 1.0000 450.0 3.100E-19 1.0000 451.0 3.300E-19 1.0000 452.0 3.600E-19 1.0000 453.0 3.400E-19 1.0000 454.0 3.800E-19 1.0000 455.0 3.800E-19 1.0000 456.0 3.800E-19 1.0000 457.0 4.200E-19 1.0000 458.0 3.900E-19 1.0000 459.0 4.500E-19 1.0000 460.0 4.200E-19 1.0000 461.0 4.100E-19 1.0000 462.0 4.200E-19 1.0000 463.0 4.300E-19 1.0000 464.0 5.100E-19 1.0000 465.0 5.400E-19 1.0000 466.0 5.800E-19 1.0000 467.0 6.100E-19 1.0000 468.0 6.000E-19 1.0000 469.0 6.200E-19 1.0000 470.0 6.300E-19 1.0000 471.0 6.600E-19 1.0000 472.0 6.900E-19 1.0000 473.0 6.600E-19 1.0000 474.0 6.600E-19 1.0000 475.0 7.300E-19 1.0000 476.0 8.400E-19 1.0000 477.0 8.300E-19 1.0000 478.0 7.800E-19 1.0000 479.0 7.800E-19 1.0000 480.0 7.500E-19 1.0000 481.0 7.600E-19 1.0000 482.0 7.600E-19 1.0000 483.0 7.700E-19 1.0000 484.0 8.300E-19 1.0000 485.0 8.800E-19 1.0000 486.0 9.800E-19 1.0000 487.0 9.900E-19 1.0000 488.0 1.020E-18 1.0000 489.0 1.030E-18 1.0000 490.0 1.110E-18 1.0000 491.0 1.060E-18 1.0000 492.0 1.070E-18 1.0000 493.0 1.090E-18 1.0000 494.0 1.090E-18 1.0000 495.0 1.130E-18 1.0000 496.0 1.290E-18 1.0000 497.0 1.300E-18 1.0000 498.0 1.280E-18 1.0000 499.0 1.250E-18 1.0000 500.0 1.210E-18 1.0000 501.0 1.180E-18 1.0000 502.0 1.180E-18 1.0000 503.0 1.190E-18 1.0000 504.0 1.350E-18 1.0000 505.0 1.370E-18 1.0000 506.0 1.430E-18 1.0000 507.0 1.370E-18 1.0000 508.0 1.360E-18 1.0000 509.0 1.450E-18 1.0000 510.0 1.620E-18 1.0000 511.0 1.860E-18 1.0000 512.0 1.890E-18 1.0000 513.0 1.720E-18 1.0000 514.0 1.690E-18 1.0000 515.0 1.700E-18 1.0000 516.0 1.670E-18 1.0000 517.0 1.600E-18 1.0000 518.0 1.540E-18 1.0000 519.0 1.650E-18 1.0000 520.0 1.800E-18 1.0000 521.0 1.960E-18 1.0000 522.0 2.060E-18 1.0000 523.0 1.890E-18 1.0000 524.0 1.760E-18 1.0000 525.0 1.690E-18 1.0000 526.0 1.750E-18 1.0000 527.0 1.930E-18 1.0000 528.0 2.250E-18 1.0000 529.0 2.570E-18 1.0000 530.0 2.390E-18 1.0000 531.0 2.240E-18 1.0000 532.0 2.160E-18 1.0000 533.0 2.090E-18 1.0000 534.0 2.180E-18 1.0000 535.0 2.470E-18 1.0000 536.0 2.750E-18 1.0000 537.0 2.760E-18 1.0000 538.0 2.510E-18 1.0000 539.0 2.190E-18 1.0000 540.0 2.250E-18 1.0000 541.0 2.190E-18 1.0000 542.0 2.010E-18 1.0000 543.0 1.800E-18 1.0000 544.0 1.830E-18 1.0000 545.0 2.100E-18 1.0000 546.0 2.600E-18 1.0000 547.0 3.120E-18 1.0000 548.0 3.200E-18 1.0000 549.0 2.900E-18 1.0000 550.0 2.650E-18 1.0000 551.0 2.610E-18 1.0000 552.0 2.640E-18 1.0000 553.0 2.710E-18 1.0000 554.0 2.980E-18 1.0000 555.0 3.340E-18 1.0000 556.0 3.490E-18 1.0000 557.0 3.520E-18 1.0000 558.0 3.760E-18 1.0000 559.0 3.990E-18 1.0000 560.0 3.550E-18 1.0000 561.0 3.200E-18 1.0000 562.0 3.110E-18 1.0000 563.0 3.000E-18 1.0000 564.0 2.910E-18 1.0000 565.0 2.920E-18 1.0000 566.0 3.050E-18 1.0000 567.0 3.010E-18 1.0000 568.0 3.050E-18 1.0000 569.0 3.100E-18 1.0000 570.0 2.990E-18 1.0000 571.0 2.960E-18 1.0000 572.0 2.940E-18 1.0000 573.0 2.980E-18 1.0000 574.0 3.060E-18 1.0000 575.0 3.300E-18 1.0000 576.0 3.500E-18 1.0000 577.0 3.620E-18 1.0000 578.0 3.540E-18 1.0000 579.0 3.470E-18 1.0000 580.0 3.580E-18 1.0000 581.0 3.800E-18 1.0000 582.0 3.510E-18 1.0000 583.0 3.140E-18 1.0000 584.0 3.020E-18 1.0000 585.0 3.100E-18 0.9830 586.0 3.550E-18 0.9670 587.0 4.460E-18 0.9430 588.0 5.400E-18 0.8850 589.0 6.560E-18 0.8540 590.0 6.380E-18 0.7930 591.0 5.830E-18 0.7630 592.0 5.480E-18 0.7340 593.0 4.900E-18 0.6800 594.0 4.490E-18 0.6540 595.0 4.600E-18 0.6080 596.0 4.950E-18 0.5870 597.0 4.670E-18 0.5670 598.0 3.930E-18 0.5310 599.0 3.330E-18 0.5090 600.0 2.960E-18 0.4720 601.0 3.070E-18 0.4380 602.0 3.550E-18 0.4150 603.0 4.080E-18 0.3710 604.0 4.680E-18 0.3510 605.0 4.670E-18 0.3230 606.0 3.550E-18 0.2960 607.0 2.580E-18 0.2800 608.0 1.980E-18 0.2590 609.0 1.840E-18 0.2380 610.0 1.890E-18 0.2260 611.0 2.040E-18 0.2100 612.0 2.390E-18 0.1930 613.0 2.820E-18 0.1810 614.0 2.730E-18 0.1660 615.0 2.420E-18 0.1470 616.0 2.240E-18 0.1370 617.0 2.260E-18 0.1240 618.0 2.560E-18 0.1080 619.0 2.740E-18 0.0990 620.0 3.500E-18 0.0900 621.0 5.620E-18 0.0770 622.0 1.090E-17 0.0700 623.0 1.578E-17 0.0640 624.0 1.291E-17 0.0550 625.0 8.980E-18 0.0490 626.0 7.830E-18 0.0440 627.0 8.060E-18 0.0390 628.0 7.890E-18 0.0340 629.0 7.480E-18 0.0290 630.0 7.240E-18 0.0260 631.0 5.180E-18 0.0240 632.0 3.500E-18 0.0200 633.0 2.330E-18 0.0180 634.0 1.760E-18 0.0160 635.0 1.540E-18 0.0150 636.0 1.810E-18 0.0120 637.0 2.220E-18 0.0110 638.0 2.170E-18 0.0100 639.0 1.690E-18 0.0090 640.0 1.320E-18 0.0070 641.0 1.080E-18 0.0060 642.0 9.900E-19 0.0040 643.0 1.040E-18 0.0030 644.0 1.020E-18 0.0020 645.0 9.200E-19 0.0000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/NO3NO2_06 ================================================ NO3NO2_06 ! NO3 + HV = NO2 + O ! From NASA (2006), for 298 K. ! Quantum yields for wavelengths above 640 nm estimated by linear extrapolation. ! Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 403.0 2.000E-20 1.0000 404.0 0.000E+00 1.0000 405.0 3.000E-20 1.0000 406.0 2.000E-20 1.0000 407.0 1.000E-20 1.0000 408.0 3.000E-20 1.0000 409.0 0.000E+00 1.0000 410.0 1.000E-20 1.0000 411.0 2.000E-20 1.0000 412.0 5.000E-20 1.0000 413.0 5.000E-20 1.0000 414.0 2.000E-20 1.0000 415.0 6.000E-20 1.0000 416.0 7.000E-20 1.0000 417.0 8.000E-20 1.0000 418.0 5.000E-20 1.0000 419.0 9.000E-20 1.0000 420.0 9.000E-20 1.0000 421.0 9.000E-20 1.0000 422.0 1.000E-19 1.0000 423.0 1.200E-19 1.0000 424.0 1.000E-19 1.0000 425.0 8.000E-20 1.0000 426.0 1.500E-19 1.0000 427.0 1.500E-19 1.0000 428.0 1.300E-19 1.0000 429.0 1.200E-19 1.0000 430.0 1.800E-19 1.0000 431.0 1.400E-19 1.0000 432.0 1.600E-19 1.0000 433.0 1.900E-19 1.0000 434.0 2.000E-19 1.0000 435.0 1.700E-19 1.0000 436.0 1.600E-19 1.0000 437.0 2.000E-19 1.0000 438.0 2.300E-19 1.0000 439.0 2.200E-19 1.0000 440.0 2.100E-19 1.0000 441.0 2.000E-19 1.0000 442.0 2.300E-19 1.0000 443.0 1.900E-19 1.0000 444.0 2.100E-19 1.0000 445.0 2.200E-19 1.0000 446.0 2.600E-19 1.0000 447.0 3.100E-19 1.0000 448.0 2.600E-19 1.0000 449.0 3.000E-19 1.0000 450.0 3.100E-19 1.0000 451.0 3.300E-19 1.0000 452.0 3.600E-19 1.0000 453.0 3.400E-19 1.0000 454.0 3.800E-19 1.0000 455.0 3.800E-19 1.0000 456.0 3.800E-19 1.0000 457.0 4.200E-19 1.0000 458.0 3.900E-19 1.0000 459.0 4.500E-19 1.0000 460.0 4.200E-19 1.0000 461.0 4.100E-19 1.0000 462.0 4.200E-19 1.0000 463.0 4.300E-19 1.0000 464.0 5.100E-19 1.0000 465.0 5.400E-19 1.0000 466.0 5.800E-19 1.0000 467.0 6.100E-19 1.0000 468.0 6.000E-19 1.0000 469.0 6.200E-19 1.0000 470.0 6.300E-19 1.0000 471.0 6.600E-19 1.0000 472.0 6.900E-19 1.0000 473.0 6.600E-19 1.0000 474.0 6.600E-19 1.0000 475.0 7.300E-19 1.0000 476.0 8.400E-19 1.0000 477.0 8.300E-19 1.0000 478.0 7.800E-19 1.0000 479.0 7.800E-19 1.0000 480.0 7.500E-19 1.0000 481.0 7.600E-19 1.0000 482.0 7.600E-19 1.0000 483.0 7.700E-19 1.0000 484.0 8.300E-19 1.0000 485.0 8.800E-19 1.0000 486.0 9.800E-19 1.0000 487.0 9.900E-19 1.0000 488.0 1.020E-18 1.0000 489.0 1.030E-18 1.0000 490.0 1.110E-18 1.0000 491.0 1.060E-18 1.0000 492.0 1.070E-18 1.0000 493.0 1.090E-18 1.0000 494.0 1.090E-18 1.0000 495.0 1.130E-18 1.0000 496.0 1.290E-18 1.0000 497.0 1.300E-18 1.0000 498.0 1.280E-18 1.0000 499.0 1.250E-18 1.0000 500.0 1.210E-18 1.0000 501.0 1.180E-18 1.0000 502.0 1.180E-18 1.0000 503.0 1.190E-18 1.0000 504.0 1.350E-18 1.0000 505.0 1.370E-18 1.0000 506.0 1.430E-18 1.0000 507.0 1.370E-18 1.0000 508.0 1.360E-18 1.0000 509.0 1.450E-18 1.0000 510.0 1.620E-18 1.0000 511.0 1.860E-18 1.0000 512.0 1.890E-18 1.0000 513.0 1.720E-18 1.0000 514.0 1.690E-18 1.0000 515.0 1.700E-18 1.0000 516.0 1.670E-18 1.0000 517.0 1.600E-18 1.0000 518.0 1.540E-18 1.0000 519.0 1.650E-18 1.0000 520.0 1.800E-18 1.0000 521.0 1.960E-18 1.0000 522.0 2.060E-18 1.0000 523.0 1.890E-18 1.0000 524.0 1.760E-18 1.0000 525.0 1.690E-18 1.0000 526.0 1.750E-18 1.0000 527.0 1.930E-18 1.0000 528.0 2.250E-18 1.0000 529.0 2.570E-18 1.0000 530.0 2.390E-18 1.0000 531.0 2.240E-18 1.0000 532.0 2.160E-18 1.0000 533.0 2.090E-18 1.0000 534.0 2.180E-18 1.0000 535.0 2.470E-18 1.0000 536.0 2.750E-18 1.0000 537.0 2.760E-18 1.0000 538.0 2.510E-18 1.0000 539.0 2.190E-18 1.0000 540.0 2.250E-18 1.0000 541.0 2.190E-18 1.0000 542.0 2.010E-18 1.0000 543.0 1.800E-18 1.0000 544.0 1.830E-18 1.0000 545.0 2.100E-18 1.0000 546.0 2.600E-18 1.0000 547.0 3.120E-18 1.0000 548.0 3.200E-18 1.0000 549.0 2.900E-18 1.0000 550.0 2.650E-18 1.0000 551.0 2.610E-18 1.0000 552.0 2.640E-18 1.0000 553.0 2.710E-18 1.0000 554.0 2.980E-18 1.0000 555.0 3.340E-18 1.0000 556.0 3.490E-18 1.0000 557.0 3.520E-18 1.0000 558.0 3.760E-18 1.0000 559.0 3.990E-18 1.0000 560.0 3.550E-18 1.0000 561.0 3.200E-18 1.0000 562.0 3.110E-18 1.0000 563.0 3.000E-18 1.0000 564.0 2.910E-18 1.0000 565.0 2.920E-18 1.0000 566.0 3.050E-18 1.0000 567.0 3.010E-18 1.0000 568.0 3.050E-18 1.0000 569.0 3.100E-18 1.0000 570.0 2.990E-18 1.0000 571.0 2.960E-18 1.0000 572.0 2.940E-18 1.0000 573.0 2.980E-18 1.0000 574.0 3.060E-18 1.0000 575.0 3.300E-18 1.0000 576.0 3.500E-18 1.0000 577.0 3.620E-18 1.0000 578.0 3.540E-18 1.0000 579.0 3.470E-18 1.0000 580.0 3.580E-18 1.0000 581.0 3.800E-18 1.0000 582.0 3.510E-18 1.0000 583.0 3.140E-18 1.0000 584.0 3.020E-18 1.0000 585.0 3.100E-18 0.9830 586.0 3.550E-18 0.9670 587.0 4.460E-18 0.9430 588.0 5.400E-18 0.8850 589.0 6.560E-18 0.8540 590.0 6.380E-18 0.7930 591.0 5.830E-18 0.7630 592.0 5.480E-18 0.7340 593.0 4.900E-18 0.6800 594.0 4.490E-18 0.6540 595.0 4.600E-18 0.6080 596.0 4.950E-18 0.5870 597.0 4.670E-18 0.5670 598.0 3.930E-18 0.5310 599.0 3.330E-18 0.5090 600.0 2.960E-18 0.4720 601.0 3.070E-18 0.4380 602.0 3.550E-18 0.4150 603.0 4.080E-18 0.3710 604.0 4.680E-18 0.3510 605.0 4.670E-18 0.3230 606.0 3.550E-18 0.2960 607.0 2.580E-18 0.2800 608.0 1.980E-18 0.2590 609.0 1.840E-18 0.2380 610.0 1.890E-18 0.2260 611.0 2.040E-18 0.2100 612.0 2.390E-18 0.1930 613.0 2.820E-18 0.1810 614.0 2.730E-18 0.1660 615.0 2.420E-18 0.1470 616.0 2.240E-18 0.1370 617.0 2.260E-18 0.1240 618.0 2.560E-18 0.1080 619.0 2.740E-18 0.0990 620.0 3.500E-18 0.0900 621.0 5.620E-18 0.0770 622.0 1.090E-17 0.0700 623.0 1.578E-17 0.0640 624.0 1.291E-17 0.0550 625.0 8.980E-18 0.0490 626.0 7.830E-18 0.0440 627.0 8.060E-18 0.0390 628.0 7.890E-18 0.0340 629.0 7.480E-18 0.0290 630.0 7.240E-18 0.0260 631.0 5.180E-18 0.0240 632.0 3.500E-18 0.0200 633.0 2.330E-18 0.0180 634.0 1.760E-18 0.0160 635.0 1.540E-18 0.0150 636.0 1.810E-18 0.0120 637.0 2.220E-18 0.0110 638.0 2.170E-18 0.0100 639.0 1.690E-18 0.0090 640.0 1.320E-18 0.0070 641.0 1.080E-18 0.0060 642.0 9.900E-19 0.0040 643.0 1.040E-18 0.0030 644.0 1.020E-18 0.0020 645.0 9.200E-19 0.0000 646.0 8.000E-19 0.0000 647.0 7.500E-19 0.0000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/NO3NO2_6 ================================================ NO3NO2_6 ! NO3 + HV = NO2 + O ! From NASA (2006), for 298 K. ! Quantum yields for wavelengths above 640 nm estimated by linear extrapolation. ! Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 403.0 2.000E-20 1.0000 404.0 0.000E+00 1.0000 405.0 3.000E-20 1.0000 406.0 2.000E-20 1.0000 407.0 1.000E-20 1.0000 408.0 3.000E-20 1.0000 409.0 0.000E+00 1.0000 410.0 1.000E-20 1.0000 411.0 2.000E-20 1.0000 412.0 5.000E-20 1.0000 413.0 5.000E-20 1.0000 414.0 2.000E-20 1.0000 415.0 6.000E-20 1.0000 416.0 7.000E-20 1.0000 417.0 8.000E-20 1.0000 418.0 5.000E-20 1.0000 419.0 9.000E-20 1.0000 420.0 9.000E-20 1.0000 421.0 9.000E-20 1.0000 422.0 1.000E-19 1.0000 423.0 1.200E-19 1.0000 424.0 1.000E-19 1.0000 425.0 8.000E-20 1.0000 426.0 1.500E-19 1.0000 427.0 1.500E-19 1.0000 428.0 1.300E-19 1.0000 429.0 1.200E-19 1.0000 430.0 1.800E-19 1.0000 431.0 1.400E-19 1.0000 432.0 1.600E-19 1.0000 433.0 1.900E-19 1.0000 434.0 2.000E-19 1.0000 435.0 1.700E-19 1.0000 436.0 1.600E-19 1.0000 437.0 2.000E-19 1.0000 438.0 2.300E-19 1.0000 439.0 2.200E-19 1.0000 440.0 2.100E-19 1.0000 441.0 2.000E-19 1.0000 442.0 2.300E-19 1.0000 443.0 1.900E-19 1.0000 444.0 2.100E-19 1.0000 445.0 2.200E-19 1.0000 446.0 2.600E-19 1.0000 447.0 3.100E-19 1.0000 448.0 2.600E-19 1.0000 449.0 3.000E-19 1.0000 450.0 3.100E-19 1.0000 451.0 3.300E-19 1.0000 452.0 3.600E-19 1.0000 453.0 3.400E-19 1.0000 454.0 3.800E-19 1.0000 455.0 3.800E-19 1.0000 456.0 3.800E-19 1.0000 457.0 4.200E-19 1.0000 458.0 3.900E-19 1.0000 459.0 4.500E-19 1.0000 460.0 4.200E-19 1.0000 461.0 4.100E-19 1.0000 462.0 4.200E-19 1.0000 463.0 4.300E-19 1.0000 464.0 5.100E-19 1.0000 465.0 5.400E-19 1.0000 466.0 5.800E-19 1.0000 467.0 6.100E-19 1.0000 468.0 6.000E-19 1.0000 469.0 6.200E-19 1.0000 470.0 6.300E-19 1.0000 471.0 6.600E-19 1.0000 472.0 6.900E-19 1.0000 473.0 6.600E-19 1.0000 474.0 6.600E-19 1.0000 475.0 7.300E-19 1.0000 476.0 8.400E-19 1.0000 477.0 8.300E-19 1.0000 478.0 7.800E-19 1.0000 479.0 7.800E-19 1.0000 480.0 7.500E-19 1.0000 481.0 7.600E-19 1.0000 482.0 7.600E-19 1.0000 483.0 7.700E-19 1.0000 484.0 8.300E-19 1.0000 485.0 8.800E-19 1.0000 486.0 9.800E-19 1.0000 487.0 9.900E-19 1.0000 488.0 1.020E-18 1.0000 489.0 1.030E-18 1.0000 490.0 1.110E-18 1.0000 491.0 1.060E-18 1.0000 492.0 1.070E-18 1.0000 493.0 1.090E-18 1.0000 494.0 1.090E-18 1.0000 495.0 1.130E-18 1.0000 496.0 1.290E-18 1.0000 497.0 1.300E-18 1.0000 498.0 1.280E-18 1.0000 499.0 1.250E-18 1.0000 500.0 1.210E-18 1.0000 501.0 1.180E-18 1.0000 502.0 1.180E-18 1.0000 503.0 1.190E-18 1.0000 504.0 1.350E-18 1.0000 505.0 1.370E-18 1.0000 506.0 1.430E-18 1.0000 507.0 1.370E-18 1.0000 508.0 1.360E-18 1.0000 509.0 1.450E-18 1.0000 510.0 1.620E-18 1.0000 511.0 1.860E-18 1.0000 512.0 1.890E-18 1.0000 513.0 1.720E-18 1.0000 514.0 1.690E-18 1.0000 515.0 1.700E-18 1.0000 516.0 1.670E-18 1.0000 517.0 1.600E-18 1.0000 518.0 1.540E-18 1.0000 519.0 1.650E-18 1.0000 520.0 1.800E-18 1.0000 521.0 1.960E-18 1.0000 522.0 2.060E-18 1.0000 523.0 1.890E-18 1.0000 524.0 1.760E-18 1.0000 525.0 1.690E-18 1.0000 526.0 1.750E-18 1.0000 527.0 1.930E-18 1.0000 528.0 2.250E-18 1.0000 529.0 2.570E-18 1.0000 530.0 2.390E-18 1.0000 531.0 2.240E-18 1.0000 532.0 2.160E-18 1.0000 533.0 2.090E-18 1.0000 534.0 2.180E-18 1.0000 535.0 2.470E-18 1.0000 536.0 2.750E-18 1.0000 537.0 2.760E-18 1.0000 538.0 2.510E-18 1.0000 539.0 2.190E-18 1.0000 540.0 2.250E-18 1.0000 541.0 2.190E-18 1.0000 542.0 2.010E-18 1.0000 543.0 1.800E-18 1.0000 544.0 1.830E-18 1.0000 545.0 2.100E-18 1.0000 546.0 2.600E-18 1.0000 547.0 3.120E-18 1.0000 548.0 3.200E-18 1.0000 549.0 2.900E-18 1.0000 550.0 2.650E-18 1.0000 551.0 2.610E-18 1.0000 552.0 2.640E-18 1.0000 553.0 2.710E-18 1.0000 554.0 2.980E-18 1.0000 555.0 3.340E-18 1.0000 556.0 3.490E-18 1.0000 557.0 3.520E-18 1.0000 558.0 3.760E-18 1.0000 559.0 3.990E-18 1.0000 560.0 3.550E-18 1.0000 561.0 3.200E-18 1.0000 562.0 3.110E-18 1.0000 563.0 3.000E-18 1.0000 564.0 2.910E-18 1.0000 565.0 2.920E-18 1.0000 566.0 3.050E-18 1.0000 567.0 3.010E-18 1.0000 568.0 3.050E-18 1.0000 569.0 3.100E-18 1.0000 570.0 2.990E-18 1.0000 571.0 2.960E-18 1.0000 572.0 2.940E-18 1.0000 573.0 2.980E-18 1.0000 574.0 3.060E-18 1.0000 575.0 3.300E-18 1.0000 576.0 3.500E-18 1.0000 577.0 3.620E-18 1.0000 578.0 3.540E-18 1.0000 579.0 3.470E-18 1.0000 580.0 3.580E-18 1.0000 581.0 3.800E-18 1.0000 582.0 3.510E-18 1.0000 583.0 3.140E-18 1.0000 584.0 3.020E-18 1.0000 585.0 3.100E-18 0.9830 586.0 3.550E-18 0.9670 587.0 4.460E-18 0.9430 588.0 5.400E-18 0.8850 589.0 6.560E-18 0.8540 590.0 6.380E-18 0.7930 591.0 5.830E-18 0.7630 592.0 5.480E-18 0.7340 593.0 4.900E-18 0.6800 594.0 4.490E-18 0.6540 595.0 4.600E-18 0.6080 596.0 4.950E-18 0.5870 597.0 4.670E-18 0.5670 598.0 3.930E-18 0.5310 599.0 3.330E-18 0.5090 600.0 2.960E-18 0.4720 601.0 3.070E-18 0.4380 602.0 3.550E-18 0.4150 603.0 4.080E-18 0.3710 604.0 4.680E-18 0.3510 605.0 4.670E-18 0.3230 606.0 3.550E-18 0.2960 607.0 2.580E-18 0.2800 608.0 1.980E-18 0.2590 609.0 1.840E-18 0.2380 610.0 1.890E-18 0.2260 611.0 2.040E-18 0.2100 612.0 2.390E-18 0.1930 613.0 2.820E-18 0.1810 614.0 2.730E-18 0.1660 615.0 2.420E-18 0.1470 616.0 2.240E-18 0.1370 617.0 2.260E-18 0.1240 618.0 2.560E-18 0.1080 619.0 2.740E-18 0.0990 620.0 3.500E-18 0.0900 621.0 5.620E-18 0.0770 622.0 1.090E-17 0.0700 623.0 1.578E-17 0.0640 624.0 1.291E-17 0.0550 625.0 8.980E-18 0.0490 626.0 7.830E-18 0.0440 627.0 8.060E-18 0.0390 628.0 7.890E-18 0.0340 629.0 7.480E-18 0.0290 630.0 7.240E-18 0.0260 631.0 5.180E-18 0.0240 632.0 3.500E-18 0.0200 633.0 2.330E-18 0.0180 634.0 1.760E-18 0.0160 635.0 1.540E-18 0.0150 636.0 1.810E-18 0.0120 637.0 2.220E-18 0.0110 638.0 2.170E-18 0.0100 639.0 1.690E-18 0.0090 640.0 1.320E-18 0.0070 641.0 1.080E-18 0.0060 642.0 9.900E-19 0.0040 643.0 1.040E-18 0.0030 644.0 1.020E-18 0.0020 645.0 9.200E-19 0.0000 646.0 8.000E-19 0.0000 647.0 7.500E-19 0.0000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/NO3NO2_NASA94 ================================================ NO3NO2_NASA94 ! Nitrate Photolysis to NO2 (NO3NO2) ! NO3 + hv -> NO2 + O(3P) ! Taken from the original RADM data, with NASA (1994) updates ! format: wl, abs_cs, qy Centered ! With FAC, units are (cm^2/molecule) FAC=1.0 400.000 0.0000000E+00 1.0000000E+00 405.000 2.7999999E-20 1.0000000E+00 410.000 4.4500000E-20 1.0000000E+00 415.000 5.3500000E-20 1.0000000E+00 420.000 8.1999997E-20 1.0000000E+00 425.000 1.0450000E-19 1.0000000E+00 430.000 1.2930000E-19 1.0000000E+00 435.000 1.8380000E-19 1.0000000E+00 440.000 1.9370001E-19 1.0000000E+00 445.000 2.2300001E-19 1.0000000E+00 450.000 2.8350000E-19 1.0000000E+00 455.000 3.3450000E-19 1.0000000E+00 460.000 3.7200000E-19 1.0000000E+00 465.000 4.3379998E-19 1.0000000E+00 470.000 5.0979999E-19 1.0000000E+00 475.000 6.0320001E-19 1.0000000E+00 480.000 6.4400002E-19 1.0000000E+00 485.000 6.8649999E-19 1.0000000E+00 490.000 8.8000002E-19 1.0000000E+00 495.000 9.6699999E-19 1.0000000E+00 500.000 9.8999995E-19 1.0000000E+00 505.000 1.0950000E-18 1.0000000E+00 510.000 1.3200000E-18 1.0000000E+00 515.000 1.4040000E-18 1.0000000E+00 520.000 1.4470000E-18 1.0000000E+00 525.000 1.4920000E-18 1.0000000E+00 530.000 1.9310000E-18 1.0000000E+00 535.000 2.0390000E-18 1.0000000E+00 540.000 1.8319999E-18 1.0000000E+00 545.000 1.8189999E-18 1.0000000E+00 550.000 2.3530000E-18 1.0000000E+00 555.000 2.6830000E-18 1.0000000E+00 560.000 3.0650001E-18 1.0000000E+00 565.000 2.5370000E-18 1.0000000E+00 570.000 2.4940000E-18 1.0000000E+00 575.000 2.6080000E-18 1.0000000E+00 580.000 2.9080000E-18 1.0000000E+00 585.000 2.6570001E-18 9.6818185E-01 590.000 4.7400001E-18 8.0909091E-01 595.000 3.7399999E-18 6.4999998E-01 600.000 1.6460000E-18 5.7777774E-01 605.000 3.4520001E-18 5.0555557E-01 610.000 1.7760000E-18 4.3333328E-01 615.000 2.1440000E-18 3.6111110E-01 620.000 4.2400000E-18 2.8888887E-01 625.000 9.5200002E-18 2.1666664E-01 630.000 5.6519998E-18 1.4444444E-01 635.000 1.6280000E-18 7.2222218E-02 640.000 1.3320000E-18 0.0000000E+00 644.800 8.3350001E-19 0.0000000E+00 651.100 6.0519997E-19 0.0000000E+00 660.000 8.1220004E-18 0.0000000E+00 670.000 1.4540000E-18 0.0000000E+00 680.000 3.3649999E-19 0.0000000E+00 690.000 1.7499999E-20 0.0000000E+00 700.000 0.0000000E+00 0.0000000E+00 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/NO3NO2_RACM2 ================================================ NO3NO2_RACM2 ! NO3 + HV = NO2 + O3P ! Absorption x-section from NASA - 2006 ! Quantum yields from NASA - 2006 ! Supplied by Dr. Wendy Goliff, reformatted by Dr. Golam Sarwar to make it compatible with CMAQ Points ! With FAC, units are (cm^2/molecule) FAC=1.0 186.1 0.000E+00 1.000 187.8 0.000E+00 1.000 189.6 0.000E+00 1.000 191.4 0.000E+00 1.000 193.3 0.000E+00 1.000 195.2 0.000E+00 1.000 197.1 0.000E+00 1.000 199.0 0.000E+00 1.000 201.0 0.000E+00 1.000 203.1 0.000E+00 1.000 205.2 0.000E+00 1.000 207.3 0.000E+00 1.000 209.4 0.000E+00 1.000 211.7 0.000E+00 1.000 213.9 0.000E+00 1.000 216.2 0.000E+00 1.000 218.6 0.000E+00 1.000 221.0 0.000E+00 1.000 223.5 0.000E+00 1.000 226.0 0.000E+00 1.000 228.6 0.000E+00 1.000 231.3 0.000E+00 1.000 234.0 0.000E+00 1.000 236.7 0.000E+00 1.000 239.6 0.000E+00 1.000 242.5 0.000E+00 1.000 245.4 0.000E+00 1.000 248.5 0.000E+00 1.000 251.6 0.000E+00 1.000 254.8 0.000E+00 1.000 258.2 0.000E+00 1.000 261.5 0.000E+00 1.000 265.0 0.000E+00 1.000 268.5 0.000E+00 1.000 272.2 0.000E+00 1.000 275.9 0.000E+00 1.000 279.8 0.000E+00 1.000 283.7 0.000E+00 1.000 287.8 0.000E+00 1.000 292.0 0.000E+00 1.000 296.3 0.000E+00 1.000 300.5 0.000E+00 1.000 303.0 0.000E+00 1.000 304.0 0.000E+00 1.000 305.0 0.000E+00 1.000 306.0 0.000E+00 1.000 307.0 0.000E+00 1.000 308.0 0.000E+00 1.000 309.0 0.000E+00 1.000 310.0 0.000E+00 1.000 311.0 0.000E+00 1.000 312.0 0.000E+00 1.000 313.0 0.000E+00 1.000 314.0 0.000E+00 1.000 316.0 0.000E+00 1.000 320.0 0.000E+00 1.000 325.0 0.000E+00 1.000 330.0 0.000E+00 1.000 335.0 0.000E+00 1.000 340.0 0.000E+00 1.000 345.0 0.000E+00 1.000 350.0 0.000E+00 1.000 355.0 0.000E+00 1.000 360.0 0.000E+00 1.000 365.0 0.000E+00 1.000 370.0 0.000E+00 1.000 375.0 0.000E+00 1.000 380.0 0.000E+00 1.000 385.0 0.000E+00 1.000 390.0 0.000E+00 1.000 395.0 0.000E+00 1.000 400.0 0.000E+00 1.000 405.0 0.200E-19 1.000 410.0 0.100E-19 1.000 415.0 0.600E-19 1.000 420.0 0.900E-19 1.000 425.0 0.800E-19 1.000 430.0 0.180E-18 1.000 435.0 0.170E-18 1.000 440.0 0.210E-18 1.000 445.0 0.220E-18 1.000 450.0 0.310E-18 1.000 455.0 0.380E-18 1.000 460.0 0.420E-18 1.000 465.0 0.540E-18 1.000 470.0 0.630E-18 1.000 475.0 0.730E-18 1.000 480.0 0.750E-18 1.000 485.0 0.880E-18 1.000 490.0 0.111E-17 1.000 495.0 0.113E-17 1.000 500.0 0.121E-17 1.000 505.0 0.137E-17 1.000 510.0 0.162E-17 1.000 515.0 0.170E-17 1.000 520.0 0.180E-17 1.000 525.0 0.169E-17 1.000 530.0 0.239E-17 1.000 535.0 0.247E-17 1.000 540.0 0.225E-17 1.000 545.0 0.210E-17 1.000 550.0 0.265E-17 1.000 555.0 0.334E-17 1.000 560.0 0.320E-17 1.000 565.0 0.292E-17 1.000 570.0 0.299E-17 1.000 575.0 0.330E-17 1.000 580.0 0.358E-17 1.000 585.0 0.310E-17 0.983 590.0 0.638E-17 0.793 595.0 0.460E-17 0.608 600.0 0.296E-17 0.472 605.0 0.467E-17 0.323 610.0 0.189E-17 0.226 615.0 0.242E-17 0.147 620.0 0.350E-17 0.090 625.0 0.898E-17 0.049 630.0 0.724E-17 0.026 635.0 0.154E-17 0.015 640.0 0.132E-17 0.000 644.8 0.940E-18 0.000 651.0 0.590E-18 0.000 660.0 0.798E-17 0.000 670.0 0.102E-17 0.000 680.0 0.740E-18 0.000 690.0 0.110E-18 0.000 700.0 0.000E+00 0.000 710.0 0.000E+00 0.000 720.0 0.000E+00 0.000 730.0 0.000E+00 0.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/NO3NO2_RADM88 ================================================ NO3NO2_RADM88 ! Nitrate Photolysis to NO2 (NO3NO2) ! NO3 + hv -> NO2 + O(3P) ! Abs CS: for wl<570 Graham and Johnston [1978]; ! for wl>570, average of Graham and Johnston [1978] and ! Ravishankara and Wine [1983] ! QY: Magnotta and Johnston [1980]; Graham and Johnston [1978]; ! scaled to yield unity ! format: wl, abs_cs, qy Beginning ! With FAC, units are (cm^2/molecule) FAC=1.0 402.500 2.7999999E-20 1.0000000E+00 407.500 4.4500000E-20 1.0000000E+00 412.500 5.3500000E-20 1.0000000E+00 417.500 8.1999997E-20 1.0000000E+00 422.500 1.0450000E-19 1.0000000E+00 427.500 1.2930000E-19 1.0000000E+00 432.500 1.8380000E-19 1.0000000E+00 437.500 1.9370001E-19 1.0000000E+00 442.500 2.2300001E-19 1.0000000E+00 447.500 2.8350000E-19 1.0000000E+00 452.500 3.3450000E-19 1.0000000E+00 457.500 3.7200000E-19 1.0000000E+00 462.500 4.3379998E-19 1.0000000E+00 467.500 5.0979999E-19 1.0000000E+00 472.500 6.0320001E-19 1.0000000E+00 477.500 6.4400002E-19 1.0000000E+00 482.500 6.8649999E-19 1.0000000E+00 487.500 8.8000002E-19 1.0000000E+00 492.500 9.6699999E-19 1.0000000E+00 497.500 9.8999995E-19 1.0000000E+00 502.500 1.0950000E-18 1.0000000E+00 507.500 1.3200000E-18 1.0000000E+00 512.500 1.4040000E-18 1.0000000E+00 517.500 1.4470000E-18 1.0000000E+00 522.500 1.4920000E-18 1.0000000E+00 527.500 1.9310000E-18 1.0000000E+00 532.500 2.0390000E-18 1.0000000E+00 537.500 1.8319999E-18 1.0000000E+00 542.500 1.8189999E-18 1.0000000E+00 547.500 2.3530000E-18 1.0000000E+00 552.500 2.6830000E-18 1.0000000E+00 557.500 3.0650001E-18 1.0000000E+00 562.500 2.5370000E-18 1.0000000E+00 567.500 2.4940000E-18 1.0000000E+00 572.500 2.6080000E-18 1.0000000E+00 577.500 2.9080000E-18 1.0000000E+00 582.500 2.6570001E-18 9.6818185E-01 587.500 4.7400001E-18 8.0909091E-01 592.500 3.7399999E-18 6.4999998E-01 597.500 2.6870001E-18 5.7777774E-01 602.500 3.0540000E-18 5.0555557E-01 607.500 1.5070000E-18 4.3333328E-01 612.500 1.8440000E-18 3.6111110E-01 617.500 4.6079999E-18 2.8888887E-01 622.500 8.1679999E-18 2.1666664E-01 627.500 4.8900002E-18 1.4444444E-01 632.500 1.4300000E-18 7.2222218E-02 637.500 1.0830000E-18 0.0000000E+00 642.500 6.7290000E-19 0.0000000E+00 647.100 5.0070002E-19 0.0000000E+00 655.000 7.3110003E-18 0.0000000E+00 665.000 1.3420000E-18 0.0000000E+00 675.000 3.3649999E-19 0.0000000E+00 685.000 1.7499999E-20 0.0000000E+00 695.000 0.0000000E+00 0.0000000E+00 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/NO3NO2_SAPRC99 ================================================ NO3NO2 ! NO3 + HV = NO2 + O (T=298) ! SAPRC-99 Photolysis data. Supplied by William P. L. Carter. ! Created from PhotDat.xls on 29-Jan-2000 10:07 Points (the mechanism was evaluated assuming this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 400.0 0.000E+00 1.000 401.0 0.000E+00 1.000 402.0 0.000E+00 1.000 403.0 2.000E-20 1.000 404.0 0.000E+00 1.000 405.0 3.000E-20 1.000 406.0 2.000E-20 1.000 407.0 1.000E-20 1.000 408.0 3.000E-20 1.000 409.0 0.000E+00 1.000 410.0 1.000E-20 1.000 411.0 2.000E-20 1.000 412.0 5.000E-20 1.000 413.0 5.000E-20 1.000 414.0 2.000E-20 1.000 415.0 6.000E-20 1.000 416.0 6.000E-20 1.000 417.0 7.000E-20 1.000 418.0 5.000E-20 1.000 419.0 8.000E-20 1.000 420.0 8.000E-20 1.000 421.0 8.000E-20 1.000 422.0 9.000E-20 1.000 423.0 1.100E-19 1.000 424.0 9.000E-20 1.000 425.0 7.000E-20 1.000 426.0 1.400E-19 1.000 427.0 1.400E-19 1.000 428.0 1.200E-19 1.000 429.0 1.100E-19 1.000 430.0 1.700E-19 1.000 431.0 1.300E-19 1.000 432.0 1.500E-19 1.000 433.0 1.800E-19 1.000 434.0 1.800E-19 1.000 435.0 1.600E-19 1.000 436.0 1.500E-19 1.000 437.0 1.800E-19 1.000 438.0 2.100E-19 1.000 439.0 2.000E-19 1.000 440.0 1.900E-19 1.000 441.0 1.800E-19 1.000 442.0 2.100E-19 1.000 443.0 1.800E-19 1.000 444.0 1.900E-19 1.000 445.0 2.000E-19 1.000 446.0 2.400E-19 1.000 447.0 2.900E-19 1.000 448.0 2.400E-19 1.000 449.0 2.800E-19 1.000 450.0 2.900E-19 1.000 451.0 3.000E-19 1.000 452.0 3.300E-19 1.000 453.0 3.100E-19 1.000 454.0 3.600E-19 1.000 455.0 3.600E-19 1.000 456.0 3.600E-19 1.000 457.0 4.000E-19 1.000 458.0 3.700E-19 1.000 459.0 4.200E-19 1.000 460.0 4.000E-19 1.000 461.0 3.900E-19 1.000 462.0 4.000E-19 1.000 463.0 4.100E-19 1.000 464.0 4.800E-19 1.000 465.0 5.100E-19 1.000 466.0 5.400E-19 1.000 467.0 5.700E-19 1.000 468.0 5.600E-19 1.000 469.0 5.800E-19 1.000 470.0 5.900E-19 1.000 471.0 6.200E-19 1.000 472.0 6.400E-19 1.000 473.0 6.200E-19 1.000 474.0 6.200E-19 1.000 475.0 6.800E-19 1.000 476.0 7.800E-19 1.000 477.0 7.700E-19 1.000 478.0 7.300E-19 1.000 479.0 7.300E-19 1.000 480.0 7.000E-19 1.000 481.0 7.100E-19 1.000 482.0 7.100E-19 1.000 483.0 7.200E-19 1.000 484.0 7.700E-19 1.000 485.0 8.200E-19 1.000 486.0 9.100E-19 1.000 487.0 9.200E-19 1.000 488.0 9.500E-19 1.000 489.0 9.600E-19 1.000 490.0 1.030E-18 1.000 491.0 9.900E-19 1.000 492.0 9.900E-19 1.000 493.0 1.010E-18 1.000 494.0 1.010E-18 1.000 495.0 1.060E-18 1.000 496.0 1.210E-18 1.000 497.0 1.220E-18 1.000 498.0 1.200E-18 1.000 499.0 1.170E-18 1.000 500.0 1.130E-18 1.000 501.0 1.110E-18 1.000 502.0 1.110E-18 1.000 503.0 1.110E-18 1.000 504.0 1.260E-18 1.000 505.0 1.280E-18 1.000 506.0 1.340E-18 1.000 507.0 1.280E-18 1.000 508.0 1.270E-18 1.000 509.0 1.350E-18 1.000 510.0 1.510E-18 1.000 511.0 1.730E-18 1.000 512.0 1.770E-18 1.000 513.0 1.600E-18 1.000 514.0 1.580E-18 1.000 515.0 1.580E-18 1.000 516.0 1.560E-18 1.000 517.0 1.490E-18 1.000 518.0 1.440E-18 1.000 519.0 1.540E-18 1.000 520.0 1.680E-18 1.000 521.0 1.830E-18 1.000 522.0 1.930E-18 1.000 523.0 1.770E-18 1.000 524.0 1.640E-18 1.000 525.0 1.580E-18 1.000 526.0 1.630E-18 1.000 527.0 1.810E-18 1.000 528.0 2.100E-18 1.000 529.0 2.390E-18 1.000 530.0 2.230E-18 1.000 531.0 2.090E-18 1.000 532.0 2.020E-18 1.000 533.0 1.950E-18 1.000 534.0 2.040E-18 1.000 535.0 2.300E-18 1.000 536.0 2.570E-18 1.000 537.0 2.580E-18 1.000 538.0 2.340E-18 1.000 539.0 2.040E-18 1.000 540.0 2.100E-18 1.000 541.0 2.040E-18 1.000 542.0 1.880E-18 1.000 543.0 1.680E-18 1.000 544.0 1.700E-18 1.000 545.0 1.960E-18 1.000 546.0 2.420E-18 1.000 547.0 2.910E-18 1.000 548.0 2.980E-18 1.000 549.0 2.710E-18 1.000 550.0 2.480E-18 1.000 551.0 2.430E-18 1.000 552.0 2.470E-18 1.000 553.0 2.530E-18 1.000 554.0 2.780E-18 1.000 555.0 3.110E-18 1.000 556.0 3.260E-18 1.000 557.0 3.290E-18 1.000 558.0 3.510E-18 1.000 559.0 3.720E-18 1.000 560.0 3.320E-18 1.000 561.0 2.980E-18 1.000 562.0 2.900E-18 1.000 563.0 2.800E-18 1.000 564.0 2.720E-18 1.000 565.0 2.730E-18 1.000 566.0 2.850E-18 1.000 567.0 2.810E-18 1.000 568.0 2.850E-18 1.000 569.0 2.890E-18 1.000 570.0 2.790E-18 1.000 571.0 2.760E-18 1.000 572.0 2.740E-18 1.000 573.0 2.780E-18 1.000 574.0 2.860E-18 1.000 575.0 3.080E-18 1.000 576.0 3.270E-18 1.000 577.0 3.380E-18 1.000 578.0 3.310E-18 1.000 579.0 3.240E-18 1.000 580.0 3.340E-18 1.000 581.0 3.550E-18 1.000 582.0 3.280E-18 1.000 583.0 2.930E-18 1.000 584.0 2.820E-18 1.000 585.0 2.890E-18 1.000 586.0 3.320E-18 0.950 587.0 4.160E-18 0.900 588.0 5.040E-18 0.850 589.0 6.130E-18 0.800 590.0 5.960E-18 0.750 591.0 5.440E-18 0.720 592.0 5.110E-18 0.690 593.0 4.580E-18 0.660 594.0 4.190E-18 0.630 595.0 4.290E-18 0.600 596.0 4.620E-18 0.590 597.0 4.360E-18 0.580 598.0 3.670E-18 0.570 599.0 3.100E-18 0.560 600.0 2.760E-18 0.550 601.0 2.860E-18 0.540 602.0 3.320E-18 0.530 603.0 3.800E-18 0.520 604.0 4.370E-18 0.510 605.0 4.360E-18 0.400 606.0 3.320E-18 0.380 607.0 2.400E-18 0.360 608.0 1.850E-18 0.340 609.0 1.710E-18 0.320 610.0 1.770E-18 0.300 611.0 1.910E-18 0.290 612.0 2.230E-18 0.280 613.0 2.630E-18 0.270 614.0 2.550E-18 0.260 615.0 2.260E-18 0.250 616.0 2.090E-18 0.240 617.0 2.110E-18 0.230 618.0 2.390E-18 0.220 619.0 2.560E-18 0.210 620.0 3.270E-18 0.200 621.0 5.240E-18 0.190 622.0 1.020E-17 0.180 623.0 1.470E-17 0.170 624.0 1.210E-17 0.160 625.0 8.380E-18 0.150 626.0 7.300E-18 0.130 627.0 7.530E-18 0.110 628.0 7.370E-18 0.090 629.0 6.980E-18 0.070 630.0 6.760E-18 0.050 631.0 4.840E-18 0.040 632.0 3.270E-18 0.030 633.0 2.170E-18 0.020 634.0 1.640E-18 0.010 635.0 1.440E-18 0.000 636.0 1.690E-18 0.000 637.0 2.070E-18 0.000 638.0 2.030E-18 0.000 639.0 1.580E-18 0.000 640.0 1.230E-18 0.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/NO3NO_06 ================================================ NO3NO_06 ! NO3 + HV = NO + O2 ! From NASA (2006), for 298 K. ! Quantum yields for wavelengths above 640 nm estimated by linear extrapolation. ! Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 403.0 2.000E-20 0.0000 404.0 0.000E+00 0.0000 405.0 3.000E-20 0.0000 406.0 2.000E-20 0.0000 407.0 1.000E-20 0.0000 408.0 3.000E-20 0.0000 409.0 0.000E+00 0.0000 410.0 1.000E-20 0.0000 411.0 2.000E-20 0.0000 412.0 5.000E-20 0.0000 413.0 5.000E-20 0.0000 414.0 2.000E-20 0.0000 415.0 6.000E-20 0.0000 416.0 7.000E-20 0.0000 417.0 8.000E-20 0.0000 418.0 5.000E-20 0.0000 419.0 9.000E-20 0.0000 420.0 9.000E-20 0.0000 421.0 9.000E-20 0.0000 422.0 1.000E-19 0.0000 423.0 1.200E-19 0.0000 424.0 1.000E-19 0.0000 425.0 8.000E-20 0.0000 426.0 1.500E-19 0.0000 427.0 1.500E-19 0.0000 428.0 1.300E-19 0.0000 429.0 1.200E-19 0.0000 430.0 1.800E-19 0.0000 431.0 1.400E-19 0.0000 432.0 1.600E-19 0.0000 433.0 1.900E-19 0.0000 434.0 2.000E-19 0.0000 435.0 1.700E-19 0.0000 436.0 1.600E-19 0.0000 437.0 2.000E-19 0.0000 438.0 2.300E-19 0.0000 439.0 2.200E-19 0.0000 440.0 2.100E-19 0.0000 441.0 2.000E-19 0.0000 442.0 2.300E-19 0.0000 443.0 1.900E-19 0.0000 444.0 2.100E-19 0.0000 445.0 2.200E-19 0.0000 446.0 2.600E-19 0.0000 447.0 3.100E-19 0.0000 448.0 2.600E-19 0.0000 449.0 3.000E-19 0.0000 450.0 3.100E-19 0.0000 451.0 3.300E-19 0.0000 452.0 3.600E-19 0.0000 453.0 3.400E-19 0.0000 454.0 3.800E-19 0.0000 455.0 3.800E-19 0.0000 456.0 3.800E-19 0.0000 457.0 4.200E-19 0.0000 458.0 3.900E-19 0.0000 459.0 4.500E-19 0.0000 460.0 4.200E-19 0.0000 461.0 4.100E-19 0.0000 462.0 4.200E-19 0.0000 463.0 4.300E-19 0.0000 464.0 5.100E-19 0.0000 465.0 5.400E-19 0.0000 466.0 5.800E-19 0.0000 467.0 6.100E-19 0.0000 468.0 6.000E-19 0.0000 469.0 6.200E-19 0.0000 470.0 6.300E-19 0.0000 471.0 6.600E-19 0.0000 472.0 6.900E-19 0.0000 473.0 6.600E-19 0.0000 474.0 6.600E-19 0.0000 475.0 7.300E-19 0.0000 476.0 8.400E-19 0.0000 477.0 8.300E-19 0.0000 478.0 7.800E-19 0.0000 479.0 7.800E-19 0.0000 480.0 7.500E-19 0.0000 481.0 7.600E-19 0.0000 482.0 7.600E-19 0.0000 483.0 7.700E-19 0.0000 484.0 8.300E-19 0.0000 485.0 8.800E-19 0.0000 486.0 9.800E-19 0.0000 487.0 9.900E-19 0.0000 488.0 1.020E-18 0.0000 489.0 1.030E-18 0.0000 490.0 1.110E-18 0.0000 491.0 1.060E-18 0.0000 492.0 1.070E-18 0.0000 493.0 1.090E-18 0.0000 494.0 1.090E-18 0.0000 495.0 1.130E-18 0.0000 496.0 1.290E-18 0.0000 497.0 1.300E-18 0.0000 498.0 1.280E-18 0.0000 499.0 1.250E-18 0.0000 500.0 1.210E-18 0.0000 501.0 1.180E-18 0.0000 502.0 1.180E-18 0.0000 503.0 1.190E-18 0.0000 504.0 1.350E-18 0.0000 505.0 1.370E-18 0.0000 506.0 1.430E-18 0.0000 507.0 1.370E-18 0.0000 508.0 1.360E-18 0.0000 509.0 1.450E-18 0.0000 510.0 1.620E-18 0.0000 511.0 1.860E-18 0.0000 512.0 1.890E-18 0.0000 513.0 1.720E-18 0.0000 514.0 1.690E-18 0.0000 515.0 1.700E-18 0.0000 516.0 1.670E-18 0.0000 517.0 1.600E-18 0.0000 518.0 1.540E-18 0.0000 519.0 1.650E-18 0.0000 520.0 1.800E-18 0.0000 521.0 1.960E-18 0.0000 522.0 2.060E-18 0.0000 523.0 1.890E-18 0.0000 524.0 1.760E-18 0.0000 525.0 1.690E-18 0.0000 526.0 1.750E-18 0.0000 527.0 1.930E-18 0.0000 528.0 2.250E-18 0.0000 529.0 2.570E-18 0.0000 530.0 2.390E-18 0.0000 531.0 2.240E-18 0.0000 532.0 2.160E-18 0.0000 533.0 2.090E-18 0.0000 534.0 2.180E-18 0.0000 535.0 2.470E-18 0.0000 536.0 2.750E-18 0.0000 537.0 2.760E-18 0.0000 538.0 2.510E-18 0.0000 539.0 2.190E-18 0.0000 540.0 2.250E-18 0.0000 541.0 2.190E-18 0.0000 542.0 2.010E-18 0.0000 543.0 1.800E-18 0.0000 544.0 1.830E-18 0.0000 545.0 2.100E-18 0.0000 546.0 2.600E-18 0.0000 547.0 3.120E-18 0.0000 548.0 3.200E-18 0.0000 549.0 2.900E-18 0.0000 550.0 2.650E-18 0.0000 551.0 2.610E-18 0.0000 552.0 2.640E-18 0.0000 553.0 2.710E-18 0.0000 554.0 2.980E-18 0.0000 555.0 3.340E-18 0.0000 556.0 3.490E-18 0.0000 557.0 3.520E-18 0.0000 558.0 3.760E-18 0.0000 559.0 3.990E-18 0.0000 560.0 3.550E-18 0.0000 561.0 3.200E-18 0.0000 562.0 3.110E-18 0.0000 563.0 3.000E-18 0.0000 564.0 2.910E-18 0.0000 565.0 2.920E-18 0.0000 566.0 3.050E-18 0.0000 567.0 3.010E-18 0.0000 568.0 3.050E-18 0.0000 569.0 3.100E-18 0.0000 570.0 2.990E-18 0.0000 571.0 2.960E-18 0.0000 572.0 2.940E-18 0.0000 573.0 2.980E-18 0.0000 574.0 3.060E-18 0.0000 575.0 3.300E-18 0.0000 576.0 3.500E-18 0.0000 577.0 3.620E-18 0.0000 578.0 3.540E-18 0.0000 579.0 3.470E-18 0.0000 580.0 3.580E-18 0.0000 581.0 3.800E-18 0.0000 582.0 3.510E-18 0.0000 583.0 3.140E-18 0.0000 584.0 3.020E-18 0.0000 585.0 3.100E-18 0.0000 586.0 3.550E-18 0.0150 587.0 4.460E-18 0.0390 588.0 5.400E-18 0.0970 589.0 6.560E-18 0.1280 590.0 6.380E-18 0.1900 591.0 5.830E-18 0.2200 592.0 5.480E-18 0.2490 593.0 4.900E-18 0.3030 594.0 4.490E-18 0.3280 595.0 4.600E-18 0.3590 596.0 4.950E-18 0.3570 597.0 4.670E-18 0.3180 598.0 3.930E-18 0.3230 599.0 3.330E-18 0.3140 600.0 2.960E-18 0.2910 601.0 3.070E-18 0.2960 602.0 3.550E-18 0.2910 603.0 4.080E-18 0.2830 604.0 4.680E-18 0.2800 605.0 4.670E-18 0.2640 606.0 3.550E-18 0.2710 607.0 2.580E-18 0.2680 608.0 1.980E-18 0.2500 609.0 1.840E-18 0.2480 610.0 1.890E-18 0.2360 611.0 2.040E-18 0.2050 612.0 2.390E-18 0.2000 613.0 2.820E-18 0.1900 614.0 2.730E-18 0.1660 615.0 2.420E-18 0.1660 616.0 2.240E-18 0.1600 617.0 2.260E-18 0.1410 618.0 2.560E-18 0.1430 619.0 2.740E-18 0.1390 620.0 3.500E-18 0.1310 621.0 5.620E-18 0.1270 622.0 1.090E-17 0.1220 623.0 1.578E-17 0.1170 624.0 1.291E-17 0.1060 625.0 8.980E-18 0.0990 626.0 7.830E-18 0.0920 627.0 8.060E-18 0.0850 628.0 7.890E-18 0.0740 629.0 7.480E-18 0.0700 630.0 7.240E-18 0.0650 631.0 5.180E-18 0.0580 632.0 3.500E-18 0.0510 633.0 2.330E-18 0.0470 634.0 1.760E-18 0.0430 635.0 1.540E-18 0.0370 636.0 1.810E-18 0.0320 637.0 2.220E-18 0.0290 638.0 2.170E-18 0.0270 639.0 1.690E-18 0.0240 640.0 1.320E-18 0.0200 641.0 1.080E-18 0.0170 642.0 9.900E-19 0.0140 643.0 1.040E-18 0.0110 644.0 1.020E-18 0.0080 645.0 9.200E-19 0.0040 646.0 8.000E-19 0.0010 647.0 7.500E-19 0.0000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/NO3NO_NASA94 ================================================ NO3NO_NASA94 ! Nitrate Photolysis to NO (NO3NO) ! NO3 + hv -> NO + O2 ! Taken from the original RADM data, with NASA (1994) updates ! format: wl, abs_cs, qy Centered ! With FAC, units are (cm^2/molecule) FAC=1.0 400.000 0.0000000E+00 0.0000000E+00 405.000 2.7999999E-20 0.0000000E+00 410.000 4.4500000E-20 0.0000000E+00 415.000 5.3500000E-20 0.0000000E+00 420.000 8.1999997E-20 0.0000000E+00 425.000 1.0450000E-19 0.0000000E+00 430.000 1.2930000E-19 0.0000000E+00 435.000 1.8380000E-19 0.0000000E+00 440.000 1.9370001E-19 0.0000000E+00 445.000 2.2300001E-19 0.0000000E+00 450.000 2.8350000E-19 0.0000000E+00 455.000 3.3450000E-19 0.0000000E+00 460.000 3.7200000E-19 0.0000000E+00 465.000 4.3379998E-19 0.0000000E+00 470.000 5.0979999E-19 0.0000000E+00 475.000 6.0320001E-19 0.0000000E+00 480.000 6.4400002E-19 0.0000000E+00 485.000 6.8649999E-19 0.0000000E+00 490.000 8.8000002E-19 0.0000000E+00 495.000 9.6699999E-19 0.0000000E+00 500.000 9.8999995E-19 0.0000000E+00 505.000 1.0950000E-18 0.0000000E+00 510.000 1.3200000E-18 0.0000000E+00 515.000 1.4040000E-18 0.0000000E+00 520.000 1.4470000E-18 0.0000000E+00 525.000 1.4920000E-18 0.0000000E+00 530.000 1.9310000E-18 0.0000000E+00 535.000 2.0390000E-18 0.0000000E+00 540.000 1.8319999E-18 0.0000000E+00 545.000 1.8189999E-18 0.0000000E+00 550.000 2.3530000E-18 0.0000000E+00 555.000 2.6830000E-18 0.0000000E+00 560.000 3.0650001E-18 0.0000000E+00 565.000 2.5370000E-18 0.0000000E+00 570.000 2.4940000E-18 0.0000000E+00 575.000 2.6080000E-18 0.0000000E+00 580.000 2.9080000E-18 0.0000000E+00 585.000 2.6570001E-18 3.1818181E-02 590.000 4.7400001E-18 1.9090909E-01 595.000 3.7399999E-18 3.4999999E-01 600.000 1.6460000E-18 3.1111112E-01 605.000 3.4520001E-18 2.7222222E-01 610.000 1.7760000E-18 2.3333332E-01 615.000 2.1440000E-18 1.9444445E-01 620.000 4.2400000E-18 1.5555555E-01 625.000 9.5200002E-18 1.1666666E-01 630.000 5.6519998E-18 7.7777773E-02 635.000 1.6280000E-18 3.8888887E-02 640.000 1.3320000E-18 0.0000000E+00 644.800 8.3350001E-19 0.0000000E+00 651.100 6.0519997E-19 0.0000000E+00 660.000 8.1220004E-18 0.0000000E+00 670.000 1.4540000E-18 0.0000000E+00 680.000 3.3649999E-19 0.0000000E+00 690.000 1.7499999E-20 0.0000000E+00 700.000 0.0000000E+00 0.0000000E+00 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/NO3NO_RACM2 ================================================ NO3NO_RACM2 ! NO3 + HV = NO + O2 ! Absorption x-section from NASA - 2006 ! Quantum yields from NASA - 2006 ! Supplied by Dr. Wendy Goliff, reformatted by Dr. Golam Sarwar to make it compatible with CMAQ Points ! With FAC, units are (cm^2/molecule) FAC=1.0 186.1 0.000E+00 0.000 187.8 0.000E+00 0.000 189.6 0.000E+00 0.000 191.4 0.000E+00 0.000 193.3 0.000E+00 0.000 195.2 0.000E+00 0.000 197.1 0.000E+00 0.000 199.0 0.000E+00 0.000 201.0 0.000E+00 0.000 203.1 0.000E+00 0.000 205.2 0.000E+00 0.000 207.3 0.000E+00 0.000 209.4 0.000E+00 0.000 211.7 0.000E+00 0.000 213.9 0.000E+00 0.000 216.2 0.000E+00 0.000 218.6 0.000E+00 0.000 221.0 0.000E+00 0.000 223.5 0.000E+00 0.000 226.0 0.000E+00 0.000 228.6 0.000E+00 0.000 231.3 0.000E+00 0.000 234.0 0.000E+00 0.000 236.7 0.000E+00 0.000 239.6 0.000E+00 0.000 242.5 0.000E+00 0.000 245.4 0.000E+00 0.000 248.5 0.000E+00 0.000 251.6 0.000E+00 0.000 254.8 0.000E+00 0.000 258.2 0.000E+00 0.000 261.5 0.000E+00 0.000 265.0 0.000E+00 0.000 268.5 0.000E+00 0.000 272.2 0.000E+00 0.000 275.9 0.000E+00 0.000 279.8 0.000E+00 0.000 283.7 0.000E+00 0.000 287.8 0.000E+00 0.000 292.0 0.000E+00 0.000 296.3 0.000E+00 0.000 300.5 0.000E+00 0.000 303.0 0.000E+00 0.000 304.0 0.000E+00 0.000 305.0 0.000E+00 0.000 306.0 0.000E+00 0.000 307.0 0.000E+00 0.000 308.0 0.000E+00 0.000 309.0 0.000E+00 0.000 310.0 0.000E+00 0.000 311.0 0.000E+00 0.000 312.0 0.000E+00 0.000 313.0 0.000E+00 0.000 314.0 0.000E+00 0.000 316.0 0.000E+00 0.000 320.0 0.000E+00 0.000 325.0 0.000E+00 0.000 330.0 0.000E+00 0.000 335.0 0.000E+00 0.000 340.0 0.000E+00 0.000 345.0 0.000E+00 0.000 350.0 0.000E+00 0.000 355.0 0.000E+00 0.000 360.0 0.000E+00 0.000 365.0 0.000E+00 0.000 370.0 0.000E+00 0.000 375.0 0.000E+00 0.000 380.0 0.000E+00 0.000 385.0 0.000E+00 0.000 390.0 0.000E+00 0.000 395.0 0.000E+00 0.000 400.0 0.000E+00 0.000 405.0 0.200E-19 0.000 410.0 0.100E-19 0.000 415.0 0.600E-19 0.000 420.0 0.900E-19 0.000 425.0 0.800E-19 0.000 430.0 0.180E-18 0.000 435.0 0.170E-18 0.000 440.0 0.210E-18 0.000 445.0 0.220E-18 0.000 450.0 0.310E-18 0.000 455.0 0.380E-18 0.000 460.0 0.420E-18 0.000 465.0 0.540E-18 0.000 470.0 0.630E-18 0.000 475.0 0.730E-18 0.000 480.0 0.750E-18 0.000 485.0 0.880E-18 0.000 490.0 0.111E-17 0.000 495.0 0.113E-17 0.000 500.0 0.121E-17 0.000 505.0 0.137E-17 0.000 510.0 0.162E-17 0.000 515.0 0.170E-17 0.000 520.0 0.180E-17 0.000 525.0 0.169E-17 0.000 530.0 0.239E-17 0.000 535.0 0.247E-17 0.000 540.0 0.225E-17 0.000 545.0 0.210E-17 0.000 550.0 0.265E-17 0.000 555.0 0.334E-17 0.000 560.0 0.320E-17 0.000 565.0 0.292E-17 0.000 570.0 0.299E-17 0.000 575.0 0.330E-17 0.000 580.0 0.358E-17 0.000 585.0 0.310E-17 0.000 590.0 0.638E-17 0.190 595.0 0.460E-17 0.359 600.0 0.296E-17 0.291 605.0 0.467E-17 0.264 610.0 0.189E-17 0.236 615.0 0.242E-17 0.166 620.0 0.350E-17 0.131 625.0 0.898E-17 0.098 630.0 0.724E-17 0.065 635.0 0.154E-17 0.037 640.0 0.132E-17 0.020 644.8 0.940E-18 0.000 651.0 0.590E-18 0.000 660.0 0.798E-17 0.000 670.0 0.102E-17 0.000 680.0 0.740E-18 0.000 690.0 0.110E-18 0.000 700.0 0.000E+00 0.000 710.0 0.000E+00 0.000 720.0 0.000E+00 0.000 730.0 0.000E+00 0.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/NO3NO_RADM88 ================================================ NO3NO_RADM88 ! Nitrate Photolysis to NO (NO3NO) ! NO3 + hv -> NO + O2 ! abs CS: for wl<570 Graham and Johnston [1978]; ! for wl>570 average Graham and Johnston [1978] and Ravishankara and ! Wine [1983] ! QY: Magnotta and Johnston[1980]; Graham and Johnston [1978]; ! scaled to yield unity ! format: wl, abs_cs, qy Beginning ! With FAC, units are (cm^2/molecule) FAC=1.0 402.500 2.7999999E-20 0.0000000E+00 407.500 4.4500000E-20 0.0000000E+00 412.500 5.3500000E-20 0.0000000E+00 417.500 8.1999997E-20 0.0000000E+00 422.500 1.0450000E-19 0.0000000E+00 427.500 1.2930000E-19 0.0000000E+00 432.500 1.8380000E-19 0.0000000E+00 437.500 1.9370001E-19 0.0000000E+00 442.500 2.2300001E-19 0.0000000E+00 447.500 2.8350000E-19 0.0000000E+00 452.500 3.3450000E-19 0.0000000E+00 457.500 3.7200000E-19 0.0000000E+00 462.500 4.3379998E-19 0.0000000E+00 467.500 5.0979999E-19 0.0000000E+00 472.500 6.0320001E-19 0.0000000E+00 477.500 6.4400002E-19 0.0000000E+00 482.500 6.8649999E-19 0.0000000E+00 487.500 8.8000002E-19 0.0000000E+00 492.500 9.6699999E-19 0.0000000E+00 497.500 9.8999995E-19 0.0000000E+00 502.500 1.0950000E-18 0.0000000E+00 507.500 1.3200000E-18 0.0000000E+00 512.500 1.4040000E-18 0.0000000E+00 517.500 1.4470000E-18 0.0000000E+00 522.500 1.4920000E-18 0.0000000E+00 527.500 1.9310000E-18 0.0000000E+00 532.500 2.0390000E-18 0.0000000E+00 537.500 1.8319999E-18 0.0000000E+00 542.500 1.8189999E-18 0.0000000E+00 547.500 2.3530000E-18 0.0000000E+00 552.500 2.6830000E-18 0.0000000E+00 557.500 3.0650001E-18 0.0000000E+00 562.500 2.5370000E-18 0.0000000E+00 567.500 2.4940000E-18 0.0000000E+00 572.500 2.6080000E-18 0.0000000E+00 577.500 2.9080000E-18 0.0000000E+00 582.500 2.6570001E-18 3.1818181E-02 587.500 4.7400001E-18 1.9090909E-01 592.500 3.7399999E-18 3.4999999E-01 597.500 2.6870001E-18 3.1111112E-01 602.500 3.0540000E-18 2.7222222E-01 607.500 1.5070000E-18 2.3333332E-01 612.500 1.8440000E-18 1.9444445E-01 617.500 4.6079999E-18 1.5555555E-01 622.500 8.1679999E-18 1.1666666E-01 627.500 4.8900002E-18 7.7777773E-02 632.500 1.4300000E-18 3.8888887E-02 637.500 1.0830000E-18 0.0000000E+00 642.500 6.7290000E-19 0.0000000E+00 647.100 5.0070002E-19 0.0000000E+00 655.000 7.3110003E-18 0.0000000E+00 665.000 1.3420000E-18 0.0000000E+00 675.000 3.3649999E-19 0.0000000E+00 685.000 1.7499999E-20 0.0000000E+00 695.000 0.0000000E+00 0.0000000E+00 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/NO3NO_SAPRC99 ================================================ NO3NO ! NO3 + HV = NO + O2 (T=298) ! SAPRC-99 Photolysis data. Supplied by William P. L. Carter. ! Created from PhotDat.xls on 29-Jan-2000 10:07 Points (the mechanism was evaluated assuming this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 400.0 0.000E+00 0.000 401.0 0.000E+00 0.000 402.0 0.000E+00 0.000 403.0 2.000E-20 0.000 404.0 0.000E+00 0.000 405.0 3.000E-20 0.000 406.0 2.000E-20 0.000 407.0 1.000E-20 0.000 408.0 3.000E-20 0.000 409.0 0.000E+00 0.000 410.0 1.000E-20 0.000 411.0 2.000E-20 0.000 412.0 5.000E-20 0.000 413.0 5.000E-20 0.000 414.0 2.000E-20 0.000 415.0 6.000E-20 0.000 416.0 6.000E-20 0.000 417.0 7.000E-20 0.000 418.0 5.000E-20 0.000 419.0 8.000E-20 0.000 420.0 8.000E-20 0.000 421.0 8.000E-20 0.000 422.0 9.000E-20 0.000 423.0 1.100E-19 0.000 424.0 9.000E-20 0.000 425.0 7.000E-20 0.000 426.0 1.400E-19 0.000 427.0 1.400E-19 0.000 428.0 1.200E-19 0.000 429.0 1.100E-19 0.000 430.0 1.700E-19 0.000 431.0 1.300E-19 0.000 432.0 1.500E-19 0.000 433.0 1.800E-19 0.000 434.0 1.800E-19 0.000 435.0 1.600E-19 0.000 436.0 1.500E-19 0.000 437.0 1.800E-19 0.000 438.0 2.100E-19 0.000 439.0 2.000E-19 0.000 440.0 1.900E-19 0.000 441.0 1.800E-19 0.000 442.0 2.100E-19 0.000 443.0 1.800E-19 0.000 444.0 1.900E-19 0.000 445.0 2.000E-19 0.000 446.0 2.400E-19 0.000 447.0 2.900E-19 0.000 448.0 2.400E-19 0.000 449.0 2.800E-19 0.000 450.0 2.900E-19 0.000 451.0 3.000E-19 0.000 452.0 3.300E-19 0.000 453.0 3.100E-19 0.000 454.0 3.600E-19 0.000 455.0 3.600E-19 0.000 456.0 3.600E-19 0.000 457.0 4.000E-19 0.000 458.0 3.700E-19 0.000 459.0 4.200E-19 0.000 460.0 4.000E-19 0.000 461.0 3.900E-19 0.000 462.0 4.000E-19 0.000 463.0 4.100E-19 0.000 464.0 4.800E-19 0.000 465.0 5.100E-19 0.000 466.0 5.400E-19 0.000 467.0 5.700E-19 0.000 468.0 5.600E-19 0.000 469.0 5.800E-19 0.000 470.0 5.900E-19 0.000 471.0 6.200E-19 0.000 472.0 6.400E-19 0.000 473.0 6.200E-19 0.000 474.0 6.200E-19 0.000 475.0 6.800E-19 0.000 476.0 7.800E-19 0.000 477.0 7.700E-19 0.000 478.0 7.300E-19 0.000 479.0 7.300E-19 0.000 480.0 7.000E-19 0.000 481.0 7.100E-19 0.000 482.0 7.100E-19 0.000 483.0 7.200E-19 0.000 484.0 7.700E-19 0.000 485.0 8.200E-19 0.000 486.0 9.100E-19 0.000 487.0 9.200E-19 0.000 488.0 9.500E-19 0.000 489.0 9.600E-19 0.000 490.0 1.030E-18 0.000 491.0 9.900E-19 0.000 492.0 9.900E-19 0.000 493.0 1.010E-18 0.000 494.0 1.010E-18 0.000 495.0 1.060E-18 0.000 496.0 1.210E-18 0.000 497.0 1.220E-18 0.000 498.0 1.200E-18 0.000 499.0 1.170E-18 0.000 500.0 1.130E-18 0.000 501.0 1.110E-18 0.000 502.0 1.110E-18 0.000 503.0 1.110E-18 0.000 504.0 1.260E-18 0.000 505.0 1.280E-18 0.000 506.0 1.340E-18 0.000 507.0 1.280E-18 0.000 508.0 1.270E-18 0.000 509.0 1.350E-18 0.000 510.0 1.510E-18 0.000 511.0 1.730E-18 0.000 512.0 1.770E-18 0.000 513.0 1.600E-18 0.000 514.0 1.580E-18 0.000 515.0 1.580E-18 0.000 516.0 1.560E-18 0.000 517.0 1.490E-18 0.000 518.0 1.440E-18 0.000 519.0 1.540E-18 0.000 520.0 1.680E-18 0.000 521.0 1.830E-18 0.000 522.0 1.930E-18 0.000 523.0 1.770E-18 0.000 524.0 1.640E-18 0.000 525.0 1.580E-18 0.000 526.0 1.630E-18 0.000 527.0 1.810E-18 0.000 528.0 2.100E-18 0.000 529.0 2.390E-18 0.000 530.0 2.230E-18 0.000 531.0 2.090E-18 0.000 532.0 2.020E-18 0.000 533.0 1.950E-18 0.000 534.0 2.040E-18 0.000 535.0 2.300E-18 0.000 536.0 2.570E-18 0.000 537.0 2.580E-18 0.000 538.0 2.340E-18 0.000 539.0 2.040E-18 0.000 540.0 2.100E-18 0.000 541.0 2.040E-18 0.000 542.0 1.880E-18 0.000 543.0 1.680E-18 0.000 544.0 1.700E-18 0.000 545.0 1.960E-18 0.000 546.0 2.420E-18 0.000 547.0 2.910E-18 0.000 548.0 2.980E-18 0.000 549.0 2.710E-18 0.000 550.0 2.480E-18 0.000 551.0 2.430E-18 0.000 552.0 2.470E-18 0.000 553.0 2.530E-18 0.000 554.0 2.780E-18 0.000 555.0 3.110E-18 0.000 556.0 3.260E-18 0.000 557.0 3.290E-18 0.000 558.0 3.510E-18 0.000 559.0 3.720E-18 0.000 560.0 3.320E-18 0.000 561.0 2.980E-18 0.000 562.0 2.900E-18 0.000 563.0 2.800E-18 0.000 564.0 2.720E-18 0.000 565.0 2.730E-18 0.000 566.0 2.850E-18 0.000 567.0 2.810E-18 0.000 568.0 2.850E-18 0.000 569.0 2.890E-18 0.000 570.0 2.790E-18 0.000 571.0 2.760E-18 0.000 572.0 2.740E-18 0.000 573.0 2.780E-18 0.000 574.0 2.860E-18 0.000 575.0 3.080E-18 0.000 576.0 3.270E-18 0.000 577.0 3.380E-18 0.000 578.0 3.310E-18 0.000 579.0 3.240E-18 0.000 580.0 3.340E-18 0.000 581.0 3.550E-18 0.000 582.0 3.280E-18 0.000 583.0 2.930E-18 0.000 584.0 2.820E-18 0.000 585.0 2.890E-18 0.000 586.0 3.320E-18 0.050 587.0 4.160E-18 0.100 588.0 5.040E-18 0.150 589.0 6.130E-18 0.200 590.0 5.960E-18 0.250 591.0 5.440E-18 0.280 592.0 5.110E-18 0.310 593.0 4.580E-18 0.340 594.0 4.190E-18 0.370 595.0 4.290E-18 0.400 596.0 4.620E-18 0.370 597.0 4.360E-18 0.340 598.0 3.670E-18 0.310 599.0 3.100E-18 0.280 600.0 2.760E-18 0.250 601.0 2.860E-18 0.240 602.0 3.320E-18 0.230 603.0 3.800E-18 0.220 604.0 4.370E-18 0.210 605.0 4.360E-18 0.200 606.0 3.320E-18 0.200 607.0 2.400E-18 0.200 608.0 1.850E-18 0.200 609.0 1.710E-18 0.200 610.0 1.770E-18 0.200 611.0 1.910E-18 0.180 612.0 2.230E-18 0.160 613.0 2.630E-18 0.140 614.0 2.550E-18 0.120 615.0 2.260E-18 0.100 616.0 2.090E-18 0.100 617.0 2.110E-18 0.100 618.0 2.390E-18 0.100 619.0 2.560E-18 0.100 620.0 3.270E-18 0.100 621.0 5.240E-18 0.090 622.0 1.020E-17 0.080 623.0 1.470E-17 0.070 624.0 1.210E-17 0.060 625.0 8.380E-18 0.050 626.0 7.300E-18 0.050 627.0 7.530E-18 0.050 628.0 7.370E-18 0.050 629.0 6.980E-18 0.050 630.0 6.760E-18 0.050 631.0 4.840E-18 0.046 632.0 3.270E-18 0.042 633.0 2.170E-18 0.038 634.0 1.640E-18 0.034 635.0 1.440E-18 0.030 636.0 1.690E-18 0.024 637.0 2.070E-18 0.018 638.0 2.030E-18 0.012 639.0 1.580E-18 0.006 640.0 1.230E-18 0.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/NOA ================================================ NOA !nitrooxy-acetone (NOA) photolysis cross sections (298 K) as MCM !Data form the MPI-Mainz spectral atlas: !http://www.atmosphere.mpg.de/enid/2295 !Average of: !1. I. Barnes, K.H. Becker, and T. Zhu !J. Atmos. Chem. 17, 353-373 (1993). !2. J.M. Roberts and R.W. Fajer !Environ. Sci. Technol. 23, 945-951 (1989). ! !quantum yields: estimated by analogy to the photolysis of ethyl nitrate and acetone as MCM ! Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 245.0 2.29E-19 0.94 250.0 1.47E-19 0.94 255.0 1.07E-19 0.94 260.0 8.53E-20 0.94 265.0 7.63E-20 0.92 270.0 7.29E-20 0.9 275.0 7.02E-20 0.85 280.0 6.67E-20 0.8 285.0 6.25E-20 0.75 290.0 5.83E-20 0.65 295.0 5.18E-20 0.56 300.0 4.48E-20 0.47 305.0 3.61E-20 0.39 310.0 2.69E-20 0.32 315.0 1.86E-20 0.262 320.0 1.31E-20 0.193 325.0 7.90E-21 0.164 330.0 4.55E-21 0.125 335.0 2.20E-21 0.137 340.0 1.60E-21 0.139 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/NOA_0_MCMv32 ================================================ NOA_O_MCMv32 !nitrooxy-acetone (NOA) photolysis quantum yields !cross section based on ! J.M. Roberts and R.W. Fajer, UV absorption cross sections of organic nitrates ! of potential atmospheric importance and estimation of atmospheric lifetimes, ! Environ. Sci. Technol. 23, 945-951 (1989). ! quantum yield based on set to zero out rate ! !phi1 (CH3C(O)CH2O + NO2) !phi2 (CH3CO + HCHO + NO2) !phi3 (total) ! !wavelength (nm) phi3 Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 245 2.29E-19 0.000 250 1.47E-19 0.000 255 1.07E-19 0.000 260 8.53E-20 0.000 265 7.63E-20 0.000 270 7.29E-20 0.000 275 7.02E-20 0.000 280 6.67E-20 0.000 285 6.25E-20 0.000 290 5.83E-20 0.000 295 5.18E-20 0.000 300 4.48E-20 0.000 305 3.61E-20 0.000 310 2.69E-20 0.000 315 1.86E-20 0.000 320 1.31E-20 0.000 325 7.90E-21 0.000 330 4.55E-21 0.000 335 2.20E-21 0.000 340 1.60E-21 0.000 345 0.00E+00 0.000 350 0.00E+00 0.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/NOA_B_MCMv32 ================================================ NOA_MCMv32 !nitrooxy-acetone (NOA) photolysis quantum yields !cross section based on ! J.M. Roberts and R.W. Fajer, UV absorption cross sections of organic nitrates ! of potential atmospheric importance and estimation of atmospheric lifetimes, ! Environ. Sci. Technol. 23, 945-951 (1989). ! quantum yield based on ! J.-F. Mller, J. Peeters,and T. Stavrakou. Fast photolysis of carbonyl nitrates ! from isoprene. Atmos. Chem. Phys., 14, 2497-2508, 2014. ! www.atmos-chem-phys.net/14/2497/2014/doi:10.5194/acp-14-2497-2014 ! !phi1 (CH3C(O)CH2O + NO2) !phi2 (CH3CO + HCHO + NO2) !phi3 (total) ! !wavelength (nm) phi3 Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 245 2.29E-19 0.94 250 1.47E-19 0.94 255 1.07E-19 0.94 260 8.53E-20 0.94 265 7.63E-20 0.92 270 7.29E-20 0.90 275 7.02E-20 0.90 280 6.67E-20 0.90 285 6.25E-20 0.90 290 5.83E-20 0.90 295 5.18E-20 0.90 300 4.48E-20 0.90 305 3.61E-20 0.90 310 2.69E-20 0.90 315 1.86E-20 0.90 320 1.31E-20 0.90 325 7.90E-21 0.90 330 4.55E-21 0.90 335 2.20E-21 0.90 340 1.60E-21 0.90 345 0.00E+00 0.90 350 0.00E+00 0.90 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/NOA_MCMv32 ================================================ NOA_MCMv32 !nitrooxy-acetone (NOA) photolysis quantum yields !cross section based on ! J.M. Roberts and R.W. Fajer, UV absorption cross sections of organic nitrates ! of potential atmospheric importance and estimation of atmospheric lifetimes, ! Environ. Sci. Technol. 23, 945-951 (1989). ! quantum yield based on ! J.-F. Mller, J. Peeters,and T. Stavrakou. Fast photolysis of carbonyl nitrates ! from isoprene. Atmos. Chem. Phys., 14, 2497-2508, 2014. ! www.atmos-chem-phys.net/14/2497/2014/doi:10.5194/acp-14-2497-2014 ! !phi1 (CH3C(O)CH2O + NO2) !phi2 (CH3CO + HCHO + NO2) !phi3 (total) ! !wavelength (nm) phi3 Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 245 2.29E-19 0.94 250 1.47E-19 0.94 255 1.07E-19 0.94 260 8.53E-20 0.94 265 7.63E-20 0.92 270 7.29E-20 0.90 275 7.02E-20 0.90 280 6.67E-20 0.90 285 6.25E-20 0.90 290 5.83E-20 0.90 295 5.18E-20 0.90 300 4.48E-20 0.90 305 3.61E-20 0.90 310 2.69E-20 0.90 315 1.86E-20 0.90 320 1.31E-20 0.90 325 7.90E-21 0.90 330 4.55E-21 0.90 335 2.20E-21 0.90 340 1.60E-21 0.90 345 0.00E+00 0.90 350 0.00E+00 0.90 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/NOA_T_MCMv32 ================================================ NOA_T_MCMv32 !nitrooxy-acetone (NOA) photolysis quantum yields !cross section based on ! J.M. Roberts and R.W. Fajer, UV absorption cross sections of organic nitrates ! of potential atmospheric importance and estimation of atmospheric lifetimes, ! Environ. Sci. Technol. 23, 945-951 (1989). ! quantum yield based on ! J.-F. Mller, J. Peeters,and T. Stavrakou. Fast photolysis of carbonyl nitrates ! from isoprene. Atmos. Chem. Phys., 14, 2497-2508, 2014. ! www.atmos-chem-phys.net/14/2497/2014/doi:10.5194/acp-14-2497-2014 ! !phi1 (CH3C(O)CH2O + NO2) !phi2 (CH3CO + HCHO + NO2) !phi3 (total) ! !wavelength (nm) phi3 Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 245 2.29E-19 0.94 250 1.47E-19 0.94 255 1.07E-19 0.94 260 8.53E-20 0.94 265 7.63E-20 0.92 270 7.29E-20 0.9 275 7.02E-20 0.85 280 6.67E-20 0.8 285 6.25E-20 0.75 290 5.83E-20 0.65 295 5.18E-20 0.56 300 4.48E-20 0.47 305 3.61E-20 0.39 310 2.69E-20 0.32 315 1.86E-20 0.262 320 1.31E-20 0.193 325 7.90E-21 0.164 330 4.55E-21 0.125 335 2.20E-21 0.137 340 1.60E-21 0.139 345 0.00E+00 0.125 350 0.00E+00 0.125 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/NPRONO3_MCMv32 ================================================ NPRONO3_MCMv32 !1-propyl nitrate cross-sections (n-CH3CH2CH2ONO2) ! !Taken from the MPI-Mainz Spectral Atlas !http://www.atmosphere.mpg.de/enid/2295 ! !From IUPAC 2005 recommendation !http://iupac.pole-ether.fr/htdocs/datasheets/pdf/P16_n-C3H7ONO2+hv.pdf ! !Taken from: !1. J. M. Roberts and R. W. Fajer, Environ. Sci. Technol. 23, 945 (1989). !2. M. P. Turberg, D. M. Giolando, C. Tilt, T. Soper, S. Mason, M. Davies, P. Klingensmith, ! and G. A. Takacs, J. Photochem. Photobiol. A51, 281 (1990). !3. K. C. Clemitshaw, J. Williams, O. V. Rattigan, D. E. Shallcross, K. S. Law, and R. A. ! Cox, J. Photochem. Photobiol. A: Chemistry 102, 117 (1997). ! !Quantum Yield ! !There are no data on either the products of photodissociation or the quantum yields. !However, the quantum yields for photodissociation of both ethyl and methyl nitrate to form !NO2 have been shown to be unity at 308 nm and 248 nm, see IUPAC datasheets for these RONO2 species !wavelength (nm) sigma (298K) Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 185.0 1.81E-17 1.000 190.0 1.80E-17 1.000 195.0 1.60E-17 1.000 200.0 1.26E-17 1.000 205.0 8.55E-18 1.000 210.0 4.89E-18 1.000 215.0 2.44E-18 1.000 220.0 1.05E-18 1.000 225.0 5.00E-19 1.000 230.0 2.70E-19 1.000 235.0 1.50E-19 1.000 240.0 8.90E-20 1.000 245.0 6.00E-20 1.000 250.0 4.80E-20 1.000 255.0 4.40E-20 1.000 260.0 4.00E-20 1.000 265.0 3.60E-20 1.000 270.0 3.20E-20 1.000 275.0 2.80E-20 1.000 280.0 2.30E-20 1.000 285.0 1.80E-20 1.000 290.0 1.30E-20 1.000 295.0 9.50E-21 1.000 300.0 5.70E-21 1.000 305.0 3.40E-21 1.000 310.0 1.90E-21 1.000 315.0 1.00E-21 1.000 320.0 5.30E-22 1.000 325.0 3.10E-22 1.000 330.0 2.20E-22 1.000 335.0 1.80E-22 1.000 340.0 1.60E-22 1.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/NTR_IUPAC04 ================================================ NTR_IUPAC04 !i-C3H7ONO2 + HV = iC3H7O + NO2 ! From IUPAC Subcommittee on Gas Kinetic Data Evaluation ! Data Sheet P17_i-C3H7ONO2+hv, updated 16th July 2001 ! Website: http://www.iupac-kinetic.ch.cam.ac.uk/ Points (! These are point values) ! With FAC, units are (cm^2/molecule) FAC=1.0 280.0 2.800E-20 1.0 285.0 2.200E-20 1.0 290.0 1.600E-20 1.0 295.0 1.200E-20 1.0 300.0 7.800E-21 1.0 305.0 5.000E-21 1.0 310.0 2.900E-21 1.0 315.0 1.700E-21 1.0 320.0 8.500E-22 1.0 325.0 4.400E-22 1.0 330.0 2.200E-22 1.0 335.0 1.100E-22 1.0 340.0 5.300E-23 1.0 345.0 1.800E-23 1.0 350.0 8.000E-24 1.0 355.0 2.900E-24 1.0 360.0 1.800E-24 1.0 365.0 0.0 1.0 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/NTR_IUPAC10 ================================================ NTR_IUPAC10 ! j(NTR) IUPAC(2010) i-C3H7ONO2 ! NTR = NO2 + XO2H + RO2 ! From IUPAC Subcommittee on Gas Kinetic Data Evaluation ! Data Sheet P17, updated 16th May, 2002 ! These are point values Begining (the mechanism evaluated with this format) !WL(nm) XSEC(cm2) QY FAC=1.0 280.0 2.800E-20 1.000 285.0 2.200E-20 1.000 290.0 1.600E-20 1.000 295.0 1.200E-20 1.000 300.0 7.800E-21 1.000 305.0 5.000E-21 1.000 310.0 2.900E-21 1.000 315.0 1.700E-21 1.000 320.0 8.500E-22 1.000 325.0 4.400E-22 1.000 330.0 2.200E-22 1.000 335.0 1.100E-22 1.000 340.0 5.300E-23 1.000 345.0 1.800E-23 1.000 350.0 8.000E-24 1.000 355.0 2.900E-24 1.000 360.0 1.800E-24 1.000 361.0 0.000E+00 1.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/O2_JPL06-2 ================================================ O2_JPL06-2 ! Molecular Oxygen photolysis (O2) ! O2 + hv -> O + O ! ! Reference: ! Sander, S.P., R.R. Friedl, D.M. Golden, M.J. Kurylo, G.K. Moortgat, ! H. Keller-Rudek, P.H. Wine, A.R. Ravishankara, C.E. Kolb, M.J. Molina, ! B.J. Finlayson-Pitts, R.E. Huie, V.L. Orkin "Chemical Kinetics and ! Photochemical Data for Use in Atmospheric Studies, Evaluation Number 15," ! JPL Publication 06-2, Jet Propulsion Laboratory, California Institute of ! Technology Pasadena, CA, 2006 ! ! Absorption cross sections from Table 4-2 ! Quantum yields set to 1.0 (not used in the photolysis rate program) ! format: wavelength (nm), abs_cs, qy Centered ! With FAC, units are (cm^2/molecule) FAC=1.0E-24 205 7.35 1.0 206 7.13 1.0 207 7.05 1.0 208 6.86 1.0 209 6.68 1.0 210 6.51 1.0 211 6.24 1.0 212 6.05 1.0 213 5.89 1.0 214 5.72 1.0 215 5.59 1.0 216 5.35 1.0 217 5.13 1.0 218 4.88 1.0 219 4.64 1.0 220 4.46 1.0 221 4.26 1.0 222 4.09 1.0 223 3.89 1.0 224 3.67 1.0 225 3.45 1.0 226 3.21 1.0 227 2.98 1.0 228 2.77 1.0 229 2.63 1.0 230 2.43 1.0 231 2.25 1.0 232 2.10 1.0 233 1.94 1.0 234 1.78 1.0 235 1.63 1.0 236 1.48 1.0 237 1.34 1.0 238 1.22 1.0 239 1.10 1.0 240 1.01 1.0 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/O2_NASA94 ================================================ O2_NASA94 ! Molecular Oxygen photolysis (O2) ! O2 + hv -> O + O ! Taken from NASA (1994); QY was set to 1.0 and is not used in the ! photolysis rate program. ! format: wl, abs_cs, qy Centered ! With FAC, units are (cm^2/molecule) FAC=1.0E-24 205 7.35 1.0 206 7.13 1.0 207 7.05 1.0 208 6.86 1.0 209 6.68 1.0 210 6.51 1.0 211 6.24 1.0 212 6.05 1.0 213 5.89 1.0 214 5.72 1.0 215 5.59 1.0 216 5.35 1.0 217 5.13 1.0 218 4.88 1.0 219 4.64 1.0 220 4.46 1.0 221 4.26 1.0 222 4.09 1.0 223 3.89 1.0 224 3.67 1.0 225 3.45 1.0 226 3.21 1.0 227 2.98 1.0 228 2.77 1.0 229 2.63 1.0 230 2.43 1.0 231 2.25 1.0 232 2.10 1.0 233 1.94 1.0 234 1.78 1.0 235 1.63 1.0 236 1.48 1.0 237 1.34 1.0 238 1.22 1.0 239 1.10 1.0 240 1.01 1.0 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/O2_RADM88 ================================================ O2_RADM88 ! Molecular Oxygen photolysis (O2) ! O2 + hv -> O + O ! Taken from the RADM input file; from WMO (1988) report ! format: wl, abs_cs, qy Beginning ! With FAC, units are (cm^2/molecule) FAC=1.0E-24 185.185 7.04 1.0 186.916 7.36 1.0 188.679 7.64 1.0 190.476 7.87 1.0 192.308 8.04 1.0 194.175 8.14 1.0 196.078 8.17 1.0 198.020 8.13 1.0 200.000 8.01 1.0 202.020 7.84 1.0 204.082 7.63 1.0 206.186 7.33 1.0 208.333 6.99 1.0 210.526 6.45 1.0 212.766 5.81 1.0 215.054 5.23 1.0 217.391 4.71 1.0 219.780 4.26 1.0 222.222 3.80 1.0 224.719 3.35 1.0 227.273 2.90 1.0 229.885 2.45 1.0 232.558 2.05 1.0 235.294 1.69 1.0 238.095 1.30 1.0 240.964 0.93 1.0 243.902 0.00 1.0 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/O3O1D-06 ================================================ O3O1D-06 ! O3 + HV = O1D + O2 ! NASA (2006) abs. Coefs and IUPAC (2006) quantum yields ! Absorption cross sections from NASA (2006). ! Quantum yields are from IUPAC (2006) recommendation, interpolated ! to the NASA (2006) absorption cross section wavelengths. ! NASA (2006) does not give useable recommendations for the absorption ! cross sections, except at <305 and >329 nm, where they are consistent ! with the IUPAC recommendations. ! Formation of O1D assumed not to occur at the high wavelength band. ! Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 279.7 4.060E-18 0.9000 283.7 2.820E-18 0.9000 287.8 1.840E-18 0.9000 292.0 1.130E-18 0.9000 296.3 6.510E-19 0.9000 299.0 4.520E-19 0.9000 300.0 3.920E-19 0.9000 301.0 3.430E-19 0.9000 302.0 3.030E-19 0.9000 303.0 2.620E-19 0.9000 304.0 2.340E-19 0.9000 305.0 2.010E-19 0.9000 306.0 1.790E-19 0.8840 307.0 1.550E-19 0.8620 308.0 1.350E-19 0.7930 309.0 1.220E-19 0.6710 310.0 1.020E-19 0.5230 311.0 9.240E-20 0.3940 312.0 7.950E-20 0.3100 313.0 6.910E-20 0.2650 314.0 6.250E-20 0.2460 315.0 5.190E-20 0.2390 316.0 4.770E-20 0.2330 317.0 4.020E-20 0.2220 318.0 3.720E-20 0.2060 319.0 2.890E-20 0.1870 320.0 2.990E-20 0.1660 321.0 2.100E-20 0.1460 322.5 2.050E-20 0.1210 324.5 1.410E-20 0.0970 326.5 1.010E-20 0.0840 329.0 7.864E-21 0.0800 330.0 6.970E-21 0.0800 335.0 3.200E-21 0.0800 340.0 1.460E-21 0.0800 345.0 7.790E-22 0.0800 350.0 3.060E-22 0.0800 355.0 1.360E-22 0.0800 360.0 6.940E-23 0.0800 365.0 3.050E-23 0.0800 370.0 1.300E-23 0.0800 375.0 8.500E-24 0.0800 380.0 5.720E-24 0.0800 385.0 5.420E-24 0.0800 390.0 6.680E-24 0.0000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/O3O1D_06 ================================================ O3O1D-06 ! O3 + HV = O1D + O2 ! NASA (2006) abs. Coefs and IUPAC (2006) quantum yields ! Absorption cross sections from NASA (2006). ! Quantum yields are from IUPAC (2006) recommendation, interpolated ! to the NASA (2006) absorption cross section wavelengths. ! NASA (2006) does not give useable recommendations for the absorption ! cross sections, except at <305 and >329 nm, where they are consistent ! with the IUPAC recommendations. ! Formation of O1D assumed not to occur at the high wavelength band. ! ! B. Hutzell: Aug 12, 2013 ! modified wavelength values to be consistent with O3O3P_06 file ! B. Hutzell: Mar 20, 2017 ! values below 280 nm from JPL2011 Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 121.6 2.990E-17 0.900 186.1 6.220E-19 0.900 187.8 5.760E-19 0.900 189.6 5.260E-19 0.900 191.4 4.770E-19 0.900 193.2 4.290E-19 0.900 195.1 3.850E-19 0.900 197.0 3.490E-19 0.900 199.0 3.240E-19 0.900 201.0 3.150E-19 0.900 203.1 3.260E-19 0.900 205.1 3.630E-19 0.900 207.3 4.330E-19 0.900 209.4 5.390E-19 0.900 211.6 6.930E-19 0.900 213.9 9.030E-19 0.900 216.2 1.180E-18 0.900 218.6 1.540E-18 0.900 221.0 1.990E-18 0.900 223.5 2.550E-18 0.900 226.0 3.220E-18 0.900 228.6 4.010E-18 0.900 231.2 4.900E-18 0.900 233.9 5.900E-18 0.900 236.7 6.930E-18 0.900 239.5 8.020E-18 0.900 242.4 9.080E-18 0.900 245.4 1.000E-17 0.900 248.5 1.080E-17 0.900 251.6 1.130E-17 0.900 254.8 1.150E-17 0.900 258.1 1.120E-17 0.900 261.4 1.060E-17 0.900 264.9 9.680E-18 0.900 268.5 8.400E-18 0.900 272.1 6.980E-18 0.900 275.9 5.470E-18 0.900 279.7 4.060E-18 0.9000 280.0 4.060E-18 0.9000 284.0 2.820E-18 0.9000 288.0 1.840E-18 0.9000 292.0 1.130E-18 0.9000 296.0 6.510E-19 0.9000 299.0 4.520E-19 0.9000 300.0 3.920E-19 0.9000 301.0 3.430E-19 0.9000 302.0 3.030E-19 0.9000 303.0 2.620E-19 0.9000 304.0 2.340E-19 0.9000 305.0 2.010E-19 0.9000 306.0 1.790E-19 0.8840 307.0 1.550E-19 0.8620 308.0 1.350E-19 0.7930 309.0 1.220E-19 0.6710 310.0 1.020E-19 0.5230 311.0 9.240E-20 0.3940 312.0 7.950E-20 0.3100 313.0 6.910E-20 0.2650 314.0 6.250E-20 0.2460 315.0 5.190E-20 0.2390 316.0 4.770E-20 0.2330 317.0 4.020E-20 0.2220 318.0 3.720E-20 0.2060 319.0 2.890E-20 0.1870 320.0 2.990E-20 0.1660 321.0 2.100E-20 0.1460 323.0 2.050E-20 0.1210 325.0 1.410E-20 0.0970 327.0 1.010E-20 0.0840 329.0 7.864E-21 0.0800 330.0 6.970E-21 0.0800 335.0 3.200E-21 0.0800 340.0 1.460E-21 0.0800 345.0 7.790E-22 0.0800 350.0 3.060E-22 0.0800 355.0 1.360E-22 0.0800 360.0 6.940E-23 0.0800 365.0 3.050E-23 0.0800 370.0 1.300E-23 0.0800 375.0 8.500E-24 0.0800 380.0 5.720E-24 0.0800 385.0 5.420E-24 0.0800 390.0 6.680E-24 0.0000 395.0 9.560E-24 0.0000 400.0 1.150E-23 0.0000 405.0 1.580E-23 0.0000 410.0 2.580E-23 0.0000 415.0 2.950E-23 0.0000 420.0 3.930E-23 0.0000 425.0 6.560E-23 0.0000 430.0 6.970E-23 0.0000 435.0 8.820E-23 0.0000 440.0 1.370E-22 0.0000 445.0 1.650E-22 0.0000 450.0 1.850E-22 0.0000 455.0 2.180E-22 0.0000 460.0 3.660E-22 0.0000 465.0 3.670E-22 0.0000 470.0 4.100E-22 0.0000 475.0 4.810E-22 0.0000 480.0 7.540E-22 0.0000 485.0 8.130E-22 0.0000 490.0 8.160E-22 0.0000 495.0 9.080E-22 0.0000 500.0 1.210E-21 0.0000 505.0 1.600E-21 0.0000 510.0 1.580E-21 0.0000 515.0 1.660E-21 0.0000 520.0 1.830E-21 0.0000 525.0 2.190E-21 0.0000 530.0 2.670E-21 0.0000 535.0 2.870E-21 0.0000 540.0 2.950E-21 0.0000 545.0 3.190E-21 0.0000 550.0 3.370E-21 0.0000 555.0 3.580E-21 0.0000 560.0 3.980E-21 0.0000 565.0 4.390E-21 0.0000 570.0 4.670E-21 0.0000 575.0 4.810E-21 0.0000 580.0 4.640E-21 0.0000 585.0 4.460E-21 0.0000 590.0 4.470E-21 0.0000 595.0 4.760E-21 0.0000 600.0 5.130E-21 0.0000 605.0 5.140E-21 0.0000 610.0 4.780E-21 0.0000 615.0 4.380E-21 0.0000 620.0 4.060E-21 0.0000 625.0 3.820E-21 0.0000 630.0 3.560E-21 0.0000 635.0 3.270E-21 0.0000 640.0 2.970E-21 0.0000 645.0 2.710E-21 0.0000 650.0 2.510E-21 0.0000 655.0 2.310E-21 0.0000 660.0 2.100E-21 0.0000 665.0 1.900E-21 0.0000 670.0 1.700E-21 0.0000 675.0 1.510E-21 0.0000 680.0 1.370E-21 0.0000 685.0 1.260E-21 0.0000 690.0 1.130E-21 0.0000 695.0 9.890E-22 0.0000 700.0 8.680E-22 0.0000 705.0 7.840E-22 0.0000 710.0 7.310E-22 0.0000 715.0 6.960E-22 0.0000 720.0 6.220E-22 0.0000 725.0 5.430E-22 0.0000 730.0 4.780E-22 0.0000 735.0 4.420E-22 0.0000 740.0 4.320E-22 0.0000 745.0 4.470E-22 0.0000 750.0 4.250E-22 0.0000 755.0 3.380E-22 0.0000 760.0 2.860E-22 0.0000 765.0 2.620E-22 0.0000 770.0 2.600E-22 0.0000 775.0 2.940E-22 0.0000 780.0 3.180E-22 0.0000 785.0 2.620E-22 0.0000 790.0 2.080E-22 0.0000 795.0 1.730E-22 0.0000 800.0 1.570E-22 0.0000 805.0 1.560E-22 0.0000 810.0 1.860E-22 0.0000 815.0 2.210E-22 0.0000 820.0 2.060E-22 0.0000 825.0 1.450E-22 0.0000 830.0 8.400E-23 0.0000 835.0 2.300E-23 0.0000 840.0 0.000E+00 0.0000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/O3O1D_CBIV88 ================================================ O3O1D_CBIV88 ! Ozone Photolysis to O1D (O3O1D) ! O3 + hv -> O2 + O(1D) ! Taken from Gery et al. (1988); Absorption CS calculated by Bass (1985); ! QY from Atkinson and Lloyd (1984). ! format: wl, abs_cs, qy Centered ! With FAC, units are (cm^2/molecule) FAC=1.0E-20 280 397.00 0.900 281 360.00 0.900 282 324.00 0.900 283 301.00 0.900 284 273.00 0.900 285 244.00 0.900 286 221.00 0.900 287 201.00 0.900 288 176.00 0.900 289 158.00 0.900 290 141.00 0.900 291 126.00 0.900 292 110.00 0.900 293 98.90 0.900 294 86.20 0.900 295 76.70 0.900 296 66.40 0.900 297 58.80 0.900 298 51.00 0.900 299 45.20 0.900 300 39.20 0.900 301 34.40 0.900 302 30.30 0.900 303 26.30 0.900 304 23.50 0.900 305 20.20 0.884 306 18.00 0.848 307 15.60 0.800 308 13.60 0.740 309 12.30 0.660 310 10.30 0.560 311 9.27 0.450 312 8.00 0.340 313 6.92 0.250 314 6.29 0.180 315 5.22 0.120 316 4.78 0.080 317 4.04 0.050 318 3.72 0.020 319 2.91 0.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/O3O1D_JPL06-2 ================================================ O3O1D_JPL06-2 ! Ozone Photolysis to O1D (O3O1D) ! O3 + hv -> O2 + O(1D) ! ! Reference: ! Sander, S.P., R.R. Friedl, D.M. Golden, M.J. Kurylo, G.K. Moortgat, ! H. Keller-Rudek, P.H. Wine, A.R. Ravishankara, C.E. Kolb, M.J. Molina, ! B.J. Finlayson-Pitts, R.E. Huie, V.L. Orkin "Chemical Kinetics and ! Photochemical Data for Use in Atmospheric Studies, Evaluation Number 15," ! JPL Publication 06-2, Jet Propulsion Laboratory, California Institute of ! Technology Pasadena, CA, 2006 ! ! Absorption cross sections at 293-298 K from Table 4-4 ! Quantum yields compute using recommended equation with parameters from ! Table 4-6 for 298 K ! format: wavelength (nm), abs_cs, qy Beginning ! With FAC, units are (cm^2/molecule) FAC=1.0E-20 185.185 62.2 0.9 186.916 57.6 0.9 188.679 52.6 0.9 190.476 47.7 0.9 192.308 42.9 0.9 194.175 38.5 0.9 196.078 34.9 0.9 198.020 32.4 0.9 200.000 31.5 0.9 202.020 32.6 0.9 204.082 36.3 0.9 206.186 43.3 0.9 208.333 53.9 0.9 210.526 69.3 0.9 212.766 90.3 0.9 215.054 118.0 0.9 217.391 154.0 0.9 219.780 199.0 0.9 222.222 255.0 0.9 224.719 322.0 0.9 227.273 401.0 0.9 229.885 490.0 0.9 232.558 590.0 0.9 235.294 693.0 0.9 238.095 802.0 0.9 240.964 908.0 0.9 243.902 1001.0 0.9 246.914 1080.0 0.9 250.000 1125.0 0.9 253.165 1148.0 0.9 256.410 1122.0 0.9 259.740 1064.0 0.9 263.158 968.0 0.9 266.667 840.0 0.9 270.270 698.0 0.9 273.973 547.0 0.9 277.778 406.0 0.9 281.690 282.0 0.9 285.714 184.0 0.9 289.855 113.0 0.9 294.118 65.1 0.9 298.507 45.2 0.9 299.5 39.2 0.9 300.5 34.3 0.9 301.5 30.3 0.9 302.5 26.2 0.9 303.5 23.4 0.9 304.5 20.1 0.9 305.5 17.9 0.884 306.5 15.5 0.862 307.5 13.5 0.793 308.5 12.2 0.671 309.5 10.2 0.523 310.5 9.24 0.394 311.5 7.95 0.310 312.5 6.91 0.265 313.5 6.25 0.246 314.5 5.19 0.239 315.5 4.77 0.233 316.5 4.02 0.222 317.5 3.72 0.206 318.5 2.89 0.187 319.5 2.99 0.166 320.5 2.10 0.146 321.5 2.05 0.120 323.5 1.41 0.096 325.5 1.01 0.084 327.5 0.697 0.08 332.5 0.320 0.08 337.5 0.146 0.08 342.5 0.0779 0.0 347.5 0.0306 0.0 352.5 0.0136 0.0 357.5 0.00694 0.0 362.5 0.00305 0.0 367.5 0.00130 0.0 372.5 0.000850 0.0 377.5 0.000572 0.0 382.5 0.000542 0.0 387.5 0.000668 0.0 392.5 0.000956 0.0 397.5 0.00115 0.0 402.5 0.00158 0.0 407.5 0.00258 0.0 412.5 0.00295 0.0 417.5 0.00393 0.0 422.5 0.00656 0.0 427.5 0.00697 0.0 432.5 0.00882 0.0 437.5 0.0137 0.0 442.5 0.0165 0.0 447.5 0.0185 0.0 452.5 0.0218 0.0 457.5 0.0366 0.0 462.5 0.0367 0.0 467.5 0.0410 0.0 472.5 0.0481 0.0 477.5 0.0754 0.0 482.5 0.0813 0.0 487.5 0.0816 0.0 492.5 0.0908 0.0 497.5 0.121 0.0 502.5 0.160 0.0 507.5 0.158 0.0 512.5 0.166 0.0 517.5 0.183 0.0 522.5 0.219 0.0 527.5 0.267 0.0 532.5 0.287 0.0 537.5 0.295 0.0 542.5 0.319 0.0 547.5 0.337 0.0 552.5 0.358 0.0 557.5 0.398 0.0 562.5 0.439 0.0 567.5 0.467 0.0 572.5 0.481 0.0 577.5 0.464 0.0 582.5 0.446 0.0 587.5 0.447 0.0 592.5 0.476 0.0 597.5 0.513 0.0 602.5 0.514 0.0 607.5 0.478 0.0 612.5 0.438 0.0 617.5 0.406 0.0 622.5 0.382 0.0 627.5 0.356 0.0 632.5 0.327 0.0 637.5 0.297 0.0 642.5 0.271 0.0 647.5 0.251 0.0 652.5 0.231 0.0 657.5 0.210 0.0 662.5 0.190 0.0 667.5 0.170 0.0 672.5 0.151 0.0 677.5 0.137 0.0 682.5 0.126 0.0 687.5 0.113 0.0 692.5 0.0989 0.0 697.5 0.0868 0.0 702.5 0.0784 0.0 707.5 0.0731 0.0 712.5 0.0696 0.0 717.5 0.0622 0.0 722.5 0.0543 0.0 727.5 0.0478 0.0 732.5 0.0442 0.0 737.5 0.0432 0.0 742.5 0.0447 0.0 747.5 0.0425 0.0 752.5 0.0338 0.0 757.5 0.0286 0.0 762.5 0.0262 0.0 767.5 0.0260 0.0 772.5 0.0294 0.0 777.5 0.0318 0.0 782.5 0.0262 0.0 787.5 0.0208 0.0 792.5 0.0173 0.0 797.5 0.0157 0.0 802.5 0.0156 0.0 807.5 0.0186 0.0 812.5 0.0221 0.0 817.5 0.0206 0.0 822.5 0.0145 0.0 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/O3O1D_NASA06 ================================================ O3O1D_NASA06 ! O3 + HV = O1D + O2 ! Absorption cross sections from NASA (2006) ! Quantum yields from IUPAC (2006) ! Taken from SAPRC07 ! values below 280 nm from JPL2011 Points (These data can be treated as point values) ! With FAC, units are (cm^2/molecule) FAC=1.0 121.6 2.990E-17 0.900 186.1 6.220E-19 0.900 187.8 5.760E-19 0.900 189.6 5.260E-19 0.900 191.4 4.770E-19 0.900 193.2 4.290E-19 0.900 195.1 3.850E-19 0.900 197.0 3.490E-19 0.900 199.0 3.240E-19 0.900 201.0 3.150E-19 0.900 203.1 3.260E-19 0.900 205.1 3.630E-19 0.900 207.3 4.330E-19 0.900 209.4 5.390E-19 0.900 211.6 6.930E-19 0.900 213.9 9.030E-19 0.900 216.2 1.180E-18 0.900 218.6 1.540E-18 0.900 221.0 1.990E-18 0.900 223.5 2.550E-18 0.900 226.0 3.220E-18 0.900 228.6 4.010E-18 0.900 231.2 4.900E-18 0.900 233.9 5.900E-18 0.900 236.7 6.930E-18 0.900 239.5 8.020E-18 0.900 242.4 9.080E-18 0.900 245.4 1.000E-17 0.900 248.5 1.080E-17 0.900 251.6 1.130E-17 0.900 254.8 1.150E-17 0.900 258.1 1.120E-17 0.900 261.4 1.060E-17 0.900 264.9 9.680E-18 0.900 268.5 8.400E-18 0.900 272.1 6.980E-18 0.900 275.9 5.470E-18 0.900 279.7 4.060E-18 0.9000 283.7 2.820E-18 0.9000 287.8 1.840E-18 0.9000 292.0 1.130E-18 0.9000 296.3 6.510E-19 0.9000 299.0 4.520E-19 0.9000 300.0 3.920E-19 0.9000 301.0 3.430E-19 0.9000 302.0 3.030E-19 0.9000 303.0 2.620E-19 0.9000 304.0 2.340E-19 0.9000 305.0 2.010E-19 0.9000 306.0 1.790E-19 0.8840 307.0 1.550E-19 0.8620 308.0 1.350E-19 0.7930 309.0 1.220E-19 0.6710 310.0 1.020E-19 0.5230 311.0 9.240E-20 0.3940 312.0 7.950E-20 0.3100 313.0 6.910E-20 0.2650 314.0 6.250E-20 0.2460 315.0 5.190E-20 0.2390 316.0 4.770E-20 0.2330 317.0 4.020E-20 0.2220 318.0 3.720E-20 0.2060 319.0 2.890E-20 0.1870 320.0 2.990E-20 0.1660 321.0 2.100E-20 0.1460 322.5 2.050E-20 0.1210 324.5 1.410E-20 0.0970 326.5 1.010E-20 0.0840 329.0 7.864E-21 0.0800 330.0 6.970E-21 0.0800 335.0 3.200E-21 0.0800 340.0 1.460E-21 0.0800 345.0 7.790E-22 0.0800 350.0 3.060E-22 0.0800 355.0 1.360E-22 0.0800 360.0 6.940E-23 0.0800 365.0 3.050E-23 0.0800 370.0 1.300E-23 0.0800 375.0 8.500E-24 0.0800 380.0 5.720E-24 0.0800 385.0 5.420E-24 0.0800 390.0 6.680E-24 0.0000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/O3O1D_NASA94 ================================================ O3O1D_NASA94 ! Ozone Photolysis to O1D (O3O1D) ! O3 + hv -> O2 + O(1D) ! Taken from NASA (1994); Absorption CS is at 273 K; QY is at 298 K; ! WMO (1988) data used for wl .ge. 362.5 nm Beginning ! With FAC, units are (cm^2/molecule) FAC=1.0E-20 175.439 81.1 0.9 176.991 79.9 0.9 178.571 78.6 0.9 180.180 76.3 0.9 181.818 72.9 0.9 183.486 68.8 0.9 185.185 62.2 0.9 186.916 57.6 0.9 188.679 52.6 0.9 190.476 47.6 0.9 192.308 42.8 0.9 194.175 38.3 0.9 196.078 34.7 0.9 198.020 32.3 0.9 200.000 31.4 0.9 202.020 32.6 0.9 204.082 36.4 0.9 206.186 43.4 0.9 208.333 54.2 0.9 210.526 69.9 0.9 212.766 92.1 0.9 215.054 119.0 0.9 217.391 155.0 0.9 219.780 199.0 0.9 222.222 256.0 0.9 224.719 323.0 0.9 227.273 400.0 0.9 229.885 483.0 0.9 232.558 579.0 0.9 235.294 686.0 0.9 238.095 797.0 0.9 240.964 900.0 0.9 243.902 1000.0 0.9 246.914 1080.0 0.9 250.000 1130.0 0.9 253.165 1150.0 0.9 256.410 1120.0 0.9 259.740 1060.0 0.9 263.158 965.0 0.9 266.667 834.0 0.9 270.270 692.0 0.9 273.973 542.0 0.9 277.778 402.0 0.9 281.690 277.0 0.9 285.714 179.0 0.9 289.855 109.0 0.9483 294.118 62.4 0.95 298.507 34.3 0.95 303.030 18.5 0.92838 307.692 9.8 0.51807 312.500 5.01 0.06506 317.500 2.49 0.00165 322.500 1.2 0.0 327.500 0.617 0.0 332.500 0.274 0.0 337.500 0.117 0.0 342.500 0.0588 0.0 347.500 0.0266 0.0 352.500 0.0109 0.0 357.500 0.00549 0.0 362.500 0.0 0.0 367.500 0.0 0.0 372.500 0.0 0.0 377.500 0.0 0.0 382.500 0.0 0.0 387.500 0.0 0.0 392.500 0.0 0.0 397.500 0.0 0.0 402.500 0.0 0.0 407.500 0.00291 0.0 412.500 0.00314 0.0 417.500 0.00399 0.0 422.500 0.00654 0.0 427.500 0.00683 0.0 432.500 0.00866 0.0 437.500 0.0125 0.0 442.500 0.0149 0.0 447.500 0.0171 0.0 452.500 0.0212 0.0 457.500 0.0357 0.0 462.500 0.0368 0.0 467.500 0.0406 0.0 472.500 0.0489 0.0 477.500 0.0711 0.0 482.500 0.0843 0.0 487.500 0.0828 0.0 492.500 0.0909 0.0 497.500 0.122 0.0 502.500 0.162 0.0 507.500 0.158 0.0 512.500 0.16 0.0 517.500 0.178 0.0 522.500 0.207 0.0 527.500 0.255 0.0 532.500 0.274 0.0 537.500 0.288 0.0 542.500 0.307 0.0 547.500 0.317 0.0 552.500 0.336 0.0 557.500 0.388 0.0 562.500 0.431 0.0 567.500 0.467 0.0 572.500 0.475 0.0 577.500 0.455 0.0 582.500 0.435 0.0 587.500 0.442 0.0 592.500 0.461 0.0 597.500 0.489 0.0 602.500 0.484 0.0 607.500 0.454 0.0 612.500 0.424 0.0 617.500 0.39 0.0 622.500 0.36 0.0 627.500 0.343 0.0 632.500 0.317 0.0 637.500 0.274 0.0 642.500 0.261 0.0 647.500 0.242 0.0 652.500 0.22 0.0 657.500 0.202 0.0 662.500 0.185 0.0 667.500 0.167 0.0 672.500 0.154 0.0 677.500 0.142 0.0 682.500 0.125 0.0 687.500 0.112 0.0 692.500 0.102 0.0 697.500 0.092 0.0 702.500 0.084 0.0 707.500 0.077 0.0 712.500 0.069 0.0 717.500 0.063 0.0 722.500 0.057 0.0 727.500 0.0525 0.0 732.500 0.0475 0.0 737.500 0.0447 0.0 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/O3O1D_RADM88 ================================================ O3O1D_RADM88 ! Ozone Photolysis to O1D (O3O1D) ! O3 + hv -> O2 + O(1D) ! Taken from the original RADM data ! format: wl, abs_cs, qy Beginning ! With FAC, units are (cm^2/molecule) FAC=1.0 185.185 6.229E-19 1.000E+00 186.916 5.763E-19 1.000E+00 188.679 5.259E-19 1.000E+00 190.476 4.750E-19 1.000E+00 192.308 4.266E-19 1.000E+00 194.175 3.819E-19 1.000E+00 196.078 3.461E-19 1.000E+00 198.020 3.216E-19 1.000E+00 200.000 3.139E-19 1.000E+00 202.020 3.265E-19 1.000E+00 204.082 3.653E-19 1.000E+00 206.186 4.368E-19 1.000E+00 208.333 5.464E-19 1.000E+00 210.526 7.046E-19 1.000E+00 212.766 9.201E-19 1.000E+00 215.054 1.204E-18 1.000E+00 217.391 1.565E-18 1.000E+00 219.780 2.003E-18 1.000E+00 222.222 2.565E-18 1.000E+00 224.719 3.243E-18 1.000E+00 227.273 4.039E-18 1.000E+00 229.885 4.936E-18 1.000E+00 232.558 5.934E-18 1.000E+00 235.294 7.006E-18 1.000E+00 238.095 8.110E-18 1.000E+00 240.964 9.196E-18 1.000E+00 243.902 1.018E-17 1.000E+00 246.914 1.098E-17 1.000E+00 250.000 1.143E-17 1.000E+00 253.165 1.164E-17 1.000E+00 256.410 1.136E-17 1.000E+00 259.740 1.075E-17 1.000E+00 263.158 9.430E-18 1.000E+00 266.667 8.230E-18 1.000E+00 270.270 6.810E-18 1.000E+00 273.973 5.310E-18 1.000E+00 277.778 3.990E-18 1.000E+00 281.690 2.840E-18 1.000E+00 285.714 1.920E-18 1.000E+00 289.855 1.140E-18 1.000E+00 294.118 6.600E-19 1.000E+00 298.500 3.850E-19 1.000E+00 302.500 2.730E-19 1.000E+00 303.500 2.390E-19 1.000E+00 304.500 2.080E-19 1.000E+00 305.500 1.810E-19 1.000E+00 306.500 1.580E-19 1.000E+00 307.500 1.380E-19 1.000E+00 308.500 1.200E-19 1.000E+00 309.500 1.050E-19 1.000E+00 310.500 9.200E-20 1.000E+00 311.500 8.000E-20 1.000E+00 312.500 7.000E-20 1.000E+00 313.500 6.100E-20 1.000E+00 314.500 4.630E-20 1.000E+00 317.500 2.910E-20 1.000E+00 322.500 1.500E-20 1.000E+00 327.500 7.780E-21 1.000E+00 332.500 3.720E-21 1.000E+00 337.500 1.710E-21 1.000E+00 342.500 7.460E-22 1.000E+00 347.500 2.660E-22 1.000E+00 352.500 1.090E-22 1.000E+00 357.500 5.490E-23 1.000E+00 362.500 0.000E+00 1.000E+00 367.500 0.000E+00 1.000E+00 372.500 0.000E+00 1.000E+00 377.500 0.000E+00 1.000E+00 382.500 0.000E+00 1.000E+00 387.500 0.000E+00 1.000E+00 392.500 0.000E+00 1.000E+00 397.500 0.000E+00 1.000E+00 402.500 0.000E+00 1.000E+00 407.500 2.910E-23 1.000E+00 412.500 3.140E-23 1.000E+00 417.500 3.990E-23 1.000E+00 422.500 6.540E-23 1.000E+00 427.500 6.830E-23 1.000E+00 432.500 8.660E-23 1.000E+00 437.500 1.250E-22 1.000E+00 442.500 1.490E-22 1.000E+00 447.500 1.710E-22 1.000E+00 452.500 2.120E-22 1.000E+00 457.500 3.570E-22 1.000E+00 462.500 3.680E-22 1.000E+00 467.500 4.060E-22 1.000E+00 472.500 4.890E-22 1.000E+00 477.500 7.110E-22 1.000E+00 482.500 8.430E-22 1.000E+00 487.500 8.280E-22 1.000E+00 492.500 9.090E-22 1.000E+00 497.500 1.220E-21 1.000E+00 502.500 1.620E-21 1.000E+00 507.500 1.580E-21 1.000E+00 512.500 1.600E-21 1.000E+00 517.500 1.780E-21 1.000E+00 522.500 2.070E-21 1.000E+00 527.500 2.550E-21 1.000E+00 532.500 2.740E-21 1.000E+00 537.500 2.880E-21 1.000E+00 542.500 3.070E-21 1.000E+00 547.500 3.170E-21 1.000E+00 552.500 3.360E-21 1.000E+00 557.500 3.880E-21 1.000E+00 562.500 4.310E-21 1.000E+00 567.500 4.670E-21 1.000E+00 572.500 4.750E-21 1.000E+00 577.500 4.550E-21 1.000E+00 582.500 4.350E-21 1.000E+00 587.500 4.420E-21 1.000E+00 592.500 4.610E-21 1.000E+00 597.500 4.890E-21 1.000E+00 602.500 4.840E-21 1.000E+00 607.500 4.540E-21 1.000E+00 612.500 4.240E-21 1.000E+00 617.500 3.900E-21 1.000E+00 622.500 3.600E-21 1.000E+00 627.500 3.430E-21 1.000E+00 632.500 3.170E-21 1.000E+00 637.500 2.740E-21 1.000E+00 642.500 2.610E-21 1.000E+00 647.100 2.400E-21 1.000E+00 655.000 2.070E-21 1.000E+00 665.000 1.720E-21 1.000E+00 675.000 1.370E-21 1.000E+00 685.000 1.110E-21 1.000E+00 695.000 9.130E-22 1.000E+00 705.000 7.930E-22 1.000E+00 715.000 6.400E-22 1.000E+00 725.000 5.140E-22 1.000E+00 735.000 0.000E+00 1.000E+00 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/O3O1D_SAPRC99 ================================================ O3O1D ! O3 + HV = O1D + O2 ! SAPRC-99 Photolysis data. Supplied by William P. L. Carter. ! Created from PhotDat.xls on 29-Jan-2000 10:07 ! Absorption cross sections from NASA (1999), using wavelength which is cente ! r of intervals shown. ! Quantum yields from IUPAC, Supplement VI (1997). ! No quantum yield recommendation is given for wl>335. Assume they decrease ! linearly to zero at 340 nm. ! Values given are interpolated for each 1 nm interval. Points (the mechanism was evaluated assuming this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 280.0 3.936E-18 0.905 281.0 3.621E-18 0.907 282.0 3.306E-18 0.910 283.0 2.991E-18 0.912 284.0 2.698E-18 0.914 285.0 2.458E-18 0.916 286.0 2.218E-18 0.918 287.0 1.978E-18 0.921 288.0 1.754E-18 0.923 289.0 1.588E-18 0.925 290.0 1.421E-18 0.927 291.0 1.254E-18 0.930 292.0 1.089E-18 0.932 293.0 9.808E-19 0.934 294.0 8.731E-19 0.936 295.0 7.654E-19 0.939 296.0 6.577E-19 0.941 297.0 5.806E-19 0.943 298.0 5.176E-19 0.945 299.0 4.545E-19 0.948 300.0 3.915E-19 0.950 301.0 3.350E-19 0.965 302.0 3.006E-19 0.975 303.0 2.662E-19 0.985 304.0 2.318E-19 0.990 305.0 1.974E-19 0.980 306.0 1.733E-19 0.950 307.0 1.549E-19 0.877 308.0 1.365E-19 0.773 309.0 1.181E-19 0.667 310.0 9.976E-20 0.600 311.0 8.917E-20 0.388 312.0 7.940E-20 0.303 313.0 6.964E-20 0.262 314.0 5.987E-20 0.238 315.0 5.010E-20 0.235 316.0 4.506E-20 0.221 317.0 4.002E-20 0.209 318.0 3.498E-20 0.194 319.0 2.994E-20 0.178 320.0 2.490E-20 0.148 321.0 2.232E-20 0.121 322.0 1.974E-20 0.097 323.0 1.716E-20 0.092 324.0 1.458E-20 0.080 325.0 1.200E-20 0.070 326.0 1.083E-20 0.066 327.0 9.668E-21 0.062 328.0 8.502E-21 0.058 329.0 7.336E-21 0.054 330.0 6.170E-21 0.050 331.0 5.484E-21 0.050 332.0 4.798E-21 0.050 333.0 4.112E-21 0.050 334.0 3.426E-21 0.050 335.0 2.740E-21 0.050 336.0 2.426E-21 0.040 337.0 2.112E-21 0.030 338.0 1.798E-21 0.020 339.0 1.484E-21 0.010 340.0 1.170E-21 0.000 350.0 0.000E+00 0.000 400.0 0.000E+00 0.000 410.0 1.200E-23 0.000 420.0 2.200E-23 0.000 440.0 1.120E-22 0.000 460.0 3.280E-22 0.000 480.0 6.840E-22 0.000 500.0 1.220E-21 0.000 520.0 1.820E-21 0.000 540.0 2.910E-21 0.000 560.0 3.940E-21 0.000 580.0 4.590E-21 0.000 600.0 5.110E-21 0.000 620.0 4.000E-21 0.000 640.0 2.960E-21 0.000 660.0 2.090E-21 0.000 680.0 1.360E-21 0.000 700.0 9.100E-22 0.000 750.0 3.200E-22 0.000 800.0 1.600E-22 0.000 900.0 0.000E+00 0.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/O3O3P-06 ================================================ O3O3P-06 ! O3 + HV = O3P + O2 ! Absorption cross sections from NASA (2006). ! Quantum yields are derived from the O1D quantum yields in the low wavelength re ! Unit quantum yields assumed in high wavelength region. ! Absorption cross sections below 829 nm are extrapolated ! Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 280.0 4.060E-18 0.1000 284.0 2.820E-18 0.1000 288.0 1.840E-18 0.1000 292.0 1.130E-18 0.1000 296.0 6.510E-19 0.1000 299.0 4.520E-19 0.1000 300.0 3.920E-19 0.1000 301.0 3.430E-19 0.1000 302.0 3.030E-19 0.1000 303.0 2.620E-19 0.1000 304.0 2.340E-19 0.1000 305.0 2.010E-19 0.1000 306.0 1.790E-19 0.1160 307.0 1.550E-19 0.1380 308.0 1.350E-19 0.2070 309.0 1.220E-19 0.3290 310.0 1.020E-19 0.4770 311.0 9.240E-20 0.6060 312.0 7.950E-20 0.6900 313.0 6.910E-20 0.7350 314.0 6.250E-20 0.7540 315.0 5.190E-20 0.7610 316.0 4.770E-20 0.7670 317.0 4.020E-20 0.7780 318.0 3.720E-20 0.7940 319.0 2.890E-20 0.8130 320.0 2.990E-20 0.8340 321.0 2.100E-20 0.8540 323.0 2.050E-20 0.8800 325.0 1.410E-20 0.9040 327.0 1.010E-20 0.9160 329.0 7.864E-21 0.9200 330.0 6.970E-21 0.9200 335.0 3.200E-21 0.9200 340.0 1.460E-21 0.9200 345.0 7.790E-22 0.9200 350.0 3.060E-22 0.9200 355.0 1.360E-22 0.9200 360.0 6.940E-23 0.9200 365.0 3.050E-23 0.9200 370.0 1.300E-23 0.9200 375.0 8.500E-24 0.9200 380.0 5.720E-24 0.9200 385.0 5.420E-24 0.9200 390.0 6.680E-24 1.0000 395.0 9.560E-24 1.0000 400.0 1.150E-23 1.0000 405.0 1.580E-23 1.0000 410.0 2.580E-23 1.0000 415.0 2.950E-23 1.0000 420.0 3.930E-23 1.0000 425.0 6.560E-23 1.0000 430.0 6.970E-23 1.0000 435.0 8.820E-23 1.0000 440.0 1.370E-22 1.0000 445.0 1.650E-22 1.0000 450.0 1.850E-22 1.0000 455.0 2.180E-22 1.0000 460.0 3.660E-22 1.0000 465.0 3.670E-22 1.0000 470.0 4.100E-22 1.0000 475.0 4.810E-22 1.0000 480.0 7.540E-22 1.0000 485.0 8.130E-22 1.0000 490.0 8.160E-22 1.0000 495.0 9.080E-22 1.0000 500.0 1.210E-21 1.0000 505.0 1.600E-21 1.0000 510.0 1.580E-21 1.0000 515.0 1.660E-21 1.0000 520.0 1.830E-21 1.0000 525.0 2.190E-21 1.0000 530.0 2.670E-21 1.0000 535.0 2.870E-21 1.0000 540.0 2.950E-21 1.0000 545.0 3.190E-21 1.0000 550.0 3.370E-21 1.0000 555.0 3.580E-21 1.0000 560.0 3.980E-21 1.0000 565.0 4.390E-21 1.0000 570.0 4.670E-21 1.0000 575.0 4.810E-21 1.0000 580.0 4.640E-21 1.0000 585.0 4.460E-21 1.0000 590.0 4.470E-21 1.0000 595.0 4.760E-21 1.0000 600.0 5.130E-21 1.0000 605.0 5.140E-21 1.0000 610.0 4.780E-21 1.0000 615.0 4.380E-21 1.0000 620.0 4.060E-21 1.0000 625.0 3.820E-21 1.0000 630.0 3.560E-21 1.0000 635.0 3.270E-21 1.0000 640.0 2.970E-21 1.0000 645.0 2.710E-21 1.0000 650.0 2.510E-21 1.0000 655.0 2.310E-21 1.0000 660.0 2.100E-21 1.0000 665.0 1.900E-21 1.0000 670.0 1.700E-21 1.0000 675.0 1.510E-21 1.0000 680.0 1.370E-21 1.0000 685.0 1.260E-21 1.0000 690.0 1.130E-21 1.0000 695.0 9.890E-22 1.0000 700.0 8.680E-22 1.0000 705.0 7.840E-22 1.0000 710.0 7.310E-22 1.0000 715.0 6.960E-22 1.0000 720.0 6.220E-22 1.0000 725.0 5.430E-22 1.0000 730.0 4.780E-22 1.0000 735.0 4.420E-22 1.0000 740.0 4.320E-22 1.0000 745.0 4.470E-22 1.0000 750.0 4.250E-22 1.0000 755.0 3.380E-22 1.0000 760.0 2.860E-22 1.0000 765.0 2.620E-22 1.0000 770.0 2.600E-22 1.0000 775.0 2.940E-22 1.0000 780.0 3.180E-22 1.0000 785.0 2.620E-22 1.0000 790.0 2.080E-22 1.0000 795.0 1.730E-22 1.0000 800.0 1.570E-22 1.0000 805.0 1.560E-22 1.0000 810.0 1.860E-22 1.0000 815.0 2.210E-22 1.0000 820.0 2.060E-22 1.0000 825.0 1.450E-22 1.0000 830.0 8.400E-23 1.0000 835.0 2.300E-23 1.0000 840.0 0.000E+00 1.0000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/O3O3P_06 ================================================ O3O3P_06 ! O3 + HV = O3P + O2 ! Absorption cross sections from NASA (2006). ! Quantum yields are derived from the O1D quantum yields in the low wavelength re ! Unit quantum yields assumed in high wavelength region. ! Absorption cross sections below 829 nm are extrapolated ! ! B. Hutzell: Mar 20, 2017 ! values below 280 nm from JPL2011 Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 121.6 2.990E-17 0.100 186.1 6.220E-19 0.100 187.8 5.760E-19 0.100 189.6 5.260E-19 0.100 191.4 4.770E-19 0.100 193.2 4.290E-19 0.100 195.1 3.850E-19 0.100 197.0 3.490E-19 0.100 199.0 3.240E-19 0.100 201.0 3.150E-19 0.100 203.1 3.260E-19 0.100 205.1 3.630E-19 0.100 207.3 4.330E-19 0.100 209.4 5.390E-19 0.100 211.6 6.930E-19 0.100 213.9 9.030E-19 0.100 216.2 1.180E-18 0.100 218.6 1.540E-18 0.100 221.0 1.990E-18 0.100 223.5 2.550E-18 0.100 226.0 3.220E-18 0.100 228.6 4.010E-18 0.100 231.2 4.900E-18 0.100 233.9 5.900E-18 0.100 236.7 6.930E-18 0.100 239.5 8.020E-18 0.100 242.4 9.080E-18 0.100 245.4 1.000E-17 0.100 248.5 1.080E-17 0.100 251.6 1.130E-17 0.100 254.8 1.150E-17 0.100 258.1 1.120E-17 0.100 261.4 1.060E-17 0.100 264.9 9.680E-18 0.100 268.5 8.400E-18 0.100 272.1 6.980E-18 0.100 275.9 5.470E-18 0.100 279.7 4.060E-18 0.100 280.0 4.060E-18 0.1000 284.0 2.820E-18 0.1000 288.0 1.840E-18 0.1000 292.0 1.130E-18 0.1000 296.0 6.510E-19 0.1000 299.0 4.520E-19 0.1000 300.0 3.920E-19 0.1000 301.0 3.430E-19 0.1000 302.0 3.030E-19 0.1000 303.0 2.620E-19 0.1000 304.0 2.340E-19 0.1000 305.0 2.010E-19 0.1000 306.0 1.790E-19 0.1160 307.0 1.550E-19 0.1380 308.0 1.350E-19 0.2070 309.0 1.220E-19 0.3290 310.0 1.020E-19 0.4770 311.0 9.240E-20 0.6060 312.0 7.950E-20 0.6900 313.0 6.910E-20 0.7350 314.0 6.250E-20 0.7540 315.0 5.190E-20 0.7610 316.0 4.770E-20 0.7670 317.0 4.020E-20 0.7780 318.0 3.720E-20 0.7940 319.0 2.890E-20 0.8130 320.0 2.990E-20 0.8340 321.0 2.100E-20 0.8540 323.0 2.050E-20 0.8800 325.0 1.410E-20 0.9040 327.0 1.010E-20 0.9160 329.0 7.864E-21 0.9200 330.0 6.970E-21 0.9200 335.0 3.200E-21 0.9200 340.0 1.460E-21 0.9200 345.0 7.790E-22 0.9200 350.0 3.060E-22 0.9200 355.0 1.360E-22 0.9200 360.0 6.940E-23 0.9200 365.0 3.050E-23 0.9200 370.0 1.300E-23 0.9200 375.0 8.500E-24 0.9200 380.0 5.720E-24 0.9200 385.0 5.420E-24 0.9200 390.0 6.680E-24 1.0000 395.0 9.560E-24 1.0000 400.0 1.150E-23 1.0000 405.0 1.580E-23 1.0000 410.0 2.580E-23 1.0000 415.0 2.950E-23 1.0000 420.0 3.930E-23 1.0000 425.0 6.560E-23 1.0000 430.0 6.970E-23 1.0000 435.0 8.820E-23 1.0000 440.0 1.370E-22 1.0000 445.0 1.650E-22 1.0000 450.0 1.850E-22 1.0000 455.0 2.180E-22 1.0000 460.0 3.660E-22 1.0000 465.0 3.670E-22 1.0000 470.0 4.100E-22 1.0000 475.0 4.810E-22 1.0000 480.0 7.540E-22 1.0000 485.0 8.130E-22 1.0000 490.0 8.160E-22 1.0000 495.0 9.080E-22 1.0000 500.0 1.210E-21 1.0000 505.0 1.600E-21 1.0000 510.0 1.580E-21 1.0000 515.0 1.660E-21 1.0000 520.0 1.830E-21 1.0000 525.0 2.190E-21 1.0000 530.0 2.670E-21 1.0000 535.0 2.870E-21 1.0000 540.0 2.950E-21 1.0000 545.0 3.190E-21 1.0000 550.0 3.370E-21 1.0000 555.0 3.580E-21 1.0000 560.0 3.980E-21 1.0000 565.0 4.390E-21 1.0000 570.0 4.670E-21 1.0000 575.0 4.810E-21 1.0000 580.0 4.640E-21 1.0000 585.0 4.460E-21 1.0000 590.0 4.470E-21 1.0000 595.0 4.760E-21 1.0000 600.0 5.130E-21 1.0000 605.0 5.140E-21 1.0000 610.0 4.780E-21 1.0000 615.0 4.380E-21 1.0000 620.0 4.060E-21 1.0000 625.0 3.820E-21 1.0000 630.0 3.560E-21 1.0000 635.0 3.270E-21 1.0000 640.0 2.970E-21 1.0000 645.0 2.710E-21 1.0000 650.0 2.510E-21 1.0000 655.0 2.310E-21 1.0000 660.0 2.100E-21 1.0000 665.0 1.900E-21 1.0000 670.0 1.700E-21 1.0000 675.0 1.510E-21 1.0000 680.0 1.370E-21 1.0000 685.0 1.260E-21 1.0000 690.0 1.130E-21 1.0000 695.0 9.890E-22 1.0000 700.0 8.680E-22 1.0000 705.0 7.840E-22 1.0000 710.0 7.310E-22 1.0000 715.0 6.960E-22 1.0000 720.0 6.220E-22 1.0000 725.0 5.430E-22 1.0000 730.0 4.780E-22 1.0000 735.0 4.420E-22 1.0000 740.0 4.320E-22 1.0000 745.0 4.470E-22 1.0000 750.0 4.250E-22 1.0000 755.0 3.380E-22 1.0000 760.0 2.860E-22 1.0000 765.0 2.620E-22 1.0000 770.0 2.600E-22 1.0000 775.0 2.940E-22 1.0000 780.0 3.180E-22 1.0000 785.0 2.620E-22 1.0000 790.0 2.080E-22 1.0000 795.0 1.730E-22 1.0000 800.0 1.570E-22 1.0000 805.0 1.560E-22 1.0000 810.0 1.860E-22 1.0000 815.0 2.210E-22 1.0000 820.0 2.060E-22 1.0000 825.0 1.450E-22 1.0000 830.0 8.400E-23 1.0000 835.0 2.300E-23 1.0000 840.0 0.000E+00 1.0000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/O3O3P_JPL06-2 ================================================ O3O3P_JPL06-2 ! Ozone Photolysis to O3P (O3O3P) ! O3 + hv -> O2 + O(3P) ! ! Reference: ! Sander, S.P., R.R. Friedl, D.M. Golden, M.J. Kurylo, G.K. Moortgat, ! H. Keller-Rudek, P.H. Wine, A.R. Ravishankara, C.E. Kolb, M.J. Molina, ! B.J. Finlayson-Pitts, R.E. Huie, V.L. Orkin "Chemical Kinetics and ! Photochemical Data for Use in Atmospheric Studies, Evaluation Number 15," ! JPL Publication 06-2, Jet Propulsion Laboratory, California Institute of ! Technology Pasadena, CA, 2006 ! ! Absorption cross sections at 293-298 K from Table 4-4 ! Quantum yields calculated as [1-qy(O1d)], with qy(O1d) computed using ! recommended equation with parameters from Table 4-6 for 298 K ! format: wavelength (nm), abs_cs, qy Beginning ! With FAC, units are (cm^2/molecule) FAC=1.0E-20 185.185 62.2 0.1 186.916 57.6 0.1 188.679 52.6 0.1 190.476 47.7 0.1 192.308 42.9 0.1 194.175 38.5 0.1 196.078 34.9 0.1 198.020 32.4 0.1 200.000 31.5 0.1 202.020 32.6 0.1 204.082 36.3 0.1 206.186 43.3 0.1 208.333 53.9 0.1 210.526 69.3 0.1 212.766 90.3 0.1 215.054 118.0 0.1 217.391 154.0 0.1 219.780 199.0 0.1 222.222 255.0 0.1 224.719 322.0 0.1 227.273 401.0 0.1 229.885 490.0 0.1 232.558 590.0 0.1 235.294 693.0 0.1 238.095 802.0 0.1 240.964 908.0 0.1 243.902 1001.0 0.1 246.914 1080.0 0.1 250.000 1125.0 0.1 253.165 1148.0 0.1 256.410 1122.0 0.1 259.740 1064.0 0.1 263.158 968.0 0.1 266.667 840.0 0.1 270.270 698.0 0.1 273.973 547.0 0.1 277.778 406.0 0.1 281.690 282.0 0.1 285.714 184.0 0.1 289.855 113.0 0.1 294.118 65.1 0.1 298.507 45.2 0.1 299.5 39.2 0.1 300.5 34.3 0.1 301.5 30.3 0.1 302.5 26.2 0.1 303.5 23.4 0.1 304.5 20.1 0.1 305.5 17.9 0.116 306.5 15.5 0.138 307.5 13.5 0.207 308.5 12.2 0.329 309.5 10.2 0.477 310.5 9.24 0.606 311.5 7.95 0.690 312.5 6.91 0.735 313.5 6.25 0.754 314.5 5.19 0.761 315.5 4.77 0.767 316.5 4.02 0.778 317.5 3.72 0.794 318.5 2.89 0.813 319.5 2.99 0.834 320.5 2.10 0.854 321.5 2.05 0.880 323.5 1.41 0.904 325.5 1.01 0.916 327.5 0.697 0.92 332.5 0.320 0.92 337.5 0.146 0.92 342.5 0.0779 1.0 347.5 0.0306 1.0 352.5 0.0136 1.0 357.5 0.00694 1.0 362.5 0.00305 1.0 367.5 0.00130 1.0 372.5 0.000850 1.0 377.5 0.000572 1.0 382.5 0.000542 1.0 387.5 0.000668 1.0 392.5 0.000956 1.0 397.5 0.00115 1.0 402.5 0.00158 1.0 407.5 0.00258 1.0 412.5 0.00295 1.0 417.5 0.00393 1.0 422.5 0.00656 1.0 427.5 0.00697 1.0 432.5 0.00882 1.0 437.5 0.0137 1.0 442.5 0.0165 1.0 447.5 0.0185 1.0 452.5 0.0218 1.0 457.5 0.0366 1.0 462.5 0.0367 1.0 467.5 0.0410 1.0 472.5 0.0481 1.0 477.5 0.0754 1.0 482.5 0.0813 1.0 487.5 0.0816 1.0 492.5 0.0908 1.0 497.5 0.121 1.0 502.5 0.160 1.0 507.5 0.158 1.0 512.5 0.166 1.0 517.5 0.183 1.0 522.5 0.219 1.0 527.5 0.267 1.0 532.5 0.287 1.0 537.5 0.295 1.0 542.5 0.319 1.0 547.5 0.337 1.0 552.5 0.358 1.0 557.5 0.398 1.0 562.5 0.439 1.0 567.5 0.467 1.0 572.5 0.481 1.0 577.5 0.464 1.0 582.5 0.446 1.0 587.5 0.447 1.0 592.5 0.476 1.0 597.5 0.513 1.0 602.5 0.514 1.0 607.5 0.478 1.0 612.5 0.438 1.0 617.5 0.406 1.0 622.5 0.382 1.0 627.5 0.356 1.0 632.5 0.327 1.0 637.5 0.297 1.0 642.5 0.271 1.0 647.5 0.251 1.0 652.5 0.231 1.0 657.5 0.210 1.0 662.5 0.190 1.0 667.5 0.170 1.0 672.5 0.151 1.0 677.5 0.137 1.0 682.5 0.126 1.0 687.5 0.113 1.0 692.5 0.0989 1.0 697.5 0.0868 1.0 702.5 0.0784 1.0 707.5 0.0731 1.0 712.5 0.0696 1.0 717.5 0.0622 1.0 722.5 0.0543 1.0 727.5 0.0478 1.0 732.5 0.0442 1.0 737.5 0.0432 1.0 742.5 0.0447 1.0 747.5 0.0425 1.0 752.5 0.0338 1.0 757.5 0.0286 1.0 762.5 0.0262 1.0 767.5 0.0260 1.0 772.5 0.0294 1.0 777.5 0.0318 1.0 782.5 0.0262 1.0 787.5 0.0208 1.0 792.5 0.0173 1.0 797.5 0.0157 1.0 802.5 0.0156 1.0 807.5 0.0186 1.0 812.5 0.0221 1.0 817.5 0.0206 1.0 822.5 0.0145 1.0 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/O3O3P_NASA06 ================================================ O3O3P_NASA06 ! O3 + HV = O3P + O2 ! Absorption cross sections from NASA (2006) ! Quantum yields = 1 - QY of O3O1D ! Taken from SAPRC07 ! B. Hutzell: Mar 20, 2017 ! values below 280 nm from JPL2011 Points (These data can be treated as point values) ! With FAC, units are (cm^2/molecule) FAC=1.0 121.6 2.990E-17 0.100 186.1 6.220E-19 0.100 187.8 5.760E-19 0.100 189.6 5.260E-19 0.100 191.4 4.770E-19 0.100 193.2 4.290E-19 0.100 195.1 3.850E-19 0.100 197.0 3.490E-19 0.100 199.0 3.240E-19 0.100 201.0 3.150E-19 0.100 203.1 3.260E-19 0.100 205.1 3.630E-19 0.100 207.3 4.330E-19 0.100 209.4 5.390E-19 0.100 211.6 6.930E-19 0.100 213.9 9.030E-19 0.100 216.2 1.180E-18 0.100 218.6 1.540E-18 0.100 221.0 1.990E-18 0.100 223.5 2.550E-18 0.100 226.0 3.220E-18 0.100 228.6 4.010E-18 0.100 231.2 4.900E-18 0.100 233.9 5.900E-18 0.100 236.7 6.930E-18 0.100 239.5 8.020E-18 0.100 242.4 9.080E-18 0.100 245.4 1.000E-17 0.100 248.5 1.080E-17 0.100 251.6 1.130E-17 0.100 254.8 1.150E-17 0.100 258.1 1.120E-17 0.100 261.4 1.060E-17 0.100 264.9 9.680E-18 0.100 268.5 8.400E-18 0.100 272.1 6.980E-18 0.100 275.9 5.470E-18 0.100 279.7 4.060E-18 0.100 280.0 4.060E-18 0.1000 284.0 2.820E-18 0.1000 288.0 1.840E-18 0.1000 292.0 1.130E-18 0.1000 296.0 6.510E-19 0.1000 299.0 4.520E-19 0.1000 300.0 3.920E-19 0.1000 301.0 3.430E-19 0.1000 302.0 3.030E-19 0.1000 303.0 2.620E-19 0.1000 304.0 2.340E-19 0.1000 305.0 2.010E-19 0.1000 306.0 1.790E-19 0.1160 307.0 1.550E-19 0.1380 308.0 1.350E-19 0.2070 309.0 1.220E-19 0.3290 310.0 1.020E-19 0.4770 311.0 9.240E-20 0.6060 312.0 7.950E-20 0.6900 313.0 6.910E-20 0.7350 314.0 6.250E-20 0.7540 315.0 5.190E-20 0.7610 316.0 4.770E-20 0.7670 317.0 4.020E-20 0.7780 318.0 3.720E-20 0.7940 319.0 2.890E-20 0.8130 320.0 2.990E-20 0.8340 321.0 2.100E-20 0.8540 323.0 2.050E-20 0.8800 325.0 1.410E-20 0.9040 327.0 1.010E-20 0.9160 329.0 7.864E-21 0.9200 330.0 6.970E-21 0.9200 335.0 3.200E-21 0.9200 340.0 1.460E-21 0.9200 345.0 7.790E-22 0.9200 350.0 3.060E-22 0.9200 355.0 1.360E-22 0.9200 360.0 6.940E-23 0.9200 365.0 3.050E-23 0.9200 370.0 1.300E-23 0.9200 375.0 8.500E-24 0.9200 380.0 5.720E-24 0.9200 385.0 5.420E-24 0.9200 390.0 6.680E-24 1.0000 395.0 9.560E-24 1.0000 400.0 1.150E-23 1.0000 405.0 1.580E-23 1.0000 410.0 2.580E-23 1.0000 415.0 2.950E-23 1.0000 420.0 3.930E-23 1.0000 425.0 6.560E-23 1.0000 430.0 6.970E-23 1.0000 435.0 8.820E-23 1.0000 440.0 1.370E-22 1.0000 445.0 1.650E-22 1.0000 450.0 1.850E-22 1.0000 455.0 2.180E-22 1.0000 460.0 3.660E-22 1.0000 465.0 3.670E-22 1.0000 470.0 4.100E-22 1.0000 475.0 4.810E-22 1.0000 480.0 7.540E-22 1.0000 485.0 8.130E-22 1.0000 490.0 8.160E-22 1.0000 495.0 9.080E-22 1.0000 500.0 1.210E-21 1.0000 505.0 1.600E-21 1.0000 510.0 1.580E-21 1.0000 515.0 1.660E-21 1.0000 520.0 1.830E-21 1.0000 525.0 2.190E-21 1.0000 530.0 2.670E-21 1.0000 535.0 2.870E-21 1.0000 540.0 2.950E-21 1.0000 545.0 3.190E-21 1.0000 550.0 3.370E-21 1.0000 555.0 3.580E-21 1.0000 560.0 3.980E-21 1.0000 565.0 4.390E-21 1.0000 570.0 4.670E-21 1.0000 575.0 4.810E-21 1.0000 580.0 4.640E-21 1.0000 585.0 4.460E-21 1.0000 590.0 4.470E-21 1.0000 595.0 4.760E-21 1.0000 600.0 5.130E-21 1.0000 605.0 5.140E-21 1.0000 610.0 4.780E-21 1.0000 615.0 4.380E-21 1.0000 620.0 4.060E-21 1.0000 625.0 3.820E-21 1.0000 630.0 3.560E-21 1.0000 635.0 3.270E-21 1.0000 640.0 2.970E-21 1.0000 645.0 2.710E-21 1.0000 650.0 2.510E-21 1.0000 655.0 2.310E-21 1.0000 660.0 2.100E-21 1.0000 665.0 1.900E-21 1.0000 670.0 1.700E-21 1.0000 675.0 1.510E-21 1.0000 680.0 1.370E-21 1.0000 685.0 1.260E-21 1.0000 690.0 1.130E-21 1.0000 695.0 9.890E-22 1.0000 700.0 8.680E-22 1.0000 705.0 7.840E-22 1.0000 710.0 7.310E-22 1.0000 715.0 6.960E-22 1.0000 720.0 6.220E-22 1.0000 725.0 5.430E-22 1.0000 730.0 4.780E-22 1.0000 735.0 4.420E-22 1.0000 740.0 4.320E-22 1.0000 745.0 4.470E-22 1.0000 750.0 4.250E-22 1.0000 755.0 3.380E-22 1.0000 760.0 2.860E-22 1.0000 765.0 2.620E-22 1.0000 770.0 2.600E-22 1.0000 775.0 2.940E-22 1.0000 780.0 3.180E-22 1.0000 785.0 2.620E-22 1.0000 790.0 2.080E-22 1.0000 795.0 1.730E-22 1.0000 800.0 1.570E-22 1.0000 805.0 1.560E-22 1.0000 810.0 1.860E-22 1.0000 815.0 2.210E-22 1.0000 820.0 2.060E-22 1.0000 825.0 1.450E-22 1.0000 830.0 8.400E-23 1.0000 835.0 2.300E-23 1.0000 840.0 0.000E+00 1.0000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/O3O3P_NASA94 ================================================ O3O3P_NASA94 ! Ozone Photolysis to O3P (O3O3P) ! O3 + hv -> O2 + O(3P) ! Taken from NASA (1994); Absorption CS is at 273 K; QY is at 298 K; ! WMO (1988) data used for wl .ge. 362.5 nm ! format: wl, abs_cs, qy Beginning ! With FAC, units are (cm^2/molecule) FAC=1.0E-20 175.439 81.1 0.1 176.991 79.9 0.1 178.571 78.6 0.1 180.180 76.3 0.1 181.818 72.9 0.1 183.486 68.8 0.1 185.185 62.2 0.1 186.916 57.6 0.1 188.679 52.6 0.1 190.476 47.6 0.1 192.308 42.8 0.1 194.175 38.3 0.1 196.078 34.7 0.1 198.020 32.3 0.1 200.000 31.4 0.1 202.020 32.6 0.1 204.082 36.4 0.1 206.186 43.4 0.1 208.333 54.2 0.1 210.526 69.9 0.1 212.766 92.1 0.1 215.054 119.0 0.1 217.391 155.0 0.1 219.780 199.0 0.1 222.222 256.0 0.1 224.719 323.0 0.1 227.273 400.0 0.1 229.885 483.0 0.1 232.558 579.0 0.1 235.294 686.0 0.1 238.095 797.0 0.1 240.964 900.0 0.1 243.902 1000.0 0.1 246.914 1080.0 0.1 250.000 1130.0 0.1 253.165 1150.0 0.1 256.410 1120.0 0.1 259.740 1060.0 0.1 263.158 965.0 0.1 266.667 834.0 0.1 270.270 692.0 0.1 273.973 542.0 0.1 277.778 402.0 0.1 281.690 277.0 0.1 285.714 179.0 0.1 289.855 109.0 0.0517 294.118 62.4 0.05 298.507 34.3 0.05 303.030 18.5 0.07162 307.692 9.8 0.48193 312.500 5.01 0.93494 317.500 2.49 0.99835 322.500 1.2 1.0 327.500 0.617 1.0 332.500 0.274 1.0 337.500 0.117 1.0 342.500 0.0588 1.0 347.500 0.0266 1.0 352.500 0.0109 1.0 357.500 0.00549 1.0 362.500 0.0 1.0 367.500 0.0 1.0 372.500 0.0 1.0 377.500 0.0 1.0 382.500 0.0 1.0 387.500 0.0 1.0 392.500 0.0 1.0 397.500 0.0 1.0 402.500 0.0 1.0 407.500 0.00291 1.0 412.500 0.00314 1.0 417.500 0.00399 1.0 422.500 0.00654 1.0 427.500 0.00683 1.0 432.500 0.00866 1.0 437.500 0.0125 1.0 442.500 0.0149 1.0 447.500 0.0171 1.0 452.500 0.0212 1.0 457.500 0.0357 1.0 462.500 0.0368 1.0 467.500 0.0406 1.0 472.500 0.0489 1.0 477.500 0.0711 1.0 482.500 0.0843 1.0 487.500 0.0828 1.0 492.500 0.0909 1.0 497.500 0.122 1.0 502.500 0.162 1.0 507.500 0.158 1.0 512.500 0.16 1.0 517.500 0.178 1.0 522.500 0.207 1.0 527.500 0.255 1.0 532.500 0.274 1.0 537.500 0.288 1.0 542.500 0.307 1.0 547.500 0.317 1.0 552.500 0.336 1.0 557.500 0.388 1.0 562.500 0.431 1.0 567.500 0.467 1.0 572.500 0.475 1.0 577.500 0.455 1.0 582.500 0.435 1.0 587.500 0.442 1.0 592.500 0.461 1.0 597.500 0.489 1.0 602.500 0.484 1.0 607.500 0.454 1.0 612.500 0.424 1.0 617.500 0.39 1.0 622.500 0.36 1.0 627.500 0.343 1.0 632.500 0.317 1.0 637.500 0.274 1.0 642.500 0.261 1.0 647.500 0.242 1.0 652.500 0.22 1.0 657.500 0.202 1.0 662.500 0.185 1.0 667.500 0.167 1.0 672.500 0.154 1.0 677.500 0.142 1.0 682.500 0.125 1.0 687.500 0.112 1.0 692.500 0.102 1.0 697.500 0.092 1.0 702.500 0.084 1.0 707.500 0.077 1.0 712.500 0.069 1.0 717.500 0.063 1.0 722.500 0.057 1.0 727.500 0.0525 1.0 732.500 0.0475 1.0 737.500 0.0447 1.0 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/O3O3P_RADM88 ================================================ O3O3P_RADM88 ! Ozone Photolysis to O3P (O3O3P) ! O3 + hv -> O2 + O(3P) ! Taken from the original RADM data ! format: wl, abs_cs, qy Beginning ! With FAC, units are (cm^2/molecule) FAC=1.0 185.185 6.229E-19 1.000E+00 186.916 5.763E-19 1.000E+00 188.679 5.259E-19 1.000E+00 190.476 4.750E-19 1.000E+00 192.308 4.266E-19 1.000E+00 194.175 3.819E-19 1.000E+00 196.078 3.461E-19 1.000E+00 198.020 3.216E-19 1.000E+00 200.000 3.139E-19 1.000E+00 202.020 3.265E-19 1.000E+00 204.082 3.653E-19 1.000E+00 206.186 4.368E-19 1.000E+00 208.333 5.464E-19 1.000E+00 210.526 7.046E-19 1.000E+00 212.766 9.201E-19 1.000E+00 215.054 1.204E-18 1.000E+00 217.391 1.565E-18 1.000E+00 219.780 2.003E-18 1.000E+00 222.222 2.565E-18 1.000E+00 224.719 3.243E-18 1.000E+00 227.273 4.039E-18 1.000E+00 229.885 4.936E-18 1.000E+00 232.558 5.934E-18 1.000E+00 235.294 7.006E-18 1.000E+00 238.095 8.110E-18 1.000E+00 240.964 9.196E-18 1.000E+00 243.902 1.018E-17 1.000E+00 246.914 1.098E-17 1.000E+00 250.000 1.143E-17 1.000E+00 253.165 1.164E-17 1.000E+00 256.410 1.136E-17 1.000E+00 259.740 1.075E-17 1.000E+00 263.158 9.430E-18 1.000E+00 266.667 8.230E-18 1.000E+00 270.270 6.810E-18 1.000E+00 273.973 5.310E-18 1.000E+00 277.778 3.990E-18 1.000E+00 281.690 2.840E-18 1.000E+00 285.714 1.920E-18 1.000E+00 289.855 1.140E-18 1.000E+00 294.118 6.600E-19 1.000E+00 298.500 3.850E-19 1.000E+00 302.500 2.730E-19 1.000E+00 303.500 2.390E-19 1.000E+00 304.500 2.080E-19 1.000E+00 305.500 1.810E-19 1.000E+00 306.500 1.580E-19 1.000E+00 307.500 1.380E-19 1.000E+00 308.500 1.200E-19 1.000E+00 309.500 1.050E-19 1.000E+00 310.500 9.200E-20 1.000E+00 311.500 8.000E-20 1.000E+00 312.500 7.000E-20 1.000E+00 313.500 6.100E-20 1.000E+00 314.500 4.630E-20 1.000E+00 317.500 2.910E-20 1.000E+00 322.500 1.500E-20 1.000E+00 327.500 7.780E-21 1.000E+00 332.500 3.720E-21 1.000E+00 337.500 1.710E-21 1.000E+00 342.500 7.460E-22 1.000E+00 347.500 2.660E-22 1.000E+00 352.500 1.090E-22 1.000E+00 357.500 5.490E-23 1.000E+00 362.500 0.000E+00 1.000E+00 367.500 0.000E+00 1.000E+00 372.500 0.000E+00 1.000E+00 377.500 0.000E+00 1.000E+00 382.500 0.000E+00 1.000E+00 387.500 0.000E+00 1.000E+00 392.500 0.000E+00 1.000E+00 397.500 0.000E+00 1.000E+00 402.500 0.000E+00 1.000E+00 407.500 2.910E-23 1.000E+00 412.500 3.140E-23 1.000E+00 417.500 3.990E-23 1.000E+00 422.500 6.540E-23 1.000E+00 427.500 6.830E-23 1.000E+00 432.500 8.660E-23 1.000E+00 437.500 1.250E-22 1.000E+00 442.500 1.490E-22 1.000E+00 447.500 1.710E-22 1.000E+00 452.500 2.120E-22 1.000E+00 457.500 3.570E-22 1.000E+00 462.500 3.680E-22 1.000E+00 467.500 4.060E-22 1.000E+00 472.500 4.890E-22 1.000E+00 477.500 7.110E-22 1.000E+00 482.500 8.430E-22 1.000E+00 487.500 8.280E-22 1.000E+00 492.500 9.090E-22 1.000E+00 497.500 1.220E-21 1.000E+00 502.500 1.620E-21 1.000E+00 507.500 1.580E-21 1.000E+00 512.500 1.600E-21 1.000E+00 517.500 1.780E-21 1.000E+00 522.500 2.070E-21 1.000E+00 527.500 2.550E-21 1.000E+00 532.500 2.740E-21 1.000E+00 537.500 2.880E-21 1.000E+00 542.500 3.070E-21 1.000E+00 547.500 3.170E-21 1.000E+00 552.500 3.360E-21 1.000E+00 557.500 3.880E-21 1.000E+00 562.500 4.310E-21 1.000E+00 567.500 4.670E-21 1.000E+00 572.500 4.750E-21 1.000E+00 577.500 4.550E-21 1.000E+00 582.500 4.350E-21 1.000E+00 587.500 4.420E-21 1.000E+00 592.500 4.610E-21 1.000E+00 597.500 4.890E-21 1.000E+00 602.500 4.840E-21 1.000E+00 607.500 4.540E-21 1.000E+00 612.500 4.240E-21 1.000E+00 617.500 3.900E-21 1.000E+00 622.500 3.600E-21 1.000E+00 627.500 3.430E-21 1.000E+00 632.500 3.170E-21 1.000E+00 637.500 2.740E-21 1.000E+00 642.500 2.610E-21 1.000E+00 647.100 2.400E-21 1.000E+00 655.000 2.070E-21 1.000E+00 665.000 1.720E-21 1.000E+00 675.000 1.370E-21 1.000E+00 685.000 1.110E-21 1.000E+00 695.000 9.130E-22 1.000E+00 705.000 7.930E-22 1.000E+00 715.000 6.400E-22 1.000E+00 725.000 5.140E-22 1.000E+00 735.000 0.000E+00 1.000E+00 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/O3O3P_SAPRC99 ================================================ O3O3P ! O3 + HV = O1D + O2 ! SAPRC-99 Photolysis data. Supplied by William P. L. Carter. ! Created from PhotDat.xls on 29-Jan-2000 10:07 ! Absorption cross sections from NASA (1999), using wavelength which is cente ! r of intervals shown. ! Quantum yields derived from O3->O1D quantum yields assuming total quantum y ! ield is 1, though this is not adequately discussed in the evaluations. ! Values given are interpolated for each 1 nm interval. Points (the mechanism was evaluated assuming this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 280.0 3.936E-18 0.095 281.0 3.621E-18 0.093 282.0 3.306E-18 0.090 283.0 2.991E-18 0.088 284.0 2.698E-18 0.086 285.0 2.458E-18 0.084 286.0 2.218E-18 0.082 287.0 1.978E-18 0.079 288.0 1.754E-18 0.077 289.0 1.588E-18 0.075 290.0 1.421E-18 0.073 291.0 1.254E-18 0.070 292.0 1.089E-18 0.068 293.0 9.808E-19 0.066 294.0 8.731E-19 0.064 295.0 7.654E-19 0.061 296.0 6.577E-19 0.059 297.0 5.806E-19 0.057 298.0 5.176E-19 0.055 299.0 4.545E-19 0.052 300.0 3.915E-19 0.050 301.0 3.350E-19 0.035 302.0 3.006E-19 0.025 303.0 2.662E-19 0.015 304.0 2.318E-19 0.010 305.0 1.974E-19 0.020 306.0 1.733E-19 0.050 307.0 1.549E-19 0.123 308.0 1.365E-19 0.227 309.0 1.181E-19 0.333 310.0 9.976E-20 0.400 311.0 8.917E-20 0.612 312.0 7.940E-20 0.697 313.0 6.964E-20 0.738 314.0 5.987E-20 0.762 315.0 5.010E-20 0.765 316.0 4.506E-20 0.779 317.0 4.002E-20 0.791 318.0 3.498E-20 0.806 319.0 2.994E-20 0.822 320.0 2.490E-20 0.852 321.0 2.232E-20 0.879 322.0 1.974E-20 0.903 323.0 1.716E-20 0.908 324.0 1.458E-20 0.920 325.0 1.200E-20 0.930 326.0 1.083E-20 0.934 327.0 9.668E-21 0.938 328.0 8.502E-21 0.942 329.0 7.336E-21 0.946 330.0 6.170E-21 0.950 331.0 5.484E-21 0.950 332.0 4.798E-21 0.950 333.0 4.112E-21 0.950 334.0 3.426E-21 0.950 335.0 2.740E-21 0.950 336.0 2.426E-21 0.960 337.0 2.112E-21 0.970 338.0 1.798E-21 0.980 339.0 1.484E-21 0.990 340.0 1.170E-21 1.000 350.0 0.000E+00 1.000 400.0 0.000E+00 1.000 410.0 1.200E-23 1.000 420.0 2.200E-23 1.000 440.0 1.120E-22 1.000 460.0 3.280E-22 1.000 480.0 6.840E-22 1.000 500.0 1.220E-21 1.000 520.0 1.820E-21 1.000 540.0 2.910E-21 1.000 560.0 3.940E-21 1.000 580.0 4.590E-21 1.000 600.0 5.110E-21 1.000 620.0 4.000E-21 1.000 640.0 2.960E-21 1.000 660.0 2.090E-21 1.000 680.0 1.360E-21 1.000 700.0 9.100E-22 1.000 750.0 3.200E-22 1.000 800.0 1.600E-22 1.000 900.0 0.000E+00 1.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/O3_O1D_IUPAC04 ================================================ O3_O1D_IUPAC04 ! O3 + HV = O(1D) + O2 ! From IUPAC Subcommittee on Gas Kinetic Data Evaluation ! Data Sheet POx2, updated 2nd October 2001 ! Website: http://www.iupac-kinetic.ch.cam.ac.uk/ ! B. Hutzell: Mar 20, 2017 ! values below 280 nm from JPL2011 Points (These data can be treated as point values) ! Sigma values for wavelength intervals 280-370 nm assigned to a 1 nm grid.! Quantum yields interpolated to match sigma grid! Greg Yarwood, January 2005 FAC=1.0 121.6 2.990E-17 0.900 186.1 6.220E-19 0.900 187.8 5.760E-19 0.900 189.6 5.260E-19 0.900 191.4 4.770E-19 0.900 193.2 4.290E-19 0.900 195.1 3.850E-19 0.900 197.0 3.490E-19 0.900 199.0 3.240E-19 0.900 201.0 3.150E-19 0.900 203.1 3.260E-19 0.900 205.1 3.630E-19 0.900 207.3 4.330E-19 0.900 209.4 5.390E-19 0.900 211.6 6.930E-19 0.900 213.9 9.030E-19 0.900 216.2 1.180E-18 0.900 218.6 1.540E-18 0.900 221.0 1.990E-18 0.900 223.5 2.550E-18 0.900 226.0 3.220E-18 0.900 228.6 4.010E-18 0.900 231.2 4.900E-18 0.900 233.9 5.900E-18 0.900 236.7 6.930E-18 0.900 239.5 8.020E-18 0.900 242.4 9.080E-18 0.900 245.4 1.000E-17 0.900 248.5 1.080E-17 0.900 251.6 1.130E-17 0.900 254.8 1.150E-17 0.900 258.1 1.120E-17 0.900 261.4 1.060E-17 0.900 264.9 9.680E-18 0.900 268.5 8.400E-18 0.900 272.1 6.980E-18 0.900 275.9 5.470E-18 0.900 279.7 4.060E-18 0.900 280.00 4.0200E-18 9.0000E-01 281.00 4.0200E-18 9.0000E-01 282.00 3.0200E-18 9.0000E-01 283.00 2.7700E-18 9.0000E-01 284.00 2.7700E-18 9.0000E-01 285.00 2.7700E-18 9.0000E-01 286.00 1.9860E-18 9.0000E-01 287.00 1.7900E-18 9.0000E-01 288.00 1.7900E-18 9.0000E-01 289.00 1.7900E-18 9.0000E-01 290.00 1.3700E-18 9.0000E-01 291.00 1.0900E-18 9.0000E-01 292.00 1.0900E-18 9.0000E-01 293.00 1.0900E-18 9.0000E-01 294.00 9.0359E-19 9.0000E-01 295.00 6.2400E-19 9.0000E-01 296.00 6.2400E-19 9.0000E-01 297.00 6.2400E-19 9.0000E-01 298.00 6.2400E-19 9.0000E-01 299.00 3.4300E-19 9.0000E-01 300.00 3.4300E-19 9.0000E-01 301.00 3.4300E-19 9.0000E-01 302.00 3.4300E-19 9.0000E-01 303.00 2.6400E-19 9.0000E-01 304.00 1.8500E-19 9.0000E-01 305.00 1.8500E-19 9.0000E-01 306.00 1.8500E-19 8.8400E-01 307.00 1.8500E-19 8.6200E-01 308.00 1.1540E-19 7.9300E-01 309.00 9.8000E-20 6.7100E-01 310.00 9.8000E-20 5.2300E-01 311.00 9.8000E-20 3.9400E-01 312.00 9.8000E-20 3.1000E-01 313.00 5.0000E-20 2.6500E-01 314.00 5.0000E-20 2.4600E-01 315.00 5.0000E-20 2.3900E-01 316.00 5.0000E-20 2.3300E-01 317.00 5.0000E-20 2.2200E-01 318.00 2.4900E-20 2.0600E-01 319.00 2.4900E-20 1.8700E-01 320.00 2.4900E-20 1.6600E-01 321.00 2.4900E-20 1.4600E-01 322.00 2.4900E-20 1.2800E-01 323.00 1.2000E-20 1.1300E-01 324.00 1.2000E-20 1.0100E-01 325.00 1.2000E-20 9.2000E-02 326.00 1.2000E-20 8.6000E-02 327.00 1.2000E-20 8.2000E-02 328.00 6.1700E-21 8.0000E-02 329.00 6.1700E-21 8.0000E-02 330.00 6.1700E-21 8.0000E-02 331.00 6.1700E-21 8.0000E-02 332.00 6.1700E-21 8.0000E-02 333.00 2.7400E-21 8.0000E-02 334.00 2.7400E-21 8.0000E-02 335.00 2.7400E-21 8.0000E-02 336.00 2.7400E-21 8.0000E-02 337.00 2.7400E-21 8.0000E-02 338.00 1.1700E-21 8.0000E-02 339.00 1.1700E-21 8.0000E-02 340.00 1.1700E-21 8.0000E-02 341.00 1.1700E-21 8.0000E-02 342.00 1.1700E-21 8.0000E-02 343.00 5.9000E-22 8.0000E-02 344.00 5.9000E-22 8.0000E-02 345.00 5.9000E-22 8.0000E-02 346.00 5.9000E-22 8.0000E-02 347.00 5.9000E-22 8.0000E-02 348.00 2.7000E-22 8.0000E-02 349.00 2.7000E-22 8.0000E-02 350.00 2.7000E-22 8.0000E-02 351.00 2.7000E-22 8.0000E-02 352.00 2.7000E-22 8.0000E-02 353.00 1.1000E-22 8.0000E-02 354.00 1.1000E-22 8.0000E-02 355.00 1.1000E-22 8.0000E-02 356.00 1.1000E-22 8.0000E-02 357.00 1.1000E-22 8.0000E-02 358.00 5.0000E-23 8.0000E-02 359.00 5.0000E-23 8.0000E-02 360.00 5.0000E-23 8.0000E-02 361.00 5.0000E-23 8.0000E-02 362.00 5.0000E-23 8.0000E-02 363.00 0.0000E+00 8.0000E-02 400.00 0.0000E+00 0.0000E+00 401.00 1.2000E-24 0.0000E+00 402.00 2.4000E-24 0.0000E+00 403.00 3.6000E-24 0.0000E+00 404.00 4.8000E-24 0.0000E+00 405.00 6.0000E-24 0.0000E+00 406.00 7.2000E-24 0.0000E+00 407.00 8.4000E-24 0.0000E+00 408.00 9.6000E-24 0.0000E+00 409.00 1.0800E-23 0.0000E+00 410.00 1.2000E-23 0.0000E+00 411.00 1.3000E-23 0.0000E+00 412.00 1.4000E-23 0.0000E+00 413.00 1.5000E-23 0.0000E+00 414.00 1.6000E-23 0.0000E+00 415.00 1.7000E-23 0.0000E+00 416.00 1.8000E-23 0.0000E+00 417.00 1.9000E-23 0.0000E+00 418.00 2.0000E-23 0.0000E+00 419.00 2.1000E-23 0.0000E+00 420.00 2.2000E-23 0.0000E+00 421.00 2.6500E-23 0.0000E+00 422.00 3.1000E-23 0.0000E+00 423.00 3.5500E-23 0.0000E+00 424.00 4.0000E-23 0.0000E+00 425.00 4.4500E-23 0.0000E+00 426.00 4.9000E-23 0.0000E+00 427.00 5.3500E-23 0.0000E+00 428.00 5.8000E-23 0.0000E+00 429.00 6.2500E-23 0.0000E+00 430.00 6.7000E-23 0.0000E+00 431.00 7.1500E-23 0.0000E+00 432.00 7.6000E-23 0.0000E+00 433.00 8.0500E-23 0.0000E+00 434.00 8.5000E-23 0.0000E+00 435.00 8.9500E-23 0.0000E+00 436.00 9.4000E-23 0.0000E+00 437.00 9.8500E-23 0.0000E+00 438.00 1.0300E-22 0.0000E+00 439.00 1.0750E-22 0.0000E+00 440.00 1.1200E-22 0.0000E+00 450.00 2.2000E-22 0.0000E+00 460.00 3.2800E-22 0.0000E+00 470.00 5.0600E-22 0.0000E+00 480.00 6.8400E-22 0.0000E+00 490.00 9.5200E-22 0.0000E+00 500.00 1.2200E-21 0.0000E+00 510.00 1.5200E-21 0.0000E+00 520.00 1.8200E-21 0.0000E+00 530.00 2.3650E-21 0.0000E+00 540.00 2.9100E-21 0.0000E+00 550.00 3.4250E-21 0.0000E+00 560.00 3.9400E-21 0.0000E+00 570.00 4.2650E-21 0.0000E+00 580.00 4.5900E-21 0.0000E+00 590.00 4.8500E-21 0.0000E+00 600.00 5.1100E-21 0.0000E+00 610.00 4.5550E-21 0.0000E+00 620.00 4.0000E-21 0.0000E+00 630.00 3.4800E-21 0.0000E+00 640.00 2.9600E-21 0.0000E+00 650.00 2.5250E-21 0.0000E+00 660.00 2.0900E-21 0.0000E+00 670.00 1.7250E-21 0.0000E+00 680.00 1.3600E-21 0.0000E+00 690.00 1.1350E-21 0.0000E+00 700.00 9.1000E-22 0.0000E+00 710.00 0.0000E-00 0.0000E+00 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/O3_O1D_IUPAC10 ================================================ O3_O1D_IUPAC10 ! j(O3_O1D) IUPAC(2010) ! O3 = O1D ! From IUPAC Subcommittee on Gas Kinetic Data Evaluation ! Data Sheet POx2, updated 2nd October, 2001 ! values below 280 nm from JPL2011 ! These are point values Begining (the mechanism evaluated with this format) !WL(nm) XSEC(cm2) QY FAC=1.0 121.6 2.990E-17 0.900 186.1 6.220E-19 0.900 187.8 5.760E-19 0.900 189.6 5.260E-19 0.900 191.4 4.770E-19 0.900 193.2 4.290E-19 0.900 195.1 3.850E-19 0.900 197.0 3.490E-19 0.900 199.0 3.240E-19 0.900 201.0 3.150E-19 0.900 203.1 3.260E-19 0.900 205.1 3.630E-19 0.900 207.3 4.330E-19 0.900 209.4 5.390E-19 0.900 211.6 6.930E-19 0.900 213.9 9.030E-19 0.900 216.2 1.180E-18 0.900 218.6 1.540E-18 0.900 221.0 1.990E-18 0.900 223.5 2.550E-18 0.900 226.0 3.220E-18 0.900 228.6 4.010E-18 0.900 231.2 4.900E-18 0.900 233.9 5.900E-18 0.900 236.7 6.930E-18 0.900 239.5 8.020E-18 0.900 242.4 9.080E-18 0.900 245.4 1.000E-17 0.900 248.5 1.080E-17 0.900 251.6 1.130E-17 0.900 254.8 1.150E-17 0.900 258.1 1.120E-17 0.900 261.4 1.060E-17 0.900 264.9 9.680E-18 0.900 268.5 8.400E-18 0.900 272.1 6.980E-18 0.900 275.9 5.470E-18 0.900 279.7 4.060E-18 0.900 280.0 4.020E-18 0.900 281.0 4.020E-18 0.900 282.0 2.770E-18 0.900 283.0 2.770E-18 0.900 284.0 2.770E-18 0.900 285.0 2.770E-18 0.900 286.0 1.790E-18 0.900 287.0 1.790E-18 0.900 288.0 1.790E-18 0.900 289.0 1.790E-18 0.900 290.0 1.090E-18 0.900 291.0 1.090E-18 0.900 292.0 1.090E-18 0.900 293.0 1.090E-18 0.900 294.0 1.090E-18 0.900 295.0 6.240E-19 0.900 296.0 6.240E-19 0.900 297.0 6.240E-19 0.900 298.0 6.240E-19 0.900 299.0 3.430E-19 0.900 300.0 3.430E-19 0.900 301.0 3.430E-19 0.900 302.0 3.430E-19 0.900 303.0 1.850E-19 0.900 304.0 1.850E-19 0.900 305.0 1.850E-19 0.900 306.0 1.850E-19 0.884 307.0 1.850E-19 0.862 308.0 9.800E-20 0.793 309.0 9.800E-20 0.671 310.0 9.800E-20 0.523 311.0 9.800E-20 0.394 312.0 9.800E-20 0.310 313.0 5.000E-20 0.265 314.0 5.000E-20 0.246 315.0 5.000E-20 0.239 316.0 5.000E-20 0.233 317.0 5.000E-20 0.222 318.0 2.490E-20 0.206 319.0 2.490E-20 0.187 320.0 2.490E-20 0.166 321.0 2.490E-20 0.146 322.0 2.490E-20 0.128 323.0 1.200E-20 0.113 324.0 1.200E-20 0.101 325.0 1.200E-20 0.092 326.0 1.200E-20 0.086 327.0 1.200E-20 0.082 328.0 6.170E-21 0.080 329.0 6.170E-21 0.080 330.0 6.170E-21 0.080 331.0 6.170E-21 0.080 332.0 6.170E-21 0.080 333.0 2.740E-21 0.080 334.0 2.740E-21 0.080 335.0 2.740E-21 0.080 336.0 2.740E-21 0.080 337.0 2.740E-21 0.080 338.0 1.170E-21 0.080 339.0 1.170E-21 0.080 340.0 1.170E-21 0.080 341.0 1.170E-21 0.080 342.0 1.170E-21 0.080 343.0 5.900E-22 0.080 344.0 5.900E-22 0.080 345.0 5.900E-22 0.080 346.0 5.900E-22 0.080 347.0 5.900E-22 0.080 348.0 2.700E-22 0.080 349.0 2.700E-22 0.080 350.0 2.700E-22 0.080 351.0 2.700E-22 0.080 352.0 2.700E-22 0.080 353.0 1.100E-22 0.080 354.0 1.100E-22 0.080 355.0 1.100E-22 0.080 356.0 1.100E-22 0.080 357.0 1.100E-22 0.080 358.0 5.000E-23 0.080 359.0 5.000E-23 0.080 360.0 5.000E-23 0.080 361.0 5.000E-23 0.080 362.0 5.000E-23 0.080 363.0 5.000E-23 0.080 364.0 5.000E-23 0.080 365.0 5.000E-23 0.080 366.0 0.000E+00 0.000 409.0 0.000E+00 0.000 410.0 1.200E-23 0.000 420.0 2.200E-23 0.000 440.0 1.120E-22 0.000 460.0 3.280E-22 0.000 480.0 6.840E-22 0.000 500.0 1.220E-21 0.000 520.0 1.820E-21 0.000 540.0 2.910E-21 0.000 560.0 3.940E-21 0.000 580.0 4.590E-21 0.000 600.0 5.110E-21 0.000 620.0 4.000E-21 0.000 640.0 2.960E-21 0.000 660.0 2.090E-21 0.000 680.0 1.360E-21 0.000 700.0 9.100E-22 0.000 701.0 0.000E+00 0.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/O3_O3P_IUPAC04 ================================================ O3_O3P_IUPAC04 !O3 + HV = O(3P) + O2 ! From IUPAC Subcommittee on Gas Kinetic Data Evaluation ! Data Sheet POx2, updated 2nd October 2001 ! Website: http://www.iupac-kinetic.ch.cam.ac.uk/ ! B. Hutzell: Mar 20, 2017 ! values below 280 nm from JPL2011 Points ( These data can be treated as point values) ! Sigma values for wavelength intervals 280-370 nm assigned to a 1 nm grid. ! Sigma values for wavelengths 400-700 nm interpolated to a hybrid 1 nm and 10 nm grid. ! Quantum yields interpolated to match sigma grids - Greg Yarwood, January 2005 FAC=1.0 121.6 2.990E-17 0.100 186.1 6.220E-19 0.100 187.8 5.760E-19 0.100 189.6 5.260E-19 0.100 191.4 4.770E-19 0.100 193.2 4.290E-19 0.100 195.1 3.850E-19 0.100 197.0 3.490E-19 0.100 199.0 3.240E-19 0.100 201.0 3.150E-19 0.100 203.1 3.260E-19 0.100 205.1 3.630E-19 0.100 207.3 4.330E-19 0.100 209.4 5.390E-19 0.100 211.6 6.930E-19 0.100 213.9 9.030E-19 0.100 216.2 1.180E-18 0.100 218.6 1.540E-18 0.100 221.0 1.990E-18 0.100 223.5 2.550E-18 0.100 226.0 3.220E-18 0.100 228.6 4.010E-18 0.100 231.2 4.900E-18 0.100 233.9 5.900E-18 0.100 236.7 6.930E-18 0.100 239.5 8.020E-18 0.100 242.4 9.080E-18 0.100 245.4 1.000E-17 0.100 248.5 1.080E-17 0.100 251.6 1.130E-17 0.100 254.8 1.150E-17 0.100 258.1 1.120E-17 0.100 261.4 1.060E-17 0.100 264.9 9.680E-18 0.100 268.5 8.400E-18 0.100 272.1 6.980E-18 0.100 275.9 5.470E-18 0.100 279.7 4.060E-18 0.100 280.00 4.0200E-18 1.0000E-01 281.00 4.0200E-18 1.0000E-01 282.00 3.0200E-18 1.0000E-01 283.00 2.7700E-18 1.0000E-01 284.00 2.7700E-18 1.0000E-01 285.00 2.7700E-18 1.0000E-01 286.00 1.9860E-18 1.0000E-01 287.00 1.7900E-18 1.0000E-01 288.00 1.7900E-18 1.0000E-01 289.00 1.7900E-18 1.0000E-01 290.00 1.3700E-18 1.0000E-01 291.00 1.0900E-18 1.0000E-01 292.00 1.0900E-18 1.0000E-01 293.00 1.0900E-18 1.0000E-01 294.00 9.0359E-19 1.0000E-01 295.00 6.2400E-19 1.0000E-01 296.00 6.2400E-19 1.0000E-01 297.00 6.2400E-19 1.0000E-01 298.00 6.2400E-19 1.0000E-01 299.00 3.4300E-19 1.0000E-01 300.00 3.4300E-19 1.0000E-01 301.00 3.4300E-19 1.0000E-01 302.00 3.4300E-19 1.0000E-01 303.00 2.6400E-19 1.0000E-01 304.00 1.8500E-19 1.0000E-01 305.00 1.8500E-19 1.0000E-01 306.00 1.8500E-19 1.1600E-01 307.00 1.8500E-19 1.3800E-01 308.00 1.1540E-19 2.0700E-01 309.00 9.8000E-20 3.2900E-01 310.00 9.8000E-20 4.7700E-01 311.00 9.8000E-20 6.0600E-01 312.00 9.8000E-20 6.9000E-01 313.00 5.0000E-20 7.3500E-01 314.00 5.0000E-20 7.5400E-01 315.00 5.0000E-20 7.6100E-01 316.00 5.0000E-20 7.6700E-01 317.00 5.0000E-20 7.7800E-01 318.00 2.4900E-20 7.9400E-01 319.00 2.4900E-20 8.1300E-01 320.00 2.4900E-20 8.3400E-01 321.00 2.4900E-20 8.5400E-01 322.00 2.4900E-20 8.7200E-01 323.00 1.2000E-20 8.8700E-01 324.00 1.2000E-20 8.9900E-01 325.00 1.2000E-20 9.0800E-01 326.00 1.2000E-20 9.1400E-01 327.00 1.2000E-20 9.1800E-01 328.00 6.1700E-21 9.2000E-01 329.00 6.1700E-21 9.2000E-01 330.00 6.1700E-21 9.2000E-01 331.00 6.1700E-21 9.2000E-01 332.00 6.1700E-21 9.2000E-01 333.00 2.7400E-21 9.2000E-01 334.00 2.7400E-21 9.2000E-01 335.00 2.7400E-21 9.2000E-01 336.00 2.7400E-21 9.2000E-01 337.00 2.7400E-21 9.2000E-01 338.00 1.1700E-21 9.2000E-01 339.00 1.1700E-21 9.2000E-01 340.00 1.1700E-21 9.2000E-01 341.00 1.1700E-21 9.2000E-01 342.00 1.1700E-21 9.2000E-01 343.00 5.9000E-22 9.2000E-01 344.00 5.9000E-22 9.2000E-01 345.00 5.9000E-22 9.2000E-01 346.00 5.9000E-22 9.2000E-01 347.00 5.9000E-22 9.2000E-01 348.00 2.7000E-22 9.2000E-01 349.00 2.7000E-22 9.2000E-01 350.00 2.7000E-22 9.2000E-01 351.00 2.7000E-22 9.2000E-01 352.00 2.7000E-22 9.2000E-01 353.00 1.1000E-22 9.2000E-01 354.00 1.1000E-22 9.2000E-01 355.00 1.1000E-22 9.2000E-01 356.00 1.1000E-22 9.2000E-01 357.00 1.1000E-22 9.2000E-01 358.00 5.0000E-23 9.2000E-01 359.00 5.0000E-23 9.2000E-01 360.00 5.0000E-23 9.2000E-01 361.00 5.0000E-23 9.2000E-01 362.00 5.0000E-23 9.2000E-01 363.00 0.0000E+00 9.2000E-01 400.00 0.0000E+00 1.0000E+00 401.00 1.2000E-24 1.0000E+00 402.00 2.4000E-24 1.0000E+00 403.00 3.6000E-24 1.0000E+00 404.00 4.8000E-24 1.0000E+00 405.00 6.0000E-24 1.0000E+00 406.00 7.2000E-24 1.0000E+00 407.00 8.4000E-24 1.0000E+00 408.00 9.6000E-24 1.0000E+00 409.00 1.0800E-23 1.0000E+00 410.00 1.2000E-23 1.0000E+00 411.00 1.3000E-23 1.0000E+00 412.00 1.4000E-23 1.0000E+00 413.00 1.5000E-23 1.0000E+00 414.00 1.6000E-23 1.0000E+00 415.00 1.7000E-23 1.0000E+00 416.00 1.8000E-23 1.0000E+00 417.00 1.9000E-23 1.0000E+00 418.00 2.0000E-23 1.0000E+00 419.00 2.1000E-23 1.0000E+00 420.00 2.2000E-23 1.0000E+00 421.00 2.6500E-23 1.0000E+00 422.00 3.1000E-23 1.0000E+00 423.00 3.5500E-23 1.0000E+00 424.00 4.0000E-23 1.0000E+00 425.00 4.4500E-23 1.0000E+00 426.00 4.9000E-23 1.0000E+00 427.00 5.3500E-23 1.0000E+00 428.00 5.8000E-23 1.0000E+00 429.00 6.2500E-23 1.0000E+00 430.00 6.7000E-23 1.0000E+00 431.00 7.1500E-23 1.0000E+00 432.00 7.6000E-23 1.0000E+00 433.00 8.0500E-23 1.0000E+00 434.00 8.5000E-23 1.0000E+00 435.00 8.9500E-23 1.0000E+00 436.00 9.4000E-23 1.0000E+00 437.00 9.8500E-23 1.0000E+00 438.00 1.0300E-22 1.0000E+00 439.00 1.0750E-22 1.0000E+00 440.00 1.1200E-22 1.0000E+00 450.00 2.2000E-22 1.0000E+00 460.00 3.2800E-22 1.0000E+00 470.00 5.0600E-22 1.0000E+00 480.00 6.8400E-22 1.0000E+00 490.00 9.5200E-22 1.0000E+00 500.00 1.2200E-21 1.0000E+00 510.00 1.5200E-21 1.0000E+00 520.00 1.8200E-21 1.0000E+00 530.00 2.3650E-21 1.0000E+00 540.00 2.9100E-21 1.0000E+00 550.00 3.4250E-21 1.0000E+00 560.00 3.9400E-21 1.0000E+00 570.00 4.2650E-21 1.0000E+00 580.00 4.5900E-21 1.0000E+00 590.00 4.8500E-21 1.0000E+00 600.00 5.1100E-21 1.0000E+00 610.00 4.5550E-21 1.0000E+00 620.00 4.0000E-21 1.0000E+00 630.00 3.4800E-21 1.0000E+00 640.00 2.9600E-21 1.0000E+00 650.00 2.5250E-21 1.0000E+00 660.00 2.0900E-21 1.0000E+00 670.00 1.7250E-21 1.0000E+00 680.00 1.3600E-21 1.0000E+00 690.00 1.1350E-21 1.0000E+00 700.00 9.1000E-22 1.0000E+00 710.00 0.0000E-00 1.0000E+00 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/O3_O3P_IUPAC10 ================================================ O3_O3P_IUPAC10 ! j(O3_O3P) IUPAC(2010) ! O3 = O ! From IUPAC Subcommittee on Gas Kinetic Data Evaluation ! Data Sheet POx2, updated 2nd October, 2001 ! These are point values ! values below 280 nm from JPL2011 Begining (the mechanism evaluated with this format) !WL(nm) XSEC(cm2) QY FAC=1.0 121.6 2.990E-17 0.100 186.1 6.220E-19 0.100 187.8 5.760E-19 0.100 189.6 5.260E-19 0.100 191.4 4.770E-19 0.100 193.2 4.290E-19 0.100 195.1 3.850E-19 0.100 197.0 3.490E-19 0.100 199.0 3.240E-19 0.100 201.0 3.150E-19 0.100 203.1 3.260E-19 0.100 205.1 3.630E-19 0.100 207.3 4.330E-19 0.100 209.4 5.390E-19 0.100 211.6 6.930E-19 0.100 213.9 9.030E-19 0.100 216.2 1.180E-18 0.100 218.6 1.540E-18 0.100 221.0 1.990E-18 0.100 223.5 2.550E-18 0.100 226.0 3.220E-18 0.100 228.6 4.010E-18 0.100 231.2 4.900E-18 0.100 233.9 5.900E-18 0.100 236.7 6.930E-18 0.100 239.5 8.020E-18 0.100 242.4 9.080E-18 0.100 245.4 1.000E-17 0.100 248.5 1.080E-17 0.100 251.6 1.130E-17 0.100 254.8 1.150E-17 0.100 258.1 1.120E-17 0.100 261.4 1.060E-17 0.100 264.9 9.680E-18 0.100 268.5 8.400E-18 0.100 272.1 6.980E-18 0.100 275.9 5.470E-18 0.100 279.7 4.060E-18 0.100 280.0 4.020E-18 0.100 281.0 4.020E-18 0.100 282.0 2.770E-18 0.100 283.0 2.770E-18 0.100 284.0 2.770E-18 0.100 285.0 2.770E-18 0.100 286.0 1.790E-18 0.100 287.0 1.790E-18 0.100 288.0 1.790E-18 0.100 289.0 1.790E-18 0.100 290.0 1.090E-18 0.100 291.0 1.090E-18 0.100 292.0 1.090E-18 0.100 293.0 1.090E-18 0.100 294.0 1.090E-18 0.100 295.0 6.240E-19 0.100 296.0 6.240E-19 0.100 297.0 6.240E-19 0.100 298.0 6.240E-19 0.100 299.0 3.430E-19 0.100 300.0 3.430E-19 0.100 301.0 3.430E-19 0.100 302.0 3.430E-19 0.100 303.0 1.850E-19 0.100 304.0 1.850E-19 0.100 305.0 1.850E-19 0.100 306.0 1.850E-19 0.116 307.0 1.850E-19 0.138 308.0 9.800E-20 0.207 309.0 9.800E-20 0.329 310.0 9.800E-20 0.477 311.0 9.800E-20 0.606 312.0 9.800E-20 0.690 313.0 5.000E-20 0.735 314.0 5.000E-20 0.754 315.0 5.000E-20 0.761 316.0 5.000E-20 0.767 317.0 5.000E-20 0.778 318.0 2.490E-20 0.794 319.0 2.490E-20 0.813 320.0 2.490E-20 0.834 321.0 2.490E-20 0.854 322.0 2.490E-20 0.872 323.0 1.200E-20 0.887 324.0 1.200E-20 0.899 325.0 1.200E-20 0.908 326.0 1.200E-20 0.914 327.0 1.200E-20 0.918 328.0 6.170E-21 0.920 329.0 6.170E-21 0.920 330.0 6.170E-21 0.920 331.0 6.170E-21 0.920 332.0 6.170E-21 0.920 333.0 2.740E-21 0.920 334.0 2.740E-21 0.920 335.0 2.740E-21 0.920 336.0 2.740E-21 0.920 337.0 2.740E-21 0.920 338.0 1.170E-21 0.920 339.0 1.170E-21 0.920 340.0 1.170E-21 0.920 341.0 1.170E-21 0.920 342.0 1.170E-21 0.920 343.0 5.900E-22 0.920 344.0 5.900E-22 0.920 345.0 5.900E-22 0.920 346.0 5.900E-22 0.920 347.0 5.900E-22 0.920 348.0 2.700E-22 0.920 349.0 2.700E-22 0.920 350.0 2.700E-22 0.920 351.0 2.700E-22 0.920 352.0 2.700E-22 0.920 353.0 1.100E-22 0.920 354.0 1.100E-22 0.920 355.0 1.100E-22 0.920 356.0 1.100E-22 0.920 357.0 1.100E-22 0.920 358.0 5.000E-23 0.920 359.0 5.000E-23 0.920 360.0 5.000E-23 0.920 361.0 5.000E-23 0.920 362.0 5.000E-23 0.920 363.0 5.000E-23 0.920 364.0 5.000E-23 0.920 365.0 5.000E-23 0.920 366.0 0.000E+00 1.000 409.0 0.000E+00 1.000 410.0 1.200E-23 1.000 420.0 2.200E-23 1.000 440.0 1.120E-22 1.000 460.0 3.280E-22 1.000 480.0 6.840E-22 1.000 500.0 1.220E-21 1.000 520.0 1.820E-21 1.000 540.0 2.910E-21 1.000 560.0 3.940E-21 1.000 580.0 4.590E-21 1.000 600.0 5.110E-21 1.000 620.0 4.000E-21 1.000 640.0 2.960E-21 1.000 660.0 2.090E-21 1.000 680.0 1.360E-21 1.000 700.0 9.100E-22 1.000 701.0 0.000E+00 1.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/OIO_06 ================================================ OIO_06 ! OIO + HV = I + O2 ! OIO Photolysis data ! Supplied by Golam Sarwar ! Created from NASA/JPL dataset Points (these data can be treated as point values) ! With FAC, units are (cm^2/molecule) FAC=1.0 516.0 8.330E-18 1.000 517.0 6.960E-18 1.000 518.0 5.650E-18 1.000 519.0 5.990E-18 1.000 520.0 7.190E-18 1.000 521.0 6.260E-18 1.000 522.0 5.730E-18 1.000 523.0 5.170E-18 1.000 524.0 4.960E-18 1.000 525.0 5.340E-18 1.000 526.0 7.540E-18 1.000 527.0 8.400E-18 1.000 528.0 6.970E-18 1.000 529.0 6.260E-18 1.000 530.0 6.510E-18 1.000 531.0 9.890E-18 1.000 532.0 1.012E-17 1.000 533.0 7.790E-18 1.000 534.0 6.360E-18 1.000 535.0 5.190E-18 1.000 536.0 6.430E-18 1.000 537.0 7.090E-18 1.000 538.0 6.480E-18 1.000 539.0 5.480E-18 1.000 540.0 4.700E-18 1.000 541.0 4.510E-18 1.000 542.0 4.940E-18 1.000 543.0 7.150E-18 1.000 544.0 8.170E-18 1.000 545.0 6.760E-18 1.000 546.0 5.820E-18 1.000 547.0 5.130E-18 1.000 548.0 6.650E-18 1.000 549.0 1.030E-17 1.000 550.0 8.420E-18 1.000 551.0 5.750E-18 1.000 552.0 4.290E-18 1.000 553.0 3.770E-18 1.000 554.0 6.090E-18 1.000 555.0 6.610E-18 1.000 556.0 6.040E-18 1.000 557.0 4.740E-18 1.000 558.0 3.930E-18 1.000 559.0 3.730E-18 1.000 560.0 3.500E-18 1.000 561.0 4.760E-18 1.000 562.0 7.690E-18 1.000 563.0 7.090E-18 1.000 564.0 5.240E-18 1.000 565.0 4.420E-18 1.000 566.0 3.840E-18 1.000 567.0 6.130E-18 1.000 568.0 9.370E-18 1.000 569.0 6.990E-18 1.000 570.0 4.750E-18 1.000 571.0 3.220E-18 1.000 572.0 2.240E-18 1.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/ONIT_RACM2 ================================================ ONIT_RACM2 ! ONIT + HV = 0.20*ALD + 0.80*KET + HO2 + NO2 ! Absorption cross sections from Talukdar et al., 1997 ! Quantum yields ! Supplied by Dr. Wendy Goliff, reformatted by Dr. Golam Sarwar to make it compatible with CMAQ Points ! With FAC, units are (cm^2/molecule) FAC=1.0 186.1 0.000E+00 1.000 187.8 0.000E+00 1.000 189.6 0.000E+00 1.000 191.4 0.000E+00 1.000 193.3 0.000E+00 1.000 195.2 0.000E+00 1.000 197.1 0.000E+00 1.000 199.0 0.000E+00 1.000 201.0 0.000E+00 1.000 203.1 0.000E+00 1.000 205.2 0.000E+00 1.000 207.3 0.000E+00 1.000 209.4 0.000E+00 1.000 211.7 0.000E+00 1.000 213.9 0.000E+00 1.000 216.2 0.000E+00 1.000 218.6 0.000E+00 1.000 221.0 0.000E+00 1.000 223.5 0.000E+00 1.000 226.0 0.000E+00 1.000 228.6 0.000E+00 1.000 231.3 0.000E+00 1.000 234.0 0.000E+00 1.000 236.7 0.162E-18 1.000 239.6 0.114E-18 1.000 242.5 0.870E-19 1.000 245.4 0.702E-19 1.000 248.5 0.601E-19 1.000 251.6 0.562E-19 1.000 254.8 0.514E-19 1.000 258.2 0.494E-19 1.000 261.5 0.473E-19 1.000 265.0 0.448E-19 1.000 268.5 0.418E-19 1.000 272.2 0.384E-19 1.000 275.9 0.338E-19 1.000 279.8 0.290E-19 1.000 283.7 0.242E-19 1.000 287.8 0.194E-19 1.000 292.0 0.152E-19 1.000 296.3 0.112E-19 1.000 300.5 0.787E-20 1.000 303.0 0.633E-20 1.000 304.0 0.575E-20 1.000 305.0 0.525E-20 1.000 306.0 0.475E-20 1.000 307.0 0.432E-20 1.000 308.0 0.389E-20 1.000 309.0 0.352E-20 1.000 310.0 0.314E-20 1.000 311.0 0.280E-20 1.000 312.0 0.246E-20 1.000 313.0 0.221E-20 1.000 314.0 0.195E-20 1.000 316.0 0.154E-20 1.000 320.0 0.908E-21 1.000 325.0 0.450E-21 1.000 330.0 0.209E-21 1.000 335.0 0.960E-22 1.000 340.0 0.419E-22 1.000 345.0 0.184E-22 1.000 350.0 0.799E-23 1.000 355.0 0.294E-23 1.000 360.0 0.181E-23 1.000 365.0 0.000E+00 1.000 370.0 0.000E+00 1.000 375.0 0.000E+00 1.000 380.0 0.000E+00 1.000 385.0 0.000E+00 1.000 390.0 0.000E+00 1.000 395.0 0.000E+00 1.000 400.0 0.000E+00 1.000 405.0 0.000E+00 1.000 410.0 0.000E+00 1.000 415.0 0.000E+00 1.000 420.0 0.000E+00 1.000 425.0 0.000E+00 1.000 430.0 0.000E+00 1.000 435.0 0.000E+00 1.000 440.0 0.000E+00 1.000 445.0 0.000E+00 1.000 450.0 0.000E+00 1.000 455.0 0.000E+00 1.000 460.0 0.000E+00 1.000 465.0 0.000E+00 1.000 470.0 0.000E+00 1.000 475.0 0.000E+00 1.000 480.0 0.000E+00 1.000 485.0 0.000E+00 1.000 490.0 0.000E+00 1.000 495.0 0.000E+00 1.000 500.0 0.000E+00 1.000 505.0 0.000E+00 1.000 510.0 0.000E+00 1.000 515.0 0.000E+00 1.000 520.0 0.000E+00 1.000 525.0 0.000E+00 1.000 530.0 0.000E+00 1.000 535.0 0.000E+00 1.000 540.0 0.000E+00 1.000 545.0 0.000E+00 1.000 550.0 0.000E+00 1.000 555.0 0.000E+00 1.000 560.0 0.000E+00 1.000 565.0 0.000E+00 1.000 570.0 0.000E+00 1.000 575.0 0.000E+00 1.000 580.0 0.000E+00 1.000 585.0 0.000E+00 1.000 590.0 0.000E+00 1.000 595.0 0.000E+00 1.000 600.0 0.000E+00 1.000 605.0 0.000E+00 1.000 610.0 0.000E+00 1.000 615.0 0.000E+00 1.000 620.0 0.000E+00 1.000 625.0 0.000E+00 1.000 630.0 0.000E+00 1.000 635.0 0.000E+00 1.000 640.0 0.000E+00 1.000 644.8 0.000E+00 1.000 651.0 0.000E+00 1.000 660.0 0.000E+00 1.000 670.0 0.000E+00 1.000 680.0 0.000E+00 1.000 690.0 0.000E+00 1.000 700.0 0.000E+00 1.000 710.0 0.000E+00 1.000 720.0 0.000E+00 1.000 730.0 0.000E+00 1.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/OP1_RACM2 ================================================ OP1_RACM2 ! OP1 + HV = HO + HO2 + HCHO ! Absorption cross sections from NASA (2006) ! Quantum yields taken 1 ! Supplied by Dr. Wendy Goliff, reformatted by Dr. Golam Sarwar to make it compatible with CMAQ Points ! With FAC, units are (cm^2/molecule) FAC=1.0 186.1 0.000E+00 1.000 187.8 0.000E+00 1.000 189.6 0.000E+00 1.000 191.4 0.000E+00 1.000 193.3 0.000E+00 1.000 195.2 0.000E+00 1.000 197.1 0.000E+00 1.000 199.0 0.000E+00 1.000 201.0 0.000E+00 1.000 203.1 0.000E+00 1.000 205.2 0.000E+00 1.000 207.3 0.000E+00 1.000 209.4 0.320E-18 1.000 211.7 0.268E-18 1.000 213.9 0.226E-18 1.000 216.2 0.193E-18 1.000 218.6 0.167E-18 1.000 221.0 0.147E-18 1.000 223.5 0.129E-18 1.000 226.0 0.115E-18 1.000 228.6 0.102E-18 1.000 231.3 0.899E-19 1.000 234.0 0.797E-19 1.000 236.7 0.708E-19 1.000 239.6 0.623E-19 1.000 242.5 0.548E-19 1.000 245.4 0.483E-19 1.000 248.5 0.422E-19 1.000 251.6 0.369E-19 1.000 254.8 0.321E-19 1.000 258.2 0.278E-19 1.000 261.5 0.242E-19 1.000 265.0 0.209E-19 1.000 268.5 0.180E-19 1.000 272.2 0.154E-19 1.000 275.9 0.131E-19 1.000 279.8 0.111E-19 1.000 283.7 0.925E-20 1.000 287.8 0.763E-20 1.000 292.0 0.622E-20 1.000 296.3 0.501E-20 1.000 300.5 0.402E-20 1.000 303.0 0.352E-20 1.000 304.0 0.333E-20 1.000 305.0 0.316E-20 1.000 306.0 0.299E-20 1.000 307.0 0.283E-20 1.000 308.0 0.268E-20 1.000 309.0 0.254E-20 1.000 310.0 0.240E-20 1.000 311.0 0.227E-20 1.000 312.0 0.215E-20 1.000 313.0 0.204E-20 1.000 314.0 0.193E-20 1.000 316.0 0.172E-20 1.000 320.0 0.138E-20 1.000 325.0 0.105E-20 1.000 330.0 0.801E-21 1.000 335.0 0.612E-21 1.000 340.0 0.467E-21 1.000 345.0 0.356E-21 1.000 350.0 0.270E-21 1.000 355.0 0.206E-21 1.000 360.0 0.160E-21 1.000 365.0 0.000E+00 1.000 370.0 0.000E+00 1.000 375.0 0.000E+00 1.000 380.0 0.000E+00 1.000 385.0 0.000E+00 1.000 390.0 0.000E+00 1.000 395.0 0.000E+00 1.000 400.0 0.000E+00 1.000 405.0 0.000E+00 1.000 410.0 0.000E+00 1.000 415.0 0.000E+00 1.000 420.0 0.000E+00 1.000 425.0 0.000E+00 1.000 430.0 0.000E+00 1.000 435.0 0.000E+00 1.000 440.0 0.000E+00 1.000 445.0 0.000E+00 1.000 450.0 0.000E+00 1.000 455.0 0.000E+00 1.000 460.0 0.000E+00 1.000 465.0 0.000E+00 1.000 470.0 0.000E+00 1.000 475.0 0.000E+00 1.000 480.0 0.000E+00 1.000 485.0 0.000E+00 1.000 490.0 0.000E+00 1.000 495.0 0.000E+00 1.000 500.0 0.000E+00 1.000 505.0 0.000E+00 1.000 510.0 0.000E+00 1.000 515.0 0.000E+00 1.000 520.0 0.000E+00 1.000 525.0 0.000E+00 1.000 530.0 0.000E+00 1.000 535.0 0.000E+00 1.000 540.0 0.000E+00 1.000 545.0 0.000E+00 1.000 550.0 0.000E+00 1.000 555.0 0.000E+00 1.000 560.0 0.000E+00 1.000 565.0 0.000E+00 1.000 570.0 0.000E+00 1.000 575.0 0.000E+00 1.000 580.0 0.000E+00 1.000 585.0 0.000E+00 1.000 590.0 0.000E+00 1.000 595.0 0.000E+00 1.000 600.0 0.000E+00 1.000 605.0 0.000E+00 1.000 610.0 0.000E+00 1.000 615.0 0.000E+00 1.000 620.0 0.000E+00 1.000 625.0 0.000E+00 1.000 630.0 0.000E+00 1.000 635.0 0.000E+00 1.000 640.0 0.000E+00 1.000 644.8 0.000E+00 1.000 651.0 0.000E+00 1.000 660.0 0.000E+00 1.000 670.0 0.000E+00 1.000 680.0 0.000E+00 1.000 690.0 0.000E+00 1.000 700.0 0.000E+00 1.000 710.0 0.000E+00 1.000 720.0 0.000E+00 1.000 730.0 0.000E+00 1.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/ORGNIT_RADM88 ================================================ ORGNIT_RADM88 ! Organic Nitrate Photolysis (ORGNIT) ! CH3ONO2 + hv -> 0.2ALD + 0.8KET + HO2 + NO2 ! Abs CS from Calvert and Pitts [1966]; ! QY assumed to be unity over UV absorption range ! format: wl, abs_cs, qy Beginning ! With FAC, units are (cm^2/molecule) FAC=1.0 263.158 2.905E-20 1.000E+00 266.667 2.664E-20 1.000E+00 270.270 2.365E-20 1.000E+00 273.973 2.013E-20 1.000E+00 277.778 1.636E-20 1.000E+00 281.690 1.294E-20 1.000E+00 285.714 9.924E-21 1.000E+00 289.855 7.491E-21 1.000E+00 294.118 5.617E-21 1.000E+00 298.500 4.068E-21 1.000E+00 302.500 3.282E-21 1.000E+00 303.500 2.976E-21 1.000E+00 304.500 2.680E-21 1.000E+00 305.500 2.442E-21 1.000E+00 306.500 2.214E-21 1.000E+00 307.500 1.986E-21 1.000E+00 308.500 1.758E-21 1.000E+00 309.500 1.539E-21 1.000E+00 310.500 1.376E-21 1.000E+00 311.500 1.222E-21 1.000E+00 312.500 1.068E-21 1.000E+00 313.500 9.140E-22 1.000E+00 314.500 6.872E-22 1.000E+00 317.500 4.037E-22 1.000E+00 322.500 1.900E-22 1.000E+00 327.500 0.000E+00 1.000E+00 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/PAA ================================================ PAA ! Peroxy acetic acid absorption cross sections ! Orlando, J. J. and G. S. Tyndall (2003): "Gas phase UV absorption spectra ! for peracetic acid, and for acetic acid monomers and dimers," J. Photochem. ! Photobiol A, 157, 161-166. ! assumes a quantum of 1.0 Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 210.0 3.810E-19 1.0000 212.0 3.310E-19 1.0000 214.0 2.950E-19 1.0000 216.0 2.540E-19 1.0000 218.0 2.170E-19 1.0000 220.0 1.890E-19 1.0000 222.0 1.600E-19 1.0000 224.0 1.390E-19 1.0000 226.0 1.200E-19 1.0000 228.0 1.050E-19 1.0000 230.0 9.100E-20 1.0000 232.0 8.010E-20 1.0000 234.0 7.030E-20 1.0000 236.0 6.310E-20 1.0000 238.0 5.610E-20 1.0000 240.0 5.030E-20 1.0000 242.0 4.830E-20 1.0000 244.0 4.310E-20 1.0000 246.0 3.820E-20 1.0000 248.0 3.410E-20 1.0000 250.0 3.050E-20 1.0000 252.0 2.710E-20 1.0000 254.0 2.420E-20 1.0000 256.0 2.160E-20 1.0000 258.0 1.930E-20 1.0000 260.0 1.710E-20 1.0000 262.0 1.530E-20 1.0000 264.0 1.350E-20 1.0000 266.0 1.210E-20 1.0000 268.0 1.060E-20 1.0000 270.0 9.450E-21 1.0000 272.0 8.350E-21 1.0000 274.0 7.420E-21 1.0000 276.0 6.510E-21 1.0000 278.0 5.740E-21 1.0000 280.0 5.060E-21 1.0000 282.0 4.440E-21 1.0000 284.0 3.860E-21 1.0000 286.0 3.340E-21 1.0000 288.0 2.970E-21 1.0000 290.0 2.560E-21 1.0000 292.0 2.260E-21 1.0000 294.0 1.930E-21 1.0000 296.0 1.700E-21 1.0000 298.0 1.410E-21 1.0000 300.0 1.230E-21 1.0000 302.0 1.070E-21 1.0000 304.0 9.400E-22 1.0000 306.0 7.800E-22 1.0000 308.0 6.900E-22 1.0000 310.0 6.200E-22 1.0000 312.0 4.500E-22 1.0000 314.0 4.400E-22 1.0000 316.0 4.000E-22 1.0000 318.0 3.500E-22 1.0000 320.0 2.500E-22 1.0000 322.0 2.000E-22 1.0000 324.0 2.000E-22 1.0000 326.0 1.700E-22 1.0000 328.0 1.400E-22 1.0000 330.0 9.000E-23 1.0000 332.0 1.100E-22 1.0000 334.0 1.100E-22 1.0000 336.0 9.000E-23 1.0000 338.0 9.000E-23 1.0000 340.0 6.000E-23 1.0000 342.0 3.000E-23 1.0000 344.0 0.000E+00 1.0000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/PAA_RACM2 ================================================ PAA_RACM2 ! PAA + HV = HO + MO2 ! Absorption cross sections from NASA (2006) ! Quantum yields ! Supplied by Dr. Wendy Goliff, reformatted by Dr. Golam Sarwar to make it compatible with CMAQ Points ! With FAC, units are (cm^2/molecule) FAC=1.0 186.1 0.000E+00 1.000 187.8 0.000E+00 1.000 189.6 0.000E+00 1.000 191.4 0.000E+00 1.000 193.3 0.000E+00 1.000 195.2 0.000E+00 1.000 197.1 0.000E+00 1.000 199.0 0.000E+00 1.000 201.0 0.000E+00 1.000 203.1 0.000E+00 1.000 205.2 0.000E+00 1.000 207.3 0.000E+00 1.000 209.4 0.000E+00 1.000 211.7 0.331E-18 1.000 213.9 0.295E-18 1.000 216.2 0.254E-18 1.000 218.6 0.217E-18 1.000 221.0 0.175E-18 1.000 223.5 0.139E-18 1.000 226.0 0.120E-18 1.000 228.6 0.105E-18 1.000 231.3 0.856E-19 1.000 234.0 0.703E-19 1.000 236.7 0.596E-19 1.000 239.6 0.503E-19 1.000 242.5 0.483E-19 1.000 245.4 0.407E-19 1.000 248.5 0.422E-19 1.000 251.6 0.271E-19 1.000 254.8 0.229E-19 1.000 258.2 0.193E-19 1.000 261.5 0.153E-19 1.000 265.0 0.128E-19 1.000 268.5 0.103E-19 1.000 272.2 0.835E-20 1.000 275.9 0.651E-20 1.000 279.8 0.444E-20 1.000 283.7 0.386E-20 1.000 287.8 0.297E-20 1.000 292.0 0.226E-20 1.000 296.3 0.170E-20 1.000 300.5 0.119E-20 1.000 303.0 0.101E-20 1.000 304.0 0.940E-21 1.000 305.0 0.860E-21 1.000 306.0 0.780E-21 1.000 307.0 0.740E-21 1.000 308.0 0.690E-21 1.000 309.0 0.660E-21 1.000 310.0 0.620E-21 1.000 311.0 0.540E-21 1.000 312.0 0.450E-21 1.000 313.0 0.445E-21 1.000 314.0 0.440E-21 1.000 316.0 0.400E-21 1.000 320.0 0.250E-21 1.000 325.0 0.185E-21 1.000 330.0 0.900E-22 1.000 335.0 0.100E-21 1.000 340.0 0.600E-22 1.000 345.0 0.000E+00 1.000 350.0 0.000E+00 1.000 355.0 0.000E+00 1.000 360.0 0.000E+00 1.000 365.0 0.000E+00 1.000 370.0 0.000E+00 1.000 375.0 0.000E+00 1.000 380.0 0.000E+00 1.000 385.0 0.000E+00 1.000 390.0 0.000E+00 1.000 395.0 0.000E+00 1.000 400.0 0.000E+00 1.000 405.0 0.000E+00 1.000 410.0 0.000E+00 1.000 415.0 0.000E+00 1.000 420.0 0.000E+00 1.000 425.0 0.000E+00 1.000 430.0 0.000E+00 1.000 435.0 0.000E+00 1.000 440.0 0.000E+00 1.000 445.0 0.000E+00 1.000 450.0 0.000E+00 1.000 455.0 0.000E+00 1.000 460.0 0.000E+00 1.000 465.0 0.000E+00 1.000 470.0 0.000E+00 1.000 475.0 0.000E+00 1.000 480.0 0.000E+00 1.000 485.0 0.000E+00 1.000 490.0 0.000E+00 1.000 495.0 0.000E+00 1.000 500.0 0.000E+00 1.000 505.0 0.000E+00 1.000 510.0 0.000E+00 1.000 515.0 0.000E+00 1.000 520.0 0.000E+00 1.000 525.0 0.000E+00 1.000 530.0 0.000E+00 1.000 535.0 0.000E+00 1.000 540.0 0.000E+00 1.000 545.0 0.000E+00 1.000 550.0 0.000E+00 1.000 555.0 0.000E+00 1.000 560.0 0.000E+00 1.000 565.0 0.000E+00 1.000 570.0 0.000E+00 1.000 575.0 0.000E+00 1.000 580.0 0.000E+00 1.000 585.0 0.000E+00 1.000 590.0 0.000E+00 1.000 595.0 0.000E+00 1.000 600.0 0.000E+00 1.000 605.0 0.000E+00 1.000 610.0 0.000E+00 1.000 615.0 0.000E+00 1.000 620.0 0.000E+00 1.000 625.0 0.000E+00 1.000 630.0 0.000E+00 1.000 635.0 0.000E+00 1.000 640.0 0.000E+00 1.000 644.8 0.000E+00 1.000 651.0 0.000E+00 1.000 660.0 0.000E+00 1.000 670.0 0.000E+00 1.000 680.0 0.000E+00 1.000 690.0 0.000E+00 1.000 700.0 0.000E+00 1.000 710.0 0.000E+00 1.000 720.0 0.000E+00 1.000 730.0 0.000E+00 1.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/PAA_RADM88 ================================================ PAA_RADM88 ! Peroxyacetic Acid Photolysis (PAA) ! PAA + hv -> MO2 + CO2 + OH ! Abs. CS avg of Lin et al. [1978] and Molina and Molina [1981] times 0.28; ! QY assumed to be unity over UV absorption range ! format: wl, abs_cs, qy Beginning ! With FAC, units are (cm^2/molecule) FAC=0.28 190.476 3.207E-19 1.000E+00 192.308 3.003E-19 1.000E+00 194.175 2.801E-19 1.000E+00 196.078 5.272E-19 1.000E+00 198.020 4.925E-19 1.000E+00 200.000 4.615E-19 1.000E+00 202.020 4.341E-19 1.000E+00 204.082 4.068E-19 1.000E+00 206.186 3.816E-19 1.000E+00 208.333 3.563E-19 1.000E+00 210.526 3.329E-19 1.000E+00 212.766 3.100E-19 1.000E+00 215.054 2.881E-19 1.000E+00 217.391 2.671E-19 1.000E+00 219.780 2.463E-19 1.000E+00 222.222 2.260E-19 1.000E+00 224.719 2.066E-19 1.000E+00 227.273 1.888E-19 1.000E+00 229.885 1.714E-19 1.000E+00 232.558 1.547E-19 1.000E+00 235.294 1.392E-19 1.000E+00 238.095 1.246E-19 1.000E+00 240.964 1.116E-19 1.000E+00 243.902 9.925E-20 1.000E+00 246.914 8.805E-20 1.000E+00 250.000 7.761E-20 1.000E+00 253.165 6.782E-20 1.000E+00 256.410 5.796E-20 1.000E+00 259.740 4.920E-20 1.000E+00 263.158 4.207E-20 1.000E+00 266.667 3.539E-20 1.000E+00 270.270 2.960E-20 1.000E+00 273.973 2.463E-20 1.000E+00 277.778 2.021E-20 1.000E+00 281.690 1.613E-20 1.000E+00 285.714 1.288E-20 1.000E+00 289.855 1.030E-20 1.000E+00 294.118 8.164E-21 1.000E+00 298.500 6.467E-21 1.000E+00 302.500 5.595E-21 1.000E+00 303.500 5.255E-21 1.000E+00 304.500 4.929E-21 1.000E+00 305.500 4.686E-21 1.000E+00 306.500 4.457E-21 1.000E+00 307.500 4.228E-21 1.000E+00 308.500 3.999E-21 1.000E+00 309.500 3.774E-21 1.000E+00 310.500 3.576E-21 1.000E+00 311.500 3.382E-21 1.000E+00 312.500 3.188E-21 1.000E+00 313.500 2.994E-21 1.000E+00 314.500 2.652E-21 1.000E+00 317.500 2.075E-21 1.000E+00 322.500 1.528E-21 1.000E+00 327.500 1.186E-21 1.000E+00 332.500 9.363E-22 1.000E+00 337.500 6.863E-22 1.000E+00 342.500 5.031E-22 1.000E+00 347.500 3.250E-22 1.000E+00 352.500 0.000E+00 1.000E+00 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/PACD_CB05 ================================================ PACD_CB05 ! PACD + HV = MEO2 + OH ! CB05 Photolysis data for PACD ! Supplied by Greg Yarwood, 11/16/2007 ! Ref: Gigure, P. A. and A. W. Olmos. Sur le spectre ultraviolet !de l'acide peractique et l'hydrolyse des peractates. Can. J. Chem., 34, 689-691, 1956. ! below 280 nm ! Orlando, J. J. and G. S. Tyndall (2003): "Gas phase UV absorption spectra ! for peracetic acid, and for acetic acid monomers and dimers," J. Photochem. ! Photobiol A, 157, 161-166. ! assumes a quantum of 1.0 Points ! With FAC, units are (cm^2/molecule) FAC=1.0 210.0 3.810E-19 1.0000 212.0 3.310E-19 1.0000 214.0 2.950E-19 1.0000 216.0 2.540E-19 1.0000 218.0 2.170E-19 1.0000 220.0 1.890E-19 1.0000 222.0 1.600E-19 1.0000 224.0 1.390E-19 1.0000 226.0 1.200E-19 1.0000 228.0 1.050E-19 1.0000 230.0 9.100E-20 1.0000 232.0 8.010E-20 1.0000 234.0 7.030E-20 1.0000 236.0 6.310E-20 1.0000 238.0 5.610E-20 1.0000 240.0 5.030E-20 1.0000 242.0 4.830E-20 1.0000 244.0 4.310E-20 1.0000 246.0 3.820E-20 1.0000 248.0 3.410E-20 1.0000 250.0 3.050E-20 1.0000 252.0 2.710E-20 1.0000 254.0 2.420E-20 1.0000 256.0 2.160E-20 1.0000 258.0 1.930E-20 1.0000 260.0 1.710E-20 1.0000 262.0 1.530E-20 1.0000 264.0 1.350E-20 1.0000 266.0 1.210E-20 1.0000 268.0 1.060E-20 1.0000 270.0 9.450E-21 1.0000 272.0 8.350E-21 1.0000 274.0 7.420E-21 1.0000 276.0 6.510E-21 1.0000 278.0 5.740E-21 1.0000 280.0 2.140E-21 1.000 290.0 1.020E-21 1.000 300.0 4.900E-22 1.000 310.0 2.350E-22 1.000 320.0 1.070E-22 1.000 330.0 4.900E-23 1.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/PAN ================================================ PAN ! PAN + HV = #.6 {MECO3 + NO2} + #.4 {MEO2 + CO2 + NO3} ! IUPAC Data Sheet P21.updated: 12/19/05 ! Reaction reflects recommended quantum yields at 308 nm ! Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 196.0 4.290E-18 1.000 198.0 3.980E-18 1.000 200.0 3.610E-18 1.000 202.0 3.250E-18 1.000 204.0 2.920E-18 1.000 206.0 2.610E-18 1.000 208.0 2.260E-18 1.000 210.0 1.960E-18 1.000 212.0 1.680E-18 1.000 214.0 1.430E-18 1.000 216.0 1.220E-18 1.000 218.0 1.040E-18 1.000 220.0 8.970E-19 1.000 222.0 7.770E-19 1.000 224.0 6.760E-19 1.000 226.0 5.930E-19 1.000 228.0 5.200E-19 1.000 230.0 4.580E-19 1.000 232.0 4.040E-19 1.000 234.0 3.550E-19 1.000 236.0 3.140E-19 1.000 238.0 2.790E-19 1.000 240.0 2.440E-19 1.000 242.0 2.150E-19 1.000 244.0 1.880E-19 1.000 246.0 1.660E-19 1.000 248.0 1.460E-19 1.000 250.0 1.290E-19 1.000 252.0 1.140E-19 1.000 254.0 1.000E-19 1.000 256.0 8.860E-20 1.000 258.0 7.800E-20 1.000 260.0 6.850E-20 1.000 262.0 6.010E-20 1.000 264.0 5.230E-20 1.000 266.0 4.540E-20 1.000 268.0 3.940E-20 1.000 270.0 3.370E-20 1.000 272.0 2.870E-20 1.000 274.0 2.450E-20 1.000 276.0 2.070E-20 1.000 278.0 1.740E-20 1.000 280.0 1.460E-20 1.0000 282.0 1.210E-20 1.0000 284.0 1.010E-20 1.0000 286.0 8.100E-21 1.0000 288.0 6.480E-21 1.0000 290.0 5.370E-21 1.0000 292.0 4.470E-21 1.0000 294.0 3.690E-21 1.0000 296.0 2.970E-21 1.0000 298.0 2.450E-21 1.0000 300.0 1.890E-21 1.0000 302.0 1.520E-21 1.0000 304.0 1.250E-21 1.0000 306.0 9.980E-22 1.0000 308.0 8.160E-22 1.0000 310.0 6.660E-22 1.0000 312.0 5.380E-22 1.0000 314.0 4.620E-22 1.0000 316.0 3.630E-22 1.0000 318.0 3.000E-22 1.0000 320.0 2.520E-22 1.0000 322.0 1.990E-22 1.0000 324.0 1.660E-22 1.0000 326.0 1.400E-22 1.0000 328.0 1.170E-22 1.0000 330.0 1.060E-22 1.0000 332.0 8.570E-23 1.0000 334.0 6.760E-23 1.0000 336.0 6.150E-23 1.0000 338.0 5.260E-23 1.0000 340.0 5.020E-23 1.0000 342.0 3.600E-23 1.0000 344.0 2.410E-23 1.0000 346.0 2.310E-23 1.0000 348.0 2.470E-23 1.0000 350.0 1.650E-23 1.0000 354.0 0.000E+00 1.0000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/PAN1_RACM2 ================================================ PAN1_RACM2 ! PAN + HV = ACO3 + NO2 ! Absorption cross sections from JPL 2006 ! Quantum yields ! Supplied by Dr. Wendy Goliff, reformatted by Dr. Golam Sarwar to make it compatible with CMAQ Points ! With FAC, units are (cm^2/molecule) FAC=1.0 186.1 0.000E+00 0.800 187.8 0.000E+00 0.800 189.6 0.000E+00 0.800 191.4 0.000E+00 0.800 193.3 0.000E+00 0.800 195.2 0.000E+00 0.800 197.1 0.412E-17 0.800 199.0 0.380E-17 0.800 201.0 0.343E-17 0.800 203.1 0.307E-17 0.800 205.2 0.273E-17 0.800 207.3 0.238E-17 0.800 209.4 0.205E-17 0.800 211.7 0.172E-17 0.800 213.9 0.144E-17 0.800 216.2 0.120E-17 0.800 218.6 0.997E-18 0.800 221.0 0.837E-18 0.800 223.5 0.701E-18 0.800 226.0 0.593E-18 0.800 228.6 0.501E-18 0.800 231.3 0.423E-18 0.800 234.0 0.355E-18 0.800 236.7 0.302E-18 0.800 239.6 0.251E-18 0.800 242.5 0.208E-18 0.800 245.4 0.173E-18 0.800 248.5 0.142E-18 0.800 251.6 0.117E-18 0.800 254.8 0.954E-19 0.800 258.2 0.771E-19 0.800 261.5 0.622E-19 0.800 265.0 0.489E-19 0.800 268.5 0.380E-19 0.800 272.2 0.282E-19 0.800 275.9 0.209E-19 0.800 279.8 0.149E-19 0.800 283.7 0.104E-19 0.800 287.8 0.664E-20 0.800 292.0 0.447E-20 0.800 296.3 0.289E-20 0.800 300.5 0.180E-20 0.800 303.0 0.139E-20 0.800 304.0 0.125E-20 0.800 305.0 0.112E-20 0.800 306.0 0.998E-21 0.800 307.0 0.907E-21 0.800 308.0 0.816E-21 0.800 309.0 0.741E-21 0.800 310.0 0.666E-21 0.600 311.0 0.602E-21 0.600 312.0 0.538E-21 0.600 313.0 0.500E-21 0.600 314.0 0.462E-21 0.600 316.0 0.363E-21 0.600 320.0 0.252E-21 0.600 325.0 0.153E-21 0.600 330.0 0.106E-21 0.600 335.0 0.646E-22 0.600 340.0 0.502E-22 0.600 345.0 0.236E-22 0.600 350.0 0.165E-22 0.600 355.0 0.000E+00 0.600 360.0 0.000E+00 0.600 365.0 0.000E+00 0.600 370.0 0.000E+00 0.600 375.0 0.000E+00 0.600 380.0 0.000E+00 0.600 385.0 0.000E+00 0.600 390.0 0.000E+00 0.600 395.0 0.000E+00 0.600 400.0 0.000E+00 0.600 405.0 0.000E+00 0.600 410.0 0.000E+00 0.600 415.0 0.000E+00 0.600 420.0 0.000E+00 0.600 425.0 0.000E+00 0.600 430.0 0.000E+00 0.600 435.0 0.000E+00 0.600 440.0 0.000E+00 0.600 445.0 0.000E+00 0.600 450.0 0.000E+00 0.600 455.0 0.000E+00 0.600 460.0 0.000E+00 0.600 465.0 0.000E+00 0.600 470.0 0.000E+00 0.600 475.0 0.000E+00 0.600 480.0 0.000E+00 0.600 485.0 0.000E+00 0.600 490.0 0.000E+00 0.600 495.0 0.000E+00 0.600 500.0 0.000E+00 0.600 505.0 0.000E+00 0.600 510.0 0.000E+00 0.600 515.0 0.000E+00 0.600 520.0 0.000E+00 0.600 525.0 0.000E+00 0.600 530.0 0.000E+00 0.600 535.0 0.000E+00 0.600 540.0 0.000E+00 0.600 545.0 0.000E+00 0.600 550.0 0.000E+00 0.600 555.0 0.000E+00 0.600 560.0 0.000E+00 0.600 565.0 0.000E+00 0.600 570.0 0.000E+00 0.600 575.0 0.000E+00 0.600 580.0 0.000E+00 0.600 585.0 0.000E+00 0.600 590.0 0.000E+00 0.600 595.0 0.000E+00 0.600 600.0 0.000E+00 0.600 605.0 0.000E+00 0.600 610.0 0.000E+00 0.600 615.0 0.000E+00 0.600 620.0 0.000E+00 0.600 625.0 0.000E+00 0.600 630.0 0.000E+00 0.600 635.0 0.000E+00 0.600 640.0 0.000E+00 0.600 644.8 0.000E+00 0.600 651.0 0.000E+00 0.600 660.0 0.000E+00 0.600 670.0 0.000E+00 0.600 680.0 0.000E+00 0.600 690.0 0.000E+00 0.600 700.0 0.000E+00 0.600 710.0 0.000E+00 0.600 720.0 0.000E+00 0.600 730.0 0.000E+00 0.600 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/PAN2_RACM2 ================================================ PAN2_RACM2 ! PAN + HV = MO2 + NO3 ! Absorption cross sections from JPL 2006 ! Quantum yields ! Supplied by Dr. Wendy Goliff, reformatted by Dr. Golam Sarwar to make it compatible with CMAQ Points ! With FAC, units are (cm^2/molecule) FAC=1.0 186.1 0.000E+00 0.200 187.8 0.000E+00 0.200 189.6 0.000E+00 0.200 191.4 0.000E+00 0.200 193.3 0.000E+00 0.200 195.2 0.000E+00 0.200 197.1 0.412E-17 0.200 199.0 0.380E-17 0.200 201.0 0.343E-17 0.200 203.1 0.307E-17 0.200 205.2 0.273E-17 0.200 207.3 0.238E-17 0.200 209.4 0.205E-17 0.200 211.7 0.172E-17 0.200 213.9 0.144E-17 0.200 216.2 0.120E-17 0.200 218.6 0.997E-18 0.200 221.0 0.837E-18 0.200 223.5 0.701E-18 0.200 226.0 0.593E-18 0.200 228.6 0.501E-18 0.200 231.3 0.423E-18 0.200 234.0 0.355E-18 0.200 236.7 0.302E-18 0.200 239.6 0.251E-18 0.200 242.5 0.208E-18 0.200 245.4 0.173E-18 0.200 248.5 0.142E-18 0.200 251.6 0.117E-18 0.200 254.8 0.954E-19 0.200 258.2 0.771E-19 0.200 261.5 0.622E-19 0.200 265.0 0.489E-19 0.200 268.5 0.380E-19 0.200 272.2 0.282E-19 0.200 275.9 0.209E-19 0.200 279.8 0.149E-19 0.200 283.7 0.104E-19 0.200 287.8 0.664E-20 0.200 292.0 0.447E-20 0.200 296.3 0.289E-20 0.200 300.5 0.180E-20 0.200 303.0 0.139E-20 0.200 304.0 0.125E-20 0.200 305.0 0.112E-20 0.200 306.0 0.998E-21 0.200 307.0 0.907E-21 0.200 308.0 0.816E-21 0.200 309.0 0.741E-21 0.200 310.0 0.666E-21 0.400 311.0 0.602E-21 0.400 312.0 0.538E-21 0.400 313.0 0.500E-21 0.400 314.0 0.462E-21 0.400 316.0 0.363E-21 0.400 320.0 0.252E-21 0.400 325.0 0.153E-21 0.400 330.0 0.106E-21 0.400 335.0 0.646E-22 0.400 340.0 0.502E-22 0.400 345.0 0.236E-22 0.400 350.0 0.165E-22 0.400 355.0 0.000E+00 0.400 360.0 0.000E+00 0.400 365.0 0.000E+00 0.400 370.0 0.000E+00 0.400 375.0 0.000E+00 0.400 380.0 0.000E+00 0.400 385.0 0.000E+00 0.400 390.0 0.000E+00 0.400 395.0 0.000E+00 0.400 400.0 0.000E+00 0.400 405.0 0.000E+00 0.400 410.0 0.000E+00 0.400 415.0 0.000E+00 0.400 420.0 0.000E+00 0.400 425.0 0.000E+00 0.400 430.0 0.000E+00 0.400 435.0 0.000E+00 0.400 440.0 0.000E+00 0.400 445.0 0.000E+00 0.400 450.0 0.000E+00 0.400 455.0 0.000E+00 0.400 460.0 0.000E+00 0.400 465.0 0.000E+00 0.400 470.0 0.000E+00 0.400 475.0 0.000E+00 0.400 480.0 0.000E+00 0.400 485.0 0.000E+00 0.400 490.0 0.000E+00 0.400 495.0 0.000E+00 0.400 500.0 0.000E+00 0.400 505.0 0.000E+00 0.400 510.0 0.000E+00 0.400 515.0 0.000E+00 0.400 520.0 0.000E+00 0.400 525.0 0.000E+00 0.400 530.0 0.000E+00 0.400 535.0 0.000E+00 0.400 540.0 0.000E+00 0.400 545.0 0.000E+00 0.400 550.0 0.000E+00 0.400 555.0 0.000E+00 0.400 560.0 0.000E+00 0.400 565.0 0.000E+00 0.400 570.0 0.000E+00 0.400 575.0 0.000E+00 0.400 580.0 0.000E+00 0.400 585.0 0.000E+00 0.400 590.0 0.000E+00 0.400 595.0 0.000E+00 0.400 600.0 0.000E+00 0.400 605.0 0.000E+00 0.400 610.0 0.000E+00 0.400 615.0 0.000E+00 0.400 620.0 0.000E+00 0.400 625.0 0.000E+00 0.400 630.0 0.000E+00 0.400 635.0 0.000E+00 0.400 640.0 0.000E+00 0.400 644.8 0.000E+00 0.400 651.0 0.000E+00 0.400 660.0 0.000E+00 0.400 670.0 0.000E+00 0.400 680.0 0.000E+00 0.400 690.0 0.000E+00 0.400 700.0 0.000E+00 0.400 710.0 0.000E+00 0.400 720.0 0.000E+00 0.400 730.0 0.000E+00 0.400 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/PAN_IUPAC04 ================================================ PAN_IUPAC04 !CH3C(O)OONO2 + HV = CH3C(O)OO + NO2 ! From IUPAC Subcommittee on Gas Kinetic Data Evaluation ! Data Sheet P21_CH3C(O)OONO2+hv, updated 16th July 2001 ! Website: http://www.iupac-kinetic.ch.cam.ac.uk/ POINT (These are point values) ! With FAC, units are (cm^2/molecule) FAC=1.0 196.0 4.290E-18 1.000 198.0 3.980E-18 1.000 200.0 3.610E-18 1.000 202.0 3.250E-18 1.000 204.0 2.920E-18 1.000 206.0 2.610E-18 1.000 208.0 2.260E-18 1.000 210.0 1.960E-18 1.000 212.0 1.680E-18 1.000 214.0 1.430E-18 1.000 216.0 1.220E-18 1.000 218.0 1.040E-18 1.000 220.0 8.970E-19 1.000 222.0 7.770E-19 1.000 224.0 6.760E-19 1.000 226.0 5.930E-19 1.000 228.0 5.200E-19 1.000 230.0 4.580E-19 1.000 232.0 4.040E-19 1.000 234.0 3.550E-19 1.000 236.0 3.140E-19 1.000 238.0 2.790E-19 1.000 240.0 2.440E-19 1.000 242.0 2.150E-19 1.000 244.0 1.880E-19 1.000 246.0 1.660E-19 1.000 248.0 1.460E-19 1.000 250.0 1.290E-19 1.000 252.0 1.140E-19 1.000 254.0 1.000E-19 1.000 256.0 8.860E-20 1.000 258.0 7.800E-20 1.000 260.0 6.850E-20 1.000 262.0 6.010E-20 1.000 264.0 5.230E-20 1.000 266.0 4.540E-20 1.000 268.0 3.940E-20 1.000 270.0 3.370E-20 1.000 272.0 2.870E-20 1.000 274.0 2.450E-20 1.000 276.0 2.070E-20 1.000 278.0 1.740E-20 1.000 280.0 1.460E-20 1.0 282.0 1.210E-20 1.0 284.0 1.010E-20 1.0 286.0 8.100E-21 1.0 288.0 6.480E-21 1.0 290.0 5.370E-21 1.0 292.0 4.470E-21 1.0 294.0 3.690E-21 1.0 296.0 2.970E-21 1.0 298.0 2.450E-21 1.0 300.0 1.890E-21 1.0 302.0 1.520E-21 1.0 304.0 1.250E-21 1.0 306.0 9.980E-22 1.0 308.0 8.160E-22 1.0 310.0 6.660E-22 1.0 312.0 5.380E-22 1.0 314.0 4.620E-22 1.0 316.0 3.630E-22 1.0 318.0 3.000E-22 1.0 320.0 2.520E-22 1.0 322.0 1.990E-22 1.0 324.0 1.660E-22 1.0 326.0 1.400E-22 1.0 328.0 1.170E-22 1.0 330.0 1.060E-22 1.0 332.0 8.570E-23 1.0 334.0 6.760E-23 1.0 336.0 6.150E-23 1.0 338.0 5.260E-23 1.0 340.0 5.020E-23 1.0 342.0 3.600E-23 1.0 344.0 2.410E-23 1.0 346.0 2.310E-23 1.0 348.0 2.470E-23 1.0 350.0 1.650E-23 1.0 351.0 0.0 1.0 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/PAN_IUPAC10 ================================================ PAN_IUPAC10 ! j(PAN) IUPAC(2010) ! PAN = NO2 + C2O3 ! From IUPAC Subcommittee on Gas Kinetic Data Evaluation ! Data Sheet P21, updated 19th Dec, 2005 ! These are point values Begining (the mechanism evaluated with this format) !WL(nm) XSEC(cm2) QY FAC=1.0 196.0 4.290E-18 1.000 198.0 3.980E-18 1.000 200.0 3.610E-18 1.000 202.0 3.250E-18 1.000 204.0 2.920E-18 1.000 206.0 2.610E-18 1.000 208.0 2.260E-18 1.000 210.0 1.960E-18 1.000 212.0 1.680E-18 1.000 214.0 1.430E-18 1.000 216.0 1.220E-18 1.000 218.0 1.040E-18 1.000 220.0 8.970E-19 1.000 222.0 7.770E-19 1.000 224.0 6.760E-19 1.000 226.0 5.930E-19 1.000 228.0 5.200E-19 1.000 230.0 4.580E-19 1.000 232.0 4.040E-19 1.000 234.0 3.550E-19 1.000 236.0 3.140E-19 1.000 238.0 2.790E-19 1.000 240.0 2.440E-19 1.000 242.0 2.150E-19 1.000 244.0 1.880E-19 1.000 246.0 1.660E-19 1.000 248.0 1.460E-19 1.000 250.0 1.290E-19 1.000 252.0 1.140E-19 1.000 254.0 1.000E-19 1.000 256.0 8.860E-20 1.000 258.0 7.800E-20 1.000 260.0 6.850E-20 1.000 262.0 6.010E-20 1.000 264.0 5.230E-20 1.000 266.0 4.540E-20 1.000 268.0 3.940E-20 1.000 270.0 3.370E-20 1.000 272.0 2.870E-20 1.000 274.0 2.450E-20 1.000 276.0 2.070E-20 1.000 278.0 1.740E-20 1.000 280.0 1.460E-20 1.000 282.0 1.210E-20 1.000 284.0 1.010E-20 1.000 286.0 8.100E-21 1.000 288.0 6.480E-21 1.000 290.0 5.370E-21 1.000 292.0 4.470E-21 1.000 294.0 3.690E-21 1.000 296.0 2.970E-21 1.000 298.0 2.450E-21 1.000 300.0 1.890E-21 1.000 302.0 1.520E-21 1.000 304.0 1.250E-21 1.000 306.0 9.980E-22 1.000 308.0 8.160E-22 1.000 310.0 6.660E-22 1.000 312.0 5.380E-22 1.000 314.0 4.620E-22 1.000 316.0 3.630E-22 1.000 318.0 3.000E-22 1.000 320.0 2.520E-22 1.000 322.0 1.990E-22 1.000 324.0 1.660E-22 1.000 326.0 1.400E-22 1.000 328.0 1.170E-22 1.000 330.0 1.060E-22 1.000 332.0 8.570E-23 1.000 334.0 6.760E-23 1.000 336.0 6.150E-23 1.000 338.0 5.260E-23 1.000 340.0 5.020E-23 1.000 342.0 3.600E-23 1.000 344.0 2.410E-23 1.000 346.0 2.310E-23 1.000 348.0 2.470E-23 1.000 350.0 1.650E-23 1.000 351.0 0.000E+00 1.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/PNA_IUPAC10 ================================================ PNA_IUPAC10 ! j(PNA) IUPAC(2010) ! PNA = 0.61 HO2 + 0.61 NO2 + 0.39 OH + 0.39 NO3 ! From IUPAC Subcommittee on Gas Kinetic Data Evaluation ! Data Sheet PNxO3, updated 16th Jul, 2001 ! These are point values Begining (the mechanism evaluated with this format) !WL(nm) XSEC(cm2) QY FAC=1.0 190.0 1.01e-17 1.000 195.0 8.16e-18 1.000 200.0 5.63e-18 1.000 205.0 3.67e-18 1.000 210.0 2.39e-18 1.000 215.0 1.61e-18 1.000 220.0 1.18e-18 1.000 225.0 9.32e-19 1.000 230.0 7.88e-19 1.000 235.0 6.80e-19 1.000 240.0 5.79e-19 1.000 245.0 4.97e-19 1.000 250.0 4.11e-19 1.000 255.0 3.49e-19 1.000 260.0 2.84e-19 1.000 265.0 2.29e-19 1.000 270.0 1.80e-19 1.000 275.0 1.33e-19 1.000 280.0 9.30e-20 1.000 285.0 6.20e-20 1.000 290.0 3.90e-20 1.000 295.0 2.40e-20 1.000 300.0 1.40e-20 1.000 305.0 8.50e-21 1.000 310.0 5.30e-21 1.000 315.0 3.90e-21 1.000 320.0 2.40e-21 1.000 325.0 1.50e-21 1.000 330.0 9.00e-22 1.000 331.0 0.000000 0.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/PROPANAL_IUPAC ================================================ PROPANAL_IUPAC !Propionaldehyde + HV = C2H5. + CHO. ! From IUPAC Subcommittee on Gas Kinetic Data Evaluation ! Data Sheet Propiopnaldehyde+hv, updated 17th Feb 2005 ! Website: http://www.iupac-kinetic.ch.cam.ac.uk/ ! IUPAC did not recommend quantum yields, values taken from ! Jaoui and Kamens (2003), Atm. Env., vol 37(13), 1835-1851. Points (!These are point values) ! With FAC, units are (cm^2/molecule) FAC=1.0 277.5 1.22E-19 0.4000 282.5 1.30E-19 0.4000 287.5 1.35E-19 0.4000 292.5 1.29E-19 0.4000 297.5 1.22E-19 0.4000 302.5 1.06E-19 0.4000 307.5 8.94E-20 0.4000 312.5 6.84E-20 0.4000 317.5 4.90E-20 0.4000 322.5 3.07E-20 0.4000 327.5 1.72E-20 0.4000 332.5 0.72E-20 0.4000 337.5 0.29E-20 0.4000 342.5 0.08E-20 0.4000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/PROPANAL_IUPAC_1st_try ================================================ PROPANAL_IUPAC !Propionaldehyde + HV = C2H5. + CHO. ! From IUPAC Subcommittee on Gas Kinetic Data Evaluation ! Data Sheet Propiopnaldehyde+hv, updated 17th Feb 2005 ! Website: http://www.iupac-kinetic.ch.cam.ac.uk/ ! IUPAC did not recommend quantum yields, values taken from ! Jaoui and Kamens (2003), Atm. Env., vol 37(13), 1835-1851. Points (!These are point values) ! With FAC, units are (cm^2/molecule) FAC=1.0 277.5 1.22E-19 0.4000 282.5 1.30E-19 0.4000 287.5 1.35E-19 0.4000 292.5 1.29E-19 0.4000 297.5 1.22E-19 0.4000 302.5 1.06E-19 0.4000 307.5 8.94E-20 0.4000 312.5 6.84E-20 0.4000 317.5 4.90E-20 0.4000 322.5 3.07E-20 0.4000 327.5 1.72E-20 0.4000 332.5 0.72E-20 0.4000 337.5 0.29E-20 0.4000 342.5 0.08E-20 0.4000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/PROPNN_RACM2 ================================================ PROPNN_RACM2 ! PROPNN + hv = NO2 + HCHO j(noa1) ! nitrooxy-acetone (NOA) photolysis quantum yields ! cross section based on Roberts and Fajer (1989). ! Mller et al. 2014 define the cross-section enhancement rnk of a carbonyl nitrate(Fig.1) ! quantum yield based on Mller (2014). ! They estimate the average quantum yield to be 0.9 for NOA (no2 here) ! and 0.75 for 3-nitrooxy-2-butanone (MVKN) (noa2 "here)," with an estimated error of ca. 0.2. ! The value of 0.9 is a factor of 4 higher than the MCMv3.2 averaged quantum yiel for "NOA, ! Made by Azimeh Zare Points (the mechanism evaluated with this format) ! With "FAC," units are (cm^2/molecule) FAC=1.0 !NOA !rnk1 245 2.29E-19 0.94 !2.29E-19 1 250 1.47E-19 0.94 !1.47E-19 1 255 1.07E-19 0.94 !1.07E-19 1 260 8.53E-20 0.94 !8.53E-20 1 265 7.63E-20 0.92 !7.63E-20 1 270 1.09E-19 0.9 !7.29E-20 1.5 275 1.05E-19 0.9 !7.02E-20 1.5 280 1.03E-19 0.9 !6.67E-20 1.55 285 1.00E-19 0.9 !6.25E-20 1.6 290 9.91E-20 0.9 !5.83E-20 1.7 295 9.32E-20 0.9 !5.18E-20 1.8 300 8.51E-20 0.9 !4.48E-20 1.9 305 7.22E-20 0.9 !3.61E-20 2 310 5.92E-20 0.9 !2.69E-20 2.2 315 4.74E-20 0.9 !1.86E-20 2.55 320 4.19E-20 0.9 !1.31E-20 3.2 325 3.63E-20 0.9 !7.90E-21 4.6 330 3.19E-20 0.9 !4.55E-21 7 335 2.20E-20 0.9 !2.20E-21 10 340 1.60E-20 0.9 !1.60E-21 10 345 0.00E+00 0.9 !0.00E+00 1 350 0.00E+00 0.9 !0.00E+00 1 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/PYRUACID_JPL2011 ================================================ PYRUACID_JPL2011 ! CH3C(O)C(O)OH + hv --> CH3CHO + CO2 (1) ! --> CH3CO + COOH (2) ! --> CH3COOH + CO (3) ! --> CH3CO + CO + OH (4) ! QY1 = 0.48 QY2 = 0.39 QY3 = 0.08 QY4 = 0.05 ! !S.P. Sander, J. Abbatt, J. R. Barker, J. B. Burkholder, R. R. Friedl, !D. M. Golden, R. E. Huie, C. E. Kolb, M. J. Kurylo, G. K. Moortgat, !V. L. Orkin and P. H. Wine, "Chemical Kinetics and Photochemical !Data for Use in Atmospheric Studies, Evaluation Number 17, !" JPL Publication 10-6, Jet Propulsion Laboratory, Pasadena, 2011. !http://jpldataeval.jpl.nasa.gov ! !Adopts the earlier recommendation of ! !S.P. Sander, R.R. Friedl, D.M. Golden, M.J. Kurylo, G.K. Moortgat, !H. Keller-Rudek, P.H. Wine, A.R. Ravishankara, C.E. Kolb, M.J. !Molina, B.J. Finlayson-Pitts, R.E. Huie, V.L. Orkin, !Chemical Kinetics and Photochemical Data for Use in Atmospheric !Studies. Evaluation Number 15, JPL Publication 06-2, !Jet Propulsion Laboratory, Pasadena, 2006: ! !252-285 nm, data of ! !A. Horowitz, R. Meller, and G.K. Moortgat, The UV-VIS absorption !cross sections of the a-dicarbonyl compounds: pyruvic acid, !biacetyl and glyoxal", J. Photochem. Photobiol. A: Chem. 146, 19-27 !(2001), ! !290-380 nm, mean of the data of !A. Horowitz, R. Meller, and G.K. Moortgat, !The UV-VIS absorption cross sections of the a-dicarbonyl compounds: !pyruvic acid, biacetyl and glyoxal", J. Photochem. Photobiol. A: Chem. 146, !19-27 (2001), ! !and ! !A. Mellouki and Y. Mu, "On the atmospheric degradation of pyruvic acid !in the gas phase," J. Photochem.Photobiol. A: Chem. 157, 295-300 (2003), ! !385-399 nm, data of ! !A. Horowitz, R. Meller, and G.K. Moortgat, The UV-VIS absorption cross !sections of the a-dicarbonyl compounds: pyruvic acid, biacetyl and !glyoxal", J. Photochem. Photobiol. A: Chem. 146, 19-27 (2001). Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 252.0 1.54e-20 1.000 253.0 1.55e-20 1.000 254.0 1.61e-20 1.000 255.0 1.56e-20 1.000 256.0 1.52e-20 1.000 257.0 1.41e-20 1.000 258.0 1.25e-20 1.000 259.0 1.07e-20 1.000 260.0 9.08e-21 1.000 261.0 8.01e-21 1.000 262.0 7.37e-21 1.000 263.0 7.18e-21 1.000 264.0 7.18e-21 1.000 265.0 7.00e-21 1.000 266.0 6.51e-21 1.000 267.0 5.66e-21 1.000 268.0 4.70e-21 1.000 269.0 3.67e-21 1.000 270.0 2.78e-21 1.000 271.0 2.24e-21 1.000 272.0 1.95e-21 1.000 273.0 1.85e-21 1.000 274.0 1.82e-21 1.000 275.0 1.88e-21 1.000 276.0 1.89e-21 1.000 277.0 1.80e-21 1.000 278.0 1.64e-21 1.000 279.0 1.39e-21 1.000 280.0 1.18e-21 1.000 281.0 1.01e-21 1.000 282.0 9.30e-22 1.000 283.0 9.80e-22 1.000 284.0 1.04e-21 1.000 285.0 1.13e-21 1.000 290.0 3.02e-21 1.000 291.0 3.23e-21 1.000 292.0 3.70e-21 1.000 293.0 4.09e-21 1.000 294.0 4.39e-21 1.000 295.0 4.70e-21 1.000 296.0 4.91e-21 1.000 297.0 5.19e-21 1.000 298.0 5.48e-21 1.000 299.0 5.94e-21 1.000 300.0 6.39e-21 1.000 301.0 6.78e-21 1.000 302.0 7.24e-21 1.000 303.0 7.75e-21 1.000 304.0 8.22e-21 1.000 305.0 8.98e-21 1.000 306.0 9.77e-21 1.000 307.0 1.04e-20 1.000 308.0 1.13e-20 1.000 309.0 1.21e-20 1.000 310.0 1.22e-20 1.000 311.0 1.27e-20 1.000 312.0 1.34e-20 1.000 313.0 1.42e-20 1.000 314.0 1.49e-20 1.000 315.0 1.57e-20 1.000 316.0 1.69e-20 1.000 317.0 1.83e-20 1.000 318.0 1.94e-20 1.000 319.0 2.05e-20 1.000 320.0 2.17e-20 1.000 321.0 2.31e-20 1.000 322.0 2.41e-20 1.000 323.0 2.50e-20 1.000 324.0 2.54e-20 1.000 325.0 2.60e-20 1.000 326.0 2.72e-20 1.000 327.0 2.78e-20 1.000 328.0 2.84e-20 1.000 329.0 2.98e-20 1.000 330.0 3.15e-20 1.000 331.0 3.35e-20 1.000 332.0 3.66e-20 1.000 333.0 3.87e-20 1.000 334.0 3.91e-20 1.000 335.0 3.96e-20 1.000 336.0 4.02e-20 1.000 337.0 4.02e-20 1.000 338.0 3.99e-20 1.000 339.0 3.96e-20 1.000 340.0 3.93e-20 1.000 341.0 3.95e-20 1.000 342.0 4.19e-20 1.000 343.0 4.24e-20 1.000 344.0 4.17e-20 1.000 345.0 4.26e-20 1.000 346.0 4.46e-20 1.000 347.0 4.58e-20 1.000 348.0 4.73e-20 1.000 349.0 4.92e-20 1.000 350.0 4.98e-20 1.000 351.0 4.79e-20 1.000 352.0 4.63e-20 1.000 353.0 4.54e-20 1.000 354.0 4.47e-20 1.000 355.0 4.13e-20 1.000 356.0 3.89e-20 1.000 357.0 3.66e-20 1.000 358.0 3.41e-20 1.000 359.0 3.22e-20 1.000 360.0 3.44e-20 1.000 361.0 3.59e-20 1.000 362.0 3.38e-20 1.000 363.0 3.01e-20 1.000 364.0 2.85e-20 1.000 365.0 2.86e-20 1.000 366.0 2.80e-20 1.000 367.0 2.88e-20 1.000 368.0 3.16e-20 1.000 369.0 3.52e-20 1.000 370.0 3.26e-20 1.000 371.0 2.87e-20 1.000 372.0 2.04e-20 1.000 373.0 1.76e-20 1.000 374.0 1.68e-20 1.000 375.0 1.22e-20 1.000 376.0 1.10e-20 1.000 377.0 9.50e-21 1.000 378.0 8.42e-21 1.000 379.0 6.88e-21 1.000 380.0 5.21e-21 1.000 385.0 9.70e-22 1.000 386.0 8.40e-22 1.000 387.0 7.70e-22 1.000 388.0 6.60e-22 1.000 389.0 5.60e-22 1.000 390.0 4.70e-22 1.000 391.0 3.40e-22 1.000 392.0 3.10e-22 1.000 393.0 2.60e-22 1.000 394.0 1.50e-22 1.000 395.0 1.10e-22 1.000 396.0 6.00e-23 1.000 397.0 2.00e-23 1.000 398.0 2.00e-23 1.000 399.0 9.00e-23 1.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/PYRUACID_RACM2 ================================================ PYRUACID_RACM2 !copied from PYRUACID_JPL2011 !PYAC + hv = ACO3 + CO2 + HO2 ! ! CH3C(O)C(O)OH + hv --> CH3CHO + CO2 (1) ! --> CH3CO + COOH (2) ! --> CH3COOH + CO (3) ! --> CH3CO + CO + OH (4) ! QY1 = 0.48 QY2 = 0.39 QY3 = 0.08 QY4 = 0.05 ! !S.P. Sander, J. Abbatt, J. R. Barker, J. B. Burkholder, R. R. Friedl, !D. M. Golden, R. E. Huie, C. E. Kolb, M. J. Kurylo, G. K. Moortgat, !V. L. Orkin and P. H. Wine, "Chemical Kinetics and Photochemical !Data for Use in Atmospheric Studies, Evaluation Number 17, !" JPL Publication 10-6, Jet Propulsion Laboratory, Pasadena, 2011. !http://jpldataeval.jpl.nasa.gov ! !Adopts the earlier recommendation of ! !S.P. Sander, R.R. Friedl, D.M. Golden, M.J. Kurylo, G.K. Moortgat, !H. Keller-Rudek, P.H. Wine, A.R. Ravishankara, C.E. Kolb, M.J. !Molina, B.J. Finlayson-Pitts, R.E. Huie, V.L. Orkin, !Chemical Kinetics and Photochemical Data for Use in Atmospheric !Studies. Evaluation Number 15, JPL Publication 06-2, !Jet Propulsion Laboratory, Pasadena, 2006: ! !252-285 nm, data of ! !A. Horowitz, R. Meller, and G.K. Moortgat, The UV-VIS absorption !cross sections of the a-dicarbonyl compounds: pyruvic acid, !biacetyl and glyoxal", J. Photochem. Photobiol. A: Chem. 146, 19-27 !(2001), ! !290-380 nm, mean of the data of !A. Horowitz, R. Meller, and G.K. Moortgat, !The UV-VIS absorption cross sections of the a-dicarbonyl compounds: !pyruvic acid, biacetyl and glyoxal", J. Photochem. Photobiol. A: Chem. 146, !19-27 (2001), ! !and ! !A. Mellouki and Y. Mu, "On the atmospheric degradation of pyruvic acid !in the gas phase," J. Photochem.Photobiol. A: Chem. 157, 295-300 (2003), ! !385-399 nm, data of ! !A. Horowitz, R. Meller, and G.K. Moortgat, The UV-VIS absorption cross !sections of the a-dicarbonyl compounds: pyruvic acid, biacetyl and !glyoxal", J. Photochem. Photobiol. A: Chem. 146, 19-27 (2001). Points (the mechanism evaluated with this format) ! With FAC, units are (cm^2/molecule) FAC=1.0 252.0 1.54e-20 1.000 253.0 1.55e-20 1.000 254.0 1.61e-20 1.000 255.0 1.56e-20 1.000 256.0 1.52e-20 1.000 257.0 1.41e-20 1.000 258.0 1.25e-20 1.000 259.0 1.07e-20 1.000 260.0 9.08e-21 1.000 261.0 8.01e-21 1.000 262.0 7.37e-21 1.000 263.0 7.18e-21 1.000 264.0 7.18e-21 1.000 265.0 7.00e-21 1.000 266.0 6.51e-21 1.000 267.0 5.66e-21 1.000 268.0 4.70e-21 1.000 269.0 3.67e-21 1.000 270.0 2.78e-21 1.000 271.0 2.24e-21 1.000 272.0 1.95e-21 1.000 273.0 1.85e-21 1.000 274.0 1.82e-21 1.000 275.0 1.88e-21 1.000 276.0 1.89e-21 1.000 277.0 1.80e-21 1.000 278.0 1.64e-21 1.000 279.0 1.39e-21 1.000 280.0 1.18e-21 1.000 281.0 1.01e-21 1.000 282.0 9.30e-22 1.000 283.0 9.80e-22 1.000 284.0 1.04e-21 1.000 285.0 1.13e-21 1.000 290.0 3.02e-21 1.000 291.0 3.23e-21 1.000 292.0 3.70e-21 1.000 293.0 4.09e-21 1.000 294.0 4.39e-21 1.000 295.0 4.70e-21 1.000 296.0 4.91e-21 1.000 297.0 5.19e-21 1.000 298.0 5.48e-21 1.000 299.0 5.94e-21 1.000 300.0 6.39e-21 1.000 301.0 6.78e-21 1.000 302.0 7.24e-21 1.000 303.0 7.75e-21 1.000 304.0 8.22e-21 1.000 305.0 8.98e-21 1.000 306.0 9.77e-21 1.000 307.0 1.04e-20 1.000 308.0 1.13e-20 1.000 309.0 1.21e-20 1.000 310.0 1.22e-20 1.000 311.0 1.27e-20 1.000 312.0 1.34e-20 1.000 313.0 1.42e-20 1.000 314.0 1.49e-20 1.000 315.0 1.57e-20 1.000 316.0 1.69e-20 1.000 317.0 1.83e-20 1.000 318.0 1.94e-20 1.000 319.0 2.05e-20 1.000 320.0 2.17e-20 1.000 321.0 2.31e-20 1.000 322.0 2.41e-20 1.000 323.0 2.50e-20 1.000 324.0 2.54e-20 1.000 325.0 2.60e-20 1.000 326.0 2.72e-20 1.000 327.0 2.78e-20 1.000 328.0 2.84e-20 1.000 329.0 2.98e-20 1.000 330.0 3.15e-20 1.000 331.0 3.35e-20 1.000 332.0 3.66e-20 1.000 333.0 3.87e-20 1.000 334.0 3.91e-20 1.000 335.0 3.96e-20 1.000 336.0 4.02e-20 1.000 337.0 4.02e-20 1.000 338.0 3.99e-20 1.000 339.0 3.96e-20 1.000 340.0 3.93e-20 1.000 341.0 3.95e-20 1.000 342.0 4.19e-20 1.000 343.0 4.24e-20 1.000 344.0 4.17e-20 1.000 345.0 4.26e-20 1.000 346.0 4.46e-20 1.000 347.0 4.58e-20 1.000 348.0 4.73e-20 1.000 349.0 4.92e-20 1.000 350.0 4.98e-20 1.000 351.0 4.79e-20 1.000 352.0 4.63e-20 1.000 353.0 4.54e-20 1.000 354.0 4.47e-20 1.000 355.0 4.13e-20 1.000 356.0 3.89e-20 1.000 357.0 3.66e-20 1.000 358.0 3.41e-20 1.000 359.0 3.22e-20 1.000 360.0 3.44e-20 1.000 361.0 3.59e-20 1.000 362.0 3.38e-20 1.000 363.0 3.01e-20 1.000 364.0 2.85e-20 1.000 365.0 2.86e-20 1.000 366.0 2.80e-20 1.000 367.0 2.88e-20 1.000 368.0 3.16e-20 1.000 369.0 3.52e-20 1.000 370.0 3.26e-20 1.000 371.0 2.87e-20 1.000 372.0 2.04e-20 1.000 373.0 1.76e-20 1.000 374.0 1.68e-20 1.000 375.0 1.22e-20 1.000 376.0 1.10e-20 1.000 377.0 9.50e-21 1.000 378.0 8.42e-21 1.000 379.0 6.88e-21 1.000 380.0 5.21e-21 1.000 385.0 9.70e-22 1.000 386.0 8.40e-22 1.000 387.0 7.70e-22 1.000 388.0 6.60e-22 1.000 389.0 5.60e-22 1.000 390.0 4.70e-22 1.000 391.0 3.40e-22 1.000 392.0 3.10e-22 1.000 393.0 2.60e-22 1.000 394.0 1.50e-22 1.000 395.0 1.10e-22 1.000 396.0 6.00e-23 1.000 397.0 2.00e-23 1.000 398.0 2.00e-23 1.000 399.0 9.00e-23 1.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/TBUTNO3_MCMv32 ================================================ TBUTNO3_MCMv32 !tert-butyl nitrate, 1,1-dimethyl-1-ethyl nitrate !t-c4h9no3 ---> t-c4h90 + no2 !cross section from URL !http://joseba.mpch-mainz.mpg.de/spectral_atlas_data/ ! cross_sections/Organics%20(N-compounds)/Nitrates/ ! t-C4H9ONO2,(CH3)3CONO2_RobertsFajer(1989)_298K_270-330nm.txt ! (last accessed Nov.28,2017) ! Reference: ! J.M. Roberts and R.W. Fajer, "UV absorption cross sections of organic nitrates ! of potential atmospheric importance and estimation of atmospheric lifetimes," ! Environ. Sci. Technol. 23, 945-951 (1989); DOI: 10.1021/es00066a003 ! !WVL XC,cm^2 QY Points ! With FAC, units are (cm^2/molecule) FAC=1.0 270.0 4.27E-20 1.0 272.0 4.20E-20 1.0 274.0 4.11E-20 1.0 276.0 3.98E-20 1.0 278.0 3.83E-20 1.0 280.0 3.66E-20 1.0 282.0 3.46E-20 1.0 284.0 3.25E-20 1.0 286.0 3.03E-20 1.0 288.0 2.80E-20 1.0 290.0 2.57E-20 1.0 292.0 2.34E-20 1.0 294.0 2.11E-20 1.0 296.0 1.89E-20 1.0 298.0 1.68E-20 1.0 300.0 1.48E-20 1.0 302.0 1.29E-20 1.0 304.0 1.12E-20 1.0 306.0 9.66E-21 1.0 308.0 8.25E-21 1.0 310.0 6.99E-21 1.0 312.0 5.87E-21 1.0 314.0 4.90E-21 1.0 316.0 4.05E-21 1.0 318.0 3.32E-21 1.0 320.0 2.70E-21 1.0 322.0 2.18E-21 1.0 324.0 1.75E-21 1.0 326.0 1.39E-21 1.0 328.0 1.10E-21 1.0 330.0 8.59E-22 1.0 332.0 6.66E-22 1.0 334.0 5.13E-22 1.0 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/UALD_RACM2 ================================================ UALD_RACM2 ! UALD + HV = 1.22*HO2 + 0.784*ACO3 + 1.22*CO + 0.35*HCHO + 0.434*ALD + 0.216*KET ! Photolysis basded on crotonaldehyde ! Magrenon et al, 2002 ! Supplied by Dr. Wendy Goliff, reformatted by Dr. Golam Sarwar to make it compatible with CMAQ Points ! With FAC, units are (cm^2/molecule) FAC=1.0 186.1 0.000E+00 0.030 187.8 0.000E+00 0.030 189.6 0.000E+00 0.030 191.4 0.000E+00 0.030 193.3 0.000E+00 0.030 195.2 0.000E+00 0.030 197.1 0.000E+00 0.030 199.0 0.000E+00 0.030 201.0 0.000E+00 0.030 203.1 0.000E+00 0.030 205.2 0.000E+00 0.030 207.3 0.000E+00 0.030 209.4 0.000E+00 0.030 211.7 0.000E+00 0.030 213.9 0.000E+00 0.030 216.2 0.000E+00 0.030 218.6 0.000E+00 0.030 221.0 0.000E+00 0.030 223.5 0.000E+00 0.030 226.0 0.000E+00 0.030 228.6 0.000E+00 0.030 231.3 0.000E+00 0.030 234.0 0.000E+00 0.030 236.7 0.000E+00 0.030 239.6 0.000E+00 0.030 242.5 0.000E+00 0.030 245.4 0.000E+00 0.030 248.5 0.000E+00 0.030 251.6 0.000E+00 0.030 254.8 0.000E+00 0.030 258.2 0.280E-20 0.030 261.5 0.330E-20 0.030 265.0 0.380E-20 0.030 268.5 0.530E-20 0.030 272.2 0.660E-20 0.030 275.9 0.900E-20 0.030 279.8 0.118E-19 0.030 283.7 0.154E-19 0.030 287.8 0.195E-19 0.030 292.0 0.240E-19 0.030 296.3 0.293E-19 0.030 300.5 0.351E-19 0.030 303.0 0.386E-19 0.030 304.0 0.402E-19 0.030 305.0 0.417E-19 0.030 306.0 0.433E-19 0.030 307.0 0.445E-19 0.030 308.0 0.458E-19 0.030 309.0 0.464E-19 0.030 310.0 0.479E-19 0.030 311.0 0.492E-19 0.030 312.0 0.505E-19 0.030 313.0 0.519E-19 0.030 314.0 0.532E-19 0.030 316.0 0.558E-19 0.030 320.0 0.585E-19 0.030 325.0 0.614E-19 0.030 330.0 0.645E-19 0.030 335.0 0.586E-19 0.030 340.0 0.588E-19 0.030 345.0 0.539E-19 0.030 350.0 0.413E-19 0.030 355.0 0.388E-19 0.030 360.0 0.345E-19 0.030 365.0 0.194E-19 0.030 370.0 0.143E-19 0.030 375.0 0.127E-19 0.030 380.0 0.810E-20 0.030 385.0 0.280E-20 0.030 390.0 0.140E-20 0.030 395.0 0.000E+00 0.030 400.0 0.000E+00 0.030 405.0 0.000E+00 0.030 410.0 0.000E+00 0.030 415.0 0.000E+00 0.030 420.0 0.000E+00 0.030 425.0 0.000E+00 0.030 430.0 0.000E+00 0.030 435.0 0.000E+00 0.030 440.0 0.000E+00 0.030 445.0 0.000E+00 0.030 450.0 0.000E+00 0.030 455.0 0.000E+00 0.030 460.0 0.000E+00 0.030 465.0 0.000E+00 0.030 470.0 0.000E+00 0.030 475.0 0.000E+00 0.030 480.0 0.000E+00 0.030 485.0 0.000E+00 0.000 490.0 0.000E+00 0.000 495.0 0.000E+00 0.000 500.0 0.000E+00 0.000 505.0 0.000E+00 0.000 510.0 0.000E+00 0.000 515.0 0.000E+00 0.000 520.0 0.000E+00 0.000 525.0 0.000E+00 0.000 530.0 0.000E+00 0.000 535.0 0.000E+00 0.000 540.0 0.000E+00 0.000 545.0 0.000E+00 0.000 550.0 0.000E+00 0.000 555.0 0.000E+00 0.000 560.0 0.000E+00 0.000 565.0 0.000E+00 0.000 570.0 0.000E+00 0.000 575.0 0.000E+00 0.000 580.0 0.000E+00 0.000 585.0 0.000E+00 0.000 590.0 0.000E+00 0.000 595.0 0.000E+00 0.000 600.0 0.000E+00 0.000 605.0 0.000E+00 0.000 610.0 0.000E+00 0.000 615.0 0.000E+00 0.000 620.0 0.000E+00 0.000 625.0 0.000E+00 0.000 630.0 0.000E+00 0.000 635.0 0.000E+00 0.000 640.0 0.000E+00 0.000 644.8 0.000E+00 0.000 651.0 0.000E+00 0.000 660.0 0.000E+00 0.000 670.0 0.000E+00 0.000 680.0 0.000E+00 0.000 690.0 0.000E+00 0.000 700.0 0.000E+00 0.000 710.0 0.000E+00 0.000 720.0 0.000E+00 0.000 730.0 0.000E+00 0.000 ================================================ FILE: UTIL/inline_phot_preproc/photolysis_CSQY_data/UDC_RADM88 ================================================ UDC_RADM88 ! Unsaturated Dicarbonyl Photolysis (UDC) ! HCOCH=CHCHO + hv -> 0.98HO2 + TCO3 + 0.02ACO3 ! Taken from the original RADM data ! format: wl, abs_cs, qy Beginning ! With FAC, units are (cm^2/molecule) FAC=1.0 185.185 7.900E-20 1.000E+00 186.916 7.900E-20 1.000E+00 188.679 7.900E-20 1.000E+00 190.476 7.900E-20 1.000E+00 192.308 7.900E-20 1.000E+00 194.175 7.900E-20 1.000E+00 196.078 7.900E-20 1.000E+00 198.020 7.900E-20 1.000E+00 200.000 7.900E-20 1.000E+00 202.020 7.900E-20 1.000E+00 204.082 7.900E-20 1.000E+00 206.186 7.900E-20 1.000E+00 208.333 7.900E-20 1.000E+00 210.526 7.900E-20 1.000E+00 212.766 7.900E-20 1.000E+00 215.054 7.900E-20 1.000E+00 217.391 7.900E-20 1.000E+00 219.780 7.900E-20 1.000E+00 222.222 7.900E-20 1.000E+00 224.719 7.900E-20 1.000E+00 227.273 7.900E-20 1.000E+00 229.885 7.900E-20 1.000E+00 232.558 7.900E-20 1.000E+00 235.294 7.900E-20 1.000E+00 238.095 7.900E-20 1.000E+00 240.964 7.900E-20 1.000E+00 243.902 7.900E-20 1.000E+00 246.914 7.900E-20 1.000E+00 250.000 7.900E-20 1.000E+00 253.165 7.900E-20 1.000E+00 256.410 7.900E-20 1.000E+00 259.740 7.900E-20 1.000E+00 263.158 7.900E-20 1.000E+00 266.667 7.900E-20 1.000E+00 270.270 7.900E-20 1.000E+00 273.973 7.900E-20 1.000E+00 277.778 7.900E-20 1.000E+00 281.690 7.900E-20 1.000E+00 285.714 7.900E-20 1.000E+00 289.855 7.900E-20 1.000E+00 294.118 7.900E-20 1.000E+00 298.500 7.900E-20 1.000E+00 302.500 7.900E-20 1.000E+00 303.500 7.900E-20 1.000E+00 304.500 7.900E-20 1.000E+00 305.500 7.900E-20 1.000E+00 306.500 7.900E-20 1.000E+00 307.500 7.900E-20 1.000E+00 308.500 7.900E-20 1.000E+00 309.500 7.900E-20 1.000E+00 310.500 7.900E-20 1.000E+00 311.500 7.900E-20 1.000E+00 312.500 7.900E-20 1.000E+00 313.500 7.900E-20 1.000E+00 314.500 7.900E-20 1.000E+00 317.500 7.900E-20 1.000E+00 322.500 7.900E-20 1.000E+00 327.500 7.900E-20 1.000E+00 332.500 7.900E-20 1.000E+00 337.500 7.900E-20 1.000E+00 342.500 7.900E-20 1.000E+00 347.500 7.900E-20 1.000E+00 352.500 7.900E-20 5.000E-01 357.500 7.900E-20 0.000E+00 362.500 0.000E+00 0.000E+00 ================================================ FILE: UTIL/inline_phot_preproc/refractive_indices/IE_refractive_indices/Lambe_2013-naphthalene_SOA_refractive_indices.txt ================================================ NAPH_SOA !Refractive Indices for SOA materile from naphthalene ! Based on ! !Andrew T. Lambe, Christopher D. Cappa, Paola Massoli, Timothy B. Onasch, Sara D. Forestieri, Alexander T. Martin, Molly J. Cummings, David R. Croasdale, William H. Brune, Douglas R. Worsnop, and Paul Davidovits !nvironmental Science & Technology 2013 47 (12), 6349-6357 !DOI: 10.1021/es401043j ! ! Values derived from the refractive index for naphthalene at 405 nm displayed in figure 6 for an o/c ration equal !to 0.4. The imaginary part was extrapolated using the Angstrom exponents in supplementary table S2 for O/C ratio of 0.5 ! Note that the exponent minus was actucally used becauase the table's values were for the Mass Absorption Coefficient. !wv,um m k 0.150 1.65 0.0194 0.210 1.65 0.0194 0.215 1.65 0.0194 0.220 1.65 0.0194 0.225 1.65 0.0194 0.230 1.65 0.0194 0.235 1.65 0.0194 0.240 1.65 0.0194 0.245 1.65 0.0194 0.250 1.65 0.0194 0.255 1.65 0.0194 0.260 1.65 0.0194 0.265 1.65 0.0194 0.270 1.65 0.0194 0.275 1.65 0.0194 0.280 1.65 0.0194 0.285 1.65 0.0194 0.290 1.65 0.0194 0.295 1.65 0.0194 0.300 1.65 0.0194 0.305 1.65 0.0177 0.310 1.65 0.0161 0.315 1.65 0.0147 0.320 1.65 0.0135 0.325 1.65 0.0124 0.330 1.65 0.0114 0.335 1.65 0.0104 0.340 1.65 0.0096 0.345 1.65 0.0089 0.350 1.65 0.0082 0.355 1.65 0.0075 0.360 1.65 0.0070 0.365 1.65 0.0065 0.370 1.65 0.0060 0.375 1.65 0.0056 0.380 1.65 0.0052 0.385 1.65 0.0048 0.390 1.65 0.0045 0.395 1.65 0.0042 0.400 1.65 0.0039 0.405 1.65 0.0036 0.410 1.65 0.0034 0.415 1.65 0.0031 0.420 1.65 0.0029 0.425 1.65 0.0028 0.430 1.65 0.0026 0.435 1.65 0.0024 0.440 1.65 0.0023 0.445 1.65 0.0021 0.450 1.65 0.0020 0.455 1.65 0.0011 0.460 1.65 0.0011 0.465 1.65 0.0011 0.470 1.65 0.0011 0.475 1.65 0.0011 0.480 1.65 0.0011 0.485 1.65 0.0011 0.490 1.65 0.0011 0.495 1.65 0.0011 0.500 1.65 0.0011 0.505 1.65 0.0010 0.510 1.65 0.0010 0.515 1.65 0.0009 0.520 1.65 0.0009 0.525 1.65 0.0008 0.530 1.65 0.0008 0.535 1.65 0.0008 0.540 1.65 0.0007 0.545 1.65 0.0007 0.550 1.65 0.0007 0.555 1.65 0.0006 0.560 1.65 0.0006 0.565 1.65 0.0006 0.570 1.65 0.0005 0.575 1.65 0.0005 0.580 1.65 0.0005 0.585 1.65 0.0005 0.590 1.65 0.0004 0.595 1.65 0.0004 0.600 1.65 0.0004 0.605 1.65 0.0004 0.610 1.65 0.0004 0.615 1.65 0.0003 0.620 1.65 0.0003 0.625 1.65 0.0003 0.630 1.65 0.0003 0.635 1.65 0.0003 0.640 1.65 0.0003 0.645 1.65 0.0003 0.650 1.65 0.0003 0.655 1.65 0.0002 0.660 1.65 0.0002 0.665 1.65 0.0002 0.670 1.65 0.0002 0.675 1.65 0.0002 0.680 1.65 0.0002 0.685 1.65 0.0002 0.690 1.65 0.0002 0.695 1.65 0.0002 0.700 1.65 0.0002 0.705 1.65 0.0002 0.710 1.65 0.0002 0.715 1.65 0.0001 0.720 1.65 0.0001 0.725 1.65 0.0001 0.730 1.65 0.0001 0.735 1.65 0.0001 0.740 1.65 0.0001 0.745 1.65 0.0001 0.750 1.65 0.0001 0.755 1.65 0.0001 0.760 1.65 0.0001 0.765 1.65 0.0001 1.200 1.65 0.0001 ================================================ FILE: UTIL/inline_phot_preproc/refractive_indices/IE_refractive_indices/Lui_2013_APIN_SOA_refractive_indices.txt ================================================ APINENE_SOA !Pengfei Liu, Yue Zhang, and Scot T. Martin !Complex Refractive Indices of Thin Films of Secondary Organic Materials by Spectroscopic Ellipsometry from 220 to 1200 nm !Environmental Science & Technology 2013 47 (23), 13594-13601 !DOI: 10.1021/es403411e ! !SOM type a-pinene !wvl,um n k 0.150 1.6129 0.0088 0.220 1.6129 0.0088 0.225 1.6050 0.0069 0.230 1.5978 0.0065 0.235 1.5912 0.0055 0.240 1.5852 0.0037 0.245 1.5797 0.0032 0.250 1.5746 0.0029 0.255 1.5699 0.0026 0.260 1.5656 0.0024 0.265 1.5615 0.0022 0.270 1.5578 0.0026 0.275 1.5544 0.0028 0.280 1.5511 0.0030 0.285 1.5481 0.0026 0.290 1.5453 0.0020 0.295 1.5427 0.0019 0.300 1.5403 0.0018 0.305 1.5380 0.0015 0.310 1.5358 0.0012 0.315 1.5338 0.0011 0.320 1.5319 0.0009 0.325 1.5301 0.0008 0.330 1.5284 0.0007 0.335 1.5267 0.0006 0.340 1.5252 0.0006 0.345 1.5238 0.0007 0.350 1.5224 0.0005 0.355 1.5211 0.0002 0.360 1.5199 0.0001 0.365 1.5188 0.0001 0.370 1.5177 0.0002 0.375 1.5166 0.0003 0.380 1.5156 0.0002 0.385 1.5146 0.0002 0.390 1.5137 0.0001 0.395 1.5129 0.0001 0.400 1.5120 0.0001 0.405 1.5112 0.0001 0.410 1.5105 0.0002 0.415 1.5098 0.0003 0.420 1.5091 0.0004 0.425 1.5084 0.0003 0.430 1.5077 0.0004 0.435 1.5071 0.0005 0.440 1.5065 0.0004 0.445 1.5060 0.0002 0.450 1.5054 0.0001 0.455 1.5049 0.0000 0.460 1.5044 0.0000 0.465 1.5039 0.0000 0.470 1.5034 0.0001 0.475 1.5030 0.0000 0.480 1.5026 0.0000 0.485 1.5021 0.0000 0.490 1.5017 0.0000 0.495 1.5013 0.0000 0.500 1.5010 0.0000 0.505 1.5006 0.0000 0.510 1.5002 0.0001 0.515 1.4999 0.0001 0.520 1.4996 0.0001 0.525 1.4993 0.0001 0.530 1.4990 0.0001 0.535 1.4987 0.0001 0.540 1.4984 0.0001 0.545 1.4981 0.0001 0.550 1.4978 0.0001 0.555 1.4975 0.0001 0.560 1.4973 0.0001 0.565 1.4970 0.0001 0.570 1.4968 0.0002 0.575 1.4966 0.0002 0.580 1.4963 0.0002 0.585 1.4961 0.0002 0.590 1.4959 0.0002 0.595 1.4957 0.0003 0.600 1.4955 0.0004 0.605 1.4953 0.0004 0.610 1.4951 0.0004 0.615 1.4949 0.0003 0.620 1.4947 0.0003 0.625 1.4945 0.0003 0.630 1.4944 0.0003 0.635 1.4942 0.0003 0.640 1.4940 0.0003 0.645 1.4939 0.0003 0.650 1.4937 0.0004 0.655 1.4936 0.0004 0.660 1.4934 0.0004 0.665 1.4933 0.0004 0.670 1.4931 0.0004 0.675 1.4930 0.0004 0.680 1.4929 0.0004 0.685 1.4927 0.0004 0.690 1.4926 0.0004 0.695 1.4925 0.0004 0.700 1.4924 0.0004 0.705 1.4922 0.0004 0.710 1.4921 0.0004 0.715 1.4920 0.0004 0.720 1.4919 0.0003 0.725 1.4918 0.0003 0.730 1.4917 0.0003 0.735 1.4916 0.0003 0.740 1.4915 0.0003 0.745 1.4914 0.0003 0.750 1.4913 0.0002 0.755 1.4912 0.0002 0.760 1.4911 0.0002 0.765 1.4910 0.0002 0.770 1.4909 0.0002 0.775 1.4908 0.0001 0.780 1.4907 0.0001 0.785 1.4906 0.0001 0.790 1.4906 0.0001 0.795 1.4905 0.0001 0.800 1.4904 0.0001 0.805 1.4903 0.0001 0.810 1.4903 0.0001 0.815 1.4902 0.0001 0.820 1.4901 0.0001 0.825 1.4900 0.0001 0.830 1.4900 0.0001 0.835 1.4899 0.0001 0.840 1.4898 0.0000 0.845 1.4898 0.0000 0.850 1.4897 0.0001 0.855 1.4896 0.0000 0.860 1.4896 0.0000 0.865 1.4895 0.0000 0.870 1.4894 0.0000 0.875 1.4894 0.0000 0.880 1.4893 0.0000 0.885 1.4893 0.0000 0.890 1.4892 0.0000 0.895 1.4892 0.0000 0.900 1.4891 0.0000 0.905 1.4890 0.0000 0.910 1.4890 0.0000 0.915 1.4889 0.0000 0.920 1.4889 0.0000 0.925 1.4888 0.0000 0.930 1.4888 0.0000 0.935 1.4887 0.0000 0.940 1.4887 0.0000 0.945 1.4886 0.0000 0.950 1.4886 0.0000 0.955 1.4886 0.0000 0.960 1.4885 0.0000 0.965 1.4885 0.0000 0.970 1.4884 0.0000 0.975 1.4884 0.0000 0.980 1.4883 0.0000 0.985 1.4883 0.0000 0.990 1.4883 0.0001 0.995 1.4882 0.0001 1.000 1.4882 0.0001 1.005 1.4882 0.0001 1.010 1.4882 0.0001 1.015 1.4882 0.0001 1.020 1.4882 0.0001 1.025 1.4882 0.0001 1.030 1.4882 0.0001 1.035 1.4882 0.0001 1.040 1.4882 0.0001 1.045 1.4882 0.0001 1.050 1.4882 0.0001 1.055 1.4882 0.0001 1.060 1.4882 0.0001 1.065 1.4882 0.0001 1.070 1.4882 0.0001 1.075 1.4882 0.0001 1.080 1.4882 0.0001 1.085 1.4882 0.0001 1.090 1.4882 0.0001 1.095 1.4882 0.0001 1.100 1.4882 0.0001 1.105 1.4882 0.0001 1.110 1.4882 0.0001 1.115 1.4882 0.0001 1.120 1.4882 0.0001 1.125 1.4882 0.0001 1.130 1.4882 0.0001 1.135 1.4882 0.0001 1.140 1.4882 0.0001 1.145 1.4882 0.0001 1.150 1.4882 0.0001 1.155 1.4882 0.0001 1.160 1.4882 0.0001 1.165 1.4882 0.0001 1.170 1.4882 0.0001 1.175 1.4882 0.0001 1.180 1.4882 0.0001 1.185 1.4882 0.0001 1.190 1.4882 0.0001 1.195 1.4882 0.0001 1.200 1.4882 0.0001 ================================================ FILE: UTIL/inline_phot_preproc/refractive_indices/IE_refractive_indices/Lui_2013_Limonene_SOA_refractive_indices.txt ================================================ LIMONENE_SOA !Pengfei Liu, Yue Zhang, and Scot T. Martin !Complex Refractive Indices of Thin Films of Secondary Organic Materials by Spectroscopic Ellipsometry from 220 to 1200 nm !Environmental Science & Technology 2013 47 (23), 13594-13601 !DOI: 10.1021/es403411e ! !SOM type limonene !wvl,um n k 0.150 1.6152 0.0050 0.220 1.6152 0.0050 0.225 1.6079 0.0041 0.230 1.6011 0.0039 0.235 1.5950 0.0036 0.240 1.5893 0.0031 0.245 1.5841 0.0029 0.250 1.5792 0.0026 0.255 1.5747 0.0024 0.260 1.5706 0.0027 0.265 1.5668 0.0027 0.270 1.5632 0.0024 0.275 1.5598 0.0024 0.280 1.5567 0.0024 0.285 1.5538 0.0018 0.290 1.5511 0.0013 0.295 1.5485 0.0012 0.300 1.5461 0.0009 0.305 1.5439 0.0008 0.310 1.5418 0.0009 0.315 1.5398 0.0007 0.320 1.5379 0.0002 0.325 1.5361 0.0004 0.330 1.5344 0.0005 0.335 1.5328 0.0003 0.340 1.5313 0.0003 0.345 1.5299 0.0004 0.350 1.5285 0.0003 0.355 1.5272 0.0001 0.360 1.5260 0.0000 0.365 1.5248 0.0000 0.370 1.5237 0.0001 0.375 1.5227 0.0000 0.380 1.5217 0.0002 0.385 1.5207 0.0002 0.390 1.5198 0.0004 0.395 1.5189 0.0003 0.400 1.5180 0.0000 0.405 1.5172 0.0001 0.410 1.5165 0.0002 0.415 1.5157 0.0002 0.420 1.5150 0.0001 0.425 1.5143 0.0001 0.430 1.5137 0.0000 0.435 1.5130 0.0000 0.440 1.5124 0.0001 0.445 1.5118 0.0001 0.450 1.5113 0.0001 0.455 1.5107 0.0001 0.460 1.5102 0.0001 0.465 1.5097 0.0000 0.470 1.5092 0.0000 0.475 1.5088 0.0000 0.480 1.5083 0.0000 0.485 1.5079 0.0000 0.490 1.5074 0.0000 0.495 1.5070 0.0000 0.500 1.5066 0.0000 0.505 1.5063 0.0000 0.510 1.5059 0.0001 0.515 1.5055 0.0000 0.520 1.5052 0.0001 0.525 1.5049 0.0000 0.530 1.5045 0.0001 0.535 1.5042 0.0005 0.540 1.5039 0.0004 0.545 1.5036 0.0003 0.550 1.5033 0.0000 0.555 1.5031 0.0001 0.560 1.5028 0.0001 0.565 1.5025 0.0001 0.570 1.5023 0.0001 0.575 1.5020 0.0001 0.580 1.5018 0.0000 0.585 1.5015 0.0000 0.590 1.5013 0.0001 0.595 1.5011 0.0001 0.600 1.5009 0.0002 0.605 1.5007 0.0002 0.610 1.5005 0.0002 0.615 1.5003 0.0003 0.620 1.5001 0.0003 0.625 1.4999 0.0003 0.630 1.4997 0.0003 0.635 1.4995 0.0003 0.640 1.4994 0.0004 0.645 1.4992 0.0004 0.650 1.4990 0.0005 0.655 1.4989 0.0005 0.660 1.4987 0.0006 0.665 1.4985 0.0006 0.670 1.4984 0.0006 0.675 1.4982 0.0006 0.680 1.4981 0.0006 0.685 1.4980 0.0006 0.690 1.4978 0.0006 0.695 1.4977 0.0006 0.700 1.4976 0.0006 0.705 1.4974 0.0006 0.710 1.4973 0.0006 0.715 1.4972 0.0006 0.720 1.4971 0.0005 0.725 1.4969 0.0005 0.730 1.4968 0.0005 0.735 1.4967 0.0005 0.740 1.4966 0.0005 0.745 1.4965 0.0004 0.750 1.4964 0.0004 0.755 1.4963 0.0004 0.760 1.4962 0.0003 0.765 1.4961 0.0003 0.770 1.4960 0.0002 0.775 1.4959 0.0002 0.780 1.4958 0.0002 0.785 1.4957 0.0002 0.790 1.4956 0.0001 0.795 1.4955 0.0001 0.800 1.4955 0.0001 0.805 1.4954 0.0001 0.810 1.4953 0.0001 0.815 1.4952 0.0001 0.820 1.4951 0.0001 0.825 1.4950 0.0001 0.830 1.4950 0.0000 0.835 1.4949 0.0001 0.840 1.4948 0.0003 0.845 1.4948 0.0001 0.850 1.4947 0.0001 0.855 1.4946 0.0001 0.860 1.4945 0.0000 0.865 1.4945 0.0000 0.870 1.4944 0.0000 0.875 1.4943 0.0002 0.880 1.4943 0.0006 0.885 1.4942 0.0004 0.890 1.4942 0.0001 0.895 1.4941 0.0001 0.900 1.4940 0.0000 0.905 1.4940 0.0000 0.910 1.4939 0.0000 0.915 1.4939 0.0000 0.920 1.4938 0.0000 0.925 1.4938 0.0000 0.930 1.4937 0.0000 0.935 1.4937 0.0000 0.940 1.4936 0.0000 0.945 1.4935 0.0000 0.950 1.4935 0.0000 0.955 1.4935 0.0000 0.960 1.4934 0.0000 0.965 1.4934 0.0000 0.970 1.4933 0.0000 0.975 1.4933 0.0000 0.980 1.4932 0.0000 0.985 1.4932 0.0000 0.990 1.4931 0.0000 0.995 1.4931 0.0000 1.000 1.4930 0.0000 1.005 1.4930 0.0000 1.010 1.4930 0.0000 1.015 1.4929 0.0000 1.020 1.4929 0.0000 1.025 1.4928 0.0000 1.030 1.4928 0.0001 1.035 1.4928 0.0001 1.040 1.4927 0.0001 1.045 1.4927 0.0001 1.050 1.4926 0.0002 1.055 1.4926 0.0001 1.060 1.4926 0.0001 1.065 1.4925 0.0001 1.070 1.4925 0.0001 1.075 1.4925 0.0001 1.080 1.4924 0.0002 1.085 1.4924 0.0001 1.090 1.4924 0.0001 1.095 1.4923 0.0001 1.100 1.4923 0.0002 1.105 1.4923 0.0002 1.110 1.4922 0.0002 1.115 1.4922 0.0002 1.120 1.4922 0.0002 1.125 1.4922 0.0002 1.130 1.4921 0.0002 1.135 1.4921 0.0002 1.140 1.4921 0.0002 1.145 1.4920 0.0003 1.150 1.4920 0.0003 1.155 1.4920 0.0003 1.160 1.4920 0.0002 1.165 1.4919 0.0003 1.170 1.4919 0.0003 1.175 1.4919 0.0003 1.180 1.4919 0.0003 1.185 1.4918 0.0003 1.190 1.4918 0.0003 1.195 1.4918 0.0003 1.200 1.4918 0.0003 ================================================ FILE: UTIL/inline_phot_preproc/refractive_indices/IE_refractive_indices/Lui_2013_catechol_SOA_refractive_indices.txt ================================================ !Pengfei Liu, Yue Zhang, and Scot T. Martin !Complex Refractive Indices of Thin Films of Secondary Organic Materials by Spectroscopic Ellipsometry from 220 to 1200 nm !Environmental Science & Technology 2013 47 (23), 13594-13601 !DOI: 10.1021/es403411e ! !SOM type catechol !wvl,um n k 0.220 1.6374 0.0678 0.225 1.6374 0.0678 0.230 1.6374 0.0678 0.235 1.6301 0.0558 0.240 1.6234 0.0477 0.245 1.6171 0.0422 0.250 1.6113 0.0402 0.255 1.6059 0.0391 0.260 1.6009 0.0378 0.265 1.5962 0.0365 0.270 1.5918 0.0335 0.275 1.5877 0.0303 0.280 1.5839 0.0270 0.285 1.5803 0.0239 0.290 1.5769 0.0205 0.295 1.5737 0.0180 0.300 1.5707 0.0157 0.305 1.5679 0.0139 0.310 1.5652 0.0129 0.315 1.5627 0.0118 0.320 1.5603 0.0108 0.325 1.5580 0.0101 0.330 1.5558 0.0093 0.335 1.5538 0.0088 0.340 1.5519 0.0073 0.345 1.5500 0.0059 0.350 1.5483 0.0051 0.355 1.5466 0.0042 0.360 1.5450 0.0034 0.365 1.5435 0.0028 0.370 1.5420 0.0026 0.375 1.5407 0.0027 0.380 1.5393 0.0024 0.385 1.5381 0.0021 0.390 1.5368 0.0020 0.395 1.5357 0.0020 0.400 1.5346 0.0020 0.405 1.5335 0.0019 0.410 1.5325 0.0016 0.415 1.5315 0.0014 0.420 1.5305 0.0012 0.425 1.5296 0.0012 0.430 1.5287 0.0012 0.435 1.5279 0.0013 0.440 1.5271 0.0012 0.445 1.5263 0.0015 0.450 1.5255 0.0015 0.455 1.5248 0.0012 0.460 1.5241 0.0010 0.465 1.5234 0.0008 0.470 1.5228 0.0007 0.475 1.5221 0.0006 0.480 1.5215 0.0006 0.485 1.5209 0.0006 0.490 1.5204 0.0004 0.495 1.5198 0.0002 0.500 1.5193 0.0001 0.505 1.5188 0.0001 0.510 1.5183 0.0001 0.515 1.5178 0.0002 0.520 1.5173 0.0003 0.525 1.5168 0.0003 0.530 1.5164 0.0004 0.535 1.5160 0.0004 0.540 1.5155 0.0004 0.545 1.5151 0.0004 0.550 1.5147 0.0004 0.555 1.5144 0.0004 0.560 1.5140 0.0003 0.565 1.5136 0.0003 0.570 1.5133 0.0003 0.575 1.5129 0.0002 0.580 1.5126 0.0002 0.585 1.5123 0.0002 0.590 1.5120 0.0001 0.595 1.5116 0.0001 0.600 1.5113 0.0001 0.605 1.5111 0.0000 0.610 1.5108 0.0000 0.615 1.5105 0.0000 0.620 1.5102 0.0000 0.625 1.5100 0.0001 0.630 1.5097 0.0001 0.635 1.5095 0.0001 0.640 1.5092 0.0001 0.645 1.5090 0.0001 0.650 1.5087 0.0001 0.655 1.5085 0.0001 0.660 1.5083 0.0001 0.665 1.5081 0.0001 0.670 1.5079 0.0001 0.675 1.5077 0.0001 0.680 1.5075 0.0001 0.685 1.5073 0.0001 0.690 1.5071 0.0003 0.695 1.5069 0.0004 0.700 1.5067 0.0005 0.705 1.5065 0.0004 0.710 1.5063 0.0003 0.715 1.5062 0.0004 0.720 1.5060 0.0006 0.725 1.5058 0.0007 0.730 1.5057 0.0008 0.735 1.5055 0.0007 0.740 1.5054 0.0006 0.745 1.5052 0.0006 0.750 1.5051 0.0005 0.755 1.5049 0.0005 0.760 1.5048 0.0005 0.765 1.5046 0.0007 0.770 1.5045 0.0005 0.775 1.5044 0.0004 0.780 1.5042 0.0003 0.785 1.5041 0.0002 0.790 1.5040 0.0003 0.795 1.5039 0.0003 0.800 1.5037 0.0003 0.805 1.5036 0.0002 0.810 1.5035 0.0002 0.815 1.5034 0.0002 0.820 1.5033 0.0002 0.825 1.5032 0.0001 0.830 1.5031 0.0001 0.835 1.5029 0.0002 0.840 1.5028 0.0001 0.845 1.5027 0.0002 0.850 1.5026 0.0002 0.855 1.5025 0.0002 0.860 1.5024 0.0002 0.865 1.5023 0.0002 0.870 1.5023 0.0002 0.875 1.5022 0.0002 0.880 1.5021 0.0002 0.885 1.5020 0.0001 0.890 1.5019 0.0001 0.895 1.5018 0.0001 0.900 1.5017 0.0000 0.905 1.5016 0.0001 0.910 1.5016 0.0000 0.915 1.5015 0.0003 0.920 1.5014 0.0001 0.925 1.5013 0.0002 0.930 1.5012 0.0003 0.935 1.5012 0.0003 0.940 1.5011 0.0004 0.945 1.5010 0.0004 0.950 1.5010 0.0004 0.955 1.5009 0.0004 0.960 1.5008 0.0005 0.965 1.5007 0.0005 0.970 1.5007 0.0006 0.975 1.5006 0.0006 0.980 1.5006 0.0006 0.985 1.5005 0.0005 0.990 1.5004 0.0007 0.995 1.5004 0.0006 1.000 1.5003 0.0006 1.005 1.5002 0.0006 1.010 1.5002 0.0006 1.015 1.5001 0.0006 1.020 1.5001 0.0006 1.025 1.5000 0.0007 1.030 1.5000 0.0007 1.035 1.4999 0.0007 1.040 1.4998 0.0007 1.045 1.4998 0.0007 1.050 1.4997 0.0007 1.055 1.4997 0.0006 1.060 1.4996 0.0006 1.065 1.4996 0.0006 1.070 1.4995 0.0006 1.075 1.4995 0.0006 1.080 1.4994 0.0007 1.085 1.4994 0.0006 1.090 1.4993 0.0006 1.095 1.4993 0.0006 1.100 1.4993 0.0006 1.105 1.4992 0.0006 1.110 1.4992 0.0006 1.115 1.4991 0.0006 1.120 1.4991 0.0005 1.125 1.4990 0.0005 1.130 1.4990 0.0005 1.135 1.4990 0.0006 1.140 1.4989 0.0006 1.145 1.4989 0.0006 1.150 1.4988 0.0005 1.155 1.4988 0.0005 1.160 1.4988 0.0004 1.165 1.4987 0.0004 1.170 1.4987 0.0004 1.175 1.4986 0.0004 1.180 1.4986 0.0004 1.185 1.4986 0.0004 1.190 1.4985 0.0003 1.195 1.4985 0.0003 1.200 1.4985 0.0002 ================================================ FILE: UTIL/inline_phot_preproc/refractive_indices/IE_refractive_indices/Lui_2013_refractive_indices.txt ================================================ !Pengfei Liu, Yue Zhang, and Scot T. Martin !Complex Refractive Indices of Thin Films of Secondary Organic Materials by Spectroscopic Ellipsometry from 220 to 1200 nm !Environmental Science & Technology 2013 47 (23), 13594-13601 !DOI: 10.1021/es403411e ! !SOM type a-pinene limonene catechol !wvl,um n k n k n k 0.220 1.6129 0.0088 1.6152 0.0050 1.6374 0.0678 0.225 1.6050 0.0069 1.6079 0.0041 1.6374 0.0678 0.230 1.5978 0.0065 1.6011 0.0039 1.6374 0.0678 0.235 1.5912 0.0055 1.5950 0.0036 1.6301 0.0558 0.240 1.5852 0.0037 1.5893 0.0031 1.6234 0.0477 0.245 1.5797 0.0032 1.5841 0.0029 1.6171 0.0422 0.250 1.5746 0.0029 1.5792 0.0026 1.6113 0.0402 0.255 1.5699 0.0026 1.5747 0.0024 1.6059 0.0391 0.260 1.5656 0.0024 1.5706 0.0027 1.6009 0.0378 0.265 1.5615 0.0022 1.5668 0.0027 1.5962 0.0365 0.270 1.5578 0.0026 1.5632 0.0024 1.5918 0.0335 0.275 1.5544 0.0028 1.5598 0.0024 1.5877 0.0303 0.280 1.5511 0.0030 1.5567 0.0024 1.5839 0.0270 0.285 1.5481 0.0026 1.5538 0.0018 1.5803 0.0239 0.290 1.5453 0.0020 1.5511 0.0013 1.5769 0.0205 0.295 1.5427 0.0019 1.5485 0.0012 1.5737 0.0180 0.300 1.5403 0.0018 1.5461 0.0009 1.5707 0.0157 0.305 1.5380 0.0015 1.5439 0.0008 1.5679 0.0139 0.310 1.5358 0.0012 1.5418 0.0009 1.5652 0.0129 0.315 1.5338 0.0011 1.5398 0.0007 1.5627 0.0118 0.320 1.5319 0.0009 1.5379 0.0002 1.5603 0.0108 0.325 1.5301 0.0008 1.5361 0.0004 1.5580 0.0101 0.330 1.5284 0.0007 1.5344 0.0005 1.5558 0.0093 0.335 1.5267 0.0006 1.5328 0.0003 1.5538 0.0088 0.340 1.5252 0.0006 1.5313 0.0003 1.5519 0.0073 0.345 1.5238 0.0007 1.5299 0.0004 1.5500 0.0059 0.350 1.5224 0.0005 1.5285 0.0003 1.5483 0.0051 0.355 1.5211 0.0002 1.5272 0.0001 1.5466 0.0042 0.360 1.5199 0.0001 1.5260 0.0000 1.5450 0.0034 0.365 1.5188 0.0001 1.5248 0.0000 1.5435 0.0028 0.370 1.5177 0.0002 1.5237 0.0001 1.5420 0.0026 0.375 1.5166 0.0003 1.5227 0.0000 1.5407 0.0027 0.380 1.5156 0.0002 1.5217 0.0002 1.5393 0.0024 0.385 1.5146 0.0002 1.5207 0.0002 1.5381 0.0021 0.390 1.5137 0.0001 1.5198 0.0004 1.5368 0.0020 0.395 1.5129 0.0001 1.5189 0.0003 1.5357 0.0020 0.400 1.5120 0.0001 1.5180 0.0000 1.5346 0.0020 0.405 1.5112 0.0001 1.5172 0.0001 1.5335 0.0019 0.410 1.5105 0.0002 1.5165 0.0002 1.5325 0.0016 0.415 1.5098 0.0003 1.5157 0.0002 1.5315 0.0014 0.420 1.5091 0.0004 1.5150 0.0001 1.5305 0.0012 0.425 1.5084 0.0003 1.5143 0.0001 1.5296 0.0012 0.430 1.5077 0.0004 1.5137 0.0000 1.5287 0.0012 0.435 1.5071 0.0005 1.5130 0.0000 1.5279 0.0013 0.440 1.5065 0.0004 1.5124 0.0001 1.5271 0.0012 0.445 1.5060 0.0002 1.5118 0.0001 1.5263 0.0015 0.450 1.5054 0.0001 1.5113 0.0001 1.5255 0.0015 0.455 1.5049 0.0000 1.5107 0.0001 1.5248 0.0012 0.460 1.5044 0.0000 1.5102 0.0001 1.5241 0.0010 0.465 1.5039 0.0000 1.5097 0.0000 1.5234 0.0008 0.470 1.5034 0.0001 1.5092 0.0000 1.5228 0.0007 0.475 1.5030 0.0000 1.5088 0.0000 1.5221 0.0006 0.480 1.5026 0.0000 1.5083 0.0000 1.5215 0.0006 0.485 1.5021 0.0000 1.5079 0.0000 1.5209 0.0006 0.490 1.5017 0.0000 1.5074 0.0000 1.5204 0.0004 0.495 1.5013 0.0000 1.5070 0.0000 1.5198 0.0002 0.500 1.5010 0.0000 1.5066 0.0000 1.5193 0.0001 0.505 1.5006 0.0000 1.5063 0.0000 1.5188 0.0001 0.510 1.5002 0.0001 1.5059 0.0001 1.5183 0.0001 0.515 1.4999 0.0001 1.5055 0.0000 1.5178 0.0002 0.520 1.4996 0.0001 1.5052 0.0001 1.5173 0.0003 0.525 1.4993 0.0001 1.5049 0.0000 1.5168 0.0003 0.530 1.4990 0.0001 1.5045 0.0001 1.5164 0.0004 0.535 1.4987 0.0001 1.5042 0.0005 1.5160 0.0004 0.540 1.4984 0.0001 1.5039 0.0004 1.5155 0.0004 0.545 1.4981 0.0001 1.5036 0.0003 1.5151 0.0004 0.550 1.4978 0.0001 1.5033 0.0000 1.5147 0.0004 0.555 1.4975 0.0001 1.5031 0.0001 1.5144 0.0004 0.560 1.4973 0.0001 1.5028 0.0001 1.5140 0.0003 0.565 1.4970 0.0001 1.5025 0.0001 1.5136 0.0003 0.570 1.4968 0.0002 1.5023 0.0001 1.5133 0.0003 0.575 1.4966 0.0002 1.5020 0.0001 1.5129 0.0002 0.580 1.4963 0.0002 1.5018 0.0000 1.5126 0.0002 0.585 1.4961 0.0002 1.5015 0.0000 1.5123 0.0002 0.590 1.4959 0.0002 1.5013 0.0001 1.5120 0.0001 0.595 1.4957 0.0003 1.5011 0.0001 1.5116 0.0001 0.600 1.4955 0.0004 1.5009 0.0002 1.5113 0.0001 0.605 1.4953 0.0004 1.5007 0.0002 1.5111 0.0000 0.610 1.4951 0.0004 1.5005 0.0002 1.5108 0.0000 0.615 1.4949 0.0003 1.5003 0.0003 1.5105 0.0000 0.620 1.4947 0.0003 1.5001 0.0003 1.5102 0.0000 0.625 1.4945 0.0003 1.4999 0.0003 1.5100 0.0001 0.630 1.4944 0.0003 1.4997 0.0003 1.5097 0.0001 0.635 1.4942 0.0003 1.4995 0.0003 1.5095 0.0001 0.640 1.4940 0.0003 1.4994 0.0004 1.5092 0.0001 0.645 1.4939 0.0003 1.4992 0.0004 1.5090 0.0001 0.650 1.4937 0.0004 1.4990 0.0005 1.5087 0.0001 0.655 1.4936 0.0004 1.4989 0.0005 1.5085 0.0001 0.660 1.4934 0.0004 1.4987 0.0006 1.5083 0.0001 0.665 1.4933 0.0004 1.4985 0.0006 1.5081 0.0001 0.670 1.4931 0.0004 1.4984 0.0006 1.5079 0.0001 0.675 1.4930 0.0004 1.4982 0.0006 1.5077 0.0001 0.680 1.4929 0.0004 1.4981 0.0006 1.5075 0.0001 0.685 1.4927 0.0004 1.4980 0.0006 1.5073 0.0001 0.690 1.4926 0.0004 1.4978 0.0006 1.5071 0.0003 0.695 1.4925 0.0004 1.4977 0.0006 1.5069 0.0004 0.700 1.4924 0.0004 1.4976 0.0006 1.5067 0.0005 0.705 1.4922 0.0004 1.4974 0.0006 1.5065 0.0004 0.710 1.4921 0.0004 1.4973 0.0006 1.5063 0.0003 0.715 1.4920 0.0004 1.4972 0.0006 1.5062 0.0004 0.720 1.4919 0.0003 1.4971 0.0005 1.5060 0.0006 0.725 1.4918 0.0003 1.4969 0.0005 1.5058 0.0007 0.730 1.4917 0.0003 1.4968 0.0005 1.5057 0.0008 0.735 1.4916 0.0003 1.4967 0.0005 1.5055 0.0007 0.740 1.4915 0.0003 1.4966 0.0005 1.5054 0.0006 0.745 1.4914 0.0003 1.4965 0.0004 1.5052 0.0006 0.750 1.4913 0.0002 1.4964 0.0004 1.5051 0.0005 0.755 1.4912 0.0002 1.4963 0.0004 1.5049 0.0005 0.760 1.4911 0.0002 1.4962 0.0003 1.5048 0.0005 0.765 1.4910 0.0002 1.4961 0.0003 1.5046 0.0007 0.770 1.4909 0.0002 1.4960 0.0002 1.5045 0.0005 0.775 1.4908 0.0001 1.4959 0.0002 1.5044 0.0004 0.780 1.4907 0.0001 1.4958 0.0002 1.5042 0.0003 0.785 1.4906 0.0001 1.4957 0.0002 1.5041 0.0002 0.790 1.4906 0.0001 1.4956 0.0001 1.5040 0.0003 0.795 1.4905 0.0001 1.4955 0.0001 1.5039 0.0003 0.800 1.4904 0.0001 1.4955 0.0001 1.5037 0.0003 0.805 1.4903 0.0001 1.4954 0.0001 1.5036 0.0002 0.810 1.4903 0.0001 1.4953 0.0001 1.5035 0.0002 0.815 1.4902 0.0001 1.4952 0.0001 1.5034 0.0002 0.820 1.4901 0.0001 1.4951 0.0001 1.5033 0.0002 0.825 1.4900 0.0001 1.4950 0.0001 1.5032 0.0001 0.830 1.4900 0.0001 1.4950 0.0000 1.5031 0.0001 0.835 1.4899 0.0001 1.4949 0.0001 1.5029 0.0002 0.840 1.4898 0.0000 1.4948 0.0003 1.5028 0.0001 0.845 1.4898 0.0000 1.4948 0.0001 1.5027 0.0002 0.850 1.4897 0.0001 1.4947 0.0001 1.5026 0.0002 0.855 1.4896 0.0000 1.4946 0.0001 1.5025 0.0002 0.860 1.4896 0.0000 1.4945 0.0000 1.5024 0.0002 0.865 1.4895 0.0000 1.4945 0.0000 1.5023 0.0002 0.870 1.4894 0.0000 1.4944 0.0000 1.5023 0.0002 0.875 1.4894 0.0000 1.4943 0.0002 1.5022 0.0002 0.880 1.4893 0.0000 1.4943 0.0006 1.5021 0.0002 0.885 1.4893 0.0000 1.4942 0.0004 1.5020 0.0001 0.890 1.4892 0.0000 1.4942 0.0001 1.5019 0.0001 0.895 1.4892 0.0000 1.4941 0.0001 1.5018 0.0001 0.900 1.4891 0.0000 1.4940 0.0000 1.5017 0.0000 0.905 1.4890 0.0000 1.4940 0.0000 1.5016 0.0001 0.910 1.4890 0.0000 1.4939 0.0000 1.5016 0.0000 0.915 1.4889 0.0000 1.4939 0.0000 1.5015 0.0003 0.920 1.4889 0.0000 1.4938 0.0000 1.5014 0.0001 0.925 1.4888 0.0000 1.4938 0.0000 1.5013 0.0002 0.930 1.4888 0.0000 1.4937 0.0000 1.5012 0.0003 0.935 1.4887 0.0000 1.4937 0.0000 1.5012 0.0003 0.940 1.4887 0.0000 1.4936 0.0000 1.5011 0.0004 0.945 1.4886 0.0000 1.4935 0.0000 1.5010 0.0004 0.950 1.4886 0.0000 1.4935 0.0000 1.5010 0.0004 0.955 1.4886 0.0000 1.4935 0.0000 1.5009 0.0004 0.960 1.4885 0.0000 1.4934 0.0000 1.5008 0.0005 0.965 1.4885 0.0000 1.4934 0.0000 1.5007 0.0005 0.970 1.4884 0.0000 1.4933 0.0000 1.5007 0.0006 0.975 1.4884 0.0000 1.4933 0.0000 1.5006 0.0006 0.980 1.4883 0.0000 1.4932 0.0000 1.5006 0.0006 0.985 1.4883 0.0000 1.4932 0.0000 1.5005 0.0005 0.990 1.4883 0.0001 1.4931 0.0000 1.5004 0.0007 0.995 1.4882 0.0001 1.4931 0.0000 1.5004 0.0006 1.000 1.4882 0.0001 1.4930 0.0000 1.5003 0.0006 1.005 1.4882 0.0001 1.4930 0.0000 1.5002 0.0006 1.010 1.4882 0.0001 1.4930 0.0000 1.5002 0.0006 1.015 1.4882 0.0001 1.4929 0.0000 1.5001 0.0006 1.020 1.4882 0.0001 1.4929 0.0000 1.5001 0.0006 1.025 1.4882 0.0001 1.4928 0.0000 1.5000 0.0007 1.030 1.4882 0.0001 1.4928 0.0001 1.5000 0.0007 1.035 1.4882 0.0001 1.4928 0.0001 1.4999 0.0007 1.040 1.4882 0.0001 1.4927 0.0001 1.4998 0.0007 1.045 1.4882 0.0001 1.4927 0.0001 1.4998 0.0007 1.050 1.4882 0.0001 1.4926 0.0002 1.4997 0.0007 1.055 1.4882 0.0001 1.4926 0.0001 1.4997 0.0006 1.060 1.4882 0.0001 1.4926 0.0001 1.4996 0.0006 1.065 1.4882 0.0001 1.4925 0.0001 1.4996 0.0006 1.070 1.4882 0.0001 1.4925 0.0001 1.4995 0.0006 1.075 1.4882 0.0001 1.4925 0.0001 1.4995 0.0006 1.080 1.4882 0.0001 1.4924 0.0002 1.4994 0.0007 1.085 1.4882 0.0001 1.4924 0.0001 1.4994 0.0006 1.090 1.4882 0.0001 1.4924 0.0001 1.4993 0.0006 1.095 1.4882 0.0001 1.4923 0.0001 1.4993 0.0006 1.100 1.4882 0.0001 1.4923 0.0002 1.4993 0.0006 1.105 1.4882 0.0001 1.4923 0.0002 1.4992 0.0006 1.110 1.4882 0.0001 1.4922 0.0002 1.4992 0.0006 1.115 1.4882 0.0001 1.4922 0.0002 1.4991 0.0006 1.120 1.4882 0.0001 1.4922 0.0002 1.4991 0.0005 1.125 1.4882 0.0001 1.4922 0.0002 1.4990 0.0005 1.130 1.4882 0.0001 1.4921 0.0002 1.4990 0.0005 1.135 1.4882 0.0001 1.4921 0.0002 1.4990 0.0006 1.140 1.4882 0.0001 1.4921 0.0002 1.4989 0.0006 1.145 1.4882 0.0001 1.4920 0.0003 1.4989 0.0006 1.150 1.4882 0.0001 1.4920 0.0003 1.4988 0.0005 1.155 1.4882 0.0001 1.4920 0.0003 1.4988 0.0005 1.160 1.4882 0.0001 1.4920 0.0002 1.4988 0.0004 1.165 1.4882 0.0001 1.4919 0.0003 1.4987 0.0004 1.170 1.4882 0.0001 1.4919 0.0003 1.4987 0.0004 1.175 1.4882 0.0001 1.4919 0.0003 1.4986 0.0004 1.180 1.4882 0.0001 1.4919 0.0003 1.4986 0.0004 1.185 1.4882 0.0001 1.4918 0.0003 1.4986 0.0004 1.190 1.4882 0.0001 1.4918 0.0003 1.4985 0.0003 1.195 1.4882 0.0001 1.4918 0.0003 1.4985 0.0003 1.200 1.4882 0.0001 1.4918 0.0003 1.4985 0.0002 ================================================ FILE: UTIL/inline_phot_preproc/refractive_indices/IE_refractive_indices/Lui_2015_refractive_indices.txt ================================================ P. F. Liu, N. Abdelmalki, H.-M. Hung, Y. Wang, W. H. Brune and S. T. Martin Ultraviolet and visible complex refractive indices of secondary organic material produced by photooxidation of the aromatic compounds toluene and m-xylene Atmos. Chem. Phys., 15, 1435-1446, 2015 www.atmos-chem-phys.net/15/1435/2015/ doi:10.5194/acp-15-1435-2015 Imaginary Refractive Index SOM: Toluene-derived m-Xylene-derived SOM NO(ppm) 0 2.5 5.0 10.0 0.0 2.5 5.0 10.0 wl(nm) A1 A2 A3 A4 B1 B2 B3 B4 280 0.0262 0.0326 0.0365 0.0400 0.0267 0.0261 0.0268 0.0265 285 0.0241 0.0309 0.0349 0.0387 0.0245 0.0242 0.0250 0.0252 290 0.0217 0.0291 0.0332 0.0373 0.0215 0.0217 0.0226 0.0235 295 0.0193 0.0275 0.0315 0.0361 0.0179 0.0187 0.0197 0.0214 300 0.0171 0.0261 0.0301 0.0351 0.0143 0.0159 0.0169 0.0193 305 0.0153 0.0249 0.0289 0.0343 0.0115 0.0137 0.0147 0.0176 310 0.0137 0.0238 0.0279 0.0337 0.0095 0.0121 0.0131 0.0163 315 0.0124 0.0228 0.0270 0.0333 0.0081 0.0110 0.0120 0.0153 320 0.0114 0.0217 0.0259 0.0327 0.0071 0.0101 0.0112 0.0146 325 0.0104 0.0204 0.0247 0.0320 0.0063 0.0093 0.0104 0.0139 330 0.0094 0.0191 0.0233 0.0312 0.0056 0.0086 0.0097 0.0133 335 0.0086 0.0175 0.0219 0.0302 0.0049 0.0078 0.0089 0.0125 340 0.0077 0.0160 0.0203 0.0290 0.0044 0.0071 0.0082 0.0117 345 0.0069 0.0145 0.0188 0.0277 0.0038 0.0064 0.0074 0.0108 350 0.0062 0.0132 0.0173 0.0263 0.0034 0.0057 0.0066 0.0099 355 0.0055 0.0119 0.0158 0.0247 0.0030 0.0051 0.0059 0.0090 360 0.0050 0.0107 0.0146 0.0234 0.0027 0.0045 0.0053 0.0083 365 0.0044 0.0096 0.0132 0.0219 0.0023 0.0039 0.0047 0.0074 370 0.0039 0.0086 0.0120 0.0206 0.0020 0.0034 0.0041 0.0067 375 0.0035 0.0077 0.0109 0.0195 0.0018 0.0029 0.0037 0.0060 380 0.0031 0.0069 0.0100 0.0187 0.0016 0.0026 0.0032 0.0054 385 0.0027 0.0062 0.0091 0.0178 0.0014 0.0022 0.0028 0.0049 390 0.0024 0.0056 0.0083 0.0169 0.0012 0.0019 0.0025 0.0044 395 0.0022 0.0050 0.0077 0.0163 0.0010 0.0016 0.0021 0.0039 400 0.0020 0.0046 0.0071 0.0158 0.0009 0.0014 0.0018 0.0034 405 0.0017 0.0041 0.0066 0.0153 0.0008 0.0012 0.0016 0.0030 410 0.0016 0.0037 0.0060 0.0144 0.0007 0.0010 0.0014 0.0026 415 0.0014 0.0034 0.0056 0.0139 0.0006 0.0008 0.0012 0.0023 420 0.0013 0.0031 0.0052 0.0134 0.0006 0.0007 0.0010 0.0021 425 0.0012 0.0028 0.0048 0.0129 0.0005 0.0006 0.0008 0.0018 430 0.0011 0.0026 0.0047 0.0126 0.0005 0.0005 0.0007 0.0016 435 0.0010 0.0023 0.0041 0.0116 0.0005 0.0005 0.0006 0.0014 440 0.0010 0.0021 0.0038 0.0113 0.0004 0.0004 0.0005 0.0012 445 0.0009 0.0019 0.0035 0.0107 0.0004 0.0004 0.0004 0.0011 450 0.0008 0.0016 0.0031 0.0098 0.0004 0.0003 0.0004 0.0009 455 0.0008 0.0014 0.0027 0.0089 0.0003 0.0002 0.0003 0.0009 460 0.0008 0.0012 0.0025 0.0081 0.0003 0.0002 0.0002 0.0007 465 0.0008 0.0011 0.0022 0.0075 0.0003 0.0002 0.0002 0.0007 470 0.0007 0.0008 0.0017 0.0063 0.0002 0.0001 0.0002 0.0006 475 0.0007 0.0007 0.0015 0.0059 0.0002 0.0001 0.0001 0.0005 480 0.0007 0.0006 0.0013 0.0054 0.0002 0.0001 0.0001 0.0004 485 0.0007 0.0004 0.0012 0.0053 0.0002 0.0000 0.0002 0.0004 490 0.0006 0.0003 0.0010 0.0045 0.0002 0.0000 0.0000 0.0003 495 0.0005 0.0002 0.0007 0.0039 0.0002 0.0000 0.0000 0.0003 500 0.0006 0.0001 0.0006 0.0034 0.0001 0.0000 0.0000 0.0003 505 0.0005 0.0000 0.0004 0.0029 0.0001 0.0000 0.0000 0.0002 510 0.0005 0.0000 0.0003 0.0023 0.0001 0.0000 0.0000 0.0002 515 0.0004 0.0000 0.0001 0.0017 0.0001 0.0000 0.0000 0.0002 520 0.0004 0.0000 0.0000 0.0013 0.0001 0.0000 0.0000 0.0001 525 0.0004 0.0000 0.0000 0.0010 0.0001 0.0000 0.0000 0.0001 530 0.0003 0.0000 0.0000 0.0008 0.0001 0.0000 0.0000 0.0001 535 0.0003 0.0000 0.0000 0.0007 0.0001 0.0000 0.0000 0.0001 540 0.0004 0.0000 0.0000 0.0005 0.0001 0.0000 0.0000 0.0001 545 0.0003 0.0000 0.0000 0.0004 0.0001 0.0000 0.0000 0.0001 550 0.0003 0.0000 0.0000 0.0004 0.0001 0.0000 0.0000 0.0001 555 0.0003 0.0000 0.0000 0.0004 0.0001 0.0000 0.0000 0.0001 560 0.0003 0.0000 0.0000 0.0003 0.0001 0.0000 0.0000 0.0001 Parameters for Cauchy's equation n(lambda(um)) = B + C /lambda**2 + D /lambda**4 for the wavelength-dependent real refractive index n of toluene- and m-xylene-derived SOMs for several initial NO (ppm) A1 Toluene 0.0 1.505 7.57e-3 -1.17e-4 A2 Toluene 2.5 1.514 6.87e-3 -1.16e-4 A3 Toluene 5.0 1.513 9.07e-3 -1.72e-4 A4 Toluene 10.0 1.519 1.03e-2 -2.91e-4 B1 m-Xylene 0.0 1.499 4.59e-3 9.84e-5 B2 m-Xylene 2.5 1.500 5.53e-3 3.63e-5 B3 m-Xylene 5.0 1.501 7.77e-3 1.45e-5 B4 m-Xylene 10.0 1.510 1.07e-2 -2.60e-4 !Notes: Below 280 nm, the imaginary part, k, is extrapolted using the angstrom exponent derived from values at 275 and !280 nm. Above 580 nm, k is set to value at 560 nm, the angstrom exponent is set to zero. ! Wvl Tol_A1 Tol_A1 Tol_A2 Tol_A2 Tol_A3 Tol_A3 Tol_A4 Tol_A4 MXy_B1 MXy_B1 MXy_B2 MXy_B2 MXy_B3 MXy_B3 MXy_B4 MXy_B4 (um) m k m k m k m k m k m k m k m k 0.210 1.6165 0.1019 1.6101 0.0779 1.6302 0.0756 1.6029 0.0684 1.6537 0.1080 1.6441 0.0892 1.6846 0.0830 1.6189 0.0600 0.220 1.6115 0.0818 1.6064 0.0676 1.6270 0.0672 1.6076 0.0627 1.6358 0.0862 1.6298 0.0731 1.6677 0.0691 1.6201 0.0526 0.230 1.6063 0.0663 1.6024 0.0591 1.6230 0.0601 1.6097 0.0577 1.6209 0.0694 1.6175 0.0605 1.6531 0.0580 1.6194 0.0463 0.240 1.6012 0.0542 1.5983 0.0520 1.6186 0.0539 1.6101 0.0533 1.6083 0.0565 1.6069 0.0504 1.6403 0.0491 1.6174 0.0411 0.250 1.5962 0.0447 1.5942 0.0459 1.6141 0.0486 1.6093 0.0494 1.5976 0.0463 1.5978 0.0423 1.6290 0.0418 1.6146 0.0366 0.260 1.5914 0.0372 1.5902 0.0408 1.6095 0.0440 1.6077 0.0459 1.5884 0.0383 1.5897 0.0358 1.6191 0.0359 1.6114 0.0327 0.270 1.5868 0.0311 1.5864 0.0364 1.6051 0.0400 1.6055 0.0428 1.5805 0.0319 1.5827 0.0305 1.6103 0.0309 1.6079 0.0294 0.280 1.5825 0.0262 1.5828 0.0326 1.6007 0.0365 1.6030 0.0400 1.5736 0.0267 1.5764 0.0261 1.6025 0.0268 1.6042 0.0265 0.285 1.5805 0.0241 1.5810 0.0309 1.5986 0.0349 1.5230 0.0387 1.5704 0.0245 1.5736 0.0242 1.5989 0.0250 1.6023 0.0252 0.290 1.5785 0.0217 1.5793 0.0291 1.5965 0.0332 1.5230 0.0373 1.5675 0.0215 1.5709 0.0217 1.5954 0.0226 1.6005 0.0235 0.295 1.5765 0.0193 1.5776 0.0275 1.5945 0.0315 1.5230 0.0361 1.5647 0.0179 1.5683 0.0187 1.5922 0.0197 1.5986 0.0214 0.300 1.5747 0.0171 1.5760 0.0261 1.5925 0.0301 1.5230 0.0351 1.5621 0.0143 1.5659 0.0159 1.5891 0.0169 1.5968 0.0193 0.305 1.5729 0.0153 1.5744 0.0249 1.5906 0.0289 1.5230 0.0343 1.5597 0.0115 1.5636 0.0137 1.5862 0.0147 1.5950 0.0176 0.310 1.5711 0.0137 1.5729 0.0238 1.5888 0.0279 1.5230 0.0337 1.5574 0.0095 1.5615 0.0121 1.5834 0.0131 1.5932 0.0163 0.315 1.5694 0.0124 1.5715 0.0228 1.5869 0.0270 1.5230 0.0333 1.5553 0.0081 1.5594 0.0110 1.5808 0.0120 1.5914 0.0153 0.320 1.5678 0.0114 1.5700 0.0217 1.5852 0.0259 1.5231 0.0327 1.5532 0.0071 1.5575 0.0101 1.5783 0.0112 1.5897 0.0146 0.325 1.5662 0.0104 1.5686 0.0204 1.5835 0.0247 1.5231 0.0320 1.5513 0.0063 1.5556 0.0093 1.5759 0.0104 1.5880 0.0139 0.330 1.5646 0.0094 1.5673 0.0191 1.5818 0.0233 1.5231 0.0312 1.5494 0.0056 1.5538 0.0086 1.5736 0.0097 1.5863 0.0133 0.335 1.5632 0.0086 1.5660 0.0175 1.5802 0.0219 1.5231 0.0302 1.5477 0.0049 1.5522 0.0078 1.5714 0.0089 1.5847 0.0125 0.340 1.5617 0.0077 1.5647 0.0160 1.5786 0.0203 1.5231 0.0290 1.5461 0.0044 1.5506 0.0071 1.5693 0.0082 1.5831 0.0117 0.345 1.5603 0.0069 1.5635 0.0145 1.5771 0.0188 1.5231 0.0277 1.5445 0.0038 1.5490 0.0064 1.5673 0.0074 1.5815 0.0108 0.350 1.5590 0.0062 1.5624 0.0132 1.5756 0.0173 1.5231 0.0263 1.5430 0.0034 1.5476 0.0057 1.5654 0.0066 1.5800 0.0099 0.355 1.5577 0.0055 1.5612 0.0119 1.5741 0.0158 1.5231 0.0247 1.5416 0.0030 1.5462 0.0051 1.5636 0.0059 1.5785 0.0090 0.360 1.5564 0.0050 1.5601 0.0107 1.5727 0.0146 1.5231 0.0234 1.5403 0.0027 1.5448 0.0045 1.5618 0.0053 1.5771 0.0083 0.365 1.5552 0.0044 1.5590 0.0096 1.5714 0.0132 1.5231 0.0219 1.5390 0.0023 1.5436 0.0039 1.5601 0.0047 1.5757 0.0074 0.370 1.5541 0.0039 1.5580 0.0086 1.5701 0.0120 1.5231 0.0206 1.5378 0.0020 1.5423 0.0034 1.5585 0.0041 1.5743 0.0067 0.375 1.5529 0.0035 1.5570 0.0077 1.5688 0.0109 1.5231 0.0195 1.5366 0.0018 1.5412 0.0029 1.5570 0.0037 1.5729 0.0060 0.380 1.5518 0.0031 1.5560 0.0069 1.5676 0.0100 1.5231 0.0187 1.5355 0.0016 1.5400 0.0026 1.5555 0.0032 1.5716 0.0054 0.385 1.5507 0.0027 1.5551 0.0062 1.5664 0.0091 1.5231 0.0178 1.5344 0.0014 1.5390 0.0022 1.5541 0.0028 1.5704 0.0049 0.390 1.5497 0.0024 1.5542 0.0056 1.5652 0.0083 1.5232 0.0169 1.5334 0.0012 1.5379 0.0019 1.5527 0.0025 1.5691 0.0044 0.395 1.5487 0.0022 1.5533 0.0050 1.5641 0.0077 1.5232 0.0163 1.5325 0.0010 1.5369 0.0016 1.5514 0.0021 1.5679 0.0039 0.400 1.5477 0.0020 1.5524 0.0046 1.5630 0.0071 1.5232 0.0158 1.5315 0.0009 1.5360 0.0014 1.5501 0.0018 1.5667 0.0034 0.405 1.5468 0.0017 1.5516 0.0041 1.5619 0.0066 1.5232 0.0153 1.5306 0.0008 1.5351 0.0012 1.5489 0.0016 1.5656 0.0030 0.410 1.5459 0.0016 1.5508 0.0037 1.5609 0.0060 1.5232 0.0144 1.5298 0.0007 1.5342 0.0010 1.5477 0.0014 1.5645 0.0026 0.415 1.5450 0.0014 1.5500 0.0034 1.5599 0.0056 1.5232 0.0139 1.5290 0.0006 1.5333 0.0008 1.5466 0.0012 1.5634 0.0023 0.420 1.5442 0.0013 1.5492 0.0031 1.5589 0.0052 1.5232 0.0134 1.5282 0.0006 1.5325 0.0007 1.5455 0.0010 1.5623 0.0021 0.425 1.5433 0.0012 1.5485 0.0028 1.5579 0.0048 1.5232 0.0129 1.5274 0.0005 1.5317 0.0006 1.5445 0.0008 1.5613 0.0018 0.430 1.5425 0.0011 1.5478 0.0026 1.5570 0.0047 1.5232 0.0126 1.5267 0.0005 1.5310 0.0005 1.5434 0.0007 1.5603 0.0016 0.435 1.5417 0.0010 1.5471 0.0023 1.5561 0.0041 1.5232 0.0116 1.5260 0.0005 1.5302 0.0005 1.5425 0.0006 1.5593 0.0014 0.440 1.5410 0.0010 1.5464 0.0021 1.5553 0.0038 1.5232 0.0113 1.5253 0.0004 1.5295 0.0004 1.5415 0.0005 1.5583 0.0012 0.445 1.5402 0.0009 1.5457 0.0019 1.5544 0.0035 1.5232 0.0107 1.5247 0.0004 1.5289 0.0004 1.5406 0.0004 1.5574 0.0011 0.450 1.5395 0.0008 1.5451 0.0016 1.5536 0.0031 1.5232 0.0098 1.5241 0.0004 1.5282 0.0003 1.5397 0.0004 1.5565 0.0009 0.455 1.5388 0.0008 1.5445 0.0014 1.5528 0.0027 1.5232 0.0089 1.5235 0.0003 1.5276 0.0002 1.5389 0.0003 1.5556 0.0009 0.460 1.5382 0.0008 1.5439 0.0012 1.5520 0.0025 1.5232 0.0081 1.5229 0.0003 1.5269 0.0002 1.5380 0.0002 1.5548 0.0007 0.465 1.5375 0.0008 1.5433 0.0011 1.5513 0.0022 1.5232 0.0075 1.5223 0.0003 1.5264 0.0002 1.5372 0.0002 1.5539 0.0007 0.470 1.5369 0.0007 1.5427 0.0008 1.5505 0.0017 1.5232 0.0063 1.5218 0.0002 1.5258 0.0001 1.5365 0.0002 1.5531 0.0006 0.475 1.5363 0.0007 1.5422 0.0007 1.5498 0.0015 1.5232 0.0059 1.5213 0.0002 1.5252 0.0001 1.5357 0.0001 1.5523 0.0005 0.480 1.5357 0.0007 1.5416 0.0006 1.5491 0.0013 1.5232 0.0054 1.5208 0.0002 1.5247 0.0001 1.5350 0.0001 1.5515 0.0004 0.485 1.5351 0.0007 1.5411 0.0004 1.5485 0.0012 1.5232 0.0053 1.5203 0.0002 1.5242 0.0000 1.5343 0.0002 1.5508 0.0004 0.490 1.5345 0.0006 1.5406 0.0003 1.5478 0.0010 1.5232 0.0045 1.5198 0.0002 1.5237 0.0000 1.5336 0.0000 1.5501 0.0003 0.495 1.5339 0.0005 1.5401 0.0002 1.5472 0.0007 1.5233 0.0039 1.5194 0.0002 1.5232 0.0000 1.5330 0.0000 1.5493 0.0003 0.500 1.5334 0.0006 1.5396 0.0001 1.5465 0.0006 1.5233 0.0034 1.5189 0.0001 1.5227 0.0000 1.5323 0.0000 1.5486 0.0003 0.505 1.5329 0.0005 1.5392 0.0000 1.5459 0.0004 1.5233 0.0029 1.5185 0.0001 1.5222 0.0000 1.5317 0.0000 1.5480 0.0002 0.510 1.5324 0.0005 1.5387 0.0000 1.5453 0.0003 1.5233 0.0023 1.5181 0.0001 1.5218 0.0000 1.5311 0.0000 1.5473 0.0002 0.515 1.5319 0.0004 1.5383 0.0000 1.5448 0.0001 1.5233 0.0017 1.5177 0.0001 1.5214 0.0000 1.5305 0.0000 1.5466 0.0002 0.520 1.5314 0.0004 1.5378 0.0000 1.5442 0.0000 1.5233 0.0013 1.5173 0.0001 1.5209 0.0000 1.5299 0.0000 1.5460 0.0001 0.525 1.5309 0.0004 1.5374 0.0000 1.5436 0.0000 1.5233 0.0010 1.5169 0.0001 1.5205 0.0000 1.5294 0.0000 1.5454 0.0001 0.530 1.5305 0.0003 1.5370 0.0000 1.5431 0.0000 1.5233 0.0008 1.5166 0.0001 1.5201 0.0000 1.5288 0.0000 1.5448 0.0001 0.535 1.5300 0.0003 1.5366 0.0000 1.5426 0.0000 1.5233 0.0007 1.5162 0.0001 1.5198 0.0000 1.5283 0.0000 1.5442 0.0001 0.540 1.5296 0.0004 1.5362 0.0000 1.5421 0.0000 1.5233 0.0005 1.5159 0.0001 1.5194 0.0000 1.5278 0.0000 1.5436 0.0001 0.545 1.5292 0.0003 1.5358 0.0000 1.5416 0.0000 1.5233 0.0004 1.5156 0.0001 1.5190 0.0000 1.5273 0.0000 1.5431 0.0001 0.550 1.5287 0.0003 1.5354 0.0000 1.5411 0.0000 1.5233 0.0004 1.5152 0.0001 1.5187 0.0000 1.5268 0.0000 1.5425 0.0001 0.555 1.5283 0.0003 1.5351 0.0000 1.5406 0.0000 1.5233 0.0004 1.5149 0.0001 1.5183 0.0000 1.5264 0.0000 1.5420 0.0001 0.560 1.5279 0.0003 1.5347 0.0000 1.5402 0.0000 1.5233 0.0003 1.5146 0.0001 1.5180 0.0000 1.5259 0.0000 1.5415 0.0001 0.565 1.5276 0.0003 1.5344 0.0000 1.5397 0.0000 1.5233 0.0003 1.5143 0.0001 1.5177 0.0000 1.5255 0.0000 1.5410 0.0001 0.570 1.5272 0.0003 1.5340 0.0000 1.5393 0.0000 1.5233 0.0003 1.5141 0.0001 1.5174 0.0000 1.5251 0.0000 1.5405 0.0001 0.575 1.5268 0.0003 1.5337 0.0000 1.5389 0.0000 1.5233 0.0003 1.5138 0.0001 1.5171 0.0000 1.5246 0.0000 1.5400 0.0001 0.580 1.5265 0.0003 1.5334 0.0000 1.5384 0.0000 1.5233 0.0003 1.5135 0.0001 1.5168 0.0000 1.5242 0.0000 1.5395 0.0001 0.585 1.5261 0.0003 1.5331 0.0000 1.5380 0.0000 1.5233 0.0003 1.5133 0.0001 1.5165 0.0000 1.5238 0.0000 1.5390 0.0001 0.590 1.5258 0.0003 1.5328 0.0000 1.5376 0.0000 1.5233 0.0003 1.5130 0.0001 1.5162 0.0000 1.5234 0.0000 1.5386 0.0001 0.595 1.5254 0.0003 1.5325 0.0000 1.5372 0.0000 1.5233 0.0003 1.5128 0.0001 1.5159 0.0000 1.5231 0.0000 1.5381 0.0001 0.600 1.5251 0.0003 1.5322 0.0000 1.5369 0.0000 1.5233 0.0003 1.5125 0.0001 1.5156 0.0000 1.5227 0.0000 1.5377 0.0001 0.605 1.5248 0.0003 1.5319 0.0000 1.5365 0.0000 1.5233 0.0003 1.5123 0.0001 1.5154 0.0000 1.5223 0.0000 1.5373 0.0001 0.610 1.5245 0.0003 1.5316 0.0000 1.5361 0.0000 1.5233 0.0003 1.5120 0.0001 1.5151 0.0000 1.5220 0.0000 1.5369 0.0001 0.615 1.5242 0.0003 1.5314 0.0000 1.5358 0.0000 1.5233 0.0003 1.5118 0.0001 1.5149 0.0000 1.5216 0.0000 1.5365 0.0001 0.620 1.5239 0.0003 1.5311 0.0000 1.5354 0.0000 1.5233 0.0003 1.5116 0.0001 1.5146 0.0000 1.5213 0.0000 1.5361 0.0001 0.625 1.5236 0.0003 1.5308 0.0000 1.5351 0.0000 1.5233 0.0003 1.5114 0.0001 1.5144 0.0000 1.5210 0.0000 1.5357 0.0001 0.630 1.5233 0.0003 1.5306 0.0000 1.5348 0.0000 1.5233 0.0003 1.5112 0.0001 1.5142 0.0000 1.5207 0.0000 1.5353 0.0001 0.635 1.5231 0.0003 1.5303 0.0000 1.5344 0.0000 1.5233 0.0003 1.5110 0.0001 1.5139 0.0000 1.5204 0.0000 1.5349 0.0001 0.640 1.5228 0.0003 1.5301 0.0000 1.5341 0.0000 1.5233 0.0003 1.5108 0.0001 1.5137 0.0000 1.5201 0.0000 1.5346 0.0001 0.645 1.5225 0.0003 1.5298 0.0000 1.5338 0.0000 1.5233 0.0003 1.5106 0.0001 1.5135 0.0000 1.5198 0.0000 1.5342 0.0001 0.650 1.5223 0.0003 1.5296 0.0000 1.5335 0.0000 1.5233 0.0003 1.5104 0.0001 1.5133 0.0000 1.5195 0.0000 1.5339 0.0001 0.655 1.5220 0.0003 1.5294 0.0000 1.5332 0.0000 1.5233 0.0003 1.5102 0.0001 1.5131 0.0000 1.5192 0.0000 1.5335 0.0001 0.660 1.5218 0.0003 1.5292 0.0000 1.5329 0.0000 1.5233 0.0003 1.5101 0.0001 1.5129 0.0000 1.5189 0.0000 1.5332 0.0001 0.665 1.5215 0.0003 1.5289 0.0000 1.5326 0.0000 1.5233 0.0003 1.5099 0.0001 1.5127 0.0000 1.5186 0.0000 1.5329 0.0001 0.670 1.5213 0.0003 1.5287 0.0000 1.5324 0.0000 1.5233 0.0003 1.5097 0.0001 1.5125 0.0000 1.5184 0.0000 1.5325 0.0001 0.675 1.5211 0.0003 1.5285 0.0000 1.5321 0.0000 1.5233 0.0003 1.5095 0.0001 1.5123 0.0000 1.5181 0.0000 1.5322 0.0001 0.680 1.5208 0.0003 1.5283 0.0000 1.5318 0.0000 1.5233 0.0003 1.5094 0.0001 1.5121 0.0000 1.5179 0.0000 1.5319 0.0001 0.685 1.5206 0.0003 1.5281 0.0000 1.5315 0.0000 1.5233 0.0003 1.5092 0.0001 1.5120 0.0000 1.5176 0.0000 1.5316 0.0001 0.690 1.5204 0.0003 1.5279 0.0000 1.5313 0.0000 1.5233 0.0003 1.5091 0.0001 1.5118 0.0000 1.5174 0.0000 1.5313 0.0001 0.695 1.5202 0.0003 1.5277 0.0000 1.5310 0.0000 1.5233 0.0003 1.5089 0.0001 1.5116 0.0000 1.5171 0.0000 1.5310 0.0001 0.700 1.5200 0.0003 1.5275 0.0000 1.5308 0.0000 1.5233 0.0003 1.5088 0.0001 1.5114 0.0000 1.5169 0.0000 1.5308 0.0001 0.705 1.5198 0.0003 1.5274 0.0000 1.5306 0.0000 1.5233 0.0003 1.5086 0.0001 1.5113 0.0000 1.5167 0.0000 1.5305 0.0001 0.710 1.5196 0.0003 1.5272 0.0000 1.5303 0.0000 1.5233 0.0003 1.5085 0.0001 1.5111 0.0000 1.5165 0.0000 1.5302 0.0001 0.715 1.5194 0.0003 1.5270 0.0000 1.5301 0.0000 1.5233 0.0003 1.5084 0.0001 1.5110 0.0000 1.5163 0.0000 1.5299 0.0001 0.720 1.5192 0.0003 1.5268 0.0000 1.5299 0.0000 1.5233 0.0003 1.5082 0.0001 1.5108 0.0000 1.5160 0.0000 1.5297 0.0001 0.725 1.5190 0.0003 1.5267 0.0000 1.5296 0.0000 1.5233 0.0003 1.5081 0.0001 1.5107 0.0000 1.5158 0.0000 1.5294 0.0001 0.730 1.5188 0.0003 1.5265 0.0000 1.5294 0.0000 1.5234 0.0003 1.5080 0.0001 1.5105 0.0000 1.5156 0.0000 1.5292 0.0001 0.735 1.5186 0.0003 1.5263 0.0000 1.5292 0.0000 1.5234 0.0003 1.5078 0.0001 1.5104 0.0000 1.5154 0.0000 1.5289 0.0001 0.740 1.5184 0.0003 1.5262 0.0000 1.5290 0.0000 1.5234 0.0003 1.5077 0.0001 1.5102 0.0000 1.5152 0.0000 1.5287 0.0001 0.745 1.5183 0.0003 1.5260 0.0000 1.5288 0.0000 1.5234 0.0003 1.5076 0.0001 1.5101 0.0000 1.5150 0.0000 1.5284 0.0001 0.750 1.5181 0.0003 1.5258 0.0000 1.5286 0.0000 1.5234 0.0003 1.5075 0.0001 1.5099 0.0000 1.5149 0.0000 1.5282 0.0001 0.755 1.5179 0.0003 1.5257 0.0000 1.5284 0.0000 1.5234 0.0003 1.5074 0.0001 1.5098 0.0000 1.5147 0.0000 1.5280 0.0001 0.760 1.5178 0.0003 1.5255 0.0000 1.5282 0.0000 1.5234 0.0003 1.5072 0.0001 1.5097 0.0000 1.5145 0.0000 1.5277 0.0001 0.765 1.5176 0.0003 1.5254 0.0000 1.5280 0.0000 1.5234 0.0003 1.5071 0.0001 1.5096 0.0000 1.5143 0.0000 1.5275 0.0001 0.770 1.5174 0.0003 1.5253 0.0000 1.5278 0.0000 1.5234 0.0003 1.5070 0.0001 1.5094 0.0000 1.5141 0.0000 1.5273 0.0001 0.775 1.5173 0.0003 1.5251 0.0000 1.5276 0.0000 1.5234 0.0003 1.5069 0.0001 1.5093 0.0000 1.5140 0.0000 1.5271 0.0001 0.780 1.5171 0.0003 1.5250 0.0000 1.5274 0.0000 1.5234 0.0003 1.5068 0.0001 1.5092 0.0000 1.5138 0.0000 1.5269 0.0001 0.785 1.5170 0.0003 1.5248 0.0000 1.5273 0.0000 1.5234 0.0003 1.5067 0.0001 1.5091 0.0000 1.5136 0.0000 1.5267 0.0001 0.790 1.5168 0.0003 1.5247 0.0000 1.5271 0.0000 1.5234 0.0003 1.5066 0.0001 1.5090 0.0000 1.5135 0.0000 1.5265 0.0001 0.795 1.5167 0.0003 1.5246 0.0000 1.5269 0.0000 1.5234 0.0003 1.5065 0.0001 1.5088 0.0000 1.5133 0.0000 1.5263 0.0001 0.800 1.5165 0.0003 1.5245 0.0000 1.5268 0.0000 1.5234 0.0003 1.5064 0.0001 1.5087 0.0000 1.5132 0.0000 1.5261 0.0001 0.805 1.5164 0.0003 1.5243 0.0000 1.5266 0.0000 1.5234 0.0003 1.5063 0.0001 1.5086 0.0000 1.5130 0.0000 1.5259 0.0001 0.810 1.5163 0.0003 1.5242 0.0000 1.5264 0.0000 1.5234 0.0003 1.5062 0.0001 1.5085 0.0000 1.5129 0.0000 1.5257 0.0001 0.815 1.5161 0.0003 1.5241 0.0000 1.5263 0.0000 1.5234 0.0003 1.5061 0.0001 1.5084 0.0000 1.5127 0.0000 1.5255 0.0001 0.820 1.5160 0.0003 1.5240 0.0000 1.5261 0.0000 1.5234 0.0003 1.5060 0.0001 1.5083 0.0000 1.5126 0.0000 1.5253 0.0001 0.825 1.5159 0.0003 1.5238 0.0000 1.5260 0.0000 1.5234 0.0003 1.5060 0.0001 1.5082 0.0000 1.5124 0.0000 1.5252 0.0001 0.830 1.5157 0.0003 1.5237 0.0000 1.5258 0.0000 1.5234 0.0003 1.5059 0.0001 1.5081 0.0000 1.5123 0.0000 1.5250 0.0001 0.835 1.5156 0.0003 1.5236 0.0000 1.5257 0.0000 1.5234 0.0003 1.5058 0.0001 1.5080 0.0000 1.5122 0.0000 1.5248 0.0001 0.840 1.5155 0.0003 1.5235 0.0000 1.5255 0.0000 1.5234 0.0003 1.5057 0.0001 1.5079 0.0000 1.5120 0.0000 1.5246 0.0001 0.845 1.5154 0.0003 1.5234 0.0000 1.5254 0.0000 1.5234 0.0003 1.5056 0.0001 1.5078 0.0000 1.5119 0.0000 1.5245 0.0001 0.850 1.5153 0.0003 1.5233 0.0000 1.5252 0.0000 1.5234 0.0003 1.5055 0.0001 1.5077 0.0000 1.5118 0.0000 1.5243 0.0001 0.855 1.5151 0.0003 1.5232 0.0000 1.5251 0.0000 1.5234 0.0003 1.5055 0.0001 1.5076 0.0000 1.5117 0.0000 1.5242 0.0001 0.860 1.5150 0.0003 1.5231 0.0000 1.5249 0.0000 1.5234 0.0003 1.5054 0.0001 1.5075 0.0000 1.5115 0.0000 1.5240 0.0001 0.865 1.5149 0.0003 1.5230 0.0000 1.5248 0.0000 1.5234 0.0003 1.5053 0.0001 1.5075 0.0000 1.5114 0.0000 1.5238 0.0001 0.870 1.5148 0.0003 1.5229 0.0000 1.5247 0.0000 1.5234 0.0003 1.5052 0.0001 1.5074 0.0000 1.5113 0.0000 1.5237 0.0001 0.875 1.5147 0.0003 1.5228 0.0000 1.5246 0.0000 1.5234 0.0003 1.5052 0.0001 1.5073 0.0000 1.5112 0.0000 1.5235 0.0001 0.880 1.5146 0.0003 1.5227 0.0000 1.5244 0.0000 1.5234 0.0003 1.5051 0.0001 1.5072 0.0000 1.5111 0.0000 1.5234 0.0001 0.885 1.5145 0.0003 1.5226 0.0000 1.5243 0.0000 1.5234 0.0003 1.5050 0.0001 1.5071 0.0000 1.5109 0.0000 1.5232 0.0001 0.890 1.5144 0.0003 1.5225 0.0000 1.5242 0.0000 1.5234 0.0003 1.5050 0.0001 1.5070 0.0000 1.5108 0.0000 1.5231 0.0001 0.895 1.5143 0.0003 1.5224 0.0000 1.5241 0.0000 1.5234 0.0003 1.5049 0.0001 1.5070 0.0000 1.5107 0.0000 1.5230 0.0001 0.900 1.5142 0.0003 1.5223 0.0000 1.5239 0.0000 1.5234 0.0003 1.5048 0.0001 1.5069 0.0000 1.5106 0.0000 1.5228 0.0001 0.905 1.5141 0.0003 1.5222 0.0000 1.5238 0.0000 1.5234 0.0003 1.5048 0.0001 1.5068 0.0000 1.5105 0.0000 1.5227 0.0001 0.910 1.5140 0.0003 1.5221 0.0000 1.5237 0.0000 1.5234 0.0003 1.5047 0.0001 1.5067 0.0000 1.5104 0.0000 1.5225 0.0001 0.915 1.5139 0.0003 1.5220 0.0000 1.5236 0.0000 1.5234 0.0003 1.5046 0.0001 1.5067 0.0000 1.5103 0.0000 1.5224 0.0001 0.920 1.5138 0.0003 1.5220 0.0000 1.5235 0.0000 1.5234 0.0003 1.5046 0.0001 1.5066 0.0000 1.5102 0.0000 1.5223 0.0001 0.925 1.5137 0.0003 1.5219 0.0000 1.5234 0.0000 1.5234 0.0003 1.5045 0.0001 1.5065 0.0000 1.5101 0.0000 1.5222 0.0001 0.930 1.5136 0.0003 1.5218 0.0000 1.5233 0.0000 1.5234 0.0003 1.5044 0.0001 1.5064 0.0000 1.5100 0.0000 1.5220 0.0001 0.935 1.5135 0.0003 1.5217 0.0000 1.5231 0.0000 1.5234 0.0003 1.5044 0.0001 1.5064 0.0000 1.5099 0.0000 1.5219 0.0001 0.940 1.5134 0.0003 1.5216 0.0000 1.5230 0.0000 1.5234 0.0003 1.5043 0.0001 1.5063 0.0000 1.5098 0.0000 1.5218 0.0001 0.945 1.5133 0.0003 1.5215 0.0000 1.5229 0.0000 1.5234 0.0003 1.5043 0.0001 1.5062 0.0000 1.5097 0.0000 1.5217 0.0001 0.950 1.5132 0.0003 1.5215 0.0000 1.5228 0.0000 1.5234 0.0003 1.5042 0.0001 1.5062 0.0000 1.5096 0.0000 1.5215 0.0001 0.955 1.5132 0.0003 1.5214 0.0000 1.5227 0.0000 1.5234 0.0003 1.5042 0.0001 1.5061 0.0000 1.5095 0.0000 1.5214 0.0001 0.960 1.5131 0.0003 1.5213 0.0000 1.5226 0.0000 1.5234 0.0003 1.5041 0.0001 1.5060 0.0000 1.5094 0.0000 1.5213 0.0001 0.965 1.5130 0.0003 1.5212 0.0000 1.5225 0.0000 1.5234 0.0003 1.5040 0.0001 1.5060 0.0000 1.5094 0.0000 1.5212 0.0001 0.970 1.5129 0.0003 1.5212 0.0000 1.5224 0.0000 1.5234 0.0003 1.5040 0.0001 1.5059 0.0000 1.5093 0.0000 1.5211 0.0001 0.975 1.5128 0.0003 1.5211 0.0000 1.5224 0.0000 1.5234 0.0003 1.5039 0.0001 1.5059 0.0000 1.5092 0.0000 1.5210 0.0001 ================================================ FILE: UTIL/inline_phot_preproc/refractive_indices/IE_refractive_indices/Lui_2015_refractive_indices_mxylene_SOA_high_NOX.txt ================================================ MXYL_HIGH_NOX !P. F. Liu, N. Abdelmalki, H.-M. Hung, Y. Wang, W. H. Brune and S. T. Martin !Ultraviolet and visible complex refractive indices of secondary organic !material produced by photooxidation of the aromatic compounds toluene and m-xylene !Atmos. Chem. Phys., 15, 1435-1446, 2015 !www.atmos-chem-phys.net/15/1435/2015/ !doi:10.5194/acp-15-1435-2015 ! !Parameters for Cauchy's equation ! n(lambda(um)) = B + C /lambda**2 + D /lambda**4 !for the wavelength-dependent real refractive index n of toluene- and m-xylene-derived SOMs for !several initial NO (ppm) !A1 Toluene 0.0 1.505 7.57e-3 -1.17e-4 !A2 Toluene 2.5 1.514 6.87e-3 -1.16e-4 !A3 Toluene 5.0 1.513 9.07e-3 -1.72e-4 !A4 Toluene 10.0 1.519 1.03e-2 -2.91e-4 !B1 m-Xylene 0.0 1.499 4.59e-3 9.84e-5 !B2 m-Xylene 2.5 1.500 5.53e-3 3.63e-5 !B3 m-Xylene 5.0 1.501 7.77e-3 1.45e-5 !B4 m-Xylene 10.0 1.510 1.07e-2 -2.60e-4 ! !Notes: Below 280 nm, the imaginary part, k, is extrapolted using the angstrom exponent derived from values at 275 and !280 nm. Above 580 nm, k is set to value at 560 nm, the angstrom exponent is set to zero. ! ! !Wvl MXy_B4 MXy_B4 !(um) m k 0.150 1.6189 0.0600 0.210 1.6189 0.0600 0.220 1.6201 0.0526 0.230 1.6194 0.0463 0.240 1.6174 0.0411 0.250 1.6146 0.0366 0.260 1.6114 0.0327 0.270 1.6079 0.0294 0.280 1.6042 0.0265 0.285 1.6023 0.0252 0.290 1.6005 0.0235 0.295 1.5986 0.0214 0.300 1.5968 0.0193 0.305 1.5950 0.0176 0.310 1.5932 0.0163 0.315 1.5914 0.0153 0.320 1.5897 0.0146 0.325 1.5880 0.0139 0.330 1.5863 0.0133 0.335 1.5847 0.0125 0.340 1.5831 0.0117 0.345 1.5815 0.0108 0.350 1.5800 0.0099 0.355 1.5785 0.0090 0.360 1.5771 0.0083 0.365 1.5757 0.0074 0.370 1.5743 0.0067 0.375 1.5729 0.0060 0.380 1.5716 0.0054 0.385 1.5704 0.0049 0.390 1.5691 0.0044 0.395 1.5679 0.0039 0.400 1.5667 0.0034 0.405 1.5656 0.0030 0.410 1.5645 0.0026 0.415 1.5634 0.0023 0.420 1.5623 0.0021 0.425 1.5613 0.0018 0.430 1.5603 0.0016 0.435 1.5593 0.0014 0.440 1.5583 0.0012 0.445 1.5574 0.0011 0.450 1.5565 0.0009 0.455 1.5556 0.0009 0.460 1.5548 0.0007 0.465 1.5539 0.0007 0.470 1.5531 0.0006 0.475 1.5523 0.0005 0.480 1.5515 0.0004 0.485 1.5508 0.0004 0.490 1.5501 0.0003 0.495 1.5493 0.0003 0.500 1.5486 0.0003 0.505 1.5480 0.0002 0.510 1.5473 0.0002 0.515 1.5466 0.0002 0.520 1.5460 0.0001 0.525 1.5454 0.0001 0.530 1.5448 0.0001 0.535 1.5442 0.0001 0.540 1.5436 0.0001 0.545 1.5431 0.0001 0.550 1.5425 0.0001 0.555 1.5420 0.0001 0.560 1.5415 0.0001 0.565 1.5410 0.0001 0.570 1.5405 0.0001 0.575 1.5400 0.0001 0.580 1.5395 0.0001 0.585 1.5390 0.0001 0.590 1.5386 0.0001 0.595 1.5381 0.0001 0.600 1.5377 0.0001 0.605 1.5373 0.0001 0.610 1.5369 0.0001 0.615 1.5365 0.0001 0.620 1.5361 0.0001 0.625 1.5357 0.0001 0.630 1.5353 0.0001 0.635 1.5349 0.0001 0.640 1.5346 0.0001 0.645 1.5342 0.0001 0.650 1.5339 0.0001 0.655 1.5335 0.0001 0.660 1.5332 0.0001 0.665 1.5329 0.0001 0.670 1.5325 0.0001 0.675 1.5322 0.0001 0.680 1.5319 0.0001 0.685 1.5316 0.0001 0.690 1.5313 0.0001 0.695 1.5310 0.0001 0.700 1.5308 0.0001 0.705 1.5305 0.0001 0.710 1.5302 0.0001 0.715 1.5299 0.0001 0.720 1.5297 0.0001 0.725 1.5294 0.0001 0.730 1.5292 0.0001 0.735 1.5289 0.0001 0.740 1.5287 0.0001 0.745 1.5284 0.0001 0.750 1.5282 0.0001 0.755 1.5280 0.0001 0.760 1.5277 0.0001 0.765 1.5275 0.0001 0.770 1.5273 0.0001 0.775 1.5271 0.0001 0.780 1.5269 0.0001 0.785 1.5267 0.0001 0.790 1.5265 0.0001 0.795 1.5263 0.0001 0.800 1.5261 0.0001 0.805 1.5259 0.0001 0.810 1.5257 0.0001 0.815 1.5255 0.0001 0.820 1.5253 0.0001 0.825 1.5252 0.0001 0.830 1.5250 0.0001 0.835 1.5248 0.0001 0.840 1.5246 0.0001 0.845 1.5245 0.0001 0.850 1.5243 0.0001 0.855 1.5242 0.0001 0.860 1.5240 0.0001 0.865 1.5238 0.0001 0.870 1.5237 0.0001 0.875 1.5235 0.0001 0.880 1.5234 0.0001 0.885 1.5232 0.0001 0.890 1.5231 0.0001 0.895 1.5230 0.0001 0.900 1.5228 0.0001 0.905 1.5227 0.0001 0.910 1.5225 0.0001 0.915 1.5224 0.0001 0.920 1.5223 0.0001 0.925 1.5222 0.0001 0.930 1.5220 0.0001 0.935 1.5219 0.0001 0.940 1.5218 0.0001 0.945 1.5217 0.0001 0.950 1.5215 0.0001 0.955 1.5214 0.0001 0.960 1.5213 0.0001 0.965 1.5212 0.0001 0.970 1.5211 0.0001 0.975 1.5210 0.0001 ================================================ FILE: UTIL/inline_phot_preproc/refractive_indices/IE_refractive_indices/Lui_2015_refractive_indices_mxylene_SOA_low_NOX.txt ================================================ MXYL_LOW_NOX !P. F. Liu, N. Abdelmalki, H.-M. Hung, Y. Wang, W. H. Brune and S. T. Martin !Ultraviolet and visible complex refractive indices of secondary organic !material produced by photooxidation of the aromatic compounds toluene and m-xylene !Atmos. Chem. Phys., 15, 1435-1446, 2015 !www.atmos-chem-phys.net/15/1435/2015/ !doi:10.5194/acp-15-1435-2015 ! !Parameters for Cauchy's equation ! n(lambda(um)) = B + C /lambda**2 + D /lambda**4 !for the wavelength-dependent real refractive index n of toluene- and m-xylene-derived SOMs !for several initial NO (ppm) !A1 Toluene 0.0 1.505 7.57e-3 -1.17e-4 !A2 Toluene 2.5 1.514 6.87e-3 -1.16e-4 !A3 Toluene 5.0 1.513 9.07e-3 -1.72e-4 !A4 Toluene 10.0 1.519 1.03e-2 -2.91e-4 !B1 m-Xylene 0.0 1.499 4.59e-3 9.84e-5 !B2 m-Xylene 2.5 1.500 5.53e-3 3.63e-5 !B3 m-Xylene 5.0 1.501 7.77e-3 1.45e-5 !B4 m-Xylene 10.0 1.510 1.07e-2 -2.60e-4 ! !Notes: Below 280 nm, the imaginary part, k, is extrapolted using the angstrom exponent derived from values at 275 and !280 nm. Above 580 nm, k is set to value at 560 nm, the angstrom exponent is set to zero. ! ! !Wvl MXy_B1 MXy_B1 !(um) m k 0.150 1.6537 0.1080 0.210 1.6537 0.1080 0.220 1.6358 0.0862 0.230 1.6209 0.0694 0.240 1.6083 0.0565 0.250 1.5976 0.0463 0.260 1.5884 0.0383 0.270 1.5805 0.0319 0.280 1.5736 0.0267 0.285 1.5704 0.0245 0.290 1.5675 0.0215 0.295 1.5647 0.0179 0.300 1.5621 0.0143 0.305 1.5597 0.0115 0.310 1.5574 0.0095 0.315 1.5553 0.0081 0.320 1.5532 0.0071 0.325 1.5513 0.0063 0.330 1.5494 0.0056 0.335 1.5477 0.0049 0.340 1.5461 0.0044 0.345 1.5445 0.0038 0.350 1.5430 0.0034 0.355 1.5416 0.0030 0.360 1.5403 0.0027 0.365 1.5390 0.0023 0.370 1.5378 0.0020 0.375 1.5366 0.0018 0.380 1.5355 0.0016 0.385 1.5344 0.0014 0.390 1.5334 0.0012 0.395 1.5325 0.0010 0.400 1.5315 0.0009 0.405 1.5306 0.0008 0.410 1.5298 0.0007 0.415 1.5290 0.0006 0.420 1.5282 0.0006 0.425 1.5274 0.0005 0.430 1.5267 0.0005 0.435 1.5260 0.0005 0.440 1.5253 0.0004 0.445 1.5247 0.0004 0.450 1.5241 0.0004 0.455 1.5235 0.0003 0.460 1.5229 0.0003 0.465 1.5223 0.0003 0.470 1.5218 0.0002 0.475 1.5213 0.0002 0.480 1.5208 0.0002 0.485 1.5203 0.0002 0.490 1.5198 0.0002 0.495 1.5194 0.0002 0.500 1.5189 0.0001 0.505 1.5185 0.0001 0.510 1.5181 0.0001 0.515 1.5177 0.0001 0.520 1.5173 0.0001 0.525 1.5169 0.0001 0.530 1.5166 0.0001 0.535 1.5162 0.0001 0.540 1.5159 0.0001 0.545 1.5156 0.0001 0.550 1.5152 0.0001 0.555 1.5149 0.0001 0.560 1.5146 0.0001 0.565 1.5143 0.0001 0.570 1.5141 0.0001 0.575 1.5138 0.0001 0.580 1.5135 0.0001 0.585 1.5133 0.0001 0.590 1.5130 0.0001 0.595 1.5128 0.0001 0.600 1.5125 0.0001 0.605 1.5123 0.0001 0.610 1.5120 0.0001 0.615 1.5118 0.0001 0.620 1.5116 0.0001 0.625 1.5114 0.0001 0.630 1.5112 0.0001 0.635 1.5110 0.0001 0.640 1.5108 0.0001 0.645 1.5106 0.0001 0.650 1.5104 0.0001 0.655 1.5102 0.0001 0.660 1.5101 0.0001 0.665 1.5099 0.0001 0.670 1.5097 0.0001 0.675 1.5095 0.0001 0.680 1.5094 0.0001 0.685 1.5092 0.0001 0.690 1.5091 0.0001 0.695 1.5089 0.0001 0.700 1.5088 0.0001 0.705 1.5086 0.0001 0.710 1.5085 0.0001 0.715 1.5084 0.0001 0.720 1.5082 0.0001 0.725 1.5081 0.0001 0.730 1.5080 0.0001 0.735 1.5078 0.0001 0.740 1.5077 0.0001 0.745 1.5076 0.0001 0.750 1.5075 0.0001 0.755 1.5074 0.0001 0.760 1.5072 0.0001 0.765 1.5071 0.0001 0.770 1.5070 0.0001 0.775 1.5069 0.0001 0.780 1.5068 0.0001 0.785 1.5067 0.0001 0.790 1.5066 0.0001 0.795 1.5065 0.0001 0.800 1.5064 0.0001 0.805 1.5063 0.0001 0.810 1.5062 0.0001 0.815 1.5061 0.0001 0.820 1.5060 0.0001 0.825 1.5060 0.0001 0.830 1.5059 0.0001 0.835 1.5058 0.0001 0.840 1.5057 0.0001 0.845 1.5056 0.0001 0.850 1.5055 0.0001 0.855 1.5055 0.0001 0.860 1.5054 0.0001 0.865 1.5053 0.0001 0.870 1.5052 0.0001 0.875 1.5052 0.0001 0.880 1.5051 0.0001 0.885 1.5050 0.0001 0.890 1.5050 0.0001 0.895 1.5049 0.0001 0.900 1.5048 0.0001 0.905 1.5048 0.0001 0.910 1.5047 0.0001 0.915 1.5046 0.0001 0.920 1.5046 0.0001 0.925 1.5045 0.0001 0.930 1.5044 0.0001 0.935 1.5044 0.0001 0.940 1.5043 0.0001 0.945 1.5043 0.0001 0.950 1.5042 0.0001 0.955 1.5042 0.0001 0.960 1.5041 0.0001 0.965 1.5040 0.0001 0.970 1.5040 0.0001 0.975 1.5039 0.0001 ================================================ FILE: UTIL/inline_phot_preproc/refractive_indices/IE_refractive_indices/Lui_2015_refractive_indices_toluene_SOA_high_NOX.txt ================================================ TOLU_HIGH_NOX !P. F. Liu, N. Abdelmalki, H.-M. Hung, Y. Wang, W. H. Brune and S. T. Martin !Ultraviolet and visible complex refractive indices of secondary organic !material produced by photooxidation of the aromatic compounds toluene and m-xylene !Atmos. Chem. Phys., 15, 1435-1446, 2015 !www.atmos-chem-phys.net/15/1435/2015/ !doi:10.5194/acp-15-1435-2015 ! !Parameters for Cauchy's equation ! n(lambda(um)) = B + C /lambda**2 + D /lambda**4 !for the wavelength-dependent real refractive index n of toluene- and m-xylene-derived SOMs for several initial NO (ppm) !A1 Toluene 0.0 1.505 7.57e-3 -1.17e-4 !A2 Toluene 2.5 1.514 6.87e-3 -1.16e-4 !A3 Toluene 5.0 1.513 9.07e-3 -1.72e-4 !A4 Toluene 10.0 1.519 1.03e-2 -2.91e-4 !B1 m-Xylene 0.0 1.499 4.59e-3 9.84e-5 !B2 m-Xylene 2.5 1.500 5.53e-3 3.63e-5 !B3 m-Xylene 5.0 1.501 7.77e-3 1.45e-5 !B4 m-Xylene 10.0 1.510 1.07e-2 -2.60e-4 ! !Notes: Below 280 nm, the imaginary part, k, is extrapolted using the angstrom exponent derived from values at 275 and !280 nm. Above 580 nm, k is set to value at 560 nm, the angstrom exponent is set to zero. ! ! !Wvl Tol_A4 Tol_A4 !(um) m k 0.150 1.6029 0.0684 0.210 1.6029 0.0684 0.220 1.6076 0.0627 0.230 1.6097 0.0577 0.240 1.6101 0.0533 0.250 1.6093 0.0494 0.260 1.6077 0.0459 0.270 1.6055 0.0428 0.280 1.6030 0.0400 0.285 1.5230 0.0387 0.290 1.5230 0.0373 0.295 1.5230 0.0361 0.300 1.5230 0.0351 0.305 1.5230 0.0343 0.310 1.5230 0.0337 0.315 1.5230 0.0333 0.320 1.5231 0.0327 0.325 1.5231 0.0320 0.330 1.5231 0.0312 0.335 1.5231 0.0302 0.340 1.5231 0.0290 0.345 1.5231 0.0277 0.350 1.5231 0.0263 0.355 1.5231 0.0247 0.360 1.5231 0.0234 0.365 1.5231 0.0219 0.370 1.5231 0.0206 0.375 1.5231 0.0195 0.380 1.5231 0.0187 0.385 1.5231 0.0178 0.390 1.5232 0.0169 0.395 1.5232 0.0163 0.400 1.5232 0.0158 0.405 1.5232 0.0153 0.410 1.5232 0.0144 0.415 1.5232 0.0139 0.420 1.5232 0.0134 0.425 1.5232 0.0129 0.430 1.5232 0.0126 0.435 1.5232 0.0116 0.440 1.5232 0.0113 0.445 1.5232 0.0107 0.450 1.5232 0.0098 0.455 1.5232 0.0089 0.460 1.5232 0.0081 0.465 1.5232 0.0075 0.470 1.5232 0.0063 0.475 1.5232 0.0059 0.480 1.5232 0.0054 0.485 1.5232 0.0053 0.490 1.5232 0.0045 0.495 1.5233 0.0039 0.500 1.5233 0.0034 0.505 1.5233 0.0029 0.510 1.5233 0.0023 0.515 1.5233 0.0017 0.520 1.5233 0.0013 0.525 1.5233 0.0010 0.530 1.5233 0.0008 0.535 1.5233 0.0007 0.540 1.5233 0.0005 0.545 1.5233 0.0004 0.550 1.5233 0.0004 0.555 1.5233 0.0004 0.560 1.5233 0.0003 0.565 1.5233 0.0003 0.570 1.5233 0.0003 0.575 1.5233 0.0003 0.580 1.5233 0.0003 0.585 1.5233 0.0003 0.590 1.5233 0.0003 0.595 1.5233 0.0003 0.600 1.5233 0.0003 0.605 1.5233 0.0003 0.610 1.5233 0.0003 0.615 1.5233 0.0003 0.620 1.5233 0.0003 0.625 1.5233 0.0003 0.630 1.5233 0.0003 0.635 1.5233 0.0003 0.640 1.5233 0.0003 0.645 1.5233 0.0003 0.650 1.5233 0.0003 0.655 1.5233 0.0003 0.660 1.5233 0.0003 0.665 1.5233 0.0003 0.670 1.5233 0.0003 0.675 1.5233 0.0003 0.680 1.5233 0.0003 0.685 1.5233 0.0003 0.690 1.5233 0.0003 0.695 1.5233 0.0003 0.700 1.5233 0.0003 0.705 1.5233 0.0003 0.710 1.5233 0.0003 0.715 1.5233 0.0003 0.720 1.5233 0.0003 0.725 1.5233 0.0003 0.730 1.5234 0.0003 0.735 1.5234 0.0003 0.740 1.5234 0.0003 0.745 1.5234 0.0003 0.750 1.5234 0.0003 0.755 1.5234 0.0003 0.760 1.5234 0.0003 0.765 1.5234 0.0003 0.770 1.5234 0.0003 0.775 1.5234 0.0003 0.780 1.5234 0.0003 0.785 1.5234 0.0003 0.790 1.5234 0.0003 0.795 1.5234 0.0003 0.800 1.5234 0.0003 0.805 1.5234 0.0003 0.810 1.5234 0.0003 0.815 1.5234 0.0003 0.820 1.5234 0.0003 0.825 1.5234 0.0003 0.830 1.5234 0.0003 0.835 1.5234 0.0003 0.840 1.5234 0.0003 0.845 1.5234 0.0003 0.850 1.5234 0.0003 0.855 1.5234 0.0003 0.860 1.5234 0.0003 0.865 1.5234 0.0003 0.870 1.5234 0.0003 0.875 1.5234 0.0003 0.880 1.5234 0.0003 0.885 1.5234 0.0003 0.890 1.5234 0.0003 0.895 1.5234 0.0003 0.900 1.5234 0.0003 0.905 1.5234 0.0003 0.910 1.5234 0.0003 0.915 1.5234 0.0003 0.920 1.5234 0.0003 0.925 1.5234 0.0003 0.930 1.5234 0.0003 0.935 1.5234 0.0003 0.940 1.5234 0.0003 0.945 1.5234 0.0003 0.950 1.5234 0.0003 0.955 1.5234 0.0003 0.960 1.5234 0.0003 0.965 1.5234 0.0003 0.970 1.5234 0.0003 0.975 1.5234 0.0003 ================================================ FILE: UTIL/inline_phot_preproc/refractive_indices/IE_refractive_indices/Lui_2015_refractive_indices_toluene_SOA_low_NOX.txt ================================================ TOLU_LOW_NOX !P. F. Liu, N. Abdelmalki, H.-M. Hung, Y. Wang, W. H. Brune and S. T. Martin !Ultraviolet and visible complex refractive indices of secondary organic !material produced by photooxidation of the aromatic compounds toluene and m-xylene !Atmos. Chem. Phys., 15, 1435-1446, 2015 !www.atmos-chem-phys.net/15/1435/2015/ !doi:10.5194/acp-15-1435-2015 ! !Parameters for Cauchy's equation ! n(lambda(nm)) = B + C /lambda**2 + D /lambda**4 !for the wavelength-dependent real refractive index n of toluene- and m-xylene-derived SOMs for several initial NO (ppm) !A1 Toluene 0.0 1.505 7.57e-3 -1.17e-4 !A2 Toluene 2.5 1.514 6.87e-3 -1.16e-4 !A3 Toluene 5.0 1.513 9.07e-3 -1.72e-4 !A4 Toluene 10.0 1.519 1.03e-2 -2.91e-4 !B1 m-Xylene 0.0 1.499 4.59e-3 9.84e-5 !B2 m-Xylene 2.5 1.500 5.53e-3 3.63e-5 !B3 m-Xylene 5.0 1.501 7.77e-3 1.45e-5 !B4 m-Xylene 10.0 1.510 1.07e-2 -2.60e-4 ! !Notes: Below 280 nm, the imaginary part, k, is extrapolted using the angstrom exponent derived from values at 275 and !280 nm. Above 580 nm, k is set to value at 560 nm, the angstrom exponent is set to zero. ! ! !Wvl Tol_A1 Tol_A1 !(um) m k 0.150 1.6165 0.1019 0.210 1.6165 0.1019 0.220 1.6115 0.0818 0.230 1.6063 0.0663 0.240 1.6012 0.0542 0.250 1.5962 0.0447 0.260 1.5914 0.0372 0.270 1.5868 0.0311 0.280 1.5825 0.0262 0.285 1.5805 0.0241 0.290 1.5785 0.0217 0.295 1.5765 0.0193 0.300 1.5747 0.0171 0.305 1.5729 0.0153 0.310 1.5711 0.0137 0.315 1.5694 0.0124 0.320 1.5678 0.0114 0.325 1.5662 0.0104 0.330 1.5646 0.0094 0.335 1.5632 0.0086 0.340 1.5617 0.0077 0.345 1.5603 0.0069 0.350 1.5590 0.0062 0.355 1.5577 0.0055 0.360 1.5564 0.0050 0.365 1.5552 0.0044 0.370 1.5541 0.0039 0.375 1.5529 0.0035 0.380 1.5518 0.0031 0.385 1.5507 0.0027 0.390 1.5497 0.0024 0.395 1.5487 0.0022 0.400 1.5477 0.0020 0.405 1.5468 0.0017 0.410 1.5459 0.0016 0.415 1.5450 0.0014 0.420 1.5442 0.0013 0.425 1.5433 0.0012 0.430 1.5425 0.0011 0.435 1.5417 0.0010 0.440 1.5410 0.0010 0.445 1.5402 0.0009 0.450 1.5395 0.0008 0.455 1.5388 0.0008 0.460 1.5382 0.0008 0.465 1.5375 0.0008 0.470 1.5369 0.0007 0.475 1.5363 0.0007 0.480 1.5357 0.0007 0.485 1.5351 0.0007 0.490 1.5345 0.0006 0.495 1.5339 0.0005 0.500 1.5334 0.0006 0.505 1.5329 0.0005 0.510 1.5324 0.0005 0.515 1.5319 0.0004 0.520 1.5314 0.0004 0.525 1.5309 0.0004 0.530 1.5305 0.0003 0.535 1.5300 0.0003 0.540 1.5296 0.0004 0.545 1.5292 0.0003 0.550 1.5287 0.0003 0.555 1.5283 0.0003 0.560 1.5279 0.0003 0.565 1.5276 0.0003 0.570 1.5272 0.0003 0.575 1.5268 0.0003 0.580 1.5265 0.0003 0.585 1.5261 0.0003 0.590 1.5258 0.0003 0.595 1.5254 0.0003 0.600 1.5251 0.0003 0.605 1.5248 0.0003 0.610 1.5245 0.0003 0.615 1.5242 0.0003 0.620 1.5239 0.0003 0.625 1.5236 0.0003 0.630 1.5233 0.0003 0.635 1.5231 0.0003 0.640 1.5228 0.0003 0.645 1.5225 0.0003 0.650 1.5223 0.0003 0.655 1.5220 0.0003 0.660 1.5218 0.0003 0.665 1.5215 0.0003 0.670 1.5213 0.0003 0.675 1.5211 0.0003 0.680 1.5208 0.0003 0.685 1.5206 0.0003 0.690 1.5204 0.0003 0.695 1.5202 0.0003 0.700 1.5200 0.0003 0.705 1.5198 0.0003 0.710 1.5196 0.0003 0.715 1.5194 0.0003 0.720 1.5192 0.0003 0.725 1.5190 0.0003 0.730 1.5188 0.0003 0.735 1.5186 0.0003 0.740 1.5184 0.0003 0.745 1.5183 0.0003 0.750 1.5181 0.0003 0.755 1.5179 0.0003 0.760 1.5178 0.0003 0.765 1.5176 0.0003 0.770 1.5174 0.0003 0.775 1.5173 0.0003 0.780 1.5171 0.0003 0.785 1.5170 0.0003 0.790 1.5168 0.0003 0.795 1.5167 0.0003 0.800 1.5165 0.0003 0.805 1.5164 0.0003 0.810 1.5163 0.0003 0.815 1.5161 0.0003 0.820 1.5160 0.0003 0.825 1.5159 0.0003 0.830 1.5157 0.0003 0.835 1.5156 0.0003 0.840 1.5155 0.0003 0.845 1.5154 0.0003 0.850 1.5153 0.0003 0.855 1.5151 0.0003 0.860 1.5150 0.0003 0.865 1.5149 0.0003 0.870 1.5148 0.0003 0.875 1.5147 0.0003 0.880 1.5146 0.0003 0.885 1.5145 0.0003 0.890 1.5144 0.0003 0.895 1.5143 0.0003 0.900 1.5142 0.0003 0.905 1.5141 0.0003 0.910 1.5140 0.0003 0.915 1.5139 0.0003 0.920 1.5138 0.0003 0.925 1.5137 0.0003 0.930 1.5136 0.0003 0.935 1.5135 0.0003 0.940 1.5134 0.0003 0.945 1.5133 0.0003 0.950 1.5132 0.0003 0.955 1.5132 0.0003 0.960 1.5131 0.0003 0.965 1.5130 0.0003 0.970 1.5129 0.0003 0.975 1.5128 0.0003 ================================================ FILE: UTIL/inline_phot_preproc/refractive_indices/IE_refractive_indices/nakayama_2018_isoprene_NOX_SOA_refractive_indices.txt ================================================ ISOP_NOX_SOA !Complex Refractive Index for Secondary Organic Aerosol from Isoprene !based on chamber cases with (1) isoprene, ozone, SO2 and (5) isoprene, ozone, and NOx ! !as described in ! Tomoki Nakayama, Kei Sato, Takashi Imamura, and Yutaka Matsumi (2018). ! Effect of Oxidation Process on Complex Refractive Index of Secondary Organic Aerosol Generated from Isoprene. ! Environmental Science & Technology 2018 52 (5), 2566-2574. DOI: 10.1021/acs.est.7b05852 ! ! real part calculated using a polynominal fit (Cauchy's Equation) based on observed ! in Table S5 of Nakayama et al. (2018) supporting info. ! ! Cauchy's equation m = a + b*wave^-2 + c*wave^-4, wave in nm ! For case, isoprene/O3/SO2: a = 1.360, b = 2.62E+04, c = -1.29E+09 ! for case, isoprene/O3/NOx: a = 1.417, b = -6.78E+03, c = 2.05E+09 ! ! imaginary part for k_so2 was calculated using the Angstrom exponents between the observed data values ! !Wave Interval, nm Angstrom Exponent ! 210 to 300 0.000 ! 300 to 375 14.680 ! 375 to 405 14.680 ! 405 to 532 3.106 ! 532 to 860 3.747 ! ! Note that values held constant below 300 nm because the shortest wavelength on data in 375 nm. !wl,um m_nox k_nox 0.150 1.594 0.0000 0.210 1.594 0.0000 0.215 1.594 0.0000 0.220 1.594 0.0000 0.225 1.594 0.0000 0.230 1.594 0.0000 0.235 1.594 0.0000 0.240 1.594 0.0000 0.245 1.594 0.0000 0.250 1.594 0.0000 0.255 1.594 0.0000 0.260 1.594 0.0000 0.265 1.594 0.0000 0.270 1.594 0.0000 0.275 1.594 0.0000 0.280 1.594 0.0000 0.285 1.594 0.0000 0.290 1.594 0.0000 0.295 1.594 0.0000 0.300 1.594 0.0000 0.305 1.581 0.0000 0.310 1.568 0.0000 0.315 1.557 0.0000 0.320 1.546 0.0000 0.325 1.536 0.0000 0.330 1.527 0.0000 0.335 1.519 0.0000 0.340 1.512 0.0000 0.345 1.505 0.0000 0.350 1.498 0.0000 0.355 1.492 0.0000 0.360 1.487 0.0000 0.365 1.481 0.0000 0.370 1.477 0.0000 0.375 1.472 0.0000 0.380 1.468 0.0000 0.385 1.464 0.0000 0.390 1.461 0.0000 0.395 1.458 0.0000 0.400 1.455 0.0000 0.405 1.452 0.0000 0.410 1.449 0.0000 0.415 1.447 0.0000 0.420 1.444 0.0000 0.425 1.442 0.0000 0.430 1.440 0.0000 0.435 1.438 0.0000 0.440 1.437 0.0000 0.445 1.435 0.0000 0.450 1.433 0.0000 0.455 1.432 0.0000 0.460 1.431 0.0000 0.465 1.429 0.0000 0.470 1.428 0.0000 0.475 1.427 0.0000 0.480 1.426 0.0000 0.485 1.425 0.0000 0.490 1.424 0.0000 0.495 1.423 0.0000 0.500 1.423 0.0000 0.505 1.422 0.0000 0.510 1.421 0.0000 0.515 1.421 0.0000 0.520 1.420 0.0000 0.525 1.419 0.0000 0.530 1.419 0.0000 0.535 1.418 0.0000 0.540 1.418 0.0000 0.545 1.417 0.0000 0.550 1.417 0.0000 0.555 1.417 0.0000 0.560 1.416 0.0000 0.565 1.416 0.0000 0.570 1.416 0.0000 0.575 1.415 0.0000 0.580 1.415 0.0000 0.585 1.415 0.0000 0.590 1.414 0.0000 0.595 1.414 0.0000 0.600 1.414 0.0000 0.605 1.414 0.0000 0.610 1.414 0.0000 0.615 1.413 0.0000 0.620 1.413 0.0000 0.625 1.413 0.0000 0.630 1.413 0.0000 0.635 1.413 0.0000 0.640 1.413 0.0000 0.645 1.413 0.0000 0.650 1.412 0.0000 0.655 1.412 0.0000 0.660 1.412 0.0000 0.665 1.412 0.0000 0.670 1.412 0.0000 0.675 1.412 0.0000 0.680 1.412 0.0000 0.685 1.412 0.0000 0.690 1.412 0.0000 0.695 1.412 0.0000 0.700 1.412 0.0000 0.705 1.412 0.0000 0.710 1.412 0.0000 0.715 1.412 0.0000 0.720 1.412 0.0000 0.725 1.412 0.0000 0.730 1.411 0.0000 0.735 1.411 0.0000 0.740 1.411 0.0000 0.745 1.411 0.0000 0.750 1.411 0.0000 0.755 1.411 0.0000 0.760 1.411 0.0000 0.765 1.411 0.0000 0.770 1.411 0.0000 0.775 1.411 0.0000 0.780 1.411 0.0000 0.785 1.411 0.0000 0.790 1.411 0.0000 0.795 1.411 0.0000 0.800 1.411 0.0000 0.805 1.411 0.0000 0.810 1.411 0.0000 0.815 1.411 0.0000 0.820 1.411 0.0000 0.825 1.411 0.0000 0.830 1.411 0.0000 0.835 1.411 0.0000 0.840 1.412 0.0000 0.845 1.412 0.0000 0.850 1.412 0.0000 0.855 1.412 0.0000 0.860 1.412 0.0000 3.000 1.412 0.0000 4.200 1.412 0.0000 ================================================ FILE: UTIL/inline_phot_preproc/refractive_indices/IE_refractive_indices/nakayama_2018_isoprene_SOX_SOA_refractive_indices.txt ================================================ ISOP_SULF_SOA !Complex Refractive Index for Secondary Organic Aerosol from Isoprene !based on chamber cases with (1) isoprene, ozone, SO2 and (5) isoprene, ozone, and NOx ! !as described in ! Tomoki Nakayama, Kei Sato, Takashi Imamura, and Yutaka Matsumi (2018). ! Effect of Oxidation Process on Complex Refractive Index of Secondary Organic Aerosol Generated from Isoprene. ! Environmental Science & Technology 2018 52 (5), 2566-2574. DOI: 10.1021/acs.est.7b05852 ! ! real part calculated using a polynominal fit (Cauchy's Equation) based on observed ! in Table S5 of Nakayama et al. (2018) supporting info. ! ! Cauchy's equation m = a + b*wave^-2 + c*wave^-4, wave in nm ! For case, isoprene/O3/SO2: a = 1.360, b = 2.62E+04, c = -1.29E+09 ! for case, isoprene/O3/NOx: a = 1.417, b = -6.78E+03, c = 2.05E+09 ! ! imaginary part for k_so2 was calculated using the Angstrom exponents between the observed data values ! !Wave Interval, nm Angstrom Exponent ! 210 to 300 0.000 ! 300 to 375 14.680 ! 375 to 405 14.680 ! 405 to 532 3.106 ! 532 to 860 3.747 ! ! Note that values held constant below 300 nm because the shortest wavelength on data in 375 nm. !wl,um m_so2 k_so2 0.150 1.488 0.0133 0.210 1.488 0.0133 0.215 1.488 0.0133 0.220 1.488 0.0133 0.225 1.488 0.0133 0.230 1.488 0.0133 0.235 1.488 0.0133 0.240 1.488 0.0133 0.245 1.488 0.0133 0.250 1.488 0.0133 0.255 1.488 0.0133 0.260 1.488 0.0133 0.265 1.488 0.0133 0.270 1.488 0.0133 0.275 1.488 0.0133 0.280 1.488 0.0133 0.285 1.488 0.0133 0.290 1.488 0.0133 0.295 1.488 0.0133 0.300 1.488 0.0133 0.305 1.489 0.0133 0.310 1.490 0.0133 0.315 1.490 0.0133 0.320 1.489 0.0133 0.325 1.489 0.0133 0.330 1.488 0.0133 0.335 1.488 0.0133 0.340 1.487 0.0133 0.345 1.486 0.0133 0.350 1.485 0.0133 0.355 1.483 0.0133 0.360 1.482 0.0133 0.365 1.481 0.0133 0.370 1.479 0.0133 0.375 1.478 0.0130 0.380 1.476 0.0126 0.385 1.475 0.0120 0.390 1.473 0.0115 0.395 1.472 0.0111 0.400 1.470 0.0106 0.405 1.469 0.0042 0.410 1.467 0.0040 0.415 1.465 0.0039 0.420 1.464 0.0037 0.425 1.462 0.0036 0.430 1.461 0.0034 0.435 1.459 0.0033 0.440 1.458 0.0032 0.445 1.456 0.0031 0.450 1.455 0.0030 0.455 1.453 0.0028 0.460 1.452 0.0027 0.465 1.450 0.0026 0.470 1.449 0.0026 0.475 1.448 0.0025 0.480 1.446 0.0024 0.485 1.445 0.0023 0.490 1.444 0.0022 0.495 1.442 0.0022 0.500 1.441 0.0021 0.505 1.440 0.0020 0.510 1.439 0.0019 0.515 1.437 0.0019 0.520 1.436 0.0018 0.525 1.435 0.0018 0.530 1.434 0.0017 0.535 1.433 0.0018 0.540 1.432 0.0017 0.545 1.430 0.0016 0.550 1.429 0.0016 0.555 1.428 0.0015 0.560 1.427 0.0015 0.565 1.426 0.0014 0.570 1.425 0.0014 0.575 1.424 0.0013 0.580 1.423 0.0013 0.585 1.422 0.0013 0.590 1.422 0.0012 0.595 1.421 0.0012 0.600 1.420 0.0011 0.605 1.419 0.0011 0.610 1.418 0.0011 0.615 1.417 0.0010 0.620 1.416 0.0010 0.625 1.416 0.0010 0.630 1.415 0.0010 0.635 1.414 0.0009 0.640 1.413 0.0009 0.645 1.412 0.0009 0.650 1.412 0.0008 0.655 1.411 0.0008 0.660 1.410 0.0008 0.665 1.410 0.0008 0.670 1.409 0.0008 0.675 1.408 0.0007 0.680 1.408 0.0007 0.685 1.407 0.0007 0.690 1.406 0.0007 0.695 1.406 0.0007 0.700 1.405 0.0006 0.705 1.404 0.0006 0.710 1.404 0.0006 0.715 1.403 0.0006 0.720 1.403 0.0006 0.725 1.402 0.0006 0.730 1.402 0.0005 0.735 1.401 0.0005 0.740 1.401 0.0005 0.745 1.400 0.0005 0.750 1.399 0.0005 0.755 1.399 0.0005 0.760 1.398 0.0005 0.765 1.398 0.0005 0.770 1.397 0.0005 0.775 1.397 0.0004 0.780 1.397 0.0004 0.785 1.396 0.0005 0.790 1.396 0.0005 0.795 1.395 0.0005 0.800 1.395 0.0005 0.805 1.394 0.0005 0.810 1.394 0.0005 0.815 1.393 0.0005 0.820 1.393 0.0005 0.825 1.393 0.0005 0.830 1.392 0.0005 0.835 1.392 0.0005 0.840 1.392 0.0005 0.845 1.391 0.0005 0.850 1.391 0.0005 0.855 1.390 0.0005 0.860 1.390 0.0005 ================================================ FILE: UTIL/inline_phot_preproc/refractive_indices/OPAC_water_clouds/inso00 ================================================ DUST ! Optical Parmeters of water-insoluble (dust) aerosol material ! consists mostly of soil particles with a certain amount of ! organic material. ! from file inso00 of ! Hess, M. P. Koepke, and I. Schult, Optical properties of ! aerosols and clouds: The software package OPAC, Bulletan of ! the American Meteorological Society, Vol 79, No 5, ! pp 831 - 844, May 1998. ! OPAC is a downloadable data set of optical properties of ! 10 aerosol components, 6 water clouds and 3 cirrus clouds ! at UV, visible and IR wavelengths ! www.lrz-muenchen.de/~uh234an/www/radaer/opac.htm ! size distribution: lognormal ! ------------------ ! minimum radius, [um]: 5.000E-03 ! maximum radius, [um]: 2.000E+01 ! sigma: 2.510E+00 ! Rmod (wet), [um]: 4.710E-01 ! Rmod (dry), [um]: 4.710E-01 ! optical parameters: ! ------------------- ! !wavelength ref.real ref.imag ext.coef sca.coef abs.coef si.sc.alb asym.par ext.nor ! [um] [1/km] [1/km] [1/km] 1.500E-01 1.530E+00 5.200E-02 2.500E-01 1.530E+00 3.000E-02 8.052E-03 4.447E-03 3.604E-03 5.524E-01 0.939E+00 9.477E-01 3.000E-01 1.530E+00 8.000E-03 8.132E-03 5.366E-03 2.766E-03 6.598E-01 0.882E+00 9.572E-01 3.500E-01 1.530E+00 8.000E-03 8.213E-03 5.555E-03 2.658E-03 6.763E-01 0.871E+00 9.667E-01 4.000E-01 1.530E+00 8.000E-03 8.282E-03 5.729E-03 2.553E-03 6.918E-01 0.860E+00 9.748E-01 4.500E-01 1.530E+00 8.000E-03 8.359E-03 5.897E-03 2.463E-03 7.054E-01 0.849E+00 9.839E-01 5.000E-01 1.530E+00 8.000E-03 8.424E-03 6.052E-03 2.372E-03 7.184E-01 0.840E+00 9.916E-01 5.500E-01 1.530E+00 8.000E-03 8.496E-03 6.202E-03 2.294E-03 7.300E-01 0.831E+00 1.000E+00 6.000E-01 1.530E+00 8.000E-03 8.562E-03 6.343E-03 2.219E-03 7.408E-01 0.822E+00 1.008E+00 6.500E-01 1.530E+00 8.000E-03 8.634E-03 6.479E-03 2.155E-03 7.504E-01 0.815E+00 1.016E+00 7.000E-01 1.530E+00 8.000E-03 8.698E-03 6.607E-03 2.091E-03 7.596E-01 0.808E+00 1.024E+00 7.500E-01 1.530E+00 8.000E-03 8.755E-03 6.728E-03 2.027E-03 7.685E-01 0.801E+00 1.031E+00 8.000E-01 1.520E+00 8.000E-03 8.817E-03 6.850E-03 1.967E-03 7.769E-01 0.797E+00 1.038E+00 9.000E-01 1.520E+00 8.000E-03 8.935E-03 7.070E-03 1.865E-03 7.913E-01 0.787E+00 1.052E+00 1.000E+00 1.520E+00 8.000E-03 9.039E-03 7.266E-03 1.773E-03 8.039E-01 0.777E+00 1.064E+00 1.250E+00 1.460E+00 8.000E-03 9.283E-03 7.717E-03 1.566E-03 8.313E-01 0.780E+00 1.093E+00 1.500E+00 1.410E+00 8.000E-03 9.386E-03 8.004E-03 1.382E-03 8.528E-01 0.791E+00 1.105E+00 1.750E+00 1.340E+00 8.000E-03 9.243E-03 8.035E-03 1.208E-03 8.693E-01 0.822E+00 1.088E+00 2.000E+00 1.260E+00 8.000E-03 8.601E-03 7.569E-03 1.032E-03 8.800E-01 0.868E+00 1.012E+00 2.500E+00 1.180E+00 9.000E-03 6.782E-03 5.911E-03 8.712E-04 8.715E-01 0.915E+00 7.983E-01 3.000E+00 1.160E+00 1.200E-02 5.628E-03 4.708E-03 9.202E-04 8.365E-01 0.923E+00 6.625E-01 3.200E+00 1.220E+00 1.000E-02 6.709E-03 5.898E-03 8.106E-04 8.792E-01 0.886E+00 7.897E-01 3.390E+00 1.258E+00 1.285E-02 7.139E-03 6.153E-03 9.858E-04 8.619E-01 0.864E+00 8.403E-01 3.500E+00 1.280E+00 1.100E-02 7.364E-03 6.496E-03 8.675E-04 8.822E-01 0.848E+00 8.668E-01 3.750E+00 1.270E+00 1.100E-02 6.971E-03 6.161E-03 8.098E-04 8.838E-01 0.852E+00 8.205E-01 4.000E+00 1.260E+00 1.200E-02 6.563E-03 5.749E-03 8.141E-04 8.760E-01 0.857E+00 7.726E-01 4.500E+00 1.260E+00 1.400E-02 6.095E-03 5.261E-03 8.341E-04 8.632E-01 0.854E+00 7.174E-01 5.000E+00 1.250E+00 1.600E-02 5.498E-03 4.659E-03 8.389E-04 8.474E-01 0.857E+00 6.471E-01 5.500E+00 1.220E+00 2.100E-02 4.587E-03 3.658E-03 9.296E-04 7.974E-01 0.871E+00 5.400E-01 6.000E+00 1.150E+00 3.700E-02 3.121E-03 1.887E-03 1.234E-03 6.046E-01 0.898E+00 3.674E-01 6.200E+00 1.140E+00 3.900E-02 2.872E-03 1.635E-03 1.237E-03 5.693E-01 0.900E+00 3.381E-01 6.500E+00 1.130E+00 4.200E-02 2.615E-03 1.369E-03 1.246E-03 5.235E-01 0.899E+00 3.078E-01 7.200E+00 1.400E+00 5.500E-02 6.029E-03 4.260E-03 1.768E-03 7.067E-01 0.778E+00 7.096E-01 7.900E+00 1.150E+00 4.000E-02 2.378E-03 1.325E-03 1.053E-03 5.573E-01 0.877E+00 2.799E-01 8.200E+00 1.130E+00 7.420E-02 2.499E-03 9.265E-04 1.572E-03 3.708E-01 0.869E+00 2.941E-01 8.500E+00 1.300E+00 9.000E-02 4.418E-03 2.431E-03 1.986E-03 5.504E-01 0.811E+00 5.200E-01 8.700E+00 1.400E+00 1.000E-01 5.355E-03 3.136E-03 2.220E-03 5.855E-01 0.773E+00 6.303E-01 9.000E+00 1.700E+00 1.400E-01 7.368E-03 4.406E-03 2.963E-03 5.979E-01 0.677E+00 8.673E-01 9.200E+00 1.720E+00 1.500E-01 7.385E-03 4.348E-03 3.037E-03 5.888E-01 0.672E+00 8.693E-01 9.500E+00 1.730E+00 1.620E-01 7.311E-03 4.219E-03 3.093E-03 5.770E-01 0.669E+00 8.606E-01 9.800E+00 1.740E+00 1.620E-01 7.238E-03 4.188E-03 3.050E-03 5.786E-01 0.663E+00 8.520E-01 1.000E+01 1.750E+00 1.620E-01 7.206E-03 4.181E-03 3.025E-03 5.802E-01 0.658E+00 8.482E-01 1.060E+01 1.620E+00 1.200E-01 6.234E-03 3.829E-03 2.405E-03 6.142E-01 0.682E+00 7.338E-01 1.100E+01 1.620E+00 1.050E-01 6.059E-03 3.880E-03 2.179E-03 6.404E-01 0.674E+00 7.131E-01 1.150E+01 1.590E+00 1.000E-01 5.666E-03 3.647E-03 2.019E-03 6.436E-01 0.679E+00 6.669E-01 1.250E+01 1.510E+00 9.000E-02 4.735E-03 3.038E-03 1.696E-03 6.417E-01 0.697E+00 5.573E-01 1.300E+01 1.470E+00 1.000E-01 4.321E-03 2.601E-03 1.720E-03 6.020E-01 0.708E+00 5.086E-01 1.400E+01 1.520E+00 8.500E-02 4.311E-03 2.821E-03 1.490E-03 6.544E-01 0.681E+00 5.074E-01 1.480E+01 1.570E+00 1.000E-01 4.440E-03 2.816E-03 1.624E-03 6.342E-01 0.661E+00 5.226E-01 1.500E+01 1.570E+00 1.000E-01 4.383E-03 2.778E-03 1.605E-03 6.338E-01 0.660E+00 5.159E-01 1.640E+01 1.600E+00 1.000E-01 4.177E-03 2.675E-03 1.502E-03 6.403E-01 0.641E+00 4.917E-01 1.720E+01 1.630E+00 1.000E-01 4.136E-03 2.678E-03 1.458E-03 6.475E-01 0.627E+00 4.868E-01 1.800E+01 1.640E+00 1.150E-01 4.037E-03 2.496E-03 1.540E-03 6.184E-01 0.621E+00 4.752E-01 1.850E+01 1.640E+00 1.200E-01 3.938E-03 2.394E-03 1.544E-03 6.079E-01 0.619E+00 4.635E-01 2.000E+01 1.680E+00 2.200E-01 4.093E-03 1.968E-03 2.125E-03 4.808E-01 0.601E+00 4.817E-01 2.130E+01 1.770E+00 2.800E-01 4.309E-03 1.956E-03 2.353E-03 4.540E-01 0.571E+00 5.072E-01 2.250E+01 1.900E+00 2.800E-01 4.445E-03 2.146E-03 2.299E-03 4.828E-01 0.542E+00 5.232E-01 2.500E+01 1.970E+00 2.400E-01 4.090E-03 2.136E-03 1.954E-03 5.224E-01 0.519E+00 4.814E-01 2.790E+01 1.890E+00 3.200E-01 3.635E-03 1.590E-03 2.046E-03 4.373E-01 0.513E+00 4.279E-01 3.000E+01 1.800E+00 4.200E-01 3.471E-03 1.229E-03 2.242E-03 3.540E-01 0.498E+00 4.085E-01 3.500E+01 1.900E+00 5.000E-01 3.258E-03 1.094E-03 2.164E-03 3.359E-01 0.451E+00 3.835E-01 4.000E+01 2.100E+00 6.000E-01 3.146E-03 1.070E-03 2.076E-03 3.402E-01 0.401E+00 3.703E-01 ================================================ FILE: UTIL/inline_phot_preproc/refractive_indices/OPAC_water_clouds/soot00 ================================================ SOOT ! Optical Parmeters of Soot at 0% relative huimidity from ! Hess, M. P. Koepke, and I. Schult, Optical properties of ! aerosols and clouds: The software package OPAC, Bulletan of ! the American Meteorological Society, Vol 79, No 5, ! pp 831 - 844, May 1998. ! from file soot00 of ! OPAC is a downloadable data set of optical properties of ! 10 aerosol components, 6 water clouds and 3 cirrus clouds ! at UV, visible and IR wavelengths ! www.lrz-muenchen.de/~uh234an/www/radaer/opac.htm ! size distribution: lognormal ! ------------------ ! minimum radius, [um]: 5.000E-03 ! maximum radius, [um]: 2.000E+01 ! sigma: 2.000E+00 ! Rmod (wet), [um]: 1.180E-02 ! Rmod (dry), [um]: 1.180E-02 ! optical parameters: ! ------------------- !wavelength ref.real ref.imag ext.coef sca.coef abs.coef si.sc.alb asym.par ext.nor ! [um] [1/km] [1/km] [1/km] 2.500E-01 1.620E+00 4.500E-01 1.356E-06 4.177E-07 9.381E-07 3.081E-01 0.502E+00 2.447E+00 3.000E-01 1.740E+00 4.700E-01 1.212E-06 3.790E-07 8.329E-07 3.128E-01 0.453E+00 2.188E+00 3.500E-01 1.750E+00 4.650E-01 1.017E-06 2.957E-07 7.217E-07 2.906E-01 0.422E+00 1.837E+00 4.000E-01 1.750E+00 4.600E-01 8.612E-07 2.301E-07 6.311E-07 2.672E-01 0.396E+00 1.555E+00 4.500E-01 1.750E+00 4.550E-01 7.375E-07 1.811E-07 5.564E-07 2.456E-01 0.374E+00 1.331E+00 5.000E-01 1.750E+00 4.500E-01 6.385E-07 1.441E-07 4.943E-07 2.257E-01 0.353E+00 1.153E+00 5.500E-01 1.750E+00 4.400E-01 5.540E-07 1.157E-07 4.383E-07 2.088E-01 0.336E+00 1.000E+00 6.000E-01 1.750E+00 4.350E-01 4.885E-07 9.380E-08 3.947E-07 1.920E-01 0.320E+00 8.818E-01 6.500E-01 1.750E+00 4.350E-01 4.379E-07 7.688E-08 3.611E-07 1.756E-01 0.305E+00 7.906E-01 7.000E-01 1.750E+00 4.300E-01 3.923E-07 6.340E-08 3.289E-07 1.616E-01 0.291E+00 7.082E-01 7.500E-01 1.750E+00 4.300E-01 3.570E-07 5.279E-08 3.043E-07 1.479E-01 0.278E+00 6.445E-01 8.000E-01 1.750E+00 4.300E-01 3.270E-07 4.427E-08 2.828E-07 1.354E-01 0.266E+00 5.904E-01 9.000E-01 1.750E+00 4.350E-01 2.818E-07 3.183E-08 2.500E-07 1.129E-01 0.244E+00 5.087E-01 1.000E+00 1.760E+00 4.400E-01 2.467E-07 2.381E-08 2.229E-07 9.653E-02 0.225E+00 4.453E-01 1.250E+00 1.760E+00 4.500E-01 1.890E-07 1.201E-08 1.770E-07 6.354E-02 0.186E+00 3.412E-01 1.500E+00 1.770E+00 4.600E-01 1.533E-07 6.755E-09 1.465E-07 4.407E-02 0.158E+00 2.767E-01 1.750E+00 1.790E+00 4.800E-01 1.311E-07 4.176E-09 1.270E-07 3.184E-02 0.135E+00 2.367E-01 2.000E+00 1.800E+00 4.900E-01 1.139E-07 2.667E-09 1.112E-07 2.343E-02 0.117E+00 2.055E-01 2.500E+00 1.820E+00 5.100E-01 9.081E-08 1.236E-09 8.958E-08 1.361E-02 0.911E-01 1.639E-01 3.000E+00 1.840E+00 5.400E-01 7.743E-08 6.572E-10 7.678E-08 8.487E-03 0.723E-01 1.398E-01 3.200E+00 1.860E+00 5.400E-01 7.113E-08 5.253E-10 7.061E-08 7.385E-03 0.672E-01 1.284E-01 3.390E+00 1.870E+00 5.495E-01 6.749E-08 4.292E-10 6.706E-08 6.359E-03 0.623E-01 1.218E-01 3.500E+00 1.880E+00 5.600E-01 6.584E-08 3.875E-10 6.545E-08 5.886E-03 0.597E-01 1.189E-01 3.750E+00 1.900E+00 5.700E-01 6.123E-08 3.055E-10 6.092E-08 4.989E-03 0.546E-01 1.105E-01 4.000E+00 1.920E+00 5.800E-01 5.720E-08 2.444E-10 5.696E-08 4.273E-03 0.502E-01 1.033E-01 4.500E+00 1.940E+00 5.900E-01 5.057E-08 1.582E-10 5.041E-08 3.128E-03 0.424E-01 9.128E-02 5.000E+00 1.970E+00 6.000E-01 4.492E-08 1.080E-10 4.481E-08 2.404E-03 0.366E-01 8.108E-02 5.500E+00 1.990E+00 6.100E-01 4.066E-08 7.582E-11 4.058E-08 1.865E-03 0.316E-01 7.340E-02 6.000E+00 2.020E+00 6.200E-01 3.681E-08 5.534E-11 3.675E-08 1.504E-03 0.278E-01 6.644E-02 6.200E+00 2.030E+00 6.250E-01 3.555E-08 4.912E-11 3.550E-08 1.382E-03 0.264E-01 6.418E-02 6.500E+00 2.040E+00 6.300E-01 3.384E-08 4.112E-11 3.380E-08 1.215E-03 0.245E-01 6.109E-02 7.200E+00 2.060E+00 6.500E-01 3.084E-08 2.814E-11 3.081E-08 9.124E-04 0.206E-01 5.567E-02 7.900E+00 2.120E+00 6.700E-01 2.741E-08 2.049E-11 2.739E-08 7.477E-04 0.180E-01 4.948E-02 8.200E+00 2.130E+00 6.800E-01 2.652E-08 1.789E-11 2.650E-08 6.745E-04 0.169E-01 4.787E-02 8.500E+00 2.150E+00 6.900E-01 2.547E-08 1.578E-11 2.545E-08 6.198E-04 0.159E-01 4.597E-02 8.700E+00 2.160E+00 6.900E-01 2.467E-08 1.446E-11 2.465E-08 5.862E-04 0.154E-01 4.453E-02 9.000E+00 2.170E+00 7.000E-01 2.394E-08 1.278E-11 2.392E-08 5.340E-04 0.145E-01 4.321E-02 9.200E+00 2.180E+00 7.000E-01 2.321E-08 1.177E-11 2.320E-08 5.069E-04 0.140E-01 4.191E-02 9.500E+00 2.190E+00 7.100E-01 2.256E-08 1.047E-11 2.255E-08 4.641E-04 0.132E-01 4.073E-02 9.800E+00 2.200E+00 7.150E-01 2.182E-08 9.324E-12 2.181E-08 4.274E-04 0.125E-01 3.938E-02 1.000E+01 2.210E+00 7.200E-01 2.133E-08 8.672E-12 2.132E-08 4.066E-04 0.121E-01 3.850E-02 1.060E+01 2.220E+00 7.300E-01 2.018E-08 6.942E-12 2.017E-08 3.440E-04 0.109E-01 3.643E-02 1.100E+01 2.230E+00 7.300E-01 1.928E-08 6.012E-12 1.927E-08 3.119E-04 0.102E-01 3.480E-02 1.150E+01 2.240E+00 7.400E-01 1.850E-08 5.086E-12 1.849E-08 2.750E-04 0.937E-02 3.339E-02 1.250E+01 2.270E+00 7.500E-01 1.678E-08 3.715E-12 1.677E-08 2.214E-04 0.810E-02 3.029E-02 1.300E+01 2.280E+00 7.600E-01 1.618E-08 3.208E-12 1.617E-08 1.983E-04 0.751E-02 2.920E-02 1.400E+01 2.310E+00 7.750E-01 1.489E-08 2.437E-12 1.489E-08 1.636E-04 0.659E-02 2.688E-02 1.480E+01 2.330E+00 7.900E-01 1.408E-08 1.984E-12 1.407E-08 1.409E-04 0.596E-02 2.541E-02 1.500E+01 2.330E+00 7.900E-01 1.389E-08 1.879E-12 1.389E-08 1.353E-04 0.580E-02 2.507E-02 1.640E+01 2.360E+00 8.100E-01 1.265E-08 1.345E-12 1.265E-08 1.064E-04 0.492E-02 2.283E-02 1.720E+01 2.380E+00 8.200E-01 1.198E-08 1.126E-12 1.198E-08 9.400E-05 0.451E-02 2.163E-02 1.800E+01 2.400E+00 8.250E-01 1.132E-08 9.483E-13 1.132E-08 8.380E-05 0.418E-02 2.043E-02 1.850E+01 2.410E+00 8.300E-01 1.098E-08 8.551E-13 1.098E-08 7.790E-05 0.397E-02 1.981E-02 2.000E+01 2.450E+00 8.500E-01 1.002E-08 6.414E-13 1.002E-08 6.402E-05 0.347E-02 1.809E-02 2.130E+01 2.460E+00 8.600E-01 9.419E-09 5.025E-13 9.418E-09 5.335E-05 0.307E-02 1.700E-02 2.250E+01 2.480E+00 8.700E-01 8.855E-09 4.081E-13 8.855E-09 4.607E-05 0.279E-02 1.598E-02 2.500E+01 2.510E+00 8.900E-01 7.920E-09 2.728E-13 7.920E-09 3.445E-05 0.232E-02 1.430E-02 2.790E+01 2.540E+00 9.100E-01 7.050E-09 1.791E-13 7.050E-09 2.539E-05 0.186E-02 1.273E-02 3.000E+01 2.570E+00 9.300E-01 6.512E-09 1.363E-13 6.512E-09 2.092E-05 0.167E-02 1.176E-02 3.500E+01 2.630E+00 9.700E-01 5.499E-09 7.608E-14 5.499E-09 1.383E-05 0.130E-02 9.926E-03 4.000E+01 2.690E+00 1.000E+00 4.699E-09 4.583E-14 4.699E-09 9.775E-06 0.120E-02 8.482E-03 ================================================ FILE: UTIL/inline_phot_preproc/refractive_indices/OPAC_water_clouds/soot00-two_way-Oct_21_2012 ================================================ SOOT !References: ! 1) For 2.0460 <= lambda <= 3.4615, ! C&C Chang,H and T.T. Charalmpopoulos (1990) Determination of the ! wavelength dependence of refractive indices of flame soot, ! Proceeding of the Royal Society of London A, Vol. 430, pp 577-591. ! ! 2) For 1.0101 <= lambda < 1.7840, ! B&B Bond, T.C. & R.W. Bergstrom (2006) Light absorption by ! Carbonaceous Particles: An investigative review, ! Aerosol Science and Technology. Vol. 40. pp 27-67 ! ! 3) For 0.2316 <= lanbda < 0.70160, ! Bond Personal Communication from Tami Bond ! 4) At 0.1500 um added a floor for shortest wavelength bands ! ------------------- !wvl,um nr ni 0.15000 1.850 0.710 0.23160 1.850 0.710 0.29900 1.850 0.710 0.38815 1.850 0.710 0.53325 1.850 0.710 1.01010 1.870 0.726 1.27050 1.905 0.737 1.78400 1.940 0.760 2.04600 1.950 0.784 2.78850 2.014 0.939 3.46150 2.089 1.070 ================================================ FILE: UTIL/inline_phot_preproc/refractive_indices/OPAC_water_clouds/ssam00 ================================================ SEASALT ! Optical Parmeters of Sea Salt aerosol in accumulation mode ! at 0% relative huimidity from file ssam00 of ! Hess, M. P. Koepke, and I. Schult, Optical properties of ! aerosols and clouds: The software package OPAC, Bulletan of ! the American Meteorological Society, Vol 79, No 5, ! pp 831 - 844, May 1998. ! OPAC is a downloadable data set of optical properties of ! 10 aerosol components, 6 water clouds and 3 cirrus clouds ! at UV, visible and IR wavelengths ! www.lrz-muenchen.de/~uh234an/www/radaer/opac.htm ! size distribution: lognormal ! ------------------ ! minimum radius, [um]: 5.000E-03 ! maximum radius, [um]: 2.000E+01 ! sigma: 2.030E+00 ! Rmod (wet), [um]: 2.090E-01 ! Rmod (dry), [um]: 2.090E-01 ! optical parameters: ! ------------------- !wavelength ref.real ref.imag ext.coef sca.coef abs.coef si.sc.alb asym.par ext.nor ! [um] [1/km] [1/km] [1/km] 1.500E-01 1.510E+00 8.000E-06 2.500E-01 1.510E+00 5.000E-06 9.046E-04 9.044E-04 1.664E-07 9.998E-01 0.721E+00 8.801E-01 3.000E-01 1.510E+00 2.000E-06 9.368E-04 9.367E-04 6.511E-08 9.999E-01 0.706E+00 9.114E-01 3.500E-01 1.510E+00 3.240E-07 9.615E-04 9.615E-04 1.049E-08 1.000E+00 0.699E+00 9.354E-01 4.000E-01 1.500E+00 3.000E-08 9.847E-04 9.847E-04 5.869E-10 1.000E+00 0.698E+00 9.580E-01 4.500E-01 1.500E+00 2.430E-08 1.000E-03 1.000E-03 7.752E-10 1.000E+00 0.696E+00 9.733E-01 5.000E-01 1.500E+00 1.550E-08 1.016E-03 1.016E-03 2.423E-10 1.000E+00 0.693E+00 9.887E-01 5.500E-01 1.500E+00 1.000E-08 1.028E-03 1.028E-03 2.451E-10 1.000E+00 0.691E+00 1.000E+00 6.000E-01 1.490E+00 1.600E-08 1.030E-03 1.030E-03 3.682E-10 1.000E+00 0.697E+00 1.002E+00 6.500E-01 1.490E+00 4.240E-08 1.034E-03 1.034E-03 6.776E-10 1.000E+00 0.696E+00 1.005E+00 7.000E-01 1.490E+00 2.000E-07 1.031E-03 1.031E-03 3.073E-09 1.000E+00 0.696E+00 1.003E+00 7.500E-01 1.490E+00 1.080E-06 1.024E-03 1.024E-03 1.331E-08 1.000E+00 0.697E+00 9.963E-01 8.000E-01 1.480E+00 1.950E-06 1.012E-03 1.012E-03 2.184E-08 1.000E+00 0.702E+00 9.846E-01 9.000E-01 1.480E+00 4.240E-05 9.886E-04 9.882E-04 4.255E-07 9.996E-01 0.702E+00 9.618E-01 1.000E+00 1.470E+00 1.410E-04 9.489E-04 9.477E-04 1.231E-06 9.987E-01 0.708E+00 9.232E-01 1.250E+00 1.470E+00 3.580E-04 8.546E-04 8.522E-04 2.436E-06 9.971E-01 0.704E+00 8.315E-01 1.500E+00 1.460E+00 5.700E-04 7.431E-04 7.400E-04 3.080E-06 9.959E-01 0.705E+00 7.230E-01 1.750E+00 1.450E+00 7.620E-04 6.363E-04 6.329E-04 3.400E-06 9.947E-01 0.703E+00 6.190E-01 2.000E+00 1.450E+00 1.000E-03 5.531E-04 5.494E-04 3.779E-06 9.932E-01 0.695E+00 5.382E-01 2.500E+00 1.430E+00 4.000E-03 3.971E-04 3.861E-04 1.102E-05 9.723E-01 0.688E+00 3.864E-01 3.000E+00 1.610E+00 1.000E-02 4.717E-04 4.468E-04 2.494E-05 9.471E-01 0.598E+00 4.589E-01 3.200E+00 1.490E+00 3.000E-03 3.260E-04 3.196E-04 6.417E-06 9.803E-01 0.635E+00 3.172E-01 3.390E+00 1.480E+00 2.050E-03 2.887E-04 2.846E-04 4.046E-06 9.860E-01 0.631E+00 2.808E-01 3.500E+00 1.480E+00 1.600E-03 2.730E-04 2.700E-04 3.031E-06 9.889E-01 0.627E+00 2.656E-01 3.750E+00 1.470E+00 1.400E-03 2.347E-04 2.323E-04 2.399E-06 9.898E-01 0.622E+00 2.284E-01 4.000E+00 1.480E+00 1.400E-03 2.155E-04 2.133E-04 2.216E-06 9.897E-01 0.609E+00 2.097E-01 4.500E+00 1.490E+00 1.400E-03 1.779E-04 1.760E-04 1.899E-06 9.893E-01 0.589E+00 1.731E-01 5.000E+00 1.470E+00 2.500E-03 1.352E-04 1.323E-04 2.887E-06 9.786E-01 0.577E+00 1.315E-01 5.500E+00 1.420E+00 3.600E-03 9.193E-05 8.838E-05 3.553E-06 9.614E-01 0.572E+00 8.944E-02 6.000E+00 1.410E+00 1.100E-02 7.717E-05 6.766E-05 9.510E-06 8.768E-01 0.556E+00 7.508E-02 6.200E+00 1.600E+00 2.200E-02 1.361E-04 1.170E-04 1.915E-05 8.593E-01 0.514E+00 1.324E-01 6.500E+00 1.460E+00 5.000E-03 7.433E-05 7.033E-05 3.999E-06 9.462E-01 0.530E+00 7.231E-02 7.200E+00 1.420E+00 7.000E-03 5.102E-05 4.620E-05 4.822E-06 9.055E-01 0.514E+00 4.964E-02 7.900E+00 1.400E+00 1.300E-02 4.064E-05 3.277E-05 7.867E-06 8.064E-01 0.494E+00 3.954E-02 8.200E+00 1.420E+00 2.000E-02 4.355E-05 3.206E-05 1.148E-05 7.363E-01 0.482E+00 4.237E-02 8.500E+00 1.480E+00 2.600E-02 5.118E-05 3.695E-05 1.422E-05 7.221E-01 0.468E+00 4.979E-02 8.700E+00 1.600E+00 3.000E-02 6.757E-05 5.159E-05 1.598E-05 7.636E-01 0.453E+00 6.574E-02 9.000E+00 1.650E+00 2.800E-02 6.899E-05 5.467E-05 1.432E-05 7.925E-01 0.442E+00 6.712E-02 9.200E+00 1.610E+00 2.620E-02 5.939E-05 4.642E-05 1.297E-05 7.816E-01 0.441E+00 5.778E-02 9.500E+00 1.580E+00 1.800E-02 4.831E-05 3.973E-05 8.587E-06 8.223E-01 0.437E+00 4.701E-02 9.800E+00 1.560E+00 1.600E-02 4.179E-05 3.446E-05 7.327E-06 8.246E-01 0.432E+00 4.065E-02 1.000E+01 1.540E+00 1.500E-02 3.728E-05 3.059E-05 6.693E-06 8.205E-01 0.429E+00 3.627E-02 1.060E+01 1.500E+00 1.400E-02 2.841E-05 2.261E-05 5.804E-06 7.957E-01 0.418E+00 2.764E-02 1.100E+01 1.480E+00 1.400E-02 2.440E-05 1.886E-05 5.547E-06 7.727E-01 0.410E+00 2.374E-02 1.150E+01 1.480E+00 1.400E-02 2.185E-05 1.660E-05 5.241E-06 7.601E-01 0.399E+00 2.125E-02 1.250E+01 1.420E+00 1.600E-02 1.550E-05 1.003E-05 5.465E-06 6.473E-01 0.378E+00 1.508E-02 1.300E+01 1.410E+00 1.800E-02 1.436E-05 8.489E-06 5.875E-06 5.910E-01 0.367E+00 1.397E-02 1.400E+01 1.410E+00 2.300E-02 1.360E-05 6.738E-06 6.863E-06 4.954E-01 0.347E+00 1.323E-02 1.480E+01 1.430E+00 3.000E-02 1.449E-05 6.178E-06 8.311E-06 4.264E-01 0.333E+00 1.410E-02 1.500E+01 1.450E+00 3.500E-02 1.589E-05 6.433E-06 9.461E-06 4.047E-01 0.330E+00 1.546E-02 1.640E+01 1.560E+00 9.000E-02 2.766E-05 7.028E-06 2.063E-05 2.541E-01 0.305E+00 2.691E-02 1.720E+01 1.740E+00 1.200E-01 3.350E-05 9.767E-06 2.373E-05 2.915E-01 0.301E+00 3.259E-02 1.800E+01 1.780E+00 1.300E-01 3.299E-05 9.225E-06 2.376E-05 2.797E-01 0.293E+00 3.209E-02 1.850E+01 1.770E+00 1.350E-01 3.219E-05 8.261E-06 2.393E-05 2.566E-01 0.286E+00 3.132E-02 2.000E+01 1.760E+00 1.520E-01 3.078E-05 6.265E-06 2.451E-05 2.035E-01 0.267E+00 2.994E-02 2.130E+01 1.760E+00 1.650E-01 2.970E-05 5.096E-06 2.461E-05 1.716E-01 0.252E+00 2.890E-02 2.250E+01 1.760E+00 1.800E-01 2.934E-05 4.251E-06 2.509E-05 1.449E-01 0.240E+00 2.855E-02 2.500E+01 1.760E+00 2.050E-01 2.819E-05 2.996E-06 2.519E-05 1.063E-01 0.216E+00 2.742E-02 2.790E+01 1.770E+00 2.750E-01 3.155E-05 2.144E-06 2.941E-05 6.794E-02 0.188E+00 3.070E-02 3.000E+01 1.770E+00 3.000E-01 3.120E-05 1.691E-06 2.951E-05 5.419E-02 0.173E+00 3.036E-02 3.500E+01 1.760E+00 5.000E-01 4.219E-05 1.138E-06 4.105E-05 2.697E-02 0.131E+00 4.105E-02 4.000E+01 1.740E+00 1.000E+00 6.742E-05 1.263E-06 6.616E-05 1.874E-02 0.844E-01 6.559E-02 ================================================ FILE: UTIL/inline_phot_preproc/refractive_indices/OPAC_water_clouds/sscm00 ================================================ # sea salt (coa., 0%) # # size distribution: lognormal # ------------------ # # minimum radius, [um]: 5.000E-03 # maximum radius, [um]: 6.000E+01 # sigma: 2.030E+00 # Rmod (wet), [um]: 1.750E+00 # Rmod (dry), [um]: 1.750E+00 # # optical parameters: # ------------------- # # wavelength ext.coef sca.coef abs.coef si.sc.alb asym.par ext.nor ref.real ref.imag # [um] [1/km] [1/km] [1/km] # # 2.500E-01 5.478E-02 5.470E-02 8.128E-05 9.985E-01 0.810E+00 9.667E-01 1.510E+00 -5.000E-06 # 3.000E-01 5.520E-02 5.517E-02 2.653E-05 9.995E-01 0.810E+00 9.741E-01 1.510E+00 -2.000E-06 # 3.500E-01 5.551E-02 5.551E-02 5.436E-06 9.999E-01 0.804E+00 9.797E-01 1.510E+00 -3.240E-07 # 4.000E-01 5.559E-02 5.559E-02 3.347E-07 1.000E+00 0.805E+00 9.810E-01 1.500E+00 -3.000E-08 # 4.500E-01 5.601E-02 5.601E-02 2.905E-07 1.000E+00 0.803E+00 9.885E-01 1.500E+00 -2.430E-08 # 5.000E-01 5.627E-02 5.627E-02 9.056E-08 1.000E+00 0.799E+00 9.930E-01 1.500E+00 -1.550E-08 # 5.500E-01 5.667E-02 5.667E-02 6.755E-08 1.000E+00 0.795E+00 1.000E+00 1.500E+00 -1.000E-08 # 6.000E-01 5.663E-02 5.663E-02 1.283E-07 1.000E+00 0.797E+00 9.993E-01 1.490E+00 -1.600E-08 # 6.500E-01 5.724E-02 5.724E-02 2.661E-07 1.000E+00 0.792E+00 1.010E+00 1.490E+00 -4.240E-08 # 7.000E-01 5.750E-02 5.750E-02 1.296E-06 1.000E+00 0.788E+00 1.015E+00 1.490E+00 -2.000E-07 # 7.500E-01 5.739E-02 5.738E-02 6.540E-06 9.999E-01 0.788E+00 1.013E+00 1.490E+00 -1.080E-06 # 8.000E-01 5.749E-02 5.748E-02 1.039E-05 9.998E-01 0.789E+00 1.015E+00 1.480E+00 -1.950E-06 # 9.000E-01 5.829E-02 5.808E-02 2.116E-04 9.964E-01 0.781E+00 1.029E+00 1.480E+00 -4.240E-05 # 1.000E+00 5.889E-02 5.826E-02 6.228E-04 9.894E-01 0.781E+00 1.039E+00 1.470E+00 -1.410E-04 # 1.250E+00 6.017E-02 5.891E-02 1.251E-03 9.792E-01 0.769E+00 1.062E+00 1.470E+00 -3.580E-04 # 1.500E+00 6.092E-02 5.931E-02 1.613E-03 9.735E-01 0.766E+00 1.075E+00 1.460E+00 -5.700E-04 # 1.750E+00 6.272E-02 6.077E-02 1.950E-03 9.689E-01 0.757E+00 1.107E+00 1.450E+00 -7.620E-04 # 2.000E+00 6.363E-02 6.145E-02 2.173E-03 9.658E-01 0.753E+00 1.123E+00 1.450E+00 -1.000E-03 # 2.500E+00 6.629E-02 6.014E-02 6.156E-03 9.071E-01 0.766E+00 1.170E+00 1.430E+00 -4.000E-03 # 3.000E+00 6.660E-02 5.513E-02 1.147E-02 8.278E-01 0.716E+00 1.175E+00 1.610E+00 -1.000E-02 # 3.200E+00 6.844E-02 6.436E-02 4.079E-03 9.404E-01 0.722E+00 1.208E+00 1.490E+00 -3.000E-03 # 3.390E+00 6.927E-02 6.644E-02 2.827E-03 9.592E-01 0.719E+00 1.222E+00 1.480E+00 -2.050E-03 # 3.500E+00 6.957E-02 6.741E-02 2.158E-03 9.690E-01 0.716E+00 1.228E+00 1.480E+00 -1.600E-03 # 3.750E+00 7.030E-02 6.852E-02 1.781E-03 9.747E-01 0.718E+00 1.241E+00 1.470E+00 -1.400E-03 # 4.000E+00 7.074E-02 6.905E-02 1.684E-03 9.762E-01 0.712E+00 1.248E+00 1.480E+00 -1.400E-03 # 4.500E+00 7.172E-02 7.018E-02 1.533E-03 9.786E-01 0.704E+00 1.266E+00 1.490E+00 -1.400E-03 # 5.000E+00 7.194E-02 6.954E-02 2.402E-03 9.666E-01 0.718E+00 1.270E+00 1.470E+00 -2.500E-03 # 5.500E+00 7.044E-02 6.751E-02 2.927E-03 9.584E-01 0.751E+00 1.243E+00 1.420E+00 -3.600E-03 # 6.000E+00 6.866E-02 6.160E-02 7.066E-03 8.971E-01 0.772E+00 1.212E+00 1.410E+00 -1.100E-02 # 6.200E+00 7.293E-02 5.988E-02 1.305E-02 8.211E-01 0.693E+00 1.287E+00 1.600E+00 -2.200E-02 # 6.500E+00 7.025E-02 6.675E-02 3.502E-03 9.502E-01 0.728E+00 1.240E+00 1.460E+00 -5.000E-03 # 7.200E+00 6.644E-02 6.230E-02 4.141E-03 9.377E-01 0.755E+00 1.173E+00 1.420E+00 -7.000E-03 # 7.900E+00 6.245E-02 5.610E-02 6.348E-03 8.983E-01 0.774E+00 1.102E+00 1.400E+00 -1.300E-02 # 8.200E+00 6.266E-02 5.381E-02 8.847E-03 8.588E-01 0.770E+00 1.106E+00 1.420E+00 -2.000E-02 # 8.500E+00 6.551E-02 5.454E-02 1.098E-02 8.324E-01 0.743E+00 1.156E+00 1.480E+00 -2.600E-02 # 8.700E+00 7.044E-02 5.753E-02 1.291E-02 8.168E-01 0.687E+00 1.243E+00 1.600E+00 -3.000E-02 # 9.000E+00 7.164E-02 5.929E-02 1.235E-02 8.276E-01 0.660E+00 1.264E+00 1.650E+00 -2.800E-02 # 9.200E+00 7.006E-02 5.872E-02 1.134E-02 8.382E-01 0.675E+00 1.236E+00 1.610E+00 -2.620E-02 # 9.500E+00 6.857E-02 6.040E-02 8.164E-03 8.809E-01 0.676E+00 1.210E+00 1.580E+00 -1.800E-02 # 9.800E+00 6.699E-02 5.986E-02 7.126E-03 8.936E-01 0.682E+00 1.182E+00 1.560E+00 -1.600E-02 # 1.000E+01 6.544E-02 5.890E-02 6.536E-03 9.001E-01 0.690E+00 1.155E+00 1.540E+00 -1.500E-02 # 1.060E+01 6.121E-02 5.556E-02 5.650E-03 9.077E-01 0.707E+00 1.080E+00 1.500E+00 -1.400E-02 # 1.100E+01 5.848E-02 5.313E-02 5.355E-03 9.084E-01 0.717E+00 1.032E+00 1.480E+00 -1.400E-02 # 1.150E+01 5.689E-02 5.177E-02 5.128E-03 9.099E-01 0.714E+00 1.004E+00 1.480E+00 -1.400E-02 # 1.250E+01 4.832E-02 4.332E-02 5.000E-03 8.965E-01 0.744E+00 8.527E-01 1.420E+00 -1.600E-02 # 1.300E+01 4.574E-02 4.048E-02 5.268E-03 8.848E-01 0.748E+00 8.073E-01 1.410E+00 -1.800E-02 # 1.400E+01 4.274E-02 3.672E-02 6.021E-03 8.591E-01 0.745E+00 7.543E-01 1.410E+00 -2.300E-02 # 1.480E+01 4.242E-02 3.519E-02 7.225E-03 8.297E-01 0.735E+00 7.486E-01 1.430E+00 -3.000E-02 # 1.500E+01 4.369E-02 3.548E-02 8.205E-03 8.122E-01 0.727E+00 7.710E-01 1.450E+00 -3.500E-02 # 1.640E+01 4.864E-02 3.272E-02 1.592E-02 6.727E-01 0.696E+00 8.584E-01 1.560E+00 -9.000E-02 # 1.720E+01 5.657E-02 3.671E-02 1.987E-02 6.488E-01 0.642E+00 9.984E-01 1.740E+00 -1.200E-01 # 1.800E+01 5.663E-02 3.623E-02 2.041E-02 6.397E-01 0.628E+00 9.994E-01 1.780E+00 -1.300E-01 # 1.850E+01 5.518E-02 3.488E-02 2.031E-02 6.320E-01 0.630E+00 9.739E-01 1.770E+00 -1.350E-01 # 2.000E+01 5.182E-02 3.153E-02 2.029E-02 6.084E-01 0.627E+00 9.145E-01 1.760E+00 -1.520E-01 # 2.130E+01 4.945E-02 2.927E-02 2.019E-02 5.918E-01 0.621E+00 8.727E-01 1.760E+00 -1.650E-01 # 2.250E+01 4.744E-02 2.720E-02 2.024E-02 5.733E-01 0.615E+00 8.372E-01 1.760E+00 -1.800E-01 # 2.500E+01 4.364E-02 2.369E-02 1.995E-02 5.429E-01 0.602E+00 7.701E-01 1.760E+00 -2.050E-01 # 2.790E+01 4.099E-02 1.966E-02 2.133E-02 4.796E-01 0.581E+00 7.233E-01 1.770E+00 -2.750E-01 # 3.000E+01 3.882E-02 1.772E-02 2.109E-02 4.566E-01 0.566E+00 6.850E-01 1.770E+00 -3.000E-01 # 3.500E+01 3.788E-02 1.346E-02 2.442E-02 3.554E-01 0.510E+00 6.684E-01 1.760E+00 -5.000E-01 # 4.000E+01 4.516E-02 1.370E-02 3.146E-02 3.034E-01 0.396E+00 7.970E-01 1.740E+00 -1.000E+00 # # volume phase function [1/km]: # ----------------------------- # # sca.ang. | wavelengths ---> # ---------|------------------ # | 2.500E-01 3.000E-01 3.500E-01 4.000E-01 4.500E-01 5.000E-01 5.500E-01 6.000E-01 6.500E-01 7.000E-01 7.500E-01 8.000E-01 9.000E-01 1.000E+00 1.250E+00 1.500E+00 1.750E+00 2.000E+00 2.500E+00 3.000E+00 3.200E+00 3.390E+00 3.500E+00 3.750E+00 4.000E+00 4.500E+00 5.000E+00 5.500E+00 6.000E+00 6.200E+00 6.500E+00 7.200E+00 7.900E+00 8.200E+00 8.500E+00 8.700E+00 9.000E+00 9.200E+00 9.500E+00 9.800E+00 1.000E+01 1.060E+01 1.100E+01 1.150E+01 1.250E+01 1.300E+01 1.400E+01 1.480E+01 1.500E+01 1.640E+01 1.720E+01 1.800E+01 1.850E+01 2.000E+01 2.130E+01 2.250E+01 2.500E+01 2.790E+01 3.000E+01 3.500E+01 4.000E+01 # 0.000E+00 8.437E+01 5.907E+01 4.364E+01 3.314E+01 2.671E+01 2.169E+01 1.802E+01 1.523E+01 1.308E+01 1.133E+01 9.908E+00 8.702E+00 6.982E+00 5.709E+00 3.737E+00 2.621E+00 1.984E+00 1.538E+00 1.030E+00 7.222E-01 6.550E-01 5.985E-01 5.644E-01 5.026E-01 4.487E-01 3.682E-01 3.140E-01 2.752E-01 2.374E-01 2.069E-01 2.083E-01 1.809E-01 1.554E-01 1.428E-01 1.307E-01 1.209E-01 1.135E-01 1.114E-01 1.087E-01 1.049E-01 1.027E-01 9.533E-02 9.045E-02 8.433E-02 7.315E-02 6.768E-02 5.817E-02 5.177E-02 5.020E-02 3.942E-02 3.640E-02 3.354E-02 3.181E-02 2.724E-02 2.402E-02 2.140E-02 1.713E-02 1.304E-02 1.105E-02 7.231E-03 5.698E-03 1.000E-01 7.246E+01 5.296E+01 4.020E+01 3.108E+01 2.539E+01 2.081E+01 1.741E+01 1.479E+01 1.276E+01 1.109E+01 9.725E+00 8.559E+00 6.892E+00 5.649E+00 3.712E+00 2.609E+00 1.977E+00 1.534E+00 1.028E+00 7.213E-01 6.544E-01 5.980E-01 5.639E-01 5.023E-01 4.484E-01 3.680E-01 3.139E-01 2.752E-01 2.373E-01 2.068E-01 2.082E-01 1.809E-01 1.554E-01 1.428E-01 1.307E-01 1.209E-01 1.135E-01 1.114E-01 1.087E-01 1.049E-01 1.026E-01 9.532E-02 9.044E-02 8.433E-02 7.315E-02 6.768E-02 5.816E-02 5.177E-02 5.020E-02 3.942E-02 3.639E-02 3.354E-02 3.181E-02 2.724E-02 2.402E-02 2.140E-02 1.713E-02 1.304E-02 1.105E-02 7.230E-03 5.698E-03 2.000E-01 5.318E+01 4.156E+01 3.310E+01 2.651E+01 2.227E+01 1.865E+01 1.586E+01 1.366E+01 1.191E+01 1.045E+01 9.224E+00 8.165E+00 6.639E+00 5.479E+00 3.639E+00 2.573E+00 1.957E+00 1.522E+00 1.023E+00 7.188E-01 6.524E-01 5.964E-01 5.625E-01 5.012E-01 4.476E-01 3.675E-01 3.135E-01 2.749E-01 2.372E-01 2.067E-01 2.081E-01 1.808E-01 1.553E-01 1.427E-01 1.307E-01 1.208E-01 1.135E-01 1.113E-01 1.087E-01 1.048E-01 1.026E-01 9.530E-02 9.042E-02 8.431E-02 7.313E-02 6.767E-02 5.815E-02 5.176E-02 5.020E-02 3.941E-02 3.639E-02 3.353E-02 3.180E-02 2.724E-02 2.402E-02 2.140E-02 1.713E-02 1.304E-02 1.105E-02 7.230E-03 5.698E-03 3.000E-01 3.808E+01 3.159E+01 2.628E+01 2.178E+01 1.881E+01 1.610E+01 1.395E+01 1.220E+01 1.078E+01 9.564E+00 8.524E+00 7.603E+00 6.267E+00 5.224E+00 3.526E+00 2.516E+00 1.925E+00 1.503E+00 1.015E+00 7.147E-01 6.492E-01 5.938E-01 5.602E-01 4.995E-01 4.462E-01 3.666E-01 3.129E-01 2.745E-01 2.369E-01 2.064E-01 2.079E-01 1.807E-01 1.552E-01 1.426E-01 1.306E-01 1.207E-01 1.134E-01 1.113E-01 1.086E-01 1.048E-01 1.026E-01 9.526E-02 9.039E-02 8.428E-02 7.311E-02 6.765E-02 5.814E-02 5.175E-02 5.018E-02 3.940E-02 3.638E-02 3.353E-02 3.180E-02 2.723E-02 2.402E-02 2.140E-02 1.712E-02 1.304E-02 1.105E-02 7.230E-03 5.698E-03 4.000E-01 2.744E+01 2.396E+01 2.071E+01 1.772E+01 1.568E+01 1.371E+01 1.209E+01 1.073E+01 9.599E+00 8.612E+00 7.751E+00 6.969E+00 5.831E+00 4.916E+00 3.383E+00 2.442E+00 1.883E+00 1.477E+00 1.003E+00 7.091E-01 6.448E-01 5.902E-01 5.571E-01 4.970E-01 4.443E-01 3.654E-01 3.121E-01 2.739E-01 2.364E-01 2.060E-01 2.076E-01 1.804E-01 1.551E-01 1.425E-01 1.305E-01 1.206E-01 1.133E-01 1.112E-01 1.085E-01 1.047E-01 1.025E-01 9.521E-02 9.034E-02 8.424E-02 7.308E-02 6.762E-02 5.812E-02 5.174E-02 5.017E-02 3.939E-02 3.638E-02 3.352E-02 3.179E-02 2.723E-02 2.401E-02 2.140E-02 1.712E-02 1.304E-02 1.105E-02 7.229E-03 5.697E-03 5.000E-01 2.005E+01 1.829E+01 1.636E+01 1.442E+01 1.303E+01 1.162E+01 1.041E+01 9.368E+00 8.484E+00 7.692E+00 6.987E+00 6.332E+00 5.376E+00 4.584E+00 3.220E+00 2.354E+00 1.832E+00 1.446E+00 9.894E-01 7.020E-01 6.392E-01 5.857E-01 5.531E-01 4.939E-01 4.419E-01 3.638E-01 3.110E-01 2.732E-01 2.359E-01 2.056E-01 2.072E-01 1.802E-01 1.549E-01 1.423E-01 1.303E-01 1.205E-01 1.132E-01 1.111E-01 1.084E-01 1.046E-01 1.024E-01 9.514E-02 9.028E-02 8.419E-02 7.304E-02 6.759E-02 5.809E-02 5.171E-02 5.015E-02 3.938E-02 3.636E-02 3.351E-02 3.178E-02 2.722E-02 2.401E-02 2.139E-02 1.712E-02 1.303E-02 1.105E-02 7.228E-03 5.697E-03 6.000E-01 1.490E+01 1.411E+01 1.300E+01 1.179E+01 1.084E+01 9.838E+00 8.952E+00 8.157E+00 7.473E+00 6.844E+00 6.273E+00 5.727E+00 4.930E+00 4.251E+00 3.047E+00 2.258E+00 1.774E+00 1.410E+00 9.730E-01 6.936E-01 6.326E-01 5.803E-01 5.483E-01 4.902E-01 4.389E-01 3.620E-01 3.097E-01 2.723E-01 2.353E-01 2.050E-01 2.067E-01 1.798E-01 1.546E-01 1.421E-01 1.301E-01 1.203E-01 1.130E-01 1.109E-01 1.083E-01 1.045E-01 1.023E-01 9.506E-02 9.021E-02 8.413E-02 7.300E-02 6.755E-02 5.806E-02 5.169E-02 5.013E-02 3.936E-02 3.635E-02 3.350E-02 3.177E-02 2.721E-02 2.400E-02 2.139E-02 1.711E-02 1.303E-02 1.104E-02 7.227E-03 5.696E-03 7.000E-01 1.125E+01 1.100E+01 1.042E+01 9.692E+00 9.051E+00 8.346E+00 7.703E+00 7.099E+00 6.574E+00 6.078E+00 5.619E+00 5.168E+00 4.509E+00 3.929E+00 2.873E+00 2.157E+00 1.712E+00 1.370E+00 9.546E-01 6.840E-01 6.250E-01 5.741E-01 5.428E-01 4.860E-01 4.356E-01 3.598E-01 3.082E-01 2.712E-01 2.345E-01 2.043E-01 2.061E-01 1.794E-01 1.544E-01 1.419E-01 1.299E-01 1.201E-01 1.129E-01 1.108E-01 1.082E-01 1.044E-01 1.022E-01 9.496E-02 9.013E-02 8.406E-02 7.294E-02 6.750E-02 5.803E-02 5.166E-02 5.010E-02 3.934E-02 3.634E-02 3.349E-02 3.176E-02 2.720E-02 2.399E-02 2.138E-02 1.711E-02 1.303E-02 1.104E-02 7.226E-03 5.696E-03 8.000E-01 8.632E+00 8.662E+00 8.415E+00 8.014E+00 7.588E+00 7.101E+00 6.642E+00 6.185E+00 5.785E+00 5.396E+00 5.029E+00 4.659E+00 4.117E+00 3.625E+00 2.701E+00 2.055E+00 1.648E+00 1.328E+00 9.345E-01 6.734E-01 6.166E-01 5.672E-01 5.366E-01 4.812E-01 4.317E-01 3.573E-01 3.065E-01 2.700E-01 2.336E-01 2.036E-01 2.055E-01 1.790E-01 1.540E-01 1.416E-01 1.297E-01 1.199E-01 1.127E-01 1.106E-01 1.080E-01 1.043E-01 1.021E-01 9.485E-02 9.003E-02 8.398E-02 7.288E-02 6.744E-02 5.798E-02 5.162E-02 5.006E-02 3.932E-02 3.632E-02 3.347E-02 3.175E-02 2.719E-02 2.399E-02 2.137E-02 1.711E-02 1.303E-02 1.104E-02 7.225E-03 5.695E-03 9.000E-01 6.717E+00 6.895E+00 6.855E+00 6.664E+00 6.392E+00 6.064E+00 5.742E+00 5.398E+00 5.097E+00 4.795E+00 4.501E+00 4.200E+00 3.756E+00 3.341E+00 2.536E+00 1.953E+00 1.582E+00 1.284E+00 9.130E-01 6.619E-01 6.074E-01 5.596E-01 5.298E-01 4.759E-01 4.275E-01 3.546E-01 3.046E-01 2.687E-01 2.326E-01 2.027E-01 2.047E-01 1.785E-01 1.537E-01 1.413E-01 1.294E-01 1.197E-01 1.125E-01 1.104E-01 1.078E-01 1.041E-01 1.019E-01 9.473E-02 8.992E-02 8.388E-02 7.281E-02 6.738E-02 5.793E-02 5.159E-02 5.003E-02 3.930E-02 3.630E-02 3.345E-02 3.173E-02 2.718E-02 2.398E-02 2.136E-02 1.710E-02 1.302E-02 1.104E-02 7.223E-03 5.694E-03 1.000E+00 5.295E+00 5.544E+00 5.628E+00 5.569E+00 5.411E+00 5.199E+00 4.980E+00 4.722E+00 4.500E+00 4.266E+00 4.032E+00 3.788E+00 3.425E+00 3.077E+00 2.378E+00 1.855E+00 1.517E+00 1.240E+00 8.906E-01 6.497E-01 5.975E-01 5.515E-01 5.226E-01 4.702E-01 4.230E-01 3.516E-01 3.026E-01 2.672E-01 2.316E-01 2.018E-01 2.039E-01 1.779E-01 1.533E-01 1.409E-01 1.291E-01 1.194E-01 1.122E-01 1.102E-01 1.076E-01 1.039E-01 1.018E-01 9.459E-02 8.979E-02 8.378E-02 7.273E-02 6.731E-02 5.788E-02 5.154E-02 4.999E-02 3.927E-02 3.627E-02 3.343E-02 3.171E-02 2.717E-02 2.397E-02 2.136E-02 1.709E-02 1.302E-02 1.103E-02 7.222E-03 5.693E-03 1.100E+00 4.224E+00 4.503E+00 4.656E+00 4.677E+00 4.602E+00 4.474E+00 4.333E+00 4.142E+00 3.981E+00 3.802E+00 3.616E+00 3.420E+00 3.124E+00 2.833E+00 2.228E+00 1.759E+00 1.453E+00 1.196E+00 8.676E-01 6.369E-01 5.872E-01 5.429E-01 5.149E-01 4.641E-01 4.181E-01 3.484E-01 3.003E-01 2.656E-01 2.304E-01 2.008E-01 2.030E-01 1.773E-01 1.528E-01 1.405E-01 1.288E-01 1.191E-01 1.120E-01 1.099E-01 1.074E-01 1.037E-01 1.016E-01 9.444E-02 8.966E-02 8.366E-02 7.264E-02 6.723E-02 5.782E-02 5.149E-02 4.994E-02 3.924E-02 3.625E-02 3.341E-02 3.169E-02 2.715E-02 2.395E-02 2.135E-02 1.709E-02 1.301E-02 1.103E-02 7.220E-03 5.691E-03 1.200E+00 3.406E+00 3.692E+00 3.879E+00 3.946E+00 3.933E+00 3.866E+00 3.782E+00 3.643E+00 3.531E+00 3.396E+00 3.247E+00 3.091E+00 2.852E+00 2.610E+00 2.087E+00 1.667E+00 1.390E+00 1.152E+00 8.442E-01 6.236E-01 5.764E-01 5.339E-01 5.068E-01 4.577E-01 4.129E-01 3.449E-01 2.979E-01 2.639E-01 2.291E-01 1.997E-01 2.021E-01 1.766E-01 1.523E-01 1.401E-01 1.284E-01 1.188E-01 1.117E-01 1.097E-01 1.072E-01 1.035E-01 1.014E-01 9.427E-02 8.951E-02 8.353E-02 7.254E-02 6.715E-02 5.776E-02 5.144E-02 4.989E-02 3.920E-02 3.622E-02 3.339E-02 3.167E-02 2.714E-02 2.394E-02 2.133E-02 1.708E-02 1.301E-02 1.103E-02 7.218E-03 5.690E-03 1.300E+00 2.774E+00 3.055E+00 3.254E+00 3.345E+00 3.377E+00 3.354E+00 3.312E+00 3.213E+00 3.140E+00 3.039E+00 2.920E+00 2.797E+00 2.605E+00 2.405E+00 1.954E+00 1.579E+00 1.329E+00 1.109E+00 8.206E-01 6.100E-01 5.653E-01 5.245E-01 4.984E-01 4.510E-01 4.075E-01 3.413E-01 2.954E-01 2.621E-01 2.278E-01 1.985E-01 2.011E-01 1.759E-01 1.518E-01 1.397E-01 1.280E-01 1.184E-01 1.114E-01 1.094E-01 1.069E-01 1.033E-01 1.011E-01 9.409E-02 8.935E-02 8.340E-02 7.244E-02 6.706E-02 5.769E-02 5.138E-02 4.984E-02 3.917E-02 3.619E-02 3.336E-02 3.165E-02 2.712E-02 2.393E-02 2.132E-02 1.707E-02 1.300E-02 1.102E-02 7.216E-03 5.689E-03 1.400E+00 2.280E+00 2.549E+00 2.747E+00 2.851E+00 2.913E+00 2.920E+00 2.910E+00 2.843E+00 2.800E+00 2.726E+00 2.631E+00 2.535E+00 2.382E+00 2.218E+00 1.830E+00 1.496E+00 1.270E+00 1.066E+00 7.971E-01 5.962E-01 5.539E-01 5.150E-01 4.898E-01 4.441E-01 4.019E-01 3.375E-01 2.927E-01 2.601E-01 2.263E-01 1.972E-01 2.000E-01 1.752E-01 1.513E-01 1.392E-01 1.276E-01 1.180E-01 1.110E-01 1.091E-01 1.066E-01 1.030E-01 1.009E-01 9.389E-02 8.918E-02 8.325E-02 7.233E-02 6.696E-02 5.761E-02 5.132E-02 4.978E-02 3.913E-02 3.615E-02 3.333E-02 3.162E-02 2.710E-02 2.391E-02 2.131E-02 1.706E-02 1.300E-02 1.102E-02 7.213E-03 5.687E-03 1.500E+00 1.890E+00 2.144E+00 2.335E+00 2.444E+00 2.524E+00 2.552E+00 2.565E+00 2.522E+00 2.502E+00 2.451E+00 2.375E+00 2.301E+00 2.181E+00 2.047E+00 1.715E+00 1.416E+00 1.213E+00 1.025E+00 7.738E-01 5.823E-01 5.424E-01 5.052E-01 4.810E-01 4.370E-01 3.961E-01 3.336E-01 2.899E-01 2.581E-01 2.248E-01 1.959E-01 1.988E-01 1.743E-01 1.507E-01 1.387E-01 1.271E-01 1.176E-01 1.107E-01 1.087E-01 1.063E-01 1.027E-01 1.007E-01 9.369E-02 8.900E-02 8.309E-02 7.221E-02 6.686E-02 5.753E-02 5.126E-02 4.972E-02 3.908E-02 3.612E-02 3.330E-02 3.159E-02 2.708E-02 2.389E-02 2.130E-02 1.705E-02 1.299E-02 1.101E-02 7.211E-03 5.686E-03 1.600E+00 1.579E+00 1.817E+00 1.996E+00 2.107E+00 2.197E+00 2.238E+00 2.268E+00 2.244E+00 2.242E+00 2.208E+00 2.148E+00 2.092E+00 1.999E+00 1.891E+00 1.607E+00 1.341E+00 1.158E+00 9.852E-01 7.508E-01 5.684E-01 5.309E-01 4.954E-01 4.720E-01 4.297E-01 3.901E-01 3.296E-01 2.869E-01 2.560E-01 2.232E-01 1.945E-01 1.976E-01 1.735E-01 1.501E-01 1.381E-01 1.267E-01 1.172E-01 1.103E-01 1.084E-01 1.060E-01 1.025E-01 1.004E-01 9.347E-02 8.880E-02 8.293E-02 7.208E-02 6.675E-02 5.745E-02 5.119E-02 4.965E-02 3.904E-02 3.608E-02 3.327E-02 3.157E-02 2.706E-02 2.388E-02 2.128E-02 1.704E-02 1.299E-02 1.101E-02 7.208E-03 5.684E-03 1.700E+00 1.328E+00 1.551E+00 1.715E+00 1.828E+00 1.920E+00 1.970E+00 2.012E+00 2.002E+00 2.014E+00 1.993E+00 1.947E+00 1.905E+00 1.834E+00 1.748E+00 1.506E+00 1.270E+00 1.106E+00 9.466E-01 7.282E-01 5.546E-01 5.193E-01 4.854E-01 4.630E-01 4.224E-01 3.841E-01 3.254E-01 2.839E-01 2.538E-01 2.216E-01 1.931E-01 1.964E-01 1.726E-01 1.494E-01 1.376E-01 1.262E-01 1.168E-01 1.099E-01 1.080E-01 1.057E-01 1.022E-01 1.001E-01 9.324E-02 8.860E-02 8.275E-02 7.194E-02 6.663E-02 5.735E-02 5.111E-02 4.958E-02 3.899E-02 3.604E-02 3.324E-02 3.153E-02 2.703E-02 2.386E-02 2.127E-02 1.703E-02 1.298E-02 1.100E-02 7.205E-03 5.682E-03 1.800E+00 1.125E+00 1.333E+00 1.482E+00 1.595E+00 1.685E+00 1.741E+00 1.790E+00 1.791E+00 1.813E+00 1.803E+00 1.767E+00 1.737E+00 1.685E+00 1.617E+00 1.412E+00 1.203E+00 1.056E+00 9.093E-01 7.060E-01 5.408E-01 5.077E-01 4.755E-01 4.540E-01 4.150E-01 3.780E-01 3.211E-01 2.809E-01 2.515E-01 2.199E-01 1.916E-01 1.950E-01 1.717E-01 1.487E-01 1.370E-01 1.257E-01 1.163E-01 1.095E-01 1.076E-01 1.053E-01 1.019E-01 9.982E-02 9.299E-02 8.838E-02 8.257E-02 7.180E-02 6.650E-02 5.726E-02 5.103E-02 4.951E-02 3.894E-02 3.600E-02 3.320E-02 3.150E-02 2.701E-02 2.384E-02 2.125E-02 1.702E-02 1.297E-02 1.100E-02 7.202E-03 5.680E-03 1.900E+00 9.592E-01 1.151E+00 1.287E+00 1.398E+00 1.484E+00 1.544E+00 1.597E+00 1.606E+00 1.635E+00 1.634E+00 1.607E+00 1.587E+00 1.550E+00 1.498E+00 1.325E+00 1.139E+00 1.008E+00 8.733E-01 6.844E-01 5.273E-01 4.963E-01 4.656E-01 4.450E-01 4.076E-01 3.718E-01 3.168E-01 2.777E-01 2.492E-01 2.181E-01 1.900E-01 1.937E-01 1.707E-01 1.480E-01 1.364E-01 1.251E-01 1.158E-01 1.090E-01 1.072E-01 1.050E-01 1.015E-01 9.951E-02 9.274E-02 8.816E-02 8.237E-02 7.165E-02 6.637E-02 5.716E-02 5.095E-02 4.943E-02 3.888E-02 3.595E-02 3.316E-02 3.147E-02 2.698E-02 2.382E-02 2.123E-02 1.701E-02 1.296E-02 1.099E-02 7.199E-03 5.678E-03 2.000E+00 8.247E-01 9.992E-01 1.123E+00 1.231E+00 1.312E+00 1.374E+00 1.429E+00 1.444E+00 1.478E+00 1.484E+00 1.464E+00 1.452E+00 1.428E+00 1.389E+00 1.244E+00 1.079E+00 9.623E-01 8.387E-01 6.632E-01 5.139E-01 4.849E-01 4.557E-01 4.360E-01 4.001E-01 3.656E-01 3.125E-01 2.745E-01 2.468E-01 2.163E-01 1.884E-01 1.923E-01 1.697E-01 1.473E-01 1.357E-01 1.246E-01 1.153E-01 1.086E-01 1.068E-01 1.046E-01 1.012E-01 9.919E-02 9.247E-02 8.792E-02 8.217E-02 7.150E-02 6.623E-02 5.705E-02 5.087E-02 4.935E-02 3.883E-02 3.591E-02 3.312E-02 3.143E-02 2.695E-02 2.379E-02 2.122E-02 1.700E-02 1.296E-02 1.098E-02 7.195E-03 5.676E-03 3.000E+00 2.547E-01 3.068E-01 3.581E-01 4.109E-01 4.559E-01 5.008E-01 5.382E-01 5.674E-01 5.994E-01 6.225E-01 6.346E-01 6.501E-01 6.739E-01 6.875E-01 6.836E-01 6.443E-01 6.124E-01 5.624E-01 4.826E-01 3.937E-01 3.814E-01 3.643E-01 3.520E-01 3.293E-01 3.055E-01 2.686E-01 2.411E-01 2.214E-01 1.966E-01 1.710E-01 1.768E-01 1.583E-01 1.388E-01 1.282E-01 1.180E-01 1.093E-01 1.032E-01 1.018E-01 1.001E-01 9.706E-02 9.533E-02 8.925E-02 8.505E-02 7.968E-02 6.957E-02 6.454E-02 5.574E-02 4.979E-02 4.833E-02 3.812E-02 3.532E-02 3.262E-02 3.098E-02 2.661E-02 2.352E-02 2.099E-02 1.684E-02 1.285E-02 1.090E-02 7.152E-03 5.648E-03 4.000E+00 1.152E-01 1.335E-01 1.588E-01 1.843E-01 2.046E-01 2.287E-01 2.508E-01 2.683E-01 2.890E-01 3.059E-01 3.185E-01 3.327E-01 3.564E-01 3.748E-01 4.005E-01 4.033E-01 4.021E-01 3.859E-01 3.537E-01 3.010E-01 2.991E-01 2.896E-01 2.827E-01 2.692E-01 2.533E-01 2.285E-01 2.093E-01 1.961E-01 1.764E-01 1.529E-01 1.604E-01 1.458E-01 1.291E-01 1.196E-01 1.103E-01 1.023E-01 9.694E-02 9.586E-02 9.463E-02 9.210E-02 9.063E-02 8.527E-02 8.147E-02 7.656E-02 6.712E-02 6.237E-02 5.403E-02 4.838E-02 4.700E-02 3.719E-02 3.454E-02 3.196E-02 3.037E-02 2.614E-02 2.314E-02 2.068E-02 1.663E-02 1.271E-02 1.080E-02 7.092E-03 5.609E-03 5.000E+00 6.431E-02 7.811E-02 8.835E-02 1.002E-01 1.128E-01 1.243E-01 1.362E-01 1.479E-01 1.595E-01 1.705E-01 1.804E-01 1.906E-01 2.084E-01 2.229E-01 2.503E-01 2.651E-01 2.738E-01 2.728E-01 2.635E-01 2.318E-01 2.361E-01 2.314E-01 2.280E-01 2.206E-01 2.102E-01 1.940E-01 1.811E-01 1.730E-01 1.574E-01 1.359E-01 1.447E-01 1.333E-01 1.192E-01 1.107E-01 1.024E-01 9.499E-02 9.031E-02 8.958E-02 8.882E-02 8.673E-02 8.554E-02 8.088E-02 7.749E-02 7.305E-02 6.430E-02 5.985E-02 5.203E-02 4.672E-02 4.542E-02 3.608E-02 3.361E-02 3.116E-02 2.964E-02 2.558E-02 2.268E-02 2.030E-02 1.636E-02 1.253E-02 1.066E-02 7.016E-03 5.560E-03 6.000E+00 4.474E-02 5.155E-02 5.657E-02 6.344E-02 7.105E-02 7.773E-02 8.455E-02 9.238E-02 9.935E-02 1.062E-01 1.129E-01 1.205E-01 1.320E-01 1.435E-01 1.661E-01 1.823E-01 1.933E-01 1.987E-01 2.001E-01 1.806E-01 1.884E-01 1.866E-01 1.854E-01 1.820E-01 1.754E-01 1.653E-01 1.568E-01 1.525E-01 1.402E-01 1.206E-01 1.302E-01 1.216E-01 1.097E-01 1.021E-01 9.464E-02 8.784E-02 8.377E-02 8.334E-02 8.300E-02 8.131E-02 8.035E-02 7.635E-02 7.334E-02 6.935E-02 6.128E-02 5.714E-02 4.984E-02 4.489E-02 4.368E-02 3.483E-02 3.256E-02 3.025E-02 2.880E-02 2.492E-02 2.215E-02 1.985E-02 1.605E-02 1.232E-02 1.050E-02 6.926E-03 5.501E-03 8.000E+00 2.845E-02 3.056E-02 3.421E-02 3.710E-02 3.906E-02 4.225E-02 4.536E-02 4.788E-02 5.167E-02 5.460E-02 5.672E-02 5.977E-02 6.650E-02 7.302E-02 8.604E-02 9.748E-02 1.070E-01 1.143E-01 1.226E-01 1.139E-01 1.245E-01 1.258E-01 1.265E-01 1.272E-01 1.251E-01 1.218E-01 1.191E-01 1.193E-01 1.115E-01 9.491E-02 1.056E-01 1.008E-01 9.230E-02 8.625E-02 8.034E-02 7.467E-02 7.162E-02 7.166E-02 7.198E-02 7.095E-02 7.038E-02 6.747E-02 6.512E-02 6.193E-02 5.506E-02 5.149E-02 4.522E-02 4.096E-02 3.994E-02 3.212E-02 3.025E-02 2.823E-02 2.694E-02 2.345E-02 2.094E-02 1.883E-02 1.532E-02 1.182E-02 1.011E-02 6.707E-03 5.357E-03 1.000E+01 2.346E-02 2.411E-02 2.487E-02 2.620E-02 2.768E-02 2.873E-02 3.038E-02 3.190E-02 3.357E-02 3.499E-02 3.651E-02 3.885E-02 4.154E-02 4.496E-02 5.225E-02 6.027E-02 6.699E-02 7.286E-02 8.124E-02 7.568E-02 8.654E-02 8.888E-02 9.024E-02 9.242E-02 9.234E-02 9.207E-02 9.233E-02 9.475E-02 8.956E-02 7.538E-02 8.627E-02 8.381E-02 7.756E-02 7.271E-02 6.805E-02 6.335E-02 6.110E-02 6.144E-02 6.221E-02 6.167E-02 6.136E-02 5.928E-02 5.743E-02 5.491E-02 4.902E-02 4.596E-02 4.060E-02 3.699E-02 3.615E-02 2.932E-02 2.784E-02 2.610E-02 2.496E-02 2.185E-02 1.960E-02 1.769E-02 1.449E-02 1.125E-02 9.650E-03 6.447E-03 5.183E-03 1.200E+01 1.920E-02 2.014E-02 2.098E-02 2.223E-02 2.278E-02 2.352E-02 2.410E-02 2.533E-02 2.561E-02 2.640E-02 2.781E-02 2.913E-02 3.033E-02 3.249E-02 3.675E-02 4.155E-02 4.655E-02 5.066E-02 5.762E-02 5.285E-02 6.299E-02 6.579E-02 6.706E-02 6.964E-02 7.050E-02 7.145E-02 7.321E-02 7.643E-02 7.271E-02 6.060E-02 7.120E-02 7.004E-02 6.528E-02 6.138E-02 5.773E-02 5.387E-02 5.222E-02 5.275E-02 5.380E-02 5.358E-02 5.345E-02 5.195E-02 5.049E-02 4.849E-02 4.339E-02 4.075E-02 3.620E-02 3.317E-02 3.250E-02 2.660E-02 2.548E-02 2.399E-02 2.299E-02 2.024E-02 1.823E-02 1.651E-02 1.361E-02 1.063E-02 9.153E-03 6.157E-03 4.987E-03 1.400E+01 1.800E-02 1.789E-02 1.791E-02 1.873E-02 1.945E-02 1.951E-02 2.046E-02 2.119E-02 2.195E-02 2.241E-02 2.257E-02 2.332E-02 2.402E-02 2.628E-02 2.877E-02 3.107E-02 3.518E-02 3.766E-02 4.321E-02 3.861E-02 4.781E-02 5.073E-02 5.172E-02 5.425E-02 5.542E-02 5.687E-02 5.923E-02 6.252E-02 5.968E-02 4.938E-02 5.933E-02 5.886E-02 5.511E-02 5.194E-02 4.913E-02 4.601E-02 4.481E-02 4.543E-02 4.664E-02 4.663E-02 4.661E-02 4.551E-02 4.432E-02 4.274E-02 3.826E-02 3.598E-02 3.211E-02 2.960E-02 2.907E-02 2.403E-02 2.323E-02 2.197E-02 2.109E-02 1.865E-02 1.687E-02 1.534E-02 1.272E-02 9.984E-03 8.635E-03 5.849E-03 4.774E-03 1.600E+01 1.559E-02 1.654E-02 1.687E-02 1.741E-02 1.792E-02 1.772E-02 1.806E-02 1.868E-02 1.894E-02 1.925E-02 1.962E-02 1.976E-02 2.037E-02 2.182E-02 2.342E-02 2.500E-02 2.811E-02 2.977E-02 3.378E-02 2.939E-02 3.771E-02 4.040E-02 4.127E-02 4.358E-02 4.462E-02 4.635E-02 4.872E-02 5.176E-02 4.946E-02 4.077E-02 4.986E-02 4.973E-02 4.667E-02 4.410E-02 4.197E-02 3.949E-02 3.864E-02 3.929E-02 4.056E-02 4.068E-02 4.072E-02 3.988E-02 3.889E-02 3.763E-02 3.364E-02 3.167E-02 2.838E-02 2.631E-02 2.591E-02 2.163E-02 2.113E-02 2.006E-02 1.929E-02 1.714E-02 1.557E-02 1.419E-02 1.184E-02 9.342E-03 8.111E-03 5.531E-03 4.551E-03 1.800E+01 1.531E-02 1.475E-02 1.474E-02 1.525E-02 1.574E-02 1.590E-02 1.635E-02 1.636E-02 1.719E-02 1.739E-02 1.703E-02 1.766E-02 1.790E-02 1.855E-02 1.959E-02 2.109E-02 2.306E-02 2.470E-02 2.724E-02 2.319E-02 3.070E-02 3.303E-02 3.386E-02 3.590E-02 3.672E-02 3.849E-02 4.065E-02 4.330E-02 4.134E-02 3.408E-02 4.223E-02 4.221E-02 3.965E-02 3.757E-02 3.599E-02 3.407E-02 3.349E-02 3.413E-02 3.540E-02 3.559E-02 3.566E-02 3.498E-02 3.413E-02 3.313E-02 2.953E-02 2.781E-02 2.503E-02 2.333E-02 2.304E-02 1.944E-02 1.918E-02 1.829E-02 1.761E-02 1.572E-02 1.432E-02 1.310E-02 1.099E-02 8.714E-03 7.593E-03 5.212E-03 4.324E-03 2.000E+01 1.288E-02 1.421E-02 1.393E-02 1.450E-02 1.446E-02 1.471E-02 1.513E-02 1.514E-02 1.541E-02 1.556E-02 1.556E-02 1.575E-02 1.596E-02 1.623E-02 1.695E-02 1.816E-02 1.967E-02 2.097E-02 2.263E-02 1.887E-02 2.561E-02 2.763E-02 2.837E-02 3.012E-02 3.080E-02 3.247E-02 3.434E-02 3.656E-02 3.482E-02 2.881E-02 3.603E-02 3.601E-02 3.379E-02 3.210E-02 3.098E-02 2.954E-02 2.917E-02 2.977E-02 3.100E-02 3.123E-02 3.130E-02 3.071E-02 2.997E-02 2.917E-02 2.590E-02 2.439E-02 2.203E-02 2.065E-02 2.045E-02 1.744E-02 1.740E-02 1.665E-02 1.605E-02 1.438E-02 1.316E-02 1.206E-02 1.018E-02 8.107E-03 7.089E-03 4.897E-03 4.096E-03 2.200E+01 1.295E-02 1.236E-02 1.295E-02 1.339E-02 1.287E-02 1.367E-02 1.311E-02 1.354E-02 1.380E-02 1.391E-02 1.382E-02 1.430E-02 1.434E-02 1.444E-02 1.504E-02 1.592E-02 1.725E-02 1.809E-02 1.933E-02 1.575E-02 2.179E-02 2.350E-02 2.418E-02 2.566E-02 2.626E-02 2.774E-02 2.933E-02 3.112E-02 2.952E-02 2.461E-02 3.095E-02 3.085E-02 2.888E-02 2.751E-02 2.676E-02 2.574E-02 2.554E-02 2.608E-02 2.725E-02 2.748E-02 2.753E-02 2.700E-02 2.634E-02 2.570E-02 2.269E-02 2.137E-02 1.936E-02 1.825E-02 1.813E-02 1.563E-02 1.577E-02 1.516E-02 1.462E-02 1.315E-02 1.206E-02 1.109E-02 9.407E-03 7.527E-03 6.604E-03 4.591E-03 3.871E-03 2.400E+01 1.182E-02 1.212E-02 1.167E-02 1.205E-02 1.248E-02 1.231E-02 1.224E-02 1.256E-02 1.242E-02 1.252E-02 1.271E-02 1.280E-02 1.332E-02 1.323E-02 1.352E-02 1.422E-02 1.513E-02 1.597E-02 1.676E-02 1.344E-02 1.882E-02 2.024E-02 2.091E-02 2.216E-02 2.269E-02 2.396E-02 2.525E-02 2.665E-02 2.518E-02 2.122E-02 2.673E-02 2.652E-02 2.474E-02 2.364E-02 2.320E-02 2.254E-02 2.246E-02 2.294E-02 2.402E-02 2.424E-02 2.427E-02 2.378E-02 2.317E-02 2.264E-02 1.988E-02 1.872E-02 1.701E-02 1.611E-02 1.606E-02 1.401E-02 1.429E-02 1.379E-02 1.332E-02 1.201E-02 1.105E-02 1.018E-02 8.680E-03 6.976E-03 6.142E-03 4.295E-03 3.652E-03 2.600E+01 1.067E-02 1.127E-02 1.125E-02 1.122E-02 1.114E-02 1.124E-02 1.122E-02 1.156E-02 1.153E-02 1.158E-02 1.175E-02 1.190E-02 1.200E-02 1.207E-02 1.218E-02 1.281E-02 1.339E-02 1.421E-02 1.466E-02 1.168E-02 1.646E-02 1.766E-02 1.827E-02 1.933E-02 1.977E-02 2.088E-02 2.191E-02 2.293E-02 2.157E-02 1.844E-02 2.319E-02 2.288E-02 2.126E-02 2.037E-02 2.017E-02 1.981E-02 1.984E-02 2.025E-02 2.124E-02 2.143E-02 2.145E-02 2.096E-02 2.040E-02 1.997E-02 1.741E-02 1.639E-02 1.493E-02 1.422E-02 1.422E-02 1.255E-02 1.296E-02 1.255E-02 1.212E-02 1.097E-02 1.012E-02 9.344E-03 8.000E-03 6.457E-03 5.703E-03 4.012E-03 3.440E-03 2.800E+01 1.026E-02 9.739E-03 9.799E-03 9.940E-03 1.028E-02 1.017E-02 1.031E-02 1.038E-02 1.044E-02 1.050E-02 1.049E-02 1.080E-02 1.104E-02 1.080E-02 1.091E-02 1.167E-02 1.190E-02 1.271E-02 1.288E-02 1.029E-02 1.454E-02 1.556E-02 1.612E-02 1.701E-02 1.733E-02 1.836E-02 1.913E-02 1.983E-02 1.856E-02 1.614E-02 2.019E-02 1.979E-02 1.831E-02 1.760E-02 1.759E-02 1.748E-02 1.759E-02 1.794E-02 1.883E-02 1.900E-02 1.899E-02 1.850E-02 1.798E-02 1.763E-02 1.526E-02 1.436E-02 1.311E-02 1.255E-02 1.259E-02 1.124E-02 1.175E-02 1.142E-02 1.104E-02 1.001E-02 9.259E-03 8.568E-03 7.367E-03 5.970E-03 5.289E-03 3.743E-03 3.236E-03 3.000E+01 9.022E-03 9.458E-03 9.378E-03 9.373E-03 9.595E-03 9.377E-03 9.660E-03 9.737E-03 9.548E-03 9.572E-03 9.789E-03 9.922E-03 1.017E-02 9.769E-03 9.824E-03 1.053E-02 1.065E-02 1.148E-02 1.136E-02 9.176E-03 1.293E-02 1.381E-02 1.432E-02 1.505E-02 1.529E-02 1.621E-02 1.680E-02 1.721E-02 1.603E-02 1.422E-02 1.765E-02 1.716E-02 1.581E-02 1.524E-02 1.538E-02 1.548E-02 1.566E-02 1.594E-02 1.674E-02 1.688E-02 1.684E-02 1.636E-02 1.586E-02 1.557E-02 1.338E-02 1.258E-02 1.152E-02 1.108E-02 1.114E-02 1.007E-02 1.066E-02 1.039E-02 1.005E-02 9.136E-03 8.471E-03 7.854E-03 6.780E-03 5.515E-03 4.900E-03 3.488E-03 3.042E-03 3.200E+01 8.218E-03 8.544E-03 8.995E-03 8.653E-03 8.360E-03 8.690E-03 8.616E-03 8.758E-03 8.829E-03 8.838E-03 8.890E-03 9.072E-03 9.173E-03 9.026E-03 9.016E-03 9.523E-03 9.670E-03 1.025E-02 1.013E-02 8.253E-03 1.155E-02 1.232E-02 1.273E-02 1.334E-02 1.359E-02 1.436E-02 1.483E-02 1.501E-02 1.389E-02 1.260E-02 1.548E-02 1.493E-02 1.368E-02 1.323E-02 1.348E-02 1.375E-02 1.398E-02 1.420E-02 1.492E-02 1.503E-02 1.497E-02 1.448E-02 1.402E-02 1.377E-02 1.174E-02 1.103E-02 1.012E-02 9.779E-03 9.869E-03 9.027E-03 9.676E-03 9.465E-03 9.160E-03 8.340E-03 7.749E-03 7.198E-03 6.236E-03 5.091E-03 4.536E-03 3.247E-03 2.856E-03 3.400E+01 7.931E-03 7.519E-03 7.715E-03 7.678E-03 7.853E-03 7.747E-03 7.877E-03 7.948E-03 7.977E-03 8.026E-03 8.106E-03 8.235E-03 8.250E-03 8.157E-03 8.260E-03 8.637E-03 8.832E-03 9.188E-03 9.106E-03 7.471E-03 1.036E-02 1.102E-02 1.135E-02 1.186E-02 1.215E-02 1.277E-02 1.313E-02 1.314E-02 1.208E-02 1.122E-02 1.363E-02 1.303E-02 1.187E-02 1.152E-02 1.184E-02 1.225E-02 1.252E-02 1.269E-02 1.333E-02 1.341E-02 1.333E-02 1.284E-02 1.240E-02 1.220E-02 1.031E-02 9.683E-03 8.901E-03 8.640E-03 8.746E-03 8.096E-03 8.789E-03 8.625E-03 8.350E-03 7.616E-03 7.090E-03 6.596E-03 5.735E-03 4.698E-03 4.197E-03 3.021E-03 2.681E-03 3.600E+01 7.330E-03 7.136E-03 6.937E-03 7.166E-03 7.363E-03 7.232E-03 7.343E-03 7.487E-03 7.357E-03 7.379E-03 7.553E-03 7.584E-03 7.483E-03 7.564E-03 7.587E-03 7.782E-03 7.992E-03 8.290E-03 8.190E-03 6.798E-03 9.339E-03 9.863E-03 1.018E-02 1.060E-02 1.089E-02 1.140E-02 1.164E-02 1.152E-02 1.054E-02 1.003E-02 1.203E-02 1.139E-02 1.033E-02 1.005E-02 1.043E-02 1.095E-02 1.125E-02 1.137E-02 1.193E-02 1.198E-02 1.189E-02 1.140E-02 1.098E-02 1.081E-02 9.071E-03 8.509E-03 7.836E-03 7.640E-03 7.756E-03 7.266E-03 7.990E-03 7.866E-03 7.616E-03 6.957E-03 6.488E-03 6.045E-03 5.273E-03 4.335E-03 3.882E-03 2.810E-03 2.515E-03 3.800E+01 6.197E-03 6.733E-03 6.601E-03 6.666E-03 6.530E-03 6.689E-03 6.652E-03 6.761E-03 6.679E-03 6.682E-03 6.805E-03 6.943E-03 6.863E-03 6.778E-03 6.818E-03 7.128E-03 7.174E-03 7.495E-03 7.348E-03 6.213E-03 8.444E-03 8.853E-03 9.172E-03 9.516E-03 9.761E-03 1.022E-02 1.035E-02 1.012E-02 9.226E-03 9.004E-03 1.064E-02 9.985E-03 9.005E-03 8.790E-03 9.213E-03 9.809E-03 1.013E-02 1.021E-02 1.070E-02 1.073E-02 1.063E-02 1.014E-02 9.745E-03 9.598E-03 7.988E-03 7.488E-03 6.907E-03 6.763E-03 6.885E-03 6.526E-03 7.269E-03 7.179E-03 6.952E-03 6.358E-03 5.939E-03 5.541E-03 4.849E-03 3.998E-03 3.590E-03 2.612E-03 2.358E-03 4.000E+01 5.796E-03 5.930E-03 6.196E-03 5.952E-03 5.901E-03 6.052E-03 5.944E-03 6.050E-03 6.121E-03 6.139E-03 6.179E-03 6.099E-03 6.158E-03 6.220E-03 6.266E-03 6.405E-03 6.491E-03 6.778E-03 6.579E-03 5.702E-03 7.634E-03 7.991E-03 8.273E-03 8.551E-03 8.771E-03 9.185E-03 9.232E-03 8.922E-03 8.093E-03 8.110E-03 9.430E-03 8.772E-03 7.873E-03 7.707E-03 8.154E-03 8.810E-03 9.148E-03 9.190E-03 9.618E-03 9.625E-03 9.512E-03 9.035E-03 8.659E-03 8.534E-03 7.046E-03 6.598E-03 6.097E-03 5.993E-03 6.119E-03 5.866E-03 6.620E-03 6.557E-03 6.350E-03 5.814E-03 5.439E-03 5.081E-03 4.459E-03 3.688E-03 3.319E-03 2.427E-03 2.212E-03 4.200E+01 5.401E-03 5.241E-03 5.584E-03 5.185E-03 5.402E-03 5.353E-03 5.350E-03 5.621E-03 5.387E-03 5.425E-03 5.699E-03 5.622E-03 5.646E-03 5.654E-03 5.628E-03 5.820E-03 5.859E-03 6.141E-03 5.908E-03 5.241E-03 6.922E-03 7.228E-03 7.471E-03 7.699E-03 7.899E-03 8.270E-03 8.260E-03 7.888E-03 7.119E-03 7.328E-03 8.377E-03 7.725E-03 6.900E-03 6.774E-03 7.233E-03 7.931E-03 8.280E-03 8.289E-03 8.661E-03 8.651E-03 8.529E-03 8.061E-03 7.706E-03 7.598E-03 6.224E-03 5.824E-03 5.389E-03 5.318E-03 5.444E-03 5.278E-03 6.034E-03 5.995E-03 5.805E-03 5.320E-03 4.983E-03 4.661E-03 4.101E-03 3.402E-03 3.068E-03 2.256E-03 2.074E-03 4.400E+01 5.178E-03 4.892E-03 4.812E-03 4.859E-03 5.158E-03 4.904E-03 4.993E-03 5.137E-03 5.034E-03 5.061E-03 5.257E-03 5.092E-03 5.061E-03 5.083E-03 5.138E-03 5.285E-03 5.356E-03 5.540E-03 5.337E-03 4.828E-03 6.286E-03 6.551E-03 6.745E-03 6.936E-03 7.125E-03 7.449E-03 7.411E-03 6.992E-03 6.281E-03 6.639E-03 7.463E-03 6.822E-03 6.062E-03 5.969E-03 6.431E-03 7.156E-03 7.510E-03 7.492E-03 7.814E-03 7.789E-03 7.661E-03 7.205E-03 6.870E-03 6.776E-03 5.508E-03 5.149E-03 4.771E-03 4.725E-03 4.850E-03 4.755E-03 5.506E-03 5.486E-03 5.312E-03 4.871E-03 4.569E-03 4.278E-03 3.774E-03 3.139E-03 2.837E-03 2.096E-03 1.945E-03 4.600E+01 4.638E-03 4.488E-03 4.372E-03 4.400E-03 4.655E-03 4.485E-03 4.515E-03 4.642E-03 4.546E-03 4.573E-03 4.751E-03 4.674E-03 4.518E-03 4.657E-03 4.714E-03 4.803E-03 4.900E-03 4.999E-03 4.838E-03 4.465E-03 5.715E-03 5.938E-03 6.104E-03 6.262E-03 6.438E-03 6.725E-03 6.662E-03 6.212E-03 5.556E-03 6.030E-03 6.667E-03 6.039E-03 5.340E-03 5.273E-03 5.730E-03 6.470E-03 6.827E-03 6.785E-03 7.063E-03 7.025E-03 6.894E-03 6.451E-03 6.135E-03 6.053E-03 4.882E-03 4.561E-03 4.231E-03 4.205E-03 4.327E-03 4.288E-03 5.030E-03 5.026E-03 4.865E-03 4.464E-03 4.192E-03 3.929E-03 3.474E-03 2.898E-03 2.624E-03 1.949E-03 1.825E-03 4.800E+01 4.102E-03 4.161E-03 4.060E-03 4.144E-03 4.243E-03 4.194E-03 4.262E-03 4.126E-03 4.252E-03 4.270E-03 4.208E-03 4.108E-03 4.143E-03 4.243E-03 4.319E-03 4.314E-03 4.419E-03 4.552E-03 4.365E-03 4.140E-03 5.183E-03 5.397E-03 5.549E-03 5.669E-03 5.826E-03 6.093E-03 6.002E-03 5.532E-03 4.927E-03 5.489E-03 5.968E-03 5.360E-03 4.717E-03 4.669E-03 5.118E-03 5.863E-03 6.218E-03 6.157E-03 6.395E-03 6.348E-03 6.214E-03 5.786E-03 5.489E-03 5.417E-03 4.337E-03 4.047E-03 3.759E-03 3.748E-03 3.866E-03 3.872E-03 4.600E-03 4.609E-03 4.460E-03 4.094E-03 3.849E-03 3.611E-03 3.199E-03 2.675E-03 2.427E-03 1.812E-03 1.714E-03 5.000E+01 3.540E-03 3.756E-03 3.712E-03 3.690E-03 3.836E-03 3.722E-03 3.757E-03 3.711E-03 3.781E-03 3.797E-03 3.842E-03 3.765E-03 3.783E-03 3.852E-03 3.917E-03 3.900E-03 4.013E-03 4.125E-03 3.944E-03 3.840E-03 4.709E-03 4.915E-03 5.040E-03 5.130E-03 5.290E-03 5.527E-03 5.421E-03 4.940E-03 4.380E-03 5.008E-03 5.353E-03 4.769E-03 4.178E-03 4.145E-03 4.581E-03 5.323E-03 5.675E-03 5.598E-03 5.801E-03 5.746E-03 5.612E-03 5.200E-03 4.920E-03 4.856E-03 3.859E-03 3.599E-03 3.345E-03 3.346E-03 3.459E-03 3.500E-03 4.211E-03 4.231E-03 4.094E-03 3.759E-03 3.537E-03 3.321E-03 2.948E-03 2.472E-03 2.247E-03 1.685E-03 1.610E-03 5.200E+01 3.101E-03 3.463E-03 3.294E-03 3.414E-03 3.294E-03 3.477E-03 3.436E-03 3.246E-03 3.450E-03 3.470E-03 3.345E-03 3.314E-03 3.404E-03 3.450E-03 3.538E-03 3.494E-03 3.663E-03 3.722E-03 3.572E-03 3.557E-03 4.286E-03 4.496E-03 4.566E-03 4.637E-03 4.811E-03 5.009E-03 4.907E-03 4.426E-03 3.904E-03 4.578E-03 4.812E-03 4.253E-03 3.710E-03 3.690E-03 4.110E-03 4.842E-03 5.189E-03 5.098E-03 5.271E-03 5.211E-03 5.077E-03 4.681E-03 4.418E-03 4.362E-03 3.442E-03 3.206E-03 2.983E-03 2.993E-03 3.101E-03 3.169E-03 3.861E-03 3.889E-03 3.761E-03 3.455E-03 3.253E-03 3.057E-03 2.719E-03 2.285E-03 2.080E-03 1.568E-03 1.513E-03 5.400E+01 2.865E-03 3.098E-03 3.049E-03 3.037E-03 2.994E-03 3.124E-03 3.020E-03 3.004E-03 3.060E-03 3.084E-03 3.062E-03 3.066E-03 3.070E-03 3.115E-03 3.199E-03 3.185E-03 3.360E-03 3.352E-03 3.244E-03 3.295E-03 3.924E-03 4.095E-03 4.150E-03 4.208E-03 4.379E-03 4.551E-03 4.442E-03 3.970E-03 3.490E-03 4.194E-03 4.335E-03 3.803E-03 3.303E-03 3.292E-03 3.695E-03 4.413E-03 4.753E-03 4.653E-03 4.799E-03 4.734E-03 4.602E-03 4.223E-03 3.976E-03 3.926E-03 3.076E-03 2.863E-03 2.666E-03 2.681E-03 2.784E-03 2.873E-03 3.543E-03 3.579E-03 3.460E-03 3.178E-03 2.995E-03 2.816E-03 2.509E-03 2.113E-03 1.927E-03 1.460E-03 1.424E-03 5.600E+01 2.568E-03 2.763E-03 2.679E-03 2.697E-03 2.634E-03 2.763E-03 2.801E-03 2.694E-03 2.785E-03 2.812E-03 2.728E-03 2.730E-03 2.827E-03 2.793E-03 2.899E-03 2.908E-03 3.029E-03 3.082E-03 2.940E-03 3.056E-03 3.605E-03 3.714E-03 3.803E-03 3.847E-03 3.983E-03 4.154E-03 4.018E-03 3.562E-03 3.127E-03 3.849E-03 3.911E-03 3.407E-03 2.948E-03 2.945E-03 3.330E-03 4.030E-03 4.362E-03 4.254E-03 4.377E-03 4.308E-03 4.179E-03 3.817E-03 3.585E-03 3.540E-03 2.755E-03 2.562E-03 2.387E-03 2.407E-03 2.505E-03 2.608E-03 3.257E-03 3.298E-03 3.187E-03 2.927E-03 2.760E-03 2.597E-03 2.317E-03 1.956E-03 1.787E-03 1.360E-03 1.340E-03 5.800E+01 2.314E-03 2.469E-03 2.517E-03 2.392E-03 2.351E-03 2.484E-03 2.436E-03 2.423E-03 2.456E-03 2.485E-03 2.466E-03 2.515E-03 2.579E-03 2.519E-03 2.628E-03 2.664E-03 2.720E-03 2.830E-03 2.662E-03 2.839E-03 3.308E-03 3.381E-03 3.491E-03 3.524E-03 3.629E-03 3.799E-03 3.646E-03 3.204E-03 2.809E-03 3.539E-03 3.538E-03 3.061E-03 2.638E-03 2.641E-03 3.007E-03 3.687E-03 4.011E-03 3.896E-03 4.000E-03 3.928E-03 3.802E-03 3.456E-03 3.239E-03 3.199E-03 2.473E-03 2.298E-03 2.142E-03 2.165E-03 2.257E-03 2.371E-03 2.997E-03 3.042E-03 2.939E-03 2.699E-03 2.547E-03 2.397E-03 2.142E-03 1.812E-03 1.658E-03 1.268E-03 1.264E-03 6.000E+01 2.045E-03 2.230E-03 2.105E-03 2.224E-03 2.119E-03 2.278E-03 2.289E-03 2.169E-03 2.269E-03 2.294E-03 2.226E-03 2.241E-03 2.332E-03 2.280E-03 2.384E-03 2.397E-03 2.489E-03 2.573E-03 2.420E-03 2.640E-03 3.017E-03 3.114E-03 3.190E-03 3.212E-03 3.314E-03 3.473E-03 3.329E-03 2.898E-03 2.529E-03 3.259E-03 3.209E-03 2.758E-03 2.368E-03 2.375E-03 2.722E-03 3.380E-03 3.694E-03 3.575E-03 3.662E-03 3.588E-03 3.466E-03 3.137E-03 2.933E-03 2.896E-03 2.225E-03 2.065E-03 1.926E-03 1.952E-03 2.038E-03 2.160E-03 2.762E-03 2.810E-03 2.713E-03 2.492E-03 2.352E-03 2.215E-03 1.982E-03 1.680E-03 1.539E-03 1.184E-03 1.193E-03 6.200E+01 1.832E-03 2.012E-03 1.971E-03 1.961E-03 1.876E-03 2.023E-03 1.962E-03 1.941E-03 1.981E-03 2.011E-03 2.024E-03 2.028E-03 2.106E-03 2.050E-03 2.163E-03 2.162E-03 2.300E-03 2.326E-03 2.211E-03 2.459E-03 2.758E-03 2.878E-03 2.908E-03 2.924E-03 3.035E-03 3.173E-03 3.052E-03 2.631E-03 2.284E-03 3.007E-03 2.918E-03 2.493E-03 2.132E-03 2.142E-03 2.470E-03 3.104E-03 3.408E-03 3.286E-03 3.358E-03 3.284E-03 3.166E-03 2.853E-03 2.661E-03 2.628E-03 2.006E-03 1.861E-03 1.736E-03 1.763E-03 1.844E-03 1.970E-03 2.549E-03 2.600E-03 2.509E-03 2.303E-03 2.175E-03 2.050E-03 1.836E-03 1.560E-03 1.431E-03 1.106E-03 1.127E-03 6.400E+01 1.637E-03 1.805E-03 1.668E-03 1.820E-03 1.779E-03 1.881E-03 1.899E-03 1.745E-03 1.887E-03 1.911E-03 1.829E-03 1.775E-03 1.860E-03 1.888E-03 1.992E-03 1.949E-03 2.123E-03 2.112E-03 2.020E-03 2.293E-03 2.530E-03 2.649E-03 2.660E-03 2.671E-03 2.787E-03 2.905E-03 2.796E-03 2.391E-03 2.067E-03 2.778E-03 2.660E-03 2.258E-03 1.924E-03 1.936E-03 2.246E-03 2.856E-03 3.150E-03 3.026E-03 3.085E-03 3.011E-03 2.897E-03 2.600E-03 2.420E-03 2.389E-03 1.813E-03 1.680E-03 1.568E-03 1.595E-03 1.672E-03 1.800E-03 2.356E-03 2.409E-03 2.323E-03 2.132E-03 2.014E-03 1.899E-03 1.703E-03 1.449E-03 1.331E-03 1.034E-03 1.067E-03 6.600E+01 1.523E-03 1.565E-03 1.545E-03 1.566E-03 1.515E-03 1.606E-03 1.612E-03 1.582E-03 1.609E-03 1.635E-03 1.659E-03 1.675E-03 1.739E-03 1.657E-03 1.764E-03 1.803E-03 1.910E-03 1.937E-03 1.842E-03 2.139E-03 2.334E-03 2.423E-03 2.448E-03 2.454E-03 2.562E-03 2.672E-03 2.557E-03 2.173E-03 1.877E-03 2.571E-03 2.429E-03 2.050E-03 1.741E-03 1.754E-03 2.047E-03 2.633E-03 2.916E-03 2.792E-03 2.840E-03 2.767E-03 2.656E-03 2.374E-03 2.206E-03 2.178E-03 1.643E-03 1.521E-03 1.420E-03 1.447E-03 1.519E-03 1.648E-03 2.181E-03 2.235E-03 2.154E-03 1.976E-03 1.867E-03 1.761E-03 1.581E-03 1.348E-03 1.240E-03 9.686E-04 1.011E-03 6.800E+01 1.405E-03 1.386E-03 1.372E-03 1.443E-03 1.452E-03 1.489E-03 1.560E-03 1.434E-03 1.560E-03 1.581E-03 1.536E-03 1.478E-03 1.509E-03 1.570E-03 1.664E-03 1.630E-03 1.745E-03 1.777E-03 1.682E-03 1.997E-03 2.153E-03 2.224E-03 2.261E-03 2.262E-03 2.356E-03 2.465E-03 2.342E-03 1.980E-03 1.708E-03 2.384E-03 2.222E-03 1.866E-03 1.580E-03 1.594E-03 1.871E-03 2.432E-03 2.705E-03 2.580E-03 2.619E-03 2.547E-03 2.441E-03 2.173E-03 2.015E-03 1.989E-03 1.493E-03 1.381E-03 1.289E-03 1.316E-03 1.383E-03 1.511E-03 2.022E-03 2.076E-03 2.000E-03 1.834E-03 1.734E-03 1.635E-03 1.470E-03 1.256E-03 1.156E-03 9.082E-04 9.598E-04 7.000E+01 1.173E-03 1.233E-03 1.217E-03 1.255E-03 1.273E-03 1.296E-03 1.345E-03 1.269E-03 1.346E-03 1.370E-03 1.346E-03 1.310E-03 1.447E-03 1.387E-03 1.489E-03 1.498E-03 1.594E-03 1.640E-03 1.541E-03 1.865E-03 1.993E-03 2.050E-03 2.092E-03 2.091E-03 2.170E-03 2.278E-03 2.152E-03 1.810E-03 1.558E-03 2.214E-03 2.037E-03 1.703E-03 1.438E-03 1.453E-03 1.713E-03 2.251E-03 2.514E-03 2.390E-03 2.420E-03 2.350E-03 2.247E-03 1.993E-03 1.845E-03 1.821E-03 1.359E-03 1.256E-03 1.172E-03 1.199E-03 1.262E-03 1.388E-03 1.878E-03 1.932E-03 1.860E-03 1.705E-03 1.612E-03 1.521E-03 1.368E-03 1.171E-03 1.079E-03 8.527E-04 9.128E-04 7.200E+01 1.035E-03 9.951E-04 1.143E-03 1.116E-03 1.132E-03 1.126E-03 1.219E-03 1.185E-03 1.249E-03 1.273E-03 1.251E-03 1.230E-03 1.257E-03 1.277E-03 1.371E-03 1.383E-03 1.460E-03 1.496E-03 1.415E-03 1.740E-03 1.846E-03 1.897E-03 1.928E-03 1.927E-03 2.006E-03 2.102E-03 1.986E-03 1.660E-03 1.426E-03 2.060E-03 1.873E-03 1.558E-03 1.312E-03 1.327E-03 1.572E-03 2.087E-03 2.340E-03 2.217E-03 2.240E-03 2.172E-03 2.074E-03 1.833E-03 1.693E-03 1.671E-03 1.241E-03 1.146E-03 1.069E-03 1.095E-03 1.154E-03 1.278E-03 1.747E-03 1.801E-03 1.733E-03 1.587E-03 1.501E-03 1.417E-03 1.275E-03 1.093E-03 1.009E-03 8.018E-04 8.696E-04 7.400E+01 9.449E-04 9.464E-04 1.044E-03 9.915E-04 1.028E-03 1.044E-03 1.086E-03 1.051E-03 1.094E-03 1.120E-03 1.142E-03 1.087E-03 1.174E-03 1.166E-03 1.247E-03 1.261E-03 1.354E-03 1.371E-03 1.303E-03 1.623E-03 1.706E-03 1.763E-03 1.780E-03 1.780E-03 1.855E-03 1.942E-03 1.840E-03 1.527E-03 1.308E-03 1.920E-03 1.727E-03 1.431E-03 1.201E-03 1.216E-03 1.447E-03 1.939E-03 2.182E-03 2.061E-03 2.079E-03 2.011E-03 1.918E-03 1.689E-03 1.558E-03 1.537E-03 1.136E-03 1.048E-03 9.780E-04 1.003E-03 1.058E-03 1.179E-03 1.628E-03 1.681E-03 1.617E-03 1.480E-03 1.400E-03 1.321E-03 1.190E-03 1.022E-03 9.448E-04 7.551E-04 8.300E-04 7.600E+01 8.112E-04 8.911E-04 9.343E-04 8.510E-04 8.702E-04 9.402E-04 9.230E-04 9.361E-04 9.654E-04 9.970E-04 9.861E-04 1.024E-03 1.079E-03 1.034E-03 1.143E-03 1.167E-03 1.265E-03 1.271E-03 1.202E-03 1.516E-03 1.576E-03 1.644E-03 1.650E-03 1.648E-03 1.716E-03 1.801E-03 1.709E-03 1.410E-03 1.203E-03 1.792E-03 1.597E-03 1.317E-03 1.103E-03 1.117E-03 1.335E-03 1.805E-03 2.039E-03 1.920E-03 1.933E-03 1.867E-03 1.777E-03 1.560E-03 1.437E-03 1.418E-03 1.043E-03 9.612E-04 8.967E-04 9.203E-04 9.724E-04 1.089E-03 1.519E-03 1.572E-03 1.511E-03 1.382E-03 1.308E-03 1.234E-03 1.113E-03 9.576E-04 8.859E-04 7.123E-04 7.937E-04 7.800E+01 7.547E-04 7.964E-04 7.393E-04 8.407E-04 8.452E-04 9.038E-04 9.176E-04 8.564E-04 9.442E-04 9.722E-04 9.339E-04 8.687E-04 9.833E-04 9.845E-04 1.088E-03 1.031E-03 1.177E-03 1.172E-03 1.114E-03 1.422E-03 1.458E-03 1.530E-03 1.535E-03 1.530E-03 1.595E-03 1.677E-03 1.587E-03 1.305E-03 1.110E-03 1.676E-03 1.479E-03 1.216E-03 1.015E-03 1.029E-03 1.234E-03 1.684E-03 1.909E-03 1.792E-03 1.801E-03 1.736E-03 1.651E-03 1.445E-03 1.328E-03 1.310E-03 9.596E-04 8.839E-04 8.243E-04 8.468E-04 8.957E-04 1.009E-03 1.421E-03 1.473E-03 1.415E-03 1.293E-03 1.223E-03 1.155E-03 1.042E-03 8.983E-04 8.319E-04 6.732E-04 7.606E-04 8.000E+01 6.168E-04 7.455E-04 7.176E-04 7.703E-04 7.002E-04 8.419E-04 8.088E-04 7.345E-04 8.334E-04 8.596E-04 8.052E-04 8.120E-04 8.879E-04 8.921E-04 9.816E-04 9.693E-04 1.065E-03 1.075E-03 1.028E-03 1.335E-03 1.363E-03 1.415E-03 1.427E-03 1.420E-03 1.491E-03 1.563E-03 1.471E-03 1.208E-03 1.027E-03 1.570E-03 1.373E-03 1.125E-03 9.375E-04 9.504E-04 1.144E-03 1.574E-03 1.790E-03 1.676E-03 1.681E-03 1.619E-03 1.537E-03 1.341E-03 1.231E-03 1.215E-03 8.856E-04 8.150E-04 7.599E-04 7.813E-04 8.272E-04 9.363E-04 1.331E-03 1.382E-03 1.327E-03 1.212E-03 1.147E-03 1.083E-03 9.770E-04 8.441E-04 7.826E-04 6.374E-04 7.304E-04 8.200E+01 6.017E-04 5.838E-04 6.859E-04 6.616E-04 7.086E-04 6.984E-04 7.432E-04 7.617E-04 7.577E-04 7.825E-04 8.265E-04 7.978E-04 8.140E-04 8.316E-04 9.111E-04 9.331E-04 9.714E-04 1.002E-03 9.515E-04 1.252E-03 1.283E-03 1.307E-03 1.329E-03 1.327E-03 1.394E-03 1.455E-03 1.365E-03 1.119E-03 9.532E-04 1.474E-03 1.277E-03 1.044E-03 8.680E-04 8.804E-04 1.063E-03 1.474E-03 1.683E-03 1.571E-03 1.573E-03 1.512E-03 1.434E-03 1.248E-03 1.144E-03 1.129E-03 8.197E-04 7.537E-04 7.024E-04 7.227E-04 7.659E-04 8.709E-04 1.249E-03 1.300E-03 1.247E-03 1.138E-03 1.077E-03 1.017E-03 9.179E-04 7.944E-04 7.374E-04 6.046E-04 7.028E-04 8.400E+01 5.815E-04 6.414E-04 6.600E-04 6.508E-04 6.373E-04 7.282E-04 7.334E-04 6.757E-04 7.629E-04 7.878E-04 7.360E-04 7.306E-04 7.321E-04 7.856E-04 8.698E-04 8.712E-04 9.264E-04 9.444E-04 8.866E-04 1.172E-03 1.201E-03 1.222E-03 1.247E-03 1.248E-03 1.299E-03 1.361E-03 1.275E-03 1.042E-03 8.869E-04 1.387E-03 1.191E-03 9.716E-04 8.063E-04 8.180E-04 9.908E-04 1.384E-03 1.585E-03 1.476E-03 1.475E-03 1.416E-03 1.341E-03 1.165E-03 1.066E-03 1.052E-03 7.608E-04 6.990E-04 6.511E-04 6.704E-04 7.110E-04 8.118E-04 1.174E-03 1.224E-03 1.173E-03 1.070E-03 1.013E-03 9.563E-04 8.638E-04 7.491E-04 6.960E-04 5.747E-04 6.778E-04 8.600E+01 5.758E-04 5.953E-04 6.484E-04 6.075E-04 5.632E-04 6.601E-04 6.403E-04 6.009E-04 6.580E-04 6.815E-04 6.464E-04 6.490E-04 7.394E-04 7.172E-04 7.930E-04 7.912E-04 8.759E-04 8.861E-04 8.279E-04 1.102E-03 1.117E-03 1.149E-03 1.173E-03 1.172E-03 1.213E-03 1.279E-03 1.198E-03 9.762E-04 8.275E-04 1.307E-03 1.115E-03 9.075E-04 7.515E-04 7.623E-04 9.257E-04 1.302E-03 1.495E-03 1.389E-03 1.386E-03 1.330E-03 1.258E-03 1.089E-03 9.961E-04 9.823E-04 7.083E-04 6.503E-04 6.054E-04 6.236E-04 6.618E-04 7.586E-04 1.106E-03 1.155E-03 1.107E-03 1.009E-03 9.541E-04 9.011E-04 8.144E-04 7.076E-04 6.582E-04 5.474E-04 6.551E-04 8.800E+01 5.360E-04 5.441E-04 5.281E-04 6.198E-04 5.645E-04 6.346E-04 6.301E-04 6.043E-04 6.466E-04 6.631E-04 6.644E-04 6.279E-04 6.636E-04 6.723E-04 7.466E-04 7.381E-04 8.069E-04 8.233E-04 7.734E-04 1.040E-03 1.039E-03 1.083E-03 1.094E-03 1.092E-03 1.139E-03 1.200E-03 1.128E-03 9.172E-04 7.745E-04 1.234E-03 1.047E-03 8.503E-04 7.026E-04 7.125E-04 8.671E-04 1.228E-03 1.414E-03 1.310E-03 1.306E-03 1.251E-03 1.182E-03 1.022E-03 9.332E-04 9.201E-04 6.613E-04 6.067E-04 5.645E-04 5.817E-04 6.177E-04 7.104E-04 1.044E-03 1.092E-03 1.045E-03 9.523E-04 9.007E-04 8.507E-04 7.692E-04 6.697E-04 6.237E-04 5.226E-04 6.345E-04 9.000E+01 4.219E-04 4.670E-04 5.036E-04 5.569E-04 5.301E-04 5.511E-04 5.939E-04 5.430E-04 6.186E-04 6.336E-04 5.791E-04 5.844E-04 5.851E-04 6.656E-04 7.146E-04 6.979E-04 7.475E-04 7.582E-04 7.237E-04 9.825E-04 9.739E-04 1.016E-03 1.020E-03 1.019E-03 1.074E-03 1.126E-03 1.062E-03 8.631E-04 7.272E-04 1.167E-03 9.854E-04 7.990E-04 6.590E-04 6.680E-04 8.145E-04 1.160E-03 1.340E-03 1.239E-03 1.233E-03 1.181E-03 1.114E-03 9.610E-04 8.768E-04 8.643E-04 6.194E-04 5.679E-04 5.281E-04 5.442E-04 5.782E-04 6.669E-04 9.878E-04 1.034E-03 9.895E-04 9.007E-04 8.519E-04 8.047E-04 7.279E-04 6.350E-04 5.921E-04 4.999E-04 6.159E-04 9.200E+01 3.716E-04 3.760E-04 4.227E-04 4.274E-04 4.586E-04 4.338E-04 4.865E-04 4.965E-04 5.262E-04 5.410E-04 5.513E-04 5.501E-04 5.910E-04 6.015E-04 6.548E-04 6.488E-04 7.052E-04 7.179E-04 6.807E-04 9.286E-04 9.182E-04 9.542E-04 9.623E-04 9.632E-04 1.013E-03 1.061E-03 1.001E-03 8.143E-04 6.849E-04 1.107E-03 9.296E-04 7.531E-04 6.201E-04 6.282E-04 7.673E-04 1.099E-03 1.273E-03 1.174E-03 1.167E-03 1.117E-03 1.053E-03 9.063E-04 8.262E-04 8.144E-04 5.820E-04 5.332E-04 4.955E-04 5.107E-04 5.428E-04 6.277E-04 9.361E-04 9.811E-04 9.385E-04 8.536E-04 8.072E-04 7.626E-04 6.902E-04 6.034E-04 5.632E-04 4.793E-04 5.992E-04 9.400E+01 3.052E-04 3.131E-04 3.258E-04 3.683E-04 4.009E-04 3.984E-04 4.543E-04 4.420E-04 4.910E-04 5.036E-04 4.920E-04 4.946E-04 5.391E-04 5.575E-04 5.977E-04 6.139E-04 6.733E-04 6.868E-04 6.401E-04 8.803E-04 8.700E-04 8.978E-04 9.162E-04 9.180E-04 9.541E-04 1.007E-03 9.453E-04 7.698E-04 6.471E-04 1.052E-03 8.787E-04 7.117E-04 5.853E-04 5.926E-04 7.248E-04 1.044E-03 1.212E-03 1.116E-03 1.108E-03 1.059E-03 9.977E-04 8.573E-04 7.808E-04 7.696E-04 5.486E-04 5.022E-04 4.663E-04 4.806E-04 5.111E-04 5.922E-04 8.890E-04 9.328E-04 8.918E-04 8.106E-04 7.665E-04 7.241E-04 6.557E-04 5.745E-04 5.369E-04 4.606E-04 5.841E-04 9.600E+01 2.443E-04 2.701E-04 2.969E-04 3.043E-04 3.601E-04 3.330E-04 3.903E-04 3.900E-04 4.337E-04 4.479E-04 4.556E-04 4.453E-04 4.885E-04 5.154E-04 5.543E-04 5.785E-04 6.196E-04 6.536E-04 5.993E-04 8.363E-04 8.283E-04 8.410E-04 8.740E-04 8.763E-04 8.990E-04 9.600E-04 8.919E-04 7.283E-04 6.133E-04 1.002E-03 8.324E-04 6.744E-04 5.544E-04 5.609E-04 6.867E-04 9.938E-04 1.157E-03 1.063E-03 1.055E-03 1.007E-03 9.481E-04 8.132E-04 7.402E-04 7.296E-04 5.187E-04 4.746E-04 4.404E-04 4.538E-04 4.826E-04 5.601E-04 8.460E-04 8.886E-04 8.491E-04 7.712E-04 7.292E-04 6.889E-04 6.241E-04 5.480E-04 5.129E-04 4.436E-04 5.707E-04 9.800E+01 2.124E-04 2.347E-04 2.776E-04 2.610E-04 2.959E-04 2.995E-04 3.162E-04 3.498E-04 3.542E-04 3.702E-04 3.970E-04 4.136E-04 4.716E-04 4.479E-04 4.944E-04 5.538E-04 5.600E-04 6.227E-04 5.615E-04 7.937E-04 7.881E-04 7.895E-04 8.300E-04 8.327E-04 8.528E-04 9.147E-04 8.445E-04 6.919E-04 5.832E-04 9.571E-04 7.915E-04 6.414E-04 5.269E-04 5.326E-04 6.526E-04 9.487E-04 1.107E-03 1.015E-03 1.006E-03 9.603E-04 9.035E-04 7.739E-04 7.038E-04 6.937E-04 4.922E-04 4.500E-04 4.172E-04 4.298E-04 4.572E-04 5.311E-04 8.067E-04 8.482E-04 8.100E-04 7.352E-04 6.950E-04 6.567E-04 5.953E-04 5.239E-04 4.909E-04 4.282E-04 5.587E-04 1.000E+02 2.006E-04 2.183E-04 2.290E-04 2.327E-04 2.642E-04 2.683E-04 2.733E-04 3.353E-04 3.048E-04 3.185E-04 3.722E-04 3.745E-04 4.132E-04 3.956E-04 4.423E-04 5.087E-04 5.220E-04 5.759E-04 5.325E-04 7.530E-04 7.433E-04 7.525E-04 7.827E-04 7.857E-04 8.150E-04 8.692E-04 8.076E-04 6.626E-04 5.567E-04 9.165E-04 7.564E-04 6.129E-04 5.026E-04 5.074E-04 6.221E-04 9.080E-04 1.062E-03 9.724E-04 9.632E-04 9.183E-04 8.636E-04 7.387E-04 6.714E-04 6.617E-04 4.685E-04 4.281E-04 3.966E-04 4.084E-04 4.345E-04 5.049E-04 7.709E-04 8.111E-04 7.742E-04 7.022E-04 6.638E-04 6.273E-04 5.689E-04 5.019E-04 4.709E-04 4.143E-04 5.481E-04 1.020E+02 1.704E-04 1.950E-04 2.132E-04 2.136E-04 2.398E-04 2.464E-04 2.665E-04 3.000E-04 2.995E-04 3.139E-04 3.287E-04 3.390E-04 3.804E-04 3.819E-04 4.372E-04 4.614E-04 5.170E-04 5.402E-04 5.132E-04 7.172E-04 6.996E-04 7.279E-04 7.407E-04 7.447E-04 7.790E-04 8.262E-04 7.791E-04 6.382E-04 5.335E-04 8.800E-04 7.264E-04 5.883E-04 4.813E-04 4.851E-04 5.948E-04 8.715E-04 1.021E-03 9.338E-04 9.244E-04 8.808E-04 8.278E-04 7.075E-04 6.426E-04 6.331E-04 4.476E-04 4.087E-04 3.783E-04 3.894E-04 4.142E-04 4.813E-04 7.381E-04 7.772E-04 7.415E-04 6.721E-04 6.352E-04 6.003E-04 5.448E-04 4.817E-04 4.527E-04 4.017E-04 5.388E-04 1.040E+02 1.474E-04 1.765E-04 1.964E-04 2.174E-04 1.962E-04 2.414E-04 2.431E-04 2.504E-04 2.729E-04 2.888E-04 2.841E-04 3.220E-04 3.487E-04 3.413E-04 4.046E-04 4.333E-04 5.043E-04 5.102E-04 4.922E-04 6.879E-04 6.637E-04 7.011E-04 7.072E-04 7.115E-04 7.450E-04 7.920E-04 7.513E-04 6.153E-04 5.130E-04 8.473E-04 6.995E-04 5.664E-04 4.625E-04 4.654E-04 5.706E-04 8.388E-04 9.849E-04 8.993E-04 8.898E-04 8.476E-04 7.960E-04 6.798E-04 6.171E-04 6.079E-04 4.291E-04 3.916E-04 3.621E-04 3.725E-04 3.961E-04 4.601E-04 7.082E-04 7.461E-04 7.115E-04 6.445E-04 6.091E-04 5.756E-04 5.227E-04 4.634E-04 4.361E-04 3.904E-04 5.306E-04 1.060E+02 1.489E-04 1.663E-04 1.747E-04 1.994E-04 1.972E-04 2.216E-04 2.251E-04 2.263E-04 2.556E-04 2.693E-04 2.628E-04 2.791E-04 3.159E-04 3.204E-04 3.733E-04 4.048E-04 4.610E-04 4.838E-04 4.673E-04 6.633E-04 6.371E-04 6.664E-04 6.824E-04 6.862E-04 7.146E-04 7.671E-04 7.211E-04 5.936E-04 4.950E-04 8.181E-04 6.745E-04 5.467E-04 4.461E-04 4.481E-04 5.492E-04 8.097E-04 9.526E-04 8.686E-04 8.591E-04 8.183E-04 7.680E-04 6.553E-04 5.947E-04 5.857E-04 4.128E-04 3.765E-04 3.477E-04 3.575E-04 3.801E-04 4.409E-04 6.809E-04 7.176E-04 6.840E-04 6.192E-04 5.851E-04 5.530E-04 5.026E-04 4.467E-04 4.210E-04 3.803E-04 5.235E-04 1.080E+02 1.488E-04 1.601E-04 1.826E-04 1.828E-04 1.901E-04 2.077E-04 2.153E-04 2.140E-04 2.358E-04 2.465E-04 2.440E-04 2.580E-04 3.014E-04 2.968E-04 3.468E-04 3.897E-04 4.241E-04 4.669E-04 4.456E-04 6.409E-04 6.183E-04 6.348E-04 6.613E-04 6.661E-04 6.859E-04 7.451E-04 6.936E-04 5.747E-04 4.795E-04 7.923E-04 6.522E-04 5.296E-04 4.319E-04 4.330E-04 5.305E-04 7.840E-04 9.241E-04 8.414E-04 8.322E-04 7.928E-04 7.436E-04 6.339E-04 5.751E-04 5.664E-04 3.986E-04 3.633E-04 3.352E-04 3.442E-04 3.659E-04 4.236E-04 6.559E-04 6.914E-04 6.588E-04 5.960E-04 5.631E-04 5.323E-04 4.841E-04 4.314E-04 4.072E-04 3.712E-04 5.175E-04 1.100E+02 1.355E-04 1.672E-04 1.829E-04 1.790E-04 1.787E-04 1.984E-04 2.117E-04 1.924E-04 2.277E-04 2.390E-04 2.202E-04 2.475E-04 2.790E-04 2.787E-04 3.270E-04 3.726E-04 4.064E-04 4.450E-04 4.309E-04 6.200E-04 6.002E-04 6.127E-04 6.397E-04 6.463E-04 6.625E-04 7.230E-04 6.728E-04 5.592E-04 4.665E-04 7.697E-04 6.338E-04 5.153E-04 4.198E-04 4.200E-04 5.142E-04 7.615E-04 8.991E-04 8.178E-04 8.089E-04 7.706E-04 7.225E-04 6.155E-04 5.581E-04 5.497E-04 3.863E-04 3.518E-04 3.242E-04 3.326E-04 3.534E-04 4.082E-04 6.331E-04 6.674E-04 6.357E-04 5.747E-04 5.430E-04 5.133E-04 4.672E-04 4.175E-04 3.947E-04 3.631E-04 5.123E-04 1.120E+02 1.593E-04 1.507E-04 1.704E-04 1.762E-04 1.900E-04 1.829E-04 1.915E-04 1.997E-04 2.101E-04 2.222E-04 2.374E-04 2.265E-04 2.577E-04 2.787E-04 3.190E-04 3.458E-04 3.946E-04 4.203E-04 4.199E-04 5.995E-04 5.776E-04 5.978E-04 6.177E-04 6.246E-04 6.468E-04 7.022E-04 6.581E-04 5.470E-04 4.558E-04 7.505E-04 6.195E-04 5.038E-04 4.097E-04 4.089E-04 5.001E-04 7.421E-04 8.775E-04 7.975E-04 7.891E-04 7.515E-04 7.045E-04 5.998E-04 5.437E-04 5.354E-04 3.758E-04 3.420E-04 3.147E-04 3.226E-04 3.425E-04 3.943E-04 6.123E-04 6.453E-04 6.144E-04 5.551E-04 5.244E-04 4.959E-04 4.517E-04 4.048E-04 3.834E-04 3.559E-04 5.080E-04 1.140E+02 1.466E-04 1.440E-04 1.647E-04 1.651E-04 1.609E-04 1.707E-04 2.107E-04 1.866E-04 2.258E-04 2.373E-04 2.175E-04 2.192E-04 2.383E-04 2.536E-04 3.081E-04 3.233E-04 3.869E-04 3.979E-04 4.102E-04 5.798E-04 5.571E-04 5.876E-04 5.973E-04 6.047E-04 6.340E-04 6.837E-04 6.475E-04 5.383E-04 4.474E-04 7.344E-04 6.084E-04 4.949E-04 4.015E-04 3.997E-04 4.883E-04 7.257E-04 8.592E-04 7.803E-04 7.725E-04 7.356E-04 6.895E-04 5.868E-04 5.317E-04 5.235E-04 3.669E-04 3.337E-04 3.067E-04 3.139E-04 3.331E-04 3.819E-04 5.931E-04 6.249E-04 5.948E-04 5.371E-04 5.074E-04 4.799E-04 4.376E-04 3.932E-04 3.731E-04 3.495E-04 5.045E-04 1.160E+02 1.450E-04 1.450E-04 1.554E-04 1.599E-04 1.548E-04 1.843E-04 1.895E-04 1.877E-04 2.113E-04 2.226E-04 2.108E-04 2.006E-04 2.173E-04 2.428E-04 2.910E-04 3.070E-04 3.773E-04 3.829E-04 4.015E-04 5.635E-04 5.442E-04 5.770E-04 5.830E-04 5.919E-04 6.227E-04 6.704E-04 6.382E-04 5.320E-04 4.412E-04 7.213E-04 5.998E-04 4.882E-04 3.951E-04 3.923E-04 4.786E-04 7.121E-04 8.440E-04 7.661E-04 7.591E-04 7.227E-04 6.774E-04 5.763E-04 5.221E-04 5.138E-04 3.597E-04 3.268E-04 2.999E-04 3.065E-04 3.250E-04 3.709E-04 5.756E-04 6.061E-04 5.767E-04 5.205E-04 4.917E-04 4.651E-04 4.245E-04 3.827E-04 3.638E-04 3.439E-04 5.017E-04 1.180E+02 1.392E-04 1.348E-04 1.555E-04 1.489E-04 1.756E-04 1.617E-04 1.846E-04 1.762E-04 1.955E-04 2.045E-04 1.997E-04 1.919E-04 2.203E-04 2.423E-04 2.888E-04 3.087E-04 3.552E-04 3.841E-04 3.935E-04 5.530E-04 5.394E-04 5.633E-04 5.780E-04 5.888E-04 6.133E-04 6.643E-04 6.293E-04 5.272E-04 4.372E-04 7.111E-04 5.936E-04 4.836E-04 3.905E-04 3.866E-04 4.709E-04 7.012E-04 8.319E-04 7.549E-04 7.487E-04 7.129E-04 6.682E-04 5.683E-04 5.146E-04 5.063E-04 3.539E-04 3.213E-04 2.943E-04 3.003E-04 3.182E-04 3.611E-04 5.595E-04 5.886E-04 5.600E-04 5.052E-04 4.772E-04 4.515E-04 4.126E-04 3.731E-04 3.553E-04 3.390E-04 4.996E-04 1.200E+02 1.373E-04 1.341E-04 1.652E-04 1.425E-04 1.557E-04 1.546E-04 1.817E-04 1.638E-04 1.944E-04 2.028E-04 1.913E-04 2.024E-04 2.157E-04 2.212E-04 2.708E-04 3.154E-04 3.366E-04 3.842E-04 3.866E-04 5.462E-04 5.375E-04 5.532E-04 5.770E-04 5.886E-04 6.068E-04 6.626E-04 6.234E-04 5.250E-04 4.352E-04 7.039E-04 5.902E-04 4.812E-04 3.877E-04 3.826E-04 4.651E-04 6.930E-04 8.228E-04 7.465E-04 7.413E-04 7.060E-04 6.617E-04 5.626E-04 5.093E-04 5.010E-04 3.496E-04 3.171E-04 2.899E-04 2.953E-04 3.126E-04 3.524E-04 5.446E-04 5.724E-04 5.444E-04 4.910E-04 4.638E-04 4.389E-04 4.016E-04 3.643E-04 3.477E-04 3.348E-04 4.982E-04 1.220E+02 1.189E-04 1.455E-04 1.571E-04 1.393E-04 1.443E-04 1.579E-04 1.599E-04 1.672E-04 1.731E-04 1.814E-04 1.911E-04 2.026E-04 2.074E-04 2.098E-04 2.528E-04 3.034E-04 3.284E-04 3.785E-04 3.847E-04 5.405E-04 5.342E-04 5.495E-04 5.761E-04 5.873E-04 6.069E-04 6.632E-04 6.230E-04 5.268E-04 4.353E-04 6.997E-04 5.904E-04 4.815E-04 3.868E-04 3.804E-04 4.614E-04 6.875E-04 8.166E-04 7.409E-04 7.369E-04 7.021E-04 6.580E-04 5.594E-04 5.062E-04 4.977E-04 3.467E-04 3.141E-04 2.866E-04 2.913E-04 3.081E-04 3.448E-04 5.308E-04 5.572E-04 5.299E-04 4.777E-04 4.513E-04 4.273E-04 3.915E-04 3.564E-04 3.408E-04 3.311E-04 4.973E-04 1.240E+02 1.362E-04 1.390E-04 1.509E-04 1.449E-04 1.587E-04 1.557E-04 1.508E-04 1.680E-04 1.626E-04 1.712E-04 1.909E-04 1.693E-04 2.090E-04 2.196E-04 2.567E-04 2.883E-04 3.302E-04 3.735E-04 3.877E-04 5.356E-04 5.299E-04 5.540E-04 5.753E-04 5.867E-04 6.125E-04 6.651E-04 6.289E-04 5.325E-04 4.377E-04 6.988E-04 5.944E-04 4.845E-04 3.878E-04 3.798E-04 4.596E-04 6.846E-04 8.133E-04 7.382E-04 7.356E-04 7.010E-04 6.571E-04 5.585E-04 5.052E-04 4.965E-04 3.452E-04 3.124E-04 2.843E-04 2.884E-04 3.047E-04 3.381E-04 5.180E-04 5.428E-04 5.162E-04 4.653E-04 4.396E-04 4.164E-04 3.821E-04 3.491E-04 3.346E-04 3.280E-04 4.969E-04 1.260E+02 1.286E-04 1.336E-04 1.414E-04 1.427E-04 1.391E-04 1.560E-04 1.713E-04 1.540E-04 1.740E-04 1.828E-04 1.752E-04 1.777E-04 2.044E-04 2.090E-04 2.534E-04 2.853E-04 3.377E-04 3.738E-04 3.927E-04 5.336E-04 5.296E-04 5.655E-04 5.775E-04 5.912E-04 6.204E-04 6.694E-04 6.399E-04 5.414E-04 4.424E-04 7.012E-04 6.020E-04 4.900E-04 3.905E-04 3.808E-04 4.598E-04 6.843E-04 8.129E-04 7.382E-04 7.372E-04 7.029E-04 6.590E-04 5.601E-04 5.064E-04 4.973E-04 3.451E-04 3.118E-04 2.831E-04 2.865E-04 3.023E-04 3.322E-04 5.059E-04 5.293E-04 5.033E-04 4.537E-04 4.287E-04 4.063E-04 3.734E-04 3.425E-04 3.290E-04 3.254E-04 4.971E-04 1.280E+02 1.242E-04 1.260E-04 1.364E-04 1.473E-04 1.439E-04 1.624E-04 1.653E-04 1.515E-04 1.808E-04 1.907E-04 1.730E-04 1.748E-04 2.011E-04 2.056E-04 2.582E-04 2.875E-04 3.448E-04 3.863E-04 4.010E-04 5.351E-04 5.378E-04 5.791E-04 5.884E-04 6.049E-04 6.304E-04 6.808E-04 6.542E-04 5.534E-04 4.498E-04 7.069E-04 6.127E-04 4.981E-04 3.950E-04 3.836E-04 4.621E-04 6.867E-04 8.152E-04 7.411E-04 7.420E-04 7.078E-04 6.638E-04 5.641E-04 5.098E-04 5.003E-04 3.463E-04 3.124E-04 2.828E-04 2.856E-04 3.009E-04 3.272E-04 4.944E-04 5.163E-04 4.910E-04 4.426E-04 4.184E-04 3.968E-04 3.654E-04 3.365E-04 3.239E-04 3.233E-04 4.976E-04 1.300E+02 1.143E-04 1.279E-04 1.337E-04 1.333E-04 1.489E-04 1.495E-04 1.684E-04 1.547E-04 1.818E-04 1.926E-04 1.797E-04 1.722E-04 2.029E-04 2.141E-04 2.626E-04 2.999E-04 3.551E-04 4.005E-04 4.133E-04 5.401E-04 5.556E-04 5.924E-04 6.085E-04 6.259E-04 6.454E-04 7.012E-04 6.711E-04 5.697E-04 4.599E-04 7.161E-04 6.268E-04 5.090E-04 4.015E-04 3.882E-04 4.663E-04 6.916E-04 8.201E-04 7.467E-04 7.500E-04 7.158E-04 6.717E-04 5.707E-04 5.154E-04 5.055E-04 3.488E-04 3.142E-04 2.836E-04 2.856E-04 3.005E-04 3.228E-04 4.835E-04 5.038E-04 4.793E-04 4.321E-04 4.087E-04 3.878E-04 3.579E-04 3.311E-04 3.194E-04 3.216E-04 4.986E-04 1.320E+02 1.242E-04 1.333E-04 1.623E-04 1.480E-04 1.473E-04 1.492E-04 1.683E-04 1.546E-04 1.841E-04 1.931E-04 1.653E-04 1.840E-04 2.000E-04 2.120E-04 2.621E-04 3.150E-04 3.656E-04 4.083E-04 4.312E-04 5.484E-04 5.784E-04 6.096E-04 6.318E-04 6.495E-04 6.688E-04 7.278E-04 6.926E-04 5.910E-04 4.731E-04 7.290E-04 6.453E-04 5.233E-04 4.101E-04 3.945E-04 4.728E-04 6.992E-04 8.275E-04 7.550E-04 7.612E-04 7.269E-04 6.826E-04 5.798E-04 5.233E-04 5.128E-04 3.527E-04 3.171E-04 2.852E-04 2.864E-04 3.009E-04 3.189E-04 4.729E-04 4.916E-04 4.678E-04 4.221E-04 3.994E-04 3.794E-04 3.510E-04 3.261E-04 3.154E-04 3.203E-04 4.999E-04 1.340E+02 1.289E-04 1.274E-04 1.441E-04 1.412E-04 1.504E-04 1.493E-04 1.606E-04 1.626E-04 1.701E-04 1.798E-04 1.884E-04 2.007E-04 1.973E-04 2.188E-04 2.722E-04 3.291E-04 3.801E-04 4.264E-04 4.586E-04 5.611E-04 6.039E-04 6.329E-04 6.574E-04 6.772E-04 7.044E-04 7.578E-04 7.204E-04 6.171E-04 4.895E-04 7.459E-04 6.697E-04 5.413E-04 4.209E-04 4.028E-04 4.814E-04 7.092E-04 8.372E-04 7.659E-04 7.755E-04 7.412E-04 6.966E-04 5.917E-04 5.336E-04 5.224E-04 3.579E-04 3.211E-04 2.878E-04 2.881E-04 3.022E-04 3.156E-04 4.626E-04 4.797E-04 4.567E-04 4.123E-04 3.905E-04 3.714E-04 3.444E-04 3.216E-04 3.118E-04 3.193E-04 5.016E-04 1.360E+02 1.360E-04 1.265E-04 1.571E-04 1.293E-04 1.549E-04 1.488E-04 1.587E-04 1.718E-04 1.785E-04 1.884E-04 2.208E-04 1.946E-04 2.198E-04 2.503E-04 3.065E-04 3.521E-04 4.082E-04 4.573E-04 4.956E-04 5.778E-04 6.342E-04 6.665E-04 6.907E-04 7.133E-04 7.505E-04 7.937E-04 7.569E-04 6.481E-04 5.095E-04 7.668E-04 7.002E-04 5.631E-04 4.338E-04 4.130E-04 4.923E-04 7.216E-04 8.488E-04 7.792E-04 7.930E-04 7.587E-04 7.137E-04 6.063E-04 5.463E-04 5.342E-04 3.645E-04 3.263E-04 2.914E-04 2.907E-04 3.043E-04 3.127E-04 4.523E-04 4.680E-04 4.458E-04 4.029E-04 3.820E-04 3.637E-04 3.383E-04 3.176E-04 3.086E-04 3.187E-04 5.035E-04 1.380E+02 1.275E-04 1.385E-04 1.555E-04 1.380E-04 1.550E-04 1.508E-04 1.694E-04 1.824E-04 1.910E-04 2.038E-04 2.119E-04 2.103E-04 2.403E-04 2.788E-04 3.361E-04 3.876E-04 4.521E-04 5.021E-04 5.398E-04 6.004E-04 6.727E-04 7.145E-04 7.364E-04 7.616E-04 8.012E-04 8.415E-04 8.039E-04 6.853E-04 5.332E-04 7.918E-04 7.365E-04 5.888E-04 4.491E-04 4.254E-04 5.055E-04 7.361E-04 8.619E-04 7.946E-04 8.134E-04 7.796E-04 7.340E-04 6.237E-04 5.615E-04 5.483E-04 3.725E-04 3.326E-04 2.957E-04 2.940E-04 3.072E-04 3.101E-04 4.422E-04 4.564E-04 4.350E-04 3.938E-04 3.738E-04 3.564E-04 3.326E-04 3.139E-04 3.059E-04 3.184E-04 5.058E-04 1.400E+02 1.299E-04 1.403E-04 1.546E-04 1.673E-04 1.591E-04 1.808E-04 1.848E-04 1.868E-04 2.055E-04 2.197E-04 2.166E-04 2.304E-04 2.510E-04 2.975E-04 3.688E-04 4.260E-04 5.107E-04 5.565E-04 5.906E-04 6.324E-04 7.225E-04 7.764E-04 7.985E-04 8.243E-04 8.577E-04 9.059E-04 8.613E-04 7.305E-04 5.606E-04 8.207E-04 7.785E-04 6.186E-04 4.669E-04 4.398E-04 5.212E-04 7.524E-04 8.758E-04 8.116E-04 8.366E-04 8.036E-04 7.575E-04 6.439E-04 5.792E-04 5.648E-04 3.818E-04 3.400E-04 3.010E-04 2.980E-04 3.107E-04 3.076E-04 4.320E-04 4.450E-04 4.244E-04 3.849E-04 3.658E-04 3.495E-04 3.273E-04 3.107E-04 3.035E-04 3.184E-04 5.082E-04 1.420E+02 1.389E-04 1.669E-04 1.522E-04 1.553E-04 1.797E-04 1.715E-04 1.932E-04 1.937E-04 2.136E-04 2.290E-04 2.383E-04 2.675E-04 2.934E-04 3.211E-04 3.988E-04 4.906E-04 5.735E-04 6.344E-04 6.523E-04 6.746E-04 7.898E-04 8.463E-04 8.790E-04 9.051E-04 9.277E-04 9.861E-04 9.281E-04 7.837E-04 5.921E-04 8.531E-04 8.276E-04 6.530E-04 4.872E-04 4.564E-04 5.392E-04 7.699E-04 8.896E-04 8.297E-04 8.623E-04 8.305E-04 7.841E-04 6.669E-04 5.994E-04 5.837E-04 3.924E-04 3.484E-04 3.070E-04 3.028E-04 3.149E-04 3.052E-04 4.218E-04 4.338E-04 4.141E-04 3.762E-04 3.583E-04 3.429E-04 3.224E-04 3.078E-04 3.014E-04 3.186E-04 5.108E-04 1.440E+02 1.486E-04 1.465E-04 1.748E-04 1.778E-04 1.933E-04 2.059E-04 2.207E-04 2.345E-04 2.651E-04 2.825E-04 2.920E-04 2.866E-04 3.321E-04 3.961E-04 4.773E-04 5.668E-04 6.711E-04 7.306E-04 7.342E-04 7.266E-04 8.774E-04 9.299E-04 9.724E-04 1.001E-03 1.019E-03 1.079E-03 1.006E-03 8.450E-04 6.282E-04 8.884E-04 8.856E-04 6.923E-04 5.100E-04 4.752E-04 5.595E-04 7.878E-04 9.025E-04 8.481E-04 8.898E-04 8.598E-04 8.135E-04 6.926E-04 6.220E-04 6.047E-04 4.042E-04 3.578E-04 3.137E-04 3.081E-04 3.196E-04 3.027E-04 4.116E-04 4.228E-04 4.040E-04 3.679E-04 3.510E-04 3.367E-04 3.178E-04 3.053E-04 2.997E-04 3.190E-04 5.136E-04 1.460E+02 1.513E-04 1.755E-04 1.972E-04 2.022E-04 2.201E-04 2.211E-04 2.429E-04 2.675E-04 2.985E-04 3.209E-04 3.307E-04 3.603E-04 3.881E-04 4.826E-04 5.814E-04 6.823E-04 8.049E-04 8.436E-04 8.357E-04 7.864E-04 9.856E-04 1.033E-03 1.082E-03 1.111E-03 1.135E-03 1.186E-03 1.099E-03 9.147E-04 6.688E-04 9.256E-04 9.531E-04 7.367E-04 5.352E-04 4.961E-04 5.819E-04 8.051E-04 9.134E-04 8.658E-04 9.182E-04 8.905E-04 8.449E-04 7.206E-04 6.467E-04 6.276E-04 4.172E-04 3.681E-04 3.211E-04 3.138E-04 3.246E-04 3.001E-04 4.017E-04 4.124E-04 3.943E-04 3.600E-04 3.442E-04 3.309E-04 3.137E-04 3.031E-04 2.983E-04 3.197E-04 5.165E-04 1.480E+02 1.591E-04 1.692E-04 2.269E-04 2.148E-04 2.516E-04 2.597E-04 3.094E-04 3.531E-04 3.837E-04 4.109E-04 4.344E-04 4.882E-04 5.168E-04 6.372E-04 7.458E-04 8.410E-04 9.504E-04 1.000E-03 9.522E-04 8.528E-04 1.115E-03 1.161E-03 1.222E-03 1.250E-03 1.274E-03 1.316E-03 1.207E-03 9.915E-04 7.138E-04 9.630E-04 1.030E-03 7.854E-04 5.625E-04 5.189E-04 6.058E-04 8.207E-04 9.213E-04 8.814E-04 9.461E-04 9.215E-04 8.775E-04 7.504E-04 6.731E-04 6.519E-04 4.310E-04 3.790E-04 3.288E-04 3.198E-04 3.298E-04 2.972E-04 3.921E-04 4.027E-04 3.853E-04 3.527E-04 3.380E-04 3.257E-04 3.100E-04 3.014E-04 2.973E-04 3.205E-04 5.195E-04 1.500E+02 1.933E-04 1.894E-04 2.373E-04 2.778E-04 3.535E-04 3.244E-04 3.930E-04 4.623E-04 5.083E-04 5.410E-04 5.583E-04 6.590E-04 7.113E-04 8.450E-04 9.337E-04 1.057E-03 1.136E-03 1.210E-03 1.077E-03 9.250E-04 1.268E-03 1.322E-03 1.398E-03 1.421E-03 1.433E-03 1.474E-03 1.336E-03 1.075E-03 7.624E-04 9.985E-04 1.114E-03 8.378E-04 5.916E-04 5.431E-04 6.304E-04 8.331E-04 9.258E-04 8.939E-04 9.721E-04 9.514E-04 9.097E-04 7.810E-04 7.004E-04 6.769E-04 4.453E-04 3.903E-04 3.368E-04 3.259E-04 3.349E-04 2.939E-04 3.833E-04 3.941E-04 3.772E-04 3.460E-04 3.324E-04 3.210E-04 3.069E-04 3.000E-04 2.966E-04 3.215E-04 5.226E-04 1.520E+02 2.495E-04 2.855E-04 3.210E-04 4.372E-04 4.882E-04 5.127E-04 5.687E-04 6.610E-04 7.383E-04 7.760E-04 7.957E-04 8.755E-04 9.748E-04 1.084E-03 1.160E-03 1.285E-03 1.403E-03 1.451E-03 1.215E-03 1.002E-03 1.446E-03 1.531E-03 1.596E-03 1.613E-03 1.616E-03 1.654E-03 1.489E-03 1.170E-03 8.139E-04 1.029E-03 1.207E-03 8.938E-04 6.220E-04 5.680E-04 6.545E-04 8.413E-04 9.273E-04 9.023E-04 9.945E-04 9.784E-04 9.399E-04 8.111E-04 7.274E-04 7.015E-04 4.596E-04 4.015E-04 3.447E-04 3.317E-04 3.395E-04 2.904E-04 3.755E-04 3.868E-04 3.703E-04 3.403E-04 3.276E-04 3.170E-04 3.042E-04 2.989E-04 2.961E-04 3.226E-04 5.257E-04 1.540E+02 4.012E-04 4.758E-04 5.364E-04 7.222E-04 7.243E-04 8.552E-04 8.552E-04 9.984E-04 1.084E-03 1.123E-03 1.101E-03 1.329E-03 1.417E-03 1.507E-03 1.545E-03 1.615E-03 1.726E-03 1.709E-03 1.380E-03 1.081E-03 1.657E-03 1.773E-03 1.812E-03 1.820E-03 1.832E-03 1.848E-03 1.660E-03 1.273E-03 8.674E-04 1.053E-03 1.308E-03 9.527E-04 6.524E-04 5.926E-04 6.764E-04 8.446E-04 9.276E-04 9.065E-04 1.012E-03 1.001E-03 9.660E-04 8.386E-04 7.526E-04 7.242E-04 4.732E-04 4.123E-04 3.521E-04 3.369E-04 3.435E-04 2.865E-04 3.692E-04 3.814E-04 3.649E-04 3.357E-04 3.237E-04 3.138E-04 3.021E-04 2.983E-04 2.960E-04 3.239E-04 5.288E-04 1.560E+02 7.876E-04 8.751E-04 1.016E-03 1.367E-03 1.404E-03 1.396E-03 1.472E-03 1.794E-03 1.770E-03 1.787E-03 1.816E-03 2.050E-03 1.963E-03 2.086E-03 2.023E-03 1.990E-03 2.037E-03 1.971E-03 1.561E-03 1.159E-03 1.898E-03 2.025E-03 2.057E-03 2.048E-03 2.083E-03 2.056E-03 1.836E-03 1.376E-03 9.208E-04 1.069E-03 1.411E-03 1.011E-03 6.813E-04 6.150E-04 6.937E-04 8.441E-04 9.310E-04 9.083E-04 1.024E-03 1.017E-03 9.861E-04 8.613E-04 7.739E-04 7.433E-04 4.852E-04 4.218E-04 3.586E-04 3.411E-04 3.463E-04 2.826E-04 3.648E-04 3.782E-04 3.614E-04 3.324E-04 3.209E-04 3.115E-04 3.007E-04 2.980E-04 2.961E-04 3.252E-04 5.318E-04 1.580E+02 2.296E-03 2.299E-03 2.064E-03 2.625E-03 2.693E-03 2.487E-03 2.592E-03 2.788E-03 2.740E-03 2.699E-03 2.620E-03 2.666E-03 2.540E-03 2.566E-03 2.493E-03 2.254E-03 2.315E-03 2.207E-03 1.729E-03 1.235E-03 2.160E-03 2.286E-03 2.329E-03 2.294E-03 2.336E-03 2.277E-03 2.001E-03 1.471E-03 9.696E-04 1.080E-03 1.503E-03 1.062E-03 7.061E-04 6.328E-04 7.037E-04 8.430E-04 9.447E-04 9.118E-04 1.033E-03 1.029E-03 9.992E-04 8.769E-04 7.890E-04 7.568E-04 4.944E-04 4.291E-04 3.634E-04 3.438E-04 3.476E-04 2.788E-04 3.629E-04 3.774E-04 3.601E-04 3.306E-04 3.192E-04 3.101E-04 2.999E-04 2.980E-04 2.965E-04 3.265E-04 5.347E-04 1.600E+02 4.147E-03 3.919E-03 3.813E-03 3.548E-03 3.498E-03 3.447E-03 3.452E-03 3.089E-03 3.217E-03 3.198E-03 3.039E-03 2.806E-03 2.823E-03 2.717E-03 2.733E-03 2.463E-03 2.549E-03 2.420E-03 1.868E-03 1.326E-03 2.425E-03 2.536E-03 2.597E-03 2.533E-03 2.549E-03 2.485E-03 2.138E-03 1.545E-03 1.007E-03 1.097E-03 1.570E-03 1.099E-03 7.234E-04 6.429E-04 7.043E-04 8.474E-04 9.783E-04 9.246E-04 1.044E-03 1.037E-03 1.006E-03 8.838E-04 7.959E-04 7.630E-04 4.994E-04 4.332E-04 3.660E-04 3.448E-04 3.472E-04 2.756E-04 3.636E-04 3.794E-04 3.610E-04 3.304E-04 3.188E-04 3.096E-04 2.997E-04 2.984E-04 2.971E-04 3.279E-04 5.376E-04 1.620E+02 3.322E-03 3.531E-03 3.537E-03 3.209E-03 3.096E-03 3.370E-03 3.339E-03 2.902E-03 3.083E-03 3.124E-03 2.980E-03 2.768E-03 2.945E-03 2.728E-03 2.813E-03 2.616E-03 2.644E-03 2.608E-03 1.969E-03 1.468E-03 2.639E-03 2.723E-03 2.810E-03 2.720E-03 2.698E-03 2.642E-03 2.225E-03 1.586E-03 1.026E-03 1.134E-03 1.600E-03 1.114E-03 7.290E-04 6.418E-04 6.943E-04 8.667E-04 1.043E-03 9.567E-04 1.067E-03 1.051E-03 1.012E-03 8.823E-04 7.936E-04 7.611E-04 4.993E-04 4.334E-04 3.659E-04 3.437E-04 3.453E-04 2.733E-04 3.672E-04 3.840E-04 3.643E-04 3.318E-04 3.197E-04 3.102E-04 3.001E-04 2.990E-04 2.979E-04 3.293E-04 5.403E-04 1.640E+02 2.669E-03 2.863E-03 2.965E-03 2.680E-03 2.721E-03 2.893E-03 2.880E-03 2.664E-03 2.698E-03 2.768E-03 2.849E-03 2.713E-03 2.909E-03 2.597E-03 2.755E-03 2.775E-03 2.676E-03 2.748E-03 2.028E-03 1.707E-03 2.750E-03 2.821E-03 2.907E-03 2.800E-03 2.754E-03 2.709E-03 2.249E-03 1.585E-03 1.016E-03 1.215E-03 1.588E-03 1.100E-03 7.183E-04 6.269E-04 6.756E-04 9.117E-04 1.148E-03 1.020E-03 1.116E-03 1.081E-03 1.026E-03 8.764E-04 7.841E-04 7.530E-04 4.934E-04 4.291E-04 3.631E-04 3.410E-04 3.424E-04 2.725E-04 3.737E-04 3.913E-04 3.699E-04 3.347E-04 3.217E-04 3.115E-04 3.010E-04 2.999E-04 2.989E-04 3.307E-04 5.428E-04 1.660E+02 2.569E-03 2.562E-03 2.672E-03 2.419E-03 2.599E-03 2.582E-03 2.755E-03 2.545E-03 2.680E-03 2.756E-03 2.780E-03 2.669E-03 2.817E-03 2.573E-03 2.805E-03 2.769E-03 2.784E-03 2.765E-03 2.037E-03 2.069E-03 2.730E-03 2.838E-03 2.866E-03 2.743E-03 2.713E-03 2.678E-03 2.214E-03 1.534E-03 9.694E-04 1.357E-03 1.535E-03 1.054E-03 6.888E-04 5.985E-04 6.542E-04 9.921E-04 1.301E-03 1.123E-03 1.205E-03 1.142E-03 1.061E-03 8.740E-04 7.729E-04 7.437E-04 4.828E-04 4.212E-04 3.582E-04 3.375E-04 3.396E-04 2.735E-04 3.828E-04 4.008E-04 3.774E-04 3.389E-04 3.246E-04 3.137E-04 3.024E-04 3.009E-04 2.999E-04 3.319E-04 5.451E-04 1.680E+02 2.527E-03 2.635E-03 2.834E-03 2.651E-03 2.577E-03 2.754E-03 2.928E-03 2.598E-03 2.902E-03 2.984E-03 2.802E-03 2.625E-03 2.921E-03 2.797E-03 2.992E-03 2.667E-03 2.905E-03 2.694E-03 1.970E-03 2.561E-03 2.653E-03 2.798E-03 2.758E-03 2.601E-03 2.629E-03 2.606E-03 2.131E-03 1.427E-03 8.895E-04 1.575E-03 1.456E-03 9.810E-04 6.435E-04 5.618E-04 6.401E-04 1.113E-03 1.502E-03 1.272E-03 1.342E-03 1.245E-03 1.129E-03 8.861E-04 7.689E-04 7.414E-04 4.705E-04 4.118E-04 3.529E-04 3.348E-04 3.384E-04 2.764E-04 3.938E-04 4.118E-04 3.862E-04 3.440E-04 3.283E-04 3.163E-04 3.041E-04 3.021E-04 3.010E-04 3.331E-04 5.472E-04 1.700E+02 2.857E-03 2.865E-03 2.925E-03 2.919E-03 2.878E-03 3.085E-03 3.096E-03 2.966E-03 3.120E-03 3.204E-03 3.188E-03 3.048E-03 3.281E-03 3.094E-03 3.205E-03 2.845E-03 2.989E-03 2.638E-03 1.838E-03 3.172E-03 2.636E-03 2.721E-03 2.675E-03 2.467E-03 2.576E-03 2.576E-03 2.035E-03 1.286E-03 7.956E-04 1.868E-03 1.385E-03 8.998E-04 5.939E-04 5.281E-04 6.442E-04 1.274E-03 1.745E-03 1.463E-03 1.529E-03 1.395E-03 1.238E-03 9.229E-04 7.820E-04 7.551E-04 4.617E-04 4.048E-04 3.496E-04 3.348E-04 3.404E-04 2.810E-04 4.060E-04 4.237E-04 3.958E-04 3.497E-04 3.323E-04 3.192E-04 3.060E-04 3.032E-04 3.020E-04 3.342E-04 5.490E-04 1.720E+02 3.209E-03 3.339E-03 3.291E-03 3.366E-03 3.393E-03 3.569E-03 3.570E-03 3.576E-03 3.589E-03 3.674E-03 3.890E-03 3.686E-03 3.776E-03 3.457E-03 3.451E-03 3.144E-03 3.054E-03 2.692E-03 1.704E-03 3.889E-03 2.709E-03 2.670E-03 2.688E-03 2.426E-03 2.583E-03 2.658E-03 1.983E-03 1.164E-03 7.232E-04 2.224E-03 1.361E-03 8.430E-04 5.593E-04 5.111E-04 6.735E-04 1.464E-03 2.013E-03 1.683E-03 1.757E-03 1.586E-03 1.386E-03 9.888E-04 8.185E-04 7.903E-04 4.615E-04 4.043E-04 3.509E-04 3.386E-04 3.465E-04 2.868E-04 4.182E-04 4.353E-04 4.053E-04 3.553E-04 3.364E-04 3.222E-04 3.078E-04 3.043E-04 3.030E-04 3.351E-04 5.505E-04 1.740E+02 3.895E-03 4.262E-03 4.344E-03 4.318E-03 4.328E-03 4.644E-03 4.652E-03 4.363E-03 4.640E-03 4.705E-03 4.449E-03 4.313E-03 4.879E-03 4.128E-03 3.944E-03 3.400E-03 3.095E-03 2.803E-03 1.605E-03 4.695E-03 2.849E-03 2.708E-03 2.812E-03 2.501E-03 2.655E-03 2.867E-03 2.036E-03 1.124E-03 7.064E-04 2.612E-03 1.413E-03 8.408E-04 5.570E-04 5.200E-04 7.267E-04 1.663E-03 2.281E-03 1.912E-03 2.002E-03 1.798E-03 1.558E-03 1.079E-03 8.768E-04 8.452E-04 4.727E-04 4.123E-04 3.577E-04 3.464E-04 3.559E-04 2.930E-04 4.293E-04 4.457E-04 4.139E-04 3.605E-04 3.401E-04 3.248E-04 3.094E-04 3.052E-04 3.038E-04 3.358E-04 5.517E-04 1.760E+02 5.453E-03 5.945E-03 6.263E-03 5.953E-03 6.023E-03 6.311E-03 6.382E-03 5.845E-03 6.140E-03 6.114E-03 5.950E-03 5.349E-03 5.655E-03 4.854E-03 4.309E-03 3.432E-03 3.113E-03 2.781E-03 1.575E-03 5.577E-03 3.056E-03 2.865E-03 2.993E-03 2.665E-03 2.837E-03 3.164E-03 2.219E-03 1.204E-03 7.556E-04 2.979E-03 1.545E-03 9.003E-04 5.895E-04 5.515E-04 7.913E-04 1.842E-03 2.515E-03 2.116E-03 2.230E-03 2.000E-03 1.726E-03 1.176E-03 9.451E-04 9.085E-04 4.922E-04 4.268E-04 3.681E-04 3.561E-04 3.664E-04 2.984E-04 4.383E-04 4.540E-04 4.207E-04 3.646E-04 3.430E-04 3.269E-04 3.107E-04 3.059E-04 3.044E-04 3.364E-04 5.526E-04 1.780E+02 1.043E-02 1.050E-02 1.065E-02 9.413E-03 8.899E-03 8.917E-03 8.190E-03 7.086E-03 7.030E-03 6.756E-03 6.378E-03 5.687E-03 5.364E-03 4.736E-03 3.972E-03 3.134E-03 3.074E-03 2.652E-03 1.701E-03 6.427E-03 3.352E-03 3.170E-03 3.264E-03 2.934E-03 3.128E-03 3.507E-03 2.492E-03 1.366E-03 8.393E-04 3.252E-03 1.707E-03 9.887E-04 6.356E-04 5.879E-04 8.456E-04 1.969E-03 2.677E-03 2.260E-03 2.395E-03 2.149E-03 1.853E-03 1.254E-03 1.002E-03 9.609E-04 5.113E-04 4.411E-04 3.778E-04 3.643E-04 3.748E-04 3.021E-04 4.440E-04 4.593E-04 4.251E-04 3.672E-04 3.449E-04 3.283E-04 3.115E-04 3.063E-04 3.048E-04 3.367E-04 5.531E-04 1.800E+02 4.384E-03 4.197E-03 4.223E-03 4.054E-03 4.271E-03 4.339E-03 3.953E-03 3.926E-03 4.069E-03 4.117E-03 4.139E-03 4.003E-03 4.151E-03 4.141E-03 3.863E-03 3.253E-03 3.461E-03 2.934E-03 1.912E-03 6.837E-03 3.595E-03 3.437E-03 3.513E-03 3.170E-03 3.349E-03 3.722E-03 2.659E-03 1.465E-03 8.837E-04 3.354E-03 1.790E-03 1.034E-03 6.581E-04 6.042E-04 8.671E-04 2.014E-03 2.735E-03 2.312E-03 2.456E-03 2.204E-03 1.901E-03 1.284E-03 1.025E-03 9.815E-04 5.193E-04 4.471E-04 3.818E-04 3.675E-04 3.781E-04 3.034E-04 4.460E-04 4.611E-04 4.266E-04 3.681E-04 3.455E-04 3.288E-04 3.118E-04 3.065E-04 3.049E-04 3.368E-04 5.533E-04 ================================================ FILE: UTIL/inline_phot_preproc/refractive_indices/OPAC_water_clouds/waso00 ================================================ SOLUTE ! Optical Parmeters of water aerosol material ! consists sulfates, nitrates, anominum and other ! substances such as water-soluble organic material. ! from file waso00 of ! Hess, M. P. Koepke, and I. Schult, Optical properties of ! aerosols and clouds: The software package OPAC, Bulletan of ! the American Meteorological Society, Vol 79, No 5, ! pp 831 - 844, May 1998. ! OPAC is a downloadable data set of optical properties of ! 10 aerosol components, 6 water clouds and 3 cirrus clouds ! at UV, visible and IR wavelengths ! www.lrz-muenchen.de/~uh234an/www/radaer/opac.htm ! size distribution: lognormal ! ------------------ ! minimum radius, [um]: 5.000E-03 ! maximum radius, [um]: 2.000E+01 ! sigma: 2.240E+00 ! Rmod (wet), [um]: 2.120E-02 ! Rmod (dry), [um]: 2.120E-02 ! optical parameters: ! ------------------- !wavelength ref.real ref.imag ext.coef sca.coef abs.coef si.sc.alb asym.par ext.nor ! [um] [1/km] [1/km] [1/km] 1.500E-01 1.530E+00 5.200E-02 2.500E-01 1.530E+00 3.000E-02 9.520E-06 7.959E-06 1.561E-06 8.360E-01 0.690E+00 2.438E+00 3.000E-01 1.530E+00 8.000E-03 8.182E-06 7.767E-06 4.151E-07 9.493E-01 0.659E+00 2.095E+00 3.500E-01 1.530E+00 5.000E-03 7.003E-06 6.780E-06 2.227E-07 9.682E-01 0.647E+00 1.793E+00 4.000E-01 1.530E+00 5.000E-03 6.011E-06 5.822E-06 1.892E-07 9.685E-01 0.639E+00 1.539E+00 4.500E-01 1.530E+00 5.000E-03 5.180E-06 5.017E-06 1.631E-07 9.685E-01 0.630E+00 1.326E+00 5.000E-01 1.530E+00 5.000E-03 4.484E-06 4.341E-06 1.425E-07 9.682E-01 0.621E+00 1.148E+00 5.500E-01 1.530E+00 6.000E-03 3.905E-06 3.755E-06 1.502E-07 9.615E-01 0.614E+00 1.000E+00 6.000E-01 1.530E+00 6.000E-03 3.413E-06 3.279E-06 1.339E-07 9.608E-01 0.605E+00 8.739E-01 6.500E-01 1.530E+00 7.000E-03 3.003E-06 2.863E-06 1.398E-07 9.535E-01 0.597E+00 7.689E-01 7.000E-01 1.530E+00 7.000E-03 2.649E-06 2.522E-06 1.265E-07 9.522E-01 0.589E+00 6.782E-01 7.500E-01 1.530E+00 8.500E-03 2.356E-06 2.217E-06 1.392E-07 9.409E-01 0.582E+00 6.032E-01 8.000E-01 1.520E+00 1.000E-02 2.050E-06 1.901E-06 1.485E-07 9.276E-01 0.578E+00 5.249E-01 9.000E-01 1.520E+00 1.300E-02 1.660E-06 1.497E-06 1.633E-07 9.016E-01 0.563E+00 4.251E-01 1.000E+00 1.520E+00 1.550E-02 1.366E-06 1.198E-06 1.680E-07 8.770E-01 0.548E+00 3.497E-01 1.250E+00 1.510E+00 1.900E-02 8.558E-07 7.042E-07 1.515E-07 8.229E-01 0.516E+00 2.191E-01 1.500E+00 1.510E+00 2.250E-02 5.937E-07 4.530E-07 1.406E-07 7.631E-01 0.485E+00 1.520E-01 1.750E+00 1.470E+00 1.750E-02 3.587E-07 2.684E-07 9.036E-08 7.481E-01 0.461E+00 9.186E-02 2.000E+00 1.420E+00 8.000E-03 1.913E-07 1.558E-07 3.550E-08 8.144E-01 0.440E+00 4.897E-02 2.500E+00 1.420E+00 1.200E-02 1.228E-07 8.215E-08 4.070E-08 6.687E-01 0.392E+00 3.146E-02 3.000E+00 1.420E+00 2.200E-02 1.072E-07 4.702E-08 6.021E-08 4.385E-01 0.350E+00 2.746E-02 3.200E+00 1.430E+00 8.000E-03 6.160E-08 4.128E-08 2.032E-08 6.701E-01 0.339E+00 1.577E-02 3.390E+00 1.430E+00 7.050E-03 5.132E-08 3.455E-08 1.677E-08 6.732E-01 0.327E+00 1.314E-02 3.500E+00 1.450E+00 5.000E-03 4.559E-08 3.422E-08 1.137E-08 7.506E-01 0.322E+00 1.167E-02 3.750E+00 1.452E+00 4.000E-03 3.617E-08 2.776E-08 8.408E-09 7.675E-01 0.308E+00 9.260E-03 4.000E+00 1.455E+00 5.000E-03 3.255E-08 2.280E-08 9.752E-09 7.004E-01 0.294E+00 8.335E-03 4.500E+00 1.460E+00 1.300E-02 3.783E-08 1.567E-08 2.216E-08 4.141E-01 0.269E+00 9.687E-03 5.000E+00 1.450E+00 1.200E-02 2.892E-08 1.057E-08 1.834E-08 3.656E-01 0.248E+00 7.404E-03 5.500E+00 1.440E+00 1.800E-02 3.225E-08 7.284E-09 2.497E-08 2.258E-01 0.227E+00 8.258E-03 6.000E+00 1.410E+00 2.300E-02 3.431E-08 4.698E-09 2.962E-08 1.369E-01 0.208E+00 8.786E-03 6.200E+00 1.430E+00 2.700E-02 3.774E-08 4.581E-09 3.316E-08 1.214E-01 0.203E+00 9.664E-03 6.500E+00 1.460E+00 3.300E-02 4.221E-08 4.400E-09 3.781E-08 1.042E-01 0.196E+00 1.081E-02 7.200E+00 1.400E+00 7.000E-02 7.717E-08 2.353E-09 7.482E-08 3.049E-02 0.168E+00 1.976E-02 7.900E+00 1.200E+00 6.500E-02 7.144E-08 4.721E-10 7.097E-08 6.609E-03 0.139E+00 1.829E-02 8.200E+00 1.010E+00 1.000E-01 1.140E-07 9.404E-11 1.139E-07 8.250E-04 0.116E+00 2.919E-02 8.500E+00 1.300E+00 2.150E-01 2.071E-07 1.042E-09 2.061E-07 5.033E-03 0.122E+00 5.303E-02 8.700E+00 2.400E+00 2.900E-01 1.279E-07 9.050E-09 1.188E-07 7.077E-02 0.188E+00 3.274E-02 9.000E+00 2.560E+00 3.700E-01 1.377E-07 9.054E-09 1.286E-07 6.576E-02 0.182E+00 3.525E-02 9.200E+00 2.200E+00 4.200E-01 1.918E-07 6.135E-09 1.857E-07 3.198E-02 0.154E+00 4.912E-02 9.500E+00 1.950E+00 1.600E-01 8.880E-08 3.846E-09 8.496E-08 4.331E-02 0.160E+00 2.274E-02 9.800E+00 1.870E+00 9.500E-02 5.511E-08 3.010E-09 5.210E-08 5.462E-02 0.156E+00 1.411E-02 1.000E+01 1.820E+00 9.000E-02 5.279E-08 2.537E-09 5.025E-08 4.806E-02 0.149E+00 1.352E-02 1.060E+01 1.760E+00 7.000E-02 4.036E-08 1.804E-09 3.855E-08 4.470E-02 0.138E+00 1.033E-02 1.100E+01 1.720E+00 5.000E-02 2.878E-08 1.437E-09 2.734E-08 4.994E-02 0.131E+00 7.369E-03 1.150E+01 1.670E+00 4.700E-02 2.659E-08 1.074E-09 2.551E-08 4.040E-02 0.122E+00 6.808E-03 1.250E+01 1.620E+00 5.300E-02 2.812E-08 6.833E-10 2.743E-08 2.430E-02 0.107E+00 7.199E-03 1.300E+01 1.620E+00 5.500E-02 2.793E-08 5.882E-10 2.734E-08 2.106E-02 0.102E+00 7.152E-03 1.400E+01 1.560E+00 7.300E-02 3.558E-08 3.718E-10 3.521E-08 1.045E-02 0.887E-01 9.110E-03 1.480E+01 1.440E+00 1.000E-01 4.994E-08 2.002E-10 4.974E-08 4.009E-03 0.752E-01 1.279E-02 1.500E+01 1.420E+00 2.000E-01 9.969E-08 2.007E-10 9.949E-08 2.013E-03 0.691E-01 2.553E-02 1.640E+01 1.750E+00 1.600E-01 5.689E-08 3.357E-10 5.656E-08 5.901E-03 0.783E-01 1.457E-02 1.720E+01 2.080E+00 2.420E-01 6.247E-08 4.835E-10 6.199E-08 7.740E-03 0.872E-01 1.600E-02 1.800E+01 1.980E+00 1.800E-01 4.829E-08 3.491E-10 4.794E-08 7.229E-03 0.802E-01 1.236E-02 1.850E+01 1.850E+00 1.700E-01 4.926E-08 2.544E-10 4.900E-08 5.165E-03 0.712E-01 1.261E-02 2.000E+01 2.120E+00 2.200E-01 4.707E-08 2.786E-10 4.679E-08 5.919E-03 0.749E-01 1.205E-02 2.130E+01 2.060E+00 2.300E-01 4.839E-08 2.023E-10 4.819E-08 4.181E-03 0.658E-01 1.239E-02 2.250E+01 2.000E+00 2.400E-01 5.011E-08 1.512E-10 4.996E-08 3.017E-03 0.582E-01 1.283E-02 2.500E+01 1.880E+00 2.800E-01 5.784E-08 8.573E-11 5.775E-08 1.482E-03 0.451E-01 1.481E-02 2.790E+01 1.840E+00 2.900E-01 5.537E-08 5.256E-11 5.532E-08 9.493E-04 0.370E-01 1.418E-02 3.000E+01 1.820E+00 3.000E-01 5.409E-08 3.848E-11 5.405E-08 7.114E-04 0.325E-01 1.385E-02 3.500E+01 1.920E+00 4.000E-01 5.638E-08 2.578E-11 5.635E-08 4.573E-04 0.262E-01 1.444E-02 4.000E+01 1.860E+00 5.000E-01 6.417E-08 1.545E-11 6.416E-08 2.407E-04 0.195E-01 1.643E-02 ================================================ FILE: UTIL/inline_phot_preproc/refractive_indices/OPAC_water_clouds/wc.asy ================================================ ! Parameterisation of asymmetry factor, g = a * r**b + c ! 2.5 micron < r < 12.5 micron 2.5 12.5 ! lambda(micron) a b c 150.000 9.87E-04 1.99E+00 -6.72E-04 100.000 7.53E-03 1.48E+00 -2.62E-02 80.000 2.47E-02 1.15E+00 -7.20E-02 60.000 7.07E-02 8.84E-01 -1.65E-01 50.000 2.73E-01 5.40E-01 -4.70E-01 40.000 -7.79E+01 -6.00E-03 7.75E+01 32.000 -2.27E+00 -5.48E-01 1.32E+00 25.000 -2.38E+00 -9.36E-01 1.03E+00 20.000 -2.51E+00 -1.15E+00 9.71E-01 19.000 -2.53E+00 -1.21E+00 9.61E-01 18.000 -2.56E+00 -1.26E+00 9.55E-01 17.500 -2.57E+00 -1.29E+00 9.53E-01 17.000 -2.58E+00 -1.32E+00 9.52E-01 16.500 -2.57E+00 -1.35E+00 9.51E-01 15.500 -2.56E+00 -1.40E+00 9.51E-01 15.000 -2.53E+00 -1.42E+00 9.52E-01 14.500 -2.51E+00 -1.44E+00 9.54E-01 14.000 -2.46E+00 -1.46E+00 9.57E-01 13.500 -2.40E+00 -1.48E+00 9.63E-01 12.500 -2.24E+00 -1.50E+00 9.75E-01 11.500 -2.02E+00 -1.50E+00 9.84E-01 11.000 -1.85E+00 -1.50E+00 9.82E-01 10.500 -1.76E+00 -1.55E+00 9.72E-01 10.000 -1.84E+00 -1.71E+00 9.47E-01 9.600 -3.24E+00 -2.44E+00 8.84E-01 9.000 -2.30E+00 -2.11E+00 9.20E-01 8.600 -3.17E+00 -2.50E+00 9.05E-01 8.000 -6.30E+00 -3.21E+00 8.89E-01 7.600 -1.34E+01 -3.92E+00 8.80E-01 7.300 -2.79E+01 -4.58E+00 8.74E-01 7.100 -4.01E+01 -4.93E+00 8.71E-01 7.000 -4.02E+01 -5.00E+00 8.69E-01 6.700 -1.88E+01 -4.55E+00 8.67E-01 6.500 -6.21E-01 -1.90E+00 8.83E-01 6.300 -3.84E-01 -2.18E-01 1.13E+00 6.200 -3.36E-01 -4.00E-01 1.05E+00 6.100 -4.23E-01 -1.04E+00 9.67E-01 6.000 -5.59E-01 -1.36E+00 9.59E-01 5.900 -9.70E-01 -2.10E+00 9.23E-01 5.700 -5.23E+01 -6.00E+00 8.75E-01 5.500 -4.37E-04 1.76E+00 8.67E-01 5.400 -4.16E-03 9.86E-01 8.76E-01 5.300 -6.52E-01 4.00E-02 1.55E+00 5.100 2.80E-01 -1.51E+00 8.17E-01 4.900 1.72E+00 -3.05E+00 8.24E-01 4.700 1.75E+01 -4.88E+00 8.27E-01 4.500 7.39E-09 6.00E+00 8.21E-01 4.300 9.54E-09 6.00E+00 8.04E-01 4.100 1.25E-08 6.00E+00 7.88E-01 3.900 3.90E-08 5.68E+00 7.74E-01 3.690 1.80E-03 1.67E+00 7.56E-01 3.145 -2.85E-01 -6.56E-01 1.01E+00 2.618 4.06E-08 5.44E+00 8.61E-01 2.247 5.98E-03 1.10E+00 7.66E-01 1.855 -3.58E-01 -6.40E-01 9.25E-01 1.587 -5.82E-01 -1.39E+00 8.70E-01 1.393 -4.61E-01 -1.31E+00 8.71E-01 1.232 -3.74E-01 -1.25E+00 8.71E-01 1.142 -3.14E-01 -1.20E+00 8.71E-01 1.046 -2.13E-01 -8.00E-01 8.87E-01 0.929 -1.86E-01 -8.24E-01 8.84E-01 0.821 -1.71E-01 -8.26E-01 8.83E-01 0.766 -2.31E-01 -1.23E+00 8.75E-01 0.719 -1.41E-01 -6.94E-01 8.89E-01 0.664 -1.37E-01 -6.76E-01 8.90E-01 0.603 -1.24E-01 -6.02E-01 8.94E-01 0.544 -1.24E-01 -7.82E-01 8.85E-01 0.499 -1.15E-01 -7.56E-01 8.85E-01 0.459 -1.09E-01 -7.24E-01 8.86E-01 0.419 -9.98E-02 -8.00E-01 8.82E-01 0.379 -6.75E-02 -6.12E-01 8.82E-01 0.344 -8.29E-02 -6.88E-01 8.84E-01 0.314 -8.06E-02 -7.62E-01 8.83E-01 0.290 1.11E-01 9.40E-02 7.30E-01 ! ! 12.5 micron < r < 30.0 micron 12.5 30.0 ! lambda(micron) a b c 150.000 1.89E+01 1.80E-02 -1.97E+01 100.000 -3.12E+00 -2.98E-01 1.75E+00 80.000 -4.07E+00 -6.80E-01 1.10E+00 60.000 -7.52E+00 -1.10E+00 9.47E-01 50.000 -8.99E+00 -1.29E+00 9.31E-01 40.000 -6.69E+00 -1.29E+00 9.38E-01 32.000 -3.79E+00 -1.16E+00 9.49E-01 25.000 -3.29E+00 -1.24E+00 9.44E-01 20.000 -3.39E+00 -1.37E+00 9.37E-01 19.000 -3.36E+00 -1.42E+00 9.35E-01 18.000 -3.25E+00 -1.44E+00 9.35E-01 17.500 -3.16E+00 -1.44E+00 9.36E-01 17.000 -3.06E+00 -1.45E+00 9.37E-01 16.500 -2.92E+00 -1.46E+00 9.39E-01 15.500 -2.73E+00 -1.46E+00 9.43E-01 15.000 -2.62E+00 -1.46E+00 9.46E-01 14.500 -2.51E+00 -1.47E+00 9.50E-01 14.000 -2.41E+00 -1.47E+00 9.54E-01 13.500 -2.30E+00 -1.48E+00 9.61E-01 12.500 -2.12E+00 -1.48E+00 9.74E-01 11.500 -1.78E+00 -1.46E+00 9.83E-01 11.000 -1.16E+00 -1.33E+00 9.82E-01 10.500 -2.24E-01 -5.46E-01 9.94E-01 10.000 8.52E-05 1.74E+00 9.17E-01 9.600 8.45E-03 8.12E-01 8.04E-01 9.000 4.55E-06 2.68E+00 9.00E-01 8.600 1.09E-04 1.88E+00 8.78E-01 8.000 3.98E-03 9.94E-01 8.26E-01 7.600 9.07E-02 3.50E-01 6.46E-01 7.300 -1.43E+00 -8.80E-02 2.01E+00 7.100 -8.21E-01 -4.06E-01 1.15E+00 7.000 -1.15E+00 -7.08E-01 1.05E+00 6.700 -2.49E+00 -1.14E+00 1.00E+00 6.500 -5.65E+00 -1.59E+00 9.82E-01 6.300 -1.79E+01 -2.26E+00 9.69E-01 6.200 -1.78E+01 -2.39E+00 9.67E-01 6.100 -5.93E+00 -2.02E+00 9.73E-01 6.000 -2.36E+00 -1.63E+00 9.79E-01 5.900 -1.75E+00 -1.24E+00 9.93E-01 5.700 -1.14E+00 -7.46E-01 1.04E+00 5.500 -1.15E+00 -6.66E-01 1.05E+00 5.400 -1.41E+00 -7.94E-01 1.02E+00 5.300 -1.77E+00 -9.28E-01 1.00E+00 5.100 -2.20E+00 -1.06E+00 9.88E-01 4.900 -2.36E+00 -1.11E+00 9.84E-01 4.700 -2.34E+00 -1.13E+00 9.84E-01 4.500 -1.94E+00 -1.07E+00 9.84E-01 4.300 -1.23E+00 -8.54E-01 9.84E-01 4.100 -8.16E-01 -6.62E-01 9.86E-01 3.900 -6.01E-01 -4.78E-01 1.01E+00 3.690 -6.08E-01 -6.50E-01 9.87E-01 3.145 -3.20E+00 -2.16E+00 9.65E-01 2.618 -6.56E-01 -8.78E-01 9.63E-01 2.247 -3.01E-01 -4.30E-01 9.58E-01 1.855 -2.51E-01 -5.02E-01 9.23E-01 1.587 -2.38E-01 -5.96E-01 9.06E-01 1.393 -2.19E-01 -6.34E-01 8.99E-01 1.232 -2.06E-01 -6.68E-01 8.94E-01 1.142 -2.08E-01 -7.10E-01 8.91E-01 1.046 -2.12E-01 -7.82E-01 8.88E-01 0.929 -1.74E-01 -7.24E-01 8.88E-01 0.821 -1.67E-01 -7.44E-01 8.88E-01 0.766 -1.15E-01 -6.28E-01 8.89E-01 0.719 -1.57E-01 -7.82E-01 8.86E-01 0.664 -1.55E-01 -8.16E-01 8.85E-01 0.603 -1.33E-01 -7.66E-01 8.86E-01 0.544 -1.20E-01 -7.48E-01 8.86E-01 0.499 -1.09E-01 -7.48E-01 8.85E-01 0.459 -1.11E-01 -7.88E-01 8.84E-01 0.419 -1.02E-01 -7.80E-01 8.83E-01 0.379 -1.63E-01 -1.02E+00 8.81E-01 0.344 -9.08E-02 -8.06E-01 8.81E-01 0.314 -8.43E-02 -8.06E-01 8.82E-01 0.290 -3.15E-01 -1.47E+00 8.78E-01 ! ! 30.0 micron < r < 60.0 micron 30.0 60.0 ! lambda(micron) a b c 150.000 -4.38E+00 -5.46E-01 1.14E+00 100.000 -1.07E+01 -1.03E+00 9.32E-01 80.000 -1.66E+01 -1.29E+00 9.02E-01 60.000 -2.02E+01 -1.48E+00 9.00E-01 50.000 -1.59E+01 -1.49E+00 9.17E-01 40.000 -1.24E+01 -1.50E+00 9.32E-01 32.000 -1.57E+01 -1.67E+00 9.31E-01 25.000 -1.20E+01 -1.71E+00 9.30E-01 20.000 -6.63E+00 -1.62E+00 9.31E-01 19.000 -5.26E+00 -1.58E+00 9.32E-01 18.000 -4.53E+00 -1.56E+00 9.33E-01 17.500 -4.15E+00 -1.54E+00 9.34E-01 17.000 -3.84E+00 -1.53E+00 9.36E-01 16.500 -3.49E+00 -1.52E+00 9.39E-01 15.500 -3.10E+00 -1.50E+00 9.43E-01 15.000 -2.89E+00 -1.49E+00 9.46E-01 14.500 -2.69E+00 -1.48E+00 9.50E-01 14.000 -2.51E+00 -1.48E+00 9.54E-01 13.500 -2.32E+00 -1.47E+00 9.61E-01 12.500 -2.06E+00 -1.46E+00 9.75E-01 11.500 -1.27E+00 -1.31E+00 9.86E-01 11.000 -4.65E-01 -8.54E-01 9.94E-01 10.500 -7.39E-01 -8.40E-01 1.00E+00 10.000 -7.45E+00 -1.53E+00 9.88E-01 9.600 -1.01E+02 -2.33E+00 9.72E-01 9.000 -6.16E+01 -2.15E+00 9.81E-01 8.600 -9.10E+01 -2.28E+00 9.78E-01 8.000 -9.01E+01 -2.30E+00 9.76E-01 7.600 -8.13E+01 -2.30E+00 9.75E-01 7.300 -7.32E+01 -2.29E+00 9.74E-01 7.100 -7.41E+01 -2.33E+00 9.73E-01 7.000 -7.77E+01 -2.38E+00 9.72E-01 6.700 -8.29E+01 -2.46E+00 9.71E-01 6.500 -7.50E+01 -2.55E+00 9.69E-01 6.300 -1.63E+01 -2.30E+00 9.67E-01 6.200 -3.95E+00 -1.94E+00 9.68E-01 6.100 -3.65E+00 -1.92E+00 9.72E-01 6.000 -7.59E+00 -2.13E+00 9.75E-01 5.900 -7.22E+01 -2.64E+00 9.76E-01 5.700 -1.64E+01 -1.86E+00 9.78E-01 5.500 -2.99E+00 -1.14E+00 9.88E-01 5.400 -2.68E+00 -1.10E+00 9.88E-01 5.300 -2.82E+00 -1.13E+00 9.87E-01 5.100 -3.20E+00 -1.19E+00 9.84E-01 4.900 -3.80E+00 -1.27E+00 9.82E-01 4.700 -4.67E+00 -1.36E+00 9.80E-01 4.500 -3.76E+00 -1.28E+00 9.81E-01 4.300 -1.50E+00 -8.82E-01 9.91E-01 4.100 -8.09E-01 -5.84E-01 1.01E+00 3.900 -6.42E-01 -4.50E-01 1.03E+00 3.690 -8.86E-01 -8.10E-01 9.76E-01 3.145 -1.65E+00 -1.94E+00 9.65E-01 2.618 -3.87E-01 -5.70E-01 9.86E-01 2.247 -2.94E-01 -2.68E-01 1.01E+00 1.855 -2.31E-01 -4.10E-01 9.35E-01 1.587 -2.20E-01 -5.34E-01 9.10E-01 1.393 -2.31E-01 -6.54E-01 8.98E-01 1.232 -2.84E-01 -8.16E-01 8.90E-01 1.142 -2.84E-01 -8.62E-01 8.88E-01 1.046 -2.74E-01 -8.86E-01 8.87E-01 0.929 -2.89E-01 -9.42E-01 8.85E-01 0.821 -2.58E-01 -9.36E-01 8.85E-01 0.766 -2.55E-01 -9.74E-01 8.84E-01 0.719 -2.14E-01 -9.16E-01 8.85E-01 0.664 -2.03E-01 -9.20E-01 8.84E-01 0.603 -2.05E-01 -9.52E-01 8.84E-01 0.544 -2.07E-01 -9.84E-01 8.84E-01 0.499 -1.84E-01 -9.66E-01 8.83E-01 0.459 -1.77E-01 -9.80E-01 8.83E-01 0.419 -1.77E-01 -1.01E+00 8.82E-01 0.379 -2.64E-01 -1.18E+00 8.80E-01 0.344 -1.50E-01 -1.01E+00 8.80E-01 0.314 -1.30E-01 -9.86E-01 8.81E-01 0.290 -9.92E-02 -9.08E-01 8.80E-01 ================================================ FILE: UTIL/inline_phot_preproc/refractive_indices/OPAC_water_clouds/wc.ext ================================================ ! Parameterisation of extinction coefficient, b_ext = a * r**b + c ! 2.5 micron < r < 12.5 micron 2.5 12.5 ! lambda(micron) a b c 150.000 3.93E-02 2.35E+00 1.90E+01 100.000 1.71E+00 1.36E+00 2.87E+01 80.000 8.63E+01 2.92E-01 -6.76E+01 60.000 -4.00E+02 -1.60E+00 1.39E+02 50.000 -3.93E+03 -3.69E+00 1.35E+02 40.000 -2.93E+04 -5.18E+00 1.44E+02 32.000 -7.27E-06 6.00E+00 1.76E+02 25.000 -1.22E-01 2.61E+00 2.37E+02 20.000 -9.86E+00 1.16E+00 3.30E+02 19.000 -3.52E+01 7.86E-01 4.02E+02 18.000 -7.98E+01 5.70E-01 4.81E+02 17.500 -1.23E+02 4.66E-01 5.41E+02 17.000 -1.82E+02 3.78E-01 6.15E+02 16.500 -2.83E+02 2.90E-01 7.28E+02 15.500 -4.56E+02 2.08E-01 9.07E+02 15.000 -6.18E+02 1.64E-01 1.07E+03 14.500 -7.47E+02 1.38E-01 1.19E+03 14.000 -7.78E+02 1.28E-01 1.20E+03 13.500 -4.90E+02 1.66E-01 8.69E+02 12.500 -8.34E+01 4.12E-01 3.51E+02 11.500 -1.79E+00 1.36E+00 1.66E+02 11.000 -3.88E-05 5.24E+00 1.40E+02 10.500 -5.91E+04 -6.00E+00 1.55E+02 10.000 -9.91E-06 6.00E+00 1.95E+02 9.600 -7.62E-02 3.00E+00 3.02E+02 9.000 -2.60E-04 5.06E+00 2.48E+02 8.600 -1.29E-02 3.65E+00 2.84E+02 8.000 -2.89E-01 2.57E+00 3.35E+02 7.600 -1.97E+00 1.91E+00 3.87E+02 7.300 -7.13E+00 1.49E+00 4.43E+02 7.100 -1.76E+01 1.20E+00 4.99E+02 7.000 -4.36E+01 9.24E-01 5.82E+02 6.700 -1.87E+02 5.32E-01 8.45E+02 6.500 -1.14E+03 1.86E-01 1.95E+03 6.300 2.41E+03 -1.86E-01 -1.38E+03 6.200 1.95E+03 -2.50E-01 -9.02E+02 6.100 -3.15E+04 8.00E-03 3.23E+04 6.000 -4.93E+02 2.70E-01 1.11E+03 5.900 -1.84E+02 5.00E-01 7.83E+02 5.700 -2.61E+02 4.58E-01 9.55E+02 5.500 -1.10E+03 2.04E-01 1.96E+03 5.400 -4.31E+04 8.00E-03 4.41E+04 5.300 2.52E+03 -2.26E-01 -1.30E+03 5.100 2.03E+03 -5.46E-01 -3.88E+02 4.900 2.29E+03 -7.86E-01 -1.89E+02 4.700 2.69E+03 -9.84E-01 -9.66E+01 4.500 3.32E+03 -1.19E+00 -3.31E+01 4.300 4.30E+03 -1.42E+00 1.52E+01 4.100 5.42E+03 -1.63E+00 4.78E+01 3.900 6.40E+03 -1.79E+00 7.03E+01 3.690 5.29E+03 -1.73E+00 7.34E+01 3.145 2.71E+03 -1.27E+00 2.35E+01 2.618 4.56E+03 -1.61E+00 5.74E+01 2.247 3.26E+03 -1.46E+00 5.42E+01 1.855 2.15E+03 -1.15E+00 1.42E+01 1.587 2.01E+03 -1.11E+00 8.80E+00 1.393 1.98E+03 -1.11E+00 7.61E+00 1.232 1.96E+03 -1.11E+00 9.29E+00 1.142 1.94E+03 -1.11E+00 1.01E+01 1.046 1.91E+03 -1.10E+00 7.51E+00 0.929 1.87E+03 -1.09E+00 8.41E+00 0.821 1.86E+03 -1.09E+00 8.61E+00 0.766 1.84E+03 -1.09E+00 8.81E+00 0.719 1.81E+03 -1.08E+00 6.85E+00 0.664 1.79E+03 -1.07E+00 5.98E+00 0.603 1.76E+03 -1.06E+00 5.01E+00 0.544 1.75E+03 -1.07E+00 5.95E+00 0.499 1.73E+03 -1.06E+00 5.13E+00 0.459 1.72E+03 -1.06E+00 4.99E+00 0.419 1.70E+03 -1.05E+00 4.49E+00 0.379 1.68E+03 -1.05E+00 4.26E+00 0.344 1.67E+03 -1.04E+00 3.49E+00 0.314 1.67E+03 -1.04E+00 3.83E+00 0.290 1.63E+03 -1.03E+00 7.66E-01 ! ! 12.5 micron < r < 30.0 micron 12.5 30.0 ! lambda(micron) a b c 150.000 -4.49E+03 -1.84E+00 7.12E+01 100.000 -1.90E-07 5.41E+00 8.89E+01 80.000 -4.07E-01 1.48E+00 1.32E+02 60.000 -9.44E+01 3.06E-01 3.34E+02 50.000 -7.38E+02 8.00E-02 1.03E+03 40.000 1.19E+03 -9.20E-02 -8.08E+02 32.000 9.38E+02 -5.44E-01 -8.44E+01 25.000 1.69E+03 -8.92E-01 -2.02E+01 20.000 2.03E+03 -1.00E+00 -7.63E+00 19.000 2.02E+03 -1.01E+00 -6.14E+00 18.000 1.95E+03 -1.00E+00 -6.07E+00 17.500 1.89E+03 -9.94E-01 -6.18E+00 17.000 1.82E+03 -9.82E-01 -6.67E+00 16.500 1.73E+03 -9.66E-01 -7.26E+00 15.500 1.59E+03 -9.38E-01 -8.61E+00 15.000 1.50E+03 -9.18E-01 -9.58E+00 14.500 1.40E+03 -8.94E-01 -1.08E+01 14.000 1.28E+03 -8.62E-01 -1.27E+01 13.500 1.07E+03 -7.94E-01 -1.73E+01 12.500 7.11E+02 -6.06E-01 -3.72E+01 11.500 5.38E+02 -2.88E-01 -1.48E+02 11.000 7.94E+02 -1.48E-01 -4.23E+02 10.500 8.17E+02 -4.24E-01 -1.35E+02 10.000 2.37E+03 -1.02E+00 -1.69E+01 9.600 7.52E+03 -1.55E+00 1.91E+01 9.000 8.53E+03 -1.59E+00 1.83E+01 8.600 9.63E+03 -1.66E+00 2.26E+01 8.000 8.00E+03 -1.60E+00 2.25E+01 7.600 5.98E+03 -1.49E+00 1.96E+01 7.300 4.74E+03 -1.40E+00 1.65E+01 7.100 4.06E+03 -1.34E+00 1.40E+01 7.000 3.56E+03 -1.29E+00 1.16E+01 6.700 3.03E+03 -1.22E+00 8.35E+00 6.500 2.76E+03 -1.18E+00 6.34E+00 6.300 2.62E+03 -1.16E+00 5.36E+00 6.200 2.61E+03 -1.16E+00 5.49E+00 6.100 2.74E+03 -1.19E+00 6.86E+00 6.000 2.92E+03 -1.22E+00 8.24E+00 5.900 3.12E+03 -1.24E+00 9.51E+00 5.700 2.76E+03 -1.19E+00 6.82E+00 5.500 2.41E+03 -1.13E+00 3.47E+00 5.400 2.34E+03 -1.12E+00 2.60E+00 5.300 2.30E+03 -1.11E+00 2.25E+00 5.100 2.28E+03 -1.11E+00 2.19E+00 4.900 2.28E+03 -1.11E+00 2.42E+00 4.700 2.28E+03 -1.11E+00 2.66E+00 4.500 2.28E+03 -1.11E+00 2.91E+00 4.300 2.28E+03 -1.12E+00 3.16E+00 4.100 2.26E+03 -1.12E+00 3.29E+00 3.900 2.24E+03 -1.11E+00 3.32E+00 3.690 2.17E+03 -1.10E+00 3.01E+00 3.145 2.02E+03 -1.08E+00 2.24E+00 2.618 2.05E+03 -1.09E+00 2.66E+00 2.247 1.99E+03 -1.08E+00 2.54E+00 1.855 1.91E+03 -1.07E+00 1.96E+00 1.587 1.87E+03 -1.06E+00 1.93E+00 1.393 1.83E+03 -1.06E+00 1.63E+00 1.232 1.80E+03 -1.05E+00 1.50E+00 1.142 1.78E+03 -1.05E+00 1.32E+00 1.046 1.77E+03 -1.05E+00 1.46E+00 0.929 1.74E+03 -1.04E+00 1.19E+00 0.821 1.73E+03 -1.04E+00 1.16E+00 0.766 1.71E+03 -1.04E+00 1.01E+00 0.719 1.70E+03 -1.04E+00 1.04E+00 0.664 1.69E+03 -1.03E+00 9.89E-01 0.603 1.68E+03 -1.03E+00 9.28E-01 0.544 1.67E+03 -1.03E+00 8.73E-01 0.499 1.66E+03 -1.03E+00 8.13E-01 0.459 1.65E+03 -1.03E+00 7.23E-01 0.419 1.64E+03 -1.02E+00 6.44E-01 0.379 1.64E+03 -1.03E+00 8.33E-01 0.344 1.62E+03 -1.02E+00 6.34E-01 0.314 1.61E+03 -1.02E+00 5.44E-01 0.290 1.63E+03 -1.03E+00 9.90E-01 ! ! 30.0 micron < r < 60.0 micron 30.0 60.0 ! lambda(micron) a b c 150.000 -2.26E-01 1.29E+00 8.10E+01 100.000 6.85E+02 -4.68E-01 -6.75E+01 80.000 1.36E+03 -7.90E-01 -2.17E+01 60.000 1.54E+03 -8.62E-01 -1.45E+01 50.000 1.52E+03 -8.72E-01 -1.30E+01 40.000 1.86E+03 -9.52E-01 -8.68E+00 32.000 2.13E+03 -1.01E+00 -5.72E+00 25.000 1.81E+03 -9.66E-01 -6.71E+00 20.000 1.61E+03 -9.34E-01 -7.58E+00 19.000 1.53E+03 -9.20E-01 -8.01E+00 18.000 1.47E+03 -9.10E-01 -8.28E+00 17.500 1.44E+03 -9.04E-01 -8.42E+00 17.000 1.40E+03 -8.96E-01 -8.67E+00 16.500 1.35E+03 -8.86E-01 -8.97E+00 15.500 1.28E+03 -8.72E-01 -9.37E+00 15.000 1.24E+03 -8.62E-01 -9.66E+00 14.500 1.19E+03 -8.50E-01 -1.01E+01 14.000 1.13E+03 -8.36E-01 -1.05E+01 13.500 1.03E+03 -8.08E-01 -1.15E+01 12.500 8.92E+02 -7.62E-01 -1.35E+01 11.500 9.77E+02 -7.88E-01 -1.28E+01 11.000 1.68E+03 -9.66E-01 -5.84E+00 10.500 2.45E+03 -1.09E+00 -1.57E+00 10.000 1.96E+03 -1.02E+00 -3.73E+00 9.600 1.52E+03 -9.30E-01 -7.13E+00 9.000 1.50E+03 -9.28E-01 -7.15E+00 8.600 1.46E+03 -9.20E-01 -7.42E+00 8.000 1.44E+03 -9.16E-01 -7.48E+00 7.600 1.42E+03 -9.14E-01 -7.47E+00 7.300 1.41E+03 -9.12E-01 -7.48E+00 7.100 1.40E+03 -9.10E-01 -7.52E+00 7.000 1.39E+03 -9.08E-01 -7.56E+00 6.700 1.37E+03 -9.04E-01 -7.66E+00 6.500 1.35E+03 -9.00E-01 -7.76E+00 6.300 1.32E+03 -8.94E-01 -7.92E+00 6.200 1.30E+03 -8.90E-01 -8.04E+00 6.100 1.28E+03 -8.86E-01 -8.14E+00 6.000 1.27E+03 -8.84E-01 -8.20E+00 5.900 1.30E+03 -8.92E-01 -7.94E+00 5.700 1.32E+03 -8.96E-01 -7.82E+00 5.500 1.31E+03 -8.94E-01 -7.90E+00 5.400 1.31E+03 -8.94E-01 -7.86E+00 5.300 1.30E+03 -8.92E-01 -7.90E+00 5.100 1.28E+03 -8.88E-01 -8.03E+00 4.900 1.27E+03 -8.84E-01 -8.16E+00 4.700 1.26E+03 -8.82E-01 -8.19E+00 4.500 1.24E+03 -8.78E-01 -8.32E+00 4.300 1.23E+03 -8.76E-01 -8.35E+00 4.100 1.22E+03 -8.74E-01 -8.38E+00 3.900 1.20E+03 -8.70E-01 -8.51E+00 3.690 1.17E+03 -8.64E-01 -8.67E+00 3.145 1.12E+03 -8.52E-01 -8.99E+00 2.618 1.12E+03 -8.52E-01 -8.94E+00 2.247 1.09E+03 -8.46E-01 -9.08E+00 1.855 1.07E+03 -8.40E-01 -9.22E+00 1.587 1.05E+03 -8.36E-01 -9.31E+00 1.393 1.04E+03 -8.32E-01 -9.40E+00 1.232 1.03E+03 -8.30E-01 -9.44E+00 1.142 1.01E+03 -8.26E-01 -9.61E+00 1.046 1.01E+03 -8.24E-01 -9.65E+00 0.929 9.99E+02 -8.22E-01 -9.69E+00 0.821 9.91E+02 -8.20E-01 -9.74E+00 0.766 9.84E+02 -8.18E-01 -9.79E+00 0.719 9.78E+02 -8.16E-01 -9.89E+00 0.664 9.76E+02 -8.16E-01 -9.84E+00 0.603 9.70E+02 -8.14E-01 -9.91E+00 0.544 9.63E+02 -8.12E-01 -9.98E+00 0.499 9.62E+02 -8.12E-01 -9.95E+00 0.459 9.55E+02 -8.10E-01 -1.00E+01 0.419 9.54E+02 -8.10E-01 -9.99E+00 0.379 9.48E+02 -8.08E-01 -1.01E+01 0.344 9.42E+02 -8.06E-01 -1.02E+01 0.314 9.41E+02 -8.06E-01 -1.01E+01 0.290 9.40E+02 -8.06E-01 -1.01E+01 ================================================ FILE: UTIL/inline_phot_preproc/refractive_indices/OPAC_water_clouds/wc.ssa ================================================ ! Parameterisation of the coalbedo (w=single scattering albedo), 1-w a * r**b + c ! 2.5 micron < r < 12.5 micron 2.5 12.5 ! lambda(micron) a b c 150.000 -1.37E-03 2.03E+00 1.01E+00 100.000 -3.95E-02 9.70E-01 1.12E+00 80.000 -3.03E-01 4.12E-01 1.49E+00 60.000 -1.05E+01 2.40E-02 1.18E+01 50.000 1.92E+00 -1.90E-01 -5.67E-01 40.000 1.27E+00 -5.24E-01 2.35E-01 32.000 1.38E+00 -9.68E-01 4.13E-01 25.000 1.39E+00 -1.23E+00 4.71E-01 20.000 1.22E+00 -1.25E+00 4.88E-01 19.000 1.10E+00 -1.17E+00 4.86E-01 18.000 1.00E+00 -1.07E+00 4.80E-01 17.500 9.54E-01 -1.01E+00 4.73E-01 17.000 9.18E-01 -9.46E-01 4.66E-01 16.500 8.82E-01 -8.72E-01 4.55E-01 15.500 8.53E-01 -7.86E-01 4.38E-01 15.000 8.41E-01 -7.32E-01 4.25E-01 14.500 8.36E-01 -6.76E-01 4.08E-01 14.000 8.38E-01 -6.18E-01 3.88E-01 13.500 8.57E-01 -5.22E-01 3.42E-01 12.500 9.43E-01 -3.90E-01 2.32E-01 11.500 9.80E-01 -4.36E-01 2.31E-01 11.000 1.07E+00 -8.10E-01 3.27E-01 10.500 1.70E+00 -1.50E+00 3.23E-01 10.000 7.67E+00 -3.08E+00 2.96E-01 9.600 2.69E-08 5.93E+00 2.38E-01 9.000 1.35E+02 -6.00E+00 2.47E-01 8.600 1.91E-08 6.00E+00 2.21E-01 8.000 1.96E-06 4.33E+00 1.96E-01 7.600 2.67E-05 3.38E+00 1.82E-01 7.300 1.13E-04 2.87E+00 1.72E-01 7.100 2.80E-04 2.56E+00 1.69E-01 7.000 6.59E-04 2.26E+00 1.67E-01 6.700 2.28E-03 1.83E+00 1.59E-01 6.500 7.68E-03 1.41E+00 1.63E-01 6.300 3.56E-02 8.60E-01 1.74E-01 6.200 3.83E-02 7.74E-01 2.31E-01 6.100 2.13E-03 1.62E+00 3.72E-01 6.000 1.32E-04 2.61E+00 3.96E-01 5.900 9.32E-04 2.07E+00 2.70E-01 5.700 1.92E-03 1.87E+00 1.16E-01 5.500 2.29E-03 1.73E+00 4.96E-02 5.400 3.68E-03 1.57E+00 3.91E-02 5.300 6.96E-03 1.36E+00 2.61E-02 5.100 1.77E-02 1.06E+00 -3.46E-03 4.900 3.83E-02 8.28E-01 -4.42E-02 4.700 7.89E-02 6.28E-01 -1.08E-01 4.500 1.40E-01 4.70E-01 -1.93E-01 4.300 1.50E-01 4.04E-01 -2.07E-01 4.100 1.40E-01 3.60E-01 -1.90E-01 3.900 1.69E-01 2.84E-01 -2.17E-01 3.690 -5.94E-01 -5.24E-01 4.22E-01 3.145 -1.22E+00 -1.90E+00 4.93E-01 2.618 2.00E+00 4.60E-02 -2.06E+00 2.247 1.25E-02 6.02E-01 -1.62E-02 1.855 4.00E-03 6.88E-01 -4.48E-03 1.587 1.38E-03 7.90E-01 -1.29E-03 1.393 1.01E-03 7.16E-01 -9.84E-04 1.232 3.11E-04 8.20E-01 -2.17E-04 1.142 1.59E-04 7.86E-01 -1.33E-04 1.046 2.36E-04 4.10E-01 -2.69E-04 0.929 7.42E-06 1.05E+00 5.08E-06 0.821 8.03E-07 1.44E+00 5.04E-06 0.766 5.93E-07 1.26E+00 1.69E-06 0.719 9.95E-07 8.56E-01 -4.37E-07 0.664 5.47E-07 8.14E-01 -1.41E-07 0.603 2.70E-07 7.34E-01 -2.43E-07 0.544 1.82E-08 1.21E+00 6.89E-08 0.499 3.72E-09 1.60E+00 1.07E-07 0.459 2.10E-08 1.13E+00 5.59E-08 0.419 2.57E-08 1.21E+00 1.01E-07 0.379 1.43E-07 9.52E-01 -2.31E-08 0.344 -2.03E-05 -1.52E+00 4.01E-06 0.314 -2.33E-05 -2.32E-01 1.95E-05 0.290 1.42E-06 7.66E-01 -1.02E-06 ! ! 12.5 micron < r < 30.0 micron 12.5 30.0 ! lambda(micron) a b c 150.000 1.06E+01 -1.31E+00 4.12E-01 100.000 3.91E+01 -2.12E+00 5.02E-01 80.000 4.12E+01 -2.28E+00 5.18E-01 60.000 9.92E+00 -1.74E+00 5.15E-01 50.000 9.23E+00 -1.75E+00 5.15E-01 40.000 1.18E+02 -3.02E+00 5.23E-01 32.000 6.00E+04 -6.00E+00 5.21E-01 25.000 -8.04E-04 1.05E+00 5.44E-01 20.000 -2.33E-02 4.34E-01 6.10E-01 19.000 -2.97E-01 1.08E-01 9.35E-01 18.000 6.34E-01 -1.06E-01 6.19E-02 17.500 4.48E-01 -2.24E-01 2.94E-01 17.000 4.34E-01 -3.24E-01 3.59E-01 16.500 4.70E-01 -4.34E-01 3.95E-01 15.500 5.55E-01 -5.60E-01 4.21E-01 15.000 6.30E-01 -6.34E-01 4.31E-01 14.500 7.25E-01 -7.08E-01 4.39E-01 14.000 8.47E-01 -7.82E-01 4.47E-01 13.500 1.09E+00 -8.90E-01 4.58E-01 12.500 1.96E+00 -1.16E+00 4.82E-01 11.500 4.73E+01 -2.67E+00 5.07E-01 11.000 3.01E-08 4.04E+00 4.57E-01 10.500 8.00E-03 9.36E-01 2.74E-01 10.000 -1.68E+00 -2.14E-01 1.28E+00 9.600 -1.55E+01 -1.69E+00 5.19E-01 9.000 -6.68E+00 -1.23E+00 5.66E-01 8.600 -1.40E+01 -1.59E+00 5.23E-01 8.000 -1.97E+01 -1.79E+00 5.01E-01 7.600 -2.00E+01 -1.84E+00 4.95E-01 7.300 -1.78E+01 -1.83E+00 4.93E-01 7.100 -1.79E+01 -1.87E+00 4.92E-01 7.000 -1.95E+01 -1.96E+00 4.91E-01 6.700 -2.36E+01 -2.12E+00 4.90E-01 6.500 -9.39E+01 -2.84E+00 4.87E-01 6.300 -6.27E+04 -6.00E+00 4.93E-01 6.200 -6.06E-10 4.87E+00 5.00E-01 6.100 -1.05E-11 6.00E+00 5.02E-01 6.000 -6.31E+04 -6.00E+00 5.02E-01 5.900 -1.59E+03 -3.99E+00 4.93E-01 5.700 -3.34E+00 -1.14E+00 5.09E-01 5.500 -1.35E+00 -2.30E-01 9.83E-01 5.400 -1.50E+00 -1.74E-01 1.19E+00 5.300 -1.48E+00 -1.74E-01 1.19E+00 5.100 -1.39E+00 -1.92E-01 1.10E+00 4.900 -1.27E+00 -2.34E-01 9.60E-01 4.700 -1.19E+00 -2.94E-01 8.33E-01 4.500 -1.27E+00 -2.24E-01 9.81E-01 4.300 1.29E+00 8.80E-02 -1.41E+00 4.100 1.44E-01 3.40E-01 -1.86E-01 3.900 6.57E-02 4.66E-01 -8.47E-02 3.690 -2.76E+00 -4.00E-02 2.76E+00 3.145 -9.00E-05 1.40E+00 4.85E-01 2.618 5.92E-01 1.06E-01 -5.89E-01 2.247 5.81E-03 8.08E-01 -3.69E-03 1.855 2.10E-03 8.66E-01 -4.43E-04 1.587 7.25E-04 9.58E-01 7.05E-04 1.393 4.62E-04 9.44E-01 1.57E-04 1.232 2.27E-04 9.14E-01 -3.57E-05 1.142 8.54E-05 9.62E-01 5.50E-05 1.046 2.82E-05 1.00E+00 4.65E-05 0.929 1.58E-05 8.30E-01 -1.64E-05 0.821 3.79E-05 3.82E-01 -6.22E-05 0.766 4.52E-06 6.72E-01 -8.03E-06 0.719 1.88E-07 1.32E+00 3.08E-06 0.664 5.91E-07 8.46E-01 -9.34E-07 0.603 1.19E-07 9.76E-01 6.76E-08 0.544 3.23E-08 1.01E+00 4.62E-08 0.499 2.77E-08 9.74E-01 -1.07E-08 0.459 2.75E-07 5.16E-01 -6.04E-07 0.419 1.67E-07 7.12E-01 -3.65E-07 0.379 3.94E-07 7.06E-01 -7.93E-07 0.344 3.68E-07 9.22E-01 -4.01E-08 0.314 5.08E-07 9.88E-01 5.97E-07 0.290 9.00E-07 9.42E-01 -9.60E-07 ! ! 30.0 micron < r < 60.0 micron 30.0 60.0 ! lambda(micron) a b c 150.000 1.62E+07 -6.00E+00 5.13E-01 100.000 1.16E-01 -3.16E-01 4.91E-01 80.000 -4.56E-04 1.09E+00 5.54E-01 60.000 -1.26E-01 1.86E-01 7.78E-01 50.000 -9.94E-02 2.04E-01 7.38E-01 40.000 -2.62E-04 1.22E+00 5.44E-01 32.000 -1.42E-03 8.88E-01 5.51E-01 25.000 5.33E-01 -1.28E-01 1.71E-01 20.000 5.41E-01 -4.94E-01 4.08E-01 19.000 6.35E-01 -5.86E-01 4.19E-01 18.000 6.95E-01 -6.36E-01 4.24E-01 17.500 7.25E-01 -6.60E-01 4.27E-01 17.000 7.58E-01 -6.84E-01 4.29E-01 16.500 7.97E-01 -7.12E-01 4.32E-01 15.500 8.43E-01 -7.44E-01 4.36E-01 15.000 8.83E-01 -7.68E-01 4.39E-01 14.500 9.26E-01 -7.92E-01 4.42E-01 14.000 9.69E-01 -8.14E-01 4.45E-01 13.500 1.05E+00 -8.48E-01 4.52E-01 12.500 8.68E-01 -8.10E-01 4.64E-01 11.500 -3.52E-04 9.38E-01 5.21E-01 11.000 -1.82E+04 -3.99E+00 5.05E-01 10.500 -6.31E+04 -4.19E+00 5.03E-01 10.000 -1.79E+05 -4.55E+00 4.96E-01 9.600 -4.70E+04 -4.33E+00 4.85E-01 9.000 -5.13E+03 -3.55E+00 4.89E-01 8.600 -1.45E+03 -3.18E+00 4.87E-01 8.000 -5.23E+02 -2.87E+00 4.85E-01 7.600 -5.94E+02 -2.93E+00 4.83E-01 7.300 -9.06E+02 -3.09E+00 4.82E-01 7.100 -2.77E+03 -3.47E+00 4.81E-01 7.000 -2.54E+04 -4.21E+00 4.80E-01 6.700 -6.01E+06 -6.00E+00 4.80E-01 6.500 -1.93E-12 5.20E+00 4.82E-01 6.300 1.82E-01 -3.40E-01 4.33E-01 6.200 4.03E-01 -7.22E-01 4.57E-01 6.100 4.34E-01 -7.44E-01 4.61E-01 6.000 3.19E-01 -6.20E-01 4.59E-01 5.900 -1.15E-04 1.15E+00 4.97E-01 5.700 -4.19E+01 -2.02E+00 4.82E-01 5.500 -4.50E+00 -9.88E-01 5.19E-01 5.400 -4.41E+00 -9.76E-01 5.20E-01 5.300 -5.09E+00 -1.04E+00 5.13E-01 5.100 -6.49E+00 -1.16E+00 5.03E-01 4.900 -8.50E+00 -1.28E+00 4.96E-01 4.700 -1.15E+01 -1.41E+00 4.90E-01 4.500 -8.65E+00 -1.29E+00 4.93E-01 4.300 -2.84E+00 -7.66E-01 5.42E-01 4.100 -1.55E+00 -3.58E-01 7.30E-01 3.900 -1.68E+00 -1.64E-01 1.20E+00 3.690 -1.17E+00 -5.40E-01 5.37E-01 3.145 2.17E-01 -7.48E-01 4.57E-01 2.618 -1.13E+00 -1.34E-01 9.75E-01 2.247 4.81E-02 4.08E-01 -1.06E-01 1.855 1.32E-02 5.06E-01 -3.44E-02 1.587 3.65E-03 6.28E-01 -1.15E-02 1.393 1.97E-03 6.50E-01 -6.45E-03 1.232 7.03E-04 6.90E-01 -2.34E-03 1.142 3.58E-04 6.70E-01 -1.21E-03 1.046 1.50E-04 6.60E-01 -5.20E-04 0.929 3.08E-05 7.12E-01 -9.82E-05 0.821 6.09E-06 7.88E-01 -1.23E-05 0.766 6.16E-06 6.52E-01 -2.04E-05 0.719 2.03E-05 3.32E-01 -4.32E-05 0.664 8.34E-07 7.78E-01 -2.25E-06 0.603 3.32E-07 7.62E-01 -1.09E-06 0.544 9.12E-08 7.94E-01 -3.12E-07 0.499 2.25E-07 5.48E-01 -7.05E-07 0.459 6.85E-08 8.22E-01 -1.44E-07 0.419 1.35E-07 7.78E-01 -3.94E-07 0.379 3.42E-07 7.64E-01 -1.07E-06 0.344 7.50E-07 7.82E-01 -2.36E-06 0.314 2.18E-06 6.90E-01 -7.64E-06 0.290 3.14E-06 6.88E-01 -1.16E-05 ================================================ FILE: UTIL/inline_phot_preproc/refractive_indices/adient_aerosol_refrac_indx/refract_ammoniumsulphate_lf.txt ================================================ NH4SO4_IF ! Ref. ind. for ammoniumsulphate (interp) !Wvelen(um) Real Part Imag Part 2.0000E-01 0.1540E+01 0.1000E-06 2.5000E-01 0.1540E+01 0.1000E-06 3.0000E-01 0.1540E+01 0.1000E-06 3.3700E-01 0.1540E+01 0.1000E-06 4.0000E-01 0.1540E+01 0.1000E-06 4.8800E-01 0.1534E+01 0.1000E-06 5.1500E-01 0.1532E+01 0.1000E-06 5.5000E-01 0.1529E+01 0.1000E-06 6.3300E-01 0.1526E+01 0.1000E-06 6.9400E-01 0.1525E+01 0.1000E-06 8.6000E-01 0.1520E+01 0.1750E-06 1.0600E+00 0.1510E+01 0.2107E-05 1.3000E+00 0.1500E+01 0.1700E-04 1.5360E+00 0.1490E+01 0.1132E-03 1.8000E+00 0.1480E+01 0.7600E-04 2.0000E+00 0.1470E+01 0.1000E-02 2.2500E+00 0.1460E+01 0.1235E-02 2.5000E+00 0.1440E+01 0.3500E-03 2.7000E+00 0.1411E+01 0.2813E-02 3.0000E+00 0.1304E+01 0.1271E+00 3.2000E+00 0.1486E+01 0.2580E+00 3.3920E+00 0.1610E+01 0.1693E+00 3.5000E+00 0.1617E+01 0.1417E+00 3.7500E+00 0.1585E+01 0.4857E-01 4.0000E+00 0.1546E+01 0.1531E-01 4.5000E+00 0.1495E+01 0.7395E-02 5.0000E+00 0.1461E+01 0.6480E-02 5.5000E+00 0.1413E+01 0.8161E-02 6.0000E+00 0.1347E+01 0.1324E-01 6.2000E+00 0.1309E+01 0.1865E-01 6.5000E+00 0.1187E+01 0.6167E-01 7.2000E+00 0.1928E+01 0.5600E+00 7.9000E+00 0.1363E+01 0.7474E-01 8.2000E+00 0.1165E+01 0.1224E+00 8.5000E+00 0.1446E+01 0.6740E+00 8.7000E+00 0.1634E+01 1.0424E+00 9.0000E+00 0.1915E+01 1.5940E+00 9.2000E+00 0.2102E+01 0.1958E+01 9.5000E+00 0.2701E+01 0.6147E+00 9.8000E+00 0.2394E+01 0.2967E+00 1.0000E+01 0.2190E+01 0.1300E+00 1.0591E+01 0.1973E+01 0.5697E-01 1.1000E+01 0.1898E+01 0.4333E-01 1.1500E+01 0.1840E+01 0.2857E-01 1.2500E+01 0.1750E+01 0.2000E-01 1.3000E+01 0.1719E+01 0.2000E-01 1.4000E+01 0.1651E+01 0.2000E-01 1.4800E+01 0.1557E+01 0.2455E-01 1.5000E+01 0.1528E+01 0.2636E-01 1.6400E+01 0.2770E+01 0.5800E+00 1.7200E+01 0.2030E+01 0.7333E-01 1.8000E+01 0.1822E+01 0.3067E-01 1.8500E+01 0.1757E+01 0.2000E-01 2.0000E+01 0.1690E+01 0.2000E-01 2.1300E+01 0.1649E+01 0.2591E-01 2.2500E+01 0.1612E+01 0.3214E-01 2.5000E+01 0.1550E+01 0.5000E-01 2.7900E+01 0.1445E+01 0.9833E-01 3.0000E+01 0.1349E+01 0.2143E+00 3.5000E+01 0.1424E+01 0.6275E+00 4.0000E+01 0.2140E+01 0.1120E+01 ================================================ FILE: UTIL/inline_phot_preproc/refractive_indices/adient_aerosol_refrac_indx/refract_bc_high.txt ================================================ BC_HIGH !Refractive Index of BC High absorbing from Bond and Bergstrom 2006 !Wvelen(um) Real Part Imag Part 2.0000E-01 1.95000e+00 7.90000e-01 2.5000E-01 1.95000e+00 7.90000e-01 3.0000E-01 1.95000e+00 7.90000e-01 3.3700E-01 1.95000e+00 7.90000e-01 4.0000E-01 1.95000e+00 7.90000e-01 4.8800E-01 1.95000e+00 7.90000e-01 5.1500E-01 1.95000e+00 7.90000e-01 5.5000E-01 1.95000e+00 7.90000e-01 6.3300E-01 1.95000e+00 7.90000e-01 6.9400E-01 1.95000e+00 7.90000e-01 8.6000E-01 1.95000e+00 7.90000e-01 1.0600E+00 1.95000e+00 7.90000e-01 1.3000E+00 1.95000e+00 7.90000e-01 1.5360E+00 1.95000e+00 7.90000e-01 1.8000E+00 1.95000e+00 7.90000e-01 2.0000E+00 1.95000e+00 7.90000e-01 2.2500E+00 1.95000e+00 7.90000e-01 2.5000E+00 1.95000e+00 7.90000e-01 2.7000E+00 1.95000e+00 7.90000e-01 3.0000E+00 1.95000e+00 7.90000e-01 3.2000E+00 1.95000e+00 7.90000e-01 3.3920E+00 1.95000e+00 7.90000e-01 3.5000E+00 1.95000e+00 7.90000e-01 3.7500E+00 1.95000e+00 7.90000e-01 4.0000E+00 1.95000e+00 7.90000e-01 4.5000E+00 1.95000e+00 7.90000e-01 5.0000E+00 1.95000e+00 7.90000e-01 5.5000E+00 1.95000e+00 7.90000e-01 6.0000E+00 1.95000e+00 7.90000e-01 6.2000E+00 1.95000e+00 7.90000e-01 6.5000E+00 1.95000e+00 7.90000e-01 7.2000E+00 1.95000e+00 7.90000e-01 7.9000E+00 1.95000e+00 7.90000e-01 8.2000E+00 1.95000e+00 7.90000e-01 8.5000E+00 1.95000e+00 7.90000e-01 8.7000E+00 1.95000e+00 7.90000e-01 9.0000E+00 1.95000e+00 7.90000e-01 9.2000E+00 1.95000e+00 7.90000e-01 9.5000E+00 1.95000e+00 7.90000e-01 9.8000E+00 1.95000e+00 7.90000e-01 1.0000E+01 1.95000e+00 7.90000e-01 1.0591E+01 1.95000e+00 7.90000e-01 1.1000E+01 1.95000e+00 7.90000e-01 1.1500E+01 1.95000e+00 7.90000e-01 1.2500E+01 1.95000e+00 7.90000e-01 1.3000E+01 1.95000e+00 7.90000e-01 1.4000E+01 1.95000e+00 7.90000e-01 1.4800E+01 1.95000e+00 7.90000e-01 1.5000E+01 1.95000e+00 7.90000e-01 1.6400E+01 1.95000e+00 7.90000e-01 1.7200E+01 1.95000e+00 7.90000e-01 1.8000E+01 1.95000e+00 7.90000e-01 1.8500E+01 1.95000e+00 7.90000e-01 2.0000E+01 1.95000e+00 7.90000e-01 2.1300E+01 1.95000e+00 7.90000e-01 2.2500E+01 1.95000e+00 7.90000e-01 2.5000E+01 1.95000e+00 7.90000e-01 2.7900E+01 1.95000e+00 7.90000e-01 3.0000E+01 1.95000e+00 7.90000e-01 3.5000E+01 1.95000e+00 7.90000e-01 4.0000E+01 1.95000e+00 7.90000e-01 ================================================ FILE: UTIL/inline_phot_preproc/refractive_indices/adient_aerosol_refrac_indx/refract_bc_med.txt ================================================ BC_MED !Refractive Index of BC mid absorbing from Stier et al (2007) !Wvelen(um) Real Part Imag Part 2.0000E-01 1.85000e+00 7.10000e-01 2.5000E-01 1.85000e+00 7.10000e-01 3.0000E-01 1.85000e+00 7.10000e-01 3.3700E-01 1.85000e+00 7.10000e-01 4.0000E-01 1.85000e+00 7.10000e-01 4.8800E-01 1.85000e+00 7.10000e-01 5.1500E-01 1.85000e+00 7.10000e-01 5.5000E-01 1.85000e+00 7.10000e-01 6.3300E-01 1.85000e+00 7.10000e-01 6.9400E-01 1.85000e+00 7.10000e-01 8.6000E-01 1.85000e+00 7.10000e-01 1.0600E+00 1.85000e+00 7.10000e-01 1.3000E+00 1.85000e+00 7.10000e-01 1.5360E+00 1.85000e+00 7.10000e-01 1.8000E+00 1.85000e+00 7.10000e-01 2.0000E+00 1.85000e+00 7.10000e-01 2.2500E+00 1.85000e+00 7.10000e-01 2.5000E+00 1.85000e+00 7.10000e-01 2.7000E+00 1.85000e+00 7.10000e-01 3.0000E+00 1.85000e+00 7.10000e-01 3.2000E+00 1.85000e+00 7.10000e-01 3.3920E+00 1.85000e+00 7.10000e-01 3.5000E+00 1.85000e+00 7.10000e-01 3.7500E+00 1.85000e+00 7.10000e-01 4.0000E+00 1.85000e+00 7.10000e-01 4.5000E+00 1.85000e+00 7.10000e-01 5.0000E+00 1.85000e+00 7.10000e-01 5.5000E+00 1.85000e+00 7.10000e-01 6.0000E+00 1.85000e+00 7.10000e-01 6.2000E+00 1.85000e+00 7.10000e-01 6.5000E+00 1.85000e+00 7.10000e-01 7.2000E+00 1.85000e+00 7.10000e-01 7.9000E+00 1.85000e+00 7.10000e-01 8.2000E+00 1.85000e+00 7.10000e-01 8.5000E+00 1.85000e+00 7.10000e-01 8.7000E+00 1.85000e+00 7.10000e-01 9.0000E+00 1.85000e+00 7.10000e-01 9.2000E+00 1.85000e+00 7.10000e-01 9.5000E+00 1.85000e+00 7.10000e-01 9.8000E+00 1.85000e+00 7.10000e-01 1.0000E+01 1.85000e+00 7.10000e-01 1.0591E+01 1.85000e+00 7.10000e-01 1.1000E+01 1.85000e+00 7.10000e-01 1.1500E+01 1.85000e+00 7.10000e-01 1.2500E+01 1.85000e+00 7.10000e-01 1.3000E+01 1.85000e+00 7.10000e-01 1.4000E+01 1.85000e+00 7.10000e-01 1.4800E+01 1.85000e+00 7.10000e-01 1.5000E+01 1.85000e+00 7.10000e-01 1.6400E+01 1.85000e+00 7.10000e-01 1.7200E+01 1.85000e+00 7.10000e-01 1.8000E+01 1.85000e+00 7.10000e-01 1.8500E+01 1.85000e+00 7.10000e-01 2.0000E+01 1.85000e+00 7.10000e-01 2.1300E+01 1.85000e+00 7.10000e-01 2.2500E+01 1.85000e+00 7.10000e-01 2.5000E+01 1.85000e+00 7.10000e-01 2.7900E+01 1.85000e+00 7.10000e-01 3.0000E+01 1.85000e+00 7.10000e-01 3.5000E+01 1.85000e+00 7.10000e-01 4.0000E+01 1.85000e+00 7.10000e-01 ================================================ FILE: UTIL/inline_phot_preproc/refractive_indices/adient_aerosol_refrac_indx/refract_biomass_new.txt ================================================ BIOMASS ! Refractive indices for Biomass burning !Wvelen(um) Real Part Imag Part 2.0000E-01 0.1540E+01 0.1008E+00 2.5000E-01 0.1540E+01 0.1008E+00 3.0000E-01 0.1540E+01 0.1008E+00 3.3700E-01 0.1540E+01 0.1008E+00 4.0000E-01 0.1540E+01 0.6660E-01 4.8800E-01 0.1540E+01 0.2700E-01 5.1500E-01 0.1540E+01 0.2700E-01 5.5000E-01 0.1540E+01 0.1800E-01 6.3300E-01 0.1540E+01 0.1800E-01 6.9400E-01 0.1540E+01 0.1800E-01 8.6000E-01 0.1540E+01 0.1800E-01 1.0600E+00 0.1540E+01 0.1800E-01 1.3000E+00 0.1540E+01 0.1800E-01 1.5360E+00 0.1540E+01 0.1800E-01 1.8000E+00 0.1540E+01 0.1800E-01 2.0000E+00 0.1540E+01 0.1800E-01 2.2500E+00 0.1540E+01 0.1800E-01 2.5000E+00 0.1540E+01 0.1800E-01 2.7000E+00 0.1540E+01 0.1800E-01 3.0000E+00 0.1540E+01 0.1800E-01 3.2000E+00 0.1540E+01 0.1800E-01 3.3920E+00 0.1540E+01 0.1800E-01 3.5000E+00 0.1540E+01 0.1800E-01 3.7500E+00 0.1540E+01 0.1800E-01 4.0000E+00 0.1465E+01 0.1500E-01 4.5000E+00 0.1470E+01 0.3900E-01 5.0000E+00 0.1459E+01 0.3600E-01 5.5000E+00 0.1449E+01 0.5400E-01 6.0000E+00 0.1419E+01 0.6900E-01 6.2000E+00 0.1439E+01 0.8100E-01 6.5000E+00 0.1470E+01 0.9900E-01 7.2000E+00 0.1409E+01 0.2100E+00 7.9000E+00 0.1208E+01 0.1950E+00 8.2000E+00 0.1017E+01 0.3000E+00 8.5000E+00 0.1308E+01 0.6450E+00 8.7000E+00 0.2416E+01 0.8700E+00 9.0000E+00 0.2577E+01 0.1110E+01 9.2000E+00 0.2214E+01 0.1260E+01 9.5000E+00 0.1963E+01 0.4800E+00 9.8000E+00 0.1882E+01 0.2850E+00 1.0000E+01 0.1832E+01 0.2700E+00 1.0591E+01 0.1773E+01 0.2109E+00 1.1000E+01 0.1731E+01 0.1500E+00 1.1500E+01 0.1681E+01 0.1410E+00 1.2500E+01 0.1631E+01 0.1590E+00 1.3000E+01 0.1631E+01 0.1650E+00 1.4000E+01 0.1570E+01 0.2190E+00 1.4800E+01 0.1449E+01 0.3000E+00 1.5000E+01 0.1429E+01 0.6000E+00 1.6400E+01 0.1761E+01 0.4800E+00 1.7200E+01 0.2094E+01 0.7260E+00 1.8000E+01 0.1993E+01 0.5400E+00 1.8500E+01 0.1862E+01 0.5100E+00 2.0000E+01 0.2134E+01 0.6600E+00 2.1300E+01 0.2073E+01 0.6900E+00 2.2500E+01 0.2013E+01 0.7200E+00 2.5000E+01 0.1892E+01 0.8400E+00 2.7900E+01 0.1852E+01 0.8700E+00 3.0000E+01 0.1832E+01 0.9000E+00 3.5000E+01 0.1933E+01 0.1200E+01 4.0000E+01 0.1872E+01 0.1500E+01 ================================================ FILE: UTIL/inline_phot_preproc/refractive_indices/adient_aerosol_refrac_indx/refract_dust_kwcp_fou.txt ================================================ DUST_KWCP_FOU ! Refractive indices for Dust from Kinne, WCP and Fou !Wvelen(um) Real Part Imag Part 2.0000E-01 0.1530E+01 0.5455E-02 2.5000E-01 0.1530E+01 0.5455E-02 3.0000E-01 0.1530E+01 0.5455E-02 3.3700E-01 0.1530E+01 0.3469E-02 4.0000E-01 0.1530E+01 0.2364E-02 4.8800E-01 0.1530E+01 0.1449E-02 5.1500E-01 0.1530E+01 0.1293E-02 5.5000E-01 0.1530E+01 0.1000E-02 6.3300E-01 0.1530E+01 0.8182E-03 6.9400E-01 0.1530E+01 0.7382E-03 8.6000E-01 0.1530E+01 0.7273E-03 1.0600E+00 0.1530E+01 0.7709E-03 1.3000E+00 0.1530E+01 0.9345E-03 1.5360E+00 0.1530E+01 0.1055E-02 1.8000E+00 0.1530E+01 0.1207E-02 2.0000E+00 0.1530E+01 0.1382E-02 2.2500E+00 0.1525E+01 0.1964E-02 2.5000E+00 0.1520E+01 0.2545E-02 2.7000E+00 0.1520E+01 0.4364E-02 3.0000E+00 0.1520E+01 0.7091E-02 3.2000E+00 0.1510E+01 0.4364E-02 3.3920E+00 0.1510E+01 0.3496E-02 3.5000E+00 0.1510E+01 0.3273E-02 3.7500E+00 0.1500E+01 0.2182E-02 4.0000E+00 0.1500E+01 0.1218E-02 4.5000E+00 0.1500E+01 0.1582E-02 5.0000E+00 0.1480E+01 0.3273E-02 5.5000E+00 0.1460E+01 0.3669E-01 6.0000E+00 0.1440E+01 0.6661E-01 6.2000E+00 0.1430E+01 0.6461E-01 6.5000E+00 0.1420E+01 0.5377E-01 7.2000E+00 0.1460E+01 0.7738E-01 7.9000E+00 0.1220E+01 0.9994E-01 8.2000E+00 0.1120E+01 0.1511E+00 8.5000E+00 0.1060E+01 0.2457E+00 8.7000E+00 0.1190E+01 0.3451E+00 9.0000E+00 0.1850E+01 0.5058E+00 9.2000E+00 0.2220E+01 0.5744E+00 9.5000E+00 0.2940E+01 0.6564E+00 9.8000E+00 0.2910E+01 0.6588E+00 1.0000E+01 0.2570E+01 0.5231E+00 1.0591E+01 0.1920E+01 0.2800E+00 1.1000E+01 0.1830E+01 0.2272E+00 1.1500E+01 0.1810E+01 0.1476E+00 1.2500E+01 0.1740E+01 0.1868E+00 1.3000E+01 0.2000E+01 0.1856E+00 1.4000E+01 0.1630E+01 0.2074E+00 1.4800E+01 0.1540E+01 0.2472E+00 1.5000E+01 0.1510E+01 0.2450E+00 1.6400E+01 0.1470E+01 0.3411E+00 1.7200E+01 0.1490E+01 0.4602E+00 1.8000E+01 0.1770E+01 0.6199E+00 1.8500E+01 0.2050E+01 0.7077E+00 2.0000E+01 0.2200E+01 0.6755E+00 2.1300E+01 0.2390E+01 0.8674E+00 2.2500E+01 0.2690E+01 0.8172E+00 2.5000E+01 0.2990E+01 0.5781E+00 2.7900E+01 0.2570E+01 0.5479E+00 3.0000E+01 0.2420E+01 0.5832E+00 3.5000E+01 0.2420E+01 0.5883E+00 4.0000E+01 0.2340E+01 0.5866E+00 ================================================ FILE: UTIL/inline_phot_preproc/refractive_indices/adient_aerosol_refrac_indx/refract_nitrate.txt ================================================ NITRATE ! Ref. ind. for amm. nitrate !Wvelen(um) Real Part Imag Part 2.0000E-01 1.61000E+00 0.00000E-00 2.5000E-01 1.61000E+00 0.00000E-00 3.0000E-01 1.61000E+00 0.00000E-00 3.3700E-01 1.61000E+00 0.00000E-00 4.0000E-01 1.61000E+00 0.00000E-00 4.8800E-01 1.61000E+00 0.00000E-00 5.1500E-01 1.61000E+00 0.00000E-00 5.5000E-01 1.61000E+00 0.00000E-00 6.3300E-01 1.61000E+00 0.00000E-00 6.9400E-01 1.61000E+00 3.19768E-08 8.6000E-01 1.60000E+00 2.72157E-06 1.0600E+00 1.59000E+00 1.56986E-05 1.3000E+00 1.58000E+00 1.70623E-04 1.5360E+00 1.57000E+00 1.80820E-03 1.8000E+00 1.56000E+00 1.48521E-03 2.0000E+00 1.56000E+00 2.75000E-03 2.2500E+00 1.55000E+00 1.91000E-03 2.5000E+00 1.53000E+00 3.17000E-03 2.7000E+00 1.48000E+00 1.13000E-03 3.0000E+00 1.25000E+00 2.09000E-01 3.2000E+00 1.55000E+00 5.07000E-01 3.3920E+00 1.82000E+00 3.11000E-01 3.5000E+00 1.83000E+00 2.09000E-01 3.7500E+00 1.75000E+00 5.16000E-02 4.0000E+00 1.67000E+00 3.57000E-02 4.5000E+00 1.61000E+00 1.08000E-02 5.0000E+00 1.55000E+00 2.57000E-02 5.5000E+00 1.46000E+00 4.84000E-02 6.0000E+00 1.42000E+00 1.30000E-01 6.2000E+00 1.33000E+00 1.34000E-01 6.5000E+00 1.17000E+00 2.00000E-01 7.2000E+00 1.77000E+00 1.69000E+00 7.9000E+00 2.37000E+00 3.40000E-01 8.2000E+00 2.18000E+00 1.94000E-01 8.5000E+00 2.11000E+00 1.59000E-01 8.7000E+00 2.09000E+00 1.40000E-01 9.0000E+00 2.04000E+00 1.22000E-01 9.2000E+00 2.03000E+00 1.15000E-01 9.5000E+00 2.02000E+00 7.49000E-02 9.8000E+00 1.98000E+00 6.42000E-02 1.0000E+01 1.95000E+00 6.36000E-02 1.0591E+01 1.94000E+00 4.84000E-02 1.1000E+01 1.91000E+00 3.80000E-02 1.1500E+01 1.85000E+00 2.77000E-02 1.2500E+01 1.98000E+00 5.25000E-03 1.3000E+01 1.89000E+00 2.87000E-02 1.4000E+01 1.94000E+00 2.38000E-02 1.4800E+01 1.89000E+00 0.00000E+00 1.5000E+01 1.85000E+00 1.36000E-02 1.6400E+01 1.85000E+00 1.36000E-02 1.7200E+01 1.84000E+00 1.45000E-02 1.8000E+01 1.81000E+00 2.44000E-02 1.8500E+01 1.81000E+00 2.44000E-02 2.0000E+01 1.82000E+00 4.24000E-02 2.1300E+01 1.82000E+00 4.24000E-02 2.2500E+01 1.82000E+00 4.24000E-02 2.5000E+01 1.82000E+00 4.24000E-02 2.7900E+01 1.82000E+00 4.24000E-02 3.0000E+01 1.82000E+00 4.24000E-02 3.5000E+01 1.82000E+00 4.24000E-02 4.0000E+01 1.82000E+00 4.24000E-02 ================================================ FILE: UTIL/inline_phot_preproc/refractive_indices/adient_aerosol_refrac_indx/refract_organicc_new.txt ================================================ ORGANICC ! Refractive indices for organic carbon (OC) !Wvelen(um) Real Part Imag Part 1.5000E-01 0.1601E+01 0.1176E+00 2.0000E-01 0.1601E+01 0.1176E+00 2.5000E-01 0.1601E+01 0.1176E+00 3.0000E-01 0.1601E+01 0.1176E+00 3.3700E-01 0.1601E+01 0.1176E+00 4.0000E-01 0.1634E+01 0.7770E-01 4.8800E-01 0.1634E+01 0.3675E-01 5.1500E-01 0.1634E+01 0.2520E-01 5.5000E-01 0.1634E+01 0.2100E-01 6.3300E-01 0.1634E+01 0.6300E-02 6.9400E-01 0.1634E+01 0.7000E-03 8.6000E-01 0.1634E+01 0.7000E-03 1.0600E+00 0.1634E+01 0.7000E-03 1.3000E+00 0.1634E+01 0.7000E-03 1.5360E+00 0.1634E+01 0.7000E-03 1.8000E+00 0.1634E+01 0.7000E-03 2.0000E+00 0.1634E+01 0.7000E-03 2.2500E+00 0.1634E+01 0.7000E-03 2.5000E+00 0.1634E+01 0.7000E-03 2.7000E+00 0.1634E+01 0.7000E-03 3.0000E+00 0.1634E+01 0.7000E-03 3.2000E+00 0.1634E+01 0.7000E-03 3.3920E+00 0.1634E+01 0.7000E-03 3.5000E+00 0.1634E+01 0.7000E-03 3.7500E+00 0.1634E+01 0.7000E-03 4.0000E+00 0.1554E+01 0.1750E-01 4.5000E+00 0.1559E+01 0.4550E-01 5.0000E+00 0.1549E+01 0.4200E-01 5.5000E+00 0.1538E+01 0.6300E-01 6.0000E+00 0.1506E+01 0.8050E-01 6.2000E+00 0.1527E+01 0.9450E-01 6.5000E+00 0.1559E+01 0.1155E+00 7.2000E+00 0.1495E+01 0.2450E+00 7.9000E+00 0.1282E+01 0.2275E+00 8.2000E+00 0.1079E+01 0.3500E+00 8.5000E+00 0.1388E+01 0.7525E+00 8.7000E+00 0.2563E+01 0.1015E+01 9.0000E+00 0.2734E+01 0.1295E+01 9.2000E+00 0.2350E+01 0.1470E+01 9.5000E+00 0.2083E+01 0.5600E+00 9.8000E+00 0.1997E+01 0.3325E+00 1.0000E+01 0.1944E+01 0.3150E+00 1.0591E+01 0.1881E+01 0.2460E+00 1.1000E+01 0.1837E+01 0.1750E+00 1.1500E+01 0.1784E+01 0.1645E+00 1.2500E+01 0.1730E+01 0.1855E+00 1.3000E+01 0.1730E+01 0.1925E+00 1.4000E+01 0.1666E+01 0.2555E+00 1.4800E+01 0.1538E+01 0.3500E+00 1.5000E+01 0.1517E+01 0.7000E+00 1.6400E+01 0.1869E+01 0.5600E+00 1.7200E+01 0.2221E+01 0.8470E+00 1.8000E+01 0.2115E+01 0.6300E+00 1.8500E+01 0.1976E+01 0.5950E+00 2.0000E+01 0.2264E+01 0.7700E+00 2.1300E+01 0.2200E+01 0.8050E+00 2.2500E+01 0.2136E+01 0.8400E+00 2.5000E+01 0.2008E+01 0.9800E+00 2.7900E+01 0.1965E+01 0.1015E+01 3.0000E+01 0.1944E+01 0.1050E+01 3.5000E+01 0.2051E+01 0.1400E+01 4.0000E+01 0.1986E+01 0.1750E+01 ================================================ FILE: UTIL/inline_phot_preproc/refractive_indices/adient_aerosol_refrac_indx/refract_soa_dinar.txt ================================================ SOA_DINAR ! Refractive indices for Secondary organic aerosol (Dinar et al) !Wvelen(um) Real Part Imag Part 2.0000E-01 0.1560E+01 0.0030E+00 2.5000E-01 0.1560E+01 0.0030E+00 3.0000E-01 0.1560E+01 0.0030E+00 3.3700E-01 0.1560E+01 0.0030E+00 4.0000E-01 0.1560E+01 0.0030E+00 4.8800E-01 0.1560E+01 0.0030E+00 5.1500E-01 0.1560E+01 0.0030E+00 5.5000E-01 0.1560E+01 0.0030E+00 6.3300E-01 0.1560E+01 0.0030E+00 6.9400E-01 0.1560E+01 0.0030E+00 8.6000E-01 0.1560E+01 0.0030E+00 1.0600E+00 0.1560E+01 0.0030E+00 1.3000E+00 0.1560E+01 0.0030E+00 1.5360E+00 0.1560E+01 0.0030E+00 1.8000E+00 0.1560E+01 0.0030E+00 2.0000E+00 0.1560E+01 0.0030E+00 2.2500E+00 0.1560E+01 0.0030E+00 2.5000E+00 0.1560E+01 0.0030E+00 2.7000E+00 0.1560E+01 0.0030E+00 3.0000E+00 0.1560E+01 0.0030E+00 3.2000E+00 0.1560E+01 0.0030E+00 3.3920E+00 0.1560E+01 0.0030E+00 3.5000E+00 0.1560E+01 0.0030E+00 3.7500E+00 0.1560E+01 0.0030E+00 4.0000E+00 0.1560E+01 0.0030E+00 4.5000E+00 0.1560E+01 0.0030E+00 5.0000E+00 0.1560E+01 0.0030E+00 5.5000E+00 0.1560E+01 0.0030E+00 6.0000E+00 0.1560E+01 0.0030E+00 6.2000E+00 0.1560E+01 0.0030E+00 6.5000E+00 0.1560E+01 0.0030E+00 7.2000E+00 0.1560E+01 0.0030E+00 7.9000E+00 0.1560E+01 0.0030E+00 8.2000E+00 0.1560E+01 0.0030E+00 8.5000E+00 0.1560E+01 0.0030E+00 8.7000E+00 0.1560E+01 0.0030E+00 9.0000E+00 0.1560E+01 0.0030E+00 9.2000E+00 0.1560E+01 0.0030E+00 9.5000E+00 0.1560E+01 0.0030E+00 9.8000E+00 0.1560E+01 0.0030E+00 1.0000E+01 0.1560E+01 0.0030E+00 1.0591E+01 0.1560E+01 0.0030E+00 1.1000E+01 0.1560E+01 0.0030E+00 1.1500E+01 0.1560E+01 0.0030E+00 1.2500E+01 0.1560E+01 0.0030E+00 1.3000E+01 0.1560E+01 0.0030E+00 1.4000E+01 0.1560E+01 0.0030E+00 1.4800E+01 0.1560E+01 0.0030E+00 1.5000E+01 0.1560E+01 0.0030E+00 1.6400E+01 0.1560E+01 0.0030E+00 1.7200E+01 0.1560E+01 0.0030E+00 1.8000E+01 0.1560E+01 0.0030E+00 1.8500E+01 0.1560E+01 0.0030E+00 2.0000E+01 0.1560E+01 0.0030E+00 2.1300E+01 0.1560E+01 0.0030E+00 2.2500E+01 0.1560E+01 0.0030E+00 2.5000E+01 0.1560E+01 0.0030E+00 2.7900E+01 0.1560E+01 0.0030E+00 3.0000E+01 0.1560E+01 0.0030E+00 3.5000E+01 0.1560E+01 0.0030E+00 4.0000E+01 0.1560E+01 0.0030E+00 ================================================ FILE: UTIL/inline_phot_preproc/refractive_indices/adient_aerosol_refrac_indx/refract_soa_hadgem2.txt ================================================ SOA_HADGEM2 ! Refractive indices for Secondary organic aerosol (Dinar et al) !Wvelen(um) Real Part Imag Part 2.0000E-01 0.1430E+01 0.0000E+00 2.5000E-01 0.1430E+01 0.0000E+00 3.0000E-01 0.1430E+01 0.0000E+00 3.3700E-01 0.1430E+01 0.0000E+00 4.0000E-01 0.1430E+01 0.0000E+00 4.8800E-01 0.1430E+01 0.0000E+00 5.1500E-01 0.1430E+01 0.0000E+00 5.5000E-01 0.1430E+01 0.0000E+00 6.3300E-01 0.1430E+01 0.0000E+00 6.9400E-01 0.1430E+01 0.0000E+00 8.6000E-01 0.1430E+01 0.0000E+00 1.0600E+00 0.1430E+01 0.0000E+00 1.3000E+00 0.1430E+01 0.0000E+00 1.5360E+00 0.1430E+01 0.0000E+00 1.8000E+00 0.1430E+01 0.0000E+00 2.0000E+00 0.1430E+01 0.0000E+00 2.2500E+00 0.1430E+01 0.0000E+00 2.5000E+00 0.1430E+01 0.0000E+00 2.7000E+00 0.1430E+01 0.0000E+00 3.0000E+00 0.1430E+01 0.0000E+00 3.2000E+00 0.1430E+01 0.0000E+00 3.3920E+00 0.1430E+01 0.0000E+00 3.5000E+00 0.1430E+01 0.0000E+00 3.7500E+00 0.1430E+01 0.0000E+00 4.0000E+00 0.1430E+01 0.0000E+00 4.5000E+00 0.1430E+01 0.0000E+00 5.0000E+00 0.1430E+01 0.0000E+00 5.5000E+00 0.1430E+01 0.0000E+00 6.0000E+00 0.1430E+01 0.0000E+00 6.2000E+00 0.1430E+01 0.0000E+00 6.5000E+00 0.1430E+01 0.0000E+00 7.2000E+00 0.1430E+01 0.0000E+00 7.9000E+00 0.1430E+01 0.0000E+00 8.2000E+00 0.1430E+01 0.0000E+00 8.5000E+00 0.1430E+01 0.0000E+00 8.7000E+00 0.1430E+01 0.0000E+00 9.0000E+00 0.1430E+01 0.0000E+00 9.2000E+00 0.1430E+01 0.0000E+00 9.5000E+00 0.1430E+01 0.0000E+00 9.8000E+00 0.1430E+01 0.0000E+00 1.0000E+01 0.1430E+01 0.0000E+00 1.0591E+01 0.1430E+01 0.0000E+00 1.1000E+01 0.1430E+01 0.0000E+00 1.1500E+01 0.1430E+01 0.0000E+00 1.2500E+01 0.1430E+01 0.0000E+00 1.3000E+01 0.1430E+01 0.0000E+00 1.4000E+01 0.1430E+01 0.0000E+00 1.4800E+01 0.1430E+01 0.0000E+00 1.5000E+01 0.1430E+01 0.0000E+00 1.6400E+01 0.1430E+01 0.0000E+00 1.7200E+01 0.1430E+01 0.0000E+00 1.8000E+01 0.1430E+01 0.0000E+00 1.8500E+01 0.1430E+01 0.0000E+00 2.0000E+01 0.1430E+01 0.0000E+00 2.1300E+01 0.1430E+01 0.0000E+00 2.2500E+01 0.1430E+01 0.0000E+00 2.5000E+01 0.1430E+01 0.0000E+00 2.7900E+01 0.1430E+01 0.0000E+00 3.0000E+01 0.1430E+01 0.0000E+00 3.5000E+01 0.1430E+01 0.0000E+00 4.0000E+01 0.1430E+01 0.0000E+00 ================================================ FILE: UTIL/inline_phot_preproc/refractive_indices/adient_aerosol_refrac_indx/refract_ssam_opac.txt ================================================ SSAM_OPAC ! Ref. ind. for ss am from OPAC (interp) !Wvelen(um) Real Part Imag Part 2.0000E-01 0.1510E+01 0.5000E-05 2.5000E-01 0.1510E+01 0.5000E-05 3.0000E-01 0.1510E+01 0.5000E-05 3.3700E-01 0.1510E+01 0.7598E-06 4.0000E-01 0.1500E+01 0.3000E-07 4.8800E-01 0.1500E+01 0.1761E-07 5.1500E-01 0.1500E+01 0.1385E-07 5.5000E-01 0.1500E+01 0.1000E-07 6.3300E-01 0.1490E+01 0.3342E-07 6.9400E-01 0.1490E+01 0.1811E-06 8.6000E-01 0.1480E+01 0.2622E-04 1.0600E+00 0.1470E+01 0.1931E-03 1.3000E+00 0.1468E+01 0.4004E-03 1.5360E+00 0.1459E+01 0.5976E-03 1.8000E+00 0.1450E+01 0.8096E-03 2.0000E+00 0.1450E+01 0.1000E-02 2.2500E+00 0.1440E+01 0.2500E-02 2.5000E+00 0.1430E+01 0.4000E-02 2.7000E+00 0.1502E+01 0.6400E-02 3.0000E+00 0.1610E+01 0.1000E-01 3.2000E+00 0.1490E+01 0.3000E-02 3.3920E+00 0.1480E+01 0.2042E-02 3.5000E+00 0.1480E+01 0.1600E-02 3.7500E+00 0.1470E+01 0.1400E-02 4.0000E+00 0.1480E+01 0.1400E-02 4.5000E+00 0.1490E+01 0.1400E-02 5.0000E+00 0.1470E+01 0.2500E-02 5.5000E+00 0.1420E+01 0.3600E-02 6.0000E+00 0.1410E+01 0.1100E-01 6.2000E+00 0.1600E+01 0.2200E-01 6.5000E+00 0.1460E+01 0.5000E-02 7.2000E+00 0.1420E+01 0.7000E-02 7.9000E+00 0.1400E+01 0.1300E-01 8.2000E+00 0.1420E+01 0.2000E-01 8.5000E+00 0.1480E+01 0.2600E-01 8.7000E+00 0.1600E+01 0.3000E-01 9.0000E+00 0.1650E+01 0.2800E-01 9.2000E+00 0.1610E+01 0.2620E-01 9.5000E+00 0.1580E+01 0.1800E-01 9.8000E+00 0.1560E+01 0.1600E-01 1.0000E+01 0.1540E+01 0.1500E-01 1.0591E+01 0.1501E+01 0.1401E-01 1.1000E+01 0.1480E+01 0.1400E-01 1.1500E+01 0.1480E+01 0.1400E-01 1.2500E+01 0.1420E+01 0.1600E-01 1.3000E+01 0.1410E+01 0.1800E-01 1.4000E+01 0.1410E+01 0.2300E-01 1.4800E+01 0.1430E+01 0.3000E-01 1.5000E+01 0.1450E+01 0.3500E-01 1.6400E+01 0.1560E+01 0.9000E-01 1.7200E+01 0.1740E+01 0.1200E+00 1.8000E+01 0.1780E+01 0.1300E+00 1.8500E+01 0.1770E+01 0.1350E+00 2.0000E+01 0.1760E+01 0.1520E+00 2.1300E+01 0.1760E+01 0.1650E+00 2.2500E+01 0.1760E+01 0.1800E+00 2.5000E+01 0.1760E+01 0.2050E+00 2.7900E+01 0.1770E+01 0.2750E+00 3.0000E+01 0.1770E+01 0.3000E+00 3.5000E+01 0.1760E+01 0.5000E+00 4.0000E+01 0.1740E+01 0.1000E+01 ================================================ FILE: UTIL/inline_phot_preproc/refractive_indices/adient_aerosol_refrac_indx/refract_sulphuric.txt ================================================ SULPHURIC !Refractive Index of 75 % Sulphuric Acid Droplets as given in SRA !Wvelen(um) Real Part Imag Part 2.0000E-01 1.49800e+00 1.00000e-08 2.5000E-01 1.48400e+00 1.00000e-08 3.0000E-01 1.46900e+00 1.00000e-08 3.3700E-01 1.45900e+00 1.00000e-08 4.0000E-01 1.44000e+00 1.00000e-08 4.8800E-01 1.43200e+00 1.00000e-08 5.1500E-01 1.43100e+00 1.00000e-08 5.5000E-01 1.43000e+00 1.00000e-08 6.3300E-01 1.42900e+00 1.47000e-08 6.9400E-01 1.42800e+00 1.99000e-08 8.6000E-01 1.42500e+00 1.79000e-07 1.0600E+00 1.42000e+00 1.50000e-06 1.3000E+00 1.41000e+00 1.00000e-05 1.5360E+00 1.40300e+00 1.37000e-04 1.8000E+00 1.39000e+00 5.50000e-04 2.0000E+00 1.38400e+00 1.26000e-03 2.2500E+00 1.37000e+00 1.80000e-03 2.5000E+00 1.34400e+00 3.76000e-03 2.7000E+00 1.30300e+00 5.70000e-03 3.0000E+00 1.29300e+00 9.55000e-02 3.2000E+00 1.31100e+00 1.35000e-01 3.3920E+00 1.35200e+00 1.59000e-01 3.5000E+00 1.37600e+00 1.58000e-01 3.7500E+00 1.39600e+00 1.31000e-01 4.0000E+00 1.39800e+00 1.26000e-01 4.5000E+00 1.38500e+00 1.20000e-01 5.0000E+00 1.36000e+00 1.21000e-01 5.5000E+00 1.33700e+00 1.83000e-01 6.0000E+00 1.42500e+00 1.95000e-01 6.2000E+00 1.42400e+00 1.65000e-01 6.5000E+00 1.37000e+00 1.28000e-01 7.2000E+00 1.21000e+00 1.76000e-01 7.9000E+00 1.14000e+00 4.88000e-01 8.2000E+00 1.20000e+00 6.45000e-01 8.5000E+00 1.37000e+00 7.55000e-01 8.7000E+00 1.53000e+00 7.72000e-01 9.0000E+00 1.65000e+00 6.33000e-01 9.2000E+00 1.60000e+00 5.86000e-01 9.5000E+00 1.67000e+00 7.50000e-01 9.8000E+00 1.91000e+00 6.80000e-01 1.0000E+01 1.89000e+00 4.55000e-01 1.0591E+01 1.72000e+00 3.40000e-01 1.1000E+01 1.67000e+00 4.85000e-01 1.1500E+01 1.89000e+00 3.74000e-01 1.2500E+01 1.74000e+00 1.98000e-01 1.3000E+01 1.69000e+00 1.95000e-01 1.4000E+01 1.64000e+00 1.95000e-01 1.4800E+01 1.61000e+00 2.05000e-01 1.5000E+01 1.59000e+00 2.11000e-01 1.6400E+01 1.52000e+00 4.14000e-01 1.7200E+01 1.72400e+00 5.90000e-01 1.8000E+01 1.95000e+00 4.10000e-01 1.8500E+01 1.92700e+00 3.02000e-01 2.0000E+01 1.82300e+00 2.35000e-01 2.1300E+01 1.78000e+00 2.92000e-01 2.2500E+01 1.87000e+00 3.15000e-01 2.5000E+01 1.93000e+00 2.00000e-01 2.7900E+01 1.92000e+00 1.80000e-01 3.0000E+01 1.92000e+00 1.80000e-01 3.5000E+01 1.90000e+00 1.90000e-01 4.0000E+01 1.89000e+00 2.20000e-01 ================================================ FILE: UTIL/inline_phot_preproc/scripts/bldrun.inline_phot_preproc.csh ================================================ #!/bin/csh -fx # ============ CSQY_TABLE_PROCESSOR_v5.5.x Build Script ================= # # Usage: bldrun_create_ebi.csh [compiler] >&! bldrun_create_ebi.log # # Options for [compiler]: intel | gcc | pgi # # # # To report problems or request help with this script/program: # # http://www.cmascenter.org # # =================================================================== # # ======================================================================= #> Preliminary error checking and environment configuration # ======================================================================= #> Check that the host system is Linux-based set BLD_OS = `uname -s` if ($BLD_OS != 'Linux') then echo " $BLD_OS -> wrong bldit script for host!" exit 1 endif #> Set Compiler Identity by User Input: Options -> intel | pgi | gcc if ( $#argv == 1 ) then setenv compiler $argv[1] setenv compilerVrsn Empty else if ( $#argv == 2 ) then #> Compiler Name and Version have been provided setenv compiler $1 setenv compilerVrsn $2 else setenv compiler intel setenv compilerVrsn Empty echo "compiler and version not set" echo "usage: $0 " echo "setting compiler to intel" endif set echo #> Source the config.cmaq file to set the build environment if( -e ../../../config_cmaq.csh )then cd ../../.. source ./config_cmaq.csh else #work offline from CMAQ repository and build environment setenv offline "Y" setenv compilerString ${compiler} setenv CMAQ_HOME $cwd/.. endif #> Source Code Repository if( ! ( $?offline ) )then setenv REPOROOT ${CMAQ_REPO}/UTIL/inline_phot_preproc #> location of the source code for CHEMMECH else setenv REPOROOT ${CMAQ_HOME} endif unset echo #=============================================================================== #> Begin User Input Section #=============================================================================== #> User choices: working directory and application ID if ( ! $?MECH ) then set MECH = 'cb6r3_ae7_aq' endif setenv CLEAR "TRUE" #> over-write existing output files if( ! ( $?offline ) )then set WORKDIR = ${CMAQ_HOME}/UTIL/inline_phot_preproc else set WORKDIR = ${CMAQ_HOME} endif if ( ! $?INPDIR ) then setenv INPDIR ${WORKDIR}/input/${MECH} endif if ( ! $?OUTDIR ) then setenv OUTDIR ${WORKDIR}/output/${MECH} endif set VRSN = v55 #> model version setenv EXEC CSQY_TABLE_PROCESSOR_${VRSN}.exe #> executable name for this application setenv WORKREPO ${REPOROOT} setenv BLDIR ${WORKDIR}/scripts/BLD_CSQY_TABLE_${VRSN}_${compilerString} #============================================================================================ #> Set locations for source code and templates #============================================================================================ set SRCDIR = ${WORKREPO}/src # Define environment variable for path to data module for photochemical mechanism # RXNS_DATA is the input directory containing the mechanism's data module # value will change based on user's goals. If the file is not found, this script # will check the output for CHEMMECH, and then check the CMAQ_REPO. If it is in # neither of those places, the script aborts. #> use RXNS_DATA_MODULE, comment out if CMAQ v5.02 and keep if CMAQ v5.1 or higher setenv USE_RXNS_MODULES T if( ${USE_RXNS_MODULES} == "T" )then setenv RXNS_DATA_SRC ${INPDIR}/RXNS_DATA_MODULE.F90 if ( ! -e ${RXNS_DATA_SRC} ) then echo 'Below RXNS_DATA_MODULE input file does not exist' echo ${RXNS_DATA_SRC} exit 1 endif endif #============================================================================================ #> Copy CSQY_TABLE_PROCESSOR Source Code into new build folder and compile #============================================================================================ if ( -e "$BLDIR" ) then echo " *** build directory exist, deleting it***" \rm -rf $BLDIR endif mkdir -pv $BLDIR #> Whether to include spectral values of refractive indices for aerosol species [T|Y|F|N] #> set F if CMAQ v5.02 and T if CMAQ v5.1 or higher setenv WVL_AE_REFRAC T #> whether optical and CSQY data written to two separate file #> set F if CMAQ v5.02 and T if CMAQ v5.1 or higher setenv SPLIT_OUTPUT T #>Number of Wavebands to write to output files starting from the band with the longest #>to shortest wavelength from the bands; can equal 1 to 18 #>Waveband intervals come from FAST-JX version 6.8 #>CMAQ version 5.3+ uses seven bands and CMAQ-MPAS uses eleven bands setenv N_WAVEBANDS_OUT 7 #>Compile the Executable cp -r ${SRCDIR}/* ${BLDIR}/. cd $BLDIR ; make clean; make -f inline_phot_preproc.makefile if( ! ( -e ${EXEC} ) )then echo "failed to compile ${BLDIR}/${EXEC}" exit 1 endif #set up input data file directories set CSQY_DIR = ${WORKREPO}/photolysis_CSQY_data set REFRACT_DIR = ${WORKREPO}/refractive_indices set WVBIN_DIR = ${WORKREPO}/flux_data set ICE_CLOUDS_DIR = ${WORKREPO}/ice_clouds set data_paths = ( ${CSQY_DIR} ${REFRACT_DIR} ${WVBIN_DIR} ${ICE_CLOUDS_DIR} ) foreach data_dir ( ${data_paths} ) if( ! ( -e ${data_dir} ) )cp -r $data_dir ${WORKDIR}/. end # Define environment variables for inputs #Wavelength bin mapping data file setenv WVBIN_FILE $WVBIN_DIR/wavel-bins.dat #Files describing optical properties of ice cloud particles setenv ICE_CLD_SSA ${ICE_CLOUDS_DIR}/fu96.ssa setenv ICE_CLD_EXT ${ICE_CLOUDS_DIR}/fu96.ext setenv ICE_CLD_ASY ${ICE_CLOUDS_DIR}/fu96.asy setenv ICE_CLD_DEL ${ICE_CLOUDS_DIR}/fu96.del #Solar flux spectrum data file setenv FLUX_FILE $WVBIN_DIR/solar-p05nm-UCI.dat #Raw cross-section and quantum yield data for photolysis rates setenv CSQY_DATA_RAW $CSQY_DIR #> define files for aerosol refractive indices; result output to PHOT_OPTICS.dat # maximum number of indices that the processor attempts to read, # the number can change. setenv MAX_NUMB_REFRACT 16 # set the list of indices to process, # Their number can be less than MAX_NUMB_REFRACT. # The below list contains names used as optical surrogates in the CCTM source # code, AERO_DATA.F. To use other names requires changing AERO_DATA.F. setenv AE_REFRAC_LIST "WATER SOLUTE DUST SEASALT SOOT ISOP_NOX ISOP_SOX LIMONENE_SOA APINENE_SOA NAPTH_SOA MXYL_HIGH_NOX MXYL_LOW_NOX TOLU_HIGH_NOX TOLU_LOW_NOX ORGCARB BIOMASS" #Set environment variables for the paths to each refractive index in #AE_REFRAC_LIST setenv WATER ${REFRACT_DIR}"/water_refractive_index.dat" setenv DUST ${REFRACT_DIR}"/OPAC_water_clouds/inso00" setenv SOLUTE ${REFRACT_DIR}"/OPAC_water_clouds/waso00" setenv SOOT ${REFRACT_DIR}"/OPAC_water_clouds/soot00-two_way-Oct_21_2012" setenv SEASALT ${REFRACT_DIR}"/OPAC_water_clouds/ssam00" setenv ISOP_NOX ${REFRACT_DIR}"/IE_refractive_indices/nakayama_2018_isoprene_NOX_SOA_refractive_indices.txt" setenv ISOP_SOX ${REFRACT_DIR}"/IE_refractive_indices/nakayama_2018_isoprene_SOX_SOA_refractive_indices.txt" setenv LIMONENE_SOA ${REFRACT_DIR}"/IE_refractive_indices/Lui_2013_Limonene_SOA_refractive_indices.txt" setenv APINENE_SOA ${REFRACT_DIR}"/IE_refractive_indices/Lui_2013_APIN_SOA_refractive_indices.txt" setenv NAPTH_SOA ${REFRACT_DIR}"/IE_refractive_indices/Lambe_2013-naphthalene_SOA_refractive_indices.txt" setenv MXYL_HIGH_NOX ${REFRACT_DIR}"/IE_refractive_indices/Lui_2015_refractive_indices_mxylene_SOA_high_NOX.txt" setenv MXYL_LOW_NOX ${REFRACT_DIR}"/IE_refractive_indices/Lui_2015_refractive_indices_mxylene_SOA_low_NOX.txt" setenv TOLU_HIGH_NOX ${REFRACT_DIR}"/IE_refractive_indices/Lui_2015_refractive_indices_toluene_SOA_high_NOX.txt" setenv TOLU_LOW_NOX ${REFRACT_DIR}"/IE_refractive_indices/Lui_2015_refractive_indices_toluene_SOA_low_NOX.txt" setenv ORGCARB ${REFRACT_DIR}"/adient_aerosol_refrac_indx/refract_organicc_new.txt" setenv BIOMASS ${REFRACT_DIR}"/adient_aerosol_refrac_indx/refract_biomass_new.txt" #Define output directory variable and create if( ( -d $OUTDIR ) )then if( -e ${OUTDIR}/CSQY_DATA_${MECH} && -e ${OUTDIR}/PHOT_OPTICS.dat )then if( $CLEAR == "FALSE")then echo "Previous output exists; set CLEAR to TRUE to delete" exit(1) endif \rm -rf $OUTDIR endif endif mkdir -p $OUTDIR setenv OUT_DIR $OUTDIR # Execute CSQY_TABLE_PROCESSOR #cd ${WORKDIR} $BLDIR/$EXEC >&! ${WORKDIR}/scripts/bldrun.log set signal = ` tail -1 ${WORKDIR}/scripts/bldrun.log ` echo " " echo ${signal} set output = $signal # `grep "NORMAL_STOP" bldrun.log ` echo $output echo " " #cd ${WORKDIR}/scripts if ( $? != 0 || $output != "NORMAL_STOP" ) then echo "INLINE_PHOT_PREPROC ($BLDIR/$EXEC) failed for some reason. Halt Build Process!" echo "Try checking end of ${WORKDIR}/scripts/bldrun.log" exit 1 endif cd $WORKDIR echo " " echo " " if( ( -e ${OUTDIR}/CSQY_DATA_${MECH} ) && -e ${OUTDIR}/PHOT_OPTICS.dat )then echo "CSQY_DATA_${MECH} and PHOT_OPTICS.dat files created. Check each in ${OUTDIR}" else if( ( -e ${OUTDIR}/CSQY_DATA_* ) && -e ${OUTDIR}/PHOT_OPTICS.dat )then cd ${OUTDIR} set OFILE = `/usr/bin/ls CSQY_DATA_* ` cd - echo "CSQY_DATA_${MECH} file not created." echo "HOWEVER, ${OFILE} FILE WAS CREATED." echo "Try changing mechanism name in the mech_${MECH}.def file." echo "Else check end of ${WORKDIR}/scripts/bldrun.log" else echo "CSQY_DATA_${MECH} and PHOT_OPTICS.dat files not created." echo "Check end of ${WORKDIR}/scripts/bldrun.log" endif echo " " echo " " ================================================ FILE: UTIL/inline_phot_preproc/src/ALBEDO_REFER_DATA.F ================================================ MODULE ALBEDO_REFER_DATA IMPLICIT NONE INTEGER, PARAMETER :: NUMB_BANDS_MODIS = 15 INTEGER, PARAMETER :: NUMB_LANDUSE_MODIS = 20 REAL( 4 ) :: WVBAND( NUMB_BANDS_MODIS ) DATA WVBAND / & 200.05, 234.3, 264.8, 292.1, 310.5, & 340.0, 397.5, 467.5, 546.25, 642.3, & 1000.0, 1550.0, 2150.0, 3000.0, 3750.0 / INTEGER, PRIVATE :: IWL REAL( 4 ) :: SPECTRAL_ALBEDO(NUMB_BANDS_MODIS,NUMB_LANDUSE_MODIS) DATA (SPECTRAL_ALBEDO(IWL, 1), IWL = 1, NUMB_BANDS_MODIS) / & 0.032, 0.032, 0.032, 0.032, 0.032, ! (1) EVERGREEN NEEDLE FOREST & 0.032, 0.032, 0.032, 0.046, 0.046, & 0.235, 0.096, 0.038, 0.038, 0.038 / DATA (SPECTRAL_ALBEDO(IWL, 2), IWL = 1, NUMB_BANDS_MODIS) / & 0.044, 0.044, 0.044, 0.044, 0.044, ! ( 2) EVERGREEN BROADLEAF FOR & 0.044, 0.044, 0.044, 0.044, 0.044, ! (Tropical Forest) & 0.234, 0.193, 0.112, 0.112, 0.112 / DATA (SPECTRAL_ALBEDO(IWL, 3), IWL = 1, NUMB_BANDS_MODIS) / & 0.032, 0.032, 0.032, 0.032, 0.032, ! ( 3) DECIDUOUS NEEDLE FOREST & 0.032, 0.032, 0.032, 0.046, 0.046, & 0.235, 0.096, 0.038, 0.038, 0.038 / DATA (SPECTRAL_ALBEDO(IWL, 4), IWL = 1, NUMB_BANDS_MODIS) / & 0.034, 0.034, 0.034, 0.034, 0.034, ! ( 4) DECIDUOUS BROADLEAF FOR & 0.034, 0.034, 0.034, 0.066, 0.067, & 0.312, 0.276, 0.160, 0.160, 0.160 / DATA (SPECTRAL_ALBEDO(IWL, 5), IWL = 1, NUMB_BANDS_MODIS) / & 0.033, 0.033, 0.033, 0.033, 0.033, ! ( 5) MIXED FOREST & 0.033, 0.033, 0.033, 0.056, 0.057, & 0.274, 0.186, 0.099, 0.099, 0.099 / DATA (SPECTRAL_ALBEDO(IWL, 6), IWL = 1, NUMB_BANDS_MODIS) / & 0.010, 0.010, 0.010, 0.015, 0.017, ! ( 6) CLOSED SHRUBS & 0.020, 0.036, 0.045, 0.055, 0.156, & 0.350, 0.239, 0.101, 0.101, 0.101 / DATA (SPECTRAL_ALBEDO(IWL, 7), IWL = 1, NUMB_BANDS_MODIS) / & 0.095, 0.095, 0.095, 0.095, 0.095, ! ( 7) OPEN/SHRUBS & 0.095, 0.098, 0.104, 0.122, 0.157, & 0.231, 0.330, 0.311, 0.150, 0.150 / DATA (SPECTRAL_ALBEDO(IWL, 8), IWL = 1, NUMB_BANDS_MODIS) / & 0.020, 0.020, 0.020, 0.023, 0.024, ! ( 8) WOODY SAVANNA (Decid Broadleaf*0.4 + Grass*0.6) & 0.026, 0.035, 0.041, 0.102, 0.104, & 0.366, 0.291, 0.151, 0.107, 0.107 / DATA (SPECTRAL_ALBEDO(IWL, 9), IWL = 1, NUMB_BANDS_MODIS) / & 0.010, 0.010, 0.010, 0.015, 0.017, ! ( 9) SAVANNA & 0.020, 0.036, 0.045, 0.126, 0.129, & 0.402, 0.301, 0.145, 0.071, 0.071 / DATA (SPECTRAL_ALBEDO(IWL, 10), IWL = 1, NUMB_BANDS_MODIS) / & 0.010, 0.010, 0.010, 0.015, 0.017, ! (10) GRASSLAND & 0.020, 0.036, 0.045, 0.126, 0.129, & 0.402, 0.301, 0.145, 0.071, 0.071 / DATA (SPECTRAL_ALBEDO(IWL, 11), IWL = 1, NUMB_BANDS_MODIS) / & 0.039, 0.039, 0.039, 0.039, 0.039, ! (11) PERMANENT WETLANDS & 0.039, 0.039, 0.039, 0.051, 0.071, & 0.164, 0.100, 0.056, 0.056, 0.056 / DATA (SPECTRAL_ALBEDO(IWL, 12), IWL = 1, NUMB_BANDS_MODIS) / & 0.010, 0.010, 0.010, 0.015, 0.017, ! (12) CROPLAND & 0.020, 0.036, 0.045, 0.115, 0.099, & 0.442, 0.271, 0.122, 0.059, 0.059 / DATA (SPECTRAL_ALBEDO(IWL, 13), IWL = 1, NUMB_BANDS_MODIS) / & 0.052, 0.052, 0.052, 0.052, 0.052, ! (13) URBAN & 0.052, 0.052, 0.066, 0.104, 0.114, & 0.304, 0.258, 0.258, 0.258, 0.258 / DATA (SPECTRAL_ALBEDO(IWL, 14), IWL = 1, NUMB_BANDS_MODIS) / & 0.010, 0.010, 0.010, 0.015, 0.017, ! (14) CROP MOSAIC & 0.020, 0.036, 0.045, 0.090, 0.083, & 0.377, 0.273, 0.141, 0.110, 0.110 / DATA (SPECTRAL_ALBEDO(IWL, 15), IWL = 1, NUMB_BANDS_MODIS) / & 0.910, 0.910, 0.910, 0.916, 0.921, ! (15) PERMANENT SNOW & 0.931, 0.947, 0.964, 0.953, 0.920, & 0.635, 0.013, 0.006, 0.009, 0.014 / DATA (SPECTRAL_ALBEDO(IWL, 16), IWL = 1, NUMB_BANDS_MODIS) / & 0.144, 0.144, 0.144, 0.144, 0.144, ! (16) BARREN/DESERT & 0.144, 0.144, 0.179, 0.263, 0.331, & 0.405, 0.390, 0.390, 0.390, 0.390 / DATA (SPECTRAL_ALBEDO(IWL, 17), IWL = 1, NUMB_BANDS_MODIS) / & 0.066, 0.066, 0.066, 0.070, 0.073, ! (17) OCEAN WATER & 0.082, 0.094, 0.091, 0.078, 0.072, & 0.066, 0.062, 0.055, 0.044, 0.069 / DATA (SPECTRAL_ALBEDO(IWL, 18), IWL = 1, NUMB_BANDS_MODIS) / & 0.180, 0.180, 0.180, 0.180, 0.180, ! (18) TUNDRA (modified with Lundberg et al) & 0.180, 0.180, 0.180, 0.180, 0.180, & 0.247, 0.265, 0.265, 0.265, 0.265 / DATA (SPECTRAL_ALBEDO(IWL, 19), IWL = 1, NUMB_BANDS_MODIS) / & 0.979, 0.979, 0.979, 0.980, 0.982, ! (19) FRESH SNOW & 0.984, 0.988, 0.992, 0.989, 0.982, & 0.902, 0.143, 0.168, 0.019, 0.015 / DATA (SPECTRAL_ALBEDO(IWL, 20), IWL = 1, NUMB_BANDS_MODIS) / & 0.778, 0.778, 0.778, 0.778, 0.778, ! (20) SEA ICE & 0.778, 0.778, 0.778, 0.778, 0.752, & 0.393, 0.055, 0.054, 0.036, 0.036 / ! The following scale factors are applied to the spectral albedos to bring ! them into closer agreement (in the visible spectrum) with the MODIS fixed albedos REAL(4) :: MODIS2SPECTRAL(NUMB_LANDUSE_MODIS) DATA MODIS2SPECTRAL / & 3.5, ! (1) & 2.5, ! (2) & 4.0, ! (3) & 2.5, ! (4) & 3.0, ! (5) & 3.0, ! (6) & 2.0, ! (7) & 2.5, ! (8) & 1.5, ! (9) & 2.0, ! (10) & 2.0, ! (11) & 1.5, ! (12) & 1.5, ! (13) & 2.5, ! (14) & 1.0, ! (15) & 1.0, ! (16) & 1.0, ! (17) & 1.0, ! (18) & 1.0, ! (19) & 1.0 / ! (20) CHARACTER(30) LANDUSE(20) DATA LANDUSE / & 'EVERGREEN NEEDLE FOREST' & ,'EVERGREEN BROADLEAF FOREST' & ,'DECIDUOUS NEEDLE FOREST' & ,'DECIDUOUS BROADLEAF FOREST' & ,'MIXED FOREST' & ,'CLOSED SHRUBS' & ,'OPEN / SHRUBS' & ,'WOODY SAVANNA' & ,'SAVANNA' & ,'GRASSLAND' & ,'PERMANENT WETLANDS' & ,'CROPLAND' & ,'URBAN' & ,'CROP MOSAIC' & ,'PERMANENT SNOW' & ,'BARREN / DESSERT' & ,'OCEAN WATER' & ,'TUNDRA' & ,'FRESH SNOW' & ,'SEA ICE' / INTEGER, PARAMETER :: INDEX_GRASSLAND = 10 INTEGER, PARAMETER :: INDEX_OCEAN_WATER = 17 INTEGER, PARAMETER :: INDEX_SEA_ICE = 20 REAL ZENITH_COEFF( NUMB_LANDUSE_MODIS ) DATA ZENITH_COEFF / & 0.40, ! ( 1) EVERGREEN NEEDLE FOR & 0.44, ! ( 2) EVERGREEN BROAD FOR & 0.32, ! ( 3) DECIDUOUS NEEDLE FOR & 0.39, ! ( 4) DECIDUOUS BROAD FOR & 0.22, ! ( 5) MIXED FOREST & 0.28, ! ( 6) CLOSED SHRUBS & 0.40, ! ( 7) OPEN/SHRUBS & 0.47, ! ( 8) WOODY SAVANNA & 0.53, ! ( 9) SAVANNA & 0.53, ! (10) GRASSLAND & 0.35, ! (11) WETLAND & 0.41, ! (12) CROPLAND (CAGEX-APR) & 0.10, ! (13) URBAN & 0.40, ! (14) CROP MOSAIC & 0.10, ! (15) ANTARCTIC SNOW & 0.40, ! (16) BARREN/DESERT & 0.41, ! (17) OCEAN WATER & 0.58, ! (18) TUNDRA & 0.10, ! (19) FRESH SNOW & 0.10 / ! (20) SEA ICE REAL SEASON_COEFF( NUMB_LANDUSE_MODIS ) DATA SEASON_COEFF / & 0.73, ! EVERGREEN NEEDLE FOR & 0.84, ! EVERGREEN BROADLEAF FOR & 0.77, ! DECIDUOUS NEEDLE FOR & 0.73, ! DECIDOUS BROAD FOR & 0.78, ! MIXED FOREST & 0.73, ! CLOSED SHRUBS & 0.77, ! OPEN/SHRUBS & 0.78, ! WOODY SAVANNA & 0.78, ! SAVANNA & 0.79, ! GRASSLAND & 0.78, ! WETLAND & 0.80, ! CROPLAND & 0.67, ! URBAN & 0.80, ! CROP MOSAIC & 1.00, ! PERMANENT SNOW & 0.96, ! BARREN/DESERT & 1.00, ! OCEAN WATER & 0.25, ! TUNDRA (modified with Lundberg et al (2005)) & 1.00, ! FRESH SNOW & 1.00 / ! SEA ICE ! values used for CMAQ version 5.0 and 5.01 ! ! REAL SNOW_COEFF( NUMB_LANDUSE_MODIS ) ! DATA SNOW_COEFF / ! & 3.0, ! EVERGREEN NEEDLE FOR ! & 4.1, ! EVERGREEN BROADLEAF FOR ! & 3.1, ! DECIDUOUS NEEDLE FOR ! & 2.7, ! DECIDUOUS BROADLEAF FOR ! & 3.0, ! MIXED FOREST ! & 2.2, ! CLOSED SHRUBS ! & 3.6, ! OPEN/SHRUBS ! & 2.1, ! WOODY SAVANNA ! & 3.0, ! SAVANNA ! & 3.8, ! GRASSLAND ! & 4.9, ! WETLAND ! & 4.5, ! CROPLAND ! & 3.6, ! URBAN ! & 3.6, ! CROP MOSAIC ! & 1.7, ! PERMANENT SNOW ! & 3.5, ! BARREN/DESERT ! & 1.0, ! OCEAN WATER ! & 4.0, ! TUNDRA (modified with Lundberg et al (2005)) ! & 1.0, ! FRESH SNOW ! & 1.3 / ! SEA ICE ! Aug 27, 2013 B. Hutzell: Updated WOODY SAVANNA, SAVANNA, GRASSLAND, CROPLAND, \ ! CROP MOSAIC, and BARREN/DESERT to increase albedo in UV spectrum. Based on ! 1) Jin et. al (2002), GRL, Vol 29(10), pg 1374-7. ! 2) Tanskanen and Manninen (2007), Atmos. Chem. Phys., Vol 7, pg 2759-2764. REAL SNOW_COEFF( NUMB_LANDUSE_MODIS ) DATA SNOW_COEFF / & 3.0, ! EVERGREEN NEEDLE FOR & 4.1, ! EVERGREEN BROADLEAF FOR & 3.1, ! DECIDUOUS NEEDLE FOR & 2.7, ! DECIDUOUS BROADLEAF FOR & 3.0, ! MIXED FOREST & 8.6, ! CLOSED SHRUBS & 3.6, ! OPEN/SHRUBS & 7.8, ! WOODY SAVANNA & 25.9, ! SAVANNA & 19.6, ! GRASSLAND & 4.9, ! WETLAND & 26.5, ! CROPLAND & 3.6, ! URBAN & 15.9, ! CROP MOSAIC & 1.7, ! PERMANENT SNOW & 5.7, ! BARREN/DESERT & 1.0, ! OCEAN WATER & 4.0, ! TUNDRA (modified with Lundberg et al (2005)) & 1.0, ! FRESH SNOW & 1.3 / ! SEA ICE INTEGER, PARAMETER :: NUMB_USGS = 24 CHARACTER(60) USGS_LANDUSE( NUMB_USGS ) DATA USGS_LANDUSE / & "Urban Land", ! 'Urban or Built-up Land', & "Dryland Cropland and Pasture", ! 'Dryland Cropland and Pasture', & "Irrigated Cropland and Pasture", ! 'Irrigated Cropland and Pasture', & "Mixed Dryland and Irrigated Cropland and Pasture", ! 'Mixed Dry/Irr Crop and Past', & "Cropland-Grassland Mosaic", ! 'Grassland/Cropland Mosaic', & "Cropland-Woodland Mosaic", ! 'Woodland/Cropland Mosaic', & "Grassland", ! 'Grassland', & "Shrubland", ! 'Shrubland', & "Mixed Shrubland-Grassland", ! 'Mixed Shrubland/Grassland', & "Savannah", ! 'Savanna', & "Deciduous Broadleaf Forest", ! 'Broadleaf Deciduous Forest', & "Deciduous Needleleaf Forest", ! 'Deciduous Coniferous Forest', & "Evergreen Broadleaf Forest", ! 'Evergreen Broadleaf Forest (Palm?)', & "Evergreen Needleleaf Forest", ! 'Evergreen Coniferous Forest', & "Mixed Forest", ! 'Mixed forest', & "Water", ! 'Water', & "Herbaceous Wetland", ! 'Herbaceous Wetland (none in east)', & "Wooded Wetland", ! 'Forested Wetlands (e.g. Everglades)', & "Barren or Sparsely Vegetated", ! 'Barren or Sparsely Vegetated', & "Herbaceous Tundra", ! 'Herbaceous Tundra', & "Wooded Tundra", ! 'Shrub and Brush Tundra', & "Mixed Tundra", ! 'Mixed Tundra', & "Bare Ground Tundra", ! 'Bare Ground Tundra', & "Snow or Ice" / ! 'Perennial Snowfields or Glaciers' / ! values used for CMAQ version 5.0 and 5.01 ! ! REAL :: ALBMAP_REF2USGS( NUMB_USGS ) ! DATA ALBMAP_REF2USGS / ! & 13.0000, 12.0000, 12.0000, 12.0000, 14.0000, ! & 14.0000, 10.0000, 6.0000, 7.0000, 9.0000, ! & 4.0000, 3.0000, 2.0000, 1.0000, 5.0000, ! & 17.0000, 11.0000, 11.0000, 16.0000, 18.0000, ! & 18.0000, 18.0000, 18.0000, 15.0000/ ! Aug 27, 2013 B. Hutzell: changed albmap for ALBMAP_REF2USGS Shrubland from 7 (CLODSED SHRUBS) to ! 6 (OPEN SHRUB) because descriptions of Shrubland allow large fractions of ! non-woody plants (up to 70%). REAL :: ALBMAP_REF2USGS( NUMB_USGS ) DATA ALBMAP_REF2USGS / & 13.0000, 12.0000, 12.0000, 12.0000, 14.0000, & 14.0000, 10.0000, 7.0000, 7.0000, 9.0000, & 4.0000, 3.0000, 2.0000, 1.0000, 5.0000, & 17.0000, 11.0000, 11.0000, 16.0000, 18.0000, & 18.0000, 18.0000, 18.0000, 15.0000/ REAL :: ALBFAC_REF2USGS( NUMB_USGS ) DATA ALBFAC_REF2USGS / & 1.0000, 1.0000, 1.0588, 1.0588, 1.0000, & 0.8889, 1.0000, 1.0000, 1.0000, 1.0000, & 1.0000, 1.0000, 1.0000, 1.0000, 1.0000, & 1.0000, 1.0000, 1.0000, 1.0000, 1.0000, & 1.0000, 1.0000, 1.0000, 1.0000/ ! INTEGER, PARAMETER :: NUMB_MODIS = 20 ! ! REAL :: ALBMAP_REF2MODIS( NUMB_MODIS ) ! DATA ALBMAP_REF2MODIS / ! & 1.0000, 2.0000, 3.0000, 4.0000, 5.0000, ! & 6.0000, 7.0000, 8.0000, 9.0000, 10.0000, ! & 11.0000, 12.0000, 13.0000, 14.0000, 15.0000, ! & 16.0000, 17.0000, 18.0000, 18.0000, 18.0000/ ! REAL :: ALBFAC_REF2MODIS( NUMB_MODIS ) ! DATA ALBFAC_REF2MODIS / ! & 1.0000, 1.0000, 1.0000, 1.0000, 1.0000, ! & 1.0000, 1.0000, 1.0000, 1.0000, 1.0000, ! & 1.0000, 1.0000, 1.0000, 1.0000, 1.0000, ! & 1.0000, 1.0000, 1.0000, 1.0000, 1.0000/ INTEGER, PARAMETER :: NUMB_MODIS_NOAH = 33 CHARACTER(60) MODIS_LANDUSE( NUMB_MODIS_NOAH ) DATA MODIS_LANDUSE / & "Evergreen Needleleaf Forest", ! 'EVERGREEN NEEDLE FOREST', & "Evergreen Broadleaf Forest", ! 'EVERGREEN BROADLEAF FOREST', & "Deciduous Needleleaf Forest", ! 'DECIDUOUS NEEDLE FOREST', & "Deciduous Broadleaf Forest", ! 'DECIDUOUS BROADLEAF FOREST', & "Mixed Forests", ! 'MIXED FOREST', & "Closed Shrublands", ! 'CLOSED SHRUBS', & "Open Shrublands", ! 'OPEN / SHRUBS', & "Woody Savannas", ! 'WOODY SAVANNA', & "Savannas", ! 'SAVANNA', & "Grasslands", ! 'GRASSLAND', & "Permanent Wetlands", ! 'PERMANENT WETLANDS', & "Croplands", ! 'CROPLAND', & "Urban and Built-Up", ! 'URBAN', & "Cropland-Natural Vegetation Mosaic", ! 'CROP MOSAIC', & "Snow and Ice", ! 'PERMANENT SNOW', & "Barren or Sparsely Vegetated", ! 'BARREN / DESSERT', & "Water", ! 'OCEAN WATER', & "Wooded Tundra", ! 'TUNDRA', & "Mixed Tundra", ! 'FRESH SNOW', & "Barren Tundra", ! 'SEA ICE' / & "~~~unassigned~~~", & "~~~unassigned~~~", & "~~~unassigned~~~", & "~~~unassigned~~~", & "~~~unassigned~~~", & "~~~unassigned~~~", & "~~~unassigned~~~", & "~~~unassigned~~~", & "~~~unassigned~~~", & "~~~unassigned~~~", & "Low Intensity Residential", & "High Intensity Residential", & "Industrial or Commercial" / REAL :: ALBMAP_REF2MODIS( NUMB_MODIS_NOAH ) DATA ALBMAP_REF2MODIS / & 1.0000, 2.0000, 3.0000, 4.0000, 5.0000, & 6.0000, 7.0000, 8.0000, 9.0000, 10.0000, & 11.0000, 12.0000, 13.0000, 14.0000, 15.0000, & 16.0000, 17.0000, 18.0000, 18.0000, 18.0000, & -1.0000, -1.0000, -1.0000, -1.0000, -1.0000, & -1.0000, -1.0000, -1.0000, -1.0000, -1.0000, & 13.0000, 13.0000, 13.0000/ REAL :: ALBFAC_REF2MODIS( NUMB_MODIS_NOAH ) DATA ALBFAC_REF2MODIS / & 1.0000, 1.0000, 1.0000, 1.0000, 1.0000, & 1.0000, 1.0000, 1.0000, 1.0000, 1.0000, & 1.0000, 1.0000, 1.0000, 1.0000, 1.0000, & 1.0000, 1.0000, 1.0000, 1.0000, 1.0000, & 0.0000, 0.0000, 0.0000, 0.0000, 0.0000, & 0.0000, 0.0000, 0.0000, 0.0000, 0.0000, & 1.0000, 1.0000, 1.0000 / INTEGER, PARAMETER :: NUMB_NLCD_MODIS = 50 CHARACTER(60) NLCD_LANDUSE( NUMB_NLCD_MODIS ) DATA NLCD_LANDUSE / & "Open Water", ! 'Open water', & "Perennial Ice-Snow", ! 'Perennial Ice/snow ', & "Developed Open Space", ! 'Developed, Open space ', & "Developed Low Intensity", ! 'Developed, Low Intensity', & "Developed Medium Intensity", ! 'Developed, Medium Intensity', & "Developed High Intensity", ! 'Developed, High Intensity', & "Barren Land (Rock-Sand-Clay)", ! 'Barren land', & "Unconsolidated Shore", ! 'Unconsolidated Shore', & "Deciduous Forest", ! 'Deciduous Forest', & "Evergreen Forest", ! 'Evergreen Forest', & "Mixed Forest", ! 'Mixed Forest', & "Dwarf Scrub", ! 'Dwarf Scrub', & "Shrub-Scrub", ! 'Shrub/Scrub', & "Grassland-Herbaceous", ! 'Grassland/Herbaceous', & "Sedge-Herbaceous", ! 'Sedge/Herbaceous', & "Lichens", ! 'Lichens', & "Moss", ! 'Moss', & "Tundra", ! 'Tundra', & "Pasture-Hay", ! 'Pasture/Hay', & "Cultivated Crops", ! 'Cultivated Crops', & "Woody Wetlands", ! 'Woody Wetland', & "Palustrine Forested Wetland", ! 'Palustrine Forested Wetland', & "Palustrine Scrub-Shrub Wetland", ! 'Palustrine Scrub/Shrub Wetland', & "Estuarine Forested Wetland", ! 'Estuarine Forested Wetland', & "Estuarine Scrub-Shrub Wetland", ! 'Estuarine Scrub/Shrub Wetland', & "Emergent Herbaceous Wetlands", ! 'Emergent Herbaceous Wetland', & "Palustrine Emergent Wetland", ! 'Palustrine Emergent Wetland', & "Estuarine Emergent Wetland", ! 'Estuarine Emergent Wetland', & "Palustrine Aquatic Bed", ! 'Palustrine Aquatic Bed', & "Estuarine Aquatic Bed", ! 'Estuarine Aquatic Bed', & "Water", ! 'Open water (mapped to 1)', & "Evergreen Needleleaf Forest", ! 'Evergreen Needleleaf Forest', & "Evergreen Broadleaf Forest", ! 'Evergreen Broadleaf Forest', & "Deciduous Needleleaf Forest", ! 'Deciduous Needleleaf Forest', & "Deciduous Broadleaf Forest", ! 'Deciduous Broadleaf Forest', & "Mixed Forests", ! 'Mixed Forest', & "Closed Shrublands", ! 'Closed Shrublands', & "Open Shrublands", ! 'Open Shrublands', & "Woody Savannas", ! 'Woody Savanna', & "Savannas", ! 'Savanna', & "Grasslands", ! 'Grasslands', & "Permanent Wetlands", ! 'Perminent Wetlands', & "Croplands", ! 'Croplands', & "Urban and Built Up", ! 'Urban andBuilt-up', & "Cropland-Natural Vegetation Mosaic", ! 'Cropland/Natural Vegetation Mosaic', & "Permanent Snow and Ice", ! 'Snow and Ice', & "Barren or Sparsely Vegetated", ! 'Barren or Sparsely Vegetated', & "IGBP Water", ! 'IGBP water', & "unclassified", ! 'unclassified', & "fill value" / ! 'fill value (normally ocean water)' / REAL :: ALBMAP_REF2NLCD( NUMB_NLCD_MODIS ) DATA ALBMAP_REF2NLCD / O 17.0000, 15.0000, 13.0000, 13.0000, 13.0000, + 13.0000, 16.0000, 16.0000, 4.0000, 1.0000, 1 5.0000, 7.0000, 7.0000, 8.0000, 8.0000, + 10.0000, 10.0000, 18.0000, 14.0000, 12.0000, 2 11.0000, 11.0000, 11.0000, 11.0000, 11.0000, + 11.0000, 11.0000, 11.0000, 17.0000, 17.0000, 3 17.0000, 1.0000, 2.0000, 3.0000, 4.0000, + 5.0000, 6.0000, 7.0000, 8.0000, 9.0000, 4 10.0000, 11.0000, 12.0000, 13.0000, 14.0000, + 15.0000, 16.0000, 17.0000, 17.0000, 17.0000/ REAL :: ALBFAC_REF2NLCD( NUMB_NLCD_MODIS ) DATA ALBFAC_REF2NLCD / O 1.0000, 1.0000, 1.0667, 1.1333, 1.0667, + 1.1333, 0.8000, 1.4000, 0.9375, 0.8333, 1 1.0000, 1.0000, 1.0000, 1.1364, 1.0455, + 1.0526, 1.0526, 1.0000, 1.2778, 1.1765, 2 1.0714, 1.0714, 1.0714, 1.0714, 1.0714, + 1.2857, 1.2857, 1.2857, 1.2500, 1.2500, 3 1.0000, 1.0000, 1.0000, 1.0000, 1.0000, + 1.0000, 1.0000, 1.0000, 1.0000, 1.0000, 4 1.0000, 1.0000, 1.0000, 1.0000, 1.0000, + 1.0000, 1.0000, 1.0000, 1.0000, 1.0000/ INTEGER, PARAMETER :: NUMB_NLCD40_MODIS = 40 CHARACTER(60) NLCD40_LANDUSE( NUMB_NLCD40_MODIS ) DATA NLCD40_LANDUSE / & "Evergreen Needleleaf Forest ", & "Evergreen Broadleaf Forest ", & "Deciduous Needleleaf Forest ", & "Deciduous Broadleaf Forest ", & "Mixed Forests ", & "Closed Shrublands ", & "Open Shrublands ", & "Woody Savannas ", & "Savannas ", & "Grasslands ", & "Permanent Wetlands ", & "Croplands ", & "Urban and Built Up ", & "Cropland-Natural Vegetation Mosaic ", & "Permanent Snow and Ice ", & "Barren or Sparsely Vegetated ", & "IGBP Water ", & "unclassified ", & "fill value ", & "unclassified ", & "Open Water ", & "Perennial Ice-Snow ", & "Developed Open Space ", & "Developed Low Intensity ", & "Developed Medium Intensity ", & "Developed High Intensity ", & "Barren Land (Rock-Sand-Clay) ", ! & "Unconsolidated Shore ", & "Deciduous Forest ", & "Evergreen Forest ", & "Mixed Forest ", & "Dwarf Scrub ", & "Shrub-Scrub ", & "Grassland-Herbaceous ", & "Sedge-Herbaceous ", & "Lichens ", & "Moss ", & "Pasture-Hay ", & "Cultivated Crops ", & "Woody Wetlands ", & "Emergent Herbaceous Wetlands " / REAL :: ALBMAP_REF2NLCD40( NUMB_NLCD40_MODIS ) DATA ALBMAP_REF2NLCD40 / & 1.000, 2.000, 3.000, 4.000, 5.000, 6.000, 7.000, 8.000, & 9.000, 10.000, 11.000, 12.000, 13.000, 14.000, 15.000, 16.000, & 17.000, 17.000, 17.000, 17.000, 17.000, 15.000, 13.000, 13.000, ! & 17.000, 17.000, 17.000, 17.000, 15.000, 13.000, 13.000, 13.000, & 13.000, 13.000, 16.000, 4.000, 1.000, 5.000, 7.000, 7.000, ! & 13.000, 16.000, 16.000, 4.000, 1.000, 5.000, 7.000, 7.000, & 8.000, 8.000, 10.000, 10.000, 14.000, 12.000, 11.000, 11.000 / ! REAL :: ALBFAC_REF2NLCD40( NUMB_NLCD40_MODIS ) ! DATA ALBFAC_REF2NLCD40 / ! & 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, ! & 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, ! & 1.000, 1.000, 1.000, 1.000, 1.067, 1.133, 1.067, 1.133, ! & 0.800, 1.400, 0.938, 0.833, 1.000, 1.000, 1.000, 1.136, ! & 1.046, 1.053, 1.053, 1.278, 1.176, 1.071, 1.286 / REAL :: ALBFAC_REF2NLCD40( NUMB_NLCD40_MODIS ) DATA ALBFAC_REF2NLCD40 / & 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, & 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, & 1.000, 1.000, 1.000, 1.000, 1.000, 1.067, 1.133, 1.067, ! & 1.000, 1.000, 1.000, 1.000, 1.067, 1.133, 1.067, 1.133, & 1.133, 0.800, 0.938, 0.833, 1.000, 1.000, 1.000, 1.136, ! & 0.800, 1.400, 0.938, 0.833, 1.000, 1.000, 1.000, 1.136, & 1.046, 1.053, 1.053, 1.278, 1.176, 1.071, 1.286 / END MODULE ALBEDO_REFER_DATA ================================================ FILE: UTIL/inline_phot_preproc/src/BIN_DATA.f ================================================ MODULE BIN_DATA IMPLICIT NONE integer, parameter :: NBO = 100 integer, parameter :: NSO = 40000 ! integer, parameter :: NSO = 4463 integer, parameter :: NZO = 13550 integer, parameter :: NJO = 18 INTEGER, SAVE :: N_LOW_JXBANDS = 11 ! band structure for CMAQ release models ! INTEGER, SAVE :: N_LOW_JXBANDS = 6 ! band structure for MPAS-CMAQ models INTEGER, SAVE :: NJO_NEW INTEGER, SAVE :: N_INLINE_BAND INTEGER, SAVE :: NB, J1, J2, K1, K2 ! array limits and markers INTEGER, SAVE :: NB_NEW, J1_NEW, J2_NEW, K1_NEW, K2_NEW ! array limits and markers REAL(8), SAVE :: SRB(15,NJO) REAL(8), SAVE :: WBIN(NBO + 1 ) INTEGER, SAVE :: IJX(NBO) INTEGER, SAVE :: IBINJ(NSO) REAL(8), ALLOCATABLE, SAVE :: WBIN_NEW( : ) INTEGER, SAVE :: IBINJ_NEW(NSO) REAL, ALLOCATABLE, SAVE :: W(:), F(:) REAL, ALLOCATABLE, SAVE :: WL(:), WU(:), WC(:) ! FASTJX has 18 bins but the wavelength interval of the bins can overlap REAL, SAVE :: STR_WV_FASTJX( NJO + 2 ) ! nm, starting wavelength of FASTJ intervals DATA STR_WV_FASTJX & / 177.5, 177.5, 177.5, 177.5, 202.5, 206.5, 209.5, & 212.5, 215.5, 221.5, 233.0, 275.5, 286.5, 291.0, & 298.3, 307.5, 312.5, 320.3, 345.0, 412.5 / REAL, SAVE :: END_WV_FASTJX( NJO + 2 ) ! nm, ending wavelength of FASTJ intervals DATA END_WV_FASTJX & / 202.5, 202.5, 202.5, 202.5, 206.5, 209.5, 212.5, & 215.5, 221.5, 233.0, 275.5, 286.5, 291.0, 298.3, & 307.5, 312.5, 320.3, 345.0, 412.5, 850.0 / INTEGER, SAVE :: FASTJX_BIN( NJO + 2 ) ! FASTJX bin number for the intervals DATA FASTJX_BIN & / 1, 2, 3, 4, 5, 6, 7, & 8, 11, 10, 9, 10, 11, 12, & 13, 14, 15, 16, 17, 18 / ! Effective Center wavelengths for 18 bins of FASTJX, not mean bin edges !w-eff (nm) 187. 191. 193. 196. 202. 208. ! 211. 214. 261. 267. 277. 295. ! 303. 310. 316. 333. 380. 574. REAL, SAVE :: EFF_WV_FASTJX( NJO ) ! nm DATA EFF_WV_FASTJX & / 187.0, 191.0, 193.0, 196.0, 202.0, 208.0, & 211.0, 214.0, 261.0, 267.0, 277.0, 295.0, & 303.0, 310.0, 316.0, 333.0, 380.0, 574.0 / REAL, ALLOCATABLE, SAVE :: EFFECTIVE_LAMBDA( : ) ! nm REAL, ALLOCATABLE, SAVE :: EFFECTIVE_WVNUMB( : ) ! 1/cm REAL, ALLOCATABLE, SAVE :: SOLAR_PHOTONS( : ) ! solar photon flux in bin, photons/cm2/s INTEGER, PARAMETER :: NWV_REGRESS = 27 REAL, SAVE :: ENDWL_REGRESS( nwv_regress ) ! wavelength band upper limit REAL, SAVE :: MIDWL_REGRESS( nwv_regress ) ! wavelength midpoints REAL, SAVE :: STWL_REGRESS( nwv_regress ) ! wavelength band lower limit REAL, ALLOCATABLE, SAVE :: ENDWL_NEW( : ) ! wavelength band upper limit REAL, ALLOCATABLE, SAVE :: MIDWL_NEW( : ) ! wavelength midpoints REAL, ALLOCATABLE, SAVE :: STWL_NEW( : ) ! wavelength band lower limit INTEGER, ALLOCATABLE, SAVE :: NEWX_BIN( : ) ! bin number for the intervals INTEGER, ALLOCATABLE, SAVE :: IJX_CALC(:) INTEGER, ALLOCATABLE, SAVE :: IJX_BIN_NEW(:) REAL(8), ALLOCATABLE, SAVE :: SRB_NEW(:, :) INTEGER, SAVE :: NWV_NEW ! number of new bins ! LOGICAL, PARAMETER :: USE_REGRESS = .TRUE. ! .TRUE. ! .FALSE. LOGICAL, PARAMETER :: USE_REGRESS = .FALSE. ! .TRUE. ! .FALSE. LOGICAL, SAVE :: CHANGE_WBIN = .FALSE. ! CONTAINS SUBROUTINE INIT_BIN_DATA() USE GET_ENV_VARS IMPLICIT NONE INTEGER :: I, J, K, L ! index counters INTEGER :: STRT, FINI INTEGER :: ITT_CALC INTEGER :: STAT LOGICAL, SAVE :: DEFINED = .FALSE. REAL(8), PARAMETER :: TINY = 0.06D0 REAL(8), ALLOCATABLE :: FBIN( : ) REAL(8), ALLOCATABLE :: FBIN_AVE( : ) REAL(8), ALLOCATABLE :: ABIN( : ) INTEGER, ALLOCATABLE :: SBIN( : ) REAL(8), ALLOCATABLE :: FFBIN( : ) REAL(8), ALLOCATABLE :: FFBIN_AVE( : ) REAL(8), ALLOCATABLE :: AABIN( : ) REAL, ALLOCATABLE :: SSBIN( : ) REAL(8) :: DELTA CHARACTER(16) :: PNAME = ' INIT_BIN_DATA ' CHARACTER(255) :: EQNAME CHARACTER(586) :: EQFILE INTEGER :: LASTNB1 INTEGER :: LASTNB2 INTEGER :: IOUNIT = 125 CHARACTER(586) :: WVBIN_FILE = 'WVBIN_FILE' ! 'wavel-bins.dat' CHARACTER(586) :: FLUX_FILE = 'FLUX_FILE' ! 'solar-p05nm-UCI.dat' CHARACTER(16) :: NBANDS_OUT = 'N_WAVEBANDS_OUT' ! Number of wavebands for output files IF( DEFINED )RETURN DEFINED = .TRUE. ! get path to wavelength bin data file EQNAME = TRIM( WVBIN_FILE ) CALL VALUE_NAME( EQNAME, WVBIN_FILE ) OPEN (UNIT = IOUNIT, FILE= WVBIN_FILE, STATUS='OLD') SRB = 0.0D0 read(IOUNIT,'(i5)') NB if (NB .gt. NBO)THEN PRINT*,'NB exceeds ',NBO,' in file wavel-bins.dat ' stop ENDIF read(IOUNIT,'(5x,f8.3)') (WBIN(I), I=1,NB+1) read(IOUNIT,*) read(IOUNIT,*) read(IOUNIT,'(2x,15f5.1)') ((SRB(I,J),I=1,15),J=1,8) read(IOUNIT,*) read(IOUNIT,'(5x,i5)') (IJX(I),I=16,NB) close (IOUNIT) ! write(6,'(2x,15f5.1)') ((SRB(I,J),I=1,15),J=1,NJO) IF( USE_REGRESS )CHANGE_WBIN = .TRUE. IF( CHANGE_WBIN )THEN STRT = 64 FINI = NB DELTA = 0.50D0 L = INT((WBIN(FINI) - WBIN(STRT))*DELTA) NB_NEW = STRT + L + ( NB - FINI ) ALLOCATE( WBIN_NEW( NB_NEW + 1 ) ) WBIN_NEW = 0.0D0 WBIN_NEW( 1 : STRT ) = WBIN( 1 : STRT ) DO I = (STRT + 1), (L + STRT + 1) WBIN_NEW( I ) = WBIN_NEW( I - 1 ) + DELTA ENDDO DO I = 1, (NB - FINI) WBIN_NEW( I + L + STRT + 1) = WBIN( I + FINI ) ENDDO IF( WBIN_NEW( NB_NEW ) .NE. WBIN(NB) )THEN WBIN_NEW( NB_NEW ) = WBIN(NB) ENDIF WBIN_NEW( NB_NEW + 1 ) = WBIN(NB+1) ALLOCATE( FBIN( NB_NEW + 1 ) ) ALLOCATE( FBIN_AVE( NB_NEW + 1 ) ) ALLOCATE( ABIN( NB_NEW + 1 ) ) ALLOCATE( SBIN( NB_NEW + 1 ) ) ALLOCATE( IJX_BIN_NEW( NB_NEW + 1 ) ) ALLOCATE( IJX_CALC( NB_NEW + 1 ) ) ELSE NB_NEW = NB ALLOCATE( WBIN_NEW( SIZE( WBIN ) ) ) ALLOCATE( FBIN( NBO ) ) ALLOCATE( FBIN_AVE( NBO ) ) ALLOCATE( ABIN( NBO ) ) ALLOCATE( SBIN( NBO ) ) ALLOCATE( IJX_BIN_NEW( NBO ) ) ALLOCATE( IJX_CALC( NBO ) ) WBIN_NEW = WBIN ENDIF WRITE(6,'(I4,2X,F7.2,2X,F7.2)')(I,WBIN_NEW(I),WBIN_NEW(I+1),I=1,NB_NEW) ALLOCATE(W(NSO), F(NSO)) ! get path to flux spectrum data file EQNAME = TRIM( FLUX_FILE ) CALL VALUE_NAME( EQNAME, FLUX_FILE ) open (UNIT = IOUNIT, file = FLUX_FILE, status = 'OLD') read(IOUNIT,*) read(IOUNIT,*) read(IOUNIT,'(f10.4,e10.3)') (W(J),F(J), J=1,NSO) close (IOUNIT) ALLOCATE(WC(NSO), WL(NSO), WU(NSO)) I = 1 WC( 1 ) = REAL( W( 1 ) ) WL( 1 ) = REAL( W( 1 ) - 0.5D0*( W(2)-W(1) ) ) WU( 1 ) = REAL( 0.5D0*(W( 2 ) + W( 1 )) ) DO I = 2, NSO-1 WC( I ) = REAL(W( I )) WL( I ) = REAL(0.5D0*(W( I ) + W(I-1))) WU( I ) = REAL(0.5D0*(W(I+1) + W( I ))) ENDDO I = NSO WC( NSO ) = REAL( W( NSO ) ) WU( NSO ) = REAL( W(NSO) + 0.5D0*( W(NSO)-W(NSO-1) ) ) WL( NSO ) = REAL(0.5*(W( NSO ) + W(NSO-1))) ! DO I = 1, NSO ! WC( I ) = REAL(W( I )) ! WL( I ) = WC( I ) - 0.025 ! WU( I ) = WC( I ) + 0.025 ! ENDDO ! initialize the regress wavelength bins STWL_REGRESS(1) = 287.5 MIDWL_REGRESS(1) = 290.0 ENDWL_REGRESS(1) = 292.5 do i = 2, 23 STWL_REGRESS(i) = STWL_REGRESS(i-1) + 5.0 MIDWL_REGRESS(i) = MIDWL_REGRESS(i-1) + 5.0 ENDWL_REGRESS(i) = ENDWL_REGRESS(i-1) + 5.0 enddo STWL_REGRESS(24) = ENDWL_REGRESS(23) MIDWL_REGRESS(24) = 450.0 ENDWL_REGRESS(24) = 500.0 do i = 25, nwv_regress STWL_REGRESS(i) = ENDWL_REGRESS(i-1) MIDWL_REGRESS(i) = MIDWL_REGRESS(i-1) + 100.0 ENDWL_REGRESS(i) = ENDWL_REGRESS(i-1) + 100.0 enddo do i = 1, nwv_regress WRITE(6,'(i3,2(2x,f6.2))')i,STWL_REGRESS(i),ENDWL_REGRESS(i) enddo ! find where regress bins start and stop in FASTJX bins if( STR_WV_FASTJX( 1 ) .gt. STWL_REGRESS(1) )THEN print*,'ERROR 1 in finding starting point ' stop endif if( END_WV_FASTJX( NJO + 2 ) .lt. STWL_REGRESS(1) )THEN print*,'ERROR 2 in finding starting point ' stop endif LOOP_START: do J = 1, NJO + 2 if( STR_WV_FASTJX( J ) .ge. STWL_REGRESS(1) )THEN STRT = J - 1 EXIT LOOP_START ENDIF if( J .eq. (NJO + 2) )THEN print*,'ERROR 3 in finding starting point ' stop endif ENDDO LOOP_START FINI = NJO + 2 LOOP_STOP: do K = 1, NJO + 2 if( END_WV_FASTJX( J ) .gt. ENDWL_REGRESS(nwv_regress) )THEN FINI = K EXIT LOOP_STOP ENDIF ENDDO LOOP_STOP IF( FINI .EQ. ( NJO + 2 ) )THEN IF(INT(END_WV_FASTJX(FINI)) & .NE.INT(ENDWL_REGRESS(nwv_regress)))THEN print*,'Resetting ENDWL_REGRESS(last) to END_WV_FASTJX(last) ' print*,' INT(END_WV_FASTJX(FINI)) = ',INT(END_WV_FASTJX(FINI)) print*,' INT(ENDWL_REGRESS(nwv_regress)) = ', & INT(ENDWL_REGRESS(nwv_regress)) ENDWL_REGRESS(nwv_regress) = END_WV_FASTJX(FINI) ENDIF ENDIF IF( USE_REGRESS )THEN NWV_NEW = STRT + nwv_regress + ( NJO + 2 - FINI ) NJO_NEW = NWV_NEW - 2 ELSE NWV_NEW = NJO + 2 NJO_NEW = NJO ENDIF N_INLINE_BAND = NJO_NEW - N_LOW_JXBANDS N_INLINE_BAND = GET_ENV_INT( NBANDS_OUT, ' ', N_INLINE_BAND, STAT) IF( STAT .EQ. 0 )THEN N_LOW_JXBANDS = NJO_NEW - N_INLINE_BAND END IF IF( N_INLINE_BAND .LE. 0 )THEN WRITE(6,*)TRIM(PNAME) // 'ERROR: ' // TRIM( NBANDS_OUT ) // & ' <= 0 ' WRITE(6,*)'Total number of bands = ',NJO_NEW ! WRITE(6,*)'Number of high frequency bands = ', N_LOW_JXBANDS WRITE(6,*)'Requested Number of Wavebands = ',N_INLINE_BAND STOP ELSE IF( N_INLINE_BAND .GT. NJO_NEW )THEN WRITE(6,*)TRIM(PNAME) // 'ERROR: ' // TRIM( NBANDS_OUT ) // & ' greater Total Number of Bands' WRITE(6,*)'Total number of bands = ',NJO_NEW ! WRITE(6,*)'Number of high frequency bands = ', N_LOW_JXBANDS WRITE(6,*)'Requested Number of Wavebands = ',N_INLINE_BAND STOP ELSE WRITE(6,*)'Requested Number of Wavebands = ',N_INLINE_BAND WRITE(6,*)'Total number of bands = ',NJO_NEW END IF ALLOCATE( FFBIN( NJO_NEW ) ) ALLOCATE( FFBIN_AVE( NJO_NEW ) ) ALLOCATE( AABIN( NJO_NEW ) ) ALLOCATE( SSBIN( NJO_NEW ) ) ALLOCATE( STWL_NEW ( NWV_NEW ) ) ALLOCATE( MIDWL_NEW ( NWV_NEW ) ) ALLOCATE( ENDWL_NEW ( NWV_NEW ) ) ALLOCATE( NEWX_BIN ( NWV_NEW ) ) ALLOCATE( SRB_NEW ( 15, NJO_NEW ) ) MIDWL_NEW = 0.0 ALLOCATE( EFFECTIVE_LAMBDA( NJO_NEW ) ) ALLOCATE( EFFECTIVE_WVNUMB( NJO_NEW ) ) ALLOCATE( SOLAR_PHOTONS( NJO_NEW ) ) IF( USE_REGRESS )THEN IF( FINI .EQ. ( NJO + 2 ) )THEN STWL_NEW( 1:STRT ) = STR_WV_FASTJX( 1:STRT ) STWL_NEW( (STRT+1):NWV_NEW ) = STWL_REGRESS( 1:nwv_regress ) ENDWL_NEW( 1:(STRT-1) ) = END_WV_FASTJX( 1:(STRT-1) ) ENDWL_NEW( STRT ) = STWL_REGRESS( 1 ) ENDWL_NEW( (STRT+1):NWV_NEW ) = ENDWL_REGRESS( 1:nwv_regress ) NEWX_BIN( 1:STRT ) = FASTJX_BIN(1:STRT ) DO I = STRT+1, NWV_NEW NEWX_BIN( I ) = NEWX_BIN( I - 1 ) + 1 ENDDO ELSE J = STRT + nwv_regress STWL_NEW( 1:STRT ) = STR_WV_FASTJX( 1:STRT ) STWL_NEW( (STRT+1): J ) = STWL_REGRESS( 1:nwv_regress ) STWL_NEW( J + 1 ) = ENDWL_REGRESS( nwv_regress ) STWL_NEW( (J+2):NWV_NEW ) = STR_WV_FASTJX( FINI:(NBO + 2 ) ) ENDWL_NEW( 1:(STRT-1) ) = END_WV_FASTJX( 1:(STRT-1) ) ENDWL_NEW( STRT ) = STWL_REGRESS( 1 ) ENDWL_NEW( (STRT+1):J ) = ENDWL_REGRESS( 1:nwv_regress ) ENDWL_NEW( J+1:NWV_NEW ) = END_WV_FASTJX( FINI:(NBO + 2) ) NEWX_BIN( 1:STRT ) = FASTJX_BIN(1:STRT ) DO I = STRT+1, NWV_NEW NEWX_BIN( I ) = NEWX_BIN( I -1 ) + 1 ! print*,i,NEWX_BIN( I ) ENDDO ENDIF ELSE STWL_NEW = STR_WV_FASTJX ENDWL_NEW = END_WV_FASTJX NEWX_BIN = FASTJX_BIN ENDIF print*,NWV_NEW do i = 1, NWV_NEW J = i ! NEWX_BIN(I) MIDWL_NEW( J ) = 0.5*( STWL_NEW(J) + ENDWL_NEW(J) ) ! WRITE(6,'(i3,3(2x,f6.2),2x,i3)')i,STWL_NEW(J),MIDWL_NEW( J ), ! & ENDWL_NEW(J),NEWX_BIN(I) enddo IJX_CALC = 0 DO I = 16, NB_NEW DO J = 1, NJO + 2 IF(WBIN_NEW(I)+TINY .GE. STR_WV_FASTJX(J) & .AND. WBIN_NEW(I)-TINY .LT. END_WV_FASTJX(J))THEN IJX_CALC( I ) = FASTJX_BIN ( J ) ENDIF ENDDO if(NB_NEW .EQ. NB )THEN print*,I,' IJX_CALC(I) - IJX(I) = ', IJX_CALC(I) - IJX(I) ENDIF DO J = 1, NWV_NEW IF(WBIN_NEW(I)+TINY .GE. STWL_NEW(J) & .AND. WBIN_NEW(I)-TINY .LT. ENDWL_NEW(J))THEN IJX_BIN_NEW( I ) = NEWX_BIN ( J ) ENDIF ENDDO ENDDO ! print*,'IJX for FASTJX bins' ! WRITE(6,'(i5,2x,i5,2x,F6.2,2x,F6.2)') ! & (I,IJX_CALC(I),WBIN_NEW(I),WBIN_NEW(I+1),I=16,NB_NEW) ! print*,'IJX for New bins' ! WRITE(6,'(i5,2x,i5,2x,F6.2,2x,F6.2)') ! & (I,IJX_BIN_NEW(I),WBIN_NEW(I),WBIN_NEW(I+1),I=16,NB_NEW) SRB_NEW = 0.0D0 DO I = 1, 15 DO J = 1, 8 SRB_NEW( I, J) = SRB( I, J) ENDDO ENDDO C---now assign bin_new #(I=1,NB_NEW) to each p05nm microbin J (1:40000) IBINJ_NEW = 0 do I=1,NB_NEW do J=1,NSO if (W(J) .gt. WBIN_NEW(I)) goto 110 enddo J = NSO + 1 110 J1_NEW = J do J=J1_NEW,NSO if (W(J) .gt. WBIN_NEW(I+1)) goto 120 enddo J = NSO + 1 120 J2_NEW = J-1 do J=J1_NEW,J2_NEW IBINJ_NEW(J) = I enddo enddo c---now assign bin #(I=1:77) to each p05nm microbin J (1:40000) IBINJ = 0 do I=1,NB do J=1,NSO if (W(J) .gt. WBIN(I)) goto 11 enddo J = NSO + 1 11 J1 = J do J=J1,NSO if (W(J) .gt. WBIN(I+1)) goto 12 enddo J = NSO + 1 12 J2 = J-1 do J=J1,J2 IBINJ(J) = I enddo enddo K1 = 1 K2 = NSO K1_NEW = 1 K2_NEW = NSO c--- find flux-weighted effective wavelength over the bins FBIN(:) = 0.0d0 ABIN(:) = 0.0d0 SBIN(:) = 0 do J=K1,K2 K = J - K1 + 1 I = IBINJ_NEW(J) if (I .gt. 0) then FBIN(I) = FBIN(I) + F(J) ABIN(I) = ABIN(I) + F(J)*REAL(1.0/WC(J), 8) SBIN(I) = SBIN(I) + 1 endif enddo do I=1,NB_NEW if (FBIN(I) .gt. 0.d0)ABIN(I) = ABIN(I)/FBIN(I) if (SBIN(I) .gt. 0)FBIN_AVE(I)= FBIN(I)/REAL(SBIN(I),8) enddo FFBIN(:) = 0.0D0 AABIN(:) = 0.0D0 FFBIN_AVE( : ) = 0.0D0 SSBIN(:) = 0.0 do I=16,NB_NEW ! J = IJX(I) ! J = IJX_CALC(I) J = IJX_BIN_NEW( I ) FFBIN(J) = FFBIN(J) + FBIN(I) AABIN(J) = AABIN(J) + FBIN(I)*ABIN(I) FFBIN_AVE(J) = FFBIN_AVE(J) + FBIN_AVE(I) SSBIN(J) = 1 + SSBIN(J) enddo do I=1,15 do J=1,NJO_NEW FFBIN(J) = FFBIN(J) + FBIN(I)*SRB_NEW(I,J) AABIN(J) = AABIN(J) + FBIN(I)*ABIN(I)*SRB_NEW(I,J) SSBIN(J) = SRB_NEW(I,J) + SSBIN(J) FFBIN_AVE(J) = FFBIN_AVE(J) + FBIN_AVE(I)*SRB_NEW(I,J) enddo enddo do J=1,NJO_NEW if(SSBIN(J) .gt. 0.0)FFBIN_AVE(J) = FFBIN_AVE(J)/REAL(SSBIN(J),8) if(FFBIN(J) .gt. 0.d0)THEN EFFECTIVE_LAMBDA(J) = REAL(FFBIN(J)/AABIN(J)) EFFECTIVE_WVNUMB(J) = 1.0E7 / EFFECTIVE_LAMBDA(J) end if WRITE(6,'(A18,I3,A4,F6.1,2X,A25,ES12.4)') & 'EFFECTIVE_LAMBDA(',J,') = ',EFFECTIVE_LAMBDA(J), & 'Mean Solar Photons = ',FFBIN_AVE(J) SOLAR_PHOTONS( J ) = FFBIN(J) enddo print*,' completed INIT_BIN_DATA ' RETURN END SUBROUTINE INIT_BIN_DATA END MODULE BIN_DATA ================================================ FILE: UTIL/inline_phot_preproc/src/CHECK_CSQY_DATA.F ================================================ !------------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies ! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !------------------------------------------------------------------------! !::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: MODULE CHECK_CSQY_DATA IMPLICIT NONE CHARACTER( 32 ), SAVE :: JTABLE_REF INTEGER, SAVE :: NPHOT_REF ! # ref phot reactions INTEGER, SAVE :: NTEMP_REF ! # ref temperatures INTEGER, SAVE :: NWL_REF ! # ref wavelengths !...Names of the mapped photolysis reactions (available to chemical) !... mechanisms) and their pointers to the reference photolysis rxn CHARACTER( 16 ), ALLOCATABLE, SAVE :: PNAME_REF( : ) !...Setup the Mapping from CMAQ chemical reactions to the reference data INTEGER, SAVE :: NPHOT_MAP ! # phot mapped reactions CHARACTER( 16 ), ALLOCATABLE, SAVE :: PNAME_MAP( : ) INTEGER, ALLOCATABLE, SAVE :: PHOT_MAP ( : ) REAL, SAVE, ALLOCATABLE :: STWL_REF ( : ) REAL, SAVE, ALLOCATABLE :: EFFWL_REF( : ) REAL, SAVE, ALLOCATABLE :: ENDWL_REF( : ) REAL, ALLOCATABLE, SAVE :: CLD_BETA_REF ( : ) ! cloud extinction coef divided by LWC REAL, ALLOCATABLE, SAVE :: CLD_COALBEDO_REF( : ) ! cloud coalbedo REAL, ALLOCATABLE, SAVE :: CLD_G_REF ( : ) ! cloud asymmetry factor REAL, ALLOCATABLE, SAVE :: FSOLAR_REF( : ) ! initial solar flux [photons*cm-2*s-1] REAL, ALLOCATABLE, SAVE :: TEMP_BASE ( : ) ! reference temperatures REAL, ALLOCATABLE, SAVE :: TEMP_REF( :,: ) ! reference temperatures REAL, ALLOCATABLE, SAVE :: CS_REF ( :,:,: ) ! effective cross sections REAL, ALLOCATABLE, SAVE :: QY_REF ( :,:,: ) ! effective quantum yields REAL, ALLOCATABLE, SAVE :: ECS_REF( :,:,: ) ! CS*QY averaged UCI Solar Flux INTEGER, SAVE :: NTEMP_STRAT_REF ! number of stratos temperatures REAL, ALLOCATABLE, SAVE :: TEMP_STRAT_REF( : ) ! temperature for stratos O3 xcross, K REAL, ALLOCATABLE, SAVE :: O3_CS_STRAT_REF( :,: ) ! ozone xcross at stratos temperatures, cm2 !... effective quantum yields were computed by performing separate !... interval integrations for the cross sections and for the !... effective cross sections (cs*qy) (calculated on the finer !... wavelength grid. The effective quantum yield values !... were then calculated for the 7 wavelength intervals by !... dividing the effective cross sections by the interval average !... cross sections (eQY=eCS/CS). REAL, ALLOCATABLE, SAVE :: EQY_REF( :,:,: ) ! eCS/CS averaged 77 bins in UCI Model INTEGER, PARAMETER :: NUM_REFRACTIVE = 5 TYPE MODAL_COMPLEX CHARACTER( 16 ) :: NAME ! name of complex property REAL, ALLOCATABLE, DIMENSION( :, : ) :: REAL_PART ! real part REAL, ALLOCATABLE, DIMENSION( :, : ) :: IMAG_PART ! imaginary part END TYPE MODAL_COMPLEX TYPE( MODAL_COMPLEX ), SAVE :: REFRACTIVE_INDEX( NUM_REFRACTIVE ) INTEGER :: IWLR ! wavelength loop variable INTEGER :: ITTR ! temperature loop variable ! arrays for the size and optical properties of liquid droplets. The latter ! is a function of radius and wavelength INTEGER :: NRADIUS_LIQUID REAL, ALLOCATABLE :: RADIUS_LIQUID( : ) ! droplet radius, um REAL, ALLOCATABLE :: LIQUID_EXTINCT( :, : ) ! extinction coefficient, m**3/g REAL, ALLOCATABLE :: LIQUID_ASYMFACT( :, : ) ! asymmetery factor, dimensionaless REAL, ALLOCATABLE :: LIQUID_COALBEDO( :, : ) ! One minus single scattering albebo, dimensionaless ! arrays for the size and optical properties of ice particles. The latter ! is a function of effective diameter and wavelength INTEGER :: NDIAMETER_ICE REAL, ALLOCATABLE :: DIAMETER_ICE( : ) ! particle effective diameter, um REAL, ALLOCATABLE :: ICE_EXTINCT( :, : ) ! extinction coefficient, m**3/g REAL, ALLOCATABLE :: ICE_ASYMFACT( :, : ) ! asymmetery factor, dimensionaless REAL, ALLOCATABLE :: ICE_COALBEDO( :, : ) ! One minus single scattering albebo, dimensionaless !***Information for photolysis INTEGER, SAVE :: NWL ! number of wavelengths ! INTEGER, PARAMETER :: NWL_INLINE_METHOD = 7 INTEGER IWL ! index use for wavelength INTEGER ITT ! index for temperature INTEGER IRRXN REAL, ALLOCATABLE, SAVE :: WAVELENGTH( : ) ! effective wavelengths [nm ] REAL, ALLOCATABLE, SAVE :: FEXT( : ) ! downward solar direct flux at the top of ! of the Atmosphere. [ photons / ( cm **2 s) ] !***surface albedo REAL, ALLOCATABLE, SAVE :: ALB( : ) ! set in subroutine PHOT !**Cloud albedo values from JPROC REAL, ALLOCATABLE, SAVE :: CLOUD_BETA_LWC( : ) ! cloud extinction coef divided by LWC REAL, ALLOCATABLE, SAVE :: CLOUD_COALBEDO( : ) ! cloud coalbedo REAL, ALLOCATABLE, SAVE :: CLOUD_G( : ) ! cloud asymmetry factor INTEGER, SAVE :: NTEMP_STRAT REAL, ALLOCATABLE, SAVE :: XO3CS( :,: ) ! REAL, ALLOCATABLE, SAVE :: TEMP_O3_STRAT( : ) ! temperature for XO3CS, K !***arrays for reference data for needed photolysis rates REAL, ALLOCATABLE, SAVE :: XXCS( :,:,: ) ! absorption cross sections REAL, ALLOCATABLE, SAVE :: XXQY( :,:,: ) ! quantum yield REAL, ALLOCATABLE, SAVE :: RTEMP_S( :,: ) CHARACTER(16), ALLOCATABLE, SAVE :: PHOTOLYSIS_RATE( : ) ! subset of photolysis rates from CSQY DATA !***Indices for special case photolysis cross sections INTEGER, SAVE :: LNO2 INTEGER, SAVE :: LO3O1D INTEGER, SAVE :: LO3O3P INTEGER, SAVE :: LACETONE INTEGER, SAVE :: LKETONE INTEGER, SAVE :: LMGLY_ADJ INTEGER, SAVE :: LMGLY_ABS INTEGER, SAVE :: LHCHOR_06 INTEGER, SAVE :: IREFTEMPS ! number of ref. temperatures INTEGER, SAVE :: NUMB_LANDUSE_REF INTEGER, SAVE :: INDEX_GRASSLAND_REF INTEGER, SAVE :: INDEX_OCEAN_REF INTEGER, SAVE :: INDEX_SEA_ICE CHARACTER(30), ALLOCATABLE, SAVE :: LANDUSE_REF( : ) REAL, ALLOCATABLE, SAVE :: ZENITH_COEFF_REF( : ) REAL, ALLOCATABLE, SAVE :: SEASON_COEFF_REF( : ) REAL, ALLOCATABLE, SAVE :: SNOW_COEFF_REF( : ) REAL, ALLOCATABLE, SAVE :: SPECTRAL_ALBEDO_REF( :,: ) INTEGER, PARAMETER :: NUMB_EXPECT_NLCD50 = 50 INTEGER, SAVE :: NUMB_LANDUSE_NLCD50 CHARACTER(60), ALLOCATABLE, SAVE :: LANDUSE_NLCD50( : ) INTEGER, ALLOCATABLE, SAVE :: ALBMAP_REF2NLCD50( : ) REAL, ALLOCATABLE, SAVE :: ALBFAC_REF2NLCD50( : ) INTEGER, PARAMETER :: NUMB_EXPECT_NLCD40 = 40 INTEGER, SAVE :: NUMB_LANDUSE_NLCD40 CHARACTER(60), ALLOCATABLE, SAVE :: LANDUSE_NLCD40( : ) INTEGER, ALLOCATABLE, SAVE :: ALBMAP_REF2NLCD40( : ) REAL, ALLOCATABLE, SAVE :: ALBFAC_REF2NLCD40( : ) INTEGER, PARAMETER :: NUMB_EXPECT_USGS = 24 INTEGER, SAVE :: NUMB_LANDUSE_USGS CHARACTER(60), ALLOCATABLE, SAVE :: LANDUSE_USGS( : ) INTEGER, ALLOCATABLE, SAVE :: ALBMAP_REF2USGS( : ) REAL, ALLOCATABLE, SAVE :: ALBFAC_REF2USGS( : ) INTEGER, PARAMETER :: NUMB_EXPECT_MODIS = 33 INTEGER, SAVE :: NUMB_LANDUSE_MODIS CHARACTER(60), ALLOCATABLE, SAVE :: LANDUSE_MODIS( : ) INTEGER, ALLOCATABLE, SAVE :: ALBMAP_REF2MODIS( : ) REAL, ALLOCATABLE, SAVE :: ALBFAC_REF2MODIS( : ) LOGICAL, SAVE :: NO_NLCD40 LOGICAL, SAVE :: WRITE_CELL !***special information for acetone !*** Reference: !*** Cameron-Smith, P., Incorporation of non-linear !*** effective cross section parameterization into a !*** fast photolysis computation code (Fast-J) !*** Journal of Atmospheric Chemistry, Vol. 37, !*** pp 283-297, 2000. INTEGER, PARAMETER :: NWL_ACETONE_FJX = 7 REAL, SAVE :: OP0( 2, NWL_ACETONE_FJX ) ! variable needed for acetone DATA ( OP0( 1, IWL ), IWL = 1, NWL_ACETONE_FJX ) / & 2.982E-20, 1.301E-20, 4.321E-21, 1.038E-21, & 5.878E-23, 1.529E-25, 0.0/ DATA ( OP0( 2, IWL ), IWL = 1, NWL_ACETONE_FJX ) / & 3.255E-20, 1.476E-20, 5.179E-21, 1.304E-21, & 9.619E-23, 2.671E-25, 0.0 / REAL, SAVE :: YY30( NWL_ACETONE_FJX ) ! variable needed for acetone DATA YY30 / 5.651E-20, 1.595E-19, 2.134E-19, & 1.262E-19, 1.306E-19, 1.548E-19, 0.0 / REAL :: OPTT ! variable needed for acetone INTEGER, PARAMETER :: N_MODE = 3 CONTAINS subroutine m3exit ( PNAME, JDATE, JTIME, XMSG, XSTAT1 ) implicit none character*(*), intent( in ) :: pname character*(*), intent( in ) :: xmsg integer, intent( in ) :: jdate, jtime, xstat1 if(XSTAT1 .EQ. 0)then print *, ' *******program ',pname,' terminated normally********' elseif(XSTAT1 .EQ. 1)then print*, ' IO error in ',pname elseif(XSTAT1 .GE. 2)then print*, ' Programing Error in',pname endif print *, ' at date/time ', jdate, jtime print *, xmsg stop end subroutine m3exit subroutine m3warn ( PNAME, JDATE, JTIME, XMSG ) implicit none character*(*), intent( in ) :: pname character*(*), intent( in ) :: xmsg integer, intent( in ) :: jdate, jtime print *, ' !!!warning in program ',pname,' !!!!!!!!!!' print *, ' at date/time ', jdate, jtime print *, xmsg return end subroutine m3warn subroutine m3MESG ( XMSG ) implicit none character*(*), intent( in ) :: xmsg print *, ' !!!M3MESG!!!!!!!!!!' print *, xmsg return end subroutine m3MESG integer function init3 ( ) implicit none init3 = 6 return end function init3 INTEGER FUNCTION JUNIT() C*********************************************************************** C function body starts at line 60 C C FUNCTION: C C Routine returns next available FORTRAN unit number C C REVISION HISTORY: C C 3/88 Maximum number of I/O unit numbers was increased from 50 C to 75 due to increased file I/O requirements. C 5/88 Modified for ROMNET C 7/90 Modified for ROM 2.2 -- uses EXWST for error abort. C 8/90 Algorithm simplification: replaced IF-GOTO loop by DO loop. C 8/90 Algorithm simplification: counting algorithm instead of table C of flags; uses POSIX standards-approved unit numbers 11-99 C 3/92 Models-3 Prototype version (eliminate EXWST) C 8/96 Modified by CJC -- On counting-algorithm failure, performs C INQUIREs to find available unit. C 2/97 conditional definition of EXIT under AIX C C ARGUMENT LIST DESCRIPTION: empty argument list C C RETURN VALUE: JUNIT Unit number selected C C LOCAL VARIABLE DESCRIPTION: C C IUNIT state variable: counts through available units C BOT parameter: first POSIX-approved unit number for FORTRAN I/O C TOP parameter: last ... C C*********************************************************************** IMPLICIT NONE C........... PARAMETERS and their descriptions: INTEGER BOT ! 1 less than initial unit number INTEGER TOP ! final unit number PARAMETER ( BOT = 10, TOP = 99 ) C........... SAVED LOCAL VARIABLES and their descriptions: INTEGER IUNIT, J LOGICAL FLAG DATA IUNIT / TOP / ! current highest unit number SAVE IUNIT C............................................................................ C....... begin body of JUNIT: IF ( IUNIT .GE. BOT ) THEN JUNIT = IUNIT IUNIT = IUNIT - 1 ELSE DO 11 J = BOT, TOP INQUIRE( UNIT=J, OPENED=FLAG ) IF ( .NOT. FLAG ) THEN JUNIT = J RETURN END IF 11 CONTINUE C......... If you get to here: failure WRITE (*,91001) BOT, TOP, IUNIT CALL EXIT( 2 ) END IF RETURN 91001 FORMAT (///, 1X, '*** ERROR ABORT IN ROUTINE JUNIT ***', & /, 5X, 'NO MORE UNIT NUMBERS AVAILABLE FOR I/O', & /, 5X, 'First POSIX-approved unit:', I4 , & /, 5X, 'Last POSIX-approved unit:', I4 , & /, 5X, 'Current unit: ', I4 , & //) END FUNCTION JUNIT INTEGER FUNCTION GETEFILE( LNAME, RDONLY, FMTFLAG, CALLER ) C*********************************************************************** C Version "@(#)$Header$" C EDSS/Models-3 I/O API. C Copyright (C) 1992-2002 MCNC and Carlie J. Coats, Jr., C (C) 2003-2010 by Baron Advanced Meteorological Systems. C Distributed under the GNU LESSER GENERAL PUBLIC LICENSE version 2.1 C See file "LGPL.txt" for conditions of use. C......................................................................... C function body starts at line 79 C C DESCRIPTION: C Gets value of logical name LNAME from the environment, checks for C existence of a file whose file name is that value, then opens the C file as a sequential file on unit IUNIT according to the flags RDONLY C (open for read-only iff TRUE, read/write if FALSE) and FMTFLAG C (formatted iff TRUE, else unformatted). C Logs the file-opening, together with the CALLER version, and C returns the unit number (or -1 for failure) C C RETURNS: unit number, (or -1 for failure) C C PRECONDITIONS REQUIRED: C C C SUBROUTINES AND FUNCTIONS CALLED: C TRIMLEN, JUNIT C C REVISION HISTORY: C Prototype 2/1995 by CJC. C C Modified 9/1999 by CJC: portability/standardization changes C C Modified 7/2003 by CJC: OMP thread safety -- critical sections C associated with INIT3() C C Modified 11/2004 by CJC: IOSTAT check for INQUIRE C C Modified 03/2010 by CJC: F9x changes for I/O API v3.1 C*********************************************************************** USE GET_ENV_VARS IMPLICIT NONE C........... ARGUMENTS and their descriptions: CHARACTER*(*), INTENT(IN ) :: LNAME ! logical file name LOGICAL , INTENT(IN ) :: RDONLY ! TRUE iff file is input-only LOGICAL , INTENT(IN ) :: FMTFLAG ! TRUE iff file should be formatted CHARACTER*(*), INTENT(IN ) :: CALLER ! caller-name for logging C........... EXTERNAL FUNCTIONS and their descriptions: ! INTEGER, EXTERNAL :: INIT3 ! INTEGER, EXTERNAL :: JUNIT C........... LOCAL VARIABLES and their descriptions: INTEGER IUNIT INTEGER LLEN, PLEN INTEGER ISTAT, JSTAT LOGICAL LCHECK CHARACTER*512 PNAME CHARACTER*512 MESG CHARACTER*16 FMTSTRING INTEGER , SAVE :: LOGDEV = -1 C*********************************************************************** C begin body of GETEFILE() !$OMP CRITICAL( S_INIT ) IF ( LOGDEV .LT. 0 ) THEN LOGDEV = INIT3() END IF !$OMP END CRITICAL( S_INIT ) C........... Read filename from environment --- CALL VALUE_NAME( LNAME, PNAME ) LLEN = LEN_TRIM( LNAME ) PLEN = LEN_TRIM( PNAME ) IF ( FMTFLAG ) THEN FMTSTRING = 'FORMATTED' ELSE FMTSTRING = 'UNFORMATTED' END IF C....... Check for existence of files --- INQUIRE( FILE=PNAME( 1:PLEN ) , EXIST=LCHECK, IOSTAT=JSTAT ) IF ( JSTAT .NE. 0 ) THEN WRITE( MESG, '( A, I11, 2X, A, 1X, A)' ) & 'Error', JSTAT, 'inquiring about', LNAME CALL M3MESG( MESG ) MESG = 'Path-name: ' // PNAME CALL M3MESG( MESG ) GETEFILE = -1 RETURN END IF IF ( RDONLY ) THEN IF ( .NOT. LCHECK ) THEN WRITE( LOGDEV, 9000, IOSTAT=JSTAT, ERR=9999 ) & 'ERROR: input file not found: ', & LNAME( 1:LLEN ), & PNAME( 1:PLEN ) GETEFILE = -1 RETURN END IF IUNIT = JUNIT() ! OPEN( UNIT = IUNIT, ! & FILE = PNAME, ! & FORM = FMTSTRING, ! & ACTION = 'READ', ! & IOSTAT = ISTAT ) OPEN( UNIT = IUNIT, & FILE = PNAME, & FORM = FMTSTRING, & STATUS = 'OLD', & READONLY, & IOSTAT = ISTAT ) IF ( ISTAT .NE. 0 ) THEN WRITE(LOGDEV,*)'ERROR: file not opened successfully' WRITE( LOGDEV, 9100, IOSTAT=JSTAT, ERR=9999 ) & LNAME( 1:LLEN ), & PNAME( 1:PLEN ), & 'I/O status: ', ISTAT GETEFILE = -1 STOP END IF WRITE( LOGDEV, 9001, IOSTAT=JSTAT, ERR=9999 ) & 'File "', LNAME( 1:LLEN ), & '" opened for input on unit:', IUNIT, & PNAME( 1:PLEN ) ELSE ! not read-only: open for write IF ( LCHECK ) THEN WRITE( LOGDEV, 9000, IOSTAT=JSTAT, ERR=9999 ) & 'WARNING: output file already exists: ', & LNAME( 1:LLEN ), & PNAME( 1:PLEN ) END IF IUNIT = JUNIT() OPEN( UNIT = IUNIT, & FILE = PNAME, & FORM = FMTSTRING, & IOSTAT = ISTAT ) IF ( ISTAT .NE. 0 ) THEN WRITE(LOGDEV,*)'ERROR: file not opened successfully' WRITE( LOGDEV, 9100, IOSTAT=JSTAT, ERR=9999 ) & LNAME( 1:LLEN ), & PNAME( 1:PLEN ), & 'I/O status: ', ISTAT GETEFILE = -1 STOP END IF WRITE( LOGDEV, 9001, IOSTAT=JSTAT, ERR=9999 ) & 'File "', LNAME( 1:LLEN ), & '" opened for output on unit:', IUNIT, & PNAME( 1:PLEN ) END IF GETEFILE = IUNIT RETURN C---------------------------------------------------------------------- C handle messaging errors: 9999 CONTINUE IF ( JSTAT .NE. 0 ) THEN WRITE(LOGDEV,*)'ERROR writing log message.' WRITE( LOGDEV, 9200, IOSTAT=ISTAT ) & 'I/O status:', JSTAT GETEFILE = -1 RETURN END IF C----------------------------------------------------------------------- C Format statements: 8000 FORMAT( A ) 9000 FORMAT( /, 1X, 2A, /, :, 1X, A, / ) 9001 FORMAT( /, 5X, 3A, I4, & /, 5X, A, /) 9100 FORMAT( /, 1X, A, ':', A, & /, 1X, A, I7 , / ) 9200 FORMAT( /, 1X, A, I7 , / ) END FUNCTION GETEFILE INTEGER FUNCTION INDEXR ( NAME1, N, NAME2 ) C----------------------------------------------------------------------- C C FUNCTION: C This routine searches for NAME1 in list NAME2 C C REVISION HISTORY: C 5/88 Modified for ROMNET C July 29, 2005 by FSB C Changed name to avoid conflict FSB C copied from CMAQ routine INDEX2 to allow internal use C C ARGUMENT LIST DESCRIPTION: C C Input arguments: C NAME1 Character string being searched for C N Length of array to be searched C NAME2 Character array to be searched C C Output arguments: C INDEX1 The position within the NAME2 array that NAME1 C found. If string was not found, INDEX1 = 0 C C LOCAL VARIABLE DESCRIPTION: C None C C----------------------------------------------------------------------- IMPLICIT NONE INTEGER, INTENT(IN) :: N CHARACTER*(*), INTENT(IN) :: NAME1 CHARACTER*(*), INTENT(IN) :: NAME2(*) INTEGER I !***Assume NAME1 is not in list NAME2 INDEXR = 0 DO I = 1, N IF ( INDEX( NAME2( I ), NAME1 ) .EQ. 1 ) THEN INDEXR = I RETURN END IF END DO RETURN END FUNCTION INDEXR SUBROUTINE LOAD_CSQY_DATA ( ) !----------------------------------------------------------------------- ! Purpose: read input file for ! -wavelength bin and temperature structure. ! -photolysis cross-sections and quantum ! ! Revision History: ! 31 Jan 2014 B.Hutzell: Initial Version based on LOAD_REF_DATA in ! CMAQ version 5.0 !----------------------------------------------------------------------- ! USE UTILIO_DEFN IMPLICIT NONE INCLUDE SUBST_RXCMMN ! chemical mechamism reactions COMMON C***arguments C NONE C***local LOGICAL :: WRITE_LOG = .TRUE. CHARACTER( 32 ) :: PNAME = 'LOAD_CSQY_DATA' CHARACTER( 16 ) :: CSQY_FILE = 'CSQY_DATA' ! CSQY_DATA i/o logical name CHARACTER( 16 ) :: PHOT_EXPECT CHARACTER( 30 ) :: LAND_EXPECT CHARACTER( 120 ) :: MSG ! buffer for messages to output CHARACTER( 240 ) :: FILE_LINE CHARACTER( 16 ), ALLOCATABLE :: AE_RERACT_REF( : ) ! INTEGER, INTENT(OUT) :: NWL_PHOT ! # of wavelengths used in PHOT_MOD.F INTEGER :: NWL_PHOT ! # of wavelengths used in PHOT_MOD.F INTEGER :: IOST ! IOST returned from OPEN function INTEGER :: JDATE = 0 INTEGER :: LOG_UNIT INTEGER :: PHOTAB_UNIT INTEGER :: IPHOT, IPHOT_LOAD ! loop indices INTEGER :: ITT, ITT_LOAD ! loop indices INTEGER :: IP_MAP, IP_REF ! photolysis reaction indicies INTEGER :: IWL_LOAD INTEGER :: STRT, FINI INTEGER :: NAE_REFRACT_REF REAL, ALLOCATABLE :: AE_IMAG_REFRACT( :, : ) REAL, ALLOCATABLE :: AE_REAL_REFRACT( :, : ) LOGICAL :: ERROR_FLAG = .FALSE. C***external functions: none LOG_UNIT = INIT3() PHOTAB_UNIT = GETEFILE( CSQY_FILE, .TRUE., .TRUE., PNAME ) IF ( PHOTAB_UNIT .LT. 0 ) THEN MSG = 'Error opening the CSQY data file: ' // TRIM( CSQY_FILE ) CALL M3EXIT ( PNAME, 0, 0, MSG, -1 ) END IF C...begin read READ( PHOTAB_UNIT,'(22X,A32)' ) JTABLE_REF IF ( JTABLE_REF .NE. MECHNAME ) THEN MSG = 'WARNING: JTABLE mechanism is for ' // JTABLE_REF & // ' but gas chemistry name is ' // MECHNAME CALL M3WARN( PNAME, 0, 0, MSG ) END IF READ( PHOTAB_UNIT,'(10X,I4)' ) NPHOT_MAP #ifdef verbose_phot write( log_unit,'(22x,a32)' ) jtable_ref write( log_unit,'(10x,i4)' ) nphot_map #endif READ( PHOTAB_UNIT,'(A)' ) FILE_LINE ALLOCATE( PNAME_MAP( NPHOT_MAP ) ) ALLOCATE( PNAME_REF( NPHOT_MAP ) ) ALLOCATE( PHOT_MAP ( NPHOT_MAP ) ) DO IPHOT_LOAD = 1, NPHOT_MAP READ( PHOTAB_UNIT,'(A16)' ) PNAME_REF( IPHOT_LOAD ) #ifdef verbose_phot write( log_unit,'(i3,1x,a16)' ) iphot_load, pname_ref( iphot_load ) #endif PNAME_MAP( IPHOT_LOAD ) = PNAME_REF( IPHOT_LOAD ) PHOT_MAP ( IPHOT_LOAD ) = IPHOT_LOAD END DO READ( PHOTAB_UNIT,'(10X,I3)' ) NTEMP_REF #ifdef verbose_phot write( log_unit,'(10x,i3)' ) ntemp_ref #endif READ( PHOTAB_UNIT,'(A)' ) FILE_LINE #ifdef verbose_phot write( log_unit,* ) trim( file_line ) #endif IREFTEMPS = NTEMP_REF ALLOCATE( TEMP_BASE( NTEMP_REF ) ) DO ITT_LOAD = 1, NTEMP_REF READ( PHOTAB_UNIT,'(A)' ) FILE_LINE #ifdef verbose_phot write( log_unit,* ) trim( file_line ) #endif READ( FILE_LINE,* ) IPHOT_LOAD, TEMP_BASE( ITT_LOAD ) #ifdef verbose_phot write( log_unit,'(4x,f6.2)' ) temp_base( itt_load ) #endif END DO ALLOCATE( TEMP_REF( NTEMP_REF, NPHOT_MAP) ) DO ITT_LOAD = 1, 15 ! skip next 15 lines READ( PHOTAB_UNIT,'(A)' ) FILE_LINE #ifdef verbose_phot write( log_unit, '(I2,1X,A)' )ITT_LOAD,TRIM(FILE_LINE) #endif END DO READ( FILE_LINE, 4999) NWL_REF READ( PHOTAB_UNIT,'(A)' ) FILE_LINE #ifdef verbose_phot write( log_unit, * )TRIM(FILE_LINE) #endif 4999 FORMAT(17X,I3,2X,17X,I3) NWL = NWL_REF NWL_PHOT = NWL #ifdef verbose_phot write( log_unit,'(17x,i3)' ) nwl_ref #endif IF ( NWL_REF .NE. NWL_PHOT ) THEN WRITE( LOG_UNIT,* ) 'NWL_PHOT = ', NWL_PHOT WRITE( LOG_UNIT,* ) 'NWL_REF = ', NWL_REF MSG = 'NWL_REF used in ' // CSQY_FILE & // ' does equal NWL in PHOT_MOD.F file. ' CALL M3EXIT( PNAME, 0, 0, MSG, -1 ) END IF READ( PHOTAB_UNIT,'(A)' ) FILE_LINE #ifdef verbose_phot write( log_unit, * )FILE_LINE #endif ALLOCATE( STWL_REF ( NWL_REF ) ) ALLOCATE( EFFWL_REF ( NWL_REF ) ) ALLOCATE( ENDWL_REF ( NWL_REF ) ) ALLOCATE( FSOLAR_REF ( NWL_REF ) ) ALLOCATE( CLD_BETA_REF ( NWL_REF ) ) ALLOCATE( CLD_COALBEDO_REF( NWL_REF ) ) ALLOCATE( CLD_G_REF ( NWL_REF ) ) DO IWL_LOAD = 1, NWL_REF ! READ( PHOTAB_UNIT,'(4X,3(F8.3,2X),2X,ES12.4,2X,2(F8.3,2X),ES12.4,2X)' ) READ( PHOTAB_UNIT, * )iphot_load, & STWL_REF( IWL_LOAD ), EFFWL_REF( IWL_LOAD ), & ENDWL_REF( IWL_LOAD ), FSOLAR_REF( IWL_LOAD ) #ifdef verbose_phot write( log_unit,'(4x,3(f8.3,2x),2x,2(es12.4,2x),f8.3,2x,12(es12.4,2x))' ) & stwl_ref( iwl_load ), effwl_ref( iwl_load ), & endwl_ref( iwl_load ),fsolar_ref( iwl_load ) #endif END DO READ( PHOTAB_UNIT,'(A)' ) FILE_LINE READ( PHOTAB_UNIT,'(A)' ) FILE_LINE READ( PHOTAB_UNIT,'(A)' ) FILE_LINE READ( PHOTAB_UNIT,'(A)' ) FILE_LINE ALLOCATE( CS_REF ( NPHOT_MAP, NTEMP_REF, NWL_REF ) ) ALLOCATE( QY_REF ( NPHOT_MAP, NTEMP_REF, NWL_REF ) ) ALLOCATE( EQY_REF( NPHOT_MAP, NTEMP_REF, NWL_REF ) ) ALLOCATE( ECS_REF( NPHOT_MAP, NTEMP_REF, NWL_REF ) ) CS_REF = 0.0 QY_REF = 0.0 EQY_REF = 0.0 ECS_REF = 0.0 DO IPHOT_LOAD = 1, NPHOT_MAP DO ITT_LOAD = 1, NTEMP_REF READ( PHOTAB_UNIT,'(A16,7X,F8.3,1X,40(1PE12.6,2X))' ) & PHOT_EXPECT, TEMP_REF( ITT_LOAD, IPHOT_LOAD), & ( CS_REF( IPHOT_LOAD, ITT_LOAD, IWL_LOAD), IWL_LOAD = 1, NWL_REF ) #ifdef verbose_phot write( log_unit,'(a16,7x,f8.3,1x,40(1pe12.6,2x))' ) & phot_expect, temp_ref( itt_load, iphot_load), & ( cs_ref( iphot_load, itt_load, iwl_load), iwl_load = 1, nwl_ref ) #endif IF ( PHOT_EXPECT .NE. PNAME_REF( IPHOT_LOAD ) ) THEN MSG = 'CS for ' // TRIM( PHOT_EXPECT ) & // ' does match the order the PHOT_MAP array.' CALL M3EXIT( PNAME, 0, 0, MSG, -1 ) END IF READ( PHOTAB_UNIT,'(A16,7X,F8.3,1X,40(1PE12.6,2X))' ) & PHOT_EXPECT, TEMP_REF( ITT_LOAD, IPHOT_LOAD), & ( EQY_REF( IPHOT_LOAD, ITT_LOAD, IWL_LOAD), IWL_LOAD = 1, NWL_REF ) QY_REF( IPHOT_LOAD, ITT_LOAD, 1:NWL_REF) = EQY_REF( IPHOT_LOAD, ITT_LOAD, 1:NWL_REF) #ifdef verbose_phot write( log_unit,'(a16,7x,f8.3,1x,40(1pe12.6,2x))' ) & phot_expect, temp_ref( itt_load, iphot_load), & ( qy_ref( iphot_load, itt_load, iwl_load), iwl_load = 1, nwl_ref ) #endif IF ( PHOT_EXPECT .NE. PNAME_REF(IPHOT_LOAD) ) THEN MSG = 'EQY for ' // TRIM( PHOT_EXPECT ) & // ' does match the order the PHOT_MAP array.' CALL M3WARN( PNAME, 0, 0, MSG ) ERROR_FLAG = .TRUE. END IF END DO END DO DO ITT_LOAD = 1, 3 ! skip next 3 lines READ( PHOTAB_UNIT,'(A)' ) FILE_LINE END DO READ( PHOTAB_UNIT,'(15X,I3)' ) NTEMP_STRAT_REF #ifdef verbose_phot write( log_unit,'(16x,i3)' ) ntemp_strat_ref #endif ALLOCATE( TEMP_STRAT_REF ( NTEMP_STRAT_REF ) ) ALLOCATE( O3_CS_STRAT_REF( NTEMP_STRAT_REF, NWL_REF ) ) READ( PHOTAB_UNIT,'(A)' ) FILE_LINE DO ITT_LOAD = 1, NTEMP_STRAT_REF READ( PHOTAB_UNIT,'(A16,7X,F8.3,1X,40(1PE12.6,2X))' ) & PHOT_EXPECT, TEMP_STRAT_REF( ITT_LOAD ), & ( O3_CS_STRAT_REF( ITT_LOAD, IWL_LOAD), IWL_LOAD = 1, NWL_REF ) #ifdef verbose_phot write( log_unit,'(a16,7x,f8.3,1x,40(1pe12.6,2x))' ) & phot_expect, temp_strat_ref( itt_load ), & ( o3_cs_strat_ref( itt_load, iwl_load), iwl_load = 1, nwl_ref ) #endif IF ( PHOT_EXPECT .NE. 'O3_STRAT' ) THEN MSG = 'O3_STRAT not found at expected location in CSQY_FILE. ' // & TRIM( PHOT_EXPECT ) // ' found.' CALL M3WARN( PNAME, 0, 0, MSG ) ERROR_FLAG = .TRUE. END IF END DO NTEMP_STRAT = NTEMP_STRAT_REF ALLOCATE( TEMP_O3_STRAT( NTEMP_STRAT_REF ) ) ALLOCATE( XO3CS ( NTEMP_STRAT_REF, NWL_PHOT ) ) DO ITT_LOAD = 1, NTEMP_STRAT_REF TEMP_O3_STRAT( ITT_LOAD ) = TEMP_STRAT_REF( ITT_LOAD ) DO IWL_LOAD = 1, NWL_PHOT XO3CS( ITT_LOAD, IWL_LOAD ) = O3_CS_STRAT_REF( ITT_LOAD, IWL_LOAD ) END DO END DO C***initialize pointers for mandatory photolysis rates LNO2 = 0 LO3O1D = 0 LO3O3P = 0 LACETONE = 0 LKETONE = 0 LMGLY_ADJ = 0 LMGLY_ABS = 0 C***get needed photolysis data for the model chemistry from the C***CSQY_DATA ALLOCATE( PHOTOLYSIS_RATE ( NPHOTAB ) ) ALLOCATE( XXCS( NPHOTAB, IREFTEMPS, NWL ) ) ALLOCATE( XXQY( NPHOTAB, IREFTEMPS, NWL ) ) ALLOCATE( RTEMP_S( IREFTEMPS, NPHOTAB ) ) DO IPHOT = 1, NPHOTAB IP_MAP = INDEXR( PHOTAB( IPHOT ), NPHOT_MAP, PNAME_MAP ) IF ( IP_MAP .LE. 0 ) THEN MSG = 'FATAL ERROR: photolysis reaction ' // TRIM( PHOTAB( IPHOT ) ) & // ' not found in ' // & 'the reference data! ' ERROR_FLAG = .TRUE. CALL M3WARN ( PNAME, 0, 0, MSG ) END IF IP_REF = PHOT_MAP( IP_MAP ) PHOTOLYSIS_RATE( IPHOT ) = PNAME_MAP( IP_MAP ) C***check to see if this photolysis reaction is a special case that C*** is referenced in other sections of the code. if so, then set C*** the appropriate pointers for later processing SELECT CASE ( TRIM( PHOTOLYSIS_RATE( IPHOT ) ) ) CASE( 'O3O3P', 'O3O3P_SAPRC99', 'O3O3P_06', 'O3_O3P_IUPAC04', 'O3O3P_NASA06' ) LO3O3P = IPHOT CASE( 'NO2', 'NO2_SAPRC99', 'NO2_06', 'NO2_RACM2' ) LNO2 = IPHOT CASE( 'O3O1D', 'O3O1D_SAPRC99' , 'O3O1D_06', 'O3_O1D_IUPAC04', 'O3O1D_NASA06' ) LO3O1D = IPHOT CASE( 'KETONE', 'KET_RACM2' ) LKETONE = IPHOT CASE( 'MGLY_ADJ' ) LMGLY_ADJ = IPHOT CASE( 'MGLY_ABS' ) LMGLY_ABS = IPHOT CASE( 'ACETONE', 'CH3COCH3_RACM2' ) LACETONE = IPHOT CASE( 'HCHOR_06', 'HCHO_RAD_RACM2') LHCHOR_06 = IPHOT END SELECT C***load the local cross section & quantum yield data from the reference C*** dataset for this photolysis reaction DO ITT = 1, IREFTEMPS DO IWL = 1, NWL XXCS( IPHOT, ITT, IWL ) = CS_REF( IP_REF, ITT, IWL ) XXQY( IPHOT, ITT, IWL ) = QY_REF( IP_REF, ITT, IWL ) RTEMP_S( ITT, IPHOT ) = TEMP_REF( ITT, IP_REF ) END DO ! iwl END DO ! itt END DO ! iphot IF ( LNO2 .EQ. 0 ) THEN MSG = 'NO2 cross-section not found in the CSQY data! ' ERROR_FLAG = .TRUE. CALL M3WARN ( PNAME, 0, 0, MSG ) END IF IF ( LO3O1D .EQ. 0 ) THEN MSG = 'O3(1D) production not found in the CSQY data! ' CALL M3WARN ( 'NEW_OPTICS', 0, 0, MSG ) END IF IF ( LO3O3P .EQ. 0 ) THEN MSG = 'O3 cross-section not found in the CSQY data! ' ERROR_FLAG = .TRUE. CALL M3WARN ( PNAME, 0, 0, MSG ) END IF IF( ERROR_FLAG )THEN MSG = 'The above fatal error(s) found in CSQY data! ' CALL M3EXIT( PNAME, 0, 0, MSG, -1 ) END IF WRITE( LOG_UNIT,* ) 'Sucessfully Loaded CSQY_DATA file' CLOSE(LOG_UNIT) CLOSE(PHOTAB_UNIT) 5012 FORMAT( 4X,A30,1X,3(F8.3,2X) ) 5013 FORMAT( 22X,I3 ) 5016 FORMAT( 4X,A60,1X,I3,2X,3(F8.3,2X) ) #ifdef verbose_phot 6009 format( a3,', ',8(a,', ') ) 6013 format( a22,1x,i3 ) 6016 format( i3,1x,a60,1x,i3,2x,3(f8.3,2x) ) #endif RETURN END SUBROUTINE LOAD_CSQY_DATA SUBROUTINE LOAD_OPTICS_DATA() !----------------------------------------------------------------------- ! Purpose: read input file for ! -wavelength bin for cross check against ! -size dependent optical data for liquid droplets and ice ! ice particles ! -landuse type data for surface alebdo ! ! Revision History: ! 31 Jan 2014 B.Hutzell: Initial Version based on LOAD_REF_DATA in ! CMAQ version 5.0 !----------------------------------------------------------------------- ! USE UTILIO_DEFN IMPLICIT NONE !***arguments ! NONE !***local LOGICAL :: WRITE_LOG = .TRUE. CHARACTER( 32 ) :: PNAME = 'LOAD_OPTICS_DATA' CHARACTER( 16 ) :: OPTICS_FILE = 'OPTICS_DATA' ! OPTICS_DATA i/o logical name CHARACTER( 16 ) :: OPTICS_EXPECT CHARACTER( 16 ) :: QUANTITY CHARACTER( 30 ) :: LAND_EXPECT CHARACTER( 120 ) :: MSG ! buffer for messages to output CHARACTER( 240 ) :: FILE_LINE CHARACTER( 16 ), ALLOCATABLE :: AE_RERACT_REF( : ) ! INTEGER, INTENT(OUT) :: NWL_OPTICS ! # of wavelengths used in PHOT_MOD.F INTEGER :: NWL_OPTICS ! # of wavelengths used in PHOT_MOD.F INTEGER :: IOST ! IOST returned from OPEN function INTEGER :: JDATE = 0 INTEGER :: LOG_UNIT INTEGER :: OPTICS_UNIT INTEGER :: IPHOT, IPHOT_LOAD ! loop indices INTEGER :: ITT, ITT_LOAD ! loop indices INTEGER :: IP_MAP, IP_REF ! photolysis reaction indicies INTEGER :: IWL_LOAD INTEGER :: STRT, FINI INTEGER :: NAE_REFRACT_REF REAL, ALLOCATABLE :: AE_IMAG_REFRACT( :, : ) REAL, ALLOCATABLE :: AE_REAL_REFRACT( :, : ) LOGICAL :: ERROR_FLAG = .FALSE. C***external functions: none LOG_UNIT = INIT3() OPTICS_UNIT = GETEFILE( OPTICS_FILE, .TRUE., .TRUE., PNAME ) READ( OPTICS_UNIT,'(A)' ) FILE_LINE #ifdef verbose_phot write( log_unit, * )TRIM(FILE_LINE) #endif READ( FILE_LINE, 4999) NWL_REF NWL_OPTICS = NWL_REF DO ITT_LOAD = 1, 14 ! skip next 14 lines READ( OPTICS_UNIT,'(A)' ) FILE_LINE END DO DO IWL_LOAD = 1, NWL_REF READ( OPTICS_UNIT, * )iphot_load, & STWL_REF( IWL_LOAD ), EFFWL_REF( IWL_LOAD ), & ENDWL_REF( IWL_LOAD ) #ifdef verbose_phot write( log_unit, 99946 ) & stwl_ref( iwl_load ), effwl_ref( iwl_load ), & endwl_ref( iwl_load ) #endif END DO DO ITT_LOAD = 1, 6 ! skip next 6 lines READ( OPTICS_UNIT,'(A)' ) FILE_LINE END DO READ( FILE_LINE, 4999)NAE_REFRACT_REF IF( NAE_REFRACT_REF .NE. NUM_REFRACTIVE )THEN WRITE( LOG_UNIT,* ) 'NAE_REFRACT_REF = ', NAE_REFRACT_REF MSG = 'NAERO_REFRACT used in ' // OPTICS_FILE & // ' does not equal NUM_REFRACTIVE in CSQY_DATA.F file. ' CALL M3WARN( PNAME, 0, 0, MSG ) ERROR_FLAG = .TRUE. END IF ALLOCATE( AE_RERACT_REF ( NAE_REFRACT_REF ) ) READ( OPTICS_UNIT,'(A)' ) FILE_LINE #ifdef verbose_phot write( log_unit, '(a)')TRIM(FILE_LINE) #endif STRT = SCAN(FILE_LINE, '=', BACK = .TRUE.) + 1 FINI = LEN(FILE_LINE) READ( FILE_LINE( STRT:FINI ), * )( AE_RERACT_REF( ITT_LOAD ), & ITT_LOAD = 1, NAE_REFRACT_REF ) #ifdef verbose_phot write( log_unit, 99947)'REFRACTIVE_INDICES' write( log_unit, 99948 )(AE_RERACT_REF( ITT_LOAD ),ITT_LOAD = 1, & NAE_REFRACT_REF ) #endif DO ITT_LOAD = 1, NAE_REFRACT_REF ! set up refractive indices used by aero_photdata routine REFRACTIVE_INDEX( ITT_LOAD )%NAME = AE_RERACT_REF( ITT_LOAD ) ALLOCATE( REFRACTIVE_INDEX( ITT_LOAD )%REAL_PART( N_MODE, NWL_REF ) ) ALLOCATE( REFRACTIVE_INDEX( ITT_LOAD )%IMAG_PART( N_MODE, NWL_REF ) ) #ifdef verbose_phot write( log_unit, '(i3, 1x, a16)')itt_load, refractive_index( itt_load )%name #endif END DO DO IWL_LOAD = 1, NWL_REF READ( OPTICS_UNIT, * )iphot_load, & STWL_REF( IWL_LOAD ), EFFWL_REF( IWL_LOAD ), & ENDWL_REF( IWL_LOAD ), FSOLAR_REF( IWL_LOAD ), & ( AE_REAL_REFRACT( ITT_LOAD, IWL_LOAD ), & AE_IMAG_REFRACT( ITT_LOAD, IWL_LOAD ), & ITT_LOAD = 1, NAE_REFRACT_REF ) DO ITT_LOAD = 1, NAE_REFRACT_REF REFRACTIVE_INDEX( ITT_LOAD )%REAL_PART( 1:N_MODE, IWL_LOAD ) & = AE_REAL_REFRACT( ITT_LOAD, IWL_LOAD ) REFRACTIVE_INDEX( ITT_LOAD )%IMAG_PART( 1:N_MODE, IWL_LOAD ) & = AE_IMAG_REFRACT( ITT_LOAD, IWL_LOAD ) END DO #ifdef verbose_phot write( log_unit, 99949 ) & stwl_ref( iwl_load ), effwl_ref( iwl_load ), & endwl_ref( iwl_load ),fsolar_ref( iwl_load ), & ( ae_real_refract( itt_load, iwl_load ), & ae_imag_refract( itt_load, iwl_load ), itt_load = 1, nae_refract_ref ) #endif END DO DO ITT_LOAD = 1, 6 ! skip next 6 lines READ( OPTICS_UNIT,'(A)' ) FILE_LINE END DO ! read optical data for liquid droplets READ( FILE_LINE, 4999)NRADIUS_LIQUID READ( OPTICS_UNIT,'(A)' ) FILE_LINE ALLOCATE(RADIUS_LIQUID( NRADIUS_LIQUID )) ALLOCATE( LIQUID_EXTINCT(NRADIUS_LIQUID, NWL_OPTICS), & LIQUID_ASYMFACT(NRADIUS_LIQUID, NWL_OPTICS), & LIQUID_COALBEDO(NRADIUS_LIQUID, NWL_OPTICS)) READ( OPTICS_UNIT,'(A)' ) FILE_LINE QUANTITY = 'LIQ_EXT' DO ITT_LOAD = 1, NRADIUS_LIQUID READ( OPTICS_UNIT, 99950 ) & OPTICS_EXPECT, RADIUS_LIQUID( ITT_LOAD ), & ( LIQUID_EXTINCT( ITT_LOAD, IWL_LOAD), IWL_LOAD = 1, NWL_OPTICS ) #ifdef verbose_phot write( log_unit, 99950 ) & OPTICS_EXPECT, RADIUS_LIQUID( ITT_LOAD ), & ( LIQUID_EXTINCT( ITT_LOAD, IWL_LOAD), IWL_LOAD = 1, NWL_OPTICS ) #endif IF ( TRIM( OPTICS_EXPECT ) .NE. TRIM( QUANTITY ) ) THEN MSG = 'Optical quantity read ' // TRIM( OPTICS_EXPECT ) & // ' does match expected quantity, ' // TRIM( QUANTITY ) CALL M3WARN( PNAME, 0, 0, MSG ) ERROR_FLAG = .TRUE. END IF END DO READ( OPTICS_UNIT,'(A)' ) FILE_LINE QUANTITY = 'LIQ_ASY' DO ITT_LOAD = 1, NRADIUS_LIQUID READ( OPTICS_UNIT, 99950 ) & OPTICS_EXPECT, RADIUS_LIQUID( ITT_LOAD ), & ( LIQUID_ASYMFACT( ITT_LOAD, IWL_LOAD), IWL_LOAD = 1, NWL_OPTICS ) #ifdef verbose_phot write( log_unit, 99950 ) & OPTICS_EXPECT, RADIUS_LIQUID( ITT_LOAD ), & ( LIQUID_ASYMFACT( ITT_LOAD, IWL_LOAD), IWL_LOAD = 1, NWL_OPTICS ) #endif IF ( TRIM( OPTICS_EXPECT ) .NE. TRIM( QUANTITY ) ) THEN MSG = 'Optical quantity read ' // TRIM( OPTICS_EXPECT ) & // ' does match expected quantity, ' // TRIM( QUANTITY ) CALL M3WARN( PNAME, 0, 0, MSG ) ERROR_FLAG = .TRUE. END IF END DO READ( OPTICS_UNIT,'(A)' ) FILE_LINE QUANTITY = 'LIQ_COA' DO ITT_LOAD = 1, NRADIUS_LIQUID READ( OPTICS_UNIT, 99950 ) & OPTICS_EXPECT, RADIUS_LIQUID( ITT_LOAD ), & ( LIQUID_COALBEDO( ITT_LOAD, IWL_LOAD), IWL_LOAD = 1, NWL_OPTICS ) #ifdef verbose_phot write( log_unit, 99950 ) & OPTICS_EXPECT, RADIUS_LIQUID( ITT_LOAD ), & ( LIQUID_COALBEDO( ITT_LOAD, IWL_LOAD), IWL_LOAD = 1, NWL_OPTICS ) #endif IF ( TRIM( OPTICS_EXPECT ) .NE. TRIM( QUANTITY ) ) THEN MSG = 'Optical quantity read ' // TRIM( OPTICS_EXPECT ) & // ' does match expected quantity, ' // TRIM( QUANTITY ) CALL M3WARN( PNAME, 0, 0, MSG ) ERROR_FLAG = .TRUE. END IF END DO DO ITT_LOAD = 1, 6 ! skip next 6 lines READ( OPTICS_UNIT,'(A)' ) FILE_LINE END DO ! read optical data for liquid droplets READ( FILE_LINE, 4999)NDIAMETER_ICE READ( OPTICS_UNIT,'(A)' ) FILE_LINE ALLOCATE(DIAMETER_ICE( NDIAMETER_ICE )) ALLOCATE( ICE_EXTINCT(NDIAMETER_ICE, NWL_OPTICS), & ICE_ASYMFACT(NDIAMETER_ICE, NWL_OPTICS), & ICE_COALBEDO(NDIAMETER_ICE, NWL_OPTICS)) READ( OPTICS_UNIT,'(A)' ) FILE_LINE QUANTITY = 'ICE_EXT' DO ITT_LOAD = 1, NDIAMETER_ICE READ( OPTICS_UNIT, 99950 ) & OPTICS_EXPECT, DIAMETER_ICE( ITT_LOAD ), & ( ICE_EXTINCT( ITT_LOAD, IWL_LOAD), IWL_LOAD = 1, NWL_OPTICS ) #ifdef verbose_phot write( log_unit, 99950 ) & OPTICS_EXPECT, DIAMETER_ICE( ITT_LOAD ), & ( ICE_EXTINCT( ITT_LOAD, IWL_LOAD), IWL_LOAD = 1, NWL_OPTICS ) #endif IF ( TRIM( OPTICS_EXPECT ) .NE. TRIM( QUANTITY ) ) THEN MSG = 'Optical quantity read ' // TRIM( OPTICS_EXPECT ) & // ' does match expected quantity, ' // TRIM( QUANTITY ) CALL M3WARN( PNAME, 0, 0, MSG ) ERROR_FLAG = .TRUE. END IF END DO READ( OPTICS_UNIT,'(A)' ) FILE_LINE QUANTITY = 'ICE_ASY' DO ITT_LOAD = 1, NDIAMETER_ICE READ( OPTICS_UNIT, 99950 ) & OPTICS_EXPECT, DIAMETER_ICE( ITT_LOAD ), & ( ICE_ASYMFACT( ITT_LOAD, IWL_LOAD), IWL_LOAD = 1, NWL_OPTICS ) #ifdef verbose_phot write( log_unit, 99950 ) & OPTICS_EXPECT, DIAMETER_ICE( ITT_LOAD ), & ( ICE_ASYMFACT( ITT_LOAD, IWL_LOAD), IWL_LOAD = 1, NWL_OPTICS ) #endif IF ( TRIM( OPTICS_EXPECT ) .NE. TRIM( QUANTITY ) ) THEN MSG = 'Optical quantity read ' // TRIM( OPTICS_EXPECT ) & // ' does match expected quantity, ' // TRIM( QUANTITY ) CALL M3WARN( PNAME, 0, 0, MSG ) ERROR_FLAG = .TRUE. END IF END DO READ( OPTICS_UNIT,'(A)' ) FILE_LINE QUANTITY = 'ICE_COA' DO ITT_LOAD = 1, NDIAMETER_ICE READ( OPTICS_UNIT, 99950 ) & OPTICS_EXPECT, DIAMETER_ICE( ITT_LOAD ), & ( ICE_COALBEDO( ITT_LOAD, IWL_LOAD), IWL_LOAD = 1, NWL_OPTICS ) #ifdef verbose_phot write( log_unit, 99950 ) & OPTICS_EXPECT, DIAMETER_ICE( ITT_LOAD ), & ( ICE_COALBEDO( ITT_LOAD, IWL_LOAD), IWL_LOAD = 1, NWL_OPTICS ) #endif IF ( TRIM( OPTICS_EXPECT ) .NE. TRIM( QUANTITY ) ) THEN MSG = 'Optical quantity read ' // TRIM( OPTICS_EXPECT ) & // ' does match expected quantity, ' // TRIM( QUANTITY ) CALL M3WARN( PNAME, 0, 0, MSG ) ERROR_FLAG = .TRUE. END IF END DO ! read data for calculating surface DO ITT_LOAD = 1, 5 ! skip next 5 lines READ( OPTICS_UNIT,'(A)' ) FILE_LINE END DO READ( OPTICS_UNIT,5013 ) NUMB_LANDUSE_REF DO ITT_LOAD = 1, 3 ! skip next 3 lines READ( OPTICS_UNIT,'(A)' ) FILE_LINE END DO READ( OPTICS_UNIT,5013 ) INDEX_GRASSLAND_REF READ( OPTICS_UNIT,5013 ) INDEX_OCEAN_REF READ( OPTICS_UNIT,5013 ) INDEX_SEA_ICE #ifdef verbose_phot write( log_unit,6013 )'NUMB_LANDUSE_REF = ', numb_landuse_ref write( log_unit,6013 )'INDEX_GRASSLAND_REF = ', index_grassland_ref write( log_unit,6013 )'INDEX_OCEAN_REF = ', index_ocean_ref write( log_unit,6013 )'INDEX_SEA_ICE = ', index_sea_ice #endif ALLOCATE( LANDUSE_REF ( NUMB_LANDUSE_REF ) ) ALLOCATE( ZENITH_COEFF_REF( NUMB_LANDUSE_REF ) ) ALLOCATE( SEASON_COEFF_REF( NUMB_LANDUSE_REF ) ) ALLOCATE( SNOW_COEFF_REF ( NUMB_LANDUSE_REF ) ) ALLOCATE( SPECTRAL_ALBEDO_REF( NWL_OPTICS, NUMB_LANDUSE_REF ) ) READ( OPTICS_UNIT,'(A)' ) FILE_LINE ! skip line DO ITT_LOAD = 1, NUMB_LANDUSE_REF READ( OPTICS_UNIT,5012 ) LANDUSE_REF( ITT_LOAD ), & ZENITH_COEFF_REF( ITT_LOAD ), & SEASON_COEFF_REF( ITT_LOAD ), & SNOW_COEFF_REF( ITT_LOAD ) #ifdef verbose_phot write( log_unit,5012 ) landuse_ref( itt_load ), & zenith_coeff_ref( itt_load ), & season_coeff_ref( itt_load ), & snow_coeff_ref( itt_load ) #endif END DO READ( OPTICS_UNIT,'(A)' ) FILE_LINE ! skip line DO ITT_LOAD = 1, NUMB_LANDUSE_REF READ( OPTICS_UNIT,'(A30,1X,40(1PE12.6,2X))' ) LAND_EXPECT, & ( SPECTRAL_ALBEDO_REF(IWL_LOAD, ITT_LOAD), IWL_LOAD = 1, NWL_REF ) #ifdef verbose_phot write( log_unit,'(a30,1x,40(1pe12.6,2x))' ) trim( land_expect ), & ( spectral_albedo_ref(iwl_load, itt_load), iwl_load = 1, nwl_ref ) #endif END DO DO ITT_LOAD = 1, 3 ! skip next 3 lines READ( OPTICS_UNIT,'(A)' ) FILE_LINE END DO READ( OPTICS_UNIT,5013 ) NUMB_LANDUSE_NLCD50 READ( OPTICS_UNIT,'(A)' ) FILE_LINE ! skip line #ifdef verbose_phot write( log_unit,6013 ) 'NUMB_NLCD50_MODIS = ', numb_landuse_NLCD50 write( log_unit,6009 ) '! I', 'LANDUSE_NLCD50-MODIS', 'INDEX_ALBREF', & 'FAC_ALBREF' #endif ALLOCATE( LANDUSE_NLCD50( NUMB_LANDUSE_NLCD50 ) ) ALLOCATE( ALBMAP_REF2NLCD50( NUMB_LANDUSE_NLCD50 ) ) ALLOCATE( ALBFAC_REF2NLCD50( NUMB_LANDUSE_NLCD50 ) ) DO ITT_LOAD = 1, NUMB_LANDUSE_NLCD50 READ( OPTICS_UNIT,5016 ) LANDUSE_NLCD50( ITT_LOAD ), & ALBMAP_REF2NLCD50( ITT_LOAD ), & ALBFAC_REF2NLCD50( ITT_LOAD ) #ifdef verbose_phot write( log_unit,6016 ) itt_load, landuse_NLCD50( itt_load ), & albmap_ref2NLCD50( itt_load ), & albfac_ref2NLCD50( itt_load ) #endif END DO READ( OPTICS_UNIT,5013 ) NUMB_LANDUSE_USGS READ( OPTICS_UNIT,'(A)' ) FILE_LINE ! skip line #ifdef verbose_phot write( log_unit,6013 ) 'NUMB_USGS = ', numb_landuse_usgs write( log_unit,6009 ) '! I','LANDUSE_USGS', 'INDEX_ALBREF', 'FAC_ALBREF' #endif ALLOCATE( LANDUSE_USGS ( NUMB_LANDUSE_USGS ) ) ALLOCATE( ALBMAP_REF2USGS( NUMB_LANDUSE_USGS ) ) ALLOCATE( ALBFAC_REF2USGS( NUMB_LANDUSE_USGS ) ) DO ITT_LOAD = 1, NUMB_LANDUSE_USGS READ( OPTICS_UNIT,5016 ) LANDUSE_USGS( ITT_LOAD ), & ALBMAP_REF2USGS( ITT_LOAD ), & ALBFAC_REF2USGS( ITT_LOAD ) #ifdef verbose_phot write( log_unit,6016 ) itt_load, landuse_usgs( itt_load ), & albmap_ref2usgs( itt_load ), & albfac_ref2usgs( itt_load ) #endif END DO READ( OPTICS_UNIT,5013 ) NUMB_LANDUSE_MODIS READ( OPTICS_UNIT,'(A)' ) FILE_LINE ! skip line #ifdef verbose_phot write( log_unit,6013 ) 'NUMB_MODIS = ', numb_landuse_modis write( log_unit,6009 ) '! I','LANDUSE_MODIS', 'INDEX_ALBREF', 'FAC_ALBREF' #endif ALLOCATE( LANDUSE_MODIS ( NUMB_LANDUSE_MODIS ) ) ALLOCATE( ALBMAP_REF2MODIS( NUMB_LANDUSE_MODIS ) ) ALLOCATE( ALBFAC_REF2MODIS( NUMB_LANDUSE_MODIS ) ) DO ITT_LOAD = 1, NUMB_LANDUSE_MODIS READ( OPTICS_UNIT,5016 ) LANDUSE_MODIS( ITT_LOAD ), & ALBMAP_REF2MODIS( ITT_LOAD ), & ALBFAC_REF2MODIS( ITT_LOAD ) #ifdef verbose_phot write( log_unit,6016 ) itt_load, landuse_modis( itt_load ), & albmap_ref2modis( itt_load ), & albfac_ref2modis( itt_load ) #endif END DO NO_NLCD40 = .TRUE. ! default condition that file does not contain NLCD40 Landuse data READ( OPTICS_UNIT,5013, END = 101 ) NUMB_LANDUSE_NLCD40 READ( OPTICS_UNIT,'(A)' ) FILE_LINE ! skip line #ifdef verbose_phot write( log_unit,6013 ) 'NUMB_NLCD40_MODIS = ', numb_landuse_NLCD40 write( log_unit,6009 ) '! I', 'LANDUSE_NLCD40-MODIS', 'INDEX_ALBREF', & 'FAC_ALBREF' #endif ALLOCATE( LANDUSE_NLCD40( NUMB_LANDUSE_NLCD40 ) ) ALLOCATE( ALBMAP_REF2NLCD40( NUMB_LANDUSE_NLCD40 ) ) ALLOCATE( ALBFAC_REF2NLCD40( NUMB_LANDUSE_NLCD40 ) ) DO ITT_LOAD = 1, NUMB_LANDUSE_NLCD40 READ( OPTICS_UNIT,5016 ) LANDUSE_NLCD40( ITT_LOAD ), & ALBMAP_REF2NLCD40( ITT_LOAD ), & ALBFAC_REF2NLCD40( ITT_LOAD ) #ifdef verbose_phot write( log_unit,6016 ) itt_load, landuse_NLCD40( itt_load ), & albmap_ref2NLCD40( itt_load ), & albfac_ref2NLCD40( itt_load ) #endif END DO NO_NLCD40 = .FALSE. 101 IF( NO_NLCD40 )THEN MSG = TRIM( PNAME ) // ':' & // TRIM( OPTICS_FILE ) & // ' does not contain data for NLCD40 land use and' & // ' corresponds to CMAQ version 5.01.' CALL M3MESG( MSG ) END IF ! set the default values for surface albedo DO IWL_LOAD = 1, NWL_OPTICS IF ( WAVELENGTH( IWL_LOAD ) .LE. 380.1 ) THEN ALB( IWL_LOAD ) = 0.05 ELSE ALB( IWL_LOAD ) = 0.10 END IF END DO WRITE( LOG_UNIT,* ) 'Sucessfully Loaded OPTICS_DATA file' CLOSE(LOG_UNIT) CLOSE(OPTICS_UNIT) 4999 FORMAT(17X,I3,2X,17X,I3) 5012 FORMAT( 4X,A30,1X,3(F8.3,2X) ) 5013 FORMAT( 22X,I3 ) 5016 FORMAT( 4X,A60,1X,I3,2X,3(F8.3,2X) ) 99946 FORMAT(4x,3(f8.3,2x),2x,2(es12.4,2x),f8.3,2x,12(es12.4,2x)) 99947 FORMAT(a3, 1x, a16) 99948 FORMAT(10(a16,1x)) 99949 FORMAT(4x,3(f8.3,2x),2x,2(es12.4,2x),f8.3,2x,12(es12.4,2x)) 99950 FORMAT(a8,1x,f10.3,1x,40(1pe12.6,2x)) #ifdef verbose_phot 6009 format( a3,', ',8(a,', ') ) 6013 format( a22,1x,i3 ) 6016 format( i3,1x,a60,1x,i3,2x,3(f8.3,2x) ) #endif RETURN END SUBROUTINE LOAD_OPTICS_DATA END MODULE CHECK_CSQY_DATA ================================================ FILE: UTIL/inline_phot_preproc/src/CSQY_DATA-p05cm-UCI.f ================================================ MODULE CSQY_DATA IMPLICIT NONE C.....PARAMETERS and their descriptions: INTEGER, PARAMETER :: NPHOT_REF = 84 ! # ref phot reactions INTEGER, PARAMETER :: NTEMP_REF = 3 ! # ref temperatures INTEGER, PARAMETER :: NWL_REF = 7 ! # ref wavelengths C...Names of the mapped photolysis reactions (available to chemical) C... mechanisms) and their pointers to the reference photolysis rxn INTEGER, PARAMETER :: INO2_06 = 1 ! pointer to NO2-06 INTEGER, PARAMETER :: INO3NO_06 = 2 ! pointer to NO3NO-06 INTEGER, PARAMETER :: INO3NO2_6 = 3 ! pointer to NO3NO2-6 INTEGER, PARAMETER :: IO3O1D_06 = 4 ! pointer to O3O1D-06 INTEGER, PARAMETER :: IO3O3P_06 = 5 ! pointer to O3O3P-06 INTEGER, PARAMETER :: IHONO_06 = 6 ! pointer to HONO-06 INTEGER, PARAMETER :: IHNO3 = 7 ! pointer to HNO3 INTEGER, PARAMETER :: IHNO4_06 = 8 ! pointer to HNO4-06 INTEGER, PARAMETER :: IH2O2 = 9 ! pointer to H2O2 INTEGER, PARAMETER :: INO2EX = 10 ! pointer to NO2EX INTEGER, PARAMETER :: IPAN = 11 ! pointer to PAN INTEGER, PARAMETER :: IHCHOR_06 = 12 ! pointer to HCHOR-06 INTEGER, PARAMETER :: IHCHOM_06 = 13 ! pointer to HCHOM-06 INTEGER, PARAMETER :: ICCHO_R = 14 ! pointer to CCHO_R INTEGER, PARAMETER :: IC2CHO = 15 ! pointer to C2CHO INTEGER, PARAMETER :: IACET_06 = 16 ! pointer to ACET-06 INTEGER, PARAMETER :: IMEK_06 = 17 ! pointer to MEK-06 INTEGER, PARAMETER :: ICOOH = 18 ! pointer to COOH INTEGER, PARAMETER :: IGLY_07R = 19 ! pointer to GLY-07R INTEGER, PARAMETER :: IGLY_07M = 20 ! pointer to GLY-07M INTEGER, PARAMETER :: IMGLY_06 = 21 ! pointer to MGLY-06 INTEGER, PARAMETER :: IBACL_07 = 22 ! pointer to BACL-07 INTEGER, PARAMETER :: IBALD_06 = 23 ! pointer to BALD-06 INTEGER, PARAMETER :: IAFG1 = 24 ! pointer to AFG1 INTEGER, PARAMETER :: IMACR_06 = 25 ! pointer to MACR-06 INTEGER, PARAMETER :: IMVK_06 = 26 ! pointer to MVK-06 INTEGER, PARAMETER :: IIC3ONO2 = 27 ! pointer to IC3ONO2 INTEGER, PARAMETER :: IHOCCHO_IUPAC = 28 ! pointer to HOCCHO_IUPAC INTEGER, PARAMETER :: IACRO_09 = 29 ! pointer to ACRO-09 INTEGER, PARAMETER :: IPAA = 30 ! pointer to PAA INTEGER, PARAMETER :: ICL2 = 31 ! pointer to CL2 INTEGER, PARAMETER :: ICLNO_06 = 32 ! pointer to CLNO-06 INTEGER, PARAMETER :: ICLONO = 33 ! pointer to CLONO INTEGER, PARAMETER :: ICLNO2 = 34 ! pointer to CLNO2 INTEGER, PARAMETER :: ICLONO2_1 = 35 ! pointer to CLONO2-1 INTEGER, PARAMETER :: ICLONO2_2 = 36 ! pointer to CLONO2-2 INTEGER, PARAMETER :: IHOCL_06 = 37 ! pointer to HOCL-06 INTEGER, PARAMETER :: ICLCCHO = 38 ! pointer to CLCCHO INTEGER, PARAMETER :: ICLACET = 39 ! pointer to CLACET INTEGER, PARAMETER :: INO2_SAPRC99 = 40 ! pointer to NO2_SAPRC99 INTEGER, PARAMETER :: INO3NO_SAPRC99 = 41 ! pointer to NO3NO_SAPRC99 INTEGER, PARAMETER :: INO3NO2_SAPRC99 = 42 ! pointer to NO3NO2_SAPRC99 INTEGER, PARAMETER :: IO3O3P_SAPRC99 = 43 ! pointer to O3O3P_SAPRC99 INTEGER, PARAMETER :: IO3O1D_SAPRC99 = 44 ! pointer to O3O1D_SAPRC99 INTEGER, PARAMETER :: IHONO_NO_SAPRC99 = 45 ! pointer to HONO_NO_SAPRC99 INTEGER, PARAMETER :: IHONO_NO2_SAPRC99 = 46 ! pointer to HONO_NO2_SAPRC99 INTEGER, PARAMETER :: IHNO3_SAPRC99 = 47 ! pointer to HNO3_SAPRC99 INTEGER, PARAMETER :: IHO2NO2_SAPRC99 = 48 ! pointer to HO2NO2_SAPRC99 INTEGER, PARAMETER :: IH2O2_SAPRC99 = 49 ! pointer to H2O2_SAPRC99 INTEGER, PARAMETER :: IHCHO_R_SAPRC99 = 50 ! pointer to HCHO_R_SAPRC99 INTEGER, PARAMETER :: IHCHO_M_SAPRC99 = 51 ! pointer to HCHO_M_SAPRC99 INTEGER, PARAMETER :: ICCHO_R_SAPRC99 = 52 ! pointer to CCHO_R_SAPRC99 INTEGER, PARAMETER :: IC2CHO_SAPRC99 = 53 ! pointer to C2CHO_SAPRC99 INTEGER, PARAMETER :: IACETONE_SAPRC99 = 54 ! pointer to ACETONE_SAPRC99 INTEGER, PARAMETER :: IKETONE_SAPRC99 = 55 ! pointer to KETONE_SAPRC99 INTEGER, PARAMETER :: ICOOH_SAPRC99 = 56 ! pointer to COOH_SAPRC99 INTEGER, PARAMETER :: IGLY_R_SAPRC99 = 57 ! pointer to GLY_R_SAPRC99 INTEGER, PARAMETER :: IGLY_ABS_SAPRC99 = 58 ! pointer to GLY_ABS_SAPRC99 INTEGER, PARAMETER :: IMGLY_ADJ_SAPRC99 = 59 ! pointer to MGLY_ADJ_SAPRC99 INTEGER, PARAMETER :: IBACL_ADJ_SAPRC99 = 60 ! pointer to BACL_ADJ_SAPRC99 INTEGER, PARAMETER :: IBZCHO_SAPRC99 = 61 ! pointer to BZCHO_SAPRC99 INTEGER, PARAMETER :: IACROLEIN_SAPRC99 = 62 ! pointer to ACROLEIN_SAPRC99 INTEGER, PARAMETER :: IIC3ONO2_SAPRC99 = 63 ! pointer to IC3ONO2_SAPRC99 INTEGER, PARAMETER :: IMGLY_ABS_SAPRC99 = 64 ! pointer to MGLY_ABS_SAPRC99 INTEGER, PARAMETER :: IO3_O3P_IUPAC04 = 65 ! pointer to O3_O3P_IUPAC04 INTEGER, PARAMETER :: IO3_O1D_IUPAC04 = 66 ! pointer to O3_O1D_IUPAC04 INTEGER, PARAMETER :: IHONO_IUPAC04 = 67 ! pointer to HONO_IUPAC04 INTEGER, PARAMETER :: IHO2NO2_IUPAC04 = 68 ! pointer to HO2NO2_IUPAC04 INTEGER, PARAMETER :: IHNO3_IUPAC04 = 69 ! pointer to HNO3_IUPAC04 INTEGER, PARAMETER :: IN2O5_IUPAC04 = 70 ! pointer to N2O5_IUPAC04 INTEGER, PARAMETER :: INTR_IUPAC04 = 71 ! pointer to NTR_IUPAC04 INTEGER, PARAMETER :: IPAN_IUPAC04 = 72 ! pointer to PAN_IUPAC04 INTEGER, PARAMETER :: IPACD_CB05 = 73 ! pointer to PACD_CB05 INTEGER, PARAMETER :: IMGLY_IUPAC04 = 74 ! pointer to MGLY_IUPAC04 INTEGER, PARAMETER :: ICL2_IUPAC04 = 75 ! pointer to CL2_IUPAC04 INTEGER, PARAMETER :: IHOCL_IUPAC04 = 76 ! pointer to HOCL_IUPAC04 INTEGER, PARAMETER :: IFMCL_IUPAC04 = 77 ! pointer to FMCL_IUPAC04 INTEGER, PARAMETER :: INO2 = 78 ! pointer to NO2 INTEGER, PARAMETER :: IO3O1D = 79 ! pointer to O3O1D INTEGER, PARAMETER :: IO3O3P = 80 ! pointer to O3O3P INTEGER, PARAMETER :: IKETONE = 81 ! pointer to KETONE INTEGER, PARAMETER :: IMGLY_ABS = 82 ! pointer to MGLY_ABS INTEGER, PARAMETER :: IMGLY_ADJ = 83 ! pointer to MGLY_ADJ INTEGER, PARAMETER :: IACETONE = 84 ! pointer to ACETONE CHARACTER(16), SAVE :: PNAME_REF( NPHOT_REF ) DATA PNAME_REF( INO2_06 ) / 'NO2-06 ' / DATA PNAME_REF( INO3NO_06 ) / 'NO3NO-06 ' / DATA PNAME_REF( INO3NO2_6 ) / 'NO3NO2-6 ' / DATA PNAME_REF( IO3O1D_06 ) / 'O3O1D-06 ' / DATA PNAME_REF( IO3O3P_06 ) / 'O3O3P-06 ' / DATA PNAME_REF( IHONO_06 ) / 'HONO-06 ' / DATA PNAME_REF( IHNO3 ) / 'HNO3 ' / DATA PNAME_REF( IHNO4_06 ) / 'HNO4-06 ' / DATA PNAME_REF( IH2O2 ) / 'H2O2 ' / DATA PNAME_REF( INO2EX ) / 'NO2EX ' / DATA PNAME_REF( IPAN ) / 'PAN ' / DATA PNAME_REF( IHCHOR_06 ) / 'HCHOR-06 ' / DATA PNAME_REF( IHCHOM_06 ) / 'HCHOM-06 ' / DATA PNAME_REF( ICCHO_R ) / 'CCHO_R ' / DATA PNAME_REF( IC2CHO ) / 'C2CHO ' / DATA PNAME_REF( IACET_06 ) / 'ACET-06 ' / DATA PNAME_REF( IMEK_06 ) / 'MEK-06 ' / DATA PNAME_REF( ICOOH ) / 'COOH ' / DATA PNAME_REF( IGLY_07R ) / 'GLY-07R ' / DATA PNAME_REF( IGLY_07M ) / 'GLY-07M ' / DATA PNAME_REF( IMGLY_06 ) / 'MGLY-06 ' / DATA PNAME_REF( IBACL_07 ) / 'BACL-07 ' / DATA PNAME_REF( IBALD_06 ) / 'BALD-06 ' / DATA PNAME_REF( IAFG1 ) / 'AFG1 ' / DATA PNAME_REF( IMACR_06 ) / 'MACR-06 ' / DATA PNAME_REF( IMVK_06 ) / 'MVK-06 ' / DATA PNAME_REF( IIC3ONO2 ) / 'IC3ONO2 ' / DATA PNAME_REF( IHOCCHO_IUPAC ) / 'HOCCHO_IUPAC ' / DATA PNAME_REF( IACRO_09 ) / 'ACRO-09 ' / DATA PNAME_REF( IPAA ) / 'PAA ' / DATA PNAME_REF( ICL2 ) / 'CL2 ' / DATA PNAME_REF( ICLNO_06 ) / 'CLNO-06 ' / DATA PNAME_REF( ICLONO ) / 'CLONO ' / DATA PNAME_REF( ICLNO2 ) / 'CLNO2 ' / DATA PNAME_REF( ICLONO2_1 ) / 'CLONO2-1 ' / DATA PNAME_REF( ICLONO2_2 ) / 'CLONO2-2 ' / DATA PNAME_REF( IHOCL_06 ) / 'HOCL-06 ' / DATA PNAME_REF( ICLCCHO ) / 'CLCCHO ' / DATA PNAME_REF( ICLACET ) / 'CLACET ' / DATA PNAME_REF( INO2_SAPRC99 ) / 'NO2_SAPRC99 ' / DATA PNAME_REF( INO3NO_SAPRC99 ) / 'NO3NO_SAPRC99 ' / DATA PNAME_REF( INO3NO2_SAPRC99 ) / 'NO3NO2_SAPRC99 ' / DATA PNAME_REF( IO3O3P_SAPRC99 ) / 'O3O3P_SAPRC99 ' / DATA PNAME_REF( IO3O1D_SAPRC99 ) / 'O3O1D_SAPRC99 ' / DATA PNAME_REF( IHONO_NO_SAPRC99 ) / 'HONO_NO_SAPRC99 ' / DATA PNAME_REF( IHONO_NO2_SAPRC99 ) / 'HONO_NO2_SAPRC99' / DATA PNAME_REF( IHNO3_SAPRC99 ) / 'HNO3_SAPRC99 ' / DATA PNAME_REF( IHO2NO2_SAPRC99 ) / 'HO2NO2_SAPRC99 ' / DATA PNAME_REF( IH2O2_SAPRC99 ) / 'H2O2_SAPRC99 ' / DATA PNAME_REF( IHCHO_R_SAPRC99 ) / 'HCHO_R_SAPRC99 ' / DATA PNAME_REF( IHCHO_M_SAPRC99 ) / 'HCHO_M_SAPRC99 ' / DATA PNAME_REF( ICCHO_R_SAPRC99 ) / 'CCHO_R_SAPRC99 ' / DATA PNAME_REF( IC2CHO_SAPRC99 ) / 'C2CHO_SAPRC99 ' / DATA PNAME_REF( IACETONE_SAPRC99 ) / 'ACETONE_SAPRC99 ' / DATA PNAME_REF( IKETONE_SAPRC99 ) / 'KETONE_SAPRC99 ' / DATA PNAME_REF( ICOOH_SAPRC99 ) / 'COOH_SAPRC99 ' / DATA PNAME_REF( IGLY_R_SAPRC99 ) / 'GLY_R_SAPRC99 ' / DATA PNAME_REF( IGLY_ABS_SAPRC99 ) / 'GLY_ABS_SAPRC99 ' / DATA PNAME_REF( IMGLY_ADJ_SAPRC99 ) / 'MGLY_ADJ_SAPRC99' / DATA PNAME_REF( IBACL_ADJ_SAPRC99 ) / 'BACL_ADJ_SAPRC99' / DATA PNAME_REF( IBZCHO_SAPRC99 ) / 'BZCHO_SAPRC99 ' / DATA PNAME_REF( IACROLEIN_SAPRC99 ) / 'ACROLEIN_SAPRC99' / DATA PNAME_REF( IIC3ONO2_SAPRC99 ) / 'IC3ONO2_SAPRC99 ' / DATA PNAME_REF( IMGLY_ABS_SAPRC99 ) / 'MGLY_ABS_SAPRC99' / DATA PNAME_REF( IO3_O3P_IUPAC04 ) / 'O3_O3P_IUPAC04 ' / DATA PNAME_REF( IO3_O1D_IUPAC04 ) / 'O3_O1D_IUPAC04 ' / DATA PNAME_REF( IHONO_IUPAC04 ) / 'HONO_IUPAC04 ' / DATA PNAME_REF( IHO2NO2_IUPAC04 ) / 'HO2NO2_IUPAC04 ' / DATA PNAME_REF( IHNO3_IUPAC04 ) / 'HNO3_IUPAC04 ' / DATA PNAME_REF( IN2O5_IUPAC04 ) / 'N2O5_IUPAC04 ' / DATA PNAME_REF( INTR_IUPAC04 ) / 'NTR_IUPAC04 ' / DATA PNAME_REF( IPAN_IUPAC04 ) / 'PAN_IUPAC04 ' / DATA PNAME_REF( IPACD_CB05 ) / 'PACD_CB05 ' / DATA PNAME_REF( IMGLY_IUPAC04 ) / 'MGLY_IUPAC04 ' / DATA PNAME_REF( ICL2_IUPAC04 ) / 'CL2_IUPAC04 ' / DATA PNAME_REF( IHOCL_IUPAC04 ) / 'HOCL_IUPAC04 ' / DATA PNAME_REF( IFMCL_IUPAC04 ) / 'FMCL_IUPAC04 ' / DATA PNAME_REF( INO2 ) / 'NO2 ' / DATA PNAME_REF( IO3O1D ) / 'O3O1D ' / DATA PNAME_REF( IO3O3P ) / 'O3O3P ' / DATA PNAME_REF( IKETONE ) / 'KETONE ' / DATA PNAME_REF( IMGLY_ABS ) / 'MGLY_ABS ' / DATA PNAME_REF( IMGLY_ADJ ) / 'MGLY_ADJ ' / DATA PNAME_REF( IACETONE ) / 'ACETONE ' / C...Setup the Mapping from CMAQ chemical reactions to the reference data INTEGER, PARAMETER :: NPHOT_MAP = 84 ! # phot mapped reactions CHARACTER(16), SAVE :: PNAME_MAP( NPHOT_MAP ) INTEGER, SAVE :: PHOT_MAP( NPHOT_MAP ) DATA PNAME_MAP( 1 ), PHOT_MAP( 1 ) / 'NO2-06 ', INO2_06 / DATA PNAME_MAP( 2 ), PHOT_MAP( 2 ) / 'NO3NO-06 ', INO3NO_06 / DATA PNAME_MAP( 3 ), PHOT_MAP( 3 ) / 'NO3NO2-6 ', INO3NO2_6 / DATA PNAME_MAP( 4 ), PHOT_MAP( 4 ) / 'O3O1D-06 ', IO3O1D_06 / DATA PNAME_MAP( 5 ), PHOT_MAP( 5 ) / 'O3O3P-06 ', IO3O3P_06 / DATA PNAME_MAP( 6 ), PHOT_MAP( 6 ) / 'HONO-06 ', IHONO_06 / DATA PNAME_MAP( 7 ), PHOT_MAP( 7 ) / 'HNO3 ', IHNO3 / DATA PNAME_MAP( 8 ), PHOT_MAP( 8 ) / 'HNO4-06 ', IHNO4_06 / DATA PNAME_MAP( 9 ), PHOT_MAP( 9 ) / 'H2O2 ', IH2O2 / DATA PNAME_MAP( 10 ), PHOT_MAP( 10 ) / 'NO2EX ', INO2EX / DATA PNAME_MAP( 11 ), PHOT_MAP( 11 ) / 'PAN ', IPAN / DATA PNAME_MAP( 12 ), PHOT_MAP( 12 ) / 'HCHOR-06 ', IHCHOR_06 / DATA PNAME_MAP( 13 ), PHOT_MAP( 13 ) / 'HCHOM-06 ', IHCHOM_06 / DATA PNAME_MAP( 14 ), PHOT_MAP( 14 ) / 'CCHO_R ', ICCHO_R / DATA PNAME_MAP( 15 ), PHOT_MAP( 15 ) / 'C2CHO ', IC2CHO / DATA PNAME_MAP( 16 ), PHOT_MAP( 16 ) / 'ACET-06 ', IACET_06 / DATA PNAME_MAP( 17 ), PHOT_MAP( 17 ) / 'MEK-06 ', IMEK_06 / DATA PNAME_MAP( 18 ), PHOT_MAP( 18 ) / 'COOH ', ICOOH / DATA PNAME_MAP( 19 ), PHOT_MAP( 19 ) / 'GLY-07R ', IGLY_07R / DATA PNAME_MAP( 20 ), PHOT_MAP( 20 ) / 'GLY-07M ', IGLY_07M / DATA PNAME_MAP( 21 ), PHOT_MAP( 21 ) / 'MGLY-06 ', IMGLY_06 / DATA PNAME_MAP( 22 ), PHOT_MAP( 22 ) / 'BACL-07 ', IBACL_07 / DATA PNAME_MAP( 23 ), PHOT_MAP( 23 ) / 'BALD-06 ', IBALD_06 / DATA PNAME_MAP( 24 ), PHOT_MAP( 24 ) / 'AFG1 ', IAFG1 / DATA PNAME_MAP( 25 ), PHOT_MAP( 25 ) / 'MACR-06 ', IMACR_06 / DATA PNAME_MAP( 26 ), PHOT_MAP( 26 ) / 'MVK-06 ', IMVK_06 / DATA PNAME_MAP( 27 ), PHOT_MAP( 27 ) / 'IC3ONO2 ', IIC3ONO2 / DATA PNAME_MAP( 28 ), PHOT_MAP( 28 ) / 'HOCCHO_IUPAC ', IHOCCHO_IUPAC / DATA PNAME_MAP( 29 ), PHOT_MAP( 29 ) / 'ACRO-09 ', IACRO_09 / DATA PNAME_MAP( 30 ), PHOT_MAP( 30 ) / 'PAA ', IPAA / DATA PNAME_MAP( 31 ), PHOT_MAP( 31 ) / 'CL2 ', ICL2 / DATA PNAME_MAP( 32 ), PHOT_MAP( 32 ) / 'CLNO-06 ', ICLNO_06 / DATA PNAME_MAP( 33 ), PHOT_MAP( 33 ) / 'CLONO ', ICLONO / DATA PNAME_MAP( 34 ), PHOT_MAP( 34 ) / 'CLNO2 ', ICLNO2 / DATA PNAME_MAP( 35 ), PHOT_MAP( 35 ) / 'CLONO2-1 ', ICLONO2_1 / DATA PNAME_MAP( 36 ), PHOT_MAP( 36 ) / 'CLONO2-2 ', ICLONO2_2 / DATA PNAME_MAP( 37 ), PHOT_MAP( 37 ) / 'HOCL-06 ', IHOCL_06 / DATA PNAME_MAP( 38 ), PHOT_MAP( 38 ) / 'CLCCHO ', ICLCCHO / DATA PNAME_MAP( 39 ), PHOT_MAP( 39 ) / 'CLACET ', ICLACET / DATA PNAME_MAP( 40 ), PHOT_MAP( 40 ) / 'NO2_SAPRC99 ', INO2_SAPRC99 / DATA PNAME_MAP( 41 ), PHOT_MAP( 41 ) / 'NO3NO_SAPRC99 ', INO3NO_SAPRC99 / DATA PNAME_MAP( 42 ), PHOT_MAP( 42 ) / 'NO3NO2_SAPRC99 ', INO3NO2_SAPRC99 / DATA PNAME_MAP( 43 ), PHOT_MAP( 43 ) / 'O3O3P_SAPRC99 ', IO3O3P_SAPRC99 / DATA PNAME_MAP( 44 ), PHOT_MAP( 44 ) / 'O3O1D_SAPRC99 ', IO3O1D_SAPRC99 / DATA PNAME_MAP( 45 ), PHOT_MAP( 45 ) / 'HONO_NO_SAPRC99 ', IHONO_NO_SAPRC99 / DATA PNAME_MAP( 46 ), PHOT_MAP( 46 ) / 'HONO_NO2_SAPRC99', IHONO_NO2_SAPRC99 / DATA PNAME_MAP( 47 ), PHOT_MAP( 47 ) / 'HNO3_SAPRC99 ', IHNO3_SAPRC99 / DATA PNAME_MAP( 48 ), PHOT_MAP( 48 ) / 'HO2NO2_SAPRC99 ', IHO2NO2_SAPRC99 / DATA PNAME_MAP( 49 ), PHOT_MAP( 49 ) / 'H2O2_SAPRC99 ', IH2O2_SAPRC99 / DATA PNAME_MAP( 50 ), PHOT_MAP( 50 ) / 'HCHO_R_SAPRC99 ', IHCHO_R_SAPRC99 / DATA PNAME_MAP( 51 ), PHOT_MAP( 51 ) / 'HCHO_M_SAPRC99 ', IHCHO_M_SAPRC99 / DATA PNAME_MAP( 52 ), PHOT_MAP( 52 ) / 'CCHO_R_SAPRC99 ', ICCHO_R_SAPRC99 / DATA PNAME_MAP( 53 ), PHOT_MAP( 53 ) / 'C2CHO_SAPRC99 ', IC2CHO_SAPRC99 / DATA PNAME_MAP( 54 ), PHOT_MAP( 54 ) / 'ACETONE_SAPRC99 ', IACETONE_SAPRC99 / DATA PNAME_MAP( 55 ), PHOT_MAP( 55 ) / 'KETONE_SAPRC99 ', IKETONE_SAPRC99 / DATA PNAME_MAP( 56 ), PHOT_MAP( 56 ) / 'COOH_SAPRC99 ', ICOOH_SAPRC99 / DATA PNAME_MAP( 57 ), PHOT_MAP( 57 ) / 'GLY_R_SAPRC99 ', IGLY_R_SAPRC99 / DATA PNAME_MAP( 58 ), PHOT_MAP( 58 ) / 'GLY_ABS_SAPRC99 ', IGLY_ABS_SAPRC99 / DATA PNAME_MAP( 59 ), PHOT_MAP( 59 ) / 'MGLY_ADJ_SAPRC99', IMGLY_ADJ_SAPRC99 / DATA PNAME_MAP( 60 ), PHOT_MAP( 60 ) / 'BACL_ADJ_SAPRC99', IBACL_ADJ_SAPRC99 / DATA PNAME_MAP( 61 ), PHOT_MAP( 61 ) / 'BZCHO_SAPRC99 ', IBZCHO_SAPRC99 / DATA PNAME_MAP( 62 ), PHOT_MAP( 62 ) / 'ACROLEIN_SAPRC99', IACROLEIN_SAPRC99 / DATA PNAME_MAP( 63 ), PHOT_MAP( 63 ) / 'IC3ONO2_SAPRC99 ', IIC3ONO2_SAPRC99 / DATA PNAME_MAP( 64 ), PHOT_MAP( 64 ) / 'MGLY_ABS_SAPRC99', IMGLY_ABS_SAPRC99 / DATA PNAME_MAP( 65 ), PHOT_MAP( 65 ) / 'O3_O3P_IUPAC04 ', IO3_O3P_IUPAC04 / DATA PNAME_MAP( 66 ), PHOT_MAP( 66 ) / 'O3_O1D_IUPAC04 ', IO3_O1D_IUPAC04 / DATA PNAME_MAP( 67 ), PHOT_MAP( 67 ) / 'HONO_IUPAC04 ', IHONO_IUPAC04 / DATA PNAME_MAP( 68 ), PHOT_MAP( 68 ) / 'HO2NO2_IUPAC04 ', IHO2NO2_IUPAC04 / DATA PNAME_MAP( 69 ), PHOT_MAP( 69 ) / 'HNO3_IUPAC04 ', IHNO3_IUPAC04 / DATA PNAME_MAP( 70 ), PHOT_MAP( 70 ) / 'N2O5_IUPAC04 ', IN2O5_IUPAC04 / DATA PNAME_MAP( 71 ), PHOT_MAP( 71 ) / 'NTR_IUPAC04 ', INTR_IUPAC04 / DATA PNAME_MAP( 72 ), PHOT_MAP( 72 ) / 'PAN_IUPAC04 ', IPAN_IUPAC04 / DATA PNAME_MAP( 73 ), PHOT_MAP( 73 ) / 'PACD_CB05 ', IPACD_CB05 / DATA PNAME_MAP( 74 ), PHOT_MAP( 74 ) / 'MGLY_IUPAC04 ', IMGLY_IUPAC04 / DATA PNAME_MAP( 75 ), PHOT_MAP( 75 ) / 'CL2_IUPAC04 ', ICL2_IUPAC04 / DATA PNAME_MAP( 76 ), PHOT_MAP( 76 ) / 'HOCL_IUPAC04 ', IHOCL_IUPAC04 / DATA PNAME_MAP( 77 ), PHOT_MAP( 77 ) / 'FMCL_IUPAC04 ', IFMCL_IUPAC04 / DATA PNAME_MAP( 78 ), PHOT_MAP( 78 ) / 'NO2 ', INO2 / DATA PNAME_MAP( 79 ), PHOT_MAP( 79 ) / 'O3O1D ', IO3O1D / DATA PNAME_MAP( 80 ), PHOT_MAP( 80 ) / 'O3O3P ', IO3O3P / DATA PNAME_MAP( 81 ), PHOT_MAP( 81 ) / 'KETONE ', IKETONE / DATA PNAME_MAP( 82 ), PHOT_MAP( 82 ) / 'MGLY_ABS ', IMGLY_ABS / DATA PNAME_MAP( 83 ), PHOT_MAP( 83 ) / 'MGLY_ADJ ', IMGLY_ADJ / DATA PNAME_MAP( 84 ), PHOT_MAP( 84 ) / 'ACETONE ', IACETONE / REAL, SAVE :: TEMP_REF( NTEMP_REF, NPHOT_REF ) ! reference temperatures REAL, SAVE :: CS_REF( NPHOT_REF, NTEMP_REF, NWL_REF ) ! effective cross sections REAL, SAVE :: QY_REF( NPHOT_REF, NTEMP_REF, NWL_REF ) ! effective quantum yields REAL, SAVE :: ECS_REF( NPHOT_REF, NTEMP_REF, NWL_REF ) ! CS*QY averaged UCI Solar Flux C... effective quantum yields were computed by performing separate C... interval integrations for the cross sections and for the C... effective cross sections (cs*qy) (calculated on the finer C... wavelength grid. The effective quantum yield values C... were then calculated for the 7 wavelength intervals by C... dividing the effective cross sections by the interval average C... cross sections (eQY=eCS/CS). REAL, SAVE :: EQY_REF( NPHOT_REF, NTEMP_REF, NWL_REF ) ! eCS/CS averaged 77 bins in UCI Model INTEGER :: IWLR ! wavelength loop variable INTEGER :: ITTR ! temperature loop variable C...NO2-06 C.. NO2 + HV = NO + O C.. From NASA (2006). C.. Absorption cross sections are averages for wavelength intervals given. C.. Data alligned to smallest wavelength intervals for abs. coefs and qy's. C.. C... reference temperatures (K) DATA ( TEMP_REF( ITTR, INO2_06 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( INO2_06, 1, IWLR ), IWLR = 1, 7 ) / & 1.075248E-19, 1.484195E-19, 1.882053E-19, 2.274755E-19, & 3.449308E-19, 5.754674E-19, 1.195356E-20 / DATA ( CS_REF( INO2_06, 2, IWLR ), IWLR = 1, 7 ) / & 1.075248E-19, 1.484195E-19, 1.882053E-19, 2.274755E-19, & 3.449308E-19, 5.754674E-19, 1.195356E-20 / DATA ( CS_REF( INO2_06, 3, IWLR ), IWLR = 1, 7 ) / & 1.075248E-19, 1.484195E-19, 1.882053E-19, 2.274755E-19, & 3.449308E-19, 5.754674E-19, 1.195356E-20 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( INO2_06, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 8.174767E-01, 7.500220E-04 / DATA ( QY_REF( INO2_06, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 8.174767E-01, 7.500220E-04 / DATA ( QY_REF( INO2_06, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 8.174767E-01, 7.500220E-04 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( INO2_06, 1, IWLR ), IWLR = 1, 7 ) / & 1.075248E-19, 1.484195E-19, 1.882053E-19, 2.274755E-19, & 3.449308E-19, 4.644383E-19, 4.476030E-22 / DATA ( ECS_REF( INO2_06, 2, IWLR ), IWLR = 1, 7 ) / & 1.075248E-19, 1.484195E-19, 1.882053E-19, 2.274755E-19, & 3.449308E-19, 4.644383E-19, 4.476030E-22 / DATA ( ECS_REF( INO2_06, 3, IWLR ), IWLR = 1, 7 ) / & 1.075248E-19, 1.484195E-19, 1.882053E-19, 2.274755E-19, & 3.449308E-19, 4.644383E-19, 4.476030E-22 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( INO2_06, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 8.070627E-01, 3.744516E-02 / DATA ( EQY_REF( INO2_06, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 8.070627E-01, 3.744516E-02 / DATA ( EQY_REF( INO2_06, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 8.070627E-01, 3.744516E-02 / C...NO3NO-06 C.. NO3 + HV = NO + O2 C.. From NASA (2006), for 298 K. C.. Quantum yields for wavelengths above 640 nm estimated by linear extrapolation. C.. C... reference temperatures (K) DATA ( TEMP_REF( ITTR, INO3NO_06 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( INO3NO_06, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 0.000000E+00, 6.269962E-19 / DATA ( CS_REF( INO3NO_06, 2, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 0.000000E+00, 6.269962E-19 / DATA ( CS_REF( INO3NO_06, 3, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 0.000000E+00, 6.269962E-19 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( INO3NO_06, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 0.000000E+00, 2.298857E-02 / DATA ( QY_REF( INO3NO_06, 2, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 0.000000E+00, 2.298857E-02 / DATA ( QY_REF( INO3NO_06, 3, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 0.000000E+00, 2.298857E-02 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( INO3NO_06, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 0.000000E+00, 9.811753E-20 / DATA ( ECS_REF( INO3NO_06, 2, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 0.000000E+00, 9.811753E-20 / DATA ( ECS_REF( INO3NO_06, 3, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 0.000000E+00, 9.811753E-20 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( INO3NO_06, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 0.000000E+00, 1.564883E-01 / DATA ( EQY_REF( INO3NO_06, 2, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 0.000000E+00, 1.564883E-01 / DATA ( EQY_REF( INO3NO_06, 3, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 0.000000E+00, 1.564883E-01 / C...NO3NO2-6 C.. NO3 + HV = NO2 + O C.. From NASA (2006), for 298 K. C.. Quantum yields for wavelengths above 640 nm estimated by linear extrapolation. C.. C... reference temperatures (K) DATA ( TEMP_REF( ITTR, INO3NO2_6 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( INO3NO2_6, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 4.027451E-21, 1.227490E-18 / DATA ( CS_REF( INO3NO2_6, 2, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 4.027451E-21, 1.227490E-18 / DATA ( CS_REF( INO3NO2_6, 3, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 4.027451E-21, 1.227490E-18 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( INO3NO2_6, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 2.130039E-01, 4.268056E-01 / DATA ( QY_REF( INO3NO2_6, 2, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 2.130039E-01, 4.268056E-01 / DATA ( QY_REF( INO3NO2_6, 3, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 2.130039E-01, 4.268056E-01 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( INO3NO2_6, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 4.021672E-21, 7.834468E-19 / DATA ( ECS_REF( INO3NO2_6, 2, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 4.021672E-21, 7.834468E-19 / DATA ( ECS_REF( INO3NO2_6, 3, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 4.021672E-21, 7.834468E-19 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( INO3NO2_6, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 9.985652E-01, 6.382512E-01 / DATA ( EQY_REF( INO3NO2_6, 2, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 9.985652E-01, 6.382512E-01 / DATA ( EQY_REF( INO3NO2_6, 3, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 9.985652E-01, 6.382512E-01 / C...O3O1D-06 C.. O3 + HV = O1D + O2 C.. NASA (2006) abs. Coefs and IUPAC (2006) quantum yields C.. Absorption cross sections from NASA (2006). C.. Quantum yields are from IUPAC (2006) recommendation, interpolated C.. to the NASA (2006) absorption cross section wavelengths. C.. NASA (2006) does not give useable recommendations for the absorption C.. cross sections, except at <305 and >329 nm, where they are consistent C.. with the IUPAC recommendations. C.. Formation of O1D assumed not to occur at the high wavelength band. C.. C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IO3O1D_06 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IO3O1D_06, 1, IWLR ), IWLR = 1, 7 ) / & 8.538728E-19, 2.750705E-19, 1.063739E-19, 4.625938E-20, & 6.599046E-21, 5.460110E-23, 0.000000E+00 / DATA ( CS_REF( IO3O1D_06, 2, IWLR ), IWLR = 1, 7 ) / & 8.538728E-19, 2.750705E-19, 1.063739E-19, 4.625938E-20, & 6.599046E-21, 5.460110E-23, 0.000000E+00 / DATA ( CS_REF( IO3O1D_06, 3, IWLR ), IWLR = 1, 7 ) / & 8.538728E-19, 2.750705E-19, 1.063739E-19, 4.625938E-20, & 6.599046E-21, 5.460110E-23, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IO3O1D_06, 1, IWLR ), IWLR = 1, 7 ) / & 9.000000E-01, 8.929066E-01, 5.359897E-01, 2.218182E-01, & 8.688402E-02, 4.278573E-02, 0.000000E+00 / DATA ( QY_REF( IO3O1D_06, 2, IWLR ), IWLR = 1, 7 ) / & 9.000000E-01, 8.929066E-01, 5.359897E-01, 2.218182E-01, & 8.688402E-02, 4.278573E-02, 0.000000E+00 / DATA ( QY_REF( IO3O1D_06, 3, IWLR ), IWLR = 1, 7 ) / & 9.000000E-01, 8.929066E-01, 5.359897E-01, 2.218182E-01, & 8.688402E-02, 4.278573E-02, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IO3O1D_06, 1, IWLR ), IWLR = 1, 7 ) / & 7.684855E-19, 2.464146E-19, 6.078741E-20, 1.068696E-20, & 6.625140E-22, 4.350830E-24, 0.000000E+00 / DATA ( ECS_REF( IO3O1D_06, 2, IWLR ), IWLR = 1, 7 ) / & 7.684855E-19, 2.464146E-19, 6.078741E-20, 1.068696E-20, & 6.625140E-22, 4.350830E-24, 0.000000E+00 / DATA ( ECS_REF( IO3O1D_06, 3, IWLR ), IWLR = 1, 7 ) / & 7.684855E-19, 2.464146E-19, 6.078741E-20, 1.068696E-20, & 6.625140E-22, 4.350830E-24, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IO3O1D_06, 1, IWLR ), IWLR = 1, 7 ) / & 9.000000E-01, 8.958234E-01, 5.714505E-01, 2.310225E-01, & 1.003954E-01, 7.968391E-02, 0.000000E+00 / DATA ( EQY_REF( IO3O1D_06, 2, IWLR ), IWLR = 1, 7 ) / & 9.000000E-01, 8.958234E-01, 5.714505E-01, 2.310225E-01, & 1.003954E-01, 7.968391E-02, 0.000000E+00 / DATA ( EQY_REF( IO3O1D_06, 3, IWLR ), IWLR = 1, 7 ) / & 9.000000E-01, 8.958234E-01, 5.714505E-01, 2.310225E-01, & 1.003954E-01, 7.968391E-02, 0.000000E+00 / C...O3O3P-06 C.. O3 + HV = O3P + O2 C.. Absorption cross sections from NASA (2006). C.. Quantum yields are derived from the O1D quantum yields in the low wavelength re C.. Unit quantum yields assumed in high wavelength region. C.. Absorption cross sections below 829 nm are extrapolated C.. C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IO3O3P_06 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IO3O3P_06, 1, IWLR ), IWLR = 1, 7 ) / & 8.407954E-19, 2.749065E-19, 1.063739E-19, 4.625938E-20, & 6.803406E-21, 6.139220E-23, 1.666851E-21 / DATA ( CS_REF( IO3O3P_06, 2, IWLR ), IWLR = 1, 7 ) / & 8.407954E-19, 2.749065E-19, 1.063739E-19, 4.625938E-20, & 6.803406E-21, 6.139220E-23, 1.666851E-21 / DATA ( CS_REF( IO3O3P_06, 3, IWLR ), IWLR = 1, 7 ) / & 8.407954E-19, 2.749065E-19, 1.063739E-19, 4.625938E-20, & 6.803406E-21, 6.139220E-23, 1.666851E-21 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IO3O3P_06, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E-01, 1.070934E-01, 4.640103E-01, 7.781818E-01, & 9.123903E-01, 9.572143E-01, 9.795594E-01 / DATA ( QY_REF( IO3O3P_06, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E-01, 1.070934E-01, 4.640103E-01, 7.781818E-01, & 9.123903E-01, 9.572143E-01, 9.795594E-01 / DATA ( QY_REF( IO3O3P_06, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E-01, 1.070934E-01, 4.640103E-01, 7.781818E-01, & 9.123903E-01, 9.572143E-01, 9.795594E-01 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IO3O3P_06, 1, IWLR ), IWLR = 1, 7 ) / & 8.407954E-20, 2.863951E-20, 4.558648E-20, 3.557242E-20, & 6.109183E-21, 5.704138E-23, 1.666851E-21 / DATA ( ECS_REF( IO3O3P_06, 2, IWLR ), IWLR = 1, 7 ) / & 8.407954E-20, 2.863951E-20, 4.558648E-20, 3.557242E-20, & 6.109183E-21, 5.704138E-23, 1.666851E-21 / DATA ( ECS_REF( IO3O3P_06, 3, IWLR ), IWLR = 1, 7 ) / & 8.407954E-20, 2.863951E-20, 4.558648E-20, 3.557242E-20, & 6.109183E-21, 5.704138E-23, 1.666851E-21 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IO3O3P_06, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E-01, 1.041791E-01, 4.285495E-01, 7.689775E-01, & 8.979595E-01, 9.291306E-01, 1.000000E+00 / DATA ( EQY_REF( IO3O3P_06, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E-01, 1.041791E-01, 4.285495E-01, 7.689775E-01, & 8.979595E-01, 9.291306E-01, 1.000000E+00 / DATA ( EQY_REF( IO3O3P_06, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E-01, 1.041791E-01, 4.285495E-01, 7.689775E-01, & 8.979595E-01, 9.291306E-01, 1.000000E+00 / C...HONO-06 C.. HONO + HV = HO. + NO C.. NASA (2006) recommended absorption cross sections. No recommendation on quantum yields. C.. IUPAC (2005) recommendation (Data Sheet PNOx1, July, 2001) recommends unit quantum yield C.. for OH + NO. C.. (IUPAC recommended absorption cross sections are low resolution, so NASA values are C.. preferred) C.. C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IHONO_06 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IHONO_06, 1, IWLR ), IWLR = 1, 7 ) / & 5.486961E-21, 9.335561E-21, 1.881716E-20, 3.188688E-20, & 9.007190E-20, 6.903974E-20, 0.000000E+00 / DATA ( CS_REF( IHONO_06, 2, IWLR ), IWLR = 1, 7 ) / & 5.486961E-21, 9.335561E-21, 1.881716E-20, 3.188688E-20, & 9.007190E-20, 6.903974E-20, 0.000000E+00 / DATA ( CS_REF( IHONO_06, 3, IWLR ), IWLR = 1, 7 ) / & 5.486961E-21, 9.335561E-21, 1.881716E-20, 3.188688E-20, & 9.007190E-20, 6.903974E-20, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IHONO_06, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 6.771221E-01, 0.000000E+00 / DATA ( QY_REF( IHONO_06, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 6.771221E-01, 0.000000E+00 / DATA ( QY_REF( IHONO_06, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 6.771221E-01, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IHONO_06, 1, IWLR ), IWLR = 1, 7 ) / & 5.486961E-21, 9.335561E-21, 1.881716E-20, 3.188688E-20, & 9.007190E-20, 6.903974E-20, 0.000000E+00 / DATA ( ECS_REF( IHONO_06, 2, IWLR ), IWLR = 1, 7 ) / & 5.486961E-21, 9.335561E-21, 1.881716E-20, 3.188688E-20, & 9.007190E-20, 6.903974E-20, 0.000000E+00 / DATA ( ECS_REF( IHONO_06, 3, IWLR ), IWLR = 1, 7 ) / & 5.486961E-21, 9.335561E-21, 1.881716E-20, 3.188688E-20, & 9.007190E-20, 6.903974E-20, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IHONO_06, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 0.000000E+00 / DATA ( EQY_REF( IHONO_06, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 0.000000E+00 / DATA ( EQY_REF( IHONO_06, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 0.000000E+00 / C...HNO3 C.. HNO3 + HV = products C.. IUPAC (1997) Recommendation C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IHNO3 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IHNO3, 1, IWLR ), IWLR = 1, 7 ) / & 4.358850E-21, 1.954554E-21, 8.462462E-22, 3.649777E-22, & 4.770195E-23, 3.875268E-25, 0.000000E+00 / DATA ( CS_REF( IHNO3, 2, IWLR ), IWLR = 1, 7 ) / & 4.358850E-21, 1.954554E-21, 8.462462E-22, 3.649777E-22, & 4.770195E-23, 3.875268E-25, 0.000000E+00 / DATA ( CS_REF( IHNO3, 3, IWLR ), IWLR = 1, 7 ) / & 4.358850E-21, 1.954554E-21, 8.462462E-22, 3.649777E-22, & 4.770195E-23, 3.875268E-25, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IHNO3, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.142428E-01, 0.000000E+00 / DATA ( QY_REF( IHNO3, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.142428E-01, 0.000000E+00 / DATA ( QY_REF( IHNO3, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.142428E-01, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IHNO3, 1, IWLR ), IWLR = 1, 7 ) / & 4.358850E-21, 1.954554E-21, 8.462462E-22, 3.649777E-22, & 4.770195E-23, 3.875251E-25, 0.000000E+00 / DATA ( ECS_REF( IHNO3, 2, IWLR ), IWLR = 1, 7 ) / & 4.358850E-21, 1.954554E-21, 8.462462E-22, 3.649777E-22, & 4.770195E-23, 3.875251E-25, 0.000000E+00 / DATA ( ECS_REF( IHNO3, 3, IWLR ), IWLR = 1, 7 ) / & 4.358850E-21, 1.954554E-21, 8.462462E-22, 3.649777E-22, & 4.770195E-23, 3.875251E-25, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IHNO3, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999956E-01, 0.000000E+00 / DATA ( EQY_REF( IHNO3, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999956E-01, 0.000000E+00 / DATA ( EQY_REF( IHNO3, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999956E-01, 0.000000E+00 / C...HNO4-06 C.. HO2NO2 + HV = PRODUCTS C.. NASA (2006) C.. C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IHNO4_06 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IHNO4_06, 1, IWLR ), IWLR = 1, 7 ) / & 2.685089E-20, 1.173542E-20, 5.713448E-21, 3.110138E-21, & 8.269172E-22, 2.119340E-23, 0.000000E+00 / DATA ( CS_REF( IHNO4_06, 2, IWLR ), IWLR = 1, 7 ) / & 2.685089E-20, 1.173542E-20, 5.713448E-21, 3.110138E-21, & 8.269172E-22, 2.119340E-23, 0.000000E+00 / DATA ( CS_REF( IHNO4_06, 3, IWLR ), IWLR = 1, 7 ) / & 2.685089E-20, 1.173542E-20, 5.713448E-21, 3.110138E-21, & 8.269172E-22, 2.119340E-23, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IHNO4_06, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.684180E-01, 0.000000E+00 / DATA ( QY_REF( IHNO4_06, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.684180E-01, 0.000000E+00 / DATA ( QY_REF( IHNO4_06, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.684180E-01, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IHNO4_06, 1, IWLR ), IWLR = 1, 7 ) / & 2.685089E-20, 1.173542E-20, 5.713448E-21, 3.110138E-21, & 8.269172E-22, 2.119337E-23, 0.000000E+00 / DATA ( ECS_REF( IHNO4_06, 2, IWLR ), IWLR = 1, 7 ) / & 2.685089E-20, 1.173542E-20, 5.713448E-21, 3.110138E-21, & 8.269172E-22, 2.119337E-23, 0.000000E+00 / DATA ( ECS_REF( IHNO4_06, 3, IWLR ), IWLR = 1, 7 ) / & 2.685089E-20, 1.173542E-20, 5.713448E-21, 3.110138E-21, & 8.269172E-22, 2.119337E-23, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IHNO4_06, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999983E-01, 0.000000E+00 / DATA ( EQY_REF( IHNO4_06, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999983E-01, 0.000000E+00 / DATA ( EQY_REF( IHNO4_06, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999983E-01, 0.000000E+00 / C...H2O2 C.. H2O2 + HV = 2 OH C.. IUPAC (1997) Recommended. C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IH2O2 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IH2O2, 1, IWLR ), IWLR = 1, 7 ) / & 9.353266E-21, 5.771016E-21, 3.923017E-21, 2.721918E-21, & 1.138123E-21, 3.606306E-23, 0.000000E+00 / DATA ( CS_REF( IH2O2, 2, IWLR ), IWLR = 1, 7 ) / & 9.353266E-21, 5.771016E-21, 3.923017E-21, 2.721918E-21, & 1.138123E-21, 3.606306E-23, 0.000000E+00 / DATA ( CS_REF( IH2O2, 3, IWLR ), IWLR = 1, 7 ) / & 9.353266E-21, 5.771016E-21, 3.923017E-21, 2.721918E-21, & 1.138123E-21, 3.606306E-23, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IH2O2, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.142428E-01, 0.000000E+00 / DATA ( QY_REF( IH2O2, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.142428E-01, 0.000000E+00 / DATA ( QY_REF( IH2O2, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.142428E-01, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IH2O2, 1, IWLR ), IWLR = 1, 7 ) / & 9.353266E-21, 5.771016E-21, 3.923017E-21, 2.721918E-21, & 1.138123E-21, 3.606289E-23, 0.000000E+00 / DATA ( ECS_REF( IH2O2, 2, IWLR ), IWLR = 1, 7 ) / & 9.353266E-21, 5.771016E-21, 3.923017E-21, 2.721918E-21, & 1.138123E-21, 3.606289E-23, 0.000000E+00 / DATA ( ECS_REF( IH2O2, 3, IWLR ), IWLR = 1, 7 ) / & 9.353266E-21, 5.771016E-21, 3.923017E-21, 2.721918E-21, & 1.138123E-21, 3.606289E-23, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IH2O2, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999954E-01, 0.000000E+00 / DATA ( EQY_REF( IH2O2, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999954E-01, 0.000000E+00 / DATA ( EQY_REF( IH2O2, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999954E-01, 0.000000E+00 / C...NO2EX C.. NO2 + HV = NO2* C.. From NASA (2006), for 294 K. C.. Absorption cross sections are averages for wavelength intervals given. C.. Data alligned to smallest wavelength intervals for abs. coefs and qy's. C.. C... reference temperatures (K) DATA ( TEMP_REF( ITTR, INO2EX ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( INO2EX, 1, IWLR ), IWLR = 1, 7 ) / & 1.075248E-19, 1.484195E-19, 1.882053E-19, 2.274755E-19, & 3.449308E-19, 5.754674E-19, 1.067281E-19 / DATA ( CS_REF( INO2EX, 2, IWLR ), IWLR = 1, 7 ) / & 1.075248E-19, 1.484195E-19, 1.882053E-19, 2.274755E-19, & 3.449308E-19, 5.754674E-19, 1.067281E-19 / DATA ( CS_REF( INO2EX, 3, IWLR ), IWLR = 1, 7 ) / & 1.075248E-19, 1.484195E-19, 1.882053E-19, 2.274755E-19, & 3.449308E-19, 5.754674E-19, 1.067281E-19 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( INO2EX, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 1.825233E-01, 5.823866E-01 / DATA ( QY_REF( INO2EX, 2, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 1.825233E-01, 5.823866E-01 / DATA ( QY_REF( INO2EX, 3, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 1.825233E-01, 5.823866E-01 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( INO2EX, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 1.110291E-19, 1.062805E-19 / DATA ( ECS_REF( INO2EX, 2, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 1.110291E-19, 1.062805E-19 / DATA ( ECS_REF( INO2EX, 3, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 1.110291E-19, 1.062805E-19 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( INO2EX, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 1.929373E-01, 9.958061E-01 / DATA ( EQY_REF( INO2EX, 2, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 1.929373E-01, 9.958061E-01 / DATA ( EQY_REF( INO2EX, 3, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 1.929373E-01, 9.958061E-01 / C...PAN C.. PAN + HV = #.6 {MECO3 + NO2} + #.4 {MEO2 + CO2 + NO3} C.. IUPAC Data Sheet P21.updated: 12/19/05 C.. Reaction reflects recommended quantum yields at 308 nm C.. C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IPAN ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IPAN, 1, IWLR ), IWLR = 1, 7 ) / & 3.530296E-21, 1.417990E-21, 6.732224E-22, 3.640893E-22, & 9.143990E-23, 1.597520E-24, 0.000000E+00 / DATA ( CS_REF( IPAN, 2, IWLR ), IWLR = 1, 7 ) / & 3.530296E-21, 1.417990E-21, 6.732224E-22, 3.640893E-22, & 9.143990E-23, 1.597520E-24, 0.000000E+00 / DATA ( CS_REF( IPAN, 3, IWLR ), IWLR = 1, 7 ) / & 3.530296E-21, 1.417990E-21, 6.732224E-22, 3.640893E-22, & 9.143990E-23, 1.597520E-24, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IPAN, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.009612E-01, 0.000000E+00 / DATA ( QY_REF( IPAN, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.009612E-01, 0.000000E+00 / DATA ( QY_REF( IPAN, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.009612E-01, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IPAN, 1, IWLR ), IWLR = 1, 7 ) / & 3.530296E-21, 1.417990E-21, 6.732224E-22, 3.640893E-22, & 9.143990E-23, 1.597511E-24, 0.000000E+00 / DATA ( ECS_REF( IPAN, 2, IWLR ), IWLR = 1, 7 ) / & 3.530296E-21, 1.417990E-21, 6.732224E-22, 3.640893E-22, & 9.143990E-23, 1.597511E-24, 0.000000E+00 / DATA ( ECS_REF( IPAN, 3, IWLR ), IWLR = 1, 7 ) / & 3.530296E-21, 1.417990E-21, 6.732224E-22, 3.640893E-22, & 9.143990E-23, 1.597511E-24, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IPAN, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999946E-01, 0.000000E+00 / DATA ( EQY_REF( IPAN, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999946E-01, 0.000000E+00 / DATA ( EQY_REF( IPAN, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999946E-01, 0.000000E+00 / C...HCHOR-06 C.. HCHO + HV = HCO. + H. C.. IUPAC Subcommittee on Gas Kinetic Data Evaluation Data Sheet P1 C.. This datasheet updated: 16th May 2002. C.. Website: http://www.iupac-kinetic.ch.cam.ac.uk/. C.. IUPAC recommendations used for both absorption cross sections and quantum yield C.. C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IHCHOR_06 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IHCHOR_06, 1, IWLR ), IWLR = 1, 7 ) / & 3.170115E-20, 3.298361E-20, 1.534595E-20, 3.259295E-20, & 1.516365E-20, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( IHCHOR_06, 2, IWLR ), IWLR = 1, 7 ) / & 3.170115E-20, 3.298361E-20, 1.534595E-20, 3.259295E-20, & 1.516365E-20, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( IHCHOR_06, 3, IWLR ), IWLR = 1, 7 ) / & 3.170115E-20, 3.298361E-20, 1.534595E-20, 3.259295E-20, & 1.516365E-20, 0.000000E+00, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IHCHOR_06, 1, IWLR ), IWLR = 1, 7 ) / & 6.851836E-01, 7.182512E-01, 7.159075E-01, 6.839373E-01, & 2.830292E-01, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( IHCHOR_06, 2, IWLR ), IWLR = 1, 7 ) / & 6.851836E-01, 7.182512E-01, 7.159075E-01, 6.839373E-01, & 2.830292E-01, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( IHCHOR_06, 3, IWLR ), IWLR = 1, 7 ) / & 6.851836E-01, 7.182512E-01, 7.159075E-01, 6.839373E-01, & 2.830292E-01, 0.000000E+00, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IHCHOR_06, 1, IWLR ), IWLR = 1, 7 ) / & 2.165864E-20, 2.395194E-20, 1.104754E-20, 2.236421E-20, & 5.554628E-21, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( IHCHOR_06, 2, IWLR ), IWLR = 1, 7 ) / & 2.165864E-20, 2.395194E-20, 1.104754E-20, 2.236421E-20, & 5.554628E-21, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( IHCHOR_06, 3, IWLR ), IWLR = 1, 7 ) / & 2.165864E-20, 2.395194E-20, 1.104754E-20, 2.236421E-20, & 5.554628E-21, 0.000000E+00, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IHCHOR_06, 1, IWLR ), IWLR = 1, 7 ) / & 6.832129E-01, 7.261769E-01, 7.198996E-01, 6.861672E-01, & 3.663122E-01, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( IHCHOR_06, 2, IWLR ), IWLR = 1, 7 ) / & 6.832129E-01, 7.261769E-01, 7.198996E-01, 6.861672E-01, & 3.663122E-01, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( IHCHOR_06, 3, IWLR ), IWLR = 1, 7 ) / & 6.832129E-01, 7.261769E-01, 7.198996E-01, 6.861672E-01, & 3.663122E-01, 0.000000E+00, 0.000000E+00 / C...HCHOM-06 C.. HCHO + HV = H2 + CO C.. IUPAC Subcommittee on Gas Kinetic Data Evaluation Data Sheet P1 C.. This datasheet updated: 16th May 2002. C.. Website: http://www.iupac-kinetic.ch.cam.ac.uk/. C.. IUPAC recommendations used for both absorption cross sections and quantum yield C.. Quantum yields for wl < 0.360 interpolated. C.. C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IHCHOM_06 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IHCHOM_06, 1, IWLR ), IWLR = 1, 7 ) / & 3.170115E-20, 3.298361E-20, 1.534595E-20, 3.259295E-20, & 1.806860E-20, 7.417042E-22, 0.000000E+00 / DATA ( CS_REF( IHCHOM_06, 2, IWLR ), IWLR = 1, 7 ) / & 3.170115E-20, 3.298361E-20, 1.534595E-20, 3.259295E-20, & 1.806860E-20, 7.417042E-22, 0.000000E+00 / DATA ( CS_REF( IHCHOM_06, 3, IWLR ), IWLR = 1, 7 ) / & 3.170115E-20, 3.298361E-20, 1.534595E-20, 3.259295E-20, & 1.806860E-20, 7.417042E-22, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IHCHOM_06, 1, IWLR ), IWLR = 1, 7 ) / & 2.954926E-01, 2.804151E-01, 2.842610E-01, 3.165711E-01, & 4.879651E-01, 3.037100E-02, 0.000000E+00 / DATA ( QY_REF( IHCHOM_06, 2, IWLR ), IWLR = 1, 7 ) / & 2.954926E-01, 2.804151E-01, 2.842610E-01, 3.165711E-01, & 4.879651E-01, 3.037100E-02, 0.000000E+00 / DATA ( QY_REF( IHCHOM_06, 3, IWLR ), IWLR = 1, 7 ) / & 2.954926E-01, 2.804151E-01, 2.842610E-01, 3.165711E-01, & 4.879651E-01, 3.037100E-02, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IHCHOM_06, 1, IWLR ), IWLR = 1, 7 ) / & 9.456341E-21, 8.996975E-21, 4.301307E-21, 1.024271E-20, & 8.938935E-21, 1.182654E-22, 0.000000E+00 / DATA ( ECS_REF( IHCHOM_06, 2, IWLR ), IWLR = 1, 7 ) / & 9.456341E-21, 8.996975E-21, 4.301307E-21, 1.024271E-20, & 8.938935E-21, 1.182654E-22, 0.000000E+00 / DATA ( ECS_REF( IHCHOM_06, 3, IWLR ), IWLR = 1, 7 ) / & 9.456341E-21, 8.996975E-21, 4.301307E-21, 1.024271E-20, & 8.938935E-21, 1.182654E-22, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IHCHOM_06, 1, IWLR ), IWLR = 1, 7 ) / & 2.982965E-01, 2.727711E-01, 2.802895E-01, 3.142615E-01, & 4.947222E-01, 1.594508E-01, 0.000000E+00 / DATA ( EQY_REF( IHCHOM_06, 2, IWLR ), IWLR = 1, 7 ) / & 2.982965E-01, 2.727711E-01, 2.802895E-01, 3.142615E-01, & 4.947222E-01, 1.594508E-01, 0.000000E+00 / DATA ( EQY_REF( IHCHOM_06, 3, IWLR ), IWLR = 1, 7 ) / & 2.982965E-01, 2.727711E-01, 2.802895E-01, 3.142615E-01, & 4.947222E-01, 1.594508E-01, 0.000000E+00 / C...CCHO_R C.. CCHO + HV = CH3 + CHO C.. IUPAC (1997) C... reference temperatures (K) DATA ( TEMP_REF( ITTR, ICCHO_R ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( ICCHO_R, 1, IWLR ), IWLR = 1, 7 ) / & 4.432586E-20, 3.717937E-20, 2.933103E-20, 2.104728E-20, & 3.715596E-21, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( ICCHO_R, 2, IWLR ), IWLR = 1, 7 ) / & 4.432586E-20, 3.717937E-20, 2.933103E-20, 2.104728E-20, & 3.715596E-21, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( ICCHO_R, 3, IWLR ), IWLR = 1, 7 ) / & 4.432586E-20, 3.717937E-20, 2.933103E-20, 2.104728E-20, & 3.715596E-21, 0.000000E+00, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( ICCHO_R, 1, IWLR ), IWLR = 1, 7 ) / & 4.839485E-01, 3.902037E-01, 2.845214E-01, 1.538485E-01, & 1.409402E-02, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( ICCHO_R, 2, IWLR ), IWLR = 1, 7 ) / & 4.839485E-01, 3.902037E-01, 2.845214E-01, 1.538485E-01, & 1.409402E-02, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( ICCHO_R, 3, IWLR ), IWLR = 1, 7 ) / & 4.839485E-01, 3.902037E-01, 2.845214E-01, 1.538485E-01, & 1.409402E-02, 0.000000E+00, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( ICCHO_R, 1, IWLR ), IWLR = 1, 7 ) / & 2.147745E-20, 1.461038E-20, 8.426962E-21, 3.330092E-21, & 1.731218E-22, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( ICCHO_R, 2, IWLR ), IWLR = 1, 7 ) / & 2.147745E-20, 1.461038E-20, 8.426962E-21, 3.330092E-21, & 1.731218E-22, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( ICCHO_R, 3, IWLR ), IWLR = 1, 7 ) / & 2.147745E-20, 1.461038E-20, 8.426962E-21, 3.330092E-21, & 1.731218E-22, 0.000000E+00, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( ICCHO_R, 1, IWLR ), IWLR = 1, 7 ) / & 4.845355E-01, 3.929700E-01, 2.873054E-01, 1.582196E-01, & 4.659327E-02, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( ICCHO_R, 2, IWLR ), IWLR = 1, 7 ) / & 4.845355E-01, 3.929700E-01, 2.873054E-01, 1.582196E-01, & 4.659327E-02, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( ICCHO_R, 3, IWLR ), IWLR = 1, 7 ) / & 4.845355E-01, 3.929700E-01, 2.873054E-01, 1.582196E-01, & 4.659327E-02, 0.000000E+00, 0.000000E+00 / C...C2CHO C.. C2CHO + HV = C2H5. + CHO. C.. IUPAC (1997) C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IC2CHO ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IC2CHO, 1, IWLR ), IWLR = 1, 7 ) / & 3.113497E-20, 4.634689E-20, 3.579653E-20, 2.441742E-20, & 5.808827E-21, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( IC2CHO, 2, IWLR ), IWLR = 1, 7 ) / & 3.113497E-20, 4.634689E-20, 3.579653E-20, 2.441742E-20, & 5.808827E-21, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( IC2CHO, 3, IWLR ), IWLR = 1, 7 ) / & 3.113497E-20, 4.634689E-20, 3.579653E-20, 2.441742E-20, & 5.808827E-21, 0.000000E+00, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IC2CHO, 1, IWLR ), IWLR = 1, 7 ) / & 5.112442E-01, 7.954021E-01, 5.951666E-01, 4.312297E-01, & 1.520064E-01, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( IC2CHO, 2, IWLR ), IWLR = 1, 7 ) / & 5.112442E-01, 7.954021E-01, 5.951666E-01, 4.312297E-01, & 1.520064E-01, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( IC2CHO, 3, IWLR ), IWLR = 1, 7 ) / & 5.112442E-01, 7.954021E-01, 5.951666E-01, 4.312297E-01, & 1.520064E-01, 0.000000E+00, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IC2CHO, 1, IWLR ), IWLR = 1, 7 ) / & 2.730256E-20, 3.713801E-20, 2.133677E-20, 1.077360E-20, & 1.383933E-21, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( IC2CHO, 2, IWLR ), IWLR = 1, 7 ) / & 2.730256E-20, 3.713801E-20, 2.133677E-20, 1.077360E-20, & 1.383933E-21, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( IC2CHO, 3, IWLR ), IWLR = 1, 7 ) / & 2.730256E-20, 3.713801E-20, 2.133677E-20, 1.077360E-20, & 1.383933E-21, 0.000000E+00, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IC2CHO, 1, IWLR ), IWLR = 1, 7 ) / & 8.769099E-01, 8.013052E-01, 5.960570E-01, 4.412259E-01, & 2.382466E-01, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( IC2CHO, 2, IWLR ), IWLR = 1, 7 ) / & 8.769099E-01, 8.013052E-01, 5.960570E-01, 4.412259E-01, & 2.382466E-01, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( IC2CHO, 3, IWLR ), IWLR = 1, 7 ) / & 8.769099E-01, 8.013052E-01, 5.960570E-01, 4.412259E-01, & 2.382466E-01, 0.000000E+00, 0.000000E+00 / C...ACET-06 C.. CH3-CO-CH3 + HV = Radical products C.. IUPAC Subcommittee on Gas Kinetic Data Evaluation Data Sheet P7 C.. This datasheet updated: 19th December 2005. C.. Website: http://www.iupac-kinetic.ch.cam.ac.uk/. C.. IUPAC recommendations used for both absorption cross sections and quantum yield C.. Cross sections and quantum yields are for 298K only. C.. Uncertain whether the cross sections are calculated correctly from the complex C.. C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IACET_06 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IACET_06, 1, IWLR ), IWLR = 1, 7 ) / & 3.464058E-20, 2.276631E-20, 1.367786E-20, 7.373137E-21, & 8.850609E-22, 8.179470E-25, 0.000000E+00 / DATA ( CS_REF( IACET_06, 2, IWLR ), IWLR = 1, 7 ) / & 3.464058E-20, 2.276631E-20, 1.367786E-20, 7.373137E-21, & 8.850609E-22, 8.179470E-25, 0.000000E+00 / DATA ( CS_REF( IACET_06, 3, IWLR ), IWLR = 1, 7 ) / & 3.464058E-20, 2.276631E-20, 1.367786E-20, 7.373137E-21, & 8.850609E-22, 8.179470E-25, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IACET_06, 1, IWLR ), IWLR = 1, 7 ) / & 3.457704E-01, 2.094483E-01, 8.573251E-02, 3.882141E-02, & 9.387424E-03, 1.342100E-04, 0.000000E+00 / DATA ( QY_REF( IACET_06, 2, IWLR ), IWLR = 1, 7 ) / & 3.457704E-01, 2.094483E-01, 8.573251E-02, 3.882141E-02, & 9.387424E-03, 1.342100E-04, 0.000000E+00 / DATA ( QY_REF( IACET_06, 3, IWLR ), IWLR = 1, 7 ) / & 3.457704E-01, 2.094483E-01, 8.573251E-02, 3.882141E-02, & 9.387424E-03, 1.342100E-04, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IACET_06, 1, IWLR ), IWLR = 1, 7 ) / & 1.207275E-20, 4.950919E-21, 1.203532E-21, 3.067005E-22, & 1.419284E-23, 2.303166E-27, 0.000000E+00 / DATA ( ECS_REF( IACET_06, 2, IWLR ), IWLR = 1, 7 ) / & 1.207275E-20, 4.950919E-21, 1.203532E-21, 3.067005E-22, & 1.419284E-23, 2.303166E-27, 0.000000E+00 / DATA ( ECS_REF( IACET_06, 3, IWLR ), IWLR = 1, 7 ) / & 1.207275E-20, 4.950919E-21, 1.203532E-21, 3.067005E-22, & 1.419284E-23, 2.303166E-27, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IACET_06, 1, IWLR ), IWLR = 1, 7 ) / & 3.485148E-01, 2.174669E-01, 8.799125E-02, 4.159702E-02, & 1.603601E-02, 2.815788E-03, 0.000000E+00 / DATA ( EQY_REF( IACET_06, 2, IWLR ), IWLR = 1, 7 ) / & 3.485148E-01, 2.174669E-01, 8.799125E-02, 4.159702E-02, & 1.603601E-02, 2.815788E-03, 0.000000E+00 / DATA ( EQY_REF( IACET_06, 3, IWLR ), IWLR = 1, 7 ) / & 3.485148E-01, 2.174669E-01, 8.799125E-02, 4.159702E-02, & 1.603601E-02, 2.815788E-03, 0.000000E+00 / C...MEK-06 C.. MEK absorption cross sections C.. IUPAC Subcommittee on Gas Kinetic Data Evaluation Data Sheet P8 C.. This datasheet updated: 5th December 2005. C.. Website: http://www.iupac-kinetic.ch.cam.ac.uk/. C.. Note that recommended quantum yield is 0.34 and SAPRC07T sets C.. value to 0.175 in mechanism definition file C.. C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IMEK_06 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IMEK_06, 1, IWLR ), IWLR = 1, 7 ) / & 4.166522E-20, 2.686872E-20, 1.573254E-20, 7.723365E-21, & 8.066992E-22, 1.609984E-25, 0.000000E+00 / DATA ( CS_REF( IMEK_06, 2, IWLR ), IWLR = 1, 7 ) / & 4.166522E-20, 2.686872E-20, 1.573254E-20, 7.723365E-21, & 8.066992E-22, 1.609984E-25, 0.000000E+00 / DATA ( CS_REF( IMEK_06, 3, IWLR ), IWLR = 1, 7 ) / & 4.166522E-20, 2.686872E-20, 1.573254E-20, 7.723365E-21, & 8.066992E-22, 1.609984E-25, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IMEK_06, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 2.161979E-02, 0.000000E+00 / DATA ( QY_REF( IMEK_06, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 2.161979E-02, 0.000000E+00 / DATA ( QY_REF( IMEK_06, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 2.161979E-02, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IMEK_06, 1, IWLR ), IWLR = 1, 7 ) / & 4.166522E-20, 2.686872E-20, 1.573254E-20, 7.723365E-21, & 8.066992E-22, 1.609804E-25, 0.000000E+00 / DATA ( ECS_REF( IMEK_06, 2, IWLR ), IWLR = 1, 7 ) / & 4.166522E-20, 2.686872E-20, 1.573254E-20, 7.723365E-21, & 8.066992E-22, 1.609804E-25, 0.000000E+00 / DATA ( ECS_REF( IMEK_06, 3, IWLR ), IWLR = 1, 7 ) / & 4.166522E-20, 2.686872E-20, 1.573254E-20, 7.723365E-21, & 8.066992E-22, 1.609804E-25, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IMEK_06, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.998884E-01, 0.000000E+00 / DATA ( EQY_REF( IMEK_06, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.998884E-01, 0.000000E+00 / DATA ( EQY_REF( IMEK_06, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.998884E-01, 0.000000E+00 / C...COOH C.. CH3OOH + HV = PRODUCTS C.. IUPAC (1997). Also recommend unit quantum yields. C.. wl abs qy C... reference temperatures (K) DATA ( TEMP_REF( ITTR, ICOOH ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( ICOOH, 1, IWLR ), IWLR = 1, 7 ) / & 5.623467E-21, 3.524633E-21, 2.410330E-21, 1.699588E-21, & 7.230005E-22, 5.395097E-23, 0.000000E+00 / DATA ( CS_REF( ICOOH, 2, IWLR ), IWLR = 1, 7 ) / & 5.623467E-21, 3.524633E-21, 2.410330E-21, 1.699588E-21, & 7.230005E-22, 5.395097E-23, 0.000000E+00 / DATA ( CS_REF( ICOOH, 3, IWLR ), IWLR = 1, 7 ) / & 5.623467E-21, 3.524633E-21, 2.410330E-21, 1.699588E-21, & 7.230005E-22, 5.395097E-23, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( ICOOH, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 3.016710E-01, 0.000000E+00 / DATA ( QY_REF( ICOOH, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 3.016710E-01, 0.000000E+00 / DATA ( QY_REF( ICOOH, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 3.016710E-01, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( ICOOH, 1, IWLR ), IWLR = 1, 7 ) / & 5.623467E-21, 3.524633E-21, 2.410330E-21, 1.699588E-21, & 7.230005E-22, 5.395090E-23, 0.000000E+00 / DATA ( ECS_REF( ICOOH, 2, IWLR ), IWLR = 1, 7 ) / & 5.623467E-21, 3.524633E-21, 2.410330E-21, 1.699588E-21, & 7.230005E-22, 5.395090E-23, 0.000000E+00 / DATA ( ECS_REF( ICOOH, 3, IWLR ), IWLR = 1, 7 ) / & 5.623467E-21, 3.524633E-21, 2.410330E-21, 1.699588E-21, & 7.230005E-22, 5.395090E-23, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( ICOOH, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999989E-01, 0.000000E+00 / DATA ( EQY_REF( ICOOH, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999989E-01, 0.000000E+00 / DATA ( EQY_REF( ICOOH, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999989E-01, 0.000000E+00 / C...GLY-07R C.. HCOCHO + HV = HCO. + HCO. C.. Absorption cross sections from Volkamer, R., P. Spietz, J. Burrows, and C.. U. Platt (2005): "High-resolution absorption cross sections of glyoxal C.. in the UV-vis and IR spectral ranges," J. Photochem. Photobiol. A, 172 C.. 35-46. Quantum yields at wavelengths below 350 nm based on the data of C.. Zhu et al (1996) which are consistent with the data of Langford and C.. Moore (1984). Quantum yields at higher wavelengths assumed to decline C.. expodentially with wavelength at a rate that gives a photolysis rate C.. relative to NO2 consistent with the data of Klotz et al (2000). C.. C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IGLY_07R ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IGLY_07R, 1, IWLR ), IWLR = 1, 7 ) / & 3.792117E-20, 3.572108E-20, 3.194423E-20, 2.574261E-20, & 1.106789E-20, 2.757124E-20, 1.054196E-20 / DATA ( CS_REF( IGLY_07R, 2, IWLR ), IWLR = 1, 7 ) / & 3.792117E-20, 3.572108E-20, 3.194423E-20, 2.574261E-20, & 1.106789E-20, 2.757124E-20, 1.054196E-20 / DATA ( CS_REF( IGLY_07R, 3, IWLR ), IWLR = 1, 7 ) / & 3.792117E-20, 3.572108E-20, 3.194423E-20, 2.574261E-20, & 1.106789E-20, 2.757124E-20, 1.054196E-20 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IGLY_07R, 1, IWLR ), IWLR = 1, 7 ) / & 3.321564E-01, 3.435688E-01, 3.690092E-01, 4.286592E-01, & 5.846431E-01, 2.414760E-01, 1.331258E-03 / DATA ( QY_REF( IGLY_07R, 2, IWLR ), IWLR = 1, 7 ) / & 3.321564E-01, 3.435688E-01, 3.690092E-01, 4.286592E-01, & 5.846431E-01, 2.414760E-01, 1.331258E-03 / DATA ( QY_REF( IGLY_07R, 3, IWLR ), IWLR = 1, 7 ) / & 3.321564E-01, 3.435688E-01, 3.690092E-01, 4.286592E-01, & 5.846431E-01, 2.414760E-01, 1.331258E-03 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IGLY_07R, 1, IWLR ), IWLR = 1, 7 ) / & 1.259928E-20, 1.226096E-20, 1.179645E-20, 1.092393E-20, & 6.158653E-21, 3.111813E-21, 1.360347E-22 / DATA ( ECS_REF( IGLY_07R, 2, IWLR ), IWLR = 1, 7 ) / & 1.259928E-20, 1.226096E-20, 1.179645E-20, 1.092393E-20, & 6.158653E-21, 3.111813E-21, 1.360347E-22 / DATA ( ECS_REF( IGLY_07R, 3, IWLR ), IWLR = 1, 7 ) / & 1.259928E-20, 1.226096E-20, 1.179645E-20, 1.092393E-20, & 6.158653E-21, 3.111813E-21, 1.360347E-22 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IGLY_07R, 1, IWLR ), IWLR = 1, 7 ) / & 3.322493E-01, 3.432416E-01, 3.692827E-01, 4.243520E-01, & 5.564435E-01, 1.128644E-01, 1.290412E-02 / DATA ( EQY_REF( IGLY_07R, 2, IWLR ), IWLR = 1, 7 ) / & 3.322493E-01, 3.432416E-01, 3.692827E-01, 4.243520E-01, & 5.564435E-01, 1.128644E-01, 1.290412E-02 / DATA ( EQY_REF( IGLY_07R, 3, IWLR ), IWLR = 1, 7 ) / & 3.322493E-01, 3.432416E-01, 3.692827E-01, 4.243520E-01, & 5.564435E-01, 1.128644E-01, 1.290412E-02 / C...GLY-07M C.. HCOCHO + HV = HCHO + H2 C.. Absorption cross sections from Volkamer, R., P. Spietz, J. Burrows, C.. and U. Platt (2005): "High-resolution absorption cross sections of C.. glyoxal in the UV-vis and IR spectral ranges," J. Photochem. Photobiol. C.. A, 172 35-46. Quantum yields at wavelengths below 350 nm derived from C.. those used for the radical forming process assuming total quantum C.. yields of 1. Quantum yields at higher wavelengths assumed to decline C.. expodentially at a rate that gives a 13% formaldehyde yield telative to C.. photodecomposition under the conditions of Plum et al (1983). C.. C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IGLY_07M ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IGLY_07M, 1, IWLR ), IWLR = 1, 7 ) / & 3.792117E-20, 3.572108E-20, 3.194423E-20, 2.574261E-20, & 1.106789E-20, 2.757124E-20, 3.572554E-21 / DATA ( CS_REF( IGLY_07M, 2, IWLR ), IWLR = 1, 7 ) / & 3.792117E-20, 3.572108E-20, 3.194423E-20, 2.574261E-20, & 1.106789E-20, 2.757124E-20, 3.572554E-21 / DATA ( CS_REF( IGLY_07M, 3, IWLR ), IWLR = 1, 7 ) / & 3.792117E-20, 3.572108E-20, 3.194423E-20, 2.574261E-20, & 1.106789E-20, 2.757124E-20, 3.572554E-21 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IGLY_07M, 1, IWLR ), IWLR = 1, 7 ) / & 6.678436E-01, 6.564312E-01, 6.310096E-01, 5.714539E-01, & 4.154251E-01, 6.007637E-02, 5.018706E-05 / DATA ( QY_REF( IGLY_07M, 2, IWLR ), IWLR = 1, 7 ) / & 6.678436E-01, 6.564312E-01, 6.310096E-01, 5.714539E-01, & 4.154251E-01, 6.007637E-02, 5.018706E-05 / DATA ( QY_REF( IGLY_07M, 3, IWLR ), IWLR = 1, 7 ) / & 6.678436E-01, 6.564312E-01, 6.310096E-01, 5.714539E-01, & 4.154251E-01, 6.007637E-02, 5.018706E-05 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IGLY_07M, 1, IWLR ), IWLR = 1, 7 ) / & 2.532189E-20, 2.346012E-20, 2.014841E-20, 1.482248E-20, & 4.909979E-21, 5.296770E-22, 4.592936E-24 / DATA ( ECS_REF( IGLY_07M, 2, IWLR ), IWLR = 1, 7 ) / & 2.532189E-20, 2.346012E-20, 2.014841E-20, 1.482248E-20, & 4.909979E-21, 5.296770E-22, 4.592936E-24 / DATA ( ECS_REF( IGLY_07M, 3, IWLR ), IWLR = 1, 7 ) / & 2.532189E-20, 2.346012E-20, 2.014841E-20, 1.482248E-20, & 4.909979E-21, 5.296770E-22, 4.592936E-24 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IGLY_07M, 1, IWLR ), IWLR = 1, 7 ) / & 6.677508E-01, 6.567584E-01, 6.307371E-01, 5.757954E-01, & 4.436239E-01, 1.921121E-02, 1.285617E-03 / DATA ( EQY_REF( IGLY_07M, 2, IWLR ), IWLR = 1, 7 ) / & 6.677508E-01, 6.567584E-01, 6.307371E-01, 5.757954E-01, & 4.436239E-01, 1.921121E-02, 1.285617E-03 / DATA ( EQY_REF( IGLY_07M, 3, IWLR ), IWLR = 1, 7 ) / & 6.677508E-01, 6.567584E-01, 6.307371E-01, 5.757954E-01, & 4.436239E-01, 1.921121E-02, 1.285617E-03 / C...MGLY-06 C.. CH3COCHO + HV = CH3CO. + HCO. C.. IUPAC Subcommittee on Gas Kinetic Data Evaluation Data Sheet P6 C.. This datasheet updated: 16th January 2003. C.. Website: http://www.iupac-kinetic.ch.cam.ac.uk/. C.. Quantum yield calculated from the expression given for 472 torr N2. C.. This "pressure" adjustment was made so the calculated photlysis rates C.. for solar conditions would agree with the data of Klotz et al (2000) C.. for the Euphore outdoor chamber. C.. C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IMGLY_06 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IMGLY_06, 1, IWLR ), IWLR = 1, 7 ) / & 4.380391E-20, 3.467071E-20, 2.430916E-20, 1.788232E-20, & 6.183676E-21, 3.700269E-20, 7.910760E-21 / DATA ( CS_REF( IMGLY_06, 2, IWLR ), IWLR = 1, 7 ) / & 4.380391E-20, 3.467071E-20, 2.430916E-20, 1.788232E-20, & 6.183676E-21, 3.700269E-20, 7.910760E-21 / DATA ( CS_REF( IMGLY_06, 3, IWLR ), IWLR = 1, 7 ) / & 4.380391E-20, 3.467071E-20, 2.430916E-20, 1.788232E-20, & 6.183676E-21, 3.700269E-20, 7.910760E-21 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IMGLY_06, 1, IWLR ), IWLR = 1, 7 ) / & 9.565113E-01, 9.283988E-01, 8.962741E-01, 8.564202E-01, & 7.065107E-01, 2.411670E-01, 3.970909E-03 / DATA ( QY_REF( IMGLY_06, 2, IWLR ), IWLR = 1, 7 ) / & 9.565113E-01, 9.283988E-01, 8.962741E-01, 8.564202E-01, & 7.065107E-01, 2.411670E-01, 3.970909E-03 / DATA ( QY_REF( IMGLY_06, 3, IWLR ), IWLR = 1, 7 ) / & 9.565113E-01, 9.283988E-01, 8.962741E-01, 8.564202E-01, & 7.065107E-01, 2.411670E-01, 3.970909E-03 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IMGLY_06, 1, IWLR ), IWLR = 1, 7 ) / & 4.191153E-20, 3.221663E-20, 2.180534E-20, 1.534382E-20, & 4.571303E-21, 5.327231E-21, 3.199066E-22 / DATA ( ECS_REF( IMGLY_06, 2, IWLR ), IWLR = 1, 7 ) / & 4.191153E-20, 3.221663E-20, 2.180534E-20, 1.534382E-20, & 4.571303E-21, 5.327231E-21, 3.199066E-22 / DATA ( ECS_REF( IMGLY_06, 3, IWLR ), IWLR = 1, 7 ) / & 4.191153E-20, 3.221663E-20, 2.180534E-20, 1.534382E-20, & 4.571303E-21, 5.327231E-21, 3.199066E-22 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IMGLY_06, 1, IWLR ), IWLR = 1, 7 ) / & 9.567987E-01, 9.292175E-01, 8.970010E-01, 8.580443E-01, & 7.392533E-01, 1.439687E-01, 4.043944E-02 / DATA ( EQY_REF( IMGLY_06, 2, IWLR ), IWLR = 1, 7 ) / & 9.567987E-01, 9.292175E-01, 8.970010E-01, 8.580443E-01, & 7.392533E-01, 1.439687E-01, 4.043944E-02 / DATA ( EQY_REF( IMGLY_06, 3, IWLR ), IWLR = 1, 7 ) / & 9.567987E-01, 9.292175E-01, 8.970010E-01, 8.580443E-01, & 7.392533E-01, 1.439687E-01, 4.043944E-02 / C...BACL-07 C.. CH3COCOCH3 + HV = 2 CH3CO. C.. Absorption cross sections from Plum et al (1983) as used in SAPRC-99 C.. mechanism. Quantum yields calculated using the IUPAC (2005)-recommended C.. expression for the pressure and wavelength-dependence quantum yields for C.. methyl glyoxal, but with the effective presssure adjusted so the C.. photolysis rate, relative to that for NO2, under ambient conditions is C.. consistent with that measured by Klotz et al (2000) in the Euphore outdoor C.. chamber. C.. C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IBACL_07 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IBACL_07, 1, IWLR ), IWLR = 1, 7 ) / & 2.658386E-20, 1.613232E-20, 9.254814E-21, 6.071191E-21, & 4.661714E-21, 3.201369E-20, 4.709775E-21 / DATA ( CS_REF( IBACL_07, 2, IWLR ), IWLR = 1, 7 ) / & 2.658386E-20, 1.613232E-20, 9.254814E-21, 6.071191E-21, & 4.661714E-21, 3.201369E-20, 4.709775E-21 / DATA ( CS_REF( IBACL_07, 3, IWLR ), IWLR = 1, 7 ) / & 2.658386E-20, 1.613232E-20, 9.254814E-21, 6.071191E-21, & 4.661714E-21, 3.201369E-20, 4.709775E-21 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IBACL_07, 1, IWLR ), IWLR = 1, 7 ) / & 9.894450E-01, 9.817067E-01, 9.728644E-01, 9.609106E-01, & 9.065533E-01, 4.913754E-01, 9.660118E-03 / DATA ( QY_REF( IBACL_07, 2, IWLR ), IWLR = 1, 7 ) / & 9.894450E-01, 9.817067E-01, 9.728644E-01, 9.609106E-01, & 9.065533E-01, 4.913754E-01, 9.660118E-03 / DATA ( QY_REF( IBACL_07, 3, IWLR ), IWLR = 1, 7 ) / & 9.894450E-01, 9.817067E-01, 9.728644E-01, 9.609106E-01, & 9.065533E-01, 4.913754E-01, 9.660118E-03 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IBACL_07, 1, IWLR ), IWLR = 1, 7 ) / & 2.630803E-20, 1.584373E-20, 9.006348E-21, 5.836824E-21, & 4.210301E-21, 1.187160E-20, 4.906409E-22 / DATA ( ECS_REF( IBACL_07, 2, IWLR ), IWLR = 1, 7 ) / & 2.630803E-20, 1.584373E-20, 9.006348E-21, 5.836824E-21, & 4.210301E-21, 1.187160E-20, 4.906409E-22 / DATA ( ECS_REF( IBACL_07, 3, IWLR ), IWLR = 1, 7 ) / & 2.630803E-20, 1.584373E-20, 9.006348E-21, 5.836824E-21, & 4.210301E-21, 1.187160E-20, 4.906409E-22 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IBACL_07, 1, IWLR ), IWLR = 1, 7 ) / & 9.896241E-01, 9.821110E-01, 9.731528E-01, 9.613968E-01, & 9.031659E-01, 3.708287E-01, 1.041750E-01 / DATA ( EQY_REF( IBACL_07, 2, IWLR ), IWLR = 1, 7 ) / & 9.896241E-01, 9.821110E-01, 9.731528E-01, 9.613968E-01, & 9.031659E-01, 3.708287E-01, 1.041750E-01 / DATA ( EQY_REF( IBACL_07, 3, IWLR ), IWLR = 1, 7 ) / & 9.896241E-01, 9.821110E-01, 9.731528E-01, 9.613968E-01, & 9.031659E-01, 3.708287E-01, 1.041750E-01 / C...BALD-06 C.. Benzaldehyde absorption cross sections recommended by Calvert et al (2002) C.. From Lang (1961-1971) in hexane solution C.. C.. Note that recommended quantum ranges from 0,14 to 0,4 and SAPRC07T sets C.. value to 0.060 in mechanism definition file C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IBALD_06 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IBALD_06, 1, IWLR ), IWLR = 1, 7 ) / & 4.451981E-19, 7.297634E-20, 7.090561E-20, 8.592461E-20, & 9.197932E-20, 1.679405E-20, 0.000000E+00 / DATA ( CS_REF( IBALD_06, 2, IWLR ), IWLR = 1, 7 ) / & 4.451981E-19, 7.297634E-20, 7.090561E-20, 8.592461E-20, & 9.197932E-20, 1.679405E-20, 0.000000E+00 / DATA ( CS_REF( IBALD_06, 3, IWLR ), IWLR = 1, 7 ) / & 4.451981E-19, 7.297634E-20, 7.090561E-20, 8.592461E-20, & 9.197932E-20, 1.679405E-20, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IBALD_06, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 4.275655E-01, 0.000000E+00 / DATA ( QY_REF( IBALD_06, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 4.275655E-01, 0.000000E+00 / DATA ( QY_REF( IBALD_06, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 4.275655E-01, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IBALD_06, 1, IWLR ), IWLR = 1, 7 ) / & 4.451981E-19, 7.297634E-20, 7.090561E-20, 8.592461E-20, & 9.197932E-20, 1.679404E-20, 0.000000E+00 / DATA ( ECS_REF( IBALD_06, 2, IWLR ), IWLR = 1, 7 ) / & 4.451981E-19, 7.297634E-20, 7.090561E-20, 8.592461E-20, & 9.197932E-20, 1.679404E-20, 0.000000E+00 / DATA ( ECS_REF( IBALD_06, 3, IWLR ), IWLR = 1, 7 ) / & 4.451981E-19, 7.297634E-20, 7.090561E-20, 8.592461E-20, & 9.197932E-20, 1.679404E-20, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IBALD_06, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999996E-01, 0.000000E+00 / DATA ( EQY_REF( IBALD_06, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999996E-01, 0.000000E+00 / DATA ( EQY_REF( IBALD_06, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999996E-01, 0.000000E+00 / C...AFG1 C.. Photolysis of lumped photoreactive aromatic unsaturated dicarbonyl product. C.. Based on 31.6% BUTEDIAL and 68.4% 4OX2PEAL with QY(BUTEDIAL) = 0.723 and C.. QY(4OX2PEAL) = 1.000 C.. From h:\mech\saprc06\phf.xls, "AFG1" sheet and based on C.. h:\mech\saprc06\aroprods.xls C.. C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IAFG1 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IAFG1, 1, IWLR ), IWLR = 1, 7 ) / & 1.731773E-18, 1.412652E-18, 1.107261E-18, 8.915003E-19, & 5.026284E-19, 1.273166E-19, 1.232364E-21 / DATA ( CS_REF( IAFG1, 2, IWLR ), IWLR = 1, 7 ) / & 1.731773E-18, 1.412652E-18, 1.107261E-18, 8.915003E-19, & 5.026284E-19, 1.273166E-19, 1.232364E-21 / DATA ( CS_REF( IAFG1, 3, IWLR ), IWLR = 1, 7 ) / & 1.731773E-18, 1.412652E-18, 1.107261E-18, 8.915003E-19, & 5.026284E-19, 1.273166E-19, 1.232364E-21 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IAFG1, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 1.135570E-01 / DATA ( QY_REF( IAFG1, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 1.135570E-01 / DATA ( QY_REF( IAFG1, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 1.135570E-01 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IAFG1, 1, IWLR ), IWLR = 1, 7 ) / & 1.731773E-18, 1.412652E-18, 1.107261E-18, 8.915003E-19, & 5.026284E-19, 1.273166E-19, 1.232364E-21 / DATA ( ECS_REF( IAFG1, 2, IWLR ), IWLR = 1, 7 ) / & 1.731773E-18, 1.412652E-18, 1.107261E-18, 8.915003E-19, & 5.026284E-19, 1.273166E-19, 1.232364E-21 / DATA ( ECS_REF( IAFG1, 3, IWLR ), IWLR = 1, 7 ) / & 1.731773E-18, 1.412652E-18, 1.107261E-18, 8.915003E-19, & 5.026284E-19, 1.273166E-19, 1.232364E-21 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IAFG1, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 1.000000E+00 / DATA ( EQY_REF( IAFG1, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 1.000000E+00 / DATA ( EQY_REF( IAFG1, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 1.000000E+00 / C...MACR-06 C.. Methacrolein total photolysis C.. Absorption cross sections from IUPAC Subcommittee on Gas Kinetic Data Evaluatio C.. Website: http://www.iupac-kinetic.ch.cam.ac.uk/. This datasheet updated: 16th M C.. The quantum yields were derived using the pressure and wavelength-dependent C.. expression given by IUPAC (2005) for MVK, with the total pressure adjusted so C.. that the radical forming photolysis rates for the chamber experiments are the C.. same as those that fit the chamber data. C.. C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IMACR_06 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IMACR_06, 1, IWLR ), IWLR = 1, 7 ) / & 2.639069E-20, 3.936243E-20, 4.989644E-20, 5.926228E-20, & 6.528440E-20, 1.326860E-20, 0.000000E+00 / DATA ( CS_REF( IMACR_06, 2, IWLR ), IWLR = 1, 7 ) / & 2.639069E-20, 3.936243E-20, 4.989644E-20, 5.926228E-20, & 6.528440E-20, 1.326860E-20, 0.000000E+00 / DATA ( CS_REF( IMACR_06, 3, IWLR ), IWLR = 1, 7 ) / & 2.639069E-20, 3.936243E-20, 4.989644E-20, 5.926228E-20, & 6.528440E-20, 1.326860E-20, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IMACR_06, 1, IWLR ), IWLR = 1, 7 ) / & 4.901060E-02, 3.073938E-02, 2.101921E-02, 1.479159E-02, & 6.251532E-03, 5.827893E-04, 0.000000E+00 / DATA ( QY_REF( IMACR_06, 2, IWLR ), IWLR = 1, 7 ) / & 4.901060E-02, 3.073938E-02, 2.101921E-02, 1.479159E-02, & 6.251532E-03, 5.827893E-04, 0.000000E+00 / DATA ( QY_REF( IMACR_06, 3, IWLR ), IWLR = 1, 7 ) / & 4.901060E-02, 3.073938E-02, 2.101921E-02, 1.479159E-02, & 6.251532E-03, 5.827893E-04, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IMACR_06, 1, IWLR ), IWLR = 1, 7 ) / & 1.276395E-21, 1.192334E-21, 1.045253E-21, 8.708182E-22, & 4.101432E-22, 2.057185E-23, 0.000000E+00 / DATA ( ECS_REF( IMACR_06, 2, IWLR ), IWLR = 1, 7 ) / & 1.276395E-21, 1.192334E-21, 1.045253E-21, 8.708182E-22, & 4.101432E-22, 2.057185E-23, 0.000000E+00 / DATA ( ECS_REF( IMACR_06, 3, IWLR ), IWLR = 1, 7 ) / & 1.276395E-21, 1.192334E-21, 1.045253E-21, 8.708182E-22, & 4.101432E-22, 2.057185E-23, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IMACR_06, 1, IWLR ), IWLR = 1, 7 ) / & 4.836535E-02, 3.029118E-02, 2.094846E-02, 1.469431E-02, & 6.282408E-03, 1.550416E-03, 0.000000E+00 / DATA ( EQY_REF( IMACR_06, 2, IWLR ), IWLR = 1, 7 ) / & 4.836535E-02, 3.029118E-02, 2.094846E-02, 1.469431E-02, & 6.282408E-03, 1.550416E-03, 0.000000E+00 / DATA ( EQY_REF( IMACR_06, 3, IWLR ), IWLR = 1, 7 ) / & 4.836535E-02, 3.029118E-02, 2.094846E-02, 1.469431E-02, & 6.282408E-03, 1.550416E-03, 0.000000E+00 / C...MVK-06 C.. MVK total photolysis C.. IUPAC Subcommittee on Gas Kinetic Data Evaluation Data Sheet P10 C.. Website: http://www.iupac-kinetic.ch.cam.ac.uk/ C.. This datasheet updated: 9th August 2002. C.. Decline in absorption cross sections with wavelength above 395 nm estimated by C.. linear interpolation. C.. Quantum yields for all photodecomposition processes. IUPAC recommends ~60% for C.. propene formation, rest radical forming routes. C.. Quantum yields calculated for 1 atm overpredicts photolysis rates for chamber C.. experiments that gives best fits to data. Effective pressure increased to 5 atm C.. to give overall quantum yields that are consistent with modeling chamber data. C.. C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IMVK_06 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IMVK_06, 1, IWLR ), IWLR = 1, 7 ) / & 3.041510E-20, 4.373022E-20, 5.436504E-20, 6.318700E-20, & 6.828638E-20, 8.068900E-21, 0.000000E+00 / DATA ( CS_REF( IMVK_06, 2, IWLR ), IWLR = 1, 7 ) / & 3.041510E-20, 4.373022E-20, 5.436504E-20, 6.318700E-20, & 6.828638E-20, 8.068900E-21, 0.000000E+00 / DATA ( CS_REF( IMVK_06, 3, IWLR ), IWLR = 1, 7 ) / & 3.041510E-20, 4.373022E-20, 5.436504E-20, 6.318700E-20, & 6.828638E-20, 8.068900E-21, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IMVK_06, 1, IWLR ), IWLR = 1, 7 ) / & 1.750365E-02, 1.113042E-02, 7.578317E-03, 5.286919E-03, & 2.238234E-03, 1.619926E-04, 0.000000E+00 / DATA ( QY_REF( IMVK_06, 2, IWLR ), IWLR = 1, 7 ) / & 1.750365E-02, 1.113042E-02, 7.578317E-03, 5.286919E-03, & 2.238234E-03, 1.619926E-04, 0.000000E+00 / DATA ( QY_REF( IMVK_06, 3, IWLR ), IWLR = 1, 7 ) / & 1.750365E-02, 1.113042E-02, 7.578317E-03, 5.286919E-03, & 2.238234E-03, 1.619926E-04, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IMVK_06, 1, IWLR ), IWLR = 1, 7 ) / & 5.264579E-22, 4.799992E-22, 4.109015E-22, 3.323382E-22, & 1.546971E-22, 7.828037E-24, 0.000000E+00 / DATA ( ECS_REF( IMVK_06, 2, IWLR ), IWLR = 1, 7 ) / & 5.264579E-22, 4.799992E-22, 4.109015E-22, 3.323382E-22, & 1.546971E-22, 7.828037E-24, 0.000000E+00 / DATA ( ECS_REF( IMVK_06, 3, IWLR ), IWLR = 1, 7 ) / & 5.264579E-22, 4.799992E-22, 4.109015E-22, 3.323382E-22, & 1.546971E-22, 7.828037E-24, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IMVK_06, 1, IWLR ), IWLR = 1, 7 ) / & 1.730910E-02, 1.097637E-02, 7.558194E-03, 5.259598E-03, & 2.265416E-03, 9.701491E-04, 0.000000E+00 / DATA ( EQY_REF( IMVK_06, 2, IWLR ), IWLR = 1, 7 ) / & 1.730910E-02, 1.097637E-02, 7.558194E-03, 5.259598E-03, & 2.265416E-03, 9.701491E-04, 0.000000E+00 / DATA ( EQY_REF( IMVK_06, 3, IWLR ), IWLR = 1, 7 ) / & 1.730910E-02, 1.097637E-02, 7.558194E-03, 5.259598E-03, & 2.265416E-03, 9.701491E-04, 0.000000E+00 / C...IC3ONO2 C.. ! I-C3H7ONO2 + HV = PRODUCTS C.. IUPAC (1997). Recommend assuming unit quantum yields. C.. This has stronger absorption than n-C3-ONO2 and lower nitrates, C.. but chosen as representative of lumped higher nitrates. C.. wl abs C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IIC3ONO2 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IIC3ONO2, 1, IWLR ), IWLR = 1, 7 ) / & 1.255484E-20, 6.352138E-21, 3.286576E-21, 1.709805E-21, & 2.667180E-22, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( IIC3ONO2, 2, IWLR ), IWLR = 1, 7 ) / & 1.255484E-20, 6.352138E-21, 3.286576E-21, 1.709805E-21, & 2.667180E-22, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( IIC3ONO2, 3, IWLR ), IWLR = 1, 7 ) / & 1.255484E-20, 6.352138E-21, 3.286576E-21, 1.709805E-21, & 2.667180E-22, 0.000000E+00, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IIC3ONO2, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 5.754197E-01, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( IIC3ONO2, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 5.754197E-01, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( IIC3ONO2, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 5.754197E-01, 0.000000E+00, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IIC3ONO2, 1, IWLR ), IWLR = 1, 7 ) / & 1.255484E-20, 6.352138E-21, 3.286576E-21, 1.709805E-21, & 2.667175E-22, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( IIC3ONO2, 2, IWLR ), IWLR = 1, 7 ) / & 1.255484E-20, 6.352138E-21, 3.286576E-21, 1.709805E-21, & 2.667175E-22, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( IIC3ONO2, 3, IWLR ), IWLR = 1, 7 ) / & 1.255484E-20, 6.352138E-21, 3.286576E-21, 1.709805E-21, & 2.667175E-22, 0.000000E+00, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IIC3ONO2, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.999982E-01, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( IIC3ONO2, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.999982E-01, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( IIC3ONO2, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.999982E-01, 0.000000E+00, 0.000000E+00 / C...HOCCHO_IUPAC C.. HOCH2CHO + hv ---> products C.. IUPAC (2002) based on Bacher et al (2001), J. Atm. Chem, 39, 171. C.. quantum yield = 0.75+/-0.25 C.. lambda(nm) xcross(1.E+20*cm2) yield C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IHOCCHO_IUPAC ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IHOCCHO_IUPAC, 1, IWLR ), IWLR = 1, 7 ) / & 3.704782E-20, 2.277373E-20, 1.257586E-20, 5.852344E-21, & 6.511950E-22, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( IHOCCHO_IUPAC, 2, IWLR ), IWLR = 1, 7 ) / & 3.704782E-20, 2.277373E-20, 1.257586E-20, 5.852344E-21, & 6.511950E-22, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( IHOCCHO_IUPAC, 3, IWLR ), IWLR = 1, 7 ) / & 3.704782E-20, 2.277373E-20, 1.257586E-20, 5.852344E-21, & 6.511950E-22, 0.000000E+00, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IHOCCHO_IUPAC, 1, IWLR ), IWLR = 1, 7 ) / & 7.500000E-01, 7.500000E-01, 7.500000E-01, 7.500000E-01, & 4.315647E-01, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( IHOCCHO_IUPAC, 2, IWLR ), IWLR = 1, 7 ) / & 7.500000E-01, 7.500000E-01, 7.500000E-01, 7.500000E-01, & 4.315647E-01, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( IHOCCHO_IUPAC, 3, IWLR ), IWLR = 1, 7 ) / & 7.500000E-01, 7.500000E-01, 7.500000E-01, 7.500000E-01, & 4.315647E-01, 0.000000E+00, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IHOCCHO_IUPAC, 1, IWLR ), IWLR = 1, 7 ) / & 2.778587E-20, 1.708030E-20, 9.431893E-21, 4.389258E-21, & 4.882468E-22, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( IHOCCHO_IUPAC, 2, IWLR ), IWLR = 1, 7 ) / & 2.778587E-20, 1.708030E-20, 9.431893E-21, 4.389258E-21, & 4.882468E-22, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( IHOCCHO_IUPAC, 3, IWLR ), IWLR = 1, 7 ) / & 2.778587E-20, 1.708030E-20, 9.431893E-21, 4.389258E-21, & 4.882468E-22, 0.000000E+00, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IHOCCHO_IUPAC, 1, IWLR ), IWLR = 1, 7 ) / & 7.500000E-01, 7.500000E-01, 7.500000E-01, 7.500000E-01, & 7.497705E-01, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( IHOCCHO_IUPAC, 2, IWLR ), IWLR = 1, 7 ) / & 7.500000E-01, 7.500000E-01, 7.500000E-01, 7.500000E-01, & 7.497705E-01, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( IHOCCHO_IUPAC, 3, IWLR ), IWLR = 1, 7 ) / & 7.500000E-01, 7.500000E-01, 7.500000E-01, 7.500000E-01, & 7.497705E-01, 0.000000E+00, 0.000000E+00 / C...ACRO-09 C.. ! Chemical Kinetics and Photochemical Data for Use in Atmospheric Studies C.. Evaluation Number 15. JPL Publication 06-2. July 10, 2006 C.. The quantum yields were derived using the pressure and wavelength-dependent C.. expression given by IUPAC (2005) for MVK, C.. with the total pressure adjusted so that the radical forming photolysis rates C.. for the chamber experiments are the same as those that fit the chamber data. C.. Adjusted pressure = 1.50 atm. C.. C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IACRO_09 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IACRO_09, 1, IWLR ), IWLR = 1, 7 ) / & 1.856128E-20, 2.787986E-20, 3.602616E-20, 4.321518E-20, & 5.371941E-20, 1.543857E-20, 0.000000E+00 / DATA ( CS_REF( IACRO_09, 2, IWLR ), IWLR = 1, 7 ) / & 1.856128E-20, 2.787986E-20, 3.602616E-20, 4.321518E-20, & 5.371941E-20, 1.543857E-20, 0.000000E+00 / DATA ( CS_REF( IACRO_09, 3, IWLR ), IWLR = 1, 7 ) / & 1.856128E-20, 2.787986E-20, 3.602616E-20, 4.321518E-20, & 5.371941E-20, 1.543857E-20, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IACRO_09, 1, IWLR ), IWLR = 1, 7 ) / & 5.332902E-02, 3.341169E-02, 2.275737E-02, 1.604885E-02, & 6.814500E-03, 6.657408E-04, 0.000000E+00 / DATA ( QY_REF( IACRO_09, 2, IWLR ), IWLR = 1, 7 ) / & 5.332902E-02, 3.341169E-02, 2.275737E-02, 1.604885E-02, & 6.814500E-03, 6.657408E-04, 0.000000E+00 / DATA ( QY_REF( IACRO_09, 3, IWLR ), IWLR = 1, 7 ) / & 5.332902E-02, 3.341169E-02, 2.275737E-02, 1.604885E-02, & 6.814500E-03, 6.657408E-04, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IACRO_09, 1, IWLR ), IWLR = 1, 7 ) / & 9.780021E-22, 9.183044E-22, 8.156418E-22, 6.894441E-22, & 3.635461E-22, 2.508367E-23, 0.000000E+00 / DATA ( ECS_REF( IACRO_09, 2, IWLR ), IWLR = 1, 7 ) / & 9.780021E-22, 9.183044E-22, 8.156418E-22, 6.894441E-22, & 3.635461E-22, 2.508367E-23, 0.000000E+00 / DATA ( ECS_REF( IACRO_09, 3, IWLR ), IWLR = 1, 7 ) / & 9.780021E-22, 9.183044E-22, 8.156418E-22, 6.894441E-22, & 3.635461E-22, 2.508367E-23, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IACRO_09, 1, IWLR ), IWLR = 1, 7 ) / & 5.269045E-02, 3.293790E-02, 2.264026E-02, 1.595375E-02, & 6.767500E-03, 1.624741E-03, 0.000000E+00 / DATA ( EQY_REF( IACRO_09, 2, IWLR ), IWLR = 1, 7 ) / & 5.269045E-02, 3.293790E-02, 2.264026E-02, 1.595375E-02, & 6.767500E-03, 1.624741E-03, 0.000000E+00 / DATA ( EQY_REF( IACRO_09, 3, IWLR ), IWLR = 1, 7 ) / & 5.269045E-02, 3.293790E-02, 2.264026E-02, 1.595375E-02, & 6.767500E-03, 1.624741E-03, 0.000000E+00 / C...PAA C.. Peroxy acetic acid absorption cross sections C.. Orlando, J. J. and G. S. Tyndall (2003): "Gas phase UV absorption spectra C.. for peracetic acid, and for acetic acid monomers and dimers," J. Photochem. C.. Photobiol A, 157, 161-166. C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IPAA ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IPAA, 1, IWLR ), IWLR = 1, 7 ) / & 1.880973E-21, 9.984294E-22, 5.884834E-22, 3.735140E-22, & 1.059116E-22, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( IPAA, 2, IWLR ), IWLR = 1, 7 ) / & 1.880973E-21, 9.984294E-22, 5.884834E-22, 3.735140E-22, & 1.059116E-22, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( IPAA, 3, IWLR ), IWLR = 1, 7 ) / & 1.880973E-21, 9.984294E-22, 5.884834E-22, 3.735140E-22, & 1.059116E-22, 0.000000E+00, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IPAA, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.624107E-01, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( IPAA, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.624107E-01, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( IPAA, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.624107E-01, 0.000000E+00, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IPAA, 1, IWLR ), IWLR = 1, 7 ) / & 1.880973E-21, 9.984294E-22, 5.884834E-22, 3.735140E-22, & 1.059115E-22, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( IPAA, 2, IWLR ), IWLR = 1, 7 ) / & 1.880973E-21, 9.984294E-22, 5.884834E-22, 3.735140E-22, & 1.059115E-22, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( IPAA, 3, IWLR ), IWLR = 1, 7 ) / & 1.880973E-21, 9.984294E-22, 5.884834E-22, 3.735140E-22, & 1.059115E-22, 0.000000E+00, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IPAA, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.999991E-01, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( IPAA, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.999991E-01, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( IPAA, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.999991E-01, 0.000000E+00, 0.000000E+00 / C...CL2 C.. CL2 + HV = 2 CL C.. FROM IUPAC EVALUATION (1996) C.. RECOMMEND UNIT QUANTUM YIELD C.. C... reference temperatures (K) DATA ( TEMP_REF( ITTR, ICL2 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( ICL2, 1, IWLR ), IWLR = 1, 7 ) / & 8.824935E-20, 1.400673E-19, 1.841698E-19, 2.185164E-19, & 2.410846E-19, 6.539243E-20, 6.311132E-22 / DATA ( CS_REF( ICL2, 2, IWLR ), IWLR = 1, 7 ) / & 8.824935E-20, 1.400673E-19, 1.841698E-19, 2.185164E-19, & 2.410846E-19, 6.539243E-20, 6.311132E-22 / DATA ( CS_REF( ICL2, 3, IWLR ), IWLR = 1, 7 ) / & 8.824935E-20, 1.400673E-19, 1.841698E-19, 2.185164E-19, & 2.410846E-19, 6.539243E-20, 6.311132E-22 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( ICL2, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 1.368807E-01 / DATA ( QY_REF( ICL2, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 1.368807E-01 / DATA ( QY_REF( ICL2, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 1.368807E-01 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( ICL2, 1, IWLR ), IWLR = 1, 7 ) / & 8.824935E-20, 1.400673E-19, 1.841698E-19, 2.185164E-19, & 2.410846E-19, 6.539243E-20, 6.311132E-22 / DATA ( ECS_REF( ICL2, 2, IWLR ), IWLR = 1, 7 ) / & 8.824935E-20, 1.400673E-19, 1.841698E-19, 2.185164E-19, & 2.410846E-19, 6.539243E-20, 6.311132E-22 / DATA ( ECS_REF( ICL2, 3, IWLR ), IWLR = 1, 7 ) / & 8.824935E-20, 1.400673E-19, 1.841698E-19, 2.185164E-19, & 2.410846E-19, 6.539243E-20, 6.311132E-22 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( ICL2, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 9.999999E-01 / DATA ( EQY_REF( ICL2, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 9.999999E-01 / DATA ( EQY_REF( ICL2, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 9.999999E-01 / C...CLNO-06 C.. CLNO absorption cross sections recommended by IUPAC (2005) C.. Wavelength where absorption goes to zero est'd by extrapolation C.. C... reference temperatures (K) DATA ( TEMP_REF( ITTR, ICLNO_06 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( ICLNO_06, 1, IWLR ), IWLR = 1, 7 ) / & 9.713532E-20, 1.043432E-19, 1.150344E-19, 1.267321E-19, & 1.479858E-19, 8.438991E-20, 4.594130E-21 / DATA ( CS_REF( ICLNO_06, 2, IWLR ), IWLR = 1, 7 ) / & 9.713532E-20, 1.043432E-19, 1.150344E-19, 1.267321E-19, & 1.479858E-19, 8.438991E-20, 4.594130E-21 / DATA ( CS_REF( ICLNO_06, 3, IWLR ), IWLR = 1, 7 ) / & 9.713532E-20, 1.043432E-19, 1.150344E-19, 1.267321E-19, & 1.479858E-19, 8.438991E-20, 4.594130E-21 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( ICLNO_06, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 2.444760E-01 / DATA ( QY_REF( ICLNO_06, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 2.444760E-01 / DATA ( QY_REF( ICLNO_06, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 2.444760E-01 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( ICLNO_06, 1, IWLR ), IWLR = 1, 7 ) / & 9.713532E-20, 1.043432E-19, 1.150344E-19, 1.267321E-19, & 1.479858E-19, 8.438991E-20, 4.594130E-21 / DATA ( ECS_REF( ICLNO_06, 2, IWLR ), IWLR = 1, 7 ) / & 9.713532E-20, 1.043432E-19, 1.150344E-19, 1.267321E-19, & 1.479858E-19, 8.438991E-20, 4.594130E-21 / DATA ( ECS_REF( ICLNO_06, 3, IWLR ), IWLR = 1, 7 ) / & 9.713532E-20, 1.043432E-19, 1.150344E-19, 1.267321E-19, & 1.479858E-19, 8.438991E-20, 4.594130E-21 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( ICLNO_06, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 9.999999E-01 / DATA ( EQY_REF( ICLNO_06, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 9.999999E-01 / DATA ( EQY_REF( ICLNO_06, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 9.999999E-01 / C...CLONO C.. CLONO + HV = CL + NO2 C.. FROM IUPAC EVALUATION (1996) C... reference temperatures (K) DATA ( TEMP_REF( ITTR, ICLONO ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( ICLONO, 1, IWLR ), IWLR = 1, 7 ) / & 1.405580E-18, 1.198578E-18, 1.052515E-18, 9.205324E-19, & 5.728580E-19, 7.394595E-20, 0.000000E+00 / DATA ( CS_REF( ICLONO, 2, IWLR ), IWLR = 1, 7 ) / & 1.405580E-18, 1.198578E-18, 1.052515E-18, 9.205324E-19, & 5.728580E-19, 7.394595E-20, 0.000000E+00 / DATA ( CS_REF( ICLONO, 3, IWLR ), IWLR = 1, 7 ) / & 1.405580E-18, 1.198578E-18, 1.052515E-18, 9.205324E-19, & 5.728580E-19, 7.394595E-20, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( ICLONO, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 8.317809E-01, 0.000000E+00 / DATA ( QY_REF( ICLONO, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 8.317809E-01, 0.000000E+00 / DATA ( QY_REF( ICLONO, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 8.317809E-01, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( ICLONO, 1, IWLR ), IWLR = 1, 7 ) / & 1.405580E-18, 1.198578E-18, 1.052515E-18, 9.205324E-19, & 5.728580E-19, 7.394595E-20, 0.000000E+00 / DATA ( ECS_REF( ICLONO, 2, IWLR ), IWLR = 1, 7 ) / & 1.405580E-18, 1.198578E-18, 1.052515E-18, 9.205324E-19, & 5.728580E-19, 7.394595E-20, 0.000000E+00 / DATA ( ECS_REF( ICLONO, 3, IWLR ), IWLR = 1, 7 ) / & 1.405580E-18, 1.198578E-18, 1.052515E-18, 9.205324E-19, & 5.728580E-19, 7.394595E-20, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( ICLONO, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999999E-01, 0.000000E+00 / DATA ( EQY_REF( ICLONO, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999999E-01, 0.000000E+00 / DATA ( EQY_REF( ICLONO, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999999E-01, 0.000000E+00 / C...CLNO2 C.. CLNO2 + HV = CL + NO2 C.. FROM IUPAC EVALUATION (1996) C.. RECOMMEND UNIT QUANTUM YILED C... reference temperatures (K) DATA ( TEMP_REF( ITTR, ICLNO2 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( ICLNO2, 1, IWLR ), IWLR = 1, 7 ) / & 1.619476E-19, 1.400598E-19, 1.206790E-19, 1.001660E-19, & 5.258209E-20, 4.822250E-21, 0.000000E+00 / DATA ( CS_REF( ICLNO2, 2, IWLR ), IWLR = 1, 7 ) / & 1.619476E-19, 1.400598E-19, 1.206790E-19, 1.001660E-19, & 5.258209E-20, 4.822250E-21, 0.000000E+00 / DATA ( CS_REF( ICLNO2, 3, IWLR ), IWLR = 1, 7 ) / & 1.619476E-19, 1.400598E-19, 1.206790E-19, 1.001660E-19, & 5.258209E-20, 4.822250E-21, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( ICLNO2, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 4.412513E-01, 0.000000E+00 / DATA ( QY_REF( ICLNO2, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 4.412513E-01, 0.000000E+00 / DATA ( QY_REF( ICLNO2, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 4.412513E-01, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( ICLNO2, 1, IWLR ), IWLR = 1, 7 ) / & 1.619476E-19, 1.400598E-19, 1.206790E-19, 1.001660E-19, & 5.258209E-20, 4.822249E-21, 0.000000E+00 / DATA ( ECS_REF( ICLNO2, 2, IWLR ), IWLR = 1, 7 ) / & 1.619476E-19, 1.400598E-19, 1.206790E-19, 1.001660E-19, & 5.258209E-20, 4.822249E-21, 0.000000E+00 / DATA ( ECS_REF( ICLNO2, 3, IWLR ), IWLR = 1, 7 ) / & 1.619476E-19, 1.400598E-19, 1.206790E-19, 1.001660E-19, & 5.258209E-20, 4.822249E-21, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( ICLNO2, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999997E-01, 0.000000E+00 / DATA ( EQY_REF( ICLNO2, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999997E-01, 0.000000E+00 / DATA ( EQY_REF( ICLNO2, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999997E-01, 0.000000E+00 / C...CLONO2-1 C.. CLONO2 + hv = CLO. + NO2 C.. CLONO2 absorption cross sections and quantum yields recommended by IUPAC (2005) C.. C... reference temperatures (K) DATA ( TEMP_REF( ITTR, ICLONO2_1 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( ICLONO2_1, 1, IWLR ), IWLR = 1, 7 ) / & 4.653757E-20, 2.593168E-20, 1.621918E-20, 1.063002E-20, & 4.392583E-21, 4.870603E-22, 0.000000E+00 / DATA ( CS_REF( ICLONO2_1, 2, IWLR ), IWLR = 1, 7 ) / & 4.653757E-20, 2.593168E-20, 1.621918E-20, 1.063002E-20, & 4.392583E-21, 4.870603E-22, 0.000000E+00 / DATA ( CS_REF( ICLONO2_1, 3, IWLR ), IWLR = 1, 7 ) / & 4.653757E-20, 2.593168E-20, 1.621918E-20, 1.063002E-20, & 4.392583E-21, 4.870603E-22, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( ICLONO2_1, 1, IWLR ), IWLR = 1, 7 ) / & 4.000000E-01, 3.989907E-01, 3.830689E-01, 3.395569E-01, & 2.198601E-01, 1.467996E-02, 0.000000E+00 / DATA ( QY_REF( ICLONO2_1, 2, IWLR ), IWLR = 1, 7 ) / & 4.000000E-01, 3.989907E-01, 3.830689E-01, 3.395569E-01, & 2.198601E-01, 1.467996E-02, 0.000000E+00 / DATA ( QY_REF( ICLONO2_1, 3, IWLR ), IWLR = 1, 7 ) / & 4.000000E-01, 3.989907E-01, 3.830689E-01, 3.395569E-01, & 2.198601E-01, 1.467996E-02, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( ICLONO2_1, 1, IWLR ), IWLR = 1, 7 ) / & 1.861503E-20, 1.035218E-20, 6.224706E-21, 3.635974E-21, & 1.037275E-21, 3.317175E-23, 0.000000E+00 / DATA ( ECS_REF( ICLONO2_1, 2, IWLR ), IWLR = 1, 7 ) / & 1.861503E-20, 1.035218E-20, 6.224706E-21, 3.635974E-21, & 1.037275E-21, 3.317175E-23, 0.000000E+00 / DATA ( ECS_REF( ICLONO2_1, 3, IWLR ), IWLR = 1, 7 ) / & 1.861503E-20, 1.035218E-20, 6.224706E-21, 3.635974E-21, & 1.037275E-21, 3.317175E-23, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( ICLONO2_1, 1, IWLR ), IWLR = 1, 7 ) / & 4.000000E-01, 3.992096E-01, 3.837866E-01, 3.420477E-01, & 2.361424E-01, 6.810604E-02, 0.000000E+00 / DATA ( EQY_REF( ICLONO2_1, 2, IWLR ), IWLR = 1, 7 ) / & 4.000000E-01, 3.992096E-01, 3.837866E-01, 3.420477E-01, & 2.361424E-01, 6.810604E-02, 0.000000E+00 / DATA ( EQY_REF( ICLONO2_1, 3, IWLR ), IWLR = 1, 7 ) / & 4.000000E-01, 3.992096E-01, 3.837866E-01, 3.420477E-01, & 2.361424E-01, 6.810604E-02, 0.000000E+00 / C...CLONO2-2 C.. CLONO2 + hv = CL. + NO3 C.. CLONO2 absorption cross sections and quantum yields recommended by IUPAC (2005) C.. C... reference temperatures (K) DATA ( TEMP_REF( ITTR, ICLONO2_2 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( ICLONO2_2, 1, IWLR ), IWLR = 1, 7 ) / & 4.653757E-20, 2.593168E-20, 1.621918E-20, 1.063002E-20, & 4.392583E-21, 1.220202E-21, 9.579231E-24 / DATA ( CS_REF( ICLONO2_2, 2, IWLR ), IWLR = 1, 7 ) / & 4.653757E-20, 2.593168E-20, 1.621918E-20, 1.063002E-20, & 4.392583E-21, 1.220202E-21, 9.579231E-24 / DATA ( CS_REF( ICLONO2_2, 3, IWLR ), IWLR = 1, 7 ) / & 4.653757E-20, 2.593168E-20, 1.621918E-20, 1.063002E-20, & 4.392583E-21, 1.220202E-21, 9.579231E-24 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( ICLONO2_2, 1, IWLR ), IWLR = 1, 7 ) / & 6.000000E-01, 6.010093E-01, 6.169312E-01, 6.604431E-01, & 7.801399E-01, 9.853200E-01, 3.841701E-02 / DATA ( QY_REF( ICLONO2_2, 2, IWLR ), IWLR = 1, 7 ) / & 6.000000E-01, 6.010093E-01, 6.169312E-01, 6.604431E-01, & 7.801399E-01, 9.853200E-01, 3.841701E-02 / DATA ( QY_REF( ICLONO2_2, 3, IWLR ), IWLR = 1, 7 ) / & 6.000000E-01, 6.010093E-01, 6.169312E-01, 6.604431E-01, & 7.801399E-01, 9.853200E-01, 3.841701E-02 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( ICLONO2_2, 1, IWLR ), IWLR = 1, 7 ) / & 2.792254E-20, 1.557950E-20, 9.994480E-21, 6.994048E-21, & 3.355308E-21, 1.187030E-21, 9.579221E-24 / DATA ( ECS_REF( ICLONO2_2, 2, IWLR ), IWLR = 1, 7 ) / & 2.792254E-20, 1.557950E-20, 9.994480E-21, 6.994048E-21, & 3.355308E-21, 1.187030E-21, 9.579221E-24 / DATA ( ECS_REF( ICLONO2_2, 3, IWLR ), IWLR = 1, 7 ) / & 2.792254E-20, 1.557950E-20, 9.994480E-21, 6.994048E-21, & 3.355308E-21, 1.187030E-21, 9.579221E-24 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( ICLONO2_2, 1, IWLR ), IWLR = 1, 7 ) / & 6.000000E-01, 6.007904E-01, 6.162134E-01, 6.579523E-01, & 7.638576E-01, 9.728145E-01, 9.999989E-01 / DATA ( EQY_REF( ICLONO2_2, 2, IWLR ), IWLR = 1, 7 ) / & 6.000000E-01, 6.007904E-01, 6.162134E-01, 6.579523E-01, & 7.638576E-01, 9.728145E-01, 9.999989E-01 / DATA ( EQY_REF( ICLONO2_2, 3, IWLR ), IWLR = 1, 7 ) / & 6.000000E-01, 6.007904E-01, 6.162134E-01, 6.579523E-01, & 7.638576E-01, 9.728145E-01, 9.999989E-01 / C...HOCL-06 C.. HOCL absorption cross sections recommended by IUPAC (2005) C.. C.. C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IHOCL_06 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IHOCL_06, 1, IWLR ), IWLR = 1, 7 ) / & 5.570117E-20, 6.066935E-20, 5.958161E-20, 5.377945E-20, & 3.120855E-20, 6.545254E-21, 1.283773E-23 / DATA ( CS_REF( IHOCL_06, 2, IWLR ), IWLR = 1, 7 ) / & 5.570117E-20, 6.066935E-20, 5.958161E-20, 5.377945E-20, & 3.120855E-20, 6.545254E-21, 1.283773E-23 / DATA ( CS_REF( IHOCL_06, 3, IWLR ), IWLR = 1, 7 ) / & 5.570117E-20, 6.066935E-20, 5.958161E-20, 5.377945E-20, & 3.120855E-20, 6.545254E-21, 1.283773E-23 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IHOCL_06, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 1.671194E-02 / DATA ( QY_REF( IHOCL_06, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 1.671194E-02 / DATA ( QY_REF( IHOCL_06, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 1.671194E-02 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IHOCL_06, 1, IWLR ), IWLR = 1, 7 ) / & 5.570117E-20, 6.066935E-20, 5.958161E-20, 5.377945E-20, & 3.120855E-20, 6.545254E-21, 1.283764E-23 / DATA ( ECS_REF( IHOCL_06, 2, IWLR ), IWLR = 1, 7 ) / & 5.570117E-20, 6.066935E-20, 5.958161E-20, 5.377945E-20, & 3.120855E-20, 6.545254E-21, 1.283764E-23 / DATA ( ECS_REF( IHOCL_06, 3, IWLR ), IWLR = 1, 7 ) / & 5.570117E-20, 6.066935E-20, 5.958161E-20, 5.377945E-20, & 3.120855E-20, 6.545254E-21, 1.283764E-23 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IHOCL_06, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 9.999929E-01 / DATA ( EQY_REF( IHOCL_06, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 9.999929E-01 / DATA ( EQY_REF( IHOCL_06, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 9.999929E-01 / C...CLCCHO C.. Chloroacetaldehyde absorption cross sections C.. NASA (2006) evaluation C... reference temperatures (K) DATA ( TEMP_REF( ITTR, ICLCCHO ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( ICLCCHO, 1, IWLR ), IWLR = 1, 7 ) / & 5.379352E-20, 5.300264E-20, 4.849378E-20, 3.861017E-20, & 1.286108E-20, 9.229011E-23, 0.000000E+00 / DATA ( CS_REF( ICLCCHO, 2, IWLR ), IWLR = 1, 7 ) / & 5.379352E-20, 5.300264E-20, 4.849378E-20, 3.861017E-20, & 1.286108E-20, 9.229011E-23, 0.000000E+00 / DATA ( CS_REF( ICLCCHO, 3, IWLR ), IWLR = 1, 7 ) / & 5.379352E-20, 5.300264E-20, 4.849378E-20, 3.861017E-20, & 1.286108E-20, 9.229011E-23, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( ICLCCHO, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.478604E-01, 0.000000E+00 / DATA ( QY_REF( ICLCCHO, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.478604E-01, 0.000000E+00 / DATA ( QY_REF( ICLCCHO, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.478604E-01, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( ICLCCHO, 1, IWLR ), IWLR = 1, 7 ) / & 5.379352E-20, 5.300264E-20, 4.849378E-20, 3.861017E-20, & 1.286108E-20, 9.228993E-23, 0.000000E+00 / DATA ( ECS_REF( ICLCCHO, 2, IWLR ), IWLR = 1, 7 ) / & 5.379352E-20, 5.300264E-20, 4.849378E-20, 3.861017E-20, & 1.286108E-20, 9.228993E-23, 0.000000E+00 / DATA ( ECS_REF( ICLCCHO, 3, IWLR ), IWLR = 1, 7 ) / & 5.379352E-20, 5.300264E-20, 4.849378E-20, 3.861017E-20, & 1.286108E-20, 9.228993E-23, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( ICLCCHO, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999981E-01, 0.000000E+00 / DATA ( EQY_REF( ICLCCHO, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999981E-01, 0.000000E+00 / DATA ( EQY_REF( ICLCCHO, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999981E-01, 0.000000E+00 / C...CLACET C.. Chloroacetone absorption cross sections C.. Chloroacetone absorption cross sections C.. C... reference temperatures (K) DATA ( TEMP_REF( ITTR, ICLACET ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( ICLACET, 1, IWLR ), IWLR = 1, 7 ) / & 1.000121E-19, 8.662045E-20, 6.774627E-20, 4.765676E-20, & 1.132983E-20, 6.893275E-23, 0.000000E+00 / DATA ( CS_REF( ICLACET, 2, IWLR ), IWLR = 1, 7 ) / & 1.000121E-19, 8.662045E-20, 6.774627E-20, 4.765676E-20, & 1.132983E-20, 6.893275E-23, 0.000000E+00 / DATA ( CS_REF( ICLACET, 3, IWLR ), IWLR = 1, 7 ) / & 1.000121E-19, 8.662045E-20, 6.774627E-20, 4.765676E-20, & 1.132983E-20, 6.893275E-23, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( ICLACET, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 2.282282E-01, 0.000000E+00 / DATA ( QY_REF( ICLACET, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 2.282282E-01, 0.000000E+00 / DATA ( QY_REF( ICLACET, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 2.282282E-01, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( ICLACET, 1, IWLR ), IWLR = 1, 7 ) / & 1.000121E-19, 8.662045E-20, 6.774627E-20, 4.765676E-20, & 1.132983E-20, 6.893270E-23, 0.000000E+00 / DATA ( ECS_REF( ICLACET, 2, IWLR ), IWLR = 1, 7 ) / & 1.000121E-19, 8.662045E-20, 6.774627E-20, 4.765676E-20, & 1.132983E-20, 6.893270E-23, 0.000000E+00 / DATA ( ECS_REF( ICLACET, 3, IWLR ), IWLR = 1, 7 ) / & 1.000121E-19, 8.662045E-20, 6.774627E-20, 4.765676E-20, & 1.132983E-20, 6.893270E-23, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( ICLACET, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999993E-01, 0.000000E+00 / DATA ( EQY_REF( ICLACET, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999993E-01, 0.000000E+00 / DATA ( EQY_REF( ICLACET, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999993E-01, 0.000000E+00 / C...NO2_SAPRC99 C.. NO2 + HV = NO + O C.. SAPRC-99 Photolysis data. Supplied by William P. L. Carter. C.. Created from PhotDat.xls on 29-Jan-2000 10:07 C... reference temperatures (K) DATA ( TEMP_REF( ITTR, INO2_SAPRC99 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( INO2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.079359E-19, 1.478273E-19, 1.860793E-19, 2.249056E-19, & 3.335557E-19, 5.492276E-19, 1.148337E-20 / DATA ( CS_REF( INO2_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 1.079359E-19, 1.478273E-19, 1.860793E-19, 2.249056E-19, & 3.335557E-19, 5.492276E-19, 1.148337E-20 / DATA ( CS_REF( INO2_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 1.079359E-19, 1.478273E-19, 1.860793E-19, 2.249056E-19, & 3.335557E-19, 5.492276E-19, 1.148337E-20 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( INO2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 9.986851E-01, 9.908283E-01, & 9.900000E-01, 7.922024E-01, 7.010630E-04 / DATA ( QY_REF( INO2_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 9.986851E-01, 9.908283E-01, & 9.900000E-01, 7.922024E-01, 7.010630E-04 / DATA ( QY_REF( INO2_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 9.986851E-01, 9.908283E-01, & 9.900000E-01, 7.922024E-01, 7.010630E-04 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( INO2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.079359E-19, 1.478273E-19, 1.858225E-19, 2.228264E-19, & 3.302202E-19, 4.272925E-19, 4.015366E-22 / DATA ( ECS_REF( INO2_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 1.079359E-19, 1.478273E-19, 1.858225E-19, 2.228264E-19, & 3.302202E-19, 4.272925E-19, 4.015366E-22 / DATA ( ECS_REF( INO2_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 1.079359E-19, 1.478273E-19, 1.858225E-19, 2.228264E-19, & 3.302202E-19, 4.272925E-19, 4.015366E-22 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( INO2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 9.986201E-01, 9.907553E-01, & 9.900000E-01, 7.779881E-01, 3.496679E-02 / DATA ( EQY_REF( INO2_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 9.986201E-01, 9.907553E-01, & 9.900000E-01, 7.779881E-01, 3.496679E-02 / DATA ( EQY_REF( INO2_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 9.986201E-01, 9.907553E-01, & 9.900000E-01, 7.779881E-01, 3.496679E-02 / C...NO3NO_SAPRC99 C.. NO3 + HV = NO + O2 (T=298) C.. SAPRC-99 Photolysis data. Supplied by William P. L. Carter. C.. Created from PhotDat.xls on 29-Jan-2000 10:07 C... reference temperatures (K) DATA ( TEMP_REF( ITTR, INO3NO_SAPRC99 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( INO3NO_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 0.000000E+00, 5.695913E-19 / DATA ( CS_REF( INO3NO_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 0.000000E+00, 5.695913E-19 / DATA ( CS_REF( INO3NO_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 0.000000E+00, 5.695913E-19 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( INO3NO_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 0.000000E+00, 2.027933E-02 / DATA ( QY_REF( INO3NO_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 0.000000E+00, 2.027933E-02 / DATA ( QY_REF( INO3NO_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 0.000000E+00, 2.027933E-02 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( INO3NO_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 0.000000E+00, 8.172153E-20 / DATA ( ECS_REF( INO3NO_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 0.000000E+00, 8.172153E-20 / DATA ( ECS_REF( INO3NO_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 0.000000E+00, 8.172153E-20 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( INO3NO_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 0.000000E+00, 1.434740E-01 / DATA ( EQY_REF( INO3NO_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 0.000000E+00, 1.434740E-01 / DATA ( EQY_REF( INO3NO_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 0.000000E+00, 1.434740E-01 / C...NO3NO2_SAPRC99 C.. NO3 + HV = NO2 + O (T=298) C.. SAPRC-99 Photolysis data. Supplied by William P. L. Carter. C.. Created from PhotDat.xls on 29-Jan-2000 10:07 C... reference temperatures (K) DATA ( TEMP_REF( ITTR, INO3NO2_SAPRC99 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( INO3NO2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 4.263211E-21, 1.112198E-18 / DATA ( CS_REF( INO3NO2_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 4.263211E-21, 1.112198E-18 / DATA ( CS_REF( INO3NO2_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 4.263211E-21, 1.112198E-18 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( INO3NO2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 2.818170E-01, 4.333254E-01 / DATA ( QY_REF( INO3NO2_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 2.818170E-01, 4.333254E-01 / DATA ( QY_REF( INO3NO2_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 2.818170E-01, 4.333254E-01 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( INO3NO2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 4.263211E-21, 7.608258E-19 / DATA ( ECS_REF( INO3NO2_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 4.263211E-21, 7.608258E-19 / DATA ( ECS_REF( INO3NO2_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 4.263211E-21, 7.608258E-19 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( INO3NO2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 1.000000E+00, 6.840740E-01 / DATA ( EQY_REF( INO3NO2_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 1.000000E+00, 6.840740E-01 / DATA ( EQY_REF( INO3NO2_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 1.000000E+00, 6.840740E-01 / C...O3O3P_SAPRC99 C.. O3 + HV = O1D + O2 C.. SAPRC-99 Photolysis data. Supplied by William P. L. Carter. C.. Created from PhotDat.xls on 29-Jan-2000 10:07 C.. Absorption cross sections from NASA (1999), using wavelength which is cente C.. r of intervals shown. C.. Quantum yields derived from O3->O1D quantum yields assuming total quantum y C.. ield is 1, though this is not adequately discussed in the evaluations. C.. Values given are interpolated for each 1 nm interval. C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IO3O3P_SAPRC99 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IO3O3P_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 8.244175E-19, 2.732249E-19, 1.048015E-19, 4.476706E-20, & 6.115310E-21, 1.783046E-23, 1.650939E-21 / DATA ( CS_REF( IO3O3P_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 8.244175E-19, 2.732249E-19, 1.048015E-19, 4.476706E-20, & 6.115310E-21, 1.783046E-23, 1.650939E-21 / DATA ( CS_REF( IO3O3P_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 8.244175E-19, 2.732249E-19, 1.048015E-19, 4.476706E-20, & 6.115310E-21, 1.783046E-23, 1.650939E-21 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IO3O3P_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 6.227041E-02, 4.316183E-02, 4.576553E-01, 7.880843E-01, & 9.572257E-01, 1.000000E+00, 1.000000E+00 / DATA ( QY_REF( IO3O3P_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 6.227041E-02, 4.316183E-02, 4.576553E-01, 7.880843E-01, & 9.572257E-01, 1.000000E+00, 1.000000E+00 / DATA ( QY_REF( IO3O3P_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 6.227041E-02, 4.316183E-02, 4.576553E-01, 7.880843E-01, & 9.572257E-01, 1.000000E+00, 1.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IO3O3P_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 5.234537E-20, 1.108793E-20, 4.421269E-20, 3.478935E-20, & 5.673101E-21, 1.783046E-23, 1.650939E-21 / DATA ( ECS_REF( IO3O3P_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 5.234537E-20, 1.108793E-20, 4.421269E-20, 3.478935E-20, & 5.673101E-21, 1.783046E-23, 1.650939E-21 / DATA ( ECS_REF( IO3O3P_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 5.234537E-20, 1.108793E-20, 4.421269E-20, 3.478935E-20, & 5.673101E-21, 1.783046E-23, 1.650939E-21 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IO3O3P_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 6.349377E-02, 4.058169E-02, 4.218709E-01, 7.771195E-01, & 9.276882E-01, 1.000000E+00, 1.000000E+00 / DATA ( EQY_REF( IO3O3P_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 6.349377E-02, 4.058169E-02, 4.218709E-01, 7.771195E-01, & 9.276882E-01, 1.000000E+00, 1.000000E+00 / DATA ( EQY_REF( IO3O3P_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 6.349377E-02, 4.058169E-02, 4.218709E-01, 7.771195E-01, & 9.276882E-01, 1.000000E+00, 1.000000E+00 / C...O3O1D_SAPRC99 C.. O3 + HV = O1D + O2 C.. SAPRC-99 Photolysis data. Supplied by William P. L. Carter. C.. Created from PhotDat.xls on 29-Jan-2000 10:07 C.. Absorption cross sections from NASA (1999), using wavelength which is cente C.. r of intervals shown. C.. Quantum yields from IUPAC, Supplement VI (1997). C.. No quantum yield recommendation is given for wl>335. Assume they decrease C.. linearly to zero at 340 nm. C.. Values given are interpolated for each 1 nm interval. C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IO3O1D_SAPRC99 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IO3O1D_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 8.244175E-19, 2.732249E-19, 1.048015E-19, 4.476706E-20, & 5.921064E-21, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( IO3O1D_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 8.244175E-19, 2.732249E-19, 1.048015E-19, 4.476706E-20, & 5.921064E-21, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( IO3O1D_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 8.244175E-19, 2.732249E-19, 1.048015E-19, 4.476706E-20, & 5.921064E-21, 0.000000E+00, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IO3O1D_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 9.377296E-01, 9.568382E-01, 5.423447E-01, 2.119156E-01, & 4.277430E-02, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( IO3O1D_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 9.377296E-01, 9.568382E-01, 5.423447E-01, 2.119156E-01, & 4.277430E-02, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( IO3O1D_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 9.377296E-01, 9.568382E-01, 5.423447E-01, 2.119156E-01, & 4.277430E-02, 0.000000E+00, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IO3O1D_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 7.720721E-19, 2.621370E-19, 6.058880E-20, 9.977705E-21, & 4.422089E-22, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( IO3O1D_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 7.720721E-19, 2.621370E-19, 6.058880E-20, 9.977705E-21, & 4.422089E-22, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( IO3O1D_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 7.720721E-19, 2.621370E-19, 6.058880E-20, 9.977705E-21, & 4.422089E-22, 0.000000E+00, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IO3O1D_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 9.365062E-01, 9.594183E-01, 5.781292E-01, 2.228805E-01, & 7.468402E-02, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( IO3O1D_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 9.365062E-01, 9.594183E-01, 5.781292E-01, 2.228805E-01, & 7.468402E-02, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( IO3O1D_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 9.365062E-01, 9.594183E-01, 5.781292E-01, 2.228805E-01, & 7.468402E-02, 0.000000E+00, 0.000000E+00 / C...HONO_NO_SAPRC99 C.. HONO + HV = HO. + NO C.. SAPRC-99 Photolysis data. Supplied by William P. L. Carter. C.. Created from PhotDat.xls on 29-Jan-2000 10:07 C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IHONO_NO_SAPRC99 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IHONO_NO_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 1.218199E-20, 3.477931E-20, & 1.090586E-19, 8.781877E-20, 0.000000E+00 / DATA ( CS_REF( IHONO_NO_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 1.218199E-20, 3.477931E-20, & 1.090586E-19, 8.781877E-20, 0.000000E+00 / DATA ( CS_REF( IHONO_NO_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 1.218199E-20, 3.477931E-20, & 1.090586E-19, 8.781877E-20, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IHONO_NO_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 2.840296E-01, 4.690968E-01, & 6.487832E-01, 6.915470E-01, 0.000000E+00 / DATA ( QY_REF( IHONO_NO_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 2.840296E-01, 4.690968E-01, & 6.487832E-01, 6.915470E-01, 0.000000E+00 / DATA ( QY_REF( IHONO_NO_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 2.840296E-01, 4.690968E-01, & 6.487832E-01, 6.915470E-01, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IHONO_NO_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 5.061778E-21, 1.650458E-20, & 7.360098E-20, 8.336920E-20, 0.000000E+00 / DATA ( ECS_REF( IHONO_NO_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 5.061778E-21, 1.650458E-20, & 7.360098E-20, 8.336920E-20, 0.000000E+00 / DATA ( ECS_REF( IHONO_NO_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 5.061778E-21, 1.650458E-20, & 7.360098E-20, 8.336920E-20, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IHONO_NO_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 4.155132E-01, 4.745518E-01, & 6.748757E-01, 9.493324E-01, 0.000000E+00 / DATA ( EQY_REF( IHONO_NO_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 4.155132E-01, 4.745518E-01, & 6.748757E-01, 9.493324E-01, 0.000000E+00 / DATA ( EQY_REF( IHONO_NO_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 4.155132E-01, 4.745518E-01, & 6.748757E-01, 9.493324E-01, 0.000000E+00 / C...HONO_NO2_SAPRC99 C.. HONO + HV = H. + NO2 C.. SAPRC-99 Photolysis data. Supplied by William P. L. Carter. C.. Created from PhotDat.xls on 29-Jan-2000 10:07 C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IHONO_NO2_SAPRC99 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IHONO_NO2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 1.218199E-20, 3.477931E-20, & 1.090586E-19, 3.949962E-20, 0.000000E+00 / DATA ( CS_REF( IHONO_NO2_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 1.218199E-20, 3.477931E-20, & 1.090586E-19, 3.949962E-20, 0.000000E+00 / DATA ( CS_REF( IHONO_NO2_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 1.218199E-20, 3.477931E-20, & 1.090586E-19, 3.949962E-20, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IHONO_NO2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 4.022087E-01, 5.309032E-01, & 3.512168E-01, 2.663607E-02, 0.000000E+00 / DATA ( QY_REF( IHONO_NO2_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 4.022087E-01, 5.309032E-01, & 3.512168E-01, 2.663607E-02, 0.000000E+00 / DATA ( QY_REF( IHONO_NO2_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 4.022087E-01, 5.309032E-01, & 3.512168E-01, 2.663607E-02, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IHONO_NO2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 7.119835E-21, 1.827472E-20, & 3.545759E-20, 4.449558E-21, 0.000000E+00 / DATA ( ECS_REF( IHONO_NO2_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 7.119835E-21, 1.827472E-20, & 3.545759E-20, 4.449558E-21, 0.000000E+00 / DATA ( ECS_REF( IHONO_NO2_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 7.119835E-21, 1.827472E-20, & 3.545759E-20, 4.449558E-21, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IHONO_NO2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 5.844557E-01, 5.254481E-01, & 3.251243E-01, 1.126481E-01, 0.000000E+00 / DATA ( EQY_REF( IHONO_NO2_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 5.844557E-01, 5.254481E-01, & 3.251243E-01, 1.126481E-01, 0.000000E+00 / DATA ( EQY_REF( IHONO_NO2_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 5.844557E-01, 5.254481E-01, & 3.251243E-01, 1.126481E-01, 0.000000E+00 / C...HNO3_SAPRC99 C.. HNO3 + HV = products C.. SAPRC-99 Photolysis data. Supplied by William P. L. Carter. C.. Created from PhotDat.xls on 29-Jan-2000 10:07 C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IHNO3_SAPRC99 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IHNO3_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 4.358850E-21, 1.954554E-21, 8.462462E-22, 3.649777E-22, & 4.770195E-23, 3.875268E-25, 0.000000E+00 / DATA ( CS_REF( IHNO3_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 4.358850E-21, 1.954554E-21, 8.462462E-22, 3.649777E-22, & 4.770195E-23, 3.875268E-25, 0.000000E+00 / DATA ( CS_REF( IHNO3_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 4.358850E-21, 1.954554E-21, 8.462462E-22, 3.649777E-22, & 4.770195E-23, 3.875268E-25, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IHNO3_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.142428E-01, 0.000000E+00 / DATA ( QY_REF( IHNO3_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.142428E-01, 0.000000E+00 / DATA ( QY_REF( IHNO3_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.142428E-01, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IHNO3_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 4.358850E-21, 1.954554E-21, 8.462462E-22, 3.649777E-22, & 4.770195E-23, 3.875251E-25, 0.000000E+00 / DATA ( ECS_REF( IHNO3_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 4.358850E-21, 1.954554E-21, 8.462462E-22, 3.649777E-22, & 4.770195E-23, 3.875251E-25, 0.000000E+00 / DATA ( ECS_REF( IHNO3_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 4.358850E-21, 1.954554E-21, 8.462462E-22, 3.649777E-22, & 4.770195E-23, 3.875251E-25, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IHNO3_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999956E-01, 0.000000E+00 / DATA ( EQY_REF( IHNO3_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999956E-01, 0.000000E+00 / DATA ( EQY_REF( IHNO3_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999956E-01, 0.000000E+00 / C...HO2NO2_SAPRC99 C.. HO2NO2 + HV = PRODUCTS C.. SAPRC-99 Photolysis data. Supplied by William P. L. Carter. C.. Created from PhotDat.xls on 29-Jan-2000 10:07 C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IHO2NO2_SAPRC99 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IHO2NO2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 2.591178E-20, 1.079991E-20, 5.527937E-21, 3.457473E-21, & 6.327396E-22, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( IHO2NO2_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 2.591178E-20, 1.079991E-20, 5.527937E-21, 3.457473E-21, & 6.327396E-22, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( IHO2NO2_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 2.591178E-20, 1.079991E-20, 5.527937E-21, 3.457473E-21, & 6.327396E-22, 0.000000E+00, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IHO2NO2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 5.754197E-01, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( IHO2NO2_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 5.754197E-01, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( IHO2NO2_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 5.754197E-01, 0.000000E+00, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IHO2NO2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 2.591178E-20, 1.079991E-20, 5.527937E-21, 3.457473E-21, & 6.327384E-22, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( IHO2NO2_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 2.591178E-20, 1.079991E-20, 5.527937E-21, 3.457473E-21, & 6.327384E-22, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( IHO2NO2_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 2.591178E-20, 1.079991E-20, 5.527937E-21, 3.457473E-21, & 6.327384E-22, 0.000000E+00, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IHO2NO2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.999982E-01, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( IHO2NO2_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.999982E-01, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( IHO2NO2_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.999982E-01, 0.000000E+00, 0.000000E+00 / C...H2O2_SAPRC99 C.. H2O2 + HV = 2 OH C.. SAPRC-99 Photolysis data. Supplied by William P. L. Carter. C.. Created from PhotDat.xls on 29-Jan-2000 10:07 C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IH2O2_SAPRC99 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IH2O2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 9.353266E-21, 5.771016E-21, 3.923017E-21, 2.721918E-21, & 1.138123E-21, 3.606306E-23, 0.000000E+00 / DATA ( CS_REF( IH2O2_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 9.353266E-21, 5.771016E-21, 3.923017E-21, 2.721918E-21, & 1.138123E-21, 3.606306E-23, 0.000000E+00 / DATA ( CS_REF( IH2O2_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 9.353266E-21, 5.771016E-21, 3.923017E-21, 2.721918E-21, & 1.138123E-21, 3.606306E-23, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IH2O2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.142428E-01, 0.000000E+00 / DATA ( QY_REF( IH2O2_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.142428E-01, 0.000000E+00 / DATA ( QY_REF( IH2O2_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.142428E-01, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IH2O2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 9.353266E-21, 5.771016E-21, 3.923017E-21, 2.721918E-21, & 1.138123E-21, 3.606289E-23, 0.000000E+00 / DATA ( ECS_REF( IH2O2_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 9.353266E-21, 5.771016E-21, 3.923017E-21, 2.721918E-21, & 1.138123E-21, 3.606289E-23, 0.000000E+00 / DATA ( ECS_REF( IH2O2_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 9.353266E-21, 5.771016E-21, 3.923017E-21, 2.721918E-21, & 1.138123E-21, 3.606289E-23, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IH2O2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999954E-01, 0.000000E+00 / DATA ( EQY_REF( IH2O2_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999954E-01, 0.000000E+00 / DATA ( EQY_REF( IH2O2_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999954E-01, 0.000000E+00 / C...HCHO_R_SAPRC99 C.. HCHO + HV = HCO + H C.. SAPRC-99 Photolysis data. Supplied by William P. L. Carter. C.. Created from PhotDat.xls on 29-Jan-2000 10:07 C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IHCHO_R_SAPRC99 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IHCHO_R_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 3.131429E-20, 3.361011E-20, 1.633825E-20, 3.089588E-20, & 1.387170E-20, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( IHCHO_R_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 3.131429E-20, 3.361011E-20, 1.633825E-20, 3.089588E-20, & 1.387170E-20, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( IHCHO_R_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 3.131429E-20, 3.361011E-20, 1.633825E-20, 3.089588E-20, & 1.387170E-20, 0.000000E+00, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IHCHO_R_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 7.530258E-01, 7.793080E-01, 7.694805E-01, 6.766393E-01, & 2.101619E-01, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( IHCHO_R_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 7.530258E-01, 7.793080E-01, 7.694805E-01, 6.766393E-01, & 2.101619E-01, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( IHCHO_R_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 7.530258E-01, 7.793080E-01, 7.694805E-01, 6.766393E-01, & 2.101619E-01, 0.000000E+00, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IHCHO_R_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 2.360363E-20, 2.619580E-20, 1.264450E-20, 2.110757E-20, & 3.830408E-21, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( IHCHO_R_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 2.360363E-20, 2.619580E-20, 1.264450E-20, 2.110757E-20, & 3.830408E-21, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( IHCHO_R_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 2.360363E-20, 2.619580E-20, 1.264450E-20, 2.110757E-20, & 3.830408E-21, 0.000000E+00, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IHCHO_R_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 7.537656E-01, 7.794024E-01, 7.739203E-01, 6.831840E-01, & 2.761312E-01, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( IHCHO_R_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 7.537656E-01, 7.794024E-01, 7.739203E-01, 6.831840E-01, & 2.761312E-01, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( IHCHO_R_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 7.537656E-01, 7.794024E-01, 7.739203E-01, 6.831840E-01, & 2.761312E-01, 0.000000E+00, 0.000000E+00 / C...HCHO_M_SAPRC99 C.. HCHO + HV = H2 + CO C.. SAPRC-99 Photolysis data. Supplied by William P. L. Carter. C.. Created from PhotDat.xls on 29-Jan-2000 10:07 C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IHCHO_M_SAPRC99 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IHCHO_M_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 3.131429E-20, 3.361011E-20, 1.633825E-20, 3.089588E-20, & 1.653456E-20, 7.220900E-22, 0.000000E+00 / DATA ( CS_REF( IHCHO_M_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 3.131429E-20, 3.361011E-20, 1.633825E-20, 3.089588E-20, & 1.653456E-20, 7.220900E-22, 0.000000E+00 / DATA ( CS_REF( IHCHO_M_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 3.131429E-20, 3.361011E-20, 1.633825E-20, 3.089588E-20, & 1.653456E-20, 7.220900E-22, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IHCHO_M_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 2.261845E-01, 2.137267E-01, 2.298757E-01, 3.233053E-01, & 5.541007E-01, 2.985801E-02, 0.000000E+00 / DATA ( QY_REF( IHCHO_M_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 2.261845E-01, 2.137267E-01, 2.298757E-01, 3.233053E-01, & 5.541007E-01, 2.985801E-02, 0.000000E+00 / DATA ( QY_REF( IHCHO_M_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 2.261845E-01, 2.137267E-01, 2.298757E-01, 3.233053E-01, & 5.541007E-01, 2.985801E-02, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IHCHO_M_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 7.068908E-21, 7.200789E-21, 3.679953E-21, 9.787576E-21, & 9.269445E-21, 1.144538E-22, 0.000000E+00 / DATA ( ECS_REF( IHCHO_M_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 7.068908E-21, 7.200789E-21, 3.679953E-21, 9.787576E-21, & 9.269445E-21, 1.144538E-22, 0.000000E+00 / DATA ( ECS_REF( IHCHO_M_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 7.068908E-21, 7.200789E-21, 3.679953E-21, 9.787576E-21, & 9.269445E-21, 1.144538E-22, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IHCHO_M_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 2.257407E-01, 2.142447E-01, 2.252355E-01, 3.167923E-01, & 5.606101E-01, 1.585035E-01, 0.000000E+00 / DATA ( EQY_REF( IHCHO_M_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 2.257407E-01, 2.142447E-01, 2.252355E-01, 3.167923E-01, & 5.606101E-01, 1.585035E-01, 0.000000E+00 / DATA ( EQY_REF( IHCHO_M_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 2.257407E-01, 2.142447E-01, 2.252355E-01, 3.167923E-01, & 5.606101E-01, 1.585035E-01, 0.000000E+00 / C...CCHO_R_SAPRC99 C.. CCHO + HV = CH3 + CHO C.. SAPRC-99 Photolysis data. Supplied by William P. L. Carter. C.. Created from PhotDat.xls on 29-Jan-2000 10:07 C... reference temperatures (K) DATA ( TEMP_REF( ITTR, ICCHO_R_SAPRC99 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( ICCHO_R_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 4.432586E-20, 3.717937E-20, 2.933103E-20, 2.104728E-20, & 3.715596E-21, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( ICCHO_R_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 4.432586E-20, 3.717937E-20, 2.933103E-20, 2.104728E-20, & 3.715596E-21, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( ICCHO_R_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 4.432586E-20, 3.717937E-20, 2.933103E-20, 2.104728E-20, & 3.715596E-21, 0.000000E+00, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( ICCHO_R_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 4.839485E-01, 3.902037E-01, 2.845214E-01, 1.538485E-01, & 1.409402E-02, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( ICCHO_R_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 4.839485E-01, 3.902037E-01, 2.845214E-01, 1.538485E-01, & 1.409402E-02, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( ICCHO_R_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 4.839485E-01, 3.902037E-01, 2.845214E-01, 1.538485E-01, & 1.409402E-02, 0.000000E+00, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( ICCHO_R_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 2.147745E-20, 1.461038E-20, 8.426962E-21, 3.330092E-21, & 1.731218E-22, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( ICCHO_R_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 2.147745E-20, 1.461038E-20, 8.426962E-21, 3.330092E-21, & 1.731218E-22, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( ICCHO_R_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 2.147745E-20, 1.461038E-20, 8.426962E-21, 3.330092E-21, & 1.731218E-22, 0.000000E+00, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( ICCHO_R_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 4.845355E-01, 3.929700E-01, 2.873054E-01, 1.582196E-01, & 4.659327E-02, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( ICCHO_R_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 4.845355E-01, 3.929700E-01, 2.873054E-01, 1.582196E-01, & 4.659327E-02, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( ICCHO_R_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 4.845355E-01, 3.929700E-01, 2.873054E-01, 1.582196E-01, & 4.659327E-02, 0.000000E+00, 0.000000E+00 / C...C2CHO_SAPRC99 C.. C2CHO + HV = C2H5. + CHO. C.. SAPRC-99 Photolysis data. Supplied by William P. L. Carter. C.. Created from PhotDat.xls on 29-Jan-2000 10:07 C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IC2CHO_SAPRC99 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IC2CHO_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 3.113497E-20, 4.634689E-20, 3.579653E-20, 2.441742E-20, & 5.808827E-21, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( IC2CHO_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 3.113497E-20, 4.634689E-20, 3.579653E-20, 2.441742E-20, & 5.808827E-21, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( IC2CHO_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 3.113497E-20, 4.634689E-20, 3.579653E-20, 2.441742E-20, & 5.808827E-21, 0.000000E+00, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IC2CHO_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 5.112442E-01, 7.954021E-01, 5.951666E-01, 4.312297E-01, & 1.520064E-01, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( IC2CHO_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 5.112442E-01, 7.954021E-01, 5.951666E-01, 4.312297E-01, & 1.520064E-01, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( IC2CHO_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 5.112442E-01, 7.954021E-01, 5.951666E-01, 4.312297E-01, & 1.520064E-01, 0.000000E+00, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IC2CHO_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 2.730256E-20, 3.713801E-20, 2.133677E-20, 1.077360E-20, & 1.383933E-21, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( IC2CHO_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 2.730256E-20, 3.713801E-20, 2.133677E-20, 1.077360E-20, & 1.383933E-21, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( IC2CHO_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 2.730256E-20, 3.713801E-20, 2.133677E-20, 1.077360E-20, & 1.383933E-21, 0.000000E+00, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IC2CHO_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 8.769099E-01, 8.013052E-01, 5.960570E-01, 4.412259E-01, & 2.382466E-01, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( IC2CHO_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 8.769099E-01, 8.013052E-01, 5.960570E-01, 4.412259E-01, & 2.382466E-01, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( IC2CHO_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 8.769099E-01, 8.013052E-01, 5.960570E-01, 4.412259E-01, & 2.382466E-01, 0.000000E+00, 0.000000E+00 / C...ACETONE_SAPRC99 C.. ACETONE + HV = CH3CO. + CH3. C.. SAPRC-99 Photolysis data. Supplied by William P. L. Carter. C.. Created from PhotDat.xls on 29-Jan-2000 10:07 C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IACETONE_SAPRC99 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IACETONE_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 3.565269E-20, 2.347503E-20, 1.411211E-20, 7.530059E-21, & 8.363643E-22, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( IACETONE_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 3.565269E-20, 2.347503E-20, 1.411211E-20, 7.530059E-21, & 8.363643E-22, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( IACETONE_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 3.565269E-20, 2.347503E-20, 1.411211E-20, 7.530059E-21, & 8.363643E-22, 0.000000E+00, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IACETONE_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 2.242420E-01, 1.142595E-01, 5.803515E-02, 2.870061E-02, & 4.434764E-03, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( IACETONE_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 2.242420E-01, 1.142595E-01, 5.803515E-02, 2.870061E-02, & 4.434764E-03, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( IACETONE_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 2.242420E-01, 1.142595E-01, 5.803515E-02, 2.870061E-02, & 4.434764E-03, 0.000000E+00, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IACETONE_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 8.097962E-21, 2.778257E-21, 8.357552E-22, 2.321761E-22, & 8.431038E-24, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( IACETONE_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 8.097962E-21, 2.778257E-21, 8.357552E-22, 2.321761E-22, & 8.431038E-24, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( IACETONE_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 8.097962E-21, 2.778257E-21, 8.357552E-22, 2.321761E-22, & 8.431038E-24, 0.000000E+00, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IACETONE_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 2.271347E-01, 1.183495E-01, 5.922253E-02, 3.083324E-02, & 1.008058E-02, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( IACETONE_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 2.271347E-01, 1.183495E-01, 5.922253E-02, 3.083324E-02, & 1.008058E-02, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( IACETONE_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 2.271347E-01, 1.183495E-01, 5.922253E-02, 3.083324E-02, & 1.008058E-02, 0.000000E+00, 0.000000E+00 / C...KETONE_SAPRC99 C.. Methyl Ethyl Ketone Absorption Cross Sections C.. SAPRC-99 Photolysis data. Supplied by William P. L. Carter. C.. Created from PhotDat.xls on 29-Jan-2000 10:07 C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IKETONE_SAPRC99 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IKETONE_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 4.255141E-20, 2.715762E-20, 1.567299E-20, 7.669451E-21, & 7.479082E-22, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( IKETONE_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 4.255141E-20, 2.715762E-20, 1.567299E-20, 7.669451E-21, & 7.479082E-22, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( IKETONE_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 4.255141E-20, 2.715762E-20, 1.567299E-20, 7.669451E-21, & 7.479082E-22, 0.000000E+00, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IKETONE_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.169248E-01, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( IKETONE_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.169248E-01, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( IKETONE_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.169248E-01, 0.000000E+00, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IKETONE_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 4.255141E-20, 2.715762E-20, 1.567299E-20, 7.669451E-21, & 7.479075E-22, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( IKETONE_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 4.255141E-20, 2.715762E-20, 1.567299E-20, 7.669451E-21, & 7.479075E-22, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( IKETONE_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 4.255141E-20, 2.715762E-20, 1.567299E-20, 7.669451E-21, & 7.479075E-22, 0.000000E+00, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IKETONE_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.999990E-01, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( IKETONE_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.999990E-01, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( IKETONE_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.999990E-01, 0.000000E+00, 0.000000E+00 / C...COOH_SAPRC99 C.. CH3OOH + HV = PRODUCTS C.. SAPRC-99 Photolysis data. Supplied by William P. L. Carter. C.. Created from PhotDat.xls on 29-Jan-2000 10:07 C... reference temperatures (K) DATA ( TEMP_REF( ITTR, ICOOH_SAPRC99 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( ICOOH_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 5.623467E-21, 3.524633E-21, 2.410330E-21, 1.699588E-21, & 7.230005E-22, 5.395097E-23, 0.000000E+00 / DATA ( CS_REF( ICOOH_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 5.623467E-21, 3.524633E-21, 2.410330E-21, 1.699588E-21, & 7.230005E-22, 5.395097E-23, 0.000000E+00 / DATA ( CS_REF( ICOOH_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 5.623467E-21, 3.524633E-21, 2.410330E-21, 1.699588E-21, & 7.230005E-22, 5.395097E-23, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( ICOOH_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 3.016710E-01, 0.000000E+00 / DATA ( QY_REF( ICOOH_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 3.016710E-01, 0.000000E+00 / DATA ( QY_REF( ICOOH_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 3.016710E-01, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( ICOOH_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 5.623467E-21, 3.524633E-21, 2.410330E-21, 1.699588E-21, & 7.230005E-22, 5.395090E-23, 0.000000E+00 / DATA ( ECS_REF( ICOOH_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 5.623467E-21, 3.524633E-21, 2.410330E-21, 1.699588E-21, & 7.230005E-22, 5.395090E-23, 0.000000E+00 / DATA ( ECS_REF( ICOOH_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 5.623467E-21, 3.524633E-21, 2.410330E-21, 1.699588E-21, & 7.230005E-22, 5.395090E-23, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( ICOOH_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999989E-01, 0.000000E+00 / DATA ( EQY_REF( ICOOH_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999989E-01, 0.000000E+00 / DATA ( EQY_REF( ICOOH_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999989E-01, 0.000000E+00 / C...GLY_R_SAPRC99 C.. Glyoxal + hv = 2 HCO C.. SAPRC-99 Photolysis data. Supplied by William P. L. Carter. C.. Created from PhotDat.xls on 29-Jan-2000 10:07 C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IGLY_R_SAPRC99 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IGLY_R_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 3.307062E-20, 3.064663E-20, 2.759448E-20, 2.066155E-20, & 6.469823E-21, 2.034930E-20, 6.237997E-22 / DATA ( CS_REF( IGLY_R_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 3.307062E-20, 3.064663E-20, 2.759448E-20, 2.066155E-20, & 6.469823E-21, 2.034930E-20, 6.237997E-22 / DATA ( CS_REF( IGLY_R_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 3.307062E-20, 3.064663E-20, 2.759448E-20, 2.066155E-20, & 6.469823E-21, 2.034930E-20, 6.237997E-22 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IGLY_R_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 5.446526E-01, 0.000000E+00 / DATA ( QY_REF( IGLY_R_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 5.446526E-01, 0.000000E+00 / DATA ( QY_REF( IGLY_R_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 5.446526E-01, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IGLY_R_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 3.307062E-20, 3.064663E-20, 2.759448E-20, 2.066155E-20, & 6.469823E-21, 4.361289E-21, 0.000000E+00 / DATA ( ECS_REF( IGLY_R_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 3.307062E-20, 3.064663E-20, 2.759448E-20, 2.066155E-20, & 6.469823E-21, 4.361289E-21, 0.000000E+00 / DATA ( ECS_REF( IGLY_R_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 3.307062E-20, 3.064663E-20, 2.759448E-20, 2.066155E-20, & 6.469823E-21, 4.361289E-21, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IGLY_R_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 2.143213E-01, 0.000000E+00 / DATA ( EQY_REF( IGLY_R_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 2.143213E-01, 0.000000E+00 / DATA ( EQY_REF( IGLY_R_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 2.143213E-01, 0.000000E+00 / C...GLY_ABS_SAPRC99 C.. Glyoxal Absorption Cross Sections C.. SAPRC-99 Photolysis data. Supplied by William P. L. Carter. C.. Created from PhotDat.xls on 29-Jan-2000 10:07 C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IGLY_ABS_SAPRC99 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IGLY_ABS_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 3.307062E-20, 3.064663E-20, 2.759448E-20, 2.066155E-20, & 6.469823E-21, 2.034930E-20, 7.746832E-21 / DATA ( CS_REF( IGLY_ABS_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 3.307062E-20, 3.064663E-20, 2.759448E-20, 2.066155E-20, & 6.469823E-21, 2.034930E-20, 7.746832E-21 / DATA ( CS_REF( IGLY_ABS_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 3.307062E-20, 3.064663E-20, 2.759448E-20, 2.066155E-20, & 6.469823E-21, 2.034930E-20, 7.746832E-21 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IGLY_ABS_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 9.534627E-02 / DATA ( QY_REF( IGLY_ABS_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 9.534627E-02 / DATA ( QY_REF( IGLY_ABS_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 9.534627E-02 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IGLY_ABS_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 3.307062E-20, 3.064663E-20, 2.759448E-20, 2.066155E-20, & 6.469823E-21, 2.034930E-20, 7.746832E-21 / DATA ( ECS_REF( IGLY_ABS_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 3.307062E-20, 3.064663E-20, 2.759448E-20, 2.066155E-20, & 6.469823E-21, 2.034930E-20, 7.746832E-21 / DATA ( ECS_REF( IGLY_ABS_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 3.307062E-20, 3.064663E-20, 2.759448E-20, 2.066155E-20, & 6.469823E-21, 2.034930E-20, 7.746832E-21 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IGLY_ABS_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 9.999999E-01 / DATA ( EQY_REF( IGLY_ABS_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 9.999999E-01 / DATA ( EQY_REF( IGLY_ABS_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 9.999999E-01 / C...MGLY_ADJ_SAPRC99 C.. MGLY + HV = PRODUCTS C.. SAPRC-99 Photolysis data. Supplied by William P. L. Carter. C.. Created from PhotDat.xls on 29-Jan-2000 10:07 C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IMGLY_ADJ_SAPRC99 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IMGLY_ADJ_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 4.414885E-20, 3.510064E-20, 2.364210E-20, 1.814704E-20, & 5.998223E-21, 3.697529E-20, 1.477388E-21 / DATA ( CS_REF( IMGLY_ADJ_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 4.414885E-20, 3.510064E-20, 2.364210E-20, 1.814704E-20, & 5.998223E-21, 3.697529E-20, 1.477388E-21 / DATA ( CS_REF( IMGLY_ADJ_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 4.414885E-20, 3.510064E-20, 2.364210E-20, 1.814704E-20, & 5.998223E-21, 3.697529E-20, 1.477388E-21 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IMGLY_ADJ_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.992942E-01, 3.801419E-01, 0.000000E+00 / DATA ( QY_REF( IMGLY_ADJ_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.992942E-01, 3.801419E-01, 0.000000E+00 / DATA ( QY_REF( IMGLY_ADJ_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.992942E-01, 3.801419E-01, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IMGLY_ADJ_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 4.414885E-20, 3.510064E-20, 2.364210E-20, 1.814704E-20, & 5.996164E-21, 6.110804E-21, 0.000000E+00 / DATA ( ECS_REF( IMGLY_ADJ_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 4.414885E-20, 3.510064E-20, 2.364210E-20, 1.814704E-20, & 5.996164E-21, 6.110804E-21, 0.000000E+00 / DATA ( ECS_REF( IMGLY_ADJ_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 4.414885E-20, 3.510064E-20, 2.364210E-20, 1.814704E-20, & 5.996164E-21, 6.110804E-21, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IMGLY_ADJ_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.996566E-01, 1.652672E-01, 0.000000E+00 / DATA ( EQY_REF( IMGLY_ADJ_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.996566E-01, 1.652672E-01, 0.000000E+00 / DATA ( EQY_REF( IMGLY_ADJ_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.996566E-01, 1.652672E-01, 0.000000E+00 / C...BACL_ADJ_SAPRC99 C.. BACL + HV = PRODUCTS C.. SAPRC-99 Photolysis data. Supplied by William P. L. Carter. C.. Created from PhotDat.xls on 29-Jan-2000 10:07 C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IBACL_ADJ_SAPRC99 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IBACL_ADJ_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 2.617461E-20, 1.589011E-20, 9.041847E-21, 6.004408E-21, & 4.676505E-21, 3.224516E-20, 4.675102E-21 / DATA ( CS_REF( IBACL_ADJ_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 2.617461E-20, 1.589011E-20, 9.041847E-21, 6.004408E-21, & 4.676505E-21, 3.224516E-20, 4.675102E-21 / DATA ( CS_REF( IBACL_ADJ_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 2.617461E-20, 1.589011E-20, 9.041847E-21, 6.004408E-21, & 4.676505E-21, 3.224516E-20, 4.675102E-21 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IBACL_ADJ_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 5.303440E-01, 9.162429E-04 / DATA ( QY_REF( IBACL_ADJ_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 5.303440E-01, 9.162429E-04 / DATA ( QY_REF( IBACL_ADJ_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 5.303440E-01, 9.162429E-04 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IBACL_ADJ_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 2.617461E-20, 1.589011E-20, 9.041847E-21, 6.004408E-21, & 4.676505E-21, 1.215315E-20, 6.213299E-23 / DATA ( ECS_REF( IBACL_ADJ_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 2.617461E-20, 1.589011E-20, 9.041847E-21, 6.004408E-21, & 4.676505E-21, 1.215315E-20, 6.213299E-23 / DATA ( ECS_REF( IBACL_ADJ_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 2.617461E-20, 1.589011E-20, 9.041847E-21, 6.004408E-21, & 4.676505E-21, 1.215315E-20, 6.213299E-23 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IBACL_ADJ_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 3.768983E-01, 1.329019E-02 / DATA ( EQY_REF( IBACL_ADJ_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 3.768983E-01, 1.329019E-02 / DATA ( EQY_REF( IBACL_ADJ_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 3.768983E-01, 1.329019E-02 / C...BZCHO_SAPRC99 C.. Benzaldehyde absorbtion coefs in n-Hexane C.. SAPRC-99 Photolysis data. Supplied by William P. L. Carter. C.. Created from PhotDat.xls on 29-Jan-2000 10:07 C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IBZCHO_SAPRC99 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IBZCHO_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 9.271376E-20, 6.609039E-20, 6.730973E-20, & 8.248212E-20, 2.821757E-20, 0.000000E+00 / DATA ( CS_REF( IBZCHO_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 9.271376E-20, 6.609039E-20, 6.730973E-20, & 8.248212E-20, 2.821757E-20, 0.000000E+00 / DATA ( CS_REF( IBZCHO_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 9.271376E-20, 6.609039E-20, 6.730973E-20, & 8.248212E-20, 2.821757E-20, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IBZCHO_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 9.366284E-01, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 5.153002E-01, 0.000000E+00 / DATA ( QY_REF( IBZCHO_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 9.366284E-01, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 5.153002E-01, 0.000000E+00 / DATA ( QY_REF( IBZCHO_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 9.366284E-01, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 5.153002E-01, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IBZCHO_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 9.247760E-20, 6.609039E-20, 6.730973E-20, & 8.248212E-20, 2.821757E-20, 0.000000E+00 / DATA ( ECS_REF( IBZCHO_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 9.247760E-20, 6.609039E-20, 6.730973E-20, & 8.248212E-20, 2.821757E-20, 0.000000E+00 / DATA ( ECS_REF( IBZCHO_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 9.247760E-20, 6.609039E-20, 6.730973E-20, & 8.248212E-20, 2.821757E-20, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IBZCHO_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 9.974529E-01, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999998E-01, 0.000000E+00 / DATA ( EQY_REF( IBZCHO_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 9.974529E-01, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999998E-01, 0.000000E+00 / DATA ( EQY_REF( IBZCHO_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 9.974529E-01, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999998E-01, 0.000000E+00 / C...ACROLEIN_SAPRC99 C.. Absorption cross sections for Acrolein. C.. SAPRC-99 Photolysis data. Supplied by William P. L. Carter. C.. Created from PhotDat.xls on 29-Jan-2000 10:07 C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IACROLEIN_SAPRC99 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IACROLEIN_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 2.119555E-20, 3.145168E-20, 4.081558E-20, 4.837755E-20, & 5.750342E-20, 1.189679E-20, 0.000000E+00 / DATA ( CS_REF( IACROLEIN_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 2.119555E-20, 3.145168E-20, 4.081558E-20, 4.837755E-20, & 5.750342E-20, 1.189679E-20, 0.000000E+00 / DATA ( CS_REF( IACROLEIN_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 2.119555E-20, 3.145168E-20, 4.081558E-20, 4.837755E-20, & 5.750342E-20, 1.189679E-20, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IACROLEIN_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 4.565694E-01, 0.000000E+00 / DATA ( QY_REF( IACROLEIN_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 4.565694E-01, 0.000000E+00 / DATA ( QY_REF( IACROLEIN_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 4.565694E-01, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IACROLEIN_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 2.119555E-20, 3.145168E-20, 4.081558E-20, 4.837755E-20, & 5.750342E-20, 1.189679E-20, 0.000000E+00 / DATA ( ECS_REF( IACROLEIN_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 2.119555E-20, 3.145168E-20, 4.081558E-20, 4.837755E-20, & 5.750342E-20, 1.189679E-20, 0.000000E+00 / DATA ( ECS_REF( IACROLEIN_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 2.119555E-20, 3.145168E-20, 4.081558E-20, 4.837755E-20, & 5.750342E-20, 1.189679E-20, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IACROLEIN_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 0.000000E+00 / DATA ( EQY_REF( IACROLEIN_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 0.000000E+00 / DATA ( EQY_REF( IACROLEIN_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 0.000000E+00 / C...IC3ONO2_SAPRC99 C.. I-C3H7ONO2 + HV = PRODUCTS C.. SAPRC-99 Photolysis data. Supplied by William P. L. Carter. C.. Created from PhotDat.xls on 29-Jan-2000 10:07 C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IIC3ONO2_SAPRC99 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IIC3ONO2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.255484E-20, 6.352138E-21, 3.286576E-21, 1.709805E-21, & 2.667180E-22, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( IIC3ONO2_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 1.255484E-20, 6.352138E-21, 3.286576E-21, 1.709805E-21, & 2.667180E-22, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( IIC3ONO2_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 1.255484E-20, 6.352138E-21, 3.286576E-21, 1.709805E-21, & 2.667180E-22, 0.000000E+00, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IIC3ONO2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 5.754197E-01, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( IIC3ONO2_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 5.754197E-01, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( IIC3ONO2_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 5.754197E-01, 0.000000E+00, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IIC3ONO2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.255484E-20, 6.352138E-21, 3.286576E-21, 1.709805E-21, & 2.667175E-22, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( IIC3ONO2_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 1.255484E-20, 6.352138E-21, 3.286576E-21, 1.709805E-21, & 2.667175E-22, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( IIC3ONO2_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 1.255484E-20, 6.352138E-21, 3.286576E-21, 1.709805E-21, & 2.667175E-22, 0.000000E+00, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IIC3ONO2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.999982E-01, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( IIC3ONO2_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.999982E-01, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( IIC3ONO2_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.999982E-01, 0.000000E+00, 0.000000E+00 / C...MGLY_ABS_SAPRC99 C.. Methyl Glyoxal Absorption Cross Sections C.. SAPRC-99 Photolysis data. Supplied by William P. L. Carter. C.. Created from PhotDat.xls on 29-Jan-2000 10:07 C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IMGLY_ABS_SAPRC99 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IMGLY_ABS_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 4.414885E-20, 3.510064E-20, 2.364210E-20, 1.814704E-20, & 5.998223E-21, 3.697529E-20, 7.930063E-21 / DATA ( CS_REF( IMGLY_ABS_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 4.414885E-20, 3.510064E-20, 2.364210E-20, 1.814704E-20, & 5.998223E-21, 3.697529E-20, 7.930063E-21 / DATA ( CS_REF( IMGLY_ABS_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 4.414885E-20, 3.510064E-20, 2.364210E-20, 1.814704E-20, & 5.998223E-21, 3.697529E-20, 7.930063E-21 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IMGLY_ABS_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 1.689096E-01 / DATA ( QY_REF( IMGLY_ABS_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 1.689096E-01 / DATA ( QY_REF( IMGLY_ABS_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 1.689096E-01 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IMGLY_ABS_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 4.414885E-20, 3.510064E-20, 2.364210E-20, 1.814704E-20, & 5.998223E-21, 3.697529E-20, 7.930063E-21 / DATA ( ECS_REF( IMGLY_ABS_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 4.414885E-20, 3.510064E-20, 2.364210E-20, 1.814704E-20, & 5.998223E-21, 3.697529E-20, 7.930063E-21 / DATA ( ECS_REF( IMGLY_ABS_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 4.414885E-20, 3.510064E-20, 2.364210E-20, 1.814704E-20, & 5.998223E-21, 3.697529E-20, 7.930063E-21 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IMGLY_ABS_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 1.000000E+00 / DATA ( EQY_REF( IMGLY_ABS_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 1.000000E+00 / DATA ( EQY_REF( IMGLY_ABS_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 1.000000E+00 / C...O3_O3P_IUPAC04 C.. O3 + HV = O(3P) + O2 C.. From IUPAC Subcommittee on Gas Kinetic Data Evaluation C.. Data Sheet POx2, updated 2nd October 2001 C.. Website: http://www.iupac-kinetic.ch.cam.ac.uk/ C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IO3_O3P_IUPAC04 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IO3_O3P_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 8.237372E-19, 2.618435E-19, 1.031278E-19, 4.160843E-20, & 6.126474E-21, 4.250346E-23, 1.550664E-21 / DATA ( CS_REF( IO3_O3P_IUPAC04, 2, IWLR ), IWLR = 1, 7 ) / & 8.237372E-19, 2.618435E-19, 1.031278E-19, 4.160843E-20, & 6.126474E-21, 4.250346E-23, 1.550664E-21 / DATA ( CS_REF( IO3_O3P_IUPAC04, 3, IWLR ), IWLR = 1, 7 ) / & 8.237372E-19, 2.618435E-19, 1.031278E-19, 4.160843E-20, & 6.126474E-21, 4.250346E-23, 1.550664E-21 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IO3_O3P_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E-01, 1.070934E-01, 4.640103E-01, 7.781818E-01, & 9.134412E-01, 9.634615E-01, 6.920660E-01 / DATA ( QY_REF( IO3_O3P_IUPAC04, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E-01, 1.070934E-01, 4.640103E-01, 7.781818E-01, & 9.134412E-01, 9.634615E-01, 6.920660E-01 / DATA ( QY_REF( IO3_O3P_IUPAC04, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E-01, 1.070934E-01, 4.640103E-01, 7.781818E-01, & 9.134412E-01, 9.634615E-01, 6.920660E-01 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IO3_O3P_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 8.237372E-20, 2.744881E-20, 4.605711E-20, 3.200195E-20, & 5.504558E-21, 3.927088E-23, 1.550664E-21 / DATA ( ECS_REF( IO3_O3P_IUPAC04, 2, IWLR ), IWLR = 1, 7 ) / & 8.237372E-20, 2.744881E-20, 4.605711E-20, 3.200195E-20, & 5.504558E-21, 3.927088E-23, 1.550664E-21 / DATA ( ECS_REF( IO3_O3P_IUPAC04, 3, IWLR ), IWLR = 1, 7 ) / & 8.237372E-20, 2.744881E-20, 4.605711E-20, 3.200195E-20, & 5.504558E-21, 3.927088E-23, 1.550664E-21 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IO3_O3P_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E-01, 1.048291E-01, 4.466023E-01, 7.691218E-01, & 8.984872E-01, 9.239455E-01, 1.000000E+00 / DATA ( EQY_REF( IO3_O3P_IUPAC04, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E-01, 1.048291E-01, 4.466023E-01, 7.691218E-01, & 8.984872E-01, 9.239455E-01, 1.000000E+00 / DATA ( EQY_REF( IO3_O3P_IUPAC04, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E-01, 1.048291E-01, 4.466023E-01, 7.691218E-01, & 8.984872E-01, 9.239455E-01, 1.000000E+00 / C...O3_O1D_IUPAC04 C.. O3 + HV = O(1D) + O2 C.. From IUPAC Subcommittee on Gas Kinetic Data Evaluation C.. Data Sheet POx2, updated 2nd October 2001 C.. Website: http://www.iupac-kinetic.ch.cam.ac.uk/ C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IO3_O1D_IUPAC04 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IO3_O1D_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 8.237372E-19, 2.618435E-19, 1.031278E-19, 4.160843E-20, & 6.126474E-21, 4.040726E-23, 0.000000E+00 / DATA ( CS_REF( IO3_O1D_IUPAC04, 2, IWLR ), IWLR = 1, 7 ) / & 8.237372E-19, 2.618435E-19, 1.031278E-19, 4.160843E-20, & 6.126474E-21, 4.040726E-23, 0.000000E+00 / DATA ( CS_REF( IO3_O1D_IUPAC04, 3, IWLR ), IWLR = 1, 7 ) / & 8.237372E-19, 2.618435E-19, 1.031278E-19, 4.160843E-20, & 6.126474E-21, 4.040726E-23, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IO3_O1D_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 9.000000E-01, 8.929066E-01, 5.359897E-01, 2.218182E-01, & 8.655884E-02, 1.629167E-02, 0.000000E+00 / DATA ( QY_REF( IO3_O1D_IUPAC04, 2, IWLR ), IWLR = 1, 7 ) / & 9.000000E-01, 8.929066E-01, 5.359897E-01, 2.218182E-01, & 8.655884E-02, 1.629167E-02, 0.000000E+00 / DATA ( QY_REF( IO3_O1D_IUPAC04, 3, IWLR ), IWLR = 1, 7 ) / & 9.000000E-01, 8.929066E-01, 5.359897E-01, 2.218182E-01, & 8.655884E-02, 1.629167E-02, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IO3_O1D_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 7.413634E-19, 2.343947E-19, 5.707068E-20, 9.606477E-21, & 6.219156E-22, 3.232572E-24, 0.000000E+00 / DATA ( ECS_REF( IO3_O1D_IUPAC04, 2, IWLR ), IWLR = 1, 7 ) / & 7.413634E-19, 2.343947E-19, 5.707068E-20, 9.606477E-21, & 6.219156E-22, 3.232572E-24, 0.000000E+00 / DATA ( ECS_REF( IO3_O1D_IUPAC04, 3, IWLR ), IWLR = 1, 7 ) / & 7.413634E-19, 2.343947E-19, 5.707068E-20, 9.606477E-21, & 6.219156E-22, 3.232572E-24, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IO3_O1D_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 9.000000E-01, 8.951709E-01, 5.533977E-01, 2.308782E-01, & 1.015128E-01, 7.999979E-02, 0.000000E+00 / DATA ( EQY_REF( IO3_O1D_IUPAC04, 2, IWLR ), IWLR = 1, 7 ) / & 9.000000E-01, 8.951709E-01, 5.533977E-01, 2.308782E-01, & 1.015128E-01, 7.999979E-02, 0.000000E+00 / DATA ( EQY_REF( IO3_O1D_IUPAC04, 3, IWLR ), IWLR = 1, 7 ) / & 9.000000E-01, 8.951709E-01, 5.533977E-01, 2.308782E-01, & 1.015128E-01, 7.999979E-02, 0.000000E+00 / C...HONO_IUPAC04 C.. HONO + HV = HO + NO C.. From IUPAC Subcommittee on Gas Kinetic Data Evaluation C.. Data Sheet PNOx1_HONO, updated 16th July 2001 C.. Website: http://www.iupac-kinetic.ch.cam.ac.uk/ C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IHONO_IUPAC04 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IHONO_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 4.780336E-21, 1.602461E-20, 3.132021E-20, & 9.264939E-20, 7.356084E-20, 0.000000E+00 / DATA ( CS_REF( IHONO_IUPAC04, 2, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 4.780336E-21, 1.602461E-20, 3.132021E-20, & 9.264939E-20, 7.356084E-20, 0.000000E+00 / DATA ( CS_REF( IHONO_IUPAC04, 3, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 4.780336E-21, 1.602461E-20, 3.132021E-20, & 9.264939E-20, 7.356084E-20, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IHONO_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 8.334302E-01, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 7.181830E-01, 0.000000E+00 / DATA ( QY_REF( IHONO_IUPAC04, 2, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 8.334302E-01, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 7.181830E-01, 0.000000E+00 / DATA ( QY_REF( IHONO_IUPAC04, 3, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 8.334302E-01, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 7.181830E-01, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IHONO_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 4.780317E-21, 1.602461E-20, 3.132021E-20, & 9.264939E-20, 7.356084E-20, 0.000000E+00 / DATA ( ECS_REF( IHONO_IUPAC04, 2, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 4.780317E-21, 1.602461E-20, 3.132021E-20, & 9.264939E-20, 7.356084E-20, 0.000000E+00 / DATA ( ECS_REF( IHONO_IUPAC04, 3, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 4.780317E-21, 1.602461E-20, 3.132021E-20, & 9.264939E-20, 7.356084E-20, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IHONO_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 9.999960E-01, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999999E-01, 0.000000E+00 / DATA ( EQY_REF( IHONO_IUPAC04, 2, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 9.999960E-01, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999999E-01, 0.000000E+00 / DATA ( EQY_REF( IHONO_IUPAC04, 3, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 9.999960E-01, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999999E-01, 0.000000E+00 / C...HO2NO2_IUPAC04 C.. HOONO2 + HV = products C.. From IUPAC Subcommittee on Gas Kinetic Data Evaluation C.. Data Sheet PNOx3_HO2NO2, updated 16th July 2001 C.. Website: http://www.iupac-kinetic.ch.cam.ac.uk/ C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IHO2NO2_IUPAC04 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IHO2NO2_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 2.591178E-20, 1.079991E-20, 5.527937E-21, 3.457473E-21, & 6.327396E-22, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( IHO2NO2_IUPAC04, 2, IWLR ), IWLR = 1, 7 ) / & 2.591178E-20, 1.079991E-20, 5.527937E-21, 3.457473E-21, & 6.327396E-22, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( IHO2NO2_IUPAC04, 3, IWLR ), IWLR = 1, 7 ) / & 2.591178E-20, 1.079991E-20, 5.527937E-21, 3.457473E-21, & 6.327396E-22, 0.000000E+00, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IHO2NO2_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 5.754197E-01, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( IHO2NO2_IUPAC04, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 5.754197E-01, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( IHO2NO2_IUPAC04, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 5.754197E-01, 0.000000E+00, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IHO2NO2_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 2.591178E-20, 1.079991E-20, 5.527937E-21, 3.457473E-21, & 6.327384E-22, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( IHO2NO2_IUPAC04, 2, IWLR ), IWLR = 1, 7 ) / & 2.591178E-20, 1.079991E-20, 5.527937E-21, 3.457473E-21, & 6.327384E-22, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( IHO2NO2_IUPAC04, 3, IWLR ), IWLR = 1, 7 ) / & 2.591178E-20, 1.079991E-20, 5.527937E-21, 3.457473E-21, & 6.327384E-22, 0.000000E+00, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IHO2NO2_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.999982E-01, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( IHO2NO2_IUPAC04, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.999982E-01, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( IHO2NO2_IUPAC04, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.999982E-01, 0.000000E+00, 0.000000E+00 / C...HNO3_IUPAC04 C.. HONO2 + HV = OH + NO2 C.. From IUPAC Subcommittee on Gas Kinetic Data Evaluation C.. Data Sheet PNOx2_HONO2, updated 16th July 2001 C.. Website: http://www.iupac-kinetic.ch.cam.ac.uk/ C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IHNO3_IUPAC04 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IHNO3_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 4.358850E-21, 1.954554E-21, 8.462462E-22, 3.649777E-22, & 4.770195E-23, 3.875268E-25, 0.000000E+00 / DATA ( CS_REF( IHNO3_IUPAC04, 2, IWLR ), IWLR = 1, 7 ) / & 4.358850E-21, 1.954554E-21, 8.462462E-22, 3.649777E-22, & 4.770195E-23, 3.875268E-25, 0.000000E+00 / DATA ( CS_REF( IHNO3_IUPAC04, 3, IWLR ), IWLR = 1, 7 ) / & 4.358850E-21, 1.954554E-21, 8.462462E-22, 3.649777E-22, & 4.770195E-23, 3.875268E-25, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IHNO3_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.142428E-01, 0.000000E+00 / DATA ( QY_REF( IHNO3_IUPAC04, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.142428E-01, 0.000000E+00 / DATA ( QY_REF( IHNO3_IUPAC04, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.142428E-01, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IHNO3_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 4.358850E-21, 1.954554E-21, 8.462462E-22, 3.649777E-22, & 4.770195E-23, 3.875251E-25, 0.000000E+00 / DATA ( ECS_REF( IHNO3_IUPAC04, 2, IWLR ), IWLR = 1, 7 ) / & 4.358850E-21, 1.954554E-21, 8.462462E-22, 3.649777E-22, & 4.770195E-23, 3.875251E-25, 0.000000E+00 / DATA ( ECS_REF( IHNO3_IUPAC04, 3, IWLR ), IWLR = 1, 7 ) / & 4.358850E-21, 1.954554E-21, 8.462462E-22, 3.649777E-22, & 4.770195E-23, 3.875251E-25, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IHNO3_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999956E-01, 0.000000E+00 / DATA ( EQY_REF( IHNO3_IUPAC04, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999956E-01, 0.000000E+00 / DATA ( EQY_REF( IHNO3_IUPAC04, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999956E-01, 0.000000E+00 / C...N2O5_IUPAC04 C.. N2O5 + HV = NO2 + NO3 C.. From IUPAC Subcommittee on Gas Kinetic Data Evaluation C.. Data Sheet PNOx7_N2O5, updated 16th July 2001 C.. Website: http://www.iupac-kinetic.ch.cam.ac.uk/ C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IN2O5_IUPAC04 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IN2O5_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 5.288713E-20, 3.284367E-20, 2.192960E-20, 1.512786E-20, & 6.068436E-21, 6.195746E-22, 9.184480E-26 / DATA ( CS_REF( IN2O5_IUPAC04, 2, IWLR ), IWLR = 1, 7 ) / & 5.288713E-20, 3.284367E-20, 2.192960E-20, 1.512786E-20, & 6.068436E-21, 6.195746E-22, 9.184480E-26 / DATA ( CS_REF( IN2O5_IUPAC04, 3, IWLR ), IWLR = 1, 7 ) / & 5.288713E-20, 3.284367E-20, 2.192960E-20, 1.512786E-20, & 6.068436E-21, 6.195746E-22, 9.184480E-26 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IN2O5_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 9.222279E-01, 9.980624E-01, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 4.477524E-03 / DATA ( QY_REF( IN2O5_IUPAC04, 2, IWLR ), IWLR = 1, 7 ) / & 9.222279E-01, 9.980624E-01, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 4.477524E-03 / DATA ( QY_REF( IN2O5_IUPAC04, 3, IWLR ), IWLR = 1, 7 ) / & 9.222279E-01, 9.980624E-01, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 4.477524E-03 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IN2O5_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 4.857824E-20, 3.276333E-20, 2.192960E-20, 1.512786E-20, & 6.068436E-21, 6.195746E-22, 9.184020E-26 / DATA ( ECS_REF( IN2O5_IUPAC04, 2, IWLR ), IWLR = 1, 7 ) / & 4.857824E-20, 3.276333E-20, 2.192960E-20, 1.512786E-20, & 6.068436E-21, 6.195746E-22, 9.184020E-26 / DATA ( ECS_REF( IN2O5_IUPAC04, 3, IWLR ), IWLR = 1, 7 ) / & 4.857824E-20, 3.276333E-20, 2.192960E-20, 1.512786E-20, & 6.068436E-21, 6.195746E-22, 9.184020E-26 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IN2O5_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 9.185266E-01, 9.975538E-01, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 9.999499E-01 / DATA ( EQY_REF( IN2O5_IUPAC04, 2, IWLR ), IWLR = 1, 7 ) / & 9.185266E-01, 9.975538E-01, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 9.999499E-01 / DATA ( EQY_REF( IN2O5_IUPAC04, 3, IWLR ), IWLR = 1, 7 ) / & 9.185266E-01, 9.975538E-01, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 9.999499E-01 / C...NTR_IUPAC04 C.. i-C3H7ONO2 + HV = iC3H7O + NO2 C.. From IUPAC Subcommittee on Gas Kinetic Data Evaluation C.. Data Sheet P17_i-C3H7ONO2+hv, updated 16th July 2001 C.. Website: http://www.iupac-kinetic.ch.cam.ac.uk/ C... reference temperatures (K) DATA ( TEMP_REF( ITTR, INTR_IUPAC04 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( INTR_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 1.228679E-20, 6.112254E-21, 3.012601E-21, 1.483079E-21, & 2.223491E-22, 1.206802E-24, 0.000000E+00 / DATA ( CS_REF( INTR_IUPAC04, 2, IWLR ), IWLR = 1, 7 ) / & 1.228679E-20, 6.112254E-21, 3.012601E-21, 1.483079E-21, & 2.223491E-22, 1.206802E-24, 0.000000E+00 / DATA ( CS_REF( INTR_IUPAC04, 3, IWLR ), IWLR = 1, 7 ) / & 1.228679E-20, 6.112254E-21, 3.012601E-21, 1.483079E-21, & 2.223491E-22, 1.206802E-24, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( INTR_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 2.282282E-01, 0.000000E+00 / DATA ( QY_REF( INTR_IUPAC04, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 2.282282E-01, 0.000000E+00 / DATA ( QY_REF( INTR_IUPAC04, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 2.282282E-01, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( INTR_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 1.228679E-20, 6.112254E-21, 3.012601E-21, 1.483079E-21, & 2.223491E-22, 1.206801E-24, 0.000000E+00 / DATA ( ECS_REF( INTR_IUPAC04, 2, IWLR ), IWLR = 1, 7 ) / & 1.228679E-20, 6.112254E-21, 3.012601E-21, 1.483079E-21, & 2.223491E-22, 1.206801E-24, 0.000000E+00 / DATA ( ECS_REF( INTR_IUPAC04, 3, IWLR ), IWLR = 1, 7 ) / & 1.228679E-20, 6.112254E-21, 3.012601E-21, 1.483079E-21, & 2.223491E-22, 1.206801E-24, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( INTR_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999995E-01, 0.000000E+00 / DATA ( EQY_REF( INTR_IUPAC04, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999995E-01, 0.000000E+00 / DATA ( EQY_REF( INTR_IUPAC04, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999995E-01, 0.000000E+00 / C...PAN_IUPAC04 C.. CH3C(O)OONO2 + HV = CH3C(O)OO + NO2 C.. From IUPAC Subcommittee on Gas Kinetic Data Evaluation C.. Data Sheet P21_CH3C(O)OONO2+hv, updated 16th July 2001 C.. Website: http://www.iupac-kinetic.ch.cam.ac.uk/ C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IPAN_IUPAC04 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IPAN_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 3.530296E-21, 1.417990E-21, 6.732224E-22, 3.640893E-22, & 9.143990E-23, 1.308070E-24, 0.000000E+00 / DATA ( CS_REF( IPAN_IUPAC04, 2, IWLR ), IWLR = 1, 7 ) / & 3.530296E-21, 1.417990E-21, 6.732224E-22, 3.640893E-22, & 9.143990E-23, 1.308070E-24, 0.000000E+00 / DATA ( CS_REF( IPAN_IUPAC04, 3, IWLR ), IWLR = 1, 7 ) / & 3.530296E-21, 1.417990E-21, 6.732224E-22, 3.640893E-22, & 9.143990E-23, 1.308070E-24, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IPAN_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 6.613498E-02, 0.000000E+00 / DATA ( QY_REF( IPAN_IUPAC04, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 6.613498E-02, 0.000000E+00 / DATA ( QY_REF( IPAN_IUPAC04, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 6.613498E-02, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IPAN_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 3.530296E-21, 1.417990E-21, 6.732224E-22, 3.640893E-22, & 9.143990E-23, 1.308038E-24, 0.000000E+00 / DATA ( ECS_REF( IPAN_IUPAC04, 2, IWLR ), IWLR = 1, 7 ) / & 3.530296E-21, 1.417990E-21, 6.732224E-22, 3.640893E-22, & 9.143990E-23, 1.308038E-24, 0.000000E+00 / DATA ( ECS_REF( IPAN_IUPAC04, 3, IWLR ), IWLR = 1, 7 ) / & 3.530296E-21, 1.417990E-21, 6.732224E-22, 3.640893E-22, & 9.143990E-23, 1.308038E-24, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IPAN_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999756E-01, 0.000000E+00 / DATA ( EQY_REF( IPAN_IUPAC04, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999756E-01, 0.000000E+00 / DATA ( EQY_REF( IPAN_IUPAC04, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999756E-01, 0.000000E+00 / C...PACD_CB05 C.. PACD + HV = MEO2 + OH C.. CB05 Photolysis data for PACD C.. Supplied by Greg Yarwood, 11/16/2007 C.. Ref: Gigure, P. A. and A. W. Olmos. Sur le spectre ultraviolet de l'acide peractique et l'hydrolyse des peractates. C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IPACD_CB05 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IPACD_CB05, 1, IWLR ), IWLR = 1, 7 ) / & 7.759271E-22, 4.128908E-22, 2.430012E-22, 1.524872E-22, & 2.678565E-23, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( IPACD_CB05, 2, IWLR ), IWLR = 1, 7 ) / & 7.759271E-22, 4.128908E-22, 2.430012E-22, 1.524872E-22, & 2.678565E-23, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( IPACD_CB05, 3, IWLR ), IWLR = 1, 7 ) / & 7.759271E-22, 4.128908E-22, 2.430012E-22, 1.524872E-22, & 2.678565E-23, 0.000000E+00, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IPACD_CB05, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 3.584636E-01, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( IPACD_CB05, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 3.584636E-01, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( IPACD_CB05, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 3.584636E-01, 0.000000E+00, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IPACD_CB05, 1, IWLR ), IWLR = 1, 7 ) / & 7.759271E-22, 4.128908E-22, 2.430012E-22, 1.524872E-22, & 2.675539E-23, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( IPACD_CB05, 2, IWLR ), IWLR = 1, 7 ) / & 7.759271E-22, 4.128908E-22, 2.430012E-22, 1.524872E-22, & 2.675539E-23, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( IPACD_CB05, 3, IWLR ), IWLR = 1, 7 ) / & 7.759271E-22, 4.128908E-22, 2.430012E-22, 1.524872E-22, & 2.675539E-23, 0.000000E+00, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IPACD_CB05, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.988704E-01, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( IPACD_CB05, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.988704E-01, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( IPACD_CB05, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.988704E-01, 0.000000E+00, 0.000000E+00 / C...MGLY_IUPAC04 C.. CH3COCHO + hv ---> CH3CO + HCO C.. From IUPAC Subcommittee on Gas Kinetic Data Evaluation; IUPAC Stern-Volmer expression C.. Data Sheet P6_CH3COCHO+hv.pdf, updated 16th Jan, 2003 C.. Website: http://www.iupac-kinetic.ch.cam.ac.uk/ C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IMGLY_IUPAC04 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IMGLY_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 4.380391E-20, 3.467071E-20, 2.430916E-20, 1.788232E-20, & 6.183676E-21, 3.700269E-20, 7.900482E-21 / DATA ( CS_REF( IMGLY_IUPAC04, 2, IWLR ), IWLR = 1, 7 ) / & 4.380391E-20, 3.467071E-20, 2.430916E-20, 1.788232E-20, & 6.183676E-21, 3.700269E-20, 7.900482E-21 / DATA ( CS_REF( IMGLY_IUPAC04, 3, IWLR ), IWLR = 1, 7 ) / & 4.380391E-20, 3.467071E-20, 2.430916E-20, 1.788232E-20, & 6.183676E-21, 3.700269E-20, 7.900482E-21 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IMGLY_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 5.166998E-01, 2.503722E-03 / DATA ( QY_REF( IMGLY_IUPAC04, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 5.166998E-01, 2.503722E-03 / DATA ( QY_REF( IMGLY_IUPAC04, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 5.166998E-01, 2.503722E-03 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IMGLY_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 4.380391E-20, 3.467071E-20, 2.430916E-20, 1.788232E-20, & 6.183676E-21, 8.170202E-21, 2.110403E-22 / DATA ( ECS_REF( IMGLY_IUPAC04, 2, IWLR ), IWLR = 1, 7 ) / & 4.380391E-20, 3.467071E-20, 2.430916E-20, 1.788232E-20, & 6.183676E-21, 8.170202E-21, 2.110403E-22 / DATA ( ECS_REF( IMGLY_IUPAC04, 3, IWLR ), IWLR = 1, 7 ) / & 4.380391E-20, 3.467071E-20, 2.430916E-20, 1.788232E-20, & 6.183676E-21, 8.170202E-21, 2.110403E-22 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IMGLY_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 2.208002E-01, 2.671233E-02 / DATA ( EQY_REF( IMGLY_IUPAC04, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 2.208002E-01, 2.671233E-02 / DATA ( EQY_REF( IMGLY_IUPAC04, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 2.208002E-01, 2.671233E-02 / C...CL2_IUPAC04 C.. CL2 + HV = 2*CL C.. IUPAC Subcommittee on Gas Kinetic Data Evaluation; Data Sheet PCl11 Website: 15th December 2000 C.. Website: http://www.iupac-kinetic.ch.cam.ac.uk C.. Assume these are point values (not specified in data source) C... reference temperatures (K) DATA ( TEMP_REF( ITTR, ICL2_IUPAC04 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( ICL2_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 8.824935E-20, 1.400673E-19, 1.841698E-19, 2.185164E-19, & 2.410846E-19, 6.539243E-20, 6.126821E-22 / DATA ( CS_REF( ICL2_IUPAC04, 2, IWLR ), IWLR = 1, 7 ) / & 8.824935E-20, 1.400673E-19, 1.841698E-19, 2.185164E-19, & 2.410846E-19, 6.539243E-20, 6.126821E-22 / DATA ( CS_REF( ICL2_IUPAC04, 3, IWLR ), IWLR = 1, 7 ) / & 8.824935E-20, 1.400673E-19, 1.841698E-19, 2.185164E-19, & 2.410846E-19, 6.539243E-20, 6.126821E-22 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( ICL2_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 1.135570E-01 / DATA ( QY_REF( ICL2_IUPAC04, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 1.135570E-01 / DATA ( QY_REF( ICL2_IUPAC04, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 1.135570E-01 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( ICL2_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 8.824935E-20, 1.400673E-19, 1.841698E-19, 2.185164E-19, & 2.410846E-19, 6.539243E-20, 6.126374E-22 / DATA ( ECS_REF( ICL2_IUPAC04, 2, IWLR ), IWLR = 1, 7 ) / & 8.824935E-20, 1.400673E-19, 1.841698E-19, 2.185164E-19, & 2.410846E-19, 6.539243E-20, 6.126374E-22 / DATA ( ECS_REF( ICL2_IUPAC04, 3, IWLR ), IWLR = 1, 7 ) / & 8.824935E-20, 1.400673E-19, 1.841698E-19, 2.185164E-19, & 2.410846E-19, 6.539243E-20, 6.126374E-22 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( ICL2_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 9.999270E-01 / DATA ( EQY_REF( ICL2_IUPAC04, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 9.999270E-01 / DATA ( EQY_REF( ICL2_IUPAC04, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 9.999270E-01 / C...HOCL_IUPAC04 C.. HOCL + HV = HO + CL C.. IUPAC Subcommittee on Gas Kinetic Data Evaluation; Data Sheet PCl2 Website: 15th December 2000 C.. Website: http://www.iupac-kinetic.ch.cam.ac.uk C.. Assume these are point values - not specified in data source C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IHOCL_IUPAC04 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IHOCL_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 5.570117E-20, 6.066934E-20, 5.958161E-20, 5.377945E-20, & 3.120855E-20, 6.545254E-21, 1.172828E-23 / DATA ( CS_REF( IHOCL_IUPAC04, 2, IWLR ), IWLR = 1, 7 ) / & 5.570117E-20, 6.066934E-20, 5.958161E-20, 5.377945E-20, & 3.120855E-20, 6.545254E-21, 1.172828E-23 / DATA ( CS_REF( IHOCL_IUPAC04, 3, IWLR ), IWLR = 1, 7 ) / & 5.570117E-20, 6.066934E-20, 5.958161E-20, 5.377945E-20, & 3.120855E-20, 6.545254E-21, 1.172828E-23 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IHOCL_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 1.319226E-02 / DATA ( QY_REF( IHOCL_IUPAC04, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 1.319226E-02 / DATA ( QY_REF( IHOCL_IUPAC04, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 1.319226E-02 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IHOCL_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 5.570117E-20, 6.066934E-20, 5.958161E-20, 5.377945E-20, & 3.120855E-20, 6.545254E-21, 1.171483E-23 / DATA ( ECS_REF( IHOCL_IUPAC04, 2, IWLR ), IWLR = 1, 7 ) / & 5.570117E-20, 6.066934E-20, 5.958161E-20, 5.377945E-20, & 3.120855E-20, 6.545254E-21, 1.171483E-23 / DATA ( ECS_REF( IHOCL_IUPAC04, 3, IWLR ), IWLR = 1, 7 ) / & 5.570117E-20, 6.066934E-20, 5.958161E-20, 5.377945E-20, & 3.120855E-20, 6.545254E-21, 1.171483E-23 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IHOCL_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 9.988528E-01 / DATA ( EQY_REF( IHOCL_IUPAC04, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 9.988528E-01 / DATA ( EQY_REF( IHOCL_IUPAC04, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 9.988528E-01 / C...FMCL_IUPAC04 C.. FMCL + hv --> HCO + CL C.. IUPAC Subcommittee on Gas Kinetic Data Evaluation; Data Sheet PCl28 Website: 15th December 2000 C.. Website: http://www.iupac-kinetic.ch.cam.ac.uk C.. Reference: H. G. Libuda, F. Zabel, E. H. Fink, and K. H. Becker, J. Phys. Chem. 94, 5860 (1990) C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IFMCL_IUPAC04 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IFMCL_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 5.320050E-21, 1.421323E-21, 2.242342E-22, 8.360462E-23, & 0.000000E+00, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( IFMCL_IUPAC04, 2, IWLR ), IWLR = 1, 7 ) / & 5.320050E-21, 1.421323E-21, 2.242342E-22, 8.360462E-23, & 0.000000E+00, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( IFMCL_IUPAC04, 3, IWLR ), IWLR = 1, 7 ) / & 5.320050E-21, 1.421323E-21, 2.242342E-22, 8.360462E-23, & 0.000000E+00, 0.000000E+00, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IFMCL_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 7.811255E-01, & 0.000000E+00, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( IFMCL_IUPAC04, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 7.811255E-01, & 0.000000E+00, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( IFMCL_IUPAC04, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 7.811255E-01, & 0.000000E+00, 0.000000E+00, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IFMCL_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 5.320050E-21, 1.421323E-21, 2.242342E-22, 8.349381E-23, & 0.000000E+00, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( IFMCL_IUPAC04, 2, IWLR ), IWLR = 1, 7 ) / & 5.320050E-21, 1.421323E-21, 2.242342E-22, 8.349381E-23, & 0.000000E+00, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( IFMCL_IUPAC04, 3, IWLR ), IWLR = 1, 7 ) / & 5.320050E-21, 1.421323E-21, 2.242342E-22, 8.349381E-23, & 0.000000E+00, 0.000000E+00, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IFMCL_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 9.986746E-01, & 0.000000E+00, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( IFMCL_IUPAC04, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 9.986746E-01, & 0.000000E+00, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( IFMCL_IUPAC04, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 9.986746E-01, & 0.000000E+00, 0.000000E+00, 0.000000E+00 / C...NO2 C.. NO2 + HV = NO + O C.. From NASA (2006). C.. Absorption cross sections are averages for wavelength intervals given. C.. Data alligned to smallest wavelength intervals for abs. coefs and qy's. C.. C... reference temperatures (K) DATA ( TEMP_REF( ITTR, INO2 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( INO2, 1, IWLR ), IWLR = 1, 7 ) / & 1.075248E-19, 1.484195E-19, 1.882053E-19, 2.274755E-19, & 3.449308E-19, 5.754674E-19, 1.195356E-20 / DATA ( CS_REF( INO2, 2, IWLR ), IWLR = 1, 7 ) / & 1.075248E-19, 1.484195E-19, 1.882053E-19, 2.274755E-19, & 3.449308E-19, 5.754674E-19, 1.195356E-20 / DATA ( CS_REF( INO2, 3, IWLR ), IWLR = 1, 7 ) / & 1.075248E-19, 1.484195E-19, 1.882053E-19, 2.274755E-19, & 3.449308E-19, 5.754674E-19, 1.195356E-20 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( INO2, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 8.174767E-01, 7.500220E-04 / DATA ( QY_REF( INO2, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 8.174767E-01, 7.500220E-04 / DATA ( QY_REF( INO2, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 8.174767E-01, 7.500220E-04 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( INO2, 1, IWLR ), IWLR = 1, 7 ) / & 1.075248E-19, 1.484195E-19, 1.882053E-19, 2.274755E-19, & 3.449308E-19, 4.644383E-19, 4.476030E-22 / DATA ( ECS_REF( INO2, 2, IWLR ), IWLR = 1, 7 ) / & 1.075248E-19, 1.484195E-19, 1.882053E-19, 2.274755E-19, & 3.449308E-19, 4.644383E-19, 4.476030E-22 / DATA ( ECS_REF( INO2, 3, IWLR ), IWLR = 1, 7 ) / & 1.075248E-19, 1.484195E-19, 1.882053E-19, 2.274755E-19, & 3.449308E-19, 4.644383E-19, 4.476030E-22 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( INO2, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 8.070627E-01, 3.744516E-02 / DATA ( EQY_REF( INO2, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 8.070627E-01, 3.744516E-02 / DATA ( EQY_REF( INO2, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 8.070627E-01, 3.744516E-02 / C...O3O1D C.. O3 + HV = O1D + O2 C.. NASA (2006) abs. Coefs and IUPAC (2006) quantum yields C.. Absorption cross sections from NASA (2006). C.. Quantum yields are from IUPAC (2006) recommendation, interpolated C.. to the NASA (2006) absorption cross section wavelengths. C.. NASA (2006) does not give useable recommendations for the absorption C.. cross sections, except at <305 and >329 nm, where they are consistent C.. with the IUPAC recommendations. C.. Formation of O1D assumed not to occur at the high wavelength band. C.. C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IO3O1D ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IO3O1D, 1, IWLR ), IWLR = 1, 7 ) / & 8.538728E-19, 2.750705E-19, 1.063739E-19, 4.625938E-20, & 6.599046E-21, 5.460110E-23, 0.000000E+00 / DATA ( CS_REF( IO3O1D, 2, IWLR ), IWLR = 1, 7 ) / & 8.538728E-19, 2.750705E-19, 1.063739E-19, 4.625938E-20, & 6.599046E-21, 5.460110E-23, 0.000000E+00 / DATA ( CS_REF( IO3O1D, 3, IWLR ), IWLR = 1, 7 ) / & 8.538728E-19, 2.750705E-19, 1.063739E-19, 4.625938E-20, & 6.599046E-21, 5.460110E-23, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IO3O1D, 1, IWLR ), IWLR = 1, 7 ) / & 9.000000E-01, 8.929066E-01, 5.359897E-01, 2.218182E-01, & 8.688402E-02, 4.278573E-02, 0.000000E+00 / DATA ( QY_REF( IO3O1D, 2, IWLR ), IWLR = 1, 7 ) / & 9.000000E-01, 8.929066E-01, 5.359897E-01, 2.218182E-01, & 8.688402E-02, 4.278573E-02, 0.000000E+00 / DATA ( QY_REF( IO3O1D, 3, IWLR ), IWLR = 1, 7 ) / & 9.000000E-01, 8.929066E-01, 5.359897E-01, 2.218182E-01, & 8.688402E-02, 4.278573E-02, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IO3O1D, 1, IWLR ), IWLR = 1, 7 ) / & 7.684855E-19, 2.464146E-19, 6.078741E-20, 1.068696E-20, & 6.625140E-22, 4.350830E-24, 0.000000E+00 / DATA ( ECS_REF( IO3O1D, 2, IWLR ), IWLR = 1, 7 ) / & 7.684855E-19, 2.464146E-19, 6.078741E-20, 1.068696E-20, & 6.625140E-22, 4.350830E-24, 0.000000E+00 / DATA ( ECS_REF( IO3O1D, 3, IWLR ), IWLR = 1, 7 ) / & 7.684855E-19, 2.464146E-19, 6.078741E-20, 1.068696E-20, & 6.625140E-22, 4.350830E-24, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IO3O1D, 1, IWLR ), IWLR = 1, 7 ) / & 9.000000E-01, 8.958234E-01, 5.714505E-01, 2.310225E-01, & 1.003954E-01, 7.968391E-02, 0.000000E+00 / DATA ( EQY_REF( IO3O1D, 2, IWLR ), IWLR = 1, 7 ) / & 9.000000E-01, 8.958234E-01, 5.714505E-01, 2.310225E-01, & 1.003954E-01, 7.968391E-02, 0.000000E+00 / DATA ( EQY_REF( IO3O1D, 3, IWLR ), IWLR = 1, 7 ) / & 9.000000E-01, 8.958234E-01, 5.714505E-01, 2.310225E-01, & 1.003954E-01, 7.968391E-02, 0.000000E+00 / C...O3O3P C.. O3 + HV = O3P + O2 C.. Absorption cross sections from NASA (2006). C.. Quantum yields are derived from the O1D quantum yields in the low wavelength re C.. Unit quantum yields assumed in high wavelength region. C.. Absorption cross sections below 829 nm are extrapolated C.. C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IO3O3P ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IO3O3P, 1, IWLR ), IWLR = 1, 7 ) / & 8.407954E-19, 2.749065E-19, 1.063739E-19, 4.625938E-20, & 6.803406E-21, 6.139220E-23, 1.666851E-21 / DATA ( CS_REF( IO3O3P, 2, IWLR ), IWLR = 1, 7 ) / & 8.407954E-19, 2.749065E-19, 1.063739E-19, 4.625938E-20, & 6.803406E-21, 6.139220E-23, 1.666851E-21 / DATA ( CS_REF( IO3O3P, 3, IWLR ), IWLR = 1, 7 ) / & 8.407954E-19, 2.749065E-19, 1.063739E-19, 4.625938E-20, & 6.803406E-21, 6.139220E-23, 1.666851E-21 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IO3O3P, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E-01, 1.070934E-01, 4.640103E-01, 7.781818E-01, & 9.123903E-01, 9.572143E-01, 9.795594E-01 / DATA ( QY_REF( IO3O3P, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E-01, 1.070934E-01, 4.640103E-01, 7.781818E-01, & 9.123903E-01, 9.572143E-01, 9.795594E-01 / DATA ( QY_REF( IO3O3P, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E-01, 1.070934E-01, 4.640103E-01, 7.781818E-01, & 9.123903E-01, 9.572143E-01, 9.795594E-01 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IO3O3P, 1, IWLR ), IWLR = 1, 7 ) / & 8.407954E-20, 2.863951E-20, 4.558648E-20, 3.557242E-20, & 6.109183E-21, 5.704138E-23, 1.666851E-21 / DATA ( ECS_REF( IO3O3P, 2, IWLR ), IWLR = 1, 7 ) / & 8.407954E-20, 2.863951E-20, 4.558648E-20, 3.557242E-20, & 6.109183E-21, 5.704138E-23, 1.666851E-21 / DATA ( ECS_REF( IO3O3P, 3, IWLR ), IWLR = 1, 7 ) / & 8.407954E-20, 2.863951E-20, 4.558648E-20, 3.557242E-20, & 6.109183E-21, 5.704138E-23, 1.666851E-21 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IO3O3P, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E-01, 1.041791E-01, 4.285495E-01, 7.689775E-01, & 8.979595E-01, 9.291306E-01, 1.000000E+00 / DATA ( EQY_REF( IO3O3P, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E-01, 1.041791E-01, 4.285495E-01, 7.689775E-01, & 8.979595E-01, 9.291306E-01, 1.000000E+00 / DATA ( EQY_REF( IO3O3P, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E-01, 1.041791E-01, 4.285495E-01, 7.689775E-01, & 8.979595E-01, 9.291306E-01, 1.000000E+00 / C...KETONE C.. MEK absorption cross sections C.. IUPAC Subcommittee on Gas Kinetic Data Evaluation Data Sheet P8 C.. This datasheet updated: 5th December 2005. C.. Website: http://www.iupac-kinetic.ch.cam.ac.uk/. C.. Note that recommended quantum yield is 0.34 and SAPRC07T sets C.. value to 0.175 in mechanism definition file C.. C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IKETONE ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IKETONE, 1, IWLR ), IWLR = 1, 7 ) / & 4.166522E-20, 2.686872E-20, 1.573254E-20, 7.723365E-21, & 8.066992E-22, 1.609984E-25, 0.000000E+00 / DATA ( CS_REF( IKETONE, 2, IWLR ), IWLR = 1, 7 ) / & 4.166522E-20, 2.686872E-20, 1.573254E-20, 7.723365E-21, & 8.066992E-22, 1.609984E-25, 0.000000E+00 / DATA ( CS_REF( IKETONE, 3, IWLR ), IWLR = 1, 7 ) / & 4.166522E-20, 2.686872E-20, 1.573254E-20, 7.723365E-21, & 8.066992E-22, 1.609984E-25, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IKETONE, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 2.161979E-02, 0.000000E+00 / DATA ( QY_REF( IKETONE, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 2.161979E-02, 0.000000E+00 / DATA ( QY_REF( IKETONE, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 2.161979E-02, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IKETONE, 1, IWLR ), IWLR = 1, 7 ) / & 4.166522E-20, 2.686872E-20, 1.573254E-20, 7.723365E-21, & 8.066992E-22, 1.609804E-25, 0.000000E+00 / DATA ( ECS_REF( IKETONE, 2, IWLR ), IWLR = 1, 7 ) / & 4.166522E-20, 2.686872E-20, 1.573254E-20, 7.723365E-21, & 8.066992E-22, 1.609804E-25, 0.000000E+00 / DATA ( ECS_REF( IKETONE, 3, IWLR ), IWLR = 1, 7 ) / & 4.166522E-20, 2.686872E-20, 1.573254E-20, 7.723365E-21, & 8.066992E-22, 1.609804E-25, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IKETONE, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.998884E-01, 0.000000E+00 / DATA ( EQY_REF( IKETONE, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.998884E-01, 0.000000E+00 / DATA ( EQY_REF( IKETONE, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.998884E-01, 0.000000E+00 / C...MGLY_ABS C.. Methyl Glyoxal Absorption Cross Sections C.. SAPRC-99 Photolysis data. Supplied by William P. L. Carter. C.. Created from PhotDat.xls on 29-Jan-2000 10:07 C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IMGLY_ABS ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IMGLY_ABS, 1, IWLR ), IWLR = 1, 7 ) / & 4.414885E-20, 3.510064E-20, 2.364210E-20, 1.814704E-20, & 5.998223E-21, 3.697529E-20, 7.930063E-21 / DATA ( CS_REF( IMGLY_ABS, 2, IWLR ), IWLR = 1, 7 ) / & 4.414885E-20, 3.510064E-20, 2.364210E-20, 1.814704E-20, & 5.998223E-21, 3.697529E-20, 7.930063E-21 / DATA ( CS_REF( IMGLY_ABS, 3, IWLR ), IWLR = 1, 7 ) / & 4.414885E-20, 3.510064E-20, 2.364210E-20, 1.814704E-20, & 5.998223E-21, 3.697529E-20, 7.930063E-21 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IMGLY_ABS, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 1.689096E-01 / DATA ( QY_REF( IMGLY_ABS, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 1.689096E-01 / DATA ( QY_REF( IMGLY_ABS, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 1.689096E-01 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IMGLY_ABS, 1, IWLR ), IWLR = 1, 7 ) / & 4.414885E-20, 3.510064E-20, 2.364210E-20, 1.814704E-20, & 5.998223E-21, 3.697529E-20, 7.930063E-21 / DATA ( ECS_REF( IMGLY_ABS, 2, IWLR ), IWLR = 1, 7 ) / & 4.414885E-20, 3.510064E-20, 2.364210E-20, 1.814704E-20, & 5.998223E-21, 3.697529E-20, 7.930063E-21 / DATA ( ECS_REF( IMGLY_ABS, 3, IWLR ), IWLR = 1, 7 ) / & 4.414885E-20, 3.510064E-20, 2.364210E-20, 1.814704E-20, & 5.998223E-21, 3.697529E-20, 7.930063E-21 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IMGLY_ABS, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 1.000000E+00 / DATA ( EQY_REF( IMGLY_ABS, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 1.000000E+00 / DATA ( EQY_REF( IMGLY_ABS, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 1.000000E+00 / C...MGLY_ADJ C.. MGLY + HV = PRODUCTS C.. SAPRC-99 Photolysis data. Supplied by William P. L. Carter. C.. Created from PhotDat.xls on 29-Jan-2000 10:07 C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IMGLY_ADJ ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IMGLY_ADJ, 1, IWLR ), IWLR = 1, 7 ) / & 4.414885E-20, 3.510064E-20, 2.364210E-20, 1.814704E-20, & 5.998223E-21, 3.697529E-20, 1.477388E-21 / DATA ( CS_REF( IMGLY_ADJ, 2, IWLR ), IWLR = 1, 7 ) / & 4.414885E-20, 3.510064E-20, 2.364210E-20, 1.814704E-20, & 5.998223E-21, 3.697529E-20, 1.477388E-21 / DATA ( CS_REF( IMGLY_ADJ, 3, IWLR ), IWLR = 1, 7 ) / & 4.414885E-20, 3.510064E-20, 2.364210E-20, 1.814704E-20, & 5.998223E-21, 3.697529E-20, 1.477388E-21 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IMGLY_ADJ, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.992942E-01, 3.801419E-01, 0.000000E+00 / DATA ( QY_REF( IMGLY_ADJ, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.992942E-01, 3.801419E-01, 0.000000E+00 / DATA ( QY_REF( IMGLY_ADJ, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.992942E-01, 3.801419E-01, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IMGLY_ADJ, 1, IWLR ), IWLR = 1, 7 ) / & 4.414885E-20, 3.510064E-20, 2.364210E-20, 1.814704E-20, & 5.996164E-21, 6.110804E-21, 0.000000E+00 / DATA ( ECS_REF( IMGLY_ADJ, 2, IWLR ), IWLR = 1, 7 ) / & 4.414885E-20, 3.510064E-20, 2.364210E-20, 1.814704E-20, & 5.996164E-21, 6.110804E-21, 0.000000E+00 / DATA ( ECS_REF( IMGLY_ADJ, 3, IWLR ), IWLR = 1, 7 ) / & 4.414885E-20, 3.510064E-20, 2.364210E-20, 1.814704E-20, & 5.996164E-21, 6.110804E-21, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IMGLY_ADJ, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.996566E-01, 1.652672E-01, 0.000000E+00 / DATA ( EQY_REF( IMGLY_ADJ, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.996566E-01, 1.652672E-01, 0.000000E+00 / DATA ( EQY_REF( IMGLY_ADJ, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.996566E-01, 1.652672E-01, 0.000000E+00 / C...ACETONE C.. CH3-CO-CH3 + HV = Radical products C.. IUPAC Subcommittee on Gas Kinetic Data Evaluation Data Sheet P7 C.. This datasheet updated: 19th December 2005. C.. Website: http://www.iupac-kinetic.ch.cam.ac.uk/. C.. IUPAC recommendations used for both absorption cross sections and quantum yield C.. Cross sections and quantum yields are for 298K only. C.. Uncertain whether the cross sections are calculated correctly from the complex C.. C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IACETONE ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IACETONE, 1, IWLR ), IWLR = 1, 7 ) / & 3.464058E-20, 2.276631E-20, 1.367786E-20, 7.373137E-21, & 8.850609E-22, 8.179470E-25, 0.000000E+00 / DATA ( CS_REF( IACETONE, 2, IWLR ), IWLR = 1, 7 ) / & 3.464058E-20, 2.276631E-20, 1.367786E-20, 7.373137E-21, & 8.850609E-22, 8.179470E-25, 0.000000E+00 / DATA ( CS_REF( IACETONE, 3, IWLR ), IWLR = 1, 7 ) / & 3.464058E-20, 2.276631E-20, 1.367786E-20, 7.373137E-21, & 8.850609E-22, 8.179470E-25, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IACETONE, 1, IWLR ), IWLR = 1, 7 ) / & 3.457704E-01, 2.094483E-01, 8.573251E-02, 3.882141E-02, & 9.387424E-03, 1.342100E-04, 0.000000E+00 / DATA ( QY_REF( IACETONE, 2, IWLR ), IWLR = 1, 7 ) / & 3.457704E-01, 2.094483E-01, 8.573251E-02, 3.882141E-02, & 9.387424E-03, 1.342100E-04, 0.000000E+00 / DATA ( QY_REF( IACETONE, 3, IWLR ), IWLR = 1, 7 ) / & 3.457704E-01, 2.094483E-01, 8.573251E-02, 3.882141E-02, & 9.387424E-03, 1.342100E-04, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IACETONE, 1, IWLR ), IWLR = 1, 7 ) / & 1.207275E-20, 4.950919E-21, 1.203532E-21, 3.067005E-22, & 1.419284E-23, 2.303166E-27, 0.000000E+00 / DATA ( ECS_REF( IACETONE, 2, IWLR ), IWLR = 1, 7 ) / & 1.207275E-20, 4.950919E-21, 1.203532E-21, 3.067005E-22, & 1.419284E-23, 2.303166E-27, 0.000000E+00 / DATA ( ECS_REF( IACETONE, 3, IWLR ), IWLR = 1, 7 ) / & 1.207275E-20, 4.950919E-21, 1.203532E-21, 3.067005E-22, & 1.419284E-23, 2.303166E-27, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IACETONE, 1, IWLR ), IWLR = 1, 7 ) / & 3.485148E-01, 2.174669E-01, 8.799125E-02, 4.159702E-02, & 1.603601E-02, 2.815788E-03, 0.000000E+00 / DATA ( EQY_REF( IACETONE, 2, IWLR ), IWLR = 1, 7 ) / & 3.485148E-01, 2.174669E-01, 8.799125E-02, 4.159702E-02, & 1.603601E-02, 2.815788E-03, 0.000000E+00 / DATA ( EQY_REF( IACETONE, 3, IWLR ), IWLR = 1, 7 ) / & 3.485148E-01, 2.174669E-01, 8.799125E-02, 4.159702E-02, & 1.603601E-02, 2.815788E-03, 0.000000E+00 / END MODULE CSQY_DATA ================================================ FILE: UTIL/inline_phot_preproc/src/CSQY_DATA-solflx-lowtran.f ================================================ MODULE CSQY_DATA IMPLICIT NONE C.....PARAMETERS and their descriptions: INTEGER, PARAMETER :: NPHOT_REF = 84 ! # ref phot reactions INTEGER, PARAMETER :: NTEMP_REF = 3 ! # ref temperatures INTEGER, PARAMETER :: NWL_REF = 7 ! # ref wavelengths C...Names of the mapped photolysis reactions (available to chemical) C... mechanisms) and their pointers to the reference photolysis rxn INTEGER, PARAMETER :: INO2_06 = 1 ! pointer to NO2-06 INTEGER, PARAMETER :: INO3NO_06 = 2 ! pointer to NO3NO-06 INTEGER, PARAMETER :: INO3NO2_6 = 3 ! pointer to NO3NO2-6 INTEGER, PARAMETER :: IO3O1D_06 = 4 ! pointer to O3O1D-06 INTEGER, PARAMETER :: IO3O3P_06 = 5 ! pointer to O3O3P-06 INTEGER, PARAMETER :: IHONO_06 = 6 ! pointer to HONO-06 INTEGER, PARAMETER :: IHNO3 = 7 ! pointer to HNO3 INTEGER, PARAMETER :: IHNO4_06 = 8 ! pointer to HNO4-06 INTEGER, PARAMETER :: IH2O2 = 9 ! pointer to H2O2 INTEGER, PARAMETER :: INO2EX = 10 ! pointer to NO2EX INTEGER, PARAMETER :: IPAN = 11 ! pointer to PAN INTEGER, PARAMETER :: IHCHOR_06 = 12 ! pointer to HCHOR-06 INTEGER, PARAMETER :: IHCHOM_06 = 13 ! pointer to HCHOM-06 INTEGER, PARAMETER :: ICCHO_R = 14 ! pointer to CCHO_R INTEGER, PARAMETER :: IC2CHO = 15 ! pointer to C2CHO INTEGER, PARAMETER :: IACET_06 = 16 ! pointer to ACET-06 INTEGER, PARAMETER :: IMEK_06 = 17 ! pointer to MEK-06 INTEGER, PARAMETER :: ICOOH = 18 ! pointer to COOH INTEGER, PARAMETER :: IGLY_07R = 19 ! pointer to GLY-07R INTEGER, PARAMETER :: IGLY_07M = 20 ! pointer to GLY-07M INTEGER, PARAMETER :: IMGLY_06 = 21 ! pointer to MGLY-06 INTEGER, PARAMETER :: IBACL_07 = 22 ! pointer to BACL-07 INTEGER, PARAMETER :: IBALD_06 = 23 ! pointer to BALD-06 INTEGER, PARAMETER :: IAFG1 = 24 ! pointer to AFG1 INTEGER, PARAMETER :: IMACR_06 = 25 ! pointer to MACR-06 INTEGER, PARAMETER :: IMVK_06 = 26 ! pointer to MVK-06 INTEGER, PARAMETER :: IIC3ONO2 = 27 ! pointer to IC3ONO2 INTEGER, PARAMETER :: IHOCCHO_IUPAC = 28 ! pointer to HOCCHO_IUPAC INTEGER, PARAMETER :: IACRO_09 = 29 ! pointer to ACRO-09 INTEGER, PARAMETER :: IPAA = 30 ! pointer to PAA INTEGER, PARAMETER :: ICL2 = 31 ! pointer to CL2 INTEGER, PARAMETER :: ICLNO_06 = 32 ! pointer to CLNO-06 INTEGER, PARAMETER :: ICLONO = 33 ! pointer to CLONO INTEGER, PARAMETER :: ICLNO2 = 34 ! pointer to CLNO2 INTEGER, PARAMETER :: ICLONO2_1 = 35 ! pointer to CLONO2-1 INTEGER, PARAMETER :: ICLONO2_2 = 36 ! pointer to CLONO2-2 INTEGER, PARAMETER :: IHOCL_06 = 37 ! pointer to HOCL-06 INTEGER, PARAMETER :: ICLCCHO = 38 ! pointer to CLCCHO INTEGER, PARAMETER :: ICLACET = 39 ! pointer to CLACET INTEGER, PARAMETER :: INO2_SAPRC99 = 40 ! pointer to NO2_SAPRC99 INTEGER, PARAMETER :: INO3NO_SAPRC99 = 41 ! pointer to NO3NO_SAPRC99 INTEGER, PARAMETER :: INO3NO2_SAPRC99 = 42 ! pointer to NO3NO2_SAPRC99 INTEGER, PARAMETER :: IO3O3P_SAPRC99 = 43 ! pointer to O3O3P_SAPRC99 INTEGER, PARAMETER :: IO3O1D_SAPRC99 = 44 ! pointer to O3O1D_SAPRC99 INTEGER, PARAMETER :: IHONO_NO_SAPRC99 = 45 ! pointer to HONO_NO_SAPRC99 INTEGER, PARAMETER :: IHONO_NO2_SAPRC99 = 46 ! pointer to HONO_NO2_SAPRC99 INTEGER, PARAMETER :: IHNO3_SAPRC99 = 47 ! pointer to HNO3_SAPRC99 INTEGER, PARAMETER :: IHO2NO2_SAPRC99 = 48 ! pointer to HO2NO2_SAPRC99 INTEGER, PARAMETER :: IH2O2_SAPRC99 = 49 ! pointer to H2O2_SAPRC99 INTEGER, PARAMETER :: IHCHO_R_SAPRC99 = 50 ! pointer to HCHO_R_SAPRC99 INTEGER, PARAMETER :: IHCHO_M_SAPRC99 = 51 ! pointer to HCHO_M_SAPRC99 INTEGER, PARAMETER :: ICCHO_R_SAPRC99 = 52 ! pointer to CCHO_R_SAPRC99 INTEGER, PARAMETER :: IC2CHO_SAPRC99 = 53 ! pointer to C2CHO_SAPRC99 INTEGER, PARAMETER :: IACETONE_SAPRC99 = 54 ! pointer to ACETONE_SAPRC99 INTEGER, PARAMETER :: IKETONE_SAPRC99 = 55 ! pointer to KETONE_SAPRC99 INTEGER, PARAMETER :: ICOOH_SAPRC99 = 56 ! pointer to COOH_SAPRC99 INTEGER, PARAMETER :: IGLY_R_SAPRC99 = 57 ! pointer to GLY_R_SAPRC99 INTEGER, PARAMETER :: IGLY_ABS_SAPRC99 = 58 ! pointer to GLY_ABS_SAPRC99 INTEGER, PARAMETER :: IMGLY_ADJ_SAPRC99 = 59 ! pointer to MGLY_ADJ_SAPRC99 INTEGER, PARAMETER :: IBACL_ADJ_SAPRC99 = 60 ! pointer to BACL_ADJ_SAPRC99 INTEGER, PARAMETER :: IBZCHO_SAPRC99 = 61 ! pointer to BZCHO_SAPRC99 INTEGER, PARAMETER :: IACROLEIN_SAPRC99 = 62 ! pointer to ACROLEIN_SAPRC99 INTEGER, PARAMETER :: IIC3ONO2_SAPRC99 = 63 ! pointer to IC3ONO2_SAPRC99 INTEGER, PARAMETER :: IMGLY_ABS_SAPRC99 = 64 ! pointer to MGLY_ABS_SAPRC99 INTEGER, PARAMETER :: IO3_O3P_IUPAC04 = 65 ! pointer to O3_O3P_IUPAC04 INTEGER, PARAMETER :: IO3_O1D_IUPAC04 = 66 ! pointer to O3_O1D_IUPAC04 INTEGER, PARAMETER :: IHONO_IUPAC04 = 67 ! pointer to HONO_IUPAC04 INTEGER, PARAMETER :: IHO2NO2_IUPAC04 = 68 ! pointer to HO2NO2_IUPAC04 INTEGER, PARAMETER :: IHNO3_IUPAC04 = 69 ! pointer to HNO3_IUPAC04 INTEGER, PARAMETER :: IN2O5_IUPAC04 = 70 ! pointer to N2O5_IUPAC04 INTEGER, PARAMETER :: INTR_IUPAC04 = 71 ! pointer to NTR_IUPAC04 INTEGER, PARAMETER :: IPAN_IUPAC04 = 72 ! pointer to PAN_IUPAC04 INTEGER, PARAMETER :: IPACD_CB05 = 73 ! pointer to PACD_CB05 INTEGER, PARAMETER :: IMGLY_IUPAC04 = 74 ! pointer to MGLY_IUPAC04 INTEGER, PARAMETER :: ICL2_IUPAC04 = 75 ! pointer to CL2_IUPAC04 INTEGER, PARAMETER :: IHOCL_IUPAC04 = 76 ! pointer to HOCL_IUPAC04 INTEGER, PARAMETER :: IFMCL_IUPAC04 = 77 ! pointer to FMCL_IUPAC04 INTEGER, PARAMETER :: INO2 = 78 ! pointer to NO2 INTEGER, PARAMETER :: IO3O1D = 79 ! pointer to O3O1D INTEGER, PARAMETER :: IO3O3P = 80 ! pointer to O3O3P INTEGER, PARAMETER :: IKETONE = 81 ! pointer to KETONE INTEGER, PARAMETER :: IMGLY_ABS = 82 ! pointer to MGLY_ABS INTEGER, PARAMETER :: IMGLY_ADJ = 83 ! pointer to MGLY_ADJ INTEGER, PARAMETER :: IACETONE = 84 ! pointer to ACETONE CHARACTER(16), SAVE :: PNAME_REF( NPHOT_REF ) DATA PNAME_REF( INO2_06 ) / 'NO2-06 ' / DATA PNAME_REF( INO3NO_06 ) / 'NO3NO-06 ' / DATA PNAME_REF( INO3NO2_6 ) / 'NO3NO2-6 ' / DATA PNAME_REF( IO3O1D_06 ) / 'O3O1D-06 ' / DATA PNAME_REF( IO3O3P_06 ) / 'O3O3P-06 ' / DATA PNAME_REF( IHONO_06 ) / 'HONO-06 ' / DATA PNAME_REF( IHNO3 ) / 'HNO3 ' / DATA PNAME_REF( IHNO4_06 ) / 'HNO4-06 ' / DATA PNAME_REF( IH2O2 ) / 'H2O2 ' / DATA PNAME_REF( INO2EX ) / 'NO2EX ' / DATA PNAME_REF( IPAN ) / 'PAN ' / DATA PNAME_REF( IHCHOR_06 ) / 'HCHOR-06 ' / DATA PNAME_REF( IHCHOM_06 ) / 'HCHOM-06 ' / DATA PNAME_REF( ICCHO_R ) / 'CCHO_R ' / DATA PNAME_REF( IC2CHO ) / 'C2CHO ' / DATA PNAME_REF( IACET_06 ) / 'ACET-06 ' / DATA PNAME_REF( IMEK_06 ) / 'MEK-06 ' / DATA PNAME_REF( ICOOH ) / 'COOH ' / DATA PNAME_REF( IGLY_07R ) / 'GLY-07R ' / DATA PNAME_REF( IGLY_07M ) / 'GLY-07M ' / DATA PNAME_REF( IMGLY_06 ) / 'MGLY-06 ' / DATA PNAME_REF( IBACL_07 ) / 'BACL-07 ' / DATA PNAME_REF( IBALD_06 ) / 'BALD-06 ' / DATA PNAME_REF( IAFG1 ) / 'AFG1 ' / DATA PNAME_REF( IMACR_06 ) / 'MACR-06 ' / DATA PNAME_REF( IMVK_06 ) / 'MVK-06 ' / DATA PNAME_REF( IIC3ONO2 ) / 'IC3ONO2 ' / DATA PNAME_REF( IHOCCHO_IUPAC ) / 'HOCCHO_IUPAC ' / DATA PNAME_REF( IACRO_09 ) / 'ACRO-09 ' / DATA PNAME_REF( IPAA ) / 'PAA ' / DATA PNAME_REF( ICL2 ) / 'CL2 ' / DATA PNAME_REF( ICLNO_06 ) / 'CLNO-06 ' / DATA PNAME_REF( ICLONO ) / 'CLONO ' / DATA PNAME_REF( ICLNO2 ) / 'CLNO2 ' / DATA PNAME_REF( ICLONO2_1 ) / 'CLONO2-1 ' / DATA PNAME_REF( ICLONO2_2 ) / 'CLONO2-2 ' / DATA PNAME_REF( IHOCL_06 ) / 'HOCL-06 ' / DATA PNAME_REF( ICLCCHO ) / 'CLCCHO ' / DATA PNAME_REF( ICLACET ) / 'CLACET ' / DATA PNAME_REF( INO2_SAPRC99 ) / 'NO2_SAPRC99 ' / DATA PNAME_REF( INO3NO_SAPRC99 ) / 'NO3NO_SAPRC99 ' / DATA PNAME_REF( INO3NO2_SAPRC99 ) / 'NO3NO2_SAPRC99 ' / DATA PNAME_REF( IO3O3P_SAPRC99 ) / 'O3O3P_SAPRC99 ' / DATA PNAME_REF( IO3O1D_SAPRC99 ) / 'O3O1D_SAPRC99 ' / DATA PNAME_REF( IHONO_NO_SAPRC99 ) / 'HONO_NO_SAPRC99 ' / DATA PNAME_REF( IHONO_NO2_SAPRC99 ) / 'HONO_NO2_SAPRC99' / DATA PNAME_REF( IHNO3_SAPRC99 ) / 'HNO3_SAPRC99 ' / DATA PNAME_REF( IHO2NO2_SAPRC99 ) / 'HO2NO2_SAPRC99 ' / DATA PNAME_REF( IH2O2_SAPRC99 ) / 'H2O2_SAPRC99 ' / DATA PNAME_REF( IHCHO_R_SAPRC99 ) / 'HCHO_R_SAPRC99 ' / DATA PNAME_REF( IHCHO_M_SAPRC99 ) / 'HCHO_M_SAPRC99 ' / DATA PNAME_REF( ICCHO_R_SAPRC99 ) / 'CCHO_R_SAPRC99 ' / DATA PNAME_REF( IC2CHO_SAPRC99 ) / 'C2CHO_SAPRC99 ' / DATA PNAME_REF( IACETONE_SAPRC99 ) / 'ACETONE_SAPRC99 ' / DATA PNAME_REF( IKETONE_SAPRC99 ) / 'KETONE_SAPRC99 ' / DATA PNAME_REF( ICOOH_SAPRC99 ) / 'COOH_SAPRC99 ' / DATA PNAME_REF( IGLY_R_SAPRC99 ) / 'GLY_R_SAPRC99 ' / DATA PNAME_REF( IGLY_ABS_SAPRC99 ) / 'GLY_ABS_SAPRC99 ' / DATA PNAME_REF( IMGLY_ADJ_SAPRC99 ) / 'MGLY_ADJ_SAPRC99' / DATA PNAME_REF( IBACL_ADJ_SAPRC99 ) / 'BACL_ADJ_SAPRC99' / DATA PNAME_REF( IBZCHO_SAPRC99 ) / 'BZCHO_SAPRC99 ' / DATA PNAME_REF( IACROLEIN_SAPRC99 ) / 'ACROLEIN_SAPRC99' / DATA PNAME_REF( IIC3ONO2_SAPRC99 ) / 'IC3ONO2_SAPRC99 ' / DATA PNAME_REF( IMGLY_ABS_SAPRC99 ) / 'MGLY_ABS_SAPRC99' / DATA PNAME_REF( IO3_O3P_IUPAC04 ) / 'O3_O3P_IUPAC04 ' / DATA PNAME_REF( IO3_O1D_IUPAC04 ) / 'O3_O1D_IUPAC04 ' / DATA PNAME_REF( IHONO_IUPAC04 ) / 'HONO_IUPAC04 ' / DATA PNAME_REF( IHO2NO2_IUPAC04 ) / 'HO2NO2_IUPAC04 ' / DATA PNAME_REF( IHNO3_IUPAC04 ) / 'HNO3_IUPAC04 ' / DATA PNAME_REF( IN2O5_IUPAC04 ) / 'N2O5_IUPAC04 ' / DATA PNAME_REF( INTR_IUPAC04 ) / 'NTR_IUPAC04 ' / DATA PNAME_REF( IPAN_IUPAC04 ) / 'PAN_IUPAC04 ' / DATA PNAME_REF( IPACD_CB05 ) / 'PACD_CB05 ' / DATA PNAME_REF( IMGLY_IUPAC04 ) / 'MGLY_IUPAC04 ' / DATA PNAME_REF( ICL2_IUPAC04 ) / 'CL2_IUPAC04 ' / DATA PNAME_REF( IHOCL_IUPAC04 ) / 'HOCL_IUPAC04 ' / DATA PNAME_REF( IFMCL_IUPAC04 ) / 'FMCL_IUPAC04 ' / DATA PNAME_REF( INO2 ) / 'NO2 ' / DATA PNAME_REF( IO3O1D ) / 'O3O1D ' / DATA PNAME_REF( IO3O3P ) / 'O3O3P ' / DATA PNAME_REF( IKETONE ) / 'KETONE ' / DATA PNAME_REF( IMGLY_ABS ) / 'MGLY_ABS ' / DATA PNAME_REF( IMGLY_ADJ ) / 'MGLY_ADJ ' / DATA PNAME_REF( IACETONE ) / 'ACETONE ' / C...Setup the Mapping from CMAQ chemical reactions to the reference data INTEGER, PARAMETER :: NPHOT_MAP = 84 ! # phot mapped reactions CHARACTER(16), SAVE :: PNAME_MAP( NPHOT_MAP ) INTEGER, SAVE :: PHOT_MAP( NPHOT_MAP ) DATA PNAME_MAP( 1 ), PHOT_MAP( 1 ) / 'NO2-06 ', INO2_06 / DATA PNAME_MAP( 2 ), PHOT_MAP( 2 ) / 'NO3NO-06 ', INO3NO_06 / DATA PNAME_MAP( 3 ), PHOT_MAP( 3 ) / 'NO3NO2-6 ', INO3NO2_6 / DATA PNAME_MAP( 4 ), PHOT_MAP( 4 ) / 'O3O1D-06 ', IO3O1D_06 / DATA PNAME_MAP( 5 ), PHOT_MAP( 5 ) / 'O3O3P-06 ', IO3O3P_06 / DATA PNAME_MAP( 6 ), PHOT_MAP( 6 ) / 'HONO-06 ', IHONO_06 / DATA PNAME_MAP( 7 ), PHOT_MAP( 7 ) / 'HNO3 ', IHNO3 / DATA PNAME_MAP( 8 ), PHOT_MAP( 8 ) / 'HNO4-06 ', IHNO4_06 / DATA PNAME_MAP( 9 ), PHOT_MAP( 9 ) / 'H2O2 ', IH2O2 / DATA PNAME_MAP( 10 ), PHOT_MAP( 10 ) / 'NO2EX ', INO2EX / DATA PNAME_MAP( 11 ), PHOT_MAP( 11 ) / 'PAN ', IPAN / DATA PNAME_MAP( 12 ), PHOT_MAP( 12 ) / 'HCHOR-06 ', IHCHOR_06 / DATA PNAME_MAP( 13 ), PHOT_MAP( 13 ) / 'HCHOM-06 ', IHCHOM_06 / DATA PNAME_MAP( 14 ), PHOT_MAP( 14 ) / 'CCHO_R ', ICCHO_R / DATA PNAME_MAP( 15 ), PHOT_MAP( 15 ) / 'C2CHO ', IC2CHO / DATA PNAME_MAP( 16 ), PHOT_MAP( 16 ) / 'ACET-06 ', IACET_06 / DATA PNAME_MAP( 17 ), PHOT_MAP( 17 ) / 'MEK-06 ', IMEK_06 / DATA PNAME_MAP( 18 ), PHOT_MAP( 18 ) / 'COOH ', ICOOH / DATA PNAME_MAP( 19 ), PHOT_MAP( 19 ) / 'GLY-07R ', IGLY_07R / DATA PNAME_MAP( 20 ), PHOT_MAP( 20 ) / 'GLY-07M ', IGLY_07M / DATA PNAME_MAP( 21 ), PHOT_MAP( 21 ) / 'MGLY-06 ', IMGLY_06 / DATA PNAME_MAP( 22 ), PHOT_MAP( 22 ) / 'BACL-07 ', IBACL_07 / DATA PNAME_MAP( 23 ), PHOT_MAP( 23 ) / 'BALD-06 ', IBALD_06 / DATA PNAME_MAP( 24 ), PHOT_MAP( 24 ) / 'AFG1 ', IAFG1 / DATA PNAME_MAP( 25 ), PHOT_MAP( 25 ) / 'MACR-06 ', IMACR_06 / DATA PNAME_MAP( 26 ), PHOT_MAP( 26 ) / 'MVK-06 ', IMVK_06 / DATA PNAME_MAP( 27 ), PHOT_MAP( 27 ) / 'IC3ONO2 ', IIC3ONO2 / DATA PNAME_MAP( 28 ), PHOT_MAP( 28 ) / 'HOCCHO_IUPAC ', IHOCCHO_IUPAC / DATA PNAME_MAP( 29 ), PHOT_MAP( 29 ) / 'ACRO-09 ', IACRO_09 / DATA PNAME_MAP( 30 ), PHOT_MAP( 30 ) / 'PAA ', IPAA / DATA PNAME_MAP( 31 ), PHOT_MAP( 31 ) / 'CL2 ', ICL2 / DATA PNAME_MAP( 32 ), PHOT_MAP( 32 ) / 'CLNO-06 ', ICLNO_06 / DATA PNAME_MAP( 33 ), PHOT_MAP( 33 ) / 'CLONO ', ICLONO / DATA PNAME_MAP( 34 ), PHOT_MAP( 34 ) / 'CLNO2 ', ICLNO2 / DATA PNAME_MAP( 35 ), PHOT_MAP( 35 ) / 'CLONO2-1 ', ICLONO2_1 / DATA PNAME_MAP( 36 ), PHOT_MAP( 36 ) / 'CLONO2-2 ', ICLONO2_2 / DATA PNAME_MAP( 37 ), PHOT_MAP( 37 ) / 'HOCL-06 ', IHOCL_06 / DATA PNAME_MAP( 38 ), PHOT_MAP( 38 ) / 'CLCCHO ', ICLCCHO / DATA PNAME_MAP( 39 ), PHOT_MAP( 39 ) / 'CLACET ', ICLACET / DATA PNAME_MAP( 40 ), PHOT_MAP( 40 ) / 'NO2_SAPRC99 ', INO2_SAPRC99 / DATA PNAME_MAP( 41 ), PHOT_MAP( 41 ) / 'NO3NO_SAPRC99 ', INO3NO_SAPRC99 / DATA PNAME_MAP( 42 ), PHOT_MAP( 42 ) / 'NO3NO2_SAPRC99 ', INO3NO2_SAPRC99 / DATA PNAME_MAP( 43 ), PHOT_MAP( 43 ) / 'O3O3P_SAPRC99 ', IO3O3P_SAPRC99 / DATA PNAME_MAP( 44 ), PHOT_MAP( 44 ) / 'O3O1D_SAPRC99 ', IO3O1D_SAPRC99 / DATA PNAME_MAP( 45 ), PHOT_MAP( 45 ) / 'HONO_NO_SAPRC99 ', IHONO_NO_SAPRC99 / DATA PNAME_MAP( 46 ), PHOT_MAP( 46 ) / 'HONO_NO2_SAPRC99', IHONO_NO2_SAPRC99 / DATA PNAME_MAP( 47 ), PHOT_MAP( 47 ) / 'HNO3_SAPRC99 ', IHNO3_SAPRC99 / DATA PNAME_MAP( 48 ), PHOT_MAP( 48 ) / 'HO2NO2_SAPRC99 ', IHO2NO2_SAPRC99 / DATA PNAME_MAP( 49 ), PHOT_MAP( 49 ) / 'H2O2_SAPRC99 ', IH2O2_SAPRC99 / DATA PNAME_MAP( 50 ), PHOT_MAP( 50 ) / 'HCHO_R_SAPRC99 ', IHCHO_R_SAPRC99 / DATA PNAME_MAP( 51 ), PHOT_MAP( 51 ) / 'HCHO_M_SAPRC99 ', IHCHO_M_SAPRC99 / DATA PNAME_MAP( 52 ), PHOT_MAP( 52 ) / 'CCHO_R_SAPRC99 ', ICCHO_R_SAPRC99 / DATA PNAME_MAP( 53 ), PHOT_MAP( 53 ) / 'C2CHO_SAPRC99 ', IC2CHO_SAPRC99 / DATA PNAME_MAP( 54 ), PHOT_MAP( 54 ) / 'ACETONE_SAPRC99 ', IACETONE_SAPRC99 / DATA PNAME_MAP( 55 ), PHOT_MAP( 55 ) / 'KETONE_SAPRC99 ', IKETONE_SAPRC99 / DATA PNAME_MAP( 56 ), PHOT_MAP( 56 ) / 'COOH_SAPRC99 ', ICOOH_SAPRC99 / DATA PNAME_MAP( 57 ), PHOT_MAP( 57 ) / 'GLY_R_SAPRC99 ', IGLY_R_SAPRC99 / DATA PNAME_MAP( 58 ), PHOT_MAP( 58 ) / 'GLY_ABS_SAPRC99 ', IGLY_ABS_SAPRC99 / DATA PNAME_MAP( 59 ), PHOT_MAP( 59 ) / 'MGLY_ADJ_SAPRC99', IMGLY_ADJ_SAPRC99 / DATA PNAME_MAP( 60 ), PHOT_MAP( 60 ) / 'BACL_ADJ_SAPRC99', IBACL_ADJ_SAPRC99 / DATA PNAME_MAP( 61 ), PHOT_MAP( 61 ) / 'BZCHO_SAPRC99 ', IBZCHO_SAPRC99 / DATA PNAME_MAP( 62 ), PHOT_MAP( 62 ) / 'ACROLEIN_SAPRC99', IACROLEIN_SAPRC99 / DATA PNAME_MAP( 63 ), PHOT_MAP( 63 ) / 'IC3ONO2_SAPRC99 ', IIC3ONO2_SAPRC99 / DATA PNAME_MAP( 64 ), PHOT_MAP( 64 ) / 'MGLY_ABS_SAPRC99', IMGLY_ABS_SAPRC99 / DATA PNAME_MAP( 65 ), PHOT_MAP( 65 ) / 'O3_O3P_IUPAC04 ', IO3_O3P_IUPAC04 / DATA PNAME_MAP( 66 ), PHOT_MAP( 66 ) / 'O3_O1D_IUPAC04 ', IO3_O1D_IUPAC04 / DATA PNAME_MAP( 67 ), PHOT_MAP( 67 ) / 'HONO_IUPAC04 ', IHONO_IUPAC04 / DATA PNAME_MAP( 68 ), PHOT_MAP( 68 ) / 'HO2NO2_IUPAC04 ', IHO2NO2_IUPAC04 / DATA PNAME_MAP( 69 ), PHOT_MAP( 69 ) / 'HNO3_IUPAC04 ', IHNO3_IUPAC04 / DATA PNAME_MAP( 70 ), PHOT_MAP( 70 ) / 'N2O5_IUPAC04 ', IN2O5_IUPAC04 / DATA PNAME_MAP( 71 ), PHOT_MAP( 71 ) / 'NTR_IUPAC04 ', INTR_IUPAC04 / DATA PNAME_MAP( 72 ), PHOT_MAP( 72 ) / 'PAN_IUPAC04 ', IPAN_IUPAC04 / DATA PNAME_MAP( 73 ), PHOT_MAP( 73 ) / 'PACD_CB05 ', IPACD_CB05 / DATA PNAME_MAP( 74 ), PHOT_MAP( 74 ) / 'MGLY_IUPAC04 ', IMGLY_IUPAC04 / DATA PNAME_MAP( 75 ), PHOT_MAP( 75 ) / 'CL2_IUPAC04 ', ICL2_IUPAC04 / DATA PNAME_MAP( 76 ), PHOT_MAP( 76 ) / 'HOCL_IUPAC04 ', IHOCL_IUPAC04 / DATA PNAME_MAP( 77 ), PHOT_MAP( 77 ) / 'FMCL_IUPAC04 ', IFMCL_IUPAC04 / DATA PNAME_MAP( 78 ), PHOT_MAP( 78 ) / 'NO2 ', INO2 / DATA PNAME_MAP( 79 ), PHOT_MAP( 79 ) / 'O3O1D ', IO3O1D / DATA PNAME_MAP( 80 ), PHOT_MAP( 80 ) / 'O3O3P ', IO3O3P / DATA PNAME_MAP( 81 ), PHOT_MAP( 81 ) / 'KETONE ', IKETONE / DATA PNAME_MAP( 82 ), PHOT_MAP( 82 ) / 'MGLY_ABS ', IMGLY_ABS / DATA PNAME_MAP( 83 ), PHOT_MAP( 83 ) / 'MGLY_ADJ ', IMGLY_ADJ / DATA PNAME_MAP( 84 ), PHOT_MAP( 84 ) / 'ACETONE ', IACETONE / REAL, SAVE :: TEMP_REF( NTEMP_REF, NPHOT_REF ) ! reference temperatures REAL, SAVE :: CS_REF( NPHOT_REF, NTEMP_REF, NWL_REF ) ! effective cross sections REAL, SAVE :: QY_REF( NPHOT_REF, NTEMP_REF, NWL_REF ) ! effective quantum yields REAL, SAVE :: ECS_REF( NPHOT_REF, NTEMP_REF, NWL_REF ) ! CS*QY averaged UCI Solar Flux C... effective quantum yields were computed by performing separate C... interval integrations for the cross sections and for the C... effective cross sections (cs*qy) (calculated on the finer C... wavelength grid. The effective quantum yield values C... were then calculated for the 7 wavelength intervals by C... dividing the effective cross sections by the interval average C... cross sections (eQY=eCS/CS). REAL, SAVE :: EQY_REF( NPHOT_REF, NTEMP_REF, NWL_REF ) ! eCS/CS averaged 77 bins in UCI Model INTEGER :: IWLR ! wavelength loop variable INTEGER :: ITTR ! temperature loop variable C...NO2-06 C.. NO2 + HV = NO + O C.. From NASA (2006). C.. Absorption cross sections are averages for wavelength intervals given. C.. Data alligned to smallest wavelength intervals for abs. coefs and qy's. C.. C... reference temperatures (K) DATA ( TEMP_REF( ITTR, INO2_06 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( INO2_06, 1, IWLR ), IWLR = 1, 7 ) / & 1.076237E-19, 1.482865E-19, 1.884280E-19, 2.269908E-19, & 3.422504E-19, 5.707211E-19, 2.476857E-20 / DATA ( CS_REF( INO2_06, 2, IWLR ), IWLR = 1, 7 ) / & 1.076237E-19, 1.482865E-19, 1.884280E-19, 2.269908E-19, & 3.422504E-19, 5.707211E-19, 2.476857E-20 / DATA ( CS_REF( INO2_06, 3, IWLR ), IWLR = 1, 7 ) / & 1.076237E-19, 1.482865E-19, 1.884280E-19, 2.269908E-19, & 3.422504E-19, 5.707211E-19, 2.476857E-20 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( INO2_06, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 8.354442E-01, 1.556473E-03 / DATA ( QY_REF( INO2_06, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 8.354442E-01, 1.556473E-03 / DATA ( QY_REF( INO2_06, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 8.354442E-01, 1.556473E-03 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( INO2_06, 1, IWLR ), IWLR = 1, 7 ) / & 1.076237E-19, 1.482865E-19, 1.884280E-19, 2.269908E-19, & 3.422504E-19, 4.705641E-19, 9.288722E-22 / DATA ( ECS_REF( INO2_06, 2, IWLR ), IWLR = 1, 7 ) / & 1.076237E-19, 1.482865E-19, 1.884280E-19, 2.269908E-19, & 3.422504E-19, 4.705641E-19, 9.288722E-22 / DATA ( ECS_REF( INO2_06, 3, IWLR ), IWLR = 1, 7 ) / & 1.076237E-19, 1.482865E-19, 1.884280E-19, 2.269908E-19, & 3.422504E-19, 4.705641E-19, 9.288722E-22 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( INO2_06, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 8.245080E-01, 3.750205E-02 / DATA ( EQY_REF( INO2_06, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 8.245080E-01, 3.750205E-02 / DATA ( EQY_REF( INO2_06, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 8.245080E-01, 3.750205E-02 / C...NO3NO-06 C.. NO3 + HV = NO + O2 C.. From NASA (2006), for 298 K. C.. Quantum yields for wavelengths above 640 nm estimated by linear extrapolation. C.. C... reference temperatures (K) DATA ( TEMP_REF( ITTR, INO3NO_06 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( INO3NO_06, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 0.000000E+00, 5.976742E-19 / DATA ( CS_REF( INO3NO_06, 2, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 0.000000E+00, 5.976742E-19 / DATA ( CS_REF( INO3NO_06, 3, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 0.000000E+00, 5.976742E-19 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( INO3NO_06, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 0.000000E+00, 2.239172E-02 / DATA ( QY_REF( INO3NO_06, 2, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 0.000000E+00, 2.239172E-02 / DATA ( QY_REF( INO3NO_06, 3, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 0.000000E+00, 2.239172E-02 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( INO3NO_06, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 0.000000E+00, 9.557256E-20 / DATA ( ECS_REF( INO3NO_06, 2, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 0.000000E+00, 9.557256E-20 / DATA ( ECS_REF( INO3NO_06, 3, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 0.000000E+00, 9.557256E-20 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( INO3NO_06, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 0.000000E+00, 1.599074E-01 / DATA ( EQY_REF( INO3NO_06, 2, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 0.000000E+00, 1.599074E-01 / DATA ( EQY_REF( INO3NO_06, 3, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 0.000000E+00, 1.599074E-01 / C...NO3NO2-6 C.. NO3 + HV = NO2 + O C.. From NASA (2006), for 298 K. C.. Quantum yields for wavelengths above 640 nm estimated by linear extrapolation. C.. C... reference temperatures (K) DATA ( TEMP_REF( ITTR, INO3NO2_6 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( INO3NO2_6, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 3.643271E-21, 1.341307E-18 / DATA ( CS_REF( INO3NO2_6, 2, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 3.643271E-21, 1.341307E-18 / DATA ( CS_REF( INO3NO2_6, 3, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 3.643271E-21, 1.341307E-18 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( INO3NO2_6, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 1.904540E-01, 5.964973E-01 / DATA ( QY_REF( INO3NO2_6, 2, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 1.904540E-01, 5.964973E-01 / DATA ( QY_REF( INO3NO2_6, 3, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 1.904540E-01, 5.964973E-01 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( INO3NO2_6, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 3.637229E-21, 9.265006E-19 / DATA ( ECS_REF( INO3NO2_6, 2, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 3.637229E-21, 9.265006E-19 / DATA ( ECS_REF( INO3NO2_6, 3, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 3.637229E-21, 9.265006E-19 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( INO3NO2_6, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 9.983416E-01, 6.907448E-01 / DATA ( EQY_REF( INO3NO2_6, 2, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 9.983416E-01, 6.907448E-01 / DATA ( EQY_REF( INO3NO2_6, 3, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 9.983416E-01, 6.907448E-01 / C...O3O1D-06 C.. O3 + HV = O1D + O2 C.. NASA (2006) abs. Coefs and IUPAC (2006) quantum yields C.. Absorption cross sections from NASA (2006). C.. Quantum yields are from IUPAC (2006) recommendation, interpolated C.. to the NASA (2006) absorption cross section wavelengths. C.. NASA (2006) does not give useable recommendations for the absorption C.. cross sections, except at <305 and >329 nm, where they are consistent C.. with the IUPAC recommendations. C.. Formation of O1D assumed not to occur at the high wavelength band. C.. C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IO3O1D_06 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IO3O1D_06, 1, IWLR ), IWLR = 1, 7 ) / & 8.519092E-19, 2.756369E-19, 1.058103E-19, 4.660382E-20, & 6.954922E-21, 6.413300E-23, 0.000000E+00 / DATA ( CS_REF( IO3O1D_06, 2, IWLR ), IWLR = 1, 7 ) / & 8.519092E-19, 2.756369E-19, 1.058103E-19, 4.660382E-20, & 6.954922E-21, 6.413300E-23, 0.000000E+00 / DATA ( CS_REF( IO3O1D_06, 3, IWLR ), IWLR = 1, 7 ) / & 8.519092E-19, 2.756369E-19, 1.058103E-19, 4.660382E-20, & 6.954922E-21, 6.413300E-23, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IO3O1D_06, 1, IWLR ), IWLR = 1, 7 ) / & 9.000000E-01, 8.926651E-01, 5.311664E-01, 2.227850E-01, & 8.767726E-02, 4.585904E-02, 0.000000E+00 / DATA ( QY_REF( IO3O1D_06, 2, IWLR ), IWLR = 1, 7 ) / & 9.000000E-01, 8.926651E-01, 5.311664E-01, 2.227850E-01, & 8.767726E-02, 4.585904E-02, 0.000000E+00 / DATA ( QY_REF( IO3O1D_06, 3, IWLR ), IWLR = 1, 7 ) / & 9.000000E-01, 8.926651E-01, 5.311664E-01, 2.227850E-01, & 8.767726E-02, 4.585904E-02, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IO3O1D_06, 1, IWLR ), IWLR = 1, 7 ) / & 7.667183E-19, 2.468925E-19, 5.994369E-20, 1.079729E-20, & 7.086030E-22, 5.114812E-24, 0.000000E+00 / DATA ( ECS_REF( IO3O1D_06, 2, IWLR ), IWLR = 1, 7 ) / & 7.667183E-19, 2.468925E-19, 5.994369E-20, 1.079729E-20, & 7.086030E-22, 5.114812E-24, 0.000000E+00 / DATA ( ECS_REF( IO3O1D_06, 3, IWLR ), IWLR = 1, 7 ) / & 7.667183E-19, 2.468925E-19, 5.994369E-20, 1.079729E-20, & 7.086030E-22, 5.114812E-24, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IO3O1D_06, 1, IWLR ), IWLR = 1, 7 ) / & 9.000000E-01, 8.957165E-01, 5.665205E-01, 2.316824E-01, & 1.018851E-01, 7.975321E-02, 0.000000E+00 / DATA ( EQY_REF( IO3O1D_06, 2, IWLR ), IWLR = 1, 7 ) / & 9.000000E-01, 8.957165E-01, 5.665205E-01, 2.316824E-01, & 1.018851E-01, 7.975321E-02, 0.000000E+00 / DATA ( EQY_REF( IO3O1D_06, 3, IWLR ), IWLR = 1, 7 ) / & 9.000000E-01, 8.957165E-01, 5.665205E-01, 2.316824E-01, & 1.018851E-01, 7.975321E-02, 0.000000E+00 / C...O3O3P-06 C.. O3 + HV = O3P + O2 C.. Absorption cross sections from NASA (2006). C.. Quantum yields are derived from the O1D quantum yields in the low wavelength re C.. Unit quantum yields assumed in high wavelength region. C.. Absorption cross sections below 829 nm are extrapolated C.. C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IO3O3P_06 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IO3O3P_06, 1, IWLR ), IWLR = 1, 7 ) / & 8.387662E-19, 2.754982E-19, 1.058103E-19, 4.660382E-20, & 7.174786E-21, 7.032893E-23, 1.701844E-21 / DATA ( CS_REF( IO3O3P_06, 2, IWLR ), IWLR = 1, 7 ) / & 8.387662E-19, 2.754982E-19, 1.058103E-19, 4.660382E-20, & 7.174786E-21, 7.032893E-23, 1.701844E-21 / DATA ( CS_REF( IO3O3P_06, 3, IWLR ), IWLR = 1, 7 ) / & 8.387662E-19, 2.754982E-19, 1.058103E-19, 4.660382E-20, & 7.174786E-21, 7.032893E-23, 1.701844E-21 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IO3O3P_06, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E-01, 1.073348E-01, 4.688335E-01, 7.772150E-01, & 9.115356E-01, 9.541410E-01, 9.901482E-01 / DATA ( QY_REF( IO3O3P_06, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E-01, 1.073348E-01, 4.688335E-01, 7.772150E-01, & 9.115356E-01, 9.541410E-01, 9.901482E-01 / DATA ( QY_REF( IO3O3P_06, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E-01, 1.073348E-01, 4.688335E-01, 7.772150E-01, & 9.115356E-01, 9.541410E-01, 9.901482E-01 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IO3O3P_06, 1, IWLR ), IWLR = 1, 7 ) / & 8.387662E-20, 2.873049E-20, 4.586660E-20, 3.580654E-20, & 6.431878E-21, 6.521411E-23, 1.701844E-21 / DATA ( ECS_REF( IO3O3P_06, 2, IWLR ), IWLR = 1, 7 ) / & 8.387662E-20, 2.873049E-20, 4.586660E-20, 3.580654E-20, & 6.431878E-21, 6.521411E-23, 1.701844E-21 / DATA ( ECS_REF( IO3O3P_06, 3, IWLR ), IWLR = 1, 7 ) / & 8.387662E-20, 2.873049E-20, 4.586660E-20, 3.580654E-20, & 6.431878E-21, 6.521411E-23, 1.701844E-21 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IO3O3P_06, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E-01, 1.042856E-01, 4.334796E-01, 7.683176E-01, & 8.964556E-01, 9.272730E-01, 1.000000E+00 / DATA ( EQY_REF( IO3O3P_06, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E-01, 1.042856E-01, 4.334796E-01, 7.683176E-01, & 8.964556E-01, 9.272730E-01, 1.000000E+00 / DATA ( EQY_REF( IO3O3P_06, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E-01, 1.042856E-01, 4.334796E-01, 7.683176E-01, & 8.964556E-01, 9.272730E-01, 1.000000E+00 / C...HONO-06 C.. HONO + HV = HO. + NO C.. NASA (2006) recommended absorption cross sections. No recommendation on quantum yields. C.. IUPAC (2005) recommendation (Data Sheet PNOx1, July, 2001) recommends unit quantum yield C.. for OH + NO. C.. (IUPAC recommended absorption cross sections are low resolution, so NASA values are C.. preferred) C.. C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IHONO_06 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IHONO_06, 1, IWLR ), IWLR = 1, 7 ) / & 5.474359E-21, 9.278287E-21, 1.890271E-20, 3.166180E-20, & 8.854483E-20, 7.417380E-20, 0.000000E+00 / DATA ( CS_REF( IHONO_06, 2, IWLR ), IWLR = 1, 7 ) / & 5.474359E-21, 9.278287E-21, 1.890271E-20, 3.166180E-20, & 8.854483E-20, 7.417380E-20, 0.000000E+00 / DATA ( CS_REF( IHONO_06, 3, IWLR ), IWLR = 1, 7 ) / & 5.474359E-21, 9.278287E-21, 1.890271E-20, 3.166180E-20, & 8.854483E-20, 7.417380E-20, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IHONO_06, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 7.070430E-01, 0.000000E+00 / DATA ( QY_REF( IHONO_06, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 7.070430E-01, 0.000000E+00 / DATA ( QY_REF( IHONO_06, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 7.070430E-01, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IHONO_06, 1, IWLR ), IWLR = 1, 7 ) / & 5.474359E-21, 9.278287E-21, 1.890271E-20, 3.166180E-20, & 8.854483E-20, 7.417380E-20, 0.000000E+00 / DATA ( ECS_REF( IHONO_06, 2, IWLR ), IWLR = 1, 7 ) / & 5.474359E-21, 9.278287E-21, 1.890271E-20, 3.166180E-20, & 8.854483E-20, 7.417380E-20, 0.000000E+00 / DATA ( ECS_REF( IHONO_06, 3, IWLR ), IWLR = 1, 7 ) / & 5.474359E-21, 9.278287E-21, 1.890271E-20, 3.166180E-20, & 8.854483E-20, 7.417380E-20, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IHONO_06, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999999E-01, 0.000000E+00 / DATA ( EQY_REF( IHONO_06, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999999E-01, 0.000000E+00 / DATA ( EQY_REF( IHONO_06, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999999E-01, 0.000000E+00 / C...HNO3 C.. HNO3 + HV = products C.. IUPAC (1997) Recommendation C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IHNO3 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IHNO3, 1, IWLR ), IWLR = 1, 7 ) / & 4.351450E-21, 1.958802E-21, 8.418979E-22, 3.681581E-22, & 5.035483E-23, 4.637400E-25, 0.000000E+00 / DATA ( CS_REF( IHNO3, 2, IWLR ), IWLR = 1, 7 ) / & 4.351450E-21, 1.958802E-21, 8.418979E-22, 3.681581E-22, & 5.035483E-23, 4.637400E-25, 0.000000E+00 / DATA ( CS_REF( IHNO3, 3, IWLR ), IWLR = 1, 7 ) / & 4.351450E-21, 1.958802E-21, 8.418979E-22, 3.681581E-22, & 5.035483E-23, 4.637400E-25, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IHNO3, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.351202E-01, 0.000000E+00 / DATA ( QY_REF( IHNO3, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.351202E-01, 0.000000E+00 / DATA ( QY_REF( IHNO3, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.351202E-01, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IHNO3, 1, IWLR ), IWLR = 1, 7 ) / & 4.351450E-21, 1.958802E-21, 8.418979E-22, 3.681581E-22, & 5.035483E-23, 4.637264E-25, 0.000000E+00 / DATA ( ECS_REF( IHNO3, 2, IWLR ), IWLR = 1, 7 ) / & 4.351450E-21, 1.958802E-21, 8.418979E-22, 3.681581E-22, & 5.035483E-23, 4.637264E-25, 0.000000E+00 / DATA ( ECS_REF( IHNO3, 3, IWLR ), IWLR = 1, 7 ) / & 4.351450E-21, 1.958802E-21, 8.418979E-22, 3.681581E-22, & 5.035483E-23, 4.637264E-25, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IHNO3, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999707E-01, 0.000000E+00 / DATA ( EQY_REF( IHNO3, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999707E-01, 0.000000E+00 / DATA ( EQY_REF( IHNO3, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999707E-01, 0.000000E+00 / C...HNO4-06 C.. HO2NO2 + HV = PRODUCTS C.. NASA (2006) C.. C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IHNO4_06 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IHNO4_06, 1, IWLR ), IWLR = 1, 7 ) / & 2.680126E-20, 1.175613E-20, 5.689837E-21, 3.128481E-21, & 8.548637E-22, 2.509431E-23, 0.000000E+00 / DATA ( CS_REF( IHNO4_06, 2, IWLR ), IWLR = 1, 7 ) / & 2.680126E-20, 1.175613E-20, 5.689837E-21, 3.128481E-21, & 8.548637E-22, 2.509431E-23, 0.000000E+00 / DATA ( CS_REF( IHNO4_06, 3, IWLR ), IWLR = 1, 7 ) / & 2.680126E-20, 1.175613E-20, 5.689837E-21, 3.128481E-21, & 8.548637E-22, 2.509431E-23, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IHNO4_06, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.964434E-01, 0.000000E+00 / DATA ( QY_REF( IHNO4_06, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.964434E-01, 0.000000E+00 / DATA ( QY_REF( IHNO4_06, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.964434E-01, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IHNO4_06, 1, IWLR ), IWLR = 1, 7 ) / & 2.680126E-20, 1.175613E-20, 5.689837E-21, 3.128481E-21, & 8.548637E-22, 2.509400E-23, 0.000000E+00 / DATA ( ECS_REF( IHNO4_06, 2, IWLR ), IWLR = 1, 7 ) / & 2.680126E-20, 1.175613E-20, 5.689837E-21, 3.128481E-21, & 8.548637E-22, 2.509400E-23, 0.000000E+00 / DATA ( ECS_REF( IHNO4_06, 3, IWLR ), IWLR = 1, 7 ) / & 2.680126E-20, 1.175613E-20, 5.689837E-21, 3.128481E-21, & 8.548637E-22, 2.509400E-23, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IHNO4_06, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999877E-01, 0.000000E+00 / DATA ( EQY_REF( IHNO4_06, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999877E-01, 0.000000E+00 / DATA ( EQY_REF( IHNO4_06, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999877E-01, 0.000000E+00 / C...H2O2 C.. H2O2 + HV = 2 OH C.. IUPAC (1997) Recommended. C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IH2O2 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IH2O2, 1, IWLR ), IWLR = 1, 7 ) / & 9.342335E-21, 5.777204E-21, 3.914159E-21, 2.732004E-21, & 1.162692E-21, 4.309158E-23, 0.000000E+00 / DATA ( CS_REF( IH2O2, 2, IWLR ), IWLR = 1, 7 ) / & 9.342335E-21, 5.777204E-21, 3.914159E-21, 2.732004E-21, & 1.162692E-21, 4.309158E-23, 0.000000E+00 / DATA ( CS_REF( IH2O2, 3, IWLR ), IWLR = 1, 7 ) / & 9.342335E-21, 5.777204E-21, 3.914159E-21, 2.732004E-21, & 1.162692E-21, 4.309158E-23, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IH2O2, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.351202E-01, 0.000000E+00 / DATA ( QY_REF( IH2O2, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.351202E-01, 0.000000E+00 / DATA ( QY_REF( IH2O2, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.351202E-01, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IH2O2, 1, IWLR ), IWLR = 1, 7 ) / & 9.342335E-21, 5.777204E-21, 3.914159E-21, 2.732004E-21, & 1.162692E-21, 4.309022E-23, 0.000000E+00 / DATA ( ECS_REF( IH2O2, 2, IWLR ), IWLR = 1, 7 ) / & 9.342335E-21, 5.777204E-21, 3.914159E-21, 2.732004E-21, & 1.162692E-21, 4.309022E-23, 0.000000E+00 / DATA ( ECS_REF( IH2O2, 3, IWLR ), IWLR = 1, 7 ) / & 9.342335E-21, 5.777204E-21, 3.914159E-21, 2.732004E-21, & 1.162692E-21, 4.309022E-23, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IH2O2, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999685E-01, 0.000000E+00 / DATA ( EQY_REF( IH2O2, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999685E-01, 0.000000E+00 / DATA ( EQY_REF( IH2O2, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999685E-01, 0.000000E+00 / C...NO2EX C.. NO2 + HV = NO2* C.. From NASA (2006), for 294 K. C.. Absorption cross sections are averages for wavelength intervals given. C.. Data alligned to smallest wavelength intervals for abs. coefs and qy's. C.. C... reference temperatures (K) DATA ( TEMP_REF( ITTR, INO2EX ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( INO2EX, 1, IWLR ), IWLR = 1, 7 ) / & 1.076237E-19, 1.482865E-19, 1.884280E-19, 2.269908E-19, & 3.422504E-19, 5.707211E-19, 1.710791E-19 / DATA ( CS_REF( INO2EX, 2, IWLR ), IWLR = 1, 7 ) / & 1.076237E-19, 1.482865E-19, 1.884280E-19, 2.269908E-19, & 3.422504E-19, 5.707211E-19, 1.710791E-19 / DATA ( CS_REF( INO2EX, 3, IWLR ), IWLR = 1, 7 ) / & 1.076237E-19, 1.482865E-19, 1.884280E-19, 2.269908E-19, & 3.422504E-19, 5.707211E-19, 1.710791E-19 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( INO2EX, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 1.645558E-01, 7.353834E-01 / DATA ( QY_REF( INO2EX, 2, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 1.645558E-01, 7.353834E-01 / DATA ( QY_REF( INO2EX, 3, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 1.645558E-01, 7.353834E-01 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( INO2EX, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 1.001570E-19, 1.701502E-19 / DATA ( ECS_REF( INO2EX, 2, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 1.001570E-19, 1.701502E-19 / DATA ( ECS_REF( INO2EX, 3, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 1.001570E-19, 1.701502E-19 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( INO2EX, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 1.754921E-01, 9.945703E-01 / DATA ( EQY_REF( INO2EX, 2, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 1.754921E-01, 9.945703E-01 / DATA ( EQY_REF( INO2EX, 3, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 1.754921E-01, 9.945703E-01 / C...PAN C.. PAN + HV = #.6 {MECO3 + NO2} + #.4 {MEO2 + CO2 + NO3} C.. IUPAC Data Sheet P21.updated: 12/19/05 C.. Reaction reflects recommended quantum yields at 308 nm C.. C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IPAN ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IPAN, 1, IWLR ), IWLR = 1, 7 ) / & 3.523355E-21, 1.420651E-21, 6.704418E-22, 3.663942E-22, & 9.453910E-23, 1.914260E-24, 0.000000E+00 / DATA ( CS_REF( IPAN, 2, IWLR ), IWLR = 1, 7 ) / & 3.523355E-21, 1.420651E-21, 6.704418E-22, 3.663942E-22, & 9.453910E-23, 1.914260E-24, 0.000000E+00 / DATA ( CS_REF( IPAN, 3, IWLR ), IWLR = 1, 7 ) / & 3.523355E-21, 1.420651E-21, 6.704418E-22, 3.663942E-22, & 9.453910E-23, 1.914260E-24, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IPAN, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.198098E-01, 0.000000E+00 / DATA ( QY_REF( IPAN, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.198098E-01, 0.000000E+00 / DATA ( QY_REF( IPAN, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.198098E-01, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IPAN, 1, IWLR ), IWLR = 1, 7 ) / & 3.523355E-21, 1.420651E-21, 6.704418E-22, 3.663942E-22, & 9.453910E-23, 1.914185E-24, 0.000000E+00 / DATA ( ECS_REF( IPAN, 2, IWLR ), IWLR = 1, 7 ) / & 3.523355E-21, 1.420651E-21, 6.704418E-22, 3.663942E-22, & 9.453910E-23, 1.914185E-24, 0.000000E+00 / DATA ( ECS_REF( IPAN, 3, IWLR ), IWLR = 1, 7 ) / & 3.523355E-21, 1.420651E-21, 6.704418E-22, 3.663942E-22, & 9.453910E-23, 1.914185E-24, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IPAN, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999610E-01, 0.000000E+00 / DATA ( EQY_REF( IPAN, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999610E-01, 0.000000E+00 / DATA ( EQY_REF( IPAN, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999610E-01, 0.000000E+00 / C...HCHOR-06 C.. HCHO + HV = HCO. + H. C.. IUPAC Subcommittee on Gas Kinetic Data Evaluation Data Sheet P1 C.. This datasheet updated: 16th May 2002. C.. Website: http://www.iupac-kinetic.ch.cam.ac.uk/. C.. IUPAC recommendations used for both absorption cross sections and quantum yield C.. C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IHCHOR_06 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IHCHOR_06, 1, IWLR ), IWLR = 1, 7 ) / & 3.165459E-20, 3.244126E-20, 1.504850E-20, 3.317451E-20, & 1.553457E-20, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( IHCHOR_06, 2, IWLR ), IWLR = 1, 7 ) / & 3.165459E-20, 3.244126E-20, 1.504850E-20, 3.317451E-20, & 1.553457E-20, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( IHCHOR_06, 3, IWLR ), IWLR = 1, 7 ) / & 3.165459E-20, 3.244126E-20, 1.504850E-20, 3.317451E-20, & 1.553457E-20, 0.000000E+00, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IHCHOR_06, 1, IWLR ), IWLR = 1, 7 ) / & 6.849613E-01, 7.181136E-01, 7.157158E-01, 6.843758E-01, & 2.950587E-01, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( IHCHOR_06, 2, IWLR ), IWLR = 1, 7 ) / & 6.849613E-01, 7.181136E-01, 7.157158E-01, 6.843758E-01, & 2.950587E-01, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( IHCHOR_06, 3, IWLR ), IWLR = 1, 7 ) / & 6.849613E-01, 7.181136E-01, 7.157158E-01, 6.843758E-01, & 2.950587E-01, 0.000000E+00, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IHCHOR_06, 1, IWLR ), IWLR = 1, 7 ) / & 2.161663E-20, 2.354888E-20, 1.083089E-20, 2.277132E-20, & 5.819424E-21, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( IHCHOR_06, 2, IWLR ), IWLR = 1, 7 ) / & 2.161663E-20, 2.354888E-20, 1.083089E-20, 2.277132E-20, & 5.819424E-21, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( IHCHOR_06, 3, IWLR ), IWLR = 1, 7 ) / & 2.161663E-20, 2.354888E-20, 1.083089E-20, 2.277132E-20, & 5.819424E-21, 0.000000E+00, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IHCHOR_06, 1, IWLR ), IWLR = 1, 7 ) / & 6.828910E-01, 7.258928E-01, 7.197325E-01, 6.864101E-01, & 3.746113E-01, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( IHCHOR_06, 2, IWLR ), IWLR = 1, 7 ) / & 6.828910E-01, 7.258928E-01, 7.197325E-01, 6.864101E-01, & 3.746113E-01, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( IHCHOR_06, 3, IWLR ), IWLR = 1, 7 ) / & 6.828910E-01, 7.258928E-01, 7.197325E-01, 6.864101E-01, & 3.746113E-01, 0.000000E+00, 0.000000E+00 / C...HCHOM-06 C.. HCHO + HV = H2 + CO C.. IUPAC Subcommittee on Gas Kinetic Data Evaluation Data Sheet P1 C.. This datasheet updated: 16th May 2002. C.. Website: http://www.iupac-kinetic.ch.cam.ac.uk/. C.. IUPAC recommendations used for both absorption cross sections and quantum yield C.. Quantum yields for wl < 0.360 interpolated. C.. C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IHCHOM_06 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IHCHOM_06, 1, IWLR ), IWLR = 1, 7 ) / & 3.165459E-20, 3.244126E-20, 1.504850E-20, 3.317451E-20, & 1.826654E-20, 8.630682E-22, 0.000000E+00 / DATA ( CS_REF( IHCHOM_06, 2, IWLR ), IWLR = 1, 7 ) / & 3.165459E-20, 3.244126E-20, 1.504850E-20, 3.317451E-20, & 1.826654E-20, 8.630682E-22, 0.000000E+00 / DATA ( CS_REF( IHCHOM_06, 3, IWLR ), IWLR = 1, 7 ) / & 3.165459E-20, 3.244126E-20, 1.504850E-20, 3.317451E-20, & 1.826654E-20, 8.630682E-22, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IHCHOM_06, 1, IWLR ), IWLR = 1, 7 ) / & 2.957663E-01, 2.805459E-01, 2.844469E-01, 3.161261E-01, & 4.858848E-01, 3.593407E-02, 0.000000E+00 / DATA ( QY_REF( IHCHOM_06, 2, IWLR ), IWLR = 1, 7 ) / & 2.957663E-01, 2.805459E-01, 2.844469E-01, 3.161261E-01, & 4.858848E-01, 3.593407E-02, 0.000000E+00 / DATA ( QY_REF( IHCHOM_06, 3, IWLR ), IWLR = 1, 7 ) / & 2.957663E-01, 2.805459E-01, 2.844469E-01, 3.161261E-01, & 4.858848E-01, 3.593407E-02, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IHCHOM_06, 1, IWLR ), IWLR = 1, 7 ) / & 9.454901E-21, 8.857910E-21, 4.220348E-21, 1.041737E-20, & 9.005958E-21, 1.384442E-22, 0.000000E+00 / DATA ( ECS_REF( IHCHOM_06, 2, IWLR ), IWLR = 1, 7 ) / & 9.454901E-21, 8.857910E-21, 4.220348E-21, 1.041737E-20, & 9.005958E-21, 1.384442E-22, 0.000000E+00 / DATA ( ECS_REF( IHCHOM_06, 3, IWLR ), IWLR = 1, 7 ) / & 9.454901E-21, 8.857910E-21, 4.220348E-21, 1.041737E-20, & 9.005958E-21, 1.384442E-22, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IHCHOM_06, 1, IWLR ), IWLR = 1, 7 ) / & 2.986898E-01, 2.730446E-01, 2.804497E-01, 3.140172E-01, & 4.930303E-01, 1.604093E-01, 0.000000E+00 / DATA ( EQY_REF( IHCHOM_06, 2, IWLR ), IWLR = 1, 7 ) / & 2.986898E-01, 2.730446E-01, 2.804497E-01, 3.140172E-01, & 4.930303E-01, 1.604093E-01, 0.000000E+00 / DATA ( EQY_REF( IHCHOM_06, 3, IWLR ), IWLR = 1, 7 ) / & 2.986898E-01, 2.730446E-01, 2.804497E-01, 3.140172E-01, & 4.930303E-01, 1.604093E-01, 0.000000E+00 / C...CCHO_R C.. CCHO + HV = CH3 + CHO C.. IUPAC (1997) C... reference temperatures (K) DATA ( TEMP_REF( ITTR, ICCHO_R ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( ICCHO_R, 1, IWLR ), IWLR = 1, 7 ) / & 4.431909E-20, 3.721389E-20, 2.926475E-20, 2.113278E-20, & 4.007796E-21, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( ICCHO_R, 2, IWLR ), IWLR = 1, 7 ) / & 4.431909E-20, 3.721389E-20, 2.926475E-20, 2.113278E-20, & 4.007796E-21, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( ICCHO_R, 3, IWLR ), IWLR = 1, 7 ) / & 4.431909E-20, 3.721389E-20, 2.926475E-20, 2.113278E-20, & 4.007796E-21, 0.000000E+00, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( ICCHO_R, 1, IWLR ), IWLR = 1, 7 ) / & 4.837319E-01, 3.903790E-01, 2.837039E-01, 1.548971E-01, & 1.542570E-02, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( ICCHO_R, 2, IWLR ), IWLR = 1, 7 ) / & 4.837319E-01, 3.903790E-01, 2.837039E-01, 1.548971E-01, & 1.542570E-02, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( ICCHO_R, 3, IWLR ), IWLR = 1, 7 ) / & 4.837319E-01, 3.903790E-01, 2.837039E-01, 1.548971E-01, & 1.542570E-02, 0.000000E+00, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( ICCHO_R, 1, IWLR ), IWLR = 1, 7 ) / & 2.146492E-20, 1.463071E-20, 8.383887E-21, 3.363618E-21, & 1.911978E-22, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( ICCHO_R, 2, IWLR ), IWLR = 1, 7 ) / & 2.146492E-20, 1.463071E-20, 8.383887E-21, 3.363618E-21, & 1.911978E-22, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( ICCHO_R, 3, IWLR ), IWLR = 1, 7 ) / & 2.146492E-20, 1.463071E-20, 8.383887E-21, 3.363618E-21, & 1.911978E-22, 0.000000E+00, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( ICCHO_R, 1, IWLR ), IWLR = 1, 7 ) / & 4.843267E-01, 3.931520E-01, 2.864842E-01, 1.591659E-01, & 4.770647E-02, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( ICCHO_R, 2, IWLR ), IWLR = 1, 7 ) / & 4.843267E-01, 3.931520E-01, 2.864842E-01, 1.591659E-01, & 4.770647E-02, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( ICCHO_R, 3, IWLR ), IWLR = 1, 7 ) / & 4.843267E-01, 3.931520E-01, 2.864842E-01, 1.591659E-01, & 4.770647E-02, 0.000000E+00, 0.000000E+00 / C...C2CHO C.. C2CHO + HV = C2H5. + CHO. C.. IUPAC (1997) C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IC2CHO ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IC2CHO, 1, IWLR ), IWLR = 1, 7 ) / & 3.167935E-20, 4.637920E-20, 3.576927E-20, 2.454658E-20, & 6.109313E-21, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( IC2CHO, 2, IWLR ), IWLR = 1, 7 ) / & 3.167935E-20, 4.637920E-20, 3.576927E-20, 2.454658E-20, & 6.109313E-21, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( IC2CHO, 3, IWLR ), IWLR = 1, 7 ) / & 3.167935E-20, 4.637920E-20, 3.576927E-20, 2.454658E-20, & 6.109313E-21, 0.000000E+00, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IC2CHO, 1, IWLR ), IWLR = 1, 7 ) / & 5.201593E-01, 7.958030E-01, 5.938827E-01, 4.325821E-01, & 1.575024E-01, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( IC2CHO, 2, IWLR ), IWLR = 1, 7 ) / & 5.201593E-01, 7.958030E-01, 5.938827E-01, 4.325821E-01, & 1.575024E-01, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( IC2CHO, 3, IWLR ), IWLR = 1, 7 ) / & 5.201593E-01, 7.958030E-01, 5.938827E-01, 4.325821E-01, & 1.575024E-01, 0.000000E+00, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IC2CHO, 1, IWLR ), IWLR = 1, 7 ) / & 2.779956E-20, 3.718655E-20, 2.127446E-20, 1.085955E-20, & 1.479962E-21, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( IC2CHO, 2, IWLR ), IWLR = 1, 7 ) / & 2.779956E-20, 3.718655E-20, 2.127446E-20, 1.085955E-20, & 1.479962E-21, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( IC2CHO, 3, IWLR ), IWLR = 1, 7 ) / & 2.779956E-20, 3.718655E-20, 2.127446E-20, 1.085955E-20, & 1.479962E-21, 0.000000E+00, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IC2CHO, 1, IWLR ), IWLR = 1, 7 ) / & 8.775294E-01, 8.017938E-01, 5.947691E-01, 4.424057E-01, & 2.422470E-01, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( IC2CHO, 2, IWLR ), IWLR = 1, 7 ) / & 8.775294E-01, 8.017938E-01, 5.947691E-01, 4.424057E-01, & 2.422470E-01, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( IC2CHO, 3, IWLR ), IWLR = 1, 7 ) / & 8.775294E-01, 8.017938E-01, 5.947691E-01, 4.424057E-01, & 2.422470E-01, 0.000000E+00, 0.000000E+00 / C...ACET-06 C.. CH3-CO-CH3 + HV = Radical products C.. IUPAC Subcommittee on Gas Kinetic Data Evaluation Data Sheet P7 C.. This datasheet updated: 19th December 2005. C.. Website: http://www.iupac-kinetic.ch.cam.ac.uk/. C.. IUPAC recommendations used for both absorption cross sections and quantum yield C.. Cross sections and quantum yields are for 298K only. C.. Uncertain whether the cross sections are calculated correctly from the complex C.. C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IACET_06 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IACET_06, 1, IWLR ), IWLR = 1, 7 ) / & 3.460821E-20, 2.278628E-20, 1.362906E-20, 7.428147E-21, & 9.464437E-22, 9.957367E-25, 0.000000E+00 / DATA ( CS_REF( IACET_06, 2, IWLR ), IWLR = 1, 7 ) / & 3.460821E-20, 2.278628E-20, 1.362906E-20, 7.428147E-21, & 9.464437E-22, 9.957367E-25, 0.000000E+00 / DATA ( CS_REF( IACET_06, 3, IWLR ), IWLR = 1, 7 ) / & 3.460821E-20, 2.278628E-20, 1.362906E-20, 7.428147E-21, & 9.464437E-22, 9.957367E-25, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IACET_06, 1, IWLR ), IWLR = 1, 7 ) / & 3.454557E-01, 2.098742E-01, 8.525195E-02, 3.909341E-02, & 9.695551E-03, 1.622317E-04, 0.000000E+00 / DATA ( QY_REF( IACET_06, 2, IWLR ), IWLR = 1, 7 ) / & 3.454557E-01, 2.098742E-01, 8.525195E-02, 3.909341E-02, & 9.695551E-03, 1.622317E-04, 0.000000E+00 / DATA ( QY_REF( IACET_06, 3, IWLR ), IWLR = 1, 7 ) / & 3.454557E-01, 2.098742E-01, 8.525195E-02, 3.909341E-02, & 9.695551E-03, 1.622317E-04, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IACET_06, 1, IWLR ), IWLR = 1, 7 ) / & 1.205182E-20, 4.966170E-21, 1.192478E-21, 3.105726E-22, & 1.545213E-23, 2.812016E-27, 0.000000E+00 / DATA ( ECS_REF( IACET_06, 2, IWLR ), IWLR = 1, 7 ) / & 1.205182E-20, 4.966170E-21, 1.192478E-21, 3.105726E-22, & 1.545213E-23, 2.812016E-27, 0.000000E+00 / DATA ( ECS_REF( IACET_06, 3, IWLR ), IWLR = 1, 7 ) / & 1.205182E-20, 4.966170E-21, 1.192478E-21, 3.105726E-22, & 1.545213E-23, 2.812016E-27, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IACET_06, 1, IWLR ), IWLR = 1, 7 ) / & 3.482358E-01, 2.179456E-01, 8.749527E-02, 4.181024E-02, & 1.632652E-02, 2.824056E-03, 0.000000E+00 / DATA ( EQY_REF( IACET_06, 2, IWLR ), IWLR = 1, 7 ) / & 3.482358E-01, 2.179456E-01, 8.749527E-02, 4.181024E-02, & 1.632652E-02, 2.824056E-03, 0.000000E+00 / DATA ( EQY_REF( IACET_06, 3, IWLR ), IWLR = 1, 7 ) / & 3.482358E-01, 2.179456E-01, 8.749527E-02, 4.181024E-02, & 1.632652E-02, 2.824056E-03, 0.000000E+00 / C...MEK-06 C.. MEK absorption cross sections C.. IUPAC Subcommittee on Gas Kinetic Data Evaluation Data Sheet P8 C.. This datasheet updated: 5th December 2005. C.. Website: http://www.iupac-kinetic.ch.cam.ac.uk/. C.. Note that recommended quantum yield is 0.34 and SAPRC07T sets C.. value to 0.175 in mechanism definition file C.. C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IMEK_06 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IMEK_06, 1, IWLR ), IWLR = 1, 7 ) / & 4.163253E-20, 2.690433E-20, 1.567194E-20, 7.784590E-21, & 8.652938E-22, 1.986233E-25, 0.000000E+00 / DATA ( CS_REF( IMEK_06, 2, IWLR ), IWLR = 1, 7 ) / & 4.163253E-20, 2.690433E-20, 1.567194E-20, 7.784590E-21, & 8.652938E-22, 1.986233E-25, 0.000000E+00 / DATA ( CS_REF( IMEK_06, 3, IWLR ), IWLR = 1, 7 ) / & 4.163253E-20, 2.690433E-20, 1.567194E-20, 7.784590E-21, & 8.652938E-22, 1.986233E-25, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IMEK_06, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 2.689541E-02, 0.000000E+00 / DATA ( QY_REF( IMEK_06, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 2.689541E-02, 0.000000E+00 / DATA ( QY_REF( IMEK_06, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 2.689541E-02, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IMEK_06, 1, IWLR ), IWLR = 1, 7 ) / & 4.163253E-20, 2.690433E-20, 1.567194E-20, 7.784590E-21, & 8.652938E-22, 1.984605E-25, 0.000000E+00 / DATA ( ECS_REF( IMEK_06, 2, IWLR ), IWLR = 1, 7 ) / & 4.163253E-20, 2.690433E-20, 1.567194E-20, 7.784590E-21, & 8.652938E-22, 1.984605E-25, 0.000000E+00 / DATA ( ECS_REF( IMEK_06, 3, IWLR ), IWLR = 1, 7 ) / & 4.163253E-20, 2.690433E-20, 1.567194E-20, 7.784590E-21, & 8.652938E-22, 1.984605E-25, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IMEK_06, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.991803E-01, 0.000000E+00 / DATA ( EQY_REF( IMEK_06, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.991803E-01, 0.000000E+00 / DATA ( EQY_REF( IMEK_06, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.991803E-01, 0.000000E+00 / C...COOH C.. CH3OOH + HV = PRODUCTS C.. IUPAC (1997). Also recommend unit quantum yields. C.. wl abs qy C... reference temperatures (K) DATA ( TEMP_REF( ITTR, ICOOH ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( ICOOH, 1, IWLR ), IWLR = 1, 7 ) / & 5.617454E-21, 3.528208E-21, 2.405066E-21, 1.705886E-21, & 7.383624E-22, 6.232370E-23, 0.000000E+00 / DATA ( CS_REF( ICOOH, 2, IWLR ), IWLR = 1, 7 ) / & 5.617454E-21, 3.528208E-21, 2.405066E-21, 1.705886E-21, & 7.383624E-22, 6.232370E-23, 0.000000E+00 / DATA ( CS_REF( ICOOH, 3, IWLR ), IWLR = 1, 7 ) / & 5.617454E-21, 3.528208E-21, 2.405066E-21, 1.705886E-21, & 7.383624E-22, 6.232370E-23, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( ICOOH, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 3.407560E-01, 0.000000E+00 / DATA ( QY_REF( ICOOH, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 3.407560E-01, 0.000000E+00 / DATA ( QY_REF( ICOOH, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 3.407560E-01, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( ICOOH, 1, IWLR ), IWLR = 1, 7 ) / & 5.617454E-21, 3.528208E-21, 2.405066E-21, 1.705886E-21, & 7.383624E-22, 6.232326E-23, 0.000000E+00 / DATA ( ECS_REF( ICOOH, 2, IWLR ), IWLR = 1, 7 ) / & 5.617454E-21, 3.528208E-21, 2.405066E-21, 1.705886E-21, & 7.383624E-22, 6.232326E-23, 0.000000E+00 / DATA ( ECS_REF( ICOOH, 3, IWLR ), IWLR = 1, 7 ) / & 5.617454E-21, 3.528208E-21, 2.405066E-21, 1.705886E-21, & 7.383624E-22, 6.232326E-23, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( ICOOH, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999929E-01, 0.000000E+00 / DATA ( EQY_REF( ICOOH, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999929E-01, 0.000000E+00 / DATA ( EQY_REF( ICOOH, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999929E-01, 0.000000E+00 / C...GLY-07R C.. HCOCHO + HV = HCO. + HCO. C.. Absorption cross sections from Volkamer, R., P. Spietz, J. Burrows, and C.. U. Platt (2005): "High-resolution absorption cross sections of glyoxal C.. in the UV-vis and IR spectral ranges," J. Photochem. Photobiol. A, 172 C.. 35-46. Quantum yields at wavelengths below 350 nm based on the data of C.. Zhu et al (1996) which are consistent with the data of Langford and C.. Moore (1984). Quantum yields at higher wavelengths assumed to decline C.. expodentially with wavelength at a rate that gives a photolysis rate C.. relative to NO2 consistent with the data of Klotz et al (2000). C.. C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IGLY_07R ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IGLY_07R, 1, IWLR ), IWLR = 1, 7 ) / & 3.793907E-20, 3.576577E-20, 3.196227E-20, 2.588874E-20, & 1.131968E-20, 2.589663E-20, 1.938750E-20 / DATA ( CS_REF( IGLY_07R, 2, IWLR ), IWLR = 1, 7 ) / & 3.793907E-20, 3.576577E-20, 3.196227E-20, 2.588874E-20, & 1.131968E-20, 2.589663E-20, 1.938750E-20 / DATA ( CS_REF( IGLY_07R, 3, IWLR ), IWLR = 1, 7 ) / & 3.793907E-20, 3.576577E-20, 3.196227E-20, 2.588874E-20, & 1.131968E-20, 2.589663E-20, 1.938750E-20 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IGLY_07R, 1, IWLR ), IWLR = 1, 7 ) / & 3.321870E-01, 3.435464E-01, 3.693566E-01, 4.280283E-01, & 5.810962E-01, 2.622190E-01, 2.601158E-03 / DATA ( QY_REF( IGLY_07R, 2, IWLR ), IWLR = 1, 7 ) / & 3.321870E-01, 3.435464E-01, 3.693566E-01, 4.280283E-01, & 5.810962E-01, 2.622190E-01, 2.601158E-03 / DATA ( QY_REF( IGLY_07R, 3, IWLR ), IWLR = 1, 7 ) / & 3.321870E-01, 3.435464E-01, 3.693566E-01, 4.280283E-01, & 5.810962E-01, 2.622190E-01, 2.601158E-03 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IGLY_07R, 1, IWLR ), IWLR = 1, 7 ) / & 1.260643E-20, 1.227545E-20, 1.181427E-20, 1.097191E-20, & 6.261264E-21, 3.119572E-21, 2.621976E-22 / DATA ( ECS_REF( IGLY_07R, 2, IWLR ), IWLR = 1, 7 ) / & 1.260643E-20, 1.227545E-20, 1.181427E-20, 1.097191E-20, & 6.261264E-21, 3.119572E-21, 2.621976E-22 / DATA ( ECS_REF( IGLY_07R, 3, IWLR ), IWLR = 1, 7 ) / & 1.260643E-20, 1.227545E-20, 1.181427E-20, 1.097191E-20, & 6.261264E-21, 3.119572E-21, 2.621976E-22 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IGLY_07R, 1, IWLR ), IWLR = 1, 7 ) / & 3.322810E-01, 3.432177E-01, 3.696319E-01, 4.238100E-01, & 5.531310E-01, 1.204625E-01, 1.352405E-02 / DATA ( EQY_REF( IGLY_07R, 2, IWLR ), IWLR = 1, 7 ) / & 3.322810E-01, 3.432177E-01, 3.696319E-01, 4.238100E-01, & 5.531310E-01, 1.204625E-01, 1.352405E-02 / DATA ( EQY_REF( IGLY_07R, 3, IWLR ), IWLR = 1, 7 ) / & 3.322810E-01, 3.432177E-01, 3.696319E-01, 4.238100E-01, & 5.531310E-01, 1.204625E-01, 1.352405E-02 / C...GLY-07M C.. HCOCHO + HV = HCHO + H2 C.. Absorption cross sections from Volkamer, R., P. Spietz, J. Burrows, C.. and U. Platt (2005): "High-resolution absorption cross sections of C.. glyoxal in the UV-vis and IR spectral ranges," J. Photochem. Photobiol. C.. A, 172 35-46. Quantum yields at wavelengths below 350 nm derived from C.. those used for the radical forming process assuming total quantum C.. yields of 1. Quantum yields at higher wavelengths assumed to decline C.. expodentially at a rate that gives a 13% formaldehyde yield telative to C.. photodecomposition under the conditions of Plum et al (1983). C.. C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IGLY_07M ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IGLY_07M, 1, IWLR ), IWLR = 1, 7 ) / & 3.793907E-20, 3.576577E-20, 3.196227E-20, 2.588874E-20, & 1.131968E-20, 2.589663E-20, 7.146744E-21 / DATA ( CS_REF( IGLY_07M, 2, IWLR ), IWLR = 1, 7 ) / & 3.793907E-20, 3.576577E-20, 3.196227E-20, 2.588874E-20, & 1.131968E-20, 2.589663E-20, 7.146744E-21 / DATA ( CS_REF( IGLY_07M, 3, IWLR ), IWLR = 1, 7 ) / & 3.793907E-20, 3.576577E-20, 3.196227E-20, 2.588874E-20, & 1.131968E-20, 2.589663E-20, 7.146744E-21 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IGLY_07M, 1, IWLR ), IWLR = 1, 7 ) / & 6.678130E-01, 6.564536E-01, 6.306653E-01, 5.720885E-01, & 4.189721E-01, 6.740002E-02, 1.018117E-04 / DATA ( QY_REF( IGLY_07M, 2, IWLR ), IWLR = 1, 7 ) / & 6.678130E-01, 6.564536E-01, 6.306653E-01, 5.720885E-01, & 4.189721E-01, 6.740002E-02, 1.018117E-04 / DATA ( QY_REF( IGLY_07M, 3, IWLR ), IWLR = 1, 7 ) / & 6.678130E-01, 6.564536E-01, 6.306653E-01, 5.720885E-01, & 4.189721E-01, 6.740002E-02, 1.018117E-04 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IGLY_07M, 1, IWLR ), IWLR = 1, 7 ) / & 2.533264E-20, 2.349032E-20, 2.014873E-20, 1.492075E-20, & 5.059183E-21, 5.596750E-22, 9.269946E-24 / DATA ( ECS_REF( IGLY_07M, 2, IWLR ), IWLR = 1, 7 ) / & 2.533264E-20, 2.349032E-20, 2.014873E-20, 1.492075E-20, & 5.059183E-21, 5.596750E-22, 9.269946E-24 / DATA ( ECS_REF( IGLY_07M, 3, IWLR ), IWLR = 1, 7 ) / & 2.533264E-20, 2.349032E-20, 2.014873E-20, 1.492075E-20, & 5.059183E-21, 5.596750E-22, 9.269946E-24 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IGLY_07M, 1, IWLR ), IWLR = 1, 7 ) / & 6.677190E-01, 6.567823E-01, 6.303911E-01, 5.763413E-01, & 4.469371E-01, 2.161189E-02, 1.297087E-03 / DATA ( EQY_REF( IGLY_07M, 2, IWLR ), IWLR = 1, 7 ) / & 6.677190E-01, 6.567823E-01, 6.303911E-01, 5.763413E-01, & 4.469371E-01, 2.161189E-02, 1.297087E-03 / DATA ( EQY_REF( IGLY_07M, 3, IWLR ), IWLR = 1, 7 ) / & 6.677190E-01, 6.567823E-01, 6.303911E-01, 5.763413E-01, & 4.469371E-01, 2.161189E-02, 1.297087E-03 / C...MGLY-06 C.. CH3COCHO + HV = CH3CO. + HCO. C.. IUPAC Subcommittee on Gas Kinetic Data Evaluation Data Sheet P6 C.. This datasheet updated: 16th January 2003. C.. Website: http://www.iupac-kinetic.ch.cam.ac.uk/. C.. Quantum yield calculated from the expression given for 472 torr N2. C.. This "pressure" adjustment was made so the calculated photlysis rates C.. for solar conditions would agree with the data of Klotz et al (2000) C.. for the Euphore outdoor chamber. C.. C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IMGLY_06 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IMGLY_06, 1, IWLR ), IWLR = 1, 7 ) / & 4.377988E-20, 3.467536E-20, 2.425079E-20, 1.793719E-20, & 6.357002E-21, 3.467224E-20, 1.502724E-20 / DATA ( CS_REF( IMGLY_06, 2, IWLR ), IWLR = 1, 7 ) / & 4.377988E-20, 3.467536E-20, 2.425079E-20, 1.793719E-20, & 6.357002E-21, 3.467224E-20, 1.502724E-20 / DATA ( CS_REF( IMGLY_06, 3, IWLR ), IWLR = 1, 7 ) / & 4.377988E-20, 3.467536E-20, 2.425079E-20, 1.793719E-20, & 6.357002E-21, 3.467224E-20, 1.502724E-20 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IMGLY_06, 1, IWLR ), IWLR = 1, 7 ) / & 9.564515E-01, 9.284549E-01, 8.960506E-01, 8.568918E-01, & 7.103677E-01, 2.552682E-01, 7.488430E-03 / DATA ( QY_REF( IMGLY_06, 2, IWLR ), IWLR = 1, 7 ) / & 9.564515E-01, 9.284549E-01, 8.960506E-01, 8.568918E-01, & 7.103677E-01, 2.552682E-01, 7.488430E-03 / DATA ( QY_REF( IMGLY_06, 3, IWLR ), IWLR = 1, 7 ) / & 9.564515E-01, 9.284549E-01, 8.960506E-01, 8.568918E-01, & 7.103677E-01, 2.552682E-01, 7.488430E-03 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IMGLY_06, 1, IWLR ), IWLR = 1, 7 ) / & 4.188608E-20, 3.222329E-20, 2.174746E-20, 1.539860E-20, & 4.724494E-21, 5.167266E-21, 6.224983E-22 / DATA ( ECS_REF( IMGLY_06, 2, IWLR ), IWLR = 1, 7 ) / & 4.188608E-20, 3.222329E-20, 2.174746E-20, 1.539860E-20, & 4.724494E-21, 5.167266E-21, 6.224983E-22 / DATA ( ECS_REF( IMGLY_06, 3, IWLR ), IWLR = 1, 7 ) / & 4.188608E-20, 3.222329E-20, 2.174746E-20, 1.539860E-20, & 4.724494E-21, 5.167266E-21, 6.224983E-22 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IMGLY_06, 1, IWLR ), IWLR = 1, 7 ) / & 9.567426E-01, 9.292849E-01, 8.967732E-01, 8.584732E-01, & 7.431952E-01, 1.490318E-01, 4.142465E-02 / DATA ( EQY_REF( IMGLY_06, 2, IWLR ), IWLR = 1, 7 ) / & 9.567426E-01, 9.292849E-01, 8.967732E-01, 8.584732E-01, & 7.431952E-01, 1.490318E-01, 4.142465E-02 / DATA ( EQY_REF( IMGLY_06, 3, IWLR ), IWLR = 1, 7 ) / & 9.567426E-01, 9.292849E-01, 8.967732E-01, 8.584732E-01, & 7.431952E-01, 1.490318E-01, 4.142465E-02 / C...BACL-07 C.. CH3COCOCH3 + HV = 2 CH3CO. C.. Absorption cross sections from Plum et al (1983) as used in SAPRC-99 C.. mechanism. Quantum yields calculated using the IUPAC (2005)-recommended C.. expression for the pressure and wavelength-dependence quantum yields for C.. methyl glyoxal, but with the effective presssure adjusted so the C.. photolysis rate, relative to that for NO2, under ambient conditions is C.. consistent with that measured by Klotz et al (2000) in the Euphore outdoor C.. chamber. C.. C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IBACL_07 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IBACL_07, 1, IWLR ), IWLR = 1, 7 ) / & 2.654940E-20, 1.614309E-20, 9.222299E-21, 6.084959E-21, & 4.646638E-21, 3.039083E-20, 8.999122E-21 / DATA ( CS_REF( IBACL_07, 2, IWLR ), IWLR = 1, 7 ) / & 2.654940E-20, 1.614309E-20, 9.222299E-21, 6.084959E-21, & 4.646638E-21, 3.039083E-20, 8.999122E-21 / DATA ( CS_REF( IBACL_07, 3, IWLR ), IWLR = 1, 7 ) / & 2.654940E-20, 1.614309E-20, 9.222299E-21, 6.084959E-21, & 4.646638E-21, 3.039083E-20, 8.999122E-21 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IBACL_07, 1, IWLR ), IWLR = 1, 7 ) / & 9.894255E-01, 9.817211E-01, 9.728009E-01, 9.610599E-01, & 9.081057E-01, 5.113288E-01, 1.829104E-02 / DATA ( QY_REF( IBACL_07, 2, IWLR ), IWLR = 1, 7 ) / & 9.894255E-01, 9.817211E-01, 9.728009E-01, 9.610599E-01, & 9.081057E-01, 5.113288E-01, 1.829104E-02 / DATA ( QY_REF( IBACL_07, 3, IWLR ), IWLR = 1, 7 ) / & 9.894255E-01, 9.817211E-01, 9.728009E-01, 9.610599E-01, & 9.081057E-01, 5.113288E-01, 1.829104E-02 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IBACL_07, 1, IWLR ), IWLR = 1, 7 ) / & 2.627346E-20, 1.585460E-20, 8.974108E-21, 5.850922E-21, & 4.205010E-21, 1.163110E-20, 9.600788E-22 / DATA ( ECS_REF( IBACL_07, 2, IWLR ), IWLR = 1, 7 ) / & 2.627346E-20, 1.585460E-20, 8.974108E-21, 5.850922E-21, & 4.205010E-21, 1.163110E-20, 9.600788E-22 / DATA ( ECS_REF( IBACL_07, 3, IWLR ), IWLR = 1, 7 ) / & 2.627346E-20, 1.585460E-20, 8.974108E-21, 5.850922E-21, & 4.205010E-21, 1.163110E-20, 9.600788E-22 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IBACL_07, 1, IWLR ), IWLR = 1, 7 ) / & 9.896064E-01, 9.821288E-01, 9.730880E-01, 9.615384E-01, & 9.049575E-01, 3.827173E-01, 1.066858E-01 / DATA ( EQY_REF( IBACL_07, 2, IWLR ), IWLR = 1, 7 ) / & 9.896064E-01, 9.821288E-01, 9.730880E-01, 9.615384E-01, & 9.049575E-01, 3.827173E-01, 1.066858E-01 / DATA ( EQY_REF( IBACL_07, 3, IWLR ), IWLR = 1, 7 ) / & 9.896064E-01, 9.821288E-01, 9.730880E-01, 9.615384E-01, & 9.049575E-01, 3.827173E-01, 1.066858E-01 / C...BALD-06 C.. Benzaldehyde absorption cross sections recommended by Calvert et al (2002) C.. From Lang (1961-1971) in hexane solution C.. C.. Note that recommended quantum ranges from 0,14 to 0,4 and SAPRC07T sets C.. value to 0.060 in mechanism definition file C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IBALD_06 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IBALD_06, 1, IWLR ), IWLR = 1, 7 ) / & 4.446840E-19, 7.294727E-20, 7.083062E-20, 8.588684E-20, & 9.205959E-20, 1.899708E-20, 0.000000E+00 / DATA ( CS_REF( IBALD_06, 2, IWLR ), IWLR = 1, 7 ) / & 4.446840E-19, 7.294727E-20, 7.083062E-20, 8.588684E-20, & 9.205959E-20, 1.899708E-20, 0.000000E+00 / DATA ( CS_REF( IBALD_06, 3, IWLR ), IWLR = 1, 7 ) / & 4.446840E-19, 7.294727E-20, 7.083062E-20, 8.588684E-20, & 9.205959E-20, 1.899708E-20, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IBALD_06, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 4.698323E-01, 0.000000E+00 / DATA ( QY_REF( IBALD_06, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 4.698323E-01, 0.000000E+00 / DATA ( QY_REF( IBALD_06, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 4.698323E-01, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IBALD_06, 1, IWLR ), IWLR = 1, 7 ) / & 4.446840E-19, 7.294727E-20, 7.083062E-20, 8.588684E-20, & 9.205959E-20, 1.899707E-20, 0.000000E+00 / DATA ( ECS_REF( IBALD_06, 2, IWLR ), IWLR = 1, 7 ) / & 4.446840E-19, 7.294727E-20, 7.083062E-20, 8.588684E-20, & 9.205959E-20, 1.899707E-20, 0.000000E+00 / DATA ( ECS_REF( IBALD_06, 3, IWLR ), IWLR = 1, 7 ) / & 4.446840E-19, 7.294727E-20, 7.083062E-20, 8.588684E-20, & 9.205959E-20, 1.899707E-20, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IBALD_06, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999995E-01, 0.000000E+00 / DATA ( EQY_REF( IBALD_06, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999995E-01, 0.000000E+00 / DATA ( EQY_REF( IBALD_06, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999995E-01, 0.000000E+00 / C...AFG1 C.. Photolysis of lumped photoreactive aromatic unsaturated dicarbonyl product. C.. Based on 31.6% BUTEDIAL and 68.4% 4OX2PEAL with QY(BUTEDIAL) = 0.723 and C.. QY(4OX2PEAL) = 1.000 C.. From h:\mech\saprc06\phf.xls, "AFG1" sheet and based on C.. h:\mech\saprc06\aroprods.xls C.. C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IAFG1 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IAFG1, 1, IWLR ), IWLR = 1, 7 ) / & 1.731169E-18, 1.413427E-18, 1.105655E-18, 8.934788E-19, & 5.096681E-19, 1.346181E-19, 2.441063E-21 / DATA ( CS_REF( IAFG1, 2, IWLR ), IWLR = 1, 7 ) / & 1.731169E-18, 1.413427E-18, 1.105655E-18, 8.934788E-19, & 5.096681E-19, 1.346181E-19, 2.441063E-21 / DATA ( CS_REF( IAFG1, 3, IWLR ), IWLR = 1, 7 ) / & 1.731169E-18, 1.413427E-18, 1.105655E-18, 8.934788E-19, & 5.096681E-19, 1.346181E-19, 2.441063E-21 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IAFG1, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 2.073897E-01 / DATA ( QY_REF( IAFG1, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 2.073897E-01 / DATA ( QY_REF( IAFG1, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 2.073897E-01 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IAFG1, 1, IWLR ), IWLR = 1, 7 ) / & 1.731169E-18, 1.413427E-18, 1.105655E-18, 8.934788E-19, & 5.096681E-19, 1.346181E-19, 2.441062E-21 / DATA ( ECS_REF( IAFG1, 2, IWLR ), IWLR = 1, 7 ) / & 1.731169E-18, 1.413427E-18, 1.105655E-18, 8.934788E-19, & 5.096681E-19, 1.346181E-19, 2.441062E-21 / DATA ( ECS_REF( IAFG1, 3, IWLR ), IWLR = 1, 7 ) / & 1.731169E-18, 1.413427E-18, 1.105655E-18, 8.934788E-19, & 5.096681E-19, 1.346181E-19, 2.441062E-21 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IAFG1, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 9.999996E-01 / DATA ( EQY_REF( IAFG1, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 9.999996E-01 / DATA ( EQY_REF( IAFG1, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 9.999996E-01 / C...MACR-06 C.. Methacrolein total photolysis C.. Absorption cross sections from IUPAC Subcommittee on Gas Kinetic Data Evaluatio C.. Website: http://www.iupac-kinetic.ch.cam.ac.uk/. This datasheet updated: 16th M C.. The quantum yields were derived using the pressure and wavelength-dependent C.. expression given by IUPAC (2005) for MVK, with the total pressure adjusted so C.. that the radical forming photolysis rates for the chamber experiments are the C.. same as those that fit the chamber data. C.. C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IMACR_06 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IMACR_06, 1, IWLR ), IWLR = 1, 7 ) / & 2.642473E-20, 3.933871E-20, 4.996084E-20, 5.919546E-20, & 6.529635E-20, 1.485992E-20, 0.000000E+00 / DATA ( CS_REF( IMACR_06, 2, IWLR ), IWLR = 1, 7 ) / & 2.642473E-20, 3.933871E-20, 4.996084E-20, 5.919546E-20, & 6.529635E-20, 1.485992E-20, 0.000000E+00 / DATA ( CS_REF( IMACR_06, 3, IWLR ), IWLR = 1, 7 ) / & 2.642473E-20, 3.933871E-20, 4.996084E-20, 5.919546E-20, & 6.529635E-20, 1.485992E-20, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IMACR_06, 1, IWLR ), IWLR = 1, 7 ) / & 4.895972E-02, 3.077034E-02, 2.097494E-02, 1.484818E-02, & 6.388199E-03, 6.587669E-04, 0.000000E+00 / DATA ( QY_REF( IMACR_06, 2, IWLR ), IWLR = 1, 7 ) / & 4.895972E-02, 3.077034E-02, 2.097494E-02, 1.484818E-02, & 6.388199E-03, 6.587669E-04, 0.000000E+00 / DATA ( QY_REF( IMACR_06, 3, IWLR ), IWLR = 1, 7 ) / & 4.895972E-02, 3.077034E-02, 2.097494E-02, 1.484818E-02, & 6.388199E-03, 6.587669E-04, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IMACR_06, 1, IWLR ), IWLR = 1, 7 ) / & 1.276483E-21, 1.192719E-21, 1.044423E-21, 8.732378E-22, & 4.189941E-22, 2.383998E-23, 0.000000E+00 / DATA ( ECS_REF( IMACR_06, 2, IWLR ), IWLR = 1, 7 ) / & 1.276483E-21, 1.192719E-21, 1.044423E-21, 8.732378E-22, & 4.189941E-22, 2.383998E-23, 0.000000E+00 / DATA ( ECS_REF( IMACR_06, 3, IWLR ), IWLR = 1, 7 ) / & 1.276483E-21, 1.192719E-21, 1.044423E-21, 8.732378E-22, & 4.189941E-22, 2.383998E-23, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IMACR_06, 1, IWLR ), IWLR = 1, 7 ) / & 4.830637E-02, 3.031922E-02, 2.090483E-02, 1.475177E-02, & 6.416808E-03, 1.604314E-03, 0.000000E+00 / DATA ( EQY_REF( IMACR_06, 2, IWLR ), IWLR = 1, 7 ) / & 4.830637E-02, 3.031922E-02, 2.090483E-02, 1.475177E-02, & 6.416808E-03, 1.604314E-03, 0.000000E+00 / DATA ( EQY_REF( IMACR_06, 3, IWLR ), IWLR = 1, 7 ) / & 4.830637E-02, 3.031922E-02, 2.090483E-02, 1.475177E-02, & 6.416808E-03, 1.604314E-03, 0.000000E+00 / C...MVK-06 C.. MVK total photolysis C.. IUPAC Subcommittee on Gas Kinetic Data Evaluation Data Sheet P10 C.. Website: http://www.iupac-kinetic.ch.cam.ac.uk/ C.. This datasheet updated: 9th August 2002. C.. Decline in absorption cross sections with wavelength above 395 nm estimated by C.. linear interpolation. C.. Quantum yields for all photodecomposition processes. IUPAC recommends ~60% for C.. propene formation, rest radical forming routes. C.. Quantum yields calculated for 1 atm overpredicts photolysis rates for chamber C.. experiments that gives best fits to data. Effective pressure increased to 5 atm C.. to give overall quantum yields that are consistent with modeling chamber data. C.. C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IMVK_06 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IMVK_06, 1, IWLR ), IWLR = 1, 7 ) / & 3.044929E-20, 4.370248E-20, 5.442438E-20, 6.311225E-20, & 6.837229E-20, 9.456476E-21, 0.000000E+00 / DATA ( CS_REF( IMVK_06, 2, IWLR ), IWLR = 1, 7 ) / & 3.044929E-20, 4.370248E-20, 5.442438E-20, 6.311225E-20, & 6.837229E-20, 9.456476E-21, 0.000000E+00 / DATA ( CS_REF( IMVK_06, 3, IWLR ), IWLR = 1, 7 ) / & 3.044929E-20, 4.370248E-20, 5.442438E-20, 6.311225E-20, & 6.837229E-20, 9.456476E-21, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IMVK_06, 1, IWLR ), IWLR = 1, 7 ) / & 1.748657E-02, 1.113743E-02, 7.554945E-03, 5.308024E-03, & 2.286832E-03, 1.891282E-04, 0.000000E+00 / DATA ( QY_REF( IMVK_06, 2, IWLR ), IWLR = 1, 7 ) / & 1.748657E-02, 1.113743E-02, 7.554945E-03, 5.308024E-03, & 2.286832E-03, 1.891282E-04, 0.000000E+00 / DATA ( QY_REF( IMVK_06, 3, IWLR ), IWLR = 1, 7 ) / & 1.748657E-02, 1.113743E-02, 7.554945E-03, 5.308024E-03, & 2.286832E-03, 1.891282E-04, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IMVK_06, 1, IWLR ), IWLR = 1, 7 ) / & 5.264739E-22, 4.799790E-22, 4.100841E-22, 3.333177E-22, & 1.581298E-22, 9.181583E-24, 0.000000E+00 / DATA ( ECS_REF( IMVK_06, 2, IWLR ), IWLR = 1, 7 ) / & 5.264739E-22, 4.799790E-22, 4.100841E-22, 3.333177E-22, & 1.581298E-22, 9.181583E-24, 0.000000E+00 / DATA ( ECS_REF( IMVK_06, 3, IWLR ), IWLR = 1, 7 ) / & 5.264739E-22, 4.799790E-22, 4.100841E-22, 3.333177E-22, & 1.581298E-22, 9.181583E-24, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IMVK_06, 1, IWLR ), IWLR = 1, 7 ) / & 1.729018E-02, 1.098288E-02, 7.534933E-03, 5.281347E-03, & 2.312777E-03, 9.709307E-04, 0.000000E+00 / DATA ( EQY_REF( IMVK_06, 2, IWLR ), IWLR = 1, 7 ) / & 1.729018E-02, 1.098288E-02, 7.534933E-03, 5.281347E-03, & 2.312777E-03, 9.709307E-04, 0.000000E+00 / DATA ( EQY_REF( IMVK_06, 3, IWLR ), IWLR = 1, 7 ) / & 1.729018E-02, 1.098288E-02, 7.534933E-03, 5.281347E-03, & 2.312777E-03, 9.709307E-04, 0.000000E+00 / C...IC3ONO2 C.. ! I-C3H7ONO2 + HV = PRODUCTS C.. IUPAC (1997). Recommend assuming unit quantum yields. C.. This has stronger absorption than n-C3-ONO2 and lower nitrates, C.. but chosen as representative of lumped higher nitrates. C.. wl abs C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IIC3ONO2 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IIC3ONO2, 1, IWLR ), IWLR = 1, 7 ) / & 1.253602E-20, 6.362722E-21, 3.273374E-21, 1.721527E-21, & 2.837941E-22, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( IIC3ONO2, 2, IWLR ), IWLR = 1, 7 ) / & 1.253602E-20, 6.362722E-21, 3.273374E-21, 1.721527E-21, & 2.837941E-22, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( IIC3ONO2, 3, IWLR ), IWLR = 1, 7 ) / & 1.253602E-20, 6.362722E-21, 3.273374E-21, 1.721527E-21, & 2.837941E-22, 0.000000E+00, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IIC3ONO2, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 5.950289E-01, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( IIC3ONO2, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 5.950289E-01, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( IIC3ONO2, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 5.950289E-01, 0.000000E+00, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IIC3ONO2, 1, IWLR ), IWLR = 1, 7 ) / & 1.253602E-20, 6.362722E-21, 3.273374E-21, 1.721527E-21, & 2.837921E-22, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( IIC3ONO2, 2, IWLR ), IWLR = 1, 7 ) / & 1.253602E-20, 6.362722E-21, 3.273374E-21, 1.721527E-21, & 2.837921E-22, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( IIC3ONO2, 3, IWLR ), IWLR = 1, 7 ) / & 1.253602E-20, 6.362722E-21, 3.273374E-21, 1.721527E-21, & 2.837921E-22, 0.000000E+00, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IIC3ONO2, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.999931E-01, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( IIC3ONO2, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.999931E-01, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( IIC3ONO2, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.999931E-01, 0.000000E+00, 0.000000E+00 / C...HOCCHO_IUPAC C.. HOCH2CHO + hv ---> products C.. IUPAC (2002) based on Bacher et al (2001), J. Atm. Chem, 39, 171. C.. quantum yield = 0.75+/-0.25 C.. lambda(nm) xcross(1.E+20*cm2) yield C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IHOCCHO_IUPAC ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IHOCCHO_IUPAC, 1, IWLR ), IWLR = 1, 7 ) / & 3.701644E-20, 2.281197E-20, 1.252918E-20, 5.900787E-21, & 6.962136E-22, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( IHOCCHO_IUPAC, 2, IWLR ), IWLR = 1, 7 ) / & 3.701644E-20, 2.281197E-20, 1.252918E-20, 5.900787E-21, & 6.962136E-22, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( IHOCCHO_IUPAC, 3, IWLR ), IWLR = 1, 7 ) / & 3.701644E-20, 2.281197E-20, 1.252918E-20, 5.900787E-21, & 6.962136E-22, 0.000000E+00, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IHOCCHO_IUPAC, 1, IWLR ), IWLR = 1, 7 ) / & 7.500000E-01, 7.500000E-01, 7.500000E-01, 7.500000E-01, & 4.462717E-01, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( IHOCCHO_IUPAC, 2, IWLR ), IWLR = 1, 7 ) / & 7.500000E-01, 7.500000E-01, 7.500000E-01, 7.500000E-01, & 4.462717E-01, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( IHOCCHO_IUPAC, 3, IWLR ), IWLR = 1, 7 ) / & 7.500000E-01, 7.500000E-01, 7.500000E-01, 7.500000E-01, & 4.462717E-01, 0.000000E+00, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IHOCCHO_IUPAC, 1, IWLR ), IWLR = 1, 7 ) / & 2.776233E-20, 1.710898E-20, 9.396888E-21, 4.425590E-21, & 5.218385E-22, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( IHOCCHO_IUPAC, 2, IWLR ), IWLR = 1, 7 ) / & 2.776233E-20, 1.710898E-20, 9.396888E-21, 4.425590E-21, & 5.218385E-22, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( IHOCCHO_IUPAC, 3, IWLR ), IWLR = 1, 7 ) / & 2.776233E-20, 1.710898E-20, 9.396888E-21, 4.425590E-21, & 5.218385E-22, 0.000000E+00, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IHOCCHO_IUPAC, 1, IWLR ), IWLR = 1, 7 ) / & 7.500000E-01, 7.500000E-01, 7.500000E-01, 7.500000E-01, & 7.495379E-01, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( IHOCCHO_IUPAC, 2, IWLR ), IWLR = 1, 7 ) / & 7.500000E-01, 7.500000E-01, 7.500000E-01, 7.500000E-01, & 7.495379E-01, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( IHOCCHO_IUPAC, 3, IWLR ), IWLR = 1, 7 ) / & 7.500000E-01, 7.500000E-01, 7.500000E-01, 7.500000E-01, & 7.495379E-01, 0.000000E+00, 0.000000E+00 / C...ACRO-09 C.. ! Chemical Kinetics and Photochemical Data for Use in Atmospheric Studies C.. Evaluation Number 15. JPL Publication 06-2. July 10, 2006 C.. The quantum yields were derived using the pressure and wavelength-dependent C.. expression given by IUPAC (2005) for MVK, C.. with the total pressure adjusted so that the radical forming photolysis rates C.. for the chamber experiments are the same as those that fit the chamber data. C.. Adjusted pressure = 1.50 atm. C.. C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IACRO_09 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IACRO_09, 1, IWLR ), IWLR = 1, 7 ) / & 1.858116E-20, 2.786563E-20, 3.608658E-20, 4.315211E-20, & 5.365798E-20, 1.717206E-20, 0.000000E+00 / DATA ( CS_REF( IACRO_09, 2, IWLR ), IWLR = 1, 7 ) / & 1.858116E-20, 2.786563E-20, 3.608658E-20, 4.315211E-20, & 5.365798E-20, 1.717206E-20, 0.000000E+00 / DATA ( CS_REF( IACRO_09, 3, IWLR ), IWLR = 1, 7 ) / & 1.858116E-20, 2.786563E-20, 3.608658E-20, 4.315211E-20, & 5.365798E-20, 1.717206E-20, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IACRO_09, 1, IWLR ), IWLR = 1, 7 ) / & 5.327035E-02, 3.344404E-02, 2.270661E-02, 1.610625E-02, & 6.961018E-03, 7.441319E-04, 0.000000E+00 / DATA ( QY_REF( IACRO_09, 2, IWLR ), IWLR = 1, 7 ) / & 5.327035E-02, 3.344404E-02, 2.270661E-02, 1.610625E-02, & 6.961018E-03, 7.441319E-04, 0.000000E+00 / DATA ( QY_REF( IACRO_09, 3, IWLR ), IWLR = 1, 7 ) / & 5.327035E-02, 3.344404E-02, 2.270661E-02, 1.610625E-02, & 6.961018E-03, 7.441319E-04, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IACRO_09, 1, IWLR ), IWLR = 1, 7 ) / & 9.778219E-22, 9.186790E-22, 8.152126E-22, 6.910216E-22, & 3.706286E-22, 2.881135E-23, 0.000000E+00 / DATA ( ECS_REF( IACRO_09, 2, IWLR ), IWLR = 1, 7 ) / & 9.778219E-22, 9.186790E-22, 8.152126E-22, 6.910216E-22, & 3.706286E-22, 2.881135E-23, 0.000000E+00 / DATA ( ECS_REF( IACRO_09, 3, IWLR ), IWLR = 1, 7 ) / & 9.778219E-22, 9.186790E-22, 8.152126E-22, 6.910216E-22, & 3.706286E-22, 2.881135E-23, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IACRO_09, 1, IWLR ), IWLR = 1, 7 ) / & 5.262437E-02, 3.296818E-02, 2.259047E-02, 1.601362E-02, & 6.907240E-03, 1.677804E-03, 0.000000E+00 / DATA ( EQY_REF( IACRO_09, 2, IWLR ), IWLR = 1, 7 ) / & 5.262437E-02, 3.296818E-02, 2.259047E-02, 1.601362E-02, & 6.907240E-03, 1.677804E-03, 0.000000E+00 / DATA ( EQY_REF( IACRO_09, 3, IWLR ), IWLR = 1, 7 ) / & 5.262437E-02, 3.296818E-02, 2.259047E-02, 1.601362E-02, & 6.907240E-03, 1.677804E-03, 0.000000E+00 / C...PAA C.. Peroxy acetic acid absorption cross sections C.. Orlando, J. J. and G. S. Tyndall (2003): "Gas phase UV absorption spectra C.. for peracetic acid, and for acetic acid monomers and dimers," J. Photochem. C.. Photobiol A, 157, 161-166. C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IPAA ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IPAA, 1, IWLR ), IWLR = 1, 7 ) / & 1.878198E-21, 9.997928E-22, 5.862126E-22, 3.756698E-22, & 1.093339E-22, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( IPAA, 2, IWLR ), IWLR = 1, 7 ) / & 1.878198E-21, 9.997928E-22, 5.862126E-22, 3.756698E-22, & 1.093339E-22, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( IPAA, 3, IWLR ), IWLR = 1, 7 ) / & 1.878198E-21, 9.997928E-22, 5.862126E-22, 3.756698E-22, & 1.093339E-22, 0.000000E+00, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IPAA, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.677803E-01, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( IPAA, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.677803E-01, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( IPAA, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.677803E-01, 0.000000E+00, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IPAA, 1, IWLR ), IWLR = 1, 7 ) / & 1.878198E-21, 9.997928E-22, 5.862126E-22, 3.756698E-22, & 1.093335E-22, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( IPAA, 2, IWLR ), IWLR = 1, 7 ) / & 1.878198E-21, 9.997928E-22, 5.862126E-22, 3.756698E-22, & 1.093335E-22, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( IPAA, 3, IWLR ), IWLR = 1, 7 ) / & 1.878198E-21, 9.997928E-22, 5.862126E-22, 3.756698E-22, & 1.093335E-22, 0.000000E+00, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IPAA, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.999964E-01, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( IPAA, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.999964E-01, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( IPAA, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.999964E-01, 0.000000E+00, 0.000000E+00 / C...CL2 C.. CL2 + HV = 2 CL C.. FROM IUPAC EVALUATION (1996) C.. RECOMMEND UNIT QUANTUM YIELD C.. C... reference temperatures (K) DATA ( TEMP_REF( ITTR, ICL2 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( ICL2, 1, IWLR ), IWLR = 1, 7 ) / & 8.837280E-20, 1.399567E-19, 1.844070E-19, 2.181722E-19, & 2.414089E-19, 7.097299E-20, 1.197690E-21 / DATA ( CS_REF( ICL2, 2, IWLR ), IWLR = 1, 7 ) / & 8.837280E-20, 1.399567E-19, 1.844070E-19, 2.181722E-19, & 2.414089E-19, 7.097299E-20, 1.197690E-21 / DATA ( CS_REF( ICL2, 3, IWLR ), IWLR = 1, 7 ) / & 8.837280E-20, 1.399567E-19, 1.844070E-19, 2.181722E-19, & 2.414089E-19, 7.097299E-20, 1.197690E-21 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( ICL2, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 2.435630E-01 / DATA ( QY_REF( ICL2, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 2.435630E-01 / DATA ( QY_REF( ICL2, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 2.435630E-01 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( ICL2, 1, IWLR ), IWLR = 1, 7 ) / & 8.837280E-20, 1.399567E-19, 1.844070E-19, 2.181722E-19, & 2.414089E-19, 7.097299E-20, 1.197690E-21 / DATA ( ECS_REF( ICL2, 2, IWLR ), IWLR = 1, 7 ) / & 8.837280E-20, 1.399567E-19, 1.844070E-19, 2.181722E-19, & 2.414089E-19, 7.097299E-20, 1.197690E-21 / DATA ( ECS_REF( ICL2, 3, IWLR ), IWLR = 1, 7 ) / & 8.837280E-20, 1.399567E-19, 1.844070E-19, 2.181722E-19, & 2.414089E-19, 7.097299E-20, 1.197690E-21 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( ICL2, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 9.999997E-01 / DATA ( EQY_REF( ICL2, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 9.999997E-01 / DATA ( EQY_REF( ICL2, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 9.999997E-01 / C...CLNO-06 C.. CLNO absorption cross sections recommended by IUPAC (2005) C.. Wavelength where absorption goes to zero est'd by extrapolation C.. C... reference temperatures (K) DATA ( TEMP_REF( ITTR, ICLNO_06 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( ICLNO_06, 1, IWLR ), IWLR = 1, 7 ) / & 9.714401E-20, 1.043246E-19, 1.151118E-19, 1.265982E-19, & 1.476980E-19, 8.786674E-20, 7.731566E-21 / DATA ( CS_REF( ICLNO_06, 2, IWLR ), IWLR = 1, 7 ) / & 9.714401E-20, 1.043246E-19, 1.151118E-19, 1.265982E-19, & 1.476980E-19, 8.786674E-20, 7.731566E-21 / DATA ( CS_REF( ICLNO_06, 3, IWLR ), IWLR = 1, 7 ) / & 9.714401E-20, 1.043246E-19, 1.151118E-19, 1.265982E-19, & 1.476980E-19, 8.786674E-20, 7.731566E-21 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( ICLNO_06, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 3.938179E-01 / DATA ( QY_REF( ICLNO_06, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 3.938179E-01 / DATA ( QY_REF( ICLNO_06, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 3.938179E-01 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( ICLNO_06, 1, IWLR ), IWLR = 1, 7 ) / & 9.714401E-20, 1.043246E-19, 1.151118E-19, 1.265982E-19, & 1.476980E-19, 8.786674E-20, 7.731564E-21 / DATA ( ECS_REF( ICLNO_06, 2, IWLR ), IWLR = 1, 7 ) / & 9.714401E-20, 1.043246E-19, 1.151118E-19, 1.265982E-19, & 1.476980E-19, 8.786674E-20, 7.731564E-21 / DATA ( ECS_REF( ICLNO_06, 3, IWLR ), IWLR = 1, 7 ) / & 9.714401E-20, 1.043246E-19, 1.151118E-19, 1.265982E-19, & 1.476980E-19, 8.786674E-20, 7.731564E-21 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( ICLNO_06, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 9.999998E-01 / DATA ( EQY_REF( ICLNO_06, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 9.999998E-01 / DATA ( EQY_REF( ICLNO_06, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 9.999998E-01 / C...CLONO C.. CLONO + HV = CL + NO2 C.. FROM IUPAC EVALUATION (1996) C... reference temperatures (K) DATA ( TEMP_REF( ITTR, ICLONO ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( ICLONO, 1, IWLR ), IWLR = 1, 7 ) / & 1.405210E-18, 1.199159E-18, 1.051876E-18, 9.226636E-19, & 5.800030E-19, 8.253898E-20, 0.000000E+00 / DATA ( CS_REF( ICLONO, 2, IWLR ), IWLR = 1, 7 ) / & 1.405210E-18, 1.199159E-18, 1.051876E-18, 9.226636E-19, & 5.800030E-19, 8.253898E-20, 0.000000E+00 / DATA ( CS_REF( ICLONO, 3, IWLR ), IWLR = 1, 7 ) / & 1.405210E-18, 1.199159E-18, 1.051876E-18, 9.226636E-19, & 5.800030E-19, 8.253898E-20, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( ICLONO, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 8.480834E-01, 0.000000E+00 / DATA ( QY_REF( ICLONO, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 8.480834E-01, 0.000000E+00 / DATA ( QY_REF( ICLONO, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 8.480834E-01, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( ICLONO, 1, IWLR ), IWLR = 1, 7 ) / & 1.405210E-18, 1.199159E-18, 1.051876E-18, 9.226636E-19, & 5.800030E-19, 8.253895E-20, 0.000000E+00 / DATA ( ECS_REF( ICLONO, 2, IWLR ), IWLR = 1, 7 ) / & 1.405210E-18, 1.199159E-18, 1.051876E-18, 9.226636E-19, & 5.800030E-19, 8.253895E-20, 0.000000E+00 / DATA ( ECS_REF( ICLONO, 3, IWLR ), IWLR = 1, 7 ) / & 1.405210E-18, 1.199159E-18, 1.051876E-18, 9.226636E-19, & 5.800030E-19, 8.253895E-20, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( ICLONO, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999997E-01, 0.000000E+00 / DATA ( EQY_REF( ICLONO, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999997E-01, 0.000000E+00 / DATA ( EQY_REF( ICLONO, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999997E-01, 0.000000E+00 / C...CLNO2 C.. CLNO2 + HV = CL + NO2 C.. FROM IUPAC EVALUATION (1996) C.. RECOMMEND UNIT QUANTUM YILED C... reference temperatures (K) DATA ( TEMP_REF( ITTR, ICLNO2 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( ICLNO2, 1, IWLR ), IWLR = 1, 7 ) / & 1.618957E-19, 1.401068E-19, 1.205566E-19, 1.003856E-19, & 5.353105E-20, 5.485528E-21, 0.000000E+00 / DATA ( CS_REF( ICLNO2, 2, IWLR ), IWLR = 1, 7 ) / & 1.618957E-19, 1.401068E-19, 1.205566E-19, 1.003856E-19, & 5.353105E-20, 5.485528E-21, 0.000000E+00 / DATA ( CS_REF( ICLNO2, 3, IWLR ), IWLR = 1, 7 ) / & 1.618957E-19, 1.401068E-19, 1.205566E-19, 1.003856E-19, & 5.353105E-20, 5.485528E-21, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( ICLNO2, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 4.832393E-01, 0.000000E+00 / DATA ( QY_REF( ICLNO2, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 4.832393E-01, 0.000000E+00 / DATA ( QY_REF( ICLNO2, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 4.832393E-01, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( ICLNO2, 1, IWLR ), IWLR = 1, 7 ) / & 1.618957E-19, 1.401068E-19, 1.205566E-19, 1.003856E-19, & 5.353105E-20, 5.485521E-21, 0.000000E+00 / DATA ( ECS_REF( ICLNO2, 2, IWLR ), IWLR = 1, 7 ) / & 1.618957E-19, 1.401068E-19, 1.205566E-19, 1.003856E-19, & 5.353105E-20, 5.485521E-21, 0.000000E+00 / DATA ( ECS_REF( ICLNO2, 3, IWLR ), IWLR = 1, 7 ) / & 1.618957E-19, 1.401068E-19, 1.205566E-19, 1.003856E-19, & 5.353105E-20, 5.485521E-21, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( ICLNO2, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999987E-01, 0.000000E+00 / DATA ( EQY_REF( ICLNO2, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999987E-01, 0.000000E+00 / DATA ( EQY_REF( ICLNO2, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999987E-01, 0.000000E+00 / C...CLONO2-1 C.. CLONO2 + hv = CLO. + NO2 C.. CLONO2 absorption cross sections and quantum yields recommended by IUPAC (2005) C.. C... reference temperatures (K) DATA ( TEMP_REF( ITTR, ICLONO2_1 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( ICLONO2_1, 1, IWLR ), IWLR = 1, 7 ) / & 4.646976E-20, 2.596369E-20, 1.617506E-20, 1.067463E-20, & 4.477540E-21, 5.616671E-22, 0.000000E+00 / DATA ( CS_REF( ICLONO2_1, 2, IWLR ), IWLR = 1, 7 ) / & 4.646976E-20, 2.596369E-20, 1.617506E-20, 1.067463E-20, & 4.477540E-21, 5.616671E-22, 0.000000E+00 / DATA ( CS_REF( ICLONO2_1, 3, IWLR ), IWLR = 1, 7 ) / & 4.646976E-20, 2.596369E-20, 1.617506E-20, 1.067463E-20, & 4.477540E-21, 5.616671E-22, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( ICLONO2_1, 1, IWLR ), IWLR = 1, 7 ) / & 4.000000E-01, 3.989724E-01, 3.828619E-01, 3.400473E-01, & 2.225876E-01, 1.723396E-02, 0.000000E+00 / DATA ( QY_REF( ICLONO2_1, 2, IWLR ), IWLR = 1, 7 ) / & 4.000000E-01, 3.989724E-01, 3.828619E-01, 3.400473E-01, & 2.225876E-01, 1.723396E-02, 0.000000E+00 / DATA ( QY_REF( ICLONO2_1, 3, IWLR ), IWLR = 1, 7 ) / & 4.000000E-01, 3.989724E-01, 3.828619E-01, 3.400473E-01, & 2.225876E-01, 1.723396E-02, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( ICLONO2_1, 1, IWLR ), IWLR = 1, 7 ) / & 1.858791E-20, 1.036466E-20, 6.204424E-21, 3.655838E-21, & 1.070239E-21, 3.904645E-23, 0.000000E+00 / DATA ( ECS_REF( ICLONO2_1, 2, IWLR ), IWLR = 1, 7 ) / & 1.858791E-20, 1.036466E-20, 6.204424E-21, 3.655838E-21, & 1.070239E-21, 3.904645E-23, 0.000000E+00 / DATA ( ECS_REF( ICLONO2_1, 3, IWLR ), IWLR = 1, 7 ) / & 1.858791E-20, 1.036466E-20, 6.204424E-21, 3.655838E-21, & 1.070239E-21, 3.904645E-23, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( ICLONO2_1, 1, IWLR ), IWLR = 1, 7 ) / & 4.000000E-01, 3.991984E-01, 3.835795E-01, 3.424791E-01, & 2.390239E-01, 6.951884E-02, 0.000000E+00 / DATA ( EQY_REF( ICLONO2_1, 2, IWLR ), IWLR = 1, 7 ) / & 4.000000E-01, 3.991984E-01, 3.835795E-01, 3.424791E-01, & 2.390239E-01, 6.951884E-02, 0.000000E+00 / DATA ( EQY_REF( ICLONO2_1, 3, IWLR ), IWLR = 1, 7 ) / & 4.000000E-01, 3.991984E-01, 3.835795E-01, 3.424791E-01, & 2.390239E-01, 6.951884E-02, 0.000000E+00 / C...CLONO2-2 C.. CLONO2 + hv = CL. + NO3 C.. CLONO2 absorption cross sections and quantum yields recommended by IUPAC (2005) C.. C... reference temperatures (K) DATA ( TEMP_REF( ITTR, ICLONO2_2 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( ICLONO2_2, 1, IWLR ), IWLR = 1, 7 ) / & 4.646976E-20, 2.596369E-20, 1.617506E-20, 1.067463E-20, & 4.477540E-21, 1.279905E-21, 1.948483E-23 / DATA ( CS_REF( ICLONO2_2, 2, IWLR ), IWLR = 1, 7 ) / & 4.646976E-20, 2.596369E-20, 1.617506E-20, 1.067463E-20, & 4.477540E-21, 1.279905E-21, 1.948483E-23 / DATA ( CS_REF( ICLONO2_2, 3, IWLR ), IWLR = 1, 7 ) / & 4.646976E-20, 2.596369E-20, 1.617506E-20, 1.067463E-20, & 4.477540E-21, 1.279905E-21, 1.948483E-23 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( ICLONO2_2, 1, IWLR ), IWLR = 1, 7 ) / & 6.000000E-01, 6.010277E-01, 6.171381E-01, 6.599527E-01, & 7.774124E-01, 9.827660E-01, 7.729670E-02 / DATA ( QY_REF( ICLONO2_2, 2, IWLR ), IWLR = 1, 7 ) / & 6.000000E-01, 6.010277E-01, 6.171381E-01, 6.599527E-01, & 7.774124E-01, 9.827660E-01, 7.729670E-02 / DATA ( QY_REF( ICLONO2_2, 3, IWLR ), IWLR = 1, 7 ) / & 6.000000E-01, 6.010277E-01, 6.171381E-01, 6.599527E-01, & 7.774124E-01, 9.827660E-01, 7.729670E-02 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( ICLONO2_2, 1, IWLR ), IWLR = 1, 7 ) / & 2.788186E-20, 1.559903E-20, 9.970641E-21, 7.018792E-21, & 3.407301E-21, 1.240858E-21, 1.948451E-23 / DATA ( ECS_REF( ICLONO2_2, 2, IWLR ), IWLR = 1, 7 ) / & 2.788186E-20, 1.559903E-20, 9.970641E-21, 7.018792E-21, & 3.407301E-21, 1.240858E-21, 1.948451E-23 / DATA ( ECS_REF( ICLONO2_2, 3, IWLR ), IWLR = 1, 7 ) / & 2.788186E-20, 1.559903E-20, 9.970641E-21, 7.018792E-21, & 3.407301E-21, 1.240858E-21, 1.948451E-23 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( ICLONO2_2, 1, IWLR ), IWLR = 1, 7 ) / & 6.000000E-01, 6.008017E-01, 6.164205E-01, 6.575208E-01, & 7.609761E-01, 9.694926E-01, 9.999832E-01 / DATA ( EQY_REF( ICLONO2_2, 2, IWLR ), IWLR = 1, 7 ) / & 6.000000E-01, 6.008017E-01, 6.164205E-01, 6.575208E-01, & 7.609761E-01, 9.694926E-01, 9.999832E-01 / DATA ( EQY_REF( ICLONO2_2, 3, IWLR ), IWLR = 1, 7 ) / & 6.000000E-01, 6.008017E-01, 6.164205E-01, 6.575208E-01, & 7.609761E-01, 9.694926E-01, 9.999832E-01 / C...HOCL-06 C.. HOCL absorption cross sections recommended by IUPAC (2005) C.. C.. C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IHOCL_06 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IHOCL_06, 1, IWLR ), IWLR = 1, 7 ) / & 5.572037E-20, 6.066260E-20, 5.955837E-20, 5.386087E-20, & 3.171168E-20, 6.944975E-21, 2.670822E-23 / DATA ( CS_REF( IHOCL_06, 2, IWLR ), IWLR = 1, 7 ) / & 5.572037E-20, 6.066260E-20, 5.955837E-20, 5.386087E-20, & 3.171168E-20, 6.944975E-21, 2.670822E-23 / DATA ( CS_REF( IHOCL_06, 3, IWLR ), IWLR = 1, 7 ) / & 5.572037E-20, 6.066260E-20, 5.955837E-20, 5.386087E-20, & 3.171168E-20, 6.944975E-21, 2.670822E-23 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IHOCL_06, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 3.488595E-02 / DATA ( QY_REF( IHOCL_06, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 3.488595E-02 / DATA ( QY_REF( IHOCL_06, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 3.488595E-02 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IHOCL_06, 1, IWLR ), IWLR = 1, 7 ) / & 5.572037E-20, 6.066260E-20, 5.955837E-20, 5.386087E-20, & 3.171168E-20, 6.944975E-21, 2.670613E-23 / DATA ( ECS_REF( IHOCL_06, 2, IWLR ), IWLR = 1, 7 ) / & 5.572037E-20, 6.066260E-20, 5.955837E-20, 5.386087E-20, & 3.171168E-20, 6.944975E-21, 2.670613E-23 / DATA ( ECS_REF( IHOCL_06, 3, IWLR ), IWLR = 1, 7 ) / & 5.572037E-20, 6.066260E-20, 5.955837E-20, 5.386087E-20, & 3.171168E-20, 6.944975E-21, 2.670613E-23 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IHOCL_06, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 9.999219E-01 / DATA ( EQY_REF( IHOCL_06, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 9.999219E-01 / DATA ( EQY_REF( IHOCL_06, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 9.999219E-01 / C...CLCCHO C.. Chloroacetaldehyde absorption cross sections C.. NASA (2006) evaluation C... reference temperatures (K) DATA ( TEMP_REF( ITTR, ICLCCHO ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( ICLCCHO, 1, IWLR ), IWLR = 1, 7 ) / & 5.382647E-20, 5.297188E-20, 4.837030E-20, 3.864029E-20, & 1.335077E-20, 1.098278E-22, 0.000000E+00 / DATA ( CS_REF( ICLCCHO, 2, IWLR ), IWLR = 1, 7 ) / & 5.382647E-20, 5.297188E-20, 4.837030E-20, 3.864029E-20, & 1.335077E-20, 1.098278E-22, 0.000000E+00 / DATA ( CS_REF( ICLCCHO, 3, IWLR ), IWLR = 1, 7 ) / & 5.382647E-20, 5.297188E-20, 4.837030E-20, 3.864029E-20, & 1.335077E-20, 1.098278E-22, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( ICLCCHO, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.735011E-01, 0.000000E+00 / DATA ( QY_REF( ICLCCHO, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.735011E-01, 0.000000E+00 / DATA ( QY_REF( ICLCCHO, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.735011E-01, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( ICLCCHO, 1, IWLR ), IWLR = 1, 7 ) / & 5.382647E-20, 5.297188E-20, 4.837030E-20, 3.864029E-20, & 1.335077E-20, 1.098275E-22, 0.000000E+00 / DATA ( ECS_REF( ICLCCHO, 2, IWLR ), IWLR = 1, 7 ) / & 5.382647E-20, 5.297188E-20, 4.837030E-20, 3.864029E-20, & 1.335077E-20, 1.098275E-22, 0.000000E+00 / DATA ( ECS_REF( ICLCCHO, 3, IWLR ), IWLR = 1, 7 ) / & 5.382647E-20, 5.297188E-20, 4.837030E-20, 3.864029E-20, & 1.335077E-20, 1.098275E-22, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( ICLCCHO, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999973E-01, 0.000000E+00 / DATA ( EQY_REF( ICLCCHO, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999973E-01, 0.000000E+00 / DATA ( EQY_REF( ICLCCHO, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999973E-01, 0.000000E+00 / C...CLACET C.. Chloroacetone absorption cross sections C.. Chloroacetone absorption cross sections C.. C... reference temperatures (K) DATA ( TEMP_REF( ITTR, ICLACET ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( ICLACET, 1, IWLR ), IWLR = 1, 7 ) / & 9.998559E-20, 8.666034E-20, 6.763288E-20, 4.788546E-20, & 1.187528E-20, 8.168951E-23, 0.000000E+00 / DATA ( CS_REF( ICLACET, 2, IWLR ), IWLR = 1, 7 ) / & 9.998559E-20, 8.666034E-20, 6.763288E-20, 4.788546E-20, & 1.187528E-20, 8.168951E-23, 0.000000E+00 / DATA ( CS_REF( ICLACET, 3, IWLR ), IWLR = 1, 7 ) / & 9.998559E-20, 8.666034E-20, 6.763288E-20, 4.788546E-20, & 1.187528E-20, 8.168951E-23, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( ICLACET, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 2.623016E-01, 0.000000E+00 / DATA ( QY_REF( ICLACET, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 2.623016E-01, 0.000000E+00 / DATA ( QY_REF( ICLACET, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 2.623016E-01, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( ICLACET, 1, IWLR ), IWLR = 1, 7 ) / & 9.998559E-20, 8.666034E-20, 6.763288E-20, 4.788546E-20, & 1.187528E-20, 8.168905E-23, 0.000000E+00 / DATA ( ECS_REF( ICLACET, 2, IWLR ), IWLR = 1, 7 ) / & 9.998559E-20, 8.666034E-20, 6.763288E-20, 4.788546E-20, & 1.187528E-20, 8.168905E-23, 0.000000E+00 / DATA ( ECS_REF( ICLACET, 3, IWLR ), IWLR = 1, 7 ) / & 9.998559E-20, 8.666034E-20, 6.763288E-20, 4.788546E-20, & 1.187528E-20, 8.168905E-23, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( ICLACET, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999943E-01, 0.000000E+00 / DATA ( EQY_REF( ICLACET, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999943E-01, 0.000000E+00 / DATA ( EQY_REF( ICLACET, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999943E-01, 0.000000E+00 / C...NO2_SAPRC99 C.. NO2 + HV = NO + O C.. SAPRC-99 Photolysis data. Supplied by William P. L. Carter. C.. Created from PhotDat.xls on 29-Jan-2000 10:07 C... reference temperatures (K) DATA ( TEMP_REF( ITTR, INO2_SAPRC99 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( INO2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.080259E-19, 1.477440E-19, 1.863140E-19, 2.244636E-19, & 3.311073E-19, 5.442337E-19, 2.379556E-20 / DATA ( CS_REF( INO2_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 1.080259E-19, 1.477440E-19, 1.863140E-19, 2.244636E-19, & 3.311073E-19, 5.442337E-19, 2.379556E-20 / DATA ( CS_REF( INO2_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 1.080259E-19, 1.477440E-19, 1.863140E-19, 2.244636E-19, & 3.311073E-19, 5.442337E-19, 2.379556E-20 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( INO2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 9.986425E-01, 9.908484E-01, & 9.900000E-01, 8.105520E-01, 1.455241E-03 / DATA ( QY_REF( INO2_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 9.986425E-01, 9.908484E-01, & 9.900000E-01, 8.105520E-01, 1.455241E-03 / DATA ( QY_REF( INO2_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 9.986425E-01, 9.908484E-01, & 9.900000E-01, 8.105520E-01, 1.455241E-03 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( INO2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.080259E-19, 1.477440E-19, 1.860489E-19, 2.223930E-19, & 3.277963E-19, 4.331605E-19, 8.335073E-22 / DATA ( ECS_REF( INO2_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 1.080259E-19, 1.477440E-19, 1.860489E-19, 2.223930E-19, & 3.277963E-19, 4.331605E-19, 8.335073E-22 / DATA ( ECS_REF( INO2_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 1.080259E-19, 1.477440E-19, 1.860489E-19, 2.223930E-19, & 3.277963E-19, 4.331605E-19, 8.335073E-22 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( INO2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 9.985774E-01, 9.907753E-01, & 9.900000E-01, 7.959090E-01, 3.502784E-02 / DATA ( EQY_REF( INO2_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 9.985774E-01, 9.907753E-01, & 9.900000E-01, 7.959090E-01, 3.502784E-02 / DATA ( EQY_REF( INO2_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 9.985774E-01, 9.907753E-01, & 9.900000E-01, 7.959090E-01, 3.502784E-02 / C...NO3NO_SAPRC99 C.. NO3 + HV = NO + O2 (T=298) C.. SAPRC-99 Photolysis data. Supplied by William P. L. Carter. C.. Created from PhotDat.xls on 29-Jan-2000 10:07 C... reference temperatures (K) DATA ( TEMP_REF( ITTR, INO3NO_SAPRC99 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( INO3NO_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 0.000000E+00, 5.442916E-19 / DATA ( CS_REF( INO3NO_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 0.000000E+00, 5.442916E-19 / DATA ( CS_REF( INO3NO_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 0.000000E+00, 5.442916E-19 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( INO3NO_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 0.000000E+00, 1.990637E-02 / DATA ( QY_REF( INO3NO_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 0.000000E+00, 1.990637E-02 / DATA ( QY_REF( INO3NO_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 0.000000E+00, 1.990637E-02 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( INO3NO_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 0.000000E+00, 8.034345E-20 / DATA ( ECS_REF( INO3NO_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 0.000000E+00, 8.034345E-20 / DATA ( ECS_REF( INO3NO_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 0.000000E+00, 8.034345E-20 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( INO3NO_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 0.000000E+00, 1.476111E-01 / DATA ( EQY_REF( INO3NO_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 0.000000E+00, 1.476111E-01 / DATA ( EQY_REF( INO3NO_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 0.000000E+00, 1.476111E-01 / C...NO3NO2_SAPRC99 C.. NO3 + HV = NO2 + O (T=298) C.. SAPRC-99 Photolysis data. Supplied by William P. L. Carter. C.. Created from PhotDat.xls on 29-Jan-2000 10:07 C... reference temperatures (K) DATA ( TEMP_REF( ITTR, INO3NO2_SAPRC99 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( INO3NO2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 3.854805E-21, 1.222858E-18 / DATA ( CS_REF( INO3NO2_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 3.854805E-21, 1.222858E-18 / DATA ( CS_REF( INO3NO2_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 3.854805E-21, 1.222858E-18 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( INO3NO2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 2.540388E-01, 6.027042E-01 / DATA ( QY_REF( INO3NO2_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 2.540388E-01, 6.027042E-01 / DATA ( QY_REF( INO3NO2_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 2.540388E-01, 6.027042E-01 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( INO3NO2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 3.854805E-21, 8.924195E-19 / DATA ( ECS_REF( INO3NO2_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 3.854805E-21, 8.924195E-19 / DATA ( ECS_REF( INO3NO2_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 3.854805E-21, 8.924195E-19 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( INO3NO2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 1.000000E+00, 7.297817E-01 / DATA ( EQY_REF( INO3NO2_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 1.000000E+00, 7.297817E-01 / DATA ( EQY_REF( INO3NO2_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 1.000000E+00, 7.297817E-01 / C...O3O3P_SAPRC99 C.. O3 + HV = O1D + O2 C.. SAPRC-99 Photolysis data. Supplied by William P. L. Carter. C.. Created from PhotDat.xls on 29-Jan-2000 10:07 C.. Absorption cross sections from NASA (1999), using wavelength which is cente C.. r of intervals shown. C.. Quantum yields derived from O3->O1D quantum yields assuming total quantum y C.. ield is 1, though this is not adequately discussed in the evaluations. C.. Values given are interpolated for each 1 nm interval. C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IO3O3P_SAPRC99 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IO3O3P_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 8.225669E-19, 2.738969E-19, 1.042280E-19, 4.515059E-20, & 6.450503E-21, 2.109681E-23, 1.684420E-21 / DATA ( CS_REF( IO3O3P_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 8.225669E-19, 2.738969E-19, 1.042280E-19, 4.515059E-20, & 6.450503E-21, 2.109681E-23, 1.684420E-21 / DATA ( CS_REF( IO3O3P_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 8.225669E-19, 2.738969E-19, 1.042280E-19, 4.515059E-20, & 6.450503E-21, 2.109681E-23, 1.684420E-21 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IO3O3P_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 6.221909E-02, 4.386296E-02, 4.630244E-01, 7.869666E-01, & 9.554292E-01, 1.000000E+00, 1.000000E+00 / DATA ( QY_REF( IO3O3P_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 6.221909E-02, 4.386296E-02, 4.630244E-01, 7.869666E-01, & 9.554292E-01, 1.000000E+00, 1.000000E+00 / DATA ( QY_REF( IO3O3P_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 6.221909E-02, 4.386296E-02, 4.630244E-01, 7.869666E-01, & 9.554292E-01, 1.000000E+00, 1.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IO3O3P_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 5.220116E-20, 1.121303E-20, 4.453936E-20, 3.505516E-20, & 5.972207E-21, 2.109681E-23, 1.684420E-21 / DATA ( ECS_REF( IO3O3P_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 5.220116E-20, 1.121303E-20, 4.453936E-20, 3.505516E-20, & 5.972207E-21, 2.109681E-23, 1.684420E-21 / DATA ( ECS_REF( IO3O3P_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 5.220116E-20, 1.121303E-20, 4.453936E-20, 3.505516E-20, & 5.972207E-21, 2.109681E-23, 1.684420E-21 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IO3O3P_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 6.346130E-02, 4.093885E-02, 4.273264E-01, 7.764055E-01, & 9.258513E-01, 1.000000E+00, 1.000000E+00 / DATA ( EQY_REF( IO3O3P_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 6.346130E-02, 4.093885E-02, 4.273264E-01, 7.764055E-01, & 9.258513E-01, 1.000000E+00, 1.000000E+00 / DATA ( EQY_REF( IO3O3P_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 6.346130E-02, 4.093885E-02, 4.273264E-01, 7.764055E-01, & 9.258513E-01, 1.000000E+00, 1.000000E+00 / C...O3O1D_SAPRC99 C.. O3 + HV = O1D + O2 C.. SAPRC-99 Photolysis data. Supplied by William P. L. Carter. C.. Created from PhotDat.xls on 29-Jan-2000 10:07 C.. Absorption cross sections from NASA (1999), using wavelength which is cente C.. r of intervals shown. C.. Quantum yields from IUPAC, Supplement VI (1997). C.. No quantum yield recommendation is given for wl>335. Assume they decrease C.. linearly to zero at 340 nm. C.. Values given are interpolated for each 1 nm interval. C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IO3O1D_SAPRC99 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IO3O1D_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 8.225669E-19, 2.738969E-19, 1.042280E-19, 4.515059E-20, & 6.267941E-21, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( IO3O1D_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 8.225669E-19, 2.738969E-19, 1.042280E-19, 4.515059E-20, & 6.267941E-21, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( IO3O1D_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 8.225669E-19, 2.738969E-19, 1.042280E-19, 4.515059E-20, & 6.267941E-21, 0.000000E+00, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IO3O1D_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 9.377809E-01, 9.561371E-01, 5.369756E-01, 2.130334E-01, & 4.457083E-02, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( IO3O1D_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 9.377809E-01, 9.561371E-01, 5.369756E-01, 2.130334E-01, & 4.457083E-02, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( IO3O1D_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 9.377809E-01, 9.561371E-01, 5.369756E-01, 2.130334E-01, & 4.457083E-02, 0.000000E+00, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IO3O1D_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 7.703657E-19, 2.626839E-19, 5.968862E-20, 1.009543E-20, & 4.782964E-22, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( IO3O1D_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 7.703657E-19, 2.626839E-19, 5.968862E-20, 1.009543E-20, & 4.782964E-22, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( IO3O1D_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 7.703657E-19, 2.626839E-19, 5.968862E-20, 1.009543E-20, & 4.782964E-22, 0.000000E+00, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IO3O1D_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 9.365387E-01, 9.590611E-01, 5.726736E-01, 2.235946E-01, & 7.630838E-02, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( IO3O1D_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 9.365387E-01, 9.590611E-01, 5.726736E-01, 2.235946E-01, & 7.630838E-02, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( IO3O1D_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 9.365387E-01, 9.590611E-01, 5.726736E-01, 2.235946E-01, & 7.630838E-02, 0.000000E+00, 0.000000E+00 / C...HONO_NO_SAPRC99 C.. HONO + HV = HO. + NO C.. SAPRC-99 Photolysis data. Supplied by William P. L. Carter. C.. Created from PhotDat.xls on 29-Jan-2000 10:07 C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IHONO_NO_SAPRC99 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IHONO_NO_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 1.241728E-20, 3.445791E-20, & 1.071895E-19, 9.424301E-20, 0.000000E+00 / DATA ( CS_REF( IHONO_NO_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 1.241728E-20, 3.445791E-20, & 1.071895E-19, 9.424301E-20, 0.000000E+00 / DATA ( CS_REF( IHONO_NO_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 1.241728E-20, 3.445791E-20, & 1.071895E-19, 9.424301E-20, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IHONO_NO_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 2.852223E-01, 4.683687E-01, & 6.446996E-01, 7.147868E-01, 0.000000E+00 / DATA ( QY_REF( IHONO_NO_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 2.852223E-01, 4.683687E-01, & 6.446996E-01, 7.147868E-01, 0.000000E+00 / DATA ( QY_REF( IHONO_NO_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 2.852223E-01, 4.683687E-01, & 6.446996E-01, 7.147868E-01, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IHONO_NO_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 5.159218E-21, 1.631716E-20, & 7.201626E-20, 8.904415E-20, 0.000000E+00 / DATA ( ECS_REF( IHONO_NO_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 5.159218E-21, 1.631716E-20, & 7.201626E-20, 8.904415E-20, 0.000000E+00 / DATA ( ECS_REF( IHONO_NO_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 5.159218E-21, 1.631716E-20, & 7.201626E-20, 8.904415E-20, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IHONO_NO_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 4.154868E-01, 4.735389E-01, & 6.718590E-01, 9.448357E-01, 0.000000E+00 / DATA ( EQY_REF( IHONO_NO_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 4.154868E-01, 4.735389E-01, & 6.718590E-01, 9.448357E-01, 0.000000E+00 / DATA ( EQY_REF( IHONO_NO_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 4.154868E-01, 4.735389E-01, & 6.718590E-01, 9.448357E-01, 0.000000E+00 / C...HONO_NO2_SAPRC99 C.. HONO + HV = H. + NO2 C.. SAPRC-99 Photolysis data. Supplied by William P. L. Carter. C.. Created from PhotDat.xls on 29-Jan-2000 10:07 C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IHONO_NO2_SAPRC99 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IHONO_NO2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 1.241728E-20, 3.445791E-20, & 1.071895E-19, 4.548377E-20, 0.000000E+00 / DATA ( CS_REF( IHONO_NO2_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 1.241728E-20, 3.445791E-20, & 1.071895E-19, 4.548377E-20, 0.000000E+00 / DATA ( CS_REF( IHONO_NO2_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 1.241728E-20, 3.445791E-20, & 1.071895E-19, 4.548377E-20, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IHONO_NO2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 4.037597E-01, 5.316312E-01, & 3.553004E-01, 3.117437E-02, 0.000000E+00 / DATA ( QY_REF( IHONO_NO2_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 4.037597E-01, 5.316312E-01, & 3.553004E-01, 3.117437E-02, 0.000000E+00 / DATA ( QY_REF( IHONO_NO2_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 4.037597E-01, 5.316312E-01, & 3.553004E-01, 3.117437E-02, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IHONO_NO2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 7.256632E-21, 1.814075E-20, & 3.517327E-20, 5.198806E-21, 0.000000E+00 / DATA ( ECS_REF( IHONO_NO2_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 7.256632E-21, 1.814075E-20, & 3.517327E-20, 5.198806E-21, 0.000000E+00 / DATA ( ECS_REF( IHONO_NO2_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 7.256632E-21, 1.814075E-20, & 3.517327E-20, 5.198806E-21, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IHONO_NO2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 5.843977E-01, 5.264611E-01, & 3.281410E-01, 1.143003E-01, 0.000000E+00 / DATA ( EQY_REF( IHONO_NO2_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 5.843977E-01, 5.264611E-01, & 3.281410E-01, 1.143003E-01, 0.000000E+00 / DATA ( EQY_REF( IHONO_NO2_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 5.843977E-01, 5.264611E-01, & 3.281410E-01, 1.143003E-01, 0.000000E+00 / C...HNO3_SAPRC99 C.. HNO3 + HV = products C.. SAPRC-99 Photolysis data. Supplied by William P. L. Carter. C.. Created from PhotDat.xls on 29-Jan-2000 10:07 C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IHNO3_SAPRC99 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IHNO3_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 4.351450E-21, 1.958802E-21, 8.418979E-22, 3.681581E-22, & 5.035483E-23, 4.637400E-25, 0.000000E+00 / DATA ( CS_REF( IHNO3_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 4.351450E-21, 1.958802E-21, 8.418979E-22, 3.681581E-22, & 5.035483E-23, 4.637400E-25, 0.000000E+00 / DATA ( CS_REF( IHNO3_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 4.351450E-21, 1.958802E-21, 8.418979E-22, 3.681581E-22, & 5.035483E-23, 4.637400E-25, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IHNO3_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.351202E-01, 0.000000E+00 / DATA ( QY_REF( IHNO3_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.351202E-01, 0.000000E+00 / DATA ( QY_REF( IHNO3_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.351202E-01, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IHNO3_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 4.351450E-21, 1.958802E-21, 8.418979E-22, 3.681581E-22, & 5.035483E-23, 4.637264E-25, 0.000000E+00 / DATA ( ECS_REF( IHNO3_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 4.351450E-21, 1.958802E-21, 8.418979E-22, 3.681581E-22, & 5.035483E-23, 4.637264E-25, 0.000000E+00 / DATA ( ECS_REF( IHNO3_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 4.351450E-21, 1.958802E-21, 8.418979E-22, 3.681581E-22, & 5.035483E-23, 4.637264E-25, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IHNO3_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999707E-01, 0.000000E+00 / DATA ( EQY_REF( IHNO3_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999707E-01, 0.000000E+00 / DATA ( EQY_REF( IHNO3_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999707E-01, 0.000000E+00 / C...HO2NO2_SAPRC99 C.. HO2NO2 + HV = PRODUCTS C.. SAPRC-99 Photolysis data. Supplied by William P. L. Carter. C.. Created from PhotDat.xls on 29-Jan-2000 10:07 C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IHO2NO2_SAPRC99 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IHO2NO2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 2.585970E-20, 1.082016E-20, 5.509709E-21, 3.477366E-21, & 6.721352E-22, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( IHO2NO2_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 2.585970E-20, 1.082016E-20, 5.509709E-21, 3.477366E-21, & 6.721352E-22, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( IHO2NO2_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 2.585970E-20, 1.082016E-20, 5.509709E-21, 3.477366E-21, & 6.721352E-22, 0.000000E+00, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IHO2NO2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 5.950289E-01, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( IHO2NO2_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 5.950289E-01, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( IHO2NO2_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 5.950289E-01, 0.000000E+00, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IHO2NO2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 2.585970E-20, 1.082016E-20, 5.509709E-21, 3.477366E-21, & 6.721305E-22, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( IHO2NO2_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 2.585970E-20, 1.082016E-20, 5.509709E-21, 3.477366E-21, & 6.721305E-22, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( IHO2NO2_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 2.585970E-20, 1.082016E-20, 5.509709E-21, 3.477366E-21, & 6.721305E-22, 0.000000E+00, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IHO2NO2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.999929E-01, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( IHO2NO2_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.999929E-01, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( IHO2NO2_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.999929E-01, 0.000000E+00, 0.000000E+00 / C...H2O2_SAPRC99 C.. H2O2 + HV = 2 OH C.. SAPRC-99 Photolysis data. Supplied by William P. L. Carter. C.. Created from PhotDat.xls on 29-Jan-2000 10:07 C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IH2O2_SAPRC99 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IH2O2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 9.342335E-21, 5.777204E-21, 3.914159E-21, 2.732004E-21, & 1.162692E-21, 4.309158E-23, 0.000000E+00 / DATA ( CS_REF( IH2O2_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 9.342335E-21, 5.777204E-21, 3.914159E-21, 2.732004E-21, & 1.162692E-21, 4.309158E-23, 0.000000E+00 / DATA ( CS_REF( IH2O2_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 9.342335E-21, 5.777204E-21, 3.914159E-21, 2.732004E-21, & 1.162692E-21, 4.309158E-23, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IH2O2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.351202E-01, 0.000000E+00 / DATA ( QY_REF( IH2O2_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.351202E-01, 0.000000E+00 / DATA ( QY_REF( IH2O2_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.351202E-01, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IH2O2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 9.342335E-21, 5.777204E-21, 3.914159E-21, 2.732004E-21, & 1.162692E-21, 4.309022E-23, 0.000000E+00 / DATA ( ECS_REF( IH2O2_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 9.342335E-21, 5.777204E-21, 3.914159E-21, 2.732004E-21, & 1.162692E-21, 4.309022E-23, 0.000000E+00 / DATA ( ECS_REF( IH2O2_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 9.342335E-21, 5.777204E-21, 3.914159E-21, 2.732004E-21, & 1.162692E-21, 4.309022E-23, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IH2O2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999685E-01, 0.000000E+00 / DATA ( EQY_REF( IH2O2_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999685E-01, 0.000000E+00 / DATA ( EQY_REF( IH2O2_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999685E-01, 0.000000E+00 / C...HCHO_R_SAPRC99 C.. HCHO + HV = HCO + H C.. SAPRC-99 Photolysis data. Supplied by William P. L. Carter. C.. Created from PhotDat.xls on 29-Jan-2000 10:07 C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IHCHO_R_SAPRC99 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IHCHO_R_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 3.125415E-20, 3.307976E-20, 1.602210E-20, 3.138593E-20, & 1.421334E-20, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( IHCHO_R_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 3.125415E-20, 3.307976E-20, 1.602210E-20, 3.138593E-20, & 1.421334E-20, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( IHCHO_R_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 3.125415E-20, 3.307976E-20, 1.602210E-20, 3.138593E-20, & 1.421334E-20, 0.000000E+00, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IHCHO_R_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 7.531340E-01, 7.793137E-01, 7.691399E-01, 6.777878E-01, & 2.204757E-01, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( IHCHO_R_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 7.531340E-01, 7.793137E-01, 7.691399E-01, 6.777878E-01, & 2.204757E-01, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( IHCHO_R_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 7.531340E-01, 7.793137E-01, 7.691399E-01, 6.777878E-01, & 2.204757E-01, 0.000000E+00, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IHCHO_R_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 2.356318E-20, 2.578273E-20, 1.239485E-20, 2.146144E-20, & 4.031781E-21, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( IHCHO_R_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 2.356318E-20, 2.578273E-20, 1.239485E-20, 2.146144E-20, & 4.031781E-21, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( IHCHO_R_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 2.356318E-20, 2.578273E-20, 1.239485E-20, 2.146144E-20, & 4.031781E-21, 0.000000E+00, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IHCHO_R_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 7.539216E-01, 7.794110E-01, 7.736096E-01, 6.837917E-01, & 2.836617E-01, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( IHCHO_R_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 7.539216E-01, 7.794110E-01, 7.736096E-01, 6.837917E-01, & 2.836617E-01, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( IHCHO_R_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 7.539216E-01, 7.794110E-01, 7.736096E-01, 6.837917E-01, & 2.836617E-01, 0.000000E+00, 0.000000E+00 / C...HCHO_M_SAPRC99 C.. HCHO + HV = H2 + CO C.. SAPRC-99 Photolysis data. Supplied by William P. L. Carter. C.. Created from PhotDat.xls on 29-Jan-2000 10:07 C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IHCHO_M_SAPRC99 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IHCHO_M_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 3.125415E-20, 3.307976E-20, 1.602210E-20, 3.138593E-20, & 1.672116E-20, 8.398104E-22, 0.000000E+00 / DATA ( CS_REF( IHCHO_M_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 3.125415E-20, 3.307976E-20, 1.602210E-20, 3.138593E-20, & 1.672116E-20, 8.398104E-22, 0.000000E+00 / DATA ( CS_REF( IHCHO_M_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 3.125415E-20, 3.307976E-20, 1.602210E-20, 3.138593E-20, & 1.672116E-20, 8.398104E-22, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IHCHO_M_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 2.261196E-01, 2.137055E-01, 2.302355E-01, 3.221780E-01, & 5.534477E-01, 3.537201E-02, 0.000000E+00 / DATA ( QY_REF( IHCHO_M_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 2.261196E-01, 2.137055E-01, 2.302355E-01, 3.221780E-01, & 5.534477E-01, 3.537201E-02, 0.000000E+00 / DATA ( QY_REF( IHCHO_M_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 2.261196E-01, 2.137055E-01, 2.302355E-01, 3.221780E-01, & 5.534477E-01, 3.537201E-02, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IHCHO_M_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 7.052405E-21, 7.086060E-21, 3.613880E-21, 9.924044E-21, & 9.369489E-21, 1.337857E-22, 0.000000E+00 / DATA ( ECS_REF( IHCHO_M_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 7.052405E-21, 7.086060E-21, 3.613880E-21, 9.924044E-21, & 9.369489E-21, 1.337857E-22, 0.000000E+00 / DATA ( ECS_REF( IHCHO_M_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 7.052405E-21, 7.086060E-21, 3.613880E-21, 9.924044E-21, & 9.369489E-21, 1.337857E-22, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IHCHO_M_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 2.256470E-01, 2.142113E-01, 2.255560E-01, 3.161941E-01, & 5.603374E-01, 1.593047E-01, 0.000000E+00 / DATA ( EQY_REF( IHCHO_M_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 2.256470E-01, 2.142113E-01, 2.255560E-01, 3.161941E-01, & 5.603374E-01, 1.593047E-01, 0.000000E+00 / DATA ( EQY_REF( IHCHO_M_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 2.256470E-01, 2.142113E-01, 2.255560E-01, 3.161941E-01, & 5.603374E-01, 1.593047E-01, 0.000000E+00 / C...CCHO_R_SAPRC99 C.. CCHO + HV = CH3 + CHO C.. SAPRC-99 Photolysis data. Supplied by William P. L. Carter. C.. Created from PhotDat.xls on 29-Jan-2000 10:07 C... reference temperatures (K) DATA ( TEMP_REF( ITTR, ICCHO_R_SAPRC99 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( ICCHO_R_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 4.431909E-20, 3.721389E-20, 2.926475E-20, 2.113278E-20, & 4.007796E-21, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( ICCHO_R_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 4.431909E-20, 3.721389E-20, 2.926475E-20, 2.113278E-20, & 4.007796E-21, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( ICCHO_R_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 4.431909E-20, 3.721389E-20, 2.926475E-20, 2.113278E-20, & 4.007796E-21, 0.000000E+00, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( ICCHO_R_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 4.837319E-01, 3.903790E-01, 2.837039E-01, 1.548971E-01, & 1.542570E-02, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( ICCHO_R_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 4.837319E-01, 3.903790E-01, 2.837039E-01, 1.548971E-01, & 1.542570E-02, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( ICCHO_R_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 4.837319E-01, 3.903790E-01, 2.837039E-01, 1.548971E-01, & 1.542570E-02, 0.000000E+00, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( ICCHO_R_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 2.146492E-20, 1.463071E-20, 8.383887E-21, 3.363618E-21, & 1.911978E-22, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( ICCHO_R_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 2.146492E-20, 1.463071E-20, 8.383887E-21, 3.363618E-21, & 1.911978E-22, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( ICCHO_R_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 2.146492E-20, 1.463071E-20, 8.383887E-21, 3.363618E-21, & 1.911978E-22, 0.000000E+00, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( ICCHO_R_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 4.843267E-01, 3.931520E-01, 2.864842E-01, 1.591659E-01, & 4.770647E-02, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( ICCHO_R_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 4.843267E-01, 3.931520E-01, 2.864842E-01, 1.591659E-01, & 4.770647E-02, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( ICCHO_R_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 4.843267E-01, 3.931520E-01, 2.864842E-01, 1.591659E-01, & 4.770647E-02, 0.000000E+00, 0.000000E+00 / C...C2CHO_SAPRC99 C.. C2CHO + HV = C2H5. + CHO. C.. SAPRC-99 Photolysis data. Supplied by William P. L. Carter. C.. Created from PhotDat.xls on 29-Jan-2000 10:07 C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IC2CHO_SAPRC99 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IC2CHO_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 3.167935E-20, 4.637920E-20, 3.576927E-20, 2.454658E-20, & 6.109313E-21, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( IC2CHO_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 3.167935E-20, 4.637920E-20, 3.576927E-20, 2.454658E-20, & 6.109313E-21, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( IC2CHO_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 3.167935E-20, 4.637920E-20, 3.576927E-20, 2.454658E-20, & 6.109313E-21, 0.000000E+00, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IC2CHO_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 5.201593E-01, 7.958030E-01, 5.938827E-01, 4.325821E-01, & 1.575024E-01, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( IC2CHO_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 5.201593E-01, 7.958030E-01, 5.938827E-01, 4.325821E-01, & 1.575024E-01, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( IC2CHO_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 5.201593E-01, 7.958030E-01, 5.938827E-01, 4.325821E-01, & 1.575024E-01, 0.000000E+00, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IC2CHO_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 2.779956E-20, 3.718655E-20, 2.127446E-20, 1.085955E-20, & 1.479962E-21, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( IC2CHO_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 2.779956E-20, 3.718655E-20, 2.127446E-20, 1.085955E-20, & 1.479962E-21, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( IC2CHO_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 2.779956E-20, 3.718655E-20, 2.127446E-20, 1.085955E-20, & 1.479962E-21, 0.000000E+00, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IC2CHO_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 8.775294E-01, 8.017938E-01, 5.947691E-01, 4.424057E-01, & 2.422470E-01, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( IC2CHO_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 8.775294E-01, 8.017938E-01, 5.947691E-01, 4.424057E-01, & 2.422470E-01, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( IC2CHO_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 8.775294E-01, 8.017938E-01, 5.947691E-01, 4.424057E-01, & 2.422470E-01, 0.000000E+00, 0.000000E+00 / C...ACETONE_SAPRC99 C.. ACETONE + HV = CH3CO. + CH3. C.. SAPRC-99 Photolysis data. Supplied by William P. L. Carter. C.. Created from PhotDat.xls on 29-Jan-2000 10:07 C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IACETONE_SAPRC99 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IACETONE_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 3.561990E-20, 2.349588E-20, 1.406119E-20, 7.586603E-21, & 8.979676E-22, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( IACETONE_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 3.561990E-20, 2.349588E-20, 1.406119E-20, 7.586603E-21, & 8.979676E-22, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( IACETONE_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 3.561990E-20, 2.349588E-20, 1.406119E-20, 7.586603E-21, & 8.979676E-22, 0.000000E+00, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IACETONE_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 2.239195E-01, 1.144415E-01, 5.779590E-02, 2.891370E-02, & 4.679137E-03, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( IACETONE_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 2.239195E-01, 1.144415E-01, 5.779590E-02, 2.891370E-02, & 4.679137E-03, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( IACETONE_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 2.239195E-01, 1.144415E-01, 5.779590E-02, 2.891370E-02, & 4.679137E-03, 0.000000E+00, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IACETONE_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 8.080394E-21, 2.785339E-21, 8.292822E-22, 2.351871E-22, & 9.267896E-24, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( IACETONE_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 8.080394E-21, 2.785339E-21, 8.292822E-22, 2.351871E-22, & 9.267896E-24, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( IACETONE_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 8.080394E-21, 2.785339E-21, 8.292822E-22, 2.351871E-22, & 9.267896E-24, 0.000000E+00, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IACETONE_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 2.268505E-01, 1.185458E-01, 5.897669E-02, 3.100031E-02, & 1.032097E-02, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( IACETONE_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 2.268505E-01, 1.185458E-01, 5.897669E-02, 3.100031E-02, & 1.032097E-02, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( IACETONE_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 2.268505E-01, 1.185458E-01, 5.897669E-02, 3.100031E-02, & 1.032097E-02, 0.000000E+00, 0.000000E+00 / C...KETONE_SAPRC99 C.. Methyl Ethyl Ketone Absorption Cross Sections C.. SAPRC-99 Photolysis data. Supplied by William P. L. Carter. C.. Created from PhotDat.xls on 29-Jan-2000 10:07 C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IKETONE_SAPRC99 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IKETONE_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 4.251486E-20, 2.719476E-20, 1.560863E-20, 7.734724E-21, & 8.026588E-22, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( IKETONE_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 4.251486E-20, 2.719476E-20, 1.560863E-20, 7.734724E-21, & 8.026588E-22, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( IKETONE_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 4.251486E-20, 2.719476E-20, 1.560863E-20, 7.734724E-21, & 8.026588E-22, 0.000000E+00, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IKETONE_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.251229E-01, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( IKETONE_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.251229E-01, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( IKETONE_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.251229E-01, 0.000000E+00, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IKETONE_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 4.251486E-20, 2.719476E-20, 1.560863E-20, 7.734724E-21, & 8.026587E-22, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( IKETONE_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 4.251486E-20, 2.719476E-20, 1.560863E-20, 7.734724E-21, & 8.026587E-22, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( IKETONE_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 4.251486E-20, 2.719476E-20, 1.560863E-20, 7.734724E-21, & 8.026587E-22, 0.000000E+00, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IKETONE_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.999999E-01, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( IKETONE_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.999999E-01, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( IKETONE_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.999999E-01, 0.000000E+00, 0.000000E+00 / C...COOH_SAPRC99 C.. CH3OOH + HV = PRODUCTS C.. SAPRC-99 Photolysis data. Supplied by William P. L. Carter. C.. Created from PhotDat.xls on 29-Jan-2000 10:07 C... reference temperatures (K) DATA ( TEMP_REF( ITTR, ICOOH_SAPRC99 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( ICOOH_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 5.617454E-21, 3.528208E-21, 2.405066E-21, 1.705886E-21, & 7.383624E-22, 6.232370E-23, 0.000000E+00 / DATA ( CS_REF( ICOOH_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 5.617454E-21, 3.528208E-21, 2.405066E-21, 1.705886E-21, & 7.383624E-22, 6.232370E-23, 0.000000E+00 / DATA ( CS_REF( ICOOH_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 5.617454E-21, 3.528208E-21, 2.405066E-21, 1.705886E-21, & 7.383624E-22, 6.232370E-23, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( ICOOH_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 3.407560E-01, 0.000000E+00 / DATA ( QY_REF( ICOOH_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 3.407560E-01, 0.000000E+00 / DATA ( QY_REF( ICOOH_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 3.407560E-01, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( ICOOH_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 5.617454E-21, 3.528208E-21, 2.405066E-21, 1.705886E-21, & 7.383624E-22, 6.232326E-23, 0.000000E+00 / DATA ( ECS_REF( ICOOH_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 5.617454E-21, 3.528208E-21, 2.405066E-21, 1.705886E-21, & 7.383624E-22, 6.232326E-23, 0.000000E+00 / DATA ( ECS_REF( ICOOH_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 5.617454E-21, 3.528208E-21, 2.405066E-21, 1.705886E-21, & 7.383624E-22, 6.232326E-23, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( ICOOH_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999929E-01, 0.000000E+00 / DATA ( EQY_REF( ICOOH_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999929E-01, 0.000000E+00 / DATA ( EQY_REF( ICOOH_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999929E-01, 0.000000E+00 / C...GLY_R_SAPRC99 C.. Glyoxal + hv = 2 HCO C.. SAPRC-99 Photolysis data. Supplied by William P. L. Carter. C.. Created from PhotDat.xls on 29-Jan-2000 10:07 C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IGLY_R_SAPRC99 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IGLY_R_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 3.308047E-20, 3.068909E-20, 2.760725E-20, 2.078190E-20, & 6.738002E-21, 1.898477E-20, 1.296601E-21 / DATA ( CS_REF( IGLY_R_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 3.308047E-20, 3.068909E-20, 2.760725E-20, 2.078190E-20, & 6.738002E-21, 1.898477E-20, 1.296601E-21 / DATA ( CS_REF( IGLY_R_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 3.308047E-20, 3.068909E-20, 2.760725E-20, 2.078190E-20, & 6.738002E-21, 1.898477E-20, 1.296601E-21 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IGLY_R_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 5.823931E-01, 0.000000E+00 / DATA ( QY_REF( IGLY_R_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 5.823931E-01, 0.000000E+00 / DATA ( QY_REF( IGLY_R_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 5.823931E-01, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IGLY_R_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 3.308047E-20, 3.068909E-20, 2.760725E-20, 2.078190E-20, & 6.738002E-21, 4.341389E-21, 0.000000E+00 / DATA ( ECS_REF( IGLY_R_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 3.308047E-20, 3.068909E-20, 2.760725E-20, 2.078190E-20, & 6.738002E-21, 4.341389E-21, 0.000000E+00 / DATA ( ECS_REF( IGLY_R_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 3.308047E-20, 3.068909E-20, 2.760725E-20, 2.078190E-20, & 6.738002E-21, 4.341389E-21, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IGLY_R_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 2.286774E-01, 0.000000E+00 / DATA ( EQY_REF( IGLY_R_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 2.286774E-01, 0.000000E+00 / DATA ( EQY_REF( IGLY_R_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 2.286774E-01, 0.000000E+00 / C...GLY_ABS_SAPRC99 C.. Glyoxal Absorption Cross Sections C.. SAPRC-99 Photolysis data. Supplied by William P. L. Carter. C.. Created from PhotDat.xls on 29-Jan-2000 10:07 C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IGLY_ABS_SAPRC99 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IGLY_ABS_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 3.308047E-20, 3.068909E-20, 2.760725E-20, 2.078190E-20, & 6.738002E-21, 1.898477E-20, 1.424838E-20 / DATA ( CS_REF( IGLY_ABS_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 3.308047E-20, 3.068909E-20, 2.760725E-20, 2.078190E-20, & 6.738002E-21, 1.898477E-20, 1.424838E-20 / DATA ( CS_REF( IGLY_ABS_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 3.308047E-20, 3.068909E-20, 2.760725E-20, 2.078190E-20, & 6.738002E-21, 1.898477E-20, 1.424838E-20 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IGLY_ABS_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 1.777996E-01 / DATA ( QY_REF( IGLY_ABS_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 1.777996E-01 / DATA ( QY_REF( IGLY_ABS_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 1.777996E-01 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IGLY_ABS_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 3.308047E-20, 3.068909E-20, 2.760725E-20, 2.078190E-20, & 6.738002E-21, 1.898477E-20, 1.424838E-20 / DATA ( ECS_REF( IGLY_ABS_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 3.308047E-20, 3.068909E-20, 2.760725E-20, 2.078190E-20, & 6.738002E-21, 1.898477E-20, 1.424838E-20 / DATA ( ECS_REF( IGLY_ABS_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 3.308047E-20, 3.068909E-20, 2.760725E-20, 2.078190E-20, & 6.738002E-21, 1.898477E-20, 1.424838E-20 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IGLY_ABS_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 1.000000E+00 / DATA ( EQY_REF( IGLY_ABS_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 1.000000E+00 / DATA ( EQY_REF( IGLY_ABS_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 1.000000E+00 / C...MGLY_ADJ_SAPRC99 C.. MGLY + HV = PRODUCTS C.. SAPRC-99 Photolysis data. Supplied by William P. L. Carter. C.. Created from PhotDat.xls on 29-Jan-2000 10:07 C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IMGLY_ADJ_SAPRC99 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IMGLY_ADJ_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 4.410857E-20, 3.510266E-20, 2.357658E-20, 1.820124E-20, & 6.164736E-21, 3.464746E-20, 3.074720E-21 / DATA ( CS_REF( IMGLY_ADJ_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 4.410857E-20, 3.510266E-20, 2.357658E-20, 1.820124E-20, & 6.164736E-21, 3.464746E-20, 3.074720E-21 / DATA ( CS_REF( IMGLY_ADJ_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 4.410857E-20, 3.510266E-20, 2.357658E-20, 1.820124E-20, & 6.164736E-21, 3.464746E-20, 3.074720E-21 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IMGLY_ADJ_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.993793E-01, 4.093204E-01, 0.000000E+00 / DATA ( QY_REF( IMGLY_ADJ_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.993793E-01, 4.093204E-01, 0.000000E+00 / DATA ( QY_REF( IMGLY_ADJ_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.993793E-01, 4.093204E-01, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IMGLY_ADJ_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 4.410857E-20, 3.510266E-20, 2.357658E-20, 1.820124E-20, & 6.162925E-21, 6.143782E-21, 0.000000E+00 / DATA ( ECS_REF( IMGLY_ADJ_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 4.410857E-20, 3.510266E-20, 2.357658E-20, 1.820124E-20, & 6.162925E-21, 6.143782E-21, 0.000000E+00 / DATA ( ECS_REF( IMGLY_ADJ_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 4.410857E-20, 3.510266E-20, 2.357658E-20, 1.820124E-20, & 6.162925E-21, 6.143782E-21, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IMGLY_ADJ_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.997061E-01, 1.773227E-01, 0.000000E+00 / DATA ( EQY_REF( IMGLY_ADJ_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.997061E-01, 1.773227E-01, 0.000000E+00 / DATA ( EQY_REF( IMGLY_ADJ_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.997061E-01, 1.773227E-01, 0.000000E+00 / C...BACL_ADJ_SAPRC99 C.. BACL + HV = PRODUCTS C.. SAPRC-99 Photolysis data. Supplied by William P. L. Carter. C.. Created from PhotDat.xls on 29-Jan-2000 10:07 C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IBACL_ADJ_SAPRC99 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IBACL_ADJ_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 2.614094E-20, 1.589884E-20, 9.010759E-21, 6.016450E-21, & 4.659123E-21, 3.061080E-20, 8.938935E-21 / DATA ( CS_REF( IBACL_ADJ_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 2.614094E-20, 1.589884E-20, 9.010759E-21, 6.016450E-21, & 4.659123E-21, 3.061080E-20, 8.938935E-21 / DATA ( CS_REF( IBACL_ADJ_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 2.614094E-20, 1.589884E-20, 9.010759E-21, 6.016450E-21, & 4.659123E-21, 3.061080E-20, 8.938935E-21 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IBACL_ADJ_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 5.562430E-01, 1.901927E-03 / DATA ( QY_REF( IBACL_ADJ_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 5.562430E-01, 1.901927E-03 / DATA ( QY_REF( IBACL_ADJ_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 5.562430E-01, 1.901927E-03 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IBACL_ADJ_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 2.614094E-20, 1.589884E-20, 9.010759E-21, 6.016450E-21, & 4.659123E-21, 1.199574E-20, 1.289835E-22 / DATA ( ECS_REF( IBACL_ADJ_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 2.614094E-20, 1.589884E-20, 9.010759E-21, 6.016450E-21, & 4.659123E-21, 1.199574E-20, 1.289835E-22 / DATA ( ECS_REF( IBACL_ADJ_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 2.614094E-20, 1.589884E-20, 9.010759E-21, 6.016450E-21, & 4.659123E-21, 1.199574E-20, 1.289835E-22 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IBACL_ADJ_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 3.918793E-01, 1.442940E-02 / DATA ( EQY_REF( IBACL_ADJ_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 3.918793E-01, 1.442940E-02 / DATA ( EQY_REF( IBACL_ADJ_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 3.918793E-01, 1.442940E-02 / C...BZCHO_SAPRC99 C.. Benzaldehyde absorbtion coefs in n-Hexane C.. SAPRC-99 Photolysis data. Supplied by William P. L. Carter. C.. Created from PhotDat.xls on 29-Jan-2000 10:07 C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IBZCHO_SAPRC99 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IBZCHO_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 9.365009E-20, 6.611635E-20, 6.728674E-20, & 8.232216E-20, 3.125745E-20, 0.000000E+00 / DATA ( CS_REF( IBZCHO_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 9.365009E-20, 6.611635E-20, 6.728674E-20, & 8.232216E-20, 3.125745E-20, 0.000000E+00 / DATA ( CS_REF( IBZCHO_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 9.365009E-20, 6.611635E-20, 6.728674E-20, & 8.232216E-20, 3.125745E-20, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IBZCHO_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 9.392353E-01, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 5.550116E-01, 0.000000E+00 / DATA ( QY_REF( IBZCHO_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 9.392353E-01, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 5.550116E-01, 0.000000E+00 / DATA ( QY_REF( IBZCHO_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 9.392353E-01, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 5.550116E-01, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IBZCHO_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 9.361427E-20, 6.611635E-20, 6.728674E-20, & 8.232216E-20, 3.125741E-20, 0.000000E+00 / DATA ( ECS_REF( IBZCHO_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 9.361427E-20, 6.611635E-20, 6.728674E-20, & 8.232216E-20, 3.125741E-20, 0.000000E+00 / DATA ( ECS_REF( IBZCHO_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 9.361427E-20, 6.611635E-20, 6.728674E-20, & 8.232216E-20, 3.125741E-20, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IBZCHO_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 9.996175E-01, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999987E-01, 0.000000E+00 / DATA ( EQY_REF( IBZCHO_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 9.996175E-01, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999987E-01, 0.000000E+00 / DATA ( EQY_REF( IBZCHO_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 9.996175E-01, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999987E-01, 0.000000E+00 / C...ACROLEIN_SAPRC99 C.. Absorption cross sections for Acrolein. C.. SAPRC-99 Photolysis data. Supplied by William P. L. Carter. C.. Created from PhotDat.xls on 29-Jan-2000 10:07 C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IACROLEIN_SAPRC99 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IACROLEIN_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 2.121896E-20, 3.142855E-20, 4.087763E-20, 4.828621E-20, & 5.748912E-20, 1.354352E-20, 0.000000E+00 / DATA ( CS_REF( IACROLEIN_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 2.121896E-20, 3.142855E-20, 4.087763E-20, 4.828621E-20, & 5.748912E-20, 1.354352E-20, 0.000000E+00 / DATA ( CS_REF( IACROLEIN_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 2.121896E-20, 3.142855E-20, 4.087763E-20, 4.828621E-20, & 5.748912E-20, 1.354352E-20, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IACROLEIN_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 4.990738E-01, 0.000000E+00 / DATA ( QY_REF( IACROLEIN_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 4.990738E-01, 0.000000E+00 / DATA ( QY_REF( IACROLEIN_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 4.990738E-01, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IACROLEIN_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 2.121896E-20, 3.142855E-20, 4.087763E-20, 4.828621E-20, & 5.748912E-20, 1.354352E-20, 0.000000E+00 / DATA ( ECS_REF( IACROLEIN_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 2.121896E-20, 3.142855E-20, 4.087763E-20, 4.828621E-20, & 5.748912E-20, 1.354352E-20, 0.000000E+00 / DATA ( ECS_REF( IACROLEIN_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 2.121896E-20, 3.142855E-20, 4.087763E-20, 4.828621E-20, & 5.748912E-20, 1.354352E-20, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IACROLEIN_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 0.000000E+00 / DATA ( EQY_REF( IACROLEIN_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 0.000000E+00 / DATA ( EQY_REF( IACROLEIN_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 0.000000E+00 / C...IC3ONO2_SAPRC99 C.. I-C3H7ONO2 + HV = PRODUCTS C.. SAPRC-99 Photolysis data. Supplied by William P. L. Carter. C.. Created from PhotDat.xls on 29-Jan-2000 10:07 C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IIC3ONO2_SAPRC99 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IIC3ONO2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.253602E-20, 6.362722E-21, 3.273374E-21, 1.721527E-21, & 2.837941E-22, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( IIC3ONO2_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 1.253602E-20, 6.362722E-21, 3.273374E-21, 1.721527E-21, & 2.837941E-22, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( IIC3ONO2_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 1.253602E-20, 6.362722E-21, 3.273374E-21, 1.721527E-21, & 2.837941E-22, 0.000000E+00, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IIC3ONO2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 5.950289E-01, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( IIC3ONO2_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 5.950289E-01, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( IIC3ONO2_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 5.950289E-01, 0.000000E+00, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IIC3ONO2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.253602E-20, 6.362722E-21, 3.273374E-21, 1.721527E-21, & 2.837921E-22, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( IIC3ONO2_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 1.253602E-20, 6.362722E-21, 3.273374E-21, 1.721527E-21, & 2.837921E-22, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( IIC3ONO2_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 1.253602E-20, 6.362722E-21, 3.273374E-21, 1.721527E-21, & 2.837921E-22, 0.000000E+00, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IIC3ONO2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.999931E-01, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( IIC3ONO2_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.999931E-01, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( IIC3ONO2_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.999931E-01, 0.000000E+00, 0.000000E+00 / C...MGLY_ABS_SAPRC99 C.. Methyl Glyoxal Absorption Cross Sections C.. SAPRC-99 Photolysis data. Supplied by William P. L. Carter. C.. Created from PhotDat.xls on 29-Jan-2000 10:07 C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IMGLY_ABS_SAPRC99 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IMGLY_ABS_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 4.410857E-20, 3.510266E-20, 2.357658E-20, 1.820124E-20, & 6.164736E-21, 3.464746E-20, 1.505659E-20 / DATA ( CS_REF( IMGLY_ABS_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 4.410857E-20, 3.510266E-20, 2.357658E-20, 1.820124E-20, & 6.164736E-21, 3.464746E-20, 1.505659E-20 / DATA ( CS_REF( IMGLY_ABS_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 4.410857E-20, 3.510266E-20, 2.357658E-20, 1.820124E-20, & 6.164736E-21, 3.464746E-20, 1.505659E-20 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IMGLY_ABS_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 2.908495E-01 / DATA ( QY_REF( IMGLY_ABS_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 2.908495E-01 / DATA ( QY_REF( IMGLY_ABS_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 2.908495E-01 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IMGLY_ABS_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 4.410857E-20, 3.510266E-20, 2.357658E-20, 1.820124E-20, & 6.164736E-21, 3.464746E-20, 1.505659E-20 / DATA ( ECS_REF( IMGLY_ABS_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 4.410857E-20, 3.510266E-20, 2.357658E-20, 1.820124E-20, & 6.164736E-21, 3.464746E-20, 1.505659E-20 / DATA ( ECS_REF( IMGLY_ABS_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 4.410857E-20, 3.510266E-20, 2.357658E-20, 1.820124E-20, & 6.164736E-21, 3.464746E-20, 1.505659E-20 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IMGLY_ABS_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 1.000000E+00 / DATA ( EQY_REF( IMGLY_ABS_SAPRC99, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 1.000000E+00 / DATA ( EQY_REF( IMGLY_ABS_SAPRC99, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 1.000000E+00 / C...O3_O3P_IUPAC04 C.. O3 + HV = O(3P) + O2 C.. From IUPAC Subcommittee on Gas Kinetic Data Evaluation C.. Data Sheet POx2, updated 2nd October 2001 C.. Website: http://www.iupac-kinetic.ch.cam.ac.uk/ C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IO3_O3P_IUPAC04 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IO3_O3P_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 8.208109E-19, 2.619094E-19, 1.026330E-19, 4.193888E-20, & 6.469928E-21, 4.985061E-23, 1.620752E-21 / DATA ( CS_REF( IO3_O3P_IUPAC04, 2, IWLR ), IWLR = 1, 7 ) / & 8.208109E-19, 2.619094E-19, 1.026330E-19, 4.193888E-20, & 6.469928E-21, 4.985061E-23, 1.620752E-21 / DATA ( CS_REF( IO3_O3P_IUPAC04, 3, IWLR ), IWLR = 1, 7 ) / & 8.208109E-19, 2.619094E-19, 1.026330E-19, 4.193888E-20, & 6.469928E-21, 4.985061E-23, 1.620752E-21 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IO3_O3P_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E-01, 1.073348E-01, 4.688335E-01, 7.772150E-01, & 9.126695E-01, 9.604713E-01, 8.193054E-01 / DATA ( QY_REF( IO3_O3P_IUPAC04, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E-01, 1.073348E-01, 4.688335E-01, 7.772150E-01, & 9.126695E-01, 9.604713E-01, 8.193054E-01 / DATA ( QY_REF( IO3_O3P_IUPAC04, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E-01, 1.073348E-01, 4.688335E-01, 7.772150E-01, & 9.126695E-01, 9.604713E-01, 8.193054E-01 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IO3_O3P_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 8.208109E-20, 2.749129E-20, 4.637081E-20, 3.223425E-20, & 5.803926E-21, 4.601414E-23, 1.620752E-21 / DATA ( ECS_REF( IO3_O3P_IUPAC04, 2, IWLR ), IWLR = 1, 7 ) / & 8.208109E-20, 2.749129E-20, 4.637081E-20, 3.223425E-20, & 5.803926E-21, 4.601414E-23, 1.620752E-21 / DATA ( ECS_REF( IO3_O3P_IUPAC04, 3, IWLR ), IWLR = 1, 7 ) / & 8.208109E-20, 2.749129E-20, 4.637081E-20, 3.223425E-20, & 5.803926E-21, 4.601414E-23, 1.620752E-21 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IO3_O3P_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E-01, 1.049649E-01, 4.518118E-01, 7.686004E-01, & 8.970618E-01, 9.230406E-01, 1.000000E+00 / DATA ( EQY_REF( IO3_O3P_IUPAC04, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E-01, 1.049649E-01, 4.518118E-01, 7.686004E-01, & 8.970618E-01, 9.230406E-01, 1.000000E+00 / DATA ( EQY_REF( IO3_O3P_IUPAC04, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E-01, 1.049649E-01, 4.518118E-01, 7.686004E-01, & 8.970618E-01, 9.230406E-01, 1.000000E+00 / C...O3_O1D_IUPAC04 C.. O3 + HV = O(1D) + O2 C.. From IUPAC Subcommittee on Gas Kinetic Data Evaluation C.. Data Sheet POx2, updated 2nd October 2001 C.. Website: http://www.iupac-kinetic.ch.cam.ac.uk/ C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IO3_O1D_IUPAC04 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IO3_O1D_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 8.208109E-19, 2.619094E-19, 1.026330E-19, 4.193888E-20, & 6.469928E-21, 4.795595E-23, 0.000000E+00 / DATA ( CS_REF( IO3_O1D_IUPAC04, 2, IWLR ), IWLR = 1, 7 ) / & 8.208109E-19, 2.619094E-19, 1.026330E-19, 4.193888E-20, & 6.469928E-21, 4.795595E-23, 0.000000E+00 / DATA ( CS_REF( IO3_O1D_IUPAC04, 3, IWLR ), IWLR = 1, 7 ) / & 8.208109E-19, 2.619094E-19, 1.026330E-19, 4.193888E-20, & 6.469928E-21, 4.795595E-23, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IO3_O1D_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 9.000000E-01, 8.926651E-01, 5.311664E-01, 2.227850E-01, & 8.733054E-02, 1.887175E-02, 0.000000E+00 / DATA ( QY_REF( IO3_O1D_IUPAC04, 2, IWLR ), IWLR = 1, 7 ) / & 9.000000E-01, 8.926651E-01, 5.311664E-01, 2.227850E-01, & 8.733054E-02, 1.887175E-02, 0.000000E+00 / DATA ( QY_REF( IO3_O1D_IUPAC04, 3, IWLR ), IWLR = 1, 7 ) / & 9.000000E-01, 8.926651E-01, 5.311664E-01, 2.227850E-01, & 8.733054E-02, 1.887175E-02, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IO3_O1D_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 7.387298E-19, 2.344181E-19, 5.626221E-20, 9.704640E-21, & 6.660025E-22, 3.836402E-24, 0.000000E+00 / DATA ( ECS_REF( IO3_O1D_IUPAC04, 2, IWLR ), IWLR = 1, 7 ) / & 7.387298E-19, 2.344181E-19, 5.626221E-20, 9.704640E-21, & 6.660025E-22, 3.836402E-24, 0.000000E+00 / DATA ( ECS_REF( IO3_O1D_IUPAC04, 3, IWLR ), IWLR = 1, 7 ) / & 7.387298E-19, 2.344181E-19, 5.626221E-20, 9.704640E-21, & 6.660025E-22, 3.836402E-24, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IO3_O1D_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 9.000000E-01, 8.950351E-01, 5.481882E-01, 2.313996E-01, & 1.029382E-01, 7.999845E-02, 0.000000E+00 / DATA ( EQY_REF( IO3_O1D_IUPAC04, 2, IWLR ), IWLR = 1, 7 ) / & 9.000000E-01, 8.950351E-01, 5.481882E-01, 2.313996E-01, & 1.029382E-01, 7.999845E-02, 0.000000E+00 / DATA ( EQY_REF( IO3_O1D_IUPAC04, 3, IWLR ), IWLR = 1, 7 ) / & 9.000000E-01, 8.950351E-01, 5.481882E-01, 2.313996E-01, & 1.029382E-01, 7.999845E-02, 0.000000E+00 / C...HONO_IUPAC04 C.. HONO + HV = HO + NO C.. From IUPAC Subcommittee on Gas Kinetic Data Evaluation C.. Data Sheet PNOx1_HONO, updated 16th July 2001 C.. Website: http://www.iupac-kinetic.ch.cam.ac.uk/ C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IHONO_IUPAC04 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IHONO_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 4.758105E-21, 1.609743E-20, 3.108898E-20, & 9.115838E-20, 7.878995E-20, 0.000000E+00 / DATA ( CS_REF( IHONO_IUPAC04, 2, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 4.758105E-21, 1.609743E-20, 3.108898E-20, & 9.115838E-20, 7.878995E-20, 0.000000E+00 / DATA ( CS_REF( IHONO_IUPAC04, 3, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 4.758105E-21, 1.609743E-20, 3.108898E-20, & 9.115838E-20, 7.878995E-20, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IHONO_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 8.285595E-01, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 7.459611E-01, 0.000000E+00 / DATA ( QY_REF( IHONO_IUPAC04, 2, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 8.285595E-01, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 7.459611E-01, 0.000000E+00 / DATA ( QY_REF( IHONO_IUPAC04, 3, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 8.285595E-01, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 7.459611E-01, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IHONO_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 4.758064E-21, 1.609743E-20, 3.108898E-20, & 9.115838E-20, 7.878991E-20, 0.000000E+00 / DATA ( ECS_REF( IHONO_IUPAC04, 2, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 4.758064E-21, 1.609743E-20, 3.108898E-20, & 9.115838E-20, 7.878991E-20, 0.000000E+00 / DATA ( ECS_REF( IHONO_IUPAC04, 3, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 4.758064E-21, 1.609743E-20, 3.108898E-20, & 9.115838E-20, 7.878991E-20, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IHONO_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 9.999914E-01, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999995E-01, 0.000000E+00 / DATA ( EQY_REF( IHONO_IUPAC04, 2, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 9.999914E-01, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999995E-01, 0.000000E+00 / DATA ( EQY_REF( IHONO_IUPAC04, 3, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 9.999914E-01, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999995E-01, 0.000000E+00 / C...HO2NO2_IUPAC04 C.. HOONO2 + HV = products C.. From IUPAC Subcommittee on Gas Kinetic Data Evaluation C.. Data Sheet PNOx3_HO2NO2, updated 16th July 2001 C.. Website: http://www.iupac-kinetic.ch.cam.ac.uk/ C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IHO2NO2_IUPAC04 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IHO2NO2_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 2.585970E-20, 1.082016E-20, 5.509709E-21, 3.477366E-21, & 6.721352E-22, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( IHO2NO2_IUPAC04, 2, IWLR ), IWLR = 1, 7 ) / & 2.585970E-20, 1.082016E-20, 5.509709E-21, 3.477366E-21, & 6.721352E-22, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( IHO2NO2_IUPAC04, 3, IWLR ), IWLR = 1, 7 ) / & 2.585970E-20, 1.082016E-20, 5.509709E-21, 3.477366E-21, & 6.721352E-22, 0.000000E+00, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IHO2NO2_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 5.950289E-01, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( IHO2NO2_IUPAC04, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 5.950289E-01, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( IHO2NO2_IUPAC04, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 5.950289E-01, 0.000000E+00, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IHO2NO2_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 2.585970E-20, 1.082016E-20, 5.509709E-21, 3.477366E-21, & 6.721305E-22, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( IHO2NO2_IUPAC04, 2, IWLR ), IWLR = 1, 7 ) / & 2.585970E-20, 1.082016E-20, 5.509709E-21, 3.477366E-21, & 6.721305E-22, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( IHO2NO2_IUPAC04, 3, IWLR ), IWLR = 1, 7 ) / & 2.585970E-20, 1.082016E-20, 5.509709E-21, 3.477366E-21, & 6.721305E-22, 0.000000E+00, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IHO2NO2_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.999929E-01, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( IHO2NO2_IUPAC04, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.999929E-01, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( IHO2NO2_IUPAC04, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.999929E-01, 0.000000E+00, 0.000000E+00 / C...HNO3_IUPAC04 C.. HONO2 + HV = OH + NO2 C.. From IUPAC Subcommittee on Gas Kinetic Data Evaluation C.. Data Sheet PNOx2_HONO2, updated 16th July 2001 C.. Website: http://www.iupac-kinetic.ch.cam.ac.uk/ C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IHNO3_IUPAC04 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IHNO3_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 4.351450E-21, 1.958802E-21, 8.418979E-22, 3.681581E-22, & 5.035483E-23, 4.637400E-25, 0.000000E+00 / DATA ( CS_REF( IHNO3_IUPAC04, 2, IWLR ), IWLR = 1, 7 ) / & 4.351450E-21, 1.958802E-21, 8.418979E-22, 3.681581E-22, & 5.035483E-23, 4.637400E-25, 0.000000E+00 / DATA ( CS_REF( IHNO3_IUPAC04, 3, IWLR ), IWLR = 1, 7 ) / & 4.351450E-21, 1.958802E-21, 8.418979E-22, 3.681581E-22, & 5.035483E-23, 4.637400E-25, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IHNO3_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.351202E-01, 0.000000E+00 / DATA ( QY_REF( IHNO3_IUPAC04, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.351202E-01, 0.000000E+00 / DATA ( QY_REF( IHNO3_IUPAC04, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.351202E-01, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IHNO3_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 4.351450E-21, 1.958802E-21, 8.418979E-22, 3.681581E-22, & 5.035483E-23, 4.637264E-25, 0.000000E+00 / DATA ( ECS_REF( IHNO3_IUPAC04, 2, IWLR ), IWLR = 1, 7 ) / & 4.351450E-21, 1.958802E-21, 8.418979E-22, 3.681581E-22, & 5.035483E-23, 4.637264E-25, 0.000000E+00 / DATA ( ECS_REF( IHNO3_IUPAC04, 3, IWLR ), IWLR = 1, 7 ) / & 4.351450E-21, 1.958802E-21, 8.418979E-22, 3.681581E-22, & 5.035483E-23, 4.637264E-25, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IHNO3_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999707E-01, 0.000000E+00 / DATA ( EQY_REF( IHNO3_IUPAC04, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999707E-01, 0.000000E+00 / DATA ( EQY_REF( IHNO3_IUPAC04, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999707E-01, 0.000000E+00 / C...N2O5_IUPAC04 C.. N2O5 + HV = NO2 + NO3 C.. From IUPAC Subcommittee on Gas Kinetic Data Evaluation C.. Data Sheet PNOx7_N2O5, updated 16th July 2001 C.. Website: http://www.iupac-kinetic.ch.cam.ac.uk/ C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IN2O5_IUPAC04 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IN2O5_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 5.282711E-20, 3.287780E-20, 2.187781E-20, 1.518603E-20, & 6.206631E-21, 6.826251E-22, 1.900982E-25 / DATA ( CS_REF( IN2O5_IUPAC04, 2, IWLR ), IWLR = 1, 7 ) / & 5.282711E-20, 3.287780E-20, 2.187781E-20, 1.518603E-20, & 6.206631E-21, 6.826251E-22, 1.900982E-25 / DATA ( CS_REF( IN2O5_IUPAC04, 3, IWLR ), IWLR = 1, 7 ) / & 5.282711E-20, 3.287780E-20, 2.187781E-20, 1.518603E-20, & 6.206631E-21, 6.826251E-22, 1.900982E-25 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IN2O5_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 9.225487E-01, 9.980785E-01, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 9.282069E-03 / DATA ( QY_REF( IN2O5_IUPAC04, 2, IWLR ), IWLR = 1, 7 ) / & 9.225487E-01, 9.980785E-01, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 9.282069E-03 / DATA ( QY_REF( IN2O5_IUPAC04, 3, IWLR ), IWLR = 1, 7 ) / & 9.225487E-01, 9.980785E-01, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 9.282069E-03 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IN2O5_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 4.853734E-20, 3.279835E-20, 2.187781E-20, 1.518603E-20, & 6.206631E-21, 6.826251E-22, 1.900108E-25 / DATA ( ECS_REF( IN2O5_IUPAC04, 2, IWLR ), IWLR = 1, 7 ) / & 4.853734E-20, 3.279835E-20, 2.187781E-20, 1.518603E-20, & 6.206631E-21, 6.826251E-22, 1.900108E-25 / DATA ( ECS_REF( IN2O5_IUPAC04, 3, IWLR ), IWLR = 1, 7 ) / & 4.853734E-20, 3.279835E-20, 2.187781E-20, 1.518603E-20, & 6.206631E-21, 6.826251E-22, 1.900108E-25 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IN2O5_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 9.187960E-01, 9.975836E-01, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 9.995402E-01 / DATA ( EQY_REF( IN2O5_IUPAC04, 2, IWLR ), IWLR = 1, 7 ) / & 9.187960E-01, 9.975836E-01, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 9.995402E-01 / DATA ( EQY_REF( IN2O5_IUPAC04, 3, IWLR ), IWLR = 1, 7 ) / & 9.187960E-01, 9.975836E-01, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 9.995402E-01 / C...NTR_IUPAC04 C.. i-C3H7ONO2 + HV = iC3H7O + NO2 C.. From IUPAC Subcommittee on Gas Kinetic Data Evaluation C.. Data Sheet P17_i-C3H7ONO2+hv, updated 16th July 2001 C.. Website: http://www.iupac-kinetic.ch.cam.ac.uk/ C... reference temperatures (K) DATA ( TEMP_REF( ITTR, INTR_IUPAC04 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( INTR_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 1.226895E-20, 6.122152E-21, 2.999441E-21, 1.495104E-21, & 2.339986E-22, 1.431077E-24, 0.000000E+00 / DATA ( CS_REF( INTR_IUPAC04, 2, IWLR ), IWLR = 1, 7 ) / & 1.226895E-20, 6.122152E-21, 2.999441E-21, 1.495104E-21, & 2.339986E-22, 1.431077E-24, 0.000000E+00 / DATA ( CS_REF( INTR_IUPAC04, 3, IWLR ), IWLR = 1, 7 ) / & 1.226895E-20, 6.122152E-21, 2.999441E-21, 1.495104E-21, & 2.339986E-22, 1.431077E-24, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( INTR_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 2.623016E-01, 0.000000E+00 / DATA ( QY_REF( INTR_IUPAC04, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 2.623016E-01, 0.000000E+00 / DATA ( QY_REF( INTR_IUPAC04, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 2.623016E-01, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( INTR_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 1.226895E-20, 6.122152E-21, 2.999441E-21, 1.495104E-21, & 2.339986E-22, 1.431070E-24, 0.000000E+00 / DATA ( ECS_REF( INTR_IUPAC04, 2, IWLR ), IWLR = 1, 7 ) / & 1.226895E-20, 6.122152E-21, 2.999441E-21, 1.495104E-21, & 2.339986E-22, 1.431070E-24, 0.000000E+00 / DATA ( ECS_REF( INTR_IUPAC04, 3, IWLR ), IWLR = 1, 7 ) / & 1.226895E-20, 6.122152E-21, 2.999441E-21, 1.495104E-21, & 2.339986E-22, 1.431070E-24, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( INTR_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999954E-01, 0.000000E+00 / DATA ( EQY_REF( INTR_IUPAC04, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999954E-01, 0.000000E+00 / DATA ( EQY_REF( INTR_IUPAC04, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999954E-01, 0.000000E+00 / C...PAN_IUPAC04 C.. CH3C(O)OONO2 + HV = CH3C(O)OO + NO2 C.. From IUPAC Subcommittee on Gas Kinetic Data Evaluation C.. Data Sheet P21_CH3C(O)OONO2+hv, updated 16th July 2001 C.. Website: http://www.iupac-kinetic.ch.cam.ac.uk/ C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IPAN_IUPAC04 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IPAN_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 3.523355E-21, 1.420651E-21, 6.704418E-22, 3.663942E-22, & 9.453910E-23, 1.582222E-24, 0.000000E+00 / DATA ( CS_REF( IPAN_IUPAC04, 2, IWLR ), IWLR = 1, 7 ) / & 3.523355E-21, 1.420651E-21, 6.704418E-22, 3.663942E-22, & 9.453910E-23, 1.582222E-24, 0.000000E+00 / DATA ( CS_REF( IPAN_IUPAC04, 3, IWLR ), IWLR = 1, 7 ) / & 3.523355E-21, 1.420651E-21, 6.704418E-22, 3.663942E-22, & 9.453910E-23, 1.582222E-24, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IPAN_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 7.995215E-02, 0.000000E+00 / DATA ( QY_REF( IPAN_IUPAC04, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 7.995215E-02, 0.000000E+00 / DATA ( QY_REF( IPAN_IUPAC04, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 7.995215E-02, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IPAN_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 3.523355E-21, 1.420651E-21, 6.704418E-22, 3.663942E-22, & 9.453910E-23, 1.581996E-24, 0.000000E+00 / DATA ( ECS_REF( IPAN_IUPAC04, 2, IWLR ), IWLR = 1, 7 ) / & 3.523355E-21, 1.420651E-21, 6.704418E-22, 3.663942E-22, & 9.453910E-23, 1.581996E-24, 0.000000E+00 / DATA ( ECS_REF( IPAN_IUPAC04, 3, IWLR ), IWLR = 1, 7 ) / & 3.523355E-21, 1.420651E-21, 6.704418E-22, 3.663942E-22, & 9.453910E-23, 1.581996E-24, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IPAN_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.998567E-01, 0.000000E+00 / DATA ( EQY_REF( IPAN_IUPAC04, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.998567E-01, 0.000000E+00 / DATA ( EQY_REF( IPAN_IUPAC04, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.998567E-01, 0.000000E+00 / C...PACD_CB05 C.. PACD + HV = MEO2 + OH C.. CB05 Photolysis data for PACD C.. Supplied by Greg Yarwood, 11/16/2007 C.. Ref: Gigure, P. A. and A. W. Olmos. Sur le spectre ultraviolet de l'acide peractique et l'hydrolyse des peractates. C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IPACD_CB05 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IPACD_CB05, 1, IWLR ), IWLR = 1, 7 ) / & 7.747792E-22, 4.132827E-22, 2.422399E-22, 1.533387E-22, & 2.881389E-23, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( IPACD_CB05, 2, IWLR ), IWLR = 1, 7 ) / & 7.747792E-22, 4.132827E-22, 2.422399E-22, 1.533387E-22, & 2.881389E-23, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( IPACD_CB05, 3, IWLR ), IWLR = 1, 7 ) / & 7.747792E-22, 4.132827E-22, 2.422399E-22, 1.533387E-22, & 2.881389E-23, 0.000000E+00, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IPACD_CB05, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 3.826614E-01, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( IPACD_CB05, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 3.826614E-01, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( IPACD_CB05, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 3.826614E-01, 0.000000E+00, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IPACD_CB05, 1, IWLR ), IWLR = 1, 7 ) / & 7.747792E-22, 4.132827E-22, 2.422399E-22, 1.533387E-22, & 2.876751E-23, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( IPACD_CB05, 2, IWLR ), IWLR = 1, 7 ) / & 7.747792E-22, 4.132827E-22, 2.422399E-22, 1.533387E-22, & 2.876751E-23, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( IPACD_CB05, 3, IWLR ), IWLR = 1, 7 ) / & 7.747792E-22, 4.132827E-22, 2.422399E-22, 1.533387E-22, & 2.876751E-23, 0.000000E+00, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IPACD_CB05, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.983906E-01, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( IPACD_CB05, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.983906E-01, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( IPACD_CB05, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.983906E-01, 0.000000E+00, 0.000000E+00 / C...MGLY_IUPAC04 C.. CH3COCHO + hv ---> CH3CO + HCO C.. From IUPAC Subcommittee on Gas Kinetic Data Evaluation; IUPAC Stern-Volmer expression C.. Data Sheet P6_CH3COCHO+hv.pdf, updated 16th Jan, 2003 C.. Website: http://www.iupac-kinetic.ch.cam.ac.uk/ C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IMGLY_IUPAC04 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IMGLY_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 4.377988E-20, 3.467536E-20, 2.425079E-20, 1.793719E-20, & 6.357002E-21, 3.467224E-20, 1.501109E-20 / DATA ( CS_REF( IMGLY_IUPAC04, 2, IWLR ), IWLR = 1, 7 ) / & 4.377988E-20, 3.467536E-20, 2.425079E-20, 1.793719E-20, & 6.357002E-21, 3.467224E-20, 1.501109E-20 / DATA ( CS_REF( IMGLY_IUPAC04, 3, IWLR ), IWLR = 1, 7 ) / & 4.377988E-20, 3.467536E-20, 2.425079E-20, 1.793719E-20, & 6.357002E-21, 3.467224E-20, 1.501109E-20 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IMGLY_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 5.552968E-01, 4.758768E-03 / DATA ( QY_REF( IMGLY_IUPAC04, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 5.552968E-01, 4.758768E-03 / DATA ( QY_REF( IMGLY_IUPAC04, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 5.552968E-01, 4.758768E-03 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IMGLY_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 4.377988E-20, 3.467536E-20, 2.425079E-20, 1.793719E-20, & 6.357002E-21, 8.277275E-21, 4.106772E-22 / DATA ( ECS_REF( IMGLY_IUPAC04, 2, IWLR ), IWLR = 1, 7 ) / & 4.377988E-20, 3.467536E-20, 2.425079E-20, 1.793719E-20, & 6.357002E-21, 8.277275E-21, 4.106772E-22 / DATA ( ECS_REF( IMGLY_IUPAC04, 3, IWLR ), IWLR = 1, 7 ) / & 4.377988E-20, 3.467536E-20, 2.425079E-20, 1.793719E-20, & 6.357002E-21, 8.277275E-21, 4.106772E-22 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IMGLY_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 2.387292E-01, 2.735824E-02 / DATA ( EQY_REF( IMGLY_IUPAC04, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 2.387292E-01, 2.735824E-02 / DATA ( EQY_REF( IMGLY_IUPAC04, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 2.387292E-01, 2.735824E-02 / C...CL2_IUPAC04 C.. CL2 + HV = 2*CL C.. IUPAC Subcommittee on Gas Kinetic Data Evaluation; Data Sheet PCl11 Website: 15th December 2000 C.. Website: http://www.iupac-kinetic.ch.cam.ac.uk C.. Assume these are point values (not specified in data source) C... reference temperatures (K) DATA ( TEMP_REF( ITTR, ICL2_IUPAC04 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( ICL2_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 8.837280E-20, 1.399567E-19, 1.844070E-19, 2.181722E-19, & 2.414089E-19, 7.097299E-20, 1.168854E-21 / DATA ( CS_REF( ICL2_IUPAC04, 2, IWLR ), IWLR = 1, 7 ) / & 8.837280E-20, 1.399567E-19, 1.844070E-19, 2.181722E-19, & 2.414089E-19, 7.097299E-20, 1.168854E-21 / DATA ( CS_REF( ICL2_IUPAC04, 3, IWLR ), IWLR = 1, 7 ) / & 8.837280E-20, 1.399567E-19, 1.844070E-19, 2.181722E-19, & 2.414089E-19, 7.097299E-20, 1.168854E-21 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( ICL2_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 2.073897E-01 / DATA ( QY_REF( ICL2_IUPAC04, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 2.073897E-01 / DATA ( QY_REF( ICL2_IUPAC04, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 2.073897E-01 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( ICL2_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 8.837280E-20, 1.399567E-19, 1.844070E-19, 2.181722E-19, & 2.414089E-19, 7.097299E-20, 1.168687E-21 / DATA ( ECS_REF( ICL2_IUPAC04, 2, IWLR ), IWLR = 1, 7 ) / & 8.837280E-20, 1.399567E-19, 1.844070E-19, 2.181722E-19, & 2.414089E-19, 7.097299E-20, 1.168687E-21 / DATA ( ECS_REF( ICL2_IUPAC04, 3, IWLR ), IWLR = 1, 7 ) / & 8.837280E-20, 1.399567E-19, 1.844070E-19, 2.181722E-19, & 2.414089E-19, 7.097299E-20, 1.168687E-21 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( ICL2_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 9.998571E-01 / DATA ( EQY_REF( ICL2_IUPAC04, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 9.998571E-01 / DATA ( EQY_REF( ICL2_IUPAC04, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 9.998571E-01 / C...HOCL_IUPAC04 C.. HOCL + HV = HO + CL C.. IUPAC Subcommittee on Gas Kinetic Data Evaluation; Data Sheet PCl2 Website: 15th December 2000 C.. Website: http://www.iupac-kinetic.ch.cam.ac.uk C.. Assume these are point values - not specified in data source C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IHOCL_IUPAC04 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IHOCL_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 5.572037E-20, 6.066260E-20, 5.955837E-20, 5.386086E-20, & 3.171168E-20, 6.944975E-21, 2.435396E-23 / DATA ( CS_REF( IHOCL_IUPAC04, 2, IWLR ), IWLR = 1, 7 ) / & 5.572037E-20, 6.066260E-20, 5.955837E-20, 5.386086E-20, & 3.171168E-20, 6.944975E-21, 2.435396E-23 / DATA ( CS_REF( IHOCL_IUPAC04, 3, IWLR ), IWLR = 1, 7 ) / & 5.572037E-20, 6.066260E-20, 5.955837E-20, 5.386086E-20, & 3.171168E-20, 6.944975E-21, 2.435396E-23 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IHOCL_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 2.741205E-02 / DATA ( QY_REF( IHOCL_IUPAC04, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 2.741205E-02 / DATA ( QY_REF( IHOCL_IUPAC04, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 2.741205E-02 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IHOCL_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 5.572037E-20, 6.066260E-20, 5.955837E-20, 5.386086E-20, & 3.171168E-20, 6.944975E-21, 2.425303E-23 / DATA ( ECS_REF( IHOCL_IUPAC04, 2, IWLR ), IWLR = 1, 7 ) / & 5.572037E-20, 6.066260E-20, 5.955837E-20, 5.386086E-20, & 3.171168E-20, 6.944975E-21, 2.425303E-23 / DATA ( ECS_REF( IHOCL_IUPAC04, 3, IWLR ), IWLR = 1, 7 ) / & 5.572037E-20, 6.066260E-20, 5.955837E-20, 5.386086E-20, & 3.171168E-20, 6.944975E-21, 2.425303E-23 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IHOCL_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 9.958555E-01 / DATA ( EQY_REF( IHOCL_IUPAC04, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 9.958555E-01 / DATA ( EQY_REF( IHOCL_IUPAC04, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 9.958555E-01 / C...FMCL_IUPAC04 C.. FMCL + hv --> HCO + CL C.. IUPAC Subcommittee on Gas Kinetic Data Evaluation; Data Sheet PCl28 Website: 15th December 2000 C.. Website: http://www.iupac-kinetic.ch.cam.ac.uk C.. Reference: H. G. Libuda, F. Zabel, E. H. Fink, and K. H. Becker, J. Phys. Chem. 94, 5860 (1990) C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IFMCL_IUPAC04 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IFMCL_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 5.296061E-21, 1.428731E-21, 2.229037E-22, 8.498279E-23, & 0.000000E+00, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( IFMCL_IUPAC04, 2, IWLR ), IWLR = 1, 7 ) / & 5.296061E-21, 1.428731E-21, 2.229037E-22, 8.498279E-23, & 0.000000E+00, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( IFMCL_IUPAC04, 3, IWLR ), IWLR = 1, 7 ) / & 5.296061E-21, 1.428731E-21, 2.229037E-22, 8.498279E-23, & 0.000000E+00, 0.000000E+00, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IFMCL_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 7.921222E-01, & 0.000000E+00, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( IFMCL_IUPAC04, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 7.921222E-01, & 0.000000E+00, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( IFMCL_IUPAC04, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 7.921222E-01, & 0.000000E+00, 0.000000E+00, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IFMCL_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 5.296061E-21, 1.428731E-21, 2.229037E-22, 8.480686E-23, & 0.000000E+00, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( IFMCL_IUPAC04, 2, IWLR ), IWLR = 1, 7 ) / & 5.296061E-21, 1.428731E-21, 2.229037E-22, 8.480686E-23, & 0.000000E+00, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( IFMCL_IUPAC04, 3, IWLR ), IWLR = 1, 7 ) / & 5.296061E-21, 1.428731E-21, 2.229037E-22, 8.480686E-23, & 0.000000E+00, 0.000000E+00, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IFMCL_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 9.979299E-01, & 0.000000E+00, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( IFMCL_IUPAC04, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 9.979299E-01, & 0.000000E+00, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( IFMCL_IUPAC04, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 9.979299E-01, & 0.000000E+00, 0.000000E+00, 0.000000E+00 / C...NO2 C.. NO2 + HV = NO + O C.. From NASA (2006). C.. Absorption cross sections are averages for wavelength intervals given. C.. Data alligned to smallest wavelength intervals for abs. coefs and qy's. C.. C... reference temperatures (K) DATA ( TEMP_REF( ITTR, INO2 ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( INO2, 1, IWLR ), IWLR = 1, 7 ) / & 1.076237E-19, 1.482865E-19, 1.884280E-19, 2.269908E-19, & 3.422504E-19, 5.707211E-19, 2.476857E-20 / DATA ( CS_REF( INO2, 2, IWLR ), IWLR = 1, 7 ) / & 1.076237E-19, 1.482865E-19, 1.884280E-19, 2.269908E-19, & 3.422504E-19, 5.707211E-19, 2.476857E-20 / DATA ( CS_REF( INO2, 3, IWLR ), IWLR = 1, 7 ) / & 1.076237E-19, 1.482865E-19, 1.884280E-19, 2.269908E-19, & 3.422504E-19, 5.707211E-19, 2.476857E-20 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( INO2, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 8.354442E-01, 1.556473E-03 / DATA ( QY_REF( INO2, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 8.354442E-01, 1.556473E-03 / DATA ( QY_REF( INO2, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 8.354442E-01, 1.556473E-03 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( INO2, 1, IWLR ), IWLR = 1, 7 ) / & 1.076237E-19, 1.482865E-19, 1.884280E-19, 2.269908E-19, & 3.422504E-19, 4.705641E-19, 9.288722E-22 / DATA ( ECS_REF( INO2, 2, IWLR ), IWLR = 1, 7 ) / & 1.076237E-19, 1.482865E-19, 1.884280E-19, 2.269908E-19, & 3.422504E-19, 4.705641E-19, 9.288722E-22 / DATA ( ECS_REF( INO2, 3, IWLR ), IWLR = 1, 7 ) / & 1.076237E-19, 1.482865E-19, 1.884280E-19, 2.269908E-19, & 3.422504E-19, 4.705641E-19, 9.288722E-22 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( INO2, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 8.245080E-01, 3.750205E-02 / DATA ( EQY_REF( INO2, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 8.245080E-01, 3.750205E-02 / DATA ( EQY_REF( INO2, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 8.245080E-01, 3.750205E-02 / C...O3O1D C.. O3 + HV = O1D + O2 C.. NASA (2006) abs. Coefs and IUPAC (2006) quantum yields C.. Absorption cross sections from NASA (2006). C.. Quantum yields are from IUPAC (2006) recommendation, interpolated C.. to the NASA (2006) absorption cross section wavelengths. C.. NASA (2006) does not give useable recommendations for the absorption C.. cross sections, except at <305 and >329 nm, where they are consistent C.. with the IUPAC recommendations. C.. Formation of O1D assumed not to occur at the high wavelength band. C.. C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IO3O1D ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IO3O1D, 1, IWLR ), IWLR = 1, 7 ) / & 8.519092E-19, 2.756369E-19, 1.058103E-19, 4.660382E-20, & 6.954922E-21, 6.413300E-23, 0.000000E+00 / DATA ( CS_REF( IO3O1D, 2, IWLR ), IWLR = 1, 7 ) / & 8.519092E-19, 2.756369E-19, 1.058103E-19, 4.660382E-20, & 6.954922E-21, 6.413300E-23, 0.000000E+00 / DATA ( CS_REF( IO3O1D, 3, IWLR ), IWLR = 1, 7 ) / & 8.519092E-19, 2.756369E-19, 1.058103E-19, 4.660382E-20, & 6.954922E-21, 6.413300E-23, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IO3O1D, 1, IWLR ), IWLR = 1, 7 ) / & 9.000000E-01, 8.926651E-01, 5.311664E-01, 2.227850E-01, & 8.767726E-02, 4.585904E-02, 0.000000E+00 / DATA ( QY_REF( IO3O1D, 2, IWLR ), IWLR = 1, 7 ) / & 9.000000E-01, 8.926651E-01, 5.311664E-01, 2.227850E-01, & 8.767726E-02, 4.585904E-02, 0.000000E+00 / DATA ( QY_REF( IO3O1D, 3, IWLR ), IWLR = 1, 7 ) / & 9.000000E-01, 8.926651E-01, 5.311664E-01, 2.227850E-01, & 8.767726E-02, 4.585904E-02, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IO3O1D, 1, IWLR ), IWLR = 1, 7 ) / & 7.667183E-19, 2.468925E-19, 5.994369E-20, 1.079729E-20, & 7.086030E-22, 5.114812E-24, 0.000000E+00 / DATA ( ECS_REF( IO3O1D, 2, IWLR ), IWLR = 1, 7 ) / & 7.667183E-19, 2.468925E-19, 5.994369E-20, 1.079729E-20, & 7.086030E-22, 5.114812E-24, 0.000000E+00 / DATA ( ECS_REF( IO3O1D, 3, IWLR ), IWLR = 1, 7 ) / & 7.667183E-19, 2.468925E-19, 5.994369E-20, 1.079729E-20, & 7.086030E-22, 5.114812E-24, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IO3O1D, 1, IWLR ), IWLR = 1, 7 ) / & 9.000000E-01, 8.957165E-01, 5.665205E-01, 2.316824E-01, & 1.018851E-01, 7.975321E-02, 0.000000E+00 / DATA ( EQY_REF( IO3O1D, 2, IWLR ), IWLR = 1, 7 ) / & 9.000000E-01, 8.957165E-01, 5.665205E-01, 2.316824E-01, & 1.018851E-01, 7.975321E-02, 0.000000E+00 / DATA ( EQY_REF( IO3O1D, 3, IWLR ), IWLR = 1, 7 ) / & 9.000000E-01, 8.957165E-01, 5.665205E-01, 2.316824E-01, & 1.018851E-01, 7.975321E-02, 0.000000E+00 / C...O3O3P C.. O3 + HV = O3P + O2 C.. Absorption cross sections from NASA (2006). C.. Quantum yields are derived from the O1D quantum yields in the low wavelength re C.. Unit quantum yields assumed in high wavelength region. C.. Absorption cross sections below 829 nm are extrapolated C.. C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IO3O3P ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IO3O3P, 1, IWLR ), IWLR = 1, 7 ) / & 8.387662E-19, 2.754982E-19, 1.058103E-19, 4.660382E-20, & 7.174786E-21, 7.032893E-23, 1.701844E-21 / DATA ( CS_REF( IO3O3P, 2, IWLR ), IWLR = 1, 7 ) / & 8.387662E-19, 2.754982E-19, 1.058103E-19, 4.660382E-20, & 7.174786E-21, 7.032893E-23, 1.701844E-21 / DATA ( CS_REF( IO3O3P, 3, IWLR ), IWLR = 1, 7 ) / & 8.387662E-19, 2.754982E-19, 1.058103E-19, 4.660382E-20, & 7.174786E-21, 7.032893E-23, 1.701844E-21 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IO3O3P, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E-01, 1.073348E-01, 4.688335E-01, 7.772150E-01, & 9.115356E-01, 9.541410E-01, 9.901482E-01 / DATA ( QY_REF( IO3O3P, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E-01, 1.073348E-01, 4.688335E-01, 7.772150E-01, & 9.115356E-01, 9.541410E-01, 9.901482E-01 / DATA ( QY_REF( IO3O3P, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E-01, 1.073348E-01, 4.688335E-01, 7.772150E-01, & 9.115356E-01, 9.541410E-01, 9.901482E-01 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IO3O3P, 1, IWLR ), IWLR = 1, 7 ) / & 8.387662E-20, 2.873049E-20, 4.586660E-20, 3.580654E-20, & 6.431878E-21, 6.521411E-23, 1.701844E-21 / DATA ( ECS_REF( IO3O3P, 2, IWLR ), IWLR = 1, 7 ) / & 8.387662E-20, 2.873049E-20, 4.586660E-20, 3.580654E-20, & 6.431878E-21, 6.521411E-23, 1.701844E-21 / DATA ( ECS_REF( IO3O3P, 3, IWLR ), IWLR = 1, 7 ) / & 8.387662E-20, 2.873049E-20, 4.586660E-20, 3.580654E-20, & 6.431878E-21, 6.521411E-23, 1.701844E-21 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IO3O3P, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E-01, 1.042856E-01, 4.334796E-01, 7.683176E-01, & 8.964556E-01, 9.272730E-01, 1.000000E+00 / DATA ( EQY_REF( IO3O3P, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E-01, 1.042856E-01, 4.334796E-01, 7.683176E-01, & 8.964556E-01, 9.272730E-01, 1.000000E+00 / DATA ( EQY_REF( IO3O3P, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E-01, 1.042856E-01, 4.334796E-01, 7.683176E-01, & 8.964556E-01, 9.272730E-01, 1.000000E+00 / C...KETONE C.. MEK absorption cross sections C.. IUPAC Subcommittee on Gas Kinetic Data Evaluation Data Sheet P8 C.. This datasheet updated: 5th December 2005. C.. Website: http://www.iupac-kinetic.ch.cam.ac.uk/. C.. Note that recommended quantum yield is 0.34 and SAPRC07T sets C.. value to 0.175 in mechanism definition file C.. C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IKETONE ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IKETONE, 1, IWLR ), IWLR = 1, 7 ) / & 4.163253E-20, 2.690433E-20, 1.567194E-20, 7.784590E-21, & 8.652938E-22, 1.986233E-25, 0.000000E+00 / DATA ( CS_REF( IKETONE, 2, IWLR ), IWLR = 1, 7 ) / & 4.163253E-20, 2.690433E-20, 1.567194E-20, 7.784590E-21, & 8.652938E-22, 1.986233E-25, 0.000000E+00 / DATA ( CS_REF( IKETONE, 3, IWLR ), IWLR = 1, 7 ) / & 4.163253E-20, 2.690433E-20, 1.567194E-20, 7.784590E-21, & 8.652938E-22, 1.986233E-25, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IKETONE, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 2.689541E-02, 0.000000E+00 / DATA ( QY_REF( IKETONE, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 2.689541E-02, 0.000000E+00 / DATA ( QY_REF( IKETONE, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 2.689541E-02, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IKETONE, 1, IWLR ), IWLR = 1, 7 ) / & 4.163253E-20, 2.690433E-20, 1.567194E-20, 7.784590E-21, & 8.652938E-22, 1.984605E-25, 0.000000E+00 / DATA ( ECS_REF( IKETONE, 2, IWLR ), IWLR = 1, 7 ) / & 4.163253E-20, 2.690433E-20, 1.567194E-20, 7.784590E-21, & 8.652938E-22, 1.984605E-25, 0.000000E+00 / DATA ( ECS_REF( IKETONE, 3, IWLR ), IWLR = 1, 7 ) / & 4.163253E-20, 2.690433E-20, 1.567194E-20, 7.784590E-21, & 8.652938E-22, 1.984605E-25, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IKETONE, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.991803E-01, 0.000000E+00 / DATA ( EQY_REF( IKETONE, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.991803E-01, 0.000000E+00 / DATA ( EQY_REF( IKETONE, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.991803E-01, 0.000000E+00 / C...MGLY_ABS C.. Methyl Glyoxal Absorption Cross Sections C.. SAPRC-99 Photolysis data. Supplied by William P. L. Carter. C.. Created from PhotDat.xls on 29-Jan-2000 10:07 C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IMGLY_ABS ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IMGLY_ABS, 1, IWLR ), IWLR = 1, 7 ) / & 4.410857E-20, 3.510266E-20, 2.357658E-20, 1.820124E-20, & 6.164736E-21, 3.464746E-20, 1.505659E-20 / DATA ( CS_REF( IMGLY_ABS, 2, IWLR ), IWLR = 1, 7 ) / & 4.410857E-20, 3.510266E-20, 2.357658E-20, 1.820124E-20, & 6.164736E-21, 3.464746E-20, 1.505659E-20 / DATA ( CS_REF( IMGLY_ABS, 3, IWLR ), IWLR = 1, 7 ) / & 4.410857E-20, 3.510266E-20, 2.357658E-20, 1.820124E-20, & 6.164736E-21, 3.464746E-20, 1.505659E-20 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IMGLY_ABS, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 2.908495E-01 / DATA ( QY_REF( IMGLY_ABS, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 2.908495E-01 / DATA ( QY_REF( IMGLY_ABS, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 2.908495E-01 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IMGLY_ABS, 1, IWLR ), IWLR = 1, 7 ) / & 4.410857E-20, 3.510266E-20, 2.357658E-20, 1.820124E-20, & 6.164736E-21, 3.464746E-20, 1.505659E-20 / DATA ( ECS_REF( IMGLY_ABS, 2, IWLR ), IWLR = 1, 7 ) / & 4.410857E-20, 3.510266E-20, 2.357658E-20, 1.820124E-20, & 6.164736E-21, 3.464746E-20, 1.505659E-20 / DATA ( ECS_REF( IMGLY_ABS, 3, IWLR ), IWLR = 1, 7 ) / & 4.410857E-20, 3.510266E-20, 2.357658E-20, 1.820124E-20, & 6.164736E-21, 3.464746E-20, 1.505659E-20 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IMGLY_ABS, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 1.000000E+00 / DATA ( EQY_REF( IMGLY_ABS, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 1.000000E+00 / DATA ( EQY_REF( IMGLY_ABS, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 1.000000E+00 / C...MGLY_ADJ C.. MGLY + HV = PRODUCTS C.. SAPRC-99 Photolysis data. Supplied by William P. L. Carter. C.. Created from PhotDat.xls on 29-Jan-2000 10:07 C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IMGLY_ADJ ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IMGLY_ADJ, 1, IWLR ), IWLR = 1, 7 ) / & 4.410857E-20, 3.510266E-20, 2.357658E-20, 1.820124E-20, & 6.164736E-21, 3.464746E-20, 3.074720E-21 / DATA ( CS_REF( IMGLY_ADJ, 2, IWLR ), IWLR = 1, 7 ) / & 4.410857E-20, 3.510266E-20, 2.357658E-20, 1.820124E-20, & 6.164736E-21, 3.464746E-20, 3.074720E-21 / DATA ( CS_REF( IMGLY_ADJ, 3, IWLR ), IWLR = 1, 7 ) / & 4.410857E-20, 3.510266E-20, 2.357658E-20, 1.820124E-20, & 6.164736E-21, 3.464746E-20, 3.074720E-21 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IMGLY_ADJ, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.993793E-01, 4.093204E-01, 0.000000E+00 / DATA ( QY_REF( IMGLY_ADJ, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.993793E-01, 4.093204E-01, 0.000000E+00 / DATA ( QY_REF( IMGLY_ADJ, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.993793E-01, 4.093204E-01, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IMGLY_ADJ, 1, IWLR ), IWLR = 1, 7 ) / & 4.410857E-20, 3.510266E-20, 2.357658E-20, 1.820124E-20, & 6.162925E-21, 6.143782E-21, 0.000000E+00 / DATA ( ECS_REF( IMGLY_ADJ, 2, IWLR ), IWLR = 1, 7 ) / & 4.410857E-20, 3.510266E-20, 2.357658E-20, 1.820124E-20, & 6.162925E-21, 6.143782E-21, 0.000000E+00 / DATA ( ECS_REF( IMGLY_ADJ, 3, IWLR ), IWLR = 1, 7 ) / & 4.410857E-20, 3.510266E-20, 2.357658E-20, 1.820124E-20, & 6.162925E-21, 6.143782E-21, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IMGLY_ADJ, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.997061E-01, 1.773227E-01, 0.000000E+00 / DATA ( EQY_REF( IMGLY_ADJ, 2, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.997061E-01, 1.773227E-01, 0.000000E+00 / DATA ( EQY_REF( IMGLY_ADJ, 3, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.997061E-01, 1.773227E-01, 0.000000E+00 / C...ACETONE C.. CH3-CO-CH3 + HV = Radical products C.. IUPAC Subcommittee on Gas Kinetic Data Evaluation Data Sheet P7 C.. This datasheet updated: 19th December 2005. C.. Website: http://www.iupac-kinetic.ch.cam.ac.uk/. C.. IUPAC recommendations used for both absorption cross sections and quantum yield C.. Cross sections and quantum yields are for 298K only. C.. Uncertain whether the cross sections are calculated correctly from the complex C.. C... reference temperatures (K) DATA ( TEMP_REF( ITTR, IACETONE ), ITTR=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IACETONE, 1, IWLR ), IWLR = 1, 7 ) / & 3.460821E-20, 2.278628E-20, 1.362906E-20, 7.428147E-21, & 9.464437E-22, 9.957367E-25, 0.000000E+00 / DATA ( CS_REF( IACETONE, 2, IWLR ), IWLR = 1, 7 ) / & 3.460821E-20, 2.278628E-20, 1.362906E-20, 7.428147E-21, & 9.464437E-22, 9.957367E-25, 0.000000E+00 / DATA ( CS_REF( IACETONE, 3, IWLR ), IWLR = 1, 7 ) / & 3.460821E-20, 2.278628E-20, 1.362906E-20, 7.428147E-21, & 9.464437E-22, 9.957367E-25, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IACETONE, 1, IWLR ), IWLR = 1, 7 ) / & 3.454557E-01, 2.098742E-01, 8.525195E-02, 3.909341E-02, & 9.695551E-03, 1.622317E-04, 0.000000E+00 / DATA ( QY_REF( IACETONE, 2, IWLR ), IWLR = 1, 7 ) / & 3.454557E-01, 2.098742E-01, 8.525195E-02, 3.909341E-02, & 9.695551E-03, 1.622317E-04, 0.000000E+00 / DATA ( QY_REF( IACETONE, 3, IWLR ), IWLR = 1, 7 ) / & 3.454557E-01, 2.098742E-01, 8.525195E-02, 3.909341E-02, & 9.695551E-03, 1.622317E-04, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IACETONE, 1, IWLR ), IWLR = 1, 7 ) / & 1.205182E-20, 4.966170E-21, 1.192478E-21, 3.105726E-22, & 1.545213E-23, 2.812016E-27, 0.000000E+00 / DATA ( ECS_REF( IACETONE, 2, IWLR ), IWLR = 1, 7 ) / & 1.205182E-20, 4.966170E-21, 1.192478E-21, 3.105726E-22, & 1.545213E-23, 2.812016E-27, 0.000000E+00 / DATA ( ECS_REF( IACETONE, 3, IWLR ), IWLR = 1, 7 ) / & 1.205182E-20, 4.966170E-21, 1.192478E-21, 3.105726E-22, & 1.545213E-23, 2.812016E-27, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IACETONE, 1, IWLR ), IWLR = 1, 7 ) / & 3.482358E-01, 2.179456E-01, 8.749527E-02, 4.181024E-02, & 1.632652E-02, 2.824056E-03, 0.000000E+00 / DATA ( EQY_REF( IACETONE, 2, IWLR ), IWLR = 1, 7 ) / & 3.482358E-01, 2.179456E-01, 8.749527E-02, 4.181024E-02, & 1.632652E-02, 2.824056E-03, 0.000000E+00 / DATA ( EQY_REF( IACETONE, 3, IWLR ), IWLR = 1, 7 ) / & 3.482358E-01, 2.179456E-01, 8.749527E-02, 4.181024E-02, & 1.632652E-02, 2.824056E-03, 0.000000E+00 / END MODULE CSQY_DATA ================================================ FILE: UTIL/inline_phot_preproc/src/CSQY_PARAMETERS.F ================================================ MODULE CSQY_PARAMETERS #ifndef mech_includes USE RXNS_DATA #endif IMPLICIT NONE #ifdef mech_includes INCLUDE SUBST_RXCMMN ! to get mech name INCLUDE SUBST_RXDATA ! to get photolysis rate names #endif ! MXWL = maximum number of wavelength bands to process ! MXWLIN = maximum number of wavelength bands on input files ! NJPROC = maximum number of vertical levels in radiative transfer ! calculation ! MXLEV = maximum number of vertical levels in base atmospheric ! structure INTEGER, PARAMETER :: MXWL = 601 INTEGER, PARAMETER :: MXWLIN = 2000 INTEGER, PARAMETER :: NJPROC = 200 INTEGER, PARAMETER :: MXLEV = 51 ! max number of altitude levels used in temp and pressure routine for cross-sections and ! quantum yield INTEGER, PARAMETER :: KZ = 125 ! max number of wavelength used in temp and pressure routine for cross-sections and ! quantum yield INTEGER, PARAMETER :: KW = MXWL ! N_INLINE_BAND ! MXWL ! time/sza INTEGER, PARAMETER :: KT = MXLEV REAL, PARAMETER :: T298K = 298.0 ! standard air temperature REAL, PARAMETER :: DENS0 = 2.46E+19 ! approximate air number density at 1 Atm and 298K, molec/cm3 ! should be 2.465E+19 but the original version of CSQY pre-processor ! used 2.59E+19, a 3% difference REAL :: Z_JPROC( MXLEV ) ! altitudes for JPROC level, km REAL :: O3_JPROC( MXLEV ) ! JPROC ozone profile REAL :: T_JPROC( MXLEV ) ! JPROC temperature profile REAL :: DENS_JPROC( MXLEV ) ! JPROC number density profile, cm^-3 LOGICAL, PARAMETER :: USE_JPROC = .TRUE. ! all rate listed in CB05, SAPRC99, SAPRC07T, plus seven additional rates ! that copy SAPRC07T and SAPRC99 rates. Why? Rates hardwired in PHOT_MOD.F ! multiple occurrances will be eliminated in CREATE_MODULE subroutine INTEGER, PARAMETER :: NPHOTAB_ALL = 94 CHARACTER( 16 ) :: PHOTAB_ALL( NPHOTAB_ALL ) CHARACTER( 32 ) :: MECHNAME_ALL = 'ALL_MECHANISM' INTEGER :: IRXXN_ALL DATA ( PHOTAB_ALL( IRXXN_ALL ), IRXXN_ALL = 1, NPHOTAB_ALL ) / & 'NO2-06 ', 'NO3NO-06 ', 'NO3NO2-6 ', & 'O3O1D-06 ', 'O3O3P-06 ', 'HONO-06 ', & 'HNO3 ', 'HNO4-06 ', 'H2O2 ', & 'NO2EX ', 'PAN ', 'HCHOR-06 ', & 'HCHOM-06 ', 'CCHO_R ', 'C2CHO ', & 'ACET-06 ', 'MEK-06 ', 'COOH ', & 'GLY-07R ', 'GLY-07M ', 'MGLY-06 ', & 'BACL-07 ', 'BALD-06 ', 'AFG1 ', & 'MACR-06 ', 'MVK-06 ', 'IC3ONO2 ', & 'HOCCHO_IUPAC ', 'ACRO-09 ', 'PAA ', & 'CL2 ', 'CLNO-06 ', 'CLONO ', & 'CLNO2 ', 'CLONO2-1 ', 'CLONO2-2 ', & 'HOCL-06 ', 'CLCCHO ', 'CLACET ', & 'NO2_SAPRC99 ', 'NO3NO_SAPRC99 ', 'NO3NO2_SAPRC99 ', & 'O3O3P_SAPRC99 ', 'O3O1D_SAPRC99 ', 'HONO_NO_SAPRC99 ', & 'HONO_NO2_SAPRC99', 'HNO3_SAPRC99 ', 'HO2NO2_SAPRC99 ', & 'H2O2_SAPRC99 ', 'HCHO_R_SAPRC99 ', 'HCHO_M_SAPRC99 ', & 'CCHO_R_SAPRC99 ', 'C2CHO_SAPRC99 ', 'ACETONE_SAPRC99 ', & 'KETONE_SAPRC99 ', 'COOH_SAPRC99 ', 'GLY_R_SAPRC99 ', & 'GLY_ABS_SAPRC99 ', 'MGLY_ADJ_SAPRC99', 'BACL_ADJ_SAPRC99', & 'BZCHO_SAPRC99 ', 'ACROLEIN_SAPRC99', 'IC3ONO2_SAPRC99 ', & 'MGLY_ABS_SAPRC99', & 'NO2_SAPRC99 ', 'O3_O3P_IUPAC04 ', 'O3_O1D_IUPAC04 ', & 'NO3NO2_SAPRC99 ', 'NO3NO_SAPRC99 ', 'HONO_IUPAC04 ', & 'H2O2_SAPRC99 ', 'HO2NO2_IUPAC04 ', 'HNO3_IUPAC04 ', & 'N2O5_IUPAC04 ', 'NTR_IUPAC04 ', 'COOH_SAPRC99 ', & 'HCHO_R_SAPRC99 ', 'HCHO_M_SAPRC99 ', 'CCHO_R_SAPRC99 ', & 'PAN_IUPAC04 ', 'PACD_CB05 ', 'C2CHO_SAPRC99 ', & 'MGLY_IUPAC04 ', 'ACROLEIN_SAPRC99', 'CL2_IUPAC04 ', & 'HOCL_IUPAC04 ', 'FMCL_IUPAC04 ', 'NO2 ', & 'O3O1D ', 'O3O3P ', 'KETONE ', & 'MGLY_ABS ', 'MGLY_ADJ ', 'ACETONE ' / LOGICAL, PARAMETER :: USE_TUV_JVALUE = .TRUE. LOGICAL, SAVE :: SPLIT_OUTPUTS INTEGER, SAVE :: N_USE_PHOTAB CHARACTER( 16 ), ALLOCATABLE, SAVE :: USE_PHOTAB( : ) ! DATA ( USE_PHOTAB( IRXXN ), IRXXN = 1, N_USE_PHOTAB ) / ! & 'BALD-06 ', 'AFG1 ', 'IC3ONO2 ', ! & 'CLNO-06 ', 'CLONO ', 'CLNO2 ', ! & 'HOCL-06 ', 'CLCCHO ', 'CLACET '/ LOGICAL, ALLOCATABLE, SAVE :: USE_JPROC_CSQY ( : ) INTEGER, ALLOCATABLE, SAVE :: TUV_TO_JPROC( : ) INTEGER, PARAMETER :: N_TEMP_STRAT = 6 INTEGER, PARAMETER :: N_TEMPERATURE = 6 INTEGER, SAVE :: MODULE_UNIT = 75 INTEGER, SAVE :: JTABLE_UNIT = 105 INTEGER, SAVE :: ODATA_UNIT = 106 CHARACTER(586) :: OUT_DIR = 'OUT_DIR' CHARACTER(16), SAVE :: PHOT_DONE( NPHOTAB ) INTEGER, SAVE :: NPHOT_DONE LOGICAL, SAVE :: PHOT_PROCESS( NPHOTAB ) REAL, ALLOCATABLE, SAVE :: WV_FASTJ( : ), XO3_FASTJ( : ) INTEGER, SAVE :: CSQY_UNIT = 76 CONTAINS SUBROUTINE INIT_CSQY_MODULE() USE GET_ENV_VARS USE BIN_DATA IMPLICIT NONE LOGICAL, SAVE :: FIRSTCALL = .TRUE. INTEGER :: I, J, K, ITTR CHARACTER(16) :: SAFE_NAME( NPHOTAB ) CHARACTER(16) :: PHOT_NAME( NPHOTAB ) CHARACTER(600) :: JTABLE_NAME CHARACTER( 32) :: WORD CHARACTER(255) :: EQNAME IF( FIRSTCALL )THEN CALL INIT_BIN_DATA FIRSTCALL = .FALSE. ELSE RETURN ENDIF ! get output directory EQNAME = 'OUT_DIR' CALL VALUE_NAME( EQNAME, OUT_DIR ) ! create name of CSQY_DATA file WORD = MECHNAME CALL CONVERT_CASE ( WORD, .FALSE. ) JTABLE_NAME = TRIM( OUT_DIR ) & // '/' & // 'CSQY_DATA_' // TRIM( WORD ) OPEN(JTABLE_UNIT, FILE = JTABLE_NAME, STATUS = 'UNKNOWN') PHOT_DONE = ' ' SAFE_NAME = ' ' NPHOT_DONE = 0 PHOT_PROCESS = .TRUE. ITTR = 0 DO J = 1, NPHOTAB DO I = 1, NPHOT_DONE IF( PHOTAB(J) .EQ. PHOT_DONE(I) )THEN PHOT_PROCESS( J ) = .FALSE. EXIT ENDIF ENDDO IF( PHOT_PROCESS( J ) )THEN NPHOT_DONE = NPHOT_DONE + 1 PHOT_DONE(NPHOT_DONE) = PHOTAB(J) SAFE_NAME(NPHOT_DONE) = PHOT_DONE(NPHOT_DONE) DO I = 1, LEN(SAFE_NAME(NPHOT_DONE)) IF( SAFE_NAME(NPHOT_DONE)(I:I) .EQ. '-' ) THEN SAFE_NAME(NPHOT_DONE)(I:I) = '_' ENDIF ENDDO ELSE ITTR = ITTR + 1 WRITE(6,'(I3,1X,A,1X,A,I3,1X,A)')ITTR, TRIM(PHOTAB(J)), & ' already treated by ', I, TRIM(PHOT_DONE(I)) ENDIF ENDDO 1996 format(6X,'INTEGER, PARAMETER :: NPHOT_REF = ',I3,' ! # ref phot reactions ') 1997 format(6X,'INTEGER, PARAMETER :: NTEMP_REF = ',I3,' ! # ref temperatures ') 1998 format(6X,'INTEGER, PARAMETER :: NWL_REF = ',I3,' ! # ref wavelengths ') WRITE(JTABLE_UNIT,'(A22,A32)')'Table for Mechanism = ',MECHNAME WRITE(JTABLE_UNIT,'(A9,1X,I4)')'NPHOTAB =',NPHOT_DONE WRITE(JTABLE_UNIT,'(A)')'!Individual rates listed below:' DO I = 1, NPHOT_DONE WRITE(JTABLE_UNIT,'(A16)')PHOT_DONE(I) 1999 FORMAT(6X,'INTEGER, PARAMETER :: I',A16, ' = ', I3, ' ! pointer to ', A16) ENDDO 2040 format(6X,'CHARACTER(16), SAVE :: PNAME_REF( NPHOT_REF )') DO I = 1, NPHOT_DONE 2000 FORMAT(6X,'DATA PNAME_REF( I',A16, ' ) / ''', A16, ''' /') ENDDO 2027 format(6X,'INTEGER, PARAMETER :: NPHOT_MAP = ',I3,' ! # phot mapped reactions ') 2025 format(6X,'CHARACTER(16), SAVE :: PNAME_MAP( NPHOT_MAP )') 2026 format(6X,'INTEGER, SAVE :: PHOT_MAP( NPHOT_MAP )') DO I = 1, NPHOT_DONE 2010 FORMAT(6X,'DATA PNAME_MAP( ', I3, ' ), ', ' PHOT_MAP( ', I3, ' ) / ''', & A16, ''', I', A16, ' / ') ENDDO 2021 format(6X,'REAL, SAVE :: TEMP_REF( NTEMP_REF, NPHOT_REF ) ! reference temperatures') 2022 format(6X,'REAL, SAVE :: CS_REF( NPHOT_REF, NTEMP_REF, NWL_REF ) ! effective cross sections') 2023 format(6X,'REAL, SAVE :: QY_REF( NPHOT_REF, NTEMP_REF, NWL_REF ) ! effective quantum yields') 2024 format(6X,'REAL, SAVE :: ECS_REF( NPHOT_REF, NTEMP_REF, NWL_REF ) ! CS*QY averaged UCI Solar Flux') 2031 format(6X,'REAL, SAVE :: EQY_REF( NPHOT_REF, NTEMP_REF, NWL_REF ) ! eCS/CS averaged 77 bins in UCI Model') 2032 format('C... quantum yields') 2033 format('C... effective quantum yields were computed by performing separate') 2034 format('C... interval integrations for the cross sections and for the') 2035 format('C... effective cross sections (cs*qy) (calculated on the finer') 2036 format('C... wavelength grid. The effective quantum yield values') 2037 format('C... were then calculated for the 7 wavelength intervals by ') 2038 format('C... dividing the effective cross sections by the interval average') 2039 format('C... cross sections (eQY=eCS/CS).') PHOT_DONE = ' ' NPHOT_DONE = 0 2003 format(1x) RETURN END SUBROUTINE INIT_CSQY_MODULE SUBROUTINE INIT_CXQY_MODULE() USE GET_ENV_VARS USE BIN_DATA IMPLICIT NONE LOGICAL, SAVE :: FIRSTCALL = .TRUE. INTEGER :: I, J, K, ITTR CHARACTER(16) :: SAFE_NAME( NPHOTAB ) CHARACTER(16) :: PHOT_NAME( NPHOTAB ) CHARACTER(600) :: JTABLE_NAME CHARACTER(32) :: WORD CHARACTER(255) :: EQNAME INTERFACE SUBROUTINE CONVERT_CASE ( BUFFER, UPPER ) CHARACTER(LEN= *), INTENT( INOUT ) :: BUFFER LOGICAL, INTENT( IN ) :: UPPER END SUBROUTINE CONVERT_CASE END INTERFACE IF( FIRSTCALL )THEN CALL INIT_BIN_DATA FIRSTCALL = .FALSE. ELSE RETURN ENDIF ! get output directory EQNAME = 'OUT_DIR' CALL VALUE_NAME( EQNAME, OUT_DIR ) ! create name of CSQY_DATA file WORD = MECHNAME CALL CONVERT_CASE ( WORD, .FALSE. ) JTABLE_NAME = TRIM( OUT_DIR ) & // '/' & // 'CSQY_DATA_' // TRIM( WORD ) OPEN(JTABLE_UNIT, FILE = JTABLE_NAME, STATUS = 'UNKNOWN') PHOT_DONE = ' ' SAFE_NAME = ' ' NPHOT_DONE = 0 PHOT_PROCESS = .TRUE. ITTR = 0 DO J = 1, NPHOTAB DO I = 1, NPHOT_DONE IF( PHOTAB(J) .EQ. PHOT_DONE(I) )THEN PHOT_PROCESS( J ) = .FALSE. EXIT ENDIF ENDDO IF( PHOT_PROCESS( J ) )THEN NPHOT_DONE = NPHOT_DONE + 1 PHOT_DONE(NPHOT_DONE) = PHOTAB(J) SAFE_NAME(NPHOT_DONE) = PHOT_DONE(NPHOT_DONE) DO I = 1, LEN(SAFE_NAME(NPHOT_DONE)) IF( SAFE_NAME(NPHOT_DONE)(I:I) .EQ. '-' ) THEN SAFE_NAME(NPHOT_DONE)(I:I) = '_' ENDIF ENDDO ELSE ITTR = ITTR + 1 WRITE(6,'(I3,1X,A,1X,A,I3,1X,A)')ITTR, TRIM(PHOTAB(J)), & ' already treated by ', I, TRIM(PHOT_DONE(I)) ENDIF ENDDO WRITE(JTABLE_UNIT,'(A22,A32)')'Table for Mechanism = ',MECHNAME WRITE(JTABLE_UNIT,'(A9,1X,I4)')'NPHOTAB =',NPHOT_DONE WRITE(JTABLE_UNIT,'(A)')'!Individual rates listed below:' DO I = 1, NPHOT_DONE WRITE(JTABLE_UNIT,'(A16)')PHOT_DONE(I) ENDDO PHOT_DONE = ' ' NPHOT_DONE = 0 1996 FORMAT(6X,'INTEGER, PARAMETER :: NPHOT_REF = ',I3,' ! # ref phot reactions ') 1997 FORMAT(6X,'INTEGER, PARAMETER :: NTEMP_REF = ',I3,' ! # ref temperatures ') 1998 FORMAT(6X,'INTEGER, PARAMETER :: NWL_REF = ',I3,' ! # ref wavelengths ') 1999 FORMAT(6X,'INTEGER, PARAMETER :: I',A16, ' = ', I3, ' ! pointer to ', A16) 2040 FORMAT(6X,'CHARACTER(16), SAVE :: PNAME_REF( NPHOT_REF )') 2000 FORMAT(6X,'DATA PNAME_REF( I',A16, ' ) / ''', A16, ''' /') 2027 FORMAT(6X,'INTEGER, PARAMETER :: NPHOT_MAP = ',I3,' ! # phot mapped reactions ') 2025 FORMAT(6X,'CHARACTER(16), SAVE :: PNAME_MAP( NPHOT_MAP )') 2026 FORMAT(6X,'INTEGER, SAVE :: PHOT_MAP( NPHOT_MAP )') 2010 FORMAT(6X,'DATA PNAME_MAP( ', I3, ' ), ', ' PHOT_MAP( ', I3, ' ) / ''', & A16, ''', I', A16, ' / ') 2021 FORMAT(6X,'REAL, SAVE :: TEMP_REF( NTEMP_REF, NPHOT_REF ) ! reference temperatures') 2022 FORMAT(6X,'REAL, SAVE :: CS_REF( NPHOT_REF, NTEMP_REF, NWL_REF ) ! effective cross sections') 2023 FORMAT(6X,'REAL, SAVE :: QY_REF( NPHOT_REF, NTEMP_REF, NWL_REF ) ! effective quantum yields') 2024 FORMAT(6X,'REAL, SAVE :: ECS_REF( NPHOT_REF, NTEMP_REF, NWL_REF ) ! CS*QY averaged UCI Solar Flux') 2031 FORMAT(6X,'REAL, SAVE :: EQY_REF( NPHOT_REF, NTEMP_REF, NWL_REF ) ! eCS/CS averaged 77 bins in UCI Model') 2032 FORMAT('C... quantum yields') 2033 FORMAT('C... effective quantum yields were computed by performing separate') 2034 FORMAT('C... interval integrations for the cross sections and for the') 2035 FORMAT('C... effective cross sections (cs*qy) (calculated on the finer') 2036 FORMAT('C... wavelength grid. The effective quantum yield values') 2037 FORMAT('C... were then calculated for the 7 wavelength intervals by ') 2038 FORMAT('C... dividing the effective cross sections by the interval average') 2039 FORMAT('C... cross sections (eQY=eCS/CS).') 2003 FORMAT(1x) RETURN END SUBROUTINE INIT_CXQY_MODULE END MODULE CSQY_PARAMETERS ================================================ FILE: UTIL/inline_phot_preproc/src/CSQY_REFER_DATA.F ================================================ MODULE CSQY_REFER_DATA USE CSQY_PARAMETERS IMPLICIT NONE ! NASA JPL (2006) !Absorption_Cross_Sections_of_NO2_at_220_and_294 K !Lambda_C(nm), XC_220KxE20(cm2), XC_294K(cm2),DXC/DT(cm2/K) INTEGER, PARAMETER :: N_NO2_XC = 89 REAL :: WV_NO2_XC( N_NO2_XC ) DATA WV_NO2_XC / O 2.4243E+02, 2.4541E+02, 2.4846E+02, 2.5158E+02, 2.5479E+02, + 2.5808E+02, 2.6145E+02, 2.6491E+02, 2.6847E+02, 2.7212E+02, 1 2.7588E+02, 2.7973E+02, 2.8370E+02, 2.8778E+02, 2.9199E+02, + 2.9631E+02, 3.0077E+02, 3.0536E+02, 3.1010E+02, 3.1500E+02, 2 3.2000E+02, 3.2500E+02, 3.3000E+02, 3.3500E+02, 3.4000E+02, + 3.4500E+02, 3.5000E+02, 3.5500E+02, 3.6000E+02, 3.6500E+02, 3 3.7000E+02, 3.7500E+02, 3.8000E+02, 3.8500E+02, 3.9000E+02, + 3.9500E+02, 4.0000E+02, 4.0500E+02, 4.1000E+02, 4.1500E+02, 4 4.2000E+02, 4.2500E+02, 4.3000E+02, 4.3500E+02, 4.4000E+02, + 4.4500E+02, 4.5000E+02, 4.5500E+02, 4.6000E+02, 4.6500E+02, 5 4.7000E+02, 4.7500E+02, 4.8000E+02, 4.8500E+02, 4.9000E+02, + 4.9500E+02, 5.0000E+02, 5.0500E+02, 5.1000E+02, 5.1500E+02, 6 5.2000E+02, 5.2500E+02, 5.3000E+02, 5.3500E+02, 5.4000E+02, + 5.4500E+02, 5.5000E+02, 5.5500E+02, 5.6000E+02, 5.6500E+02, 7 5.7000E+02, 5.7500E+02, 5.8000E+02, 5.8500E+02, 5.9000E+02, + 5.9500E+02, 6.0000E+02, 6.0500E+02, 6.1000E+02, 6.1500E+02, 8 6.2000E+02, 6.2500E+02, 6.3000E+02, 6.3500E+02, 6.4000E+02, + 6.4500E+02, 6.5000E+02, 6.5500E+02, 6.6000E+02/ REAL :: NO2_XC_220K( N_NO2_XC ) DATA NO2_XC_220K / O 5.7700E-20, 2.7900E-20, 1.6200E-20, 9.9800E-21, 1.0500E-20, + 1.2800E-20, 1.5800E-20, 2.0500E-20, 2.6400E-20, 3.2400E-20, 1 4.0700E-20, 5.2100E-20, 6.2300E-20, 7.5900E-20, 9.5100E-20, + 1.1500E-19, 1.3200E-19, 1.6100E-19, 1.8800E-19, 2.1600E-19, 2 2.5300E-19, 2.8700E-19, 3.1700E-19, 3.5800E-19, 4.0200E-19, + 4.1800E-19, 4.6200E-19, 4.9700E-19, 5.0900E-19, 5.4900E-19, 3 5.6100E-19, 5.9000E-19, 5.9300E-19, 6.0100E-19, 6.3000E-19, + 5.9700E-19, 6.4400E-19, 5.8200E-19, 6.2400E-19, 5.9100E-19, 4 5.9900E-19, 5.7000E-19, 5.4400E-19, 5.5900E-19, 4.8800E-19, + 4.8800E-19, 4.9800E-19, 4.1600E-19, 4.3600E-19, 4.1400E-19, 5 3.3700E-19, 3.8700E-19, 3.3700E-19, 2.5400E-19, 3.0800E-19, + 2.9400E-19, 1.8200E-19, 2.4300E-19, 2.3100E-19, 1.6000E-19, 6 1.6100E-19, 1.7900E-19, 1.5300E-19, 1.0600E-19, 1.0800E-19, + 1.2700E-19, 1.1000E-19, 7.9700E-20, 6.0500E-20, 8.7000E-20, 7 8.4800E-20, 4.7100E-20, 4.4700E-20, 4.6900E-20, 5.3900E-20, + 4.0800E-20, 3.9500E-20, 1.8500E-20, 2.5400E-20, 3.5300E-20, 8 2.5700E-20, 1.9600E-20, 1.2100E-20, 1.3300E-20, 1.5300E-20, + 1.9200E-20, 1.3500E-20, 8.7300E-21, 5.6600E-21/ REAL :: NO2_XC_294K( N_NO2_XC ) DATA NO2_XC_294K / O 4.1400E-20, 9.6100E-21, 8.5900E-21, 1.9100E-21, 4.9600E-21, + 8.7200E-21, 1.2600E-20, 1.7700E-20, 2.3600E-20, 3.0300E-20, 1 3.9400E-20, 5.1600E-20, 6.2900E-20, 7.7200E-20, 9.6400E-20, + 1.1600E-19, 1.3200E-19, 1.6000E-19, 1.8500E-19, 2.0800E-19, 2 2.4200E-19, 2.7200E-19, 2.9400E-19, 3.3000E-19, 3.7000E-19, + 3.8600E-19, 4.3500E-19, 4.7700E-19, 4.9200E-19, 5.3700E-19, 3 5.5200E-19, 5.8400E-19, 5.8500E-19, 5.9200E-19, 6.2400E-19, + 5.8500E-19, 6.4000E-19, 5.7000E-19, 6.1800E-19, 5.8300E-19, 4 5.9300E-19, 5.6000E-19, 5.3700E-19, 5.5500E-19, 4.7500E-19, + 4.7900E-19, 4.9300E-19, 4.0600E-19, 4.3500E-19, 4.1500E-19, 5 3.2700E-19, 3.8800E-19, 3.3400E-19, 2.4000E-19, 3.0900E-19, + 2.9400E-19, 1.6700E-19, 2.4400E-19, 2.2800E-19, 1.4800E-19, 6 1.7700E-19, 1.7500E-19, 1.4900E-19, 9.7100E-20, 1.0300E-19, + 1.2600E-19, 1.0400E-19, 7.4000E-20, 5.5600E-20, 8.6200E-20, 7 8.2500E-20, 4.1200E-20, 4.1100E-20, 4.6000E-20, 5.1400E-20, + 3.8200E-20, 3.7100E-20, 1.5600E-20, 2.3800E-20, 3.4700E-20, 8 2.3900E-20, 1.7700E-20, 1.0000E-20, 1.2300E-20, 1.4800E-20, + 1.8600E-20, 1.2400E-20, 7.5500E-21, 5.0800E-21/ ! NASA JPL (2006) !Quantum_Yields_for_NO2_Photolysis !LAMBDA(nm), QY298K, QY248K INTEGER, PARAMETER :: N_NO2_QY = 25 REAL :: WV_NO2_QY( N_NO2_QY ) DATA WV_NO2_QY / & 3.0000E+02, 3.9800E+02, 3.9900E+02, 4.0000E+02, 4.0100E+02, & 4.0200E+02, 4.0300E+02, 4.0400E+02, 4.0500E+02, 4.0600E+02, & 4.0700E+02, 4.0800E+02, 4.0900E+02, 4.1000E+02, 4.1100E+02, & 4.1200E+02, 4.1300E+02, 4.1400E+02, 4.1500E+02, 4.1600E+02, & 4.1700E+02, 4.1800E+02, 4.1900E+02, 4.2000E+02, 4.2200E+02/ REAL :: NO2_QY_248K( N_NO2_QY ) DATA NO2_QY_248K / & 1.0000E+00, 1.0000E+00, 9.4000E-01, 8.6000E-01, 6.9000E-01, & 5.6000E-01, 4.4000E-01, 3.4000E-01, 2.8000E-01, 2.2000E-01, & 1.8000E-01, 1.4000E-01, 1.2000E-01, 1.0000E-01, 8.0000E-02, & 7.0000E-02, 6.0000E-02, 4.0000E-02, 3.0000E-02, 2.0000E-02, & 2.0000E-02, 2.0000E-02, 1.0000E-02, 1.0000E-02, 1.0000E-02/ REAL :: NO2_QY_298K( N_NO2_QY ) DATA NO2_QY_298K / & 1.0000E+00, 1.0000E+00, 9.5000E-01, 8.8000E-01, 7.5000E-01, & 6.2000E-01, 5.3000E-01, 4.4000E-01, 3.7000E-01, 3.0000E-01, & 2.6000E-01, 2.2000E-01, 1.8000E-01, 1.5000E-01, 1.3000E-01, & 1.1000E-01, 9.0000E-02, 8.0000E-02, 6.0000E-02, 5.0000E-02, & 4.0000E-02, 3.0000E-02, 2.0000E-02, 2.0000E-02, 1.0000E-02/ !HO2NO2 absorption cross section parametrization !HO2NO2-->HO2+NO2 !Knight et. al, Phys. Chem. Chem. Phys.,2002,4, 1432-1437. ! XC = XC1/Q + XC2(1-1/Q), Q = 1.0+EXP(-988/(0.69*Temp)) INTEGER, PARAMETER :: N_HO2NO2 = 55 REAL :: WV_HO2NO2( N_HO2NO2 ) DATA WV_HO2NO2 / O 1.9000E+02, 1.9500E+02, 2.0000E+02, 2.0500E+02, 2.1000E+02, + 2.1500E+02, 2.2000E+02, 2.2500E+02, 2.3000E+02, 2.3500E+02, 1 2.4000E+02, 2.4500E+02, 2.5000E+02, 2.5500E+02, 2.6000E+02, + 2.6500E+02, 2.7000E+02, 2.7500E+02, 2.8000E+02, 2.8000E+02, 2 2.8200E+02, 2.8400E+02, 2.8600E+02, 2.8800E+02, 2.9000E+02, + 2.9200E+02, 2.9400E+02, 2.9600E+02, 2.9800E+02, 3.0000E+02, 3 3.0200E+02, 3.0400E+02, 3.0600E+02, 3.0800E+02, 3.1000E+02, + 3.1200E+02, 3.1400E+02, 3.1600E+02, 3.1800E+02, 3.2000E+02, 4 3.2200E+02, 3.2400E+02, 3.2600E+02, 3.2800E+02, 3.3000E+02, + 3.3200E+02, 3.3400E+02, 3.3600E+02, 3.3800E+02, 3.4000E+02, 5 3.4200E+02, 3.4400E+02, 3.4600E+02, 3.4800E+02, 3.5000E+02/ REAL :: HO2NO2_XC_296K( N_HO2NO2 ) DATA HO2NO2_XC_296K / O 1.0100E-17, 8.1600E-18, 5.6300E-18, 3.6700E-18, 2.4100E-18, + 1.6400E-18, 1.2000E-18, 9.5200E-19, 8.0800E-19, 6.9800E-19, 1 5.9100E-19, 4.9700E-19, 4.1800E-19, 3.5100E-19, 2.7800E-19, + 2.2400E-19, 1.7800E-19, 1.3400E-19, 9.3000E-20, 9.2900E-20, 2 8.1100E-20, 6.9300E-20, 5.8600E-20, 4.9100E-20, 3.9500E-20, + 3.3700E-20, 2.7800E-20, 2.3000E-20, 1.9100E-20, 1.5200E-20, 3 1.2800E-20, 1.0500E-20, 8.5300E-21, 7.0200E-21, 5.5100E-21, + 4.6500E-21, 3.8000E-21, 3.1300E-21, 2.6500E-21, 2.1600E-21, 4 1.8400E-21, 1.5200E-21, 1.2800E-21, 1.1000E-21, 9.2600E-22, + 7.8800E-22, 6.5000E-22, 5.4000E-22, 4.5600E-22, 3.7200E-22, 5 3.2000E-22, 2.6800E-22, 2.2800E-22, 1.9800E-22, 1.6800E-22/ REAL :: HO2NO2_A1_296K( N_HO2NO2 ) DATA HO2NO2_A1_296K / O 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, 1 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, 8.7300E-20, 2 7.5672E-20, 6.4044E-20, 5.3508E-20, 4.4064E-20, 3.4620E-20, + 2.9060E-20, 2.3500E-20, 1.8924E-20, 1.5332E-20, 1.1740E-20, 3 9.6880E-21, 7.6360E-21, 6.0020E-21, 4.7860E-21, 3.5700E-21, + 2.9460E-21, 2.3220E-21, 1.8320E-21, 1.4760E-21, 1.1200E-21, 4 9.5760E-22, 7.9520E-22, 6.4300E-22, 5.0100E-22, 3.5900E-22, + 2.8460E-22, 2.1020E-22, 1.5140E-22, 1.0820E-22, 6.5000E-23, 5 5.4200E-23, 4.3400E-23, 3.3000E-23, 2.3000E-23, 1.3000E-23/ REAL :: HO2NO2_A2_296K( N_HO2NO2 ) DATA HO2NO2_A2_296K / O 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, 1 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, 8.0316E-19, 2 7.6938E-19, 7.3561E-19, 7.0618E-19, 6.8109E-19, 6.5600E-19, + 6.1596E-19, 5.7593E-19, 5.3564E-19, 4.9510E-19, 4.5456E-19, 3 4.1130E-19, 3.6804E-19, 3.2713E-19, 2.8856E-19, 2.5000E-19, + 2.2002E-19, 1.9004E-19, 1.6680E-19, 1.5030E-19, 1.3380E-19, 4 1.1357E-19, 9.3335E-20, 8.1065E-20, 7.6756E-20, 7.2447E-20, + 6.4314E-20, 5.6181E-20, 4.9509E-20, 4.4300E-20, 3.9090E-20, 5 3.3866E-20, 2.8642E-20, 2.4781E-20, 2.2283E-20, 1.9785E-20/ !CH3CHO -> CH3 + CHO for quantum yields !from Horowitz and Calvert (1982) INTEGER, PARAMETER :: N_CCHO_QUENCH = 78 REAL :: WV_CCHO_QUENCH( N_CCHO_QUENCH) REAL :: CCHO_PHI0 ( N_CCHO_QUENCH) REAL :: CCHO_QUENCH( N_CCHO_QUENCH) ! DATA WV_CCHO_QUENCH / ! & 2.9000E+02, 3.0000E+02, 3.1300E+02, 3.2000E+02, 3.3120E+02/ ! DATA CCHO_QUENCH / ! & 5.9000E-01, 1.5100E+00, 5.8300E+00, 8.4800E+00, 2.8800E+00/ !PAN absorption cross section from Talukdar et al. !Reference: Talukdar et al., 1995, J.Geophys.Res. 100/D7, 14163-14174 !Peroxyacetylnitrate CH3CO2NO2 !Units: Wavelength (nm) ! Absorption Cross Section (Cm**2/Molec) !Scale Factor: To Dm**3/Mol/Cm Divide By ! 3.82e-21 !Temperature: 25 Degrees C !Absorption Cross Section Data !Wavelength (nm) Absorption Cross Section (Cm**2/Molec) INTEGER, PARAMETER :: N_PAN = 78 REAL :: WV_PAN( N_PAN ) DATA WV_PAN / O 1.9600E+02, 1.9800E+02, 2.0000E+02, 2.0200E+02, 2.0400E+02, + 2.0600E+02, 2.0800E+02, 2.1000E+02, 2.1200E+02, 2.1400E+02, 1 2.1600E+02, 2.1800E+02, 2.2000E+02, 2.2200E+02, 2.2400E+02, + 2.2600E+02, 2.2800E+02, 2.3000E+02, 2.3200E+02, 2.3400E+02, 2 2.3600E+02, 2.3800E+02, 2.4000E+02, 2.4200E+02, 2.4400E+02, + 2.4600E+02, 2.4800E+02, 2.5000E+02, 2.5200E+02, 2.5400E+02, 3 2.5600E+02, 2.5800E+02, 2.6000E+02, 2.6200E+02, 2.6400E+02, + 2.6600E+02, 2.6800E+02, 2.7000E+02, 2.7200E+02, 2.7400E+02, 4 2.7600E+02, 2.7800E+02, 2.8000E+02, 2.8200E+02, 2.8400E+02, + 2.8600E+02, 2.8800E+02, 2.9000E+02, 2.9200E+02, 2.9400E+02, 5 2.9600E+02, 2.9800E+02, 3.0000E+02, 3.0200E+02, 3.0400E+02, + 3.0600E+02, 3.0800E+02, 3.1000E+02, 3.1200E+02, 3.1400E+02, 6 3.1600E+02, 3.1800E+02, 3.2000E+02, 3.2200E+02, 3.2400E+02, + 3.2600E+02, 3.2800E+02, 3.3000E+02, 3.3200E+02, 3.3400E+02, 7 3.3600E+02, 3.3800E+02, 3.4000E+02, 3.4200E+02, 3.4400E+02, + 3.4600E+02, 3.4800E+02, 3.5000E+02/ REAL :: PAN_XC_298K( N_PAN ) DATA PAN_XC_298K / O 4.2900E-18, 3.9800E-18, 3.6100E-18, 3.2500E-18, 2.9200E-18, + 2.6100E-18, 2.2600E-18, 1.9600E-18, 1.6800E-18, 1.4300E-18, 1 1.2200E-18, 1.0400E-18, 8.9700E-19, 7.7700E-19, 6.7600E-19, + 5.9300E-19, 5.2000E-19, 4.5800E-19, 4.0400E-19, 3.5500E-19, 2 3.1400E-19, 2.7900E-19, 2.4400E-19, 2.1500E-19, 1.8800E-19, + 1.6600E-19, 1.4600E-19, 1.2900E-19, 1.1400E-19, 1.0000E-19, 3 8.8600E-20, 7.8000E-20, 6.8500E-20, 6.0100E-20, 5.2300E-20, + 4.5400E-20, 3.9400E-20, 3.3700E-20, 2.8700E-20, 2.4500E-20, 4 2.0700E-20, 1.7400E-20, 1.4600E-20, 1.2100E-20, 1.0100E-20, + 8.1000E-21, 6.4800E-21, 5.3700E-21, 4.4700E-21, 3.6900E-21, 5 2.9700E-21, 2.4500E-21, 1.8900E-21, 1.5200E-21, 1.2500E-21, + 9.9800E-22, 8.1600E-22, 6.6600E-22, 5.3800E-22, 4.6200E-22, 6 3.6300E-22, 3.0000E-22, 2.5200E-22, 1.9900E-22, 1.6600E-22, + 1.4000E-22, 1.1700E-22, 1.0600E-22, 8.5700E-23, 6.7600E-23, 7 6.1500E-23, 5.2600E-23, 5.0200E-23, 3.6000E-23, 2.4100E-23, + 2.3100E-23, 2.4700E-23, 1.6500E-23/ REAL :: PAN_XC_EXP( N_PAN ) DATA PAN_XC_EXP / O 2.0200E-03, 1.7300E-03, 1.3600E-03, 1.0700E-03, 8.6000E-04, + 7.5000E-04, 7.1000E-04, 7.5000E-04, 8.4000E-04, 9.7000E-04, 1 1.1200E-03, 1.2900E-03, 1.4700E-03, 1.6400E-03, 1.8100E-03, + 1.9800E-03, 2.1400E-03, 2.3000E-03, 2.4600E-03, 2.6300E-03, 2 2.8000E-03, 2.9600E-03, 3.1100E-03, 3.2500E-03, 3.3900E-03, + 3.5200E-03, 3.6400E-03, 3.7600E-03, 3.8700E-03, 3.9800E-03, 3 4.1000E-03, 4.2300E-03, 4.3800E-03, 4.5300E-03, 4.6800E-03, + 4.8200E-03, 4.9700E-03, 5.1400E-03, 5.3400E-03, 5.5500E-03, 4 5.7600E-03, 5.9800E-03, 6.2000E-03, 6.4300E-03, 6.6700E-03, + 6.9000E-03, 7.1500E-03, 7.3900E-03, 7.6300E-03, 7.8600E-03, 5 8.0800E-03, 8.2700E-03, 8.4400E-03, 8.6100E-03, 8.7600E-03, + 8.8700E-03, 9.0100E-03, 9.1300E-03, 9.3000E-03, 9.4600E-03, 6 9.5700E-03, 9.7500E-03, 1.0000E-02, 1.0200E-02, 1.0400E-02, + 1.0600E-02, 1.0700E-02, 1.0900E-02, 1.1200E-02, 1.1500E-02, 7 1.1700E-02, 1.1900E-02, 1.2200E-02, 1.2400E-02, 1.2500E-02, + 1.2500E-02, 1.2500E-02, 1.2500E-02/ INTEGER, PARAMETER :: N_CLONO2 = 119 REAL :: WV_CLONO2( N_CLONO2 ) DATA WV_CLONO2 / O 1.9600E+02, 1.9800E+02, 2.0000E+02, 2.0200E+02, 2.0400E+02, + 2.0600E+02, 2.0800E+02, 2.1000E+02, 2.1200E+02, 2.1400E+02, 1 2.1600E+02, 2.1800E+02, 2.2000E+02, 2.2200E+02, 2.2400E+02, + 2.2600E+02, 2.2800E+02, 2.3000E+02, 2.3200E+02, 2.3400E+02, 2 2.3600E+02, 2.3800E+02, 2.4000E+02, 2.4200E+02, 2.4400E+02, + 2.4600E+02, 2.4800E+02, 2.5000E+02, 2.5200E+02, 2.5400E+02, 3 2.5600E+02, 2.5800E+02, 2.6000E+02, 2.6200E+02, 2.6400E+02, + 2.6600E+02, 2.6800E+02, 2.7000E+02, 2.7200E+02, 2.7400E+02, 4 2.7600E+02, 2.7800E+02, 2.8000E+02, 2.8200E+02, 2.8400E+02, + 2.8600E+02, 2.8800E+02, 2.9000E+02, 2.9200E+02, 2.9400E+02, 5 2.9600E+02, 2.9800E+02, 3.0000E+02, 3.0200E+02, 3.0400E+02, + 3.0600E+02, 3.0800E+02, 3.1000E+02, 3.1200E+02, 3.1400E+02, 6 3.1600E+02, 3.1800E+02, 3.2000E+02, 3.2200E+02, 3.2400E+02, + 3.2600E+02, 3.2800E+02, 3.3000E+02, 3.3200E+02, 3.3400E+02, 7 3.3600E+02, 3.3800E+02, 3.4000E+02, 3.4200E+02, 3.4400E+02, + 3.4600E+02, 3.4800E+02, 3.5000E+02, 3.5200E+02, 3.5400E+02, 8 3.5600E+02, 3.5800E+02, 3.6000E+02, 3.6200E+02, 3.6400E+02, + 3.6600E+02, 3.6800E+02, 3.7000E+02, 3.7200E+02, 3.7400E+02, 9 3.7600E+02, 3.7800E+02, 3.8000E+02, 3.8200E+02, 3.8400E+02, + 3.8600E+02, 3.8800E+02, 3.9000E+02, 3.9200E+02, 3.9400E+02, O 3.9600E+02, 3.9800E+02, 4.0000E+02, 4.0200E+02, 4.0400E+02, + 4.0600E+02, 4.0800E+02, 4.1000E+02, 4.1200E+02, 4.1400E+02, 1 4.1600E+02, 4.1800E+02, 4.2000E+02, 4.2200E+02, 4.2400E+02, + 4.2600E+02, 4.2800E+02, 4.3000E+02, 4.3200E+02/ REAL :: CLONO2_XC_296K( N_CLONO2 ) DATA CLONO2_XC_296K / O 3.1000E-18, 2.9400E-18, 2.8200E-18, 2.7700E-18, 2.8000E-18, + 2.8800E-18, 3.0000E-18, 3.1400E-18, 3.2900E-18, 3.3900E-18, 1 3.4500E-18, 3.4100E-18, 3.3200E-18, 3.1400E-18, 2.9100E-18, + 2.6400E-18, 2.3500E-18, 2.0800E-18, 1.8200E-18, 1.5800E-18, 2 1.3800E-18, 1.2000E-18, 1.0500E-18, 9.1900E-19, 8.1200E-19, + 7.1600E-19, 6.2400E-19, 5.6000E-19, 5.0200E-19, 4.5300E-19, 3 4.1000E-19, 3.7200E-19, 3.3800E-19, 3.0600E-19, 2.7800E-19, + 2.5200E-19, 2.2700E-19, 2.0500E-19, 1.8500E-19, 1.6600E-19, 4 1.4900E-19, 1.3300E-19, 1.1900E-19, 1.0500E-19, 9.3500E-20, + 8.2600E-20, 7.2400E-20, 6.4100E-20, 5.5000E-20, 4.6700E-20, 5 4.0900E-20, 3.5700E-20, 3.1300E-20, 2.7400E-20, 2.3900E-20, + 2.0900E-20, 1.8300E-20, 1.6000E-20, 1.4000E-20, 1.2200E-20, 6 1.0700E-20, 9.4700E-21, 8.3100E-21, 7.3100E-21, 6.4700E-21, + 5.7800E-21, 5.1800E-21, 4.6600E-21, 4.2000E-21, 3.8200E-21, 7 3.5100E-21, 3.2600E-21, 3.0200E-21, 2.8800E-21, 2.6400E-21, + 2.5200E-21, 2.4300E-21, 2.2900E-21, 2.1800E-21, 2.1200E-21, 8 2.0500E-21, 2.0300E-21, 2.0000E-21, 1.9000E-21, 1.8400E-21, + 1.7500E-21, 1.6600E-21, 1.5900E-21, 1.5100E-21, 1.4400E-21, 9 1.3800E-21, 1.2900E-21, 1.2100E-21, 1.1500E-21, 1.0800E-21, + 1.0300E-21, 9.7000E-22, 9.0900E-22, 8.4900E-22, 7.8000E-22, O 7.4000E-22, 7.1000E-22, 6.3800E-22, 5.9900E-22, 5.6800E-22, + 5.1300E-22, 4.8100E-22, 4.4400E-22, 4.1300E-22, 3.7300E-22, 1 3.5600E-22, 3.1700E-22, 3.1600E-22, 2.7500E-22, 2.4200E-22, + 2.2200E-22, 2.0700E-22, 1.8900E-22, 1.8800E-22/ REAL :: CLONO2_A1_296K( N_CLONO2 ) DATA CLONO2_A1_296K / O 9.9000E-05, 6.7200E-05,-5.3400E-06,-1.1900E-04,-2.6000E-04, + -4.1200E-04,-5.6200E-04,-6.9600E-04,-8.0400E-04,-8.7400E-04, 1 -9.0300E-04,-8.8600E-04,-8.2800E-04,-7.3100E-04,-6.0400E-04, + -4.5300E-04,-2.8800E-04,-1.1300E-04, 6.1800E-05, 2.2700E-04, 2 3.7200E-04, 4.9100E-04, 5.8600E-04, 6.6400E-04, 7.3300E-04, + 8.0300E-04, 8.8500E-04, 9.8400E-04, 1.1000E-03, 1.2200E-03, 3 1.3300E-03, 1.4400E-03, 1.5300E-03, 1.6200E-03, 1.7000E-03, + 1.7800E-03, 1.8600E-03, 1.9400E-03, 2.0200E-03, 2.1100E-03, 4 2.0200E-03, 2.2900E-03, 2.3800E-03, 2.4700E-03, 2.5600E-03, + 2.6600E-03, 2.7500E-03, 2.8400E-03, 2.9500E-03, 3.0800E-03, 5 3.2500E-03, 3.4500E-03, 3.6400E-03, 3.8300E-03, 4.0100E-03, + 4.1800E-03, 4.3600E-03, 4.5300E-03, 4.7100E-03, 4.8900E-03, 6 5.0700E-03, 5.2400E-03, 5.4000E-03, 5.5500E-03, 5.6800E-03, + 5.8000E-03, 5.8800E-03, 5.9200E-03, 5.9200E-03, 5.8800E-03, 7 5.8000E-03, 5.6800E-03, 5.5100E-03, 5.3200E-03, 5.0700E-03, + 4.7600E-03, 4.3900E-03, 4.0200E-03, 3.6800E-03, 3.4000E-03, 8 3.1500E-03, 2.9200E-03, 2.7000E-03, 2.4700E-03, 2.2200E-03, + 1.9300E-03, 1.6200E-03, 1.3300E-03, 1.0700E-03, 8.6000E-04, 9 6.7300E-04, 5.0100E-04, 3.5300E-04, 2.5400E-04, 2.2500E-04, + 2.6200E-04, 3.3300E-04, 4.1000E-04, 5.0400E-04, 6.6200E-04, O 8.9500E-04, 1.1400E-03, 1.3800E-03, 1.6300E-03, 1.9600E-03, + 2.3600E-03, 2.8400E-03, 3.3800E-03, 3.9600E-03, 4.5600E-03, 1 5.2200E-03, 5.9600E-03, 6.7000E-03, 7.3000E-03, 7.8200E-03, + 8.4100E-03, 9.1100E-03, 9.7200E-03, 9.9600E-03/ REAL :: CLONO2_A2_296K( N_CLONO2 ) DATA CLONO2_A2_296K / O -8.3800E-06,-8.0300E-06,-7.6400E-06,-7.6400E-06,-7.5000E-06, + -7.7400E-06,-8.0500E-06,-8.4100E-06,-8.7500E-06,-9.0400E-06, 1 -9.2400E-06,-9.3500E-06,-9.3800E-06,-9.3400E-06,-9.2400E-06, + -9.0600E-06,-8.7700E-06,-8.3300E-06,-7.7400E-06,-7.1000E-06, 2 -6.5200E-06,-6.1400E-06,-5.9800E-06,-6.0400E-06,-6.2700E-06, + -6.5100E-06,-6.5900E-06,-6.4000E-06,-5.9300E-06,-5.3300E-06, 3 -4.7300E-06,-4.2200E-06,-3.7900E-06,-3.3700E-06,-2.9400E-06, + -2.4800E-06,-2.0000E-06,-1.5000E-06,-1.0100E-06,-4.8400E-07, 4 9.0200E-08, 6.7200E-07, 1.2100E-06, 1.7200E-06, 2.2100E-06, + 2.6800E-06, 3.0900E-06, 3.4100E-06, 3.7400E-06, 4.2700E-06, 5 5.1300E-06, 6.2300E-06, 7.3600E-06, 8.3800E-06, 9.3000E-06, + 1.0200E-05, 1.1100E-05, 1.2000E-05, 1.3000E-05, 1.4200E-05, 6 1.5600E-05, 1.6900E-05, 1.8400E-05, 2.0000E-05, 2.1800E-05, + 2.3600E-05, 2.5400E-05, 2.7000E-05, 2.8400E-05, 2.9600E-05, 7 3.0500E-05, 3.1000E-05, 3.1100E-05, 3.0800E-05, 2.9600E-05, + 2.7400E-05, 2.4200E-05, 2.0700E-05, 1.7600E-05, 1.5000E-05, 8 1.2700E-05, 1.0600E-05, 8.5900E-06, 6.3800E-06, 3.6600E-06, + 2.4200E-07,-3.6200E-06,-7.4000E-06,-1.0700E-05,-1.3300E-05, 9 -1.5400E-05,-1.7400E-05,-1.9100E-05,-2.0500E-05,-2.1100E-05, + -2.1100E-05,-2.0800E-05,-2.0500E-05,-2.0200E-05,-1.9400E-05, O -1.7900E-05,-1.1600E-05,-1.4200E-05,-1.2000E-05,-8.9700E-06, + -5.1500E-06,-6.6400E-07, 4.4700E-06, 1.0000E-05, 1.6000E-05, 1 2.2800E-05, 3.0700E-05, 3.8700E-05, 4.5800E-05, 5.2200E-05, + 5.9500E-05, 6.7900E-05, 7.5200E-05, 7.8100E-05/ ! CLNO2 IUPAC 2013 Data Sheet recommended temperature correction to cross-section ! from ! B. Ghosh, D.K. Papanastasiou, R.K. Talukdar, J.M. Roberts, and J.B. Burkholder, ! "Nitryl chloride (ClNO2): UV/Vis absorption spectrum between 210 and 296 K and ! O(3P) quantum yield at 193 and 248 nm," J. Phys. Chem. A 116, 5796-5805 (2012); ! DOI: 10.1021/jp207389y ! A1 and A2 in units of 1.0E-5/K and 1.0E-5/K**2, respectively INTEGER, PARAMETER :: N_WAVE_XCLNO2 = 456 REAL :: wave_CLNO2(N_WAVE_XCLNO2) = (/ & 200.00, 201.00, 202.00, 203.00, 204.00, 205.00, 206.00, & 207.00, 208.00, 209.00, 210.00, 211.00, 212.00, 213.00, & 214.00, 215.00, 216.00, 217.00, 218.00, 219.00, 220.00, & 220.25, 220.50, 220.75, 221.00, 221.25, 221.50, 221.75, & 222.00, 222.25, 222.50, 222.75, 223.00, 223.25, 223.50, & 223.75, 224.00, 224.25, 224.50, 224.75, 225.00, 225.25, & 225.50, 225.75, 226.00, 226.25, 226.50, 226.75, 227.00, & 227.25, 227.50, 227.75, 228.00, 228.25, 228.50, 228.75, & 229.00, 229.25, 229.50, 229.75, 230.00, 230.25, 230.50, & 230.75, 231.00, 231.25, 231.50, 231.75, 232.00, 232.25, & 232.50, 232.75, 233.00, 233.25, 233.50, 233.75, 234.00, & 234.25, 234.50, 234.75, 235.00, 235.25, 235.50, 235.75, & 236.00, 236.25, 236.50, 236.75, 237.00, 237.25, 237.50, & 237.75, 238.00, 238.25, 238.50, 238.75, 239.00, 239.25, & 239.50, 239.75, 240.00, 240.25, 240.50, 240.75, 241.00, & 241.25, 241.50, 241.75, 242.00, 242.25, 242.50, 242.75, & 243.00, 243.25, 243.50, 243.75, 244.00, 244.25, 244.50, & 244.75, 245.00, 245.25, 245.50, 245.75, 246.00, 246.25, & 246.50, 246.75, 247.00, 247.25, 247.50, 247.75, 248.00, & 248.25, 248.50, 248.75, 249.00, 249.25, 249.50, 249.75, & 250.00, 250.25, 250.50, 250.75, 251.00, 251.25, 251.50, & 251.75, 252.00, 252.25, 252.50, 252.75, 253.00, 253.25, & 253.50, 253.75, 254.00, 254.25, 254.50, 254.75, 255.00, & 255.25, 255.50, 255.75, 256.00, 256.25, 256.50, 256.75, & 257.00, 257.25, 257.50, 257.75, 258.00, 258.25, 258.50, & 258.75, 259.00, 259.25, 259.50, 259.75, 260.00, 260.25, & 260.50, 260.75, 261.00, 261.25, 261.50, 261.75, 262.00, & 262.25, 262.50, 262.75, 263.00, 263.25, 263.50, 263.75, & 264.00, 264.25, 264.50, 264.75, 265.00, 265.25, 265.50, & 265.75, 266.00, 266.25, 266.50, 266.75, 267.00, 267.25, & 267.50, 267.75, 268.00, 268.25, 268.50, 268.75, 269.00, & 269.25, 269.50, 269.75, 270.00, 270.25, 270.50, 270.75, & 271.00, 271.25, 271.50, 271.75, 272.00, 272.25, 272.50, & 272.75, 273.00, 273.25, 273.50, 273.75, 274.00, 274.25, & 274.50, 274.75, 275.00, 275.25, 275.50, 275.75, 276.00, & 276.25, 276.50, 276.75, 277.00, 277.25, 277.50, 277.75, & 278.00, 278.25, 278.50, 278.75, 279.00, 279.25, 279.50, & 279.75, 280.00, 281.00, 282.00, 283.00, 284.00, 285.00, & 286.00, 287.00, 288.00, 289.00, 290.00, 291.00, 292.00, & 293.00, 294.00, 295.00, 296.00, 297.00, 298.00, 299.00, & 300.00, 301.00, 302.00, 303.00, 304.00, 305.00, 306.00, & 307.00, 308.00, 309.00, 310.00, 311.00, 312.00, 313.00, & 314.00, 315.00, 316.00, 317.00, 318.00, 319.00, 320.00, & 321.00, 322.00, 323.00, 324.00, 325.00, 326.00, 327.00, & 328.00, 329.00, 330.00, 331.00, 332.00, 333.00, 334.00, & 335.00, 336.00, 337.00, 338.00, 339.00, 340.00, 341.00, & 342.00, 343.00, 344.00, 345.00, 346.00, 347.00, 348.00, & 349.00, 350.00, 351.00, 352.00, 353.00, 354.00, 355.00, & 356.00, 357.00, 358.00, 359.00, 360.00, 361.00, 362.00, & 363.00, 364.00, 365.00, 366.00, 367.00, 368.00, 369.00, & 370.00, 371.00, 372.00, 373.00, 374.00, 375.00, 376.00, & 377.00, 378.00, 379.00, 380.00, 381.00, 382.00, 383.00, & 384.00, 385.00, 386.00, 387.00, 388.00, 389.00, 390.00, & 391.00, 392.00, 393.00, 394.00, 395.00, 396.00, 397.00, & 398.00, 399.00, 400.00, 401.00, 402.00, 403.00, 404.00, & 405.00, 406.00, 407.00, 408.00, 409.00, 410.00, 411.00, & 412.00, 413.00, 414.00, 415.00, 416.00, 417.00, 418.00, & 419.00, 420.00, 421.00, 422.00, 423.00, 424.00, 425.00, & 426.00, 427.00, 428.00, 429.00, 430.00, 431.00, 432.00, & 433.00, 434.00, 435.00, 436.00, 437.00, 438.00, 439.00, & 440.00, 441.00, 442.00, 443.00, 444.00, 445.00, 446.00, & 447.00, 448.00, 449.00, 450.00, 451.00, 452.00, 453.00, & 454.00, 455.00, 456.00, 457.00, 458.00, 459.00, 460.00, & 461.00, 462.00, 463.00, 464.00, 465.00, 466.00, 467.00, & 468.00, 469.00, 470.00, 471.00, 472.00, 473.00, 474.00, & 475.00 /) REAL :: A1_CLNO2(N_WAVE_XCLNO2) = (/ & 413.0000, 380.0000, 338.0000, 295.0000, 253.0000, 211.0000, 180.0000, & 151.0000, 128.0000, 110.0000, 96.0000, 86.0000, 77.0000, 73.0000, & 68.0000, 68.0000, 66.0000, 65.0000, 67.0000, 72.0000, 73.0000, & 74.0000, 76.0000, 77.0000, 78.0000, 80.0000, 82.0000, 84.0000, & 85.0000, 87.0000, 89.0000, 91.0000, 92.0000, 94.0000, 95.0000, & 97.0000, 98.0000, 101.0000, 102.0000, 104.0000, 105.0000, & 108.0000, 110.0000, 112.0000, 115.0000, 117.0000, 119.0000, & 121.0000, 124.0000, 126.0000, 129.0000, 131.0000, 134.0000, & 136.0000, 139.0000, 142.0000, 144.0000, 146.0000, 148.0000, & 151.0000, 155.0000, 158.0000, 159.0000, 162.0000, 164.0000, & 167.0000, 171.0000, 172.0000, 174.0000, 176.0000, 178.0000, & 182.0000, 185.0000, 187.0000, 188.0000, 190.0000, 194.0000, & 197.0000, 199.0000, 200.0000, 203.0000, 205.0000, 206.0000, & 208.0000, 208.0000, 208.0000, 210.0000, 212.0000, 214.0000, & 217.0000, 220.0000, 222.0000, 223.0000, 223.0000, 222.0000, & 221.0000, 224.0000, 227.0000, 228.0000, 225.0000, 229.0000, & 233.0000, 234.0000, 234.0000, 236.0000, 234.0000, 231.0000, & 230.0000, 230.0000, 235.0000, 241.0000, 246.0000, 245.0000, & 244.0000, 238.0000, 230.0000, 222.0000, 220.0000, 227.0000, & 237.0000, 242.0000, 247.0000, 247.0000, 243.0000, 239.0000, & 229.0000, 226.0000, 226.0000, 227.0000, 233.0000, 247.0000, & 257.0000, 259.0000, 251.0000, 244.0000, 237.0000, 231.0000, & 224.0000, 223.0000, 229.0000, 239.0000, 246.0000, 251.0000, & 251.0000, 247.0000, 239.0000, 230.0000, 224.0000, 223.0000, & 226.0000, 232.0000, 239.0000, 245.0000, 248.0000, 246.0000, & 242.0000, 236.0000, 230.0000, 226.0000, 226.0000, 230.0000, & 236.0000, 243.0000, 250.0000, 255.0000, 257.0000, 254.0000, & 246.0000, 242.0000, 239.0000, 237.0000, 239.0000, 243.0000, & 249.0000, 254.0000, 257.0000, 257.0000, 256.0000, 254.0000, & 251.0000, 246.0000, 244.0000, 244.0000, 245.0000, 250.0000, & 256.0000, 261.0000, 263.0000, 264.0000, 262.0000, 258.0000, & 253.0000, 252.0000, 252.0000, 253.0000, 256.0000, 260.0000, & 262.0000, 265.0000, 267.0000, 268.0000, 265.0000, 262.0000, & 259.0000, 255.0000, 254.0000, 255.0000, 257.0000, 258.0000, & 261.0000, 264.0000, 267.0000, 267.0000, 263.0000, 260.0000, & 259.0000, 258.0000, 258.0000, 258.0000, 258.0000, 258.0000, & 257.0000, 257.0000, 258.0000, 259.0000, 258.0000, 257.0000, & 255.0000, 252.0000, 250.0000, 251.0000, 250.0000, 250.0000, & 250.0000, 247.0000, 247.0000, 246.0000, 243.0000, 241.0000, & 238.0000, 236.0000, 236.0000, 234.0000, 233.0000, 231.0000, & 230.0000, 229.0000, 223.0000, 220.0000, 218.0000, 216.0000, & 215.0000, 214.0000, 212.0000, 209.0000, 208.0000, 205.0000, & 202.0000, 199.0000, 196.0000, 194.0000, 182.0000, 171.0000, & 160.0000, 146.0000, 136.0000, 124.0000, 110.0000, 105.0000, & 95.0000, 84.0000, 79.0000, 75.0000, 70.0000, 62.0000, & 60.0000, 57.0000, 55.0000, 55.0000, 56.0000, 58.0000, & 59.0000, 61.0000, 64.0000, 67.0000, 73.0000, 79.0000, & 83.0000, 86.0000, 94.0000, 99.0000, 105.3000, 113.6000, & 118.7000, 127.0000, 135.6000, 143.9000, 151.6000, 160.3000, & 167.1000, 176.8000, 186.0000, 197.3000, 207.7000, 214.7000, & 227.6000, 235.8000, 246.7000, 256.8000, 268.1000, 278.8000, & 291.7000, 301.8000, 313.4000, 325.5000, 336.4000, 348.7000, & 361.7000, 376.4000, 386.2000, 397.9000, 408.9000, 422.7000, & 433.4000, 446.4000, 459.8000, 469.8000, 486.7000, 500.1000, & 516.8000, 522.1000, 539.7000, 552.9000, 567.2000, 579.4000, & 593.0000, 606.0000, 621.1000, 633.8000, 647.0000, 660.3000, & 674.1000, 686.9000, 701.1000, 714.4000, 726.4000, 738.0000, & 752.0000, 764.0000, 780.6000, 792.1000, 803.3000, 816.0000, & 828.6000, 839.3000, 850.9000, 863.1000, 872.0000, 883.9000, & 902.4000, 910.8000, 923.8000, 937.2000, 951.4000, 962.0000, & 974.0000, 984.4000, 990.1000, 1002.2000, 1025.9000, 1024.7000, & 1025.7000, 1033.6000, 1058.5000, 1070.4000, 1080.8000, & 1082.2000, 1092.3000, 1112.4000, 1135.2000, 1143.2000, & 1143.1000, 1142.4000, 1152.4000, 1156.4000, 1174.7000, & 1203.6000, 1216.5000, 1196.6000, 1219.7000, 1236.0000, & 1237.7000, 1230.5000, 1256.6000, 1288.4000, 1231.6000, & 1267.7000, 1308.1000, 1278.8000, 1283.9000, 1257.0000, & 1301.3000, 1363.6000, 1414.1000, 1435.9000, 1411.4000, & 1392.3000, 1342.4000, 1465.1000, 1321.3000, 1332.4000, & 1443.3000, 1322.1000, 1194.9000, 1388.2000, 1528.6000, & 1404.6000, 1321.8000, 1268.2000, 1453.1000, 1161.9000, & 1292.8000, 1646.1000, 1476.1000, 1528.4000, 1410.0000, & 1644.9000, 1567.6000, 1415.0000, 1422.3000, 1550.1000, & 1483.5000, 1283.0000, 1501.5000, 1185.0000, 1357.1000, & 1343.4000, 677.0000, 1665.7000, 2225.7000, 2100.9000, & 1478.2000, -261.0000, 226.4000, 2245.4000, 2395.2000, & 1814.8000, 1130.2000, 2273.8000, 2932.8000, 1401.8000, & 136.5000, -743.4000, 1244.0000, 1929.0000, 910.0000 /) REAL :: A2_CLNO2(N_WAVE_XCLNO2) = (/ & 2.0800, 2.1000, 2.0800, 2.0400, 1.9600, 1.8500, 1.7900, & 1.6900, 1.6200, 1.5600, 1.5000, 1.4700, 1.4300, 1.4100, & 1.3800, 1.3800, 1.3500, 1.3200, 1.3100, 1.3100, 1.2900, & 1.2800, 1.2800, 1.2700, 1.2700, 1.2800, 1.2900, 1.2900, & 1.2900, 1.2800, 1.2900, 1.2900, 1.2900, 1.2900, 1.2900, & 1.2900, 1.2800, 1.2800, 1.2700, 1.2600, 1.2600, 1.2600, & 1.2600, 1.2600, 1.2600, 1.2500, 1.2500, 1.2500, 1.2600, & 1.2600, 1.2600, 1.2700, 1.2700, 1.2700, 1.2800, 1.2700, & 1.2700, 1.2700, 1.2800, 1.2800, 1.2900, 1.3000, 1.2900, & 1.2800, 1.2900, 1.2900, 1.3100, 1.3000, 1.2900, 1.3000, & 1.3000, 1.3100, 1.3200, 1.3100, 1.3100, 1.3100, 1.3300, & 1.3500, 1.3500, 1.3600, 1.3600, 1.3600, 1.3500, 1.3600, & 1.3400, 1.3300, 1.3400, 1.3500, 1.3600, 1.3700, 1.3900, & 1.3900, 1.3900, 1.3800, 1.3600, 1.3400, 1.3700, 1.3900, & 1.3900, 1.3500, 1.3900, 1.4200, 1.4200, 1.4100, 1.4300, & 1.4200, 1.4100, 1.3900, 1.3900, 1.4200, 1.4600, 1.5000, & 1.5100, 1.5000, 1.4600, 1.3900, 1.3100, 1.3000, 1.3700, & 1.4600, 1.4800, 1.5100, 1.5000, 1.4800, 1.4700, 1.3900, & 1.3800, 1.3800, 1.3800, 1.4500, 1.5700, 1.6500, 1.6400, & 1.5700, 1.5200, 1.4700, 1.4300, 1.3900, 1.3800, 1.4300, & 1.5000, 1.5500, 1.5800, 1.5800, 1.5500, 1.4900, 1.4200, & 1.3900, 1.3800, 1.4100, 1.4500, 1.5000, 1.5400, 1.5600, & 1.5400, 1.5100, 1.4700, 1.4200, 1.3900, 1.4100, 1.4400, & 1.4800, 1.5300, 1.5900, 1.6200, 1.6300, 1.6100, 1.5500, & 1.5200, 1.5000, 1.4800, 1.5000, 1.5400, 1.5800, 1.6100, & 1.6200, 1.6200, 1.6100, 1.6000, 1.5800, 1.5400, 1.5200, & 1.5200, 1.5300, 1.5700, 1.6100, 1.6500, 1.6600, 1.6500, & 1.6400, 1.6100, 1.5700, 1.5600, 1.5600, 1.5800, 1.6100, & 1.6400, 1.6500, 1.6700, 1.6800, 1.6900, 1.6600, 1.6300, & 1.6000, 1.5800, 1.5700, 1.5900, 1.6100, 1.6100, 1.6300, & 1.6600, 1.6800, 1.6800, 1.6400, 1.6200, 1.6100, 1.6200, & 1.6300, 1.6400, 1.6500, 1.6500, 1.6300, 1.6400, 1.6500, & 1.6600, 1.6600, 1.6600, 1.6500, 1.6300, 1.6200, 1.6400, & 1.6500, 1.6500, 1.6600, 1.6500, 1.6500, 1.6500, 1.6300, & 1.6100, 1.5900, 1.5800, 1.5900, 1.6000, 1.6000, 1.6100, & 1.6100, 1.6200, 1.5800, 1.5600, 1.5600, 1.5600, 1.5600, & 1.5700, 1.5600, 1.5600, 1.5700, 1.5600, 1.5400, 1.5200, & 1.5200, 1.5200, 1.5000, 1.4800, 1.4500, 1.3900, 1.3600, & 1.3300, 1.2700, 1.2800, 1.2300, 1.1700, 1.1400, 1.1200, & 1.1200, 1.0600, 1.0400, 1.0000, 0.9600, 0.9400, 0.9300, & 0.9100, 0.8900, 0.8600, 0.8500, 0.8100, 0.8200, 0.8200, & 0.8000, 0.7600, 0.7700, 0.7400, 0.7300, 0.7400, 0.7100, & 0.7100, 0.7000, 0.7000, 0.6900, 0.6800, 0.6500, 0.6600, & 0.6600, 0.6700, 0.6900, 0.6600, 0.6900, 0.6600, 0.6700, & 0.6700, 0.6800, 0.6800, 0.7100, 0.7100, 0.7200, 0.7300, & 0.7400, 0.7700, 0.7900, 0.8400, 0.8400, 0.8600, 0.8700, & 0.8900, 0.9000, 0.9300, 0.9700, 0.9600, 1.0408, 1.0862, & 1.1660, 1.1449, 1.2572, 1.2938, 1.3790, 1.4078, 1.4617, & 1.5041, 1.5678, 1.6182, 1.6656, 1.7166, 1.7806, 1.8283, & 1.8958, 1.9573, 2.0010, 2.0425, 2.1187, 2.1712, 2.2865, & 2.3378, 2.3827, 2.4475, 2.5116, 2.5491, 2.6067, 2.6585, & 2.6906, 2.7567, 2.8881, 2.9282, 3.0187, 3.1009, 3.2127, & 3.2702, 3.3460, 3.4010, 3.3733, 3.4571, 3.7142, 3.6578, & 3.5651, 3.5548, 3.8147, 3.9261, 3.9704, 3.9567, 3.9966, & 4.1494, 4.3811, 4.4706, 4.4151, 4.3398, 4.4287, 4.4236, & 4.5284, 4.9377, 5.1234, 4.7891, 4.9766, 5.1677, 5.1393, & 4.8698, 5.1817, 5.6253, 4.8910, 5.3019, 5.8144, 5.4637, & 5.4074, 4.9192, 5.2297, 5.9976, 6.6708, 7.0486, 7.0379, & 6.7606, 5.9166, 7.5079, 5.3317, 5.6931, 7.5198, 6.1573, & 3.5562, 6.3833, 8.5640, 6.7140, 5.3960, 4.5840, 7.3280, & 2.7530, 4.9100, 10.3400, 7.8590, 8.2740, 6.7850, 10.0400, & 9.1900, 6.3940, 6.8460, 8.9660, 8.1330, 5.3480, 8.1140, & 2.8790, 5.0610, 4.8080, -4.0700, 10.6800, 19.7800, & 17.8100, 8.4930, -18.3290, -10.7120, 18.8900, 21.9100, & 13.1400, 1.7060, 19.5000, 30.5600, 6.4120, -10.1170, & -24.6090, 8.1620, 15.0100, 2.2140 /) ! Ozone photolysis cross-sections recommended by NASA_JPL(2006) INTEGER, PARAMETER :: N_O3_XC = 167 REAL :: WV_O3_XC( N_O3_XC ) DATA WV_O3_XC / O 1.8518E+02, 1.8692E+02, 1.8868E+02, 1.9048E+02, 1.9231E+02, + 1.9418E+02, 1.9608E+02, 1.9802E+02, 2.0000E+02, 2.0202E+02, 1 2.0408E+02, 2.0619E+02, 2.0833E+02, 2.1053E+02, 2.1277E+02, + 2.1505E+02, 2.1739E+02, 2.1978E+02, 2.2222E+02, 2.2472E+02, 2 2.2727E+02, 2.2988E+02, 2.3256E+02, 2.3529E+02, 2.3810E+02, + 2.4096E+02, 2.4390E+02, 2.4691E+02, 2.5000E+02, 2.5316E+02, 3 2.5641E+02, 2.5974E+02, 2.6316E+02, 2.6667E+02, 2.7027E+02, + 2.7397E+02, 2.7778E+02, 2.8169E+02, 2.8571E+02, 2.8986E+02, 4 2.9412E+02, 2.9851E+02, 2.9950E+02, 3.0050E+02, 3.0150E+02, + 3.0250E+02, 3.0350E+02, 3.0450E+02, 3.0550E+02, 3.0650E+02, 5 3.0750E+02, 3.0850E+02, 3.0950E+02, 3.1050E+02, 3.1150E+02, + 3.1250E+02, 3.1350E+02, 3.1450E+02, 3.1550E+02, 3.1650E+02, 6 3.1750E+02, 3.1850E+02, 3.1950E+02, 3.2050E+02, 3.2150E+02, + 3.2350E+02, 3.2550E+02, 3.2750E+02, 3.3250E+02, 3.3750E+02, 7 3.4250E+02, 3.4750E+02, 3.5250E+02, 3.5750E+02, 3.6250E+02, + 3.6750E+02, 3.7250E+02, 3.7750E+02, 3.8250E+02, 3.8750E+02, 8 3.9250E+02, 3.9750E+02, 4.0250E+02, 4.0750E+02, 4.1250E+02, + 4.1750E+02, 4.2250E+02, 4.2750E+02, 4.3250E+02, 4.3750E+02, 9 4.4250E+02, 4.4750E+02, 4.5250E+02, 4.5750E+02, 4.6250E+02, + 4.6750E+02, 4.7250E+02, 4.7750E+02, 4.8250E+02, 4.8750E+02, O 4.9250E+02, 4.9750E+02, 5.0250E+02, 5.0750E+02, 5.1250E+02, + 5.1750E+02, 5.2250E+02, 5.2750E+02, 5.3250E+02, 5.3750E+02, 1 5.4250E+02, 5.4750E+02, 5.5250E+02, 5.5750E+02, 5.6250E+02, + 5.6750E+02, 5.7250E+02, 5.7750E+02, 5.8250E+02, 5.8750E+02, 2 5.9250E+02, 5.9750E+02, 6.0250E+02, 6.0750E+02, 6.1250E+02, + 6.1750E+02, 6.2250E+02, 6.2750E+02, 6.3250E+02, 6.3750E+02, 3 6.4250E+02, 6.4750E+02, 6.5250E+02, 6.5750E+02, 6.6250E+02, + 6.6750E+02, 6.7250E+02, 6.7750E+02, 6.8250E+02, 6.8750E+02, 4 6.9250E+02, 6.9750E+02, 7.0250E+02, 7.0750E+02, 7.1250E+02, + 7.1750E+02, 7.2250E+02, 7.2750E+02, 7.3250E+02, 7.3750E+02, 5 7.4250E+02, 7.4750E+02, 7.5250E+02, 7.5750E+02, 7.6250E+02, + 7.6750E+02, 7.7250E+02, 7.7750E+02, 7.8250E+02, 7.8750E+02, 6 7.9250E+02, 7.9750E+02, 8.0250E+02, 8.0750E+02, 8.1250E+02, + 8.1750E+02, 8.2250E+02/ REAL :: O3_XC_218K( N_O3_XC ) DATA O3_XC_218K / O 6.2200E-19, 5.7600E-19, 5.2600E-19, 4.7700E-19, 4.2900E-19, + 3.8500E-19, 3.4400E-19, 3.2000E-19, 3.1200E-19, 3.2400E-19, 1 3.6200E-19, 4.3200E-19, 5.4200E-19, 6.9600E-19, 9.0600E-19, + 1.1900E-18, 1.5500E-18, 2.0100E-18, 2.5600E-18, 3.2300E-18, 2 4.0300E-18, 4.9200E-18, 5.8900E-18, 6.9200E-18, 7.9900E-18, + 9.0500E-18, 9.9500E-18, 1.0740E-17, 1.1160E-17, 1.1360E-17, 3 1.1050E-17, 1.0470E-17, 9.5200E-18, 8.2300E-18, 6.8100E-18, + 5.3100E-18, 3.9100E-18, 2.7100E-18, 1.7500E-18, 1.0500E-18, 4 5.9400E-19, 4.0700E-19, 3.5100E-19, 3.0500E-19, 2.6900E-19, + 2.2900E-19, 2.0600E-19, 1.7300E-19, 1.5600E-19, 1.3300E-19, 5 1.1500E-19, 1.0400E-19, 8.5000E-20, 7.7600E-20, 6.5300E-20, + 5.6200E-20, 5.0500E-20, 4.0800E-20, 3.8200E-20, 3.1100E-20, 6 2.9400E-20, 2.1100E-20, 2.4100E-20, 1.4300E-20, 1.5700E-20, + 1.0200E-20, 6.5800E-21, 4.8300E-21, 2.0400E-21, 7.9700E-22, 7 7.7900E-22, 3.0600E-22, 1.3600E-22, 6.9400E-23, 3.0500E-23, + 1.3000E-23, 8.5000E-24, 5.7200E-24, 5.4200E-24, 6.6800E-24, 8 9.5600E-24, 1.1500E-23, 1.5800E-23, 2.5800E-23, 2.9500E-23, + 3.9300E-23, 6.5600E-23, 6.9700E-23, 8.8200E-23, 1.3700E-22, 9 1.6500E-22, 1.8500E-22, 2.1800E-22, 3.6600E-22, 3.6700E-22, + 4.1000E-22, 4.8100E-22, 7.5400E-22, 8.1300E-22, 8.1600E-22, O 9.0800E-22, 1.2100E-21, 1.6000E-21, 1.5800E-21, 1.6600E-21, + 1.8300E-21, 2.1900E-21, 2.6700E-21, 2.8700E-21, 2.9500E-21, 1 3.1900E-21, 3.3700E-21, 3.5800E-21, 3.9800E-21, 4.3900E-21, + 4.6700E-21, 4.8100E-21, 4.6400E-21, 4.4600E-21, 4.4700E-21, 2 4.7600E-21, 5.1300E-21, 5.1400E-21, 4.7800E-21, 4.3800E-21, + 4.0600E-21, 3.8200E-21, 3.5600E-21, 3.2700E-21, 2.9700E-21, 3 2.7100E-21, 2.5100E-21, 2.3100E-21, 2.1000E-21, 1.9000E-21, + 1.7000E-21, 1.5100E-21, 1.3700E-21, 1.2600E-21, 1.1300E-21, 4 9.8900E-22, 8.6800E-22, 7.8400E-22, 7.3100E-22, 6.9600E-22, + 6.2200E-22, 5.4300E-22, 4.7800E-22, 4.4200E-22, 4.3200E-22, 5 4.4700E-22, 4.2500E-22, 3.3800E-22, 2.8600E-22, 2.6200E-22, + 2.6000E-22, 2.9400E-22, 3.1800E-22, 2.6200E-22, 2.0800E-22, 6 1.7300E-22, 1.5700E-22, 1.5600E-22, 1.8600E-22, 2.2100E-22, + 2.0600E-22, 1.4500E-22/ REAL :: O3_XC_293K( N_O3_XC ) DATA O3_XC_293K / O 6.2200E-19, 5.7600E-19, 5.2600E-19, 4.7700E-19, 4.2900E-19, + 3.8500E-19, 3.4900E-19, 3.2400E-19, 3.1500E-19, 3.2600E-19, 1 3.6300E-19, 4.3300E-19, 5.3900E-19, 6.9300E-19, 9.0300E-19, + 1.1800E-18, 1.5400E-18, 1.9900E-18, 2.5500E-18, 3.2200E-18, 2 4.0100E-18, 4.9000E-18, 5.9000E-18, 6.9300E-18, 8.0200E-18, + 9.0800E-18, 1.0010E-17, 1.0800E-17, 1.1250E-17, 1.1480E-17, 3 1.1220E-17, 1.0640E-17, 9.6800E-18, 8.4000E-18, 6.9800E-18, + 5.4700E-18, 4.0600E-18, 2.8200E-18, 1.8400E-18, 1.1300E-18, 4 6.5100E-19, 4.5200E-19, 3.9200E-19, 3.4300E-19, 3.0300E-19, + 2.6200E-19, 2.3400E-19, 2.0100E-19, 1.7900E-19, 1.5500E-19, 5 1.3500E-19, 1.2200E-19, 1.0200E-19, 9.2400E-20, 7.9500E-20, + 6.9100E-20, 6.2500E-20, 5.1900E-20, 4.7700E-20, 4.0200E-20, 6 3.7200E-20, 2.8900E-20, 2.9900E-20, 2.1000E-20, 2.0500E-20, + 1.4100E-20, 1.0100E-20, 6.9700E-21, 3.2000E-21, 1.4600E-21, 7 7.7900E-22, 3.0600E-22, 1.3600E-22, 6.9400E-23, 3.0500E-23, + 1.3000E-23, 8.5000E-24, 5.7200E-24, 5.4200E-24, 6.6800E-24, 8 9.5600E-24, 1.1500E-23, 1.5800E-23, 2.5800E-23, 2.9500E-23, + 3.9300E-23, 6.5600E-23, 6.9700E-23, 8.8200E-23, 1.3700E-22, 9 1.6500E-22, 1.8500E-22, 2.1800E-22, 3.6600E-22, 3.6700E-22, + 4.1000E-22, 4.8100E-22, 7.5400E-22, 8.1300E-22, 8.1600E-22, O 9.0800E-22, 1.2100E-21, 1.6000E-21, 1.5800E-21, 1.6600E-21, + 1.8300E-21, 2.1900E-21, 2.6700E-21, 2.8700E-21, 2.9500E-21, 1 3.1900E-21, 3.3700E-21, 3.5800E-21, 3.9800E-21, 4.3900E-21, + 4.6700E-21, 4.8100E-21, 4.6400E-21, 4.4600E-21, 4.4700E-21, 2 4.7600E-21, 5.1300E-21, 5.1400E-21, 4.7800E-21, 4.3800E-21, + 4.0600E-21, 3.8200E-21, 3.5600E-21, 3.2700E-21, 2.9700E-21, 3 2.7100E-21, 2.5100E-21, 2.3100E-21, 2.1000E-21, 1.9000E-21, + 1.7000E-21, 1.5100E-21, 1.3700E-21, 1.2600E-21, 1.1300E-21, 4 9.8900E-22, 8.6800E-22, 7.8400E-22, 7.3100E-22, 6.9600E-22, + 6.2200E-22, 5.4300E-22, 4.7800E-22, 4.4200E-22, 4.3200E-22, 5 4.4700E-22, 4.2500E-22, 3.3800E-22, 2.8600E-22, 2.6200E-22, + 2.6000E-22, 2.9400E-22, 3.1800E-22, 2.6200E-22, 2.0800E-22, 6 1.7300E-22, 1.5700E-22, 1.5600E-22, 1.8600E-22, 2.2100E-22, + 2.0600E-22, 1.4500E-22/ !IUPAC(2005)_Subcommittee_on_Gas_Kinetic_Data_Evaluation !Data_Sheet_P17 INTEGER, PARAMETER :: N_IC3ONO2_XC = 37 REAL :: WV_IC3ONO2_XC( N_IC3ONO2_XC ) DATA WV_IC3ONO2_XC / O 1.8500E+02, 1.8800E+02, 1.9000E+02, 1.9500E+02, 2.0000E+02, + 2.0500E+02, 2.1000E+02, 2.1500E+02, 2.2000E+02, 2.2500E+02, 1 2.3000E+02, 2.3500E+02, 2.4000E+02, 2.4500E+02, 2.5000E+02, + 2.5500E+02, 2.6000E+02, 2.6500E+02, 2.7000E+02, 2.7500E+02, 2 2.8000E+02, 2.8500E+02, 2.9000E+02, 2.9500E+02, 3.0000E+02, + 3.0500E+02, 3.1000E+02, 3.1500E+02, 3.2000E+02, 3.2500E+02, 3 3.3000E+02, 3.3500E+02, 3.4000E+02, 3.4500E+02, 3.5000E+02, + 3.5500E+02, 3.6000E+02/ REAL :: IC3ONO2_XC_298K( N_IC3ONO2_XC ) DATA IC3ONO2_XC_298K / O 1.7900E-17, 1.8100E-17, 1.7900E-17, 1.6100E-17, 1.2600E-17, + 8.6700E-18, 4.9800E-18, 2.4700E-18, 1.2500E-18, 6.2000E-19, 1 3.4000E-19, 1.8000E-19, 1.1000E-19, 7.0000E-20, 5.4000E-20, + 4.9000E-20, 4.6000E-20, 4.3000E-20, 3.9000E-20, 3.4000E-20, 2 2.8000E-20, 2.2000E-20, 1.6000E-20, 1.2000E-20, 7.8000E-21, + 5.0000E-21, 2.9000E-21, 1.7000E-21, 8.5000E-22, 4.4000E-22, 3 2.2000E-22, 1.1000E-22, 5.3000E-23, 1.8000E-23, 8.0000E-24, + 2.9000E-24, 1.8000E-24/ REAL :: IC3ONO2_XC_B( N_IC3ONO2_XC ) DATA IC3ONO2_XC_B / O 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, 1 0.0000E+00, 0.0000E+00, 2.8000E-03, 2.7000E-03, 2.5000E-03, + 2.5000E-03, 2.6000E-03, 2.8000E-03, 3.1000E-03, 3.3000E-03, 2 3.6000E-03, 4.0000E-03, 4.4000E-03, 4.8000E-03, 5.4000E-03, + 6.1000E-03, 6.9000E-03, 8.1000E-03, 9.4000E-03, 1.1100E-02, 3 1.1900E-02, 1.4000E-02, 1.3900E-02, 0.0000E+00, 0.0000E+00, + 0.0000E+00, 0.0000E+00/ ! NASA JPL (2006) !(1) HCHOR-06: CH2O + hc --> H + HCO !(2) HCHOM-06: CH2O + hv --> H2 + CO !Absorption Cross Sections of CH2O at 298 K and Temperature Coefficients !Averaged over 1-nm Intervals-Valid from 195K to 300K ! XC(T) = XC(300K)+ DXC/DT*(T-300K) INTEGER, PARAMETER :: N_HCHO_XC = 150 REAL :: WV_HCHO_XC( N_HCHO_XC ) DATA WV_HCHO_XC / O 2.2600E+02, 2.2700E+02, 2.2800E+02, 2.2900E+02, 2.3000E+02, + 2.3100E+02, 2.3200E+02, 2.3300E+02, 2.3400E+02, 2.3500E+02, 1 2.3600E+02, 2.3700E+02, 2.3800E+02, 2.3900E+02, 2.4000E+02, + 2.4100E+02, 2.4200E+02, 2.4300E+02, 2.4400E+02, 2.4500E+02, 2 2.4600E+02, 2.4700E+02, 2.4800E+02, 2.4900E+02, 2.5000E+02, + 2.5100E+02, 2.5200E+02, 2.5300E+02, 2.5400E+02, 2.5500E+02, 3 2.5600E+02, 2.5700E+02, 2.5800E+02, 2.5900E+02, 2.6000E+02, + 2.6100E+02, 2.6200E+02, 2.6300E+02, 2.6400E+02, 2.6500E+02, 4 2.6600E+02, 2.6700E+02, 2.6800E+02, 2.6900E+02, 2.7000E+02, + 2.7100E+02, 2.7200E+02, 2.7300E+02, 2.7400E+02, 2.7500E+02, 5 2.7600E+02, 2.7700E+02, 2.7800E+02, 2.7900E+02, 2.8000E+02, + 2.8100E+02, 2.8200E+02, 2.8300E+02, 2.8400E+02, 2.8500E+02, 6 2.8600E+02, 2.8700E+02, 2.8800E+02, 2.8900E+02, 2.9000E+02, + 2.9100E+02, 2.9200E+02, 2.9300E+02, 2.9400E+02, 2.9500E+02, 7 2.9600E+02, 2.9700E+02, 2.9800E+02, 2.9900E+02, 3.0000E+02, + 3.0100E+02, 3.0200E+02, 3.0300E+02, 3.0400E+02, 3.0500E+02, 8 3.0600E+02, 3.0700E+02, 3.0800E+02, 3.0900E+02, 3.1000E+02, + 3.1100E+02, 3.1200E+02, 3.1300E+02, 3.1400E+02, 3.1500E+02, 9 3.1600E+02, 3.1700E+02, 3.1800E+02, 3.1900E+02, 3.2000E+02, + 3.2100E+02, 3.2200E+02, 3.2300E+02, 3.2400E+02, 3.2500E+02, O 3.2600E+02, 3.2700E+02, 3.2800E+02, 3.2900E+02, 3.3000E+02, + 3.3100E+02, 3.3200E+02, 3.3300E+02, 3.3400E+02, 3.3500E+02, 1 3.3600E+02, 3.3700E+02, 3.3800E+02, 3.3900E+02, 3.4000E+02, + 3.4100E+02, 3.4200E+02, 3.4300E+02, 3.4400E+02, 3.4500E+02, 2 3.4600E+02, 3.4700E+02, 3.4800E+02, 3.4900E+02, 3.5000E+02, + 3.5100E+02, 3.5200E+02, 3.5300E+02, 3.5400E+02, 3.5500E+02, 3 3.5600E+02, 3.5700E+02, 3.5800E+02, 3.5900E+02, 3.6000E+02, + 3.6100E+02, 3.6200E+02, 3.6300E+02, 3.6400E+02, 3.6500E+02, 4 3.6600E+02, 3.6700E+02, 3.6800E+02, 3.6900E+02, 3.7000E+02, + 3.7100E+02, 3.7200E+02, 3.7300E+02, 3.7400E+02, 3.7500E+02/ REAL :: HCHO_XC_300K( N_HCHO_XC ) DATA HCHO_XC_300K / O 1.7900E-22, 1.6900E-22, 1.7700E-22, 1.9000E-22, 2.0500E-22, + 3.3000E-22, 3.3500E-22, 2.6200E-22, 3.2500E-22, 3.6300E-22, 1 5.3900E-22, 7.7100E-22, 5.6900E-22, 6.8200E-22, 7.8200E-22, + 7.7500E-22, 1.2300E-21, 1.5900E-21, 1.0900E-21, 1.3100E-21, 2 1.6300E-21, 1.5100E-21, 2.3400E-21, 3.1800E-21, 2.5700E-21, + 2.0400E-21, 3.3700E-21, 2.8900E-21, 3.4200E-21, 4.5000E-21, 3 6.2900E-21, 4.4300E-21, 3.0700E-21, 6.1800E-21, 6.0400E-21, + 6.6000E-21, 6.0200E-21, 1.0800E-20, 9.4700E-21, 5.3000E-21, 4 5.3800E-21, 1.3600E-20, 1.2400E-20, 9.9000E-21, 9.6000E-21, + 1.9400E-20, 1.4300E-20, 8.1000E-21, 6.5700E-21, 2.1500E-20, 5 2.5900E-20, 1.5700E-20, 1.0300E-20, 2.4500E-20, 2.3400E-20, + 1.5600E-20, 9.7200E-21, 7.2000E-21, 4.2700E-20, 4.0500E-20, 6 2.0900E-20, 1.1500E-20, 3.1700E-20, 3.2200E-20, 1.1700E-20, + 1.8400E-20, 7.9600E-21, 3.1100E-20, 7.1500E-20, 4.0600E-20, 7 2.4800E-20, 1.3600E-20, 4.2200E-20, 3.1700E-20, 9.6300E-21, + 1.6300E-20, 8.5200E-21, 3.0200E-20, 7.2300E-20, 4.7400E-20, 8 4.2900E-20, 1.7800E-20, 1.3800E-20, 3.2600E-20, 1.7400E-20, + 4.6100E-21, 1.1900E-20, 9.0200E-21, 5.6500E-20, 5.5600E-20, 9 2.5400E-20, 5.7900E-20, 3.1500E-20, 9.7500E-21, 1.1900E-20, + 1.6000E-20, 7.2100E-21, 3.2700E-21, 8.6100E-21, 1.5400E-20, O 6.8700E-20, 4.3700E-20, 1.2200E-20, 3.1200E-20, 3.8600E-20, + 1.4100E-20, 3.4600E-21, 2.1400E-21, 1.5900E-21, 9.6600E-22, 1 1.2600E-21, 3.8300E-21, 1.9200E-20, 5.5000E-20, 3.1500E-20, + 9.7800E-21, 5.0400E-21, 1.9200E-20, 1.2700E-20, 4.3600E-21, 2 1.1900E-21, 4.4100E-22, 7.5700E-22, 3.7800E-22, 3.6000E-22, + 8.9400E-22, 7.3100E-21, 2.2800E-20, 1.6500E-20, 6.9600E-21, 3 1.4800E-21, 3.4400E-22, 1.8600E-22, 1.1100E-22, 8.7000E-23, + 1.0000E-22, 2.1100E-22, 1.4100E-22, 9.4000E-23, 8.8000E-23, 4 8.5000E-23, 9.1000E-23, 1.4300E-22, 2.9700E-22, 6.3600E-22, + 5.7200E-22, 1.9700E-22, 1.1300E-22, 9.1000E-23, 8.7000E-23/ REAL :: HCHO_XC_A( N_HCHO_XC ) DATA HCHO_XC_A / O 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, 1 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, 2 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, 2.0300E-25, + 1.7700E-25,-7.2000E-26, 1.0100E-25, 1.3700E-25, 2.7200E-25, 3 1.6900E-25, 8.8000E-25, 6.8100E-25, 8.4000E-26, 4.4700E-25, + 9.3000E-26, 6.3500E-25,-8.1300E-25, 5.8000E-25, 1.0040E-24, 4 4.3100E-25,-8.8000E-25,-1.2000E-25, 1.1160E-24, 7.4800E-25, + -1.3070E-24, 1.0000E-24, 1.2280E-24, 8.7100E-25,-2.7330E-24, 5 -2.0400E-24, 1.9330E-24, 1.4270E-24,-2.5470E-24,-6.8000E-25, + 5.6000E-25, 8.0900E-25, 5.0000E-27,-8.7200E-24,-1.8000E-24, 6 1.5870E-24, 7.6000E-25,-4.7070E-24,-1.2130E-24, 1.7070E-24, + -1.1600E-24, 1.1550E-24,-4.9070E-24,-1.0213E-23, 3.8270E-24, 7 2.1200E-24, 1.3870E-24,-4.9330E-24, 1.4800E-24, 4.2670E-24, + -2.5730E-24,-2.3250E-24,-3.6000E-24,-4.8270E-24, 4.1730E-24, 8 3.2000E-25, 3.1870E-24, 3.3300E-25,-3.8670E-24, 2.3600E-24, + 7.5000E-26,-1.2270E-24,-1.4390E-24, 7.2000E-25, 2.5870E-24, 9 4.7600E-24,-2.4670E-24, 3.3070E-24, 2.5320E-24, 2.4000E-25, + -2.1870E-24, 1.4900E-25, 3.8900E-25,-4.5600E-25, 2.2130E-24, O -5.6400E-24, 5.4400E-24, 5.0670E-24,-3.3470E-24,-2.1730E-24, + 3.9070E-24, 1.7920E-24, 4.2900E-25,-2.2800E-25,-5.0000E-27, 1 3.2500E-25, 3.2900E-25, 1.6000E-24,-6.5870E-24, 5.5200E-24, + 5.8630E-24, 1.2160E-24,-2.9870E-24, 1.8700E-25, 2.7650E-24, 2 5.4100E-25,-2.8100E-25,-6.6400E-25,-5.6000E-25,-7.2800E-25, + -1.2100E-25, 3.6800E-25,-5.3200E-24, 6.0000E-25, 2.4560E-24, 3 -3.8800E-25, 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, 4 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00/ !Quantum Yields for Photolysis of CH2O at 296-300 K !QY1(LAMBDA, PRESSURE, T) = [(1/ (1 - (QY1)) + A(LAMBA,T)*Pressure]**(-1) !A(LAMBDA, T) = A(LAMBDA, 300)*( 1 + 0.05*(LAMBDA-329)*(( T - 80)/80) ) !A(LAMBDA, 300) = 1/Pressure*( 1/QY2(LAMBDA, Pressure, 300) - 1/(1-QY1(LAMBDA))) !pressure is in atmospheres !valid from 220K to 300K INTEGER, PARAMETER :: N_HCHO_QY = 112 REAL :: WV_HCHO_QY( N_HCHO_QY ) DATA WV_HCHO_QY / O 2.5000E+02, 2.5100E+02, 2.5200E+02, 2.5300E+02, 2.5400E+02, + 2.5500E+02, 2.5600E+02, 2.5700E+02, 2.5800E+02, 2.5900E+02, 1 2.6000E+02, 2.6100E+02, 2.6200E+02, 2.6300E+02, 2.6400E+02, + 2.6500E+02, 2.6600E+02, 2.6700E+02, 2.6800E+02, 2.6900E+02, 2 2.7000E+02, 2.7100E+02, 2.7200E+02, 2.7300E+02, 2.7400E+02, + 2.7500E+02, 2.7600E+02, 2.7700E+02, 2.7800E+02, 2.7900E+02, 3 2.8000E+02, 2.8100E+02, 2.8200E+02, 2.8300E+02, 2.8400E+02, + 2.8500E+02, 2.8600E+02, 2.8700E+02, 2.8800E+02, 2.8900E+02, 4 2.9000E+02, 2.9100E+02, 2.9200E+02, 2.9300E+02, 2.9400E+02, + 2.9500E+02, 2.9600E+02, 2.9700E+02, 2.9800E+02, 2.9900E+02, 5 3.0000E+02, 3.0100E+02, 3.0200E+02, 3.0300E+02, 3.0400E+02, + 3.0500E+02, 3.0600E+02, 3.0700E+02, 3.0800E+02, 3.0900E+02, 6 3.1000E+02, 3.1100E+02, 3.1200E+02, 3.1300E+02, 3.1400E+02, + 3.1500E+02, 3.1600E+02, 3.1700E+02, 3.1800E+02, 3.1900E+02, 7 3.2000E+02, 3.2100E+02, 3.2200E+02, 3.2300E+02, 3.2400E+02, + 3.2500E+02, 3.2600E+02, 3.2700E+02, 3.2800E+02, 3.2900E+02, 8 3.3000E+02, 3.3100E+02, 3.3200E+02, 3.3300E+02, 3.3400E+02, + 3.3500E+02, 3.3600E+02, 3.3700E+02, 3.3800E+02, 3.3900E+02, 9 3.4000E+02, 3.4100E+02, 3.4200E+02, 3.4300E+02, 3.4400E+02, + 3.4500E+02, 3.4600E+02, 3.4700E+02, 3.4800E+02, 3.4900E+02, O 3.5000E+02, 3.5100E+02, 3.5200E+02, 3.5300E+02, 3.5400E+02, + 3.5500E+02, 3.5600E+02, 3.5700E+02, 3.5800E+02, 3.5900E+02, 1 3.6000E+02, 3.6100E+02/ REAL :: HCHO_QYR( N_HCHO_QY ) DATA HCHO_QYR / O 3.1700E-01, 3.1100E-01, 3.0700E-01, 3.0400E-01, 3.0300E-01, + 3.0300E-01, 3.0500E-01, 3.0700E-01, 3.1100E-01, 3.1600E-01, 1 3.2200E-01, 3.2900E-01, 3.3700E-01, 3.4600E-01, 3.5500E-01, + 3.6600E-01, 3.7700E-01, 3.8800E-01, 4.0000E-01, 4.1300E-01, 2 4.2500E-01, 4.3900E-01, 4.5200E-01, 4.6600E-01, 4.8000E-01, + 4.9400E-01, 5.0800E-01, 6.2300E-01, 5.3700E-01, 5.5100E-01, 3 5.6500E-01, 5.7900E-01, 5.9300E-01, 6.0700E-01, 6.2000E-01, + 6.3300E-01, 6.4500E-01, 6.5700E-01, 6.6900E-01, 6.8000E-01, 4 6.9000E-01, 7.0000E-01, 7.1000E-01, 7.1800E-01, 7.2600E-01, + 7.3400E-01, 7.4000E-01, 7.4600E-01, 7.5100E-01, 7.5500E-01, 5 7.5800E-01, 7.6100E-01, 7.6200E-01, 7.6200E-01, 7.6200E-01, + 7.6000E-01, 7.5800E-01, 7.5400E-01, 7.4900E-01, 7.4400E-01, 6 7.3700E-01, 7.2900E-01, 7.2000E-01, 7.0900E-01, 6.9800E-01, + 6.8500E-01, 6.7100E-01, 6.5600E-01, 6.3900E-01, 6.2200E-01, 7 6.0300E-01, 5.8300E-01, 5.6100E-01, 5.3900E-01, 5.1500E-01, + 4.8900E-01, 4.6300E-01, 4.3500E-01, 4.0600E-01, 3.7500E-01, 8 3.4300E-01, 3.1000E-01, 2.7600E-01, 2.4000E-01, 2.0300E-01, + 1.6500E-01, 1.2600E-01, 8.5000E-02, 4.3000E-02, 0.0000E+00, 9 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, O 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, 1 0.0000E+00, 0.0000E+00/ REAL :: HCHO_QYM( N_HCHO_QY ) DATA HCHO_QYM / O 4.8300E-01, 4.8900E-01, 4.9300E-01, 4.9600E-01, 4.9700E-01, + 4.9700E-01, 4.9500E-01, 4.9300E-01, 4.8900E-01, 4.8400E-01, 1 4.7800E-01, 4.7100E-01, 4.6800E-01, 4.6400E-01, 4.6000E-01, + 4.5400E-01, 4.4800E-01, 4.4200E-01, 4.3500E-01, 4.2700E-01, 2 4.2000E-01, 4.1100E-01, 4.0300E-01, 3.9400E-01, 3.8500E-01, + 3.7600E-01, 3.6700E-01, 3.5700E-01, 3.5800E-01, 3.4900E-01, 3 3.4200E-01, 3.3400E-01, 3.2700E-01, 3.2000E-01, 3.1300E-01, + 3.0700E-01, 3.0200E-01, 2.9600E-01, 2.9100E-01, 2.8400E-01, 4 2.7800E-01, 2.7200E-01, 2.6600E-01, 2.6200E-01, 2.5900E-01, + 2.5600E-01, 2.5500E-01, 2.5400E-01, 2.4900E-01, 2.4500E-01, 5 2.4200E-01, 2.3900E-01, 2.3800E-01, 2.3800E-01, 2.3800E-01, + 2.4000E-01, 2.4200E-01, 2.4600E-01, 2.5100E-01, 2.5600E-01, 6 2.6300E-01, 2.7100E-01, 2.8000E-01, 2.9100E-01, 3.0200E-01, + 3.1500E-01, 3.2900E-01, 3.4400E-01, 3.6100E-01, 3.7800E-01, 7 3.9700E-01, 4.1700E-01, 4.3900E-01, 4.6100E-01, 4.8500E-01, + 5.1100E-01, 5.3700E-01, 5.6500E-01, 5.9400E-01, 6.2500E-01, 8 6.5700E-01, 6.9000E-01, 7.1400E-01, 7.4000E-01, 7.3700E-01, + 7.3500E-01, 7.2400E-01, 6.9500E-01, 6.8700E-01, 6.6500E-01, 9 6.5000E-01, 6.2000E-01, 5.9000E-01, 5.6000E-01, 5.3000E-01, + 5.0000E-01, 4.8000E-01, 4.5000E-01, 4.3000E-01, 4.0000E-01, O 3.8000E-01, 3.5000E-01, 3.2000E-01, 2.8000E-01, 2.5000E-01, + 2.2000E-01, 1.8000E-01, 1.6000E-01, 1.3000E-01, 9.0000E-03, 1 4.0000E-03, 0.0000E+00/ ! ! HNO3 photolysis cross-section recommended by NASA (2006) JPL publication ! Temperature Dependendence given by formula ! XCROSS(T) = XC*exp(B*(T-298)) ! INTEGER, PARAMETER :: N_HNO3_XC = 80 REAL :: WV_HNO3_XC( N_HNO3_XC ) DATA WV_HNO3_XC / O 1.9200E+02, 1.9400E+02, 1.9600E+02, 1.9800E+02, 2.0000E+02, + 2.0200E+02, 2.0400E+02, 2.0600E+02, 2.0800E+02, 2.1000E+02, 1 2.1200E+02, 2.1400E+02, 2.1600E+02, 2.1800E+02, 2.2000E+02, + 2.2200E+02, 2.2400E+02, 2.2600E+02, 2.2800E+02, 2.3000E+02, 2 2.3200E+02, 2.3400E+02, 2.3600E+02, 2.3800E+02, 2.4000E+02, + 2.4200E+02, 2.4400E+02, 2.4600E+02, 2.4800E+02, 2.5000E+02, 3 2.5200E+02, 2.5400E+02, 2.5600E+02, 2.5800E+02, 2.6000E+02, + 2.6200E+02, 2.6400E+02, 2.6600E+02, 2.6800E+02, 2.7000E+02, 4 2.7200E+02, 2.7400E+02, 2.7600E+02, 2.7800E+02, 2.8000E+02, + 2.8200E+02, 2.8400E+02, 2.8600E+02, 2.8800E+02, 2.9000E+02, 5 2.9200E+02, 2.9400E+02, 2.9600E+02, 2.9800E+02, 3.0000E+02, + 3.0200E+02, 3.0400E+02, 3.0600E+02, 3.0800E+02, 3.1000E+02, 6 3.1200E+02, 3.1400E+02, 3.1600E+02, 3.1800E+02, 3.2000E+02, + 3.2200E+02, 3.2400E+02, 3.2600E+02, 3.2800E+02, 3.3000E+02, 7 3.3200E+02, 3.3400E+02, 3.3600E+02, 3.3800E+02, 3.4000E+02, + 3.4200E+02, 3.4400E+02, 3.4600E+02, 3.4800E+02, 3.5000E+02/ REAL :: HNO3_XC_298K( N_HNO3_XC ) DATA HNO3_XC_298K / O 1.2250E-17, 1.0950E-17, 9.4000E-18, 7.7000E-18, 5.8800E-18, + 4.4700E-18, 3.2800E-18, 2.3100E-18, 1.5600E-18, 1.0400E-18, 1 6.7500E-19, 4.3900E-19, 2.9200E-19, 2.0000E-19, 1.4900E-19, + 1.1800E-19, 9.6100E-20, 8.0200E-20, 6.8200E-20, 5.7500E-20, 2 4.8700E-20, 4.1400E-20, 3.3600E-20, 2.9300E-20, 2.5800E-20, + 2.3400E-20, 2.1600E-20, 2.0600E-20, 2.0000E-20, 1.9700E-20, 3 1.9600E-20, 1.9500E-20, 1.9500E-20, 1.9300E-20, 1.9100E-20, + 1.8700E-20, 1.8300E-20, 1.7700E-20, 1.7000E-20, 1.6200E-20, 4 1.5300E-20, 1.4400E-20, 1.3300E-20, 1.2300E-20, 1.1200E-20, + 1.0100E-20, 9.0900E-21, 8.0700E-21, 7.0900E-21, 6.1500E-21, 5 5.3200E-21, 4.5300E-21, 3.8100E-21, 3.1600E-21, 2.6300E-21, + 2.0800E-21, 1.6700E-21, 1.3300E-21, 1.0500E-21, 8.1400E-22, 6 6.2800E-22, 4.6800E-22, 3.6200E-22, 2.7100E-22, 1.9700E-22, + 1.5400E-22, 1.0800E-22, 8.2000E-23, 6.1300E-23, 4.3100E-23, 7 3.1900E-23, 2.4300E-23, 1.9600E-23, 1.4200E-23, 1.0300E-23, + 8.6000E-24, 6.9000E-24, 5.0000E-24, 4.2000E-24, 4.2000E-24/ REAL :: HNO3_XC_B( N_HNO3_XC ) DATA HNO3_XC_B / O 0.0000E+00, 0.0000E+00, 1.7000E-03, 1.6500E-03, 1.6600E-03, + 1.6900E-03, 1.7400E-03, 1.7700E-03, 1.8500E-03, 1.9700E-03, 1 2.0800E-03, 2.1700E-03, 2.1700E-03, 2.2100E-03, 2.1500E-03, + 2.0600E-03, 1.9600E-03, 1.8400E-03, 1.7800E-03, 1.8000E-03, 2 1.8600E-03, 1.9000E-03, 1.9700E-03, 1.9700E-03, 1.9700E-03, + 1.8800E-03, 1.7500E-03, 1.6100E-03, 1.4400E-03, 1.3400E-03, 3 1.2300E-03, 1.1800E-03, 1.1400E-03, 1.1200E-03, 1.1400E-03, + 1.1400E-03, 1.1800E-03, 1.2200E-03, 1.2500E-03, 1.4500E-03, 4 1.4900E-03, 1.5600E-03, 1.6400E-03, 1.6900E-03, 1.7800E-03, + 1.8700E-03, 1.9400E-03, 2.0400E-03, 2.1500E-03, 2.2700E-03, 5 2.3800E-03, 2.5200E-03, 2.7000E-03, 2.9200E-03, 3.1000E-03, + 3.2400E-03, 3.5200E-03, 3.7700E-03, 3.9100E-03, 4.2300E-03, 6 4.7000E-03, 5.1500E-03, 5.2500E-03, 5.7400E-03, 6.4500E-03, + 6.7000E-03, 7.1600E-03, 7.5500E-03, 8.1600E-03, 9.7500E-03, 7 9.9300E-03, 9.6000E-03, 1.0500E-02, 1.0800E-02, 1.1800E-02, + 1.1800E-02, 9.3000E-03, 1.2100E-02, 1.1900E-02, 9.3000E-03/ C***special information for acetone C*** Reference: C IUPAC Subcommittee on Gas Kinetic Data Evaluation Data Sheet P7 C! This datasheet updated: 19th December 2005. C! Website: http://www.iupac-kinetic.ch.cam.ac.uk/. C! IUPAC recommendations used for both absorption cross sections and quantum yields. C! Cross sections and quantum yields are for 298K only. C! Uncertain whether the cross sections are calculated correctly from the complex recommended expression. INTEGER, PARAMETER :: N_WL_ACETONE = 135 INTEGER :: IWW C wavelengths in nm REAL WL_ACETONE( N_WL_ACETONE ) ! nm DATA ( WL_ACETONE( IWW), IWW= 1, N_WL_ACETONE ) / & 215.0, 216.0, 217.0, 218.0, 219.0, & 220.0, 221.0, 222.0, 223.0, 224.0, & 225.0, 226.0, 227.0, 228.0, 229.0, & 230.0, 231.0, 232.0, 233.0, 234.0, & 235.0, 236.0, 237.0, 238.0, 239.0, & 240.0, 241.0, 242.0, 243.0, 244.0, & 245.0, 246.0, 247.0, 248.0, 249.0, & 250.0, 251.0, 252.0, 253.0, 254.0, & 255.0, 256.0, 257.0, 258.0, 259.0, & 260.0, 261.0, 262.0, 263.0, 264.0, & 265.0, 266.0, 267.0, 268.0, 269.0, & 270.0, 271.0, 272.0, 273.0, 274.0, & 275.0, 276.0, 277.0, 278.0, 279.0, & 280.0, 281.0, 282.0, 283.0, 284.0, & 285.0, 286.0, 287.0, 288.0, 289.0, & 290.0, 291.0, 292.0, 293.0, 294.0, & 295.0, 296.0, 297.0, 298.0, 299.0, & 300.0, 301.0, 302.0, 303.0, 304.0, & 305.0, 306.0, 307.0, 308.0, 309.0, & 310.0, 311.0, 312.0, 313.0, 314.0, & 315.0, 316.0, 317.0, 318.0, 319.0, & 320.0, 321.0, 322.0, 323.0, 324.0, & 325.0, 326.0, 327.0, 328.0, 329.0, & 330.0, 331.0, 332.0, 333.0, 334.0, & 335.0, 336.0, 337.0, 338.0, 339.0, & 340.0, 341.0, 342.0, 343.0, 344.0, & 345.0, 346.0, 347.0, 348.0, 349.0 / REAL :: CSZ_ACETONE( N_WL_ACETONE) ! cm^2 C Cross-section at 298K DATA ( CSZ_ACETONE( IWW), IWW= 1, N_WL_ACETONE ) / & 1.6700E-21, 1.8000E-21, 1.9600E-21, 2.1200E-21, 2.2800E-21, & 2.4600E-21, 2.7000E-21, 2.9400E-21, 3.1800E-21, 3.4600E-21, & 3.8000E-21, 4.1900E-21, 4.5600E-21, 4.9200E-21, 5.3500E-21, & 5.8400E-21, 6.3700E-21, 6.9300E-21, 7.5000E-21, 8.1500E-21, & 8.8500E-21, 9.5600E-21, 1.0300E-20, 1.1100E-20, 1.2100E-20, & 1.3000E-20, 1.4000E-20, 1.5000E-20, 1.6000E-20, 1.7200E-20, & 1.8300E-20, 1.9500E-20, 2.0700E-20, 2.2000E-20, 2.3300E-20, & 2.4700E-20, 2.6000E-20, 2.7400E-20, 2.8700E-20, 3.0100E-20, & 3.1500E-20, 3.3000E-20, 3.4400E-20, 3.5700E-20, 3.6900E-20, & 3.8100E-20, 3.9400E-20, 4.0700E-20, 4.2000E-20, 4.3200E-20, & 4.4100E-20, 4.4900E-20, 4.5600E-20, 4.6400E-20, 4.7200E-20, & 4.7900E-20, 4.8700E-20, 4.9100E-20, 4.9400E-20, 4.9400E-20, & 4.9400E-20, 4.9300E-20, 4.9200E-20, 4.9400E-20, 4.9200E-20, & 4.9100E-20, 4.8600E-20, 4.7900E-20, 4.7100E-20, 4.6200E-20, & 4.5400E-20, 4.4400E-20, 4.3600E-20, 4.2800E-20, 4.1500E-20, & 4.0600E-20, 3.9500E-20, 3.8200E-20, 3.7100E-20, 3.5700E-20, & 3.4200E-20, 3.2600E-20, 3.1100E-20, 2.9800E-20, 2.8200E-20, & 2.6700E-20, 2.5800E-20, 2.4500E-20, 2.3000E-20, 2.1800E-20, & 2.0500E-20, 1.8900E-20, 1.7500E-20, 1.6100E-20, 1.4900E-20, & 1.3600E-20, 1.2400E-20, 1.1400E-20, 1.0600E-20, 9.4400E-21, & 8.3700E-21, 7.6000E-21, 6.8400E-21, 5.9800E-21, 5.2300E-21, & 4.5500E-21, 4.1100E-21, 3.4800E-21, 2.9400E-21, 2.4800E-21, & 2.1000E-21, 1.7400E-21, 1.4100E-21, 1.1300E-21, 9.1300E-22, & 7.4000E-22, 5.8600E-22, 4.6500E-22, 3.7500E-22, 3.1100E-22, & 2.4800E-22, 1.9900E-22, 1.6200E-22, 1.3500E-22, 1.1300E-22, & 9.1200E-23, 7.2900E-23, 5.8300E-23, 4.9400E-23, 3.6500E-23, & 3.0100E-23, 2.3500E-23, 1.5800E-23, 1.1100E-23, 1.0700E-23 / REAL A_ACETONE( N_WL_ACETONE ) ! (deg K)^-1 C A Coefficient DATA ( A_ACETONE( IWW), IWW= 1, N_WL_ACETONE ) / & -1.0460E-02,-9.1920E-03,-6.2330E-03,-3.1900E-03,-1.0020E-03, & 4.1040E-04, 1.5670E-03, 2.9620E-03, 4.8390E-03, 6.9400E-03, & 8.5980E-03, 9.3800E-03, 9.5510E-03, 9.7050E-03, 1.0080E-02, & 1.0410E-02, 1.0390E-02, 1.0010E-02, 9.5340E-03, 9.1380E-03, & 8.8510E-03, 8.6380E-03, 8.4710E-03, 8.3180E-03, 8.1250E-03, & 7.8610E-03, 7.5540E-03, 7.2680E-03, 7.0350E-03, 6.8380E-03, & 6.6490E-03, 6.4720E-03, 6.3260E-03, 6.2100E-03, 6.0990E-03, & 5.9720E-03, 5.8320E-03, 5.6970E-03, 5.5810E-03, 5.4830E-03, & 5.3850E-03, 5.2610E-03, 5.1010E-03, 4.9320E-03, 4.8020E-03, & 4.7460E-03, 4.7440E-03, 4.7340E-03, 4.6510E-03, 4.4820E-03, & 4.2710E-03, 4.0870E-03, 3.9830E-03, 3.9690E-03, 4.0090E-03, & 4.0250E-03, 3.9350E-03, 3.7040E-03, 3.3780E-03, 3.0610E-03, & 2.8540E-03, 2.7900E-03, 2.8160E-03, 2.8200E-03, 2.6920E-03, & 2.3890E-03, 1.9630E-03, 1.5170E-03, 1.1370E-03, 8.5300E-04, & 6.5180E-04, 4.9070E-04, 3.1900E-04, 1.1090E-04,-1.2300E-04, & -3.6980E-04,-6.4300E-04,-9.6250E-04,-1.3160E-03,-1.6500E-03, & -1.9050E-03,-2.0840E-03,-2.2340E-03,-2.3910E-03,-2.5900E-03, & -2.9150E-03,-3.4210E-03,-4.0080E-03,-4.5080E-03,-4.8580E-03, & -5.1200E-03,-5.4330E-03,-6.0100E-03,-6.9860E-03,-8.1350E-03, & -8.8970E-03,-8.9230E-03,-8.4940E-03,-8.2280E-03,-8.4450E-03, & -8.9660E-03,-9.4090E-03,-9.5840E-03,-9.7360E-03,-1.0390E-02, & -1.1800E-02,-1.3480E-02,-1.4590E-02,-1.4980E-02,-1.5390E-02, & -1.6280E-02,-1.7090E-02,-1.7210E-02,-1.6920E-02,-1.6660E-02, & -1.5940E-02,-1.3930E-02,-1.0930E-02,-8.1860E-03,-6.5300E-03, & -5.6920E-03,-4.6560E-03,-2.0900E-03, 3.1130E-03, 1.1010E-02, & 2.0020E-02, 2.7200E-02, 2.9630E-02, 2.5970E-02, 1.6350E-02, & 3.7740E-03,-2.4140E-03, 7.8800E-03, 2.9520E-02, 4.1030E-02 / REAL B_ACETONE( N_WL_ACETONE ) ! (deg K)^-2 C B Coefficient DATA ( B_ACETONE( IWW), IWW= 1, N_WL_ACETONE ) / & 8.3460E-05, 7.3570E-05, 5.0390E-05, 2.6510E-05, 9.3140E-06, & -1.8070E-06,-1.0900E-05,-2.1830E-05,-3.6510E-05,-5.2930E-05, & -6.5880E-05,-7.2000E-05,-7.3360E-05,-7.4620E-05,-7.7610E-05, & -8.0230E-05,-8.0020E-05,-7.7070E-05,-7.3320E-05,-7.0220E-05, & -6.7990E-05,-6.6340E-05,-6.5040E-05,-6.3850E-05,-6.2350E-05, & -6.0310E-05,-5.7930E-05,-5.5710E-05,-5.3900E-05,-5.2370E-05, & -5.0930E-05,-4.9600E-05,-4.8500E-05,-4.7630E-05,-4.6800E-05, & -4.5870E-05,-4.4860E-05,-4.3890E-05,-4.3060E-05,-4.2350E-05, & -4.1640E-05,-4.0750E-05,-3.9610E-05,-3.8430E-05,-3.7560E-05, & -3.7230E-05,-3.7300E-05,-3.7290E-05,-3.6740E-05,-3.5590E-05, & -3.4160E-05,-3.2960E-05,-3.2340E-05,-3.2350E-05,-3.2730E-05, & -3.2940E-05,-3.2400E-05,-3.0850E-05,-2.8610E-05,-2.6450E-05, & -2.5080E-05,-2.4740E-05,-2.5050E-05,-2.5180E-05,-2.4330E-05, & -2.2220E-05,-1.9220E-05,-1.6120E-05,-1.3500E-05,-1.1580E-05, & -1.0230E-05,-9.1540E-06,-7.9920E-06,-6.5860E-06,-5.0360E-06, & -3.4260E-06,-1.6150E-06, 5.7960E-07, 3.0600E-06, 5.3500E-06, & 6.9900E-06, 7.9600E-06, 8.6700E-06, 9.4200E-06, 1.0550E-05, & 1.2770E-05, 1.6490E-05, 2.0910E-05, 2.4650E-05, 2.7150E-05, & 2.8800E-05, 3.0620E-05, 3.4290E-05, 4.0960E-05, 4.8990E-05, & 5.4150E-05, 5.3780E-05, 5.0010E-05, 4.7540E-05, 4.8810E-05, & 5.2400E-05, 5.5280E-05, 5.5880E-05, 5.5960E-05, 5.9580E-05, & 6.8690E-05, 7.9620E-05, 8.6000E-05, 8.6700E-05, 8.7430E-05, & 9.1870E-05, 9.5880E-05, 9.4710E-05, 9.0480E-05, 8.6720E-05, & 7.9790E-05, 6.3400E-05, 3.9690E-05, 1.8470E-05, 6.2890E-06, & 1.0220E-06,-5.3820E-06,-2.3550E-05,-6.2370E-05,-1.2260E-04, & -1.9220E-04,-2.4830E-04,-2.6800E-04,-2.4040E-04,-1.6630E-04, & -6.8580E-05,-1.9870E-05,-9.8880E-05,-2.6610E-04,-3.5510E-04 / C C Coefficient REAL C_ACETONE( N_WL_ACETONE ) ! (deg K)^-2 DATA ( C_ACETONE( IWW), IWW= 1, N_WL_ACETONE ) / & -1.6430E-07,-1.4510E-07,-1.0010E-07,-5.3590E-08,-2.0030E-08, & 1.6790E-09, 1.9360E-08, 4.0580E-08, 6.9090E-08, 1.0090E-07, & 1.2600E-07, 1.3790E-07, 1.4060E-07, 1.4310E-07, 1.4890E-07, & 1.5410E-07, 1.5360E-07, 1.4790E-07, 1.4060E-07, 1.3460E-07, & 1.3020E-07, 1.2700E-07, 1.2450E-07, 1.2220E-07, 1.1930E-07, & 1.1530E-07, 1.1070E-07, 1.0640E-07, 1.0290E-07, 9.9940E-08, & 9.7180E-08, 9.4640E-08, 9.2560E-08, 9.0910E-08, 8.9360E-08, & 8.7630E-08, 8.5760E-08, 8.3990E-08, 8.2490E-08, 8.1200E-08, & 7.9890E-08, 7.8250E-08, 7.6200E-08, 7.4100E-08, 7.2620E-08, & 7.2150E-08, 7.2390E-08, 7.2460E-08, 7.1550E-08, 6.9560E-08, & 6.7120E-08, 6.5130E-08, 6.4200E-08, 6.4400E-08, 6.5240E-08, & 6.5770E-08, 6.4940E-08, 6.2310E-08, 5.8450E-08, 5.4730E-08, & 5.2430E-08, 5.2010E-08, 5.2760E-08, 5.3160E-08, 5.1750E-08, & 4.8030E-08, 4.2720E-08, 3.7260E-08, 3.2720E-08, 2.9430E-08, & 2.7140E-08, 2.5310E-08, 2.3320E-08, 2.0920E-08, 1.8330E-08, & 1.5680E-08, 1.2650E-08, 8.8470E-09, 4.4720E-09, 4.7700E-10, & -2.1680E-09,-3.4300E-09,-4.0860E-09,-4.8240E-09,-6.3870E-09, & -1.0200E-08,-1.7090E-08,-2.5430E-08,-3.2480E-08,-3.6990E-08, & -3.9590E-08,-4.2190E-08,-4.8050E-08,-5.9540E-08,-7.3700E-08, & -8.2550E-08,-8.0970E-08,-7.3050E-08,-6.7720E-08,-6.9590E-08, & -7.5920E-08,-8.0760E-08,-8.0850E-08,-7.9460E-08,-8.4330E-08, & -9.9330E-08,-1.1750E-07,-1.2670E-07,-1.2470E-07,-1.2270E-07, & -1.2770E-07,-1.3210E-07,-1.2680E-07,-1.1580E-07,-1.0620E-07, & -9.0990E-08,-5.8290E-08,-1.2140E-08, 2.8400E-08, 5.0670E-08, & 5.8800E-08, 6.8600E-08, 1.0090E-07, 1.7330E-07, 2.8770E-07, & 4.2150E-07, 5.3030E-07, 5.6960E-07, 5.1780E-07, 3.7550E-07, & 1.8720E-07, 9.3040E-08, 2.4530E-07, 5.6780E-07, 7.3950E-07 / !NASA JPL (2006) recommendations for !NO_CHANNEL:NO3->NO !NO2_CHANNEL:NO3->NO2 ! NASA 2006 recommendation for NO3 cross-section ! at 298 K INTEGER, PARAMETER :: N_NO3_06 = 289 REAL WV_NO3_06( N_NO3_06 ) ! Wavelength DATA WV_NO3_06 / ! (nm) & 403.0, 404.0, 405.0, 406.0, 407.0, & 408.0, 409.0, 410.0, 411.0, 412.0, & 413.0, 414.0, 415.0, 416.0, 417.0, & 418.0, 419.0, 420.0, 421.0, 422.0, & 423.0, 424.0, 425.0, 426.0, 427.0, & 428.0, 429.0, 430.0, 431.0, 432.0, & 433.0, 434.0, 435.0, 436.0, 437.0, & 438.0, 439.0, 440.0, 441.0, 442.0, & 443.0, 444.0, 445.0, 446.0, 447.0, & 448.0, 449.0, 450.0, 451.0, 452.0, & 453.0, 454.0, 455.0, 456.0, 457.0, & 458.0, 459.0, 460.0, 461.0, 462.0, & 463.0, 464.0, 465.0, 466.0, 467.0, & 468.0, 469.0, 470.0, 471.0, 472.0, & 473.0, 474.0, 475.0, 476.0, 477.0, & 478.0, 479.0, 480.0, 481.0, 482.0, & 483.0, 484.0, 485.0, 486.0, 487.0, & 488.0, 489.0, 490.0, 491.0, 492.0, & 493.0, 494.0, 495.0, 496.0, 497.0, & 498.0, 499.0, 500.0, 501.0, 502.0, & 503.0, 504.0, 505.0, 506.0, 507.0, & 508.0, 509.0, 510.0, 511.0, 512.0, & 513.0, 514.0, 515.0, 516.0, 517.0, & 518.0, 519.0, 520.0, 521.0, 522.0, & 523.0, 524.0, 525.0, 526.0, 527.0, & 528.0, 529.0, 530.0, 531.0, 532.0, & 533.0, 534.0, 535.0, 536.0, 537.0, & 538.0, 539.0, 540.0, 541.0, 542.0, & 543.0, 544.0, 545.0, 546.0, 547.0, & 548.0, 549.0, 550.0, 551.0, 552.0, & 553.0, 554.0, 555.0, 556.0, 557.0, & 558.0, 559.0, 560.0, 561.0, 562.0, & 563.0, 564.0, 565.0, 566.0, 567.0, & 568.0, 569.0, 570.0, 571.0, 572.0, & 573.0, 574.0, 575.0, 576.0, 577.0, & 578.0, 579.0, 580.0, 581.0, 582.0, & 583.0, 584.0, 585.0, 586.0, 587.0, & 588.0, 589.0, 590.0, 591.0, 592.0, & 593.0, 594.0, 595.0, 596.0, 597.0, & 598.0, 599.0, 600.0, 601.0, 602.0, & 603.0, 604.0, 605.0, 606.0, 607.0, & 608.0, 609.0, 610.0, 611.0, 612.0, & 613.0, 614.0, 615.0, 616.0, 617.0, & 618.0, 619.0, 620.0, 621.0, 622.0, & 623.0, 624.0, 625.0, 626.0, 627.0, & 628.0, 629.0, 630.0, 631.0, 632.0, & 633.0, 634.0, 635.0, 636.0, 637.0, & 638.0, 639.0, 640.0, 641.0, 642.0, & 643.0, 644.0, 645.0, 646.0, 647.0, & 648.0, 649.0, 650.0, 651.0, 652.0, & 653.0, 654.0, 655.0, 656.0, 657.0, & 658.0, 659.0, 660.0, 661.0, 662.0, & 663.0, 664.0, 665.0, 666.0, 667.0, & 668.0, 669.0, 670.0, 671.0, 672.0, & 673.0, 674.0, 675.0, 676.0, 677.0, & 678.0, 679.0, 680.0, 681.0, 682.0, & 683.0, 684.0, 685.0, 686.0, 687.0, & 688.0, 689.0, 690.0, 691.0 / REAL XC_NO3_06( N_NO3_06 ) ! Photolysis Cross-Section DATA XC_NO3_06 / ! (cm2) & 2.0000E-20, 0.0000E+00, 3.0000E-20, 2.0000E-20, 1.0000E-20, & 3.0000E-20, 0.0000E+00, 1.0000E-20, 2.0000E-20, 5.0000E-20, & 5.0000E-20, 2.0000E-20, 6.0000E-20, 7.0000E-20, 8.0000E-20, & 5.0000E-20, 9.0000E-20, 9.0000E-20, 9.0000E-20, 1.0000E-19, & 1.2000E-19, 1.0000E-19, 8.0000E-20, 1.5000E-19, 1.5000E-19, & 1.3000E-19, 1.2000E-19, 1.8000E-19, 1.4000E-19, 1.6000E-19, & 1.9000E-19, 2.0000E-19, 1.7000E-19, 1.6000E-19, 2.0000E-19, & 2.3000E-19, 2.2000E-19, 2.1000E-19, 2.0000E-19, 2.3000E-19, & 1.9000E-19, 2.1000E-19, 2.2000E-19, 2.6000E-19, 3.1000E-19, & 2.6000E-19, 3.0000E-19, 3.1000E-19, 3.3000E-19, 3.6000E-19, & 3.4000E-19, 3.8000E-19, 3.8000E-19, 3.8000E-19, 4.2000E-19, & 3.9000E-19, 4.5000E-19, 4.2000E-19, 4.1000E-19, 4.2000E-19, & 4.3000E-19, 5.1000E-19, 5.4000E-19, 5.8000E-19, 6.1000E-19, & 6.0000E-19, 6.2000E-19, 6.3000E-19, 6.6000E-19, 6.9000E-19, & 6.6000E-19, 6.6000E-19, 7.3000E-19, 8.4000E-19, 8.3000E-19, & 7.8000E-19, 7.8000E-19, 7.5000E-19, 7.6000E-19, 7.6000E-19, & 7.7000E-19, 8.3000E-19, 8.8000E-19, 9.8000E-19, 9.9000E-19, & 1.0200E-18, 1.0300E-18, 1.1100E-18, 1.0600E-18, 1.0700E-18, & 1.0900E-18, 1.0900E-18, 1.1300E-18, 1.2900E-18, 1.3000E-18, & 1.2800E-18, 1.2500E-18, 1.2100E-18, 1.1800E-18, 1.1800E-18, & 1.1900E-18, 1.3500E-18, 1.3700E-18, 1.4300E-18, 1.3700E-18, & 1.3600E-18, 1.4500E-18, 1.6200E-18, 1.8600E-18, 1.8900E-18, & 1.7200E-18, 1.6900E-18, 1.7000E-18, 1.6700E-18, 1.6000E-18, & 1.5400E-18, 1.6500E-18, 1.8000E-18, 1.9600E-18, 2.0600E-18, & 1.8900E-18, 1.7600E-18, 1.6900E-18, 1.7500E-18, 1.9300E-18, & 2.2500E-18, 2.5700E-18, 2.3900E-18, 2.2400E-18, 2.1600E-18, & 2.0900E-18, 2.1800E-18, 2.4700E-18, 2.7500E-18, 2.7600E-18, & 2.5100E-18, 2.1900E-18, 2.2500E-18, 2.1900E-18, 2.0100E-18, & 1.8000E-18, 1.8300E-18, 2.1000E-18, 2.6000E-18, 3.1200E-18, & 3.2000E-18, 2.9000E-18, 2.6500E-18, 2.6100E-18, 2.6400E-18, & 2.7100E-18, 2.9800E-18, 3.3400E-18, 3.4900E-18, 3.5200E-18, & 3.7600E-18, 3.9900E-18, 3.5500E-18, 3.2000E-18, 3.1100E-18, & 3.0000E-18, 2.9100E-18, 2.9200E-18, 3.0500E-18, 3.0100E-18, & 3.0500E-18, 3.1000E-18, 2.9900E-18, 2.9600E-18, 2.9400E-18, & 2.9800E-18, 3.0600E-18, 3.3000E-18, 3.5000E-18, 3.6200E-18, & 3.5400E-18, 3.4700E-18, 3.5800E-18, 3.8000E-18, 3.5100E-18, & 3.1400E-18, 3.0200E-18, 3.1000E-18, 3.5500E-18, 4.4600E-18, & 5.4000E-18, 6.5600E-18, 6.3800E-18, 5.8300E-18, 5.4800E-18, & 4.9000E-18, 4.4900E-18, 4.6000E-18, 4.9500E-18, 4.6700E-18, & 3.9300E-18, 3.3300E-18, 2.9600E-18, 3.0700E-18, 3.5500E-18, & 4.0800E-18, 4.6800E-18, 4.6700E-18, 3.5500E-18, 2.5800E-18, & 1.9800E-18, 1.8400E-18, 1.8900E-18, 2.0400E-18, 2.3900E-18, & 2.8200E-18, 2.7300E-18, 2.4200E-18, 2.2400E-18, 2.2600E-18, & 2.5600E-18, 2.7400E-18, 3.5000E-18, 5.6200E-18, 1.0900E-17, & 1.5780E-17, 1.2910E-17, 8.9800E-18, 7.8300E-18, 8.0600E-18, & 7.8900E-18, 7.4800E-18, 7.2400E-18, 5.1800E-18, 3.5000E-18, & 2.3300E-18, 1.7600E-18, 1.5400E-18, 1.8100E-18, 2.2200E-18, & 2.1700E-18, 1.6900E-18, 1.3200E-18, 1.0800E-18, 9.9000E-19, & 1.0400E-18, 1.0200E-18, 9.2000E-19, 8.0000E-19, 7.5000E-19, & 6.6000E-19, 5.8000E-19, 5.3000E-19, 5.9000E-19, 6.5000E-19, & 7.6000E-19, 8.8000E-19, 1.0500E-18, 1.4200E-18, 1.8400E-18, & 2.6000E-18, 4.3600E-18, 7.9800E-18, 1.5510E-17, 2.2500E-17, & 1.8690E-17, 1.2100E-17, 7.9400E-18, 5.3200E-18, 3.2600E-18, & 2.0300E-18, 1.3400E-18, 1.0200E-18, 8.5000E-19, 8.1000E-19, & 6.9000E-19, 5.5000E-19, 5.1000E-19, 5.2000E-19, 6.3000E-19, & 8.0000E-19, 8.4000E-19, 7.4000E-19, 5.7000E-19, 4.2000E-19, & 3.3000E-19, 2.8000E-19, 1.9000E-19, 1.7000E-19, 1.3000E-19, & 1.3000E-19, 1.3000E-19, 1.1000E-19, 8.0000E-20 / ! Channel Quantum yields measured over three temperatures INTEGER, PARAMETER :: N_NO3_QY = 57 REAL :: WV_NO3_QY( N_NO3_QY ) DATA WV_NO3_QY / O 4.0300E+02, 5.8500E+02, 5.8600E+02, 5.8700E+02, 5.8800E+02, + 5.8900E+02, 5.9000E+02, 5.9100E+02, 5.9200E+02, 5.9300E+02, 1 5.9400E+02, 5.9500E+02, 5.9600E+02, 5.9700E+02, 5.9800E+02, + 5.9900E+02, 6.0000E+02, 6.0100E+02, 6.0200E+02, 6.0300E+02, 2 6.0400E+02, 6.0500E+02, 6.0600E+02, 6.0700E+02, 6.0800E+02, + 6.0900E+02, 6.1000E+02, 6.1100E+02, 6.1200E+02, 6.1300E+02, 3 6.1400E+02, 6.1500E+02, 6.1600E+02, 6.1700E+02, 6.1800E+02, + 6.1900E+02, 6.2000E+02, 6.2100E+02, 6.2200E+02, 6.2300E+02, 4 6.2400E+02, 6.2500E+02, 6.2600E+02, 6.2700E+02, 6.2800E+02, + 6.2900E+02, 6.3000E+02, 6.3100E+02, 6.3200E+02, 6.3300E+02, 5 6.3400E+02, 6.3500E+02, 6.3600E+02, 6.3700E+02, 6.3800E+02, + 6.3900E+02, 6.4000E+02/ REAL :: NO3NO_QY_298K( N_NO3_QY ) DATA NO3NO_QY_298K / O 0.0000E+00, 0.0000E+00, 1.5200E+01, 3.9100E+01, 9.7100E+01, + 1.2800E+02, 1.9000E+02, 2.2000E+02, 2.4900E+02, 3.0300E+02, 1 3.2800E+02, 3.5900E+02, 3.5700E+02, 3.1800E+02, 3.2300E+02, + 3.1400E+02, 2.9100E+02, 2.9600E+02, 2.9100E+02, 2.8300E+02, 2 2.8000E+02, 2.6400E+02, 2.7100E+02, 2.6800E+02, 2.5000E+02, + 2.4800E+02, 2.3600E+02, 2.0500E+02, 2.0000E+02, 1.9000E+02, 3 1.6600E+02, 1.6600E+02, 1.6000E+02, 1.4100E+02, 1.4300E+02, + 1.3900E+02, 1.3100E+02, 1.2700E+02, 1.2200E+02, 1.1700E+02, 4 1.0600E+02, 9.8500E+01, 9.2300E+01, 8.4800E+01, 7.3900E+01, + 6.9900E+01, 6.4900E+01, 5.7800E+01, 5.0800E+01, 4.6600E+01, 5 4.2600E+01, 3.7300E+01, 3.2300E+01, 2.9400E+01, 2.6600E+01, + 2.3500E+01, 2.0300E+01/ REAL :: NO3NO2_QY_298K( N_NO3_QY ) DATA NO3NO2_QY_298K / O 9.8300E+02, 9.8300E+02, 9.6700E+02, 9.4300E+02, 8.8500E+02, + 8.5400E+02, 7.9300E+02, 7.6300E+02, 7.3400E+02, 6.8000E+02, 1 6.5400E+02, 6.0800E+02, 5.8700E+02, 5.6700E+02, 5.3100E+02, + 5.0900E+02, 4.7200E+02, 4.3800E+02, 4.1500E+02, 3.7100E+02, 2 3.5100E+02, 3.2300E+02, 2.9600E+02, 2.8000E+02, 2.5900E+02, + 2.3800E+02, 2.2600E+02, 2.1000E+02, 1.9300E+02, 1.8100E+02, 3 1.6600E+02, 1.4700E+02, 1.3700E+02, 1.2400E+02, 1.0800E+02, + 9.9300E+01, 8.9700E+01, 7.6900E+01, 7.0400E+01, 6.4300E+01, 4 5.5200E+01, 4.8700E+01, 4.4200E+01, 3.9300E+01, 3.3900E+01, + 2.9400E+01, 2.6400E+01, 2.3600E+01, 1.9500E+01, 1.7700E+01, 5 1.6100E+01, 1.4600E+01, 1.1900E+01, 1.0700E+01, 9.5700E+00, + 8.5600E+00, 7.1500E+00/ REAL :: NO3NO_QY_230K( N_NO3_QY ) DATA NO3NO_QY_230K / O 0.0000E+00, 0.0000E+00, 2.6400E+01, 6.6700E+01, 1.6100E+02, + 2.0900E+02, 3.0000E+02, 3.4300E+02, 3.8300E+02, 4.5500E+02, 1 4.8700E+02, 5.1700E+02, 5.0100E+02, 4.3000E+02, 4.2100E+02, + 3.9600E+02, 3.4600E+02, 3.3800E+02, 3.2200E+02, 2.9400E+02, 2 2.8200E+02, 2.5300E+02, 2.5100E+02, 2.4300E+02, 2.1700E+02, + 2.0800E+02, 1.9300E+02, 1.5900E+02, 1.5000E+02, 1.3800E+02, 3 1.1400E+02, 1.1000E+02, 1.0200E+02, 8.5500E+01, 8.3500E+01, + 7.8400E+01, 7.1500E+01, 6.6000E+01, 6.1900E+01, 5.7600E+01, 4 4.9600E+01, 4.4500E+01, 4.0600E+01, 3.6000E+01, 2.9900E+01, + 2.7400E+01, 2.4700E+01, 2.1300E+01, 1.7800E+01, 1.5900E+01, 5 1.4200E+01, 1.2000E+01, 9.8600E+00, 8.7000E+00, 7.6600E+00, + 6.5300E+00, 5.3800E+00/ REAL :: NO3NO2_QY_230K( N_NO3_QY ) DATA NO3NO2_QY_230K / O 9.9600E+02, 9.9600E+02, 9.7000E+02, 9.3000E+02, 8.3600E+02, + 7.8800E+02, 6.9600E+02, 6.5300E+02, 6.1400E+02, 5.4200E+02, 1 5.1000E+02, 4.5300E+02, 4.2900E+02, 4.0600E+02, 3.6700E+02, + 3.4500E+02, 3.0700E+02, 2.7500E+02, 2.5400E+02, 2.1500E+02, 2 1.9800E+02, 1.7600E+02, 1.5500E+02, 1.4300E+02, 1.2800E+02, + 1.1300E+02, 1.0500E+02, 9.4700E+01, 8.4000E+01, 7.7300E+01, 3 6.8400E+01, 5.8300E+01, 5.2700E+01, 4.6500E+01, 3.8600E+01, + 3.4600E+01, 3.0300E+01, 2.4800E+01, 2.2100E+01, 1.9700E+01, 4 1.6200E+01, 1.3800E+01, 1.2200E+01, 1.0500E+01, 8.6700E+00, + 7.2300E+00, 6.2900E+00, 5.4500E+00, 4.2900E+00, 3.8000E+00, 5 3.3600E+00, 2.9700E+00, 2.3000E+00, 2.0200E+00, 1.7700E+00, + 1.5400E+00, 1.2400E+00/ REAL :: NO3NO_QY_190K( N_NO3_QY ) DATA NO3NO_QY_190K / O 0.0000E+00, 0.0000E+00, 3.7900E+01, 9.4400E+01, 2.2100E+02, + 2.8300E+02, 3.9700E+02, 4.4800E+02, 4.9500E+02, 5.7500E+02, 1 6.1000E+02, 6.3000E+02, 5.9800E+02, 4.9300E+02, 4.6800E+02, + 4.2900E+02, 3.5500E+02, 3.3500E+02, 3.1000E+02, 2.6700E+02, 2 2.4900E+02, 2.1300E+02, 2.0500E+02, 1.9400E+02, 1.6700E+02, + 1.5500E+02, 1.4000E+02, 1.1100E+02, 1.0100E+02, 9.0600E+01, 3 7.1200E+01, 6.6100E+01, 5.9700E+01, 4.7500E+01, 4.4800E+01, + 4.0900E+01, 3.6000E+01, 3.2000E+01, 2.9200E+01, 2.6500E+01, 4 2.1900E+01, 1.9000E+01, 1.6800E+01, 1.4500E+01, 1.1500E+01, + 1.0200E+01, 9.0100E+00, 7.5200E+00, 6.0200E+00, 5.2300E+00, 5 4.5400E+00, 3.7300E+00, 2.9300E+00, 2.5200E+00, 2.1600E+00, + 1.7800E+00, 1.4100E+00/ REAL :: NO3NO2_QY_190K( N_NO3_QY ) DATA NO3NO2_QY_190K / O 9.9900E+02, 9.9900E+02, 9.6100E+02, 9.0500E+02, 7.7900E+02, + 7.1600E+02, 6.0200E+02, 5.5100E+02, 5.0500E+02, 4.2400E+02, 1 3.9000E+02, 3.3200E+02, 3.0700E+02, 2.8500E+02, 2.4900E+02, + 2.2900E+02, 1.9600E+02, 1.7000E+02, 1.5300E+02, 1.2300E+02, 2 1.1100E+02, 9.4400E+01, 8.0000E+01, 7.1900E+01, 6.2100E+01, + 5.3000E+01, 4.8100E+01, 4.2200E+01, 3.6200E+01, 3.2600E+01, 3 2.8000E+01, 2.2900E+01, 2.0200E+01, 1.7300E+01, 1.3800E+01, + 1.2100E+01, 1.0200E+01, 8.0300E+00, 6.9900E+00, 6.0700E+00, 4 4.8000E+00, 3.9400E+00, 3.3900E+00, 2.8300E+00, 2.2600E+00, + 1.8100E+00, 1.5300E+00, 1.2900E+00, 9.6900E-01, 8.3800E-01, 5 7.2400E-01, 6.2400E-01, 4.6200E-01, 3.9600E-01, 3.3800E-01, + 2.8800E-01, 2.2400E-01/ ! XC(T)=XC_298K*exp(slope*(1/TEMP-1/298)) ! IUPAC (2005) and NASA JPL (2006) recommendations INTEGER, PARAMETER :: N_N2O5_XC = 89 REAL :: WV_N2O5_XC( N_N2O5_XC ) DATA WV_N2O5_XC / O 2.1000E+02, 2.1500E+02, 2.2000E+02, 2.2500E+02, 2.3000E+02, + 2.3500E+02, 2.4000E+02, 2.4500E+02, 2.5000E+02, 2.5500E+02, 1 2.6000E+02, 2.6500E+02, 2.7000E+02, 2.7500E+02, 2.8000E+02, + 2.8500E+02, 2.9000E+02, 2.9500E+02, 3.0000E+02, 3.0500E+02, 2 3.1000E+02, 3.1500E+02, 3.2000E+02, 3.2500E+02, 3.3000E+02, + 3.3500E+02, 3.4000E+02, 3.4500E+02, 3.5000E+02, 3.5500E+02, 3 3.6000E+02, 3.6500E+02, 3.7000E+02, 3.7500E+02, 3.8000E+02, + 3.8500E+02, 3.9000E+02, 3.9500E+02, 4.0000E+02, 4.0500E+02, 4 4.1000E+02, 4.2500E+02, 4.3000E+02, 4.3500E+02, 4.4000E+02, + 4.4500E+02, 4.5000E+02, 4.5500E+02, 4.6000E+02, 4.6500E+02, 5 4.7000E+02, 4.7500E+02, 4.8000E+02, 4.8500E+02, 4.9000E+02, + 4.9500E+02, 5.0000E+02, 5.0500E+02, 5.1000E+02, 5.1500E+02, 6 5.2000E+02, 5.2500E+02, 5.3000E+02, 5.3500E+02, 5.4000E+02, + 5.4500E+02, 5.5000E+02, 5.5500E+02, 5.6000E+02, 5.6500E+02, 7 5.7000E+02, 5.7500E+02, 5.8000E+02, 5.8500E+02, 5.9000E+02, + 5.9500E+02, 6.0000E+02, 6.0500E+02, 6.1000E+02, 6.1500E+02, 8 6.2000E+02, 6.2500E+02, 6.3000E+02, 6.3500E+02, 6.4000E+02, + 6.4500E+02, 6.5000E+02, 6.5500E+02, 6.6000E+02/ REAL :: N2O5_XC_298K( N_N2O5_XC ) DATA N2O5_XC_298K / O 4.7000E-18, 3.1600E-18, 1.9300E-18, 1.2800E-18, 9.1000E-19, + 7.3000E-19, 6.0000E-19, 5.1000E-19, 4.0000E-19, 3.2000E-19, 1 2.5900E-19, 2.0400E-19, 1.6400E-19, 1.3200E-19, 1.1100E-19, + 8.5900E-20, 6.7100E-20, 5.1100E-20, 3.8700E-20, 2.9100E-20, 2 2.1700E-20, 1.6200E-20, 1.2100E-20, 8.9000E-21, 6.7000E-21, + 5.0000E-21, 3.8000E-21, 2.7900E-21, 2.1500E-21, 1.6400E-21, 3 1.2400E-21, 9.1000E-22, 7.2000E-22, 5.3000E-22, 4.1000E-22, + 3.2000E-22, 2.2800E-22, 1.7100E-22, 1.3800E-22, 1.0300E-22, 4 8.0000E-23, 5.6000E-19, 5.3700E-19, 5.5500E-19, 4.7500E-19, + 4.7900E-19, 4.9300E-19, 4.0600E-19, 4.3500E-19, 4.1500E-19, 5 3.2700E-19, 3.8800E-19, 3.3400E-19, 2.4000E-19, 3.0900E-19, + 2.9400E-19, 1.6700E-19, 2.4400E-19, 2.2800E-19, 1.4800E-19, 6 1.7700E-19, 1.7500E-19, 1.4900E-19, 9.7100E-20, 1.0300E-19, + 1.2600E-19, 1.0400E-19, 7.4000E-20, 5.5600E-20, 8.6200E-20, 7 8.2500E-20, 4.1200E-20, 4.1100E-20, 4.6000E-20, 5.1400E-20, + 3.8200E-20, 3.7100E-20, 1.5600E-20, 2.3800E-20, 3.4700E-20, 8 2.3900E-20, 1.7700E-20, 1.0000E-20, 1.2300E-20, 1.4800E-20, + 1.8600E-20, 1.2400E-20, 7.5500E-21, 5.0800E-21/ REAL :: N2O5_XC_EXP( N_N2O5_XC ) DATA N2O5_XC_EXP / O 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, + 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, 0.0000E+00, 1 -2.0954E-01,-2.3026E-01,-2.3947E-01,-2.5789E-01,-2.5789E-01, + -2.9013E-01,-3.1085E-01,-3.4999E-01,-3.9144E-01,-4.4670E-01, 2 -5.2038E-01,-5.8255E-01,-6.7696E-01,-7.7827E-01,-8.9340E-01, + -9.4176E-01,-1.1329E+00,-1.2204E+00,-1.3424E+00,-1.6556E+00, 3 -1.7730E+00,-1.8444E+00,-2.0378E+00,-1.7615E+00,-2.2842E+00, + -2.2842E+00,-2.1852E+00,-1.9457E+00,-2.2243E+00,-2.3026E+00, 4 -2.6710E+00, 1.3125E+02, 1.2526E+02, 1.2871E+02, 1.1237E+02, + 1.1237E+02, 1.1467E+02, 9.5788E+01, 1.0039E+02, 9.5327E+01, 5 7.7597E+01, 8.9110E+01, 7.7597E+01, 5.8486E+01, 7.0920E+01, + 6.7696E+01, 4.1907E+01, 5.5953E+01, 5.3190E+01, 3.6841E+01, 6 3.7072E+01, 4.1216E+01, 3.5230E+01, 2.4407E+01, 2.4868E+01, + 2.9243E+01, 2.5328E+01, 1.8352E+01, 1.3931E+01, 2.0032E+01, 7 1.9526E+01, 1.0845E+01, 1.0293E+01, 1.0799E+01, 1.2411E+01, + 9.3945E+00, 9.0952E+00, 4.2598E+00, 5.8486E+00, 8.1281E+00, 8 5.9176E+00, 4.5131E+00, 2.7861E+00, 3.0624E+00, 3.5230E+00, + 4.4210E+00, 3.1085E+00, 2.0102E+00, 1.3033E+00/ C Spectral distribution used to calculate the photolysis rates in C the Test Case C Spectral Distribution for SD=Z0, Normalized to give phot(NO2-06)=0.5. C Output by PHK. INTEGER, PARAMETER :: N_SAPRC07_SPECTRUM = 48 REAL SAPRC07_SPECTRUM ( N_SAPRC07_SPECTRUM ) ! wavelenghts in um DATA SAPRC07_SPECTRUM / & 0.2975,0.3025,0.3075,0.3125,0.3175, & 0.3225,0.3275,0.3325,0.3375,0.3425, & 0.3475,0.3525,0.3575,0.3625,0.3675, & 0.3725,0.3775,0.3825,0.3875,0.3925, & 0.3975,0.4025,0.4075,0.4125,0.4175, & 0.4250,0.4350,0.4450,0.4550,0.4650, & 0.4750,0.4850,0.4950,0.5050,0.5150, & 0.5250,0.5350,0.5450,0.5550,0.5650, & 0.5750,0.5900,0.6100,0.6300,0.6500, & 0.6700,0.6900,0.8500 / REAL SAPRC07_FLUX ( N_SAPRC07_SPECTRUM ) ! ?? light quanta s-1 cm-2 DATA SAPRC07_FLUX / & 4.284E+16,4.158E+17,1.473E+18,3.281E+18,4.545E+18, & 5.725E+18,8.243E+18,8.724E+18,8.609E+18,9.290E+18, & 9.264E+18,1.050E+19,9.673E+18,1.071E+19,1.316E+19, & 1.191E+19,1.327E+19,1.097E+19,1.202E+19,1.243E+19, & 1.505E+19,1.807E+19,2.027E+19,2.142E+19,2.173E+19, & 2.131E+19,2.194E+19,2.544E+19,2.899E+19,2.967E+19, & 3.040E+19,3.019E+19,3.025E+19,3.129E+19,3.072E+19, & 3.124E+19,3.124E+19,3.072E+19,3.103E+19,3.129E+19, & 3.197E+19,3.265E+19,3.291E+19,3.317E+19,3.396E+19, & 3.474E+19,3.474E+19,3.474E+19 / !IUPAC 2005 recommendation !http://iupac.pole-ether.fr/htdocs/datasheets/pdf/P15_C2H5ONO2+hv.pdf ! !298K cs from: !M. P. Turberg, D. M. Giolando, C. Tilt, T. Soper, S. Mason, M. Davies, P. Klingensmith, !and G. A. Takacs, J. Photochem. Photobiol. A51, 281 (1990) ! !T dependence average from: !1. L. Zhu and C.-F. Ding, Chem. Phys. Lett. 265, 177 (1997). !2. K. C. Clemitshaw, J. Williams, O. V. Rattigan, D. E. Shallcross, K. S. Law, and R. A. ! Cox, J. Photochem. Photobiol. A: Chemistry 102, 117 (1997). !3. R. K. Talukdar, J. B. Burkholder, M. Hunter, M. K. Giles, J. M. Roberts, and A. R. ! Ravishankara, J. Chem. Soc. Faraday Trans. 93, 2797 (1997) ! !Quantum Yield ! !phi (CH3CH2O + NO2) = unity from 290 nm to 340 nm ! !ln(sigma(T,lambda)) - ln(sigma(298,lambda)) = B * (T-298) !wlv INTEGER, PARAMETER :: N_ETHYNO3_XC_SLOPE = 22 REAL WV_ETHYNO3_XC_B( N_ETHYNO3_XC_SLOPE ) DATA WV_ETHYNO3_XC_B / & 235.0, & 240.0, & 245.0, & 250.0, & 255.0, & 260.0, & 265.0, & 270.0, & 275.0, & 280.0, & 285.0, & 290.0, & 295.0, & 300.0, & 305.0, & 310.0, & 315.0, & 320.0, & 325.0, & 330.0, & 335.0, & 340.0 / !B REAL ETHYNO3_XC_B( N_ETHYNO3_XC_SLOPE ) DATA ETHYNO3_XC_B / & 0.0014, & 0.0028, & 0.0029, & 0.0028, & 0.0026, & 0.0026, & 0.0029, & 0.0031, & 0.0033, & 0.0036, & 0.0038, & 0.0042, & 0.0047, & 0.0051, & 0.0058, & 0.0067, & 0.0079, & 0.0086, & 0.0104, & 0.0129, & 0.0141, & 0.0156 / INTEGER, PARAMETER :: N_CH3ONO2_XC_SLOPE = 21 REAL WV_CH3ONO2_XC_B( N_CH3ONO2_XC_SLOPE ) DATA WV_CH3ONO2_XC_B / & 240.0, & 245.0, & 250.0, & 255.0, & 260.0, & 265.0, & 270.0, & 275.0, & 280.0, & 285.0, & 290.0, & 295.0, & 300.0, & 305.0, & 310.0, & 315.0, & 320.0, & 325.0, & 330.0, & 335.0, & 340.0 / !B REAL CH3ONO2_XC_B( N_CH3ONO2_XC_SLOPE ) DATA CH3ONO2_XC_B / & 3.48E-3, & 3.29E-3, & 2.96E-3, & 2.82E-3, & 2.83E-3, & 2.92E-3, & 3.08E-3, & 3.28E-3, & 3.51E-3, & 3.78E-3, & 4.04E-3, & 4.47E-3, & 4.94E-3, & 5.56E-3, & 6.33E-3, & 7.34E-3, & 8.74E-3, & 9.97E-3, & 13.6E-3, & 13.6E-3, & 13.6E-3 / REAL, SAVE :: INTERP_SAPRC07_FLUX( KW ) REAL, SAVE :: HNO3_XCROSS_298K(kw) REAL, SAVE :: HNO3_XCROSS_EXP(kw) REAL, SAVE :: XC_D_ACETONE( kw ) ! (deg K)^-3 REAL, SAVE :: XC_C_ACETONE( kw ) ! (deg K)^-1 REAL, SAVE :: XC_B_ACETONE( kw ) ! (deg K)^-1 REAL, SAVE :: XC_A_ACETONE( kw ) ! (deg K)^-1 REAL, SAVE :: XCROSS_ACETONE_298K( kw ) ! cm^2 REAL, SAVE :: IC3ONO2_XCROSS_298K(kw) REAL, SAVE :: IC3ONO2_XCROSS_EXP(kw) REAL, SAVE :: HO2NO2_XCROSS_296K(kw), HO2NO2_XCROSS_A1(kw), & HO2NO2_XCROSS_A2(kw) REAL, SAVE :: H2O2_XCROSS_A( KW ), H2O2_XCROSS_B( KW ) REAL, SAVE :: NO2_QUANT_248K(kw), NO2_QUANT_298K(kw) REAL, SAVE :: NO2_XCROSS_220K(kw), NO2_XCROSS_294K(kw) REAL, SAVE :: CLONO2_XCROSS0(kw), CLONO2_A1(kw), CLONO2_A2(kw) REAL, SAVE :: PAN_XCROSS(kw), PAN_XCROSS_B(KW) REAL, SAVE :: CCHO_QUANT_INFIN(kw) REAL, SAVE :: CCHO_YIELD_COEFF(kw) REAL, SAVE :: O3_XCROSS_218K(kw),O3_XCROSS_293K(kw) REAL, SAVE :: HCHO_XCROSS_300K(kw), HCHO_XCROSS_A(kw) REAL, SAVE :: HCHO_QUANTM_STP(kw), HCHO_QUANTR_STP(kw) REAL, SAVE :: AQY_HCHO_BELOW_220K(kw), AQY_HCHO_ABOVE_300K(kw), & AQY_HCHO_220K_TO_300K(KW) REAL, SAVE :: BQY_HCHO(kw) REAL, SAVE :: NO3_XCROSS_06(kw) REAL, SAVE :: NO3NO_QUANT_298K(kw), NO3NO2_QUANT_298K(kw) REAL, SAVE :: NO3NO_QUANT_230K(kw), NO3NO2_QUANT_230K(kw) REAL, SAVE :: NO3NO_QUANT_190K(kw), NO3NO2_QUANT_190K(kw) REAL, SAVE :: N2O5_XCROSS_298K(kw), N2O5_XCROSS_EXP(kw) REAL, SAVE :: ETHYNO3_XCROSS_B(KW) REAL, SAVE :: CH3ONO2_XCROSS_B(KW) REAL, SAVE :: CLNO2_XCROSS_A1(KW) REAL, SAVE :: CLNO2_XCROSS_A2(KW) CONTAINS SUBROUTINE INIT_CSQY_REFER_DATA() IMPLICIT NONE INTEGER, PARAMETER :: nw = kw REAL wl(nw) REAL wu(nw) REAL wc(nw) REAL, ALLOCATABLE :: WAVE( : ), XDUMB( : ), YDUMB( : ), ZDUMB( : ) REAL :: FACTOR INTEGER :: I, NDUMB REAL( 8 ) :: ILAMBDA INTEGER J LOGICAL, SAVE :: INITIALIZED = .FALSE. INTERFACE SUBROUTINE WVBIN_AVERAGE(WL_CS_IN, CS_IN, NWL_CS_IN, & WL_QY_IN, QY_IN, NWL_QY_IN, & SPECTRA_TYPE, & WLL_AVE, WLU_AVE, NWL_AVE, & CS_AVE, QY_AVE ) CHARACTER(1), INTENT( IN ) :: SPECTRA_TYPE ! spectra type INTEGER, INTENT( IN ) :: NWL_AVE ! number of intervals average INTEGER, INTENT( IN ) :: NWL_CS_IN ! number of intervals CS_IN INTEGER, INTENT( IN ) :: NWL_QY_IN ! number of intervals CS_IN REAL, INTENT( IN ) :: WL_CS_IN( : ) ! wl for CS_IN REAL, INTENT( IN ) :: WL_QY_IN( : ) ! wl for QY_IN REAL, INTENT( IN ) :: CS_IN( : ) ! cross-section as f(WLIN) REAL, INTENT( IN ) :: QY_IN( : ) ! quantum yield as f(WLIN) REAL, INTENT( INOUT ) :: WLL_AVE( : ) ! lower limit on wl effective interval REAL, INTENT( INOUT ) :: WLU_AVE( : ) ! upper limit on wl effective interval REAL, INTENT( INOUT ) :: CS_AVE( : ) ! cross-section as f(WL_AVE) REAL, INTENT( INOUT ) :: QY_AVE( : ) ! quantum yield as f(WL_AVE) END SUBROUTINE WVBIN_AVERAGE SUBROUTINE WVBIN_AVERAGE_B(WL_CS_IN, CS_IN, NWL_CS_IN, & WL_QY_IN, QY_IN, NWL_QY_IN, & SPECTRA_TYPE, & WLL_AVE, WLU_AVE, NWL_AVE, & CS_AVE, QY_AVE ) CHARACTER(1), INTENT( IN ) :: SPECTRA_TYPE ! spectra type INTEGER, INTENT( IN ) :: NWL_AVE ! number of intervals average INTEGER, INTENT( IN ) :: NWL_CS_IN ! number of intervals CS_IN INTEGER, INTENT( IN ) :: NWL_QY_IN ! number of intervals CS_IN REAL, INTENT( IN ) :: WL_CS_IN( : ) ! wl for CS_IN REAL, INTENT( IN ) :: WL_QY_IN( : ) ! wl for QY_IN REAL, INTENT( IN ) :: CS_IN( : ) ! cross-section as f(WLIN) REAL, INTENT( IN ) :: QY_IN( : ) ! quantum yield as f(WLIN) REAL, INTENT( INOUT ) :: WLL_AVE( : ) ! lower limit on wl effective interval REAL, INTENT( INOUT ) :: WLU_AVE( : ) ! upper limit on wl effective interval REAL, INTENT( INOUT ) :: CS_AVE( : ) ! cross-section as f(WL_AVE) REAL, INTENT( INOUT ) :: QY_AVE( : ) ! quantum yield as f(WL_AVE) END SUBROUTINE WVBIN_AVERAGE_B END INTERFACE IF( INITIALIZED ) RETURN INITIALIZED = .TRUE. ALLOCATE( WAVE( MXWLIN ), XDUMB( MXWLIN ), ZDUMB( MXWLIN ), YDUMB( KW) ) XDUMB = 1.0 j = 0 ! CALL INTAVG (WV_O3_XC, O3_XC_218K, N_O3_XC, 'B', ! & wl, wu, O3_XCROSS_218K, nw) ! CALL INTAVG (WV_O3_XC, O3_XC_293K, N_O3_XC, 'B', ! & wl, wu, O3_XCROSS_293K, nw) XDUMB = 1.0 NDUMB = N_O3_XC WAVE = 0.0 WAVE( 1:NDUMB ) = WV_O3_XC( 1:NDUMB ) CALL WVBIN_AVERAGE(WAVE, O3_XC_218K, NDUMB, & WAVE, XDUMB, NDUMB, 'C', & WL, WU, NW, O3_XCROSS_218K, YDUMB ) CALL WVBIN_AVERAGE(WAVE, O3_XC_293K, NDUMB, & WAVE, XDUMB, NDUMB, 'C', & WL, WU, NW, O3_XCROSS_293K, YDUMB ) XDUMB = 1.0 NDUMB = N_IC3ONO2_XC WAVE = 0.0 WAVE( 1:NDUMB ) = WV_IC3ONO2_XC( 1:NDUMB ) CALL WVBIN_AVERAGE(WAVE, IC3ONO2_XC_298K, NDUMB, & WAVE, XDUMB, NDUMB, 'C', & WL, WU, NW, IC3ONO2_XCROSS_298K, YDUMB ) CALL WVBIN_AVERAGE(WAVE, IC3ONO2_XC_B, NDUMB, & WAVE, XDUMB, NDUMB, 'C', & WL, WU, NW, IC3ONO2_XCROSS_EXP, YDUMB ) J = J + 1 XDUMB = 1.0 NDUMB = N_N2O5_XC WAVE = 0.0 WAVE( 1:NDUMB ) = WV_N2O5_XC( 1:NDUMB ) CALL WVBIN_AVERAGE(WAVE, N2O5_XC_298K, NDUMB, & WAVE, XDUMB, NDUMB, 'C', & WL, WU, NW, N2O5_XCROSS_298K, YDUMB ) CALL WVBIN_AVERAGE(WAVE, N2O5_XC_EXP, NDUMB, & WAVE, XDUMB, NDUMB, 'C', & WL, WU, NW, N2O5_XCROSS_EXP, YDUMB ) J = J + 1 XDUMB = 1.0 WAVE = 0.0 NDUMB = N_ETHYNO3_XC_SLOPE WAVE( 1:NDUMB ) = WV_ETHYNO3_XC_B( 1:NDUMB ) CALL WVBIN_AVERAGE(WAVE, ETHYNO3_XC_B, NDUMB, & WAVE, XDUMB, NDUMB, 'C', & WL, WU, NW, ETHYNO3_XCROSS_B, YDUMB ) J = J + 1 XDUMB = 1.0 WAVE = 0.0 NDUMB = N_CH3ONO2_XC_SLOPE WAVE( 1:NDUMB ) = WV_CH3ONO2_XC_B( 1:NDUMB ) CALL WVBIN_AVERAGE(WAVE, CH3ONO2_XC_B, NDUMB, & WAVE, XDUMB, NDUMB, 'C', & WL, WU, NW, CH3ONO2_XCROSS_B, YDUMB ) J = J + 1 XDUMB = 1.0 NDUMB = N_CCHO_QUENCH WAVE = 0.0 WV_CCHO_QUENCH( 1 ) = 258.0 DO J = 1, (N_CCHO_QUENCH-1) WV_CCHO_QUENCH( J+1 ) = WV_CCHO_QUENCH( J ) + 1.0 END DO WAVE( 1:NDUMB ) = WV_CCHO_QUENCH( 1:NDUMB ) DO J = 1, N_CCHO_QUENCH ILAMBDA = REAL(1.0/WV_CCHO_QUENCH( J ), 8) CCHO_QUENCH( J ) = REAL( 1.0D-21 & * ( 1.04D27*EXP(-1.792D4*ILAMBDA) + 1.48D06*EXP(-3.211D3*ILAMBDA) ) ) CCHO_PHI0( J ) = 1.0/(1.0 + EXP(0.2627801*(WV_CCHO_QUENCH( J ) - 320.56)) ) ! WRITE(6,'(A,3(1X,ES12.4))') "WV_CCHO_QUENCH( J ), CCHO_QUENCH( J ), CCHO_PHI0( J ) = ", ! & WV_CCHO_QUENCH( J ), CCHO_QUENCH( J ), CCHO_PHI0( J ) END DO ! STOP CALL WVBIN_AVERAGE(WAVE, CCHO_QUENCH, NDUMB, & WAVE, XDUMB, NDUMB, 'C', & WL, WU, NW, CCHO_YIELD_COEFF, YDUMB ) CALL WVBIN_AVERAGE(WAVE, CCHO_PHI0, NDUMB, & WAVE, XDUMB, NDUMB, 'C', & WL, WU, NW, CCHO_QUANT_INFIN, YDUMB ) J = J + 1 XDUMB = 1.0 NDUMB = N_PAN WAVE = 0.0 WAVE( 1:NDUMB ) = WV_PAN( 1:NDUMB ) CALL WVBIN_AVERAGE(WAVE, PAN_XC_298K, NDUMB, & WAVE, XDUMB, NDUMB, 'C', & WL, WU, NW, PAN_XCROSS, YDUMB ) CALL WVBIN_AVERAGE(WAVE, PAN_XC_EXP, NDUMB, & WAVE, XDUMB, NDUMB, 'C', & WL, WU, NW, PAN_XCROSS_B, YDUMB ) J = J + 1 XDUMB = 1.0 NDUMB = N_WL_ACETONE WAVE = 0.0 WAVE( 1:NDUMB ) = WL_ACETONE( 1:NDUMB ) CALL WVBIN_AVERAGE(WAVE, CSZ_ACETONE, NDUMB, & WAVE, XDUMB, NDUMB, 'C', & WL, WU, NW, XCROSS_ACETONE_298K, YDUMB ) CALL WVBIN_AVERAGE(WAVE, A_ACETONE, NDUMB, & WAVE, XDUMB, NDUMB, 'C', & WL, WU, NW, XC_A_ACETONE, YDUMB ) CALL WVBIN_AVERAGE(WAVE, B_ACETONE, NDUMB, & WAVE, XDUMB, NDUMB, 'C', & WL, WU, NW, XC_B_ACETONE, YDUMB ) CALL WVBIN_AVERAGE(WAVE, C_ACETONE, NDUMB, & WAVE, XDUMB, NDUMB, 'C', & WL, WU, NW, XC_C_ACETONE, YDUMB ) J = J + 1 C compute normalization correction to ACETONE coefficients DO I = 1, NW XC_D_ACETONE( I ) = 1.0 & - XC_A_ACETONE( I )*298 & - XC_B_ACETONE( I )*298**2 & - XC_C_ACETONE( I )*298**3 ENDDO XDUMB = 1.0 NDUMB = N_HO2NO2 WAVE = 0.0 WAVE( 1:NDUMB ) = WV_HO2NO2( 1:NDUMB ) CALL WVBIN_AVERAGE(WAVE, HO2NO2_XC_296K, NDUMB, & WAVE, XDUMB, NDUMB, 'C', & WL, WU, NW, HO2NO2_XCROSS_296K, YDUMB ) CALL WVBIN_AVERAGE(WAVE, HO2NO2_A1_296K, NDUMB, & WAVE, XDUMB, NDUMB, 'C', & WL, WU, NW, HO2NO2_XCROSS_A1, YDUMB ) CALL WVBIN_AVERAGE(WAVE, HO2NO2_A2_296K, NDUMB, & WAVE, XDUMB, NDUMB, 'C', & WL, WU, NW, HO2NO2_XCROSS_A2, YDUMB ) J = J + 1 XDUMB = 1.0 NDUMB = (350.0 - 260.0)/5.0 + 1 XDUMB = 0.0 YDUMB = 1.0 ZDUMB = 0.0 DO I = 1, NDUMB WAVE( I ) = 260.0 + 5.0*(I-1) XDUMB(I) = 1.5534675E-13*WAVE(I)**7.0 - 2.652014E-10*WAVE(I)**6.0 & + 1.6878206E-07*WAVE(I)**5.0 - 4.035101E-05*WAVE(I)**4.0 & - 4.4589016E-03*WAVE(I)**3.0 + 4.535649E+00*WAVE(I)**2.0 & - 9.2170972E+02*WAVE(I) + 6.4761E+04 XDUMB(I) = MAX(XDUMB(I), 0.0) ENDDO CALL WVBIN_AVERAGE(WAVE, XDUMB, NDUMB, & WAVE, YDUMB, NDUMB, 'P', & WL, WU, NW, H2O2_XCROSS_A, ZDUMB ) DO I = 1, NDUMB XDUMB(I) = -1.0924E-07*WAVE(I)**4.0 - 3.0493E-05*WAVE(I)**3.0 & + 1.1522E-01*WAVE(I)**2.0 - 5.1351E+01*WAVE(I) & + 6.8123E+03 XDUMB(I) = MAX(XDUMB(I), 0.0) ENDDO CALL WVBIN_AVERAGE(WAVE, XDUMB, NDUMB, & WAVE, YDUMB, NDUMB, 'P', & WL, WU, NW, H2O2_XCROSS_B, ZDUMB ) H2O2_XCROSS_A = 1.0E-21*H2O2_XCROSS_A H2O2_XCROSS_B = 1.0E-21*H2O2_XCROSS_B J = J + 1 XDUMB = 1.0 NDUMB = N_CLONO2 WAVE = 0.0 WAVE( 1:NDUMB ) = WV_CLONO2( 1:NDUMB ) CALL WVBIN_AVERAGE(WAVE, CLONO2_XC_296K, NDUMB, & WAVE, XDUMB, NDUMB, 'C', & WL, WU, NW, CLONO2_XCROSS0, YDUMB ) CALL WVBIN_AVERAGE(WAVE, CLONO2_A1_296K, NDUMB, & WAVE, XDUMB, NDUMB, 'C', & WL, WU, NW, CLONO2_A1, YDUMB ) CALL WVBIN_AVERAGE(WAVE, CLONO2_A2_296K, NDUMB, & WAVE, XDUMB, NDUMB, 'C', & WL, WU, NW, CLONO2_A2, YDUMB ) J = J + 1 XDUMB = 1.0 NDUMB = N_WAVE_XCLNO2 WAVE = 0.0 WAVE( 1:NDUMB ) = wave_CLNO2( 1:NDUMB ) CALL WVBIN_AVERAGE(WAVE, A1_CLNO2, NDUMB, & WAVE, XDUMB, NDUMB, 'C', & WL, WU, NW, CLNO2_XCROSS_A1, YDUMB ) CALL WVBIN_AVERAGE(WAVE, A2_CLNO2, NDUMB, & WAVE, XDUMB, NDUMB, 'C', & WL, WU, NW, CLNO2_XCROSS_A2, YDUMB ) CLNO2_XCROSS_A1 = 1.0E-5 * CLNO2_XCROSS_A1 CLNO2_XCROSS_A2 = 1.0E-5 * CLNO2_XCROSS_A2 J = J + 1 XDUMB = 1.0 NDUMB = N_NO2_XC WAVE = 0.0 WAVE( 1:NDUMB ) = WV_NO2_XC( 1:NDUMB ) CALL WVBIN_AVERAGE(WAVE, NO2_XC_294K, NDUMB, & WAVE, XDUMB, NDUMB, 'C', & WL, WU, NW, NO2_XCROSS_294K, YDUMB ) CALL WVBIN_AVERAGE(WAVE, NO2_XC_220K, NDUMB, & WAVE, XDUMB, NDUMB, 'C', & WL, WU, NW, NO2_XCROSS_220K, YDUMB ) J = J + 1 XDUMB = 0.0 DO I = 1, N_NO2_XC FACTOR = (NO2_XC_294K(I)-NO2_XC_220K(I)) & * (248.0-220.0)/74.0 XDUMB( I ) = NO2_XC_220K(I) & + FACTOR ENDDO CALL WVBIN_AVERAGE(WAVE, XDUMB, NDUMB, & WV_NO2_QY, NO2_QY_248K, N_NO2_QY, 'C', & WL, WU, NW, YDUMB, NO2_QUANT_248K ) J = J + 1 XDUMB = 0.0 DO I = 1, N_NO2_XC XDUMB( I ) = NO2_XC_294K(I) ENDDO CALL WVBIN_AVERAGE(WAVE, XDUMB, NDUMB, & WV_NO2_QY, NO2_QY_298K, N_NO2_QY, 'C', & WL, WU, NW, YDUMB, NO2_QUANT_298K ) J = J + 1 XDUMB = 1.0 NDUMB = N_HNO3_XC WAVE = 0.0 WAVE( 1:NDUMB ) = WV_HNO3_XC( 1:NDUMB ) CALL WVBIN_AVERAGE(WAVE, HNO3_XC_298K, NDUMB, & WAVE, XDUMB, NDUMB, 'C', & WL, WU, NW, HNO3_XCROSS_298K, YDUMB ) CALL WVBIN_AVERAGE(WAVE, HNO3_XC_B, NDUMB, & WAVE, XDUMB, NDUMB, 'C', & WL, WU, NW, HNO3_XCROSS_EXP, YDUMB ) J = J + 1 XDUMB = 1.0 NDUMB = N_HCHO_XC WAVE = 0.0 WAVE( 1:NDUMB ) = WV_HCHO_XC( 1:NDUMB ) CALL WVBIN_AVERAGE(WAVE, HCHO_XC_300K, NDUMB, & WAVE, XDUMB, NDUMB, 'C', & WL, WU, NW, HCHO_XCROSS_300K, YDUMB ) CALL WVBIN_AVERAGE(WAVE, HCHO_XC_A, NDUMB, & WAVE, XDUMB, NDUMB, 'C', & WL, WU, NW, HCHO_XCROSS_A, YDUMB ) J = J + 1 XDUMB = 0.0 DO I = 1, N_HCHO_XC XDUMB( I ) = HCHO_XC_300K( I ) - 2.0*HCHO_XC_A( I ) ENDDO CALL WVBIN_AVERAGE(WAVE, XDUMB, NDUMB, & WV_HCHO_QY, HCHO_QYR, N_HCHO_QY, 'C', & WL, WU, NW, YDUMB, HCHO_QUANTR_STP ) CALL WVBIN_AVERAGE(WAVE, XDUMB, NDUMB, & WV_HCHO_QY, HCHO_QYM, N_HCHO_QY, 'C', & WL, WU, NW, YDUMB, HCHO_QUANTM_STP ) ZDUMB = 0.0 DO I = 1, N_HCHO_QY IF ( (WV_HCHO_QY(I) .GE. 330.) .AND. (HCHO_QYM(I) .GT. 0.) ) THEN ZDUMB(I) = ((1./HCHO_QYM(I))-(1./(1. - HCHO_QYR(I)))) & * (1.+0.05*(WV_HCHO_QY(I)-329.0)) ENDIF ENDDO CALL WVBIN_AVERAGE(WAVE, XDUMB, NDUMB, & WV_HCHO_QY, ZDUMB, N_HCHO_QY, 'C', & WL, WU, NW, YDUMB, AQY_HCHO_220K_TO_300K ) ZDUMB = 0.0 DO I = 1, N_HCHO_QY IF ( (WV_HCHO_QY(I) .GE. 330.) .AND. (HCHO_QYM(I) .GT. 0.) ) THEN ZDUMB(I) = ((1./HCHO_QYM(I))-(1./(1. - HCHO_QYR(I)))) & * (1.+0.0875*(WV_HCHO_QY(I)-329.0)) ENDIF ENDDO CALL WVBIN_AVERAGE(WAVE, XDUMB, NDUMB, & WV_HCHO_QY, ZDUMB, N_HCHO_QY, 'C', & WL, WU, NW, YDUMB, AQY_HCHO_BELOW_220K ) ZDUMB = 0.0 DO I = 1, N_HCHO_QY IF ( (WV_HCHO_QY(I) .GE. 330.) .AND. (HCHO_QYM(I) .GT. 0.) ) THEN ZDUMB(I) = ((1./HCHO_QYM(I))-(1./(1. - HCHO_QYR(I)))) & * (1.+0.1375*(WV_HCHO_QY(I)-329.0)) ENDIF ENDDO CALL WVBIN_AVERAGE(WAVE, XDUMB, NDUMB, & WV_HCHO_QY, ZDUMB, N_HCHO_QY, 'C', & WL, WU, NW, YDUMB, AQY_HCHO_ABOVE_300K ) ZDUMB = 0.0 DO I = 1, N_HCHO_QY ZDUMB(I) = (1./(1. - HCHO_QYR(I))) ENDDO CALL WVBIN_AVERAGE(WAVE, XDUMB, NDUMB, & WV_HCHO_QY, ZDUMB, N_HCHO_QY, 'C', & WL, WU, NW, YDUMB, BQY_HCHO ) J = J + 1 WAVE = 0.0 NDUMB = N_NO3_06 WAVE(1:NDUMB) = WV_NO3_06(1:NDUMB) FACTOR = (1.0-exp(-1096.4/190.0)- 2.0*exp(-529.5/190.0)) & / (1.0-exp(-1096.4/298.0)- 2.0*exp(-529.5/298.0)) XDUMB = 0.0 XDUMB( 1:N_NO3_06) = FACTOR * XC_NO3_06(1:N_NO3_06) CALL WVBIN_AVERAGE(WAVE, XDUMB, NDUMB, & WV_NO3_QY, NO3NO2_QY_190K, N_NO3_QY, 'C', & WL, WU, NW, YDUMB, NO3NO2_QUANT_190K ) CALL WVBIN_AVERAGE(WAVE, XDUMB, NDUMB, & WV_NO3_QY, NO3NO_QY_190K, N_NO3_QY, 'C', & WL, WU, NW, YDUMB, NO3NO_QUANT_190K ) J = J + 1 FACTOR = (1.0-exp(-1096.4/230.0)-2.0*exp(-529.5/230.0)) & / (1.0-exp(-1096.4/298.0)-2.0*exp(-529.5/298.0)) XDUMB = 0.0 XDUMB( 1:NDUMB) = FACTOR * XC_NO3_06(1:NDUMB) CALL WVBIN_AVERAGE(WAVE, XDUMB, NDUMB, & WV_NO3_QY, NO3NO_QY_230K, N_NO3_QY, 'C', & WL, WU, NW, YDUMB, NO3NO_QUANT_230K ) CALL WVBIN_AVERAGE(WAVE, XDUMB, NDUMB, & WV_NO3_QY, NO3NO2_QY_230K, N_NO3_QY, 'C', & WL, WU, NW, YDUMB, NO3NO2_QUANT_230K ) J = J + 1 XDUMB = 0.0 XDUMB( 1:N_NO3_06) = XC_NO3_06(1:N_NO3_06) CALL WVBIN_AVERAGE(WAVE, XDUMB, NDUMB, & WV_NO3_QY, NO3NO_QY_298K, N_NO3_QY, 'C', & WL, WU, NW, YDUMB, NO3NO_QUANT_298K ) ! average cross-section as well as quantum yield CALL WVBIN_AVERAGE(WAVE, XDUMB, NDUMB, & WV_NO3_QY, NO3NO2_QY_298K, N_NO3_QY, 'C', & WL, WU, NW, NO3_XCROSS_06, NO3NO2_QUANT_298K ) J = J + 1 DEALLOCATE( WAVE, XDUMB, YDUMB ) RETURN END SUBROUTINE INIT_CSQY_REFER_DATA END MODULE CSQY_REFER_DATA ================================================ FILE: UTIL/inline_phot_preproc/src/INLINE_CSQY.F ================================================ MODULE CSQY_DATA IMPLICIT NONE C.....PARAMETERS and their descriptions: INTEGER, PARAMETER :: NPHOT_REF = 77 ! # ref phot reactions INTEGER, PARAMETER :: NTEMP = 3 ! # ref temperatures INTEGER, PARAMETER :: NWL_REF = 7 ! # ref wavelengths C...Names of the mapped photolysis reactions (available to chemical) C... mechanisms) and their pointers to the reference photolysis rxn INTEGER, PARAMETER :: INO2-06 = 1 ! pointer to NO2-06 INTEGER, PARAMETER :: INO3NO-06 = 2 ! pointer to NO3NO-06 INTEGER, PARAMETER :: INO3NO2-6 = 3 ! pointer to NO3NO2-6 INTEGER, PARAMETER :: IO3O1D-06 = 4 ! pointer to O3O1D-06 INTEGER, PARAMETER :: IO3O3P-06 = 5 ! pointer to O3O3P-06 INTEGER, PARAMETER :: IHONO-06 = 6 ! pointer to HONO-06 INTEGER, PARAMETER :: IHNO3 = 7 ! pointer to HNO3 INTEGER, PARAMETER :: IHNO4-06 = 8 ! pointer to HNO4-06 INTEGER, PARAMETER :: IH2O2 = 9 ! pointer to H2O2 INTEGER, PARAMETER :: INO2EX = 10 ! pointer to NO2EX INTEGER, PARAMETER :: IPAN = 11 ! pointer to PAN INTEGER, PARAMETER :: IHCHOR-06 = 12 ! pointer to HCHOR-06 INTEGER, PARAMETER :: IHCHOM-06 = 13 ! pointer to HCHOM-06 INTEGER, PARAMETER :: ICCHO_R = 14 ! pointer to CCHO_R INTEGER, PARAMETER :: IC2CHO = 15 ! pointer to C2CHO INTEGER, PARAMETER :: IACET-06 = 16 ! pointer to ACET-06 INTEGER, PARAMETER :: IMEK-06 = 17 ! pointer to MEK-06 INTEGER, PARAMETER :: ICOOH = 18 ! pointer to COOH INTEGER, PARAMETER :: IGLY-07R = 19 ! pointer to GLY-07R INTEGER, PARAMETER :: IGLY-07M = 20 ! pointer to GLY-07M INTEGER, PARAMETER :: IMGLY-06 = 21 ! pointer to MGLY-06 INTEGER, PARAMETER :: IBACL-07 = 22 ! pointer to BACL-07 INTEGER, PARAMETER :: IBALD-06 = 23 ! pointer to BALD-06 INTEGER, PARAMETER :: IAFG1 = 24 ! pointer to AFG1 INTEGER, PARAMETER :: IMACR-06 = 25 ! pointer to MACR-06 INTEGER, PARAMETER :: IMVK-06 = 26 ! pointer to MVK-06 INTEGER, PARAMETER :: IIC3ONO2 = 27 ! pointer to IC3ONO2 INTEGER, PARAMETER :: IHOCCHO_IUPAC = 28 ! pointer to HOCCHO_IUPAC INTEGER, PARAMETER :: IACRO-09 = 29 ! pointer to ACRO-09 INTEGER, PARAMETER :: IPAA = 30 ! pointer to PAA INTEGER, PARAMETER :: ICL2 = 31 ! pointer to CL2 INTEGER, PARAMETER :: ICLNO-06 = 32 ! pointer to CLNO-06 INTEGER, PARAMETER :: ICLONO = 33 ! pointer to CLONO INTEGER, PARAMETER :: ICLNO2 = 34 ! pointer to CLNO2 INTEGER, PARAMETER :: ICLONO2-1 = 35 ! pointer to CLONO2-1 INTEGER, PARAMETER :: ICLONO2-2 = 36 ! pointer to CLONO2-2 INTEGER, PARAMETER :: IHOCL-06 = 37 ! pointer to HOCL-06 INTEGER, PARAMETER :: ICLCCHO = 38 ! pointer to CLCCHO INTEGER, PARAMETER :: ICLACET = 39 ! pointer to CLACET INTEGER, PARAMETER :: INO2_SAPRC99 = 40 ! pointer to NO2_SAPRC99 INTEGER, PARAMETER :: INO3NO_SAPRC99 = 41 ! pointer to NO3NO_SAPRC99 INTEGER, PARAMETER :: INO3NO2_SAPRC99 = 42 ! pointer to NO3NO2_SAPRC99 INTEGER, PARAMETER :: IO3O3P_SAPRC99 = 43 ! pointer to O3O3P_SAPRC99 INTEGER, PARAMETER :: IO3O1D_SAPRC99 = 44 ! pointer to O3O1D_SAPRC99 INTEGER, PARAMETER :: IHONO_NO_SAPRC99 = 45 ! pointer to HONO_NO_SAPRC99 INTEGER, PARAMETER :: IHONO_NO2_SAPRC99 = 46 ! pointer to HONO_NO2_SAPRC99 INTEGER, PARAMETER :: IHNO3_SAPRC99 = 47 ! pointer to HNO3_SAPRC99 INTEGER, PARAMETER :: IHO2NO2_SAPRC99 = 48 ! pointer to HO2NO2_SAPRC99 INTEGER, PARAMETER :: IH2O2_SAPRC99 = 49 ! pointer to H2O2_SAPRC99 INTEGER, PARAMETER :: IHCHO_R_SAPRC99 = 50 ! pointer to HCHO_R_SAPRC99 INTEGER, PARAMETER :: IHCHO_M_SAPRC99 = 51 ! pointer to HCHO_M_SAPRC99 INTEGER, PARAMETER :: ICCHO_R_SAPRC99 = 52 ! pointer to CCHO_R_SAPRC99 INTEGER, PARAMETER :: IC2CHO_SAPRC99 = 53 ! pointer to C2CHO_SAPRC99 INTEGER, PARAMETER :: IACETONE_SAPRC99 = 54 ! pointer to ACETONE_SAPRC99 INTEGER, PARAMETER :: IKETONE_SAPRC99 = 55 ! pointer to KETONE_SAPRC99 INTEGER, PARAMETER :: ICOOH_SAPRC99 = 56 ! pointer to COOH_SAPRC99 INTEGER, PARAMETER :: IGLY_R_SAPRC99 = 57 ! pointer to GLY_R_SAPRC99 INTEGER, PARAMETER :: IGLY_ABS_SAPRC99 = 58 ! pointer to GLY_ABS_SAPRC99 INTEGER, PARAMETER :: IMGLY_ADJ_SAPRC99 = 59 ! pointer to MGLY_ADJ_SAPRC99 INTEGER, PARAMETER :: IBACL_ADJ_SAPRC99 = 60 ! pointer to BACL_ADJ_SAPRC99 INTEGER, PARAMETER :: IBZCHO_SAPRC99 = 61 ! pointer to BZCHO_SAPRC99 INTEGER, PARAMETER :: IACROLEIN_SAPRC99 = 62 ! pointer to ACROLEIN_SAPRC99 INTEGER, PARAMETER :: IIC3ONO2_SAPRC99 = 63 ! pointer to IC3ONO2_SAPRC99 INTEGER, PARAMETER :: IMGLY_ABS_SAPRC99 = 64 ! pointer to MGLY_ABS_SAPRC99 INTEGER, PARAMETER :: IO3_O3P_IUPAC04 = 65 ! pointer to O3_O3P_IUPAC04 INTEGER, PARAMETER :: IO3_O1D_IUPAC04 = 66 ! pointer to O3_O1D_IUPAC04 INTEGER, PARAMETER :: IHONO_IUPAC04 = 67 ! pointer to HONO_IUPAC04 INTEGER, PARAMETER :: IHO2NO2_IUPAC04 = 68 ! pointer to HO2NO2_IUPAC04 INTEGER, PARAMETER :: IHNO3_IUPAC04 = 69 ! pointer to HNO3_IUPAC04 INTEGER, PARAMETER :: IN2O5_IUPAC04 = 70 ! pointer to N2O5_IUPAC04 INTEGER, PARAMETER :: INTR_IUPAC04 = 71 ! pointer to NTR_IUPAC04 INTEGER, PARAMETER :: IPAN_IUPAC04 = 72 ! pointer to PAN_IUPAC04 INTEGER, PARAMETER :: IPACD_CB05 = 73 ! pointer to PACD_CB05 INTEGER, PARAMETER :: IMGLY_IUPAC04 = 74 ! pointer to MGLY_IUPAC04 INTEGER, PARAMETER :: ICL2_IUPAC04 = 75 ! pointer to CL2_IUPAC04 INTEGER, PARAMETER :: IHOCL_IUPAC04 = 76 ! pointer to HOCL_IUPAC04 INTEGER, PARAMETER :: IFMCL_IUPAC04 = 77 ! pointer to FMCL_IUPAC04 DATA PNAME_REF( INO2-06 ) / 'NO2-06 ' / DATA PNAME_REF( INO3NO-06 ) / 'NO3NO-06 ' / DATA PNAME_REF( INO3NO2-6 ) / 'NO3NO2-6 ' / DATA PNAME_REF( IO3O1D-06 ) / 'O3O1D-06 ' / DATA PNAME_REF( IO3O3P-06 ) / 'O3O3P-06 ' / DATA PNAME_REF( IHONO-06 ) / 'HONO-06 ' / DATA PNAME_REF( IHNO3 ) / 'HNO3 ' / DATA PNAME_REF( IHNO4-06 ) / 'HNO4-06 ' / DATA PNAME_REF( IH2O2 ) / 'H2O2 ' / DATA PNAME_REF( INO2EX ) / 'NO2EX ' / DATA PNAME_REF( IPAN ) / 'PAN ' / DATA PNAME_REF( IHCHOR-06 ) / 'HCHOR-06 ' / DATA PNAME_REF( IHCHOM-06 ) / 'HCHOM-06 ' / DATA PNAME_REF( ICCHO_R ) / 'CCHO_R ' / DATA PNAME_REF( IC2CHO ) / 'C2CHO ' / DATA PNAME_REF( IACET-06 ) / 'ACET-06 ' / DATA PNAME_REF( IMEK-06 ) / 'MEK-06 ' / DATA PNAME_REF( ICOOH ) / 'COOH ' / DATA PNAME_REF( IGLY-07R ) / 'GLY-07R ' / DATA PNAME_REF( IGLY-07M ) / 'GLY-07M ' / DATA PNAME_REF( IMGLY-06 ) / 'MGLY-06 ' / DATA PNAME_REF( IBACL-07 ) / 'BACL-07 ' / DATA PNAME_REF( IBALD-06 ) / 'BALD-06 ' / DATA PNAME_REF( IAFG1 ) / 'AFG1 ' / DATA PNAME_REF( IMACR-06 ) / 'MACR-06 ' / DATA PNAME_REF( IMVK-06 ) / 'MVK-06 ' / DATA PNAME_REF( IIC3ONO2 ) / 'IC3ONO2 ' / DATA PNAME_REF( IHOCCHO_IUPAC ) / 'HOCCHO_IUPAC ' / DATA PNAME_REF( IACRO-09 ) / 'ACRO-09 ' / DATA PNAME_REF( IPAA ) / 'PAA ' / DATA PNAME_REF( ICL2 ) / 'CL2 ' / DATA PNAME_REF( ICLNO-06 ) / 'CLNO-06 ' / DATA PNAME_REF( ICLONO ) / 'CLONO ' / DATA PNAME_REF( ICLNO2 ) / 'CLNO2 ' / DATA PNAME_REF( ICLONO2-1 ) / 'CLONO2-1 ' / DATA PNAME_REF( ICLONO2-2 ) / 'CLONO2-2 ' / DATA PNAME_REF( IHOCL-06 ) / 'HOCL-06 ' / DATA PNAME_REF( ICLCCHO ) / 'CLCCHO ' / DATA PNAME_REF( ICLACET ) / 'CLACET ' / DATA PNAME_REF( INO2_SAPRC99 ) / 'NO2_SAPRC99 ' / DATA PNAME_REF( INO3NO_SAPRC99 ) / 'NO3NO_SAPRC99 ' / DATA PNAME_REF( INO3NO2_SAPRC99 ) / 'NO3NO2_SAPRC99 ' / DATA PNAME_REF( IO3O3P_SAPRC99 ) / 'O3O3P_SAPRC99 ' / DATA PNAME_REF( IO3O1D_SAPRC99 ) / 'O3O1D_SAPRC99 ' / DATA PNAME_REF( IHONO_NO_SAPRC99 ) / 'HONO_NO_SAPRC99 ' / DATA PNAME_REF( IHONO_NO2_SAPRC99 ) / 'HONO_NO2_SAPRC99' / DATA PNAME_REF( IHNO3_SAPRC99 ) / 'HNO3_SAPRC99 ' / DATA PNAME_REF( IHO2NO2_SAPRC99 ) / 'HO2NO2_SAPRC99 ' / DATA PNAME_REF( IH2O2_SAPRC99 ) / 'H2O2_SAPRC99 ' / DATA PNAME_REF( IHCHO_R_SAPRC99 ) / 'HCHO_R_SAPRC99 ' / DATA PNAME_REF( IHCHO_M_SAPRC99 ) / 'HCHO_M_SAPRC99 ' / DATA PNAME_REF( ICCHO_R_SAPRC99 ) / 'CCHO_R_SAPRC99 ' / DATA PNAME_REF( IC2CHO_SAPRC99 ) / 'C2CHO_SAPRC99 ' / DATA PNAME_REF( IACETONE_SAPRC99 ) / 'ACETONE_SAPRC99 ' / DATA PNAME_REF( IKETONE_SAPRC99 ) / 'KETONE_SAPRC99 ' / DATA PNAME_REF( ICOOH_SAPRC99 ) / 'COOH_SAPRC99 ' / DATA PNAME_REF( IGLY_R_SAPRC99 ) / 'GLY_R_SAPRC99 ' / DATA PNAME_REF( IGLY_ABS_SAPRC99 ) / 'GLY_ABS_SAPRC99 ' / DATA PNAME_REF( IMGLY_ADJ_SAPRC99 ) / 'MGLY_ADJ_SAPRC99' / DATA PNAME_REF( IBACL_ADJ_SAPRC99 ) / 'BACL_ADJ_SAPRC99' / DATA PNAME_REF( IBZCHO_SAPRC99 ) / 'BZCHO_SAPRC99 ' / DATA PNAME_REF( IACROLEIN_SAPRC99 ) / 'ACROLEIN_SAPRC99' / DATA PNAME_REF( IIC3ONO2_SAPRC99 ) / 'IC3ONO2_SAPRC99 ' / DATA PNAME_REF( IMGLY_ABS_SAPRC99 ) / 'MGLY_ABS_SAPRC99' / DATA PNAME_REF( IO3_O3P_IUPAC04 ) / 'O3_O3P_IUPAC04 ' / DATA PNAME_REF( IO3_O1D_IUPAC04 ) / 'O3_O1D_IUPAC04 ' / DATA PNAME_REF( IHONO_IUPAC04 ) / 'HONO_IUPAC04 ' / DATA PNAME_REF( IHO2NO2_IUPAC04 ) / 'HO2NO2_IUPAC04 ' / DATA PNAME_REF( IHNO3_IUPAC04 ) / 'HNO3_IUPAC04 ' / DATA PNAME_REF( IN2O5_IUPAC04 ) / 'N2O5_IUPAC04 ' / DATA PNAME_REF( INTR_IUPAC04 ) / 'NTR_IUPAC04 ' / DATA PNAME_REF( IPAN_IUPAC04 ) / 'PAN_IUPAC04 ' / DATA PNAME_REF( IPACD_CB05 ) / 'PACD_CB05 ' / DATA PNAME_REF( IMGLY_IUPAC04 ) / 'MGLY_IUPAC04 ' / DATA PNAME_REF( ICL2_IUPAC04 ) / 'CL2_IUPAC04 ' / DATA PNAME_REF( IHOCL_IUPAC04 ) / 'HOCL_IUPAC04 ' / DATA PNAME_REF( IFMCL_IUPAC04 ) / 'FMCL_IUPAC04 ' / C...Setup the Mapping from CMAQ chemical reactions to the reference data INTEGER, PARAMETER :: NPHOT_MAP = 77 ! # phot mapped reactions CHARACTER(16), SAVE :: PNAME_MAP( NPHOT_MAP ) CHARACTER(16), SAVE :: PHOT_MAP( NPHOT_MAP ) DATA PNAME_MAP( 1 ), PHOT_MAP( 1 ) / 'NO2-06 ', INO2-06 / DATA PNAME_MAP( 2 ), PHOT_MAP( 2 ) / 'NO3NO-06 ', INO3NO-06 / DATA PNAME_MAP( 3 ), PHOT_MAP( 3 ) / 'NO3NO2-6 ', INO3NO2-6 / DATA PNAME_MAP( 4 ), PHOT_MAP( 4 ) / 'O3O1D-06 ', IO3O1D-06 / DATA PNAME_MAP( 5 ), PHOT_MAP( 5 ) / 'O3O3P-06 ', IO3O3P-06 / DATA PNAME_MAP( 6 ), PHOT_MAP( 6 ) / 'HONO-06 ', IHONO-06 / DATA PNAME_MAP( 7 ), PHOT_MAP( 7 ) / 'HNO3 ', IHNO3 / DATA PNAME_MAP( 8 ), PHOT_MAP( 8 ) / 'HNO4-06 ', IHNO4-06 / DATA PNAME_MAP( 9 ), PHOT_MAP( 9 ) / 'H2O2 ', IH2O2 / DATA PNAME_MAP( 10 ), PHOT_MAP( 10 ) / 'NO2EX ', INO2EX / DATA PNAME_MAP( 11 ), PHOT_MAP( 11 ) / 'PAN ', IPAN / DATA PNAME_MAP( 12 ), PHOT_MAP( 12 ) / 'HCHOR-06 ', IHCHOR-06 / DATA PNAME_MAP( 13 ), PHOT_MAP( 13 ) / 'HCHOM-06 ', IHCHOM-06 / DATA PNAME_MAP( 14 ), PHOT_MAP( 14 ) / 'CCHO_R ', ICCHO_R / DATA PNAME_MAP( 15 ), PHOT_MAP( 15 ) / 'C2CHO ', IC2CHO / DATA PNAME_MAP( 16 ), PHOT_MAP( 16 ) / 'ACET-06 ', IACET-06 / DATA PNAME_MAP( 17 ), PHOT_MAP( 17 ) / 'MEK-06 ', IMEK-06 / DATA PNAME_MAP( 18 ), PHOT_MAP( 18 ) / 'COOH ', ICOOH / DATA PNAME_MAP( 19 ), PHOT_MAP( 19 ) / 'GLY-07R ', IGLY-07R / DATA PNAME_MAP( 20 ), PHOT_MAP( 20 ) / 'GLY-07M ', IGLY-07M / DATA PNAME_MAP( 21 ), PHOT_MAP( 21 ) / 'MGLY-06 ', IMGLY-06 / DATA PNAME_MAP( 22 ), PHOT_MAP( 22 ) / 'BACL-07 ', IBACL-07 / DATA PNAME_MAP( 23 ), PHOT_MAP( 23 ) / 'BALD-06 ', IBALD-06 / DATA PNAME_MAP( 24 ), PHOT_MAP( 24 ) / 'AFG1 ', IAFG1 / DATA PNAME_MAP( 25 ), PHOT_MAP( 25 ) / 'MACR-06 ', IMACR-06 / DATA PNAME_MAP( 26 ), PHOT_MAP( 26 ) / 'MVK-06 ', IMVK-06 / DATA PNAME_MAP( 27 ), PHOT_MAP( 27 ) / 'IC3ONO2 ', IIC3ONO2 / DATA PNAME_MAP( 28 ), PHOT_MAP( 28 ) / 'HOCCHO_IUPAC ', IHOCCHO_IUPAC / DATA PNAME_MAP( 29 ), PHOT_MAP( 29 ) / 'ACRO-09 ', IACRO-09 / DATA PNAME_MAP( 30 ), PHOT_MAP( 30 ) / 'PAA ', IPAA / DATA PNAME_MAP( 31 ), PHOT_MAP( 31 ) / 'CL2 ', ICL2 / DATA PNAME_MAP( 32 ), PHOT_MAP( 32 ) / 'CLNO-06 ', ICLNO-06 / DATA PNAME_MAP( 33 ), PHOT_MAP( 33 ) / 'CLONO ', ICLONO / DATA PNAME_MAP( 34 ), PHOT_MAP( 34 ) / 'CLNO2 ', ICLNO2 / DATA PNAME_MAP( 35 ), PHOT_MAP( 35 ) / 'CLONO2-1 ', ICLONO2-1 / DATA PNAME_MAP( 36 ), PHOT_MAP( 36 ) / 'CLONO2-2 ', ICLONO2-2 / DATA PNAME_MAP( 37 ), PHOT_MAP( 37 ) / 'HOCL-06 ', IHOCL-06 / DATA PNAME_MAP( 38 ), PHOT_MAP( 38 ) / 'CLCCHO ', ICLCCHO / DATA PNAME_MAP( 39 ), PHOT_MAP( 39 ) / 'CLACET ', ICLACET / DATA PNAME_MAP( 40 ), PHOT_MAP( 40 ) / 'NO2_SAPRC99 ', INO2_SAPRC99 / DATA PNAME_MAP( 41 ), PHOT_MAP( 41 ) / 'NO3NO_SAPRC99 ', INO3NO_SAPRC99 / DATA PNAME_MAP( 42 ), PHOT_MAP( 42 ) / 'NO3NO2_SAPRC99 ', INO3NO2_SAPRC99 / DATA PNAME_MAP( 43 ), PHOT_MAP( 43 ) / 'O3O3P_SAPRC99 ', IO3O3P_SAPRC99 / DATA PNAME_MAP( 44 ), PHOT_MAP( 44 ) / 'O3O1D_SAPRC99 ', IO3O1D_SAPRC99 / DATA PNAME_MAP( 45 ), PHOT_MAP( 45 ) / 'HONO_NO_SAPRC99 ', IHONO_NO_SAPRC99 / DATA PNAME_MAP( 46 ), PHOT_MAP( 46 ) / 'HONO_NO2_SAPRC99', IHONO_NO2_SAPRC99 / DATA PNAME_MAP( 47 ), PHOT_MAP( 47 ) / 'HNO3_SAPRC99 ', IHNO3_SAPRC99 / DATA PNAME_MAP( 48 ), PHOT_MAP( 48 ) / 'HO2NO2_SAPRC99 ', IHO2NO2_SAPRC99 / DATA PNAME_MAP( 49 ), PHOT_MAP( 49 ) / 'H2O2_SAPRC99 ', IH2O2_SAPRC99 / DATA PNAME_MAP( 50 ), PHOT_MAP( 50 ) / 'HCHO_R_SAPRC99 ', IHCHO_R_SAPRC99 / DATA PNAME_MAP( 51 ), PHOT_MAP( 51 ) / 'HCHO_M_SAPRC99 ', IHCHO_M_SAPRC99 / DATA PNAME_MAP( 52 ), PHOT_MAP( 52 ) / 'CCHO_R_SAPRC99 ', ICCHO_R_SAPRC99 / DATA PNAME_MAP( 53 ), PHOT_MAP( 53 ) / 'C2CHO_SAPRC99 ', IC2CHO_SAPRC99 / DATA PNAME_MAP( 54 ), PHOT_MAP( 54 ) / 'ACETONE_SAPRC99 ', IACETONE_SAPRC99 / DATA PNAME_MAP( 55 ), PHOT_MAP( 55 ) / 'KETONE_SAPRC99 ', IKETONE_SAPRC99 / DATA PNAME_MAP( 56 ), PHOT_MAP( 56 ) / 'COOH_SAPRC99 ', ICOOH_SAPRC99 / DATA PNAME_MAP( 57 ), PHOT_MAP( 57 ) / 'GLY_R_SAPRC99 ', IGLY_R_SAPRC99 / DATA PNAME_MAP( 58 ), PHOT_MAP( 58 ) / 'GLY_ABS_SAPRC99 ', IGLY_ABS_SAPRC99 / DATA PNAME_MAP( 59 ), PHOT_MAP( 59 ) / 'MGLY_ADJ_SAPRC99', IMGLY_ADJ_SAPRC99 / DATA PNAME_MAP( 60 ), PHOT_MAP( 60 ) / 'BACL_ADJ_SAPRC99', IBACL_ADJ_SAPRC99 / DATA PNAME_MAP( 61 ), PHOT_MAP( 61 ) / 'BZCHO_SAPRC99 ', IBZCHO_SAPRC99 / DATA PNAME_MAP( 62 ), PHOT_MAP( 62 ) / 'ACROLEIN_SAPRC99', IACROLEIN_SAPRC99 / DATA PNAME_MAP( 63 ), PHOT_MAP( 63 ) / 'IC3ONO2_SAPRC99 ', IIC3ONO2_SAPRC99 / DATA PNAME_MAP( 64 ), PHOT_MAP( 64 ) / 'MGLY_ABS_SAPRC99', IMGLY_ABS_SAPRC99 / DATA PNAME_MAP( 65 ), PHOT_MAP( 65 ) / 'O3_O3P_IUPAC04 ', IO3_O3P_IUPAC04 / DATA PNAME_MAP( 66 ), PHOT_MAP( 66 ) / 'O3_O1D_IUPAC04 ', IO3_O1D_IUPAC04 / DATA PNAME_MAP( 67 ), PHOT_MAP( 67 ) / 'HONO_IUPAC04 ', IHONO_IUPAC04 / DATA PNAME_MAP( 68 ), PHOT_MAP( 68 ) / 'HO2NO2_IUPAC04 ', IHO2NO2_IUPAC04 / DATA PNAME_MAP( 69 ), PHOT_MAP( 69 ) / 'HNO3_IUPAC04 ', IHNO3_IUPAC04 / DATA PNAME_MAP( 70 ), PHOT_MAP( 70 ) / 'N2O5_IUPAC04 ', IN2O5_IUPAC04 / DATA PNAME_MAP( 71 ), PHOT_MAP( 71 ) / 'NTR_IUPAC04 ', INTR_IUPAC04 / DATA PNAME_MAP( 72 ), PHOT_MAP( 72 ) / 'PAN_IUPAC04 ', IPAN_IUPAC04 / DATA PNAME_MAP( 73 ), PHOT_MAP( 73 ) / 'PACD_CB05 ', IPACD_CB05 / DATA PNAME_MAP( 74 ), PHOT_MAP( 74 ) / 'MGLY_IUPAC04 ', IMGLY_IUPAC04 / DATA PNAME_MAP( 75 ), PHOT_MAP( 75 ) / 'CL2_IUPAC04 ', ICL2_IUPAC04 / DATA PNAME_MAP( 76 ), PHOT_MAP( 76 ) / 'HOCL_IUPAC04 ', IHOCL_IUPAC04 / DATA PNAME_MAP( 77 ), PHOT_MAP( 77 ) / 'FMCL_IUPAC04 ', IFMCL_IUPAC04 / REAL, SAVE :: TEMP_REF( NTEMP_REF, NPHOT_REF ) ! reference temperatures REAL, SAVE :: CS_REF( NPHOT_REF, NTEMP_REF, NWL_REF ) ! effective cross sections REAL, SAVE :: QY_REF( NPHOT_REF, NTEMP_REF, NWL_REF ) ! effective quantum yields REAL, SAVE :: ECS_REF( NPHOT_REF, NTEMP_REF, NWL_REF ) ! CS*QY averaged UCI Solar Flux C... effective quantum yields were computed by performing separate C... interval integrations for the cross sections and for the C... effective cross sections (cs*qy) (calculated on the finer C... wavelength grid. The effective quantum yield values C... were then calculated for the 7 wavelength intervals by C... dividing the effective cross sections by the interval average C... cross sections (eQY=eCS/CS). REAL, SAVE :: EQY_REF( NPHOT_REF, NTEMP_REF, NWL_REF ) ! eCS/CS averaged 77 bins in UCI Model INTEGER :: IWLR ! wavelength loop variable INTEGER :: ITT ! temperature loop variable C...NO2-06 C.. NO2 + HV = NO + O C.. From NASA (2006). C.. Absorption cross sections are averages for wavelength intervals given. C.. Data alligned to smallest wavelength intervals for abs. coefs and qy's. C.. C... reference temperatures (K) DATA ( TEMP_REF( ITT, INO2-06 ), ITT=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( INO2-06, 1, IWLR ), IWLR = 1, 7 ) / & 1.075247E-19, 1.484195E-19, 1.882053E-19, 2.274756E-19, & 3.449308E-19, 5.754674E-19, 1.195357E-20 / DATA ( CS_REF( INO2-06, 1, IWLR ), IWLR = 1, 7 ) / & 1.075247E-19, 1.484195E-19, 1.882053E-19, 2.274756E-19, & 3.449308E-19, 5.754674E-19, 1.195357E-20 / DATA ( CS_REF( INO2-06, 1, IWLR ), IWLR = 1, 7 ) / & 1.075247E-19, 1.484195E-19, 1.882053E-19, 2.274756E-19, & 3.449308E-19, 5.754674E-19, 1.195357E-20 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( INO2-06, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 8.174767E-01, 7.500325E-04 / DATA ( QY_REF( INO2-06, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 8.174767E-01, 7.500325E-04 / DATA ( QY_REF( INO2-06, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 8.174767E-01, 7.500325E-04 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( INO2-06, 1, IWLR ), IWLR = 1, 7 ) / & 1.075247E-19, 1.484195E-19, 1.882053E-19, 2.274756E-19, & 3.449308E-19, 4.644382E-19, 4.476087E-22 / DATA ( ECS_REF( INO2-06, 1, IWLR ), IWLR = 1, 7 ) / & 1.075247E-19, 1.484195E-19, 1.882053E-19, 2.274756E-19, & 3.449308E-19, 4.644382E-19, 4.476087E-22 / DATA ( ECS_REF( INO2-06, 1, IWLR ), IWLR = 1, 7 ) / & 1.075247E-19, 1.484195E-19, 1.882053E-19, 2.274756E-19, & 3.449308E-19, 4.644382E-19, 4.476087E-22 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( INO2-06, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 8.070626E-01, 3.744562E-02 / DATA ( EQY_REF( INO2-06, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 8.070626E-01, 3.744562E-02 / DATA ( EQY_REF( INO2-06, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 8.070626E-01, 3.744562E-02 / C...NO3NO-06 C.. NO3 + HV = NO + O2 C.. From NASA (2006), for 298 K. C.. Quantum yields for wavelengths above 640 nm estimated by linear extrapolation. C.. C... reference temperatures (K) DATA ( TEMP_REF( ITT, INO3NO-06 ), ITT=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( INO3NO-06, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 0.000000E+00, 6.269964E-19 / DATA ( CS_REF( INO3NO-06, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 0.000000E+00, 6.269964E-19 / DATA ( CS_REF( INO3NO-06, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 0.000000E+00, 6.269964E-19 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( INO3NO-06, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 0.000000E+00, 2.298857E-02 / DATA ( QY_REF( INO3NO-06, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 0.000000E+00, 2.298857E-02 / DATA ( QY_REF( INO3NO-06, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 0.000000E+00, 2.298857E-02 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( INO3NO-06, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 0.000000E+00, 9.811739E-20 / DATA ( ECS_REF( INO3NO-06, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 0.000000E+00, 9.811739E-20 / DATA ( ECS_REF( INO3NO-06, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 0.000000E+00, 9.811739E-20 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( INO3NO-06, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 0.000000E+00, 1.564880E-01 / DATA ( EQY_REF( INO3NO-06, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 0.000000E+00, 1.564880E-01 / DATA ( EQY_REF( INO3NO-06, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 0.000000E+00, 1.564880E-01 / C...NO3NO2-6 C.. NO3 + HV = NO2 + O C.. From NASA (2006), for 298 K. C.. Quantum yields for wavelengths above 640 nm estimated by linear extrapolation. C.. C... reference temperatures (K) DATA ( TEMP_REF( ITT, INO3NO2-6 ), ITT=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( INO3NO2-6, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 4.027492E-21, 1.227490E-18 / DATA ( CS_REF( INO3NO2-6, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 4.027492E-21, 1.227490E-18 / DATA ( CS_REF( INO3NO2-6, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 4.027492E-21, 1.227490E-18 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( INO3NO2-6, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 2.130039E-01, 4.268056E-01 / DATA ( QY_REF( INO3NO2-6, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 2.130039E-01, 4.268056E-01 / DATA ( QY_REF( INO3NO2-6, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 2.130039E-01, 4.268056E-01 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( INO3NO2-6, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 4.021786E-21, 7.834470E-19 / DATA ( ECS_REF( INO3NO2-6, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 4.021786E-21, 7.834470E-19 / DATA ( ECS_REF( INO3NO2-6, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 4.021786E-21, 7.834470E-19 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( INO3NO2-6, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 9.985834E-01, 6.382512E-01 / DATA ( EQY_REF( INO3NO2-6, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 9.985834E-01, 6.382512E-01 / DATA ( EQY_REF( INO3NO2-6, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 9.985834E-01, 6.382512E-01 / C...O3O1D-06 C.. O3 + HV = O1D + O2 C.. NASA (2006) abs. Coefs and IUPAC (2006) quantum yields C.. Absorption cross sections from NASA (2006). C.. Quantum yields are from IUPAC (2006) recommendation, interpolated C.. to the NASA (2006) absorption cross section wavelengths. C.. NASA (2006) does not give useable recommendations for the absorption C.. cross sections, except at <305 and >329 nm, where they are consistent C.. with the IUPAC recommendations. C.. Formation of O1D assumed not to occur at the high wavelength band. C.. C... reference temperatures (K) DATA ( TEMP_REF( ITT, IO3O1D-06 ), ITT=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IO3O1D-06, 1, IWLR ), IWLR = 1, 7 ) / & 8.538772E-19, 2.750724E-19, 1.063743E-19, 4.625945E-20, & 6.599141E-21, 5.460147E-23, 0.000000E+00 / DATA ( CS_REF( IO3O1D-06, 1, IWLR ), IWLR = 1, 7 ) / & 8.538772E-19, 2.750724E-19, 1.063743E-19, 4.625945E-20, & 6.599141E-21, 5.460147E-23, 0.000000E+00 / DATA ( CS_REF( IO3O1D-06, 1, IWLR ), IWLR = 1, 7 ) / & 8.538772E-19, 2.750724E-19, 1.063743E-19, 4.625945E-20, & 6.599141E-21, 5.460147E-23, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IO3O1D-06, 1, IWLR ), IWLR = 1, 7 ) / & 9.000000E-01, 8.929039E-01, 5.359917E-01, 2.218193E-01, & 8.688425E-02, 4.278574E-02, 0.000000E+00 / DATA ( QY_REF( IO3O1D-06, 1, IWLR ), IWLR = 1, 7 ) / & 9.000000E-01, 8.929039E-01, 5.359917E-01, 2.218193E-01, & 8.688425E-02, 4.278574E-02, 0.000000E+00 / DATA ( QY_REF( IO3O1D-06, 1, IWLR ), IWLR = 1, 7 ) / & 9.000000E-01, 8.929039E-01, 5.359917E-01, 2.218193E-01, & 8.688425E-02, 4.278574E-02, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IO3O1D-06, 1, IWLR ), IWLR = 1, 7 ) / & 7.684895E-19, 2.464158E-19, 6.078768E-20, 1.068708E-20, & 6.625296E-22, 4.350859E-24, 0.000000E+00 / DATA ( ECS_REF( IO3O1D-06, 1, IWLR ), IWLR = 1, 7 ) / & 7.684895E-19, 2.464158E-19, 6.078768E-20, 1.068708E-20, & 6.625296E-22, 4.350859E-24, 0.000000E+00 / DATA ( ECS_REF( IO3O1D-06, 1, IWLR ), IWLR = 1, 7 ) / & 7.684895E-19, 2.464158E-19, 6.078768E-20, 1.068708E-20, & 6.625296E-22, 4.350859E-24, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IO3O1D-06, 1, IWLR ), IWLR = 1, 7 ) / & 9.000000E-01, 8.958217E-01, 5.714506E-01, 2.310247E-01, & 1.003963E-01, 7.968391E-02, 0.000000E+00 / DATA ( EQY_REF( IO3O1D-06, 1, IWLR ), IWLR = 1, 7 ) / & 9.000000E-01, 8.958217E-01, 5.714506E-01, 2.310247E-01, & 1.003963E-01, 7.968391E-02, 0.000000E+00 / DATA ( EQY_REF( IO3O1D-06, 1, IWLR ), IWLR = 1, 7 ) / & 9.000000E-01, 8.958217E-01, 5.714506E-01, 2.310247E-01, & 1.003963E-01, 7.968391E-02, 0.000000E+00 / C...O3O3P-06 C.. O3 + HV = O3P + O2 C.. Absorption cross sections from NASA (2006). C.. Quantum yields are derived from the O1D quantum yields in the low wavelength re C.. Unit quantum yields assumed in high wavelength region. C.. Absorption cross sections below 829 nm are extrapolated C.. C... reference temperatures (K) DATA ( TEMP_REF( ITT, IO3O3P-06 ), ITT=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IO3O3P-06, 1, IWLR ), IWLR = 1, 7 ) / & 8.408006E-19, 2.749081E-19, 1.063743E-19, 4.625945E-20, & 6.803506E-21, 6.139258E-23, 1.666851E-21 / DATA ( CS_REF( IO3O3P-06, 1, IWLR ), IWLR = 1, 7 ) / & 8.408006E-19, 2.749081E-19, 1.063743E-19, 4.625945E-20, & 6.803506E-21, 6.139258E-23, 1.666851E-21 / DATA ( CS_REF( IO3O3P-06, 1, IWLR ), IWLR = 1, 7 ) / & 8.408006E-19, 2.749081E-19, 1.063743E-19, 4.625945E-20, & 6.803506E-21, 6.139258E-23, 1.666851E-21 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IO3O3P-06, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E-01, 1.070961E-01, 4.640082E-01, 7.781807E-01, & 9.123901E-01, 9.572143E-01, 9.795594E-01 / DATA ( QY_REF( IO3O3P-06, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E-01, 1.070961E-01, 4.640082E-01, 7.781807E-01, & 9.123901E-01, 9.572143E-01, 9.795594E-01 / DATA ( QY_REF( IO3O3P-06, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E-01, 1.070961E-01, 4.640082E-01, 7.781807E-01, & 9.123901E-01, 9.572143E-01, 9.795594E-01 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IO3O3P-06, 1, IWLR ), IWLR = 1, 7 ) / & 8.408006E-20, 2.864014E-20, 4.558666E-20, 3.557237E-20, & 6.109267E-21, 5.704172E-23, 1.666851E-21 / DATA ( ECS_REF( IO3O3P-06, 1, IWLR ), IWLR = 1, 7 ) / & 8.408006E-20, 2.864014E-20, 4.558666E-20, 3.557237E-20, & 6.109267E-21, 5.704172E-23, 1.666851E-21 / DATA ( ECS_REF( IO3O3P-06, 1, IWLR ), IWLR = 1, 7 ) / & 8.408006E-20, 2.864014E-20, 4.558666E-20, 3.557237E-20, & 6.109267E-21, 5.704172E-23, 1.666851E-21 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IO3O3P-06, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E-01, 1.041808E-01, 4.285494E-01, 7.689753E-01, & 8.979586E-01, 9.291306E-01, 1.000000E+00 / DATA ( EQY_REF( IO3O3P-06, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E-01, 1.041808E-01, 4.285494E-01, 7.689753E-01, & 8.979586E-01, 9.291306E-01, 1.000000E+00 / DATA ( EQY_REF( IO3O3P-06, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E-01, 1.041808E-01, 4.285494E-01, 7.689753E-01, & 8.979586E-01, 9.291306E-01, 1.000000E+00 / C...HONO-06 C.. HONO + HV = HO. + NO C.. NASA (2006) recommended absorption cross sections. No recommendation on quantum yields. C.. IUPAC (2005) recommendation (Data Sheet PNOx1, July, 2001) recommends unit quantum yield C.. for OH + NO. C.. (IUPAC recommended absorption cross sections are low resolution, so NASA values are C.. preferred) C.. C... reference temperatures (K) DATA ( TEMP_REF( ITT, IHONO-06 ), ITT=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IHONO-06, 1, IWLR ), IWLR = 1, 7 ) / & 5.487002E-21, 9.335758E-21, 1.881657E-20, 3.188727E-20, & 9.007236E-20, 6.903963E-20, 0.000000E+00 / DATA ( CS_REF( IHONO-06, 1, IWLR ), IWLR = 1, 7 ) / & 5.487002E-21, 9.335758E-21, 1.881657E-20, 3.188727E-20, & 9.007236E-20, 6.903963E-20, 0.000000E+00 / DATA ( CS_REF( IHONO-06, 1, IWLR ), IWLR = 1, 7 ) / & 5.487002E-21, 9.335758E-21, 1.881657E-20, 3.188727E-20, & 9.007236E-20, 6.903963E-20, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IHONO-06, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 6.771221E-01, 0.000000E+00 / DATA ( QY_REF( IHONO-06, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 6.771221E-01, 0.000000E+00 / DATA ( QY_REF( IHONO-06, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 6.771221E-01, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IHONO-06, 1, IWLR ), IWLR = 1, 7 ) / & 5.487002E-21, 9.335758E-21, 1.881657E-20, 3.188727E-20, & 9.007236E-20, 6.903962E-20, 0.000000E+00 / DATA ( ECS_REF( IHONO-06, 1, IWLR ), IWLR = 1, 7 ) / & 5.487002E-21, 9.335758E-21, 1.881657E-20, 3.188727E-20, & 9.007236E-20, 6.903962E-20, 0.000000E+00 / DATA ( ECS_REF( IHONO-06, 1, IWLR ), IWLR = 1, 7 ) / & 5.487002E-21, 9.335758E-21, 1.881657E-20, 3.188727E-20, & 9.007236E-20, 6.903962E-20, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IHONO-06, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999999E-01, 0.000000E+00 / DATA ( EQY_REF( IHONO-06, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999999E-01, 0.000000E+00 / DATA ( EQY_REF( IHONO-06, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999999E-01, 0.000000E+00 / C...HNO3 C.. HNO3 + HV = products C.. IUPAC (1997) Recommendation C... reference temperatures (K) DATA ( TEMP_REF( ITT, IHNO3 ), ITT=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IHNO3, 1, IWLR ), IWLR = 1, 7 ) / & 4.358854E-21, 1.954560E-21, 8.462490E-22, 3.649802E-22, & 4.770221E-23, 3.875286E-25, 0.000000E+00 / DATA ( CS_REF( IHNO3, 1, IWLR ), IWLR = 1, 7 ) / & 4.358854E-21, 1.954560E-21, 8.462490E-22, 3.649802E-22, & 4.770221E-23, 3.875286E-25, 0.000000E+00 / DATA ( CS_REF( IHNO3, 1, IWLR ), IWLR = 1, 7 ) / & 4.358854E-21, 1.954560E-21, 8.462490E-22, 3.649802E-22, & 4.770221E-23, 3.875286E-25, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IHNO3, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.142428E-01, 0.000000E+00 / DATA ( QY_REF( IHNO3, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.142428E-01, 0.000000E+00 / DATA ( QY_REF( IHNO3, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.142428E-01, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IHNO3, 1, IWLR ), IWLR = 1, 7 ) / & 4.358854E-21, 1.954560E-21, 8.462490E-22, 3.649802E-22, & 4.770221E-23, 3.875253E-25, 0.000000E+00 / DATA ( ECS_REF( IHNO3, 1, IWLR ), IWLR = 1, 7 ) / & 4.358854E-21, 1.954560E-21, 8.462490E-22, 3.649802E-22, & 4.770221E-23, 3.875253E-25, 0.000000E+00 / DATA ( ECS_REF( IHNO3, 1, IWLR ), IWLR = 1, 7 ) / & 4.358854E-21, 1.954560E-21, 8.462490E-22, 3.649802E-22, & 4.770221E-23, 3.875253E-25, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IHNO3, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999914E-01, 0.000000E+00 / DATA ( EQY_REF( IHNO3, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999914E-01, 0.000000E+00 / DATA ( EQY_REF( IHNO3, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999914E-01, 0.000000E+00 / C...HNO4-06 C.. HO2NO2 + HV = PRODUCTS C.. NASA (2006) C.. C... reference temperatures (K) DATA ( TEMP_REF( ITT, IHNO4-06 ), ITT=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IHNO4-06, 1, IWLR ), IWLR = 1, 7 ) / & 2.685093E-20, 1.173546E-20, 5.713464E-21, 3.110148E-21, & 8.269189E-22, 2.119348E-23, 0.000000E+00 / DATA ( CS_REF( IHNO4-06, 1, IWLR ), IWLR = 1, 7 ) / & 2.685093E-20, 1.173546E-20, 5.713464E-21, 3.110148E-21, & 8.269189E-22, 2.119348E-23, 0.000000E+00 / DATA ( CS_REF( IHNO4-06, 1, IWLR ), IWLR = 1, 7 ) / & 2.685093E-20, 1.173546E-20, 5.713464E-21, 3.110148E-21, & 8.269189E-22, 2.119348E-23, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IHNO4-06, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.684180E-01, 0.000000E+00 / DATA ( QY_REF( IHNO4-06, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.684180E-01, 0.000000E+00 / DATA ( QY_REF( IHNO4-06, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.684180E-01, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IHNO4-06, 1, IWLR ), IWLR = 1, 7 ) / & 2.685093E-20, 1.173546E-20, 5.713464E-21, 3.110148E-21, & 8.269189E-22, 2.119341E-23, 0.000000E+00 / DATA ( ECS_REF( IHNO4-06, 1, IWLR ), IWLR = 1, 7 ) / & 2.685093E-20, 1.173546E-20, 5.713464E-21, 3.110148E-21, & 8.269189E-22, 2.119341E-23, 0.000000E+00 / DATA ( ECS_REF( IHNO4-06, 1, IWLR ), IWLR = 1, 7 ) / & 2.685093E-20, 1.173546E-20, 5.713464E-21, 3.110148E-21, & 8.269189E-22, 2.119341E-23, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IHNO4-06, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999966E-01, 0.000000E+00 / DATA ( EQY_REF( IHNO4-06, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999966E-01, 0.000000E+00 / DATA ( EQY_REF( IHNO4-06, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999966E-01, 0.000000E+00 / C...H2O2 C.. H2O2 + HV = 2 OH C.. IUPAC (1997) Recommended. C... reference temperatures (K) DATA ( TEMP_REF( ITT, IH2O2 ), ITT=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IH2O2, 1, IWLR ), IWLR = 1, 7 ) / & 9.353273E-21, 5.771023E-21, 3.923019E-21, 2.721922E-21, & 1.138124E-21, 3.606317E-23, 0.000000E+00 / DATA ( CS_REF( IH2O2, 1, IWLR ), IWLR = 1, 7 ) / & 9.353273E-21, 5.771023E-21, 3.923019E-21, 2.721922E-21, & 1.138124E-21, 3.606317E-23, 0.000000E+00 / DATA ( CS_REF( IH2O2, 1, IWLR ), IWLR = 1, 7 ) / & 9.353273E-21, 5.771023E-21, 3.923019E-21, 2.721922E-21, & 1.138124E-21, 3.606317E-23, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IH2O2, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.142428E-01, 0.000000E+00 / DATA ( QY_REF( IH2O2, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.142428E-01, 0.000000E+00 / DATA ( QY_REF( IH2O2, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.142428E-01, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IH2O2, 1, IWLR ), IWLR = 1, 7 ) / & 9.353273E-21, 5.771023E-21, 3.923019E-21, 2.721922E-21, & 1.138124E-21, 3.606284E-23, 0.000000E+00 / DATA ( ECS_REF( IH2O2, 1, IWLR ), IWLR = 1, 7 ) / & 9.353273E-21, 5.771023E-21, 3.923019E-21, 2.721922E-21, & 1.138124E-21, 3.606284E-23, 0.000000E+00 / DATA ( ECS_REF( IH2O2, 1, IWLR ), IWLR = 1, 7 ) / & 9.353273E-21, 5.771023E-21, 3.923019E-21, 2.721922E-21, & 1.138124E-21, 3.606284E-23, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IH2O2, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999907E-01, 0.000000E+00 / DATA ( EQY_REF( IH2O2, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999907E-01, 0.000000E+00 / DATA ( EQY_REF( IH2O2, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999907E-01, 0.000000E+00 / C...NO2EX C.. NO2 + HV = NO2* C.. From NASA (2006), for 294 K. C.. Absorption cross sections are averages for wavelength intervals given. C.. Data alligned to smallest wavelength intervals for abs. coefs and qy's. C.. C... reference temperatures (K) DATA ( TEMP_REF( ITT, INO2EX ), ITT=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( INO2EX, 1, IWLR ), IWLR = 1, 7 ) / & 1.075247E-19, 1.484195E-19, 1.882053E-19, 2.274756E-19, & 3.449308E-19, 5.754674E-19, 1.067281E-19 / DATA ( CS_REF( INO2EX, 1, IWLR ), IWLR = 1, 7 ) / & 1.075247E-19, 1.484195E-19, 1.882053E-19, 2.274756E-19, & 3.449308E-19, 5.754674E-19, 1.067281E-19 / DATA ( CS_REF( INO2EX, 1, IWLR ), IWLR = 1, 7 ) / & 1.075247E-19, 1.484195E-19, 1.882053E-19, 2.274756E-19, & 3.449308E-19, 5.754674E-19, 1.067281E-19 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( INO2EX, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 1.825233E-01, 5.823866E-01 / DATA ( QY_REF( INO2EX, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 1.825233E-01, 5.823866E-01 / DATA ( QY_REF( INO2EX, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 1.825233E-01, 5.823866E-01 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( INO2EX, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 1.110292E-19, 1.062805E-19 / DATA ( ECS_REF( INO2EX, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 1.110292E-19, 1.062805E-19 / DATA ( ECS_REF( INO2EX, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 1.110292E-19, 1.062805E-19 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( INO2EX, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 1.929374E-01, 9.958060E-01 / DATA ( EQY_REF( INO2EX, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 1.929374E-01, 9.958060E-01 / DATA ( EQY_REF( INO2EX, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 1.929374E-01, 9.958060E-01 / C...PAN C.. PAN + HV = #.6 {MECO3 + NO2} + #.4 {MEO2 + CO2 + NO3} C.. IUPAC Data Sheet P21.updated: 12/19/05 C.. Reaction reflects recommended quantum yields at 308 nm C.. C... reference temperatures (K) DATA ( TEMP_REF( ITT, IPAN ), ITT=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IPAN, 1, IWLR ), IWLR = 1, 7 ) / & 3.530304E-21, 1.417995E-21, 6.732257E-22, 3.640895E-22, & 9.144017E-23, 1.597525E-24, 0.000000E+00 / DATA ( CS_REF( IPAN, 1, IWLR ), IWLR = 1, 7 ) / & 3.530304E-21, 1.417995E-21, 6.732257E-22, 3.640895E-22, & 9.144017E-23, 1.597525E-24, 0.000000E+00 / DATA ( CS_REF( IPAN, 1, IWLR ), IWLR = 1, 7 ) / & 3.530304E-21, 1.417995E-21, 6.732257E-22, 3.640895E-22, & 9.144017E-23, 1.597525E-24, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IPAN, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.009612E-01, 0.000000E+00 / DATA ( QY_REF( IPAN, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.009612E-01, 0.000000E+00 / DATA ( QY_REF( IPAN, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.009612E-01, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IPAN, 1, IWLR ), IWLR = 1, 7 ) / & 3.530304E-21, 1.417995E-21, 6.732257E-22, 3.640895E-22, & 9.144017E-23, 1.597507E-24, 0.000000E+00 / DATA ( ECS_REF( IPAN, 1, IWLR ), IWLR = 1, 7 ) / & 3.530304E-21, 1.417995E-21, 6.732257E-22, 3.640895E-22, & 9.144017E-23, 1.597507E-24, 0.000000E+00 / DATA ( ECS_REF( IPAN, 1, IWLR ), IWLR = 1, 7 ) / & 3.530304E-21, 1.417995E-21, 6.732257E-22, 3.640895E-22, & 9.144017E-23, 1.597507E-24, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IPAN, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999891E-01, 0.000000E+00 / DATA ( EQY_REF( IPAN, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999891E-01, 0.000000E+00 / DATA ( EQY_REF( IPAN, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999891E-01, 0.000000E+00 / C...HCHOR-06 C.. HCHO + HV = HCO. + H. C.. IUPAC Subcommittee on Gas Kinetic Data Evaluation Data Sheet P1 C.. This datasheet updated: 16th May 2002. C.. Website: http://www.iupac-kinetic.ch.cam.ac.uk/. C.. IUPAC recommendations used for both absorption cross sections and quantum yield C.. C... reference temperatures (K) DATA ( TEMP_REF( ITT, IHCHOR-06 ), ITT=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IHCHOR-06, 1, IWLR ), IWLR = 1, 7 ) / & 3.170091E-20, 3.298359E-20, 1.534647E-20, 3.259232E-20, & 1.516326E-20, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( IHCHOR-06, 1, IWLR ), IWLR = 1, 7 ) / & 3.170091E-20, 3.298359E-20, 1.534647E-20, 3.259232E-20, & 1.516326E-20, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( IHCHOR-06, 1, IWLR ), IWLR = 1, 7 ) / & 3.170091E-20, 3.298359E-20, 1.534647E-20, 3.259232E-20, & 1.516326E-20, 0.000000E+00, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IHCHOR-06, 1, IWLR ), IWLR = 1, 7 ) / & 6.851841E-01, 7.182517E-01, 7.159068E-01, 6.839368E-01, & 2.830291E-01, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( IHCHOR-06, 1, IWLR ), IWLR = 1, 7 ) / & 6.851841E-01, 7.182517E-01, 7.159068E-01, 6.839368E-01, & 2.830291E-01, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( IHCHOR-06, 1, IWLR ), IWLR = 1, 7 ) / & 6.851841E-01, 7.182517E-01, 7.159068E-01, 6.839368E-01, & 2.830291E-01, 0.000000E+00, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IHCHOR-06, 1, IWLR ), IWLR = 1, 7 ) / & 2.165855E-20, 2.395182E-20, 1.104784E-20, 2.236374E-20, & 5.554417E-21, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( IHCHOR-06, 1, IWLR ), IWLR = 1, 7 ) / & 2.165855E-20, 2.395182E-20, 1.104784E-20, 2.236374E-20, & 5.554417E-21, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( IHCHOR-06, 1, IWLR ), IWLR = 1, 7 ) / & 2.165855E-20, 2.395182E-20, 1.104784E-20, 2.236374E-20, & 5.554417E-21, 0.000000E+00, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IHCHOR-06, 1, IWLR ), IWLR = 1, 7 ) / & 6.832153E-01, 7.261736E-01, 7.198943E-01, 6.861660E-01, & 3.663075E-01, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( IHCHOR-06, 1, IWLR ), IWLR = 1, 7 ) / & 6.832153E-01, 7.261736E-01, 7.198943E-01, 6.861660E-01, & 3.663075E-01, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( IHCHOR-06, 1, IWLR ), IWLR = 1, 7 ) / & 6.832153E-01, 7.261736E-01, 7.198943E-01, 6.861660E-01, & 3.663075E-01, 0.000000E+00, 0.000000E+00 / C...HCHOM-06 C.. HCHO + HV = H2 + CO C.. IUPAC Subcommittee on Gas Kinetic Data Evaluation Data Sheet P1 C.. This datasheet updated: 16th May 2002. C.. Website: http://www.iupac-kinetic.ch.cam.ac.uk/. C.. IUPAC recommendations used for both absorption cross sections and quantum yield C.. Quantum yields for wl < 0.360 interpolated. C.. C... reference temperatures (K) DATA ( TEMP_REF( ITT, IHCHOM-06 ), ITT=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IHCHOM-06, 1, IWLR ), IWLR = 1, 7 ) / & 3.170091E-20, 3.298359E-20, 1.534647E-20, 3.259232E-20, & 1.806812E-20, 7.417168E-22, 0.000000E+00 / DATA ( CS_REF( IHCHOM-06, 1, IWLR ), IWLR = 1, 7 ) / & 3.170091E-20, 3.298359E-20, 1.534647E-20, 3.259232E-20, & 1.806812E-20, 7.417168E-22, 0.000000E+00 / DATA ( CS_REF( IHCHOM-06, 1, IWLR ), IWLR = 1, 7 ) / & 3.170091E-20, 3.298359E-20, 1.534647E-20, 3.259232E-20, & 1.806812E-20, 7.417168E-22, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IHCHOM-06, 1, IWLR ), IWLR = 1, 7 ) / & 2.954920E-01, 2.804146E-01, 2.842617E-01, 3.165715E-01, & 4.879647E-01, 3.037111E-02, 0.000000E+00 / DATA ( QY_REF( IHCHOM-06, 1, IWLR ), IWLR = 1, 7 ) / & 2.954920E-01, 2.804146E-01, 2.842617E-01, 3.165715E-01, & 4.879647E-01, 3.037111E-02, 0.000000E+00 / DATA ( QY_REF( IHCHOM-06, 1, IWLR ), IWLR = 1, 7 ) / & 2.954920E-01, 2.804146E-01, 2.842617E-01, 3.165715E-01, & 4.879647E-01, 3.037111E-02, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IHCHOM-06, 1, IWLR ), IWLR = 1, 7 ) / & 9.456174E-21, 8.997082E-21, 4.301534E-21, 1.024255E-20, & 8.938719E-21, 1.182693E-22, 0.000000E+00 / DATA ( ECS_REF( IHCHOM-06, 1, IWLR ), IWLR = 1, 7 ) / & 9.456174E-21, 8.997082E-21, 4.301534E-21, 1.024255E-20, & 8.938719E-21, 1.182693E-22, 0.000000E+00 / DATA ( ECS_REF( IHCHOM-06, 1, IWLR ), IWLR = 1, 7 ) / & 9.456174E-21, 8.997082E-21, 4.301534E-21, 1.024255E-20, & 8.938719E-21, 1.182693E-22, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IHCHOM-06, 1, IWLR ), IWLR = 1, 7 ) / & 2.982934E-01, 2.727745E-01, 2.802947E-01, 3.142626E-01, & 4.947232E-01, 1.594535E-01, 0.000000E+00 / DATA ( EQY_REF( IHCHOM-06, 1, IWLR ), IWLR = 1, 7 ) / & 2.982934E-01, 2.727745E-01, 2.802947E-01, 3.142626E-01, & 4.947232E-01, 1.594535E-01, 0.000000E+00 / DATA ( EQY_REF( IHCHOM-06, 1, IWLR ), IWLR = 1, 7 ) / & 2.982934E-01, 2.727745E-01, 2.802947E-01, 3.142626E-01, & 4.947232E-01, 1.594535E-01, 0.000000E+00 / C...CCHO_R C.. CCHO + HV = CH3 + CHO C.. IUPAC (1997) C... reference temperatures (K) DATA ( TEMP_REF( ITT, ICCHO_R ), ITT=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( ICCHO_R, 1, IWLR ), IWLR = 1, 7 ) / & 4.432585E-20, 3.717942E-20, 2.933100E-20, 2.104718E-20, & 3.715620E-21, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( ICCHO_R, 1, IWLR ), IWLR = 1, 7 ) / & 4.432585E-20, 3.717942E-20, 2.933100E-20, 2.104718E-20, & 3.715620E-21, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( ICCHO_R, 1, IWLR ), IWLR = 1, 7 ) / & 4.432585E-20, 3.717942E-20, 2.933100E-20, 2.104718E-20, & 3.715620E-21, 0.000000E+00, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( ICCHO_R, 1, IWLR ), IWLR = 1, 7 ) / & 4.839485E-01, 3.902035E-01, 2.845210E-01, 1.538490E-01, & 1.409418E-02, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( ICCHO_R, 1, IWLR ), IWLR = 1, 7 ) / & 4.839485E-01, 3.902035E-01, 2.845210E-01, 1.538490E-01, & 1.409418E-02, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( ICCHO_R, 1, IWLR ), IWLR = 1, 7 ) / & 4.839485E-01, 3.902035E-01, 2.845210E-01, 1.538490E-01, & 1.409418E-02, 0.000000E+00, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( ICCHO_R, 1, IWLR ), IWLR = 1, 7 ) / & 2.147745E-20, 1.461039E-20, 8.426933E-21, 3.330087E-21, & 1.731238E-22, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( ICCHO_R, 1, IWLR ), IWLR = 1, 7 ) / & 2.147745E-20, 1.461039E-20, 8.426933E-21, 3.330087E-21, & 1.731238E-22, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( ICCHO_R, 1, IWLR ), IWLR = 1, 7 ) / & 2.147745E-20, 1.461039E-20, 8.426933E-21, 3.330087E-21, & 1.731238E-22, 0.000000E+00, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( ICCHO_R, 1, IWLR ), IWLR = 1, 7 ) / & 4.845356E-01, 3.929698E-01, 2.873047E-01, 1.582202E-01, & 4.659352E-02, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( ICCHO_R, 1, IWLR ), IWLR = 1, 7 ) / & 4.845356E-01, 3.929698E-01, 2.873047E-01, 1.582202E-01, & 4.659352E-02, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( ICCHO_R, 1, IWLR ), IWLR = 1, 7 ) / & 4.845356E-01, 3.929698E-01, 2.873047E-01, 1.582202E-01, & 4.659352E-02, 0.000000E+00, 0.000000E+00 / C...C2CHO C.. C2CHO + HV = C2H5. + CHO. C.. IUPAC (1997) C... reference temperatures (K) DATA ( TEMP_REF( ITT, IC2CHO ), ITT=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IC2CHO, 1, IWLR ), IWLR = 1, 7 ) / & 3.113497E-20, 4.634685E-20, 3.579653E-20, 2.441747E-20, & 5.808840E-21, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( IC2CHO, 1, IWLR ), IWLR = 1, 7 ) / & 3.113497E-20, 4.634685E-20, 3.579653E-20, 2.441747E-20, & 5.808840E-21, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( IC2CHO, 1, IWLR ), IWLR = 1, 7 ) / & 3.113497E-20, 4.634685E-20, 3.579653E-20, 2.441747E-20, & 5.808840E-21, 0.000000E+00, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IC2CHO, 1, IWLR ), IWLR = 1, 7 ) / & 5.112440E-01, 7.954015E-01, 5.951666E-01, 4.312301E-01, & 1.520067E-01, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( IC2CHO, 1, IWLR ), IWLR = 1, 7 ) / & 5.112440E-01, 7.954015E-01, 5.951666E-01, 4.312301E-01, & 1.520067E-01, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( IC2CHO, 1, IWLR ), IWLR = 1, 7 ) / & 5.112440E-01, 7.954015E-01, 5.951666E-01, 4.312301E-01, & 1.520067E-01, 0.000000E+00, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IC2CHO, 1, IWLR ), IWLR = 1, 7 ) / & 2.730259E-20, 3.713793E-20, 2.133678E-20, 1.077363E-20, & 1.383935E-21, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( IC2CHO, 1, IWLR ), IWLR = 1, 7 ) / & 2.730259E-20, 3.713793E-20, 2.133678E-20, 1.077363E-20, & 1.383935E-21, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( IC2CHO, 1, IWLR ), IWLR = 1, 7 ) / & 2.730259E-20, 3.713793E-20, 2.133678E-20, 1.077363E-20, & 1.383935E-21, 0.000000E+00, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IC2CHO, 1, IWLR ), IWLR = 1, 7 ) / & 8.769110E-01, 8.013043E-01, 5.960574E-01, 4.412262E-01, & 2.382463E-01, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( IC2CHO, 1, IWLR ), IWLR = 1, 7 ) / & 8.769110E-01, 8.013043E-01, 5.960574E-01, 4.412262E-01, & 2.382463E-01, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( IC2CHO, 1, IWLR ), IWLR = 1, 7 ) / & 8.769110E-01, 8.013043E-01, 5.960574E-01, 4.412262E-01, & 2.382463E-01, 0.000000E+00, 0.000000E+00 / C...ACET-06 C.. CH3-CO-CH3 + HV = Radical products C.. IUPAC Subcommittee on Gas Kinetic Data Evaluation Data Sheet P7 C.. This datasheet updated: 19th December 2005. C.. Website: http://www.iupac-kinetic.ch.cam.ac.uk/. C.. IUPAC recommendations used for both absorption cross sections and quantum yield C.. Cross sections and quantum yields are for 298K only. C.. Uncertain whether the cross sections are calculated correctly from the complex C.. C... reference temperatures (K) DATA ( TEMP_REF( ITT, IACET-06 ), ITT=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IACET-06, 1, IWLR ), IWLR = 1, 7 ) / & 3.464056E-20, 2.276632E-20, 1.367790E-20, 7.373154E-21, & 8.850663E-22, 8.179758E-25, 0.000000E+00 / DATA ( CS_REF( IACET-06, 1, IWLR ), IWLR = 1, 7 ) / & 3.464056E-20, 2.276632E-20, 1.367790E-20, 7.373154E-21, & 8.850663E-22, 8.179758E-25, 0.000000E+00 / DATA ( CS_REF( IACET-06, 1, IWLR ), IWLR = 1, 7 ) / & 3.464056E-20, 2.276632E-20, 1.367790E-20, 7.373154E-21, & 8.850663E-22, 8.179758E-25, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IACET-06, 1, IWLR ), IWLR = 1, 7 ) / & 3.457705E-01, 2.094483E-01, 8.573302E-02, 3.882164E-02, & 9.387449E-03, 1.342109E-04, 0.000000E+00 / DATA ( QY_REF( IACET-06, 1, IWLR ), IWLR = 1, 7 ) / & 3.457705E-01, 2.094483E-01, 8.573302E-02, 3.882164E-02, & 9.387449E-03, 1.342109E-04, 0.000000E+00 / DATA ( QY_REF( IACET-06, 1, IWLR ), IWLR = 1, 7 ) / & 3.457705E-01, 2.094483E-01, 8.573302E-02, 3.882164E-02, & 9.387449E-03, 1.342109E-04, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IACET-06, 1, IWLR ), IWLR = 1, 7 ) / & 1.207276E-20, 4.950919E-21, 1.203542E-21, 3.067027E-22, & 1.419293E-23, 2.303094E-27, 0.000000E+00 / DATA ( ECS_REF( IACET-06, 1, IWLR ), IWLR = 1, 7 ) / & 1.207276E-20, 4.950919E-21, 1.203542E-21, 3.067027E-22, & 1.419293E-23, 2.303094E-27, 0.000000E+00 / DATA ( ECS_REF( IACET-06, 1, IWLR ), IWLR = 1, 7 ) / & 1.207276E-20, 4.950919E-21, 1.203542E-21, 3.067027E-22, & 1.419293E-23, 2.303094E-27, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IACET-06, 1, IWLR ), IWLR = 1, 7 ) / & 3.485150E-01, 2.174668E-01, 8.799174E-02, 4.159722E-02, & 1.603600E-02, 2.815602E-03, 0.000000E+00 / DATA ( EQY_REF( IACET-06, 1, IWLR ), IWLR = 1, 7 ) / & 3.485150E-01, 2.174668E-01, 8.799174E-02, 4.159722E-02, & 1.603600E-02, 2.815602E-03, 0.000000E+00 / DATA ( EQY_REF( IACET-06, 1, IWLR ), IWLR = 1, 7 ) / & 3.485150E-01, 2.174668E-01, 8.799174E-02, 4.159722E-02, & 1.603600E-02, 2.815602E-03, 0.000000E+00 / C...MEK-06 C.. MEK absorption cross sections C.. IUPAC Subcommittee on Gas Kinetic Data Evaluation Data Sheet P8 C.. This datasheet updated: 5th December 2005. C.. Website: http://www.iupac-kinetic.ch.cam.ac.uk/. C.. Note that recommended quantum yield is 0.34 and SAPRC07T sets C.. value to 0.175 in mechanism definition file C.. C... reference temperatures (K) DATA ( TEMP_REF( ITT, IMEK-06 ), ITT=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IMEK-06, 1, IWLR ), IWLR = 1, 7 ) / & 4.166522E-20, 2.686873E-20, 1.573254E-20, 7.723394E-21, & 8.067071E-22, 1.610022E-25, 0.000000E+00 / DATA ( CS_REF( IMEK-06, 1, IWLR ), IWLR = 1, 7 ) / & 4.166522E-20, 2.686873E-20, 1.573254E-20, 7.723394E-21, & 8.067071E-22, 1.610022E-25, 0.000000E+00 / DATA ( CS_REF( IMEK-06, 1, IWLR ), IWLR = 1, 7 ) / & 4.166522E-20, 2.686873E-20, 1.573254E-20, 7.723394E-21, & 8.067071E-22, 1.610022E-25, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IMEK-06, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 2.161979E-02, 0.000000E+00 / DATA ( QY_REF( IMEK-06, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 2.161979E-02, 0.000000E+00 / DATA ( QY_REF( IMEK-06, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 2.161979E-02, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IMEK-06, 1, IWLR ), IWLR = 1, 7 ) / & 4.166522E-20, 2.686873E-20, 1.573254E-20, 7.723394E-21, & 8.067071E-22, 1.609663E-25, 0.000000E+00 / DATA ( ECS_REF( IMEK-06, 1, IWLR ), IWLR = 1, 7 ) / & 4.166522E-20, 2.686873E-20, 1.573254E-20, 7.723394E-21, & 8.067071E-22, 1.609663E-25, 0.000000E+00 / DATA ( ECS_REF( IMEK-06, 1, IWLR ), IWLR = 1, 7 ) / & 4.166522E-20, 2.686873E-20, 1.573254E-20, 7.723394E-21, & 8.067071E-22, 1.609663E-25, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IMEK-06, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.997768E-01, 0.000000E+00 / DATA ( EQY_REF( IMEK-06, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.997768E-01, 0.000000E+00 / DATA ( EQY_REF( IMEK-06, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.997768E-01, 0.000000E+00 / C...COOH C.. CH3OOH + HV = PRODUCTS C.. IUPAC (1997). Also recommend unit quantum yields. C.. wl abs qy C... reference temperatures (K) DATA ( TEMP_REF( ITT, ICOOH ), ITT=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( ICOOH, 1, IWLR ), IWLR = 1, 7 ) / & 5.623467E-21, 3.524637E-21, 2.410332E-21, 1.699590E-21, & 7.230011E-22, 5.395106E-23, 0.000000E+00 / DATA ( CS_REF( ICOOH, 1, IWLR ), IWLR = 1, 7 ) / & 5.623467E-21, 3.524637E-21, 2.410332E-21, 1.699590E-21, & 7.230011E-22, 5.395106E-23, 0.000000E+00 / DATA ( CS_REF( ICOOH, 1, IWLR ), IWLR = 1, 7 ) / & 5.623467E-21, 3.524637E-21, 2.410332E-21, 1.699590E-21, & 7.230011E-22, 5.395106E-23, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( ICOOH, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 3.016710E-01, 0.000000E+00 / DATA ( QY_REF( ICOOH, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 3.016710E-01, 0.000000E+00 / DATA ( QY_REF( ICOOH, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 3.016710E-01, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( ICOOH, 1, IWLR ), IWLR = 1, 7 ) / & 5.623467E-21, 3.524637E-21, 2.410332E-21, 1.699590E-21, & 7.230011E-22, 5.395094E-23, 0.000000E+00 / DATA ( ECS_REF( ICOOH, 1, IWLR ), IWLR = 1, 7 ) / & 5.623467E-21, 3.524637E-21, 2.410332E-21, 1.699590E-21, & 7.230011E-22, 5.395094E-23, 0.000000E+00 / DATA ( ECS_REF( ICOOH, 1, IWLR ), IWLR = 1, 7 ) / & 5.623467E-21, 3.524637E-21, 2.410332E-21, 1.699590E-21, & 7.230011E-22, 5.395094E-23, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( ICOOH, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999977E-01, 0.000000E+00 / DATA ( EQY_REF( ICOOH, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999977E-01, 0.000000E+00 / DATA ( EQY_REF( ICOOH, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999977E-01, 0.000000E+00 / C...GLY-07R C.. HCOCHO + HV = HCO. + HCO. C.. Absorption cross sections from Volkamer, R., P. Spietz, J. Burrows, and C.. U. Platt (2005): "High-resolution absorption cross sections of glyoxal C.. in the UV-vis and IR spectral ranges," J. Photochem. Photobiol. A, 172 C.. 35-46. Quantum yields at wavelengths below 350 nm based on the data of C.. Zhu et al (1996) which are consistent with the data of Langford and C.. Moore (1984). Quantum yields at higher wavelengths assumed to decline C.. expodentially with wavelength at a rate that gives a photolysis rate C.. relative to NO2 consistent with the data of Klotz et al (2000). C.. C... reference temperatures (K) DATA ( TEMP_REF( ITT, IGLY-07R ), ITT=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IGLY-07R, 1, IWLR ), IWLR = 1, 7 ) / & 3.792119E-20, 3.572107E-20, 3.194427E-20, 2.574261E-20, & 1.106790E-20, 2.757140E-20, 1.054196E-20 / DATA ( CS_REF( IGLY-07R, 1, IWLR ), IWLR = 1, 7 ) / & 3.792119E-20, 3.572107E-20, 3.194427E-20, 2.574261E-20, & 1.106790E-20, 2.757140E-20, 1.054196E-20 / DATA ( CS_REF( IGLY-07R, 1, IWLR ), IWLR = 1, 7 ) / & 3.792119E-20, 3.572107E-20, 3.194427E-20, 2.574261E-20, & 1.106790E-20, 2.757140E-20, 1.054196E-20 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IGLY-07R, 1, IWLR ), IWLR = 1, 7 ) / & 3.321564E-01, 3.435688E-01, 3.690098E-01, 4.286591E-01, & 5.846431E-01, 2.414760E-01, 1.331259E-03 / DATA ( QY_REF( IGLY-07R, 1, IWLR ), IWLR = 1, 7 ) / & 3.321564E-01, 3.435688E-01, 3.690098E-01, 4.286591E-01, & 5.846431E-01, 2.414760E-01, 1.331259E-03 / DATA ( QY_REF( IGLY-07R, 1, IWLR ), IWLR = 1, 7 ) / & 3.321564E-01, 3.435688E-01, 3.690098E-01, 4.286591E-01, & 5.846431E-01, 2.414760E-01, 1.331259E-03 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IGLY-07R, 1, IWLR ), IWLR = 1, 7 ) / & 1.259928E-20, 1.226096E-20, 1.179648E-20, 1.092394E-20, & 6.158664E-21, 3.111815E-21, 1.360344E-22 / DATA ( ECS_REF( IGLY-07R, 1, IWLR ), IWLR = 1, 7 ) / & 1.259928E-20, 1.226096E-20, 1.179648E-20, 1.092394E-20, & 6.158664E-21, 3.111815E-21, 1.360344E-22 / DATA ( ECS_REF( IGLY-07R, 1, IWLR ), IWLR = 1, 7 ) / & 1.259928E-20, 1.226096E-20, 1.179648E-20, 1.092394E-20, & 6.158664E-21, 3.111815E-21, 1.360344E-22 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IGLY-07R, 1, IWLR ), IWLR = 1, 7 ) / & 3.322492E-01, 3.432416E-01, 3.692832E-01, 4.243522E-01, & 5.564439E-01, 1.128639E-01, 1.290409E-02 / DATA ( EQY_REF( IGLY-07R, 1, IWLR ), IWLR = 1, 7 ) / & 3.322492E-01, 3.432416E-01, 3.692832E-01, 4.243522E-01, & 5.564439E-01, 1.128639E-01, 1.290409E-02 / DATA ( EQY_REF( IGLY-07R, 1, IWLR ), IWLR = 1, 7 ) / & 3.322492E-01, 3.432416E-01, 3.692832E-01, 4.243522E-01, & 5.564439E-01, 1.128639E-01, 1.290409E-02 / C...GLY-07M C.. HCOCHO + HV = HCHO + H2 C.. Absorption cross sections from Volkamer, R., P. Spietz, J. Burrows, C.. and U. Platt (2005): "High-resolution absorption cross sections of C.. glyoxal in the UV-vis and IR spectral ranges," J. Photochem. Photobiol. C.. A, 172 35-46. Quantum yields at wavelengths below 350 nm derived from C.. those used for the radical forming process assuming total quantum C.. yields of 1. Quantum yields at higher wavelengths assumed to decline C.. expodentially at a rate that gives a 13% formaldehyde yield telative to C.. photodecomposition under the conditions of Plum et al (1983). C.. C... reference temperatures (K) DATA ( TEMP_REF( ITT, IGLY-07M ), ITT=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IGLY-07M, 1, IWLR ), IWLR = 1, 7 ) / & 3.792119E-20, 3.572107E-20, 3.194427E-20, 2.574261E-20, & 1.106790E-20, 2.757140E-20, 3.572529E-21 / DATA ( CS_REF( IGLY-07M, 1, IWLR ), IWLR = 1, 7 ) / & 3.792119E-20, 3.572107E-20, 3.194427E-20, 2.574261E-20, & 1.106790E-20, 2.757140E-20, 3.572529E-21 / DATA ( CS_REF( IGLY-07M, 1, IWLR ), IWLR = 1, 7 ) / & 3.792119E-20, 3.572107E-20, 3.194427E-20, 2.574261E-20, & 1.106790E-20, 2.757140E-20, 3.572529E-21 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IGLY-07M, 1, IWLR ), IWLR = 1, 7 ) / & 6.678436E-01, 6.564312E-01, 6.310091E-01, 5.714539E-01, & 4.154251E-01, 6.007640E-02, 5.018775E-05 / DATA ( QY_REF( IGLY-07M, 1, IWLR ), IWLR = 1, 7 ) / & 6.678436E-01, 6.564312E-01, 6.310091E-01, 5.714539E-01, & 4.154251E-01, 6.007640E-02, 5.018775E-05 / DATA ( QY_REF( IGLY-07M, 1, IWLR ), IWLR = 1, 7 ) / & 6.678436E-01, 6.564312E-01, 6.310091E-01, 5.714539E-01, & 4.154251E-01, 6.007640E-02, 5.018775E-05 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IGLY-07M, 1, IWLR ), IWLR = 1, 7 ) / & 2.532190E-20, 2.346011E-20, 2.014842E-20, 1.482247E-20, & 4.909981E-21, 5.296760E-22, 4.592913E-24 / DATA ( ECS_REF( IGLY-07M, 1, IWLR ), IWLR = 1, 7 ) / & 2.532190E-20, 2.346011E-20, 2.014842E-20, 1.482247E-20, & 4.909981E-21, 5.296760E-22, 4.592913E-24 / DATA ( ECS_REF( IGLY-07M, 1, IWLR ), IWLR = 1, 7 ) / & 2.532190E-20, 2.346011E-20, 2.014842E-20, 1.482247E-20, & 4.909981E-21, 5.296760E-22, 4.592913E-24 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IGLY-07M, 1, IWLR ), IWLR = 1, 7 ) / & 6.677508E-01, 6.567584E-01, 6.307366E-01, 5.757951E-01, & 4.436235E-01, 1.921107E-02, 1.285619E-03 / DATA ( EQY_REF( IGLY-07M, 1, IWLR ), IWLR = 1, 7 ) / & 6.677508E-01, 6.567584E-01, 6.307366E-01, 5.757951E-01, & 4.436235E-01, 1.921107E-02, 1.285619E-03 / DATA ( EQY_REF( IGLY-07M, 1, IWLR ), IWLR = 1, 7 ) / & 6.677508E-01, 6.567584E-01, 6.307366E-01, 5.757951E-01, & 4.436235E-01, 1.921107E-02, 1.285619E-03 / C...MGLY-06 C.. CH3COCHO + HV = CH3CO. + HCO. C.. IUPAC Subcommittee on Gas Kinetic Data Evaluation Data Sheet P6 C.. This datasheet updated: 16th January 2003. C.. Website: http://www.iupac-kinetic.ch.cam.ac.uk/. C.. Quantum yield calculated from the expression given for 472 torr N2. C.. This "pressure" adjustment was made so the calculated photlysis rates C.. for solar conditions would agree with the data of Klotz et al (2000) C.. for the Euphore outdoor chamber. C.. C... reference temperatures (K) DATA ( TEMP_REF( ITT, IMGLY-06 ), ITT=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IMGLY-06, 1, IWLR ), IWLR = 1, 7 ) / & 4.380390E-20, 3.467067E-20, 2.430921E-20, 1.788231E-20, & 6.183693E-21, 3.700272E-20, 7.910760E-21 / DATA ( CS_REF( IMGLY-06, 1, IWLR ), IWLR = 1, 7 ) / & 4.380390E-20, 3.467067E-20, 2.430921E-20, 1.788231E-20, & 6.183693E-21, 3.700272E-20, 7.910760E-21 / DATA ( CS_REF( IMGLY-06, 1, IWLR ), IWLR = 1, 7 ) / & 4.380390E-20, 3.467067E-20, 2.430921E-20, 1.788231E-20, & 6.183693E-21, 3.700272E-20, 7.910760E-21 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IMGLY-06, 1, IWLR ), IWLR = 1, 7 ) / & 9.565113E-01, 9.283987E-01, 8.962741E-01, 8.564201E-01, & 7.065107E-01, 2.411670E-01, 3.970910E-03 / DATA ( QY_REF( IMGLY-06, 1, IWLR ), IWLR = 1, 7 ) / & 9.565113E-01, 9.283987E-01, 8.962741E-01, 8.564201E-01, & 7.065107E-01, 2.411670E-01, 3.970910E-03 / DATA ( QY_REF( IMGLY-06, 1, IWLR ), IWLR = 1, 7 ) / & 9.565113E-01, 9.283987E-01, 8.962741E-01, 8.564201E-01, & 7.065107E-01, 2.411670E-01, 3.970910E-03 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IMGLY-06, 1, IWLR ), IWLR = 1, 7 ) / & 4.191152E-20, 3.221660E-20, 2.180538E-20, 1.534381E-20, & 4.571315E-21, 5.327236E-21, 3.199067E-22 / DATA ( ECS_REF( IMGLY-06, 1, IWLR ), IWLR = 1, 7 ) / & 4.191152E-20, 3.221660E-20, 2.180538E-20, 1.534381E-20, & 4.571315E-21, 5.327236E-21, 3.199067E-22 / DATA ( ECS_REF( IMGLY-06, 1, IWLR ), IWLR = 1, 7 ) / & 4.191152E-20, 3.221660E-20, 2.180538E-20, 1.534381E-20, & 4.571315E-21, 5.327236E-21, 3.199067E-22 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IMGLY-06, 1, IWLR ), IWLR = 1, 7 ) / & 9.567987E-01, 9.292175E-01, 8.970009E-01, 8.580443E-01, & 7.392532E-01, 1.439688E-01, 4.043943E-02 / DATA ( EQY_REF( IMGLY-06, 1, IWLR ), IWLR = 1, 7 ) / & 9.567987E-01, 9.292175E-01, 8.970009E-01, 8.580443E-01, & 7.392532E-01, 1.439688E-01, 4.043943E-02 / DATA ( EQY_REF( IMGLY-06, 1, IWLR ), IWLR = 1, 7 ) / & 9.567987E-01, 9.292175E-01, 8.970009E-01, 8.580443E-01, & 7.392532E-01, 1.439688E-01, 4.043943E-02 / C...BACL-07 C.. CH3COCOCH3 + HV = 2 CH3CO. C.. Absorption cross sections from Plum et al (1983) as used in SAPRC-99 C.. mechanism. Quantum yields calculated using the IUPAC (2005)-recommended C.. expression for the pressure and wavelength-dependence quantum yields for C.. methyl glyoxal, but with the effective presssure adjusted so the C.. photolysis rate, relative to that for NO2, under ambient conditions is C.. consistent with that measured by Klotz et al (2000) in the Euphore outdoor C.. chamber. C.. C... reference temperatures (K) DATA ( TEMP_REF( ITT, IBACL-07 ), ITT=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IBACL-07, 1, IWLR ), IWLR = 1, 7 ) / & 2.658382E-20, 1.613233E-20, 9.254848E-21, 6.071219E-21, & 4.661718E-21, 3.201370E-20, 4.709774E-21 / DATA ( CS_REF( IBACL-07, 1, IWLR ), IWLR = 1, 7 ) / & 2.658382E-20, 1.613233E-20, 9.254848E-21, 6.071219E-21, & 4.661718E-21, 3.201370E-20, 4.709774E-21 / DATA ( CS_REF( IBACL-07, 1, IWLR ), IWLR = 1, 7 ) / & 2.658382E-20, 1.613233E-20, 9.254848E-21, 6.071219E-21, & 4.661718E-21, 3.201370E-20, 4.709774E-21 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IBACL-07, 1, IWLR ), IWLR = 1, 7 ) / & 9.894449E-01, 9.817067E-01, 9.728644E-01, 9.609106E-01, & 9.065533E-01, 4.913755E-01, 9.660122E-03 / DATA ( QY_REF( IBACL-07, 1, IWLR ), IWLR = 1, 7 ) / & 9.894449E-01, 9.817067E-01, 9.728644E-01, 9.609106E-01, & 9.065533E-01, 4.913755E-01, 9.660122E-03 / DATA ( QY_REF( IBACL-07, 1, IWLR ), IWLR = 1, 7 ) / & 9.894449E-01, 9.817067E-01, 9.728644E-01, 9.609106E-01, & 9.065533E-01, 4.913755E-01, 9.660122E-03 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IBACL-07, 1, IWLR ), IWLR = 1, 7 ) / & 2.630799E-20, 1.584374E-20, 9.006381E-21, 5.836851E-21, & 4.210304E-21, 1.187160E-20, 4.906408E-22 / DATA ( ECS_REF( IBACL-07, 1, IWLR ), IWLR = 1, 7 ) / & 2.630799E-20, 1.584374E-20, 9.006381E-21, 5.836851E-21, & 4.210304E-21, 1.187160E-20, 4.906408E-22 / DATA ( ECS_REF( IBACL-07, 1, IWLR ), IWLR = 1, 7 ) / & 2.630799E-20, 1.584374E-20, 9.006381E-21, 5.836851E-21, & 4.210304E-21, 1.187160E-20, 4.906408E-22 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IBACL-07, 1, IWLR ), IWLR = 1, 7 ) / & 9.896241E-01, 9.821110E-01, 9.731528E-01, 9.613968E-01, & 9.031659E-01, 3.708288E-01, 1.041750E-01 / DATA ( EQY_REF( IBACL-07, 1, IWLR ), IWLR = 1, 7 ) / & 9.896241E-01, 9.821110E-01, 9.731528E-01, 9.613968E-01, & 9.031659E-01, 3.708288E-01, 1.041750E-01 / DATA ( EQY_REF( IBACL-07, 1, IWLR ), IWLR = 1, 7 ) / & 9.896241E-01, 9.821110E-01, 9.731528E-01, 9.613968E-01, & 9.031659E-01, 3.708288E-01, 1.041750E-01 / C...BALD-06 C.. Benzaldehyde absorption cross sections recommended by Calvert et al (2002) C.. From Lang (1961-1971) in hexane solution C.. C.. Note that recommended quantum ranges from 0,14 to 0,4 and SAPRC07T sets C.. value to 0.060 in mechanism definition file C... reference temperatures (K) DATA ( TEMP_REF( ITT, IBALD-06 ), ITT=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IBALD-06, 1, IWLR ), IWLR = 1, 7 ) / & 4.452234E-19, 7.297681E-20, 7.090584E-20, 8.592445E-20, & 9.197928E-20, 1.679406E-20, 0.000000E+00 / DATA ( CS_REF( IBALD-06, 1, IWLR ), IWLR = 1, 7 ) / & 4.452234E-19, 7.297681E-20, 7.090584E-20, 8.592445E-20, & 9.197928E-20, 1.679406E-20, 0.000000E+00 / DATA ( CS_REF( IBALD-06, 1, IWLR ), IWLR = 1, 7 ) / & 4.452234E-19, 7.297681E-20, 7.090584E-20, 8.592445E-20, & 9.197928E-20, 1.679406E-20, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IBALD-06, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 4.275655E-01, 0.000000E+00 / DATA ( QY_REF( IBALD-06, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 4.275655E-01, 0.000000E+00 / DATA ( QY_REF( IBALD-06, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 4.275655E-01, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IBALD-06, 1, IWLR ), IWLR = 1, 7 ) / & 4.452234E-19, 7.297681E-20, 7.090584E-20, 8.592445E-20, & 9.197928E-20, 1.679405E-20, 0.000000E+00 / DATA ( ECS_REF( IBALD-06, 1, IWLR ), IWLR = 1, 7 ) / & 4.452234E-19, 7.297681E-20, 7.090584E-20, 8.592445E-20, & 9.197928E-20, 1.679405E-20, 0.000000E+00 / DATA ( ECS_REF( IBALD-06, 1, IWLR ), IWLR = 1, 7 ) / & 4.452234E-19, 7.297681E-20, 7.090584E-20, 8.592445E-20, & 9.197928E-20, 1.679405E-20, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IBALD-06, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999992E-01, 0.000000E+00 / DATA ( EQY_REF( IBALD-06, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999992E-01, 0.000000E+00 / DATA ( EQY_REF( IBALD-06, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999992E-01, 0.000000E+00 / C...AFG1 C.. Photolysis of lumped photoreactive aromatic unsaturated dicarbonyl product. C.. Based on 31.6% BUTEDIAL and 68.4% 4OX2PEAL with QY(BUTEDIAL) = 0.723 and C.. QY(4OX2PEAL) = 1.000 C.. From h:\mech\saprc06\phf.xls, "AFG1" sheet and based on C.. h:\mech\saprc06\aroprods.xls C.. C... reference temperatures (K) DATA ( TEMP_REF( ITT, IAFG1 ), ITT=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IAFG1, 1, IWLR ), IWLR = 1, 7 ) / & 1.731772E-18, 1.412651E-18, 1.107261E-18, 8.915006E-19, & 5.026286E-19, 1.273167E-19, 1.232365E-21 / DATA ( CS_REF( IAFG1, 1, IWLR ), IWLR = 1, 7 ) / & 1.731772E-18, 1.412651E-18, 1.107261E-18, 8.915006E-19, & 5.026286E-19, 1.273167E-19, 1.232365E-21 / DATA ( CS_REF( IAFG1, 1, IWLR ), IWLR = 1, 7 ) / & 1.731772E-18, 1.412651E-18, 1.107261E-18, 8.915006E-19, & 5.026286E-19, 1.273167E-19, 1.232365E-21 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IAFG1, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 1.135570E-01 / DATA ( QY_REF( IAFG1, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 1.135570E-01 / DATA ( QY_REF( IAFG1, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 1.135570E-01 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IAFG1, 1, IWLR ), IWLR = 1, 7 ) / & 1.731772E-18, 1.412651E-18, 1.107261E-18, 8.915006E-19, & 5.026286E-19, 1.273167E-19, 1.232365E-21 / DATA ( ECS_REF( IAFG1, 1, IWLR ), IWLR = 1, 7 ) / & 1.731772E-18, 1.412651E-18, 1.107261E-18, 8.915006E-19, & 5.026286E-19, 1.273167E-19, 1.232365E-21 / DATA ( ECS_REF( IAFG1, 1, IWLR ), IWLR = 1, 7 ) / & 1.731772E-18, 1.412651E-18, 1.107261E-18, 8.915006E-19, & 5.026286E-19, 1.273167E-19, 1.232365E-21 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IAFG1, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 9.999999E-01 / DATA ( EQY_REF( IAFG1, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 9.999999E-01 / DATA ( EQY_REF( IAFG1, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 9.999999E-01 / C...MACR-06 C.. Methacrolein total photolysis C.. Absorption cross sections from IUPAC Subcommittee on Gas Kinetic Data Evaluatio C.. Website: http://www.iupac-kinetic.ch.cam.ac.uk/. This datasheet updated: 16th M C.. The quantum yields were derived using the pressure and wavelength-dependent C.. expression given by IUPAC (2005) for MVK, with the total pressure adjusted so C.. that the radical forming photolysis rates for the chamber experiments are the C.. same as those that fit the chamber data. C.. C... reference temperatures (K) DATA ( TEMP_REF( ITT, IMACR-06 ), ITT=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IMACR-06, 1, IWLR ), IWLR = 1, 7 ) / & 2.639069E-20, 3.936243E-20, 4.989643E-20, 5.926217E-20, & 6.528435E-20, 1.326859E-20, 0.000000E+00 / DATA ( CS_REF( IMACR-06, 1, IWLR ), IWLR = 1, 7 ) / & 2.639069E-20, 3.936243E-20, 4.989643E-20, 5.926217E-20, & 6.528435E-20, 1.326859E-20, 0.000000E+00 / DATA ( CS_REF( IMACR-06, 1, IWLR ), IWLR = 1, 7 ) / & 2.639069E-20, 3.936243E-20, 4.989643E-20, 5.926217E-20, & 6.528435E-20, 1.326859E-20, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IMACR-06, 1, IWLR ), IWLR = 1, 7 ) / & 4.901070E-02, 3.073936E-02, 2.101928E-02, 1.479159E-02, & 6.251543E-03, 5.827899E-04, 0.000000E+00 / DATA ( QY_REF( IMACR-06, 1, IWLR ), IWLR = 1, 7 ) / & 4.901070E-02, 3.073936E-02, 2.101928E-02, 1.479159E-02, & 6.251543E-03, 5.827899E-04, 0.000000E+00 / DATA ( QY_REF( IMACR-06, 1, IWLR ), IWLR = 1, 7 ) / & 4.901070E-02, 3.073936E-02, 2.101928E-02, 1.479159E-02, & 6.251543E-03, 5.827899E-04, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IMACR-06, 1, IWLR ), IWLR = 1, 7 ) / & 1.276398E-21, 1.192333E-21, 1.045257E-21, 8.708165E-22, & 4.101440E-22, 2.057185E-23, 0.000000E+00 / DATA ( ECS_REF( IMACR-06, 1, IWLR ), IWLR = 1, 7 ) / & 1.276398E-21, 1.192333E-21, 1.045257E-21, 8.708165E-22, & 4.101440E-22, 2.057185E-23, 0.000000E+00 / DATA ( ECS_REF( IMACR-06, 1, IWLR ), IWLR = 1, 7 ) / & 1.276398E-21, 1.192333E-21, 1.045257E-21, 8.708165E-22, & 4.101440E-22, 2.057185E-23, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IMACR-06, 1, IWLR ), IWLR = 1, 7 ) / & 4.836546E-02, 3.029115E-02, 2.094852E-02, 1.469431E-02, & 6.282425E-03, 1.550417E-03, 0.000000E+00 / DATA ( EQY_REF( IMACR-06, 1, IWLR ), IWLR = 1, 7 ) / & 4.836546E-02, 3.029115E-02, 2.094852E-02, 1.469431E-02, & 6.282425E-03, 1.550417E-03, 0.000000E+00 / DATA ( EQY_REF( IMACR-06, 1, IWLR ), IWLR = 1, 7 ) / & 4.836546E-02, 3.029115E-02, 2.094852E-02, 1.469431E-02, & 6.282425E-03, 1.550417E-03, 0.000000E+00 / C...MVK-06 C.. MVK total photolysis C.. IUPAC Subcommittee on Gas Kinetic Data Evaluation Data Sheet P10 C.. Website: http://www.iupac-kinetic.ch.cam.ac.uk/ C.. This datasheet updated: 9th August 2002. C.. Decline in absorption cross sections with wavelength above 395 nm estimated by C.. linear interpolation. C.. Quantum yields for all photodecomposition processes. IUPAC recommends ~60% for C.. propene formation, rest radical forming routes. C.. Quantum yields calculated for 1 atm overpredicts photolysis rates for chamber C.. experiments that gives best fits to data. Effective pressure increased to 5 atm C.. to give overall quantum yields that are consistent with modeling chamber data. C.. C... reference temperatures (K) DATA ( TEMP_REF( ITT, IMVK-06 ), ITT=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IMVK-06, 1, IWLR ), IWLR = 1, 7 ) / & 3.041510E-20, 4.373023E-20, 5.436502E-20, 6.318696E-20, & 6.828636E-20, 8.068906E-21, 0.000000E+00 / DATA ( CS_REF( IMVK-06, 1, IWLR ), IWLR = 1, 7 ) / & 3.041510E-20, 4.373023E-20, 5.436502E-20, 6.318696E-20, & 6.828636E-20, 8.068906E-21, 0.000000E+00 / DATA ( CS_REF( IMVK-06, 1, IWLR ), IWLR = 1, 7 ) / & 3.041510E-20, 4.373023E-20, 5.436502E-20, 6.318696E-20, & 6.828636E-20, 8.068906E-21, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IMVK-06, 1, IWLR ), IWLR = 1, 7 ) / & 1.750364E-02, 1.113042E-02, 7.578346E-03, 5.286950E-03, & 2.238235E-03, 1.619938E-04, 0.000000E+00 / DATA ( QY_REF( IMVK-06, 1, IWLR ), IWLR = 1, 7 ) / & 1.750364E-02, 1.113042E-02, 7.578346E-03, 5.286950E-03, & 2.238235E-03, 1.619938E-04, 0.000000E+00 / DATA ( QY_REF( IMVK-06, 1, IWLR ), IWLR = 1, 7 ) / & 1.750364E-02, 1.113042E-02, 7.578346E-03, 5.286950E-03, & 2.238235E-03, 1.619938E-04, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IMVK-06, 1, IWLR ), IWLR = 1, 7 ) / & 5.264576E-22, 4.799989E-22, 4.109027E-22, 3.323400E-22, & 1.546971E-22, 7.827994E-24, 0.000000E+00 / DATA ( ECS_REF( IMVK-06, 1, IWLR ), IWLR = 1, 7 ) / & 5.264576E-22, 4.799989E-22, 4.109027E-22, 3.323400E-22, & 1.546971E-22, 7.827994E-24, 0.000000E+00 / DATA ( ECS_REF( IMVK-06, 1, IWLR ), IWLR = 1, 7 ) / & 5.264576E-22, 4.799989E-22, 4.109027E-22, 3.323400E-22, & 1.546971E-22, 7.827994E-24, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IMVK-06, 1, IWLR ), IWLR = 1, 7 ) / & 1.730908E-02, 1.097636E-02, 7.558218E-03, 5.259628E-03, & 2.265417E-03, 9.701432E-04, 0.000000E+00 / DATA ( EQY_REF( IMVK-06, 1, IWLR ), IWLR = 1, 7 ) / & 1.730908E-02, 1.097636E-02, 7.558218E-03, 5.259628E-03, & 2.265417E-03, 9.701432E-04, 0.000000E+00 / DATA ( EQY_REF( IMVK-06, 1, IWLR ), IWLR = 1, 7 ) / & 1.730908E-02, 1.097636E-02, 7.558218E-03, 5.259628E-03, & 2.265417E-03, 9.701432E-04, 0.000000E+00 / C...IC3ONO2 C.. ! I-C3H7ONO2 + HV = PRODUCTS C.. IUPAC (1997). Recommend assuming unit quantum yields. C.. This has stronger absorption than n-C3-ONO2 and lower nitrates, C.. but chosen as representative of lumped higher nitrates. C.. wl abs C... reference temperatures (K) DATA ( TEMP_REF( ITT, IIC3ONO2 ), ITT=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IIC3ONO2, 1, IWLR ), IWLR = 1, 7 ) / & 1.255485E-20, 6.352151E-21, 3.286583E-21, 1.709812E-21, & 2.667190E-22, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( IIC3ONO2, 1, IWLR ), IWLR = 1, 7 ) / & 1.255485E-20, 6.352151E-21, 3.286583E-21, 1.709812E-21, & 2.667190E-22, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( IIC3ONO2, 1, IWLR ), IWLR = 1, 7 ) / & 1.255485E-20, 6.352151E-21, 3.286583E-21, 1.709812E-21, & 2.667190E-22, 0.000000E+00, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IIC3ONO2, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 5.754197E-01, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( IIC3ONO2, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 5.754197E-01, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( IIC3ONO2, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 5.754197E-01, 0.000000E+00, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IIC3ONO2, 1, IWLR ), IWLR = 1, 7 ) / & 1.255485E-20, 6.352151E-21, 3.286583E-21, 1.709812E-21, & 2.667181E-22, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( IIC3ONO2, 1, IWLR ), IWLR = 1, 7 ) / & 1.255485E-20, 6.352151E-21, 3.286583E-21, 1.709812E-21, & 2.667181E-22, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( IIC3ONO2, 1, IWLR ), IWLR = 1, 7 ) / & 1.255485E-20, 6.352151E-21, 3.286583E-21, 1.709812E-21, & 2.667181E-22, 0.000000E+00, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IIC3ONO2, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.999965E-01, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( IIC3ONO2, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.999965E-01, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( IIC3ONO2, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.999965E-01, 0.000000E+00, 0.000000E+00 / C...HOCCHO_IUPAC C.. HOCH2CHO + hv ---> products C.. IUPAC (2002) based on Bacher et al (2001), J. Atm. Chem, 39, 171. C.. quantum yield = 0.75+/-0.25 C.. lambda(nm) xcross(1.E+20*cm2) yield C... reference temperatures (K) DATA ( TEMP_REF( ITT, IHOCCHO_IUPAC ), ITT=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IHOCCHO_IUPAC, 1, IWLR ), IWLR = 1, 7 ) / & 3.704784E-20, 2.277375E-20, 1.257585E-20, 5.852386E-21, & 6.512001E-22, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( IHOCCHO_IUPAC, 1, IWLR ), IWLR = 1, 7 ) / & 3.704784E-20, 2.277375E-20, 1.257585E-20, 5.852386E-21, & 6.512001E-22, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( IHOCCHO_IUPAC, 1, IWLR ), IWLR = 1, 7 ) / & 3.704784E-20, 2.277375E-20, 1.257585E-20, 5.852386E-21, & 6.512001E-22, 0.000000E+00, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IHOCCHO_IUPAC, 1, IWLR ), IWLR = 1, 7 ) / & 7.500000E-01, 7.500000E-01, 7.500000E-01, 7.500000E-01, & 4.315647E-01, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( IHOCCHO_IUPAC, 1, IWLR ), IWLR = 1, 7 ) / & 7.500000E-01, 7.500000E-01, 7.500000E-01, 7.500000E-01, & 4.315647E-01, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( IHOCCHO_IUPAC, 1, IWLR ), IWLR = 1, 7 ) / & 7.500000E-01, 7.500000E-01, 7.500000E-01, 7.500000E-01, & 4.315647E-01, 0.000000E+00, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IHOCCHO_IUPAC, 1, IWLR ), IWLR = 1, 7 ) / & 2.778588E-20, 1.708031E-20, 9.431886E-21, 4.389290E-21, & 4.882505E-22, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( IHOCCHO_IUPAC, 1, IWLR ), IWLR = 1, 7 ) / & 2.778588E-20, 1.708031E-20, 9.431886E-21, 4.389290E-21, & 4.882505E-22, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( IHOCCHO_IUPAC, 1, IWLR ), IWLR = 1, 7 ) / & 2.778588E-20, 1.708031E-20, 9.431886E-21, 4.389290E-21, & 4.882505E-22, 0.000000E+00, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IHOCCHO_IUPAC, 1, IWLR ), IWLR = 1, 7 ) / & 7.500000E-01, 7.500000E-01, 7.500000E-01, 7.500000E-01, & 7.497704E-01, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( IHOCCHO_IUPAC, 1, IWLR ), IWLR = 1, 7 ) / & 7.500000E-01, 7.500000E-01, 7.500000E-01, 7.500000E-01, & 7.497704E-01, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( IHOCCHO_IUPAC, 1, IWLR ), IWLR = 1, 7 ) / & 7.500000E-01, 7.500000E-01, 7.500000E-01, 7.500000E-01, & 7.497704E-01, 0.000000E+00, 0.000000E+00 / C...ACRO-09 C.. ! Chemical Kinetics and Photochemical Data for Use in Atmospheric Studies C.. Evaluation Number 15. JPL Publication 06-2. July 10, 2006 C.. The quantum yields were derived using the pressure and wavelength-dependent C.. expression given by IUPAC (2005) for MVK, C.. with the total pressure adjusted so that the radical forming photolysis rates C.. for the chamber experiments are the same as those that fit the chamber data. C.. Adjusted pressure = 1.50 atm. C.. C... reference temperatures (K) DATA ( TEMP_REF( ITT, IACRO-09 ), ITT=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IACRO-09, 1, IWLR ), IWLR = 1, 7 ) / & 1.856131E-20, 2.787986E-20, 3.602617E-20, 4.321522E-20, & 5.371940E-20, 1.543856E-20, 0.000000E+00 / DATA ( CS_REF( IACRO-09, 1, IWLR ), IWLR = 1, 7 ) / & 1.856131E-20, 2.787986E-20, 3.602617E-20, 4.321522E-20, & 5.371940E-20, 1.543856E-20, 0.000000E+00 / DATA ( CS_REF( IACRO-09, 1, IWLR ), IWLR = 1, 7 ) / & 1.856131E-20, 2.787986E-20, 3.602617E-20, 4.321522E-20, & 5.371940E-20, 1.543856E-20, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IACRO-09, 1, IWLR ), IWLR = 1, 7 ) / & 5.332907E-02, 3.341171E-02, 2.275740E-02, 1.604886E-02, & 6.814506E-03, 6.657416E-04, 0.000000E+00 / DATA ( QY_REF( IACRO-09, 1, IWLR ), IWLR = 1, 7 ) / & 5.332907E-02, 3.341171E-02, 2.275740E-02, 1.604886E-02, & 6.814506E-03, 6.657416E-04, 0.000000E+00 / DATA ( QY_REF( IACRO-09, 1, IWLR ), IWLR = 1, 7 ) / & 5.332907E-02, 3.341171E-02, 2.275740E-02, 1.604886E-02, & 6.814506E-03, 6.657416E-04, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IACRO-09, 1, IWLR ), IWLR = 1, 7 ) / & 9.780047E-22, 9.183047E-22, 8.156431E-22, 6.894450E-22, & 3.635462E-22, 2.508367E-23, 0.000000E+00 / DATA ( ECS_REF( IACRO-09, 1, IWLR ), IWLR = 1, 7 ) / & 9.780047E-22, 9.183047E-22, 8.156431E-22, 6.894450E-22, & 3.635462E-22, 2.508367E-23, 0.000000E+00 / DATA ( ECS_REF( IACRO-09, 1, IWLR ), IWLR = 1, 7 ) / & 9.780047E-22, 9.183047E-22, 8.156431E-22, 6.894450E-22, & 3.635462E-22, 2.508367E-23, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IACRO-09, 1, IWLR ), IWLR = 1, 7 ) / & 5.269049E-02, 3.293793E-02, 2.264030E-02, 1.595376E-02, & 6.767503E-03, 1.624741E-03, 0.000000E+00 / DATA ( EQY_REF( IACRO-09, 1, IWLR ), IWLR = 1, 7 ) / & 5.269049E-02, 3.293793E-02, 2.264030E-02, 1.595376E-02, & 6.767503E-03, 1.624741E-03, 0.000000E+00 / DATA ( EQY_REF( IACRO-09, 1, IWLR ), IWLR = 1, 7 ) / & 5.269049E-02, 3.293793E-02, 2.264030E-02, 1.595376E-02, & 6.767503E-03, 1.624741E-03, 0.000000E+00 / C...PAA C.. Peroxy acetic acid absorption cross sections C.. Orlando, J. J. and G. S. Tyndall (2003): "Gas phase UV absorption spectra C.. for peracetic acid, and for acetic acid monomers and dimers," J. Photochem. C.. Photobiol A, 157, 161-166. C... reference temperatures (K) DATA ( TEMP_REF( ITT, IPAA ), ITT=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IPAA, 1, IWLR ), IWLR = 1, 7 ) / & 1.880975E-21, 9.984305E-22, 5.884868E-22, 3.735135E-22, & 1.059119E-22, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( IPAA, 1, IWLR ), IWLR = 1, 7 ) / & 1.880975E-21, 9.984305E-22, 5.884868E-22, 3.735135E-22, & 1.059119E-22, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( IPAA, 1, IWLR ), IWLR = 1, 7 ) / & 1.880975E-21, 9.984305E-22, 5.884868E-22, 3.735135E-22, & 1.059119E-22, 0.000000E+00, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IPAA, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.624107E-01, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( IPAA, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.624107E-01, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( IPAA, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.624107E-01, 0.000000E+00, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IPAA, 1, IWLR ), IWLR = 1, 7 ) / & 1.880975E-21, 9.984305E-22, 5.884868E-22, 3.735135E-22, & 1.059117E-22, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( IPAA, 1, IWLR ), IWLR = 1, 7 ) / & 1.880975E-21, 9.984305E-22, 5.884868E-22, 3.735135E-22, & 1.059117E-22, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( IPAA, 1, IWLR ), IWLR = 1, 7 ) / & 1.880975E-21, 9.984305E-22, 5.884868E-22, 3.735135E-22, & 1.059117E-22, 0.000000E+00, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IPAA, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.999983E-01, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( IPAA, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.999983E-01, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( IPAA, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.999983E-01, 0.000000E+00, 0.000000E+00 / C...CL2 C.. CL2 + HV = 2 CL C.. FROM IUPAC EVALUATION (1996) C.. RECOMMEND UNIT QUANTUM YIELD C.. C... reference temperatures (K) DATA ( TEMP_REF( ITT, ICL2 ), ITT=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( ICL2, 1, IWLR ), IWLR = 1, 7 ) / & 8.824935E-20, 1.400673E-19, 1.841697E-19, 2.185163E-19, & 2.410845E-19, 6.539245E-20, 6.311134E-22 / DATA ( CS_REF( ICL2, 1, IWLR ), IWLR = 1, 7 ) / & 8.824935E-20, 1.400673E-19, 1.841697E-19, 2.185163E-19, & 2.410845E-19, 6.539245E-20, 6.311134E-22 / DATA ( CS_REF( ICL2, 1, IWLR ), IWLR = 1, 7 ) / & 8.824935E-20, 1.400673E-19, 1.841697E-19, 2.185163E-19, & 2.410845E-19, 6.539245E-20, 6.311134E-22 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( ICL2, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 1.368807E-01 / DATA ( QY_REF( ICL2, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 1.368807E-01 / DATA ( QY_REF( ICL2, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 1.368807E-01 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( ICL2, 1, IWLR ), IWLR = 1, 7 ) / & 8.824935E-20, 1.400673E-19, 1.841697E-19, 2.185163E-19, & 2.410845E-19, 6.539245E-20, 6.311133E-22 / DATA ( ECS_REF( ICL2, 1, IWLR ), IWLR = 1, 7 ) / & 8.824935E-20, 1.400673E-19, 1.841697E-19, 2.185163E-19, & 2.410845E-19, 6.539245E-20, 6.311133E-22 / DATA ( ECS_REF( ICL2, 1, IWLR ), IWLR = 1, 7 ) / & 8.824935E-20, 1.400673E-19, 1.841697E-19, 2.185163E-19, & 2.410845E-19, 6.539245E-20, 6.311133E-22 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( ICL2, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 9.999998E-01 / DATA ( EQY_REF( ICL2, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 9.999998E-01 / DATA ( EQY_REF( ICL2, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 9.999998E-01 / C...CLNO-06 C.. CLNO absorption cross sections recommended by IUPAC (2005) C.. Wavelength where absorption goes to zero est'd by extrapolation C.. C... reference temperatures (K) DATA ( TEMP_REF( ITT, ICLNO-06 ), ITT=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( ICLNO-06, 1, IWLR ), IWLR = 1, 7 ) / & 9.713535E-20, 1.043433E-19, 1.150344E-19, 1.267321E-19, & 1.479858E-19, 8.438991E-20, 4.594130E-21 / DATA ( CS_REF( ICLNO-06, 1, IWLR ), IWLR = 1, 7 ) / & 9.713535E-20, 1.043433E-19, 1.150344E-19, 1.267321E-19, & 1.479858E-19, 8.438991E-20, 4.594130E-21 / DATA ( CS_REF( ICLNO-06, 1, IWLR ), IWLR = 1, 7 ) / & 9.713535E-20, 1.043433E-19, 1.150344E-19, 1.267321E-19, & 1.479858E-19, 8.438991E-20, 4.594130E-21 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( ICLNO-06, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 2.444760E-01 / DATA ( QY_REF( ICLNO-06, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 2.444760E-01 / DATA ( QY_REF( ICLNO-06, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 2.444760E-01 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( ICLNO-06, 1, IWLR ), IWLR = 1, 7 ) / & 9.713535E-20, 1.043433E-19, 1.150344E-19, 1.267321E-19, & 1.479858E-19, 8.438991E-20, 4.594130E-21 / DATA ( ECS_REF( ICLNO-06, 1, IWLR ), IWLR = 1, 7 ) / & 9.713535E-20, 1.043433E-19, 1.150344E-19, 1.267321E-19, & 1.479858E-19, 8.438991E-20, 4.594130E-21 / DATA ( ECS_REF( ICLNO-06, 1, IWLR ), IWLR = 1, 7 ) / & 9.713535E-20, 1.043433E-19, 1.150344E-19, 1.267321E-19, & 1.479858E-19, 8.438991E-20, 4.594130E-21 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( ICLNO-06, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 9.999999E-01 / DATA ( EQY_REF( ICLNO-06, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 9.999999E-01 / DATA ( EQY_REF( ICLNO-06, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 9.999999E-01 / C...CLONO C.. CLONO + HV = CL + NO2 C.. FROM IUPAC EVALUATION (1996) C... reference temperatures (K) DATA ( TEMP_REF( ITT, ICLONO ), ITT=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( ICLONO, 1, IWLR ), IWLR = 1, 7 ) / & 1.405580E-18, 1.198578E-18, 1.052515E-18, 9.205327E-19, & 5.728580E-19, 7.394602E-20, 0.000000E+00 / DATA ( CS_REF( ICLONO, 1, IWLR ), IWLR = 1, 7 ) / & 1.405580E-18, 1.198578E-18, 1.052515E-18, 9.205327E-19, & 5.728580E-19, 7.394602E-20, 0.000000E+00 / DATA ( CS_REF( ICLONO, 1, IWLR ), IWLR = 1, 7 ) / & 1.405580E-18, 1.198578E-18, 1.052515E-18, 9.205327E-19, & 5.728580E-19, 7.394602E-20, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( ICLONO, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 8.317809E-01, 0.000000E+00 / DATA ( QY_REF( ICLONO, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 8.317809E-01, 0.000000E+00 / DATA ( QY_REF( ICLONO, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 8.317809E-01, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( ICLONO, 1, IWLR ), IWLR = 1, 7 ) / & 1.405580E-18, 1.198578E-18, 1.052515E-18, 9.205327E-19, & 5.728580E-19, 7.394601E-20, 0.000000E+00 / DATA ( ECS_REF( ICLONO, 1, IWLR ), IWLR = 1, 7 ) / & 1.405580E-18, 1.198578E-18, 1.052515E-18, 9.205327E-19, & 5.728580E-19, 7.394601E-20, 0.000000E+00 / DATA ( ECS_REF( ICLONO, 1, IWLR ), IWLR = 1, 7 ) / & 1.405580E-18, 1.198578E-18, 1.052515E-18, 9.205327E-19, & 5.728580E-19, 7.394601E-20, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( ICLONO, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999999E-01, 0.000000E+00 / DATA ( EQY_REF( ICLONO, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999999E-01, 0.000000E+00 / DATA ( EQY_REF( ICLONO, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999999E-01, 0.000000E+00 / C...CLNO2 C.. CLNO2 + HV = CL + NO2 C.. FROM IUPAC EVALUATION (1996) C.. RECOMMEND UNIT QUANTUM YILED C... reference temperatures (K) DATA ( TEMP_REF( ITT, ICLNO2 ), ITT=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( ICLNO2, 1, IWLR ), IWLR = 1, 7 ) / & 1.619476E-19, 1.400598E-19, 1.206790E-19, 1.001660E-19, & 5.258212E-20, 4.822256E-21, 0.000000E+00 / DATA ( CS_REF( ICLNO2, 1, IWLR ), IWLR = 1, 7 ) / & 1.619476E-19, 1.400598E-19, 1.206790E-19, 1.001660E-19, & 5.258212E-20, 4.822256E-21, 0.000000E+00 / DATA ( CS_REF( ICLNO2, 1, IWLR ), IWLR = 1, 7 ) / & 1.619476E-19, 1.400598E-19, 1.206790E-19, 1.001660E-19, & 5.258212E-20, 4.822256E-21, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( ICLNO2, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 4.412513E-01, 0.000000E+00 / DATA ( QY_REF( ICLNO2, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 4.412513E-01, 0.000000E+00 / DATA ( QY_REF( ICLNO2, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 4.412513E-01, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( ICLNO2, 1, IWLR ), IWLR = 1, 7 ) / & 1.619476E-19, 1.400598E-19, 1.206790E-19, 1.001660E-19, & 5.258212E-20, 4.822253E-21, 0.000000E+00 / DATA ( ECS_REF( ICLNO2, 1, IWLR ), IWLR = 1, 7 ) / & 1.619476E-19, 1.400598E-19, 1.206790E-19, 1.001660E-19, & 5.258212E-20, 4.822253E-21, 0.000000E+00 / DATA ( ECS_REF( ICLNO2, 1, IWLR ), IWLR = 1, 7 ) / & 1.619476E-19, 1.400598E-19, 1.206790E-19, 1.001660E-19, & 5.258212E-20, 4.822253E-21, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( ICLNO2, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999995E-01, 0.000000E+00 / DATA ( EQY_REF( ICLNO2, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999995E-01, 0.000000E+00 / DATA ( EQY_REF( ICLNO2, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999995E-01, 0.000000E+00 / C...CLONO2-1 C.. CLONO2 + hv = CLO. + NO2 C.. CLONO2 absorption cross sections and quantum yields recommended by IUPAC (2005) C.. C... reference temperatures (K) DATA ( TEMP_REF( ITT, ICLONO2-1 ), ITT=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( ICLONO2-1, 1, IWLR ), IWLR = 1, 7 ) / & 4.653763E-20, 2.593172E-20, 1.621920E-20, 1.063004E-20, & 4.392588E-21, 4.870605E-22, 0.000000E+00 / DATA ( CS_REF( ICLONO2-1, 1, IWLR ), IWLR = 1, 7 ) / & 4.653763E-20, 2.593172E-20, 1.621920E-20, 1.063004E-20, & 4.392588E-21, 4.870605E-22, 0.000000E+00 / DATA ( CS_REF( ICLONO2-1, 1, IWLR ), IWLR = 1, 7 ) / & 4.653763E-20, 2.593172E-20, 1.621920E-20, 1.063004E-20, & 4.392588E-21, 4.870605E-22, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( ICLONO2-1, 1, IWLR ), IWLR = 1, 7 ) / & 4.000000E-01, 3.989906E-01, 3.830687E-01, 3.395569E-01, & 2.198601E-01, 1.467998E-02, 0.000000E+00 / DATA ( QY_REF( ICLONO2-1, 1, IWLR ), IWLR = 1, 7 ) / & 4.000000E-01, 3.989906E-01, 3.830687E-01, 3.395569E-01, & 2.198601E-01, 1.467998E-02, 0.000000E+00 / DATA ( QY_REF( ICLONO2-1, 1, IWLR ), IWLR = 1, 7 ) / & 4.000000E-01, 3.989906E-01, 3.830687E-01, 3.395569E-01, & 2.198601E-01, 1.467998E-02, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( ICLONO2-1, 1, IWLR ), IWLR = 1, 7 ) / & 1.861505E-20, 1.035219E-20, 6.224709E-21, 3.635981E-21, & 1.037276E-21, 3.317179E-23, 0.000000E+00 / DATA ( ECS_REF( ICLONO2-1, 1, IWLR ), IWLR = 1, 7 ) / & 1.861505E-20, 1.035219E-20, 6.224709E-21, 3.635981E-21, & 1.037276E-21, 3.317179E-23, 0.000000E+00 / DATA ( ECS_REF( ICLONO2-1, 1, IWLR ), IWLR = 1, 7 ) / & 1.861505E-20, 1.035219E-20, 6.224709E-21, 3.635981E-21, & 1.037276E-21, 3.317179E-23, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( ICLONO2-1, 1, IWLR ), IWLR = 1, 7 ) / & 4.000000E-01, 3.992096E-01, 3.837864E-01, 3.420477E-01, & 2.361424E-01, 6.810609E-02, 0.000000E+00 / DATA ( EQY_REF( ICLONO2-1, 1, IWLR ), IWLR = 1, 7 ) / & 4.000000E-01, 3.992096E-01, 3.837864E-01, 3.420477E-01, & 2.361424E-01, 6.810609E-02, 0.000000E+00 / DATA ( EQY_REF( ICLONO2-1, 1, IWLR ), IWLR = 1, 7 ) / & 4.000000E-01, 3.992096E-01, 3.837864E-01, 3.420477E-01, & 2.361424E-01, 6.810609E-02, 0.000000E+00 / C...CLONO2-2 C.. CLONO2 + hv = CL. + NO3 C.. CLONO2 absorption cross sections and quantum yields recommended by IUPAC (2005) C.. C... reference temperatures (K) DATA ( TEMP_REF( ITT, ICLONO2-2 ), ITT=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( ICLONO2-2, 1, IWLR ), IWLR = 1, 7 ) / & 4.653763E-20, 2.593172E-20, 1.621920E-20, 1.063004E-20, & 4.392588E-21, 1.220202E-21, 9.579244E-24 / DATA ( CS_REF( ICLONO2-2, 1, IWLR ), IWLR = 1, 7 ) / & 4.653763E-20, 2.593172E-20, 1.621920E-20, 1.063004E-20, & 4.392588E-21, 1.220202E-21, 9.579244E-24 / DATA ( CS_REF( ICLONO2-2, 1, IWLR ), IWLR = 1, 7 ) / & 4.653763E-20, 2.593172E-20, 1.621920E-20, 1.063004E-20, & 4.392588E-21, 1.220202E-21, 9.579244E-24 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( ICLONO2-2, 1, IWLR ), IWLR = 1, 7 ) / & 6.000000E-01, 6.010094E-01, 6.169314E-01, 6.604431E-01, & 7.801399E-01, 9.853200E-01, 3.841701E-02 / DATA ( QY_REF( ICLONO2-2, 1, IWLR ), IWLR = 1, 7 ) / & 6.000000E-01, 6.010094E-01, 6.169314E-01, 6.604431E-01, & 7.801399E-01, 9.853200E-01, 3.841701E-02 / DATA ( QY_REF( ICLONO2-2, 1, IWLR ), IWLR = 1, 7 ) / & 6.000000E-01, 6.010094E-01, 6.169314E-01, 6.604431E-01, & 7.801399E-01, 9.853200E-01, 3.841701E-02 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( ICLONO2-2, 1, IWLR ), IWLR = 1, 7 ) / & 2.792258E-20, 1.557953E-20, 9.994494E-21, 6.994062E-21, & 3.355312E-21, 1.187030E-21, 9.579223E-24 / DATA ( ECS_REF( ICLONO2-2, 1, IWLR ), IWLR = 1, 7 ) / & 2.792258E-20, 1.557953E-20, 9.994494E-21, 6.994062E-21, & 3.355312E-21, 1.187030E-21, 9.579223E-24 / DATA ( ECS_REF( ICLONO2-2, 1, IWLR ), IWLR = 1, 7 ) / & 2.792258E-20, 1.557953E-20, 9.994494E-21, 6.994062E-21, & 3.355312E-21, 1.187030E-21, 9.579223E-24 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( ICLONO2-2, 1, IWLR ), IWLR = 1, 7 ) / & 6.000000E-01, 6.007904E-01, 6.162136E-01, 6.579523E-01, & 7.638576E-01, 9.728145E-01, 9.999978E-01 / DATA ( EQY_REF( ICLONO2-2, 1, IWLR ), IWLR = 1, 7 ) / & 6.000000E-01, 6.007904E-01, 6.162136E-01, 6.579523E-01, & 7.638576E-01, 9.728145E-01, 9.999978E-01 / DATA ( EQY_REF( ICLONO2-2, 1, IWLR ), IWLR = 1, 7 ) / & 6.000000E-01, 6.007904E-01, 6.162136E-01, 6.579523E-01, & 7.638576E-01, 9.728145E-01, 9.999978E-01 / C...HOCL-06 C.. HOCL absorption cross sections recommended by IUPAC (2005) C.. C.. C... reference temperatures (K) DATA ( TEMP_REF( ITT, IHOCL-06 ), ITT=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IHOCL-06, 1, IWLR ), IWLR = 1, 7 ) / & 5.570116E-20, 6.066932E-20, 5.958157E-20, 5.377944E-20, & 3.120856E-20, 6.545257E-21, 1.283779E-23 / DATA ( CS_REF( IHOCL-06, 1, IWLR ), IWLR = 1, 7 ) / & 5.570116E-20, 6.066932E-20, 5.958157E-20, 5.377944E-20, & 3.120856E-20, 6.545257E-21, 1.283779E-23 / DATA ( CS_REF( IHOCL-06, 1, IWLR ), IWLR = 1, 7 ) / & 5.570116E-20, 6.066932E-20, 5.958157E-20, 5.377944E-20, & 3.120856E-20, 6.545257E-21, 1.283779E-23 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IHOCL-06, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 1.671194E-02 / DATA ( QY_REF( IHOCL-06, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 1.671194E-02 / DATA ( QY_REF( IHOCL-06, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 1.671194E-02 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IHOCL-06, 1, IWLR ), IWLR = 1, 7 ) / & 5.570116E-20, 6.066932E-20, 5.958157E-20, 5.377944E-20, & 3.120856E-20, 6.545257E-21, 1.283761E-23 / DATA ( ECS_REF( IHOCL-06, 1, IWLR ), IWLR = 1, 7 ) / & 5.570116E-20, 6.066932E-20, 5.958157E-20, 5.377944E-20, & 3.120856E-20, 6.545257E-21, 1.283761E-23 / DATA ( ECS_REF( IHOCL-06, 1, IWLR ), IWLR = 1, 7 ) / & 5.570116E-20, 6.066932E-20, 5.958157E-20, 5.377944E-20, & 3.120856E-20, 6.545257E-21, 1.283761E-23 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IHOCL-06, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 9.999858E-01 / DATA ( EQY_REF( IHOCL-06, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 9.999858E-01 / DATA ( EQY_REF( IHOCL-06, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 9.999858E-01 / C...CLCCHO C.. Chloroacetaldehyde absorption cross sections C.. NASA (2006) evaluation C... reference temperatures (K) DATA ( TEMP_REF( ITT, ICLCCHO ), ITT=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( ICLCCHO, 1, IWLR ), IWLR = 1, 7 ) / & 5.379343E-20, 5.300274E-20, 4.849358E-20, 3.861001E-20, & 1.286110E-20, 9.229084E-23, 0.000000E+00 / DATA ( CS_REF( ICLCCHO, 1, IWLR ), IWLR = 1, 7 ) / & 5.379343E-20, 5.300274E-20, 4.849358E-20, 3.861001E-20, & 1.286110E-20, 9.229084E-23, 0.000000E+00 / DATA ( CS_REF( ICLCCHO, 1, IWLR ), IWLR = 1, 7 ) / & 5.379343E-20, 5.300274E-20, 4.849358E-20, 3.861001E-20, & 1.286110E-20, 9.229084E-23, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( ICLCCHO, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.478604E-01, 0.000000E+00 / DATA ( QY_REF( ICLCCHO, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.478604E-01, 0.000000E+00 / DATA ( QY_REF( ICLCCHO, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.478604E-01, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( ICLCCHO, 1, IWLR ), IWLR = 1, 7 ) / & 5.379343E-20, 5.300274E-20, 4.849358E-20, 3.861001E-20, & 1.286110E-20, 9.229049E-23, 0.000000E+00 / DATA ( ECS_REF( ICLCCHO, 1, IWLR ), IWLR = 1, 7 ) / & 5.379343E-20, 5.300274E-20, 4.849358E-20, 3.861001E-20, & 1.286110E-20, 9.229049E-23, 0.000000E+00 / DATA ( ECS_REF( ICLCCHO, 1, IWLR ), IWLR = 1, 7 ) / & 5.379343E-20, 5.300274E-20, 4.849358E-20, 3.861001E-20, & 1.286110E-20, 9.229049E-23, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( ICLCCHO, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999961E-01, 0.000000E+00 / DATA ( EQY_REF( ICLCCHO, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999961E-01, 0.000000E+00 / DATA ( EQY_REF( ICLCCHO, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999961E-01, 0.000000E+00 / C...CLACET C.. Chloroacetone absorption cross sections C.. Chloroacetone absorption cross sections C.. C... reference temperatures (K) DATA ( TEMP_REF( ITT, ICLACET ), ITT=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( ICLACET, 1, IWLR ), IWLR = 1, 7 ) / & 1.000120E-19, 8.662040E-20, 6.774627E-20, 4.765676E-20, & 1.132987E-20, 6.893330E-23, 0.000000E+00 / DATA ( CS_REF( ICLACET, 1, IWLR ), IWLR = 1, 7 ) / & 1.000120E-19, 8.662040E-20, 6.774627E-20, 4.765676E-20, & 1.132987E-20, 6.893330E-23, 0.000000E+00 / DATA ( CS_REF( ICLACET, 1, IWLR ), IWLR = 1, 7 ) / & 1.000120E-19, 8.662040E-20, 6.774627E-20, 4.765676E-20, & 1.132987E-20, 6.893330E-23, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( ICLACET, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 2.282282E-01, 0.000000E+00 / DATA ( QY_REF( ICLACET, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 2.282282E-01, 0.000000E+00 / DATA ( QY_REF( ICLACET, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 2.282282E-01, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( ICLACET, 1, IWLR ), IWLR = 1, 7 ) / & 1.000120E-19, 8.662040E-20, 6.774627E-20, 4.765676E-20, & 1.132987E-20, 6.893320E-23, 0.000000E+00 / DATA ( ECS_REF( ICLACET, 1, IWLR ), IWLR = 1, 7 ) / & 1.000120E-19, 8.662040E-20, 6.774627E-20, 4.765676E-20, & 1.132987E-20, 6.893320E-23, 0.000000E+00 / DATA ( ECS_REF( ICLACET, 1, IWLR ), IWLR = 1, 7 ) / & 1.000120E-19, 8.662040E-20, 6.774627E-20, 4.765676E-20, & 1.132987E-20, 6.893320E-23, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( ICLACET, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999986E-01, 0.000000E+00 / DATA ( EQY_REF( ICLACET, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999986E-01, 0.000000E+00 / DATA ( EQY_REF( ICLACET, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999986E-01, 0.000000E+00 / C...NO2_SAPRC99 C.. NO2 + HV = NO + O C.. SAPRC-99 Photolysis data. Supplied by William P. L. Carter. C.. Created from PhotDat.xls on 29-Jan-2000 10:07 C... reference temperatures (K) DATA ( TEMP_REF( ITT, INO2_SAPRC99 ), ITT=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( INO2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.079359E-19, 1.478274E-19, 1.860793E-19, 2.249056E-19, & 3.335557E-19, 5.492275E-19, 1.148338E-20 / DATA ( CS_REF( INO2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.079359E-19, 1.478274E-19, 1.860793E-19, 2.249056E-19, & 3.335557E-19, 5.492275E-19, 1.148338E-20 / DATA ( CS_REF( INO2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.079359E-19, 1.478274E-19, 1.860793E-19, 2.249056E-19, & 3.335557E-19, 5.492275E-19, 1.148338E-20 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( INO2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 9.986849E-01, 9.908285E-01, & 9.900000E-01, 7.922024E-01, 7.010691E-04 / DATA ( QY_REF( INO2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 9.986849E-01, 9.908285E-01, & 9.900000E-01, 7.922024E-01, 7.010691E-04 / DATA ( QY_REF( INO2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 9.986849E-01, 9.908285E-01, & 9.900000E-01, 7.922024E-01, 7.010691E-04 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( INO2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.079359E-19, 1.478274E-19, 1.858225E-19, 2.228265E-19, & 3.302201E-19, 4.272924E-19, 4.015397E-22 / DATA ( ECS_REF( INO2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.079359E-19, 1.478274E-19, 1.858225E-19, 2.228265E-19, & 3.302201E-19, 4.272924E-19, 4.015397E-22 / DATA ( ECS_REF( INO2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.079359E-19, 1.478274E-19, 1.858225E-19, 2.228265E-19, & 3.302201E-19, 4.272924E-19, 4.015397E-22 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( INO2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 9.986200E-01, 9.907554E-01, & 9.900000E-01, 7.779881E-01, 3.496704E-02 / DATA ( EQY_REF( INO2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 9.986200E-01, 9.907554E-01, & 9.900000E-01, 7.779881E-01, 3.496704E-02 / DATA ( EQY_REF( INO2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 9.986200E-01, 9.907554E-01, & 9.900000E-01, 7.779881E-01, 3.496704E-02 / C...NO3NO_SAPRC99 C.. NO3 + HV = NO + O2 (T=298) C.. SAPRC-99 Photolysis data. Supplied by William P. L. Carter. C.. Created from PhotDat.xls on 29-Jan-2000 10:07 C... reference temperatures (K) DATA ( TEMP_REF( ITT, INO3NO_SAPRC99 ), ITT=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( INO3NO_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 0.000000E+00, 5.695915E-19 / DATA ( CS_REF( INO3NO_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 0.000000E+00, 5.695915E-19 / DATA ( CS_REF( INO3NO_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 0.000000E+00, 5.695915E-19 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( INO3NO_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 0.000000E+00, 2.027933E-02 / DATA ( QY_REF( INO3NO_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 0.000000E+00, 2.027933E-02 / DATA ( QY_REF( INO3NO_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 0.000000E+00, 2.027933E-02 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( INO3NO_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 0.000000E+00, 8.172137E-20 / DATA ( ECS_REF( INO3NO_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 0.000000E+00, 8.172137E-20 / DATA ( ECS_REF( INO3NO_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 0.000000E+00, 8.172137E-20 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( INO3NO_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 0.000000E+00, 1.434736E-01 / DATA ( EQY_REF( INO3NO_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 0.000000E+00, 1.434736E-01 / DATA ( EQY_REF( INO3NO_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 0.000000E+00, 1.434736E-01 / C...NO3NO2_SAPRC99 C.. NO3 + HV = NO2 + O (T=298) C.. SAPRC-99 Photolysis data. Supplied by William P. L. Carter. C.. Created from PhotDat.xls on 29-Jan-2000 10:07 C... reference temperatures (K) DATA ( TEMP_REF( ITT, INO3NO2_SAPRC99 ), ITT=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( INO3NO2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 4.263254E-21, 1.112198E-18 / DATA ( CS_REF( INO3NO2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 4.263254E-21, 1.112198E-18 / DATA ( CS_REF( INO3NO2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 4.263254E-21, 1.112198E-18 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( INO3NO2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 2.818170E-01, 4.333254E-01 / DATA ( QY_REF( INO3NO2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 2.818170E-01, 4.333254E-01 / DATA ( QY_REF( INO3NO2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 2.818170E-01, 4.333254E-01 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( INO3NO2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 4.263254E-21, 7.608259E-19 / DATA ( ECS_REF( INO3NO2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 4.263254E-21, 7.608259E-19 / DATA ( ECS_REF( INO3NO2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 4.263254E-21, 7.608259E-19 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( INO3NO2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 1.000000E+00, 6.840739E-01 / DATA ( EQY_REF( INO3NO2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 1.000000E+00, 6.840739E-01 / DATA ( EQY_REF( INO3NO2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 1.000000E+00, 6.840739E-01 / C...O3O3P_SAPRC99 C.. O3 + HV = O1D + O2 C.. SAPRC-99 Photolysis data. Supplied by William P. L. Carter. C.. Created from PhotDat.xls on 29-Jan-2000 10:07 C.. Absorption cross sections from NASA (1999), using wavelength which is cente C.. r of intervals shown. C.. Quantum yields derived from O3->O1D quantum yields assuming total quantum y C.. ield is 1, though this is not adequately discussed in the evaluations. C.. Values given are interpolated for each 1 nm interval. C... reference temperatures (K) DATA ( TEMP_REF( ITT, IO3O3P_SAPRC99 ), ITT=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IO3O3P_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 8.244220E-19, 2.732263E-19, 1.048019E-19, 4.476736E-20, & 6.115340E-21, 1.783091E-23, 1.650939E-21 / DATA ( CS_REF( IO3O3P_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 8.244220E-19, 2.732263E-19, 1.048019E-19, 4.476736E-20, & 6.115340E-21, 1.783091E-23, 1.650939E-21 / DATA ( CS_REF( IO3O3P_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 8.244220E-19, 2.732263E-19, 1.048019E-19, 4.476736E-20, & 6.115340E-21, 1.783091E-23, 1.650939E-21 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IO3O3P_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 6.227037E-02, 4.316586E-02, 4.576474E-01, 7.880838E-01, & 9.572254E-01, 1.000000E+00, 1.000000E+00 / DATA ( QY_REF( IO3O3P_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 6.227037E-02, 4.316586E-02, 4.576474E-01, 7.880838E-01, & 9.572254E-01, 1.000000E+00, 1.000000E+00 / DATA ( QY_REF( IO3O3P_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 6.227037E-02, 4.316586E-02, 4.576474E-01, 7.880838E-01, & 9.572254E-01, 1.000000E+00, 1.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IO3O3P_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 5.234563E-20, 1.108868E-20, 4.421222E-20, 3.478954E-20, & 5.673124E-21, 1.783091E-23, 1.650939E-21 / DATA ( ECS_REF( IO3O3P_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 5.234563E-20, 1.108868E-20, 4.421222E-20, 3.478954E-20, & 5.673124E-21, 1.783091E-23, 1.650939E-21 / DATA ( ECS_REF( IO3O3P_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 5.234563E-20, 1.108868E-20, 4.421222E-20, 3.478954E-20, & 5.673124E-21, 1.783091E-23, 1.650939E-21 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IO3O3P_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 6.349374E-02, 4.058423E-02, 4.218646E-01, 7.771183E-01, & 9.276875E-01, 1.000000E+00, 1.000000E+00 / DATA ( EQY_REF( IO3O3P_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 6.349374E-02, 4.058423E-02, 4.218646E-01, 7.771183E-01, & 9.276875E-01, 1.000000E+00, 1.000000E+00 / DATA ( EQY_REF( IO3O3P_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 6.349374E-02, 4.058423E-02, 4.218646E-01, 7.771183E-01, & 9.276875E-01, 1.000000E+00, 1.000000E+00 / C...O3O1D_SAPRC99 C.. O3 + HV = O1D + O2 C.. SAPRC-99 Photolysis data. Supplied by William P. L. Carter. C.. Created from PhotDat.xls on 29-Jan-2000 10:07 C.. Absorption cross sections from NASA (1999), using wavelength which is cente C.. r of intervals shown. C.. Quantum yields from IUPAC, Supplement VI (1997). C.. No quantum yield recommendation is given for wl>335. Assume they decrease C.. linearly to zero at 340 nm. C.. Values given are interpolated for each 1 nm interval. C... reference temperatures (K) DATA ( TEMP_REF( ITT, IO3O1D_SAPRC99 ), ITT=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IO3O1D_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 8.244220E-19, 2.732263E-19, 1.048019E-19, 4.476736E-20, & 5.921096E-21, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( IO3O1D_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 8.244220E-19, 2.732263E-19, 1.048019E-19, 4.476736E-20, & 5.921096E-21, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( IO3O1D_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 8.244220E-19, 2.732263E-19, 1.048019E-19, 4.476736E-20, & 5.921096E-21, 0.000000E+00, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IO3O1D_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 9.377297E-01, 9.568341E-01, 5.423526E-01, 2.119162E-01, & 4.277464E-02, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( IO3O1D_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 9.377297E-01, 9.568341E-01, 5.423526E-01, 2.119162E-01, & 4.277464E-02, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( IO3O1D_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 9.377297E-01, 9.568341E-01, 5.423526E-01, 2.119162E-01, & 4.277464E-02, 0.000000E+00, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IO3O1D_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 7.720763E-19, 2.621376E-19, 6.058971E-20, 9.977826E-21, & 4.422152E-22, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( IO3O1D_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 7.720763E-19, 2.621376E-19, 6.058971E-20, 9.977826E-21, & 4.422152E-22, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( IO3O1D_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 7.720763E-19, 2.621376E-19, 6.058971E-20, 9.977826E-21, & 4.422152E-22, 0.000000E+00, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IO3O1D_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 9.365063E-01, 9.594158E-01, 5.781354E-01, 2.228817E-01, & 7.468469E-02, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( IO3O1D_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 9.365063E-01, 9.594158E-01, 5.781354E-01, 2.228817E-01, & 7.468469E-02, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( IO3O1D_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 9.365063E-01, 9.594158E-01, 5.781354E-01, 2.228817E-01, & 7.468469E-02, 0.000000E+00, 0.000000E+00 / C...HONO_NO_SAPRC99 C.. HONO + HV = HO. + NO C.. SAPRC-99 Photolysis data. Supplied by William P. L. Carter. C.. Created from PhotDat.xls on 29-Jan-2000 10:07 C... reference temperatures (K) DATA ( TEMP_REF( ITT, IHONO_NO_SAPRC99 ), ITT=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IHONO_NO_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 1.218167E-20, 3.478063E-20, & 1.090584E-19, 8.781866E-20, 0.000000E+00 / DATA ( CS_REF( IHONO_NO_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 1.218167E-20, 3.478063E-20, & 1.090584E-19, 8.781866E-20, 0.000000E+00 / DATA ( CS_REF( IHONO_NO_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 1.218167E-20, 3.478063E-20, & 1.090584E-19, 8.781866E-20, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IHONO_NO_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 2.840304E-01, 4.690968E-01, & 6.487832E-01, 6.915469E-01, 0.000000E+00 / DATA ( QY_REF( IHONO_NO_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 2.840304E-01, 4.690968E-01, & 6.487832E-01, 6.915469E-01, 0.000000E+00 / DATA ( QY_REF( IHONO_NO_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 2.840304E-01, 4.690968E-01, & 6.487832E-01, 6.915469E-01, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IHONO_NO_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 5.061498E-21, 1.650524E-20, & 7.360088E-20, 8.336914E-20, 0.000000E+00 / DATA ( ECS_REF( IHONO_NO_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 5.061498E-21, 1.650524E-20, & 7.360088E-20, 8.336914E-20, 0.000000E+00 / DATA ( ECS_REF( IHONO_NO_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 5.061498E-21, 1.650524E-20, & 7.360088E-20, 8.336914E-20, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IHONO_NO_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 4.155010E-01, 4.745526E-01, & 6.748759E-01, 9.493328E-01, 0.000000E+00 / DATA ( EQY_REF( IHONO_NO_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 4.155010E-01, 4.745526E-01, & 6.748759E-01, 9.493328E-01, 0.000000E+00 / DATA ( EQY_REF( IHONO_NO_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 4.155010E-01, 4.745526E-01, & 6.748759E-01, 9.493328E-01, 0.000000E+00 / C...HONO_NO2_SAPRC99 C.. HONO + HV = H. + NO2 C.. SAPRC-99 Photolysis data. Supplied by William P. L. Carter. C.. Created from PhotDat.xls on 29-Jan-2000 10:07 C... reference temperatures (K) DATA ( TEMP_REF( ITT, IHONO_NO2_SAPRC99 ), ITT=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IHONO_NO2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 1.218167E-20, 3.478063E-20, & 1.090584E-19, 3.949920E-20, 0.000000E+00 / DATA ( CS_REF( IHONO_NO2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 1.218167E-20, 3.478063E-20, & 1.090584E-19, 3.949920E-20, 0.000000E+00 / DATA ( CS_REF( IHONO_NO2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 1.218167E-20, 3.478063E-20, & 1.090584E-19, 3.949920E-20, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IHONO_NO2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 4.022079E-01, 5.309032E-01, & 3.512168E-01, 2.663612E-02, 0.000000E+00 / DATA ( QY_REF( IHONO_NO2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 4.022079E-01, 5.309032E-01, & 3.512168E-01, 2.663612E-02, 0.000000E+00 / DATA ( QY_REF( IHONO_NO2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 4.022079E-01, 5.309032E-01, & 3.512168E-01, 2.663612E-02, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IHONO_NO2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 7.119419E-21, 1.827539E-20, & 3.545750E-20, 4.449506E-21, 0.000000E+00 / DATA ( ECS_REF( IHONO_NO2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 7.119419E-21, 1.827539E-20, & 3.545750E-20, 4.449506E-21, 0.000000E+00 / DATA ( ECS_REF( IHONO_NO2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 7.119419E-21, 1.827539E-20, & 3.545750E-20, 4.449506E-21, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IHONO_NO2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 5.844368E-01, 5.254474E-01, & 3.251241E-01, 1.126480E-01, 0.000000E+00 / DATA ( EQY_REF( IHONO_NO2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 5.844368E-01, 5.254474E-01, & 3.251241E-01, 1.126480E-01, 0.000000E+00 / DATA ( EQY_REF( IHONO_NO2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 0.000000E+00, 5.844368E-01, 5.254474E-01, & 3.251241E-01, 1.126480E-01, 0.000000E+00 / C...HNO3_SAPRC99 C.. HNO3 + HV = products C.. SAPRC-99 Photolysis data. Supplied by William P. L. Carter. C.. Created from PhotDat.xls on 29-Jan-2000 10:07 C... reference temperatures (K) DATA ( TEMP_REF( ITT, IHNO3_SAPRC99 ), ITT=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IHNO3_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 4.358854E-21, 1.954560E-21, 8.462490E-22, 3.649802E-22, & 4.770221E-23, 3.875286E-25, 0.000000E+00 / DATA ( CS_REF( IHNO3_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 4.358854E-21, 1.954560E-21, 8.462490E-22, 3.649802E-22, & 4.770221E-23, 3.875286E-25, 0.000000E+00 / DATA ( CS_REF( IHNO3_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 4.358854E-21, 1.954560E-21, 8.462490E-22, 3.649802E-22, & 4.770221E-23, 3.875286E-25, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IHNO3_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.142428E-01, 0.000000E+00 / DATA ( QY_REF( IHNO3_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.142428E-01, 0.000000E+00 / DATA ( QY_REF( IHNO3_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.142428E-01, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IHNO3_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 4.358854E-21, 1.954560E-21, 8.462490E-22, 3.649802E-22, & 4.770221E-23, 3.875253E-25, 0.000000E+00 / DATA ( ECS_REF( IHNO3_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 4.358854E-21, 1.954560E-21, 8.462490E-22, 3.649802E-22, & 4.770221E-23, 3.875253E-25, 0.000000E+00 / DATA ( ECS_REF( IHNO3_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 4.358854E-21, 1.954560E-21, 8.462490E-22, 3.649802E-22, & 4.770221E-23, 3.875253E-25, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IHNO3_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999914E-01, 0.000000E+00 / DATA ( EQY_REF( IHNO3_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999914E-01, 0.000000E+00 / DATA ( EQY_REF( IHNO3_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999914E-01, 0.000000E+00 / C...HO2NO2_SAPRC99 C.. HO2NO2 + HV = PRODUCTS C.. SAPRC-99 Photolysis data. Supplied by William P. L. Carter. C.. Created from PhotDat.xls on 29-Jan-2000 10:07 C... reference temperatures (K) DATA ( TEMP_REF( ITT, IHO2NO2_SAPRC99 ), ITT=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IHO2NO2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 2.591182E-20, 1.079995E-20, 5.527955E-21, 3.457478E-21, & 6.327416E-22, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( IHO2NO2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 2.591182E-20, 1.079995E-20, 5.527955E-21, 3.457478E-21, & 6.327416E-22, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( IHO2NO2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 2.591182E-20, 1.079995E-20, 5.527955E-21, 3.457478E-21, & 6.327416E-22, 0.000000E+00, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IHO2NO2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 5.754197E-01, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( IHO2NO2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 5.754197E-01, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( IHO2NO2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 5.754197E-01, 0.000000E+00, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IHO2NO2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 2.591182E-20, 1.079995E-20, 5.527955E-21, 3.457478E-21, & 6.327393E-22, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( IHO2NO2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 2.591182E-20, 1.079995E-20, 5.527955E-21, 3.457478E-21, & 6.327393E-22, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( IHO2NO2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 2.591182E-20, 1.079995E-20, 5.527955E-21, 3.457478E-21, & 6.327393E-22, 0.000000E+00, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IHO2NO2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.999964E-01, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( IHO2NO2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.999964E-01, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( IHO2NO2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.999964E-01, 0.000000E+00, 0.000000E+00 / C...H2O2_SAPRC99 C.. H2O2 + HV = 2 OH C.. SAPRC-99 Photolysis data. Supplied by William P. L. Carter. C.. Created from PhotDat.xls on 29-Jan-2000 10:07 C... reference temperatures (K) DATA ( TEMP_REF( ITT, IH2O2_SAPRC99 ), ITT=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IH2O2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 9.353273E-21, 5.771023E-21, 3.923019E-21, 2.721922E-21, & 1.138124E-21, 3.606317E-23, 0.000000E+00 / DATA ( CS_REF( IH2O2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 9.353273E-21, 5.771023E-21, 3.923019E-21, 2.721922E-21, & 1.138124E-21, 3.606317E-23, 0.000000E+00 / DATA ( CS_REF( IH2O2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 9.353273E-21, 5.771023E-21, 3.923019E-21, 2.721922E-21, & 1.138124E-21, 3.606317E-23, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IH2O2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.142428E-01, 0.000000E+00 / DATA ( QY_REF( IH2O2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.142428E-01, 0.000000E+00 / DATA ( QY_REF( IH2O2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.142428E-01, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IH2O2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 9.353273E-21, 5.771023E-21, 3.923019E-21, 2.721922E-21, & 1.138124E-21, 3.606284E-23, 0.000000E+00 / DATA ( ECS_REF( IH2O2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 9.353273E-21, 5.771023E-21, 3.923019E-21, 2.721922E-21, & 1.138124E-21, 3.606284E-23, 0.000000E+00 / DATA ( ECS_REF( IH2O2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 9.353273E-21, 5.771023E-21, 3.923019E-21, 2.721922E-21, & 1.138124E-21, 3.606284E-23, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IH2O2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999907E-01, 0.000000E+00 / DATA ( EQY_REF( IH2O2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999907E-01, 0.000000E+00 / DATA ( EQY_REF( IH2O2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999907E-01, 0.000000E+00 / C...HCHO_R_SAPRC99 C.. HCHO + HV = HCO + H C.. SAPRC-99 Photolysis data. Supplied by William P. L. Carter. C.. Created from PhotDat.xls on 29-Jan-2000 10:07 C... reference temperatures (K) DATA ( TEMP_REF( ITT, IHCHO_R_SAPRC99 ), ITT=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IHCHO_R_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 3.131405E-20, 3.361006E-20, 1.633912E-20, 3.089530E-20, & 1.387140E-20, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( IHCHO_R_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 3.131405E-20, 3.361006E-20, 1.633912E-20, 3.089530E-20, & 1.387140E-20, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( IHCHO_R_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 3.131405E-20, 3.361006E-20, 1.633912E-20, 3.089530E-20, & 1.387140E-20, 0.000000E+00, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IHCHO_R_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 7.530258E-01, 7.793078E-01, 7.694797E-01, 6.766384E-01, & 2.101625E-01, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( IHCHO_R_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 7.530258E-01, 7.793078E-01, 7.694797E-01, 6.766384E-01, & 2.101625E-01, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( IHCHO_R_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 7.530258E-01, 7.793078E-01, 7.694797E-01, 6.766384E-01, & 2.101625E-01, 0.000000E+00, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IHCHO_R_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 2.360343E-20, 2.619576E-20, 1.264516E-20, 2.110715E-20, & 3.830308E-21, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( IHCHO_R_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 2.360343E-20, 2.619576E-20, 1.264516E-20, 2.110715E-20, & 3.830308E-21, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( IHCHO_R_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 2.360343E-20, 2.619576E-20, 1.264516E-20, 2.110715E-20, & 3.830308E-21, 0.000000E+00, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IHCHO_R_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 7.537647E-01, 7.794024E-01, 7.739189E-01, 6.831833E-01, & 2.761300E-01, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( IHCHO_R_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 7.537647E-01, 7.794024E-01, 7.739189E-01, 6.831833E-01, & 2.761300E-01, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( IHCHO_R_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 7.537647E-01, 7.794024E-01, 7.739189E-01, 6.831833E-01, & 2.761300E-01, 0.000000E+00, 0.000000E+00 / C...HCHO_M_SAPRC99 C.. HCHO + HV = H2 + CO C.. SAPRC-99 Photolysis data. Supplied by William P. L. Carter. C.. Created from PhotDat.xls on 29-Jan-2000 10:07 C... reference temperatures (K) DATA ( TEMP_REF( ITT, IHCHO_M_SAPRC99 ), ITT=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IHCHO_M_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 3.131405E-20, 3.361006E-20, 1.633912E-20, 3.089530E-20, & 1.653419E-20, 7.220988E-22, 0.000000E+00 / DATA ( CS_REF( IHCHO_M_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 3.131405E-20, 3.361006E-20, 1.633912E-20, 3.089530E-20, & 1.653419E-20, 7.220988E-22, 0.000000E+00 / DATA ( CS_REF( IHCHO_M_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 3.131405E-20, 3.361006E-20, 1.633912E-20, 3.089530E-20, & 1.653419E-20, 7.220988E-22, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IHCHO_M_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 2.261845E-01, 2.137268E-01, 2.298765E-01, 3.233059E-01, & 5.540997E-01, 2.985818E-02, 0.000000E+00 / DATA ( QY_REF( IHCHO_M_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 2.261845E-01, 2.137268E-01, 2.298765E-01, 3.233059E-01, & 5.540997E-01, 2.985818E-02, 0.000000E+00 / DATA ( QY_REF( IHCHO_M_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 2.261845E-01, 2.137268E-01, 2.298765E-01, 3.233059E-01, & 5.540997E-01, 2.985818E-02, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IHCHO_M_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 7.068871E-21, 7.200778E-21, 3.680172E-21, 9.787415E-21, & 9.269199E-21, 1.144566E-22, 0.000000E+00 / DATA ( ECS_REF( IHCHO_M_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 7.068871E-21, 7.200778E-21, 3.680172E-21, 9.787415E-21, & 9.269199E-21, 1.144566E-22, 0.000000E+00 / DATA ( ECS_REF( IHCHO_M_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 7.068871E-21, 7.200778E-21, 3.680172E-21, 9.787415E-21, & 9.269199E-21, 1.144566E-22, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IHCHO_M_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 2.257411E-01, 2.142447E-01, 2.252368E-01, 3.167930E-01, & 5.606080E-01, 1.585055E-01, 0.000000E+00 / DATA ( EQY_REF( IHCHO_M_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 2.257411E-01, 2.142447E-01, 2.252368E-01, 3.167930E-01, & 5.606080E-01, 1.585055E-01, 0.000000E+00 / DATA ( EQY_REF( IHCHO_M_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 2.257411E-01, 2.142447E-01, 2.252368E-01, 3.167930E-01, & 5.606080E-01, 1.585055E-01, 0.000000E+00 / C...CCHO_R_SAPRC99 C.. CCHO + HV = CH3 + CHO C.. SAPRC-99 Photolysis data. Supplied by William P. L. Carter. C.. Created from PhotDat.xls on 29-Jan-2000 10:07 C... reference temperatures (K) DATA ( TEMP_REF( ITT, ICCHO_R_SAPRC99 ), ITT=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( ICCHO_R_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 4.432585E-20, 3.717942E-20, 2.933100E-20, 2.104718E-20, & 3.715620E-21, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( ICCHO_R_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 4.432585E-20, 3.717942E-20, 2.933100E-20, 2.104718E-20, & 3.715620E-21, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( ICCHO_R_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 4.432585E-20, 3.717942E-20, 2.933100E-20, 2.104718E-20, & 3.715620E-21, 0.000000E+00, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( ICCHO_R_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 4.839485E-01, 3.902035E-01, 2.845210E-01, 1.538490E-01, & 1.409418E-02, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( ICCHO_R_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 4.839485E-01, 3.902035E-01, 2.845210E-01, 1.538490E-01, & 1.409418E-02, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( ICCHO_R_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 4.839485E-01, 3.902035E-01, 2.845210E-01, 1.538490E-01, & 1.409418E-02, 0.000000E+00, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( ICCHO_R_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 2.147745E-20, 1.461039E-20, 8.426933E-21, 3.330087E-21, & 1.731238E-22, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( ICCHO_R_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 2.147745E-20, 1.461039E-20, 8.426933E-21, 3.330087E-21, & 1.731238E-22, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( ICCHO_R_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 2.147745E-20, 1.461039E-20, 8.426933E-21, 3.330087E-21, & 1.731238E-22, 0.000000E+00, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( ICCHO_R_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 4.845356E-01, 3.929698E-01, 2.873047E-01, 1.582202E-01, & 4.659352E-02, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( ICCHO_R_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 4.845356E-01, 3.929698E-01, 2.873047E-01, 1.582202E-01, & 4.659352E-02, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( ICCHO_R_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 4.845356E-01, 3.929698E-01, 2.873047E-01, 1.582202E-01, & 4.659352E-02, 0.000000E+00, 0.000000E+00 / C...C2CHO_SAPRC99 C.. C2CHO + HV = C2H5. + CHO. C.. SAPRC-99 Photolysis data. Supplied by William P. L. Carter. C.. Created from PhotDat.xls on 29-Jan-2000 10:07 C... reference temperatures (K) DATA ( TEMP_REF( ITT, IC2CHO_SAPRC99 ), ITT=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IC2CHO_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 3.113497E-20, 4.634685E-20, 3.579653E-20, 2.441747E-20, & 5.808840E-21, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( IC2CHO_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 3.113497E-20, 4.634685E-20, 3.579653E-20, 2.441747E-20, & 5.808840E-21, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( IC2CHO_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 3.113497E-20, 4.634685E-20, 3.579653E-20, 2.441747E-20, & 5.808840E-21, 0.000000E+00, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IC2CHO_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 5.112440E-01, 7.954015E-01, 5.951666E-01, 4.312301E-01, & 1.520067E-01, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( IC2CHO_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 5.112440E-01, 7.954015E-01, 5.951666E-01, 4.312301E-01, & 1.520067E-01, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( IC2CHO_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 5.112440E-01, 7.954015E-01, 5.951666E-01, 4.312301E-01, & 1.520067E-01, 0.000000E+00, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IC2CHO_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 2.730259E-20, 3.713793E-20, 2.133678E-20, 1.077363E-20, & 1.383935E-21, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( IC2CHO_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 2.730259E-20, 3.713793E-20, 2.133678E-20, 1.077363E-20, & 1.383935E-21, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( IC2CHO_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 2.730259E-20, 3.713793E-20, 2.133678E-20, 1.077363E-20, & 1.383935E-21, 0.000000E+00, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IC2CHO_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 8.769110E-01, 8.013043E-01, 5.960574E-01, 4.412262E-01, & 2.382463E-01, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( IC2CHO_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 8.769110E-01, 8.013043E-01, 5.960574E-01, 4.412262E-01, & 2.382463E-01, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( IC2CHO_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 8.769110E-01, 8.013043E-01, 5.960574E-01, 4.412262E-01, & 2.382463E-01, 0.000000E+00, 0.000000E+00 / C...ACETONE_SAPRC99 C.. ACETONE + HV = CH3CO. + CH3. C.. SAPRC-99 Photolysis data. Supplied by William P. L. Carter. C.. Created from PhotDat.xls on 29-Jan-2000 10:07 C... reference temperatures (K) DATA ( TEMP_REF( ITT, IACETONE_SAPRC99 ), ITT=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IACETONE_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 3.565268E-20, 2.347504E-20, 1.411215E-20, 7.530071E-21, & 8.363713E-22, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( IACETONE_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 3.565268E-20, 2.347504E-20, 1.411215E-20, 7.530071E-21, & 8.363713E-22, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( IACETONE_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 3.565268E-20, 2.347504E-20, 1.411215E-20, 7.530071E-21, & 8.363713E-22, 0.000000E+00, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IACETONE_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 2.242423E-01, 1.142597E-01, 5.803530E-02, 2.870068E-02, & 4.434784E-03, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( IACETONE_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 2.242423E-01, 1.142597E-01, 5.803530E-02, 2.870068E-02, & 4.434784E-03, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( IACETONE_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 2.242423E-01, 1.142597E-01, 5.803530E-02, 2.870068E-02, & 4.434784E-03, 0.000000E+00, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IACETONE_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 8.097968E-21, 2.778263E-21, 8.357590E-22, 2.321768E-22, & 8.431113E-24, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( IACETONE_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 8.097968E-21, 2.778263E-21, 8.357590E-22, 2.321768E-22, & 8.431113E-24, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( IACETONE_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 8.097968E-21, 2.778263E-21, 8.357590E-22, 2.321768E-22, & 8.431113E-24, 0.000000E+00, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IACETONE_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 2.271349E-01, 1.183496E-01, 5.922266E-02, 3.083328E-02, & 1.008059E-02, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( IACETONE_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 2.271349E-01, 1.183496E-01, 5.922266E-02, 3.083328E-02, & 1.008059E-02, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( IACETONE_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 2.271349E-01, 1.183496E-01, 5.922266E-02, 3.083328E-02, & 1.008059E-02, 0.000000E+00, 0.000000E+00 / C...KETONE_SAPRC99 C.. Methyl Ethyl Ketone Absorption Cross Sections C.. SAPRC-99 Photolysis data. Supplied by William P. L. Carter. C.. Created from PhotDat.xls on 29-Jan-2000 10:07 C... reference temperatures (K) DATA ( TEMP_REF( ITT, IKETONE_SAPRC99 ), ITT=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IKETONE_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 4.255143E-20, 2.715759E-20, 1.567302E-20, 7.669485E-21, & 7.479172E-22, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( IKETONE_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 4.255143E-20, 2.715759E-20, 1.567302E-20, 7.669485E-21, & 7.479172E-22, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( IKETONE_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 4.255143E-20, 2.715759E-20, 1.567302E-20, 7.669485E-21, & 7.479172E-22, 0.000000E+00, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IKETONE_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.169248E-01, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( IKETONE_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.169248E-01, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( IKETONE_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.169248E-01, 0.000000E+00, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IKETONE_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 4.255143E-20, 2.715759E-20, 1.567302E-20, 7.669485E-21, & 7.479158E-22, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( IKETONE_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 4.255143E-20, 2.715759E-20, 1.567302E-20, 7.669485E-21, & 7.479158E-22, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( IKETONE_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 4.255143E-20, 2.715759E-20, 1.567302E-20, 7.669485E-21, & 7.479158E-22, 0.000000E+00, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IKETONE_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.999980E-01, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( IKETONE_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.999980E-01, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( IKETONE_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.999980E-01, 0.000000E+00, 0.000000E+00 / C...COOH_SAPRC99 C.. CH3OOH + HV = PRODUCTS C.. SAPRC-99 Photolysis data. Supplied by William P. L. Carter. C.. Created from PhotDat.xls on 29-Jan-2000 10:07 C... reference temperatures (K) DATA ( TEMP_REF( ITT, ICOOH_SAPRC99 ), ITT=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( ICOOH_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 5.623467E-21, 3.524637E-21, 2.410332E-21, 1.699590E-21, & 7.230011E-22, 5.395106E-23, 0.000000E+00 / DATA ( CS_REF( ICOOH_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 5.623467E-21, 3.524637E-21, 2.410332E-21, 1.699590E-21, & 7.230011E-22, 5.395106E-23, 0.000000E+00 / DATA ( CS_REF( ICOOH_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 5.623467E-21, 3.524637E-21, 2.410332E-21, 1.699590E-21, & 7.230011E-22, 5.395106E-23, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( ICOOH_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 3.016710E-01, 0.000000E+00 / DATA ( QY_REF( ICOOH_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 3.016710E-01, 0.000000E+00 / DATA ( QY_REF( ICOOH_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 3.016710E-01, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( ICOOH_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 5.623467E-21, 3.524637E-21, 2.410332E-21, 1.699590E-21, & 7.230011E-22, 5.395094E-23, 0.000000E+00 / DATA ( ECS_REF( ICOOH_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 5.623467E-21, 3.524637E-21, 2.410332E-21, 1.699590E-21, & 7.230011E-22, 5.395094E-23, 0.000000E+00 / DATA ( ECS_REF( ICOOH_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 5.623467E-21, 3.524637E-21, 2.410332E-21, 1.699590E-21, & 7.230011E-22, 5.395094E-23, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( ICOOH_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999977E-01, 0.000000E+00 / DATA ( EQY_REF( ICOOH_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999977E-01, 0.000000E+00 / DATA ( EQY_REF( ICOOH_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999977E-01, 0.000000E+00 / C...GLY_R_SAPRC99 C.. Glyoxal + hv = 2 HCO C.. SAPRC-99 Photolysis data. Supplied by William P. L. Carter. C.. Created from PhotDat.xls on 29-Jan-2000 10:07 C... reference temperatures (K) DATA ( TEMP_REF( ITT, IGLY_R_SAPRC99 ), ITT=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IGLY_R_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 3.307063E-20, 3.064664E-20, 2.759451E-20, 2.066151E-20, & 6.469825E-21, 2.034957E-20, 6.237771E-22 / DATA ( CS_REF( IGLY_R_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 3.307063E-20, 3.064664E-20, 2.759451E-20, 2.066151E-20, & 6.469825E-21, 2.034957E-20, 6.237771E-22 / DATA ( CS_REF( IGLY_R_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 3.307063E-20, 3.064664E-20, 2.759451E-20, 2.066151E-20, & 6.469825E-21, 2.034957E-20, 6.237771E-22 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IGLY_R_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 5.446526E-01, 0.000000E+00 / DATA ( QY_REF( IGLY_R_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 5.446526E-01, 0.000000E+00 / DATA ( QY_REF( IGLY_R_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 5.446526E-01, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IGLY_R_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 3.307063E-20, 3.064664E-20, 2.759451E-20, 2.066151E-20, & 6.469825E-21, 4.361282E-21, 0.000000E+00 / DATA ( ECS_REF( IGLY_R_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 3.307063E-20, 3.064664E-20, 2.759451E-20, 2.066151E-20, & 6.469825E-21, 4.361282E-21, 0.000000E+00 / DATA ( ECS_REF( IGLY_R_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 3.307063E-20, 3.064664E-20, 2.759451E-20, 2.066151E-20, & 6.469825E-21, 4.361282E-21, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IGLY_R_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 2.143182E-01, 0.000000E+00 / DATA ( EQY_REF( IGLY_R_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 2.143182E-01, 0.000000E+00 / DATA ( EQY_REF( IGLY_R_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 2.143182E-01, 0.000000E+00 / C...GLY_ABS_SAPRC99 C.. Glyoxal Absorption Cross Sections C.. SAPRC-99 Photolysis data. Supplied by William P. L. Carter. C.. Created from PhotDat.xls on 29-Jan-2000 10:07 C... reference temperatures (K) DATA ( TEMP_REF( ITT, IGLY_ABS_SAPRC99 ), ITT=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IGLY_ABS_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 3.307063E-20, 3.064664E-20, 2.759451E-20, 2.066151E-20, & 6.469825E-21, 2.034957E-20, 7.746852E-21 / DATA ( CS_REF( IGLY_ABS_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 3.307063E-20, 3.064664E-20, 2.759451E-20, 2.066151E-20, & 6.469825E-21, 2.034957E-20, 7.746852E-21 / DATA ( CS_REF( IGLY_ABS_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 3.307063E-20, 3.064664E-20, 2.759451E-20, 2.066151E-20, & 6.469825E-21, 2.034957E-20, 7.746852E-21 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IGLY_ABS_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 9.534627E-02 / DATA ( QY_REF( IGLY_ABS_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 9.534627E-02 / DATA ( QY_REF( IGLY_ABS_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 9.534627E-02 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IGLY_ABS_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 3.307063E-20, 3.064664E-20, 2.759451E-20, 2.066151E-20, & 6.469825E-21, 2.034957E-20, 7.746850E-21 / DATA ( ECS_REF( IGLY_ABS_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 3.307063E-20, 3.064664E-20, 2.759451E-20, 2.066151E-20, & 6.469825E-21, 2.034957E-20, 7.746850E-21 / DATA ( ECS_REF( IGLY_ABS_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 3.307063E-20, 3.064664E-20, 2.759451E-20, 2.066151E-20, & 6.469825E-21, 2.034957E-20, 7.746850E-21 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IGLY_ABS_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 9.999998E-01 / DATA ( EQY_REF( IGLY_ABS_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 9.999998E-01 / DATA ( EQY_REF( IGLY_ABS_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 9.999998E-01 / C...MGLY_ADJ_SAPRC99 C.. MGLY + HV = PRODUCTS C.. SAPRC-99 Photolysis data. Supplied by William P. L. Carter. C.. Created from PhotDat.xls on 29-Jan-2000 10:07 C... reference temperatures (K) DATA ( TEMP_REF( ITT, IMGLY_ADJ_SAPRC99 ), ITT=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IMGLY_ADJ_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 4.414883E-20, 3.510057E-20, 2.364220E-20, 1.814699E-20, & 5.998245E-21, 3.697535E-20, 1.477384E-21 / DATA ( CS_REF( IMGLY_ADJ_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 4.414883E-20, 3.510057E-20, 2.364220E-20, 1.814699E-20, & 5.998245E-21, 3.697535E-20, 1.477384E-21 / DATA ( CS_REF( IMGLY_ADJ_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 4.414883E-20, 3.510057E-20, 2.364220E-20, 1.814699E-20, & 5.998245E-21, 3.697535E-20, 1.477384E-21 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IMGLY_ADJ_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.992940E-01, 3.801420E-01, 0.000000E+00 / DATA ( QY_REF( IMGLY_ADJ_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.992940E-01, 3.801420E-01, 0.000000E+00 / DATA ( QY_REF( IMGLY_ADJ_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.992940E-01, 3.801420E-01, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IMGLY_ADJ_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 4.414883E-20, 3.510057E-20, 2.364220E-20, 1.814699E-20, & 5.996184E-21, 6.110818E-21, 0.000000E+00 / DATA ( ECS_REF( IMGLY_ADJ_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 4.414883E-20, 3.510057E-20, 2.364220E-20, 1.814699E-20, & 5.996184E-21, 6.110818E-21, 0.000000E+00 / DATA ( ECS_REF( IMGLY_ADJ_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 4.414883E-20, 3.510057E-20, 2.364220E-20, 1.814699E-20, & 5.996184E-21, 6.110818E-21, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IMGLY_ADJ_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.996565E-01, 1.652673E-01, 0.000000E+00 / DATA ( EQY_REF( IMGLY_ADJ_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.996565E-01, 1.652673E-01, 0.000000E+00 / DATA ( EQY_REF( IMGLY_ADJ_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.996565E-01, 1.652673E-01, 0.000000E+00 / C...BACL_ADJ_SAPRC99 C.. BACL + HV = PRODUCTS C.. SAPRC-99 Photolysis data. Supplied by William P. L. Carter. C.. Created from PhotDat.xls on 29-Jan-2000 10:07 C... reference temperatures (K) DATA ( TEMP_REF( ITT, IBACL_ADJ_SAPRC99 ), ITT=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IBACL_ADJ_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 2.617461E-20, 1.589010E-20, 9.041891E-21, 6.004446E-21, & 4.676509E-21, 3.224516E-20, 4.675101E-21 / DATA ( CS_REF( IBACL_ADJ_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 2.617461E-20, 1.589010E-20, 9.041891E-21, 6.004446E-21, & 4.676509E-21, 3.224516E-20, 4.675101E-21 / DATA ( CS_REF( IBACL_ADJ_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 2.617461E-20, 1.589010E-20, 9.041891E-21, 6.004446E-21, & 4.676509E-21, 3.224516E-20, 4.675101E-21 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IBACL_ADJ_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 5.303439E-01, 9.162503E-04 / DATA ( QY_REF( IBACL_ADJ_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 5.303439E-01, 9.162503E-04 / DATA ( QY_REF( IBACL_ADJ_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 5.303439E-01, 9.162503E-04 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IBACL_ADJ_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 2.617461E-20, 1.589010E-20, 9.041891E-21, 6.004446E-21, & 4.676509E-21, 1.215315E-20, 6.213340E-23 / DATA ( ECS_REF( IBACL_ADJ_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 2.617461E-20, 1.589010E-20, 9.041891E-21, 6.004446E-21, & 4.676509E-21, 1.215315E-20, 6.213340E-23 / DATA ( ECS_REF( IBACL_ADJ_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 2.617461E-20, 1.589010E-20, 9.041891E-21, 6.004446E-21, & 4.676509E-21, 1.215315E-20, 6.213340E-23 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IBACL_ADJ_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 3.768983E-01, 1.329028E-02 / DATA ( EQY_REF( IBACL_ADJ_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 3.768983E-01, 1.329028E-02 / DATA ( EQY_REF( IBACL_ADJ_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 3.768983E-01, 1.329028E-02 / C...BZCHO_SAPRC99 C.. Benzaldehyde absorbtion coefs in n-Hexane C.. SAPRC-99 Photolysis data. Supplied by William P. L. Carter. C.. Created from PhotDat.xls on 29-Jan-2000 10:07 C... reference temperatures (K) DATA ( TEMP_REF( ITT, IBZCHO_SAPRC99 ), ITT=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IBZCHO_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 9.271380E-20, 6.609055E-20, 6.730978E-20, & 8.248206E-20, 2.821755E-20, 0.000000E+00 / DATA ( CS_REF( IBZCHO_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 9.271380E-20, 6.609055E-20, 6.730978E-20, & 8.248206E-20, 2.821755E-20, 0.000000E+00 / DATA ( CS_REF( IBZCHO_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 9.271380E-20, 6.609055E-20, 6.730978E-20, & 8.248206E-20, 2.821755E-20, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IBZCHO_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 9.366284E-01, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 5.153002E-01, 0.000000E+00 / DATA ( QY_REF( IBZCHO_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 9.366284E-01, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 5.153002E-01, 0.000000E+00 / DATA ( QY_REF( IBZCHO_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 9.366284E-01, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 5.153002E-01, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IBZCHO_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 9.247798E-20, 6.609055E-20, 6.730978E-20, & 8.248206E-20, 2.821755E-20, 0.000000E+00 / DATA ( ECS_REF( IBZCHO_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 9.247798E-20, 6.609055E-20, 6.730978E-20, & 8.248206E-20, 2.821755E-20, 0.000000E+00 / DATA ( ECS_REF( IBZCHO_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 9.247798E-20, 6.609055E-20, 6.730978E-20, & 8.248206E-20, 2.821755E-20, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IBZCHO_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 9.974566E-01, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999997E-01, 0.000000E+00 / DATA ( EQY_REF( IBZCHO_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 9.974566E-01, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999997E-01, 0.000000E+00 / DATA ( EQY_REF( IBZCHO_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 9.974566E-01, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999997E-01, 0.000000E+00 / C...ACROLEIN_SAPRC99 C.. Absorption cross sections for Acrolein. C.. SAPRC-99 Photolysis data. Supplied by William P. L. Carter. C.. Created from PhotDat.xls on 29-Jan-2000 10:07 C... reference temperatures (K) DATA ( TEMP_REF( ITT, IACROLEIN_SAPRC99 ), ITT=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IACROLEIN_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 2.119557E-20, 3.145168E-20, 4.081551E-20, 4.837758E-20, & 5.750342E-20, 1.189678E-20, 0.000000E+00 / DATA ( CS_REF( IACROLEIN_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 2.119557E-20, 3.145168E-20, 4.081551E-20, 4.837758E-20, & 5.750342E-20, 1.189678E-20, 0.000000E+00 / DATA ( CS_REF( IACROLEIN_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 2.119557E-20, 3.145168E-20, 4.081551E-20, 4.837758E-20, & 5.750342E-20, 1.189678E-20, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IACROLEIN_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 4.565694E-01, 0.000000E+00 / DATA ( QY_REF( IACROLEIN_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 4.565694E-01, 0.000000E+00 / DATA ( QY_REF( IACROLEIN_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 4.565694E-01, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IACROLEIN_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 2.119557E-20, 3.145168E-20, 4.081551E-20, 4.837758E-20, & 5.750342E-20, 1.189678E-20, 0.000000E+00 / DATA ( ECS_REF( IACROLEIN_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 2.119557E-20, 3.145168E-20, 4.081551E-20, 4.837758E-20, & 5.750342E-20, 1.189678E-20, 0.000000E+00 / DATA ( ECS_REF( IACROLEIN_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 2.119557E-20, 3.145168E-20, 4.081551E-20, 4.837758E-20, & 5.750342E-20, 1.189678E-20, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IACROLEIN_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 0.000000E+00 / DATA ( EQY_REF( IACROLEIN_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 0.000000E+00 / DATA ( EQY_REF( IACROLEIN_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 0.000000E+00 / C...IC3ONO2_SAPRC99 C.. I-C3H7ONO2 + HV = PRODUCTS C.. SAPRC-99 Photolysis data. Supplied by William P. L. Carter. C.. Created from PhotDat.xls on 29-Jan-2000 10:07 C... reference temperatures (K) DATA ( TEMP_REF( ITT, IIC3ONO2_SAPRC99 ), ITT=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IIC3ONO2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.255485E-20, 6.352151E-21, 3.286583E-21, 1.709812E-21, & 2.667190E-22, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( IIC3ONO2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.255485E-20, 6.352151E-21, 3.286583E-21, 1.709812E-21, & 2.667190E-22, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( IIC3ONO2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.255485E-20, 6.352151E-21, 3.286583E-21, 1.709812E-21, & 2.667190E-22, 0.000000E+00, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IIC3ONO2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 5.754197E-01, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( IIC3ONO2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 5.754197E-01, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( IIC3ONO2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 5.754197E-01, 0.000000E+00, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IIC3ONO2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.255485E-20, 6.352151E-21, 3.286583E-21, 1.709812E-21, & 2.667181E-22, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( IIC3ONO2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.255485E-20, 6.352151E-21, 3.286583E-21, 1.709812E-21, & 2.667181E-22, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( IIC3ONO2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.255485E-20, 6.352151E-21, 3.286583E-21, 1.709812E-21, & 2.667181E-22, 0.000000E+00, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IIC3ONO2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.999965E-01, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( IIC3ONO2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.999965E-01, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( IIC3ONO2_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.999965E-01, 0.000000E+00, 0.000000E+00 / C...MGLY_ABS_SAPRC99 C.. Methyl Glyoxal Absorption Cross Sections C.. SAPRC-99 Photolysis data. Supplied by William P. L. Carter. C.. Created from PhotDat.xls on 29-Jan-2000 10:07 C... reference temperatures (K) DATA ( TEMP_REF( ITT, IMGLY_ABS_SAPRC99 ), ITT=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IMGLY_ABS_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 4.414883E-20, 3.510057E-20, 2.364220E-20, 1.814699E-20, & 5.998245E-21, 3.697535E-20, 7.930062E-21 / DATA ( CS_REF( IMGLY_ABS_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 4.414883E-20, 3.510057E-20, 2.364220E-20, 1.814699E-20, & 5.998245E-21, 3.697535E-20, 7.930062E-21 / DATA ( CS_REF( IMGLY_ABS_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 4.414883E-20, 3.510057E-20, 2.364220E-20, 1.814699E-20, & 5.998245E-21, 3.697535E-20, 7.930062E-21 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IMGLY_ABS_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 1.689096E-01 / DATA ( QY_REF( IMGLY_ABS_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 1.689096E-01 / DATA ( QY_REF( IMGLY_ABS_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 1.689096E-01 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IMGLY_ABS_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 4.414883E-20, 3.510057E-20, 2.364220E-20, 1.814699E-20, & 5.998245E-21, 3.697535E-20, 7.930062E-21 / DATA ( ECS_REF( IMGLY_ABS_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 4.414883E-20, 3.510057E-20, 2.364220E-20, 1.814699E-20, & 5.998245E-21, 3.697535E-20, 7.930062E-21 / DATA ( ECS_REF( IMGLY_ABS_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 4.414883E-20, 3.510057E-20, 2.364220E-20, 1.814699E-20, & 5.998245E-21, 3.697535E-20, 7.930062E-21 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IMGLY_ABS_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 1.000000E+00 / DATA ( EQY_REF( IMGLY_ABS_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 1.000000E+00 / DATA ( EQY_REF( IMGLY_ABS_SAPRC99, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 1.000000E+00 / C...O3_O3P_IUPAC04 C.. O3 + HV = O(3P) + O2 C.. From IUPAC Subcommittee on Gas Kinetic Data Evaluation C.. Data Sheet POx2, updated 2nd October 2001 C.. Website: http://www.iupac-kinetic.ch.cam.ac.uk/ C... reference temperatures (K) DATA ( TEMP_REF( ITT, IO3_O3P_IUPAC04 ), ITT=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IO3_O3P_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 8.237238E-19, 2.618511E-19, 1.031290E-19, 4.161018E-20, & 6.126439E-21, 4.250345E-23, 1.550664E-21 / DATA ( CS_REF( IO3_O3P_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 8.237238E-19, 2.618511E-19, 1.031290E-19, 4.161018E-20, & 6.126439E-21, 4.250345E-23, 1.550664E-21 / DATA ( CS_REF( IO3_O3P_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 8.237238E-19, 2.618511E-19, 1.031290E-19, 4.161018E-20, & 6.126439E-21, 4.250345E-23, 1.550664E-21 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IO3_O3P_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E-01, 1.070961E-01, 4.640082E-01, 7.781807E-01, & 9.134409E-01, 9.634614E-01, 6.920660E-01 / DATA ( QY_REF( IO3_O3P_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E-01, 1.070961E-01, 4.640082E-01, 7.781807E-01, & 9.134409E-01, 9.634614E-01, 6.920660E-01 / DATA ( QY_REF( IO3_O3P_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E-01, 1.070961E-01, 4.640082E-01, 7.781807E-01, & 9.134409E-01, 9.634614E-01, 6.920660E-01 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IO3_O3P_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 8.237238E-20, 2.744997E-20, 4.605586E-20, 3.200319E-20, & 5.504526E-21, 3.927087E-23, 1.550664E-21 / DATA ( ECS_REF( IO3_O3P_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 8.237238E-20, 2.744997E-20, 4.605586E-20, 3.200319E-20, & 5.504526E-21, 3.927087E-23, 1.550664E-21 / DATA ( ECS_REF( IO3_O3P_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 8.237238E-20, 2.744997E-20, 4.605586E-20, 3.200319E-20, & 5.504526E-21, 3.927087E-23, 1.550664E-21 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IO3_O3P_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E-01, 1.048305E-01, 4.465847E-01, 7.691193E-01, & 8.984871E-01, 9.239455E-01, 9.999999E-01 / DATA ( EQY_REF( IO3_O3P_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E-01, 1.048305E-01, 4.465847E-01, 7.691193E-01, & 8.984871E-01, 9.239455E-01, 9.999999E-01 / DATA ( EQY_REF( IO3_O3P_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E-01, 1.048305E-01, 4.465847E-01, 7.691193E-01, & 8.984871E-01, 9.239455E-01, 9.999999E-01 / C...O3_O1D_IUPAC04 C.. O3 + HV = O(1D) + O2 C.. From IUPAC Subcommittee on Gas Kinetic Data Evaluation C.. Data Sheet POx2, updated 2nd October 2001 C.. Website: http://www.iupac-kinetic.ch.cam.ac.uk/ C... reference temperatures (K) DATA ( TEMP_REF( ITT, IO3_O1D_IUPAC04 ), ITT=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IO3_O1D_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 8.237238E-19, 2.618511E-19, 1.031290E-19, 4.161018E-20, & 6.126439E-21, 4.040724E-23, 0.000000E+00 / DATA ( CS_REF( IO3_O1D_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 8.237238E-19, 2.618511E-19, 1.031290E-19, 4.161018E-20, & 6.126439E-21, 4.040724E-23, 0.000000E+00 / DATA ( CS_REF( IO3_O1D_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 8.237238E-19, 2.618511E-19, 1.031290E-19, 4.161018E-20, & 6.126439E-21, 4.040724E-23, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IO3_O1D_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 9.000000E-01, 8.929039E-01, 5.359917E-01, 2.218193E-01, & 8.655906E-02, 1.629167E-02, 0.000000E+00 / DATA ( QY_REF( IO3_O1D_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 9.000000E-01, 8.929039E-01, 5.359917E-01, 2.218193E-01, & 8.655906E-02, 1.629167E-02, 0.000000E+00 / DATA ( QY_REF( IO3_O1D_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 9.000000E-01, 8.929039E-01, 5.359917E-01, 2.218193E-01, & 8.655906E-02, 1.629167E-02, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IO3_O1D_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 7.413514E-19, 2.344011E-19, 5.707319E-20, 9.606989E-21, & 6.219128E-22, 3.232562E-24, 0.000000E+00 / DATA ( ECS_REF( IO3_O1D_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 7.413514E-19, 2.344011E-19, 5.707319E-20, 9.606989E-21, & 6.219128E-22, 3.232562E-24, 0.000000E+00 / DATA ( ECS_REF( IO3_O1D_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 7.413514E-19, 2.344011E-19, 5.707319E-20, 9.606989E-21, & 6.219128E-22, 3.232562E-24, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IO3_O1D_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 9.000000E-01, 8.951695E-01, 5.534152E-01, 2.308807E-01, & 1.015129E-01, 7.999958E-02, 0.000000E+00 / DATA ( EQY_REF( IO3_O1D_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 9.000000E-01, 8.951695E-01, 5.534152E-01, 2.308807E-01, & 1.015129E-01, 7.999958E-02, 0.000000E+00 / DATA ( EQY_REF( IO3_O1D_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 9.000000E-01, 8.951695E-01, 5.534152E-01, 2.308807E-01, & 1.015129E-01, 7.999958E-02, 0.000000E+00 / C...HONO_IUPAC04 C.. HONO + HV = HO + NO C.. From IUPAC Subcommittee on Gas Kinetic Data Evaluation C.. Data Sheet PNOx1_HONO, updated 16th July 2001 C.. Website: http://www.iupac-kinetic.ch.cam.ac.uk/ C... reference temperatures (K) DATA ( TEMP_REF( ITT, IHONO_IUPAC04 ), ITT=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IHONO_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 4.780390E-21, 1.602461E-20, 3.132017E-20, & 9.264930E-20, 7.356076E-20, 0.000000E+00 / DATA ( CS_REF( IHONO_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 4.780390E-21, 1.602461E-20, 3.132017E-20, & 9.264930E-20, 7.356076E-20, 0.000000E+00 / DATA ( CS_REF( IHONO_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 4.780390E-21, 1.602461E-20, 3.132017E-20, & 9.264930E-20, 7.356076E-20, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IHONO_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 8.334302E-01, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 7.181830E-01, 0.000000E+00 / DATA ( QY_REF( IHONO_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 8.334302E-01, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 7.181830E-01, 0.000000E+00 / DATA ( QY_REF( IHONO_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 8.334302E-01, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 7.181830E-01, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IHONO_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 4.780352E-21, 1.602461E-20, 3.132017E-20, & 9.264930E-20, 7.356075E-20, 0.000000E+00 / DATA ( ECS_REF( IHONO_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 4.780352E-21, 1.602461E-20, 3.132017E-20, & 9.264930E-20, 7.356075E-20, 0.000000E+00 / DATA ( ECS_REF( IHONO_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 4.780352E-21, 1.602461E-20, 3.132017E-20, & 9.264930E-20, 7.356075E-20, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IHONO_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 9.999921E-01, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999999E-01, 0.000000E+00 / DATA ( EQY_REF( IHONO_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 9.999921E-01, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999999E-01, 0.000000E+00 / DATA ( EQY_REF( IHONO_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 0.000000E+00, 9.999921E-01, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999999E-01, 0.000000E+00 / C...HO2NO2_IUPAC04 C.. HOONO2 + HV = products C.. From IUPAC Subcommittee on Gas Kinetic Data Evaluation C.. Data Sheet PNOx3_HO2NO2, updated 16th July 2001 C.. Website: http://www.iupac-kinetic.ch.cam.ac.uk/ C... reference temperatures (K) DATA ( TEMP_REF( ITT, IHO2NO2_IUPAC04 ), ITT=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IHO2NO2_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 2.591182E-20, 1.079995E-20, 5.527955E-21, 3.457478E-21, & 6.327416E-22, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( IHO2NO2_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 2.591182E-20, 1.079995E-20, 5.527955E-21, 3.457478E-21, & 6.327416E-22, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( IHO2NO2_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 2.591182E-20, 1.079995E-20, 5.527955E-21, 3.457478E-21, & 6.327416E-22, 0.000000E+00, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IHO2NO2_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 5.754197E-01, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( IHO2NO2_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 5.754197E-01, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( IHO2NO2_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 5.754197E-01, 0.000000E+00, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IHO2NO2_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 2.591182E-20, 1.079995E-20, 5.527955E-21, 3.457478E-21, & 6.327393E-22, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( IHO2NO2_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 2.591182E-20, 1.079995E-20, 5.527955E-21, 3.457478E-21, & 6.327393E-22, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( IHO2NO2_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 2.591182E-20, 1.079995E-20, 5.527955E-21, 3.457478E-21, & 6.327393E-22, 0.000000E+00, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IHO2NO2_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.999964E-01, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( IHO2NO2_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.999964E-01, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( IHO2NO2_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.999964E-01, 0.000000E+00, 0.000000E+00 / C...HNO3_IUPAC04 C.. HONO2 + HV = OH + NO2 C.. From IUPAC Subcommittee on Gas Kinetic Data Evaluation C.. Data Sheet PNOx2_HONO2, updated 16th July 2001 C.. Website: http://www.iupac-kinetic.ch.cam.ac.uk/ C... reference temperatures (K) DATA ( TEMP_REF( ITT, IHNO3_IUPAC04 ), ITT=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IHNO3_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 4.358854E-21, 1.954560E-21, 8.462490E-22, 3.649802E-22, & 4.770221E-23, 3.875286E-25, 0.000000E+00 / DATA ( CS_REF( IHNO3_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 4.358854E-21, 1.954560E-21, 8.462490E-22, 3.649802E-22, & 4.770221E-23, 3.875286E-25, 0.000000E+00 / DATA ( CS_REF( IHNO3_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 4.358854E-21, 1.954560E-21, 8.462490E-22, 3.649802E-22, & 4.770221E-23, 3.875286E-25, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IHNO3_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.142428E-01, 0.000000E+00 / DATA ( QY_REF( IHNO3_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.142428E-01, 0.000000E+00 / DATA ( QY_REF( IHNO3_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.142428E-01, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IHNO3_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 4.358854E-21, 1.954560E-21, 8.462490E-22, 3.649802E-22, & 4.770221E-23, 3.875253E-25, 0.000000E+00 / DATA ( ECS_REF( IHNO3_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 4.358854E-21, 1.954560E-21, 8.462490E-22, 3.649802E-22, & 4.770221E-23, 3.875253E-25, 0.000000E+00 / DATA ( ECS_REF( IHNO3_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 4.358854E-21, 1.954560E-21, 8.462490E-22, 3.649802E-22, & 4.770221E-23, 3.875253E-25, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IHNO3_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999914E-01, 0.000000E+00 / DATA ( EQY_REF( IHNO3_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999914E-01, 0.000000E+00 / DATA ( EQY_REF( IHNO3_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999914E-01, 0.000000E+00 / C...N2O5_IUPAC04 C.. N2O5 + HV = NO2 + NO3 C.. From IUPAC Subcommittee on Gas Kinetic Data Evaluation C.. Data Sheet PNOx7_N2O5, updated 16th July 2001 C.. Website: http://www.iupac-kinetic.ch.cam.ac.uk/ C... reference temperatures (K) DATA ( TEMP_REF( ITT, IN2O5_IUPAC04 ), ITT=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IN2O5_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 5.288716E-20, 3.284370E-20, 2.192962E-20, 1.512788E-20, & 6.068443E-21, 6.195751E-22, 9.185398E-26 / DATA ( CS_REF( IN2O5_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 5.288716E-20, 3.284370E-20, 2.192962E-20, 1.512788E-20, & 6.068443E-21, 6.195751E-22, 9.185398E-26 / DATA ( CS_REF( IN2O5_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 5.288716E-20, 3.284370E-20, 2.192962E-20, 1.512788E-20, & 6.068443E-21, 6.195751E-22, 9.185398E-26 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IN2O5_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 9.222279E-01, 9.980621E-01, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 4.477524E-03 / DATA ( QY_REF( IN2O5_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 9.222279E-01, 9.980621E-01, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 4.477524E-03 / DATA ( QY_REF( IN2O5_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 9.222279E-01, 9.980621E-01, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 4.477524E-03 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IN2O5_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 4.857826E-20, 3.276334E-20, 2.192962E-20, 1.512788E-20, & 6.068443E-21, 6.195751E-22, 9.184478E-26 / DATA ( ECS_REF( IN2O5_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 4.857826E-20, 3.276334E-20, 2.192962E-20, 1.512788E-20, & 6.068443E-21, 6.195751E-22, 9.184478E-26 / DATA ( ECS_REF( IN2O5_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 4.857826E-20, 3.276334E-20, 2.192962E-20, 1.512788E-20, & 6.068443E-21, 6.195751E-22, 9.184478E-26 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IN2O5_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 9.185266E-01, 9.975534E-01, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 9.998998E-01 / DATA ( EQY_REF( IN2O5_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 9.185266E-01, 9.975534E-01, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 9.998998E-01 / DATA ( EQY_REF( IN2O5_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 9.185266E-01, 9.975534E-01, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 9.998998E-01 / C...NTR_IUPAC04 C.. i-C3H7ONO2 + HV = iC3H7O + NO2 C.. From IUPAC Subcommittee on Gas Kinetic Data Evaluation C.. Data Sheet P17_i-C3H7ONO2+hv, updated 16th July 2001 C.. Website: http://www.iupac-kinetic.ch.cam.ac.uk/ C... reference temperatures (K) DATA ( TEMP_REF( ITT, INTR_IUPAC04 ), ITT=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( INTR_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 1.228679E-20, 6.112268E-21, 3.012610E-21, 1.483086E-21, & 2.223501E-22, 1.206809E-24, 0.000000E+00 / DATA ( CS_REF( INTR_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 1.228679E-20, 6.112268E-21, 3.012610E-21, 1.483086E-21, & 2.223501E-22, 1.206809E-24, 0.000000E+00 / DATA ( CS_REF( INTR_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 1.228679E-20, 6.112268E-21, 3.012610E-21, 1.483086E-21, & 2.223501E-22, 1.206809E-24, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( INTR_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 2.282282E-01, 0.000000E+00 / DATA ( QY_REF( INTR_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 2.282282E-01, 0.000000E+00 / DATA ( QY_REF( INTR_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 2.282282E-01, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( INTR_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 1.228679E-20, 6.112268E-21, 3.012610E-21, 1.483086E-21, & 2.223501E-22, 1.206808E-24, 0.000000E+00 / DATA ( ECS_REF( INTR_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 1.228679E-20, 6.112268E-21, 3.012610E-21, 1.483086E-21, & 2.223501E-22, 1.206808E-24, 0.000000E+00 / DATA ( ECS_REF( INTR_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 1.228679E-20, 6.112268E-21, 3.012610E-21, 1.483086E-21, & 2.223501E-22, 1.206808E-24, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( INTR_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999989E-01, 0.000000E+00 / DATA ( EQY_REF( INTR_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999989E-01, 0.000000E+00 / DATA ( EQY_REF( INTR_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999989E-01, 0.000000E+00 / C...PAN_IUPAC04 C.. CH3C(O)OONO2 + HV = CH3C(O)OO + NO2 C.. From IUPAC Subcommittee on Gas Kinetic Data Evaluation C.. Data Sheet P21_CH3C(O)OONO2+hv, updated 16th July 2001 C.. Website: http://www.iupac-kinetic.ch.cam.ac.uk/ C... reference temperatures (K) DATA ( TEMP_REF( ITT, IPAN_IUPAC04 ), ITT=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IPAN_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 3.530304E-21, 1.417995E-21, 6.732257E-22, 3.640895E-22, & 9.144017E-23, 1.308075E-24, 0.000000E+00 / DATA ( CS_REF( IPAN_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 3.530304E-21, 1.417995E-21, 6.732257E-22, 3.640895E-22, & 9.144017E-23, 1.308075E-24, 0.000000E+00 / DATA ( CS_REF( IPAN_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 3.530304E-21, 1.417995E-21, 6.732257E-22, 3.640895E-22, & 9.144017E-23, 1.308075E-24, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IPAN_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 6.613498E-02, 0.000000E+00 / DATA ( QY_REF( IPAN_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 6.613498E-02, 0.000000E+00 / DATA ( QY_REF( IPAN_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 6.613498E-02, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IPAN_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 3.530304E-21, 1.417995E-21, 6.732257E-22, 3.640895E-22, & 9.144017E-23, 1.308011E-24, 0.000000E+00 / DATA ( ECS_REF( IPAN_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 3.530304E-21, 1.417995E-21, 6.732257E-22, 3.640895E-22, & 9.144017E-23, 1.308011E-24, 0.000000E+00 / DATA ( ECS_REF( IPAN_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 3.530304E-21, 1.417995E-21, 6.732257E-22, 3.640895E-22, & 9.144017E-23, 1.308011E-24, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IPAN_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999513E-01, 0.000000E+00 / DATA ( EQY_REF( IPAN_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999513E-01, 0.000000E+00 / DATA ( EQY_REF( IPAN_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 9.999513E-01, 0.000000E+00 / C...PACD_CB05 C.. PACD + HV = MEO2 + OH C.. CB05 Photolysis data for PACD C.. Supplied by Greg Yarwood, 11/16/2007 C.. Ref: Gigure, P. A. and A. W. Olmos. Sur le spectre ultraviolet de l'acide peractique et l'hydrolyse des peractates. C... reference temperatures (K) DATA ( TEMP_REF( ITT, IPACD_CB05 ), ITT=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IPACD_CB05, 1, IWLR ), IWLR = 1, 7 ) / & 7.759271E-22, 4.128915E-22, 2.430018E-22, 1.524875E-22, & 2.678573E-23, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( IPACD_CB05, 1, IWLR ), IWLR = 1, 7 ) / & 7.759271E-22, 4.128915E-22, 2.430018E-22, 1.524875E-22, & 2.678573E-23, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( IPACD_CB05, 1, IWLR ), IWLR = 1, 7 ) / & 7.759271E-22, 4.128915E-22, 2.430018E-22, 1.524875E-22, & 2.678573E-23, 0.000000E+00, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IPACD_CB05, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 3.584636E-01, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( IPACD_CB05, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 3.584636E-01, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( IPACD_CB05, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 3.584636E-01, 0.000000E+00, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IPACD_CB05, 1, IWLR ), IWLR = 1, 7 ) / & 7.759271E-22, 4.128915E-22, 2.430018E-22, 1.524875E-22, & 2.675543E-23, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( IPACD_CB05, 1, IWLR ), IWLR = 1, 7 ) / & 7.759271E-22, 4.128915E-22, 2.430018E-22, 1.524875E-22, & 2.675543E-23, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( IPACD_CB05, 1, IWLR ), IWLR = 1, 7 ) / & 7.759271E-22, 4.128915E-22, 2.430018E-22, 1.524875E-22, & 2.675543E-23, 0.000000E+00, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IPACD_CB05, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.988688E-01, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( IPACD_CB05, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.988688E-01, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( IPACD_CB05, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 9.988688E-01, 0.000000E+00, 0.000000E+00 / C...MGLY_IUPAC04 C.. CH3COCHO + hv ---> CH3CO + HCO C.. From IUPAC Subcommittee on Gas Kinetic Data Evaluation; IUPAC Stern-Volmer expression C.. Data Sheet P6_CH3COCHO+hv.pdf, updated 16th Jan, 2003 C.. Website: http://www.iupac-kinetic.ch.cam.ac.uk/ C... reference temperatures (K) DATA ( TEMP_REF( ITT, IMGLY_IUPAC04 ), ITT=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IMGLY_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 4.380390E-20, 3.467067E-20, 2.430921E-20, 1.788231E-20, & 6.183693E-21, 3.700272E-20, 7.900482E-21 / DATA ( CS_REF( IMGLY_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 4.380390E-20, 3.467067E-20, 2.430921E-20, 1.788231E-20, & 6.183693E-21, 3.700272E-20, 7.900482E-21 / DATA ( CS_REF( IMGLY_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 4.380390E-20, 3.467067E-20, 2.430921E-20, 1.788231E-20, & 6.183693E-21, 3.700272E-20, 7.900482E-21 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IMGLY_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 5.166999E-01, 2.503723E-03 / DATA ( QY_REF( IMGLY_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 5.166999E-01, 2.503723E-03 / DATA ( QY_REF( IMGLY_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 5.166999E-01, 2.503723E-03 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IMGLY_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 4.380390E-20, 3.467067E-20, 2.430921E-20, 1.788231E-20, & 6.183693E-21, 8.170217E-21, 2.110402E-22 / DATA ( ECS_REF( IMGLY_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 4.380390E-20, 3.467067E-20, 2.430921E-20, 1.788231E-20, & 6.183693E-21, 8.170217E-21, 2.110402E-22 / DATA ( ECS_REF( IMGLY_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 4.380390E-20, 3.467067E-20, 2.430921E-20, 1.788231E-20, & 6.183693E-21, 8.170217E-21, 2.110402E-22 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IMGLY_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 2.208005E-01, 2.671232E-02 / DATA ( EQY_REF( IMGLY_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 2.208005E-01, 2.671232E-02 / DATA ( EQY_REF( IMGLY_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 2.208005E-01, 2.671232E-02 / C...CL2_IUPAC04 C.. CL2 + HV = 2*CL C.. IUPAC Subcommittee on Gas Kinetic Data Evaluation; Data Sheet PCl11 Website: 15th December 2000 C.. Website: http://www.iupac-kinetic.ch.cam.ac.uk C.. Assume these are point values (not specified in data source) C... reference temperatures (K) DATA ( TEMP_REF( ITT, ICL2_IUPAC04 ), ITT=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( ICL2_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 8.824935E-20, 1.400673E-19, 1.841697E-19, 2.185163E-19, & 2.410845E-19, 6.539245E-20, 6.126823E-22 / DATA ( CS_REF( ICL2_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 8.824935E-20, 1.400673E-19, 1.841697E-19, 2.185163E-19, & 2.410845E-19, 6.539245E-20, 6.126823E-22 / DATA ( CS_REF( ICL2_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 8.824935E-20, 1.400673E-19, 1.841697E-19, 2.185163E-19, & 2.410845E-19, 6.539245E-20, 6.126823E-22 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( ICL2_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 1.135570E-01 / DATA ( QY_REF( ICL2_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 1.135570E-01 / DATA ( QY_REF( ICL2_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 1.135570E-01 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( ICL2_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 8.824935E-20, 1.400673E-19, 1.841697E-19, 2.185163E-19, & 2.410845E-19, 6.539245E-20, 6.126375E-22 / DATA ( ECS_REF( ICL2_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 8.824935E-20, 1.400673E-19, 1.841697E-19, 2.185163E-19, & 2.410845E-19, 6.539245E-20, 6.126375E-22 / DATA ( ECS_REF( ICL2_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 8.824935E-20, 1.400673E-19, 1.841697E-19, 2.185163E-19, & 2.410845E-19, 6.539245E-20, 6.126375E-22 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( ICL2_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 9.999270E-01 / DATA ( EQY_REF( ICL2_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 9.999270E-01 / DATA ( EQY_REF( ICL2_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 9.999270E-01 / C...HOCL_IUPAC04 C.. HOCL + HV = HO + CL C.. IUPAC Subcommittee on Gas Kinetic Data Evaluation; Data Sheet PCl2 Website: 15th December 2000 C.. Website: http://www.iupac-kinetic.ch.cam.ac.uk C.. Assume these are point values - not specified in data source C... reference temperatures (K) DATA ( TEMP_REF( ITT, IHOCL_IUPAC04 ), ITT=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IHOCL_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 5.570116E-20, 6.066932E-20, 5.958157E-20, 5.377943E-20, & 3.120856E-20, 6.545257E-21, 1.172834E-23 / DATA ( CS_REF( IHOCL_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 5.570116E-20, 6.066932E-20, 5.958157E-20, 5.377943E-20, & 3.120856E-20, 6.545257E-21, 1.172834E-23 / DATA ( CS_REF( IHOCL_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 5.570116E-20, 6.066932E-20, 5.958157E-20, 5.377943E-20, & 3.120856E-20, 6.545257E-21, 1.172834E-23 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IHOCL_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 1.319226E-02 / DATA ( QY_REF( IHOCL_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 1.319226E-02 / DATA ( QY_REF( IHOCL_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 1.319226E-02 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IHOCL_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 5.570116E-20, 6.066932E-20, 5.958157E-20, 5.377943E-20, & 3.120856E-20, 6.545257E-21, 1.171487E-23 / DATA ( ECS_REF( IHOCL_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 5.570116E-20, 6.066932E-20, 5.958157E-20, 5.377943E-20, & 3.120856E-20, 6.545257E-21, 1.171487E-23 / DATA ( ECS_REF( IHOCL_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 5.570116E-20, 6.066932E-20, 5.958157E-20, 5.377943E-20, & 3.120856E-20, 6.545257E-21, 1.171487E-23 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IHOCL_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 9.988515E-01 / DATA ( EQY_REF( IHOCL_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 9.988515E-01 / DATA ( EQY_REF( IHOCL_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 1.000000E+00, & 1.000000E+00, 1.000000E+00, 9.988515E-01 / C...FMCL_IUPAC04 C.. FMCL + hv --> HCO + CL C.. IUPAC Subcommittee on Gas Kinetic Data Evaluation; Data Sheet PCl28 Website: 15th December 2000 C.. Website: http://www.iupac-kinetic.ch.cam.ac.uk C.. Reference: H. G. Libuda, F. Zabel, E. H. Fink, and K. H. Becker, J. Phys. Chem. 94, 5860 (1990) C... reference temperatures (K) DATA ( TEMP_REF( ITT, IFMCL_IUPAC04 ), ITT=1,3 ) / 298.0, 298.0, 298.0 / C... absorption cross sections averaged over UCI Solar Flux DATA ( CS_REF( IFMCL_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 5.320078E-21, 1.421314E-21, 2.242436E-22, 8.360540E-23, & 0.000000E+00, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( IFMCL_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 5.320078E-21, 1.421314E-21, 2.242436E-22, 8.360540E-23, & 0.000000E+00, 0.000000E+00, 0.000000E+00 / DATA ( CS_REF( IFMCL_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 5.320078E-21, 1.421314E-21, 2.242436E-22, 8.360540E-23, & 0.000000E+00, 0.000000E+00, 0.000000E+00 / C... quantum yields averaged over UCI Solar Flux DATA ( QY_REF( IFMCL_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 7.811236E-01, & 0.000000E+00, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( IFMCL_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 7.811236E-01, & 0.000000E+00, 0.000000E+00, 0.000000E+00 / DATA ( QY_REF( IFMCL_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 7.811236E-01, & 0.000000E+00, 0.000000E+00, 0.000000E+00 / C... ! CS*QY averaged over UCI Solar Flux DATA ( ECS_REF( IFMCL_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 5.320078E-21, 1.421314E-21, 2.242436E-22, 8.349450E-23, & 0.000000E+00, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( IFMCL_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 5.320078E-21, 1.421314E-21, 2.242436E-22, 8.349450E-23, & 0.000000E+00, 0.000000E+00, 0.000000E+00 / DATA ( ECS_REF( IFMCL_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 5.320078E-21, 1.421314E-21, 2.242436E-22, 8.349450E-23, & 0.000000E+00, 0.000000E+00, 0.000000E+00 / C... ! eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model DATA ( EQY_REF( IFMCL_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 9.986735E-01, & 0.000000E+00, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( IFMCL_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 9.986735E-01, & 0.000000E+00, 0.000000E+00, 0.000000E+00 / DATA ( EQY_REF( IFMCL_IUPAC04, 1, IWLR ), IWLR = 1, 7 ) / & 1.000000E+00, 1.000000E+00, 1.000000E+00, 9.986735E-01, & 0.000000E+00, 0.000000E+00, 0.000000E+00 / END MODULE CSQY_DATA ================================================ FILE: UTIL/inline_phot_preproc/src/Make_processor ================================================ #! /bin/csh -f set echo #scom command defines compiler and libraries source ~/scom -d -c ifc set mech_archive = /home/hwo/mech_git_archive setenv suffix AE_REFRACT setenv suffix v501 setenv APPL cb05tump_ae6_aq setenv APPL cb05tucl-chlorine_update #setenv GC_INC ${mech_archive}/${APPL} #setenv APPL saprc07tc_ae6_aq #path of mechanism for gas phase chemistry RXCM.EXT and RXDT files #setenv GC_INC /home/hwo/cmaq-v5.0/mechanisms/ozone_tracer #setenv GC_INC /home/hwo/cmaq-v5.0/mechanisms/saprc07tc_xya_isoprene_v5_v50 #setenv GC_INC /home/hwo/cmaq-v5.0/mechanisms/racm2_ae6_aq setenv GC_INC /home/hwo/tools/mech_processor/cb05tucl-chlorine_update setenv APPL ${APPL}_${suffix} # variable used to name executable, i.e., CSQY_TABLE_PROCESSOR_mechanism #setenv APPL ozone_tracer #setenv APPL racm2_ae6_aq #make clean make -f Makefile exit() ================================================ FILE: UTIL/inline_phot_preproc/src/Makefile ================================================ ifndef EXEC MODEL = CSQY_TABLE_PROCESSOR.EXE else MODEL = $(EXEC) endif ifndef compiler compiler = gcc # other options (intel | pgi ) endif GC_INC = $(INPDIR) MECH_INC = $(GC_INC) TRAC_INC = $(GC_INC) PROCAN_INC = $(GC_INC) INCLUDES = \ -DSUBST_RXCMMN=\"$(MECH_INC)/RXCM.EXT\" \ -DSUBST_RXDATA=\"$(MECH_INC)/RXDT.EXT\" ifeq ($(compiler),intel) FC = ifort CC = icc F_FLAGS = -fixed -132 -O3 -override-limits -warn nounused -check uninit -check bounds -check format -g -traceback -override-limits -fno-alias -mp1 -I . -g f_FLAGS = -fixed -132 -O3 -override-limits -warn nounused -check uninit -check bounds -check format -g -traceback -override-limits -fno-alias -mp1 -I . -g C_FLAGS = -O2 -DFLDMN=1 LINK_FLAGS = -static-intel else FC = pgf90 CC = pgcc # compiler options for subroutines F_FLAGS = -Mfixed -Mextend -Mbounds -Mchkfpstk -Mchkptr -Mchkstk -traceback -Ktrap=fp -O3 -I . -g f_FLAGS = -Mfixed -Mextend -Mbounds -Mchkfpstk -Mchkptr -Mchkstk -traceback -Ktrap=fp -O3 -I . -g C_FLAGS = -O2 -DFLDMN=1 LINK_FLAGS = -Bstatic -Bstatic_pgi ifeq ($(compiler),gcc) FC = gfortran CC = gcc f_FLAGS = -ffixed-form -ffixed-line-length-132 -O3 -funroll-loops -I. -fbounds-check F_FLAGS = $(f_FLAGS) f90_FLAGS = -cpp -ffree-form -ffree-line-length-none -O3 -funroll-loops -I. -fbounds-check F90_FLAGS = $(f90_FLAGS) C_FLAGS = -O2 -DFLDMN -I /home/wdx/lib/x86_64/gcc/mpich/include LINKER = $(FC) LINK_FLAGS = endif endif LIBRARIES = \ -L$(lib_path)/ioapi_3/$(LIOAPI) -lioapi \ LIBRARIES = IOAPI_INC = $(lib_path)/ioapi_3/ioapi/fixed_src MPI_INC = $(lib_path)/mpich/include # create_module.o \ # wrt_csqy_data.o \ #CHECK_CSQY_DATA.o \ OBJECTS =\ BIN_DATA.o \ CSQY_PARAMETERS.o \ ALBEDO_REFER_DATA.o \ CSQY_REFER_DATA.o \ driver.o \ intavg_b.o \ intavg_c.o \ intavg.o \ wrt_csqy_data.o \ wrt_csqy_data_only.o \ wrt_optics_data.o \ optics_water_cloud.o \ optics_ice_cloud.o \ aero_refract_index.o \ process_csqys.o \ spectral_reflect.o \ wvbin_average-b.o \ wvbin_average.o \ xc_qy_td_effect_v3.o \ convert_case.o \ nameval.o # wrbf12d.o \ # wrbf12d_w_headerb.o \ .SUFFIXES: .F .f .c $(MODEL): $(OBJECTS) $(FC) $(LINK_FLAGS) $(OBJECTS) $(LIBRARIES) -o $@ .F.o: $(FC) -c $(F_FLAGS) $(CPP_FLAGS) $(INCLUDES) $< .f.o: $(FC) $(F_FLAGS) -c $< .c.o: $(CC) $(C_FLAGS) -c $< clean: rm -f *.o $(BASE)_* *.mod ================================================ FILE: UTIL/inline_phot_preproc/src/aero_refract_index.F ================================================ C*********************************************************************** C Portions of Models-3/CMAQ software were developed or based on * C information from various groups: Federal Government employees, * C contractors working on a United States Government contract, and * C non-Federal sources (including research institutions). These * C research institutions have given the Government permission to * C use, prepare derivative works, and distribute copies of their * C work in Models-3/CMAQ to the public and to permit others to do * C so. EPA therefore grants similar permissions for use of the * C Models-3/CMAQ software, but users are requested to provide copies * C of derivative works to the Government without restrictions as to * C use by others. Users are responsible for acquiring their own * C copies of commercial software associated with Models-3/CMAQ and * C for complying with vendor requirements. Software copyrights by * C the MCNC Environmental Modeling Center are used with their * C permissions subject to the above restrictions. * C*********************************************************************** C RCS file, release, date & time of last delta, author, state, [and locker] C $Header$ C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE AERO_REFRACT_INDEX ( NAERO_REFRACT, AERO_REFRACT_INDX, AERO_REAL_REFRACT, & AERO_IMAG_REFRACT ) C********************************************************************* C C the subroutine reads and interpolates data files for the refractive C indices of the aerosol components. C C********************************************************************* USE GET_ENV_VARS USE BIN_DATA USE CSQY_PARAMETERS IMPLICIT NONE C...Arguements: INTEGER, INTENT( IN ) :: NAERO_REFRACT ! number of refractive indices CHARACTER( 16 ), INTENT( IN ) :: AERO_REFRACT_INDX( : ) ! names of refractive indices REAL, INTENT( OUT ) :: AERO_IMAG_REFRACT( :, : ) ! imaginary part of index [Dimensionaless] REAL, INTENT( OUT ) :: AERO_REAL_REFRACT( :, : ) ! real part of index [Dimensionaless] C...........PARAMETERS and their descriptions INTEGER, PARAMETER :: XSTAT1 = 1 ! I/O ERROR exit status INTEGER, PARAMETER :: XSTAT2 = 2 ! Program ERROR exit status C...........ARGUMENTS and their descriptions REAL STWL ( MXWL ) ! wavelength band lower limit REAL ENDWL( MXWL ) ! wavelength band upper limit C...........LOCAL VARIABLES and their descriptions: CHARACTER( 1 ) :: SPECTRA_TYPE ! type of data points CHARACTER( 16 ) :: PNAME = 'AERO_REFRACT_INDEX' ! program name ! CHARACTER*16 CQDIR ! directory for CSQY data ! DATA CQDIR / 'CSQY' / CHARACTER( 16 ) :: REFRACT_ID ! name of refractive index CHARACTER( 132 ) :: AERO_FILE ! input filename buffer CHARACTER( 132 ) :: MSG = ' ' ! message CHARACTER( 120 ) FILE_LINE INTEGER IWL ! wavelength index INTEGER NWL ! # of wlbands INTEGER NWLIN ! # of wlbands (infile) INTEGER IAERO ! reaction index INTEGER AEUNIT ! cross section/qy io unit INTEGER IOST ! io status INTEGER LASTNB1 INTEGER LASTNB2 REAL FACTOR ! multiplying factor for CS REAL WLIN ( MXWLIN ) ! wl for input cs/qy data REAL REFRACT_OUT( MXWL ) ! interpolated index REAL, ALLOCATABLE :: REAL_REFRACT_IN ( : ) ! raw real refractive index REAL, ALLOCATABLE :: IMAG_REFRACT_IN ( : ) ! raw imaginary refractive index REAL, ALLOCATABLE :: WAVE( : ), XDUMB( : ), YDUMB( : ), ZDUMB( : ) INTEGER :: NDUMB REAL, ALLOCATABLE :: WAVE_OUTL( : ), WAVE_OUTU( : ), WAVE_OUTC( : ) CHARACTER( 16 ) FILE_NAME C...........EXTERNAL FUNCTIONS and their descriptions: INTEGER JUNIT ! used to get next IO unit # REAL :: WLL_AVE( MXWL ) ! lower limit on wl int ETin REAL :: WLU_AVE( MXWL ) ! upper limit on wl int ETin INTEGER :: NWL_AVE CHARACTER( 25 ) :: CSQY_LABEL CHARACTER( 586 ) :: REFRACT_FILE CHARACTER( 32 ) :: ENV_VAR_NAME ! REAL, ALLOCATABLE :: AERO_IMAG_REFRACT( :, : ) ! REAL, ALLOCATABLE :: AERO_REAL_REFRACT( :, : ) INTERFACE SUBROUTINE WVBIN_AVERAGE(WL_CS_IN, CS_IN, NWL_CS_IN, & WL_QY_IN, QY_IN, NWL_QY_IN, & SPECTRA_TYPE, & WLL_AVE, WLU_AVE, NWL_AVE, & CS_AVE, QY_AVE ) CHARACTER(1), INTENT( IN ) :: SPECTRA_TYPE ! spectra type INTEGER, INTENT( IN ) :: NWL_AVE ! number of intervals average INTEGER, INTENT( IN ) :: NWL_CS_IN ! number of intervals CS_IN INTEGER, INTENT( IN ) :: NWL_QY_IN ! number of intervals CS_IN REAL, INTENT( IN ) :: WL_CS_IN( : ) ! wl for CS_IN REAL, INTENT( IN ) :: WL_QY_IN( : ) ! wl for QY_IN REAL, INTENT( IN ) :: CS_IN( : ) ! cross-section as f(WLIN) REAL, INTENT( IN ) :: QY_IN( : ) ! quantum yield as f(WLIN) REAL, INTENT( INOUT ) :: WLL_AVE( : ) ! lower limit on wl effective interval REAL, INTENT( INOUT ) :: WLU_AVE( : ) ! upper limit on wl effective interval REAL, INTENT( INOUT ) :: CS_AVE( : ) ! cross-section as f(WL_AVE) REAL, INTENT( INOUT ) :: QY_AVE( : ) ! quantum yield as f(WL_AVE) END SUBROUTINE WVBIN_AVERAGE SUBROUTINE WVBIN_AVERAGE_B(WL_CS_IN, CS_IN, NWL_CS_IN, & WL_QY_IN, QY_IN, NWL_QY_IN, & SPECTRA_TYPE, & WLL_AVE, WLU_AVE, NWL_AVE, & CS_AVE, QY_AVE ) CHARACTER(1), INTENT( IN ) :: SPECTRA_TYPE ! spectra type INTEGER, INTENT( IN ) :: NWL_AVE ! number of intervals average INTEGER, INTENT( IN ) :: NWL_CS_IN ! number of intervals CS_IN INTEGER, INTENT( IN ) :: NWL_QY_IN ! number of intervals CS_IN REAL, INTENT( IN ) :: WL_CS_IN( : ) ! wl for CS_IN REAL, INTENT( IN ) :: WL_QY_IN( : ) ! wl for QY_IN REAL, INTENT( IN ) :: CS_IN( : ) ! cross-section as f(WLIN) REAL, INTENT( IN ) :: QY_IN( : ) ! quantum yield as f(WLIN) REAL, INTENT( INOUT ) :: WLL_AVE( : ) ! lower limit on wl effective interval REAL, INTENT( INOUT ) :: WLU_AVE( : ) ! upper limit on wl effective interval REAL, INTENT( INOUT ) :: CS_AVE( : ) ! cross-section as f(WL_AVE) REAL, INTENT( INOUT ) :: QY_AVE( : ) ! quantum yield as f(WL_AVE) END SUBROUTINE WVBIN_AVERAGE_B END INTERFACE C********************************************************************* ALLOCATE( XDUMB( MXWLIN ), ZDUMB( MXWLIN ), YDUMB( MXWLIN) ) ALLOCATE( WAVE_OUTC( MXWLIN ), WAVE_OUTL( MXWLIN ), WAVE_OUTU( MXWLIN )) C...get a unit number for AERO files AEUNIT = 125 LOOP_REFRACT: DO IAERO = 1, NAERO_REFRACT C...open input file CALL VALUE_NAME( AERO_REFRACT_INDX( IAERO ), REFRACT_FILE ) AERO_FILE = TRIM( AERO_REFRACT_INDX( IAERO ) ) OPEN( UNIT = AEUNIT, & FILE = REFRACT_FILE, & STATUS = 'OLD', & IOSTAT = IOST ) C...check for open errors IF ( IOST .NE. 0) THEN MSG = 'Could not open ' // TRIM( AERO_FILE ) // ' file at path: ' & // TRIM(REFRACT_FILE) WRITE(*,*)MSG STOP END IF WRITE( 6, 2001 ) TRIM( AERO_FILE ), TRIM(REFRACT_FILE) C...read refractive index subgroup id READ( AEUNIT, 1001, IOSTAT = IOST ) REFRACT_ID C...check for read errors IF ( IOST .NE. 0) THEN MSG = 'Errors occurred while reading data file ' // & TRIM(REFRACT_FILE) WRITE(*,*)MSG STOP END IF C...get type of data (e.g. centered, beginning, ending, or point wavelen SPECTRA_TYPE = '!' DO WHILE( SPECTRA_TYPE .EQ. '!' ) READ( AEUNIT, '(A)', IOSTAT = IOST ) FILE_LINE C... check for read errors IF ( IOST .NE. 0) THEN MSG = 'Errors occurred while reading refractive index for ' // & TRIM( AERO_REFRACT_INDX( IAERO ) ) WRITE(*,*)MSG STOP END IF SPECTRA_TYPE = FILE_LINE(1:1) END DO C...reinitialize arrays DO IWL = 1, MXWLIN WLIN( IWL ) = 0.0 XDUMB( IWL ) = 0.0 YDUMB( IWL ) = 0.0 END DO C...loop over the number of wavelengths and continue reading IWL = 0 201 CONTINUE IOST = 0 DO WHILE ( IOST .EQ. 0 ) IWL = IWL + 1 IF( IWL .EQ. 1 )THEN READ( FILE_LINE, *, IOSTAT = IOST ) WLIN( IWL ), XDUMB( IWL ), & YDUMB( IWL ) ELSE READ( AEUNIT, *, IOSTAT = IOST ) WLIN( IWL ), XDUMB( IWL ), & YDUMB( IWL ) END IF C...check for read errors IF ( IOST .GT. 0) THEN MSG = 'Errors occurred while reading WL, REFRACT_INDX for ' // & TRIM( AERO_REFRACT_INDX( IAERO ) ) WRITE(*,*)MSG STOP END IF END DO C...adjust loop counter index index and close file NWLIN = IWL + 1 ! - 1 ALLOCATE( WAVE( NWLIN ), IMAG_REFRACT_IN( NWLIN ), REAL_REFRACT_IN( NWLIN )) print*,'NWLIN = ',NWLIN WAVE( 1:NWLIN-2 ) = 1000.0 * WLIN( 1:NWLIN-2 ) REAL_REFRACT_IN( 1:NWLIN-2 ) = XDUMB( 1:NWLIN-2 ) IMAG_REFRACT_IN( 1:NWLIN-2 ) = YDUMB( 1:NWLIN-2 ) WAVE( NWLIN-1 ) = WAVE( NWLIN-2 ) + 4000.0 REAL_REFRACT_IN( NWLIN-1 ) = XDUMB( NWLIN-2 ) IMAG_REFRACT_IN( NWLIN-1 ) = YDUMB( NWLIN-2 ) WAVE( NWLIN ) = WAVE( NWLIN-2 ) + 4500.0 REAL_REFRACT_IN( NWLIN ) = XDUMB( NWLIN-2 ) IMAG_REFRACT_IN( NWLIN ) = YDUMB( NWLIN-2 ) ! WRITE(6,'(3(es12.4,1X))')(WAVE(iwl),REAL_REFRACT_IN(iwl),REAL_REFRACT_IN(iwl),iwl=1,NWLIN) CLOSE( AEUNIT ) C...transform the cs data to the same wavelength intervals as C... the irradiance data. XDUMB = 1.0 NDUMB = NWLIN CALL WVBIN_AVERAGE(WAVE, REAL_REFRACT_IN, NDUMB, WAVE, XDUMB, NDUMB, 'P', & WAVE_OUTL, WAVE_OUTU, MXWLIN, YDUMB, XDUMB ) AERO_REAL_REFRACT( 1:NJO_NEW, IAERO ) = YDUMB( 1:NJO_NEW ) CALL WVBIN_AVERAGE(WAVE, IMAG_REFRACT_IN, NDUMB, WAVE, XDUMB, NDUMB, 'P', & WAVE_OUTL, WAVE_OUTU, MXWLIN, YDUMB, XDUMB ) AERO_IMAG_REFRACT( 1:NJO_NEW, IAERO ) = YDUMB( 1:NJO_NEW ) ! do iwl = 1, njo_new ! WRITE(6,'(3(es12.4,1X))')WAVE_OUTL(iwl),AERO_REAL_REFRACT( iwl, IAERO ), ! & AERO_IMAG_REFRACT( iwl, IAERO ) ! end do DEALLOCATE( WAVE, REAL_REFRACT_IN, IMAG_REFRACT_IN ) END DO LOOP_REFRACT C...formats 1001 FORMAT( A16 ) 1003 FORMAT( A1 ) 1005 FORMAT( /, 4X, F10.1 ) 2001 FORMAT( 1X, '...Processing AERO Refractive index: ', A, & ' in file: ', / A ) 2003 FORMAT( 1X, '...Data for ', I4, ' wavelengths read from file', & // ) RETURN END ================================================ FILE: UTIL/inline_phot_preproc/src/convert_case.f ================================================ SUBROUTINE CONVERT_CASE ( BUFFER, UPPER ) C*********************************************************************** C subroutine body starts at line 41 C C FUNCTION: converts to upcase or lower the text in BUFFER C based on values of logic flag UPPER C C PRECONDITIONS REQUIRED: text is ASCII C C SUBROUTINES AND FUNCTIONS CALLED: none C C REVISION HISTORY: prototype 1/91 by CJC C C*********************************************************************** IMPLICIT NONE C........... ARGUMENTS and their descriptions: CHARACTER(LEN= *), INTENT( INOUT ) :: BUFFER LOGICAL, INTENT( IN ) :: UPPER C........... PARAMETER: ASCII for 'a', 'z', 'A' INTEGER IA, IZ, AADIF PARAMETER ( IA = 97, & IZ = 122, & AADIF = 32 ) C........... SCRATCH LOCAL VARIABLES and their descriptions: INTEGER I, L INTEGER C INTEGER FACTOR INTEGER STRT, FINI C*********************************************************************** C begin body of subroutine UPCASE L = LEN ( BUFFER ) IF( UPPER )THEN FACTOR = - AADIF STRT = IA FINI = IZ ELSE FACTOR = AADIF STRT = IA - AADIF FINI = IZ - AADIF END IF DO 111 I = 1 , L C = ICHAR ( BUFFER ( I:I ) ) IF ( C .GE. STRT .AND. C .LE. FINI ) THEN BUFFER ( I:I ) = CHAR ( C + FACTOR ) END IF 111 CONTINUE ! end loop on I RETURN END SUBROUTINE CONVERT_CASE ================================================ FILE: UTIL/inline_phot_preproc/src/create_module.F ================================================ SUBROUTINE CREATE_MODULE( WLIN, CS_IN, QY_IN, NWLIN, SPECTRA_NAME, SPECTRA_TYPE, & WLL_AVE, WLU_AVE, CS_AVE, QY_AVE, NWL_AVE ) USE GET_ENV_VARS USE JPROC_PROFILE USE BIN_DATA USE JPROC_PHOT_DATA IMPLICIT NONE ! INCLUDE 'JVALPARMS.EXT' ! jproc parameters C...........ARGUMENTS and their descriptions CHARACTER( 1), INTENT( IN ) :: SPECTRA_TYPE ! spectra type CHARACTER(16), INTENT( IN ) :: SPECTRA_NAME ! spectra type INTEGER, INTENT( IN ) :: NWLIN ! number of intervals CQin REAL, INTENT( IN ) :: WLIN ( MXWLIN ) ! wl for CQin REAL, INTENT( IN ) :: CS_IN( MXWLIN ) ! cross-section as f(WLIN) REAL, INTENT( IN ) :: QY_IN( MXWLIN ) ! quantum yield as f(WLIN) REAL, INTENT( OUT) :: WLL_AVE( MXWL ) ! lower limit on wl int ETin REAL, INTENT( OUT ) :: WLU_AVE( MXWL ) ! upper limit on wl int ETin REAL, INTENT( OUT ) :: CS_AVE( MXWL ) ! cross-section as f(WL_AVE) REAL, INTENT( OUT ) :: QY_AVE( MXWL ) ! quantum yield as f(WL_AVE) INTEGER, INTENT( OUT ) :: NWL_AVE C...........LOCAL VARIABLES and their descriptions: CHARACTER(16) :: PNAME = 'CREATE_MODULE' ! program name CHARACTER(80) :: MSG = ' ' ! message C...........PARAMETERS and their descriptions ! INTEGER, PARAMETER :: XSTAT2 = 2 ! Program ERROR exit status ! integer, parameter :: NBO = 100 ! integer, parameter :: NSO = 40000 ! integer, parameter :: NZO = 13550 ! integer, parameter :: NJO = 18 ! INTEGER, SAVE :: NB, J1, J2, K1, K2 ! array limits and markers INTEGER :: I, J, K ! index counters REAL, ALLOCATABLE, SAVE :: WLIN1( : ) ! lower limit on wl int CQin REAL, ALLOCATABLE, SAVE :: WLIN2( : ) ! upper limit on wl int CQin ! REAL(8), SAVE :: SRB(15,NJO) ! REAL(8), SAVE :: WBIN(NBO + 1 ) ! REAL(8) :: FBIN(NBO) ! REAL(8) :: ABIN(NBO) ! REAL(8) :: CBIN(NBO) ! REAL(8) :: DBIN(NBO) ! REAL(8) :: EBIN(NBO) REAL(8), ALLOCATABLE, SAVE :: FBIN( : ) REAL(8), ALLOCATABLE, SAVE :: ABIN( : ) REAL(8), ALLOCATABLE, SAVE :: CBIN( : ) REAL(8), ALLOCATABLE, SAVE :: DBIN( : ) REAL(8), ALLOCATABLE, SAVE :: EBIN( : ) REAL :: TEMP ! temperature, K REAL(8) :: WW REAL(8), ALLOCATABLE, SAVE :: FFBIN( : ) REAL(8), ALLOCATABLE, SAVE :: AABIN( : ) REAL(8), ALLOCATABLE, SAVE :: CCBIN( : ) REAL(8), ALLOCATABLE, SAVE :: DDBIN( : ) REAL(8), ALLOCATABLE, SAVE :: EEBIN( : ) ! INTEGER, SAVE :: IJX(NBO) INTEGER :: ITTR ! REAL, ALLOCATABLE, SAVE :: W(:), F(:) REAL, ALLOCATABLE, SAVE :: XCOUT(:), QYOUT(:) ! REAL, ALLOCATABLE, SAVE :: WL(:), WU(:), WC(:) ! INTEGER, SAVE :: IBINJ(NSO) REAL :: XNEW CHARACTER(8) :: TITLNEW CHARACTER(16) :: SAFE_NAME CHARACTER(60) :: VNAME LOGICAL, SAVE :: FIRSTCALL = .TRUE. REAL, SAVE :: TEMPERATURE(N_TEMPERATURE) REAL :: DELTA_TEMP REAL :: TEMP_STRT, TEMP_FINI REAL, SAVE :: TEMP_STRAT(N_TEMP_STRAT) INTEGER :: IRXN INTEGER, PARAMETER :: NZ = 1 REAL :: AIR_TEMP(NZ) = 298 ! air temperature [K] REAL :: NUM_DENS(NZ) = DENS0 ! air number density [molec/cm3] LOGICAL :: REPLACE ! flag to use sq values in calling routine REAL, ALLOCATABLE, SAVE :: XCROSS( : , : ) ! NZ, NJO) ! cross-section [CM2] REAL, ALLOCATABLE, SAVE :: YIELD(: , : ) ! NZ, NJO) ! quantum yield [dimensionaless] REAL, ALLOCATABLE, SAVE :: XCROSS_EFF(: , : ) ! NZ,NJO) ! cross-section times yield [CM2] REAL, ALLOCATABLE, SAVE :: WC_EXT( : ) REAL, ALLOCATABLE, SAVE :: WC_ASF( : ) REAL, ALLOCATABLE, SAVE :: WC_SSA( : ) REAL, PARAMETER :: CLOUD_RADIUS_LIQUID = 10.0 ! mean cloud droplet radii, um INTEGER, PARAMETER :: NAERO_REFRACT = 5 LOGICAL, SAVE :: WRITE_AE_REFRACT = .FALSE. ! .FALSE. CHARACTER( 5 ) :: WVL_AE_REFRAC CHARACTER( 13 ) :: AERO_INDEX = 'WVL_AE_REFRAC' CHARACTER( 16 ) :: AERO_REFRACT_INDX( NAERO_REFRACT ) DATA AERO_REFRACT_INDX / "WATER", "SOLUTE", "DUST", "SEASALT", "SOOT" / REAL, ALLOCATABLE :: AERO_IMAG_REFRACT( :, : ) REAL, ALLOCATABLE :: AERO_REAL_REFRACT( :, : ) REAL, ALLOCATABLE, SAVE :: MODIS_ALBEDO( :, :) ! NJO, NUMB_LANDUSE_MODIS ) REAL, ALLOCATABLE, SAVE :: CS_PHOT( :, :, :) ! N_TEMPERATURE, N_INLINE_BAND, NPHOTAB) REAL, ALLOCATABLE, SAVE :: QY_PHOT( :, :, :) ! N_TEMPERATURE, N_INLINE_BAND, NPHOTAB) REAL, ALLOCATABLE, SAVE :: ECS_PHOT( :, :, :) ! N_TEMPERATURE, N_INLINE_BAND, NPHOTAB) REAL, ALLOCATABLE, SAVE :: EQY_PHOT( :, :, :) ! N_TEMPERATURE, N_INLINE_BAND, NPHOTAB) REAL, ALLOCATABLE, SAVE :: O3_CS_STRAT( :, :) ! N_TEMP_STRAT, N_INLINE_BAND) REAL, ALLOCATABLE, SAVE :: O3_QY_STRAT( :, :) ! N_TEMP_STRAT, N_INLINE_BAND) REAL, ALLOCATABLE, SAVE :: O3_ECS_STRAT( :, :) ! N_TEMP_STRAT, N_INLINE_BAND) REAL, ALLOCATABLE, SAVE :: O3_EQY_STRAT( :, :) ! N_TEMP_STRAT, N_INLINE_BAND) REAL, EXTERNAL :: OZONE_YIELD INTERFACE SUBROUTINE XC_QY_TD_EFFECT(wc,nw,tlev,dens,nz, & jlabel,xc,qy,sq,replace) USE JPROC_PHOT_DATA IMPLICIT NONE INTEGER, INTENT( IN ) :: nw REAL, INTENT( IN ) :: wc(:) INTEGER, INTENT( IN ) :: nz REAL, INTENT( IN ) :: tlev(:) ! air temperature over model levels, deg K REAL, INTENT( IN ) :: dens(:) ! air number density over level, 1/cm3 CHARACTER(16), INTENT( IN ) :: jlabel ! name of photolysis rate REAL, INTENT( INOUT ) :: xc(:,:) ! cross-section from file REAL, INTENT( INOUT ) :: qy(:,:) ! quantum yield from file REAL, INTENT( OUT ) :: sq(:,:) ! cross-section times quantum yield over model levels LOGICAL, INTENT( OUT ) :: REPLACE ! flag to use sq values in calling routine END SUBROUTINE XC_QY_TD_EFFECT SUBROUTINE INTAVG ( WLIN, CQIN, NWLIN, SPECTRA_TYPE, & NWLOUT, WLOUT1, WLOUT2, CQOUT ) USE JPROC_PROFILE IMPLICIT NONE CHARACTER(1), INTENT( IN ) :: SPECTRA_TYPE ! spectra type INTEGER, INTENT( IN ) :: NWLOUT ! number of intervals ETin INTEGER, INTENT( IN ) :: NWLIN ! number of intervals CQin REAL, INTENT( IN ) :: WLIN ( MXWLIN ) ! wl for CQin REAL, INTENT( IN ) :: CQIN( MXWLIN ) ! quantity (CS or QY) as f(WLIN) REAL, INTENT( INOUT ) :: WLOUT1( : ) ! lower limit on wl int ETin REAL, INTENT( INOUT ) :: WLOUT2( : ) ! upper limit on wl int ETin REAL, INTENT( OUT ) :: CQOUT ( : ) ! quantity (CS or QY) as f(WLOUT) END SUBROUTINE INTAVG SUBROUTINE INTAVG_C ( WLIN, CQIN, NWLIN, SPECTRA_TYPE, & NWLOUT, WLOUT1, WLOUT2, CQOUT ) USE JPROC_PROFILE IMPLICIT NONE CHARACTER(1), INTENT( IN ) :: SPECTRA_TYPE ! spectra type INTEGER, INTENT( IN ) :: NWLOUT ! number of intervals ETin INTEGER, INTENT( IN ) :: NWLIN ! number of intervals CQin REAL, INTENT( IN ) :: WLIN ( MXWLIN ) ! wl for CQin REAL, INTENT( IN ) :: CQIN( MXWLIN ) ! quantity (CS or QY) as f(WLIN) REAL, INTENT( INOUT ) :: WLOUT1( : ) ! lower limit on wl int ETin REAL, INTENT( INOUT ) :: WLOUT2( : ) ! upper limit on wl int ETin REAL, INTENT( OUT ) :: CQOUT ( : ) ! quantity (CS or QY) as f(WLOUT) END SUBROUTINE INTAVG_C SUBROUTINE OPTICS_WATER_CLOUD(CLOUD_RADIUS_LIQUID, WC_EXT, WC_ASF, WC_SSA) USE BIN_DATA USE JPROC_PROFILE IMPLICIT NONE REAL, INTENT( IN ) :: CLOUD_RADIUS_LIQUID REAL, INTENT( OUT ) :: WC_EXT( : ) REAL, INTENT( OUT ) :: WC_ASF( : ) REAL, INTENT( OUT ) :: WC_SSA( : ) END SUBROUTINE OPTICS_WATER_CLOUD SUBROUTINE AERO_REFRACT_INDEX ( NAERO_REFRACT, AERO_REFRACT_INDX, AERO_REAL_REFRACT, & AERO_IMAG_REFRACT ) USE BIN_DATA USE JPROC_PROFILE IMPLICIT NONE INTEGER, INTENT( IN ) :: NAERO_REFRACT ! number of refractive indices CHARACTER( 16 ), INTENT( IN ) :: AERO_REFRACT_INDX( : ) ! names of refractive indices REAL, INTENT( OUT ) :: AERO_IMAG_REFRACT( :, : ) ! imaginary part of index [Dimensionaless] REAL, INTENT( OUT ) :: AERO_REAL_REFRACT( :, : ) ! real part of index [Dimensionaless] END SUBROUTINE AERO_REFRACT_INDEX SUBROUTINE SPECTRAL_REFLECT(MODIS_ALBEDO) USE BIN_DATA USE JPROC_PROFILE IMPLICIT NONE REAL, INTENT( OUT ) :: MODIS_ALBEDO( :, : ) END SUBROUTINE SPECTRAL_REFLECT SUBROUTINE CONVERT_CASE ( BUFFER, UPPER ) CHARACTER(LEN= *), INTENT( INOUT ) :: BUFFER LOGICAL, INTENT( IN ) :: UPPER END SUBROUTINE CONVERT_CASE END INTERFACE IF( FIRSTCALL )THEN FIRSTCALL = .FALSE. CALL INIT_BIN_DATA IF( CHANGE_WBIN )THEN ALLOCATE( FBIN( NB_NEW + 1 ) ) ALLOCATE( ABIN( NB_NEW + 1 ) ) ALLOCATE( CBIN( NB_NEW + 1 ) ) ALLOCATE( DBIN( NB_NEW + 1 ) ) ALLOCATE( EBIN( NB_NEW + 1 ) ) ELSE ALLOCATE( FBIN( NBO ) ) ALLOCATE( ABIN( NBO ) ) ALLOCATE( CBIN( NBO ) ) ALLOCATE( DBIN( NBO ) ) ALLOCATE( EBIN( NBO ) ) ENDIF ITTR = 0 IF(N_TEMPERATURE .LT. 4)THEN TEMP_FINI = 298.0 TEMP_STRT = 248.0 ELSE TEMP_FINI = 310.0 TEMP_STRT = 210.0 ENDIF DELTA_TEMP = (TEMP_FINI-TEMP_STRT)/FLOAT(N_TEMPERATURE-1) WRITE(JTABLE_UNIT,'(A8,1X,I3)')'NTEMP = ', N_TEMPERATURE WRITE(JTABLE_UNIT,'(A)')'! I TEMP( I ) K' DO I = 1, N_TEMPERATURE ! 248, 298, 25 ITTR = ITTR + 1 TEMPERATURE(ITTR) = TEMP_STRT + DELTA_TEMP*FLOAT(I-1) WRITE(JTABLE_UNIT,'(I3,2X,F6.2)')ITTR, TEMPERATURE(ITTR) ENDDO TEMP_STRAT( 1 ) = 180.0 ITTR = 1 DO I = 2, N_TEMP_STRAT ! 248, 298, 25 ITTR = ITTR + 1 TEMP_STRAT(ITTR) = TEMP_STRAT( 1 ) + 40.0*FLOAT(I) C WRITE(JTABLE_UNIT,'(I3,2X,F6.2)')ITTR, TEMPERATURE(ITTR) ENDDO ! TEMPERATURE = 298.0 ! READ(PHOTAB_UNIT,'(10X,I3,//)')NTEMP_REF ! DO I = 1, NTEMP_REF ! READ(PHOTAB_UNIT,'(5X,F6.2)')TEMP_REF( I ) ! ENDDO ALLOCATE( XCOUT(NSO), QYOUT(NSO)) ALLOCATE( AABIN(NJO_NEW), CCBIN( NJO_NEW), DDBIN(NJO_NEW), % EEBIN(NJO_NEW), FFBIN(NJO_NEW)) ALLOCATE( XCROSS(NZ, NJO_NEW), YIELD(NZ, NJO_NEW), XCROSS_EFF(NZ,NJO_NEW) ) ALLOCATE( WC_EXT( NJO_NEW ), WC_ASF( NJO_NEW ), WC_SSA( NJO_NEW )) ALLOCATE( AERO_IMAG_REFRACT( NJO_NEW, NAERO_REFRACT ) ) ALLOCATE( AERO_REAL_REFRACT( NJO_NEW, NAERO_REFRACT ) ) WRITE(JTABLE_UNIT,5001) WRITE(JTABLE_UNIT,5002) WRITE(JTABLE_UNIT,5003) WRITE(JTABLE_UNIT,5004) WRITE(JTABLE_UNIT,5005) WRITE(JTABLE_UNIT,5006) ! determine whether to write out spectral values of refractive index for aerosol species CALL VALUE_NAME ( AERO_INDEX, WVL_AE_REFRAC) CALL CONVERT_CASE( WVL_AE_REFRAC, .TRUE.) IF( WVL_AE_REFRAC(1:1) .EQ. 'T' .OR. WVL_AE_REFRAC(1:1) .EQ. 'Y' )THEN WRITE_AE_REFRACT = .TRUE. WRITE(6,'(A)')'Environment Variable WVL_AE_REFRAC set to ' & // TRIM( WVL_AE_REFRAC ) // ' and adding aerosol refractive indice to' & // ' output ' ELSE IF( WVL_AE_REFRAC(1:1) .EQ. 'F' .OR. WVL_AE_REFRAC(1:1) .EQ. 'N' )THEN WRITE_AE_REFRACT = .FALSE. WRITE(6,'(A)')'Environment Variable WVL_AE_REFRAC set to ' & // TRIM( WVL_AE_REFRAC ) // ' and not writing aerosol refractive indice to' & // ' output ' ELSE WRITE(6,' (A)')'Environment Variable WVL_AE_REFRAC set to ' & // TRIM( WVL_AE_REFRAC ) // ' and must equal T, Y, F, or N.' & // ' Using default value of F' WRITE_AE_REFRACT = .FALSE. END IF IF( WRITE_AE_REFRACT )WRITE(JTABLE_UNIT,5007) IF( WRITE_AE_REFRACT )THEN WRITE(JTABLE_UNIT,4999)'N_INLINE_BAND = ', N_INLINE_BAND WRITE(JTABLE_UNIT,4999)'NAERO_REFRACT = ', NAERO_REFRACT WRITE(JTABLE_UNIT,4998)'NAMES_REFRACT_INDX = ', & ( TRIM( AERO_REFRACT_INDX( I ) ), I = 1, NAERO_REFRACT ) ELSE WRITE(JTABLE_UNIT,4997)'N_INLINE_BAND = ', N_INLINE_BAND END IF 4997 FORMAT(A16, 1X, I3) 4998 FORMAT(A20, 1X, 4(A, ', '), A) 4999 FORMAT(2(A16, 1X, I3, ', '), A20, 1X, 4(A, ', '), A) IF( WRITE_AE_REFRACT )THEN WRITE(JTABLE_UNIT,5009)'! I','START_WL_BIN(nm)', & 'EFFECT_WL_BIN_(nm)', 'END_WL_BIN_(nm)','solar_photons_(cm-2*s-1)', & 'CLD_EXT/LWC_(m2/g)','CLD_ASYM_FACT','CLD_COALBEDO', & ( 'AE_' // TRIM( AERO_REFRACT_INDX( I ) ) // "_REAL", & 'AE_' // TRIM( AERO_REFRACT_INDX ( I ) ) // "_IMAG", & I = 1, NAERO_REFRACT ) ELSE WRITE(JTABLE_UNIT,5009)'! I','START_WL_BIN(nm)', & 'EFFECT_WL_BIN_(nm)', 'END_WL_BIN_(nm)','solar_photons_(cm-2*s-1)', & 'CLD_EXT/LWC_(m2/g)','CLD_ASYM_FACT','CLD_COALBEDO' END IF CALL OPTICS_WATER_CLOUD(CLOUD_RADIUS_LIQUID, WC_EXT, WC_ASF, WC_SSA) ! DO I = 1, N_INLINE_BAND ! 248, 298, 25 ! ITTR = NJO_NEW - N_INLINE_BAND + I ! print*,ITTR, WC_EXT(ITTR), WC_ASF(ITTR), WC_SSA(ITTR) ! ENDDO ! pause AERO_IMAG_REFRACT = 0.0 AERO_REAL_REFRACT = 0.0 CAll AERO_REFRACT_INDEX ( NAERO_REFRACT, AERO_REFRACT_INDX, AERO_REAL_REFRACT, & AERO_IMAG_REFRACT ) IF( WRITE_AE_REFRACT )THEN DO I = 1, N_INLINE_BAND ! 248, 298, 25 ITTR = NJO_NEW - N_INLINE_BAND + I WRITE(JTABLE_UNIT,5008)I, & STWL_NEW(ITTR+2), EFFECTIVE_LAMBDA(ITTR), ENDWL_NEW(ITTR+2), & SOLAR_PHOTONS( ITTR ), WC_EXT(ITTR), WC_ASF(ITTR), WC_SSA(ITTR), & ( AERO_REAL_REFRACT( ITTR, J ), AERO_IMAG_REFRACT( ITTR, J ), & J = 1, NAERO_REFRACT ) ENDDO ELSE DO I = 1, N_INLINE_BAND ! 248, 298, 25 ITTR = NJO_NEW - N_INLINE_BAND + I WRITE(JTABLE_UNIT,5008)I, & STWL_NEW(ITTR+2), EFFECTIVE_LAMBDA(ITTR), ENDWL_NEW(ITTR+2), & SOLAR_PHOTONS( ITTR ), WC_EXT(ITTR), WC_ASF(ITTR), WC_SSA(ITTR) ENDDO END IF ! READ(PHOTAB_UNIT,'(17X,I3,2/)')NWL ! DO I = 1, NWL ! READ(PHOTAB_UNIT,'(4X,,3(5X,F8.3,5X))') ! & STWL(I), WAVELENGTH(ITTR), ENDWL(I) ! ENDDO ! WRITE(JTABLE_UNIT,3011) !3011 FORMAT('!Solar Flux at top of atmosphere, photon/cm2/s' ! DO I = 1, N_INLINE_BAND ! 248, 298, 25 ! ITTR = NJO_NEW - N_INLINE_BAND + I ! WRITE(JTABLE_UNIT,'(I3,1X,3(5X,F8.3,5X))')I, ! & SOLAR_PHOTONS(ITTR+2) ! ENDDO write(JTABLE_UNIT,2007) write(JTABLE_UNIT,2009) write(JTABLE_UNIT,3010) WRITE(JTABLE_UNIT,'(A7,7X,A8,3X,A4,3X,40(A5,I3,A1,5X))')'!PHOTAB', & 'QUANTITY','TEMP',('WBIN(',J,')', J = 1, N_INLINE_BAND) ! READ(PHOTAB_UNIT,'(3/)') DO J = 1, NZ XCROSS(J, 1:NJO_NEW) = 6.5E-19 YIELD(J, 1:NJO_NEW) = 1.0 ENDDO ALLOCATE( CS_PHOT( N_TEMPERATURE, N_INLINE_BAND, NPHOTAB) ) ALLOCATE( QY_PHOT( N_TEMPERATURE, N_INLINE_BAND, NPHOTAB) ) ALLOCATE( ECS_PHOT( N_TEMPERATURE, N_INLINE_BAND, NPHOTAB) ) ALLOCATE( EQY_PHOT( N_TEMPERATURE, N_INLINE_BAND, NPHOTAB) ) ALLOCATE( O3_CS_STRAT( N_TEMP_STRAT, N_INLINE_BAND) ) ALLOCATE( O3_QY_STRAT( N_TEMP_STRAT, N_INLINE_BAND) ) ALLOCATE( O3_ECS_STRAT( N_TEMP_STRAT, N_INLINE_BAND) ) ALLOCATE( O3_EQY_STRAT( N_TEMP_STRAT, N_INLINE_BAND) ) !...Compute Stratospheric Ozone Cross-Sections CALL INIT_JPROC_DATA() LOOP_STRAT: DO ITTR = 1, N_TEMP_STRAT TEMP = TEMP_STRAT(ITTR) ! AIR_TEMP = TEMP ! REPLACE = .FALSE. DO J= 1, N_INLINE_BAND I = NJO_NEW - N_INLINE_BAND + J IF( TEMP_STRAT(ITTR) .LT. 293.0 .AND. TEMP_STRAT(ITTR) .GT. 218.0)THEN O3_CS_STRAT( ITTR, J) = (O3_XCROSS_293K(I)-O3_XCROSS_218K(I)) & / 75.0 & * (TEMP_STRAT(ITTR) - 218.0) & + O3_XCROSS_218K(I) ELSEIF( TEMP_STRAT(ITTR) .LE. 218.0)THEN O3_CS_STRAT( ITTR, J) = O3_XCROSS_218K(I) ELSEIF( TEMP_STRAT(ITTR) .GE. 293.0)THEN O3_CS_STRAT( ITTR, J) = O3_XCROSS_293K(I) END IF O3_QY_STRAT( ITTR, J) = OZONE_YIELD(WC(I),TEMP_STRAT(ITTR)) O3_EQY_STRAT( ITTR, J) = OZONE_YIELD(WC(I),TEMP_STRAT(ITTR)) WRITE(6,99959)I,EFFECTIVE_LAMBDA(I),O3_CS_STRAT( ITTR, J),O3_QY_STRAT( ITTR, J) 99959 FORMAT("O3_STRAT: ",I2,1X,"LAMDBA: ",F7.2,1X,3(1PE12.4,1X)) ! O3_CS_STRAT( ITTR, J) = 6.5E-19 ! O3_QY_STRAT( ITTR, J) = 1.0 ! O3_ECS_STRAT( ITTR, J) = 6.5E-19 ! O3_EQY_STRAT( ITTR, J) = 1.0 ENDDO !note assumes ozone dissociation cross-sections and yield do not depend on number density ! on 08/02/13 this assumption is correct for the xc_yq_td_code.F code ! CALL XC_QY_TD_EFFECT(EFFECTIVE_LAMBDA, NJO_NEW, ! & AIR_TEMP,NUM_DENS,NZ,'O3O1D-06 ', ! & XCROSS,YIELD,XCROSS_EFF,REPLACE) ! ! IF( REPLACE )THEN ! print*,'using xcqy file for O3 Stratosphere' ! DO J= 1, N_INLINE_BAND ! O3_CS_STRAT( ITTR, J) = XCROSS(NZ, NJO_NEW - N_INLINE_BAND + J ) ! O3_QY_STRAT( ITTR, J) = YIELD(NZ, NJO_NEW - N_INLINE_BAND + J ) ! O3_EQY_STRAT( ITTR, J) = YIELD(NZ, NJO_NEW - N_INLINE_BAND + J ) ! ENDDO ! ELSE ! print*,'using xcqy file for O3 Stratosphere' ! ENDIF ENDDO LOOP_STRAT ALLOCATE( MODIS_ALBEDO( NJO_NEW, NUMB_LANDUSE_MODIS ) ) CALL SPECTRAL_REFLECT(MODIS_ALBEDO) print*,'completed firstcall in create module ' END IF ! FIRSTCALL IRXN = -1 DO I = 1, NPHOTAB IF( SPECTRA_NAME .EQ. PHOTAB(I) )THEN IRXN = I EXIT ENDIF ENDDO IF( IRXN .LE. 0 )THEN WRITE(6,*)'ERROR IN CREATE_MODULE: SPECTRA_NAME NOT in PHOTAB array ' STOP ENDIF SAFE_NAME = SPECTRA_NAME J = LEN(SAFE_NAME) DO I = 1, LEN(SAFE_NAME) IF( SAFE_NAME(I:I) .EQ. '-' ) SAFE_NAME(I:I) = '_' ENDDO ! IF( PHOT_PROCESS(IRXN) )THEN ! NPHOT_DONE = NPHOT_DONE + 1 ! PHOT_DONE(NPHOT_DONE) = PHOTAB(IRXN) ! ELSE ! WRITE(6,*)TRIM(SPECTRA_NAME),' already processed by ',TRIM(PHOT_DONE(IRXN)) ! RETURN ! ENDIF DO I = 1, NPHOT_DONE IF( SPECTRA_NAME .EQ. PHOT_DONE(I) )THEN WRITE(6,*)TRIM(SPECTRA_NAME),' already processed by ',TRIM(PHOT_DONE(I)) RETURN ENDIF ENDDO NPHOT_DONE = NPHOT_DONE + 1 PHOT_DONE(NPHOT_DONE) = PHOTAB(IRXN) CALL INTAVG_C(WLIN, CS_IN, NWLIN, SPECTRA_TYPE, NSO, WL, WU, XCOUT) CALL INTAVG_C(WLIN, QY_IN, NWLIN, SPECTRA_TYPE, NSO, WL, WU, QYOUT) C DO I = 1, NSO C IF(XCOUT(I).GT.0.0 .AND. AMOD(WL(I),2.0) .EQ. 0.0)THEN C WRITE(6,'(A16,2(1X,ES12.4))')SPECTRA_NAME,WL(I),XCOUT(I) C ENDIF C ENDDO C if(INDEX(SPECTRA_NAME,'O1D') .GT. 0)THEN C TEMP = 298.0 C do j = 1, NSO C call X_HNO3(W(J), TEMP, XNEW, TITLNEW) C if( ABS(W(J)-325.0) .LE. 5.0 )THEN C WRITE(6,'(2(A,1x,f6.2,1x,es12.4))') C & 'XO3FASTJ ',WV_FASTJ(J),XO3_FASTJ(J), C & SPECTRA_NAME,W(J),XCOUT(J) C endif C XCOUT(J) = XO3_FASTJ(J) C ENDDO C pause C ENDIF ! do ITTR = 240, 300, 30 ! TEMP = FLOAT(ITTR) c---now ready to do any flux-weighted means over the bins FBIN(:) = 0.d0 ABIN(:) = 0.0d0 CBIN(:) = 0.0d0 DBIN(:) = 0.0d0 EBIN(:) = 0.0d0 do J=K1,K2 K = J - K1 + 1 ! call X_NEW(W(J), TEMP, XNEW, TITLNEW) I = IBINJ_NEW(J) if (I .gt. 0) then WW = W(J) FBIN(I) = FBIN(I) + F(J) ABIN(I) = ABIN(I) + F(J)*DBLE(XCOUT(J)) CBIN(I) = CBIN(I) + F(J)*DBLE(QYOUT(J)) DBIN(I) = DBIN(I) + F(J)*DBLE(XCOUT(J))*DBLE(QYOUT(J)) EBIN(I) = DBIN(I) ! ABIN(I) = ABIN(I) + F(J)*XNEW endif enddo do I=1,NB_NEW if (ABIN(I) .gt. 0.d0)EBIN(I) = EBIN(I)/ABIN(I) if (FBIN(I) .gt. 0.d0) then ABIN(I) = ABIN(I)/FBIN(I) CBIN(I) = CBIN(I)/FBIN(I) DBIN(I) = DBIN(I)/FBIN(I) endif enddo print*,'completed first average in create module ' c---write out UCI std 77-bin data c write(6,'(a10,f10.2,a)') ' Temp=',TT,' flx O3T O3D NO2 NO2x' c write(6,'(i5,0p,2f10.3,1p,6e10.3)') (I,WBIN(I),WBIN(I+1),FBIN(I) c & ,XBIN(I),QBIN(I),YBIN(I),ZBIN(I),ABIN(I),I=1,NB) c---combine fast-JX bins: c--- non-SR bands (16:NB) are assigned a single JX bin c--- SR bands are split (by Opacity Distrib Fn) into a range of JX bins FFBIN(:) = 0.d0 AABIN(:) = 0.d0 CCBIN(:) = 0.d0 DDBIN(:) = 0.d0 EEBIN(:) = 0.d0 XCROSS(:,:) = 0.d0 YIELD(:,:) = 0.d0 XCROSS_EFF(:,:) = 0.d0 FFBIN(:) = 0.d0 do I=16,NB_NEW ! J = IJX(I) ! J = IJX_CALC(I) J = IJX_BIN_NEW( I ) FFBIN(J) = FFBIN(J) + FBIN(I) AABIN(J) = AABIN(J) + FBIN(I)*ABIN(I) CCBIN(J) = CCBIN(J) + FBIN(I)*CBIN(I) DDBIN(J) = DDBIN(J) + FBIN(I)*DBIN(I) EEBIN(J) = EEBIN(J) + FBIN(I)*ABIN(I)*EBIN(I) enddo do I=1,15 do J=1,NJO_NEW FFBIN(J) = FFBIN(J) + FBIN(I)*SRB_NEW(I,J) AABIN(J) = AABIN(J) + FBIN(I)*ABIN(I)*SRB_NEW(I,J) CCBIN(J) = CCBIN(J) + FBIN(I)*CBIN(I)*SRB_NEW(I,J) DDBIN(J) = DDBIN(J) + FBIN(I)*DBIN(I)*SRB_NEW(I,J) EEBIN(J) = EEBIN(J) + FBIN(I)*ABIN(I)*EBIN(I)*SRB_NEW(I,J) enddo enddo NWL_AVE = NJO_NEW WLL_AVE = 0.0 WLU_AVE = 0.0 CS_AVE = 0.0 QY_AVE = 0.0 do J = 1, 8 ! WLL_AVE( J ) = STR_WV_FASTJX( J ) ! WLU_AVE( J ) = END_WV_FASTJX( J ) WLL_AVE( J ) = STWL_NEW( J ) WLU_AVE( J ) = ENDWL_NEW( J ) enddo do J = 9, NJO_NEW ! WLL_AVE( J ) = STR_WV_FASTJX( J + 2 ) ! WLU_AVE( J ) = END_WV_FASTJX( J + 2 ) WLL_AVE( J ) = STWL_NEW( J + 2 ) WLU_AVE( J ) = ENDWL_NEW( J + 2) enddo do J=1,NJO_NEW if (AABIN(J) .gt. 0.d0) EEBIN(J) = EEBIN(J)/AABIN(J) if (FFBIN(J) .gt. 0.d0)THEN AABIN(J) = AABIN(J)/FFBIN(J) CCBIN(J) = CCBIN(J)/FFBIN(J) DDBIN(J) = DDBIN(J)/FFBIN(J) CS_AVE( J ) = AABIN(J) QY_AVE( J ) = CCBIN(J) endif enddo print*,'completed second average in create module ' LOOP_TROP: DO ITTR = 1, N_TEMPERATURE TEMP = TEMPERATURE(ITTR) ! IF( TEMP .GT. 298.0)THEN ! TEMP = 298.0 ! END IF AIR_TEMP = TEMP REPLACE = .FALSE. DO J = 1, NZ ! note that NZ is 1 XCROSS(J, 1:NJO_NEW) = CS_AVE(1:NJO_NEW) YIELD(J, 1:NJO_NEW) = EEBIN(1:NJO_NEW) ENDDO DO J= 1, N_INLINE_BAND CS_PHOT( ITTR, J, IRXN) = CS_AVE( NJO_NEW - N_INLINE_BAND + J ) QY_PHOT( ITTR, J, IRXN) = QY_AVE( NJO_NEW - N_INLINE_BAND + J ) ECS_PHOT( ITTR, J, IRXN) = DDBIN( NJO_NEW - N_INLINE_BAND + J ) EQY_PHOT( ITTR, J, IRXN) = EEBIN( NJO_NEW - N_INLINE_BAND + J ) ! YIELD(NZ, NJO_NEW - N_INLINE_BAND + J) = EQY_PHOT( ITTR, J, IRXN) ENDDO print*,'calling XC_QY_TD_EFFECT for ',SPECTRA_NAME CALL XC_QY_TD_EFFECT(EFFECTIVE_LAMBDA, NJO_NEW, & AIR_TEMP,NUM_DENS,NZ,SPECTRA_NAME, & XCROSS,YIELD,XCROSS_EFF,REPLACE) C IF( REPLACE )THEN print*,'called XC_QY_TD_EFFECT for ',SPECTRA_NAME DO J= 1, N_INLINE_BAND CS_PHOT( ITTR, J, IRXN) = XCROSS(NZ, NJO_NEW - N_INLINE_BAND + J ) QY_PHOT( ITTR, J, IRXN) = YIELD(NZ, NJO_NEW - N_INLINE_BAND + J ) EQY_PHOT( ITTR, J, IRXN) = YIELD(NZ, NJO_NEW - N_INLINE_BAND + J ) ENDDO ELSE print*,'using xcqy file for ',SPECTRA_NAME ENDIF c---write out UCI fast-JX data bins ! if (ITTR .eq. 180) then ! write(6,'(a6,i4,1p,6e10.3/10x,6e10.3/10x,6e10.3)') ! & 'solflx',ITTR, FFBIN ! write(6,*) '==========fast-JX 18-bin cross-sections=============' ! endif ! write(6,'(a16,i4,1p,6e10.3/20x,6e10.3/20x,6e10.3)') ! & TRIM(SAFE_NAME), INT(TEMP), AABIN ENDDO LOOP_TROP TEMP = 298.0 write(6,'(A16,1X,A5,1X,F8.3,1X,40(1PE12.6,2X))') & TRIM(SAFE_NAME), 'CS0', TEMP, & (AABIN(NJO_NEW - N_INLINE_BAND + J),J= 1, N_INLINE_BAND) write(MODULE_UNIT,2003) 2003 format(1x) write(MODULE_UNIT,2005) 2005 format('C... reference temperatures (K)') write(MODULE_UNIT,2003) write(MODULE_UNIT,2001) trim(SAFE_NAME), N_TEMPERATURE, TEMPERATURE(1:N_TEMPERATURE) 2001 format(6x,'DATA ( TEMP_REF( ITTR, I',A,' ), ITTR = 1,', I3, ' ) / ',f5.1,', ',f5.1,', ',f5.1, ' /' ) write(MODULE_UNIT,2003) write(MODULE_UNIT,2007) ! call WRBF12D_HEADERB (MODULE_UNIT,5,N_TEMPERATURE,TEMPERATURE,'NTEMP_REF', ! & 'TEMP_REF','F') ! pause 2007 format('!... CS = absorption cross sections averaged over UCI Solar Flux') write(MODULE_UNIT,2003) do i = 1, N_TEMPERATURE write(JTABLE_UNIT,'(A16,1X,A5,1X,F8.3,1X,40(1PE12.6,2X))')SPECTRA_NAME, & 'CS',TEMPERATURE(I),(CS_PHOT( I, J, IRXN), J = 1, N_INLINE_BAND) write(6,'(A16,1X,A5,1X,F8.3,1X,40(1PE12.6,2X))')SPECTRA_NAME, & 'CS',TEMPERATURE(I),(CS_PHOT( I, J, IRXN), J = 1, N_INLINE_BAND) write(JTABLE_UNIT,'(A16,1X,A5,1X,F8.3,1X,40(1PE12.6,2X))')SPECTRA_NAME, & 'EQY',TEMPERATURE(I),(EQY_PHOT( I, J, IRXN), J = 1, N_INLINE_BAND) ! DO IRXN = 1, NPHOT_MAP ! DO I = 1, NTEMP_REF ! READ(PHOTAB_UNIT,'(32X,40(1PE12.6,2X)')(CS_PHOT( I, J, IRXN), J = 1, NWL) ! READ(PHOTAB_UNIT,'(32X,40(1PE12.6,2X)')(EQY_PHOT( I, J, IRXN), J = 1, NWL) ! ENDDO ! ENDDO write(MODULE_UNIT,2011) trim(SAFE_NAME), I, N_INLINE_BAND 2011 format(6x,'DATA ( CS_REF( I', A,', ' I3, ', IWLR ), IWLR = 1, ', I3 , ' ) /') ! write(MODULE_UNIT,2013)(CS_PHOT( I, J, IRXN), J = 1, 4) ! write(MODULE_UNIT,2015)(CS_PHOT( I, J, IRXN), J = 5, 7) DO K = 1, 4*INT(N_INLINE_BAND/4), 4 write( MODULE_UNIT,2013)(CS_PHOT( I, J, IRXN), J = (K-1)+1, (K-1)+4) ENDDO K = 4*INT(N_INLINE_BAND/4) IF( K .GT. 0 )THEN write(MODULE_UNIT,2015)(CS_PHOT( I, J, IRXN), J = K+1, N_INLINE_BAND) ENDIF 2013 format(5x, '& ', 1pE12.6,', ', 1pE12.6, ', ',1pE12.6, ', ', 1pE12.6, ', ') 2015 format(' & ', 1pE12.6, ', ', 1pE12.6, ', ', 1pE12.6, ' /') end do write(MODULE_UNIT,2003) write(MODULE_UNIT,2009) 2009 format('!... QY = quantum yields averaged over UCI Solar Flux') write(MODULE_UNIT,2003) do i = 1, N_TEMPERATURE write(MODULE_UNIT,2017) trim(SAFE_NAME), I, N_INLINE_BAND 2017 format(6x,'DATA ( QY_REF( I', A,', ' I3, ', IWLR ), IWLR = 1, ', I3 , ' ) /') ! write(MODULE_UNIT,2013)(QY_PHOT( I, J, IRXN), J = 1, 4) ! write(MODULE_UNIT,2015)(QY_PHOT( I, J, IRXN), J = 5, 7) DO K = 1, 4*INT(N_INLINE_BAND/4), 4 write(MODULE_UNIT,2013)(QY_PHOT( I, J, IRXN), J = (K-1)+1, (K-1)+4) ENDDO K = 4*INT(N_INLINE_BAND/4) IF( K .GT. 0 )THEN write(MODULE_UNIT,2015)(QY_PHOT( I, J, IRXN), J = K+1, N_INLINE_BAND) ENDIF end do write(MODULE_UNIT,2003) write(MODULE_UNIT,3009) 3009 format('!... ECS = CS*QY averaged over UCI Solar Flux') write(MODULE_UNIT,2003) do i = 1, N_TEMPERATURE write(MODULE_UNIT,3017) trim(SAFE_NAME), I, N_INLINE_BAND 3017 format(6x,'DATA ( ECS_REF( I', A,', ' I3, ', IWLR ), IWLR = 1, ', I3 , ' ) /') ! write(MODULE_UNIT,2013)(ECS_PHOT( I, J, IRXN), J = 1, 4) ! write(MODULE_UNIT,2015)(ECS_PHOT( I, J, IRXN), J = 5, 7) DO K = 1, 4*INT(N_INLINE_BAND/4), 4 write(MODULE_UNIT,2013)(ECS_PHOT( I, J, IRXN), J = (K-1)+1, (K-1)+4) ENDDO K = 4*INT(N_INLINE_BAND/4) IF( K .GT. 0 )THEN write(MODULE_UNIT,2015)(ECS_PHOT( I, J, IRXN), J = K+1, N_INLINE_BAND) ENDIF end do write(MODULE_UNIT,2003) write(MODULE_UNIT,3010) 3010 format('!... EQY = eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model') write(MODULE_UNIT,2003) do i = 1, N_TEMPERATURE write(MODULE_UNIT, 3018) trim(SAFE_NAME), I, N_INLINE_BAND 3018 format(6x,'DATA ( EQY_REF( I', A,', ' I3, ', IWLR ), IWLR = 1, ',I3, ' ) /') DO K = 1, 4*INT(N_INLINE_BAND/4), 4 ! write(MODULE_UNIT,2013)(EQY_PHOT( I, J, IRXN), J = (K-1)+1, (K-1)+4) write(MODULE_UNIT,2013)(EQY_PHOT( I, J, IRXN), J = (K-1)+1, (K-1)+4) ENDDO K = 4*INT(N_INLINE_BAND/4) IF( K .GT. 0 )THEN ! write(6, 2015)(EQY_PHOT( I, J, IRXN), J = K+1, N_INLINE_BAND) write(MODULE_UNIT,2015)(EQY_PHOT( I, J, IRXN), J = K+1, N_INLINE_BAND) ENDIF end do IF( SPECTRA_NAME .EQ. PHOTAB(NPHOTAB) )THEN ! write out the ozone cross-section for stratospheric temperatures WRITE(JTABLE_UNIT,5010) WRITE(JTABLE_UNIT,'(A14,1X,I3)')'NTEMP_STRAT = ', N_TEMP_STRAT WRITE(JTABLE_UNIT,'(A7,7X,A8,3X,A4,3X,40(A5,I3,A1,5X))')'! ', & 'QUANTITY','TEMP',('WBIN(',J,')', J = 1, N_INLINE_BAND) DO I = 1, N_TEMP_STRAT WRITE(JTABLE_UNIT,'(A16,1X,A5,1X,F8.3,1X,40(1PE12.6,2X))')'O3_STRAT ', & 'CS',TEMP_STRAT(I),(O3_CS_STRAT( I, J), J = 1, N_INLINE_BAND) ENDDO ! write out the suface albedo data for each landuse WRITE(JTABLE_UNIT,5011) WRITE(JTABLE_UNIT,5013)'NUMB_LANDUSE_MODIS = ', NUMB_LANDUSE_MODIS WRITE(JTABLE_UNIT,5014) WRITE(JTABLE_UNIT,5013)'INDEX_GRASSLAND = ', INDEX_GRASSLAND WRITE(JTABLE_UNIT,5013)'INDEX_OCEAN_WATER = ', INDEX_OCEAN_WATER WRITE(JTABLE_UNIT,5013)'INDEX_SEA_ICE = ', INDEX_SEA_ICE WRITE(JTABLE_UNIT,5009)'! I','LANDUSE_CATEGORY', & 'ZENITH_ANGLE_COEFF', 'SEASONAL_COEFF','SNOW_COVER_COEEF' DO I = 1, NUMB_LANDUSE_MODIS WRITE(JTABLE_UNIT,5012)I, LANDUSE( I ), & ZENITH_COEFF( I ), SEASON_COEFF( I ), SNOW_COEFF( I ) ENDDO WRITE(JTABLE_UNIT,'(A7,7X,A16,2X,40(A5,I3,A1,5X))')'! ', & 'LANDUSE CATEGORY',('WBIN(',J,')', J = 1, N_INLINE_BAND) DO I = 1, NUMB_LANDUSE_MODIS WRITE(JTABLE_UNIT,'(A30,1X,40(1PE12.6,2X))') & TRIM(LANDUSE(I)),(MODIS_ALBEDO( NJO_NEW - N_INLINE_BAND + J, I), J = 1, N_INLINE_BAND) ENDDO WRITE(JTABLE_UNIT,5015) WRITE(JTABLE_UNIT,5013)'NUMB_NLCD_MODIS = ', NUMB_NLCD_MODIS WRITE(JTABLE_UNIT,5009)'! I','LANDUSE_NLCD-MODIS','INDEX_ALBREF', & 'FAC_ALBREF' DO I = 1, NUMB_NLCD_MODIS WRITE(JTABLE_UNIT,5016)I, NLCD_LANDUSE( I ), & INT(ALBMAP_REF2NLCD( I )), ALBFAC_REF2NLCD( I ) ENDDO WRITE(JTABLE_UNIT,5013)'NUMB_USGS = ', NUMB_USGS WRITE(JTABLE_UNIT,5009)'! I','LANDUSE_USGS','INDEX_ALBREF', & 'FAC_ALBREF' DO I = 1, NUMB_USGS WRITE(JTABLE_UNIT,5016)I, USGS_LANDUSE( I ), & INT(ALBMAP_REF2USGS( I )), ALBFAC_REF2USGS( I ) ENDDO WRITE(JTABLE_UNIT,5013)'NUMB_MODIS_NOAH = ', NUMB_MODIS_NOAH WRITE(JTABLE_UNIT,5009)'! I','LANDUSE_MODIS-NOAH','INDEX_ALBREF', & 'FAC_ALBREF' DO I = 1, NUMB_MODIS_NOAH WRITE(JTABLE_UNIT,5016)I, MODIS_LANDUSE( I ), & INT(ALBMAP_REF2MODIS( I )), ALBFAC_REF2MODIS( I ) ENDDO WRITE(JTABLE_UNIT,5013)'NUMB_NLCD40_MODIS = ', NUMB_NLCD40_MODIS WRITE(JTABLE_UNIT,5009)'! I','LANDUSE_NLCD40-MODIS','INDEX_ALBREF', & 'FAC_ALBREF' DO I = 1, NUMB_NLCD40_MODIS WRITE(JTABLE_UNIT,5016)I, NLCD40_LANDUSE( I ), & INT(ALBMAP_REF2NLCD40( I )), ALBFAC_REF2NLCD40( I ) ENDDO ENDIF write(MODULE_UNIT,2003) write(MODULE_UNIT,2003) IF(IRXN .GE. NPHOTAB)THEN WRITE(MODULE_UNIT,'(6X,A)')'END MODULE CSQY_DATA' ENDIF 1001 FORMAT(A16,22X,F5.1,2X,F5.1) 1003 FORMAT(61X,F9.1) 5001 FORMAT('! Cloud properties and aerosol refractive indices are weighted bin averages.') 5002 FORMAT('! The former is based on HU & Stamnes (1993), An accurate parameterization of') 5003 FORMAT('! the radiative properties of water clouds suitable for use in climate models,') 5004 FORMAT('! J. of Climate, vol. 6, pp. 728-742. The values were calculated with an') 5005 FORMAT('! equivalent radius of 10 micrometers. ') 5006 FORMAT('! Note: Cloud extinction/LWC is in [1/m] over [g/m **3] where LWC is in g/m**3', & /, '! ') 5007 FORMAT('! Complex refractive indices for aerosol components are based on ', & /,'! 1) Hess, M. P. Koepke, and I. Schult, Optical properties of aerosols and', & /,'! clouds: The software package OPAC, Bulletin of the American Meteorological', & /,'! Society, Vol 79, No 5, pp 831 - 844, May 1998. Available at', & /,'! www.lrz-muenchen.de/~uh234an/www/radaer/opac.htm', & /,'! 2) Segelstein, D., 1981: The Complex Refractive Index of Water, M.S. Thesis,', & /,'! University of Missouri--Kansas City, MO' ) !5008 FORMAT(I3,1X,3(F8.3,2X),2X,ES12.4,2X,2(F8.3,2X),ES12.4,2X,8(F8.3,1X,ES12.4,1X)) 5008 FORMAT(I3,', ',3(F8.3,', '),ES12.4,', ',2(F8.3,', '),ES12.4,5(', ',F8.3,', ',ES12.4)) !5009 FORMAT(A3, 20(', ',A)) 5009 FORMAT(A3,', ',3(A,', '),A,', ',2(A,', '),A,5(', ',A,', ',A)) 5010 FORMAT('! Ozone Cross-Section for Stratospheric Opacity based on Table 4-5 in', & /,'! Chemical Kinetics and Photochemical Data for Use in Atmospheric', & /,'! Studies Evaluation Number 15. Sander et. al: NASA-JPL 2006 ') 5011 FORMAT('! Surface Albedo with wavelength dependence for 20 MODIS land use types.', & /,'! Correction factors are included for solar zenith angle and season.', & /,'! Note that an adjustment is used better match spectral estimates.', & /,'! REFERENCE: CERES/SARB Surface Properties database, May 2006', & /,'! http://www-surf.larc.nasa.gov/surf/pages/explan.html.') 5012 FORMAT(I3,1X,A30,1X,3(F8.3,2X)) 5013 FORMAT(A21,1X,I3) 5014 FORMAT('! Following two indices denote the categories assigned as generic', & /,'! land and water surfaces. The surfaces are used as the default', & /,'! land characterization scheme if scheme used is not known.') 5015 FORMAT('! Following maps the above albedo data to three land characterization', & /,'! schemes commonly used in CMAQ applications.', & /,'! ') 5016 FORMAT(I3,1X,A60,1X,I3,2X,3(F8.3,2X)) print*, ' returning for effective average ',SPECTRA_NAME RETURN END c>>>>>>>>>>>>>>>>>>>>>>>added Xsection<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< subroutine X_HNO3 (WW, TT, XNEW, TITLNEW) c---JPL-2006 Xsects for HNO3 Table 4-25: c--- X(T) = 1e-20*X * exp[1e-3*B*(T-298)] c--- wavelengths: 192 - 350 nm by 2 nm implicit none real, intent(in) :: WW, TT real, intent(out):: XNEW character*6, intent(out):: TITLNEW integer IWW real*8 FWW,WWI,XX,BB character*6, parameter:: JNEW = 'HNO3 ' real*4, parameter, dimension(80) :: X = & [1225.,1095.,940.,770.,588.,447.,328.,231.,156.,104.,67.5,43.9, & 29.2,20.,14.9,11.8,9.61,8.02,6.82,5.75,4.87,4.14,3.36,2.93,2.58, & 2.34,2.16,2.06,2.,1.97,1.96,1.95,1.95,1.93,1.91,1.87,1.83,1.77, & 1.7,1.62,1.53,1.44,1.33,1.23,1.12,1.01,0.909,0.807,0.709,0.615, & 0.532,0.453,0.381,0.316,0.263,0.208,0.167,0.133,0.105,0.0814, & 0.0628,0.0468,0.0362,0.0271,0.0197,0.0154,0.0108,0.0082,0.00613, & 0.00431,0.00319,0.00243,0.00196,0.00142,0.00103,0.00086,0.00069, & 0.0005,0.00042,0.00042] real*8, parameter, dimension(80) :: B = & [0.,0.,1.7,1.65,1.66,1.69,1.74,1.77,1.85,1.97,2.08,2.17,2.17, & 2.21,2.15,2.06,1.96,1.84,1.78,1.8,1.86,1.9,1.97,1.97,1.97,1.88, & 1.75,1.61,1.44,1.34,1.23,1.18,1.14,1.12,1.14,1.14,1.18,1.22,1.25, & 1.45,1.49,1.56,1.64,1.69,1.78,1.87,1.94,2.04,2.15,2.27,2.38,2.52, & 2.7,2.92,3.1,3.24,3.52,3.77,3.91,4.23,4.7,5.15,5.25,5.74,6.45, & 6.7,7.16,7.55,8.16,9.75,9.93,9.6,10.5,10.8,11.8,11.8,9.3,12.1, & 11.9,9.3] TITLNEW = JNEW WWI = 0.5d0*(DBLE(WW) - 190.d0) IWW = WWI IWW = max( 1, min( 79, IWW)) FWW = WWI - float(IWW) FWW = max( 0.d0, min( 1.d0, FWW)) XNEW = 0.d0 if (DBLE(WW) .le. 350.d0) then XX = X(IWW) + (X(IWW+1)-X(IWW))*FWW BB = B(IWW) + (B(IWW+1)-B(IWW))*FWW XNEW = REAL(1.d-20* XX * exp(1.d-3*BB * (DBLE(TT) - 298.d0))) endif return end ================================================ FILE: UTIL/inline_phot_preproc/src/driver.f ================================================ PROGRAM DRIVER USE GET_ENV_VARS USE CSQY_PARAMETERS USE CSQY_REFER_DATA IMPLICIT NONE CHARACTER( 5 ) :: SPLIT_OUTPUT CHARACTER( 13 ) :: TYPE_OUTPUTS = 'SPLIT_OUTPUT' INTEGER :: STATUS INTEGER :: SYSTEM INTERFACE SUBROUTINE CONVERT_CASE ( BUFFER, UPPER ) CHARACTER(LEN= *), INTENT( INOUT ) :: BUFFER LOGICAL, INTENT( IN ) :: UPPER END SUBROUTINE CONVERT_CASE END INTERFACE !Bin 01 177.5-202.5 nm !Bin 02 177.5-202.5 nm !Bin 03 177.5-202.5 nm !Bin 04 177.5-202.5 nm !Bin 05 202.5-206.5 nm !Bin 06 206.5-209.5 nm !Bin 07 209.5-212.5 nm !Bin 08 212.5-215.5 nm !Bin 09 233.0-275.5 nm !Bin 10 275.5-286.5 nm !Bin 11 286.5-291.0 nm !Bin 12 291.0-298.3 nm !Bin 13 298.3-307.5 nm !Bin 14 307.5-312.5 nm !Bin 15 312.5-320.3 nm !Bin 16 320.3-345.0 nm !Bin 17 345.0-412.5 nm !Bin 18 412.5-850.0 nm CALL VALUE_NAME ( TYPE_OUTPUTS, SPLIT_OUTPUT) CALL CONVERT_CASE( SPLIT_OUTPUT, .TRUE.) IF( SPLIT_OUTPUT(1:1) .EQ. 'T' .OR. SPLIT_OUTPUT(1:1) .EQ. 'Y' )THEN SPLIT_OUTPUTS = .TRUE. WRITE(6,'(A)')'Environment Variable SPLIT_OUTPUT set to ' & // TRIM( SPLIT_OUTPUT ) // '. CSQY and Optics Data in two' & // ' separate files' ELSE IF( SPLIT_OUTPUT(1:1) .EQ. 'F' .OR. SPLIT_OUTPUT(1:1) .EQ. 'N' )THEN SPLIT_OUTPUTS = .FALSE. WRITE(6,'(A)')'Environment Variable SPLIT_OUTPUT set to ' & // TRIM( SPLIT_OUTPUT ) // '. CSQY and Optics Data in one file' ELSE WRITE(6,' (A)')'Environment Variable SPLIT_OUTPUT set to ' & // TRIM( SPLIT_OUTPUT ) // ' and must equal T, Y, F, or N.' & // ' Using default value of T' SPLIT_OUTPUTS = .TRUE. END IF CALL PROCESS_CSQYS ( ) IF(SPLIT_OUTPUTS)CALL WRT_OPTICS_DATA( ) CLOSE( JTABLE_UNIT ) WRITE(6, *)'NORMAL_STOP' STATUS = 0 CALL EXIT(STATUS) STOP END ================================================ FILE: UTIL/inline_phot_preproc/src/effective_ave.F ================================================ SUBROUTINE CREATE_MODULE( WLIN, CS_IN, QY_IN, NWLIN, SPECTRA_NAME, SPECTRA_TYPE, & WLL_AVE, WLU_AVE, CS_AVE, QY_AVE, NWL_AVE ) USE JPROC_PROFILE IMPLICIT NONE ! INCLUDE 'JVALPARMS.EXT' ! jproc parameters C...........ARGUMENTS and their descriptions CHARACTER( 1) SPECTRA_TYPE ! spectra type CHARACTER(16) SPECTRA_NAME ! spectra name or PHOTAB label INTEGER NWL_AVE ! number of intervals average INTEGER NWLIN ! number of intervals CQin REAL WLIN ( MXWLIN ) ! wl for CQin REAL CS_IN( MXWLIN ) ! cross-section as f(WLIN) REAL QY_IN( MXWLIN ) ! quantum yield as f(WLIN) REAL WLL_AVE( MXWL ) ! lower limit on wl effective interval REAL WLU_AVE( MXWL ) ! upper limit on wl effective interval REAL CS_AVE( MXWL ) ! cross-section as f(WL_AVE) REAL QY_AVE( MXWL ) ! quantum yield as f(WL_AVE) C...........LOCAL VARIABLES and their descriptions: CHARACTER(16) :: PNAME = 'CREATE_MODULE' ! program name CHARACTER(80) :: MSG = ' ' ! message C...........PARAMETERS and their descriptions INTEGER, PARAMETER :: XSTAT2 = 2 ! Program ERROR exit status integer, parameter :: NBO = 100 integer, parameter :: NSO = 40000 integer, parameter :: NZO = 13550 integer, parameter :: NJO = 18 INTEGER, SAVE :: NB, J1, J2, K1, K2 ! array limits and markers INTEGER :: I, J, K ! index counters REAL WLIN1( NSO ) ! lower limit on wl int CQin REAL WLIN2( NSO ) ! upper limit on wl int CQin REAL(8), SAVE :: SRB(15,NJO) REAL(8), SAVE :: WBIN(NBO + 1 ) REAL(8) :: FBIN(NBO) REAL(8) :: FFBIN(NJO) REAL(8) :: ABIN(NBO) REAL(8) :: AABIN(NJO) REAL(8) :: CBIN(NBO) REAL(8) :: CCBIN(NJO) REAL(8) :: TEMP ! temperature, K REAL(8) :: WW REAL(8), PARAMETER :: TINY = 0.06 INTEGER, SAVE :: IJX(NBO) INTEGER :: ITT INTEGER, SAVE :: IJX_CALC(NBO) INTEGER :: ITT_CALC REAL(8), SAVE :: W(NSO),F(NSO) REAL :: XCOUT(NSO), QYOUT(NSO) REAL, SAVE :: WL(NSO), WU(NSO), WC(NSO) INTEGER, SAVE :: IBINJ(NSO) REAL(8) :: XNEW CHARACTER(8) :: TITLNEW ! FASTJX has 18 bins but the wavelength interval of the bins can overlap REAL, SAVE :: STR_WV_FASTJX( NJO + 2 ) ! nm, starting wavelength of FASTJ intervals DATA STR_WV_FASTJX & / 177.5, 177.5, 177.5, 177.5, 202.5, 206.5, 209.5, & 212.5, 215.5, 221.5, 233.0, 275.5, 286.5, 291.0, & 298.3, 307.5, 312.5, 320.3, 345.0, 412.5 / REAL, SAVE :: END_WV_FASTJX( NJO + 2 ) ! nm, ending wavelength of FASTJ intervals DATA END_WV_FASTJX & / 202.5, 202.5, 202.5, 202.5, 206.5, 209.5, 212.5, & 215.5, 221.5, 233.0, 275.5, 286.5, 291.0, 298.3, & 307.5, 312.5, 320.3, 345.0, 412.5, 850.0 / INTEGER, SAVE :: FASTJX_BIN( NJO + 2 ) ! FASTJX bin number for the intervals DATA FASTJX_BIN & / 1, 2, 3, 4, 5, 6, 7, & 8, 11, 10, 9, 10, 11, 12, & 13, 14, 15, 16, 17, 18 / ! Effective Center wavelengths for 18 bins of FASTJX, not mean bin edges !w-eff (nm) 187. 191. 193. 196. 202. 208. ! 211. 214. 261. 267. 277. 295. ! 303. 310. 316. 333. 380. 574. REAL, SAVE :: EFF_WV_FASTJX( NJO ) ! nm DATA EFF_WV_FASTJX & / 187.0, 191.0, 193.0, 196.0, 202.0, 208.0, & 211.0, 214.0, 261.0, 267.0, 277.0, 295.0, & 303.0, 310.0, 316.0, 333.0, 380.0, 574.0 / integer, parameter :: nwv_regress = 27 REAL, SAVE :: ENDWL_REGRESS( nwv_regress ) ! wavelength band upper limit REAL, SAVE :: MIDWL_REGRESS( nwv_regress ) ! wavelength midpoints REAL, SAVE :: STWL_REGRESS( nwv_regress ) ! wavelength band lower limit REAL, ALLOCATABLE, SAVE :: ENDWL_NEW( : ) ! wavelength band upper limit REAL, ALLOCATABLE, SAVE :: MIDWL_NEW( : ) ! wavelength midpoints REAL, ALLOCATABLE, SAVE :: STWL_NEW( : ) ! wavelength band lower limit INTEGER, SAVE :: NWV_NEW ! number of new bins INTEGER :: STRT, FINI INTEGER, SAVE :: MODULE_UNIT = 75 LOGICAL, SAVE :: FIRSTCALL = .TRUE. REAL, SAVE :: TEMPERATURE(3) INTEGER :: IRXN CHARACTER(16), SAVE :: PHOT_DONE( NPHOTAB ) INTEGER, SAVE :: NPHOT_DONE LOGICAL, SAVE :: PHOT_PROCESS( NPHOTAB ) IF( FIRSTCALL )THEN FIRSTCALL = .FALSE. PHOT_PROCESS = .TRUE. open (1, file='wavel-bins.dat', status='OLD') SRB = 0.d0 read(1,'(i5)') NB if (NB .gt. NBO)THEN PRINT*,'NB exceeds ',NBO,' in file wavel-bins.dat ' stop ENDIF read(1,'(5x,f8.3)') (WBIN(I), I=1,NB+1) read(1,*) read(1,*) read(1,'(2x,15f5.1)') ((SRB(I,J),I=1,15),J=1,8) read(1,*) read(1,'(5x,i5)') (IJX(I),I=16,NB) close (1) write(6,'(2x,15f5.1)') ((SRB(I,J),I=1,15),J=1,8) open (2, file='solar-p05nm-UCI.dat', status='OLD') read(2,*) read(2,*) read(2,'(f10.4,e10.3)') (W(J),F(J), J=1,NSO) close (2) ! initialize the regress wavelength bins STWL_REGRESS(1) = 287.5 MIDWL_REGRESS(1) = 290.0 ENDWL_REGRESS(1) = 292.5 do i = 2, 23 STWL_REGRESS(i) = STWL_REGRESS(i-1) + 5.0 MIDWL_REGRESS(i) = MIDWL_REGRESS(i-1) + 5.0 ENDWL_REGRESS(i) = ENDWL_REGRESS(i-1) + 5.0 enddo STWL_REGRESS(24) = ENDWL_REGRESS(23) MIDWL_REGRESS(24) = 450.0 ENDWL_REGRESS(24) = 500.0 do i = 25, nwv_regress STWL_REGRESS(i) = ENDWL_REGRESS(i-1) MIDWL_REGRESS(i) = MIDWL_REGRESS(i-1) + 100.0 ENDWL_REGRESS(i) = ENDWL_REGRESS(i-1) + 100.0 enddo do i = 1, nwv_regress WRITE(6,'(i3,2(2x,f6.2))')i,STWL_REGRESS(i),ENDWL_REGRESS(i) enddo ! find where regress bins start and stop in FASTJX bins if( STR_WV_FASTJX( 1 ) .gt. STWL_REGRESS(1) )THEN print*,'ERROR 1 in finding starting point ' stop endif if( END_WV_FASTJX( NJO + 2 ) .lt. STWL_REGRESS(1) )THEN print*,'ERROR 2 in finding starting point ' stop endif LOOP_START: do J = 1, NJO + 2 if( STR_WV_FASTJX( J ) .ge. STWL_REGRESS(1) )THEN STRT = J - 1 EXIT LOOP_START ENDIF if( J .eq. (NJO + 2) )THEN print*,'ERROR 3 in finding starting point ' stop endif ENDDO LOOP_START FINI = NJO + 2 LOOP_STOP: do K = 1, NJO + 2 if( END_WV_FASTJX( J ) .gt. ENDWL_REGRESS(nwv_regress) )THEN FINI = K EXIT LOOP_STOP ENDIF ENDDO LOOP_STOP IF( FINI .EQ. ( NJO + 2 ) )THEN IF(INT(END_WV_FASTJX(FINI)) & .NE.INT(ENDWL_REGRESS(nwv_regress)))THEN print*,'Resetting ENDWL_REGRESS(last) to END_WV_FASTJX(last) ' print*,' INT(END_WV_FASTJX(FINI)) = ',INT(END_WV_FASTJX(FINI)) print*,' INT(ENDWL_REGRESS(nwv_regress)) = ', & INT(ENDWL_REGRESS(nwv_regress)) ENDWL_REGRESS(nwv_regress) = END_WV_FASTJX(FINI) ENDIF ENDIF NWV_NEW = STRT + nwv_regress + ( NJO + 2 - FINI ) ALLOCATE( STWL_NEW ( NWV_NEW ) ) ALLOCATE( MIDWL_NEW ( NWV_NEW ) ) ALLOCATE( ENDWL_NEW ( NWV_NEW ) ) IF( FINI .EQ. ( NJO + 2 ) )THEN STWL_NEW( 1:STRT ) = STR_WV_FASTJX( 1:STRT ) STWL_NEW( (STRT+1):NWV_NEW ) = STWL_REGRESS( 1:nwv_regress ) ENDWL_NEW( 1:(STRT-1) ) = END_WV_FASTJX( 1:(STRT-1) ) ENDWL_NEW( STRT ) = STWL_REGRESS( 1 ) ENDWL_NEW( (STRT+1):NWV_NEW ) = ENDWL_REGRESS( 1:nwv_regress ) ELSE J = STRT + nwv_regress STWL_NEW( 1:STRT ) = STR_WV_FASTJX( 1:STRT ) STWL_NEW( (STRT+1): J ) = STWL_REGRESS( 1:nwv_regress ) STWL_NEW( J + 1 ) = ENDWL_REGRESS( nwv_regress ) STWL_NEW( (J+2):NWV_NEW ) = STR_WV_FASTJX( FINI:(NBO + 2 ) ) ENDWL_NEW( 1:(STRT-1) ) = END_WV_FASTJX( 1:(STRT-1) ) ENDWL_NEW( STRT ) = STWL_REGRESS( 1 ) ENDWL_NEW( (STRT+1):J ) = ENDWL_REGRESS( 1:nwv_regress ) ENDWL_NEW( J+1:NWV_NEW ) = END_WV_FASTJX( FINI:(NBO + 2) ) ENDIF do i = 1, NWV_NEW WRITE(6,'(i3,2(2x,f6.2))')i,STWL_NEW(i),ENDWL_NEW(i) enddo DO I = 1, NSO WC( I ) = REAL(W( I )) WL( I ) = WC( I ) - 0.05 WU( I ) = WC( I ) + 0.05 ENDDO K1 = 1 K2 = NSO c---now assign bin #(I=1:77) to each p05nm microbin J (1:40000) IBINJ = 0 do I=1,NB do J=1,NSO if (W(J) .gt. WBIN(I)) goto 11 enddo J = NSO + 1 11 J1 = J do J=J1,NSO if (W(J) .gt. WBIN(I+1)) goto 12 enddo J = NSO + 1 12 J2 = J-1 do J=J1,J2 IBINJ(J) = I enddo enddo IJX_CALC = 0 DO I = 16, NB DO J = 1, NJO + 2 IF(WBIN(I)+TINY .GE. STR_WV_FASTJX(J) & .AND. WBIN(I)-TINY .LT. END_WV_FASTJX(J))THEN IJX_CALC( I ) = FASTJX_BIN ( J ) ENDIF ENDDO print*,I,' IJX_CALC(I) - IJX(I) = ', IJX_CALC(I) - IJX(I) ENDDO WRITE(6,'(i5,2x,i5,2x,F6.2,2x,F6.2)') & (I,IJX_CALC(I),WBIN(I),WBIN(I+1),I=16,NB) OPEN(MODULE_UNIT, FILE = 'INLINE_CSQY.DAT', STATUS = 'UNKNOWN') ITT = 0 DO I = 240, 300, 30 ITT = ITT + 1 TEMPERATURE(ITT) = FLOAT(I) ENDDO PHOT_DONE = ' ' NPHOT_DONE = 0 DO J = 1, NPHOTAB DO I = 1, NPHOT_DONE IF( PHOTAB(J) .EQ. PHOT_DONE(I) )THEN WRITE(6,*)TRIM(PHOTAB(J)),' already treated by ',TRIM(PHOT_DONE(I)) PHOT_PROCESS( J ) = .FALSE. ENDIF ENDDO NPHOT_DONE = NPHOT_DONE + 1 PHOT_DONE(NPHOT_DONE) = PHOTAB(J) ENDDO WRITE(MODULE_UNIT,'(6X,A)')'MODULE CSQY_DATA' write(MODULE_UNIT,2003) WRITE(MODULE_UNIT,'(6X,A)')'IMPLICIT NONE' write(MODULE_UNIT,2003) WRITE(MODULE_UNIT,'(A)')'C.....PARAMETERS and their descriptions:' write(MODULE_UNIT,2003) WRITE(MODULE_UNIT,1996)NPHOT_DONE 1996 format(6X,'INTEGER, PARAMETER :: NPHOT_REF = ',I3,' ! # ref phot reactions ') write(MODULE_UNIT,2003) WRITE(MODULE_UNIT,1997)N_TEMPERATURE 1997 format(6X,'INTEGER, PARAMETER :: NTEMP = ',I3,' ! # ref temperatures ') write(MODULE_UNIT,2003) WRITE(MODULE_UNIT,1998)N_INLINE_BAND 1998 format(6X,'INTEGER, PARAMETER :: NWL_REF = ',I3,' ! # ref wavelengths ') write(MODULE_UNIT,2003) WRITE(MODULE_UNIT,'(A)')'C...Names of the mapped photolysis reactions (available to chemical)' WRITE(MODULE_UNIT,'(A)')'C... mechanisms) and their pointers to the reference photolysis rxn' write(MODULE_UNIT,2003) write(MODULE_UNIT,2003) DO I = 1, NPHOT_DONE write(MODULE_UNIT,1999) PHOT_DONE(I), I, PHOT_DONE(I) 1999 FORMAT(6X,'INTEGER, PARAMETER :: I',A16, ' = ', I3, ' ! pointer to ', A16) ENDDO write(MODULE_UNIT,2003) DO I = 1, NPHOT_DONE write(MODULE_UNIT,2000) PHOT_DONE(I), PHOT_DONE(I) 2000 FORMAT(6X,'DATA PNAME_REF( I',A16, ' ) / ''', A16, ''' /') ENDDO write(MODULE_UNIT,2003) WRITE(MODULE_UNIT,'(A)')'C...Setup the Mapping from CMAQ chemical reactions to the reference data' write(MODULE_UNIT,2003) WRITE(MODULE_UNIT,2024)NPHOT_DONE 2024 format(6X,'INTEGER, PARAMETER :: NPHOT_MAP = ',I3,' ! # phot mapped reactions ') write(MODULE_UNIT,2003) WRITE(MODULE_UNIT,2025) 2025 format(6X,'CHARACTER(16), SAVE :: PNAME_MAP( NPHOT_MAP )') WRITE(MODULE_UNIT,2026) 2026 format(6X,'CHARACTER(16), SAVE :: PHOT_MAP( NPHOT_MAP )') write(MODULE_UNIT,2003) DO I = 1, NPHOT_DONE write(MODULE_UNIT,2010) I, I, PHOT_DONE(I), PHOT_DONE(I) 2010 FORMAT(6X,'DATA PNAME_MAP( ', I3, ' ), ', ' PHOT_MAP( ', I3, ' ) / ''', & A16, ''', I', A16, ' / ') ENDDO write(MODULE_UNIT,2021) 2021 format(6X,'REAL, SAVE :: TEMP_REF( NTEMP_REF, NPHOT_REF ) ! temperatures') write(MODULE_UNIT,2021) 2022 format(6X,'REAL, SAVE :: CS_REF( NPHOT_REF, NTEMP_REF, NWL_REF ) ! cross sections') write(MODULE_UNIT,2021) 2023 format(6X,'REAL, SAVE :: QY_REF( NPHOT_REF, NTEMP_REF, NWL_REF ) ! quantum yields') write(MODULE_UNIT,2003) write(MODULE_UNIT,2003) write(MODULE_UNIT,'(6X,A)')'INTEGER :: IWLR ! wavelength loop variable' write(MODULE_UNIT,'(6X,A)')'INTEGER :: ITT ! temperature loop variable' PHOT_DONE = ' ' NPHOT_DONE = 0 ENDIF ! FIRSTCALL IRXN = -1 DO I = 1, NPHOTAB IF( SPECTRA_NAME .EQ. PHOTAB(I) )THEN IRXN = I EXIT ENDIF ENDDO IF( IRXN .LE. 0 )THEN WRITE(6,*)'ERROR IN CREATE_MODULE: SPECTRA_NAME NOT in PHOTAB array ' STOP ENDIF DO I = 1, NPHOT_DONE IF( SPECTRA_NAME .EQ. PHOT_DONE(I) )THEN WRITE(6,*)TRIM(SPECTRA_NAME),' already processed by ',TRIM(PHOT_DONE(I)) RETURN ENDIF ENDDO NPHOT_DONE = NPHOT_DONE + 1 PHOT_DONE(NPHOT_DONE) = SPECTRA_NAME CALL INTAVG(WLIN, CS_IN, NWLIN, SPECTRA_TYPE, WL, WU, XCOUT, NSO) CALL INTAVG(WLIN, QY_IN, NWLIN, SPECTRA_TYPE, WL, WU, QYOUT, NSO) DO I = 1, NSO IF(XCOUT(I).GT.0.0 .AND. AMOD(WL(I),2.0) .EQ. 0.0)THEN ! WRITE(6,'(A16,2(1X,ES12.4))')SPECTRA_NAME,WL(I),XOUT(I) ENDIF ENDDO do ITT = 1, 3 TEMP = TEMPERATURE(ITT) ! do ITT = 240, 300, 30 ! TEMP = FLOAT(ITT) c---now ready to do any flux-weighted means over the bins FBIN(:) = 0.d0 ABIN(:) = 0.0d0 CBIN(:) = 0.0d0 do J=K1,K2 K = J - K1 + 1 call X_NEW(W(J), TEMP, XNEW, TITLNEW) I = IBINJ(J) if (I .gt. 0) then WW = W(J) FBIN(I) = FBIN(I) + F(J) ABIN(I) = ABIN(I) + F(J)*DBLE(XCOUT(J)) CBIN(I) = CBIN(I) + F(J)*DBLE(QYOUT(J)) ! ABIN(I) = ABIN(I) + F(J)*XNEW endif enddo do I=1,NB if (FBIN(I) .gt. 0.d0) then ABIN(I) = ABIN(I)/FBIN(I) CBIN(I) = CBIN(I)/FBIN(I) endif enddo c---write out UCI std 77-bin data c write(6,'(a10,f10.2,a)') ' Temp=',TT,' flx O3T O3D NO2 NO2x' c write(6,'(i5,0p,2f10.3,1p,6e10.3)') (I,WBIN(I),WBIN(I+1),FBIN(I) c & ,XBIN(I),QBIN(I),YBIN(I),ZBIN(I),ABIN(I),I=1,NB) c---combine fast-JX bins: c--- non-SR bands (16:NB) are assigned a single JX bin c--- SR bands are split (by Opacity Distrib Fn) into a range of JX bins FFBIN(:) = 0.d0 AABIN(:) = 0.d0 CCBIN(:) = 0.d0 FFBIN(:) = 0.d0 do I=16,NB ! J = IJX(I) J = IJX_CALC(I) FFBIN(J) = FFBIN(J) + FBIN(I) AABIN(J) = AABIN(J) + FBIN(I)*ABIN(I) CCBIN(J) = CCBIN(J) + FBIN(I)*CBIN(I) enddo do I=1,15 do J=1,NJO FFBIN(J) = FFBIN(J) + FBIN(I)*SRB(I,J) AABIN(J) = AABIN(J) + FBIN(I)*ABIN(I)*SRB(I,J) CCBIN(J) = CCBIN(J) + FBIN(I)*CBIN(I)*SRB(I,J) enddo enddo NWL_AVE = NJO WLL_AVE = 0.0 WLU_AVE = 0.0 CS_AVE = 0.0 QY_AVE = 0.0 do J = 1, 8 WLL_AVE( J ) = STR_WV_FASTJX( J ) WLU_AVE( J ) = END_WV_FASTJX( J ) enddo do J = 9, NJO WLL_AVE( J ) = STR_WV_FASTJX( J + 2 ) WLU_AVE( J ) = END_WV_FASTJX( J + 2 ) enddo do J=1,NJO if (FFBIN(J) .gt. 0.d0)THEN AABIN(J) = AABIN(J)/FFBIN(J) CCBIN(J) = CCBIN(J)/FFBIN(J) CS_AVE( J ) = AABIN(J) QY_AVE( J ) = CCBIN(J) endif enddo do J= 1, 7 CS_PHOT( ITT, J, IRXN) = CS_AVE( NJO - 7 + J ) QY_PHOT( ITT, J, IRXN) = QY_AVE( NJO - 7 + J ) enddo c---write out UCI fast-JX data bins ! if (ITT .eq. 180) then ! write(6,'(a6,i4,1p,6e10.3/10x,6e10.3/10x,6e10.3)') ! & 'solflx',ITT, FFBIN ! write(6,*) '==========fast-JX 18-bin cross-sections=============' ! endif write(6,'(a16,i4,1p,6e10.3/20x,6e10.3/20x,6e10.3)') & TRIM(SPECTRA_NAME), INT(TEMP), AABIN enddo write(MODULE_UNIT,2003) 2003 format(1x) write(MODULE_UNIT,2005) 2005 format(1x,'C... reference temperatures (K)') write(MODULE_UNIT,2003) write(MODULE_UNIT,2001) trim(PHOTAB(IRXN)), TEMPERATURE(1:3) 2001 format(6x,'DATA ( TEMP_REF( ITT, I',A,' ), ITT=1,3 ) / ',f5.1,', ',f5.1,', ',f5.1, ' /' ) write(MODULE_UNIT,2003) write(MODULE_UNIT,2007) 2007 format(1x,'C... absorption cross sections') write(MODULE_UNIT,2003) do i = 1, 3 write(MODULE_UNIT,2011) trim(SPECTRA_NAME) 2011 format(6x,'DATA ( CS_REF( I', A,', 1, IWLR ), IWLR = 1, 7 ) /') write(MODULE_UNIT,2013)(CS_PHOT( I, J, IRXN), J = 1, 4) 2013 format(5x, '& ', 1pE12.6,', ', 1pE12.6, ', ',1pE12.6, ', ', 1pE12.6, ', ') write(MODULE_UNIT,2013)(CS_PHOT( I, J, IRXN), J = 5, 7) 2015 format(' & ', 1pE12.6, ', ', 1pE12.6, ', ', 1pE12.6, ' /') end do write(MODULE_UNIT,2003) write(MODULE_UNIT,2009) 2009 format(1x,'C... quantum yields') write(MODULE_UNIT,2003) do i = 1, 3 write(MODULE_UNIT,2017) trim(SPECTRA_NAME) 2017 format(6x,'DATA ( QY_REF( I', A,', 1, IWLR ), IWLR = 1, 7 ) /') write(MODULE_UNIT,2013)(QY_PHOT( I, J, IRXN), J = 1, 4) write(MODULE_UNIT,2013)(QY_PHOT( I, J, IRXN), J = 5, 7) end do IF(IRXN .GE. NPHOTAB)THEN write(MODULE_UNIT,2003) write(MODULE_UNIT,2003) WRITE(MODULE_UNIT,'(6X,A)')'END MODULE CSQY_DATA' ENDIF 1001 format(A16,22X,F5.1,2X,F5.1) 1003 format(61x,f9.1) print*, ' returning for effective average ',SPECTRA_NAME RETURN END ================================================ FILE: UTIL/inline_phot_preproc/src/init_lu.f90 ================================================ !*********************************************************************** ! Portions of Models-3/CMAQ software were developed or based on * ! information from various groups: Federal Government employees, * ! contractors working on a United States Government contract, and * ! non-Federal sources (including research institutions). These * ! research institutions have given the Government permission to * ! use, prepare derivative works, and distribute copies of their * ! work in Models-3/CMAQ to the public and to permit others to do * ! so. EPA therefore grants similar permissions for use of the * ! Models-3/CMAQ software, but users are requested to provide copies * ! of derivative works to the Government without restrictions as to * ! use by others. Users are responsible for acquiring their own * ! copies of commercial software associated with Models-3/CMAQ and * ! for complying with vendor requirements. Software copyrights by * ! the MCNC Environmental Modeling Center are used with their * ! permissions subject to the above restrictions. * !*********************************************************************** ! RCS file, release, date & time of last delta, author, state, [and locker] ! $Header: /project/work/rep/MCIP2/src/mcip2/init_lu.F SUBROUTINE init_lu !------------------------------------------------------------------------------- ! Name: Initialize Land Use Classification Arrays ! Purpose: Initializes land use classification arrays. ! Notes: Land use classifications are based off systems used in MM5 and WRF. ! Revised: 25 Aug 2009 Original version. (T. Otte) !------------------------------------------------------------------------------- USE luvars IMPLICIT NONE !------------------------------------------------------------------------------- ! Initialize "Old" MM5 13-category classification. !------------------------------------------------------------------------------- lucatold( 1) = "Urban Land" lucatold( 2) = "Agriculture" lucatold( 3) = "Range-Grassland" lucatold( 4) = "Deciduous Forest" lucatold( 5) = "Coniferous Forest" lucatold( 6) = "Mixed Forest and Wetland" lucatold( 7) = "Water" lucatold( 8) = "Marsh or Wetland" lucatold( 9) = "Desert" lucatold(10) = "Tundra" lucatold(11) = "Permanent Ice" lucatold(12) = "Tropical or Subtropical Forest" lucatold(13) = "Savannah" !------------------------------------------------------------------------------- ! Initialize USGS 24-category classification. !------------------------------------------------------------------------------- lucatusgs24( 1) = "Urban Land" lucatusgs24( 2) = "Dryland Cropland and Pasture" lucatusgs24( 3) = "Irrigated Cropland and Pasture" lucatusgs24( 4) = "Mixed Dryland and Irrigated Cropland and Pasture" lucatusgs24( 5) = "Cropland-Grassland Mosaic" lucatusgs24( 6) = "Cropland-Woodland Mosaic" lucatusgs24( 7) = "Grassland" lucatusgs24( 8) = "Shrubland" lucatusgs24( 9) = "Mixed Shrubland-Grassland" lucatusgs24(10) = "Savannah" lucatusgs24(11) = "Deciduous Broadleaf Forest" lucatusgs24(12) = "Deciduous Needleleaf Forest" lucatusgs24(13) = "Evergreen Broadleaf Forest" lucatusgs24(14) = "Evergreen Needleleaf Forest" lucatusgs24(15) = "Mixed Forest" lucatusgs24(16) = "Water" lucatusgs24(17) = "Herbaceous Wetland" lucatusgs24(18) = "Wooded Wetland" lucatusgs24(19) = "Barren or Sparsely Vegetated" lucatusgs24(20) = "Herbaceous Tundra" lucatusgs24(21) = "Wooded Tundra" lucatusgs24(22) = "Mixed Tundra" lucatusgs24(23) = "Bare Ground Tundra" lucatusgs24(24) = "Snow or Ice" !------------------------------------------------------------------------------- ! Initialize SiB 16-category classification. !------------------------------------------------------------------------------- lucatsib( 1) = "Evergreen Broadleaf Trees" lucatsib( 2) = "Broadleaf Deciduous Trees" lucatsib( 3) = "Deciduous and Evergreen Trees" lucatsib( 4) = "Evergreen Needleleaf Trees" lucatsib( 5) = "Deciduous Needleleaf Trees" lucatsib( 6) = "Ground Cover with Trees and Shrubs" lucatsib( 7) = "Ground Cover Only" lucatsib( 8) = "Broadleaf Shrubs with Perennial Ground Cover" lucatsib( 9) = "Broadleaf Shrubs with Bare Soil" lucatsib(10) = "Ground Cover with Dwarf Trees and Shrubs" lucatsib(11) = "Bare Soil" lucatsib(12) = "Agriculture or C3 Grassland" lucatsib(13) = "Persistent Wetland" lucatsib(14) = "Dry Coastal Complexes" lucatsib(15) = "Water" lucatsib(16) = "Ice Cap and Glacier" !------------------------------------------------------------------------------- ! Initialize USGS 33-category classification. !------------------------------------------------------------------------------- lucatusgs33(1:24) = lucatusgs24(1:24) lucatusgs33(25) = "Playa" lucatusgs33(26) = "Lava" lucatusgs33(27) = "White Sand" lucatusgs33(28) = "~~~unassigned~~~" lucatusgs33(29) = "~~~unassigned~~~" lucatusgs33(30) = "~~~unassigned~~~" lucatusgs33(31) = "Low Intensity Residential" lucatusgs33(32) = "High Intensity Residential" lucatusgs33(33) = "Industrial or Commercial" !------------------------------------------------------------------------------- ! Initialize Modified IGBP MODIS NOAH 33-category classification. !------------------------------------------------------------------------------- lucatmod( 1) = "Evergreen Needleleaf Forest" lucatmod( 2) = "Evergreen Broadleaf Forest" lucatmod( 3) = "Deciduous Needleleaf Forest" lucatmod( 4) = "Deciduous Broadleaf Forest" lucatmod( 5) = "Mixed Forests" lucatmod( 6) = "Closed Shrublands" lucatmod( 7) = "Open Shrublands" lucatmod( 8) = "Woody Savannas" lucatmod( 9) = "Savannas" lucatmod(10) = "Grasslands" lucatmod(11) = "Permanent Wetlands" lucatmod(12) = "Croplands" lucatmod(13) = "Urban and Built-Up" lucatmod(14) = "Cropland-Natural Vegetation Mosaic" lucatmod(15) = "Snow and Ice" lucatmod(16) = "Barren or Sparsely Vegetated" lucatmod(17) = "Water" lucatmod(18) = "Wooded Tundra" lucatmod(19) = "Mixed Tundra" lucatmod(20) = "Barren Tundra" lucatmod(21) = "~~~unassigned~~~" lucatmod(22) = "~~~unassigned~~~" lucatmod(23) = "~~~unassigned~~~" lucatmod(24) = "~~~unassigned~~~" lucatmod(25) = "~~~unassigned~~~" lucatmod(26) = "~~~unassigned~~~" lucatmod(27) = "~~~unassigned~~~" lucatmod(28) = "~~~unassigned~~~" lucatmod(29) = "~~~unassigned~~~" lucatmod(30) = "~~~unassigned~~~" lucatmod(31) = "Low Intensity Residential" lucatmod(32) = "High Intensity Residential" lucatmod(33) = "Industrial or Commercial" !------------------------------------------------------------------------------- ! Initialize NLCD-MODIS 50-category classification. !------------------------------------------------------------------------------- lucatnlcd( 1) = "Open Water" lucatnlcd( 2) = "Perennial Ice-Snow" lucatnlcd( 3) = "Developed Open Space" lucatnlcd( 4) = "Developed Low Intensity" lucatnlcd( 5) = "Developed Medium Intensity" lucatnlcd( 6) = "Developed High Intensity" lucatnlcd( 7) = "Barren Land (Rock-Sand-Clay)" lucatnlcd( 8) = "Unconsolidated Shore" lucatnlcd( 9) = "Deciduous Forest" lucatnlcd(10) = "Evergreen Forest" lucatnlcd(11) = "Mixed Forest" lucatnlcd(12) = "Dwarf Scrub" lucatnlcd(13) = "Shrub-Scrub" lucatnlcd(14) = "Grassland-Herbaceous" lucatnlcd(15) = "Sedge-Herbaceous" lucatnlcd(16) = "Lichens" lucatnlcd(17) = "Moss" lucatnlcd(18) = "Tundra" lucatnlcd(19) = "Pasture-Hay" lucatnlcd(20) = "Cultivated Crops" lucatnlcd(21) = "Woody Wetlands" lucatnlcd(22) = "Palustrine Forested Wetland" lucatnlcd(23) = "Palustrine Scrub-Shrub Wetland" lucatnlcd(24) = "Estuarine Forested Wetland" lucatnlcd(25) = "Estuarine Scrub-Shrub Wetland" lucatnlcd(26) = "Emergent Herbaceous Wetlands" lucatnlcd(27) = "Palustrine Emergent Wetland" lucatnlcd(28) = "Estuarine Emergent Wetland" lucatnlcd(29) = "Palustrine Aquatic Bed" lucatnlcd(30) = "Estuarine Aquatic Bed" lucatnlcd(31) = "Water" lucatnlcd(32) = "Evergreen Needleleaf Forest" lucatnlcd(33) = "Evergreen Broadleaf Forest" lucatnlcd(34) = "Deciduous Needleleaf Forest" lucatnlcd(35) = "Deciduous Broadleaf Forest" lucatnlcd(36) = "Mixed Forests" lucatnlcd(37) = "Closed Shrublands" lucatnlcd(38) = "Open Shrublands" lucatnlcd(39) = "Woody Savannas" lucatnlcd(40) = "Savannas" lucatnlcd(41) = "Grasslands" lucatnlcd(42) = "Permanent Wetlands" lucatnlcd(43) = "Croplands" lucatnlcd(44) = "Urban and Built Up" lucatnlcd(45) = "Cropland-Natural Vegetation Mosaic" lucatnlcd(46) = "Permanent Snow and Ice" lucatnlcd(47) = "Barren or Sparsely Vegetated" lucatnlcd(48) = "IGBP Water" lucatnlcd(49) = "unclassified" lucatnlcd(50) = "fill value" END SUBROUTINE init_lu ================================================ FILE: UTIL/inline_phot_preproc/src/inline_phot_preproc.makefile ================================================ ifndef EXEC MODEL = CSQY_TABLE_PROCESSOR.EXE else MODEL = $(EXEC) endif ifndef compiler compiler = gcc # other options (intel | pgi ) endif ifeq ($(compiler),intel) FC = ifort CC = icc F_FLAGS = -fixed -132 -fp-model source -fpe0 -O0 -check uninit -warn nounused -check bounds -check format -g -traceback -fno-alias -mp1 -I . -g f_FLAGS = -fixed -132 -fp-model source -fpe0 -O0 -check uninit -warn nounused -check bounds -check format -g -traceback -fno-alias -mp1 -I . -g F90_FLAGS = -free -fp-model source -fpe0 -O0 -check uninit -warn nounused -check bounds -check format -g -traceback -fno-alias -mp1 -I . -g f90_FLAGS = -free -fp-model source -fpe0 -O0 -check uninit -warn nounused -check bounds -check format -g -traceback -fno-alias -mp1 -I . -g C_FLAGS = -O2 -DFLDMN=1 LINK_FLAGS = else ifeq ($(compiler),pgi) FC = pgf90 CC = pgcc F_FLAGS = -Mfixed -Mextend -Mbounds -O0 -traceback -Mchkptr -Mchkstk -traceback -Ktrap=fp -I . -g f_FLAGS = -Mfixed -Mextend -Mbounds -O0 -traceback -Mchkptr -Mchkstk -traceback -Ktrap=fp -I . -g f90_FLAGS = -Mfree -Mextend -Mbounds -O0 -traceback -Mchkptr -Mchkstk -traceback -Ktrap=fp -I . -g F90_FLAGS = -Mfree -Mextend -Mbounds -O0 -traceback -Mchkptr -Mchkstk -traceback -Ktrap=fp -I . -g C_FLAGS = -O2 -DFLDMN=1 LINK_FLAGS = #LINK_FLAGS = -Bstatic #LINK_FLAGS = -Bstatic -Bstatic_pgi else ifeq ($(compiler),nvhpc) FC = nvfortran CC = nvc F_FLAGS = -Mfixed -Mextend -Mbounds -O0 -traceback -Mchkptr -Mchkstk -traceback -Ktrap=fp -I . -g f_FLAGS = -Mfixed -Mextend -Mbounds -O0 -traceback -Mchkptr -Mchkstk -traceback -Ktrap=fp -I . -g f90_FLAGS = -Mfree -Mextend -Mbounds -O0 -traceback -Mchkptr -Mchkstk -traceback -Ktrap=fp -I . -g F90_FLAGS = -Mfree -Mextend -Mbounds -O0 -traceback -Mchkptr -Mchkstk -traceback -Ktrap=fp -I . -g C_FLAGS = -O2 -DFLDMN=1 LINK_FLAGS = #LINK_FLAGS = -Bstatic -Bstatic_pgi else ifeq ($(compiler),gcc) FC = gfortran CC = gcc f_FLAGS = -ffixed-form -ffixed-line-length-132 -funroll-loops -O0 -ffpe-trap=invalid,zero -g -finit-character=32 -I. -fcheck=all -fbounds-check F_FLAGS = $(f_FLAGS) f90_FLAGS = -cpp -ffree-form -ffree-line-length-none -funroll-loops -O0 -ffpe-trap=invalid,zero -g -finit-character=32 -I. -fcheck=all -fbounds-check F90_FLAGS = $(f90_FLAGS) C_FLAGS = -O2 -DFLDMN -I /home/wdx/lib/x86_64/gcc/mpich/include LINKER = $(FC) LINK_FLAGS = else ERROR1 = "Makefile not configured to support the specified compiler, $(compiler). User must modify Makefile." endif ifdef ERROR1 $(error $(ERROR1)) endif ifdef INPDIR MECH_INC = $(INPDIR) else ERROR2 = "BuildRun script error: Input directory containing RXNS_DATA_MODULE.F90 not defined" endif ifdef ERROR2 $(error $(ERROR2)) endif LIBRARIES = ifndef USE_RXNS_MODULES INCLUDES = \ -Dverbose_phot -Dmech_includes \ -DSUBST_RXCMMN=\"$(MECH_INC)/RXCM.EXT\" \ -DSUBST_RXDATA=\"$(MECH_INC)/RXDT.EXT\" else INCLUDES = -Dverbose_phot endif #CHECK_CSQY_DATA.o \ ifndef USE_RXNS_MODULES OBJECTS =\ module_envvar.o \ BIN_DATA.o \ CSQY_PARAMETERS.o \ ALBEDO_REFER_DATA.o \ CSQY_REFER_DATA.o \ driver.o \ intavg_b.o \ intavg_c.o \ intavg.o \ wrt_csqy_data_only.o \ wrt_csqy_data.o \ wrt_optics_data.o \ optics_water_cloud.o \ optics_ice_cloud.o \ aero_refract_index.o \ process_csqys.o \ spectral_reflect.o \ wvbin_average-b.o \ wvbin_average.o \ xc_qy_td_effect_v3.o \ convert_case.o else OBJECTS =\ module_envvar.o \ BIN_DATA.o \ RXNS_DATA_MODULE.o \ CSQY_PARAMETERS.o \ ALBEDO_REFER_DATA.o \ CSQY_REFER_DATA.o \ driver.o \ intavg_b.o \ intavg_c.o \ intavg.o \ wrt_csqy_data_only.o \ wrt_csqy_data.o \ wrt_optics_data.o \ optics_water_cloud.o \ optics_ice_cloud.o \ aero_refract_index.o \ process_csqys.o \ spectral_reflect.o \ wvbin_average-b.o \ wvbin_average.o \ xc_qy_td_effect_v3.o \ convert_case.o endif .SUFFIXES: .F .f .c $(MODEL): $(OBJECTS) $(FC) $(LINK_FLAGS) $(OBJECTS) $(LIBRARIES) -o $@ .F.o: $(FC) -c $(F_FLAGS) $(CPP_FLAGS) $(INCLUDES) $< .f.o: $(FC) $(F_FLAGS) -c $< .F90.o: $(FC) -c $(F90_FLAGS) $(CPP_FLAGS) $(INCLUDES) $< RXNS_DATA_MODULE.o: $(MECH_INC)/RXNS_DATA_MODULE.F90 $(FC) -c $(F90_FLAGS) $(CPP_FLAGS) $(INCLUDES) $(MECH_INC)/RXNS_DATA_MODULE.F90 .f90.o: $(FC) -c $(f90_FLAGS) $< .c.o: $(CC) $(C_FLAGS) -c $< clean: rm -f $(OBJECTS) *.o $(MODEL)_* *.mod ================================================ FILE: UTIL/inline_phot_preproc/src/intavg.f ================================================ C*********************************************************************** C Portions of Models-3/CMAQ software were developed or based on * C information from various groups: Federal Government employees, * C contractors working on a United States Government contract, and * C non-Federal sources (including research institutions). These * C research institutions have given the Government permission to * C use, prepare derivative works, and distribute copies of their * C work in Models-3/CMAQ to the public and to permit others to do * C so. EPA therefore grants similar permissions for use of the * C Models-3/CMAQ software, but users are requested to provide copies * C of derivative works to the Government without restrictions as to * C use by others. Users are responsible for acquiring their own * C copies of commercial software associated with Models-3/CMAQ and * C for complying with vendor requirements. Software copyrights by * C the MCNC Environmental Modeling Center are used with their * C permissions subject to the above restrictions. * C*********************************************************************** C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/work/rep/JPROC/src/driver/jproc_table/intavg.f,v 1.3 2002/04/15 18:00:44 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C @(#)intavg.F 1.1 /project/mod3/JPROC/src/driver/jproc_table/SCCS/s.intavg.F 23 May 1997 12:44:18 C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE INTAVG ( WLIN, CQIN, NWLIN, SPECTRA_TYPE, & NWLOUT, WLOUT1, WLOUT2, CQOUT ) C********************************************************************* C C This program computes the integrated average data for the ET C extra terrestrial irradiance wavelength intervals C C History: C S.Roselle 6/05/95 Program created C S.Roselle 7/25/96 Revised subroutine to compute interval C average quantities for point, centered, C beginning, and ending data C C********************************************************************* USE CSQY_PARAMETERS IMPLICIT NONE C...........PARAMETERS and their descriptions INTEGER, PARAMETER :: XSTAT2 = 2 ! Program ERROR exit status C...........ARGUMENTS and their descriptions CHARACTER(1), INTENT( IN ) :: SPECTRA_TYPE ! spectra type INTEGER, INTENT( IN ) :: NWLOUT ! number of intervals ETin INTEGER, INTENT( IN ) :: NWLIN ! number of intervals CQin REAL, INTENT( IN ) :: WLIN ( : ) ! wl for CQin REAL, INTENT( IN ) :: CQIN( : ) ! quantity (CS or QY) as f(WLIN) REAL, INTENT( INOUT ) :: WLOUT1( : ) ! lower limit on wl int ETin REAL, INTENT( INOUT ) :: WLOUT2( : ) ! upper limit on wl int ETin REAL, INTENT( OUT ) :: CQOUT ( : ) ! quantity (CS or QY) as f(WLOUT) C...........LOCAL VARIABLES and their descriptions: CHARACTER( 16 ), SAVE :: PNAME = 'INTAVG' ! program name CHARACTER( 80 ) :: MSG = ' ' ! message REAL :: WLIN1( MXWLIN ) ! lower limit on wl int CQin REAL :: WLIN2( MXWLIN ) ! upper limit on wl int CQin REAL :: DWLIN ! wl int for CQin REAL :: CQA ! lower cq value REAL :: CQB ! upper cq value INTEGER :: I ! index var INTEGER :: J ! index var INTEGER :: MXWLPT ! pointer INTEGER :: MNWLPT ! pointer C********************************************************************* C...begin body of subroutine INTAVG C...process point data IF ( SPECTRA_TYPE .EQ. 'P' ) THEN C...transform the data to the same wavelength intervals as C... the irradiance data. C...loop through wavelength intervals for output arrays DO I = 1, NWLOUT C...find lower limit on input array C print*,'point 3 intavg ',NWLOUT,i,j MNWLPT = 1 DO J = 1, NWLIN IF ( WLIN( J ) .LE. WLOUT1( I ) ) MNWLPT = J END DO C...find upper limit on input array MXWLPT = NWLIN DO J = NWLIN, 1, -1 IF ( WLIN( J ) .GE. WLOUT2( I ) ) MXWLPT = J END DO C print*,'point 1 intavg ' C...initialize output arrays CQOUT( I ) = 0.0 C...loop through the valid wavelength intervals DO J = MNWLPT, MXWLPT C...determine weighting fraction for the wavelength interval IF ( WLOUT1( I ) .LE. WLIN( J ) ) THEN IF ( WLOUT2( I ) .EQ. WLIN( J+1 ) ) THEN DWLIN = WLIN( J+1 ) - WLIN( J ) CQA = CQIN( J ) CQB = CQIN( J+1 ) ELSE IF ( WLOUT2( I ) .LT. WLIN( J+1 ) ) THEN DWLIN = WLOUT2( I ) - WLIN( J ) CQA = CQIN( J ) CQB = ( CQIN( J+1 ) - CQIN( J ) ) & / ( WLIN( J+1 ) - WLIN( J ) ) & * ( WLOUT2( I ) - WLIN( J ) ) + CQIN( J ) ELSE IF ( WLOUT2( I ) .GT. WLIN( J+1 ) ) THEN DWLIN = WLIN( J+1 ) - WLIN( J ) CQA = CQIN( J ) CQB = CQIN( J+1 ) END IF ELSE IF ( WLOUT1( I ) .GT. WLIN( J ) ) THEN IF ( WLOUT2( I ) .EQ. WLIN( J+1 ) ) THEN DWLIN = WLIN( J+1 ) - WLOUT1( I ) CQA = ( CQIN( J+1 ) - CQIN( J ) ) & / ( WLIN( J+1 ) - WLIN( J ) ) & * ( WLOUT1( I ) - WLIN( J ) ) + CQIN( J ) CQB = CQIN( J+1 ) ELSE IF ( WLOUT2( I ) .LT. WLIN( J+1 ) ) THEN DWLIN = WLOUT2( I ) - WLOUT1( I ) CQA = ( CQIN( J+1 ) - CQIN( J ) ) & / ( WLIN( J+1 ) - WLIN( J ) ) & * ( WLOUT1( I ) - WLIN( J ) ) + CQIN( J ) CQB = ( CQIN( J+1 ) - CQIN( J ) ) & / ( WLIN( J+1 ) - WLIN( J ) ) & * ( WLOUT2( I ) - WLIN( J ) ) + CQIN( J ) ELSE IF ( WLOUT2( I ) .GT. WLIN( J+1 ) ) THEN DWLIN = WLIN( J+1 ) - WLOUT1( I ) CQA = ( CQIN( J+1 ) - CQIN( J ) ) & / ( WLIN( J+1 ) - WLIN( J ) ) & * ( WLOUT1( I ) - WLIN( J ) ) + CQIN( J ) CQB = CQIN( J+1 ) END IF END IF C print*,'point 2 intavg ' C...set wavelength interval fraction DWLIN = AMAX1 ( DWLIN / ( WLOUT2( I ) - WLOUT1( I ) ), 0.0 ) C...add weighted quantity to output arrays CQOUT( I ) = CQOUT( I ) + 0.5 * ( CQA + CQB ) * DWLIN END DO END DO C...process interval data C print*,'point 4 intavg ' ELSE C...determine wl intervals for CENTERED WLBAND data IF ( SPECTRA_TYPE .EQ. 'C' ) THEN WLIN1( 1 ) = 0.5 * (( 3.0 * WLIN( 1 ) ) - WLIN( 2 )) WLIN2( 1 ) = 0.5 * (WLIN( 1 ) + WLIN( 2 )) DO J = 2, NWLIN-1 WLIN1( J ) = 0.5 * (WLIN( J ) + WLIN ( J-1 )) WLIN2( J ) = 0.5 * (WLIN( J ) + WLIN ( J+1 )) END DO C...determine wl intervals for BEGINNING WLBAND data ELSE IF ( SPECTRA_TYPE .EQ. 'B' ) THEN DO J = 1, NWLIN-1 WLIN1( J ) = WLIN( J ) WLIN2( J ) = WLIN( J+1 ) END DO C...determine wl intervals for ENDING WLBAND data ELSE IF ( SPECTRA_TYPE .EQ. 'E' ) THEN DO J = 2, NWLIN WLIN1( J-1 ) = WLIN( J-1 ) WLIN2( J-1 ) = WLIN( J ) END DO C...stop program if wavelength data type not found ELSE MSG = 'Unrecognized spectra type in ' // PNAME WRITE(*,*)MSG STOP END IF C...loop through wavelength intervals for output arrays DO I = 1, NWLOUT C...find lower limit on input array MNWLPT = 1 DO J = 1, NWLIN-1 IF ( WLIN1( J ) .LE. WLOUT1( I ) ) MNWLPT = J END DO C...find upper limit on input array MXWLPT = NWLIN-1 DO J = NWLIN-1, 1, -1 IF ( WLIN2( J ) .GE. WLOUT2( I ) ) MXWLPT = J END DO C...initialize output arrays CQOUT( I ) = 0.0 C...loop through the valid wavelength intervals DO J = MNWLPT, MXWLPT C...determine weighting fraction for the wavelength interval IF ( WLOUT1( I ) .LE. WLIN1( J ) ) THEN IF ( WLOUT2( I ) .EQ. WLIN2( J ) ) THEN DWLIN = WLIN2( J ) - WLIN1( J ) ELSE IF ( WLOUT2( I ) .LT. WLIN2( J ) ) THEN DWLIN = WLOUT2( I ) - WLIN1( J ) ELSE IF ( WLOUT2( I ) .GT. WLIN2( J ) ) THEN DWLIN = WLIN2( J ) - WLIN1( J ) END IF ELSE IF ( WLOUT1( I ) .GT. WLIN1( J ) ) THEN IF ( WLOUT2( I ) .EQ. WLIN2( J ) ) THEN DWLIN = WLIN2( J ) - WLOUT1( I ) ELSE IF ( WLOUT2( I ) .LT. WLIN2( J ) ) THEN DWLIN = WLOUT2( I ) - WLOUT1( I ) ELSE IF ( WLOUT2( I ) .GT. WLIN2( J ) ) THEN DWLIN = WLIN2( J ) - WLOUT1( I ) END IF END IF C...set wavelength interval fraction DWLIN = AMAX1 ( DWLIN / ( WLOUT2( I ) - WLOUT1( I ) ), 0.0 ) C...add weighted quantity to output arrays CQOUT( I ) = CQOUT( I ) + CQIN( J ) * DWLIN END DO END DO END IF C print*,'point 5 intavg ' RETURN END ================================================ FILE: UTIL/inline_phot_preproc/src/intavg_b.f ================================================ C*********************************************************************** C Portions of Models-3/CMAQ software were developed or based on * C information from various groups: Federal Government employees, * C contractors working on a United States Government contract, and * C non-Federal sources (including research institutions). These * C research institutions have given the Government permission to * C use, prepare derivative works, and distribute copies of their * C work in Models-3/CMAQ to the public and to permit others to do * C so. EPA therefore grants similar permissions for use of the * C Models-3/CMAQ software, but users are requested to provide copies * C of derivative works to the Government without restrictions as to * C use by others. Users are responsible for acquiring their own * C copies of commercial software associated with Models-3/CMAQ and * C for complying with vendor requirements. Software copyrights by * C the MCNC Environmental Modeling Center are used with their * C permissions subject to the above restrictions. * C*********************************************************************** C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/work/rep/JPROC/src/driver/jproc_table/intavg.f,v 1.3 2002/04/15 18:00:44 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C @(#)intavg.F 1.1 /project/mod3/JPROC/src/driver/jproc_table/SCCS/s.intavg.F 23 May 1997 12:44:18 C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE INTAVG_B ( WLIN, CQIN, NWLIN, TYPE, & WLOUT1, WLOUT2, CQOUT, NWLOUT ) C********************************************************************* C C This program computes the integrated average data for the ET C extra terrestrial irradiance wavelength intervals C C History: C S.Roselle 6/05/95 Program created C S.Roselle 7/25/96 Revised subroutine to compute interval C average quantities for point, centered, C beginning, and ending data C C********************************************************************* USE CSQY_PARAMETERS IMPLICIT NONE ! INCLUDE 'JVALPARMS.EXT' ! jproc parameters C...........PARAMETERS and their descriptions INTEGER XSTAT2 ! Program ERROR exit status PARAMETER ( XSTAT2 = 2 ) C...........ARGUMENTS and their descriptions CHARACTER*1 TYPE ! spectra type INTEGER NWLOUT ! number of intervals ETin INTEGER NWLIN ! number of intervals CQin REAL WLIN ( MXWLIN ) ! wl for CQin REAL WLIN1( MXWLIN ) ! lower limit on wl int CQin REAL WLIN2( MXWLIN ) ! upper limit on wl int CQin REAL CQIN( MXWLIN ) ! quantity (CS or QY) as f(WLIN) REAL WLOUT1( MXWL ) ! lower limit on wl int ETin REAL WLOUT2( MXWL ) ! upper limit on wl int ETin REAL CQOUT ( MXWL ) ! quantity (CS or QY) as f(WLOUT) C...........LOCAL VARIABLES and their descriptions: CHARACTER*16 PNAME ! program name DATA PNAME / 'INTAVG' / CHARACTER*80 MSG ! message DATA MSG / ' ' / INTEGER I ! index var INTEGER J ! index var INTEGER JJ ! counter var INTEGER MXWLPT ! pointer INTEGER MNWLPT ! pointer REAL DWLIN ! wl int for CQin REAL CQA ! lower cq value REAL CQB ! upper cq value C********************************************************************* C...begin body of subroutine INTAVG C...process point data jj = 0 jj = jj + 1 C print*,'inside intave_b ',jj IF ( TYPE .EQ. 'P' ) THEN C...transform the data to the same wavelength intervals as C... the irradiance data. C...loop through wavelength intervals for output arrays DO I = 1, NWLOUT C...find lower limit on input array MNWLPT = 1 DO J = 1, NWLIN IF ( WLIN( J ) .LE. WLOUT1( I ) ) MNWLPT = J END DO C...find upper limit on input array MXWLPT = NWLIN DO J = NWLIN, 1, -1 IF ( WLIN( J ) .GE. WLOUT2( I ) ) MXWLPT = J END DO C...initialize output arrays CQOUT( I ) = 0.0 C...loop through the valid wavelength intervals DO J = MNWLPT, MXWLPT C...determine weighting fraction for the wavelength interval IF ( WLOUT1( I ) .LE. WLIN( J ) ) THEN IF ( WLOUT2( I ) .EQ. WLIN( J+1 ) ) THEN DWLIN = WLIN( J+1 ) - WLIN( J ) CQA = CQIN( J ) CQB = CQIN( J+1 ) ELSE IF ( WLOUT2( I ) .LT. WLIN( J+1 ) ) THEN DWLIN = WLOUT2( I ) - WLIN( J ) CQA = CQIN( J ) CQB = ( CQIN( J+1 ) - CQIN( J ) ) & / ( WLIN( J+1 ) - WLIN( J ) ) & * ( WLOUT2( I ) - WLIN( J ) ) + CQIN( J ) ELSE IF ( WLOUT2( I ) .GT. WLIN( J+1 ) ) THEN DWLIN = WLIN( J+1 ) - WLIN( J ) CQA = CQIN( J ) CQB = CQIN( J+1 ) END IF ELSE IF ( WLOUT1( I ) .GT. WLIN( J ) ) THEN IF ( WLOUT2( I ) .EQ. WLIN( J+1 ) ) THEN DWLIN = WLIN( J+1 ) - WLOUT1( I ) CQA = ( CQIN( J+1 ) - CQIN( J ) ) & / ( WLIN( J+1 ) - WLIN( J ) ) & * ( WLOUT1( I ) - WLIN( J ) ) + CQIN( J ) CQB = CQIN( J+1 ) ELSE IF ( WLOUT2( I ) .LT. WLIN( J+1 ) ) THEN DWLIN = WLOUT2( I ) - WLOUT1( I ) CQA = ( CQIN( J+1 ) - CQIN( J ) ) & / ( WLIN( J+1 ) - WLIN( J ) ) & * ( WLOUT1( I ) - WLIN( J ) ) + CQIN( J ) CQB = ( CQIN( J+1 ) - CQIN( J ) ) & / ( WLIN( J+1 ) - WLIN( J ) ) & * ( WLOUT2( I ) - WLIN( J ) ) + CQIN( J ) ELSE IF ( WLOUT2( I ) .GT. WLIN( J+1 ) ) THEN DWLIN = WLIN( J+1 ) - WLOUT1( I ) CQA = ( CQIN( J+1 ) - CQIN( J ) ) & / ( WLIN( J+1 ) - WLIN( J ) ) & * ( WLOUT1( I ) - WLIN( J ) ) + CQIN( J ) CQB = CQIN( J+1 ) END IF END IF C...set wavelength interval fraction DWLIN = AMAX1 ( DWLIN / ( WLOUT2( I ) - WLOUT1( I ) ), 0.0 ) C...add weighted quantity to output arrays CQOUT( I ) = CQOUT( I ) + 0.5 * ( CQA + CQB ) * DWLIN END DO END DO C...process interval data ELSE jj = jj + 1 C print*,'inside intave_b ',jj C...determine wl intervals for CENTERED WLBAND data IF ( TYPE .EQ. 'C' ) THEN WLIN1( 1 ) = 0.5 * (( 3.0 * WLIN( 1 ) ) - WLIN( 2 )) WLIN2( 1 ) = 0.5 * (WLIN( 1 ) + WLIN( 2 )) DO J = 2, NWLIN-1 WLIN1( J ) = 0.5 * (WLIN( J ) + WLIN ( J-1 )) WLIN2( J ) = 0.5 * (WLIN( J ) + WLIN ( J+1 )) END DO C...determine wl intervals for BEGINNING WLBAND data ELSE IF ( TYPE .EQ. 'B' ) THEN jj = jj + 1 C print*,'inside intave_b ',jj DO J = 1, NWLIN-1 WLIN1( J ) = WLIN( J ) WLIN2( J ) = WLIN( J+1 ) END DO jj = jj + 1 C print*,'inside intave_b ',jj C...determine wl intervals for ENDING WLBAND data ELSE IF ( TYPE .EQ. 'E' ) THEN DO J = 2, NWLIN WLIN1( J-1 ) = WLIN( J-1 ) WLIN2( J-1 ) = WLIN( J ) END DO C...stop program if wavelength data type not found ELSE MSG = 'Unrecognized spectra type in ' // PNAME WRITE(6,*)MSG STOP END IF jj = jj + 1 C print*,'inside intave_b ',jj C...loop through wavelength intervals for output arrays DO I = 1, NWLOUT C...find lower limit on input array MNWLPT = 1 DO J = 1, NWLIN-1 IF ( WLIN1( J ) .LE. WLOUT1( I ) ) MNWLPT = J END DO C...find upper limit on input array MXWLPT = NWLIN-1 DO J = NWLIN-1, 1, -1 IF ( WLIN2( J ) .GE. WLOUT2( I ) ) MXWLPT = J END DO C...initialize output arrays jj = jj + 1 C print*,'inside intave_b ',jj CQOUT( I ) = 0.0 C...loop through the valid wavelength intervals DO J = MNWLPT, MXWLPT C...determine weighting fraction for the wavelength interval IF ( WLOUT1( I ) .LE. WLIN1( J ) ) THEN IF ( WLOUT2( I ) .EQ. WLIN2( J ) ) THEN DWLIN = WLIN2( J ) - WLIN1( J ) ELSE IF ( WLOUT2( I ) .LT. WLIN2( J ) ) THEN DWLIN = WLOUT2( I ) - WLIN1( J ) ELSE IF ( WLOUT2( I ) .GT. WLIN2( J ) ) THEN DWLIN = WLIN2( J ) - WLIN1( J ) END IF ELSE IF ( WLOUT1( I ) .GT. WLIN1( J ) ) THEN IF ( WLOUT2( I ) .EQ. WLIN2( J ) ) THEN DWLIN = WLIN2( J ) - WLOUT1( I ) ELSE IF ( WLOUT2( I ) .LT. WLIN2( J ) ) THEN DWLIN = WLOUT2( I ) - WLOUT1( I ) ELSE IF ( WLOUT2( I ) .GT. WLIN2( J ) ) THEN DWLIN = WLIN2( J ) - WLOUT1( I ) END IF END IF C...set wavelength interval fraction DWLIN = AMAX1 ( DWLIN / ( WLOUT2( I ) - WLOUT1( I ) ), 0.0 ) C...add weighted quantity to output arrays CQOUT( I ) = CQOUT( I ) + CQIN( J ) * DWLIN END DO END DO jj = jj + 1 C print*,'inside intave_b ',jj END IF jj = jj + 1 C print*,'inside intave_b ',jj RETURN END ================================================ FILE: UTIL/inline_phot_preproc/src/intavg_c.f ================================================ C*********************************************************************** C Portions of Models-3/CMAQ software were developed or based on * C information from various groups: Federal Government employees, * C contractors working on a United States Government contract, and * C non-Federal sources (including research institutions). These * C research institutions have given the Government permission to * C use, prepare derivative works, and distribute copies of their * C work in Models-3/CMAQ to the public and to permit others to do * C so. EPA therefore grants similar permissions for use of the * C Models-3/CMAQ software, but users are requested to provide copies * C of derivative works to the Government without restrictions as to * C use by others. Users are responsible for acquiring their own * C copies of commercial software associated with Models-3/CMAQ and * C for complying with vendor requirements. Software copyrights by * C the MCNC Environmental Modeling Center are used with their * C permissions subject to the above restrictions. * C*********************************************************************** C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/work/rep/JPROC/src/driver/jproc_table/intavg.f,v 1.3 2002/04/15 18:00:44 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C @(#)intavg.F 1.1 /project/mod3/JPROC/src/driver/jproc_table/SCCS/s.intavg.F 23 May 1997 12:44:18 C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE INTAVG_C ( WLIN, CQIN, NWLIN, SPECTRA_TYPE, & NWLOUT, WLOUT1, WLOUT2, CQOUT ) C********************************************************************* C C This program computes the integrated average data for the ET C extra terrestrial irradiance wavelength intervals C C History: C S.Roselle 6/05/95 Program created C S.Roselle 7/25/96 Revised subroutine to compute interval C average quantities for point, centered, C beginning, and ending data C C********************************************************************* USE CSQY_PARAMETERS IMPLICIT NONE C...........PARAMETERS and their descriptions INTEGER, PARAMETER :: XSTAT2 = 2 ! Program ERROR exit status C...........ARGUMENTS and their descriptions CHARACTER(1), INTENT( IN ) :: SPECTRA_TYPE ! spectra type INTEGER, INTENT( IN ) :: NWLOUT ! number of intervals ETin INTEGER, INTENT( IN ) :: NWLIN ! number of intervals CQin REAL, INTENT( IN ) :: WLIN ( : ) ! wl for CQin REAL, INTENT( IN ) :: CQIN( : ) ! quantity (CS or QY) as f(WLIN) REAL, INTENT( INOUT ) :: WLOUT1( : ) ! lower limit on wl int ETin REAL, INTENT( INOUT ) :: WLOUT2( : ) ! upper limit on wl int ETin REAL, INTENT( OUT ) :: CQOUT ( : ) ! quantity (CS or QY) as f(WLOUT) C...........LOCAL VARIABLES and their descriptions: CHARACTER( 16 ), SAVE :: PNAME = 'INTAVG_C' ! program name CHARACTER( 80 ) :: MSG = ' ' ! message REAL :: WLIN1( MXWLIN ) ! lower limit on wl int CQin REAL :: WLIN2( MXWLIN ) ! upper limit on wl int CQin REAL :: DWLIN ! wl int for CQin REAL :: CQA ! lower cq value REAL :: CQB ! upper cq value INTEGER :: I ! index var INTEGER :: J ! index var INTEGER :: MXWLPT ! pointer INTEGER :: MNWLPT ! pointer CHARACTER( 1 ) :: DATA_TYPE INTERFACE SUBROUTINE CONVERT_CASE ( BUFFER, UPPER ) CHARACTER(LEN= *), INTENT( INOUT ) :: BUFFER LOGICAL, INTENT( IN ) :: UPPER END SUBROUTINE CONVERT_CASE END INTERFACE C********************************************************************* C...begin body of subroutine INTAVG C...process point data DATA_TYPE( 1:1) = SPECTRA_TYPE( 1:1 ) CALL CONVERT_CASE( DATA_TYPE, .TRUE. ) IF ( DATA_TYPE .EQ. 'P' ) THEN C...transform the data to the same wavelength intervals as C... the irradiance data. C...loop through wavelength intervals for output arrays DO I = 1, NWLOUT C...find lower limit on input array MNWLPT = NWLIN DO J = 1, NWLIN IF ( WLIN( J ) .LE. WLOUT1( I ) ) MNWLPT = J END DO ! write(6,'(2(i5,1x,i5,1x,f6.2,1x,f6.2,1x,i3,1x,i3,1x,f6.2))') ! & i, size(wlout1), wlout1(i), wlout2(i), MNWLPT, size(wlin),wlin(MNWLPT) C...find upper limit on input array MXWLPT = 0 DO J = NWLIN, 1, -1 IF ( WLIN( J ) .GE. WLOUT2( I ) ) MXWLPT = J END DO ! if( MXWLPT .lt. 1)then ! print*,PNAME,': MXWLPT undefined ' ! else ! write(6,'(2(i5,1x,i5,1x,f6.2,1x,f6.2,1x,i3,1x,i3,1x,f6.2))') ! & i, size(wlout1), wlout1(i), wlout2(i), MXWLPT,size(wlin), wlin(MXWLPT) ! endif C...initialize output arrays CQOUT( I ) = 0.0 C...loop through the valid wavelength intervals DO J = MNWLPT, MXWLPT C print *, j, wlin(j), wlin(j+1), wlout1(I), wlout2(I) cqa = 0.0 cqb = 0.0 dwlin = 0.0 C...determine weighting fraction for the wavelength interval IF ( WLOUT1( I ) .LE. WLIN( J ) ) THEN IF ( WLOUT2( I ) .EQ. WLIN( J+1 ) ) THEN DWLIN = WLIN( J+1 ) - WLIN( J ) CQA = CQIN( J ) CQB = CQIN( J+1 ) ELSE IF ( WLOUT2( I ) .LT. WLIN( J+1 ) ) THEN DWLIN = WLOUT2( I ) - WLIN( J ) CQA = CQIN( J ) CQB = ( CQIN( J+1 ) - CQIN( J ) ) & / ( WLIN( J+1 ) - WLIN( J ) ) & * ( WLOUT2( I ) - WLIN( J ) ) + CQIN( J ) ELSE IF ( WLOUT2( I ) .GT. WLIN( J+1 ) ) THEN DWLIN = WLIN( J+1 ) - WLIN( J ) CQA = CQIN( J ) CQB = CQIN( J+1 ) END IF ELSE IF ( WLOUT1( I ) .GT. WLIN( J ) ) THEN IF ( WLOUT2( I ) .EQ. WLIN( J+1 ) ) THEN DWLIN = WLIN( J+1 ) - WLOUT1( I ) CQA = ( CQIN( J+1 ) - CQIN( J ) ) & / ( WLIN( J+1 ) - WLIN( J ) ) & * ( WLOUT1( I ) - WLIN( J ) ) + CQIN( J ) CQB = CQIN( J+1 ) ELSE IF ( WLOUT2( I ) .LT. WLIN( J+1 ) ) THEN DWLIN = WLOUT2( I ) - WLOUT1( I ) CQA = ( CQIN( J+1 ) - CQIN( J ) ) & / ( WLIN( J+1 ) - WLIN( J ) ) & * ( WLOUT1( I ) - WLIN( J ) ) + CQIN( J ) CQB = ( CQIN( J+1 ) - CQIN( J ) ) & / ( WLIN( J+1 ) - WLIN( J ) ) & * ( WLOUT2( I ) - WLIN( J ) ) + CQIN( J ) ELSE IF ( WLOUT2( I ) .GT. WLIN( J+1 ) ) THEN DWLIN = WLIN( J+1 ) - WLOUT1( I ) CQA = ( CQIN( J+1 ) - CQIN( J ) ) & / ( WLIN( J+1 ) - WLIN( J ) ) & * ( WLOUT1( I ) - WLIN( J ) ) + CQIN( J ) CQB = CQIN( J+1 ) END IF END IF C...set wavelength interval fraction c print *, dwlin, cqa, cqb DWLIN = MAX ( DWLIN / ( WLOUT2( I ) - WLOUT1( I ) ), 0.0 ) C...add weighted quantity to output arrays CQOUT( I ) = CQOUT( I ) + 0.5 * ( CQA + CQB ) * DWLIN ! print *, 0.5*(WLOUT2( I ) + WLOUT1( I )),CQA,CQB,cqout(i) END DO END DO C...process interval data ELSE C...determine wl intervals for CENTERED WLBAND data IF ( DATA_TYPE .EQ. 'C' ) THEN WLIN1( 1 ) = 0.5 * (( 3.0 * WLIN( 1 ) ) - WLIN( 2 )) WLIN2( 1 ) = 0.5 * (WLIN( 1 ) + WLIN( 2 )) DO J = 2, NWLIN-1 WLIN1( J ) = 0.5 * (WLIN( J ) + WLIN ( J-1 )) WLIN2( J ) = 0.5 * (WLIN( J ) + WLIN ( J+1 )) END DO C...determine wl intervals for BEGINNING WLBAND data ELSE IF ( DATA_TYPE .EQ. 'B' ) THEN DO J = 1, NWLIN-1 WLIN1( J ) = WLIN( J ) WLIN2( J ) = WLIN( J+1 ) END DO C...determine wl intervals for ENDING WLBAND data ELSE IF ( DATA_TYPE .EQ. 'E' ) THEN DO J = 2, NWLIN WLIN1( J-1 ) = WLIN( J-1 ) WLIN2( J-1 ) = WLIN( J ) END DO C...stop program if wavelength data type not found ELSE MSG = 'Unrecognized spectra type, ' // SPECTRA_TYPE & // ' in ' // PNAME WRITE(6,*)MSG STOP END IF C...loop through wavelength intervals for output arrays DO I = 1, NWLOUT C...find lower limit on input array MNWLPT = 1 DO J = 1, NWLIN-1 IF ( WLIN1( J ) .LE. WLOUT1( I ) ) MNWLPT = J END DO C...find upper limit on input array MXWLPT = NWLIN-1 DO J = NWLIN-1, 1, -1 IF ( WLIN2( J ) .GE. WLOUT2( I ) ) MXWLPT = J END DO C...initialize output arrays CQOUT( I ) = 0.0 C...loop through the valid wavelength intervals DO J = MNWLPT, MXWLPT C...determine weighting fraction for the wavelength interval IF ( WLOUT1( I ) .LE. WLIN1( J ) ) THEN IF ( WLOUT2( I ) .EQ. WLIN2( J ) ) THEN DWLIN = WLIN2( J ) - WLIN1( J ) ELSE IF ( WLOUT2( I ) .LT. WLIN2( J ) ) THEN DWLIN = WLOUT2( I ) - WLIN1( J ) ELSE IF ( WLOUT2( I ) .GT. WLIN2( J ) ) THEN DWLIN = WLIN2( J ) - WLIN1( J ) END IF ELSE IF ( WLOUT1( I ) .GT. WLIN1( J ) ) THEN IF ( WLOUT2( I ) .EQ. WLIN2( J ) ) THEN DWLIN = WLIN2( J ) - WLOUT1( I ) ELSE IF ( WLOUT2( I ) .LT. WLIN2( J ) ) THEN DWLIN = WLOUT2( I ) - WLOUT1( I ) ELSE IF ( WLOUT2( I ) .GT. WLIN2( J ) ) THEN DWLIN = WLIN2( J ) - WLOUT1( I ) END IF END IF C...set wavelength interval fraction DWLIN = AMAX1 ( DWLIN / ( WLOUT2( I ) - WLOUT1( I ) ), 0.0 ) C...add weighted quantity to output arrays CQOUT( I ) = CQOUT( I ) + CQIN( J ) * DWLIN ! print *, 0.5*(WLOUT2( I ) + WLOUT1( I )),cqout(i) END DO END DO END IF RETURN END ================================================ FILE: UTIL/inline_phot_preproc/src/intavg_d.f ================================================ C*********************************************************************** C Portions of Models-3/CMAQ software were developed or based on * C information from various groups: Federal Government employees, * C contractors working on a United States Government contract, and * C non-Federal sources (including research institutions). These * C research institutions have given the Government permission to * C use, prepare derivative works, and distribute copies of their * C work in Models-3/CMAQ to the public and to permit others to do * C so. EPA therefore grants similar permissions for use of the * C Models-3/CMAQ software, but users are requested to provide copies * C of derivative works to the Government without restrictions as to * C use by others. Users are responsible for acquiring their own * C copies of commercial software associated with Models-3/CMAQ and * C for complying with vendor requirements. Software copyrights by * C the MCNC Environmental Modeling Center are used with their * C permissions subject to the above restrictions. * C*********************************************************************** C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/work/rep/JPROC/src/driver/jproc_table/intavg.f,v 1.3 2002/04/15 18:00:44 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C @(#)intavg.F 1.1 /project/mod3/JPROC/src/driver/jproc_table/SCCS/s.intavg.F 23 May 1997 12:44:18 C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE INTAVG_C ( WLIN, CQIN, NWLIN, SPECTRA_TYPE, & NWLOUT, WLOUT1, WLOUT2, CQOUT ) C********************************************************************* C C This program computes the integrated average data for the ET C extra terrestrial irradiance wavelength intervals C C History: C S.Roselle 6/05/95 Program created C S.Roselle 7/25/96 Revised subroutine to compute interval C average quantities for point, centered, C beginning, and ending data C C********************************************************************* USE JPROC_PROFILE IMPLICIT NONE ! INCLUDE 'JVALPARMS.EXT' ! jproc parameters C...........PARAMETERS and their descriptions INTEGER XSTAT2 ! Program ERROR exit status PARAMETER ( XSTAT2 = 2 ) C...........ARGUMENTS and their descriptions CHARACTER(1), INTENT( IN ) :: SPECTRA_TYPE ! spectra type INTEGER, INTENT( IN ) :: NWLOUT ! number of intervals ETin INTEGER, INTENT( IN ) :: NWLIN ! number of intervals CQin REAL, INTENT( IN ) :: WLIN ( MXWLIN ) ! wl for CQin REAL, INTENT( IN ) :: CQIN( MXWLIN ) ! quantity (CS or QY) as f(WLIN) REAL, INTENT( INOUT ) :: WLOUT1( : ) ! lower limit on wl int ETin REAL, INTENT( INOUT ) :: WLOUT2( : ) ! upper limit on wl int ETin REAL, INTENT( OUT ) :: CQOUT ( : ) ! quantity (CS or QY) as f(WLOUT) C...........LOCAL VARIABLES and their descriptions: CHARACTER*16 PNAME ! program name DATA PNAME / 'INTAVG' / CHARACTER*80 MSG ! message DATA MSG / ' ' / REAL WLIN1( MXWLIN ) ! lower limit on wl int CQin REAL WLIN2( MXWLIN ) ! upper limit on wl int CQin INTEGER I ! index var INTEGER J ! index var INTEGER MXWLPT ! pointer INTEGER MNWLPT ! pointer REAL DWLIN ! wl int for CQin REAL CQA ! lower cq value REAL CQB ! upper cq value C********************************************************************* C...begin body of subroutine INTAVG C...initialize output arrays CQOUT = 0.0 C...process point data SELECT CASE ( SPECTRA_TYPE ) CASE( 'P' ) C...transform the data to the same wavelength intervals as C... the irradiance data. C...loop through wavelength intervals for output arrays DO I = 1, NWLOUT C...find lower limit on input array MNWLPT = NWLIN DO J = 1, NWLIN IF ( WLIN( J ) .LE. WLOUT1( I ) ) MNWLPT = J END DO C...find upper limit on input array MXWLPT = 0 DO J = NWLIN, 1, -1 IF ( WLIN( J ) .GE. WLOUT2( I ) ) MXWLPT = J END DO C...loop through the valid wavelength intervals DO J = MNWLPT, MXWLPT CQA = 0.0 CQB = 0.0 DWLIN = 0.0 C...determine weighting fraction for the wavelength interval IF ( WLOUT1( I ) .LE. WLIN( J ) ) THEN IF ( WLOUT2( I ) .EQ. WLIN( J+1 ) ) THEN DWLIN = WLIN( J+1 ) - WLIN( J ) CQA = CQIN( J ) CQB = CQIN( J+1 ) ELSE IF ( WLOUT2( I ) .LT. WLIN( J+1 ) ) THEN DWLIN = WLOUT2( I ) - WLIN( J ) CQA = CQIN( J ) CQB = ( CQIN( J+1 ) - CQIN( J ) ) & / ( WLIN( J+1 ) - WLIN( J ) ) & * ( WLOUT2( I ) - WLIN( J ) ) + CQIN( J ) ELSE IF ( WLOUT2( I ) .GT. WLIN( J+1 ) ) THEN DWLIN = WLIN( J+1 ) - WLIN( J ) CQA = CQIN( J ) CQB = CQIN( J+1 ) END IF ELSE IF ( WLOUT1( I ) .GT. WLIN( J ) ) THEN IF ( WLOUT2( I ) .EQ. WLIN( J+1 ) ) THEN DWLIN = WLIN( J+1 ) - WLOUT1( I ) CQA = ( CQIN( J+1 ) - CQIN( J ) ) & / ( WLIN( J+1 ) - WLIN( J ) ) & * ( WLOUT1( I ) - WLIN( J ) ) + CQIN( J ) CQB = CQIN( J+1 ) ELSE IF ( WLOUT2( I ) .LT. WLIN( J+1 ) ) THEN DWLIN = WLOUT2( I ) - WLOUT1( I ) CQA = ( CQIN( J+1 ) - CQIN( J ) ) & / ( WLIN( J+1 ) - WLIN( J ) ) & * ( WLOUT1( I ) - WLIN( J ) ) + CQIN( J ) CQB = ( CQIN( J+1 ) - CQIN( J ) ) & / ( WLIN( J+1 ) - WLIN( J ) ) & * ( WLOUT2( I ) - WLIN( J ) ) + CQIN( J ) ELSE IF ( WLOUT2( I ) .GT. WLIN( J+1 ) ) THEN DWLIN = WLIN( J+1 ) - WLOUT1( I ) CQA = ( CQIN( J+1 ) - CQIN( J ) ) & / ( WLIN( J+1 ) - WLIN( J ) ) & * ( WLOUT1( I ) - WLIN( J ) ) + CQIN( J ) CQB = CQIN( J+1 ) END IF END IF C...set wavelength interval fraction DWLIN = MAX ( DWLIN / ( WLOUT2( I ) - WLOUT1( I ) ), 0.0 ) C...add weighted quantity to output arrays CQOUT( I ) = CQOUT( I ) + 0.5 * ( CQA + CQB ) * DWLIN print *, 0.5*(WLOUT2( I ) + WLOUT1( I )),cqout(i) END DO END DO RETURN CASE( 'C' ) C...determine wl intervals for CENTERED WLBAND data WLIN1( 1 ) = 0.5 * (( 3.0 * WLIN( 1 ) ) - WLIN( 2 )) WLIN2( 1 ) = 0.5 * (WLIN( 1 ) + WLIN( 2 )) DO J = 2, NWLIN-1 WLIN1( J ) = 0.5 * (WLIN( J ) + WLIN ( J-1 )) WLIN2( J ) = 0.5 * (WLIN( J ) + WLIN ( J+1 )) END DO CASE( 'B' ) C...determine wl intervals for BEGINNING WLBAND data DO J = 1, NWLIN-1 WLIN1( J ) = WLIN( J ) WLIN2( J ) = WLIN( J+1 ) END DO CASE( 'E' ) C...determine wl intervals for ENDING WLBAND data DO J = 2, NWLIN WLIN1( J-1 ) = WLIN( J-1 ) WLIN2( J-1 ) = WLIN( J ) END DO C...stop program if wavelength data type not found CASE DEFAULT MSG = 'Unrecognized spectra type in ' // PNAME WRITE(6,*)MSG STOP END SELECT C...loop through wavelength intervals for output arrays DO I = 1, NWLOUT C...find lower limit on input array MNWLPT = 1 DO J = 1, NWLIN-1 IF ( WLIN1( J ) .LE. WLOUT1( I ) ) MNWLPT = J END DO C...find upper limit on input array MXWLPT = NWLIN-1 DO J = NWLIN-1, 1, -1 IF ( WLIN2( J ) .GE. WLOUT2( I ) ) MXWLPT = J END DO C...loop through the valid wavelength intervals DO J = MNWLPT, MXWLPT C...determine weighting fraction for the wavelength interval IF ( WLOUT1( I ) .LE. WLIN1( J ) ) THEN IF ( WLOUT2( I ) .EQ. WLIN2( J ) ) THEN DWLIN = WLIN2( J ) - WLIN1( J ) ELSE IF ( WLOUT2( I ) .LT. WLIN2( J ) ) THEN DWLIN = WLOUT2( I ) - WLIN1( J ) ELSE IF ( WLOUT2( I ) .GT. WLIN2( J ) ) THEN DWLIN = WLIN2( J ) - WLIN1( J ) END IF ELSE IF ( WLOUT1( I ) .GT. WLIN1( J ) ) THEN IF ( WLOUT2( I ) .EQ. WLIN2( J ) ) THEN DWLIN = WLIN2( J ) - WLOUT1( I ) ELSE IF ( WLOUT2( I ) .LT. WLIN2( J ) ) THEN DWLIN = WLOUT2( I ) - WLOUT1( I ) ELSE IF ( WLOUT2( I ) .GT. WLIN2( J ) ) THEN DWLIN = WLIN2( J ) - WLOUT1( I ) END IF END IF C...set wavelength interval fraction DWLIN = AMAX1 ( DWLIN / ( WLOUT2( I ) - WLOUT1( I ) ), 0.0 ) C...add weighted quantity to output arrays CQOUT( I ) = CQOUT( I ) + CQIN( J ) * DWLIN END DO END DO RETURN END ================================================ FILE: UTIL/inline_phot_preproc/src/module_envvar.F ================================================ MODULE GET_ENV_VARS IMPLICIT NONE PUBLIC :: GET_ENV_STRING, GET_ENV_FLAG, GET_ENV_INT, GET_ENV_REAL, & GET_ENVLIST, VALUE_NAME INTEGER, PARAMETER, PRIVATE :: LOGDEV = 6 INTEGER, PARAMETER, PRIVATE :: MAX_LEN_WORD = 16 CONTAINS SUBROUTINE VALUE_NAME( VAR_NAME, VAR_VALUE ) IMPLICIT NONE CHARACTER*(*), INTENT( IN ) :: VAR_NAME CHARACTER*(*), INTENT( OUT ) :: VAR_VALUE INTEGER :: STATUS CALL GET_ENV_STRING( VAR_NAME, " ", VAR_NAME, VAR_VALUE, STATUS ) END SUBROUTINE VALUE_NAME SUBROUTINE GET_ENV_STRING( VAR_NAME, VAR_DESC, VAR_DEFAULT, VAR_VALUE, STATUS ) IMPLICIT NONE !arguments CHARACTER*(*), INTENT( IN ) :: VAR_NAME CHARACTER*(*), INTENT( IN ) :: VAR_DESC CHARACTER*(*), INTENT( IN ) :: VAR_DEFAULT CHARACTER*(*), INTENT( OUT ) :: VAR_VALUE INTEGER, INTENT( OUT ) :: STATUS !local CHARACTER( 586 ) :: MSG ! Message text CALL GET_ENVIRONMENT_VARIABLE( NAME=VAR_NAME, VALUE= VAR_VALUE, STATUS=STATUS, TRIM_NAME=.TRUE.) IF( STATUS .LT. 0 ) THEN MSG = 'ERROR in environment value for ' // TRIM( VAR_NAME ) WRITE(LOGDEV,'(a)')TRIM( MSG ) ELSE IF( STATUS .EQ. 1 )THEN STATUS = -1 VAR_VALUE = TRIM( VAR_DEFAULT ) ELSE IF( STATUS .GT. 1 )THEN STATUS = 1 MSG = 'ERROR in environment value for ' // TRIM( VAR_NAME ) WRITE(LOGDEV,'(a)')TRIM( MSG ) MSG = 'ERROR Processor does not support environment variables ' WRITE(LOGDEV,'(a)') END IF IF( STATUS .EQ. 0 )THEN MSG = ' Value for ' // TRIM( VAR_NAME ) // ': ' // TRIM( VAR_VALUE ) WRITE(LOGDEV,'(a)')TRIM( MSG ) END IF END SUBROUTINE GET_ENV_STRING LOGICAL FUNCTION GET_ENV_FLAG( VAR_NAME, VAR_DESC, VAR_DEFAULT, STATUS ) IMPLICIT NONE !arguments CHARACTER*(*), INTENT( IN ) :: VAR_NAME CHARACTER*(*), INTENT( IN ) :: VAR_DESC LOGICAL, INTENT( IN ) :: VAR_DEFAULT INTEGER, INTENT( OUT ) :: STATUS !local CHARACTER( 586 ) :: MSG ! Message text CHARACTER( 1 ) :: VAR_VALUE CHARACTER( 5 ) :: REPLY CALL GET_ENVIRONMENT_VARIABLE( NAME=VAR_NAME, VALUE= VAR_VALUE, STATUS=STATUS, TRIM_NAME=.TRUE.) IF( STATUS .LT. 0 ) THEN MSG = 'ERROR in environment value for ' // TRIM( VAR_NAME ) WRITE(LOGDEV,'(a)')TRIM( MSG ) STATUS = 1 ELSE IF( STATUS .EQ. 1 )THEN STATUS = -1 GET_ENV_FLAG = VAR_DEFAULT WRITE(LOGDEV,' (A,L)')'Environment Variable ' & // TRIM( VAR_NAME ) // ' missing.' & // ' Using default value of ',VAR_DEFAULT STATUS = -1 ELSE IF( STATUS .GT. 1 )THEN STATUS = 1 MSG = 'ERROR in environment value for ' // TRIM( VAR_NAME ) WRITE(LOGDEV,'(a)')TRIM( MSG ) MSG = 'ERROR Processor does not support environment variables ' WRITE(LOGDEV,'(a)') ELSE STATUS = 0 IF( VAR_VALUE(1:1) .EQ. 'T' .OR. VAR_VALUE(1:1) .EQ. 'Y' )THEN GET_ENV_FLAG = .TRUE. ELSE IF( VAR_VALUE(1:1) .EQ. 't' .OR. VAR_VALUE(1:1) .EQ. 'y' )THEN GET_ENV_FLAG = .TRUE. ELSE IF( VAR_VALUE(1:1) .EQ. 'F' .OR. VAR_VALUE(1:1) .EQ. 'N' )THEN GET_ENV_FLAG = .FALSE. ELSE IF( VAR_VALUE(1:1) .EQ. 'f' .OR. VAR_VALUE(1:1) .EQ. 'n' )THEN GET_ENV_FLAG = .FALSE. ELSE WRITE(LOGDEV,' (A,L)')'Environment Variable ' & // TRIM( VAR_NAME ) // ' must equal T, Y, F, or N.' & // ' Using default value of ',VAR_DEFAULT STATUS = -1 GET_ENV_FLAG = VAR_DEFAULT END IF END IF IF( STATUS .EQ. 0 )THEN IF( GET_ENV_FLAG )THEN REPLY = 'TRUE ' ELSE REPLY = 'FALSE' END IF WRITE(MSG,'(a,L1,a)')' Value for ' // TRIM( VAR_NAME ) // ': ',GET_ENV_FLAG, & ' returning ' // REPLY WRITE(LOGDEV,'(a)')TRIM( MSG ) END IF END FUNCTION GET_ENV_FLAG INTEGER FUNCTION GET_ENV_INT( VAR_NAME, VAR_DESC, VAR_DEFAULT, STATUS ) IMPLICIT NONE !arguments CHARACTER*(*), INTENT( IN ) :: VAR_NAME CHARACTER*(*), INTENT( IN ) :: VAR_DESC INTEGER, INTENT( IN ) :: VAR_DEFAULT INTEGER, INTENT( OUT ) :: STATUS !local CHARACTER( 120 ) :: MSG ! Message text CHARACTER( 120 ) :: VAR_VALUE CHARACTER( 5 ) :: REPLY INTEGER :: READ_VALUE CALL GET_ENVIRONMENT_VARIABLE( NAME=VAR_NAME, VALUE= VAR_VALUE, STATUS=STATUS, TRIM_NAME=.TRUE.) IF( STATUS .LT. 0 ) THEN MSG = 'ERROR in environment value for ' // TRIM( VAR_NAME ) WRITE(LOGDEV,'(a)')TRIM( MSG ) STATUS = 1 ELSE IF( STATUS .EQ. 1 )THEN STATUS = -1 GET_ENV_INT = VAR_DEFAULT WRITE(LOGDEV,' (A,I8)')'Environment Variable ' & // TRIM( VAR_NAME ) // ' missing.' & // ' Using default value of ',VAR_DEFAULT ELSE IF( STATUS .GT. 1 )THEN STATUS = 1 MSG = 'ERROR in environment value for ' // TRIM( VAR_NAME ) WRITE(LOGDEV,'(a)')TRIM( MSG ) MSG = 'ERROR Processor does not support environment variables ' WRITE(LOGDEV,'(a)') ELSE STATUS = 0 READ(VAR_VALUE , *)READ_VALUE GET_ENV_INT = READ_VALUE WRITE(MSG,'(a,I8)')' Value for ' // TRIM( VAR_NAME ) // ': ', & GET_ENV_INT WRITE(LOGDEV,'(a)')TRIM( MSG ) END IF END FUNCTION GET_ENV_INT REAL FUNCTION GET_ENV_REAL( VAR_NAME, VAR_DESC, VAR_DEFAULT, STATUS ) IMPLICIT NONE !arguments CHARACTER*(*), INTENT( IN ) :: VAR_NAME CHARACTER*(*), INTENT( IN ) :: VAR_DESC REAL, INTENT( IN ) :: VAR_DEFAULT INTEGER, INTENT( OUT ) :: STATUS !local CHARACTER( 120 ) :: MSG ! Message text CHARACTER( 120 ) :: VAR_VALUE CHARACTER( 5 ) :: REPLY CALL GET_ENVIRONMENT_VARIABLE( NAME=VAR_NAME, VALUE= VAR_VALUE, STATUS=STATUS, TRIM_NAME=.TRUE.) IF( STATUS .LT. 0 ) THEN MSG = 'ERROR in environment value for ' // TRIM( VAR_NAME ) WRITE(LOGDEV,'(a)')TRIM( MSG ) STATUS = 1 ELSE IF( STATUS .EQ. 1 )THEN STATUS = -1 GET_ENV_REAL = VAR_DEFAULT WRITE(LOGDEV,' (A,ES13.6)')'Environment Variable ' & // TRIM( VAR_NAME ) // ' missing.' & // ' Using default value of ',VAR_DEFAULT ELSE IF( STATUS .GT. 1 )THEN STATUS = 1 MSG = 'ERROR in environment value for ' // TRIM( VAR_NAME ) WRITE(LOGDEV,'(a)')TRIM( MSG ) MSG = 'ERROR Processor does not support environment variables ' WRITE(LOGDEV,'(a)') ELSE STATUS = 0 READ(VAR_VALUE,*)GET_ENV_REAL WRITE(MSG,'(a,ES12.4)')' Value for ' // TRIM( VAR_NAME ) // ': ', & GET_ENV_REAL WRITE(LOGDEV,'(a)')TRIM( MSG ) END IF END FUNCTION GET_ENV_REAL SUBROUTINE GET_DDMONYY(DATE) IMPLICIT NONE CHARACTER(*), INTENT(INOUT) :: DATE CHARACTER( 2 ) :: DD CHARACTER( 3 ) :: MONS(1:12) CHARACTER( 4 ) :: YYYY INTEGER :: STIME, VALUES(8) MONS = (/'Jan','Feb','Mar','Apr','May','Jun', & 'Jul','Aug','Sep','Oct','Nov','Dec' /) CALL DATE_AND_TIME(VALUES=VALUES) WRITE( DD,'(I2)') VALUES(3) ! DD = '00' WRITE(YYYY,'(I4)') (0 + VALUES(1)) PRINT*,MONS(VALUES(2)) // DD // YYYY(1:4) DATE = MONS(VALUES(2)) // ' ' // DD // ', ' // YYYY(1:4) END SUBROUTINE GET_DDMONYY INTEGER FUNCTION NAME_INDEX( NAME, N_NAMES, NAMES ) IMPLICIT NONE CHARACTER(*), INTENT( IN ) :: NAME CHARACTER(*), INTENT( IN ) :: NAMES( : ) INTEGER, INTENT( IN ) :: N_NAMES INTEGER :: N,M NAME_INDEX = 0 M = SIZE( NAMES ) IF( M .LT. 1 )RETURN DO N = 1, M IF( NAME .EQ. NAMES( N ) )THEN NAME_INDEX = N RETURN END IF END DO RETURN END FUNCTION NAME_INDEX SUBROUTINE GET_ENVLIST ( ENV_VAR, NVARS, VAL_LIST, STATUS ) C get a list env var (quoted string of items delimited by white space, C commas or semi-colons) and parse out the items into variables. Two data C types: character strings and integers (still represented as strings in C the env var vaules). C Examples: C 1) setenv AVG_CONC_VARS "O3 NO NO2" C 2) setenv AVG_CONC_LAYS "2 5" < start at two, end at 5 C 3) setenv NPCOLSXNPROWS "4 3" C 4) setenv BCOL_ECOL "3 8" C 5) setenv BROW_EROW "2 10" C 6) setenv BLAY_ELAY "1 5" C In example (1), not only parse out the named items "O3", "NO" and "NO2", C but also obtain the count on the number of itmes (=3). ! Revision: 2013/02/11 David Wong: increased the max env var length from 256 to 1000 ! 13 Dec 2013 J.Young: 1000 breaks BUFLEN in IOAPI's envgets.c. Change to 512. ! 17 Jun 2016 J.Young: IOAPI's envgets.c BUFLEN has been increased to 10000. ! 20 Jun 2016 J.Young: Forget IOAPI's envgets.c: use Fortran GETENV ! 16 Mar 2018 B.Hutzell: Removed IOAPI, changed from GOTO to Do loop, and ! from GETENV to GET_ENVIRONMENT_VARIABLE intrinsic IMPLICIT NONE CHARACTER( * ), INTENT ( IN ) :: ENV_VAR INTEGER, INTENT ( OUT ) :: NVARS CHARACTER( * ), INTENT ( OUT ) :: VAL_LIST( : ) INTEGER, INTENT ( OUT ) :: STATUS INTEGER :: MAX_LEN INTEGER :: LEN_EVAL CHARACTER( 16 ) :: PNAME = 'GET_ENVLIST' CHARACTER( 1 ) :: CHR CHARACTER( 132) :: XMSG CHARACTER( MAX_LEN_WORD*SIZE( VAL_LIST ) ) :: E_VAL INTEGER :: JP( MAX_LEN_WORD*SIZE( VAL_LIST ) ) INTEGER :: KP( MAX_LEN_WORD*SIZE( VAL_LIST ) ) INTEGER :: IP, V MAX_LEN = MAX_LEN_WORD * ( SIZE( VAL_LIST ) + 1 ) ! multiple by 17 to allow deliminator C env_var_name C | env_var_value C | | ! CALL GETENV( ENV_VAR, E_VAL ) C env_var_name C | env_var_value C | | CALL GET_ENVIRONMENT_VARIABLE( NAME=ENV_VAR, VALUE=E_VAL, STATUS=STATUS, TRIM_NAME=.TRUE.) IF( STATUS .LT. 0 ) THEN XMSG = 'ERROR in environment value for ' // TRIM( ENV_VAR ) WRITE(LOGDEV,'(a)')TRIM( XMSG ) STATUS = 1 STOP ELSE IF( STATUS .EQ. 1 )THEN STATUS = -1 RETURN ELSE IF( STATUS .GT. 1 )THEN STATUS = 1 XMSG = 'ERROR in environment value for ' // TRIM( ENV_VAR ) WRITE(LOGDEV,'(a)')TRIM( XMSG ) XMSG = 'ERROR Processor does not support environment variables ' WRITE(LOGDEV,'(a)') STOP END IF IF ( E_VAL .EQ. " " ) THEN STATUS = 1 XMSG = 'Environment variable ' // ENV_VAR // ' not set' WRITE(LOGDEV,'(A,I8)')TRIM( XMSG ), SIZE( VAL_LIST ) NVARS = 0 RETURN END IF STATUS = 0 C Parse: NVARS = 0 C don't count until 1st char in string IP = 0 KP = 1 JP = 1 LEN_EVAL = LEN_TRIM( E_VAL ) IF ( LEN_EVAL .GT. MAX_LEN ) THEN XMSG = TRIM( PNAME ) // ': The Environment variable, ' & // TRIM( ENV_VAR ) // ', has too long, greater than ' WRITE(LOGDEV,'(A,I8)')TRIM( XMSG ), MAX_LEN STOP END IF 101 LOOP_101: DO ! read list IP = IP + 1 IF ( IP .GT. LEN_EVAL ) EXIT LOOP_101 CHR = E_VAL( IP:IP ) IF ( CHR .EQ. ' ' .OR. ICHAR ( CHR ) .EQ. 09 ) CYCLE LOOP_101 IF( NVARS .GT. SIZE( VAL_LIST ) )THEN XMSG = TRIM( PNAME ) // ':ERROR: Number of values in List, ' & // TRIM( ENV_VAR ) & // ', greater than the size of its storage array, ' WRITE(LOGDEV,'(A,I4)')TRIM( XMSG ), SIZE( VAL_LIST ) STOP END IF NVARS = NVARS + 1 JP( NVARS ) = IP ! 1st char IF( IP .EQ. LEN_EVAL )THEN ! word one character long KP( NVARS ) = IP V = 1 EXIT LOOP_101 END IF 201 LOOP_201: DO ! read word IP = IP + 1 CHR = E_VAL( IP:IP ) IF ( CHR .NE. ' ' .AND. & CHR .NE. ',' .AND. & CHR .NE. ';' .OR. & ICHAR ( CHR ) .EQ. 09 ) THEN ! 09 = horizontal tab CYCLE LOOP_201 ELSE ! last char in word KP( NVARS ) = IP - 1 V = JP( NVARS ) - IP IF( V .GT. MAX_LEN_WORD )THEN XMSG = 'The word, ' // E_VAL( JP(NVARS):KP(NVARS) ) & // ', in environment list, ' // TRIM( ENV_VAR ) & // ', is too long, ' WRITE(LOGDEV,'(A,1X,I2,A,I2)')TRIM( XMSG ), V, ' max allowed ', & MAX_LEN_WORD STOP END IF EXIT LOOP_201 END IF IF ( IP .GE. LEN_EVAL ) EXIT LOOP_101 END DO LOOP_201 END DO LOOP_101 IF( NVARS .GT. SIZE( VAL_LIST ) )THEN XMSG = TRIM( PNAME ) // ':ERROR: Number of values in List, ' & // TRIM( ENV_VAR ) // ', greater than ' WRITE(LOGDEV,'(A,I4)')TRIM( XMSG ), SIZE( VAL_LIST ) STOP END IF DO V = 1, NVARS VAL_LIST( V ) = E_VAL( JP( V ):KP( V ) ) END DO RETURN END SUBROUTINE GET_ENVLIST END MODULE GET_ENV_VARS ================================================ FILE: UTIL/inline_phot_preproc/src/old-dumb.makefile ================================================ BASE = ../CSQY_TABLE_PROCESSOR MODEL = $(BASE)_$(APPL) #FC = /share/linux9.0/pgi/linux86/6.0/bin/pgf90 #CC = cc #CPLUS = C++ #FPP = /share/linux9.0/pgi/linux86/6.0/bin/pgf90 #F_FLAGS = -Mfixed -Mextend -O2 -module /home/hutzellb/cmaq_toxics/releases_2010/MOD_DIR-v47-par -I. #C_FLAGS = -v -O2 -I/share/linux9.0/mpich-1.2.7p1/include #LINK_FLAGS = -Bstatic FC = $(myFC) CC = $(myCC) FPP = $FC lib_path = $(lib_basedir)/${system}/${compiler} DEGUB = -CB -CU -traceback #DEBUG = -Mbounds -Mchkptr -Mchkstk #DEBUG = #F_FLAGS = $(myFFLAGS) $(DEBUG) -I $(lib_path)/se_snl -I $(lib_path)/mpich/include -I . # F_FLAGS = $(myFFLAGS) -CB -CU -traceback -I $(lib_path)/se_snl -I $(lib_path)/mpich/include -I . F_FLAGS = $(myFFLAGS) -CB -CU -traceback -I . # C_FLAGS = $(myCFLAGS) -I $(MPI_INC) C_FLAGS = $(myCFLAGS) LINK_FLAGS = $(myLINK_FLAG) CPP_FLAGS = # x86 pgf90 #SE_SNL = -L/home/hutzellb/cmaq_toxics/tools/stenex_v4.6/Linux -lse_snl #PARIO = -L/home/hutzellb/cmaq_toxics/tools/pario-v4.6/Linux -lpario #MPICH = -L/share/linux9.0/mpich-1.2.7p1/lib -lmpich #IOAPI = -L/home/hutzellb/cmaq_toxics/tools/ioapi-3.1/pg -lioapi #NETCDF = -L/share/linux9.0/netcdf-3.6.0/lib -lnetcdf #LIBRARIES = $(SE_SNL) $(PARIO) $(MPICH) $(IOAPI) $(NETCDF) #GC_INC = /home/hwo/CCTM_git_repository/MECHS/racm2_ae6_aq MECH_INC = $(GC_INC) TRAC_INC = $(GC_INC) PROCAN_INC = $(GC_INC) LIBRARIES = \ -L$(lib_path)/ioapi_3/$(LIOAPI) -lioapi \ IOAPI_INC = $(lib_path)/ioapi_3/ioapi/fixed_src MPI_INC = $(lib_path)/mpich/include INCLUDES = \ -DSUBST_RXCMMN=\"$(MECH_INC)/RXCM.EXT\" \ -DSUBST_RXDATA=\"$(MECH_INC)/RXDT.EXT\" # create_module.o \ # wrt_csqy_data.o \ OBJECTS =\ BIN_DATA.o \ CSQY_PARAMETERS.o \ ALBEDO_REFER_DATA.o \ CSQY_REFER_DATA.o \ driver.o \ intavg_b.o \ intavg_c.o \ intavg.o \ wrt_csqy_data_only.o \ wrt_optics_data.o \ optics_water_cloud.o \ optics_ice_cloud.o \ aero_refract_index.o \ process_csqys.o \ spectral_reflect.o \ wvbin_average-b.o \ wvbin_average.o \ xc_qy_td_effect.o \ convert_case.o \ nameval.o # wrbf12d.o \ # wrbf12d_w_headerb.o \ .SUFFIXES: .F .f .c $(MODEL): $(OBJECTS) $(FC) $(LINK_FLAGS) $(OBJECTS) $(LIBRARIES) -o $@ .F.o: $(FC) -c $(F_FLAGS) $(CPP_FLAGS) $(INCLUDES) $< .f.o: $(FC) $(F_FLAGS) -c $< .c.o: $(CC) $(C_FLAGS) -c $< clean: rm -f $(OBJECTS) $(BASE)_* *.mod ================================================ FILE: UTIL/inline_phot_preproc/src/old.Makefile ================================================ #MODEL = CSQY_TABLETABLE_PROCESSOR_cb05cl-si #MODEL = JTABLE_PROCESSOR_s07tb-smodel #APPL = AE-REFRACT MODEL = ../CSQY_TABLE_PROCESSOR_$(APPL) #FC = /share/linux9.0/pgi/linux86/6.0/bin/pgf90 #CC = cc #CPLUS = C++ #FPP = /share/linux9.0/pgi/linux86/6.0/bin/pgf90 #F_FLAGS = -Mfixed -Mextend -O2 -module /home/hutzellb/cmaq_toxics/releases_2010/MOD_DIR-v47-par -I. #C_FLAGS = -v -O2 -I/share/linux9.0/mpich-1.2.7p1/include #LINK_FLAGS = -Bstatic FC = $(myFC) CC = $(myCC) FPP = $FC lib_path = $(lib_basedir)/${system}/${compiler} DEGUB = -CB -CU -traceback #DEBUG = -Mbounds -Mchkptr -Mchkstk #DEBUG = #F_FLAGS = $(myFFLAGS) $(DEBUG) -I $(lib_path)/se_snl -I $(lib_path)/mpich/include -I . # F_FLAGS = $(myFFLAGS) -CB -CU -traceback -I $(lib_path)/se_snl -I $(lib_path)/mpich/include -I . F_FLAGS = $(myFFLAGS) -CB -CU -traceback -I . # C_FLAGS = $(myCFLAGS) -I $(MPI_INC) C_FLAGS = $(myCFLAGS) LINK_FLAGS = $(myLINK_FLAG) CPP_FLAGS = # x86 pgf90 #SE_SNL = -L/home/hutzellb/cmaq_toxics/tools/stenex_v4.6/Linux -lse_snl #PARIO = -L/home/hutzellb/cmaq_toxics/tools/pario-v4.6/Linux -lpario #MPICH = -L/share/linux9.0/mpich-1.2.7p1/lib -lmpich #IOAPI = -L/home/hutzellb/cmaq_toxics/tools/ioapi-3.1/pg -lioapi #NETCDF = -L/share/linux9.0/netcdf-3.6.0/lib -lnetcdf #LIBRARIES = $(SE_SNL) $(PARIO) $(MPICH) $(IOAPI) $(NETCDF) BASE_INC = /project/work/rep/include/release #IOAPI_INC = /home/hutzellb/cmaq_toxics/tools/ioapi-3.1/fixed_src # GC_INC = /home/hutzellb/cmaq_toxics/tools/mech_processor/saprc99tx3_ae5_aq #GC_INC = /home/hutzellb/cmaq_toxics/tools/mech_processor/SAPRC07TB_AE5_AQ-Jan_2010_Not_SS-no_NO2EX #GC_INC = /home/hutzellb/cmaq_toxics/tools/mech_processor/SAPRC07TC_AE5_AQ-Jan_2010_Not_SS-no_NO2EX #GC_INC = /home/hutzellb/cmaq_toxics/releases_2010/new_arc_mechanisms/saprc99tx3_ae5_aq #GC_INC = /home/hutzellb/cmaq_toxics/releases_2010/new_arc_mechanisms/saprc07tb_ae5_aq #GC_INC = /home/hutzellb/cmaq_toxics/releases_2010/new_arc_mechanisms/cb05cl_ae5_aq #GC_INC = MECH_INC = $(GC_INC) TRAC_INC = $(GC_INC) PROCAN_INC = $(GC_INC) #MPI_INC = /share/linux9.0/mpich-1.2.7p1/include LIBRARIES = \ -L$(lib_path)/ioapi_3/$(LIOAPI) -lioapi \ IOAPI_INC = $(lib_path)/ioapi_3/ioapi/fixed_src MPI_INC = $(lib_path)/mpich/include INCLUDES = \ -DSUBST_RXCMMN=\"$(MECH_INC)/RXCM.EXT\" \ -DSUBST_RXDATA=\"$(MECH_INC)/RXDT.EXT\" # create_module.o \ # wrt_csqy_data.o \ OBJECTS =\ BIN_DATA.o \ JPROC_PROFILE_nlcd-2006.o \ JPROC_PHOT_DATA.o \ driver.o \ intavg_b.o \ intavg_c.o \ intavg.o \ wrt_csqy_data.o \ optics_water_cloud.o \ aero_refract_index.o \ process_csqys.o \ spectral_reflect.o \ wvbin_average-b.o \ wvbin_average.o \ xc_qy_td_effect_v3.o \ convert_case.o \ nameval.o # wrbf12d.o \ # wrbf12d_w_headerb.o \ .SUFFIXES: .F .f .c $(MODEL): $(OBJECTS) $(FC) $(LINK_FLAGS) $(OBJECTS) $(LIBRARIES) -o $@ .F.o: $(FC) -c $(F_FLAGS) $(CPP_FLAGS) $(INCLUDES) $< .f.o: $(FC) $(F_FLAGS) -c $< .c.o: $(CC) $(C_FLAGS) -c $< clean: rm -f $(OBJECTS) $(MODEL) ================================================ FILE: UTIL/inline_phot_preproc/src/optics_ice_cloud.f ================================================ SUBROUTINE OPTICS_ICE_CLOUD(CLOUD_DIAMETER_ICE, ICE_EXT, ICE_ASY, ICE_SSA, ICE_DEL) USE GET_ENV_VARS USE BIN_DATA USE CSQY_PARAMETERS IMPLICIT NONE REAL, INTENT( IN ) :: CLOUD_DIAMETER_ICE ! effective ice droplet size or diameter, um REAL, INTENT( OUT ) :: ICE_EXT( : ) ! (cloud extinction coef)/IWC, 1/m*/(g/m**3) REAL, INTENT( OUT ) :: ICE_ASY( : ) ! cloud asymmetry factor REAL, INTENT( OUT ) :: ICE_SSA( : ) ! cloud coalbedo REAL, INTENT( OUT ) :: ICE_DEL( : ) ! Delta function transmission for ! Scattering at zero scattering angle INTEGER, PARAMETER :: IUNIT = 155 INTEGER, PARAMETER :: DATA_UNIT = 156 INTEGER, PARAMETER :: mxcof = 3 INTEGER, PARAMETER :: mxsiz = 3 INTEGER, PARAMETER :: mxwvwc = 74 INTEGER icof, isize, ivwc, lc, nlyr, nstring INTEGER wclyr LOGICAL, SAVE :: FIRST = .TRUE. LOGICAL :: FIRST_LINE, NEWSIZ LOGICAL, SAVE :: READ_DATA = .FALSE. LOGICAL, SAVE :: WRITE_DATA = .FALSE. REAL( 8 ) :: WREXT_COEFFS( MXWVWC ) REAL, ALLOCATABLE, SAVE :: CLOUD_ICE_EXT( : ), CLOUD_ICE_SSA( : ), CLOUD_ICE_ASY( : ) , & CLOUD_ICE_DEL( : ) INTEGER, SAVE :: INTERVALS_EXT REAL, ALLOCATABLE, SAVE :: WVL_EXT_LOWER( : ), WVL_EXT_UPPER( : ), WVL_EXT( : ) REAL, ALLOCATABLE, SAVE :: A0_EXT( : ), A1_EXT( : ) INTEGER, SAVE :: INTERVALS_ASY REAL, ALLOCATABLE, SAVE :: WVL_ASY_LOWER( : ), WVL_ASY_UPPER( : ), WVL_ASY( : ) REAL, ALLOCATABLE, SAVE :: C0_ASY( : ), C1_ASY( : ), C2_ASY( : ), C3_ASY( : ) INTEGER, SAVE :: INTERVALS_SSA REAL, ALLOCATABLE, SAVE :: WVL_SSA_LOWER( : ), WVL_SSA_UPPER( : ), WVL_SSA( : ) REAL, ALLOCATABLE, SAVE :: B0_SSA( : ), B1_SSA( : ), B2_SSA( : ), B3_SSA( : ) INTEGER, SAVE :: INTERVALS_DEL REAL, ALLOCATABLE, SAVE :: WVL_DEL_LOWER( : ), WVL_DEL_UPPER( : ), WVL_DEL( : ) REAL, ALLOCATABLE, SAVE :: B0_DEL( : ), B1_DEL( : ), B2_DEL( : ), B3_DEL( : ) INTEGER, SAVE :: I_CUTTOFF_EXT INTEGER, SAVE :: I_CUTTOFF_ASY INTEGER, SAVE :: I_CUTTOFF_SSA INTEGER, SAVE :: I_CUTTOFF_DEL CHARACTER(100) :: CHAR CHARACTER(19) :: FILENM ! No. of characters must equal ! length of filename. CHARACTER(586) :: FULLNAME, LINE REAL :: DIAMETER_SQUARED, DIAMETER_CUBED, INVERSE_DIAMETER REAL AVG1, AVG2, REFF_AVG1, REFF_AVG2 REAL, ALLOCATABLE, SAVE :: WAVE( : ), XDUMB( : ), YDUMB( : ), ZDUMB( : ) REAL :: FACTOR INTEGER :: NDUMB REAL, ALLOCATABLE, SAVE :: WAVE_OUTL( : ), WAVE_OUTU( : ), WAVE_OUTC( : ) REAL, ALLOCATABLE, SAVE :: NEW_CL_ASY(:, :, :), NEW_CL_EXT(:, :, :), & NEW_CL_SSA(:, :, :) INTEGER :: I, J, K INTEGER :: POUND_COUNT INTERFACE SUBROUTINE WVBIN_AVERAGE(WL_CS_IN, CS_IN, NWL_CS_IN, & WL_QY_IN, QY_IN, NWL_QY_IN, & SPECTRA_TYPE, & WLL_AVE, WLU_AVE, NWL_AVE, & CS_AVE, QY_AVE ) CHARACTER(1), INTENT( IN ) :: SPECTRA_TYPE ! spectra type INTEGER, INTENT( IN ) :: NWL_AVE ! number of intervals average INTEGER, INTENT( IN ) :: NWL_CS_IN ! number of intervals CS_IN INTEGER, INTENT( IN ) :: NWL_QY_IN ! number of intervals CS_IN REAL, INTENT( IN ) :: WL_CS_IN( : ) ! wl for CS_IN REAL, INTENT( IN ) :: WL_QY_IN( : ) ! wl for QY_IN REAL, INTENT( IN ) :: CS_IN( : ) ! cross-section as f(WLIN) REAL, INTENT( IN ) :: QY_IN( : ) ! quantum yield as f(WLIN) REAL, INTENT( INOUT ) :: WLL_AVE( : ) ! lower limit on wl effective interval REAL, INTENT( INOUT ) :: WLU_AVE( : ) ! upper limit on wl effective interval REAL, INTENT( INOUT ) :: CS_AVE( : ) ! cross-section as f(WL_AVE) REAL, INTENT( INOUT ) :: QY_AVE( : ) ! quantum yield as f(WL_AVE) END SUBROUTINE WVBIN_AVERAGE SUBROUTINE WVBIN_AVERAGE_B(WL_CS_IN, CS_IN, NWL_CS_IN, & WL_QY_IN, QY_IN, NWL_QY_IN, & SPECTRA_TYPE, & WLL_AVE, WLU_AVE, NWL_AVE, & CS_AVE, QY_AVE ) CHARACTER(1), INTENT( IN ) :: SPECTRA_TYPE ! spectra type INTEGER, INTENT( IN ) :: NWL_AVE ! number of intervals average INTEGER, INTENT( IN ) :: NWL_CS_IN ! number of intervals CS_IN INTEGER, INTENT( IN ) :: NWL_QY_IN ! number of intervals CS_IN REAL, INTENT( IN ) :: WL_CS_IN( : ) ! wl for CS_IN REAL, INTENT( IN ) :: WL_QY_IN( : ) ! wl for QY_IN REAL, INTENT( IN ) :: CS_IN( : ) ! cross-section as f(WLIN) REAL, INTENT( IN ) :: QY_IN( : ) ! quantum yield as f(WLIN) REAL, INTENT( INOUT ) :: WLL_AVE( : ) ! lower limit on wl effective interval REAL, INTENT( INOUT ) :: WLU_AVE( : ) ! upper limit on wl effective interval REAL, INTENT( INOUT ) :: CS_AVE( : ) ! cross-section as f(WL_AVE) REAL, INTENT( INOUT ) :: QY_AVE( : ) ! quantum yield as f(WL_AVE) END SUBROUTINE WVBIN_AVERAGE_B END INTERFACE IF ( FIRST ) THEN FIRST = .FALSE. C Read in ice particle optical parameters. ALLOCATE( WAVE( MXWLIN ), XDUMB( MXWLIN ), ZDUMB( MXWLIN ), & YDUMB( MXWLIN) ) ALLOCATE( WAVE_OUTC( MXWLIN ), WAVE_OUTL( MXWLIN ), WAVE_OUTU( MXWLIN )) ! filenm = 'ice_clouds/fu96.ext' ! fullname = filenm filenm = 'ICE_CLD_EXT' CALL VALUE_NAME( filenm, fullname ) OPEN(UNIT=iunit,FILE=fullname,FORM='FORMATTED',STATUS='OLD',ERR=99) POUND_COUNT = 0 CHAR(1:1) = '#' DO WHILE( CHAR(1:1) .EQ. '#' ) READ(IUNIT,'(A)',ERR=99) CHAR POUND_COUNT = POUND_COUNT + 1 ! PRINT*,TRIM(CHAR) END DO POUND_COUNT = POUND_COUNT - 1 INTERVALS_EXT = 0 DO INTERVALS_EXT = INTERVALS_EXT + 1 READ(iunit,'(A)',ERR=99, END = 101 ) CHAR ! PRINT*,TRIM(CHAR) END DO 101 REWIND(IUNIT) ALLOCATE( WVL_EXT_LOWER( INTERVALS_EXT ), WVL_EXT_UPPER( INTERVALS_EXT ), & A0_EXT( INTERVALS_EXT ), A1_EXT( INTERVALS_EXT ) ) ALLOCATE( WVL_EXT( INTERVALS_EXT ), CLOUD_ICE_EXT( INTERVALS_EXT ) ) DO I = 1, POUND_COUNT READ(IUNIT,'(A)',ERR=99)CHAR END DO DO I = 1, INTERVALS_EXT READ(IUNIT,*)WVL_EXT_LOWER( I ), WVL_EXT_UPPER( I ), A0_EXT( I ), A1_EXT( I ) WVL_EXT( I ) = WVL_EXT_UPPER( I ) + 0.5 * (WVL_EXT_LOWER( I ) - WVL_EXT_UPPER( I )) END DO CLOSE( IUNIT ) ! filenm = 'ice_clouds/fu96.asy' filenm = 'ICE_CLD_ASY' fullname = filenm CALL VALUE_NAME( filenm, fullname ) OPEN(UNIT=iunit,FILE=fullname,FORM='FORMATTED',STATUS='OLD',ERR=99) POUND_COUNT = 0 CHAR(1:1) = '#' DO WHILE( CHAR(1:1) .EQ. '#' ) READ(IUNIT,'(A)',ERR=99) CHAR POUND_COUNT = POUND_COUNT + 1 ! PRINT*,TRIM(CHAR) END DO POUND_COUNT = POUND_COUNT - 1 INTERVALS_ASY = 0 DO INTERVALS_ASY = INTERVALS_ASY + 1 READ(iunit,'(A)',ERR=99, END = 201 ) CHAR ! PRINT*,TRIM(CHAR) END DO 201 REWIND(IUNIT) ALLOCATE( WVL_ASY_LOWER( INTERVALS_ASY ), WVL_ASY_UPPER( INTERVALS_ASY ), & C0_ASY( INTERVALS_ASY ), C1_ASY( INTERVALS_ASY ), & C2_ASY( INTERVALS_ASY ), C3_ASY( INTERVALS_ASY ) ) ALLOCATE( WVL_ASY( INTERVALS_ASY ), CLOUD_ICE_ASY( INTERVALS_ASY ) ) DO I = 1, POUND_COUNT READ(IUNIT,'(A)',ERR=99)CHAR END DO J = 0 DO I = 1, INTERVALS_ASY READ(IUNIT,*)WVL_ASY_LOWER( I ), WVL_ASY_UPPER( I ), & C0_ASY( I ), C1_ASY( I ), & C2_ASY( I ), C3_ASY( I ) WVL_ASY( I ) = WVL_ASY_UPPER( I ) + 0.5 * (WVL_ASY_LOWER( I ) - WVL_ASY_UPPER( I )) END DO CLOSE( IUNIT ) ! filenm = 'ice_clouds/fu96.ssa' ! fullname = filenm filenm = 'ICE_CLD_SSA' CALL VALUE_NAME( filenm, fullname ) OPEN(UNIT=iunit,FILE=fullname,FORM='FORMATTED',STATUS='OLD',ERR=99) POUND_COUNT = 0 CHAR(1:1) = '#' DO WHILE( CHAR(1:1) .EQ. '#' ) READ(IUNIT,'(A)',ERR=99) CHAR POUND_COUNT = POUND_COUNT + 1 ! PRINT*,TRIM(CHAR) END DO POUND_COUNT = POUND_COUNT - 1 INTERVALS_SSA = 0 DO INTERVALS_SSA = INTERVALS_SSA + 1 READ(iunit,'(A)',ERR=99, END = 301 ) CHAR ! PRINT*,TRIM(CHAR) END DO 301 REWIND(IUNIT) ALLOCATE( WVL_SSA_LOWER( INTERVALS_SSA ), WVL_SSA_UPPER( INTERVALS_SSA ), & B0_SSA( INTERVALS_SSA ), B1_SSA( INTERVALS_SSA ), & B2_SSA( INTERVALS_SSA ), B3_SSA( INTERVALS_SSA ) ) DO I = 1, POUND_COUNT READ(IUNIT,'(A)',ERR=99)CHAR END DO ALLOCATE( WVL_SSA( INTERVALS_SSA ), CLOUD_ICE_SSA( INTERVALS_SSA ) ) DO I = 1, INTERVALS_SSA READ(IUNIT,*)WVL_SSA_LOWER( I ), WVL_SSA_UPPER( I ), & B0_SSA( I ), B1_SSA( I ), & B2_SSA( I ), B3_SSA( I ) WVL_SSA( I ) = WVL_SSA_UPPER( I ) + 0.5 * (WVL_SSA_LOWER( I ) - WVL_SSA_UPPER( I )) END DO CLOSE( IUNIT ) ! filenm = 'ice_clouds/fu96.del' ! fullname = filenm filenm = 'ICE_CLD_DEL' CALL VALUE_NAME( filenm, fullname ) OPEN(UNIT=iunit,FILE=fullname,FORM='FORMATTED',STATUS='OLD',ERR=99) POUND_COUNT = 0 CHAR(1:1) = '#' DO WHILE( CHAR(1:1) .EQ. '#' ) READ(IUNIT,'(A)',ERR=99) CHAR POUND_COUNT = POUND_COUNT + 1 ! PRINT*,TRIM(CHAR) END DO POUND_COUNT = POUND_COUNT - 1 INTERVALS_DEL = 0 DO INTERVALS_DEL = INTERVALS_DEL + 1 READ(iunit,'(A)',ERR=99, END = 401 ) CHAR ! PRINT*,TRIM(CHAR) END DO 401 REWIND(IUNIT) ALLOCATE( WVL_DEL_LOWER( INTERVALS_DEL ), WVL_DEL_UPPER( INTERVALS_DEL ), & B0_DEL( INTERVALS_DEL ), B1_DEL( INTERVALS_DEL ), & B2_DEL( INTERVALS_DEL ), B3_DEL( INTERVALS_DEL ) ) DO I = 1, POUND_COUNT READ(IUNIT,'(A)',ERR=99)CHAR END DO ALLOCATE( WVL_DEL( INTERVALS_DEL ), CLOUD_ICE_DEL( INTERVALS_DEL ) ) DO I = 1, INTERVALS_DEL READ(IUNIT,*)WVL_DEL_LOWER( I ), WVL_DEL_UPPER( I ), & B0_DEL( I ), B1_DEL( I ), & B2_DEL( I ), B3_DEL( I ) WVL_DEL( I ) = WVL_DEL_UPPER( I ) + 0.5 * (WVL_DEL_LOWER( I ) - WVL_DEL_UPPER( I )) END DO DO I = NJO_NEW, 1, -1 IF ( EFFECTIVE_LAMBDA(I) .LT. 1.0E+3*WVL_EXT( 1 ) )THEN I_CUTTOFF_EXT = I EXIT END IF END DO DO I = NJO_NEW, 1, -1 IF ( EFFECTIVE_LAMBDA(I) .LT. 1.0E+3*WVL_ASY( 1 ) )THEN I_CUTTOFF_ASY = I EXIT END IF END DO DO I = NJO_NEW, 1, -1 IF ( EFFECTIVE_LAMBDA(I) .LT. 1.0E+3*WVL_SSA( 1 ) )THEN I_CUTTOFF_SSA = I EXIT END IF END DO DO I = NJO_NEW, 1, -1 IF ( EFFECTIVE_LAMBDA(I) .LT. 1.0E+3*WVL_DEL( 1 ) )THEN I_CUTTOFF_DEL = I EXIT END IF END DO CLOSE( IUNIT ) ENDIF ! FIRST IF(CLOUD_DIAMETER_ICE .LT. 4.99 .OR. CLOUD_DIAMETER_ICE .GT. 140.01 )THEN WRITE(*,*)'Error, in ice cloud parameterization Fu et al. (1996)' WRITE(*,*)'ice droplet diameter = ', CLOUD_DIAMETER_ICE WRITE(*,*)'and is greater than 5.0 um or larger than 140.0 um. ' STOP ENDIF DIAMETER_SQUARED = CLOUD_DIAMETER_ICE * CLOUD_DIAMETER_ICE DIAMETER_CUBED = DIAMETER_SQUARED * CLOUD_DIAMETER_ICE INVERSE_DIAMETER = 1.0 / CLOUD_DIAMETER_ICE DO I = 1, INTERVALS_EXT C Extinction coefficient CLOUD_ICE_EXT( I ) = A0_EXT( I ) + A1_EXT( I ) * INVERSE_DIAMETER WRITE(6,'(A,8(es12.4,1X))')'ICE_EXT: ',WVL_EXT(I),CLOUD_ICE_EXT( I ),A0_EXT( I ),A1_EXT( I ), & INVERSE_DIAMETER CLOUD_ICE_EXT( I ) = MAX(CLOUD_ICE_EXT( I ), 0.0) END DO DO I = 1, INTERVALS_ASY C Asymmetery coefficient CLOUD_ICE_ASY( I ) = C0_ASY( I ) & + C1_ASY( I ) * CLOUD_DIAMETER_ICE & + C2_ASY( I ) * DIAMETER_SQUARED & + C3_ASY( I ) * DIAMETER_CUBED WRITE(6,'(A,12(es12.4,1X))')'ICE_SYM: ',WVL_ASY(I),CLOUD_ICE_ASY( I ),C0_ASY( I ),C1_ASY( I ), & CLOUD_DIAMETER_ICE, C2_ASY( I ), DIAMETER_SQUARED, C3_ASY( I ), DIAMETER_CUBED END DO DO I = 1, INTERVALS_SSA C Single Scattering Co-Albedo CLOUD_ICE_SSA( I ) = REAL(B0_SSA( I ), 8) & + REAL(B1_SSA( I ) * CLOUD_DIAMETER_ICE, 8) & + REAL(B2_SSA( I ) * DIAMETER_SQUARED, 8 ) & + REAL(B3_SSA( I ) * DIAMETER_CUBED, 8) ! CLOUD_ICE_SSA( I ) = MAX(0.0, CLOUD_ICE_SSA( I )) WRITE(6,'(A,12(es12.4,1X))')'ICE_COA: ',WVL_SSA(i),CLOUD_ICE_SSA( I ),B0_SSA( I ),B1_SSA( I ), & CLOUD_DIAMETER_ICE, B2_SSA( I ), DIAMETER_SQUARED, B3_SSA( I ), DIAMETER_CUBED END DO DO I = 1, INTERVALS_DEL C Delta function transmission for Scattering at zero scattering angle CLOUD_ICE_DEL( I ) = REAL(B0_DEL( I ), 8) & + REAL(B1_DEL( I ) * CLOUD_DIAMETER_ICE, 8) & + REAL(B2_DEL( I ) * DIAMETER_SQUARED, 8 ) & + REAL(B3_DEL( I ) * DIAMETER_CUBED, 8) CLOUD_ICE_DEL( I ) = MAX(0.0, CLOUD_ICE_DEL( I )) WRITE(6,'(A,12(es12.4,1X))')'ICE_DEL: ',WVL_DEL(i),CLOUD_ICE_DEL( I ),B0_DEL( I ),B1_DEL( I ), & CLOUD_DIAMETER_ICE, B2_DEL( I ), DIAMETER_SQUARED, B3_DEL( I ), DIAMETER_CUBED END DO XDUMB = 1.0 NDUMB = INTERVALS_EXT WAVE = 0.0 WAVE( 1:NDUMB ) = 1.0E+3 * WVL_EXT( 1:NDUMB ) ! convert from um to nm ICE_EXT = 0.0 ICE_ASY = 0.0 ICE_SSA = 1.0 ICE_DEL = 0.0 CALL WVBIN_AVERAGE(WAVE, CLOUD_ICE_EXT, NDUMB, WAVE, XDUMB, NDUMB, 'P', & WAVE_OUTL, WAVE_OUTU, MXWLIN, YDUMB, ZDUMB ) ICE_EXT( 1:NJO_NEW ) = YDUMB( 1:NJO_NEW ) XDUMB = 1.0 NDUMB = INTERVALS_ASY WAVE = 0.0 WAVE( 1:NDUMB ) = 1.0E+3 * WVL_ASY( 1:NDUMB ) CALL WVBIN_AVERAGE(WAVE, CLOUD_ICE_ASY, NDUMB, WAVE, XDUMB, NDUMB, 'P', & WAVE_OUTL, WAVE_OUTU, MXWLIN, YDUMB, ZDUMB ) ICE_ASY( 1:NJO_NEW ) = YDUMB( 1:NJO_NEW ) XDUMB = 1.0 NDUMB = INTERVALS_SSA WAVE = 0.0 WAVE( 1:NDUMB ) = 1.0E+3 * WVL_SSA( 1:NDUMB ) ! convert from um to nm CALL WVBIN_AVERAGE(WAVE, CLOUD_ICE_SSA, NDUMB, WAVE, XDUMB, NDUMB, 'P', & WAVE_OUTL, WAVE_OUTU, MXWLIN, YDUMB, XDUMB ) ICE_SSA( 1:NJO_NEW ) = YDUMB( 1:NJO_NEW ) XDUMB = 1.0 NDUMB = INTERVALS_DEL WAVE = 0.0 WAVE( 1:NDUMB ) = 1.0E+3 * WVL_DEL( 1:NDUMB ) ! convert from um to nm CALL WVBIN_AVERAGE(WAVE, CLOUD_ICE_DEL, NDUMB, WAVE, XDUMB, NDUMB, 'P', & WAVE_OUTL, WAVE_OUTU, MXWLIN, YDUMB, XDUMB ) ICE_DEL( 1:NJO_NEW ) = YDUMB( 1:NJO_NEW ) ! replace zero values ICE_EXT( 1:I_CUTTOFF_EXT ) = ICE_EXT( I_CUTTOFF_EXT + 1 ) ICE_ASY( 1:I_CUTTOFF_ASY ) = ICE_ASY( I_CUTTOFF_ASY + 1 ) ICE_SSA( 1:I_CUTTOFF_SSA ) = ICE_SSA( I_CUTTOFF_SSA + 1 ) ICE_DEL( 1:I_CUTTOFF_DEL ) = ICE_DEL( I_CUTTOFF_DEL + 1 ) WRITE(6,'(A,8(es12.4,1X))')'ICE_CUTTOFF: ',WAVE_OUTL(I_CUTTOFF_EXT + 1),ICE_EXT(I_CUTTOFF_EXT + 1), & ICE_ASY(I_CUTTOFF_ASY + 1),ICE_SSA(I_CUTTOFF_SSA + 1), & ICE_DEL(I_CUTTOFF_DEL + 1) do ivwc = 1, NJO_NEW WRITE(6,'(A,8(es12.4,1X))')'ICE: ',WAVE_OUTL(ivwc),ICE_EXT(ivwc),ICE_ASY(ivwc),ICE_SSA(ivwc), & ICE_DEL(ivwc) end do RETURN 98 WRITE(6,*)'ERROR opening output file for Fu (1996) data' STOP 99 WRITE(6,'(2A)')'Error during reading of file: ',TRIM(fullname) STOP END ================================================ FILE: UTIL/inline_phot_preproc/src/optics_water_cloud.f ================================================ SUBROUTINE OPTICS_WATER_CLOUD(CLOUD_RADIUS_LIQUID, WC_EXT, WC_ASF, WC_SSA) USE BIN_DATA USE CSQY_PARAMETERS IMPLICIT NONE REAL, INTENT( IN ) :: CLOUD_RADIUS_LIQUID ! cloud liquid droplet radii, um REAL, INTENT( OUT ) :: WC_EXT( : ) ! (cloud extinction coef)/LWC, 1/m*/(g/m**3) REAL, INTENT( OUT ) :: WC_ASF( : ) ! cloud asymmetry factor REAL, INTENT( OUT ) :: WC_SSA( : ) ! cloud coalbedo INTEGER, PARAMETER :: IUNIT = 155 INTEGER, PARAMETER :: DATA_UNIT = 156 INTEGER, PARAMETER :: mxcof = 3 INTEGER, PARAMETER :: mxsiz = 3 INTEGER, PARAMETER :: mxwvwc = 74 INTEGER icof, isize, ivwc, lc, nlyr, nstring INTEGER wclyr LOGICAL, SAVE :: FIRST = .TRUE. LOGICAL :: FIRST_LINE, NEWSIZ LOGICAL, SAVE :: READ_DATA = .FALSE. LOGICAL, SAVE :: WRITE_DATA = .FALSE. REAL, SAVE :: CL_ASY(MXSIZ,MXWVWC,MXCOF), CL_EXT(MXSIZ,MXWVWC,MXCOF), & CL_SSA(MXSIZ,MXWVWC,MXCOF), WCWVN(MXWVWC), COEFFS( MXWVWC ) REAL( 8 ) :: WREXT_COEFFS( MXWVWC ) REAL :: CLOUD_LIQ_EXT( MXWVWC ), CLOUD_LIQ_SSA( MXWVWC ), & CLOUD_LIQ_ASF( MXWVWC ) REAL, SAVE :: RADBIN_LOWER( MXSIZ ), RADBIN_UPPER( MXSIZ ) CHARACTER( 1) CHAR CHARACTER(19) FILENM ! No. of characters must equal ! length of filename. CHARACTER(100) FULLNAME, LINE REAL BASYD, BEXTD, BSSAD, & DELTAZ, EX_V1, EX_V2, EX_V1_L1, EX_V1_L2, & EX_V2_L1, EX_V2_L2, GG_V1, GG_V2, GG_V1_L1, GG_V1_L2, & GG_V2_L1, GG_V2_L2, SS_V1, SS_V2, SS_V1_L1, SS_V1_L2, & SS_V2_L1, SS_V2_L2, SPREC, SSALBD, LAMBDA, WAVLEN REAL AVG1, AVG2, REFF_AVG1, REFF_AVG2 REAL, ALLOCATABLE, SAVE :: WAVE( : ), XDUMB( : ), YDUMB( : ), ZDUMB( : ) REAL :: FACTOR INTEGER :: NDUMB REAL, ALLOCATABLE, SAVE :: WAVE_OUTL( : ), WAVE_OUTU( : ), WAVE_OUTC( : ) REAL, ALLOCATABLE, SAVE :: NEW_CL_ASY(:, :, :), NEW_CL_EXT(:, :, :), & NEW_CL_SSA(:, :, :) INTEGER :: I, J, K INTEGER, SAVE :: I_CUTTOFF DATA WCWVN / O 2.9000E+02, 3.1400E+02, 3.4400E+02, 3.7900E+02, 4.1900E+02, + 4.5900E+02, 4.9900E+02, 5.4400E+02, 6.0300E+02, 6.6400E+02, 1 7.1900E+02, 7.6600E+02, 8.2100E+02, 9.2900E+02, 1.0460E+03, + 1.1420E+03, 1.2320E+03, 1.3930E+03, 1.5870E+03, 1.8550E+03, 2 2.2470E+03, 2.6180E+03, 3.1450E+03, 3.6900E+03, 3.9000E+03, + 4.1000E+03, 4.3000E+03, 4.5000E+03, 4.7000E+03, 4.9000E+03, 3 5.1000E+03, 5.3000E+03, 5.4000E+03, 5.5000E+03, 5.7000E+03, + 5.9000E+03, 6.0000E+03, 6.1000E+03, 6.2000E+03, 6.3000E+03, 4 6.5000E+03, 6.7000E+03, 7.0000E+03, 7.1000E+03, 7.3000E+03, + 7.6000E+03, 8.0000E+03, 8.6000E+03, 9.0000E+03, 9.6000E+03, 5 1.0000E+04, 1.0500E+04, 1.1000E+04, 1.1500E+04, 1.2500E+04, + 1.3500E+04, 1.4000E+04, 1.4500E+04, 1.5000E+04, 1.5500E+04, 6 1.6500E+04, 1.7000E+04, 1.7500E+04, 1.8000E+04, 1.9000E+04, + 2.0000E+04, 2.5000E+04, 3.2000E+04, 4.0000E+04, 5.0000E+04, 7 6.0000E+04, 8.0000E+04, 1.0000E+05, 1.5000E+05/ DATA ( CL_ASY( 1, IVWC, 1 ), IVWC = 1, MXWVWC ) / O 1.1100E-01,-8.0600E-02,-8.2900E-02,-6.7500E-02,-9.9800E-02, + -1.0900E-01,-1.1500E-01,-1.2400E-01,-1.2400E-01,-1.3700E-01, 1 -1.4100E-01,-2.3100E-01,-1.7100E-01,-1.8600E-01,-2.1300E-01, + -3.1400E-01,-3.7400E-01,-4.6100E-01,-5.8200E-01,-3.5800E-01, 2 5.9800E-03, 4.0600E-08,-2.8500E-01, 1.8000E-03, 3.9000E-08, + 1.2500E-08, 9.5400E-09, 7.3900E-09, 1.7500E+01, 1.7200E+00, 3 2.8000E-01,-6.5200E-01,-4.1600E-03,-4.3700E-04,-5.2300E+01, + -9.7000E-01,-5.5900E-01,-4.2300E-01,-3.3600E-01,-3.8400E-01, 4 -6.2100E-01,-1.8800E+01,-4.0200E+01,-4.0100E+01,-2.7900E+01, + -1.3400E+01,-6.3000E+00,-3.1700E+00,-2.3000E+00,-3.2400E+00, 5 -1.8400E+00,-1.7600E+00,-1.8500E+00,-2.0200E+00,-2.2400E+00, + -2.4000E+00,-2.4600E+00,-2.5100E+00,-2.5300E+00,-2.5600E+00, 6 -2.5700E+00,-2.5800E+00,-2.5700E+00,-2.5600E+00,-2.5300E+00, + -2.5100E+00,-2.3800E+00,-2.2700E+00,-7.7900E+01, 2.7300E-01, 7 7.0700E-02, 2.4700E-02, 7.5300E-03, 9.8700E-04/ DATA ( CL_ASY( 1, IVWC, 2 ), IVWC = 1, MXWVWC ) / O 9.4000E-02,-7.6200E-01,-6.8800E-01,-6.1200E-01,-8.0000E-01, + -7.2400E-01,-7.5600E-01,-7.8200E-01,-6.0200E-01,-6.7600E-01, 1 -6.9400E-01,-1.2300E+00,-8.2600E-01,-8.2400E-01,-8.0000E-01, + -1.2000E+00,-1.2500E+00,-1.3100E+00,-1.3900E+00,-6.4000E-01, 2 1.1000E+00, 5.4400E+00,-6.5600E-01, 1.6700E+00, 5.6800E+00, + 6.0000E+00, 6.0000E+00, 6.0000E+00,-4.8800E+00,-3.0500E+00, 3 -1.5100E+00, 4.0000E-02, 9.8600E-01, 1.7600E+00,-6.0000E+00, + -2.1000E+00,-1.3600E+00,-1.0400E+00,-4.0000E-01,-2.1800E-01, 4 -1.9000E+00,-4.5500E+00,-5.0000E+00,-4.9300E+00,-4.5800E+00, + -3.9200E+00,-3.2100E+00,-2.5000E+00,-2.1100E+00,-2.4400E+00, 5 -1.7100E+00,-1.5500E+00,-1.5000E+00,-1.5000E+00,-1.5000E+00, + -1.4800E+00,-1.4600E+00,-1.4400E+00,-1.4200E+00,-1.4000E+00, 6 -1.3500E+00,-1.3200E+00,-1.2900E+00,-1.2600E+00,-1.2100E+00, + -1.1500E+00,-9.3600E-01,-5.4800E-01,-6.0000E-03, 5.4000E-01, 7 8.8400E-01, 1.1500E+00, 1.4800E+00, 1.9900E+00/ DATA ( CL_ASY( 1, IVWC, 3 ), IVWC = 1, MXWVWC ) / O 7.3000E-01, 8.8300E-01, 8.8400E-01, 8.8200E-01, 8.8200E-01, + 8.8600E-01, 8.8500E-01, 8.8500E-01, 8.9400E-01, 8.9000E-01, 1 8.8900E-01, 8.7500E-01, 8.8300E-01, 8.8400E-01, 8.8700E-01, + 8.7100E-01, 8.7100E-01, 8.7100E-01, 8.7000E-01, 9.2500E-01, 2 7.6600E-01, 8.6100E-01, 1.0100E+00, 7.5600E-01, 7.7400E-01, + 7.8800E-01, 8.0400E-01, 8.2100E-01, 8.2700E-01, 8.2400E-01, 3 8.1700E-01, 1.5500E+00, 8.7600E-01, 8.6700E-01, 8.7500E-01, + 9.2300E-01, 9.5900E-01, 9.6700E-01, 1.0500E+00, 1.1300E+00, 4 8.8300E-01, 8.6700E-01, 8.6900E-01, 8.7100E-01, 8.7400E-01, + 8.8000E-01, 8.8900E-01, 9.0500E-01, 9.2000E-01, 8.8400E-01, 5 9.4700E-01, 9.7200E-01, 9.8200E-01, 9.8400E-01, 9.7500E-01, + 9.6300E-01, 9.5700E-01, 9.5400E-01, 9.5200E-01, 9.5100E-01, 6 9.5100E-01, 9.5200E-01, 9.5300E-01, 9.5500E-01, 9.6100E-01, + 9.7100E-01, 1.0300E+00, 1.3200E+00, 7.7500E+01,-4.7000E-01, 7 -1.6500E-01,-7.2000E-02,-2.6200E-02,-6.7200E-04/ DATA ( CL_ASY( 2, IVWC, 1 ), IVWC = 1, MXWVWC ) / O -3.1500E-01,-8.4300E-02,-9.0800E-02,-1.6300E-01,-1.0200E-01, + -1.1100E-01,-1.0900E-01,-1.2000E-01,-1.3300E-01,-1.5500E-01, 1 -1.5700E-01,-1.1500E-01,-1.6700E-01,-1.7400E-01,-2.1200E-01, + -2.0800E-01,-2.0600E-01,-2.1900E-01,-2.3800E-01,-2.5100E-01, 2 -3.0100E-01,-6.5600E-01,-3.2000E+00,-6.0800E-01,-6.0100E-01, + -8.1600E-01,-1.2300E+00,-1.9400E+00,-2.3400E+00,-2.3600E+00, 3 -2.2000E+00,-1.7700E+00,-1.4100E+00,-1.1500E+00,-1.1400E+00, + -1.7500E+00,-2.3600E+00,-5.9300E+00,-1.7800E+01,-1.7900E+01, 4 -5.6500E+00,-2.4900E+00,-1.1500E+00,-8.2100E-01,-1.4300E+00, + 9.0700E-02, 3.9800E-03, 1.0900E-04, 4.5500E-06, 8.4500E-03, 5 8.5200E-05,-2.2400E-01,-1.1600E+00,-1.7800E+00,-2.1200E+00, + -2.3000E+00,-2.4100E+00,-2.5100E+00,-2.6200E+00,-2.7300E+00, 6 -2.9200E+00,-3.0600E+00,-3.1600E+00,-3.2500E+00,-3.3600E+00, + -3.3900E+00,-3.2900E+00,-3.7900E+00,-6.6900E+00,-8.9900E+00, 7 -7.5200E+00,-4.0700E+00,-3.1200E+00, 1.8900E+01/ DATA ( CL_ASY( 2, IVWC, 2 ), IVWC = 1, MXWVWC ) / O -1.4700E+00,-8.0600E-01,-8.0600E-01,-1.0200E+00,-7.8000E-01, + -7.8800E-01,-7.4800E-01,-7.4800E-01,-7.6600E-01,-8.1600E-01, 1 -7.8200E-01,-6.2800E-01,-7.4400E-01,-7.2400E-01,-7.8200E-01, + -7.1000E-01,-6.6800E-01,-6.3400E-01,-5.9600E-01,-5.0200E-01, 2 -4.3000E-01,-8.7800E-01,-2.1600E+00,-6.5000E-01,-4.7800E-01, + -6.6200E-01,-8.5400E-01,-1.0700E+00,-1.1300E+00,-1.1100E+00, 3 -1.0600E+00,-9.2800E-01,-7.9400E-01,-6.6600E-01,-7.4600E-01, + -1.2400E+00,-1.6300E+00,-2.0200E+00,-2.3900E+00,-2.2600E+00, 4 -1.5900E+00,-1.1400E+00,-7.0800E-01,-4.0600E-01,-8.8000E-02, + 3.5000E-01, 9.9400E-01, 1.8800E+00, 2.6800E+00, 8.1200E-01, 5 1.7400E+00,-5.4600E-01,-1.3300E+00,-1.4600E+00,-1.4800E+00, + -1.4800E+00,-1.4700E+00,-1.4700E+00,-1.4600E+00,-1.4600E+00, 6 -1.4600E+00,-1.4500E+00,-1.4400E+00,-1.4400E+00,-1.4200E+00, + -1.3700E+00,-1.2400E+00,-1.1600E+00,-1.2900E+00,-1.2900E+00, 7 -1.1000E+00,-6.8000E-01,-2.9800E-01, 1.8000E-02/ DATA ( CL_ASY( 2, IVWC, 3 ), IVWC = 1, MXWVWC ) / O 8.7800E-01, 8.8200E-01, 8.8100E-01, 8.8100E-01, 8.8300E-01, + 8.8400E-01, 8.8500E-01, 8.8600E-01, 8.8600E-01, 8.8500E-01, 1 8.8600E-01, 8.8900E-01, 8.8800E-01, 8.8800E-01, 8.8800E-01, + 8.9100E-01, 8.9400E-01, 8.9900E-01, 9.0600E-01, 9.2300E-01, 2 9.5800E-01, 9.6300E-01, 9.6500E-01, 9.8700E-01, 1.0100E+00, + 9.8600E-01, 9.8400E-01, 9.8400E-01, 9.8400E-01, 9.8400E-01, 3 9.8800E-01, 1.0000E+00, 1.0200E+00, 1.0500E+00, 1.0400E+00, + 9.9300E-01, 9.7900E-01, 9.7300E-01, 9.6700E-01, 9.6900E-01, 4 9.8200E-01, 1.0000E+00, 1.0500E+00, 1.1500E+00, 2.0100E+00, + 6.4600E-01, 8.2600E-01, 8.7800E-01, 9.0000E-01, 8.0400E-01, 5 9.1700E-01, 9.9400E-01, 9.8200E-01, 9.8300E-01, 9.7400E-01, + 9.6100E-01, 9.5400E-01, 9.5000E-01, 9.4600E-01, 9.4300E-01, 6 9.3900E-01, 9.3700E-01, 9.3600E-01, 9.3500E-01, 9.3500E-01, + 9.3700E-01, 9.4400E-01, 9.4900E-01, 9.3800E-01, 9.3100E-01, 7 9.4700E-01, 1.1000E+00, 1.7500E+00,-1.9700E+01/ DATA ( CL_ASY( 3, IVWC, 1 ), IVWC = 1, MXWVWC ) / O -9.9200E-02,-1.3000E-01,-1.5000E-01,-2.6400E-01,-1.7700E-01, + -1.7700E-01,-1.8400E-01,-2.0700E-01,-2.0500E-01,-2.0300E-01, 1 -2.1400E-01,-2.5500E-01,-2.5800E-01,-2.8900E-01,-2.7400E-01, + -2.8400E-01,-2.8400E-01,-2.3100E-01,-2.2000E-01,-2.3100E-01, 2 -2.9400E-01,-3.8700E-01,-1.6500E+00,-8.8600E-01,-6.4200E-01, + -8.0900E-01,-1.5000E+00,-3.7600E+00,-4.6700E+00,-3.8000E+00, 3 -3.2000E+00,-2.8200E+00,-2.6800E+00,-2.9900E+00,-1.6400E+01, + -7.2200E+01,-7.5900E+00,-3.6500E+00,-3.9500E+00,-1.6300E+01, 4 -7.5000E+01,-8.2900E+01,-7.7700E+01,-7.4100E+01,-7.3200E+01, + -8.1300E+01,-9.0100E+01,-9.1000E+01,-6.1600E+01,-1.0100E+02, 5 -7.4500E+00,-7.3900E-01,-4.6500E-01,-1.2700E+00,-2.0600E+00, + -2.3200E+00,-2.5100E+00,-2.6900E+00,-2.8900E+00,-3.1000E+00, 6 -3.4900E+00,-3.8400E+00,-4.1500E+00,-4.5300E+00,-5.2600E+00, + -6.6300E+00,-1.2000E+01,-1.5700E+01,-1.2400E+01,-1.5900E+01, 7 -2.0200E+01,-1.6600E+01,-1.0700E+01,-4.3800E+00/ DATA ( CL_ASY( 3, IVWC, 2 ), IVWC = 1, MXWVWC ) / O -9.0800E-01,-9.8600E-01,-1.0100E+00,-1.1800E+00,-1.0100E+00, + -9.8000E-01,-9.6600E-01,-9.8400E-01,-9.5200E-01,-9.2000E-01, 1 -9.1600E-01,-9.7400E-01,-9.3600E-01,-9.4200E-01,-8.8600E-01, + -8.6200E-01,-8.1600E-01,-6.5400E-01,-5.3400E-01,-4.1000E-01, 2 -2.6800E-01,-5.7000E-01,-1.9400E+00,-8.1000E-01,-4.5000E-01, + -5.8400E-01,-8.8200E-01,-1.2800E+00,-1.3600E+00,-1.2700E+00, 3 -1.1900E+00,-1.1300E+00,-1.1000E+00,-1.1400E+00,-1.8600E+00, + -2.6400E+00,-2.1300E+00,-1.9200E+00,-1.9400E+00,-2.3000E+00, 4 -2.5500E+00,-2.4600E+00,-2.3800E+00,-2.3300E+00,-2.2900E+00, + -2.3000E+00,-2.3000E+00,-2.2800E+00,-2.1500E+00,-2.3300E+00, 5 -1.5300E+00,-8.4000E-01,-8.5400E-01,-1.3100E+00,-1.4600E+00, + -1.4700E+00,-1.4800E+00,-1.4800E+00,-1.4900E+00,-1.5000E+00, 6 -1.5200E+00,-1.5300E+00,-1.5400E+00,-1.5600E+00,-1.5800E+00, + -1.6200E+00,-1.7100E+00,-1.6700E+00,-1.5000E+00,-1.4900E+00, 7 -1.4800E+00,-1.2900E+00,-1.0300E+00,-5.4600E-01/ DATA ( CL_ASY( 3, IVWC, 3 ), IVWC = 1, MXWVWC ) / O 8.8000E-01, 8.8100E-01, 8.8000E-01, 8.8000E-01, 8.8200E-01, + 8.8300E-01, 8.8300E-01, 8.8400E-01, 8.8400E-01, 8.8400E-01, 1 8.8500E-01, 8.8400E-01, 8.8500E-01, 8.8500E-01, 8.8700E-01, + 8.8800E-01, 8.9000E-01, 8.9800E-01, 9.1000E-01, 9.3500E-01, 2 1.0100E+00, 9.8600E-01, 9.6500E-01, 9.7600E-01, 1.0300E+00, + 1.0100E+00, 9.9100E-01, 9.8100E-01, 9.8000E-01, 9.8200E-01, 3 9.8400E-01, 9.8700E-01, 9.8800E-01, 9.8800E-01, 9.7800E-01, + 9.7600E-01, 9.7500E-01, 9.7200E-01, 9.6800E-01, 9.6700E-01, 4 9.6900E-01, 9.7100E-01, 9.7200E-01, 9.7300E-01, 9.7400E-01, + 9.7500E-01, 9.7600E-01, 9.7800E-01, 9.8100E-01, 9.7200E-01, 5 9.8800E-01, 1.0000E+00, 9.9400E-01, 9.8600E-01, 9.7500E-01, + 9.6100E-01, 9.5400E-01, 9.5000E-01, 9.4600E-01, 9.4300E-01, 6 9.3900E-01, 9.3600E-01, 9.3400E-01, 9.3300E-01, 9.3200E-01, + 9.3100E-01, 9.3000E-01, 9.3100E-01, 9.3200E-01, 9.1700E-01, 7 9.0000E-01, 9.0200E-01, 9.3200E-01, 1.1400E+00/ DATA ( CL_EXT( 1, IVWC, 1 ), IVWC = 1, MXWVWC ) / O 1.6300E+03, 1.6700E+03, 1.6700E+03, 1.6800E+03, 1.7000E+03, + 1.7200E+03, 1.7300E+03, 1.7500E+03, 1.7600E+03, 1.7900E+03, 1 1.8100E+03, 1.8400E+03, 1.8600E+03, 1.8700E+03, 1.9100E+03, + 1.9400E+03, 1.9600E+03, 1.9800E+03, 2.0100E+03, 2.1500E+03, 2 3.2600E+03, 4.5600E+03, 2.7100E+03, 5.2900E+03, 6.4000E+03, + 5.4200E+03, 4.3000E+03, 3.3200E+03, 2.6900E+03, 2.2900E+03, 3 2.0300E+03, 2.5200E+03,-4.3100E+04,-1.1000E+03,-2.6100E+02, + -1.8400E+02,-4.9300E+02,-3.1500E+04, 1.9500E+03, 2.4100E+03, 4 -1.1400E+03,-1.8700E+02,-4.3600E+01,-1.7600E+01,-7.1300E+00, + -1.9700E+00,-2.8900E-01,-1.2900E-02,-2.6000E-04,-7.6200E-02, 5 -9.9100E-06,-5.9100E+04,-3.8800E-05,-1.7900E+00,-8.3400E+01, + -4.9000E+02,-7.7800E+02,-7.4700E+02,-6.1800E+02,-4.5600E+02, 6 -2.8300E+02,-1.8200E+02,-1.2300E+02,-7.9800E+01,-3.5200E+01, + -9.8600E+00,-1.2200E-01,-7.2700E-06,-2.9300E+04,-3.9300E+03, 7 -4.0000E+02, 8.6300E+01, 1.7100E+00, 3.9300E-02/ DATA ( CL_EXT( 1, IVWC, 2 ), IVWC = 1, MXWVWC ) / O -1.0300E+00,-1.0400E+00,-1.0400E+00,-1.0500E+00,-1.0500E+00, + -1.0600E+00,-1.0600E+00,-1.0700E+00,-1.0600E+00,-1.0700E+00, 1 -1.0800E+00,-1.0900E+00,-1.0900E+00,-1.0900E+00,-1.1000E+00, + -1.1100E+00,-1.1100E+00,-1.1100E+00,-1.1100E+00,-1.1500E+00, 2 -1.4600E+00,-1.6100E+00,-1.2700E+00,-1.7300E+00,-1.7900E+00, + -1.6300E+00,-1.4200E+00,-1.1900E+00,-9.8400E-01,-7.8600E-01, 3 -5.4600E-01,-2.2600E-01, 8.0000E-03, 2.0400E-01, 4.5800E-01, + 5.0000E-01, 2.7000E-01, 8.0000E-03,-2.5000E-01,-1.8600E-01, 4 1.8600E-01, 5.3200E-01, 9.2400E-01, 1.2000E+00, 1.4900E+00, + 1.9100E+00, 2.5700E+00, 3.6500E+00, 5.0600E+00, 3.0000E+00, 5 6.0000E+00,-6.0000E+00, 5.2400E+00, 1.3600E+00, 4.1200E-01, + 1.6600E-01, 1.2800E-01, 1.3800E-01, 1.6400E-01, 2.0800E-01, 6 2.9000E-01, 3.7800E-01, 4.6600E-01, 5.7000E-01, 7.8600E-01, + 1.1600E+00, 2.6100E+00, 6.0000E+00,-5.1800E+00,-3.6900E+00, 7 -1.6000E+00, 2.9200E-01, 1.3600E+00, 2.3500E+00/ DATA ( CL_EXT( 1, IVWC, 3 ), IVWC = 1, MXWVWC ) / O 7.6600E-01, 3.8300E+00, 3.4900E+00, 4.2600E+00, 4.4900E+00, + 4.9900E+00, 5.1300E+00, 5.9500E+00, 5.0100E+00, 5.9800E+00, 1 6.8500E+00, 8.8100E+00, 8.6100E+00, 8.4100E+00, 7.5100E+00, + 1.0100E+01, 9.2900E+00, 7.6100E+00, 8.8000E+00, 1.4200E+01, 2 5.4200E+01, 5.7400E+01, 2.3500E+01, 7.3400E+01, 7.0300E+01, + 4.7800E+01, 1.5200E+01,-3.3100E+01,-9.6600E+01,-1.8900E+02, 3 -3.8800E+02,-1.3000E+03, 4.4100E+04, 1.9600E+03, 9.5500E+02, + 7.8300E+02, 1.1100E+03, 3.2300E+04,-9.0200E+02,-1.3800E+03, 4 1.9500E+03, 8.4500E+02, 5.8200E+02, 4.9900E+02, 4.4300E+02, + 3.8700E+02, 3.3500E+02, 2.8400E+02, 2.4800E+02, 3.0200E+02, 5 1.9500E+02, 1.5500E+02, 1.4000E+02, 1.6600E+02, 3.5100E+02, + 8.6900E+02, 1.2000E+03, 1.1900E+03, 1.0700E+03, 9.0700E+02, 6 7.2800E+02, 6.1500E+02, 5.4100E+02, 4.8100E+02, 4.0200E+02, + 3.3000E+02, 2.3700E+02, 1.7600E+02, 1.4400E+02, 1.3500E+02, 7 1.3900E+02,-6.7600E+01, 2.8700E+01, 1.9000E+01/ DATA ( CL_EXT( 2, IVWC, 1 ), IVWC = 1, MXWVWC ) / O 1.6300E+03, 1.6100E+03, 1.6200E+03, 1.6400E+03, 1.6400E+03, + 1.6500E+03, 1.6600E+03, 1.6700E+03, 1.6800E+03, 1.6900E+03, 1 1.7000E+03, 1.7100E+03, 1.7300E+03, 1.7400E+03, 1.7700E+03, + 1.7800E+03, 1.8000E+03, 1.8300E+03, 1.8700E+03, 1.9100E+03, 2 1.9900E+03, 2.0500E+03, 2.0200E+03, 2.1700E+03, 2.2400E+03, + 2.2600E+03, 2.2800E+03, 2.2800E+03, 2.2800E+03, 2.2800E+03, 3 2.2800E+03, 2.3000E+03, 2.3400E+03, 2.4100E+03, 2.7600E+03, + 3.1200E+03, 2.9200E+03, 2.7400E+03, 2.6100E+03, 2.6200E+03, 4 2.7600E+03, 3.0300E+03, 3.5600E+03, 4.0600E+03, 4.7400E+03, + 5.9800E+03, 8.0000E+03, 9.6300E+03, 8.5300E+03, 7.5200E+03, 5 2.3700E+03, 8.1700E+02, 7.9400E+02, 5.3800E+02, 7.1100E+02, + 1.0700E+03, 1.2800E+03, 1.4000E+03, 1.5000E+03, 1.5900E+03, 6 1.7300E+03, 1.8200E+03, 1.8900E+03, 1.9500E+03, 2.0200E+03, + 2.0300E+03, 1.6900E+03, 9.3800E+02, 1.1900E+03,-7.3800E+02, 7 -9.4400E+01,-4.0700E-01,-1.9000E-07,-4.4900E+03/ DATA ( CL_EXT( 2, IVWC, 2 ), IVWC = 1, MXWVWC ) / O -1.0300E+00,-1.0200E+00,-1.0200E+00,-1.0300E+00,-1.0200E+00, + -1.0300E+00,-1.0300E+00,-1.0300E+00,-1.0300E+00,-1.0300E+00, 1 -1.0400E+00,-1.0400E+00,-1.0400E+00,-1.0400E+00,-1.0500E+00, + -1.0500E+00,-1.0500E+00,-1.0600E+00,-1.0600E+00,-1.0700E+00, 2 -1.0800E+00,-1.0900E+00,-1.0800E+00,-1.1000E+00,-1.1100E+00, + -1.1200E+00,-1.1200E+00,-1.1100E+00,-1.1100E+00,-1.1100E+00, 3 -1.1100E+00,-1.1100E+00,-1.1200E+00,-1.1300E+00,-1.1900E+00, + -1.2400E+00,-1.2200E+00,-1.1900E+00,-1.1600E+00,-1.1600E+00, 4 -1.1800E+00,-1.2200E+00,-1.2900E+00,-1.3400E+00,-1.4000E+00, + -1.4900E+00,-1.6000E+00,-1.6600E+00,-1.5900E+00,-1.5500E+00, 5 -1.0200E+00,-4.2400E-01,-1.4800E-01,-2.8800E-01,-6.0600E-01, + -7.9400E-01,-8.6200E-01,-8.9400E-01,-9.1800E-01,-9.3800E-01, 6 -9.6600E-01,-9.8200E-01,-9.9400E-01,-1.0000E+00,-1.0100E+00, + -1.0000E+00,-8.9200E-01,-5.4400E-01,-9.2000E-02, 8.0000E-02, 7 3.0600E-01, 1.4800E+00, 5.4100E+00,-1.8400E+00/ DATA ( CL_EXT( 2, IVWC, 3 ), IVWC = 1, MXWVWC ) / O 9.9000E-01, 5.4400E-01, 6.3400E-01, 8.3300E-01, 6.4400E-01, + 7.2300E-01, 8.1300E-01, 8.7300E-01, 9.2800E-01, 9.8900E-01, 1 1.0400E+00, 1.0100E+00, 1.1600E+00, 1.1900E+00, 1.4600E+00, + 1.3200E+00, 1.5000E+00, 1.6300E+00, 1.9300E+00, 1.9600E+00, 2 2.5400E+00, 2.6600E+00, 2.2400E+00, 3.0100E+00, 3.3200E+00, + 3.2900E+00, 3.1600E+00, 2.9100E+00, 2.6600E+00, 2.4200E+00, 3 2.1900E+00, 2.2500E+00, 2.6000E+00, 3.4700E+00, 6.8200E+00, + 9.5100E+00, 8.2400E+00, 6.8600E+00, 5.4900E+00, 5.3600E+00, 4 6.3400E+00, 8.3500E+00, 1.1600E+01, 1.4000E+01, 1.6500E+01, + 1.9600E+01, 2.2500E+01, 2.2600E+01, 1.8300E+01, 1.9100E+01, 5 -1.6900E+01,-1.3500E+02,-4.2300E+02,-1.4800E+02,-3.7200E+01, + -1.7300E+01,-1.2700E+01,-1.0800E+01,-9.5800E+00,-8.6100E+00, 6 -7.2600E+00,-6.6700E+00,-6.1800E+00,-6.0700E+00,-6.1400E+00, + -7.6300E+00,-2.0200E+01,-8.4400E+01,-8.0800E+02, 1.0300E+03, 7 3.3400E+02, 1.3200E+02, 8.8900E+01, 7.1200E+01/ DATA ( CL_EXT( 3, IVWC, 1 ), IVWC = 1, MXWVWC ) / O 9.4000E+02, 9.4100E+02, 9.4200E+02, 9.4800E+02, 9.5400E+02, + 9.5500E+02, 9.6200E+02, 9.6300E+02, 9.7000E+02, 9.7600E+02, 1 9.7800E+02, 9.8400E+02, 9.9100E+02, 9.9900E+02, 1.0100E+03, + 1.0100E+03, 1.0300E+03, 1.0400E+03, 1.0500E+03, 1.0700E+03, 2 1.0900E+03, 1.1200E+03, 1.1200E+03, 1.1700E+03, 1.2000E+03, + 1.2200E+03, 1.2300E+03, 1.2400E+03, 1.2600E+03, 1.2700E+03, 3 1.2800E+03, 1.3000E+03, 1.3100E+03, 1.3100E+03, 1.3200E+03, + 1.3000E+03, 1.2700E+03, 1.2800E+03, 1.3000E+03, 1.3200E+03, 4 1.3500E+03, 1.3700E+03, 1.3900E+03, 1.4000E+03, 1.4100E+03, + 1.4200E+03, 1.4400E+03, 1.4600E+03, 1.5000E+03, 1.5200E+03, 5 1.9600E+03, 2.4500E+03, 1.6800E+03, 9.7700E+02, 8.9200E+02, + 1.0300E+03, 1.1300E+03, 1.1900E+03, 1.2400E+03, 1.2800E+03, 6 1.3500E+03, 1.4000E+03, 1.4400E+03, 1.4700E+03, 1.5300E+03, + 1.6100E+03, 1.8100E+03, 2.1300E+03, 1.8600E+03, 1.5200E+03, 7 1.5400E+03, 1.3600E+03, 6.8500E+02,-2.2600E-01/ DATA ( CL_EXT( 3, IVWC, 2 ), IVWC = 1, MXWVWC ) / O -8.0600E-01,-8.0600E-01,-8.0600E-01,-8.0800E-01,-8.1000E-01, + -8.1000E-01,-8.1200E-01,-8.1200E-01,-8.1400E-01,-8.1600E-01, 1 -8.1600E-01,-8.1800E-01,-8.2000E-01,-8.2200E-01,-8.2400E-01, + -8.2600E-01,-8.3000E-01,-8.3200E-01,-8.3600E-01,-8.4000E-01, 2 -8.4600E-01,-8.5200E-01,-8.5200E-01,-8.6400E-01,-8.7000E-01, + -8.7400E-01,-8.7600E-01,-8.7800E-01,-8.8200E-01,-8.8400E-01, 3 -8.8800E-01,-8.9200E-01,-8.9400E-01,-8.9400E-01,-8.9600E-01, + -8.9200E-01,-8.8400E-01,-8.8600E-01,-8.9000E-01,-8.9400E-01, 4 -9.0000E-01,-9.0400E-01,-9.0800E-01,-9.1000E-01,-9.1200E-01, + -9.1400E-01,-9.1600E-01,-9.2000E-01,-9.2800E-01,-9.3000E-01, 5 -1.0200E+00,-1.0900E+00,-9.6600E-01,-7.8800E-01,-7.6200E-01, + -8.0800E-01,-8.3600E-01,-8.5000E-01,-8.6200E-01,-8.7200E-01, 6 -8.8600E-01,-8.9600E-01,-9.0400E-01,-9.1000E-01,-9.2000E-01, + -9.3400E-01,-9.6600E-01,-1.0100E+00,-9.5200E-01,-8.7200E-01, 7 -8.6200E-01,-7.9000E-01,-4.6800E-01, 1.2900E+00/ DATA ( CL_EXT( 3, IVWC, 3 ), IVWC = 1, MXWVWC ) / O -1.0100E+01,-1.0100E+01,-1.0200E+01,-1.0100E+01,-9.9900E+00, + -1.0000E+01,-9.9500E+00,-9.9800E+00,-9.9100E+00,-9.8400E+00, 1 -9.8900E+00,-9.7900E+00,-9.7400E+00,-9.6900E+00,-9.6500E+00, + -9.6100E+00,-9.4400E+00,-9.4000E+00,-9.3100E+00,-9.2200E+00, 2 -9.0800E+00,-8.9400E+00,-8.9900E+00,-8.6700E+00,-8.5100E+00, + -8.3800E+00,-8.3500E+00,-8.3200E+00,-8.1900E+00,-8.1600E+00, 3 -8.0300E+00,-7.9000E+00,-7.8600E+00,-7.9000E+00,-7.8200E+00, + -7.9400E+00,-8.2000E+00,-8.1400E+00,-8.0400E+00,-7.9200E+00, 4 -7.7600E+00,-7.6600E+00,-7.5600E+00,-7.5200E+00,-7.4800E+00, + -7.4700E+00,-7.4800E+00,-7.4200E+00,-7.1500E+00,-7.1300E+00, 5 -3.7300E+00,-1.5700E+00,-5.8400E+00,-1.2800E+01,-1.3500E+01, + -1.1500E+01,-1.0500E+01,-1.0100E+01,-9.6600E+00,-9.3700E+00, 6 -8.9700E+00,-8.6700E+00,-8.4200E+00,-8.2800E+00,-8.0100E+00, + -7.5800E+00,-6.7100E+00,-5.7200E+00,-8.6800E+00,-1.3000E+01, 7 -1.4500E+01,-2.1700E+01,-6.7500E+01, 8.1000E+01/ DATA ( CL_SSA( 1, IVWC, 1 ), IVWC = 1, MXWVWC ) / O 1.4200E-06,-2.3300E-05,-2.0300E-05, 1.4300E-07, 2.5700E-08, + 2.1000E-08, 3.7200E-09, 1.8200E-08, 2.7000E-07, 5.4700E-07, 1 9.9500E-07, 5.9300E-07, 8.0300E-07, 7.4200E-06, 2.3600E-04, + 1.5900E-04, 3.1100E-04, 1.0100E-03, 1.3800E-03, 4.0000E-03, 2 1.2500E-02, 2.0000E+00,-1.2200E+00,-5.9400E-01, 1.6900E-01, + 1.4000E-01, 1.5000E-01, 1.4000E-01, 7.8900E-02, 3.8300E-02, 3 1.7700E-02, 6.9600E-03, 3.6800E-03, 2.2900E-03, 1.9200E-03, + 9.3200E-04, 1.3200E-04, 2.1300E-03, 3.8300E-02, 3.5600E-02, 4 7.6800E-03, 2.2800E-03, 6.5900E-04, 2.8000E-04, 1.1300E-04, + 2.6700E-05, 1.9600E-06, 1.9100E-08, 1.3500E+02, 2.6900E-08, 5 7.6700E+00, 1.7000E+00, 1.0700E+00, 9.8000E-01, 9.4300E-01, + 8.5700E-01, 8.3800E-01, 8.3600E-01, 8.4100E-01, 8.5300E-01, 6 8.8200E-01, 9.1800E-01, 9.5400E-01, 1.0000E+00, 1.1000E+00, + 1.2200E+00, 1.3900E+00, 1.3800E+00, 1.2700E+00, 1.9200E+00, 7 -1.0500E+01,-3.0300E-01,-3.9500E-02,-1.3700E-03/ DATA ( CL_SSA( 1, IVWC, 2 ), IVWC = 1, MXWVWC ) / O 7.6600E-01,-2.3200E-01,-1.5200E+00, 9.5200E-01, 1.2100E+00, + 1.1300E+00, 1.6000E+00, 1.2100E+00, 7.3400E-01, 8.1400E-01, 1 8.5600E-01, 1.2600E+00, 1.4400E+00, 1.0500E+00, 4.1000E-01, + 7.8600E-01, 8.2000E-01, 7.1600E-01, 7.9000E-01, 6.8800E-01, 2 6.0200E-01, 4.6000E-02,-1.9000E+00,-5.2400E-01, 2.8400E-01, + 3.6000E-01, 4.0400E-01, 4.7000E-01, 6.2800E-01, 8.2800E-01, 3 1.0600E+00, 1.3600E+00, 1.5700E+00, 1.7300E+00, 1.8700E+00, + 2.0700E+00, 2.6100E+00, 1.6200E+00, 7.7400E-01, 8.6000E-01, 4 1.4100E+00, 1.8300E+00, 2.2600E+00, 2.5600E+00, 2.8700E+00, + 3.3800E+00, 4.3300E+00, 6.0000E+00,-6.0000E+00, 5.9300E+00, 5 -3.0800E+00,-1.5000E+00,-8.1000E-01,-4.3600E-01,-3.9000E-01, + -5.2200E-01,-6.1800E-01,-6.7600E-01,-7.3200E-01,-7.8600E-01, 6 -8.7200E-01,-9.4600E-01,-1.0100E+00,-1.0700E+00,-1.1700E+00, + -1.2500E+00,-1.2300E+00,-9.6800E-01,-5.2400E-01,-1.9000E-01, 7 2.4000E-02, 4.1200E-01, 9.7000E-01, 2.0300E+00/ DATA ( CL_SSA( 1, IVWC, 3 ), IVWC = 1, MXWVWC ) / O -1.0200E-06, 1.9500E-05, 4.0100E-06,-2.3100E-08, 1.0100E-07, + 5.5900E-08, 1.0700E-07, 6.8900E-08,-2.4300E-07,-1.4100E-07, 1 -4.3700E-07, 1.6900E-06, 5.0400E-06, 5.0800E-06,-2.6900E-04, + -1.3300E-04,-2.1700E-04,-9.8400E-04,-1.2900E-03,-4.4800E-03, 2 -1.6200E-02,-2.0600E+00, 4.9300E-01, 4.2200E-01,-2.1700E-01, + -1.9000E-01,-2.0700E-01,-1.9300E-01,-1.0800E-01,-4.4200E-02, 3 -3.4600E-03, 2.6100E-02, 3.9100E-02, 4.9600E-02, 1.1600E-01, + 2.7000E-01, 3.9600E-01, 3.7200E-01, 2.3100E-01, 1.7400E-01, 4 1.6300E-01, 1.5900E-01, 1.6700E-01, 1.6900E-01, 1.7200E-01, + 1.8200E-01, 1.9600E-01, 2.2100E-01, 2.4700E-01, 2.3800E-01, 5 2.9600E-01, 3.2300E-01, 3.2700E-01, 2.3100E-01, 2.3200E-01, + 3.4200E-01, 3.8800E-01, 4.0800E-01, 4.2500E-01, 4.3800E-01, 6 4.5500E-01, 4.6600E-01, 4.7300E-01, 4.8000E-01, 4.8600E-01, + 4.8800E-01, 4.7100E-01, 4.1300E-01, 2.3500E-01,-5.6700E-01, 7 1.1800E+01, 1.4900E+00, 1.1200E+00, 1.0100E+00/ DATA ( CL_SSA( 2, IVWC, 1 ), IVWC = 1, MXWVWC ) / O 9.0000E-07, 5.0800E-07, 3.6800E-07, 3.9400E-07, 1.6700E-07, + 2.7500E-07, 2.7700E-08, 3.2300E-08, 1.1900E-07, 5.9100E-07, 1 1.8800E-07, 4.5200E-06, 3.7900E-05, 1.5800E-05, 2.8200E-05, + 8.5400E-05, 2.2700E-04, 4.6200E-04, 7.2500E-04, 2.1000E-03, 2 5.8100E-03, 5.9200E-01,-9.0000E-05,-2.7600E+00, 6.5700E-02, + 1.4400E-01, 1.2900E+00,-1.2700E+00,-1.1900E+00,-1.2700E+00, 3 -1.3900E+00,-1.4800E+00,-1.5000E+00,-1.3500E+00,-3.3400E+00, + -1.5900E+03,-6.3100E+04,-1.0500E-11,-6.0600E-10,-6.2700E+04, 4 -9.3900E+01,-2.3600E+01,-1.9500E+01,-1.7900E+01,-1.7800E+01, + -2.0000E+01,-1.9700E+01,-1.4000E+01,-6.6800E+00,-1.5500E+01, 5 -1.6800E+00, 8.0000E-03, 3.0100E-08, 4.7300E+01, 1.9600E+00, + 1.0900E+00, 8.4700E-01, 7.2500E-01, 6.3000E-01, 5.5500E-01, 6 4.7000E-01, 4.3400E-01, 4.4800E-01, 6.3400E-01,-2.9700E-01, + -2.3300E-02,-8.0400E-04, 6.0000E+04, 1.1800E+02, 9.2300E+00, 7 9.9200E+00, 4.1200E+01, 3.9100E+01, 1.0600E+01/ DATA ( CL_SSA( 2, IVWC, 2 ), IVWC = 1, MXWVWC ) / O 9.4200E-01, 9.8800E-01, 9.2200E-01, 7.0600E-01, 7.1200E-01, + 5.1600E-01, 9.7400E-01, 1.0100E+00, 9.7600E-01, 8.4600E-01, 1 1.3200E+00, 6.7200E-01, 3.8200E-01, 8.3000E-01, 1.0000E+00, + 9.6200E-01, 9.1400E-01, 9.4400E-01, 9.5800E-01, 8.6600E-01, 2 8.0800E-01, 1.0600E-01, 1.4000E+00,-4.0000E-02, 4.6600E-01, + 3.4000E-01, 8.8000E-02,-2.2400E-01,-2.9400E-01,-2.3400E-01, 3 -1.9200E-01,-1.7400E-01,-1.7400E-01,-2.3000E-01,-1.1400E+00, + -3.9900E+00,-6.0000E+00, 6.0000E+00, 4.8700E+00,-6.0000E+00, 4 -2.8400E+00,-2.1200E+00,-1.9600E+00,-1.8700E+00,-1.8300E+00, + -1.8400E+00,-1.7900E+00,-1.5900E+00,-1.2300E+00,-1.6900E+00, 5 -2.1400E-01, 9.3600E-01, 4.0400E+00,-2.6700E+00,-1.1600E+00, + -8.9000E-01,-7.8200E-01,-7.0800E-01,-6.3400E-01,-5.6000E-01, 6 -4.3400E-01,-3.2400E-01,-2.2400E-01,-1.0600E-01, 1.0800E-01, + 4.3400E-01, 1.0500E+00,-6.0000E+00,-3.0200E+00,-1.7500E+00, 7 -1.7400E+00,-2.2800E+00,-2.1200E+00,-1.3100E+00/ DATA ( CL_SSA( 2, IVWC, 3 ), IVWC = 1, MXWVWC ) / O -9.6000E-07, 5.9700E-07,-4.0100E-08,-7.9300E-07,-3.6500E-07, + -6.0400E-07,-1.0700E-08, 4.6200E-08, 6.7600E-08,-9.3400E-07, 1 3.0800E-06,-8.0300E-06,-6.2200E-05,-1.6400E-05, 4.6500E-05, + 5.5000E-05,-3.5700E-05, 1.5700E-04, 7.0500E-04,-4.4300E-04, 2 -3.6900E-03,-5.8900E-01, 4.8500E-01, 2.7600E+00,-8.4700E-02, + -1.8600E-01,-1.4100E+00, 9.8100E-01, 8.3300E-01, 9.6000E-01, 3 1.1000E+00, 1.1900E+00, 1.1900E+00, 9.8300E-01, 5.0900E-01, + 4.9300E-01, 5.0200E-01, 5.0200E-01, 5.0000E-01, 4.9300E-01, 4 4.8700E-01, 4.9000E-01, 4.9100E-01, 4.9200E-01, 4.9300E-01, + 4.9500E-01, 5.0100E-01, 5.2300E-01, 5.6600E-01, 5.1900E-01, 5 1.2800E+00, 2.7400E-01, 4.5700E-01, 5.0700E-01, 4.8200E-01, + 4.5800E-01, 4.4700E-01, 4.3900E-01, 4.3100E-01, 4.2100E-01, 6 3.9500E-01, 3.5900E-01, 2.9400E-01, 6.1900E-02, 9.3500E-01, + 6.1000E-01, 5.4400E-01, 5.2100E-01, 5.2300E-01, 5.1500E-01, 7 5.1500E-01, 5.1800E-01, 5.0200E-01, 4.1200E-01/ DATA ( CL_SSA( 3, IVWC, 1 ), IVWC = 1, MXWVWC ) / O 3.1400E-06, 2.1800E-06, 7.5000E-07, 3.4200E-07, 1.3500E-07, + 6.8500E-08, 2.2500E-07, 9.1200E-08, 3.3200E-07, 8.3400E-07, 1 2.0300E-05, 6.1600E-06, 6.0900E-06, 3.0800E-05, 1.5000E-04, + 3.5800E-04, 7.0300E-04, 1.9700E-03, 3.6500E-03, 1.3200E-02, 2 4.8100E-02,-1.1300E+00, 2.1700E-01,-1.1700E+00,-1.6800E+00, + -1.5500E+00,-2.8400E+00,-8.6500E+00,-1.1500E+01,-8.5000E+00, 3 -6.4900E+00,-5.0900E+00,-4.4100E+00,-4.5000E+00,-4.1900E+01, + -1.1500E-04, 3.1900E-01, 4.3400E-01, 4.0300E-01, 1.8200E-01, 4 -1.9300E-12,-6.0100E+06,-2.5400E+04,-2.7700E+03,-9.0600E+02, + -5.9400E+02,-5.2300E+02,-1.4500E+03,-5.1300E+03,-4.7000E+04, 5 -1.7900E+05,-6.3100E+04,-1.8200E+04,-3.5200E-04, 8.6800E-01, + 1.0500E+00, 9.6900E-01, 9.2600E-01, 8.8300E-01, 8.4300E-01, 6 7.9700E-01, 7.5800E-01, 7.2500E-01, 6.9500E-01, 6.3500E-01, + 5.4100E-01, 5.3300E-01,-1.4200E-03,-2.6200E-04,-9.9400E-02, 7 -1.2600E-01,-4.5600E-04, 1.1600E-01, 1.6200E+07/ DATA ( CL_SSA( 3, IVWC, 2 ), IVWC = 1, MXWVWC ) / O 6.8800E-01, 6.9000E-01, 7.8200E-01, 7.6400E-01, 7.7800E-01, + 8.2200E-01, 5.4800E-01, 7.9400E-01, 7.6200E-01, 7.7800E-01, 1 3.3200E-01, 6.5200E-01, 7.8800E-01, 7.1200E-01, 6.6000E-01, + 6.7000E-01, 6.9000E-01, 6.5000E-01, 6.2800E-01, 5.0600E-01, 2 4.0800E-01,-1.3400E-01,-7.4800E-01,-5.4000E-01,-1.6400E-01, + -3.5800E-01,-7.6600E-01,-1.2900E+00,-1.4100E+00,-1.2800E+00, 3 -1.1600E+00,-1.0400E+00,-9.7600E-01,-9.8800E-01,-2.0200E+00, + 1.1500E+00,-6.2000E-01,-7.4400E-01,-7.2200E-01,-3.4000E-01, 4 5.2000E+00,-6.0000E+00,-4.2100E+00,-3.4700E+00,-3.0900E+00, + -2.9300E+00,-2.8700E+00,-3.1800E+00,-3.5500E+00,-4.3300E+00, 5 -4.5500E+00,-4.1900E+00,-3.9900E+00, 9.3800E-01,-8.1000E-01, + -8.4800E-01,-8.1400E-01,-7.9200E-01,-7.6800E-01,-7.4400E-01, 6 -7.1200E-01,-6.8400E-01,-6.6000E-01,-6.3600E-01,-5.8600E-01, + -4.9400E-01,-1.2800E-01, 8.8800E-01, 1.2200E+00, 2.0400E-01, 7 1.8600E-01, 1.0900E+00,-3.1600E-01,-6.0000E+00/ DATA ( CL_SSA( 3, IVWC, 3 ), IVWC = 1, MXWVWC ) / O -1.1600E-05,-7.6400E-06,-2.3600E-06,-1.0700E-06,-3.9400E-07, + -1.4400E-07,-7.0500E-07,-3.1200E-07,-1.0900E-06,-2.2500E-06, 1 -4.3200E-05,-2.0400E-05,-1.2300E-05,-9.8200E-05,-5.2000E-04, + -1.2100E-03,-2.3400E-03,-6.4500E-03,-1.1500E-02,-3.4400E-02, 2 -1.0600E-01, 9.7500E-01, 4.5700E-01, 5.3700E-01, 1.2000E+00, + 7.3000E-01, 5.4200E-01, 4.9300E-01, 4.9000E-01, 4.9600E-01, 3 5.0300E-01, 5.1300E-01, 5.2000E-01, 5.1900E-01, 4.8200E-01, + 4.9700E-01, 4.5900E-01, 4.6100E-01, 4.5700E-01, 4.3300E-01, 4 4.8200E-01, 4.8000E-01, 4.8000E-01, 4.8100E-01, 4.8200E-01, + 4.8300E-01, 4.8500E-01, 4.8700E-01, 4.8900E-01, 4.8500E-01, 5 4.9600E-01, 5.0300E-01, 5.0500E-01, 5.2100E-01, 4.6400E-01, + 4.5200E-01, 4.4500E-01, 4.4200E-01, 4.3900E-01, 4.3600E-01, 6 4.3200E-01, 4.2900E-01, 4.2700E-01, 4.2400E-01, 4.1900E-01, + 4.0800E-01, 1.7100E-01, 5.5100E-01, 5.4400E-01, 7.3800E-01, 7 7.7800E-01, 5.5400E-01, 4.9100E-01, 5.1300E-01/ DATA RADBIN_LOWER / & 2.5000E+00, 1.2500E+01, 3.0000E+01/ DATA RADBIN_UPPER / & 1.2500E+01, 3.0000E+01, 6.0000E+01/ INTERFACE SUBROUTINE WVBIN_AVERAGE(WL_CS_IN, CS_IN, NWL_CS_IN, & WL_QY_IN, QY_IN, NWL_QY_IN, & SPECTRA_TYPE, & WLL_AVE, WLU_AVE, NWL_AVE, & CS_AVE, QY_AVE ) CHARACTER(1), INTENT( IN ) :: SPECTRA_TYPE ! spectra type INTEGER, INTENT( IN ) :: NWL_AVE ! number of intervals average INTEGER, INTENT( IN ) :: NWL_CS_IN ! number of intervals CS_IN INTEGER, INTENT( IN ) :: NWL_QY_IN ! number of intervals CS_IN REAL, INTENT( IN ) :: WL_CS_IN( : ) ! wl for CS_IN REAL, INTENT( IN ) :: WL_QY_IN( : ) ! wl for QY_IN REAL, INTENT( IN ) :: CS_IN( : ) ! cross-section as f(WLIN) REAL, INTENT( IN ) :: QY_IN( : ) ! quantum yield as f(WLIN) REAL, INTENT( INOUT ) :: WLL_AVE( : ) ! lower limit on wl effective interval REAL, INTENT( INOUT ) :: WLU_AVE( : ) ! upper limit on wl effective interval REAL, INTENT( INOUT ) :: CS_AVE( : ) ! cross-section as f(WL_AVE) REAL, INTENT( INOUT ) :: QY_AVE( : ) ! quantum yield as f(WL_AVE) END SUBROUTINE WVBIN_AVERAGE SUBROUTINE WVBIN_AVERAGE_B(WL_CS_IN, CS_IN, NWL_CS_IN, & WL_QY_IN, QY_IN, NWL_QY_IN, & SPECTRA_TYPE, & WLL_AVE, WLU_AVE, NWL_AVE, & CS_AVE, QY_AVE ) CHARACTER(1), INTENT( IN ) :: SPECTRA_TYPE ! spectra type INTEGER, INTENT( IN ) :: NWL_AVE ! number of intervals average INTEGER, INTENT( IN ) :: NWL_CS_IN ! number of intervals CS_IN INTEGER, INTENT( IN ) :: NWL_QY_IN ! number of intervals CS_IN REAL, INTENT( IN ) :: WL_CS_IN( : ) ! wl for CS_IN REAL, INTENT( IN ) :: WL_QY_IN( : ) ! wl for QY_IN REAL, INTENT( IN ) :: CS_IN( : ) ! cross-section as f(WLIN) REAL, INTENT( IN ) :: QY_IN( : ) ! quantum yield as f(WLIN) REAL, INTENT( INOUT ) :: WLL_AVE( : ) ! lower limit on wl effective interval REAL, INTENT( INOUT ) :: WLU_AVE( : ) ! upper limit on wl effective interval REAL, INTENT( INOUT ) :: CS_AVE( : ) ! cross-section as f(WL_AVE) REAL, INTENT( INOUT ) :: QY_AVE( : ) ! quantum yield as f(WL_AVE) END SUBROUTINE WVBIN_AVERAGE_B END INTERFACE IF ( FIRST ) THEN FIRST = .FALSE. C Read in water cloud optical parameters. ALLOCATE( WAVE( MXWLIN ), XDUMB( MXWLIN ), ZDUMB( MXWLIN ), & YDUMB( MXWLIN) ) ALLOCATE( WAVE_OUTC( MXWLIN ), WAVE_OUTL( MXWLIN ), WAVE_OUTU( MXWLIN )) ALLOCATE( NEW_CL_ASY( MXSIZ, MXWLIN, MXCOF ), NEW_CL_EXT( MXSIZ, MXWLIN, MXCOF), & NEW_CL_SSA( MXSIZ, MXWLIN, MXCOF )) XDUMB = 1.0 NDUMB = MXWVWC WAVE = 0.0 WAVE( 1:NDUMB ) = WCWVN( 1:NDUMB ) NEW_CL_EXT = 0.0 NEW_CL_ASY = 0.0 NEW_CL_SSA = 0.0 COEFFS = 0.0 ! intepolate Fu et al. coefficients from WCCWVN to WAVE WRITE(6,99001)'WVL','ISIZ','ICOF','NEW_CL_EXT', 'NEW_CL_ASY', & 'NEW_CL_SSA' 99001 FORMAT(A12,1X,2(A4,1X),6(A12,1X)) DO I = 1, MXSIZ DO J = 1, MXCOF COEFFS( 1:NDUMB ) = CL_EXT( I, 1:NDUMB, J ) CALL WVBIN_AVERAGE(WAVE, COEFFS, NDUMB, WAVE, XDUMB, NDUMB, 'P', & WAVE_OUTL, WAVE_OUTU, MXWLIN, YDUMB, ZDUMB ) NEW_CL_EXT( I, 1:NJO_NEW, J ) = YDUMB( 1:NJO_NEW ) COEFFS( 1:NDUMB ) = CL_ASY( I, 1:NDUMB, J ) CALL WVBIN_AVERAGE(WAVE, COEFFS, NDUMB, WAVE, XDUMB, NDUMB, 'P', & WAVE_OUTL, WAVE_OUTU, MXWLIN, YDUMB, ZDUMB ) NEW_CL_ASY( I, 1:NJO_NEW, J ) = YDUMB( 1:NJO_NEW ) COEFFS( 1:NDUMB ) = CL_SSA( I, 1:NDUMB, J ) CALL WVBIN_AVERAGE(WAVE, COEFFS, NDUMB, WAVE, XDUMB, NDUMB, 'P', & WAVE_OUTL, WAVE_OUTU, MXWLIN, YDUMB, ZDUMB ) NEW_CL_SSA( I, 1:NJO_NEW, J ) = YDUMB( 1:NJO_NEW ) DO IVWC = 1, N_INLINE_BAND ! 248, 298, 25 K = NJO_NEW - N_INLINE_BAND + IVWC WRITE(6,99002)EFFECTIVE_LAMBDA(K), I, J, & NEW_CL_EXT( I, K, J ), NEW_CL_ASY( I, K, J ), NEW_CL_SSA( I, K, J ) 99002 FORMAT(es12.4,1X,2(I4,1X),6(es12.4,1X)) END DO END DO END DO DO ISIZE = 1, MXSIZ IF( CLOUD_RADIUS_LIQUID .GE. RADBIN_LOWER(ISIZE) .AND. & CLOUD_RADIUS_LIQUID .LE. RADBIN_UPPER(ISIZE) )THEN EXIT ENDIF ENDDO DO I = 1, N_INLINE_BAND ! 248, 298, 25 K = NJO_NEW - N_INLINE_BAND + I C Extinction coefficient CLOUD_LIQ_EXT( K ) = new_cl_ext(ISIZE,K,1) & * CLOUD_RADIUS_LIQUID ** new_cl_ext(ISIZE,K,2) & + new_cl_ext(ISIZE,K,3) C Asymmetry factor CLOUD_LIQ_ASF( K ) = new_cl_asy(ISIZE,K,1) & * CLOUD_RADIUS_LIQUID ** new_cl_asy(ISIZE,K,2) & + new_cl_asy(ISIZE,K,3) C Single scattering albedo CLOUD_LIQ_SSA( K ) = new_cl_ssa(ISIZE,K,1) & * CLOUD_RADIUS_LIQUID ** new_cl_ssa(ISIZE,K,2) & + new_cl_ssa(ISIZE,K,3) CLOUD_LIQ_SSA( K ) = MAX(MIN(1.0, CLOUD_LIQ_SSA( K )), 0.0) CLOUD_LIQ_EXT( K ) = MAX(CLOUD_LIQ_EXT( K ), 0.0) WRITE(6,'(4(es12.4,1X))')EFFECTIVE_LAMBDA(K),CLOUD_LIQ_EXT( K ),CLOUD_LIQ_ASF(K), & CLOUD_LIQ_SSA(K) END DO DO K = NJO_NEW, 1, -1 ! K = NJO_NEW - N_INLINE_BAND + I IF ( EFFECTIVE_LAMBDA(K) .LT. WCWVN( 1 ) )THEN ! IF ( CLOUD_LIQ_SSA( K ) .LE. 1.0E-6 )THEN I_CUTTOFF = K + 1 ! MIN( K + 1, NJO_NEW ) EXIT END IF END DO ! IF( WRITE_DATA )OPEN(UNIT=DATA_UNIT, FILE='HU_STAMNES_cloud_optics.dat', ! & STATUS='UNKNOWN',ERR=98) ! IF( READ_DATA )THEN ! ! filenm = 'water_clouds/wc.asy' ! fullname = filenm ! OPEN(UNIT=iunit,FILE=fullname,FORM='FORMATTED',STATUS='OLD',ERR=99) ! DO 100 isize = 1, mxsiz ! READ(iunit,*) ! READ(iunit,*) ! READ(iunit,*) radbin_lower(isize), radbin_upper(isize) ! READ(iunit,*) ! DO 101 ivwc = mxwvwc, 1, -1 ! 1, mxwvwc ! READ(iunit,*) wcwvn(ivwc), ! $ (cl_asy(isize, ivwc,icof),icof=1,mxcof) ! 101 CONTINUE ! IF( WRITE_DATA )THEN !write information as FORTRAN data statements ! IF( ISIZE .EQ. 1)THEN ! WRITE(DATA_UNIT,3406) !3406 FORMAT( /6X, 'DATA WCWVN /' ) ! DO IVWC = 1, MXWVWC ! WREXT_COEFFS( IVWC ) = DBLE(1000.0*WCWVN( IVWC )) ! ENDDO ! CALL WRBF12D ( DATA_UNIT, 5, MXWVWC, WREXT_COEFFS, 'E' ) ! ENDIF !3407 FORMAT( /6X, 'DATA ( CL_ASY( ', I3, ', IVWC, ', I3, ' ), IVWC = 1, MXWVWC ) /' ) ! DO ICOF = 1, MXCOF! !1 WRITE( DATA_UNIT, 3407 )ISIZE,ICOF ! DO IVWC = 1, MXWVWC ! WREXT_COEFFS( IVWC ) = DBLE(CL_ASY( ISIZE, IVWC, ICOF )) ! ENDDO ! CALL WRBF12D ( DATA_UNIT, 5, MXWVWC, WREXT_COEFFS, 'E' ) ! ENDDO ! ENDIF ! 100 CONTINUE ! CLOSE(iunit) ! ENDIF ! IF( READ_DATA )THEN ! ! filenm = 'water_clouds/wc.ext' ! fullname = filenm ! OPEN(UNIT=iunit,FILE=fullname,FORM='FORMATTED',STATUS='OLD', ! $ ERR=99 ) ! DO 110 isize = 1, mxsiz ! READ(iunit,*) ! READ(iunit,*) ! READ(iunit,*) radbin_lower(isize), radbin_upper(isize) ! READ(iunit,*) ! DO 111 ivwc = mxwvwc, 1, -1 ! 1, mxwvwc ! READ(iunit,*) wcwvn(ivwc), ! $ (cl_ext(isize, ivwc,icof),icof=1,mxcof) ! 111 CONTINUE ! IF( WRITE_DATA )THEN !write information as FORTRAN data statements !3408 FORMAT( /6X, 'DATA ( CL_EXT( ', I3, ', IVWC, ', I3, ' ), IVWC = 1, MXWVWC ) /' ) ! DO ICOF = 1, MXCOF ! WRITE( DATA_UNIT, 3408 )ISIZE,ICOF ! DO IVWC = 1, MXWVWC ! WREXT_COEFFS( IVWC ) = DBLE(CL_EXT( ISIZE, IVWC, ICOF )) ! ENDDO ! CALL WRBF12D ( DATA_UNIT, 5, MXWVWC, WREXT_COEFFS, 'E' ) ! ENDDO ! ENDIF !110 CONTINUE ! CLOSE(iunit) ! ENDIF ! IF( READ_DATA )THEN ! ! filenm = 'water_clouds/wc.ssa' ! fullname = filenm ! OPEN(UNIT=iunit,FILE=fullname,FORM='FORMATTED',STATUS='OLD', ! $ ERR=99 ) ! DO 120 isize = 1, mxsiz ! READ(iunit,*) ! READ(iunit,*) ! READ(iunit,*) radbin_lower(isize), radbin_upper(isize) ! READ(iunit,*) ! DO 121 ivwc = mxwvwc, 1, -1 ! 1, mxwvwc ! READ(iunit,*) wcwvn(ivwc), ! $ (cl_ssa(isize, ivwc,icof),icof=1,mxcof) ! 121 CONTINUE ! IF( WRITE_DATA )THEN !write information as FORTRAN data statements !3409 FORMAT( /6X, 'DATA ( CL_SSA( ', I3, ', IVWC, ', I3, ' ), IVWC = 1, MXWVWC ) /' ) ! DO ICOF = 1, MXCOF ! WRITE( DATA_UNIT, 3409 )ISIZE,ICOF ! DO IVWC = 1, MXWVWC ! WREXT_COEFFS( IVWC ) = DBLE(CL_SSA( ISIZE, IVWC, ICOF )) ! ENDDO ! CALL WRBF12D ( DATA_UNIT, 5, MXWVWC, WREXT_COEFFS, 'E' ) ! ENDDO ! ENDIF ! 120 CONTINUE ! CLOSE(iunit) ! ! DO ivwc = 1, mxwvwc ! Change from microns to nm ! wcwvn(ivwc) = wcwvn(ivwc) * 1.0E+03 ! ENDDO ! ENDIF ! IF( WRITE_DATA )THEN ! WRITE(DATA_UNIT,3410) !3410 FORMAT( /6X, 'DATA RADBIN_LOWER /' ) ! DO ISIZE = 1, MXSIZ ! WREXT_COEFFS( ISIZE ) = DBLE(RADBIN_LOWER( ISIZE )) ! ENDDO ! CALL WRBF12D ( DATA_UNIT, 5, MXSIZ, WREXT_COEFFS, 'E' ) ! WRITE(DATA_UNIT,3410) !3411 FORMAT( /6X, 'DATA RADBIN_UPPER /' ) ! DO ISIZE = 1, MXSIZ ! WREXT_COEFFS( ISIZE ) = DBLE(RADBIN_UPPER( ISIZE )) ! ENDDO ! CALL WRBF12D ( DATA_UNIT, 5, MXSIZ, WREXT_COEFFS, 'E' ) ! CLOSE(DATA_UNIT) ! ENDIF ENDIF ! FIRST IF(CLOUD_RADIUS_LIQUID .LT. RADBIN_LOWER(1) - 0.01 .OR. & CLOUD_RADIUS_LIQUID .GT. RADBIN_UPPER(MXSIZ) + 0.01)THEN WRITE(*,*)'Error, in water cloud parameterization Hu and Stamnes' WRITE(*,*)'cloud droplet size = ', CLOUD_RADIUS_LIQUID WRITE(*,*)'and is greater than 2.5 um or larger than 60 um. ' STOP ENDIF LOOP_SIZE: DO ISIZE = 1, MXSIZ IF( CLOUD_RADIUS_LIQUID .GE. RADBIN_LOWER(ISIZE) .AND. & CLOUD_RADIUS_LIQUID .LE. RADBIN_UPPER(ISIZE) )THEN EXIT LOOP_SIZE ENDIF ENDDO LOOP_SIZE DO 210 ivwc = 1, mxwvwc C Extinction coefficient CLOUD_LIQ_EXT(IVWC) = cl_ext(ISIZE,ivwc,1) & * CLOUD_RADIUS_LIQUID ** cl_ext(ISIZE,ivwc,2) & + cl_ext(ISIZE,ivwc,3) C Asymmetry factor CLOUD_LIQ_ASF(IVWC) = cl_asy(ISIZE,ivwc,1) & * CLOUD_RADIUS_LIQUID ** cl_asy(ISIZE,ivwc,2) & + cl_asy(ISIZE,ivwc,3) C Single scattering Co-albedo CLOUD_LIQ_SSA(IVWC) = real( cl_ssa(ISIZE,ivwc,1), 8) & * real(CLOUD_RADIUS_LIQUID ** cl_ssa(ISIZE,ivwc,2), 8) & + real(cl_ssa(ISIZE,ivwc,3), 8) ! WRITE(6,'(4(es12.4,1X))')wcwvn(ivwc),CLOUD_LIQ_EXT(ivwc),CLOUD_LIQ_ASF(ivwc),CLOUD_LIQ_SSA(ivwc) 210 CONTINUE ! convert CLOUD_LIQ_EXI units from (1/km)*(m**3/g) to (1/m)*(m**3/g) CLOUD_LIQ_EXT = 0.001 * CLOUD_LIQ_EXT XDUMB = 1.0 NDUMB = MXWVWC WAVE = 0.0 WAVE( 1:NDUMB ) = WCWVN( 1:NDUMB ) WC_EXT = 0.0 WC_ASF = 0.0 WC_SSA = 0.0 CALL WVBIN_AVERAGE(WAVE, CLOUD_LIQ_EXT, NDUMB, WAVE, XDUMB, NDUMB, 'P', & WAVE_OUTL, WAVE_OUTU, MXWLIN, YDUMB, ZDUMB ) WC_EXT( 1:NJO_NEW ) = YDUMB( 1:NJO_NEW ) CALL WVBIN_AVERAGE(WAVE, CLOUD_LIQ_ASF, NDUMB, WAVE, XDUMB, NDUMB, 'P', & WAVE_OUTL, WAVE_OUTU, MXWLIN, YDUMB, ZDUMB ) WC_ASF( 1:NJO_NEW ) = YDUMB( 1:NJO_NEW ) CALL WVBIN_AVERAGE(WAVE, CLOUD_LIQ_SSA, NDUMB, WAVE, XDUMB, NDUMB, 'P', & WAVE_OUTL, WAVE_OUTU, MXWLIN, YDUMB, XDUMB ) WC_SSA( 1:NJO_NEW ) = YDUMB( 1:NJO_NEW ) IF( I_CUTTOFF .GT. 0 )THEN WRITE(6,'(A, 4(es12.4,1X))')'LOWEST Values:',WAVE_OUTL(I_CUTTOFF),WC_EXT(I_CUTTOFF), & WC_ASF(I_CUTTOFF),WC_SSA(I_CUTTOFF) DO I = 1, I_CUTTOFF-1 wc_ext(I) = wc_ext(I_CUTTOFF) wc_asf(I) = wc_asf(I_CUTTOFF) wc_ssa(I) = wc_ssa(I_CUTTOFF) END DO END IF IF( I_CUTTOFF .GT. 0 )PRINT*,' CUTTOFF = ',I_CUTTOFF,' at LAMBDA = ',EFFECTIVE_LAMBDA(I_CUTTOFF) DO ivwc=1, NJO_NEW WRITE(6,'(A, 4(es12.4,1X))')'Result:',WAVE_OUTL(ivwc),WC_EXT(ivwc), & WC_ASF(ivwc),WC_SSA(ivwc) END DO ! pause RETURN 98 WRITE(6,*)'ERROR opening output file for Hu and Stamnes data' STOP 99 WRITE(6,*)'Error during read of file:',fullname STOP END ================================================ FILE: UTIL/inline_phot_preproc/src/process_csqys.F ================================================ C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE PROCESS_CSQYS ( ) C********************************************************************* C C the subroutine readcsqy reads the absorption cross section/quantum C yield file(s) and writes them to CSQY_DATA (JTABLE_UNIT). The input C data are C C CS(nwl,NPHOTAB) - absorption cross sections for NR species. C QY(nwl,NPHOTAB) - quantum yields C C C********************************************************************* USE GET_ENV_VARS USE BIN_DATA USE CSQY_PARAMETERS IMPLICIT NONE C...........PARAMETERS and their descriptions INTEGER, PARAMETER :: XSTAT1 = 1 ! I/O ERROR exit status INTEGER, PARAMETER :: XSTAT2 = 2 ! I/O ERROR exit status C...........LOCAL VARIABLES and their descriptions: CHARACTER(16) :: PNAME = 'PROCESS_CSQYS' ! program name CHARACTER(16) :: PHOTID ! reaction id's CHARACTER(16) :: SPECTRA_NAME ! JVALUES name CHARACTER( 1) :: SPECTRA_TYPE ! cs/qy spectra type CHARACTER(25) :: CSQY_LABEL CHARACTER(255) :: EQNAME ! name of environment varaible CHARACTER(586) :: CSQY_DATA_RAW = 'CSQY_DATA_RAW' ! directory for CSQY data CHARACTER(600) :: CQFILE ! input filename buffer CHARACTER(132) :: MSG = ' ' ! message CHARACTER(120) :: FILE_LINE LOGICAL, SAVE :: WRITE_AE_REFRACT = .FALSE. ! .FALSE. CHARACTER( 5 ) :: WVL_AE_REFRAC CHARACTER( 13 ) :: AERO_INDEX = 'WVL_AE_REFRAC' INTEGER IWL ! wavelength index INTEGER NWL ! # of wlbands INTEGER NWLIN ! # of wlbands (infile) INTEGER IPHOT ! reaction index INTEGER CQUNIT ! cross section/qy io unit INTEGER IOST ! io status INTEGER LASTNB1 INTEGER LASTNB2 REAL STWL ( MXWL ) ! wavelength band lower limit REAL ENDWL( MXWL ) ! wavelength band upper limit REAL CS( MXWL, NPHOTAB ) ! output absorp. cross sections REAL QY( MXWL, NPHOTAB ) ! output quantum yields REAL FACTOR ! multiplying factor for CS REAL WLIN ( MXWLIN ) ! wl for input cs/qy data REAL CSIN ( MXWLIN ) ! raw absorption cross sections REAL QYIN ( MXWLIN ) ! raw quantum yields REAL CSOUT( MXWL ) ! integrated absorp. cross sect. REAL QYOUT( MXWL ) ! integrated quantum yields REAL :: WLL_AVE( MXWL ) ! lower limit on wl int ETin REAL :: WLU_AVE( MXWL ) ! upper limit on wl int ETin C...........EXTERNAL FUNCTIONS and their descriptions: INTEGER JUNIT ! used to get next IO unit # INTEGER :: NWL_AVE LOGICAL :: EXISTS INTERFACE SUBROUTINE WRT_CSQY_DATA( WLIN, CS_IN, QY_IN, NWLIN, SPECTRA_NAME, SPECTRA_TYPE, & WLL_AVE, WLU_AVE, CS_AVE, QY_AVE, NWL_AVE ) CHARACTER( 1), INTENT( IN ) :: SPECTRA_TYPE ! spectra type CHARACTER(16), INTENT( IN ) :: SPECTRA_NAME ! spectra type INTEGER, INTENT( IN ) :: NWLIN ! number of intervals CQin REAL, INTENT( IN ) :: WLIN ( : ) ! wl for CQin REAL, INTENT( IN ) :: CS_IN( : ) ! cross-section as f(WLIN) REAL, INTENT( IN ) :: QY_IN( : ) ! quantum yield as f(WLIN) REAL, INTENT( OUT) :: WLL_AVE( : ) ! lower limit on wl int ETin REAL, INTENT( OUT ) :: WLU_AVE( : ) ! upper limit on wl int ETin REAL, INTENT( OUT ) :: CS_AVE( : ) ! cross-section as f(WL_AVE) REAL, INTENT( OUT ) :: QY_AVE( : ) ! quantum yield as f(WL_AVE) INTEGER, INTENT( OUT ) :: NWL_AVE END SUBROUTINE WRT_CSQY_DATA SUBROUTINE WRT_CSQY_DATA_ONLY( WLIN, CS_IN, QY_IN, NWLIN, SPECTRA_NAME, SPECTRA_TYPE, & WLL_AVE, WLU_AVE, CS_AVE, QY_AVE, NWL_AVE ) CHARACTER( 1), INTENT( IN ) :: SPECTRA_TYPE ! spectra type CHARACTER(16), INTENT( IN ) :: SPECTRA_NAME ! spectra type INTEGER, INTENT( IN ) :: NWLIN ! number of intervals CQin REAL, INTENT( IN ) :: WLIN ( : ) ! wl for CQin REAL, INTENT( IN ) :: CS_IN( : ) ! cross-section as f(WLIN) REAL, INTENT( IN ) :: QY_IN( : ) ! quantum yield as f(WLIN) REAL, INTENT( OUT) :: WLL_AVE( : ) ! lower limit on wl int ETin REAL, INTENT( OUT ) :: WLU_AVE( : ) ! upper limit on wl int ETin REAL, INTENT( OUT ) :: CS_AVE( : ) ! cross-section as f(WL_AVE) REAL, INTENT( OUT ) :: QY_AVE( : ) ! quantum yield as f(WL_AVE) INTEGER, INTENT( OUT ) :: NWL_AVE END SUBROUTINE WRT_CSQY_DATA_ONLY END INTERFACE C********************************************************************* C begin body of subroutine READCSQY C...get a unit number for CSQY files CQUNIT = 125 CALL INIT_CXQY_MODULE() C...loop over the number of reactions, reading each file DO 801 IPHOT = 1, NPHOTAB C...open input file CQFILE = PHOTAB( IPHOT ) LASTNB1 = LEN_TRIM( CQFILE ) SPECTRA_NAME = TRIM( CQFILE ) EQNAME = 'CSQY_DATA_RAW' LASTNB2 = LEN_TRIM( EQNAME ) EQNAME = TRIM( CSQY_DATA_RAW ) CALL VALUE_NAME( EQNAME, CSQY_DATA_RAW ) CQFILE = TRIM( CSQY_DATA_RAW ) // '/' // TRIM( CQFILE ) INQUIRE( FILE = CQFILE, EXIST = EXISTS ) IF( .NOT. EXISTS )THEN MSG = 'Data file, ' // TRIM( CQFILE ) // ', not found.' WRITE(*,*)MSG STOP END IF OPEN( UNIT = CQUNIT, & FILE = CQFILE, & STATUS = 'OLD', & IOSTAT = IOST ) C...check for open errors IF ( IOST .NE. 0) THEN MSG = 'Could not open ' // PHOTAB( IPHOT ) // ' data file' WRITE(*,*)MSG STOP END IF WRITE( 6, 2001 ) CQUNIT, CQFILE C...read photolysis subgroup id READ( CQUNIT, '(A)', IOSTAT = IOST ) PHOTID !!!!!!! IOST = 0 IF( PHOT_PROCESS( IPHOT ))THEN WRITE(MODULE_UNIT,'(A)')'C...' // TRIM( PHOTAB(IPHOT) ) ENDIF C...check for read errors IF ( IOST .GT. 0) THEN MSG = 'Errors occurred while reading PHOTID for ' // & PHOTAB( IPHOT ) WRITE(*,*)MSG STOP ELSE IF ( IOST .LT. 0) THEN MSG = 'Premature End of File reached while reading PHOTID for ' // & PHOTAB( IPHOT ) WRITE(*,*)MSG STOP END IF C...get type of data (e.g. centered, beginning, ending, or point wavelen 101 CONTINUE READ( CQUNIT, '(A)', IOSTAT = IOST ) FILE_LINE SPECTRA_TYPE = FILE_LINE(1:1) C...check for read errors IF ( IOST .NE. 0) THEN MSG = 'Errors occurred while reading SPECTRA for ' // & PHOTAB( IPHOT ) WRITE(*,*)MSG STOP END IF IF ( SPECTRA_TYPE .EQ. '!' )THEN FILE_LINE(1:1) = ' ' IF( PHOT_PROCESS( IPHOT ))THEN WRITE(MODULE_UNIT,'(A)')'C..' // TRIM(FILE_LINE) ENDIF GO TO 101 ENDIF C...read the factor to multiply cross sectionS by READ( CQUNIT, 1005, IOSTAT = IOST ) FACTOR ! READ( CQUNIT, *, IOSTAT = IOST ) FACTOR C...check for read errors IF ( IOST .NE. 0) THEN MSG = 'Errors occurred while reading FACTOR for ' // & PHOTAB( IPHOT ) WRITE(*,*)MSG STOP END IF C...reinitialize arrays DO IWL = 1, MXWLIN WLIN( IWL ) = 0.0 CSIN( IWL ) = 0.0 QYIN( IWL ) = 0.0 END DO C...loop over the number of wavelengths and continue reading IWL = 0 201 CONTINUE IWL = IWL + 1 READ( CQUNIT, *, IOSTAT = IOST ) WLIN( IWL ), CSIN( IWL ), & QYIN( IWL ) CSIN( IWL ) = CSIN( IWL ) * FACTOR C...check for read errors IF ( IOST .GT. 0) THEN MSG = 'Errors occurred while reading WL,CS,QY for ' // & PHOTAB( IPHOT ) WRITE(*,*)MSG STOP END IF C...end loop if we reach EOF, otherwise continue looping IF ( IOST .EQ. 0 ) GO TO 201 C...adjust loop counter index index and close file NWLIN = IWL - 1 CLOSE( CQUNIT ) DO IWL = 2, NWLIN IF( WLIN( IWL ) .LE. WLIN( IWL-1 ) )THEN WRITE(6,'(3(A/))') TRIM( CQFILE ) // ': contains the below error', & 'consequentives lines with equal or decrease wavelengths', & 'Last two lines read:' WRITE(6,*) WLIN( IWL-1 ), CSIN( IWL-1 ), QYIN( IWL-1 ) WRITE(6,*) WLIN( IWL ), CSIN( IWL ), QYIN( IWL ) STOP END IF END DO C...transform the cs data to the same wavelength intervals as C... the irradiance data. WRITE(6,*)'For ',TRIM( SPECTRA_NAME ),' SPECTRA_TYPE is ',TRIM(SPECTRA_TYPE) IF(SPLIT_OUTPUTS)THEN CALL WRT_CSQY_DATA_ONLY( WLIN, CSIN, QYIN, NWLIN, SPECTRA_NAME, & SPECTRA_TYPE, WLL_AVE, WLU_AVE, CSOUT, QYOUT, NWL_AVE) ELSE ! use WRT_CSQY_DATA if the old version of CSQY_DATA is wanted. CALL WRT_CSQY_DATA( WLIN, CSIN, QYIN, NWLIN, SPECTRA_NAME, & SPECTRA_TYPE, WLL_AVE, WLU_AVE, CSOUT, QYOUT, NWL_AVE) END IF C...load output arrays with integrated data NWL = N_INLINE_BAND DO IWL = 1, NWL CS( IWL, IPHOT ) = CSOUT( IWL ) QY( IWL, IPHOT ) = QYOUT( IWL ) END DO 801 CONTINUE IF( NPHOTAB .EQ. 0 )THEN SPECTRA_TYPE = 'NULL' WLIN = 0.0; CSIN = 0.0; NWLIN = 0; SPECTRA_NAME = 'NULL' IF(SPLIT_OUTPUTS)THEN CALL WRT_CSQY_DATA_ONLY( WLIN, CSIN, QYIN, NWLIN, SPECTRA_NAME, & SPECTRA_TYPE, WLL_AVE, WLU_AVE, CSOUT, QYOUT, NWL_AVE) ELSE ! use WRT_CSQY_DATA if the old version of CSQY_DATA is wanted. CALL WRT_CSQY_DATA( WLIN, CSIN, QYIN, NWLIN, SPECTRA_NAME, & SPECTRA_TYPE, WLL_AVE, WLU_AVE, CSOUT, QYOUT, NWL_AVE) END IF END IF RETURN C...formats 1001 FORMAT( A ) 1003 FORMAT( A1 ) 1005 FORMAT( /, 4X, F10.1 ) 2001 FORMAT( 1X, '...Opening File on UNIT ', I2, /, 1X, A255 ) 2003 FORMAT( 1X, '...Data for ', I4, ' wavelengths read from file', & // ) END ================================================ FILE: UTIL/inline_phot_preproc/src/read_jproc_csqy.F ================================================ C*********************************************************************** C Portions of Models-3/CMAQ software were developed or based on * C information from various groups: Federal Government employees, * C contractors working on a United States Government contract, and * C non-Federal sources (including research institutions). These * C research institutions have given the Government permission to * C use, prepare derivative works, and distribute copies of their * C work in Models-3/CMAQ to the public and to permit others to do * C so. EPA therefore grants similar permissions for use of the * C Models-3/CMAQ software, but users are requested to provide copies * C of derivative works to the Government without restrictions as to * C use by others. Users are responsible for acquiring their own * C copies of commercial software associated with Models-3/CMAQ and * C for complying with vendor requirements. Software copyrights by * C the MCNC Environmental Modeling Center are used with their * C permissions subject to the above restrictions. * C*********************************************************************** C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/work/rep/JPROC/src/driver/jproc_table/readcsqy.F,v 1.4 2002/04/15 18:00:46 yoj Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C @(#)readcsqy.F 1.4 /project/mod3/JPROC/src/driver/jproc_table/SCCS/s.readcsqy.F 04 Jul 1997 09:39:29 C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE READCSQY ( ) C********************************************************************* C C the subroutine readcsqy reads the absorption cross section/quantum C yield file(s). The input data are C C CS(nwl,NPHOTAB) - absorption cross sections for NR species. C QY(nwl,NPHOTAB) - quantum yields C C C********************************************************************* USE BIN_DATA USE JPROC_PROFILE IMPLICIT NONE C...........PARAMETERS and their descriptions INTEGER, PARAMETER :: XSTAT1 = 1 ! I/O ERROR exit status INTEGER, PARAMETER :: XSTAT2 = 2 ! I/O ERROR exit status C...........LOCAL VARIABLES and their descriptions: CHARACTER(16) :: PNAME = 'READ_JPROC_CSQY' ! program name CHARACTER(16) :: CQDIR = 'CSQY' ! directory for CSQY data CHARACTER(16) :: PHOTID ! reaction id's CHARACTER(16) :: SPECTRA_NAME ! JVALUES name CHARACTER( 1) :: SPECTRA_TYPE ! cs/qy spectra type CHARACTER(25) :: CSQY_LABEL CHARACTER(255) :: EQNAME CHARACTER( 80) :: CQFILE ! input filename buffer CHARACTER( 80) :: MSG = ' ' ! message CHARACTER(120) :: FILE_LINE INTEGER IWL ! wavelength index INTEGER NWL ! # of wlbands INTEGER NWLIN ! # of wlbands (infile) INTEGER IPHOT ! reaction index INTEGER CQUNIT ! cross section/qy io unit INTEGER IOST ! io status INTEGER LASTNB1 INTEGER LASTNB2 REAL STWL ( MXWL ) ! wavelength band lower limit REAL ENDWL( MXWL ) ! wavelength band upper limit REAL CS( MXWL, NPHOTAB ) ! output absorp. cross sections REAL QY( MXWL, NPHOTAB ) ! output quantum yields REAL FACTOR ! multiplying factor for CS REAL WLIN ( MXWLIN ) ! wl for input cs/qy data REAL CSIN ( MXWLIN ) ! raw absorption cross sections REAL QYIN ( MXWLIN ) ! raw quantum yields REAL CSOUT( MXWL ) ! integrated absorp. cross sect. REAL QYOUT( MXWL ) ! integrated quantum yields REAL :: WLL_AVE( MXWL ) ! lower limit on wl int ETin REAL :: WLU_AVE( MXWL ) ! upper limit on wl int ETin C...........EXTERNAL FUNCTIONS and their descriptions: INTEGER JUNIT ! used to get next IO unit # INTEGER :: NWL_AVE INTERFACE SUBROUTINE WRT_CSQY_DATA( WLIN, CS_IN, QY_IN, NWLIN, SPECTRA_NAME, SPECTRA_TYPE, & WLL_AVE, WLU_AVE, CS_AVE, QY_AVE, NWL_AVE ) USE JPROC_PHOT_DATA IMPLICIT NONE CHARACTER( 1), INTENT( IN ) :: SPECTRA_TYPE ! spectra type CHARACTER(16), INTENT( IN ) :: SPECTRA_NAME ! spectra type INTEGER, INTENT( IN ) :: NWLIN ! number of intervals CQin REAL, INTENT( IN ) :: WLIN ( MXWLIN ) ! wl for CQin REAL, INTENT( IN ) :: CS_IN( MXWLIN ) ! cross-section as f(WLIN) REAL, INTENT( IN ) :: QY_IN( MXWLIN ) ! quantum yield as f(WLIN) REAL, INTENT( OUT) :: WLL_AVE( MXWL ) ! lower limit on wl int ETin REAL, INTENT( OUT ) :: WLU_AVE( MXWL ) ! upper limit on wl int ETin REAL, INTENT( OUT ) :: CS_AVE( MXWL ) ! cross-section as f(WL_AVE) REAL, INTENT( OUT ) :: QY_AVE( MXWL ) ! quantum yield as f(WL_AVE) INTEGER, INTENT( OUT ) :: NWL_AVE END SUBROUTINE WRT_CSQY_DATA END INTERFACE C********************************************************************* C begin body of subroutine READCSQY C...get a unit number for CSQY files CQUNIT = 125 CALL INIT_CXQY_MODULE() C...loop over the number of reactions, reading each file DO 801 IPHOT = 1, NPHOTAB C...open input file CQFILE = PHOTAB( IPHOT ) LASTNB1 = LEN_TRIM( CQFILE ) ! SPECTRA_NAME = CQFILE( 1:LASTNB1 ) SPECTRA_NAME = TRIM( CQFILE ) EQNAME = 'CSQY_DATA_RAW' LASTNB2 = LEN_TRIM( EQNAME ) ! CQFILE = EQNAME( 1:LASTNB2 ) // '/' // CQFILE( 1:LASTNB1 ) CQFILE = TRIM( EQNAME ) // '/' // TRIM( CQFILE ) OPEN( UNIT = CQUNIT, & FILE = CQFILE, & STATUS = 'OLD', & IOSTAT = IOST ) OPEN( UNIT = CSQY_UNIT, & FILE = 'CSQY_BLOCK.dat', & STATUS = 'UNKNOWN', & IOSTAT = IOST ) C...check for open errors IF ( IOST .NE. 0) THEN MSG = 'Could not open ' // PHOTAB( IPHOT ) // ' data file' WRITE(*,*)MSG STOP END IF WRITE( 6, 2001 ) CQUNIT, CQFILE C...read photolysis subgroup id READ( CQUNIT, 1001, IOSTAT = IOST ) PHOTID IF( PHOT_PROCESS( IPHOT ))THEN WRITE(MODULE_UNIT,'(A)')'C...' // TRIM( PHOTAB(IPHOT) ) ENDIF C...check for read errors IF ( IOST .NE. 0) THEN MSG = 'Errors occurred while reading PHOTID for ' // & PHOTAB( IPHOT ) WRITE(*,*)MSG STOP END IF C...get type of data (e.g. centered, beginning, ending, or point wavelen 101 CONTINUE READ( CQUNIT, '(A)', IOSTAT = IOST ) FILE_LINE SPECTRA_TYPE = FILE_LINE(1:1) C...check for read errors IF ( IOST .NE. 0) THEN MSG = 'Errors occurred while reading SPECTRA for ' // & PHOTAB( IPHOT ) WRITE(*,*)MSG STOP END IF IF ( SPECTRA_TYPE .EQ. '!' )THEN FILE_LINE(1:1) = ' ' IF( PHOT_PROCESS( IPHOT ))THEN WRITE(MODULE_UNIT,'(A)')'C..' // TRIM(FILE_LINE) ENDIF GO TO 101 ENDIF C...read the factor to multiply cross sectionS by READ( CQUNIT, 1005, IOSTAT = IOST ) FACTOR C...check for read errors IF ( IOST .NE. 0) THEN MSG = 'Errors occurred while reading FACTOR for ' // & PHOTAB( IPHOT ) WRITE(*,*)MSG STOP END IF C...reinitialize arrays DO IWL = 1, MXWLIN WLIN( IWL ) = 0.0 CSIN( IWL ) = 0.0 QYIN( IWL ) = 0.0 END DO C...loop over the number of wavelengths and continue reading IWL = 0 201 CONTINUE IWL = IWL + 1 READ( CQUNIT, *, IOSTAT = IOST ) WLIN( IWL ), CSIN( IWL ), & QYIN( IWL ) CSIN( IWL ) = CSIN( IWL ) * FACTOR C...check for read errors IF ( IOST .GT. 0) THEN MSG = 'Errors occurred while reading WL,CS,QY for ' // & PHOTAB( IPHOT ) WRITE(*,*)MSG STOP END IF C...end loop if we reach EOF, otherwise continue looping IF ( IOST .EQ. 0 ) GO TO 201 C...adjust loop counter index index and close file NWLIN = IWL - 1 CLOSE( CQUNIT ) C...transform the cs data to the same wavelength intervals as C... the irradiance data. WRITE(6,*)'For ',TRIM( SPECTRA_NAME ),' SPECTRA_TYPE is ',TRIM(SPECTRA_TYPE) CALL WRT_CSQY_DATA( WLIN, CSIN, QYIN, NWLIN, SPECTRA_NAME, & SPECTRA_TYPE, WLL_AVE, WLU_AVE, CSOUT, QYOUT, NWL_AVE) C...load output arrays with integrated data NWL = N_INLINE_BAND DO IWL = 1, NWL CS( IWL, IPHOT ) = CSOUT( IWL ) QY( IWL, IPHOT ) = QYOUT( IWL ) END DO 801 CONTINUE C...formats 1001 FORMAT( A16 ) 1003 FORMAT( A1 ) 1005 FORMAT( /, 4X, F10.1 ) 2001 FORMAT( 1X, '...Opening File on UNIT ', I2, /, 1X, A255 ) 2003 FORMAT( 1X, '...Data for ', I4, ' wavelengths read from file', & // ) RETURN END ================================================ FILE: UTIL/inline_phot_preproc/src/spectral_reflect.f ================================================ SUBROUTINE SPECTRAL_REFLECT(MODIS_ALBEDO) ! PURPOSE: Populate array ALBEDO with wavelength dependent reflectances (i.e. ! spectral albedos) for 20 MODIS land use types. Also returns correction factors ! for solar zenith angle and season. Note that an adjustment is applied to ! better match spectral estimates for each land use type. ! REFERENCE: CERES/SARB Surface Properties database, May 2006 ! http://www-surf/larc.nasa.gov/surf/pages/data-page.html ! INPUT: SOLAR_ZENITH [deg] ! OUTPUT: NWAVE ! ALBEDO(20,15) ! CALLS: none ! CALLED BY: veg USE BIN_DATA USE CSQY_PARAMETERS USE ALBEDO_REFER_DATA IMPLICIT NONE REAL, INTENT( OUT ) :: MODIS_ALBEDO( :, :) INTEGER NWAVE INTEGER NUSES REAL(4) :: SCRATCH_ALBEDO(NUMB_BANDS_MODIS) REAL(4) :: ALBEDO_WAVE(NUMB_BANDS_MODIS) REAL(4) :: SOLAR_ZENITH, COSZEN REAL(8) :: PI REAL(4) :: ZENITH_CORRECTION INTEGER :: NDUMB REAL, ALLOCATABLE :: WAVE( : ), XDUMB( : ), YDUMB( : ), ZDUMB( : ) REAL, ALLOCATABLE :: WAVE_OUTL( : ), WAVE_OUTU( : ), WAVE_OUTC( : ) INTEGER I, J, K INTEGER I_CUTTOFF INTEGER :: IWL INTERFACE SUBROUTINE WVBIN_AVERAGE(WL_CS_IN, CS_IN, NWL_CS_IN, & WL_QY_IN, QY_IN, NWL_QY_IN, & SPECTRA_TYPE, & WLL_AVE, WLU_AVE, NWL_AVE, & CS_AVE, QY_AVE ) CHARACTER(1), INTENT( IN ) :: SPECTRA_TYPE ! spectra type INTEGER, INTENT( IN ) :: NWL_AVE ! number of intervals average INTEGER, INTENT( IN ) :: NWL_CS_IN ! number of intervals CS_IN INTEGER, INTENT( IN ) :: NWL_QY_IN ! number of intervals CS_IN REAL, INTENT( IN ) :: WL_CS_IN( : ) ! wl for CS_IN REAL, INTENT( IN ) :: WL_QY_IN( : ) ! wl for QY_IN REAL, INTENT( IN ) :: CS_IN( : ) ! cross-section as f(WLIN) REAL, INTENT( IN ) :: QY_IN( : ) ! quantum yield as f(WLIN) REAL, INTENT( INOUT ) :: WLL_AVE( : ) ! lower limit on wl effective interval REAL, INTENT( INOUT ) :: WLU_AVE( : ) ! upper limit on wl effective interval REAL, INTENT( INOUT ) :: CS_AVE( : ) ! cross-section as f(WL_AVE) REAL, INTENT( INOUT ) :: QY_AVE( : ) ! quantum yield as f(WL_AVE) END SUBROUTINE WVBIN_AVERAGE SUBROUTINE WVBIN_AVERAGE_B(WL_CS_IN, CS_IN, NWL_CS_IN, & WL_QY_IN, QY_IN, NWL_QY_IN, & SPECTRA_TYPE, & WLL_AVE, WLU_AVE, NWL_AVE, & CS_AVE, QY_AVE ) CHARACTER(1), INTENT( IN ) :: SPECTRA_TYPE ! spectra type INTEGER, INTENT( IN ) :: NWL_AVE ! number of intervals average INTEGER, INTENT( IN ) :: NWL_CS_IN ! number of intervals CS_IN INTEGER, INTENT( IN ) :: NWL_QY_IN ! number of intervals CS_IN REAL, INTENT( IN ) :: WL_CS_IN( : ) ! wl for CS_IN REAL, INTENT( IN ) :: WL_QY_IN( : ) ! wl for QY_IN REAL, INTENT( IN ) :: CS_IN( : ) ! cross-section as f(WLIN) REAL, INTENT( IN ) :: QY_IN( : ) ! quantum yield as f(WLIN) REAL, INTENT( INOUT ) :: WLL_AVE( : ) ! lower limit on wl effective interval REAL, INTENT( INOUT ) :: WLU_AVE( : ) ! upper limit on wl effective interval REAL, INTENT( INOUT ) :: CS_AVE( : ) ! cross-section as f(WL_AVE) REAL, INTENT( INOUT ) :: QY_AVE( : ) ! quantum yield as f(WL_AVE) END SUBROUTINE WVBIN_AVERAGE_B END INTERFACE ALLOCATE(WAVE(MXWLIN), XDUMB(MXWLIN), ZDUMB(MXWLIN), YDUMB(MXWLIN)) ALLOCATE(WAVE_OUTC(MXWLIN), WAVE_OUTL(MXWLIN), WAVE_OUTU(MXWLIN)) NWAVE = NUMB_BANDS_MODIS NUSES = NUMB_LANDUSE_MODIS MODIS_ALBEDO = 0.0 PI = DACOS(-1.D0) !The following loops indicate use LUC (as "j), and band (as "i") COSZEN = 0.5 ! dcos((pi/180.d0)*SOLAR_ZENITH) SOLAR_ZENITH = PI/180.0D0*DACOS(0.5D0) DO I = NJO_NEW, 1, -1 IF ( EFFECTIVE_LAMBDA(I) .LT. WVBAND( 1 ) )THEN I_CUTTOFF = I EXIT END IF END DO DO 270 J = 1, NUMB_LANDUSE_MODIS DO 250 I = 1, NUMB_BANDS_MODIS ALBEDO_WAVE(I) = WVBAND( I ) ZENITH_CORRECTION = (1.0 + ZENITH_COEFF(J)) & / (1.0 + 2.0*COSZEN*ZENITH_COEFF(J)) ZENITH_CORRECTION = MAX(0.8, ZENITH_CORRECTION) SCRATCH_ALBEDO( I ) = MIN(1.0, & (ZENITH_CORRECTION*SPECTRAL_ALBEDO( I, J))) IF((MODIS2SPECTRAL( J )*SCRATCH_ALBEDO( I )).LE. 1.0)THEN SCRATCH_ALBEDO( I ) = MODIS2SPECTRAL( J ) & * SCRATCH_ALBEDO( I ) ELSE SCRATCH_ALBEDO( I ) = 1.0 ENDIF ! print*,landuse(j),ALBEDO_WAVE(I),SCRATCH_ALBEDO( I ) 250 CONTINUE XDUMB = 1.0 NDUMB = NUMB_BANDS_MODIS WAVE = 0.0 WAVE( 1:NDUMB ) = ALBEDO_WAVE( 1:NDUMB ) CALL WVBIN_AVERAGE(WAVE, SCRATCH_ALBEDO, NDUMB, WAVE, XDUMB, NDUMB, & 'P', WAVE_OUTL, WAVE_OUTU, MXWLIN, YDUMB, ZDUMB ) MODIS_ALBEDO( 1:NJO_NEW, J) = YDUMB( 1:NJO_NEW ) MODIS_ALBEDO( 1:I_CUTTOFF, J) = YDUMB( I_CUTTOFF + 1 ) ! DO I = 1, NJO_NEW ! WRITE(6,'(3(es12.4,1x))')STWL_NEW(i),MODIS_ALBEDO( I, J), YDUMB(I) ! ENDDO ! pause 270 CONTINUE RETURN END ================================================ FILE: UTIL/inline_phot_preproc/src/vegeland_s.f ================================================ program veg ! PURPOSE: For specified photolysis module ("INLINE", or "SPHERAD"), ! and for specified solar zenith angle (sza), Julian day (jd), and ! snow flag (snowflag), returns reflectances (spectral albedos) for ! each of 3 landuse categorization schemes (NLCD, USGS, and MODIS) ! that are specific to the solar zenith angle, Julian day, snow ! conditions,and the spectral bin structure of the photolysis module. ! ADVISORY: This module should be called when sza, jd, or snowflag changes ! DEVELOPED: August 2010. John Streicher USEPA/ORD/NERL/AMAD ! INPUT: rtmodule,sza[deg],jd [integer],snowflag [0=no;1=yes] ! OUTPUT: reflectance ! CALLS: reflectances,season_correction,spectralalbedo,mapalbedo ! CALLED BY: main implicit none character*7 rtmodule integer jd,snowflag,n,isza,i real*4 sza,specalbsza(20,15,2),specalbszassn(20,15,2) & ,bin_spectra(50,50,2),nlcd_spectra(50,50,2) & ,usgs_spectra(50,50,2),modis_spectra(50,50,2) ! The following (sza; rtmodule='INLINE', or 'SPHERAD'; jd; snowflag) ! are temporarily hardcoded. ! Replace with user-selected values when incorporated into MCIP or WRF-CMAQ. rtmodule = 'INLINE' sza = 30. jd = 180 snowflag = 0 call reflectances(sza & ,specalbsza) call season_correction(specalbsza,jd,snowflag & ,specalbszassn) call spectralalbedo(specalbszassn,rtmodule & ,n,bin_spectra ) call mapalbedo(n,bin_spectra & ,nlcd_spectra,usgs_spectra,modis_spectra ) stop end !*********************************************************************** subroutine reflectances(sza & ,specalbsza) ! PURPOSE: Populate array specalbsza with sza-specific reflectances (i.e. ! spectral albedos) for each of 20 land use types. Correct for ! solar zenith angle, and adjust spectral albedos to better match ! MODIS non-spectral estimates for each MODIS land use type. ! REFERENCE: CERES/SARB Surface Properties database, May 2006 ! http://www-surf/larc.nasa.gov/surf/pages/data-page.html ! INPUT: sza[deg] ! OUTPUT: specalbsza(20,15,2) ! CALLS: none ! CALLED BY: veg implicit none character*30 landuse(20) integer i,j,k real*4 bands(15),specalb(15,20),dterm(20),specalbsza(20,15,2) & ,pi,specenhancement,u0,sza,modis2spectral(20) specalbsza(1:20,1:15,1:2) = 0.0 pi = dacos(-1.d0) data bands / & 200.05, 234.3, 264.8, 292.1, 310.5 & , 340.0, 397.5, 467.5, 546.25, 642.3 & , 1000.0, 1550.0, 2150.0, 3000.0, 3750.0 / ! *** Spectral Reflectances data specalb / & 0.032, 0.032, 0.032, 0.032, 0.032 ! (1) EVERGREEN NEEDLE FOREST & , 0.032, 0.032, 0.032, 0.046, 0.046 & , 0.235, 0.096, 0.038, 0.038, 0.038 & , 0.044, 0.044, 0.044, 0.044, 0.044 ! ( 2) EVERGREEN BROADLEAF FOR & , 0.044, 0.044, 0.044, 0.044, 0.044 ! (Tropical Forest) & , 0.234, 0.193, 0.112, 0.112, 0.112 & , 0.032, 0.032, 0.032, 0.032, 0.032 ! ( 3) DECIDUOUS NEEDLE FOREST & , 0.032, 0.032, 0.032, 0.046, 0.046 & , 0.235, 0.096, 0.038, 0.038, 0.038 & , 0.034, 0.034, 0.034, 0.034, 0.034 ! ( 4) DECIDUOUS BROADLEAF FOR & , 0.034, 0.034, 0.034, 0.066, 0.067 & , 0.312, 0.276, 0.160, 0.160, 0.160 & , 0.033, 0.033, 0.033, 0.033, 0.033 ! ( 5) MIXED FOREST & , 0.033, 0.033, 0.033, 0.056, 0.057 & , 0.274, 0.186, 0.099, 0.099, 0.099 & , 0.010, 0.010, 0.010, 0.015, 0.017 ! ( 6) CLOSED SHRUBS & , 0.020, 0.036, 0.045, 0.055, 0.156 & , 0.350, 0.239, 0.101, 0.101, 0.101 & , 0.095, 0.095, 0.095, 0.095, 0.095 ! ( 7) OPEN/SHRUBS & , 0.095, 0.098, 0.104, 0.122, 0.157 & , 0.231, 0.330, 0.311, 0.150, 0.150 & , 0.020, 0.020, 0.020, 0.023, 0.024 ! ( 8) WOODY SAVANNA (Decid Broadleaf*0.4 + Grass*0.6) & , 0.026, 0.035, 0.041, 0.102, 0.104 & , 0.366, 0.291, 0.151, 0.107, 0.107 & , 0.010, 0.010, 0.010, 0.015, 0.017 ! ( 9) SAVANNA & , 0.020, 0.036, 0.045, 0.126, 0.129 & , 0.402, 0.301, 0.145, 0.071, 0.071 & , 0.010, 0.010, 0.010, 0.015, 0.017 ! (10) GRASSLAND & , 0.020, 0.036, 0.045, 0.126, 0.129 & , 0.402, 0.301, 0.145, 0.071, 0.071 & , 0.039, 0.039, 0.039, 0.039, 0.039 ! (11) PERMANENT WETLANDS & , 0.039, 0.039, 0.039, 0.051, 0.071 & , 0.164, 0.100, 0.056, 0.056, 0.056 & , 0.010, 0.010, 0.010, 0.015, 0.017 ! (12) CROPLAND & , 0.020, 0.036, 0.045, 0.115, 0.099 & , 0.442, 0.271, 0.122, 0.059, 0.059 & , 0.052, 0.052, 0.052, 0.052, 0.052 ! (13) URBAN & , 0.052, 0.052, 0.066, 0.104, 0.114 & , 0.304, 0.258, 0.258, 0.258, 0.258 & , 0.010, 0.010, 0.010, 0.015, 0.017 ! (14) CROP MOSAIC & , 0.020, 0.036, 0.045, 0.090, 0.083 & , 0.377, 0.273, 0.141, 0.110, 0.110 & , 0.910, 0.910, 0.910, 0.916, 0.921 ! (15) PERMANENT SNOW & , 0.931, 0.947, 0.964, 0.953, 0.920 & , 0.635, 0.013, 0.006, 0.009, 0.014 & , 0.144, 0.144, 0.144, 0.144, 0.144 ! (16) BARREN/DESERT & , 0.144, 0.144, 0.179, 0.263, 0.331 & , 0.405, 0.390, 0.390, 0.390, 0.390 & , 0.066, 0.066, 0.066, 0.070, 0.073 ! (17) OCEAN WATER & , 0.082, 0.094, 0.091, 0.078, 0.072 & , 0.066, 0.062, 0.055, 0.044, 0.069 & , 0.180, 0.180, 0.180, 0.180, 0.180 ! (18) TUNDRA (modified with Lundberg et al) & , 0.180, 0.180, 0.180, 0.180, 0.180 & , 0.247, 0.265, 0.265, 0.265, 0.265 & , 0.979, 0.979, 0.979, 0.980, 0.982 ! (19) FRESH SNOW & , 0.984, 0.988, 0.992, 0.989, 0.982 & , 0.902, 0.143, 0.168, 0.019, 0.015 & , 0.778, 0.778, 0.778, 0.778, 0.778 ! (20) SEA ICE & , 0.778, 0.778, 0.778, 0.778, 0.752 & , 0.393, 0.055, 0.054, 0.036, 0.036 / data landuse / & 'EVERGREEN NEEDLE FOREST' &,'EVERGREEN BROADLEAF FOREST' &,'DECIDUOUS NEEDLE FOREST' &,'DECIDUOUS BROADLEAF FOREST' &,'MIXED FOREST' &,'CLOSED SHRUBS' &,'OPEN / SHRUBS' &,'WOODY SAVANNA' &,'SAVANNA' &,'GRASSLAND' &,'PERMANENT WETLANDS' &,'CROPLAND' &,'URBAN' &,'CROP MOSAIC' &,'PERMANENT SNOW' &,'BARREN / DESSERT' &,'OCEAN WATER' &,'TUNDRA' &,'FRESH SNOW' &,'SEA ICE' / ! *** Land-use type-dependent solar zenith adjustment factor data dterm / & 0.40 ! ( 1) EVERGREEN NEEDLE FOR &, 0.44 ! ( 2) EVERGREEN BROAD FOR &, 0.32 ! ( 3) DECIDUOUS NEEDLE FOR &, 0.39 ! ( 4) DECIDUOUS BROAD FOR &, 0.22 ! ( 5) MIXED FOREST &, 0.28 ! ( 6) CLOSED SHRUBS &, 0.40 ! ( 7) OPEN/SHRUBS &, 0.47 ! ( 8) WOODY SAVANNA &, 0.53 ! ( 9) SAVANNA &, 0.53 ! (10) GRASSLAND &, 0.35 ! (11) WETLAND &, 0.41 ! (12) CROPLAND (CAGEX-APR) &, 0.10 ! (13) URBAN &, 0.40 ! (14) CROP MOSAIC &, 0.10 ! (15) ANTARCTIC SNOW &, 0.40 ! (16) BARREN/DESERT &, 0.41 ! (17) OCEAN WATER &, 0.58 ! (18) TUNDRA &, 0.10 ! (19) FRESH SNOW &, 0.10 / ! (20) SEA ICE ! The following scale factors are applied to the spectral albedos to bring ! them into closer agreement (in the visible spectrum) with the MODIS fixed albedos data modis2spectral / & 3.5 ! (1) &, 2.5 ! (2) &, 4.0 ! (3) &, 2.5 ! (4) &, 3.0 ! (5) &, 3.0 ! (6) &, 2.0 ! (7) &, 2.5 ! (8) &, 1.5 ! (9) &, 2.0 ! (10) &, 2.0 ! (11) &, 1.5 ! (12) &, 1.5 ! (13) &, 2.5 ! (14) &, 1.0 ! (15) &, 1.0 ! (16) &, 1.0 ! (17) &, 1.0 ! (18) &, 1.0 ! (19) &, 1.0 / ! (20) !The folowing loops indicate use LUC (as "j), and band (as "i") u0 = dcos((pi/180.d0)*sza) do 270 j = 1,20 do 250 i = 1,15 specenhancement = (1.0 + dterm(j))/(1.0 + 2.0*u0*dterm(j)) specenhancement = max(0.8,specenhancement) specalbsza(j,i,1) = bands(i) specalbsza(j,i,2) = min(1.0,(specenhancement*specalb(i,j))) if((modis2spectral(j)*specalbsza(j,i,2)).le.1.0)then specalbsza(j,i,2) = modis2spectral(j)*specalbsza(j,i,2) else specalbsza(j,i,2) = 1.0 endif 250 continue 270 continue !Output is specalbsza(j,i,2): 20 spectral albedos x 15 bands return end !*********************************************************************** subroutine season_correction(specalbsza,jd,snowflag & ,specalbszassn) ! PURPOSE: Modify the sza-specific spectral albedos to be further ! specific to Julian day ! REFERENCE: Moody et al (2005); Moody et al (2007); Jin et al (2002) ! INPUT: specalbsza,jd,snowflag ! OUTPUT: specalbszassn ! CALLS: none ! CALLED BY: veg implicit none integer jd,i,j,snowflag real*4 specalbsza(20,15,2),specalbszassn(20,15,2) & ,ssn_correction(20),jd_correction(20),pi,scale,temp & ,snow_correction(20) specalbszassn(1:20,1:15,1:2) = 0.0 jd_correction(1:20) = 0.0 pi = dacos(-1.d0) data ssn_correction / & 0.73 ! EVERGREEN NEEDLE FOR &, 0.84 ! EVERGREEN BROADLEAF FOR &, 0.77 ! DECIDUOUS NEEDLE FOR &, 0.73 ! DECIDOUS BROAD FOR &, 0.78 ! MIXED FOREST &, 0.73 ! CLOSED SHRUBS &, 0.77 ! OPEN/SHRUBS &, 0.78 ! WOODY SAVANNA &, 0.78 ! SAVANNA &, 0.79 ! GRASSLAND &, 0.78 ! WETLAND &, 0.80 ! CROPLAND &, 0.67 ! URBAN &, 0.80 ! CROP MOSAIC &, 1.00 ! PERMANENT SNOW &, 0.96 ! BARREN/DESERT &, 1.00 ! OCEAN WATER &, 0.25 ! TUNDRA (modified with Lundberg et al (2005)) &, 1.00 ! FRESH SNOW &, 1.00 /! SEA ICE ! scale ranges from [0,1]; scale = 0 on ~Jun21; = 1 on Dec21 temp = cos(2.0*pi*((real(jd)+11.0)/365.)) if(temp.ge.0.d0)then scale = 0.5*(1.+ sqrt(temp)) else scale = 0.5*(1.- sqrt(abs(temp))) endif do 90 i = 1,20 jd_correction(i) = scale*ssn_correction(i) - (scale-1.0)*1.0 90 continue do 190 i = 1,20 do 170 j = 1,15 specalbszassn(i,j,1) = specalbsza(i,j,1) specalbszassn(i,j,2) = specalbsza(i,j,2)/jd_correction(i) 170 continue 190 continue if(snowflag.eq.0)goto 999 data snow_correction / & 3.0 ! EVERGREEN NEEDLE FOR &, 4.1 ! EVERGREEN BROADLEAF FOR &, 3.1 ! DECIDUOUS NEEDLE FOR &, 2.7 ! DECIDUOUS BROADLEAF FOR &, 3.0 ! MIXED FOREST &, 2.2 ! CLOSED SHRUBS &, 3.6 ! OPEN/SHRUBS &, 2.1 ! WOODY SAVANNA &, 3.0 ! SAVANNA &, 3.8 ! GRASSLAND &, 4.9 ! WETLAND &, 4.5 ! CROPLAND &, 3.6 ! URBAN &, 3.6 ! CROP MOSAIC &, 1.7 ! PERMANENT SNOW &, 3.5 ! BARREN/DESERT &, 1.0 ! OCEAN WATER &, 4.0 ! TUNDRA (modified with Lundberg et al (2005)) &, 1.0 ! FRESH SNOW &, 1.3 /! SEA ICE do 290 i = 1,20 do 270 j = 1,15 specalbszassn(i,j,2) = snow_correction(i)*specalbszassn(i,j,2) if(specalbszassn(i,j,2).gt.1.)then specalbszassn(i,j,2) = 1.0 endif 270 continue 290 continue 999 return end !*********************************************************************** subroutine spectralalbedo(specalbszassn,rtmodule & ,n,bin_spectra ) ! PURPOSE: Bin the sza-,season-specific spectral albedo data into the wavelength ! bins of the selected photolysis module ! INPUT: specalbszassn,rtmodule ! OUTPUT: bin_spectra ! CALLS: get_bin_data,cutpoints,assign ! CALLED BY: veg implicit none character rtmodule*7 integer choice,n,ncat,countforlabel(50) real*4 wavebin(50),cutpoint(50),specalbszassn(20,15,2) & ,nlcd_spectra(50,200,2) & ,bin_spectra(50,50,2),n2,sza bin_spectra(1:50,1:50,1:2) = 0.0 call get_bin_data(rtmodule & ,wavebin,n) call cutpoints(wavebin,n,rtmodule & ,cutpoint) call assign(cutpoint,n,specalbszassn,ncat,countforlabel,wavebin & ,bin_spectra) return end !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! subroutine assign(cutpoint,n,specalbszassn,ncat,countforlabel & ,wavebin & ,bin_spectra) implicit none integer n,ncat,countforlabel(50),i,j,k,kcount,jj,zeroflag real*4 cutpoint(50),specalbszassn(20,15,2),wavebin(50) & ,bin_spectra(50,50,2) & ,accumulate1,accumulate2 do 190 i = 1,20 do 170 j = 2,n+1 kcount = 0 accumulate1 = 0.d0 accumulate2 = 0.d0 do 150 k = 1,15 if((specalbszassn(i,k,1).le.cutpoint(j)).and. & (specalbszassn(i,k,1).gt.cutpoint(j-1)))then kcount = kcount + 1 accumulate2 = accumulate2 + specalbszassn(i,k,2) endif 150 continue if(kcount.ne.0)then accumulate2 = accumulate2/real(kcount) bin_spectra(i,j,1) = wavebin(j-1) bin_spectra(i,j,2) = accumulate2 elseif(kcount.eq.0)then bin_spectra(i,j,1) = wavebin(j-1) bin_spectra(i,j,2) = 0.d0 endif 160 format(2f12.3,i6,f12.3) 170 continue 190 continue ! First bin do 230 i = 1,20 if(bin_spectra(i,2,2).le.1.d-5)then do 220 k = 1,15 if(specalbszassn(i,k,1).gt.cutpoint(1))then bin_spectra(i,2,2) = specalbszassn(i,k-1,2) goto 225 endif 220 continue 225 if(bin_spectra(i,3,2).ne.0.d0)then bin_spectra(i,2,2) = (bin_spectra(i,2,2) & +bin_spectra(i,3,2))/2.d0 endif endif 230 continue ! Last bin do 250 i = 1,20 if(bin_spectra(i,n+1,2).le.1.d-5)then do 240 k = 15,1,-1 if(specalbszassn(i,k,1).lt.cutpoint(n))then bin_spectra(i,n+1,2) = specalbszassn(i,k+1,2) goto 245 endif 240 continue 245 if(bin_spectra(i,n,2).ne.0.d0)then bin_spectra(i,n+1,2) = (bin_spectra(i,n+1,2) & +bin_spectra(i,n,2))/2.d0 endif endif 250 continue do 290 i = 1,20 255 zeroflag = 0 do 270 j = 2,n-1 if(bin_spectra(i,j,2).eq.0.d0)then zeroflag = 1 if((bin_spectra(i,j-1,2).ne.0.d0).and. & (bin_spectra(i,j+1,2).ne.0.d0))then bin_spectra(i,j,2)=(bin_spectra(i,j-1,2) & +bin_spectra(i,j+1,2))/2.d0 goto 270 elseif(bin_spectra(i,j-1,2).ne.0.d0)then bin_spectra(i,j,2) = bin_spectra(i,j-1,2) goto 270 elseif(bin_spectra(i,j+1,2).ne.0.d0)then bin_spectra(i,j,2) = bin_spectra(i,j+1,2) goto 270 endif endif 270 continue if(zeroflag.eq.1)goto 255 290 continue do 390 i = 1,20 do 370 j = 2,n+1 bin_spectra(i,j-1,1) = bin_spectra(i,j,1) bin_spectra(i,j-1,2) = bin_spectra(i,j,2) 360 format(2i6,2f12.3) 370 continue 390 continue return end !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! subroutine cutpoints(wavebin,n,rtmodule & ,cutpoint) implicit none character rtmodule*7 integer n,i real*4 wavebin(50),cutpoint(50) cutpoint(1) = wavebin(1) - (wavebin(2) - wavebin(1))/2.d0 do 190 i = 2,n cutpoint(i) = (wavebin(i-1) + wavebin(i))/2.d0 ! Exception: if((rtmodule.eq.'SPHERAD').and.(i.eq.24))then cutpoint(i) = 402.5 endif 190 continue cutpoint(n+1) = wavebin(n) + (wavebin(n) - wavebin(n-1))/2.d0 return end !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! subroutine get_bin_data(rtmodule & ,wavebin,n) implicit none character rtmodule*7 integer n,i real*4 wavebin(50),xwavebin(30),ywavebin(30) wavebin(1:50) = 0.d0 data xwavebin / & 295.0, 303.0, 310.0, 316.0, 333.0 & , 380.0, 574.0, 0.0, 0.0, 0.0 & , 0.0, 0.0, 0.0, 0.0, 0.0 & , 0.0, 0.0, 0.0, 0.0, 0.0 & , 0.0, 0.0, 0.0, 0.0, 0.0 & , 0.0, 0.0, 0.0, 0.0, 0.0 / data ywavebin / & 290.0, 295.0, 300.0, 305.0, 310.0 & , 315.0, 320.0, 325.0, 330.0, 335.0 & , 340.0, 345.0, 350.0, 355.0, 360.0 & , 365.0, 370.0, 375.0, 380.0, 385.0 & , 390.0, 395.0, 400.0, 450.0, 550.0 & , 650.0, 750.0, 0.0, 0.0, 0.0 / if(rtmodule.eq.'INLINE')then n = 7 do 190 i = 1,n wavebin(i) = xwavebin(i) 190 continue elseif(rtmodule.eq.'SPHERAD')then n = 27 do 195 i = 1,n wavebin(i) = ywavebin(i) 195 continue endif return end !*********************************************************************** !*********************************************************************** subroutine mapalbedo(n,bin_spectra & ,nlcd_spectra,usgs_spectra,modis_spectra) ! PURPOSE: Maps the 50 NLCD and 24 USGS landuse categories to the closest ! 20 MODIS categories - with a weighting factor applied to the mapping ! for continuity of albedo of NLCD/USGS to MODIS. 17 of the 20 MODIS ! categories are then mapped to 17 uniquely corresponding spectral albedo ! categories; 3 MODIS categories (Wooded Tundra, Mixed Tundra, and Barren ! TUNDRA) are mapped to spectral "Tundra". ! INPUT: n,bin_spectra ! OUTPUT: nlcd_spectra,usgs_spectra,modis_spectra ! CALLS: nlcdusgsmodis ! CALLED BY: veg implicit none real*4 nlcdmap(65,2),usgsmap(65,2),modismap(65,2) & ,a(65),b(65),y,nlcdtype(50,3),usgstype(50,3),modistype(50,3) & ,bin_spectra(50,50,2),nlcd_spectra(50,50,2) & ,usgs_spectra(50,50,2),modis_spectra(50,50,2) & ,albedomap(6,64),temparray(500,3) integer c(65),d(65),e(65),f(65),icount,jcount,kcount,i,ix,iz & ,n,ii,jj,nn icount = 0 jcount = 0 kcount = 0 nlcdtype(1:50,1:3) = 0.d0 usgstype(1:50,1:3) = 0.d0 modistype(1:50,1:3) = 0.d0 nlcd_spectra(1:50,1:50,1:2) = 0.0 usgs_spectra(1:50,1:50,1:2) = 0.0 modis_spectra(1:50,1:50,1:2) = 0.0 albedomap(1:6,1:64) = 0.0 temparray(1:500,1:3) = 0.0 call nlcdusgsmodis(albedomap) do 190 i = 1,64 a(i) = albedomap(1,i) b(i) = albedomap(2,i) c(i) = int(albedomap(3,i)) d(i) = int(albedomap(4,i)) e(i) = int(albedomap(5,i)) f(i) = int(albedomap(6,i)) 190 continue do 290 i = 1,64 if(a(i).ne.0)then icount = icount + 1 temparray(icount,1) = real(c(i)) temparray(icount,2) = a(i) temparray(icount,3) = real(f(i)) endif 290 continue do 390 i = 1,64 if(b(i).ne.0)then jcount = jcount + 1 temparray(jcount+icount,1) = real(d(i)) temparray(jcount+icount,2) = b(i) temparray(jcount+icount,3) = real(f(i)) endif 390 continue do 490 i = 1,64 if(e(i).ne.0)then kcount = kcount + 1 temparray(kcount+icount+jcount,1) = real(e(i)) temparray(kcount+icount+jcount,2) = 1. temparray(kcount+icount+jcount,3) = real(f(i)) endif 490 continue rewind(8) do 590 i = 1,icount ix = int(temparray(i,1)) y = temparray(i,2) iz = int(temparray(i,3)) nlcdmap(ix,1)=iz nlcdmap(ix,2)=y 590 continue do 690 i = 1,jcount ix = int(temparray(i+icount,1)) y = temparray(i+icount,2) iz = int(temparray(i+icount,3)) usgsmap(ix,1)=iz usgsmap(ix,2)=y 690 continue do 790 i = 1,kcount ix = int(temparray(i+icount+jcount,1)) y = temparray(i+icount+jcount,2) iz = int(temparray(i+icount+jcount,3)) modismap(ix,1)=iz modismap(ix,2)=y 790 continue do 890 i = 1,icount nlcdtype(i,1) = real(i) nlcdtype(i,2) = nlcdmap(i,1) nlcdtype(i,3) = nlcdmap(i,2) 890 continue do 990 i = 1,jcount usgstype(i,1) = real(i) usgstype(i,2) = usgsmap(i,1) usgstype(i,3) = usgsmap(i,2) 990 continue do 1090 i = 1,kcount modistype(i,1) = real(i) modistype(i,2) = modismap(i,1) modistype(i,3) = modismap(i,2) 1090 continue ! NLCD Map do 2190 i = 1,icount do 2170 nn = 1,n nlcd_spectra(i,nn,1) = bin_spectra(int(nlcdtype(i,2)),nn,1) nlcd_spectra(i,nn,2) = bin_spectra(int(nlcdtype(i,2)),nn,2) & *nlcdtype(i,3) nlcd_spectra(i,nn,2) = min(nlcd_spectra(i,nn,2),1.00) nlcd_spectra(i,nn,2) = max(nlcd_spectra(i,nn,2),0.00) !! write(19,2000)i,nn,nlcd_spectra(i,nn,1),nlcd_spectra(i,nn,2) 2000 format(2i6,2f12.4) 2170 continue 2190 continue ! USGS MAP do 3190 i = 1,jcount do 3170 nn = 1,n usgs_spectra(i,nn,1) = bin_spectra(int(usgstype(i,2)),nn,1) usgs_spectra(i,nn,2) = bin_spectra(int(usgstype(i,2)),nn,2) & *usgstype(i,3) usgs_spectra(i,nn,2) = min(usgs_spectra(i,nn,2),1.00) usgs_spectra(i,nn,2) = max(usgs_spectra(i,nn,2),0.00) !! write(19,2000)i,nn,usgs_spectra(i,nn,1),usgs_spectra(i,nn,2) 3170 continue 3190 continue ! MODIS Map do 4190 i = 1,kcount do 4170 nn = 1,n modis_spectra(i,nn,1) = bin_spectra(int(modistype(i,2)),nn,1) modis_spectra(i,nn,2) = bin_spectra(int(modistype(i,2)),nn,2) & *modistype(i,3) modis_spectra(i,nn,2) = min(modis_spectra(i,nn,2),1.00) modis_spectra(i,nn,2) = max(modis_spectra(i,nn,2),0.00) !! write(19,2000)i,nn,modis_spectra(i,nn,1),modis_spectra(i,nn,2) 4170 continue 4190 continue return end !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! subroutine nlcdusgsmodis( & albedomap) implicit none integer i,j real*4 categorymap(6,64),albedomap(6,64) ! NLCD2MODIS,USGS2MODIS,NLCD2SPEC,USGS2SPEC,MODIS2SPEC,SPEC data categorymap / & 0, 0, 0, 0, 0, 0 &, 0, 0, 0, 0, 0, 0 &, 1, 0, 1, 0, 0, 17 &, 1.0, 0, 2, 0, 0, 15 &, 1.0667, 0, 3, 0, 0, 13 &, 1.1333, 0, 4, 0, 0, 13 &, 1.0667, 0, 5, 0, 0, 13 &, 1.1333, 0, 6, 0, 0, 13 &, 0.8, 0, 7, 0, 0, 16 &, 1.4, 0, 8, 0, 0, 16 &, 0.9375, 0, 9, 0, 0, 4 &, 0.8333, 0, 10, 0, 0, 1 &, 1, 0, 11, 0, 0, 5 &, 1, 0, 12, 0, 0, 7 &, 1, 0, 13, 0, 0, 7 &, 1.1364, 0, 14, 0, 0, 8 &, 1.0455, 0, 15, 0, 0, 8 &, 1.0526, 0, 16, 0, 0, 10 &, 1.0526, 0, 17, 0, 0, 10 &, 1, 1, 18, 22, 0, 18 &, 1.2778, 0, 19, 0, 0, 14 &, 1.1765, 1.0588, 20, 4, 0, 12 &, 1.0714, 1, 21, 17, 0, 11 &, 1.0714, 0, 22, 0, 0, 11 &, 1.0714, 0, 23, 0, 0, 11 &, 1.0714, 0, 24, 0, 0, 11 &, 1.0714, 0, 25, 0, 0, 11 &, 1.2857, 0, 26, 0, 0, 11 &, 1.2857, 0, 27, 0, 0, 11 &, 1.2857, 0, 28, 0, 0, 11 &, 1.25, 0, 29, 0, 0, 17 &, 1.25, 0, 30, 0, 0, 17 &, 1, 0, 31, 0, 0, 17 &, 1, 1, 32, 14, 1, 1 &, 1, 1, 33, 13, 2, 2 &, 1, 1, 34, 12, 3, 3 &, 1, 1, 35, 11, 4, 4 &, 1, 1, 36, 15, 5, 5 &, 1, 1, 37, 8, 6, 6 &, 1, 1, 38, 9, 7, 7 &, 1, 0, 39, 0, 8, 8 &, 1, 1, 40, 10, 9, 9 &, 1, 1, 41, 7, 10, 10 &, 1, 1, 42, 18, 11, 11 &, 1, 1, 43, 2, 12, 12 &, 1, 1, 44, 1, 13, 13 &, 1, 0, 45, 0, 14, 14 &, 1, 1, 46, 24, 15, 15 &, 1, 1, 47, 19, 16, 16 &, 1, 1, 48, 16, 17, 17 &, 1, 0, 49, 0, 0, 17 &, 1, 0, 50, 0, 0, 17 &, 0, 0, 0, 0, 0, 0 &, 0, 1, 0, 20, 19, 18 &, 0, 1, 0, 21, 18, 18 &, 0, 0, 0, 0, 0, 0 &, 0, 1, 0, 23, 20, 18 &, 0, 0, 0, 0, 0, 0 &, 0, 1.0588, 0, 3, 0, 12 &, 0, 0, 0, 0, 0, 0 &, 0, 1, 0, 5, 0, 14 &, 0, 0.8889, 0, 6, 0, 14 &, 0, 0, 0, 0, 0, 19 &, 0, 0, 0, 0, 0, 20 / do 190 i = 1,64 do 170 j = 1,6 albedomap(j,i) = categorymap(j,i) 170 continue 190 continue return end !*********************************************************************** !1 Asner, G. Biophysical and biochemical sources of variability in canopy reflectance. ! Remote Sens. Environ. 64:234-253, 1998. ! !2 Belward, A., and T. Loveland. The DIS 1km Land Cover Data Set, Global Change, The ! IGBP Newsletter, #27, Sep., 1996. ! !3 Betts, A. K., and J. H. Ball. Albedo over the Boreal Forest, ! J. Geophys. Res., 102, 28901-28909, 1997. ! !4 Blumthaler, M., and W. Ambach. Solar UVB-albedo of various surfaces. ! Photochem. Photobiol. 48(1) 85-88, 1988. ! !5 Bowker, D. E., R. E. Davis, D. L. Myrick, K. Stacy, and W. T. Jones. ! Spectral Reflectances of Natural Targets for use in Remote Sensing Studies, ! NASA Ref. Pub., 1139, June 1985. ! !6 Briegleb, B. P., P. Minnis, V. Ramanathan, and E. Harrison. Comparison of Regional ! Clear-Sky Albedos Inferred from Satellite Observations and Models Comparisons, ! J. Clim. Appl. Meteor., 25, 214-226, 1986. ! !7 Briegleb, B. P., and V. Ramanathan. Spectral and Diurnal Variations in Clear Sky ! Planetary Albedo, J. Appl. Meteor., 21, 1160-1171, 1982. ! !8 Coddington, Odele, K. S. Schmidt, P. Pilewskie, W. J. Gore, R. W. Bergstrom, ! M. Roman, J. Redemann, P. B.Russell, J. Liu, and C. C. Schaaf. Aircraft measurements of ! spectral surface albedo and its consistency with ground-based and space-borne observations. ! J. Geophys. Res. 113 (D17209), 2008. ! !9 Dozier, J. Spectral signature of alpine snow cover from the Landsat Thematic Mapper. ! Remote Sens. Environ. 28:9-22, 1989. ! !10 Dozier, J., R. E. Davis, and R. Perla. On the objective analysis of snow microstructure. ! Avalanche Formation, Movement and Effects (proceedings of the Davos Symposium, Sept. 1986. ! IAHS Publ. no. 162, 1987. ! !11 Dozier, J. and T. H. Painter. Multispectral and hyperspectral remote sensing of alpine ! snow properties. Annu. Rev. Earth Planet. Sci. 32:465-94, 2004. ! !12 Dozier, J, and S. G. Warren. Effect of viewing angle on the infrared brightness ! temperature of snow. Water Resources Research, 18(5) 1424-1434, 1982. ! !13 Feister, U., and R. Grewe. Spectral albedo measurements in the uv and visible region ! over different types of surfaces. Photochem.Photbiol. 62(4) 736-744, 1995. ! !14 Fu, Qiang, and K.N. Liou. ON the Correlated k-Distribution Moethod for Radiative ! Transfer in Nonhomogeneous Atmospheres. J. Atmos. Sci. 49(22) 2139-2156, 1992. ! !15 Grenfell, T. C. and D. K. Perovich. Spectral albedos of sea ice and incident solar ! irradiance in the Southern Beaufort Sea, J. Geophys. Res., 89, 3573-3580. 1984. ! !16 Grenfell, T. C., S. G. Warren, and P. C. Mullen. Reflection of Solar Radiation By ! The Antarctic Snow Surface at Ultraviolet, Visible, and Near-Infrared Wavelengths, J. Geophys. Res., 99, 18669-18684, 1994. ! !17 Hansen, F. V. Albedos. Army Research Laboratory. ARL-TR-57, 1993. ! !18 Jin, Y, C.B. Schaaf, F. Gao, X. Li, and A.H. Strahler. How does snow impact ! the albedo of vegetated land surfaces as analysized with MODIS data? Geophys. Res. ! Lett. 29(10) 1374. 2002 !19 Koelemeijer, R. B. A., J. F. de Haan, and P. Stammes. A database of spectral surface ! reflectivity in the range 335-772 nm derived from 5.5 years of GOME observations. ! J. Geophys. Res. 108(D2) 4070, 2003. ! !20 Laepple, T. and M. G. Schultz. Improved albedo formulation for chemistry transport ! models based on satellite observations and assimilated snow data and its impact on tropospheric ! photochemistry. J. Geophys. Res. 110(D) 11308, 2005. ! !21 Lundberg, A, and J. Beringer. Albedo and snowmelt rates across a trundra-to-forest ! transition. 15th Inter. Northern Research Basins Symposium and Workshop, Lulea, Sweden, ! 29 Aug ? 2 Sep, 2005. ! !22 Michalsky, J. J., Q. L. Min, J. C. Barnard, R. T.Marchand, P. Pilewskie. Simultaneous ! spectral albedo measurements near the ARM SGP central facility. Twelfth ARM Science Team Meeting ! Proceedings, St. Petersburg, FL, USA. April 8-12, 2002. ! !23 Moody, E.G, M.D. King, S. Platnick, C.B. Schaaf, F. Gao. Spatially complete global spectral ! surface albedos: value-added datasets derived from Terra MODIS land products. IEEE Trans. ! On Geoscience and Remote Sens. 43(1) 144-158. 2005. ! !24 Moody, E.G, M.D. King, C.B. Schaaf, D.K. Hall, and S. Platnick. Northern Hemisphere ! five-year average (2000-2004) spectral albedos of surfaces in the presence of snow: Statistics ! computed from Terra MODIS land products. Remote Sens. Environment. 111, 337-345. 2007. ! !25 Payne, R. E., Albedo of the Sea Surface, J. Atmos. Sci., 29, 959-970, 1972. ! !26 Petzold, D. E., and A. N. Rencz. The albedo of selected subarctic surfaces. Arctic and ! Alpine Res. 7(4) 393-8, 1975. ! !27 Pinker, R. T., and A. Karnieli. Characteristic Spectral Reflectance of a semi-arid environment, ! Int. J. Rem. Sens., 1995. ! !28 Privette, J. L, T. F. Eck, D. W. Deering. Estimating spectral albedo and nadir reflectance ! through inversion of simple BRDF models with AVHRR/MODIS-like data. ! J. Geophys. Res. 102(D24) 29,529-29,542, 1997. ! !29 Roesch, A., C. Schaaf, and F. Gao. Use of Moderate-Resolution Imaging Spectroradiometer ! bidirectional reflectance distribution function products to enhance simulated surface albedos. ! J. Geophys. Res. 109(D) 12,105, 2004. ! !30 Staylor W. F. and A.C. Wilber. Global surface albedos estimated from ERBE data, ! Proceedings, 7th Conf. on Atmos. Rad., San Francisco, CA, 1990. ! !31 Taberner, M. B. Pinty, Y. Govaerts, S. Liang, M.M. Verstraete, N. Gobron, and J.L. Widlowski. ! Comparison of MISR and MODIS land surface albedos: methodology. ! J. Geophys. Res. 115(D) 05101, 2010. ! !32 Tsuyuzaki, S., K Kushida, Y Kodama. Recovery of surface albedo and plant cover ! after wildfire in a Picea mariana forest in interior Alaska. Climatic Change 93:517?525, 2009. ! !33 Wilber, A.C., D. P. Kratz, S. K. Gupta, Surface Emissivity Maps for Use of Satellite ! Retrievals of Longwave Radiation, NASA Tech. Pub., TP-99-209362, 1999. ! !34 Wendisch, M. P. Pilewskie, E. Jakel, S. Schmidt, J. Pommier, S. Howard, H.H. Jonsson, ! H Guan, M. Schroder, and B. Mayer. Airborne measurements of areal spectral surface albedo over ! different sea and land surfaces. J. Geophys. Res. 109(D) 08203, 2004. ! !35 Warren, S. G., and W. J. Wiscombe. A model for the spectral albedo of snow. ! II: Snow containing atmospheric aerosols. J. Atmosph. Sci. 37(12) 2734-45, 1980. ! ================================================ FILE: UTIL/inline_phot_preproc/src/vegeland_striecher-wth.f ================================================ program veg ! PURPOSE: For specified photolysis module ("INLINE", or "SPHERAD"), ! and for specified solar zenith angle (sza), Julian day (jd), and ! snow flag (snowflag), returns reflectances (spectral albedos) for ! each of 3 landuse categorization schemes (NLCD, USGS, and MODIS) ! that are specific to the solar zenith angle, Julian day, snow ! conditions,and the spectral bin structure of the photolysis module. ! ADVISORY: This module should be called when sza, jd, or snowflag changes ! DEVELOPED: August 2010. John Streicher USEPA/ORD/NERL/AMAD ! INPUT: rtmodule,sza[deg],jd [integer],snowflag [0=no;1=yes] ! OUTPUT: reflectance ! CALLS: reflectances,season_correction,spectralalbedo,mapalbedo ! CALLED BY: main implicit none character*7 rtmodule integer jd,snowflag,n,isza,i real*4 sza,specalbsza(20,15,2),specalbszassn(20,15,2) & ,bin_spectra(50,50,2),nlcd_spectra(50,50,2) & ,usgs_spectra(50,50,2),modis_spectra(50,50,2) ! The following (sza; rtmodule='INLINE', or 'SPHERAD'; jd; snowflag) ! are temporarily hardcoded. ! Replace with user-selected values when incorporated into MCIP or WRF-CMAQ. rtmodule = 'INLINE' ! rtmodule = 'SPECTRA' sza = 30. jd = 180 snowflag = 0 call reflectances(sza, specalbsza) call season_correction(specalbsza,jd,snowflag & ,specalbszassn) call spectralalbedo(specalbszassn,rtmodule & ,n,bin_spectra ) call mapalbedo(n,bin_spectra & ,nlcd_spectra,usgs_spectra,modis_spectra ) stop end !*********************************************************************** subroutine reflectances(sza & ,specalbsza) ! PURPOSE: Populate array specalbsza with sza-specific reflectances (i.e. ! spectral albedos) for each of 20 land use types. Correct for ! solar zenith angle, and adjust spectral albedos to better match ! MODIS non-spectral estimates for each MODIS land use type. ! REFERENCE: CERES/SARB Surface Properties database, May 2006 ! http://www-surf/larc.nasa.gov/surf/pages/data-page.html ! INPUT: sza[deg] ! OUTPUT: specalbsza(20,15,2) ! CALLS: none ! CALLED BY: veg implicit none INTEGER, PARAMETER :: NUMB_LANDUSE_MODIS = 20 INTEGER, PARAMETER :: NUMB_BANDS_MODIS = 15 character*30 landuse(20) integer i,j,k REAL(4) bands(15),SPECTRAL_ALBEDO(15,20),dterm(20),specalbsza(20,15,2) & ,pi,specenhancement,u0,sza,modis2spectral(20) REAL( 4 ) :: ZENITH_COEFF( NUMB_LANDUSE_MODIS ) REAL( 4 ) :: WVBAND( NUMB_BANDS_MODIS ) REAL( 4 ) :: ZENITH_CORRECTION INTEGER :: IWL specalbsza(1:20,1:15,1:2) = 0.0 pi = dacos(-1.d0) data landuse / & 'EVERGREEN NEEDLE FOREST' &,'EVERGREEN BROADLEAF FOREST' &,'DECIDUOUS NEEDLE FOREST' &,'DECIDUOUS BROADLEAF FOREST' &,'MIXED FOREST' &,'CLOSED SHRUBS' &,'OPEN / SHRUBS' &,'WOODY SAVANNA' &,'SAVANNA' &,'GRASSLAND' &,'PERMANENT WETLANDS' &,'CROPLAND' &,'URBAN' &,'CROP MOSAIC' &,'PERMANENT SNOW' &,'BARREN / DESSERT' &,'OCEAN WATER' &,'TUNDRA' &,'FRESH SNOW' &,'SEA ICE' / data WVBAND / & 200.05, 234.3, 264.8, 292.1, 310.5, & 340.0, 397.5, 467.5, 546.25, 642.3, & 1000.0, 1550.0, 2150.0, 3000.0, 3750.0 / ! *** Spectral Reflectances DATA (SPECTRAL_ALBEDO(IWL, 1), IWL = 1, NUMB_BANDS_MODIS) / & 0.032, 0.032, 0.032, 0.032, 0.032 ! (1) EVERGREEN NEEDLE FOREST & , 0.032, 0.032, 0.032, 0.046, 0.046 & , 0.235, 0.096, 0.038, 0.038, 0.038 / DATA (SPECTRAL_ALBEDO(IWL, 2), IWL = 1, NUMB_BANDS_MODIS) / & 0.044, 0.044, 0.044, 0.044, 0.044 ! ( 2) EVERGREEN BROADLEAF FOR & , 0.044, 0.044, 0.044, 0.044, 0.044 ! (Tropical Forest) & , 0.234, 0.193, 0.112, 0.112, 0.112 / DATA (SPECTRAL_ALBEDO(IWL, 3), IWL = 1, NUMB_BANDS_MODIS) / & 0.032, 0.032, 0.032, 0.032, 0.032 ! ( 3) DECIDUOUS NEEDLE FOREST & , 0.032, 0.032, 0.032, 0.046, 0.046 & , 0.235, 0.096, 0.038, 0.038, 0.038 / DATA (SPECTRAL_ALBEDO(IWL, 4), IWL = 1, NUMB_BANDS_MODIS) / & 0.034, 0.034, 0.034, 0.034, 0.034 ! ( 4) DECIDUOUS BROADLEAF FOR & , 0.034, 0.034, 0.034, 0.066, 0.067 & , 0.312, 0.276, 0.160, 0.160, 0.160 / DATA (SPECTRAL_ALBEDO(IWL, 5), IWL = 1, NUMB_BANDS_MODIS) / & 0.033, 0.033, 0.033, 0.033, 0.033 ! ( 5) MIXED FOREST & , 0.033, 0.033, 0.033, 0.056, 0.057 & , 0.274, 0.186, 0.099, 0.099, 0.099 / DATA (SPECTRAL_ALBEDO(IWL, 6), IWL = 1, NUMB_BANDS_MODIS) / & 0.010, 0.010, 0.010, 0.015, 0.017 ! ( 6) CLOSED SHRUBS & , 0.020, 0.036, 0.045, 0.055, 0.156 & , 0.350, 0.239, 0.101, 0.101, 0.101 / DATA (SPECTRAL_ALBEDO(IWL, 7), IWL = 1, NUMB_BANDS_MODIS) / & 0.095, 0.095, 0.095, 0.095, 0.095 ! ( 7) OPEN/SHRUBS & , 0.095, 0.098, 0.104, 0.122, 0.157 & , 0.231, 0.330, 0.311, 0.150, 0.150 / DATA (SPECTRAL_ALBEDO(IWL, 8), IWL = 1, NUMB_BANDS_MODIS) / & 0.020, 0.020, 0.020, 0.023, 0.024 ! ( 8) WOODY SAVANNA (Decid Broadleaf*0.4 + Grass*0.6) & , 0.026, 0.035, 0.041, 0.102, 0.104 & , 0.366, 0.291, 0.151, 0.107, 0.107 / DATA (SPECTRAL_ALBEDO(IWL, 9), IWL = 1, NUMB_BANDS_MODIS) / & 0.010, 0.010, 0.010, 0.015, 0.017 ! ( 9) SAVANNA & , 0.020, 0.036, 0.045, 0.126, 0.129 & , 0.402, 0.301, 0.145, 0.071, 0.071 / DATA (SPECTRAL_ALBEDO(IWL, 10), IWL = 1, NUMB_BANDS_MODIS) / & 0.010, 0.010, 0.010, 0.015, 0.017 ! (10) GRASSLAND & , 0.020, 0.036, 0.045, 0.126, 0.129 & , 0.402, 0.301, 0.145, 0.071, 0.071 / DATA (SPECTRAL_ALBEDO(IWL, 11), IWL = 1, NUMB_BANDS_MODIS) / & 0.039, 0.039, 0.039, 0.039, 0.039 ! (11) PERMANENT WETLANDS & , 0.039, 0.039, 0.039, 0.051, 0.071 & , 0.164, 0.100, 0.056, 0.056, 0.056 / DATA (SPECTRAL_ALBEDO(IWL, 12), IWL = 1, NUMB_BANDS_MODIS) / & 0.010, 0.010, 0.010, 0.015, 0.017 ! (12) CROPLAND & , 0.020, 0.036, 0.045, 0.115, 0.099 & , 0.442, 0.271, 0.122, 0.059, 0.059 / DATA (SPECTRAL_ALBEDO(IWL, 13), IWL = 1, NUMB_BANDS_MODIS) / & 0.052, 0.052, 0.052, 0.052, 0.052 ! (13) URBAN & , 0.052, 0.052, 0.066, 0.104, 0.114 & , 0.304, 0.258, 0.258, 0.258, 0.258 / DATA (SPECTRAL_ALBEDO(IWL, 14), IWL = 1, NUMB_BANDS_MODIS) / & 0.010, 0.010, 0.010, 0.015, 0.017 ! (14) CROP MOSAIC & , 0.020, 0.036, 0.045, 0.090, 0.083 & , 0.377, 0.273, 0.141, 0.110, 0.110 / DATA (SPECTRAL_ALBEDO(IWL, 15), IWL = 1, NUMB_BANDS_MODIS) / & 0.910, 0.910, 0.910, 0.916, 0.921 ! (15) PERMANENT SNOW & , 0.931, 0.947, 0.964, 0.953, 0.920 & , 0.635, 0.013, 0.006, 0.009, 0.014 / DATA (SPECTRAL_ALBEDO(IWL, 16), IWL = 1, NUMB_BANDS_MODIS) / & 0.144, 0.144, 0.144, 0.144, 0.144 ! (16) BARREN/DESERT & , 0.144, 0.144, 0.179, 0.263, 0.331 & , 0.405, 0.390, 0.390, 0.390, 0.390 / DATA (SPECTRAL_ALBEDO(IWL, 17), IWL = 1, NUMB_BANDS_MODIS) / & 0.066, 0.066, 0.066, 0.070, 0.073 ! (17) OCEAN WATER & , 0.082, 0.094, 0.091, 0.078, 0.072 & , 0.066, 0.062, 0.055, 0.044, 0.069 / DATA (SPECTRAL_ALBEDO(IWL, 18), IWL = 1, NUMB_BANDS_MODIS) / & 0.180, 0.180, 0.180, 0.180, 0.180 ! (18) TUNDRA (modified with Lundberg et al) & , 0.180, 0.180, 0.180, 0.180, 0.180 & , 0.247, 0.265, 0.265, 0.265, 0.265 / DATA (SPECTRAL_ALBEDO(IWL, 19), IWL = 1, NUMB_BANDS_MODIS) / & 0.979, 0.979, 0.979, 0.980, 0.982 ! (19) FRESH SNOW & , 0.984, 0.988, 0.992, 0.989, 0.982 & , 0.902, 0.143, 0.168, 0.019, 0.015 / DATA (SPECTRAL_ALBEDO(IWL, 20), IWL = 1, NUMB_BANDS_MODIS) / & 0.778, 0.778, 0.778, 0.778, 0.778 ! (20) SEA ICE & , 0.778, 0.778, 0.778, 0.778, 0.752 & , 0.393, 0.055, 0.054, 0.036, 0.036 / ! *** Land-use type-dependent solar zenith adjustment factor data ZENITH_COEFF / & 0.40, ! ( 1) EVERGREEN NEEDLE FOR & 0.44, ! ( 2) EVERGREEN BROAD FOR & 0.32, ! ( 3) DECIDUOUS NEEDLE FOR & 0.39, ! ( 4) DECIDUOUS BROAD FOR & 0.22, ! ( 5) MIXED FOREST & 0.28, ! ( 6) CLOSED SHRUBS & 0.40, ! ( 7) OPEN/SHRUBS & 0.47, ! ( 8) WOODY SAVANNA & 0.53, ! ( 9) SAVANNA & 0.53, ! (10) GRASSLAND & 0.35, ! (11) WETLAND & 0.41, ! (12) CROPLAND (CAGEX-APR) & 0.10, ! (13) URBAN & 0.40, ! (14) CROP MOSAIC & 0.10, ! (15) ANTARCTIC SNOW & 0.40, ! (16) BARREN/DESERT & 0.41, ! (17) OCEAN WATER & 0.58, ! (18) TUNDRA & 0.10, ! (19) FRESH SNOW & 0.10 / ! (20) SEA ICE ! The following scale factors are applied to the spectral albedos to bring ! them into closer agreement (in the visible spectrum) with the MODIS fixed albedos data MODIS2SPECTRAL / & 3.5, ! (1) & 2.5, ! (2) & 4.0, ! (3) & 2.5, ! (4) & 3.0, ! (5) & 3.0, ! (6) & 2.0, ! (7) & 2.5, ! (8) & 1.5, ! (9) & 2.0, ! (10) & 2.0, ! (11) & 1.5, ! (12) & 1.5, ! (13) & 2.5, ! (14) & 1.0, ! (15) & 1.0, ! (16) & 1.0, ! (17) & 1.0, ! (18) & 1.0, ! (19) & 1.0 / ! (20) !The folowing loops indicate use LUC (as "j), and band (as "i") u0 = dcos((pi/180.d0)*sza) do 270 j = 1,20 do 250 i = 1,15 ZENITH_CORRECTION = (1.0 + ZENITH_COEFF(j)) & / (1.0 + 2.0*u0*ZENITH_COEFF(j)) ZENITH_CORRECTION = max(0.8,ZENITH_CORRECTION) specalbsza(j,i,1) = WVBAND(I) specalbsza(j,i,2) = min(1.0, & (ZENITH_CORRECTION*SPECTRAL_ALBEDO(i,j))) if((modis2spectral(j)*specalbsza(j,i,2)).le.1.0)then specalbsza(j,i,2) = modis2spectral(j)*specalbsza(j,i,2) else specalbsza(j,i,2) = 1.0 endif 250 continue 270 continue !Output is specalbsza(j,i,2): 20 spectral albedos x 15 bands return end !*********************************************************************** subroutine season_correction(specalbsza,jd,snowflag & ,specalbszassn) ! PURPOSE: Modify the sza-specific spectral albedos to be further ! specific to Julian day ! REFERENCE: Moody et al (2005); Moody et al (2007); Jin et al (2002) ! INPUT: specalbsza,jd,snowflag ! OUTPUT: specalbszassn ! CALLS: none ! CALLED BY: veg implicit none integer jd,i,j,snowflag real*4 specalbsza(20,15,2),specalbszassn(20,15,2) & ,ssn_correction(20),jd_correction(20),pi,scale,temp & ,snow_correction(20) specalbszassn(1:20,1:15,1:2) = 0.0 jd_correction(1:20) = 0.0 pi = dacos(-1.d0) data ssn_correction / & 0.73, ! EVERGREEN NEEDLE FOR & 0.84, ! EVERGREEN BROADLEAF FOR & 0.77, ! DECIDUOUS NEEDLE FOR & 0.73, ! DECIDOUS BROAD FOR & 0.78, ! MIXED FOREST & 0.73, ! CLOSED SHRUBS & 0.77, ! OPEN/SHRUBS & 0.78, ! WOODY SAVANNA & 0.78, ! SAVANNA & 0.79, ! GRASSLAND & 0.78, ! WETLAND & 0.80, ! CROPLAND & 0.67, ! URBAN & 0.80, ! CROP MOSAIC & 1.00, ! PERMANENT SNOW & 0.96, ! BARREN/DESERT & 1.00, ! OCEAN WATER & 0.25, ! TUNDRA (modified with Lundberg et al (2005)) & 1.00, ! FRESH SNOW & 1.00 /! SEA ICE ! scale ranges from [0,1]; scale = 0 on ~Jun21; = 1 on Dec21 temp = cos(2.0*pi*((real(jd)+11.0)/365.)) if(temp.ge.0.d0)then scale = 0.5*(1.+ sqrt(temp)) else scale = 0.5*(1.- sqrt(abs(temp))) endif do 90 i = 1,20 jd_correction(i) = scale*ssn_correction(i) - (scale-1.0)*1.0 90 continue do 190 i = 1,20 do 170 j = 1,15 specalbszassn(i,j,1) = specalbsza(i,j,1) specalbszassn(i,j,2) = specalbsza(i,j,2)/jd_correction(i) 170 continue 190 continue if(snowflag.eq.0)goto 999 data snow_correction / & 3.0, ! EVERGREEN NEEDLE FOR & 4.1, ! EVERGREEN BROADLEAF FOR & 3.1, ! DECIDUOUS NEEDLE FOR & 2.7, ! DECIDUOUS BROADLEAF FOR & 3.0, ! MIXED FOREST & 2.2, ! CLOSED SHRUBS & 3.6, ! OPEN/SHRUBS & 2.1, ! WOODY SAVANNA & 3.0, ! SAVANNA & 3.8, ! GRASSLAND & 4.9, ! WETLAND & 4.5, ! CROPLAND & 3.6, ! URBAN & 3.6, ! CROP MOSAIC & 1.7, ! PERMANENT SNOW & 3.5, ! BARREN/DESERT & 1.0, ! OCEAN WATER & 4.0, ! TUNDRA (modified with Lundberg et al (2005)) & 1.0, ! FRESH SNOW & 1.3 /! SEA ICE do 290 i = 1,20 do 270 j = 1,15 specalbszassn(i,j,2) = snow_correction(i)*specalbszassn(i,j,2) if(specalbszassn(i,j,2).gt.1.)then specalbszassn(i,j,2) = 1.0 endif 270 continue 290 continue 999 return end !*********************************************************************** subroutine spectralalbedo(specalbszassn,rtmodule & ,n,bin_spectra ) ! PURPOSE: Bin the sza-,season-specific spectral albedo data into the wavelength ! bins of the selected photolysis module ! INPUT: specalbszassn,rtmodule ! OUTPUT: bin_spectra ! CALLS: get_bin_data,cutpoints,assign ! CALLED BY: veg implicit none character rtmodule*7 integer choice,n,ncat,countforlabel(50) real*4 wavebin(50),cutpoint(50),specalbszassn(20,15,2) & ,nlcd_spectra(50,200,2) & ,bin_spectra(50,50,2),n2,sza bin_spectra(1:50,1:50,1:2) = 0.0 call get_bin_data(rtmodule & ,wavebin,n) call cutpoints(wavebin,n,rtmodule & ,cutpoint) call assign(cutpoint,n,specalbszassn,ncat,countforlabel,wavebin & ,bin_spectra) return end !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! subroutine assign(cutpoint,n,specalbszassn,ncat,countforlabel & ,wavebin & ,bin_spectra) implicit none integer n,ncat,countforlabel(50),i,j,k,kcount,jj,zeroflag real*4 cutpoint(50),specalbszassn(20,15,2),wavebin(50) & ,bin_spectra(50,50,2) & ,accumulate1,accumulate2 do 190 i = 1,20 do 170 j = 2,n+1 kcount = 0 accumulate1 = 0.d0 accumulate2 = 0.d0 do 150 k = 1,15 if((specalbszassn(i,k,1).le.cutpoint(j)).and. & (specalbszassn(i,k,1).gt.cutpoint(j-1)))then kcount = kcount + 1 accumulate2 = accumulate2 + specalbszassn(i,k,2) endif 150 continue if(kcount.ne.0)then accumulate2 = accumulate2/real(kcount) bin_spectra(i,j,1) = wavebin(j-1) bin_spectra(i,j,2) = accumulate2 elseif(kcount.eq.0)then bin_spectra(i,j,1) = wavebin(j-1) bin_spectra(i,j,2) = 0.d0 endif 160 format(2f12.3,i6,f12.3) 170 continue 190 continue ! First bin do 230 i = 1,20 if(bin_spectra(i,2,2).le.1.d-5)then do 220 k = 1,15 if(specalbszassn(i,k,1).gt.cutpoint(1))then bin_spectra(i,2,2) = specalbszassn(i,k-1,2) goto 225 endif 220 continue 225 if(bin_spectra(i,3,2).ne.0.d0)then bin_spectra(i,2,2) = (bin_spectra(i,2,2) & +bin_spectra(i,3,2))/2.d0 endif endif 230 continue ! Last bin do 250 i = 1,20 if(bin_spectra(i,n+1,2).le.1.d-5)then do 240 k = 15,1,-1 if(specalbszassn(i,k,1).lt.cutpoint(n))then bin_spectra(i,n+1,2) = specalbszassn(i,k+1,2) goto 245 endif 240 continue 245 if(bin_spectra(i,n,2).ne.0.d0)then bin_spectra(i,n+1,2) = (bin_spectra(i,n+1,2) & +bin_spectra(i,n,2))/2.d0 endif endif 250 continue do 290 i = 1,20 255 zeroflag = 0 do 270 j = 2,n-1 if(bin_spectra(i,j,2).eq.0.d0)then zeroflag = 1 if((bin_spectra(i,j-1,2).ne.0.d0).and. & (bin_spectra(i,j+1,2).ne.0.d0))then bin_spectra(i,j,2)=(bin_spectra(i,j-1,2) & +bin_spectra(i,j+1,2))/2.d0 goto 270 elseif(bin_spectra(i,j-1,2).ne.0.d0)then bin_spectra(i,j,2) = bin_spectra(i,j-1,2) goto 270 elseif(bin_spectra(i,j+1,2).ne.0.d0)then bin_spectra(i,j,2) = bin_spectra(i,j+1,2) goto 270 endif endif 270 continue if(zeroflag.eq.1)goto 255 290 continue do 390 i = 1,20 do 370 j = 2,n+1 bin_spectra(i,j-1,1) = bin_spectra(i,j,1) bin_spectra(i,j-1,2) = bin_spectra(i,j,2) 360 format(2i6,2f12.3) 370 continue 390 continue return end !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! subroutine cutpoints(wavebin,n,rtmodule & ,cutpoint) implicit none character rtmodule*7 integer n,i real*4 wavebin(50),cutpoint(50) cutpoint(1) = wavebin(1) - (wavebin(2) - wavebin(1))/2.d0 do 190 i = 2,n cutpoint(i) = (wavebin(i-1) + wavebin(i))/2.d0 ! Exception: if((rtmodule.eq.'SPHERAD').and.(i.eq.24))then cutpoint(i) = 402.5 endif 190 continue cutpoint(n+1) = wavebin(n) + (wavebin(n) - wavebin(n-1))/2.d0 return end !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! subroutine get_bin_data(rtmodule & ,wavebin,n) implicit none character rtmodule*7 integer n,i real*4 wavebin(50),xwavebin(30),ywavebin(30),zwavebin(30) wavebin(1:50) = 0.d0 data xwavebin / & 295.0, 303.0, 310.0, 316.0, 333.0 & , 380.0, 574.0, 0.0, 0.0, 0.0 & , 0.0, 0.0, 0.0, 0.0, 0.0 & , 0.0, 0.0, 0.0, 0.0, 0.0 & , 0.0, 0.0, 0.0, 0.0, 0.0 & , 0.0, 0.0, 0.0, 0.0, 0.0 / data ywavebin / & 290.0, 295.0, 300.0, 305.0, 310.0 & , 315.0, 320.0, 325.0, 330.0, 335.0 & , 340.0, 345.0, 350.0, 355.0, 360.0 & , 365.0, 370.0, 375.0, 380.0, 385.0 & , 390.0, 395.0, 400.0, 450.0, 550.0 & , 650.0, 750.0, 0.0, 0.0, 0.0 / DATA (ZWAVEBIN(I),I = 1,15) / & 200.05, 234.3, 264.8, 292.1, 310.5, & 340.0, 397.5, 467.5, 546.25, 642.3, & 1000.0, 1550.0, 2150.0, 3000.0, 3750.0 / if(rtmodule.eq.'INLINE')then n = 7 do 190 i = 1,n wavebin(i) = xwavebin(i) 190 continue elseif(rtmodule.eq.'SPHERAD')then n = 27 do 195 i = 1,n wavebin(i) = ywavebin(i) 195 continue ELSE n = 15 do i = 1,n wavebin(i) = zwavebin(i) enddo endif return end !*********************************************************************** !*********************************************************************** subroutine mapalbedo(n,bin_spectra & ,nlcd_spectra,usgs_spectra,modis_spectra) ! PURPOSE: Maps the 50 NLCD and 24 USGS landuse categories to the closest ! 20 MODIS categories - with a weighting factor applied to the mapping ! for continuity of albedo of NLCD/USGS to MODIS. 17 of the 20 MODIS ! categories are then mapped to 17 uniquely corresponding spectral albedo ! categories; 3 MODIS categories (Wooded Tundra, Mixed Tundra, and Barren ! TUNDRA) are mapped to spectral "Tundra". ! INPUT: n,bin_spectra ! OUTPUT: nlcd_spectra,usgs_spectra,modis_spectra ! CALLS: nlcdusgsmodis ! CALLED BY: veg implicit none real*4 nlcdmap(65,2),usgsmap(65,2),modismap(65,2) & ,a(65),b(65),y,nlcdtype(50,3),usgstype(50,3),modistype(50,3) & ,bin_spectra(50,50,2),nlcd_spectra(50,50,2) & ,usgs_spectra(50,50,2),modis_spectra(50,50,2) & ,albedomap(6,64),temparray(500,3) integer c(65),d(65),e(65),f(65),icount,jcount,kcount,i,ix,iz & ,n,ii,jj,nn icount = 0 jcount = 0 kcount = 0 nlcdtype(1:50,1:3) = 0.d0 usgstype(1:50,1:3) = 0.d0 modistype(1:50,1:3) = 0.d0 nlcd_spectra(1:50,1:50,1:2) = 0.0 usgs_spectra(1:50,1:50,1:2) = 0.0 modis_spectra(1:50,1:50,1:2) = 0.0 albedomap(1:6,1:64) = 0.0 temparray(1:500,1:3) = 0.0 call nlcdusgsmodis(albedomap) do 190 i = 1,64 a(i) = albedomap(1,i) b(i) = albedomap(2,i) c(i) = int(albedomap(3,i)) d(i) = int(albedomap(4,i)) e(i) = int(albedomap(5,i)) f(i) = int(albedomap(6,i)) 190 continue do 290 i = 1,64 if(a(i).ne.0)then icount = icount + 1 temparray(icount,1) = real(c(i)) temparray(icount,2) = a(i) temparray(icount,3) = real(f(i)) endif 290 continue do 390 i = 1,64 if(b(i).ne.0)then jcount = jcount + 1 temparray(jcount+icount,1) = real(d(i)) temparray(jcount+icount,2) = b(i) temparray(jcount+icount,3) = real(f(i)) endif 390 continue do 490 i = 1,64 if(e(i).ne.0)then kcount = kcount + 1 temparray(kcount+icount+jcount,1) = real(e(i)) temparray(kcount+icount+jcount,2) = 1. temparray(kcount+icount+jcount,3) = real(f(i)) endif 490 continue rewind(8) do 590 i = 1,icount ix = int(temparray(i,1)) y = temparray(i,2) iz = int(temparray(i,3)) nlcdmap(ix,1)=iz nlcdmap(ix,2)=y 590 continue do 690 i = 1,jcount ix = int(temparray(i+icount,1)) y = temparray(i+icount,2) iz = int(temparray(i+icount,3)) usgsmap(ix,1)=iz usgsmap(ix,2)=y 690 continue do 790 i = 1,kcount ix = int(temparray(i+icount+jcount,1)) y = temparray(i+icount+jcount,2) iz = int(temparray(i+icount+jcount,3)) modismap(ix,1)=iz modismap(ix,2)=y 790 continue do 890 i = 1,icount nlcdtype(i,1) = real(i) nlcdtype(i,2) = nlcdmap(i,1) nlcdtype(i,3) = nlcdmap(i,2) 890 continue do 990 i = 1,jcount usgstype(i,1) = real(i) usgstype(i,2) = usgsmap(i,1) usgstype(i,3) = usgsmap(i,2) 990 continue do 1090 i = 1,kcount modistype(i,1) = real(i) modistype(i,2) = modismap(i,1) modistype(i,3) = modismap(i,2) 1090 continue ! NLCD Map do 2190 i = 1,icount do 2170 nn = 1,n nlcd_spectra(i,nn,1) = bin_spectra(int(nlcdtype(i,2)),nn,1) nlcd_spectra(i,nn,2) = bin_spectra(int(nlcdtype(i,2)),nn,2) & *nlcdtype(i,3) nlcd_spectra(i,nn,2) = min(nlcd_spectra(i,nn,2),1.00) nlcd_spectra(i,nn,2) = max(nlcd_spectra(i,nn,2),0.00) write(6,2000)i,nn,nlcdtype(i,2),nlcdtype(i,3),nlcd_spectra(i,nn,1),nlcd_spectra(i,nn,2) 2000 format(2i6,4f12.4) 2170 continue 2190 continue pause ! USGS MAP do 3190 i = 1,jcount do 3170 nn = 1,n usgs_spectra(i,nn,1) = bin_spectra(int(usgstype(i,2)),nn,1) usgs_spectra(i,nn,2) = bin_spectra(int(usgstype(i,2)),nn,2) & *usgstype(i,3) usgs_spectra(i,nn,2) = min(usgs_spectra(i,nn,2),1.00) usgs_spectra(i,nn,2) = max(usgs_spectra(i,nn,2),0.00) write(6,2000)i,nn,usgstype(i,2),usgstype(i,3),usgs_spectra(i,nn,1),usgs_spectra(i,nn,2) 3170 continue 3190 continue pause ! MODIS Map do 4190 i = 1,kcount do 4170 nn = 1,n modis_spectra(i,nn,1) = bin_spectra(int(modistype(i,2)),nn,1) modis_spectra(i,nn,2) = bin_spectra(int(modistype(i,2)),nn,2) & *modistype(i,3) modis_spectra(i,nn,2) = min(modis_spectra(i,nn,2),1.00) modis_spectra(i,nn,2) = max(modis_spectra(i,nn,2),0.00) write(6,2000)i,nn,modistype(i,2),modistype(i,3),modis_spectra(i,nn,1),modis_spectra(i,nn,2) 4170 continue 4190 continue pause return end !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! subroutine nlcdusgsmodis( & albedomap) implicit none integer i,j INTEGER, PARAMETER :: NUMB_MAPS = 6 INTEGER, PARAMETER :: NUMB_CATA_BINS = 64 real*4 categorymap(6,64),albedomap(6,64) ! NLCD2MODIS,USGS2MODIS,NLCD2SPEC,USGS2SPEC,MODIS2SPEC,SPEC data categorymap / & 0, 0, 0, 0, 0, 0 &, 0, 0, 0, 0, 0, 0 &, 1, 0, 1, 0, 0, 17 &, 1.0, 0, 2, 0, 0, 15 &, 1.0667, 0, 3, 0, 0, 13 &, 1.1333, 0, 4, 0, 0, 13 &, 1.0667, 0, 5, 0, 0, 13 &, 1.1333, 0, 6, 0, 0, 13 &, 0.8, 0, 7, 0, 0, 16 &, 1.4, 0, 8, 0, 0, 16 &, 0.9375, 0, 9, 0, 0, 4 &, 0.8333, 0, 10, 0, 0, 1 &, 1, 0, 11, 0, 0, 5 &, 1, 0, 12, 0, 0, 7 &, 1, 0, 13, 0, 0, 7 &, 1.1364, 0, 14, 0, 0, 8 &, 1.0455, 0, 15, 0, 0, 8 &, 1.0526, 0, 16, 0, 0, 10 &, 1.0526, 0, 17, 0, 0, 10 &, 1, 1, 18, 22, 0, 18 &, 1.2778, 0, 19, 0, 0, 14 &, 1.1765, 1.0588, 20, 4, 0, 12 &, 1.0714, 1, 21, 17, 0, 11 &, 1.0714, 0, 22, 0, 0, 11 &, 1.0714, 0, 23, 0, 0, 11 &, 1.0714, 0, 24, 0, 0, 11 &, 1.0714, 0, 25, 0, 0, 11 &, 1.2857, 0, 26, 0, 0, 11 &, 1.2857, 0, 27, 0, 0, 11 &, 1.2857, 0, 28, 0, 0, 11 &, 1.25, 0, 29, 0, 0, 17 &, 1.25, 0, 30, 0, 0, 17 &, 1, 0, 31, 0, 0, 17 &, 1, 1, 32, 14, 1, 1 &, 1, 1, 33, 13, 2, 2 &, 1, 1, 34, 12, 3, 3 &, 1, 1, 35, 11, 4, 4 &, 1, 1, 36, 15, 5, 5 &, 1, 1, 37, 8, 6, 6 &, 1, 1, 38, 9, 7, 7 &, 1, 0, 39, 0, 8, 8 &, 1, 1, 40, 10, 9, 9 &, 1, 1, 41, 7, 10, 10 &, 1, 1, 42, 18, 11, 11 &, 1, 1, 43, 2, 12, 12 &, 1, 1, 44, 1, 13, 13 &, 1, 0, 45, 0, 14, 14 &, 1, 1, 46, 24, 15, 15 &, 1, 1, 47, 19, 16, 16 &, 1, 1, 48, 16, 17, 17 &, 1, 0, 49, 0, 0, 17 &, 1, 0, 50, 0, 0, 17 &, 0, 0, 0, 0, 0, 0 &, 0, 1, 0, 20, 19, 18 &, 0, 1, 0, 21, 18, 18 &, 0, 0, 0, 0, 0, 0 &, 0, 1, 0, 23, 20, 18 &, 0, 0, 0, 0, 0, 0 &, 0, 1.0588, 0, 3, 0, 12 &, 0, 0, 0, 0, 0, 0 &, 0, 1, 0, 5, 0, 14 &, 0, 0.8889, 0, 6, 0, 14 &, 0, 0, 0, 0, 0, 19 &, 0, 0, 0, 0, 0, 20 / do 190 i = 1,64 do 170 j = 1,6 albedomap(j,i) = categorymap(j,i) 170 continue 190 continue return end !*********************************************************************** !1 Asner, G. Biophysical and biochemical sources of variability in canopy reflectance. ! Remote Sens. Environ. 64:234-253, 1998. ! !2 Belward, A., and T. Loveland. The DIS 1km Land Cover Data Set, Global Change, The ! IGBP Newsletter, #27, Sep., 1996. ! !3 Betts, A. K., and J. H. Ball. Albedo over the Boreal Forest, ! J. Geophys. Res., 102, 28901-28909, 1997. ! !4 Blumthaler, M., and W. Ambach. Solar UVB-albedo of various surfaces. ! Photochem. Photobiol. 48(1) 85-88, 1988. ! !5 Bowker, D. E., R. E. Davis, D. L. Myrick, K. Stacy, and W. T. Jones. ! Spectral Reflectances of Natural Targets for use in Remote Sensing Studies, ! NASA Ref. Pub., 1139, June 1985. ! !6 Briegleb, B. P., P. Minnis, V. Ramanathan, and E. Harrison. Comparison of Regional ! Clear-Sky Albedos Inferred from Satellite Observations and Models Comparisons, ! J. Clim. Appl. Meteor., 25, 214-226, 1986. ! !7 Briegleb, B. P., and V. Ramanathan. Spectral and Diurnal Variations in Clear Sky ! Planetary Albedo, J. Appl. Meteor., 21, 1160-1171, 1982. ! !8 Coddington, Odele, K. S. Schmidt, P. Pilewskie, W. J. Gore, R. W. Bergstrom, ! M. Roman, J. Redemann, P. B.Russell, J. Liu, and C. C. Schaaf. Aircraft measurements of ! spectral surface albedo and its consistency with ground-based and space-borne observations. ! J. Geophys. Res. 113 (D17209), 2008. ! !9 Dozier, J. Spectral signature of alpine snow cover from the Landsat Thematic Mapper. ! Remote Sens. Environ. 28:9-22, 1989. ! !10 Dozier, J., R. E. Davis, and R. Perla. On the objective analysis of snow microstructure. ! Avalanche Formation, Movement and Effects (proceedings of the Davos Symposium, Sept. 1986. ! IAHS Publ. no. 162, 1987. ! !11 Dozier, J. and T. H. Painter. Multispectral and hyperspectral remote sensing of alpine ! snow properties. Annu. Rev. Earth Planet. Sci. 32:465-94, 2004. ! !12 Dozier, J, and S. G. Warren. Effect of viewing angle on the infrared brightness ! temperature of snow. Water Resources Research, 18(5) 1424-1434, 1982. ! !13 Feister, U., and R. Grewe. Spectral albedo measurements in the uv and visible region ! over different types of surfaces. Photochem.Photbiol. 62(4) 736-744, 1995. ! !14 Fu, Qiang, and K.N. Liou. ON the Correlated k-Distribution Moethod for Radiative ! Transfer in Nonhomogeneous Atmospheres. J. Atmos. Sci. 49(22) 2139-2156, 1992. ! !15 Grenfell, T. C. and D. K. Perovich. Spectral albedos of sea ice and incident solar ! irradiance in the Southern Beaufort Sea, J. Geophys. Res., 89, 3573-3580. 1984. ! !16 Grenfell, T. C., S. G. Warren, and P. C. Mullen. Reflection of Solar Radiation By ! The Antarctic Snow Surface at Ultraviolet, Visible, and Near-Infrared Wavelengths, J. Geophys. Res., 99, 18669-18684, 1994. ! !17 Hansen, F. V. Albedos. Army Research Laboratory. ARL-TR-57, 1993. ! !18 Jin, Y, C.B. Schaaf, F. Gao, X. Li, and A.H. Strahler. How does snow impact ! the albedo of vegetated land surfaces as analysized with MODIS data? Geophys. Res. ! Lett. 29(10) 1374. 2002 !19 Koelemeijer, R. B. A., J. F. de Haan, and P. Stammes. A database of spectral surface ! reflectivity in the range 335-772 nm derived from 5.5 years of GOME observations. ! J. Geophys. Res. 108(D2) 4070, 2003. ! !20 Laepple, T. and M. G. Schultz. Improved albedo formulation for chemistry transport ! models based on satellite observations and assimilated snow data and its impact on tropospheric ! photochemistry. J. Geophys. Res. 110(D) 11308, 2005. ! !21 Lundberg, A, and J. Beringer. Albedo and snowmelt rates across a trundra-to-forest ! transition. 15th Inter. Northern Research Basins Symposium and Workshop, Lulea, Sweden, ! 29 Aug ? 2 Sep, 2005. ! !22 Michalsky, J. J., Q. L. Min, J. C. Barnard, R. T.Marchand, P. Pilewskie. Simultaneous ! spectral albedo measurements near the ARM SGP central facility. Twelfth ARM Science Team Meeting ! Proceedings, St. Petersburg, FL, USA. April 8-12, 2002. ! !23 Moody, E.G, M.D. King, S. Platnick, C.B. Schaaf, F. Gao. Spatially complete global spectral ! surface albedos: value-added datasets derived from Terra MODIS land products. IEEE Trans. ! On Geoscience and Remote Sens. 43(1) 144-158. 2005. ! !24 Moody, E.G, M.D. King, C.B. Schaaf, D.K. Hall, and S. Platnick. Northern Hemisphere ! five-year average (2000-2004) spectral albedos of surfaces in the presence of snow: Statistics ! computed from Terra MODIS land products. Remote Sens. Environment. 111, 337-345. 2007. ! !25 Payne, R. E., Albedo of the Sea Surface, J. Atmos. Sci., 29, 959-970, 1972. ! !26 Petzold, D. E., and A. N. Rencz. The albedo of selected subarctic surfaces. Arctic and ! Alpine Res. 7(4) 393-8, 1975. ! !27 Pinker, R. T., and A. Karnieli. Characteristic Spectral Reflectance of a semi-arid environment, ! Int. J. Rem. Sens., 1995. ! !28 Privette, J. L, T. F. Eck, D. W. Deering. Estimating spectral albedo and nadir reflectance ! through inversion of simple BRDF models with AVHRR/MODIS-like data. ! J. Geophys. Res. 102(D24) 29,529-29,542, 1997. ! !29 Roesch, A., C. Schaaf, and F. Gao. Use of Moderate-Resolution Imaging Spectroradiometer ! bidirectional reflectance distribution function products to enhance simulated surface albedos. ! J. Geophys. Res. 109(D) 12,105, 2004. ! !30 Staylor W. F. and A.C. Wilber. Global surface albedos estimated from ERBE data, ! Proceedings, 7th Conf. on Atmos. Rad., San Francisco, CA, 1990. ! !31 Taberner, M. B. Pinty, Y. Govaerts, S. Liang, M.M. Verstraete, N. Gobron, and J.L. Widlowski. ! Comparison of MISR and MODIS land surface albedos: methodology. ! J. Geophys. Res. 115(D) 05101, 2010. ! !32 Tsuyuzaki, S., K Kushida, Y Kodama. Recovery of surface albedo and plant cover ! after wildfire in a Picea mariana forest in interior Alaska. Climatic Change 93:517?525, 2009. ! !33 Wilber, A.C., D. P. Kratz, S. K. Gupta, Surface Emissivity Maps for Use of Satellite ! Retrievals of Longwave Radiation, NASA Tech. Pub., TP-99-209362, 1999. ! !34 Wendisch, M. P. Pilewskie, E. Jakel, S. Schmidt, J. Pommier, S. Howard, H.H. Jonsson, ! H Guan, M. Schroder, and B. Mayer. Airborne measurements of areal spectral surface albedo over ! different sea and land surfaces. J. Geophys. Res. 109(D) 08203, 2004. ! !35 Warren, S. G., and W. J. Wiscombe. A model for the spectral albedo of snow. ! II: Snow containing atmospheric aerosols. J. Atmosph. Sci. 37(12) 2734-45, 1980. ! ================================================ FILE: UTIL/inline_phot_preproc/src/vegeland_striecher.f ================================================ program veg ! PURPOSE: For specified photolysis module ("INLINE", or "SPHERAD"), ! and for specified solar zenith angle (sza), Julian day (jd), and ! snow flag (snowflag), returns reflectances (spectral albedos) for ! each of 3 landuse categorization schemes (NLCD, USGS, and MODIS) ! that are specific to the solar zenith angle, Julian day, snow ! conditions,and the spectral bin structure of the photolysis module. ! ADVISORY: This module should be called when sza, jd, or snowflag changes ! DEVELOPED: August 2010. John Streicher USEPA/ORD/NERL/AMAD ! INPUT: rtmodule,sza[deg],jd [integer],snowflag [0=no;1=yes] ! OUTPUT: reflectance ! CALLS: reflectances,season_correction,spectralalbedo,mapalbedo ! CALLED BY: main implicit none character*7 rtmodule integer jd,snowflag,n,isza,i real*4 sza,specalbsza(20,15,2),specalbszassn(20,15,2) & ,bin_spectra(50,50,2),nlcd_spectra(50,50,2) & ,usgs_spectra(50,50,2),modis_spectra(50,50,2) ! The following (sza; rtmodule='INLINE', or 'SPHERAD'; jd; snowflag) ! are temporarily hardcoded. ! Replace with user-selected values when incorporated into MCIP or WRF-CMAQ. CHARACTER(80) :: LAND_SCHEME ! land use scheme used INTEGER, PARAMETER :: NUMB_REF = 20 ! # of land categories in reference INTEGER, PARAMETER :: NUMB_SCHEME = 50 ! # of land categories in LAND_SCHEME REAL, ALLOCATABLE :: ALBEDO_REF_TO_SCHEME( :, :) INTERFACE SUBROUTINE ALBEDO_MAP(LAND_SCHEME, NUMB_REF, NUMB_SCHEME, ALBEDO_REF_TO_SCHEME) IMPLICIT NONE CHARACTER(80), INTENT( IN ) :: LAND_SCHEME ! land use scheme used INTEGER, INTENT( IN ) :: NUMB_REF ! # of land categories in reference INTEGER, INTENT( IN ) :: NUMB_SCHEME ! # of land categories in LAND_SCHEME REAL, INTENT( OUT ) :: ALBEDO_REF_TO_SCHEME( :, :) END SUBROUTINE ALBEDO_MAP END INTERFACE rtmodule = 'INLINE' sza = 30. jd = 180 snowflag = 0 call reflectances(sza & ,specalbsza) call season_correction(specalbsza,jd,snowflag & ,specalbszassn) call spectralalbedo(specalbszassn,rtmodule & ,n,bin_spectra ) bin_spectra = 0.0 call mapalbedo(n,bin_spectra & ,nlcd_spectra,usgs_spectra,modis_spectra ) ALLOCATE( ALBEDO_REF_TO_SCHEME( NUMB_SCHEME, NUMB_REF) ) LAND_SCHEME = 'NLCD-MODIS' CALL ALBEDO_MAP(LAND_SCHEME, NUMB_REF, NUMB_SCHEME, ALBEDO_REF_TO_SCHEME) LAND_SCHEME = 'USGS24' CALL ALBEDO_MAP(LAND_SCHEME, NUMB_REF, NUMB_SCHEME, ALBEDO_REF_TO_SCHEME) LAND_SCHEME = 'MODIS' CALL ALBEDO_MAP(LAND_SCHEME, NUMB_REF, NUMB_SCHEME, ALBEDO_REF_TO_SCHEME) stop end !*********************************************************************** SUBROUTINE SPECTRAL_REFLECT_DRAFT(NWAVE, WAVE, NUSES, ALBEDO, LANDUSE, & ZENITH_COEFF, SEASON_COEFF, SNOW_COEFF) ! PURPOSE: Populate array ALBEDO with wavelength dependent reflectances (i.e. ! spectral albedos) for 20 MODIS land use types. Also returns correction factors ! for solar zenith angle and season. Note that an adjustment is applied to ! better match spectral estimates for each land use type. ! REFERENCE: CERES/SARB Surface Properties database, May 2006 ! http://www-surf/larc.nasa.gov/surf/pages/data-page.html ! INPUT: SOLAR_ZENITH [deg] ! OUTPUT: NWAVE ! ALBEDO(20,15) ! CALLS: none ! CALLED BY: veg implicit none INTEGER, PARAMETER :: NUMB_LANDUSE_MODIS = 20 INTEGER, PARAMETER :: NUMB_BANDS_MODIS = 15 INTEGER NWAVE REAL WAVE(NUMB_BANDS_MODIS) INTEGER NUSES REAL ALBEDO(NUMB_LANDUSE_MODIS,NUMB_BANDS_MODIS) CHARACTER(30) LANDUSE(NUMB_LANDUSE_MODIS) REAL ZENITH_COEFF( NUMB_LANDUSE_MODIS ) REAL SNOW_COEFF( NUMB_LANDUSE_MODIS ) REAL SEASON_COEFF( NUMB_LANDUSE_MODIS ) REAL(4) SPECTRAL_ALBEDO(NUMB_BANDS_MODIS,NUMB_LANDUSE_MODIS), & dterm(NUMB_LANDUSE_MODIS), & ALBEDO_WAVE(NUMB_BANDS_MODIS), & specenhancement,u0,SOLAR_ZENITH,MODIS2SPECTRAL(NUMB_LANDUSE_MODIS) REAL( 8 ) :: PI REAL( 4 ) :: ZENITH_CORRECTION REAL( 4 ) :: WVBAND( NUMB_BANDS_MODIS ) DATA WVBAND / & 200.05, 234.3, 264.8, 292.1, 310.5, & 340.0, 397.5, 467.5, 546.25, 642.3, & 1000.0, 1550.0, 2150.0, 3000.0, 3750.0 / integer i,j,k ! *** Spectral Reflectances DATA (SPECTRAL_ALBEDO(IWL, 1), IWL = 1, NUMB_BANDS_MODIS) / & 0.032, 0.032, 0.032, 0.032, 0.032 ! (1) EVERGREEN NEEDLE FOREST & , 0.032, 0.032, 0.032, 0.046, 0.046 & , 0.235, 0.096, 0.038, 0.038, 0.038 / DATA (SPECTRAL_ALBEDO(IWL, 2), IWL = 1, NUMB_BANDS_MODIS) / & 0.044, 0.044, 0.044, 0.044, 0.044 ! ( 2) EVERGREEN BROADLEAF FOR & , 0.044, 0.044, 0.044, 0.044, 0.044 ! (Tropical Forest) & , 0.234, 0.193, 0.112, 0.112, 0.112 / DATA (SPECTRAL_ALBEDO(IWL, 3), IWL = 1, NUMB_BANDS_MODIS) / & 0.032, 0.032, 0.032, 0.032, 0.032 ! ( 3) DECIDUOUS NEEDLE FOREST & , 0.032, 0.032, 0.032, 0.046, 0.046 & , 0.235, 0.096, 0.038, 0.038, 0.038 / DATA (SPECTRAL_ALBEDO(IWL, 4), IWL = 1, NUMB_BANDS_MODIS) / & 0.034, 0.034, 0.034, 0.034, 0.034 ! ( 4) DECIDUOUS BROADLEAF FOR & , 0.034, 0.034, 0.034, 0.066, 0.067 & , 0.312, 0.276, 0.160, 0.160, 0.160 / DATA (SPECTRAL_ALBEDO(IWL, 5), IWL = 1, NUMB_BANDS_MODIS) / & 0.033, 0.033, 0.033, 0.033, 0.033 ! ( 5) MIXED FOREST & , 0.033, 0.033, 0.033, 0.056, 0.057 & , 0.274, 0.186, 0.099, 0.099, 0.099 / DATA (SPECTRAL_ALBEDO(IWL, 6), IWL = 1, NUMB_BANDS_MODIS) / & 0.010, 0.010, 0.010, 0.015, 0.017 ! ( 6) CLOSED SHRUBS & , 0.020, 0.036, 0.045, 0.055, 0.156 & , 0.350, 0.239, 0.101, 0.101, 0.101 / DATA (SPECTRAL_ALBEDO(IWL, 7), IWL = 1, NUMB_BANDS_MODIS) / & 0.095, 0.095, 0.095, 0.095, 0.095 ! ( 7) OPEN/SHRUBS & , 0.095, 0.098, 0.104, 0.122, 0.157 & , 0.231, 0.330, 0.311, 0.150, 0.150 / DATA (SPECTRAL_ALBEDO(IWL, 8), IWL = 1, NUMB_BANDS_MODIS) / & 0.020, 0.020, 0.020, 0.023, 0.024 ! ( 8) WOODY SAVANNA (Decid Broadleaf*0.4 + Grass*0.6) & , 0.026, 0.035, 0.041, 0.102, 0.104 & , 0.366, 0.291, 0.151, 0.107, 0.107 / DATA (SPECTRAL_ALBEDO(IWL, 9), IWL = 1, NUMB_BANDS_MODIS) / & 0.010, 0.010, 0.010, 0.015, 0.017 ! ( 9) SAVANNA & , 0.020, 0.036, 0.045, 0.126, 0.129 & , 0.402, 0.301, 0.145, 0.071, 0.071 / DATA (SPECTRAL_ALBEDO(IWL, 10), IWL = 1, NUMB_BANDS_MODIS) / & 0.010, 0.010, 0.010, 0.015, 0.017 ! (10) GRASSLAND & , 0.020, 0.036, 0.045, 0.126, 0.129 & , 0.402, 0.301, 0.145, 0.071, 0.071 / DATA (SPECTRAL_ALBEDO(IWL, 11), IWL = 1, NUMB_BANDS_MODIS) / & 0.039, 0.039, 0.039, 0.039, 0.039 ! (11) PERMANENT WETLANDS & , 0.039, 0.039, 0.039, 0.051, 0.071 & , 0.164, 0.100, 0.056, 0.056, 0.056 / DATA (SPECTRAL_ALBEDO(IWL, 12), IWL = 1, NUMB_BANDS_MODIS) / & 0.010, 0.010, 0.010, 0.015, 0.017 ! (12) CROPLAND & , 0.020, 0.036, 0.045, 0.115, 0.099 & , 0.442, 0.271, 0.122, 0.059, 0.059 / DATA (SPECTRAL_ALBEDO(IWL, 13), IWL = 1, NUMB_BANDS_MODIS) / & 0.052, 0.052, 0.052, 0.052, 0.052 ! (13) URBAN & , 0.052, 0.052, 0.066, 0.104, 0.114 & , 0.304, 0.258, 0.258, 0.258, 0.258 / DATA (SPECTRAL_ALBEDO(IWL, 14), IWL = 1, NUMB_BANDS_MODIS) / & 0.010, 0.010, 0.010, 0.015, 0.017 ! (14) CROP MOSAIC & , 0.020, 0.036, 0.045, 0.090, 0.083 & , 0.377, 0.273, 0.141, 0.110, 0.110 / DATA (SPECTRAL_ALBEDO(IWL, 15), IWL = 1, NUMB_BANDS_MODIS) / & 0.910, 0.910, 0.910, 0.916, 0.921 ! (15) PERMANENT SNOW & , 0.931, 0.947, 0.964, 0.953, 0.920 & , 0.635, 0.013, 0.006, 0.009, 0.014 / DATA (SPECTRAL_ALBEDO(IWL, 16), IWL = 1, NUMB_BANDS_MODIS) / & 0.144, 0.144, 0.144, 0.144, 0.144 ! (16) BARREN/DESERT & , 0.144, 0.144, 0.179, 0.263, 0.331 & , 0.405, 0.390, 0.390, 0.390, 0.390 / DATA (SPECTRAL_ALBEDO(IWL, 17), IWL = 1, NUMB_BANDS_MODIS) / & 0.066, 0.066, 0.066, 0.070, 0.073 ! (17) OCEAN WATER & , 0.082, 0.094, 0.091, 0.078, 0.072 & , 0.066, 0.062, 0.055, 0.044, 0.069 / DATA (SPECTRAL_ALBEDO(IWL, 18), IWL = 1, NUMB_BANDS_MODIS) / & 0.180, 0.180, 0.180, 0.180, 0.180 ! (18) TUNDRA (modified with Lundberg et al) & , 0.180, 0.180, 0.180, 0.180, 0.180 & , 0.247, 0.265, 0.265, 0.265, 0.265 / DATA (SPECTRAL_ALBEDO(IWL, 19), IWL = 1, NUMB_BANDS_MODIS) / & 0.979, 0.979, 0.979, 0.980, 0.982 ! (19) FRESH SNOW & , 0.984, 0.988, 0.992, 0.989, 0.982 & , 0.902, 0.143, 0.168, 0.019, 0.015 / DATA (SPECTRAL_ALBEDO(IWL, 20), IWL = 1, NUMB_BANDS_MODIS) / & 0.778, 0.778, 0.778, 0.778, 0.778 ! (20) SEA ICE & , 0.778, 0.778, 0.778, 0.778, 0.752 & , 0.393, 0.055, 0.054, 0.036, 0.036 / ! *** Land-use type-dependent solar zenith adjustment factor ! The following scale factors are applied to the spectral albedos to bring ! them into closer agreement (in the visible spectrum) with the MODIS fixed albedos data MODIS2SPECTRAL / & 3.5, ! (1) & 2.5, ! (2) & 4.0, ! (3) & 2.5, ! (4) & 3.0, ! (5) & 3.0, ! (6) & 2.0, ! (7) & 2.5, ! (8) & 1.5, ! (9) & 2.0, ! (10) & 2.0, ! (11) & 1.5, ! (12) & 1.5, ! (13) & 2.5, ! (14) & 1.0, ! (15) & 1.0, ! (16) & 1.0, ! (17) & 1.0, ! (18) & 1.0, ! (19) & 1.0 / ! (20) INTEGER :: IWL NWAVE = NUMB_BANDS_MODIS NUSES = NUMB_LANDUSE_MODIS ALBEDO = 0.0 pi = dacos(-1.d0) LANDUSE( 1:NUSES ) = ( / & 'EVERGREEN NEEDLE FOREST' &,'EVERGREEN BROADLEAF FOREST' &,'DECIDUOUS NEEDLE FOREST' &,'DECIDUOUS BROADLEAF FOREST' &,'MIXED FOREST' &,'CLOSED SHRUBS' &,'OPEN / SHRUBS' &,'WOODY SAVANNA' &,'SAVANNA' &,'GRASSLAND' &,'PERMANENT WETLANDS' &,'CROPLAND' &,'URBAN' &,'CROP MOSAIC' &,'PERMANENT SNOW' &,'BARREN / DESSERT' &,'OCEAN WATER' &,'TUNDRA' &,'FRESH SNOW' &,'SEA ICE' / ) SEASON_COEFF( 1:NUSES ) = (/ & 0.73 ! EVERGREEN NEEDLE FOR &, 0.84 ! EVERGREEN BROADLEAF FOR &, 0.77 ! DECIDUOUS NEEDLE FOR &, 0.73 ! DECIDOUS BROAD FOR &, 0.78 ! MIXED FOREST &, 0.73 ! CLOSED SHRUBS &, 0.77 ! OPEN/SHRUBS &, 0.78 ! WOODY SAVANNA &, 0.78 ! SAVANNA &, 0.79 ! GRASSLAND &, 0.78 ! WETLAND &, 0.80 ! CROPLAND &, 0.67 ! URBAN &, 0.80 ! CROP MOSAIC &, 1.00 ! PERMANENT SNOW &, 0.96 ! BARREN/DESERT &, 1.00 ! OCEAN WATER &, 0.25 ! TUNDRA (modified with Lundberg et al (2005)) &, 1.00 ! FRESH SNOW &, 1.00 /) ! SEA ICE ZENITH_COEFF( 1:NUSES ) = (/ & 0.40, ! ( 1) EVERGREEN NEEDLE FOR & 0.44, ! ( 2) EVERGREEN BROAD FOR & 0.32, ! ( 3) DECIDUOUS NEEDLE FOR & 0.39, ! ( 4) DECIDUOUS BROAD FOR & 0.22, ! ( 5) MIXED FOREST & 0.28, ! ( 6) CLOSED SHRUBS & 0.40, ! ( 7) OPEN/SHRUBS & 0.47, ! ( 8) WOODY SAVANNA & 0.53, ! ( 9) SAVANNA & 0.53, ! (10) GRASSLAND & 0.35, ! (11) WETLAND & 0.41, ! (12) CROPLAND (CAGEX-APR) & 0.10, ! (13) URBAN & 0.40, ! (14) CROP MOSAIC & 0.10, ! (15) ANTARCTIC SNOW & 0.40, ! (16) BARREN/DESERT & 0.41, ! (17) OCEAN WATER & 0.58, ! (18) TUNDRA & 0.10, ! (19) FRESH SNOW & 0.10 /) ! (20) SEA ICE SNOW_COEFF( 1:NUSES ) = (/ & 3.0 ! EVERGREEN NEEDLE FOR &, 4.1 ! EVERGREEN BROADLEAF FOR &, 3.1 ! DECIDUOUS NEEDLE FOR &, 2.7 ! DECIDUOUS BROADLEAF FOR &, 3.0 ! MIXED FOREST &, 2.2 ! CLOSED SHRUBS &, 3.6 ! OPEN/SHRUBS &, 2.1 ! WOODY SAVANNA &, 3.0 ! SAVANNA &, 3.8 ! GRASSLAND &, 4.9 ! WETLAND &, 4.5 ! CROPLAND &, 3.6 ! URBAN &, 3.6 ! CROP MOSAIC &, 1.7 ! PERMANENT SNOW &, 3.5 ! BARREN/DESERT &, 1.0 ! OCEAN WATER &, 4.0 ! TUNDRA (modified with Lundberg et al (2005)) &, 1.0 ! FRESH SNOW &, 1.3 /)! SEA ICE !The folowing loops indicate use LUC (as "j), and band (as "i") u0 = 0.5 ! dcos((pi/180.d0)*SOLAR_ZENITH) SOLAR_ZENITH = PI/180.0D0*DACOS(0.5D0) DO 270 J = 1,20 DO 250 I = 1,15 ZENITH_CORRECTION = (1.0 + ZENITH_COEFF(j)) & / (1.0 + 2.0*u0*ZENITH_COEFF(j)) ZENITH_CORRECTION = MAX(0.8,ZENITH_CORRECTION) ALBEDO_WAVE(I) = WVBAND(I) ALBEDO(J, I) = MIN(1.0, (ZENITH_CORRECTION*SPECTRAL_ALBEDO(I, J))) IF((modis2spectral(j)*ALBEDO(J, I)).LE. 1.0)THEN ALBEDO(J, I) = modis2spectral(j)*ALBEDO(J, I) ELSE ALBEDO(J ,I) = 1.0 ENDIF 250 continue 270 continue !Output is specalbsza(j,i,2): 20 spectral albedos x 15 bands return end !*********************************************************************** subroutine reflectances(sza & ,specalbsza) ! PURPOSE: Populate array specalbsza with sza-specific reflectances (i.e. ! spectral albedos) for each of 20 land use types. Correct for ! solar zenith angle, and adjust spectral albedos to better match ! MODIS non-spectral estimates for each MODIS land use type. ! REFERENCE: CERES/SARB Surface Properties database, May 2006 ! http://www-surf/larc.nasa.gov/surf/pages/data-page.html ! INPUT: sza[deg] ! OUTPUT: specalbsza(20,15,2) ! CALLS: none ! CALLED BY: veg implicit none character*30 landuse(20) integer i,j,k real*4 bands(15),specalb(15,20),dterm(20),specalbsza(20,15,2) & ,pi,specenhancement,u0,sza,modis2spectral(20) specalbsza(1:20,1:15,1:2) = 0.0 pi = dacos(-1.d0) data bands / & 200.05, 234.3, 264.8, 292.1, 310.5 & , 340.0, 397.5, 467.5, 546.25, 642.3 & , 1000.0, 1550.0, 2150.0, 3000.0, 3750.0 / ! *** Spectral Reflectances data specalb / & 0.032, 0.032, 0.032, 0.032, 0.032 ! (1) EVERGREEN NEEDLE FOREST & , 0.032, 0.032, 0.032, 0.046, 0.046 & , 0.235, 0.096, 0.038, 0.038, 0.038 & , 0.044, 0.044, 0.044, 0.044, 0.044 ! ( 2) EVERGREEN BROADLEAF FOR & , 0.044, 0.044, 0.044, 0.044, 0.044 ! (Tropical Forest) & , 0.234, 0.193, 0.112, 0.112, 0.112 & , 0.032, 0.032, 0.032, 0.032, 0.032 ! ( 3) DECIDUOUS NEEDLE FOREST & , 0.032, 0.032, 0.032, 0.046, 0.046 & , 0.235, 0.096, 0.038, 0.038, 0.038 & , 0.034, 0.034, 0.034, 0.034, 0.034 ! ( 4) DECIDUOUS BROADLEAF FOR & , 0.034, 0.034, 0.034, 0.066, 0.067 & , 0.312, 0.276, 0.160, 0.160, 0.160 & , 0.033, 0.033, 0.033, 0.033, 0.033 ! ( 5) MIXED FOREST & , 0.033, 0.033, 0.033, 0.056, 0.057 & , 0.274, 0.186, 0.099, 0.099, 0.099 & , 0.010, 0.010, 0.010, 0.015, 0.017 ! ( 6) CLOSED SHRUBS & , 0.020, 0.036, 0.045, 0.055, 0.156 & , 0.350, 0.239, 0.101, 0.101, 0.101 & , 0.095, 0.095, 0.095, 0.095, 0.095 ! ( 7) OPEN/SHRUBS & , 0.095, 0.098, 0.104, 0.122, 0.157 & , 0.231, 0.330, 0.311, 0.150, 0.150 & , 0.020, 0.020, 0.020, 0.023, 0.024 ! ( 8) WOODY SAVANNA (Decid Broadleaf*0.4 + Grass*0.6) & , 0.026, 0.035, 0.041, 0.102, 0.104 & , 0.366, 0.291, 0.151, 0.107, 0.107 & , 0.010, 0.010, 0.010, 0.015, 0.017 ! ( 9) SAVANNA & , 0.020, 0.036, 0.045, 0.126, 0.129 & , 0.402, 0.301, 0.145, 0.071, 0.071 & , 0.010, 0.010, 0.010, 0.015, 0.017 ! (10) GRASSLAND & , 0.020, 0.036, 0.045, 0.126, 0.129 & , 0.402, 0.301, 0.145, 0.071, 0.071 & , 0.039, 0.039, 0.039, 0.039, 0.039 ! (11) PERMANENT WETLANDS & , 0.039, 0.039, 0.039, 0.051, 0.071 & , 0.164, 0.100, 0.056, 0.056, 0.056 & , 0.010, 0.010, 0.010, 0.015, 0.017 ! (12) CROPLAND & , 0.020, 0.036, 0.045, 0.115, 0.099 & , 0.442, 0.271, 0.122, 0.059, 0.059 & , 0.052, 0.052, 0.052, 0.052, 0.052 ! (13) URBAN & , 0.052, 0.052, 0.066, 0.104, 0.114 & , 0.304, 0.258, 0.258, 0.258, 0.258 & , 0.010, 0.010, 0.010, 0.015, 0.017 ! (14) CROP MOSAIC & , 0.020, 0.036, 0.045, 0.090, 0.083 & , 0.377, 0.273, 0.141, 0.110, 0.110 & , 0.910, 0.910, 0.910, 0.916, 0.921 ! (15) PERMANENT SNOW & , 0.931, 0.947, 0.964, 0.953, 0.920 & , 0.635, 0.013, 0.006, 0.009, 0.014 & , 0.144, 0.144, 0.144, 0.144, 0.144 ! (16) BARREN/DESERT & , 0.144, 0.144, 0.179, 0.263, 0.331 & , 0.405, 0.390, 0.390, 0.390, 0.390 & , 0.066, 0.066, 0.066, 0.070, 0.073 ! (17) OCEAN WATER & , 0.082, 0.094, 0.091, 0.078, 0.072 & , 0.066, 0.062, 0.055, 0.044, 0.069 & , 0.180, 0.180, 0.180, 0.180, 0.180 ! (18) TUNDRA (modified with Lundberg et al) & , 0.180, 0.180, 0.180, 0.180, 0.180 & , 0.247, 0.265, 0.265, 0.265, 0.265 & , 0.979, 0.979, 0.979, 0.980, 0.982 ! (19) FRESH SNOW & , 0.984, 0.988, 0.992, 0.989, 0.982 & , 0.902, 0.143, 0.168, 0.019, 0.015 & , 0.778, 0.778, 0.778, 0.778, 0.778 ! (20) SEA ICE & , 0.778, 0.778, 0.778, 0.778, 0.752 & , 0.393, 0.055, 0.054, 0.036, 0.036 / data landuse / & 'EVERGREEN NEEDLE FOREST' &,'EVERGREEN BROADLEAF FOREST' &,'DECIDUOUS NEEDLE FOREST' &,'DECIDUOUS BROADLEAF FOREST' &,'MIXED FOREST' &,'CLOSED SHRUBS' &,'OPEN / SHRUBS' &,'WOODY SAVANNA' &,'SAVANNA' &,'GRASSLAND' &,'PERMANENT WETLANDS' &,'CROPLAND' &,'URBAN' &,'CROP MOSAIC' &,'PERMANENT SNOW' &,'BARREN / DESSERT' &,'OCEAN WATER' &,'TUNDRA' &,'FRESH SNOW' &,'SEA ICE' / ! *** Land-use type-dependent solar zenith adjustment factor data dterm / & 0.40 ! ( 1) EVERGREEN NEEDLE FOR &, 0.44 ! ( 2) EVERGREEN BROAD FOR &, 0.32 ! ( 3) DECIDUOUS NEEDLE FOR &, 0.39 ! ( 4) DECIDUOUS BROAD FOR &, 0.22 ! ( 5) MIXED FOREST &, 0.28 ! ( 6) CLOSED SHRUBS &, 0.40 ! ( 7) OPEN/SHRUBS &, 0.47 ! ( 8) WOODY SAVANNA &, 0.53 ! ( 9) SAVANNA &, 0.53 ! (10) GRASSLAND &, 0.35 ! (11) WETLAND &, 0.41 ! (12) CROPLAND (CAGEX-APR) &, 0.10 ! (13) URBAN &, 0.40 ! (14) CROP MOSAIC &, 0.10 ! (15) ANTARCTIC SNOW &, 0.40 ! (16) BARREN/DESERT &, 0.41 ! (17) OCEAN WATER &, 0.58 ! (18) TUNDRA &, 0.10 ! (19) FRESH SNOW &, 0.10 / ! (20) SEA ICE ! The following scale factors are applied to the spectral albedos to bring ! them into closer agreement (in the visible spectrum) with the MODIS fixed albedos data modis2spectral / & 3.5 ! (1) &, 2.5 ! (2) &, 4.0 ! (3) &, 2.5 ! (4) &, 3.0 ! (5) &, 3.0 ! (6) &, 2.0 ! (7) &, 2.5 ! (8) &, 1.5 ! (9) &, 2.0 ! (10) &, 2.0 ! (11) &, 1.5 ! (12) &, 1.5 ! (13) &, 2.5 ! (14) &, 1.0 ! (15) &, 1.0 ! (16) &, 1.0 ! (17) &, 1.0 ! (18) &, 1.0 ! (19) &, 1.0 / ! (20) !The folowing loops indicate use LUC (as "j), and band (as "i") u0 = dcos((pi/180.d0)*sza) do 270 j = 1,20 do 250 i = 1,15 specenhancement = (1.0 + dterm(j))/(1.0 + 2.0*u0*dterm(j)) specenhancement = max(0.8,specenhancement) specalbsza(j,i,1) = bands(i) specalbsza(j,i,2) = min(1.0,(specenhancement*specalb(i,j))) if((modis2spectral(j)*specalbsza(j,i,2)).le.1.0)then specalbsza(j,i,2) = modis2spectral(j)*specalbsza(j,i,2) else specalbsza(j,i,2) = 1.0 endif 250 continue 270 continue !Output is specalbsza(j,i,2): 20 spectral albedos x 15 bands return end !*********************************************************************** subroutine season_correction(specalbsza,jd,snowflag & ,specalbszassn) ! PURPOSE: Modify the sza-specific spectral albedos to be further ! specific to Julian day ! REFERENCE: Moody et al (2005); Moody et al (2007); Jin et al (2002) ! INPUT: specalbsza,jd,snowflag ! OUTPUT: specalbszassn ! CALLS: none ! CALLED BY: veg implicit none integer jd,i,j,snowflag real*4 specalbsza(20,15,2),specalbszassn(20,15,2) & ,ssn_correction(20),jd_correction(20),pi,scale,temp & ,snow_correction(20) specalbszassn(1:20,1:15,1:2) = 0.0 jd_correction(1:20) = 0.0 pi = dacos(-1.d0) data ssn_correction / & 0.73 ! EVERGREEN NEEDLE FOR &, 0.84 ! EVERGREEN BROADLEAF FOR &, 0.77 ! DECIDUOUS NEEDLE FOR &, 0.73 ! DECIDOUS BROAD FOR &, 0.78 ! MIXED FOREST &, 0.73 ! CLOSED SHRUBS &, 0.77 ! OPEN/SHRUBS &, 0.78 ! WOODY SAVANNA &, 0.78 ! SAVANNA &, 0.79 ! GRASSLAND &, 0.78 ! WETLAND &, 0.80 ! CROPLAND &, 0.67 ! URBAN &, 0.80 ! CROP MOSAIC &, 1.00 ! PERMANENT SNOW &, 0.96 ! BARREN/DESERT &, 1.00 ! OCEAN WATER &, 0.25 ! TUNDRA (modified with Lundberg et al (2005)) &, 1.00 ! FRESH SNOW &, 1.00 /! SEA ICE ! scale ranges from [0,1]; scale = 0 on ~Jun21; = 1 on Dec21 temp = cos(2.0*pi*((real(jd)+11.0)/365.)) if(temp.ge.0.d0)then scale = 0.5*(1.+ sqrt(temp)) else scale = 0.5*(1.- sqrt(abs(temp))) endif do 90 i = 1,20 jd_correction(i) = scale*ssn_correction(i) - (scale-1.0)*1.0 90 continue do 190 i = 1,20 do 170 j = 1,15 specalbszassn(i,j,1) = specalbsza(i,j,1) specalbszassn(i,j,2) = specalbsza(i,j,2)/jd_correction(i) 170 continue 190 continue if(snowflag.eq.0)goto 999 data snow_correction / & 3.0 ! EVERGREEN NEEDLE FOR &, 4.1 ! EVERGREEN BROADLEAF FOR &, 3.1 ! DECIDUOUS NEEDLE FOR &, 2.7 ! DECIDUOUS BROADLEAF FOR &, 3.0 ! MIXED FOREST &, 2.2 ! CLOSED SHRUBS &, 3.6 ! OPEN/SHRUBS &, 2.1 ! WOODY SAVANNA &, 3.0 ! SAVANNA &, 3.8 ! GRASSLAND &, 4.9 ! WETLAND &, 4.5 ! CROPLAND &, 3.6 ! URBAN &, 3.6 ! CROP MOSAIC &, 1.7 ! PERMANENT SNOW &, 3.5 ! BARREN/DESERT &, 1.0 ! OCEAN WATER &, 4.0 ! TUNDRA (modified with Lundberg et al (2005)) &, 1.0 ! FRESH SNOW &, 1.3 /! SEA ICE do 290 i = 1,20 do 270 j = 1,15 specalbszassn(i,j,2) = snow_correction(i)*specalbszassn(i,j,2) if(specalbszassn(i,j,2).gt.1.)then specalbszassn(i,j,2) = 1.0 endif 270 continue 290 continue 999 return end !*********************************************************************** subroutine spectralalbedo(specalbszassn,rtmodule & ,n,bin_spectra ) ! PURPOSE: Bin the sza-,season-specific spectral albedo data into the wavelength ! bins of the selected photolysis module ! INPUT: specalbszassn,rtmodule ! OUTPUT: bin_spectra ! CALLS: get_bin_data,cutpoints,assign ! CALLED BY: veg implicit none character rtmodule*7 integer choice,n,ncat,countforlabel(50) real*4 wavebin(50),cutpoint(50),specalbszassn(20,15,2) & ,nlcd_spectra(50,200,2) & ,bin_spectra(50,50,2),n2,sza bin_spectra(1:50,1:50,1:2) = 0.0 call get_bin_data(rtmodule & ,wavebin,n) call cutpoints(wavebin,n,rtmodule & ,cutpoint) call assign(cutpoint,n,specalbszassn,ncat,countforlabel,wavebin & ,bin_spectra) return end !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! subroutine assign(cutpoint,n,specalbszassn,ncat,countforlabel & ,wavebin & ,bin_spectra) implicit none integer n,ncat,countforlabel(50),i,j,k,kcount,jj,zeroflag real*4 cutpoint(50),specalbszassn(20,15,2),wavebin(50) & ,bin_spectra(50,50,2) & ,accumulate1,accumulate2 do 190 i = 1,20 do 170 j = 2,n+1 kcount = 0 accumulate1 = 0.d0 accumulate2 = 0.d0 do 150 k = 1,15 if((specalbszassn(i,k,1).le.cutpoint(j)).and. & (specalbszassn(i,k,1).gt.cutpoint(j-1)))then kcount = kcount + 1 accumulate2 = accumulate2 + specalbszassn(i,k,2) endif 150 continue if(kcount.ne.0)then accumulate2 = accumulate2/real(kcount) bin_spectra(i,j,1) = wavebin(j-1) bin_spectra(i,j,2) = accumulate2 elseif(kcount.eq.0)then bin_spectra(i,j,1) = wavebin(j-1) bin_spectra(i,j,2) = 0.d0 endif 160 format(2f12.3,i6,f12.3) 170 continue 190 continue ! First bin do 230 i = 1,20 if(bin_spectra(i,2,2).le.1.d-5)then do 220 k = 1,15 if(specalbszassn(i,k,1).gt.cutpoint(1))then bin_spectra(i,2,2) = specalbszassn(i,k-1,2) goto 225 endif 220 continue 225 if(bin_spectra(i,3,2).ne.0.d0)then bin_spectra(i,2,2) = (bin_spectra(i,2,2) & +bin_spectra(i,3,2))/2.d0 endif endif 230 continue ! Last bin do 250 i = 1,20 if(bin_spectra(i,n+1,2).le.1.d-5)then do 240 k = 15,1,-1 if(specalbszassn(i,k,1).lt.cutpoint(n))then bin_spectra(i,n+1,2) = specalbszassn(i,k+1,2) goto 245 endif 240 continue 245 if(bin_spectra(i,n,2).ne.0.d0)then bin_spectra(i,n+1,2) = (bin_spectra(i,n+1,2) & +bin_spectra(i,n,2))/2.d0 endif endif 250 continue do 290 i = 1,20 255 zeroflag = 0 do 270 j = 2,n-1 if(bin_spectra(i,j,2).eq.0.d0)then zeroflag = 1 if((bin_spectra(i,j-1,2).ne.0.d0).and. & (bin_spectra(i,j+1,2).ne.0.d0))then bin_spectra(i,j,2)=(bin_spectra(i,j-1,2) & +bin_spectra(i,j+1,2))/2.d0 goto 270 elseif(bin_spectra(i,j-1,2).ne.0.d0)then bin_spectra(i,j,2) = bin_spectra(i,j-1,2) goto 270 elseif(bin_spectra(i,j+1,2).ne.0.d0)then bin_spectra(i,j,2) = bin_spectra(i,j+1,2) goto 270 endif endif 270 continue if(zeroflag.eq.1)goto 255 290 continue do 390 i = 1,20 do 370 j = 2,n+1 bin_spectra(i,j-1,1) = bin_spectra(i,j,1) bin_spectra(i,j-1,2) = bin_spectra(i,j,2) 360 format(2i6,2f12.3) 370 continue 390 continue return end !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! subroutine cutpoints(wavebin,n,rtmodule & ,cutpoint) implicit none character rtmodule*7 integer n,i real*4 wavebin(50),cutpoint(50) cutpoint(1) = wavebin(1) - (wavebin(2) - wavebin(1))/2.d0 do 190 i = 2,n cutpoint(i) = (wavebin(i-1) + wavebin(i))/2.d0 ! Exception: if((rtmodule.eq.'SPHERAD').and.(i.eq.24))then cutpoint(i) = 402.5 endif 190 continue cutpoint(n+1) = wavebin(n) + (wavebin(n) - wavebin(n-1))/2.d0 return end !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! subroutine get_bin_data(rtmodule & ,wavebin,n) implicit none character rtmodule*7 integer n,i real*4 wavebin(50),xwavebin(30),ywavebin(30) wavebin(1:50) = 0.d0 data xwavebin / & 295.0, 303.0, 310.0, 316.0, 333.0 & , 380.0, 574.0, 0.0, 0.0, 0.0 & , 0.0, 0.0, 0.0, 0.0, 0.0 & , 0.0, 0.0, 0.0, 0.0, 0.0 & , 0.0, 0.0, 0.0, 0.0, 0.0 & , 0.0, 0.0, 0.0, 0.0, 0.0 / data ywavebin / & 290.0, 295.0, 300.0, 305.0, 310.0 & , 315.0, 320.0, 325.0, 330.0, 335.0 & , 340.0, 345.0, 350.0, 355.0, 360.0 & , 365.0, 370.0, 375.0, 380.0, 385.0 & , 390.0, 395.0, 400.0, 450.0, 550.0 & , 650.0, 750.0, 0.0, 0.0, 0.0 / if(rtmodule.eq.'INLINE')then n = 7 do 190 i = 1,n wavebin(i) = xwavebin(i) 190 continue elseif(rtmodule.eq.'SPHERAD')then n = 27 do 195 i = 1,n wavebin(i) = ywavebin(i) 195 continue endif return end !*********************************************************************** !*********************************************************************** subroutine mapalbedo(n,bin_spectra & ,nlcd_spectra,usgs_spectra,modis_spectra) ! PURPOSE: Maps the 50 NLCD and 24 USGS landuse categories to the closest ! 20 MODIS categories - with a weighting factor applied to the mapping ! for continuity of albedo of NLCD/USGS to MODIS. 17 of the 20 MODIS ! categories are then mapped to 17 uniquely corresponding spectral albedo ! categories; 3 MODIS categories (Wooded Tundra, Mixed Tundra, and Barren ! TUNDRA) are mapped to spectral "Tundra". ! INPUT: n,bin_spectra ! OUTPUT: nlcd_spectra,usgs_spectra,modis_spectra ! CALLS: nlcdusgsmodis ! CALLED BY: veg implicit none real*4 nlcdmap(65,2),usgsmap(65,2),modismap(65,2) & ,a(65),b(65),y,nlcdtype(50,3),usgstype(50,3),modistype(50,3) & ,bin_spectra(50,50,2),nlcd_spectra(50,50,2) & ,usgs_spectra(50,50,2),modis_spectra(50,50,2) & ,albedomap(6,64),temparray(500,3) integer c(65),d(65),e(65),f(65),icount,jcount,kcount,i,ix,iz & ,n,ii,jj,nn INTEGER, SAVE :: IO_INSPECT CHARACTER(30) SPECTRAL_LANDUSE(20) DATA SPECTRAL_LANDUSE / & 'EVERGREEN NEEDLE FOREST' &,'EVERGREEN BROADLEAF FOREST' &,'DECIDUOUS NEEDLE FOREST' &,'DECIDUOUS BROADLEAF FOREST' &,'MIXED FOREST' &,'CLOSED SHRUBS' &,'OPEN / SHRUBS' &,'WOODY SAVANNA' &,'SAVANNA' &,'GRASSLAND' &,'PERMANENT WETLANDS' &,'CROPLAND' &,'URBAN' &,'CROP MOSAIC' &,'PERMANENT SNOW' &,'BARREN / DESSERT' &,'OCEAN WATER' &,'TUNDRA' &,'FRESH SNOW' &,'SEA ICE' / CHARACTER(40) USGS_LANDUSE(24) DATA USGS_LANDUSE / & 'Urban or Built-up Land', & 'Dryland Cropland and Pasture', & 'Irrigated Cropland and Pasture', & 'Mixed Dry/Irr Crop and Past', & 'Grassland/Cropland Mosaic', & 'Woodland/Cropland Mosaic', & 'Grassland', & 'Shrubland', & 'Mixed Shrubland/Grassland', & 'Savanna', & 'Broadleaf Deciduous Forest', & 'Deciduous Coniferous Forest', & 'Evergreen Broadleaf Forest (Palm?)', & 'Evergreen Coniferous Forest', & 'Mixed forest', & 'Water', & 'Herbaceous Wetland (none in east)', & 'Forested Wetlands (e.g. Everglades)', & 'Barren or Sparsely Vegetated', & 'Herbaceous Tundra', & 'Shrub and Brush Tundra', & 'Mixed Tundra', & 'Bare Ground Tundra', & 'Perennial Snowfields or Glaciers' / CHARACTER(40) MODIS_LANDUSE(20) DATA MODIS_LANDUSE / & 'Evergreen Needleleaf Forest', & 'Evergreen Broadleaf Forest', & 'Deciduous Needleleaf Forest', & 'Deciduous Broadleaf Forest', & 'Mixed Forest', & 'Closed Shrublands', & 'Open Shrublands', & 'Woody Savanna', & 'Savanna', & 'Grasslands', & 'Perminent Wetlands', & 'Croplands', & 'Urban andBuilt-up', & 'Cropland/Natural Vegetation', & 'Snow and Ice', & 'Barren or Sparsely Vegetated', & 'IGBP water', & 'Mixed Tundra', & 'Wooded Tundra', & 'Barren Tundra' / CHARACTER(40) NLCD_LANDUSE(50) DATA NLCD_LANDUSE / & 'Open water', & 'Perennial Ice/snow ', & 'Developed, Open space ', & 'Developed, Low Intensity', & 'Developed, Medium Intensity', & 'Developed, High Intensity', & 'Barren land', & 'Unconsolidated Shore', & 'Deciduous Forest', & 'Evergreen Forest', & 'Mixed Forest', & 'Dwarf Scrub', & 'Shrub/Scrub', & 'Grassland/Herbaceous', & 'Sedge/Herbaceous', & 'Lichens', & 'Moss', & 'Tundra', & 'Pasture/Hay', & 'Cultivated Crops', & 'Woody Wetland', & 'Palustrine Forested Wetland', & 'Palustrine Scrub/Shrub Wetland', & 'Estuarine Forested Wetland', & 'Estuarine Scrub/Shrub Wetland', & 'Emergent Herbaceous Wetland', & 'Palustrine Emergent Wetland', & 'Estuarine Emergent Wetland', & 'Palustrine Aquatic Bed', & 'Estuarine Aquatic Bed', & 'Open water (mapped to 1)', & 'Evergreen Needleleaf Forest', & 'Evergreen Broadleaf Forest', & 'Deciduous Needleleaf Forest', & 'Deciduous Broadleaf Forest', & 'Mixed Forest', & 'Closed Shrublands', & 'Open Shrublands', & 'Woody Savanna', & 'Savanna', & 'Grasslands', & 'Perminent Wetlands', & 'Croplands', & 'Urban andBuilt-up', & 'Cropland/Natural Vegetation Mosaic', & 'Snow and Ice', & 'Barren or Sparsely Vegetated', & 'IGBP water', & 'unclassified', & 'fill value (normally ocean water)' / CHARACTER(40) NAMEA, NAMEB icount = 0 jcount = 0 kcount = 0 nlcdtype(1:50,1:3) = 0.d0 usgstype(1:50,1:3) = 0.d0 modistype(1:50,1:3) = 0.d0 nlcd_spectra(1:50,1:50,1:2) = 0.0 usgs_spectra(1:50,1:50,1:2) = 0.0 modis_spectra(1:50,1:50,1:2) = 0.0 albedomap(1:6,1:64) = 0.0 temparray(1:500,1:3) = 0.0 IO_INSPECT = 13 IF( IO_INSPECT .NE. 6 )THEN OPEN(IO_INSPECT, FILE='ALBEDO_MAPS.dat',STATUS='UNKNOWN') ENDIF call nlcdusgsmodis(albedomap) do 190 i = 1,64 a(i) = albedomap(1,i) b(i) = albedomap(2,i) c(i) = int(albedomap(3,i)) d(i) = int(albedomap(4,i)) e(i) = int(albedomap(5,i)) f(i) = int(albedomap(6,i)) 190 continue do 290 i = 1,64 if(a(i).ne.0)then icount = icount + 1 temparray(icount,1) = real(c(i)) temparray(icount,2) = a(i) temparray(icount,3) = real(f(i)) endif 290 continue do 390 i = 1,64 if(b(i).ne.0)then jcount = jcount + 1 temparray(jcount+icount,1) = real(d(i)) temparray(jcount+icount,2) = b(i) temparray(jcount+icount,3) = real(f(i)) endif 390 continue do 490 i = 1,64 if(e(i).ne.0)then kcount = kcount + 1 temparray(kcount+icount+jcount,1) = real(e(i)) temparray(kcount+icount+jcount,2) = 1. temparray(kcount+icount+jcount,3) = real(f(i)) endif 490 continue rewind(8) do 590 i = 1,icount ix = int(temparray(i,1)) y = temparray(i,2) iz = int(temparray(i,3)) nlcdmap(ix,1)=iz nlcdmap(ix,2)=y 590 continue do 690 i = 1,jcount ix = int(temparray(i+icount,1)) y = temparray(i+icount,2) iz = int(temparray(i+icount,3)) usgsmap(ix,1)=iz usgsmap(ix,2)=y 690 continue do 790 i = 1,kcount ix = int(temparray(i+icount+jcount,1)) y = temparray(i+icount+jcount,2) iz = int(temparray(i+icount+jcount,3)) modismap(ix,1)=iz modismap(ix,2)=y 790 continue do 890 i = 1,icount nlcdtype(i,1) = real(i) nlcdtype(i,2) = nlcdmap(i,1) nlcdtype(i,3) = nlcdmap(i,2) 890 continue do 990 i = 1,jcount usgstype(i,1) = real(i) usgstype(i,2) = usgsmap(i,1) usgstype(i,3) = usgsmap(i,2) 990 continue do 1090 i = 1,kcount modistype(i,1) = real(i) modistype(i,2) = modismap(i,1) modistype(i,3) = modismap(i,2) 1090 continue ! NLCD Map do 2190 i = 1,icount do 2170 nn = 1,n nlcd_spectra(i,nn,1) = bin_spectra(int(nlcdtype(i,2)),nn,1) nlcd_spectra(i,nn,2) = bin_spectra(int(nlcdtype(i,2)),nn,2) & *nlcdtype(i,3) nlcd_spectra(i,nn,2) = min(nlcd_spectra(i,nn,2),1.00) nlcd_spectra(i,nn,2) = max(nlcd_spectra(i,nn,2),0.00) !! write(19,2000)i,nn,nlcd_spectra(i,nn,1),nlcd_spectra(i,nn,2) !!2000 format(2i6,2f12.4) IF(IO_INSPECT .GT. 0)THEN NAMEA = NLCD_LANDUSE(I)(1:LEN_TRIM(NLCD_LANDUSE(I))) NAMEB = SPECTRAL_LANDUSE(int(nlcdtype(i,2)))(1:LEN_TRIM(SPECTRAL_LANDUSE(int(nlcdtype(i,2))))) write(IO_INSPECT,2000)i,NAMEA,nn,nlcdtype(i,2),nlcdtype(i,3),nlcd_spectra(i,nn,1), & nlcd_spectra(i,nn,2),bin_spectra(int(nlcdtype(i,2)),nn,2), & NAMEB ENDIF 2170 continue 2190 continue ! USGS MAP do 3190 i = 1,jcount do 3170 nn = 1,n usgs_spectra(i,nn,1) = bin_spectra(int(usgstype(i,2)),nn,1) usgs_spectra(i,nn,2) = bin_spectra(int(usgstype(i,2)),nn,2) & *usgstype(i,3) usgs_spectra(i,nn,2) = min(usgs_spectra(i,nn,2),1.00) usgs_spectra(i,nn,2) = max(usgs_spectra(i,nn,2),0.00) !! write(19,2000)i,nn,usgs_spectra(i,nn,1),usgs_spectra(i,nn,2) IF(IO_INSPECT .GT. 0)THEN NAMEA = USGS_LANDUSE(I)(1:LEN_TRIM(USGS_LANDUSE(I))) NAMEB = SPECTRAL_LANDUSE(int(usgstype(i,2)))(1:LEN_TRIM(SPECTRAL_LANDUSE(int(usgstype(i,2))))) write(IO_INSPECT,2000)i,NAMEA,nn,usgstype(i,2),usgstype(i,3),usgs_spectra(i,nn,1), & usgs_spectra(i,nn,2),bin_spectra(int(usgstype(i,2)),nn,2), & NAMEB ENDIF 3170 continue 3190 continue ! MODIS Map do 4190 i = 1,kcount do 4170 nn = 1,n modis_spectra(i,nn,1) = bin_spectra(int(modistype(i,2)),nn,1) modis_spectra(i,nn,2) = bin_spectra(int(modistype(i,2)),nn,2) & *modistype(i,3) modis_spectra(i,nn,2) = min(modis_spectra(i,nn,2),1.00) modis_spectra(i,nn,2) = max(modis_spectra(i,nn,2),0.00) !! write(19,2000)i,nn,modis_spectra(i,nn,1),modis_spectra(i,nn,2) IF(IO_INSPECT .GT. 0)THEN NAMEA = MODIS_LANDUSE(I)(1:LEN_TRIM(MODIS_LANDUSE(I))) NAMEB = SPECTRAL_LANDUSE(int(modistype(i,2)))(1:LEN_TRIM(SPECTRAL_LANDUSE(int(modistype(i,2))))) write(IO_INSPECT,2000)i,NAMEA,nn,modistype(i,2),modistype(i,3),modis_spectra(i,nn,1), & modis_spectra(i,nn,2),bin_spectra(int(modistype(i,2)),nn,2), & NAMEB ENDIF 4170 continue 4190 continue 2000 format(i2,1X,a30,1X,i2,3(f7.3,1X),2(f8.4,1X),a30) CLOSE(IO_INSPECT) return end !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! subroutine nlcdusgsmodis( & albedomap) implicit none integer i,j real*4 categorymap(6,64),albedomap(6,64) ! NLCD2MODIS,USGS2MODIS,NLCD2SPEC,USGS2SPEC,MODIS2SPEC,SPEC data categorymap / & 0, 0, 0, 0, 0, 0 &, 0, 0, 0, 0, 0, 0 &, 1, 0, 1, 0, 0, 17 &, 1.0, 0, 2, 0, 0, 15 &, 1.0667, 0, 3, 0, 0, 13 &, 1.1333, 0, 4, 0, 0, 13 &, 1.0667, 0, 5, 0, 0, 13 &, 1.1333, 0, 6, 0, 0, 13 &, 0.8, 0, 7, 0, 0, 16 &, 1.4, 0, 8, 0, 0, 16 &, 0.9375, 0, 9, 0, 0, 4 &, 0.8333, 0, 10, 0, 0, 1 &, 1, 0, 11, 0, 0, 5 &, 1, 0, 12, 0, 0, 7 &, 1, 0, 13, 0, 0, 7 &, 1.1364, 0, 14, 0, 0, 8 &, 1.0455, 0, 15, 0, 0, 8 &, 1.0526, 0, 16, 0, 0, 10 &, 1.0526, 0, 17, 0, 0, 10 &, 1, 1, 18, 22, 0, 18 &, 1.2778, 0, 19, 0, 0, 14 &, 1.1765, 1.0588, 20, 4, 0, 12 &, 1.0714, 1, 21, 17, 0, 11 &, 1.0714, 0, 22, 0, 0, 11 &, 1.0714, 0, 23, 0, 0, 11 &, 1.0714, 0, 24, 0, 0, 11 &, 1.0714, 0, 25, 0, 0, 11 &, 1.2857, 0, 26, 0, 0, 11 &, 1.2857, 0, 27, 0, 0, 11 &, 1.2857, 0, 28, 0, 0, 11 &, 1.25, 0, 29, 0, 0, 17 &, 1.25, 0, 30, 0, 0, 17 &, 1, 0, 31, 0, 0, 17 &, 1, 1, 32, 14, 1, 1 &, 1, 1, 33, 13, 2, 2 &, 1, 1, 34, 12, 3, 3 &, 1, 1, 35, 11, 4, 4 &, 1, 1, 36, 15, 5, 5 &, 1, 1, 37, 8, 6, 6 &, 1, 1, 38, 9, 7, 7 &, 1, 0, 39, 0, 8, 8 &, 1, 1, 40, 10, 9, 9 &, 1, 1, 41, 7, 10, 10 &, 1, 1, 42, 18, 11, 11 &, 1, 1, 43, 2, 12, 12 &, 1, 1, 44, 1, 13, 13 &, 1, 0, 45, 0, 14, 14 &, 1, 1, 46, 24, 15, 15 &, 1, 1, 47, 19, 16, 16 &, 1, 1, 48, 16, 17, 17 &, 1, 0, 49, 0, 0, 17 &, 1, 0, 50, 0, 0, 17 &, 0, 0, 0, 0, 0, 0 &, 0, 1, 0, 20, 19, 18 &, 0, 1, 0, 21, 18, 18 &, 0, 0, 0, 0, 0, 0 &, 0, 1, 0, 23, 20, 18 &, 0, 0, 0, 0, 0, 0 &, 0, 1.0588, 0, 3, 0, 12 &, 0, 0, 0, 0, 0, 0 &, 0, 1, 0, 5, 0, 14 &, 0, 0.8889, 0, 6, 0, 14 &, 0, 0, 0, 0, 0, 19 &, 0, 0, 0, 0, 0, 20 / do 190 i = 1,64 do 170 j = 1,6 albedomap(j,i) = categorymap(j,i) 170 continue 190 continue return end !*********************************************************************** SUBROUTINE ALBEDO_MAP(LAND_SCHEME, NUMB_REF, NUMB_SCHEME, ALBEDO_REF_TO_SCHEME) ! PURPOSE: returns a map between the surface albedo of the refererence and ! input land characterization scheme donated by variable LAND_SCHEME ! Algorithm only accepts three values for LAND_SCHEME: USGS24, MODIS ! and NLCD-MODIS. ! MODIS exactly matches the reference. NLCD-MOSIS and USGS map to closest ! 20 MODIS categories - with a weighting factor applied to the mapping ! for continuity of albedo of NLCD/USGS to MODIS. 17 of the 20 MODIS ! categories are then mapped to 17 uniquely corresponding spectral albedo ! categories; 3 MODIS categories (Wooded Tundra, Mixed Tundra, and Barren ! TUNDRA) are mapped to spectral "Tundra". IMPLICIT NONE ! INPUT: LAND_SCHEME ! OUTPUT: ALBEDO_REF_TO_SCHEME CHARACTER(80) :: LAND_SCHEME ! land use scheme used INTEGER :: NUMB_REF ! # of land categories in reference INTEGER :: NUMB_SCHEME ! # of land categories in LAND_SCHEME REAL :: ALBEDO_REF_TO_SCHEME( :, :) ! CALLS: subroutine nlcdusgsmodis ! LOCAL: REAL nlcdmap(65,2) REAL usgsmap(65,2) REAL modismap(65,2) REAL a(65) REAL b(65) REAL y REAL nlcdtype(50,3) REAL usgstype(50,3) REAL modistype(50,3) REAL, ALLOCATABLE :: BUFFER( : ) REAL bin_spectra(50,50,2),nlcd_spectra(50,50,2) REAL usgs_spectra(50,50,2) REAL modis_spectra(50,50,2) REAL albedomap(6,64) REAL temparray(500,3) INTEGER, PARAMETER :: N_ALBEDO_REF = 20 INTEGER N INTEGER c(65) INTEGER d(65) INTEGER e(65) INTEGER f(65) INTEGER icount INTEGER jcount INTEGER kcount INTEGER i,ix,iz INTEGER ii,jj,nn INTEGER, SAVE :: IO_INSPECT LOGICAL, SAVE :: FIRSTCALL = .TRUE. CHARACTER(30) SPECTRAL_LANDUSE(20) DATA SPECTRAL_LANDUSE / & 'EVERGREEN NEEDLE FOREST' &,'EVERGREEN BROADLEAF FOREST' &,'DECIDUOUS NEEDLE FOREST' &,'DECIDUOUS BROADLEAF FOREST' &,'MIXED FOREST' &,'CLOSED SHRUBS' &,'OPEN / SHRUBS' &,'WOODY SAVANNA' &,'SAVANNA' &,'GRASSLAND' &,'PERMANENT WETLANDS' &,'CROPLAND' &,'URBAN' &,'CROP MOSAIC' &,'PERMANENT SNOW' &,'BARREN / DESSERT' &,'OCEAN WATER' &,'TUNDRA' &,'FRESH SNOW' &,'SEA ICE' / CHARACTER(40) USGS_LANDUSE(24) DATA USGS_LANDUSE / & 'Urban or Built-up Land', & 'Dryland Cropland and Pasture', & 'Irrigated Cropland and Pasture', & 'Mixed Dry/Irr Crop and Past', & 'Grassland/Cropland Mosaic', & 'Woodland/Cropland Mosaic', & 'Grassland', & 'Shrubland', & 'Mixed Shrubland/Grassland', & 'Savanna', & 'Broadleaf Deciduous Forest', & 'Deciduous Coniferous Forest', & 'Evergreen Broadleaf Forest (Palm?)', & 'Evergreen Coniferous Forest', & 'Mixed forest', & 'Water', & 'Herbaceous Wetland (none in east)', & 'Forested Wetlands (e.g. Everglades)', & 'Barren or Sparsely Vegetated', & 'Herbaceous Tundra', & 'Shrub and Brush Tundra', & 'Mixed Tundra', & 'Bare Ground Tundra', & 'Perennial Snowfields or Glaciers' / CHARACTER(40) MODIS_LANDUSE(20) DATA MODIS_LANDUSE / & 'Evergreen Needleleaf Forest', & 'Evergreen Broadleaf Forest', & 'Deciduous Needleleaf Forest', & 'Deciduous Broadleaf Forest', & 'Mixed Forest', & 'Closed Shrublands', & 'Open Shrublands', & 'Woody Savanna', & 'Savanna', & 'Grasslands', & 'Perminent Wetlands', & 'Croplands', & 'Urban andBuilt-up', & 'Cropland/Natural Vegetation', & 'Snow and Ice', & 'Barren or Sparsely Vegetated', & 'IGBP water', & 'Mixed Tundra', & 'Wooded Tundra', & 'Barren Tundra' / CHARACTER(40) NLCD_LANDUSE(50) DATA NLCD_LANDUSE / & 'Open water', & 'Perennial Ice/snow ', & 'Developed, Open space ', & 'Developed, Low Intensity', & 'Developed, Medium Intensity', & 'Developed, High Intensity', & 'Barren land', & 'Unconsolidated Shore', & 'Deciduous Forest', & 'Evergreen Forest', & 'Mixed Forest', & 'Dwarf Scrub', & 'Shrub/Scrub', & 'Grassland/Herbaceous', & 'Sedge/Herbaceous', & 'Lichens', & 'Moss', & 'Tundra', & 'Pasture/Hay', & 'Cultivated Crops', & 'Woody Wetland', & 'Palustrine Forested Wetland', & 'Palustrine Scrub/Shrub Wetland', & 'Estuarine Forested Wetland', & 'Estuarine Scrub/Shrub Wetland', & 'Emergent Herbaceous Wetland', & 'Palustrine Emergent Wetland', & 'Estuarine Emergent Wetland', & 'Palustrine Aquatic Bed', & 'Estuarine Aquatic Bed', & 'Open water (mapped to 1)', & 'Evergreen Needleleaf Forest', & 'Evergreen Broadleaf Forest', & 'Deciduous Needleleaf Forest', & 'Deciduous Broadleaf Forest', & 'Mixed Forest', & 'Closed Shrublands', & 'Open Shrublands', & 'Woody Savanna', & 'Savanna', & 'Grasslands', & 'Perminent Wetlands', & 'Croplands', & 'Urban andBuilt-up', & 'Cropland/Natural Vegetation Mosaic', & 'Snow and Ice', & 'Barren or Sparsely Vegetated', & 'IGBP water', & 'unclassified', & 'fill value (normally ocean water)' / CHARACTER(40) NAMEA, NAMEB INTEGER, PARAMETER :: NUMB_USGS = 24 REAL :: ALBMAP_REF2USGS( NUMB_USGS ) DATA ALBMAP_REF2USGS / & 13.0000, 12.0000, 12.0000, 12.0000, 14.0000, & 14.0000, 10.0000, 6.0000, 7.0000, 9.0000, & 4.0000, 3.0000, 2.0000, 1.0000, 5.0000, & 17.0000, 11.0000, 11.0000, 16.0000, 18.0000, & 18.0000, 18.0000, 18.0000, 15.0000/ REAL :: ALBFAC_REF2USGS( NUMB_USGS ) DATA ALBFAC_REF2USGS / & 1.0000, 1.0000, 1.0588, 1.0588, 1.0000, & 0.8889, 1.0000, 1.0000, 1.0000, 1.0000, & 1.0000, 1.0000, 1.0000, 1.0000, 1.0000, & 1.0000, 1.0000, 1.0000, 1.0000, 1.0000, & 1.0000, 1.0000, 1.0000, 1.0000/ INTEGER, PARAMETER :: NUMB_MODIS = 20 REAL :: ALBMAP_REF2MODIS( NUMB_MODIS ) DATA ALBMAP_REF2MODIS / & 1.0000, 2.0000, 3.0000, 4.0000, 5.0000, & 6.0000, 7.0000, 8.0000, 9.0000, 10.0000, & 11.0000, 12.0000, 13.0000, 14.0000, 15.0000, & 16.0000, 17.0000, 18.0000, 18.0000, 18.0000/ REAL :: ALBFAC_REF2MODIS( NUMB_MODIS ) DATA ALBFAC_REF2MODIS / & 1.0000, 1.0000, 1.0000, 1.0000, 1.0000, & 1.0000, 1.0000, 1.0000, 1.0000, 1.0000, & 1.0000, 1.0000, 1.0000, 1.0000, 1.0000, & 1.0000, 1.0000, 1.0000, 1.0000, 1.0000/ INTEGER, PARAMETER :: NUMB_NLCD_MODIS = 50 REAL :: ALBMAP_REF2NLCD( NUMB_NLCD_MODIS ) DATA ALBMAP_REF2NLCD / O 17.0000, 15.0000, 13.0000, 13.0000, 13.0000, + 13.0000, 16.0000, 16.0000, 4.0000, 1.0000, 1 5.0000, 7.0000, 7.0000, 8.0000, 8.0000, + 10.0000, 10.0000, 18.0000, 14.0000, 12.0000, 2 11.0000, 11.0000, 11.0000, 11.0000, 11.0000, + 11.0000, 11.0000, 11.0000, 17.0000, 17.0000, 3 17.0000, 1.0000, 2.0000, 3.0000, 4.0000, + 5.0000, 6.0000, 7.0000, 8.0000, 9.0000, 4 10.0000, 11.0000, 12.0000, 13.0000, 14.0000, + 15.0000, 16.0000, 17.0000, 17.0000, 17.0000/ REAL :: ALBFAC_REF2NLCD( NUMB_NLCD_MODIS ) DATA ALBFAC_REF2NLCD / O 1.0000, 1.0000, 1.0667, 1.1333, 1.0667, + 1.1333, 0.8000, 1.4000, 0.9375, 0.8333, 1 1.0000, 1.0000, 1.0000, 1.1364, 1.0455, + 1.0526, 1.0526, 1.0000, 1.2778, 1.1765, 2 1.0714, 1.0714, 1.0714, 1.0714, 1.0714, + 1.2857, 1.2857, 1.2857, 1.2500, 1.2500, 3 1.0000, 1.0000, 1.0000, 1.0000, 1.0000, + 1.0000, 1.0000, 1.0000, 1.0000, 1.0000, 4 1.0000, 1.0000, 1.0000, 1.0000, 1.0000, + 1.0000, 1.0000, 1.0000, 1.0000, 1.0000/ INTEGER INDEX_REF REAL FACTOR icount = 0 jcount = 0 kcount = 0 nlcdtype(1:50,1:3) = 0.d0 usgstype(1:50,1:3) = 0.d0 modistype(1:50,1:3) = 0.d0 nlcd_spectra(1:50,1:50,1:2) = 0.0 usgs_spectra(1:50,1:50,1:2) = 0.0 modis_spectra(1:50,1:50,1:2) = 0.0 albedomap(1:6,1:64) = 0.0 temparray(1:500,1:3) = 0.0 IF( FIRSTCALL )THEN IO_INSPECT = 13 IF(IO_INSPECT .NE. 6)OPEN(IO_INSPECT, FILE='ALBEDO_MAPS2.dat',STATUS='UNKNOWN') FIRSTCALL = .FALSE. ENDIF N = 7 BIN_SPECTRA = 0.0 call nlcdusgsmodis(albedomap) do 190 i = 1,64 a(i) = albedomap(1,i) b(i) = albedomap(2,i) c(i) = int(albedomap(3,i)) d(i) = int(albedomap(4,i)) e(i) = int(albedomap(5,i)) f(i) = int(albedomap(6,i)) 190 continue do 290 i = 1,64 if(a(i).ne.0)then icount = icount + 1 temparray(icount,1) = real(c(i)) temparray(icount,2) = a(i) temparray(icount,3) = real(f(i)) endif 290 continue do 390 i = 1,64 if(b(i).ne.0)then jcount = jcount + 1 temparray(jcount+icount,1) = real(d(i)) temparray(jcount+icount,2) = b(i) temparray(jcount+icount,3) = real(f(i)) endif 390 continue do 490 i = 1,64 if(e(i).ne.0)then kcount = kcount + 1 temparray(kcount+icount+jcount,1) = real(e(i)) temparray(kcount+icount+jcount,2) = 1. temparray(kcount+icount+jcount,3) = real(f(i)) endif 490 continue rewind(8) do 590 i = 1,icount ix = int(temparray(i,1)) y = temparray(i,2) iz = int(temparray(i,3)) nlcdmap(ix,1)=iz nlcdmap(ix,2)=y 590 continue do 690 i = 1,jcount ix = int(temparray(i+icount,1)) y = temparray(i+icount,2) iz = int(temparray(i+icount,3)) usgsmap(ix,1)=iz usgsmap(ix,2)=y 690 continue do 790 i = 1,kcount ix = int(temparray(i+icount+jcount,1)) y = temparray(i+icount+jcount,2) iz = int(temparray(i+icount+jcount,3)) modismap(ix,1)=iz modismap(ix,2)=y 790 continue do 890 i = 1,icount nlcdtype(i,1) = real(i) nlcdtype(i,2) = nlcdmap(i,1) nlcdtype(i,3) = nlcdmap(i,2) 890 continue do 990 i = 1,jcount usgstype(i,1) = real(i) usgstype(i,2) = usgsmap(i,1) usgstype(i,3) = usgsmap(i,2) 990 continue do 1090 i = 1,kcount modistype(i,1) = real(i) modistype(i,2) = modismap(i,1) modistype(i,3) = modismap(i,2) 1090 continue print*,LAND_SCHEME print*,INDEX(LAND_SCHEME, 'NLCD-MODIS') print*,INDEX(LAND_SCHEME, 'USGS24') print*,INDEX(LAND_SCHEME, 'MODIS') IF( INDEX(LAND_SCHEME, 'NLCD-MODIS') .GT. 0)THEN ! NLCD Map do 2190 i = 1,icount INDEX_REF = INT( ALBMAP_REF2NLCD( i ) ) FACTOR = ALBFAC_REF2NLCD( i ) do 2170 nn = 1,n nlcd_spectra(i,nn,1) = bin_spectra(int(nlcdtype(i,2)),nn,1) nlcd_spectra(i,nn,2) = bin_spectra(int(nlcdtype(i,2)),nn,2) & * nlcdtype(i,3) nlcd_spectra(i,nn,2) = bin_spectra(INDEX_REF,nn,2) & * FACTOR ALBEDO_REF_TO_SCHEME( i, int(nlcdtype(i,2))) = nlcdtype(i,3) nlcd_spectra(i,nn,2) = min(nlcd_spectra(i,nn,2),1.00) nlcd_spectra(i,nn,2) = max(nlcd_spectra(i,nn,2),0.00) !! write(19,2000)i,nn,nlcd_spectra(i,nn,1),nlcd_spectra(i,nn,2) !!2000 format(2i6,2f12.4) IF(IO_INSPECT .GT. 0)THEN NAMEA = NLCD_LANDUSE(I)(1:LEN_TRIM(NLCD_LANDUSE(I))) NAMEB = SPECTRAL_LANDUSE(int(nlcdtype(i,2)))(1:LEN_TRIM(SPECTRAL_LANDUSE(int(nlcdtype(i,2))))) write(IO_INSPECT,2000)i,NAMEA,nn,nlcdtype(i,2),nlcdtype(i,3),nlcd_spectra(i,nn,1), & nlcd_spectra(i,nn,2),bin_spectra(int(nlcdtype(i,2)),nn,2), & NAMEB ENDIF 2170 continue 2190 continue IF(IO_INSPECT .GT. 0)THEN WRITE(IO_INSPECT,5001)'NUMB_NLCD_MODIS', icount ALLOCATE( BUFFER(icount) ) BUFFER( 1:icount ) = nlcdtype(1:icount,2) CALL WRBF12D_HEADERB(IO_INSPECT, 5, icount,BUFFER,'NUMB_NLCD_MODIS', & 'ALBMAP_REF2NLCD', 'F') BUFFER( 1:icount ) = nlcdtype(1:icount,3) CALL WRBF12D_HEADERB(IO_INSPECT, 5, icount,BUFFER,'NUMB_NLCD_MODIS', & 'ALBFAC_REF2NLCD', 'F') DEALLOCATE( BUFFER ) ENDIF RETURN ENDIF ! USGS MAP IF( INDEX(LAND_SCHEME, 'USGS24') .GT. 0)THEN do 3190 i = 1,jcount INDEX_REF = INT( ALBMAP_REF2USGS( i ) ) FACTOR = ALBFAC_REF2USGS( i ) do 3170 nn = 1,n usgs_spectra(i,nn,1) = bin_spectra(int(usgstype(i,2)),nn,1) usgs_spectra(i,nn,2) = bin_spectra(int(usgstype(i,2)),nn,2) & * usgstype(i,3) usgs_spectra(i,nn,2) = bin_spectra(INDEX_REF,nn,2) & * FACTOR usgs_spectra(i,nn,2) = min(usgs_spectra(i,nn,2),1.00) usgs_spectra(i,nn,2) = max(usgs_spectra(i,nn,2),0.00) ALBEDO_REF_TO_SCHEME( i, int(USGStype(i,2))) = USGStype(i,3) !! write(19,2000)i,nn,usgs_spectra(i,nn,1),usgs_spectra(i,nn,2) IF(IO_INSPECT .GT. 0)THEN NAMEA = USGS_LANDUSE(I)(1:LEN_TRIM(USGS_LANDUSE(I))) NAMEB = SPECTRAL_LANDUSE(int(usgstype(i,2)))(1:LEN_TRIM(SPECTRAL_LANDUSE(int(usgstype(i,2))))) write(IO_INSPECT,2000)i,NAMEA,nn,usgstype(i,2),usgstype(i,3),usgs_spectra(i,nn,1), & usgs_spectra(i,nn,2),bin_spectra(int(usgstype(i,2)),nn,2), & NAMEB ENDIF 3170 continue 3190 continue IF(IO_INSPECT .GT. 0)THEN WRITE(IO_INSPECT,5001)'NUMB_USGS', jcount ALLOCATE( BUFFER(jcount) ) BUFFER( 1:jcount ) = usgstype(1:jcount,2) CALL WRBF12D_HEADERB(IO_INSPECT, 5, jcount,BUFFER,'NUMB_USGS', & 'ALBMAP_REF2USGS', 'F') BUFFER( 1:jcount ) = usgstype(1:jcount,3) CALL WRBF12D_HEADERB(IO_INSPECT, 5, jcount,BUFFER,'NUMB_USGS', & 'ALBFAC_REF2USGS', 'F') DEALLOCATE( BUFFER ) ENDIF RETURN ENDIF ! MODIS Map IF( INDEX(LAND_SCHEME, 'MODIS') .GT. 0 .AND. INDEX(LAND_SCHEME, 'NLCD') .EQ. 0)THEN do 4190 i = 1,kcount INDEX_REF = INT( ALBMAP_REF2MODIS( i ) ) FACTOR = ALBFAC_REF2MODIS( i ) do 4170 nn = 1,n modis_spectra(i,nn,1) = bin_spectra(int(modistype(i,2)),nn,1) modis_spectra(i,nn,2) = bin_spectra(int(modistype(i,2)),nn,2) & * modistype(i,3) modis_spectra(i,nn,2) = bin_spectra(INDEX_REF,nn,2) & * FACTOR ALBEDO_REF_TO_SCHEME( i, int(MODIStype(i,2))) = MODIStype(i,3) modis_spectra(i,nn,2) = min(modis_spectra(i,nn,2),1.00) modis_spectra(i,nn,2) = max(modis_spectra(i,nn,2),0.00) !! write(19,2000)i,nn,modis_spectra(i,nn,1),modis_spectra(i,nn,2) IF(IO_INSPECT .GT. 0)THEN NAMEA = MODIS_LANDUSE(I)(1:LEN_TRIM(MODIS_LANDUSE(I))) NAMEB = SPECTRAL_LANDUSE(int(modistype(i,2)))(1:LEN_TRIM(SPECTRAL_LANDUSE(int(modistype(i,2))))) write(IO_INSPECT,2000)i,NAMEA,nn,modistype(i,2),modistype(i,3),modis_spectra(i,nn,1), & modis_spectra(i,nn,2),bin_spectra(int(modistype(i,2)),nn,2), & NAMEB ENDIF 4170 continue 4190 continue IF(IO_INSPECT .GT. 0)THEN WRITE(IO_INSPECT,5001)'NUMB_MODIS', kcount ALLOCATE( BUFFER(kcount) ) BUFFER( 1:kcount ) = modistype(1:kcount,2) CALL WRBF12D_HEADERB(IO_INSPECT, 5, kcount,BUFFER,'NUMB_MODIS', & 'ALBMAP_REF2MODIS', 'F') BUFFER( 1:kcount ) = modistype(1:kcount,3) CALL WRBF12D_HEADERB(IO_INSPECT, 5, kcount,BUFFER,'NUMB_MODIS', & 'ALBFAC_REF2MODIS', 'F') DEALLOCATE( BUFFER ) ENDIF RETURN ENDIF ALBEDO_REF_TO_SCHEME = -1.0 ! returned result produces error flag 2000 FORMAT(i2,1X,a30,1X,i2,3(f7.3,1X),2(f8.4,1X),a30) 5001 FORMAT(7X,'INTEGER, PARAMETER :: ',A,' = ',I4) ! CLOSE(IO_INSPECT) return end !*********************************************************************** !1 Asner, G. Biophysical and biochemical sources of variability in canopy reflectance. ! Remote Sens. Environ. 64:234-253, 1998. ! !2 Belward, A., and T. Loveland. The DIS 1km Land Cover Data Set, Global Change, The ! IGBP Newsletter, #27, Sep., 1996. ! !3 Betts, A. K., and J. H. Ball. Albedo over the Boreal Forest, ! J. Geophys. Res., 102, 28901-28909, 1997. ! !4 Blumthaler, M., and W. Ambach. Solar UVB-albedo of various surfaces. ! Photochem. Photobiol. 48(1) 85-88, 1988. ! !5 Bowker, D. E., R. E. Davis, D. L. Myrick, K. Stacy, and W. T. Jones. ! Spectral Reflectances of Natural Targets for use in Remote Sensing Studies, ! NASA Ref. Pub., 1139, June 1985. ! !6 Briegleb, B. P., P. Minnis, V. Ramanathan, and E. Harrison. Comparison of Regional ! Clear-Sky Albedos Inferred from Satellite Observations and Models Comparisons, ! J. Clim. Appl. Meteor., 25, 214-226, 1986. ! !7 Briegleb, B. P., and V. Ramanathan. Spectral and Diurnal Variations in Clear Sky ! Planetary Albedo, J. Appl. Meteor., 21, 1160-1171, 1982. ! !8 Coddington, Odele, K. S. Schmidt, P. Pilewskie, W. J. Gore, R. W. Bergstrom, ! M. Roman, J. Redemann, P. B.Russell, J. Liu, and C. C. Schaaf. Aircraft measurements of ! spectral surface albedo and its consistency with ground-based and space-borne observations. ! J. Geophys. Res. 113 (D17209), 2008. ! !9 Dozier, J. Spectral signature of alpine snow cover from the Landsat Thematic Mapper. ! Remote Sens. Environ. 28:9-22, 1989. ! !10 Dozier, J., R. E. Davis, and R. Perla. On the objective analysis of snow microstructure. ! Avalanche Formation, Movement and Effects (proceedings of the Davos Symposium, Sept. 1986. ! IAHS Publ. no. 162, 1987. ! !11 Dozier, J. and T. H. Painter. Multispectral and hyperspectral remote sensing of alpine ! snow properties. Annu. Rev. Earth Planet. Sci. 32:465-94, 2004. ! !12 Dozier, J, and S. G. Warren. Effect of viewing angle on the infrared brightness ! temperature of snow. Water Resources Research, 18(5) 1424-1434, 1982. ! !13 Feister, U., and R. Grewe. Spectral albedo measurements in the uv and visible region ! over different types of surfaces. Photochem.Photbiol. 62(4) 736-744, 1995. ! !14 Fu, Qiang, and K.N. Liou. ON the Correlated k-Distribution Moethod for Radiative ! Transfer in Nonhomogeneous Atmospheres. J. Atmos. Sci. 49(22) 2139-2156, 1992. ! !15 Grenfell, T. C. and D. K. Perovich. Spectral albedos of sea ice and incident solar ! irradiance in the Southern Beaufort Sea, J. Geophys. Res., 89, 3573-3580. 1984. ! !16 Grenfell, T. C., S. G. Warren, and P. C. Mullen. Reflection of Solar Radiation By ! The Antarctic Snow Surface at Ultraviolet, Visible, and Near-Infrared Wavelengths, J. Geophys. Res., 99, 18669-18684, 1994. ! !17 Hansen, F. V. Albedos. Army Research Laboratory. ARL-TR-57, 1993. ! !18 Jin, Y, C.B. Schaaf, F. Gao, X. Li, and A.H. Strahler. How does snow impact ! the albedo of vegetated land surfaces as analysized with MODIS data? Geophys. Res. ! Lett. 29(10) 1374. 2002 !19 Koelemeijer, R. B. A., J. F. de Haan, and P. Stammes. A database of spectral surface ! reflectivity in the range 335-772 nm derived from 5.5 years of GOME observations. ! J. Geophys. Res. 108(D2) 4070, 2003. ! !20 Laepple, T. and M. G. Schultz. Improved albedo formulation for chemistry transport ! models based on satellite observations and assimilated snow data and its impact on tropospheric ! photochemistry. J. Geophys. Res. 110(D) 11308, 2005. ! !21 Lundberg, A, and J. Beringer. Albedo and snowmelt rates across a trundra-to-forest ! transition. 15th Inter. Northern Research Basins Symposium and Workshop, Lulea, Sweden, ! 29 Aug ? 2 Sep, 2005. ! !22 Michalsky, J. J., Q. L. Min, J. C. Barnard, R. T.Marchand, P. Pilewskie. Simultaneous ! spectral albedo measurements near the ARM SGP central facility. Twelfth ARM Science Team Meeting ! Proceedings, St. Petersburg, FL, USA. April 8-12, 2002. ! !23 Moody, E.G, M.D. King, S. Platnick, C.B. Schaaf, F. Gao. Spatially complete global spectral ! surface albedos: value-added datasets derived from Terra MODIS land products. IEEE Trans. ! On Geoscience and Remote Sens. 43(1) 144-158. 2005. ! !24 Moody, E.G, M.D. King, C.B. Schaaf, D.K. Hall, and S. Platnick. Northern Hemisphere ! five-year average (2000-2004) spectral albedos of surfaces in the presence of snow: Statistics ! computed from Terra MODIS land products. Remote Sens. Environment. 111, 337-345. 2007. ! !25 Payne, R. E., Albedo of the Sea Surface, J. Atmos. Sci., 29, 959-970, 1972. ! !26 Petzold, D. E., and A. N. Rencz. The albedo of selected subarctic surfaces. Arctic and ! Alpine Res. 7(4) 393-8, 1975. ! !27 Pinker, R. T., and A. Karnieli. Characteristic Spectral Reflectance of a semi-arid environment, ! Int. J. Rem. Sens., 1995. ! !28 Privette, J. L, T. F. Eck, D. W. Deering. Estimating spectral albedo and nadir reflectance ! through inversion of simple BRDF models with AVHRR/MODIS-like data. ! J. Geophys. Res. 102(D24) 29,529-29,542, 1997. ! !29 Roesch, A., C. Schaaf, and F. Gao. Use of Moderate-Resolution Imaging Spectroradiometer ! bidirectional reflectance distribution function products to enhance simulated surface albedos. ! J. Geophys. Res. 109(D) 12,105, 2004. ! !30 Staylor W. F. and A.C. Wilber. Global surface albedos estimated from ERBE data, ! Proceedings, 7th Conf. on Atmos. Rad., San Francisco, CA, 1990. ! !31 Taberner, M. B. Pinty, Y. Govaerts, S. Liang, M.M. Verstraete, N. Gobron, and J.L. Widlowski. ! Comparison of MISR and MODIS land surface albedos: methodology. ! J. Geophys. Res. 115(D) 05101, 2010. ! !32 Tsuyuzaki, S., K Kushida, Y Kodama. Recovery of surface albedo and plant cover ! after wildfire in a Picea mariana forest in interior Alaska. Climatic Change 93:517?525, 2009. ! !33 Wilber, A.C., D. P. Kratz, S. K. Gupta, Surface Emissivity Maps for Use of Satellite ! Retrievals of Longwave Radiation, NASA Tech. Pub., TP-99-209362, 1999. ! !34 Wendisch, M. P. Pilewskie, E. Jakel, S. Schmidt, J. Pommier, S. Howard, H.H. Jonsson, ! H Guan, M. Schroder, and B. Mayer. Airborne measurements of areal spectral surface albedo over ! different sea and land surfaces. J. Geophys. Res. 109(D) 08203, 2004. ! !35 Warren, S. G., and W. J. Wiscombe. A model for the spectral albedo of snow. ! II: Snow containing atmospheric aerosols. J. Atmosph. Sci. 37(12) 2734-45, 1980. ! ================================================ FILE: UTIL/inline_phot_preproc/src/wrbf12d.f ================================================ C*************************************************************************** C Significant portions of Models-3/CMAQ software were developed by * C Government employees and under a United States Government contract. * C Portions of the software were also based on information from non- * C Federal sources, including software developed by research institutions * C through jointly funded cooperative agreements. These research institu- * C tions have given the Government permission to use, prepare derivative * C works, and distribute copies of their work to the public within the * C Models-3/CMAQ software release and to permit others to do so. EPA * C therefore grants similar permissions for use of Models-3/CMAQ software, * C but users are requested to provide copies of derivative works to the * C Government without re-strictions as to use by others. Users are * C responsible for acquiring their own copies of commercial software * C associated with the Models-3/CMAQ release and are also responsible * C to those vendors for complying with any of the vendors' copyright and * C license restrictions. In particular users must obtain a Runtime license * C for Orbix from IONA Technologies for each CPU used in Models-3/CMAQ * C applications. * C * C Portions of I/O API, PAVE, and the model builder are Copyrighted * C 1993-1997 by MCNC--North Carolina Supercomputing Center and are * C used with their permissions subject to the above restrictions. * C*************************************************************************** C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/work/rep/MECH/src/driver/mech/WRBF12D.f,v 1.3 2001/03/05 19:50:14 yoj Exp $ C You can't put zeros in column 5 as a continuation character on Sun's C what(1) key, module and SID; SCCS file; date and time of last delta: C @(#)WRBF12D.F 1.1 /project/mod3/MECH/src/driver/mech/SCCS/s.WRBF12D.F 02 Jan 1997 15:26:53 C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE WRBF12D ( WRUNIT, AWPL, NEL, VAR, AFMT ) C write an 8-byte variable to a 12-character buffer, format at no more than C 5 elements per line (due to FORMAT restrictions), then dump to file IMPLICIT NONE ! INCLUDE 'PARMS.e' INTEGER WRUNIT ! logical write unit no. INTEGER AWPL, WPL ! words per line (max at 5) INTEGER NEL ! number of list elements REAL( 8 ) :: VAR( NEL ) ! real variable to write CHARACTER( 1 ) :: AFMT ! write format: D -> 1PD11.4, E -> 1PE11.4, F -> F11.5 CHARACTER( 14 ) :: FMT1, FMT2 CHARACTER( 14 ) :: DFMT1 = '(1PD11.4, '','')' CHARACTER( 14 ) :: DFMT2 = '(1PD11.4, ''/'')' CHARACTER( 14 ) :: EFMT1 = '(1PE11.4, '','')' CHARACTER( 14 ) :: EFMT2 = '(1PE11.4, ''/'')' CHARACTER( 14 ) :: FFMT1 = '(F11.5, '','') ' CHARACTER( 14 ) :: FFMT2 = '(F11.5, ''/'') ' INTEGER IRX, IRX0, IRX1, IRX2, IRXF, IOS, CNN INTEGER, PARAMETER :: LOGDEV = 6 CHARACTER( 1 ) :: CONCHAR CHARACTER( 12 ) :: BUFF12( NEL ) C---------------------------------------------------------------------- WPL = MIN( AWPL, 5 ) IF ( AFMT .EQ. 'D' ) THEN FMT1 = DFMT1 FMT2 = DFMT2 ELSE IF ( AFMT .EQ. 'E' ) THEN FMT1 = EFMT1 FMT2 = EFMT2 ELSE IF ( AFMT .EQ. 'F' ) THEN FMT1 = FFMT1 FMT2 = FFMT2 ELSE WRITE( LOGDEV,2001 ) AFMT 2001 FORMAT(/ 5X, '*** Error setting write format in WRBF12 ***' & / 5X, 'Attempted argument value', A ) STOP END IF DO IRX = 1, NEL-1 WRITE( BUFF12( IRX ), FMT1, IOSTAT = IOS ) VAR( IRX ) IF ( IOS .NE. 0 ) THEN WRITE( LOGDEV,2003 ) IRX, VAR( IRX ), IOS 2003 FORMAT( /5X, '*** Error writing to internal buffer in WRBF12 ***' & /5X, 'Attempted to write element', I6, & 1X, 'and data:', 1PE11.4 & /5X, 'IOSTATUS = ', I6) STOP END IF END DO WRITE( BUFF12( NEL ), FMT2, IOSTAT = IOS ) VAR( NEL ) IF ( IOS .NE. 0 ) THEN WRITE( LOGDEV,2003 ) NEL, VAR( NEL ), IOS STOP END IF ! IF ( AFMT .EQ. 'D' ) THEN ! DO IRX = 1, NEL ! BUFF12( IRX )( 8:8 ) = 'D' ! END DO ! END IF IF ( NEL / WPL .GE. 6 ) THEN IRX1 = 1 IRXF = 0 DO IRX0 = 1, NEL / WPL IRX2 = IRX1 + WPL - 1 IF ( MOD( IRX0, 2 ) .NE. 0 ) THEN CNN = MOD( IRXF, 10 ) IF ( CNN .NE. 0 ) THEN WRITE( CONCHAR, '(I1)' ) CNN ELSE CONCHAR = 'O' END IF IRXF = IRXF + 1 ELSE CONCHAR = '+' END IF WRITE( WRUNIT, 1001, IOSTAT = IOS ) CONCHAR, & ( BUFF12( IRX ), IRX = IRX1, IRX2 ) 1001 FORMAT( 5X, A, 4X, 5A12 ) IF ( IOS .NE. 0 ) THEN WRITE( LOGDEV,2005 ) WRUNIT, IRX, BUFF12( IRX ), IOS 2005 FORMAT( /5X, '*** Error writing to external unit', I3, & 1X, 'in WRBF12 ***' & /5X, 'Attempted to write buffer index', I3, & 1X, 'with data:', A12 & /5X, 'IOSTATUS = ', I6) STOP END IF IRX1 = IRX2 + 1 END DO IF ( IRX1 .LE. NEL ) THEN ! assumes last DO index incremented by 1 IF ( MOD( IRX1, 2 ) .NE. 0 ) THEN CNN = MOD( IRXF, 10 ) IF ( CNN .NE. 0 ) THEN WRITE( CONCHAR, '(I1)' ) CNN ELSE CONCHAR = 'O' END IF ELSE CONCHAR = '+' END IF WRITE( WRUNIT, 1001, IOSTAT = IOS ) CONCHAR, & ( BUFF12( IRX ), IRX = IRX1, NEL ) IF ( IOS .NE. 0 ) THEN WRITE( LOGDEV,2005 ) WRUNIT, IRX, BUFF12( IRX ), IOS STOP END IF END IF ELSE CONCHAR = '&' IRX1 = 1 DO IRX0 = 1, NEL / WPL IRX2 = IRX1 + WPL - 1 WRITE( WRUNIT, 1001, IOSTAT = IOS ) CONCHAR, & ( BUFF12( IRX ), IRX = IRX1, IRX2 ) IF ( IOS .NE. 0 ) THEN WRITE( LOGDEV,2005 ) WRUNIT, IRX, BUFF12( IRX ), IOS STOP END IF IRX1 = IRX2 + 1 END DO IF ( IRX1 .LE. NEL ) THEN ! assumes last DO index incremented by 1 WRITE( WRUNIT, 1001, IOSTAT = IOS ) CONCHAR, & ( BUFF12( IRX ), IRX = IRX1, NEL ) IF ( IOS .NE. 0 ) THEN WRITE( LOGDEV,2005 ) WRUNIT, IRX, BUFF12( IRX ), IOS STOP END IF END IF END IF RETURN END ================================================ FILE: UTIL/inline_phot_preproc/src/wrbf12d_w_headerb.f ================================================ C*************************************************************************** C Significant portions of Models-3/CMAQ software were developed by * C Government employees and under a United States Government contract. * C Portions of the software were also based on information from non- * C Federal sources, including software developed by research institutions * C through jointly funded cooperative agreements. These research institu- * C tions have given the Government permission to use, prepare derivative * C works, and distribute copies of their work to the public within the * C Models-3/CMAQ software release and to permit others to do so. EPA * C therefore grants similar permissions for use of Models-3/CMAQ software, * C but users are requested to provide copies of derivative works to the * C Government without re-strictions as to use by others. Users are * C responsible for acquiring their own copies of commercial software * C associated with the Models-3/CMAQ release and are also responsible * C to those vendors for complying with any of the vendors' copyright and * C license restrictions. In particular users must obtain a Runtime license * C for Orbix from IONA Technologies for each CPU used in Models-3/CMAQ * C applications. * C * C Portions of I/O API, PAVE, and the model builder are Copyrighted * C 1993-1997 by MCNC--North Carolina Supercomputing Center and are * C used with their permissions subject to the above restrictions. * C*************************************************************************** C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/work/rep/MECH/src/driver/mech/WRBF12D.f,v 1.3 2001/03/05 19:50:14 yoj Exp $ C You can't put zeros in column 5 as a continuation character on Sun's C what(1) key, module and SID; SCCS file; date and time of last delta: C @(#)WRBF12D.F 1.1 /project/mod3/MECH/src/driver/mech/SCCS/s.WRBF12D.F 02 Jan 1997 15:26:53 C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE WRBF12D_HEADERB (WRUNIT,AWPL,NEL,VAR,NELNAME, & VARNAME,AFMT) C write an 8-byte variable to a 12-character buffer, format at no more than C 5 elements per line (due to FORMAT restrictions), then dump to file IMPLICIT NONE ! INCLUDE 'PARMS.e' INTEGER WRUNIT ! logical write unit no. INTEGER AWPL, WPL ! words per line (max at 5) INTEGER NEL ! number of list elements REAL :: VAR( NEL ) ! real variable to write CHARACTER( * ) :: NELNAME ! name for number of list elements CHARACTER( * ) :: VARNAME ! name of real variable CHARACTER( 1 ) :: AFMT ! write format: D -> 1PD11.4, E -> 1PE11.4, F -> F11.5 CHARACTER( 14 ) :: FMT1, FMT2 CHARACTER( 19 ) :: CHAR_SCR CHARACTER( 14 ) :: DFMT1 = '(1PD11.4, '','')' CHARACTER( 14 ) :: DFMT2 = '(1PD11.4, ''/'')' CHARACTER( 14 ) :: EFMT1 = '(1PE11.4, '','')' CHARACTER( 14 ) :: EFMT2 = '(1PE11.4, ''/'')' CHARACTER( 14 ) :: FFMT1 = '(F11.4, '','') ' CHARACTER( 14 ) :: FFMT2 = '(F11.4, ''/'') ' INTEGER IRX, IRX0, IRX1, IRX2, IRXF, IOS, CNN INTEGER, PARAMETER :: LOGDEV = 6 CHARACTER( 1 ) :: CONCHAR CHARACTER( 12 ) :: BUFF12( NEL ) C---------------------------------------------------------------------- WPL = MIN( AWPL, 5 ) IF ( AFMT .EQ. 'D' ) THEN FMT1 = DFMT1 FMT2 = DFMT2 ELSE IF ( AFMT .EQ. 'E' ) THEN FMT1 = EFMT1 FMT2 = EFMT2 ELSE IF ( AFMT .EQ. 'F' ) THEN FMT1 = FFMT1 FMT2 = FFMT2 ELSE WRITE( LOGDEV,2001 ) AFMT 2001 FORMAT(/ 5X, '*** Error setting write format in WRBF12 ***' & / 5X, 'Attempted argument value', A ) STOP END IF C CHAR_SCR = 'NN_' // VARNAME(1:LEN_TRIM(VARNAME)) CHAR_SCR = NELNAME( 1:LEN_TRIM( NELNAME ) ) C WRITE( WRUNIT, 4401 ) CHAR_SCR, NEL 4401 FORMAT( /6X, 'INTEGER, PARAMETER', 1X, ':: ',A,' =', I4 ) WRITE( WRUNIT, 4402 )VARNAME(1:LEN_TRIM(VARNAME)), & CHAR_SCR(1:LEN_TRIM(CHAR_SCR)) 4402 FORMAT( /6X, 'REAL ', 10X, ':: ',A,'( ',A,' )' ) WRITE( WRUNIT, 3407 )VARNAME(1:LEN_TRIM(VARNAME)) 3407 FORMAT( 6X, 'DATA ',A,' /' ) DO IRX = 1, NEL-1 WRITE( BUFF12( IRX ), FMT1, IOSTAT = IOS ) VAR( IRX ) IF ( IOS .NE. 0 ) THEN WRITE( LOGDEV,2003 ) IRX, VAR( IRX ), IOS STOP END IF END DO WRITE( BUFF12( NEL ), FMT2, IOSTAT = IOS ) VAR( NEL ) IF ( IOS .NE. 0 ) THEN WRITE( LOGDEV,2003 ) NEL, VAR( NEL ), IOS STOP END IF ! IF ( AFMT .EQ. 'D' ) THEN ! DO IRX = 1, NEL ! BUFF12( IRX )( 8:8 ) = 'D' ! END DO ! END IF IF ( NEL / WPL .GE. 6 ) THEN IRX1 = 1 IRXF = 0 DO IRX0 = 1, NEL / WPL IRX2 = IRX1 + WPL - 1 IF ( MOD( IRX0, 2 ) .NE. 0 ) THEN CNN = MOD( IRXF, 10 ) IF ( CNN .NE. 0 ) THEN WRITE( CONCHAR, '(I1)' ) CNN ELSE CONCHAR = 'O' END IF IRXF = IRXF + 1 ELSE CONCHAR = '+' END IF WRITE( WRUNIT, 1001, IOSTAT = IOS ) CONCHAR, & ( BUFF12( IRX ), IRX = IRX1, IRX2 ) 1001 FORMAT( 5X, A, 4X, 5A12 ) IF ( IOS .NE. 0 ) THEN WRITE( LOGDEV,2005 ) WRUNIT, IRX, BUFF12( IRX ), IOS 2005 FORMAT( /5X, '*** Error writing to external unit', I3, & 1X, 'in WRBF12 ***' & /5X, 'Attempted to write buffer index', I3, & 1X, 'with data:', A12 & /5X, 'IOSTATUS = ', I6) STOP END IF IRX1 = IRX2 + 1 END DO IF ( IRX1 .LE. NEL ) THEN ! assumes last DO index incremented by 1 IF ( MOD( IRX1, 2 ) .NE. 0 ) THEN CNN = MOD( IRXF, 10 ) IF ( CNN .NE. 0 ) THEN WRITE( CONCHAR, '(I1)' ) CNN ELSE CONCHAR = 'O' END IF ELSE CONCHAR = '+' END IF WRITE( WRUNIT, 1001, IOSTAT = IOS ) CONCHAR, & ( BUFF12( IRX ), IRX = IRX1, NEL ) IF ( IOS .NE. 0 ) THEN WRITE( LOGDEV,2005 ) WRUNIT, IRX, BUFF12( IRX ), IOS STOP END IF END IF ELSE CONCHAR = '&' IRX1 = 1 DO IRX0 = 1, NEL / WPL IRX2 = IRX1 + WPL - 1 WRITE( WRUNIT, 1001, IOSTAT = IOS ) CONCHAR, & ( BUFF12( IRX ), IRX = IRX1, IRX2 ) IF ( IOS .NE. 0 ) THEN WRITE( LOGDEV,2005 ) WRUNIT, IRX, BUFF12( IRX ), IOS STOP END IF IRX1 = IRX2 + 1 END DO IF ( IRX1 .LE. NEL ) THEN ! assumes last DO index incremented by 1 WRITE( WRUNIT, 1001, IOSTAT = IOS ) CONCHAR, & ( BUFF12( IRX ), IRX = IRX1, NEL ) IF ( IOS .NE. 0 ) THEN WRITE( LOGDEV,2005 ) WRUNIT, IRX, BUFF12( IRX ), IOS STOP END IF END IF END IF 2003 FORMAT( /5X, '*** Error writing to internal buffer in WRBF12 ***' & /5X, 'Attempted to write element', I6, & 1X, 'and data:', 1PE11.4 & /5X, 'IOSTATUS = ', I6) RETURN END ================================================ FILE: UTIL/inline_phot_preproc/src/wrt_csqy_data.F ================================================ SUBROUTINE WRT_CSQY_DATA( WLIN, CS_IN, QY_IN, NWLIN, SPECTRA_NAME, SPECTRA_TYPE, & WLL_AVE, WLU_AVE, CS_AVE, QY_AVE, NWL_AVE ) ! USE JPROC_PROFILE USE GET_ENV_VARS USE BIN_DATA USE CSQY_REFER_DATA USE ALBEDO_REFER_DATA IMPLICIT NONE ! INCLUDE 'JVALPARMS.EXT' ! jproc parameters C...........ARGUMENTS and their descriptions CHARACTER( 1), INTENT( IN ) :: SPECTRA_TYPE ! spectra type CHARACTER(16), INTENT( IN ) :: SPECTRA_NAME ! spectra type INTEGER, INTENT( IN ) :: NWLIN ! number of intervals CQin REAL, INTENT( IN ) :: WLIN ( : ) ! wl for CQin REAL, INTENT( IN ) :: CS_IN( : ) ! cross-section as f(WLIN) REAL, INTENT( IN ) :: QY_IN( : ) ! quantum yield as f(WLIN) REAL, INTENT( OUT) :: WLL_AVE( : ) ! lower limit on wl int ETin REAL, INTENT( OUT ) :: WLU_AVE( : ) ! upper limit on wl int ETin REAL, INTENT( OUT ) :: CS_AVE( : ) ! cross-section as f(WL_AVE) REAL, INTENT( OUT ) :: QY_AVE( : ) ! quantum yield as f(WL_AVE) INTEGER, INTENT( OUT ) :: NWL_AVE C...........LOCAL VARIABLES and their descriptions: CHARACTER(16) :: PNAME = 'WRT_CSQY_DATA' ! program name CHARACTER(80) :: MSG = ' ' ! message C...........PARAMETERS and their descriptions ! INTEGER, PARAMETER :: XSTAT2 = 2 ! Program ERROR exit status ! integer, parameter :: NBO = 100 ! integer, parameter :: NSO = 40000 ! integer, parameter :: NZO = 13550 ! integer, parameter :: NJO = 18 ! INTEGER, SAVE :: NB, J1, J2, K1, K2 ! array limits and markers INTEGER :: I, J, K ! index counters REAL, ALLOCATABLE, SAVE :: WLIN1( : ) ! lower limit on wl int CQin REAL, ALLOCATABLE, SAVE :: WLIN2( : ) ! upper limit on wl int CQin ! REAL(8), SAVE :: SRB(15,NJO) ! REAL(8), SAVE :: WBIN(NBO + 1 ) ! REAL(8) :: FBIN(NBO) ! REAL(8) :: ABIN(NBO) ! REAL(8) :: CBIN(NBO) ! REAL(8) :: DBIN(NBO) ! REAL(8) :: EBIN(NBO) REAL(8), ALLOCATABLE, SAVE :: FBIN( : ) REAL(8), ALLOCATABLE, SAVE :: ABIN( : ) REAL(8), ALLOCATABLE, SAVE :: CBIN( : ) REAL(8), ALLOCATABLE, SAVE :: DBIN( : ) REAL(8), ALLOCATABLE, SAVE :: EBIN( : ) REAL :: TEMP ! temperature, K REAL(8) :: WW REAL(8), ALLOCATABLE, SAVE :: FFBIN( : ) REAL(8), ALLOCATABLE, SAVE :: AABIN( : ) REAL(8), ALLOCATABLE, SAVE :: CCBIN( : ) REAL(8), ALLOCATABLE, SAVE :: DDBIN( : ) REAL(8), ALLOCATABLE, SAVE :: EEBIN( : ) ! INTEGER, SAVE :: IJX(NBO) INTEGER :: ITTR ! REAL, ALLOCATABLE, SAVE :: W(:), F(:) REAL, ALLOCATABLE, SAVE :: XCOUT(:), QYOUT(:) ! REAL, ALLOCATABLE, SAVE :: WL(:), WU(:), WC(:) ! INTEGER, SAVE :: IBINJ(NSO) REAL :: XNEW CHARACTER(8) :: TITLNEW CHARACTER(16) :: SAFE_NAME CHARACTER(60) :: VNAME LOGICAL, SAVE :: FIRSTCALL = .TRUE. REAL, SAVE :: TEMPERATURE(N_TEMPERATURE) REAL :: DELTA_TEMP REAL :: TEMP_STRT, TEMP_FINI REAL, SAVE :: TEMP_STRAT(N_TEMP_STRAT) INTEGER :: IRXN INTEGER, PARAMETER :: NZ = N_TEMPERATURE REAL :: AIR_TEMP(NZ) = 298 ! air temperature [K] REAL :: NUM_DENS(NZ) = DENS0 ! air number density [molec/cm3] LOGICAL :: REPLACE ! flag to use sq values in calling routine REAL, ALLOCATABLE, SAVE :: XCROSS( : , : ) ! cross-section [CM2] REAL, ALLOCATABLE, SAVE :: YIELD(: , : ) ! quantum yield [dimensionaless] REAL, ALLOCATABLE, SAVE :: XCROSS_EFF(: , : ) ! cross-section times yield [CM2] REAL, ALLOCATABLE, SAVE :: WC_EXT( : ) REAL, ALLOCATABLE, SAVE :: WC_ASF( : ) REAL, ALLOCATABLE, SAVE :: WC_SSA( : ) REAL, PARAMETER :: CLOUD_RADIUS_LIQUID = 10.0 ! mean cloud droplet radii, um INTEGER, PARAMETER :: NAERO_REFRACT = 5 LOGICAL, SAVE :: WRITE_AE_REFRACT = .FALSE. ! .FALSE. CHARACTER( 5 ) :: WVL_AE_REFRAC CHARACTER( 13 ) :: AERO_INDEX = 'WVL_AE_REFRAC' CHARACTER( 16 ) :: AERO_REFRACT_INDX( NAERO_REFRACT ) DATA AERO_REFRACT_INDX / "WATER", "SOLUTE", "DUST", "SEASALT", "SOOT" / REAL, ALLOCATABLE :: AERO_IMAG_REFRACT( :, : ) REAL, ALLOCATABLE :: AERO_REAL_REFRACT( :, : ) REAL, ALLOCATABLE, SAVE :: MODIS_ALBEDO( :, :) ! NJO, NUMB_LANDUSE_MODIS ) REAL, ALLOCATABLE, SAVE :: CS_PHOT( :, :, :) ! N_TEMPERATURE, N_INLINE_BAND, NPHOTAB) REAL, ALLOCATABLE, SAVE :: QY_PHOT( :, :, :) ! N_TEMPERATURE, N_INLINE_BAND, NPHOTAB) REAL, ALLOCATABLE, SAVE :: ECS_PHOT( :, :, :) ! N_TEMPERATURE, N_INLINE_BAND, NPHOTAB) REAL, ALLOCATABLE, SAVE :: EQY_PHOT( :, :, :) ! N_TEMPERATURE, N_INLINE_BAND, NPHOTAB) REAL, ALLOCATABLE, SAVE :: O3_CS_STRAT( :, :) ! N_TEMP_STRAT, N_INLINE_BAND) REAL, ALLOCATABLE, SAVE :: O3_QY_STRAT( :, :) ! N_TEMP_STRAT, N_INLINE_BAND) REAL, ALLOCATABLE, SAVE :: O3_ECS_STRAT( :, :) ! N_TEMP_STRAT, N_INLINE_BAND) REAL, ALLOCATABLE, SAVE :: O3_EQY_STRAT( :, :) ! N_TEMP_STRAT, N_INLINE_BAND) REAL, EXTERNAL :: OZONE_YIELD INTERFACE SUBROUTINE XC_QY_TD_EFFECT(WC,NW,TLEV,DENS,NZ, & JLABEL,XC,QY,SQ,REPLACE) INTEGER, INTENT( IN ) :: NW REAL, INTENT( IN ) :: WC(:) INTEGER, INTENT( IN ) :: NZ REAL, INTENT( IN ) :: TLEV(:) ! AIR TEMPERATURE OVER MODEL LEVELS, DEG K REAL, INTENT( IN ) :: DENS(:) ! AIR NUMBER DENSITY OVER LEVEL, 1/CM3 CHARACTER(16), INTENT( IN ) :: JLABEL ! NAME OF PHOTOLYSIS RATE REAL, INTENT( INOUT ) :: XC(:,:) ! CROSS-SECTION FROM FILE REAL, INTENT( INOUT ) :: QY(:,:) ! QUANTUM YIELD FROM FILE REAL, INTENT( OUT ) :: SQ(:,:) ! CROSS-SECTION TIMES QUANTUM YIELD OVER MODEL LEVELS LOGICAL, INTENT( OUT ) :: REPLACE ! FLAG TO USE SQ VALUES IN CALLING ROUTINE END SUBROUTINE XC_QY_TD_EFFECT SUBROUTINE INTAVG ( WLIN, CQIN, NWLIN, SPECTRA_TYPE, & NWLOUT, WLOUT1, WLOUT2, CQOUT ) CHARACTER(1), INTENT( IN ) :: SPECTRA_TYPE ! spectra type INTEGER, INTENT( IN ) :: NWLOUT ! number of intervals ETin INTEGER, INTENT( IN ) :: NWLIN ! number of intervals CQin REAL, INTENT( IN ) :: WLIN ( : ) ! wl for CQin REAL, INTENT( IN ) :: CQIN( : ) ! quantity (CS or QY) as f(WLIN) REAL, INTENT( INOUT ) :: WLOUT1( : ) ! lower limit on wl int ETin REAL, INTENT( INOUT ) :: WLOUT2( : ) ! upper limit on wl int ETin REAL, INTENT( OUT ) :: CQOUT ( : ) ! quantity (CS or QY) as f(WLOUT) END SUBROUTINE INTAVG SUBROUTINE INTAVG_C ( WLIN, CQIN, NWLIN, SPECTRA_TYPE, & NWLOUT, WLOUT1, WLOUT2, CQOUT ) CHARACTER(1), INTENT( IN ) :: SPECTRA_TYPE ! spectra type INTEGER, INTENT( IN ) :: NWLOUT ! number of intervals ETin INTEGER, INTENT( IN ) :: NWLIN ! number of intervals CQin REAL, INTENT( IN ) :: WLIN ( : ) ! wl for CQin REAL, INTENT( IN ) :: CQIN( : ) ! quantity (CS or QY) as f(WLIN) REAL, INTENT( INOUT ) :: WLOUT1( : ) ! lower limit on wl int ETin REAL, INTENT( INOUT ) :: WLOUT2( : ) ! upper limit on wl int ETin REAL, INTENT( OUT ) :: CQOUT ( : ) ! quantity (CS or QY) as f(WLOUT) END SUBROUTINE INTAVG_C SUBROUTINE OPTICS_WATER_CLOUD(CLOUD_RADIUS_LIQUID, WC_EXT, WC_ASF, WC_SSA) REAL, INTENT( IN ) :: CLOUD_RADIUS_LIQUID REAL, INTENT( OUT ) :: WC_EXT( : ) REAL, INTENT( OUT ) :: WC_ASF( : ) REAL, INTENT( OUT ) :: WC_SSA( : ) END SUBROUTINE OPTICS_WATER_CLOUD SUBROUTINE AERO_REFRACT_INDEX ( NAERO_REFRACT, AERO_REFRACT_INDX, AERO_REAL_REFRACT, & AERO_IMAG_REFRACT ) INTEGER, INTENT( IN ) :: NAERO_REFRACT ! number of refractive indices CHARACTER( 16 ), INTENT( IN ) :: AERO_REFRACT_INDX( : ) ! names of refractive indices REAL, INTENT( OUT ) :: AERO_IMAG_REFRACT( :, : ) ! imaginary part of index [Dimensionaless] REAL, INTENT( OUT ) :: AERO_REAL_REFRACT( :, : ) ! real part of index [Dimensionaless] END SUBROUTINE AERO_REFRACT_INDEX SUBROUTINE SPECTRAL_REFLECT(MODIS_ALBEDO) IMPLICIT NONE REAL, INTENT( OUT ) :: MODIS_ALBEDO( :, : ) END SUBROUTINE SPECTRAL_REFLECT SUBROUTINE CONVERT_CASE ( BUFFER, UPPER ) CHARACTER(LEN= *), INTENT( INOUT ) :: BUFFER LOGICAL, INTENT( IN ) :: UPPER END SUBROUTINE CONVERT_CASE END INTERFACE IF( FIRSTCALL )THEN FIRSTCALL = .FALSE. CALL INIT_BIN_DATA IF( CHANGE_WBIN )THEN ALLOCATE( FBIN( NB_NEW + 1 ) ) ALLOCATE( ABIN( NB_NEW + 1 ) ) ALLOCATE( CBIN( NB_NEW + 1 ) ) ALLOCATE( DBIN( NB_NEW + 1 ) ) ALLOCATE( EBIN( NB_NEW + 1 ) ) ELSE ALLOCATE( FBIN( NBO ) ) ALLOCATE( ABIN( NBO ) ) ALLOCATE( CBIN( NBO ) ) ALLOCATE( DBIN( NBO ) ) ALLOCATE( EBIN( NBO ) ) ENDIF ITTR = 0 IF(N_TEMPERATURE .LT. 4)THEN TEMP_FINI = 298.0 TEMP_STRT = 248.0 ELSE TEMP_FINI = 310.0 TEMP_STRT = 210.0 ENDIF DELTA_TEMP = (TEMP_FINI-TEMP_STRT)/FLOAT(N_TEMPERATURE-1) WRITE(JTABLE_UNIT,'(A8,1X,I3)')'NTEMP = ', N_TEMPERATURE WRITE(JTABLE_UNIT,'(A)')'! I TEMP( I ) K' DO I = 1, N_TEMPERATURE ! 248, 298, 25 ITTR = ITTR + 1 TEMPERATURE(ITTR) = TEMP_STRT + DELTA_TEMP*FLOAT(I-1) WRITE(JTABLE_UNIT,'(I3,2X,F6.2)')ITTR, TEMPERATURE(ITTR) ENDDO TEMP_STRAT( 1 ) = 180.0 ITTR = 1 DO I = 2, N_TEMP_STRAT ! 248, 298, 25 ITTR = ITTR + 1 TEMP_STRAT(ITTR) = TEMP_STRAT( 1 ) + 40.0*FLOAT(I) C WRITE(JTABLE_UNIT,'(I3,2X,F6.2)')ITTR, TEMPERATURE(ITTR) ENDDO ! TEMPERATURE = 298.0 ! READ(PHOTAB_UNIT,'(10X,I3,//)')NTEMP_REF ! DO I = 1, NTEMP_REF ! READ(PHOTAB_UNIT,'(5X,F6.2)')TEMP_REF( I ) ! ENDDO ALLOCATE( XCOUT(NSO), QYOUT(NSO)) ALLOCATE( AABIN(NJO_NEW), CCBIN( NJO_NEW), DDBIN(NJO_NEW), % EEBIN(NJO_NEW), FFBIN(NJO_NEW)) ALLOCATE( XCROSS(NZ, NJO_NEW), YIELD(NZ, NJO_NEW), XCROSS_EFF(NZ,NJO_NEW) ) ALLOCATE( WC_EXT( NJO_NEW ), WC_ASF( NJO_NEW ), WC_SSA( NJO_NEW )) ALLOCATE( AERO_IMAG_REFRACT( NJO_NEW, NAERO_REFRACT ) ) ALLOCATE( AERO_REAL_REFRACT( NJO_NEW, NAERO_REFRACT ) ) WRITE(JTABLE_UNIT,5001) WRITE(JTABLE_UNIT,5002) WRITE(JTABLE_UNIT,5003) WRITE(JTABLE_UNIT,5004) WRITE(JTABLE_UNIT,5005) WRITE(JTABLE_UNIT,5006) ! determine whether to write out spectral values of refractive index for aerosol species CALL VALUE_NAME ( AERO_INDEX, WVL_AE_REFRAC) CALL CONVERT_CASE( WVL_AE_REFRAC, .TRUE.) IF( WVL_AE_REFRAC(1:1) .EQ. 'T' .OR. WVL_AE_REFRAC(1:1) .EQ. 'Y' )THEN WRITE_AE_REFRACT = .TRUE. WRITE(6,'(A)')'Environment Variable WVL_AE_REFRAC set to ' & // TRIM( WVL_AE_REFRAC ) // ' and adding aerosol refractive indice to' & // ' output ' ELSE IF( WVL_AE_REFRAC(1:1) .EQ. 'F' .OR. WVL_AE_REFRAC(1:1) .EQ. 'N' )THEN WRITE_AE_REFRACT = .FALSE. WRITE(6,'(A)')'Environment Variable WVL_AE_REFRAC set to ' & // TRIM( WVL_AE_REFRAC ) // ' and not writing aerosol refractive indice to' & // ' output ' ELSE WRITE(6,' (A)')'Environment Variable WVL_AE_REFRAC set to ' & // TRIM( WVL_AE_REFRAC ) // ' and must equal T, Y, F, or N.' & // ' Using default value of F' WRITE_AE_REFRACT = .FALSE. END IF IF( WRITE_AE_REFRACT )WRITE(JTABLE_UNIT,5007) IF( WRITE_AE_REFRACT )THEN WRITE(JTABLE_UNIT,4999)'N_INLINE_BAND = ', N_INLINE_BAND WRITE(JTABLE_UNIT,4999)'NAERO_REFRACT = ', NAERO_REFRACT WRITE(JTABLE_UNIT,4998)'NAMES_REFRACT_INDX = ', & ( TRIM( AERO_REFRACT_INDX( I ) ), I = 1, NAERO_REFRACT ) ELSE WRITE(JTABLE_UNIT,4997)'N_INLINE_BAND = ', N_INLINE_BAND END IF 4997 FORMAT(A16, 1X, I3) 4998 FORMAT(A20, 1X, 4(A, ', '), A) 4999 FORMAT(2(A16, 1X, I3, ', '), A20, 1X, 4(A, ', '), A) IF( WRITE_AE_REFRACT )THEN WRITE(JTABLE_UNIT,5009)'! I','START_WL_BIN(nm)', & 'EFFECT_WL_BIN_(nm)', 'END_WL_BIN_(nm)','solar_photons_(cm-2*s-1)', & 'CLD_EXT/LWC_(m2/g)','CLD_ASYM_FACT','CLD_COALBEDO', & ( 'AE_' // TRIM( AERO_REFRACT_INDX( I ) ) // "_REAL", & 'AE_' // TRIM( AERO_REFRACT_INDX ( I ) ) // "_IMAG", & I = 1, NAERO_REFRACT ) ELSE WRITE(JTABLE_UNIT,5009)'! I','START_WL_BIN(nm)', & 'EFFECT_WL_BIN_(nm)', 'END_WL_BIN_(nm)','solar_photons_(cm-2*s-1)', & 'CLD_EXT/LWC_(m2/g)','CLD_ASYM_FACT','CLD_COALBEDO' END IF CALL OPTICS_WATER_CLOUD(CLOUD_RADIUS_LIQUID, WC_EXT, WC_ASF, WC_SSA) ! DO I = 1, N_INLINE_BAND ! 248, 298, 25 ! ITTR = NJO_NEW - N_INLINE_BAND + I ! print*,ITTR, WC_EXT(ITTR), WC_ASF(ITTR), WC_SSA(ITTR) ! ENDDO ! pause AERO_IMAG_REFRACT = 0.0 AERO_REAL_REFRACT = 0.0 CAll AERO_REFRACT_INDEX ( NAERO_REFRACT, AERO_REFRACT_INDX, AERO_REAL_REFRACT, & AERO_IMAG_REFRACT ) IF( WRITE_AE_REFRACT )THEN DO I = 1, N_INLINE_BAND ! 248, 298, 25 ITTR = NJO_NEW - N_INLINE_BAND + I WRITE(JTABLE_UNIT,5008)I, & STWL_NEW(ITTR+2), EFFECTIVE_LAMBDA(ITTR), ENDWL_NEW(ITTR+2), & SOLAR_PHOTONS( ITTR ), WC_EXT(ITTR), WC_ASF(ITTR), WC_SSA(ITTR), & ( AERO_REAL_REFRACT( ITTR, J ), AERO_IMAG_REFRACT( ITTR, J ), & J = 1, NAERO_REFRACT ) ENDDO ELSE DO I = 1, N_INLINE_BAND ! 248, 298, 25 ITTR = NJO_NEW - N_INLINE_BAND + I WRITE(JTABLE_UNIT,5008)I, & STWL_NEW(ITTR+2), EFFECTIVE_LAMBDA(ITTR), ENDWL_NEW(ITTR+2), & SOLAR_PHOTONS( ITTR ), WC_EXT(ITTR), WC_ASF(ITTR), WC_SSA(ITTR) ENDDO END IF ! READ(PHOTAB_UNIT,'(17X,I3,2/)')NWL ! DO I = 1, NWL ! READ(PHOTAB_UNIT,'(4X,,3(5X,F8.3,5X))') ! & STWL(I), WAVELENGTH(ITTR), ENDWL(I) ! ENDDO ! WRITE(JTABLE_UNIT,3011) !3011 FORMAT('!Solar Flux at top of atmosphere, photon/cm2/s' ! DO I = 1, N_INLINE_BAND ! 248, 298, 25 ! ITTR = NJO_NEW - N_INLINE_BAND + I ! WRITE(JTABLE_UNIT,'(I3,1X,3(5X,F8.3,5X))')I, ! & SOLAR_PHOTONS(ITTR+2) ! ENDDO write(JTABLE_UNIT,2007) write(JTABLE_UNIT,2009) write(JTABLE_UNIT,3010) WRITE(JTABLE_UNIT,'(A7,7X,A8,3X,A4,3X,40(A5,I3,A1,5X))')'!PHOTAB', & 'QUANTITY','TEMP',('WBIN(',J,')', J = 1, N_INLINE_BAND) ! DO J = 1, NZ ! XCROSS(J, 1:NJO_NEW) = 6.5E-19 ! YIELD(J, 1:NJO_NEW) = 1.0 ! ENDDO ALLOCATE( CS_PHOT( N_TEMPERATURE, N_INLINE_BAND, NPHOTAB) ) ALLOCATE( QY_PHOT( N_TEMPERATURE, N_INLINE_BAND, NPHOTAB) ) ALLOCATE( ECS_PHOT( N_TEMPERATURE, N_INLINE_BAND, NPHOTAB) ) ALLOCATE( EQY_PHOT( N_TEMPERATURE, N_INLINE_BAND, NPHOTAB) ) ALLOCATE( O3_CS_STRAT( N_TEMP_STRAT, N_INLINE_BAND) ) ALLOCATE( O3_QY_STRAT( N_TEMP_STRAT, N_INLINE_BAND) ) ALLOCATE( O3_ECS_STRAT( N_TEMP_STRAT, N_INLINE_BAND) ) ALLOCATE( O3_EQY_STRAT( N_TEMP_STRAT, N_INLINE_BAND) ) !...Compute Stratospheric Ozone Cross-Sections CALL INIT_CSQY_REFER_DATA() LOOP_STRAT: DO ITTR = 1, N_TEMP_STRAT TEMP = TEMP_STRAT(ITTR) DO J= 1, N_INLINE_BAND I = NJO_NEW - N_INLINE_BAND + J IF( TEMP_STRAT(ITTR) .LT. 293.0 .AND. TEMP_STRAT(ITTR) .GT. 218.0)THEN O3_CS_STRAT( ITTR, J) = (O3_XCROSS_293K(I)-O3_XCROSS_218K(I)) & / 75.0 & * (TEMP_STRAT(ITTR) - 218.0) & + O3_XCROSS_218K(I) ELSEIF( TEMP_STRAT(ITTR) .LE. 218.0)THEN O3_CS_STRAT( ITTR, J) = O3_XCROSS_218K(I) ELSEIF( TEMP_STRAT(ITTR) .GE. 293.0)THEN O3_CS_STRAT( ITTR, J) = O3_XCROSS_293K(I) END IF O3_QY_STRAT( ITTR, J) = OZONE_YIELD(WC(I),TEMP_STRAT(ITTR)) O3_EQY_STRAT( ITTR, J) = OZONE_YIELD(WC(I),TEMP_STRAT(ITTR)) WRITE(6,99959)I,EFFECTIVE_LAMBDA(I),O3_CS_STRAT( ITTR, J),O3_QY_STRAT( ITTR, J) 99959 FORMAT("O3_STRAT: ",I2,1X,"LAMDBA: ",F7.2,1X,3(1PE12.4,1X)) ! O3_CS_STRAT( ITTR, J) = 6.5E-19 ! O3_QY_STRAT( ITTR, J) = 1.0 ! O3_ECS_STRAT( ITTR, J) = 6.5E-19 ! O3_EQY_STRAT( ITTR, J) = 1.0 ENDDO !note assumes ozone dissociation cross-sections and yield do not depend on number density ! on 08/02/13 this assumption is correct for the xc_yq_td_code.F code ! CALL XC_QY_TD_EFFECT(EFFECTIVE_LAMBDA, NJO_NEW, ! & AIR_TEMP,NUM_DENS,NZ,'O3O1D-06 ', ! & XCROSS,YIELD,XCROSS_EFF,REPLACE) ! ! IF( REPLACE )THEN ! print*,'using xcqy file for O3 Stratosphere' ! DO J= 1, N_INLINE_BAND ! O3_CS_STRAT( ITTR, J) = XCROSS(NZ, NJO_NEW - N_INLINE_BAND + J ) ! O3_QY_STRAT( ITTR, J) = YIELD(NZ, NJO_NEW - N_INLINE_BAND + J ) ! O3_EQY_STRAT( ITTR, J) = YIELD(NZ, NJO_NEW - N_INLINE_BAND + J ) ! ENDDO ! ELSE ! print*,'using xcqy file for O3 Stratosphere' ! ENDIF ENDDO LOOP_STRAT IF( NPHOTAB .EQ. 0 )THEN WRITE(JTABLE_UNIT,5010) WRITE(JTABLE_UNIT,'(A14,1X,I3)')'NTEMP_STRAT = ', N_TEMP_STRAT WRITE(JTABLE_UNIT,'(A7,7X,A8,3X,A4,3X,40(A5,I3,A1,5X))')'! ', & 'QUANTITY','TEMP',('WBIN(',J,')', J = 1, N_INLINE_BAND) DO I = 1, N_TEMP_STRAT WRITE(JTABLE_UNIT,'(A16,1X,A5,1X,F8.3,1X,40(1PE12.6,2X))')'O3_STRAT ', & 'CS',TEMP_STRAT(I),(O3_CS_STRAT( I, J), J = 1, N_INLINE_BAND) ENDDO RETURN END IF ALLOCATE( MODIS_ALBEDO( NJO_NEW, NUMB_LANDUSE_MODIS ) ) CALL SPECTRAL_REFLECT(MODIS_ALBEDO) print*,'completed firstcall in create module ' END IF ! FIRSTCALL IRXN = -1 DO I = 1, NPHOTAB IF( SPECTRA_NAME .EQ. PHOTAB(I) )THEN IRXN = I EXIT ENDIF ENDDO IF( IRXN .LE. 0 )THEN WRITE(6,*)'ERROR IN CREATE_MODULE: SPECTRA_NAME NOT in PHOTAB array ' STOP ENDIF SAFE_NAME = SPECTRA_NAME J = LEN(SAFE_NAME) DO I = 1, LEN(SAFE_NAME) IF( SAFE_NAME(I:I) .EQ. '-' ) SAFE_NAME(I:I) = '_' ENDDO DO I = 1, NPHOT_DONE IF( SPECTRA_NAME .EQ. PHOT_DONE(I) )THEN WRITE(6,*)TRIM(SPECTRA_NAME),' already processed by ',TRIM(PHOT_DONE(I)) RETURN ENDIF ENDDO NPHOT_DONE = NPHOT_DONE + 1 PHOT_DONE(NPHOT_DONE) = PHOTAB(IRXN) CALL INTAVG_C(WLIN, CS_IN, NWLIN, SPECTRA_TYPE, NSO, WL, WU, XCOUT) CALL INTAVG_C(WLIN, QY_IN, NWLIN, SPECTRA_TYPE, NSO, WL, WU, QYOUT) c---now ready to do any flux-weighted means over the bins FBIN(:) = 0.d0 ABIN(:) = 0.0d0 CBIN(:) = 0.0d0 DBIN(:) = 0.0d0 EBIN(:) = 0.0d0 do J=K1,K2 K = J - K1 + 1 I = IBINJ_NEW(J) if (I .gt. 0) then WW = W(J) FBIN(I) = FBIN(I) + F(J) ABIN(I) = ABIN(I) + F(J)*DBLE(XCOUT(J)) CBIN(I) = CBIN(I) + F(J)*DBLE(QYOUT(J)) DBIN(I) = DBIN(I) + F(J)*DBLE(XCOUT(J))*DBLE(QYOUT(J)) EBIN(I) = DBIN(I) ! ABIN(I) = ABIN(I) + F(J)*XNEW endif enddo do I=1,NB_NEW if (ABIN(I) .gt. 0.d0)EBIN(I) = EBIN(I)/ABIN(I) if (FBIN(I) .gt. 0.d0) then ABIN(I) = ABIN(I)/FBIN(I) CBIN(I) = CBIN(I)/FBIN(I) DBIN(I) = DBIN(I)/FBIN(I) endif enddo print*,'completed first average in create module ' c---combine fast-JX bins: c--- non-SR bands (16:NB) are assigned a single JX bin c--- SR bands are split (by Opacity Distrib Fn) into a range of JX bins FFBIN(:) = 0.d0 AABIN(:) = 0.d0 CCBIN(:) = 0.d0 DDBIN(:) = 0.d0 EEBIN(:) = 0.d0 XCROSS(:,:) = 0.d0 YIELD(:,:) = 0.d0 XCROSS_EFF(:,:) = 0.d0 FFBIN(:) = 0.d0 do I=16,NB_NEW ! J = IJX(I) ! J = IJX_CALC(I) J = IJX_BIN_NEW( I ) FFBIN(J) = FFBIN(J) + FBIN(I) AABIN(J) = AABIN(J) + FBIN(I)*ABIN(I) CCBIN(J) = CCBIN(J) + FBIN(I)*CBIN(I) DDBIN(J) = DDBIN(J) + FBIN(I)*DBIN(I) EEBIN(J) = EEBIN(J) + FBIN(I)*ABIN(I)*EBIN(I) enddo do I=1,15 do J=1,NJO_NEW FFBIN(J) = FFBIN(J) + FBIN(I)*SRB_NEW(I,J) AABIN(J) = AABIN(J) + FBIN(I)*ABIN(I)*SRB_NEW(I,J) CCBIN(J) = CCBIN(J) + FBIN(I)*CBIN(I)*SRB_NEW(I,J) DDBIN(J) = DDBIN(J) + FBIN(I)*DBIN(I)*SRB_NEW(I,J) EEBIN(J) = EEBIN(J) + FBIN(I)*ABIN(I)*EBIN(I)*SRB_NEW(I,J) enddo enddo NWL_AVE = NJO_NEW WLL_AVE = 0.0 WLU_AVE = 0.0 CS_AVE = 0.0 QY_AVE = 0.0 do J = 1, 8 ! WLL_AVE( J ) = STR_WV_FASTJX( J ) ! WLU_AVE( J ) = END_WV_FASTJX( J ) WLL_AVE( J ) = STWL_NEW( J ) WLU_AVE( J ) = ENDWL_NEW( J ) enddo do J = 9, NJO_NEW ! WLL_AVE( J ) = STR_WV_FASTJX( J + 2 ) ! WLU_AVE( J ) = END_WV_FASTJX( J + 2 ) WLL_AVE( J ) = STWL_NEW( J + 2 ) WLU_AVE( J ) = ENDWL_NEW( J + 2) enddo do J=1,NJO_NEW if (AABIN(J) .gt. 0.d0) EEBIN(J) = EEBIN(J)/AABIN(J) if (FFBIN(J) .gt. 0.d0)THEN AABIN(J) = AABIN(J)/FFBIN(J) CCBIN(J) = CCBIN(J)/FFBIN(J) DDBIN(J) = DDBIN(J)/FFBIN(J) CS_AVE( J ) = AABIN(J) QY_AVE( J ) = CCBIN(J) endif enddo print*,'completed second average in create module ' DO ITTR = 1, N_TEMPERATURE ! note that NZ is 1 XCROSS(ITTR, 1:NJO_NEW) = CS_AVE(1:NJO_NEW) YIELD(ITTR, 1:NJO_NEW) = EEBIN(1:NJO_NEW) ! NUM_DENS( ITTR ) = DENS0 ( DENS0 * T298K )/ TEMPERATURE(ITTR) DO J= 1, N_INLINE_BAND CS_PHOT( ITTR, J, IRXN) = CS_AVE( NJO_NEW - N_INLINE_BAND + J ) QY_PHOT( ITTR, J, IRXN) = QY_AVE( NJO_NEW - N_INLINE_BAND + J ) ECS_PHOT( ITTR, J, IRXN) = DDBIN( NJO_NEW - N_INLINE_BAND + J ) EQY_PHOT( ITTR, J, IRXN) = EEBIN( NJO_NEW - N_INLINE_BAND + J ) ENDDO ENDDO REPLACE = .FALSE. print*,'calling XC_QY_TD_EFFECT for ',SPECTRA_NAME CALL XC_QY_TD_EFFECT(EFFECTIVE_LAMBDA, NJO_NEW, & TEMPERATURE,NUM_DENS,N_TEMPERATURE,SPECTRA_NAME, & XCROSS,YIELD,XCROSS_EFF,REPLACE) LOOP_TROP: DO ITTR = 1, N_TEMPERATURE TEMP = TEMPERATURE(ITTR) IF( REPLACE )THEN WRITE(6,99951)TRIM( SPECTRA_NAME ),TEMP,NUM_DENS(ITTR) 99951 FORMAT('called XC_QY_TD_EFFECT for ',A,' at TEMP = ',f7.2, & ' and # DENS = ', 1PE12.4) DO J= 1, N_INLINE_BAND CS_PHOT( ITTR, J, IRXN) = XCROSS(ITTR, NJO_NEW - N_INLINE_BAND + J ) QY_PHOT( ITTR, J, IRXN) = YIELD( ITTR, NJO_NEW - N_INLINE_BAND + J ) EQY_PHOT( ITTR, J, IRXN) = YIELD( ITTR, NJO_NEW - N_INLINE_BAND + J ) ENDDO ELSE print*,'using xcqy file for ',SPECTRA_NAME ENDIF ENDDO LOOP_TROP TEMP = 298.0 write(6,'(A16,1X,A5,1X,F8.3,1X,40(1PE12.6,2X))') & TRIM(SAFE_NAME), 'CS0', TEMP, & (AABIN(NJO_NEW - N_INLINE_BAND + J),J= 1, N_INLINE_BAND) DO I = 1, N_TEMPERATURE WRITE(JTABLE_UNIT,'(A16,1X,A5,1X,F8.3,1X,40(1PE12.6,2X))')SPECTRA_NAME, & 'CS',TEMPERATURE(I),(CS_PHOT( I, J, IRXN), J = 1, N_INLINE_BAND) WRITE(JTABLE_UNIT,'(A16,1X,A5,1X,F8.3,1X,40(1PE12.6,2X))')SPECTRA_NAME, & 'EQY',TEMPERATURE(I),(EQY_PHOT( I, J, IRXN), J = 1, N_INLINE_BAND) WRITE(6,'(A16,1X,A5,1X,F8.3,1X,40(1PE12.6,2X))')SPECTRA_NAME, & 'CS',TEMPERATURE(I),(CS_PHOT( I, J, IRXN), J = 1, N_INLINE_BAND) ENDDO print*, ' Wrote CSQY DATA for ',SPECTRA_NAME IF( SPECTRA_NAME .EQ. PHOTAB( MAX( NPHOTAB,1 )) )THEN ! write out the ozone cross-section for stratospheric temperatures WRITE(JTABLE_UNIT,5010) WRITE(JTABLE_UNIT,'(A14,1X,I3)')'NTEMP_STRAT = ', N_TEMP_STRAT WRITE(JTABLE_UNIT,'(A7,7X,A8,3X,A4,3X,40(A5,I3,A1,5X))')'! ', & 'QUANTITY','TEMP',('WBIN(',J,')', J = 1, N_INLINE_BAND) DO I = 1, N_TEMP_STRAT WRITE(JTABLE_UNIT,'(A16,1X,A5,1X,F8.3,1X,40(1PE12.6,2X))')'O3_STRAT ', & 'CS',TEMP_STRAT(I),(O3_CS_STRAT( I, J), J = 1, N_INLINE_BAND) ENDDO ! write out the suface albedo data for each landuse WRITE(JTABLE_UNIT,5011) WRITE(JTABLE_UNIT,5013)'NUMB_LANDUSE_MODIS = ', NUMB_LANDUSE_MODIS WRITE(JTABLE_UNIT,5014) WRITE(JTABLE_UNIT,5013)'INDEX_GRASSLAND = ', INDEX_GRASSLAND WRITE(JTABLE_UNIT,5013)'INDEX_OCEAN_WATER = ', INDEX_OCEAN_WATER WRITE(JTABLE_UNIT,5013)'INDEX_SEA_ICE = ', INDEX_SEA_ICE WRITE(JTABLE_UNIT,5009)'! I','LANDUSE_CATEGORY', & 'ZENITH_ANGLE_COEFF', 'SEASONAL_COEFF','SNOW_COVER_COEEF' DO I = 1, NUMB_LANDUSE_MODIS WRITE(JTABLE_UNIT,5012)I, LANDUSE( I ), & ZENITH_COEFF( I ), SEASON_COEFF( I ), SNOW_COEFF( I ) ENDDO WRITE(JTABLE_UNIT,'(A7,7X,A16,2X,40(A5,I3,A1,5X))')'! ', & 'LANDUSE CATEGORY',('WBIN(',J,')', J = 1, N_INLINE_BAND) DO I = 1, NUMB_LANDUSE_MODIS WRITE(JTABLE_UNIT,'(A30,1X,40(1PE12.6,2X))') & TRIM(LANDUSE(I)),(MODIS_ALBEDO( NJO_NEW - N_INLINE_BAND + J, I), J = 1, N_INLINE_BAND) ENDDO WRITE(JTABLE_UNIT,5015) WRITE(JTABLE_UNIT,5013)'NUMB_NLCD_MODIS = ', NUMB_NLCD_MODIS WRITE(JTABLE_UNIT,5009)'! I','LANDUSE_NLCD-MODIS','INDEX_ALBREF', & 'FAC_ALBREF' DO I = 1, NUMB_NLCD_MODIS WRITE(JTABLE_UNIT,5016)I, NLCD_LANDUSE( I ), & INT(ALBMAP_REF2NLCD( I )), ALBFAC_REF2NLCD( I ) ENDDO WRITE(JTABLE_UNIT,5013)'NUMB_USGS = ', NUMB_USGS WRITE(JTABLE_UNIT,5009)'! I','LANDUSE_USGS','INDEX_ALBREF', & 'FAC_ALBREF' DO I = 1, NUMB_USGS WRITE(JTABLE_UNIT,5016)I, USGS_LANDUSE( I ), & INT(ALBMAP_REF2USGS( I )), ALBFAC_REF2USGS( I ) ENDDO WRITE(JTABLE_UNIT,5013)'NUMB_MODIS_NOAH = ', NUMB_MODIS_NOAH WRITE(JTABLE_UNIT,5009)'! I','LANDUSE_MODIS-NOAH','INDEX_ALBREF', & 'FAC_ALBREF' DO I = 1, NUMB_MODIS_NOAH WRITE(JTABLE_UNIT,5016)I, MODIS_LANDUSE( I ), & INT(ALBMAP_REF2MODIS( I )), ALBFAC_REF2MODIS( I ) ENDDO WRITE(JTABLE_UNIT,5013)'NUMB_NLCD40_MODIS = ', NUMB_NLCD40_MODIS WRITE(JTABLE_UNIT,5009)'! I','LANDUSE_NLCD40-MODIS','INDEX_ALBREF', & 'FAC_ALBREF' DO I = 1, NUMB_NLCD40_MODIS WRITE(JTABLE_UNIT,5016)I, NLCD40_LANDUSE( I ), & INT(ALBMAP_REF2NLCD40( I )), ALBFAC_REF2NLCD40( I ) ENDDO ENDIF RETURN 1001 FORMAT(A16,22X,F5.1,2X,F5.1) 1003 FORMAT(61X,F9.1) 2007 format('!... CS = absorption cross sections averaged over UCI Solar Flux') 2009 format('!... QY = quantum yields averaged over UCI Solar Flux') 3010 format('!... EQY = eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model') 5001 FORMAT('! Cloud properties and aerosol refractive indices are weighted bin averages.') 5002 FORMAT('! The former is based on HU & Stamnes (1993), An accurate parameterization of') 5003 FORMAT('! the radiative properties of water clouds suitable for use in climate models,') 5004 FORMAT('! J. of Climate, vol. 6, pp. 728-742. The values were calculated with an') 5005 FORMAT('! equivalent radius of 10 micrometers. ') 5006 FORMAT('! Note: Cloud extinction/LWC is in [1/m] over [g/m **3] where LWC is in g/m**3', & /, '! ') 5007 FORMAT('! Complex refractive indices for aerosol components are based on ', & /,'! 1) Hess, M. P. Koepke, and I. Schult, Optical properties of aerosols and', & /,'! clouds: The software package OPAC, Bulletin of the American Meteorological', & /,'! Society, Vol 79, No 5, pp 831 - 844, May 1998. Available at', & /,'! www.lrz-muenchen.de/~uh234an/www/radaer/opac.htm', & /,'! 2) Segelstein, D., 1981: The Complex Refractive Index of Water, M.S. Thesis,', & /,'! University of Missouri--Kansas City, MO' ) !5008 FORMAT(I3,1X,3(F8.3,2X),2X,ES12.4,2X,2(F8.3,2X),ES12.4,2X,8(F8.3,1X,ES12.4,1X)) 5008 FORMAT(I3,', ',3(F8.3,', '),ES12.4,', ',2(F8.3,', '),ES12.4,5(', ',F8.3,', ',ES12.4)) !5009 FORMAT(A3, 20(', ',A)) 5009 FORMAT(A3,', ',3(A,', '),A,', ',2(A,', '),A,5(', ',A,', ',A)) 5010 FORMAT('! Ozone Cross-Section for Stratospheric Opacity based on Table 4-5 in', & /,'! Chemical Kinetics and Photochemical Data for Use in Atmospheric', & /,'! Studies Evaluation Number 15. Sander et. al: NASA-JPL 2006 ') 5011 FORMAT('! Surface Albedo with wavelength dependence for 20 MODIS land use types.', & /,'! Correction factors are included for solar zenith angle and season.', & /,'! Note that an adjustment is used better match spectral estimates.', & /,'! REFERENCE: CERES/SARB Surface Properties database, May 2006', & /,'! http://www-surf.larc.nasa.gov/surf/pages/explan.html.') 5012 FORMAT(I3,1X,A30,1X,3(F8.3,2X)) 5013 FORMAT(A21,1X,I3) 5014 FORMAT('! Following two indices denote the categories assigned as generic', & /,'! land and water surfaces. The surfaces are used as the default', & /,'! land characterization scheme if scheme used is not known.') 5015 FORMAT('! Following maps the above albedo data to three land characterization', & /,'! schemes commonly used in CMAQ applications.', & /,'! ') 5016 FORMAT(I3,1X,A60,1X,I3,2X,3(F8.3,2X)) END SUBROUTINE WRT_CSQY_DATA ================================================ FILE: UTIL/inline_phot_preproc/src/wrt_csqy_data_only.F ================================================ SUBROUTINE WRT_CSQY_DATA_ONLY( WLIN, CS_IN, QY_IN, NWLIN, SPECTRA_NAME, SPECTRA_TYPE, & WLL_AVE, WLU_AVE, CS_AVE, QY_AVE, NWL_AVE ) USE BIN_DATA USE CSQY_REFER_DATA USE ALBEDO_REFER_DATA IMPLICIT NONE !...........ARGUMENTS and their descriptions CHARACTER( 1), INTENT( IN ) :: SPECTRA_TYPE ! spectra type CHARACTER(16), INTENT( IN ) :: SPECTRA_NAME ! spectra type INTEGER, INTENT( IN ) :: NWLIN ! number of intervals CQin REAL, INTENT( IN ) :: WLIN ( : ) ! wl for CQin REAL, INTENT( IN ) :: CS_IN( : ) ! cross-section as f(WLIN) REAL, INTENT( IN ) :: QY_IN( : ) ! quantum yield as f(WLIN) REAL, INTENT( OUT) :: WLL_AVE( : ) ! lower limit on wl int ETin REAL, INTENT( OUT ) :: WLU_AVE( : ) ! upper limit on wl int ETin REAL, INTENT( OUT ) :: CS_AVE( : ) ! cross-section as f(WL_AVE) REAL, INTENT( OUT ) :: QY_AVE( : ) ! quantum yield as f(WL_AVE) INTEGER, INTENT( OUT ) :: NWL_AVE !...........PARAMETERS and their descriptions !...........LOCAL VARIABLES and their descriptions: CHARACTER(32) :: PNAME = 'WRT_CSQY_DATA_ONLY' ! program name CHARACTER(80) :: MSG = ' ' ! message INTEGER :: I, J, K ! index counters INTEGER :: ITTR INTEGER :: IRXN REAL, ALLOCATABLE, SAVE :: WLIN1( : ) ! lower limit on wl int CQin REAL, ALLOCATABLE, SAVE :: WLIN2( : ) ! upper limit on wl int CQin REAL(8), ALLOCATABLE, SAVE :: FBIN( : ) REAL(8), ALLOCATABLE, SAVE :: ABIN( : ) REAL(8), ALLOCATABLE, SAVE :: CBIN( : ) REAL(8), ALLOCATABLE, SAVE :: DBIN( : ) REAL(8), ALLOCATABLE, SAVE :: EBIN( : ) REAL :: TEMP ! temperature, K REAL(8) :: WW REAL(8), ALLOCATABLE, SAVE :: FFBIN( : ) REAL(8), ALLOCATABLE, SAVE :: AABIN( : ) REAL(8), ALLOCATABLE, SAVE :: CCBIN( : ) REAL(8), ALLOCATABLE, SAVE :: DDBIN( : ) REAL(8), ALLOCATABLE, SAVE :: EEBIN( : ) REAL, ALLOCATABLE, SAVE :: XCOUT(:), QYOUT(:) REAL :: XNEW REAL, SAVE :: TEMPERATURE(N_TEMPERATURE) REAL :: DELTA_TEMP REAL :: TEMP_STRT, TEMP_FINI REAL, SAVE :: TEMP_STRAT(N_TEMP_STRAT) INTEGER, PARAMETER :: NZ = N_TEMPERATURE REAL :: AIR_TEMP(NZ) = 298 ! air temperature [K] REAL :: NUM_DENS(NZ) = DENS0 ! air number density [molec/cm3] LOGICAL :: REPLACE ! flag to use sq values in calling routine REAL, ALLOCATABLE, SAVE :: XCROSS( : , : ) ! cross-section [CM2] REAL, ALLOCATABLE, SAVE :: YIELD(: , : ) ! quantum yield [dimensionaless] REAL, ALLOCATABLE, SAVE :: XCROSS_EFF(: , : ) ! cross-section times yield [CM2] REAL, ALLOCATABLE, SAVE :: CS_PHOT( :, :, :) ! N_TEMPERATURE, N_INLINE_BAND, NPHOTAB) REAL, ALLOCATABLE, SAVE :: QY_PHOT( :, :, :) ! N_TEMPERATURE, N_INLINE_BAND, NPHOTAB) REAL, ALLOCATABLE, SAVE :: ECS_PHOT( :, :, :) ! N_TEMPERATURE, N_INLINE_BAND, NPHOTAB) REAL, ALLOCATABLE, SAVE :: EQY_PHOT( :, :, :) ! N_TEMPERATURE, N_INLINE_BAND, NPHOTAB) REAL, ALLOCATABLE, SAVE :: O3_CS_STRAT( :, :) ! N_TEMP_STRAT, N_INLINE_BAND) REAL, ALLOCATABLE, SAVE :: O3_QY_STRAT( :, :) ! N_TEMP_STRAT, N_INLINE_BAND) REAL, ALLOCATABLE, SAVE :: O3_ECS_STRAT( :, :) ! N_TEMP_STRAT, N_INLINE_BAND) REAL, ALLOCATABLE, SAVE :: O3_EQY_STRAT( :, :) ! N_TEMP_STRAT, N_INLINE_BAND) REAL, EXTERNAL :: OZONE_YIELD CHARACTER(8) :: TITLNEW CHARACTER(16) :: SAFE_NAME CHARACTER(60) :: VNAME LOGICAL, SAVE :: FIRSTCALL = .TRUE. INTERFACE SUBROUTINE XC_QY_TD_EFFECT(WC,NW,TLEV,DENS,NZ, & JLABEL,XC,QY,SQ,REPLACE) INTEGER, INTENT( IN ) :: NW REAL, INTENT( IN ) :: WC(:) INTEGER, INTENT( IN ) :: NZ REAL, INTENT( IN ) :: TLEV(:) ! AIR TEMPERATURE OVER MODEL LEVELS, DEG K REAL, INTENT( IN ) :: DENS(:) ! AIR NUMBER DENSITY OVER LEVEL, 1/CM3 CHARACTER(16), INTENT( IN ) :: JLABEL ! NAME OF PHOTOLYSIS RATE REAL, INTENT( INOUT ) :: XC(:,:) ! CROSS-SECTION FROM FILE REAL, INTENT( INOUT ) :: QY(:,:) ! QUANTUM YIELD FROM FILE REAL, INTENT( OUT ) :: SQ(:,:) ! CROSS-SECTION TIMES QUANTUM YIELD OVER MODEL LEVELS LOGICAL, INTENT( OUT ) :: REPLACE ! FLAG TO USE SQ VALUES IN CALLING ROUTINE END SUBROUTINE XC_QY_TD_EFFECT SUBROUTINE INTAVG ( WLIN, CQIN, NWLIN, SPECTRA_TYPE, & NWLOUT, WLOUT1, WLOUT2, CQOUT ) CHARACTER(1), INTENT( IN ) :: SPECTRA_TYPE ! spectra type INTEGER, INTENT( IN ) :: NWLOUT ! number of intervals ETin INTEGER, INTENT( IN ) :: NWLIN ! number of intervals CQin REAL, INTENT( IN ) :: WLIN ( : ) ! wl for CQin REAL, INTENT( IN ) :: CQIN( : ) ! quantity (CS or QY) as f(WLIN) REAL, INTENT( INOUT ) :: WLOUT1( : ) ! lower limit on wl int ETin REAL, INTENT( INOUT ) :: WLOUT2( : ) ! upper limit on wl int ETin REAL, INTENT( OUT ) :: CQOUT ( : ) ! quantity (CS or QY) as f(WLOUT) END SUBROUTINE INTAVG SUBROUTINE INTAVG_C ( WLIN, CQIN, NWLIN, SPECTRA_TYPE, & NWLOUT, WLOUT1, WLOUT2, CQOUT ) CHARACTER(1), INTENT( IN ) :: SPECTRA_TYPE ! spectra type INTEGER, INTENT( IN ) :: NWLOUT ! number of intervals ETin INTEGER, INTENT( IN ) :: NWLIN ! number of intervals CQin REAL, INTENT( IN ) :: WLIN ( : ) ! wl for CQin REAL, INTENT( IN ) :: CQIN( : ) ! quantity (CS or QY) as f(WLIN) REAL, INTENT( INOUT ) :: WLOUT1( : ) ! lower limit on wl int ETin REAL, INTENT( INOUT ) :: WLOUT2( : ) ! upper limit on wl int ETin REAL, INTENT( OUT ) :: CQOUT ( : ) ! quantity (CS or QY) as f(WLOUT) END SUBROUTINE INTAVG_C END INTERFACE IF( FIRSTCALL )THEN FIRSTCALL = .FALSE. CALL INIT_BIN_DATA IF( CHANGE_WBIN )THEN ALLOCATE( FBIN( NB_NEW + 1 ) ) ALLOCATE( ABIN( NB_NEW + 1 ) ) ALLOCATE( CBIN( NB_NEW + 1 ) ) ALLOCATE( DBIN( NB_NEW + 1 ) ) ALLOCATE( EBIN( NB_NEW + 1 ) ) ELSE ALLOCATE( FBIN( NBO ) ) ALLOCATE( ABIN( NBO ) ) ALLOCATE( CBIN( NBO ) ) ALLOCATE( DBIN( NBO ) ) ALLOCATE( EBIN( NBO ) ) ENDIF ITTR = 0 IF(N_TEMPERATURE .LT. 4)THEN TEMP_FINI = 298.0 TEMP_STRT = 248.0 ELSE TEMP_FINI = 310.0 TEMP_STRT = 210.0 ENDIF DELTA_TEMP = (TEMP_FINI-TEMP_STRT)/FLOAT(N_TEMPERATURE-1) WRITE(JTABLE_UNIT,'(A8,1X,I3)')'NTEMP = ', N_TEMPERATURE WRITE(JTABLE_UNIT,'(A)')'! I TEMP( I ) K' DO I = 1, N_TEMPERATURE ! 248, 298, 25 ITTR = ITTR + 1 TEMPERATURE(ITTR) = TEMP_STRT + DELTA_TEMP*FLOAT(I-1) WRITE(JTABLE_UNIT,'(I3,2X,F6.2)')ITTR, TEMPERATURE(ITTR) ENDDO TEMP_STRAT( 1 ) = 180.0 ITTR = 1 DO I = 2, N_TEMP_STRAT ! 248, 298, 25 ITTR = ITTR + 1 TEMP_STRAT(ITTR) = TEMP_STRAT( 1 ) + 40.0*FLOAT(I) ! WRITE(JTABLE_UNIT,'(I3,2X,F6.2)')ITTR, TEMPERATURE(ITTR) ENDDO ALLOCATE( XCOUT(NSO), QYOUT(NSO)) ALLOCATE( AABIN(NJO_NEW), CCBIN( NJO_NEW), DDBIN(NJO_NEW), % EEBIN(NJO_NEW), FFBIN(NJO_NEW)) ALLOCATE( XCROSS(NZ, NJO_NEW), YIELD(NZ, NJO_NEW), XCROSS_EFF(NZ,NJO_NEW) ) WRITE(JTABLE_UNIT,5001) WRITE(JTABLE_UNIT,5006) WRITE(JTABLE_UNIT,4997)'N_INLINE_BAND = ', N_INLINE_BAND 4997 FORMAT(A16, 1X, I3) 4998 FORMAT(A20, 1X, 4(A, ', '), A) 4999 FORMAT(2(A16, 1X, I3, ', '), A20, 1X, 4(A, ', '), A) WRITE(JTABLE_UNIT,5009)'! I','START_WL_BIN(nm)', & 'EFFECT_WL_BIN_(nm)', 'END_WL_BIN_(nm)','photon_flux(cm-2*s-1)' DO I = 1, N_INLINE_BAND ! 248, 298, 25 ITTR = NJO_NEW - N_INLINE_BAND + I WRITE(JTABLE_UNIT,5008)I, & STWL_NEW(ITTR+2), EFFECTIVE_LAMBDA(ITTR), ENDWL_NEW(ITTR+2), & SOLAR_PHOTONS( ITTR ) ENDDO write(JTABLE_UNIT,2007) write(JTABLE_UNIT,2009) write(JTABLE_UNIT,3010) WRITE(JTABLE_UNIT,'(A7,7X,A8,3X,A4,3X,40(A5,I3,A1,5X))')'!PHOTAB', & 'QUANTITY','TEMP',('WBIN(',J,')', J = 1, N_INLINE_BAND) ! WRITE(JTABLE_UNIT,6011)'!PHOTAB','QUANTITY','TEMP', ! & (EFFECTIVE_LAMBDA(NJO_NEW - N_INLINE_BAND + J), J = 1, N_INLINE_BAND) ALLOCATE( CS_PHOT( N_TEMPERATURE, N_INLINE_BAND, NPHOTAB) ) ALLOCATE( QY_PHOT( N_TEMPERATURE, N_INLINE_BAND, NPHOTAB) ) ALLOCATE( ECS_PHOT( N_TEMPERATURE, N_INLINE_BAND, NPHOTAB) ) ALLOCATE( EQY_PHOT( N_TEMPERATURE, N_INLINE_BAND, NPHOTAB) ) ALLOCATE( O3_CS_STRAT( N_TEMP_STRAT, N_INLINE_BAND) ) ALLOCATE( O3_QY_STRAT( N_TEMP_STRAT, N_INLINE_BAND) ) ALLOCATE( O3_ECS_STRAT( N_TEMP_STRAT, N_INLINE_BAND) ) ALLOCATE( O3_EQY_STRAT( N_TEMP_STRAT, N_INLINE_BAND) ) !...Compute Stratospheric Ozone Cross-Sections CALL INIT_CSQY_REFER_DATA() LOOP_STRAT: DO ITTR = 1, N_TEMP_STRAT TEMP = TEMP_STRAT(ITTR) DO J= 1, N_INLINE_BAND I = NJO_NEW - N_INLINE_BAND + J IF( TEMP_STRAT(ITTR) .LT. 293.0 .AND. TEMP_STRAT(ITTR) .GT. 218.0)THEN O3_CS_STRAT( ITTR, J) = (O3_XCROSS_293K(I)-O3_XCROSS_218K(I)) & / 75.0 & * (TEMP_STRAT(ITTR) - 218.0) & + O3_XCROSS_218K(I) ELSEIF( TEMP_STRAT(ITTR) .LE. 218.0)THEN O3_CS_STRAT( ITTR, J) = O3_XCROSS_218K(I) ELSEIF( TEMP_STRAT(ITTR) .GE. 293.0)THEN O3_CS_STRAT( ITTR, J) = O3_XCROSS_293K(I) END IF O3_QY_STRAT( ITTR, J) = OZONE_YIELD(WC(I),TEMP_STRAT(ITTR)) O3_EQY_STRAT( ITTR, J) = OZONE_YIELD(WC(I),TEMP_STRAT(ITTR)) WRITE(6,99959)I,EFFECTIVE_LAMBDA(I),O3_CS_STRAT( ITTR, J),O3_QY_STRAT( ITTR, J) 99959 FORMAT("O3_STRAT: ",I2,1X,"LAMDBA: ",F7.2,1X,3(1PE12.4,1X)) ! O3_CS_STRAT( ITTR, J) = 6.5E-19 ! O3_QY_STRAT( ITTR, J) = 1.0 ! O3_ECS_STRAT( ITTR, J) = 6.5E-19 ! O3_EQY_STRAT( ITTR, J) = 1.0 ENDDO !note assumes ozone dissociation cross-sections and yield do not depend on number density ! on 08/02/13 this assumption is correct for the xc_yq_td_code.F code ! CALL XC_QY_TD_EFFECT(EFFECTIVE_LAMBDA, NJO_NEW, ! & AIR_TEMP,NUM_DENS,NZ,'O3O1D-06 ', ! & XCROSS,YIELD,XCROSS_EFF,REPLACE) ! ! IF( REPLACE )THEN ! print*,'using xcqy file for O3 Stratosphere' ! DO J= 1, N_INLINE_BAND ! O3_CS_STRAT( ITTR, J) = XCROSS(NZ, NJO_NEW - N_INLINE_BAND + J ) ! O3_QY_STRAT( ITTR, J) = YIELD(NZ, NJO_NEW - N_INLINE_BAND + J ) ! O3_EQY_STRAT( ITTR, J) = YIELD(NZ, NJO_NEW - N_INLINE_BAND + J ) ! ENDDO ! ELSE ! print*,'using xcqy file for O3 Stratosphere' ! ENDIF ENDDO LOOP_STRAT IF( NPHOTAB .EQ. 0 )THEN WRITE(JTABLE_UNIT,5010) WRITE(JTABLE_UNIT,'(A14,1X,I3)')'NTEMP_STRAT = ', N_TEMP_STRAT WRITE(JTABLE_UNIT,'(A7,7X,A8,3X,A4,3X,40(A5,I3,A1,5X))')'! ', & 'QUANTITY','TEMP',('WBIN(',J,')', J = 1, N_INLINE_BAND) DO I = 1, N_TEMP_STRAT WRITE(JTABLE_UNIT,'(A16,1X,A5,1X,F8.3,1X,40(1PE12.6,2X))')'O3_STRAT ', & 'CS',TEMP_STRAT(I),(O3_CS_STRAT( I, J), J = 1, N_INLINE_BAND) ENDDO RETURN END IF END IF ! FIRSTCALL IRXN = -1 DO I = 1, NPHOTAB IF( SPECTRA_NAME .EQ. PHOTAB(I) )THEN IRXN = I EXIT ENDIF ENDDO IF( IRXN .LE. 0 )THEN WRITE(6,*)'ERROR IN CREATE_MODULE: SPECTRA_NAME NOT in PHOTAB array ' STOP ENDIF SAFE_NAME = SPECTRA_NAME J = LEN(SAFE_NAME) DO I = 1, LEN(SAFE_NAME) IF( SAFE_NAME(I:I) .EQ. '-' ) SAFE_NAME(I:I) = '_' ENDDO DO I = 1, NPHOT_DONE IF( SPECTRA_NAME .EQ. PHOT_DONE(I) )THEN WRITE(6,*)TRIM(SPECTRA_NAME),' already processed by ',TRIM(PHOT_DONE(I)) RETURN ENDIF ENDDO NPHOT_DONE = NPHOT_DONE + 1 PHOT_DONE(NPHOT_DONE) = PHOTAB(IRXN) CALL INTAVG_C(WLIN, CS_IN, NWLIN, SPECTRA_TYPE, NSO, WL, WU, XCOUT) CALL INTAVG_C(WLIN, QY_IN, NWLIN, SPECTRA_TYPE, NSO, WL, WU, QYOUT) c---now ready to do any flux-weighted means over the bins FBIN(:) = 0.d0 ABIN(:) = 0.0d0 CBIN(:) = 0.0d0 DBIN(:) = 0.0d0 EBIN(:) = 0.0d0 do J=K1,K2 K = J - K1 + 1 I = IBINJ_NEW(J) if (I .gt. 0) then WW = W(J) FBIN(I) = FBIN(I) + F(J) ABIN(I) = ABIN(I) + F(J)*DBLE(XCOUT(J)) CBIN(I) = CBIN(I) + F(J)*DBLE(QYOUT(J)) DBIN(I) = DBIN(I) + F(J)*DBLE(XCOUT(J))*DBLE(QYOUT(J)) EBIN(I) = DBIN(I) ! ABIN(I) = ABIN(I) + F(J)*XNEW endif enddo do I=1,NB_NEW if (ABIN(I) .gt. 0.d0)EBIN(I) = EBIN(I)/ABIN(I) if (FBIN(I) .gt. 0.d0) then ABIN(I) = ABIN(I)/FBIN(I) CBIN(I) = CBIN(I)/FBIN(I) DBIN(I) = DBIN(I)/FBIN(I) endif enddo print*,'completed first average in create module ' !---combine fast-JX bins: !--- non-SR bands (16:NB) are assigned a single JX bin !--- SR bands are split (by Opacity Distrib Fn) into a range of JX bins FFBIN(:) = 0.d0 AABIN(:) = 0.d0 CCBIN(:) = 0.d0 DDBIN(:) = 0.d0 EEBIN(:) = 0.d0 XCROSS(:,:) = 0.d0 YIELD(:,:) = 0.d0 XCROSS_EFF(:,:) = 0.d0 FFBIN(:) = 0.d0 do I=16,NB_NEW ! J = IJX(I) ! J = IJX_CALC(I) J = IJX_BIN_NEW( I ) FFBIN(J) = FFBIN(J) + FBIN(I) AABIN(J) = AABIN(J) + FBIN(I)*ABIN(I) CCBIN(J) = CCBIN(J) + FBIN(I)*CBIN(I) DDBIN(J) = DDBIN(J) + FBIN(I)*DBIN(I) EEBIN(J) = EEBIN(J) + FBIN(I)*ABIN(I)*EBIN(I) enddo do I=1,15 do J=1,NJO_NEW FFBIN(J) = FFBIN(J) + FBIN(I)*SRB_NEW(I,J) AABIN(J) = AABIN(J) + FBIN(I)*ABIN(I)*SRB_NEW(I,J) CCBIN(J) = CCBIN(J) + FBIN(I)*CBIN(I)*SRB_NEW(I,J) DDBIN(J) = DDBIN(J) + FBIN(I)*DBIN(I)*SRB_NEW(I,J) EEBIN(J) = EEBIN(J) + FBIN(I)*ABIN(I)*EBIN(I)*SRB_NEW(I,J) enddo enddo NWL_AVE = NJO_NEW WLL_AVE = 0.0 WLU_AVE = 0.0 CS_AVE = 0.0 QY_AVE = 0.0 do J = 1, 8 ! WLL_AVE( J ) = STR_WV_FASTJX( J ) ! WLU_AVE( J ) = END_WV_FASTJX( J ) WLL_AVE( J ) = STWL_NEW( J ) WLU_AVE( J ) = ENDWL_NEW( J ) enddo do J = 9, NJO_NEW ! WLL_AVE( J ) = STR_WV_FASTJX( J + 2 ) ! WLU_AVE( J ) = END_WV_FASTJX( J + 2 ) WLL_AVE( J ) = STWL_NEW( J + 2 ) WLU_AVE( J ) = ENDWL_NEW( J + 2) enddo do J=1,NJO_NEW if (AABIN(J) .gt. 0.d0) EEBIN(J) = EEBIN(J)/AABIN(J) if (FFBIN(J) .gt. 0.d0)THEN AABIN(J) = AABIN(J)/FFBIN(J) CCBIN(J) = CCBIN(J)/FFBIN(J) DDBIN(J) = DDBIN(J)/FFBIN(J) CS_AVE( J ) = AABIN(J) QY_AVE( J ) = CCBIN(J) endif enddo print*,'completed second average in create module ' DO ITTR = 1, N_TEMPERATURE ! note that NZ is 1 XCROSS(ITTR, 1:NJO_NEW) = CS_AVE(1:NJO_NEW) YIELD(ITTR, 1:NJO_NEW) = EEBIN(1:NJO_NEW) ! NUM_DENS( ITTR ) = DENS0 ( DENS0 * T298K )/ TEMPERATURE(ITTR) DO J= 1, N_INLINE_BAND CS_PHOT( ITTR, J, IRXN) = CS_AVE( NJO_NEW - N_INLINE_BAND + J ) QY_PHOT( ITTR, J, IRXN) = QY_AVE( NJO_NEW - N_INLINE_BAND + J ) ECS_PHOT( ITTR, J, IRXN) = DDBIN( NJO_NEW - N_INLINE_BAND + J ) EQY_PHOT( ITTR, J, IRXN) = EEBIN( NJO_NEW - N_INLINE_BAND + J ) ENDDO ENDDO REPLACE = .FALSE. print*,'calling XC_QY_TD_EFFECT for ',SPECTRA_NAME CALL XC_QY_TD_EFFECT(EFFECTIVE_LAMBDA, NJO_NEW, & TEMPERATURE,NUM_DENS,N_TEMPERATURE,SPECTRA_NAME, & XCROSS,YIELD,XCROSS_EFF,REPLACE) LOOP_TROP: DO ITTR = 1, N_TEMPERATURE TEMP = TEMPERATURE(ITTR) IF( REPLACE )THEN WRITE(6,99951)TRIM( SPECTRA_NAME ),TEMP,NUM_DENS(ITTR) 99951 FORMAT('called XC_QY_TD_EFFECT for ',A,' at TEMP = ',f7.2, & ' and # DENS = ', 1PE12.4) DO J= 1, N_INLINE_BAND CS_PHOT( ITTR, J, IRXN) = XCROSS(ITTR, NJO_NEW - N_INLINE_BAND + J ) QY_PHOT( ITTR, J, IRXN) = YIELD( ITTR, NJO_NEW - N_INLINE_BAND + J ) EQY_PHOT( ITTR, J, IRXN) = YIELD( ITTR, NJO_NEW - N_INLINE_BAND + J ) ENDDO ELSE print*,'using xcqy file for ',SPECTRA_NAME ENDIF ENDDO LOOP_TROP TEMP = 298.0 write(6,'(A16,1X,A5,1X,F8.3,1X,40(1PE12.6,2X))') & TRIM(SAFE_NAME), 'CS0', TEMP, & (AABIN(NJO_NEW - N_INLINE_BAND + J),J= 1, N_INLINE_BAND) DO I = 1, N_TEMPERATURE WRITE(JTABLE_UNIT,'(A16,1X,A5,1X,F8.3,1X,40(1PE12.6,2X))')SPECTRA_NAME, & 'CS',TEMPERATURE(I),(CS_PHOT( I, J, IRXN), J = 1, N_INLINE_BAND) WRITE(JTABLE_UNIT,'(A16,1X,A5,1X,F8.3,1X,40(1PE12.6,2X))')SPECTRA_NAME, & 'EQY',TEMPERATURE(I),(EQY_PHOT( I, J, IRXN), J = 1, N_INLINE_BAND) WRITE(6,'(A16,1X,A5,1X,F8.3,1X,40(1PE12.6,2X))')SPECTRA_NAME, & 'CS',TEMPERATURE(I),(CS_PHOT( I, J, IRXN), J = 1, N_INLINE_BAND) ENDDO print*, ' Wrote CSQY DATA for ',SPECTRA_NAME IF( SPECTRA_NAME .EQ. PHOTAB( MAX( NPHOTAB,1 ) ) )THEN ! write out the ozone cross-section for stratospheric temperatures WRITE(JTABLE_UNIT,5010) WRITE(JTABLE_UNIT,'(A14,1X,I3)')'NTEMP_STRAT = ', N_TEMP_STRAT WRITE(JTABLE_UNIT,'(A7,7X,A8,3X,A4,3X,40(A5,I3,A1,5X))')'! ', & 'QUANTITY','TEMP',('WBIN(',J,')', J = 1, N_INLINE_BAND) DO I = 1, N_TEMP_STRAT WRITE(JTABLE_UNIT,'(A16,1X,A5,1X,F8.3,1X,40(1PE12.6,2X))')'O3_STRAT ', & 'CS',TEMP_STRAT(I),(O3_CS_STRAT( I, J), J = 1, N_INLINE_BAND) ENDDO END IF RETURN 1001 FORMAT(A16,22X,F5.1,2X,F5.1) 1003 FORMAT(61X,F9.1) 2007 format('!... CS = absorption cross sections averaged over UCI Solar Flux') 2009 format('!... QY = quantum yields averaged over UCI Solar Flux') 3010 format('!... EQY = eCS*eQY/CS averaged over Solar Flux and 77 bins in UCI Model') 5001 FORMAT('! Wavelength and Photolysis Rate Parameters for CMAQ In-Line Photolysis', & /, '! calculation . The values are determined by averaging technique over the below', & /, '! number of wavelength bins. The technique employs an approach used by the FASTJX', & /, '! versions 6 and 7.', & /, '!References:', & /, '! 1) Bian, H. S. and Prather, M. J.: Fast-J2: accurate simulation of stratospheric', & /, '! photolysis in global chemical models, J. Atmos. Chem., 41, 281-296', & /, ' doi:10.1023/A:1014980619462, 2002.', & /, '! 2) Hsu, J. and Prather, M. J.: Stratospheric variability and tropospheric ozone,', & /, '! J. Geophys. Res., 114, D06102, doi:10.1029/2008JD010942, 2009.', & /, '! 3) Prather, M. J.: Fast-JX versions and utilities, available at:', & /, '! http://www.ess.uci.edu/researchgrp/prather/scholar_software/fast-jx', & /, '! (last accessed: 24 January 2014), 2014.', & /, '! Wave bands and Solar Flux') 5002 FORMAT('! The former is based on HU & Stamnes (1993), An accurate parameterization of') 5003 FORMAT('! the radiative properties of water clouds suitable for use in climate models,') 5004 FORMAT('! J. of Climate, vol. 6, pp. 728-742. The values were calculated with an') 5005 FORMAT('! equivalent radius of 10 micrometers. ') 6006 FORMAT('! Note: Cloud extinction/LWC is in [1/m] over [g/m **3] where LWC is in g/m**3', & /, '! ') 5006 FORMAT('! ') 5007 FORMAT('! Complex refractive indices for aerosol components are based on ', & /,'! 1) Hess, M. P. Koepke, and I. Schult, Optical properties of aerosols and', & /,'! clouds: The software package OPAC, Bulletin of the American Meteorological', & /,'! Society, Vol 79, No 5, pp 831 - 844, May 1998. Available at', & /,'! www.lrz-muenchen.de/~uh234an/www/radaer/opac.htm', & /,'! 2) Segelstein, D., 1981: The Complex Refractive Index of Water, M.S. Thesis,', & /,'! University of Missouri--Kansas City, MO' ) !5008 FORMAT(I3,1X,3(F8.3,2X),2X,ES12.4,2X,2(F8.3,2X),ES12.4,2X,8(F8.3,1X,ES12.4,1X)) 5008 FORMAT(I3,', ',3(F21.3,', '),ES21.4,', ',2(F21.3,', '),ES21.4,5(', ',F21.3,', ',ES21.4)) !5009 FORMAT(A3, 20(', ',A)) 5009 FORMAT(A3,', ',3(A21,', '),A21,', ',2(A21,', '),A21,5(', ',A21,', ',A21)) 5010 FORMAT('! Ozone Cross-Section for Stratospheric Opacity based on Table 4-5 in', & /,'! Chemical Kinetics and Photochemical Data for Use in Atmospheric', & /,'! Studies Evaluation Number 15. Sander et. al: NASA-JPL 2006 ') 5011 FORMAT('! Surface Albedo with wavelength dependence for 20 MODIS land use types.', & /,'! Correction factors are included for solar zenith angle and season.', & /,'! Note that an adjustment is used better match spectral estimates.', & /,'! REFERENCE: CERES/SARB Surface Properties database, May 2006', & /,'! http://www-surf.larc.nasa.gov/surf/pages/explan.html.') 5012 FORMAT(I3,1X,A30,1X,3(F8.3,2X)) 5013 FORMAT(A21,1X,I3) 5014 FORMAT('! Following two indices denote the categories assigned as generic', & /,'! land and water surfaces. The surfaces are used as the default', & /,'! land characterization scheme if scheme used is not known.') 5015 FORMAT('! Following maps the above albedo data to three land characterization', & /,'! schemes commonly used in CMAQ applications.', & /,'! ') 5016 FORMAT(I3,1X,A60,1X,I3,2X,3(F8.3,2X)) 6011 FORMAT(A7,7X,A8,1X,A10,40(1X,F8.1," nm ")) END SUBROUTINE WRT_CSQY_DATA_ONLY ================================================ FILE: UTIL/inline_phot_preproc/src/wrt_optics_data.F ================================================ SUBROUTINE WRT_OPTICS_DATA( ) USE GET_ENV_VARS USE BIN_DATA USE CSQY_REFER_DATA USE ALBEDO_REFER_DATA IMPLICIT NONE !Purpose: compute then write suface albedo, cloud water and ice optical data to file ! as a CMAQ input !..........ARGUMENTS and their descriptions: NONE !...........LOCAL VARIABLES and their descriptions: CHARACTER(16) :: PNAME = 'WRT_OPTICS_DATA' ! program name CHARACTER(80) :: MSG = ' ' ! message !...........PARAMETERS and their descriptions REAL, PARAMETER :: CLOUD_RADIUS_LIQUID = 10.0 ! mean cloud droplet radii, um REAL :: PARTICLE_SIZE ! hydrometer size for calculating optical properties INTEGER, PARAMETER :: MAX_LEN_WORD = 16 INTEGER, PARAMETER :: NRADIUS_LIQUID = 58 ! number of liquid droplets to compute data REAL, PARAMETER :: LIQUID_RADIUS_INT = 2.5 ! starting liquid droplet radii, um REAL, PARAMETER :: LIQUID_RADIUS_INC = 1.0 ! increment for liquid droplet radii, um REAL, PARAMETER :: MAX_COALB = 9.999999E-1 ! Maximum value for single scattering coalbedo INTEGER, PARAMETER :: NDIAM_ICE = 46 ! number of ice droplets to compute data REAL, PARAMETER :: ICE_DIAM_INT = 5.0 ! starting ice droplet diameter, um REAL, PARAMETER :: ICE_DIAM_INC = 3.0 ! increment for ice droplet diameter, um INTEGER, SAVE :: NAERO_REFRACT = 5 INTEGER, SAVE :: MAX_NAERO_REFRACT = 5 !Local: INTEGER :: I, J, K ! index counters INTEGER :: ITTR ! array index INTEGER :: ENV_STAT CHARACTER(255) :: EQNAME CHARACTER(600) :: ODATA_NAME LOGICAL, SAVE :: FIRSTCALL = .TRUE. REAL, ALLOCATABLE, SAVE :: WC_EXT( :, : ) REAL, ALLOCATABLE, SAVE :: WC_ASF( :, : ) REAL, ALLOCATABLE, SAVE :: WC_SSA( :, : ) REAL, ALLOCATABLE, SAVE :: ICE_EXT( :, : ) REAL, ALLOCATABLE, SAVE :: ICE_ASY( :, : ) REAL, ALLOCATABLE, SAVE :: ICE_SSA( :, : ) REAL, ALLOCATABLE, SAVE :: ICE_DEL( :, : ) ! Delta function transmission LOGICAL, SAVE :: WRITE_AE_REFRACT = .FALSE. ! .FALSE. CHARACTER( 5 ) :: WVL_AE_REFRAC CHARACTER( 13 ) :: AERO_INDEX = 'WVL_AE_REFRAC' CHARACTER( 32 ) :: ENV_VAR_NAME CHARACTER( 256 ) :: ENV_VAR_LIST CHARACTER( MAX_LEN_WORD ), ALLOCATABLE, SAVE :: AERO_REFRACT_INDX( : ) ! CHARACTER( MAX_LEN_WORD ) :: AERO_REFRACT_INDX( NAERO_REFRACT ) ! DATA AERO_REFRACT_INDX / "WATER", "SOLUTE", "DUST", "SEASALT", "SOOT" / INTEGER :: NVARS CHARACTER( MAX_LEN_WORD ), ALLOCATABLE :: VAR_LIST( : ) REAL, ALLOCATABLE :: AERO_IMAG_REFRACT( :, : ) REAL, ALLOCATABLE :: AERO_REAL_REFRACT( :, : ) REAL, ALLOCATABLE, SAVE :: MODIS_ALBEDO( :, :) ! NJO, NUMB_LANDUSE_MODIS ) INTERFACE SUBROUTINE OPTICS_WATER_CLOUD(CLOUD_RADIUS_LIQUID, WC_EXT, WC_ASF, WC_SSA) REAL, INTENT( IN ) :: CLOUD_RADIUS_LIQUID REAL, INTENT( OUT ) :: WC_EXT( : ) REAL, INTENT( OUT ) :: WC_ASF( : ) REAL, INTENT( OUT ) :: WC_SSA( : ) END SUBROUTINE OPTICS_WATER_CLOUD SUBROUTINE OPTICS_ICE_CLOUD(CLOUD_DIAMETER_ICE, ICE_EXT, ICE_ASY, ICE_SSA, ICE_DEL) REAL, INTENT( IN ) :: CLOUD_DIAMETER_ICE ! effective ice droplet size or diameter, um REAL, INTENT( OUT ) :: ICE_EXT( : ) ! (cloud extinction coef)/IWC, 1/m*/(g/m**3) REAL, INTENT( OUT ) :: ICE_ASY( : ) ! cloud asymmetry factor REAL, INTENT( OUT ) :: ICE_SSA( : ) ! cloud coalbedo REAL, INTENT( OUT ) :: ICE_DEL( : ) ! Delta function transmission END SUBROUTINE OPTICS_ICE_CLOUD SUBROUTINE AERO_REFRACT_INDEX ( NAERO_REFRACT, AERO_REFRACT_INDX, AERO_REAL_REFRACT, & AERO_IMAG_REFRACT ) INTEGER, INTENT( IN ) :: NAERO_REFRACT ! number of refractive indices CHARACTER( 16 ), INTENT( IN ) :: AERO_REFRACT_INDX( : ) ! names of refractive indices REAL, INTENT( OUT ) :: AERO_IMAG_REFRACT( :, : ) ! imaginary part of index [Dimensionaless] REAL, INTENT( OUT ) :: AERO_REAL_REFRACT( :, : ) ! real part of index [Dimensionaless] END SUBROUTINE AERO_REFRACT_INDEX SUBROUTINE SPECTRAL_REFLECT(MODIS_ALBEDO) REAL, INTENT( OUT ) :: MODIS_ALBEDO( :, : ) END SUBROUTINE SPECTRAL_REFLECT SUBROUTINE CONVERT_CASE ( BUFFER, UPPER ) CHARACTER(LEN= *), INTENT( INOUT ) :: BUFFER LOGICAL, INTENT( IN ) :: UPPER END SUBROUTINE CONVERT_CASE END INTERFACE CALL INIT_BIN_DATA ! EQNAME = 'OUT_DIR' ODATA_NAME = TRIM( OUT_DIR ) & // '/' // 'PHOT_OPTICS.dat' OPEN(ODATA_UNIT, FILE = ODATA_NAME, STATUS = 'UNKNOWN') IF( FIRSTCALL )THEN FIRSTCALL = .FALSE. ALLOCATE( WC_EXT( NJO_NEW, NRADIUS_LIQUID ), & WC_ASF( NJO_NEW, NRADIUS_LIQUID ), & WC_SSA( NJO_NEW, NRADIUS_LIQUID ) ) ALLOCATE( ICE_EXT( NJO_NEW, NRADIUS_LIQUID ), & ICE_ASY( NJO_NEW, NRADIUS_LIQUID ), & ICE_SSA( NJO_NEW, NRADIUS_LIQUID ), & ICE_DEL( NJO_NEW, NRADIUS_LIQUID )) ENV_VAR_NAME = 'MAX_NUMB_REFRACT' MAX_NAERO_REFRACT = GET_ENV_INT( ENV_VAR_NAME, ' ', MAX_NAERO_REFRACT, ENV_STAT) PRINT*,'MAX_NUMB_REFRACT = ', MAX_NAERO_REFRACT ENV_VAR_LIST = 'AE_REFRAC_LIST' ALLOCATE( VAR_LIST( MAX_NAERO_REFRACT ) ) CALL GET_ENVLIST ( ENV_VAR_LIST, NVARS, VAR_LIST, ENV_STAT ) IF( NVARS .GT. 0 )THEN NAERO_REFRACT = NVARS ALLOCATE( AERO_REFRACT_INDX( NAERO_REFRACT ) ) DO I = 1, NVARS AERO_REFRACT_INDX( I ) = VAR_LIST( I ) END DO END IF ALLOCATE( AERO_IMAG_REFRACT( NJO_NEW, NAERO_REFRACT ) ) ALLOCATE( AERO_REAL_REFRACT( NJO_NEW, NAERO_REFRACT ) ) END IF ! determine whether to write out spectral values of refractive index for aerosol species CALL VALUE_NAME ( AERO_INDEX, WVL_AE_REFRAC) CALL CONVERT_CASE( WVL_AE_REFRAC, .TRUE.) IF( WVL_AE_REFRAC(1:1) .EQ. 'T' .OR. WVL_AE_REFRAC(1:1) .EQ. 'Y' )THEN WRITE_AE_REFRACT = .TRUE. WRITE(6,'(A)')'Environment Variable WVL_AE_REFRAC set to ' & // TRIM( WVL_AE_REFRAC ) // ' and adding aerosol refractive indice to' & // ' output ' ELSE IF( WVL_AE_REFRAC(1:1) .EQ. 'F' .OR. WVL_AE_REFRAC(1:1) .EQ. 'N' )THEN WRITE_AE_REFRACT = .FALSE. WRITE(6,'(A)')'Environment Variable WVL_AE_REFRAC set to ' & // TRIM( WVL_AE_REFRAC ) // ' and not writing aerosol refractive indice to' & // ' output ' ELSE WRITE(6,' (A)')'Environment Variable WVL_AE_REFRAC set to ' & // TRIM( WVL_AE_REFRAC ) // ' and must equal T, Y, F, or N.' & // ' Using default value of F' WRITE_AE_REFRACT = .FALSE. END IF WRITE(ODATA_UNIT,4997)'N_INLINE_BAND = ', N_INLINE_BAND 4997 FORMAT(A16, 1X, I3) 4998 FORMAT(A20, 1X, 20(A, ', '), A) 4999 FORMAT(2(A16, 1X, I3, ', '), A20, 1X, 4(A, ', '), A) WRITE(ODATA_UNIT,5001) CALL OPTICS_WATER_CLOUD(CLOUD_RADIUS_LIQUID, WC_EXT(:,1), WC_ASF(:,1), WC_SSA(:,1)) WRITE(ODATA_UNIT,5009)'! I','START_WL_BIN(nm)', & 'EFFECT_WL_BIN_(nm)', 'END_WL_BIN_(nm)','photon_flux(cm-2*s-1)', & 'CLD_EXT/LWC_(m2/g)','CLD_ASYM_FACT','CLD_COALBEDO' DO I = 1, N_INLINE_BAND ITTR = NJO_NEW - N_INLINE_BAND + I WRITE(ODATA_UNIT,5008)I, & STWL_NEW(ITTR+2), EFFECTIVE_LAMBDA(ITTR), ENDWL_NEW(ITTR+2), & SOLAR_PHOTONS( ITTR ), WC_EXT(ITTR, 1), WC_ASF(ITTR, 1), WC_SSA(ITTR, 1) ENDDO IF( WRITE_AE_REFRACT )THEN AERO_IMAG_REFRACT = 0.0 AERO_REAL_REFRACT = 0.0 CAll AERO_REFRACT_INDEX ( NAERO_REFRACT, AERO_REFRACT_INDX, AERO_REAL_REFRACT, & AERO_IMAG_REFRACT ) WRITE(ODATA_UNIT,5007) WRITE(ODATA_UNIT,4999)'NAERO_REFRACT = ', NAERO_REFRACT WRITE(ODATA_UNIT,4998)'NAMES_REFRACT_INDX = ', & ( TRIM( AERO_REFRACT_INDX( I ) ), I = 1, NAERO_REFRACT ) WRITE(ODATA_UNIT,6009)'! I','STRT_WVL(nm)', & 'EFFECT_WVL(nm)', 'END_WVL(nm)', & ( 'NR_' // TRIM( AERO_REFRACT_INDX( I ) ), 'NI_' // TRIM( AERO_REFRACT_INDX ( I ) ), & I = 1, NAERO_REFRACT ) DO I = 1, N_INLINE_BAND ITTR = NJO_NEW - N_INLINE_BAND + I WRITE(ODATA_UNIT,6008)I, & STWL_NEW(ITTR+2), EFFECTIVE_LAMBDA(ITTR), ENDWL_NEW(ITTR+2), & ( AERO_REAL_REFRACT( ITTR, J ), AERO_IMAG_REFRACT( ITTR, J ), & J = 1, NAERO_REFRACT ) ENDDO END IF WRITE(ODATA_UNIT,6001) WRITE(ODATA_UNIT,5002) WRITE(ODATA_UNIT,5003) WRITE(ODATA_UNIT,5004) WRITE(ODATA_UNIT,5005) WRITE(ODATA_UNIT,5006) WRITE(ODATA_UNIT,4997)'NRADIUS_LIQUID = ', NRADIUS_LIQUID WRITE(ODATA_UNIT,6011)'QUANTITY','Radius, um', & (EFFECTIVE_LAMBDA(NJO_NEW - N_INLINE_BAND + J), J = 1, N_INLINE_BAND) 6011 FORMAT(A8,1X,A10,40(1X,F8.1," nm ")) ! compute and write out table for liquid droplet properties PARTICLE_SIZE = LIQUID_RADIUS_INT DO J = 1, NRADIUS_LIQUID CALL OPTICS_WATER_CLOUD(PARTICLE_SIZE, WC_EXT(:,J), WC_ASF(:,J), WC_SSA(:,J)) PARTICLE_SIZE = PARTICLE_SIZE + LIQUID_RADIUS_INC END DO PARTICLE_SIZE = LIQUID_RADIUS_INT DO J = 1, NRADIUS_LIQUID WRITE(ODATA_UNIT,'(A8,1X,F10.3)',ADVANCE = 'NO')'LIQ_EXT',PARTICLE_SIZE DO I = 1, N_INLINE_BAND ITTR = NJO_NEW - N_INLINE_BAND + I WRITE(ODATA_UNIT,'(1X,1PE12.4)',ADVANCE = 'NO')WC_EXT(ITTR, J) ENDDO PARTICLE_SIZE = PARTICLE_SIZE + LIQUID_RADIUS_INC WRITE(ODATA_UNIT,*) END DO WRITE(ODATA_UNIT,6011)'QUANTITY','Radius, um', & (EFFECTIVE_LAMBDA(NJO_NEW - N_INLINE_BAND + J), J = 1, N_INLINE_BAND) PARTICLE_SIZE = LIQUID_RADIUS_INT DO J = 1, NRADIUS_LIQUID WRITE(ODATA_UNIT,'(A8,1X,F10.3)',ADVANCE = 'NO')'LIQ_ASY',PARTICLE_SIZE DO I = 1, N_INLINE_BAND ITTR = NJO_NEW - N_INLINE_BAND + I WRITE(ODATA_UNIT,'(1X,1PE12.4)',ADVANCE = 'NO')WC_ASF(ITTR, J) ENDDO PARTICLE_SIZE = PARTICLE_SIZE + LIQUID_RADIUS_INC WRITE(ODATA_UNIT,*) END DO WRITE(ODATA_UNIT,6011)'QUANTITY','Radius, um', & (EFFECTIVE_LAMBDA(NJO_NEW - N_INLINE_BAND + J), J = 1, N_INLINE_BAND) PARTICLE_SIZE = LIQUID_RADIUS_INT DO J = 1, NRADIUS_LIQUID WRITE(ODATA_UNIT,'(A8,1X,F10.3)',ADVANCE = 'NO')'LIQ_COA',PARTICLE_SIZE DO I = 1, N_INLINE_BAND ITTR = NJO_NEW - N_INLINE_BAND + I WRITE(ODATA_UNIT,'(1X,1PE12.4)',ADVANCE = 'NO') & MAX(0.0, MIN(MAX_COALB, WC_SSA(ITTR, J))) ENDDO PARTICLE_SIZE = PARTICLE_SIZE + LIQUID_RADIUS_INC WRITE(ODATA_UNIT,*) END DO ! compute and write out tables for ice droplet properties WRITE(ODATA_UNIT,7001) WRITE(ODATA_UNIT,7002) WRITE(ODATA_UNIT,7003) WRITE(ODATA_UNIT,7004) WRITE(ODATA_UNIT,7005) WRITE(ODATA_UNIT,7006) WRITE(ODATA_UNIT,4997)'NDIAM_ICE = ', NDIAM_ICE PARTICLE_SIZE = ICE_DIAM_INT DO J = 1, NDIAM_ICE CALL OPTICS_ICE_CLOUD(PARTICLE_SIZE, ICE_EXT(:,J), ICE_ASY(:,J), ICE_SSA(:,J), & ICE_DEL(:,J)) PARTICLE_SIZE = PARTICLE_SIZE + ICE_DIAM_INC END DO WRITE(ODATA_UNIT,6011)'QUANTITY','EDIAM, um', & (EFFECTIVE_LAMBDA(NJO_NEW - N_INLINE_BAND + J), J = 1, N_INLINE_BAND) PARTICLE_SIZE = ICE_DIAM_INT DO J = 1, NDIAM_ICE WRITE(ODATA_UNIT,'(A8,1X,F10.3)',ADVANCE = 'NO')'ICE_EXT',PARTICLE_SIZE DO I = 1, N_INLINE_BAND ITTR = NJO_NEW - N_INLINE_BAND + I WRITE(ODATA_UNIT,'(1X,1PE12.4)',ADVANCE = 'NO')ICE_EXT(ITTR, J) ENDDO PARTICLE_SIZE = PARTICLE_SIZE + ICE_DIAM_INC WRITE(ODATA_UNIT,*) END DO WRITE(ODATA_UNIT,6011)'QUANTITY','EDIAM, um', & (EFFECTIVE_LAMBDA(NJO_NEW - N_INLINE_BAND + J), J = 1, N_INLINE_BAND) PARTICLE_SIZE = ICE_DIAM_INT DO J = 1, NDIAM_ICE WRITE(ODATA_UNIT,'(A8,1X,F10.3)',ADVANCE = 'NO')'ICE_ASY',PARTICLE_SIZE DO I = 1, N_INLINE_BAND ITTR = NJO_NEW - N_INLINE_BAND + I WRITE(ODATA_UNIT,'(1X,1PE12.4)',ADVANCE = 'NO')ICE_ASY(ITTR, J) ENDDO PARTICLE_SIZE = PARTICLE_SIZE + ICE_DIAM_INC WRITE(ODATA_UNIT,*) END DO WRITE(ODATA_UNIT,6011)'QUANTITY','EDIAM, um', & (EFFECTIVE_LAMBDA(NJO_NEW - N_INLINE_BAND + J), J = 1, N_INLINE_BAND) PARTICLE_SIZE = ICE_DIAM_INT DO J = 1, NDIAM_ICE WRITE(ODATA_UNIT,'(A8,1X,F10.3)',ADVANCE = 'NO')'ICE_COA',PARTICLE_SIZE DO I = 1, N_INLINE_BAND ITTR = NJO_NEW - N_INLINE_BAND + I WRITE(ODATA_UNIT,'(1X,1PE12.4)',ADVANCE = 'NO') & MAX(0.0, MIN(MAX_COALB, ICE_SSA(ITTR, J))) ENDDO PARTICLE_SIZE = PARTICLE_SIZE + ICE_DIAM_INC WRITE(ODATA_UNIT,*) END DO WRITE(ODATA_UNIT,6011)'QUANTITY','EDIAM, um', & (EFFECTIVE_LAMBDA(NJO_NEW - N_INLINE_BAND + J), J = 1, N_INLINE_BAND) PARTICLE_SIZE = ICE_DIAM_INT DO J = 1, NDIAM_ICE WRITE(ODATA_UNIT,'(A8,1X,F10.3)',ADVANCE = 'NO')'ICE_DEL',PARTICLE_SIZE DO I = 1, N_INLINE_BAND ITTR = NJO_NEW - N_INLINE_BAND + I WRITE(ODATA_UNIT,'(1X,1PE12.4)',ADVANCE = 'NO') & MAX(0.0, MIN(MAX_COALB, ICE_DEL(ITTR, J))) ENDDO PARTICLE_SIZE = PARTICLE_SIZE + ICE_DIAM_INC WRITE(ODATA_UNIT,*) END DO ALLOCATE( MODIS_ALBEDO( NJO_NEW, NUMB_LANDUSE_MODIS ) ) CALL SPECTRAL_REFLECT(MODIS_ALBEDO) ! write out the suface albedo data for each landuse WRITE(ODATA_UNIT,5011) WRITE(ODATA_UNIT,5013)'NUMB_LANDUSE_MODIS = ', NUMB_LANDUSE_MODIS WRITE(ODATA_UNIT,5014) WRITE(ODATA_UNIT,5013)'INDEX_GRASSLAND = ', INDEX_GRASSLAND WRITE(ODATA_UNIT,5013)'INDEX_OCEAN_WATER = ', INDEX_OCEAN_WATER WRITE(ODATA_UNIT,5013)'INDEX_SEA_ICE = ', INDEX_SEA_ICE WRITE(ODATA_UNIT,5009)'! I','LANDUSE_CATEGORY', & 'ZENITH_ANGLE_COEFF', 'SEASONAL_COEFF','SNOW_COVER_COEEF' DO I = 1, NUMB_LANDUSE_MODIS WRITE(ODATA_UNIT,5012)I, LANDUSE( I ), & ZENITH_COEFF( I ), SEASON_COEFF( I ), SNOW_COEFF( I ) ENDDO WRITE(ODATA_UNIT,'(A7,7X,A16,2X,40(A5,I3,A1,5X))')'! ', & 'LANDUSE CATEGORY',('WBIN(',J,')', J = 1, N_INLINE_BAND) DO I = 1, NUMB_LANDUSE_MODIS WRITE(ODATA_UNIT,'(A30,1X,40(1PE12.6,2X))') & TRIM(LANDUSE(I)),(MODIS_ALBEDO( NJO_NEW - N_INLINE_BAND + J, I), J = 1, N_INLINE_BAND) ENDDO WRITE(ODATA_UNIT,5015) WRITE(ODATA_UNIT,5013)'NUMB_NLCD_MODIS = ', NUMB_NLCD_MODIS WRITE(ODATA_UNIT,5009)'! I','LANDUSE_NLCD-MODIS','INDEX_ALBREF', & 'FAC_ALBREF' DO I = 1, NUMB_NLCD_MODIS WRITE(ODATA_UNIT,5016)I, NLCD_LANDUSE( I ), & INT(ALBMAP_REF2NLCD( I )), ALBFAC_REF2NLCD( I ) ENDDO WRITE(ODATA_UNIT,5013)'NUMB_USGS = ', NUMB_USGS WRITE(ODATA_UNIT,5009)'! I','LANDUSE_USGS','INDEX_ALBREF', & 'FAC_ALBREF' DO I = 1, NUMB_USGS WRITE(ODATA_UNIT,5016)I, USGS_LANDUSE( I ), & INT(ALBMAP_REF2USGS( I )), ALBFAC_REF2USGS( I ) ENDDO WRITE(ODATA_UNIT,5013)'NUMB_MODIS_NOAH = ', NUMB_MODIS_NOAH WRITE(ODATA_UNIT,5009)'! I','LANDUSE_MODIS-NOAH','INDEX_ALBREF', & 'FAC_ALBREF' DO I = 1, NUMB_MODIS_NOAH WRITE(ODATA_UNIT,5016)I, MODIS_LANDUSE( I ), & INT(ALBMAP_REF2MODIS( I )), ALBFAC_REF2MODIS( I ) ENDDO WRITE(ODATA_UNIT,5013)'NUMB_NLCD40_MODIS = ', NUMB_NLCD40_MODIS WRITE(ODATA_UNIT,5009)'! I','LANDUSE_NLCD40-MODIS','INDEX_ALBREF', & 'FAC_ALBREF' DO I = 1, NUMB_NLCD40_MODIS WRITE(ODATA_UNIT,5016)I, NLCD40_LANDUSE( I ), & INT(ALBMAP_REF2NLCD40( I )), ALBFAC_REF2NLCD40( I ) ENDDO CLOSE( ODATA_UNIT ) 1001 FORMAT(A16,22X,F5.1,2X,F5.1) 1003 FORMAT(61X,F9.1) 5001 FORMAT('! Wavelength, Optical and Surface Albedo Parameters for CMAQ In-Line Photolysis', & /, '! calculation . The values are determined by averaging technique over the above', & /, '! number of wavelength bins. The technique employs an approach used by the FASTJX', & /, '! versions 6 and 7.', & /, '!References:', & /, '! 1) Bian, H. S. and Prather, M. J.: Fast-J2: accurate simulation of stratospheric', & /, '! photolysis in global chemical models, J. Atmos. Chem., 41, 281-296', & /, '! doi:10.1023/A:1014980619462, 2002.', & /, '! 2) Hsu, J. and Prather, M. J.: Stratospheric variability and tropospheric ozone,', & /, '! J. Geophys. Res., 114, D06102, doi:10.1029/2008JD010942, 2009.', & /, '! 3) Prather, M. J.: Fast-JX versions and utilities, available at:', & /, '! http://www.ess.uci.edu/researchgrp/prather/scholar_software/fast-jx', & /, '! (last accessed: 24 January 2014), 2014.', & /, '!Last three numbers are cloud droplet optical properties for 10um radius (Hu & Stamnes, 1993)') 5002 FORMAT('! Values are based on Hu & Stamnes (1993), An accurate parameterization of') 5003 FORMAT('! the radiative properties of water clouds suitable for use in climate models,') 5004 FORMAT('! J. of Climate, vol. 6, pp. 728-742.') 5006 FORMAT('! LIQ_EXT=extinction coefficient, LIQ_ASY=asymmeter factor, LIQ_COA=single scattering co-albedo') 5005 FORMAT('! Note: Cloud extinction/Liquid Water Content is in [1/m] over [g/m **3] where LWC is in g/m**3', & /, '! ') 5007 FORMAT('! Complex refractive indices for aerosol components are based on ', & /,'! 1) Hess, M. P. Koepke, and I. Schult, Optical properties of aerosols and', & /,'! clouds: The software package OPAC, Bulletin of the American Meteorological', & /,'! Society, Vol 79, No 5, pp 831 - 844, May 1998. Available at', & /,'! www.lrz-muenchen.de/~uh234an/www/radaer/opac.htm', & /,'! 2) Segelstein, D., 1981: The Complex Refractive Index of Water, M.S. Thesis,', & /,'! University of Missouri--Kansas City, MO' ) 5008 FORMAT(I3,', ',3(F21.3,', '),ES21.4,', ',2(F21.3,', '),ES21.4,5(', ',F21.3,', ',ES21.4)) 5009 FORMAT(A3,', ',3(A21,', '),A21,', ',2(A21,', '),A21,5(', ',A21,', ',A21)) 5010 FORMAT('! Ozone Cross-Section for Stratospheric Opacity based on Table 4-5 in', & /,'! Chemical Kinetics and Photochemical Data for Use in Atmospheric', & /,'! Studies Evaluation Number 15. Sander et. al: NASA-JPL 2006 ') 5011 FORMAT('! Surface Albedo with wavelength dependence for 20 MODIS land use types.', & /,'! Correction factors are included for solar zenith angle and season.', & /,'! Note that an adjustment is used better match spectral estimates.', & /,'! REFERENCE: CERES/SARB Surface Properties database', & /,'! http://www-surf.larc.nasa.gov/surf/pages/explan.html', & /,'!(last accessed: 30 January 2014).') 5012 FORMAT(I3,1X,A30,1X,3(F8.3,2X)) 5013 FORMAT(A21,1X,I3) 5014 FORMAT('! Following two indices denote the categories assigned as generic', & /,'! land and water surfaces. The surfaces are used as the default', & /,'! land characterization scheme if scheme used is not known.') 5015 FORMAT('! Following maps the above albedo data to three land characterization', & /,'! schemes commonly used in CMAQ applications.', & /,'! ') 5016 FORMAT(I3,1X,A60,1X,I3,2X,3(F8.3,2X)) 6001 FORMAT('! Liquid Droplet Optical Properties versus Effective Wavelength and equivalent radius.') 6008 FORMAT(I3,', ',3(F14.3,', '),20(F11.3,', ',ES11.4,', '),F11.3,', ',ES11.4) 6009 FORMAT(A3,', ',3(A14,', '),20(A11,', ',A11,', '),A11,', ',A11) 7001 FORMAT('! Ice Particle Optical Properties versus Effective Wavelength and Effective Diameter.') 7002 FORMAT('! Values are based on Fu (1996), An accurate parameterization of') 7003 FORMAT('! the solar radiative properties of cirrus ice suitable for climate models,') 7004 FORMAT('! J. of Climate, vol. 9, pp. 2058-2082.') 7005 FORMAT('! ICE_EXT=extinction coefficient, ICE_ASY=asymmeter factor, ICE_COA=co-albedo, ICE_DEL=Delta Transmission function') 7006 FORMAT('! Note: Extinction/Ice Water Content is in [1/m] over [g/m **3] where IWC is in g/m**3') RETURN END SUBROUTINE WRT_OPTICS_DATA ================================================ FILE: UTIL/inline_phot_preproc/src/wvbin_average-b.f ================================================ SUBROUTINE WVBIN_AVERAGE_B(WL_CS_IN, CS_IN, NWL_CS_IN, & WL_QY_IN, QY_IN, NWL_QY_IN, & SPECTRA_TYPE, & WLL_AVE, WLU_AVE, NWL_AVE, & CS_AVE, QY_AVE ) USE CSQY_PARAMETERS USE BIN_DATA IMPLICIT NONE ! INCLUDE 'JVALPARMS.EXT' ! jproc parameters C...........ARGUMENTS and their descriptions CHARACTER(1), INTENT( IN ) :: SPECTRA_TYPE ! spectra type INTEGER, INTENT( IN ) :: NWL_AVE ! number of intervals average INTEGER, INTENT( IN ) :: NWL_CS_IN ! number of intervals CS_IN INTEGER, INTENT( IN ) :: NWL_QY_IN ! number of intervals CS_IN REAL, INTENT( IN ) :: WL_CS_IN( : ) ! wl for CS_IN REAL, INTENT( IN ) :: WL_QY_IN( : ) ! wl for QY_IN REAL, INTENT( IN ) :: CS_IN( : ) ! cross-section as f(WLIN) REAL, INTENT( IN ) :: QY_IN( : ) ! quantum yield as f(WLIN) REAL, INTENT( INOUT ) :: WLL_AVE( : ) ! lower limit on wl effective interval REAL, INTENT( INOUT ) :: WLU_AVE( : ) ! upper limit on wl effective interval REAL, INTENT( INOUT ) :: CS_AVE( : ) ! cross-section as f(WL_AVE) REAL, INTENT( INOUT ) :: QY_AVE( : ) ! quantum yield as f(WL_AVE) C...........LOCAL VARIABLES and their descriptions: CHARACTER(16) :: PNAME = 'WVBIN_AVERAGE' ! program name CHARACTER(80) :: MSG = ' ' ! message ! REAL(8) :: FBIN(NBO) ! REAL(8) :: ABIN(NBO) ! REAL(8) :: CBIN(NBO) ! REAL(8) :: DBIN(NBO) ! REAL(8) :: EBIN(NBO) REAL(8), ALLOCATABLE, SAVE :: FBIN( : ) REAL(8), ALLOCATABLE, SAVE :: ABIN( : ) REAL(8), ALLOCATABLE, SAVE :: CBIN( : ) REAL(8), ALLOCATABLE, SAVE :: DBIN( : ) REAL(8), ALLOCATABLE, SAVE :: EBIN( : ) REAL(8) :: WW REAL(8), ALLOCATABLE, SAVE :: FFBIN( : ) REAL(8), ALLOCATABLE, SAVE :: AABIN( : ) REAL(8), ALLOCATABLE, SAVE :: CCBIN( : ) REAL(8), ALLOCATABLE, SAVE :: DDBIN( : ) REAL(8), ALLOCATABLE, SAVE :: EEBIN( : ) REAL, ALLOCATABLE, SAVE :: XCOUT(:), QYOUT(:) INTEGER :: I, J, K LOGICAL, SAVE :: FIRSTCALL = .TRUE. INTERFACE SUBROUTINE INTAVG ( WLIN, CQIN, NWLIN, SPECTRA_TYPE, & NWLOUT, WLOUT1, WLOUT2, CQOUT ) CHARACTER(1), INTENT( IN ) :: SPECTRA_TYPE ! spectra type INTEGER, INTENT( IN ) :: NWLOUT ! number of intervals ETin INTEGER, INTENT( IN ) :: NWLIN ! number of intervals CQin REAL, INTENT( IN ) :: WLIN ( : ) ! wl for CQin REAL, INTENT( IN ) :: CQIN( : ) ! quantity (CS or QY) as f(WLIN) REAL, INTENT( INOUT ) :: WLOUT1( : ) ! lower limit on wl int ETin REAL, INTENT( INOUT ) :: WLOUT2( : ) ! upper limit on wl int ETin REAL, INTENT( OUT ) :: CQOUT ( : ) ! quantity (CS or QY) as f(WLOUT) END SUBROUTINE INTAVG SUBROUTINE INTAVG_C ( WLIN, CQIN, NWLIN, SPECTRA_TYPE, & NWLOUT, WLOUT1, WLOUT2, CQOUT ) USE CSQY_PARAMETERS IMPLICIT NONE CHARACTER(1), INTENT( IN ) :: SPECTRA_TYPE ! spectra type INTEGER, INTENT( IN ) :: NWLOUT ! number of intervals ETin INTEGER, INTENT( IN ) :: NWLIN ! number of intervals CQin REAL, INTENT( IN ) :: WLIN ( : ) ! wl for CQin REAL, INTENT( IN ) :: CQIN( : ) ! quantity (CS or QY) as f(WLIN) REAL, INTENT( INOUT ) :: WLOUT1( : ) ! lower limit on wl int ETin REAL, INTENT( INOUT ) :: WLOUT2( : ) ! upper limit on wl int ETin REAL, INTENT( OUT ) :: CQOUT ( : ) ! quantity (CS or QY) as f(WLOUT) END SUBROUTINE INTAVG_C END INTERFACE IF( FIRSTCALL )THEN FIRSTCALL = .FALSE. CALL INIT_BIN_DATA IF( CHANGE_WBIN )THEN ALLOCATE( FBIN( NB_NEW + 1 ) ) ALLOCATE( ABIN( NB_NEW + 1 ) ) ALLOCATE( CBIN( NB_NEW + 1 ) ) ALLOCATE( DBIN( NB_NEW + 1 ) ) ALLOCATE( EBIN( NB_NEW + 1 ) ) ELSE ALLOCATE( FBIN( NBO ) ) ALLOCATE( ABIN( NBO ) ) ALLOCATE( CBIN( NBO ) ) ALLOCATE( DBIN( NBO ) ) ALLOCATE( EBIN( NBO ) ) ENDIF ALLOCATE( XCOUT(NSO), QYOUT(NSO)) ALLOCATE( AABIN(NJO_NEW), CCBIN( NJO_NEW), DDBIN(NJO_NEW), EEBIN(NJO_NEW), FFBIN(NJO_NEW)) ENDIF ! FIRSTCALL c---now ready to do any flux-weighted means over the bins FBIN(:) = 0.d0 ABIN(:) = 0.0d0 CBIN(:) = 0.0d0 DBIN(:) = 0.0d0 EBIN(:) = 0.0d0 write(6,'(es12.4,1x)')QY_IN(1:NWL_QY_IN) CALL INTAVG_C(WL_CS_IN, CS_IN, NWL_CS_IN, SPECTRA_TYPE, NSO, WL, WU, XCOUT) CALL INTAVG_C(WL_QY_IN, QY_IN, NWL_QY_IN, SPECTRA_TYPE, NSO, WL, WU, QYOUT) print*,'intepolated in wvbin_average' do J=K1,K2 K = J - K1 + 1 I = IBINJ_NEW(J) if (I .gt. 0) then WW = W(J) FBIN(I) = FBIN(I) + F(J) ABIN(I) = ABIN(I) + F(J)*DBLE(XCOUT(J)) CBIN(I) = CBIN(I) + F(J)*DBLE(QYOUT(J)) DBIN(I) = DBIN(I) + F(J)*DBLE(XCOUT(J))*DBLE(QYOUT(J)) EBIN(I) = DBIN(I) ! ABIN(I) = ABIN(I) + F(J)*XNEW endif enddo print*,'step 1 in wvbin_average' do I=1,NB_NEW ! PRINT*,ABIN(I),EBIN(I) if (ABIN(I) .gt. 0.d0)EBIN(I) = EBIN(I)/ABIN(I) if (FBIN(I) .gt. 0.d0) then ABIN(I) = ABIN(I)/FBIN(I) CBIN(I) = CBIN(I)/FBIN(I) DBIN(I) = DBIN(I)/FBIN(I) endif enddo print*,'step 2 in wvbin_average' c---write out UCI std 77-bin data c write(6,'(a10,f10.2,a)') ' Temp=',TT,' flx O3T O3D NO2 NO2x' c write(6,'(i5,0p,2f10.3,1p,6e10.3)') (I,WBIN(I),WBIN(I+1),FBIN(I) c & ,XBIN(I),QBIN(I),YBIN(I),ZBIN(I),ABIN(I),I=1,NB) c---combine fast-JX bins: c--- non-SR bands (16:NB) are assigned a single JX bin c--- SR bands are split (by Opacity Distrib Fn) into a range of JX bins FFBIN(:) = 0.d0 AABIN(:) = 0.d0 CCBIN(:) = 0.d0 DDBIN(:) = 0.d0 EEBIN(:) = 0.d0 FFBIN(:) = 0.d0 do I=16,NB_NEW ! J = IJX(I) ! J = IJX_CALC(I) J = IJX_BIN_NEW( I ) FFBIN(J) = FFBIN(J) + FBIN(I) AABIN(J) = AABIN(J) + FBIN(I)*ABIN(I) CCBIN(J) = CCBIN(J) + FBIN(I)*CBIN(I) DDBIN(J) = DDBIN(J) + FBIN(I)*DBIN(I) EEBIN(J) = EEBIN(J) + FBIN(I)*ABIN(I)*EBIN(I) enddo print*,'step 4 in wvbin_average' do I=1,15 do J=1,NJO_NEW FFBIN(J) = FFBIN(J) + FBIN(I)*SRB_NEW(I,J) AABIN(J) = AABIN(J) + FBIN(I)*ABIN(I)*SRB_NEW(I,J) CCBIN(J) = CCBIN(J) + FBIN(I)*CBIN(I)*SRB_NEW(I,J) DDBIN(J) = DDBIN(J) + FBIN(I)*DBIN(I)*SRB_NEW(I,J) EEBIN(J) = EEBIN(J) + FBIN(I)*ABIN(I)*EBIN(I)*SRB_NEW(I,J) enddo enddo print*,'step 5 in wvbin_average' ! NWL_AVE = NJO_NEW ! WLL_AVE = 0.0 ! WLU_AVE = 0.0 ! CS_AVE = 0.0 ! QY_AVE = 0.0 print*,'step 6 in wvbin_average' do J = 1, 8 ! WLL_AVE( J ) = STWL_NEW( J ) ! WLU_AVE( J ) = END_WV_FASTJX( J ) WLL_AVE( J ) = STWL_NEW( J ) WLU_AVE( J ) = ENDWL_NEW( J ) enddo do J = 9, NJO_NEW ! WLL_AVE( J ) = STWL_NEW( J + 2 ) ! WLU_AVE( J ) = END_WV_FASTJX( J + 2 ) WLL_AVE( J ) = STWL_NEW( J + 2 ) WLU_AVE( J ) = ENDWL_NEW( J + 2) enddo do J=1,NJO_NEW if (AABIN(J) .gt. 0.d0) EEBIN(J) = EEBIN(J)/AABIN(J) if (FFBIN(J) .gt. 0.d0)THEN AABIN(J) = AABIN(J)/FFBIN(J) CCBIN(J) = CCBIN(J)/FFBIN(J) DDBIN(J) = DDBIN(J)/FFBIN(J) CS_AVE( J ) = AABIN(J) QY_AVE( J ) = EEBIN(J) endif enddo print*,'step 7 in wvbin_average' RETURN END ================================================ FILE: UTIL/inline_phot_preproc/src/wvbin_average.f ================================================ SUBROUTINE WVBIN_AVERAGE(WL_CS_IN, CS_IN, NWL_CS_IN, & WL_QY_IN, QY_IN, NWL_QY_IN, & SPECTRA_TYPE, & WLL_AVE, WLU_AVE, NWL_AVE, & CS_AVE, QY_AVE ) USE CSQY_PARAMETERS USE BIN_DATA IMPLICIT NONE ! INCLUDE 'JVALPARMS.EXT' ! jproc parameters C...........ARGUMENTS and their descriptions CHARACTER(1), INTENT( IN ) :: SPECTRA_TYPE ! spectra type INTEGER, INTENT( IN ) :: NWL_AVE ! number of intervals average INTEGER, INTENT( IN ) :: NWL_CS_IN ! number of intervals CS_IN INTEGER, INTENT( IN ) :: NWL_QY_IN ! number of intervals CS_IN REAL, INTENT( IN ) :: WL_CS_IN( : ) ! wl for CS_IN REAL, INTENT( IN ) :: WL_QY_IN( : ) ! wl for QY_IN REAL, INTENT( IN ) :: CS_IN( : ) ! cross-section as f(WLIN) REAL, INTENT( IN ) :: QY_IN( : ) ! quantum yield as f(WLIN) REAL, INTENT( INOUT ) :: WLL_AVE( : ) ! lower limit on wl effective interval REAL, INTENT( INOUT ) :: WLU_AVE( : ) ! upper limit on wl effective interval REAL, INTENT( INOUT ) :: CS_AVE( : ) ! cross-section as f(WL_AVE) REAL, INTENT( INOUT ) :: QY_AVE( : ) ! quantum yield as f(WL_AVE) C...........LOCAL VARIABLES and their descriptions: CHARACTER(16) :: PNAME = 'WVBIN_AVERAGE' ! program name CHARACTER(80) :: MSG = ' ' ! message ! REAL(8) :: FBIN(NBO) ! REAL(8) :: ABIN(NBO) ! REAL(8) :: CBIN(NBO) ! REAL(8) :: DBIN(NBO) ! REAL(8) :: EBIN(NBO) REAL(8), ALLOCATABLE, SAVE :: FBIN( : ) REAL(8), ALLOCATABLE, SAVE :: ABIN( : ) REAL(8), ALLOCATABLE, SAVE :: CBIN( : ) REAL(8), ALLOCATABLE, SAVE :: DBIN( : ) REAL(8), ALLOCATABLE, SAVE :: EBIN( : ) REAL(8) :: WW REAL(8), ALLOCATABLE, SAVE :: FFBIN( : ) REAL(8), ALLOCATABLE, SAVE :: AABIN( : ) REAL(8), ALLOCATABLE, SAVE :: CCBIN( : ) REAL(8), ALLOCATABLE, SAVE :: DDBIN( : ) REAL(8), ALLOCATABLE, SAVE :: EEBIN( : ) REAL, ALLOCATABLE, SAVE :: XCOUT(:), QYOUT(:) INTEGER :: I, J, K LOGICAL, SAVE :: FIRSTCALL = .TRUE. INTERFACE SUBROUTINE INTAVG ( WLIN, CQIN, NWLIN, SPECTRA_TYPE, & NWLOUT, WLOUT1, WLOUT2, CQOUT ) CHARACTER(1), INTENT( IN ) :: SPECTRA_TYPE ! spectra type INTEGER, INTENT( IN ) :: NWLOUT ! number of intervals ETin INTEGER, INTENT( IN ) :: NWLIN ! number of intervals CQin REAL, INTENT( IN ) :: WLIN ( : ) ! wl for CQin REAL, INTENT( IN ) :: CQIN( : ) ! quantity (CS or QY) as f(WLIN) REAL, INTENT( INOUT ) :: WLOUT1( : ) ! lower limit on wl int ETin REAL, INTENT( INOUT ) :: WLOUT2( : ) ! upper limit on wl int ETin REAL, INTENT( OUT ) :: CQOUT ( : ) ! quantity (CS or QY) as f(WLOUT) END SUBROUTINE INTAVG SUBROUTINE INTAVG_C ( WLIN, CQIN, NWLIN, SPECTRA_TYPE, & NWLOUT, WLOUT1, WLOUT2, CQOUT ) CHARACTER(1), INTENT( IN ) :: SPECTRA_TYPE ! spectra type INTEGER, INTENT( IN ) :: NWLOUT ! number of intervals ETin INTEGER, INTENT( IN ) :: NWLIN ! number of intervals CQin REAL, INTENT( IN ) :: WLIN ( : ) ! wl for CQin REAL, INTENT( IN ) :: CQIN( : ) ! quantity (CS or QY) as f(WLIN) REAL, INTENT( INOUT ) :: WLOUT1( : ) ! lower limit on wl int ETin REAL, INTENT( INOUT ) :: WLOUT2( : ) ! upper limit on wl int ETin REAL, INTENT( OUT ) :: CQOUT ( : ) ! quantity (CS or QY) as f(WLOUT) END SUBROUTINE INTAVG_C END INTERFACE IF( FIRSTCALL )THEN FIRSTCALL = .FALSE. CALL INIT_BIN_DATA IF( CHANGE_WBIN )THEN ALLOCATE( FBIN( NB_NEW + 1 ) ) ALLOCATE( ABIN( NB_NEW + 1 ) ) ALLOCATE( CBIN( NB_NEW + 1 ) ) ALLOCATE( DBIN( NB_NEW + 1 ) ) ALLOCATE( EBIN( NB_NEW + 1 ) ) ELSE ALLOCATE( FBIN( NBO ) ) ALLOCATE( ABIN( NBO ) ) ALLOCATE( CBIN( NBO ) ) ALLOCATE( DBIN( NBO ) ) ALLOCATE( EBIN( NBO ) ) ENDIF ALLOCATE( XCOUT(NSO), QYOUT(NSO)) ALLOCATE( AABIN(NJO_NEW), CCBIN( NJO_NEW), DDBIN(NJO_NEW), EEBIN(NJO_NEW), FFBIN(NJO_NEW)) ENDIF ! FIRSTCALL c---now ready to do any flux-weighted means over the bins FBIN(:) = 0.d0 ABIN(:) = 0.0d0 CBIN(:) = 0.0d0 DBIN(:) = 0.0d0 EBIN(:) = 0.0d0 CALL INTAVG_C(WL_CS_IN, CS_IN, NWL_CS_IN, SPECTRA_TYPE, NSO, WL, WU, XCOUT) CALL INTAVG_C(WL_QY_IN, QY_IN, NWL_QY_IN, SPECTRA_TYPE, NSO, WL, WU, QYOUT) do J=K1,K2 K = J - K1 + 1 I = IBINJ_NEW(J) if (I .gt. 0) then WW = W(J) FBIN(I) = FBIN(I) + F(J) ABIN(I) = ABIN(I) + F(J)*DBLE(XCOUT(J)) CBIN(I) = CBIN(I) + F(J)*DBLE(QYOUT(J)) DBIN(I) = DBIN(I) + F(J)*DBLE(XCOUT(J))*DBLE(QYOUT(J)) EBIN(I) = DBIN(I) ! ABIN(I) = ABIN(I) + F(J)*XNEW endif enddo do I=1,NB_NEW if (ABIN(I) .gt. 0.d0)EBIN(I) = EBIN(I)/ABIN(I) if (FBIN(I) .gt. 0.d0) then ABIN(I) = ABIN(I)/FBIN(I) CBIN(I) = CBIN(I)/FBIN(I) DBIN(I) = DBIN(I)/FBIN(I) endif enddo c---write out UCI std 77-bin data c write(6,'(a10,f10.2,a)') ' Temp=',TT,' flx O3T O3D NO2 NO2x' c write(6,'(i5,0p,2f10.3,1p,6e10.3)') (I,WBIN(I),WBIN(I+1),FBIN(I) c & ,XBIN(I),QBIN(I),YBIN(I),ZBIN(I),ABIN(I),I=1,NB) c---combine fast-JX bins: c--- non-SR bands (16:NB) are assigned a single JX bin c--- SR bands are split (by Opacity Distrib Fn) into a range of JX bins FFBIN(:) = 0.d0 AABIN(:) = 0.d0 CCBIN(:) = 0.d0 DDBIN(:) = 0.d0 EEBIN(:) = 0.d0 FFBIN(:) = 0.d0 do I=16,NB_NEW ! J = IJX(I) ! J = IJX_CALC(I) J = IJX_BIN_NEW( I ) FFBIN(J) = FFBIN(J) + FBIN(I) AABIN(J) = AABIN(J) + FBIN(I)*ABIN(I) CCBIN(J) = CCBIN(J) + FBIN(I)*CBIN(I) DDBIN(J) = DDBIN(J) + FBIN(I)*DBIN(I) EEBIN(J) = EEBIN(J) + FBIN(I)*ABIN(I)*EBIN(I) enddo do I=1,15 do J=1,NJO_NEW FFBIN(J) = FFBIN(J) + FBIN(I)*SRB_NEW(I,J) AABIN(J) = AABIN(J) + FBIN(I)*ABIN(I)*SRB_NEW(I,J) CCBIN(J) = CCBIN(J) + FBIN(I)*CBIN(I)*SRB_NEW(I,J) DDBIN(J) = DDBIN(J) + FBIN(I)*DBIN(I)*SRB_NEW(I,J) EEBIN(J) = EEBIN(J) + FBIN(I)*ABIN(I)*EBIN(I)*SRB_NEW(I,J) enddo enddo ! NWL_AVE = NJO_NEW ! WLL_AVE = 0.0 ! WLU_AVE = 0.0 ! CS_AVE = 0.0 ! QY_AVE = 0.0 do J = 1, 8 ! WLL_AVE( J ) = STR_WV_FASTJX( J ) ! WLU_AVE( J ) = END_WV_FASTJX( J ) WLL_AVE( J ) = STWL_NEW( J ) WLU_AVE( J ) = ENDWL_NEW( J ) enddo do J = 9, NJO_NEW ! WLL_AVE( J ) = STR_WV_FASTJX( J + 2 ) ! WLU_AVE( J ) = END_WV_FASTJX( J + 2 ) WLL_AVE( J ) = STWL_NEW( J + 2 ) WLU_AVE( J ) = ENDWL_NEW( J + 2) enddo do J=1,NJO_NEW if (AABIN(J) .gt. 0.d0) EEBIN(J) = EEBIN(J)/AABIN(J) if (FFBIN(J) .gt. 0.d0)THEN AABIN(J) = AABIN(J)/FFBIN(J) CCBIN(J) = CCBIN(J)/FFBIN(J) DDBIN(J) = DDBIN(J)/FFBIN(J) CS_AVE( J ) = AABIN(J) QY_AVE( J ) = EEBIN(J) endif enddo RETURN END ================================================ FILE: UTIL/inline_phot_preproc/src/xc_qy_td_effect-old.F ================================================ SUBROUTINE XC_QY_TD_EFFECT(WC,NW,TLEV,DENS,NZ, & JLABEL,XC,QY,SQ,REPLACE) USE JPROC_PHOT_DATA IMPLICIT NONE ! subroutine computes the product of the cross-section and ! quantum yield over the atmospheric levels ! includes temperature and pressure effect for select rates ! input INTEGER, INTENT( IN ) :: nw REAL, INTENT( IN ) :: wc(:) INTEGER, INTENT( IN ) :: nz REAL, INTENT( IN ) :: tlev(:) ! air temperature over model levels, deg K REAL, INTENT( IN ) :: dens(:) ! air number density over level, 1/cm3 CHARACTER(16), INTENT( IN ) :: jlabel ! name of photolysis rate REAL, INTENT( INOUT ) :: xc(:,:) ! cross-section from file REAL, INTENT( INOUT ) :: qy(:,:) ! quantum yield from file REAL, INTENT( OUT ) :: sq(:,:) ! cross-section times quantum yield over model levels LOGICAL, INTENT( OUT ) :: REPLACE ! flag to use sq values in calling routine ! input/output: INTEGER I, J, N ! local: INTEGER IW, IJ, IZ LOGICAL, SAVE :: FIRSTCALL = .TRUE. ! output quantum yields LOGICAL EXISTS REAL PRESSURE REAL TDUM, QDUM, WDUM ! local REAL, EXTERNAL :: OZONE_YIELD REAL, EXTERNAL :: QY_ACETONE REAL, EXTERNAL :: QY_ACETONE_TUV REAL NO2_XCROSS(KW,KZ), NO2_QUANT(KW,KZ) REAL O3_XCROSS(KW,KZ),O3_QUANT(KW,KZ) REAL HCHO_XCROSS(KW,KZ),HCHO_QUANTR(KW,KZ),HCHO_QUANTM(KW,KZ) REAL CLONO2_XCROSS(KW,KZ) REAL QYNO3_NO2(KW,KZ),QYNO3_NO(KW,KZ) REAL SIG, ALPHA, BETA, CHI INTERFACE SUBROUTINE WVBIN_AVERAGE(WL_CS_IN, CS_IN, NWL_CS_IN, & WL_QY_IN, QY_IN, NWL_QY_IN, & SPECTRA_TYPE, & WLL_AVE, WLU_AVE, NWL_AVE, & CS_AVE, QY_AVE ) USE JPROC_PROFILE USE BIN_DATA IMPLICIT NONE CHARACTER(1), INTENT( IN ) :: SPECTRA_TYPE ! spectra type INTEGER, INTENT( IN ) :: NWL_AVE ! number of intervals average INTEGER, INTENT( IN ) :: NWL_CS_IN ! number of intervals CS_IN INTEGER, INTENT( IN ) :: NWL_QY_IN ! number of intervals CS_IN REAL, INTENT( IN ) :: WL_CS_IN( : ) ! wl for CS_IN REAL, INTENT( IN ) :: WL_QY_IN( : ) ! wl for QY_IN REAL, INTENT( IN ) :: CS_IN( : ) ! cross-section as f(WLIN) REAL, INTENT( IN ) :: QY_IN( : ) ! quantum yield as f(WLIN) REAL, INTENT( OUT) :: WLL_AVE( : ) ! lower limit on wl effective interval REAL, INTENT( OUT) :: WLU_AVE( : ) ! upper limit on wl effective interval REAL, INTENT( OUT) :: CS_AVE( : ) ! cross-section as f(WL_AVE) REAL, INTENT( OUT) :: QY_AVE( : ) ! quantum yield as f(WL_AVE) END SUBROUTINE WVBIN_AVERAGE END INTERFACE !_______________________________________________________________________ ! complete wavelength grid IF(FIRSTCALL)THEN CALL INIT_JPROC_DATA() DO 5 iw = 1, nw C print*,'wc(',iw,') = ',wc(iw) 5 CONTINUE PRINT*,'INITIALIZED XC_QY_TD_EFFECT ' ! pause ENDIF ! computing data used for multiple rates DO IW = 1, NW DO IZ = 1, NZ IF( TLEV(IZ) .LT. 293.0 .AND. TLEV(IZ) .GT. 218.0)THEN O3_XCROSS(IW,IZ) = (O3_XCROSS_293K(IW)-O3_XCROSS_218K(IW)) & / 75.0 & * (TLEV(IZ) - 218.0) & + O3_XCROSS_218K(IW) ELSEIF( TLEV(IZ) .LE. 218.0)THEN O3_XCROSS(IW,IZ) = O3_XCROSS_218K(IW) ELSEIF( TLEV(IZ) .GE. 293.0)THEN O3_XCROSS(IW,IZ) = O3_XCROSS_293K(IW) ENDIF O3_XCROSS(IW,IZ) = O3_XCROSS(IW,IZ) O3_QUANT( IW,IZ) = OZONE_YIELD(WC(IW),TLEV(IZ)) TDUM = TLEV(IZ)-296.0 CLONO2_XCROSS(IW,IZ) = CLONO2_XCROSS0(IW) & * ( 1.0 & + CLONO2_A1(IW)*TDUM & + CLONO2_A2(IW)*TDUM**2 ) NO2_XCROSS(IW,IZ) = NO2_XCROSS_294K(IW) IF(TLEV(IZ) .GT. 220.0 .AND. TLEV(IZ) .LT. 294.0)THEN TDUM = (NO2_XCROSS_294K(IW)-NO2_XCROSS_220K(IW)) & * (TLEV(IZ)-220.0)/74.0 NO2_XCROSS(IW,IZ) = NO2_XCROSS_220K(IW) & + TDUM ELSEIF(TLEV(IZ) .LE. 220.0)THEN NO2_XCROSS(IW,IZ) = NO2_XCROSS_220K(IW) ENDIF NO2_QUANT(IW,IZ) = NO2_QUANT_298K(IW) IF(TLEV(IZ) .GT. 248.0 .AND. TLEV(IZ) .LT. 294.0)THEN TDUM = (NO2_QUANT_298K(IW)-NO2_QUANT_248K(IW)) & * (TLEV(IZ)-248.0)/50.0 NO2_QUANT(IW,IZ) = NO2_QUANT_248K(IW) & + TDUM ELSEIF(TLEV(IZ) .LE. 248.0)THEN NO2_QUANT(IW,IZ) = NO2_QUANT_248K(IW) ENDIF NO2_QUANT(IW,IZ) = MIN(MAX(NO2_QUANT(IW,IZ), 0.0), 1.0) ENDDO ENDDO CALL JHCHO_NASA_2006(NW,WC,NZ,TLEV,DENS, HCHO_XCROSS, & HCHO_QUANTR, HCHO_QUANTM) CALL NASA_NO3_QUANTAS(NW,WC,NZ,TLEV,DENS,QYNO3_NO, & QYNO3_NO2) SQ = 0.0 PRINT*,'ENTERING CASE SELECT FOR XC_QY_TD_EFFECT ', JLABEL SELECT CASE( JLABEL ) CASE( 'IC3ONO2' ) DO IW = 1, NW DO IZ = 1, NZ IF((WC(IW) .GE. 240.) .AND. (WC(IW) .LE. 340.))THEN IF( TLEV(IZ) .LT. 360.0 .AND. TLEV(IZ) .GT. 233.0)THEN SIG = IC3ONO2_XCROSS_298K(IW) & * EXP(IC3ONO2_XCROSS_EXP(IW)*(TLEV(IZ)-298.0)) ELSEIF( TLEV(IZ) .LE. 240.0)THEN SIG = IC3ONO2_XCROSS_298K(IW) & * EXP(IC3ONO2_XCROSS_EXP(IW)*(-58.0)) ELSEIF( TLEV(IZ) .GE. 360.)THEN SIG = IC3ONO2_XCROSS_298K(IW) & * EXP(IC3ONO2_XCROSS_EXP(IW)*(62.0)) ENDIF ELSE SIG = IC3ONO2_XCROSS_298K(IW) ENDIF SQ(IZ, IW) = SIG*QY(IZ,IW) XC(IZ, IW) = SIG ENDDO ENDDO REPLACE = .TRUE. CASE( 'NO2-06' ) ! 'NO2 -> NO + O(3P)' DO iw = 1, nw DO i = 1, nz sq(i, iw) = NO2_XCROSS(iw,i)*NO2_QUANT(iw,i) xc(i, iw) = NO2_XCROSS(iw,i) qy(i, iw) = NO2_QUANT(iw,i) ENDDO ENDDO REPLACE = .TRUE. CASE( 'N2O5_IUPAC04' ) DO iw = 1, nw DO i = 1, nz tdum = MAX(195.0, MIN(tlev(i), 300.0)) alpha = N2O5_XCROSS_EXP(iw)*(1.0/tdum - 1.0/298.0) sig = N2O5_XCROSS_298K(iw) & * EXP( alpha ) sq(i,iw) = sig*QY(i,iw) xc(i,iw) = sig ENDDO ENDDO REPLACE = .TRUE. CASE( 'NO2EX' ) ! 'NO2 -> NO2(excited)' DO iw = 1, nw DO i = 1, nz sq(i, iw) = NO2_XCROSS(iw,i) & * (1.0 - NO2_QUANT(iw,i)) xc(i, iw) = NO2_XCROSS(iw,i) qy(i, iw) = 1.0 - NO2_QUANT(iw,i) ENDDO ENDDO REPLACE = .TRUE. CASE( 'HNO4-06' ) ! 'HNO4 -> HO2 + NO2' DO iw = 1, nw DO i = 1, nz qdum = 1.0 qy(i, iw) = qdum if(HO2NO2_XCROSS_A1(iw).gt. 0.0 & .and. HO2NO2_XCROSS_A2(iw) .gt. 0.0)then tdum = 1.0+EXP(-988.0/(0.69*tlev(i))) sq(i, iw) = (HO2NO2_XCROSS_A1(iw)/tdum & + HO2NO2_XCROSS_A2(iw)*(1.0-1.0/tdum)) & * qdum xc(i, iw) = (HO2NO2_XCROSS_A1(iw)/tdum & + HO2NO2_XCROSS_A2(iw)*(1.0-1.0/tdum)) else sq(i, iw) = HO2NO2_XCROSS_296K(iw)*qdum xc(i, iw) = HO2NO2_XCROSS_296K(iw) endif ENDDO ENDDO REPLACE = .TRUE. CASE( 'NO3NO-06') ! 'NO3 -> NO + O2' DO iw = 1, nw DO i = 1, nz tdum = (1.0-exp(-1096.4/tlev(i)) & - 2.0*exp(-529.5/tlev(i))) & / (1.0-exp(-1096.4/298.0) & - 2.0*exp(-529.5/298.0)) sq(i, iw) = NO3_XCROSS_06(iw)*tdum*QYNO3_NO(iw,i) xc(i, iw) = NO3_XCROSS_06(iw)*tdum qy(i, iw) = QYNO3_NO(iw,i) qy(i, iw) = MIN(1.0, qy(i, iw)) qy(i, iw) = MAX(0.0, qy(i, iw)) ENDDO ENDDO REPLACE = .TRUE. CASE( 'CLONO2-2' ) ! 'ClONO2 -> Cl + NO3' DO iw = 1, nw DO iz = 1, nz sq(iz, iw) = CLONO2_XCROSS(iw,iz)*qy(iz,iw) xc(iz, iw) = CLONO2_XCROSS(iw,iz) ENDDO ENDDO REPLACE = .TRUE. CASE( 'CLONO2-1' ) ! 'ClONO2 -> ClO + NO2' DO iw = 1, nw DO iz = 1, nz sq(iz, iw) = CLONO2_XCROSS(iw,iz)*qy(iz,iw) xc(iz, iw) = CLONO2_XCROSS(iw,iz) ENDDO ENDDO REPLACE = .TRUE. CASE( 'CCHO_R' ) ! 'CH3CHO -> CH3 + HCO' DO iw = 1, nw DO i = 1, nz qdum = qy(i,iw) & * (1. + CCHO_YIELD_COEFF(iw)) & / (1. + CCHO_YIELD_COEFF(iw)*dens(i)/2.465E19) sq(i, iw) = xc(i,iw)*qdum qy(i, iw) = qdum qy(i, iw) = MIN(1.0, qy(i, iw)) qy(i, iw) = MAX(0.0, qy(i, iw)) ENDDO ENDDO REPLACE = .TRUE. CASE( 'PAN' ) ! 'PAN + hv -> PRODUCTS' qdum = 1.0 DO iw = 1, nw DO i = 1, nz sig = PAN_XCROSS(iw) & * EXP(PAN_XCROSS_B(iw)*(tlev(i)-298.0)) sq(i, iw) = sig*qdum xc(i, iw) = sig ENDDO ENDDO REPLACE = .TRUE. CASE( 'C2CHO' ) ! 'C2H5CHO -> C2H5 + HCO' DO iw = 1, nw DO i = 1, nz IF (qy(i,iw) .LT. 1.0E-5) THEN qdum = 0.0 ELSE qdum = 1.0 & / (1.0 + (1.0/qy(i,iw) - 1.0) & * dens(i)/2.465e19) ENDIF qdum = MIN(qdum,1.0) sq(i, iw) = xc(i,iw)*qdum qy(i, iw) = qdum qy(i, iw) = MIN(1.0, qy(i, iw)) qy(i, iw) = MAX(0.0, qy(i, iw)) ENDDO ENDDO REPLACE = .TRUE. CASE( 'NO3NO2-6') ! 'NO3 -> NO2 + O(3P)' DO iw = 1, nw DO i = 1, nz tdum = (1.0-exp(-1096.4/tlev(i)) & - 2.0*exp(-529.5/tlev(i))) & / (1.0-exp(-1096.4/298.0) & - 2.0*exp(-529.5/298.0)) sq(i, iw) = NO3_XCROSS_06(iw)*tdum*QYNO3_NO2(iw,i) xc(i, iw) = NO3_XCROSS_06(iw)*tdum qy(i, iw) = QYNO3_NO2(iw,i) qy(i, iw) = MIN(1.0, qy(i, iw)) qy(i, iw) = MAX(0.0, qy(i, iw)) ENDDO ENDDO REPLACE = .TRUE. CASE( 'HNO3' ) DO iw = 1, nw DO iz = 1, nz C IF((wc(iw) .GT. 192.0) .AND. (wc(iw) .LT. 350.))THEN sig = HNO3_XCROSS_298K(iw) & * EXP(HNO3_XCROSS_EXP(iw)*(tlev(iz)-298.0)) C ELSE C sig = xc(i,iw) C ENDIF C assume quantum yield equal to one sq(iz, iw) = sig*qy(iz,iw) xc(iz, iw) = sig ENDDO ENDDO REPLACE = .TRUE. CASE( 'MVK-06') C quantum yield from C Gierczak, T., J. B. Burkholder, R. K. Talukdar, A. Mellouki, S. B. Barone, C and A. R. Ravishankara, Atmospheric fate of methyl vinyl ketone and methacrolein, C J. Photochem. Photobiol A: Chemistry, 110 1-10, 1997. C depends on pressure and wavelength, set upper limit to 1.0 C However, chamber evaluations for SAPRC07T require a pressure correction where C number density coefficient is five times higher. DO iw = 1, nw DO i = 1, nz qdum = exp(-0.055*(wc(iw)-308.)) / & (5.5 + 5.0*9.2e-19*dens(i)) qdum = min(qdum, 1.0) sq(i, iw) = xc(i,iw)* qdum qy(i, iw) = qdum qy(i, iw) = MIN(1.0, qy(i, iw)) qy(i, iw) = MAX(0.0, qy(i, iw)) ENDDO ENDDO REPLACE = .TRUE. CASE( 'MACR-06') C quantum yield based on 2.76 times MVK from C Gierczak, T., J. B. Burkholder, R. K. Talukdar, A. Mellouki, S. B. Barone, C and A. R. Ravishankara, Atmospheric fate of methyl vinyl ketone and methacrolein, C J. Photochem. Photobiol A: Chemistry, 110 1-10, 1997. C depends on pressure and wavelength, set upper limit to 1.0 C However, chamber evaluations for SAPRC07T require a pressure correction where C number density coefficient is five times higher. DO iw = 1, nw DO i = 1, nz qdum = 2.76*exp(-0.055*(wc(iw)-308.)) / & (5.5 + 5.0*9.2e-19*dens(i)) qdum = min(qdum, 1.0) sq(i, iw) = xc(i,iw)* qdum qy(i, iw) = qdum qy(i, iw) = MIN(1.0, qy(i, iw)) qy(i, iw) = MAX(0.0, qy(i, iw)) ENDDO ENDDO REPLACE = .TRUE. CASE( 'MEK-06') C Quantum Yields from C Raber, W.H. (1992) PhD Thesis, Johannes Gutenberg-Universitaet, Mainz, Germany. C other channels assumed negligible (less than 10%). C Total quantum yield = 0.38 at 760 Torr. but Carter C adjusts to 0.175 based on chamber tests and sets the values in C mechanism definition file. C NOTE: SAPRC07T includes this quantum yield in the mechanism definition C file as factor times the photolysis rates where the quantum yield is C set one. C Stern-Volmer form given: 1/phi = 0.96 + 2.22e-3*P(torr) C compute local pressure in torr DO iw = 1, nw DO i = 1, nz ! ptorr = (760.*dens(i)/2.69e19) ! ptorr = (1.03547E-19*dens(i)*tlev(i)) PRESSURE = (1.03547E-19*dens(i)*tlev(i)) ! torr ! sig = 1.0 ! (0.96 + 2.22E-3*760.0) ! & / (0.96 + 2.22E-3*(1.03547E-19*dens(i)*tlev(i))) IF( PRESSURE .LT. 181.0 )THEN qdum = 1.0 sig = 2.645 & / (0.96 + 2.22E-3*(181.0)) ELSE sig = 2.645 & / (0.96 + 2.22E-3*PRESSURE) qdum = 1.0 & / (0.96 + 2.22E-3*PRESSURE) ENDIF C sig = MIN(sig, 1.0)/2.649078 sq(i, iw) = xc(i,iw)* sig qy(i, iw) = sig qy(i, iw) = MIN(1.0, qy(i, iw)) qy(i, iw) = MAX(0.0, qy(i, iw)) ENDDO ENDDO REPLACE = .TRUE. CASE( 'H2O2') *= Provide cross section and quantum yield for H2O2 photolysis =* *= H2O2 + hv -> 2 OH between 260 and 350 nm =* *= Otherwise use Cross section from JPL97, tabulated values @ 298K *= Quantum yield: Assumed to be unity =* DO i = 1, nz DO iw = 1, nw qdum = qy(i,iw) IF(wc(iw) .GE. 260.0 .AND. wc(iw) .LT. 350.0) THEN CALL JH2O2_260t350nm(wc(iw),tlev(i),dens(i), & sig,qdum) xc(i, iw) = sig ELSE sig = xc(i,iw) ENDIF sq(i, iw) = sig*qdum IF(WC(IW) .GE. 260.0 .AND. WC(IW) .LE. 350.0)THEN CHI = 1.0 & / (1.0 + EXP(-1265.0/MAX(200.0, MIN(TLEV(I),400.0))) ) SIG = CHI*H2O2_XCROSS_A(IW) & + (1.0 - CHI)*H2O2_XCROSS_B(IW) XC(I, IW) = SIG ELSE SIG = XC(I, IW) ENDIF SQ(I, IW) = XC(I, IW)*QDUM ENDDO ENDDO REPLACE = .TRUE. CASE( 'MGLY-06' , 'BACL-07') DO iw = 1, nw C qy(i,iw) = MIN( qy(i,iw), 1.0) C qy(i,iw) = MAX( qy(i,iw), 0.0) DO i = 1, nz PRESSURE = (1.03547E-19*dens(i)*tlev(i)) ! torr PRESSURE = MIN(472.0, PRESSURE) qy(i,iw) = MIN( qy(i,iw), 1.0) qy(i,iw) = MAX( qy(i,iw), 0.0) C Pressure dependence based on Koch and Moortgat (1998), C J. Phys. Chem. A, vol 102, pages 9142. The application contradicts C NASA (2006) & IUPAC (2005) and is used based recommendations for C SAPRC07T photolysis rates by William Carter (2009) IF(wc(iw) .LT. 500.0 .AND. wc(iw) .GT. 240.0)THEN IF( qy(i,iw) .GT. 0.0 .AND. qy(i,iw) .LT. 1.0)THEN qdum = 1.36e8*(472.0)*EXP(-8793/wc(iw)) & / ( 1.0/qy(i,iw) - 1.0 ) sig = qdum & /(qdum+1.36e8*EXP(-8793/wc(iw))*PRESSURE) ENDIF ELSEIF(wc(iw) .LE. 240.0)THEN sig = qy(i,iw) ELSEIF(wc(iw) .GE. 500.0)THEN sig = 0.0 ENDIF C sig = qy(i,iw) sq(i, iw) = xc(i,iw)*sig qy(i, iw) = sig qy(i, iw) = MIN(1.0, qy(i, iw)) qy(i, iw) = MAX(0.0, qy(i, iw)) ENDDO ENDDO REPLACE = .TRUE. CASE( 'ACRO-09') DO iw = 1, nw DO i = 1, nz qy(i,iw) = MIN( qy(i,iw), 1.0) qy(i,iw) = MAX( qy(i,iw), 0.0) C Number density dependence based on Gardner et. al (1997), C J. Phys. Chem., vol 91, pages 1922. The application uses C the quantum yields set in in cross-section file. For C SAPRC07T, yields set approximation four times NASA (2006) C because the mechanism developer sums over all possible channels and C Gardner et. al may support this conclusion. IF(dens(i) .ge. 8.0e+17)THEN qdum = (4.0E-3+1.0/(8.6E-2+1.613E-17*dens(i))) & / 0.006384 ELSEIF(dens(i) .lt. 8.0e+17)THEN qdum = 12.00713 ENDIF sig = qy(i,iw)*qdum sq(i, iw) = xc(i,iw)*sig qy(i, iw) = sig qy(i, iw) = MIN(1.0, qy(i, iw)) qy(i, iw) = MAX(0.0, qy(i, iw)) ENDDO ENDDO REPLACE = .TRUE. CASE( 'HCHOR-06') ! 'CH2O -> H + HCO' DO iw = 1, nw DO iz = 1, nz sig = HCHO_XCROSS_300K(iw) if(tlev(iz) .lt. 300.0 .and. tlev(iz) .gt. 195.0)then sig = sig + HCHO_XCROSS_A(iw)*(tdum-300.0) elseif( tlev(iz) .le. 195.0)then sig = sig - HCHO_XCROSS_A(iw)*105.0 endif sq(iz, iw) = sig*HCHO_QUANTR_STP(iw) xc(iz, iw) = HCHO_XCROSS(iw,iz) qy(iz, iw) = HCHO_QUANTR_STP(iw) ENDDO ENDDO REPLACE = .TRUE. CASE( 'HCHOM-06') ! 'CH2O -> H2 + CO' DO iw = 1, nw DO iz = 1, nz sig = HCHO_XCROSS_300K(iw) if(tlev(iz) .lt. 300.0 .and. tlev(iz) .gt. 195.0)then sig = sig + HCHO_XCROSS_A(iw)*(tdum-300.0) elseif( tlev(iz) .le. 195.0)then sig = sig - HCHO_XCROSS_A(iw)*105.0 endif sq(iz, iw) = HCHO_XCROSS(iw,iz)*HCHO_QUANTM(iw,iz) xc(iz, iw) = HCHO_XCROSS(iw,iz) qy(iz, iw) = HCHO_QUANTM(iw,iz) if(WC(IW) .GE. 330.0 .AND. HCHO_QUANTM_STP(IW) .GT. 0.0)THEN QDUM = 1.0/HCHO_QUANTM_STP(IW) BETA = 1.0/(1.0-HCHO_QUANTR_STP(IW)) if( tlev(iz) .lt. 300.0 .and. tlev(iz) .gt. 220.0)then PRESSURE = 82.06*(DENS(iz)/6.02E+23)*tlev(iz) ALPHA = (QDUM - BETA) & * (1.+0.05*(WC(IW)-329.0)*((tlev(iz)-80.0)/80.0)) elseif( tlev(iz) .le. 220.0)then PRESSURE = 3.0E-20*DENS(iz) ALPHA = (QDUM - BETA) & * (1.+0.0875*(WC(IW)-329.0)) elseif( tlev(iz) .ge. 300.)then PRESSURE = 4.09E-20*DENS(iz) ALPHA = (QDUM - BETA) & * (1.+0.1375*(WC(IW)-329.0)) endif qy(iz, iw) = 1.0/(BETA + PRESSURE*ALPHA) ELSE qy(iz, iw) = HCHO_QUANTM_STP(iw) ENDIF qy(iz, iw) = MIN(1.0, qy(iz, iw)) qy(iz, iw) = MAX(0.0, qy(iz, iw)) sq(iz, iw) = sig*qy(iz, iw) ENDDO ENDDO REPLACE = .TRUE. CASE( 'O3O1D-06') ! 'O3 -> O2 + O(1D)' DO iw = 1, nw DO iz = 1, nz sq(iz, iw) = O3_XCROSS(iw,iz)*O3_QUANT(iw,iz) xc(iz, iw) = O3_XCROSS(iw,iz) qy(iz, iw) = O3_QUANT(iw,iz) print*,iw,O3_XCROSS(iw,iz),O3_QUANT(iw,iz) ENDDO ENDDO REPLACE = .TRUE. CASE( 'O3O3P-06') ! 'O3 -> O2 + O(3P)' DO iw = 1, nw DO iz = 1, nz sq(iz, iw) = O3_XCROSS(iw,iz) & * (1.0 - O3_QUANT(iw,iz)) xc(iz, iw) = O3_XCROSS(iw,iz) qy(iz, iw) = 1.0 - O3_QUANT(iw,iz) ENDDO ENDDO REPLACE = .TRUE. CASE( 'ACET-06' ) ! 'CH3COCH3 -> products' DO iw = 1, nw DO iz = 1, nz sig = (XC_D_ACETONE(IW) & + XC_A_ACETONE(IW)*tlev(iz) & + XC_B_ACETONE(IW)*tlev(iz)**2 & + XC_C_ACETONE(IW)*tlev(iz)**3) & * XCROSS_ACETONE_298K( IW ) sig = XCROSS_ACETONE_298K( IW ) qdum = QY_ACETONE(tlev(iz),dens(iz),wc(iw)) sq(iz, iw) = sig*qdum xc(iz, iw) = sig qy(iz, iw) = qdum qy(iz, iw) = MIN(1.0, qy(iz, iw)) qy(iz, iw) = MAX(0.0, qy(iz, iw)) ENDDO ENDDO REPLACE = .TRUE. CASE( 'CL2') ! NASA (2006) and IUPAC(2005) recommended cross-section as a function of ! wavelength and temperature taken from ! D. Maric et al. (1993) J. Photochem. Photobiol. A: Chem. 70, 205. DO iw = 1, nw DO iz = 1, nz tdum = tlev(iz) if(tlev(iz) .gt. 300.0)then tdum = 300.0 elseif(tlev(iz) .lt. 195.0)then tdum = 195.0 else tdum = tlev(iz) endif alpha = TANH(470.676/tdum) if(wc(iw) .gt. 550.0)then sig = 0.0 elseif(wc(iw) .lt. 250.0)then sig = 0.0 else wdum = wc(iw) sig = sqrt(alpha) & * (27.3 *exp(-99.0*alpha*(log(329.5/wdum))**2) & + 0.932*exp(-91.5*alpha*(log(406.5/wdum))**2)) endif ! IUPAC (2005) and NASA (2006) recommend quantum yield equal to one when ! cross-section is nonzero sq(iz, iw) = 1.0E-20*sig xc(iz, iw) = 1.0E-20*sig ENDDO ENDDO REPLACE = .TRUE. CASE DEFAULT DO iw = 1, nw DO iz = 1, nz sq(iz, iw) = xc(iz,iw)*qy(iz,iw) ENDDO ENDDO REPLACE = .FALSE. END SELECT C DO iw = 1, nw C DO iz = 1, nz C sq(iz, iw) = xc(iz,iw)*qy(iz,iw) C ENDDO C ENDDO FIRSTCALL = .FALSE. **************************************************************** RETURN END C FUNCTION OZONE_YIELD(W, T) *-----------------------------------------------------------------------------* *= taken from Tropospheric Ultraviolet-Visible (TUV) radiation model =* *= Version 4.5 =* *= Sep 2007 =* *-----------------------------------------------------------------------------* *= PURPOSE: =* * function to calculate the quantum yield O3 + hv -> O(1D) + O2, =* * according to: * Matsumi, Y., F. J. Comes, G. Hancock, A. Hofzumanhays, A. J. Hynes, * M. Kawasaki, and A. R. Ravishankara, QUantum yields for production of O(1D) * in the ultraviolet photolysis of ozone: Recommendation based on evaluation * of laboratory data, J. Geophys. Res., 107, 10.1029/2001JD000510, 2002. *-----------------------------------------------------------------------------* *= TUV model developed by Sasha Madronich with important contributions from: =* *= Chris Fischer, Siri Flocke, Julia Lee-Taylor, Bernhard Meyer, =* *= Irina Petropavlovskikh, Xuexi Tie, and Jun Zen. =* *= To contact the author, write to: =* *= Sasha Madronich, NCAR/ACD, P.O.Box 3000, Boulder, CO, 80307-3000, USA or =* *= send email to: sasha@ucar.edu or tuv@acd.ucar.edu =* *-----------------------------------------------------------------------------* *= This program is free software; you can redistribute it and/or modify =* *= it under the terms of the GNU General Public License as published by the =* *= Free Software Foundation; either version 2 of the license, or (at your =* *= option) any later version. =* *= The TUV package is distributed in the hope that it will be useful, but =* *= WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTIBI- =* *= LITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public =* *= License for more details. =* *= To obtain a copy of the GNU General Public License, write to: =* *= Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. =* *-----------------------------------------------------------------------------* *= Copyright (C) 1994,95,96,97,98,99,2000,01,02,03, 04, 05, 06, 07 =* *= by the University Corporation for Atmospheric Research =* *-----------------------------------------------------------------------------* IMPLICIT NONE REAL W ! wavelength, nm REAL T ! temperature, deg K REAL OZONE_YIELD ! dimensionaless C local variables REAL KT REAL A(3), X(3), OM(3) REAL Q1, Q2 DATA A/ 0.8036, 8.9061, 0.1192/ DATA X/ 304.225, 314.957, 310.737/ DATA OM/ 5.576, 6.601, 2.187/ OZONE_YIELD = 0.0 KT = 0.695 * T Q1 = 1.0 Q2 = EXP(-825.518/KT) IF(W .LE. 305.0) THEN OZONE_YIELD = 0.90 ELSEIF(W .GT. 305.0 .AND. W .LE. 328.0) THEN OZONE_YIELD = 0.0765 + & A(1)* (Q1/(Q1+Q2))*EXP(-((X(1)-W)/OM(1))**4.0)+ & A(2)*(T/300.)**2.0*(Q2/(Q1+Q2))*EXP(-((X(2)-W)/OM(2))**2.0)+ & A(3)*(T/300.)**1.5 *EXP(-((X(3)-W)/OM(3))**2.0) ELSEIF(W .GT. 328.0 .AND. W .LE. 340.0) THEN OZONE_YIELD = 0.08 ELSEIF(W .GT. 340.) THEN OZONE_YIELD = 0.0 ENDIF END *=============================================================================* SUBROUTINE JH2O2_260T350NM(WC,TEMP,AIRDEN,XCROSS,QUANT) *-----------------------------------------------------------------------------* *= taken from Tropospheric Ultraviolet-Visible (TUV) radiation model =* *= Version 4.5 =* *= Sep 2007 =* *-----------------------------------------------------------------------------* *= PURPOSE: =* *= Provide cross section and quantum yield for H2O2 photolysis =* *= H2O2 + hv -> 2 OH between 260 and 350 nm =* *= Otherwise use Cross section from JPL97, tabulated values @ 298K *= Quantum yield: Assumed to be unity =* *-----------------------------------------------------------------------------* *= PARAMETERS: =* *= WC - REAL, center points of wavelength interval (I)=* *= TLEV - REAL, temperature (K) at altitude level (I)=* *= AIRDEN - REAL, air density (molec/cc) at altitude level (I)=* *= xcross - cross section (cm^2) for each (IO)=* *= photolysis reaction defined, at input wavelength and =* *= at defined altitude level =* *= quant - quantum yield for each (IO)=* *= photolysis reaction defined, at input wavelength and =* *= at defined altitude level =* *= JLABEL - CHARACTER*50, string identifier for each photolysis reaction (L)=* *= defined =* *-----------------------------------------------------------------------------* IMPLICIT NONE ! input INTEGER NW REAL WC INTEGER NZ REAL TEMP REAL AIRDEN ! weighting functions CHARACTER(50) JLABEL REAL XCROSS,QUANT ! local REAL YG REAL QY REAL A0, A1, A2, A3, A4, A5, A6, A7 REAL B0, B1, B2, B3, B4 REAL XS REAL T INTEGER I, IW, N, IDUM INTEGER IERR REAL LAMBDA REAL SUMA, SUMB, CHI **************** H2O2 photodissociation ! cross section from Lin et al. 1978 JLABEL = 'H2O2 ' ! 'H2O2 -> 2 OH' ! quantum yield = 1 QY = 1.0 XS = 0.0 ! Parameterization (JPL06) A0 = 6.4761E+04 A1 = -9.2170972E+02 A2 = 4.535649 A3 = -4.4589016E-03 A4 = -4.035101E-05 A5 = 1.6878206E-07 A6 = -2.652014E-10 A7 = 1.5534675E-13 B0 = 6.8123E+03 B1 = -5.1351E+01 B2 = 1.1522E-01 B3 = -3.0493E-05 B4 = -1.0924E-07 ! Range 260-350 nm; 200-400 K IF ((WC .GE. 260.) .AND. (WC .LT. 350.)) THEN LAMBDA = WC SUMA = ((((((A7*LAMBDA + A6)*LAMBDA + A5)*LAMBDA + & A4)*LAMBDA +A3)*LAMBDA + A2)*LAMBDA + & A1)*LAMBDA + A0 SUMB = (((B4*LAMBDA + B3)*LAMBDA + B2)*LAMBDA + & B1)*LAMBDA + B0 ! sumA = 1.5534675E-13*lambda**7.0 - 2.652014E-10*lambda**6.0 ! & + 1.6878206E-07*lambda**5.0 - 4.035101E-05*lambda**4.0 ! & - 4.4589016E-03*lambda**3.0 + 4.535649E+00*lambda**2.0 ! & - 9.2170972E+02*lambda + 6.4761E+04 ! sumB = -1.0924E-07*lambda**4.0 - 3.0493E-05*lambda**3.0 ! & + 1.1522E-01*lambda**2.0 - 5.1351E+01*lambda ! & + 6.8123E+03 T = MIN(MAX(TEMP,200.),400.) CHI = 1./(1.+EXP(-1265./T)) XS = (CHI * SUMA + (1.-CHI)*SUMB)*1E-21 ENDIF XCROSS = XS QUANT = QY RETURN END SUBROUTINE JHCHO_NASA_2006(NW, WC, NZ, TLEV, AIRDEN, XCROSS, QUANTR, QUANTM) *-----------------------------------------------------------------------------* *= PURPOSE: =* *= Provide cross section and quantum yields for CH2O photolysis =* *= (a) CH2O + hv -> H + HCO =* *= (b) CH2O + hv -> H2 + CO =* *= Based on recommendations from NASA JPL (2006) *-----------------------------------------------------------------------------* *= PARAMETERS: =* *= NW - INTEGER, number of specified intervals + 1 in working (I)=* *= wavelength grid =* *= WL - REAL, vector of lower limits of wavelength intervals in (I)=* *= working wavelength grid =* *= WC - REAL, vector of center points of wavelength intervals in (I)=* *= working wavelength grid =* *= NZ - INTEGER, number of altitude levels in working altitude grid (I)=* *= TLEV - REAL, temperature (K) at each specified altitude level (I)=* *= AIRDEN - REAL, air density (molec/cc) at each altitude level (I)=* *= J - INTEGER, counter for number of weighting functions defined (IO)=* *= SQ - REAL, cross section x quantum yield (cm^2) for each (O)=* *= photolysis reaction defined, at each defined wavelength and =* *= at each defined altitude level =* *= JLABEL - CHARACTER*50, string identifier for each photolysis reaction (O)=* *= defined =* *-----------------------------------------------------------------------------* USE JPROC_PHOT_DATA IMPLICIT NONE INTEGER KDATA PARAMETER(KDATA=16000) ! input INTEGER NW REAL WL(KW), WC(KW) INTEGER NZ REAL TLEV(KZ) REAL AIRDEN(KZ) ! weighting functions CHARACTER(50) JLABEL(3) REAL XCROSS(KW,KZ) REAL QUANTR(KW,KZ), QUANTM(KW,KZ) ! input/output: INTEGER J, IZ, IW ! data arrays INTEGER N REAL X(KDATA), Y(KDATA) REAL XL(KDATA), XC(KDATA), XU(KDATA) INTEGER N1, N2, N3, N4, N5 REAL X1(KDATA), X2(KDATA), X3(KDATA), X4(KDATA), X5(KDATA) REAL Y1(KDATA), Y2(KDATA), Y3(KDATA), Y4(KDATA), Y5(KDATA) ! local REAL YG(KW), YG1(KW), YG2(KW), YG3(KW), YG4(KW), YG5(KW) REAL A, B, C REAL A0, A1, A2, A3, A4, A5, A6, A7 REAL B0, B1, B2, B3, B4 REAL QY, QY1, QY2, QY3 REAL SIGMA, SIG, SLOPE REAL XS REAL T REAL DUM INTEGER IDUM INTEGER I INTEGER IROW, ICOL, IREV INTEGER IERR INTEGER MOPT1, MOPT2 CHARACTER(LEN=120) :: FILE_LINE LOGICAL EXISTS REAL WU(KW) REAL PRESSURE REAL PHI1, PHI2, PHI20, AK300, AKT REAL TDUM LOGICAL :: FIRSTCALL = .TRUE. ! HCHO photodissociatation J = 1 JLABEL(J) = 'HCHOR-06 ' ! 'CH2O -> H + HCO' J = J+1 JLABEL(J) = 'HCHOM-06 ' ! 'CH2O -> H2 + CO' ! compute upper limit of wavelength bins DO I = 1, NW WU(I) = 2.0*WC(I) - WL(I) ENDDO N = 150 YG1 = 1.0E-20*YG1 YG2 = 1.0E-24*YG2 N = 112 IF( FIRSTCALL )THEN ! FIRSTCALL = .false. DO IW = 1, NW C write(6,'(i3,1X,f6.2,6(1x,es12.4))')iw,wc(iw), ! sig,qy1,qy2, C & HCHO_XC_300K(iw) ,HCHO_QUANTR_STP(iw),HCHO_QUANTM_STP(iw) TDUM = 265.0 SIG = HCHO_XCROSS_300K(IW) IF(TDUM .LT. 300.0 .AND. TDUM .GT. 195.0)THEN SIG = SIG + HCHO_XCROSS_A(IW)*(TDUM-300.0) ELSEIF( TLEV(I) .LE. 195.0)THEN SIG = SIG - HCHO_XCROSS_A(IW)*105.0 ENDIF QY1 = HCHO_QUANTR_STP(IW) IF ( (WC(IW) .GE. 330.) .AND. (HCHO_QUANTM_STP(IW) .GT. 0.) ) THEN PHI1 = HCHO_QUANTR_STP(IW) PHI2 = HCHO_QUANTM_STP(IW) PHI20 = 1. - PHI1 AK300=((1./PHI2)-(1./PHI20)) ! IS DIVIDED BY 1 ATM IF( TDUM .LT. 300.0 .AND. TDUM .GT. 220.0)THEN PRESSURE = 82.06*(AIRDEN(I)/6.02E+23)*TDUM AKT = AK300 & * (1.+0.05*(WC(IW)-329.0)*((TDUM-80.0)/80.0)) ELSEIF( TDUM .LE. 220.0)THEN PRESSURE = 3.0E-20*AIRDEN(I) AKT = AK300 & * (1.+0.0875*(WC(IW)-329.0)) ELSEIF( TDUM .GE. 300)THEN PRESSURE = 4.09E-20*AIRDEN(I) AKT = AK300 & * (1.+0.1375*(WC(IW)-329.0)) ENDIF C PRINT*,PRESSURE, AIRDEN(I)/2.54E+19 C PAUSE QY2 = 1. / ( (1./PHI20) + PRESSURE*AKT) ELSE QY2 = HCHO_QUANTM_STP(IW) ENDIF QY2 = MAX(0.0,QY2) QY2 = MIN(1.0,QY2) C WRITE(6,'(I3,1X,F6.2,6(1X,ES12.4))')IW,WC(IW),SIG,QY1,QY2, C & HCHO_XCROSS_300K(IW),HCHO_QUANTR_STP(IW), C & HCHO_QUANTM_STP(IW) ENDDO ENDIF DO IW = 1, NW DO I = 1, NZ ! cross-section correction SIG = HCHO_XCROSS_300K(IW) IF(TLEV(I) .LT. 300.0 .AND. TLEV(I) .GT. 195.0)THEN SIG = SIG + HCHO_XCROSS_A(IW)*(TLEV(I)-300.0) ELSEIF( TLEV(I) .LE. 195.0)THEN SIG = SIG - HCHO_XCROSS_A(IW)*105.0 ENDIF ! corrections to quantum yields QY1 = HCHO_QUANTR_STP(IW) IF(WC(IW) .GE. 330.0 .AND. HCHO_QUANTM_STP(IW) .GT. 0.0)THEN PHI1 = HCHO_QUANTR_STP(IW) PHI2 = HCHO_QUANTM_STP(IW) PHI20 = 1.0 - PHI1 AK300=((1./PHI2)-(1./PHI20)) ! IS DIVIDED BY 1 ATM IF(TLEV(I) .LT. 300.0 .AND. TLEV(I) .GT. 220.0)THEN PRESSURE = 82.06*(AIRDEN(I)/6.02E+23)*TLEV(I) AKT = AK300 & * (1.+0.05*(WC(IW)-329.0)*((TLEV(I)-80.0)/80.0)) ELSEIF(TLEV(I) .LE. 220.0)THEN PRESSURE = 3.0E-20*AIRDEN(I) AKT = AK300 & * (1.+0.0875*(WC(IW)-329.0)) ELSEIF(TLEV(I) .GE. 300.0)THEN PRESSURE = 4.09E-20*AIRDEN(I) AKT = AK300 & * (1.+0.1375*(WC(IW)-329.0)) ENDIF QY2 = 1.0/( 1.0/PHI20 + PRESSURE*AKT ) ELSE QY2 = HCHO_QUANTM_STP(IW) ENDIF QY2 = MAX(0.0,QY2) QY2 = MIN(1.0,QY2) XCROSS(IW, I) = SIG QUANTR(IW, I) = QY1 QUANTM(IW, I) = QY2 ENDDO ENDDO RETURN END *=============================================================================* SUBROUTINE NASA_NO3_QUANTAS(NW,WC,NZ,TLEV,AIRDEN,QYNO3_NO, & QYNO3_NO2) *-----------------------------------------------------------------------------* *= PURPOSE: =* *= Provide the quantum yield for =* *= both channels of NO3 photolysis: =* *= (a) NO3 + hv -> NO2 + O(3P) =* *= (b) NO3 + hv -> NO + O2 =* *-----------------------------------------------------------------------------* *= PARAMETERS: =* *= NW - INTEGER, number of specified intervals + 1 in working (I)=* *= wavelength grid =* *= WL - REAL, vector of lower limits of wavelength intervals in (I)=* *= working wavelength grid =* *= WC - REAL, vector of center points of wavelength intervals in (I)=* *= working wavelength grid =* *= NZ - INTEGER, number of altitude levels in working altitude grid (I)=* *= TLEV - REAL, temperature (K) at each specified altitude level (I)=* *= AIRDEN - REAL, air density (molec/cc) at each altitude level (I)=* *= J - INTEGER, counter for number of weighting functions defined (IO)=* *= SQ - REAL, cross section x quantum yield (cm^2) for each (O)=* *= photolysis reaction defined, at each defined wavelength and =* *= at each defined altitude level =* *= JLABEL - CHARACTER*50, string identifier for each photolysis reaction (O)=* *= defined =* *-----------------------------------------------------------------------------* USE JPROC_PHOT_DATA IMPLICIT NONE C INCLUDE 'params' ! input INTEGER NW REAL WL(KW), WC(KW), WU(KW) INTEGER NZ REAL TLEV(KZ) REAL AIRDEN(KZ) ! weighting functions CHARACTER*50 JLABEL(3) REAL SQ(1,KZ,KW) ! input/output: INTEGER J ! data arrays INTEGER KDATA PARAMETER(KDATA=350) REAL X1(KDATA) REAL Y1(KDATA),Y2(KDATA),Y3(KDATA) REAL Z1(KDATA),Z2(KDATA),Z3(KDATA) REAL QY1(KDATA),QY2(KDATA) REAL SLOPE ! local REAL YG(KW), YG1(KW), YG2(KW) REAL TEMP_ADJ(KZ) REAL QYNO3_NO2(KW,KZ),QYNO3_NO(KW,KZ) REAL QY INTEGER IROW, ICOL INTEGER I, IW, N, IDUM INTEGER IERR INTEGER MABS CHARACTER(LEN=120) :: FILE_LINE LOGICAL :: EXISTS LOGICAL, SAVE :: FIRSTCALL = .TRUE. ! for NO3 ->NO+O2 J = 0 J = J + 1 JLABEL(J) = 'NO3NO-06 ' ! 'NO3 -> NO + O2' ! for NO3 ->NO2+O J = J + 1 JLABEL(J) = 'NO3NO2-6 ' ! 'NO3 -> NO2 + O(3P)' TEMP_ADJ = 1.0 DO I = 1, NZ TEMP_ADJ(I) = (1.0-EXP(-1096.4/TLEV(I)) & - 2.0*EXP(-529.5/TLEV(I))) & / (1.0-EXP(-1096.4/298.0) & - 2.0*EXP(-529.5/298.0)) ENDDO DO I = 1, NW ! compute upper limit of wavelength bins WU(I) = 2.0*WC(I) - WL(I) ENDDO DO I = 1, NZ DO IW = 1, NW QY1(IW) = NO3NO_QUANT_298K(IW) QY2(IW) = NO3NO2_QUANT_298K(IW) IF(TLEV(I) .LT. 298.0 .AND. TLEV(I) .GE. 230.0)THEN SLOPE = (NO3NO_QUANT_298K(IW)-NO3NO_QUANT_230K(IW)) & / 68.0 QY1(IW) = NO3NO_QUANT_230K(IW) + SLOPE*(TLEV(I)-230.0) SLOPE = (NO3NO2_QUANT_298K(IW)-NO3NO2_QUANT_230K(IW)) & / 68.0 QY2(IW) = NO3NO2_QUANT_230K(IW) + SLOPE*(TLEV(I)-230.0) ELSEIF(TLEV(I) .LT. 230.0 .AND. TLEV(I) .GE. 190.0)THEN SLOPE = (NO3NO_QUANT_230K(IW)-NO3NO_QUANT_190K(IW)) & / 40.0 QY1(IW) = NO3NO_QUANT_190K(IW) + SLOPE*(TLEV(I)-190.0) SLOPE = (NO3NO2_QUANT_230K(IW)-NO3NO2_QUANT_190K(IW)) & / 40.0 QY2(IW) = NO3NO2_QUANT_190K(IW) + SLOPE*(TLEV(I)-190.0) ELSEIF( TLEV(I) .LT. 190)THEN QY1(IW) = NO3NO_QUANT_190K(IW) QY2(IW) = NO3NO2_QUANT_190K(IW) ENDIF ENDDO DO IW = 1, NW QYNO3_NO(IW,I) = QY1(IW)*0.001 !???ignor because the band averaging already accounts the below effect???? C if(wc(iw) .le. WV_NO3_QY(1))then C QYNO3_NO(iw,i) = NO3NO_QUANT_298K(1)*0.001 C QYNO3_NO2(iw,i) = NO3NO2_QUANT_298K(1)*0.001 C else QYNO3_NO2(IW,I) = QY2(IW)*0.001 C endif ENDDO ENDDO RETURN END C REAL FUNCTION QY_ACETONE(TEMP, DENS_NUMB, LAMBDA) ! Computes acetone quantum yields according to: ! IUPAC (2005) recommendation based on ! Blitz, M. A., D. E. Heard, M. J. Pilling, S. R. Arnold, and M. P. Chipperfield ! (2004), Pressure and temperature-dependent quantum yields for the ! photodissociation of acetone between 279 and 327.5 nm, Geophys. ! Res. Lett., 31, L06111, doi:10.1029/2003GL018793. IMPLICIT NONE C inputs REAL TEMP ! air temperature, K REAL DENS_NUMB ! air number density, 1/cm^3 REAL LAMBDA ! wavelength, nm ! local REAL A0 ! 1st coef for qy REAL A1 ! 2nd coef for qy REAL A2 ! 3rd coef for qy REAL A3 ! 4th coef for qy REAL A4 ! 5th coef for qy REAL A5 ! 6th coef for qy REAL A6 ! 7th coef for qy REAL PHI_CO ! CO branch of IUPAC (2005) acetone QYZ REAL PHI_CH3CO ! CH3CO branch of IUPAC (2005) acetone QYZ REAL AA ! scratch variable for IUPAC (2005) acetone QYZ REAL BB ! scratch variable for IUPAC (2005) acetone QYZ REAL CC ! scratch variable for IUPAC (2005) acetone QYZ IF( LAMBDA .GE. 248.0 .AND. LAMBDA .LE. 349.0)THEN AA = 0.350*(TEMP/295.0)**(-1.28) BB = 0.068*(TEMP/295.0)**(-2.65) A0 = (AA / (1.0 - AA))*exp(BB*(LAMBDA-248.0)) PHI_CO = 1.0 / (1.0 + A0) IF( LAMBDA .LE. 302.0 ) THEN C 248-302 nm AA = 1.600*1.0E-19 *(TEMP/295.0)**(-2.38) BB = 0.55*1.0E-03 *(TEMP/295.0)**(-3.19) A1 = AA*exp( -BB*((1.0E+07/LAMBDA)-33113.0) ) PHI_CH3CO = (1.0 - PHI_CO) / (1.0 + A1*DENS_NUMB) C 302-349 nm ELSE AA = 1.62*1.0E-17 *(TEMP/295.0)**(-10.03) BB = 1.79*1.0E-3 *(TEMP/295.0)**(-1.364) A2 = AA*exp(-BB*((1.0E+07/LAMBDA) - 30488.0)) AA = 26.29* (TEMP/295.0)**(-6.59) BB = 5.72 *1.0E-7 *(TEMP/295.0)**(-2.93) CC = (30006.0) *(TEMP/295.0)**(-0.064) A3 = AA*exp(-BB*((1.0E+07/LAMBDA) - CC)**2.0) AA = 1.67*1.0E-15 *(TEMP/295.0)**(-7.25) BB = 2.08*1.0E-3 *(TEMP/295.0)**(-1.16) A4 = AA*exp(-BB *((1.0E+07/LAMBDA) - 30488.0)) PHI_CH3CO = (1.0 - PHI_CO) & * (1.0 + A4*DENS_NUMB + A3) & / ( (1.0 + A2*DENS_NUMB + A3) & * (1.0 + A4*DENS_NUMB) ) ENDIF QY_ACETONE = PHI_CO & + PHI_CH3CO ELSEIF(LAMBDA .LT. 248.0 .AND. LAMBDA .GT. 0.0)THEN ! set QY to 1.0 ! based on IUPAC (2005) data sheet PHI_CO = 0.05 PHI_CH3CO = 0.95 QY_ACETONE = PHI_CO+PHI_CH3CO ELSEIF(LAMBDA .GT. 349.0)THEN QY_ACETONE = 0.0 ENDIF QY_ACETONE = MAX(0.0,MIN(1.0, QY_ACETONE)) RETURN END * This file contains subroutines used for calculation of quantum yields for * various photoreactions: * qyacet - q.y. for acetone, based on Blitz et al. (2004) ******************************************************************************** REAL FUNCTION QY_ACETONE_TUV(T, M, w) *-----------------------------------------------------------------------------* *= taken from Tropospheric Ultraviolet-Visible (TUV) radiation model =* *= Version 4.6 =* *-----------------------------------------------------------------------------* * Compute acetone quantum yields according to the parameterization of: * Blitz, M. A., D. E. Heard, M. J. Pilling, S. R. Arnold, and M. P. Chipperfield * (2004), Pressure and temperature-dependent quantum yields for the * photodissociation of acetone between 279 and 327.5 nm, Geophys. * Res. Lett., 31, L06111, doi:10.1029/2003GL018793. IMPLICIT NONE * input: * T = temperature, K * m = air number density, molec. cm-3 * w = wavelength, nm REAL w, T, M * internal: REAL a0, a1, a2, a3, a4 REAL b0, b1, b2, b3, b4 REAL c3 REAL cA0, cA1, cA2, cA3, cA4 * output * fco = quantum yield for product CO * fac = quantum yield for product CH3CO (acetyl radical) REAL fco, fac *** set out-of-range values: * use low pressure limits for shorter wavelengths * set to zero beyound 327.5 IF(w .LT. 279. .AND. w .GE. 1.0) THEN fco = 0.05 fac = 0.95 QY_ACETONE_TUV = MAX(0.0,MIN(1.0, fco+fac)) RETURN ENDIF IF(w .GT. 327.5 .OR. w .LT. 1.0) THEN fco = 0. fac = 0. QY_ACETONE_TUV = MAX(0.0,MIN(1.0, fco+fac)) RETURN ENDIF *** CO (carbon monoxide) quantum yields: a0 = 0.350 * (T/295.)**(-1.28) b0 = 0.068 * (T/295.)**(-2.65) cA0 = exp(b0*(w - 248.)) * a0 / (1. - a0) fco = 1. / (1 + cA0) *** CH3CO (acetyl radical) quantum yields: IF(w .GE. 279. .AND. w .LT. 302.) THEN a1 = 1.600E-19 * (T/295.)**(-2.38) b1 = 0.55E-3 * (T/295.)**(-3.19) cA1 = a1 * EXP(-b1*((1.e7/w) - 33113.)) fac = (1. - fco) / (1 + cA1 * M) ENDIF IF(w .GE. 302. .AND. w .LT. 327.5) THEN a2 = 1.62E-17 * (T/295.)**(-10.03) b2 = 1.79E-3 * (T/295.)**(-1.364) cA2 = a2 * EXP(-b2*((1.e7/w) - 30488.)) a3 = 26.29 * (T/295.)**(-6.59) b3 = 5.72E-7 * (T/295.)**(-2.93) c3 = 30006 * (T/295.)**(-0.064) ca3 = a3 * EXP(-b3*((1.e7/w) - c3)**2) a4 = 1.67E-15 * (T/295.)**(-7.25) b4 = 2.08E-3 * (T/295.)**(-1.16) cA4 = a4 * EXP(-b4*((1.e7/w) - 30488.)) fac = (1. - fco) * (1. + cA3 + cA4 * M) / $ ((1. + cA3 + cA2 * M)*(1. + cA4 * M)) ENDIF QY_ACETONE_TUV = MAX(0.0,MIN(1.0, fco+fac)) RETURN END ******************************************************************************** ================================================ FILE: UTIL/inline_phot_preproc/src/xc_qy_td_effect.F ================================================ SUBROUTINE XC_QY_TD_EFFECT(WC,NW,TLEV,DENS,NZ, & JLABEL,XC,QY,SQ,REPLACE) USE CSQY_REFER_DATA IMPLICIT NONE ! subroutine computes the product of the cross-section and ! quantum yield over the atmospheric levels ! includes temperature and pressure effect for select rates ! inputs: INTEGER, INTENT( IN ) :: NW REAL, INTENT( IN ) :: WC(:) INTEGER, INTENT( IN ) :: NZ REAL, INTENT( IN ) :: TLEV(:) ! air temperature over model levels, deg K REAL, INTENT( IN ) :: DENS(:) ! air number density over level, 1/cm3 CHARACTER(16), INTENT( IN ) :: JLABEL ! name of photolysis rate REAL, INTENT( INOUT ) :: XC(:,:) ! cross-section from file REAL, INTENT( INOUT ) :: QY(:,:) ! quantum yield from file REAL, INTENT( OUT ) :: SQ(:,:) ! cross-section times quantum yield over model levels LOGICAL, INTENT( OUT ) :: REPLACE ! flag to use sq values in calling routine ! input/output: INTEGER I, J, N ! local: INTEGER IW, IJ, IZ LOGICAL, SAVE :: FIRSTCALL = .TRUE. ! output quantum yields LOGICAL EXISTS REAL PRESSURE REAL TDUM, QDUM, WDUM ! local REAL, EXTERNAL :: OZONE_YIELD REAL, EXTERNAL :: QY_ACETONE REAL, EXTERNAL :: QY_ACETONE_TUV REAL NO2_XCROSS(KW,KZ), NO2_QUANT(KW,KZ) REAL O3_XCROSS(KW,KZ),O3_QUANT(KW,KZ) REAL HCHO_XCROSS(KW,KZ),HCHO_QUANTR(KW,KZ),HCHO_QUANTM(KW,KZ) REAL CLONO2_XCROSS(KW,KZ) REAL QYNO3_NO2(KW,KZ),QYNO3_NO(KW,KZ) REAL SIG, ALPHA, BETA, CHI INTERFACE SUBROUTINE WVBIN_AVERAGE(WL_CS_IN, CS_IN, NWL_CS_IN, & WL_QY_IN, QY_IN, NWL_QY_IN, & SPECTRA_TYPE, & WLL_AVE, WLU_AVE, NWL_AVE, & CS_AVE, QY_AVE ) IMPLICIT NONE CHARACTER(1), INTENT( IN ) :: SPECTRA_TYPE ! spectra type INTEGER, INTENT( IN ) :: NWL_AVE ! number of intervals average INTEGER, INTENT( IN ) :: NWL_CS_IN ! number of intervals CS_IN INTEGER, INTENT( IN ) :: NWL_QY_IN ! number of intervals CS_IN REAL, INTENT( IN ) :: WL_CS_IN( : ) ! wl for CS_IN REAL, INTENT( IN ) :: WL_QY_IN( : ) ! wl for QY_IN REAL, INTENT( IN ) :: CS_IN( : ) ! cross-section as f(WLIN) REAL, INTENT( IN ) :: QY_IN( : ) ! quantum yield as f(WLIN) REAL, INTENT( OUT) :: WLL_AVE( : ) ! lower limit on wl effective interval REAL, INTENT( OUT) :: WLU_AVE( : ) ! upper limit on wl effective interval REAL, INTENT( OUT) :: CS_AVE( : ) ! cross-section as f(WL_AVE) REAL, INTENT( OUT) :: QY_AVE( : ) ! quantum yield as f(WL_AVE) END SUBROUTINE WVBIN_AVERAGE END INTERFACE !_______________________________________________________________________ ! complete wavelength grid IF(FIRSTCALL)THEN CALL INIT_CSQY_REFER_DATA() FIRSTCALL = .FALSE. ENDIF ! computing data used for multiple rates DO IW = 1, NW DO IZ = 1, NZ IF( TLEV(IZ) .LT. 293.0 .AND. TLEV(IZ) .GT. 218.0)THEN O3_XCROSS(IW,IZ) = (O3_XCROSS_293K(IW)-O3_XCROSS_218K(IW)) & / 75.0 & * (TLEV(IZ) - 218.0) & + O3_XCROSS_218K(IW) ELSEIF( TLEV(IZ) .LE. 218.0)THEN O3_XCROSS(IW,IZ) = O3_XCROSS_218K(IW) ELSEIF( TLEV(IZ) .GE. 293.0)THEN O3_XCROSS(IW,IZ) = O3_XCROSS_293K(IW) ENDIF O3_XCROSS(IW,IZ) = O3_XCROSS(IW,IZ) O3_QUANT( IW,IZ) = OZONE_YIELD(WC(IW),TLEV(IZ)) TDUM = TLEV(IZ)-296.0 CLONO2_XCROSS(IW,IZ) = CLONO2_XCROSS0(IW) & * ( 1.0 & + CLONO2_A1(IW)*TDUM & + CLONO2_A2(IW)*TDUM**2 ) NO2_XCROSS(IW,IZ) = NO2_XCROSS_294K(IW) IF(TLEV(IZ) .GT. 220.0 .AND. TLEV(IZ) .LT. 294.0)THEN TDUM = (NO2_XCROSS_294K(IW)-NO2_XCROSS_220K(IW)) & * (TLEV(IZ)-220.0)/74.0 NO2_XCROSS(IW,IZ) = NO2_XCROSS_220K(IW) & + TDUM ELSEIF(TLEV(IZ) .LE. 220.0)THEN NO2_XCROSS(IW,IZ) = NO2_XCROSS_220K(IW) ENDIF NO2_QUANT(IW,IZ) = NO2_QUANT_298K(IW) IF(TLEV(IZ) .GT. 248.0 .AND. TLEV(IZ) .LT. 294.0)THEN TDUM = (NO2_QUANT_298K(IW)-NO2_QUANT_248K(IW)) & * (TLEV(IZ)-248.0)/50.0 NO2_QUANT(IW,IZ) = NO2_QUANT_248K(IW) & + TDUM ELSEIF(TLEV(IZ) .LE. 248.0)THEN NO2_QUANT(IW,IZ) = NO2_QUANT_248K(IW) ENDIF NO2_QUANT(IW,IZ) = MIN(MAX(NO2_QUANT(IW,IZ), 0.0), 1.0) ENDDO ENDDO CALL JHCHO_NASA_2006(NW,WC,NZ,TLEV,DENS, HCHO_XCROSS, & HCHO_QUANTR, HCHO_QUANTM) CALL NASA_NO3_QUANTAS(NW,WC,NZ,TLEV,DENS,QYNO3_NO, & QYNO3_NO2) SQ = 0.0 PRINT*,'ENTERING CASE SELECT FOR XC_QY_TD_EFFECT ', JLABEL SELECT CASE( JLABEL ) CASE( 'IC3ONO2', 'NTR_IUPAC10', 'NTR_IUPAC04', 'ONIT_RACM2' ) ! temperature correction to cross-section DO IW = 1, NW DO IZ = 1, NZ IF((WC(IW) .GE. 240.) .AND. (WC(IW) .LE. 340.))THEN IF( TLEV(IZ) .LT. 360.0 .AND. TLEV(IZ) .GT. 233.0)THEN SIG = IC3ONO2_XCROSS_298K(IW) & * EXP(IC3ONO2_XCROSS_EXP(IW)*(TLEV(IZ)-298.0)) ELSEIF( TLEV(IZ) .LE. 240.0)THEN SIG = IC3ONO2_XCROSS_298K(IW) & * EXP(IC3ONO2_XCROSS_EXP(IW)*(-58.0)) ELSEIF( TLEV(IZ) .GE. 360.)THEN SIG = IC3ONO2_XCROSS_298K(IW) & * EXP(IC3ONO2_XCROSS_EXP(IW)*(62.0)) ENDIF ELSE SIG = IC3ONO2_XCROSS_298K(IW) ENDIF SQ(IZ, IW) = SIG*QY(IZ,IW) XC(IZ, IW) = SIG ENDDO ENDDO REPLACE = .TRUE. CASE( 'NO2-06', 'NO2_06', 'NO2_RACM2', 'NO2_IUPAC10' ) ! 'NO2 -> NO + O(3P)' ! temperature correction to cross-section and quantum yield DO IW = 1, NW DO I = 1, NZ SQ(I, IW) = NO2_XCROSS(IW,I)*NO2_QUANT(IW,I) XC(I, IW) = NO2_XCROSS(IW,I) QY(I, IW) = NO2_QUANT(IW,I) ENDDO ENDDO REPLACE = .TRUE. CASE( 'N2O5_IUPAC04', 'N2O5_IUPAC10' ) ! temperature correction to cross-section DO IW = 1, NW DO I = 1, NZ TDUM = MAX(195.0, MIN(TLEV(I), 300.0)) IF( WC( IW ) .LE. 410 )THEN ALPHA = N2O5_XCROSS_EXP(IW)*(1.0/TDUM - 1.0/298.0) SIG = N2O5_XCROSS_298K(IW) & * EXP( ALPHA ) ELSE SIG = 0.0 END IF SQ(I,IW) = SIG*QY(I,IW) XC(I,IW) = SIG ENDDO ENDDO REPLACE = .TRUe. CASE( 'NO2EX' ) ! 'NO2 -> NO2(excited)' ! temperature correction to cross-section and quantum yield DO IW = 1, NW DO I = 1, NZ SQ(I, IW) = NO2_XCROSS(IW,I) & * (1.0 - NO2_QUANT(IW,I)) XC(I, IW) = NO2_XCROSS(IW,I) QY(I, IW) = 1.0 - NO2_QUANT(IW,I) ENDDO ENDDO REPLACE = .TRUE. CASE( 'HNO4-06', 'HNO4_06', 'HO2NO2_IUPAC04', 'PNA_IUPAC10', 'HNO4_RACM2' ) ! 'HNO4 -> HO2 + NO2' ! temperature correction to cross-section DO IW = 1, NW DO I = 1, NZ QDUM = QY(I, IW) ! QDUM = 1.0 ! QY(I, IW) = QDUM IF(HO2NO2_XCROSS_A1(IW).GT.0.0.AND.HO2NO2_XCROSS_A2(IW).GT.0.0)THEN TDUM = 1.0+EXP(-988.0/(0.69*TLEV(I))) SQ(I, IW) = (HO2NO2_XCROSS_A1(IW)/TDUM & + HO2NO2_XCROSS_A2(IW)*(1.0-1.0/TDUM)) & * QDUM XC(I, IW) = (HO2NO2_XCROSS_A1(IW)/TDUM & + HO2NO2_XCROSS_A2(IW)*(1.0-1.0/TDUM)) ELSE SQ(I, IW) = HO2NO2_XCROSS_296K(IW)*QDUM XC(I, IW) = HO2NO2_XCROSS_296K(IW) ENDIF ENDDO ENDDO REPLACE = .TRUE. CASE( 'NO3NO-06', 'NO3NO_06', 'NO3NO_RACM2' ) ! 'NO3 -> NO + O2' ! temperature correction to cross-section and quantum yield DO IW = 1, NW DO I = 1, NZ TDUM = (1.0-EXP(-1096.4/TLEV(I)) & - 2.0*EXP(-529.5/TLEV(I))) & / (1.0-EXP(-1096.4/298.0) & - 2.0*EXP(-529.5/298.0)) SQ(I, IW) = NO3_XCROSS_06(IW)*TDUM*QYNO3_NO(IW,I) XC(I, IW) = NO3_XCROSS_06(IW)*TDUM QY(I, IW) = QYNO3_NO(IW,I) QY(I, IW) = MIN(1.0, QY(I, IW)) QY(I, IW) = MAX(0.0, QY(I, IW)) ENDDO ENDDO REPLACE = .TRUE. CASE( 'CLONO2-2', 'CLONO2_2') ! 'ClONO2 -> Cl + NO3' ! temperature correction to cross-section DO IW = 1, NW DO IZ = 1, NZ SQ(IZ, IW) = CLONO2_XCROSS(IW,IZ)*QY(IZ,IW) XC(IZ, IW) = CLONO2_XCROSS(IW,IZ) ENDDO ENDDO REPLACE = .TRUE. CASE( 'CLONO2-1', 'CLONO2_1' ) ! 'ClONO2 -> ClO + NO2' ! temperature correction to cross-section DO IW = 1, NW DO IZ = 1, NZ SQ(IZ, IW) = CLONO2_XCROSS(IW,IZ)*QY(IZ,IW) XC(IZ, IW) = CLONO2_XCROSS(IW,IZ) ENDDO ENDDO REPLACE = .TRUE. CASE( 'CCHO_R', 'ALD2_R_IUPAC10', 'CH3CHO_RACM2' ) ! 'CH3CHO -> CH3 + HCO' ! density correction to quantum yield DO IW = 1, NW DO I = 1, NZ QDUM = QY(I,IW) & * (1. + CCHO_YIELD_COEFF(IW)) & / (1. + CCHO_YIELD_COEFF(IW)*DENS(I)/2.465E19) SQ(I, IW) = XC(I,IW)*QDUM QY(I, IW) = QDUM QY(I, IW) = MIN(1.0, QY(I, IW)) QY(I, IW) = MAX(0.0, QY(I, IW)) ENDDO ENDDO REPLACE = .TRUE. CASE( 'PAN', 'PAN_IUPAC04', 'PAN_IUPAC10' ) ! 'PAN + hv -> PRODUCTS' QDUM = 1.0 ! temperature correction to cross-section DO IW = 1, NW DO I = 1, NZ SIG = PAN_XCROSS(IW) & * EXP(PAN_XCROSS_B(IW)*(TLEV(I)-298.0)) SQ(I, IW) = SIG*QDUM XC(I, IW) = SIG ENDDO ENDDO REPLACE = .TRUE. CASE( 'PAN1_RACM2', 'PAN2_RACM2' ) ! 'PAN + hv -> PRODUCTS' ! temperature correction to cross-section DO IW = 1, NW DO I = 1, NZ SIG = PAN_XCROSS(IW) & * EXP(PAN_XCROSS_B(IW)*(TLEV(I)-298.0)) SQ(I, IW) = SIG*QY(I,IW) XC(I, IW) = SIG ENDDO ENDDO REPLACE = .TRUE. CASE( 'C2CHO', 'ALD_RACM2', 'ALDX_R_IUPAC10' ) ! 'C2H5CHO -> C2H5 + HCO' ! density correction to quantum yield DO IW = 1, NW DO I = 1, NZ IF (QY(I,IW) .LT. 1.0E-5) THEN QDUM = 0.0 ELSE QDUM = 1.0 & / (1.0 + (1.0/QY(I,IW) - 1.0)*DENS(I)/2.465E19) ENDIF QDUM = MIN(QDUM,1.0) SQ(I, IW) = XC(I,IW)*QDUM QY(I, IW) = QDUM QY(I, IW) = MIN(1.0, QY(I, IW)) QY(I, IW) = MAX(0.0, QY(I, IW)) ENDDO ENDDO REPLACE = .TRUE. CASE( 'NO3NO2-6', 'NO3NO2_6', 'NO3NO2_06', 'NO3NO2_RACM2' ) ! 'NO3 -> NO2 + O(3P)' ! temperature correction to cross-section and quantum yield DO IW = 1, NW DO I = 1, NZ TDUM = (1.0-EXP(-1096.4/TLEV(I)) & - 2.0*EXP(-529.5/TLEV(I))) & / (1.0-EXP(-1096.4/298.0) & - 2.0*EXP(-529.5/298.0)) SQ(I, IW) = NO3_XCROSS_06(IW)*TDUM*QYNO3_NO2(IW,I) XC(I, IW) = NO3_XCROSS_06(IW)*TDUM QY(I, IW) = QYNO3_NO2(IW,I) QY(I, IW) = MIN(1.0, QY(I, IW)) QY(I, IW) = MAX(0.0, QY(I, IW)) ENDDO ENDDO REPLACE = .TRUE. CASE( 'HNO3', 'HNO3_IUPAC04', 'HNO3_IUPAC10', 'HNO3_RACM2' ) ! temperature correction to cross-section DO IW = 1, NW DO IZ = 1, NZ C IF((WC(IW) .GT. 192.0) .AND. (WC(IW) .LT. 350.))THEN SIG = HNO3_XCROSS_298K(IW) & * EXP(HNO3_XCROSS_EXP(IW)*(TLEV(IZ)-298.0)) C ELSE C SIG = XC(I,IW) C ENDIF C assume quantum yield equal to one SQ(IZ, IW) = SIG*QY(IZ,IW) XC(IZ, IW) = SIG ENDDO ENDDO REPLACE = .TRUE. CASE( 'MVK-06', 'ISPD', 'MVK_06', 'MVK_RACM2' ) C quantum yield from C Gierczak, T., J. B. Burkholder, R. K. Talukdar, A. Mellouki, S. B. Barone, C and A. R. Ravishankara, Atmospheric fate of methyl vinyl ketone and methacrolein, C J. Photochem. Photobiol A: Chemistry, 110 1-10, 1997. C depends on pressure and wavelength, set upper limit to 1.0 C However, chamber evaluations for SAPRC07T require a pressure correction where C number density coefficient is five times higher. DO IW = 1, NW DO I = 1, NZ ! density correction to quantum yield ! QDUM = EXP(-0.055*(WC(IW)-308.)) / ! & (5.5 + 5.0*9.2E-19*DENS(I)) ! remove wavelength dependence QDUM = QY(I, IW) & * (5.5 + 5.0*9.2E-19*2.465E+19) & / (5.5 + 5.0*9.2E-19*DENS(I)) QDUM = MIN(QDUM, 1.0) SQ(I, IW) = XC(I,IW)* QDUM QY(I, IW) = QDUM QY(I, IW) = MIN(1.0, QY(I, IW)) QY(I, IW) = MAX(0.0, QY(I, IW)) ENDDO ENDDO REPLACE = .TRUE. CASE( 'MACR-06', 'MACR_06', 'MACR_RACM2' ) C quantum yield based on 2.76 times MVK from C Gierczak, T., J. B. Burkholder, R. K. Talukdar, A. Mellouki, S. B. Barone, C and A. R. Ravishankara, Atmospheric fate of methyl vinyl ketone and methacrolein, C J. Photochem. Photobiol A: Chemistry, 110 1-10, 1997. C depends on pressure and wavelength, set upper limit to 1.0 C However, chamber evaluations for SAPRC07T require a pressure correction where C number density coefficient is five times higher. ! density correction to quantum yield DO IW = 1, NW DO I = 1, NZ QDUM = 2.76*EXP(-0.055*(WC(IW)-308.)) / & (5.5 + 5.0*9.2E-19*DENS(I)) ! remove wavelength dependence QDUM = QY(I, IW) & * (5.5 + 5.0*9.2E-19*DENS(I)) & / (5.5 + 5.0*9.2E-19*2.465E+19) QDUM = MIN(QDUM, 1.0) SQ(I, IW) = XC(I,IW)* QDUM QY(I, IW) = QDUM QY(I, IW) = MIN(1.0, QY(I, IW)) QY(I, IW) = MAX(0.0, QY(I, IW)) ENDDO ENDDO REPLACE = .TRUE. CASE( 'MEK-06', 'MEK_06') C Quantum Yields from C Raber, W.H. (1992) PhD Thesis, Johannes Gutenberg-Universitaet, Mainz, Germany. C other channels assumed negligible (less than 10%). C Total quantum yield = 0.38 at 760 Torr. but Carter C adjusts to 0.175 based on chamber tests and sets the values in C mechanism definition file. C NOTE: SAPRC07T includes this quantum yield in the mechanism definition C file as factor times the photolysis rates where the quantum yield is C set one. ! temperature/density correction to quantum yield C Stern-Volmer form given: 1/phi = 0.96 + 2.22e-3*P(torr) C compute local pressure in torr DO IW = 1, NW DO I = 1, NZ ! PTORR = (760.*DENS(I)/2.69E19) ! PTORR = (1.03547E-19*DENS(I)*TLEV(I)) PRESSURE = (1.03547E-19*DENS(I)*TLEV(I)) ! TORR ! SIG = 1.0 ! (0.96 + 2.22E-3*760.0) ! & / (0.96 + 2.22E-3*(1.03547E-19*DENS(I)*TLEV(I))) IF( PRESSURE .LT. 181.0 )THEN QDUM = 1.0 SIG = 2.645 & / (0.96 + 2.22E-3*(181.0)) ELSE SIG = 2.645 & / (0.96 + 2.22E-3*PRESSURE) QDUM = 1.0 & / (0.96 + 2.22E-3*PRESSURE) ENDIF C SIG = MIN(SIG, 1.0)/2.649078 SQ(I, IW) = XC(I,IW)* SIG QY(I, IW) = SIG QY(I, IW) = MIN(1.0, QY(I, IW)) QY(I, IW) = MAX(0.0, QY(I, IW)) ENDDO ENDDO REPLACE = .TRUE. CASE( 'H2O2', 'H2O2_SAPRC99', 'H2O2_RACM2', 'H2O2_IUPAC10' ) ! Provide cross section and quantum yield for H2O2 photolysis =* ! H2O2 + hv -> 2 OH between 260 and 350 nm =* ! Otherwise use Cross section from JPL97, tabulated values @ 298K ! Quantum yield: Assumed to be unity =* DO i = 1, nz DO iw = 1, nw qdum = qy(i,iw) IF(wc(iw) .GE. 260.0 .AND. wc(iw) .LT. 350.0) THEN CALL JH2O2_260t350nm(wc(iw),tlev(i),dens(i), & sig,qdum) xc(i, iw) = sig ELSE sig = xc(i,iw) ENDIF sq(i, iw) = sig*qdum ! temperature correction to cross-section IF(WC(IW) .GE. 260.0 .AND. WC(IW) .LE. 350.0)THEN CHI = 1.0 & / (1.0 + EXP(-1265.0/MAX(200.0, MIN(TLEV(I),400.0))) ) SIG = CHI*H2O2_XCROSS_A(IW) & + (1.0 - CHI)*H2O2_XCROSS_B(IW) XC(I, IW) = SIG ELSE SIG = XC(I, IW) ENDIF SQ(I, IW) = XC(I, IW)*QDUM ENDDO ENDDO REPLACE = .TRUE. CASE( 'MGLY-06' , 'BACL-07', 'MGLY_06' , 'BACL_07', 'MGLY_IUPAC04') ! temperature/density correction to quantum yield DO IW = 1, NW C QY(I,IW) = MIN( QY(I,IW), 1.0) C QY(I,IW) = MAX( QY(I,IW), 0.0) DO I = 1, NZ PRESSURE = (1.03547E-19*DENS(I)*TLEV(I)) ! TORR PRESSURE = MIN(472.0, PRESSURE) QY(I,IW) = MIN( QY(I,IW), 1.0) QY(I,IW) = MAX( QY(I,IW), 0.0) C Pressure dependence based on Koch and Moortgat (1998), C J. Phys. Chem. A, vol 102, pages 9142. The application contradicts C NASA (2006) & IUPAC (2005) and is used based recommendations for C SAPRC07T photolysis rates by William Carter (2009) IF(WC(IW) .LT. 500.0 .AND. WC(IW) .GT. 240.0)THEN IF( QY(I,IW) .GT. 0.0 .AND. QY(I,IW) .LT. 1.0)THEN QDUM = 1.36E8*(472.0)*EXP(-8793/WC(IW)) & / ( 1.0/QY(I,IW) - 1.0 ) SIG = QDUM & /(QDUM+1.36E8*EXP(-8793/WC(IW))*PRESSURE) QDUM = 1.36E8*(472.0) & / ( 1.0/QY(I,IW) - 1.0 ) SIG = QDUM & /(QDUM+1.36E8*PRESSURE) ELSE SIG = QY(I,IW) ENDIF ELSEIF(WC(IW) .LE. 240.0)THEN SIG = QY(I,IW) ELSEIF(WC(IW) .GE. 500.0)THEN SIG = 0.0 ENDIF C SIG = QY(I,IW) SQ(I, IW) = XC(I,IW)*SIG QY(I, IW) = SIG QY(I, IW) = MIN(1.0, QY(I, IW)) QY(I, IW) = MAX(0.0, QY(I, IW)) ENDDO ENDDO REPLACE = .TRUE. CASE( 'ACRO-09', 'ACRO_09', 'ACROLEIN_SAPRC99') ! density correction quantum yield DO IW = 1, NW DO I = 1, NZ QY(I,IW) = MIN( QY(I,IW), 1.0) QY(I,IW) = MAX( QY(I,IW), 0.0) C Number density dependence based on Gardner et. al (1997), C J. Phys. Chem., vol 91, pages 1922. The application uses C the quantum yields set in in cross-section file. For C SAPRC07T, yields set approximation four times NASA (2006) C because the mechanism developer sums over all possible channels and C Gardner et. al may support this conclusion. IF(DENS(I) .GE. 8.0E+17)THEN QDUM = (4.0E-3+1.0/(8.6E-2+1.613E-17*DENS(I))) & / 0.006384 ELSEIF(DENS(I) .LT. 8.0E+17)THEN QDUM = 12.00713 ENDIF SIG = QY(I,IW)*QDUM SQ(I, IW) = XC(I,IW)*SIG QY(I, IW) = SIG QY(I, IW) = MIN(1.0, QY(I, IW)) QY(I, IW) = MAX(0.0, QY(I, IW)) ENDDO ENDDO REPLACE = .TRUE. CASE( 'HCHOR-06', 'HCHOR_06', 'FORM_R_IUPAC10', 'HCHO_R_SAPRC99', 'HCHO_RAD_RACM2' ) ! 'CH2O -> H + HCO' ! temperature correction to cross-section DO IW = 1, NW DO IZ = 1, NZ SIG = HCHO_XCROSS_300K(IW) IF(TLEV(IZ) .LT. 300.0 .AND. TLEV(IZ) .GT. 195.0)THEN SIG = SIG + HCHO_XCROSS_A(IW)*(TDUM-300.0) ELSEIF( TLEV(IZ) .LE. 195.0)THEN SIG = SIG - HCHO_XCROSS_A(IW)*105.0 ENDIF SQ(IZ, IW) = SIG*HCHO_QUANTR_STP(IW) XC(IZ, IW) = HCHO_XCROSS(IW,IZ) QY(IZ, IW) = HCHO_QUANTR_STP(IW) ENDDO ENDDO REPLACE = .TRUE. CASE( 'HCHOM-06', 'HCHOM_06', 'FORM_M_IUPAC10', 'HCHO_M_SAPRC99', 'HCHO_MOL_RACM2' ) ! 'CH2O -> H2 + CO' ! temperature correction to cross-section DO IW = 1, NW DO IZ = 1, NZ SIG = HCHO_XCROSS_300K(IW) IF(TLEV(IZ) .LT. 300.0 .AND. TLEV(IZ) .GT. 195.0)THEN SIG = SIG + HCHO_XCROSS_A(IW)*(TDUM-300.0) ELSEIF( TLEV(IZ) .LE. 195.0)THEN SIG = SIG - HCHO_XCROSS_A(IW)*105.0 ENDIF SQ(IZ, IW) = HCHO_XCROSS(IW,IZ)*HCHO_QUANTM(IW,IZ) XC(IZ, IW) = HCHO_XCROSS(IW,IZ) QY(IZ, IW) = HCHO_QUANTM(IW,IZ) ! temperature/density correction to quantum yield IF(WC(IW) .GE. 330.0 .AND. HCHO_QUANTM_STP(IW) .GT. 0.0)THEN QDUM = 1.0/HCHO_QUANTM_STP(IW) ! need to subst actual value in QY BETA = 1.0/(1.0-HCHO_QUANTR_STP(IW)) ! need to subst actual value in QY IF( TLEV(IZ) .LT. 300.0 .AND. TLEV(IZ) .GT. 220.0)THEN PRESSURE = 82.06*(DENS(IZ)/6.02E+23)*TLEV(IZ) ALPHA = (QDUM - BETA) & * (1.+0.05*(WC(IW)-329.0)*((TLEV(IZ)-80.0)/80.0)) ELSEIF( TLEV(IZ) .LE. 220.0)THEN PRESSURE = 3.0E-20*DENS(IZ) ALPHA = (QDUM - BETA) & * (1.+0.0875*(WC(IW)-329.0)) ELSEIF( TLEV(IZ) .GE. 300.)THEN PRESSURE = 4.09E-20*DENS(IZ) ALPHA = (QDUM - BETA) & * (1.+0.1375*(WC(IW)-329.0)) ENDIF QY(IZ, IW) = 1.0/(BETA + PRESSURE*ALPHA) ! reduce wavelength dependence QDUM = (BETA + 82.06*(2.465E+19/6.02E+23)*298.0*ALPHA) & / (BETA + PRESSURE*ALPHA) QY(IZ, IW) = QDUM * QY(IZ, IW) ELSE QY(IZ, IW) = HCHO_QUANTM_STP(IW) ENDIF QY(IZ, IW) = MIN(1.0, QY(IZ, IW)) QY(IZ, IW) = MAX(0.0, QY(IZ, IW)) SQ(IZ, IW) = SIG*QY(IZ, IW) ENDDO ENDDO REPLACE = .TRUE. CASE( 'O3O1D-06', 'O3O1D_06', 'O3_O1D_IUPAC10', 'O3_O1D_IUPAC04','O3O1D_NASA06' ) ! 'O3 -> O2 + O(1D)' ! temperature correction to cross-section DO IW = 1, NW DO IZ = 1, NZ SQ(IZ, IW) = O3_XCROSS(IW,IZ)*O3_QUANT(IW,IZ) XC(IZ, IW) = O3_XCROSS(IW,IZ) QY(IZ, IW) = O3_QUANT(IW,IZ) ! PRINT*,IW,O3_XCROSS(IW,IZ),O3_QUANT(IW,IZ) ENDDO ENDDO REPLACE = .TRUE. CASE( 'O3O3P-06', 'O3O3P_06', 'O3_O3P_IUPAC10', 'O3_O3P_IUPAC04', 'O3O3P_NASA06' ) ! 'O3 -> O2 + O(3P)' ! temperature correction to cross-section DO IW = 1, NW DO IZ = 1, NZ SQ(IZ, IW) = O3_XCROSS(IW,IZ) & * (1.0 - O3_QUANT(IW,IZ)) XC(IZ, IW) = O3_XCROSS(IW,IZ) QY(IZ, IW) = 1.0 - O3_QUANT(IW,IZ) ENDDO ENDDO REPLACE = .TRUE. CASE( 'ACET-06', 'ACET_06', 'ACET_IUPAC10', 'ACETONE', 'ACT_RACM2' ) ! 'CH3COCH3 -> products' DO IW = 1, NW DO IZ = 1, NZ ! temperature correction to cross-section SIG = (XC_D_ACETONE(IW) & + XC_A_ACETONE(IW)*TLEV(IZ) & + XC_B_ACETONE(IW)*TLEV(IZ)**2 & + XC_C_ACETONE(IW)*TLEV(IZ)**3) & * XCROSS_ACETONE_298K( IW ) SIG = XCROSS_ACETONE_298K( IW ) ! temperature/density correction to quantum yield QDUM = QY_ACETONE(TLEV(IZ),DENS(IZ),WC(IW)) SQ(IZ, IW) = SIG*QDUM XC(IZ, IW) = SIG QY(IZ, IW) = QDUM QY(IZ, IW) = MIN(1.0, QY(IZ, IW)) QY(IZ, IW) = MAX(0.0, QY(IZ, IW)) ENDDO ENDDO REPLACE = .TRUE. CASE( 'CL2', 'CL2_IUPAC04') ! NASA (2006) and IUPAC(2005) recommended cross-section as a function of ! wavelength and temperature taken from ! D. Maric et al. (1993) J. Photochem. Photobiol. A: Chem. 70, 205. DO IW = 1, NW DO IZ = 1, NZ ! temperature correction to cross-section TDUM = TLEV(IZ) IF(TLEV(IZ) .GT. 300.0)THEN TDUM = 300.0 ELSEIF(TLEV(IZ) .LT. 195.0)THEN TDUM = 195.0 ELSE TDUM = TLEV(IZ) ENDIF ALPHA = TANH(470.676/TDUM) IF(WC(IW) .GT. 550.0)THEN SIG = 0.0 ELSEIF(WC(IW) .LT. 250.0)THEN SIG = 0.0 ELSE WDUM = WC(IW) SIG = SQRT(ALPHA) & * (27.3 *EXP(-99.0*ALPHA*(LOG(329.5/WDUM))**2) & + 0.932*EXP(-91.5*ALPHA*(LOG(406.5/WDUM))**2)) ENDIF ! IUPAC (2005) and NASA (2006) recommend quantum yield equal to one when ! cross-section is nonzero SQ(IZ, IW) = 1.0E-20*SIG XC(IZ, IW) = 1.0E-20*SIG ENDDO ENDDO REPLACE = .TRUE. CASE DEFAULT DO IW = 1, NW DO IZ = 1, NZ SQ(IZ, IW) = XC(IZ,IW)*QY(IZ,IW) ENDDO ENDDO REPLACE = .FALSE. END SELECT FIRSTCALL = .FALSE. RETURN END C FUNCTION OZONE_YIELD(W, T) !-----------------------------------------------------------------------------* ! taken from Tropospheric Ultraviolet-Visible (TUV) radiation model =* ! Version 4.5 =* ! Sep 2007 =* !-----------------------------------------------------------------------------* ! PURPOSE: =* * function to calculate the quantum yield O3 + hv -> O(1D) + O2, =* * according to: * Matsumi, Y., F. J. Comes, G. Hancock, A. Hofzumanhays, A. J. Hynes, * M. Kawasaki, and A. R. Ravishankara, QUantum yields for production of O(1D) * in the ultraviolet photolysis of ozone: Recommendation based on evaluation * of laboratory data, J. Geophys. Res., 107, 10.1029/2001JD000510, 2002. !-----------------------------------------------------------------------------* ! TUV model developed by Sasha Madronich with important contributions from: =* ! Chris Fischer, Siri Flocke, Julia Lee-Taylor, Bernhard Meyer, =* ! Irina Petropavlovskikh, Xuexi Tie, and Jun Zen. =* ! To contact the author, write to: =* ! Sasha Madronich, NCAR/ACD, P.O.Box 3000, Boulder, CO, 80307-3000, USA or =* ! send email to: sasha@ucar.edu or tuv@acd.ucar.edu =* !-----------------------------------------------------------------------------* ! This program is free software; you can redistribute it and/or modify =* ! it under the terms of the GNU General Public License as published by the =* ! Free Software Foundation; either version 2 of the license, or (at your =* ! option) any later version. =* ! The TUV package is distributed in the hope that it will be useful, but =* ! WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTIBI- =* ! LITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public =* ! License for more details. =* ! To obtain a copy of the GNU General Public License, write to: =* ! Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. =* !-----------------------------------------------------------------------------* ! Copyright (C) 1994,95,96,97,98,99,2000,01,02,03, 04, 05, 06, 07 =* ! by the University Corporation for Atmospheric Research =* !-----------------------------------------------------------------------------* IMPLICIT NONE REAL W ! wavelength, nm REAL T ! temperature, deg K REAL OZONE_YIELD ! dimensionaless C local variables REAL KT REAL A(3), X(3), OM(3) REAL Q1, Q2 DATA A/ 0.8036, 8.9061, 0.1192/ DATA X/ 304.225, 314.957, 310.737/ DATA OM/ 5.576, 6.601, 2.187/ OZONE_YIELD = 0.0 KT = 0.695 * T Q1 = 1.0 Q2 = EXP(-825.518/KT) IF(W .LE. 305.0) THEN OZONE_YIELD = 0.90 ELSEIF(W .GT. 305.0 .AND. W .LE. 328.0) THEN OZONE_YIELD = 0.0765 + & A(1)* (Q1/(Q1+Q2))*EXP(-((X(1)-W)/OM(1))**4.0)+ & A(2)*(T/300.)**2.0*(Q2/(Q1+Q2))*EXP(-((X(2)-W)/OM(2))**2.0)+ & A(3)*(T/300.)**1.5 *EXP(-((X(3)-W)/OM(3))**2.0) ELSEIF(W .GT. 328.0 .AND. W .LE. 340.0) THEN OZONE_YIELD = 0.08 ELSEIF(W .GT. 340.) THEN OZONE_YIELD = 0.0 ENDIF END !============================================================================* SUBROUTINE JH2O2_260T350NM(WC,TEMP,AIRDEN,XCROSS,QUANT) !-----------------------------------------------------------------------------* ! taken from Tropospheric Ultraviolet-Visible (TUV) radiation model =* ! Version 4.5 =* ! Sep 2007 =* !-----------------------------------------------------------------------------* ! PURPOSE: =* ! Provide cross section and quantum yield for H2O2 photolysis =* ! H2O2 + hv -> 2 OH between 260 and 350 nm =* ! Otherwise use Cross section from JPL97, tabulated values @ 298K ! Quantum yield: Assumed to be unity =* !-----------------------------------------------------------------------------* ! PARAMETERS: =* ! WC - REAL, center points of wavelength interval (I)=* ! TLEV - REAL, temperature (K) at altitude level (I)=* ! AIRDEN - REAL, air density (molec/cc) at altitude level (I)=* ! xcross - cross section (cm^2) for each (IO)=* ! photolysis reaction defined, at input wavelength and =* ! at defined altitude level =* ! quant - quantum yield for each (IO)=* ! photolysis reaction defined, at input wavelength and =* ! at defined altitude level =* ! JLABEL - CHARACTER*50, string identifier for each photolysis reaction (L)=* ! defined =* !-----------------------------------------------------------------------------* IMPLICIT NONE ! input INTEGER NW REAL WC INTEGER NZ REAL TEMP REAL AIRDEN ! weighting functions CHARACTER(50) JLABEL REAL XCROSS,QUANT ! local REAL YG REAL QY REAL A0, A1, A2, A3, A4, A5, A6, A7 REAL B0, B1, B2, B3, B4 REAL XS REAL T INTEGER I, IW, N, IDUM INTEGER IERR REAL LAMBDA REAL SUMA, SUMB, CHI **************** H2O2 photodissociation ! cross section from Lin et al. 1978 JLABEL = 'H2O2 ' ! 'H2O2 -> 2 OH' ! quantum yield = 1 QY = 1.0 XS = 0.0 ! Parameterization (JPL06) A0 = 6.4761E+04 A1 = -9.2170972E+02 A2 = 4.535649 A3 = -4.4589016E-03 A4 = -4.035101E-05 A5 = 1.6878206E-07 A6 = -2.652014E-10 A7 = 1.5534675E-13 B0 = 6.8123E+03 B1 = -5.1351E+01 B2 = 1.1522E-01 B3 = -3.0493E-05 B4 = -1.0924E-07 ! Range 260-350 nm; 200-400 K IF ((WC .GE. 260.) .AND. (WC .LT. 350.)) THEN LAMBDA = WC SUMA = ((((((A7*LAMBDA + A6)*LAMBDA + A5)*LAMBDA + & A4)*LAMBDA +A3)*LAMBDA + A2)*LAMBDA + & A1)*LAMBDA + A0 SUMB = (((B4*LAMBDA + B3)*LAMBDA + B2)*LAMBDA + & B1)*LAMBDA + B0 ! sumA = 1.5534675E-13*lambda**7.0 - 2.652014E-10*lambda**6.0 ! & + 1.6878206E-07*lambda**5.0 - 4.035101E-05*lambda**4.0 ! & - 4.4589016E-03*lambda**3.0 + 4.535649E+00*lambda**2.0 ! & - 9.2170972E+02*lambda + 6.4761E+04 ! sumB = -1.0924E-07*lambda**4.0 - 3.0493E-05*lambda**3.0 ! & + 1.1522E-01*lambda**2.0 - 5.1351E+01*lambda ! & + 6.8123E+03 T = MIN(MAX(TEMP,200.),400.) CHI = 1./(1.+EXP(-1265./T)) XS = (CHI * SUMA + (1.-CHI)*SUMB)*1E-21 ENDIF XCROSS = XS QUANT = QY RETURN END SUBROUTINE JHCHO_NASA_2006(NW, WC, NZ, TLEV, AIRDEN, XCROSS, QUANTR, QUANTM) !-----------------------------------------------------------------------------* ! PURPOSE: =* ! Provide cross section and quantum yields for CH2O photolysis =* ! (a) CH2O + hv -> H + HCO =* ! (b) CH2O + hv -> H2 + CO =* ! Based on recommendations from NASA JPL (2006) !-----------------------------------------------------------------------------* ! PARAMETERS: =* ! NW - INTEGER, number of specified intervals + 1 in working (I)=* ! wavelength grid =* ! WL - REAL, vector of lower limits of wavelength intervals in (I)=* ! working wavelength grid =* ! WC - REAL, vector of center points of wavelength intervals in (I)=* ! working wavelength grid =* ! NZ - INTEGER, number of altitude levels in working altitude grid (I)=* ! TLEV - REAL, temperature (K) at each specified altitude level (I)=* ! AIRDEN - REAL, air density (molec/cc) at each altitude level (I)=* ! J - INTEGER, counter for number of weighting functions defined (IO)=* ! SQ - REAL, cross section x quantum yield (cm^2) for each (O)=* ! photolysis reaction defined, at each defined wavelength and =* ! at each defined altitude level =* ! JLABEL - CHARACTER*50, string identifier for each photolysis reaction (O)=* ! defined =* !-----------------------------------------------------------------------------* USE CSQY_REFER_DATA IMPLICIT NONE INTEGER KDATA PARAMETER(KDATA=16000) ! input INTEGER NW REAL WL(KW), WC(KW) INTEGER NZ REAL TLEV(KZ) REAL AIRDEN(KZ) ! weighting functions CHARACTER(50) JLABEL(3) REAL XCROSS(KW,KZ) REAL QUANTR(KW,KZ), QUANTM(KW,KZ) ! input/output: INTEGER J, IZ, IW ! data arrays INTEGER N REAL X(KDATA), Y(KDATA) REAL XL(KDATA), XC(KDATA), XU(KDATA) INTEGER N1, N2, N3, N4, N5 REAL X1(KDATA), X2(KDATA), X3(KDATA), X4(KDATA), X5(KDATA) REAL Y1(KDATA), Y2(KDATA), Y3(KDATA), Y4(KDATA), Y5(KDATA) ! local REAL YG(KW), YG1(KW), YG2(KW), YG3(KW), YG4(KW), YG5(KW) REAL A, B, C REAL A0, A1, A2, A3, A4, A5, A6, A7 REAL B0, B1, B2, B3, B4 REAL QY, QY1, QY2, QY3 REAL SIGMA, SIG, SLOPE REAL XS REAL T REAL DUM INTEGER IDUM INTEGER I INTEGER IROW, ICOL, IREV INTEGER IERR INTEGER MOPT1, MOPT2 CHARACTER(LEN=120) :: FILE_LINE LOGICAL EXISTS REAL WU(KW) REAL PRESSURE REAL PHI1, PHI2, PHI20, AK300, AKT REAL TDUM LOGICAL :: FIRSTCALL = .TRUE. ! HCHO photodissociatation J = 1 JLABEL(J) = 'HCHOR-06 ' ! 'CH2O -> H + HCO' J = J+1 JLABEL(J) = 'HCHOM-06 ' ! 'CH2O -> H2 + CO' ! compute upper limit of wavelength bins DO I = 1, NW WU(I) = 2.0*WC(I) - WL(I) ENDDO N = 150 YG1 = 1.0E-20*YG1 YG2 = 1.0E-24*YG2 N = 112 IF( FIRSTCALL )THEN ! FIRSTCALL = .false. DO IW = 1, NW C write(6,'(i3,1X,f6.2,6(1x,es12.4))')iw,wc(iw), ! sig,qy1,qy2, C & HCHO_XC_300K(iw) ,HCHO_QUANTR_STP(iw),HCHO_QUANTM_STP(iw) TDUM = 265.0 SIG = HCHO_XCROSS_300K(IW) IF(TDUM .LT. 300.0 .AND. TDUM .GT. 195.0)THEN SIG = SIG + HCHO_XCROSS_A(IW)*(TDUM-300.0) ELSEIF( TLEV(I) .LE. 195.0)THEN SIG = SIG - HCHO_XCROSS_A(IW)*105.0 ENDIF QY1 = HCHO_QUANTR_STP(IW) IF ( (WC(IW) .GE. 330.) .AND. (HCHO_QUANTM_STP(IW) .GT. 0.) ) THEN PHI1 = HCHO_QUANTR_STP(IW) PHI2 = HCHO_QUANTM_STP(IW) PHI20 = 1. - PHI1 AK300=((1./PHI2)-(1./PHI20)) ! IS DIVIDED BY 1 ATM IF( TDUM .LT. 300.0 .AND. TDUM .GT. 220.0)THEN PRESSURE = 82.06*(AIRDEN(I)/6.02E+23)*TDUM AKT = AK300 & * (1.+0.05*(WC(IW)-329.0)*((TDUM-80.0)/80.0)) ELSEIF( TDUM .LE. 220.0)THEN PRESSURE = 3.0E-20*AIRDEN(I) AKT = AK300 & * (1.+0.0875*(WC(IW)-329.0)) ELSEIF( TDUM .GE. 300)THEN PRESSURE = 4.09E-20*AIRDEN(I) AKT = AK300 & * (1.+0.1375*(WC(IW)-329.0)) ENDIF C PRINT*,PRESSURE, AIRDEN(I)/2.54E+19 C PAUSE QY2 = 1. / ( (1./PHI20) + PRESSURE*AKT) ELSE QY2 = HCHO_QUANTM_STP(IW) ENDIF QY2 = MAX(0.0,QY2) QY2 = MIN(1.0,QY2) C WRITE(6,'(I3,1X,F6.2,6(1X,ES12.4))')IW,WC(IW),SIG,QY1,QY2, C & HCHO_XCROSS_300K(IW),HCHO_QUANTR_STP(IW), C & HCHO_QUANTM_STP(IW) ENDDO ENDIF DO IW = 1, NW DO I = 1, NZ ! cross-section correction SIG = HCHO_XCROSS_300K(IW) IF(TLEV(I) .LT. 300.0 .AND. TLEV(I) .GT. 195.0)THEN SIG = SIG + HCHO_XCROSS_A(IW)*(TLEV(I)-300.0) ELSEIF( TLEV(I) .LE. 195.0)THEN SIG = SIG - HCHO_XCROSS_A(IW)*105.0 ENDIF ! corrections to quantum yields QY1 = HCHO_QUANTR_STP(IW) IF(WC(IW) .GE. 330.0 .AND. HCHO_QUANTM_STP(IW) .GT. 0.0)THEN PHI1 = HCHO_QUANTR_STP(IW) PHI2 = HCHO_QUANTM_STP(IW) PHI20 = 1.0 - PHI1 AK300=((1./PHI2)-(1./PHI20)) ! IS DIVIDED BY 1 ATM IF(TLEV(I) .LT. 300.0 .AND. TLEV(I) .GT. 220.0)THEN PRESSURE = 82.06*(AIRDEN(I)/6.02E+23)*TLEV(I) AKT = AK300 & * (1.+0.05*(WC(IW)-329.0)*((TLEV(I)-80.0)/80.0)) ELSEIF(TLEV(I) .LE. 220.0)THEN PRESSURE = 3.0E-20*AIRDEN(I) AKT = AK300 & * (1.+0.0875*(WC(IW)-329.0)) ELSEIF(TLEV(I) .GE. 300.0)THEN PRESSURE = 4.09E-20*AIRDEN(I) AKT = AK300 & * (1.+0.1375*(WC(IW)-329.0)) ENDIF QY2 = 1.0/( 1.0/PHI20 + PRESSURE*AKT ) ELSE QY2 = HCHO_QUANTM_STP(IW) ENDIF QY2 = MAX(0.0,QY2) QY2 = MIN(1.0,QY2) XCROSS(IW, I) = SIG QUANTR(IW, I) = QY1 QUANTM(IW, I) = QY2 ENDDO ENDDO RETURN END !============================================================================* SUBROUTINE NASA_NO3_QUANTAS(NW,WC,NZ,TLEV,AIRDEN,QYNO3_NO, & QYNO3_NO2) !-----------------------------------------------------------------------------* ! PURPOSE: =* ! Provide the quantum yield for =* ! both channels of NO3 photolysis: =* ! (a) NO3 + hv -> NO2 + O(3P) =* ! (b) NO3 + hv -> NO + O2 =* !-----------------------------------------------------------------------------* ! PARAMETERS: =* ! NW - INTEGER, number of specified intervals + 1 in working (I)=* ! wavelength grid =* ! WL - REAL, vector of lower limits of wavelength intervals in (I)=* ! working wavelength grid =* ! WC - REAL, vector of center points of wavelength intervals in (I)=* ! working wavelength grid =* ! NZ - INTEGER, number of altitude levels in working altitude grid (I)=* ! TLEV - REAL, temperature (K) at each specified altitude level (I)=* ! AIRDEN - REAL, air density (molec/cc) at each altitude level (I)=* ! J - INTEGER, counter for number of weighting functions defined (IO)=* ! SQ - REAL, cross section x quantum yield (cm^2) for each (O)=* ! photolysis reaction defined, at each defined wavelength and =* ! at each defined altitude level =* ! JLABEL - CHARACTER*50, string identifier for each photolysis reaction (O)=* ! defined =* !-----------------------------------------------------------------------------* USE CSQY_REFER_DATA IMPLICIT NONE C INCLUDE 'params' ! input INTEGER NW REAL WL(KW), WC(KW), WU(KW) INTEGER NZ REAL TLEV(KZ) REAL AIRDEN(KZ) ! weighting functions CHARACTER*50 JLABEL(3) REAL SQ(1,KZ,KW) ! input/output: INTEGER J ! data arrays INTEGER KDATA PARAMETER(KDATA=350) REAL X1(KDATA) REAL Y1(KDATA),Y2(KDATA),Y3(KDATA) REAL Z1(KDATA),Z2(KDATA),Z3(KDATA) REAL QY1(KDATA),QY2(KDATA) REAL SLOPE ! local REAL YG(KW), YG1(KW), YG2(KW) REAL TEMP_ADJ(KZ) REAL QYNO3_NO2(KW,KZ),QYNO3_NO(KW,KZ) REAL QY INTEGER IROW, ICOL INTEGER I, IW, N, IDUM INTEGER IERR INTEGER MABS CHARACTER(LEN=120) :: FILE_LINE LOGICAL :: EXISTS LOGICAL, SAVE :: FIRSTCALL = .TRUE. ! for NO3 ->NO+O2 J = 0 J = J + 1 JLABEL(J) = 'NO3NO-06 ' ! 'NO3 -> NO + O2' ! for NO3 ->NO2+O J = J + 1 JLABEL(J) = 'NO3NO2-6 ' ! 'NO3 -> NO2 + O(3P)' TEMP_ADJ = 1.0 DO I = 1, NZ TEMP_ADJ(I) = (1.0-EXP(-1096.4/TLEV(I)) & - 2.0*EXP(-529.5/TLEV(I))) & / (1.0-EXP(-1096.4/298.0) & - 2.0*EXP(-529.5/298.0)) ENDDO DO I = 1, NW ! compute upper limit of wavelength bins WU(I) = 2.0*WC(I) - WL(I) ENDDO DO I = 1, NZ DO IW = 1, NW QY1(IW) = NO3NO_QUANT_298K(IW) QY2(IW) = NO3NO2_QUANT_298K(IW) IF(TLEV(I) .LT. 298.0 .AND. TLEV(I) .GE. 230.0)THEN SLOPE = (NO3NO_QUANT_298K(IW)-NO3NO_QUANT_230K(IW)) & / 68.0 QY1(IW) = NO3NO_QUANT_230K(IW) + SLOPE*(TLEV(I)-230.0) SLOPE = (NO3NO2_QUANT_298K(IW)-NO3NO2_QUANT_230K(IW)) & / 68.0 QY2(IW) = NO3NO2_QUANT_230K(IW) + SLOPE*(TLEV(I)-230.0) ELSEIF(TLEV(I) .LT. 230.0 .AND. TLEV(I) .GE. 190.0)THEN SLOPE = (NO3NO_QUANT_230K(IW)-NO3NO_QUANT_190K(IW)) & / 40.0 QY1(IW) = NO3NO_QUANT_190K(IW) + SLOPE*(TLEV(I)-190.0) SLOPE = (NO3NO2_QUANT_230K(IW)-NO3NO2_QUANT_190K(IW)) & / 40.0 QY2(IW) = NO3NO2_QUANT_190K(IW) + SLOPE*(TLEV(I)-190.0) ELSEIF( TLEV(I) .LT. 190)THEN QY1(IW) = NO3NO_QUANT_190K(IW) QY2(IW) = NO3NO2_QUANT_190K(IW) ENDIF ENDDO DO IW = 1, NW QYNO3_NO(IW,I) = QY1(IW)*0.001 !???ignor because the band averaging already accounts the below effect???? C if(wc(iw) .le. WV_NO3_QY(1))then C QYNO3_NO(iw,i) = NO3NO_QUANT_298K(1)*0.001 C QYNO3_NO2(iw,i) = NO3NO2_QUANT_298K(1)*0.001 C else QYNO3_NO2(IW,I) = QY2(IW)*0.001 C endif ENDDO ENDDO RETURN END C REAL FUNCTION QY_ACETONE(TEMP, DENS_NUMB, LAMBDA) ! Computes acetone quantum yields according to: ! IUPAC (2005) recommendation based on ! Blitz, M. A., D. E. Heard, M. J. Pilling, S. R. Arnold, and M. P. Chipperfield ! (2004), Pressure and temperature-dependent quantum yields for the ! photodissociation of acetone between 279 and 327.5 nm, Geophys. ! Res. Lett., 31, L06111, doi:10.1029/2003GL018793. IMPLICIT NONE C inputs REAL TEMP ! air temperature, K REAL DENS_NUMB ! air number density, 1/cm^3 REAL LAMBDA ! wavelength, nm ! local REAL A0 ! 1st coef for qy REAL A1 ! 2nd coef for qy REAL A2 ! 3rd coef for qy REAL A3 ! 4th coef for qy REAL A4 ! 5th coef for qy REAL A5 ! 6th coef for qy REAL A6 ! 7th coef for qy REAL PHI_CO ! CO branch of IUPAC (2005) acetone QYZ REAL PHI_CH3CO ! CH3CO branch of IUPAC (2005) acetone QYZ REAL AA ! scratch variable for IUPAC (2005) acetone QYZ REAL BB ! scratch variable for IUPAC (2005) acetone QYZ REAL CC ! scratch variable for IUPAC (2005) acetone QYZ IF( LAMBDA .GE. 248.0 .AND. LAMBDA .LE. 349.0)THEN AA = 0.350*(TEMP/295.0)**(-1.28) BB = 0.068*(TEMP/295.0)**(-2.65) A0 = (AA / (1.0 - AA))*exp(BB*(LAMBDA-248.0)) PHI_CO = 1.0 / (1.0 + A0) IF( LAMBDA .LE. 302.0 ) THEN C 248-302 nm AA = 1.600*1.0E-19 *(TEMP/295.0)**(-2.38) BB = 0.55*1.0E-03 *(TEMP/295.0)**(-3.19) A1 = AA*exp( -BB*((1.0E+07/LAMBDA)-33113.0) ) PHI_CH3CO = (1.0 - PHI_CO) / (1.0 + A1*DENS_NUMB) C 302-349 nm ELSE AA = 1.62*1.0E-17 *(TEMP/295.0)**(-10.03) BB = 1.79*1.0E-3 *(TEMP/295.0)**(-1.364) A2 = AA*exp(-BB*((1.0E+07/LAMBDA) - 30488.0)) AA = 26.29* (TEMP/295.0)**(-6.59) BB = 5.72 *1.0E-7 *(TEMP/295.0)**(-2.93) CC = (30006.0) *(TEMP/295.0)**(-0.064) A3 = AA*exp(-BB*((1.0E+07/LAMBDA) - CC)**2.0) AA = 1.67*1.0E-15 *(TEMP/295.0)**(-7.25) BB = 2.08*1.0E-3 *(TEMP/295.0)**(-1.16) A4 = AA*exp(-BB *((1.0E+07/LAMBDA) - 30488.0)) PHI_CH3CO = (1.0 - PHI_CO) & * (1.0 + A4*DENS_NUMB + A3) & / ( (1.0 + A2*DENS_NUMB + A3) & * (1.0 + A4*DENS_NUMB) ) ENDIF QY_ACETONE = PHI_CO + PHI_CH3CO ELSEIF(LAMBDA .LT. 248.0 .AND. LAMBDA .GT. 0.0)THEN ! set QY to 1.0 ! based on IUPAC (2005) data sheet PHI_CO = 0.05 PHI_CH3CO = 0.95 QY_ACETONE = PHI_CO + PHI_CH3CO ELSEIF(LAMBDA .GT. 349.0)THEN QY_ACETONE = 0.0 ENDIF QY_ACETONE = MAX(0.0,MIN(1.0, QY_ACETONE)) RETURN END ! This file contains subroutines used for calculation of quantum yields for ! various photoreactions: ! qyacet - q.y. for acetone, based on Blitz et al. (2004) !***************************************************************************** REAL FUNCTION QY_ACETONE_TUV(T, M, w) !-----------------------------------------------------------------------------* ! taken from Tropospheric Ultraviolet-Visible (TUV) radiation model =* ! Version 4.6 =* !-----------------------------------------------------------------------------* ! Compute acetone quantum yields according to the parameterization of: ! Blitz, M. A., D. E. Heard, M. J. Pilling, S. R. Arnold, and M. P. Chipperfield ! (2004), Pressure and temperature-dependent quantum yields for the ! photodissociation of acetone between 279 and 327.5 nm, Geophys. ! Res. Lett., 31, L06111, doi:10.1029/2003GL018793. IMPLICIT NONE ! input: ! T = temperature, K ! m = air number density, molec. cm-3 ! w = wavelength, nm REAL w, T, M ! internal: REAL a0, a1, a2, a3, a4 REAL b0, b1, b2, b3, b4 REAL c3 REAL cA0, cA1, cA2, cA3, cA4 ! output ! fco = quantum yield for product CO ! fac = quantum yield for product CH3CO (acetyl radical) REAL fco, fac !** set out-of-range values: ! use low pressure limits for shorter wavelengths ! set to zero beyound 327.5 IF(w .LT. 279. .AND. w .GE. 1.0) THEN fco = 0.05 fac = 0.95 QY_ACETONE_TUV = MAX(0.0,MIN(1.0, fco+fac)) RETURN ENDIF IF(w .GT. 327.5 .OR. w .LT. 1.0) THEN fco = 0. fac = 0. QY_ACETONE_TUV = MAX(0.0,MIN(1.0, fco+fac)) RETURN ENDIF !** CO (carbon monoxide) quantum yields: a0 = 0.350 * (T/295.)**(-1.28) b0 = 0.068 * (T/295.)**(-2.65) cA0 = exp(b0*(w - 248.)) * a0 / (1. - a0) fco = 1. / (1 + cA0) !** CH3CO (acetyl radical) quantum yields: IF(w .GE. 279. .AND. w .LT. 302.) THEN a1 = 1.600E-19 * (T/295.)**(-2.38) b1 = 0.55E-3 * (T/295.)**(-3.19) cA1 = a1 * EXP(-b1*((1.e7/w) - 33113.)) fac = (1. - fco) / (1 + cA1 * M) ENDIF IF(w .GE. 302. .AND. w .LT. 327.5) THEN a2 = 1.62E-17 * (T/295.)**(-10.03) b2 = 1.79E-3 * (T/295.)**(-1.364) cA2 = a2 * EXP(-b2*((1.e7/w) - 30488.)) a3 = 26.29 * (T/295.)**(-6.59) b3 = 5.72E-7 * (T/295.)**(-2.93) c3 = 30006 * (T/295.)**(-0.064) ca3 = a3 * EXP(-b3*((1.e7/w) - c3)**2) a4 = 1.67E-15 * (T/295.)**(-7.25) b4 = 2.08E-3 * (T/295.)**(-1.16) cA4 = a4 * EXP(-b4*((1.e7/w) - 30488.)) fac = (1. - fco) * (1. + cA3 + cA4 * M) / $ ((1. + cA3 + cA2 * M)*(1. + cA4 * M)) ENDIF QY_ACETONE_TUV = MAX(0.0,MIN(1.0, fco+fac)) RETURN END !******************************************************************************* ================================================ FILE: UTIL/inline_phot_preproc/src/xc_qy_td_effect_v2.F ================================================ SUBROUTINE XC_QY_TD_EFFECT(wl,wu,nw,tlev,dens,nz, & jlabel,xc,qy,sq) USE JPROC_PHOT_DATA IMPLICIT NONE ! subroutine computes the product of the cross-section and ! quantum yield over the atmospheric levels ! includes temperature and pressure effect for select rates ! input INTEGER nw REAL wl(kw) REAL wu(kw) INTEGER nz REAL tlev(kz) ! air temperature over model levels, deg K REAL dens(kz) ! air number density over level, 1/cm3 CHARACTER*50 jlabel ! name of photolysis rate REAL xc(kw) ! cross-section from file REAL qy(kw) ! quantum yield from file REAL sq(kz,kw) ! cross-section times quantum yield over model levels ! input/output: INTEGER i, j, n ! local: INTEGER iw, ij, iz LOGICAL, SAVE :: FIRSTCALL = .TRUE. ! output quantum yields CHARACTER(LEN= 60) :: cdum LOGICAL EXISTS REAL wc(kw) REAL PRESSURE real tdum, qdum, wdum * local REAL, EXTERNAL :: OZONE_YIELD REAL, EXTERNAL :: QY_ACETONE REAL, EXTERNAL :: QY_ACETONE_TUV REAL NO2_XCROSS(kw,kz), NO2_QUANT(kw,kz) REAL O3_XCROSS(kw,kz),O3_QUANT(kw,kz) REAL HCHO_XCROSS(kw,kz),HCHO_QUANTR(kw,kz),HCHO_QUANTM(kw,kz) REAL CLONO2_XCROSS(kw,kz) REAL QYNO3_NO2(kw,kz),QYNO3_NO(kw,kz) REAL sig, alpha *_______________________________________________________________________ * complete wavelength grid DO 5, iw = 1, nw - 1 wc(iw) = (wl(iw) + wl(iw+1))/2. 5 CONTINUE C define wc(nw) to floating point errors wc(nw) = wu(nw) C print*,'in XC_QY_TS_EFFECT for ', jlabel IF(FIRSTCALL)THEN CALL INIT_JPROC_DATA(wl,wu,wc,nw) ENDIF ! computing data used for multiple rates DO iw = 1, nw-1 DO iz = 1, nz if( tlev(iz) .lt. 293.0 .and. tlev(iz) .gt. 218.0)then O3_XCROSS(iw,iz) = (O3_XCROSS_293K(iw)-O3_XCROSS_218K(iw)) & / 75.0 & * (tlev(iz) - 218.0) & + O3_XCROSS_218K(iw) elseif( tlev(iz) .le. 218.0)then O3_XCROSS(iw,iz) = O3_XCROSS_218K(iw) elseif( tlev(iz) .ge. 293.0)then O3_XCROSS(iw,iz) = O3_XCROSS_293K(iw) endif O3_XCROSS(iw,iz) = O3_XCROSS(iw,iz) O3_QUANT( iw,iz) = OZONE_YIELD(wc(iw),tlev(iz)) C if(iz .eq. 1)then C write(6,2222),TLEV(IZ),' wv = ',wc(iw),' O3_XCROSS = ', C & O3_XCROSS(iw,iz), C & ' O3_QUANT = ',O3_QUANT(iw,iz) C2222 format('temp = ',f6.1,A,f6.1,5(A,ES12.4),A,ES12.4) C endif tdum = tlev(iz)-296.0 CLONO2_XCROSS(iw,iz) = CLONO2_XCROSS0(iw) & * ( 1.0 & + CLONO2_A1(iw)*tdum & + CLONO2_A2(iw)*tdum**2 ) C if(iz .eq. 1)then C print*,TLEV(IZ),' wv = ',wc(iw),' CLONO2_XCROSS = ', C & CLONO2_XCROSS(iw,iz) C endif NO2_XCROSS(iw,iz) = NO2_XCROSS_294K(iw) IF(tlev(iz) .gt. 220.0 .and. tlev(iz) .lt. 294.0)THEN tdum = (NO2_XCROSS_294K(iw)-NO2_XCROSS_220K(iw)) & * (tlev(iz)-220.0)/74.0 NO2_XCROSS(iw,iz) = NO2_XCROSS_220K(iw) & + tdum ELSEIF(tlev(iz) .le. 220.0)THEN NO2_XCROSS(iw,iz) = NO2_XCROSS_220K(iw) ENDIF NO2_QUANT(iw,iz) = NO2_QUANT_298K(iw) IF(tlev(iz) .gt. 248.0 .and. tlev(iz) .lt. 294.0)THEN tdum = (NO2_QUANT_298K(iw)-NO2_QUANT_248K(iw)) & * (tlev(iz)-248.0)/50.0 NO2_QUANT(iw,iz) = NO2_QUANT_248K(iw) & + tdum ELSEIF(tlev(iz) .le. 248.0)THEN NO2_QUANT(iw,iz) = NO2_QUANT_248K(iw) ENDIF NO2_QUANT(iw,iz) = MIN(MAX(NO2_QUANT(iw,iz), 0.0), 1.0) C if(iz .eq. 1)then C write(6,2222),TLEV(IZ),' wv = ',wc(iw),' NO2_XCROSS = ', C & NO2_XCROSS(iw,iz),' NO2_QUANT = ', C & NO2_QUANT(iw,iz) C2222 format('temp = ',f6.1,A,f6.1,A,ES12.4,A,ES12.4) C endif ENDDO ENDDO CALL JHCHO_NASA_2006(nw,wl,wc,nz,tlev,dens, HCHO_XCROSS, & HCHO_QUANTR, HCHO_QUANTM) CALL NASA_NO3_QUANTAS(nw,wl,wc,nz,tlev,dens,QYNO3_NO, & QYNO3_NO2) sq = 0.0 SELECT CASE( JLABEL ) CASE( 'IC3ONO2' , 'NTR_IUPAC04' ) DO iw = 1, nw-1 DO iz = 1, nz IF((wc(iw) .GE. 240.) .AND. (wc(iw) .Le. 340.))THEN if( tlev(iz) .lt. 360.0 .and. tlev(iz) .gt. 233.0)then sig = IC3ONO2_XCROSS_298K(iw) & * EXP(IC3ONO2_XCROSS_EXP(iw)*(tlev(iz)-298.0)) elseif( tlev(iz) .le. 240.0)then sig = IC3ONO2_XCROSS_298K(iw) & * EXP(IC3ONO2_XCROSS_EXP(iw)*(-58.0)) elseif( tlev(iz) .ge. 360.)then sig = IC3ONO2_XCROSS_298K(iw) & * EXP(IC3ONO2_XCROSS_EXP(iw)*(62.0)) endif ELSE sig = IC3ONO2_XCROSS_298K(iw) ENDIF sq(iz, iw) = sig*qy(iw) C if(iz .eq. 1)then C write(6,2222),TLEV(IZ),' wv = ',wc(iw), C & ' IC3ONO2_XCROSS = ',sig C2222 format('temp = ',f6.1,A,f6.1,A,ES12.4,A,ES12.4) C endif ENDDO ENDDO C stop C print*,'XC_QY_TD_EFFECT: set sq for ',jlabel CASE( 'NO2-06' ) ! 'NO2 -> NO + O(3P)' DO iw = 1, nw-1 DO i = 1, nz sq(i, iw) = NO2_XCROSS(iw,i)*NO2_QUANT(iw,i) ENDDO ENDDO C print*,'XC_QY_TD_EFFECT: set sq for ',jlabel CASE( 'N2O5_IUPAC04' ) DO iw = 1, nw-1 DO i = 1, nz tdum = MAX(195.0, MIN(tlev(i), 300.0)) alpha = N2O5_XCROSS_EXP(iw)*(1.0/tdum - 1.0/298.0) sig = N2O5_XCROSS_298K(iw) & * EXP( alpha ) sq(i,iw) = sig*QY(iw) ENDDO ENDDO C print*,'XC_QY_TD_EFFECT: set sq for ',jlabel CASE( 'NO2EX' ) ! 'NO2 -> NO2(excited)' DO iw = 1, nw-1 DO i = 1, nz sq(i, iw) = NO2_XCROSS(iw,i) & * (1.0 - NO2_QUANT(iw,i)) ENDDO ENDDO C print*,'XC_QY_TD_EFFECT: set sq for ',jlabel CASE( 'HNO4-06', 'HO2NO2_IUPAC04' ) ! 'HNO4 -> HO2 + NO2' DO iw = 1, nw-1 DO i = 1, nz qdum = 1.0 if(HO2NO2_XCROSS_A1(iw).gt. 0.0 & .and. HO2NO2_XCROSS_A2(iw) .gt. 0.0)then tdum = 1.0+EXP(-988.0/(0.69*tlev(i))) sq(i, iw) = (HO2NO2_XCROSS_A1(iw)/tdum & + HO2NO2_XCROSS_A2(iw)*(1.0-1.0/tdum)) & * qdum else sq(i, iw) = HO2NO2_XCROSS_296K(iw)*qdum endif ENDDO ENDDO C print*,'XC_QY_TD_EFFECT: set sq for ',jlabel CASE( 'NO3NO-06') ! 'NO3 -> NO + O2' DO iw = 1, nw - 1 DO i = 1, nz tdum = (1.0-exp(-1096.4/tlev(i)) & - 2.0*exp(-529.5/tlev(i))) & / (1.0-exp(-1096.4/298.0) & - 2.0*exp(-529.5/298.0)) sq(i, iw) = xc(iw)*tdum*QYNO3_NO(iw,i) ENDDO ENDDO C print*,'XC_QY_TD_EFFECT: set sq for ',jlabel CASE( 'CLONO2-2' ) ! 'ClONO2 -> Cl + NO3' DO iw = 1, nw-1 DO iz = 1, nz sq(iz, iw) = CLONO2_XCROSS(iw,iz)*qy(iw) ENDDO ENDDO C print*,'XC_QY_TD_EFFECT: set sq for ',jlabel CASE( 'CLONO2-1' ) ! 'ClONO2 -> ClO + NO2' DO iw = 1, nw-1 DO iz = 1, nz sq(iz, iw) = CLONO2_XCROSS(iw,iz)*qy(iw) ENDDO ENDDO C print*,'XC_QY_TD_EFFECT: set sq for ',jlabel CASE( 'CCHO_R' ) ! 'CH3CHO -> CH3 + HCO' DO iw = 1, nw - 1 DO i = 1, nz qdum = qy(iw) & * (1. + CCHO_YIELD_COEFF(iw)) & / (1. + CCHO_YIELD_COEFF(iw)*dens(i)/2.465E19) sq(i, iw) = xc(iw)*qdum C if(i.eq.1)print*,dens(i),tlev(i),wl(iw),qy(iw),qdum ENDDO ENDDO C STOP C print*,'XC_QY_TD_EFFECT: set sq for ',jlabel CASE( 'PAN', 'PAN_IUPAC04' ) ! 'PAN + hv -> PRODUCTS' qdum = 1.0 DO iw = 1, nw - 1 DO i = 1, nz sig = PAN_XCROSS(iw) & * EXP(PAN_XCROSS_B(iw)*(tlev(i)-298.0)) sq(i, iw) = sig*qdum C if(i.eq.1)print*,dens(i),tlev(i),wl(iw),xc(iw),sig C if(i .eq. 1)then C write(6,2222),TLEV(I),' wv = ',wc(iw), C & ' PAN_XCROSS = ',sig, C & ' XCROSS_FACTOR = ', C & EXP(PAN_XCROSS_B(iw)*(tlev(i)-298.0)) C2222 format('temp = ',f6.1,A,f6.1,A,ES12.4,A,ES12.4) C endif ENDDO ENDDO C print*,'XC_QY_TD_EFFECT: set sq for ',jlabel C stop CASE( 'C2CHO' ) ! 'C2H5CHO -> C2H5 + HCO' DO iw = 1, nw - 1 DO i = 1, nz IF (qy(iw) .LT. 1.0E-5) THEN qdum = 0.0 ELSE qdum = 1.0 & / (1.0 + (1.0/qy(iw) - 1.0) & * dens(i)/2.45e19) ENDIF qdum = MIN(qdum,1.0) sq(i, iw) = xc(iw)*qdum C if(i.eq.10)print*,tlev(i),wl(iw),qy(iw),qdum ENDDO ENDDO C STOP C print*,'XC_QY_TD_EFFECT: set sq for ',jlabel CASE( 'NO3NO2-6') ! 'NO3 -> NO2 + O(3P)' DO iw = 1, nw - 1 DO i = 1, nz tdum = (1.0-exp(-1096.4/tlev(i)) & - 2.0*exp(-529.5/tlev(i))) & / (1.0-exp(-1096.4/298.0) & - 2.0*exp(-529.5/298.0)) sq(i, iw) = xc(iw)*tdum*QYNO3_NO2(iw,i) ENDDO ENDDO C print*,'XC_QY_TD_EFFECT: set sq for ',jlabel CASE( 'HNO3', 'HNO3_IUPAC04' ) DO iw = 1, nw-1 DO iz = 1, nz C IF((wc(iw) .GT. 192.0) .AND. (wc(iw) .LT. 350.))THEN sig = HNO3_XCROSS_298K(iw) & * EXP(HNO3_XCROSS_EXP(iw)*(tlev(iz)-298.0)) C ELSE C sig = yg1(iw) C ENDIF ! assumes a quantum yield equal to one sq(iz, iw) = sig C if(iz .eq. 1)then C write(*,'(f6.2,1X,A6,f6.2,A12,ES12.4,A,f6.2)'),TLEV(IZ), C & ' wv = ',wc(iw),' HNO3_XCROSS = ', C & sig,' Interpolated HNO3_QUANT = ',qy(iw) C endif ENDDO ENDDO C print*,'XC_QY_TD_EFFECT: set sq for ',jlabel C stop CASE( 'MVK-06') * quantum yield from * Gierczak, T., J. B. Burkholder, R. K. Talukdar, A. Mellouki, S. B. Barone, * and A. R. Ravishankara, Atmospheric fate of methyl vinyl ketone and methacrolein, * J. Photochem. Photobiol A: Chemistry, 110 1-10, 1997. * depends on pressure and wavelength, set upper limit to 1.0 C However, chamber evaluations for SAPRC07T require a pressure correction where C number density coefficient is five times higher. DO iw = 1, nw - 1 DO i = 1, nz sig = exp(-0.055*(wc(iw)-308.)) / $ (5.5 + 5.0*9.2e-19*dens(i)) sig = min(sig, 1.) sq(i, iw) = xc(iw)* sig C if(i.eq.1)print*,wc(iw),exp(-0.055*(wc(iw)-308.)), C & dens(i),(5.5 + 5.0*9.2e-19*dens(i)), C & sig ENDDO ENDDO C print*,'XC_QY_TD_EFFECT: set sq for ',jlabel CASE( 'MACR-06') * quantum yield based on 2.76 times MVK from * Gierczak, T., J. B. Burkholder, R. K. Talukdar, A. Mellouki, S. B. Barone, * and A. R. Ravishankara, Atmospheric fate of methyl vinyl ketone and methacrolein, * J. Photochem. Photobiol A: Chemistry, 110 1-10, 1997. * depends on pressure and wavelength, set upper limit to 1.0 C However, chamber evaluations for SAPRC07T require a pressure correction where C number density coefficient is five times higher. DO iw = 1, nw - 1 DO i = 1, nz sig = 2.76*exp(-0.055*(wc(iw)-308.)) / $ (5.5 + 5.0*9.2e-19*dens(i)) sig = min(sig, 1.) sq(i, iw) = xc(iw)* sig C if(i.eq.1)print*,wc(iw),exp(-0.055*(wc(iw)-308.)), C & dens(i),(5.5 + 5.0*9.2e-19*dens(i)), C & sig ENDDO ENDDO C print*,'XC_QY_TD_EFFECT: set sq for ',jlabel CASE( 'MEK-06') * Quantum Yields from * Raber, W.H. (1992) PhD Thesis, Johannes Gutenberg-Universitaet, Mainz, Germany. * other channels assumed negligible (less than 10%). * Total quantum yield = 0.38 at 760 Torr. but Carter * adjusts to 0.175 based on chamber tests and sets the values in * mechanism definition file. * Stern-Volmer form given: 1/phi = 0.96 + 2.22e-3*P(torr) * compute local pressure in torr DO iw = 1, nw-1 C print*, jlabel(j),xc(iw),qy(iw) DO i = 1, nz ! ptorr = (760.*dens(i)/2.69e19) ! ptorr = (1.03547E-19*dens(i)*tlev(i)) PRESSURE = (1.03547E-19*dens(i)*tlev(i)) ! torr ! sig = 1.0 ! (0.96 + 2.22E-3*760.0) ! & / (0.96 + 2.22E-3*(1.03547E-19*dens(i)*tlev(i))) IF( PRESSURE .lt. 181.0 )THEN qdum = 1.0 sig = 2.645 & / (0.96 + 2.22E-3*(181.0)) ELSE sig = 2.645 & / (0.96 + 2.22E-3*PRESSURE) qdum = 1.0 & / (0.96 + 2.22E-3*PRESSURE) ENDIF C sig = MIN(sig, 1.0)/2.649078 sq(i, iw) = xc(iw)* sig C print*,sig,2.22E-3*1.03547E-19*dens(i)*tlev(i)+0.96, C & 2.22E-3*(760.*dens(i)/2.69e19)+0.96 ENDDO ENDDO C print*,'XC_QY_TD_EFFECT: set sq for ',jlabel CASE( 'H2O2', 'H2O2_SAPRC99' ) DO i = 1, nz DO iw = 1, nw IF(wc(iw) .GE. 260.0 .AND. wc(iw) .LT. 350.0) THEN CALL JH2O2_260t350nm(wc(iw),tlev(i),dens(i), & sig,qdum) ! qdum = 1.0 ELSE sig = xc(iw) qdum = qy(iw) ENDIF sq(i, iw) = sig*qdum ! if(i .eq. 1)then ! write(6,2222),TLEV(IZ),' wv = ',wc(iw), ! & ' H2O2_XCROSS = ',sig, ! & ' H2O2_QUANT = ',qdum !2222 format('temp = ',f6.1,A,f6.1,A,ES12.4,A,ES12.4) ! endif ENDDO ENDDO C print*,'XC_QY_TD_EFFECT: set sq for ',jlabel CASE( 'MGLY-06' , 'BACL-07', 'MGLY_IUPAC04' ) C print*,jlabel DO iw = 1, nw-1 C qy(iw) = MIN( qy(iw), 1.0) C qy(iw) = MAX( qy(iw), 0.0) DO i = 1, nz PRESSURE = (1.03547E-19*dens(i)*tlev(i)) ! torr PRESSURE = MIN(472.0, PRESSURE) qy(iw) = MIN( qy(iw), 1.0) qy(iw) = MAX( qy(iw), 0.0) C Pressure dependence based on Koch and Moortgat (1998), C J. Phys. Chem. A, vol 102, pages 9142. The application contradicts C NASA (2006) & IUPAC (2005) and is used based recommendations for C SAPRC07T photolysis rates by William Carter (2009) IF(wc(iw) .LT. 500.0 .AND. wc(iw) .gt. 240.0)THEN IF( qy(iw) .GT. 0.0 .AND. qy(iw) .LT. 1.0)THEN qdum = 1.36e8*(472.0)*EXP(-8793/wc(iw)) & / ( 1.0/qy(iw) - 1.0 ) sig = qdum & /(qdum+1.36e8*EXP(-8793/wc(iw))*PRESSURE) ENDIF ELSEIF(wc(iw) .le. 240.0)THEN sig = qy(iw) ELSEIF(wc(iw) .ge. 500.0)THEN sig = 0.0 ENDIF C sig = qy(iw) sq(i, iw) = xc(iw)*sig C if(wc(iw).lt.290 .and. wc(iw) .gt. 285.)then C print*,pressure,wc(iw),xc(iw),qy(iw), C & sig,sq(iz, iw) C endif ENDDO ENDDO C print*,'XC_QY_TD_EFFECT: set sq for ',jlabel C stop CASE( 'ACRO-09', 'ACROLEIN_SAPRC99') DO iw = 1, nw-1 DO i = 1, nz qy(iw) = MIN( qy(iw), 1.0) qy(iw) = MAX( qy(iw), 0.0) C Number density dependence based on Gardner et. al (1997), C J. Phys. Chem., vol 91, pages 1922. The application uses C the quantum yields set in in cross-section file. For C SAPRC07T, yields set approximation four times NASA (2006) C because the mechanism developer sums over all possible channels and C Gardner et. al may support this conclusion. IF(dens(i) .ge. 8.0e+17)THEN qdum = (4.0E-3+1.0/(8.6E-2+1.613E-17*dens(i))) & / 0.006384 ELSEIF(dens(i) .lt. 8.0e+17)THEN qdum = 12.00713 ENDIF sig = qy(iw)*qdum C sig = qy(iw) sq(i, iw) = xc(iw)*sig C if(i .eq. 1 .and. (wc(iw).lt.290 .and. wc(iw) .gt. 285.))then C if(i .eq. 1 )then C print*,wc(iw),xc(iw),qy(iw),qdum, C & sig,sq(iz, iw) C endif ENDDO ENDDO C print*,'XC_QY_TD_EFFECT: set sq for ',jlabel CASE( 'HCHOR-06', 'HCHO_R_SAPRC99' ) ! 'CH2O -> H + HCO' DO iw = 1, nw-1 DO iz = 1, nz if( jlabel .eq. 'HCHOR-06' )then sq(iz, iw) = HCHO_XCROSS(iw,iz)*HCHO_QUANTR(iw,iz) else sq(iz, iw) = HCHO_XCROSS(iw,iz)*qy(iw) endif C if(iz .eq. 1)then C write(6,2222),TLEV(IZ),' wv = ',wc(iw), C & ' HCHO_XCROSS = ',HCHO_XCROSS(iw,iz), C & ' HCHOR_QUANT = ',HCHO_QUANTR(iw,iz) C2222 format('temp = ',f6.1,A,f6.1,A,ES12.4,A,ES12.4) C endif ENDDO ENDDO C stop C print*,'XC_QY_TD_EFFECT: set sq for ',jlabel CASE( 'HCHOM-06', 'HCHO_M_SAPRC99' ) ! 'CH2O -> H2 + CO' DO iw = 1, nw-1 DO iz = 1, nz if( jlabel .eq. 'HCHOM-06' )then sq(iz, iw) = HCHO_XCROSS(iw,iz)*HCHO_QUANTM(iw,iz) else sq(iz, iw) = HCHO_XCROSS(iw,iz)*qy(iw) endif ENDDO ENDDO C print*,'XC_QY_TD_EFFECT: set sq for ',jlabel CASE( 'O3O1D-06', 'O3_O1D_IUPAC04') ! 'O3 -> O2 + O(1D)' DO iw = 1, nw-1 DO iz = 1, nz sq(iz, iw) = O3_XCROSS(iw,iz)*O3_QUANT(iw,iz) ENDDO ENDDO C print*,'XC_QY_TD_EFFECT: set sq for ',jlabel CASE( 'O3O3P-06', 'O3_O3P_IUPAC04' ) ! 'O3 -> O2 + O(3P)' DO iw = 1, nw-1 DO iz = 1, nz sq(iz, iw) = O3_XCROSS(iw,iz) & * (1.0 - O3_QUANT(iw,iz)) ENDDO ENDDO C print*,'XC_QY_TD_EFFECT: set sq for ',jlabel CASE( 'ACET-06' ) ! 'CH3COCH3 -> products' DO iw = 1, nw-1 DO iz = 1, nz sig = (XC_D_ACETONE(IW) & + XC_A_ACETONE(IW)*tlev(iz) & + XC_B_ACETONE(IW)*tlev(iz)**2 & + XC_C_ACETONE(IW)*tlev(iz)**3) & * XCROSS_ACETONE_298K( IW ) sig = XCROSS_ACETONE_298K( IW ) qdum = QY_ACETONE(tlev(iz),dens(iz),wc(iw)) C qdum = QY_ACETONE_TUV(tlev(iz),dens(iz),wc(iw)) sq(iz, iw) = sig*qdum C if(iz .eq. 1)then C write(6,2222),TLEV(IZ),' wv = ',wc(iw), C & ' ACETONE_XCROSS = ',sig, C & ' ACETONE_QUANT = ',qdum C2222 format('temp = ',f6.1,A,f6.1,A,ES12.4,A,ES12.4) C endif ENDDO ENDDO C print*,'XC_QY_TD_EFFECT: set sq for ',jlabel C CASE( 'CL2', 'CL2_IUPAC04' ) ! NASA (2006) and IUPAC(2005) recommended cross-section as a function of ! wavelength and temperature taken from ! D. Maric et al. (1993) J. Photochem. Photobiol. A: Chem. 70, 205. DO iw = 1, nw-1 DO iz = 1, nz tdum = tlev(iz) if(tlev(iz) .gt. 300.0)then tdum = 300.0 elseif(tlev(iz) .lt. 195.0)then tdum = 195.0 else tdum = tlev(iz) endif alpha = TANH(470.676/tdum) if(wc(iw) .gt. 550.0)then sig = 0.0 elseif(wc(iw) .lt. 250.0)then sig = 0.0 else wdum = wc(iw) sig = sqrt(alpha) & * (27.3 *exp(-99.0*alpha*(log(329.5/wdum))**2) & + 0.932*exp(-91.5*alpha*(log(406.5/wdum))**2)) endif ! IUPAC (2005) and NASA (2006) recommend quantum yield equal to one when ! cross-section is nonzero sq(iz, iw) = 1.0E-20*sig ! if(iz .eq. 1)then ! write(*,'(f6.2,1X,A6,f6.2,A12,ES12.4,A,f6.2)'),TLEV(IZ), ! & ' wv = ',wc(iw),' CL2_XCROSS = ', ! & sig,' Interpolated CL2_QUANT = ',qy(iw) ! endif ENDDO ENDDO C print*,'XC_QY_TD_EFFECT: set sq for ',jlabel CASE DEFAULT C print*,' using default case for ',jlabel DO iw = 1, nw-1 DO iz = 1, nz sq(iz, iw) = xc(iw)*qy(iw) ENDDO ENDDO END SELECT C DO iw = 1, nw C DO iz = 1, nz C sq(iz, iw) = xc(iw)*qy(iw) C ENDDO C ENDDO FIRSTCALL = .FALSE. **************************************************************** C pause RETURN END C FUNCTION OZONE_YIELD(w,t) *-----------------------------------------------------------------------------* *= taken from Tropospheric Ultraviolet-Visible (TUV) radiation model =* *= Version 4.5 =* *= Sep 2007 =* *-----------------------------------------------------------------------------* *= PURPOSE: =* * function to calculate the quantum yield O3 + hv -> O(1D) + O2, =* * according to: * Matsumi, Y., F. J. Comes, G. Hancock, A. Hofzumanhays, A. J. Hynes, * M. Kawasaki, and A. R. Ravishankara, QUantum yields for production of O(1D) * in the ultraviolet photolysis of ozone: Recommendation based on evaluation * of laboratory data, J. Geophys. Res., 107, 10.1029/2001JD000510, 2002. *-----------------------------------------------------------------------------* *= TUV model developed by Sasha Madronich with important contributions from: =* *= Chris Fischer, Siri Flocke, Julia Lee-Taylor, Bernhard Meyer, =* *= Irina Petropavlovskikh, Xuexi Tie, and Jun Zen. =* *= To contact the author, write to: =* *= Sasha Madronich, NCAR/ACD, P.O.Box 3000, Boulder, CO, 80307-3000, USA or =* *= send email to: sasha@ucar.edu or tuv@acd.ucar.edu =* *-----------------------------------------------------------------------------* *= This program is free software; you can redistribute it and/or modify =* *= it under the terms of the GNU General Public License as published by the =* *= Free Software Foundation; either version 2 of the license, or (at your =* *= option) any later version. =* *= The TUV package is distributed in the hope that it will be useful, but =* *= WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTIBI- =* *= LITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public =* *= License for more details. =* *= To obtain a copy of the GNU General Public License, write to: =* *= Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. =* *-----------------------------------------------------------------------------* *= Copyright (C) 1994,95,96,97,98,99,2000,01,02,03, 04, 05, 06, 07 =* *= by the University Corporation for Atmospheric Research =* *-----------------------------------------------------------------------------* IMPLICIT NONE REAL w ! wavelength, nm REAL t ! temperature, deg K REAL OZONE_YIELD ! dimensionaless C local variables REAL kt REAL A(3), X(3), om(3) REAL q1, q2 DATA A/ 0.8036, 8.9061, 0.1192/ DATA X/ 304.225, 314.957, 310.737/ DATA om/ 5.576, 6.601, 2.187/ OZONE_YIELD = 0. kt = 0.695 * t q1 = 1. q2 = exp(-825.518/kt) IF(w .LE. 305.) THEN OZONE_YIELD = 0.90 ELSEIF(w .GT. 305. .AND. w .LE. 328.) THEN OZONE_YIELD = 0.0765 + $ a(1)* (q1/(q1+q2))*EXP(-((x(1)-w)/om(1))**4)+ $ a(2)*(T/300.)**2 *(q2/(q1+q2))*EXP(-((x(2)-w)/om(2))**2)+ $ a(3)*(T/300.)**1.5 *EXP(-((x(3)-w)/om(3))**2) ELSEIF(w .GT. 328. .AND. w .LE. 340.) THEN OZONE_YIELD = 0.08 ELSEIF(w .GT. 340.) THEN OZONE_YIELD = 0. ENDIF END *=============================================================================* SUBROUTINE JH2O2_260t350nm(wc,temp,airden,xcross,quant) *-----------------------------------------------------------------------------* *= taken from Tropospheric Ultraviolet-Visible (TUV) radiation model =* *= Version 4.5 =* *= Sep 2007 =* *-----------------------------------------------------------------------------* *= PURPOSE: =* *= Provide cross section and quantum yield for H2O2 photolysis =* *= H2O2 + hv -> 2 OH between 260 and 350 nm =* *= Otherwise use Cross section from JPL97, tabulated values @ 298K *= Quantum yield: Assumed to be unity =* *-----------------------------------------------------------------------------* *= PARAMETERS: =* *= WC - REAL, center points of wavelength interval (I)=* *= TLEV - REAL, temperature (K) at altitude level (I)=* *= AIRDEN - REAL, air density (molec/cc) at altitude level (I)=* *= xcross - cross section (cm^2) for each (IO)=* *= photolysis reaction defined, at input wavelength and =* *= at defined altitude level =* *= quant - quantum yield for each (IO)=* *= photolysis reaction defined, at input wavelength and =* *= at defined altitude level =* *= JLABEL - CHARACTER*50, string identifier for each photolysis reaction (L)=* *= defined =* *-----------------------------------------------------------------------------* IMPLICIT NONE * input INTEGER nw REAL wc INTEGER nz REAL temp REAL airden * weighting functions CHARACTER*50 jlabel REAL xcross,quant * local REAL yg REAL qy REAL a0, a1, a2, a3, a4, a5, a6, a7 REAL b0, b1, b2, b3, b4 REAL xs REAL t INTEGER i, iw, n, idum INTEGER ierr REAL lambda REAL sumA, sumB, chi **************** H2O2 photodissociation * cross section from Lin et al. 1978 jlabel = 'H2O2 ' ! 'H2O2 -> 2 OH' A0 = 6.4761E+04 A1 = -9.2170972E+02 A2 = 4.535649 A3 = -4.4589016E-03 A4 = -4.035101E-05 A5 = 1.6878206E-07 A6 = -2.652014E-10 A7 = 1.5534675E-13 B0 = 6.8123E+03 B1 = -5.1351E+01 B2 = 1.1522E-01 B3 = -3.0493E-05 B4 = -1.0924E-07 * quantum yield = 1 qy = 1.0 xs = 0.0 * Parameterization (JPL06) * Range 260-350 nm; 200-400 K IF ((wc .GE. 260.) .AND. (wc .LT. 350.)) THEN lambda = wc sumA = ((((((A7*lambda + A6)*lambda + A5)*lambda + > A4)*lambda +A3)*lambda + A2)*lambda + > A1)*lambda + A0 sumB = (((B4*lambda + B3)*lambda + B2)*lambda + > B1)*lambda + B0 t = MIN(MAX(temp,200.),400.) chi = 1./(1.+EXP(-1265./t)) xs = (chi * sumA + (1.-chi)*sumB)*1E-21 ENDIF xcross = xs quant = qy RETURN END SUBROUTINE JHCHO_NASA_2006(nw,wl,wc,nz,tlev,airden, xcross, & quantr, quantm) *-----------------------------------------------------------------------------* *= PURPOSE: =* *= Provide cross section and quantum yields for CH2O photolysis =* *= (a) CH2O + hv -> H + HCO =* *= (b) CH2O + hv -> H2 + CO =* *= Based on recommendations from NASA JPL (2006) *-----------------------------------------------------------------------------* *= PARAMETERS: =* *= NW - INTEGER, number of specified intervals + 1 in working (I)=* *= wavelength grid =* *= WL - REAL, vector of lower limits of wavelength intervals in (I)=* *= working wavelength grid =* *= WC - REAL, vector of center points of wavelength intervals in (I)=* *= working wavelength grid =* *= NZ - INTEGER, number of altitude levels in working altitude grid (I)=* *= TLEV - REAL, temperature (K) at each specified altitude level (I)=* *= AIRDEN - REAL, air density (molec/cc) at each altitude level (I)=* *= J - INTEGER, counter for number of weighting functions defined (IO)=* *= SQ - REAL, cross section x quantum yield (cm^2) for each (O)=* *= photolysis reaction defined, at each defined wavelength and =* *= at each defined altitude level =* *= JLABEL - CHARACTER*50, string identifier for each photolysis reaction (O)=* *= defined =* *-----------------------------------------------------------------------------* USE JPROC_PHOT_DATA IMPLICIT NONE INTEGER kdata PARAMETER(kdata=16000) * input INTEGER nw REAL wl(kw), wc(kw) INTEGER nz REAL tlev(kz) REAL airden(kz) * weighting functions CHARACTER*50 jlabel(1) REAL xcross(kw,kz) REAL quantr(kw,kz), quantm(kw,kz) * input/output: INTEGER j, iz, iw * data arrays INTEGER n real x(kdata), y(kdata) real xl(kdata), xc(kdata), xu(kdata) INTEGER n1, n2, n3, n4, n5 REAL x1(kdata), x2(kdata), x3(kdata), x4(kdata), x5(kdata) REAL y1(kdata), y2(kdata), y3(kdata), y4(kdata), y5(kdata) * local REAL yg(kw), yg1(kw), yg2(kw), yg3(kw), yg4(kw), yg5(kw) REAL a, b, c REAL a0, a1, a2, a3, a4, a5, a6, a7 REAL b0, b1, b2, b3, b4 REAL qy, qy1, qy2, qy3 REAL sigma, sig, slope REAL xs REAL t REAL dum INTEGER idum INTEGER i INTEGER irow, icol, irev INTEGER ierr INTEGER mopt1, mopt2 CHARACTER(LEN=120) :: FILE_LINE LOGICAL EXISTS LOGICAL :: FIRSTCALL = .TRUE. REAL wu(kw) REAL PRESSURE REAL phi1, phi2, phi20, ak300, akt real tdum *_______________________________________________________________________ DO 5, iw = 1, nw - 1 wc(iw) = (wl(iw) + wl(iw+1))/2. 5 CONTINUE C HCHO photodissociatation j = 1 jlabel(j) = 'HCHOR-06 ' ! 'CH2O -> H + HCO' j = j+1 jlabel(j) = 'HCHOM-06 ' ! 'CH2O -> H2 + CO' do i = 1, nw-1 ! compute upper limit of wavelength bins wu(i) = 2.0*wc(i) - wl(i) enddo wu(nw)=wu(nw-1)+2*(wc(nw-1) - wl(nw-1)) ! INQUIRE(FILE='DATAJ1/JPROC_CSQY/NASA_2006-HO2NO2_photolysis.dat', ! & EXIST=exists) ! IF( .NOT. EXISTS)THEN ! print*,' NASA_2006-HCHO_photolysis.dat not found ' ! stop ! else C print*,' NASA_2006-HO2NO2_photolysis.dat found ' ! endif ! OPEN(UNIT=kin, ! & FILE='DATAJ1/JPROC_CSQY/NASA_2006-HCHO_photolysis.dat', ! & STATUS='old') ! print*,'trying to read NASA HCHO data' ! DO i = 1, 6 ! read(kin,'(a)', err = 3045)FILE_LINE ! IF(i .lt. 6 .AND. FIRSTCALL)WRITE(UNIT_BLOCK,'(a)')FILE_LINE C print*,file_line ! ENDDO C i = 1 C read(kin,'(a)', err = 3013)FILE_LINE C read(FILE_LINE,*)x1(i),y1(i),y2(i),y3(i) C print*,x1(i),y1(i),y2(i),y3(i), n = 150 ! DO i = 1, n ! read(kin,'(a)',err = 3045)FILE_LINE ! IF(FILE_LINE(1:4) .EQ. '!END')THEN ! print*,'ERROR: in file: ' ! print*,'DATAJ1/JPROC_CSQY/NASA_2006-HCHO_photolysis.dat' ! print*,'Expect numerical input, but read,' ! print*,FILE_LINE ! STOP ! ELSE ! read(FILE_LINE,*)x1(i),y1(i),y2(i) C print*,x1(i),y1(i),y2(i),y3(i) ! ! ENDIF ! ENDDO ! CALL INTAVG (x1, y1, n, 'C', wl, wu, yg1, nw) ! CALL INTAVG (x1, y2, n, 'C', wl, wu, yg2, nw) ! IF(FIRSTCALL)THEN ! y1 = 1.0e-20*y1 ! y2 = 1.0e-24*y2 ! ! CALL INTAVG (WV_HCHO_XC, HCHO_XC_300K, N_HCHO_XC, ! & 'C', wl, wu, HCHO_XCROSS_300K, nw) ! CALL INTAVG (WV_HCHO_XC, HCHO_XC_A, N_HCHO_XC, ! & 'C', wl, wu, HCHO_XCROSS_A, nw) ! CALL WRBF12D_HEADER (UNIT_BLOCK,5,N,x1,'N_HCHO_XC', ! & 'WV_HCHO_XC','E') ! CALL WRBF12D_HEADERB(UNIT_BLOCK,5,N,y1,'N_HCHO_XC', ! & 'HCHO_XC_300K','E') ! CALL WRBF12D_HEADERB(UNIT_BLOCK,5,N,y2,'N_HCHO_XC', ! & 'HCHO_XC_A','E') ! ENDIF yg1 = 1.0e-20*yg1 yg2 = 1.0e-24*yg2 C pause ! DO i = 1, 7 ! read(kin,'(a)', err = 3045)FILE_LINE ! IF(i .lt. 7 .AND. FIRSTCALL)WRITE(UNIT_BLOCK,'(a)')FILE_LINE C print*,file_line ! ENDDO n = 112 ! DO i = 1, n ! read(kin,'(a)',err = 3045)FILE_LINE ! IF(FILE_LINE(1:4) .EQ. '!END')THEN ! print*,'ERROR: in file: ' ! print*,'DATAJ1/JPROC_CSQY/NASA_2006-HCHO_photolysis.dat' ! print*,'Expect numerical input, but read,' ! print*,FILE_LINE ! STOP ! ELSE ! read(FILE_LINE,*)x1(i),y1(i),y2(i) C print*,x1(i),y1(i),y2(i) ! ENDIF ! ENDDO ! CALL INTAVG (x1, y1, n, 'C', wl, wu, yg3, nw) ! CALL INTAVG (x1, y2, n, 'C', wl, wu, yg4, nw) ! IF(FIRSTCALL)THEN ! CALL WRBF12D_HEADER (UNIT_BLOCK,5,N,x1,'N_HCHO_QY', ! & 'WV_HCHO_QY','E') ! CALL WRBF12D_HEADERB(UNIT_BLOCK,5,N,y1,'N_HCHO_QY', ! & 'HCHO_QYR','E') ! CALL WRBF12D_HEADERB(UNIT_BLOCK,5,N,y2,'N_HCHO_QY', ! & 'HCHO_QYM','E') ! CALL INTAVG (WV_HCHO_QY, HCHO_QYR, N_HCHO_QY, 'C', ! & wl, wu, HCHO_QUANTR_STP, nw) ! CALL INTAVG (WV_HCHO_QY, HCHO_QYM, N_HCHO_QY, 'C', ! & wl, wu, HCHO_QUANTM_STP, nw) ! ENDIF if( FIRSTCALL )THEN ! FIRSTCALL = .false. DO iw = 1, nw - 1 C write(6,'(i3,1X,f6.2,6(1x,es12.4))')iw,wc(iw), ! sig,qy1,qy2, C & HCHO_XC_300K(iw) ,HCHO_QUANTR_STP(iw),HCHO_QUANTM_STP(iw) tdum = 265.0 sig = HCHO_XCROSS_300K(iw) if(tdum .lt. 300.0 .and. tdum .gt. 195.0)then sig = sig + HCHO_XCROSS_A(iw)*(tdum-300.0) elseif( tlev(i) .le. 195.0)then sig = sig - HCHO_XCROSS_A(iw)*105.0 endif qy1 = HCHO_QUANTR_STP(iw) IF ( (wc(iw) .GE. 330.) .AND. (yg3(iw) .GT. 0.) ) THEN phi1 = HCHO_QUANTR_STP(iw) phi2 = HCHO_QUANTM_STP(iw) phi20 = 1. - phi1 ak300=((1./phi2)-(1./phi20)) ! is divided by 1 atm if( tdum .lt. 300.0 .and. tdum .gt. 220.0)then PRESSURE = 82.06*(airden(i)/6.02E+23)*tdum akt = ak300 & * (1.+0.05*(wc(iw)-329.0)*((tdum-80.0)/80.0)) elseif( tdum .le. 220.0)then PRESSURE = 3.0E-20*airden(i) akt = ak300 & * (1.+0.0875*(wc(iw)-329.0)) elseif( tdum .ge. 300)then PRESSURE = 4.09E-20*airden(i) akt = ak300 & * (1.+0.1375*(wc(iw)-329.0)) endif C print*,pressure, airden(i)/2.54E+19 C pause qy2 = 1. / ( (1./phi20) + pressure*akt) ELSE qy2 = HCHO_QUANTM_STP(iw) ENDIF qy2 = MAX(0.,qy2) qy2 = MIN(1.,qy2) C write(6,'(i3,1X,f6.2,6(1x,es12.4))')iw,wc(iw),sig,qy1,qy2, C & HCHO_XCROSS_300K(iw),HCHO_QUANTR_STP(iw), C & HCHO_QUANTM_STP(iw) ENDDO endif DO iw = 1, nw - 1 DO i = 1, nz sig = HCHO_XCROSS_300K(iw) if(tlev(i) .lt. 300.0 .and. tlev(i) .gt. 195.0)then sig = sig + HCHO_XCROSS_A(iw)*(tlev(i)-300.0) elseif( tlev(i) .le. 195.0)then sig = sig - HCHO_XCROSS_A(iw)*105.0 endif qy1 = HCHO_QUANTR_STP(iw) IF ( (wc(iw) .GE. 330.) .AND. (yg3(iw) .GT. 0.) ) THEN phi1 = HCHO_QUANTR_STP(iw) phi2 = HCHO_QUANTM_STP(iw) phi20 = 1. - phi1 ak300=((1./phi2)-(1./phi20)) ! is divided by 1 atm if( tlev(i) .lt. 300.0 .and. tlev(i) .gt. 220.0)then PRESSURE = 82.06*(airden(i)/6.02E+23)*tlev(i) akt = ak300 & * (1.+0.05*(wc(iw)-329.0)*((tlev(i)-80.0)/80.0)) elseif( tlev(i) .le. 220.0)then PRESSURE = 3.0E-20*airden(i) akt = ak300 & * (1.+0.0875*(wc(iw)-329.0)) elseif( tlev(i) .ge. 300.)then PRESSURE = 4.09E-20*airden(i) akt = ak300 & * (1.+0.1375*(wc(iw)-329.0)) endif C print*,pressure, airden(i)/2.54E+19 C pause qy2 = 1. / ( (1./phi20) + pressure*akt) ELSE qy2 = HCHO_QUANTM_STP(iw) ENDIF qy2 = MAX(0.,qy2) qy2 = MIN(1.,qy2) xcross(iw, i) = sig quantr(iw, i) = qy1 quantm(iw, i) = qy2 ENDDO ENDDO ! STOP RETURN 3045 print*,'ERROR: in file: ' print*,i,'DATAJ1/JPROC_CSQY/NASA_2006-HCHO_photolysis.dat' STOP END *=============================================================================* SUBROUTINE NASA_NO3_QUANTAS(nw,wl,wc,nz,tlev,airden,QYNO3_NO, & QYNO3_NO2) *-----------------------------------------------------------------------------* *= PURPOSE: =* *= Provide the quantum yield for =* *= both channels of NO3 photolysis: =* *= (a) NO3 + hv -> NO2 + O(3P) =* *= (b) NO3 + hv -> NO + O2 =* *-----------------------------------------------------------------------------* *= PARAMETERS: =* *= NW - INTEGER, number of specified intervals + 1 in working (I)=* *= wavelength grid =* *= WL - REAL, vector of lower limits of wavelength intervals in (I)=* *= working wavelength grid =* *= WC - REAL, vector of center points of wavelength intervals in (I)=* *= working wavelength grid =* *= NZ - INTEGER, number of altitude levels in working altitude grid (I)=* *= TLEV - REAL, temperature (K) at each specified altitude level (I)=* *= AIRDEN - REAL, air density (molec/cc) at each altitude level (I)=* *= J - INTEGER, counter for number of weighting functions defined (IO)=* *= SQ - REAL, cross section x quantum yield (cm^2) for each (O)=* *= photolysis reaction defined, at each defined wavelength and =* *= at each defined altitude level =* *= JLABEL - CHARACTER*50, string identifier for each photolysis reaction (O)=* *= defined =* *-----------------------------------------------------------------------------* USE JPROC_PHOT_DATA IMPLICIT NONE C INCLUDE 'params' * input INTEGER nw REAL wl(kw), wc(kw), wu(kw) INTEGER nz REAL tlev(kz) REAL airden(kz) * weighting functions CHARACTER*50 jlabel(1) REAL sq(1,kz,kw) * input/output: INTEGER j * data arrays INTEGER kdata PARAMETER(kdata=350) REAL x1(kdata) REAL y1(kdata),y2(kdata),y3(kdata) REAL z1(kdata),z2(kdata),z3(kdata) REAL qy1(kdata),qy2(kdata) REAL slope * local REAL yg(kw), yg1(kw), yg2(kw) REAL temp_adj(kz) REAL QYNO3_NO2(kw,kz),QYNO3_NO(kw,kz) REAL qy INTEGER irow, icol INTEGER i, iw, n, idum INTEGER ierr INTEGER mabs CHARACTER(LEN=120) :: FILE_LINE LOGICAL :: EXISTS LOGICAL, SAVE :: FIRSTCALL = .TRUE. * quantum yield: * for NO3 ->NO+O2 j = 0 j = j + 1 jlabel(j) = 'NO3NO-06 ' ! 'NO3 -> NO + O2' * for NO3 ->NO2+O j = j + 1 jlabel(j) = 'NO3NO2-6 ' ! 'NO3 -> NO2 + O(3P)' temp_adj = 1.0 DO i = 1, nz temp_adj(i) = (1.0-exp(-1096.4/tlev(i)) & - 2.0*exp(-529.5/tlev(i))) & / (1.0-exp(-1096.4/298.0) & - 2.0*exp(-529.5/298.0)) ENDDO do i = 1, nw-1 ! compute upper limit of wavelength bins wu(i) = 2.0*wc(i) - wl(i) enddo wu(nw)=wu(nw-1)+2*(wc(nw-1) - wl(nw-1)) ! INQUIRE(FILE='DATAJ1/JPROC_CSQY/NASA_2006-NO3_photolysis.dat', ! & EXIST=exists) ! IF( .NOT. EXISTS)THEN ! print*,' NASA_2006-NO3_photolysis.dat not found ' ! stop ! else C print*,' NASA_2006-NO3_photolysis.dat found ' ! endif ! OPEN(UNIT=kin, ! & FILE='DATAJ1/JPROC_CSQY/NASA_2006-NO3_photolysis.dat', ! & STATUS='old') ! DO i = 1, 5 ! read(kin,'(a)', err = 3013)FILE_LINE C IF( i .lt. 5 .AND. FIRSTCALL)write(UNIT_BLOCK,'(a)')FILE_LINE C print*,file_line ! ENDDO C i = 1 C read(kin,'(a)', err = 3013)FILE_LINE C read(FILE_LINE,*)x1(i),y1(i),y2(i),y3(i), C & z1(i),z2(i),z3(i) C print*,x1(i),y1(i),y2(i),y3(i), C & z1(i),z2(i),z3(i) ! n = 57 ! DO i = 1, n ! read(kin,'(a)',err = 3013)FILE_LINE ! IF(FILE_LINE(1:4) .EQ. '!END')THEN ! print*,'ERROR: in file: ' ! print*,'DATAJ1/JPROC_CSQY/NASA_2006-NO3_photolysis.dat' ! print*,'Expect numerical input, but read,' ! print*,FILE_LINE ! STOP ! ELSE ! read(FILE_LINE,*)x1(i),y1(i),y2(i),y3(i), ! & z1(i),z2(i),z3(i) C print*,x1(i),y1(i),y2(i),y3(i), C & z1(i),z2(i),z3(i) ! ENDIF ! ENDDO ! IF(FIRSTCALL)THEN ! CALL WRBF12D_HEADER (UNIT_BLOCK,5,N,x1,'N_NO3_QY', ! & 'WV_NO3_QY','E') ! CALL WRBF12D_HEADERB(UNIT_BLOCK,5,N,y1,'N_NO3_QY', ! & 'NO2NO_QY_298K','E') ! CALL WRBF12D_HEADERB(UNIT_BLOCK,5,N,z1,'N_NO3_QY', ! & 'NO2NO2_QY_298K','E') ! CALL WRBF12D_HEADERB(UNIT_BLOCK,5,N,y2,'N_NO3_QY', ! & 'NO2NO_QY_230K','E') ! CALL WRBF12D_HEADERB(UNIT_BLOCK,5,N,z2,'N_NO3_QY', ! & 'NO2NO2_QY_230K','E') ! CALL WRBF12D_HEADERB(UNIT_BLOCK,5,N,y3,'N_NO3_QY', ! & 'NO2NO_QY_190K','E') ! CALL WRBF12D_HEADERB(UNIT_BLOCK,5,N,z3,'N_NO3_QY', ! & 'NO2NO2_QY_190K','E') ! CALL INTAVG (WV_NO3_QY, NO2NO_QY_298K, N_NO3_QY, 'C', ! & wl, wu, NO3NO_QUANT_298K, nw) ! CALL INTAVG (WV_NO3_QY, NO2NO2_QY_298K, N_NO3_QY, 'C', ! & wl, wu, NO3NO2_QUANT_298K, nw) ! CALL INTAVG (WV_NO3_QY, NO2NO_QY_230K, N_NO3_QY, 'C', ! & wl, wu, NO3NO_QUANT_230K, nw) ! CALL INTAVG (WV_NO3_QY, NO2NO2_QY_230K, N_NO3_QY, 'C', ! & wl, wu, NO3NO2_QUANT_230K, nw) ! CALL INTAVG (WV_NO3_QY, NO2NO_QY_190K, N_NO3_QY, 'C', ! & wl, wu, NO3NO_QUANT_190K, nw) ! CALL INTAVG (WV_NO3_QY, NO2NO2_QY_190K, N_NO3_QY, 'C', ! & wl, wu, NO3NO2_QUANT_190K, nw) ! FIRSTCALL = .TRUE. ! ENDIF ! close(kin) DO i = 1, nz DO iw = 1, nw qy1(iw) = NO3NO_QUANT_298K(iw) qy2(iw) = NO3NO2_QUANT_298K(iw) IF(tlev(i) .lt. 298.0 .and. tlev(i) .ge. 230.0)THEN slope = (NO3NO_QUANT_298K(iw)-NO3NO_QUANT_230K(iw)) & / 68.0 qy1(iw) = NO3NO_QUANT_230K(iw) + slope*(tlev(i)-230.0) slope = (NO3NO2_QUANT_298K(iw)-NO3NO2_QUANT_230K(iw)) & / 68.0 qy2(iw) = NO3NO2_QUANT_230K(iw) + slope*(tlev(i)-230.0) ELSEIF(tlev(i) .lt. 230.0 .and. tlev(i) .ge. 190.0)THEN slope = (NO3NO_QUANT_230K(iw)-NO3NO_QUANT_190K(iw)) & / 40.0 qy1(iw) = NO3NO_QUANT_190K(iw) + slope*(tlev(i)-190.0) slope = (NO3NO2_QUANT_230K(iw)-NO3NO2_QUANT_190K(iw)) & / 40.0 qy2(iw) = NO3NO2_QUANT_190K(iw) + slope*(tlev(i)-190.0) ELSEIF( tlev(i) .lt. 190)THEN qy1(iw) = NO3NO_QUANT_190K(iw) qy2(iw) = NO3NO2_QUANT_190K(iw) ENDIF C if(i.eq.1)print*,tlev(i),x1(iw),QY1(iw),QY2(iw) ENDDO DO iw = 1, nw QYNO3_NO(iw,i) = qy1(iw)*0.001 if(wl(iw) .le. WV_NO3_QY(1))then QYNO3_NO(iw,i) = NO3NO_QUANT_298K(1)*0.001 QYNO3_NO2(iw,i) = NO3NO2_QUANT_298K(1)*0.001 else QYNO3_NO2(iw,i) = qy2(iw)*0.001 endif C if(i.eq.1)print*,tlev(i),wl(iw),x1(1), C & QYNO3_NO(iw,i),QYNO3_NO2(iw,i) ENDDO ENDDO C stop RETURN 3013 print*,'ERROR: in file: ' print*,'DATAJ1/JPROC_CSQY/NASA_2006-NO3_photolysis.dat' STOP END C REAL FUNCTION QY_ACETONE(TEMP, DENS_NUMB, LAMBDA) ! Computes acetone quantum yields according to: ! IUPAC (2005) recommendation based on ! Blitz, M. A., D. E. Heard, M. J. Pilling, S. R. Arnold, and M. P. Chipperfield ! (2004), Pressure and temperature-dependent quantum yields for the ! photodissociation of acetone between 279 and 327.5 nm, Geophys. ! Res. Lett., 31, L06111, doi:10.1029/2003GL018793. IMPLICIT NONE C inputs REAL TEMP ! air temperature, K REAL DENS_NUMB ! air number density, 1/cm^3 REAL LAMBDA ! wavelength, nm REAL A0 ! 1st coef for qy REAL A1 ! 2nd coef for qy REAL A2 ! 3rd coef for qy REAL A3 ! 4th coef for qy REAL A4 ! 5th coef for qy REAL A5 ! 6th coef for qy REAL A6 ! 7th coef for qy REAL PHI_CO ! CO branch of IUPAC (2005) acetone QYZ REAL PHI_CH3CO ! CH3CO branch of IUPAC (2005) acetone QYZ REAL AA ! scratch variable for IUPAC (2005) acetone QYZ REAL BB ! scratch variable for IUPAC (2005) acetone QYZ REAL CC ! scratch variable for IUPAC (2005) acetone QYZ IF( LAMBDA .GE. 248.0 .AND. LAMBDA .LE. 349.0)THEN AA = 0.350*(TEMP/295.0)**(-1.28) BB = 0.068*(TEMP/295.0)**(-2.65) A0 = (AA / (1.0 - AA))*exp(BB*(LAMBDA-248.0)) PHI_CO = 1.0 / (1.0 + A0) IF( LAMBDA .LE. 302.0 ) THEN C 248-302 nm AA = 1.600*1.0E-19 *(TEMP/295.0)**(-2.38) BB = 0.55*1.0E-03 *(TEMP/295.0)**(-3.19) A1 = AA*exp( -BB*((1.0E+07/LAMBDA)-33113.0) ) PHI_CH3CO = (1.0 - PHI_CO) / (1.0 + A1*DENS_NUMB) C 302-349 nm ELSE AA = 1.62*1.0E-17 *(TEMP/295.0)**(-10.03) BB = 1.79*1.0E-3 *(TEMP/295.0)**(-1.364) A2 = AA*exp(-BB*((1.0E+07/LAMBDA) - 30488.0)) AA = 26.29* (TEMP/295.0)**(-6.59) BB = 5.72 *1.0E-7 *(TEMP/295.0)**(-2.93) CC = (30006.0) *(TEMP/295.0)**(-0.064) A3 = AA*exp(-BB*((1.0E+07/LAMBDA) - CC)**2.0) AA = 1.67*1.0E-15 *(TEMP/295.0)**(-7.25) BB = 2.08*1.0E-3 *(TEMP/295.0)**(-1.16) A4 = AA*exp(-BB *((1.0E+07/LAMBDA) - 30488.0)) PHI_CH3CO = (1.0 - PHI_CO) & * (1.0 + A4*DENS_NUMB + A3) & / ( (1.0 + A2*DENS_NUMB + A3) & * (1.0 + A4*DENS_NUMB) ) ENDIF QY_ACETONE = PHI_CO & + PHI_CH3CO ELSEIF(LAMBDA .LT. 248.0 .AND. LAMBDA .GT. 0.0)THEN ! set QY to 1.0 ! based on IUPAC (2005) data sheet PHI_CO = 0.05 PHI_CH3CO = 0.95 QY_ACETONE = PHI_CO+PHI_CH3CO ELSEIF(LAMBDA .GT. 349.0)THEN QY_ACETONE = 0.0 ENDIF QY_ACETONE = MAX(0.0,MIN(1.0, QY_ACETONE)) RETURN END * This file contains subroutines used for calculation of quantum yields for * various photoreactions: * qyacet - q.y. for acetone, based on Blitz et al. (2004) ******************************************************************************** REAL FUNCTION QY_ACETONE_TUV(T, M, w) *-----------------------------------------------------------------------------* *= taken from Tropospheric Ultraviolet-Visible (TUV) radiation model =* *= Version 4.6 =* *-----------------------------------------------------------------------------* * Compute acetone quantum yields according to the parameterization of: * Blitz, M. A., D. E. Heard, M. J. Pilling, S. R. Arnold, and M. P. Chipperfield * (2004), Pressure and temperature-dependent quantum yields for the * photodissociation of acetone between 279 and 327.5 nm, Geophys. * Res. Lett., 31, L06111, doi:10.1029/2003GL018793. IMPLICIT NONE * input: * T = temperature, K * m = air number density, molec. cm-3 * w = wavelength, nm REAL w, T, M * internal: REAL a0, a1, a2, a3, a4 REAL b0, b1, b2, b3, b4 REAL c3 REAL cA0, cA1, cA2, cA3, cA4 * output * fco = quantum yield for product CO * fac = quantum yield for product CH3CO (acetyl radical) REAL fco, fac *** set out-of-range values: * use low pressure limits for shorter wavelengths * set to zero beyound 327.5 IF(w .LT. 279. .AND. w .GE. 1.0) THEN fco = 0.05 fac = 0.95 QY_ACETONE_TUV = MAX(0.0,MIN(1.0, fco+fac)) RETURN ENDIF IF(w .GT. 327.5 .OR. w .LT. 1.0) THEN fco = 0. fac = 0. QY_ACETONE_TUV = MAX(0.0,MIN(1.0, fco+fac)) RETURN ENDIF *** CO (carbon monoxide) quantum yields: a0 = 0.350 * (T/295.)**(-1.28) b0 = 0.068 * (T/295.)**(-2.65) cA0 = exp(b0*(w - 248.)) * a0 / (1. - a0) fco = 1. / (1 + cA0) *** CH3CO (acetyl radical) quantum yields: IF(w .GE. 279. .AND. w .LT. 302.) THEN a1 = 1.600E-19 * (T/295.)**(-2.38) b1 = 0.55E-3 * (T/295.)**(-3.19) cA1 = a1 * EXP(-b1*((1.e7/w) - 33113.)) fac = (1. - fco) / (1 + cA1 * M) ENDIF IF(w .GE. 302. .AND. w .LT. 327.5) THEN a2 = 1.62E-17 * (T/295.)**(-10.03) b2 = 1.79E-3 * (T/295.)**(-1.364) cA2 = a2 * EXP(-b2*((1.e7/w) - 30488.)) a3 = 26.29 * (T/295.)**(-6.59) b3 = 5.72E-7 * (T/295.)**(-2.93) c3 = 30006 * (T/295.)**(-0.064) ca3 = a3 * EXP(-b3*((1.e7/w) - c3)**2) a4 = 1.67E-15 * (T/295.)**(-7.25) b4 = 2.08E-3 * (T/295.)**(-1.16) cA4 = a4 * EXP(-b4*((1.e7/w) - 30488.)) fac = (1. - fco) * (1. + cA3 + cA4 * M) / $ ((1. + cA3 + cA2 * M)*(1. + cA4 * M)) ENDIF QY_ACETONE_TUV = MAX(0.0,MIN(1.0, fco+fac)) RETURN END ******************************************************************************** ================================================ FILE: UTIL/inline_phot_preproc/src/xc_qy_td_effect_v3.F ================================================ SUBROUTINE XC_QY_TD_EFFECT(WC,NW,TLEV,DENS,NZ, & JLABEL,XC,QY,SQ,REPLACE) USE CSQY_REFER_DATA IMPLICIT NONE ! subroutine computes the product of the cross-section and ! quantum yield over the atmospheric levels ! includes temperature and pressure effect for select rates ! inputs: INTEGER, INTENT( IN ) :: NW REAL, INTENT( IN ) :: WC(:) INTEGER, INTENT( IN ) :: NZ REAL, INTENT( IN ) :: TLEV(:) ! air temperature over model levels, deg K REAL, INTENT( IN ) :: DENS(:) ! air number density over level, 1/cm3 CHARACTER(16), INTENT( IN ) :: JLABEL ! name of photolysis rate REAL, INTENT( INOUT ) :: XC(:,:) ! cross-section from file REAL, INTENT( INOUT ) :: QY(:,:) ! quantum yield from file REAL, INTENT( OUT ) :: SQ(:,:) ! cross-section times quantum yield over model levels LOGICAL, INTENT( OUT ) :: REPLACE ! flag to use sq values in calling routine ! local: INTEGER IW, IJ, IZ INTEGER I, J, N LOGICAL, SAVE :: FIRSTCALL = .TRUE. ! output quantum yields LOGICAL EXISTS REAL PRESSURE REAL TEMP( 1 ) REAL TDUM, QDUM, WDUM, FACTOR ! local REAL, EXTERNAL :: OZONE_YIELD REAL, EXTERNAL :: QY_ACETONE REAL, EXTERNAL :: RQY_ACETONE REAL, EXTERNAL :: QY_ACETONE_TUV REAL, EXTERNAL :: QY_GLYOXAL REAL, EXTERNAL :: RQY_GLYOXAL REAL, EXTERNAL :: RQUANTUM_ACETONE REAL, EXTERNAL :: RQY_ACETONE_CH3CO REAL NO2_XCROSS_298K( KW ) ! REAL NO2_QUANT_298K ( KW ) REAL O3_XCROSS_298K ( KW ) REAL O3_QUANT_298K ( KW ) REAL HCHO_XCROSS_298K( KW ) REAL HCHO_QUANTR_298K( KW ) REAL HCHO_QUANTM_298K( KW ) REAL QY_NO3_NO2_298K( KW ) REAL QY_NO3_NO_298K ( KW ) REAL CLONO2_XCROSS_298K( KW ) REAL NO2_XCROSS( KW, KZ ) REAL NO2_QUANT ( KW, KZ ) REAL O3_XCROSS(KW,KZ) REAL O3_QUANT (KW,KZ) REAL HCHO_XCROSS(KW,KZ) REAL HCHO_QUANTR(KW,KZ) REAL HCHO_QUANTM(KW,KZ) REAL CLONO2_XCROSS(KW,KZ) REAL QYNO3_NO2(KW,KZ) REAL QYNO3_NO(KW,KZ) REAL ADJ_NO2_XCROSS( KW, KZ ) REAL ADJ_NO2O3P_QUANT ( KW, KZ ) REAL ADJ_NO2EXC_QUANT ( KW, KZ ) REAL ADJ_O3_XCROSS(KW,KZ) REAL ADJ_O3O1D_QUANT (KW,KZ) REAL ADJ_O3O3P_QUANT (KW,KZ) REAL ADJ_HCHO_XCROSS(KW,KZ) REAL ADJ_HCHO_QUANTR(KW,KZ) REAL ADJ_HCHO_QUANTM(KW,KZ) REAL ADJ_CLONO2_XCROSS(KW,KZ) REAL ADJ_QY_NO3_NO2(KW,KZ) REAL ADJ_QY_NO3_NO(KW,KZ) REAL ADJUST( KZ ) LOGICAL, SAVE :: COMPUTED_NO2O3P = .FALSE. LOGICAL, SAVE :: COMPUTED_NO2EXC = .FALSE. LOGICAL, SAVE :: COMPUTED_O3O1D = .FALSE. LOGICAL, SAVE :: COMPUTED_O3O3P = .FALSE. REAL, SAVE :: NO2O3P_YIELD( KZ, KW ) REAL, SAVE :: NO2EXC_YIELD( KZ, KW ) REAL, SAVE :: O3O1D_YIELD ( KZ, KW ) REAL, SAVE :: O3O3P_YIELD ( KZ, KW ) REAL, SAVE :: PREV_TLEV( KZ ) = 0.0 ! previous air temperature over model levels, deg K REAL, SAVE :: PREV_DENS( KZ ) = 0.0 ! previous air number density over level, 1/cm3 REAL, SAVE :: PREV_WC ( KW ) = 0.0 ! previous wavelenghts, nm INTEGER, SAVE :: NZ_PREV = 0 INTEGER, SAVE :: NW_PREV = 0 LOGICAL :: RESET_WC LOGICAL :: RESET_TD REAL :: SIG, ALPHA, BETA, CHI, PHI REAL :: XCROSS( NZ, NW), QUANT( NZ,NW ) REAL :: PHI_CO_STP ! CO branch of IUPAC (2013) acetone QYZ at STP REAL :: PHI_CH3CO_STP ! CH3CO branch of IUPAC (2013) acetone QYZ at STP REAL :: PHI_CO ! CO branch of IUPAC (2013) acetone QYZ at Level REAL :: PHI_CH3CO ! CH3CO branch of IUPAC (2013) acetone QYZ at Level REAL :: ADJ_ACETONE_XCROSS( KZ, NW ) ! temperature correction to acetone cross section REAL :: ADJ_PHI_CO( KZ, NW ) ! T-P adjustment for CO branch of IUPAC (2013) acetone QYZ REAL :: ADJ_PHI_CH3CO( KZ, NW ) ! T-P adjustment for CH3CO branch of IUPAC (2013) acetone QYZ INTERFACE SUBROUTINE WVBIN_AVERAGE(WL_CS_IN, CS_IN, NWL_CS_IN, & WL_QY_IN, QY_IN, NWL_QY_IN, & SPECTRA_TYPE, & WLL_AVE, WLU_AVE, NWL_AVE, & CS_AVE, QY_AVE ) CHARACTER(1), INTENT( IN ) :: SPECTRA_TYPE ! spectra type INTEGER, INTENT( IN ) :: NWL_AVE ! number of intervals average INTEGER, INTENT( IN ) :: NWL_CS_IN ! number of intervals CS_IN INTEGER, INTENT( IN ) :: NWL_QY_IN ! number of intervals CS_IN REAL, INTENT( IN ) :: WL_CS_IN( : ) ! wl for CS_IN REAL, INTENT( IN ) :: WL_QY_IN( : ) ! wl for QY_IN REAL, INTENT( IN ) :: CS_IN( : ) ! cross-section as f(WLIN) REAL, INTENT( IN ) :: QY_IN( : ) ! quantum yield as f(WLIN) REAL, INTENT( OUT) :: WLL_AVE( : ) ! lower limit on wl effective interval REAL, INTENT( OUT) :: WLU_AVE( : ) ! upper limit on wl effective interval REAL, INTENT( OUT) :: CS_AVE( : ) ! cross-section as f(WL_AVE) REAL, INTENT( OUT) :: QY_AVE( : ) ! quantum yield as f(WL_AVE) END SUBROUTINE WVBIN_AVERAGE SUBROUTINE QY_ACETONE_CHANNELS( TEMP, DENS_NUMB, LAMBDA, PHI_CO, PHI_CH3CO ) IMPLICIT NONE REAL, INTENT(IN) :: TEMP ! air temperature, K REAL, INTENT(IN) :: DENS_NUMB ! air number density, 1/cm^3 REAL, INTENT(IN) :: LAMBDA ! wavelength, nm REAL, INTENT(OUT) :: PHI_CO ! CO branch of IUPAC (2013) acetone QYZ REAL, INTENT(OUT) :: PHI_CH3CO ! CH3CO branch of IUPAC (2013) acetone QYZ END SUBROUTINE QY_ACETONE_CHANNELS END INTERFACE !_______________________________________________________________________ ! complete wavelength grid IF(FIRSTCALL)THEN CALL INIT_CSQY_REFER_DATA() FIRSTCALL = .FALSE. ENDIF RESET_WC = .FALSE. RESET_TD = .FALSE. IF( NW_PREV .NE. NW .OR. NZ_PREV .NE. NZ )THEN RESET_WC = .TRUE. RESET_TD = .TRUE. ELSE DO I = 1, NZ IF( ABS(PREV_TLEV( I )- TLEV( I )) .GT. 1.0E-4 )THEN RESET_TD = .TRUE. END IF IF( ABS(PREV_DENS( I )- DENS( I )) .GT. 1.0E-4 )THEN RESET_TD = .TRUE. END IF END DO DO I = 1, NW IF( ABS(PREV_WC( I )- WC( I )) .GT. 1.0E-4 )THEN RESET_WC = .TRUE. END IF END DO END IF IF( RESET_WC .OR. RESET_TD )THEN WRITE(6,*)"RESETTING IN XC_QY_TD_EFFECT FOR " // TRIM( JLABEL ) COMPUTED_NO2O3P = .FALSE. COMPUTED_NO2EXC = .FALSE. COMPUTED_O3O3P = .FALSE. COMPUTED_O3O1D = .FALSE. PREV_TLEV = 0.0 PREV_DENS = 0.0 PREV_WC = 0.0 NW_PREV = NW NZ_PREV = NZ DO I = 1, NZ PREV_TLEV( I ) = TLEV( I ) PREV_DENS( I ) = DENS( I ) END DO DO I = 1, NW PREV_WC( I ) = WC( I ) END DO END IF ! computing data used for multiple rates CALL JHCHO_NASA_2006(NW,WC,NZ,TLEV,DENS, HCHO_XCROSS, HCHO_QUANTR, HCHO_QUANTM) CALL NASA_NO3_QUANTAS(NW,WC,NZ,TLEV,DENS,QYNO3_NO, QYNO3_NO2) DO I = 1, NZ DO IW = 1, NW CALL QY_ACETONE_CHANNELS( T298K, DENS0, WC(IW), PHI_CO_STP, PHI_CH3CO_STP ) CALL QY_ACETONE_CHANNELS( TLEV( I ), DENS( I ), WC(IW), PHI_CO, PHI_CH3CO ) IF( PHI_CO_STP .GT. 1.0E-9 )THEN ADJ_PHI_CO(I,IW) = PHI_CO / PHI_CO_STP ELSE ADJ_PHI_CO(I,IW) = 1.0 END IF IF( PHI_CH3CO_STP .GT. 1.0E-9 )THEN ADJ_PHI_CH3CO(I,IW) = PHI_CH3CO / PHI_CH3CO_STP ELSE ADJ_PHI_CH3CO(I,IW) = 1.0 END IF ! WRITE(6,'(A,F13.6,1X,E12.4,10(1X,F13.6))') ! & 'TEMP, DENS, WC,PHI_CO,PHI_CO_STP, ADJ_PHI_CO, ADJ_PHI_CO, PHI_CH3CO,PHI_CH3CO_STP, ADJ_PHI_CH3CO = ', ! & TLEV( I ), DENS( I ), WC( IW ), ! & PHI_CO,PHI_CO_STP,ADJ_PHI_CO(I,IW), ! & PHI_CH3CO,PHI_CH3CO_STP,ADJ_PHI_CH3CO(I,IW) END DO END DO ! calculation at 298K DO IW = 1, NW O3_XCROSS_298K( IW ) = O3_XCROSS_293K( IW ) O3_QUANT_298K ( IW ) = OZONE_YIELD( WC( IW ), T298K ) CLONO2_XCROSS_298K( IW ) = CLONO2_XCROSS0( IW ) & * ( 1.0 & + CLONO2_A1( IW )*( T298K - 296 ) & + CLONO2_A2( IW )*( T298K - 296 )**2 ) NO2_XCROSS_298K(IW ) = NO2_XCROSS_294K(IW) NO2_QUANT_298K( IW ) = NO2_QUANT_298K(IW) QY_NO3_NO_298K( IW ) = 1.0E-3*NO3NO_QUANT_298K( IW ) QY_NO3_NO2_298K( IW ) = 1.0E-3*NO3NO2_QUANT_298K( IW ) HCHO_XCROSS_298K( IW ) = HCHO_XCROSS_300K(IW) + HCHO_XCROSS_A(IW)*(T298K-300.0) HCHO_XCROSS_298K( IW ) = MAX( HCHO_XCROSS_298K(IW), 0.0) IF( HCHO_QUANTR_STP(IW) .LT. 0.999999 )THEN IF(WC(IW) .GE. 330.0 .AND. HCHO_QUANTM_STP(IW) .GT. 0.0)THEN PRESSURE = 1.0 ! atmospheres FACTOR = ((1.0/HCHO_QUANTM_STP(IW))-(1.0/(1.0 - HCHO_QUANTR_STP(IW)))) & * (1.0 + 0.05*( WC(IW)-329.0)*((T298K-80.0)/80.0)) HCHO_QUANTM_298K( IW ) = 1.0/( 1.0/(1.0 - HCHO_QUANTR_STP(IW)) + PRESSURE*FACTOR ) ELSE HCHO_QUANTM_298K( IW ) = HCHO_QUANTM_STP(IW) ENDIF ELSE HCHO_QUANTM_298K( IW ) = 0.000001 END IF HCHO_QUANTR_298K( IW ) = HCHO_QUANTR_STP(IW) HCHO_QUANTM_298K( IW ) = MIN( 1.0, MAX( HCHO_QUANTM_298K( IW ), 0.0)) DO I = 1, NZ XCROSS( I, IW ) = XC( I, IW ) QUANT( I, IW ) = QY( I, IW ) IF( TLEV(I) .LT. 293.0 .AND. TLEV(I) .GT. 218.0)THEN O3_XCROSS(IW,I) = (O3_XCROSS_293K(IW)-O3_XCROSS_218K(IW)) & / 75.0 & * (TLEV(I) - 218.0) & + O3_XCROSS_218K(IW) ELSEIF( TLEV(I) .LE. 218.0)THEN O3_XCROSS(IW,I) = O3_XCROSS_218K(IW) ELSEIF( TLEV(I) .GE. 293.0)THEN O3_XCROSS(IW,I) = O3_XCROSS_293K(IW) ENDIF O3_QUANT( IW,I) = OZONE_YIELD(WC(IW),TLEV(I)) TDUM = TLEV(I)-296.0 CLONO2_XCROSS(IW,I) = CLONO2_XCROSS0(IW) & * ( 1.0 & + CLONO2_A1(IW)*TDUM & + CLONO2_A2(IW)*TDUM**2 ) NO2_XCROSS(IW,I) = NO2_XCROSS_294K(IW) IF(TLEV(I) .GT. 220.0 .AND. TLEV(I) .LT. 294.0)THEN TDUM = (NO2_XCROSS_294K(IW)-NO2_XCROSS_220K(IW)) & * (TLEV(I)-220.0)/74.0 NO2_XCROSS(IW,I) = NO2_XCROSS_220K(IW) & + TDUM ELSEIF(TLEV(I) .LE. 220.0)THEN NO2_XCROSS(IW,I) = NO2_XCROSS_220K(IW) ENDIF NO2_QUANT(IW,I) = NO2_QUANT_298K(IW) IF(TLEV(I) .GT. 248.0 .AND. TLEV(I) .LT. 294.0)THEN TDUM = (NO2_QUANT_298K(IW)-NO2_QUANT_248K(IW)) & * (TLEV(I)-248.0)/50.0 NO2_QUANT(IW,I) = NO2_QUANT_248K(IW) & + TDUM ELSEIF(TLEV(I) .LE. 248.0)THEN NO2_QUANT(IW,I) = NO2_QUANT_248K(IW) ENDIF NO2_QUANT(IW,I) = MIN(MAX(NO2_QUANT(IW,I), 0.0), 1.0) ! compute adjustment factors IF( QY_NO3_NO_298K( IW ) .GT. 0.0 )THEN ADJ_QY_NO3_NO(IW,I) = QYNO3_NO(IW,I) / QY_NO3_NO_298K(IW ) print*,'QYNO3_NO(IW,I), QY_NO3_NO_298K(IW ) = ',QYNO3_NO(IW,I), QY_NO3_NO_298K(IW ) ELSE ADJ_QY_NO3_NO(IW,I) = 1.0 END IF IF( QY_NO3_NO2_298K( IW ) .GT. 0.0 )THEN ADJ_QY_NO3_NO2(IW,I) = QYNO3_NO2(IW,I) / QY_NO3_NO2_298K(IW ) print*,'QYNO3_NO2(IW,I), QY_NO3_NO2_298K(IW ) = ',QYNO3_NO2(IW,I), QY_NO3_NO2_298K(IW ) ELSE ADJ_QY_NO3_NO2(IW,I) = 1.0 END IF IF( HCHO_XCROSS_298K( IW ) .GT. 0.0 )THEN ADJ_HCHO_XCROSS(IW,I) = HCHO_XCROSS(IW,I) / HCHO_XCROSS_298K(IW ) ELSE ADJ_HCHO_XCROSS(IW,I) = 1.0 END IF IF( HCHO_QUANTR_298K( IW ) .GT. 0.0 )THEN ADJ_HCHO_QUANTR(IW,I) = HCHO_QUANTR(IW,I) / HCHO_QUANTR_298K(IW ) ELSE ADJ_HCHO_QUANTR(IW,I) = 1.0 END IF IF( HCHO_QUANTM_298K( IW ) .GT. 0.0 )THEN ADJ_HCHO_QUANTM(IW,I) = HCHO_QUANTM(IW,I) / HCHO_QUANTM_298K(IW ) ELSE ADJ_HCHO_QUANTM(IW,I) = 1.0 END IF IF( O3_XCROSS_298K( IW ) .GT. 0.0 )THEN ADJ_O3_XCROSS(IW,I) = O3_XCROSS(IW,I) / O3_XCROSS_298K(IW ) ELSE ADJ_O3_XCROSS(IW,I) = 1.0 END IF IF( O3_QUANT_298K( IW ) .GT. 0.0 )THEN ADJ_O3O1D_QUANT(IW,I) = O3_QUANT(IW,I) / O3_QUANT_298K(IW ) ELSE ADJ_O3O1D_QUANT(IW,I) = 1.0 END IF IF( O3_QUANT_298K( IW ) .LT. 1.0 .AND. O3_QUANT_298K( IW ) .GT. 0.0 )THEN ADJ_O3O3P_QUANT(IW,I) = MAX((1.0 - ADJ_O3O1D_QUANT(IW,I)*O3_QUANT_298K( IW )), 0.0) & / (1.0 - O3_QUANT_298K( IW )) IF( O3_QUANT(IW,I) .LT. 1.0 )THEN ALPHA = (1.0 - O3_QUANT(IW,I)) BETA = (1.0 - ( ADJ_O3O3P_QUANT(IW,I)*ALPHA + ADJ_O3O1D_QUANT(IW,I)*O3_QUANT(IW,I))) & / ALPHA ELSE BETA = 0.0 END IF ADJ_O3O3P_QUANT(IW,I) = ADJ_O3O3P_QUANT(IW,I) + BETA ELSE ADJ_O3O3P_QUANT(IW,I) = 1.0 END IF IF( CLONO2_XCROSS_298K( IW ) .GT. 0.0 )THEN ADJ_CLONO2_XCROSS(IW,I) = CLONO2_XCROSS(IW,I) / CLONO2_XCROSS_298K(IW ) ELSE ADJ_CLONO2_XCROSS(IW,I) = 1.0 END IF IF( NO2_XCROSS_298K(IW ) .GT. 0.0 )THEN ADJ_NO2_XCROSS(IW,I) = NO2_XCROSS(IW,I) / NO2_XCROSS_298K(IW ) ELSE ADJ_NO2_XCROSS(IW,I) = 1.0 END IF IF( NO2_QUANT_298K( IW ) .GT. 0.0 )THEN ADJ_NO2O3P_QUANT(IW,I) = NO2_QUANT(IW,I) / NO2_QUANT_298K(IW ) ELSE ADJ_NO2O3P_QUANT(IW,I) = 1.0 END IF IF( NO2_QUANT_298K( IW ) .LT. 1.0 .AND. NO2_QUANT_298K( IW ) .GT. 0.0 )THEN ADJ_NO2EXC_QUANT(IW,I) = MAX((1.0 - ADJ_NO2O3P_QUANT(IW,I)*NO2_QUANT_298K( IW )), 0.0) & / (1.0 - NO2_QUANT_298K( IW )) IF( NO2_QUANT(IW,I) .LT. 1.0 )THEN ALPHA = (1.0 - NO2_QUANT(IW,I)) BETA = (1.0 - ( ADJ_NO2EXC_QUANT(IW,I)*ALPHA + ADJ_NO2O3P_QUANT(IW,I)*NO2_QUANT(IW,I))) & / ALPHA ELSE BETA = 0.0 END IF ADJ_NO2EXC_QUANT(IW,I) = ADJ_NO2EXC_QUANT(IW,I) + BETA ELSE ADJ_NO2EXC_QUANT(IW,I) = 1.0 END IF ! temperature adjustment to acetone cross-section SIG = XC_D_ACETONE(IW) & + XC_A_ACETONE(IW)*TLEV(I) & + XC_B_ACETONE(IW)*TLEV(I)**2 & + XC_C_ACETONE(IW)*TLEV(I)**3 CHI = XC_D_ACETONE(IW) & + XC_A_ACETONE(IW)*T298K & + XC_B_ACETONE(IW)*T298K**2 & + XC_C_ACETONE(IW)*T298K**3 IF( CHI .GT. 0.0 )THEN ADJ_ACETONE_XCROSS( I, IW ) = MAX(SIG/CHI, 0.0) ELSE ADJ_ACETONE_XCROSS( I, IW ) = 1.0 END IF ENDDO ENDDO SQ = 0.0 SELECT CASE( JLABEL ) CASE( 'IC3ONO2', 'NTR_IUPAC10', 'NTR_IUPAC04', 'ONIT_RACM2' ) ! temperature correction to cross-section DO IW = 1, NW DO I = 1, NZ IF((WC(IW) .GE. 240.) .AND. (WC(IW) .LE. 340.))THEN IF( TLEV(I) .LT. 360.0 .AND. TLEV(I) .GT. 233.0)THEN FACTOR = EXP(IC3ONO2_XCROSS_EXP(IW)*(TLEV(I)-T298K)) ELSEIF( TLEV(I) .LE. 240.0)THEN FACTOR = EXP(IC3ONO2_XCROSS_EXP(IW)*(-58.0)) ELSEIF( TLEV(I) .GE. 360.)THEN FACTOR = EXP(IC3ONO2_XCROSS_EXP(IW)*(62.0)) ENDIF ELSE FACTOR = 1.0 ENDIF ! print*,JLABEL,TLEV(I)-T298K, factor*XC(I,IW), XCROSS(I, IW) XC(I, IW) = FACTOR * XC(I, IW) SQ(I, IW) = XC(I, IW) * QY(I,IW) ENDDO ENDDO REPLACE = .TRUE. CASE( 'NO2-06', 'NO2_06', 'NO2_RACM2', 'NO2_IUPAC10' ) ! 'NO2 -> NO + O(3P)' ! temperature correction to cross-section and quantum yield DO IW = 1, NW DO I = 1, NZ FACTOR = MAX( ADJ_NO2_XCROSS(IW,I), 0.0) XC(I, IW) = FACTOR * XC(I, IW) ! the below IF block forces the yields of O3P and NO2EXC to add to one ! assumes that NZ and NW does not change between subroutine calls IF( .NOT. COMPUTED_NO2O3P .AND. .NOT. COMPUTED_NO2EXC )THEN FACTOR = MAX( ADJ_NO2O3P_QUANT(IW,I), 0.0) ! print*,JLABEL,TLEV(I)-T298K, ADJ_NO2O3P_QUANT(IW,I), QY(I, IW), QUANT(I,IW) QY(I, IW) = FACTOR * QY(I, IW) QY(I, IW) = MIN( QY(I, IW), 1.0) NO2O3P_YIELD( I, IW ) = QY(I, IW) IF( IW .GE. NW .AND. I .GE. NZ )COMPUTED_NO2O3P = .TRUE. ELSE IF( .NOT. COMPUTED_NO2O3P .AND. COMPUTED_NO2EXC )THEN FACTOR = -2.0 QY(I, IW) = MAX((1.0-NO2EXC_YIELD( I, IW )), 0.0) ! print*,JLABEL,TLEV(I)-T298K, FACTOR, QY(I, IW), QUANT(I,IW) NO2O3P_YIELD( I, IW ) = QY(I, IW) IF( IW .GE. NW .AND. I .GE. NZ )COMPUTED_NO2O3P = .TRUE. ELSE IF( COMPUTED_NO2O3P )THEN FACTOR = -3.0 QY(I, IW) = NO2O3P_YIELD( I, IW ) ! print*,JLABEL,TLEV(I)-T298K, FACTOR, QY(I, IW), QUANT(I,IW) END IF print*,JLABEL,TLEV(I)-T298K, FACTOR, QY(I, IW), QUANT(I,IW) SQ(I, IW) = XC(I, IW) * QY(I, IW) ENDDO ENDDO REPLACE = .TRUE. CASE( 'CLNO2', 'CLNO2_IUPAC13' ) ! IUPAC 2013 Data Sheet recommended temperature correction to cross-section ! from ! B. Ghosh, D.K. Papanastasiou, R.K. Talukdar, J.M. Roberts, and J.B. Burkholder, ! "Nitryl chloride (ClNO2): UV/Vis absorption spectrum between 210 and 296 K and ! O(3P) quantum yield at 193 and 248 nm," J. Phys. Chem. A 116, 5796-5805 (2012); ! DOI: 10.1021/jp207389y DO IW = 1, NW ! print*,"CLNO2: ",IW,WC(IW),CLNO2_XCROSS_A1(IW),CLNO2_XCROSS_A2(IW) DO I = 1, NZ IF( TLEV( I ) .GE. 210.0 .AND. TLEV( I ) .LE. 296.0 )THEN TDUM = TLEV(I)-296.0 FACTOR = 1.0 & + CLNO2_XCROSS_A1( IW )*TDUM & + CLNO2_XCROSS_A2( IW )*(TDUM*TDUM) ! print*,WC(IW),CLNO2_XCROSS_A1(IW),CLNO2_XCROSS_A1(IW) ELSE IF( TLEV( I ) .GT. 296.0 )THEN FACTOR = 1.0 ELSE IF( TLEV( I ) .LT. 210.0 )THEN FACTOR = 1.0 & - 86.0*CLNO2_XCROSS_A1( IW ) & + 7396.0*CLNO2_XCROSS_A2( IW ) END IF ! print*,"CLNO2: ",I, TLEV(I),FACTOR, XC(I, IW) XC(I, IW) = FACTOR * XC(I, IW) SQ(I, IW) = XC(I, IW) * QY(I, IW) ENDDO ENDDO REPLACE = .TRUE. CASE( 'N2O5_IUPAC04', 'N2O5_IUPAC10' ) ! temperature correction to cross-section DO IW = 1, NW DO I = 1, NZ TDUM = MAX(195.0, MIN(TLEV(I), 300.0)) ALPHA = N2O5_XCROSS_EXP(IW)*(1.0/TDUM - 1.0/T298K) FACTOR = EXP( ALPHA ) ! print*,JLABEL,TLEV(I)-T298K,factor* XC(I, IW), XCROSS( I,IW) XC(I,IW) = FACTOR * XC(I,IW) SQ(I,IW) = XC(I,IW) * QY(I,IW) ENDDO ENDDO REPLACE = .TRUE. CASE( 'NO2EX' ) ! 'NO2 -> NO2(excited)' ! temperature correction to cross-section and quantum yield DO IW = 1, NW DO I = 1, NZ FACTOR = MAX( ADJ_NO2_XCROSS(IW,I), 0.0) XC(I, IW) = FACTOR * XC(I, IW) ! the below IF block forces the yields of O3P and NO2EXC to add to one ! assumes that NZ and NW does not change between subroutine calls IF( .NOT. COMPUTED_NO2O3P .AND. .NOT. COMPUTED_NO2EXC )THEN FACTOR = MAX( ADJ_NO2EXC_QUANT(IW,I), 0.0) QY(I, IW) = FACTOR * QY(I, IW) QY(I, IW) = MIN( QY(I, IW), 1.0) NO2EXC_YIELD( I, IW ) = QY(I, IW) IF( IW .GE. NW .AND. I .GE. NZ )COMPUTED_NO2EXC = .TRUE. ELSE IF( COMPUTED_NO2O3P .AND. .NOT. COMPUTED_NO2EXC )THEN QY(I, IW) = MAX((1.0-NO2O3P_YIELD( I, IW )), 0.0) NO2EXC_YIELD( I, IW ) = QY(I, IW) IF( IW .GE. NW .AND. I .GE. NZ )COMPUTED_NO2EXC = .TRUE. ELSE IF( COMPUTED_NO2EXC )THEN QY(I, IW) = NO2EXC_YIELD( I, IW ) END IF ! print*,JLABEL,TLEV(I)-T298K, WC(IW), QY(I, IW), QUANT(I,IW),NO2O3P_YIELD( I, IW ) SQ(I, IW) = XC(I, IW) * QY(I, IW) ENDDO ENDDO REPLACE = .TRUE. CASE( 'HNO4-06', 'HNO4_06', 'HO2NO2_IUPAC04', 'PNA_IUPAC10', 'HNO4_RACM2' ) ! 'HNO4 -> HO2 + NO2' ! temperature correction to cross-section DO IW = 1, NW DO I = 1, NZ QDUM = QY(I, IW) IF(HO2NO2_XCROSS_A1(IW).GT.0.0.AND.HO2NO2_XCROSS_A2(IW).GT.0.0)THEN TDUM = 1.0+EXP( -988.0/(0.69*TLEV(I)) ) CHI = (HO2NO2_XCROSS_A1(IW)/TDUM + HO2NO2_XCROSS_A2(IW)*(1.0-1.0/TDUM)) TDUM = 1.0+EXP(-988.0/(0.69*T298K) ) FACTOR = CHI & / (HO2NO2_XCROSS_A1(IW)/TDUM + HO2NO2_XCROSS_A2(IW)*(1.0-1.0/TDUM)) ELSE FACTOR = 1.0 ENDIF ! print*,JLABEL,TLEV(I)-T298K,factor* XC(I, IW), XCROSS(I,IW) XC(I, IW) = FACTOR * XC(I, IW) SQ(I, IW) = XC(I,IW) * QY(I,IW) ENDDO ENDDO REPLACE = .TRUE. CASE( 'NO3NO-06', 'NO3NO_06', 'NO3NO_RACM2' ) ! 'NO3 -> NO + O2' ! temperature correction to cross-section and quantum yield DO IW = 1, NW DO I = 1, NZ FACTOR = (1.0-EXP(-1096.4/TLEV(I)) - 2.0*EXP(-529.5/TLEV(I))) & / (1.0-EXP(-1096.4/ T298K ) - 2.0*EXP(-529.5/ T298K )) XC(I, IW) = FACTOR * XC(I, IW) ! print*,JLABEL,TLEV(I)-T298K,XC(I, IW), XCROSS(I,IW) QY(I, IW) = ADJ_QY_NO3_NO(IW,I) * QY(I, IW) QY(I, IW) = MIN(1.0, QY(I, IW)) QY(I, IW) = MAX(0.0, QY(I, IW)) SQ(I, IW) = XC(I,IW) * QY(I,IW) ENDDO ENDDO REPLACE = .TRUE. CASE( 'CLONO2-2', 'CLONO2_2' ) ! 'ClONO2 -> Cl + NO3' ! temperature correction to cross-section DO IW = 1, NW DO I = 1, NZ XC(I, IW) = ADJ_CLONO2_XCROSS(IW,I) * XC(I, IW) ! print*,JLABEL,TLEV(I)-T298K,XC(I, IW), XCROSS(I,IW) SQ(I, IW) = XC(I,IW) * QY(I,IW) ENDDO ENDDO REPLACE = .TRUE. CASE( 'CLONO2-1', 'CLONO2_1' ) ! 'ClONO2 -> ClO + NO2' ! temperature correction to cross-section DO IW = 1, NW DO I = 1, NZ XC(I, IW) = ADJ_CLONO2_XCROSS(IW,I) * XC(I, IW) ! print*,JLABEL,TLEV(I)-T298K,XC(I, IW), XCROSS(I,IW) SQ(I, IW) = XC(I,IW) * QY(I,IW) ENDDO ENDDO REPLACE = .TRUE. CASE( 'CCHO_R', 'ALD2_R_IUPAC10', 'ALD2_R_IUPAC13', 'CH3CHO_RACM2','CCHO_R1_MCMv32 ', 'CCHO_R2_MCMv32 ' ) ! 'CH3CHO -> CH3 + HCO' ! density correction to quantum yield recommended in ! http://iupac.pole-ether.fr/htdocs/datasheets/pdf/P2_CH3CHO+hv.pdf dated June 2013 ! and based on ! Warneck, P. and Moortgat, G.K. (2012). Quantum yields and photodissociation coefficients of ! acetaldehyde in the troposphere, Atmos. Environ., 62, 153-163. DO IW = 1, NW ! WRITE(6,'(A,3(1X,ES12.4))') ' WAVE, CCHO_QUANT_INFIN( IW ), CCHO_YIELD_COEFF( IW )', ! & WC(IW), CCHO_QUANT_INFIN( IW ), CCHO_YIELD_COEFF( IW ) DO I = 1, NZ IF( CCHO_QUANT_INFIN( IW ) .GT. 1.0E-5 )THEN FACTOR = ( 1.0/CCHO_QUANT_INFIN( IW ) + 2.465E19 * CCHO_YIELD_COEFF( IW ) ) & / ( 1.0/CCHO_QUANT_INFIN( IW ) + DENS(I) * CCHO_YIELD_COEFF( IW ) ) ELSE FACTOR = 1.0 END IF QY(I, IW) = FACTOR * QY(I, IW) QY(I, IW) = MIN(1.0, QY(I, IW)) QY(I, IW) = MAX(0.0, QY(I, IW)) SQ(I, IW) = XC(I,IW) * QY(I, IW) ENDDO ENDDO REPLACE = .TRUE. CASE( 'ACET_CO_CRI', 'CH3COCH3B_JPL19' ) ! Acetone (CH3COCH3 ) ---> 2CH3 + CO ! http://iupac.pole-ether.fr/htdocs/datasheets/pdf/P7_CH3COCH3+hv.pdf dated 2013 ! based on ! Blitz, M. A., Heard, D. E., Pilling, M. J., Arnold S. R. and M. Chipperfield, Geophys. Res. Lett. ! L06111, doi:10.1029/2003GL018793, 2004. DO IW = 1, NW DO I = 1, NZ CALL QY_ACETONE_CHANNELS( TLEV( I ), DENS0, WC(IW), PHI_CO, PHI_CH3CO ) CALL QY_ACETONE_CHANNELS( T298K, DENS0, WC(IW), PHI_CO_STP, PHI_CH3CO_STP ) IF( PHI_CO_STP .GT. 0.0 )THEN CHI = PHI_CO / PHI_CO_STP ELSE CHI = 1.0 END IF CHI = ADJ_PHI_CO(I,IW) XC(I, IW) = ADJ_ACETONE_XCROSS( I, IW ) * XC(I, IW) QY(I, IW) = CHI * QY(I, IW) SQ(I, IW) = XC(I,IW) * QY(I, IW) SIG = DENS0 DO IZ = 1, 2 CALL QY_ACETONE_CHANNELS( TLEV( I ), DENS0, WC(IW), PHI_CO_STP, PHI_CH3CO_STP ) CALL QY_ACETONE_CHANNELS( TLEV( I ), SIG, WC(IW), PHI_CO, PHI_CH3CO ) IF( PHI_CO_STP .GT. 0.0 )THEN CHI = PHI_CO / PHI_CO_STP ELSE CHI = 1.0 END IF IF( PHI_CH3CO_STP+PHI_CO_STP .GT. 0.0 )THEN PHI =(PHI_CH3CO+PHI_CO) / ( PHI_CH3CO_STP+PHI_CO_STP ) ELSE PHI = 1.0 END IF WRITE(6,'(A,F13.6,1X,E12.4,10(1X,F13.6))') & 'TEMP, SIG, WC( IW ), QYCO,QYCO_STP, RATIO_QYCO, RQUANTUM_ACETONE, RATIO_TOTAL = ', & TLEV( I ), SIG, WC( IW ), PHI_CO,PHI_CO_STP, CHI, & RQUANTUM_ACETONE( TLEV( I ), SIG, WC( IW ) ),PHI SIG = 0.5 * SIG END DO ENDDO ENDDO REPLACE = .TRUE. CASE( 'ACET_R2_CRI', 'CH3COCH3A_JPL19' ) ! Acetone (CH3COCH3 ) ---> CH3CO+CH3 ! http://iupac.pole-ether.fr/htdocs/datasheets/pdf/P7_CH3COCH3+hv.pdf dated 2013 ! based on ! Blitz, M. A., Heard, D. E., Pilling, M. J., Arnold S. R. and M. Chipperfield, Geophys. Res. Lett. ! L06111, doi:10.1029/2003GL018793, 2004. SIG = DENS0 DO I = 1, NZ DO IW = 1, NW CALL QY_ACETONE_CHANNELS( TLEV( I ), DENS0, WC(IW), PHI_CO, PHI_CH3CO ) CALL QY_ACETONE_CHANNELS( T298K, DENS0, WC(IW), PHI_CO_STP, PHI_CH3CO_STP ) IF( PHI_CH3CO_STP .GT. 0.0 )THEN CHI = PHI_CH3CO/PHI_CH3CO_STP ELSE CHI = 1.0 END IF CHI = ADJ_PHI_CH3CO(I,IW) XC(I, IW) = ADJ_ACETONE_XCROSS( I, IW ) * XC(I, IW) QY(I, IW) = CHI * QY(I, IW) SQ(I, IW) = XC(I,IW) * QY(I, IW) SIG = DENS0 DO IZ = 1, 2 CALL QY_ACETONE_CHANNELS( TLEV( I ), DENS0, WC(IW), PHI_CO_STP, PHI_CH3CO_STP ) CALL QY_ACETONE_CHANNELS( TLEV( I ), SIG, WC(IW), PHI_CO, PHI_CH3CO ) IF( PHI_CH3CO_STP .GT. 0.0 )THEN CHI = PHI_CH3CO/PHI_CH3CO_STP ELSE CHI = 1.0 END IF WRITE(6,'(A,F13.6,1X,E12.4,10(1X,F13.6))') & 'TEMP, SIG, WC( IW ), QYCH3CO,QYCH3CO_STP, RATIO_QYCH3CO,RQY_ACETONE_CH3CO = ', & TLEV( I ), SIG, WC( IW ), PHI_CH3CO,PHI_CH3CO_STP, CHI , RQY_ACETONE_CH3CO( TLEV( I ), SIG, WC( IW ) ) SIG = 0.5 * SIG END DO ENDDO ENDDO REPLACE = .TRUE. CASE( 'CH3ONO2_MCMv32' ) ! CH3ONO2 --> CH3O + NO2 !Methyl nitrate (CH3ONO2) T dependent cross sections !CH3ONO2 --> CH3O + NO2 !http://iupac.pole-ether.fr/htdocs/datasheets/pdf/P14_CH3ONO2+hv.pdf dated May 2002 DO IW = 1, NW DO I = 1, NZ FACTOR = EXP(CH3ONO2_XCROSS_B(IW)*(TLEV(I)-T298K)) XC(I, IW) = FACTOR * XC(I, IW) SQ(I, IW) = XC(I,IW) * QY(I, IW) ENDDO ENDDO REPLACE = .TRUE. CASE( 'ETHYNO3_MCMv32' ) ! CH3CH2ONO2 --> C2H5O + NO2 !ethyl nitrate cross-sections (CH3CH2ONO2) !CH3CH2ONO2 --> C2H5O + NO2 !http://iupac.pole-ether.fr/htdocs/datasheets/pdf/P15_C2H5ONO2+hv.pdf dated May 2002 DO IW = 1, NW DO I = 1, NZ FACTOR = EXP(ETHYNO3_XCROSS_B(IW)*(TLEV(I)-T298K)) XC(I, IW) = FACTOR * XC(I, IW) SQ(I, IW) = XC(I,IW) * QY(I, IW) ENDDO ENDDO REPLACE = .TRUE. CASE( 'PAN', 'PAN_IUPAC04', 'PAN_IUPAC10' ) ! 'PAN + hv -> PRODUCTS' ! temperature correction to cross-section DO IW = 1, NW DO I = 1, NZ FACTOR = EXP(PAN_XCROSS_B(IW)*(TLEV(I)-T298K)) XC(I, IW) = FACTOR * XC(I, IW) SQ(I, IW) = XC(I,IW) * QY(I, IW) ENDDO ENDDO REPLACE = .TRUE. CASE( 'PAN1_RACM2', 'PAN2_RACM2' ) ! 'PAN + hv -> PRODUCTS' ! temperature correction to cross-section DO IW = 1, NW DO I = 1, NZ FACTOR = EXP(PAN_XCROSS_B(IW)*(TLEV(I)-T298K)) XC(I, IW) = FACTOR * XC(I, IW) SQ(I, IW) = XC(I,IW) * QY(I, IW) ENDDO ENDDO REPLACE = .TRUE. CASE( 'GLY_R_IUPAC10', 'GLY_R_IUPAC13', 'GLYOX_R_CRI', 'GLYOX_M_CRI' ) DO IW = 1, NW CHI = QY_GLYOXAL( T298K, DENS0, WC( IW ) ) SIG = DENS0 DO I = 1, NZ IF( CHI .GT. 0.0 )THEN FACTOR = QY_GLYOXAL( TLEV( I ), DENS( I ), WC( IW ) ) & / CHI ELSE FACTOR = 1.0 END IF QY(I, IW) = MIN(1.0, MAX(0.0, FACTOR * QY(I, IW))) SQ(I, IW) = XC(I,IW) * QY(I, IW) #ifdef verbose WRITE(6,'(A,10(1X,ES12.4))')'SIG, WC( IW ), RQY_GLYOXAL( T298K, SIG, WC( IW ) ) = ', & SIG, WC( IW ), RQY_GLYOXAL( T298K, SIG, WC( IW ) ),QY_GLYOXAL( T298K, SIG, WC( IW ) ) & /QY_GLYOXAL( T298K, DENS0, WC( IW ) ) #endif SIG = 0.90*SIG ENDDO ENDDO REPLACE = .TRUE. CASE( 'NC3CHO_R_MCMv32', 'NC3CHO_M_MCMv32' ) !Number density correction to quantum yield !IUPAC 2002 Recommendation !http://iupac.pole-ether.fr/htdocs/datasheets/pdf/P11_nC3H7CHO+hv.pdf DO I = 1, NZ ADJUST( I ) = ( 1.81 + 4.919E-3 * T298K ) & / ( 1.81 + 2.000E-22 * DENS( I ) * TLEV( I ) ) END DO DO IW = 1, NW DO I = 1, NZ QY(I, IW) = MIN(1.0, MAX(0.0, ADJUST( I ) * QY(I, IW))) SQ(I, IW) = XC(I,IW) * QY(I, IW) END DO END DO REPLACE = .TRUE. CASE( 'C2CHO', 'ALD_RACM2', 'ALD_JPL19', 'ALDX_R_IUPAC10' ) ! 'C2H5CHO -> C2H5 + HCO' ! density correction to quantum yield DO IW = 1, NW DO I = 1, NZ IF(QY(I,IW) .LE. 1.0E-6) THEN FACTOR = 1.0 ELSE FACTOR = 1.0 & / (1.0 + (1.0/QY(I,IW) - 1.0)*DENS(I)/2.465E19) ENDIF QY(I, IW) = FACTOR * QY(I, IW) QY(I, IW) = MIN(1.0, QY(I, IW)) QY(I, IW) = MAX(0.0, QY(I, IW)) SQ(I, IW) = XC(I,IW) * QY(I, IW) ENDDO ENDDO REPLACE = .TRUE. CASE( 'NO3NO2-6', 'NO3NO2_6', 'NO3NO2_06', 'NO3NO2_RACM2' ) ! 'NO3 -> NO2 + O(3P)' ! temperature correction to cross-section and quantum yield DO IW = 1, NW DO I = 1, NZ FACTOR = (1.0-EXP(-1096.4/TLEV(I)) - 2.0*EXP(-529.5/TLEV(I))) & / (1.0-EXP(-1096.4/ T298K ) - 2.0*EXP(-529.5/ T298K )) XC(I, IW) = FACTOR * XC(I, IW) print*,JLABEL,TLEV(I)-T298K,XC(I, IW) , XCROSS(I,IW) QY(I, IW) = ADJ_QY_NO3_NO2(IW,I) * QY(I, IW) QY(I, IW) = MIN(1.0, QY(I, IW)) QY(I, IW) = MAX(0.0, QY(I, IW)) SQ(I, IW) = XC(I,IW) * QY(I, IW) ENDDO ENDDO REPLACE = .TRUE. CASE( 'HNO3', 'HNO3_IUPAC04', 'HNO3_IUPAC10', 'HNO3_RACM2' ) ! temperature correction to cross-section DO IW = 1, NW DO I = 1, NZ FACTOR = EXP(HNO3_XCROSS_EXP(IW)*(TLEV(I)-T298K)) print*,JLABEL,TLEV(I)-T298K,factor* XC(I, IW), XCROSS(I,IW) XC(I, IW) = FACTOR * XC(I, IW) SQ(I, IW) = XC(I, IW) * QY(I,IW) ENDDO ENDDO REPLACE = .TRUE. CASE( 'MVK-06', 'ISPD', 'MVK_06', 'MVK_RACM2' ) C quantum yield correction from C Gierczak, T., J. B. Burkholder, R. K. Talukdar, A. Mellouki, S. B. Barone, C and A. R. Ravishankara, Atmospheric fate of methyl vinyl ketone and methacrolein, C J. Photochem. Photobiol A: Chemistry, 110 1-10, 1997. C depends on pressure and wavelength, set upper limit to 1.0 C However, chamber evaluations for SAPRC07T require a pressure correction where C number density coefficient is five times higher. DO IW = 1, NW DO I = 1, NZ FACTOR = (5.5 + 5.0*9.2E-19*2.465E+19) & / (5.5 + 5.0*9.2E-19*DENS(I)) QY(I, IW) = FACTOR * QY(I, IW) QY(I, IW) = MIN(1.0, QY(I, IW)) QY(I, IW) = MAX(0.0, QY(I, IW)) SQ(I, IW) = XC(I,IW)* QY(I, IW) ENDDO ENDDO REPLACE = .TRUE. CASE( 'MACR_MCMv32', 'MACR-06', 'MACR_06', 'MACR_RACM2' ) C quantum yield based on 2.76 times MVK from C Gierczak, T., J. B. Burkholder, R. K. Talukdar, A. Mellouki, S. B. Barone, C and A. R. Ravishankara, Atmospheric fate of methyl vinyl ketone and methacrolein, C J. Photochem. Photobiol A: Chemistry, 110 1-10, 1997. C depends on pressure and wavelength, set upper limit to 1.0 C However, chamber evaluations for SAPRC07T require a pressure correction where C number density coefficient is five times higher. ! density correction to quantum yield DO IW = 1, NW DO I = 1, NZ FACTOR = (5.5 + 5.0*9.2E-19*2.465E+19) & / (5.5 + 5.0*9.2E-19*DENS(I)) QY(I, IW) = FACTOR * QY(I, IW) QY(I, IW) = MIN(1.0, QY(I, IW)) QY(I, IW) = MAX(0.0, QY(I, IW)) SQ(I, IW) = XC(I,IW)* QY(I, IW) ENDDO ENDDO REPLACE = .TRUE. CASE( 'MEK_MCMv32', 'MEK-06', 'MEK_06') C Quantum Yields from C Raber, W.H. (1992) PhD Thesis, Johannes Gutenberg-Universitaet, Mainz, Germany. C other channels assumed negligible (less than 10%). C Total quantum yield = 0.38 at 760 Torr. but Carter C adjusts to 0.175 based on chamber tests and sets the values in C mechanism definition file. ! temperature/density correction to quantum yield C Stern-Volmer form given: 1/phi = 0.96 + 2.22e-3*P(torr) C compute local pressure in torr DO IW = 1, NW DO I = 1, NZ IF( QY(I, IW) .GE. 1.0 )THEN FACTOR = 1.0 C NOTE: Case for SAPRC07T where quantum yield is one and adjusts the photolysis rates C by a multiplication factor in the mechanism definition file ELSE PRESSURE = (1.03547E-19*DENS(I)*TLEV(I)) ! units TORR FACTOR = (0.96 + 2.22E-3*760.0 ) & / (0.96 + 2.22E-3*PRESSURE ) ENDIF QY(I, IW) = FACTOR * QY(I, IW) QY(I, IW) = MIN(1.0, QY(I, IW)) QY(I, IW) = MAX(0.0, QY(I, IW)) SQ(I, IW) = XC(I,IW) * QY(I, IW) ENDDO ENDDO REPLACE = .TRUE. CASE( 'H2O2', 'H2O2_SAPRC99', 'H2O2_RACM2', 'H2O2_IUPAC10' ) ! Provide cross section and quantum yield for H2O2 photolysis ! H2O2 + hv -> 2 OH between 260 and 350 nm ! Otherwise use Cross section from file DO I = 1, NZ DO IW = 1, NW IF(WC(IW) .GE. 260.0 .AND. WC(IW) .LE. 350.0)THEN ! compute cross section at TLEV CHI = REAL( 1.0D0 /(1.0D0 + EXP(-1265.0D0/MAX(200.0D0, MIN(REAL(TLEV(I),8),400.0D0))) ), 4) SIG = CHI*H2O2_XCROSS_A(IW) + (1.0 - CHI)*H2O2_XCROSS_B(IW) ! compute correction factor normalized by value at T298K CHI = REAL( 1.0D0 /(1.0D0 + EXP(-1265.0D0/REAL(T298K,8)) ), 4) FACTOR = SIG & / (CHI*H2O2_XCROSS_A(IW) + (1.0 - CHI)*H2O2_XCROSS_B(IW)) ELSE FACTOR = 1.0 ENDIF print*,JLABEL,TLEV(I)-T298K,factor* XC(I, IW), XCROSS(I,IW) XC(I, IW) = FACTOR * XC(I, IW) SQ(I, IW) = XC(I, IW) * QY(I,IW) ENDDO ENDDO REPLACE = .TRUE. CASE( 'MGLY-06' , 'BACL-07', 'MGLY_06' , 'BACL_07', 'MGLY_IUPAC04', 'MGLY_IUPAC10' ) ! temperature/density correction to quantum yield DO IW = 1, NW DO I = 1, NZ C QY(I,IW) = MIN( QY(I,IW), 1.0) C QY(I,IW) = MAX( QY(I,IW), 0.0) ! Recommendation in NASA JPL (2011). Computed pressures are differences ! between layer pressures and pressure of interpolated values. Pressure units are Torrs. PRESSURE = (1.03547E-19*DENS(I)*TLEV(I)) ! TORR PRESSURE = MIN(472.0, PRESSURE) IF(WC(IW) .LT. 500.0 .AND. WC(IW) .GT. 240.0)THEN IF( WC( IW ) .LE. 370.0 )THEN PRESSURE = MAX( 400.0, 1.03547E-19 * DENS(I) * TLEV(I) ) & - 2.5524 * TLEV(I) ELSE PRESSURE = ( 1.03547E-19 * DENS(I) - 2.5524 ) * TLEV(I) END IF IF( QY(I,IW) .GT. 0.0001 .AND. QY(I,IW) .LT. 0.9999 )THEN CHI = QY(I,IW) SIG = 1.0 & /( 1.0 / QY( I, IW ) + 1.93E4 * EXP( -5639.0 / WC(IW) ) * PRESSURE ) FACTOR = SIG / CHI ELSE FACTOR = 1.0 ENDIF ELSE FACTOR = 1.0 ENDIF QY(I, IW) = FACTOR * QY(I, IW) QY(I, IW) = MIN(1.0, QY(I, IW)) QY(I, IW) = MAX(0.0, QY(I, IW)) SQ(I, IW) = XC(I,IW) * QY(I, IW) ENDDO ENDDO REPLACE = .TRUE. CASE( 'BIACET_MCMv32' ) ! Biacetyl quantum yield (CH3CO + CH3CO) = 0.158 for wavelength less than 460 nm ! Pressure correction based on phi(z=infi) and ph(z=0) values based on ! http://iupac.pole-ether.fr/htdocs/datasheets/pdf/P23_Biacetyl+hv.pdf dated 2011 ! by solving the below for kq ! phi(z=infi)/ph(z=0) = (0.76/0.16) = 1.0 + kq*Temp(z=0)*Number_Density(z=0) ! where Temp(z=0) = 298.15K and Number_Density(z=0) = 2.46E19 molecules/cm3 DO IW = 1, NW DO I = 1, NZ FACTOR = ( 1.0 + 5.19481E-22 * DENS0 * T298K ) & / ( 1.0 + 5.19481E-22 * DENS(I) * TLEV( I ) ) QY(I, IW) = MAX( MIN( FACTOR * QY(I, IW), 1.0), 0.0) SQ(I, IW) = XC(I,IW) * QY(I, IW) ENDDO ENDDO REPLACE = .TRUE. CASE( 'ACRO-09', 'ACRO_09', 'ACROLEIN_SAPRC99') ! density correction quantum yield DO IW = 1, NW DO I = 1, NZ QY(I,IW) = MIN( QY(I,IW), 1.0) QY(I,IW) = MAX( QY(I,IW), 0.0) C Number density dependence based on Gardner et. al (1997), C J. Phys. Chem., vol 91, pages 1922. The application uses C the quantum yields set in in cross-section file. For C SAPRC07T, yields set approximation four times NASA (2006) C because the mechanism developer sums over all possible channels and C Gardner et. al may support this conclusion. IF(DENS(I) .GE. 8.0E+17)THEN !!!!!! QDUM = (4.0E-3 + 1.0/(8.6E-2 + 1.613E-17*DENS(I))) !!!!!!& / 0.006384 FACTOR = (4.0E-3 + 1.0/(8.6E-2 + 1.613E-17*DENS(I))) & / (4.0E-3 + 1.0/(8.6E-2 + 1.613E-17*DENS0 )) ELSE IF(DENS(I) .LT. 8.0E+17)THEN !!!!!!! FACTOR = 12.00713 FACTOR = (4.0E-3 + 1.0/(8.6E-2 + 1.613E-17*8.0E+17)) & / (4.0E-3 + 1.0/(8.6E-2 + 1.613E-17*DENS0 )) ENDIF QY(I, IW) = FACTOR * QY(I, IW) QY(I, IW) = MIN(1.0, QY(I, IW)) QY(I, IW) = MAX(0.0, QY(I, IW)) SQ(I, IW) = XC(I,IW) * QY(I, IW) ENDDO ENDDO REPLACE = .TRUE. CASE( 'HCHOR-06', 'HCHOR_06', 'FORM_R_IUPAC10', 'FORM_R_IUPAC13', 'HCHO_R_SAPRC99', 'HCHO_RAD_RACM2', & 'HCHO_RAD_JPL19' ) ! 'CH2O -> H + HCO' ! temperature correction to cross-section DO IW = 1, NW DO I = 1, NZ CHI = HCHO_XCROSS_300K(IW) + HCHO_XCROSS_A(IW)*(T298K-300.0) IF(TLEV(I) .LT. 300.0 .AND. TLEV(I) .GT. 195.0)THEN SIG = HCHO_XCROSS_300K(IW) + HCHO_XCROSS_A(IW)*(TLEV(I)-300.0) ELSE IF( TLEV(I) .LE. 195.0)THEN SIG = HCHO_XCROSS_300K(IW) - HCHO_XCROSS_A(IW)*105.0 ELSE SIG = HCHO_XCROSS_300K(IW) ENDIF IF( CHI .GT. 0.0 )THEN FACTOR = MAX( SIG, 0.0)/ CHI ELSE FACTOR = 1.0 END IF XC(I, IW) = FACTOR * XC(I, IW) print*,JLABEL,TLEV(I)-T298K,XC(I, IW), XCROSS(I,IW) QY(I, IW) = ADJ_HCHO_QUANTR(IW, I) * QY(I, IW) QY(I, IW) = MIN(1.0, QY(I, IW)) QY(I, IW) = MAX(0.0, QY(I, IW)) SQ(I, IW) = XC(I,IW) * QY(I, IW) ENDDO ENDDO REPLACE = .TRUE. CASE( 'HCHO_M_MCMv32', 'HCHOM-06', 'HCHOM_06', 'FORM_M_IUPAC10', 'FORM_M_IUPAC13', 'HCHO_M_SAPRC99', 'HCHO_MOL_RACM2', & 'HCHO_MOL_JPL19' ) ! 'CH2O -> H2 + CO' ! temperature correction to cross-section DO IW = 1, NW DO I = 1, NZ CHI = HCHO_XCROSS_300K(IW) + HCHO_XCROSS_A(IW)*(T298K-300.0) IF(TLEV(I) .LT. 300.0 .AND. TLEV(I) .GT. 195.0)THEN SIG = HCHO_XCROSS_300K(IW) + HCHO_XCROSS_A(IW)*(TLEV(I)-300.0) ELSE IF( TLEV(I) .LE. 195.0)THEN SIG = HCHO_XCROSS_300K(IW) - HCHO_XCROSS_A(IW)*105.0 ELSE SIG = HCHO_XCROSS_300K(IW) ENDIF IF( CHI .GT. 0.0 )THEN FACTOR = MAX( SIG, 0.0)/ CHI ELSE FACTOR = 1.0 END IF print*,JLABEL,TLEV(I)-T298K,factor* XC(I, IW), XCROSS(I,IW) XC(I, IW) = FACTOR * XC(I, IW) ! QY(I, IW) = ADJ_HCHO_QUANTM(IW,I) * QY(I, IW) IF(WC(IW) .GE. 330.0 .AND. HCHO_QUANTM_STP(IW) .GT. 0.0)THEN QDUM = 1.0/HCHO_QUANTM_STP(IW) ! need to subst actual value in QY BETA = 1.0/(1.0-HCHO_QUANTR_STP(IW)) ! need to subst actual value in QY IF( TLEV(I) .LT. 300.0 .AND. TLEV(I) .GT. 220.0)THEN PRESSURE = 1.36312E-22*DENS(I)*TLEV(I) ALPHA = (QDUM - BETA) & * (1.+0.05*(WC(IW)-329.0)*((TLEV(I)-80.0)/80.0)) ELSEIF( TLEV(I) .LE. 220.0)THEN PRESSURE = 3.0E-20*DENS(I) ALPHA = (QDUM - BETA) & * (1.+0.0875*(WC(IW)-329.0)) ELSEIF( TLEV(I) .GE. 300.)THEN PRESSURE = 4.09E-20*DENS(I) ALPHA = (QDUM - BETA) & * (1.+0.1375*(WC(IW)-329.0)) ENDIF ! reduce wavelength dependence FACTOR = (BETA + 3.3601E-3 * 298.0 *ALPHA) & / (BETA + PRESSURE*ALPHA) ELSE FACTOR = 1.0 ENDIF QY(I, IW) = FACTOR * QY(I, IW) QY(I, IW) = MIN(1.0, QY(I, IW)) QY(I, IW) = MAX(0.0, QY(I, IW)) SQ(I, IW) = XC(I,IW) * QY(I, IW) ENDDO ENDDO REPLACE = .TRUE. CASE( 'O3O1D-06', 'O3O1D_06', 'O3_O1D_IUPAC10', 'O3_O1D_IUPAC04','O3O1D_NASA06' ) ! 'O3 -> O2 + O(1D)' ! temperature correction to cross-section DO IW = 1, NW DO I = 1, NZ FACTOR = MAX( ADJ_O3_XCROSS(IW,I), 0.0) XC(I, IW) = FACTOR * XC(I, IW) print*,JLABEL,TLEV(I)-T298K,WC(IW),XC(I,IW), XCROSS(I,IW),ADJ_O3_XCROSS(IW,I) ! the below IF block forces the yields of O3P and O1D to add to one ! assumes that NZ and NW does not change between subroutine calls IF( .NOT. COMPUTED_O3O3P .AND. .NOT. COMPUTED_O3O1D )THEN FACTOR = MAX( ADJ_O3O1D_QUANT(IW,I), 0.0) FACTOR = 1.0 QY(I, IW) = FACTOR * QY(I, IW) QY(I, IW) = MIN( QY(I, IW), 1.0) O3O1D_YIELD( I, IW ) = QY(I, IW) IF( IW .GE. NW .AND. I .GE. NZ )COMPUTED_O3O1D = .TRUE. ELSE IF( COMPUTED_O3O3P .AND. .NOT. COMPUTED_O3O1D )THEN QY(I, IW) = MAX((1.0-O3O3P_YIELD( I, IW )), 0.0) O3O1D_YIELD( I, IW ) = QY(I, IW) IF( IW .GE. NW .AND. I .GE. NZ )COMPUTED_O3O1D = .TRUE. ELSE IF( COMPUTED_O3O1D )THEN QY(I, IW) = O3O1D_YIELD( I, IW ) END IF print*,JLABEL,TLEV(I)-T298K,WC(IW), QY(I, IW), QUANT(I,IW) SQ(I, IW) = XC(I,IW) * QY(I, IW) ENDDO ENDDO REPLACE = .TRUE. CASE( 'O3O3P-06', 'O3O3P_06', 'O3_O3P_IUPAC10', 'O3_O3P_IUPAC04', 'O3O3P_NASA06' ) ! 'O3 -> O2 + O(3P)' ! temperature correction to cross-section DO IW = 1, NW DO I = 1, NZ FACTOR = MAX( ADJ_O3_XCROSS(IW,I), 0.0) XC(I, IW) = FACTOR * XC(I, IW) print*,JLABEL,TLEV(I)-T298K,WC(IW),XC(I,IW), XCROSS(I,IW),ADJ_O3_XCROSS(IW,I) ! the below IF block forces the yields of O3P and O1D to add to one ! assumes that NZ and NW does not change between subroutine calls IF( .NOT. COMPUTED_O3O3P .AND. .NOT. COMPUTED_O3O1D )THEN FACTOR = MAX( ADJ_O3O3P_QUANT(IW,I), 0.0) QY(I, IW) = FACTOR * QY(I, IW) QY(I, IW) = MIN( QY(I, IW), 1.0) O3O3P_YIELD( I, IW ) = QY(I, IW) IF( IW .GE. NW .AND. I .GE. NZ )COMPUTED_O3O3P = .TRUE. print*,JLABEL,TLEV(I)-T298K, QY(I, IW), QUANT(I,IW) ELSE IF( .NOT. COMPUTED_O3O3P .AND. COMPUTED_O3O1D )THEN QY(I, IW) = MAX((1.0-O3O1D_YIELD( I, IW )), 0.0) O3O3P_YIELD( I, IW ) = QY(I, IW) IF( IW .GE. NW .AND. I .GE. NZ )COMPUTED_O3O3P = .TRUE. print*,JLABEL,TLEV(I)-T298K, WC(IW), QY(I, IW), QUANT(I,IW), O3O1D_YIELD( I, IW ) ELSE IF( COMPUTED_O3O3P )THEN QY(I, IW) = O3O3P_YIELD( I, IW ) print*,JLABEL,TLEV(I)-T298K, QY(I, IW), QUANT(I,IW) END IF SQ(I, IW) = XC(I,IW) * QY(I, IW) ENDDO ENDDO REPLACE = .TRUE. CASE( 'ACET-06', 'ACET_06', 'ACET_IUPAC10', 'ACETONE', 'ACT_RACM2' ) ! 'CH3COCH3 -> products' FACTOR = 1.0 DO IW = 1, NW DO I = 1, NZ ! temperature correction to cross-section SIG = XC_D_ACETONE(IW) & + XC_A_ACETONE(IW)*TLEV(I) & + XC_B_ACETONE(IW)*TLEV(I)**2 & + XC_C_ACETONE(IW)*TLEV(I)**3 CHI = XC_D_ACETONE(IW) & + XC_A_ACETONE(IW)*T298K & + XC_B_ACETONE(IW)*T298K**2 & + XC_C_ACETONE(IW)*T298K**3 IF( CHI .GT. 0.0 )THEN FACTOR = MAX(SIG/CHI, 0.0) ELSE FACTOR = 1.0 END IF XC(I, IW) = FACTOR * XC(I, IW) ! print*,JLABEL,TLEV(I)-T298K,XC(I, IW) , XCROSS(I,IW) ! temperature/density correction to quantum yield CHI = QY_ACETONE(T298K, DENS0, WC(IW)) IF( CHI .GT. 0.0 )THEN FACTOR = QY_ACETONE(TLEV(I),DENS(I),WC(IW)) & / CHI ELSE FACTOR = 1.0 END IF QY(I, IW) = MAX(FACTOR, 0.0) * QY(I, IW) QY(I, IW) = MIN(1.0, QY(I, IW)) SQ(I, IW) = XC(I,IW) * QY(I, IW) ENDDO ENDDO REPLACE = .TRUE. CASE( 'CL2', 'CL2_IUPAC04') ! NASA (2006) and IUPAC(2005) recommended cross-section as a function of ! wavelength and temperature taken from ! D. Maric et al. (1993) J. Photochem. Photobiol. A: Chem. 70, 205. DO IW = 1, NW DO I = 1, NZ ! temperature correction to cross-section TDUM = TLEV(I) IF(TLEV(I) .GT. 300.0)THEN TDUM = 300.0 ELSEIF(TLEV(I) .LT. 195.0)THEN TDUM = 195.0 ELSE TDUM = TLEV(I) ENDIF ! may be able to simplfy using definition of tanh and wavelength independence ALPHA = TANH(470.676/TDUM) BETA = TANH(470.676/T298K) IF(WC(IW) .GT. 550.0)THEN FACTOR = 1.0 ELSEIF(WC(IW) .LT. 250.0)THEN FACTOR = 1.0 ELSE WDUM = WC(IW) SIG = SQRT(ALPHA) & * (27.3 *EXP(-99.0*ALPHA*(LOG(329.5/WDUM))**2) & + 0.932*EXP(-91.5*ALPHA*(LOG(406.5/WDUM))**2)) CHI = SQRT(BETA) & * (27.3 *EXP(-99.0*BETA*(LOG(329.5/WDUM))**2) & + 0.932*EXP(-91.5*BETA*(LOG(406.5/WDUM))**2)) FACTOR = SIG / CHI ENDIF print*,JLABEL,TLEV(I)-T298K,factor * XC(I, IW), XCROSS(I,IW) ! IUPAC (2005) and NASA (2006) recommend quantum yield equal to one when ! cross-section is nonzero but file's values XC(I, IW) = FACTOR * XC(I, IW) SQ(I, IW) = XC(I,IW) * QY(I, IW) ENDDO ENDDO REPLACE = .TRUE. CASE DEFAULT DO IW = 1, NW DO I = 1, NZ SQ(I, IW) = XC(I,IW)*QY(I,IW) ENDDO ENDDO REPLACE = .FALSE. END SELECT FIRSTCALL = .FALSE. RETURN END C FUNCTION OZONE_YIELD(W, T) !-----------------------------------------------------------------------------* ! taken from Tropospheric Ultraviolet-Visible (TUV) radiation model =* ! Version 4.5 =* ! Sep 2007 =* !-----------------------------------------------------------------------------* ! PURPOSE: =* * function to calculate the quantum yield O3 + hv -> O(1D) + O2, =* * according to: * Matsumi, Y., F. J. Comes, G. Hancock, A. Hofzumanhays, A. J. Hynes, * M. Kawasaki, and A. R. Ravishankara, QUantum yields for production of O(1D) * in the ultraviolet photolysis of ozone: Recommendation based on evaluation * of laboratory data, J. Geophys. Res., 107, 10.1029/2001JD000510, 2002. !-----------------------------------------------------------------------------* ! TUV model developed by Sasha Madronich with important contributions from: =* ! Chris Fischer, Siri Flocke, Julia Lee-Taylor, Bernhard Meyer, =* ! Irina Petropavlovskikh, Xuexi Tie, and Jun Zen. =* ! To contact the author, write to: =* ! Sasha Madronich, NCAR/ACD, P.O.Box 3000, Boulder, CO, 80307-3000, USA or =* ! send email to: sasha@ucar.edu or tuv@acd.ucar.edu =* !-----------------------------------------------------------------------------* ! This program is free software; you can redistribute it and/or modify =* ! it under the terms of the GNU General Public License as published by the =* ! Free Software Foundation; either version 2 of the license, or (at your =* ! option) any later version. =* ! The TUV package is distributed in the hope that it will be useful, but =* ! WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTIBI- =* ! LITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public =* ! License for more details. =* ! To obtain a copy of the GNU General Public License, write to: =* ! Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. =* !-----------------------------------------------------------------------------* ! Copyright (C) 1994,95,96,97,98,99,2000,01,02,03, 04, 05, 06, 07 =* ! by the University Corporation for Atmospheric Research =* !-----------------------------------------------------------------------------* IMPLICIT NONE REAL W ! wavelength, nm REAL T ! temperature, deg K REAL OZONE_YIELD ! dimensionaless C local variables REAL KT REAL A(3), X(3), OM(3) REAL Q1, Q2 DATA A/ 0.8036, 8.9061, 0.1192/ DATA X/ 304.225, 314.957, 310.737/ DATA OM/ 5.576, 6.601, 2.187/ OZONE_YIELD = 0.0 KT = 0.695 * T Q1 = 1.0 Q2 = EXP(-825.518/KT) IF(W .LE. 305.0) THEN OZONE_YIELD = 0.90 ELSEIF(W .GT. 305.0 .AND. W .LE. 328.0) THEN OZONE_YIELD = 0.0765 + & A(1)* (Q1/(Q1+Q2))*EXP(-((X(1)-W)/OM(1))**4.0)+ & A(2)*(T/300.)**2.0*(Q2/(Q1+Q2))*EXP(-((X(2)-W)/OM(2))**2.0)+ & A(3)*(T/300.)**1.5 *EXP(-((X(3)-W)/OM(3))**2.0) ELSEIF(W .GT. 328.0 .AND. W .LE. 340.0) THEN OZONE_YIELD = 0.08 ELSEIF(W .GT. 340.) THEN OZONE_YIELD = 0.0 ENDIF END !============================================================================* SUBROUTINE JH2O2_260T350NM(WC,TEMP,AIRDEN,XCROSS,QUANT) !-----------------------------------------------------------------------------* ! taken from Tropospheric Ultraviolet-Visible (TUV) radiation model =* ! Version 4.5 =* ! Sep 2007 =* !-----------------------------------------------------------------------------* ! PURPOSE: =* ! Provide cross section and quantum yield for H2O2 photolysis =* ! H2O2 + hv -> 2 OH between 260 and 350 nm =* ! Otherwise use Cross section from JPL97, tabulated values @ 298K ! Quantum yield: Assumed to be unity =* !-----------------------------------------------------------------------------* ! PARAMETERS: =* ! WC - REAL, center points of wavelength interval (I)=* ! TLEV - REAL, temperature (K) at altitude level (I)=* ! AIRDEN - REAL, air density (molec/cc) at altitude level (I)=* ! xcross - cross section (cm^2) for each (IO)=* ! photolysis reaction defined, at input wavelength and =* ! at defined altitude level =* ! quant - quantum yield for each (IO)=* ! photolysis reaction defined, at input wavelength and =* ! at defined altitude level =* ! JLABEL - CHARACTER*50, string identifier for each photolysis reaction (L)=* ! defined =* !-----------------------------------------------------------------------------* IMPLICIT NONE ! input INTEGER NW REAL WC INTEGER NZ REAL TEMP REAL AIRDEN ! weighting functions CHARACTER(50) JLABEL REAL XCROSS,QUANT ! local REAL YG REAL QY REAL A0, A1, A2, A3, A4, A5, A6, A7 REAL B0, B1, B2, B3, B4 REAL XS REAL T INTEGER I, IW, N, IDUM INTEGER IERR REAL LAMBDA REAL SUMA, SUMB, CHI **************** H2O2 photodissociation ! cross section from Lin et al. 1978 JLABEL = 'H2O2 ' ! 'H2O2 -> 2 OH' ! quantum yield = 1 QY = 1.0 XS = 0.0 ! Parameterization (JPL06) A0 = 6.4761E+04 A1 = -9.2170972E+02 A2 = 4.535649 A3 = -4.4589016E-03 A4 = -4.035101E-05 A5 = 1.6878206E-07 A6 = -2.652014E-10 A7 = 1.5534675E-13 B0 = 6.8123E+03 B1 = -5.1351E+01 B2 = 1.1522E-01 B3 = -3.0493E-05 B4 = -1.0924E-07 ! Range 260-350 nm; 200-400 K IF ((WC .GE. 260.) .AND. (WC .LT. 350.)) THEN LAMBDA = WC SUMA = ((((((A7*LAMBDA + A6)*LAMBDA + A5)*LAMBDA + & A4)*LAMBDA +A3)*LAMBDA + A2)*LAMBDA + & A1)*LAMBDA + A0 SUMB = (((B4*LAMBDA + B3)*LAMBDA + B2)*LAMBDA + & B1)*LAMBDA + B0 ! sumA = 1.5534675E-13*lambda**7.0 - 2.652014E-10*lambda**6.0 ! & + 1.6878206E-07*lambda**5.0 - 4.035101E-05*lambda**4.0 ! & - 4.4589016E-03*lambda**3.0 + 4.535649E+00*lambda**2.0 ! & - 9.2170972E+02*lambda + 6.4761E+04 ! sumB = -1.0924E-07*lambda**4.0 - 3.0493E-05*lambda**3.0 ! & + 1.1522E-01*lambda**2.0 - 5.1351E+01*lambda ! & + 6.8123E+03 T = MIN(MAX(TEMP,200.),400.) CHI = 1./(1.+EXP(-1265./T)) XS = (CHI * SUMA + (1.-CHI)*SUMB)*1E-21 ENDIF XCROSS = XS QUANT = QY RETURN END SUBROUTINE JHCHO_NASA_2006(NW, WC, NZ, TLEV, AIRDEN, XCROSS, QUANTR, QUANTM) !-----------------------------------------------------------------------------* ! PURPOSE: =* ! Provide cross section and quantum yields for CH2O photolysis =* ! (a) CH2O + hv -> H + HCO =* ! (b) CH2O + hv -> H2 + CO =* ! Based on recommendations from NASA JPL (2006) !-----------------------------------------------------------------------------* ! PARAMETERS: =* ! NW - INTEGER, number of specified intervals + 1 in working (I)=* ! wavelength grid =* ! WL - REAL, vector of lower limits of wavelength intervals in (I)=* ! working wavelength grid =* ! WC - REAL, vector of center points of wavelength intervals in (I)=* ! working wavelength grid =* ! NZ - INTEGER, number of altitude levels in working altitude grid (I)=* ! TLEV - REAL, temperature (K) at each specified altitude level (I)=* ! AIRDEN - REAL, air density (molec/cc) at each altitude level (I)=* ! J - INTEGER, counter for number of weighting functions defined (IO)=* ! SQ - REAL, cross section x quantum yield (cm^2) for each (O)=* ! photolysis reaction defined, at each defined wavelength and =* ! at each defined altitude level =* ! JLABEL - CHARACTER*50, string identifier for each photolysis reaction (O)=* ! defined =* !-----------------------------------------------------------------------------* USE CSQY_REFER_DATA IMPLICIT NONE INTEGER KDATA PARAMETER(KDATA=16000) ! input INTEGER NW REAL WL(KW), WC(KW) INTEGER NZ REAL TLEV(KZ) REAL AIRDEN(KZ) ! weighting functions CHARACTER(50) JLABEL(3) REAL XCROSS(KW,KZ) REAL QUANTR(KW,KZ), QUANTM(KW,KZ) ! input/output: INTEGER J, IZ, IW ! data arrays INTEGER N REAL X(KDATA), Y(KDATA) REAL XL(KDATA), XC(KDATA), XU(KDATA) INTEGER N1, N2, N3, N4, N5 REAL X1(KDATA), X2(KDATA), X3(KDATA), X4(KDATA), X5(KDATA) REAL Y1(KDATA), Y2(KDATA), Y3(KDATA), Y4(KDATA), Y5(KDATA) ! local REAL YG(KW), YG1(KW), YG2(KW), YG3(KW), YG4(KW), YG5(KW) REAL A, B, C REAL A0, A1, A2, A3, A4, A5, A6, A7 REAL B0, B1, B2, B3, B4 REAL QY, QY1, QY2, QY3 REAL SIGMA, SIG, SLOPE REAL XS REAL T REAL DUM INTEGER IDUM INTEGER I INTEGER IROW, ICOL, IREV INTEGER IERR INTEGER MOPT1, MOPT2 CHARACTER(LEN=120) :: FILE_LINE LOGICAL EXISTS REAL WU(KW) REAL PRESSURE REAL PHI1, PHI2, PHI20, AK300, AKT REAL TDUM LOGICAL :: FIRSTCALL = .TRUE. ! HCHO photodissociatation J = 1 JLABEL(J) = 'HCHOR-06 ' ! 'CH2O -> H + HCO' J = J+1 JLABEL(J) = 'HCHOM-06 ' ! 'CH2O -> H2 + CO' ! compute upper limit of wavelength bins DO I = 1, NW WU(I) = 2.0*WC(I) - WL(I) ENDDO N = 150 YG1 = 1.0E-20*YG1 YG2 = 1.0E-24*YG2 N = 112 IF( FIRSTCALL )THEN ! FIRSTCALL = .false. DO IW = 1, NW TDUM = 265.0 SIG = HCHO_XCROSS_300K(IW) IF(TDUM .LT. 300.0 .AND. TDUM .GT. 195.0)THEN SIG = SIG + HCHO_XCROSS_A(IW)*(TDUM-300.0) ELSEIF( TLEV(I) .LE. 195.0)THEN SIG = SIG - HCHO_XCROSS_A(IW)*105.0 ENDIF QY1 = HCHO_QUANTR_STP(IW) IF ( (WC(IW) .GE. 330.) .AND. (HCHO_QUANTM_STP(IW) .GT. 0.) ) THEN PHI1 = HCHO_QUANTR_STP(IW) PHI2 = HCHO_QUANTM_STP(IW) PHI20 = 1. - PHI1 AK300=((1./PHI2)-(1./PHI20)) ! IS DIVIDED BY 1 ATM IF( TDUM .LT. 300.0 .AND. TDUM .GT. 220.0)THEN PRESSURE = 82.06*(AIRDEN(I)/6.02E+23)*TDUM AKT = AK300 & * (1.+0.05*(WC(IW)-329.0)*((TDUM-80.0)/80.0)) ELSEIF( TDUM .LE. 220.0)THEN PRESSURE = 3.0E-20*AIRDEN(I) AKT = AK300 & * (1.+0.0875*(WC(IW)-329.0)) ELSEIF( TDUM .GE. 300)THEN PRESSURE = 4.09E-20*AIRDEN(I) AKT = AK300 & * (1.+0.1375*(WC(IW)-329.0)) ENDIF QY2 = 1. / ( (1./PHI20) + PRESSURE*AKT) ELSE QY2 = HCHO_QUANTM_STP(IW) ENDIF QY2 = MAX(0.0,QY2) QY2 = MIN(1.0,QY2) C WRITE(6,'(I3,1X,F6.2,6(1X,ES12.4))')IW,WC(IW),SIG,QY1,QY2, C & HCHO_XCROSS_300K(IW),HCHO_QUANTR_STP(IW), C & HCHO_QUANTM_STP(IW) ENDDO ENDIF DO IW = 1, NW DO I = 1, NZ ! cross-section correction SIG = HCHO_XCROSS_300K(IW) IF(TLEV(I) .LT. 300.0 .AND. TLEV(I) .GT. 195.0)THEN SIG = SIG + HCHO_XCROSS_A(IW)*(TLEV(I)-300.0) ELSEIF( TLEV(I) .LE. 195.0)THEN SIG = SIG - HCHO_XCROSS_A(IW)*105.0 ENDIF ! corrections to quantum yields QY1 = HCHO_QUANTR_STP(IW) IF(WC(IW) .GE. 330.0 .AND. HCHO_QUANTM_STP(IW) .GT. 0.0)THEN PHI1 = HCHO_QUANTR_STP(IW) PHI2 = HCHO_QUANTM_STP(IW) PHI20 = 1.0 - PHI1 AK300=((1./PHI2)-(1./PHI20)) ! IS DIVIDED BY 1 ATM IF(TLEV(I) .LT. 300.0 .AND. TLEV(I) .GT. 220.0)THEN PRESSURE = 82.06*(AIRDEN(I)/6.02E+23)*TLEV(I) AKT = AK300 & * (1.+0.05*(WC(IW)-329.0)*((TLEV(I)-80.0)/80.0)) ELSEIF(TLEV(I) .LE. 220.0)THEN PRESSURE = 3.0E-20*AIRDEN(I) AKT = AK300 & * (1.+0.0875*(WC(IW)-329.0)) ELSEIF(TLEV(I) .GE. 300.0)THEN PRESSURE = 4.09E-20*AIRDEN(I) AKT = AK300 & * (1.+0.1375*(WC(IW)-329.0)) ENDIF QY2 = 1.0/( 1.0/PHI20 + PRESSURE*AKT ) ELSE QY2 = HCHO_QUANTM_STP(IW) ENDIF QY2 = MAX(0.0,QY2) QY2 = MIN(1.0,QY2) XCROSS(IW, I) = SIG QUANTR(IW, I) = QY1 QUANTM(IW, I) = QY2 ENDDO ENDDO RETURN END !============================================================================* SUBROUTINE NASA_NO3_QUANTAS(NW,WC,NZ,TLEV,AIRDEN,QYNO3_NO, & QYNO3_NO2) !-----------------------------------------------------------------------------* ! PURPOSE: =* ! Provide the quantum yield for =* ! both channels of NO3 photolysis: =* ! (a) NO3 + hv -> NO2 + O(3P) =* ! (b) NO3 + hv -> NO + O2 =* !-----------------------------------------------------------------------------* ! PARAMETERS: =* ! NW - INTEGER, number of specified intervals + 1 in working (I)=* ! wavelength grid =* ! WL - REAL, vector of lower limits of wavelength intervals in (I)=* ! working wavelength grid =* ! WC - REAL, vector of center points of wavelength intervals in (I)=* ! working wavelength grid =* ! NZ - INTEGER, number of altitude levels in working altitude grid (I)=* ! TLEV - REAL, temperature (K) at each specified altitude level (I)=* ! AIRDEN - REAL, air density (molec/cc) at each altitude level (I)=* ! J - INTEGER, counter for number of weighting functions defined (IO)=* ! SQ - REAL, cross section x quantum yield (cm^2) for each (O)=* ! photolysis reaction defined, at each defined wavelength and =* ! at each defined altitude level =* ! JLABEL - CHARACTER*50, string identifier for each photolysis reaction (O)=* ! defined =* !-----------------------------------------------------------------------------* USE CSQY_REFER_DATA IMPLICIT NONE ! Arguments: INTEGER, INTENT( IN ) :: NW INTEGER, INTENT( IN ) :: NZ REAL, INTENT( IN ) :: TLEV(KZ) REAL, INTENT( IN ) :: AIRDEN(KZ) REAL, INTENT( IN ) :: WC(KW) REAL, INTENT( OUT ) :: QYNO3_NO2(KW,KZ) REAL, INTENT( OUT ) :: QYNO3_NO(KW,KZ) ! Local: INTEGER, PARAMETER :: KDATA = 350 CHARACTER(LEN=120) :: FILE_LINE CHARACTER( 50 ) :: JLABEL(3) REAL :: SQ(1,KZ,KW) REAL :: X1(KDATA) REAL :: Y1(KDATA),Y2(KDATA),Y3(KDATA) REAL :: Z1(KDATA),Z2(KDATA),Z3(KDATA) REAL :: QY1(KDATA),QY2(KDATA) REAL :: WL(KW), WU(KW) REAL :: YG(KW), YG1(KW), YG2(KW) REAL :: TEMP_ADJ(KZ) REAL :: SLOPE REAL :: QY INTEGER :: IROW, ICOL INTEGER :: I, IW, J, N, IDUM INTEGER :: IERR INTEGER :: MABS LOGICAL :: EXISTS LOGICAL, SAVE :: FIRSTCALL = .TRUE. ! for NO3 ->NO+O2 J = 0 J = J + 1 JLABEL(J) = 'NO3NO-06 ' ! 'NO3 -> NO + O2' ! for NO3 ->NO2+O J = J + 1 JLABEL(J) = 'NO3NO2-6 ' ! 'NO3 -> NO2 + O(3P)' TEMP_ADJ = 1.0 DO I = 1, NZ TEMP_ADJ(I) = (1.0-EXP(-1096.4/TLEV(I)) & - 2.0*EXP(-529.5/TLEV(I))) & / (1.0-EXP(-1096.4/298.0) & - 2.0*EXP(-529.5/298.0)) END DO DO I = 1, NW ! compute upper limit of wavelength bins WU(I) = 2.0*WC(I) - WL(I) END DO DO I = 1, NZ DO IW = 1, NW QY1(IW) = NO3NO_QUANT_298K(IW) QY2(IW) = NO3NO2_QUANT_298K(IW) IF(TLEV(I) .LT. 298.0 .AND. TLEV(I) .GE. 230.0)THEN SLOPE = (NO3NO_QUANT_298K(IW)-NO3NO_QUANT_230K(IW)) & / 68.0 QY1(IW) = NO3NO_QUANT_230K(IW) + SLOPE*(TLEV(I)-230.0) SLOPE = (NO3NO2_QUANT_298K(IW)-NO3NO2_QUANT_230K(IW)) & / 68.0 QY2(IW) = NO3NO2_QUANT_230K(IW) + SLOPE*(TLEV(I)-230.0) ELSEIF(TLEV(I) .LT. 230.0 .AND. TLEV(I) .GE. 190.0)THEN SLOPE = (NO3NO_QUANT_230K(IW)-NO3NO_QUANT_190K(IW)) & / 40.0 QY1(IW) = NO3NO_QUANT_190K(IW) + SLOPE*(TLEV(I)-190.0) SLOPE = (NO3NO2_QUANT_230K(IW)-NO3NO2_QUANT_190K(IW)) & / 40.0 QY2(IW) = NO3NO2_QUANT_190K(IW) + SLOPE*(TLEV(I)-190.0) ELSEIF( TLEV(I) .LT. 190)THEN QY1(IW) = NO3NO_QUANT_190K(IW) QY2(IW) = NO3NO2_QUANT_190K(IW) ENDIF END DO DO IW = 1, NW ! correction factor accounts for units of interpolated data QYNO3_NO(IW,I) = QY1(IW)*0.001 QYNO3_NO2(IW,I) = QY2(IW)*0.001 END DO END DO RETURN END C REAL FUNCTION QY_ACETONE_OLD(TEMP, DENS_NUMB, LAMBDA) ! Computes acetone quantum yields according to: ! IUPAC (2005) recommendation based on ! Blitz, M. A., D. E. Heard, M. J. Pilling, S. R. Arnold, and M. P. Chipperfield ! (2004), Pressure and temperature-dependent quantum yields for the ! photodissociation of acetone between 279 and 327.5 nm, Geophys. ! Res. Lett., 31, L06111, doi:10.1029/2003GL018793. IMPLICIT NONE C inputs REAL TEMP ! air temperature, K REAL DENS_NUMB ! air number density, 1/cm^3 REAL LAMBDA ! wavelength, nm ! local REAL A0 ! 1st coef for qy REAL A1 ! 2nd coef for qy REAL A2 ! 3rd coef for qy REAL A3 ! 4th coef for qy REAL A4 ! 5th coef for qy REAL PHI_CO ! CO branch of IUPAC (2005) acetone QYZ REAL PHI_CH3CO ! CH3CO branch of IUPAC (2005) acetone QYZ REAL AA ! scratch variable for IUPAC (2005) acetone QYZ REAL BB ! scratch variable for IUPAC (2005) acetone QYZ REAL CC ! scratch variable for IUPAC (2005) acetone QYZ IF( LAMBDA .GE. 248.0 .AND. LAMBDA .LE. 349.0)THEN AA = 0.350*(TEMP/295.0)**(-1.28) BB = 0.068*(TEMP/295.0)**(-2.65) A0 = (AA / (1.0 - AA))*exp(BB*(LAMBDA-248.0)) PHI_CO = 1.0 / (1.0 + A0) IF( LAMBDA .LE. 302.0 ) THEN C 248-302 nm AA = 1.600*1.0E-19 *(TEMP/295.0)**(-2.38) BB = 0.55*1.0E-03 *(TEMP/295.0)**(-3.19) A1 = AA*exp( -BB*((1.0E+07/LAMBDA)-33113.0) ) PHI_CH3CO = (1.0 - PHI_CO) / (1.0 + A1*DENS_NUMB) C 302-349 nm ELSE AA = 1.62*1.0E-17 *(TEMP/295.0)**(-10.03) BB = 1.79*1.0E-3 *(TEMP/295.0)**(-1.364) A2 = AA*exp(-BB*((1.0E+07/LAMBDA) - 30488.0)) AA = 26.29* (TEMP/295.0)**(-6.59) BB = 5.72 *1.0E-7 *(TEMP/295.0)**(-2.93) CC = (30006.0) *(TEMP/295.0)**(-0.064) A3 = AA*exp(-BB*((1.0E+07/LAMBDA) - CC)**2.0) AA = 1.67*1.0E-15 *(TEMP/295.0)**(-7.25) BB = 2.08*1.0E-3 *(TEMP/295.0)**(-1.16) A4 = AA*exp(-BB *((1.0E+07/LAMBDA) - 30488.0)) PHI_CH3CO = (1.0 - PHI_CO) & * (1.0 + A4*DENS_NUMB + A3) & / ( (1.0 + A2*DENS_NUMB + A3) & * (1.0 + A4*DENS_NUMB) ) ENDIF QY_ACETONE_OLD = PHI_CO + PHI_CH3CO ELSEIF(LAMBDA .LT. 248.0 .AND. LAMBDA .GT. 0.0)THEN ! set QY to 1.0 ! based on IUPAC (2005) data sheet PHI_CO = 0.05 PHI_CH3CO = 0.95 QY_ACETONE_OLD = PHI_CO + PHI_CH3CO ELSEIF(LAMBDA .GT. 349.0)THEN QY_ACETONE_OLD = 0.0 ENDIF QY_ACETONE_OLD = MAX(0.0,MIN(1.0, QY_ACETONE_OLD)) RETURN END FUNCTION QY_ACETONE_OLD !/////////////////////////////////////////////////////////////////////// REAL FUNCTION QY_ACETONE( TEMP, DENS_NUMB, LAMBDA ) !----------------------------------------------------------------------- ! Computes acetone quantum yields according to: ! IUPAC (2005) recommendation based on ! Blitz, M. A., D. E. Heard, M. J. Pilling, S. R. Arnold, and M. P. Chipperfield ! (2004), Pressure and temperature-dependent quantum yields for the ! photodissociation of acetone between 279 and 327.5 nm, Geophys. ! Res. Lett., 31, L06111, doi:10.1029/2003GL018793. !----------------------------------------------------------------------- IMPLICIT NONE !***arguments REAL, INTENT(IN) :: TEMP ! air temperature, K REAL, INTENT(IN) :: DENS_NUMB ! air number density, 1/cm^3 REAL, INTENT(IN) :: LAMBDA ! wavelength, nm !***local REAL :: A0 ! 1st coef for qy REAL :: A1 ! 2nd coef for qy REAL :: A2 ! 3rd coef for qy REAL :: A3 ! 4th coef for qy REAL :: A4 ! 5th coef for qy REAL :: PHI_CO ! CO branch of IUPAC (2005) acetone QYZ REAL :: PHI_CH3CO ! CH3CO branch of IUPAC (2005) acetone QYZ REAL :: AA ! scratch variable for IUPAC (2005) acetone QYZ REAL :: BB ! scratch variable for IUPAC (2005) acetone QYZ REAL :: CC ! scratch variable for IUPAC (2005) acetone QYZ REAL :: TEMP_ARGUE ! temperature over 295 K REAL :: INV_LAMBDA ! reciprocal of wavelength, 1.E+7/nm REAL, PARAMETER :: T295K = 295 TEMP_ARGUE = T295K / TEMP INV_LAMBDA = 1.0E+7 / LAMBDA IF ( LAMBDA .GE. 248.0 .AND. LAMBDA .LE. 349.0 ) THEN AA = 0.350 * TEMP_ARGUE**(1.28) BB = 0.068 * TEMP_ARGUE**(2.65) A0 = ( AA / ( 1.0 - AA ) ) * EXP( BB * ( LAMBDA - 248.0 ) ) PHI_CO = 1.0 / ( 1.0 + A0 ) IF ( LAMBDA .LE. 302.0 ) THEN !***wavelengths 248-302 nm AA = 1.600 * 1.0E-19 * TEMP_ARGUE**(2.38) BB = 0.55 * 1.0E-03 * TEMP_ARGUE**(3.19) A1 = AA * EXP( -BB * ( INV_LAMBDA - 33113.0 ) ) PHI_CH3CO = ( 1.0 - PHI_CO ) / ( 1.0 + A1*DENS_NUMB ) !***wavelengths 302-349 nm ELSE AA = 1.62 * 1.0E-17 * TEMP_ARGUE**(10.03) BB = 1.79 * 1.0E-3 * TEMP_ARGUE**(1.364) A2 = AA * EXP( -BB * ( INV_LAMBDA - 30488.0 ) ) AA = 26.29 * TEMP_ARGUE**(6.59) BB = 5.72 * 1.0E-7 * TEMP_ARGUE**(2.93) CC = 30006.0 * TEMP_ARGUE**(0.064) A3 = AA * EXP( -BB * (INV_LAMBDA - CC )**2.0 ) AA = 1.67 * 1.0E-15 * TEMP_ARGUE**(7.25) BB = 2.08 * 1.0E-3 * TEMP_ARGUE**(1.16) A4 = AA * EXP( -BB * ( INV_LAMBDA - 30488.0 ) ) PHI_CH3CO = ( 1.0 - PHI_CO ) & * ( 1.0 + A4 * DENS_NUMB + A3 ) & / ( ( 1.0 + A2 * DENS_NUMB + A3 ) & * ( 1.0 + A4 * DENS_NUMB ) ) END IF QY_ACETONE = PHI_CO + PHI_CH3CO ELSE IF ( LAMBDA .LT. 248.0 .AND. LAMBDA .GT. 0.0 ) THEN ! set QY to 1.0 !***based on IUPAC (2005) data sheet PHI_CO = 0.45 PHI_CH3CO = 0.55 QY_ACETONE = PHI_CO + PHI_CH3CO ELSE IF ( LAMBDA .GT. 349.0 ) THEN QY_ACETONE = 0.0 END IF QY_ACETONE = MAX( 0.0, MIN( 1.0, QY_ACETONE ) ) RETURN END FUNCTION QY_ACETONE ! This file contains subroutines used for calculation of quantum yields for ! various photoreactions: ! qyacet - q.y. for acetone, based on Blitz et al. (2004) !***************************************************************************** REAL FUNCTION QY_ACETONE_TUV(T, M, w) !-----------------------------------------------------------------------------* ! taken from Tropospheric Ultraviolet-Visible (TUV) radiation model =* ! Version 4.6 =* !-----------------------------------------------------------------------------* ! Compute acetone quantum yields according to the parameterization of: ! Blitz, M. A., D. E. Heard, M. J. Pilling, S. R. Arnold, and M. P. Chipperfield ! (2004), Pressure and temperature-dependent quantum yields for the ! photodissociation of acetone between 279 and 327.5 nm, Geophys. ! Res. Lett., 31, L06111, doi:10.1029/2003GL018793. IMPLICIT NONE ! input: ! T = temperature, K ! m = air number density, molec. cm-3 ! w = wavelength, nm REAL w, T, M ! internal: REAL a0, a1, a2, a3, a4 REAL b0, b1, b2, b3, b4 REAL c3 REAL cA0, cA1, cA2, cA3, cA4 ! output ! fco = quantum yield for product CO ! fac = quantum yield for product CH3CO (acetyl radical) REAL fco, fac !** set out-of-range values: ! use low pressure limits for shorter wavelengths ! set to zero beyound 327.5 IF(w .LT. 279. .AND. w .GE. 1.0) THEN fco = 0.05 fac = 0.95 QY_ACETONE_TUV = MAX(0.0,MIN(1.0, fco+fac)) RETURN ENDIF IF(w .GT. 327.5 .OR. w .LT. 1.0) THEN fco = 0. fac = 0. QY_ACETONE_TUV = MAX(0.0,MIN(1.0, fco+fac)) RETURN ENDIF !** CO (carbon monoxide) quantum yields: a0 = 0.350 * (T/295.)**(-1.28) b0 = 0.068 * (T/295.)**(-2.65) cA0 = exp(b0*(w - 248.)) * a0 / (1. - a0) fco = 1. / (1 + cA0) !** CH3CO (acetyl radical) quantum yields: IF(w .GE. 279. .AND. w .LT. 302.) THEN a1 = 1.600E-19 * (T/295.)**(-2.38) b1 = 0.55E-3 * (T/295.)**(-3.19) cA1 = a1 * EXP(-b1*((1.e7/w) - 33113.)) fac = (1. - fco) / (1 + cA1 * M) ENDIF IF(w .GE. 302. .AND. w .LT. 327.5) THEN a2 = 1.62E-17 * (T/295.)**(-10.03) b2 = 1.79E-3 * (T/295.)**(-1.364) cA2 = a2 * EXP(-b2*((1.e7/w) - 30488.)) a3 = 26.29 * (T/295.)**(-6.59) b3 = 5.72E-7 * (T/295.)**(-2.93) c3 = 30006 * (T/295.)**(-0.064) ca3 = a3 * EXP(-b3*((1.e7/w) - c3)**2) a4 = 1.67E-15 * (T/295.)**(-7.25) b4 = 2.08E-3 * (T/295.)**(-1.16) cA4 = a4 * EXP(-b4*((1.e7/w) - 30488.)) fac = (1. - fco) * (1. + cA3 + cA4 * M) / $ ((1. + cA3 + cA2 * M)*(1. + cA4 * M)) ENDIF QY_ACETONE_TUV = MAX(0.0,MIN(1.0, fco+fac)) RETURN END SUBROUTINE QY_ACETONE_CHANNELS( TEMP, DENS_NUMB, LAMBDA, PHI_CO, PHI_CH3CO ) C----------------------------------------------------------------------- C Computes acetone quantum yields according to: C IUPAC (2013) recommendation based on C Blitz, M. A., D. E. Heard, M. J. Pilling, S. R. Arnold, and M. P. Chipperfield C (2004), Pressure and temperature-dependent quantum yields for the C photodissociation of acetone between 279 and 327.5 nm, Geophys. C Res. Lett., 31, L06111, doi:10.1029/2003GL018793. C----------------------------------------------------------------------- IMPLICIT NONE !***arguments REAL, INTENT(IN) :: TEMP ! air temperature, K REAL, INTENT(IN) :: DENS_NUMB ! air number density, 1/cm^3 REAL, INTENT(IN) :: LAMBDA ! wavelength, nm REAL, INTENT(OUT) :: PHI_CO ! CO branch of IUPAC (2013) acetone QYZ REAL, INTENT(OUT) :: PHI_CH3CO ! CH3CO branch of IUPAC (2013) acetone QYZ !***local REAL, PARAMETER :: ONE_OVER_295K = 1.0 / 295.0 ! 1/K REAL A0 ! 1st coef for qy REAL A1 ! 2nd coef for qy REAL A2 ! 3rd coef for qy REAL A3 ! 4th coef for qy REAL A4 ! 5th coef for qy REAL AA ! scratch variable for IUPAC (2013) acetone QYZ REAL BB ! scratch variable for IUPAC (2013) acetone QYZ REAL CC ! scratch variable for IUPAC (2013) acetone QYZ REAL TEMP_OVER_295K ! temperature divided by 295 K REAL ONE_OVER_LAMBDA ! reciporcal of wavelenght, 10E7/nm or 1/cm TEMP_OVER_295K = TEMP * ONE_OVER_295K ONE_OVER_LAMBDA = 1.0E7 / LAMBDA IF ( LAMBDA .GE. 248.0 .AND. LAMBDA .LE. 349.0 ) THEN AA = 0.350 * ( TEMP_OVER_295K )**(-1.28) BB = 0.068 * ( TEMP_OVER_295K )**(-2.65) A0 = ( AA / ( 1.0 - AA ) ) * EXP( BB * ( LAMBDA - 248.0 ) ) PHI_CO = 1.0 / ( 1.0 + A0 ) PHI_CO = MAX( 0.0, MIN( 1.0, PHI_CO ) ) IF ( LAMBDA .LE. 302.0 ) THEN !***wavelengths 248-302 nm AA = 1.600 * 1.0E-19 * ( TEMP_OVER_295K )**(-2.38) BB = 0.55 * 1.0E-03 * ( TEMP_OVER_295K )**(-3.19) A1 = AA * EXP( -BB * ( ( ONE_OVER_LAMBDA ) - 33113.0 ) ) PHI_CH3CO = ( 1.0 - PHI_CO ) / ( 1.0 + A1*DENS_NUMB ) !***wavelengths 302-349 nm ELSE AA = 1.62 * 1.0E-17 * ( TEMP_OVER_295K )**(-10.03) BB = 1.79 * 1.0E-3 * ( TEMP_OVER_295K )**(-1.364) A2 = AA * EXP( -BB * ( ( ONE_OVER_LAMBDA ) - 30488.0 ) ) AA = 26.29 * ( TEMP_OVER_295K )**(-6.59) BB = 5.72 * 1.0E-7 * ( TEMP_OVER_295K )**(-2.93) CC = ( 30006.0 ) * ( TEMP_OVER_295K )**(-0.064) A3 = AA * EXP( -BB * ( ( ONE_OVER_LAMBDA ) - CC )**2.0 ) AA = 1.67 * 1.0E-15 * ( TEMP_OVER_295K )**(-7.25) BB = 2.08 * 1.0E-3 * ( TEMP_OVER_295K )**(-1.16) A4 = AA * EXP( -BB * ( ( ONE_OVER_LAMBDA ) - 30488.0 ) ) PHI_CH3CO = ( 1.0 - PHI_CO ) & * ( 1.0 + A4 * DENS_NUMB + A3 ) & / ( ( 1.0 + A2 * DENS_NUMB + A3 ) & * ( 1.0 + A4 * DENS_NUMB ) ) END IF PHI_CH3CO = MAX( 0.0, MIN( 1.0, PHI_CH3CO ) ) ELSE IF ( LAMBDA .LT. 248.0 .AND. LAMBDA .GT. 0.0 ) THEN ! set QY to 1.0 !***based on IUPAC (2013) data sheet PHI_CO = 0.45 PHI_CH3CO = 0.55 ELSE IF ( LAMBDA .GT. 349.0 ) THEN PHI_CO = 0.0 PHI_CH3CO = 0.0 END IF RETURN END SUBROUTINE QY_ACETONE_CHANNELS REAL FUNCTION RQY_ACETONE_CH3CO( TEMP, DENS_NUMB, LAMBDA ) C----------------------------------------------------------------------- C Computes correction to acetone CH3CO quantum yields at (TEMP, DENS_NUMB) relative to C quantum yields at (TEMP, DENS_NUMB = 2.46E19) according to: C IUPAC (2013) recommendation based on C Blitz, M. A., D. E. Heard, M. J. Pilling, S. R. Arnold, and M. P. Chipperfield C (2004), Pressure and temperature-dependent quantum yields for the C photodissociation of acetone between 279 and 327.5 nm, Geophys. C Res. Lett., 31, L06111, doi:10.1029/2003GL018793. C----------------------------------------------------------------------- IMPLICIT NONE !***arguments REAL, INTENT(IN) :: TEMP ! air temperature, K REAL, INTENT(IN) :: DENS_NUMB ! air number density, molcules/cm^3 REAL, INTENT(IN) :: LAMBDA ! wavelength, nm ! INTEGER, INTENT(IN) :: ILAMBDA ! array index for wavelength !***local REAL, PARAMETER :: ONE_OVER_295K = 1.0 / 295.0 ! 1/K REAL, PARAMETER :: DENS0 = 2.46E19 ! air number at STP, molecules/cm^3 REAL A0 ! 1st coef for qy REAL A1 ! 2nd coef for qy REAL A2 ! 3rd coef for qy REAL A3 ! 4th coef for qy REAL A4 ! 5th coef for qy REAL PHI_CO ! CO qy at (TEMP, DENS_NUMB) REAL PHI_CH3CO ! CH3CO qy at (TEMP, DENS_NUMB) REAL PHI_COS ! CO qy branch at (TEMP, DENS0) REAL PHI_CH3COS ! inverse of CH3CO qy at (TEMP, DENS0) REAL AA ! scratch variable for acetone QY REAL BB ! scratch variable for acetone QY REAL CC ! scratch variable for acetone QY REAL TEMP_OVER_295K ! temperature divided by 295 K ! REAL LAMBDA ! wavelenght, nm REAL ONE_OVER_LAMBDA ! wavenumber, 10E7/nm or 1/cm TEMP_OVER_295K = TEMP * ONE_OVER_295K ! LAMBDA = WAVELENGTH( ILAMBDA ) ! ONE_OVER_LAMBDA = WAVENUMBER( ILAMBDA ) ONE_OVER_LAMBDA = 1.0E7 / LAMBDA IF ( LAMBDA .GE. 248.0 .AND. LAMBDA .LE. 349.0 ) THEN IF ( LAMBDA .LE. 302.0 ) THEN !***wavelengths 248-302 nm AA = 1.60E-19 * ( TEMP_OVER_295K )**(-2.38) BB = 0.55E-03 * ( TEMP_OVER_295K )**(-3.19) A1 = AA * EXP( -BB * ( ONE_OVER_LAMBDA - 33113.0 ) ) RQY_ACETONE_CH3CO = ( 1.0 + A1*DENS0 ) / ( 1.0 + A1*DENS_NUMB ) !***wavelengths 302-349 nm ELSE AA = 1.62E-17 * ( TEMP_OVER_295K )**(-10.03) BB = 1.79E-03 * ( TEMP_OVER_295K )**(-1.364) A2 = AA * EXP( -BB * ( ONE_OVER_LAMBDA - 30488.0 ) ) AA = 26.29 * ( TEMP_OVER_295K )**(-6.59) BB = 5.72E-7 * ( TEMP_OVER_295K )**(-2.93) CC = 30006.0 * ( TEMP_OVER_295K )**(-0.064) A3 = AA * EXP( -BB * ( ONE_OVER_LAMBDA - CC )**2.0 ) AA = 1.67E-15 * ( TEMP_OVER_295K )**(-7.25) BB = 2.08E-03 * ( TEMP_OVER_295K )**(-1.16) A4 = AA * EXP( -BB * ( ONE_OVER_LAMBDA - 30488.0 ) ) !***below qy_ch3co values are normalized by (1 - qy_co) which does not depend on !***number density PHI_CH3CO = ( 1.0 + A4 * DENS_NUMB + A3 ) & / ( ( 1.0 + A2 * DENS_NUMB + A3 ) * ( 1.0 + A4 * DENS_NUMB ) ) PHI_CH3COS = ( ( 1.0 + A2 * DENS0 + A3 ) * ( 1.0 + A4 * DENS0 ) ) & / ( 1.0 + A4 * DENS0 + A3 ) RQY_ACETONE_CH3CO = PHI_CH3CO * PHI_CH3COS END IF ELSE ! set RQY to 1.0 for 248.0 > LAMBDA or LAMBDA 349.0 RQY_ACETONE_CH3CO = 1.0 END IF RETURN END FUNCTION RQY_ACETONE_CH3CO REAL FUNCTION RQUANTUM_ACETONE( TEMP, DENS_NUMB, LAMBDA ) C----------------------------------------------------------------------- C Computes total acetone quantum yields at (TEMP, DENS_NUMB) relative to C quantum yields at (TEMP, DENS_NUMB = 2.46E19) according to C IUPAC (2013) recommendation based on C Blitz, M. A., D. E. Heard, M. J. Pilling, S. R. Arnold, and M. P. Chipperfield C (2004), Pressure and temperature-dependent quantum yields for the C photodissociation of acetone between 279 and 327.5 nm, Geophys. C Res. Lett., 31, L06111, doi:10.1029/2003GL018793. C----------------------------------------------------------------------- IMPLICIT NONE !***arguments REAL, INTENT(IN) :: TEMP ! air temperature, K REAL, INTENT(IN) :: DENS_NUMB ! air number density, 1/cm^3 REAL, INTENT(IN) :: LAMBDA ! wavelength, nm !***local REAL, PARAMETER :: ONE_OVER_295K = 1.0 / 295.0 ! 1/K REAL, PARAMETER :: DENS0 = 2.46E19 ! air number at STP, molecules/cm^3 REAL A0 ! 1st coef for qy REAL A1 ! 2nd coef for qy REAL A2 ! 3rd coef for qy REAL A3 ! 4th coef for qy REAL A4 ! 5th coef for qy REAL PHI_CO ! CO branch of IUPAC (2013) acetone QYZ REAL DEL_PHI_CO ! one minus CO branch of IUPAC (2013) acetone QYZ REAL PHI_CH3CO ! CH3CO branch of IUPAC (2013) acetone QYZ REAL PHI_CH3CO0 ! CH3CO branch of IUPAC (2013) acetone QYZ at DENS0 REAL AA ! scratch variable for IUPAC (2013) acetone QYZ REAL BB ! scratch variable for IUPAC (2013) acetone QYZ REAL CC ! scratch variable for IUPAC (2013) acetone QYZ REAL TEMP_OVER_295K ! temperature divided by 295 K REAL ONE_OVER_LAMBDA ! reciporcal of wavelenght, 10E7/nm or 1/cm TEMP_OVER_295K = TEMP * ONE_OVER_295K ONE_OVER_LAMBDA = 1.0E7 / LAMBDA IF ( LAMBDA .GE. 248.0 .AND. LAMBDA .LE. 349.0 ) THEN AA = 0.350 * ( TEMP_OVER_295K )**(-1.28) BB = 0.068 * ( TEMP_OVER_295K )**(-2.65) A0 = ( AA / ( 1.0 - AA ) ) * EXP( BB * ( LAMBDA - 248.0 ) ) PHI_CO = 1.0 / ( 1.0 + A0 ) DEL_PHI_CO = MAX(0.0, 1.0 - PHI_CO) IF ( LAMBDA .LE. 302.0 ) THEN !***wavelengths 248-302 nm AA = 1.600E-19 * ( TEMP_OVER_295K )**(-2.38) BB = 0.55E-03 * ( TEMP_OVER_295K )**(-3.19) A1 = AA * EXP( -BB * ( ( ONE_OVER_LAMBDA ) - 33113.0 ) ) PHI_CH3CO = DEL_PHI_CO / ( 1.0 + A1*DENS_NUMB ) PHI_CH3CO0 = DEL_PHI_CO / ( 1.0 + A1*DENS0 ) !***wavelengths 302-349 nm ELSE AA = 1.62E-17 * ( TEMP_OVER_295K )**(-10.03) BB = 1.79E-03 * ( TEMP_OVER_295K )**(-1.364) A2 = AA * EXP( -BB * ( ONE_OVER_LAMBDA - 30488.0 ) ) AA = 26.29 * ( TEMP_OVER_295K )**(-6.59) BB = 5.72E-7 * ( TEMP_OVER_295K )**(-2.93) CC = ( 30006.0 ) * ( TEMP_OVER_295K )**(-0.064) A3 = AA * EXP( -BB * ( ONE_OVER_LAMBDA - CC )**2.0 ) AA = 1.67E-15 * ( TEMP_OVER_295K )**(-7.25) BB = 2.08E-03 * ( TEMP_OVER_295K )**(-1.16) A4 = AA * EXP( -BB * ( ONE_OVER_LAMBDA - 30488.0 ) ) PHI_CH3CO = DEL_PHI_CO & * ( 1.0 + A4 * DENS_NUMB + A3 ) & / ( ( 1.0 + A2 * DENS_NUMB + A3 ) & * ( 1.0 + A4 * DENS_NUMB ) ) PHI_CH3CO0 = DEL_PHI_CO & * ( 1.0 + A4 * DENS0 + A3 ) & / ( ( 1.0 + A2 * DENS0 + A3 ) & * ( 1.0 + A4 * DENS0 ) ) END IF IF( (PHI_CO + PHI_CH3CO0) .GT. 1.0E-10 )THEN RQUANTUM_ACETONE = ( PHI_CO + PHI_CH3CO ) / ( PHI_CO + PHI_CH3CO0 ) ELSE RQUANTUM_ACETONE = 1.0 END IF ELSE RQUANTUM_ACETONE = 1.0 END IF RETURN END FUNCTION RQUANTUM_ACETONE REAL FUNCTION RQY_GLYOXAL( TEMP, DENS_NUMB, LAMBDA ) !----------------------------------------------------------------------- ! Computes total glyoxal (CHOCHO) quantum yield at (TEMP, DENS_NUMB) ! relative to total yield at (TEMP0, DENS_NUMB = 2.46E19) according to ! IUPAC (2013) recommendation ! http://iupac.pole-ether.fr/htdocs/datasheets/pdf/P4_%28CHO%292+hv.pdf ! that is based on ! Salter, R. J., Blitz, M. A., Heard, D. E., Kovacs, T., Pilling, M. J., ! Rickard, A. R. and Seakins, P. W. (2013), Quantum yields for the photolysis ! of glyoxal below 350 nm and parameterisations for its photolysis rate in ! the troposphere, Phys. Chem. Chem. Phys., 15, 4984-4994, ! doi:10.1039/c3cp43597k. !----------------------------------------------------------------------- IMPLICIT NONE !***arguments REAL, INTENT(IN) :: TEMP ! air temperature, K REAL, INTENT(IN) :: DENS_NUMB ! air number density, 1/cm^3 REAL, INTENT(IN) :: LAMBDA ! wavelength, nm !***local REAL, PARAMETER :: ONE_OVER_295K = 1.0 / 295.0 ! 1/K REAL( 8 ), PARAMETER :: DENS0 = 2.46D19 ! air number at STP, molecules/cm^3 REAL( 8 ) TEMP_OVER_295K ! temperature divided by 295 K REAL( 8 ) AA ! scratch variable for qy REAL( 8 ) BB ! scratch variable for qy REAL( 8 ) A1 ! 2nd coef for qy REAL( 8 ) A2 ! 3rd coef for qy REAL( 8 ) A3 ! 4th coef for qy REAL( 8 ) WN_OFFSET ! adjusted wavenumber, 1/cm REAL( 8 ) R8_DENS ! air number density, 1/cm^3 REAL ONE_OVER_LAMBDA ! wavenumber, 10E7/nm or 1/cm REAL QY_DENS_NUMB ! total qy at DENS_NUMB REAL IQY_DENS0 ! reciporcal of total qy at DENS0 TEMP_OVER_295K = REAL( TEMP * ONE_OVER_295K, 8 ) WN_OFFSET = REAL( 1.0E7 / LAMBDA - 23800.0, 8 ) R8_DENS = REAL( DENS_NUMB, 8 ) IF( LAMBDA .LT. 650.0 .AND. LAMBDA .GT. 250.0 )THEN AA = 6.48D-19 * TEMP_OVER_295K**(-1.83D0) BB = 7.60D-04 * TEMP_OVER_295K**(-0.515D0) A1 = AA * EXP( -BB * WN_OFFSET ) AA = 1.128D02 * TEMP_OVER_295K**(-1.53D0) BB = 4.61D-03 * TEMP_OVER_295K**(-0.507D0) A2 = AA * EXP( -BB * WN_OFFSET ) AA = 2.25D-16 * TEMP_OVER_295K**(-9.18D0) BB = 7.80D-04 * TEMP_OVER_295K**(-7.03D0) A3 = AA * EXP( -BB * WN_OFFSET ) !*** note that values are normalized by total qy at DENS = 0.0 but ! its values equals 1.0 IQY_DENS0 = REAL( (1.0 + A2 + A3*DENS0 ) & / ((1.0 + A1*DENS0 + A2)*(1.0 + A3*DENS0)) ) QY_DENS_NUMB = REAL( (1.0 + A2 + A3*R8_DENS ) & / ((1.0 + A1*R8_DENS + A2)*(1.0 + A3*R8_DENS)) ) RQY_GLYOXAL = QY_DENS_NUMB * IQY_DENS0 ELSE RQY_GLYOXAL = 1.0 END IF ! WRITE(6,'(A,4(F13.6,1X))')'TEMP, LAMBDA, RQY_GLYOXAL = ', TEMP, LAMBDA, RQY_GLYOXAL RETURN END FUNCTION RQY_GLYOXAL REAL FUNCTION QY_GLYOXAL( TEMP, DENS_NUMB, LAMBDA ) !----------------------------------------------------------------------- ! Computes total glyoxal (CHOCHO) quantum yield at (TEMP, DENS_NUMB) ! IUPAC (2013) recommendation ! http://iupac.pole-ether.fr/htdocs/datasheets/pdf/P4_%28CHO%292+hv.pdf ! that is based on ! Salter, R. J., Blitz, M. A., Heard, D. E., Kovacs, T., Pilling, M. J., ! Rickard, A. R. and Seakins, P. W. (2013), Quantum yields for the photolysis ! of glyoxal below 350 nm and parameterisations for its photolysis rate in ! the troposphere, Phys. Chem. Chem. Phys., 15, 4984-4994, ! doi:10.1039/c3cp43597k. !----------------------------------------------------------------------- IMPLICIT NONE !***arguments REAL, INTENT(IN) :: TEMP ! air temperature, K REAL, INTENT(IN) :: DENS_NUMB ! air number density, 1/cm^3 REAL, INTENT(IN) :: LAMBDA ! wavelength, nm !***local REAL, PARAMETER :: ONE_OVER_295K = 1.0 / 295.0 ! 1/K REAL( 8 ) TEMP_OVER_295K ! temperature divided by 295 K REAL( 8 ) AA ! scratch variable for qy REAL( 8 ) BB ! scratch variable for qy REAL( 8 ) A1 ! 2nd coef for qy REAL( 8 ) A2 ! 3rd coef for qy REAL( 8 ) A3 ! 4th coef for qy REAL( 8 ) WN_OFFSET ! adjusted wavenumber, 1/cm REAL( 8 ) R8_DENS ! air number density, 1/cm^3 TEMP_OVER_295K = REAL( TEMP * ONE_OVER_295K, 8 ) WN_OFFSET = REAL( 1.0E7 / LAMBDA - 23800.0, 8 ) R8_DENS = REAL( DENS_NUMB, 8 ) AA = 6.48D-19 * TEMP_OVER_295K**(-1.83D0) BB = 7.60D-04 * TEMP_OVER_295K**(-0.515D0) A1 = AA * EXP( -BB * WN_OFFSET ) AA = 1.128D02 * TEMP_OVER_295K**(-1.53D0) BB = 4.61D-03 * TEMP_OVER_295K**(-0.507D0) A2 = AA * EXP( -BB * WN_OFFSET ) AA = 2.25D-16 * TEMP_OVER_295K**(-9.18D0) BB = 7.80D-04 * TEMP_OVER_295K**(-7.03D0) A3 = AA * EXP( -BB * WN_OFFSET ) ! WRITE(6,'(A,10(1X,ES12.4))')'GLYOXAL:Temp, Lambda, A1, A2, A3 = ', Temp, Lambda, ! & A1, A2, A3 QY_GLYOXAL = REAL( (1.0D0 + A2 + A3*R8_DENS ) & / ((1.0D0 + A1*R8_DENS + A2) * (1.0D0 + A3*R8_DENS)) ) ! WRITE(6,'(A,10(1X,ES12.4))')'GLYOXAL:Temp, Lambda, A1, A2, A3 QY_GLYOXAL = ', Temp, Lambda, ! & A1, A2, A3, QY_GLYOXAL RETURN END FUNCTION QY_GLYOXAL !******************************************************************************* ================================================ FILE: UTIL/jproc/README.md ================================================ # JPROC ### Description JPROC calculates clear-sky photolysis rates used by a photochemical mechanism based on their molecular absorption cross-sections and quantum yields (CSQY) as well as climatological data. Output files are ASCII look-up tables containing for the computed rates versus altitude, latitude, and hour angle from noon. The photochemical mechanism selected is determined by the build script for JPROC. Altitudes (meters), latitudes (degrees), and hour angles are hardwired in JPROC's source code. The recommended configuration of CMAQ's CCTM does not use JPROC output but the look-up tables are required if CCTM is compiled with *ModPhot* set to phot/table. ### Files, configuration, and environment variables Tables 1 and 2 show the input and output files for JPROC. Some options are invoked at compilation, while others are invoked with execution of the program. When compiling JPROC, the user specifies a chemical mechanism to indicate the gas-phase chemistry for which to calculate photolysis rates. Setting the *Mechanism* variable in the JPROC compile script configures the program to use a specific set RXNS_DATA_MODULE.F90 file to build an executable so the executable is hard-wired to a specific mechanism configuration. Several required and optional input files are used the JPROC. For the selected photochemical mechanism, the user must provide a set of data file containing molecular absorption and yield data files for photolysis reactions used by the photochemical mechanism. CMAQ is distributed with a full set of CSQY files for the Carbon Bond, SAPRC, and RACM photochemical mechanism versions supported by the model. If a user develops new mechanism with new photolysis rates, they must produce the appropriate CSQY data files for each rate. The user also has the option of using the default atmospheric profiles contained in the PROFILES input file or using Total Ozone Mapping Spectrometer (TOMS) data to replace the climatologically derived ozone column data in the PROFILES file. **Table 1. JPROC input files** |**File Name**|**Format**|**Description**| |---------|--------|----------------------------------------------------------------------| |ET|ASCII|Extraterrestrial radiation as a function of wavelength| |PROFILES|ASCII|Seasonal vertical profiles of ozone concentrations, aerosol attenuation, temperature, air density and Dobson values| |TOMS|ASCII|Total ozone column measurements from satellite (optional input file(s))| |O2ABS|ASCII|Absorption CSQY data for molecular oxygen as a function of wavelength| |O3ABS|ASCII|Absorption CSQY data for ozone as a function of wavelength| |CSQY|ASCII (directory path)|Directory path containing absorption CSQY data for gas-phase photolysis reactions as a function of wavelength| **Table 2. JPROC output files** |**File Name**|**Format**|**Description**| |---------------|--------|----------------------------------------------------------------| |`JTABLE_$Date`|`ASCII`|Daily clear-sky photolysis rates file| The location of the JPROC output files is controlled by the `OUTDIR` variable in the run script. The default name for output files uses the Date environment variable in the file name aliased to the `STDATE` environment variable in the run script. #### Key Build Script Variables The configuration options are listed below. The build script set their values for compiling a JPROC executable that is fixed to the specified configuration. To change these options it is necessary to re-run the build script for a new executable. - `CopySrc` Uncomment to copy the source code into a working build (BLD) directory. If commented, only the compiled object and executable files will be placed in the BLD directory. - `MakefileOnly` Uncomment to build a Makefile to compile the executable. Comment out to create a Makefile and compile. - `Mechanism: [default: None]` Determines the path to FORTRAN data module for the photochemistry mechanism based on its full name. The possible choices are subdirectories under the `$CMAQ_HOME/CCTM/src/MECHS` directory. If the application is using a new mechanism, the user defines the Mechanism and its location. - `Tracer [default trac0] ` Specifies tracer species. Invoking inert tracer species in CMAQ requires defining the tracers using namelist files and compiling the CMAQ programs with these files. The setting for this module corresponds to the directory name in the `$CMAQ_HOME/CCTM/src/MECHS` directory that contains the namelist files for the tracer configuration. The default setting does not use any tracers. #### Key Run Script Variables The environment variables listed here are invoked during execution of the program and are set in the JPROC run script. - `APPL [default: None]` JPROC executable identifier. Must match APPL Variable setting in the JRPOC build script. - `CFG [default: None]` Configuration identifier for the JPROC simulation. - `MECH [default: None]` CMAQ chemical mechanism. Must match Mechanism variable setting in the JPROC build script. - `EXEC: [default: JPROC_${APPL}_${EXEC_ID}]` Executable to use for the simulation. The variable CFG is set in the JPROC run script. The variable EXEC_ID is set in the config_cmaq.csh configuration file. - `STDATE` Start Julian date (YYYYDDD) for computing clear sky photolysis rates. - `ENDATE` End Julian date (YYYYDDD) for computing clear sky photolysis rates. ### Compiling and Running #### Building JPROC Follow the below steps for compiling JPROC. The process requires the bldmake utility. Check the bldmake README on compiling it if an executable does not exist. 1. Configure the JPROC build script to use the config_cmaq.csh script, which points to the available I/O API and netCDF libraries. 2. Configure the JPROC build script for your application by setting the compilation configuration variables described above. 3. Invoke the build script to create an executable: ``` cd $CMAQ_HOME/UTIL/jproc/scripts ./bldit_jproc.csh [compiler] [version] |& tee build_jproc.log ``` #### Running JPROC #### Set the run script settings according to the execution configuration variables described above. Run JPROC to produce offline clear-sky photolysis rates for the CCTM: ``` cd $CMAQ_HOME/UTIL/jproc/scripts ./run_jproc.csh |& tee run_jproc.log ``` ================================================ FILE: UTIL/jproc/scripts/bldit_jproc.csh ================================================ #!/bin/csh -f # ====================== JPROCv5.5 Build Script ===================== # Usage: bldit_jproc.csh >&! bldit.jproc.log # Requirements: I/O API & netCDF libraries; a Fortran compiler # # To report problems or request help with this script/program: # http://www.cmascenter.org # =================================================================== if ( $#argv == 1 ) then setenv compiler $argv[1] setenv compilerVrsn Empty else if ( $#argv == 2 ) then #> Compiler Name and Version have been provided setenv compiler $1 setenv compilerVrsn $2 else echo "usage: $0 " echo " where is intel, pgi or gcc" exit(2) endif #> Source the config.cmaq file.csh to set the build environment set Base = $cwd #> working directory for compiling the source code cd ../../../ source config_cmaq.csh #:#:#:#:#:#:#:#:#:#:#:# Begin User Input Section #:#:#:#:#:#:#:#:#:#:#:# #> Source Code Repository set MODEL = $CMAQ_REPO/UTIL/jproc/src #> location of the JPROC source code setenv REPOROOT $MODEL set GlobInc = $CMAQ_REPO/CCTM/src/ICL #> location of the global include files set Mechs = $CMAQ_REPO/CCTM/src/MECHS #> location of the chemistry mechanism include files #> Working directory and application IDs set VSRN = v55 #> model configuration ID setenv Vrsn ${VSRN} #> Controls for managing the source code compilation set CopySrc #> copy the source files into a working irectory #set MakeFileOnly #> uncomment to build a Makefile, but do not compile; comment out to compile the model (default if not set) set CompileBLDMAKE #> Recompile the BLDMAKE utility from source #set Debug #> compile with debug flags #======================================#> #> JPROC Science Modules #======================================#> #> NOTE: For the modules with multiple options, a note is provided on where to look in the #> source code archive for a list of the possible settings; users may also refer to the CMAQ documentation set ModCommon = common set Mechanism = cb6r3_ae7_aq #> chemical mechanism (see $CMAQ_REPO/CCTM/MECHS) #set Mechanism = saprc07tic_ae7i_aq #> chemical mechanism (see $CMAQ_REPO/CCTM/MECHS) set Tracer = trac0 #> tracer configuration directory under $CMAQ_REPO/CCTM/MECHS [ default: no tracer species set APPL = ${VSRN}_${Mechanism} set EXEC = JPROC_${APPL}_${compiler}${compilerVrsn} #> executable name set CFG = cfg.$EXEC #> configuration file name echo $CFG #======================================#> #> Computing System Configuration: #> Most of these settings are done in config.cmaq #======================================#> set FC = ${myFC} #> path of Fortan compiler; set in config.cmaq set FP = $FC #> path of Fortan preprocessor; set in config.cmaq set Blder = "${CMAQ_HOME}/../../bldmake/bldmake_${compiler}${compilerVrsn}.exe " #> location of model builder executable setenv BLDER ${Blder} #> Set compiler flags set xLib_Base = " " # ${CMAQ_LIB} set xLib_1 = " " # ioapi/lib set xLib_2 = " " # ioapi/include_files set xLib_4 = " " # ioapi/lib set FSTD = "${myFSTD} -I ." set DBG = "${myDBG}" set F_FLAGS = "${myFFLAGS}" set F90_FLAGS = "${myFRFLAGS}" set CPP_FLAGS = "" set C_FLAGS = "${myCFLAGS} -DFLDMN" set LINK_FLAGS = "${myLINK_FLAG}" echo $CFG #:#:#:#:#:#:#:#:#:#:#:# End of User Input Section :#:#:#:#:#:#:#:#:#:#:#:#:# #> Check for CMAQ_REPO and CMAQ_LIB settings: if ( ! -e $CMAQ_REPO || ! -e $CMAQ_LIB ) then echo " CMAQ_REPO or CMAQ_LIB directory not found" exit 1 endif echo " Model repository base path: $CMAQ_REPO" echo " library path: $CMAQ_LIB" set BLD_OS = `uname -s` ## Script set up for Linux only if ($BLD_OS != 'Linux') then echo " $BLD_OS -> wrong bldit script for host!" exit 1 endif #> The "BLD" directory for checking out and compiling source code set Bld = $Base/BLD_${VSRN}_${Mechanism}_${compiler}${compilerVrsn} if ( ! -e "$Bld" ) then mkdir $Bld else if ( ! -d "$Bld" ) then echo " *** target exists, but not a directory ***" exit 1 endif endif \cp -f $GlobInc/fixed/const/CONST.EXT ${Bld}/. set LIB1 = " " # "$ioapi_lib" set LIB2 = " " # "$netcdf_lib" set LIB3 = " " # "$netcdff_lib" set ICL_CONST = $Bld #> make the config file echo $CFG set Cfile = ${Bld}/${CFG}.bld set quote = '"' echo > $Cfile echo "model $EXEC;" >> $Cfile echo >> $Cfile echo "repo $MODEL;" >> $Cfile echo >> $Cfile echo "mechanism $Mechanism;" >> $Cfile echo >> $Cfile echo "lib_base $xLib_Base;" >> $Cfile echo >> $Cfile echo "lib_1 $xLib_1;" >> $Cfile echo >> $Cfile echo "lib_2 $xLib_2;" >> $Cfile echo >> $Cfile echo "lib_4 $xLib_4;" >> $Cfile echo >> $Cfile set text = "$quote$CPP_FLAGS$quote;" echo "cpp_flags $text" >> $Cfile echo >> $Cfile echo "f_compiler $FC;" >> $Cfile echo >> $Cfile echo "fstd $quote$FSTD$quote;" >> $Cfile echo >> $Cfile echo "dbg $quote$DBG$quote;" >> $Cfile echo >> $Cfile echo "f_flags $quote$F_FLAGS$quote;" >> $Cfile echo >> $Cfile echo "f90_flags $quote$F90_FLAGS$quote;" >> $Cfile echo >> $Cfile echo "link_flags $quote$LINK_FLAGS$quote;" >> $Cfile echo >> $Cfile #echo "libraries $quote$LIBS$quote;" >> $Cfile echo "ioapi $quote$LIB1$quote;" >> $Cfile echo >> $Cfile echo "netcdf $quote$LIB2$quote;" >> $Cfile echo >> $Cfile echo "netcdff $quote$LIB3$quote;" >> $Cfile echo >> $Cfile set text="// mechanism:" echo "$text ${Mechanism}" >> $Cfile echo "// model repository: ${REPOROOT}" >> $Cfile echo >> $Cfile echo "include SUBST_CONST CONST.EXT;" >> $Cfile set text = "common" echo "// required" $text >> $Cfile echo "Module ${ModCommon};" >> $Cfile echo >> $Cfile # set text = "jproc_table" # echo "// options are" $text >> $Cfile # echo "Module ${ModDriver};" >> $Cfile # echo >> $Cfile set ModMisc = $Mechs/$Mechanism/RXNS_DATA_MODULE.F90 # \cp -f $ModMisc ${MODEL}/common if ( $?ModMisc ) then echo "MISC ${ModMisc};" >> $Cfile echo >> $Cfile endif set Blder = "${CMAQ_HOME}/UTIL/bldmake/bldmake_${compiler}${compilerVrsn}.exe " #> location of model builder executable #> Recompile BLDMAKE from source if requested or if it does not exist if ( $?CompileBLDMAKE || ! ( -f $Blder ) ) then cd ${CMAQ_REPO}/UTIL/bldmake/scripts ./bldit_bldmake.csh endif cd $Bld #> make the Makefile or the model executable unalias mv rm if ( -e $Bld/Makefile.$compiler$Vrsn || -e $Bld/Makefile ) then rm $Bld/Makefile rm $Bld/Makefile.$compiler$Vrsn endif if ( $?Debug ) then set bld_flags = "-serial -verbose -debug_cctm" else set bld_flags = "-serial -verbose" endif if ( $?MakeFileOnly ) then if ( $?CopySrc ) then $Blder -makefo ${bld_flags} $Cfile else $Blder -makefo -git_local ${bld_flags} $Cfile endif else # also compile the model if ( $?CopySrc ) then $Blder ${bld_flags} $Cfile else $Blder -git_local ${bld_flags} $Cfile endif endif mv Makefile $Bld/Makefile.$compiler${compilerVrsn} ln -sf ./Makefile.$compiler${compilerVrsn} Makefile #create make.it script that compiles JPROC without having to source config_cmaq.csh set make_it = "make.it" echo "#! /bin/csh -f" >! ${make_it} echo " " >> ${make_it} echo "source ../../../../config_cmaq.csh "${compiler}" "${compilerVrsn} >> ${make_it} echo 'if ( $#argv == 1 )then' >> ${make_it} echo ' if ( $1 == "clean" )make clean' >> ${make_it} echo "endif" >> ${make_it} echo "make" >> ${make_it} echo "unsetenv compiler" >> ${make_it} echo "unsetenv compilerVrsn" >> ${make_it} echo 'exit()' >> ${make_it} chmod +x ${make_it} if ( $status != 0 ) then echo " *** failure in $Blder ***" exit 1 endif if ( -e "$Base/${CFG}" ) then echo " >>> previous ${CFG} exists, deleting ${CFG}.old <<<" rm $Base/${CFG} endif #mv ${CFG}.bld $Bld/${CFG} #:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:#:# exit ================================================ FILE: UTIL/jproc/scripts/run_jproc.csh ================================================ #!/bin/csh -f # ====================== JPROCv5.5 Run Script ======================= # Usage: run_jproc.csh >&! jproc_V5.log & # # To report problems or request help with this script/program: # http://www.cmascenter.org # =================================================================== if ( $#argv == 1 ) then setenv compiler $argv[1] setenv compilerVrsn Empty else if ( $#argv == 2 ) then #> Compiler Name and Version have been provided setenv compiler $1 setenv compilerVrsn $2 else echo "usage: $0 " echo " where is intel, pgi or gcc" exit(2) endif #> Source the config.cmaq file.csh to set the build environment source ../../../config_cmaq.csh #> Check that CMAQ_REPO is set: if ( ! -e $CMAQ_REPO ) then echo " $CMAQ_REPO path does not exist" exit 1 endif echo " "; echo " Input data path, CMAQ_REPO set to $CMAQ_REPO"; echo " " set VRSN = v55 set MECH = cb6r5_ae7_aq #set MECH = saprc07tic_ae7i_aq set APPL = ${VRSN}_${MECH} set EXEC = JPROC_${APPL}_${compiler}${compilerVrsn} #> executable name set CFG = cfg.$EXEC #> configuration file name #> Set the working directory: set BASE = $cwd set BLD = ${BASE}/BLD_${APPL}_${compiler}${compilerVrsn} cd $BASE; date; set timestamp; cat $BASE/cfg.${CFG}; echo " "; set echo #> JPROC run dates (produces one file per day) set STDATE = 2016182 #> the beginning day for this run set ENDATE = 2016182 #> the ending day # ===================================================================== #> Input/Output Directories # ===================================================================== set CMAQ_DATA = ${CMAQ_REPO}/UTIL/inline_phot_preproc/photolysis_CSQY_data set CSQYpath = $CMAQ_DATA # CSQY input data set PROFpath = $CMAQ_DATA # PROF input data set ETpath = $CMAQ_DATA # ET input data set TOMSpath = $CMAQ_DATA # TOMS input data set OUTDIR = $BASE/jtable_${APPL}_${MECH} # Output directory # ===================================================================== #> Input Files # ===================================================================== set ETfile = ETirradiance.dat set PROFfile = PROFILES.dat set O2ABSfile = O2_JPL06-2 set O3ABSfile = O3O1D_JPL06-2 set TOMSfile = not_available #>- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - setenv ET $ETpath/$ETfile setenv PROFILES $PROFpath/$PROFfile setenv TOMS $TOMSpath/$TOMSfile setenv O2ABS $CSQYpath/$O2ABSfile setenv O3ABS $CSQYpath/$O3ABSfile setenv CSQY $CSQYpath # check ET input file if (! ( -e $ET ) ) then echo " $ET not found " exit endif # check profile input file if (! ( -e $PROFILES ) ) then echo " $PROFILES not found " exit endif # check TOMS input file setenv JPROC_TOMSEXIST N # Assume TOMS data file does not exist for this run if ( -e $TOMS ) then setenv JPROC_TOMSEXIST Y endif # check O2 absorption input file if (! ( -e $O2ABS ) ) then echo " $O2ABS not found " exit endif # check O3 absorption input file if (! ( -e $O3ABS ) ) then echo " $O3ABS not found " exit endif if ( ! -d "$OUTDIR" ) mkdir -p $OUTDIR ls -l $BLD/$EXEC unlimit limit unalias rm @ Date = $STDATE while ( $Date <= $ENDATE ) # Loop thru all the days to run setenv JPROC_STDATE $Date echo " Running for $Date ..." set JVfile = JTABLE_${Date} # Daily output file name setenv JVALUES $OUTDIR/$JVfile if ( -e $JVALUES ) rm $JVALUES # Remove existing output file # Executable call: time $BLD/$EXEC @ Date = $Date + 1 end exit() ================================================ FILE: UTIL/jproc/src/common/JVALPARMS.EXT ================================================ !-----------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !-----------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/JPROC/src/driver/jproc_table/JVALPARMS.EXT,v 1.7 2011/10/29 01:03:52 sjr Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C %W% %P% %G% %U% C jvalparms: COMMON INCLUDE File ------- C The following are reserved symbols declared in this INCLUDE file: C...........PARAMETERS and their descriptions C MXWL = maximum number of wavelength bands to process c MXWLIN = maximum number of wavelength bands on input files C NJ = maximum number of vertical levels C MXLEV = maximum number of vertical levels INTEGER, PARAMETER :: MXWL = 200 INTEGER, PARAMETER :: MXWLIN = 600 INTEGER, PARAMETER :: NJ = 200 INTEGER, PARAMETER :: MXLEV = 51 C End of jvalparms COMMON INCLUDE File ---------- ================================================ FILE: UTIL/jproc/src/common/calczen.F ================================================ !-----------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !-----------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/JPROC/src/driver/jproc_table/calczen.F,v 1.5 2011/10/29 01:03:52 sjr Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C @(#)calczen.F 1.2 /project/mod3/JPROC/src/driver/jproc_table/SCCS/s.calczen.F 04 Jun 1997 10:48:01 C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE CALCZEN ( LAT, LONG, IDATE, GMT, ZENITH ) C********************************************************************* C C this subroutine calculates solar zenith angle for a C particulat time and location. Must specify: C INPUT: c LAT - latitude in decimal degrees C LONG - longitude in decimal degrees C IDATE - Date at Greenwich - specify year (yyyy), month (mm), C day format is six-digit integer: yyyymmdd C GMT - Greenwich mean time - decimal military eg. C 22.75 = 45 min after ten pm gmt C OUTPUT C Zenith C C********************************************************************* IMPLICIT NONE INCLUDE SUBST_CONST ! commonly used constants C...........ARGUMENTS and their descriptions: INTEGER IDATE ! date (yyyymmdd) REAL LAT ! latitude (decimal degrees) REAL LONG ! longitude (decimal degrees) REAL GMT ! Greenwich mean time (dec.milt) REAL ZENITH ! zenith angle (degrees) C...........LOCAL VARIABLES and their descriptions: INTEGER IMN( 12 ) ! number of days in each month DATA IMN /31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31/ SAVE IMN INTEGER IIYEAR ! year (yyyy) INTEGER LEAP ! # leap years since 1974 INTEGER NYEARS ! years since 1974 INTEGER NOLEAP ! # nonleap years since 1974 INTEGER IJD ! julian days (ddd) INTEGER IN ! month pointer (mm-1) INTEGER IMTH ! month (mm) INTEGER I ! month index INTEGER IDAY ! day (dd) INTEGER JD ! julian days since 1974 ref REAL LBGMT ! REAL LZGMT ! REAL ML ! geometric mean longitude (deg) REAL RLT ! latitude (radians) REAL YREF ! number of days to 1974 REAL YR ! number of days to yyyy REAL D ! jul. days since 1974 + hh frac REAL RML ! geometric mean long (rad) REAL W ! mean longitude of perigee (deg) REAL EC ! eccentricity REAL EPSI ! mean obliquity of ecliptic (deg) REAL YT ! tan**2 (mean obl. of eclipt.) REAL PEPSI ! mean obliquity of ecliptic (rad) REAL CW ! cosine mean long. perigee REAL WR ! mean longitude of perigee (rad) REAL SW ! sine mean long. perigee REAL SSW ! sine 2*mean long. perigee REAL EYT ! REAL FEQT ! REAL FEQT1 ! REAL FEQT2 ! REAL FEQT3 ! REAL FEQT4 ! REAL FEQT5 ! REAL FEQT6 ! REAL FEQT7 ! REAL REQT ! REAL EQT ! REAL RA ! right ascension (degrees) REAL TAB ! REAL RRA ! right ascension (radians) REAL RDECL ! declination angle (rad) REAL CSZ ! cosine (zenith angle) REAL ZPT ! REAL ZR ! zenith angle (radians) C********************************************************************* C begin body of subroutine CALZEN2 C...convert to radians RLT = LAT * PI180 C...parse date IIYEAR = IDATE / 10000 IMTH = ( IDATE - IIYEAR * 10000 ) / 100 IDAY = IDATE - IIYEAR * 10000 - IMTH * 100 C...identify and correct leap years IF ( MOD( IIYEAR, 4 ) .EQ. 0 ) THEN IMN( 2 ) = 29 ELSE IMN( 2 ) = 28 END IF C...count days from Dec.31,1973 to Jan 1, YEAR, then add to 2,442,047.5 YREF = 2442047.5 NYEARS = IIYEAR - 1974 LEAP = ( NYEARS + 1 ) / 4 IF ( NYEARS .LE. -1 ) LEAP = ( NYEARS - 2 ) / 4 NOLEAP = NYEARS - LEAP YR = YREF + 365.0 * NOLEAP + 366.0 * LEAP IJD = 0 IN = IMTH - 1 IF ( IN .EQ. 0 ) THEN IJD = IDAY ELSE IF ( IN .GT. 0 ) THEN DO 101 I = 1, IN IJD = IJD + IMN( I ) 101 CONTINUE IJD = IJD + IDAY END IF C...print julian days current "ijd" JD = IJD + ( YR - YREF ) D = JD + GMT / 24.0 C...calc geom mean longitude ML = 279.2801988 + 0.9856473354 * D + 2.267E-13 * D * D RML = ML * PI180 C...calc equation of time in sec C... w = mean long of perigee C... e = eccentricity C... epsi = mean obliquity of ecliptic W = 282.4932328 + 4.70684E-5 * D + 3.39E-13 * D * D WR = W * PI180 EC = 1.6720041E-2 - 1.1444E-9 * D - 9.4E-17 * D * D EPSI = 23.44266511 - 3.5626E-7 * D - 1.23E-15 * D * D PEPSI = EPSI * PI180 YT = ( TAN( PEPSI / 2.0 ) )**2 CW = COS( WR ) SW = SIN( WR ) SSW = SIN( 2.0 * WR ) EYT = 2.0 * EC * YT FEQT1 = SIN( RML ) * ( -EYT * CW - 2.0 * EC * CW ) FEQT2 = COS( RML ) * ( 2.0 * EC * SW - EYT * SW ) FEQT3 = SIN( 2.0 * RML ) * ( YT - ( 5.0 * EC**2 / 4.0 ) & * ( CW**2 - SW**2 ) ) FEQT4 = COS( 2.0 * RML ) * ( 5.0 * EC**2 * SSW / 4.0 ) FEQT5 = SIN( 3.0 * RML ) * ( EYT * CW ) FEQT6 = COS( 3.0 * RML ) * ( -EYT * SW ) FEQT7 = -SIN( 4.0 * RML ) * ( 0.5 * YT**2 ) FEQT = FEQT1 + FEQT2 + FEQT3 + FEQT4 + FEQT5 + FEQT6 + FEQT7 EQT = FEQT * 13751.0 C...convert eq of time from sec to deg REQT = EQT / 240.0 C...calc right ascension in rads RA = ML - REQT RRA = RA * PI180 C...calc declination in rads, deg TAB = 0.43360 * SIN( RRA ) RDECL = ATAN( TAB ) C...calc local hour angle LBGMT = 12.0 - EQT / 3600.0 + LONG * 24.0 / 360.0 LZGMT = 15.0 * ( GMT - LBGMT ) ZPT = LZGMT * PI180 CSZ = SIN( RLT ) * SIN( RDECL ) + COS( RLT ) * COS( RDECL ) & * COS( ZPT ) ZR = ACOS( CSZ ) ZENITH = ZR / PI180 RETURN END ================================================ FILE: UTIL/jproc/src/common/chj.f ================================================ !-----------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !-----------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/JPROC/src/driver/jproc_table/chj.f,v 1.5 2011/10/29 01:03:52 sjr Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C @(#)chj.F 1.1 /project/mod3/JPROC/src/driver/jproc_table/SCCS/s.chj.F 23 May 1997 12:44:16 C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: FUNCTION CHJ ( ZETA ) C********************************************************************** C C Chapman function is used when the solar zenith angle exceeds C 75 deg., this is the updated RADM2 version (VERSION 89137) C interpolates between values given in, e.g., McCartney (1976). C C Edit history: C C 04/08/96 - Moved mods from Sasha's new code to this routine C 01/03/95 - Function has been completely rewritten for -SF- C readability and efficiency C C********************************************************************* IMPLICIT NONE C.......ARGUMENTS and descriptions REAL ZETA ! zenith angle (deg) REAL CHJ ! chapman function C.......LOCAL VARIABLES and descriptions INTEGER I ! angle loop index REAL RM ! zenith angle rounded up (deg) REAL Y( 21 ) ! DATA Y / 3.800, 4.055, 4.348, 4.687, 5.083, & 5.551, 6.113, 6.799, 7.650, 8.732, & 10.144, 12.051, 14.730, 18.686, 24.905, & 35.466, 55.211, 96.753, 197.000, 485.000, & 1476.000/ SAVE Y C********************************************************************* C.......begin body of function CHJ I = MAX( INT( ZETA ) + 1, 75 ) RM = FLOAT( I ) CHJ = Y( I - 75 ) + & ( Y( I - 74 ) - Y( I - 75 ) ) * ( ZETA - ( RM - 1.0 ) ) RETURN END ================================================ FILE: UTIL/jproc/src/common/index2.f ================================================ !-----------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !-----------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/JPROC/src/driver/jproc_table/index2.f,v 1.4 2011/10/29 01:03:53 sjr Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C @(#)index2.F 1.1 /project/mod3/JPROC/src/driver/jproc_table/SCCS/s.index2.F 23 May 1997 12:44:17 C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: INTEGER FUNCTION INDEX2 (NAME1, N, NAME2) C*********************************************************************** C C FUNCTION: C C This routine searches for NAME1 in list NAME2 C C REVISION HISTORY: C C 5/88 Modified for ROMNET C C ARGUMENT LIST DESCRIPTION: C C Input arguments: C C NAME1 Character string being searched for C N Length of array to be searched C NAME2 Character array to be searched C C Output arguments: C C INDEX1 The position within the NAME2 array that NAME1 C found. If string was not found, INDEX1 = 0 C C LOCAL VARIABLE DESCRIPTION: C C None C C*********************************************************************** IMPLICIT NONE INTEGER N INTEGER I CHARACTER*(*) NAME1 CHARACTER*(*) NAME2(*) C...Assume NAME1 is not in list NAME2 INDEX2 = 0 DO I = 1, N IF ( INDEX( NAME2( I ), NAME1 ) .EQ. 1 ) THEN INDEX2 = I RETURN ENDIF END DO RETURN END ================================================ FILE: UTIL/jproc/src/common/intavg.f ================================================ !-----------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !-----------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/JPROC/src/driver/jproc_table/intavg.f,v 1.5 2011/10/29 01:03:53 sjr Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C @(#)intavg.F 1.1 /project/mod3/JPROC/src/driver/jproc_table/SCCS/s.intavg.F 23 May 1997 12:44:18 C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE INTAVG ( WLIN, CQIN, NWLIN, TYPE, & WLOUT1, WLOUT2, CQOUT, NWLOUT ) C********************************************************************* C C This program computes the integrated average data for the ET C extra terrestrial irradiance wavelength intervals C C History: C S.Roselle 6/05/95 Program created C S.Roselle 7/25/96 Revised subroutine to compute interval C average quantities for point, centered, C beginning, and ending data C C********************************************************************* IMPLICIT NONE INCLUDE 'JVALPARMS.EXT' ! jproc parameters C...........ARGUMENTS and their descriptions CHARACTER(1) :: TYPE ! spectra type INTEGER NWLOUT ! number of intervals ETin INTEGER NWLIN ! number of intervals CQin REAL WLIN ( MXWLIN ) ! wl for CQin REAL WLIN1( MXWLIN ) ! lower limit on wl int CQin REAL WLIN2( MXWLIN ) ! upper limit on wl int CQin REAL CQIN( MXWLIN ) ! quantity (CS or QY) as f(WLIN) REAL WLOUT1( MXWL ) ! lower limit on wl int ETin REAL WLOUT2( MXWL ) ! upper limit on wl int ETin REAL CQOUT ( MXWL ) ! quantity (CS or QY) as f(WLOUT) C...........LOCAL VARIABLES and their descriptions: CHARACTER(16) :: PNAME = 'INTAVG' ! program name CHARACTER(80) :: MSG = ' ' ! message INTEGER I ! index var INTEGER J ! index var INTEGER MXWLPT ! pointer INTEGER MNWLPT ! pointer REAL DWLIN ! wl int for CQin REAL CQA ! lower cq value REAL CQB ! upper cq value C********************************************************************* C...begin body of subroutine INTAVG C...process point data IF ( TYPE .EQ. 'P' ) THEN C...transform the data to the same wavelength intervals as C... the irradiance data. C...loop through wavelength intervals for output arrays DO I = 1, NWLOUT C...find lower limit on input array MNWLPT = 1 DO J = 1, NWLIN IF ( WLIN( J ) .LE. WLOUT1( I ) ) MNWLPT = J END DO C...find upper limit on input array MXWLPT = NWLIN DO J = NWLIN, 1, -1 IF ( WLIN( J ) .GE. WLOUT2( I ) ) MXWLPT = J END DO C...initialize output arrays CQOUT( I ) = 0.0 C...loop through the valid wavelength intervals DO J = MNWLPT, MXWLPT C...determine weighting fraction for the wavelength interval IF ( WLOUT1( I ) .LE. WLIN( J ) ) THEN IF ( WLOUT2( I ) .EQ. WLIN( J+1 ) ) THEN DWLIN = WLIN( J+1 ) - WLIN( J ) CQA = CQIN( J ) CQB = CQIN( J+1 ) ELSE IF ( WLOUT2( I ) .LT. WLIN( J+1 ) ) THEN DWLIN = WLOUT2( I ) - WLIN( J ) CQA = CQIN( J ) CQB = ( CQIN( J+1 ) - CQIN( J ) ) & / ( WLIN( J+1 ) - WLIN( J ) ) & * ( WLOUT2( I ) - WLIN( J ) ) + CQIN( J ) ELSE IF ( WLOUT2( I ) .GT. WLIN( J+1 ) ) THEN DWLIN = WLIN( J+1 ) - WLIN( J ) CQA = CQIN( J ) CQB = CQIN( J+1 ) END IF ELSE IF ( WLOUT1( I ) .GT. WLIN( J ) ) THEN IF ( WLOUT2( I ) .EQ. WLIN( J+1 ) ) THEN DWLIN = WLIN( J+1 ) - WLOUT1( I ) CQA = ( CQIN( J+1 ) - CQIN( J ) ) & / ( WLIN( J+1 ) - WLIN( J ) ) & * ( WLOUT1( I ) - WLIN( J ) ) + CQIN( J ) CQB = CQIN( J+1 ) ELSE IF ( WLOUT2( I ) .LT. WLIN( J+1 ) ) THEN DWLIN = WLOUT2( I ) - WLOUT1( I ) CQA = ( CQIN( J+1 ) - CQIN( J ) ) & / ( WLIN( J+1 ) - WLIN( J ) ) & * ( WLOUT1( I ) - WLIN( J ) ) + CQIN( J ) CQB = ( CQIN( J+1 ) - CQIN( J ) ) & / ( WLIN( J+1 ) - WLIN( J ) ) & * ( WLOUT2( I ) - WLIN( J ) ) + CQIN( J ) ELSE IF ( WLOUT2( I ) .GT. WLIN( J+1 ) ) THEN DWLIN = WLIN( J+1 ) - WLOUT1( I ) CQA = ( CQIN( J+1 ) - CQIN( J ) ) & / ( WLIN( J+1 ) - WLIN( J ) ) & * ( WLOUT1( I ) - WLIN( J ) ) + CQIN( J ) CQB = CQIN( J+1 ) END IF END IF C...set wavelength interval fraction DWLIN = AMAX1 ( DWLIN / ( WLOUT2( I ) - WLOUT1( I ) ), 0.0 ) C...add weighted quantity to output arrays CQOUT( I ) = CQOUT( I ) + 0.5 * ( CQA + CQB ) * DWLIN END DO END DO C...process interval data ELSE C...determine wl intervals for CENTERED WLBAND data IF ( TYPE .EQ. 'C' ) THEN WLIN1( 1 ) = 0.5 * (( 3.0 * WLIN( 1 ) ) - WLIN( 2 )) WLIN2( 1 ) = 0.5 * (WLIN( 1 ) + WLIN( 2 )) DO J = 2, NWLIN-1 WLIN1( J ) = 0.5 * (WLIN( J ) + WLIN ( J-1 )) WLIN2( J ) = 0.5 * (WLIN( J ) + WLIN ( J+1 )) END DO C...determine wl intervals for BEGINNING WLBAND data ELSE IF ( TYPE .EQ. 'B' ) THEN DO J = 1, NWLIN-1 WLIN1( J ) = WLIN( J ) WLIN2( J ) = WLIN( J+1 ) END DO C...determine wl intervals for ENDING WLBAND data ELSE IF ( TYPE .EQ. 'E' ) THEN DO J = 2, NWLIN WLIN1( J-1 ) = WLIN( J-1 ) WLIN2( J-1 ) = WLIN( J ) END DO C...stop program if wavelength data type not found ELSE MSG = 'Unrecognized spectra type in CSQY file ' WRITE(6,'(A)')TRIM( PNAME ) // ': ', TRIM( MSG ) STOP END IF C...loop through wavelength intervals for output arrays DO I = 1, NWLOUT C...find lower limit on input array MNWLPT = 1 DO J = 1, NWLIN-1 IF ( WLIN1( J ) .LE. WLOUT1( I ) ) MNWLPT = J END DO C...find upper limit on input array MXWLPT = NWLIN-1 DO J = NWLIN-1, 1, -1 IF ( WLIN2( J ) .GE. WLOUT2( I ) ) MXWLPT = J END DO C...initialize output arrays CQOUT( I ) = 0.0 C...loop through the valid wavelength intervals DO J = MNWLPT, MXWLPT C...determine weighting fraction for the wavelength interval IF ( WLOUT1( I ) .LE. WLIN1( J ) ) THEN IF ( WLOUT2( I ) .EQ. WLIN2( J ) ) THEN DWLIN = WLIN2( J ) - WLIN1( J ) ELSE IF ( WLOUT2( I ) .LT. WLIN2( J ) ) THEN DWLIN = WLOUT2( I ) - WLIN1( J ) ELSE IF ( WLOUT2( I ) .GT. WLIN2( J ) ) THEN DWLIN = WLIN2( J ) - WLIN1( J ) END IF ELSE IF ( WLOUT1( I ) .GT. WLIN1( J ) ) THEN IF ( WLOUT2( I ) .EQ. WLIN2( J ) ) THEN DWLIN = WLIN2( J ) - WLOUT1( I ) ELSE IF ( WLOUT2( I ) .LT. WLIN2( J ) ) THEN DWLIN = WLOUT2( I ) - WLOUT1( I ) ELSE IF ( WLOUT2( I ) .GT. WLIN2( J ) ) THEN DWLIN = WLIN2( J ) - WLOUT1( I ) END IF END IF C...set wavelength interval fraction DWLIN = AMAX1 ( DWLIN / ( WLOUT2( I ) - WLOUT1( I ) ), 0.0 ) C...add weighted quantity to output arrays CQOUT( I ) = CQOUT( I ) + CQIN( J ) * DWLIN END DO END DO END IF RETURN END ================================================ FILE: UTIL/jproc/src/common/interp.f ================================================ !-----------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !-----------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/JPROC/src/driver/jproc_table/interp.f,v 1.5 2011/10/29 01:03:53 sjr Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C @(#)interp.F 1.1 /project/mod3/JPROC/src/driver/jproc_table/SCCS/s.interp.F 23 May 1997 12:44:19 C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE INTERP ( DLAT, IDATE, XT, XAIR, XO3, XDOBS, HO3, & T, AIR, O3 ) C********************************************************************* C C FUNCTION: Interpolates data for T, AIR, and O3 to the selected C day of the year (from seasonal averages or monthly averages) C and to the selected latitude (data at 90N -> 90S by 10 deg incre C Note: latitude dependent data is indexed 1 through 19: C (1 = 90N, 10 = Equator, 19 = 90S). C seasonal data is indexed 1 through 4: c 1 = winter, 2 = spring, 3 = summer, 4 = fall C monthly data is indexed 1=Jan, 2=Feb,...,12=Dec. c Output of this subroutine is: Molecular # density, Ozone, and C temperature interpolated to date and latitude of interest: C AIR(I), T(I), O3. Also, the O3 data can also be re-scaled to C a different value of total ozone (DOBSON). C C PRECONDITIONS REQUIRED: C C REVISION HISTORY: C 5/12/95 s.roselle modified old radm version for new coding std C C********************************************************************* IMPLICIT NONE INCLUDE 'JVALPARMS.EXT' ! jproc parameters C...........ARGUMENTS and their descriptions INTEGER IDATE ! date (yyyymmdd) REAL DLAT ! latitude interval REAL T ( MXLEV ) ! interpolated temp profile REAL AIR( MXLEV ) ! interpolated air profile REAL O3 ( MXLEV ) ! interpolated ozone profile REAL XT ( 12, 19, MXLEV ) ! season-lat-vert temp profile REAL XAIR( 12, 19, MXLEV ) ! season-lat-vert air profile REAL XO3 ( 12, 19, MXLEV ) ! season-lat-vert ozone profile REAL XDOBS( 19, 12 ) ! lat-season ozone values REAL HO3 ! ozone scale height C...........LOCAL VARIABLES and their descriptions: INTEGER IYEAR ! year (yyyy) INTEGER IDAY ! day (dd) INTEGER IMONTH ! month (mm) INTEGER ILEV ! level index variable INTEGER IMON ! month index variable INTEGER NS1 ! season number INTEGER JDAYS ! julian day INTEGER NS2 ! next season number INTEGER NM2 ! next month number INTEGER NM1 ! month number INTEGER L1 ! latitude INTEGER L2 ! next latitude INTEGER JDAY ! julian date INTEGER JDAYM ! julian date INTEGER IJMN( 12 ) ! julian start day for each month DATA IJMN / 0, 31, 59, 90, 120, 151, & 181, 212, 243, 273, 304, 334 / SAVE IJMN INTEGER MIDS( 5 ) ! julian day midpoints of seasons DATA MIDS / 35, 126, 218, 310, 400 / SAVE MIDS INTEGER MIDM( 13 ) ! julian day midpoints by month DATA MIDM / 15, 46, 74, 105, 135, 166, 196, & 227, 258, 288, 319, 349, 380 / SAVE MIDM REAL FS2 ! seasonal weighting factor 1 REAL FS1 ! seasonal weighting factor 2 REAL FM2 ! monthly weighting factor 1 REAL FM1 ! monthly weighting factor 2 REAL AL1 ! REAL FL1 ! latitude weighting factor 1 REAL FL2 ! latitude weighting factor 2 REAL A1 ! seasonally interpolated air 1 REAL A2 ! seasonally interpolated air 2 REAL T1 ! seasonally interpolated temp 1 REAL T2 ! seasonally interpolated temp 2 REAL O31 ! seasonally interpolated ozone 1 REAL O32 ! seasonally interpolated ozone 2 REAL D1 ! monthly interpolated dobson 1 REAL D2 ! monthly interpolated dobson 2 REAL DOBSON ! lat & monthly interp. dobson REAL DOBSREF ! interp. O3 profile dobson unit C********************************************************************* C begin body of subroutine INTERP2 C.......assumed julian date of seasonally averaged data, MIDS: C....... 1 - winter - 35 - 4 feb C....... 2 - spring - 126 - 6 may C....... 3 - summer - 218 - 6 aug C....... 4 - fall - 310 - 6 nov C....... 5 - new winter - 35+365 - 4 feb C.......assumed julian date for monthly averaged data, MIDM: C....... 15th day of each month C.......parse date IYEAR = INT( IDATE / 10000 ) IMONTH = INT( (IDATE - IYEAR * 10000) / 100 ) IDAY = IDATE - IYEAR * 10000 - IMONTH * 100 C.......compute Julian day, adjusting for leap years JDAY = IJMN( IMONTH ) + IDAY IF ( (MOD( IYEAR, 4 ) .EQ. 0) .AND. (IMONTH .GT. 2) ) & JDAY = JDAY + 1 C.......compute season interpolation parameters C....... calculate nearest previous season data set index NS1 = 4 IF ( JDAY .GE. 35 ) NS1 = 1 IF ( JDAY .GE. 126 ) NS1 = 2 IF ( JDAY .GE. 218 ) NS1 = 3 IF ( JDAY .GE. 310 ) NS1 = 4 C.......adjust for cyclic year JDAYS = JDAY IF ( JDAY .LT. 35 ) JDAYS = JDAY + 365 NS2 = NS1 + 1 FS2 = FLOAT( JDAYS - MIDS( NS1 ) ) / & FLOAT( MIDS( NS2 ) - MIDS( NS1 ) ) FS1 = 1.0 - FS2 IF ( NS2 .EQ. 5 ) NS2 = 1 C.......compute monthly interpolation parameters DO IMON = 1, 13 NM2 = IMON IF ( JDAY .LT. MIDM( IMON ) ) GO TO 250 END DO 250 CONTINUE C.......adjust for cyclic year IF ( NM2 .EQ. 1 ) NM2 = 13 NM1 = NM2 - 1 JDAYM = JDAY IF ( JDAYM .LT. 15 ) JDAYM = JDAY + 365 FM2 = FLOAT( JDAYM - MIDM( NM1 ) ) / & FLOAT( MIDM( NM2 ) - MIDM( NM1 ) ) FM1 = 1.0 - FM2 IF ( NM2 .EQ. 13 ) NM2 = 1 C.......compute latitude interpolation parameters AL1 = 10.0 - DLAT / 10.0 L1 = INT( AL1 ) L2 = L1 + 1 IF ( DLAT .EQ. -90.0 ) L2 = L1 - 1 FL2 = AL1 - FLOAT( L1 ) FL1 = 1.0 - FL2 C.......interpolate DO ILEV = 1, MXLEV A1 = FS1 * XAIR( NS1, L1, ILEV ) + & FS2 * XAIR( NS2, L1, ILEV ) A2 = FS1 * XAIR( NS1, L2, ILEV ) + & FS2 * XAIR( NS2, L2, ILEV ) T1 = FS1 * XT ( NS1, L1, ILEV ) + & FS2 * XT ( NS2, L1, ILEV ) T2 = FS1 * XT ( NS1, L2, ILEV ) + & FS2 * XT ( NS2, L2, ILEV ) O31 = FS1 * XO3 ( NS1, L1, ILEV ) + & FS2 * XO3 ( NS2, L1, ILEV ) O32 = FS1 * XO3 ( NS1, L2, ILEV ) + & FS2 * XO3 ( NS2, L2, ILEV ) AIR( ILEV ) = FL1 * A1 + FL2 * A2 T ( ILEV ) = FL1 * T1 + FL2 * T2 O3 ( ILEV ) = FL1 * O31 + FL2 * O32 END DO C.......interpolate dobson values: D1 = FM1 * XDOBS( L1, NM1 ) + FM2 * XDOBS( L1, NM2 ) D2 = FM1 * XDOBS( L2, NM1 ) + FM2 * XDOBS( L2, NM2 ) DOBSON = FL1 * D1 + FL2 * D2 C.......adjustment of O3 profiles to monthly DOBSON data from WMO 1981 DOBSREF = O3( MXLEV ) * 1.0E5 * HO3 DO ILEV = 1, MXLEV DOBSREF = DOBSREF + O3( ILEV ) * 1.0E5 END DO DOBSREF = DOBSREF / 2.687E16 DO ILEV = 1, MXLEV O3( ILEV ) = O3( ILEV ) * DOBSON / DOBSREF END DO RETURN END ================================================ FILE: UTIL/jproc/src/common/jproc.F ================================================ !-----------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !-----------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/JPROC/src/driver/jproc_table/jproc.F,v 1.8 2011/10/29 01:03:53 sjr Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C @(#)jproc.F 1.3 /project/mod3/JPROC/src/driver/jproc_table/SCCS/s.jproc.F 04 Jul 1997 09:39:12 C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: PROGRAM JPROC C********************************************************************* C C This program calculates photolytic rate constants for C atmospheric molecules specified by the chemical mechanism C reader. J-values are output in a TABLE format, dimensioned C by hour angle, latitudinal band, and vertical height. The C contents of the table have been modulated by climatological C profiles of temperture, pressure, and ozone. In addition, C if Total Ozone Column Measurements are available, the ozone C profile is scaled to the measured TOC value. C C********************************************************************* C C Revision History: C C Date Who Changes Made C ------- ------------ -------------------------------------------- C 10/6/09 S.Roselle Increased dimensions on the output jtable C to accommodate Southern Hemisphere (issue C reported by Erick Sperandio) and Global C applications: extended to all latitudinal C bands (-90 to +90); added more hour angles C (up to 12 hrs from local noon); increased C vertical extent to 20km; increased resolution C in the upper troposphere (suggested by C Barron Henderson); updated code that applies C temperature/pressure adjustments to CS/QY C data (issue reported by Barron Henderson) C 7/15/96 S.Roselle Final modification for targeted IOV version... C now uses radiation routines from Madronich's C TUV model. Finalized CSQY and ET input C formats and links to the chemistry mechanism C reader. C 4/15/96 S.Roselle Modified to read TOMS data and rescale C ozone profiles to fit total ozone column C values if TOMS data are available C 1/30/96 S.Roselle Significant modification to CSQY input...Now C reads CSQY on any wavelength distribution and C integrates to ET wavelength bands. Reads in C user specified CSQY files and calculated C jvalues only for these specified reations. C 6/26/95 S.Roselle& Modified to become the Models-3 Photolysis C C.Jang Rate Preprocessor with the following changes C 1. Follow the Models-3 coding standard. C 2. Produce a unique set of J-value output C for RADM2, CB-IV, and SAPRC90 Mechanisms C (a total of 27 photolytic reactions). C 3. Increase the vertical resolution of C J-value output from3 levels (0,1,10 km) C to 7 levels (0,1,2,3,4,5,10). C 4. Update the species quantum yield and C absorption cross-section (the 'P2' file, C now 'P3') from NASA-JPL-94 publications. C 5. Add comment lines to 'J3' output for the C benefits of chemical mechanism reader C used in the Models-3 and a clear C description of the output information. C 04/24/95 S.Roselle Removed as subroutine in Met Preprocessor C and made into a separate program C 89156 JKV Modified for use as subroutine of met C preprocessor. created FOUTJ2. C 89144 JKV Modified to use date of form YYDDD passed C from preprocessor. C 6/7/89 ......... Cray version for RADM2 C 7/88 J.d.C & modified C M.Boharneys C 1988 b.stockwell modified C 8/18/87 S.Madronich last modified C S.Madronich Program written C C********************************************************************* USE GET_ENV_VARS, FILE_UNIT => JUNIT USE RXNS_DATA IMPLICIT NONE INCLUDE SUBST_CONST ! commonly used constants INCLUDE 'JVALPARMS.EXT' ! jproc parameters C...........PARAMETERS and their descriptions INTEGER, PARAMETER :: JVHT = 13 ! number of output vert. levels INTEGER, PARAMETER :: JVTMAX = 13 ! number of hours output INTEGER, PARAMETER :: JVLAT = 19 ! number of output latitudes C...........LOCAL VARIABLES and their descriptions: CHARACTER(16) :: PNAME = 'JPROC' ! driver program name CHARACTER(16) :: JVFILE = 'JVALUES' ! JVALUES i/o logical name CHARACTER(80) :: MSG = ' ' ! buffer for messages to output CHARACTER(255) EQNAME ! full name of JVALUES file LOGICAL TOMS_EXIST ! TOMS data existence flag INTEGER DAY ! julian day of year INTEGER IBASE ! cloud base index INTEGER IDATE ! date (yyyymmdd) INTEGER YEAR ! year (yyyy) INTEGER ILAT ! latitude index INTEGER ITIME ! hour index INTEGER ITOP ! cloud top index INTEGER JVUNIT ! unit number for j-value output INTEGER JDT ! julian date INTEGER IWL ! wavelength index INTEGER ILEV ! level index INTEGER MONTH ! month counter INTEGER IHT ! height index INTEGER NLAYS ! total # of atm layers INTEGER NLEVS ! number of levels INTEGER IPHOT ! reaction index INTEGER NSUBKM ! cloud sublayers/km INTEGER NSURF ! ground elev above sea level INTEGER NWL ! number of wavelength bands INTEGER IOST ! io status INTEGER STATUS ! status ! indices in latitude array to print rates to standard output INTEGER, PARAMETER :: NLAT_PRINT = 7 INTEGER :: ILAT_PRINT( NLAT_PRINT ) = (/ 4, 6, 8, 10, 12, 14, 16 /) REAL COSZEN ! cosine zenith angle REAL DF ! actinic flux REAL DJ ! jvalue for one wl,lev,react REAL DLAT ! latitude REAL DLONG ! longitude for Pittsburgh REAL ZENITH ! zenith angle REAL GAER ! aerosol asymetry factor REAL GCLD ! cloud asymetry factor REAL GRAY ! asymetry fact for Rayleigh scat REAL HAER ! aerosol scale ht at atm top REAL HAIR ! air scale height REAL HO3 ! ozone scale height REAL OMAER ! aerosol single scat albedo REAL OMCLD ! cloud single scat cross sect REAL OMRAY ! single scat albedo, Rayleigh REAL UT ! time REAL UT0 ! local high noon REAL UTNOON ! local high noon REAL DOBNEW( JVLAT ) ! total vertical ozone column REAL ACLD( NPHOTAB ) ! species dependent cloud albedo factor REAL CLOUD( 48 ) ! cloud optical depth profile REAL O3 ( MXLEV ) ! ozone profile REAL T ( MXLEV ) ! interpolated temp profile REAL AIR( MXLEV ) ! interpolated air profile REAL AER( MXLEV ) ! aerosol attenuation profile REAL VAER( NJ ) ! aerosol column in layer REAL VAIR( NJ ) ! air column in layer REAL VCLD( NJ ) ! cloud column in layer REAL VO3 ( NJ ) ! ozone column in layer REAL VT ( NJ ) ! average temp of column REAL ZMID( NJ ) ! altitude of midpoint of layer REAL Z ( NJ ) ! altitude of each level REAL CVO2( NJ ) ! vertical column O2 REAL MIDWL ( MXWL ) ! wavelength band midpoints REAL STWL ( MXWL ) ! wavelength band starting point REAL ENDWL ( MXWL ) ! wavelength band ending point REAL AAER ( MXWL ) ! aerosol total vert opt depth REAL ALBEDO( MXWL ) ! ground albedo REAL ARAYL ( MXWL ) ! Rayleigh scat cross section REAL F ( MXWL ) ! extra-terrestrial radiation REAL O2ABS ( MXWL ) ! O2 absorption cross section REAL O3ABS ( MXWL ) ! O3 absorption cross section REAL XDOBS( 19, 12 ) ! lat-season ozone values REAL ENDIR( NJ, MXWL ) ! direct flux REAL ENDN ( NJ, MXWL ) ! diffuse down-flux REAL ENUP ( NJ, MXWL ) ! diffuse up-flux REAL AO2 ( NJ, MXWL ) ! O2 cross section REAL AO3 ( NJ, MXWL ) ! average O3 cross sect in layer REAL D( NPHOTAB, NJ ) ! j-values REAL QY( MXWL, NPHOTAB ) ! quantum yields REAL CS( MXWL, NPHOTAB ) ! cross sections REAL XT ( 12, 19, MXLEV ) ! season-lat-vert temp profile REAL XO3 ( 12, 19, MXLEV ) ! season-lat-vert ozone profile REAL XAIR( 12, 19, MXLEV ) ! air concentration REAL QYZ( 100, MXWL, NPHOTAB )! quantum yields T&P corrected REAL CSZ( 100, MXWL, NPHOTAB )! cross section at each level REAL XJVAL( NPHOTAB, JVTMAX, JVLAT, JVHT ) ! jvalues ! latitudes for jvalue file REAL :: XLATJV( JVLAT ) = (/ -90.0, -80.0, -70.0, -60.0, -50.0, -40.0, & -30.0, -20.0, -10.0, 0.0, 10.0, 20.0, 30.0, & 40.0, 50.0, 60.0, 70.0, 80.0, 90.0 /) ! hours from noon for jvalue file REAL :: XHAJV( JVTMAX ) = (/ 0.0, 1.0, 2.0, 3.0, 4.0, 5.0, 6.0, 7.0, 8.0, & 9.0, 10.0, 11.0, 12.0 /) ! vertical hts (m) for jvalue file REAL :: XZJV( JVHT ) = (/ 0.0, 1000.0, 2000.0, 3000.0, 4000.0, & 5000.0, 8000.0, 10000.0, 15000.0, 20000.0, & 25000.0, 30000.0, 35000.0 /) ! <<< 13 levels C...........FUNCTIONS and their descriptions: REAL CHJ ! Chapman function CHARACTER( 3 ) :: MONTHS(1:12) = (/ & 'Jan','Feb','Mar','Apr','May','Jun', & 'Jul','Aug','Sep','Oct','Nov','Dec' /) C********************************************************************* C begin body of program JPROC WRITE( 6, 2001 ) & 'Program ' // TRIM( PNAME ) , & 'This program calculates photolytic rate constants for ', & 'atmospheric molecules specified by the chemical mechanism ', & 'reader. J-values are output in a TABLE format, dimensioned ', & 'by hour angle, latitudinal band, and vertical height. The ', & 'contents of the table have been modulated by climatological ', & 'profiles of temperture, pressure, and ozone. In addition, ', & 'if Total Ozone Column Measurements are available, the ozone ', & 'profile is scaled to the measured TOC value. ', & ' ' C...get starting date C... this affects: (1) the calculation of the zenith angle C... (2) interpolation of seasonal and monthly C... dependent T,M,O3,DOBSON C C...read the julian start date (yyyyddd) JDT = 1988215 ! default: 1988215 MSG = 'Scenario Starting Date (YYYYDDD)' JDT = GET_ENV_INT( 'JPROC_STDATE', MSG, JDT, STATUS ) IF ( STATUS .NE. 0 ) WRITE( 6, '( 5X, A )' ) MSG IF ( STATUS .EQ. 1 ) THEN MSG = 'Environment variable improperly formatted' WRITE(6,'(A)')TRIM( PNAME ) // ': ', TRIM( MSG ) STOP ELSE IF ( STATUS .EQ. -1 ) THEN MSG = 'Environment variable set, but empty...Using default:' WRITE( 6, '( 5X, A, I9 )' ) MSG, JDT ELSE IF ( STATUS .EQ. -2 ) THEN MSG = 'Environment variable not set...Using default:' WRITE( 6, '( 5X, A, I9 )' ) MSG, JDT END IF C...check for the existence of TOMS data TOMS_EXIST = .FALSE. MSG = 'TOMS data exist (Y/N)' TOMS_EXIST = GET_ENV_FLAG( 'JPROC_TOMSEXIST', MSG, TOMS_EXIST, STATUS ) IF ( STATUS .NE. 0 ) WRITE( 6, '(5X, A)' ) MSG IF ( STATUS .EQ. 1 ) THEN MSG = 'Environment variable improperly formatted' WRITE(6,'(A)')TRIM( PNAME ) // ': ', TRIM( MSG ) STOP ELSE IF ( STATUS .EQ. -1 ) THEN MSG = 'Environment variable set, but empty ... Using default:' WRITE( 6, '(5X, A, L9)' ) MSG, TOMS_EXIST ELSE IF ( STATUS .EQ. -2 ) THEN MSG = 'Environment variable not set ... Using default:' WRITE( 6, '(5X, A, L9)' ) MSG, TOMS_EXIST END IF IF ( .NOT. ( TOMS_EXIST ) ) THEN WRITE( 6, 2009 ) END IF C...convert julian date to year, month, and day C... and to yyyymmdd format CALL JULIAN_YEAR_MONTH_DAY (JDT,YEAR,MONTH,DAY) IDATE = YEAR * 10000 + MONTH * 100 + DAY WRITE( 6, 2005 ) TRIM( MONTHS( MONTH ) ), DAY, YEAR C...read the extra terrestrial radiation data CALL READET ( NWL, STWL, MIDWL, ENDWL, F ) C...read the absorption cross section and quantum yield data CALL READCSQY ( NWL, STWL, ENDWL, CS, QY ) C...read the molecular oxygen absorption cross sections CALL READO2 ( NWL, STWL, ENDWL, O2ABS ) C...read the ozone absorption cross sections CALL READO3 ( NWL, STWL, ENDWL, O3ABS ) C...read the total ozone column data IF ( TOMS_EXIST ) CALL READTOMS ( JDT, JVLAT, XLATJV, DOBNEW ) C...read the standard atmosphere profiles CALL READPROF ( XAIR, AIR, XO3, XDOBS, O3, AER, XT, T ) C...specify ground albedo CALL SET_ALBEDO ( NWL, MIDWL, ALBEDO ) C...cloud: specify cloud CALL SETCLD ( NLAYS, NLEVS, NSUBKM, IBASE, ITOP, CLOUD, & OMCLD, GCLD ) C...Specify aerosols CALL SETAER ( NWL, MIDWL, AAER, OMAER, GAER, HAER ) C...Specify air/Rayleigh parameters CALL SETAIR ( NWL, MIDWL, HAIR, OMRAY, GRAY, ARAYL ) C...nsurf: ground elevation above sea level C... Here can specify different altitudes for ground surface. C... Currently set up so that change index of surface level: C... 1 = SEA LEVEL C... C... ***Note that the altitude associated with level index depends C... on whether sublayering has been done over this altitude range. C... So for example nsurf = 2 means 1 km above sea level C... if ibase > 2, but if ibase = 1 then this means 1/36 km above C... sea level. NSURF = 1 C...ozone: specify ozone vs. height parameters c... HO3 = ozone scale height, used to estimate ozone density column C... upper boundary (50km). C... DOBNEW = total vertical ozone column, in milli-cm-atm. If want C... value, must specify DOBNEW here and turn on subroutine C... further below. Otherwise: O3 profiles from main data C... will be used. HO3 = 4.50 C...compute season number C C...latitude and longitude: C... the altitude profiles of air density, temperature, C... and ozone depend on the geographic coordinates. Also, these are C... needed to calculate the zenith angle. C... ILAT is index for different latitudes C... user must supply the real values of the latitude, C... DLAT = funct(ILAT) for each index ILAT. DLAT is the real C... latitude in degrees, e.g. c... 90.0 at N-pole C... 0.0 at equator C... -90.0 at S-pole C... All altitude-dependent data are adjusted to the selected C... latitude in subroutine INTERP(DLAT,IDATE) C...set long. for Pittsburgh DLONG = 80.0 C...loop for latitude DO 200 ILAT = 1, JVLAT DLAT = XLATJV( ILAT ) C... interpolate to working latitude and date C... if subroutine INTERP is not called, code will use standard C... altitude pr. for ozone, air, temperature, and aerosols CALL INTERP ( DLAT, IDATE, XT, XAIR, XO3, XDOBS, HO3, & T, AIR, O3 ) C...invoke subroutine O3SCAL is want to set all dobson values to C... user-selected value DOBNEW, otherwise WMO monthly average data C... are used. IF ( TOMS_EXIST ) CALL O3SCAL ( O3, HO3, XLATJV( ILAT ), & DOBNEW( ILAT ) ) C...subdivide atmosphere in layers C... subroutine SUBGRID computes all altitude dependent quantities on C... grid used in radiative transfer calculation. CALL SUBGRID ( NWL, STWL, MIDWL, ENDWL, CS, CSZ, QY, QYZ, & AIR, HAIR, VAIR, CVO2, O3ABS, O3, HO3, VO3, & AO3, IBASE, ITOP, CLOUD, NSUBKM, VCLD, & AER, VAER, HAER, T, VT, Z, ZMID, & NLAYS, NLEVS ) C...time and zenith: specify times for calculation C... note that date was already specified above C... UT0 = Universal Time (GMT) of first calculation C...Select starting time, for example, C... UTNOON = 12. + DLONG*24./360. -> start at local high sun UTNOON = 12.0 + DLONG * 24.0 / 360.0 UT0 = UTNOON DO 200 ITIME = 1, JVTMAX UT = UT0 + XHAJV( ITIME ) CALL CALCZEN ( DLAT, DLONG, IDATE, UT, ZENITH ) C...initialize J-values DO ILEV = 1, NLEVS DO IPHOT = 1, NPHOTAB D( IPHOT, ILEV ) = 0.0 END DO END DO C...if nighttime, skip radiative transfer calculation IF ( ZENITH .LE. 95.0 ) THEN ! begin daytime calcs IF ( ZENITH .EQ. 90.0 ) ZENITH = 89.9 COSZEN = COS( ZENITH * PI180 ) IF ( ZENITH .GT. 75.0 ) COSZEN = 1.0 / CHJ( ZENITH ) C...subroutine SRBAND computes effective ozone cross sections in the C... Schumann-Runge region, using the parameterization of Allen and C... Frederick CALL SRBAND ( NWL, STWL, MIDWL, ENDWL, COSZEN, NLAYS, AO2, & CVO2, VT, ZMID, O2ABS ) C...subroutine OPTICS is the driver for the flux calculation. Output is C... ENDIR(ILEV,IWL) - irradiance of direct solar beam C... ENDN (ILEV,IWL) - irradiance of down-welling diffuse light C... ENUP (ILEV,IWL) - irradiance of up-welling diffuse light C... for each level LEV and wavelength bin IWL. CALL OPTICS ( NWL, COSZEN, ENDIR, ENDN, ENUP, & VAIR, ARAYL, GRAY, OMRAY, AO2, VO3, AO3, & VCLD, GCLD, OMCLD, VAER, AAER, GAER, OMAER, & ALBEDO, NLAYS, NLEVS, NSURF ) DO IWL = 1, NWL DO ILEV = 1, NLEVS C...compute the actinic flux DF = F( IWL ) * ( ENDIR( ILEV, IWL ) & + ENDN ( ILEV, IWL ) & + ENUP ( ILEV, IWL ) ) IF ( ILEV .LT. NSURF ) DF = 0.0 C...compute rate of photolysis (j-values) for each reaction DO IPHOT = 1, NPHOTAB DJ = DF * CSZ( ILEV, IWL, IPHOT ) & * QYZ( ILEV, IWL, IPHOT ) D( IPHOT, ILEV ) = D( IPHOT, ILEV ) + DJ END DO END DO END DO END IF ! end daytime calculations C...load output array and convert from 1/sec to 1/min DO ILEV = 1, NLEVS DO IHT = 1, JVHT IF ( FLOAT ( ( ILEV - 1 ) * 1000 ) .EQ. XZJV( IHT ) ) THEN DO IPHOT = 1, NPHOTAB XJVAL( IPHOT, ITIME, ILAT, IHT ) = D( IPHOT, ILEV ) & * 60.0 END DO END IF END DO END DO 200 CONTINUE C...write output file with file header CALL VALUE_NAME ( JVFILE, EQNAME ) JVUNIT = FILE_UNIT( ) OPEN ( UNIT = JVUNIT, & FILE = EQNAME, & FORM = 'FORMATTED', & STATUS = 'NEW', & IOSTAT = IOST ) C...check for open errors IF ( IOST .NE. 0) THEN MSG = 'Could not open the JVALUE data file' WRITE(6,'(A)')TRIM( PNAME ) // ': ', TRIM( MSG ) STOP END IF WRITE( 6, 2011 ) JVUNIT, EQNAME C...Write Julian Date to output *** WRITE ( JVUNIT, 2013 ) JDT WRITE( JVUNIT, 2015 ) JVHT WRITE( JVUNIT, 2017 ) ( XZJV( IHT ), IHT=1, JVHT ) WRITE( JVUNIT, 2019 ) JVLAT WRITE( JVUNIT, 2021 ) ( XLATJV( ILAT ), ILAT=1, JVLAT ) WRITE( JVUNIT, 2023 ) JVTMAX WRITE( JVUNIT, 2025 ) ( XHAJV( ITIME ), ITIME=1, JVTMAX ) WRITE( JVUNIT, 2027) NPHOTAB DO IPHOT = 1, NPHOTAB ACLD( IPHOT ) = 1.0 WRITE( JVUNIT, 2029 ) PHOTAB(IPHOT), ACLD( IPHOT ) END DO DO IHT = 1, JVHT DO ILAT = 1, JVLAT DO IPHOT = 1, NPHOTAB WRITE( JVUNIT, 2031 ) IHT, ILAT, IPHOT WRITE( JVUNIT, 2033 ) ( XJVAL( IPHOT, ITIME, ILAT, IHT ), & ITIME = 1, JVTMAX ) END DO END DO END DO CLOSE( JVUNIT ) IHT = 1 WRITE(6,2034)0.001 * XZJV( IHT ),', Mean Values versus latitude' WRITE(6,2035)' Rate ',( XLATJV( ILAT_PRINT( ILAT ) ), ILAT = 1, NLAT_PRINT ) DO IPHOT = 1, NPHOTAB WRITE(6,2036)PHOTAB(IPHOT), & (SUM( XJVAL( IPHOT, 1:JVTMAX, ILAT_PRINT( ILAT ), IHT ) ) / REAL( JVTMAX ), & ILAT = 1, NLAT_PRINT ) END DO WRITE(6,2034)0.001 * XZJV( IHT ),', Max Values versus latitude' WRITE(6,2035)' Rate ',( XLATJV( ILAT_PRINT( ILAT ) ), ILAT = 1, NLAT_PRINT ) DO IPHOT = 1, NPHOTAB WRITE(6,2036)PHOTAB(IPHOT), & (MAXVAL( XJVAL( IPHOT, 1:JVTMAX, ILAT_PRINT( ILAT ), IHT ) ), ILAT = 1, NLAT_PRINT ) END DO C...formats 2001 FORMAT( 5X, A ) 2005 FORMAT( 1X, '...Date to be processed: ', A3, 1X, I2, & ', ', I4, ' starting at 0:00 UT ' ) 2009 FORMAT( 1X, '...No TOMS data specified for this run.', /, & ' Climatological O3 column data will be used...', / ) 2011 FORMAT( 1X, '...Opening File on UNIT ', I2, /, 1X, A255, / ) 2013 FORMAT( 3X, I7, 2X, '(yyyyddd) Julian Date for the file' ) 2015 FORMAT( 3X, I2, 2X, 'LEVELS (m)' ) 2017 FORMAT( 3X, 30( F7.1, 1X ) ) 2019 FORMAT( 3X, I2, 2X, 'LATITUDES (deg)' ) 2021 FORMAT( 3X, 30( F5.1, 1X ) ) 2023 FORMAT( 3X, I2, 2X, 'HOUR ANGLES (from noon)' ) 2025 FORMAT( 3X, 30( F5.1, 1X ) ) 2027 FORMAT( 3X, I2, 2X, 'PHOTOLYTIC REACTIONS' ) 2029 FORMAT( 6X, '''', A16, ''',', 5X, F3.1 ) 2031 FORMAT( 1X, 3( I3, 1X ) ) 2033 FORMAT( 1X, 1P, 5( E13.7, 2X ) ) 2034 FORMAT('At Z = ', F6.2, A ) 2035 FORMAT(A16,10(1X,F12.2)) 2036 FORMAT(A16,10(1X,ES12.4)) STOP END ================================================ FILE: UTIL/jproc/src/common/junit.f ================================================ C*************************************************************************** C Significant portions of Models-3/CMAQ software were developed by * C Government employees and under a United States Government contract. * C Portions of the software were also based on information from non- * C Federal sources, including software developed by research institutions * C through jointly funded cooperative agreements. These research institu- * C tions have given the Government permission to use, prepare derivative * C works, and distribute copies of their work to the public within the * C Models-3/CMAQ software release and to permit others to do so. EPA * C therefore grants similar permissions for use of Models-3/CMAQ software, * C but users are requested to provide copies of derivative works to the * C Government without re-strictions as to use by others. Users are * C responsible for acquiring their own copies of commercial software * C associated with the Models-3/CMAQ release and are also responsible * C to those vendors for complying with any of the vendors' copyright and * C license restrictions. In particular users must obtain a Runtime license * C for Orbix from IONA Technologies for each CPU used in Models-3/CMAQ * C applications. * C * C Portions of I/O API, PAVE, and the model builder are Copyrighted * C 1993-1997 by MCNC--North Carolina Supercomputing Center and are * C used with their permissions subject to the above restrictions. * C*************************************************************************** C RCS file, release, date & time of last delta, author, state, [and locker] C $Header$ C what(1) key, module and SID; SCCS file; date and time of last delta: C @(#)JUNIT.F 1.1 /project/mod3/MECH/src/driver/mech/SCCS/s.JUNIT.F 02 Jan 1997 15:26:48 C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: INTEGER FUNCTION JUNIT () C JUNIT uses an internal INQUIRE call to determine if a unit number is C currently attached to a file. C In the call INQUIRE(UNIT = IUN, NAMED = NMD), NMD is .TRUE. if unit (IUN) C is connected to a file with a name, else it is .FALSE. IMPLICIT NONE INTEGER, PARAMETER :: LUNOUT = 6 INTEGER, PARAMETER :: MAXUN = 99 INTEGER, SAVE :: IUN LOGICAL NMD LOGICAL, SAVE :: AVAIL( MAXUN ) = .TRUE. ! array INTEGER, SAVE :: IGO = 1 GO TO ( 10001, 20001 ) IGO 10001 CONTINUE C set unit numbers that are not available for I/O AVAIL( 1 ) = .FALSE. AVAIL( 5 ) = .FALSE. AVAIL( 6 ) = .FALSE. C begin loop on unit numbers IUN = 10 101 CONTINUE IF ( IUN .GT. MAXUN ) GO TO 301 INQUIRE ( UNIT = IUN, NAMED = NMD ) IF ( NMD ) THEN AVAIL( IUN ) = .FALSE. GO TO 201 ELSE IF ( .NOT. AVAIL( IUN ) ) THEN GO TO 201 END IF JUNIT = IUN AVAIL( IUN ) = .FALSE. IGO = 2 RETURN 20001 CONTINUE 201 CONTINUE IUN = IUN + 1 GO TO 101 301 CONTINUE WRITE( LUNOUT,2001 ) 2001 FORMAT( / 1X, '*** ERROR ABORT in JUNIT ***' / & 1X, 'No more unit numbers available for I/O' ) WRITE( LUNOUT,2003 ) ( IUN, AVAIL( IUN ), IUN = 1, MAXUN ) 2003 FORMAT( 1X, 'Available unit numbers are: ' / & 3( 1X, 20( I2, '-', L1, 2X) / ) ) STOP END ================================================ FILE: UTIL/jproc/src/common/module_envvar.F ================================================ MODULE GET_ENV_VARS IMPLICIT NONE PUBLIC :: GET_ENV_STRING, GET_ENV_FLAG, GET_ENV_INT, GET_ENV_REAL, & GET_ENVLIST, VALUE_NAME, JUNIT INTEGER, PARAMETER, PRIVATE :: LOGDEV = 6 INTEGER, PARAMETER, PRIVATE :: MAX_LEN_WORD = 16 CONTAINS SUBROUTINE VALUE_NAME( VAR_NAME, VAR_VALUE ) IMPLICIT NONE CHARACTER*(*), INTENT( IN ) :: VAR_NAME CHARACTER*(*), INTENT( OUT ) :: VAR_VALUE INTEGER :: STATUS CALL GET_ENV_STRING( VAR_NAME, " ", VAR_NAME, VAR_VALUE, STATUS ) END SUBROUTINE VALUE_NAME SUBROUTINE GET_ENV_STRING( VAR_NAME, VAR_DESC, VAR_DEFAULT, VAR_VALUE, STATUS ) IMPLICIT NONE !arguments CHARACTER*(*), INTENT( IN ) :: VAR_NAME CHARACTER*(*), INTENT( IN ) :: VAR_DESC CHARACTER*(*), INTENT( IN ) :: VAR_DEFAULT CHARACTER*(*), INTENT( OUT ) :: VAR_VALUE INTEGER, INTENT( OUT ) :: STATUS !local CHARACTER( 586 ) :: MSG ! Message text CALL GET_ENVIRONMENT_VARIABLE( NAME=VAR_NAME, VALUE= VAR_VALUE, STATUS=STATUS, TRIM_NAME=.TRUE.) IF( STATUS .LT. 0 ) THEN MSG = 'ERROR in environment value for ' // TRIM( VAR_NAME ) WRITE(LOGDEV,'(a)')TRIM( MSG ) ELSE IF( STATUS .EQ. 1 )THEN STATUS = -1 VAR_VALUE = TRIM( VAR_DEFAULT ) ELSE IF( STATUS .GT. 1 )THEN STATUS = 1 MSG = 'ERROR in environment value for ' // TRIM( VAR_NAME ) WRITE(LOGDEV,'(a)')TRIM( MSG ) MSG = 'ERROR Processor does not support environment variables ' WRITE(LOGDEV,'(a)') END IF IF( STATUS .EQ. 0 )THEN MSG = ' Value for ' // TRIM( VAR_NAME ) // ': ' // TRIM( VAR_VALUE ) WRITE(LOGDEV,'(a)')TRIM( MSG ) END IF END SUBROUTINE GET_ENV_STRING LOGICAL FUNCTION GET_ENV_FLAG( VAR_NAME, VAR_DESC, VAR_DEFAULT, STATUS ) IMPLICIT NONE !arguments CHARACTER*(*), INTENT( IN ) :: VAR_NAME CHARACTER*(*), INTENT( IN ) :: VAR_DESC LOGICAL, INTENT( IN ) :: VAR_DEFAULT INTEGER, INTENT( OUT ) :: STATUS !local CHARACTER( 586 ) :: MSG ! Message text CHARACTER( 1 ) :: VAR_VALUE CHARACTER( 5 ) :: REPLY CALL GET_ENVIRONMENT_VARIABLE( NAME=VAR_NAME, VALUE= VAR_VALUE, STATUS=STATUS, TRIM_NAME=.TRUE.) IF( STATUS .LT. 0 ) THEN MSG = 'ERROR in environment value for ' // TRIM( VAR_NAME ) WRITE(LOGDEV,'(a)')TRIM( MSG ) STATUS = 1 ELSE IF( STATUS .EQ. 1 )THEN STATUS = -1 GET_ENV_FLAG = VAR_DEFAULT WRITE(LOGDEV,' (A,L)')'Environment Variable ' & // TRIM( VAR_NAME ) // ' missing.' & // ' Using default value of ',VAR_DEFAULT STATUS = -1 ELSE IF( STATUS .GT. 1 )THEN STATUS = 1 MSG = 'ERROR in environment value for ' // TRIM( VAR_NAME ) WRITE(LOGDEV,'(a)')TRIM( MSG ) MSG = 'ERROR Processor does not support environment variables ' WRITE(LOGDEV,'(a)') ELSE STATUS = 0 IF( VAR_VALUE(1:1) .EQ. 'T' .OR. VAR_VALUE(1:1) .EQ. 'Y' )THEN GET_ENV_FLAG = .TRUE. ELSE IF( VAR_VALUE(1:1) .EQ. 't' .OR. VAR_VALUE(1:1) .EQ. 'y' )THEN GET_ENV_FLAG = .TRUE. ELSE IF( VAR_VALUE(1:1) .EQ. 'F' .OR. VAR_VALUE(1:1) .EQ. 'N' )THEN GET_ENV_FLAG = .FALSE. ELSE IF( VAR_VALUE(1:1) .EQ. 'f' .OR. VAR_VALUE(1:1) .EQ. 'n' )THEN GET_ENV_FLAG = .FALSE. ELSE WRITE(LOGDEV,' (A,L)')'Environment Variable ' & // TRIM( VAR_NAME ) // ' must equal T, Y, F, or N.' & // ' Using default value of ',VAR_DEFAULT STATUS = -1 GET_ENV_FLAG = VAR_DEFAULT END IF END IF IF( STATUS .EQ. 0 )THEN IF( GET_ENV_FLAG )THEN REPLY = 'TRUE ' ELSE REPLY = 'FALSE' END IF WRITE(MSG,'(a,L1,a)')' Value for ' // TRIM( VAR_NAME ) // ': ',GET_ENV_FLAG, & ' returning ' // REPLY WRITE(LOGDEV,'(a)')TRIM( MSG ) END IF END FUNCTION GET_ENV_FLAG INTEGER FUNCTION GET_ENV_INT( VAR_NAME, VAR_DESC, VAR_DEFAULT, STATUS ) IMPLICIT NONE !arguments CHARACTER*(*), INTENT( IN ) :: VAR_NAME CHARACTER*(*), INTENT( IN ) :: VAR_DESC INTEGER, INTENT( IN ) :: VAR_DEFAULT INTEGER, INTENT( OUT ) :: STATUS !local CHARACTER( 120 ) :: MSG ! Message text CHARACTER( 120 ) :: VAR_VALUE CHARACTER( 5 ) :: REPLY INTEGER :: READ_VALUE CALL GET_ENVIRONMENT_VARIABLE( NAME=VAR_NAME, VALUE= VAR_VALUE, STATUS=STATUS, TRIM_NAME=.TRUE.) IF( STATUS .LT. 0 ) THEN MSG = 'ERROR in environment value for ' // TRIM( VAR_NAME ) WRITE(LOGDEV,'(a)')TRIM( MSG ) STATUS = 1 ELSE IF( STATUS .EQ. 1 )THEN STATUS = -1 GET_ENV_INT = VAR_DEFAULT WRITE(LOGDEV,' (A,I8)')'Environment Variable ' & // TRIM( VAR_NAME ) // ' missing.' & // ' Using default value of ',VAR_DEFAULT ELSE IF( STATUS .GT. 1 )THEN STATUS = 1 MSG = 'ERROR in environment value for ' // TRIM( VAR_NAME ) WRITE(LOGDEV,'(a)')TRIM( MSG ) MSG = 'ERROR Processor does not support environment variables ' WRITE(LOGDEV,'(a)') ELSE STATUS = 0 READ(VAR_VALUE , *)READ_VALUE GET_ENV_INT = READ_VALUE WRITE(MSG,'(a,I8)')' Value for ' // TRIM( VAR_NAME ) // ': ', & GET_ENV_INT WRITE(LOGDEV,'(a)')TRIM( MSG ) END IF END FUNCTION GET_ENV_INT REAL FUNCTION GET_ENV_REAL( VAR_NAME, VAR_DESC, VAR_DEFAULT, STATUS ) IMPLICIT NONE !arguments CHARACTER*(*), INTENT( IN ) :: VAR_NAME CHARACTER*(*), INTENT( IN ) :: VAR_DESC REAL, INTENT( IN ) :: VAR_DEFAULT INTEGER, INTENT( OUT ) :: STATUS !local CHARACTER( 120 ) :: MSG ! Message text CHARACTER( 120 ) :: VAR_VALUE CHARACTER( 5 ) :: REPLY CALL GET_ENVIRONMENT_VARIABLE( NAME=VAR_NAME, VALUE= VAR_VALUE, STATUS=STATUS, TRIM_NAME=.TRUE.) IF( STATUS .LT. 0 ) THEN MSG = 'ERROR in environment value for ' // TRIM( VAR_NAME ) WRITE(LOGDEV,'(a)')TRIM( MSG ) STATUS = 1 ELSE IF( STATUS .EQ. 1 )THEN STATUS = -1 GET_ENV_REAL = VAR_DEFAULT WRITE(LOGDEV,' (A,ES13.6)')'Environment Variable ' & // TRIM( VAR_NAME ) // ' missing.' & // ' Using default value of ',VAR_DEFAULT ELSE IF( STATUS .GT. 1 )THEN STATUS = 1 MSG = 'ERROR in environment value for ' // TRIM( VAR_NAME ) WRITE(LOGDEV,'(a)')TRIM( MSG ) MSG = 'ERROR Processor does not support environment variables ' WRITE(LOGDEV,'(a)') ELSE STATUS = 0 READ(VAR_VALUE,*)GET_ENV_REAL WRITE(MSG,'(a,ES12.4)')' Value for ' // TRIM( VAR_NAME ) // ': ', & GET_ENV_REAL WRITE(LOGDEV,'(a)')TRIM( MSG ) END IF END FUNCTION GET_ENV_REAL SUBROUTINE GET_DDMONYY(DATE) IMPLICIT NONE CHARACTER(*), INTENT(INOUT) :: DATE CHARACTER( 2 ) :: DD CHARACTER( 3 ) :: MONS(1:12) CHARACTER( 4 ) :: YYYY INTEGER :: STIME, VALUES(8) MONS = (/'Jan','Feb','Mar','Apr','May','Jun', & 'Jul','Aug','Sep','Oct','Nov','Dec' /) CALL DATE_AND_TIME(VALUES=VALUES) WRITE( DD,'(I2)') VALUES(3) ! DD = '00' WRITE(YYYY,'(I4)') (0 + VALUES(1)) PRINT*,MONS(VALUES(2)) // DD // YYYY(1:4) DATE = MONS(VALUES(2)) // ' ' // DD // ', ' // YYYY(1:4) END SUBROUTINE GET_DDMONYY INTEGER FUNCTION NAME_INDEX( NAME, N_NAMES, NAMES ) IMPLICIT NONE CHARACTER(*), INTENT( IN ) :: NAME CHARACTER(*), INTENT( IN ) :: NAMES( : ) INTEGER, INTENT( IN ) :: N_NAMES INTEGER :: N,M NAME_INDEX = 0 M = SIZE( NAMES ) IF( M .LT. 1 )RETURN DO N = 1, M IF( NAME .EQ. NAMES( N ) )THEN NAME_INDEX = N RETURN END IF END DO RETURN END FUNCTION NAME_INDEX SUBROUTINE GET_ENVLIST ( ENV_VAR, NVARS, VAL_LIST, STATUS ) C get a list env var (quoted string of items delimited by white space, C commas or semi-colons) and parse out the items into variables. Two data C types: character strings and integers (still represented as strings in C the env var vaules). C Examples: C 1) setenv AVG_CONC_VARS "O3 NO NO2" C 2) setenv AVG_CONC_LAYS "2 5" < start at two, end at 5 C 3) setenv NPCOLSXNPROWS "4 3" C 4) setenv BCOL_ECOL "3 8" C 5) setenv BROW_EROW "2 10" C 6) setenv BLAY_ELAY "1 5" C In example (1), not only parse out the named items "O3", "NO" and "NO2", C but also obtain the count on the number of itmes (=3). ! Revision: 2013/02/11 David Wong: increased the max env var length from 256 to 1000 ! 13 Dec 2013 J.Young: 1000 breaks BUFLEN in IOAPI's envgets.c. Change to 512. ! 17 Jun 2016 J.Young: IOAPI's envgets.c BUFLEN has been increased to 10000. ! 20 Jun 2016 J.Young: Forget IOAPI's envgets.c: use Fortran GETENV ! 16 Mar 2018 B.Hutzell: Removed IOAPI, changed from GOTO to Do loop, and ! from GETENV to GET_ENVIRONMENT_VARIABLE intrinsic IMPLICIT NONE CHARACTER( * ), INTENT ( IN ) :: ENV_VAR INTEGER, INTENT ( OUT ) :: NVARS CHARACTER( * ), INTENT ( OUT ) :: VAL_LIST( : ) INTEGER, INTENT ( OUT ) :: STATUS INTEGER :: MAX_LEN INTEGER :: LEN_EVAL CHARACTER( 16 ) :: PNAME = 'GET_ENVLIST' CHARACTER( 1 ) :: CHR CHARACTER( 132) :: XMSG CHARACTER( MAX_LEN_WORD*SIZE( VAL_LIST ) ) :: E_VAL INTEGER :: JP( MAX_LEN_WORD*SIZE( VAL_LIST ) ) INTEGER :: KP( MAX_LEN_WORD*SIZE( VAL_LIST ) ) INTEGER :: IP, V MAX_LEN = MAX_LEN_WORD * ( SIZE( VAL_LIST ) + 1 ) ! multiple by 17 to allow deliminator C env_var_name C | env_var_value C | | ! CALL GETENV( ENV_VAR, E_VAL ) C env_var_name C | env_var_value C | | CALL GET_ENVIRONMENT_VARIABLE( NAME=ENV_VAR, VALUE=E_VAL, STATUS=STATUS, TRIM_NAME=.TRUE.) IF( STATUS .LT. 0 ) THEN XMSG = 'ERROR in environment value for ' // TRIM( ENV_VAR ) WRITE(LOGDEV,'(a)')TRIM( XMSG ) STATUS = 1 STOP ELSE IF( STATUS .EQ. 1 )THEN STATUS = -1 RETURN ELSE IF( STATUS .GT. 1 )THEN STATUS = 1 XMSG = 'ERROR in environment value for ' // TRIM( ENV_VAR ) WRITE(LOGDEV,'(a)')TRIM( XMSG ) XMSG = 'ERROR Processor does not support environment variables ' WRITE(LOGDEV,'(a)') STOP END IF IF ( E_VAL .EQ. " " ) THEN STATUS = 1 XMSG = 'Environment variable ' // ENV_VAR // ' not set' WRITE(LOGDEV,'(A,I8)')TRIM( XMSG ), SIZE( VAL_LIST ) NVARS = 0 RETURN END IF STATUS = 0 C Parse: NVARS = 1 C don't count until 1st char in string IP = 0 LEN_EVAL = LEN_TRIM( E_VAL ) IF ( LEN_EVAL .GT. MAX_LEN ) THEN XMSG = TRIM( PNAME ) // ': The Environment variable, ' & // TRIM( ENV_VAR ) // ', has too long, greater than ' WRITE(LOGDEV,'(A,I8)')TRIM( XMSG ), MAX_LEN STOP END IF 101 LOOP_101: DO ! read list IP = IP + 1 IF ( IP .GT. LEN_EVAL ) EXIT LOOP_101 CHR = E_VAL( IP:IP ) IF ( CHR .EQ. ' ' .OR. ICHAR ( CHR ) .EQ. 09 ) CYCLE LOOP_101 IF( NVARS .GT. SIZE( VAL_LIST ) )THEN XMSG = TRIM( PNAME ) // ':ERROR: Number of values in List, ' & // TRIM( ENV_VAR ) & // ', greater than the size of its storage array, ' WRITE(LOGDEV,'(A,I4)')TRIM( XMSG ), SIZE( VAL_LIST ) STOP END IF JP( NVARS ) = IP ! 1st char 201 LOOP_201: DO ! read word IP = IP + 1 IF ( IP .GT. LEN_EVAL ) EXIT LOOP_101 CHR = E_VAL( IP:IP ) IF ( CHR .NE. ' ' .AND. & CHR .NE. ',' .AND. & CHR .NE. ';' .OR. & ICHAR ( CHR ) .EQ. 09 ) THEN ! 09 = horizontal tab CYCLE LOOP_201 ELSE ! last char in word V = JP( NVARS ) - KP( NVARS ) + 1 KP( NVARS ) = IP - 1 IF( V .GT. MAX_LEN_WORD )THEN XMSG = 'The word, ' // E_VAL( JP(NVARS):KP(NVARS) ) & // ', in environment list, ' // TRIM( ENV_VAR ) & // ', is too long, greater than ' WRITE(LOGDEV,'(A,I2)')TRIM( XMSG ), MAX_LEN_WORD STOP END IF NVARS = NVARS + 1 EXIT LOOP_201 END IF END DO LOOP_201 END DO LOOP_101 NVARS = NVARS - 1 IF( NVARS .GT. SIZE( VAL_LIST ) )THEN XMSG = TRIM( PNAME ) // ':ERROR: Number of values in List, ' & // TRIM( ENV_VAR ) // ', greater than ' WRITE(LOGDEV,'(A,I4)')TRIM( XMSG ), SIZE( VAL_LIST ) STOP END IF DO V = 1, NVARS VAL_LIST( V ) = E_VAL( JP( V ):KP( V ) ) END DO RETURN END SUBROUTINE GET_ENVLIST INTEGER FUNCTION JUNIT () C JUNIT uses an internal INQUIRE call to determine if a unit number is C currently attached to a file. C In the call INQUIRE(UNIT = IUN, NAMED = NMD), NMD is .TRUE. if unit (IUN) C is connected to a file with a name, else it is .FALSE. IMPLICIT NONE INTEGER, PARAMETER :: LUNOUT = 6 INTEGER, PARAMETER :: MAXUN = 99 INTEGER, SAVE :: IUN LOGICAL NMD LOGICAL, SAVE :: AVAIL( MAXUN ) = .TRUE. ! array INTEGER, SAVE :: IGO = 1 GO TO ( 10001, 20001 ) IGO 10001 CONTINUE C set unit numbers that are not available for I/O AVAIL( 1 ) = .FALSE. AVAIL( 5 ) = .FALSE. AVAIL( 6 ) = .FALSE. C begin loop on unit numbers IUN = 10 10100 CONTINUE IF ( IUN .GT. MAXUN ) GO TO 30100 INQUIRE ( UNIT = IUN, NAMED = NMD ) IF ( NMD ) THEN AVAIL( IUN ) = .FALSE. GO TO 20100 ELSE IF ( .NOT. AVAIL( IUN ) ) THEN GO TO 20100 END IF JUNIT = IUN AVAIL( IUN ) = .FALSE. IGO = 2 RETURN 20001 CONTINUE 20100 CONTINUE IUN = IUN + 1 GO TO 10100 30100 CONTINUE WRITE( LUNOUT,2001 ) 2001 FORMAT( / 1X, '*** ERROR ABORT in JUNIT ***' / & 1X, 'No more unit numbers available for I/O' ) WRITE( LUNOUT,2003 ) ( IUN, AVAIL( IUN ), IUN = 1, MAXUN ) 2003 FORMAT( 1X, 'Available unit numbers are: ' / & 3( 1X, 20( I2, '-', L1, 2X) / ) ) STOP END FUNCTION JUNIT *********************************************************************** SUBROUTINE JULIAN_YEAR_MONTH_DAY (JULDAY,YEAR,MONTH,DAY) c input year, month, day c input julian_date day (julday), year fraction (yrfrac) IMPLICIT NONE INTEGER, INTENT( IN ) :: JULDAY INTEGER, INTENT( INOUT ) :: YEAR, DAY, MONTH INTEGER JDAY,YRLENGTH,LEAP,M4,M100,M400, & I, J INTEGER, SAVE :: DAYTAB(13,2) DATA ( DAYTAB(I,1), I = 1, 13 ) / & 0,31,28,31,30,31,30,31,31,30,31,30,31 / DATA ( DAYTAB(I,2), I = 1, 13 ) / & 0,31,29,31,30,31,30,31,31,30,31,30,31 / LOGICAL, SAVE :: INITIALIZE = .TRUE. IF ( INITIALIZE ) THEN DO I = 1, 2 DO J = 2, 13 DAYTAB(J,I) = DAYTAB(J,I) + DAYTAB(J-1,I) END DO END DO INITIALIZE = .FALSE. END IF LEAP = 1 YRLENGTH = 365 YEAR = INT(JULDAY/1000) JDAY = JULDAY - 1000*YEAR M4 = MOD(YEAR,4 ) M100 = MOD(YEAR,100) M400 = MOD(YEAR,400) IF(((M4.EQ.0).AND.(M100.NE.0)).OR.(M400.EQ.0))THEN LEAP = 2 YRLENGTH = 366 ENDIF DO I= 2, 13 IF( JDAY .GT. DAYTAB(I-1,LEAP) .AND. JDAY .LE. DAYTAB(I,LEAP) )THEN MONTH = I-1 DAY = JDAY - DAYTAB(I-1,LEAP) EXIT END IF END DO RETURN END SUBROUTINE JULIAN_YEAR_MONTH_DAY END MODULE GET_ENV_VARS ================================================ FILE: UTIL/jproc/src/common/o3scal.f ================================================ !-----------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !-----------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/JPROC/src/driver/jproc_table/o3scal.f,v 1.5 2011/10/29 01:03:53 sjr Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C @(#)o3scal.F 1.1 /project/mod3/JPROC/src/driver/jproc_table/SCCS/s.o3scal.F 23 May 1997 12:44:20 C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE O3SCAL ( O3, HO3, XLAT, DOBNEW ) C********************************************************************* C C adjustment of O3 profiles to a user-selected dobson value. C select value of DOBNEW in main program C if don't want to use, don't call this subroutine C C********************************************************************* IMPLICIT NONE INCLUDE 'JVALPARMS.EXT' ! jproc parameters C...........ARGUMENTS and their descriptions REAL O3( MXLEV ) ! ozone profile REAL HO3 ! ozone scale height REAL XLAT ! latitudinal band REAL DOBNEW ! new dobson unit C...........LOCAL VARIABLES and their descriptions: LOGICAL, SAVE :: FIRSTTIME = .TRUE. INTEGER I ! level index REAL DOBSREF ! reference dobson unit REAL SCALE_FACTOR C********************************************************************* C begin body of subroutine O3SCAL2 IF ( FIRSTTIME ) THEN FIRSTTIME = .FALSE. WRITE ( 6, 2001 ) END IF C...convert O3 value into DU DOBSREF = O3( MXLEV ) * 1.0E5 * HO3 DO I = 1, MXLEV DOBSREF = DOBSREF + O3( I ) * 1.0E5 END DO DOBSREF = DOBSREF / 2.687E16 C...apply scale factor to O3 profile if a non-zero TOC value provided IF ( DOBNEW .GT. 0.0 ) THEN SCALE_FACTOR = DOBNEW / DOBSREF WRITE( 6, 2003 ) XLAT, DOBSREF, DOBNEW, SCALE_FACTOR DO I = 1, MXLEV O3( I ) = O3( I ) * SCALE_FACTOR END DO ELSE WRITE( 6, 2005 ) XLAT, DOBSREF END IF C...formats 2001 FORMAT( 1X, 'Rescaling O3 profile based on TOC data' ) 2003 FORMAT( 7X, 'Latitude:', 1X, F5.1, ', oldDOBS=', F9.4, ', newDOBS=', & F9.4, ', scale factor=', F7.4 ) 2005 FORMAT( 7X, 'Latitude:', 1X, F5.1, ', DOBS=', F9.4, ', not rescaled' ) RETURN END ================================================ FILE: UTIL/jproc/src/common/optics.f ================================================ !-----------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !-----------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/JPROC/src/driver/jproc_table/optics.f,v 1.5 2011/10/29 01:03:53 sjr Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C @(#)optics.F 1.1 /project/mod3/JPROC/src/driver/jproc_table/SCCS/s.optics.F 23 May 1997 12:44:21 C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE OPTICS ( NWL, COSZEN, ENDIR, ENDN, ENUP, & VAIR, ARAYL, GRAY, OMRAY, AO2, VO3, AO3, & VCLD, GCLD, OMCLD, VAER, AAER, GAER, OMAER, & ALBEDO, NLAYER, NLEVEL, NSURF ) C********************************************************************* C C This subroutine prepares the data needed for the flux calculation, C then calls the scattering subroutine DELTED. It returns values of C the flux FLUX(LEV,IWL) for altitude LEV-1, wavelength IWL. C It calculates the optical depths (vertical) C for each layer, from the vertical profiles of O2, O3, C air, cloud, and aerosol, and from the associated "cross sections C C********************************************************************* IMPLICIT NONE C...........PARAMETERS and their descriptions INTEGER, PARAMETER :: MXWL = 130 ! number of wavelength bands INTEGER, PARAMETER :: NJ = 200 ! maximum levels C...........ARGUMENTS and their descriptions INTEGER NLAYER ! total # of atm layers INTEGER NLEVEL ! number of levels INTEGER NSURF ! ground elev above sea level INTEGER NWL ! number of wl bands REAL COSZEN ! cosine zenith angle REAL GAER ! aerosol asymetry factor REAL GCLD ! cloud asymetry factor REAL GRAY ! asymetry fact for Rayleigh scat REAL OMAER ! aerosol single scat albedo REAL OMCLD ! cloud single scat cross sect REAL OMRAY ! single scat albedo, Rayleigh REAL VAER( NJ ) ! aerosol column in layer REAL VAIR( NJ ) ! air column in layer REAL VCLD( NJ ) ! cloud column in layer REAL VO3 ( NJ ) ! ozone column in layer REAL AAER ( MXWL ) ! aerosol total vert opt depth REAL ALBEDO( MXWL ) ! ground albedo REAL ARAYL ( MXWL ) ! Rayleigh scat cross section REAL AO2 ( NJ, MXWL ) ! O2 cross section REAL AO3 ( NJ, MXWL ) ! average O3 cross sect in layer REAL ENDIR( NJ, MXWL ) ! direct flux REAL ENDN ( NJ, MXWL ) ! diffuse down-flux REAL ENUP ( NJ, MXWL ) ! diffuse up-flux C...........LOCAL VARIABLES and their descriptions: INTEGER II ! layer index INTEGER IWL ! wavelength index INTEGER LAY ! layer index INTEGER LEV ! level index INTEGER NZ ! number of levels above sfc REAL DTABS ! sum of O2 & O3 absorption REAL DTAER ! aerosol scattering REAL DTAIR ! air scattering REAL DTCLD ! cloud column REAL DTO2 ! O2 absorption REAL DTO3 ! ozone absorption REAL DTSCAT ! total scattering REAL DTAU( NJ ) ! optical depth of layer REAL EDIR( NJ ) ! irradiance of direct solar beam REAL EDN ( NJ ) ! irradiance of down-welling diffuse light REAL EUP ( NJ ) ! irradiance of up-welling diffuse light REAL FDIR( NJ ) ! direct actinic flux REAL FDN ( NJ ) ! downward actinic flux REAL FUP ( NJ ) ! upward actinic flux REAL G ( NJ ) ! asymmetry factor for layer REAL OM ( NJ ) ! single-scat albedo of layer C********************************************************************* C begin body of subroutine RTLINK C...loop over wavelengths DO 301 IWL = 1, NWL C...calculate optical depths for all layers (including cloud sublayers)' DO LAY = NSURF, NLAYER II = NLAYER + 1 - LAY DTAIR = VAIR( LAY ) * ARAYL( IWL ) DTO2 = 0.2095 * VAIR( LAY ) * AO2( LAY, IWL ) DTO3 = VO3( LAY ) * AO3( LAY, IWL ) DTCLD = VCLD( LAY ) DTAER = VAER( LAY ) * AAER( IWL ) DTSCAT = DTAIR + DTCLD * OMCLD + DTAER * OMAER DTABS = DTO2 + DTO3 + DTCLD * ( 1.0 - OMCLD ) & + DTAER * ( 1.0 - OMAER ) DTABS = AMAX1( DTABS, 1.0E-36 ) DTSCAT = AMAX1( DTSCAT, 1.0E-36 ) DTAU( II ) = DTABS + DTSCAT OM ( II ) = DTSCAT / ( DTSCAT + DTABS ) G ( II ) = ( GCLD * DTCLD * OMCLD & + GAER * DTAER * OMAER ) & / DTSCAT END DO C...initialize fluxes and other DELTED parameters NZ = NLEVEL - NSURF + 1 DO II = 1, NJ FDIR( II ) = 0.0 FUP ( II ) = 0.0 FDN ( II ) = 0.0 EDIR( II ) = 0.0 EUP ( II ) = 0.0 EDN ( II ) = 0.0 END DO CALL TWOSTR ( NZ, COSZEN, ALBEDO( IWL ), DTAU, OM, G, & FDIR, FUP, FDN, EDIR, EUP, EDN ) C...return to upright grid DO II = 1, NLEVEL - NSURF + 1 LEV = NLEVEL + 1 - II ENDIR( LEV, IWL ) = FDIR( II ) ENDN ( LEV, IWL ) = FDN ( II ) ENUP ( LEV, IWL ) = FUP ( II ) END DO 301 CONTINUE RETURN END ================================================ FILE: UTIL/jproc/src/common/pntavg.f ================================================ !-----------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !-----------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/JPROC/src/driver/jproc_table/pntavg.f,v 1.4 2011/10/29 01:03:53 sjr Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C @(#)pntavg.F 1.1 /project/mod3/JPROC/src/driver/jproc_table/SCCS/s.pntavg.F 23 May 1997 12:44:22 C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE PNTAVG ( WLIN, CQIN, NWLIN, & WLOUT1, WLOUT2, CQOUT, NWLOUT ) C********************************************************************* C C This program computes the integrated average data for the ET C extra terrestrial irradiance wavelength intervals C C History: C S.Roselle 6/5/95 Program created C C********************************************************************* IMPLICIT NONE INCLUDE 'JVALPARMS.EXT' ! jproc parameters C...........ARGUMENTS and their descriptions INTEGER NWLOUT ! number of intervals ETin INTEGER NWLIN ! number of intervals CQin REAL WLIN( MXWLIN ) ! wl of CQin REAL CQIN( MXWLIN ) ! quantity (CS or QY) as f(WLIN) REAL WLOUT1( MXWL ) ! lower limit on wl int ETin REAL WLOUT2( MXWL ) ! upper limit on wl int ETin REAL CQOUT ( MXWL ) ! quantity (CS or QY) as f(WLOUT) C...........LOCAL VARIABLES and their descriptions: INTEGER I ! index var INTEGER J ! index var INTEGER MXWLPT ! pointer INTEGER MNWLPT ! pointer REAL DWLIN ! wl int for CQin REAL CQA ! lower cq value REAL CQB ! upper cq value C********************************************************************* C...begin body of subroutine INTAVG C...loop through wavelength intervals for output arrays DO I = 1, NWLOUT C...find lower limit on input array MNWLPT = 1 DO J = 1, NWLIN IF ( WLIN( J ) .LE. WLOUT1( I ) ) MNWLPT = J END DO C...find upper limit on input array MXWLPT = NWLIN DO J = NWLIN, 1, -1 IF ( WLIN( J ) .GE. WLOUT2( I ) ) MXWLPT = J END DO C...initialize output arrays CQOUT( I ) = 0.0 C...loop through the valid wavelength intervals DO J = MNWLPT, MXWLPT C...determine weighting fraction for the wavelength interval IF ( WLOUT1( I ) .LE. WLIN( J ) ) THEN IF ( WLOUT2( I ) .EQ. WLIN( J+1 ) ) THEN DWLIN = WLIN( J+1 ) - WLIN( J ) CQA = CQIN( J ) CQB = CQIN( J+1 ) ELSE IF ( WLOUT2( I ) .LT. WLIN( J+1 ) ) THEN DWLIN = WLOUT2( I ) - WLIN( J ) CQA = CQIN( J ) CQB = ( CQIN( J+1 ) - CQIN( J ) ) & / ( WLIN( J+1 ) - WLIN( J ) ) & * ( WLOUT2( I ) - WLIN( J ) ) + CQIN( J ) ELSE IF ( WLOUT2( I ) .GT. WLIN( J+1 ) ) THEN DWLIN = WLIN( J+1 ) - WLIN( J ) CQA = CQIN( J ) CQB = CQIN( J+1 ) END IF ELSE IF ( WLOUT1( I ) .GT. WLIN( J ) ) THEN IF ( WLOUT2( I ) .EQ. WLIN( J+1 ) ) THEN DWLIN = WLIN( J+1 ) - WLOUT1( I ) CQA = ( CQIN( J+1 ) - CQIN( J ) ) & / ( WLIN( J+1 ) - WLIN( J ) ) & * ( WLOUT1( I ) - WLIN( J ) ) + CQIN( J ) CQB = CQIN( J+1 ) ELSE IF ( WLOUT2( I ) .LT. WLIN( J+1 ) ) THEN DWLIN = WLOUT2( I ) - WLOUT1( I ) CQA = ( CQIN( J+1 ) - CQIN( J ) ) & / ( WLIN( J+1 ) - WLIN( J ) ) & * ( WLOUT1( I ) - WLIN( J ) ) + CQIN( J ) CQB = ( CQIN( J+1 ) - CQIN( J ) ) & / ( WLIN( J+1 ) - WLIN( J ) ) & * ( WLOUT2( I ) - WLIN( J ) ) + CQIN( J ) ELSE IF ( WLOUT2( I ) .GT. WLIN( J+1 ) ) THEN DWLIN = WLIN( J+1 ) - WLOUT1( I ) CQA = ( CQIN( J+1 ) - CQIN( J ) ) & / ( WLIN( J+1 ) - WLIN( J ) ) & * ( WLOUT1( I ) - WLIN( J ) ) + CQIN( J ) CQB = CQIN( J+1 ) END IF END IF C...set wavelength interval fraction DWLIN = AMAX1 ( DWLIN / ( WLOUT2( I ) - WLOUT1( I ) ), 0.0 ) C...add weighted quantity to output arrays CQOUT( I ) = CQOUT( I ) + 0.5 * ( CQA + CQB ) * DWLIN END DO END DO RETURN END ================================================ FILE: UTIL/jproc/src/common/readcsqy.F ================================================ !-----------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !-----------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/JPROC/src/driver/jproc_table/readcsqy.F,v 1.7 2011/12/08 16:41:35 sjr Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C @(#)readcsqy.F 1.4 /project/mod3/JPROC/src/driver/jproc_table/SCCS/s.readcsqy.F 04 Jul 1997 09:39:29 C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE READCSQY ( NWL, STWL, ENDWL, CS, QY ) C********************************************************************* C C the subroutine readcsqy reads the absorption cross section/quantum C yield file(s). The input data are C C CS(nwl,NPHOTAB) - absorption cross sections for NR species. C QY(nwl,NPHOTAB) - quantum yields C C S.Roselle 1/30/96 Subroutine created, uses generalized method C for reading CS/QY data that ties in with the C chemistry mechanism reader. C S.Roselle 7/25/96 Revised subroutine to call INTAVG, passing C data type (e.g., point, centered, C beginning, and ending data) C C********************************************************************* USE GET_ENV_VARS USE RXNS_DATA IMPLICIT NONE INCLUDE 'JVALPARMS.EXT' ! jproc parameters C...........ARGUMENTS and their descriptions REAL STWL ( MXWL ) ! wavelength band lower limit REAL ENDWL( MXWL ) ! wavelength band upper limit REAL CS( MXWL, NPHOTAB ) ! output absorp. cross sections REAL QY( MXWL, NPHOTAB ) ! output quantum yields C...........LOCAL VARIABLES and their descriptions: CHARACTER(1) :: TYPE ! cs/qy spectra type CHARACTER(16) :: PNAME = 'READCSQY' ! program name CHARACTER(16) :: CQDIR = 'CSQY' ! directory for CSQY data CHARACTER(16) :: PHOTID ! reaction id's CHARACTER(80) :: MSG = ' ' ! message CHARACTER(255) :: CQFILE ! input filename buffer CHARACTER(255) :: EQNAME INTEGER IWL ! wavelength index INTEGER NWL ! # of wlbands INTEGER NWLIN ! # of wlbands (infile) INTEGER IPHOT ! reaction index INTEGER CQUNIT ! cross section/qy io unit INTEGER IOST ! io status REAL FACTOR ! multiplying factor for CS REAL WLIN ( MXWLIN ) ! wl for input cs/qy data REAL CSIN ( MXWLIN ) ! raw absorption cross sections REAL QYIN ( MXWLIN ) ! raw quantum yields REAL CSOUT( MXWL ) ! integrated absorp. cross sect. REAL QYOUT( MXWL ) ! integrated quantum yields C********************************************************************* C begin body of subroutine READCSQY C...get a unit number for CSQY files CQUNIT = JUNIT( ) C...loop over the number of reactions, reading each file DO 801 IPHOT = 1, NPHOTAB C...open input file CQFILE = PHOTAB( IPHOT ) CALL VALUE_NAME ( CQDIR, EQNAME ) CQFILE = TRIM( EQNAME ) // '/' // TRIM( CQFILE ) OPEN( UNIT = CQUNIT, & FILE = CQFILE, & STATUS = 'OLD', & IOSTAT = IOST ) C...check for open errors IF ( IOST .NE. 0) THEN MSG = 'Could not open ' // PHOTAB( IPHOT ) // ' data file' WRITE(6,'(A)')TRIM( PNAME ) // ': ', TRIM( MSG ) STOP END IF WRITE( 6, 2001 ) CQUNIT, CQFILE C...read photolysis subgroup id READ( CQUNIT, 1001, IOSTAT = IOST ) PHOTID C...check for read errors IF ( IOST .NE. 0) THEN MSG = 'Errors occurred while reading PHOTID for ' // & PHOTAB( IPHOT ) WRITE(6,'(A)')TRIM( PNAME ) // ': ', TRIM( MSG ) STOP END IF C...get type of data (e.g. centered, beginning, ending, or point wavelen 101 CONTINUE READ( CQUNIT, 1003, IOSTAT = IOST ) TYPE C...check for read errors IF ( IOST .NE. 0) THEN MSG = 'Errors occurred while reading TYPE for ' // & PHOTAB( IPHOT ) WRITE(6,'(A)')TRIM( PNAME ) // ': ', TRIM( MSG ) STOP END IF IF ( TYPE .EQ. '!' ) GO TO 101 C...read the factor to multiply cross sectionS by READ( CQUNIT, 1005, IOSTAT = IOST ) FACTOR C...check for read errors IF ( IOST .NE. 0) THEN MSG = 'Errors occurred while reading FACTOR for ' // & PHOTAB( IPHOT ) WRITE(6,'(A)')TRIM( PNAME ) // ': ', TRIM( MSG ) STOP END IF C...reinitialize arrays DO IWL = 1, MXWL WLIN( IWL ) = 0.0 CSIN( IWL ) = 0.0 QYIN( IWL ) = 0.0 END DO C...loop over the number of wavelengths and continue reading IWL = 0 201 CONTINUE IWL = IWL + 1 READ( CQUNIT, *, IOSTAT = IOST ) WLIN( IWL ), CSIN( IWL ), & QYIN( IWL ) CSIN( IWL ) = CSIN( IWL ) * FACTOR C...check for read errors IF ( IOST .GT. 0) THEN MSG = 'Errors occurred while reading WL,CS,QY for ' // & PHOTAB( IPHOT ) WRITE(6,'(A)')TRIM( PNAME ) // ': ', TRIM( MSG ) STOP END IF C...end loop if we reach EOF, otherwise continue looping IF ( IOST .EQ. 0 ) GO TO 201 C...adjust loop counter index index and close file NWLIN = IWL - 1 CLOSE( CQUNIT ) WRITE( 6, 2003 ) NWLIN C...transform the cs data to the same wavelength intervals as C... the irradiance data. CALL INTAVG ( WLIN, CSIN, NWLIN, TYPE, & STWL, ENDWL, CSOUT, NWL ) C...transform the qy data to the same wavelength intervals as C... the irradiance data. CALL INTAVG ( WLIN, QYIN, NWLIN, TYPE, & STWL, ENDWL, QYOUT, NWL ) C...load output arrays with integrated data DO IWL = 1, NWL CS( IWL, IPHOT ) = CSOUT( IWL ) QY( IWL, IPHOT ) = QYOUT( IWL ) END DO 801 CONTINUE C...formats 1001 FORMAT( A16 ) 1003 FORMAT( A1 ) 1005 FORMAT( /, 4X, F10.1 ) 2001 FORMAT( 1X, '...Opening File on UNIT ', I2, /, 1X, A255 ) 2003 FORMAT( 1X, '...Data for ', I4, ' wavelengths read from file', & // ) RETURN END ================================================ FILE: UTIL/jproc/src/common/readet.f ================================================ !-----------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !-----------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/JPROC/src/driver/jproc_table/readet.f,v 1.5 2011/10/29 01:03:54 sjr Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C @(#)readet.F 1.2 /project/mod3/JPROC/src/driver/jproc_table/SCCS/s.readet.F 04 Jul 1997 09:39:52 C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE READET ( NWL, STWL, MIDWL, ENDWL, F ) C********************************************************************* C C the subroutine readet reads the extra terrestrial radiation file. C The input data are: C C NWL - number of wavelength bands C STWL(mxwl) - array of nominal starting wavelengths of C spectral interval C MIDWL(mxwl) - array of nominal center wavelengths of C spectral interval C ENDWL(mxwl) - array of nominal ending wavelengths of C spectral interval C F(mxwl) - extraterrestrial solar irradiance C C********************************************************************* USE GET_ENV_VARS IMPLICIT NONE INCLUDE 'JVALPARMS.EXT' ! jproc parameters C...........ARGUMENTS and their descriptions REAL ENDWL( MXWL ) ! wavelength band upper limit REAL F ( MXWL ) ! extra-terrestrial radiation REAL MIDWL( MXWL ) ! wavelength midpoints REAL STWL ( MXWL ) ! wavelength band lower limit C...........LOCAL VARIABLES and their descriptions: CHARACTER(1) :: TYPE ! cs/qy spectra type CHARACTER(16) :: ETFILE = 'ET' ! ET i/o logical name CHARACTER(16) :: PNAME = 'READET' ! program name CHARACTER(80) :: MSG = ' ' ! message CHARACTER(255) :: EQNAME ! full name of ET file INTEGER ETUNIT ! extraterrestrial rad io unit INTEGER IOST ! io status INTEGER IWL ! wavelength index INTEGER NWL ! # of wlbands (infile) INTEGER NWLIN ! # of wlbands (infile) REAL FACTOR ! multiplying factor for F REAL WLIN( MXWLIN ) ! wl for input ET data C********************************************************************* C begin body of subroutine READET C...open and read the wavelength bands and extraterrestrial radiation CALL VALUE_NAME ( ETFILE, EQNAME ) ETUNIT = JUNIT( ) OPEN( UNIT = ETUNIT, & FILE = EQNAME, & STATUS = 'OLD', & IOSTAT = IOST ) C...check for open errors IF ( IOST .NE. 0 ) THEN MSG = 'Could not open the ET data file' WRITE(6,'(A)')TRIM( PNAME ) // ': ', TRIM( MSG ) STOP END IF WRITE( 6, 2001 ) ETUNIT, EQNAME C...get type of data (e.g. centered, beginning, ending wavelength 101 CONTINUE READ( ETUNIT, 1003, IOSTAT = IOST ) TYPE C...check for read errors IF ( IOST .NE. 0 ) THEN MSG = 'Errors occurred while reading TYPE from ET file' WRITE(6,'(A)')TRIM( PNAME ) // ': ', TRIM( MSG ) STOP END IF IF ( TYPE .EQ. '!' ) GO TO 101 C...read the factor to multiply irradiance by READ( ETUNIT, 1005, IOSTAT = IOST ) FACTOR C...check for read errors IF ( IOST .NE. 0 ) THEN MSG = 'Errors occurred while reading FACTOR from ET file' WRITE(6,'(A)')TRIM( PNAME ) // ': ', TRIM( MSG ) STOP END IF C...initialize arrays DO IWL = 1, MXWL WLIN( IWL ) = 0.0 F ( IWL ) = 0.0 END DO C...loop over the number of wavelengths and continue reading IWL = 0 201 CONTINUE C...read the wavelength band data IWL = IWL + 1 READ( ETUNIT, *, IOSTAT = IOST ) WLIN( IWL ), F( IWL ) F( IWL ) = F( IWL ) * FACTOR C...check for read errors IF ( IOST .GT. 0 ) THEN MSG = 'Errors occurred while reading WL,F from ET file' WRITE(6,'(A)')TRIM( PNAME ) // ': ', TRIM( MSG ) STOP END IF C...end loop if we reach EOF, otherwise continue looping IF ( IOST .EQ. 0 ) GO TO 201 C...adjust loop counter index index and close file NWLIN = IWL - 1 CLOSE( ETUNIT ) WRITE( 6, 2003 ) NWLIN C...determine wl intervals for CENTERED WLBAND data IF ( TYPE .EQ. 'C' ) THEN NWL = NWLIN MIDWL( 1 ) = WLIN( 1 ) STWL ( 1 ) = 0.5 * ( ( 3.0 * WLIN( 1 ) ) - WLIN( 2 ) ) ENDWL( 1 ) = 0.5 * ( WLIN( 1 ) + WLIN( 2 ) ) DO IWL = 2, NWLIN-1 MIDWL( IWL ) = WLIN( IWL ) STWL ( IWL ) = 0.5 * ( WLIN( IWL ) + WLIN ( IWL - 1 ) ) ENDWL( IWL ) = 0.5 * ( WLIN( IWL ) + WLIN ( IWL + 1 ) ) END DO MIDWL( NWL ) = WLIN( NWLIN ) STWL ( NWL ) = 0.5 * ( WLIN( NWLIN - 1 ) + WLIN( NWLIN ) ) ENDWL( NWL ) = 0.5 * ( ( 3.0 * WLIN( NWLIN ) ) & - WLIN( NWLIN - 1 ) ) C...determine wl intervals for BEGINNING WLBAND data ELSE IF ( TYPE .EQ. 'B' ) THEN NWL = NWLIN - 1 DO IWL = 1, NWLIN - 1 STWL ( IWL ) = WLIN( IWL ) MIDWL( IWL ) = 0.5 * ( WLIN( IWL ) + WLIN( IWL + 1 ) ) ENDWL( IWL ) = WLIN( IWL + 1 ) END DO C...determine wl intervals for ENDING WLBAND data ELSE IF ( TYPE .EQ. 'E' ) THEN NWL = NWLIN - 1 DO IWL = 2, NWLIN STWL ( IWL - 1 ) = WLIN( IWL - 1 ) MIDWL( IWL - 1 ) = 0.5 * ( WLIN( IWL - 1 ) + WLIN( IWL ) ) ENDWL( IWL - 1 ) = WLIN( IWL ) END DO C...stop program if wavelength data type not found ELSE MSG = 'Unrecognized spectra type in ' // TRIM( EQNAME ) WRITE(6,'(A)')TRIM( PNAME ) // ': ', TRIM( MSG ) STOP END IF C...formats 1001 FORMAT( A16 ) 1003 FORMAT( A1 ) 1005 FORMAT( /, 4X, F10.1 ) 2001 FORMAT( 1X, '...Opening File on UNIT ', I2, /, 1X, A255, / ) 2003 FORMAT( 1X, '...Data for ', I4, ' wavelengths read from file', & // ) RETURN END ================================================ FILE: UTIL/jproc/src/common/reado2.f ================================================ !-----------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !-----------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/JPROC/src/driver/jproc_table/reado2.f,v 1.5 2011/10/29 01:03:54 sjr Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C @(#)reado2.F 1.2 /project/mod3/JPROC/src/driver/jproc_table/SCCS/s.reado2.F 04 Jul 1997 09:40:09 C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE READO2 ( NWL, STWL, ENDWL, O2ABS ) C********************************************************************* C C the subroutine reads the absorption cross section C The input data are C C O2ABS - absorption cross sections for molecular oxygen C C********************************************************************* USE GET_ENV_VARS IMPLICIT NONE INCLUDE 'JVALPARMS.EXT' ! jproc parameters C...........ARGUMENTS and their descriptions INTEGER NWL ! # of wlbands REAL ENDWL( MXWL ) ! wavelength band upper limit REAL O2ABS( MXWL ) ! output absorp. cross sections REAL STWL ( MXWL ) ! wavelength band lower limit C...........LOCAL VARIABLES and their descriptions: CHARACTER(1) :: TYPE ! cs spectra type CHARACTER(16) :: O2FILE = 'O2ABS' ! input filename buffer CHARACTER(16) :: PHOTID ! reaction id's CHARACTER(16) :: PNAME = 'READO2' ! program name CHARACTER(80) :: MSG = ' ' ! message CHARACTER(255) :: EQNAME INTEGER IOST ! i/o status INTEGER IWL ! wavelength index INTEGER NWLIN ! # of wlbands (infile) INTEGER O2UNIT ! cross section io unit REAL FACTOR ! multiplying factor for CS REAL CSOUT( MXWL ) ! integrated absorp. cross sect. REAL CSIN( MXWLIN ) ! raw absorption cross sections REAL WLIN( MXWLIN ) ! wl for input cs/qy data C********************************************************************* C begin body of subroutine C...get a unit number for CSQY files CALL VALUE_NAME ( O2FILE, EQNAME ) O2UNIT = JUNIT( ) C...open input file OPEN( UNIT = O2UNIT, & FILE = EQNAME, & STATUS = 'OLD', & IOSTAT = IOST ) C...check for open errors IF ( IOST .NE. 0 ) THEN MSG = 'Could not open the O2ABS data file' WRITE(6,'(A)')TRIM( PNAME ) // ': ', TRIM( MSG ) STOP END IF WRITE( 6, 2001 ) O2UNIT, EQNAME C...read photolysis subgroup id READ( O2UNIT, 1001, IOSTAT = IOST ) PHOTID C...check for read errors IF ( IOST .NE. 0 ) THEN MSG = 'Errors occurred while reading PHOTID from O2ABS file' WRITE(6,'(A)')TRIM( PNAME ) // ': ', TRIM( MSG ) STOP END IF C...get type of data (e.g. centered, beginning, ending, or point wavelen 101 CONTINUE READ( O2UNIT, 1003, IOSTAT = IOST ) TYPE C...check for read errors IF ( IOST .NE. 0 ) THEN MSG = 'Errors occurred while reading TYPE from O2ABS file' WRITE(6,'(A)')TRIM( PNAME ) // ': ', TRIM( MSG ) STOP END IF IF ( TYPE .EQ. '!' ) GO TO 101 C...read the factor to multiply cross sectionS by READ( O2UNIT, 1005, IOSTAT = IOST ) FACTOR C...check for read errors IF ( IOST .NE. 0 ) THEN MSG = 'Errors occurred while reading FACTOR from O2ABS file' WRITE(6,'(A)')TRIM( PNAME ) // ': ', TRIM( MSG ) STOP END IF C...reinitialize arrays DO IWL = 1, MXWL WLIN( IWL ) = 0.0 CSIN( IWL ) = 0.0 END DO C...loop over the number of wavelengths and continue reading IWL = 0 201 CONTINUE IWL = IWL + 1 READ( O2UNIT, *, IOSTAT = IOST ) WLIN( IWL ), CSIN( IWL ) CSIN( IWL ) = CSIN( IWL ) * FACTOR C...check for read errors IF ( IOST .GT. 0 ) THEN MSG = 'Errors occurred while reading WL,CS from O2ABS file' WRITE(6,'(A)')TRIM( PNAME ) // ': ', TRIM( MSG ) STOP END IF C...end loop if we reach EOF, otherwise continue looping IF ( IOST .EQ. 0 ) GO TO 201 C...adjust loop counter index index and close file NWLIN = IWL - 1 CLOSE( O2UNIT ) WRITE( 6, 2003 ) NWLIN C...transform the cs data to the same wavelength intervals as C... the irradiance data. CALL INTAVG ( WLIN, CSIN, NWLIN, TYPE, & STWL, ENDWL, CSOUT, NWL ) C...load output arrays with integrated data DO IWL = 1, NWL O2ABS( IWL ) = CSOUT( IWL ) END DO C...formats 1001 FORMAT( A16 ) 1003 FORMAT( A1 ) 1005 FORMAT( /, 4X, F10.1 ) 2001 FORMAT( 1X, '...Opening File on UNIT ', I2, /, 1X, A255 ) 2003 FORMAT( 1X, '...Data for ', I4, ' wavelengths read from file', & // ) RETURN END ================================================ FILE: UTIL/jproc/src/common/reado3.f ================================================ !-----------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !-----------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/JPROC/src/driver/jproc_table/reado3.f,v 1.5 2011/10/29 01:03:54 sjr Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C @(#)reado3.F 1.2 /project/mod3/JPROC/src/driver/jproc_table/SCCS/s.reado3.F 04 Jul 1997 09:40:19 C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE READO3 ( NWL, STWL, ENDWL, O3ABS ) C********************************************************************* C C the subroutine reads the absorption cross section C The input data are C C O3ABS - absorption cross sections for molecular oxygen C C********************************************************************* USE GET_ENV_VARS IMPLICIT NONE INCLUDE 'JVALPARMS.EXT' ! jproc parameters C...........ARGUMENTS and their descriptions REAL ENDWL( MXWL ) ! wavelength band upper limit REAL O3ABS( MXWL ) ! output absorp. cross sections REAL STWL ( MXWL ) ! wavelength band lower limit C...........LOCAL VARIABLES and their descriptions: CHARACTER(1) :: TYPE ! cs/qy spectra type CHARACTER(16) :: O3FILE = 'O3ABS' ! input filename buffer CHARACTER(16) :: PHOTID ! reaction id's CHARACTER(16) :: PNAME = 'READO3' ! program name CHARACTER(80) :: MSG = ' ' ! message CHARACTER(255) :: EQNAME INTEGER IOST ! i/o status INTEGER IWL ! wavelength index INTEGER NWL ! # of wlbands INTEGER NWLIN ! # of wlbands (infile) INTEGER O3UNIT ! cross section io unit REAL FACTOR ! multiplying factor for CS REAL CSOUT( MXWL ) ! integrated absorp. cross sect. REAL WLIN( MXWLIN ) ! wl for input cs/qy data REAL CSIN( MXWLIN ) ! raw absorption cross sections C********************************************************************* C begin body of subroutine C...get a unit number for CSQY files CALL VALUE_NAME ( O3FILE, EQNAME ) O3UNIT = JUNIT( ) C...open input file OPEN( UNIT = O3UNIT, & FILE = EQNAME, & STATUS = 'OLD', & IOSTAT = IOST ) C...check for open errors IF ( IOST .NE. 0) THEN MSG = 'Could not open the O3ABS data file' WRITE(6,'(A)')TRIM( PNAME ) // ': ', TRIM( MSG ) STOP END IF WRITE( 6, 2001 ) O3UNIT, EQNAME C...read photolysis subgroup id READ( O3UNIT, 1001, IOSTAT = IOST ) PHOTID C...check for read errors IF ( IOST .NE. 0 ) THEN MSG = 'Errors occurred while reading PHOTID from O3ABS file' WRITE(6,'(A)')TRIM( PNAME ) // ': ', TRIM( MSG ) STOP END IF C...get type of data (e.g. centered, beginning, ending, or point wavelen 101 CONTINUE READ( O3UNIT, 1003, IOSTAT = IOST ) TYPE C...check for read errors IF ( IOST .NE. 0) THEN MSG = 'Errors occurred while reading TYPE from O3ABS file' WRITE(6,'(A)')TRIM( PNAME ) // ': ', TRIM( MSG ) STOP END IF IF ( TYPE .EQ. '!' ) GO TO 101 C...read the factor to multiply cross sectionS by READ( O3UNIT, 1005, IOSTAT = IOST ) FACTOR C...check for read errors IF ( IOST .NE. 0 ) THEN MSG = 'Errors occurred while reading FACTOR from O3ABS file' WRITE(6,'(A)')TRIM( PNAME ) // ': ', TRIM( MSG ) STOP END IF C...reinitialize arrays DO IWL = 1, MXWL WLIN( IWL ) = 0.0 CSIN( IWL ) = 0.0 END DO C...loop over the number of wavelengths and continue reading IWL = 0 201 CONTINUE IWL = IWL + 1 READ( O3UNIT, *, IOSTAT = IOST ) WLIN( IWL ), CSIN( IWL ) CSIN( IWL ) = CSIN( IWL ) * FACTOR C...check for read errors IF ( IOST .GT. 0 ) THEN MSG = 'Errors occurred while reading WL,CS from O3ABS file' WRITE(6,'(A)')TRIM( PNAME ) // ': ', TRIM( MSG ) STOP END IF C...end loop if we reach EOF, otherwise continue looping IF ( IOST .EQ. 0 ) GO TO 201 C...adjust loop counter index index and close file NWLIN = IWL - 1 CLOSE( O3UNIT ) WRITE( 6, 2003 ) NWLIN C...transform the cs data to the same wavelength intervals as C... the irradiance data. CALL INTAVG ( WLIN, CSIN, NWLIN, TYPE, & STWL, ENDWL, CSOUT, NWL ) C...load output arrays with integrated data DO IWL = 1, NWL O3ABS( IWL ) = CSOUT( IWL ) END DO C...formats 1001 FORMAT( A16 ) 1003 FORMAT( A1 ) 1005 FORMAT( /, 4X, F10.1 ) 2001 FORMAT( 1X, '...Opening File on UNIT ', I2, /, 1X, A255 ) 2003 FORMAT( 1X, '...Data for ', I4, ' wavelengths read from file', & // ) RETURN END ================================================ FILE: UTIL/jproc/src/common/readprof.f ================================================ !-----------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !-----------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/JPROC/src/driver/jproc_table/readprof.f,v 1.5 2011/10/29 01:03:54 sjr Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C @(#)readprof.F 1.2 /project/mod3/JPROC/src/driver/jproc_table/SCCS/s.readprof.F 04 Jul 1997 09:40:28 C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE READPROF ( XAIR, AIR, XO3, XDOBS, O3, AER, XT, T ) C********************************************************************* C C the subroutine readprof reads the atmospheric profiles file. C The input data are: C C XO3 (nsea,nlat,nlev) - ozone profiles C XT (nsea,nlat,nlev) - temperature profiles C XAIR(nsea,nlat,nlev) - air concentration profile C XDOBS(nlat,MONTH) - average dobson values C C********************************************************************* USE GET_ENV_VARS IMPLICIT NONE INCLUDE 'JVALPARMS.EXT' ! jproc parameters C...........ARGUMENTS and their descriptions REAL O3 ( MXLEV ) ! ozone profile REAL AER( MXLEV ) ! aerosol attenuation profile REAL T ( MXLEV ) ! interpolated temp profile REAL AIR( MXLEV ) ! interpolated air profile REAL XDOBS( 19, 12 ) ! lat-season ozone values REAL XO3 ( 12, 19, MXLEV ) ! season-lat-vert ozone profile REAL XT ( 12, 19, MXLEV ) ! season-lat-vert temp profile REAL XAIR( 12, 19, MXLEV ) ! air concentration C...........LOCAL VARIABLES and their descriptions: CHARACTER(16) :: PNAME = 'READPROF' ! program name CHARACTER(16) :: PFFILE = 'PROFILES' ! profiles i/o logical name CHARACTER(80) :: MSG = ' ' ! message CHARACTER(255) :: EQNAME ! full name of profile file INTEGER IMON ! month index INTEGER ILAT ! latitude index INTEGER ILEV ! level index INTEGER ISEA ! season index INTEGER IOST ! io status INTEGER PFUNIT ! profiles io unit C********************************************************************* C begin body of subroutine READPROF C...read 4 seasons of 19xMXLEV fields of O3, T and M (air pressure in C... molecules/cm**3). T and M data is from Louis (Ph.D. thesis 1974 C... U.of Colorado). O3 profiles are from Isaksen et al. C... diabatic 2D model CALL VALUE_NAME ( PFFILE, EQNAME ) PFUNIT = JUNIT( ) OPEN( UNIT = PFUNIT, & FILE = EQNAME, & STATUS = 'OLD', & IOSTAT = IOST ) C...check for open errors IF ( IOST .NE. 0) THEN MSG = 'Could not open the PROFILES data file' WRITE(6,'(A)')TRIM( PNAME ) // ': ', TRIM( MSG ) STOP END IF WRITE( 6, 2001 ) PFUNIT, EQNAME DO 70 ISEA = 1, 4 C...read ozone profiles DO ILAT = 1, 19 READ( PFUNIT, 1001, IOSTAT = IOST ) & ( XO3 ( ISEA, ILAT, ILEV ), ILEV = 1, MXLEV ) C...check for read errors IF ( IOST .GT. 0) THEN MSG = 'Errors occurred while reading XO3 in PROFILES file' WRITE(6,'(A)')TRIM( PNAME ) // ': ', TRIM( MSG ) STOP END IF END DO C...read temperature profiles DO ILAT = 1, 19 READ( PFUNIT, 1001, IOSTAT = IOST ) & ( XT ( ISEA, ILAT, ILEV ), ILEV = 1, MXLEV ) C...check for read errors IF ( IOST .GT. 0) THEN MSG = 'Errors occurred while reading XT in PROFILES file' WRITE(6,'(A)')TRIM( PNAME ) // ': ', TRIM( MSG ) STOP END IF END DO C...read pressure/air concentration profiles DO ILAT = 1, 19 READ( PFUNIT, 1001, IOSTAT = IOST ) & ( XAIR( ISEA, ILAT, ILEV ), ILEV = 1, MXLEV ) C...check for read errors IF ( IOST .GT. 0) THEN MSG = 'Errors occurred while reading XAIR in PROFILES file' WRITE(6,'(A)')TRIM( PNAME ) // ': ', TRIM( MSG ) STOP END IF END DO 70 CONTINUE C C...Read dobson values (12 months, 19 latitudes): C... Source = WMO(1981) originally from Deutch 1971. C... These values are used if subroutine O3SCAL is invoked in main progr C DO IMON = 1, 12 READ( PFUNIT, *, IOSTAT = IOST ) ( XDOBS( ILAT, IMON ), & ILAT = 1, 19 ) C...check for read errors IF ( IOST .GT. 0) THEN MSG = 'Errors occurred while reading XDOBS in PROFILES file' WRITE(6,'(A)')TRIM( PNAME ) // ': ', TRIM( MSG ) STOP END IF END DO C C...read standard profiles: air, temp, and ozone are from C... Nicolet et al. 1982 Planet.Space Sci. v30 p935. Aerosols from C... Elterman 1968 AFCRL-68-0153 report (Air Force Cambridge Labs.) C... These standard profiles will be used if subroutine INTERP(DLAT,I C... is not invoked. If it is invoked (in the main program), local C... profiles will be interpolated to latitude and date, then used. C... In either case, aerosol profiles are currently from here. C DO ILEV = 1, MXLEV READ( PFUNIT, *, IOSTAT = IOST ) T ( ILEV ), AIR( ILEV ), & O3( ILEV ), AER( ILEV ) C...check for read errors IF ( IOST .GT. 0) THEN MSG ='Errors occurred while reading STD PROF in PROFILES file' WRITE(6,'(A)')TRIM( PNAME ) // ': ', TRIM( MSG ) STOP END IF END DO CLOSE( PFUNIT ) C...formats 1001 FORMAT( 8E10.3 ) 2001 FORMAT( 1X, '...Opening File on UNIT ', I2, /, 1X, A255, / ) RETURN END ================================================ FILE: UTIL/jproc/src/common/readtoms.f ================================================ !-----------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !-----------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/JPROC/src/driver/jproc_table/readtoms.f,v 1.6 2011/10/29 01:03:54 sjr Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C @(#)readtoms.F 1.2 /project/mod3/JPROC/src/driver/jproc_table/SCCS/s.readtoms.F 04 Jul 1997 09:40:36 C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE READTOMS ( JDT, JVLAT, XLATJV, DOBNEW ) C********************************************************************* C C This routine reads the daily gridded data for real-time satellite C total ozone column (TOC) data. variables lat and lon contain C the latitudes and longitudes of the center of each of the grid C cells in the array ozone. C C HISTORY: C 10/7/2009 S.Roselle Updated to read TOMS datasets with different C lat/lon grid sizes (e.g. OMI); expanded C latitudinal band averaging to full width C of TOMS dataset C 04/11/96 S.Roselle Modified program to conform with Models3 C coding standards and to average latitudinal C bands of TOMS values C 04/10/96 Program received from NASA via web/ftp C C********************************************************************* USE GET_ENV_VARS IMPLICIT NONE C...........ARGUMENTS and their descriptions INTEGER JDT ! julian date (yyyyddd) INTEGER JVLAT ! number of output latitudes REAL XLATJV( JVLAT ) ! latitudes REAL DOBNEW( JVLAT ) ! average TOC values C...........LOCAL VARIABLES and their descriptions: CHARACTER(16) :: TMFILE = 'TOMS' ! TOMS i/o logical name CHARACTER(16) :: PNAME = 'READTOMS' CHARACTER(80) :: MSG = ' ' CHARACTER(255) :: EQNAME ! full name of TOMS file INTEGER ILAT ! latitude index INTEGER JLAT ! latitude index INTEGER ILON ! longitude index INTEGER NLAT ! number of input latitudes INTEGER NLON ! number of input longitudes INTEGER DDD ! julian day INTEGER YYYY ! year INTEGER TJDATE ! julian date for toms data INTEGER IOST ! io status INTEGER TMUNIT ! unit number for TOMS file INTEGER ALLOCSTAT ! allocate status INTEGER COUNT( JVLAT ) ! # points included in TOC average INTEGER, ALLOCATABLE :: OZONE( :,: ) REAL STLAT, STLON ! starting point lat,lon REAL ENDLAT, ENDLON ! ending point lat,lon REAL DLAT REAL DLON REAL, ALLOCATABLE :: LAT( : ) REAL, ALLOCATABLE :: LON( : ) C********************************************************************* C begin body of program READTOMS C...calculate latitudes and longitudes C...open the input file TMUNIT = JUNIT( ) CALL VALUE_NAME ( TMFILE, EQNAME ) OPEN ( UNIT = TMUNIT, & FILE = EQNAME, & FORM = 'FORMATTED', & STATUS = 'OLD', & IOSTAT = IOST ) C...check for open errors IF ( IOST .NE. 0 ) THEN MSG = 'Could not open the TOMS data file' WRITE(6,'(A)')TRIM( PNAME ) // ': ', TRIM( MSG ) STOP END IF WRITE( 6, 2001 ) TMUNIT, EQNAME C...read in the header lines READ( TMUNIT, 1001 ) DDD, YYYY TJDATE = YYYY * 1000 + DDD C...check to see if julian date of file matches julian date requested C... and warn user if they do not match IF ( TJDATE .NE. JDT ) THEN MSG = 'Julian date of TOMS file does not match requested date ' WRITE(6,'(A)')TRIM( PNAME ) // ': ', TRIM( MSG ) END IF C...read longitude info and allocate array READ( TMUNIT, 1003 ) NLON, STLON, ENDLON, DLON ALLOCATE ( LON( NLON ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN MSG = 'Failure allocating LON' WRITE(6,'(A)')TRIM( PNAME ) // ': ', TRIM( MSG ) STOP END IF DO ILON = 1, NLON LON( ILON ) = -STLON + ( ILON - 1 ) * DLON END DO C...read latitude info and allocate array READ( TMUNIT, 1003 ) NLAT, STLAT, ENDLAT, DLAT ALLOCATE ( LAT( NLAT ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN MSG = 'Failure allocating LAT' WRITE(6,'(A)')TRIM( PNAME ) // ': ', TRIM( MSG ) STOP END IF DO ILAT = 1, NLAT LAT( ILAT ) = -STLAT + ( ILAT - 1 ) * DLAT END DO C...allocate and read in the data into the array ozone ALLOCATE ( OZONE( NLON, NLAT ), STAT = ALLOCSTAT ) IF ( ALLOCSTAT .NE. 0 ) THEN MSG = 'Failure allocating OZONE' WRITE(6,'(A)')TRIM( PNAME ) // ': ', TRIM( MSG ) STOP END IF DO ILAT = 1, NLAT READ( TMUNIT, 1005, IOSTAT = IOST ) ( OZONE( ILON, ILAT ), & ILON = 1, NLON ) IF ( IOST .NE. 0) THEN MSG = 'Errors occurred while reading TOMS file' WRITE(6,'(A)')TRIM( PNAME ) // ': ', TRIM( MSG ) STOP END IF END DO C...close the input file CLOSE( TMUNIT ) C...process/print the ozone data WRITE( 6, 2003 ) DO JLAT = 1, JVLAT COUNT ( JLAT ) = 0 DOBNEW( JLAT ) = 0.0 DO ILAT = 1, NLAT IF ( ( LAT( ILAT ) .GT. ( XLATJV( JLAT ) - 5.0 ) ) .AND. & ( LAT( ILAT ) .LT. ( XLATJV( JLAT ) + 5.0 ) ) ) THEN DO ILON = 1, NLON IF ( OZONE( ILON, ILAT ) .GT. 0 ) THEN COUNT ( JLAT ) = COUNT( JLAT ) + 1 DOBNEW( JLAT ) = DOBNEW( JLAT ) & + FLOAT( OZONE( ILON, ILAT ) ) END IF END DO END IF END DO IF ( COUNT( JLAT ) .GT. 0 ) THEN DOBNEW( JLAT ) = DOBNEW( JLAT ) / FLOAT( COUNT( JLAT ) ) WRITE( 6, 2005 ) XLATJV( JLAT ), COUNT( JLAT ), DOBNEW( JLAT ) ELSE WRITE( 6, 2007 ) XLATJV( JLAT ) END IF END DO C...format statements 1001 FORMAT( 6X, I3, 9X, I4 ) 1003 FORMAT( 13X, I4, 18X, F7.3, 6X, F7.3, 5X, F4.2 ) 1005 FORMAT( 1X, 25I3 ) 2001 FORMAT( 1X, '...Opening File on UNIT ', I2, /, 1X, A255 ) 2003 FORMAT( 1X, 'Processing Total Ozone Column Data' ) 2005 FORMAT( 7X, 'Latitude:', 1X, F5.1, ', N=', I5, ', Mean TOC=', F9.4 ) 2007 FORMAT( 7X, 'Latitude:', 1X, F5.1, ', TOC=0.0' ) RETURN END ================================================ FILE: UTIL/jproc/src/common/setaer.f ================================================ !-----------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !-----------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/JPROC/src/driver/jproc_table/setaer.f,v 1.4 2011/10/29 01:03:54 sjr Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C @(#)setaer.F 1.1 /project/mod3/JPROC/src/driver/jproc_table/SCCS/s.setaer.F 23 May 1997 12:44:27 C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE SETAER ( NWL, MIDWL, AAER, OMAER, GAER, HAER ) C********************************************************************* C C Specify aerosols C C AAER(IWL) = aerosol total vertical optical depth variation with C wavelength. Estimated from Elterman (1968) C AER(I) = attenuation (per km) profile from Elterman (1968). C Given in data statement in beginning of code, C for 340 nm (IWL=60) C Same vertical shape at all wavelengths. C Normalized later (in subroutine SUBGRID) to total C vertical dep this wavelength. C OMAER = aerosol single scattering albedo. Use 0.99 for now. C GAER = aerosol asymetry factor. Use 0.61 (Hansen and C Travis 1974) (these are assuming particles of C about 0.1 micron radius index of refraction of C about 1.65 + 0.002i. C HAER = the aerosol scale height at top of atmosphere C use equal to air (8.05 km) C C********************************************************************* IMPLICIT NONE INCLUDE 'JVALPARMS.EXT' ! jproc parameters C...........ARGUMENTS and their descriptions INTEGER NWL ! number of wavelength bands REAL MIDWL ( MXWL ) ! wavelength band midpoints REAL AAER ( MXWL ) ! aerosol total vert opt depth REAL OMAER ! aerosol single scat albedo REAL GAER ! aerosol asymetry factor REAL HAER ! aerosol scale ht at atm top C...........LOCAL VARIABLES and their descriptions: INTEGER IWL ! wavelength index C********************************************************************* C begin body of subroutine SETAER DO IWL = 1, NWL AAER( IWL ) = 0.379 * ( 340.0 / MIDWL( IWL ) ) END DO OMAER = 0.990 GAER = 0.610 HAER = 8.05 RETURN END ================================================ FILE: UTIL/jproc/src/common/setair.f ================================================ !-----------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !-----------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/JPROC/src/driver/jproc_table/setair.f,v 1.4 2011/10/29 01:03:55 sjr Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C @(#)setair.F 1.1 /project/mod3/JPROC/src/driver/jproc_table/SCCS/s.setair.F 23 May 1997 12:44:28 C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE SETAIR ( NWL, MIDWL, HAIR, OMRAY, GRAY, ARAYL ) C********************************************************************* C C Specify air/Rayleigh parameters C HAIR = air scale height, used to estimate ozone density C column a upper boundary (50km). C OMRAY = single scattering albedo, Rayleigh. Use 1.00 C GRAY = asymetry factor for Rayleigh scattering. Use 0.0 C ARAYL(KL) = Rayleigh scattering cross section, from C Frohlich and Shaw, Appl.Opt. v.11, p.1773 (1980). C overrides tabulation of JDATA.BASE C C********************************************************************* IMPLICIT NONE INCLUDE 'JVALPARMS.EXT' ! jproc parameters C...........ARGUMENTS and their descriptions INTEGER NWL ! number of wavelength bands REAL HAIR ! air scale height REAL OMRAY ! single scat albedo, Rayleigh REAL GRAY ! asymetry fact for Rayleigh scat REAL ARAYL ( MXWL ) ! Rayleigh scat cross section REAL MIDWL ( MXWL ) ! wavelength band midpoints C...........LOCAL VARIABLES and their descriptions: INTEGER IWL ! wavelength index REAL XX ! intermediate var REAL WMICRON ! wavelength in microns C********************************************************************* C begin body of subroutine SETAIR HAIR = 8.05 OMRAY = 1.0 GRAY = 0.0 DO IWL = 1, NWL WMICRON = MIDWL( IWL ) / 1.0E3 XX = 3.916 + 0.074 * WMICRON + 0.050 / WMICRON ARAYL( IWL ) = 3.90E-28 / WMICRON**XX END DO RETURN END ================================================ FILE: UTIL/jproc/src/common/setalb.f ================================================ !-----------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !-----------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/JPROC/src/driver/jproc_table/setalb.f,v 1.5 2011/10/29 01:03:55 sjr Exp $ C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE SET_ALBEDO ( NWL, MIDWL, ALBEDO ) C********************************************************************* C C Set the albedo of the surface. C Use best estimate albedo of Demerjian et al., C Adv.Env.Sci.Tech.,v.10,p.369, (1980) C C********************************************************************* IMPLICIT NONE INCLUDE 'JVALPARMS.EXT' ! jproc parameters C...........ARGUMENTS and their descriptions INTEGER NWL ! number of wavelength bands REAL MIDWL ( MXWL ) ! wavelength band midpoints REAL ALBEDO( MXWL ) ! ground albedo C...........LOCAL VARIABLES and their descriptions: INTEGER IWL ! wavelength index C********************************************************************* C begin body of subroutine SET_ALBEDO DO IWL = 1, NWL IF ( MIDWL( IWL ) .LT. 400.0 ) THEN ALBEDO( IWL ) = 0.05 ELSE IF (( MIDWL( IWL ) .GE. 400.0 ) .AND. & ( MIDWL( IWL ) .LT. 450.0 )) THEN ALBEDO( IWL ) = 0.06 ELSE IF (( MIDWL( IWL ) .GE. 450.0 ) .AND. & ( MIDWL( IWL ) .LT. 500.0 )) THEN ALBEDO( IWL ) = 0.08 ELSE IF (( MIDWL( IWL ) .GE. 500.0 ) .AND. & ( MIDWL( IWL ) .LT. 550.0 )) THEN ALBEDO( IWL ) = 0.10 ELSE IF (( MIDWL( IWL ) .GE. 550.0 ) .AND. & ( MIDWL( IWL ) .LT. 600.0 )) THEN ALBEDO( IWL ) = 0.11 ELSE IF (( MIDWL( IWL ) .GE. 600.0 ) .AND. & ( MIDWL( IWL ) .LT. 640.0 )) THEN ALBEDO( IWL ) = 0.12 ELSE IF (( MIDWL( IWL ) .GE. 640.0 ) .AND. & ( MIDWL( IWL ) .LT. 660.0 )) THEN ALBEDO( IWL ) = 0.135 ELSE IF ( MIDWL( IWL ) .GE. 660.0 ) THEN ALBEDO( IWL ) = 0.15 END IF END DO RETURN END ================================================ FILE: UTIL/jproc/src/common/setcld.f ================================================ !-----------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !-----------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/JPROC/src/driver/jproc_table/setcld.f,v 1.4 2011/10/29 01:03:55 sjr Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C @(#)setcld.F 1.1 /project/mod3/JPROC/src/driver/jproc_table/SCCS/s.setcld.F 23 May 1997 12:44:29 C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE SETCLD ( NLAYS, NLEVS, NSUBKM, IBASE, ITOP, CLOUD, & OMCLD, GCLD ) C********************************************************************* C C CLOUD MUST BE SPECIFIED EVEN FOR CLEAR PHOTOLYSIS RATES C A FINE GRID IS REQUIRED BY THE DELTA-EDDINGTON SOLVER C DEPTH = cloud optical depth C IBASE = cloud base index (height/km + 1) C ITOP = cloud top index (height/km + 1) C NSUBKM = cloud sublayers/km C NSBTOT = total number of cloud sublayers (36 or less) C NLAYS = total number of atmospheric layers C CLOUD(K) = cloud optical depth profile. Relative optical depth C cloud sublayer. Assume constant cloud profile for now C Re- normalize to total optical depth C OMCLD = single scattering cross sect. Use 0.9995 C GCLD = asymetry factor. Use 0.875 C C********************************************************************* IMPLICIT NONE INCLUDE 'JVALPARMS.EXT' ! jproc parameters C...........ARGUMENTS and their descriptions INTEGER NLAYS ! total # of atm layers INTEGER NLEVS ! number of levels INTEGER NSUBKM ! cloud sublayers/km INTEGER IBASE ! cloud base index INTEGER ITOP ! cloud top index REAL CLOUD( 48 ) ! cloud optical depth profile REAL OMCLD ! cloud single scat cross sect REAL GCLD ! cloud asymetry factor C...........LOCAL VARIABLES and their descriptions: INTEGER K ! cloud sublayer index INTEGER NSBTOT ! total # of cloud sublayers REAL CTOT ! total cloud column REAL DEPTH ! optical cloud depth C********************************************************************* C begin body of subroutine SETCLD DEPTH = 0.0 IBASE = 20 ITOP = 30 NSUBKM = 36 / ( ITOP - IBASE ) NSBTOT = NSUBKM * ( ITOP - IBASE ) NLAYS = MXLEV + ( NSUBKM - 1 ) * ( ITOP - IBASE ) NLEVS = NLAYS + 1 DO K = 1, NSBTOT CLOUD( K ) = 1.0 END DO C...normalize cloud profile CTOT = 0 DO K = 1, NSBTOT CTOT = CTOT + CLOUD( K ) END DO DO K = 1, NSBTOT CLOUD( K ) = DEPTH / CTOT END DO OMCLD = 1.000 GCLD = 0.860 RETURN END ================================================ FILE: UTIL/jproc/src/common/srband.f ================================================ !-----------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !-----------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/JPROC/src/driver/jproc_table/srband.f,v 1.5 2011/10/29 01:03:56 sjr Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C @(#)srband.F 1.1 /project/mod3/JPROC/src/driver/jproc_table/SCCS/s.srband.F 23 May 1997 12:44:30 C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE SRBAND ( NWL, STWL, MIDWL, ENDWL, COSZEN, NLAYS, AO2, & CVO2, VT, ZMID, O2ABS ) C********************************************************************* C C this subroutine calculates effective O2 cross sections in the C Schumann-Runge band, using the formulae from Allen and Frederick, C J.Atmos.Sci., v39, p2066 (1982). The coefficients are those C modified by Wuebbles (LLL report, 1982). C C********************************************************************* IMPLICIT NONE C...........PARAMETERS and their descriptions INTEGER, PARAMETER :: MXWL = 130 ! number of wavelength bands INTEGER, PARAMETER :: NJ = 200 ! maximum levels INTEGER, PARAMETER :: NWLO2 = 11 ! # of wl bands for O2 SR data C...........ARGUMENTS and their descriptions INTEGER NWL ! number of wavelength bands INTEGER NLAYS ! total # of atm layers REAL COSZEN ! cosine zenith angle REAL STWL( MXWL ) ! wavelength bands starting point REAL MIDWL( MXWL ) ! wavelength bands midpoint REAL ENDWL( MXWL ) ! wavelength bands ending point REAL CVO2( NJ ) ! vertical column O2 REAL VT ( NJ ) ! average temp of column REAL ZMID( NJ ) ! altitude of midpoint of layer REAL AO2( NJ, MXWL ) ! layered O2 cross sections REAL O2ABS( MXWL ) ! O2 cross sections C...........LOCAL VARIABLES and their descriptions: CHARACTER(1), SAVE :: TYPE = 'B' ! cs spectra type (B=beginning wl) INTEGER IWL ! wavelength index INTEGER IWLO2 ! wavelength index for ref O2 data INTEGER ILAY ! layer index INTEGER N20 ! layer at 20 km REAL E10 ! e**10 REAL X1 ! REAL X2 ! x1**2 REAL X3 ! x1**3 REAL X4 ! x1**4 REAL X5 ! x1**5 REAL X6 ! x1**6 REAL X7 ! x1**7 REAL X8 ! x1**8 REAL AO20 ! REAL AO20LG ! REAL Y1 ! REAL Y2 ! y1**2 REAL Y3 ! y1**3 REAL Y4 ! y1**4 REAL C ! REAL CLOG ! REAL ZENDEP ! REAL AO2W1( NWLO2 ) ! O2 SR data on ref WL bands REAL AO2W2( MXWL ) ! O2 SR data on ET wl bands REAL WLO2L( NWLO2+1 ) ! lower wl's for O2 SR data DATA WLO2L / 185.185, 186.916, 188.679, 190.476, 192.308, & 194.175, 196.078, 198.020, 200.000, 202.020, & 204.082, 206.186/ SAVE WLO2L REAL SRA1( NWLO2 ) ! Schumann-Runge coef a1 DATA SRA1 / -2.158311E+01, -2.184813E+01, -2.200507E+01, & -2.205527E+01, -2.205261E+01, -2.228000E+01, & -2.275796E+01, -2.297610E+01, -2.506084E+01, & -2.313436E+01, -2.312205E+01 / SAVE SRA1 REAL SRA2( NWLO2 ) ! Schumann-Runge coef a2 DATA SRA2 / -4.164652E-01, -4.753880E-01, -4.628729E-01, & -4.400848E-01, -5.707936E-01, -3.960759E-01, & -2.054719E-01, -5.823677E-02, 3.442774E-02, & 1.177283E-04, 0.000000E+00 / SAVE SRA2 REAL SRA3( NWLO2 ) ! Schumann-Runge coef a3 DATA SRA3 / 5.266362E-02, 4.519945E-02, -5.022541E-02, & -5.687308E-03, -3.330207E-02, -2.995798E-02, & -1.094205E-02, -1.007612E-01, -2.212047E-04, & 0.000000E+00, 0.000000E+00 / SAVE SRA3 REAL SRA4( NWLO2 ) ! Schumann-Runge coef a4 DATA SRA4 / 1.655877E-02, 3.228313E-02, 2.545036E-02, & 3.712279E-02, 5.959032E-02, 4.918104E-02, & 2.079595E-02, 2.404666E-02, 6.186041E-07, & 0.000000E+00, 0.000000E+00 / SAVE SRA4 REAL SRA5( NWLO2 ) ! Schumann-Runge coef a5 DATA SRA5 / 0.000000E+00, 3.079373E-03, 5.791406E-02, & 6.025527E-03, 1.510540E-02, 9.269080E-03, & 3.769638E-03, 4.761876E-02, -6.284394E-10, & 0.000000E+00, 0.000000E+00 / SAVE SRA5 REAL SRA6( NWLO2 ) ! Schumann-Runge coef a6 DATA SRA6 / 0.000000E+00, 0.000000E+00, 1.179966E-02, & 0.000000E+00, 1.000376E-03, -1.173411E-03, & 0.000000E+00, 4.169606E-03, 0.000000E+00, & 0.000000E+00, 0.000000E+00 / SAVE SRA6 REAL SRA7( NWLO2 ) ! Schumann-Runge coef a7 DATA SRA7 / 0.000000E+00, 0.000000E+00, -8.296876E-03, & 0.000000E+00, 0.000000E+00, -2.599386E-04, & 0.000000E+00, -7.126663E-03, 0.000000E+00, & 0.000000E+00, 0.000000E+00 / SAVE SRA7 REAL SRA8( NWLO2 ) ! Schumann-Runge coef a8 DATA SRA8 / 0.000000E+00, 0.000000E+00, -3.238368E-03, & 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, -2.263652E-03, 0.000000E+00, & 0.000000E+00, 0.000000E+00 / SAVE SRA8 REAL SRA9( NWLO2 ) ! Schumann-Runge coef a9 DATA SRA9 / 0.000000E+00, 0.000000E+00, -3.069686E-04, & 0.000000E+00, 0.000000E+00, 0.000000E+00, & 0.000000E+00, -1.971653E-04, 0.000000E+00, & 0.000000E+00, 0.000000E+00 / SAVE SRA9 REAL SRB1( NWLO2 ) ! Schumann-Runge coef b1 DATA SRB1 / -2.431640E+03, -3.701955E+01, -1.086239E+03, & -1.213108E+03, -8.334575E+01, -2.139117E+02, & -3.281301E+02, 3.033416E+03, -2.535815E+00, & -4.474937E+00, -2.996639E+00 / SAVE SRB1 REAL SRB2( NWLO2 ) ! Schumann-Runge coef b2 DATA SRB2 / 4.729722E+02, 3.623290E+00, 1.981847E+02, & 2.277459E+02, 7.944254E+00, 2.612729E+01, & 4.307004E+01, -5.978911E+02, 0.000000E+00, & 0.000000E+00, 0.000000E+00 / SAVE SRB2 REAL SRB3( NWLO2 ) ! Schumann-Runge coef b3 DATA SRB3 / -3.452121E+01, -8.929223E-02, -1.359057E+01, & -1.612207E+01, -1.898894E-01, -1.036749E+00, & -1.870019E+00, 4.370384E+01, 0.000000E+00, & 0.000000E+00, 0.000000E+00 / SAVE SRB3 REAL SRB4( NWLO2 ) ! Schumann-Runge coef b4 DATA SRB4 / 1.120677E+00, 0.000000E+00, 4.155845E-01, & 5.101389E-01, 0.000000E+00, 1.317695E-02, & 2.674331E-02, -1.406715E+00, 0.000000E+00, & 0.000000E+00, 0.000000E+00 / SAVE SRB4 REAL SRB5( NWLO2 ) ! Schumann-Runge coef b5 DATA SRB5 / -1.365618E-02, 0.000000E+00, -4.788462E-03, & -6.090518E-03, 0.000000E+00, 0.000000E+00, & 0.000000E+00, 1.683967E-02, 0.000000E+00, & 0.000000E+00, 0.000000E+00 / SAVE SRB5 C********************************************************************* C begin body of subroutine SRBAND C...initialize cross sections: DO ILAY = 1, NLAYS DO IWL = 1, NWL AO2( ILAY, IWL ) = O2ABS( IWL ) END DO END DO C...correct as needed C... use formula for 20-50 km. C... below 20 km, use 20 km value C... find layer near 20 km DO ILAY = 1, NLAYS IF ( ZMID( ILAY ) .GT. 20.0 ) THEN N20 = ILAY GO TO 301 END IF END DO 301 CONTINUE E10 = ALOG( 10.0 ) DO ILAY = N20, NLAYS DO IWLO2 = 1, NWLO2 X1 = ALOG( 4.696E-23 * CVO2( ILAY ) / 0.2095 ) / E10 IF ( WLO2L( IWLO2 ) .GE. 200.0 ) X1 = VT( ILAY ) X2 = X1 * X1 X3 = X2 * X1 X4 = X3 * X1 X5 = X4 * X1 X6 = X5 * X1 X7 = X6 * X1 X8 = X7 * X1 AO20LG = SRA1( IWLO2 ) + SRA2( IWLO2 ) * X1 & + SRA3( IWLO2 ) * X2 + SRA4( IWLO2 ) * X3 & + SRA5( IWLO2 ) * X4 + SRA6( IWLO2 ) * X5 & + SRA7( IWLO2 ) * X6 + SRA8( IWLO2 ) * X7 & + SRA9( IWLO2 ) * X8 AO20 = 10.0**AO20LG Y1 = ALOG( CVO2( ILAY ) ) / E10 Y2 = Y1 * Y1 Y3 = Y2 * Y1 Y4 = Y3 * Y1 CLOG = SRB1( IWLO2 ) + SRB2( IWLO2 ) * Y1 & + SRB3( IWLO2 ) * Y2 + SRB4( IWLO2 ) * Y3 & + SRB5( IWLO2 ) * Y4 C = 10.0**CLOG ZENDEP = COSZEN**C AO2W1( IWLO2 ) = AO20 * ZENDEP END DO C...now transfrom the computed O2 data from their C... reference wavelength bands to the same wavelength bands C... as the extraterrestrial irradiance data CALL INTAVG ( WLO2L, AO2W1, NWLO2+1, TYPE, & STWL, ENDWL, AO2W2, NWL ) DO IWL = 1, NWL IF ( ENDWL( IWL ) .LE. 205.0 ) THEN AO2( ILAY, IWL ) = AO2W2( IWL ) END IF END DO END DO C...assign values below 20 km DO ILAY = 1, N20 - 1 DO IWL = 1, NWL AO2( ILAY, IWL ) = AO2( N20, IWL ) END DO END DO RETURN END ================================================ FILE: UTIL/jproc/src/common/subgrid.F ================================================ !-----------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !-----------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/JPROC/src/driver/jproc_table/subgrid.F,v 1.9 2011/10/29 01:03:56 sjr Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C @(#)subgrid.F 1.2 /project/mod3/JPROC/src/driver/jproc_table/SCCS/s.subgrid.F 04 Jun 1997 10:48:24 C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE SUBGRID ( NWL, STWL, MIDWL, ENDWL, CS, CSZ, QY, QYZ, & AIR, HAIR, VAIR, CVO2, O3ABS, O3, HO3, VO3, & AO3, IBASE, ITOP, CLOUD, NSUBKM, VCLD, & AER, VAER, HAER, T, VT, Z, ZMID, & NLAYS, NLEVS ) C********************************************************************* C C This subroutine computes all altitude dependent quantities over the C sub-divided grid C The following quantities are computed at each LEVEL (altitude) C Z (ILEV) = altitude (km) of each level C ZAIR(ILEV) = air concentration at each level C ZT (ILEV) = temperature at each level C CSZ(ILEV,IWL,IPHOT) = abs. cross sect at each altitude (T,P corrected) C QYZ(ILEV,IWL,IPHOT) = quantum yield at each altitude (T,P corrected) C C The following quantities are computed at each LAYER (thickness) C ZMID(ILAY) = altitude of modpoint of layer C VAIR(ILAY) = air column in layer (vertical) C VO3 (ILAY) = ozone column " " C VAER(ILAY) = aerosol " " ' C VCLD(ILAY) = cloud " " " C VT (ILAY) = average temperature of column C AO3 (ILAY,IWL) = average O3 cross sect in layer (with ave. layer C C********************************************************************* USE RXNS_DATA IMPLICIT NONE INCLUDE 'JVALPARMS.EXT' ! jproc parameters C...........PARAMETERS and their descriptions INTEGER, PARAMETER :: NWLO3 = 29 ! number of wl bands for O3 T cor C...........ARGUMENTS and their descriptions INTEGER NWL ! number of wavelength bands INTEGER NSUBKM ! cloud sublayers/km INTEGER IBASE ! cloud base index INTEGER ITOP ! cloud top index INTEGER NLAYS ! total # of atm layers INTEGER NLEVS ! number of levels REAL HAIR ! air scale height REAL HO3 ! ozone scale height REAL HAER ! aerosol scale ht at atm top REAL CLOUD( 48 ) ! cloud optical depth profile REAL T ( MXLEV ) ! interpolated temp profile REAL AER( MXLEV ) ! aerosol attenuation profile REAL O3 ( MXLEV ) ! ozone profile REAL AIR( MXLEV ) ! interpolated air profile REAL STWL( MXWL ) ! wavelength band starting point REAL MIDWL( MXWL ) ! wavelength band midpoints REAL ENDWL( MXWL ) ! wavelength band ending point REAL O3ABS( MXWL ) ! O3 absorption cross section REAL VT ( NJ ) ! average temp of column REAL Z ( NJ ) ! altitude of each level REAL ZMID( NJ ) ! altitude of midpoint of layer REAL VAER( NJ ) ! aerosol column in layer REAL VCLD( NJ ) ! cloud column in layer REAL VO3 ( NJ ) ! ozone column in layer REAL VAIR( NJ ) ! air column in layer REAL CVO2( NJ ) ! vertical column O2 REAL AO3( NJ, MXWL ) ! average O3 cross sect in layer REAL CS( MXWL, NPHOTAB ) ! cross sections REAL QY( MXWL, NPHOTAB ) ! quantum yields REAL CSZ( 100, MXWL, NPHOTAB ) ! cross section at each level REAL QYZ( 100, MXWL, NPHOTAB ) ! quantum yields T&P corrected C...........LOCAL VARIABLES and their descriptions: CHARACTER(8), SAVE :: SRO1D = ' ' ! source for o1d data CHARACTER(1), SAVE :: TYPE = 'B' ! cs spectra type (B=beginning wl) LOGICAL, SAVE :: FIRSTIME = .TRUE. ! Flag for first call to SUBGRID INTEGER ILEV ! level index INTEGER I ! index INTEGER K ! level index INTEGER ILAY ! layer index INTEGER IWL ! wavelength index INTEGER II ! layer index INTEGER IPHOT ! reaction index INTEGER, SAVE :: IO3O1D ! O3O1D reaction index INTEGER, SAVE :: IO3O3P ! O3O3P reaction index INTEGER, SAVE :: IHCHOM ! HCHOM reaction index INTEGER, SAVE :: IHCHOR ! HCHOR reaction index INTEGER, SAVE :: IALD ! ALD reaction index INTEGER, SAVE :: IACETONE ! ACETONE reaction index INTEGER, SAVE :: IKETONE ! KETONE reaction index INTEGER, SAVE :: IGLYF ! GLYF reaction index INTEGER, SAVE :: IGLYM ! GLYM reaction index INTEGER, SAVE :: IGLY_R ! GLY_R reaction index INTEGER, SAVE :: IMGLY ! MGLY reaction index INTEGER IWLO3 ! index for wl bands for O3 t cor REAL DZ ! atmosphere depth REAL DZCLD ! cloud thickness REAL HLOCAL ! local air scale REAL HLOCA1 ! local air scale REAL HLOCA2 ! local aerosol scale REAL X0 ! height fraction REAL X1 ! height above fraction REAL AKT ! temp corrected form diff REAL AK300 ! diff in qy(2) for form REAL PHI20 ! qy for form react 2 diff REAL SUM ! total aerosol opt depth REAL DZ1 ! x0 - dz REAL DZ2 ! x0 + dz REAL TDIFFX ! temp diff for o3 c-s REAL PHI1 ! qy for form react 1 REAL PHI2 ! qy for form react 2 REAL C ! coef 3 for o3 qy REAL A ! coef 1 for o3 qy REAL B ! coef 2 for o3 qy REAL TN1 ! temp diff for o3 qy nasa94 REAL TR1 ! temp diff for o3 qy radm REAL XL ! wavelength REAL XL0 ! wavelength REAL DXL ! wl delta from 305nm REAL A0 ! 1st coef for O3 qy REAL A1 ! 2nd coef for O3 qy REAL A2 ! 3rd coef for O3 qy REAL A3 ! 4th coef for O3 qy REAL A4 ! 5th coef for O3 qy REAL A5 ! 6th coef for O3 qy REAL A6 ! 7th coef for O3 qy C...coefficients for JPL06-2 and IUPAC04 O3O1D QY temperature adjustment REAL, SAVE :: jA1 = 0.8036 REAL, SAVE :: jA2 = 8.9061 REAL, SAVE :: jA3 = 0.1192 REAL, SAVE :: jX1 = 304.225 ! nm REAL, SAVE :: jX2 = 314.957 ! nm REAL, SAVE :: jX3 = 310.737 ! nm REAL, SAVE :: jw1 = 5.576 ! nm REAL, SAVE :: jw2 = 6.601 ! nm REAL, SAVE :: jw3 = 2.187 ! nm REAL, SAVE :: jv1 = 0.0 ! cm-1 REAL, SAVE :: jv2 = 825.518 ! cm-1 REAL, SAVE :: jc = 0.0765 REAL, SAVE :: jR = 0.695 ! cm-1/K REAL jq1, jq2, jq112, jq212 REAL jTEMP, jT300 C... REAL ZAIR( NJ ) ! air concentration profile REAL ZT ( NJ ) ! temperature profile REAL CSO3W1( NWLO3 ) ! temp O3 CS on t coef wl's REAL CSO3W2( MXWL ) ! temp O3 CS on ET's wls REAL WLO3L( NWLO3+1 ) ! lower wl's for O3 c-s temp coef. DATA WLO3L / & 263.158, 266.667, 270.270, 273.973, 277.778, & 281.690, 285.714, 289.855, 294.118, 298.500, & 302.500, 303.500, 304.500, 305.500, 306.500, & 307.500, 308.500, 309.500, 310.500, 311.500, & 312.500, 313.500, 314.500, 317.500, 322.500, & 327.500, 332.500, 337.500, 342.500, 347.500 / SAVE WLO3L REAL SO3TX( NWLO3, 3 ) ! O3 c-s temperature cooef. DATA ( SO3TX( IWLO3, 1 ), IWLO3 = 1, NWLO3 ) / & 9.630E+00, 8.320E+00, 6.880E+00, 5.370E+00, 3.960E+00, & 2.710E+00, 1.750E+00, 1.060E+00, 5.960E-01, 3.330E-01, & 2.400E-01, 2.100E-01, 1.800E-01, 1.600E-01, 1.400E-01, & 1.200E-01, 1.050E-01, 9.000E-02, 8.000E-02, 7.000E-02, & 6.000E-02, 5.500E-02, 4.000E-02, 2.190E-02, 1.010E-02, & 5.080E-03, 2.120E-03, 8.290E-04, 2.940E-04 / DATA ( SO3TX( IWLO3, 2 ), IWLO3 = 1, NWLO3 ) / & 1.190E-03, 3.640E-04, 2.460E-04, 1.030E-03, 1.690E-03, & 1.450E-03, 8.940E-04, 7.830E-04, 4.940E-04, 3.550E-04, & 2.950E-04, 2.750E-04, 2.500E-04, 2.300E-04, 2.080E-04, & 1.860E-04, 1.640E-04, 1.450E-04, 1.280E-04, 1.121E-04, & 1.000E-04, 9.200E-05, 7.500E-05, 4.830E-05, 3.430E-05, & 1.820E-05, 8.850E-06, 4.270E-06, 5.300E-06 / DATA ( SO3TX( IWLO3, 3 ), IWLO3 = 1, NWLO3 ) / & -1.740E-05, 2.470E-06, 1.170E-05, 1.260E-06,-6.860E-06, & -2.890E-06, 3.590E-06, 2.000E-06, 3.660E-06, 2.600E-06, & 2.170E-06, 1.950E-06, 1.380E-06, 1.650E-06, 1.550E-06, & 1.460E-06, 1.340E-06, 1.210E-06, 1.130E-06, 1.060E-06, & 9.400E-07, 8.700E-07, 7.500E-07, 5.200E-07, 2.660E-07, & 1.630E-07, 1.260E-07, 8.710E-08, 3.500E-08 / SAVE SO3TX C...........EXTERNAL FUNCTIONS and their descriptions: INTEGER INDEX2 ! index of array for a string C********************************************************************* C begin body of subroutine SUBGRID2 IF ( FIRSTIME ) THEN C... Setup indices for reactions IO3O1D = INDEX2( 'O3O1D', NPHOTAB, PHOTAB ) IF ( IO3O1D .EQ. 0 ) IO3O1D = INDEX2( 'O3_O1D', NPHOTAB, PHOTAB ) IO3O3P = INDEX2( 'O3O3P', NPHOTAB, PHOTAB ) IF ( IO3O3P .EQ. 0 ) IO3O3P = INDEX2( 'O3_O3P', NPHOTAB, PHOTAB ) IHCHOM = INDEX2( 'HCHOM', NPHOTAB, PHOTAB ) IF ( IHCHOM .EQ. 0 ) IHCHOM = INDEX2( 'HCHO_M', NPHOTAB, PHOTAB ) IF ( IHCHOM .EQ. 0 ) IHCHOM = INDEX2( 'FORM_M', NPHOTAB, PHOTAB ) IHCHOR = INDEX2( 'HCHOR', NPHOTAB, PHOTAB ) IF ( IHCHOR .EQ. 0 ) IHCHOR = INDEX2( 'HCHO_R', NPHOTAB, PHOTAB ) IF ( IHCHOR .EQ. 0 ) IHCHOR = INDEX2( 'FORM_R', NPHOTAB, PHOTAB ) IALD = INDEX2( 'ALD', NPHOTAB, PHOTAB ) IF (IALD .EQ. 0) IALD = INDEX2( 'CCHO', NPHOTAB, PHOTAB ) IACETONE= INDEX2( 'ACET_', NPHOTAB, PHOTAB ) IF (IACETONE .EQ. 0) IACETONE = INDEX2( 'CH3COCH3', NPHOTAB, PHOTAB ) IKETONE = INDEX2( 'KET', NPHOTAB, PHOTAB ) IGLYF = INDEX2( 'GLYF', NPHOTAB, PHOTAB ) IGLYM = INDEX2( 'GLY_07M', NPHOTAB, PHOTAB ) IF( IGLYM .EQ. 0 ) IGLYM = INDEX2( 'GLYH2', NPHOTAB, PHOTAB ) IGLY_R = INDEX2( 'GLY_07R', NPHOTAB, PHOTAB ) IF( IGLY_R .EQ. 0 ) IGLY_R = INDEX2( 'GLYHX', NPHOTAB, PHOTAB ) IMGLY = INDEX2( 'MGLY', NPHOTAB, PHOTAB ) write(6,*) 'Photolysis pressure/temperature dependencies:' write(6,*) '0: disabled; >0 enabled' write(6,*) '' write(6,*) 'O3 O3P', IO3O3P write(6,*) 'O3 O1D', IO3O1D write(6,*) 'formaldehyde 2*HO2:', IHCHOR write(6,*) 'formaldehyde H2', IHCHOM write(6,*) 'Acetaldehyde:', IALD write(6,*) 'Acetone:', IACETONE write(6,*) 'Ketone:', IKETONE write(6,*) 'Glyoxal formaldehyde:', IGLYF write(6,*) 'Glyoxal molecular', IGLYM write(6,*) 'Glyoxal radical', IGLY_R write(6,*) 'Methyl glyoxal', IMGLY C...check to see if O1D is from IUPAC, NASA94, or RADM data IF ( IO3O1D .GT. 0 ) THEN IF ( INDEX( PHOTAB( IO3O1D ), 'IUPAC04' ) .GT. 0 ) THEN SRO1D = 'IUPAC04' ELSE IF ( INDEX( PHOTAB( IO3O1D ), 'IUPAC10' ) .GT. 0 ) THEN SRO1D = 'IUPAC10' ELSE IF ( INDEX( PHOTAB( IO3O1D ), 'NASA94' ) .GT. 0 ) THEN SRO1D = 'NASA94' ELSE IF ( INDEX( PHOTAB( IO3O1D ), 'NASA06' ) .GT. 0 ) THEN SRO1D = 'NASA06' ELSE IF ( INDEX( PHOTAB( IO3O1D ), 'JPL06-2' ) .GT. 0 ) THEN SRO1D = 'JPL06-2' ELSE IF ( INDEX( PHOTAB( IO3O1D ), 'RADM' ) .GT. 0 ) THEN SRO1D = 'RADM' ELSE SRO1D = 'JPL06-2' END IF END IF FIRSTIME = .FALSE. END IF DZ = 1.0E+05 DZCLD = 1.0E+05 / FLOAT( NSUBKM ) C...levels ILEV = 0 DO I = 1, IBASE - 1 ILEV = ILEV + 1 Z ( ILEV ) = FLOAT( I - 1 ) ZAIR( ILEV ) = AIR( I ) ZT ( ILEV ) = T( I ) END DO DO I = IBASE, ITOP-1 HLOCAL = 1.0 / ALOG( AIR( I ) / AIR( I + 1 ) ) DO K = 1, NSUBKM X0 = FLOAT( K - 1 ) * DZCLD / DZ X1 = 1.0 - X0 ILEV = ILEV + 1 Z ( ILEV ) = FLOAT( I - 1 ) + X0 ZAIR( ILEV ) = AIR( I ) * EXP( -X0 / HLOCAL ) ZT ( ILEV ) = X0 * T( I + 1 ) + X1 * T( I ) END DO END DO DO I = ITOP, 51 ILEV = ILEV + 1 Z ( ILEV ) = FLOAT( I - 1 ) ZAIR( ILEV ) = AIR( I ) ZT ( ILEV ) = T( I ) END DO Z ( NLEVS ) = 51.0 ZAIR( NLEVS ) = AIR( 51 ) * EXP( -1.0 / HAIR ) ZT ( NLEVS ) = T( 51 ) + ( T( 51 ) - T( 50 ) ) C...assign default yields DO ILEV = 1, NLEVS DO IWL = 1, NWL DO IPHOT = 1, NPHOTAB QYZ( ILEV, IWL, IPHOT ) = QY( IWL, IPHOT ) CSZ( ILEV, IWL, IPHOT ) = CS( IWL, IPHOT ) END DO END DO END DO C...correct absorption cross sections for T and P IF ( ( IO3O1D .GT. 0 ) .AND. ( IO3O3P .GT. 0 ) ) THEN DO ILEV = 1, NLEVS ! level loop C...compute O3 cross sections for wavelength bands corresponding C... to the reference data for the temperature coefficients TDIFFX = ZT( ILEV ) - 230.0 DO IWLO3 = 1, NWLO3 ! wavelength loop CSO3W1( IWLO3 ) = 1.0E-18 * ( SO3TX( IWLO3, 1 ) & + SO3TX( IWLO3, 2 ) * TDIFFX & + SO3TX( IWLO3, 3 ) * TDIFFX * TDIFFX ) END DO ! wavelength loop C...now transfrom the computed O3 cross sections from their C... reference wavelength bands to the same wavelength bands C... as the extraterrestrial irradiance data CALL INTAVG ( WLO3L, CSO3W1, NWLO3+1, TYPE, & STWL, ENDWL, CSO3W2, NWL ) C...replace the O3 cross sections data only within the wavelengths C... which are sensitive to temperature changes DO IWL = 1, NWL ! wavelength loop IF ( ( STWL( IWL ) .GE. 263.158 ) .AND. & ( ENDWL( IWL ) .LE. 347.5 ) ) THEN CSZ( ILEV, IWL, IO3O1D ) = CSO3W2( IWL ) CSZ( ILEV, IWL, IO3O3P ) = CSZ( ILEV, IWL, IO3O1D ) END IF END DO ! wavelength loop END DO ! level loop END IF C...Adjust quantum yields for temperature dependencies C...O3O1D: jpl06-2 and iupac04 IF ( ( SRO1D .EQ. 'IUPAC10' ) .OR. ( SRO1D .EQ. 'IUPAC04' ) & .OR. ( SRO1D .EQ. 'JPL06-2' ) .OR. SRO1D .EQ. 'NASA06' ) THEN DO ILEV = 1, NLEVS ! level loop jTEMP = MIN( 320.0, MAX( 200.0, ZT( ILEV ) ) ) jq1 = EXP( -jv1 / ( jR * jTEMP ) ) jq2 = EXP( -jv2 / ( jR * jTEMP ) ) jq112 = jq1 / ( jq1 + jq2 ) jq212 = jq2 / ( jq1 + jq2 ) jT300 = jTEMP / 300 DO IWL = 1, NWL ! wavelength loop XL = MIDWL( IWL ) IF ( ( XL .GE. 305.0 ) .AND. ( XL .LE. 328.0 ) ) THEN QYZ( ILEV, IWL, IO3O1D ) = jq112 * jA1 & * EXP( -( ( jX1 - XL ) / jw1 )**4 ) & + jq212 * jA2 * jT300**2 & * EXP( -( ( jX2 - XL ) / jw2 )**2 ) & + jA3 * jT300**1.5 & * EXP( -( ( jX3 - XL ) / jw3 )**2 ) & + jC END IF END DO ! wavelength loop END DO ! level loop END IF ! jpl06-2 and iupac04 C...O3O1D: radm IF ( SRO1D .EQ. 'RADM' ) THEN DO ILEV = 1, NLEVS ! level loop TR1 = ZT( ILEV ) - 230.0 A = 0.9 * ( 0.369 & + 2.85E-4 * TR1 & + 1.28E-5 * TR1 * TR1 & + 2.57E-8 * TR1 * TR1 * TR1 ) B = - 0.575 & + 5.59E-3 * TR1 & - 1.439E-5 * TR1 * TR1 & - 3.27E-8 * TR1 * TR1 * TR1 C = 0.9 * ( 0.518 & + 9.87E-4 * TR1 & - 3.94E-5 * TR1 * TR1 & + 3.91E-7 * TR1 * TR1 * TR1 ) XL0 = 308.20 & + 4.4871E-2 * TR1 & + 6.9380E-5 * TR1 * TR1 & - 2.5452E-6 * TR1 * TR1 * TR1 DO IWL = 1, NWL ! wavelength loop XL = MIDWL( IWL ) QYZ( ILEV, IWL, IO3O1D ) = A * ATAN( B * ( XL - XL0 ) ) + C IF ( QYZ( ILEV, IWL, IO3O1D ) .LT. 0.0 ) THEN QYZ( ILEV, IWL, IO3O1D ) = 0.0 ELSE IF ( QYZ( ILEV, IWL, IO3O1D ) .GT. 0.9 ) THEN QYZ( ILEV, IWL, IO3O1D ) = 0.9 END IF END DO ! wavelength loop END DO ! level loop END IF ! radm o3o1d C...O3O1D: nasa94 IF ( SRO1D .EQ. 'NASA94' ) THEN DO ILEV = 1, NLEVS ! level loop TN1 = 298.0 - ZT( ILEV ) A0 = 0.94932 - 1.7039E-4 * TN1 + 1.4072E-6 * TN1 * TN1 A1 = -2.4052E-2 + 1.0479E-3 * TN1 - 1.0655E-5 * TN1 * TN1 A2 = 1.8771E-2 - 3.6401E-4 * TN1 - 1.8587E-5 * TN1 * TN1 A3 = -1.454E-2 - 4.7787E-5 * TN1 + 8.1277E-6 * TN1 * TN1 A4 = 2.3287E-3 + 1.9891E-5 * TN1 - 1.1801E-6 * TN1 * TN1 A5 = -1.4471E-4 - 1.7188E-6 * TN1 + 7.2661E-8 * TN1 * TN1 A6 = 3.183E-6 + 4.6209E-8 * TN1 - 1.6266E-9 * TN1 * TN1 DO IWL = 1, NWL ! wavelength loop XL = MIDWL( IWL ) IF ( XL .LT. 290.0 ) THEN QYZ( ILEV, IWL, IO3O1D ) = 0.9 ELSE IF ( ( XL .GE. 290.0 ) .AND. ( XL .LT. 305.0 ) ) THEN QYZ( ILEV, IWL, IO3O1D ) = 0.95 ELSE IF ( ( XL .GE. 305.0 ) .AND. ( XL .LE. 320.0 ) ) THEN DXL = MIDWL( IWL ) - 305.0 QYZ( ILEV, IWL, IO3O1D ) = A0 + A1 * DXL & + A2 * DXL**2 + A3 * DXL**3 & + A4 * DXL**4 + A5 * DXL**5 & + A6 * DXL**6 IF ( QYZ( ILEV, IWL, IO3O1D ) .LT. 0.02 ) THEN QYZ( ILEV, IWL, IO3O1D ) = 0.0 END IF ELSE IF ( XL .GT. 320.0 ) THEN QYZ( ILEV, IWL, IO3O1D ) = 0.0 END IF END DO ! wavelength loop END DO ! level loop END IF ! nasa94 o3o1d C...O3O3P C... The yields for O3->O(3P) are calculated as: (1.- singlet D yield) IF ( ( IO3O3P .GT. 0 ) .AND. ( IO3O1D .GT. 0 ) ) THEN DO ILEV = 1, NLEVS ! level loop DO IWL = 1, NWL ! wavelength loop QYZ( ILEV, IWL, IO3O3P ) = 1.0 - QYZ( ILEV, IWL, IO3O1D ) END DO ! wavelength loop END DO ! level loop END IF C...CH2O formaldehyde: C... the CH2O yield recalculated only for wavelengths longer than 329 nm IF ( ( IHCHOM .GT. 0 ) .AND. ( IHCHOR .GT. 0 ) ) THEN DO ILEV = 1, NLEVS ! level loop DO IWL = 1, NWL ! wavelength loop IF ( ( XL .GE. 330.0 ) .AND. & ( QYZ( ILEV, IWL, IHCHOM ) .GT. 0.0 ) ) THEN PHI1 = QYZ( ILEV, IWL, IHCHOR ) PHI2 = QYZ( ILEV, IWL, IHCHOM ) PHI20 = 1.0 - PHI1 AK300 = ( ( 1.0 / PHI2 ) - ( 1.0 / PHI20 ) ) / 2.54E+19 AKT = AK300 * ( 1.0 + 61.69 * ( 1.0 - ZT( ILEV ) / 300.0 ) & * ( XL / 329.0 - 1.0 ) ) QYZ( ILEV, IWL, IHCHOM ) = 1.0 / ( ( 1.0 / PHI20 ) & + ZAIR( ILEV ) * AKT ) END IF IF ( QYZ( ILEV, IWL, IHCHOM ) .GT. 1.0 ) THEN QYZ( ILEV, IWL, IHCHOM ) = 1.0 ELSE IF ( QYZ( ILEV, IWL, IHCHOM ) .LT. 0.0 ) THEN QYZ( ILEV, IWL, IHCHOM ) = 0.0 END IF END DO ! wavelength loop END DO ! level loop END IF C...CH3CHO and the dicarbonyls yields are calculated C... from the NTP yield by linear adjustment to 1/yield. C...Ketones yield is calculated from fit equations C...CH3CHO acetaldehyde: IF ( IALD .GT. 0 ) THEN DO ILEV = 1, NLEVS ! level loop DO IWL = 1, NWL ! wavelength loop IF ( QY( IWL, IALD ) .NE. 0.0 ) THEN QYZ( ILEV, IWL, IALD ) = 1.0 / & ( 1.0 + (1.0 / QY( IWL, IALD ) & - 1.0 ) * ZAIR( ILEV ) / 2.465E19 ) END IF END DO ! wavelength loop END DO ! level loop END IF C...ACETONE + HV -> CH3CO. + CH3. IF ( IACETONE .GT. 0 ) THEN DO ILEV = 1, NLEVS ! level loop DO IWL = 1, NWL ! wavelength loop QYZ( ILEV, IWL, IACETONE ) = 0.0766 + 0.09415 & * EXP( -ZAIR( ILEV ) / 3.222E18 ) END DO ! wavelength loop END DO ! level loop END IF C...CH3COC2H5 + hv -> ACO3 + ETH IF ( IKETONE .GT. 0 ) THEN DO ILEV = 1, NLEVS ! level loop DO IWL = 1, NWL ! wavelength loop QYZ( ILEV, IWL, IKETONE ) = 0.0766 + 0.09415 & * EXP( -ZAIR( ILEV ) / 3.222E18 ) END DO ! wavelength loop END DO ! level loop END IF C...HCOCHO glyoxal PROCESS A: IF ( IGLYF .GT. 0 ) THEN DO ILEV = 1, NLEVS ! level loop DO IWL = 1, NWL ! wavelength loop IF ( QY( IWL, IGLYF ) .NE. 0.0 ) THEN QYZ( ILEV, IWL, IGLYF ) = 1.0 / ( 1.0 & + (1.0 / QY( IWL, IGLYF ) - 1.0 ) & * ZAIR( ILEV ) / 2.465E19 ) END IF END DO ! wavelength loop END DO ! level loop END IF C...HCOCHO glyoxal PROCESS B: IF ( IGLYM .GT. 0 ) THEN DO ILEV = 1, NLEVS ! level loop DO IWL = 1, NWL ! wavelength loop IF ( QY( IWL, IGLYM ) .NE. 0.0 ) THEN QYZ( ILEV, IWL, IGLYM ) = 1.0 / ( 1.0 & + (1.0 / QY( IWL, IGLYM ) - 1.0 ) & * ZAIR( ILEV ) / 2.465E19 ) END IF END DO ! wavelength loop END DO ! level loop END IF C...Glyoxal + hv = 2 HCO IF ( IGLY_R .GT. 0 ) THEN DO ILEV = 1, NLEVS ! level loop DO IWL = 1, NWL ! wavelength loop IF ( QY( IWL, IGLY_R ) .NE. 0.0 ) THEN QYZ( ILEV, IWL, IGLY_R ) = 1.0 / ( 1.0 & + (1.0 / QY( IWL, IGLY_R ) - 1.0 ) & * ZAIR( ILEV ) / 2.465E19 ) END IF END DO ! wavelength loop END DO ! level loop END IF C...CH3COCHO methylglyoxal: IF ( IMGLY .GT. 0 ) THEN DO ILEV = 1, NLEVS ! level loop DO IWL = 1, NWL ! wavelength loop IF ( QY( IWL, IMGLY ) .NE. 0.0) THEN QYZ( ILEV, IWL, IMGLY ) = 1.0 / ( 1.0 & + ( 1.0 / QY( IWL, IMGLY ) - 1.0 ) & * ZAIR( ILEV ) / 2.465E19 ) END IF END DO ! wavelength loop END DO ! level loop END IF C...layers ILAY = 0 DO I = 1, IBASE-1 ILAY = ILAY + 1 ZMID( ILAY ) = FLOAT( I - 1 ) + 0.5 VAIR( ILAY ) = DZ * ( AIR( I + 1 ) - AIR( I ) ) & / ALOG( AIR( I + 1 ) / AIR( I ) ) VO3 ( ILAY ) = DZ * ( O3( I + 1 ) + O3( I ) ) / 2.0 VCLD( ILAY ) = 0.0 VAER( ILAY ) = ( AER( I + 1 ) - AER( I ) ) & / ALOG( AER( I + 1 ) / AER( I ) ) VT ( ILAY ) = ( T( I + 1 ) + T( I ) ) / 2.0 END DO DO I = IBASE, ITOP - 1 HLOCA1 = 1.0 / ALOG( AIR( I ) / AIR( I + 1 ) ) HLOCA2 = 1.0 / ALOG( AER( I ) / AER( I + 1 ) ) DO K = 1, NSUBKM X0 = ( FLOAT( K - 1 ) + 0.5 ) * DZCLD / DZ X1 = 1.0 - X0 ILAY = ILAY + 1 ZMID( ILAY ) = FLOAT( I ) + X0 DZ1 = X0 - 0.5 * DZCLD / DZ DZ2 = X0 + 0.5 * DZCLD / DZ VAIR( ILAY ) = AIR( I ) * HLOCA1 * 1.0E5 & * ( EXP( -DZ1 / HLOCA1 ) & - EXP( -DZ2 / HLOCA1 ) ) VO3 ( ILAY ) = DZCLD * ( X0 * O3( I + 1 ) + X1 * O3( I ) ) VCLD( ILAY ) = CLOUD( NSUBKM * ( I - IBASE ) + K ) VAER( ILAY ) = AER( I ) * HLOCA2 & * ( EXP( -DZ1 / HLOCA2 ) & - EXP( -DZ2 / HLOCA2 ) ) VT( ILAY ) = X0 * T( I + 1 ) + X1 * T( I ) END DO END DO DO I = ITOP, 50 ILAY = ILAY + 1 ZMID( ILAY ) = FLOAT( I - 1 ) + 0.5 VAIR( ILAY ) = DZ * ( AIR( I + 1 ) - AIR( I ) ) & / ALOG( AIR( I + 1 ) / AIR( I ) ) VO3 ( ILAY ) = DZ * ( O3( I + 1 ) + O3( I ) ) / 2.0 VCLD( ILAY ) = 0.0 VAER( ILAY ) = ( AER( I + 1 ) - AER( I ) ) & / ALOG( AER( I + 1 ) / AER( I ) ) VT ( ILAY ) = ( T( I + 1 ) + T( I ) ) / 2.0 END DO ZMID( NLAYS ) = 50.5 VAIR( NLAYS ) = DZ * HAIR * AIR( 51 ) VO3 ( NLAYS ) = DZ * HO3 * O3( 51 ) VCLD( NLAYS ) = 0.0 VAER( NLAYS ) = HAER * AER( 51 ) VT ( NLAYS ) = T( 51 ) C...normalize aerosol optical depth to unity sum SUM = 0.0 DO ILAY = 1, NLAYS SUM = SUM + VAER( ILAY ) END DO DO ILAY = 1, NLAYS VAER( ILAY ) = VAER( ILAY ) / SUM END DO C...calculated vertical column of O2 above the midpoint of each layer: C... want to use this for computing the average Schumann-Runge cross C... section in each layer. C... so use half of current layer and half of previous higher layer CVO2( NLAYS ) = 0.2095 * VAIR( NLAYS ) / 2.0 DO II = 2, NLAYS ILAY = NLAYS - II + 1 CVO2( ILAY ) = CVO2( ILAY + 1 ) + 0.2095 * ( VAIR( ILAY ) & + VAIR( ILAY + 1 ) ) / 2.0 END DO C...correct attenuation coefficients for pressure and/or temperature C... dep. for now do only ozone absorption. DO ILAY = 1, NLAYS ! layer loop C...compute O3 cross sections for wavelength bands corresponding C... to the reference data for the temperature coefficients TDIFFX = VT( ILAY ) - 230.0 DO IWLO3 = 1, NWLO3 CSO3W1( IWLO3 ) = 1.0E-18 * ( SO3TX( IWLO3, 1 ) & + SO3TX( IWLO3, 2 ) * TDIFFX & + SO3TX( IWLO3, 3 ) * TDIFFX * TDIFFX ) END DO C...now transfrom the computed O3 cross sections from their C... reference wavelength bands to the same wavelength bands C... as the extraterrestrial irradiance data CALL INTAVG ( WLO3L, CSO3W1, NWLO3+1, TYPE, & STWL, ENDWL, CSO3W2, NWL ) C...replace the O3 cross sections data only within the wavelengths C... which are sensitive to temperature changes DO IWL = 1, NWL AO3( ILAY, IWL ) = O3ABS( IWL ) IF ( ( STWL( IWL ) .GE. 263.158 ) .AND. & ( ENDWL( IWL ) .LE. 347.5 ) ) THEN AO3( ILAY, IWL ) = CSO3W2( IWL ) END IF END DO END DO ! layer loop RETURN END ================================================ FILE: UTIL/jproc/src/common/tridiag.f ================================================ !-----------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !-----------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/JPROC/src/driver/jproc_table/tridiag.f,v 1.5 2011/10/29 01:03:56 sjr Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C @(#)tridiag.F 1.1 /project/mod3/JPROC/src/driver/jproc_table/SCCS/s.tridiag.F 23 May 1997 12:44:32 C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE TRIDIAG ( A, B, E, D, U, N ) C----------------------------------------------------------------------- C C FUNCTION: C Solves tridiagonal system by Thomas algorithm. Algorithm fails C if first pivot is zero. In that case, rewrite the C equation as a set of order N-1, with U(2) trivially eliminated. C The associated tri-diagonal system is stored in 3 arrays C B: diagonal C A: sub-diagonal C E: super-diagonal C D: right hand side function C U : return solution from tridiagonal solver C C [ B(1) E(1) 0 0 0 ... 0 ] C [ A(2) B(2) E(2) 0 0 ... . ] C [ 0 A(3) B(3) E(3) 0 ... . ] C [ . . . . . ] U(i) = D(i) C [ . . . . 0 ] C [ . . . . ] C [ 0 A(n) B(n) ] C C PRECONDITIONS REQUIRED: C C SUBROUTINES AND FUNCTIONS CALLED: C C REVISION HISTORY: C NO. DATE WHO WHAT C __ ____ ___ ____ C 4 4/3/96 SJR copied code and modified for use in JPROC C 3 8/16/94 XKX configuration management include statements C 2 3/15/92 CJC For use in Models-3 LCM. C 1 10/19/89 JKV converted for use on IBM C 0 3/89 BDX Initial version C yoj C----------------------------------------------------------------------- IMPLICIT NONE INTEGER, PARAMETER :: NMAX = 400 C...ARGUMENTS and their descriptions: INTEGER N ! number of rows in matrix REAL A( NMAX ) ! subdiagonal REAL B( NMAX ) ! diagonal REAL E( NMAX ) ! superdiagonal REAL D( NMAX ) ! R.H. side REAL U( NMAX ) ! solution C SCRATCH LOCAL VARIABLES and their descriptions: INTEGER J ! loop index REAL BET ! REAL GAM( NMAX ) ! C...begin body of subroutine TRIDIAG C... Decomposition and forward substitution: BET = 1.0 / B( 1 ) U( 1 ) = BET * D( 1 ) DO J = 2, N GAM( J ) = BET * E( J - 1 ) BET = 1.0 / ( B( J ) - A( J ) * GAM( J ) ) U( J ) = BET * ( D( J ) - A( J ) * U( J - 1) ) END DO C...Back-substitution: DO J = N - 1, 1, -1 U( J ) = U( J ) - GAM( J + 1 ) * U( J + 1 ) END DO RETURN END ================================================ FILE: UTIL/jproc/src/common/twostr.f ================================================ !-----------------------------------------------------------------------! ! The Community Multiscale Air Quality (CMAQ) system software is in ! ! continuous development by various groups and is based on information ! ! from these groups: Federal Government employees, contractors working ! ! within a United States Government contract, and non-Federal sources ! ! including research institutions. These groups give the Government ! ! permission to use, prepare derivative works of, and distribute copies! ! of their work in the CMAQ system to the public and to permit others ! ! to do so. The United States Environmental Protection Agency ! ! therefore grants similar permission to use the CMAQ system software, ! ! but users are requested to provide copies of derivative works or ! ! products designed to operate in the CMAQ system to the United States ! ! Government without restrictions as to use by others. Software ! ! that is used with the CMAQ system but distributed under the GNU ! ! General Public License or the GNU Lesser General Public License is ! ! subject to their copyright restrictions. ! !-----------------------------------------------------------------------! C RCS file, release, date & time of last delta, author, state, [and locker] C $Header: /project/yoj/arc/JPROC/src/driver/jproc_table/twostr.f,v 1.5 2011/10/29 01:03:56 sjr Exp $ C what(1) key, module and SID; SCCS file; date and time of last delta: C @(#)twostr.F 1.1 /project/mod3/JPROC/src/driver/jproc_table/SCCS/s.twostr.F 23 May 1997 12:44:32 C::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: SUBROUTINE TWOSTR ( NLEVEL, MU, RSFC, TAUU, OMU, GU, & FDR, FUP, FDN, EDR, EUP, EDN ) C********************************************************************* C C TWO-STREAM EQUATIONS FOR MULTIPLE LAYERS C based on equations from Toon et al., Journal of Geophysical Research C Volume 94, #D13 Nov. 20, 1989 Issue C programmed by: Kathleen G. Mosher C for Sasha Madronich, N.C.A.R. A.C.D. C C Now it contains 9 two-stream methods to choose from. C programmed on 05.26.94 by: Irina V.Petropavlovskikh C for Sasha Madronich, N.C.A.R. A.C.D. C C********************************************************************* IMPLICIT NONE C...........PARAMETERS and their descriptions INTEGER, PARAMETER :: KZ = 200 ! maximum levels INTEGER, PARAMETER :: NROWS = 2 * KZ REAL, PARAMETER :: EPS = 1.0E-3 REAL, PARAMETER :: PRECIS = 1.0E-7 REAL, PARAMETER :: PI = 3.1415926535898 C...........ARGUMENTS and their descriptions INTEGER NLEVEL ! number of levels REAL MU ! cosine of solar zenith angle REAL RSFC ! surface albedo REAL EDN ( KZ ) ! REAL EDR ( KZ ) ! REAL EUP ( KZ ) ! REAL FDN ( KZ ) ! REAL FDR ( KZ ) ! REAL FUP ( KZ ) ! REAL GU ( KZ ) ! unscaled asymmetry factor REAL OMU ( KZ ) ! unscaled single scattering albedo REAL TAUU( KZ ) ! unscaled optical depth of each layer C...........LOCAL VARIABLES and their descriptions: INTEGER I INTEGER J INTEGER LEV INTEGER MROWS INTEGER NLAYER ! number of layers in the atmosphere INTEGER ROW REAL DIVISR REAL DN REAL EXPON REAL EXPON0 REAL EXPON1 REAL F REAL FDN0 REAL G REAL GAM1 REAL GAM2 REAL GAM3 REAL GAM4 REAL OM REAL PIFS REAL SSFC REAL TAU REAL TAUC REAL TAUG REAL TEMP REAL TEMPG REAL UP REAL BGAM ( KZ ) REAL CDN ( KZ ) REAL CDNTN( KZ ) REAL CUP ( KZ ) REAL CUPTN( KZ ) REAL E1 ( KZ ) REAL E2 ( KZ ) REAL E3 ( KZ ) REAL E4 ( KZ ) REAL LAM ( KZ ) REAL MU1 ( KZ ) REAL TAUN ( KZ ) REAL A( NROWS ) REAL B( NROWS ) REAL D( NROWS ) REAL E( NROWS ) REAL Y( NROWS ) C...For calculations of Associated Legendre Polynomials for GAMA1,2,3,4 C in delta-function, modified quadrature, hemispheric constant, C Hybrid modified Eddington-delta function metods, p633,Table1. C W.E.Meador and W.R.Weaver, GAS,1980,v37,p.630 C W.J.Wiscombe and G.W. Grams, GAS,1976,v33,p2440, C...uncomment the following two lines and the appropriate statements further C down. CCC REAL YLM0, YLM2, YLM4, YLM6, YLM8, YLM10, YLM12, YLMS, BETA0, CCC & BETA1, BETAn, amu1, subd C********************************************************************* C begin body of subroutine TWOSTR C...initial conditions: pi*solar flux = 1; diffuse incidence = 0 PIFS = 1.0 FDN0 = 0.0 NLAYER = NLEVEL - 1 C...compute coefficients for each layer: C... GAM1 - GAM4 = 2-stream coefficients, different for C... different approximations C... EXPON0 = calculation of e when TAU is zero C... EXPON1 = calculation of e when TAU is TAUN C... CUP and CDN = calculation when TAU is zero C... CUPTN and CDNTN = calc. when TAU is TAUN C... DIVISR = prevents division by zero TAUC = 0. DO I = 1, NLAYER G = GU ( I ) TAU = TAUU( I ) OM = OMU ( I ) C...stay away from 1 by precision. For g, also stay away from -1 TEMPG = AMIN1( ABS( G ), 1.0 - PRECIS ) G = SIGN( TEMPG, G ) OM = AMIN1( OM, 1.0 - PRECIS ) C...delta-scaling. Have to be done for delta-Eddington approximation, C... delta discrete ordinate, Practical Improved Flux Method, delta function, C... and Hybrid modified Eddington-delta function methods approximations F = G * G G = ( G - F ) / ( 1.0 - F ) TAUN( I ) = ( 1.0 - OM * F ) * TAU OM = ( 1.0 - F ) * OM / ( 1.0 - OM * F ) C...the following gamma equations are from pg 16,289, Table 1 C...Eddington approximation(Joseph et al., 1976, JAS, 33, 2452): GAM1 = ( 7.0 - OM * ( 4.0 + 3.0 * G ) ) / 4.0 GAM2 = -( 1.0 - OM * ( 4.0 - 3.0 * G ) ) / 4.0 GAM3 = ( 2.0 - 3.0 * G * MU ) / 4.0 GAM4 = 1.0 - GAM3 C...quadrature (Liou, 1973, JAS, 30, 1303-1326; 1974, JAS, 31, 1473-1475): C GAM1 = 1.7320508 * ( 2.0 - OM * ( 1.0 + G ) ) / 0.2 C GAM2 = 1.7320508 * OM * ( 1.0 - G ) / 2.0 C GAM3 = ( 1.0 - 1.7320508 * G * MU ) / 2.0 C GAM4 = 1.0 - GAM3 C...hemispheric mean (Toon et al., 1089, JGR, 94, 16287): C GAM1 = 2.0 - OM * ( 1.0 + G ) C GAM2 = OM * ( 1.0 - G ) C GAM3 = ( 2.0 - G * MU ) / 4.0 C GAM4 = 1.0 - GAM3 C...PIFM (Zdunkovski et al.,1980, Conrib.Atmos.Phys., 53, 147-166): C GAM1 = 0.25 * ( 8.0 - OM * ( 5.0 + 3.0 * G ) ) C GAM2 = 0.75 * OM * ( 1.0 - G ) C GAM3 = 0.25 * ( 2.0 -3.0 * G * MU ) C GAM4 = 1.0 - GAM3 C...delta discrete ordinates (Schaller, 1979, Contrib.Atmos.Phys, 52, 17-26): C GAM1 = 0.5 * 1.7320508 * ( 2.0 - OM * ( 1.0 + G ) ) C GAM2 = 0.5 * 1.7320508 * OM * ( 1.0 - G ) C GAM3 = 0.5 * (1.0 - 1.7320508 * G * MU ) C GAM4 = 1.0 - GAM3 C...Calculations of Associated Legendre Polynomials for GAMA1,2,3,4 C... in delta-function, modified quadrature, hemispheric constant, C... Hybrid modified Eddington-delta function metods, p633,Table1. C... W.E.Meador and W.R.Weaver, GAS,1980,v37,p.630 C... W.J.Wiscombe and G.W. Grams, GAS,1976,v33,p2440 C YLM0 = 2.0 C YLM2 = -3.0 * G * MU C YLM4 = 0.875 * G**3 * MU * ( 5.0 * MU**2 - 3.0 ) C YLM6 = -0.171875 * G**5 * MU C & * ( 15.0 - 70.0 * MU**2 + 63.0 * MU**4 ) C YLM8 = 0.073242 * G**7 * MU C & * ( -35.0 + 315.0 * MU**2 - 693.0 * MU**4 + 429.0 * MU**6 ) C YLM10 = -0.008118 * G**9 * MU C & * ( 315.0 - 4620.0 * MU**2 + 18018.0 * MU**4 - 25740.0 C & * MU**6 + 12155.0 * MU**8 ) C YLM12 = 0.003685 * G**11 * MU C & * ( -693.0 + 15015.0 * MU**2 - 90090.0 * MU**4 + 218790.0 C & * MU**6 - 230945.0 * MU**8 + 88179.0 * MU**10 ) C YLMS = YLM0 + YLM2 + YLM4 + YLM6 + YLM8 + YLM10 + YLM12 C YLMS = 0.25 * YLMS C BETA0 = YLMS C C AMU1 = 1.0 / 1.7320508 C YLM0 = 2.0 C YLM2 = -3.0 * G * AMU1 C YLM4 = 0.875 * G**3 * AMU1 * ( 5.0 * AMU1**2 - 3.0 ) C YLM6 = -0.171875 * G**5 * AMU1 C & * ( 15.0 - 70.0 * AMU1**2 + 63.0 * AMU1**4 ) C YLM8 = 0.073242 * G**7 * AMU1 C & * ( -35.0 + 315.0 * AMU1**2 - 693.0 * AMU1**4 C & + 429.0 * AMU1**6 ) C YLM10 = -0.008118 * G**9 * AMU1 C & * ( 315.0 - 4620.0 * AMU1**2 + 18018.0 * AMU1**4 C & - 25740.0 * AMU1**6 + 12155.0 * AMU1**8 ) C YLM12 = 0.003685 * G**11 * AMU1 C & * ( -693.0 + 15015.0 * AMU1**2 - 90090.0 * AMU1**4 C & + 218790.0 * AMU1**6 - 230945.0 * AMU1**8 C & + 88179.0 * AMU1**10 ) C YLMS = YLM0 + YLM2 + YLM4 + YLM6 + YLM8 + YLM10 + YLM12 C YLMS = 0.25 * YLMS C BETA1 = YLMS C C BETAN = 0.25 * (2.0 - 1.5 * G - 0.21875 * G**3 - 0.085938 * G**5 C & - 0.045776 * G**7 ) C...Hybrid modified Eddington-delta function(Meador and Weaver,1980,JAS,37,630): C SUBD = 4.0 * (1.0 - G * G * ( 1.0 - MU ) ) C GAM1 = ( 7.0 - 3.0 * G * G - OM * ( 4.0 + 3.0 * G ) C & + OM * G * G * ( 4.0 * BETA0 + 3.0 * G ) ) / SUBD C GAM2 = -( 1.0 - G * G - OM * ( 4.0 - 3.0 * G ) C & - OM * G * G * ( 4.0 * BETA0 + 3.0 * G - 4.0 ) ) / SUBD C GAM3 = BETA0 C GAM4 = 1.0 - GAM3 C...delta function (Meador, and Weaver, 1980, JAS, 37, 630): C GAM1 = ( 1.0 - OM * ( 1.0 - BETA0 ) ) / MU C GAM2 = OM * BETA0 / MU C GAM3 = BETA0 C GAM4 = 1.0 - GAM3 C...modified quadrature (Meador, and Weaver, 1980, JAS, 37, 630): C GAM1 = 1.7320508 * ( 1.0 - OM * (1.0 - BETA1 ) ) C GAM2 = 1.7320508 * OM * BETA1 C GAM3 = BETA0 C GAM4 = 1.0 - GAM3 C...hemispheric constant (Toon et al., 1989, JGR, 94, 16287): C GAM1 = 2.0 * (1.0 - OM * ( 1.0 - BETAN ) ) C GAM2 = 2.0 * OM * BETAN C GAM3 = BETA0 C GAM4 = 1.0 - GAM3 C...save mu1 for use in converting irradiance to actinic flux MU1( I ) = ( 1 - OM ) / ( GAM1 - GAM2 ) C...lambda = pg 16,290 equation 21 C... big gamma = pg 16,290 equation 22 LAM ( I ) = SQRT( GAM1 * GAM1 - GAM2 * GAM2 ) BGAM( I ) = ( GAM1 - LAM( I ) ) / GAM2 EXPON = EXP( -LAM( I ) * TAUN( I ) ) C...e1 - e4 = pg 16,292 equation 44 E1( I ) = 1.0 + BGAM( I ) * EXPON E2( I ) = 1.0 - BGAM( I ) * EXPON E3( I ) = BGAM( I ) + EXPON E4( I ) = BGAM( I ) - EXPON C...the following sets up for the C equations 23, and 24 C... found on page 16,290 C... prevent division by zero (if LAMBDA=1/MU, shift 1/MU^2 by EPS = 1.E-3 C... which is approx equiv to shifting MU by 0.5*EPS* (MU)**3 EXPON0 = EXP( -( TAUC ) / MU ) EXPON1 = EXP( -( TAUC + TAUN( I ) ) / MU ) DIVISR = LAM( I ) * LAM( I ) - 1.0 / ( MU * MU ) TEMP = AMAX1( EPS, ABS( DIVISR ) ) DIVISR = SIGN( TEMP, DIVISR ) UP = OM * PIFS & * ( ( GAM1 - 1.0 / MU ) * GAM3 + GAM4 * GAM2 ) / DIVISR DN = OM * PIFS & * ( ( GAM1 + 1.0 / MU ) * GAM4 + GAM2 * GAM3 ) / DIVISR C...cup and cdn are when tau is equal to zero C... cuptn and cdntn are when tau is equal to taun CUP ( I ) = UP * EXPON0 CDN ( I ) = DN * EXPON0 CUPTN( I ) = UP * EXPON1 CDNTN( I ) = DN * EXPON1 TAUC = TAUC + TAUN( I ) END DO C...set up matrix C... ssfc = pg 16,292 equation 37 where pi Fs is one (unity). SSFC = RSFC * MU * EXP( -TAUC / MU ) * PIFS C...MROWS = the number of rows in the matrix MROWS = 2 * NLAYER C...the following are from pg 16,292 equations 39 - 43. C... set up first row of matrix: I = 1 A( 1 ) = 0.0 B( 1 ) = E1( I ) D( 1 ) = -E2( I ) E( 1 ) = FDN0 - CDN( I ) ROW = 1 C...set up odd rows 3 thru (MROWS - 1): I = 0 DO ROW = 3, MROWS - 1, 2 I = I + 1 A( ROW ) = E2( I ) * E3( I ) - E4( I ) * E1( I ) B( ROW ) = E1( I ) * E1( I + 1 ) - E3( I ) * E3( I + 1 ) D( ROW ) = E3( I ) * E4( I + 1 ) - E1( I ) * E2( I + 1 ) E( ROW ) = E3( I ) * ( CUP( I + 1 ) - CUPTN( I ) ) & + E1( I ) * ( CDNTN( I ) - CDN( I + 1 ) ) END DO C...set up even rows 2 thru (MROWS - 2): I = 0 DO ROW = 2, MROWS - 2, 2 I = I + 1 A( ROW ) = E2( I + 1 ) * E1( I ) - E3( I ) * E4( I + 1 ) B( ROW ) = E2( I ) * E2( I + 1 ) - E4( I ) * E4( I + 1 ) D( ROW ) = E1( I + 1) * E4( I + 1 ) - E2( I + 1 ) * E3( I + 1 ) E( ROW ) = ( CUP( I + 1 ) - CUPTN( I ) ) * E2( I + 1 ) & - ( CDN( I + 1 ) - CDNTN( I ) ) * E4( I + 1 ) END DO C...set up last row of matrix at MROWS: ROW = MROWS I = NLAYER A( ROW ) = E1( I ) - RSFC * E3( I ) B( ROW ) = E2( I ) - RSFC * E4( I ) D( ROW ) = 0.0 E( ROW ) = SSFC - CUPTN( I ) + RSFC * CDNTN( I ) C...solve tri-diagonal matrix: CALL TRIDIAG ( A, B, D, E, Y, MROWS ) C...unfold solution of matrix, compute output fluxes: ROW = 1 LEV = 1 J = 1 TAUG = 0.0 C...the following equations are from pg 16,291 equations 31 & 32 FDR( LEV ) = 1.0 EDR( LEV ) = MU EDN( LEV ) = FDN0 EUP( LEV ) = Y( ROW ) * E3( J ) - Y( ROW + 1 ) * E4( J ) & + CUP( J ) FDN( LEV ) = EDN( LEV ) / MU1( LEV ) FUP( LEV ) = EUP( LEV ) / MU1( LEV ) DO LEV = 2, NLAYER + 1 TAUG = TAUG + TAUN( J ) FDR( LEV ) = EXP( -TAUG / MU ) EDR( LEV ) = MU * FDR( LEV ) EDN( LEV ) = Y( ROW ) * E3( J ) + Y( ROW + 1 ) * E4( J ) & + CDNTN( J ) EUP( LEV ) = Y( ROW ) * E1( J ) + Y( ROW + 1 ) * E2( J ) & + CUPTN( J ) FDN( LEV ) = EDN( LEV ) / MU1( J ) FUP( LEV ) = EUP( LEV ) / MU1( J ) ROW = ROW + 2 J = J + 1 END DO RETURN END ================================================ FILE: UTIL/nml/README.md ================================================ # Convert .csv to namelist format (csv2nml) & Convert namelist format to .csv (nml2csv) CSV2NML and NML2CSV are used to convert the species definition files from CSV format to NAMELIST files and from a NAMELIST format to a CSV file, respectively. The NAMELIST files are used as inputs to the CMAQ programs ICON, BCON, or CCTM to define the processes that will impact each model species. Four NAMELIST files define the processes for gas-phase species (GC.nml), aerosol species (AE.nml), nonreactive species (NR.nml) and tracer speces (TR.nml). #### CSV2NML input files & NML2CSV output files Detailed descriptions of the formats of the files shown in [Table 4-1](../../DOCS/Users_Guide/CMAQ_UG_ch04_model_inputs.md#Table4-1) are provided in [Chapter 4](../../DOCS/Users_Guide/CMAQ_UG_ch04_model_inputs.md#Table4-1). **Table 1. CSV2NML input files & NML2CSV output files** |**File Name**|**Format**|**Description**| |--------|--------|--------------------------------------------------------------------------| |GC.csv|ASCII|Gas-phase species process parameters. This file defines the source and sink processes that impact the concentrations of every gas-phase species in the chemical mechanism.| |AE.csv|ASCII|Aerosol-phase species process parameters. This file defines the source and sink processes that impact the concentrations of every aerosol-phase species in the chemical mechanism.| |NR.csv|ASCII|Nonreactive species process parameters. This file defines the source and sink processes that impact the concentrations of every nonreactive species in the chemical mechanism.| **Table 2. CSV2NML output files & NML2CSV input files** |**File Name**|**Format**|**Description**| |--------|--------|--------------------------------------------------------------------------| |GC.nml|ASCII|Gas-phase species process parameters. This file defines the source and sink processes that impact the concentrations of every gas-phase species in the chemical mechanism.| |AE.nml|ASCII|Aerosol-phase species process parameters. This file defines the source and sink processes that impact the concentrations of every aerosol-phase species in the chemical mechanism.| |NR.nml|ASCII|Nonreactive species process parameters. This file defines the source and sink processes that impact the concentrations of every nonreactive species in the chemical mechanism.| |TR.nml|ASCII|Tracer species process parameters. This file defines the source and sink processes that impact the concentrations of every tracer species in the chemical mechanism.| #### CSV2NML & NML2CSV usage The CSV2NML script is configured to read in a CSV file from the command line and output a NAMELIST file that can be used with CMAQ. The CSV file to be input, currently, has to configured with a certain format to be consistent with how it is read in the existing CMAQ program suite. An example of how to configure your CSV file is shown below: **Example Tracer CSV File** |**Species**|**MOLWT**|**ICBC**|**ICBC_FAC**|**DEPV**|**DEPV_FAC**|**SCAV**|**SCAV_FAC**|**TR2AE**|**TR2AQ**|**ADVC**|**DIFF**|**DDEP**|**WDEP**|**CONC**| |:------:|:----:|:----:|:---:|:-----:|:---:|:---:|:----:|:---:|:----:|:----:|:----:|:----:|:----:|:----:| |O3_1|48.0|O3|1|VD_O3|1|O3|1| | |YES|YES|YES|YES|YES| **NOTE: Certain columns can be left blank, if desired, like in the above example. Also, please be sure to save your CSV file as either a GC, AE, NR or TR file as seen in Table 7-11. Refer to [Chapter 4](../../DOCS/Users_Guide/CMAQ_UG_ch04_model_inputs.md) for more information.** An example of how to use CSV2NML to create a tracer species NAMELIST file is included below: ``` cd $CMAQ_HOME/UTIL/nml/scripts ./csv2nml.csh TR.CSV ``` There is also a script to convert an existing namelist file to a CSV, the command to call this script is shown below: ``` cd $CMAQ_HOME/UTIL/nml/scripts ./nml2csv.csh TR.nml ``` ================================================ FILE: UTIL/nml/scripts/csv2nml.csh ================================================ #! /bin/csh -f # RCS file, release, date & time of last delta, author, state, [and locker] # $Header$ #> csv2nml - csh script to create a namelist (.nml) from a csv (.csv) #set echo if ( $#argv < 1 ) then echo " usage: cvs2nml " exit endif set File = $argv[1] set Tail = $File:t set Name = $Tail:r #> determine which species category @ Ndx = `echo $Name | awk 'P=index($0,"GC") {print(P)}'` #echo $Ndx if ( $Ndx != 0 ) then set Cat = GC # echo $Cat else @ Ndx = `echo $Name | awk 'P=index($0,"AE") {print(P)}'` # echo $Ndx if ( $Ndx != 0 ) then set Cat = AE # echo $Cat else @ Ndx = `echo $Name | awk 'P=index($0,"NR") {print(P)}'` # echo $Ndx if ( $Ndx != 0 ) then set Cat = NR # echo $Cat else @ Ndx = `echo $Name | awk 'P=index($0,"TR") {print(P)}'` # echo $Ndx if ( $Ndx != 0 ) then set Cat = TR # echo $Cat else echo " error determining mechanism category" exit endif endif endif endif pwd echo " Converting $File" #> modify csv to a "colon separated values" file with main variables defined #> in which each line is a character string sed \ -e 's/\r//' \ -e '1s/^/\!/' \ -e "1\!s/\s//g" \ -e "1\!s/[A-Za-z0-9]*[[-]]*[A-Za-z]\w*\|[A-Za-z]\w*\|[A-Za-z0-9]*[[_]]*[A-Za-z]\w*/'&\'/g" \ -e '1\!s/^\,//' \ -e '1\!s/$/\,/' \ -e "1\!s/\,\,/\,\'\'\,/g" \ -e "1\!s/\,\,/\,\'\'\,/g" \ -e '$ s/\,$//' \ $File > ! /tmp/${Name}_$$ #> add eof to namelist echo "/" >> /tmp/${Name}_$$ #> create top part of namelist echo "&${Cat}_nml" > /tmp/nml_$$ echo " " >> /tmp/nml_$$ echo "${Cat}_Species_Data =" >> /tmp/nml_$$ echo " " >> /tmp/nml_$$ #> insert top part of namelist cat /tmp/nml_$$ /tmp/${Name}_$$ > $Name.mod if ( -e $Name.nml ) then echo "don't overwrite $Name.nml" exit 1 endif /bin/mv $Name.mod $Name.nml /bin/rm /tmp/nml_$$ /tmp/${Name}_$$ exit #> description #> sed \ #> -e 's/\r//' <- remove any carriage returns ("cr" or "^M") #> -e '1s/^/\!/' <- Insert Comment Symbol before Matrix Header to #> ensure it does not get read #> -e "1\!s/\s//g" <- Remove any spaces present in the list #> -e "1\!s/[A-Za-z0-9]*[[-]] <- Look for patterns that has words and put and #> *[A-Za-z]\w*\|[A-Za-z]\w*\ single quote around them #> |[A-Za-z0-9]*[[_]]*[A-Za-z] #> \w*/'&\'/g" \ #> single quote around them #> -e '1\!s/^\,//' <- Delete a comma from start of each line #> if present #> -e '1\!s/$/\,/' <- Add a comma to the end of each line to signify #> line break #> -e "1\!s/\,\,/\,\'\'\,/g" <- Add quotes to any fields that are left blank and have #> 2 commas surronding them #> -e "1\!s/\,\,/\,\'\'\,/g" <- Add quotes to any fileds that are left blank and have #> 3 commas surrounding them #> -e '$ s/\,$//' <- go to last line and delete the "," after the last char #> in the line #> ( "$" is a special address, representing the last line) ================================================ FILE: UTIL/nml/scripts/nml2csv.csh ================================================ #! /bin/csh -f # RCS file, release, date & time of last delta, author, state, [and locker] # $Header$ #> nml2csv - csh script to revert a sednml Namelist file back to a .csv #> requirements: the nml Namelist file must be in the subdir; i.e. this script #> does not support a file path. #set echo if ( $#argv == 0 ) then echo " usage: nml2csv " exit endif set File = $argv[1] set Name = $File:r if ( -e ${Name}.csv ) then echo " ${Name}.csv exists. Not overwriting" exit endif pwd echo " Converting $File" #> conversion sed \ -e '1,4d' \ -e 's/'^!'//' \ -e "1\!s/\s//g"\ -e '/\//,/$/d' \ -e "s/'//g" \ -e 's/,$//' \ $File > ! /tmp/${Name}_$$ /bin/mv /tmp/${Name}_$$ $Name.csv exit #> description #> sed \ #> -e '1,4d' <- delete the first 4 lines of namelist file #> -e 's/'^!'//' <- delte the comment symbole (!) #> -e "1\!s/\s//g" <- delete all spaces existing in the file #> -e '/\//,/$/d' <- delete the last lines (starting at "/") #> -e "s/'//g" <- remove all "'"s #> -e 's/,$//' <- remove last "," in all lines ================================================ FILE: config_cmaq.csh ================================================ #!/bin/csh -f # ================= CMAQv5.5.X Configuration Script ================= # # Requirements: I/O API & netCDF libraries # # PGI, Intel, or Gnu Fortran compiler # # MPICH for multiprocessor computing # # Optional: Git for GitHub source code repository # # # # Note that this script was configured/tested on Red Hat Linux O/S # # # # To report problems or request help with this script/program: # # http://www.cmascenter.org/help-desk.cfm # # =================================================================== # #> Critical Folder Locations # CMAQ_HOME - this is where the config_cmaq.csh script is located. It # is also the root directory for all the executables. It may include # the repository if the user is building CMAQ inside the repository. It # may, on the other hand, be outside the repository if the user has # created a separate project directory where they wish to put build- # and run-scripts as well as executables. setenv CMAQ_HOME $cwd # CMAQ_REPO - this is always the location of the CMAQ repository that # the user will pull from to create executables. If the user is building # CMAQ inside the repository then it will be equal to CMAQ_HOME. If not, # the user must supply an alternative folder locaiton. setenv CMAQ_REPO $CMAQ_HOME # CMAQ_DATA - this may be where the input data are located. It may be a # symbolic link to another location on the system, but it should be # provided here setenv CMAQ_DATA $CMAQ_HOME/data if ( ! -d $CMAQ_DATA ) mkdir -p $CMAQ_DATA cd $CMAQ_HOME #=============================================================================== #> architecture & compiler specific settings #=============================================================================== #> Set the compiler option if ( $#argv == 1 ) then #> Use the user's input to set the compiler parameter setenv compiler $1 setenv compilerVrsn Empty else if ( $#argv == 2 ) then #> Compiler Name and Version have been provided setenv compiler $1 setenv compilerVrsn $2 else if ( $#argv == 0 ) then #> If config.cmaq is called from Bldit.cctm or run.cctm, then this #> variable is already defined if ( ! $?compiler ) then echo "Error: 'compiler' should be set either in the" echo " environment or as input to config.cmaq" echo " Example:> ./config.cmaq [compiler]" echo " Options: intel | gcc | pgi" exit else if ( ! $?compilerVrsn ) then setenv compilerVrsn Empty endif else #> More than two inputs were given. Exit this script just to #> be on the safe side. echo "Error: Too many inputs to config.cmaq. This script" echo " is expecting one input (the name of the" echo " desired compiler. In some installations, you " echo " may also be able to specify the compiler version " echo " as the second input, but this is not by default." exit endif echo "Compiler is set to $compiler" #> Compiler flags and settings switch ( $compiler ) #> Intel fortran compiler...................................................... case intel: #> I/O API, netCDF Library Locations -- used in WRF-CMAQ setenv NETCDF netcdf_root_intel # Note please combine netCDF-C & Fortran Libraries setenv IOAPI ioapi_root_intel setenv WRF_ARCH # [1-75] #> I/O API, netCDF, and MPI Library Locations -- used in CMAQ setenv IOAPI_INCL_DIR ioapi_inc_intel #> I/O API include header files setenv IOAPI_LIB_DIR ioapi_lib_intel #> I/O API libraries setenv NETCDF_LIB_DIR netcdf_lib_intel #> netCDF C directory path setenv NETCDF_INCL_DIR netcdf_inc_intel #> netCDF C directory path setenv NETCDFF_LIB_DIR netcdff_lib_intel #> netCDF Fortran directory path setenv NETCDFF_INCL_DIR netcdff_inc_intel #> netCDF Fortran directory path setenv MPI_INCL_DIR mpi_incl_intel #> MPI Include directory path setenv MPI_LIB_DIR mpi_lib_intel #> MPI Lib directory path #> Compiler Aliases and Flags #> set the compiler flag -qopt-report=5 to get a model optimization report in the build directory with the optrpt extension setenv myFC mpiifort setenv myCC icc setenv myFSTD "-O3 -fno-alias -mp1 -fp-model source -ftz -simd -align all -xHost -vec-guard-write -unroll-aggressive" setenv myDBG "-O0 -g -check bounds -check uninit -fpe0 -fno-alias -ftrapuv -traceback" setenv myLINK_FLAG #"-qopenmp-simd" openMP not supported w/ CMAQ setenv myFFLAGS "-fixed -132" setenv myFRFLAGS "-free" setenv myCFLAGS "-O2" setenv extra_lib "" breaksw #> Portland Group fortran compiler............................................. case pgi: #> I/O API, netCDF Library Locations -- used in WRF-CMAQ setenv NETCDF netcdf_root_pgi # Note please combine netCDF-C & Fortran Libraries setenv IOAPI ioapi_root_pgi setenv WRF_ARCH # [1-75] #> I/O API, netCDF, and MPI Library Locations -- used in CMAQ setenv IOAPI_INCL_DIR iopai_inc_pgi #> I/O API include header files setenv IOAPI_LIB_DIR ioapi_lib_pgi #> I/O API libraries setenv NETCDF_LIB_DIR netcdf_lib_pgi #> netCDF C directory path setenv NETCDF_INCL_DIR netcdf_inc_pgi #> netCDF C directory path setenv NETCDFF_LIB_DIR netcdff_lib_pgi #> netCDF Fortran directory path setenv NETCDFF_INCL_DIR netcdff_inc_pgi #> netCDF Fortran directory path setenv MPI_INCL_DIR mpi_incl_pgi #> MPI Include directory path setenv MPI_LIB_DIR mpi_lib_pgi #> MPI Lib directory path #> Compiler Aliases and Flags setenv myFC mpifort setenv myCC pgcc setenv myLINK_FLAG # "-mp" openMP not supported w/ CMAQ setenv myFSTD "-O3" setenv myDBG "-O0 -g -Mbounds -Mchkptr -traceback -Ktrap=fp" setenv myFFLAGS "-Mfixed -Mextend -mcmodel=medium -tp px" setenv myFRFLAGS "-Mfree -Mextend -mcmodel=medium -tp px" setenv myCFLAGS "-O2" setenv extra_lib "" breaksw #> gfortran compiler............................................................ case gcc: #> I/O API, netCDF Library Locations -- used in WRF-CMAQ setenv NETCDF netcdf_root_gcc # Note please combine netCDF-C & Fortran Libraries setenv IOAPI ioapi_root_gcc setenv WRF_ARCH # [1-75] #> I/O API, netCDF, and MPI Library Locations -- used in CMAQ setenv IOAPI_INCL_DIR ioapi_inc_gcc #> I/O API include header files setenv IOAPI_LIB_DIR ioapi_lib_gcc #> I/O API libraries setenv NETCDF_LIB_DIR netcdf_lib_gcc #> netCDF C directory path setenv NETCDF_INCL_DIR netcdf_inc_gcc #> netCDF C directory path setenv NETCDFF_LIB_DIR netcdff_lib_gcc #> netCDF Fortran directory path setenv NETCDFF_INCL_DIR netcdff_inc_gcc #> netCDF Fortran directory path setenv MPI_INCL_DIR mpi_incl_gcc #> MPI Include directory path setenv MPI_LIB_DIR mpi_lib_gcc #> MPI Lib directory path #> Compiler Aliases and Flags #> set the compiler flag -fopt-info-missed to generate a missed optimization report in the bldit logfile setenv myFC mpifort setenv myCC gcc setenv myFSTD "-O3 -funroll-loops -finit-character=32 -Wtabs -Wsurprising -ftree-vectorize -ftree-loop-if-convert -finline-limit=512" setenv myDBG "-Wall -O0 -g -fcheck=all -ffpe-trap=invalid,zero,overflow -fbacktrace" setenv myFFLAGS "-ffixed-form -ffixed-line-length-132 -funroll-loops -finit-character=32 -std=legacy" setenv myFRFLAGS "-ffree-form -ffree-line-length-none -funroll-loops -finit-character=32" setenv myCFLAGS "-O2" setenv myLINK_FLAG # "-fopenmp" openMP not supported w/ CMAQ setenv extra_lib "" breaksw default: echo "*** Compiler $compiler not found" exit(2) breaksw endsw #> Apply Specific Module and Library Location Settings for those working inside EPA # source /work/MOD3DEV/cmaq_common/cmaq_env.csh #>>> UNCOMMENT if at EPA #> Add the Compiler Version Number to the Compiler String if it's not empty setenv compilerString ${compiler} if ( $compilerVrsn != "Empty" ) then setenv compilerString ${compiler}${compilerVrsn} endif #=============================================================================== #> I/O API, netCDF, and MPI libraries setenv netcdf_lib "-lnetcdf" #> -lnetcdff -lnetcdf for netCDF v4.2.0 and later setenv netcdff_lib "-lnetcdff" setenv ioapi_lib "-lioapi" setenv pnetcdf_lib "-lpnetcdf" setenv mpi_lib "-lmpi" #> -lmpich or -lmvapich #> Query System Info and Current Working Directory setenv system "`uname -m`" setenv bld_os "`uname -s``uname -r | cut -d. -f1`" setenv lib_basedir $CMAQ_HOME/lib #> Generate Library Locations setenv CMAQ_LIB ${lib_basedir}/${system}/${compilerString} setenv MPI_DIR $CMAQ_LIB/mpi setenv NETCDF_DIR $CMAQ_LIB/netcdf setenv NETCDFF_DIR $CMAQ_LIB/netcdff setenv PNETCDF_DIR $CMAQ_LIB/pnetcdf setenv IOAPI_DIR $CMAQ_LIB/ioapi #> Create Symbolic Links to Libraries if ( ! -d $CMAQ_LIB ) mkdir -p $CMAQ_LIB if ( -e $MPI_DIR ) rm -rf $MPI_DIR mkdir $MPI_DIR ln -s $MPI_LIB_DIR $MPI_DIR/lib ln -s $MPI_INCL_DIR $MPI_DIR/include if ( ! -d $NETCDF_DIR ) mkdir $NETCDF_DIR if ( ! -e $NETCDF_DIR/lib ) ln -sfn $NETCDF_LIB_DIR $NETCDF_DIR/lib if ( ! -e $NETCDF_DIR/include ) ln -sfn $NETCDF_INCL_DIR $NETCDF_DIR/include if ( ! -d $NETCDFF_DIR ) mkdir $NETCDFF_DIR if ( ! -e $NETCDFF_DIR/lib ) ln -sfn $NETCDFF_LIB_DIR $NETCDFF_DIR/lib if ( ! -e $NETCDFF_DIR/include ) ln -sfn $NETCDFF_INCL_DIR $NETCDFF_DIR/include if ( ! -d $IOAPI_DIR ) then mkdir $IOAPI_DIR ln -sfn $IOAPI_INCL_DIR $IOAPI_DIR/include_files ln -sfn $IOAPI_LIB_DIR $IOAPI_DIR/lib endif #> Check for netcdf and I/O API libs/includes, error if they don't exist if ( ! -e $NETCDF_DIR/lib/libnetcdf.a ) then echo "ERROR: $NETCDF_DIR/lib/libnetcdf.a does not exist in your CMAQ_LIB directory!!! Check your installation before proceeding with CMAQ build." exit endif if ( ! -e $NETCDFF_DIR/lib/libnetcdff.a ) then echo "ERROR: $NETCDFF_DIR/lib/libnetcdff.a does not exist in your CMAQ_LIB directory!!! Check your installation before proceeding with CMAQ build." exit endif if ( ! -e $IOAPI_DIR/lib/libioapi.a ) then echo "ERROR: $IOAPI_DIR/lib/libioapi.a does not exist in your CMAQ_LIB directory!!! Check your installation before proceeding with CMAQ build." exit endif if ( ! -e $IOAPI_DIR/lib/m3utilio.mod ) then echo "ERROR: $IOAPI_MOD_DIR/m3utilio.mod does not exist in your CMAQ_LIB directory!!! Check your installation before proceeding with CMAQ build." exit endif #> Set executable id setenv EXEC_ID ${bld_os}_${system}${compilerString} ================================================ FILE: license.md ================================================ # MIT License Copyright (c) 2019 U.S. Federal Government (in countries where recognized) Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to the following conditions: The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software. THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.